Globals from FOIA VistA with corrected Node problem for the cross references in the mental health files for C and AU
Cache 13-Sep-2008 18:35:03 ZWR
^DD(0,0)="ATTRIBUTE^N^^35"
^DD(0,0,"IX","ACOMP",0,9.01)=""
^DD(0,0,"IX","AUD",0,1.1)=""
^DD(0,0,"IX","AUDIT",0,1.1)=""
^DD(0,0,"IX","B",0,.01)=""
^DD(0,0,"IX","B",0,.1)=""
^DD(0,0,"IX","GL",0,.4)=""
^DD(0,0,"IX","GR",.3,.01)=""
^DD(0,0,"IX","IX",.1,.01)=""
^DD(0,0,"IX","RQ",0,.2)=""
^DD(0,0,"IX","SB",0,.2)=""
^DD(0,.001,0)="NUMBER^N^^ ^K:$L(X)>12 X"
^DD(0,.01,0)="LABEL^R^^0;1^K:$L(X)>30!(X?1E)!(X["""""""")!(X[""="") X"
^DD(0,.01,1,0)="^.1^1^1"
^DD(0,.01,1,1,0)="DA(2)^B"
^DD(0,.01,1,1,1)="S @(DIC_""""""B"""",X,DA)="""""""""")"
^DD(0,.01,1,1,2)="K @(DIC_""""""B"""",X,DA)"")"
^DD(0,.01,"DEL",.2,0)="I DUZ(0)'=""@"",$P(^DD(DA(1),DA,0),""^"",2)[""X"" W !,$C(7),""ONLY A PROGRAMMER CAN DELETE THIS FIELD!"""
^DD(0,.01,"DEL",.3,0)="W:$D(^DD(""ACOMP"",DA(1),DA)) !,$C(7),""WARNING-- A COMPUTED FIELD USES THIS FIELD!"" I 0"
^DD(0,.01,"DEL",1,0)="I DA=.01 W $C(7),""??"""
^DD(0,.01,"DEL","ID",0)="I $D(^DD(DA(1),0,""ID"",DA)) W !,""CAN'T DELETE IDENTIFIER!"""
^DD(0,.01,"DEL","T",0)="I $O(^DD(DA(1),DA,5,0))>0 W $C(7),!,""CAN'T DELETE A FIELD THAT HAS A 'TRIGGER' POINTING TO IT!"""
^DD(0,.01,"DEL","TRB",0)="S %=+$P(^DD(DA(1),DA,0),U,2) I %,$D(^DD(%,""TRB"")) S DA(0)=DA,DA=% D TRIG^DIDH S DA=DA(0)"
^DD(0,.1,0)="TITLE^F^^.1;E1,999^K:$L(X)>100!(+X=X) X I $D(X),$L(X)<32,@(""$D(""_DIC_""""""B"""",X,DA))"") K X"
^DD(0,.1,1,0)="^.1^1^1"
^DD(0,.1,1,1,0)="DA(2)^B"
^DD(0,.1,1,1,1)="S:$L(X)<31 @(DIC_""""""B"""",X,DA)=1"")"
^DD(0,.1,1,1,2)="K:$L(X)<31 @(DIC_""""""B"""",X,DA)"")"
^DD(0,.1,3)="(OPTIONAL) FULL FIELD NAME  (MUST BE DIFFERENT FROM LABEL)"
^DD(0,.12,0)="VARIABLE POINTER^.12^^V;0"
^DD(0,.2,0)="SPECIFIER^F^^0;2"
^DD(0,.2,1,0)="^.1^4^4"
^DD(0,.2,1,1,0)="DA(2)^SB^ (SUBFILE USED)"
^DD(0,.2,1,1,1)="S:X @(DIC_""""""SB"""",+X,DA)="""""""""")"
^DD(0,.2,1,1,2)="K:X @(DIC_""""""SB"""",+X,DA)"")"
^DD(0,.2,1,2,0)="DA(2)^RQ^"
^DD(0,.2,1,2,1)="S:X[""R"" @(DIC_""""""RQ"""",DA)="""""""""")"
^DD(0,.2,1,2,2)="K:X[""R"" @(DIC_""""""RQ"""",DA)"")"
^DD(0,.2,1,3,0)="^"
^DD(0,.2,1,3,1)="S %=$P(X,""P"",2) S:$A(%)=48!%&$D(^DD(+%,0)) ^(0,""PT"",DA(1),DA)="""""
^DD(0,.2,1,3,2)="S %=$P(X,""P"",2) K:$A(%)=48!% ^DD(+%,0,""PT"",DA(1),DA)"
^DD(0,.2,9)="^"
^DD(0,.23,0)="LENGTH^CJ3^^ ; ^S X=$S($D(@(DCC_""D0,0)"")):$P(^(0),U,2),1:""""),X=$P(X,""J"",2),X=$S(X:+X,1:"""")"
^DD(0,.23,9)="^"
^DD(0,.24,0)="DECIMAL DEFAULT^CJ1^^ ; ^S @(""X=$P(""_DCC_""D0,0),U,2)""),X=$P($P(X,""J"",2),"","",2)"
^DD(0,.25,0)="TYPE^CJ15^^ ; ^S X=$P(@(DCC_""D0,0)""),U,2),X=$S(X[""C"":6,X[""N"":2,X[""P"":7,X[""S"":3,X[""D"":1,X[""V"":8,X[""K"":9,X[""W""!$S('X:0,'$D(^DD(+X,.01,0)):0,1:$P(^(0),U,2)[""W""):5,1:0),X=$S($D(^DOPT(""DICATT"",X,0)):$P(^(0),"" ""),1:""FREE TEXT"")"
^DD(0,.25,9)="^"
^DD(0,.26,0)="COMPUTE ALGORITHM^FJ30^^9.1;E1,245^K:$L(X)>50 X"
^DD(0,.27,0)="SUB-FIELDS^CJ1^^ ; ^Q:$D(DIQ(0))  X ^DD(0,.27,9.2) S X="""" I $D(Y)#2,Y=U S DN=0"
^DD(0,.27,9.2)="S %=$S($D(^DD(DFF,D0,0)):+$P(^(0),U,2),1:0) I %,$D(^DD(%,.01,0)),$P(^(0),U,2)'[""W"" S DR=""DFF=%,DN=1 D ^DIO2 S X="""""""",DFF=""_DFF_"",DN=""_DN,X=""D0"" X ""F Z=1:1 S DR=X_""""=0,""""_DR_"""",""""_X_""""=""""""""""""_@X_"""""""""""""""",X=""""D""""_X Q:$D(@X)[0"",""S ""_DR"
^DD(0,.28,0)="MULTIPLE-VALUED^CB^^ ; ^S X=$P(^DD(DFF,D0,0),U,2)>0"
^DD(0,.29,0)="DEPTH OF SUB-FIELD^CJ1^^ ; ^S %=DFF X ""F X=0:1 Q:'$D(^DD(%,0,""""UP""""))  S %=^(""""UP"""")"""
^DD(0,.3,0)="POINTER^F^^0;3"
^DD(0,.3,9)="^"
^DD(0,.4,0)="GLOBAL SUBSCRIPT LOCATION^RF^^0;4^K:X'?1.E1"";""1.E X I $D(X),@(""$D(""_DIC_""""""GL"""",$P(X,"""";""""),$P(X,"""";"""",2)))"") K X"
^DD(0,.4,1,0)="^.1^1^1"
^DD(0,.4,1,1,0)="DA(2)^GL"
^DD(0,.4,1,1,1)="S:X'?.P @(DIC_""""""GL"""",$P(X,"""";""""),$P(X,"""";"""",2),DA)="""""""""")"
^DD(0,.4,1,1,2)="K:X'?.P @(DIC_""""""GL"""",$P(X,"""";""""),$P(X,"""";"""",2),DA)"")"
^DD(0,.4,9)="^"
^DD(0,.5,0)="INPUT TRANSFORM^CJ44^^ ; ^S @(""X=$P(""_DCC_""D0,0),U,5,99)"")"
^DD(0,.5,9)="^"
^DD(0,1,0)="CROSS-REFERENCE^.1^^1;0"
^DD(0,1.1,0)="AUDIT^S^y:YES, ALWAYS;n:NO;e:EDITED OR DELETED;^AUDIT;1^Q"
^DD(0,1.1,1,0)="^.1"
^DD(0,1.1,1,1,0)="0^AUD^MUMPS"
^DD(0,1.1,1,1,1)="I ""ye""[X,$P(^DD(DA(1),DA,0),U,2)'[""a"" S $P(^(0),U,2)=$P(^(0),U,2)_""a"""
^DD(0,1.1,1,1,2)="S $P(^(0),U,2)=$P($P(^DD(DA(1),DA,0),U,2),""a"")_$P($P(^(0),U,2),""a"",2,9)"
^DD(0,1.1,1,2,0)="0^AUDIT^MUMPS"
^DD(0,1.1,1,2,1)="S:""ye""[X ^DD(DA(1),""AUDIT"",DA)="""""
^DD(0,1.1,1,2,2)="K ^DD(DA(1),""AUDIT"",DA)"
^DD(0,1.2,0)="AUDIT CONDITION^K^^AX;E1,245^D ^DIM"
^DD(0,1.2,3)="Enter Mumps Code that will set $T to 1 for Audit to take place."
^DD(0,2,0)="OUTPUT TRANSFORM^F^^2;E1,245;D ^DIM"
^DD(0,3,0)="'HELP'-PROMPT^F^^3;E1,245^K:X'?3.E!($L(X)>200) X"
^DD(0,4,0)="XECUTABLE 'HELP'^F^^4;E1,245^D ^DIM"
^DD(0,8,0)="READ ACCESS (OPTIONAL)^F^^8;E1,245^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(0,8,3)="ENTER A STRING OF CHARACTERS WHICH ARE IN YOUR OWN ACCESS CODE ('DUZ(0)')"
^DD(0,8.5,0)="DELETE ACCESS (OPTIONAL)^F^^8.5;E1,245^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(0,9,0)="WRITE ACCESS (OPTIONAL)^F^^9;E1,245^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(0,9.01,0)="COMPUTED FIELDS USED^F^^9.01;E1,250^Q"
^DD(0,9.01,1,0)="^.1^1^1"
^DD(0,9.01,1,1,0)="DA(2)^ACOMP^MUMPS"
^DD(0,9.01,1,1,1)="F %=1:1 S I=$P(X,"";"",%) Q:I=""""  S ^DD(""ACOMP"",+I,+$P(I,U,2),DA(1),DA)="""""
^DD(0,9.01,1,1,2)="F %=1:1 S I=$P(X,"";"",%) Q:I=""""  K ^DD(""ACOMP"",+I,+$P(I,U,2),DA(1),DA)"
^DD(0,10,0)="SOURCE^F^^10;E1,99^K:$L(X)>99 X"
^DD(0,10,3)="WHERE THIS DATA ELEMENT COMES FROM (UP TO 99 CHARACTERS)"
^DD(0,11,0)="DESTINATION^.2LAP^^11;0"
^DD(0,12,0)="POINTER SCREEN^^^12;E1,250"
^DD(0,12.1,0)="CODE TO SET POINTER SCREEN^^^12.1;E1,250^D ^DIM"
^DD(0,12.2,0)="EXPRESSION FOR POINTER SCREEN^^^12.2;E1,250"
^DD(0,20,0)="GROUP^.3LA^^20;0"
^DD(0,21,0)="DESCRIPTION^.001^^21;0"
^DD(0,23,0)="TECHNICAL DESCRIPTION^.001^^23;0"
^DD(0,50,0)="DATE FIELD LAST EDITED^D^^DT;1^Q"
^DD(0,50,9)="^"
^DD(0,999,0)="TRIGGERED-BY POINTER^.15^^5;0"
^DD(0,999,9)="^"
^DD(0,"B","'HELP'-PROMPT",3)=""
^DD(0,"B","AUDIT",1.1)=""
^DD(0,"B","AUDIT CONDITION",1.2)=""
^DD(0,"B","CODE TO SET POINTER SCREEN",12.1)=""
^DD(0,"B","COMPUTE ALGORITHM",.26)=""
^DD(0,"B","COMPUTED FIELDS USED",9.01)=""
^DD(0,"B","CROSS-REFERENCE",1)=""
^DD(0,"B","DATE FIELD LAST EDITED",50)=""
^DD(0,"B","DECIMAL DEFAULT",.24)=""
^DD(0,"B","DELETE ACCESS (OPTIONAL)",8.5)=""
^DD(0,"B","DEPTH OF SUB-FIELD",.29)=""
^DD(0,"B","DESCRIPTION",21)=""
^DD(0,"B","DESTINATION",11)=""
^DD(0,"B","EXPRESSION FOR POINTER SCREEN",12.2)=""
^DD(0,"B","GLOBAL SUBSCRIPT LOCATION",.4)=""
^DD(0,"B","GROUP",20)=""
^DD(0,"B","INPUT TRANSFORM",.5)=""
^DD(0,"B","LABEL",.01)=""
^DD(0,"B","LENGTH",.23)=""
^DD(0,"B","MULTIPLE-VALUED",.28)=""
^DD(0,"B","NUMBER",.001)=""
^DD(0,"B","OUTPUT TRANSFORM",2)=""
^DD(0,"B","POINTER",.3)=""
^DD(0,"B","POINTER SCREEN",12)=""
^DD(0,"B","READ ACCESS (OPTIONAL)",8)=""
^DD(0,"B","SOURCE",10)=""
^DD(0,"B","SPECIFIER",.2)=""
^DD(0,"B","SUB-FIELDS",.27)=""
^DD(0,"B","TECHNICAL DESCRIPTION",23)=""
^DD(0,"B","TITLE",.1)=""
^DD(0,"B","TRIGGERED-BY POINTER",999)=""
^DD(0,"B","TYPE",.25)=""
^DD(0,"B","VARIABLE POINTER",.12)=""
^DD(0,"B","WRITE ACCESS (OPTIONAL)",9)=""
^DD(0,"B","XECUTABLE 'HELP'",4)=""
^DD(0,"GL",0,1,.01)=""
^DD(0,"GL",0,2,.2)=""
^DD(0,"GL",0,3,.3)=""
^DD(0,"GL",0,4,.4)=""
^DD(0,"GL",.1,"E1,999",.1)=""
^DD(0,"GL",1,0,1)=""
^DD(0,"GL",2,"E1,245",2)=""
^DD(0,"GL",3,"E1,245",3)=""
^DD(0,"GL",4,"E1,245",4)=""
^DD(0,"GL",5,0,999)=""
^DD(0,"GL",8,"E1,245",8)=""
^DD(0,"GL",8.5,"E1,245",8.5)=""
^DD(0,"GL",9,"E1,245",9)=""
^DD(0,"GL",9.01,"E1,250",9.01)=""
^DD(0,"GL",9.1,"E1,245",.26)=""
^DD(0,"GL",10,"E1,99",10)=""
^DD(0,"GL",11,0,11)=""
^DD(0,"GL",12,"E1,250",12)=""
^DD(0,"GL",12.1,"E1,250",12.1)=""
^DD(0,"GL",12.2,"E1,250",12.2)=""
^DD(0,"GL",20,0,20)=""
^DD(0,"GL",21,0,21)=""
^DD(0,"GL",23,0,23)=""
^DD(0,"GL","AUDIT",1,1.1)=""
^DD(0,"GL","AX","E1,245",1.2)=""
^DD(0,"GL","DT",1,50)=""
^DD(0,"GL","V",0,.12)=""
^DD(0,"IX",.01)=""
^DD(0,"IX",.1)=""
^DD(0,"IX",.2)=""
^DD(0,"IX",.4)=""
^DD(0,"IX",1.1)=""
^DD(0,"IX",9.01)=""
^DD(0,"RQ",.01)=""
^DD(0,"RQ",.4)=""
^DD(0,"SB",.001,21)=""
^DD(0,"SB",.001,23)=""
^DD(0,"SB",.1,1)=""
^DD(0,"SB",.12,.12)=""
^DD(0,"SB",.15,999)=""
^DD(0,"SB",.2,11)=""
^DD(0,"SB",.3,20)=""
^DD(.001,0)="DESCRIPTION^^^1"
^DD(.001,.01,0)="DESCRIPTION^W^^0;1"
^DD(.001,"B","DESCRIPTION",.01)=""
^DD(.001,"GL",0,1,.01)=""
^DD(.1,0)="CROSS-REFERENCE^^^6"
^DD(.1,0,"IX","AC",.1,3)=""
^DD(.1,0,"IX","IX",.1,.01)=""
^DD(.1,0,"NM","CROSS-REFERENCE")=""
^DD(.1,.01,0)="INDEX^F^^0;E1,245^Q"
^DD(.1,.01,1,0)="^.1^3^3"
^DD(.1,.01,1,1,0)="0^IX"
^DD(.1,.01,1,1,1)="S:$P(X,U,2)]"""" @(""^DD(""_$P(X,""^"",1)_"",0,""""IX"""",$P(X,""""^"""",2),DA(2),DA(1))="""""""""")"
^DD(.1,.01,1,1,2)="K:$P(X,U,2)]"""" @(""^DD(""_$P(X,""^"",1)_"",0,""""IX"""",$P(X,""""^"""",2),DA(2),DA(1))"")"
^DD(.1,.01,1,2,0)="DA(2)^IX"
^DD(.1,.01,1,2,1)="S ^DD(DA(2),""IX"",DA(1))="""""
^DD(.1,.01,1,2,2)="I $O(^DD(DA(2),DA(1),1,0))=DA,$O(^(DA))="""" K ^DD(DA(2),""IX"",DA(1))"
^DD(.1,.01,1,3,0)="^^TRIGGER"
^DD(.1,.01,1,3,1)="S Y=$P(X,U,5),X=$P(X,U,4),Z=DA(2)_U_DA(1)_U_DA I Y F %=1:1 Q:'%  S %1=$S($D(^DD(X,Y,5,%,0)):^(0),1:0) Q:%1=Z  I '%1 S ^(0)=Z F %=-1:0 S ^DD(X,""TRB"",DA(2),DA(1),DA,Y)="""",Y=X Q:'$D(^DD(X,0,""UP""))  S X=^(""UP""),Y=$O(^DD(X,""SB"",Y,0))"
^DD(.1,.01,1,3,2)="S Y=$P(X,""^"",5),X=$P(X,""^"",4) I Y S %=0 F  S %=$O(^DD(X,Y,5,%)) Q:%=""""  Q:'$D(^(%,0))  I DA(2)_""^""_DA(1)_""^""_DA=^(0) K ^DD(X,Y,5,%) F  K ^DD(X,""TRB"",DA(2),DA(1),DA,Y) Q:'$D(^DD(X,0,""UP""))  S Y=X,X=^(""UP""),Y=$O(^DD(X,""SB"",Y,0))"
^DD(.1,1,0)="SET STATEMENT^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.1,1,3)="This is Standard MUMPS code."
^DD(.1,1,21,0)="^^3^3^2890802^"
^DD(.1,1,21,1,0)="Enter Standard MUMPS code which will set this cross-reference."
^DD(.1,1,21,2,0)="You may use X to reference the data in this field and DA-array"
^DD(.1,1,21,3,0)="to reference the internal entry numbers in the file."
^DD(.1,1,"DEL",1,0)="I 1 W $C(7),!,""CAN'T DELETE THIS NODE."""
^DD(.1,2,0)="KILL STATEMENT^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.1,2,3)="This is Standard MUMPS code."
^DD(.1,2,21,0)="^^3^3^2890802^"
^DD(.1,2,21,1,0)="Enter Standard MUMPS code which will kill this cross-reference."
^DD(.1,2,21,2,0)="You may use X to reference the data in this field and the DA-array"
^DD(.1,2,21,3,0)="to reference the internal entry numbers in the file."
^DD(.1,2,"DEL",1,0)="I 1 W $C(7),!,""CAN'T DELETE THIS NODE."""
^DD(.1,3,0)="NO-DELETION MESSAGE^F^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<3) X"
^DD(.1,3,1,0)="^.1"
^DD(.1,3,1,1,0)=".1^AC^MUMPS"
^DD(.1,3,1,1,1)="Q"
^DD(.1,3,1,1,2)="K:^DD(DA(2),DA(1),1,DA,3)']"""" ^(3)"
^DD(.1,3,3)="Answer must be 3-245 characters in length."
^DD(.1,3,21,0)="^^2^2^2890803^^"
^DD(.1,3,21,1,0)="Enter a message if you want to prevent this cross-reference from being"
^DD(.1,3,21,2,0)="deleted."
^DD(.1,4,0)="DATE UPDATED^D^^DT;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(.1,10,0)="DESCRIPTION^.101^^%D;0"
^DD(.1,"B","DATE UPDATED",4)=""
^DD(.1,"B","DESCRIPTION",10)=""
^DD(.1,"B","INDEX",.01)=""
^DD(.1,"B","KILL STATEMENT",2)=""
^DD(.1,"B","NO-DELETION MESSAGE",3)=""
^DD(.1,"B","SET STATEMENT",1)=""
^DD(.1,"GL",0,"E1,245",.01)=""
^DD(.1,"GL",1,"E1,245",1)=""
^DD(.1,"GL",2,"E1,245",2)=""
^DD(.1,"GL",3,1,3)=""
^DD(.1,"GL","%D",0,10)=""
^DD(.1,"GL","DT",1,4)=""
^DD(.1,"IX",.01)=""
^DD(.1,"IX",3)=""
^DD(.1,"SB",.101,10)=""
^DD(.101,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.101,0,"UP")=".1"
^DD(.101,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.101,"B","DESCRIPTION",.01)=""
^DD(.101,"GL",0,1,.01)=""
^DD(.11,0)="FIELD^^11.1^20"
^DD(.11,0,"DDA")="N"
^DD(.11,0,"DT")="2980908"
^DD(.11,0,"ID","DI SHORT DESCRIPTION 50")="D EN^DDIOL($E($P(^(0),U,3),1,50),"""",""?0"")"
^DD(.11,0,"IX","AC",.11,.51)=""
^DD(.11,0,"IX","B",.11,.01)=""
^DD(.11,0,"NM","INDEX")=""
^DD(.11,0,"PT",.31,3)=""
^DD(.11,0,"VR")="22.0"
^DD(.11,.01,0)="FILE^RNJ20,7^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(.11,.01,1,0)="^.1^^-1"
^DD(.11,.01,1,1,0)=".11^B"
^DD(.11,.01,1,1,1)="S ^DD(""IX"",""B"",$E(X,1,30),DA)="""""
^DD(.11,.01,1,1,2)="K ^DD(""IX"",""B"",$E(X,1,30),DA)"
^DD(.11,.01,1,1,3)="Lets developers pick indexes by file number"
^DD(.11,.01,1,1,"%D",0)="^^2^2^2980911^"
^DD(.11,.01,1,1,"%D",1,0)="The B index, on the .01 (File) of the Index file, lets developers pick"
^DD(.11,.01,1,1,"%D",2,0)="indexes by the numbers of the files they cross-reference."
^DD(.11,.01,3)="Answer must be between 0 and 999999999999, with up to 7 decimal digits. Answer '??' for more help."
^DD(.11,.01,21,0)="^^3^3^2980910^^"
^DD(.11,.01,21,1,0)="Answer should be the number of the file cross-referenced by this index."
^DD(.11,.01,21,2,0)="For whole file cross-references on subfiles, answer with the number of"
^DD(.11,.01,21,3,0)="the file where the index physically resides, not the subfile number."
^DD(.11,.01,"DT")="2980611"
^DD(.11,.02,0)="NAME^RF^^0;2^K:$L(X)>30!($L(X)<1)!'(X?1A.AN) X"
^DD(.11,.02,1,0)="^.1^^0"
^DD(.11,.02,3)="Answer must be 1-30 characters in length. Answer '??' for more help."
^DD(.11,.02,21,0)="^^4^4^2980911^"
^DD(.11,.02,21,1,0)="Answer must be the name of the index. For example, the name of the default"
^DD(.11,.02,21,2,0)="lookup index on a file's .01 field is B, the name of the uniqueness index"
^DD(.11,.02,21,3,0)="of a compound key is BB, and the name of an index not used for lookup must"
^DD(.11,.02,21,4,0)="start with A."
^DD(.11,.02,"DT")="2990303"
^DD(.11,.1,0)="DESCRIPTION^.1101^^.1;0"
^DD(.11,.11,0)="SHORT DESCRIPTION^RF^^0;3^K:$L(X)>79!($L(X)<1) X"
^DD(.11,.11,3)="Answer must be 1-79 characters in length. Answer '??' for more help."
^DD(.11,.11,21,0)="^^2^2^2980910^"
^DD(.11,.11,21,1,0)="Answer should be text briefly explaining the function of this"
^DD(.11,.11,21,2,0)="cross-reference."
^DD(.11,.11,"DT")="2960216"
^DD(.11,.2,0)="TYPE^RS^R:REGULAR;MU:MUMPS;^0;4^Q"
^DD(.11,.2,3)="Answer '??' for more help."
^DD(.11,.2,21,0)="^^5^5^2980911^"
^DD(.11,.2,21,1,0)="REGULAR - One or more field values are stored in an index on the file. The"
^DD(.11,.2,21,2,0)="index can be used for sorting, or optionally, looking up entries."
^DD(.11,.2,21,3,0)=" "
^DD(.11,.2,21,4,0)="MUMPS - Customizable M code executes whenever a field that makes up the"
^DD(.11,.2,21,5,0)="cross-references changes."
^DD(.11,.2,"DT")="2970718"
^DD(.11,.4,0)="EXECUTION^RS^F:FIELD;R:RECORD;^0;6^Q"
^DD(.11,.4,1,0)="^.1^^0"
^DD(.11,.4,3)="Answer '??' for more help."
^DD(.11,.4,21,0)="^^7^7^2980911^^"
^DD(.11,.4,21,1,0)="Answer with the code that indicates whether the cross reference logic"
^DD(.11,.4,21,2,0)="should be executed after a field in the index changes, or only after all"
^DD(.11,.4,21,3,0)="fields in a record are updated. The logic for most simple (single-field)"
^DD(.11,.4,21,4,0)="indexes should be executed immediately after the field changes, and so"
^DD(.11,.4,21,5,0)="should get the code 'F'. The logic for most compound indexes should be"
^DD(.11,.4,21,6,0)="executed only once after a transaction on the entire record is complete,"
^DD(.11,.4,21,7,0)="and so should get the code 'R'. Exceptions to this rule are rare."
^DD(.11,.4,"DT")="2980611"
^DD(.11,.41,0)="ACTIVITY^FX^^0;7^K:$L(X)>2!($L(X)<1)!($TR(X,""IR"")]"""") X"
^DD(.11,.41,3)="Answer must be 2 characters in length. Answer '??' for more help."
^DD(.11,.41,21,0)="^^15^15^2990225^"
^DD(.11,.41,21,1,0)="Answer with the flags that control whether FileMan fires this"
^DD(.11,.41,21,2,0)="cross-reference during an installation and a re-cross-referencing"
^DD(.11,.41,21,3,0)="operation. The possible flags are:"
^DD(.11,.41,21,4,0)=" "
^DD(.11,.41,21,5,0)="  I = Installing an entry at a site"
^DD(.11,.41,21,6,0)="  R = Re-cross-referencing this index"
^DD(.11,.41,21,7,0)=" "
^DD(.11,.41,21,8,0)="FileMan automatically fires cross-references during an edit, regardless of"
^DD(.11,.41,21,9,0)="Activity, though you can control whether a cross-reference is fired by"
^DD(.11,.41,21,10,0)="entering Set and Kill Conditions."
^DD(.11,.41,21,11,0)=" "
^DD(.11,.41,21,12,0)="Also, if you explicity select a cross-reference in an EN^DIK, EN1^DIK, or"
^DD(.11,.41,21,13,0)="ENALL^DIK call, or in the UTILITY FUNCTIONS/RE-INDEX FILE option on the VA"
^DD(.11,.41,21,14,0)="FileMan menu, that cross-reference will be fired whether or not its"
^DD(.11,.41,21,15,0)="Activity contains an ""R""."
^DD(.11,.41,"DT")="2980611"
^DD(.11,.42,0)="USE^S^LS:LOOKUP & SORTING;S:SORTING ONLY;A:ACTION;^0;14^Q"
^DD(.11,.42,3)="Controls how the index will be used by Classic FileMan Lookup (^DIC), Finder (FIND^DIC and $$FIND1^DIC) and Sort/Print (EN1^DIP). Answer '??' for more help."
^DD(.11,.42,21,0)="^^15^15^2980911^^"
^DD(.11,.42,21,1,0)="LOOKUP & SORTING - The index name starts with ""B"" or a letter that"
^DD(.11,.42,21,2,0)="alphabetically follows ""B"".  Calls to Classic FileMan lookup (^DIC) or the"
^DD(.11,.42,21,3,0)="Finder (FIND^DIC or $$FIND1^DIC) where the index is not specified will"
^DD(.11,.42,21,4,0)="include this index in the search. The index will be available for use by"
^DD(.11,.42,21,5,0)="the FileMan Sort and Print (EN1^DIP)."
^DD(.11,.42,21,6,0)=" "
^DD(.11,.42,21,7,0)="SORTING ONLY - The index name starts with ""A"". Calls to Classic FileMan"
^DD(.11,.42,21,8,0)="lookup (^DIC) or the Finder (FIND^DIC or $$FIND1^DIC) will not use this"
^DD(.11,.42,21,9,0)="index unless it is specified in the input parameters. The index will be"
^DD(.11,.42,21,10,0)="available for use by the FileMan Sort and Print (EN1^DIP)."
^DD(.11,.42,21,11,0)=" "
^DD(.11,.42,21,12,0)="ACTION - The index name starts with ""A"". This is used for M code that"
^DD(.11,.42,21,13,0)="performs some actions and does NOT build an index. Therefore, it is not"
^DD(.11,.42,21,14,0)="available for use by either the Classic FileMan lookup (^DIC), the Finder"
^DD(.11,.42,21,15,0)="(FIND^DIC or $$FIND1^DIC) or the Sort and Print (EN1^DIP)."
^DD(.11,.42,"DT")="2980416"
^DD(.11,.5,0)="ROOT TYPE^S^I:INDEX FILE;W:WHOLE FILE;^0;8^Q"
^DD(.11,.5,3)="Answer '??' for more help."
^DD(.11,.5,21,0)="^^6^6^2980911^"
^DD(.11,.5,21,1,0)="Answer 'I' if the fields that make up the file are defined at the same"
^DD(.11,.5,21,2,0)="level at which the index is located."
^DD(.11,.5,21,3,0)=" "
^DD(.11,.5,21,4,0)="Answer 'W' if this is a whole file cross-reference in which the fields"
^DD(.11,.5,21,5,0)="that make up the index are defined in a subfile, but the index is"
^DD(.11,.5,21,6,0)="physically located at a parent file level."
^DD(.11,.5,"DT")="2980908"
^DD(.11,.51,0)="ROOT FILE^RNJ20,7^^0;9^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(.11,.51,1,0)="^.1"
^DD(.11,.51,1,1,0)=".11^AC"
^DD(.11,.51,1,1,1)="S ^DD(""IX"",""AC"",$E(X,1,30),DA)="""""
^DD(.11,.51,1,1,2)="K ^DD(""IX"",""AC"",$E(X,1,30),DA)"
^DD(.11,.51,1,1,3)="Lets FileMan find indexes defined on fields from a particular file"
^DD(.11,.51,1,1,"DT")="2980929"
^DD(.11,.51,3)="Type a Number between 0 and 999999999999, 7 Decimal Digits. Answer '??' for more help."
^DD(.11,.51,21,0)="^^3^3^2980910^"
^DD(.11,.51,21,1,0)="Answer with the number of the file or subfile where this index is defined."
^DD(.11,.51,21,2,0)="For whole file indexes, answer with the subfile number, not the number of"
^DD(.11,.51,21,3,0)="the file where the index physically resides."
^DD(.11,.51,"DT")="2980929"
^DD(.11,1.1,0)="SET LOGIC^RK^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.11,1.1,3)="Answer must be Standard M code. Answer '??' for more help."
^DD(.11,1.1,9)="@"
^DD(.11,1.1,21,0)="^^16^16^2990430^^"
^DD(.11,1.1,21,1,0)="Answer with the M code that FileMan should execute when the values of"
^DD(.11,1.1,21,2,0)="fields that make up the cross-reference are set or changed. When field"
^DD(.11,1.1,21,3,0)="values are changed, FileMan executes first the KILL LOGIC, then the SET"
^DD(.11,1.1,21,4,0)="LOGIC."
^DD(.11,1.1,21,5,0)=" "
^DD(.11,1.1,21,6,0)="Assume the DA array describes the record to be cross-referenced, and that"
^DD(.11,1.1,21,7,0)="the X(order#) array contains values after the transform for storage is"
^DD(.11,1.1,21,8,0)="applied, but before the truncation to the maximum length.  The variable X"
^DD(.11,1.1,21,9,0)="also equals X(order#) of the lowest order number."
^DD(.11,1.1,21,10,0)=" "
^DD(.11,1.1,21,11,0)="When fields that make up a cross-reference are edited and the kill and set"
^DD(.11,1.1,21,12,0)="logic are executed, the X1(order#) array contains the old field values,"
^DD(.11,1.1,21,13,0)="and the X2(order#) array contains the new field values. If a record is"
^DD(.11,1.1,21,14,0)="being added, and there is an X1(order#) array element that corresponds to"
^DD(.11,1.1,21,15,0)="the .01 field, it is set to null. When a record is deleted, all X2(order#)"
^DD(.11,1.1,21,16,0)="array elements are null."
^DD(.11,1.1,"DT")="2960116"
^DD(.11,1.2,0)="OVERFLOW SET LOGIC^.111^^1.2;0"
^DD(.11,1.2,"DT")="2960124"
^DD(.11,1.3,0)="SET CONDITION^F^^1.3;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.11,1.3,3)="Answer must be a valid FileMan computed expression. Answer '??' for more help."
^DD(.11,1.3,21,0)="^^5^5^2960124^"
^DD(.11,1.3,21,1,0)="Answer with a FileMan computed expression that will evaluate to Boolean"
^DD(.11,1.3,21,2,0)="true (according to the M rules for Boolean interpretation). FileMan will"
^DD(.11,1.3,21,3,0)="evaluate this expression whenever it would normally execute the"
^DD(.11,1.3,21,4,0)="cross-reference's Set Logic, and will not execute the Set Logic unless"
^DD(.11,1.3,21,5,0)="this condition evaluates to true."
^DD(.11,1.3,"DT")="2960116"
^DD(.11,1.4,0)="SET CONDITION CODE^K^^1.4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.11,1.4,3)="This is Standard MUMPS code. Answer '??' for more help."
^DD(.11,1.4,9)="@"
^DD(.11,1.4,21,0)="^^15^15^2990430^"
^DD(.11,1.4,21,1,0)="This is MUMPS code that sets the variable X. The SET LOGIC is executed"
^DD(.11,1.4,21,2,0)="only if the SET CONDTION, if present, sets X to Boolean true (according to"
^DD(.11,1.4,21,3,0)="M rules for Boolean interpretation)."
^DD(.11,1.4,21,4,0)=" "
^DD(.11,1.4,21,5,0)="Assume the DA array describes the record to be cross-referenced, and that"
^DD(.11,1.4,21,6,0)="the X(order#) array contains values after the transform for storage is"
^DD(.11,1.4,21,7,0)="applied, but before the truncation to the maximum length.  The variable X"
^DD(.11,1.4,21,8,0)="also equals X(order#) of the lowest order number."
^DD(.11,1.4,21,9,0)=" "
^DD(.11,1.4,21,10,0)="When fields that make up a cross-reference are edited and the kill and set"
^DD(.11,1.4,21,11,0)="conditions are executed, the X1(order#) array contains the old field"
^DD(.11,1.4,21,12,0)="values, and the X2(order#) array contains the new field values. If a"
^DD(.11,1.4,21,13,0)="record is being added, and there is an X1(order#) array element that"
^DD(.11,1.4,21,14,0)="corresponds to the .01 field, it is set to null. When a record is deleted,"
^DD(.11,1.4,21,15,0)="all X2(order#) array elements are null."
^DD(.11,1.4,"DT")="2970117"
^DD(.11,2.1,0)="KILL LOGIC^RK^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.11,2.1,3)="Answer must be Standard M code. Answer '??' for more help."
^DD(.11,2.1,9)="@"
^DD(.11,2.1,21,0)="^^16^16^2990430^"
^DD(.11,2.1,21,1,0)="Answer with the M code that FileMan should execute when the values of"
^DD(.11,2.1,21,2,0)="fields that make up the cross-reference are changed or deleted. When field"
^DD(.11,2.1,21,3,0)="values are changed, FileMan executes first the KILL LOGIC, then the SET"
^DD(.11,2.1,21,4,0)="LOGIC."
^DD(.11,2.1,21,5,0)=" "
^DD(.11,2.1,21,6,0)="Assume the DA array describes the record to be cross-referenced, and that"
^DD(.11,2.1,21,7,0)="the X(order#) array contains values after the transform for storage is"
^DD(.11,2.1,21,8,0)="applied, but before the truncation to the maximum length.  The variable X"
^DD(.11,2.1,21,9,0)="also equals X(order#) of the lowest order number."
^DD(.11,2.1,21,10,0)=" "
^DD(.11,2.1,21,11,0)="When fields that make up a cross-reference are edited and the kill and set"
^DD(.11,2.1,21,12,0)="logic are executed, the X1(order#) array contains the old field values,"
^DD(.11,2.1,21,13,0)="and the X2(order#) array contains the new field values. If a record is"
^DD(.11,2.1,21,14,0)="being added, and there is an X1(order#) array element that corresponds to"
^DD(.11,2.1,21,15,0)="the .01 field, it is set to null. When a record is deleted, all X2(order#)"
^DD(.11,2.1,21,16,0)="array elements are null."
^DD(.11,2.1,"DT")="2960116"
^DD(.11,2.2,0)="OVERFLOW KILL LOGIC^.112^^2.2;0"
^DD(.11,2.2,"DT")="2960124"
^DD(.11,2.3,0)="KILL CONDITION^F^^2.3;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.11,2.3,3)="Answer must be a valid FileMan computed expression. Answer '??' for more help."
^DD(.11,2.3,21,0)="^^5^5^2960124^"
^DD(.11,2.3,21,1,0)="Answer with a FileMan computed expression that will evaluate to Boolean"
^DD(.11,2.3,21,2,0)="true (according to the M rules for Boolean interpretation). FileMan will"
^DD(.11,2.3,21,3,0)="evaluate this expression whenever it would normally execute the"
^DD(.11,2.3,21,4,0)="cross-reference's Kill Logic, and will not execute the Kill Logic unless"
^DD(.11,2.3,21,5,0)="this condition evaluates to true."
^DD(.11,2.3,"DT")="2960116"
^DD(.11,2.4,0)="KILL CONDITION CODE^K^^2.4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.11,2.4,3)="This is Standard MUMPS code. Answer '??' for more help."
^DD(.11,2.4,9)="@"
^DD(.11,2.4,21,0)="^^15^15^2990430^"
^DD(.11,2.4,21,1,0)="This is MUMPS code, that sets the variable X. The KILL LOGIC is executed"
^DD(.11,2.4,21,2,0)="only if the KILL CONDITION, if present, sets X such the X evaluates to"
^DD(.11,2.4,21,3,0)="true,  (according to M rules for Boolean interpretation)"
^DD(.11,2.4,21,4,0)=" "
^DD(.11,2.4,21,5,0)="Assume the DA array describes the record to be cross-referenced, and that"
^DD(.11,2.4,21,6,0)="the X(order#) array contains values after the transform for storage is"
^DD(.11,2.4,21,7,0)="applied, but before the truncation to the maximum length.  The variable X"
^DD(.11,2.4,21,8,0)="also equals X(order#) of the lowest order number."
^DD(.11,2.4,21,9,0)=" "
^DD(.11,2.4,21,10,0)="When fields that make up a cross-reference are edited and the kill and set"
^DD(.11,2.4,21,11,0)="conditions are executed, the X1(order#) array contains the old field"
^DD(.11,2.4,21,12,0)="values, and the X2(order#) array contains the new field values. If a"
^DD(.11,2.4,21,13,0)="record is being added, and there is an X1(order#) array element that"
^DD(.11,2.4,21,14,0)="corresponds to the .01 field, it is set to null. When a record is deleted,"
^DD(.11,2.4,21,15,0)="all X2(order#) array elements are null."
^DD(.11,2.4,"DT")="2970117"
^DD(.11,2.5,0)="KILL ENTIRE INDEX CODE^K^^2.5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.11,2.5,3)="This is Standard MUMPS code. Answer '??' for more help."
^DD(.11,2.5,9)="@"
^DD(.11,2.5,21,0)="^^4^4^2980911^"
^DD(.11,2.5,21,1,0)="This is kill statement that can be executed to remove an entire index for"
^DD(.11,2.5,21,2,0)="all records in a file. When an entire file is reindexed, FileMan executes"
^DD(.11,2.5,21,3,0)="this code instead of looping through all the entries in a file and"
^DD(.11,2.5,21,4,0)="executing the kill logic once for each entry."
^DD(.11,2.5,"DT")="2970117"
^DD(.11,11.1,0)="CROSS-REFERENCE VALUES^.114IA^^11.1;0"
^DD(.11,11.1,"DT")="2960221"
^DD(.11,"B","ACTIVITY",.41)=""
^DD(.11,"B","CROSS-REFERENCE VALUES",11.1)=""
^DD(.11,"B","DESCRIPTION",.1)=""
^DD(.11,"B","EXECUTION",.4)=""
^DD(.11,"B","FILE",.01)=""
^DD(.11,"B","KILL CONDITION",2.3)=""
^DD(.11,"B","KILL CONDITION CODE",2.4)=""
^DD(.11,"B","KILL ENTIRE INDEX CODE",2.5)=""
^DD(.11,"B","KILL LOGIC",2.1)=""
^DD(.11,"B","NAME",.02)=""
^DD(.11,"B","OVERFLOW KILL LOGIC",2.2)=""
^DD(.11,"B","OVERFLOW SET LOGIC",1.2)=""
^DD(.11,"B","ROOT FILE",.51)=""
^DD(.11,"B","ROOT TYPE",.5)=""
^DD(.11,"B","SET CONDITION",1.3)=""
^DD(.11,"B","SET CONDITION CODE",1.4)=""
^DD(.11,"B","SET LOGIC",1.1)=""
^DD(.11,"B","SHORT DESCRIPTION",.11)=""
^DD(.11,"B","TYPE",.2)=""
^DD(.11,"B","USE",.42)=""
^DD(.11,"GL",0,1,.01)=""
^DD(.11,"GL",0,2,.02)=""
^DD(.11,"GL",0,3,.11)=""
^DD(.11,"GL",0,4,.2)=""
^DD(.11,"GL",0,6,.4)=""
^DD(.11,"GL",0,7,.41)=""
^DD(.11,"GL",0,8,.5)=""
^DD(.11,"GL",0,9,.51)=""
^DD(.11,"GL",0,14,.42)=""
^DD(.11,"GL",.1,0,.1)=""
^DD(.11,"GL",1,"E1,245",1.1)=""
^DD(.11,"GL",1.2,0,1.2)=""
^DD(.11,"GL",1.3,"E1,245",1.3)=""
^DD(.11,"GL",1.4,"E1,245",1.4)=""
^DD(.11,"GL",2,"E1,245",2.1)=""
^DD(.11,"GL",2.2,0,2.2)=""
^DD(.11,"GL",2.3,"E1,245",2.3)=""
^DD(.11,"GL",2.4,"E1,245",2.4)=""
^DD(.11,"GL",2.5,"E1,245",2.5)=""
^DD(.11,"GL",11.1,0,11.1)=""
^DD(.11,"IX",.01)=""
^DD(.11,"IX",.51)=""
^DD(.11,"RQ",.01)=""
^DD(.11,"RQ",.02)=""
^DD(.11,"RQ",.11)=""
^DD(.11,"RQ",.2)=""
^DD(.11,"RQ",.4)=""
^DD(.11,"RQ",.51)=""
^DD(.11,"RQ",1.1)=""
^DD(.11,"RQ",2.1)=""
^DD(.11,"SB",.1101,.1)=""
^DD(.11,"SB",.111,1.2)=""
^DD(.11,"SB",.112,2.2)=""
^DD(.11,"SB",.114,11.1)=""
^DD(.1101,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.1101,0,"DT")="2960116"
^DD(.1101,0,"NM","DESCRIPTION")=""
^DD(.1101,0,"UP")=".11"
^DD(.1101,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.1101,.01,3)="Answer '??' for more help."
^DD(.1101,.01,21,0)="^^3^3^2960123^"
^DD(.1101,.01,21,1,0)="Answer should describe the purpose of this index, along with any technical"
^DD(.1101,.01,21,2,0)="information that might be useful to advanced users, developers,"
^DD(.1101,.01,21,3,0)="troubleshooters, or system managers."
^DD(.1101,.01,"DT")="2960116"
^DD(.111,0)="OVERFLOW SET LOGIC SUB-FIELD^^1^2"
^DD(.111,0,"DT")="2960124"
^DD(.111,0,"NM","OVERFLOW SET LOGIC")=""
^DD(.111,0,"UP")=".11"
^DD(.111,.01,0)="OVERFLOW SET LOGIC NODE^MNJ6,0X^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(.111,.01,3)="Type a Number between 1 and 999999, 0 Decimal Digits. Answer '??' for more help."
^DD(.111,.01,21,0)="^^3^3^2980911^"
^DD(.111,.01,21,1,0)="Answer must be the number of the node under which the additional line of"
^DD(.111,.01,21,2,0)="set logic will be filed. Use the overflow nodes if the set logic is too"
^DD(.111,.01,21,3,0)="long to fit in the SET LOGIC field."
^DD(.111,.01,"DT")="2980910"
^DD(.111,1,0)="OVERFLOW SET LOGIC^RK^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.111,1,3)="Answer must be Standard M code. Answer '??' for more help."
^DD(.111,1,9)="@"
^DD(.111,1,21,0)="^^6^6^2980911^"
^DD(.111,1,21,1,0)="Answer with the M code of the additional set logic stored at this node."
^DD(.111,1,21,2,0)="FileMan will not automatically execute this additional code, so the set"
^DD(.111,1,21,3,0)="logic must invoke the additional code stored in this overflow node."
^DD(.111,1,21,4,0)=" "
^DD(.111,1,21,5,0)="The M code can assume that DIXR contains the internal entry number of the"
^DD(.111,1,21,6,0)="Index file entry."
^DD(.111,1,"DT")="2960124"
^DD(.111,"B","OVERFLOW SET LOGIC",1)=""
^DD(.111,"B","OVERFLOW SET LOGIC NODE",.01)=""
^DD(.111,"GL",0,1,.01)=""
^DD(.111,"GL",1,"E1,245",1)=""
^DD(.111,"RQ",1)=""
^DD(.112,0)="OVERFLOW KILL LOGIC SUB-FIELD^^2^2"
^DD(.112,0,"DT")="2960124"
^DD(.112,0,"NM","OVERFLOW KILL LOGIC")=""
^DD(.112,0,"UP")=".11"
^DD(.112,.01,0)="OVERFLOW KILL LOGIC NODE^MNJ6,0X^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(.112,.01,3)="Type a Number between 1 and 999999, 0 Decimal Digits. Answer '??' for more help."
^DD(.112,.01,21,0)="^^3^3^2980911^"
^DD(.112,.01,21,1,0)="Answer must be the number of the node under which the additional line of"
^DD(.112,.01,21,2,0)="Set Logic will be filed. Use the overflow nodes if the kill logic is too"
^DD(.112,.01,21,3,0)="long to fit in the KILL LOGIC field."
^DD(.112,.01,"DT")="2980910"
^DD(.112,2,0)="OVERFLOW KILL LOGIC^RK^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.112,2,3)="Answer must be Standard M code. Answer '??' for more help."
^DD(.112,2,9)="@"
^DD(.112,2,21,0)="^^6^6^2980911^"
^DD(.112,2,21,1,0)="Answer with the M code of the additional kill logic stored at this node."
^DD(.112,2,21,2,0)="FileMan will not automatically execute this additional code, so the kill"
^DD(.112,2,21,3,0)="logic must invoke the additional code stored in this overflow node."
^DD(.112,2,21,4,0)=" "
^DD(.112,2,21,5,0)="The M code can assume that DIXR contains the internal entry number of the"
^DD(.112,2,21,6,0)="Index file entry."
^DD(.112,2,"DT")="2960124"
^DD(.112,"B","OVERFLOW KILL LOGIC",2)=""
^DD(.112,"B","OVERFLOW KILL LOGIC NODE",.01)=""
^DD(.112,"GL",0,1,.01)=""
^DD(.112,"GL",2,"E1,245",2)=""
^DD(.112,"RQ",2)=""
^DD(.114,0)="CROSS-REFERENCE VALUES SUB-FIELD^^8^13"
^DD(.114,0,"DT")="2980723"
^DD(.114,0,"ID",1)="W """""
^DD(.114,0,"IX","B",.114,.01)=""
^DD(.114,0,"NM","CROSS-REFERENCE VALUES")=""
^DD(.114,0,"UP")=".11"
^DD(.114,.01,0)="ORDER NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>125)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.114,.01,1,0)="^.1"
^DD(.114,.01,1,1,0)=".114^B"
^DD(.114,.01,1,1,1)="S ^DD(""IX"",DA(1),11.1,""B"",$E(X,1,30),DA)="""""
^DD(.114,.01,1,1,2)="K ^DD(""IX"",DA(1),11.1,""B"",$E(X,1,30),DA)"
^DD(.114,.01,1,1,"DT")="2970320"
^DD(.114,.01,3)="Type a Number between 1 and 125, 0 Decimal Digits. Answer '??' for more help."
^DD(.114,.01,21,0)="^^6^6^2980911^"
^DD(.114,.01,21,1,0)="Answer must be the order number of this cross-reference value."
^DD(.114,.01,21,2,0)=" "
^DD(.114,.01,21,3,0)="FileMan evaluates cross-reference values by order of ""Order Number"" and"
^DD(.114,.01,21,4,0)="places each value in the X(order#) array. The set and kill logic, for"
^DD(.114,.01,21,5,0)="example, can use X(2) to refer to the cross-reference value with order"
^DD(.114,.01,21,6,0)="number 2."
^DD(.114,.01,"DEL",1,0)="I $P($G(DDS),U,2)=""DIKC EDIT"" D BLDLOG^DIKCFORM(DA(1)) S DIKCREB=1 I 0"
^DD(.114,.01,"DT")="3020425"
^DD(.114,.5,0)="SUBSCRIPT NUMBER^NJ3,0^^0;6^K:+X'=X!(X>125)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.114,.5,1,0)="^.1^^0"
^DD(.114,.5,3)="Type a Number between 1 and 125, 0 Decimal Digits. Answer '??' for more help."
^DD(.114,.5,21,0)="^^3^3^2980911^"
^DD(.114,.5,21,1,0)="If this cross-reference value is used as a subscript in an index, enter"
^DD(.114,.5,21,2,0)="the subscript position number. The first subscript to the right of the"
^DD(.114,.5,21,3,0)="index name is subscript number 1."
^DD(.114,.5,"DT")="2980611"
^DD(.114,1,0)="TYPE OF VALUE^RS^F:FIELD;C:COMPUTED VALUE;^0;2^Q"
^DD(.114,1,3)="Answer '??' for more help."
^DD(.114,1,21,0)="^^4^4^2980911^"
^DD(.114,1,21,1,0)="Answer 'F' if this cross-reference value is based on the value of a field."
^DD(.114,1,21,2,0)=" "
^DD(.114,1,21,3,0)="Answer 'C' if this cross-reference value should be determined by executing"
^DD(.114,1,21,4,0)="the COMPUTED CODE."
^DD(.114,1,"DT")="2960116"
^DD(.114,2,0)="FILE^NJ20,7^^0;3^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(.114,2,3)="Answer must be between 0 and 999999999999, with up to 7 decimal digits. Answer '??' for more help."
^DD(.114,2,21,0)="^^2^2^2980910^"
^DD(.114,2,21,1,0)="If this cross-reference value is a field value, answer with the number of"
^DD(.114,2,21,2,0)="the file or subfile in which this field is defined."
^DD(.114,2,"DT")="2960116"
^DD(.114,3,0)="FIELD^NJ20,7X^^0;4^D ITFLD^DIKCDD I $D(X) K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(.114,3,3)="Type a Number between 0 and 999999999999, 7 Decimal Digits. Answer '??' for more help."
^DD(.114,3,4)="D EHFLD^DIKCDD"
^DD(.114,3,21,0)="^^1^1^2980910^^"
^DD(.114,3,21,1,0)="If this cross-reference value is a field, answer with the field number."
^DD(.114,3,"DT")="2970902"
^DD(.114,4,0)="COMPUTED VALUE^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(.114,4,3)="Answer must be a valid FileMan computed expression. Answer '??' for more help."
^DD(.114,4,21,0)="^^2^2^2960221^"
^DD(.114,4,21,1,0)="If this cross-reference value is computed, answer with the computed"
^DD(.114,4,21,2,0)="expression that evaluates to it."
^DD(.114,4,"DT")="2960219"
^DD(.114,4.5,0)="COMPUTED CODE^K^^1.5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.114,4.5,3)="This is Standard MUMPS code. Answer '??' for more help."
^DD(.114,4.5,9)="@"
^DD(.114,4.5,21,0)="^^3^3^2990401^"
^DD(.114,4.5,21,1,0)="Answer with M code that sets X equal to the cross-reference value. The"
^DD(.114,4.5,21,2,0)="X(order#) array is available for those cross-reference values with lower"
^DD(.114,4.5,21,3,0)="Order Numbers, and the DA array describes the IEN of the current record."
^DD(.114,4.5,"DT")="2960221"
^DD(.114,5,0)="TRANSFORM FOR STORAGE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.114,5,3)="This is Standard M code. Answer '??' for more help."
^DD(.114,5,9)="@"
^DD(.114,5,21,0)="^^14^14^3000106^"
^DD(.114,5,21,1,0)="Used only when setting or killing an entry in the index."
^DD(.114,5,21,2,0)=" "
^DD(.114,5,21,3,0)="Answer should be M code that sets the variable X to a new value. X is the"
^DD(.114,5,21,4,0)="only input variable that is guaranteed to be defined and is equal to the"
^DD(.114,5,21,5,0)="internal value of the field."
^DD(.114,5,21,6,0)=" "
^DD(.114,5,21,7,0)="TRANSFORM FOR STORAGE can be used on field-type cross-reference values to"
^DD(.114,5,21,8,0)="transform the internal value of the field before it is stored as a"
^DD(.114,5,21,9,0)="subscript in the index."
^DD(.114,5,21,10,0)=" "
^DD(.114,5,21,11,0)="If a match is made on this index during a lookup, then in order to"
^DD(.114,5,21,12,0)="properly display the resulting index value to the user, the developer may"
^DD(.114,5,21,13,0)="need to enter code into the TRANSFORM FOR DISPLAY field to transform the"
^DD(.114,5,21,14,0)="index value back to a displayable format."
^DD(.114,5,"DT")="2980731"
^DD(.114,5.3,0)="TRANSFORM FOR LOOKUP^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.114,5.3,3)="This is Standard MUMPS code. Answer '??' for more help."
^DD(.114,5.3,9)="@"
^DD(.114,5.3,21,0)="^^10^10^3000106^"
^DD(.114,5.3,21,1,0)="Used only during lookup."
^DD(.114,5.3,21,2,0)=" "
^DD(.114,5.3,21,3,0)="Answer should be M code that sets the variable X to a new value. X is the"
^DD(.114,5.3,21,4,0)="only input variable that is guaranteed to be defined and is equal to the"
^DD(.114,5.3,21,5,0)="lookup value entered by the user."
^DD(.114,5.3,21,6,0)=" "
^DD(.114,5.3,21,7,0)="During lookup, if the lookup value is not found in the index, FileMan will"
^DD(.114,5.3,21,8,0)="execute the TRANSFORM FOR LOOKUP code to transform the lookup value X. It"
^DD(.114,5.3,21,9,0)="will then search this index looking for a match to the transformed lookup"
^DD(.114,5.3,21,10,0)="value."
^DD(.114,5.3,"DT")="3000105"
^DD(.114,5.5,0)="TRANSFORM FOR DISPLAY^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.114,5.5,3)="This is Standard MUMPS code. Answer '??' for more help."
^DD(.114,5.5,9)="@"
^DD(.114,5.5,21,0)="^^16^16^3000106^"
^DD(.114,5.5,21,1,0)="Used only during lookup."
^DD(.114,5.5,21,2,0)=" "
^DD(.114,5.5,21,3,0)="Answer should be M code that sets the variable X to a new value. X is the"
^DD(.114,5.5,21,4,0)="only variable that is guaranteed to be defined and is equal to the value"
^DD(.114,5.5,21,5,0)="of the subscript from the index."
^DD(.114,5.5,21,6,0)=" "
^DD(.114,5.5,21,7,0)="TRANSFORM FOR DISPLAY should be set only for an index value that has been"
^DD(.114,5.5,21,8,0)="transformed using the code in the TRANSFORM FOR STORAGE prior to storing"
^DD(.114,5.5,21,9,0)="the value in the index."
^DD(.114,5.5,21,10,0)=" "
^DD(.114,5.5,21,11,0)="The code should take the internal value from the index subscript X, and"
^DD(.114,5.5,21,12,0)="convert it back to a format that can be displayed to an end user.  During"
^DD(.114,5.5,21,13,0)="lookup, if a match or matches are made to a lookup value that was"
^DD(.114,5.5,21,14,0)="transformed using the TRANSFORM FOR LOOKUP code on this index, then"
^DD(.114,5.5,21,15,0)="FileMan will execute the TRANSFORM FOR DISPLAY code before displaying the"
^DD(.114,5.5,21,16,0)="index value(s) to the end user."
^DD(.114,5.5,"DT")="2980731"
^DD(.114,6,0)="MAXIMUM LENGTH^NJ3,0^^0;5^K:+X'=X!(X>240)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.114,6,3)="Answer must be between 1 and 240, with no decimal digits. Answer '??' for more help."
^DD(.114,6,21,0)="^^7^7^2980911^"
^DD(.114,6,21,1,0)="Answer must be the maximum length this cross-reference value should have"
^DD(.114,6,21,2,0)="when stored as a subscript in the index. FileMan's lookup utilties"
^DD(.114,6,21,3,0)="account for lookup values longer than the maximum length."
^DD(.114,6,21,4,0)=" "
^DD(.114,6,21,5,0)="Specify a MAXIMUM LENGTH when an untruncated subscript may cause the"
^DD(.114,6,21,6,0)="length of a global reference in the index to exceed the M Portability"
^DD(.114,6,21,7,0)="Requirements."
^DD(.114,6,"DT")="2960219"
^DD(.114,7,0)="COLLATION^S^F:forwards;B:backwards;^0;7^Q"
^DD(.114,7,3)="Answer '??' for more help."
^DD(.114,7,21,0)="^^7^7^2980911^"
^DD(.114,7,21,1,0)="Answer with the direction FileMan's lookup utilities should $ORDER through"
^DD(.114,7,21,2,0)="this subscript when entries are returned or displayed to the user. If for"
^DD(.114,7,21,3,0)="example, you have a compound index on a Date of Birth field and a Name"
^DD(.114,7,21,4,0)="field, and you specify a COLLATION of 'backwards' on the Date of Birth"
^DD(.114,7,21,5,0)="value, the Lister and the Finder will return entries in reverse-date"
^DD(.114,7,21,6,0)="order. Likewise, question mark (?) help and partial matches in interactive"
^DD(.114,7,21,7,0)="^DIC lookups will display entries in reverse-date order."
^DD(.114,7,"DT")="2970213"
^DD(.114,8,0)="LOOKUP PROMPT^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(.114,8,3)="Answer must be 1-30 characters in length. Answer '??' for more help."
^DD(.114,8,21,0)="^^3^3^2980911^"
^DD(.114,8,21,1,0)="The text entered here will become a prompt for the user when this index is"
^DD(.114,8,21,2,0)="used for lookup (i.e., in the Classic FileMan calls to ^DIC.)  If the text"
^DD(.114,8,21,3,0)="is missing, then the FIELD LABEL will be used as a default."
^DD(.114,8,"DT")="2970506"
^DD(.114,"B","COLLATION",7)=""
^DD(.114,"B","COMPUTED CODE",4.5)=""
^DD(.114,"B","COMPUTED VALUE",4)=""
^DD(.114,"B","FIELD",3)=""
^DD(.114,"B","FILE",2)=""
^DD(.114,"B","LOOKUP PROMPT",8)=""
^DD(.114,"B","MAXIMUM LENGTH",6)=""
^DD(.114,"B","ORDER NUMBER",.01)=""
^DD(.114,"B","SUBSCRIPT NUMBER",.5)=""
^DD(.114,"B","TRANSFORM FOR DISPLAY",5.5)=""
^DD(.114,"B","TRANSFORM FOR LOOKUP",5.3)=""
^DD(.114,"B","TRANSFORM FOR STORAGE",5)=""
^DD(.114,"B","TYPE OF VALUE",1)=""
^DD(.114,"GL",0,1,.01)=""
^DD(.114,"GL",0,2,1)=""
^DD(.114,"GL",0,3,2)=""
^DD(.114,"GL",0,4,3)=""
^DD(.114,"GL",0,5,6)=""
^DD(.114,"GL",0,6,.5)=""
^DD(.114,"GL",0,7,7)=""
^DD(.114,"GL",0,8,8)=""
^DD(.114,"GL",1,1,4)=""
^DD(.114,"GL",1.5,"E1,245",4.5)=""
^DD(.114,"GL",2,"E1,245",5)=""
^DD(.114,"GL",3,"E1,245",5.5)=""
^DD(.114,"GL",4,"E1,245",5.3)=""
^DD(.114,"IX",.01)=""
^DD(.114,"RQ",1)=""
^DD(.12,0)="FIELD^^^8"
^DD(.12,0,"IX","B",.12,.01)=""
^DD(.12,0,"IX","M",.12,.02)=""
^DD(.12,0,"IX","O",.12,.03)=""
^DD(.12,0,"IX","P",.12,.04)=""
^DD(.12,0,"IX","PT",.12,.01)=""
^DD(.12,0,"NM","VARIABLE-POINTER")=""
^DD(.12,.01,0)="VARIABLE-POINTER^R*P1'^DIC(^0;1^S:DUZ(0)'=""@"" DIC(""S"")=""I 1 Q:'$D(^(0,""""RD""""))  F %=1:1:$L(^(""""RD"""")) I DUZ(0)[$E(^(""""RD""""),%) Q"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(.12,.01,1,0)="^.1"
^DD(.12,.01,1,1,0)=".12^B"
^DD(.12,.01,1,1,1)="S ^DD(DA(2),DA(1),""V"",""B"",X,DA)="""""
^DD(.12,.01,1,1,2)="K ^DD(DA(2),DA(1),""V"",""B"",X,DA)"
^DD(.12,.01,1,2,0)=".12^PT^MUMPS"
^DD(.12,.01,1,2,1)="S ^DD(+X,0,""PT"",DA(2),DA(1))="""""
^DD(.12,.01,1,2,2)="K ^DD(+X,0,""PT"",DA(2),DA(1))"
^DD(.12,.01,4)=""
^DD(.12,.01,12.1)="S:DUZ(0)'=""@"" DIC(""S"")=""I 1 Q:'$D(^(0,""""RD""""))  F %=1:1:$L(^(""""RD"""")) I DUZ(0)[$E(^(""""RD""""),%) Q"""
^DD(.12,.02,0)="MESSAGE^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(.12,.02,1,1,0)=".12^M^MUMPS"
^DD(.12,.02,1,1,1)="S ^DD(DA(2),DA(1),""V"",""M"",X,DA)="""""
^DD(.12,.02,1,1,2)="K ^DD(DA(2),DA(1),""V"",""M"",X,DA)"
^DD(.12,.02,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(.12,.03,0)="ORDER^RNJ4,1X^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""2N.N) X I $D(X),$D(^DD(DA(2),DA(1),""V"",""O"",X)),$O(^(X,0))'=DA K X I $D(^DD(DA(2),DA(1),""V"",$O(^(0)),0)) S %=+^(0) W:% ""  Used by ""_$S($D(^DIC(%,0)):$P(^(0),U,1),1:%)_"" FILE """
^DD(.12,.03,1,0)="^.1"
^DD(.12,.03,1,1,0)=".12^O^MUMPS"
^DD(.12,.03,1,1,1)="S ^DD(DA(2),DA(1),""V"",""O"",X,DA)="""""
^DD(.12,.03,1,1,2)="K ^DD(DA(2),DA(1),""V"",""O"",X,DA)"
^DD(.12,.03,3)="Type a unique number between 1 and 99, one decimal point allowed."
^DD(.12,.04,0)="PREFIX^RFX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10 X I $D(X),$D(^DD(DA(2),DA(1),""V"",""P"",X)),$O(^(X,0))'=DA K X I $D(^DD(DA(2),DA(1),""V"",$O(^(0)),0)) S %=+^(0) W:% ""  Used by ""_$S($D(^DIC(%,0)):$P(^(0),U,1),1:%)_"" FILE """
^DD(.12,.04,1,0)="^.1"
^DD(.12,.04,1,1,0)=".12^P^MUMPS"
^DD(.12,.04,1,1,1)="S ^DD(DA(2),DA(1),""V"",""P"",X,DA)="""""
^DD(.12,.04,1,1,2)="K ^DD(DA(2),DA(1),""V"",""P"",X,DA)"
^DD(.12,.04,3)="Answer must be a unique prefix, 1-10 characters in length"
^DD(.12,.05,0)="SHOULD ENTRIES BE SCREENED^S^y:YES;n:NO;^0;5^Q"
^DD(.12,.06,0)="LAYGO^S^y:YES;n:NO;^0;6^Q"
^DD(.12,.06,.1)="SHOULD USER BE ALLOWED TO ADD A NEW ENTRY"
^DD(.12,1,0)="SCREEN^RFX^^1;E1,240^K:$L(X)>240!($L(X)<1)!(X'[""DIC(""""S"""")"") X D:$D(X) ^DIM"
^DD(.12,1,.1)="MUMPS CODE THAT WILL SET DIC('S')"
^DD(.12,1,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH AND VALID MUMPS CODE"
^DD(.12,1,4)="I X?1""??"".E D HELP^DICATT4"
^DD(.12,1,"DEL",1,0)="I $P(^DD(DA(2),DA(1),""V"",DA,0),U,5)=""y"" W !?3,""Answer 'NO' to the 'SHOULD ENTRIES BE SCREENED' prompt to delete the screen"""
^DD(.12,2,0)="EXPLANATION OF SCREEN^FR^^2;1^K:$L(X)>240!($L(X)<1) X"
^DD(.12,2,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(.12,"B","EXPLANATION OF SCREEN",2)=""
^DD(.12,"B","LAYGO",.06)=""
^DD(.12,"B","MESSAGE",.02)=""
^DD(.12,"B","ORDER",.03)=""
^DD(.12,"B","PREFIX",.04)=""
^DD(.12,"B","SCREEN",1)=""
^DD(.12,"B","SHOULD ENTRIES BE SCREENED",.05)=""
^DD(.12,"B","VARIABLE-POINTER",.01)=""
^DD(.12,"GL",0,1,.01)=""
^DD(.12,"GL",0,2,.02)=""
^DD(.12,"GL",0,3,.03)=""
^DD(.12,"GL",0,4,.04)=""
^DD(.12,"GL",0,5,.05)=""
^DD(.12,"GL",0,6,.06)=""
^DD(.12,"GL",1,"E1,240",1)=""
^DD(.12,"GL",2,1,2)=""
^DD(.12,"IX",.01)=""
^DD(.12,"IX",.02)=""
^DD(.12,"IX",.03)=""
^DD(.12,"IX",.04)=""
^DD(.12,"RQ",.01)=""
^DD(.12,"RQ",.02)=""
^DD(.12,"RQ",.03)=""
^DD(.12,"RQ",.04)=""
^DD(.12,"RQ",1)=""
^DD(.12,"RQ",2)=""
^DD(.15,0)="TRIGGERED-BY^^^3"
^DD(.15,0,"NM","TRIGGERED-BY")=""
^DD(.15,.01,0)="DD NUMBER^N^^0;1^K:'$D(^DD(X)) X"
^DD(.15,2,0)="FIELD NUMBER^N^^0;2"
^DD(.15,3,0)="CROSS-REFERENCE NUMBER^N^^0;3"
^DD(.15,"B","CROSS-REFERENCE NUMBER",3)=""
^DD(.15,"B","DD NUMBER",.01)=""
^DD(.15,"B","FIELD NUMBER",2)=""
^DD(.15,"GL",0,1,.01)=""
^DD(.15,"GL",0,2,2)=""
^DD(.15,"GL",0,3,3)=""
^DD(.2,0)="DESTINATION^^^1"
^DD(.2,0,"NM","DESTINATION")=""
^DD(.2,0,"VR")="22.0"
^DD(.2,.01,0)="DESTINATION^P^DIC(.2,^0;1^Q"
^DD(.2,.01,3)="WHERE THIS DATA GOES (TO WHAT FORM, SYSTEM, ETC.)"
^DD(.2,"B","DESTINATION",.01)=""
^DD(.2,"GL",0,1,.01)=""
^DD(.21,0)="DATA DESTINATION^^^1"
^DD(.21,0,"IX","B",.21,.01)=""
^DD(.21,0,"NM","DATA-DESTINATION")=""
^DD(.21,.01,0)="DATA DESTINATION^F^^0;1^K:$L(X)<2!($L(X)>80) X"
^DD(.21,.01,1,0)="^.1^1^1"
^DD(.21,.01,1,1,0)=".21^B"
^DD(.21,.01,1,1,1)="S ^DIC(.2,""B"",X,DA)="""""
^DD(.21,.01,1,1,2)="K ^DIC(.2,""B"",X,DA)"
^DD(.21,"B","DATA DESTINATION",.01)=""
^DD(.21,"GL",0,1,.01)=""
^DD(.21,"IX",.01)=""
^DD(.3,0)="GROUP^^^1"
^DD(.3,0,"NM","GROUP")=""
^DD(.3,.01,0)="GROUP^F^^0;1^K:$L(X)>30!(X'?.ANP)!($A(X)<32) X"
^DD(.3,.01,1,0)="^.1^1^1"
^DD(.3,.01,1,1,0)="0^GR"
^DD(.3,.01,1,1,1)="S ^DD(DA(2),""GR"",X,DA(1),DA)="""""
^DD(.3,.01,1,1,2)="K ^DD(DA(2),""GR"",X,DA(1),DA)"
^DD(.3,.01,3)="UP TO 30 CHARACTERS, ALPHANUMERIC"
^DD(.3,"B","GROUP",.01)=""
^DD(.3,"GL",0,1,.01)=""
^DD(.3,"IX",.01)=""
^DD(.31,0)="FIELD^^3^5"
^DD(.31,0,"DDA")="N"
^DD(.31,0,"DT")="2980611"
^DD(.31,0,"IX","B",.31,.01)=""
^DD(.31,0,"NM","KEY")=""
^DD(.31,0,"VR")="22.0"
^DD(.31,.01,0)="FILE^RNJ20,7^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(.31,.01,1,0)="^.1^^-1"
^DD(.31,.01,1,1,0)=".31^B"
^DD(.31,.01,1,1,1)="S ^DD(""KEY"",""B"",$E(X,1,30),DA)="""""
^DD(.31,.01,1,1,2)="K ^DD(""KEY"",""B"",$E(X,1,30),DA)"
^DD(.31,.01,1,1,3)="Lets developers pick keys by their file number"
^DD(.31,.01,1,1,"%D",0)="^^2^2^2980911^^"
^DD(.31,.01,1,1,"%D",1,0)="The B index on the .01 (File) of the Key file lets developers pick keys by"
^DD(.31,.01,1,1,"%D",2,0)="the file whose records they uniquely distinguish."
^DD(.31,.01,3)="Type a Number between 0 and 999999999999, 7 Decimal Digits. Answer '??' for more help."
^DD(.31,.01,4)=""
^DD(.31,.01,21,0)="^^2^2^2980908^"
^DD(.31,.01,21,1,0)="Answer should be the number of the file or subfile identified by this key."
^DD(.31,.01,21,2,0)="A file may have more than one key, but only one primary key."
^DD(.31,.01,"DT")="2980611"
^DD(.31,.02,0)="NAME^RF^^0;2^K:$L(X)>1!($L(X)<1)!'(X?1U) X"
^DD(.31,.02,3)="Answer must be 1 upper case letter. Answer '??' for more help."
^DD(.31,.02,4)=""
^DD(.31,.02,21,0)="^^3^3^2980908^^"
^DD(.31,.02,21,1,0)="Answer must be the name of this key. The name of a file's primary key"
^DD(.31,.02,21,2,0)="should be A, with subsequent keys for the same file named B, C, and so"
^DD(.31,.02,21,3,0)="on."
^DD(.31,.02,"DT")="2960122"
^DD(.31,1,0)="PRIORITY^RS^P:PRIMARY;S:SECONDARY;^0;3^Q"
^DD(.31,1,3)="Answer '??' for more help."
^DD(.31,1,21,0)="^^2^2^2980911^"
^DD(.31,1,21,1,0)="Answer 'PRIMARY' if this is the primary key of the file, the key that will"
^DD(.31,1,21,2,0)="usually be used for identifying entries. Otherwise, answer 'SECONDARY'."
^DD(.31,1,"DT")="2970725"
^DD(.31,2,0)="FIELD^.312IA^^2;0"
^DD(.31,2,"DT")="2980310"
^DD(.31,3,0)="UNIQUENESS INDEX^*P.11'^DD(""IX"",^0;4^S DIC(""S"")=""I 1 Q:'$D(DDS)!'$D(DIKKEY)  I $P(^(0),U,9)=$P(^DD(""""KEY"""",DIKKEY,0),U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(.31,3,3)="Answer '??' for more help."
^DD(.31,3,12)="Root File of Index must equal File of Key."
^DD(.31,3,12.1)="S DIC(""S"")=""I 1 Q:'$D(DDS)!'$D(DIKKEY)  I $P(^(0),U,9)=$P(^DD(""""KEY"""",DIKKEY,0),U)"""
^DD(.31,3,21,0)="^^3^3^2981120^"
^DD(.31,3,21,1,0)="Answer with the index that FileMan should use to ensure that new key"
^DD(.31,3,21,2,0)="values are unique. It must be a new-style index that resides in the"
^DD(.31,3,21,3,0)="Index file, and must cross-reference the key fields in proper sequence."
^DD(.31,3,"DT")="2980611"
^DD(.31,"B","FIELD",2)=""
^DD(.31,"B","FILE",.01)=""
^DD(.31,"B","NAME",.02)=""
^DD(.31,"B","PRIORITY",1)=""
^DD(.31,"B","UNIQUENESS INDEX",3)=""
^DD(.31,"GL",0,1,.01)=""
^DD(.31,"GL",0,2,.02)=""
^DD(.31,"GL",0,3,1)=""
^DD(.31,"GL",0,4,3)=""
^DD(.31,"GL",2,0,2)=""
^DD(.31,"IX",.01)=""
^DD(.31,"RQ",.01)=""
^DD(.31,"RQ",.02)=""
^DD(.31,"RQ",1)=""
^DD(.31,"SB",.312,2)=""
^DD(.312,0)="FIELD SUB-FIELD^^1^3"
^DD(.312,0,"DT")="2960219"
^DD(.312,0,"ID","WRITE")="D EN^DDIOL(""   ""_$P(^(0),U,2),"""",""?0"")"
^DD(.312,0,"IX","B",.312,.01)=""
^DD(.312,0,"NM","FIELD")=""
^DD(.312,0,"UP")=".31"
^DD(.312,.01,0)="FIELD^MRFX^^0;1^D ITFLD^DIKKDD I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(.312,.01,1,0)="^.1"
^DD(.312,.01,1,1,0)=".312^B"
^DD(.312,.01,1,1,1)="S ^DD(""KEY"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(.312,.01,1,1,2)="K ^DD(""KEY"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(.312,.01,1,1,3)="LETS DEVELOPER PICK KEY FIELDS BY NUMBER"
^DD(.312,.01,1,1,"%D",0)="^^2^2^2980908^"
^DD(.312,.01,1,1,"%D",1,0)="The B index, on the .01 (Field) of the Fields multiple, lets the developer"
^DD(.312,.01,1,1,"%D",2,0)="pick key fields by field number."
^DD(.312,.01,1,2,0)="^^TRIGGER^.312^.02"
^DD(.312,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DD(""KEY"",D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(.312,.01,1,2,1.1) X ^DD(.312,.01,1,2,1.4)"
^DD(.312,.01,1,2,1.1)="S X=DIV S X=$P(^DD(""KEY"",DA(1),0),U)"
^DD(.312,.01,1,2,1.4)="S DIH=$S($D(^DD(""KEY"",DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=.312,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(.312,.01,1,2,2)="Q"
^DD(.312,.01,1,2,"CREATE VALUE")="S X=$P(^DD(""KEY"",DA(1),0),U)"
^DD(.312,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(.312,.01,1,2,"DT")="2980310"
^DD(.312,.01,1,2,"FIELD")="FILE"
^DD(.312,.01,3)="Answer must be 1-20 characters in length. Answer '??' for more help."
^DD(.312,.01,4)="D EHFLD^DIKKDD"
^DD(.312,.01,21,0)="^^1^1^2980908^"
^DD(.312,.01,21,1,0)="Answer must be the number of one of this key's fields."
^DD(.312,.01,"DT")="2980611"
^DD(.312,.02,0)="FILE^RNJ20,7I^^0;2^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(.312,.02,.1)=""
^DD(.312,.02,1,0)="^.1^^0"
^DD(.312,.02,3)="Type a Number between 0 and 999999999999, 7 Decimal Digits. Answer '??' for more help."
^DD(.312,.02,5,1,0)=".312^.01^2"
^DD(.312,.02,21,0)="^^3^3^2980908^"
^DD(.312,.02,21,1,0)="Answer must be the number of the file that holds this key field. It must"
^DD(.312,.02,21,2,0)="equal the number of the file whose records are uniquiely identified by"
^DD(.312,.02,21,3,0)="this key."
^DD(.312,.02,"DT")="2980908"
^DD(.312,1,0)="SEQUENCE NUMBER^RNJ3,0^^0;3^K:+X'=X!(X>125)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.312,1,3)="Answer must be between 1 and 125, with no decimal digits. Answer '??' for more help."
^DD(.312,1,21,0)="^^4^4^2980911^"
^DD(.312,1,21,1,0)="Answer will determine the order in which this field appears within the"
^DD(.312,1,21,2,0)="key. This affects the order of prompts, subscripts, and returned values"
^DD(.312,1,21,3,0)="throughout FileMan. The first field of every key should receive sequence"
^DD(.312,1,21,4,0)="number 1, the second 2, and so on."
^DD(.312,1,"DT")="2980611"
^DD(.312,"B","FIELD",.01)=""
^DD(.312,"B","FILE",.02)=""
^DD(.312,"B","SEQUENCE NUMBER",1)=""
^DD(.312,"GL",0,1,.01)=""
^DD(.312,"GL",0,2,.02)=""
^DD(.312,"GL",0,3,1)=""
^DD(.312,"IX",.01)=""
^DD(.312,"RQ",.01)=""
^DD(.312,"RQ",.02)=""
^DD(.312,"RQ",1)=""
^DD(.4,0)="FIELD^^1819^21"
^DD(.4,0,"DT")="2950909"
^DD(.4,0,"ID","WRIT")="I $P(^(0),U,8) N D1 S @(""D1=$P($P($C(59)_$S($D(^DD(.4,8,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,8)_"""":"""",2),$C(59),1)"") D EN^DDIOL(""**""_D1_""**"","""",""?0"")"
^DD(.4,0,"ID","WRITE")="N D,D1,D2 S D2=^(0) S:$X>30 D1(1,""F"")=""!"" S D=$P(D2,U,2) S:D D1(2)=""(""_$$FMTE^DILIBF(D)_"")"",D1(2,""F"")=""?30"" S D=$P(D2,U,5) S:D D1(3)="" User #""_D,D1(3,""F"")=""?50"" S D=$P(D2,U,4) S:D D1(4)="" File #""_D,D1(4,""F"")=""?59"" D EN^DDIOL(.D1)"
^DD(.4,0,"ID","WRITED")="I $G(DZ)?1""???"".E N % S %=0 F  S %=$O(^DIPT(Y,""%D"",%)) Q:%'>0  I $D(^(%,0))#2 D EN^DDIOL(^(0),"""",""!?5"")"
^DD(.4,0,"IX","B",.4,.01)=""
^DD(.4,0,"IX","FG",.4,8)=""
^DD(.4,0,"NM","PRINT TEMPLATE")=""
^DD(.4,0,"PT",1.11,3)=""
^DD(.4,0,"PT",1.12,.07)=""
^DD(.4,0,"VR")="22.0"
^DD(.4,.01,0)="NAME^F^^0;1^K:$L(X)<2!($L(X)>30) X"
^DD(.4,.01,1,0)="^.1^2^2"
^DD(.4,.01,1,1,0)=".4^B"
^DD(.4,.01,1,1,1)="S @(DIC_""""""B"""",X,DA)="""""""""")"
^DD(.4,.01,1,1,2)="K @(DIC_""""""B"""",X,DA)"")"
^DD(.4,.01,1,2,0)="^^MUMPS"
^DD(.4,.01,1,2,1)="X ""S %=$P(""_DIC_""DA,0),U,4) S:$L(%) ""_DIC_""""""F""""_+%,X,DA)=1"""
^DD(.4,.01,1,2,2)="X ""S %=$P(""_DIC_""DA,0),U,4) K:$L(%) ""_DIC_""""""F""""_+%,X,DA)"""
^DD(.4,.01,1,3,0)="^^MUMPS"
^DD(.4,.01,1,3,1)="Q"
^DD(.4,.01,1,3,2)="S X=-1 X ""F  S X=$O(""_DIC_""""""AF"""",X)) Q:X=""""""""  K:'X ^(X,DA) S Y=0 F  S Y=$O(""_DIC_""""""AF"""",X,Y)) Q:Y'>0  K:$D(^(Y,DA)) ^(DA)"" S X=-1 S:$G(Y)="""" Y=-1"
^DD(.4,.01,3)="2-30 CHARACTERS"
^DD(.4,2,0)="DATE CREATED^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(.4,3,0)="READ ACCESS^F^^0;3^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(.4,4,0)="FILE^P1'I^DIC(^0;4^Q"
^DD(.4,4,1,0)="^.1^1^1"
^DD(.4,4,1,1,0)="^^^MUMPS"
^DD(.4,4,1,1,1)="X ""S %=$P(""_DIC_""DA,0),U,1),""_DIC_""""""F""""_+X,%,DA)=1"""
^DD(.4,4,1,1,2)="Q"
^DD(.4,5,0)="USER #^N^^0;5^Q"
^DD(.4,6,0)="WRITE ACCESS^F^^0;6^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(.4,7,0)="DATE LAST USED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(.4,8,0)="TEMPLATE TYPE^S^1:FILEGRAM;2:EXTRACT;3:EXPORT;7:SELECTED EXPORT FIELDS;^0;8^Q"
^DD(.4,8,1,0)="^.1^^-1"
^DD(.4,8,1,1,0)=".4^FG^MUMPS"
^DD(.4,8,1,1,1)="S %=$S(X=1:""""""FG"""""",1:"""") I %]"""" S A1=$P(@(DIC_""DA,0)""),U,1),@(DIC_%_"",A1,DA)="""""""""") K %,A1"
^DD(.4,8,1,1,2)="S %=$S(X=1:""""""FG"""""",1:"""") I %]"""" S A1=$P(@(DIC_""DA,0)""),U,1) K @(DIC_%_"",A1,DA)""),%,A1"
^DD(.4,8,1,1,"%D",0)="^^1^1^2921002^^^^"
^DD(.4,8,1,1,"%D",0,"LE")="1"
^DD(.4,8,1,1,"%D",1,0)="Used to do a quick lookup of FILEGRAM type of print templates."
^DD(.4,8,1,1,"DT")="2901106"
^DD(.4,8,3)="Enter a 1 if this is a FILEGRAM template, 2 if this is an EXTRACT template, 3 if an EXPORT template, 7 if a SELECTED FIELDS template, as opposed to a normal PRINT template."
^DD(.4,8,"DT")="2960523"
^DD(.4,10,0)="DESCRIPTION^.4001^^%D;0"
^DD(.4,20,0)="DESTINATION FILE^*P1'^DIC(^0;9^S DIC(""S"")=""I Y>1.99 S DIAC=""""RD"""" D ^DIAC I %"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(.4,20,3)=""
^DD(.4,20,12)="Allow files to which user has READ access."
^DD(.4,20,12.1)="S DIC(""S"")=""I Y>1.99 S DIAC=""""RD"""" D ^DIAC I %"""
^DD(.4,20,21,0)="^^2^2^2921002^"
^DD(.4,20,21,1,0)="This field holds the number of the file that is designed to receive"
^DD(.4,20,21,2,0)="data from other files by using the Extract Tool."
^DD(.4,20,"DT")="2950909"
^DD(.4,50,0)="FILEGRAM/EXTR FILE^.41A^^1;0"
^DD(.4,50,"DT")="2920514"
^DD(.4,100,0)="EXPORT FIELD^.42A^^100;0"
^DD(.4,100,21,0)="^^1^1^2921123^^"
^DD(.4,100,21,1,0)="This multiple holds information about each field being exported."
^DD(.4,105,0)="EXPORT FORMAT^P.44'^DIST(.44,^105;1^Q"
^DD(.4,105,21,0)="^^1^1^2921123^"
^DD(.4,105,21,1,0)="This field contains the foreign format used to make the export template."
^DD(.4,105,"DT")="2920904"
^DD(.4,110,0)="EXPORT TEMPLATE CREATED?^S^1:YES;0:NO;^105;3^Q"
^DD(.4,110,21,0)="^^2^2^2921119^"
^DD(.4,110,21,1,0)="If YES, this Selected Fields for Export template has been used to create"
^DD(.4,110,21,2,0)="an Export template."
^DD(.4,110,"DT")="2920904"
^DD(.4,115,0)="MULTIPLE PATH^F^^105;4^K:$L(X)>30!($L(X)<1) X"
^DD(.4,115,3)="Answer must be 1-30 characters in length."
^DD(.4,115,21,0)="^^2^2^2921119^"
^DD(.4,115,21,1,0)="This field holds a list of field numbers representing the deepest multiple"
^DD(.4,115,21,2,0)="contained in this Export template."
^DD(.4,115,"DT")="2921119"
^DD(.4,704,0)="HEADER^CJ60^^ ; ^S X=$S($D(^DIPT(D0,""H"")):^(""H""),1:"""")"
^DD(.4,707,0)="SUB-HEADER SUPPRESSED^S^1:YES^SUB;1^Q"
^DD(.4,1620,0)="PRINT FIELDS^XCmJ50^^ ; ^D ^DIPT"
^DD(.4,1620,9)="^"
^DD(.4,1620,9.01)=""
^DD(.4,1620,9.1)="D ^DIET"
^DD(.4,1815,0)="ROUTINE INVOKED^F^^ROU;E1,13^Q"
^DD(.4,1815,9)="@"
^DD(.4,1816,0)="PREVIOUS ROUTINE INVOKED^F^^ROUOLD;E1,13^Q"
^DD(.4,1816,9)="@"
^DD(.4,1819,0)="COMPILED^CJ3^^ ; ^S X=$S('$D(^DIPT(D0,""ROU""))#2:""NO"",^(""ROU"")="""":""NO"",1:""YES"")"
^DD(.4,1819,9)="^"
^DD(.4,1819,9.01)=""
^DD(.4,1819,9.1)="S X=$S('$D(^DIPT(D0,""ROU""))#2:""NO"",^(""ROU"")="""":""NO"",1:""YES"")"
^DD(.4,"B","COMPILED",1819)=""
^DD(.4,"B","DATE CREATED",2)=""
^DD(.4,"B","DATE LAST USED",7)=""
^DD(.4,"B","DESCRIPTION",10)=""
^DD(.4,"B","DESTINATION FILE",20)=""
^DD(.4,"B","EXPORT FIELD",100)=""
^DD(.4,"B","EXPORT FORMAT",105)=""
^DD(.4,"B","EXPORT TEMPLATE CREATED?",110)=""
^DD(.4,"B","FILE",4)=""
^DD(.4,"B","FILEGRAM/EXTR FILE",50)=""
^DD(.4,"B","HEADER",704)=""
^DD(.4,"B","MULTIPLE PATH",115)=""
^DD(.4,"B","NAME",.01)=""
^DD(.4,"B","PREVIOUS ROUTINE INVOKED",1816)=""
^DD(.4,"B","PRINT FIELDS",1620)=""
^DD(.4,"B","READ ACCESS",3)=""
^DD(.4,"B","ROUTINE INVOKED",1815)=""
^DD(.4,"B","SUB-HEADER SUPPRESSED",707)=""
^DD(.4,"B","TEMPLATE TYPE",8)=""
^DD(.4,"B","USER #",5)=""
^DD(.4,"B","WRITE ACCESS",6)=""
^DD(.4,"GL",0,1,.01)=""
^DD(.4,"GL",0,2,2)=""
^DD(.4,"GL",0,3,3)=""
^DD(.4,"GL",0,4,4)=""
^DD(.4,"GL",0,5,5)=""
^DD(.4,"GL",0,6,6)=""
^DD(.4,"GL",0,7,7)=""
^DD(.4,"GL",0,8,8)=""
^DD(.4,"GL",0,9,20)=""
^DD(.4,"GL",1,0,50)=""
^DD(.4,"GL",100,0,100)=""
^DD(.4,"GL",105,1,105)=""
^DD(.4,"GL",105,3,110)=""
^DD(.4,"GL",105,4,115)=""
^DD(.4,"GL","%D",0,10)=""
^DD(.4,"GL","ROU","E1,13",1815)=""
^DD(.4,"GL","ROUOLD","E1,13",1816)=""
^DD(.4,"GL","SUB",1,707)=""
^DD(.4,"IX",.01)=""
^DD(.4,"IX",4)=""
^DD(.4,"IX",8)=""
^DD(.4,"SB",.4001,10)=""
^DD(.4,"SB",.41,50)=""
^DD(.4,"SB",.42,100)=""
^DD(.4001,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.4001,0,"NM","DESCRIPTION")=""
^DD(.4001,0,"UP")=".4"
^DD(.4001,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.4001,"B","DESCRIPTION",.01)=""
^DD(.4001,"GL",0,1,.01)=""
^DD(.401,0)="FIELD^^491620^21"
^DD(.401,0,"DDA")="N"
^DD(.401,0,"DI")="^"
^DD(.401,0,"DT")="2960910"
^DD(.401,0,"ID","WRITE")="N D,D1,D2 S D2=^(0) S:$X>30 D1(1,""F"")=""!"" S D=$P(D2,U,2) S:D D1(2)=""(""_$$FMTE^DILIBF(D)_"")"",D1(2,""F"")=""?30"" S D=$P(D2,U,5) S:D D1(3)="" User #""_D,D1(3,""F"")=""?50"" S D=$P(D2,U,4) S:D D1(4)="" File #""_D,D1(4,""F"")=""?59"" D EN^DDIOL(.D1)"
^DD(.401,0,"ID","WRITE1")="N D1 S D1=$S($D(^DIBT(+Y,2)):""SORT"",$D(^(""DIS"")):""SEARCH"",$D(^(1)):""INQ"",1:"""") D EN^DDIOL(D1,"""",""?73"")"
^DD(.401,0,"ID","WRITED")="I $G(DZ)?1""???"".E N % S %=0 F  S %=$O(^DIBT(Y,""%D"",%)) Q:%'>0  I $D(^(%,0))#2 D EN^DDIOL(^(0),"""",""!?5"")"
^DD(.401,0,"IX","B",.401,.01)=""
^DD(.401,0,"NM","SORT TEMPLATE")=""
^DD(.401,0,"PT",1.11,2)=""
^DD(.401,0,"PT",43.7,7)=""
^DD(.401,0,"PT",45.62,.08)=""
^DD(.401,0,"PT",95.11,2)=""
^DD(.401,0,"VR")="22.0"
^DD(.401,.01,0)="NAME^F^^0;1^K:$L(X)<2!($L(X)>30) X"
^DD(.401,.01,1,0)="^.1^2^2"
^DD(.401,.01,1,1,0)=".401^B"
^DD(.401,.01,1,1,1)="S @(DIC_""""""B"""",X,DA)="""""""""")"
^DD(.401,.01,1,1,2)="K @(DIC_""""""B"""",X,DA)"")"
^DD(.401,.01,1,2,0)="^^MUMPS"
^DD(.401,.01,1,2,1)="X ""S %=$P(""_DIC_""DA,0),U,4) S:$L(%) ""_DIC_""""""F""""_+%,X,DA)=1"""
^DD(.401,.01,1,2,2)="X ""S %=$P(""_DIC_""DA,0),U,4) K:$L(%) ""_DIC_""""""F""""_+%,X,DA)"""
^DD(.401,.01,3)="2-30 CHARACTERS"
^DD(.401,2,0)="DATE CREATED^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(.401,3,0)="READ ACCESS^F^^0;3^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(.401,4,0)="FILE^P1'I^DIC(^0;4^Q"
^DD(.401,4,1,0)="^.1^1^1"
^DD(.401,4,1,1,0)="^^^MUMPS"
^DD(.401,4,1,1,1)="X ""S %=$P(""_DIC_""DA,0),U,1),""_DIC_""""""F""""_+X,%,DA)=1"""
^DD(.401,4,1,1,2)="Q"
^DD(.401,5,0)="USER #^N^^0;5^Q"
^DD(.401,6,0)="WRITE ACCESS^F^^0;6^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(.401,7,0)="DATE LAST USED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(.401,8,0)="TEMPLATE TYPE^S^1:ARCHIVING SEARCH;^0;8^Q"
^DD(.401,8,3)="Enter a 1 if this is an ARCHIVING SEARCH template (i.e., used to store lists of records to be archived) as opposed to a normal SEARCH or SORT template"
^DD(.401,9,0)="SEARCH COMPLETE DATE^D^^QR;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(.401,9,3)="Enter the date/time that this search was run to completion."
^DD(.401,9,21,0)="^^4^4^2921124^"
^DD(.401,9,21,1,0)="  This field will be filled in automatically by the search option, but"
^DD(.401,9,21,2,0)="only if the search runs to completion.  It will contain the date/time"
^DD(.401,9,21,3,0)="that the search last ran.  If it was not allowed to run to completion,"
^DD(.401,9,21,4,0)="this field will be empty."
^DD(.401,9,23,0)="^^1^1^2921124^^"
^DD(.401,9,23,1,0)="Filled in automatically by the FileMan search option."
^DD(.401,9,"DT")="2921124"
^DD(.401,10,0)="DESCRIPTION^.4012^^%D;0"
^DD(.401,11,0)="TOTAL RECORDS SELECTED^NJ10,0^^QR;2^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.401,11,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(.401,11,21,0)="^^5^5^2921125^^"
^DD(.401,11,21,1,0)="  This field is filled in automatically by the FileMan search option."
^DD(.401,11,21,2,0)="If the search is allowed to run to completion, the total number of"
^DD(.401,11,21,3,0)="records that met the search criteria is stored in this field.  If the"
^DD(.401,11,21,4,0)="last search was not allowed to run to completion, this field will be"
^DD(.401,11,21,5,0)="null."
^DD(.401,11,23,0)="^^1^1^2921124^"
^DD(.401,11,23,1,0)="Filled in automatically by the FileMan search option."
^DD(.401,11,"DT")="2921125"
^DD(.401,15,0)="SEARCH SPECIFICATIONS^.4011^^O;0"
^DD(.401,1620,0)="SORT FIELDS^CmJ50^^ ; ^N DPP D DIBT^DIPT"
^DD(.401,1621,0)="SORT FIELD DATA^.4014^^2;0"
^DD(.401,1622,0)="BY(0)^FX^^BY0;1^K:$L(X)>30!($L(X)<3)!'(X?1.ANP1""("".ANP) X"
^DD(.401,1622,3)="Enter the static part of a global.  The leading up-arrow can be omitted."
^DD(.401,1622,21,0)="^^4^4^2960911^^"
^DD(.401,1622,21,1,0)="Enter the static, unchanging part of an open global reference for either a"
^DD(.401,1622,21,2,0)="global or a cross-reference that contains the list of record numbers to"
^DD(.401,1622,21,3,0)="sort through on the first pass.  The leading up-arrow can be omitted.  "
^DD(.401,1622,21,4,0)="For example:  DIZ(662001,""A"", or TMP(""NMSP"",$J,"
^DD(.401,1622,23,0)="^^1^1^2960911^^^^"
^DD(.401,1622,23,1,0)="Equivalent to the BY(0) input variable to programmer call EN1^DIP."
^DD(.401,1622,"DT")="2960924"
^DD(.401,1623,0)="L(0)^NJ1,0^^BY0;2^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.401,1623,3)="Type a Number between 1 and 8, 0 Decimal Digits"
^DD(.401,1623,21,0)="^^4^4^2960911^^^"
^DD(.401,1623,21,1,0)="Enter the total number of subscripts that must be sorted through on the"
^DD(.401,1623,21,2,0)="global referenced by BY(0), including 1 for the record number.  Ex., to"
^DD(.401,1623,21,3,0)="sort through the ""B"" x-ref, we sort through the cross-referenced value"
^DD(.401,1623,21,4,0)="itself, then the record number, so L(0)=2."
^DD(.401,1623,23,0)="^^1^1^2960911^^^"
^DD(.401,1623,23,1,0)="Equivalent to the L(0) input variable to programmer call EN1^DIP."
^DD(.401,1623,"DT")="2960828"
^DD(.401,1624,0)="SORT RANGE DATA FOR BY(0)^.4011624^^BY0D;0"
^DD(.401,1815,0)="ROUTINE INVOKED^F^^ROU;E1,13^K:$L(X)>5!($L(X)<5) X"
^DD(.401,1815,3)="Answer must be 5 characters in length.Must contain '^DISZ'."
^DD(.401,1815,21,0)="^^7^7^2930331^^^"
^DD(.401,1815,21,1,0)="  If this sort template is compiled, the first characters of the name"
^DD(.401,1815,21,2,0)="of that compiled routine will appear on this node.  Compiled sort"
^DD(.401,1815,21,3,0)="routines are re-created each time the sort/print runs.  These characters"
^DD(.401,1815,21,4,0)="are concatenated with the next available number from the COMPILED ROUTINE"
^DD(.401,1815,21,5,0)="file to create the routine name."
^DD(.401,1815,21,6,0)="  If this node is present, a new compiled sort routine will be created"
^DD(.401,1815,21,7,0)="during the FileMan sort/print."
^DD(.401,1815,23,0)="^^3^3^2930331^^^"
^DD(.401,1815,23,1,0)="A routine beginning with these characters is created during the FileMan"
^DD(.401,1815,23,2,0)="sort/print.  The routine is then called from DIO2 to do the sort, rather"
^DD(.401,1815,23,3,0)="than executing code from the local DY, DZ and P arrays."
^DD(.401,1815,"DT")="2930416"
^DD(.401,1816,0)="PREVIOUS ROUTINE INVOKED^F^^ROUOLD;E1,13^K:$L(X)>4!($L(X)<4)!'(X?1""DISZ"") X"
^DD(.401,1816,3)="Entry must be 'DISZ'."
^DD(.401,1816,21,0)="^^4^4^2930331^^"
^DD(.401,1816,21,1,0)="This node is present only to be consistant with other sort templates."
^DD(.401,1816,21,2,0)="It's presence will indicate that at some time the SORT template was"
^DD(.401,1816,21,3,0)="compiled and will contain the beginning characters used to create the"
^DD(.401,1816,21,4,0)="name of the compiled routine."
^DD(.401,1816,"DT")="2930416"
^DD(.401,1819,0)="COMPILED^CJ3^^ ; ^S X=$S($G(^DIBT(D0,""ROU""))]"""":""YES"",1:""NO"")"
^DD(.401,1819,9)="^"
^DD(.401,1819,9.01)=""
^DD(.401,1819,9.1)="S X=$S($G(^DIBT(D0,""ROU""))]"""":""YES"",1:""NO"")"
^DD(.401,491620,0)="PRINT TEMPLATE^F^^DIPT;1^K:'$D(^DIPT(""B"",X)) X"
^DD(.401,491620,4)="N D1 S D1(1)=""If this Sort Template should always be used with a particular"",D1(2)=""Print Template, enter the name of that Print Template."",D1(3)="""" D EN^DDIOL(.D1)"
^DD(.401,"B","BY(0)",1622)=""
^DD(.401,"B","COMPILED",1819)=""
^DD(.401,"B","DATE CREATED",2)=""
^DD(.401,"B","DATE LAST USED",7)=""
^DD(.401,"B","DESCRIPTION",10)=""
^DD(.401,"B","FILE",4)=""
^DD(.401,"B","L(0)",1623)=""
^DD(.401,"B","NAME",.01)=""
^DD(.401,"B","PREVIOUS ROUTINE INVOKED",1816)=""
^DD(.401,"B","PRINT TEMPLATE",491620)=""
^DD(.401,"B","READ ACCESS",3)=""
^DD(.401,"B","ROUTINE INVOKED",1815)=""
^DD(.401,"B","SEARCH COMPLETE DATE",9)=""
^DD(.401,"B","SEARCH SPECIFICATIONS",15)=""
^DD(.401,"B","SORT FIELD DATA",1621)=""
^DD(.401,"B","SORT FIELDS",1620)=""
^DD(.401,"B","SORT RANGE DATA FOR BY(0)",1624)=""
^DD(.401,"B","TEMPLATE TYPE",8)=""
^DD(.401,"B","TOTAL RECORDS SELECTED",11)=""
^DD(.401,"B","USER #",5)=""
^DD(.401,"B","WRITE ACCESS",6)=""
^DD(.401,"GL",0,1,.01)=""
^DD(.401,"GL",0,2,2)=""
^DD(.401,"GL",0,3,3)=""
^DD(.401,"GL",0,4,4)=""
^DD(.401,"GL",0,5,5)=""
^DD(.401,"GL",0,6,6)=""
^DD(.401,"GL",0,7,7)=""
^DD(.401,"GL",0,8,8)=""
^DD(.401,"GL",2,0,1621)=""
^DD(.401,"GL","%D",0,10)=""
^DD(.401,"GL","BY0",1,1622)=""
^DD(.401,"GL","BY0",2,1623)=""
^DD(.401,"GL","BY0D",0,1624)=""
^DD(.401,"GL","DIPT",1,491620)=""
^DD(.401,"GL","O",0,15)=""
^DD(.401,"GL","QR",1,9)=""
^DD(.401,"GL","QR",2,11)=""
^DD(.401,"GL","ROU","E1,13",1815)=""
^DD(.401,"GL","ROUOLD","E1,13",1816)=""
^DD(.401,"IX",.01)=""
^DD(.401,"IX",4)=""
^DD(.401,"SB",.4011,15)=""
^DD(.401,"SB",.4011624,1624)=""
^DD(.401,"SB",.4012,10)=""
^DD(.401,"SB",.4014,1621)=""
^DD(.4011,0)="FIELD^.01^.01^1"
^DD(.4011,0,"NM","FIELD")=""
^DD(.4011,0,"UP")=".401"
^DD(.4011,.01,0)="SEARCH SPECIFICATIONS^WL^^0;1"
^DD(.4011624,0)="SORT RANGE DATA FOR BY(0) SUB-FIELD^^3.2^6"
^DD(.4011624,0,"DT")="2960910"
^DD(.4011624,0,"IX","B",.4011624,.01)=""
^DD(.4011624,0,"NM","SORT RANGE DATA FOR BY(0)")=""
^DD(.4011624,0,"UP")=".401"
^DD(.4011624,.01,0)="SUBSCRIPT LEVEL^MNJ1,0^^0;1^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.4011624,.01,1,0)="^.1"
^DD(.4011624,.01,1,1,0)=".4011624^B"
^DD(.4011624,.01,1,1,1)="S ^DIBT(DA(1),""BY0D"",""B"",$E(X,1,30),DA)="""""
^DD(.4011624,.01,1,1,2)="K ^DIBT(DA(1),""BY0D"",""B"",$E(X,1,30),DA)"
^DD(.4011624,.01,3)="Enter a number, 1 or more.  L(0)-1 is the upper limit."
^DD(.4011624,.01,21,0)="^^4^4^2960911^^^^"
^DD(.4011624,.01,21,1,0)="This field corresponds to a subscript in, and contains sort from/to ranges"
^DD(.4011624,.01,21,2,0)="and/or subheader information for, any of the variable subscripts in the"
^DD(.4011624,.01,21,3,0)="BY(0) global.  Any number here should never be greater than L(0)-1.  This"
^DD(.4011624,.01,21,4,0)="can represent a sparse array."
^DD(.4011624,.01,23,0)="^^3^3^2960911^^^^"
^DD(.4011624,.01,23,1,0)="Corresponds to subscript levels in the BY(0) global, and will be used to"
^DD(.4011624,.01,23,2,0)="put sort from/to and subheader information into the DPP array when the"
^DD(.4011624,.01,23,3,0)="sort data is being built."
^DD(.4011624,.01,"DT")="2960828"
^DD(.4011624,1,0)="FR(0,n)^F^^0;2^K:$L(X)>62!($L(X)<1) X"
^DD(.4011624,1,3)="Starting value for the sort on this subscript.  Answer must be 1-62 characters in length."
^DD(.4011624,1,21,0)="^^16^16^2960911^^^^"
^DD(.4011624,1,21,1,0)="Use this field to define the FR(0,n) variable as you would in a"
^DD(.4011624,1,21,2,0)="call to EN1^DIP that included BY(0).  If defined, the value will be"
^DD(.4011624,1,21,3,0)="used as the starting point as FileMan sequences through the global"
^DD(.4011624,1,21,4,0)="array referenced by BY(0) at this subscript level (n)."
^DD(.4011624,1,21,5,0)=" "
^DD(.4011624,1,21,6,0)="Values are not transformed, so enter the internal form just as it"
^DD(.4011624,1,21,7,0)="is stored in the global array.  A date, for example, would be 2960829,"
^DD(.4011624,1,21,8,0)="not Aug 29, 1996."
^DD(.4011624,1,21,9,0)=" "
^DD(.4011624,1,21,10,0)="Don't attempt to use the at-sign (@) to include records with null"
^DD(.4011624,1,21,11,0)="values (as can be done in ordinary sorts).  Only use values that can"
^DD(.4011624,1,21,12,0)="be compared with actual data in this subscript of the global array"
^DD(.4011624,1,21,13,0)="referenced by BY(0).  (The only records that can be selected are ones"
^DD(.4011624,1,21,14,0)="that exist in this global array.  A record with a null value for this"
^DD(.4011624,1,21,15,0)="subscript would exist in the data file but not in this array and thus"
^DD(.4011624,1,21,16,0)="can't be selected.)"
^DD(.4011624,1,23,0)="^^1^1^2960911^^^^"
^DD(.4011624,1,23,1,0)="Equivalent to the FR(0,n) input variable to the programmer call EN1^DIP."
^DD(.4011624,1,"DT")="2960828"
^DD(.4011624,2,0)="TO(0,n)^F^^0;3^K:$L(X)>62!($L(X)<1) X"
^DD(.4011624,2,3)="Ending value for sort on this subscript.  Answer must be 1-62 characters in length."
^DD(.4011624,2,21,0)="^^9^9^2960911^^^^"
^DD(.4011624,2,21,1,0)="Use this field to define the TO(0,n) variable as you would in a"
^DD(.4011624,2,21,2,0)="call to EN1^DIP that included BY(0).  If defined, the value will be"
^DD(.4011624,2,21,3,0)="used as the ending point as FileMan sequences through the global"
^DD(.4011624,2,21,4,0)="array referenced by BY(0) at this subscript level (n)."
^DD(.4011624,2,21,5,0)=" "
^DD(.4011624,2,21,6,0)="Values are not transformed, so enter the internal form just as it"
^DD(.4011624,2,21,7,0)="is stored in the global array.  An inverse date, for example,"
^DD(.4011624,2,21,8,0)="would be 7039268, not 7/31/96.  Do not attempt to use @ to select"
^DD(.4011624,2,21,9,0)="records with null values for this subscript."
^DD(.4011624,2,23,0)="^^1^1^2960911^^^^"
^DD(.4011624,2,23,1,0)="Equivalent to the TO(0,n) input variable to the programmer call EN1^DIP."
^DD(.4011624,2,"DT")="2960828"
^DD(.4011624,3.1,0)="DISPAR(0,n) PIECE ONE^FX^^1;1^K:$L(X)>10!($L(X)<1)!(""#!#""'[X) X"
^DD(.4011624,3.1,3)="Answer with #, !, #!, or null."
^DD(.4011624,3.1,21,0)="^^6^6^2960910^^"
^DD(.4011624,3.1,21,1,0)="Just as when setting the first piece of DISPAR(0,n) in a programmer"
^DD(.4011624,3.1,21,2,0)="call that includes BY(0) when calling EN1^DIP, this field can hold"
^DD(.4011624,3.1,21,3,0)="the sort qualifiers for page breaks (#) or rankings (!).  "
^DD(.4011624,3.1,21,4,0)=" "
^DD(.4011624,3.1,21,5,0)="The # and/or ! are the only qualifiers that can be used.  Others,"
^DD(.4011624,3.1,21,6,0)="such as + for subtotals, cannot be used."
^DD(.4011624,3.1,23,0)="^^1^1^2960910^^"
^DD(.4011624,3.1,23,1,0)="Equivalent to the 1st piece of DISPAR(0,n) in the EN1^DIP call."
^DD(.4011624,3.1,"DT")="2960910"
^DD(.4011624,3.2,0)="DISPAR(0,n) PIECE TWO^FX^^1;2^K:$L(X)>50!($L(X)<1)!'((X["";"""""")!(X["";L"")!(X["";C"")!(X["";S"")) X"
^DD(.4011624,3.2,3)="Answer with qualifiers like ;"""" or ;S2;C10;L30;""VALUE: """
^DD(.4011624,3.2,21,0)="^^12^12^2960910^^^"
^DD(.4011624,3.2,21,1,0)="As when defining the second piece of DISPAR(0,n) in a programmer"
^DD(.4011624,3.2,21,2,0)="call that includes BY(0) when calling EN1^DIP, this field can hold"
^DD(.4011624,3.2,21,3,0)="the sort qualifiers that normally appear after a sort-by field in"
^DD(.4011624,3.2,21,4,0)="interactive mode.  The ones that can be used are as follows:"
^DD(.4011624,3.2,21,5,0)=" "
^DD(.4011624,3.2,21,6,0)=" ;""""         to have the subheader appear"
^DD(.4011624,3.2,21,7,0)=" ;""caption""  to give the subheader a caption"
^DD(.4011624,3.2,21,8,0)=" ;Ln         to left-justify the subheader to n characters"
^DD(.4011624,3.2,21,9,0)=" ;Cn         to start the display in the nth column"
^DD(.4011624,3.2,21,10,0)=" ;Sn         to skip n lines before each subheader"
^DD(.4011624,3.2,21,11,0)=" "
^DD(.4011624,3.2,21,12,0)="If this field is null, subheaders are supressed (@ is assumed)."
^DD(.4011624,3.2,23,0)="^^3^3^2960910^^^"
^DD(.4011624,3.2,23,1,0)="Equivalent to the 2nd piece of DISPAR(0,n) in the EN1^DIP call."
^DD(.4011624,3.2,23,2,0)="Note that if DISPAR(0,n) is defined, subheaders will appear even if"
^DD(.4011624,3.2,23,3,0)="used with a print template that normally suppresses subheaders."
^DD(.4011624,3.2,"DT")="2960911"
^DD(.4011624,4,0)="DISPAR(0,n,OUT)^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4011624,4,3)="Enter code to transform subscript.  This is Standard M code."
^DD(.4011624,4,9)="@"
^DD(.4011624,4,21,0)="^^7^7^2960829^^^^"
^DD(.4011624,4,21,1,0)="As when defining DISPAR(0,n,""OUT"") for a call to EN1^DIP that includes"
^DD(.4011624,4,21,2,0)="BY(0), enter M code that will transform the sort-by value for this "
^DD(.4011624,4,21,3,0)="subscript (n) when it is output (e.g. printed).  At the time"
^DD(.4011624,4,21,4,0)="the code is executed the untransformed value of the subscript will be in"
^DD(.4011624,4,21,5,0)="Y.  The code should put the transformed value back into Y."
^DD(.4011624,4,21,6,0)=" "
^DD(.4011624,4,21,7,0)="For example, for an inverse date, S:Y Y=99999999-Y S Y=$$FMTE^XLFDT(Y)"""
^DD(.4011624,4,23,0)="^^2^2^2960829^^^^"
^DD(.4011624,4,23,1,0)="Equivalent to the DISPAR(0,n,""OUT"") input variable to the programmer call"
^DD(.4011624,4,23,2,0)="EN1^DIP."
^DD(.4011624,4,"DT")="2960829"
^DD(.4012,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.4012,0,"NM","DESCRIPTION")=""
^DD(.4012,0,"UP")=".401"
^DD(.4012,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.4012,"B","DESCRIPTION",.01)=""
^DD(.4012,"GL",0,1,.01)=""
^DD(.4014,0)="SORT FIELD DATA SUB-FIELD^^21^27"
^DD(.4014,0,"DT")="2931221"
^DD(.4014,0,"IX","B",.4014,.01)=""
^DD(.4014,0,"NM","SORT FIELD DATA")=""
^DD(.4014,0,"UP")=".401"
^DD(.4014,.01,0)="FILE OR SUBFILE NO.^MRNJ13,5^^0;1^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(.4014,.01,1,0)="^.1"
^DD(.4014,.01,1,1,0)=".4014^B"
^DD(.4014,.01,1,1,1)="S ^DIBT(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(.4014,.01,1,1,2)="K ^DIBT(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(.4014,.01,3)="Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  File or subfile number on which sort field resides."
^DD(.4014,.01,21,0)="^^3^3^2930125^^"
^DD(.4014,.01,21,1,0)="This is the number of the file or subfile on which the sort field"
^DD(.4014,.01,21,2,0)="resides.  It is created automatically during the SORT FIELDS dialogue"
^DD(.4014,.01,21,3,0)="with the user in the sort/print option."
^DD(.4014,.01,23,0)="^^1^1^2930125^^"
^DD(.4014,.01,23,1,0)="This number is automatically assigned by the print routine DIP."
^DD(.4014,.01,"DT")="2930125"
^DD(.4014,2,0)="FIELD NO.^NJ13,5^^0;2^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(.4014,2,3)="Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  Sort field number, except for pointers, variable pointers and computed fields."
^DD(.4014,2,21,0)="^^4^4^2930125^"
^DD(.4014,2,21,1,0)="On most sort fields, this piece will contain the field number.  If sorting"
^DD(.4014,2,21,2,0)="on a pointer, variable pointer or computed field, the piece will be null."
^DD(.4014,2,21,3,0)="If sorting on the record number (NUMBER or .001), the piece will contain"
^DD(.4014,2,21,4,0)="a 0."
^DD(.4014,2,23,0)="^^1^1^2930125^"
^DD(.4014,2,23,1,0)="Created by FileMan during the print option (in the DIP* routines)."
^DD(.4014,2,"DT")="2930125"
^DD(.4014,3,0)="FIELD NAME^F^^0;3^K:$L(X)>100!($L(X)<1) X"
^DD(.4014,3,3)="Answer must be 1-100 characters in length."
^DD(.4014,3,21,0)="^^2^2^2930125^"
^DD(.4014,3,21,1,0)="This piece contains the sort field name, or the user entry if sorting by"
^DD(.4014,3,21,2,0)="an on-the-fly computed field."
^DD(.4014,3,23,0)="^^1^1^2930125^"
^DD(.4014,3,23,1,0)="Created by FileMan during the print option (DIP* routines)."
^DD(.4014,3,"DT")="2930125"
^DD(.4014,4,0)="SORT QUALIFIERS BEFORE FIELD^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(.4014,4,3)="Answer must be 1-20 characters in length.  Sort qualifiers that normally precede the field number in the user dialogue (like !,@,#,+)"
^DD(.4014,4,21,0)="^^5^5^2930125^^^"
^DD(.4014,4,21,1,0)="This contains all of the sort qualifiers that normally precede the field"
^DD(.4014,4,21,2,0)="number in the user dialogue during the sort option.  It includes things"
^DD(.4014,4,21,3,0)="like # (Page break when sort value changes), @ (suppress printing of"
^DD(.4014,4,21,4,0)="subheader).  These qualifiers are listed out with no delimiters, as they"
^DD(.4014,4,21,5,0)="are found during the user dialogue.  (So you might see something like #@)."
^DD(.4014,4,23,0)="^^2^2^2930125^^"
^DD(.4014,4,23,1,0)="This information is parsed from the user dialogue or from the BY"
^DD(.4014,4,23,2,0)="input variable, by the FileMan print routines DIP*."
^DD(.4014,4,"DT")="2930125"
^DD(.4014,4.1,0)="SORT QUALIFIERS AFTER FIELD^F^^0;5^K:$L(X)>70!($L(X)<1) X"
^DD(.4014,4.1,3)="Answer must be 1-70 characters in length.  Sort qualifiers that normally come after the field in the user dialogue (such as ;Cn, ;Ln, ;""Literal Subheader"")"
^DD(.4014,4.1,21,0)="^^6^6^2930125^"
^DD(.4014,4.1,21,1,0)="This contains all of the sort qualifiers that normally come after the"
^DD(.4014,4.1,21,2,0)="field number in the user dialogue for the sort options.  It includes"
^DD(.4014,4.1,21,3,0)="things like ;Cn (specify position of subheader) and ;""literal"" to"
^DD(.4014,4.1,21,4,0)="replace the caption of the subheader.  These qualifiers are listed with"
^DD(.4014,4.1,21,5,0)="no delimiters, as they are found in the user dialogue.  (So you might see"
^DD(.4014,4.1,21,6,0)="something like ;C10;""My Subheader"")."
^DD(.4014,4.1,23,0)="^^2^2^2930125^"
^DD(.4014,4.1,23,1,0)="This information is parsed from the user dialogue or from the BY"
^DD(.4014,4.1,23,2,0)="input variable, by the FileMan print routines DIP*."
^DD(.4014,4.1,"DT")="2930125"
^DD(.4014,4.2,0)="COMPUTED FIELD TYPE^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(.4014,4.2,3)="Answer must be 1-10 characters in length.  Set by the print routine to something that looks like second piece of 0 node of DD (data type information) for on-the-fly computed fields or .001 field."
^DD(.4014,4.2,21,0)="^^4^4^2931022^"
^DD(.4014,4.2,21,1,0)="This piece will contain a ""D"" if on-the-fly computed field results in a"
^DD(.4014,4.2,21,2,0)="date.  It will be set to something like NJ6,0 if sorting by the .001"
^DD(.4014,4.2,21,3,0)="field. (These are the only values I have been able to find for this"
^DD(.4014,4.2,21,4,0)="field.)"
^DD(.4014,4.2,23,0)="^^3^3^2931022^"
^DD(.4014,4.2,23,1,0)="Set in C^DIP0 if DICOMP tells us that an on-the-fly computed field will"
^DD(.4014,4.2,23,2,0)="result in a date, and in ^DIP is sorting by the .001 field on a file that"
^DD(.4014,4.2,23,3,0)="has one."
^DD(.4014,4.2,"DT")="2931022"
^DD(.4014,4.3,0)="ASK FOR FROM AND TO^S^1:YES;^ASK;1^Q"
^DD(.4014,4.3,3)="Enter 1 (YES) if user is to be prompted for FROM/TO values for this SORT FIELD."
^DD(.4014,4.3,21,0)="^^3^3^2930201^"
^DD(.4014,4.3,21,1,0)="If this node is defined: then when the PRINT Option is run, or during"
^DD(.4014,4.3,21,2,0)="a call to the programmer print EN1^DIP, the user will be prompted"
^DD(.4014,4.3,21,3,0)="for FROM and TO VALUES for this sort field."
^DD(.4014,4.3,23,0)="^^4^4^2930201^"
^DD(.4014,4.3,23,1,0)="This field is created automatically when a template is being created or"
^DD(.4014,4.3,23,2,0)="edited, if the developer enters FROM/TO values, AND if the developer"
^DD(.4014,4.3,23,3,0)="then answers YES to the question ""SHOULD TEMPLATE USER BE ASKED"
^DD(.4014,4.3,23,4,0)="'FROM'-'TO' RANGE FOR field?"""
^DD(.4014,4.3,"DT")="2930201"
^DD(.4014,5,0)="FROM VALUE INTERNAL^F^^F;1^K:$L(X)>63!($L(X)<1) X"
^DD(.4014,5,3)="Answer must be 1-63 characters in length.  The starting point for the sort, derived by FileMan."
^DD(.4014,5,21,0)="^^3^3^2930119^^"
^DD(.4014,5,21,1,0)="FileMan takes the FROM value entered by the user, and finds the first"
^DD(.4014,5,21,2,0)="value that will sort just before this value in order to derive the"
^DD(.4014,5,21,3,0)="starting point for the sort."
^DD(.4014,5,23,0)="^^1^1^2930119^^"
^DD(.4014,5,23,1,0)="Calculated by the sort routine FRV^DIP1."
^DD(.4014,5,"DT")="2930119"
^DD(.4014,6,0)="FROM VALUE EXTERNAL^F^^F;2^K:$L(X)>63!($L(X)<1) X"
^DD(.4014,6,3)="Answer must be 1-63 characters in length.  The starting point for the sort, as entered by the user."
^DD(.4014,6,21,0)="^^1^1^2930115^"
^DD(.4014,6,21,1,0)="The FROM value for the sort, as it was entered by the user."
^DD(.4014,6,"DT")="2930119"
^DD(.4014,6.5,0)="FROM VALUE PRINTABLE^F^^F;3^K:$L(X)>40!($L(X)<1) X"
^DD(.4014,6.5,3)="Answer must be 1-40 characters in length.  Used for storing printable form of date or set values."
^DD(.4014,6.5,21,0)="^^3^3^2930216^^"
^DD(.4014,6.5,21,1,0)="This field is used to store a printable representation of the FROM value"
^DD(.4014,6.5,21,2,0)="entered by the user during the sort/print dialogue.  Used for date and"
^DD(.4014,6.5,21,3,0)="set-of-code data types."
^DD(.4014,6.5,23,0)="^^1^1^2930216^"
^DD(.4014,6.5,23,1,0)="Built in CK^DIP12."
^DD(.4014,6.5,"DT")="2930216"
^DD(.4014,7,0)="TO VALUE INTERNAL^F^^T;1^K:$L(X)>63!($L(X)<1) X"
^DD(.4014,7,3)="Answer must be 1-63 characters in length.  The ending point for the sort, derived by FileMan."
^DD(.4014,7,21,0)="^^3^3^2930115^"
^DD(.4014,7,21,1,0)="FileMan usually uses the TO value as entered by the user, but in the"
^DD(.4014,7,21,2,0)="case of dates and sets of codes, the internal value is used.  This field"
^DD(.4014,7,21,3,0)="tells FileMan the ending point for the sort."
^DD(.4014,7,"DT")="2930119"
^DD(.4014,8,0)="TO VALUE EXTERNAL^F^^T;2^K:$L(X)>63!($L(X)<1) X"
^DD(.4014,8,3)="Answer must be 1-63 characters in length.  The ending point for the sort, as entered by the user."
^DD(.4014,8,21,0)="^^1^1^2930115^"
^DD(.4014,8,21,1,0)="The ending value for the sort, as entered by the user."
^DD(.4014,8,"DT")="2930119"
^DD(.4014,8.5,0)="TO VALUE PRINTABLE^F^^T;3^K:$L(X)>40!($L(X)<1) X"
^DD(.4014,8.5,3)="Answer must be 1-40 characters in length.  Used for storing printable form of date and set values."
^DD(.4014,8.5,21,0)="^^3^3^2930216^"
^DD(.4014,8.5,21,1,0)="This field is used to store a printable representation of the TO value"
^DD(.4014,8.5,21,2,0)="entered by the user during the sort/print dialogue.  Used for date and"
^DD(.4014,8.5,21,3,0)="set-of-code data types."
^DD(.4014,8.5,23,0)="^^1^1^2930216^"
^DD(.4014,8.5,23,1,0)="Created in CK^DIP12."
^DD(.4014,8.5,"DT")="2930216"
^DD(.4014,9,0)="CROSS REFERENCE DATA^F^^IX;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.4014,9,3)="First ^ piece null, second piece=static part of cross-reference, third piece=global reference, 4th piece=number of variable subscripts to get to (and including) record number."
^DD(.4014,9,21,0)="^^8^8^2930115^"
^DD(.4014,9,21,1,0)=" Piece 1 is always null"
^DD(.4014,9,21,2,0)=" Piece 2 is the static part of the cross-reference: ex. DIZ(662001,""B"","
^DD(.4014,9,21,3,0)=" Piece 3 is the global reference: ex. DIZ(662001,"
^DD(.4014,9,21,4,0)=" Piece 4 tells FileMan how many variable subscripts must be sorted"
^DD(.4014,9,21,5,0)="through to get to the record number, plus 1 for the record number"
^DD(.4014,9,21,6,0)="itself.  ex. for a regular cross-reference, ^DIZ(662001,""B"",X,DA),"
^DD(.4014,9,21,7,0)="the number is 2.  One for the value of the X subscript, and one for the"
^DD(.4014,9,21,8,0)="record number itself (DA)."
^DD(.4014,9,23,0)="^^6^6^2930115^"
^DD(.4014,9,23,1,0)="The IX nodes are normally derived by FileMan during the entry of sort"
^DD(.4014,9,23,2,0)="fields (in routine XR^DIP).  However, they can also be passed to the"
^DD(.4014,9,23,3,0)="print (^DIP) in the BY(0) variable to cause FileMan to either use a MUMPS"
^DD(.4014,9,23,4,0)="type cross-reference, or a previously sorted list of record numbers."
^DD(.4014,9,23,5,0)="Fileman sometimes builds the IX node prior to calling the print, as in"
^DD(.4014,9,23,6,0)="the INQUIRE option, where the user then goes on to print the records."
^DD(.4014,9,"DT")="2930115"
^DD(.4014,9.5,0)="POINT TO CROSS REFERENCE^F^^PTRIX;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.4014,9.5,3)="Enter global reference for ""B"" index of .01 field on pointed-to file.  Answer must be 1-245 characters in length."
^DD(.4014,9.5,21,0)="^^7^7^2931221^"
^DD(.4014,9.5,21,1,0)="This node will exist only if the sort field is a pointer, if the sort"
^DD(.4014,9.5,21,2,0)="field has a regular cross-reference, if the .01 field on the pointed-to"
^DD(.4014,9.5,21,3,0)="file has a ""B"" index, and if the .01 field on the pointed-to file is"
^DD(.4014,9.5,21,4,0)="either a numeric, date, set-of-codes or free-text field, and does not have"
^DD(.4014,9.5,21,5,0)="an output transform.  If this node exists, it will be set to the static"
^DD(.4014,9.5,21,6,0)="part of the global reference of the ""B"" index on the pointed-to file. (ex."
^DD(.4014,9.5,21,7,0)="^DIZ(662001,""B"",)."
^DD(.4014,9.5,"DT")="2931221"
^DD(.4014,10,0)="GET CODE^K^^GET;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4014,10,3)="This is Standard MUMPS code used to extract the sort field from a record."
^DD(.4014,10,9)="@"
^DD(.4014,10,21,0)="^^3^3^2930115^"
^DD(.4014,10,21,1,0)="The GET CODE is MUMPS code that is executed after a record (or sub-record)"
^DD(.4014,10,21,2,0)="has been selected.  The code extracts the SORT field from that record"
^DD(.4014,10,21,3,0)="into a local variable."
^DD(.4014,10,23,0)="^^1^1^2930115^"
^DD(.4014,10,23,1,0)="GET CODE can be generated by a call to FileMan routine GET^DIOU."
^DD(.4014,10,"DT")="2930115"
^DD(.4014,11,0)="QUERY CONDITION^K^^QCON;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4014,11,3)="This is Standard MUMPS code used to test the field to see whether it meets the query condition (ex., whether it's within the from/to range specified by the user)."
^DD(.4014,11,9)="@"
^DD(.4014,11,21,0)="^^5^5^2930115^"
^DD(.4014,11,21,1,0)="The QUERY CONDITION is MUMPS code that takes a field in a local variable,"
^DD(.4014,11,21,2,0)="and executes some query condition.  The results of executing the code"
^DD(.4014,11,21,3,0)="will return a truth value of TRUE if the field met the condition, or"
^DD(.4014,11,21,4,0)="FALSE if not.  It is used, for example, to see whether a SORT FIELD falls"
^DD(.4014,11,21,5,0)="within the FROM/TO range requested by the user."
^DD(.4014,11,23,0)="^^2^2^2930115^"
^DD(.4014,11,23,1,0)="The QUERY CONDITION code is generated by various calls to FileMan"
^DD(.4014,11,23,2,0)="routines DIOC*."
^DD(.4014,11,"DT")="2930115"
^DD(.4014,12,0)="DESCRIPTION OF SORT^F^^TXT;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(.4014,12,3)="Answer must be 1-200 characters in length.  Text explaining the query condition (field name and what conditions must be met in order for the record to be selected)."
^DD(.4014,12,21,0)="^^4^4^2930115^"
^DD(.4014,12,21,1,0)="This field contains a brief textual description of the SORT FIELD and"
^DD(.4014,12,21,2,0)="the SORT CRITERIA used on it (i.e., the from/to values).  This"
^DD(.4014,12,21,3,0)="description can be printed in the heading of a report, at the users"
^DD(.4014,12,21,4,0)="request."
^DD(.4014,12,23,0)="^^2^2^2930115^"
^DD(.4014,12,23,1,0)="This text is build as the developer answers the FROM/TO questions"
^DD(.4014,12,23,2,0)="during the SORT sequence."
^DD(.4014,12,"DT")="2930115"
^DD(.4014,13,0)="SEARCH EFFICIENCY RATING^NJ9,4^^SER;1^K:+X'=X!(X>9999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(.4014,13,3)="Type a Number between 0 and 9999.9999, 4 Decimal Digits.  Search efficiency number returned by Query Optimizer Routine."
^DD(.4014,13,21,0)="^^7^7^2930125^"
^DD(.4014,13,21,1,0)="Fields are assigned a search efficiency rating based on the number of"
^DD(.4014,13,21,2,0)="hits found for the query (or sort) condition.  The fewer the hits, the"
^DD(.4014,13,21,3,0)="higher the rating.  A high rating indicates the criteria will more quickly"
^DD(.4014,13,21,4,0)="cut down the number of records to be processed.  The rating will be"
^DD(.4014,13,21,5,0)="higher if the field has a cross-reference.  The field with the highest"
^DD(.4014,13,21,6,0)="rating is used to do the initial loop through the file during the sort"
^DD(.4014,13,21,7,0)="phase."
^DD(.4014,13,23,0)="^^1^1^2930125^"
^DD(.4014,13,23,1,0)="Calculated in the Query Optimizer routine ^DIOQ."
^DD(.4014,13,"DT")="2930125"
^DD(.4014,14,0)="PROBABILITY RATING^NJ9,4^^SER;2^K:+X'=X!(X>9999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(.4014,14,3)="Type a Number between 0 and 9999.9999, 4 Decimal Digits.  Probability of field meeting the sort criteria--returned by Query Optimizer routine."
^DD(.4014,14,21,0)="^^6^6^2930125^^"
^DD(.4014,14,21,1,0)="Fields are assigned a probability rating based on the number of hits"
^DD(.4014,14,21,2,0)="found for the query (or sort) condition.  The probability rating is used"
^DD(.4014,14,21,3,0)="to determine the order in which query conditions should be executed"
^DD(.4014,14,21,4,0)="during the sort phase.  Fields with a higher probability rating are"
^DD(.4014,14,21,5,0)="executed first to most quickly cut down the number of records that have"
^DD(.4014,14,21,6,0)="to be processed."
^DD(.4014,14,23,0)="^^1^1^2930125^"
^DD(.4014,14,23,1,0)="Calculated by a call to the FileMan Query Optimizer routine ^DIOQ."
^DD(.4014,14,"DT")="2930125"
^DD(.4014,15,0)="DATA TYPE FOR SORTING^P.81'^DI(.81,^0;10^Q"
^DD(.4014,15,21,0)="^^5^5^2930514^"
^DD(.4014,15,21,1,0)="This pointer to the FileMan DATA TYPE file is entered automatically by"
^DD(.4014,15,21,2,0)="FileMan during the sort/print.  Note that if sorting by a pointer or a"
^DD(.4014,15,21,3,0)="variable pointer, FileMan will follow the pointer chain until it gets to"
^DD(.4014,15,21,4,0)="one of the other data types, in order to determine how to correctly set up"
^DD(.4014,15,21,5,0)="the sort logic."
^DD(.4014,15,23,0)="^^1^1^2930514^"
^DD(.4014,15,23,1,0)="Pointer to DATA TYPE file, derived by FileMan in routine DTYP^DIP1."
^DD(.4014,15,"DT")="2930514"
^DD(.4014,16,0)="COMPUTED FIELD CODE^K^^CM;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4014,16,3)="This is Standard MUMPS code, generated for sorting by computed fields or pointer fields."
^DD(.4014,16,9)="@"
^DD(.4014,16,21,0)="^^3^3^2930201^"
^DD(.4014,16,21,1,0)="This field contains MUMPS code used to find the actual value of a field"
^DD(.4014,16,21,2,0)="that is computed or a pointer.  The code is generated by DICOMP.  This"
^DD(.4014,16,21,3,0)="code may execute code in OVERFLOW nodes as well."
^DD(.4014,16,23,0)="^^1^1^2930201^"
^DD(.4014,16,23,1,0)="Generated by DICOMP.  Put into the DPP array in C^DIP0."
^DD(.4014,16,"DT")="2930201"
^DD(.4014,17,0)="MULTIPLE FIELD DATA^.40141^^1;0"
^DD(.4014,18,0)="RELATIONAL JUMP FIELD DATA^.401418^^2;0"
^DD(.4014,19,0)="OVERFLOW DATA^.401419^^3;0"
^DD(.4014,19,21,0)="^^5^5^2930201^"
^DD(.4014,19,21,1,0)="This field contains the first subscript from the part of the DPP array"
^DD(.4014,19,21,2,0)="that contains overflow code executed when sorting by a field that is"
^DD(.4014,19,21,3,0)="gotten to relationally or a computed field.  Overflow code is generated"
^DD(.4014,19,21,4,0)="when needed by DICOMP.  This field will typically look something like"
^DD(.4014,19,21,5,0)="""OVF0""."
^DD(.4014,19,23,0)="^^1^1^2930201^"
^DD(.4014,19,23,1,0)="Generated by DICOMP from DIP0 during the sort/print option."
^DD(.4014,19,"DT")="2930201"
^DD(.4014,20,0)="SUBHEADER OUTPUT TRANSFORM^K^^OUT;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4014,20,3)="This is Standard MUMPS code.  This is used only when sorting by a user-specified cross-reference in input variable BY(0)."
^DD(.4014,20,9)="@"
^DD(.4014,20,21,0)="^^6^6^2930204^"
^DD(.4014,20,21,1,0)="Defined only when using the BY(0) input variable to the FileMan print,"
^DD(.4014,20,21,2,0)="EN1^DIP, which allows the user to specify a cross-reference to sort on."
^DD(.4014,20,21,3,0)="The user is allowed to specify MUMPS code that can be used as an output"
^DD(.4014,20,21,4,0)="transform for any of the subheaders (i.e., subscripts in the"
^DD(.4014,20,21,5,0)="cross-reference) in the S input array.  This output transform code is"
^DD(.4014,20,21,6,0)="stored in this field."
^DD(.4014,20,23,0)="^^4^4^2930204^"
^DD(.4014,20,23,1,0)="Stores output transform code from the third piece of S(0,N) where N is"
^DD(.4014,20,23,2,0)="the sort level.  This is an input array used in conjunction with BY(0)"
^DD(.4014,20,23,3,0)="when user specifies a specific cross-reference to use for the sort, in"
^DD(.4014,20,23,4,0)="in the FileMan print routine EN1^DIP."
^DD(.4014,20,"DT")="2930204"
^DD(.4014,21,0)="TEXT SORT FLAG^S^SORT:SORT LIKE TEXT;RANGE:TREAT RANGE LIKE TEXT;^SRTTXT;1^Q"
^DD(.4014,21,21,0)="^^12^12^2931221^"
^DD(.4014,21,21,1,0)="This flag will be set in one of two cases."
^DD(.4014,21,21,2,0)=" 1) If the user entered the ;TXT qualifier, the flag will be set to"
^DD(.4014,21,21,3,0)="""SORT"", and will cause a space to be inserted at the beginning of each"
^DD(.4014,21,21,4,0)="sort value, causing even numeric fields to be sorted as if they were text."
^DD(.4014,21,21,5,0)=" 2) If the user entered a FROM or TO value that is a non-canonic number,"
^DD(.4014,21,21,6,0)="the flag will be set to RANGE, and will cause sort values that are numeric"
^DD(.4014,21,21,7,0)="to be treated as if they were text, when seeing whether they fall within"
^DD(.4014,21,21,8,0)="the from/to range.  However, they will still sort like numbers (MUMPS sort"
^DD(.4014,21,21,9,0)="sequence)."
^DD(.4014,21,21,10,0)=" "
^DD(.4014,21,21,11,0)="The flag is set automatically when the user is entering the sort fields in"
^DD(.4014,21,21,12,0)="^DIP, and the from/to values in ^DIP1."
^DD(.4014,21,"DT")="2931221"
^DD(.4014,"B","ASK FOR FROM AND TO",4.3)=""
^DD(.4014,"B","COMPUTED FIELD CODE",16)=""
^DD(.4014,"B","COMPUTED FIELD TYPE",4.2)=""
^DD(.4014,"B","CROSS REFERENCE DATA",9)=""
^DD(.4014,"B","DATA TYPE FOR SORTING",15)=""
^DD(.4014,"B","DESCRIPTION OF SORT",12)=""
^DD(.4014,"B","FIELD NAME",3)=""
^DD(.4014,"B","FIELD NO.",2)=""
^DD(.4014,"B","FILE OR SUBFILE NO.",.01)=""
^DD(.4014,"B","FROM VALUE EXTERNAL",6)=""
^DD(.4014,"B","FROM VALUE INTERNAL",5)=""
^DD(.4014,"B","FROM VALUE PRINTABLE",6.5)=""
^DD(.4014,"B","GET CODE",10)=""
^DD(.4014,"B","MULTIPLE FIELD DATA",17)=""
^DD(.4014,"B","OVERFLOW DATA",19)=""
^DD(.4014,"B","POINT TO CROSS REFERENCE",9.5)=""
^DD(.4014,"B","PROBABILITY RATING",14)=""
^DD(.4014,"B","QUERY CONDITION",11)=""
^DD(.4014,"B","RELATIONAL JUMP FIELD DATA",18)=""
^DD(.4014,"B","SEARCH EFFICIENCY RATING",13)=""
^DD(.4014,"B","SORT QUALIFIERS AFTER FIELD",4.1)=""
^DD(.4014,"B","SORT QUALIFIERS BEFORE FIELD",4)=""
^DD(.4014,"B","SUBHEADER OUTPUT TRANSFORM",20)=""
^DD(.4014,"B","TEXT SORT FLAG",21)=""
^DD(.4014,"B","TO VALUE EXTERNAL",8)=""
^DD(.4014,"B","TO VALUE INTERNAL",7)=""
^DD(.4014,"B","TO VALUE PRINTABLE",8.5)=""
^DD(.4014,"GL",0,1,.01)=""
^DD(.4014,"GL",0,2,2)=""
^DD(.4014,"GL",0,3,3)=""
^DD(.4014,"GL",0,4,4)=""
^DD(.4014,"GL",0,5,4.1)=""
^DD(.4014,"GL",0,7,4.2)=""
^DD(.4014,"GL",0,10,15)=""
^DD(.4014,"GL",1,0,17)=""
^DD(.4014,"GL",2,0,18)=""
^DD(.4014,"GL",3,0,19)=""
^DD(.4014,"GL","ASK",1,4.3)=""
^DD(.4014,"GL","CM","E1,245",16)=""
^DD(.4014,"GL","F",1,5)=""
^DD(.4014,"GL","F",2,6)=""
^DD(.4014,"GL","F",3,6.5)=""
^DD(.4014,"GL","GET","E1,245",10)=""
^DD(.4014,"GL","IX","E1,245",9)=""
^DD(.4014,"GL","OUT","E1,245",20)=""
^DD(.4014,"GL","PTRIX","E1,245",9.5)=""
^DD(.4014,"GL","QCON","E1,245",11)=""
^DD(.4014,"GL","SER",1,13)=""
^DD(.4014,"GL","SER",2,14)=""
^DD(.4014,"GL","SRTTXT",1,21)=""
^DD(.4014,"GL","T",1,7)=""
^DD(.4014,"GL","T",2,8)=""
^DD(.4014,"GL","T",3,8.5)=""
^DD(.4014,"GL","TXT","E1,200",12)=""
^DD(.4014,"IX",.01)=""
^DD(.4014,"RQ",.01)=""
^DD(.4014,"SB",.40141,17)=""
^DD(.4014,"SB",.401418,18)=""
^DD(.4014,"SB",.401419,19)=""
^DD(.40141,0)="MULTIPLE FIELD DATA SUB-FIELD^^1^2"
^DD(.40141,0,"DT")="2930201"
^DD(.40141,0,"IX","B",.40141,.01)=""
^DD(.40141,0,"NM","MULTIPLE FIELD DATA")=""
^DD(.40141,0,"UP")=".4014"
^DD(.40141,.01,0)="MULT.FILE OR SUBFILE NO.^MNJ13,5^^0;1^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(.40141,.01,1,0)="^.1"
^DD(.40141,.01,1,1,0)=".40141^B"
^DD(.40141,.01,1,1,1)="S ^DIBT(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(.40141,.01,1,1,2)="K ^DIBT(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(.40141,.01,3)="Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  This is the file/subfile number when sorting by a multiple field."
^DD(.40141,.01,21,0)="^^4^4^2930201^"
^DD(.40141,.01,21,1,0)="All files or subfiles needed to get back up to the top level from a"
^DD(.40141,.01,21,2,0)="multiple field will be represented by an entry in this field.  The"
^DD(.40141,.01,21,3,0)="file or subfile number will be used as a subscript in the DPP array"
^DD(.40141,.01,21,4,0)="during the sort/print processing."
^DD(.40141,.01,"DT")="2930201"
^DD(.40141,1,0)="NODE^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(.40141,1,3)="Answer must be 1-50 characters in length.  This is the node from which the data is descendant."
^DD(.40141,1,21,0)="^^1^1^2930201^"
^DD(.40141,1,21,1,0)="This field contains the node from which the multiple data is descendant."
^DD(.40141,1,"DT")="2930201"
^DD(.40141,"B","MULT.FILE OR SUBFILE NO.",.01)=""
^DD(.40141,"B","NODE",1)=""
^DD(.40141,"GL",0,1,.01)=""
^DD(.40141,"GL",0,2,1)=""
^DD(.40141,"IX",.01)=""
^DD(.401418,0)="RELATIONAL JUMP FIELD DATA SUB-FIELD^^5^6"
^DD(.401418,0,"DT")="2930201"
^DD(.401418,0,"IX","B",.401418,.01)=""
^DD(.401418,0,"NM","RELATIONAL JUMP FIELD DATA")=""
^DD(.401418,0,"UP")=".4014"
^DD(.401418,.01,0)="RELATIONAL START FILE NO.^MNJ13,5^^0;1^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(.401418,.01,1,0)="^.1"
^DD(.401418,.01,1,1,0)=".401418^B"
^DD(.401418,.01,1,1,1)="S ^DIBT(DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(.401418,.01,1,1,2)="K ^DIBT(DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(.401418,.01,3)="Type a Number between 0 and 9999999.99999, 5 Decimal Digits"
^DD(.401418,.01,21,0)="^^3^3^2930201^^^^"
^DD(.401418,.01,21,1,0)="Data will appear here if sorting by a field that must be gotten to using"
^DD(.401418,.01,21,2,0)="a relational jump.  This will be the file or subfile number from which"
^DD(.401418,.01,21,3,0)="the user is jumping (i.e., the starting point)."
^DD(.401418,.01,23,0)="^^1^1^2930201^"
^DD(.401418,.01,23,1,0)="Built in COLON^DIP0 during the sort/print."
^DD(.401418,.01,"DT")="2930201"
^DD(.401418,1,0)="NEXT SUBSCRIPT^RNJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(.401418,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits.  Subscript used in the DPP array during the sort/print option."
^DD(.401418,1,21,0)="^^4^4^2930201^"
^DD(.401418,1,21,1,0)="This field contains a subscript used n the DPP array during the"
^DD(.401418,1,21,2,0)="sort/print.  The subscript is generated by DICOMP (using the level"
^DD(.401418,1,21,3,0)="number multiplied by 100 I think).  It results in building a node"
^DD(.401418,1,21,4,0)="like DPP(DJ,file/subfile no.,subscript)=data."
^DD(.401418,1,23,0)="^^1^1^2930201^"
^DD(.401418,1,23,1,0)="Built by COLON^DIP0 routine."
^DD(.401418,1,"DT")="2930201"
^DD(.401418,2,0)="TO FILE OR SUBFILE^NJ13,5^^0;3^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(.401418,2,3)="Type a Number between 0 and 9999999.99999, 5 Decimal Digits.  The file or subfile number to which we are jumping using a relational jump."
^DD(.401418,2,21,0)="^^2^2^2930201^"
^DD(.401418,2,21,1,0)="This field contains the file or subfile number to which we are making"
^DD(.401418,2,21,2,0)="the relational jump (i.e., the destination file)."
^DD(.401418,2,23,0)="^^1^1^2930201^^"
^DD(.401418,2,23,1,0)="Built in COLON^DIP0 during the sort/print."
^DD(.401418,2,"DT")="2930201"
^DD(.401418,3,0)="GLOBAL REFERENCE^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(.401418,3,3)="Answer must be 1-50 characters in length.  Contains the global reference of the file to which we are jumping relationally."
^DD(.401418,3,21,0)="^^2^2^2930201^"
^DD(.401418,3,21,1,0)="This field contains the global reference of the file to which we are"
^DD(.401418,3,21,2,0)="jumping relationally (i.e., the destination file)."
^DD(.401418,3,23,0)="^^1^1^2930201^"
^DD(.401418,3,23,1,0)="Built by COLON^DIP0 during the sort/print option."
^DD(.401418,3,"DT")="2930201"
^DD(.401418,4,0)="MULTIVALUED FLAG^S^0:NOT MULTI-VALUED;1:YES, MULTI-VALUED;^0;5^Q"
^DD(.401418,4,21,0)="^^6^6^2930201^"
^DD(.401418,4,21,1,0)="This flag indicates whether the relational jump will result in going to"
^DD(.401418,4,21,2,0)="a file that has a many-to-one relationship to the starting (home) file"
^DD(.401418,4,21,3,0)="(i.e., a jump to a backwards pointer) or a one-to-one relationship (i.e.,"
^DD(.401418,4,21,4,0)="a forwards pointer jump).  The flag will be set to 1 to indicate that"
^DD(.401418,4,21,5,0)="that there is a many-to-one or multi-valued relationship to the home"
^DD(.401418,4,21,6,0)="file, or to 0 if not."
^DD(.401418,4,23,0)="^^1^1^2930201^"
^DD(.401418,4,23,1,0)="Set in COLON^DIP0 during the sort/print option."
^DD(.401418,4,"DT")="2930201"
^DD(.401418,5,0)="RELATIONAL CODE^K^^RCOD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.401418,5,3)="This is Standard MUMPS code, used to make a relational jump."
^DD(.401418,5,9)="@"
^DD(.401418,5,21,0)="^^2^2^2930201^"
^DD(.401418,5,21,1,0)="This is the MUMPS code needed to perform the relational jump during the"
^DD(.401418,5,21,2,0)="sort part of the sort/print option."
^DD(.401418,5,23,0)="^^1^1^2930201^"
^DD(.401418,5,23,1,0)="Generated from COLON^DIP0 during the sort/print option."
^DD(.401418,5,"DT")="2930201"
^DD(.401418,"B","GLOBAL REFERENCE",3)=""
^DD(.401418,"B","MULTIVALUED FLAG",4)=""
^DD(.401418,"B","NEXT SUBSCRIPT",1)=""
^DD(.401418,"B","RELATIONAL CODE",5)=""
^DD(.401418,"B","RELATIONAL START FILE NO.",.01)=""
^DD(.401418,"B","TO FILE OR SUBFILE",2)=""
^DD(.401418,"GL",0,1,.01)=""
^DD(.401418,"GL",0,2,1)=""
^DD(.401418,"GL",0,3,2)=""
^DD(.401418,"GL",0,4,3)=""
^DD(.401418,"GL",0,5,4)=""
^DD(.401418,"GL","RCOD","E1,245",5)=""
^DD(.401418,"IX",.01)=""
^DD(.401418,"RQ",1)=""
^DD(.401419,0)="OVERFLOW DATA SUB-FIELD^^2^3"
^DD(.401419,0,"DT")="2930201"
^DD(.401419,0,"IX","B",.401419,.01)=""
^DD(.401419,0,"NM","OVERFLOW DATA")=""
^DD(.401419,0,"UP")=".4014"
^DD(.401419,.01,0)="FIRST SUBSCRIPT FOR OVERFLOW^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(.401419,.01,1,0)="^.1"
^DD(.401419,.01,1,1,0)=".401419^B"
^DD(.401419,.01,1,1,1)="S ^DIBT(DA(2),2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(.401419,.01,1,1,2)="K ^DIBT(DA(2),2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(.401419,.01,3)="Answer must be 1-20 characters in length.  This multiple contains overflow code needed for sorting by relational or computed fields."
^DD(.401419,.01,"DT")="2930201"
^DD(.401419,1,0)="SECOND SUBSCRIPT FOR OVERFLOW^NJ10,4^^0;2^K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(.401419,1,3)="Type a Number between 0 and 99999.9999, 4 Decimal Digits"
^DD(.401419,1,21,0)="^^4^4^2930201^"
^DD(.401419,1,21,1,0)="This field contains the second subscript from the part of the DPP array"
^DD(.401419,1,21,2,0)="that contains overflow code executed when sorting by a field that is"
^DD(.401419,1,21,3,0)="gotten to relationally or a computed field.  Overflow code is generated"
^DD(.401419,1,21,4,0)="when needed by DICOMP.  This field will typically look something like 9.2."
^DD(.401419,1,23,0)="^^1^1^2930201^"
^DD(.401419,1,23,1,0)="Generated by DICOMP from ^DIP0 during the sort/print option."
^DD(.401419,1,"DT")="2930201"
^DD(.401419,2,0)="OVERFLOW CODE^K^^OVF0;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.401419,2,3)="This is Standard MUMPS code."
^DD(.401419,2,9)="@"
^DD(.401419,2,21,0)="^^3^3^2930201^"
^DD(.401419,2,21,1,0)="This is MUMPS code generated when needed by DICOMP, when sorting by a"
^DD(.401419,2,21,2,0)="field that must be gotten to relationally, or a computed field.  This"
^DD(.401419,2,21,3,0)="will only be used if DICOMP generates overflow code in the X array."
^DD(.401419,2,23,0)="^^1^1^2930201^"
^DD(.401419,2,23,1,0)="Generated by DICOMP from ^DIP0 during the sort/print option."
^DD(.401419,2,"DT")="2930201"
^DD(.401419,"B","FIRST SUBSCRIPT FOR OVERFLOW",.01)=""
^DD(.401419,"B","OVERFLOW CODE",2)=""
^DD(.401419,"B","SECOND SUBSCRIPT FOR OVERFLOW",1)=""
^DD(.401419,"GL",0,1,.01)=""
^DD(.401419,"GL",0,2,1)=""
^DD(.401419,"GL","OVF0","E1,245",2)=""
^DD(.401419,"IX",.01)=""
^DD(.402,0)="FIELD^^1819^12"
^DD(.402,0,"DT")="2950909"
^DD(.402,0,"ID","WRITE")="N D,D1,D2 S D2=^(0) S:$X>30 D1(1,""F"")=""!"" S D=$P(D2,U,2) S:D D1(2)=""(""_$$FMTE^DILIBF(D)_"")"",D1(2,""F"")=""?30"" S D=$P(D2,U,5) S:D D1(3)="" User #""_D,D1(3,""F"")=""?50"" S D=$P(D2,U,4) S:D D1(4)="" File #""_D,D1(4,""F"")=""?59"" D EN^DDIOL(.D1)"
^DD(.402,0,"ID","WRITED")="I $G(DZ)?1""???"".E N % S %=0 F  S %=$O(^DIE(Y,""%D"",%)) Q:%'>0  I $D(^(%,0))#2 D EN^DDIOL(^(0),"""",""!?5"") ;;.4,1819,0 COMPILED^CJ3^^ ; ^S X=$S('$D(^DIPT(D0,""ROU""))#2:""NO"",^(""ROU"")="""":""NO"",1:""YES"")"
^DD(.402,0,"IX","B",.402,.01)=""
^DD(.402,0,"NM","INPUT TEMPLATE")=""
^DD(.402,0,"PT",43,70)=""
^DD(.402,0,"PT",43.7,5)=""
^DD(.402,0,"PT",8989.3,12)=""
^DD(.402,0,"VR")="22.0"
^DD(.402,.01,0)="NAME^F^^0;1^K:$L(X)<2!($L(X)>30) X"
^DD(.402,.01,1,0)="^.1^2^2"
^DD(.402,.01,1,1,0)=".402^B"
^DD(.402,.01,1,1,1)="S @(DIC_""""""B"""",X,DA)="""""""""")"
^DD(.402,.01,1,1,2)="K @(DIC_""""""B"""",X,DA)"")"
^DD(.402,.01,1,2,0)="^^MUMPS"
^DD(.402,.01,1,2,1)="X ""S %=$P(""_DIC_""DA,0),U,4) S:$L(%) ""_DIC_""""""F""""_+%,X,DA)=1"""
^DD(.402,.01,1,2,2)="X ""S %=$P(""_DIC_""DA,0),U,4) K:$L(%) ""_DIC_""""""F""""_+%,X,DA)"""
^DD(.402,.01,1,3,0)="^^MUMPS"
^DD(.402,.01,1,3,1)="Q"
^DD(.402,.01,1,3,2)="S X=-1 X ""F  S X=$O(""_DIC_""""""AF"""",X)) Q:X=""""""""  K:'X ^(X,DA) S Y=0 F  S Y=$O(""_DIC_""""""AF"""",X,Y)) Q:Y'>0  K:$D(^(Y,DA)) ^(DA)"" S X=-1 S:$G(Y)="""" Y=-1"
^DD(.402,.01,3)="2-30 CHARACTERS"
^DD(.402,2,0)="DATE CREATED^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(.402,3,0)="READ ACCESS^F^^0;3^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(.402,4,0)="FILE^P1'I^DIC(^0;4^Q"
^DD(.402,4,1,0)="^.1^1^1"
^DD(.402,4,1,1,0)="^^^MUMPS"
^DD(.402,4,1,1,1)="X ""S %=$P(""_DIC_""DA,0),U,1),""_DIC_""""""F""""_+X,%,DA)=1"""
^DD(.402,4,1,1,2)="Q"
^DD(.402,5,0)="USER #^N^^0;5^Q"
^DD(.402,6,0)="WRITE ACCESS^F^^0;6^I DUZ(0)'=""@"" F I=1:1:$L(X) I DUZ(0)'[$E(X,I) K X Q"
^DD(.402,7,0)="DATE LAST USED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(.402,10,0)="DESCRIPTION^.4021^^%D;0"
^DD(.402,1620,0)="EDIT FIELDS^Cm^^ ; ^D EN^DIET"
^DD(.402,1620,21,0)="^"
^DD(.402,1620,21,1,0)="This multi-line field displays all the ""EDIT"" prompts of this Input Template"
^DD(.402,1620,23,0)="^"
^DD(.402,1620,23,1,0)="This Computed Multiple uses code in ^DIETED to build the entire displayable Input Template.  Then it is output node-by-node."
^DD(.402,1815,0)="ROUTINE INVOKED^F^^ROU;E1,13^Q"
^DD(.402,1815,9)="@"
^DD(.402,1816,0)="PREVIOUS ROUTINE INVOKED^F^^ROUOLD;E1,13^Q"
^DD(.402,1816,9)="@"
^DD(.402,1819,0)="COMPILED^CJ3^^ ; ^S X=$S('$D(^DIE(D0,""ROU""))#2:""NO"",^(""ROU"")="""":""NO"",1:""YES"")"
^DD(.402,1819,9)="^"
^DD(.402,1819,9.01)=""
^DD(.402,1819,9.1)="S X=$S('$D(^DIE(D0,""ROU""))#2:""NO"",^(""ROU"")="""":""NO"",1:""YES"")"
^DD(.402,"B","COMPILED",1819)=""
^DD(.402,"B","DATE CREATED",2)=""
^DD(.402,"B","DATE LAST USED",7)=""
^DD(.402,"B","DESCRIPTION",10)=""
^DD(.402,"B","EDIT FIELDS",1620)=""
^DD(.402,"B","FILE",4)=""
^DD(.402,"B","NAME",.01)=""
^DD(.402,"B","PREVIOUS ROUTINE INVOKED",1816)=""
^DD(.402,"B","READ ACCESS",3)=""
^DD(.402,"B","ROUTINE INVOKED",1815)=""
^DD(.402,"B","USER #",5)=""
^DD(.402,"B","WRITE ACCESS",6)=""
^DD(.402,"GL",0,1,.01)=""
^DD(.402,"GL",0,2,2)=""
^DD(.402,"GL",0,3,3)=""
^DD(.402,"GL",0,4,4)=""
^DD(.402,"GL",0,5,5)=""
^DD(.402,"GL",0,6,6)=""
^DD(.402,"GL",0,7,7)=""
^DD(.402,"GL","%D",0,10)=""
^DD(.402,"GL","ROU","E1,13",1815)=""
^DD(.402,"GL","ROUOLD","E1,13",1816)=""
^DD(.402,"IX",.01)=""
^DD(.402,"IX",4)=""
^DD(.402,"SB",.4021,10)=""
^DD(.4021,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.4021,0,"NM","DESCRIPTION")=""
^DD(.4021,0,"UP")=".402"
^DD(.4021,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.4021,"B","DESCRIPTION",.01)=""
^DD(.4021,"GL",0,1,.01)=""
^DD(.403,0)="FIELD^^40^18"
^DD(.403,0,"DT")="2941018"
^DD(.403,0,"ID","WRITE")="N D,D1,D2 S D2=^(0) S:$X>30 D1(1,""F"")=""!"" S D=$P(D2,U,5) S:D D1(2)=""(""_$$FMTE^DILIBF(D)_"")"",D1(2,""F"")=""?30"" S D=$P(D2,U,4) S:D D1(3)=""User #""_D,D1(3,""F"")=""?50"" S D=$P(D2,U,8) S:D D1(4)="" File #""_D,D1(4,""F"")=""?59"" D EN^DDIOL(.D1)"
^DD(.403,0,"ID","WRITED")="I $G(DZ)?1""???"".E N D S D=0 F  S D=$O(^DIST(.403,Y,15,D)) Q:D'>0  I $D(^(D,0))#2 D EN^DDIOL(^(0),"""",""!?5"")"
^DD(.403,0,"IX","AB",.4032,.01)=""
^DD(.403,0,"IX","AC",.4031,1)=""
^DD(.403,0,"IX","AY",.403,.01)=""
^DD(.403,0,"IX","B",.403,.01)=""
^DD(.403,0,"IX","C",.403,6)=""
^DD(.403,0,"IX","F",.403,7)=""
^DD(.403,0,"IX","F1",.403,.01)=""
^DD(.403,0,"NM","FORM")=""
^DD(.403,0,"VR")="22.0"
^DD(.403,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X=+$P(X,""E"")) X"
^DD(.403,.01,1,0)="^.1"
^DD(.403,.01,1,1,0)=".403^B"
^DD(.403,.01,1,1,1)="S ^DIST(.403,""B"",$E(X,1,30),DA)="""""
^DD(.403,.01,1,1,2)="K ^DIST(.403,""B"",$E(X,1,30),DA)"
^DD(.403,.01,1,2,0)=".403^F1^MUMPS"
^DD(.403,.01,1,2,1)="X ""S %=$P(""_DIC_""DA,0),U,8) S:$L(%) ""_DIC_""""""F""""_%,X,DA)=1"""
^DD(.403,.01,1,2,2)="X ""S %=$P(""_DIC_""DA,0),U,8) K:$L(%) ""_DIC_""""""F""""_%,X,DA)"""
^DD(.403,.01,1,2,3)="Programmer only"
^DD(.403,.01,1,2,"%D",0)="^^6^6^2910812^"
^DD(.403,.01,1,2,"%D",1,0)="This cross-reference is used to quickly find all ScreenMan templates"
^DD(.403,.01,1,2,"%D",2,0)="associated with a file.  It has the form:"
^DD(.403,.01,1,2,"%D",3,0)=""
^DD(.403,.01,1,2,"%D",4,0)="  ^DIST(.403,""F""_file#,""formname"",DA)=1"
^DD(.403,.01,1,2,"%D",5,0)=""
^DD(.403,.01,1,2,"%D",6,0)="A comparable cross-reference also exists on the PRIMARY FILE field."
^DD(.403,.01,1,2,"DT")="2910812"
^DD(.403,.01,1,3,0)=".403^AY^MUMPS"
^DD(.403,.01,1,3,1)="Q"
^DD(.403,.01,1,3,2)="Q"
^DD(.403,.01,1,3,3)="Programmer only"
^DD(.403,.01,1,3,"%D",0)="^^7^7^2980924^"
^DD(.403,.01,1,3,"%D",1,0)="This is a no-op cross reference defined merely to document the data stored"
^DD(.403,.01,1,3,"%D",2,0)="under ^DIST(.403,form IEN,""AY"")."
^DD(.403,.01,1,3,"%D",3,0)=" "
^DD(.403,.01,1,3,"%D",4,0)="This global stores the compiled data for a Form. Form compilation occurs"
^DD(.403,.01,1,3,"%D",5,0)="automatically whenever a Form is edited through the FileMan supplied"
^DD(.403,.01,1,3,"%D",6,0)="options. The compiled data stored in this global is static information"
^DD(.403,.01,1,3,"%D",7,0)="that is used whenever a Form is run."
^DD(.403,.01,1,3,"DT")="2980904"
^DD(.403,.01,3)="Answer must be 3-30 characters in length."
^DD(.403,.01,21,0)="^^3^3^2940906^"
^DD(.403,.01,21,1,0)="Enter the name of the form, 3-30 characters in length.  The form name"
^DD(.403,.01,21,2,0)="must be unique and cannot be numeric or start with a punctuation"
^DD(.403,.01,21,3,0)="character.  It should also be namespaced."
^DD(.403,.01,"DEL",1,0)="D EN^DDIOL($C(7)_""You must use the FileMan option to delete forms."") I 1"
^DD(.403,.01,"DT")="2980904"
^DD(.403,1,0)="READ ACCESS^FX^^0;2^I DUZ(0)'=""@"" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X"
^DD(.403,1,3)="Enter VA FileMan access code(s) which control access to the form."
^DD(.403,1,21,0)="^^1^1^2931020^^"
^DD(.403,1,21,1,0)="Non-programmers can enter only their own VA FileMan access code(s)."
^DD(.403,1,"DT")="2931020"
^DD(.403,2,0)="WRITE ACCESS^FX^^0;3^I DUZ(0)'=""@"" N DDZ F DDZ=1:1:$L(X) K:DUZ(0)'[$E(X,DDZ) X"
^DD(.403,2,3)="Enter VA FileMan access code(s) which control access to the form."
^DD(.403,2,21,0)="^^1^1^2931020^"
^DD(.403,2,21,1,0)="Non-programmers can enter only their own VA FileMan access code(s)."
^DD(.403,2,"DT")="2931020"
^DD(.403,3,0)="CREATOR^NJ3,0X^^0;4^K:X'?.N X"
^DD(.403,3,3)="Enter the VA FileMan User Number of the form creator."
^DD(.403,3,21,0)="^^2^2^2931020^^"
^DD(.403,3,21,1,0)="This is the DUZ of the person who created the form.  The ScreenMan"
^DD(.403,3,21,2,0)="options to create the form automatically put a value into this field."
^DD(.403,4,0)="DATE CREATED^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(.403,4,3)="Enter the date the form was created."
^DD(.403,4,21,0)="^^2^2^2941018^^"
^DD(.403,4,21,1,0)="This is the date the form was created.  The ScreenMan options to create"
^DD(.403,4,21,2,0)="the form automatically put a value into this field."
^DD(.403,4,"DT")="2941018"
^DD(.403,5,0)="DATE LAST USED^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(.403,5,3)="Enter the date and time the form was last used."
^DD(.403,5,21,0)="^^2^2^2941018^^"
^DD(.403,5,21,1,0)="This is the date the form was last used.  ScreenMan automatically"
^DD(.403,5,21,2,0)="puts a value into this field when the form is invoked."
^DD(.403,5,"DT")="2941018"
^DD(.403,6,0)="TITLE^F^^0;7^K:$L(X)>50!($L(X)<1) X"
^DD(.403,6,1,0)="^.1"
^DD(.403,6,1,1,0)=".403^C"
^DD(.403,6,1,1,1)="S ^DIST(.403,""C"",$E(X,1,30),DA)="""""
^DD(.403,6,1,1,2)="K ^DIST(.403,""C"",$E(X,1,30),DA)"
^DD(.403,6,1,1,"DT")="2940908"
^DD(.403,6,3)="Answer must be 1-50 characters in length."
^DD(.403,6,21,0)="^^4^4^2940908^"
^DD(.403,6,21,1,0)="The TITLE property can be used by the form designer to help identify a"
^DD(.403,6,21,2,0)="form.  It is cross referenced and need not be unique.  ScreenMan does not"
^DD(.403,6,21,3,0)="automatically display the TITLE to the user, but the form designer can"
^DD(.403,6,21,4,0)="choose to define a caption-only field that displays the title to the user."
^DD(.403,6,22)=""
^DD(.403,6,"DT")="2940908"
^DD(.403,7,0)="PRIMARY FILE^RFX^^0;8^K:X'=+$P(X,""E"")!(X<2)!($L(X)>16)!'$D(^DIC(X)) X"
^DD(.403,7,1,0)="^.1"
^DD(.403,7,1,1,0)=".403^F^MUMPS"
^DD(.403,7,1,1,1)="X ""S %=$P(""_DIC_""DA,0),U) S ""_DIC_""""""F""""_X,%,DA)=1"""
^DD(.403,7,1,1,2)="X ""S %=$P(""_DIC_""DA,0),U) K ""_DIC_""""""F""""_X,%,DA)"""
^DD(.403,7,1,1,3)="Programmer only"
^DD(.403,7,1,1,"%D",0)="^^2^2^2900911^"
^DD(.403,7,1,1,"%D",0,"LE")="1"
^DD(.403,7,1,1,"%D",1,0)="This cross-reference is used to quickly find all ScreenMan templates"
^DD(.403,7,1,1,"%D",2,0)="associated with a file."
^DD(.403,7,1,1,"DT")="2900911"
^DD(.403,7,3)="Answer must be 1-16 characters in length."
^DD(.403,7,21,0)="^^2^2^2920407^"
^DD(.403,7,21,1,0)="Enter a file number, greater than or equal to 2, which represents the data"
^DD(.403,7,21,2,0)="dictionary number of the primary file for this form."
^DD(.403,7,"DT")="2920407"
^DD(.403,8,0)="DISPLAY ONLY^SI^0:NO;1:YES;^0;9^Q"
^DD(.403,8,21,0)="^^2^2^2931027^^^^"
^DD(.403,8,21,1,0)="This is a flag that indicates none of the blocks on the form are edit"
^DD(.403,8,21,2,0)="blocks.  This flag is set during form compilation."
^DD(.403,8,"DT")="2931028"
^DD(.403,9,0)="FORM ONLY^SI^0:NO;1:YES;^0;10^Q"
^DD(.403,9,21,0)="^^2^2^2931027^"
^DD(.403,9,21,1,0)="This is a flag that indicates none of the fields on the form are data"
^DD(.403,9,21,2,0)="dictionary fields.  This flag is set during form compilation."
^DD(.403,9,"DT")="2931028"
^DD(.403,10,0)="COMPILED^SI^0:NO;1:YES;^0;11^Q"
^DD(.403,10,1,0)="^.1^^0"
^DD(.403,10,21,0)="^^2^2^2940908^"
^DD(.403,10,21,1,0)="This is a flag that indicates that the form is compiled.  This flag is"
^DD(.403,10,21,2,0)="set during form compilation."
^DD(.403,10,"DT")="2940701"
^DD(.403,11,0)="PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.403,11,3)="Enter standard MUMPS code which will be executed at the beginning of the form."
^DD(.403,11,9)="@"
^DD(.403,11,21,0)="^^2^2^2940906^"
^DD(.403,11,21,1,0)="This is MUMPS code that is executed when the form is first invoked,"
^DD(.403,11,21,2,0)="before any of the pages are loaded and displayed."
^DD(.403,12,0)="POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.403,12,3)="Enter standard MUMPS code which will be executed at the end of the form."
^DD(.403,12,9)="@"
^DD(.403,12,21,0)="^^2^2^2940906^^"
^DD(.403,12,21,1,0)="This is MUMPS code that is executed before ScreenMan returns to the"
^DD(.403,12,21,2,0)="calling application."
^DD(.403,14,0)="POST SAVE^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.403,14,3)="This is Standard MUMPS code."
^DD(.403,14,9)="@"
^DD(.403,14,21,0)="^^2^2^2940906^"
^DD(.403,14,21,1,0)="This is MUMPS code that is executed when the user saves changes.  It is "
^DD(.403,14,21,2,0)="executed only if all data is valid, and after all data has been filed."
^DD(.403,14,"DT")="2930813"
^DD(.403,15,0)="DESCRIPTION^.40315^^15;0"
^DD(.403,20,0)="DATA VALIDATION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.403,20,3)="Enter standard MUMPS code."
^DD(.403,20,9)="@"
^DD(.403,20,21,0)="^^8^8^2940906^"
^DD(.403,20,21,1,0)="This is MUMPS code that is executed when the user attempts to save changes"
^DD(.403,20,21,2,0)="to the form.  If the code sets DDSERROR, the user is unable to save"
^DD(.403,20,21,3,0)="changes.  If the code sets DDSBR, the user is taken to the specified"
^DD(.403,20,21,4,0)="field."
^DD(.403,20,21,5,0)=" "
^DD(.403,20,21,6,0)="In addition to $$GET^DDSVAL, PUT^DDSVAL, and HLP^DDSUTL, you "
^DD(.403,20,21,7,0)="can use MSG^DDSUTL to print on a separate screen messages to the user "
^DD(.403,20,21,8,0)="about the validity of the data."
^DD(.403,21,0)="RECORD SELECTION PAGE^NJ5,1^^21;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"".""2N.N) X"
^DD(.403,21,3)="Type a Number between 1 and 999.9, 1 Decimal Digit"
^DD(.403,21,21,0)="^^12^12^2940906^"
^DD(.403,21,21,1,0)="Enter the page number of the page that is used for record selection."
^DD(.403,21,21,2,0)=" "
^DD(.403,21,21,3,0)="If you define a Record Selection Page, the user can select another entry"
^DD(.403,21,21,4,0)="in the file, and, if LAYGO is allowed, add another entry into the file"
^DD(.403,21,21,5,0)="without exiting the form.  The Record Selection Page should be a pop-up"
^DD(.403,21,21,6,0)="page that contains one form-only field that performs a pointer-type read"
^DD(.403,21,21,7,0)="into the Primary File of the form.  The Record Selection Page property"
^DD(.403,21,21,8,0)="should be set equal to the Page Number of the Record Selection Page."
^DD(.403,21,21,9,0)=" "
^DD(.403,21,21,10,0)="The user can open the Record Selection Page by pressing <PF1>L.  After the"
^DD(.403,21,21,11,0)="user selects a record and closes the Record Selection Page, the data for"
^DD(.403,21,21,12,0)="the selected record is displayed."
^DD(.403,21,"DT")="2930225"
^DD(.403,40,0)="PAGE^.4031I^^40;0"
^DD(.403,40,"DT")="2930218"
^DD(.403,"B","COMPILED",10)=""
^DD(.403,"B","CREATOR",3)=""
^DD(.403,"B","DATA VALIDATION",20)=""
^DD(.403,"B","DATE CREATED",4)=""
^DD(.403,"B","DATE LAST USED",5)=""
^DD(.403,"B","DESCRIPTION",15)=""
^DD(.403,"B","DISPLAY ONLY",8)=""
^DD(.403,"B","FORM ONLY",9)=""
^DD(.403,"B","NAME",.01)=""
^DD(.403,"B","PAGE",40)=""
^DD(.403,"B","POST ACTION",12)=""
^DD(.403,"B","POST SAVE",14)=""
^DD(.403,"B","PRE ACTION",11)=""
^DD(.403,"B","PRIMARY FILE",7)=""
^DD(.403,"B","READ ACCESS",1)=""
^DD(.403,"B","RECORD SELECTION PAGE",21)=""
^DD(.403,"B","TITLE",6)=""
^DD(.403,"B","WRITE ACCESS",2)=""
^DD(.403,"GL",0,1,.01)=""
^DD(.403,"GL",0,2,1)=""
^DD(.403,"GL",0,3,2)=""
^DD(.403,"GL",0,4,3)=""
^DD(.403,"GL",0,5,4)=""
^DD(.403,"GL",0,6,5)=""
^DD(.403,"GL",0,7,6)=""
^DD(.403,"GL",0,8,7)=""
^DD(.403,"GL",0,9,8)=""
^DD(.403,"GL",0,10,9)=""
^DD(.403,"GL",0,11,10)=""
^DD(.403,"GL",11,"E1,245",11)=""
^DD(.403,"GL",12,"E1,245",12)=""
^DD(.403,"GL",14,"E1,245",14)=""
^DD(.403,"GL",15,0,15)=""
^DD(.403,"GL",20,"E1,245",20)=""
^DD(.403,"GL",21,1,21)=""
^DD(.403,"GL",40,0,40)=""
^DD(.403,"IX",.01)=""
^DD(.403,"IX",6)=""
^DD(.403,"IX",7)=""
^DD(.403,"RQ",.01)=""
^DD(.403,"RQ",7)=""
^DD(.403,"SB",.4031,40)=""
^DD(.403,"SB",.40315,15)=""
^DD(.4031,0)="PAGE SUB-FIELD^^40^13"
^DD(.4031,0,"DT")="2940506"
^DD(.4031,0,"ID","WRITE")="D:$D(^(1))#2 EN^DDIOL($P(^(1),U),"""",""?12"")"
^DD(.4031,0,"IX","AC",.4031,5)=""
^DD(.4031,0,"IX","B",.4031,.01)=""
^DD(.4031,0,"IX","C",.4031,7)=""
^DD(.4031,0,"NM","PAGE")=""
^DD(.4031,0,"UP")=".403"
^DD(.4031,.01,0)="PAGE NUMBER^MNJ5,1X^^0;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"".""2N.N)!$D(^DIST(.403,DA(1),40,""B"",X)) X"
^DD(.4031,.01,1,0)="^.1"
^DD(.4031,.01,1,1,0)=".4031^B"
^DD(.4031,.01,1,1,1)="S ^DIST(.403,DA(1),40,""B"",$E(X,1,30),DA)="""""
^DD(.4031,.01,1,1,2)="K ^DIST(.403,DA(1),40,""B"",$E(X,1,30),DA)"
^DD(.4031,.01,3)="Enter a number between 1 and 999.9, up to 1 Decimal Digit, that identifies the page."
^DD(.4031,.01,21,0)="^^2^2^2940907^^^"
^DD(.4031,.01,21,1,0)="This is the unique page number of the page.  You can use this number to"
^DD(.4031,.01,21,2,0)="refer to the page in ScreenMan functions and utilities."
^DD(.4031,1,0)="HEADER BLOCK^P.404^DIST(.404,^0;2^Q"
^DD(.4031,1,1,0)="^.1"
^DD(.4031,1,1,1,0)=".403^AC"
^DD(.4031,1,1,1,1)="S ^DIST(.403,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(.4031,1,1,1,2)="K ^DIST(.403,""AC"",$E(X,1,30),DA(1),DA)"
^DD(.4031,1,1,1,"DT")="2930702"
^DD(.4031,1,3)="Enter the block which will be used as a header for this page."
^DD(.4031,1,21,0)="^^7^7^2940907^^^"
^DD(.4031,1,21,1,0)="The header block always appears at row 1, column 1 relative to the page"
^DD(.4031,1,21,2,0)="on which it is defined.  It is for display purposes only -- the user"
^DD(.4031,1,21,3,0)="is unable to navigate to any of the fields on the header block."
^DD(.4031,1,21,4,0)=" "
^DD(.4031,1,21,5,0)="Starting with Version 21 of FileMan, there is no need to use header"
^DD(.4031,1,21,6,0)="blocks.  Display-type blocks, with a coordinate of '1,1' relative to the"
^DD(.4031,1,21,7,0)="page, provide the same functionality as header blocks."
^DD(.4031,1,"DT")="2930702"
^DD(.4031,2,0)="PAGE COORDINATE^F^^0;3^K:$L(X)>7!($L(X)<1)!'(X?.N1"","".N) X"
^DD(.4031,2,3)="Enter the coordinate of the upper left corner of the page.  Answer must be two positive integers separated by a comma (,), as follows:  'Upper left row,Upper left column'."
^DD(.4031,2,21,0)="^^13^13^2940908^"
^DD(.4031,2,21,1,0)="The Page Coordinate property defines the location of the top left corner"
^DD(.4031,2,21,2,0)="of the page on the screen.  The format of a coordinate is:  Row,Column."
^DD(.4031,2,21,3,0)="Regular pages normally have a Page Coordinate of  ""1,1"".  They do not have"
^DD(.4031,2,21,4,0)="a Lower Right Coordinate."
^DD(.4031,2,21,5,0)=" "
^DD(.4031,2,21,6,0)="The Page Coordinate of pop-up pages defines the position of the top left"
^DD(.4031,2,21,7,0)="corner of the border of the pop-up page.  Pop-up pages must have a Lower"
^DD(.4031,2,21,8,0)="Right Coordinate, which defines the position of the bottom right corner of"
^DD(.4031,2,21,9,0)="the border of the pop-up page."
^DD(.4031,2,21,10,0)=" "
^DD(.4031,2,21,11,0)="All blocks on the page are positioned relative to the page on which they"
^DD(.4031,2,21,12,0)="are defined.  If a page is moved -- that is, if the Page Coordinate is"
^DD(.4031,2,21,13,0)="changed -- all blocks and all fields on that page move with it."
^DD(.4031,2,"DT")="2940908"
^DD(.4031,3,0)="NEXT PAGE^NJ5,1^^0;4^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"".""2N.N) X"
^DD(.4031,3,3)="Answer must be a Number between 1 and 999.9, 1 Decimal Digit."
^DD(.4031,3,21,0)="^^9^9^2940908^"
^DD(.4031,3,21,1,0)="Enter the page to go to when the user presses <PF1><Down> or selects the"
^DD(.4031,3,21,2,0)="NEXT PAGE command from the Command Line."
^DD(.4031,3,21,3,0)=" "
^DD(.4031,3,21,4,0)="When the user attempts a Save, ScreenMan follows the Next Page links"
^DD(.4031,3,21,5,0)="starting with the first page displayed to the user.  ScreenMan loads all"
^DD(.4031,3,21,6,0)="those pages, including any defaults, and checks that all required fields"
^DD(.4031,3,21,7,0)="have values.  If any of the required fields have null values, no Save"
^DD(.4031,3,21,8,0)="occurs.  If all required field have values, Screenman Saves the data,"
^DD(.4031,3,21,9,0)="including all defaults."
^DD(.4031,4,0)="PREVIOUS PAGE^NJ5,1^^0;5^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"".""2N.N) X"
^DD(.4031,4,3)="Answer must be a Number between 1 and 999.9, 1 Decimal Digit."
^DD(.4031,4,21,0)="^^1^1^2940907^"
^DD(.4031,4,21,1,0)="Enter the page to go to when the user presses <PF1><Up>."
^DD(.4031,5,0)="IS THIS A POP UP PAGE?^S^0:NO;1:YES;^0;6^Q"
^DD(.4031,5,1,0)="^.1"
^DD(.4031,5,1,1,0)=".4031^AC^MUMPS"
^DD(.4031,5,1,1,1)="S:X $P(^DIST(.403,DA(1),40,DA,0),U,2)="""""
^DD(.4031,5,1,1,2)="Q"
^DD(.4031,5,1,1,3)="Programmer only"
^DD(.4031,5,1,1,"%D",0)="^^1^1^2940627^"
^DD(.4031,5,1,1,"%D",1,0)="If this is a pop up page, there can be no header block."
^DD(.4031,5,1,1,"DT")="2940627"
^DD(.4031,5,3)=""
^DD(.4031,5,21,0)="^^8^8^2940908^"
^DD(.4031,5,21,1,0)="If the page is a pop-up page rather than a regular page, set this property"
^DD(.4031,5,21,2,0)="to 'YES'."
^DD(.4031,5,21,3,0)=" "
^DD(.4031,5,21,4,0)="ScreenMan displays pop-up pages with a border, on top of what is"
^DD(.4031,5,21,5,0)="already on the screen.  The top left coordinate of the pop-up page"
^DD(.4031,5,21,6,0)="defines the location of the top left corner of the border.  Pop-up"
^DD(.4031,5,21,7,0)="pages must also have a lower right coordinate, which defines the location"
^DD(.4031,5,21,8,0)="of the bottom left corner of the border."
^DD(.4031,5,"DT")="2940627"
^DD(.4031,6,0)="LOWER RIGHT COORDINATE^F^^0;7^K:$L(X)>7!($L(X)<1)!'(X?.N1"","".N) X"
^DD(.4031,6,3)="Enter the coordinate of the bottom right corner of the pop up page.  Answer must be two positive integers separated by a comma (,), as follows:  'Lower right row,Lower right column'."
^DD(.4031,6,21,0)="^^4^4^2940908^"
^DD(.4031,6,21,1,0)="The existence of a lower right coordinate implies that the page is a"
^DD(.4031,6,21,2,0)="pop-up page.  The lower right coordinate and the page coordinate define"
^DD(.4031,6,21,3,0)="the position of the border ScreenMan displays when it paints a pop-up"
^DD(.4031,6,21,4,0)="page."
^DD(.4031,6,"DT")="2940908"
^DD(.4031,7,0)="PAGE NAME^FX^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X=+$P(X,""E"")) X"
^DD(.4031,7,1,0)="^.1"
^DD(.4031,7,1,1,0)=".4031^C^MUMPS"
^DD(.4031,7,1,1,1)="S ^DIST(.403,DA(1),40,""C"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(.4031,7,1,1,2)="K ^DIST(.403,DA(1),40,""C"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(.4031,7,1,1,3)="Programmer only"
^DD(.4031,7,1,1,"%D",0)="^^2^2^2930816^"
^DD(.4031,7,1,1,"%D",1,0)="This cross reference is a regular index of the page name converted to all"
^DD(.4031,7,1,1,"%D",2,0)="upper case characters."
^DD(.4031,7,1,1,"DT")="2930816"
^DD(.4031,7,3)="Enter the name of the page, 3-30 characters in length."
^DD(.4031,7,21,0)="^^5^5^2940907^^"
^DD(.4031,7,21,1,0)="Like the Page Number, you can use the Page Name to refer to a page in"
^DD(.4031,7,21,2,0)="ScreenMan functions and utilities.  ScreenMan displays the Page Name to"
^DD(.4031,7,21,3,0)="the user if, during an attempt to file data, ScreenMan finds required"
^DD(.4031,7,21,4,0)="fields with null values.  ScreenMan uses the Caption of the field and the"
^DD(.4031,7,21,5,0)="Page Name to inform the user of the location of the required field."
^DD(.4031,7,"DT")="2931020"
^DD(.4031,8,0)="PARENT FIELD^FX^^1;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>92!($L(X)<5)!'(X?1.E1"",""1.E1"",""1.E) X I $D(X) D PFIELD^DDSIT"
^DD(.4031,8,1,0)="^.1^^0"
^DD(.4031,8,3)="Answer must be 5-92 characters in length."
^DD(.4031,8,21,0)="^^25^25^2940907^"
^DD(.4031,8,21,1,0)="This property can be used instead of Subpage Link to link a subpage to a"
^DD(.4031,8,21,2,0)="field."
^DD(.4031,8,21,3,0)=" "
^DD(.4031,8,21,4,0)="Parent Field has the following format:"
^DD(.4031,8,21,5,0)=" "
^DD(.4031,8,21,6,0)="       Field id,Block id,Page id"
^DD(.4031,8,21,7,0)=" "
^DD(.4031,8,21,8,0)="where,"
^DD(.4031,8,21,9,0)=" "
^DD(.4031,8,21,10,0)="       Field id  =  Field Order number; or"
^DD(.4031,8,21,11,0)="                    Caption of the field; or"
^DD(.4031,8,21,12,0)="                    Unique Name of the field"
^DD(.4031,8,21,13,0)=" "
^DD(.4031,8,21,14,0)="       Block id  =  Block Order number; or"
^DD(.4031,8,21,15,0)="                    Block Name"
^DD(.4031,8,21,16,0)=" "
^DD(.4031,8,21,17,0)="       Page id   =  Page Number; or"
^DD(.4031,8,21,18,0)="                    Page Name"
^DD(.4031,8,21,19,0)=" "
^DD(.4031,8,21,20,0)="For example:"
^DD(.4031,8,21,21,0)=" "
^DD(.4031,8,21,22,0)="       ZZFIELD 1,ZZBLOCK 1,ZZPAGE 1"
^DD(.4031,8,21,23,0)=" "
^DD(.4031,8,21,24,0)="identifies the field with Caption or Unique Name ""ZZFIELD 1,"" on the block"
^DD(.4031,8,21,25,0)="named ""ZZBLOCK 1,"" on the page named ""ZZPAGE 1""."
^DD(.4031,8,"DT")="2931201"
^DD(.4031,11,0)="PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4031,11,3)="Enter Standard MUMPS code that will be executed before the user reaches a page."
^DD(.4031,11,9)="@"
^DD(.4031,11,21,0)="^^1^1^2940907^^^^"
^DD(.4031,11,21,1,0)="This MUMPS code is executed when the user reaches a page."
^DD(.4031,11,22)=""
^DD(.4031,12,0)="POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4031,12,3)="Enter Standard MUMPS code that will be executed after the user leaves a page."
^DD(.4031,12,9)="@"
^DD(.4031,12,21,0)="^^1^1^2940907^^^"
^DD(.4031,12,21,1,0)="This MUMPS code is executed when the user leaves the page."
^DD(.4031,15,0)="DESCRIPTION^.403115^^15;0"
^DD(.4031,40,0)="BLOCK^.4032IP^^40;0"
^DD(.4031,"B","BLOCK",40)=""
^DD(.4031,"B","DESCRIPTION",15)=""
^DD(.4031,"B","HEADER BLOCK",1)=""
^DD(.4031,"B","IS THIS A POP UP PAGE?",5)=""
^DD(.4031,"B","LOWER RIGHT COORDINATE",6)=""
^DD(.4031,"B","NEXT PAGE",3)=""
^DD(.4031,"B","PAGE COORDINATE",2)=""
^DD(.4031,"B","PAGE NAME",7)=""
^DD(.4031,"B","PAGE NUMBER",.01)=""
^DD(.4031,"B","PARENT FIELD",8)=""
^DD(.4031,"B","POST ACTION",12)=""
^DD(.4031,"B","PRE ACTION",11)=""
^DD(.4031,"B","PREVIOUS PAGE",4)=""
^DD(.4031,"GL",0,1,.01)=""
^DD(.4031,"GL",0,2,1)=""
^DD(.4031,"GL",0,3,2)=""
^DD(.4031,"GL",0,4,3)=""
^DD(.4031,"GL",0,5,4)=""
^DD(.4031,"GL",0,6,5)=""
^DD(.4031,"GL",0,7,6)=""
^DD(.4031,"GL",1,1,7)=""
^DD(.4031,"GL",1,2,8)=""
^DD(.4031,"GL",11,"E1,245",11)=""
^DD(.4031,"GL",12,"E1,245",12)=""
^DD(.4031,"GL",15,0,15)=""
^DD(.4031,"GL",40,0,40)=""
^DD(.4031,"IX",.01)=""
^DD(.4031,"IX",1)=""
^DD(.4031,"IX",5)=""
^DD(.4031,"IX",7)=""
^DD(.4031,"SB",.403115,15)=""
^DD(.4031,"SB",.4032,40)=""
^DD(.403115,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.403115,0,"DT")="2910204"
^DD(.403115,0,"NM","DESCRIPTION")=""
^DD(.403115,0,"UP")=".4031"
^DD(.403115,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.403115,.01,3)="Enter text which describes the page."
^DD(.403115,.01,21,0)="^^1^1^2940908^^"
^DD(.403115,.01,21,1,0)="Enter text that describes this page."
^DD(.403115,"B","DESCRIPTION",.01)=""
^DD(.403115,"GL",0,1,.01)=""
^DD(.40315,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.40315,0,"DT")="2910204"
^DD(.40315,0,"NM","DESCRIPTION")=""
^DD(.40315,0,"UP")=".403"
^DD(.40315,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.40315,.01,3)=""
^DD(.40315,.01,21,0)="^^1^1^2940908^^^^"
^DD(.40315,.01,21,1,0)="Enter text that describes this form."
^DD(.40315,"B","DESCRIPTION",.01)=""
^DD(.40315,"GL",0,1,.01)=""
^DD(.4032,0)="BLOCK SUB-FIELD^^12^13"
^DD(.4032,0,"DT")="2940506"
^DD(.4032,0,"ID","WRITE")="D EN^DDIOL(""(Block Order ""_$P(^(0),U,2)_"")"","""",""?35"")"
^DD(.4032,0,"IX","AC",.4032,1)=""
^DD(.4032,0,"IX","B",.4032,.01)=""
^DD(.4032,0,"NM","BLOCK")=""
^DD(.4032,0,"UP")=".4031"
^DD(.4032,.01,0)="BLOCK NAME^MP.404'X^DIST(.404,^0;1^S:$D(X) DINUM=X"
^DD(.4032,.01,1,0)="^.1"
^DD(.4032,.01,1,1,0)=".4032^B"
^DD(.4032,.01,1,1,1)="S ^DIST(.403,DA(2),40,DA(1),40,""B"",$E(X,1,30),DA)="""""
^DD(.4032,.01,1,1,2)="K ^DIST(.403,DA(2),40,DA(1),40,""B"",$E(X,1,30),DA)"
^DD(.4032,.01,1,2,0)=".403^AB"
^DD(.4032,.01,1,2,1)="S ^DIST(.403,""AB"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(.4032,.01,1,2,2)="K ^DIST(.403,""AB"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(.4032,.01,1,2,"%D",0)="^^2^2^2930521^"
^DD(.4032,.01,1,2,"%D",1,0)="This cross reference provides an index that can be used to determine"
^DD(.4032,.01,1,2,"%D",2,0)="the forms on which a block is used."
^DD(.4032,.01,1,2,"DT")="2930521"
^DD(.4032,.01,21,0)="^^1^1^2940908^^^^"
^DD(.4032,.01,21,1,0)="Enter the name of the block to be placed on this page of the form."
^DD(.4032,.01,"DT")="2930521"
^DD(.4032,1,0)="BLOCK ORDER^RNJ4,1X^^0;2^K:+X'=X!(X>99.9)!(X<1)!(X?.E1"".""2N.N)!$D(^DIST(.403,DA(2),40,DA(1),40,""AC"",X)) X"
^DD(.4032,1,1,0)="^.1"
^DD(.4032,1,1,1,0)=".4032^AC"
^DD(.4032,1,1,1,1)="S ^DIST(.403,DA(2),40,DA(1),40,""AC"",$E(X,1,30),DA)="""""
^DD(.4032,1,1,1,2)="K ^DIST(.403,DA(2),40,DA(1),40,""AC"",$E(X,1,30),DA)"
^DD(.4032,1,1,1,"%D",0)="^^2^2^2910118^^"
^DD(.4032,1,1,1,"%D",1,0)="This cross-reference is used to ensure that order numbers are unique for"
^DD(.4032,1,1,1,"%D",2,0)="the page."
^DD(.4032,1,1,1,"DT")="2910118"
^DD(.4032,1,3)="Enter a number between 1 and 99.9, 1 Decimal Digit, which represents the order in which the block will be processed within the page.  This number must be unique for the page."
^DD(.4032,1,21,0)="^^5^5^2940907^^"
^DD(.4032,1,21,1,0)="The Block Order determines the order users traverse fields on a page when"
^DD(.4032,1,21,2,0)="they press <PF1><PF4> to go to the next block, or press <RET> to move from"
^DD(.4032,1,21,3,0)="the last field on one block to the first field on the next.  When the user"
^DD(.4032,1,21,4,0)="first reaches a page, ScreenMan places the user on the block with the"
^DD(.4032,1,21,5,0)="lowest Block Order number."
^DD(.4032,2,0)="BLOCK COORDINATE^F^^0;3^K:$L(X)>7!($L(X)<1)!'(X?.N1"","".N) X"
^DD(.4032,2,3)="Enter the block coordinate relative to the page coordinate.  Answer must be two positive integers separated by a comma (,), as follows:  'Upper left row,Upper left column.'"
^DD(.4032,2,21,0)="^^2^2^2940907^^"
^DD(.4032,2,21,1,0)="The block coordinate is relative to the page coordinate.  The first row"
^DD(.4032,2,21,2,0)="and column on the block have a coordinate of 1,1."
^DD(.4032,2,"DT")="2940908"
^DD(.4032,3,0)="TYPE OF BLOCK^S^e:EDIT;d:DISPLAY;^0;4^Q"
^DD(.4032,3,3)=""
^DD(.4032,3,21,0)="^^7^7^2940907^"
^DD(.4032,3,21,1,0)="Enter 'EDIT' if users can navigate to as well as edit fields in this"
^DD(.4032,3,21,2,0)="block.  Enter 'DISPLAY' if users cannot edit any of the fields in this"
^DD(.4032,3,21,3,0)="block.  User's can navigate to a DISPLAY block only if it contains"
^DD(.4032,3,21,4,0)="multiple or word processing fields, in which case, the cursor stops at any"
^DD(.4032,3,21,5,0)="of those two kinds of fields so that the user can press <RET> to view or"
^DD(.4032,3,21,6,0)="edit the subfields in the multiple or invoke an editor to view the"
^DD(.4032,3,21,7,0)="contents of the word processing field."
^DD(.4032,3,"DT")="2940413"
^DD(.4032,4,0)="POINTER LINK^FX^^1;1^K:$L(X)>245!($L(X)<1) X I $D(X) D PLINK^DDSIT"
^DD(.4032,4,3)="Answer must be 1-245 characters in length."
^DD(.4032,4,21,0)="^^9^9^2940907^^"
^DD(.4032,4,21,1,0)="If the fields displayed in this block are reached through a relational"
^DD(.4032,4,21,2,0)="jump from the primary file of the form, enter the relational expression"
^DD(.4032,4,21,3,0)="that describes this jump.  Your frame of reference is the primary file of"
^DD(.4032,4,21,4,0)="the form."
^DD(.4032,4,21,5,0)=" "
^DD(.4032,4,21,6,0)="For example, if the primary file has a field #999 called TEST that points"
^DD(.4032,4,21,7,0)="to the file associated with this block, enter"
^DD(.4032,4,21,8,0)=" "
^DD(.4032,4,21,9,0)="     999 or TEST"
^DD(.4032,4,"DT")="2931201"
^DD(.4032,5,0)="REPLICATION^NJ3,0^^2;1^K:+X'=X!(X>999)!(X<2)!(X?.E1"".""1N.N) X"
^DD(.4032,5,3)="Type a Number between 2 and 999, 0 Decimal Digits"
^DD(.4032,5,21,0)="^^3^3^2940907^^"
^DD(.4032,5,21,1,0)="If this is a repeating block, enter the number of times the fields"
^DD(.4032,5,21,2,0)="defined in this block should be replicated.  If used, this number must"
^DD(.4032,5,21,3,0)="be greater than 1."
^DD(.4032,5,"DT")="2940503"
^DD(.4032,6,0)="INDEX^F^^2;2^K:$L(X)>63!($L(X)<1) X"
^DD(.4032,6,3)="Answer must be 1-63 characters in length."
^DD(.4032,6,21,0)="^^7^7^2941020^"
^DD(.4032,6,21,1,0)="Enter the name of the cross reference that should be used to pick up the"
^DD(.4032,6,21,2,0)="subentries in the multiple.  ScreenMan will initially display the"
^DD(.4032,6,21,3,0)="subentries to the user sorted in the order defined by this index.  The"
^DD(.4032,6,21,4,0)="default INDEX is B."
^DD(.4032,6,21,5,0)=" "
^DD(.4032,6,21,6,0)="If the multiple has no index, or you wish to display the subentries"
^DD(.4032,6,21,7,0)="in record number order, enter !IEN."
^DD(.4032,6,"DT")="2940503"
^DD(.4032,7,0)="INITIAL POSITION^S^f:FIRST;l:LAST;n:NEW;^2;3^Q"
^DD(.4032,7,21,0)="^^5^5^2940908^"
^DD(.4032,7,21,1,0)="This is the position in the list where the cursor should initially rest"
^DD(.4032,7,21,2,0)="when the user first navigates to the repeating block.  Possible values are"
^DD(.4032,7,21,3,0)="FIRST, LAST, and NEW, where NEW indicates that the cursor should initially"
^DD(.4032,7,21,4,0)="rest on the blank line at the end of the list.  The default INITIAL"
^DD(.4032,7,21,5,0)="POSITION is FIRST."
^DD(.4032,7,"DT")="2940503"
^DD(.4032,8,0)="DISALLOW LAYGO^S^0:NO;1:YES;^2;4^Q"
^DD(.4032,8,21,0)="^^3^3^2940907^^"
^DD(.4032,8,21,1,0)="If set to YES, this prohibits the user from entering new subentries into"
^DD(.4032,8,21,2,0)="the multiple.  If null or set to NO, the setting in the data dictionary"
^DD(.4032,8,21,3,0)="determines whether LAYGO is allowed."
^DD(.4032,8,"DT")="2940505"
^DD(.4032,9,0)="FIELD FOR SELECTION^F^^2;5^K:$L(X)>30!($L(X)<1) X"
^DD(.4032,9,3)="Answer must be 1-30 characters in length."
^DD(.4032,9,21,0)="^^5^5^2940907^^"
^DD(.4032,9,21,1,0)="This is the field order of the field that defines the column position of"
^DD(.4032,9,21,2,0)="the blank line at the end of the list.  The default is the first editable"
^DD(.4032,9,21,3,0)="field in the block.  This is also the field before which ScreenMan prints"
^DD(.4032,9,21,4,0)="the plus sign (+) to indicate there are more entries above or below the"
^DD(.4032,9,21,5,0)="displayed list."
^DD(.4032,9,"DT")="2940506"
^DD(.4032,10,0)="ASK 'OK'^S^0:NO;1:YES;^2;6^Q"
^DD(.4032,10,21,0)="^^5^5^2990420^"
^DD(.4032,10,21,1,0)="Answer 'YES' to ask the user whether the looked-up entry is 'OK'. If only"
^DD(.4032,10,21,2,0)="one match is made to the user's lookup value, then ScreenMan will ask"
^DD(.4032,10,21,3,0)="""OK?"" instead of automatically selecting the found entry. This property"
^DD(.4032,10,21,4,0)="corresponds to the ""V"" flag in the DIC(0) input variable to ^DIC and only"
^DD(.4032,10,21,5,0)="pertains to multiple-valued fields."
^DD(.4032,10,"DT")="2990420"
^DD(.4032,11,0)="PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4032,11,3)="This is Standard MUMPS code."
^DD(.4032,11,9)="@"
^DD(.4032,11,21,0)="^^5^5^2940907^"
^DD(.4032,11,21,1,0)="Enter MUMPS code that is executed whenever the user reaches this block."
^DD(.4032,11,21,2,0)=" "
^DD(.4032,11,21,3,0)="This pre-action is a characteristic of the block only as it is used on"
^DD(.4032,11,21,4,0)="this form.  If you place this block on another form, you can define a"
^DD(.4032,11,21,5,0)="different pre-action."
^DD(.4032,11,"DT")="2930610"
^DD(.4032,12,0)="POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4032,12,3)="This is Standard MUMPS code."
^DD(.4032,12,9)="@"
^DD(.4032,12,21,0)="^^5^5^2940907^"
^DD(.4032,12,21,1,0)="Enter MUMPS code that is executed whenever the user leaves this block."
^DD(.4032,12,21,2,0)=" "
^DD(.4032,12,21,3,0)="This post-action is a characteristic of the block only as it is used on"
^DD(.4032,12,21,4,0)="this form.  If you place this block on another form, you can define a"
^DD(.4032,12,21,5,0)="different post-action."
^DD(.4032,12,"DT")="2930610"
^DD(.4032,"B","ASK 'OK'",10)=""
^DD(.4032,"B","BLOCK COORDINATE",2)=""
^DD(.4032,"B","BLOCK NAME",.01)=""
^DD(.4032,"B","BLOCK ORDER",1)=""
^DD(.4032,"B","DISALLOW LAYGO",8)=""
^DD(.4032,"B","FIELD FOR SELECTION",9)=""
^DD(.4032,"B","INDEX",6)=""
^DD(.4032,"B","INITIAL POSITION",7)=""
^DD(.4032,"B","POINTER LINK",4)=""
^DD(.4032,"B","POST ACTION",12)=""
^DD(.4032,"B","PRE ACTION",11)=""
^DD(.4032,"B","REPLICATION",5)=""
^DD(.4032,"B","TYPE OF BLOCK",3)=""
^DD(.4032,"GL",0,1,.01)=""
^DD(.4032,"GL",0,2,1)=""
^DD(.4032,"GL",0,3,2)=""
^DD(.4032,"GL",0,4,3)=""
^DD(.4032,"GL",1,1,4)=""
^DD(.4032,"GL",2,1,5)=""
^DD(.4032,"GL",2,2,6)=""
^DD(.4032,"GL",2,3,7)=""
^DD(.4032,"GL",2,4,8)=""
^DD(.4032,"GL",2,5,9)=""
^DD(.4032,"GL",2,6,10)=""
^DD(.4032,"GL",11,"E1,245",11)=""
^DD(.4032,"GL",12,"E1,245",12)=""
^DD(.4032,"IX",.01)=""
^DD(.4032,"IX",1)=""
^DD(.4032,"RQ",1)=""
^DD(.404,0)="FIELD^^40^7"
^DD(.404,0,"DT")="2940625"
^DD(.404,0,"IX","B",.404,.01)=""
^DD(.404,0,"NM","BLOCK")=""
^DD(.404,0,"PT",.4031,1)=""
^DD(.404,0,"PT",.4032,.01)=""
^DD(.404,0,"VR")="22.0"
^DD(.404,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X=+$P(X,""E"")) X I $D(X),$S($D(DDS)&$G(DA):$P($G(^DIST(.404,DA,0)),U)'=X,1:1),$D(^DIST(.404,""B"",X)) K X"
^DD(.404,.01,1,0)="^.1"
^DD(.404,.01,1,1,0)=".404^B"
^DD(.404,.01,1,1,1)="S ^DIST(.404,""B"",$E(X,1,30),DA)="""""
^DD(.404,.01,1,1,2)="K ^DIST(.404,""B"",$E(X,1,30),DA)"
^DD(.404,.01,1,1,"DT")="2900912"
^DD(.404,.01,3)="Answer must be 3-30 characters in length."
^DD(.404,.01,21,0)="^^2^2^2940907^^"
^DD(.404,.01,21,1,0)="Enter the name of the block, 3-30 characters in length.  The block name"
^DD(.404,.01,21,2,0)="must be unique and cannot be numeric or start with punctuation."
^DD(.404,.01,"DEL",1,0)="I '$D(DDSDEL) D EN^DDIOL($C(7)_""You must use the FileMan options to delete blocks."") I 1"
^DD(.404,.01,"DT")="2931020"
^DD(.404,1,0)="DATA DICTIONARY NUMBER^FX^^0;2^K:X'=+$P(X,""E"")!(X<2)!($L(X)>16)!'$D(^DD(X)) X"
^DD(.404,1,3)="Answer must be 1-16 characters in length."
^DD(.404,1,21,0)="^^3^3^2940907^"
^DD(.404,1,21,1,0)="Enter the data dictionary number of the file or subfile that contains the"
^DD(.404,1,21,2,0)="fields that are placed on this block.  A block can contain fields from"
^DD(.404,1,21,3,0)="only one file or subfile."
^DD(.404,1,"DT")="2930406"
^DD(.404,2,0)="DISABLE NAVIGATION^S^0:NO;1:YES;2:OUTOK;^0;3^Q"
^DD(.404,2,3)=""
^DD(.404,2,21,0)="^^8^8^2940907^^"
^DD(.404,2,21,1,0)="Enter 'YES' if navigation within the block should be disabled.  When"
^DD(.404,2,21,2,0)="navigation is disabled, user cannot ^-jump to other fields, they cannot"
^DD(.404,2,21,3,0)="^-jump to the Command Line, and the <Up>, <Down>, <Tab>, and <PF4> keys"
^DD(.404,2,21,4,0)="traverse the fields in the same order as the <RET> key -- that is, in the"
^DD(.404,2,21,5,0)="order established by the Field Order property of the fields."
^DD(.404,2,21,6,0)=" "
^DD(.404,2,21,7,0)="Enter 'OUTOK' to disable navigation, but allow the user to ^-jump to the"
^DD(.404,2,21,8,0)="Command Line."
^DD(.404,11,0)="PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.404,11,3)="Enter standard MUMPS code that will be executed when the user navigates to the block."
^DD(.404,11,9)="@"
^DD(.404,11,21,0)="^^6^6^2940907^^"
^DD(.404,11,21,1,0)="This is MUMPS code that is executed when the user navigates to the"
^DD(.404,11,21,2,0)="block."
^DD(.404,11,21,3,0)=" "
^DD(.404,11,21,4,0)="This pre-action is part of the block definition itself, so if this"
^DD(.404,11,21,5,0)="block is used on another page or another form, the pre-action still"
^DD(.404,11,21,6,0)="applies."
^DD(.404,12,0)="POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.404,12,3)="Enter standard MUMPS that will be executed when the user leaves the block."
^DD(.404,12,9)="@"
^DD(.404,12,21,0)="^^5^5^2940907^^"
^DD(.404,12,21,1,0)="This is MUMPS code that is executed when the user leaves the block."
^DD(.404,12,21,2,0)=" "
^DD(.404,12,21,3,0)="This post-action is part of the block definition itself, so if the"
^DD(.404,12,21,4,0)="block is used on another page or on another form, the post-action still"
^DD(.404,12,21,5,0)="applies."
^DD(.404,15,0)="DESCRIPTION^.40415^^15;0"
^DD(.404,40,0)="FIELD^.4044I^^40;0"
^DD(.404,40,"DT")="2931029"
^DD(.404,"B","DATA DICTIONARY NUMBER",1)=""
^DD(.404,"B","DESCRIPTION",15)=""
^DD(.404,"B","DISABLE NAVIGATION",2)=""
^DD(.404,"B","FIELD",40)=""
^DD(.404,"B","NAME",.01)=""
^DD(.404,"B","POST ACTION",12)=""
^DD(.404,"B","PRE ACTION",11)=""
^DD(.404,"GL",0,1,.01)=""
^DD(.404,"GL",0,2,1)=""
^DD(.404,"GL",0,3,2)=""
^DD(.404,"GL",11,"E1,245",11)=""
^DD(.404,"GL",12,"E1,245",12)=""
^DD(.404,"GL",15,0,15)=""
^DD(.404,"GL",40,0,40)=""
^DD(.404,"IX",.01)=""
^DD(.404,"RQ",.01)=""
^DD(.404,"SB",.40415,15)=""
^DD(.404,"SB",.4044,40)=""
^DD(.40415,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.40415,0,"DT")="2910204"
^DD(.40415,0,"NM","DESCRIPTION")=""
^DD(.40415,0,"UP")=".404"
^DD(.40415,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.40415,.01,3)=""
^DD(.40415,.01,21,0)="^^1^1^2940908^^^"
^DD(.40415,.01,21,1,0)="Enter text that describes this block."
^DD(.40415,"B","DESCRIPTION",.01)=""
^DD(.40415,"GL",0,1,.01)=""
^DD(.4044,0)="FIELD SUB-FIELD^^30^33"
^DD(.4044,0,"DT")="2940625"
^DD(.4044,0,"ID","WRITE")="D EN^DDIOL($S($P(^(0),U,2)?1""Select ""1.E:$E($P(^(0),U,2),8,999),1:$S($P(^(0),U,2)=""!M"":$G(^(.1)),1:$P(^(0),U,2)))_$S($P(^(0),U,4)]"""":""  (""_$P(^(0),U,4)_"")"",1:""""),"""",""?9"")"
^DD(.4044,0,"ID","WRITE1")="D EN^DDIOL($S($P($G(^(7)),U,2):""  (Sub Page Link defined)"",1:"""")_$S($G(^(1)):""   (Field #""_^(1)_"")"",1:"""")_$S($P(^(0),U,5)]"""":""  (""_$P(^(0),U,5)_"")"",1:""""),"""",""?0"")"
^DD(.4044,0,"IX","B",.4044,.01)=""
^DD(.4044,0,"IX","C",.4044,1)=""
^DD(.4044,0,"IX","D",.4044,3.1)=""
^DD(.4044,0,"NM","FIELD")=""
^DD(.4044,0,"UP")=".404"
^DD(.4044,.01,0)="FIELD ORDER^MNJ4,1X^^0;1^K:X'=+$P(X,""E"")!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X I $D(X),$D(^DIST(.404,DA(1),40,""B"",X)) K X"
^DD(.4044,.01,1,0)="^.1"
^DD(.4044,.01,1,1,0)=".4044^B"
^DD(.4044,.01,1,1,1)="S ^DIST(.404,DA(1),40,""B"",$E(X,1,30),DA)="""""
^DD(.4044,.01,1,1,2)="K ^DIST(.404,DA(1),40,""B"",$E(X,1,30),DA)"
^DD(.4044,.01,3)="Enter a unique number between 0 and 99.9, inclusive, which represents the order in which the fields will be edited."
^DD(.4044,.01,21,0)="^^2^2^2940907^"
^DD(.4044,.01,21,1,0)="The Field Order number determines the order in which users traverse the"
^DD(.4044,.01,21,2,0)="fields in the block as they press <RET>."
^DD(.4044,1,0)="CAPTION^FX^^0;2^K:$L(X)>80!($L(X)<1) X S:$E($G(X))=""!""&($G(X)'=""!M"") X=$$FUNC^DDSCAP(X)"
^DD(.4044,1,1,0)="^.1^^-1"
^DD(.4044,1,1,2,0)=".4044^C^MUMPS"
^DD(.4044,1,1,2,1)="S:X'=""!M"" ^DIST(.404,DA(1),40,""C"",$TR($E($S(X?1""Select ""1.E:$P(X,""Select "",2,99),1:X),1,63),""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(.4044,1,1,2,2)="K:X'=""!M"" ^DIST(.404,DA(1),40,""C"",$TR($E($S(X?1""Select ""1.E:$P(X,""Select "",2,99),1:X),1,63),""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(.4044,1,1,2,3)="Programmer only"
^DD(.4044,1,1,2,"%D",0)="^^2^2^2931029^^^^"
^DD(.4044,1,1,2,"%D",1,0)="This cross referenced is used to allow selection of fields by caption name"
^DD(.4044,1,1,2,"%D",2,0)="as well as by order number when entering new fields in the block."
^DD(.4044,1,1,2,"DT")="2920214"
^DD(.4044,1,3)="Answer must be 1-80 characters in length."
^DD(.4044,1,21,0)="^^6^6^2940907^"
^DD(.4044,1,21,1,0)="A caption is uneditable text that appears on the screen.  Captions of"
^DD(.4044,1,21,2,0)="data dictionary, form-only, and computed fields serve to identify for"
^DD(.4044,1,21,3,0)="the user the data portion of the fields.  Captions for these types of"
^DD(.4044,1,21,4,0)="fields are automatically followed by a colon, unless the Suppress Colon"
^DD(.4044,1,21,5,0)="After Caption property is set to 'YES.'  A field with an Executable"
^DD(.4044,1,21,6,0)="Caption must have '!M' as a Caption."
^DD(.4044,1,"DT")="2940629"
^DD(.4044,1.1,0)="EXECUTABLE CAPTION^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,1.1,3)="Enter standard MUMPS code that sets the variable Y."
^DD(.4044,1.1,9)="@"
^DD(.4044,1.1,21,0)="^^3^3^2940907^^"
^DD(.4044,1.1,21,1,0)="Enter MUMPS code that sets the variable Y equal to the caption you"
^DD(.4044,1.1,21,2,0)="want displayed.  This code is executed and the caption evaluated whenever"
^DD(.4044,1.1,21,3,0)="the page on which this caption is located is painted."
^DD(.4044,1.1,"DT")="2920218"
^DD(.4044,2,0)="FIELD TYPE^*S^0:UNKNOWN;1:CAPTION ONLY;2:FORM ONLY;3:DATA DICTIONARY FIELD;4:COMPUTED;^0;3^Q"
^DD(.4044,2,1,0)="^.1^^0"
^DD(.4044,2,3)=""
^DD(.4044,2,12)="Enter the field type."
^DD(.4044,2,12.1)="S DIC(""S"")=""I Y"""
^DD(.4044,2,21,0)="^^11^11^2940907^"
^DD(.4044,2,21,1,0)="Enter the field type."
^DD(.4044,2,21,2,0)=" "
^DD(.4044,2,21,3,0)="CAPTION ONLY fields are for displaying text on the screen."
^DD(.4044,2,21,4,0)=" "
^DD(.4044,2,21,5,0)="FORM ONLY fields are fields defined only on the form and are not tied to a"
^DD(.4044,2,21,6,0)="field in a FileMan file."
^DD(.4044,2,21,7,0)=" "
^DD(.4044,2,21,8,0)="DATA DICTIONARY fields are fields from a FileMan file."
^DD(.4044,2,21,9,0)=" "
^DD(.4044,2,21,10,0)="COMPUTED fields, like form-only fields, are fields that are defined only"
^DD(.4044,2,21,11,0)="on the form.  Associated with a COMPUTED field is a computed expression."
^DD(.4044,2,"DT")="2940907"
^DD(.4044,3,0)="DISPLAY GROUP^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(.4044,3,3)="Enter text, 1-20 characters in length, which represents the group to which this field belongs."
^DD(.4044,3,21,0)="^^10^10^2940907^"
^DD(.4044,3,21,1,0)="Display group helps users resolve ambiguity when they attempt to ^-jump to"
^DD(.4044,3,21,2,0)="a field that has a caption that is not unique.  If more than one field has"
^DD(.4044,3,21,3,0)="the same caption, when users try to ^-jump to a field with that caption,"
^DD(.4044,3,21,4,0)="they are presented with a list of fields to choose from.  The text in the"
^DD(.4044,3,21,5,0)="Display Group property is displayed in parentheses after the caption to"
^DD(.4044,3,21,6,0)="help the user identify the correct field."
^DD(.4044,3,21,7,0)=" "
^DD(.4044,3,21,8,0)="For example, if two fields have the caption 'NAME:', but one of those"
^DD(.4044,3,21,9,0)="fields has a Display Group 'Next of Kin', when users enter ^NAME, they"
^DD(.4044,3,21,10,0)="will be asked to choose between 'NAME' and 'NAME (Next of Kin)'."
^DD(.4044,3.1,0)="UNIQUE NAME^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!$D(^DIST(.404,DA(1),40,""D"",X)) X"
^DD(.4044,3.1,1,0)="^.1"
^DD(.4044,3.1,1,1,0)=".4044^D^MUMPS"
^DD(.4044,3.1,1,1,1)="S ^DIST(.404,DA(1),40,""D"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(.4044,3.1,1,1,2)="K ^DIST(.404,DA(1),40,""D"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(.4044,3.1,1,1,3)="Programmer only"
^DD(.4044,3.1,1,1,"%D",0)="^^1^1^2930816^"
^DD(.4044,3.1,1,1,"%D",1,0)="This is a regular index of the Unique Name converted to uppercase."
^DD(.4044,3.1,1,1,"DT")="2930816"
^DD(.4044,3.1,3)="Answer must be 1-50 characters in length."
^DD(.4044,3.1,21,0)="^^5^5^2940907^"
^DD(.4044,3.1,21,1,0)="This is the unique name of the element on the block.  No two elements on"
^DD(.4044,3.1,21,2,0)="the block can have the same Unique Name.  Unique Names are never seen by"
^DD(.4044,3.1,21,3,0)="the user.  You can refer to an element on a block by its Unique Name in"
^DD(.4044,3.1,21,4,0)="some of the ScreenMan utilities such as PUT^DDSVAL and $$GET^DDSVAL, and"
^DD(.4044,3.1,21,5,0)="in the computed expressions of computed fields."
^DD(.4044,3.1,"DT")="2930816"
^DD(.4044,4,0)="FIELD^FX^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X),$D(DDGFDD) D IXF^DDS0"
^DD(.4044,4,1,0)="^.1^^0"
^DD(.4044,4,3)="Answer must be 1-245 characters in length."
^DD(.4044,4,4)="I $D(DDGFDD) N D0,DA,DIC,D,DZ S DIC=""^DD(""_DDGFDD_"","",DIC(0)="""",D=""B"" S:$G(X)=""??"" DZ=X D DQ^DICQ"
^DD(.4044,4,21,0)="^^2^2^2940907^"
^DD(.4044,4,21,1,0)="Enter the number or name of a field in the file defined by the data"
^DD(.4044,4,21,2,0)="dictionary number for this block."
^DD(.4044,4,"DT")="2940823"
^DD(.4044,4.1,0)="DATA COORDINATE^F^^2;1^K:$L(X)>7!($L(X)<1)!'(X?.N1"","".N) X"
^DD(.4044,4.1,3)="Enter the field coordinate relative to the block.  Answer must be two positive integers separated by a comma (,), as follows:  'Row,Column'."
^DD(.4044,4.1,21,0)="^^2^2^2940907^"
^DD(.4044,4.1,21,1,0)="Data coordinate is relative to the position of the block.  The top left"
^DD(.4044,4.1,21,2,0)="corner of the block has a coordinate of 1,1."
^DD(.4044,4.1,"DT")="2940908"
^DD(.4044,4.2,0)="DATA LENGTH^NJ3,0^^2;2^K:+X'=X!(X>245)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.4044,4.2,3)="Enter a Number between 1 and 245, inclusive, which represents the maximum length of the data to be displayed on the screen."
^DD(.4044,4.2,21,0)="^^4^4^2940907^^"
^DD(.4044,4.2,21,1,0)="The data length defines the size of the editing window.  The editing"
^DD(.4044,4.2,21,2,0)="window is a single line and must not extend into or beyond the rightmost"
^DD(.4044,4.2,21,3,0)="column on the screen.  On an 80 column screen, the editing window"
^DD(.4044,4.2,21,4,0)="must not extend beyond column 79."
^DD(.4044,5.1,0)="CAPTION COORDINATE^F^^2;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.N1"","".N) X"
^DD(.4044,5.1,1,0)="^.1^^0"
^DD(.4044,5.1,3)="Enter the caption coordinate relative to the block.  Answer must be two positive integers separated by a comma (,), as follows:  'Row,Column'."
^DD(.4044,5.1,21,0)="^^2^2^2940907^^"
^DD(.4044,5.1,21,1,0)="Caption coordinate is relative to the position of the block.  The"
^DD(.4044,5.1,21,2,0)="top left corner of the block has coordinate 1,1."
^DD(.4044,5.1,"DT")="2940908"
^DD(.4044,5.2,0)="SUPPRESS COLON AFTER CAPTION?^S^0:NO;1:YES;^2;4^Q"
^DD(.4044,5.2,1,0)="^.1^^0"
^DD(.4044,5.2,3)=""
^DD(.4044,5.2,21,0)="^^2^2^2940907^^"
^DD(.4044,5.2,21,1,0)="Enter 'YES' to suppress the display of a colon and space after the"
^DD(.4044,5.2,21,2,0)="caption."
^DD(.4044,5.2,"DT")="2940629"
^DD(.4044,6,0)="DEFAULT^F^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X"
^DD(.4044,6,3)="Answer must be 1-245 characters in length."
^DD(.4044,6,21,0)="^^8^8^2940907^"
^DD(.4044,6,21,1,0)="Enter the default you want displayed when the user first loads the page"
^DD(.4044,6,21,2,0)="on which this field is located, and the field's value is originally null."
^DD(.4044,6,21,3,0)="Since ScreenMan validates the default, it must be valid, unambiguous, and"
^DD(.4044,6,21,4,0)="in external form; otherwise, it is not used."
^DD(.4044,6,21,5,0)=" "
^DD(.4044,6,21,6,0)="If you want to create an executable default, i.e., a default whose value"
^DD(.4044,6,21,7,0)="is determined at run time when the page is first loaded, the value of"
^DD(.4044,6,21,8,0)="this field must be ""!M""."
^DD(.4044,6,"DT")="2920218"
^DD(.4044,6.01,0)="EXECUTABLE DEFAULT^K^^3.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,6.01,3)="Enter standard MUMPS code that sets the variable Y."
^DD(.4044,6.01,9)="@"
^DD(.4044,6.01,21,0)="^^4^4^2940907^"
^DD(.4044,6.01,21,1,0)="Enter MUMPS code that sets the variable Y equal to the default you want"
^DD(.4044,6.01,21,2,0)="displayed when the page is first loaded and the data value on file is"
^DD(.4044,6.01,21,3,0)="null.  Y must be set to a valid, unambiguous user response; otherwise, it"
^DD(.4044,6.01,21,4,0)="is ignored."
^DD(.4044,6.01,"DT")="2920218"
^DD(.4044,6.1,0)="REQUIRED^S^0:NO;1:YES;^4;1^Q"
^DD(.4044,6.1,3)=""
^DD(.4044,6.1,21,0)="^^5^5^2940907^"
^DD(.4044,6.1,21,1,0)="Whenever the user attempts a Save, ScreenMan checks all required fields"
^DD(.4044,6.1,21,2,0)="on all pages accessed during the editing session, as well as all pages"
^DD(.4044,6.1,21,3,0)="linked to the first page via the Next and Previous Page links.  If any of"
^DD(.4044,6.1,21,4,0)="the required fields have null values, no Save occurs.  You need not make a"
^DD(.4044,6.1,21,5,0)="field required that is already required by its data definition."
^DD(.4044,6.2,0)="DUPLICATE^S^0:NO;1:YES;^4;2^Q"
^DD(.4044,6.2,3)="Enter 'YES' if the field value from the previous record can be duplicated with the 'spacebar-return' feature."
^DD(.4044,6.2,21,0)="^^1^1^2940629^"
^DD(.4044,6.2,21,1,0)="This field is not currently being used."
^DD(.4044,6.3,0)="RIGHT JUSTIFY^S^0:NO;1:YES;^4;3^Q"
^DD(.4044,6.3,21,0)="^^2^2^2940907^"
^DD(.4044,6.3,21,1,0)="Enter 'YES' if the data for this field should be displayed right-justified"
^DD(.4044,6.3,21,2,0)="in the editing window."
^DD(.4044,6.3,"DT")="2940625"
^DD(.4044,6.4,0)="DISABLE EDITING^S^0:NO;1:YES;2:REACHABLE;^4;4^Q"
^DD(.4044,6.4,3)=""
^DD(.4044,6.4,21,0)="^^3^3^2940907^^^"
^DD(.4044,6.4,21,1,0)="Enter 'YES' to disable editing and to prevent the user from navigating"
^DD(.4044,6.4,21,2,0)="to the field.  Enter 'REACHABLE' to disable editing, but allow the user to"
^DD(.4044,6.4,21,3,0)="navigate to the field."
^DD(.4044,6.4,"DT")="2940625"
^DD(.4044,6.5,0)="DISALLOW LAYGO^S^0:NO;1:YES;^4;5^Q"
^DD(.4044,6.5,3)=""
^DD(.4044,6.5,21,0)="^^2^2^2931020^"
^DD(.4044,6.5,21,1,0)="Enter 'YES' to prohibit the user from adding new subentries into this"
^DD(.4044,6.5,21,2,0)="multiple.  This question only pertains to multiple-valued fields."
^DD(.4044,6.6,0)="ASK 'OK'^S^0:NO;1:YES;^4;6^Q"
^DD(.4044,6.6,21,0)="^^5^5^2990420^"
^DD(.4044,6.6,21,1,0)="Answer 'YES' to ask the user whether the looked-up entry is 'OK'. If only"
^DD(.4044,6.6,21,2,0)="one match is made to the user's lookup value, then ScreenMan will ask"
^DD(.4044,6.6,21,3,0)="""OK?"" instead of automatically selecting the found entry. This property"
^DD(.4044,6.6,21,4,0)="corresponds to the ""V"" flag in the DIC(0) input variable to ^DIC and only"
^DD(.4044,6.6,21,5,0)="pertains to multiple-valued fields."
^DD(.4044,8,0)="SUB PAGE LINK^NJ5,1^^7;2^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"".""2N.N) X"
^DD(.4044,8,3)="Enter the Page Number of the page to open up when the user presses <Return> at this field.  Type a Number between 1 and 999.9, 1 Decimal Digit."
^DD(.4044,8,21,0)="^^7^7^2940907^"
^DD(.4044,8,21,1,0)="If you wish to take users to a pop-up page when they press <RET> at"
^DD(.4044,8,21,2,0)="this field, enter the Page Number of that page.  When users exit that"
^DD(.4044,8,21,3,0)="pop-up page, ScreenMan will automatically take them to the field following"
^DD(.4044,8,21,4,0)="this field."
^DD(.4044,8,21,5,0)=" "
^DD(.4044,8,21,6,0)="You can also use the Parent Field property of the pop-up page to link a"
^DD(.4044,8,21,7,0)="field to the pop-up page."
^DD(.4044,10,0)="BRANCHING LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,10,3)="Enter Standard MUMPS code, 1-245 characters in length."
^DD(.4044,10,9)="@"
^DD(.4044,10,21,0)="^^18^18^2940907^"
^DD(.4044,10,21,1,0)="This MUMPS code is executed whenever the user presses <RET> at the"
^DD(.4044,10,21,2,0)="field.  Here you can set DDSBR equal to the field, block, and page,"
^DD(.4044,10,21,3,0)="separated by up-arrow delimiters, of the field to which you wish to take"
^DD(.4044,10,21,4,0)="users when they press <RET>.  For example,"
^DD(.4044,10,21,5,0)=" "
^DD(.4044,10,21,6,0)="     S:X=""Y"" DDSBR=""TEST FIELD 1^TEST BLOCK 1^TEST PAGE 2"""
^DD(.4044,10,21,7,0)=" "
^DD(.4044,10,21,8,0)="would take the user to the field with unique name or caption ""TEST FIELD"
^DD(.4044,10,21,9,0)="1"" on the block named ""TEST BLOCK 1"" on a page named ""TEST PAGE 2""."
^DD(.4044,10,21,10,0)=" "
^DD(.4044,10,21,11,0)="Alternatively, if you wish to take users to another page when they press"
^DD(.4044,10,21,12,0)="<RET> at this field, and then when they close that page, automatically"
^DD(.4044,10,21,13,0)="take them to the field immediately following this field, you can set"
^DD(.4044,10,21,14,0)="DDSSTACK equal to the page name or number of that page."
^DD(.4044,10,21,15,0)=" "
^DD(.4044,10,21,16,0)="The variable X contains the current internal value of the field, DDSEXT"
^DD(.4044,10,21,17,0)="contains the current external value of the field, and DDSOLD contains the"
^DD(.4044,10,21,18,0)="previous internal value of the field."
^DD(.4044,11,0)="PRE ACTION^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,11,3)="Enter standard MUMPS code that will be executed when the user navigates to this field."
^DD(.4044,11,9)="@"
^DD(.4044,11,21,0)="^^2^2^2940629^"
^DD(.4044,11,21,1,0)="This MUMPS code is executed when the user reaches the field.  The variable"
^DD(.4044,11,21,2,0)="X contains the current value of the field."
^DD(.4044,12,0)="POST ACTION^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,12,3)="Enter standard MUMPS code that will be executed when the user leaves this field."
^DD(.4044,12,9)="@"
^DD(.4044,12,21,0)="^^6^6^2950306^"
^DD(.4044,12,21,1,0)="This MUMPS code is executed when the user leaves the field, except on"
^DD(.4044,12,21,2,0)="time-out."
^DD(.4044,12,21,3,0)=" "
^DD(.4044,12,21,4,0)="The variable X contains the current internal value of the field, DDSEXT"
^DD(.4044,12,21,5,0)="contains the current external value of the field, and DDSOLD contains"
^DD(.4044,12,21,6,0)="the previous internal value of the field."
^DD(.4044,12,"DT")="2950306"
^DD(.4044,13,0)="POST ACTION ON CHANGE^K^^13;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,13,3)="Enter standard MUMPS code that will be executed when the user changes the value of this field."
^DD(.4044,13,9)="@"
^DD(.4044,13,21,0)="^^4^4^2940629^"
^DD(.4044,13,21,1,0)="This MUMPS code is executed only if the user changed the value of the"
^DD(.4044,13,21,2,0)="field.  The variables X and DDSEXT contain the new internal and external"
^DD(.4044,13,21,3,0)="values of the field, and DDSOLD contains the original internal value of"
^DD(.4044,13,21,4,0)="the field."
^DD(.4044,13,"DT")="2931029"
^DD(.4044,14,0)="DATA VALIDATION^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,14,3)="This is Standard MUMPS code."
^DD(.4044,14,9)="@"
^DD(.4044,14,21,0)="^^5^5^2940907^"
^DD(.4044,14,21,1,0)="Enter MUMPS code that will be executed after the user enters a new"
^DD(.4044,14,21,2,0)="value for this field.  If the code sets DDSERROR, the value will"
^DD(.4044,14,21,3,0)="be rejected.  You might also want to ring the bell and make a call to"
^DD(.4044,14,21,4,0)="HLP^DDSUTL to display a message to the user that indicates the reason the"
^DD(.4044,14,21,5,0)="value was rejected."
^DD(.4044,14,"DT")="2930820"
^DD(.4044,20.1,0)="READ TYPE^S^D:DATE;F:FREE TEXT;L:LIST OR RANGE;N:NUMERIC;P:POINTER;S:SET OF CODES;Y:YES OR NO;DD:DATA DICTIONARY;^20;1^Q"
^DD(.4044,20.1,21,0)="^^1^1^2930812^^"
^DD(.4044,20.1,21,1,0)="Enter the data type of this form-only field."
^DD(.4044,20.1,"DT")="2930812"
^DD(.4044,20.2,0)="PARAMETERS^F^^20;2^K:$L(X)>2!($L(X)<1) X"
^DD(.4044,20.2,3)="Answer must be 1-2 characters in length."
^DD(.4044,20.2,21,0)="^^8^8^2940907^"
^DD(.4044,20.2,21,1,0)="This property coressponds to the parameters that can be used in the first"
^DD(.4044,20.2,21,2,0)="^-piece of the DIR(0) input variable to ^DIR.  The ""O"" parameter has no"
^DD(.4044,20.2,21,3,0)="effect, since the Required property can be used to make a field required."
^DD(.4044,20.2,21,4,0)="The ""A"" and ""B"" parameters also have no effect."
^DD(.4044,20.2,21,5,0)=" "
^DD(.4044,20.2,21,6,0)="Free text fields can use the ""U"" parameter."
^DD(.4044,20.2,21,7,0)="List or Range fields can use the ""C"" parameter."
^DD(.4044,20.2,21,8,0)="Set of Codes fields can use the ""X"" and ""M"" parameters."
^DD(.4044,20.2,"DT")="2930812"
^DD(.4044,20.3,0)="QUALIFIERS^F^^20;3^K:$L(X)>100!($L(X)<1) X"
^DD(.4044,20.3,3)="Answer must be 1-100 characters in length."
^DD(.4044,20.3,21,0)="^^14^14^2940908^^"
^DD(.4044,20.3,21,1,0)="This property corresponds to the second ^-piece of the DIR(0) input"
^DD(.4044,20.3,21,2,0)="variable to ^DIR.  For Data Dictionary type form only fields, it"
^DD(.4044,20.3,21,3,0)="identifies the file and field."
^DD(.4044,20.3,21,4,0)=" "
^DD(.4044,20.3,21,5,0)="Valid qualifiers are:"
^DD(.4044,20.3,21,6,0)=" "
^DD(.4044,20.3,21,7,0)="  Date             Minimum date:Maximum date:%DT"
^DD(.4044,20.3,21,8,0)="  Free Text        Minimum length:Maximum length"
^DD(.4044,20.3,21,9,0)="  List or Range    Minimum:Maximum:Maximum decimals"
^DD(.4044,20.3,21,10,0)="  Numeric          Minimum:Maximum:Maximum decimals"
^DD(.4044,20.3,21,11,0)="  Pointer          Global root or #:DIC(0)"
^DD(.4044,20.3,21,12,0)="  Set of Codes     Code:Stands for;Code:Stands for;"
^DD(.4044,20.3,21,13,0)="  Yes or No"
^DD(.4044,20.3,21,14,0)="  Data Dictionary  file#,field#"
^DD(.4044,20.3,"DT")="2930812"
^DD(.4044,21,0)="HELP^.404421^^21;0"
^DD(.4044,21,"DT")="2930812"
^DD(.4044,22,0)="INPUT TRANSFORM^K^^22;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,22,3)="Enter standard MUMPS code."
^DD(.4044,22,9)="@"
^DD(.4044,22,21,0)="^^3^3^2940908^"
^DD(.4044,22,21,1,0)="This is MUMPS code that can examine X, the value entered by the user, and"
^DD(.4044,22,21,2,0)="kill X if it is invalid.  It corresponds to the third ^-piece of the"
^DD(.4044,22,21,3,0)="DIR(0) input variable to ^DIR."
^DD(.4044,22,"DT")="2930812"
^DD(.4044,23,0)="SAVE CODE^K^^23;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,23,3)="Enter Standard MUMPS code."
^DD(.4044,23,9)="@"
^DD(.4044,23,21,0)="^^8^8^2930920^^"
^DD(.4044,23,21,1,0)="This is MUMPS code that is executed when the user issues a Save command"
^DD(.4044,23,21,2,0)="and the value of this field changed since the last Save.  You can use this"
^DD(.4044,23,21,3,0)="field to save in global or local variables the value the user enters into"
^DD(.4044,23,21,4,0)="this field.  The following variables are available:"
^DD(.4044,23,21,5,0)=" "
^DD(.4044,23,21,6,0)="     X      = The new value of the field in internal form"
^DD(.4044,23,21,7,0)="     DDSEXT = The new value of the field in external form"
^DD(.4044,23,21,8,0)="     DDSOLD = The original (pre-save) value of the field in internal form"
^DD(.4044,23,"DT")="2930812"
^DD(.4044,24,0)="SCREEN^K^^24;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.4044,24,3)="Enter standard MUMPS code that sets the variable DIR(""S"")."
^DD(.4044,24,9)="@"
^DD(.4044,24,21,0)="^^4^4^2940908^"
^DD(.4044,24,21,1,0)="This screen is valid only for pointer and set-type form-only fields."
^DD(.4044,24,21,2,0)=" "
^DD(.4044,24,21,3,0)="You can enter MUMPS code that sets the variable DIR(""S""), to screen the"
^DD(.4044,24,21,4,0)="the values that can be selected."
^DD(.4044,24,"DT")="2930812"
^DD(.4044,30,0)="COMPUTED EXPRESSION^FX^^30;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X) D CEXPR^DDSIT"
^DD(.4044,30,3)="Answer must be 1-245 characters in length."
^DD(.4044,30,21,0)="^^13^13^2940908^"
^DD(.4044,30,21,1,0)="You can enter MUMPS code that sets the variable Y equal to the value of"
^DD(.4044,30,21,2,0)="the computed field.  Alternatively, you can precede the computed"
^DD(.4044,30,21,3,0)="expression with an equal sign (=)."
^DD(.4044,30,21,4,0)=" "
^DD(.4044,30,21,5,0)="For example,"
^DD(.4044,30,21,6,0)=" "
^DD(.4044,30,21,7,0)="       S:$D(var)#2 Y=""The value is: ""_{NUMERIC}"
^DD(.4044,30,21,8,0)="       ={FIRST NAME}_"" ""_{LAST NAME}"
^DD(.4044,30,21,9,0)="       ={FO(PRICE)}*1.085"
^DD(.4044,30,21,10,0)=" "
^DD(.4044,30,21,11,0)="NUMERIC, FIRST NAME, and LAST NAME are the name of FileMan fields used on"
^DD(.4044,30,21,12,0)="the form, and PRICE is the caption of a form-only field found on the"
^DD(.4044,30,21,13,0)="current page and block of the form."
^DD(.4044,30,"DT")="2931201"
^DD(.4044,"B","ASK 'OK'",6.6)=""
^DD(.4044,"B","BRANCHING LOGIC",10)=""
^DD(.4044,"B","CAPTION",1)=""
^DD(.4044,"B","CAPTION COORDINATE",5.1)=""
^DD(.4044,"B","COMPUTED EXPRESSION",30)=""
^DD(.4044,"B","DATA COORDINATE",4.1)=""
^DD(.4044,"B","DATA LENGTH",4.2)=""
^DD(.4044,"B","DATA VALIDATION",14)=""
^DD(.4044,"B","DEFAULT",6)=""
^DD(.4044,"B","DISABLE EDITING",6.4)=""
^DD(.4044,"B","DISALLOW LAYGO",6.5)=""
^DD(.4044,"B","DISPLAY GROUP",3)=""
^DD(.4044,"B","DUPLICATE",6.2)=""
^DD(.4044,"B","EXECUTABLE CAPTION",1.1)=""
^DD(.4044,"B","EXECUTABLE DEFAULT",6.01)=""
^DD(.4044,"B","FIELD",4)=""
^DD(.4044,"B","FIELD ORDER",.01)=""
^DD(.4044,"B","FIELD TYPE",2)=""
^DD(.4044,"B","HELP",21)=""
^DD(.4044,"B","INPUT TRANSFORM",22)=""
^DD(.4044,"B","PARAMETERS",20.2)=""
^DD(.4044,"B","POST ACTION",12)=""
^DD(.4044,"B","POST ACTION ON CHANGE",13)=""
^DD(.4044,"B","PRE ACTION",11)=""
^DD(.4044,"B","QUALIFIERS",20.3)=""
^DD(.4044,"B","READ TYPE",20.1)=""
^DD(.4044,"B","REQUIRED",6.1)=""
^DD(.4044,"B","RIGHT JUSTIFY",6.3)=""
^DD(.4044,"B","SAVE CODE",23)=""
^DD(.4044,"B","SCREEN",24)=""
^DD(.4044,"B","SUB PAGE LINK",8)=""
^DD(.4044,"B","SUPPRESS COLON AFTER CAPTION?",5.2)=""
^DD(.4044,"B","UNIQUE NAME",3.1)=""
^DD(.4044,"GL",0,1,.01)=""
^DD(.4044,"GL",0,2,1)=""
^DD(.4044,"GL",0,3,2)=""
^DD(.4044,"GL",0,4,3)=""
^DD(.4044,"GL",0,5,3.1)=""
^DD(.4044,"GL",.1,"E1,245",1.1)=""
^DD(.4044,"GL",1,1,4)=""
^DD(.4044,"GL",2,1,4.1)=""
^DD(.4044,"GL",2,2,4.2)=""
^DD(.4044,"GL",2,3,5.1)=""
^DD(.4044,"GL",2,4,5.2)=""
^DD(.4044,"GL",3,1,6)=""
^DD(.4044,"GL",3.1,"E1,245",6.01)=""
^DD(.4044,"GL",4,1,6.1)=""
^DD(.4044,"GL",4,2,6.2)=""
^DD(.4044,"GL",4,3,6.3)=""
^DD(.4044,"GL",4,4,6.4)=""
^DD(.4044,"GL",4,5,6.5)=""
^DD(.4044,"GL",4,6,6.6)=""
^DD(.4044,"GL",7,2,8)=""
^DD(.4044,"GL",10,"E1,245",10)=""
^DD(.4044,"GL",11,"E1,245",11)=""
^DD(.4044,"GL",12,"E1,245",12)=""
^DD(.4044,"GL",13,"E1,245",13)=""
^DD(.4044,"GL",14,"E1,245",14)=""
^DD(.4044,"GL",20,1,20.1)=""
^DD(.4044,"GL",20,2,20.2)=""
^DD(.4044,"GL",20,3,20.3)=""
^DD(.4044,"GL",21,0,21)=""
^DD(.4044,"GL",22,"E1,245",22)=""
^DD(.4044,"GL",23,"E1,245",23)=""
^DD(.4044,"GL",24,"E1,245",24)=""
^DD(.4044,"GL",30,"E1,245",30)=""
^DD(.4044,"IX",.01)=""
^DD(.4044,"IX",1)=""
^DD(.4044,"IX",3.1)=""
^DD(.4044,"SB",.404421,21)=""
^DD(.404421,0)="HELP SUB-FIELD^^.01^1"
^DD(.404421,0,"DT")="2930218"
^DD(.404421,0,"NM","HELP")=""
^DD(.404421,0,"UP")=".4044"
^DD(.404421,.01,0)="HELP^W^^0;1^Q"
^DD(.404421,.01,21,0)="^^3^3^2940908^"
^DD(.404421,.01,21,1,0)="This text is displayed when the user enters ? at this form-only field."
^DD(.404421,.01,21,2,0)="The lines in this word processing field correspond to the nodes in the"
^DD(.404421,.01,21,3,0)="DIR(""?"",#) input array to ^DIR."
^DD(.404421,.01,"DT")="2930812"
^DD(.404421,"B","HELP",.01)=""
^DD(.404421,"GL",0,1,.01)=""
^DD(.41,0)="FILEGRAM/EXTR FILE SUB-FIELD^^13^13"
^DD(.41,0,"IX","B",.41,.01)=""
^DD(.41,0,"NM","FILEGRAM/EXTR FILE")=""
^DD(.41,0,"UP")=".4"
^DD(.41,.001,0)="ORDER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.41,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(.41,.01,0)="FILEGRAM/EXTR FILE^NJ16,4^^0;1^K:+X'=X!(X>99999999999)!(X<2)!(X?.E1"".""5N.N) X"
^DD(.41,.01,1,0)="^.1"
^DD(.41,.01,1,1,0)=".41^B"
^DD(.41,.01,1,1,1)="S ^DIPT(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(.41,.01,1,1,2)="K ^DIPT(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(.41,.01,3)="Type a Number between 2 and 99999999999, 4 Decimal Digits"
^DD(.41,.02,0)="LEVEL^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.41,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(.41,.03,0)="PARENT^NJ14,4^^0;3^K:+X'=X!(X>999999999)!(X<2)!(X?.E1"".""5N.N) X"
^DD(.41,.03,3)="Type a Number between 2 and 999999999, 4 Decimal Digits"
^DD(.41,.04,0)="LINK TYPE^S^1:DINUM;2:DIRECT POINTER;3:MULTIPLE;4:BACKPOINTER^0;4^Q"
^DD(.41,.05,0)="USER RESPONSE TO GET HERE^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(.41,.05,3)="Answer must be 1-30 characters in length."
^DD(.41,.06,0)="DATE LAST STORED^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(.41,.07,0)="CROSS-REFERENCE^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(.41,.07,3)="Answer must be 1-30 characters in length."
^DD(.41,.07,21,0)="^^1^1^2900405^"
^DD(.41,.07,21,1,0)="This field holds the X-ref to use in a backpointer."
^DD(.41,.08,0)="ALL FIELDS IN FILE^S^1:YES;^0;8^Q"
^DD(.41,10,0)="FIELD NUMBER^.411A^^F;0"
^DD(.41,11,0)="DESTINATION FILE^NJ16,6^^0;9^K:+X'=X!(X>999999999)!(X<2)!(X?.E1"".""7N.N) X"
^DD(.41,11,3)="Type a Number between 2 and 999999999, 6 Decimal Digits"
^DD(.41,11,21,0)="^^1^1^2921002^"
^DD(.41,11,21,1,0)="This field holds the number of the destination file or the destination subfile."
^DD(.41,12,0)="DESTINATION FILE PARENT^NJ16,6^^0;10^K:+X'=X!(X>999999999)!(X<2)!(X?.E1"".""7N.N) X"
^DD(.41,12,3)="Type a Number between 2 and 999999999, 6 Decimal Digits"
^DD(.41,12,21,0)="^^2^2^2921002^"
^DD(.41,12,21,1,0)="This field holds the number of the parent file or subfile of the"
^DD(.41,12,21,2,0)="DESTINATION FILE."
^DD(.41,13,0)="DESTINATION FILE LOCATION^F^^0;11^K:$L(X)>30!($L(X)<1) X"
^DD(.41,13,3)="Answer must be 1-30 characters in length."
^DD(.41,13,21,0)="^^1^1^2921002^"
^DD(.41,13,21,1,0)="This field holds the node and piece location of the DESTINATION FILE."
^DD(.41,"B","ALL FIELDS IN FILE",.08)=""
^DD(.41,"B","CROSS-REFERENCE",.07)=""
^DD(.41,"B","DATE LAST STORED",.06)=""
^DD(.41,"B","DESTINATION FILE",11)=""
^DD(.41,"B","DESTINATION FILE LOCATION",13)=""
^DD(.41,"B","DESTINATION FILE PARENT",12)=""
^DD(.41,"B","FIELD NUMBER",10)=""
^DD(.41,"B","FILEGRAM/EXTR FILE",.01)=""
^DD(.41,"B","LEVEL",.02)=""
^DD(.41,"B","LINK TYPE",.04)=""
^DD(.41,"B","ORDER",.001)=""
^DD(.41,"B","PARENT",.03)=""
^DD(.41,"B","USER RESPONSE TO GET HERE",.05)=""
^DD(.41,"GL",0,1,.01)=""
^DD(.41,"GL",0,2,.02)=""
^DD(.41,"GL",0,3,.03)=""
^DD(.41,"GL",0,4,.04)=""
^DD(.41,"GL",0,5,.05)=""
^DD(.41,"GL",0,6,.06)=""
^DD(.41,"GL",0,7,.07)=""
^DD(.41,"GL",0,8,.08)=""
^DD(.41,"GL",0,9,11)=""
^DD(.41,"GL",0,10,12)=""
^DD(.41,"GL",0,11,13)=""
^DD(.41,"GL","F",0,10)=""
^DD(.41,"IX",.01)=""
^DD(.41,"RQ",.02)=""
^DD(.41,"SB",.411,10)=""
^DD(.411,0)="FIELD NUMBER SUB-FIELD^^4^6"
^DD(.411,0,"NM","FIELD NUMBER")=""
^DD(.411,0,"UP")=".41"
^DD(.411,.001,0)="FIELD ORDER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.411,.001,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(.411,.01,0)="FIELD NUMBER^NJ14,4^^0;1^K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"".""5N.N) X"
^DD(.411,.01,1,0)="^.1^^0"
^DD(.411,.01,3)="Type a Number between .001 and 999999999, 4 Decimal Digits"
^DD(.411,1,0)="CAPTION^CJ30^^ ; ^S %=+^DIPT(D0,1,D1,0),X=$S('%:"""",$D(^DD(%,+^DIPT(D0,1,D1,""F"",D2,0),0)):$P(^(0),U),1:"""")"
^DD(.411,1,9)="^"
^DD(.411,1,9.01)=""
^DD(.411,1,9.1)="S %=+^DIPT(D0,1,D1,0),X=$S('%:"""",$D(^DD(%,+^DIPT(D0,1,D1,""F"",D2,0),0)):$P(^(0),U),1:"""")"
^DD(.411,3,0)="DESTINATION FIELD NUMBER^NJ14,4^^0;3^K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"".""5N.N) X"
^DD(.411,3,3)="Type a Number between .001 and 999999999, 4 Decimal Digits"
^DD(.411,3,21,0)="^^2^2^2921002^"
^DD(.411,3,21,1,0)="This field holds the number of the field in the destination file"
^DD(.411,3,21,2,0)="that will contain the extracted data from FIELD NUMBER in the source file."
^DD(.411,4,0)="DESTINATION FIELD LOCATION^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(.411,4,3)="Answer must be 3-30 characters in length."
^DD(.411,4,21,0)="^^3^3^2921002^"
^DD(.411,4,21,1,0)="This field holds the node and piece location of the DESTINATION FIELD"
^DD(.411,4,21,2,0)="NUMBER. This is used at the time extract data is moved to the destination"
^DD(.411,4,21,3,0)="file."
^DD(.411,5,0)=" EXTERNAL FORMAT^S^1:MOVE EXTERNAL FORMAT TO DESTINATION FILE;^0;5^Q"
^DD(.411,5,3)="Enter 1 if external format of data should be moved to destination file."
^DD(.411,5,21,0)="^^3^3^2921208^"
^DD(.411,5,21,1,0)="This code is used to determine if the external form of the data in the"
^DD(.411,5,21,2,0)="source file should be moved to the destination file.  If null, the"
^DD(.411,5,21,3,0)="internal format of the data is moved."
^DD(.411,"B"," EXTERNAL FORMAT",5)=""
^DD(.411,"B","CAPTION",1)=""
^DD(.411,"B","DESTINATION FIELD LOCATION",4)=""
^DD(.411,"B","DESTINATION FIELD NUMBER",3)=""
^DD(.411,"B","FIELD NUMBER",.01)=""
^DD(.411,"B","FIELD ORDER",.001)=""
^DD(.411,"GL",0,1,.01)=""
^DD(.411,"GL",0,3,3)=""
^DD(.411,"GL",0,4,4)=""
^DD(.411,"GL",0,5,5)=""
^DD(.42,0)="EXPORT FIELD SUB-FIELD^^3^4"
^DD(.42,0,"DT")="2921013"
^DD(.42,0,"IX","B",.42,.01)=""
^DD(.42,0,"NM","EXPORT FIELD")=""
^DD(.42,0,"UP")=".4"
^DD(.42,.01,0)="FIELD ORDER^RNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.42,.01,1,0)="^.1"
^DD(.42,.01,1,1,0)=".42^B"
^DD(.42,.01,1,1,1)="S ^DIPT(DA(1),100,""B"",$E(X,1,30),DA)="""""
^DD(.42,.01,1,1,2)="K ^DIPT(DA(1),100,""B"",$E(X,1,30),DA)"
^DD(.42,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(.42,.01,21,0)="^^3^3^2941014^^"
^DD(.42,.01,21,1,0)="The integer in this field represents the order in which fields are"
^DD(.42,.01,21,2,0)="exported.  The field order numbers are not always consecutive,"
^DD(.42,.01,21,3,0)="but they do represent the sequence in which fields are sent."
^DD(.42,.01,"DT")="2920903"
^DD(.42,1,0)="DATA TYPE^*P.81'^DI(.81,^0;2^S DIC(""S"")=""N %IR S %IR=$P($G(^(0)),U,2) I (%IR=""""D"""")!(%IR=""""N"""")!(%IR=""""F"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(.42,1,3)=""
^DD(.42,1,12)="Only data types of free text, date, and numeric are recognized for exported fields."
^DD(.42,1,12.1)="S DIC(""S"")=""N %IR S %IR=$P($G(^(0)),U,2) I (%IR=""""D"""")!(%IR=""""N"""")!(%IR=""""F"""")"""
^DD(.42,1,21,0)="^^3^3^2921119^"
^DD(.42,1,21,1,0)="The data type of the field as derived by the export tool or as input by the"
^DD(.42,1,21,2,0)="user is held in this field.  This data type may not correspond to the data"
^DD(.42,1,21,3,0)="type found in the data dictionary."
^DD(.42,1,"DT")="2921013"
^DD(.42,2,0)="LENGTH FOR OUTPUT^NJ5,0^^0;3^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.42,2,3)="Type a Number between 1 and 10000, 0 Decimal Digits"
^DD(.42,2,21,0)="^^2^2^2921119^"
^DD(.42,2,21,1,0)="The number of characters allotted to the field for fixed length export is"
^DD(.42,2,21,2,0)="stored here."
^DD(.42,2,"DT")="2920903"
^DD(.42,3,0)="NAME OF FOREIGN FIELD^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(.42,3,3)="Answer must be 1-30 characters in length."
^DD(.42,3,21,0)="^^2^2^2921119^"
^DD(.42,3,21,1,0)="The name of the field as it is known in the importing application is"
^DD(.42,3,21,2,0)="stored here.  The user supplies this information."
^DD(.42,3,"DT")="2921123"
^DD(.42,"B","DATA TYPE",1)=""
^DD(.42,"B","FIELD ORDER",.01)=""
^DD(.42,"B","LENGTH FOR OUTPUT",2)=""
^DD(.42,"B","NAME OF FOREIGN FIELD",3)=""
^DD(.42,"GL",0,1,.01)=""
^DD(.42,"GL",0,2,1)=""
^DD(.42,"GL",0,3,2)=""
^DD(.42,"GL",0,4,3)=""
^DD(.42,"IX",.01)=""
^DD(.42,"RQ",.01)=""
^DD(.44,0)="FIELD^^11^19"
^DD(.44,0,"DDA")="N"
^DD(.44,0,"DT")="2930107"
^DD(.44,0,"ID","WRITE")="D:Y<1 EN^DDIOL(""** DISTRIBUTED BY VA FILEMAN **"","""",""?35"")"
^DD(.44,0,"IX","B",.44,.01)=""
^DD(.44,0,"IX","C",.441,.01)=""
^DD(.44,0,"NM","FOREIGN FORMAT")=""
^DD(.44,0,"PT",.4,105)=""
^DD(.44,0,"VR")="22.0"
^DD(.44,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(.44,.01,1,0)="^.1"
^DD(.44,.01,1,1,0)=".44^B"
^DD(.44,.01,1,1,1)="S ^DIST(.44,""B"",$E(X,1,30),DA)="""""
^DD(.44,.01,1,1,2)="K ^DIST(.44,""B"",$E(X,1,30),DA)"
^DD(.44,.01,3)="Name must be 3-30 characters in length, not starting with punctuation."
^DD(.44,.01,21,0)="^^1^1^2920914^"
^DD(.44,.01,21,1,0)="This field identifies the format used by the non-VA FileMan application."
^DD(.44,.01,"DEL",1,0)="I DA<1"
^DD(.44,.01,"DT")="2920914"
^DD(.44,1,0)="FIELD DELIMITER^FX^^0;2^K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1"",""3N)!(X?3N1"",""3N1"",""3N)!(X?3N1"",""3N1"",""3N1"",""3N)) X"
^DD(.44,1,3)="Answer must be 1-15 characters in length."
^DD(.44,1,21,0)="^^10^10^2921028^"
^DD(.44,1,21,1,0)="Contents of the field delimiter is output between each field.  Depending"
^DD(.44,1,21,2,0)="on the contents of the SEND LAST FIELD DELIMITER? field, the delimiter may"
^DD(.44,1,21,3,0)="be output after the last field, too. Identify the delimiter either by 1-15"
^DD(.44,1,21,4,0)="characters not beginning with a number or by the ASCII value of the"
^DD(.44,1,21,5,0)="delimiter.  When specifying the ASCII value, use 3 numbers (e.g., '009'"
^DD(.44,1,21,6,0)="for ASCII 9).  Up to four ASCII-character values can be specified,"
^DD(.44,1,21,7,0)="separated by commas."
^DD(.44,1,21,8,0)=" "
^DD(.44,1,21,9,0)="If 'Ask' is entered, the user will be prompted for the field delimiter"
^DD(.44,1,21,10,0)="when creating the EXPORT template."
^DD(.44,1,"DT")="2920914"
^DD(.44,2,0)="RECORD DELIMITER^F^^0;3^K:$L(X)>15!($L(X)<1)!'((X?1AP.E)!(X?3N)!(X?3N1"",""3N)!(X?3N1"",""3N1"",""3N)!(X?3N1"",""3N1"",""3N1"",""3N)) X"
^DD(.44,2,3)="Answer must be 1-15 characters in length."
^DD(.44,2,21,0)="^^8^8^2921026^"
^DD(.44,2,21,1,0)="Contents of the record delimiter is output after each record.  Identify"
^DD(.44,2,21,2,0)="the delimiter either by 1-15 characters not beginning with a number or by"
^DD(.44,2,21,3,0)="the ASCII value of the delimiter.  When specifying the ASCII value, use 3"
^DD(.44,2,21,4,0)="numbers (e.g., '009' for ASCII 9).  Up to four ASCII-character values can"
^DD(.44,2,21,5,0)="be specified, separated by commas."
^DD(.44,2,21,6,0)=" "
^DD(.44,2,21,7,0)="If 'Ask' is entered, the user is prompted for the record delimiter when"
^DD(.44,2,21,8,0)="creating the EXPORT template."
^DD(.44,2,"DT")="2920914"
^DD(.44,3,0)="LINE CONTINUATION CHARACTER^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(.44,3,3)="Answer must be 1-15 characters in length."
^DD(.44,3,21,0)="^^1^1^2921028^"
^DD(.44,3,21,1,0)="Not used yet."
^DD(.44,3,"DT")="2920828"
^DD(.44,4,0)="LINE CONTINUATION LOCATION^S^e:END OF LINE;b:BEGINNING OF LINE;^0;5^Q"
^DD(.44,4,21,0)="^^1^1^2920917^"
^DD(.44,4,21,1,0)="Not used yet."
^DD(.44,4,"DT")="2920828"
^DD(.44,5,0)="RECORD LENGTH FIXED?^S^1:YES;0:NO;^0;6^Q"
^DD(.44,5,21,0)="^^3^3^2920917^"
^DD(.44,5,21,1,0)="Enter YES if the fields will be fixed length causing a fixed length record"
^DD(.44,5,21,2,0)="to be created.  When the EXPORT template is created, the user is prompted"
^DD(.44,5,21,3,0)="for the length of each field in the TARGET file."
^DD(.44,5,"DT")="2920828"
^DD(.44,6,0)="NEED FOREIGN FIELD NAMES?^S^1:YES;0:NO;^0;7^Q"
^DD(.44,6,21,0)="^^3^3^2921013^"
^DD(.44,6,21,1,0)="Answer YES if it is necessary to save the field names from the foreign"
^DD(.44,6,21,2,0)="file in the export file.  The user will be prompted for the names when the"
^DD(.44,6,21,3,0)="EXPORT template is created."
^DD(.44,6,"DT")="2920828"
^DD(.44,7,0)="MAXIMUM OUTPUT LENGTH^NJ4,0^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(.44,7,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(.44,7,21,0)="^^7^7^2921026^"
^DD(.44,7,21,1,0)="The maximum length of a ""line"" of output; maximum number of characters"
^DD(.44,7,21,2,0)="before a LINE FEED is issued.  For most exports, this will be the maximum"
^DD(.44,7,21,3,0)="record length."
^DD(.44,7,21,4,0)=" "
^DD(.44,7,21,5,0)="If 0 is entered, the user will be prompted for maximum length when"
^DD(.44,7,21,6,0)="creating the EXPORT template.  If nothing is entered, the default will be"
^DD(.44,7,21,7,0)="80."
^DD(.44,7,"DT")="2921026"
^DD(.44,8,0)="QUOTE NON-NUMERIC FIELDS?^S^1:YES;0:NO;^0;10^Q"
^DD(.44,8,3)="Enter '1' for YES or '0' for NO."
^DD(.44,8,21,0)="^^7^7^2921013^"
^DD(.44,8,21,1,0)="If you want the values of fields that have a data type other than numeric"
^DD(.44,8,21,2,0)="to be surrounded by quotation marks (""), set this field to YES."
^DD(.44,8,21,3,0)=" "
^DD(.44,8,21,4,0)="NOTE:  Only numeric fields in the home file (including multiples) are"
^DD(.44,8,21,5,0)="automatically considered to have a numeric data type.  If you want the"
^DD(.44,8,21,6,0)="user to indicate which fields should be numeric, answer YES to the PROMPT"
^DD(.44,8,21,7,0)="FOR DATA TYPE? field."
^DD(.44,8,"DT")="2921013"
^DD(.44,9,0)="PROMPT FOR DATA TYPE?^S^1:YES;0:NO;^0;11^Q"
^DD(.44,9,3)="Enter '1' for YES, '0' for NO."
^DD(.44,9,21,0)="^^3^3^2921013^"
^DD(.44,9,21,1,0)="Answer YES if you want the user to be prompted for the data type of the"
^DD(.44,9,21,2,0)="various fields at the time that an export template is being created."
^DD(.44,9,21,3,0)="Otherwise, the data types will be automatically  derived."
^DD(.44,9,"DT")="2921013"
^DD(.44,10,0)="SEND LAST FIELD DELIMITER?^S^0:NO;1:YES;^0;12^Q"
^DD(.44,10,3)="Enter '1' for YES, '0' for NO."
^DD(.44,10,21,0)="^^3^3^2921028^"
^DD(.44,10,21,1,0)="Enter NO if you do not want a field delimiter to be output after the last"
^DD(.44,10,21,2,0)="field in a record.  Enter YES if you do want a final field delimiter"
^DD(.44,10,21,3,0)="output."
^DD(.44,10,"DT")="2921028"
^DD(.44,11,0)="SUBSTITUTE FOR NULL^F^^0;13^K:$L(X)>15!($L(X)<1) X"
^DD(.44,11,3)="Answer must be 1-15 characters in length."
^DD(.44,11,21,0)="^^5^5^2930107^"
^DD(.44,11,21,1,0)="This field only affects numeric values exported in a delimited format."
^DD(.44,11,21,2,0)="If nothing is entered in this field, data values of null will cause"
^DD(.44,11,21,3,0)="nothing to be exported for that field in the particular record.  If you"
^DD(.44,11,21,4,0)="want something to be exported when the data value is null, enter the"
^DD(.44,11,21,5,0)="character or characters in this field."
^DD(.44,11,"DT")="2930107"
^DD(.44,20,0)="FILE HEADER^FX^^1;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""""""" K:DUZ(0)'=""@"" X D:$D(X) ^DIM"
^DD(.44,20,3)="Answer must be standard MUMPS code or a literal string in quotes."
^DD(.44,20,21,0)="^^7^7^2921001^"
^DD(.44,20,21,1,0)="Use this field to produce output preceding the exported records.  This"
^DD(.44,20,21,2,0)="will become part of your exported data."
^DD(.44,20,21,3,0)=" "
^DD(.44,20,21,4,0)="Enter either a literal string enclosed in quotation marks (""like this"") or"
^DD(.44,20,21,5,0)="MUMPS code that will WRITE the desired output when XECUTED.  For example:"
^DD(.44,20,21,6,0)=" "
^DD(.44,20,21,7,0)="       W ""EXPORT CREATED BY USER NUMBER: ""_$G(DUZ)"
^DD(.44,20,"DT")="2921028"
^DD(.44,25,0)="FILE TRAILER^FX^^2;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""""""" K:DUZ(0)'=""@"" X D:$D(X) ^DIM"
^DD(.44,25,3)="Answer must be standard MUMPS code or a literal string in quotes."
^DD(.44,25,21,0)="^^7^7^2921001^"
^DD(.44,25,21,1,0)="Use this field to produce output following the the exported records.  This"
^DD(.44,25,21,2,0)="will become part of your exported data."
^DD(.44,25,21,3,0)=" "
^DD(.44,25,21,4,0)="Enter either a literal string enclosed in quotation marks (""like this"") or"
^DD(.44,25,21,5,0)="MUMPS code that will WRITE the desired output when XECUTED.  For example:"
^DD(.44,25,21,6,0)=" "
^DD(.44,25,21,7,0)="       W ""EXPORT CREATED BY USER NUMBER: ""_$G(DUZ)"
^DD(.44,25,"DT")="2921028"
^DD(.44,27,0)="DATE FORMAT^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.44,27,3)="This is Standard MUMPS code."
^DD(.44,27,9)="@"
^DD(.44,27,21,0)="^^6^6^2920923^"
^DD(.44,27,21,1,0)="If you want dates output in VA FileMan's standard external date/time"
^DD(.44,27,21,2,0)="format, make NO entry in this field."
^DD(.44,27,21,3,0)=" "
^DD(.44,27,21,4,0)="If you want another format, enter MUMPS code here. The variable X will"
^DD(.44,27,21,5,0)="contain the date/time in VA FileMan's internal format.  The MUMPS code"
^DD(.44,27,21,6,0)="should SET Y to the date/time in the format you desire."
^DD(.44,27,"DT")="2920923"
^DD(.44,30,0)="DESCRIPTION^.447^^3;0"
^DD(.44,30,21,0)="^^1^1^2920917^"
^DD(.44,30,21,1,0)="A description of the foreign format."
^DD(.44,31,0)="USAGE NOTES^.448^^4;0"
^DD(.44,31,21,0)="^^2^2^2920917^"
^DD(.44,31,21,1,0)="Information about the use of the format; for example, which commands on"
^DD(.44,31,21,2,0)="the foreign system should be used to load the file."
^DD(.44,40,0)="FORMAT USED?^S^0:NO;1:YES;^0;9^Q"
^DD(.44,40,21,0)="^^2^2^2920925^"
^DD(.44,40,21,1,0)="When set to YES, this field means that this Foriegn Format entry has been"
^DD(.44,40,21,2,0)="used to create an Export Template."
^DD(.44,40,"DT")="2920925"
^DD(.44,50,0)="OTHER NAME FOR FORMAT^.441^^5;0"
^DD(.44,"B","DATE FORMAT",27)=""
^DD(.44,"B","DESCRIPTION",30)=""
^DD(.44,"B","FIELD DELIMITER",1)=""
^DD(.44,"B","FILE HEADER",20)=""
^DD(.44,"B","FILE TRAILER",25)=""
^DD(.44,"B","FORMAT USED?",40)=""
^DD(.44,"B","LINE CONTINUATION CHARACTER",3)=""
^DD(.44,"B","LINE CONTINUATION LOCATION",4)=""
^DD(.44,"B","MAXIMUM OUTPUT LENGTH",7)=""
^DD(.44,"B","NAME",.01)=""
^DD(.44,"B","NEED FOREIGN FIELD NAMES?",6)=""
^DD(.44,"B","OTHER NAME FOR FORMAT",50)=""
^DD(.44,"B","PROMPT FOR DATA TYPE?",9)=""
^DD(.44,"B","QUOTE NON-NUMERIC FIELDS?",8)=""
^DD(.44,"B","RECORD DELIMITER",2)=""
^DD(.44,"B","RECORD LENGTH FIXED?",5)=""
^DD(.44,"B","SEND LAST FIELD DELIMITER?",10)=""
^DD(.44,"B","SUBSTITUTE FOR NULL",11)=""
^DD(.44,"B","USAGE NOTES",31)=""
^DD(.44,"GL",0,1,.01)=""
^DD(.44,"GL",0,2,1)=""
^DD(.44,"GL",0,3,2)=""
^DD(.44,"GL",0,4,3)=""
^DD(.44,"GL",0,5,4)=""
^DD(.44,"GL",0,6,5)=""
^DD(.44,"GL",0,7,6)=""
^DD(.44,"GL",0,8,7)=""
^DD(.44,"GL",0,9,40)=""
^DD(.44,"GL",0,10,8)=""
^DD(.44,"GL",0,11,9)=""
^DD(.44,"GL",0,12,10)=""
^DD(.44,"GL",0,13,11)=""
^DD(.44,"GL",1,"E1,245",20)=""
^DD(.44,"GL",2,"E1,245",25)=""
^DD(.44,"GL",3,0,30)=""
^DD(.44,"GL",4,0,31)=""
^DD(.44,"GL",5,0,50)=""
^DD(.44,"GL",6,"E1,245",27)=""
^DD(.44,"IX",.01)=""
^DD(.44,"RQ",.01)=""
^DD(.44,"SB",.441,50)=""
^DD(.44,"SB",.447,30)=""
^DD(.44,"SB",.448,31)=""
^DD(.441,0)="OTHER NAME FOR FORMAT SUB-FIELD^^1^2"
^DD(.441,0,"DT")="2920914"
^DD(.441,0,"IX","B",.441,.01)=""
^DD(.441,0,"NM","OTHER NAME FOR FORMAT")=""
^DD(.441,0,"UP")=".44"
^DD(.441,.01,0)="OTHER NAME FOR FORMAT^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(.441,.01,1,0)="^.1"
^DD(.441,.01,1,1,0)=".441^B"
^DD(.441,.01,1,1,1)="S ^DIST(.44,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(.441,.01,1,1,2)="K ^DIST(.44,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(.441,.01,1,2,0)=".44^C"
^DD(.441,.01,1,2,1)="S ^DIST(.44,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(.441,.01,1,2,2)="K ^DIST(.44,""C"",$E(X,1,30),DA(1),DA)"
^DD(.441,.01,1,2,"%D",0)="^^1^1^2920917^"
^DD(.441,.01,1,2,"%D",1,0)="This cross reference allows look-up of formats based on OTHER NAMES."
^DD(.441,.01,1,2,"DT")="2920917"
^DD(.441,.01,3)="Answer must be 3-30 characters in length."
^DD(.441,.01,21,0)="^^2^2^2920917^"
^DD(.441,.01,21,1,0)="Another name by which the foreign format might be known.  This name can be"
^DD(.441,.01,21,2,0)="used to access the format."
^DD(.441,.01,"DT")="2920917"
^DD(.441,1,0)="DESCRIPTION FOR OTHER NAME^.4411^^1;0"
^DD(.441,1,21,0)="^^1^1^2920917^"
^DD(.441,1,21,1,0)="Description and information about the format's other name."
^DD(.441,"B","DESCRIPTION FOR OTHER NAME",1)=""
^DD(.441,"B","OTHER NAME FOR FORMAT",.01)=""
^DD(.441,"GL",0,1,.01)=""
^DD(.441,"GL",1,0,1)=""
^DD(.441,"IX",.01)=""
^DD(.441,"SB",.4411,1)=""
^DD(.4411,0)="DESCRIPTION FOR OTHER NAME SUB-FIELD^^.01^1"
^DD(.4411,0,"DT")="2920914"
^DD(.4411,0,"NM","DESCRIPTION FOR OTHER NAME")=""
^DD(.4411,0,"UP")=".441"
^DD(.4411,.01,0)="DESCRIPTION FOR OTHER NAME^W^^0;1^Q"
^DD(.4411,.01,"DT")="2920914"
^DD(.4411,"B","DESCRIPTION FOR OTHER NAME",.01)=""
^DD(.4411,"GL",0,1,.01)=""
^DD(.447,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.447,0,"DT")="2920914"
^DD(.447,0,"NM","DESCRIPTION")=""
^DD(.447,0,"UP")=".44"
^DD(.447,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.447,.01,"DT")="2920914"
^DD(.447,"B","DESCRIPTION",.01)=""
^DD(.447,"GL",0,1,.01)=""
^DD(.448,0)="USAGE NOTES SUB-FIELD^^.01^1"
^DD(.448,0,"DT")="2920914"
^DD(.448,0,"NM","USAGE NOTES")=""
^DD(.448,0,"UP")=".44"
^DD(.448,.01,0)="USAGE NOTES^W^^0;1^Q"
^DD(.448,.01,"DT")="2920914"
^DD(.448,"B","USAGE NOTES",.01)=""
^DD(.448,"GL",0,1,.01)=""
^DD(.46,0)="FIELD^^2^9"
^DD(.46,0,"DDA")="N"
^DD(.46,0,"DT")="2960531"
^DD(.46,0,"ID","WRITE")="N D,D1,D2 S D2=^(0) S:$X>30 D1(1,""F"")=""!"" S D=$P(D2,U,2) S:D D1(2)=""(""_$$FMTE^DILIBF(D)_"")"",D1(2,""F"")=""?30"" S D=$P(D2,U,5) S:D D1(3)=""User #""_D,D1(3,""F"")=""?47"" S D=$P(D2,U,4) S:D D1(4)="" File #""_D,D1(4,""F"")=""?59"" D EN^DDIOL(.D1)"
^DD(.46,0,"IX","B",.46,.01)=""
^DD(.46,0,"IX","F",.46,4)=""
^DD(.46,0,"IX","F1",.46,.01)=""
^DD(.46,0,"NM","IMPORT TEMPLATE")=""
^DD(.46,0,"VR")="22.0"
^DD(.46,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(.46,.01,1,0)="^.1^^-1"
^DD(.46,.01,1,1,0)=".46^B"
^DD(.46,.01,1,1,1)="S ^DIST(.46,""B"",$E(X,1,30),DA)="""""
^DD(.46,.01,1,1,2)="K ^DIST(.46,""B"",$E(X,1,30),DA)"
^DD(.46,.01,1,3,0)=".46^F1^MUMPS"
^DD(.46,.01,1,3,1)="N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"""" S ^DIST(.46,""F""_DDMPX,X,DA)="""""
^DD(.46,.01,1,3,2)="N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,4) I DDMPX]"""" K ^DIST(.46,""F""_DDMPX,X,DA)"
^DD(.46,.01,1,3,3)="Along with F cross-reference manages F_file# index."
^DD(.46,.01,1,3,"%D",0)="^^2^2^2960531^^"
^DD(.46,.01,1,3,"%D",1,0)="Creates a cross-reference based on F_file# that is used as a lookup"
^DD(.46,.01,1,3,"%D",2,0)="cross-reference.  Allows quick lookups by file number."
^DD(.46,.01,1,3,"DT")="2960531"
^DD(.46,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(.46,.01,"DT")="2960531"
^DD(.46,2,0)="DATE CREATED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(.46,2,21,0)="^^1^1^2960531^"
^DD(.46,2,21,1,0)="Date that the import template was created."
^DD(.46,2,"DT")="2960531"
^DD(.46,3,0)="READ ACCESS^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(.46,3,3)="Answer must be 1-15 characters in length."
^DD(.46,3,21,0)="^^2^2^2960531^"
^DD(.46,3,21,1,0)="Access codes necessary to use the Import Template."
^DD(.46,3,21,2,0)="If null, anyone can use the template."
^DD(.46,3,"DT")="2960531"
^DD(.46,4,0)="PRIMARY FILE^RP1'^DIC(^0;4^Q"
^DD(.46,4,1,0)="^.1"
^DD(.46,4,1,1,0)=".46^F^MUMPS"
^DD(.46,4,1,1,1)="N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"""" S ^DIST(.46,""F""_X,DDMPX,DA)="""""
^DD(.46,4,1,1,2)="N DDMPX S DDMPX=$P($G(^DIST(.46,DA,0)),U,1) I DDMPX]"""" K ^DIST(.46,""F""_X,DDMPX,DA)"
^DD(.46,4,1,1,3)="With F1 cross-reference manages the F_file# index."
^DD(.46,4,1,1,"%D",0)="^^2^2^2960531^"
^DD(.46,4,1,1,"%D",1,0)="Creates an index under F_file# that is used as a compound index for"
^DD(.46,4,1,1,"%D",2,0)="lookups when the file# is known."
^DD(.46,4,1,1,"DT")="2960531"
^DD(.46,4,21,0)="^^1^1^2960531^^^"
^DD(.46,4,21,1,0)="File that is the starting point for data import."
^DD(.46,4,"DT")="2960531"
^DD(.46,5,0)="CREATOR^P200'^VA(200,^0;5^Q"
^DD(.46,5,21,0)="^^1^1^2960531^"
^DD(.46,5,21,1,0)="Person who created the import template."
^DD(.46,5,"DT")="2960531"
^DD(.46,6,0)="WRITE ACCESS^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(.46,6,3)="Answer must be 1-15 characters in length."
^DD(.46,6,21,0)="^^2^2^2960531^"
^DD(.46,6,21,1,0)="Access codes needed to change or delete the import template.  If null,"
^DD(.46,6,21,2,0)="anyone can change or delete the template."
^DD(.46,6,"DT")="2960531"
^DD(.46,7,0)="DATE LAST USED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(.46,7,21,0)="^^1^1^2960531^"
^DD(.46,7,21,1,0)="Date template was last used."
^DD(.46,7,"DT")="2960531"
^DD(.46,10,0)="DESCRIPTION^.461^^10;0"
^DD(.46,30,0)="IMPORT FIELDS^.463^^30;0"
^DD(.46,"B","CREATOR",5)=""
^DD(.46,"B","DATE CREATED",2)=""
^DD(.46,"B","DATE LAST USED",7)=""
^DD(.46,"B","DESCRIPTION",10)=""
^DD(.46,"B","IMPORT FIELDS",30)=""
^DD(.46,"B","NAME",.01)=""
^DD(.46,"B","PRIMARY FILE",4)=""
^DD(.46,"B","READ ACCESS",3)=""
^DD(.46,"B","WRITE ACCESS",6)=""
^DD(.46,"GL",0,1,.01)=""
^DD(.46,"GL",0,2,2)=""
^DD(.46,"GL",0,3,3)=""
^DD(.46,"GL",0,4,4)=""
^DD(.46,"GL",0,5,5)=""
^DD(.46,"GL",0,6,6)=""
^DD(.46,"GL",0,7,7)=""
^DD(.46,"GL",10,0,10)=""
^DD(.46,"GL",30,0,30)=""
^DD(.46,"IX",.01)=""
^DD(.46,"IX",4)=""
^DD(.46,"RQ",.01)=""
^DD(.46,"RQ",4)=""
^DD(.46,"SB",.461,10)=""
^DD(.46,"SB",.463,30)=""
^DD(.461,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.461,0,"DT")="2960531"
^DD(.461,0,"NM","DESCRIPTION")=""
^DD(.461,0,"UP")=".46"
^DD(.461,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.461,.01,"DT")="2960531"
^DD(.461,"B","DESCRIPTION",.01)=""
^DD(.461,"GL",0,1,.01)=""
^DD(.463,0)="IMPORT FIELDS SUB-FIELD^^20^6"
^DD(.463,0,"DT")="2960530"
^DD(.463,0,"IX","B",.463,.01)=""
^DD(.463,0,"NM","IMPORT FIELDS")=""
^DD(.463,0,"UP")=".46"
^DD(.463,.01,0)="IMPORT SEQUENCE^MRNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(.463,.01,1,0)="^.1"
^DD(.463,.01,1,1,0)=".463^B"
^DD(.463,.01,1,1,1)="S ^DIST(.46,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(.463,.01,1,1,2)="K ^DIST(.46,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(.463,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(.463,.01,21,0)="^^1^1^2960530^^"
^DD(.463,.01,21,1,0)="Sequence of fields being imported."
^DD(.463,.01,"DT")="2960530"
^DD(.463,1,0)="FILE^RP1'^DIC(^0;2^Q"
^DD(.463,1,21,0)="^^2^2^2960530^"
^DD(.463,1,21,1,0)="The file or subfile number in which the imported data for a field will"
^DD(.463,1,21,2,0)="be filed."
^DD(.463,1,"DT")="2960530"
^DD(.463,2,0)="FIELD^RF^^0;3^K:$L(X)>12!($L(X)<1) X"
^DD(.463,2,3)="Answer must be 1-12 characters in length."
^DD(.463,2,21,0)="^^1^1^2960530^"
^DD(.463,2,21,1,0)="Field into which imported data will be filed."
^DD(.463,2,"DT")="2960530"
^DD(.463,3,0)="LENGTH^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(.463,3,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(.463,3,21,0)="^^2^2^2960530^"
^DD(.463,3,21,1,0)="Length of data for an imported field.  Relevant only for fixed length"
^DD(.463,3,21,2,0)="imports."
^DD(.463,3,"DT")="2960530"
^DD(.463,10,0)="PATH^F^^10;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.463,10,3)="Answer must be 1-245 characters in length."
^DD(.463,10,21,0)="^^3^3^2960530^"
^DD(.463,10,21,1,0)="The path from the Primary File to the field being imported.  Format"
^DD(.463,10,21,2,0)="is field#^file#[:field#^file#]... where field# is a multiple indicating"
^DD(.463,10,21,3,0)="subfile at next lower level."
^DD(.463,10,"DT")="2960530"
^DD(.463,20,0)="CAPTION^F^^20;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.463,20,3)="Answer must be 1-245 characters in length."
^DD(.463,20,21,0)="^^2^2^2960530^"
^DD(.463,20,21,1,0)="The readable description of the field being imported, including any"
^DD(.463,20,21,2,0)="higher level files and subfiles."
^DD(.463,20,"DT")="2960530"
^DD(.463,"B","CAPTION",20)=""
^DD(.463,"B","FIELD",2)=""
^DD(.463,"B","FILE",1)=""
^DD(.463,"B","IMPORT SEQUENCE",.01)=""
^DD(.463,"B","LENGTH",3)=""
^DD(.463,"B","PATH",10)=""
^DD(.463,"GL",0,1,.01)=""
^DD(.463,"GL",0,2,1)=""
^DD(.463,"GL",0,3,2)=""
^DD(.463,"GL",0,4,3)=""
^DD(.463,"GL",10,"E1,245",10)=""
^DD(.463,"GL",20,"E1,245",20)=""
^DD(.463,"IX",.01)=""
^DD(.463,"RQ",.01)=""
^DD(.463,"RQ",1)=""
^DD(.463,"RQ",2)=""
^DD(.5,0)="ATTRIBUTE^^^6"
^DD(.5,0,"IX","B",.5,.01)=""
^DD(.5,0,"NM","FUNCTION")=""
^DD(.5,0,"VR")="22.0"
^DD(.5,.01,0)="NAME^RF^^0;1^K:$L(X)<2!($L(X)>30)!(X'?1U.ANP)!(X[""$"") X"
^DD(.5,.01,1,0)="^.1^1^1"
^DD(.5,.01,1,1,0)=".5^B"
^DD(.5,.01,1,1,1)="S @(DIC_""""""B"""",X,DA)="""""""""")"
^DD(.5,.01,1,1,2)="K @(DIC_""""""B"""",X,DA)"")"
^DD(.5,.01,3)="Function Name must be 2-30 characters long, beginning with Alpha."
^DD(.5,.01,"DEL",1,0)="I DA<100"
^DD(.5,.02,0)="MUMPS CODE^FR^^1;E1,255^D ^DIM I $D(X),'$D(DIQUIET),'$D(DDS) W ""  ..OK"""
^DD(.5,.02,3)="Enter MUMPS code that sets a value into 'X'."
^DD(.5,.02,4)="N D1 S D1(1)=""For a 1-argument function, use 'X' as the argument."",D1(2)=""For a 2-argument function, use 'X1' and 'X'."",D1(3)=""Avoid FORs, IFs, and single-character scratch variables."",D1(4)="""" D EN^DDIOL(.D1)"
^DD(.5,.02,9)="@"
^DD(.5,1,0)="EXPLANATION^F^^9;E1,245^K:$L(X)>245 X"
^DD(.5,2,0)="DATE-VALUED^S^D:YES;X:NO;O:OPTIONAL (DEPENDS ON VALUE OF ARGUMENT);^2;1^Q"
^DD(.5,9,0)="NUMBER OF ARGUMENTS^N^^3;1^K:X\1'=X!(X>8) X"
^DD(.5,10,0)="WORD-PROCESSING^S^W:MEANINGFUL ONLY FOR W-P;^10;1"
^DD(.5,"B","DATE-VALUED",2)=""
^DD(.5,"B","EXPLANATION",1)=""
^DD(.5,"B","MUMPS CODE",.02)=""
^DD(.5,"B","NAME",.01)=""
^DD(.5,"B","NUMBER OF ARGUMENTS",9)=""
^DD(.5,"B","WORD-PROCESSING",10)=""
^DD(.5,"GL",0,1,.01)=""
^DD(.5,"GL",1,"E1,255",.02)=""
^DD(.5,"GL",2,1,2)=""
^DD(.5,"GL",3,1,9)=""
^DD(.5,"GL",9,"E1,245",1)=""
^DD(.5,"GL",10,1,10)=""
^DD(.5,"IX",.01)=""
^DD(.5,"RQ",.01)=""
^DD(.5,"RQ",.02)=""
^DD(.6,0)="FIELD^^.07^12"
^DD(.6,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(.6,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P($G(^DD(200,.01,0)),U,2) D:C]"""" Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(.6,0,"IX","B",.6,.01)=""
^DD(.6,0,"IX","D",.6,.03)=""
^DD(.6,0,"IX","E",.6,.04)=""
^DD(.6,0,"NM","DD AUDIT")=""
^DD(.6,0,"VR")="22.0"
^DD(.6,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(.6,.001,3)="A whole number greater than 1."
^DD(.6,.01,0)="FIELD NUMBER^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(.6,.01,1,0)="^.1"
^DD(.6,.01,1,1,0)=".6^B"
^DD(.6,.01,1,1,1)="S ^DDA(DDA,""B"",$E(X,1,30),DA)="""""
^DD(.6,.01,1,1,2)="K ^DDA(DDA,""B"",$E(X,1,30),DA)"
^DD(.6,.01,3)="Answer must be 1-10 characters in length."
^DD(.6,.02,0)="TYPE^RS^E:EDIT;N:NEW;D:DELETE;^0;2^Q"
^DD(.6,.03,0)="DATE UPDATED^RD^^0;3^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(.6,.03,1,0)="^.1"
^DD(.6,.03,1,1,0)=".6^D"
^DD(.6,.03,1,1,1)="S ^DDA(DDA,""D"",$E(X,1,30),DA)="""""
^DD(.6,.03,1,1,2)="K ^DDA(DDA,""D"",$E(X,1,30),DA)"
^DD(.6,.04,0)="USER^RP200'^VA(200,^0;4^Q"
^DD(.6,.04,1,0)="^.1"
^DD(.6,.04,1,1,0)=".6^E"
^DD(.6,.04,1,1,1)="S ^DDA(DDA,""E"",$E(X,1,30),DA)="""""
^DD(.6,.04,1,1,2)="K ^DDA(DDA,""E"",$E(X,1,30),DA)"
^DD(.6,.05,0)="ATTRIBUTE NAME^F^^0;5^K:$L(X)>75!($L(X)<1) X"
^DD(.6,.05,3)="Answer must be 1-75 characters in length."
^DD(.6,.06,0)="ATTRIBUTE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(.6,.06,3)="Answer must be 1-30 characters in length."
^DD(.6,.07,0)="FILE NUMBER^F^^0;7^K:$L(X)>15!($L(X)<1) X"
^DD(.6,.07,3)="Answer must be 1-15 characters in length."
^DD(.6,1,0)="OLD VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.6,1.1,0)="OLD VALUE(S)^.601^^1.1;0"
^DD(.6,2,0)="NEW VALUE^F^^2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(.6,2.1,0)="NEW VALUE(S)^.602^^2.1;0"
^DD(.6,"B","ATTRIBUTE NAME",.05)=""
^DD(.6,"B","ATTRIBUTE NUMBER",.06)=""
^DD(.6,"B","DATE UPDATED",.03)=""
^DD(.6,"B","FIELD NUMBER",.01)=""
^DD(.6,"B","FILE NUMBER",.07)=""
^DD(.6,"B","NEW VALUE",2)=""
^DD(.6,"B","NEW VALUE(S)",2.1)=""
^DD(.6,"B","NUMBER",.001)=""
^DD(.6,"B","OLD VALUE",1)=""
^DD(.6,"B","OLD VALUE(S)",1.1)=""
^DD(.6,"B","TYPE",.02)=""
^DD(.6,"B","USER",.04)=""
^DD(.6,"GL",0,1,.01)=""
^DD(.6,"GL",0,2,.02)=""
^DD(.6,"GL",0,3,.03)=""
^DD(.6,"GL",0,4,.04)=""
^DD(.6,"GL",0,5,.05)=""
^DD(.6,"GL",0,6,.06)=""
^DD(.6,"GL",0,7,.07)=""
^DD(.6,"GL",1,"E1,245",1)=""
^DD(.6,"GL",1.1,0,1.1)=""
^DD(.6,"GL",2,"E1,245",2)=""
^DD(.6,"GL",2.1,0,2.1)=""
^DD(.6,"IX",.01)=""
^DD(.6,"IX",.03)=""
^DD(.6,"IX",.04)=""
^DD(.6,"RQ",.01)=""
^DD(.6,"RQ",.02)=""
^DD(.6,"RQ",.03)=""
^DD(.6,"RQ",.04)=""
^DD(.6,"SB",.601,1.1)=""
^DD(.6,"SB",.602,2.1)=""
^DD(.601,0)="OLD VALUE(S) SUB-FIELD^^.01^1"
^DD(.601,0,"NM","OLD VALUE(S)")=""
^DD(.601,0,"UP")=".6"
^DD(.601,.01,0)="OLD VALUE(S)^WL^^0;1^Q"
^DD(.601,"B","OLD VALUE(S)",.01)=""
^DD(.601,"GL",0,1,.01)=""
^DD(.602,0)="NEW VALUE(S) SUB-FIELD^^.01^1"
^DD(.602,0,"NM","NEW VALUE(S)")=""
^DD(.602,0,"UP")=".6"
^DD(.602,.01,0)="NEW VALUE(S)^WL^^0;1^Q"
^DD(.602,"B","NEW VALUE(S)",.01)=""
^DD(.602,"GL",0,1,.01)=""
^DD(.7,0)="FIELD^^^14"
^DD(.7,0,"IX","B",.7,.01)=""
^DD(.7,0,"NM","MUMPS OPERATING SYSTEM")=""
^DD(.7,0,"PT",101.35,.01)=""
^DD(.7,0,"VR")="22.0"
^DD(.7,.01,0)="NAME^F^^0;1^Q"
^DD(.7,.01,1,0)="^.1^1^1"
^DD(.7,.01,1,1,0)=".7^B"
^DD(.7,.01,1,1,1)="S ^DD(""OS"",""B"",X,DA)="""""
^DD(.7,.01,1,1,2)="K ^DD(""OS"",""B"",X,DA)"
^DD(.7,.01,21,0)="^^1^1^2940909^^"
^DD(.7,.01,21,1,0)="Name of a MUMPS operating system that is supported by VA FileMan."
^DD(.7,1,0)="BREAK LOGIC^RF^^1;E1,250^D ^DIM"
^DD(.7,1,9)="@"
^DD(.7,1,21,0)="^^2^2^2940909^^"
^DD(.7,1,21,1,0)="MUMPS code to enable terminal break, i.e., to allow the user to interrupt"
^DD(.7,1,21,2,0)="processing with <CTRL-C>."
^DD(.7,2,0)="GLOBAL LENGTH (MAX)^RN^^0;3^K:+X'=X!(X<30) X"
^DD(.7,2,21,0)="^^1^1^2940909^^"
^DD(.7,2,21,1,0)="Maximum allowable length of a global."
^DD(.7,3,0)="ROUTINE SIZE (MAX)^RN^^0;4^K:+X'=X!(X<2048) X"
^DD(.7,3,21,0)="^^1^1^2940909^"
^DD(.7,3,21,1,0)="Maximum allowable size of a routine."
^DD(.7,4,0)="CLOSING PRINCIPAL DEVICE^S^1:ALLOWED;^0;5^Q"
^DD(.7,4,21,0)="^^1^1^2940909^"
^DD(.7,4,21,1,0)="Is closing a job's principal device allowed?"
^DD(.7,5,0)="NEW COMMAND^S^1:SUPPORTED;^0;6^Q"
^DD(.7,5,21,0)="^^1^1^2940909^"
^DD(.7,5,21,1,0)="Is the NEW command supported?"
^DD(.7,7,0)="INDIVIDUAL SUBSCRIPT LENGTH^N^^0;7^K:X\1'=X!(X<9) X"
^DD(.7,7,21,0)="^^1^1^2940909^"
^DD(.7,7,21,1,0)="Maximum length of an individual subscript."
^DD(.7,8,0)="SAVE SYMBOL TABLE^F^^8;E1,250^D ^DIM"
^DD(.7,8,9)="@"
^DD(.7,8,21,0)="^^1^1^2940909^"
^DD(.7,8,21,1,0)="MUMPS code that saves the contents of the local symbol table."
^DD(.7,419,0)="MINIMUM SAFE $S^N^^0;2^K:+X'=X X"
^DD(.7,419,21,0)="^^1^1^2940909^"
^DD(.7,419,21,1,0)="The minimum value for $S that will allow routines to process successfully."
^DD(.7,1820,0)="ROUTINE EXISTENCE TEST^F^^18;E1,250^D ^DIM"
^DD(.7,1820,9)="@"
^DD(.7,1820,21,0)="^^1^1^2940909^"
^DD(.7,1820,21,1,0)="MUMPS code that tests for the existence of a routine."
^DD(.7,2425,0)="SET $X & $Y FROM 'IOX' & 'IOY'^F^^XY;E1,250^D ^DIM"
^DD(.7,2425,9)="@"
^DD(.7,2425,21,0)="^^2^2^2940909^^"
^DD(.7,2425,21,1,0)="MUMPS code to XECUTE to move the position of the cursor to the position"
^DD(.7,2425,21,2,0)="specified by the variables IOX and IOY."
^DD(.7,2619,0)="ZSAVE CODE^F^^ZS;E1,250^D ^DIM"
^DD(.7,2619,9)="@"
^DD(.7,2619,21,0)="^^4^4^2940909^"
^DD(.7,2619,21,1,0)="MUMPS code that will save a routine to disk.  The name of the routine"
^DD(.7,2619,21,2,0)="must be in variable X.  The source code of the routine should be stored"
^DD(.7,2619,21,3,0)="in ^UTLITY($J,0,%Y).  Each node of the array will become a line of the"
^DD(.7,2619,21,4,0)="routine."
^DD(.7,190416,0)="WRITE FROM SDP^F^^SDP;E1,250^D ^DIM"
^DD(.7,190416,9)="@"
^DD(.7,190416,21,0)="^^4^4^2940909^"
^DD(.7,190416,21,1,0)="MUMPS code that READs data from SDP and WRITEs it to a device.  The $I"
^DD(.7,190416,21,2,0)="value of the SDP device should be in variable DIO and the $I value"
^DD(.7,190416,21,3,0)="for the output device in IO.  The DLP variable should contain the open"
^DD(.7,190416,21,4,0)="parameters of the SDP device."
^DD(.7,190416.1,0)="FIND SDP END^F^^SDPEND;E1,250^D ^DIM"
^DD(.7,190416.1,9)="@"
^DD(.7,190416.1,21,0)="^^1^1^2940909^"
^DD(.7,190416.1,21,1,0)="MUMPS code that tests for the end of SDP."
^DD(.7,"B","BREAK LOGIC",1)=""
^DD(.7,"B","CLOSING PRINCIPAL DEVICE",4)=""
^DD(.7,"B","FIND SDP END",190416.1)=""
^DD(.7,"B","GLOBAL LENGTH (MAX)",2)=""
^DD(.7,"B","INDIVIDUAL SUBSCRIPT LENGTH",7)=""
^DD(.7,"B","MINIMUM SAFE $S",419)=""
^DD(.7,"B","NAME",.01)=""
^DD(.7,"B","NEW COMMAND",5)=""
^DD(.7,"B","ROUTINE EXISTENCE TEST",1820)=""
^DD(.7,"B","ROUTINE SIZE (MAX)",3)=""
^DD(.7,"B","SAVE SYMBOL TABLE",8)=""
^DD(.7,"B","SET $X & $Y FROM 'IOX' & 'IOY'",2425)=""
^DD(.7,"B","WRITE FROM SDP",190416)=""
^DD(.7,"B","ZSAVE CODE",2619)=""
^DD(.7,"GL",0,1,.01)=""
^DD(.7,"GL",0,2,419)=""
^DD(.7,"GL",0,3,2)=""
^DD(.7,"GL",0,4,3)=""
^DD(.7,"GL",0,5,4)=""
^DD(.7,"GL",0,6,5)=""
^DD(.7,"GL",0,7,7)=""
^DD(.7,"GL",1,"E1,250",1)=""
^DD(.7,"GL",8,"E1,250",8)=""
^DD(.7,"GL",18,"E1,250",1820)=""
^DD(.7,"GL","SDP","E1,250",190416)=""
^DD(.7,"GL","SDPEND","E1,250",190416.1)=""
^DD(.7,"GL","XY","E1,250",2425)=""
^DD(.7,"GL","ZS","E1,250",2619)=""
^DD(.7,"IX",.01)=""
^DD(.7,"RQ",1)=""
^DD(.7,"RQ",2)=""
^DD(.7,"RQ",3)=""
^DD(.81,0)="FIELD^^1^2"
^DD(.81,0,"DDA")="N"
^DD(.81,0,"DT")="2921009"
^DD(.81,0,"IX","B",.81,.01)=""
^DD(.81,0,"IX","C",.81,1)=""
^DD(.81,0,"NM","DATA TYPE")=""
^DD(.81,0,"PT",.4014,15)=""
^DD(.81,0,"PT",.42,1)=""
^DD(.81,0,"VR")="22.0"
^DD(.81,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X K X"
^DD(.81,.01,1,0)="^.1"
^DD(.81,.01,1,1,0)=".81^B"
^DD(.81,.01,1,1,1)="S ^DI(.81,""B"",$E(X,1,30),DA)="""""
^DD(.81,.01,1,1,2)="K ^DI(.81,""B"",$E(X,1,30),DA)"
^DD(.81,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(.81,.01,"DEL",1,0)="I DA<100"
^DD(.81,1,0)="INTERNAL REPRESENTATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X"
^DD(.81,1,1,0)="^.1"
^DD(.81,1,1,1,0)=".81^C"
^DD(.81,1,1,1,1)="S ^DI(.81,""C"",$E(X,1,30),DA)="""""
^DD(.81,1,1,1,2)="K ^DI(.81,""C"",$E(X,1,30),DA)"
^DD(.81,1,1,1,"DT")="2921009"
^DD(.81,1,3)="Answer must be 1 character in length."
^DD(.81,1,"DT")="2921009"
^DD(.81,"B","INTERNAL REPRESENTATION",1)=""
^DD(.81,"B","NAME",.01)=""
^DD(.81,"GL",0,1,.01)=""
^DD(.81,"GL",0,2,1)=""
^DD(.81,"IX",.01)=""
^DD(.81,"IX",1)=""
^DD(.81,"RQ",.01)=""
^DD(.83,0)="FIELD^^1^2"
^DD(.83,0,"DDA")="N"
^DD(.83,0,"DT")="2930331"
^DD(.83,0,"IX","B",.83,.01)=""
^DD(.83,0,"IX","C",.83,1)=""
^DD(.83,0,"NM","COMPILED ROUTINE")=""
^DD(.83,0,"VR")="22.0"
^DD(.83,.01,0)="ROUTINE NUMBER^RNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(.83,.01,1,0)="^.1"
^DD(.83,.01,1,1,0)=".83^B"
^DD(.83,.01,1,1,1)="S ^DI(.83,""B"",$E(X,1,30),DA)="""""
^DD(.83,.01,1,1,2)="K ^DI(.83,""B"",$E(X,1,30),DA)"
^DD(.83,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(.83,.01,21,0)="^^5^5^2930331^^^"
^DD(.83,.01,21,1,0)="This is a number that can be used to generate the name of a compiled"
^DD(.83,.01,21,2,0)="SORT routine.  The literal 'DIZS' is concatenated with the number to form"
^DD(.83,.01,21,3,0)="a compiled sort routine name.  The routine will be in use only during"
^DD(.83,.01,21,4,0)="the running of a sort/print.  After the print completes, the number"
^DD(.83,.01,21,5,0)="is again made available for use."
^DD(.83,.01,23,0)="^^4^4^2930331^^"
^DD(.83,.01,23,1,0)="Generated and used during the FileMan sort/print option.  Manipulated"
^DD(.83,.01,23,2,0)="in routine DIOZ, that is called from DIO1.  DIOZ checks a"
^DD(.83,.01,23,3,0)="cross-reference on the 'IN USE' flag to find the next available number."
^DD(.83,.01,23,4,0)="If none are available, a new one is added to the file."
^DD(.83,.01,"DT")="2930719"
^DD(.83,1,0)="IN USE^S^y:YES, NUMBER IS IN USE;n:NOT IN USE;^0;2^Q"
^DD(.83,1,1,0)="^.1"
^DD(.83,1,1,1,0)=".83^C"
^DD(.83,1,1,1,1)="S ^DI(.83,""C"",$E(X,1,30),DA)="""""
^DD(.83,1,1,1,2)="K ^DI(.83,""C"",$E(X,1,30),DA)"
^DD(.83,1,1,1,"%D",0)="^^3^3^2930331^"
^DD(.83,1,1,1,"%D",1,0)="This cross-reference is used to control when a routine number is available"
^DD(.83,1,1,1,"%D",2,0)="for use in creating a compiled sort routine, during the FileMan sort/print"
^DD(.83,1,1,1,"%D",3,0)="option."
^DD(.83,1,1,1,"DT")="2930331"
^DD(.83,1,21,0)="^^6^6^2930331^^"
^DD(.83,1,21,1,0)="During the running of the FileMan sort/print, if the sort is compiled,"
^DD(.83,1,21,2,0)="a cross-reference on this flag is checked to find the first available"
^DD(.83,1,21,3,0)="number that is not in use.  The number is then marked in use and is"
^DD(.83,1,21,4,0)="concatenated on the end of literal 'DIZS' to create the routine name"
^DD(.83,1,21,5,0)="of the compiled routine.  After the sort/print completes, the flag is"
^DD(.83,1,21,6,0)="then reset to 'NOT IN USE'."
^DD(.83,1,23,0)="^^5^5^2930331^^"
^DD(.83,1,23,1,0)="Manipulated in routine DIOZ that is called from the FileMan sort routine"
^DD(.83,1,23,2,0)="DIO1.  The cross-reference on this field is used to control when a number"
^DD(.83,1,23,3,0)="is available for use to create a compiled sort routine name.  After"
^DD(.83,1,23,4,0)="the sort/print runs, the flag is set back to NOT IN USE so that the"
^DD(.83,1,23,5,0)="number is again available."
^DD(.83,1,"DT")="2930331"
^DD(.83,"B","IN USE",1)=""
^DD(.83,"B","ROUTINE NUMBER",.01)=""
^DD(.83,"GL",0,1,.01)=""
^DD(.83,"GL",0,2,1)=""
^DD(.83,"IX",.01)=""
^DD(.83,"IX",1)=""
^DD(.83,"RQ",.01)=""
^DD(.84,0)="FIELD^^8^11"
^DD(.84,0,"DT")="2960426"
^DD(.84,0,"ID","WRITE")="N DIALID S DIALID(1)=$P($G(^(0)),U,5) S:DIALID(1)="""" DIALID=+$O(^(2,0)),DIALID(1)=$E($G(^(DIALID,0)),1,42) S DIALID(1,""F"")=""?10"" D EN^DDIOL(.DIALID)"
^DD(.84,0,"IX","B",.84,.01)=""
^DD(.84,0,"IX","C",.84,1.2)=""
^DD(.84,0,"IX","D",.84,1.3)=""
^DD(.84,0,"NM","DIALOG")=""
^DD(.84,0,"PT",1.52192,4)=""
^DD(.84,0,"VR")="22.0"
^DD(.84,.01,0)="DIALOG NUMBER^RNJ14,3X^^0;1^K:+X'=X!(X>9999999999.999)!(('$G(DIFROM))&(X<10000.001))!(X?.E1"".""4N.N) X S:$G(X) DINUM=X"
^DD(.84,.01,1,0)="^.1"
^DD(.84,.01,1,1,0)=".84^B"
^DD(.84,.01,1,1,1)="S ^DI(.84,""B"",$E(X,1,30),DA)="""""
^DD(.84,.01,1,1,2)="K ^DI(.84,""B"",$E(X,1,30),DA)"
^DD(.84,.01,3)="Type a Number between 10000.001 and 9999999999.999, up to 3 Decimal Digits"
^DD(.84,.01,21,0)="^^1^1^2940523^"
^DD(.84,.01,21,1,0)="The dialogue number is used to uniquely identify a message."
^DD(.84,.01,"DT")="2940623"
^DD(.84,1,0)="TYPE^RS^1:ERROR;2:GENERAL MESSAGE;3:HELP;^0;2^Q"
^DD(.84,1,3)="Enter code that reflects how this dialogue is used when talking to the users."
^DD(.84,1,21,0)="^^2^2^2940523^"
^DD(.84,1,21,1,0)="This code is used to group the entries in the FileMan DIALOG file,"
^DD(.84,1,21,2,0)="according to how they are used when interacting with the user."
^DD(.84,1,23,0)="^^3^3^2940523^"
^DD(.84,1,23,1,0)="This field is used to tell the DIALOG routines what array to use in"
^DD(.84,1,23,2,0)="returning the dialogue.  It is also used for grouping the dialogue for"
^DD(.84,1,23,3,0)="reporting purposes."
^DD(.84,1,"DT")="2940523"
^DD(.84,1.2,0)="PACKAGE^RP9.4'^DIC(9.4,^0;4^Q"
^DD(.84,1.2,1,0)="^.1"
^DD(.84,1.2,1,1,0)=".84^C"
^DD(.84,1.2,1,1,1)="S ^DI(.84,""C"",$E(X,1,30),DA)="""""
^DD(.84,1.2,1,1,2)="K ^DI(.84,""C"",$E(X,1,30),DA)"
^DD(.84,1.2,1,1,"%D",0)="^^3^3^2940623^"
^DD(.84,1.2,1,1,"%D",1,0)="Cross-reference on Package file.  Used for identifying DIALOG entries by"
^DD(.84,1.2,1,1,"%D",2,0)="the package that owns the entry, and for populating the BUILD file during"
^DD(.84,1.2,1,1,"%D",3,0)="package distribution."
^DD(.84,1.2,1,1,"DT")="2940623"
^DD(.84,1.2,3)="Enter the name of the Package that owns and distributes this entry."
^DD(.84,1.2,21,0)="^^3^3^2940526^"
^DD(.84,1.2,21,1,0)="This is a pointer to the Package file.  Each entry in this file belongs"
^DD(.84,1.2,21,2,0)="to, and is distributed by, a certain package.  The Package field should be"
^DD(.84,1.2,21,3,0)="filled in for each entry on this file."
^DD(.84,1.2,"DT")="2940623"
^DD(.84,1.3,0)="SHORT DESCRIPTION^F^^0;5^K:$L(X)>42!($L(X)<1) X"
^DD(.84,1.3,1,0)="^.1"
^DD(.84,1.3,1,1,0)=".84^D"
^DD(.84,1.3,1,1,1)="S ^DI(.84,""D"",$E(X,1,30),DA)="""""
^DD(.84,1.3,1,1,2)="K ^DI(.84,""D"",$E(X,1,30),DA)"
^DD(.84,1.3,1,1,"DT")="2960426"
^DD(.84,1.3,3)="Description used to identify entry on lookup.  Answer must be 1-42 characters in length."
^DD(.84,1.3,21,0)="^^2^2^2960426^"
^DD(.84,1.3,21,1,0)="Short description is used to identify an entry on lookup.  The ""WRITE"""
^DD(.84,1.3,21,2,0)="identifier will display this description if it is not null."
^DD(.84,1.3,"DT")="2960426"
^DD(.84,2,0)="DESCRIPTION^.842^^1;0"
^DD(.84,2,21,0)="^^1^1^2930824^^"
^DD(.84,2,21,1,0)="  Used for internal documentation purposes."
^DD(.84,3,0)="INTERNAL PARAMETERS NEEDED^S^y:YES;^0;3^Q"
^DD(.84,3,3)=""
^DD(.84,3,21,0)="^^6^6^2931105^"
^DD(.84,3,21,1,0)="  Some dialogue is built by inserting variable text (internal parameters)"
^DD(.84,3,21,2,0)="into windows in the word-processing TEXT field.  The insertable text might"
^DD(.84,3,21,3,0)="be, for example, File or Field names.  This field should be set to YES if"
^DD(.84,3,21,4,0)="any internal parameters need to be inserted into the TEXT.  If the field"
^DD(.84,3,21,5,0)="is not set to YES, the DIALOG routine will not go through the part of the"
^DD(.84,3,21,6,0)="code that stuffs the internal parameters into the text."
^DD(.84,3,"DT")="2931105"
^DD(.84,4,0)="TEXT^.844^^2;0"
^DD(.84,4,21,0)="^^7^7^2941122^"
^DD(.84,4,21,1,0)="Actual text of the message.  If parameters (variable pieces of text) are"
^DD(.84,4,21,2,0)="to be inserted into the dialogue when the message is built, the parameter"
^DD(.84,4,21,3,0)="will appear as a 'window' in this TEXT field, surrounded by vertical bars."
^DD(.84,4,21,4,0)="The data within the 'window' will represent a subscript of the input"
^DD(.84,4,21,5,0)="parameter list that is passed to BLD^DIALOG or $$EZBLD^DIALOG when"
^DD(.84,4,21,6,0)="building the message. This same subscript should be used as the .01 of the"
^DD(.84,4,21,7,0)="PARAMETER field in this file to document the parameter."
^DD(.84,5,0)="PARAMETER^.845^^3;0"
^DD(.84,6,0)="POST MESSAGE ACTION^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.84,6,3)="This is Standard MUMPS code.  This code will be executed whenever this message is retrieved through a call to BLD^DIALOG or $$EZBLD^DIALOG."
^DD(.84,6,9)="@"
^DD(.84,6,21,0)="^^6^6^2941122^"
^DD(.84,6,21,1,0)="If some special action should be taken whenever this message is built,"
^DD(.84,6,21,2,0)="MUMPS code can be entered here.  This code will be executed by the"
^DD(.84,6,21,3,0)="BLD^DIALOG or $$EZBLD^DIALOG routines, immediately after the message text"
^DD(.84,6,21,4,0)="has been built in the output array.  For example, the code could set a"
^DD(.84,6,21,5,0)="special flag into a global or local variable to notify the calling routine"
^DD(.84,6,21,6,0)="that some extra action needed to be taken."
^DD(.84,6,23,0)="^^7^7^2941122^"
^DD(.84,6,23,1,0)="At the time of executing this code"
^DD(.84,6,23,2,0)=" D0 = IEN for the entry in the DIALOG file"
^DD(.84,6,23,3,0)=" DIPI(n) = (for sequential number n) parameters incorporated in the text."
^DD(.84,6,23,4,0)=" DIPE(n) = parameters output back to the user"
^DD(.84,6,23,5,0)=" "
^DD(.84,6,23,6,0)="All other variables used in this code should use your packages namespace,"
^DD(.84,6,23,7,0)="and should be NEWed."
^DD(.84,6,"DT")="2940520"
^DD(.84,7,0)="TRANSLATION^.847P^^4;0"
^DD(.84,8,0)="CALLED FROM ENTRY POINTS^.841^^5;0"
^DD(.84,"B","CALLED FROM ENTRY POINTS",8)=""
^DD(.84,"B","DESCRIPTION",2)=""
^DD(.84,"B","DIALOG NUMBER",.01)=""
^DD(.84,"B","INTERNAL PARAMETERS NEEDED",3)=""
^DD(.84,"B","PACKAGE",1.2)=""
^DD(.84,"B","PARAMETER",5)=""
^DD(.84,"B","POST MESSAGE ACTION",6)=""
^DD(.84,"B","SHORT DESCRIPTION",1.3)=""
^DD(.84,"B","TEXT",4)=""
^DD(.84,"B","TRANSLATION",7)=""
^DD(.84,"B","TYPE",1)=""
^DD(.84,"GL",0,1,.01)=""
^DD(.84,"GL",0,2,1)=""
^DD(.84,"GL",0,3,3)=""
^DD(.84,"GL",0,4,1.2)=""
^DD(.84,"GL",0,5,1.3)=""
^DD(.84,"GL",1,0,2)=""
^DD(.84,"GL",2,0,4)=""
^DD(.84,"GL",3,0,5)=""
^DD(.84,"GL",4,0,7)=""
^DD(.84,"GL",5,0,8)=""
^DD(.84,"GL",6,"E1,245",6)=""
^DD(.84,"IX",.01)=""
^DD(.84,"IX",1.2)=""
^DD(.84,"IX",1.3)=""
^DD(.84,"RQ",.01)=""
^DD(.84,"RQ",1)=""
^DD(.84,"RQ",1.2)=""
^DD(.84,"SB",.841,8)=""
^DD(.84,"SB",.842,2)=""
^DD(.84,"SB",.844,4)=""
^DD(.84,"SB",.845,5)=""
^DD(.84,"SB",.847,7)=""
^DD(.841,0)="CALLED FROM ENTRY POINTS SUB-FIELD^^.05^2"
^DD(.841,0,"DT")="2940411"
^DD(.841,0,"IX","B",.841,.01)=""
^DD(.841,0,"NM","CALLED FROM ENTRY POINTS")=""
^DD(.841,0,"UP")=".84"
^DD(.841,.01,0)="ROUTINE NAME^MF^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(.841,.01,1,0)="^.1"
^DD(.841,.01,1,1,0)=".841^B"
^DD(.841,.01,1,1,1)="S ^DI(.84,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(.841,.01,1,1,2)="K ^DI(.84,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(.841,.01,3)="Answer must be 1-8 characters in length."
^DD(.841,.01,21,0)="^^6^6^2940411^"
^DD(.841,.01,21,1,0)="This multiple is used for documentation only.  Entries are made to this"
^DD(.841,.01,21,2,0)="subfile ONLY for ERROR type text.  Enter the routine name of an entry"
^DD(.841,.01,21,3,0)="point that may generate this error message.  You only need to enter the"
^DD(.841,.01,21,4,0)="names of routines that directly generate the error through a call to"
^DD(.841,.01,21,5,0)="^DIALOG, and not when the error is generated by some other utility called"
^DD(.841,.01,21,6,0)="from your routine."
^DD(.841,.01,"DT")="2940411"
^DD(.841,.05,0)="LINE TAG^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(.841,.05,3)="Answer must be 1-10 characters in length."
^DD(.841,.05,21,0)="^^6^6^2940411^"
^DD(.841,.05,21,1,0)="This multiple is used for documentation only.  Entries are made to this"
^DD(.841,.05,21,2,0)="subfile ONLY for ERROR type text.  Enter the line tag of an entry point"
^DD(.841,.05,21,3,0)="that may generate this error message.  You only need to enter the names of"
^DD(.841,.05,21,4,0)="routines that directly generate the error through a call to ^DIALOG, and"
^DD(.841,.05,21,5,0)="not when the error is generated by some other utility called from your"
^DD(.841,.05,21,6,0)="routine."
^DD(.841,.05,"DT")="2940411"
^DD(.841,"B","LINE TAG",.05)=""
^DD(.841,"B","ROUTINE NAME",.01)=""
^DD(.841,"GL",0,1,.01)=""
^DD(.841,"GL",0,2,.05)=""
^DD(.841,"IX",.01)=""
^DD(.842,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(.842,0,"DT")="2930614"
^DD(.842,0,"NM","DESCRIPTION")=""
^DD(.842,0,"UP")=".84"
^DD(.842,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(.842,.01,3)="Describe the use of this dialogue."
^DD(.842,.01,"DT")="2930614"
^DD(.842,"B","DESCRIPTION",.01)=""
^DD(.842,"GL",0,1,.01)=""
^DD(.844,0)="TEXT SUB-FIELD^^.01^1"
^DD(.844,0,"DT")="2930811"
^DD(.844,0,"NM","TEXT")=""
^DD(.844,0,"UP")=".84"
^DD(.844,.01,0)="TEXT^WL^^0;1^Q"
^DD(.844,.01,3)="Enter the actual text of the dialogue, with optional parameter windows."
^DD(.844,.01,"DT")="2930811"
^DD(.844,"B","TEXT",.01)=""
^DD(.844,"GL",0,1,.01)=""
^DD(.845,0)="PARAMETER SUB-FIELD^^1^2"
^DD(.845,0,"DT")="2931105"
^DD(.845,0,"IX","B",.845,.01)=""
^DD(.845,0,"NM","PARAMETER")=""
^DD(.845,0,"UP")=".84"
^DD(.845,.01,0)="PARAMETER SUBSCRIPT^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(.845,.01,1,0)="^.1"
^DD(.845,.01,1,1,0)=".845^B"
^DD(.845,.01,1,1,1)="S ^DI(.84,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(.845,.01,1,1,2)="K ^DI(.84,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(.845,.01,3)="This entry corresponds to the subscript of an entry in either the text or output parameter list to the BLD^DIALOG and $$EZBLD^DIALOG routine.  Answer must be 1-20 characters in length."
^DD(.845,.01,21,0)="^^7^7^2941122^"
^DD(.845,.01,21,1,0)="This multiple is used for documentation purposes only.  The entry in the"
^DD(.845,.01,21,2,0)=".01 field of this multiple will correspond to a subscript in either the"
^DD(.845,.01,21,3,0)="text or output parameter list, that are passed to the routines that build"
^DD(.845,.01,21,4,0)="dialogue messages, BLD^DIALOG and $$EZBLD^DIALOG. This routine will insert"
^DD(.845,.01,21,5,0)="into each 'window' from the TEXT field, the corresponding entry out of the"
^DD(.845,.01,21,6,0)="text parameter list.  For errors only, it passes any entries from the"
^DD(.845,.01,21,7,0)="output parameter list back to the user as entries in its output array."
^DD(.845,.01,"DT")="2931105"
^DD(.845,1,0)="PARAMETER DESCRIPTION^F^^0;2^K:$L(X)>230!($L(X)<1) X"
^DD(.845,1,3)="Describe the Parameter for documentation purposes.  Answer must be 1-230 characters in length."
^DD(.845,1,21,0)="^^5^5^2941122^"
^DD(.845,1,21,1,0)="This field is used for documentation purposes only.  It describes the text"
^DD(.845,1,21,2,0)="and/or output parameter(s) that are passed to BLD^DIALOG and"
^DD(.845,1,21,3,0)="$$EZBLD^DIALOG. The same parameter can be used both as a text parameter"
^DD(.845,1,21,4,0)="(i.e., inserted into the text when it is built), and as an output"
^DD(.845,1,21,5,0)="parameter (i.e., a parameter passed back in a list to the user)"
^DD(.845,1,"DT")="2930614"
^DD(.845,"B","PARAMETER DESCRIPTION",1)=""
^DD(.845,"B","PARAMETER SUBSCRIPT",.01)=""
^DD(.845,"GL",0,1,.01)=""
^DD(.845,"GL",0,2,1)=""
^DD(.845,"IX",.01)=""
^DD(.847,0)="TRANSLATION SUB-FIELD^^1^2"
^DD(.847,0,"DT")="2940524"
^DD(.847,0,"IX","B",.847,.01)=""
^DD(.847,0,"NM","TRANSLATION")=""
^DD(.847,0,"UP")=".84"
^DD(.847,.01,0)="LANGUAGE^M*P.85'X^DI(.85,^0;1^S DIC(""S"")=""I Y>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$G(X) DINUM=X"
^DD(.847,.01,1,0)="^.1"
^DD(.847,.01,1,1,0)=".847^B"
^DD(.847,.01,1,1,1)="S ^DI(.84,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(.847,.01,1,1,2)="K ^DI(.84,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(.847,.01,3)="Enter the number or name for a non-English language."
^DD(.847,.01,12)="English language cannot be selected."
^DD(.847,.01,12.1)="S DIC(""S"")=""I Y>1"""
^DD(.847,.01,21,0)="^^3^3^2941118^^"
^DD(.847,.01,21,1,0)="Pointer to the LANGUAGE file. If FileMan system variable DUZ(""LANG"") is"
^DD(.847,.01,21,2,0)="set to an integer greater than 1, we use that number to extract dialogue"
^DD(.847,.01,21,3,0)="text for the specified language from this multiple."
^DD(.847,.01,"DT")="2940524"
^DD(.847,1,0)="FOREIGN TEXT^.8471^^1;0"
^DD(.847,1,21,0)="^^3^3^2941118^"
^DD(.847,1,21,1,0)="Insert here the non-English equivalent for this language to the text in"
^DD(.847,1,21,2,0)="the TEXT field for this entry.  This field may contain windows for"
^DD(.847,1,21,3,0)="variable parameters the same as the TEXT field."
^DD(.847,"B","FOREIGN TEXT",1)=""
^DD(.847,"B","LANGUAGE",.01)=""
^DD(.847,"GL",0,1,.01)=""
^DD(.847,"GL",1,0,1)=""
^DD(.847,"IX",.01)=""
^DD(.847,"SB",.8471,1)=""
^DD(.8471,0)="FOREIGN TEXT SUB-FIELD^^.01^1"
^DD(.8471,0,"DT")="2930811"
^DD(.8471,0,"NM","FOREIGN TEXT")=""
^DD(.8471,0,"UP")=".847"
^DD(.8471,.01,0)="FOREIGN TEXT^WL^^0;1^Q"
^DD(.8471,.01,3)="Enter the non-English dialog text"
^DD(.8471,.01,"DT")="2930811"
^DD(.8471,"B","FOREIGN TEXT",.01)=""
^DD(.8471,"GL",0,1,.01)=""
^DD(.85,0)="FIELD^^20.2^10"
^DD(.85,0,"DDA")="N"
^DD(.85,0,"DT")="2960318"
^DD(.85,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(.85,0,"IX","B",.85,.01)=""
^DD(.85,0,"IX","C",.85,1)=""
^DD(.85,0,"NM","LANGUAGE")=""
^DD(.85,0,"PT",.847,.01)=""
^DD(.85,0,"PT",200,200.07)=""
^DD(.85,0,"PT",8989.3,207)=""
^DD(.85,0,"VR")="22.0"
^DD(.85,.01,0)="ID NUMBER^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(.85,.01,.1)="Language-ID-Number"
^DD(.85,.01,1,0)="^.1"
^DD(.85,.01,1,1,0)=".85^B"
^DD(.85,.01,1,1,1)="S ^DI(.85,""B"",$E(X,1,30),DA)="""""
^DD(.85,.01,1,1,2)="K ^DI(.85,""B"",$E(X,1,30),DA)"
^DD(.85,.01,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(.85,.01,21,0)="^^3^3^2941121^^"
^DD(.85,.01,21,1,0)="A number that is used to uniquely identify a language.  This number"
^DD(.85,.01,21,2,0)="corresponds to the FileMan system variable DUZ(""LANG""), which is set"
^DD(.85,.01,21,3,0)="during Kernel signon to signify which language FileMan should use."
^DD(.85,.01,"DT")="2940524"
^DD(.85,1,0)="NAME^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(.85,1,.1)="Language-Name"
^DD(.85,1,1,0)="^.1"
^DD(.85,1,1,1,0)=".85^C"
^DD(.85,1,1,1,1)="S ^DI(.85,""C"",$E(X,1,30),DA)="""""
^DD(.85,1,1,1,2)="K ^DI(.85,""C"",$E(X,1,30),DA)"
^DD(.85,1,1,1,"DT")="2940307"
^DD(.85,1,3)="Answer must be 1-30 characters in length. (e.g., ENGLISH, GERMAN, FRENCH)"
^DD(.85,1,21,0)="^^2^2^2941121^"
^DD(.85,1,21,1,0)="The descriptive name of the language corresponding to this entry (i.e.,"
^DD(.85,1,21,2,0)="German, Spanish)."
^DD(.85,1,23,0)="^^1^1^2940524^^"
^DD(.85,1,23,1,0)="Descriptive name of this language (e.g., ENGLISH, GERMAN)."
^DD(.85,1,"DT")="2940524"
^DD(.85,10.1,0)="ORDINAL NUMBER FORMAT^K^^ORD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,10.1,3)="This is Standard MUMPS code."
^DD(.85,10.1,9)="@"
^DD(.85,10.1,21,0)="^^6^6^2941121^^^^"
^DD(.85,10.1,21,1,0)="MUMPS code used to transfer a number in Y to its ordinal equivalent in"
^DD(.85,10.1,21,2,0)="this language. The code should set Y to the ordinal equivalent without"
^DD(.85,10.1,21,3,0)="altering any other variables in the environment.  Ex. in English:"
^DD(.85,10.1,21,4,0)="       Y=1     becomes         Y=1ST"
^DD(.85,10.1,21,5,0)="       Y=2     becomes         Y=2ND"
^DD(.85,10.1,21,6,0)="       Y=3     becomes         Y=3RD  etc."
^DD(.85,10.1,"DT")="2940307"
^DD(.85,10.2,0)="DATE/TIME FORMAT^K^^DD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,10.2,3)="This is Standard MUMPS code."
^DD(.85,10.2,9)="@"
^DD(.85,10.2,21,0)="^^6^6^2941121^^^"
^DD(.85,10.2,21,1,0)="MUMPS code used to transfer a date or date/time in Y from FileMan internal"
^DD(.85,10.2,21,2,0)="format, to printable format equivalent to English MMM DD,YYYY@HH.MM.SS."
^DD(.85,10.2,21,3,0)="The code should set Y to the output, without altering any other variables"
^DD(.85,10.2,21,4,0)="in the environment.  Ex. in English:"
^DD(.85,10.2,21,5,0)=" "
^DD(.85,10.2,21,6,0)="       Y=2940612.031245        becomes         Y=JUN 12,1994@03:12:45"
^DD(.85,10.2,"DT")="2940307"
^DD(.85,10.21,0)="DATE/TIME FORMAT (FMTE)^K^^FMTE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,10.21,3)="This is Standard MUMPS code."
^DD(.85,10.21,9)="@"
^DD(.85,10.21,21,0)="^^22^22^2941122^"
^DD(.85,10.21,21,1,0)="MUMPS code used to transfer a date or date/time in Y from FileMan internal"
^DD(.85,10.21,21,2,0)="format, to printable format based on the various outputs from routine"
^DD(.85,10.21,21,3,0)="FMTE^DILIBF.  This is an extrinsic function.  Coming in to this MUMPS"
^DD(.85,10.21,21,4,0)="code, in addition to the internal date in Y, a third parameter will be"
^DD(.85,10.21,21,5,0)="defined to contain flags equivalent to the flag passed as the second input"
^DD(.85,10.21,21,6,0)="parameter to FMTE^DILIBF. The code should set Y to the output, without"
^DD(.85,10.21,21,7,0)="altering any other variables in the environment.  The output should be"
^DD(.85,10.21,21,8,0)="formatted based on these flags:"
^DD(.85,10.21,21,9,0)=" "
^DD(.85,10.21,21,10,0)=" 1    MMM DD, YYYY@HH:MM:SS"
^DD(.85,10.21,21,11,0)=" 2    MM/DD/YY@HH:MM:SS     no leading zeroes on month,day"
^DD(.85,10.21,21,12,0)=" 3    DD/MM/YY@HH:MM:SS     no leading zeroes on month,day"
^DD(.85,10.21,21,13,0)=" 4    YY/MM/DD@HH:MM:SS"
^DD(.85,10.21,21,14,0)=" 5    MMM DD,YYYY@HH:MM:SS  no space before year,no leading zero on day"
^DD(.85,10.21,21,15,0)=" 6    MM-DD-YYYY @ HH:MM:SS spaces separate time "
^DD(.85,10.21,21,16,0)=" 7    MM-DD-YYYY@HH:MM:SS   no leading zeroes on month,day"
^DD(.85,10.21,21,17,0)=" "
^DD(.85,10.21,21,18,0)="letters in the flag"
^DD(.85,10.21,21,19,0)=" S    return always seconds"
^DD(.85,10.21,21,20,0)=" U    return uppercase month names"
^DD(.85,10.21,21,21,0)=" P    return time as am,pm"
^DD(.85,10.21,21,22,0)=" D    return only date part"
^DD(.85,10.21,"DT")="2940624"
^DD(.85,10.22,0)="TIME^K^^TIME;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,10.22,3)="This is Standard MUMPS code for the output of time only."
^DD(.85,10.22,9)="@"
^DD(.85,10.22,21,0)="^^2^2^2960318^"
^DD(.85,10.22,21,1,0)="The code stored here will be used to get formatted output of the time"
^DD(.85,10.22,21,2,0)="part belonging to a FileMan Date/Time value."
^DD(.85,10.22,"DT")="2960318"
^DD(.85,10.3,0)="CARDINAL NUMBER FORMAT^K^^CRD;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,10.3,3)="This is Standard MUMPS code."
^DD(.85,10.3,9)="@"
^DD(.85,10.3,21,0)="^^5^5^2941121^^"
^DD(.85,10.3,21,1,0)="MUMPS code used to transfer a number in Y to its cardinal equivalent in"
^DD(.85,10.3,21,2,0)="this language. The code should set Y to the cardinal equivalent without"
^DD(.85,10.3,21,3,0)="altering any other variables in the environment.  Ex. in English:"
^DD(.85,10.3,21,4,0)="       Y=2000     becomes         Y=2,000"
^DD(.85,10.3,21,5,0)="       Y=1234567  becomes         Y=1,234,567"
^DD(.85,10.3,"DT")="2940308"
^DD(.85,10.4,0)="UPPERCASE CONVERSION^K^^UC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,10.4,3)="This is Standard MUMPS code."
^DD(.85,10.4,9)="@"
^DD(.85,10.4,21,0)="^^4^4^2941121^"
^DD(.85,10.4,21,1,0)="MUMPS code used to convert text in Y to its upper-case equivalent in"
^DD(.85,10.4,21,2,0)="this language. The code should set Y to the external format without"
^DD(.85,10.4,21,3,0)="altering any other variables in the environment.  In English, changes"
^DD(.85,10.4,21,4,0)="   abCdeF      to: ABCDEF"
^DD(.85,10.4,"DT")="2940308"
^DD(.85,10.5,0)="LOWERCASE CONVERSION^K^^LC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,10.5,3)="This is Standard MUMPS code."
^DD(.85,10.5,9)="@"
^DD(.85,10.5,21,0)="^^4^4^2941121^"
^DD(.85,10.5,21,1,0)="MUMPS code used to convert text in Y to its lower-case equivalent in  "
^DD(.85,10.5,21,2,0)="this language. The code should set Y to the external format without"
^DD(.85,10.5,21,3,0)="altering any other variables in the environment.  In English, changes:"
^DD(.85,10.5,21,4,0)="    ABcdEFgHij         to:  abcdefghij"
^DD(.85,10.5,"DT")="2940308"
^DD(.85,20.2,0)="DATE INPUT^K^^20.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(.85,20.2,3)="This is Standard MUMPS code."
^DD(.85,20.2,9)="@"
^DD(.85,20.2,"DT")="2940714"
^DD(.85,"B","CARDINAL NUMBER FORMAT",10.3)=""
^DD(.85,"B","DATE INPUT",20.2)=""
^DD(.85,"B","DATE/TIME FORMAT",10.2)=""
^DD(.85,"B","DATE/TIME FORMAT (FMTE)",10.21)=""
^DD(.85,"B","ID NUMBER",.01)=""
^DD(.85,"B","LOWERCASE CONVERSION",10.5)=""
^DD(.85,"B","Language-ID-Number",.01)="1"
^DD(.85,"B","Language-Name",1)="1"
^DD(.85,"B","NAME",1)=""
^DD(.85,"B","ORDINAL NUMBER FORMAT",10.1)=""
^DD(.85,"B","TIME",10.22)=""
^DD(.85,"B","UPPERCASE CONVERSION",10.4)=""
^DD(.85,"GL",0,1,.01)=""
^DD(.85,"GL",0,2,1)=""
^DD(.85,"GL",20.2,"E1,245",20.2)=""
^DD(.85,"GL","CRD","E1,245",10.3)=""
^DD(.85,"GL","DD","E1,245",10.2)=""
^DD(.85,"GL","FMTE","E1,245",10.21)=""
^DD(.85,"GL","LC","E1,245",10.5)=""
^DD(.85,"GL","ORD","E1,245",10.1)=""
^DD(.85,"GL","TIME","E1,245",10.22)=""
^DD(.85,"GL","UC","E1,245",10.4)=""
^DD(.85,"IX",.01)=""
^DD(.85,"IX",1)=""
^DD(.85,"RQ",.01)=""
^DD(.85,"RQ",1)=""
^DD(1,0)="ATTRIBUTE^N^^22"
^DD(1,0,"IX","AC",1.005,.01)=""
^DD(1,0,"IX","AD",1,.01)=""
^DD(1,0,"IX","AE",1,.01)=""
^DD(1,0,"IX","B",1,.01)=""
^DD(1,0,"NM","FILE")=""
^DD(1,0,"PT",.12,.01)=""
^DD(1,0,"PT",.4,4)=""
^DD(1,0,"PT",.4,20)=""
^DD(1,0,"PT",.401,4)=""
^DD(1,0,"PT",.402,4)=""
^DD(1,0,"PT",.46,4)=""
^DD(1,0,"PT",.463,1)=""
^DD(1,0,"PT",1.11,1)=""
^DD(1,0,"PT",1.11,17)=""
^DD(1,0,"PT",1.12,.04)=""
^DD(1,0,"PT",4.001,.01)=""
^DD(1,0,"PT",4.32,1)=""
^DD(1,0,"PT",9.402,.01)=""
^DD(1,0,"PT",9.44,.01)=""
^DD(1,0,"PT",9.46,2)=""
^DD(1,0,"PT",9.47,2)=""
^DD(1,0,"PT",9.48,2)=""
^DD(1,0,"PT",9.485,2)=""
^DD(1,0,"PT",9.64,.01)=""
^DD(1,0,"PT",9.67,.01)=""
^DD(1,0,"PT",9.68,.02)=""
^DD(1,0,"PT",9.714,.01)=""
^DD(1,0,"PT",9.715,.01)=""
^DD(1,0,"PT",15.1,.01)=""
^DD(1,0,"PT",15.111,.04)=""
^DD(1,0,"PT",15.112,.01)=""
^DD(1,0,"PT",15.41,.01)=""
^DD(1,0,"PT",15.42,.01)=""
^DD(1,0,"PT",63,.02)=""
^DD(1,0,"PT",63.9999,.02)=""
^DD(1,0,"PT",68.02,1)=""
^DD(1,0,"PT",95.11,1)=""
^DD(1,0,"PT",95.11,15)=""
^DD(1,0,"PT",100.9955,.02)=""
^DD(1,0,"PT",128.1,.05)=""
^DD(1,0,"PT",142.17,.01)=""
^DD(1,0,"PT",154.8,.03)=""
^DD(1,0,"PT",194.51,.01)=""
^DD(1,0,"PT",195.16,.01)=""
^DD(1,0,"PT",195.17,.01)=""
^DD(1,0,"PT",200.032,.01)=""
^DD(1,0,"PT",301.92,.04)=""
^DD(1,0,"PT",350.6,.03)=""
^DD(1,0,"PT",353,2.01)=""
^DD(1,0,"PT",364.5,.05)=""
^DD(1,0,"PT",390.1,.02)=""
^DD(1,0,"PT",404.9204,.01)=""
^DD(1,0,"PT",404.9204,.03)=""
^DD(1,0,"PT",409.64,.02)=""
^DD(1,0,"PT",420.19,3)=""
^DD(1,0,"PT",446.5,.02)=""
^DD(1,0,"PT",690.2,1)=""
^DD(1,0,"PT",703.91,.01)=""
^DD(1,0,"PT",740.1,.03)=""
^DD(1,0,"PT",740.5,.01)=""
^DD(1,0,"PT",743.4,.03)=""
^DD(1,0,"PT",743.5,.02)=""
^DD(1,0,"PT",748.2,.01)=""
^DD(1,0,"PT",771.1,4)=""
^DD(1,0,"PT",811.22101,.03)=""
^DD(1,0,"PT",811.94,.01)=""
^DD(1,0,"PT",2005.03,.04)=""
^DD(1,0,"PT",8925.1,1.01)=""
^DD(1,0,"PT",8925.8,.04)=""
^DD(1,0,"PT",8930.4,.02)=""
^DD(1,0,"PT",8980.2,.04)=""
^DD(1,0,"PT",8984.1,.04)=""
^DD(1,0,"PT",8984.3,.02)=""
^DD(1,0,"PT",8984.4,.01)=""
^DD(1,0,"PT",8989.52,.03)=""
^DD(1,0,"VR")="22.0"
^DD(1,.001,0)="NUMBER^N^^ ^K:X<2!$D(^DD(X)) X I $D(X),$D(^VA(200,DUZ,1))#2,$P(^(1),U)]"""" I X<$P(^(1),""-"")!(X>$P($P(^(1),U),""-"",2)) K X"
^DD(1,.001,4)="W !?5,""Enter an unused number"" I $D(^VA(200,DUZ,1)),$P(^(1),U)]"""" W "" within the range, "",$P(^(1),U)"
^DD(1,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3) X"
^DD(1,.01,1,0)="^.1^1^1"
^DD(1,.01,1,1,0)="1^B"
^DD(1,.01,1,1,1)="S @(DIC_""""""B"""",$E(X,1,30),DA)="""""""""")"
^DD(1,.01,1,1,2)="K @(DIC_""""""B"""",$E(X,1,30),DA)"")"
^DD(1,.01,1,2,0)="1^AD^MUMPS"
^DD(1,.01,1,2,1)="I DIC'?1""^DOPT("".E,$D(^DIC(DA,0,""GL""))  S $P(@(^DIC(DA,0,""GL"")_""0)""),U,1)=X"
^DD(1,.01,1,2,2)="Q"
^DD(1,.01,1,3,0)="1^AE^MUMPS"
^DD(1,.01,1,3,1)="S:DIC'?1""^DOPT("".E ^DD(DA,0,""NM"",X)="""""
^DD(1,.01,1,3,2)="K ^DD(DA,0,""NM"")"
^DD(1,.01,3)="3-45 CHARACTERS"
^DD(1,.01,"DEL",.5,0)="I DIC=""^DIC("" D POINT^DIDH I $O(^DD(DA,0,""PT"",0))'="""""
^DD(1,.01,"DEL",1,0)="I DIC=""^DIC("" D K^DIU2"
^DD(1,.01,"DEL","TRB",0)="I $D(^DD(DA,""TRB"")) D TRIG^DIDH"
^DD(1,1,0)="GLOBAL NAME^CJ14^^ ; ^S X=$S($D(^DIC(D0,0,""GL"")):^(""GL""),1:"""")"
^DD(1,1.1,0)="ENTRIES^CJ7,0^^ ; ^S @(""X=+$P(""_$S($D(^DIC(D0,0,""GL"")):""$S($D(""_^(""GL"")_""0)):^(0),1:0)"",1:0)_"",""""^"""",4)"")"
^DD(1,4,0)="DESCRIPTION^1.001^^%D;0"
^DD(1,10,0)="APPLICATION GROUP^1.005^^%;0"
^DD(1,20,0)="DEVELOPER^P200'^VA(200,^%A;1^Q"
^DD(1,21,0)="DATE^D^^%A;2^S %DT="""" D ^%DT S X=Y K:X<9 X"
^DD(1,31,0)="DD ACCESS^C^^ ; ^S X=$S($D(^DIC(D0,0,""DD"")):^(""DD""),1:"""")"
^DD(1,32,0)="RD ACCESS^C^^ ; ^S X=$S($D(^DIC(D0,0,""RD"")):^(""RD""),1:"""")"
^DD(1,33,0)="WR ACCESS^C^^ ; ^S X=$S($D(^DIC(D0,0,""WR"")):^(""WR""),1:"""")"
^DD(1,34,0)="DEL ACCESS^C^^ ; ^S X=$S($D(^DIC(D0,0,""DEL"")):^(""DEL""),1:"""")"
^DD(1,35,0)="LAYGO ACCESS^C^^ ; ^S X=$S($D(^DIC(D0,0,""LAYGO"")):^(""LAYGO""),1:"""")"
^DD(1,36,0)="AUDIT ACCESS^C^^ ; ^S X=$S($D(^DIC(D0,0,""AUDIT"")):^(""AUDIT""),1:"""")"
^DD(1,50,0)="LOOKUP PROGRAM^C^^ ; ^S X=$S($D(^DD(D0,0,""DIC"")):^(""DIC""),1:"""")"
^DD(1,51,0)="VERSION^CJ8^^ ; ^S X=$P($G(^DD(D0,0,""VR"")),U)"
^DD(1,51.1,0)="DISTRIBUTION PACKAGE^CJ30^^ ; ^S X=$G(^DD(D0,0,""VRPK""))"
^DD(1,51.2,0)="PACKAGE REVISION DATA^CJ240^^ ; ^S X=$G(^DD(D0,0,""VRRV""))"
^DD(1,54,0)="ARCHIVE FILE^C^^ ; ^S X=$S($D(^DD(D0,0,""DI"")):$P(^(""DI""),U),1:"""")"
^DD(1,1815,0)="COMPILED X-REF ROUTINE^CJ9^^ ; ^S X=$G(^DD(D0,0,""DIK""))"
^DD(1,1815,9)="^"
^DD(1,1815,9.01)=""
^DD(1,1815,9.1)="S X=$G(^DD(D0,0,""DIK""))"
^DD(1,1816,0)="OLD COMPILED X-REF ROUTINE^CJ8^^ ; ^S X=$G(^DD(D0,0,""DIKOLD""))"
^DD(1,1816,9)="^"
^DD(1,1816,9.01)=""
^DD(1,1816,9.1)="S X=$G(^DD(D0,0,""DIKOLD""))"
^DD(1,1819,0)="COMPILED CROSS-REFERENCES^CJ3^^ ; ^S X=$S($G(^DD(D0,0,""DIK""))]"""":""YES"",1:""NO"")"
^DD(1,1819,9)="^"
^DD(1,1819,9.01)=""
^DD(1,1819,9.1)="S X=$S($G(^DD(D0,0,""DIK""))]"""":""YES"",1:""NO"")"
^DD(1,1819,21,0)="^^3^3^2930709^"
^DD(1,1819,21,1,0)="Computed field that indicates whether or not cross-references are"
^DD(1,1819,21,2,0)="compiled.  This field can be seen when doing an INQUIRE to the FILE "
^DD(1,1819,21,3,0)="file (file #1, sometimes referred to as the file of files.)"
^DD(1,"B","APPLICATION GROUP",10)=""
^DD(1,"B","ARCHIVE FILE",54)=""
^DD(1,"B","AUDIT ACCESS",36)=""
^DD(1,"B","COMPILED CROSS-REFERENCES",1819)=""
^DD(1,"B","COMPILED X-REF ROUTINE",1815)=""
^DD(1,"B","DATE",21)=""
^DD(1,"B","DD ACCESS",31)=""
^DD(1,"B","DEL ACCESS",34)=""
^DD(1,"B","DESCRIPTION",4)=""
^DD(1,"B","DEVELOPER",20)=""
^DD(1,"B","DISTRIBUTION PACKAGE",51.1)=""
^DD(1,"B","ENTRIES",1.1)=""
^DD(1,"B","GLOBAL NAME",1)=""
^DD(1,"B","LAYGO ACCESS",35)=""
^DD(1,"B","LOOKUP PROGRAM",50)=""
^DD(1,"B","NAME",.01)=""
^DD(1,"B","NUMBER",.001)=""
^DD(1,"B","OLD COMPILED X-REF ROUTINE",1816)=""
^DD(1,"B","PACKAGE REVISION DATA",51.2)=""
^DD(1,"B","RD ACCESS",32)=""
^DD(1,"B","VERSION",51)=""
^DD(1,"B","WR ACCESS",33)=""
^DD(1,"GL",0,1,.01)=""
^DD(1,"GL","%",0,10)=""
^DD(1,"GL","%A",1,20)=""
^DD(1,"GL","%A",2,21)=""
^DD(1,"GL","%D",0,4)=""
^DD(1,"IX",.01)=""
^DD(1,"RQ",.01)=""
^DD(1,"SB",1.001,4)=""
^DD(1,"SB",1.005,10)=""
^DD(1.001,0)="DESCRIPTION"
^DD(1.001,0,"UP")="1"
^DD(1.001,.01,0)="DESCRIPTION^W^^0;1"
^DD(1.005,0)="APPLICATION GROUP^^^2"
^DD(1.005,0,"IX","B",1.005,.01)=""
^DD(1.005,0,"NM","APPLICATION-GROUP")=""
^DD(1.005,0,"UP")="1"
^DD(1.005,.01,0)="APPLICATION GROUP^MF^^0;1^K:X'?.U!($L(X)+1\3-1) X"
^DD(1.005,.01,1,0)="^.1^2^2"
^DD(1.005,.01,1,1,0)="1.005^B"
^DD(1.005,.01,1,1,1)="S ^DIC(DA(1),""%"",""B"",X,DA)="""""
^DD(1.005,.01,1,1,2)="K ^DIC(DA(1),""%"",""B"",X,DA)"
^DD(1.005,.01,1,2,0)="1^AC"
^DD(1.005,.01,1,2,1)="S ^DIC(""AC"",X,DA(1),DA)="""""
^DD(1.005,.01,1,2,2)="K ^DIC(""AC"",X,DA(1),DA)"
^DD(1.005,.01,3)="A 'NAMESPACE' (2-4 BYTES) INDICATING A PACKAGE ACCESSING THIS FILE"
^DD(1.005,1,0)="PACKAGE NAME^CJ30^^ ; ^S X=$S($D(^DIC(9.4,+$O(^DIC(9.4,""C"",X,0)),0)):$P(^(0),U,1),1:"""")"
^DD(1.005,"B","APPLICATION GROUP",.01)=""
^DD(1.005,"B","PACKAGE NAME",1)=""
^DD(1.005,"GL",0,1,.01)=""
^DD(1.005,"IX",.01)=""
^DD(1.01,0)="ATTRIBUTE^^^2"
^DD(1.01,0,"IX","B",1.01,.01)=""
^DD(1.01,0,"NM","OPTION")=""
^DD(1.01,.001,0)="NUMBER^N^^ ^K:X\1'=X X"
^DD(1.01,.01,0)="NAME^RF^^0;1^K:$L(X)>70 X"
^DD(1.01,.01,1,0)="^.1"
^DD(1.01,.01,1,1,0)="1.01^B"
^DD(1.01,.01,1,1,1)="S @(DIC_""""""B"""",$E(X,1,30),DA)="""""""""")"
^DD(1.01,.01,1,1,2)="K @(DIC_""""""B"""",$E(X,1,30),DA)"")"
^DD(1.01,"B","NAME",.01)=""
^DD(1.01,"B","NUMBER",.001)=""
^DD(1.01,"GL",0,1,.01)=""
^DD(1.01,"IX",.01)=""
^DD(1.01,"RQ",.01)=""
^DD(1.1,0)="FIELD^^4.2^16"
^DD(1.1,0,"ID","WRITE")="N % S %=$P(^(0),U,2) D EN^DDIOL(""   ""_$E(%,4,5)_""-""_$E(%,6,7)_""-""_$E(%,2,3)_""@""_$E($P(%_""0000"",""."",2),1,4),"""",""?0"")"
^DD(1.1,0,"IX","B",1.1,.01)=""
^DD(1.1,0,"IX","C",1.1,.02)=""
^DD(1.1,0,"IX","D",1.1,.04)=""
^DD(1.1,0,"NM","AUDIT")=""
^DD(1.1,0,"VR")="22.0"
^DD(1.1,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.1,.001,3)="A whole number greater than 1."
^DD(1.1,.01,0)="INTERNAL ENTRY NUMBER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<1)!'(X'?1P.E) X"
^DD(1.1,.01,.1)="The Internal Number of the Entry that has been audited."
^DD(1.1,.01,1,0)="^.1"
^DD(1.1,.01,1,1,0)="1.1^B"
^DD(1.1,.01,1,1,1)="S ^DIA(DIA,""B"",$E(X,1,30),DA)="""""
^DD(1.1,.01,1,1,2)="K ^DIA(DIA,""B"",$E(X,1,30),DA)"
^DD(1.1,.02,0)="DATE/TIME RECORDED^RD^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(1.1,.02,1,0)="^.1"
^DD(1.1,.02,1,1,0)="1.1^C"
^DD(1.1,.02,1,1,1)="S ^DIA(DIA,""C"",$E(X,1,30),DA)="""""
^DD(1.1,.02,1,1,2)="K ^DIA(DIA,""C"",$E(X,1,30),DA)"
^DD(1.1,.03,0)="FIELD NUMBER^RF^^0;3^K:$L(X)>10!$L(X)<1) X"
^DD(1.1,.03,3)="The number of the field that was audited."
^DD(1.1,.04,0)="USER^RP200'^VA(200,^0;4^Q"
^DD(1.1,.04,1,0)="^.1"
^DD(1.1,.04,1,1,0)="1.1^D"
^DD(1.1,.04,1,1,1)="S ^DIA(DIA,""D"",$E(X,1,30),DA)="""""
^DD(1.1,.04,1,1,2)="K ^DIA(DIA,""D"",$E(X,1,30),DA)"
^DD(1.1,.05,0)="RECORD ADDED^S^A:Added Record;^0;5^Q"
^DD(1.1,.05,21,0)="^^2^2^2981028^"
^DD(1.1,.05,21,1,0)="When a new recorded is added to a file (sub-file) and the .01 field is"
^DD(1.1,.05,21,2,0)="being audited, then this field will be set to an 'A'."
^DD(1.1,1,0)="ENTRY NAME^CJ30^^ ; ^S %=^DIC(DIA,0,""GL""),X=^DIA(DIA,D0,0),X=$S($D(@(%_+X_"",0)"")):$P(^(0),U,1),1:""""),C=$S($D(^DD(DIA,.01,0)):$P(^(0),U,2),1:""""),Y=X D:Y]"""" Y^DIQ:C]"""" S X=Y,C="","""
^DD(1.1,1,9)="^"
^DD(1.1,1.1,0)="FIELD NAME^CJ50X^^ ; ^S Y(1.1,1.1)=$S($D(^DIA(DIA,D0,0)):$P(^(0),U,3),1:"""") X ^DD(1.1,1.1,9.2) K Y(1.1) S X=$E(X,1,$L(X)-1)"
^DD(1.1,1.1,9)="^"
^DD(1.1,1.1,9.2)="X ^DD(1.1,1.1,9.3) S X="""" F %=1:1:%-1 S X=X_Y(1.1,%)_"","""
^DD(1.1,1.1,9.3)="S X1=DIA F %=1:1 S X=$P(Y(1.1,1.1),"","",%) Q:X=""""  S Y(1.1,%)=$S($D(^DD(X1,X,0)):$P(^(0),U,1,2),1:""????""),X1=+$P(Y(1.1,%),U,2),Y(1.1,%)=$P(Y(1.1,%),U,1)"
^DD(1.1,2,0)="OLD VALUE^CJ80^^ ; ^S X=$S($D(^DIA(DIA,D0,2)):^(2),1:""<no previous value>"")"
^DD(1.1,2,9)="^"
^DD(1.1,2.1,0)="OLD INTERNAL VALUE^F^^2.1;1^K:$L(X)>30 X"
^DD(1.1,2.2,0)="DATATYPE OF OLD VALUE^S^S:SET;P:POINTER;V:VARIABLE POINTER;^2.1;2^Q"
^DD(1.1,3,0)="NEW VALUE^CJ80^^ ; ^S X=$S($D(^DIA(DIA,D0,3)):^(3),1:""<deleted>"")"
^DD(1.1,3,9)="^"
^DD(1.1,3.1,0)="NEW INTERNAL VALUE^F^^3.1;1^K:$L(X)>30 X"
^DD(1.1,3.2,0)="DATATYPE OF NEW VALUE^S^S:SET;P:POINTER;V:VARIABLE POINTER;^3.1;2^Q"
^DD(1.1,4.1,0)="MENU OPTION USED^P19'^DIC(19,^4.1;1^Q"
^DD(1.1,4.1,21,0)="^^2^2^2981021^^"
^DD(1.1,4.1,21,1,0)="This is the Option that the Kernel menu system used to change the audited"
^DD(1.1,4.1,21,2,0)="data."
^DD(1.1,4.1,23,0)="^^2^2^2981021^"
^DD(1.1,4.1,23,1,0)="This field contains the value of +XQY and is a direct pointer to the"
^DD(1.1,4.1,23,2,0)="OPTION FILE (#19)."
^DD(1.1,4.2,0)="PROTOCOL or OPTION USED^V^^4.1;2^Q"
^DD(1.1,4.2,3)="Answer must be 1-63 characters in length."
^DD(1.1,4.2,21,0)="^^2^2^2981021^"
^DD(1.1,4.2,21,1,0)="This is the Protocol or Option (type Protocol) that was used when the"
^DD(1.1,4.2,21,2,0)="audit took place."
^DD(1.1,4.2,23,0)="^^3^3^2981021^^"
^DD(1.1,4.2,23,1,0)="This is a Variable Pointer field who's value is obtain from the local"
^DD(1.1,4.2,23,2,0)="variable XQORNOD, which is in the form ien;global root.  It can either"
^DD(1.1,4.2,23,3,0)="point to the Option file or to the Protocol file."
^DD(1.1,4.2,"V",0)="^.12P^2^2"
^DD(1.1,4.2,"V",1,0)="19^What Option was used?^1^O^^n"
^DD(1.1,4.2,"V",2,0)="101^What Protocol was used?^2^P^^n"
^DD(1.1,4.2,"V","B",19,1)=""
^DD(1.1,4.2,"V","B",101,2)=""
^DD(1.1,4.2,"V","M","What Option was used?",1)=""
^DD(1.1,4.2,"V","M","What Protocol was used?",2)=""
^DD(1.1,4.2,"V","O",1,1)=""
^DD(1.1,4.2,"V","O",2,2)=""
^DD(1.1,4.2,"V","P","O",1)=""
^DD(1.1,4.2,"V","P","P",2)=""
^DD(1.1,"B","DATATYPE OF NEW VALUE",3.2)=""
^DD(1.1,"B","DATATYPE OF OLD VALUE",2.2)=""
^DD(1.1,"B","DATE/TIME RECORDED",.02)=""
^DD(1.1,"B","ENTRY NAME",1)=""
^DD(1.1,"B","FIELD NAME",1.1)=""
^DD(1.1,"B","FIELD NUMBER",.03)=""
^DD(1.1,"B","INTERNAL ENTRY NUMBER",.01)=""
^DD(1.1,"B","MENU OPTION USED",4.1)=""
^DD(1.1,"B","NEW INTERNAL VALUE",3.1)=""
^DD(1.1,"B","NEW VALUE",3)=""
^DD(1.1,"B","NUMBER",.001)=""
^DD(1.1,"B","OLD INTERNAL VALUE",2.1)=""
^DD(1.1,"B","OLD VALUE",2)=""
^DD(1.1,"B","PROTOCOL or OPTION USED",4.2)=""
^DD(1.1,"B","RECORD ADDED",.05)=""
^DD(1.1,"B","USER",.04)=""
^DD(1.1,"GL",0,1,.01)=""
^DD(1.1,"GL",0,2,.02)=""
^DD(1.1,"GL",0,3,.03)=""
^DD(1.1,"GL",0,4,.04)=""
^DD(1.1,"GL",0,5,.05)=""
^DD(1.1,"GL",2.1,1,2.1)=""
^DD(1.1,"GL",2.1,2,2.2)=""
^DD(1.1,"GL",3.1,1,3.1)=""
^DD(1.1,"GL",3.1,2,3.2)=""
^DD(1.1,"GL",4.1,1,4.1)=""
^DD(1.1,"GL",4.1,2,4.2)=""
^DD(1.1,"IX",.01)=""
^DD(1.1,"IX",.02)=""
^DD(1.1,"IX",.04)=""
^DD(1.1,"RQ",.01)=""
^DD(1.1,"RQ",.02)=""
^DD(1.1,"RQ",.03)=""
^DD(1.1,"RQ",.04)=""
^DD(1.11,0)="FIELD^^16^24"
^DD(1.11,0,"DT")="2920514"
^DD(1.11,0,"ID",1)="W ""   "",$O(^DD(+$P(^(0),U,2),0,""NM"",0)),$E(^DIAR(1.11,Y,0),0)"
^DD(1.11,0,"ID",4)="W ?40,$E($P(^(0),U,5),4,5)_""-""_$E($P(^(0),U,5),6,7)_""-""_$E($P(^(0),U,5),2,3)"
^DD(1.11,0,"ID",7)="W ""   "",$P($P($C(59)_$S($D(^DD(1.11,7,0)):$P(^(0),U,3),1:0),$C(59)_$P(^DIAR(1.11,Y,0),U,8)_"":"",2),$C(59),1)"
^DD(1.11,0,"ID",8)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,9),0))#2:$P(^(0),U,1),1:""""),C=$P($G(^DD(200,.01,0)),U,2) D:C]"""" Y^DIQ:Y]"""" W ""   SELECTOR:"",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(1.11,0,"ID",16)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(1.11,16,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,17)_"""":"""",2),$C(59),1)"")"
^DD(1.11,0,"IX","B",1.11,.01)=""
^DD(1.11,0,"IX","C",1.11,1)=""
^DD(1.11,0,"NM","ARCHIVAL ACTIVITY")=""
^DD(1.11,0,"VR")="22.0"
^DD(1.11,.01,0)="ARCHIVE NUMBER^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.11,.01,1,0)="^.1"
^DD(1.11,.01,1,1,0)="1.11^B"
^DD(1.11,.01,1,1,1)="S ^DIAR(1.11,""B"",$E(X,1,30),DA)="""""
^DD(1.11,.01,1,1,2)="K ^DIAR(1.11,""B"",$E(X,1,30),DA)"
^DD(1.11,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(1.11,1,0)="FILE^RP1'^DIC(^0;2^Q"
^DD(1.11,1,1,0)="^.1"
^DD(1.11,1,1,1,0)="1.11^C"
^DD(1.11,1,1,1,1)="S ^DIAR(1.11,""C"",$E(X,1,30),DA)="""""
^DD(1.11,1,1,1,2)="K ^DIAR(1.11,""C"",$E(X,1,30),DA)"
^DD(1.11,1,3)="Enter the file that this archival activity will effect."
^DD(1.11,2,0)="SEARCH TEMPLATE^RP.401^DIBT(^0;3^Q"
^DD(1.11,2,3)="Enter the name of the sort/search template that you wish to use."
^DD(1.11,3,0)="PRINT TEMPLATE^R*P.4'X^DIPT(^0;4^S DIC(""S"")=""I $P(^(0),U,8)=""_$S($D(DIAX):2,1:1)_"",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)"",DIC(0)=""QE"",D=""F""_+$P(^DIAR(1.11,DA,0),U,2) D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(1.11,3,3)="Enter the name of the FILEGRAM OR EXTRACT print template that you wish to use."
^DD(1.11,3,12)="Select a print template in Filegram or Extract Format."
^DD(1.11,3,12.1)="S DIC(""S"")=""I $P(^(0),U,8)=""_$S($D(DIAX):2,1:1)_"",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)"""
^DD(1.11,3,"DT")="2920514"
^DD(1.11,4,0)="SELECT DATE^RD^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(1.11,4,3)="Enter the select date of this archival activity."
^DD(1.11,5,0)="ARCHIVER^P200'^VA(200,^0;6^Q"
^DD(1.11,5,3)="Enter the name of the user that is doing the archiving."
^DD(1.11,6,0)="NUMBER OF ITEMS TO ARCHIVE^RNJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1.11,6,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(1.11,7,0)="ARCHIVAL STATUS^S^1:SELECTED;2:EDITED;4:ARCHIVED (TEMPORARY);5:ARCHIVED (PERMANENT);6:UPDATED DESTINATION FILE;90:PURGED;^0;8^Q"
^DD(1.11,7,"DT")="2920511"
^DD(1.11,8,0)="SELECTOR^P200'^VA(200,^0;9^Q"
^DD(1.11,9,0)="PURGER^P200'^VA(200,^0;10^Q"
^DD(1.11,10,0)="ARCHIVE DATE^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(1.11,11,0)="PURGE DATE^D^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(1.11,12,0)="DATE LAST PRINTED^D^^0;13^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(1.11,12,3)="Enter the date that the listing of items to be archived was last printed."
^DD(1.11,13,0)="ARCHIVING ACTION IN PROGRESS^S^1:SELECTION;2:EDITING;4:ARCHIVING (TEMPORARY);5:ARCHIVING (PERMANENT);6:UPDATING DESTINATION FILE;90:PURGING;99:CANCELLING;^0;14^Q"
^DD(1.11,13,3)="Entry will be made here by system when user begins performing some action to this ARCHIVAL ACTIVITY and will be deleted when action is complete, to lock out other users."
^DD(1.11,14,0)="DATE/TIME ACTIVITY BEGAN^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(1.11,14,3)="Date/time user began archiving action currently in progress."
^DD(1.11,15,0)="USER PERFORMING ACTION^P200'^VA(200,^0;16^Q"
^DD(1.11,15,3)="User that initiated the archiving action."
^DD(1.11,16,0)="TYPE OF ARCHIVE^S^0:ARCHIVING;1:EXTRACT;^0;17^Q"
^DD(1.11,16,21,0)="^^4^4^2921002^"
^DD(1.11,16,21,1,0)="This field indicates the archiving type for this particular archival"
^DD(1.11,16,21,2,0)="activity entry.  This should be 0 if the archival process is being done"
^DD(1.11,16,21,3,0)="under the Archiving options; or should be 1 if the archival process is"
^DD(1.11,16,21,4,0)="being done under the Extract Tool options."
^DD(1.11,17,0)="DESTINATION FILE^P1'^DIC(^0;18^Q"
^DD(1.11,17,21,0)="^^2^2^2921002^"
^DD(1.11,17,21,1,0)="This field holds the number of the destination file for this archival"
^DD(1.11,17,21,2,0)="activity."
^DD(1.11,18,0)="ARCHIVE DEVICE LABEL^F^^0;19^K:$L(X)>45!($L(X)<2) X"
^DD(1.11,18,3)="Answer must be 2-45 characters in length."
^DD(1.11,18,21,0)="^^2^2^2921002^"
^DD(1.11,18,21,1,0)="This field holds the label information that identifies your archival"
^DD(1.11,18,21,2,0)="medium."
^DD(1.11,30,0)="SUBFILE NUMBER^F^^1;1^K:+X'=X X"
^DD(1.11,30,3)="Type the number of a sub-file data dictionary."
^DD(1.11,31,0)="SUBFILE SUBSCRIPTS^F^^1;2^K:$L(X)>50!($L(X)<3) X"
^DD(1.11,31,3)="Answer must be 3-50 characters in length."
^DD(1.11,32,0)="SUBFILE SCREEN^1.1132A^^S;0"
^DD(1.11,100,0)="DATA^1.113^^D;0"
^DD(1.11,200,0)="DESTINATION FILE ENTRIES^1.14^^EX;0"
^DD(1.11,"B","ARCHIVAL STATUS",7)=""
^DD(1.11,"B","ARCHIVE DATE",10)=""
^DD(1.11,"B","ARCHIVE DEVICE LABEL",18)=""
^DD(1.11,"B","ARCHIVE NUMBER",.01)=""
^DD(1.11,"B","ARCHIVER",5)=""
^DD(1.11,"B","ARCHIVING ACTION IN PROGRESS",13)=""
^DD(1.11,"B","DATA",100)=""
^DD(1.11,"B","DATE LAST PRINTED",12)=""
^DD(1.11,"B","DATE/TIME ACTIVITY BEGAN",14)=""
^DD(1.11,"B","DESTINATION FILE",17)=""
^DD(1.11,"B","DESTINATION FILE ENTRIES",200)=""
^DD(1.11,"B","FILE",1)=""
^DD(1.11,"B","NUMBER OF ITEMS TO ARCHIVE",6)=""
^DD(1.11,"B","PRINT TEMPLATE",3)=""
^DD(1.11,"B","PURGE DATE",11)=""
^DD(1.11,"B","PURGER",9)=""
^DD(1.11,"B","SEARCH TEMPLATE",2)=""
^DD(1.11,"B","SELECT DATE",4)=""
^DD(1.11,"B","SELECTOR",8)=""
^DD(1.11,"B","SUBFILE NUMBER",30)=""
^DD(1.11,"B","SUBFILE SCREEN",32)=""
^DD(1.11,"B","SUBFILE SUBSCRIPTS",31)=""
^DD(1.11,"B","TYPE OF ARCHIVE",16)=""
^DD(1.11,"B","USER PERFORMING ACTION",15)=""
^DD(1.11,"GL",0,1,.01)=""
^DD(1.11,"GL",0,2,1)=""
^DD(1.11,"GL",0,3,2)=""
^DD(1.11,"GL",0,4,3)=""
^DD(1.11,"GL",0,5,4)=""
^DD(1.11,"GL",0,6,5)=""
^DD(1.11,"GL",0,7,6)=""
^DD(1.11,"GL",0,8,7)=""
^DD(1.11,"GL",0,9,8)=""
^DD(1.11,"GL",0,10,9)=""
^DD(1.11,"GL",0,11,10)=""
^DD(1.11,"GL",0,12,11)=""
^DD(1.11,"GL",0,13,12)=""
^DD(1.11,"GL",0,14,13)=""
^DD(1.11,"GL",0,15,14)=""
^DD(1.11,"GL",0,16,15)=""
^DD(1.11,"GL",0,17,16)=""
^DD(1.11,"GL",0,18,17)=""
^DD(1.11,"GL",0,19,18)=""
^DD(1.11,"GL",1,1,30)=""
^DD(1.11,"GL",1,2,31)=""
^DD(1.11,"GL","D",0,100)=""
^DD(1.11,"GL","EX",0,200)=""
^DD(1.11,"GL","S",0,32)=""
^DD(1.11,"IX",.01)=""
^DD(1.11,"IX",1)=""
^DD(1.11,"RQ",.01)=""
^DD(1.11,"RQ",1)=""
^DD(1.11,"RQ",2)=""
^DD(1.11,"RQ",3)=""
^DD(1.11,"RQ",4)=""
^DD(1.11,"RQ",6)=""
^DD(1.11,"SB",1.113,100)=""
^DD(1.11,"SB",1.1132,32)=""
^DD(1.11,"SB",1.14,200)=""
^DD(1.113,0)="DATA SUB-FIELD^^.01^1"
^DD(1.113,0,"NM","DATA")=""
^DD(1.113,0,"UP")="1.11"
^DD(1.113,.01,0)="DATA^WL^^0;1^Q"
^DD(1.113,"B","DATA",.01)=""
^DD(1.113,"GL",0,1,.01)=""
^DD(1.1132,0)="SUBFILE SCREEN SUB-FIELD^^1^2"
^DD(1.1132,0,"NM","SUBFILE SCREEN")=""
^DD(1.1132,0,"UP")="1.11"
^DD(1.1132,.01,0)="SUBSCRIPT^F^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(1.1132,.01,3)="Answer must be 1-10 characters in length."
^DD(1.1132,1,0)="CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.1132,1,3)="This is Standard MUMPS code."
^DD(1.1132,1,9)="@"
^DD(1.1132,"B","CODE",1)=""
^DD(1.1132,"B","SUBSCRIPT",.01)=""
^DD(1.1132,"GL",0,1,.01)=""
^DD(1.1132,"GL",1,"E1,245",1)=""
^DD(1.12,0)="FIELD^^.07^7"
^DD(1.12,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(1.12,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(1.12,0,"IX","B",1.12,.01)=""
^DD(1.12,0,"NM","FILEGRAM HISTORY")=""
^DD(1.12,0,"VR")="22.0"
^DD(1.12,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(1.12,.01,1,0)="^.1"
^DD(1.12,.01,1,1,0)="1.12^B"
^DD(1.12,.01,1,1,1)="S ^DIAR(1.12,""B"",$E(X,1,30),DA)="""""
^DD(1.12,.01,1,1,2)="K ^DIAR(1.12,""B"",$E(X,1,30),DA)"
^DD(1.12,.01,3)=""
^DD(1.12,.02,0)="SENT/INSTALLED^RS^s:SENT;i:INSTALLED;u:UNSUCCESSFUL;^0;2^Q"
^DD(1.12,.03,0)="USER^RF^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(1.12,.03,3)="Answer must be 1-30 characters in length."
^DD(1.12,.04,0)="FILE^P1'^DIC(^0;4^Q"
^DD(1.12,.05,0)="ENTRY NUMBER^RNJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<.001)!(X?.E1"".""1N.N) X"
^DD(1.12,.05,3)="Type a Number between .001 and 99999999, 0 Decimal Digits"
^DD(1.12,.06,0)="MESSAGE^P3.9'^XMB(3.9,^0;6^Q"
^DD(1.12,.07,0)="FILEGRAM^P.4'^DIPT(^0;7^Q"
^DD(1.12,"B","DATE/TIME",.01)=""
^DD(1.12,"B","ENTRY NUMBER",.05)=""
^DD(1.12,"B","FILE",.04)=""
^DD(1.12,"B","FILEGRAM",.07)=""
^DD(1.12,"B","MESSAGE",.06)=""
^DD(1.12,"B","SENT/INSTALLED",.02)=""
^DD(1.12,"B","USER",.03)=""
^DD(1.12,"GL",0,1,.01)=""
^DD(1.12,"GL",0,2,.02)=""
^DD(1.12,"GL",0,3,.03)=""
^DD(1.12,"GL",0,4,.04)=""
^DD(1.12,"GL",0,5,.05)=""
^DD(1.12,"GL",0,6,.06)=""
^DD(1.12,"GL",0,7,.07)=""
^DD(1.12,"IX",.01)=""
^DD(1.12,"RQ",.01)=""
^DD(1.12,"RQ",.02)=""
^DD(1.12,"RQ",.03)=""
^DD(1.12,"RQ",.05)=""
^DD(1.13,0)="FIELD^^2100^4"
^DD(1.13,0,"DDA")="N"
^DD(1.13,0,"DT")="2900904"
^DD(1.13,0,"IX","B",1.13,.01)=""
^DD(1.13,0,"NM","FILEGRAM ERROR LOG")=""
^DD(1.13,0,"VR")="22.0"
^DD(1.13,.001,0)="FILEGRAM NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.13,.001,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(1.13,.001,23,0)="^^1^1^2900904^"
^DD(1.13,.001,23,1,0)="Filegram number"
^DD(1.13,.001,"DT")="2900904"
^DD(1.13,.01,0)="LINE OF ERROR^RNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.13,.01,1,0)="^.1"
^DD(1.13,.01,1,1,0)="1.13^B"
^DD(1.13,.01,1,1,1)="S ^DIAR(1.13,""B"",$E(X,1,30),DA)="""""
^DD(1.13,.01,1,1,2)="K ^DIAR(1.13,""B"",$E(X,1,30),DA)"
^DD(1.13,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(1.13,.01,23,0)="^^2^2^2900904^"
^DD(1.13,.01,23,1,0)="Line number returned in second piece of DIFGER indicating filegram line"
^DD(1.13,.01,23,2,0)="where error occurred"
^DD(1.13,.01,"DT")="2900904"
^DD(1.13,.02,0)="ERROR CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.13,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(1.13,.02,23,0)="^^2^2^2900904^"
^DD(1.13,.02,23,1,0)="Error code returned in first piece of DIFGER indicating type of"
^DD(1.13,.02,23,2,0)="installation error"
^DD(1.13,.02,"DT")="2900904"
^DD(1.13,2100,0)="FILEGRAM^1.1321^^21;0"
^DD(1.13,2100,23,0)="^^1^1^2900904^"
^DD(1.13,2100,23,1,0)="Text of the filegram"
^DD(1.13,"B","ERROR CODE",.02)=""
^DD(1.13,"B","FILEGRAM",2100)=""
^DD(1.13,"B","FILEGRAM NUMBER",.001)=""
^DD(1.13,"B","LINE OF ERROR",.01)=""
^DD(1.13,"GL",0,1,.01)=""
^DD(1.13,"GL",0,2,.02)=""
^DD(1.13,"GL",21,0,2100)=""
^DD(1.13,"IX",.01)=""
^DD(1.13,"RQ",.01)=""
^DD(1.13,"SB",1.1321,2100)=""
^DD(1.1321,0)="FILEGRAM SUB-FIELD^^.01^1"
^DD(1.1321,0,"DT")="2900904"
^DD(1.1321,0,"NM","FILEGRAM")=""
^DD(1.1321,0,"UP")="1.13"
^DD(1.1321,.01,0)="FILEGRAM^WL^^0;1^Q"
^DD(1.1321,.01,"DT")="2900904"
^DD(1.1321,"B","FILEGRAM",.01)=""
^DD(1.1321,"GL",0,1,.01)=""
^DD(1.14,0)="DESTINATION FILE ENTRIES SUB-FIELD^^.01^1"
^DD(1.14,0,"IX","B",1.14,.01)=""
^DD(1.14,0,"NM","DESTINATION FILE ENTRIES")=""
^DD(1.14,0,"UP")="1.11"
^DD(1.14,.01,0)="DESTINATION FILE ENTRIES^MNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(1.14,.01,1,0)="^.1"
^DD(1.14,.01,1,1,0)="1.14^B"
^DD(1.14,.01,1,1,1)="S ^DIAR(1.11,DA(1),""EX"",""B"",$E(X,1,30),DA)="""""
^DD(1.14,.01,1,1,2)="K ^DIAR(1.11,DA(1),""EX"",""B"",$E(X,1,30),DA)"
^DD(1.14,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1.14,.01,21,0)="^^2^2^2921208^"
^DD(1.14,.01,21,1,0)="This field holds the internal entry number of the record created in the"
^DD(1.14,.01,21,3,0)="destination file."
^DD(1.14,"B","DESTINATION FILE ENTRIES",.01)=""
^DD(1.14,"GL",0,1,.01)=""
^DD(1.14,"IX",.01)=""
^DD(1.2,0)="FIELD^NL^7^5"
^DD(1.2,0,"IX","B",1.2,.01)=""
^DD(1.2,0,"NM","ALTERNATE EDITOR")=""
^DD(1.2,0,"PT",200,31.3)=""
^DD(1.2,0,"VR")="22.0"
^DD(1.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X I $D(X) S %=$O(^DIST(1.2,""B"",$E(X))) I $E(%)=$E(X) K X"
^DD(1.2,.01,1,0)="^.1"
^DD(1.2,.01,1,1,0)="1.2^B"
^DD(1.2,.01,1,1,1)="S ^DIST(1.2,""B"",$E(X,1,30),DA)="""""
^DD(1.2,.01,1,1,2)="K ^DIST(1.2,""B"",$E(X,1,30),DA)"
^DD(1.2,.01,3)="NAME MUST BE 3-30 CHAR., and start with a unique alpha char."
^DD(1.2,.01,21,0)="2^^2^2^2920506^^^"
^DD(1.2,.01,21,1,0)="This is the name of the alternate editor. It must start with a unique"
^DD(1.2,.01,21,2,0)="character."
^DD(1.2,.01,"DT")="2901212"
^DD(1.2,1,0)="ACTIVATION CODE FROM DIWE^RK^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.2,1,3)="This is Standard MUMPS code, used to set up the environment for editing a Standard FileMan word-processing field using this editor."
^DD(1.2,1,9)="@"
^DD(1.2,1,21,0)="^^17^17^2920513^^^^"
^DD(1.2,1,21,1,0)="This field holds the MUMPS code to properly establish the environment"
^DD(1.2,1,21,2,0)="that will allow use of this editor to edit any VA FileMan word-processing"
^DD(1.2,1,21,3,0)="type field.  Typically this code might move the text into another"
^DD(1.2,1,21,4,0)="MUMPS global (like ^UTILITY) or to some other file format for editing."
^DD(1.2,1,21,5,0)="If the editor is written in MUMPS, it should either use variables that"
^DD(1.2,1,21,6,0)="do not begin with the letter ""D"", or should NEW all its local variables"
^DD(1.2,1,21,7,0)="to avoid problems on return to the FileMan editor."
^DD(1.2,1,21,8,0)=""
^DD(1.2,1,21,9,0)="If the variable DIWE(1) is defined, it indicated that the user"
^DD(1.2,1,21,10,0)="has switched to this editor from the standard FileMan Line Editor, and"
^DD(1.2,1,21,11,0)="upon return, the control will be returned to the line editor."
^DD(1.2,1,21,12,0)=""
^DD(1.2,1,21,13,0)="This editor may set the variable DIWESW to 1, if they wish to allow"
^DD(1.2,1,21,14,0)="the user to switch to an alternate editor from this one."
^DD(1.2,1,21,15,0)=""
^DD(1.2,1,21,16,0)="This editor is required to restore the edited text to standard FileMan"
^DD(1.2,1,21,17,0)="word-processing format before exiting."
^DD(1.2,1,"DT")="2900202"
^DD(1.2,2,0)="OK TO RUN TEST^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.2,2,3)="This is Standard MUMPS code that sets $T to true if it is OK to use this editor."
^DD(1.2,2,9)="@"
^DD(1.2,2,21,0)="^^9^9^2920513^^^^"
^DD(1.2,2,21,1,0)="This field holds MUMPS code used to pre-check the environment before"
^DD(1.2,2,21,2,0)="allowing the user to enter this editor.  This field should set the"
^DD(1.2,2,21,3,0)="$TEST indicator.  If $TEST is true then it is OK for this editor to"
^DD(1.2,2,21,4,0)="run at this time.  If $T is false, the user will be returned to the"
^DD(1.2,2,21,5,0)="FileMan line editor."
^DD(1.2,2,21,6,0)=""
^DD(1.2,2,21,7,0)="If the field is null, it will be the same as $T=true"
^DD(1.2,2,21,8,0)=""
^DD(1.2,2,21,9,0)="An example would be a mixed VAX-PDP site using a VMS editor."
^DD(1.2,2,"DT")="2900202"
^DD(1.2,3,0)="RETURN TO CALLING EDITOR^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.2,3,3)="This is Standard MUMPS code used to restore the environment needed by the VA FileMan line editor."
^DD(1.2,3,9)="@"
^DD(1.2,3,21,0)="^^3^3^2920513^^^^"
^DD(1.2,3,21,1,0)="If the user switched to this editor from the FileMan line editor, then"
^DD(1.2,3,21,2,0)="DIWE(1) exists.  This field should contain MUMPS code used to reset"
^DD(1.2,3,21,3,0)="the environment needed by the Line Editor."
^DD(1.2,3,"DT")="2900202"
^DD(1.2,7,0)="DESCRIPTION^1.207^^7;0"
^DD(1.2,7,21,0)="^^3^3^2920506^^^^"
^DD(1.2,7,21,1,0)="This is a description of the editor that will be shown to the user"
^DD(1.2,7,21,2,0)="if they enter ??? at the Select prompt."
^DD(1.2,7,21,3,0)="Not in use yet."
^DD(1.2,"B","ACTIVATION CODE FROM DIWE",1)=""
^DD(1.2,"B","DESCRIPTION",7)=""
^DD(1.2,"B","NAME",.01)=""
^DD(1.2,"B","OK TO RUN TEST",2)=""
^DD(1.2,"B","RETURN TO CALLING EDITOR",3)=""
^DD(1.2,"GL",0,1,.01)=""
^DD(1.2,"GL",1,"E1,245",1)=""
^DD(1.2,"GL",2,"E1,245",2)=""
^DD(1.2,"GL",3,"E1,245",3)=""
^DD(1.2,"GL",7,0,7)=""
^DD(1.2,"IX",.01)=""
^DD(1.2,"RQ",.01)=""
^DD(1.2,"RQ",1)=""
^DD(1.2,"SB",1.207,7)=""
^DD(1.207,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(1.207,0,"NM","DESCRIPTION")=""
^DD(1.207,0,"UP")="1.2"
^DD(1.207,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(1.207,.01,"DT")="2900202"
^DD(1.207,"B","DESCRIPTION",.01)=""
^DD(1.207,"GL",0,1,.01)=""
^DD(1.521,0)="FIELD^^2^3"
^DD(1.521,0,"DDA")="N"
^DD(1.521,0,"DT")="2960820"
^DD(1.521,0,"IX","B",1.521,.01)=""
^DD(1.521,0,"NM","SQLI_SCHEMA")=""
^DD(1.521,0,"PT",1.5215,1)=""
^DD(1.521,0,"VR")="22.0"
^DD(1.521,0,"VRPK")="DI"
^DD(1.521,.01,0)="S_NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'($TR(X,""_"")?1U.UN) X"
^DD(1.521,.01,.1)="Schema"
^DD(1.521,.01,1,0)="^.1"
^DD(1.521,.01,1,1,0)="1.521^B"
^DD(1.521,.01,1,1,1)="S ^DMSQ(""S"",""B"",$E(X,1,30),DA)="""""
^DD(1.521,.01,1,1,2)="K ^DMSQ(""S"",""B"",$E(X,1,30),DA)"
^DD(1.521,.01,3)="SQL identifier start with upper case letter, only letters, numbers and _."
^DD(1.521,.01,9)="^"
^DD(1.521,.01,21,0)="^^2^2^2960926^^"
^DD(1.521,.01,21,1,0)="In FileMan, application groups are assigned SQL schema names"
^DD(1.521,.01,21,2,0)="Names are valid SQL identifiers, and are unique by site"
^DD(1.521,.01,"DT")="2960820"
^DD(1.521,1,0)="S_SECURITY^F^^1;1^K:$L(X)>12!($L(X)<4) X"
^DD(1.521,1,.1)="Security"
^DD(1.521,1,3)="Answer must be 4-12 characters in length."
^DD(1.521,1,4)="W ?5,""Routine to check access to schema"""
^DD(1.521,1,9)="^"
^DD(1.521,1,21,0)="^^1^1^2970311^^^^"
^DD(1.521,1,21,1,0)="A routine to check security by application group."
^DD(1.521,1,"DT")="2960926"
^DD(1.521,2,0)="S_DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(1.521,2,.1)="Description"
^DD(1.521,2,3)="Describe schema. Answer must be 3-60 characters in length."
^DD(1.521,2,9)="^"
^DD(1.521,2,21,0)="^^1^1^2960926^"
^DD(1.521,2,21,1,0)="A short description of the schema"
^DD(1.521,2,"DT")="2960820"
^DD(1.521,"B","Description",2)="1"
^DD(1.521,"B","S_DESCRIPTION",2)=""
^DD(1.521,"B","S_NAME",.01)=""
^DD(1.521,"B","S_SECURITY",1)=""
^DD(1.521,"B","Schema",.01)="1"
^DD(1.521,"B","Security",1)="1"
^DD(1.521,"GL",0,1,.01)=""
^DD(1.521,"GL",0,2,2)=""
^DD(1.521,"GL",1,1,1)=""
^DD(1.521,"IX",.01)=""
^DD(1.521,"RQ",.01)=""
^DD(1.52101,0)="FIELD^^.01^1"
^DD(1.52101,0,"DDA")="N"
^DD(1.52101,0,"DT")="2970311"
^DD(1.52101,0,"IX","B",1.52101,.01)=""
^DD(1.52101,0,"NM","SQLI_KEY_WORD")=""
^DD(1.52101,0,"VR")="22.0"
^DD(1.52101,0,"VRPK")="DI"
^DD(1.52101,.01,0)="KEY_WORD^RF^^0;1^K:$L(X)>30!($L(X)<2)!'($TR(X,""_"")?1U.UN) X"
^DD(1.52101,.01,.1)="Keyword"
^DD(1.52101,.01,1,0)="^.1"
^DD(1.52101,.01,1,1,0)="1.52101^B"
^DD(1.52101,.01,1,1,1)="S ^DMSQ(""K"",""B"",$E(X,1,30),DA)="""""
^DD(1.52101,.01,1,1,2)="K ^DMSQ(""K"",""B"",$E(X,1,30),DA)"
^DD(1.52101,.01,3)="Answer must be 2-30 characters in length."
^DD(1.52101,.01,9)="^"
^DD(1.52101,.01,"DT")="2970311"
^DD(1.52101,"B","KEY_WORD",.01)=""
^DD(1.52101,"B","Keyword",.01)="1"
^DD(1.52101,"GL",0,1,.01)=""
^DD(1.52101,"IX",.01)=""
^DD(1.52101,"RQ",.01)=""
^DD(1.5211,0)="FIELD^^3^4"
^DD(1.5211,0,"DDA")="N"
^DD(1.5211,0,"DT")="2960917"
^DD(1.5211,0,"IX","B",1.5211,.01)=""
^DD(1.5211,0,"NM","SQLI_DATA_TYPE")=""
^DD(1.5211,0,"PT",1.5212,1)=""
^DD(1.5211,0,"PT",1.5213,1)=""
^DD(1.5211,0,"PT",1.5214,1)=""
^DD(1.5211,0,"VR")="22.0"
^DD(1.5211,0,"VRPK")="DI"
^DD(1.5211,.01,0)="D_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,""_"")?1U.UN) X"
^DD(1.5211,.01,.1)="Data Type"
^DD(1.5211,.01,1,0)="^.1"
^DD(1.5211,.01,1,1,0)="1.5211^B"
^DD(1.5211,.01,1,1,1)="S ^DMSQ(""DT"",""B"",$E(X,1,30),DA)="""""
^DD(1.5211,.01,1,1,2)="K ^DMSQ(""DT"",""B"",$E(X,1,30),DA)"
^DD(1.5211,.01,3)="Answer must be an SQL identifier 3-30 characters in length."
^DD(1.5211,.01,4)="W ?5,""Must be a valid SQL identifier"""
^DD(1.5211,.01,9)="^"
^DD(1.5211,.01,21,0)="^^1^1^2970311^^^^"
^DD(1.5211,.01,21,1,0)="ODBC Standard data type corresponding to FileMan domains"
^DD(1.5211,.01,"DT")="2960820"
^DD(1.5211,1,0)="D_COMMENT^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(1.5211,1,.1)="Comment"
^DD(1.5211,1,3)="Answer must be 3-60 characters in length."
^DD(1.5211,1,9)="^"
^DD(1.5211,1,21,0)="^^1^1^2960926^"
^DD(1.5211,1,21,1,0)="Short description of the data type"
^DD(1.5211,1,"DT")="2960926"
^DD(1.5211,2,0)="D_OUTPUT_STRATEGY^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5211,2,.1)="Output Strategy"
^DD(1.5211,2,3)="This is Standard MUMPS code to format output."
^DD(1.5211,2,9)="^"
^DD(1.5211,2,21,0)="^^1^1^2960926^^^^"
^DD(1.5211,2,21,1,0)="M code which returns external value, {E} of base value, {B}."
^DD(1.5211,2,"DT")="2960926"
^DD(1.5211,3,0)="D_OUTPUT_FORMAT^P1.5214'^DMSQ(""OF"",^0;3^Q"
^DD(1.5211,3,.1)="Output Format"
^DD(1.5211,3,9)="^"
^DD(1.5211,3,21,0)="^^1^1^2960926^^^^"
^DD(1.5211,3,21,1,0)="IEN of default output format in SQLI_OUTPUT_FORMAT"
^DD(1.5211,3,"DT")="2960926"
^DD(1.5211,"B","Comment",1)="1"
^DD(1.5211,"B","D_COMMENT",1)=""
^DD(1.5211,"B","D_NAME",.01)=""
^DD(1.5211,"B","D_OUTPUT_FORMAT",3)=""
^DD(1.5211,"B","D_OUTPUT_STRATEGY",2)=""
^DD(1.5211,"B","Data Type",.01)="1"
^DD(1.5211,"B","Output Format",3)="1"
^DD(1.5211,"B","Output Strategy",2)="1"
^DD(1.5211,"GL",0,1,.01)=""
^DD(1.5211,"GL",0,2,1)=""
^DD(1.5211,"GL",0,3,3)=""
^DD(1.5211,"GL",1,"E1,245",2)=""
^DD(1.5211,"IX",.01)=""
^DD(1.5211,"RQ",.01)=""
^DD(1.5212,0)="FIELD^^11^12"
^DD(1.5212,0,"DDA")="N"
^DD(1.5212,0,"DT")="2970225"
^DD(1.5212,0,"IX","B",1.5212,.01)=""
^DD(1.5212,0,"IX","C",1.5212,3)=""
^DD(1.5212,0,"IX","D",1.5212,11)=""
^DD(1.5212,0,"IX","E",1.5212,1)=""
^DD(1.5212,0,"NM","SQLI_DOMAIN")=""
^DD(1.5212,0,"PT",1.5216,1)=""
^DD(1.5212,0,"VR")="22.0"
^DD(1.5212,0,"VRPK")="DI"
^DD(1.5212,.01,0)="DM_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,""_"")?1U.UN) X"
^DD(1.5212,.01,.1)="Domain"
^DD(1.5212,.01,1,0)="^.1"
^DD(1.5212,.01,1,1,0)="1.5212^B"
^DD(1.5212,.01,1,1,1)="S ^DMSQ(""DM"",""B"",$E(X,1,30),DA)="""""
^DD(1.5212,.01,1,1,2)="K ^DMSQ(""DM"",""B"",$E(X,1,30),DA)"
^DD(1.5212,.01,3)="Answer must be an SQL identifier 3-30 characters in length."
^DD(1.5212,.01,4)="W ?5,""Must be a valid SQL identifier"""
^DD(1.5212,.01,9)="^"
^DD(1.5212,.01,21,0)="^^2^2^2970311^^^^"
^DD(1.5212,.01,21,1,0)="Name of FileMan domain"
^DD(1.5212,.01,21,2,0)="Includes names of standard SQL data types. Must not be a keyword."
^DD(1.5212,.01,"DT")="2960820"
^DD(1.5212,1,0)="DM_DATA_TYPE^RP1.5211'^DMSQ(""DT"",^0;2^Q"
^DD(1.5212,1,.1)="Data Type"
^DD(1.5212,1,1,0)="^.1"
^DD(1.5212,1,1,1,0)="1.5212^E"
^DD(1.5212,1,1,1,1)="S ^DMSQ(""DM"",""E"",$E(X,1,30),DA)="""""
^DD(1.5212,1,1,1,2)="K ^DMSQ(""DM"",""E"",$E(X,1,30),DA)"
^DD(1.5212,1,1,1,"%D",0)="^^1^1^2960909^"
^DD(1.5212,1,1,1,"%D",1,0)="Domain by data type. "
^DD(1.5212,1,1,1,"DT")="2960909"
^DD(1.5212,1,3)=""
^DD(1.5212,1,9)="^"
^DD(1.5212,1,21,0)="^^1^1^2960926^"
^DD(1.5212,1,21,1,0)="IEN of a standard data type in SQLI_DATA_TYPE. Required."
^DD(1.5212,1,"DT")="2960909"
^DD(1.5212,2,0)="DM_COMMENT^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(1.5212,2,.1)="Comment"
^DD(1.5212,2,3)="Answer must be 3-60 characters in length."
^DD(1.5212,2,9)="^"
^DD(1.5212,2,21,0)="^^1^1^2960926^"
^DD(1.5212,2,21,1,0)="A short comment which describes the data type set"
^DD(1.5212,2,"DT")="2960926"
^DD(1.5212,3,0)="DM_TABLE^P1.5215'^DMSQ(""T"",^0;4^Q"
^DD(1.5212,3,.1)="Table"
^DD(1.5212,3,1,0)="^.1"
^DD(1.5212,3,1,1,0)="1.5212^C"
^DD(1.5212,3,1,1,1)="S ^DMSQ(""DM"",""C"",$E(X,1,30),DA)="""""
^DD(1.5212,3,1,1,2)="K ^DMSQ(""DM"",""C"",$E(X,1,30),DA)"
^DD(1.5212,3,1,1,"%D",0)="^^1^1^2960823^"
^DD(1.5212,3,1,1,"%D",1,0)="Domain by table id"
^DD(1.5212,3,1,1,"DT")="2960823"
^DD(1.5212,3,3)="Enter only if domain is a table-id"
^DD(1.5212,3,9)="^"
^DD(1.5212,3,21,0)="^^2^2^2960926^"
^DD(1.5212,3,21,1,0)="IEN of table in SQLI_TABLE if domain is of type PRIMARY_KEY"
^DD(1.5212,3,21,2,0)="Only primary and foreign keys have such domains."
^DD(1.5212,3,"DT")="2960926"
^DD(1.5212,4,0)="DM_WIDTH^NJ3,0^^0;5^K:+X'=X!(X>255)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5212,4,.1)="Width"
^DD(1.5212,4,3)="Type a Number between 1 and 255, 0 Decimal Digits"
^DD(1.5212,4,9)="^"
^DD(1.5212,4,21,0)="^^1^1^2960926^"
^DD(1.5212,4,21,1,0)="Default display width. Overrides data type display width."
^DD(1.5212,4,"DT")="2960926"
^DD(1.5212,5,0)="DM_SCALE^NJ1,0^^0;6^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1.5212,5,.1)="Scale"
^DD(1.5212,5,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(1.5212,5,9)="^"
^DD(1.5212,5,21,0)="^^1^1^2960926^"
^DD(1.5212,5,21,1,0)="Default number of decimal places displayed for numbers."
^DD(1.5212,5,"DT")="2960926"
^DD(1.5212,6,0)="DM_OUTPUT_FORMAT^P1.5214'^DMSQ(""OF"",^0;7^Q"
^DD(1.5212,6,.1)="Output Format"
^DD(1.5212,6,3)=""
^DD(1.5212,6,9)="^"
^DD(1.5212,6,21,0)="^^2^2^2960926^"
^DD(1.5212,6,21,1,0)="Default output format for elements of this domain."
^DD(1.5212,6,21,2,0)="Used to provide text value of pointer chains, etc."
^DD(1.5212,6,"DT")="2960820"
^DD(1.5212,7,0)="DM_INT_EXPR^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5212,7,.1)="Base to Internal Expression"
^DD(1.5212,7,3)="This is a Standard M expression to format X for output"
^DD(1.5212,7,9)="^"
^DD(1.5212,7,21,0)="^^2^2^2960926^"
^DD(1.5212,7,21,1,0)="An M expression which returns the internal value of a base value."
^DD(1.5212,7,21,2,0)="Expression uses placeholder {B} to represent the base value"
^DD(1.5212,7,"DT")="2960926"
^DD(1.5212,8,0)="DM_INT_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5212,8,.1)="Base to Internal Execute"
^DD(1.5212,8,3)="This is Standard MUMPS code to format X for input"
^DD(1.5212,8,9)="^"
^DD(1.5212,8,21,0)="^^2^2^2960926^"
^DD(1.5212,8,21,1,0)="M code line which sets internal value, {I}, to some function of base"
^DD(1.5212,8,21,2,0)="value, {B}."
^DD(1.5212,8,"DT")="2960926"
^DD(1.5212,9,0)="DM_BASE_EXPR^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5212,9,.1)="Internal to Base Expression"
^DD(1.5212,9,3)="This is a Standard M expression to format X in internal form."
^DD(1.5212,9,9)="^"
^DD(1.5212,9,21,0)="^^1^1^2960926^"
^DD(1.5212,9,21,1,0)="An M expression which returns the internal value of base value, {B}."
^DD(1.5212,9,"DT")="2960926"
^DD(1.5212,10,0)="DM_BASE_EXEC^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5212,10,3)="This is Standard MUMPS code."
^DD(1.5212,10,9)="^"
^DD(1.5212,10,21,0)="^^1^1^2960820^"
^DD(1.5212,10,21,1,0)="Code which when executed returns the base value of X"
^DD(1.5212,10,"DT")="2960820"
^DD(1.5212,11,0)="DM_FILEMAN_FIELD_TYPE^S^F:FREE TEXT;N:NUMERIC;P:POINTER;D:DATE;W:WORD-PROCESSING;K:MUMPS;B:BOOLEAN;S:SET-OF-CODES;V:VARIABLE POINTER;^0;8^Q"
^DD(1.5212,11,.1)="FT"
^DD(1.5212,11,1,0)="^.1"
^DD(1.5212,11,1,1,0)="1.5212^D"
^DD(1.5212,11,1,1,1)="S ^DMSQ(""DM"",""D"",$E(X,1,30),DA)="""""
^DD(1.5212,11,1,1,2)="K ^DMSQ(""DM"",""D"",$E(X,1,30),DA)"
^DD(1.5212,11,1,1,"%D",0)="^^1^1^2960828^"
^DD(1.5212,11,1,1,"%D",1,0)="Domain by FileMan type"
^DD(1.5212,11,1,1,"DT")="2960828"
^DD(1.5212,11,9)="^"
^DD(1.5212,11,21,0)="^^1^1^2970225^^^^"
^DD(1.5212,11,21,1,0)="FileMan field type (F, N, D, DT, K, ...)"
^DD(1.5212,11,23,0)="^^3^3^2970225^^^^"
^DD(1.5212,11,23,1,0)="A value in this field indicates that the domain is derived from a"
^DD(1.5212,11,23,2,0)="FileMan-specific field type. It is intended to signal vendors that a"
^DD(1.5212,11,23,3,0)="proprietary function may be required to implement the domain."
^DD(1.5212,11,"DT")="2970225"
^DD(1.5212,"B","Base to Internal Execute",8)="1"
^DD(1.5212,"B","Base to Internal Expression",7)="1"
^DD(1.5212,"B","Comment",2)="1"
^DD(1.5212,"B","DM_BASE_EXEC",10)=""
^DD(1.5212,"B","DM_BASE_EXPR",9)=""
^DD(1.5212,"B","DM_COMMENT",2)=""
^DD(1.5212,"B","DM_DATA_TYPE",1)=""
^DD(1.5212,"B","DM_FILEMAN_FIELD_TYPE",11)=""
^DD(1.5212,"B","DM_INT_EXEC",8)=""
^DD(1.5212,"B","DM_INT_EXPR",7)=""
^DD(1.5212,"B","DM_NAME",.01)=""
^DD(1.5212,"B","DM_OUTPUT_FORMAT",6)=""
^DD(1.5212,"B","DM_SCALE",5)=""
^DD(1.5212,"B","DM_TABLE",3)=""
^DD(1.5212,"B","DM_WIDTH",4)=""
^DD(1.5212,"B","Data Type",1)="1"
^DD(1.5212,"B","Domain",.01)="1"
^DD(1.5212,"B","FT",11)="1"
^DD(1.5212,"B","Internal to Base Expression",9)="1"
^DD(1.5212,"B","Output Format",6)="1"
^DD(1.5212,"B","Scale",5)="1"
^DD(1.5212,"B","Table",3)="1"
^DD(1.5212,"B","Width",4)="1"
^DD(1.5212,"GL",0,1,.01)=""
^DD(1.5212,"GL",0,2,1)=""
^DD(1.5212,"GL",0,3,2)=""
^DD(1.5212,"GL",0,4,3)=""
^DD(1.5212,"GL",0,5,4)=""
^DD(1.5212,"GL",0,6,5)=""
^DD(1.5212,"GL",0,7,6)=""
^DD(1.5212,"GL",0,8,11)=""
^DD(1.5212,"GL",1,"E1,245",7)=""
^DD(1.5212,"GL",2,"E1,245",8)=""
^DD(1.5212,"GL",3,"E1,245",9)=""
^DD(1.5212,"GL",4,"E1,245",10)=""
^DD(1.5212,"IX",.01)=""
^DD(1.5212,"IX",1)=""
^DD(1.5212,"IX",3)=""
^DD(1.5212,"IX",11)=""
^DD(1.5212,"RQ",.01)=""
^DD(1.5212,"RQ",1)=""
^DD(1.5213,0)="FIELD^^4^5"
^DD(1.5213,0,"DDA")="N"
^DD(1.5213,0,"DT")="2960820"
^DD(1.5213,0,"IX","B",1.5213,.01)=""
^DD(1.5213,0,"IX","C",1.5213,1)=""
^DD(1.5213,0,"NM","SQLI_KEY_FORMAT")=""
^DD(1.5213,0,"PT",1.5218,7)=""
^DD(1.5213,0,"VR")="22.0"
^DD(1.5213,0,"VRPK")="DI"
^DD(1.5213,.01,0)="KF_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,""_"")?1U.UN) X"
^DD(1.5213,.01,.1)="Key Format"
^DD(1.5213,.01,1,0)="^.1"
^DD(1.5213,.01,1,1,0)="1.5213^B"
^DD(1.5213,.01,1,1,1)="S ^DMSQ(""KF"",""B"",$E(X,1,30),DA)="""""
^DD(1.5213,.01,1,1,2)="K ^DMSQ(""KF"",""B"",$E(X,1,30),DA)"
^DD(1.5213,.01,3)="Answer must be 3-30 characters in length."
^DD(1.5213,.01,9)="^"
^DD(1.5213,.01,"DT")="2960820"
^DD(1.5213,1,0)="KF_DATA_TYPE^RP1.5211'^DMSQ(""DT"",^0;2^Q"
^DD(1.5213,1,1,0)="^.1"
^DD(1.5213,1,1,1,0)="1.5213^C"
^DD(1.5213,1,1,1,1)="S ^DMSQ(""KF"",""C"",$E(X,1,30),DA)="""""
^DD(1.5213,1,1,1,2)="K ^DMSQ(""KF"",""C"",$E(X,1,30),DA)"
^DD(1.5213,1,1,1,"%D",0)="^^1^1^2960823^"
^DD(1.5213,1,1,1,"%D",1,0)="KEY FORMAT BY DATA TYPE"
^DD(1.5213,1,1,1,"DT")="2960823"
^DD(1.5213,1,3)="Enter the ODBC data type of this key"
^DD(1.5213,1,9)="^"
^DD(1.5213,1,"DT")="2960823"
^DD(1.5213,2,0)="KF_COMMENT^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(1.5213,2,3)="Answer must be 3-60 characters in length."
^DD(1.5213,2,9)="^"
^DD(1.5213,2,"DT")="2960820"
^DD(1.5213,3,0)="KF_INT_EXPR^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5213,3,3)="This is Standard MUMPS code."
^DD(1.5213,3,9)="^"
^DD(1.5213,3,21,0)="^^1^1^2960820^"
^DD(1.5213,3,21,1,0)="An M expression which converts X to it's key format"
^DD(1.5213,3,"DT")="2960820"
^DD(1.5213,4,0)="KF_INT_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5213,4,3)="This is Standard MUMPS code."
^DD(1.5213,4,9)="^"
^DD(1.5213,4,21,0)="^^1^1^2960820^"
^DD(1.5213,4,21,1,0)="A line of M code which converts X to its key format"
^DD(1.5213,4,"DT")="2960820"
^DD(1.5213,"B","KF_COMMENT",2)=""
^DD(1.5213,"B","KF_DATA_TYPE",1)=""
^DD(1.5213,"B","KF_INT_EXEC",4)=""
^DD(1.5213,"B","KF_INT_EXPR",3)=""
^DD(1.5213,"B","KF_NAME",.01)=""
^DD(1.5213,"B","Key Format",.01)="1"
^DD(1.5213,"GL",0,1,.01)=""
^DD(1.5213,"GL",0,2,1)=""
^DD(1.5213,"GL",0,3,2)=""
^DD(1.5213,"GL",1,"E1,245",3)=""
^DD(1.5213,"GL",2,"E1,245",4)=""
^DD(1.5213,"IX",.01)=""
^DD(1.5213,"IX",1)=""
^DD(1.5213,"RQ",.01)=""
^DD(1.5213,"RQ",1)=""
^DD(1.5214,0)="FIELD^^4^5"
^DD(1.5214,0,"DDA")="N"
^DD(1.5214,0,"DT")="2960820"
^DD(1.5214,0,"IX","B",1.5214,.01)=""
^DD(1.5214,0,"NM","SQLI_OUTPUT_FORMAT")=""
^DD(1.5214,0,"PT",1.5211,3)=""
^DD(1.5214,0,"PT",1.5212,6)=""
^DD(1.5214,0,"PT",1.5217,16)=""
^DD(1.5214,0,"VR")="22.0"
^DD(1.5214,0,"VRPK")="DI"
^DD(1.5214,.01,0)="OF_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,""_"")?1U.UN) X"
^DD(1.5214,.01,.1)="Output Format"
^DD(1.5214,.01,1,0)="^.1"
^DD(1.5214,.01,1,1,0)="1.5214^B"
^DD(1.5214,.01,1,1,1)="S ^DMSQ(""OF"",""B"",$E(X,1,30),DA)="""""
^DD(1.5214,.01,1,1,2)="K ^DMSQ(""OF"",""B"",$E(X,1,30),DA)"
^DD(1.5214,.01,3)="Answer must be 3-30 characters in length."
^DD(1.5214,.01,9)="^"
^DD(1.5214,.01,"DT")="2960820"
^DD(1.5214,1,0)="OF_DATA_TYPE^RP1.5211'^DMSQ(""DT"",^0;2^Q"
^DD(1.5214,1,3)="Enter the ODBC data type"
^DD(1.5214,1,9)="^"
^DD(1.5214,1,"DT")="2960820"
^DD(1.5214,2,0)="OF_COMMENT^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(1.5214,2,3)="Answer must be 3-60 characters in length."
^DD(1.5214,2,9)="^"
^DD(1.5214,2,"DT")="2960820"
^DD(1.5214,3,0)="OF_EXT_EXPR^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5214,3,3)="This is Standard MUMPS code."
^DD(1.5214,3,9)="^"
^DD(1.5214,3,21,0)="^^1^1^2960820^"
^DD(1.5214,3,21,1,0)="An M expression which converts the base value of X to its external value"
^DD(1.5214,3,"DT")="2960820"
^DD(1.5214,4,0)="OF_EXT_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5214,4,3)="This is Standard MUMPS code."
^DD(1.5214,4,9)="^"
^DD(1.5214,4,21,0)="^^1^1^2960820^"
^DD(1.5214,4,21,1,0)="A line of M code which converts the base value of X to external"
^DD(1.5214,4,"DT")="2960820"
^DD(1.5214,"B","OF_COMMENT",2)=""
^DD(1.5214,"B","OF_DATA_TYPE",1)=""
^DD(1.5214,"B","OF_EXT_EXEC",4)=""
^DD(1.5214,"B","OF_EXT_EXPR",3)=""
^DD(1.5214,"B","OF_NAME",.01)=""
^DD(1.5214,"B","Output Format",.01)="1"
^DD(1.5214,"GL",0,1,.01)=""
^DD(1.5214,"GL",0,2,1)=""
^DD(1.5214,"GL",0,3,2)=""
^DD(1.5214,"GL",1,"E1,245",3)=""
^DD(1.5214,"GL",2,"E1,245",4)=""
^DD(1.5214,"IX",.01)=""
^DD(1.5214,"RQ",.01)=""
^DD(1.5214,"RQ",1)=""
^DD(1.5215,0)="FIELD^^8^9"
^DD(1.5215,0,"DDA")="N"
^DD(1.5215,0,"DT")="2960913"
^DD(1.5215,0,"IX","B",1.5215,.01)=""
^DD(1.5215,0,"IX","C",1.5215,6)=""
^DD(1.5215,0,"IX","D",1.5215,8)=""
^DD(1.5215,0,"IX","E",1.5215,3)=""
^DD(1.5215,0,"NM","SQLI_TABLE")=""
^DD(1.5215,0,"PT",1.5212,3)=""
^DD(1.5215,0,"PT",1.5215,3)=""
^DD(1.5215,0,"PT",1.5216,2)=""
^DD(1.5215,0,"VR")="22.0"
^DD(1.5215,0,"VRPK")="DI"
^DD(1.5215,.01,0)="T_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,""_"")?1U.UN) X"
^DD(1.5215,.01,.1)="Table"
^DD(1.5215,.01,1,0)="^.1"
^DD(1.5215,.01,1,1,0)="1.5215^B"
^DD(1.5215,.01,1,1,1)="S ^DMSQ(""T"",""B"",$E(X,1,30),DA)="""""
^DD(1.5215,.01,1,1,2)="K ^DMSQ(""T"",""B"",$E(X,1,30),DA)"
^DD(1.5215,.01,3)="Answer must be 3-30 characters in length."
^DD(1.5215,.01,9)="^"
^DD(1.5215,.01,21,0)="^^1^1^2960926^"
^DD(1.5215,.01,21,1,0)="Table name must be a valid SQL identifier, unique by schema"
^DD(1.5215,.01,"DT")="2960820"
^DD(1.5215,1,0)="T_SCHEMA^RP1.521^DMSQ(""S"",^0;2^Q"
^DD(1.5215,1,.1)="Schema"
^DD(1.5215,1,9)="^"
^DD(1.5215,1,21,0)="^^1^1^2960926^^"
^DD(1.5215,1,21,1,0)="IEN in SQLI_SCHEMA of the schema to which this table belongs."
^DD(1.5215,1,"DT")="2960913"
^DD(1.5215,2,0)="T_COMMENT^F^^0;3^K:$L(X)>70!($L(X)<3) X"
^DD(1.5215,2,.1)="Description"
^DD(1.5215,2,3)="Answer must be 3-70 characters in length."
^DD(1.5215,2,9)="^"
^DD(1.5215,2,21,0)="^^1^1^2960926^^"
^DD(1.5215,2,21,1,0)="A short description of the table"
^DD(1.5215,2,"DT")="2960913"
^DD(1.5215,3,0)="T_MASTER_TABLE^P1.5215'^DMSQ(""T"",^0;4^Q"
^DD(1.5215,3,.1)="Master Table"
^DD(1.5215,3,1,0)="^.1"
^DD(1.5215,3,1,1,0)="1.5215^E"
^DD(1.5215,3,1,1,1)="S ^DMSQ(""T"",""E"",$E(X,1,30),DA)="""""
^DD(1.5215,3,1,1,2)="K ^DMSQ(""T"",""E"",$E(X,1,30),DA)"
^DD(1.5215,3,1,1,"%D",0)="^^1^1^2960904^"
^DD(1.5215,3,1,1,"%D",1,0)="Table by master table"
^DD(1.5215,3,1,1,"DT")="2960904"
^DD(1.5215,3,3)="Enter only if this table is an index"
^DD(1.5215,3,9)="^"
^DD(1.5215,3,21,0)="^^1^1^2960926^^^"
^DD(1.5215,3,21,1,0)="The table of which this table is an index. (Only index tables)"
^DD(1.5215,3,23,0)="^^1^1^2960926^^"
^DD(1.5215,3,23,1,0)="In SQL, and in the relational model, an index is just a table."
^DD(1.5215,3,"DT")="2960913"
^DD(1.5215,4,0)="T_VERSION_FM^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5215,4,.1)="Version"
^DD(1.5215,4,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(1.5215,4,9)="^"
^DD(1.5215,4,21,0)="^^1^1^2960926^^"
^DD(1.5215,4,21,1,0)="The version number is updated by FileMan when ^DD or ^DIC changes."
^DD(1.5215,4,"DT")="2960926"
^DD(1.5215,5,0)="T_ROW_COUNT^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1.5215,5,.1)="Row Count"
^DD(1.5215,5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1.5215,5,9)="^"
^DD(1.5215,5,21,0)="^^1^1^2960926^^"
^DD(1.5215,5,21,1,0)="This field should contain an estimate of the number of rows in the table"
^DD(1.5215,5,"DT")="2960926"
^DD(1.5215,6,0)="T_FILE^RNJ19,9O^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(1.5215,6,.1)="Source File"
^DD(1.5215,6,1,0)="^.1"
^DD(1.5215,6,1,1,0)="1.5215^C"
^DD(1.5215,6,1,1,1)="S ^DMSQ(""T"",""C"",$E(X,1,30),DA)="""""
^DD(1.5215,6,1,1,2)="K ^DMSQ(""T"",""C"",$E(X,1,30),DA)"
^DD(1.5215,6,1,1,"%D",0)="^^1^1^2960902^^"
^DD(1.5215,6,1,1,"%D",1,0)="Table by source file index"
^DD(1.5215,6,1,1,"DT")="2960822"
^DD(1.5215,6,2)="S Y(0)=Y S Y=$S('Y:"""",$D(^DIC(+Y)):$P(^(+Y,0),U),1:$O(^DD(+Y,0,""NM"","""")))"
^DD(1.5215,6,2.1)="S Y=$S('Y:"""",$D(^DIC(+Y)):$P(^(+Y,0),U),1:$O(^DD(+Y,0,""NM"","""")))"
^DD(1.5215,6,3)="Type a Number between 0 and 999999999, 9 Decimal Digits"
^DD(1.5215,6,9)="^"
^DD(1.5215,6,21,0)="^^1^1^2960926^^^"
^DD(1.5215,6,21,1,0)="FileMan file number from which table is derived."
^DD(1.5215,6,23,0)="^^1^1^2960926^^"
^DD(1.5215,6,23,1,0)="This may be a subfile number"
^DD(1.5215,6,"DT")="2960908"
^DD(1.5215,7,0)="T_UPDATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(1.5215,7,.1)="Last Updated"
^DD(1.5215,7,9)="^"
^DD(1.5215,7,21,0)="^^1^1^2960926^"
^DD(1.5215,7,21,1,0)="Date last updated."
^DD(1.5215,7,"DT")="2960821"
^DD(1.5215,8,0)="T_GLOBAL^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5215,8,.1)="Global Root"
^DD(1.5215,8,1,0)="^.1"
^DD(1.5215,8,1,1,0)="1.5215^D"
^DD(1.5215,8,1,1,1)="S ^DMSQ(""T"",""D"",$E(X,1,30),DA)="""""
^DD(1.5215,8,1,1,2)="K ^DMSQ(""T"",""D"",$E(X,1,30),DA)"
^DD(1.5215,8,1,1,"%D",0)="^^1^1^2960822^"
^DD(1.5215,8,1,1,"%D",1,0)="Table by global name. Used for structural study."
^DD(1.5215,8,1,1,"DT")="2960822"
^DD(1.5215,8,3)="A valid M global variable name using {K} for subscripts"
^DD(1.5215,8,9)="^"
^DD(1.5215,8,21,0)="^^2^2^2960926^^^^"
^DD(1.5215,8,21,1,0)="Global variable name. {K} stands for a subscript"
^DD(1.5215,8,21,2,0)="E.g.: ^DIC(9.4,{K},3,{K},4,{K})"
^DD(1.5215,8,23,0)="^^1^1^2960926^^^"
^DD(1.5215,8,23,1,0)="Used to piece out global fragments for columns"
^DD(1.5215,8,"DT")="2960926"
^DD(1.5215,"B","Description",2)="1"
^DD(1.5215,"B","Global Root",8)="1"
^DD(1.5215,"B","Last Updated",7)="1"
^DD(1.5215,"B","Master Table",3)="1"
^DD(1.5215,"B","Row Count",5)="1"
^DD(1.5215,"B","Schema",1)="1"
^DD(1.5215,"B","Source File",6)="1"
^DD(1.5215,"B","T_COMMENT",2)=""
^DD(1.5215,"B","T_FILE",6)=""
^DD(1.5215,"B","T_GLOBAL",8)=""
^DD(1.5215,"B","T_MASTER_TABLE",3)=""
^DD(1.5215,"B","T_NAME",.01)=""
^DD(1.5215,"B","T_ROW_COUNT",5)=""
^DD(1.5215,"B","T_SCHEMA",1)=""
^DD(1.5215,"B","T_UPDATE",7)=""
^DD(1.5215,"B","T_VERSION_FM",4)=""
^DD(1.5215,"B","Table",.01)="1"
^DD(1.5215,"B","Version",4)="1"
^DD(1.5215,"GL",0,1,.01)=""
^DD(1.5215,"GL",0,2,1)=""
^DD(1.5215,"GL",0,3,2)=""
^DD(1.5215,"GL",0,4,3)=""
^DD(1.5215,"GL",0,5,4)=""
^DD(1.5215,"GL",0,6,5)=""
^DD(1.5215,"GL",0,7,6)=""
^DD(1.5215,"GL",0,8,7)=""
^DD(1.5215,"GL",1,"E1,245",8)=""
^DD(1.5215,"IX",.01)=""
^DD(1.5215,"IX",3)=""
^DD(1.5215,"IX",6)=""
^DD(1.5215,"IX",8)=""
^DD(1.5215,"RQ",.01)=""
^DD(1.5215,"RQ",1)=""
^DD(1.5215,"RQ",6)=""
^DD(1.5216,0)="FIELD^^4^5"
^DD(1.5216,0,"DDA")="N"
^DD(1.5216,0,"DT")="2960820"
^DD(1.5216,0,"IX","B",1.5216,.01)=""
^DD(1.5216,0,"IX","C",1.5216,1)=""
^DD(1.5216,0,"IX","D",1.5216,2)=""
^DD(1.5216,0,"IX","E",1.5216,3)=""
^DD(1.5216,0,"IX","F",1.5216,3)=""
^DD(1.5216,0,"IX","G",1.5216,2)=""
^DD(1.5216,0,"NM","SQLI_TABLE_ELEMENT")=""
^DD(1.5216,0,"PT",1.5217,.01)=""
^DD(1.5216,0,"PT",1.5218,.01)=""
^DD(1.5216,0,"PT",1.5219,.01)=""
^DD(1.5216,0,"VR")="22.0"
^DD(1.5216,0,"VRPK")="DI"
^DD(1.5216,.01,0)="E_NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'($TR(X,""_"")?1U.UN) X"
^DD(1.5216,.01,.1)="Table Element"
^DD(1.5216,.01,1,0)="^.1"
^DD(1.5216,.01,1,1,0)="1.5216^B"
^DD(1.5216,.01,1,1,1)="S ^DMSQ(""E"",""B"",$E(X,1,30),DA)="""""
^DD(1.5216,.01,1,1,2)="K ^DMSQ(""E"",""B"",$E(X,1,30),DA)"
^DD(1.5216,.01,3)="Answer must be 3-30 characters in length."
^DD(1.5216,.01,9)="^"
^DD(1.5216,.01,21,0)="^^2^2^2960926^"
^DD(1.5216,.01,21,1,0)="Name of table element."
^DD(1.5216,.01,21,2,0)="Foreign keys are suffixed _FK or PFK. Primary keys are suffixed _PK."
^DD(1.5216,.01,"DT")="2960820"
^DD(1.5216,1,0)="E_DOMAIN^RP1.5212'^DMSQ(""DM"",^0;2^Q"
^DD(1.5216,1,.1)="Domain"
^DD(1.5216,1,1,0)="^.1"
^DD(1.5216,1,1,1,0)="1.5216^C"
^DD(1.5216,1,1,1,1)="S ^DMSQ(""E"",""C"",$E(X,1,30),DA)="""""
^DD(1.5216,1,1,1,2)="K ^DMSQ(""E"",""C"",$E(X,1,30),DA)"
^DD(1.5216,1,1,1,"DT")="2960823"
^DD(1.5216,1,9)="^"
^DD(1.5216,1,21,0)="^^1^1^2960926^"
^DD(1.5216,1,21,1,0)="IEN of domain in SQLI_DOMAIN"
^DD(1.5216,1,"DT")="2960926"
^DD(1.5216,2,0)="E_TABLE^RP1.5215'^DMSQ(""T"",^0;3^Q"
^DD(1.5216,2,.1)="Table"
^DD(1.5216,2,1,0)="^.1"
^DD(1.5216,2,1,1,0)="1.5216^D"
^DD(1.5216,2,1,1,1)="S ^DMSQ(""E"",""D"",$E(X,1,30),DA)="""""
^DD(1.5216,2,1,1,2)="K ^DMSQ(""E"",""D"",$E(X,1,30),DA)"
^DD(1.5216,2,1,1,"DT")="2960823"
^DD(1.5216,2,1,2,0)="1.5216^G^MUMPS"
^DD(1.5216,2,1,2,1)="S ^DMSQ(""E"",""G"",X,$P(^DMSQ(""E"",DA,0),U),DA)="""""
^DD(1.5216,2,1,2,2)="K ^DMSQ(""E"",""G"",X,$P(^DMSQ(""E"",DA,0),U),DA)"
^DD(1.5216,2,1,2,"%D",0)="^^1^1^2960903^"
^DD(1.5216,2,1,2,"%D",1,0)="Table element by table by name"
^DD(1.5216,2,1,2,"DT")="2960903"
^DD(1.5216,2,9)="^"
^DD(1.5216,2,21,0)="^^1^1^2960926^"
^DD(1.5216,2,21,1,0)="IEN of table in SQLI_TABLE. Required."
^DD(1.5216,2,"DT")="2960926"
^DD(1.5216,3,0)="E_TYPE^RS^C:Column;P:Primary key;F:Foreign key;^0;4^Q"
^DD(1.5216,3,.1)="Type"
^DD(1.5216,3,1,0)="^.1"
^DD(1.5216,3,1,1,0)="1.5216^E"
^DD(1.5216,3,1,1,1)="S ^DMSQ(""E"",""E"",$E(X,1,30),DA)="""""
^DD(1.5216,3,1,1,2)="K ^DMSQ(""E"",""E"",$E(X,1,30),DA)"
^DD(1.5216,3,1,1,"DT")="2960823"
^DD(1.5216,3,1,2,0)="1.5216^F^MUMPS"
^DD(1.5216,3,1,2,1)="S ^DMSQ(""E"",""F"",$P(^DMSQ(""E"",DA,0),U,3),X,DA)="""""
^DD(1.5216,3,1,2,2)="K ^DMSQ(""E"",""F"",$P(^DMSQ(""E"",DA,0),U,3),X,DA)"
^DD(1.5216,3,1,2,"%D",0)="^^1^1^2960827^^^^"
^DD(1.5216,3,1,2,"%D",1,0)="Table element by table by type"
^DD(1.5216,3,1,2,"DT")="2960827"
^DD(1.5216,3,9)="^"
^DD(1.5216,3,21,0)="^^1^1^2960926^"
^DD(1.5216,3,21,1,0)="C for column, P for primary key, or F for foreign key"
^DD(1.5216,3,"DT")="2960926"
^DD(1.5216,4,0)="E_COMMENT^F^^0;5^K:$L(X)>60!($L(X)<3) X"
^DD(1.5216,4,.1)="Comment"
^DD(1.5216,4,3)="Answer must be 3-60 characters in length."
^DD(1.5216,4,9)="^"
^DD(1.5216,4,21,0)="^^1^1^2960926^"
^DD(1.5216,4,21,1,0)="A short description of the element"
^DD(1.5216,4,"DT")="2960926"
^DD(1.5216,"B","Comment",4)="1"
^DD(1.5216,"B","Domain",1)="1"
^DD(1.5216,"B","E_COMMENT",4)=""
^DD(1.5216,"B","E_DOMAIN",1)=""
^DD(1.5216,"B","E_NAME",.01)=""
^DD(1.5216,"B","E_TABLE",2)=""
^DD(1.5216,"B","E_TYPE",3)=""
^DD(1.5216,"B","Table",2)="1"
^DD(1.5216,"B","Table Element",.01)="1"
^DD(1.5216,"B","Type",3)="1"
^DD(1.5216,"GL",0,1,.01)=""
^DD(1.5216,"GL",0,2,1)=""
^DD(1.5216,"GL",0,3,2)=""
^DD(1.5216,"GL",0,4,3)=""
^DD(1.5216,"GL",0,5,4)=""
^DD(1.5216,"IX",.01)=""
^DD(1.5216,"IX",1)=""
^DD(1.5216,"IX",2)=""
^DD(1.5216,"IX",3)=""
^DD(1.5216,"RQ",.01)=""
^DD(1.5216,"RQ",1)=""
^DD(1.5216,"RQ",2)=""
^DD(1.5216,"RQ",3)=""
^DD(1.5217,0)="FIELD^^16^17"
^DD(1.5217,0,"DT")="2970311"
^DD(1.5217,0,"IX","B",1.5217,.01)=""
^DD(1.5217,0,"IX","C",1.5217,8)=""
^DD(1.5217,0,"IX","D",1.5217,4)=""
^DD(1.5217,0,"IX","E",1.5217,16)=""
^DD(1.5217,0,"NM","SQLI_COLUMN")=""
^DD(1.5217,0,"PT",1.5217,8)=""
^DD(1.5217,0,"PT",1.5218,1)=""
^DD(1.5217,0,"PT",1.5219,2)=""
^DD(1.5217,0,"VR")="22.0"
^DD(1.5217,0,"VRPK")="DI"
^DD(1.5217,.01,0)="C_TABLE_ELEMENT^RP1.5216'^DMSQ(""E"",^0;1^Q"
^DD(1.5217,.01,.1)="Table Element"
^DD(1.5217,.01,1,0)="^.1"
^DD(1.5217,.01,1,1,0)="1.5217^B"
^DD(1.5217,.01,1,1,1)="S ^DMSQ(""C"",""B"",$E(X,1,30),DA)="""""
^DD(1.5217,.01,1,1,2)="K ^DMSQ(""C"",""B"",$E(X,1,30),DA)"
^DD(1.5217,.01,3)=""
^DD(1.5217,.01,9)="^"
^DD(1.5217,.01,21,0)="^^1^1^2960926^^"
^DD(1.5217,.01,21,1,0)="IEN of table element."
^DD(1.5217,.01,"DT")="2960820"
^DD(1.5217,1,0)="C_FILE^NJ16,6^^0;5^K:+X'=X!(X>999999999.999999)!(X<1)!(X?.E1"".""7N.N) X"
^DD(1.5217,1,.1)="File ID"
^DD(1.5217,1,3)="Type a Number between 1 and 999999999.999999, 6 Decimal Digits"
^DD(1.5217,1,9)="^"
^DD(1.5217,1,21,0)="^^2^2^2960926^"
^DD(1.5217,1,21,1,0)="FileMan file (or subfile) ID, if column was derived from ^DD."
^DD(1.5217,1,21,2,0)=" NULL if column is generated by SQLI."
^DD(1.5217,1,"DT")="2960926"
^DD(1.5217,2,0)="C_WIDTH^NJ2,0^^0;2^K:+X'=X!(X>22)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5217,2,.1)="Width"
^DD(1.5217,2,3)="Type an integer between 1 and 999999999999999"
^DD(1.5217,2,9)="^"
^DD(1.5217,2,21,0)="^^3^3^2960926^"
^DD(1.5217,2,21,1,0)="Field width for display"
^DD(1.5217,2,21,2,0)="This field is estimated by SQLI from evidence in ^DD unless it's specified"
^DD(1.5217,2,21,3,0)="with J modifier."
^DD(1.5217,2,"DT")="2960820"
^DD(1.5217,3,0)="C_SCALE^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5217,3,.1)="Dec. Pt."
^DD(1.5217,3,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(1.5217,3,9)="^"
^DD(1.5217,3,21,0)="^^2^2^2960926^"
^DD(1.5217,3,21,1,0)="Number of decimal points to display on output (numeric only)."
^DD(1.5217,3,21,2,0)="If scale is specified as 0, SQLI projects column as integer."
^DD(1.5217,3,"DT")="2960926"
^DD(1.5217,4,0)="C_FIELD^NJ15,7^^0;6^K:+X'=X!(X>9999999.9999999)!(X<.001)!(X?.E1"".""8N.N) X"
^DD(1.5217,4,1,0)="^.1"
^DD(1.5217,4,1,1,0)="1.5217^D^MUMPS"
^DD(1.5217,4,1,1,1)="S ^DMSQ(""C"",""D"",$P(^DMSQ(""C"",DA,0),U,5),X,DA)="""""
^DD(1.5217,4,1,1,2)="K ^DMSQ(""C"",""D"",$P(^DMSQ(""C"",DA,0),U,5),X,DA)"
^DD(1.5217,4,1,1,"%D",0)="^^1^1^2960827^"
^DD(1.5217,4,1,1,"%D",1,0)="Column by FileMan File number, by field number"
^DD(1.5217,4,1,1,"DT")="2960827"
^DD(1.5217,4,3)="Type a Number between .001 and 9999999.9999999, 7 Decimal Digits"
^DD(1.5217,4,9)="^"
^DD(1.5217,4,21,0)="^^2^2^2970311^^^"
^DD(1.5217,4,21,1,0)="FileMan field ID from ^DD"
^DD(1.5217,4,21,2,0)="NULL unless column is derived directly from the data dictionary."
^DD(1.5217,4,"DT")="2970311"
^DD(1.5217,5,0)="C_NOT_NULL^S^0:Not required;1:Required;^0;7^Q"
^DD(1.5217,5,.1)="Req."
^DD(1.5217,5,9)="^"
^DD(1.5217,5,21,0)="^^1^1^2960926^"
^DD(1.5217,5,21,1,0)="When true (1) value is required, when false (0) not required."
^DD(1.5217,5,"DT")="2960926"
^DD(1.5217,6,0)="C_SECURE^S^0:Not secure;1:Secure;^0;8^Q"
^DD(1.5217,6,.1)="Secure"
^DD(1.5217,6,9)="^"
^DD(1.5217,6,21,0)="^^2^2^2960926^"
^DD(1.5217,6,21,1,0)="If true, there is a security screen, else not."
^DD(1.5217,6,21,2,0)="When this flag is set, vendors should use DBS to retrieve data."
^DD(1.5217,6,"DT")="2960926"
^DD(1.5217,7,0)="C_VIRTUAL^S^0:Base column;1:Calculated value column;^0;9^Q"
^DD(1.5217,7,.1)="Virtual"
^DD(1.5217,7,9)="^"
^DD(1.5217,7,21,0)="^^2^2^2960926^"
^DD(1.5217,7,21,1,0)="If true, the value is computed."
^DD(1.5217,7,21,2,0)="Vendors should use DBS to get value."
^DD(1.5217,7,"DT")="2960926"
^DD(1.5217,8,0)="C_PARENT^P1.5217'^DMSQ(""C"",^0;10^Q"
^DD(1.5217,8,.1)="Parent Column"
^DD(1.5217,8,1,0)="^.1"
^DD(1.5217,8,1,1,0)="1.5217^C"
^DD(1.5217,8,1,1,1)="S ^DMSQ(""C"",""C"",$E(X,1,30),DA)="""""
^DD(1.5217,8,1,1,2)="K ^DMSQ(""C"",""C"",$E(X,1,30),DA)"
^DD(1.5217,8,1,1,"%D",0)="^^1^1^2960823^"
^DD(1.5217,8,1,1,"%D",1,0)="Column by parent column"
^DD(1.5217,8,1,1,"DT")="2960823"
^DD(1.5217,8,9)="^"
^DD(1.5217,8,21,0)="^^2^2^2960926^"
^DD(1.5217,8,21,1,0)="Column whose physical global structure precedes this column."
^DD(1.5217,8,21,2,0)="Used to construct global root. Chain goes back to ^DIC."
^DD(1.5217,8,"DT")="2960926"
^DD(1.5217,9,0)="C_GLOBAL^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5217,9,.1)="Global"
^DD(1.5217,9,3)="M global fragment which precedes this element"
^DD(1.5217,9,9)="^"
^DD(1.5217,9,21,0)="^^3^3^2960926^"
^DD(1.5217,9,21,1,0)="M global fragment between this column and parent column."
^DD(1.5217,9,21,2,0)="Contains node specifier for non-key columns. Key columns are constructed"
^DD(1.5217,9,21,3,0)="by SQLI and contain the multiple node specifier or ^DIC root."
^DD(1.5217,9,"DT")="2960926"
^DD(1.5217,10,0)="C_PIECE^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5217,10,.1)="Piece"
^DD(1.5217,10,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(1.5217,10,9)="^"
^DD(1.5217,10,21,0)="^^2^2^2960926^"
^DD(1.5217,10,21,1,0)="The piece address of the column in a data string."
^DD(1.5217,10,21,2,0)="If the piece address was of form E1,30, this value is null."
^DD(1.5217,10,"DT")="2960926"
^DD(1.5217,11,0)="C_EXTRACT_FROM^NJ3,0^^0;12^K:+X'=X!(X>511)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5217,11,.1)="Ext. Frm."
^DD(1.5217,11,3)="Type a Number between 1 and 511, 0 Decimal Digits"
^DD(1.5217,11,9)="^"
^DD(1.5217,11,21,0)="^^2^2^2960926^^^"
^DD(1.5217,11,21,1,0)="First character to be extracted with $EXTRACT"
^DD(1.5217,11,21,2,0)="NULL unless specified by form E1,30."
^DD(1.5217,11,"DT")="2960926"
^DD(1.5217,12,0)="C_EXTRACT_THRU^NJ3,0^^0;13^K:+X'=X!(X>511)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5217,12,.1)="Ext. Thru"
^DD(1.5217,12,3)="Type a Number between 1 and 511, 0 Decimal Digits"
^DD(1.5217,12,9)="^"
^DD(1.5217,12,21,0)="^^1^1^2960926^^"
^DD(1.5217,12,21,1,0)="Last character to extract with $E"
^DD(1.5217,12,"DT")="2960926"
^DD(1.5217,13,0)="C_COMPUTE_EXEC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5217,13,.1)="Computation"
^DD(1.5217,13,3)="M code to return value in {V}: machine generated"
^DD(1.5217,13,4)="W ?5,""Enter code to return value in {V}"""
^DD(1.5217,13,9)="^"
^DD(1.5217,13,21,0)="^^1^1^2970311^^^^"
^DD(1.5217,13,21,1,0)="Computation execute uses $$GET1^DIQ to return code by default"
^DD(1.5217,13,"DT")="2960926"
^DD(1.5217,14,0)="C_FM_EXEC^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5217,14,.1)="FileMan Retrieval Strategy"
^DD(1.5217,14,3)="Don't enter manually: machine generated."
^DD(1.5217,14,4)="W ?5,""Don't enter this. It should be auto-generated."""
^DD(1.5217,14,9)="^"
^DD(1.5217,14,21,0)="^^2^2^2970311^^^^"
^DD(1.5217,14,21,1,0)="Standard $$GET1^DIQ code to return value of pointer, variable pointer"
^DD(1.5217,14,21,2,0)="and computed values, or when security flag is set"
^DD(1.5217,14,"DT")="2960926"
^DD(1.5217,15,0)="C_POINTER^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5217,15,.1)="Pointer or Set Param"
^DD(1.5217,15,3)="This is Standard MUMPS code."
^DD(1.5217,15,9)="^"
^DD(1.5217,15,21,0)="^^1^1^2960926^"
^DD(1.5217,15,21,1,0)="Set translation string for SET, or global root for POINTER"
^DD(1.5217,15,"DT")="2960906"
^DD(1.5217,16,0)="C_OUTPUT_FORMAT^P1.5214'^DMSQ(""OF"",^0;4^Q"
^DD(1.5217,16,.1)="Output Format"
^DD(1.5217,16,1,0)="^.1"
^DD(1.5217,16,1,1,0)="1.5217^E"
^DD(1.5217,16,1,1,1)="S ^DMSQ(""C"",""E"",$E(X,1,30),DA)="""""
^DD(1.5217,16,1,1,2)="K ^DMSQ(""C"",""E"",$E(X,1,30),DA)"
^DD(1.5217,16,1,1,"%D",0)="^^1^1^2960909^"
^DD(1.5217,16,1,1,"%D",1,0)="Column by output format"
^DD(1.5217,16,1,1,"DT")="2960909"
^DD(1.5217,16,9)="^"
^DD(1.5217,16,21,0)="^^2^2^2960926^"
^DD(1.5217,16,21,1,0)="IEN of default output format in SQLI_OUTPUT_FORMAT for this column"
^DD(1.5217,16,21,2,0)="Always present for SET, POINTER and VARIABLE-POINTER data types"
^DD(1.5217,16,"DT")="2960926"
^DD(1.5217,"B","C_COMPUTE_EXEC",13)=""
^DD(1.5217,"B","C_EXTRACT_FROM",11)=""
^DD(1.5217,"B","C_EXTRACT_THRU",12)=""
^DD(1.5217,"B","C_FIELD",4)=""
^DD(1.5217,"B","C_FILE",1)=""
^DD(1.5217,"B","C_FM_EXEC",14)=""
^DD(1.5217,"B","C_GLOBAL",9)=""
^DD(1.5217,"B","C_NOT_NULL",5)=""
^DD(1.5217,"B","C_OUTPUT_FORMAT",16)=""
^DD(1.5217,"B","C_PARENT",8)=""
^DD(1.5217,"B","C_PIECE",10)=""
^DD(1.5217,"B","C_POINTER",15)=""
^DD(1.5217,"B","C_SCALE",3)=""
^DD(1.5217,"B","C_SECURE",6)=""
^DD(1.5217,"B","C_TABLE_ELEMENT",.01)=""
^DD(1.5217,"B","C_VIRTUAL",7)=""
^DD(1.5217,"B","C_WIDTH",2)=""
^DD(1.5217,"B","Computation",13)="1"
^DD(1.5217,"B","Dec. Pt.",3)="1"
^DD(1.5217,"B","Ext. Frm.",11)="1"
^DD(1.5217,"B","Ext. Thru",12)="1"
^DD(1.5217,"B","File ID",1)="1"
^DD(1.5217,"B","FileMan Retrieval Strategy",14)="1"
^DD(1.5217,"B","Global",9)="1"
^DD(1.5217,"B","Output Format",16)="1"
^DD(1.5217,"B","Parent Column",8)="1"
^DD(1.5217,"B","Piece",10)="1"
^DD(1.5217,"B","Pointer or Set Param",15)="1"
^DD(1.5217,"B","Req.",5)="1"
^DD(1.5217,"B","Secure",6)="1"
^DD(1.5217,"B","Table Element",.01)="1"
^DD(1.5217,"B","Virtual",7)="1"
^DD(1.5217,"B","Width",2)="1"
^DD(1.5217,"GL",0,1,.01)=""
^DD(1.5217,"GL",0,2,2)=""
^DD(1.5217,"GL",0,3,3)=""
^DD(1.5217,"GL",0,4,16)=""
^DD(1.5217,"GL",0,5,1)=""
^DD(1.5217,"GL",0,6,4)=""
^DD(1.5217,"GL",0,7,5)=""
^DD(1.5217,"GL",0,8,6)=""
^DD(1.5217,"GL",0,9,7)=""
^DD(1.5217,"GL",0,10,8)=""
^DD(1.5217,"GL",0,11,10)=""
^DD(1.5217,"GL",0,12,11)=""
^DD(1.5217,"GL",0,13,12)=""
^DD(1.5217,"GL",1,"E1,245",9)=""
^DD(1.5217,"GL",2,"E1,245",13)=""
^DD(1.5217,"GL",3,"E1,245",14)=""
^DD(1.5217,"GL",4,"E1,245",15)=""
^DD(1.5217,"IX",.01)=""
^DD(1.5217,"IX",4)=""
^DD(1.5217,"IX",8)=""
^DD(1.5217,"IX",16)=""
^DD(1.5217,"RQ",.01)=""
^DD(1.5218,0)="FIELD^^7^8"
^DD(1.5218,0,"DDA")="N"
^DD(1.5218,0,"DT")="2961014"
^DD(1.5218,0,"IX","B",1.5218,.01)=""
^DD(1.5218,0,"IX","C",1.5218,2)=""
^DD(1.5218,0,"IX","D",1.5218,1)=""
^DD(1.5218,0,"NM","SQLI_PRIMARY_KEY")=""
^DD(1.5218,0,"PT",1.5219,1)=""
^DD(1.5218,0,"VR")="22.0"
^DD(1.5218,0,"VRPK")="DI"
^DD(1.5218,.01,0)="P_TBL_ELEMENT^RP1.5216'^DMSQ(""E"",^0;1^Q"
^DD(1.5218,.01,.1)="Key Element"
^DD(1.5218,.01,1,0)="^.1"
^DD(1.5218,.01,1,1,0)="1.5218^B"
^DD(1.5218,.01,1,1,1)="S ^DMSQ(""P"",""B"",$E(X,1,30),DA)="""""
^DD(1.5218,.01,1,1,2)="K ^DMSQ(""P"",""B"",$E(X,1,30),DA)"
^DD(1.5218,.01,3)=""
^DD(1.5218,.01,9)="^"
^DD(1.5218,.01,21,0)="^^1^1^2960926^^"
^DD(1.5218,.01,21,1,0)="IEN of table element in SQLI_TABLE_ELEMENT"
^DD(1.5218,.01,"DT")="2960823"
^DD(1.5218,1,0)="P_COLUMN^RP1.5217'^DMSQ(""C"",^0;2^Q"
^DD(1.5218,1,.1)="Column"
^DD(1.5218,1,1,0)="^.1"
^DD(1.5218,1,1,1,0)="1.5218^D"
^DD(1.5218,1,1,1,1)="S ^DMSQ(""P"",""D"",$E(X,1,30),DA)="""""
^DD(1.5218,1,1,1,2)="K ^DMSQ(""P"",""D"",$E(X,1,30),DA)"
^DD(1.5218,1,1,1,"DT")="2960830"
^DD(1.5218,1,9)="^"
^DD(1.5218,1,21,0)="^^1^1^2960926^^^"
^DD(1.5218,1,21,1,0)="IEN of column in SQLI_COLUMN corresponding to this primary key"
^DD(1.5218,1,"DT")="2960830"
^DD(1.5218,2,0)="P_SEQUENCE^RNJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1.5218,2,.1)="Seq"
^DD(1.5218,2,1,0)="^.1"
^DD(1.5218,2,1,1,0)="1.5218^C^MUMPS"
^DD(1.5218,2,1,1,1)="S ^DMSQ(""P"",""C"",$P(^DMSQ(""P"",DA,0),U),X,DA)="""""
^DD(1.5218,2,1,1,2)="K ^DMSQ(""P"",""C"",$P(^DMSQ(""P"",DA,0),U),X,DA)"
^DD(1.5218,2,1,1,"%D",0)="^^1^1^2960827^^"
^DD(1.5218,2,1,1,"%D",1,0)="Primary key by table by sequence"
^DD(1.5218,2,1,1,"DT")="2960823"
^DD(1.5218,2,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(1.5218,2,9)="^"
^DD(1.5218,2,21,0)="^^1^1^2960926^"
^DD(1.5218,2,21,1,0)="Sequence number of primary key"
^DD(1.5218,2,23,0)="^^1^1^2960926^"
^DD(1.5218,2,23,1,0)="Sequence is automatically generated and must not be changed."
^DD(1.5218,2,"DT")="2960926"
^DD(1.5218,3,0)="P_START_AT^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(1.5218,3,.1)="Start"
^DD(1.5218,3,3)="Answer must be 1-30 characters in length."
^DD(1.5218,3,9)="^"
^DD(1.5218,3,21,0)="^^1^1^2960926^"
^DD(1.5218,3,21,1,0)="Initial value of key before a $ORDER loop"
^DD(1.5218,3,"DT")="2960820"
^DD(1.5218,4,0)="P_END_IF^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5218,4,.1)="End If"
^DD(1.5218,4,3)="This is a Standard M expression returning False at end"
^DD(1.5218,4,9)="^"
^DD(1.5218,4,21,0)="^^1^1^2960926^"
^DD(1.5218,4,21,1,0)="M expression in key value, {K}, which, if false, ends the $ORDER loop"
^DD(1.5218,4,"DT")="2960926"
^DD(1.5218,5,0)="P_ROW_COUNT^NJ10,2^^0;5^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(1.5218,5,.1)="Rows"
^DD(1.5218,5,3)="Type a Number between 1 and 9999999, 2 Decimal Digits"
^DD(1.5218,5,9)="^"
^DD(1.5218,5,21,0)="^^1^1^2960926^^"
^DD(1.5218,5,21,1,0)="Estimated number of rows per record set at this level"
^DD(1.5218,5,"DT")="2960926"
^DD(1.5218,6,0)="P_PRESELECT^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(1.5218,6,.1)="Preselect M Code"
^DD(1.5218,6,3)="This is Standard MUMPS code."
^DD(1.5218,6,9)="^"
^DD(1.5218,6,21,0)="^^1^1^2960926^^"
^DD(1.5218,6,21,1,0)="Code to be executed before selecting this key, before optimization."
^DD(1.5218,6,"DT")="2960926"
^DD(1.5218,7,0)="P_KEY_FORMAT^P1.5213'^DMSQ(""KF"",^0;6^Q"
^DD(1.5218,7,9)="^"
^DD(1.5218,7,21,0)="^^4^4^2961014^"
^DD(1.5218,7,21,1,0)="Key formats map internal storage values to their value when used as keys."
^DD(1.5218,7,21,2,0)="In general, information is lost in the process; they can't be converted"
^DD(1.5218,7,21,3,0)="back. This means data must be converted to key format before it can be"
^DD(1.5218,7,21,4,0)="compared to such a key."
^DD(1.5218,7,"DT")="2961014"
^DD(1.5218,"B","Column",1)="1"
^DD(1.5218,"B","End If",4)="1"
^DD(1.5218,"B","Key Element",.01)="1"
^DD(1.5218,"B","P_COLUMN",1)=""
^DD(1.5218,"B","P_END_IF",4)=""
^DD(1.5218,"B","P_KEY_FORMAT",7)=""
^DD(1.5218,"B","P_PRESELECT",6)=""
^DD(1.5218,"B","P_ROW_COUNT",5)=""
^DD(1.5218,"B","P_SEQUENCE",2)=""
^DD(1.5218,"B","P_START_AT",3)=""
^DD(1.5218,"B","P_TBL_ELEMENT",.01)=""
^DD(1.5218,"B","Preselect M Code",6)="1"
^DD(1.5218,"B","Rows",5)="1"
^DD(1.5218,"B","Seq",2)="1"
^DD(1.5218,"B","Start",3)="1"
^DD(1.5218,"GL",0,1,.01)=""
^DD(1.5218,"GL",0,2,1)=""
^DD(1.5218,"GL",0,3,2)=""
^DD(1.5218,"GL",0,4,3)=""
^DD(1.5218,"GL",0,5,5)=""
^DD(1.5218,"GL",0,6,7)=""
^DD(1.5218,"GL",1,"E1,245",4)=""
^DD(1.5218,"GL",2,"E1,245",6)=""
^DD(1.5218,"IX",.01)=""
^DD(1.5218,"IX",1)=""
^DD(1.5218,"IX",2)=""
^DD(1.5218,"RQ",.01)=""
^DD(1.5218,"RQ",1)=""
^DD(1.5218,"RQ",2)=""
^DD(1.5219,0)="FIELD^^2^3"
^DD(1.5219,0,"DDA")="N"
^DD(1.5219,0,"DT")="2960820"
^DD(1.5219,0,"IX","B",1.5219,.01)=""
^DD(1.5219,0,"NM","SQLI_FOREIGN_KEY")=""
^DD(1.5219,0,"VR")="22.0"
^DD(1.5219,0,"VRPK")="DI"
^DD(1.5219,.01,0)="F_TBL_ELEMENT^RP1.5216'^DMSQ(""E"",^0;1^Q"
^DD(1.5219,.01,.1)="Foreign Key"
^DD(1.5219,.01,1,0)="^.1"
^DD(1.5219,.01,1,1,0)="1.5219^B"
^DD(1.5219,.01,1,1,1)="S ^DMSQ(""F"",""B"",$E(X,1,30),DA)="""""
^DD(1.5219,.01,1,1,2)="K ^DMSQ(""F"",""B"",$E(X,1,30),DA)"
^DD(1.5219,.01,3)=""
^DD(1.5219,.01,9)="^"
^DD(1.5219,.01,21,0)="^^1^1^2960926^^^^"
^DD(1.5219,.01,21,1,0)="IEN of foreign key table element in SQLI_TABLE_ELEMENT"
^DD(1.5219,.01,"DT")="2960828"
^DD(1.5219,1,0)="F_PK_ELEMENT^RP1.5218'^DMSQ(""P"",^0;2^Q"
^DD(1.5219,1,.1)="Primary Key"
^DD(1.5219,1,9)="^"
^DD(1.5219,1,21,0)="^^1^1^2960926^"
^DD(1.5219,1,21,1,0)="IEN of primary key element in SQLI_PRIMARY_KEY of foreign table"
^DD(1.5219,1,"DT")="2960926"
^DD(1.5219,2,0)="F_CLM_ELEMENT^RP1.5217'^DMSQ(""C"",^0;3^Q"
^DD(1.5219,2,.1)="Column"
^DD(1.5219,2,9)="^"
^DD(1.5219,2,21,0)="^^1^1^2960926^"
^DD(1.5219,2,21,1,0)="IEN of column of this table in SQLI_COLUMN which matches foreign PK"
^DD(1.5219,2,"DT")="2960926"
^DD(1.5219,"B","Column",2)="1"
^DD(1.5219,"B","F_CLM_ELEMENT",2)=""
^DD(1.5219,"B","F_PK_ELEMENT",1)=""
^DD(1.5219,"B","F_TBL_ELEMENT",.01)=""
^DD(1.5219,"B","Foreign Key",.01)="1"
^DD(1.5219,"B","Primary Key",1)="1"
^DD(1.5219,"GL",0,1,.01)=""
^DD(1.5219,"GL",0,2,1)=""
^DD(1.5219,"GL",0,3,2)=""
^DD(1.5219,"IX",.01)=""
^DD(1.5219,"RQ",.01)=""
^DD(1.5219,"RQ",1)=""
^DD(1.5219,"RQ",2)=""
^DD(1.52191,0)="FIELD^^.01^1"
^DD(1.52191,0,"DDA")="N"
^DD(1.52191,0,"DT")="2960828"
^DD(1.52191,0,"IX","B",1.52191,.01)=""
^DD(1.52191,0,"NM","SQLI_ERROR_TEXT")=""
^DD(1.52191,0,"PT",1.52192,2)=""
^DD(1.52191,0,"VR")="22.0"
^DD(1.52191,0,"VRPK")="DI"
^DD(1.52191,.01,0)="ERROR_TEXT^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(1.52191,.01,.1)="Error Text"
^DD(1.52191,.01,1,0)="^.1"
^DD(1.52191,.01,1,1,0)="1.52191^B"
^DD(1.52191,.01,1,1,1)="S ^DMSQ(""ET"",""B"",$E(X,1,30),DA)="""""
^DD(1.52191,.01,1,1,2)="K ^DMSQ(""ET"",""B"",$E(X,1,30),DA)"
^DD(1.52191,.01,3)="Answer must be 3-50 characters in length."
^DD(1.52191,.01,9)="^"
^DD(1.52191,.01,21,0)="^^1^1^2960926^"
^DD(1.52191,.01,21,1,0)="Description of error"
^DD(1.52191,.01,23,0)="^^1^1^2960926^"
^DD(1.52191,.01,23,1,0)="This is loaded by laygo from DMSQ routines"
^DD(1.52191,.01,"DT")="2960828"
^DD(1.52191,"B","ERROR_TEXT",.01)=""
^DD(1.52191,"B","Error Text",.01)="1"
^DD(1.52191,"GL",0,1,.01)=""
^DD(1.52191,"IX",.01)=""
^DD(1.52191,"RQ",.01)=""
^DD(1.52192,0)="FIELD^^4^5"
^DD(1.52192,0,"DDA")="N"
^DD(1.52192,0,"DT")="2960829"
^DD(1.52192,0,"IX","B",1.52192,.01)=""
^DD(1.52192,0,"IX","C",1.52192,2)=""
^DD(1.52192,0,"IX","D",1.52192,3)=""
^DD(1.52192,0,"IX","E",1.52192,4)=""
^DD(1.52192,0,"NM","SQLI_ERROR_LOG")=""
^DD(1.52192,0,"VR")="22.0"
^DD(1.52192,0,"VRPK")="DI"
^DD(1.52192,.01,0)="FILEMAN_FILE^RNJ15,6^^0;1^K:+X'=X!(X>99999999.999999)!(X<1)!(X?.E1"".""7N.N) X"
^DD(1.52192,.01,.1)="File"
^DD(1.52192,.01,1,0)="^.1"
^DD(1.52192,.01,1,1,0)="1.52192^B"
^DD(1.52192,.01,1,1,1)="S ^DMSQ(""EX"",""B"",$E(X,1,30),DA)="""""
^DD(1.52192,.01,1,1,2)="K ^DMSQ(""EX"",""B"",$E(X,1,30),DA)"
^DD(1.52192,.01,3)="Type a Number between 1 and 99999999.999999, 6 Decimal Digits"
^DD(1.52192,.01,9)="^"
^DD(1.52192,.01,21,0)="^^1^1^2960926^^"
^DD(1.52192,.01,21,1,0)="FileMan source file of error in table build"
^DD(1.52192,.01,"DT")="2960828"
^DD(1.52192,1,0)="FILEMAN_FIELD^NJ15,6^^0;2^K:+X'=X!(X>99999999.999999)!(X<.001)!(X?.E1"".""7N.N) X"
^DD(1.52192,1,3)="Type a Number between .001 and 99999999.999999, 6 Decimal Digits"
^DD(1.52192,1,9)="^"
^DD(1.52192,1,21,0)="^^1^1^2960926^^"
^DD(1.52192,1,21,1,0)="FileMan field number of error source"
^DD(1.52192,1,23,0)="^^1^1^2960926^"
^DD(1.52192,1,23,1,0)="May be other information. This is a bit loose."
^DD(1.52192,1,"DT")="2960828"
^DD(1.52192,2,0)="ERROR^RP1.52191^DMSQ(""ET"",^0;3^Q"
^DD(1.52192,2,.1)="Error"
^DD(1.52192,2,1,0)="^.1"
^DD(1.52192,2,1,1,0)="1.52192^C"
^DD(1.52192,2,1,1,1)="S ^DMSQ(""EX"",""C"",$E(X,1,30),DA)="""""
^DD(1.52192,2,1,1,2)="K ^DMSQ(""EX"",""C"",$E(X,1,30),DA)"
^DD(1.52192,2,1,1,"%D",0)="^^1^1^2960829^"
^DD(1.52192,2,1,1,"%D",1,0)="Error by error number"
^DD(1.52192,2,1,1,"DT")="2960829"
^DD(1.52192,2,9)="^"
^DD(1.52192,2,21,0)="^^1^1^2960926^"
^DD(1.52192,2,21,1,0)="IEN of error text from SQLI_ERROR_TEXT"
^DD(1.52192,2,"DT")="2960926"
^DD(1.52192,3,0)="ERROR_DATE^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(1.52192,3,.1)="Run Date"
^DD(1.52192,3,1,0)="^.1"
^DD(1.52192,3,1,1,0)="1.52192^D"
^DD(1.52192,3,1,1,1)="S ^DMSQ(""EX"",""D"",$E(X,1,30),DA)="""""
^DD(1.52192,3,1,1,2)="K ^DMSQ(""EX"",""D"",$E(X,1,30),DA)"
^DD(1.52192,3,1,1,"%D",0)="^^1^1^2960829^"
^DD(1.52192,3,1,1,"%D",1,0)="Error by date"
^DD(1.52192,3,1,1,"DT")="2960829"
^DD(1.52192,3,9)="^"
^DD(1.52192,3,21,0)="^^1^1^2960926^"
^DD(1.52192,3,21,1,0)="Date of run"
^DD(1.52192,3,"DT")="2960926"
^DD(1.52192,4,0)="FILEMAN_ERROR^P.84'^DI(.84,^0;5^Q"
^DD(1.52192,4,.1)="FileMan Error"
^DD(1.52192,4,1,0)="^.1"
^DD(1.52192,4,1,1,0)="1.52192^E"
^DD(1.52192,4,1,1,1)="S ^DMSQ(""EX"",""E"",$E(X,1,30),DA)="""""
^DD(1.52192,4,1,1,2)="K ^DMSQ(""EX"",""E"",$E(X,1,30),DA)"
^DD(1.52192,4,1,1,"%D",0)="^^1^1^2960829^"
^DD(1.52192,4,1,1,"%D",1,0)="Error by FileMan Dialog error number"
^DD(1.52192,4,1,1,"DT")="2960829"
^DD(1.52192,4,9)="^"
^DD(1.52192,4,21,0)="^^1^1^2960926^"
^DD(1.52192,4,21,1,0)="IEN of FileMan error in DIALOG file"
^DD(1.52192,4,"DT")="2960926"
^DD(1.52192,"B","ERROR",2)=""
^DD(1.52192,"B","ERROR_DATE",3)=""
^DD(1.52192,"B","Error",2)="1"
^DD(1.52192,"B","FILEMAN_ERROR",4)=""
^DD(1.52192,"B","FILEMAN_FIELD",1)=""
^DD(1.52192,"B","FILEMAN_FILE",.01)=""
^DD(1.52192,"B","File",.01)="1"
^DD(1.52192,"B","FileMan Error",4)="1"
^DD(1.52192,"B","Run Date",3)="1"
^DD(1.52192,"GL",0,1,.01)=""
^DD(1.52192,"GL",0,2,1)=""
^DD(1.52192,"GL",0,3,2)=""
^DD(1.52192,"GL",0,4,3)=""
^DD(1.52192,"GL",0,5,4)=""
^DD(1.52192,"IX",.01)=""
^DD(1.52192,"IX",2)=""
^DD(1.52192,"IX",3)=""
^DD(1.52192,"IX",4)=""
^DD(1.52192,"RQ",.01)=""
^DD(1.52192,"RQ",2)=""
^DD(1.52192,"RQ",3)=""
^DD(2,0)="FIELD^NL^537025^431"
^DD(2,0,"ACT")="I '$G(DICR),$G(DIC(0))'[""I"" D ^DGSEC"
^DD(2,0,"DDA")="N"
^DD(2,0,"DIC")="DPTLK"
^DD(2,0,"DT")="2930629"
^DD(2,0,"ID",.02)="W """""
^DD(2,0,"ID",.03)="D EN^DDIOL($TR($$DOB^DPTLK1(Y,1),""/"",""-""),,""?$X+2"")"
^DD(2,0,"ID",.09)="D EN^DDIOL($$SSN^DPTLK1(Y),,""?$X+2"")"
^DD(2,0,"ID",.301)="W:$D(^(.3)) ""   "",@(""$P($P($C(59)_$S($D(^DD(2,.301,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(.3),U,1)_"""":"""",2),$C(59),1)"")"
^DD(2,0,"ID",391)="S %I=Y,Y=$S('$D(^(""TYPE"")):"""",$D(^DG(391,+$P(^(""TYPE""),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(391,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2,0,"ID",994)="I $$GET1^DIQ(2,Y_"","",994,""I"")=""Y"" D EN^DDIOL($$GET1^DIQ(2,Y_"","",994),"""",""?$X+2"")"
^DD(2,0,"ID",1901)="W """""
^DD(2,0,"ID","AFJX NETWORK ID")="D EN^DDIOL($$GET1^DIQ(2,Y_"","",537025),"""",""?0"")"
^DD(2,0,"IX","AAICN",2.0992,.01)=""
^DD(2,0,"IX","AAP",2,.1041)=""
^DD(2,0,"IX","AB",2.312,.01)=""
^DD(2,0,"IX","ABUL",2,.01)=""
^DD(2,0,"IX","AC",2.011,3)=""
^DD(2,0,"IX","ACA",2,.105)=""
^DD(2,0,"IX","ACB",2,.31)=""
^DD(2,0,"IX","ACFL4",2,.314)=""
^DD(2,0,"IX","ACIVZIP",2,.2928)=""
^DD(2,0,"IX","ACIVZIP4",2,.290012)=""
^DD(2,0,"IX","ACMOR",2,991.03)=""
^DD(2,0,"IX","ACMORS",2,991.06)=""
^DD(2,0,"IX","ACN",2,.1)=""
^DD(2,0,"IX","ACOL",2,.3601)=""
^DD(2,0,"IX","ACS",2,.14)=""
^DD(2,0,"IX","AD",2,.09)=""
^DD(2,0,"IX","AD1ZIP",2,.348)=""
^DD(2,0,"IX","AD1ZIP4",2,.2202)=""
^DD(2,0,"IX","ADA",2.101,50)=""
^DD(2,0,"IX","ADEP",2,.351)=""
^DD(2,0,"IX","ADGDBUL",2,.351)=""
^DD(2,0,"IX","ADGRU01",2,.01)=""
^DD(2,0,"IX","ADGRU02",2,.02)=""
^DD(2,0,"IX","ADGRU03",2,.03)=""
^DD(2,0,"IX","ADGRU05",2,.05)=""
^DD(2,0,"IX","ADGRU06",2,.06)=""
^DD(2,0,"IX","ADGRU07",2,.07)=""
^DD(2,0,"IX","ADGRU08",2,.08)=""
^DD(2,0,"IX","ADGRU09",2,.09)=""
^DD(2,0,"IX","ADGRU092",2,.092)=""
^DD(2,0,"IX","ADGRU093",2,.093)=""
^DD(2,0,"IX","ADGRU111",2,.111)=""
^DD(2,0,"IX","ADGRU1112",2,.1112)=""
^DD(2,0,"IX","ADGRU112",2,.112)=""
^DD(2,0,"IX","ADGRU113",2,.113)=""
^DD(2,0,"IX","ADGRU114",2,.114)=""
^DD(2,0,"IX","ADGRU115",2,.115)=""
^DD(2,0,"IX","ADGRU131",2,.131)=""
^DD(2,0,"IX","ADGRU132",2,.132)=""
^DD(2,0,"IX","ADGRU1901",2,1901)=""
^DD(2,0,"IX","ADGRU211",2,.211)=""
^DD(2,0,"IX","ADGRU212",2,.212)=""
^DD(2,0,"IX","ADGRU213",2,.213)=""
^DD(2,0,"IX","ADGRU214",2,.214)=""
^DD(2,0,"IX","ADGRU216",2,.216)=""
^DD(2,0,"IX","ADGRU217",2,.217)=""
^DD(2,0,"IX","ADGRU219",2,.219)=""
^DD(2,0,"IX","ADGRU301",2,.301)=""
^DD(2,0,"IX","ADGRU302",2,.302)=""
^DD(2,0,"IX","ADGRU326",2,.326)=""
^DD(2,0,"IX","ADGRU327",2,.327)=""
^DD(2,0,"IX","ADGRU351",2,.351)=""
^DD(2,0,"IX","ADGRU383",2,.383)=""
^DD(2,0,"IX","ADI",2.101,.01)=""
^DD(2,0,"IX","ADIS",2.101,.01)=""
^DD(2,0,"IX","ADIS4",2.101,5)=""
^DD(2,0,"IX","ADOB",2,.03)=""
^DD(2,0,"IX","AE",2,.326)=""
^DD(2,0,"IX","AEB",2.011,.01)=""
^DD(2,0,"IX","AEC1ZIP",2,.338)=""
^DD(2,0,"IX","AEC1ZIP4",2,.2201)=""
^DD(2,0,"IX","AEC2ZIP4",2,.2204)=""
^DD(2,0,"IX","AEL",2,.361)=""
^DD(2,0,"IX","AEL1",2.0361,.01)=""
^DD(2,0,"IX","AEM1ZIP",2,.3118)=""
^DD(2,0,"IX","AEM1ZIP4",2,.2205)=""
^DD(2,0,"IX","AENR01",2,.01)=""
^DD(2,0,"IX","AENR01",2.0361,.01)=""
^DD(2,0,"IX","AENR02",2,.02)=""
^DD(2,0,"IX","AENR03",2,.03)=""
^DD(2,0,"IX","AENR05",2,.05)=""
^DD(2,0,"IX","AENR09",2,.09)=""
^DD(2,0,"IX","AENR10101511",2,1010.1511)=""
^DD(2,0,"IX","AENR1010159",2,1010.159)=""
^DD(2,0,"IX","AENR111",2,.111)=""
^DD(2,0,"IX","AENR1112",2,.1112)=""
^DD(2,0,"IX","AENR112",2,.112)=""
^DD(2,0,"IX","AENR113",2,.113)=""
^DD(2,0,"IX","AENR114",2,.114)=""
^DD(2,0,"IX","AENR115",2,.115)=""
^DD(2,0,"IX","AENR117",2,.117)=""
^DD(2,0,"IX","AENR118",2,.118)=""
^DD(2,0,"IX","AENR121",2,.121)=""
^DD(2,0,"IX","AENR12111",2,.12111)=""
^DD(2,0,"IX","AENR12113",2,.12113)=""
^DD(2,0,"IX","AENR1219",2,.1219)=""
^DD(2,0,"IX","AENR131",2,.131)=""
^DD(2,0,"IX","AENR132",2,.132)=""
^DD(2,0,"IX","AENR14111",2,.14111)=""
^DD(2,0,"IX","AENR14112",2,.14112)=""
^DD(2,0,"IX","AENR152",2,.152)=""
^DD(2,0,"IX","AENR1656",2,.1656)=""
^DD(2,0,"IX","AENR181",2,.181)=""
^DD(2,0,"IX","AENR1901",2,1901)=""
^DD(2,0,"IX","AENR21012",2,.21012)=""
^DD(2,0,"IX","AENR2702",2,27.02)=""
^DD(2,0,"IX","AENR293",2,.293)=""
^DD(2,0,"IX","AENR301",2,.301)=""
^DD(2,0,"IX","AENR302",2,.302)=""
^DD(2,0,"IX","AENR3025",2,.3025)=""
^DD(2,0,"IX","AENR304",2,.304)=""
^DD(2,0,"IX","AENR305",2,.305)=""
^DD(2,0,"IX","AENR307",2,.307)=""
^DD(2,0,"IX","AENR3111",2,.3111)=""
^DD(2,0,"IX","AENR31115",2,.31115)=""
^DD(2,0,"IX","AENR312",2,.312)=""
^DD(2,0,"IX","AENR313",2,.313)=""
^DD(2,0,"IX","AENR3192",2,.3192)=""
^DD(2,0,"IX","AENR32101",2,.32101)=""
^DD(2,0,"IX","AENR32102",2,.32102)=""
^DD(2,0,"IX","AENR32103",2,.32103)=""
^DD(2,0,"IX","AENR32104",2,.32104)=""
^DD(2,0,"IX","AENR32105",2,.32105)=""
^DD(2,0,"IX","AENR32115",2,.32115)=""
^DD(2,0,"IX","AENR3212",2,.3212)=""
^DD(2,0,"IX","AENR3213",2,.3213)=""
^DD(2,0,"IX","AENR3214",2,.3214)=""
^DD(2,0,"IX","AENR32201",2,.32201)=""
^DD(2,0,"IX","AENR322011",2,.322011)=""
^DD(2,0,"IX","AENR322012",2,.322012)=""
^DD(2,0,"IX","AENR322013",2,.322013)=""
^DD(2,0,"IX","AENR322016",2,.322016)=""
^DD(2,0,"IX","AENR322017",2,.322017)=""
^DD(2,0,"IX","AENR322018",2,.322018)=""
^DD(2,0,"IX","AENR322019",2,.322019)=""
^DD(2,0,"IX","AENR32202",2,.32202)=""
^DD(2,0,"IX","AENR322021",2,.322021)=""
^DD(2,0,"IX","AENR3221",2,.3221)=""
^DD(2,0,"IX","AENR3222",2,.3222)=""
^DD(2,0,"IX","AENR3223",2,.3223)=""
^DD(2,0,"IX","AENR3224",2,.3224)=""
^DD(2,0,"IX","AENR3225",2,.3225)=""
^DD(2,0,"IX","AENR3226",2,.3226)=""
^DD(2,0,"IX","AENR3227",2,.3227)=""
^DD(2,0,"IX","AENR3228",2,.3228)=""
^DD(2,0,"IX","AENR3229",2,.3229)=""
^DD(2,0,"IX","AENR323",2,.323)=""
^DD(2,0,"IX","AENR324",2,.324)=""
^DD(2,0,"IX","AENR325",2,.325)=""
^DD(2,0,"IX","AENR326",2,.326)=""
^DD(2,0,"IX","AENR327",2,.327)=""
^DD(2,0,"IX","AENR328",2,.328)=""
^DD(2,0,"IX","AENR329",2,.329)=""
^DD(2,0,"IX","AENR3291",2,.3291)=""
^DD(2,0,"IX","AENR32911",2,.32911)=""
^DD(2,0,"IX","AENR32912",2,.32912)=""
^DD(2,0,"IX","AENR32913",2,.32913)=""
^DD(2,0,"IX","AENR3292",2,.3292)=""
^DD(2,0,"IX","AENR3293",2,.3293)=""
^DD(2,0,"IX","AENR3294",2,.3294)=""
^DD(2,0,"IX","AENR3295",2,.3295)=""
^DD(2,0,"IX","AENR3296",2,.3296)=""
^DD(2,0,"IX","AENR3297",2,.3297)=""
^DD(2,0,"IX","AENR3298",2,.3298)=""
^DD(2,0,"IX","AENR3299",2,.3299)=""
^DD(2,0,"IX","AENR351",2,.351)=""
^DD(2,0,"IX","AENR353",2,.353)=""
^DD(2,0,"IX","AENR354",2,.354)=""
^DD(2,0,"IX","AENR3602",2,.3602)=""
^DD(2,0,"IX","AENR3603",2,.3603)=""
^DD(2,0,"IX","AENR361",2,.361)=""
^DD(2,0,"IX","AENR3611",2,.3611)=""
^DD(2,0,"IX","AENR3612",2,.3612)=""
^DD(2,0,"IX","AENR3615",2,.3615)=""
^DD(2,0,"IX","AENR3617",2,.3617)=""
^DD(2,0,"IX","AENR3618",2,.3618)=""
^DD(2,0,"IX","AENR362",2,.362)=""
^DD(2,0,"IX","AENR36205",2,.36205)=""
^DD(2,0,"IX","AENR36215",2,.36215)=""
^DD(2,0,"IX","AENR36235",2,.36235)=""
^DD(2,0,"IX","AENR36295",2,.36295)=""
^DD(2,0,"IX","AENR381",2,.381)=""
^DD(2,0,"IX","AENR382",2,.382)=""
^DD(2,0,"IX","AENR391",2,.391)=""
^DD(2,0,"IX","AENR392",2,.392)=""
^DD(2,0,"IX","AENR393",2,.393)=""
^DD(2,0,"IX","AENR394",2,.394)=""
^DD(2,0,"IX","AENR395",2,.395)=""
^DD(2,0,"IX","AENR3951",2,.3951)=""
^DD(2,0,"IX","AENR3952",2,.3952)=""
^DD(2,0,"IX","AENR3953",2,.3953)=""
^DD(2,0,"IX","AENR4105",2,.14105)=""
^DD(2,0,"IX","AENR525",2,.525)=""
^DD(2,0,"IX","AENR526",2,.526)=""
^DD(2,0,"IX","AENR527",2,.527)=""
^DD(2,0,"IX","AENR528",2,.528)=""
^DD(2,0,"IX","AENR5291",2,.5291)=""
^DD(2,0,"IX","AENR5292",2,.5292)=""
^DD(2,0,"IX","AENR5293",2,.5293)=""
^DD(2,0,"IX","AENR5294",2,.5294)=""
^DD(2,0,"IX","AENR5295",2,.5295)=""
^DD(2,0,"IX","AENR52951",2,.5295)=""
^DD(2,0,"IX","AENR531",2,.531)=""
^DD(2,0,"IX","AENR532",2,.532)=""
^DD(2,0,"IX","AENR533",2,.533)=""
^DD(2,0,"IX","AENR99101",2,991.01)=""
^DD(2,0,"IX","AENR99103",2,991.03)=""
^DD(2,0,"IX","AENRC",2,27.01)=""
^DD(2,0,"IX","AENRL525",2,.525)=""
^DD(2,0,"IX","AERI",2,.181)=""
^DD(2,0,"IX","AEXP1",2,.351)=""
^DD(2,0,"IX","AF",2,.3292)=""
^DD(2,0,"IX","AFV1",2,.325)=""
^DD(2,0,"IX","AFV2",2,.3291)=""
^DD(2,0,"IX","AFV3",2,.3296)=""
^DD(2,0,"IX","AG",2,.361)=""
^DD(2,0,"IX","AGU1",2,.1217)=""
^DD(2,0,"IX","AH",2,.362)=""
^DD(2,0,"IX","AHCMOR",2,991.03)=""
^DD(2,0,"IX","AHICN",2,991.01)=""
^DD(2,0,"IX","AHL7",2,.363)=""
^DD(2,0,"IX","AI",2,.5291)=""
^DD(2,0,"IX","AICN",2,991.01)=""
^DD(2,0,"IX","AICNL",2,991.04)=""
^DD(2,0,"IX","AJ",2,.36205)=""
^DD(2,0,"IX","AK",2,.5294)=""
^DD(2,0,"IX","AL",2,.36215)=""
^DD(2,0,"IX","AM",2,.36235)=""
^DD(2,0,"IX","AMPIMIS",2,.01)=""
^DD(2,0,"IX","AMT",2,.381)=""
^DD(2,0,"IX","AMTR",2,.525)=""
^DD(2,0,"IX","AN",2,1901)=""
^DD(2,0,"IX","AN1",2,1901)=""
^DD(2,0,"IX","ANEW",2,.083)=""
^DD(2,0,"IX","ANK1ZIP",2,.218)=""
^DD(2,0,"IX","ANK1ZIP4",2,.2207)=""
^DD(2,0,"IX","ANK2ZIP",2,.2198)=""
^DD(2,0,"IX","ANK2ZIP4",2,.2203)=""
^DD(2,0,"IX","ANURS",2,.1)=""
^DD(2,0,"IX","AO",2.0361,.01)=""
^DD(2,0,"IX","AODS1",2,.09)=""
^DD(2,0,"IX","AODS111",2,.111)=""
^DD(2,0,"IX","AODS112",2,.112)=""
^DD(2,0,"IX","AODS113",2,.113)=""
^DD(2,0,"IX","AODS114",2,.114)=""
^DD(2,0,"IX","AODS115",2,.115)=""
^DD(2,0,"IX","AODS116",2,.116)=""
^DD(2,0,"IX","AODS117",2,.117)=""
^DD(2,0,"IX","AODS2",2,.01)=""
^DD(2,0,"IX","AODS3",2,.03)=""
^DD(2,0,"IX","AODS4",2,.325)=""
^DD(2,0,"IX","AODS5",2,11500.03)=""
^DD(2,0,"IX","AODS6",2,11500.02)=""
^DD(2,0,"IX","AODS7",2,401.3)=""
^DD(2,0,"IX","AODSR",2.101,11500.02)=""
^DD(2,0,"IX","AOERR",2,.351)=""
^DD(2,0,"IX","APOS",2,.323)=""
^DD(2,0,"IX","APR",2,.104)=""
^DD(2,0,"IX","APSJD",2,.351)=""
^DD(2,0,"IX","APSOD",2,.351)=""
^DD(2,0,"IX","AQ",2,.36295)=""
^DD(2,0,"IX","AR",2,.302)=""
^DD(2,0,"IX","AR",2,991.01)=""
^DD(2,0,"IX","ARCDTH",2,.351)=""
^DD(2,0,"IX","AS",2,401.3)=""
^DD(2,0,"IX","ASADM",2.98,20)=""
^DD(2,0,"IX","ASCN",2,991.05)=""
^DD(2,0,"IX","ASCN2",2,991.05)=""
^DD(2,0,"IX","ASCP",2,.302)=""
^DD(2,0,"IX","ASDCN",2.98,3)=""
^DD(2,0,"IX","ASP1ZIP",2,.257)=""
^DD(2,0,"IX","ASP1ZIP4",2,.2206)=""
^DD(2,0,"IX","ASX",2,.02)=""
^DD(2,0,"IX","AT",2,.305)=""
^DD(2,0,"IX","ATEST",2,.6)=""
^DD(2,0,"IX","ATP",2,.09)=""
^DD(2,0,"IX","ATR",2,.103)=""
^DD(2,0,"IX","ATZIP",2,.1216)=""
^DD(2,0,"IX","ATZIP4",2,.12112)=""
^DD(2,0,"IX","AU",2,.3603)=""
^DD(2,0,"IX","AUFFP",2,1100.01)=""
^DD(2,0,"IX","AV",2,.3602)=""
^DD(2,0,"IX","AVADPT6",2,.09)=""
^DD(2,0,"IX","AVAFC01",2,.01)=""
^DD(2,0,"IX","AVAFC02",2,.02)=""
^DD(2,0,"IX","AVAFC03",2,.03)=""
^DD(2,0,"IX","AVAFC05",2,.05)=""
^DD(2,0,"IX","AVAFC06",2,.06)=""
^DD(2,0,"IX","AVAFC08",2,.08)=""
^DD(2,0,"IX","AVAFC09",2,.09)=""
^DD(2,0,"IX","AVAFC092",2,.092)=""
^DD(2,0,"IX","AVAFC093",2,.093)=""
^DD(2,0,"IX","AVAFC111",2,.111)=""
^DD(2,0,"IX","AVAFC1112",2,.1112)=""
^DD(2,0,"IX","AVAFC112",2,.112)=""
^DD(2,0,"IX","AVAFC113",2,.113)=""
^DD(2,0,"IX","AVAFC114",2,.114)=""
^DD(2,0,"IX","AVAFC115",2,.115)=""
^DD(2,0,"IX","AVAFC117",2,.117)=""
^DD(2,0,"IX","AVAFC131",2,.131)=""
^DD(2,0,"IX","AVAFC132",2,.132)=""
^DD(2,0,"IX","AVAFC1901",2,1901)=""
^DD(2,0,"IX","AVAFC211",2,.211)=""
^DD(2,0,"IX","AVAFC219",2,.219)=""
^DD(2,0,"IX","AVAFC2403",2,.2403)=""
^DD(2,0,"IX","AVAFC301",2,.301)=""
^DD(2,0,"IX","AVAFC302",2,.302)=""
^DD(2,0,"IX","AVAFC31115",2,.31115)=""
^DD(2,0,"IX","AVAFC313",2,.313)=""
^DD(2,0,"IX","AVAFC323",2,.323)=""
^DD(2,0,"IX","AVAFC351",2,.351)=""
^DD(2,0,"IX","AVAFC391",2,391)=""
^DD(2,0,"IX","AVAZIP",2,.2918)=""
^DD(2,0,"IX","AVAZIP4",2,.29013)=""
^DD(2,0,"IX","AXFFP",2,1100.01)=""
^DD(2,0,"IX","AXR",2,.211)=""
^DD(2,0,"IX","AXR1",2,.2191)=""
^DD(2,0,"IX","AXR10",2,.32945)=""
^DD(2,0,"IX","AXR11",2,.12105)=""
^DD(2,0,"IX","AXR12",2,.1211)=""
^DD(2,0,"IX","AXR13",2,.1212)=""
^DD(2,0,"IX","AXR14",2,.213)=""
^DD(2,0,"IX","AXR15",2,.214)=""
^DD(2,0,"IX","AXR16",2,.2193)=""
^DD(2,0,"IX","AXR17",2,.2194)=""
^DD(2,0,"IX","AXR18",2,.252)=""
^DD(2,0,"IX","AXR19",2,.253)=""
^DD(2,0,"IX","AXR2",2,.251)=""
^DD(2,0,"IX","AXR20",2,.3113)=""
^DD(2,0,"IX","AXR21",2,.3114)=""
^DD(2,0,"IX","AXR22",2,.3313)=""
^DD(2,0,"IX","AXR23",2,.3314)=""
^DD(2,0,"IX","AXR24",2,.333)=""
^DD(2,0,"IX","AXR25",2,.334)=""
^DD(2,0,"IX","AXR26",2,.343)=""
^DD(2,0,"IX","AXR27",2,.344)=""
^DD(2,0,"IX","AXR28",2,.361)=""
^DD(2,0,"IX","AXR29",2,.111)=""
^DD(2,0,"IX","AXR3",2,.3111)=""
^DD(2,0,"IX","AXR30",2,.112)=""
^DD(2,0,"IX","AXR31",2,.14105)=""
^DD(2,0,"IX","AXR32",2,.1411)=""
^DD(2,0,"IX","AXR33",2,.1412)=""
^DD(2,0,"IX","AXR34",2,.325)=""
^DD(2,0,"IX","AXR35",2,.3291)=""
^DD(2,0,"IX","AXR36",2,.3296)=""
^DD(2,0,"IX","AXR4",2,.331)=""
^DD(2,0,"IX","AXR5",2,.3311)=""
^DD(2,0,"IX","AXR6",2,.341)=""
^DD(2,0,"IX","AXR7",2,.152)=""
^DD(2,0,"IX","AXR8",2,.153)=""
^DD(2,0,"IX","AXR9",2,.3285)=""
^DD(2,0,"IX","AZIP",2,.116)=""
^DD(2,0,"IX","AZIP4",2,.1112)=""
^DD(2,0,"IX","B",2,.01)=""
^DD(2,0,"IX","B",2.01,.01)=""
^DD(2,0,"IX","BS",2,.09)=""
^DD(2,0,"IX","BS5",2,.01)=""
^DD(2,0,"IX","BS5",2,.09)=""
^DD(2,0,"IX","C",2,.532)=""
^DD(2,0,"IX","CN",2,.1)=""
^DD(2,0,"IX","D",2,.531)=""
^DD(2,0,"IX","DG714",2,.351)=""
^DD(2,0,"IX","E",2,.5296)=""
^DD(2,0,"IX","IVM01",2,.01)=""
^DD(2,0,"IX","IVM02",2,.02)=""
^DD(2,0,"IX","IVM03",2,.03)=""
^DD(2,0,"IX","IVM09",2,.09)=""
^DD(2,0,"IX","IVM111",2,.111)=""
^DD(2,0,"IX","IVM1112",2,.1112)=""
^DD(2,0,"IX","IVM112",2,.112)=""
^DD(2,0,"IX","IVM113",2,.113)=""
^DD(2,0,"IX","IVM114",2,.114)=""
^DD(2,0,"IX","IVM115",2,.115)=""
^DD(2,0,"IX","IVM117",2,.117)=""
^DD(2,0,"IX","IVM131",2,.131)=""
^DD(2,0,"IX","IVM132",2,.132)=""
^DD(2,0,"IX","IVM351",2,.351)=""
^DD(2,0,"IX","LD",2,.107)=""
^DD(2,0,"IX","PID",2.0361,.03)=""
^DD(2,0,"IX","PX09",2,.09)=""
^DD(2,0,"IX","RM",2,.101)=""
^DD(2,0,"IX","SSN",2,.09)=""
^DD(2,0,"IX","VCD",2,.39)=""
^DD(2,0,"IX","ZEC2ZIP",2,.3318)=""
^DD(2,0,"NM","PATIENT")=""
^DD(2,0,"PT",2,.082)=""
^DD(2,0,"PT",2,.3601)=""
^DD(2,0,"PT",15,.01)=""
^DD(2,0,"PT",15,.02)=""
^DD(2,0,"PT",15,999999903)=""
^DD(2,0,"PT",15.4,.01)=""
^DD(2,0,"PT",15.4,.02)=""
^DD(2,0,"PT",26.13,.01)=""
^DD(2,0,"PT",26.21,.01)=""
^DD(2,0,"PT",27.11,.02)=""
^DD(2,0,"PT",27.12,.01)=""
^DD(2,0,"PT",27.14,.03)=""
^DD(2,0,"PT",28.11,.01)=""
^DD(2,0,"PT",29.11,2)=""
^DD(2,0,"PT",38.1,.01)=""
^DD(2,0,"PT",38.5,.01)=""
^DD(2,0,"PT",39.13,.01)=""
^DD(2,0,"PT",39.4,.03)=""
^DD(2,0,"PT",39.6,.02)=""
^DD(2,0,"PT",40.1,.01)=""
^DD(2,0,"PT",40.15,.01)=""
^DD(2,0,"PT",41.1,.01)=""
^DD(2,0,"PT",41.41,.01)=""
^DD(2,0,"PT",41.42,.01)=""
^DD(2,0,"PT",41.43,1)=""
^DD(2,0,"PT",42.51,.01)=""
^DD(2,0,"PT",43,213)=""
^DD(2,0,"PT",43.5,.05)=""
^DD(2,0,"PT",44.003,.01)=""
^DD(2,0,"PT",44.007,.01)=""
^DD(2,0,"PT",45,.01)=""
^DD(2,0,"PT",45.5,1)=""
^DD(2,0,"PT",45.85,.01)=""
^DD(2,0,"PT",45.87,.09)=""
^DD(2,0,"PT",45.9,.01)=""
^DD(2,0,"PT",46.14,.01)=""
^DD(2,0,"PT",50.0731,7)=""
^DD(2,0,"PT",50.801,.01)=""
^DD(2,0,"PT",50.806,.01)=""
^DD(2,0,"PT",52,2)=""
^DD(2,0,"PT",52.11,.01)=""
^DD(2,0,"PT",52.4,1)=""
^DD(2,0,"PT",52.41,1)=""
^DD(2,0,"PT",52.43,9)=""
^DD(2,0,"PT",52.5,.03)=""
^DD(2,0,"PT",52.51,2)=""
^DD(2,0,"PT",52.8,1)=""
^DD(2,0,"PT",52.9001,.01)=""
^DD(2,0,"PT",52.91,.01)=""
^DD(2,0,"PT",53.1,.5)=""
^DD(2,0,"PT",53.401,.01)=""
^DD(2,0,"PT",53.4102,.01)=""
^DD(2,0,"PT",53.43011,.01)=""
^DD(2,0,"PT",53.4401,.01)=""
^DD(2,0,"PT",53.51,.01)=""
^DD(2,0,"PT",53.68,.11)=""
^DD(2,0,"PT",53.69,.12)=""
^DD(2,0,"PT",53.78,.01)=""
^DD(2,0,"PT",53.79,.01)=""
^DD(2,0,"PT",55,.01)=""
^DD(2,0,"PT",55.06,.5)=""
^DD(2,0,"PT",58.81,73)=""
^DD(2,0,"PT",58.85,22)=""
^DD(2,0,"PT",58.86,18)=""
^DD(2,0,"PT",59.9,.02)=""
^DD(2,0,"PT",64.03,2)=""
^DD(2,0,"PT",64.1111,9)=""
^DD(2,0,"PT",65.03,.07)=""
^DD(2,0,"PT",67,2)=""
^DD(2,0,"PT",67,3)=""
^DD(2,0,"PT",69.3,.06)=""
^DD(2,0,"PT",70,.01)=""
^DD(2,0,"PT",70.2,.01)=""
^DD(2,0,"PT",74,2)=""
^DD(2,0,"PT",75.1,.01)=""
^DD(2,0,"PT",79.3,.03)=""
^DD(2,0,"PT",90,.01)=""
^DD(2,0,"PT",99,.01)=""
^DD(2,0,"PT",100,.02)=""
^DD(2,0,"PT",100.2,.01)=""
^DD(2,0,"PT",100.2101,.01)=""
^DD(2,0,"PT",100.99,3.05)=""
^DD(2,0,"PT",100.9903,.01)=""
^DD(2,0,"PT",102.3,3)=""
^DD(2,0,"PT",115,14)=""
^DD(2,0,"PT",115.701,.01)=""
^DD(2,0,"PT",119.01,101)=""
^DD(2,0,"PT",120.5,.02)=""
^DD(2,0,"PT",120.8,.01)=""
^DD(2,0,"PT",120.85,.02)=""
^DD(2,0,"PT",120.86,.01)=""
^DD(2,0,"PT",123,.02)=""
^DD(2,0,"PT",124.3,.02)=""
^DD(2,0,"PT",126,.01)=""
^DD(2,0,"PT",130,.01)=""
^DD(2,0,"PT",133.801,.01)=""
^DD(2,0,"PT",154,.01)=""
^DD(2,0,"PT",154.1,.01)=""
^DD(2,0,"PT",154.991,2)=""
^DD(2,0,"PT",160,.01)=""
^DD(2,0,"PT",161,.01)=""
^DD(2,0,"PT",161.26,.01)=""
^DD(2,0,"PT",161.5,2)=""
^DD(2,0,"PT",161.83,.01)=""
^DD(2,0,"PT",162,.01)=""
^DD(2,0,"PT",162.2,3)=""
^DD(2,0,"PT",162.4,2)=""
^DD(2,0,"PT",162.7,2)=""
^DD(2,0,"PT",162.7,23)=""
^DD(2,0,"PT",183.21,.01)=""
^DD(2,0,"PT",183.31,.01)=""
^DD(2,0,"PT",190,.01)=""
^DD(2,0,"PT",190,9)=""
^DD(2,0,"PT",194.31,.01)=""
^DD(2,0,"PT",213.51,.01)=""
^DD(2,0,"PT",214,.01)=""
^DD(2,0,"PT",214.6,.02)=""
^DD(2,0,"PT",214.7,.02)=""
^DD(2,0,"PT",220,.01)=""
^DD(2,0,"PT",221,3)=""
^DD(2,0,"PT",301.5,.01)=""
^DD(2,0,"PT",301.61,.02)=""
^DD(2,0,"PT",301.62,.01)=""
^DD(2,0,"PT",301.63,.08)=""
^DD(2,0,"PT",301.7,1)=""
^DD(2,0,"PT",340,.01)=""
^DD(2,0,"PT",344.01,.03)=""
^DD(2,0,"PT",348.41,.02)=""
^DD(2,0,"PT",348.43,.01)=""
^DD(2,0,"PT",350,.02)=""
^DD(2,0,"PT",350.9,4.02)=""
^DD(2,0,"PT",351,.02)=""
^DD(2,0,"PT",351.1,.01)=""
^DD(2,0,"PT",351.2,.01)=""
^DD(2,0,"PT",351.5,.02)=""
^DD(2,0,"PT",351.6,.01)=""
^DD(2,0,"PT",351.81,.02)=""
^DD(2,0,"PT",354,.01)=""
^DD(2,0,"PT",354.7,.01)=""
^DD(2,0,"PT",355.3,.1)=""
^DD(2,0,"PT",355.33,60.01)=""
^DD(2,0,"PT",355.5,.02)=""
^DD(2,0,"PT",355.7,.02)=""
^DD(2,0,"PT",355.8,.01)=""
^DD(2,0,"PT",355.81,.01)=""
^DD(2,0,"PT",356,.02)=""
^DD(2,0,"PT",356.2,.05)=""
^DD(2,0,"PT",357.96,.02)=""
^DD(2,0,"PT",359.3,.02)=""
^DD(2,0,"PT",364.2,.07)=""
^DD(2,0,"PT",365,.02)=""
^DD(2,0,"PT",365.1,.02)=""
^DD(2,0,"PT",366.141,.03)=""
^DD(2,0,"PT",366.141,.14)=""
^DD(2,0,"PT",373,.03)=""
^DD(2,0,"PT",375,.03)=""
^DD(2,0,"PT",391.31,1)=""
^DD(2,0,"PT",391.71,.03)=""
^DD(2,0,"PT",391.71,.05)=""
^DD(2,0,"PT",391.91,.01)=""
^DD(2,0,"PT",391.98,.01)=""
^DD(2,0,"PT",392,2)=""
^DD(2,0,"PT",392.2,2)=""
^DD(2,0,"PT",393,.01)=""
^DD(2,0,"PT",394,8)=""
^DD(2,0,"PT",394.4,5)=""
^DD(2,0,"PT",394.61,.03)=""
^DD(2,0,"PT",394.87,10)=""
^DD(2,0,"PT",395.5,.01)=""
^DD(2,0,"PT",395.7,.01)=""
^DD(2,0,"PT",396,.01)=""
^DD(2,0,"PT",396.17,.01)=""
^DD(2,0,"PT",396.2,.01)=""
^DD(2,0,"PT",396.3,.01)=""
^DD(2,0,"PT",399,.02)=""
^DD(2,0,"PT",404.41,.01)=""
^DD(2,0,"PT",404.42,.01)=""
^DD(2,0,"PT",404.471,.02)=""
^DD(2,0,"PT",404.48,.02)=""
^DD(2,0,"PT",405,.03)=""
^DD(2,0,"PT",408.12,.01)=""
^DD(2,0,"PT",408.12,.03)=""
^DD(2,0,"PT",408.22,.01)=""
^DD(2,0,"PT",408.31,.02)=""
^DD(2,0,"PT",408.41,.04)=""
^DD(2,0,"PT",409.3,.01)=""
^DD(2,0,"PT",409.39,.01)=""
^DD(2,0,"PT",409.48,.11)=""
^DD(2,0,"PT",409.5,2)=""
^DD(2,0,"PT",409.55,.02)=""
^DD(2,0,"PT",409.68,.02)=""
^DD(2,0,"PT",409.69,.01)=""
^DD(2,0,"PT",409.74,.02)=""
^DD(2,0,"PT",409.77,.03)=""
^DD(2,0,"PT",430,7)=""
^DD(2,0,"PT",440.2,.01)=""
^DD(2,0,"PT",445.3,129)=""
^DD(2,0,"PT",446.1,2)=""
^DD(2,0,"PT",470,.01)=""
^DD(2,0,"PT",550.215,.03)=""
^DD(2,0,"PT",600.71,1)=""
^DD(2,0,"PT",601.2,.01)=""
^DD(2,0,"PT",601.4,.01)=""
^DD(2,0,"PT",601.84,1)=""
^DD(2,0,"PT",603.01,1)=""
^DD(2,0,"PT",604,.02)=""
^DD(2,0,"PT",615,.01)=""
^DD(2,0,"PT",615.2,.02)=""
^DD(2,0,"PT",617.01,.01)=""
^DD(2,0,"PT",618.04,.01)=""
^DD(2,0,"PT",618.4,1)=""
^DD(2,0,"PT",627.8,.02)=""
^DD(2,0,"PT",631,.01)=""
^DD(2,0,"PT",632,.01)=""
^DD(2,0,"PT",634.1,.01)=""
^DD(2,0,"PT",634.2,.01)=""
^DD(2,0,"PT",634.3,.01)=""
^DD(2,0,"PT",634.5,.01)=""
^DD(2,0,"PT",650,7)=""
^DD(2,0,"PT",655,.01)=""
^DD(2,0,"PT",655.2,.01)=""
^DD(2,0,"PT",665,.01)=""
^DD(2,0,"PT",665.1,1)=""
^DD(2,0,"PT",665.4,.01)=""
^DD(2,0,"PT",665.72319,.01)=""
^DD(2,0,"PT",668,1)=""
^DD(2,0,"PT",690,.01)=""
^DD(2,0,"PT",702,.01)=""
^DD(2,0,"PT",703.1,.02)=""
^DD(2,0,"PT",704.201,.01)=""
^DD(2,0,"PT",704.202,.02)=""
^DD(2,0,"PT",705,2)=""
^DD(2,0,"PT",712,3.4)=""
^DD(2,0,"PT",713.1,.01)=""
^DD(2,0,"PT",714.5,.01)=""
^DD(2,0,"PT",721,1)=""
^DD(2,0,"PT",727.802,4)=""
^DD(2,0,"PT",727.804,4)=""
^DD(2,0,"PT",727.805,4)=""
^DD(2,0,"PT",727.806,4)=""
^DD(2,0,"PT",727.808,4)=""
^DD(2,0,"PT",727.809,4)=""
^DD(2,0,"PT",727.81,4)=""
^DD(2,0,"PT",727.811,4)=""
^DD(2,0,"PT",727.812,4)=""
^DD(2,0,"PT",727.814,4)=""
^DD(2,0,"PT",727.815,4)=""
^DD(2,0,"PT",727.816,4)=""
^DD(2,0,"PT",727.817,4)=""
^DD(2,0,"PT",727.818,4)=""
^DD(2,0,"PT",727.819,4)=""
^DD(2,0,"PT",727.82,4)=""
^DD(2,0,"PT",727.821,4)=""
^DD(2,0,"PT",727.822,4)=""
^DD(2,0,"PT",727.823,4)=""
^DD(2,0,"PT",727.824,4)=""
^DD(2,0,"PT",727.825,4)=""
^DD(2,0,"PT",727.826,4)=""
^DD(2,0,"PT",727.827,4)=""
^DD(2,0,"PT",727.829,4)=""
^DD(2,0,"PT",727.832,4)=""
^DD(2,0,"PT",728.113,1)=""
^DD(2,0,"PT",728.904,1)=""
^DD(2,0,"PT",741,.01)=""
^DD(2,0,"PT",742,.01)=""
^DD(2,0,"PT",743.1,.01)=""
^DD(2,0,"PT",745.1,2)=""
^DD(2,0,"PT",783,.03)=""
^DD(2,0,"PT",790,.01)=""
^DD(2,0,"PT",790.08,.02)=""
^DD(2,0,"PT",798.3,.01)=""
^DD(2,0,"PT",798.4,.01)=""
^DD(2,0,"PT",798.74,3)=""
^DD(2,0,"PT",801.55,.01)=""
^DD(2,0,"PT",810.16,.01)=""
^DD(2,0,"PT",810.31,.01)=""
^DD(2,0,"PT",810.3316,.01)=""
^DD(2,0,"PT",810.53,.01)=""
^DD(2,0,"PT",815,201)=""
^DD(2,0,"PT",860.1,.01)=""
^DD(2,0,"PT",984.9,.04)=""
^DD(2,0,"PT",991.12,3)=""
^DD(2,0,"PT",991.8,18)=""
^DD(2,0,"PT",991.8,30)=""
^DD(2,0,"PT",991.8,103)=""
^DD(2,0,"PT",991.8,108)=""
^DD(2,0,"PT",991.8,113)=""
^DD(2,0,"PT",991.8,118)=""
^DD(2,0,"PT",1020.2,.01)=""
^DD(2,0,"PT",2005,5)=""
^DD(2,0,"PT",2005.1,5)=""
^DD(2,0,"PT",2006.1867,.01)=""
^DD(2,0,"PT",2006.5,2)=""
^DD(2,0,"PT",2006.552,.001)=""
^DD(2,0,"PT",2006.562,2)=""
^DD(2,0,"PT",2006.563,97)=""
^DD(2,0,"PT",2006.565,15)=""
^DD(2,0,"PT",2006.82,5)=""
^DD(2,0,"PT",2006.95,7)=""
^DD(2,0,"PT",2040,.01)=""
^DD(2,0,"PT",2048,.01)=""
^DD(2,0,"PT",8925.5,1.03)=""
^DD(2,0,"PT",8925.5,1.04)=""
^DD(2,0,"PT",8992.01,3.02)=""
^DD(2,0,"PT",8992.1,.04)=""
^DD(2,0,"PT",509850.2,.01)=""
^DD(2,0,"PT",509850.9,.02)=""
^DD(2,0,"PT",791810,.04)=""
^DD(2,0,"PT",791814,.01)=""
^DD(2,0,"PT",9000001,.01)=""
^DD(2,0,"PT",9002313.31,903)=""
^DD(2,0,"PT",9002313.57,5)=""
^DD(2,0,"PT",9002313.59,5)=""
^DD(2,0,"PT",9009032.4,.02)=""
^DD(2,0,"VR")="5.3"
^DD(2,0,"W")="W ?44,$P(^(0),U,9)"
^DD(2,.01,0)="NAME^RFXa^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X"
^DD(2,.01,.1)=""
^DD(2,.01,1,0)="^.1"
^DD(2,.01,1,1,0)="2^B"
^DD(2,.01,1,1,1)="S ^DPT(""B"",$E(X,1,30),DA)="""""
^DD(2,.01,1,1,2)="K ^DPT(""B"",$E(X,1,30),DA)"
^DD(2,.01,1,2,0)="2^BS5^MUMPS"
^DD(2,.01,1,2,1)="Q:$P(^DPT(DA,0),U,9)']""""  S ^DPT(""BS5"",$E(X,1)_$E($P(^(0),U,9),6,9),DA)="""""
^DD(2,.01,1,2,2)="Q:$P(^DPT(DA,0),U,9)']""""  K ^DPT(""BS5"",$E(X,1)_$E($P(^(0),U,9),6,9),DA)"
^DD(2,.01,1,3,0)="2^AENR01^MUMPS"
^DD(2,.01,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.01,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.01,1,3,3)="DO NOT DELETE"
^DD(2,.01,1,3,"%D",0)="^^2^2^2971007^^^^"
^DD(2,.01,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.01,1,3,"%D",2,0)="enrollment. "
^DD(2,.01,1,3,"DT")="2971007"
^DD(2,.01,1,4,0)="2^AODS2^MUMPS"
^DD(2,.01,1,4,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.01,1,4,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.01,1,5,0)="2^ABUL^MUMPS"
^DD(2,.01,1,5,1)="K DGNEWVAL Q"
^DD(2,.01,1,5,2)="S DFN=DA D ^DGPATN K DGNEWVAL Q"
^DD(2,.01,1,5,"%D",0)="^^2^2^2950110^"
^DD(2,.01,1,5,"%D",1,0)="This cross-reference will generate a mail message when a patient is deleted"
^DD(2,.01,1,5,"%D",2,0)="or the patient's name is changed."
^DD(2,.01,1,5,"DT")="2950110"
^DD(2,.01,1,301,0)="2^IVM01^MUMPS"
^DD(2,.01,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.01,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.01,1,301,"%D",0)="^^5^5^2930513^"
^DD(2,.01,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.01,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.01,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.01,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.01,1,301,"DT")="2930513"
^DD(2,.01,1,991,0)="2^AVAFC01^MUMPS"
^DD(2,.01,1,991,1)="I '$D(DFN),($T(AVAFC^VAFCDD01)'="""") S VAFCF="".01;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.01,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".01;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.01,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.01,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.01,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.01,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.01,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.01,1,991,"%D",5,0)=" "
^DD(2,.01,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.01,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.01,1,991,"%D",8,0)="process."
^DD(2,.01,1,991,"%D",9,0)=" "
^DD(2,.01,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.01,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.01,1,991,"%D",12,0)=" "
^DD(2,.01,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.01,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.01,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.01,1,991,"DT")="2970825"
^DD(2,.01,1,992,0)="2^AMPIMIS^MUMPS"
^DD(2,.01,1,992,1)="I $T(SET^VAFCMIS)'=""""&('$D(VAFCNO)) D SET^VAFCMIS(DA)"
^DD(2,.01,1,992,2)="I $T(KILL^VAFCMIS)'=""""&('$D(VAFCNO)) D KILL^VAFCMIS(DA)"
^DD(2,.01,1,992,"%D",0)="^^4^4^2980114^^^^"
^DD(2,.01,1,992,"%D",1,0)="Temporary cross reference that lets the MPI Missing ICN job know that a"
^DD(2,.01,1,992,"%D",2,0)="patient was added to the Patient file, via another package other than"
^DD(2,.01,1,992,"%D",3,0)="PIMS, and needs to get an ICN.  Once the ICN is assigned (local or"
^DD(2,.01,1,992,"%D",4,0)="national) the cross reference is killed."
^DD(2,.01,1,992,"DT")="3030603"
^DD(2,.01,1,993,0)="2^ADGRU01^MUMPS"
^DD(2,.01,1,993,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.01,1,993,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.01,1,993,"%D",0)="^^9^9^3000208^"
^DD(2,.01,1,993,"%D",1,0)="This cross reference is used to remember that changes were made to a"
^DD(2,.01,1,993,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.01,1,993,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create an"
^DD(2,.01,1,993,"%D",4,0)="entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.01,1,993,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.01,1,993,"%D",6,0)="interface."
^DD(2,.01,1,993,"%D",7,0)=" "
^DD(2,.01,1,993,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is not"
^DD(2,.01,1,993,"%D",9,0)="to be executed as part of a re-indexing."
^DD(2,.01,1,993,"DT")="3000208"
^DD(2,.01,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."
^DD(2,.01,7.5)="D INPUT^DGRPDD1"
^DD(2,.01,20,0)="^.3LA^1^1"
^DD(2,.01,20,1,0)="DEMOG^"
^DD(2,.01,21,0)="^^4^4^2990208^^^^"
^DD(2,.01,21,1,0)="Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.01,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"
^DD(2,.01,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.01,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.01,"AUDIT")="y"
^DD(2,.01,"AX")="I 1"
^DD(2,.01,"DEL",100,0)="I $D(^OR(100,""ACT"",DA_"";DPT("")) D EN^DDIOL(""Patient orders must be deleted first."","""",""!?0"")"
^DD(2,.01,"DEL",401,0)="I $O(^DGPM(""C"",DA,0)) W *7,!,""Delete Patient Movements First"",!"
^DD(2,.01,"DEL",1900,0)="I $N(^DPT(DA,""S"",DT))+1 W *7,!,""APPOINTMENT(S) PENDING!"""
^DD(2,.01,"DEL",3000,0)="I $N(^PS(55,DA,""P"",0))+1 W *7,!,""PATIENT HAS OUTPATIENT PRESCRIPTIONS"""
^DD(2,.01,"DEL",999999,0)="D DEL^DPTLK2"
^DD(2,.01,"DT")="3060923"
^DD(2,.02,0)="SEX^RSa^M:MALE;F:FEMALE;^0;2^Q"
^DD(2,.02,1,0)="^.1^^-1"
^DD(2,.02,1,1,0)="2^ASX"
^DD(2,.02,1,1,1)="S ^DPT(""ASX"",$E(X,1,30),DA)="""""
^DD(2,.02,1,1,2)="K ^DPT(""ASX"",$E(X,1,30),DA)"
^DD(2,.02,1,2,0)="2^AENR02^MUMPS"
^DD(2,.02,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.02,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.02,1,2,3)="DO NOT DELETE"
^DD(2,.02,1,2,"%D",0)="^^2^2^2971007^^^"
^DD(2,.02,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.02,1,2,"%D",2,0)="enrollment. "
^DD(2,.02,1,2,"DT")="2971007"
^DD(2,.02,1,301,0)="2^IVM02^MUMPS"
^DD(2,.02,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.02,1,301,2)="S IVMX=X,IVMKILL=2,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL"
^DD(2,.02,1,301,"%D",0)="^^8^8^2991027^"
^DD(2,.02,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.02,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.02,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.02,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.02,1,301,"%D",5,0)=" "
^DD(2,.02,1,301,"%D",6,0)="Also, if this field is edited, this cross-reference will check to see if the"
^DD(2,.02,1,301,"%D",7,0)="patient requires a financial query to be sent to the IVM Center (Data"
^DD(2,.02,1,301,"%D",8,0)="Collection Division (DCD)."
^DD(2,.02,1,301,"DT")="2991027"
^DD(2,.02,1,991,0)="2^AVAFC02^MUMPS"
^DD(2,.02,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".02;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.02,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".02;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.02,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.02,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.02,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.02,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.02,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.02,1,991,"%D",5,0)=" "
^DD(2,.02,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.02,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.02,1,991,"%D",8,0)="process."
^DD(2,.02,1,991,"%D",9,0)=" "
^DD(2,.02,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.02,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.02,1,991,"%D",12,0)="  "
^DD(2,.02,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.02,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.02,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.02,1,991,"DT")="2970825"
^DD(2,.02,1,992,0)="2^ADGRU02^MUMPS"
^DD(2,.02,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.02,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.02,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.02,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.02,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.02,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.02,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.02,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.02,1,992,"%D",6,0)="interface."
^DD(2,.02,1,992,"%D",7,0)=" "
^DD(2,.02,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.02,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.02,1,992,"DT")="2990920"
^DD(2,.02,3)="Enter 'M' for MALE, or 'F' for FEMALE."
^DD(2,.02,20,0)="^.3LA^1^1"
^DD(2,.02,20,1,0)="DEMOG^"
^DD(2,.02,21,0)="^^1^1^2920721^^^"
^DD(2,.02,21,1,0)="Enter 'M' if this applicant is a male, or 'F' if female."
^DD(2,.02,"AUDIT")="y"
^DD(2,.02,"DT")="2990105"
^DD(2,.03,0)="DATE OF BIRTH^RDXOa^^0;3^S %DT=""EP"" D ^%DT S X=Y K:1701231>X!(DT<X) X"
^DD(2,.03,.1)="DOB"
^DD(2,.03,1,0)="^.1^^-1"
^DD(2,.03,1,1,0)="2^ADOB"
^DD(2,.03,1,1,1)="S ^DPT(""ADOB"",$E(X,1,30),DA)="""""
^DD(2,.03,1,1,2)="K ^DPT(""ADOB"",$E(X,1,30),DA)"
^DD(2,.03,1,2,0)="^^TRIGGER^2^.083"
^DD(2,.03,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(2,.03,1,2,1.4)"
^DD(2,.03,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U"" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(0)=$P(DIH,U,1,19)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.083 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.03,1,2,2)="Q"
^DD(2,.03,1,2,"CREATE VALUE")="""1"""
^DD(2,.03,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.03,1,2,"FIELD")="#.083"
^DD(2,.03,1,3,0)="2^AODS3^MUMPS"
^DD(2,.03,1,3,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.03,1,3,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.03,1,4,0)="2^AENR03^MUMPS"
^DD(2,.03,1,4,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.03,1,4,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.03,1,4,3)="DO NOT DELETE"
^DD(2,.03,1,4,"%D",0)="^^2^2^2971007^^^"
^DD(2,.03,1,4,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.03,1,4,"%D",2,0)="enrollment. "
^DD(2,.03,1,4,"DT")="2971007"
^DD(2,.03,1,301,0)="2^IVM03^MUMPS"
^DD(2,.03,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.03,1,301,2)="S IVMX=X,IVMKILL=3,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX,IVMKILL"
^DD(2,.03,1,301,"%D",0)="^^8^8^2991027^"
^DD(2,.03,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.03,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.03,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.03,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.03,1,301,"%D",5,0)=" "
^DD(2,.03,1,301,"%D",6,0)="Also, if this field is edited, this cross-reference will check to see if the"
^DD(2,.03,1,301,"%D",7,0)="patient requires a financial query to be sent to the IVM Center (Data"
^DD(2,.03,1,301,"%D",8,0)="Collection Division (DCD)."
^DD(2,.03,1,301,"DT")="2991027"
^DD(2,.03,1,991,0)="2^AVAFC03^MUMPS"
^DD(2,.03,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".03;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.03,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".03;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.03,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.03,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.03,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.03,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.03,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.03,1,991,"%D",5,0)=" "
^DD(2,.03,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.03,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.03,1,991,"%D",8,0)="process."
^DD(2,.03,1,991,"%D",9,0)=" "
^DD(2,.03,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.03,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.03,1,991,"%D",12,0)="  "
^DD(2,.03,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.03,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.03,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.03,1,991,"DT")="2980501"
^DD(2,.03,1,992,0)="2^ADGRU03^MUMPS"
^DD(2,.03,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.03,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.03,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.03,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.03,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.03,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.03,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.03,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.03,1,992,"%D",6,0)="interface."
^DD(2,.03,1,992,"%D",7,0)=" "
^DD(2,.03,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.03,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.03,1,992,"DT")="2990920"
^DD(2,.03,2)="S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X"
^DD(2,.03,2.1)="NUMDATE4(DOB)"
^DD(2,.03,3)="Enter the patients DATE OF BIRTH which must be later than 12/31/1870."
^DD(2,.03,20,0)="^.3LA^1^1"
^DD(2,.03,20,1,0)="DEMOG^"
^DD(2,.03,21,0)="^^2^2^2990205^^^^"
^DD(2,.03,21,1,0)="Enter the applicant's date of birth between December 31, 1870 and today's"
^DD(2,.03,21,2,0)="date."
^DD(2,.03,"AUDIT")="y"
^DD(2,.03,"DT")="3021116"
^DD(2,.033,0)="AGE^CJ3X,0^^ ; ^X ^DD(2,.033,9.5) S X=$E(Y(2,.033,15),Y(2,.033,16),X) S Y=X,X=Y(2,.033,13),X=X<Y,Y=X,X=Y(2,.033,8),X=X-Y"
^DD(2,.033,3)="Computed field which determines patients age based on DOB and todays date."
^DD(2,.033,9)="^"
^DD(2,.033,9.01)="2^.03"
^DD(2,.033,9.1)="$E(TODAY,1,3)-$E(INTERNAL(DOB),1,3)-($E(TODAY,4,7)<$E(INTERNAL(DOB),4,7))"
^DD(2,.033,9.2)="S Y(2,.033,5)=$S($D(^DPT(D0,0)):^(0),1:""""),X=$S($G(^DPT(D0,.35)):+^(.35),1:DT) S X=X,Y(2,.033,1)=X S X=1,Y(2,.033,2)=X S X=3,X=$E(Y(2,.033,1),Y(2,.033,2),X),Y(2,.033,3)=X,Y(2,.033,4)=X"
^DD(2,.033,9.3)="X ^DD(2,.033,9.2) S X=$P(Y(2,.033,5),U,3),X=X S X=X,Y(2,.033,6)=X S X=1,Y(2,.033,7)=X S X=3,X=$E(Y(2,.033,6),Y(2,.033,7),X) S Y=X,X=Y(2,.033,3),X=X-Y"
^DD(2,.033,9.4)="X ^DD(2,.033,9.3) S Y(2,.033,8)=X,Y(2,.033,9)=X,Y(2,.033,10)=X,X=$S($G(^DPT(D0,.35)):+^(.35),1:DT) S X=X,Y(2,.033,11)=X S X=4,Y(2,.033,12)=X S X=7,X=$E(Y(2,.033,11),Y(2,.033,12),X)"
^DD(2,.033,9.5)="X ^DD(2,.033,9.4) S Y(2,.033,13)=X,Y(2,.033,14)=X S X=$P(Y(2,.033,5),U,3),X=X S X=X,Y(2,.033,15)=X S X=4,Y(2,.033,16)=X S X=7"
^DD(2,.033,21,0)="^^3^3^2980306^^^^"
^DD(2,.033,21,1,0)="A computer field which, based on today's date (or the patient's date "
^DD(2,.033,21,2,0)="of death, if applicable) and the patient's date of birth, will arrive "
^DD(2,.033,21,3,0)="at his/her age."
^DD(2,.033,"DT")="2980306"
^DD(2,.05,0)="MARITAL STATUS^RP11'a^DIC(11,^0;5^Q"
^DD(2,.05,1,0)="^.1"
^DD(2,.05,1,991,0)="2^AVAFC05^MUMPS"
^DD(2,.05,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".05;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.05,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".05;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.05,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.05,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.05,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.05,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.05,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.05,1,991,"%D",5,0)=" "
^DD(2,.05,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.05,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.05,1,991,"%D",8,0)="process."
^DD(2,.05,1,991,"%D",9,0)=" "
^DD(2,.05,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.05,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.05,1,991,"%D",12,0)="  "
^DD(2,.05,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.05,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.05,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.05,1,991,"DT")="2970825"
^DD(2,.05,1,992,0)="2^ADGRU05^MUMPS"
^DD(2,.05,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.05,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.05,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.05,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.05,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.05,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.05,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.05,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.05,1,992,"%D",6,0)="interface."
^DD(2,.05,1,992,"%D",7,0)=" "
^DD(2,.05,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.05,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.05,1,992,"DT")="2990920"
^DD(2,.05,1,993,0)="2^AENR05^MUMPS"
^DD(2,.05,1,993,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.05,1,993,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.05,1,993,3)=" DO NOT DELETE"
^DD(2,.05,1,993,"%D",0)="^.101^2^2^3050609^^^^"
^DD(2,.05,1,993,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.05,1,993,"%D",2,0)="enrollment."
^DD(2,.05,1,993,"DT")="3050609"
^DD(2,.05,3)="Select from the available listing this patients current marital status."
^DD(2,.05,20,0)="^.3LA^1^1"
^DD(2,.05,20,1,0)="DEMOG^"
^DD(2,.05,21,0)="^^2^2^2870403^^^"
^DD(2,.05,21,1,0)="Select from the available listing this applicant's current"
^DD(2,.05,21,2,0)="marital status."
^DD(2,.05,"AUDIT")="y"
^DD(2,.05,"DT")="3060802"
^DD(2,.06,0)="RACE^P10'IX^DIC(10,^0;6^K X D EN^DDIOL(""** THIS FIELD IS FOR HISTORICAL PURPOSES ONLY - ENTRY OF DATA NOT ALLOWED **"",,""!"")"
^DD(2,.06,1,0)="^.1"
^DD(2,.06,1,991,0)="2^AVAFC06^MUMPS"
^DD(2,.06,1,991,1)="D:($T(AVAFC^VAFCDD01)'="""") AVAFC^VAFCDD01(DA)"
^DD(2,.06,1,991,2)="D:($T(AVAFC^VAFCDD01)'="""") AVAFC^VAFCDD01(DA)"
^DD(2,.06,1,991,"%D",0)="^^11^11^2990920^^"
^DD(2,.06,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.06,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.06,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.06,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.06,1,991,"%D",5,0)=" "
^DD(2,.06,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.06,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.06,1,991,"%D",8,0)="process."
^DD(2,.06,1,991,"%D",9,0)=" "
^DD(2,.06,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.06,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.06,1,991,"DT")="2970609"
^DD(2,.06,1,992,0)="2^ADGRU06^MUMPS"
^DD(2,.06,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.06,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.06,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.06,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.06,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.06,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.06,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.06,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.06,1,992,"%D",6,0)="interface."
^DD(2,.06,1,992,"%D",7,0)=" "
^DD(2,.06,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.06,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.06,1,992,"DT")="2990920"
^DD(2,.06,3)="This field is for historical purposes only.  Please do not enter data into it."
^DD(2,.06,20,0)="^.3LA^1^1"
^DD(2,.06,20,1,0)="DEMOG^"
^DD(2,.06,21,0)="^.001^2^2^3030224^^^"
^DD(2,.06,21,1,0)="This field is no longer being populated and the values that are on file"
^DD(2,.06,21,2,0)="were collected prior to installation of patch DG*5.3*415."
^DD(2,.06,"DT")="3030311"
^DD(2,.07,0)="OCCUPATION^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(2,.07,1,0)="^.1"
^DD(2,.07,1,992,0)="2^ADGRU07^MUMPS"
^DD(2,.07,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.07,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.07,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.07,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.07,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.07,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.07,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.07,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.07,1,992,"%D",6,0)="interface."
^DD(2,.07,1,992,"%D",7,0)=" "
^DD(2,.07,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.07,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.07,1,992,"DT")="2990921"
^DD(2,.07,3)="Enter the patient's occupation [1-30 characters]."
^DD(2,.07,20,0)="^.3LA^1^1"
^DD(2,.07,20,1,0)="EM1"
^DD(2,.07,21,0)="^^2^2^2920604^^^"
^DD(2,.07,21,1,0)="If applicable, enter this applicant's current occupation"
^DD(2,.07,21,2,0)="[1-30 characters]."
^DD(2,.07,"DT")="2990921"
^DD(2,.08,0)="RELIGIOUS PREFERENCE^P13'a^DIC(13,^0;8^Q"
^DD(2,.08,.1)="RELIGION"
^DD(2,.08,1,0)="^.1"
^DD(2,.08,1,991,0)="2^AVAFC08^MUMPS"
^DD(2,.08,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".08;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.08,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".08;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.08,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.08,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.08,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.08,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.08,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.08,1,991,"%D",5,0)=" "
^DD(2,.08,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.08,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.08,1,991,"%D",8,0)="process."
^DD(2,.08,1,991,"%D",9,0)=" "
^DD(2,.08,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.08,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.08,1,991,"%D",12,0)="  "
^DD(2,.08,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.08,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.08,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.08,1,991,"DT")="2970825"
^DD(2,.08,1,992,0)="2^ADGRU08^MUMPS"
^DD(2,.08,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.08,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.08,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.08,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.08,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.08,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.08,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.08,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.08,1,992,"%D",6,0)="interface."
^DD(2,.08,1,992,"%D",7,0)=" "
^DD(2,.08,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.08,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.08,1,992,"DT")="2990920"
^DD(2,.08,3)="Select from the available list this patients religious preference."
^DD(2,.08,20,0)="^.3LA^1^1"
^DD(2,.08,20,1,0)="DEMOG"
^DD(2,.08,21,0)="^^2^2^2861117^^"
^DD(2,.08,21,1,0)="Select from the available listing the religious preference of this"
^DD(2,.08,21,2,0)="applicant."
^DD(2,.08,"AUDIT")="y"
^DD(2,.08,"DT")="2970825"
^DD(2,.081,0)="DUPLICATE STATUS^S^0:NO UNRESOLVED DUPLICATES;1:CHECK DUPLICATE RECORDS FILE;^0;18^Q"
^DD(2,.081,21,0)="^^4^4^2930127^^"
^DD(2,.081,21,1,0)="This field is currently not being utilized.  It will be active when"
^DD(2,.081,21,2,0)="Patient Merge/Purge options are available to the user.  Duplicate"
^DD(2,.081,21,3,0)="Status field will be defined at that time."
^DD(2,.081,21,4,0)="|"
^DD(2,.081,"DT")="2870325"
^DD(2,.082,0)="PATIENT MERGED TO^P2'^DPT(^0;19^Q"
^DD(2,.082,21,0)="^^4^4^2930127^^"
^DD(2,.082,21,1,0)="This field is currently not being utilized.  It will be active when"
^DD(2,.082,21,2,0)="Patient Merge/Purge options are available to the user.  Patient Merged"
^DD(2,.082,21,3,0)="To: field will be defined at that time."
^DD(2,.082,21,4,0)="|"
^DD(2,.082,"DT")="2870325"
^DD(2,.083,0)="CHECK FOR DUPLICATE^S^1:YES;^0;20^Q"
^DD(2,.083,1,0)="^.1"
^DD(2,.083,1,1,0)="2^ANEW^MUMPS"
^DD(2,.083,1,1,1)="S ^DPT(""ANEW"",DA)="""""
^DD(2,.083,1,1,2)="K ^DPT(""ANEW"",DA)"
^DD(2,.083,5,1,0)="2^.03^2"
^DD(2,.083,5,2,0)="2^.09^2"
^DD(2,.083,21,0)="^^4^4^2930127^^"
^DD(2,.083,21,1,0)="This field is currently not being utilized.  It will be active when"
^DD(2,.083,21,2,0)="Patient Merge/Purge options are available to the user.  Check for"
^DD(2,.083,21,3,0)="Duplicate field will be defined at that time."
^DD(2,.083,21,4,0)="|"
^DD(2,.083,"DT")="2870325"
^DD(2,.09,0)="SOCIAL SECURITY NUMBER^RFXa^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) S:'$D(DPTX) DFN=DA D SSN^DGINP Q  I $L(X)>10"
^DD(2,.09,.1)="SSN"
^DD(2,.09,1,0)="^.1"
^DD(2,.09,1,1,0)="2^BS^MUMPS"
^DD(2,.09,1,1,1)="S ^DPT(""BS"",$E(X,6,9),DA)="""""
^DD(2,.09,1,1,2)="K:$E(X,6,9)'="""" ^DPT(""BS"",$E(X,6,9),DA)"
^DD(2,.09,1,2,0)="^^TRIGGER^2^.083"
^DD(2,.09,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(2,.09,1,2,1.4)"
^DD(2,.09,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U"" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(0)=$P(DIH,U,1,19)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.083 D ^DICR"
^DD(2,.09,1,2,2)="Q"
^DD(2,.09,1,2,"CREATE VALUE")="""1"""
^DD(2,.09,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.09,1,2,"FIELD")="#.083"
^DD(2,.09,1,3,0)="2^BS5^MUMPS"
^DD(2,.09,1,3,1)="S ^DPT(""BS5"",$E(^DPT(DA,0),1)_$E(X,6,9),DA)="""""
^DD(2,.09,1,3,2)="K ^DPT(""BS5"",$E(^DPT(DA,0),1)_$E(X,6,9),DA)"
^DD(2,.09,1,4,0)="2^AODS1^MUMPS"
^DD(2,.09,1,4,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.09,1,4,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.09,1,5,0)="2^ATP^MUMPS"
^DD(2,.09,1,5,1)="I $E(X,1,5)=""00000"" D SET^DGREGDD1(DA,.6,0,21,1)"
^DD(2,.09,1,5,2)="D KILL^DGREGDD1(DA,.6,0,21,0)"
^DD(2,.09,1,5,"%D",0)="^^2^2^2951026^^^^"
^DD(2,.09,1,5,"%D",1,0)="This cross reference is used to indentify test patients. Test patients are"
^DD(2,.09,1,5,"%D",2,0)="designated by five leading zeros in the SSN."
^DD(2,.09,1,5,"DT")="2951026"
^DD(2,.09,1,6,0)="2^AENR09^MUMPS"
^DD(2,.09,1,6,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.09,1,6,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.09,1,6,3)="DO NOT DELETE"
^DD(2,.09,1,6,"%D",0)="^^3^3^2971007^^^"
^DD(2,.09,1,6,"%D",1,0)=" "
^DD(2,.09,1,6,"%D",2,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.09,1,6,"%D",3,0)="enrollment. "
^DD(2,.09,1,6,"DT")="2971007"
^DD(2,.09,1,7,0)="2^SSN"
^DD(2,.09,1,7,1)="S ^DPT(""SSN"",$E(X,1,30),DA)="""""
^DD(2,.09,1,7,2)="K ^DPT(""SSN"",$E(X,1,30),DA)"
^DD(2,.09,1,8,0)="2^AVADPT6^MUMPS"
^DD(2,.09,1,8,1)="S VADFN=DA D SET^VADPT6 K VADFN"
^DD(2,.09,1,8,2)="S VADFN=DA D KILL^VADPT6 K VADFN"
^DD(2,.09,1,9,0)="2^AD^MUMPS"
^DD(2,.09,1,9,1)="S PPP=X,X=""PPPFMX"" X ^%ZOSF(""TEST"") D:$T SNSSN^PPPFMX S X=PPP K PPP"
^DD(2,.09,1,9,2)="S PPP=X,X=""PPPFMX"" X ^%ZOSF(""TEST"") D:$T KNSSN^PPPFMX S X=PPP K PPP"
^DD(2,.09,1,9,"%D",0)="^.101^2^2^3010423^^"
^DD(2,.09,1,9,"%D",1,0)="This cross-reference is used to add a new SSN to the Prescription"
^DD(2,.09,1,9,"%D",2,0)="Practices Files when a new patient is added to the patient file."
^DD(2,.09,1,9,"DT")="2920611"
^DD(2,.09,1,10,0)="^^TRIGGER^2^.0906"
^DD(2,.09,1,10,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'[""P"" I X S X=DIV S Y(1)=$S($D(^DPT(D0,""SSN"")):^(""SSN""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,.09,1,10,1.4)"
^DD(2,.09,1,10,1.4)="S DIH=$G(^DPT(DIV(0),""SSN"")),DIV=X S $P(^(""SSN""),U,1)=DIV,DIH=2,DIG=.0906 D ^DICR"
^DD(2,.09,1,10,2)="Q"
^DD(2,.09,1,10,"%D",0)="^.101^1^1^3060202^^^^"
^DD(2,.09,1,10,"%D",1,0)="Pseudo SSN Reason will have a value only if SSN is a Pseudo SSN. "
^DD(2,.09,1,10,"CREATE CONDITION")="#.09'[""P"""
^DD(2,.09,1,10,"CREATE VALUE")="@"
^DD(2,.09,1,10,"DELETE VALUE")="NO EFFECT"
^DD(2,.09,1,10,"DT")="3051003"
^DD(2,.09,1,10,"FIELD")="PSEUDO SSN REAS"
^DD(2,.09,1,301,0)="2^IVM09^MUMPS"
^DD(2,.09,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.09,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.09,1,301,"%D",0)="^.101^4^4^3010423^^"
^DD(2,.09,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.09,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.09,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.09,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.09,1,301,"DT")="2930605"
^DD(2,.09,1,800,0)="2^PX09^MUMPS"
^DD(2,.09,1,800,1)="S PX=X,X=""PXXDPT"" X ^%ZOSF(""TEST"") D:$T SETSSN^PXXDPT S X=PX K PX"
^DD(2,.09,1,800,2)="S PX=X,X=""PXXDPT"" X ^%ZOSF(""TEST"") D:$T KILLSSN^PXXDPT S X=PX K PX"
^DD(2,.09,1,800,"%D",0)="^^2^2^2960624^^^"
^DD(2,.09,1,800,"%D",1,0)="This cross-reference is used to add a new SSN to the 9000001 IHS Patient"
^DD(2,.09,1,800,"%D",2,0)="File when a new patient is added to the Patient File."
^DD(2,.09,1,800,"DT")="2930908"
^DD(2,.09,1,991,0)="2^AVAFC09^MUMPS"
^DD(2,.09,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".09;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.09,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".09;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.09,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.09,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.09,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.09,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.09,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.09,1,991,"%D",5,0)=" "
^DD(2,.09,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.09,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.09,1,991,"%D",8,0)="process."
^DD(2,.09,1,991,"%D",9,0)=" "
^DD(2,.09,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.09,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.09,1,991,"%D",12,0)="  "
^DD(2,.09,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.09,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.09,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.09,1,991,"DT")="2970825"
^DD(2,.09,1,992,0)="2^ADGRU09^MUMPS"
^DD(2,.09,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.09,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.09,1,992,"%D",0)="^^9^9^3000202^^^^"
^DD(2,.09,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.09,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.09,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.09,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.09,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.09,1,992,"%D",6,0)="interface."
^DD(2,.09,1,992,"%D",7,0)=" "
^DD(2,.09,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.09,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.09,1,992,"DT")="3000202"
^DD(2,.09,2)="S Y(0)=Y S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)"
^DD(2,.09,2.1)="S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)"
^DD(2,.09,3)="Enter 9-digit SSN or 'P' for pseudo-SSN."
^DD(2,.09,10)="10/10 FORM"
^DD(2,.09,11,0)="^.2LAP^^0"
^DD(2,.09,11,1,0)="1^"
^DD(2,.09,11,2,0)="2^"
^DD(2,.09,20,0)="^.3LA^1^1"
^DD(2,.09,20,1,0)="DEMOG^"
^DD(2,.09,21,0)="^^14^14^3060919^"
^DD(2,.09,21,1,0)="Answer with the individual's social security number.  Answer must be 9 "
^DD(2,.09,21,2,0)="numbers in length. The SSN will be sent to the SSA for verification.  "
^DD(2,.09,21,3,0)="This will be displayed next to the SSN.  Once an SSN has received a"
^DD(2,.09,21,4,0)="status of Verified, it is locked from user updating and a ""VERIFIED"""
^DD(2,.09,21,5,0)="will be displayed by the SSN field.  Only the Identity Management Data"
^DD(2,.09,21,6,0)="QUality Team are able to change a beneficiary's (veteran/non veteran)"
^DD(2,.09,21,7,0)="SSN.  If an Invalid per SSA status is received for the SSN, then an"
^DD(2,.09,21,8,0)="""INVALID"" will appear next to the invalid SSN of the individual."
^DD(2,.09,21,9,0)="Facilities should make every effort to obtain the accurate SSN from the"
^DD(2,.09,21,10,0)="individual for any invalid or pseudo SSN entry."
^DD(2,.09,21,11,0)=" "
^DD(2,.09,21,12,0)="If a valid SSN is not known, then a ""P"" will be entered at the SSN"
^DD(2,.09,21,13,0)="prompt for the system to automatically assign a Pseudo-SSN.  If a"
^DD(2,.09,21,14,0)="Pseudo SSN is entered, a Reason for entering it will be required."
^DD(2,.09,"AUDIT")="y"
^DD(2,.09,"DT")="3060919"
^DD(2,.0901,0)="TERMINAL DIGIT OF SSN^CJ9^^ ; ^S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3)"
^DD(2,.0901,.1)=""
^DD(2,.0901,3)="Computed field which determines last four digits of SSN."
^DD(2,.0901,9)="^"
^DD(2,.0901,9.01)=""
^DD(2,.0901,9.1)="S %=$S($D(^DPT(D0,0)):$P(^(0),U,9),1:""""),X=$E(%,8,9)_$E(%,6,7)_$E(%,4,5)_$E(%,1,3)"
^DD(2,.0901,21,0)="^^6^6^2920130^^^"
^DD(2,.0901,21,1,0)="This is a computed field which returns the terminal digit value of the"
^DD(2,.0901,21,2,0)="patient's social security number.  This value is computed to be the"
^DD(2,.0901,21,3,0)="last 2 digits of the social security number concatenated with the sixth"
^DD(2,.0901,21,4,0)="and seventh digits of the social security number concatenated with the"
^DD(2,.0901,21,5,0)="forth and fifth pieces of the social security number concatenated with the"
^DD(2,.0901,21,6,0)="first 3 digits of the social security number."
^DD(2,.0901,"DT")="2951107"
^DD(2,.0905,0)="1U4N^CXJ5^^ ; ^X ^DD(2,.0905,9.2) S X=$E(Y(.0905,4),Y(.0905,5),X) S Y=X,X=Y(.0905,3),X=X_Y"
^DD(2,.0905,3)="Computed field which determines first characters of last name and last four digits of SSN, i.e., 'L1234'."
^DD(2,.0905,7)="S:X?1U4N DS=""I ^(0)?1""""""_$E(X,1)_"""""".E"",X=$E(X,2,5) D 7^DICM"
^DD(2,.0905,9)="^"
^DD(2,.0905,9.1)="$E(NAME,1)_$E(SSN,6,9)"
^DD(2,.0905,9.2)="S Y(.0905,1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(.0905,1),U,1),Y(.0905,2)=X S X=1,X=$E(Y(.0905,2),X),Y(.0905,3)=X S X=$P(Y(.0905,1),U,9),Y(.0905,4)=X S X=6,Y(.0905,5)=X S X=9"
^DD(2,.0905,21,0)="^^4^4^2911214^"
^DD(2,.0905,21,1,0)="This is a computed field used to display the first character of the"
^DD(2,.0905,21,2,0)="patient's last name concatenated with the last four digits of the patient's"
^DD(2,.0905,21,3,0)="social security number.  This combination of characters can be used to"
^DD(2,.0905,21,4,0)="look-up a patient in DHCP."
^DD(2,.0906,0)="PSEUDO SSN REASON^S^R:REFUSED TO PROVIDE;S:SSN UNKNOWN/FOLLOW-UP REQUIRED;N:NO SSN ASSIGNED;^SSN;1^Q"
^DD(2,.0906,1,0)="^.1^^0"
^DD(2,.0906,5,1,0)="2^.09^10"
^DD(2,.0906,21,0)="^^17^17^3060919^"
^DD(2,.0906,21,1,0)="This field is used to document the reason the individual was assigned a "
^DD(2,.0906,21,2,0)="pseudo SSN.  Based on your selection, the Pseudo SSN Report (Patient) "
^DD(2,.0906,21,3,0)="option located in the Registration Menu can provide you a current "
^DD(2,.0906,21,4,0)="report of the reasons entered at this prompt.  The following reasons"
^DD(2,.0906,21,5,0)="are available for selection:"
^DD(2,.0906,21,6,0)=" "
^DD(2,.0906,21,7,0)="Refused to Provide - use this reason when the individual was asked for "
^DD(2,.0906,21,8,0)="his/her SSN and refused to provide the number."
^DD(2,.0906,21,9,0)=" "
^DD(2,.0906,21,10,0)="SSN Unknown/Follow-up required - use this reason when the individual"
^DD(2,.0906,21,11,0)="is not available to ask/answer the request for SSN.  The facility"
^DD(2,.0906,21,12,0)="should initiate Follow-up activity to obtain the SSN."
^DD(2,.0906,21,13,0)=" "
^DD(2,.0906,21,14,0)="No SSN Assigned - use this reason when the individual has not been"
^DD(2,.0906,21,15,0)="assigned an SSN. This generally applies to spouse or dependents of"
^DD(2,.0906,21,16,0)="veterans who are not US citizens and infrequently, non-citizen"
^DD(2,.0906,21,17,0)="beneficiaries."
^DD(2,.0906,"DT")="3070330"
^DD(2,.091,0)="REMARKS^F^^0;10^K:$L(X)>60!($L(X)<3) X"
^DD(2,.091,3)="Enter remarks concerning this patient for general display [3-60 characters]."
^DD(2,.091,5,1,0)="2^.152^1"
^DD(2,.091,5,2,0)="2^.351^1"
^DD(2,.091,21,0)="^^4^4^2861117^^^"
^DD(2,.091,21,1,0)="If so desired, you may enter a short remark about this applicant between"
^DD(2,.091,21,2,0)="3-60 characters.  The remark entered should be significant and tact should"
^DD(2,.091,21,3,0)="be exercised since this field is viewable to virtually all other users who"
^DD(2,.091,21,4,0)="have the ability to 'call up' a patient for any purpose."
^DD(2,.092,0)="PLACE OF BIRTH [CITY]^F^^0;11^K:$L(X)>20!($L(X)<2) X"
^DD(2,.092,.1)="POB CITY"
^DD(2,.092,1,0)="^.1"
^DD(2,.092,1,991,0)="2^AVAFC092^MUMPS"
^DD(2,.092,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".092;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.092,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".092;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.092,1,991,"%D",0)="^^15^15^3021010^"
^DD(2,.092,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.092,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.092,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.092,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.092,1,991,"%D",5,0)="  "
^DD(2,.092,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.092,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.092,1,991,"%D",8,0)="process."
^DD(2,.092,1,991,"%D",9,0)="  "
^DD(2,.092,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.092,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.092,1,991,"%D",12,0)="  "
^DD(2,.092,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.092,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.092,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.092,1,991,"DT")="3021010"
^DD(2,.092,1,992,0)="2^ADGRU092^MUMPS"
^DD(2,.092,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.092,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.092,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.092,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.092,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.092,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.092,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.092,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.092,1,992,"%D",6,0)="interface."
^DD(2,.092,1,992,"%D",7,0)=" "
^DD(2,.092,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.092,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.092,1,992,"DT")="2990920"
^DD(2,.092,3)="Enter city in which patient was born (or foreign country) [2-20 characters]."
^DD(2,.092,21,0)="^^2^2^2861007^"
^DD(2,.092,21,1,0)="Enter the city in which this applicant was born (or foreign"
^DD(2,.092,21,2,0)="country if born outside the U.S.) [2-20 characters]."
^DD(2,.092,"DT")="3021010"
^DD(2,.093,0)="PLACE OF BIRTH [STATE]^P5'^DIC(5,^0;12^Q"
^DD(2,.093,.1)="POB STATE"
^DD(2,.093,1,0)="^.1"
^DD(2,.093,1,991,0)="2^AVAFC093^MUMPS"
^DD(2,.093,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".093;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.093,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".093;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.093,1,991,"%D",0)="^^15^15^3021010^"
^DD(2,.093,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.093,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.093,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.093,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.093,1,991,"%D",5,0)="  "
^DD(2,.093,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.093,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.093,1,991,"%D",8,0)="process."
^DD(2,.093,1,991,"%D",9,0)="  "
^DD(2,.093,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.093,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.093,1,991,"%D",12,0)="  "
^DD(2,.093,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.093,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.093,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.093,1,991,"DT")="3021010"
^DD(2,.093,1,992,0)="2^ADGRU093^MUMPS"
^DD(2,.093,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.093,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.093,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.093,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.093,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.093,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.093,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.093,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.093,1,992,"%D",6,0)="interface."
^DD(2,.093,1,992,"%D",7,0)=" "
^DD(2,.093,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.093,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.093,1,992,"DT")="2990920"
^DD(2,.093,3)="If born in US enter the state in which this patient was born."
^DD(2,.093,21,0)="^^2^2^2861007^"
^DD(2,.093,21,1,0)="If the applicant was born within the U.S. select from the"
^DD(2,.093,21,2,0)="available listing the state in which s/he was born."
^DD(2,.093,"DT")="3021010"
^DD(2,.096,0)="WHO ENTERED PATIENT^P200'I^VA(200,^0;15^Q"
^DD(2,.096,3)="The name of the user who entered this patient into the PATIENT file."
^DD(2,.096,8.5)="^"
^DD(2,.096,9)="^"
^DD(2,.096,21,0)="^^2^2^2990107^^^"
^DD(2,.096,21,1,0)="The name of the user who first entered this applicant into the patient"
^DD(2,.096,21,2,0)="file."
^DD(2,.096,"DT")="2901006"
^DD(2,.097,0)="DATE ENTERED INTO FILE^DI^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.097,3)="The date this patient record was established in the patient file."
^DD(2,.097,8.5)="^"
^DD(2,.097,9)="^"
^DD(2,.097,21,0)="^^3^3^2911214^"
^DD(2,.097,21,1,0)="This field stores the date this patient was initially stored into the"
^DD(2,.097,21,2,0)="PATIENT file.  This is filled in automatically once a patient is"
^DD(2,.097,21,3,0)="successfully added to the database."
^DD(2,.097,"DT")="2850502"
^DD(2,.098,0)="HOW WAS PATIENT ENTERED?^S^1:10-10T REGISTRATION;^0;17^Q"
^DD(2,.098,21,0)="^^1^1^2970130^^"
^DD(2,.098,21,1,0)="How was the patient entered into the system."
^DD(2,.098,"DT")="2961220"
^DD(2,.1,0)="WARD LOCATION^FX^^.1;E1,30^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(2,.1,1,0)="^.1^^-1"
^DD(2,.1,1,1,0)="2^CN^MUMPS"
^DD(2,.1,1,1,1)="D CN^DGPMDDCN"
^DD(2,.1,1,1,2)="K ^DPT(""CN"",X,DA)"
^DD(2,.1,1,2,0)="2^ACN"
^DD(2,.1,1,2,1)="S ^DPT(""ACN"",$E(X,1,30),DA)="""""
^DD(2,.1,1,2,2)="K ^DPT(""ACN"",$E(X,1,30),DA)"
^DD(2,.1,1,3,0)="2^ANURS^MUMPS"
^DD(2,.1,1,3,1)="S %X=X,X=""NURSCPL"" X ^%ZOSF(""TEST"") S X=%X D:$T EN1^NURSCPL"
^DD(2,.1,1,3,2)="S %X=X,X=""NURSCPL"" X ^%ZOSF(""TEST"") S X=%X D:$T EN2^NURSCPL"
^DD(2,.1,3)="The ward on which this patient is currently residing [2-30 characters]."
^DD(2,.1,9)="^"
^DD(2,.1,21,0)="^^2^2^2900405^^^"
^DD(2,.1,21,1,0)="The ward location on which this patient is currently residing if an "
^DD(2,.1,21,2,0)="inpatient [2-30 characters]."
^DD(2,.1,"DT")="2901021"
^DD(2,.101,0)="ROOM-BED^F^^.101;1^K:$L(X)>15!($L(X)<3) X"
^DD(2,.101,1,0)="^.1"
^DD(2,.101,1,1,0)="2^RM"
^DD(2,.101,1,1,1)="S ^DPT(""RM"",$E(X,1,30),DA)="""""
^DD(2,.101,1,1,2)="K ^DPT(""RM"",$E(X,1,30),DA)"
^DD(2,.101,3)="Answer must be 3-15 characters in length."
^DD(2,.101,4)=""
^DD(2,.101,9)="^"
^DD(2,.101,21,0)="^^2^2^2861117^^"
^DD(2,.101,21,1,0)="If desired, for this inpatient, enter the room and bed indicator to which"
^DD(2,.101,21,2,0)="s/he is assigned in 'ROOM-BED' format."
^DD(2,.101,"DT")="2901022"
^DD(2,.102,0)="CURRENT MOVEMENT^*P405'^DGPM(^.102;1^S DIC(""S"")=""I $P(^(0),U,3)=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,.102,1,0)="^.1^^0"
^DD(2,.102,9)="^"
^DD(2,.102,12)="Allows only movements for patient"
^DD(2,.102,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=DA"""
^DD(2,.102,21,0)="^^6^6^2911214^"
^DD(2,.102,21,1,0)="This field contains the internal entry number of the PATIENT MOVEMENT"
^DD(2,.102,21,2,0)="file denoting the most recent movement for an inpatient.  This field"
^DD(2,.102,21,3,0)="is only stored for current inpatients.  It must NOT be edited as this"
^DD(2,.102,21,4,0)="could affect the integrity of many options within MAS and other packages."
^DD(2,.102,21,5,0)="When displaying this field, the date/time of the most recent movement"
^DD(2,.102,21,6,0)="will display."
^DD(2,.102,"DT")="2891218"
^DD(2,.103,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^.103;1^Q"
^DD(2,.103,1,0)="^.1"
^DD(2,.103,1,1,0)="2^ATR"
^DD(2,.103,1,1,1)="S ^DPT(""ATR"",$E(X,1,30),DA)="""""
^DD(2,.103,1,1,2)="K ^DPT(""ATR"",$E(X,1,30),DA)"
^DD(2,.103,3)="The treating specialty to which this inpatient applicant is currently assigned."
^DD(2,.103,9)="^"
^DD(2,.103,21,0)="^^2^2^2861117^"
^DD(2,.103,21,1,0)="From the available listing choose the treating specialty to which this"
^DD(2,.103,21,2,0)="inpatient is currently assigned."
^DD(2,.103,"DT")="2840328"
^DD(2,.104,0)="PROVIDER^*P200'^VA(200,^.104;1^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,.104,1,0)="^.1"
^DD(2,.104,1,1,0)="2^APR"
^DD(2,.104,1,1,1)="S ^DPT(""APR"",$E(X,1,30),DA)="""""
^DD(2,.104,1,1,2)="K ^DPT(""APR"",$E(X,1,30),DA)"
^DD(2,.104,3)="The provider currently assigned to this inpatient applicant."
^DD(2,.104,4)="D HELP^DGPMDD(DA,DT)"
^DD(2,.104,9)="^"
^DD(2,.104,12)="Allow only active providers."
^DD(2,.104,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"""
^DD(2,.104,21,0)="^^2^2^2980109^^^^"
^DD(2,.104,21,1,0)="From the available listing select the provider who is currently treating"
^DD(2,.104,21,2,0)="this patient."
^DD(2,.104,"DT")="2941207"
^DD(2,.1041,0)="ATTENDING PHYSICIAN^*P200'^VA(200,^.1041;1^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,.1041,1,0)="^.1"
^DD(2,.1041,1,1,0)="2^AAP"
^DD(2,.1041,1,1,1)="S ^DPT(""AAP"",$E(X,1,30),DA)="""""
^DD(2,.1041,1,1,2)="K ^DPT(""AAP"",$E(X,1,30),DA)"
^DD(2,.1041,1,1,"%D",0)="^^2^2^2911125^"
^DD(2,.1041,1,1,"%D",1,0)="This cross-reference contains all current inpatients, stored by their"
^DD(2,.1041,1,1,"%D",2,0)="current attending physician."
^DD(2,.1041,1,1,"DT")="2911125"
^DD(2,.1041,3)="This field should contain the attending physician currently responsible for this patient's care."
^DD(2,.1041,4)="D HELP^DGPMDD(DA,DT)"
^DD(2,.1041,9)="^"
^DD(2,.1041,12)="Allow only active providers."
^DD(2,.1041,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"""
^DD(2,.1041,21,0)="^^4^4^2930330^^^"
^DD(2,.1041,21,1,0)="This field contains the attending physician currently responsible for the"
^DD(2,.1041,21,2,0)="care of this patient.  This field is maintained automatically for all"
^DD(2,.1041,21,3,0)="inpatients and must not be edited.  Once a patient is discharged, the"
^DD(2,.1041,21,4,0)="data in this field is removed."
^DD(2,.1041,"DT")="2941207"
^DD(2,.105,0)="CURRENT ADMISSION^*P405'^DGPM(^.105;1^S DIC(""S"")=""I $P(^(0),U,3)=DA,$P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,.105,1,0)="^.1"
^DD(2,.105,1,1,0)="2^ACA"
^DD(2,.105,1,1,1)="S ^DPT(""ACA"",$E(X,1,30),DA)="""""
^DD(2,.105,1,1,2)="K ^DPT(""ACA"",$E(X,1,30),DA)"
^DD(2,.105,9)="^"
^DD(2,.105,12)="Allows only admissions for patient."
^DD(2,.105,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=DA,$P(^(0),U,2)=1"""
^DD(2,.105,21,0)="^^6^6^2911214^"
^DD(2,.105,21,1,0)="This field contains the internal entry number of the PATIENT MOVEMENT file"
^DD(2,.105,21,2,0)="denoting the current admission for an inpatient.  This field is only"
^DD(2,.105,21,3,0)="stored for current inpatients.  It must NOT be edited as this could affect"
^DD(2,.105,21,4,0)="the integrity of many options within MAS and other DHCP packages.  When"
^DD(2,.105,21,5,0)="displaying this field, the date/time of the current admission will be"
^DD(2,.105,21,6,0)="displayed."
^DD(2,.105,"DT")="2891214"
^DD(2,.106,0)="LAST DMMS EPISODE NUMBER^NJ5,0^^.106;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2,.106,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(2,.106,21,0)="^^2^2^2911214^"
^DD(2,.106,21,1,0)="This field was added at the request of the DMMS package developed at the"
^DD(2,.106,21,2,0)="Birmingham ISC.  It will be utilized in a future release of that package."
^DD(2,.106,"DT")="2900215"
^DD(2,.107,0)="LODGER WARD LOCATION^F^^.107;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(2,.107,1,0)="^.1"
^DD(2,.107,1,1,0)="2^LD^MUMPS"
^DD(2,.107,1,1,1)="D LD^DGPMDDLD"
^DD(2,.107,1,1,2)="K ^DPT(""LD"",X,DA)"
^DD(2,.107,3)="If the patient is a lodger, this is the ward on which the patient resides (2-30 characters)."
^DD(2,.107,21,0)="^^1^1^2900228^"
^DD(2,.107,21,1,0)="The ward on which the patient currently resides if the patient is a lodger."
^DD(2,.107,"DT")="2900409"
^DD(2,.108,0)="CURRENT ROOM^P405.4'^DG(405.4,^.108;1^Q"
^DD(2,.108,21,0)="^^5^5^2911214^"
^DD(2,.108,21,1,0)="This field contains a pointer to the ROOM-BED file denoting the current"
^DD(2,.108,21,2,0)="room-bed in which this inpatient resides.  This field is filled in only"
^DD(2,.108,21,3,0)="for inpatients.  It must NOT be edited as editing could adversely affect"
^DD(2,.108,21,4,0)="the operation of the MAS package as well as other DHCP packages.  This"
^DD(2,.108,21,5,0)="field is filled in automatically by the module."
^DD(2,.108,"DT")="2900322"
^DD(2,.109,0)="EXCLUDE FROM FACILITY DIR^S^0:NO;1:YES;^.109;1^Q"
^DD(2,.109,21,0)="^^4^4^3030218^"
^DD(2,.109,21,1,0)="Denotes whether or not the patient wished to be excluded from the "
^DD(2,.109,21,2,0)="Facility Directory for current admission.  This field is only stored for "
^DD(2,.109,21,3,0)="current inpatients.  It must NOT be edited as this could affect the "
^DD(2,.109,21,4,0)="integrity of many options within PIMS and other packages."
^DD(2,.109,"DT")="3030218"
^DD(2,.111,0)="STREET ADDRESS [LINE 1]^Fa^^.11;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X"
^DD(2,.111,.1)=""
^DD(2,.111,1,0)="^.1"
^DD(2,.111,1,1,0)="2^AXR29^MUMPS"
^DD(2,.111,1,1,1)="Q"
^DD(2,.111,1,1,2)="S DGXRF=.111 D ^DGDDC Q"
^DD(2,.111,1,2,0)="2^AODS111^MUMPS"
^DD(2,.111,1,2,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.111,1,2,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.111,1,3,0)="2^AENR111^MUMPS"
^DD(2,.111,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.111,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.111,1,3,3)="DO NOT DELETE"
^DD(2,.111,1,3,"%D",0)="^^2^2^2971007^^^^"
^DD(2,.111,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.111,1,3,"%D",2,0)="enrollment. "
^DD(2,.111,1,3,"DT")="2971007"
^DD(2,.111,1,4,0)="^^TRIGGER^2^.118"
^DD(2,.111,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.111,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.111,1,4,"%D",0)="^^2^2^3020703^"
^DD(2,.111,1,4,"%D",1,0)="This cross-reference will be used to update the Date/Time stamp for an "
^DD(2,.111,1,4,"%D",2,0)="Address Change."
^DD(2,.111,1,4,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.111,1,4,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.111,1,4,"DT")="3020703"
^DD(2,.111,1,4,"FIELD")="ADDRESS CHANGE DT/TM"
^DD(2,.111,1,301,0)="2^IVM111^MUMPS"
^DD(2,.111,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.111,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.111,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.111,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.111,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.111,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.111,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.111,1,301,"DT")="2930605"
^DD(2,.111,1,991,0)="2^AVAFC111^MUMPS"
^DD(2,.111,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".111;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.111,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".111;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.111,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.111,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.111,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.111,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.111,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.111,1,991,"%D",5,0)=" "
^DD(2,.111,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.111,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.111,1,991,"%D",8,0)="process."
^DD(2,.111,1,991,"%D",9,0)=" "
^DD(2,.111,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.111,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.111,1,991,"%D",12,0)="  "
^DD(2,.111,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.111,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.111,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.111,1,991,"DT")="2970825"
^DD(2,.111,1,992,0)="2^ADGRU111^MUMPS"
^DD(2,.111,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.111,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.111,1,992,"%D",0)="^^9^9^2990920^^"
^DD(2,.111,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.111,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.111,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.111,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.111,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.111,1,992,"%D",6,0)="interface."
^DD(2,.111,1,992,"%D",7,0)=" "
^DD(2,.111,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.111,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.111,1,992,"DT")="2990917"
^DD(2,.111,3)="Enter the first line of this applicant's residence street address [3-35 characters]."
^DD(2,.111,20,0)="^.3LA^2^1"
^DD(2,.111,20,1,0)="ADR^"
^DD(2,.111,20,2,0)="DEMOG^"
^DD(2,.111,21,0)="^^2^2^2910501^^^^"
^DD(2,.111,21,1,0)="Enter the first line of this applicant's residence street address"
^DD(2,.111,21,2,0)="[3-35 characters]."
^DD(2,.111,"AUDIT")="y"
^DD(2,.111,"DT")="3060802"
^DD(2,.1112,0)="ZIP+4^FXOa^^.11;12^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.1112,1,0)="^.1"
^DD(2,.1112,1,1,0)="2^AZIP4^MUMPS"
^DD(2,.1112,1,1,1)="D SET^DGREGDD1(DA,.116,.11,6,$E(X,1,5))"
^DD(2,.1112,1,1,2)="D KILL^DGREGDD1(DA,.116,.11,6,$E(X,1,5))"
^DD(2,.1112,1,1,"%D",0)="2"
^DD(2,.1112,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of"
^DD(2,.1112,1,1,"%D",2,0)="this field."
^DD(2,.1112,1,1,"DT")="2930505"
^DD(2,.1112,1,2,0)="2^AENR1112^MUMPS"
^DD(2,.1112,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.1112,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.1112,1,2,3)="DO NOT DELETE"
^DD(2,.1112,1,2,"%D",0)="^^2^2^2971007^^^"
^DD(2,.1112,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.1112,1,2,"%D",2,0)="enrollment. "
^DD(2,.1112,1,2,"DT")="2971007"
^DD(2,.1112,1,3,0)="^^TRIGGER^2^.118"
^DD(2,.1112,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.1112,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.1112,1,3,"%D",0)="^^2^2^3020703^"
^DD(2,.1112,1,3,"%D",1,0)="This cross-reference will update the Address Change DT/TM field when "
^DD(2,.1112,1,3,"%D",2,0)="address data changes for a patient."
^DD(2,.1112,1,3,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.1112,1,3,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.1112,1,3,"DT")="3020703"
^DD(2,.1112,1,3,"FIELD")="address change dt"
^DD(2,.1112,1,301,0)="2^IVM1112^MUMPS"
^DD(2,.1112,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.1112,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.1112,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.1112,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.1112,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.1112,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.1112,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.1112,1,301,"DT")="2930605"
^DD(2,.1112,1,991,0)="2^AVAFC1112^MUMPS"
^DD(2,.1112,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".1112;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.1112,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".1112;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.1112,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.1112,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.1112,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.1112,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.1112,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.1112,1,991,"%D",5,0)=" "
^DD(2,.1112,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.1112,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.1112,1,991,"%D",8,0)="process."
^DD(2,.1112,1,991,"%D",9,0)=" "
^DD(2,.1112,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.1112,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.1112,1,991,"%D",12,0)="  "
^DD(2,.1112,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.1112,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.1112,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.1112,1,991,"DT")="2970825"
^DD(2,.1112,1,992,0)="2^ADGRU1112^MUMPS"
^DD(2,.1112,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.1112,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.1112,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.1112,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.1112,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.1112,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.1112,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.1112,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.1112,1,992,"%D",6,0)="interface."
^DD(2,.1112,1,992,"%D",7,0)=" "
^DD(2,.1112,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.1112,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.1112,1,992,"DT")="2990920"
^DD(2,.1112,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.1112,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.1112,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.1112,20,0)="^.3LA^1^1"
^DD(2,.1112,20,1,0)="DEMOG"
^DD(2,.1112,21,0)="^^2^2^2930603^^^^"
^DD(2,.1112,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.1112,21,2,0)="format (e.g. 12345-6789 or 123456789)."
^DD(2,.1112,23,0)="^^2^2^2930603^^^^"
^DD(2,.1112,23,1,0)="Related to other address fields on this node.  This field 'triggers'"
^DD(2,.1112,23,2,0)="the ZIP CODE (#.116) field, using the first 5 digits of this field."
^DD(2,.1112,"AUDIT")="y"
^DD(2,.1112,"DT")="3030628"
^DD(2,.112,0)="STREET ADDRESS [LINE 2]^Fa^^.11;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X D:$D(X) UP^DGHELP"
^DD(2,.112,.1)=""
^DD(2,.112,1,0)="^.1"
^DD(2,.112,1,1,0)="2^AXR30^MUMPS"
^DD(2,.112,1,1,1)="Q"
^DD(2,.112,1,1,2)="S DGXRF=.112 D ^DGDDC Q"
^DD(2,.112,1,2,0)="2^AODS112^MUMPS"
^DD(2,.112,1,2,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.112,1,2,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.112,1,3,0)="2^AENR112^MUMPS"
^DD(2,.112,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.112,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.112,1,3,3)="DO NOT DELETE"
^DD(2,.112,1,3,"%D",0)="^^2^2^2971007^^^"
^DD(2,.112,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.112,1,3,"%D",2,0)="enrollment. "
^DD(2,.112,1,3,"DT")="2971007"
^DD(2,.112,1,4,0)="^^TRIGGER^2^.118"
^DD(2,.112,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.112,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.112,1,4,"%D",0)="^^2^2^3020703^"
^DD(2,.112,1,4,"%D",1,0)="This cross-reference will update the Address Change DT/TM field when "
^DD(2,.112,1,4,"%D",2,0)="address data changes for a patient."
^DD(2,.112,1,4,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.112,1,4,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.112,1,4,"DT")="3020703"
^DD(2,.112,1,4,"FIELD")="ADDRESS CHANGE DT"
^DD(2,.112,1,301,0)="2^IVM112^MUMPS"
^DD(2,.112,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.112,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.112,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.112,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.112,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.112,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.112,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.112,1,301,"DT")="2930605"
^DD(2,.112,1,991,0)="2^AVAFC112^MUMPS"
^DD(2,.112,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".112;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.112,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".112;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.112,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.112,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.112,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.112,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.112,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.112,1,991,"%D",5,0)=" "
^DD(2,.112,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.112,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.112,1,991,"%D",8,0)="process."
^DD(2,.112,1,991,"%D",9,0)=" "
^DD(2,.112,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.112,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.112,1,991,"%D",12,0)="  "
^DD(2,.112,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.112,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.112,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.112,1,991,"DT")="2970825"
^DD(2,.112,1,992,0)="2^ADGRU112^MUMPS"
^DD(2,.112,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.112,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.112,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.112,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.112,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.112,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.112,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.112,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.112,1,992,"%D",6,0)="interface."
^DD(2,.112,1,992,"%D",7,0)=" "
^DD(2,.112,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.112,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.112,1,992,"DT")="2990920"
^DD(2,.112,3)="If necessary, enter the second line of this applicant's street address [3-30 characters]."
^DD(2,.112,20,0)="^.3LA^1^1"
^DD(2,.112,20,1,0)="DEMOG"
^DD(2,.112,21,0)="^^3^3^2861007^"
^DD(2,.112,21,1,0)="Enter the second line of this applicant's residence street address"
^DD(2,.112,21,2,0)="[3-30 characters] if the space provided in 'street address' was"
^DD(2,.112,21,3,0)="not sufficient."
^DD(2,.112,"AUDIT")="y"
^DD(2,.112,"DT")="3060802"
^DD(2,.113,0)="STREET ADDRESS [LINE 3]^Fa^^.11;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(2,.113,.1)=""
^DD(2,.113,1,0)="^.1"
^DD(2,.113,1,1,0)="2^AODS113^MUMPS"
^DD(2,.113,1,1,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.113,1,1,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.113,1,2,0)="2^AENR113^MUMPS"
^DD(2,.113,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.113,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.113,1,2,3)="DO NOT DELETE"
^DD(2,.113,1,2,"%D",0)="^^2^2^2971007^^^"
^DD(2,.113,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.113,1,2,"%D",2,0)="enrollment. "
^DD(2,.113,1,2,"DT")="2971007"
^DD(2,.113,1,3,0)="^^TRIGGER^2^.118"
^DD(2,.113,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.113,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.113,1,3,"%D",0)="^^2^2^3020703^"
^DD(2,.113,1,3,"%D",1,0)="This cross-reference will update the Address Change DT/TM field when "
^DD(2,.113,1,3,"%D",2,0)="address data changes for a patient."
^DD(2,.113,1,3,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.113,1,3,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.113,1,3,"DT")="3020703"
^DD(2,.113,1,3,"FIELD")="ADDRESS CHANGE DT"
^DD(2,.113,1,301,0)="2^IVM113^MUMPS"
^DD(2,.113,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.113,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.113,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.113,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.113,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.113,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.113,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.113,1,301,"DT")="2930605"
^DD(2,.113,1,991,0)="2^AVAFC113^MUMPS"
^DD(2,.113,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".113;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.113,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".113;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.113,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.113,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.113,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.113,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.113,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.113,1,991,"%D",5,0)=" "
^DD(2,.113,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.113,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.113,1,991,"%D",8,0)="process."
^DD(2,.113,1,991,"%D",9,0)=" "
^DD(2,.113,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.113,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.113,1,991,"%D",12,0)="  "
^DD(2,.113,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.113,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.113,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.113,1,991,"DT")="2970825"
^DD(2,.113,1,992,0)="2^ADGRU113^MUMPS"
^DD(2,.113,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.113,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.113,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.113,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.113,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.113,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.113,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.113,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.113,1,992,"%D",6,0)="interface."
^DD(2,.113,1,992,"%D",7,0)=" "
^DD(2,.113,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.113,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.113,1,992,"DT")="2990920"
^DD(2,.113,3)="If necessary, enter a third line of this applicant's street address [3-30 characters]."
^DD(2,.113,20,0)="^.3LA^1^1"
^DD(2,.113,20,1,0)="DEMOG"
^DD(2,.113,21,0)="^^3^3^2861007^"
^DD(2,.113,21,1,0)="Enter the third line of this applicant's residence street address"
^DD(2,.113,21,2,0)="[3-30 characters] if the space provided in 'street address' and"
^DD(2,.113,21,3,0)="'street address 2' was not sufficient."
^DD(2,.113,"AUDIT")="y"
^DD(2,.113,"DT")="3030628"
^DD(2,.114,0)="CITY^Fa^^.11;4^K:$L(X)>15!($L(X)<2) X"
^DD(2,.114,1,0)="^.1"
^DD(2,.114,1,1,0)="2^AODS114^MUMPS"
^DD(2,.114,1,1,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.114,1,1,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.114,1,2,0)="2^AENR114^MUMPS"
^DD(2,.114,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.114,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.114,1,2,3)="DO NOT DELETE"
^DD(2,.114,1,2,"%D",0)="^^2^2^2971007^^^"
^DD(2,.114,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.114,1,2,"%D",2,0)="enrollment. "
^DD(2,.114,1,2,"DT")="2971007"
^DD(2,.114,1,3,0)="^^TRIGGER^2^.118"
^DD(2,.114,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.114,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.114,1,3,"%D",0)="^^2^2^3020703^"
^DD(2,.114,1,3,"%D",1,0)="This cross-reference will update the Address Change DT/TM field when "
^DD(2,.114,1,3,"%D",2,0)="address data changes for a patient."
^DD(2,.114,1,3,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.114,1,3,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.114,1,3,"DT")="3020703"
^DD(2,.114,1,3,"FIELD")="ADDRESS CHANGE DT"
^DD(2,.114,1,301,0)="2^IVM114^MUMPS"
^DD(2,.114,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.114,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.114,1,301,"%D",0)="^^4^4^2971107^^"
^DD(2,.114,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.114,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.114,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.114,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.114,1,301,"DT")="2930605"
^DD(2,.114,1,991,0)="2^AVAFC114^MUMPS"
^DD(2,.114,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".114;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.114,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".114;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.114,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.114,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.114,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.114,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.114,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.114,1,991,"%D",5,0)=" "
^DD(2,.114,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.114,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.114,1,991,"%D",8,0)="process."
^DD(2,.114,1,991,"%D",9,0)=" "
^DD(2,.114,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.114,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.114,1,991,"%D",12,0)="  "
^DD(2,.114,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.114,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.114,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.114,1,991,"DT")="2970825"
^DD(2,.114,1,992,0)="2^ADGRU114^MUMPS"
^DD(2,.114,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.114,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.114,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.114,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.114,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.114,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.114,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.114,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.114,1,992,"%D",6,0)="interface."
^DD(2,.114,1,992,"%D",7,0)=" "
^DD(2,.114,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.114,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.114,1,992,"DT")="2990920"
^DD(2,.114,3)="Answer must be 2-15 characters in length"
^DD(2,.114,20,0)="^.3LA^1^1"
^DD(2,.114,20,1,0)="DEMOG"
^DD(2,.114,21,0)="^^3^3^2870130^^"
^DD(2,.114,21,1,0)="Enter the city in which this applicant resides [2-15 characters]."
^DD(2,.114,21,2,0)="If the space provided is not sufficient please abbreviate the"
^DD(2,.114,21,3,0)="city to the best of your ability."
^DD(2,.114,"AUDIT")="y"
^DD(2,.114,"DT")="3060802"
^DD(2,.115,0)="STATE^P5'a^DIC(5,^.11;5^Q"
^DD(2,.115,1,0)="^.1"
^DD(2,.115,1,1,0)="^^TRIGGER^2^.117"
^DD(2,.115,1,1,1)="Q"
^DD(2,.115,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:""""),Y=$P(Y(1),U,7) X:$D(^DD(2,.117,2)) ^(2) S X=Y S DIU=X K Y S X=DIV S X="""" X ^DD(2,.115,1,1,2.4)"
^DD(2,.115,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.11)):^(.11),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U"" S %=$P(DIH,U,8,999),^(.11)=$P(DIH,U,1,6)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.117 D ^DICR"
^DD(2,.115,1,1,"CREATE VALUE")="NO EFFECT"
^DD(2,.115,1,1,"DELETE VALUE")="@"
^DD(2,.115,1,1,"FIELD")="COUNTY"
^DD(2,.115,1,2,0)="2^AODS115^MUMPS"
^DD(2,.115,1,2,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.115,1,2,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.115,1,3,0)="2^AENR115^MUMPS"
^DD(2,.115,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.115,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.115,1,3,3)="DO NOT DELETE"
^DD(2,.115,1,3,"%D",0)="^^2^2^2971007^^^"
^DD(2,.115,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.115,1,3,"%D",2,0)="enrollment. "
^DD(2,.115,1,3,"DT")="2971007"
^DD(2,.115,1,4,0)="^^TRIGGER^2^.118"
^DD(2,.115,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.115,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.115,1,4,"%D",0)="^^2^2^3020703^"
^DD(2,.115,1,4,"%D",1,0)="This cross-reference will update the Address Change DT/TM field when "
^DD(2,.115,1,4,"%D",2,0)="address data changes for a patient."
^DD(2,.115,1,4,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.115,1,4,"DELETE VALUE")="S X=$$NOW^XLFDT"
^DD(2,.115,1,4,"DT")="3020703"
^DD(2,.115,1,4,"FIELD")="ADDRESS CHANGE DT"
^DD(2,.115,1,301,0)="2^IVM115^MUMPS"
^DD(2,.115,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.115,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.115,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.115,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.115,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.115,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.115,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.115,1,301,"DT")="2930605"
^DD(2,.115,1,991,0)="2^AVAFC115^MUMPS"
^DD(2,.115,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".115;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.115,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".115;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.115,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.115,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.115,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.115,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.115,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.115,1,991,"%D",5,0)=" "
^DD(2,.115,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.115,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.115,1,991,"%D",8,0)="process."
^DD(2,.115,1,991,"%D",9,0)=" "
^DD(2,.115,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.115,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.115,1,991,"%D",12,0)="  "
^DD(2,.115,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.115,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.115,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.115,1,991,"DT")="2970825"
^DD(2,.115,1,992,0)="2^ADGRU115^MUMPS"
^DD(2,.115,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.115,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.115,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.115,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.115,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.115,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.115,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.115,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.115,1,992,"%D",6,0)="interface."
^DD(2,.115,1,992,"%D",7,0)=" "
^DD(2,.115,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.115,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.115,1,992,"DT")="2990920"
^DD(2,.115,3)="Select from the available listing the state in which this applicant resides."
^DD(2,.115,20,0)="^.3LA^1^1"
^DD(2,.115,20,1,0)="DEMOG"
^DD(2,.115,21,0)="^^2^2^2861117^^"
^DD(2,.115,21,1,0)="From the available listing choose the state in which this applicant"
^DD(2,.115,21,2,0)="resides."
^DD(2,.115,"AUDIT")="y"
^DD(2,.115,"DT")="3060802"
^DD(2,.116,0)="ZIP CODE^F^^.11;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(2,.116,1,0)="^.1"
^DD(2,.116,1,1,0)="2^AODS116^MUMPS"
^DD(2,.116,1,1,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.116,1,1,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.116,1,2,0)="2^AZIP^MUMPS"
^DD(2,.116,1,2,1)="D SET^DGREGDD1(DA,.1112,.11,12,X)"
^DD(2,.116,1,2,2)="D KILL^DGREGDD1(DA,.1112,.11,12,X)"
^DD(2,.116,1,2,"%D",0)="^^2^2^2930603^^^^"
^DD(2,.116,1,2,"%D",1,0)="This sets the corresponding zip+4 field to be equal to the zip field"
^DD(2,.116,1,2,"%D",2,0)="after the zip is edited."
^DD(2,.116,1,2,"DT")="2930413"
^DD(2,.116,1,3,0)="^^TRIGGER^2^.118"
^DD(2,.116,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.116,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.116,1,3,"%D",0)="^^2^2^3020703^"
^DD(2,.116,1,3,"%D",1,0)="This cross-reference will update the Address Change DT/TM field when "
^DD(2,.116,1,3,"%D",2,0)="address data changes for a patient."
^DD(2,.116,1,3,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.116,1,3,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.116,1,3,"DT")="3020703"
^DD(2,.116,1,3,"FIELD")="ADDRESS CHANGE DT"
^DD(2,.116,3)="Enter the zip code for the city in which this applicant resides."
^DD(2,.116,20,0)="^.3LA^1^1"
^DD(2,.116,20,1,0)="DEMOG"
^DD(2,.116,21,0)="^^2^2^2951026^^^^"
^DD(2,.116,21,1,0)="Enter the zip code [5 numerics] for the city in which this applicant"
^DD(2,.116,21,2,0)="resides."
^DD(2,.116,23,0)="^^4^4^2951026^^"
^DD(2,.116,23,1,0)="This field will become un-editable in a later release.  Programmers"
^DD(2,.116,23,2,0)="should modify code from this field (.116) to the ZIP+4 field (.1112)"
^DD(2,.116,23,3,0)="Currently, modifications to this field will create an entry in the"
^DD(2,.116,23,4,0)="ZIP+4 field (without the +4 of course)."
^DD(2,.116,"DT")="3030628"
^DD(2,.117,0)="COUNTY^NJ3,0XOa^^.11;7^S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),""^"",5),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(2,.117,1,0)="^.1^^-1"
^DD(2,.117,1,1,0)="2^AODS117^MUMPS"
^DD(2,.117,1,1,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.117,1,1,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.117,1,2,0)="2^AENR117^MUMPS"
^DD(2,.117,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.117,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.117,1,2,3)="DO NOT DELETE"
^DD(2,.117,1,2,"%D",0)="^^2^2^2971007^^^"
^DD(2,.117,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.117,1,2,"%D",2,0)="enrollment. "
^DD(2,.117,1,2,"DT")="2971007"
^DD(2,.117,1,301,0)="2^IVM117^MUMPS"
^DD(2,.117,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.117,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.117,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.117,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.117,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.117,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.117,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.117,1,301,"DT")="2930605"
^DD(2,.117,1,991,0)="2^AVAFC117^MUMPS"
^DD(2,.117,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".117;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.117,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".117;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.117,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.117,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.117,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.117,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.117,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.117,1,991,"%D",5,0)=" "
^DD(2,.117,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.117,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.117,1,991,"%D",8,0)="process."
^DD(2,.117,1,991,"%D",9,0)=" "
^DD(2,.117,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.117,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.117,1,991,"%D",12,0)="  "
^DD(2,.117,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.117,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.117,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.117,1,991,"DT")="2970825"
^DD(2,.117,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),""^"",5),1:"""") Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),""^"",3)"
^DD(2,.117,2.1)="Q:Y']""""  S Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),""^"",5),1:"""") Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),""^"",3)"
^DD(2,.117,3)="Enter the county in which this applicant resides."
^DD(2,.117,4)="S ZD=D,X=""?"",Z0=$S($D(^DPT(D0,.11)):+$P(^(.11),U,5),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD"
^DD(2,.117,5,1,0)="2^.115^1"
^DD(2,.117,20,0)="^.3LA^1^1"
^DD(2,.117,20,1,0)="DEMOG"
^DD(2,.117,21,0)="3^^3^3^2920305^^"
^DD(2,.117,21,1,0)="If a state of residence is entered select from the available"
^DD(2,.117,21,2,0)="listing the county in which this applicant resides.  If no"
^DD(2,.117,21,3,0)="state (or a non-state) is entered no selection is possible."
^DD(2,.117,"AUDIT")="y"
^DD(2,.117,"DT")="2980520"
^DD(2,.118,0)="ADDRESS CHANGE DT/TM^D^^.11;13^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.118,1,0)="^.1"
^DD(2,.118,1,1,0)="^^TRIGGER^2^.119"
^DD(2,.118,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,14)=DIV,DIH=2,DIG=.119 D ^DICR"
^DD(2,.118,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,14)=DIV,DIH=2,DIG=.119 D ^DICR"
^DD(2,.118,1,1,"%D",0)="^.101^5^5^3030605^^^"
^DD(2,.118,1,1,"%D",1,0)="This cross-reference will update the Address Source field when "
^DD(2,.118,1,1,"%D",2,0)="address data changes for a patient.  The source will be set to 'VAMC', "
^DD(2,.118,1,1,"%D",3,0)="and should be overwritten for instances where the Address source is "
^DD(2,.118,1,1,"%D",4,0)="something different.  The incoming Z05 process has been updated to "
^DD(2,.118,1,1,"%D",5,0)="overwrite this field as appropriate."
^DD(2,.118,1,1,"CREATE VALUE")="S X=""VAMC"""
^DD(2,.118,1,1,"DELETE VALUE")="S X=""VAMC"""
^DD(2,.118,1,1,"FIELD")="ADDRESS CHANGE SOURCE"
^DD(2,.118,1,2,0)="^^TRIGGER^2^.122"
^DD(2,.118,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,17)=DIV,DIH=2,DIG=.122 D ^DICR"
^DD(2,.118,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,17)=DIV,DIH=2,DIG=.122 D ^DICR"
^DD(2,.118,1,2,"%D",0)="^^2^2^3030605^"
^DD(2,.118,1,2,"%D",1,0)="This cross-reference will record the user who has just changed the "
^DD(2,.118,1,2,"%D",2,0)="patient's primary address."
^DD(2,.118,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(2,.118,1,2,"DELETE VALUE")="S X=$G(DUZ)"
^DD(2,.118,1,2,"DT")="3030605"
^DD(2,.118,1,2,"FIELD")="ADDRESS CHANGE USER"
^DD(2,.118,1,3,0)="2^AENR118^MUMPS"
^DD(2,.118,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.118,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.118,1,3,3)=" DO NOT DELETE"
^DD(2,.118,1,3,"%D",0)="^.101^2^2^3050613^^^^"
^DD(2,.118,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.118,1,3,"%D",2,0)="enrollment."
^DD(2,.118,1,3,"DT")="3050613"
^DD(2,.118,3)="(No range limit on date)"
^DD(2,.118,5,1,0)="2^.1112^3"
^DD(2,.118,5,2,0)="2^.111^4"
^DD(2,.118,5,3,0)="2^.112^4"
^DD(2,.118,5,4,0)="2^.113^3"
^DD(2,.118,5,5,0)="2^.114^3"
^DD(2,.118,5,6,0)="2^.115^4"
^DD(2,.118,5,7,0)="2^.116^3"
^DD(2,.118,5,8,0)="2^.121^2"
^DD(2,.118,9)="^"
^DD(2,.118,21,0)="^.001^1^1^3061006^^"
^DD(2,.118,21,1,0)="This field will hold the date and time of the last Address Update."
^DD(2,.118,"DT")="3061024"
^DD(2,.119,0)="ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;NCOA:NCOA;BVA:BVA;VAINS:VAINS;USPS:USPS;^.11;14^Q"
^DD(2,.119,1,0)="^.1^^-1"
^DD(2,.119,1,2,0)="^^TRIGGER^2^.12"
^DD(2,.119,1,2,1)="X ^DD(2,.119,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.119,1,2,1.4)"
^DD(2,.119,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.119,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.119,1,2,1.4)="S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR"
^DD(2,.119,1,2,2)="X ^DD(2,.119,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.119,1,2,2.4)"
^DD(2,.119,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.119,0)),U,3),Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.119,1,2,2.4)="S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,15)=DIV,DIH=2,DIG=.12 D ^DICR"
^DD(2,.119,1,2,"%D",0)="^^4^4^3050915^"
^DD(2,.119,1,2,"%D",1,0)="This cross-reference will trigger the population of the ADDRESS CHANGE"
^DD(2,.119,1,2,"%D",2,0)="SITE field with the appropriate station number if the ADDRESS CHANGE"
^DD(2,.119,1,2,"%D",3,0)="SOURCE equals ""VAMC"".  The Address Change Site field should be overwritten"
^DD(2,.119,1,2,"%D",4,0)="for cases where the site would be incorrect (i.e. uploading Z05 message)."
^DD(2,.119,1,2,"CREATE CONDITION")="'ADDRESS CHANGE SOURCE'=""VAMC"""
^DD(2,.119,1,2,"CREATE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.119,1,2,"DELETE CONDITION")="'ADDRESS CHANGE SOURCE'=""VAMC"""
^DD(2,.119,1,2,"DELETE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.119,1,2,"DT")="3050915"
^DD(2,.119,1,2,"FIELD")="ADDRESS CHANGE SITE"
^DD(2,.119,3)="Please enter the source of the address change."
^DD(2,.119,5,1,0)="2^.118^1"
^DD(2,.119,9)="^"
^DD(2,.119,21,0)="^.001^1^1^3050916^^^^"
^DD(2,.119,21,1,0)="This field will hold the source of the Last address change."
^DD(2,.119,"DT")="3050915"
^DD(2,.12,0)="ADDRESS CHANGE SITE^P4'^DIC(4,^.11;15^Q"
^DD(2,.12,3)="Please enter the site that last changed this patient's address."
^DD(2,.12,5,1,0)="2^.119^2"
^DD(2,.12,9)="^"
^DD(2,.12,21,0)="^^2^2^3020703^"
^DD(2,.12,21,1,0)="This field will hold the Site that last changed this patient's address.  "
^DD(2,.12,21,2,0)="This field is only populated when the Address Source is listed as VAMC."
^DD(2,.12,"DT")="3020703"
^DD(2,.121,0)="BAD ADDRESS INDICATOR^S^1:UNDELIVERABLE;2:HOMELESS;3:OTHER;^.11;16^Q"
^DD(2,.121,1,0)="^.1"
^DD(2,.121,1,1,0)="2^AENR121^MUMPS"
^DD(2,.121,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.121,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.121,1,1,3)="DO NOT DELETE"
^DD(2,.121,1,1,"%D",0)="^.101^2^2^3061005^^^"
^DD(2,.121,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.121,1,1,"%D",2,0)="enrollment."
^DD(2,.121,1,1,"DT")="3060911"
^DD(2,.121,1,2,0)="^^TRIGGER^2^.118"
^DD(2,.121,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.121,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.11)),DIV=X S $P(^(.11),U,13)=DIV,DIH=2,DIG=.118 D ^DICR"
^DD(2,.121,1,2,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.121,1,2,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.121,1,2,"DT")="3061006"
^DD(2,.121,1,2,"FIELD")="#.118"
^DD(2,.121,3)="Please enter 1 if the address is 'UNDELIVERABLE', 2 if the patient is 'HOMELESS', or 3 for 'OTHER' bad address reasons."
^DD(2,.121,21,0)="^^14^14^3031209^"
^DD(2,.121,21,1,0)="The Bad Address Indicator field applies to the address at which the patient"
^DD(2,.121,21,2,0)="resides.  This field should be set as follows (if applicable):"
^DD(2,.121,21,3,0)=" "
^DD(2,.121,21,4,0)="    ""UNDELIVERABLE"" - Bad Address based on returned mail."
^DD(2,.121,21,5,0)="    ""HOMELESS"" - Patient is known to be homeless."
^DD(2,.121,21,6,0)="    ""OTHER"" - Other Bad Address Reason"
^DD(2,.121,21,7,0)=" "
^DD(2,.121,21,8,0)="Setting this field will prevent a Bad Address from being shared with HEC"
^DD(2,.121,21,9,0)="and other VAMC facilities. It will also be used to block Means Test "
^DD(2,.121,21,10,0)="Renewal Letters from being sent."
^DD(2,.121,21,11,0)=" "
^DD(2,.121,21,12,0)="Once the Bad Address Indicator is set, incoming ""newer"" addresses will"
^DD(2,.121,21,13,0)="automatically remove the Bad Address Indicator, and allow the ""updated"""
^DD(2,.121,21,14,0)="address to be transmitted to HEC and other VAMC facilities."
^DD(2,.121,23,0)="^.001^9^9^3031209^^^"
^DD(2,.121,23,1,0)="This field is being used in conjunction with Patient Address fields"
^DD(2,.121,23,2,0)=".111, .1112, .112, .113, .114, .115, .116, and .117, which are located"
^DD(2,.121,23,3,0)="in the Patient (#2) file."
^DD(2,.121,23,4,0)=""
^DD(2,.121,23,5,0)="A programmer API, $$BADADR^DGUTL3(DFN) will allow the return of the Bad"
^DD(2,.121,23,6,0)="Address Indicator.  The following parameters are used:"
^DD(2,.121,23,7,0)=""
^DD(2,.121,23,8,0)="Input Parameter: DFN - internal entry number for the Patient file (#2)"
^DD(2,.121,23,9,0)="   Return value: internal value of the Bad Address Indicator or <null>"
^DD(2,.121,"AUDIT")=""
^DD(2,.121,"DT")="3061006"
^DD(2,.12105,0)="TEMPORARY ADDRESS ACTIVE?^RSX^Y:YES;N:NO;^.121;9^S DFN=DA I X=""N"" D TADD^DGLOCK"
^DD(2,.12105,.1)="WANT TO ENTER TEMP ADDR"
^DD(2,.12105,1,0)="^.1^^-1"
^DD(2,.12105,1,1,0)="2^AXR11^MUMPS"
^DD(2,.12105,1,1,1)="Q"
^DD(2,.12105,1,1,2)="S DGXRF=.12105 D ^DGDDC Q"
^DD(2,.12105,3)="Enter 'Y' if you want to enter/edit Temporary address data, 'N' if not."
^DD(2,.12105,20,0)="^.3LA^1^1"
^DD(2,.12105,20,1,0)="TAD"
^DD(2,.12105,21,0)="^^5^5^2930511^^^^"
^DD(2,.12105,21,1,0)="Enter 'Y' if you wish to enter a temporary address for this applicant at"
^DD(2,.12105,21,2,0)="this time, or 'N' if not.  A 'NO' response will cause the temporary"
^DD(2,.12105,21,3,0)="address 'Start Date' and 'End Date' fields to be automatically deleted"
^DD(2,.12105,21,4,0)="while all other temporary address data will remain on file for future"
^DD(2,.12105,21,5,0)="use."
^DD(2,.12105,"DT")="2930419"
^DD(2,.1211,0)="TEMPORARY STREET [LINE 1]^FX^^.121;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK"
^DD(2,.1211,.1)=""
^DD(2,.1211,1,0)="^.1"
^DD(2,.1211,1,1,0)="2^AXR12^MUMPS"
^DD(2,.1211,1,1,1)="Q"
^DD(2,.1211,1,1,2)="S DGXRF=.1211 D ^DGDDC Q"
^DD(2,.1211,3)="Enter the first line of this applicants temporary address [2-30 characters]."
^DD(2,.1211,20,0)="^.3LA^1^1"
^DD(2,.1211,20,1,0)="TAD"
^DD(2,.1211,21,0)="^^5^5^2870728^^^^"
^DD(2,.1211,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1211,21,2,0)="enter the first line of the temporary street address for this"
^DD(2,.1211,21,3,0)="applicant [2-30 characters] otherwise nothing may be entered.  This"
^DD(2,.1211,21,4,0)="field cannot be deleted as long as the need for a temporary address"
^DD(2,.1211,21,5,0)="is indicated."
^DD(2,.1211,"DEL",1,0)="S DFN=DA D TADD^DGLOCK1 I '$D(X)"
^DD(2,.1211,"DT")="2890115"
^DD(2,.12111,0)="TEMPORARY ADDRESS COUNTY^NJ3,0XO^^.121;11^S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),""^"",5),1:0) K:'Z0 X Q:'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(2,.12111,1,0)="^.1"
^DD(2,.12111,1,1,0)="2^AENR12111^MUMPS"
^DD(2,.12111,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.12111,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.12111,1,1,3)=" DO NOT DELETE"
^DD(2,.12111,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.12111,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.12111,1,1,"%D",2,0)="enrollment."
^DD(2,.12111,1,1,"DT")="3050606"
^DD(2,.12111,2)="S Y(0)=Y S Y(0)=Y Q:Y']""""  S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),""^"",5),1:0) Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),""^"",3)"
^DD(2,.12111,2.1)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^DPT(D0,.121)):+$P(^(.121),""^"",5),1:0) Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),""^"",3)"
^DD(2,.12111,3)="Enter the county in which the applicant's temporary address exists."
^DD(2,.12111,4)="S ZD=D,X=""?"",Z0=$S($D(^DPT(D0,.121)):$P(^(.121),""^"",5),1:0) Q:'$D(^DIC(5,+Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD"
^DD(2,.12111,20,0)="^.3LA^1^1"
^DD(2,.12111,20,1,0)="TAD"
^DD(2,.12111,21,0)="^^3^3^2920305^"
^DD(2,.12111,21,1,0)="If a state is entered for the temporary residence, enter the county in"
^DD(2,.12111,21,2,0)="which that residence resides.  If a state does not exist for the temporary"
^DD(2,.12111,21,3,0)="address, a county can not be entered."
^DD(2,.12111,"DT")="3010110"
^DD(2,.12112,0)="TEMPORARY ZIP+4^FOX^^.121;12^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D TAD^DGLOCK I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.12112,1,0)="^.1"
^DD(2,.12112,1,1,0)="2^ATZIP4^MUMPS"
^DD(2,.12112,1,1,1)="D SET^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))"
^DD(2,.12112,1,1,2)="D KILL^DGREGDD1(DA,.1216,.121,6,$E(X,1,5))"
^DD(2,.12112,1,1,"%D",0)="^^2^2^2930505^^^^"
^DD(2,.12112,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of"
^DD(2,.12112,1,1,"%D",2,0)="this field."
^DD(2,.12112,1,1,"DT")="2930413"
^DD(2,.12112,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.12112,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.12112,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.12112,20,0)="^.3LA^1^1"
^DD(2,.12112,20,1,0)="TAD"
^DD(2,.12112,21,0)="^^2^2^2930603^^"
^DD(2,.12112,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.12112,21,2,0)="format (e.g. 12345-6789 or 123456789)."
^DD(2,.12112,23,0)="^^3^3^2930603^^"
^DD(2,.12112,23,1,0)="Related to other address fields on this node.  This field 'triggers'"
^DD(2,.12112,23,2,0)="the TEMPORARY ZIP CODE (#.1216) field, using the first 5 digits of"
^DD(2,.12112,23,3,0)=" this field."
^DD(2,.12112,"DEL",1,0)="S DFN=DA D TADD^DGLOCK1 I '$D(X)"
^DD(2,.12112,"DT")="2930603"
^DD(2,.12113,0)="TEMPORARY ADDRESS CHANGE DT/TM^DX^^.121;13^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(2,.12113,1,0)="^.1"
^DD(2,.12113,1,1,0)="2^AENR12113^MUMPS"
^DD(2,.12113,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.12113,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.12113,1,1,3)=" DO NOT DELETE"
^DD(2,.12113,1,1,"%D",0)="^.101^2^2^3050615^^^^"
^DD(2,.12113,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.12113,1,1,"%D",2,0)="enrollment."
^DD(2,.12113,1,1,"DT")="3050615"
^DD(2,.12113,3)="(No range limit on date)"
^DD(2,.12113,9)="^"
^DD(2,.12113,21,0)="^.001^2^2^3060508^^"
^DD(2,.12113,21,1,0)="This field will hold the date and time of the last Temporary Address"
^DD(2,.12113,21,2,0)="Update."
^DD(2,.12113,"DT")="3050615"
^DD(2,.12114,0)="TEMPORARY ADDRESS CHANGE SITE^P4'^DIC(4,^.121;14^Q"
^DD(2,.12114,21,0)="^^2^2^3050519^"
^DD(2,.12114,21,1,0)="This field will hold the Site that last changed this patient's temporary"
^DD(2,.12114,21,2,0)="address."
^DD(2,.12114,"DT")="3050519"
^DD(2,.1212,0)="TEMPORARY STREET [LINE 2]^FX^^.121;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK"
^DD(2,.1212,.1)=""
^DD(2,.1212,1,0)="^.1"
^DD(2,.1212,1,1,0)="2^AXR13^MUMPS"
^DD(2,.1212,1,1,1)="Q"
^DD(2,.1212,1,1,2)="S DGXRF=.1212 D ^DGDDC Q"
^DD(2,.1212,3)="Enter, if necessary, the second line of this applicants temporary address [2-30 characters]."
^DD(2,.1212,20,0)="^.3LA^1^1"
^DD(2,.1212,20,1,0)="TAD"
^DD(2,.1212,21,0)="^^5^5^2861007^^^^"
^DD(2,.1212,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1212,21,2,0)="enter the second line of the temporary street address [2-30"
^DD(2,.1212,21,3,0)="characters], if necessary, otherwise nothing may be entered.  This"
^DD(2,.1212,21,4,0)="field may not be deleted as long as the need for a temporary"
^DD(2,.1212,21,5,0)="address is indicated."
^DD(2,.1212,"DT")="2890115"
^DD(2,.1213,0)="TEMPORARY STREET [LINE 3]^FX^^.121;3^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK"
^DD(2,.1213,.1)=""
^DD(2,.1213,3)="Enter, if necessary, the third line of this applicants temporary address [2-30 characters]."
^DD(2,.1213,20,0)="^.3LA^1^1"
^DD(2,.1213,20,1,0)="TAD"
^DD(2,.1213,21,0)="^^5^5^2861007^^"
^DD(2,.1213,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1213,21,2,0)="enter the third line of the temporary street address [2-30"
^DD(2,.1213,21,3,0)="characters], if necessary, otherwise nothing may be entered."
^DD(2,.1213,21,4,0)="This field may not be deleted as long as the need for a temporary"
^DD(2,.1213,21,5,0)="address is indicated."
^DD(2,.1213,"DT")="2860728"
^DD(2,.1214,0)="TEMPORARY CITY^FX^^.121;4^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D TAD^DGLOCK"
^DD(2,.1214,.1)=""
^DD(2,.1214,3)="Enter the city in which this applicant is temporarily residing [2-30 characters]."
^DD(2,.1214,20,0)="^.3LA^1^1"
^DD(2,.1214,20,1,0)="TAD"
^DD(2,.1214,21,0)="^^4^4^2861007^^^^"
^DD(2,.1214,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1214,21,2,0)="enter the city in which the temporary address lies [2-30 characters],"
^DD(2,.1214,21,3,0)="otherwise nothing may be entered.  This field may not be deleted as"
^DD(2,.1214,21,4,0)="long as the need for a temporary address is indicated."
^DD(2,.1214,"DEL",1,0)="S DFN=DA D TADD^DGLOCK1 I '$D(X)"
^DD(2,.1214,"DT")="2860728"
^DD(2,.1215,0)="TEMPORARY STATE^P5'X^DIC(5,^.121;5^S DFN=DA D TAD^DGLOCK Q"
^DD(2,.1215,.1)=""
^DD(2,.1215,3)="Enter the state in which this applicant is temporarily residing."
^DD(2,.1215,20,0)="^.3LA^1^1"
^DD(2,.1215,20,1,0)="TAD"
^DD(2,.1215,21,0)="^^5^5^2870804^^^"
^DD(2,.1215,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1215,21,2,0)="select from the available listing the state in which the temporary"
^DD(2,.1215,21,3,0)="address lies, otherwise nothing may be entered.  This field may"
^DD(2,.1215,21,4,0)="not be deleted as long as the need for a temporary address is"
^DD(2,.1215,21,5,0)="indicated."
^DD(2,.1215,"DEL",1,0)="S DFN=DA D TADD^DGLOCK1 I '$D(X)"
^DD(2,.1215,"DT")="2860728"
^DD(2,.1216,0)="TEMPORARY ZIP CODE^FX^^.121;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D TAD^DGLOCK"
^DD(2,.1216,.1)=""
^DD(2,.1216,1,0)="^.1"
^DD(2,.1216,1,1,0)="2^ATZIP^MUMPS"
^DD(2,.1216,1,1,1)="D SET^DGREGDD1(DA,.12112,.121,12,X)"
^DD(2,.1216,1,1,2)="D KILL^DGREGDD1(DA,.12112,.121,12,X)"
^DD(2,.1216,1,1,"%D",0)="^^1^1^2930603^^^^"
^DD(2,.1216,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's value."
^DD(2,.1216,1,1,"DT")="2930413"
^DD(2,.1216,3)="Enter the zip code of the temporary address at which this patient is currently residing."
^DD(2,.1216,20,0)="^.3LA^1^1"
^DD(2,.1216,20,1,0)="TAD"
^DD(2,.1216,21,0)="^^4^4^2930603^^^^"
^DD(2,.1216,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1216,21,2,0)="enter the zip code assigned to the temporary city [5 numerics],"
^DD(2,.1216,21,3,0)="otherwise nothing may be entered.  This field may not be deleted"
^DD(2,.1216,21,4,0)="as long as the need for a temporary address is indicated."
^DD(2,.1216,23,0)="^^4^4^2930603^^"
^DD(2,.1216,23,1,0)="This five-digit zip code associated with the temporary address is "
^DD(2,.1216,23,2,0)="populated by the five or nine digit TEMPORARY ZIP+4 field (via a trigger)."
^DD(2,.1216,23,3,0)="The TEMPORARY ZIP CODE field will be made un-editiable several months"
^DD(2,.1216,23,4,0)="following the release of PIMS 5.3."
^DD(2,.1216,"DEL",1,0)="S DFN=DA D TADD^DGLOCK1 I '$D(X)"
^DD(2,.1216,"DT")="2930603"
^DD(2,.1217,0)="TEMPORARY ADDRESS START DATE^DX^^.121;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK"
^DD(2,.1217,.1)="START DATE OF TEMP ADDRESS"
^DD(2,.1217,1,0)="^.1"
^DD(2,.1217,1,1,0)="2^AGU1^MUMPS"
^DD(2,.1217,1,1,1)="Q"
^DD(2,.1217,1,1,2)="Q"
^DD(2,.1217,3)="Enter the date on which the patient will first be found at the temporary address indicated."
^DD(2,.1217,20,0)="^.3LA^1^1"
^DD(2,.1217,20,1,0)="TAD"
^DD(2,.1217,21,0)="^^5^5^2890113^^^"
^DD(2,.1217,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1217,21,2,0)="enter the date on which the applicant will commence being contacted"
^DD(2,.1217,21,3,0)="at the temporary address indicated, otherwise nothing may be"
^DD(2,.1217,21,4,0)="entered.  This field may not be deleted as long as the need for a"
^DD(2,.1217,21,5,0)="temporary address is indicated."
^DD(2,.1217,"DEL",1,0)="S DFN=DA D TADD^DGLOCK1 I '$D(X)"
^DD(2,.1217,"DT")="2890115"
^DD(2,.1218,0)="TEMPORARY ADDRESS END DATE^DX^^.121;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D TAD^DGLOCK I $D(X),(X<$P(^DPT(DFN,.121),""^"",7)) K X"
^DD(2,.1218,.1)="END DATE OF TEMP ADDRESS"
^DD(2,.1218,3)="Enter the date as of which the patient will no longer be at the temporary address indicated."
^DD(2,.1218,20,0)="^.3LA^1^1"
^DD(2,.1218,20,1,0)="TAD"
^DD(2,.1218,21,0)="^^5^5^2861007^^"
^DD(2,.1218,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1218,21,2,0)="enter the date as of which the applicant will no longer be contacted"
^DD(2,.1218,21,3,0)="at that temporary address, otherwise nothing may be entered.  This"
^DD(2,.1218,21,4,0)="field may not be deleted as long as the need for a temporary"
^DD(2,.1218,21,5,0)="address is indicated."
^DD(2,.1218,"DEL",1,0)="S DFN=DA D TADD^DGLOCK1 I '$D(X)"
^DD(2,.1218,"DT")="2890113"
^DD(2,.1219,0)="TEMPORARY PHONE NUMBER^FX^^.121;10^K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D TAD^DGLOCK"
^DD(2,.1219,.1)=""
^DD(2,.1219,1,0)="^.1"
^DD(2,.1219,1,1,0)="2^AENR1219^MUMPS"
^DD(2,.1219,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.1219,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.1219,1,1,3)=" DO NOT DELETE"
^DD(2,.1219,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.1219,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.1219,1,1,"%D",2,0)="enrollment."
^DD(2,.1219,1,1,"DT")="3050606"
^DD(2,.1219,3)="Enter the telephone number of the temporary address at which the patient is located [4-20 characters]."
^DD(2,.1219,20,0)="^.3LA^1^1"
^DD(2,.1219,20,1,0)="TAD"
^DD(2,.1219,21,0)="^^5^5^2861007^^"
^DD(2,.1219,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES"
^DD(2,.1219,21,2,0)="enter the telephone number at which the applicant can be"
^DD(2,.1219,21,3,0)="contacted [4-20 characters] during his/her absence from permanent"
^DD(2,.1219,21,4,0)="residence, otherwise nothing may be entered.  This field may not"
^DD(2,.1219,21,5,0)="be deleted as long as the need for a temporary address is indicated."
^DD(2,.1219,"DT")="3010108"
^DD(2,.122,0)="ADDRESS CHANGE USER^P200'^VA(200,^.11;17^Q"
^DD(2,.122,5,1,0)="2^.118^2"
^DD(2,.122,9)="^"
^DD(2,.122,21,0)="^^1^1^3030604^"
^DD(2,.122,21,1,0)="The name of the user who has changed this patient's primary address."
^DD(2,.122,"DT")="3030604"
^DD(2,.131,0)="PHONE NUMBER [RESIDENCE]^Fa^^.13;1^K:$L(X)>20!($L(X)<4) X"
^DD(2,.131,.1)=""
^DD(2,.131,1,0)="^.1^^-1"
^DD(2,.131,1,1,0)="2^AENR131^MUMPS"
^DD(2,.131,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.131,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.131,1,1,3)="DO NOT DELETE"
^DD(2,.131,1,1,"%D",0)="^^2^2^2971007^^^"
^DD(2,.131,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.131,1,1,"%D",2,0)="enrollment. "
^DD(2,.131,1,1,"DT")="2971007"
^DD(2,.131,1,301,0)="2^IVM131^MUMPS"
^DD(2,.131,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.131,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.131,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.131,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.131,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.131,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.131,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.131,1,301,"DT")="2930605"
^DD(2,.131,1,991,0)="2^AVAFC131^MUMPS"
^DD(2,.131,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".131;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.131,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".131;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.131,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.131,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.131,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.131,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.131,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.131,1,991,"%D",5,0)=" "
^DD(2,.131,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.131,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.131,1,991,"%D",8,0)="process."
^DD(2,.131,1,991,"%D",9,0)=" "
^DD(2,.131,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.131,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.131,1,991,"%D",12,0)="  "
^DD(2,.131,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.131,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.131,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.131,1,991,"DT")="2970825"
^DD(2,.131,1,992,0)="2^ADGRU131^MUMPS"
^DD(2,.131,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.131,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.131,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.131,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.131,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.131,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.131,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.131,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.131,1,992,"%D",6,0)="interface."
^DD(2,.131,1,992,"%D",7,0)=" "
^DD(2,.131,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.131,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.131,1,992,"DT")="2990920"
^DD(2,.131,3)="Enter the patients home telephone number [4-20 characters]."
^DD(2,.131,20,0)="^.3LA^1^1"
^DD(2,.131,20,1,0)="DEMOG"
^DD(2,.131,21,0)="^^2^2^2861007^"
^DD(2,.131,21,1,0)="Enter the telephone number [4-20 characters] to this applicant's"
^DD(2,.131,21,2,0)="place of residence."
^DD(2,.131,"AUDIT")="y"
^DD(2,.131,"DT")="2980520"
^DD(2,.1311,0)="CELLULAR NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;^.13;10^Q"
^DD(2,.1311,1,0)="^.1"
^DD(2,.1311,1,1,0)="^^TRIGGER^2^.13111"
^DD(2,.1311,1,1,1)="X ^DD(2,.1311,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.1311,1,1,1.4)"
^DD(2,.1311,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1311,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.1311,1,1,1.4)="S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR"
^DD(2,.1311,1,1,2)="X ^DD(2,.1311,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.1311,1,1,2.4)"
^DD(2,.1311,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.1311,0)),U,3),Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.1311,1,1,2.4)="S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,11)=DIV,DIH=2,DIG=.13111 D ^DICR"
^DD(2,.1311,1,1,"%D",0)="^^5^5^3060411^"
^DD(2,.1311,1,1,"%D",1,0)="This cross-reference will trigger the population of the CELLULAR NUMBER"
^DD(2,.1311,1,1,"%D",2,0)="CHANGE SITE field with the appropriate station number if the CELLULAR"
^DD(2,.1311,1,1,"%D",3,0)="NUMBER CHANGE SOURCE equals ""VAMC"".  The Cellular Number Change Site field"
^DD(2,.1311,1,1,"%D",4,0)="should be overwritten for cases where the site would be incorrect (i.e."
^DD(2,.1311,1,1,"%D",5,0)="uploading Z05 message)."
^DD(2,.1311,1,1,"CREATE CONDITION")="'CELLULAR NUMBER CHANGE SOURCE'=""VAMC"""
^DD(2,.1311,1,1,"CREATE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.1311,1,1,"DELETE CONDITION")="'CELLULAR NUMBER CHANGE SOURCE'=""VAMC"""
^DD(2,.1311,1,1,"DELETE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.1311,1,1,"DT")="3060410"
^DD(2,.1311,1,1,"FIELD")="#.13111"
^DD(2,.1311,3)="Please enter the source of the Cellular number change."
^DD(2,.1311,5,1,0)="2^.139^1"
^DD(2,.1311,21,0)="^^2^2^3060410^"
^DD(2,.1311,21,1,0)="This field will hold the source of the last Cellular number"
^DD(2,.1311,21,2,0)="change."
^DD(2,.1311,"DT")="3060410"
^DD(2,.13111,0)="CELLULAR NUMBER CHANGE SITE^P4'^DIC(4,^.13;11^Q"
^DD(2,.13111,3)="Please enter the site that last changed this patient's Cellular number."
^DD(2,.13111,5,1,0)="2^.1311^1"
^DD(2,.13111,21,0)="^^3^3^3060410^"
^DD(2,.13111,21,1,0)="This field will hold the site that last changed this"
^DD(2,.13111,21,2,0)="patient's Cellular number.  This field is only populated"
^DD(2,.13111,21,3,0)="when the Cellular Number Change Source is listed as VAMC."
^DD(2,.13111,"DT")="3060410"
^DD(2,.1312,0)="PAGER NUMBER CHANGE DT/TM^D^^.13;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.1312,1,0)="^.1"
^DD(2,.1312,1,1,0)="^^TRIGGER^2^.1313"
^DD(2,.1312,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,13)=DIV,DIH=2,DIG=.1313 D ^DICR"
^DD(2,.1312,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,13)=DIV,DIH=2,DIG=.1313 D ^DICR"
^DD(2,.1312,1,1,"%D",0)="^^2^2^3060411^"
^DD(2,.1312,1,1,"%D",1,0)="This cross reference will update the PAGER NUMBER CHANGE SOURCE field"
^DD(2,.1312,1,1,"%D",2,0)="(#.1313)."
^DD(2,.1312,1,1,"CREATE VALUE")="S X=""VAMC"""
^DD(2,.1312,1,1,"DELETE VALUE")="S X=""VAMC"""
^DD(2,.1312,1,1,"DT")="3060410"
^DD(2,.1312,1,1,"FIELD")="#.1313"
^DD(2,.1312,5,1,0)="2^.135^1"
^DD(2,.1312,21,0)="^^2^2^3060410^"
^DD(2,.1312,21,1,0)="This field will contain the date and time of the last"
^DD(2,.1312,21,2,0)="Pager number update."
^DD(2,.1312,"DT")="3060410"
^DD(2,.1313,0)="PAGER NUMBER CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;^.13;13^Q"
^DD(2,.1313,1,0)="^.1"
^DD(2,.1313,1,1,0)="^^TRIGGER^2^.1314"
^DD(2,.1313,1,1,1)="X ^DD(2,.1313,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.1313,1,1,1.4)"
^DD(2,.1313,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.1313,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.1313,1,1,1.4)="S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR"
^DD(2,.1313,1,1,2)="X ^DD(2,.1313,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.1313,1,1,2.4)"
^DD(2,.1313,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.1313,0)),U,3),Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,13)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.1313,1,1,2.4)="S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,14)=DIV,DIH=2,DIG=.1314 D ^DICR"
^DD(2,.1313,1,1,"%D",0)="^^5^5^3060411^"
^DD(2,.1313,1,1,"%D",1,0)="This cross-reference will trigger the population of the PAGER NUMBER"
^DD(2,.1313,1,1,"%D",2,0)="CHANGE SITE field with the appropriate station number if the PAGER NUMBER"
^DD(2,.1313,1,1,"%D",3,0)="CHANGE SOURCE equals ""VAMC"". The Pager Number Change Site field should be"
^DD(2,.1313,1,1,"%D",4,0)="overwritten for cases where the site would be incorrect (i.e. uploading"
^DD(2,.1313,1,1,"%D",5,0)="Z05 message)."
^DD(2,.1313,1,1,"CREATE CONDITION")="'PAGER NUMBER CHANGE SOURCE'=""VAMC"""
^DD(2,.1313,1,1,"CREATE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.1313,1,1,"DELETE CONDITION")="'PAGER NUMBER CHANGE SOURCE'=""VAMC"""
^DD(2,.1313,1,1,"DELETE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.1313,1,1,"DT")="3060410"
^DD(2,.1313,1,1,"FIELD")="#.1314"
^DD(2,.1313,3)="Please enter the source of the Pager number change."
^DD(2,.1313,5,1,0)="2^.1312^1"
^DD(2,.1313,21,0)="^^2^2^3060410^"
^DD(2,.1313,21,1,0)="This field will hold the source of the last Pager number"
^DD(2,.1313,21,2,0)="change."
^DD(2,.1313,"DT")="3060410"
^DD(2,.1314,0)="PAGER NUMBER CHANGE SITE^P4'^DIC(4,^.13;14^Q"
^DD(2,.1314,3)="Please enter the site that last changed this patient's Pager number."
^DD(2,.1314,5,1,0)="2^.1313^1"
^DD(2,.1314,21,0)="^^3^3^3060410^"
^DD(2,.1314,21,1,0)="This field will hold the site that last changed this"
^DD(2,.1314,21,2,0)="patient's Pager number.  This field is only populated"
^DD(2,.1314,21,3,0)="when the Pager Number Change Source is listed as VAMC."
^DD(2,.1314,"DT")="3060410"
^DD(2,.132,0)="PHONE NUMBER [WORK]^Fa^^.13;2^K:$L(X)>20!($L(X)<4) X"
^DD(2,.132,.1)="OFFICE PHONE"
^DD(2,.132,1,0)="^.1^^-1"
^DD(2,.132,1,1,0)="2^AENR132^MUMPS"
^DD(2,.132,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.132,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.132,1,1,3)="DO NOT DELETE"
^DD(2,.132,1,1,"%D",0)="^^2^2^2971007^^^"
^DD(2,.132,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.132,1,1,"%D",2,0)="enrollment. "
^DD(2,.132,1,1,"DT")="2971007"
^DD(2,.132,1,301,0)="2^IVM132^MUMPS"
^DD(2,.132,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.132,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.132,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.132,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.132,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.132,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.132,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.132,1,301,"DT")="2930605"
^DD(2,.132,1,991,0)="2^AVAFC132^MUMPS"
^DD(2,.132,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".132;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.132,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".132;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.132,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.132,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.132,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.132,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.132,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.132,1,991,"%D",5,0)=" "
^DD(2,.132,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.132,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.132,1,991,"%D",8,0)="process."
^DD(2,.132,1,991,"%D",9,0)=" "
^DD(2,.132,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.132,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.132,1,991,"%D",12,0)="  "
^DD(2,.132,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.132,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.132,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.132,1,991,"DT")="2970825"
^DD(2,.132,1,992,0)="2^ADGRU132^MUMPS"
^DD(2,.132,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.132,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.132,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.132,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.132,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.132,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.132,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.132,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.132,1,992,"%D",6,0)="interface."
^DD(2,.132,1,992,"%D",7,0)=" "
^DD(2,.132,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.132,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.132,1,992,"DT")="2990920"
^DD(2,.132,3)="If employed, enter the telephone number of this applicants place of employment [4-20 characters]."
^DD(2,.132,20,0)="^.3LA^1^1"
^DD(2,.132,20,1,0)="PEMP"
^DD(2,.132,21,0)="^^2^2^2861007^"
^DD(2,.132,21,1,0)="Enter the office phone number [4-20 characters] where this applicant"
^DD(2,.132,21,2,0)="can be reached while employed, if employed."
^DD(2,.132,"AUDIT")="y"
^DD(2,.132,"DT")="2971219"
^DD(2,.133,0)="EMAIL ADDRESS^F^^.13;3^K:$L(X)>50!($L(X)<3)!'(X?1.E1""@""1.E1"".""1.E) X"
^DD(2,.133,.1)="Email Address"
^DD(2,.133,1,0)="^.1"
^DD(2,.133,1,1,0)="^^TRIGGER^2^.136"
^DD(2,.133,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^DICR"
^DD(2,.133,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,6)=DIV,DIH=2,DIG=.136 D ^DICR"
^DD(2,.133,1,1,"%D",0)="^^2^2^3060411^"
^DD(2,.133,1,1,"%D",1,0)="This cross reference will update the EMAIL ADDRESS CHANGE DT/TM field "
^DD(2,.133,1,1,"%D",2,0)="with current date and time stamp each time this field is changed."
^DD(2,.133,1,1,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.133,1,1,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.133,1,1,"FIELD")="#.136"
^DD(2,.133,3)="Enter the applicant's email address [3-50 characters].  The entry must include an '@'."
^DD(2,.133,21,0)="^^2^2^3050111^"
^DD(2,.133,21,1,0)="Enter the applicant's email address [3-50 characters].  The entry must"
^DD(2,.133,21,2,0)="have an '@' in the format."
^DD(2,.133,"DT")="3060411"
^DD(2,.134,0)="PHONE NUMBER [CELLULAR]^FX^^.13;4^K:$L(X)>20!($L(X)<4) X I $D(X) N CTR,CHR,VAR S VAR=X F CTR=1:1:20 S CHR=$E(VAR,CTR) K:(""1234567890 -().""'[CHR) X"
^DD(2,.134,.1)="Cell Phone"
^DD(2,.134,1,0)="^.1"
^DD(2,.134,1,1,0)="^^TRIGGER^2^.139"
^DD(2,.134,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR"
^DD(2,.134,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,9)=DIV,DIH=2,DIG=.139 D ^DICR"
^DD(2,.134,1,1,"%D",0)="^^2^2^3060411^"
^DD(2,.134,1,1,"%D",1,0)="This cross reference will update the CELLULAR NUMBER CHANGE DT/TM field"
^DD(2,.134,1,1,"%D",2,0)="with current date and time stamp each time this field is changed."
^DD(2,.134,1,1,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.134,1,1,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.134,1,1,"FIELD")="#.139"
^DD(2,.134,3)="Answer must be 4-20 characters in length, be numeric with only spaces, parenthesis, periods, and dashes for separators."
^DD(2,.134,21,0)="^^2^2^3050111^"
^DD(2,.134,21,1,0)="Enter the telephone number [4-20 characters] to the applicant's"
^DD(2,.134,21,2,0)="mobile phone."
^DD(2,.134,"DT")="3060411"
^DD(2,.135,0)="PAGER NUMBER^FX^^.13;5^K:$L(X)>20!($L(X)<4) X I $D(X) N CTR,CHR,VAR S VAR=X F CTR=1:1:20 S CHR=$E(VAR,CTR) K:(""1234567890 -().""'[CHR) X"
^DD(2,.135,.1)="Pager #"
^DD(2,.135,1,0)="^.1"
^DD(2,.135,1,1,0)="^^TRIGGER^2^.1312"
^DD(2,.135,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,12)=DIV,DIH=2,DIG=.1312 D ^DICR"
^DD(2,.135,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,12)=DIV,DIH=2,DIG=.1312 D ^DICR"
^DD(2,.135,1,1,"%D",0)="^.101^2^2^3060411^^"
^DD(2,.135,1,1,"%D",1,0)="This cross reference will update the PAGER NUMBER CHANGE DT/TM field with"
^DD(2,.135,1,1,"%D",2,0)="current date and time stamp each time this field is changed."
^DD(2,.135,1,1,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.135,1,1,"DELETE VALUE")="S X=$$NOW^XLFDT()"
^DD(2,.135,1,1,"FIELD")="#.1312"
^DD(2,.135,3)="Answer must be 4-20 characters in length, be numeric with only spaces, parenthesis, periods, and dashes for separators."
^DD(2,.135,21,0)="^^1^1^3050111^"
^DD(2,.135,21,1,0)="Enter the applicant's pager number [4-20 characters]."
^DD(2,.135,23,0)="^.001^1^1^3050111^^^"
^DD(2,.135,23,1,0)="Contains between 4 and 20 Free Text characters."
^DD(2,.135,"DT")="3060411"
^DD(2,.136,0)="EMAIL ADDRESS CHANGE DT/TM^D^^.13;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.136,1,0)="^.1"
^DD(2,.136,1,1,0)="^^TRIGGER^2^.137"
^DD(2,.136,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,7)=DIV,DIH=2,DIG=.137 D ^DICR"
^DD(2,.136,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,7)=DIV,DIH=2,DIG=.137 D ^DICR"
^DD(2,.136,1,1,"%D",0)="^^2^2^3060411^"
^DD(2,.136,1,1,"%D",1,0)="This cross reference will update the EMAIL ADDRESS CHANGE SOURCE field "
^DD(2,.136,1,1,"%D",2,0)="(#.137)."
^DD(2,.136,1,1,"CREATE VALUE")="S X=""VAMC"""
^DD(2,.136,1,1,"DELETE VALUE")="S X=""VAMC"""
^DD(2,.136,1,1,"FIELD")="#.137"
^DD(2,.136,5,1,0)="2^.133^1"
^DD(2,.136,21,0)="^^2^2^3060410^"
^DD(2,.136,21,1,0)="This field will contain the date and time of the last"
^DD(2,.136,21,2,0)="EMAIL address update."
^DD(2,.136,"DT")="3060410"
^DD(2,.137,0)="EMAIL ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;^.13;7^Q"
^DD(2,.137,1,0)="^.1"
^DD(2,.137,1,1,0)="^^TRIGGER^2^.138"
^DD(2,.137,1,1,1)="X ^DD(2,.137,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.137,1,1,1.4)"
^DD(2,.137,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.137,0)),U,3) S X='$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.137,1,1,1.4)="S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR"
^DD(2,.137,1,1,2)="X ^DD(2,.137,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.137,1,1,2.4)"
^DD(2,.137,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.137,0)),U,3),Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X='$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))'=""VAMC"""
^DD(2,.137,1,1,2.4)="S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,8)=DIV,DIH=2,DIG=.138 D ^DICR"
^DD(2,.137,1,1,"%D",0)="^^5^5^3060411^"
^DD(2,.137,1,1,"%D",1,0)="This cross-reference will trigger the population of the EMAIL ADDRESS"
^DD(2,.137,1,1,"%D",2,0)="CHANGE SITE field with the appropriate station number if the EMAIL ADDRESS"
^DD(2,.137,1,1,"%D",3,0)="CHANGE SOURCE equals ""VAMC"". The EMAIL ADDRESS Change Site field should be"
^DD(2,.137,1,1,"%D",4,0)="overwritten for cases where the site would be incorrect (i.e. uploading"
^DD(2,.137,1,1,"%D",5,0)="Z05 message)."
^DD(2,.137,1,1,"CREATE CONDITION")="'EMAIL ADDRESS CHANGE SOURCE'=""VAMC"""
^DD(2,.137,1,1,"CREATE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.137,1,1,"DELETE CONDITION")="'EMAIL ADDRESS CHANGE SOURCE'=""VAMC"""
^DD(2,.137,1,1,"DELETE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.137,1,1,"FIELD")="#.138"
^DD(2,.137,3)="Please enter the source of the EMAIL address change."
^DD(2,.137,5,1,0)="2^.136^1"
^DD(2,.137,21,0)="^^1^1^3060410^"
^DD(2,.137,21,1,0)="This field will hold the source of the last EMAIL address change."
^DD(2,.137,"DT")="3060410"
^DD(2,.138,0)="EMAIL ADDRESS CHANGE SITE^P4'^DIC(4,^.13;8^Q"
^DD(2,.138,3)="Please enter the site that last changed this patient's EMAIL address."
^DD(2,.138,5,1,0)="2^.137^1"
^DD(2,.138,21,0)="^^3^3^3060410^"
^DD(2,.138,21,1,0)="This field will hold the site that last changed this"
^DD(2,.138,21,2,0)="patient's EMAIL address.  This field is only populated"
^DD(2,.138,21,3,0)="when the EMAIL Address Source is listed as VAMC."
^DD(2,.138,"DT")="3060410"
^DD(2,.139,0)="CELLULAR NUMBER CHANGE DT/TM^D^^.13;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.139,1,0)="^.1"
^DD(2,.139,1,1,0)="^^TRIGGER^2^.1311"
^DD(2,.139,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,10)=DIV,DIH=2,DIG=.1311 D ^DICR"
^DD(2,.139,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""VAMC"" S DIH=$G(^DPT(DIV(0),.13)),DIV=X S $P(^(.13),U,10)=DIV,DIH=2,DIG=.1311 D ^DICR"
^DD(2,.139,1,1,"CREATE VALUE")="S X=""VAMC"""
^DD(2,.139,1,1,"DELETE VALUE")="S X=""VAMC"""
^DD(2,.139,1,1,"FIELD")="#.1311"
^DD(2,.139,5,1,0)="2^.134^1"
^DD(2,.139,21,0)="^^2^2^3060410^"
^DD(2,.139,21,1,0)="This field will contain the date and time of the last"
^DD(2,.139,21,2,0)="Cellular number update."
^DD(2,.139,"DT")="3060410"
^DD(2,.14,0)="CURRENT MEANS TEST STATUS^P408.32'I^DG(408.32,^0;14^Q"
^DD(2,.14,1,0)="^.1^^-1"
^DD(2,.14,1,1,0)="2^ACS"
^DD(2,.14,1,1,1)="S ^DPT(""ACS"",$E(X,1,30),DA)="""""
^DD(2,.14,1,1,2)="K ^DPT(""ACS"",$E(X,1,30),DA)"
^DD(2,.14,1,1,"DT")="2911127"
^DD(2,.14,3)="This field is computed by the system.  It contains the current means test status for a patient."
^DD(2,.14,21,0)="^^2^2^2920327^"
^DD(2,.14,21,1,0)="This field is computed by the system.  It contains the current"
^DD(2,.14,21,2,0)="means test status for a patient."
^DD(2,.14,23,0)="^^4^4^2920327^"
^DD(2,.14,23,1,0)="This field is computed by the system.  It is updated by a mumps"
^DD(2,.14,23,2,0)="cross-reference on the 'STATUS' field (#.03) in the Annual Means"
^DD(2,.14,23,3,0)="Test file (#408.31).  The current means test status is based on"
^DD(2,.14,23,4,0)="the status of the last means test on file for the patient."
^DD(2,.14,"DT")="2920520"
^DD(2,.141,0)="CONFIDENTIAL ADDRESS CATEGORY^2.141S^^.14;0"
^DD(2,.141,21,0)="^.001^2^2^3030313^^^^"
^DD(2,.141,21,1,0)="This is a multiple valued field containing the confidential address"
^DD(2,.141,21,2,0)="categories for this applicant.  "
^DD(2,.14105,0)="CONFIDENTIAL ADDRESS ACTIVE?^RSX^Y:YES;N:NO;^.141;9^S DFN=DA I X=""N"" D CADD^DGLOCK3"
^DD(2,.14105,1,0)="^.1"
^DD(2,.14105,1,1,0)="2^AXR31^MUMPS"
^DD(2,.14105,1,1,1)="Q"
^DD(2,.14105,1,1,2)="S DGXRF=.14105 D ^DGDDC Q"
^DD(2,.14105,1,1,"DT")="3030113"
^DD(2,.14105,1,2,0)="2^AENR4105^MUMPS"
^DD(2,.14105,1,2,1)="I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)"
^DD(2,.14105,1,2,2)="I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)"
^DD(2,.14105,1,2,"%D",0)="^.101^4^4^3060828^^"
^DD(2,.14105,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.14105,1,2,"%D",2,0)="enrollment.  It is necessary to have this trigger in addition to the"
^DD(2,.14105,1,2,"%D",3,0)="triggers on CONFIDENTIAL ADDRESS CATEGORY and CONFIDENTIAL ADDRESS CHANGE"
^DD(2,.14105,1,2,"%D",4,0)="DT/TM because of the order in which the fields are input."
^DD(2,.14105,1,2,"DT")="3060518"
^DD(2,.14105,3)="Enter 'Y' if you want to enter or edit confidential address data."
^DD(2,.14105,21,0)="^.001^4^4^3030314^^^"
^DD(2,.14105,21,1,0)="Enter 'Y' if you wish to enter a confidential address for this applicant"
^DD(2,.14105,21,2,0)="at this time.  A 'NO' response will cause the Confidential Start Date "
^DD(2,.14105,21,3,0)="and Confidential End Date fields to be automatically deleted while other"
^DD(2,.14105,21,4,0)="confidential address information will remain on file for future use."
^DD(2,.14105,"DT")="3060829"
^DD(2,.1411,0)="CONFIDENTIAL STREET [LINE 1]^FX^^.141;1^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3"
^DD(2,.1411,1,0)="^.1^^-1"
^DD(2,.1411,1,1,0)="2^AXR32^MUMPS"
^DD(2,.1411,1,1,1)="Q"
^DD(2,.1411,1,1,2)="S DGXRF=.1411 D ^DGDDC Q"
^DD(2,.1411,1,1,"DT")="3030113"
^DD(2,.1411,3)="Enter the first line of the applicant's confidential street address [2-30 characters]."
^DD(2,.1411,21,0)="^^4^4^3030311^"
^DD(2,.1411,21,1,0)="If the 'Confidential Address Active' prompt is answered YES, the"
^DD(2,.1411,21,2,0)="user will be prompted for the first line of the confidential street"
^DD(2,.1411,21,3,0)="address.  This field cannot be deleted as long as the need for a"
^DD(2,.1411,21,4,0)="confidential address is indicated."
^DD(2,.1411,"DEL",1,0)="S DFN=DA D CADD1^DGLOCK3 I '$D(X)"
^DD(2,.1411,"DT")="3060829"
^DD(2,.14111,0)="CONFIDENTIAL ADDRESS COUNTY^NJ3,0OX^^.141;11^N Z0,DIC S Z0=+$P($G(^DPT(D0,.141)),""^"",5) K:'Z0 X Q:'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X"
^DD(2,.14111,1,0)="^.1^^0"
^DD(2,.14111,1,1,0)="2^AENR14111^MUMPS"
^DD(2,.14111,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.14111,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.14111,1,1,3)=" DO NOT DELETE"
^DD(2,.14111,1,1,"%D",0)="^.101^2^2^3050608^^^^"
^DD(2,.14111,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.14111,1,1,"%D",2,0)="enrollment."
^DD(2,.14111,1,1,"DT")="3050608"
^DD(2,.14111,2)="S Y(0)=Y S Y(0)=Y Q:Y']""""  N Z0 S Z0=$P($G(^DPT(D0,.141)),""^"",5) Q:'Z0  S Y=$P($G(^DIC(5,Z0,1,Y,0)),""^"",3)"
^DD(2,.14111,2.1)="S Y(0)=Y Q:Y']""""  N Z0 S Z0=$P($G(^DPT(D0,.141)),""^"",5) Q:'Z0  S Y=$P($G(^DIC(5,Z0,1,Y,0)),""^"",3)"
^DD(2,.14111,3)="Enter a valid county for the applicant's confidential address."
^DD(2,.14111,4)="N Z0,DIC S X=""?"",Z0=+$P($G(^DPT(D0,.141)),""^"",5) Q:'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC"
^DD(2,.14111,21,0)="^.001^2^2^3030313^^"
^DD(2,.14111,21,1,0)="If the 'Confidential Address Active' prompt is answered YES,"
^DD(2,.14111,21,2,0)="enter the county for the applicant's confidential address."
^DD(2,.14111,"DT")="3060829"
^DD(2,.14112,0)="CONFIDENTIAL ADDR CHANGE DT/TM^DX^^.141;12^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(2,.14112,1,0)="^.1"
^DD(2,.14112,1,1,0)="2^AENR14112^MUMPS"
^DD(2,.14112,1,1,1)="I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)"
^DD(2,.14112,1,1,2)="I $$EECONF^DGRPCTRG(DFN) D EVENT^IVMPLOG(DA)"
^DD(2,.14112,1,1,3)=" DO NOT DELETE"
^DD(2,.14112,1,1,"%D",0)="^.101^2^2^3060828^^^^"
^DD(2,.14112,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.14112,1,1,"%D",2,0)="enrollment."
^DD(2,.14112,1,1,"DT")="3060501"
^DD(2,.14112,1,2,0)="^^TRIGGER^2^.14113"
^DD(2,.14112,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.141)):^(.141),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.14112,1,2,1.4)"
^DD(2,.14112,1,2,1.4)="S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,13)=DIV,DIH=2,DIG=.14113 D ^DICR"
^DD(2,.14112,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.141)):^(.141),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,"""")) X ^DD(2,.14112,1,2,2.4)"
^DD(2,.14112,1,2,2.4)="S DIH=$G(^DPT(DIV(0),.141)),DIV=X S $P(^(.141),U,13)=DIV,DIH=2,DIG=.14113 D ^DICR"
^DD(2,.14112,1,2,"CREATE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.14112,1,2,"DELETE VALUE")="S X=$$GETSITE^DGMTU4($G(DUZ)) I X S X=$O(^DIC(4,""D"",X,""""))"
^DD(2,.14112,1,2,"DT")="3060501"
^DD(2,.14112,1,2,"FIELD")="#.14113"
^DD(2,.14112,9)="^"
^DD(2,.14112,21,0)="^^2^2^3050519^"
^DD(2,.14112,21,1,0)="This field will hold the date and time of the last Confidential Address"
^DD(2,.14112,21,2,0)="Update."
^DD(2,.14112,"DT")="3060501"
^DD(2,.14113,0)="CONFIDENTIAL ADDR CHANGE SITE^P4'^DIC(4,^.141;13^Q"
^DD(2,.14113,5,1,0)="2^.14112^2"
^DD(2,.14113,21,0)="^^2^2^3050519^"
^DD(2,.14113,21,1,0)="This field will hold the Site that last changed this patient's"
^DD(2,.14113,21,2,0)="confidential address."
^DD(2,.14113,"DT")="3050519"
^DD(2,.1412,0)="CONFIDENTIAL STREET [LINE 2]^FX^^.141;2^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3"
^DD(2,.1412,1,0)="^.1^^-1"
^DD(2,.1412,1,1,0)="2^AXR33^MUMPS"
^DD(2,.1412,1,1,1)="Q"
^DD(2,.1412,1,1,2)="S DGXRF=.1412 D ^DGDDC Q"
^DD(2,.1412,1,1,"DT")="3030113"
^DD(2,.1412,3)="If necessary, enter the second line of this applicant's confidential address [2-30 characters]."
^DD(2,.1412,21,0)="^^4^4^3030311^"
^DD(2,.1412,21,1,0)="If the 'Confidential Address Active' prompt is answered YES,"
^DD(2,.1412,21,2,0)="the user will be prompted for the second line of the confidential "
^DD(2,.1412,21,3,0)="street address [2-30 characters].  The second line of the street"
^DD(2,.1412,21,4,0)="address is optional and may be left blank."
^DD(2,.1412,"DT")="3060829"
^DD(2,.1413,0)="CONFIDENTIAL STREET [LINE 3]^FX^^.141;3^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3"
^DD(2,.1413,1,0)="^.1^^0"
^DD(2,.1413,3)="If necessary, enter the third line of this applicant's confidential street address [2-30 characters]"
^DD(2,.1413,21,0)="^^4^4^3030312^"
^DD(2,.1413,21,1,0)="If the 'Confidential Address Active' prompt is answered YES,"
^DD(2,.1413,21,2,0)="the user will be prompted for the third line of the confidential        "
^DD(2,.1413,21,3,0)="street address.  The third line of the street address is optional"
^DD(2,.1413,21,4,0)="and may be left blank."
^DD(2,.1413,"DT")="3060829"
^DD(2,.1414,0)="CONFIDENTIAL ADDRESS CITY^FX^^.141;4^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D CAD^DGLOCK3"
^DD(2,.1414,1,0)="^.1^^0"
^DD(2,.1414,3)="Enter the city for the applicant's confidential address [2-30 characters]."
^DD(2,.1414,21,0)="^^4^4^3030311^"
^DD(2,.1414,21,1,0)="If the 'Confidential Address Active' prompt is answered YES, enter"
^DD(2,.1414,21,2,0)="the confidential address city for this applicant [2-30 characters].  "
^DD(2,.1414,21,3,0)="This field may not be deleted as long as the need for a confidential"
^DD(2,.1414,21,4,0)="address is indicated."
^DD(2,.1414,"DEL",1,0)="S DFN=DA D CADD1^DGLOCK3 I '$D(X)"
^DD(2,.1414,"DT")="3060829"
^DD(2,.1415,0)="CONFIDENTIAL ADDRESS STATE^P5'X^DIC(5,^.141;5^S DFN=DA D CAD^DGLOCK3 Q"
^DD(2,.1415,1,0)="^.1^^0"
^DD(2,.1415,3)="Enter the State for the applicant's confidential address."
^DD(2,.1415,21,0)="^^4^4^3030311^"
^DD(2,.1415,21,1,0)="If the 'Confidential Address Active' prompt is answered YES,"
^DD(2,.1415,21,2,0)="the user will be asked to select the confidential address state"
^DD(2,.1415,21,3,0)="from the available listing.  This field may not be deleted as "
^DD(2,.1415,21,4,0)="long as the need for a confidential address is indicated."
^DD(2,.1415,"DEL",1,0)="S DFN=DA D CADD1^DGLOCK3 I '$D(X)"
^DD(2,.1415,"DT")="3060829"
^DD(2,.1416,0)="CONFIDENTIAL ADDRESS ZIP CODE^FXO^^.141;6^K:$L(X)>20!($L(X)<5) X I $D(X) S DFN=DA D CAD^DGLOCK3 I $D(X) D ZIPIN^VAFADDR"
^DD(2,.1416,1,0)="^.1^^0"
^DD(2,.1416,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.1416,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.1416,3)="Answer with either the 5 digit or 9 digit zip code."
^DD(2,.1416,21,0)="^.001^4^4^3030314^^"
^DD(2,.1416,21,1,0)="If the 'Confidential Address Active' prompt is answered YES,"
^DD(2,.1416,21,2,0)="the user will be asked to enter the zip code assigned to the"
^DD(2,.1416,21,3,0)="city for the confidential address.  This field may not be deleted"
^DD(2,.1416,21,4,0)="as long as the need for a confidential address is indicated."
^DD(2,.1416,"DEL",1,0)="S DFN=DA D CADD1^DGLOCK3 I '$D(X)"
^DD(2,.1416,"DT")="3060829"
^DD(2,.1417,0)="CONFIDENTIAL START DATE^DX^^.141;7^S %DT=""EX"",%DT(0)=DT D ^%DT S X=Y K:Y<1 X K %DT(0) I $D(X) S DFN=DA D CAD^DGLOCK3"
^DD(2,.1417,1,0)="^.1^^0"
^DD(2,.1417,3)="Enter the date to begin contacting the applicant at the confidential address.  Date cannot be in the past."
^DD(2,.1417,21,0)="^^3^3^3060829^"
^DD(2,.1417,21,1,0)="If the 'Confidential Address Active' prompt is answered YES, "
^DD(2,.1417,21,2,0)="enter the date to begin contacting the applicant at the"
^DD(2,.1417,21,3,0)="confidential address."
^DD(2,.1417,23,0)="^^10^10^3060829^"
^DD(2,.1417,23,1,0)="This field contains an input transform which does a number of things.  It "
^DD(2,.1417,23,2,0)="validates the date entered, does not allow a date prior to the current "
^DD(2,.1417,23,3,0)="date, and prevents changes to this field if the Confidential Address is "
^DD(2,.1417,23,4,0)="flagged INACTIVE."
^DD(2,.1417,23,5,0)=" "
^DD(2,.1417,23,6,0)="Special note: the input transform sets %DT(0)=DT to validate the date "
^DD(2,.1417,23,7,0)="entered.  Because changes to this field will update the CONFIDENTIAL"
^DD(2,.1417,23,8,0)="ADDRESS CHANGE DT/TM field, it is necessary to kill %DT(0) after the"
^DD(2,.1417,23,9,0)="validation.  This variable, if valued, can prevent EVENT^IVMPLOG from"
^DD(2,.1417,23,10,0)="setting the transmit flag if only the Start and End dates are changed."
^DD(2,.1417,"DEL",1,0)="S DFN=DA D CADD1^DGLOCK3 I '$D(X)"
^DD(2,.1417,"DT")="3070801"
^DD(2,.1418,0)="CONFIDENTIAL END DATE^DX^^.141;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D CAD^DGLOCK3 I $D(X),(X<$P(^DPT(DFN,.141),""^"",7)) K X"
^DD(2,.1418,1,0)="^.1^^0"
^DD(2,.1418,3)="Enter the date the applicant will no longer be contacted at the confidential address.  End date must be after start date."
^DD(2,.1418,21,0)="^.001^2^2^3030314^^"
^DD(2,.1418,21,1,0)="If the 'Confidential Address Active' prompt is answered YES, enter "
^DD(2,.1418,21,2,0)="the date the applicant will no longer be contacted at this address. "
^DD(2,.1418,"DEL",1,0)="S DFN=DA D CADD1^DGLOCK3 I '$D(X)"
^DD(2,.1418,"DT")="3070801"
^DD(2,.152,0)="INELIGIBLE DATE^DX^^.15;2^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK"
^DD(2,.152,.1)=""
^DD(2,.152,1,0)="^.1"
^DD(2,.152,1,1,0)="^^TRIGGER^2^.091"
^DD(2,.152,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,10) S DIU=X K Y X ^DD(2,.152,1,1,1.1) X ^DD(2,.152,1,1,1.4)"
^DD(2,.152,1,1,1.1)="S X=DIV S X=DIU_""**INELIGIBLE**"""
^DD(2,.152,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.152,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,10) S DIU=X K Y X ^DD(2,.152,1,1,2.1) X ^DD(2,.152,1,1,2.4)"
^DD(2,.152,1,1,2,9.2)="S X=DIU,Y(1)=X S X=""**INELIGIBLE**"",Y(2)=X S X=1,X=$P(Y(1),Y(2),X),Y(3)=X S X=DIU,Y(4)=X S X=""**INELIGIBLE**"",Y(5)=X S X=2,Y(6)=X S X=99"
^DD(2,.152,1,1,2.1)="S X=DIV X ^DD(2,.152,1,1,2,9.2) S X=$P(Y(4),Y(5),Y(6),X) S Y=X,X=Y(3),X=X_Y"
^DD(2,.152,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.152,1,1,"CREATE VALUE")="REMARKS_""**INELIGIBLE**"""
^DD(2,.152,1,1,"DELETE VALUE")="$P(REMARKS,""**INELIGIBLE**"",1)_$P(REMARKS,""**INELIGIBLE**"",2,99)"
^DD(2,.152,1,1,"FIELD")="REMARKS"
^DD(2,.152,1,2,0)="2^AENR152^MUMPS"
^DD(2,.152,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.152,1,2,2)="D AUTOUPD^DGENA2(DA,2)"
^DD(2,.152,1,2,3)="DO NOT DELETE"
^DD(2,.152,1,2,"%D",0)="^^3^3^2981016^^^^"
^DD(2,.152,1,2,"%D",1,0)=" "
^DD(2,.152,1,2,"%D",2,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.152,1,2,"%D",3,0)="enrollment."
^DD(2,.152,1,2,"DT")="2981016"
^DD(2,.152,1,3,0)="2^AXR7^MUMPS"
^DD(2,.152,1,3,1)="Q"
^DD(2,.152,1,3,2)="S DGXRF=.152 D ^DGDDC Q"
^DD(2,.152,3)="Enter the date this patient was identified as being ineligble for treatment."
^DD(2,.152,20,0)="^.3LA^1^1"
^DD(2,.152,20,1,0)="IPT"
^DD(2,.152,21,0)="^^3^3^2861006^"
^DD(2,.152,21,1,0)="If this applicant is ineligible for treatment enter the effective date."
^DD(2,.152,21,2,0)="Only users who hold the designated security key may enter/edit this"
^DD(2,.152,21,3,0)="field."
^DD(2,.152,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.152,"DT")="2981016"
^DD(2,.153,0)="MISSING PERSON DATE^DX^^.15;3^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(2,.153,.1)="DATE REPORTED AS MISSING PERSON"
^DD(2,.153,1,0)="^.1"
^DD(2,.153,1,1,0)="2^AXR8^MUMPS"
^DD(2,.153,1,1,1)="Q"
^DD(2,.153,1,1,2)="S DGXRF=.153 D ^DGDDC Q"
^DD(2,.153,3)="Enter the date this patient was identified as being a missing person."
^DD(2,.153,20,0)="^.3LA^1^1"
^DD(2,.153,20,1,0)="MPT"
^DD(2,.153,21,0)="^^1^1^2911224^^"
^DD(2,.153,21,1,0)="This field contains the date this patient was initially listed as missing."
^DD(2,.153,"DT")="2900418"
^DD(2,.16,0)="MISSING OR INELIGIBLE^2.16A^^.16;0"
^DD(2,.16,20,0)="^.3LA^3^2"
^DD(2,.16,20,2,0)="IPT"
^DD(2,.16,20,3,0)="MPT"
^DD(2,.16,21,0)="^^2^2^2911224^^"
^DD(2,.16,21,1,0)="This is a word processing field to contain information on the patient's"
^DD(2,.16,21,2,0)="ineligibility or information about this missing patient."
^DD(2,.1651,0)="INELIGIBLE TWX SOURCE^RSX^1:VAMC;2:REGIONAL OFFICE;3:RPC;^INE;1^S DFN=DA D INE^DGLOCK"
^DD(2,.1651,.1)="TWX SOURCE-INELIGIBLE"
^DD(2,.1651,3)="The source of the TWX which informed you this patient is ineligible for treatment."
^DD(2,.1651,20,0)="^.3LA^1^1"
^DD(2,.1651,20,1,0)="IPT"
^DD(2,.1651,21,0)="^^5^5^2861007^^^"
^DD(2,.1651,21,1,0)="Choose from the available listing the source of the TWX which"
^DD(2,.1651,21,2,0)="informed you that this applicant was ineligible for treatment."
^DD(2,.1651,21,3,0)="An ineligible date must be specified in order to enter/edit this"
^DD(2,.1651,21,4,0)="field and the user must hold the designated security key.  This"
^DD(2,.1651,21,5,0)="field may not be deleted as long as an ineligible date is on file."
^DD(2,.1651,"DEL",1,0)="S DFN=DA D INED^DGLOCK1 I '$D(X)"
^DD(2,.1651,"DT")="2860806"
^DD(2,.1653,0)="INELIGIBLE TWX CITY^FX^^INE;3^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D INE^DGLOCK"
^DD(2,.1653,.1)="TWX CITY-INELIGIBLE"
^DD(2,.1653,3)="The city from which the TWX informing you of this patients ineligibility originated [3-30 characters]."
^DD(2,.1653,20,0)="^.3LA^1^1"
^DD(2,.1653,20,1,0)="IPT"
^DD(2,.1653,21,0)="^^5^5^2861117^^^"
^DD(2,.1653,21,1,0)="Enter the city from which the TWX which informed you this applicant"
^DD(2,.1653,21,2,0)="was ineligible for treatment originated [3-30 characters].  An ineligible"
^DD(2,.1653,21,3,0)="date must be specified in order to enter/edit this field and the user"
^DD(2,.1653,21,4,0)="must hold the designated security key.  This field may not be deleted"
^DD(2,.1653,21,5,0)="as long as an ineligible date is on file."
^DD(2,.1653,"DEL",1,0)="S DFN=DA D INED^DGLOCK1 I '$D(X)"
^DD(2,.1653,"DT")="2860806"
^DD(2,.1654,0)="INELIGIBLE TWX STATE^P5'X^DIC(5,^INE;4^S DFN=DA D INE^DGLOCK"
^DD(2,.1654,.1)="TWX STATE-INELIGIBLE"
^DD(2,.1654,3)="The state from which the TWX informing you of this patients ineligiblity originated."
^DD(2,.1654,20,0)="^.3LA^1^1"
^DD(2,.1654,20,1,0)="IPT"
^DD(2,.1654,21,0)="^^5^5^2861006^"
^DD(2,.1654,21,1,0)="Enter the state from which the TWX which informed you this applicant"
^DD(2,.1654,21,2,0)="was ineligible for treatment originated.  An ineligible date must be"
^DD(2,.1654,21,3,0)="specified in order to enter/edit this field and the user must hold"
^DD(2,.1654,21,4,0)="the designated security key.  This field may not be deleted as long"
^DD(2,.1654,21,5,0)="as an ineligible date is on file."
^DD(2,.1654,"DEL",1,0)="S DFN=DA D INED^DGLOCK1 I '$D(X)"
^DD(2,.1654,"DT")="2860806"
^DD(2,.1656,0)="INELIGIBLE VARO DECISION^FX^^INE;6^K:$L(X)>75!($L(X)<3) X I $D(X) S DFN=DA D INE^DGLOCK"
^DD(2,.1656,.1)="VARO DECISION-INELIGIBLE"
^DD(2,.1656,1,0)="^.1"
^DD(2,.1656,1,1,0)="2^AENR1656^MUMPS"
^DD(2,.1656,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.1656,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.1656,1,1,3)=" DO NOT DELETE"
^DD(2,.1656,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.1656,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.1656,1,1,"%D",2,0)="enrollment."
^DD(2,.1656,1,1,"DT")="3050606"
^DD(2,.1656,3)="The decision made by the VARO concerning this patient's ineligibility [3-75 characters]."
^DD(2,.1656,20,0)="^.3LA^1^1"
^DD(2,.1656,20,1,0)="IPT"
^DD(2,.1656,21,0)="^^5^5^2861006^"
^DD(2,.1656,21,1,0)="Enter the VARO decision concerning this applicant's ineligibility"
^DD(2,.1656,21,2,0)="[between 3-75 characters].  An ineligible date must be specified in"
^DD(2,.1656,21,3,0)="order to enter/edit this field and the user must hold the designated"
^DD(2,.1656,21,4,0)="security key.  This field may not be deleted as long as an ineligible"
^DD(2,.1656,21,5,0)="date is on file."
^DD(2,.1656,"DEL",1,0)="S DFN=DA D INED^DGLOCK1 I '$D(X)"
^DD(2,.1656,"DT")="2860806"
^DD(2,.1657,0)="MISSING PERSON TWX SOURCE^S^1:VAMC;2:REGIONAL OFFICE;3:RPC;^INE;7^Q"
^DD(2,.1657,.1)="TWX SOURCE-MISSING PERSON"
^DD(2,.1657,3)="The location from which the TWX originated advising you that this patient was missing."
^DD(2,.1657,20,0)="^.3LA^1^1"
^DD(2,.1657,20,1,0)="MPT"
^DD(2,.1657,21,0)="^^2^2^2911224^"
^DD(2,.1657,21,1,0)="If this patient is missing, enter the source of the TWX that originally"
^DD(2,.1657,21,2,0)="listed the patient as missing."
^DD(2,.1657,"DT")="2880527"
^DD(2,.1658,0)="MISSING PERSON TWX CITY^F^^INE;8^K:$L(X)>30!($L(X)<3) X"
^DD(2,.1658,.1)="TWX CITY-MISSING PERSON"
^DD(2,.1658,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(2,.1658,20,0)="^.3LA^1^1"
^DD(2,.1658,20,1,0)="MPT"
^DD(2,.1658,21,0)="^^2^2^2911224^"
^DD(2,.1658,21,1,0)="If this patient is missing, enter the city where the TWX reporting the"
^DD(2,.1658,21,2,0)="patient as missing was originated."
^DD(2,.1658,"DT")="2880527"
^DD(2,.1659,0)="MISSING PERSON TWX STATE^P5'^DIC(5,^INE;9^Q"
^DD(2,.1659,.1)="TWX STATE-MISSING PERSON"
^DD(2,.1659,3)="The state from which the TWX informing you this patient was missing originated."
^DD(2,.1659,20,0)="^.3LA^1^1"
^DD(2,.1659,20,1,0)="MPT"
^DD(2,.1659,21,0)="^^2^2^2911224^"
^DD(2,.1659,21,1,0)="If this patient is missing, enter the state where the TWX reporting the"
^DD(2,.1659,21,2,0)="patient as missing was originated."
^DD(2,.1659,"DT")="2880527"
^DD(2,.172,0)="FEE HOSPITAL I.D.^S^I:ISSUED;C:CANCELLED;^.17;2^Q"
^DD(2,.172,.1)="FEE HOSPITAL I.D."
^DD(2,.172,21,0)="^^3^3^2911216^"
^DD(2,.172,21,1,0)="This field is not used by any DHCP packages and has been *'d for deletion"
^DD(2,.172,21,2,0)="with the release of MAS v5.2.  It will be removed in a future release of"
^DD(2,.172,21,3,0)="MAS."
^DD(2,.172,"DT")="2930326"
^DD(2,.181,0)="EMERGENCY RESPONSE INDICATOR^S^K:HURRICANE KATRINA;^.18;1^Q"
^DD(2,.181,1,0)="^.1"
^DD(2,.181,1,1,0)="2^AERI"
^DD(2,.181,1,1,1)="S ^DPT(""AERI"",$E(X,1,30),DA)="""""
^DD(2,.181,1,1,2)="K ^DPT(""AERI"",$E(X,1,30),DA)"
^DD(2,.181,1,1,"DT")="3050915"
^DD(2,.181,1,2,0)="2^AENR181^MUMPS"
^DD(2,.181,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.181,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.181,1,2,"%D",0)="^^2^2^3050921^"
^DD(2,.181,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that"
^DD(2,.181,1,2,"%D",2,0)="may affect enrollment."
^DD(2,.181,1,2,"DT")="3050921"
^DD(2,.181,3)="Enter the appropriate ER Indicator to identify patients from impacted zip code areas designated by FEMA."
^DD(2,.181,21,0)="^^2^2^3050922^"
^DD(2,.181,21,1,0)="Enter the appropriate ER Indicator to identify patients from impacted"
^DD(2,.181,21,2,0)="zip code areas designated by FEMA."
^DD(2,.181,"DT")="3050922"
^DD(2,.19,0)="DIVISION^CJ20^^ ; ^X ^DD(2,.19,9.2) S Y(2,.19,101)=$S($D(^DIC(42,D0,0)):^(0),1:"""") S X=$S('$D(^DG(40.8,+$P(Y(2,.19,101),U,11),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0)"
^DD(2,.19,.1)=""
^DD(2,.19,3)="A computed field which determines the current division to which this inpatient is assigned."
^DD(2,.19,9)="^"
^DD(2,.19,9.01)="42^.015;2^.1"
^DD(2,.19,9.1)="WARD LOCATION:WARD LOCATION:DIVISION"
^DD(2,.19,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(2,.19,1)=$S($D(^DPT(D0,.1)):^(.1),1:"""") S X=$E(Y(2,.19,1),1,19) K DIC S DIC=""^DIC(42,"",DIC(0)=""NMF"" D ^DIC S D0=+Y"
^DD(2,.19,21,0)="^^1^1^2850726^"
^DD(2,.19,21,1,0)="Division of inpatient location"
^DD(2,.21011,0)="K-WORK PHONE NUMBER^F^^.21;11^K:$L(X)>20!($L(X)<4) X"
^DD(2,.21011,3)="Enter the next of kin's work phone number.  Answer must be 4-20 characters in length."
^DD(2,.21011,21,0)="^^2^2^2920113^"
^DD(2,.21011,21,1,0)="If the person designated as next of kin for this patient is employed,"
^DD(2,.21011,21,2,0)="enter the phone number at which the NOK can be reached while at work."
^DD(2,.21011,"DT")="2920113"
^DD(2,.21012,0)="PRIMARY NOK CHANGE DATE/TIME^DX^^.212;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(2,.21012,1,0)="^.1"
^DD(2,.21012,1,1,0)="2^AENR21012^MUMPS"
^DD(2,.21012,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.21012,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.21012,1,1,3)=" DO NOT DELETE"
^DD(2,.21012,1,1,"%D",0)="^.101^2^2^3050616^^^^"
^DD(2,.21012,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.21012,1,1,"%D",2,0)="enrollment."
^DD(2,.21012,1,1,"DT")="3050616"
^DD(2,.21012,21,0)="^^2^2^3050519^"
^DD(2,.21012,21,1,0)="This field will hold the date and time of the last Primary Next of Kin"
^DD(2,.21012,21,2,0)="Update."
^DD(2,.21012,"DT")="3050616"
^DD(2,.211,0)="K-NAME OF PRIMARY NOK^Fa^^.21;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^DD(2,.211,.1)="NEXT OF KIN"
^DD(2,.211,1,0)="^.1"
^DD(2,.211,1,1,0)="2^AXR^MUMPS"
^DD(2,.211,1,1,1)="Q"
^DD(2,.211,1,1,2)="S DGXRF=.211 D ^DGDDC Q"
^DD(2,.211,1,991,0)="2^AVAFC211^MUMPS"
^DD(2,.211,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".211;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.211,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".211;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.211,1,991,"%D",0)="^^15^15^2990204^^^"
^DD(2,.211,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.211,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.211,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.211,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.211,1,991,"%D",5,0)=" "
^DD(2,.211,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.211,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.211,1,991,"%D",8,0)="process."
^DD(2,.211,1,991,"%D",9,0)=" "
^DD(2,.211,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.211,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.211,1,991,"%D",12,0)="  "
^DD(2,.211,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.211,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.211,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.211,1,991,"DT")="2970825"
^DD(2,.211,1,992,0)="2^ADGRU211^MUMPS"
^DD(2,.211,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.211,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.211,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.211,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.211,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.211,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.211,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.211,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.211,1,992,"%D",6,0)="interface."
^DD(2,.211,1,992,"%D",7,0)=" "
^DD(2,.211,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.211,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.211,1,992,"DT")="2990920"
^DD(2,.211,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.211,20,0)="^.3LA^1^1"
^DD(2,.211,20,1,0)="NK1"
^DD(2,.211,21,0)="^^4^4^2861007^"
^DD(2,.211,21,1,0)="Enter the primary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.211,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"
^DD(2,.211,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.211,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.211,"AUDIT")="y"
^DD(2,.211,"DT")="3050611"
^DD(2,.211011,0)="K2-WORK PHONE NUMBER^F^^.211;11^K:$L(X)>20!($L(X)<4) X"
^DD(2,.211011,3)="Enter the work phone for the secondary next of kin.  Answer must be 4-20 characters in length."
^DD(2,.211011,21,0)="^^3^3^2920113^"
^DD(2,.211011,21,1,0)="If the person designated as secondary next of kin for this patient is"
^DD(2,.211011,21,2,0)="employed, enter the phone number that individual can be reached at while"
^DD(2,.211011,21,3,0)="at work."
^DD(2,.211011,"DT")="2920113"
^DD(2,.211012,0)="SECONDARY NOK CHANGE DATE/TIME^DX^^.212;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(2,.211012,21,0)="^^2^2^3050520^"
^DD(2,.211012,21,1,0)="This field will hold the date and time of the last Secondary Next of Kin"
^DD(2,.211012,21,2,0)="Update."
^DD(2,.211012,"DT")="3050520"
^DD(2,.212,0)="K-RELATIONSHIP TO PATIENT^FX^^.21;2^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.212,.1)=""
^DD(2,.212,1,0)="^.1"
^DD(2,.212,1,992,0)="2^ADGRU212^MUMPS"
^DD(2,.212,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.212,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.212,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.212,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.212,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.212,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.212,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.212,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.212,1,992,"%D",6,0)="interface."
^DD(2,.212,1,992,"%D",7,0)=" "
^DD(2,.212,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.212,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.212,1,992,"DT")="2990920"
^DD(2,.212,3)="Enter the relationship of the primary NOK to the patient [1-30 characters]."
^DD(2,.212,20,0)="^.3LA^1^1"
^DD(2,.212,20,1,0)="NK1"
^DD(2,.212,21,0)="^^4^4^2861007^"
^DD(2,.212,21,1,0)="If a primary next-of-kin is specified enter the relationship of"
^DD(2,.212,21,2,0)="that person to the applicant [1-30 characters], otherwise nothing"
^DD(2,.212,21,3,0)="may be entered.  This field cannot be deleted as long as a"
^DD(2,.212,21,4,0)="'next of kin' name is on file."
^DD(2,.212,"DEL",1,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^DD(2,.212,"DT")="2990920"
^DD(2,.2125,0)="K-ADDRESS SAME AS PATIENT'S?^RSX^Y:YES;N:NO;^.21;10^I $D(X),X=""Y"" S DFN=DA D K1^DGLOCK2"
^DD(2,.2125,.1)="IS NOK ADDRESS SAME AS PATIENT'S"
^DD(2,.2125,3)="Enter 'Y' if primary NOK address/phone number same as patients otherwise enter 'N'."
^DD(2,.2125,20,0)="^.3LA^1^1"
^DD(2,.2125,20,1,0)="NK1"
^DD(2,.2125,21,0)="^^2^2^2861007^"
^DD(2,.2125,21,1,0)="Enter 'Y' if the next-of-kin should be contacted at the same address"
^DD(2,.2125,21,2,0)="and phone number as the applicant, otherwise enter 'N'."
^DD(2,.2125,"DEL",1,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^DD(2,.2125,"DT")="2861002"
^DD(2,.213,0)="K-STREET ADDRESS [LINE 1]^FX^^.21;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.213,.1)=""
^DD(2,.213,1,0)="^.1"
^DD(2,.213,1,1,0)="2^AXR14^MUMPS"
^DD(2,.213,1,1,1)="Q"
^DD(2,.213,1,1,2)="S DGXRF=.213 D ^DGDDC Q"
^DD(2,.213,1,992,0)="2^ADGRU213^MUMPS"
^DD(2,.213,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.213,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.213,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.213,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.213,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.213,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.213,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.213,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.213,1,992,"%D",6,0)="interface."
^DD(2,.213,1,992,"%D",7,0)=" "
^DD(2,.213,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.213,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.213,1,992,"DT")="2990920"
^DD(2,.213,3)="Enter the first line of the primary NOK's address [3-30 characters]."
^DD(2,.213,20,0)="^.3LA^1^1"
^DD(2,.213,20,1,0)="NK1"
^DD(2,.213,21,0)="^^4^4^2941129^^^"
^DD(2,.213,21,1,0)="If a primary next-of-kin is specified enter the first line of"
^DD(2,.213,21,2,0)="that person's street address [3-30 characters], otherwise nothing"
^DD(2,.213,21,3,0)="may be entered.  This field cannot be deleted as long as a"
^DD(2,.213,21,4,0)="'next of kin' name is on file."
^DD(2,.213,"DEL",1,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^DD(2,.213,"DT")="2990920"
^DD(2,.214,0)="K-STREET ADDRESS [LINE 2]^FX^^.21;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.214,.1)=""
^DD(2,.214,1,0)="^.1"
^DD(2,.214,1,1,0)="2^AXR15^MUMPS"
^DD(2,.214,1,1,1)="Q"
^DD(2,.214,1,1,2)="S DGXRF=.214 D ^DGDDC Q"
^DD(2,.214,1,992,0)="2^ADGRU214^MUMPS"
^DD(2,.214,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.214,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.214,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.214,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.214,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.214,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.214,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.214,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.214,1,992,"%D",6,0)="interface."
^DD(2,.214,1,992,"%D",7,0)=" "
^DD(2,.214,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.214,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.214,1,992,"DT")="2990921"
^DD(2,.214,3)="If necessary, enter the second line of the primary NOK's address [3-30 characters]."
^DD(2,.214,20,0)="^.3LA^1^1"
^DD(2,.214,20,1,0)="NK1"
^DD(2,.214,21,0)="^^4^4^2861117^^"
^DD(2,.214,21,1,0)="If a primary next-of-kin is specified enter the second line of"
^DD(2,.214,21,2,0)="that person's street address [3-30 characters], if necessary,"
^DD(2,.214,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted"
^DD(2,.214,21,4,0)="as long as a 'next of kin' name is on file."
^DD(2,.214,"DT")="2990921"
^DD(2,.215,0)="K-STREET ADDRESS [LINE 3]^FX^^.21;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.215,.1)=""
^DD(2,.215,3)="If necessary, enter the third line of the primary NOK's address [3-30 characters]."
^DD(2,.215,20,0)="^.3LA^1^1"
^DD(2,.215,20,1,0)="NK1"
^DD(2,.215,21,0)="^^4^4^2861117^^"
^DD(2,.215,21,1,0)="If a primary next-of-kin is specified enter the third line of"
^DD(2,.215,21,2,0)="that person's street address [3-30 characters], if necessary,"
^DD(2,.215,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted"
^DD(2,.215,21,4,0)="as long as a 'next of kin' name is on file."
^DD(2,.215,"DT")="2861002"
^DD(2,.216,0)="K-CITY^FX^^.21;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.216,.1)=""
^DD(2,.216,1,0)="^.1"
^DD(2,.216,1,992,0)="2^ADGRU216^MUMPS"
^DD(2,.216,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.216,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.216,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.216,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.216,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.216,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.216,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.216,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.216,1,992,"%D",6,0)="interface."
^DD(2,.216,1,992,"%D",7,0)=" "
^DD(2,.216,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.216,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.216,1,992,"DT")="2990921"
^DD(2,.216,3)="Enter the city in which the primary NOK resides [3-30 characters]."
^DD(2,.216,20,0)="^.3LA^1^1"
^DD(2,.216,20,1,0)="NK1"
^DD(2,.216,21,0)="^^4^4^2861007^"
^DD(2,.216,21,1,0)="If a primary next-of-kin is specified enter the city in which"
^DD(2,.216,21,2,0)="that person resides [3-30 characters], otherwise nothing may"
^DD(2,.216,21,3,0)="be entered.  This field cannot be deleted as long as a 'next"
^DD(2,.216,21,4,0)="of kin' name is on file."
^DD(2,.216,"DEL",1,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^DD(2,.216,"DT")="2990921"
^DD(2,.217,0)="K-STATE^P5'X^DIC(5,^.21;7^I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.217,.1)=""
^DD(2,.217,1,0)="^.1"
^DD(2,.217,1,992,0)="2^ADGRU217^MUMPS"
^DD(2,.217,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.217,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.217,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.217,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.217,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.217,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.217,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.217,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.217,1,992,"%D",6,0)="interface."
^DD(2,.217,1,992,"%D",7,0)=" "
^DD(2,.217,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.217,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.217,1,992,"DT")="2990921"
^DD(2,.217,3)="Enter the state in which the primary NOK resides."
^DD(2,.217,20,0)="^.3LA^1^1"
^DD(2,.217,20,1,0)="NK1"
^DD(2,.217,21,0)="^^4^4^2861007^"
^DD(2,.217,21,1,0)="If a primary next-of-kin is specified select from the available"
^DD(2,.217,21,2,0)="listing the state in which that person resides, otherwise"
^DD(2,.217,21,3,0)="nothing may be entered.  This field cannot be deleted as long"
^DD(2,.217,21,4,0)="as a 'next of kin' name is on file."
^DD(2,.217,"DEL",1,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^DD(2,.217,"DT")="2990921"
^DD(2,.218,0)="K-ZIP CODE^FX^^.21;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.218,.1)=""
^DD(2,.218,1,0)="^.1"
^DD(2,.218,1,1,0)="2^ANK1ZIP^MUMPS"
^DD(2,.218,1,1,1)="D SET^DGREGDD1(DA,.2207,.22,7,X)"
^DD(2,.218,1,1,2)="D KILL^DGREGDD1(DA,.2207,.22,7,X)"
^DD(2,.218,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.218,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.218,1,1,"%D",2,0)="value."
^DD(2,.218,1,1,"DT")="2930603"
^DD(2,.218,3)="Enter the 5-digit zip code where the primary NOK resides."
^DD(2,.218,20,0)="^.3LA^1^1"
^DD(2,.218,20,1,0)="NK1"
^DD(2,.218,21,0)="^^4^4^2861007^"
^DD(2,.218,21,1,0)="If a primary next-of-kin is specified enter the zip code"
^DD(2,.218,21,2,0)="[5 numerics] in which his/her city lies, otherwise nothing"
^DD(2,.218,21,3,0)="may be entered.  This field cannot be deleted as long as a"
^DD(2,.218,21,4,0)="'next of kin' name is on file."
^DD(2,.218,"DEL",1,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^DD(2,.218,"DT")="2930603"
^DD(2,.219,0)="K-PHONE NUMBER^FXa^^.21;9^K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D K1^DGLOCK2"
^DD(2,.219,.1)=""
^DD(2,.219,1,0)="^.1"
^DD(2,.219,1,991,0)="2^AVAFC219^MUMPS"
^DD(2,.219,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".219;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.219,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".219;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.219,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.219,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.219,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.219,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.219,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.219,1,991,"%D",5,0)=" "
^DD(2,.219,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.219,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.219,1,991,"%D",8,0)="process."
^DD(2,.219,1,991,"%D",9,0)=" "
^DD(2,.219,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.219,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.219,1,991,"%D",12,0)="  "
^DD(2,.219,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.219,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.219,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.219,1,991,"DT")="2970825"
^DD(2,.219,1,992,0)="2^ADGRU219^MUMPS"
^DD(2,.219,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.219,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.219,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.219,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.219,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.219,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.219,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.219,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.219,1,992,"%D",6,0)="interface."
^DD(2,.219,1,992,"%D",7,0)=" "
^DD(2,.219,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.219,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.219,1,992,"DT")="2990921"
^DD(2,.219,3)="Enter the phone number of the primary NOK [4-20 characters]."
^DD(2,.219,20,0)="^.3LA^1^1"
^DD(2,.219,20,1,0)="NK1"
^DD(2,.219,21,0)="^^4^4^2861117^^"
^DD(2,.219,21,1,0)="If a primary next-of-kin is specified enter that person's"
^DD(2,.219,21,2,0)="telephone number [4-20 characters], otherwise nothing may"
^DD(2,.219,21,3,0)="be entered.  This field cannot be deleted as long as a"
^DD(2,.219,21,4,0)="'next of kin' name is on file."
^DD(2,.219,"AUDIT")="y"
^DD(2,.219,"DT")="2970825"
^DD(2,.2191,0)="K2-NAME OF SECONDARY NOK^FX^^.211;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D K1^DGLOCK2"
^DD(2,.2191,.1)="NEXT OF KIN-2"
^DD(2,.2191,1,0)="^.1"
^DD(2,.2191,1,1,0)="2^AXR1^MUMPS"
^DD(2,.2191,1,1,1)="Q"
^DD(2,.2191,1,1,2)="S DGXRF=.2191 D ^DGDDC Q"
^DD(2,.2191,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.2191,20,0)="^.3LA^1^1"
^DD(2,.2191,20,1,0)="NK2"
^DD(2,.2191,21,0)="^^4^4^2861007^^"
^DD(2,.2191,21,1,0)="Enter the secondary next of kin's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.2191,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"
^DD(2,.2191,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.2191,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.2191,"DT")="3050611"
^DD(2,.2192,0)="K2-RELATIONSHIP TO PATIENT^FX^^.211;2^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2192,.1)=""
^DD(2,.2192,3)="Enter the relationship of the secondary NOK to the patient [1-30 characters]."
^DD(2,.2192,20,0)="^.3LA^1^1"
^DD(2,.2192,20,1,0)="NK2"
^DD(2,.2192,21,0)="^^3^3^2861007^"
^DD(2,.2192,21,1,0)="If a secondary next-of-kin is specified enter the relationship of that"
^DD(2,.2192,21,2,0)="person to the applicant [1-30 characters].  This field cannot be"
^DD(2,.2192,21,3,0)="deleted as long as a secondary NOK is on file."
^DD(2,.2192,"DEL",1,0)="S DFN=DA D K2D^DGLOCK2 I '$D(X)"
^DD(2,.2192,"DT")="2861002"
^DD(2,.21925,0)="K2-ADDRESS SAME AS PATIENT'S?^RSX^Y:YES;N:NO;^.211;10^I $D(X),X=""Y"" D K2^DGLOCK2"
^DD(2,.21925,.1)="IS K2-ADDR SAME AS PATIENT'S"
^DD(2,.21925,3)="Enter 'Y' if the secondary NOK address/phone number is the same as the patients otherwise enter 'N'."
^DD(2,.21925,20,0)="^.3LA^1^1"
^DD(2,.21925,20,1,0)="NK2"
^DD(2,.21925,21,0)="^^2^2^2861007^"
^DD(2,.21925,21,1,0)="Enter 'Y' if the secondary NOK should be contacted at the same"
^DD(2,.21925,21,2,0)="address and phone number as the applicant, otherwise enter 'N'."
^DD(2,.21925,"DT")="2861002"
^DD(2,.2193,0)="K2-STREET ADDRESS [LINE 1]^FX^^.211;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2193,.1)=""
^DD(2,.2193,1,0)="^.1"
^DD(2,.2193,1,1,0)="2^AXR16^MUMPS"
^DD(2,.2193,1,1,1)="Q"
^DD(2,.2193,1,1,2)="S DGXRF=.2193 D ^DGDDC Q"
^DD(2,.2193,3)="Enter the first line of the secondary NOK's address [3-30 characters]."
^DD(2,.2193,20,0)="^.3LA^1^1"
^DD(2,.2193,20,1,0)="NK2"
^DD(2,.2193,21,0)="^^3^3^2861117^^^"
^DD(2,.2193,21,1,0)="If a secondary NOK is specified enter the first line of that person's"
^DD(2,.2193,21,2,0)="street address [3-30 characters], otherwise nothing may be entered."
^DD(2,.2193,21,3,0)="This field cannot be deleted as long as a secondary NOK is on file."
^DD(2,.2193,"DEL",1,0)="S DFN=DA D K2D^DGLOCK2 I '$D(X)"
^DD(2,.2193,"DT")="2890115"
^DD(2,.2194,0)="K2-STREET ADDRESS [LINE 2]^FX^^.211;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2194,.1)=""
^DD(2,.2194,1,0)="^.1"
^DD(2,.2194,1,1,0)="2^AXR17^MUMPS"
^DD(2,.2194,1,1,1)="Q"
^DD(2,.2194,1,1,2)="S DGXRF=.2194 D ^DGDDC Q"
^DD(2,.2194,3)="If necessary, enter the second line of the secondary NOK's address [3-30 characters]."
^DD(2,.2194,20,0)="^.3LA^1^1"
^DD(2,.2194,20,1,0)="NK2"
^DD(2,.2194,21,0)="^^4^4^2861117^^^"
^DD(2,.2194,21,1,0)="If a secondary NOK is specified enter the second line of that person's"
^DD(2,.2194,21,2,0)="street address [3-30 characters], if necessary, otherwise nothing may"
^DD(2,.2194,21,3,0)="be entered.  This field cannot be deleted as long as a secondary NOK"
^DD(2,.2194,21,4,0)="is on file."
^DD(2,.2194,"DT")="2890115"
^DD(2,.2195,0)="K2-STREET ADDRESS [LINE 3]^FX^^.211;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2195,.1)=""
^DD(2,.2195,3)="If necessary, enter the third line of the secondary NOK's address [3-30 characters]."
^DD(2,.2195,20,0)="^.3LA^1^1"
^DD(2,.2195,20,1,0)="NK2"
^DD(2,.2195,21,0)="^^4^4^2861117^^"
^DD(2,.2195,21,1,0)="If a secondary NOK is specified enter the third line of that person's"
^DD(2,.2195,21,2,0)="street address [3-30 characters], if necessary, otherwise nothing may"
^DD(2,.2195,21,3,0)="be entered.  This field cannot be deleted as long as a secondary NOK"
^DD(2,.2195,21,4,0)="is on file."
^DD(2,.2195,"DT")="2861002"
^DD(2,.2196,0)="K2-CITY^FX^^.211;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2196,.1)=""
^DD(2,.2196,3)="Enter the city in which the secondary NOK resides [3-30 characters]."
^DD(2,.2196,20,0)="^.3LA^1^1"
^DD(2,.2196,20,1,0)="NK2"
^DD(2,.2196,21,0)="^^3^3^2861007^"
^DD(2,.2196,21,1,0)="If a secondary NOK is specified enter the city in which that person"
^DD(2,.2196,21,2,0)="resides [3-30 characters], otherwise nothing may be entered.  This"
^DD(2,.2196,21,3,0)="field cannot be deleted as long as a secondary NOK is on file."
^DD(2,.2196,"DEL",1,0)="S DFN=DA D K2D^DGLOCK2 I '$D(X)"
^DD(2,.2196,"DT")="2861002"
^DD(2,.2197,0)="K2-STATE^P5'X^DIC(5,^.211;7^I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2197,.1)=""
^DD(2,.2197,3)="Enter the state in which the secondary NOK resides."
^DD(2,.2197,20,0)="^.3LA^1^1"
^DD(2,.2197,20,1,0)="NK2"
^DD(2,.2197,21,0)="^^4^4^2861007^"
^DD(2,.2197,21,1,0)="If a secondary NOK is specified select from the available listing"
^DD(2,.2197,21,2,0)="the state in which that person resides, otherwise nothing may be"
^DD(2,.2197,21,3,0)="entered.  This field cannot be deleted as long as a secondary NOK"
^DD(2,.2197,21,4,0)="is on file."
^DD(2,.2197,"DEL",1,0)="S DFN=DA D K2D^DGLOCK2 I '$D(X)"
^DD(2,.2197,"DT")="2861002"
^DD(2,.2198,0)="K2-ZIP CODE^FX^^.211;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2198,.1)=""
^DD(2,.2198,1,0)="^.1"
^DD(2,.2198,1,1,0)="2^ANK2ZIP^MUMPS"
^DD(2,.2198,1,1,1)="D SET^DGREGDD1(DA,.2203,.22,3,X)"
^DD(2,.2198,1,1,2)="D KILL^DGREGDD1(DA,.2203,.22,3,X)"
^DD(2,.2198,1,1,"%D",0)="^^2^2^2930603^^"
^DD(2,.2198,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.2198,1,1,"%D",2,0)="value."
^DD(2,.2198,1,1,"DT")="2930603"
^DD(2,.2198,3)="Enter the 5-digit zip code of the residence of the secondary NOK."
^DD(2,.2198,20,0)="^.3LA^1^1"
^DD(2,.2198,20,1,0)="NK2"
^DD(2,.2198,21,0)="^^4^4^2930603^^"
^DD(2,.2198,21,1,0)="If a secondary NOK is specified enter the zip code for the city"
^DD(2,.2198,21,2,0)="in which that person resides [5 numerics], otherwise nothing may"
^DD(2,.2198,21,3,0)="be entered.  This field cannot be deleted as long as a secondary"
^DD(2,.2198,21,4,0)="NOK is on file."
^DD(2,.2198,"DEL",1,0)="S DFN=DA D K2D^DGLOCK2 I '$D(X)"
^DD(2,.2198,"DT")="2930603"
^DD(2,.2199,0)="K2-PHONE NUMBER^FX^^.211;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D K2^DGLOCK2"
^DD(2,.2199,.1)=""
^DD(2,.2199,3)="Enter the phone number of the secondary NOK [3-20 characters]."
^DD(2,.2199,20,0)="^.3LA^1^1"
^DD(2,.2199,20,1,0)="NK2"
^DD(2,.2199,21,0)="^^4^4^2861007^"
^DD(2,.2199,21,1,0)="If a secondary NOK is specified enter the telephone number at which"
^DD(2,.2199,21,2,0)="that person may be reached [3-20 characters], otherwise nothing may"
^DD(2,.2199,21,3,0)="be entered.  This field cannot be deleted as long as a secondary"
^DD(2,.2199,21,4,0)="NOK is on file."
^DD(2,.2199,"DT")="2861002"
^DD(2,.2201,0)="E-ZIP+4^FOX^^.22;1^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D E1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.2201,1,0)="^.1"
^DD(2,.2201,1,1,0)="2^AEC1ZIP4^MUMPS"
^DD(2,.2201,1,1,1)="D SET^DGREGDD1(DA,.338,.33,8,$E(X,1,5))"
^DD(2,.2201,1,1,2)="D KILL^DGREGDD1(DA,.338,.33,8,$E(X,1,5))"
^DD(2,.2201,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.2201,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of"
^DD(2,.2201,1,1,"%D",2,0)="this field."
^DD(2,.2201,1,1,"DT")="2930603"
^DD(2,.2201,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.2201,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.2201,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.2201,20,0)="^.3LA^1^1"
^DD(2,.2201,20,1,0)="EC1"
^DD(2,.2201,21,0)="^^3^3^2930603^^"
^DD(2,.2201,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.2201,21,2,0)="format (e.g. 12345-6789 or 123456789)."
^DD(2,.2201,21,3,0)="This is related to the Emergency Contact Address."
^DD(2,.2201,23,0)="^^3^3^2930603^"
^DD(2,.2201,23,1,0)="Related to other Emergency Contact address fields.  This field "
^DD(2,.2201,23,2,0)="'triggers' the E-ZIP CODE (#.338) field, using the first 5 digits of "
^DD(2,.2201,23,3,0)="this field."
^DD(2,.2201,"DEL",1,0)="S DFN=DA D E1D^DGLOCK2 I '$D(X)"
^DD(2,.2201,"DT")="2930603"
^DD(2,.2202,0)="D-ZIP+4^FOX^^.22;2^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D D^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.2202,1,0)="^.1"
^DD(2,.2202,1,1,0)="2^AD1ZIP4^MUMPS"
^DD(2,.2202,1,1,1)="D SET^DGREGDD1(DA,.348,.34,8,$E(X,1,5))"
^DD(2,.2202,1,1,2)="D KILL^DGREGDD1(DA,.348,.34,8,$E(X,1,5))"
^DD(2,.2202,1,1,"%D",0)="^^3^3^2930603^"
^DD(2,.2202,1,1,"%D",1,0)="This sets the corresponding zip code field to the "
^DD(2,.2202,1,1,"%D",2,0)="first 5 digits of"
^DD(2,.2202,1,1,"%D",3,0)="this field."
^DD(2,.2202,1,1,"DT")="2930603"
^DD(2,.2202,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.2202,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.2202,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.2202,20,0)="^.3LA^2^2"
^DD(2,.2202,20,1,0)="D-1"
^DD(2,.2202,20,2,0)="D1"
^DD(2,.2202,21,0)="^^3^3^2930603^^^^"
^DD(2,.2202,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.2202,21,2,0)="format (e.g. 12345-6789 or 123456789).  This is related to the designee "
^DD(2,.2202,21,3,0)="for personal effects' address."
^DD(2,.2202,23,0)="^^2^2^2930603^^"
^DD(2,.2202,23,1,0)="Related to other Designee address fields.  This field 'triggers' the D-"
^DD(2,.2202,23,2,0)="ZIP CODE (#.348) field, using the first 5 digits of this field."
^DD(2,.2202,"DEL",1,0)="S DFN=DA D DD^DGLOCK2 I '$D(X)"
^DD(2,.2202,"DT")="2930603"
^DD(2,.2203,0)="K2-ZIP+4^FOX^^.22;3^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D K2^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.2203,1,0)="^.1"
^DD(2,.2203,1,1,0)="2^ANK2ZIP4^MUMPS"
^DD(2,.2203,1,1,1)="D SET^DGREGDD1(DA,.2198,.211,8,$E(X,1,5))"
^DD(2,.2203,1,1,2)="D KILL^DGREGDD1(DA,.2198,.211,8,$E(X,1,5))"
^DD(2,.2203,1,1,"%D",0)="^^3^3^2930603^"
^DD(2,.2203,1,1,"%D",1,0)="This sets the corresponding zip code field to the "
^DD(2,.2203,1,1,"%D",2,0)="first 5 digits of"
^DD(2,.2203,1,1,"%D",3,0)="this field."
^DD(2,.2203,1,1,"DT")="2930603"
^DD(2,.2203,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.2203,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.2203,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.2203,20,0)="^.3LA^1^1"
^DD(2,.2203,20,1,0)="NK2"
^DD(2,.2203,21,0)="^^3^3^2930603^^"
^DD(2,.2203,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.2203,21,2,0)="format (e.g. 12345-6789 or 123456789).  This is related to the secondary "
^DD(2,.2203,21,3,0)="next-of-kin's address."
^DD(2,.2203,23,0)="^^3^3^2930603^^"
^DD(2,.2203,23,1,0)="Related to other secondary next-of-kin address fields.  This field "
^DD(2,.2203,23,2,0)="'triggers' the K2-ZIP CODE (#.2198) field, using the first 5 digits of "
^DD(2,.2203,23,3,0)="this field."
^DD(2,.2203,"DEL",1,0)="S DFN=DA D K2D^DGLOCK2 I '$D(X)"
^DD(2,.2203,"DT")="2930603"
^DD(2,.2204,0)="E2-ZIP+4^FOX^^.22;4^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D E2^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.2204,1,0)="^.1"
^DD(2,.2204,1,1,0)="2^AEC2ZIP4^MUMPS"
^DD(2,.2204,1,1,1)="D SET^DGREGDD1(DA,.3318,.331,8,$E(X,1,5))"
^DD(2,.2204,1,1,2)="D KILL^DGREGDD1(DA,.3318,.331,8,$E(X,1,5))"
^DD(2,.2204,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.2204,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of this "
^DD(2,.2204,1,1,"%D",2,0)="field."
^DD(2,.2204,1,1,"DT")="2930603"
^DD(2,.2204,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.2204,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.2204,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.2204,20,0)="^.3LA^1^1"
^DD(2,.2204,20,1,0)="EC2"
^DD(2,.2204,21,0)="^^3^3^2930603^"
^DD(2,.2204,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.2204,21,2,0)="format (e.g. 12345-6789 or 123456789).  This is related to the secondary "
^DD(2,.2204,21,3,0)="emergency contact's address."
^DD(2,.2204,23,0)="^^3^3^2930603^"
^DD(2,.2204,23,1,0)="Related to other secondary emergency address fields.  This field "
^DD(2,.2204,23,2,0)="'triggers' the E2-ZIP CODE (#.3318) field, using the first 5 digits of"
^DD(2,.2204,23,3,0)="this field."
^DD(2,.2204,"DEL",1,0)="S DFN=DA D E2D^DGLOCK2 I '$D(X)"
^DD(2,.2204,"DT")="2930603"
^DD(2,.2205,0)="EMPLOYER ZIP+4^FOX^^.22;5^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D EM1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.2205,1,0)="^.1"
^DD(2,.2205,1,1,0)="2^AEM1ZIP4^MUMPS"
^DD(2,.2205,1,1,1)="D SET^DGREGDD1(DA,.3118,.311,8,$E(X,1,5))"
^DD(2,.2205,1,1,2)="D KILL^DGREGDD1(DA,.3118,.311,8,$E(X,1,5))"
^DD(2,.2205,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.2205,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of this "
^DD(2,.2205,1,1,"%D",2,0)="field."
^DD(2,.2205,1,1,"DT")="2930603"
^DD(2,.2205,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.2205,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.2205,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.2205,20,0)="^.3LA^1^1"
^DD(2,.2205,20,1,0)="EM1"
^DD(2,.2205,21,0)="^^3^3^2930603^"
^DD(2,.2205,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.2205,21,2,0)="format (e.g. 12345-6789 or 123456789).  This is related to the patient"
^DD(2,.2205,21,3,0)="employer's address."
^DD(2,.2205,23,0)="^^3^3^2930603^"
^DD(2,.2205,23,1,0)="Related to other patient employer address fields.  This field 'triggers'"
^DD(2,.2205,23,2,0)="the EMPLOYER ZIP CODE (#.3118) field, using the first 5 digits of this "
^DD(2,.2205,23,3,0)="field."
^DD(2,.2205,"DEL",1,0)="S DFN=DA D EMD^DGLOCK2 I '$D(X)"
^DD(2,.2205,"DT")="2930603"
^DD(2,.2206,0)="SPOUSE'S EMP ZIP+4^FOX^^.22;6^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D SE^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.2206,1,0)="^.1"
^DD(2,.2206,1,1,0)="2^ASP1ZIP4^MUMPS"
^DD(2,.2206,1,1,1)="D SET^DGREGDD1(DA,.257,.25,7,$E(X,1,5))"
^DD(2,.2206,1,1,2)="D KILL^DGREGDD1(DA,.257,.25,7,$E(X,1,5))"
^DD(2,.2206,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.2206,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of this "
^DD(2,.2206,1,1,"%D",2,0)="field."
^DD(2,.2206,1,1,"DT")="2930603"
^DD(2,.2206,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.2206,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.2206,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.2206,20,0)="^.3LA^1^1"
^DD(2,.2206,20,1,0)="SP1"
^DD(2,.2206,21,0)="^^3^3^2930603^"
^DD(2,.2206,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.2206,21,2,0)="format (e.g. 12345-6789 or 123456789).  This is related to the spouse's"
^DD(2,.2206,21,3,0)="employer's address."
^DD(2,.2206,23,0)="^^3^3^2930603^"
^DD(2,.2206,23,1,0)="Related to other spouse's employer address fields.  This field "
^DD(2,.2206,23,2,0)="'triggers' the SPOUSE'S EMP ZIP CODE (#.257) field, using the first 5"
^DD(2,.2206,23,3,0)="digits of this field."
^DD(2,.2206,"DEL",1,0)="S DFN=DA D SED^DGLOCK2 I '$D(X)"
^DD(2,.2206,"DT")="2930603"
^DD(2,.2207,0)="K-ZIP+4^FOX^^.22;7^K:X[""""""""!($A(X)=45) X I $D(X) S DFN=DA D K1^DGLOCK2 I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.2207,1,0)="^.1"
^DD(2,.2207,1,1,0)="2^ANK1ZIP4^MUMPS"
^DD(2,.2207,1,1,1)="D SET^DGREGDD1(DA,.218,.21,8,$E(X,1,5))"
^DD(2,.2207,1,1,2)="D KILL^DGREGDD1(DA,.218,.21,8,$E(X,1,5))"
^DD(2,.2207,1,1,"%D",0)="^^2^2^2950922^^"
^DD(2,.2207,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of this "
^DD(2,.2207,1,1,"%D",2,0)="field."
^DD(2,.2207,1,1,"DT")="2950922"
^DD(2,.2207,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.2207,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.2207,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.2207,20,0)="^.3LA^1^1"
^DD(2,.2207,20,1,0)="NK1"
^DD(2,.2207,21,0)="^^3^3^2930603^"
^DD(2,.2207,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(2,.2207,21,2,0)="format (e.g. 12345-6789 or 123456789).  This is related to the primary"
^DD(2,.2207,21,3,0)="emergency contact's address."
^DD(2,.2207,23,0)="^^3^3^2930603^"
^DD(2,.2207,23,1,0)="Related to other primary emergency contact address fields.  This field "
^DD(2,.2207,23,2,0)="'triggers' the K-ZIP CODE (#.218) field, using the first 5 digits of "
^DD(2,.2207,23,3,0)="this field."
^DD(2,.2207,"DEL",1,0)="S DFN=DA D K1D^DGLOCK2 I '$D(X)"
^DD(2,.2207,"DT")="2950922"
^DD(2,.2401,0)="FATHER'S NAME^F^^.24;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^DD(2,.2401,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.2401,21,0)="^^4^4^2861007^"
^DD(2,.2401,21,1,0)="Enter the father's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.2401,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"
^DD(2,.2401,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.2401,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.2401,"DT")="3050611"
^DD(2,.2402,0)="MOTHER'S NAME^F^^.24;2^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^DD(2,.2402,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.2402,21,0)="^^4^4^2861007^"
^DD(2,.2402,21,1,0)="Enter the mother's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.2402,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"
^DD(2,.2402,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.2402,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.2402,"DT")="3050611"
^DD(2,.2403,0)="MOTHER'S MAIDEN NAME^Fa^^.24;3^K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME"
^DD(2,.2403,1,0)="^.1"
^DD(2,.2403,1,991,0)="2^AVAFC2403^MUMPS"
^DD(2,.2403,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".2403;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.2403,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".2403;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.2403,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.2403,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.2403,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.2403,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.2403,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.2403,1,991,"%D",5,0)=" "
^DD(2,.2403,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.2403,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.2403,1,991,"%D",8,0)="process."
^DD(2,.2403,1,991,"%D",9,0)=" "
^DD(2,.2403,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.2403,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.2403,1,991,"%D",12,0)="  "
^DD(2,.2403,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.2403,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.2403,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.2403,1,991,"DT")="2970825"
^DD(2,.2403,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.2403,21,0)="^^4^4^2861007^"
^DD(2,.2403,21,1,0)="Enter the mother's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.2403,21,2,0)="Entry of the LAST name only is permitted and the comma may be omitted."
^DD(2,.2403,21,3,0)="If the response contains no comma, one will be appended to the value."
^DD(2,.2403,21,4,0)="Including the comma, the value must be at least 3 characters in length."
^DD(2,.2403,"AUDIT")="y"
^DD(2,.2403,"DT")="3050611"
^DD(2,.251,0)="SPOUSE'S EMPLOYER NAME^FX^^.25;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D MAR^DGLOCK2"
^DD(2,.251,.1)=""
^DD(2,.251,1,0)="^.1"
^DD(2,.251,1,1,0)="2^AXR2^MUMPS"
^DD(2,.251,1,1,1)="Q"
^DD(2,.251,1,1,2)="S DGXRF=.251 D ^DGDDC Q"
^DD(2,.251,3)="Enter the name of this spouse's employer [3-20 characters]."
^DD(2,.251,5,1,0)="2^.2515^1"
^DD(2,.251,20,0)="^.3LA^1^1"
^DD(2,.251,20,1,0)="SP1"
^DD(2,.251,21,0)="^^2^2^2870130^^^^"
^DD(2,.251,21,1,0)="For this married applicant (marital status must be married) enter"
^DD(2,.251,21,2,0)="the name of his/her spouse's employer [3-20 characters]."
^DD(2,.251,"DT")="2880725"
^DD(2,.2514,0)="SPOUSE'S OCCUPATION^F^^.25;14^K:$L(X)>30!($L(X)<3) X"
^DD(2,.2514,3)="Enter the spouse's current occupation.  Answer must be 3-30 characters in length."
^DD(2,.2514,21,0)="^^2^2^2920110^"
^DD(2,.2514,21,1,0)="If this patient's spouse is currently employed, enter the spouse's"
^DD(2,.2514,21,2,0)="occupation here.  Otherwise, leave this field blank."
^DD(2,.2514,"DT")="2920110"
^DD(2,.2515,0)="SPOUSE'S EMPLOYMENT STATUS^RS^1:EMPLOYED FULL TIME;2:EMPLOYED PART TIME;3:NOT EMPLOYED;4:SELF EMPLYED;5:RETIRED;6:ACTIVE MILITARY DUTY;9:UNKNOWN;^.25;15^Q"
^DD(2,.2515,1,0)="^.1"
^DD(2,.2515,1,1,0)="^^TRIGGER^2^.251"
^DD(2,.2515,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I ""^3^9^""[(""^""_$P(^DPT(DA,.25),""^"",15)_""^"") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,.2515,1,1,1.4)"
^DD(2,.2515,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.25)):^(.25),1:""""),DIV=X S $P(^(.25),U,1)=DIV,DIH=2,DIG=.251 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.2515,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I ""^3^9^""[(""^""_$P(^DPT(DA,.25),""^"",15)_""^"") I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,.2515,1,1,2.4)"
^DD(2,.2515,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.25)):^(.25),1:""""),DIV=X S $P(^(.25),U,1)=DIV,DIH=2,DIG=.251 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.2515,1,1,"CREATE CONDITION")="I ""^3^9^""[(""^""_$P(^DPT(DA,.25),""^"",15)_""^"")"
^DD(2,.2515,1,1,"CREATE VALUE")="@"
^DD(2,.2515,1,1,"DELETE CONDITION")="I ""^3^9^""[(""^""_$P(^DPT(DA,.25),""^"",15)_""^"")"
^DD(2,.2515,1,1,"DELETE VALUE")="@"
^DD(2,.2515,1,1,"FIELD")="SPOUSE'S EMPLOYER NAME"
^DD(2,.2515,1,2,0)="^^TRIGGER^2^.2516"
^DD(2,.2515,1,2,1)="X ^DD(2,.2515,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.25)),DIV=X S $P(^(.25),U,16)=DIV,DIH=2,DIG=.2516 D ^DICR"
^DD(2,.2515,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.2515,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""RETIRED"""
^DD(2,.2515,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.25)):^(.25),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.25)),DIV=X S $P(^(.25),U,16)=DIV,DIH=2,DIG=.2516 D ^DICR"
^DD(2,.2515,1,2,"CREATE CONDITION")="SPOUSE'S EMPLOYMENT STATUS'=""RETIRED"""
^DD(2,.2515,1,2,"CREATE VALUE")="@"
^DD(2,.2515,1,2,"DELETE VALUE")="@"
^DD(2,.2515,1,2,"DT")="3041130"
^DD(2,.2515,1,2,"FIELD")="SPOUSE'S RETIREMENT DATE"
^DD(2,.2515,3)="Enter the current employment status for this patient's spouse."
^DD(2,.2515,21,0)="^^2^2^2920110^"
^DD(2,.2515,21,1,0)="Choose from the available list the choice that most correctly indicates"
^DD(2,.2515,21,2,0)="the current employment status for this patient's spouse."
^DD(2,.2515,"DT")="3041130"
^DD(2,.2516,0)="SPOUSE'S RETIREMENT DATE^DX^^.25;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X K:Y>DT X K:(+$P(^DPT(DA,0),""^"",3)>Y) X K:(+$P($G(^DPT(DA,.25)),""^"",15)'=5) X"
^DD(2,.2516,3)="For this veteran applicant's spouse, enter the date s/he retired from her/his place of employment.  A date may only be entered if the spouse is RETIRED."
^DD(2,.2516,5,1,0)="2^.2515^2"
^DD(2,.2516,21,0)="^.001^2^2^3050526^^^"
^DD(2,.2516,21,1,0)="For this veteran applicant's spouse, enter the date s/he retired from"
^DD(2,.2516,21,2,0)="her/his place of employment. "
^DD(2,.2516,23,0)="^.001^4^4^3050526^^^^"
^DD(2,.2516,23,1,0)="The Input Transform prevents entry of a Spouse Date of Retirement earlier "
^DD(2,.2516,23,2,0)="than the Veteran s Date of Birth or later than the current date (i.e.: "
^DD(2,.2516,23,3,0)="future retirement dates and retirement dates prior to Veteran's birthdate"
^DD(2,.2516,23,4,0)="are not be permitted)."
^DD(2,.2516,"DT")="3050526"
^DD(2,.252,0)="SPOUSE'S EMP STREET [LINE 1]^FX^^.25;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2"
^DD(2,.252,.1)=""
^DD(2,.252,1,0)="^.1"
^DD(2,.252,1,1,0)="2^AXR18^MUMPS"
^DD(2,.252,1,1,1)="Q"
^DD(2,.252,1,1,2)="S DGXRF=.252 D ^DGDDC Q"
^DD(2,.252,3)="Enter the first line of the spouse's employers address [3-35 characters]."
^DD(2,.252,20,0)="^.3LA^1^1"
^DD(2,.252,20,1,0)="SP1"
^DD(2,.252,21,0)="^^4^4^2861007^"
^DD(2,.252,21,1,0)="If applicant is married and a spouse's employer name has been entered"
^DD(2,.252,21,2,0)="enter the first line of the spouse's employer's street address [3-35"
^DD(2,.252,21,3,0)="characters, otherwise nothing may be entered.  This field may not be"
^DD(2,.252,21,4,0)="deleted as long as a spouse's employer's name is on file."
^DD(2,.252,"DEL",1,0)="S DFN=DA D SED^DGLOCK2 I '$D(X)"
^DD(2,.252,"DT")="2890115"
^DD(2,.253,0)="SPOUSE'S EMP STREET [LINE 2]^FX^^.25;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2"
^DD(2,.253,.1)=""
^DD(2,.253,1,0)="^.1"
^DD(2,.253,1,1,0)="2^AXR19^MUMPS"
^DD(2,.253,1,1,1)="Q"
^DD(2,.253,1,1,2)="S DGXRF=.253 D ^DGDDC Q"
^DD(2,.253,3)="If necessary, enter the second line of the spouse's employers address [3-35 characters]."
^DD(2,.253,20,0)="^.3LA^1^1"
^DD(2,.253,20,1,0)="SP1"
^DD(2,.253,21,0)="^^5^5^2861007^"
^DD(2,.253,21,1,0)="If applicant is married and a spouse's employer name has been entered"
^DD(2,.253,21,2,0)="enter the second line of the spouse's employer's street address [3-35"
^DD(2,.253,21,3,0)="characters, if necessary, otherwise nothing may be entered.  This"
^DD(2,.253,21,4,0)="field may not be deleted as long as a spouse's employer's name is on"
^DD(2,.253,21,5,0)="file."
^DD(2,.253,"DT")="2890115"
^DD(2,.254,0)="SPOUSE'S EMP STREET [LINE 3]^FX^^.25;4^K:$L(X)>35!($L(X)<3) X I $D(X) S DFN=DA D SE^DGLOCK2"
^DD(2,.254,.1)=""
^DD(2,.254,3)="If necessary, enter the third line of the spouse's employers address [3-35 characters]."
^DD(2,.254,20,0)="^.3LA^1^1"
^DD(2,.254,20,1,0)="SP1"
^DD(2,.254,21,0)="^^5^5^2861007^"
^DD(2,.254,21,1,0)="If applicant is married and a spouse's employer name has been entered"
^DD(2,.254,21,2,0)="enter the third line of the spouse's employer's street address [3-35"
^DD(2,.254,21,3,0)="characters, if necessary, otherwise nothing may be entered.  This"
^DD(2,.254,21,4,0)="field may not be deleted as long as a spouse's employer's name is on"
^DD(2,.254,21,5,0)="file."
^DD(2,.254,"DT")="2861002"
^DD(2,.255,0)="SPOUSE'S EMPLOYER'S CITY^FX^^.25;5^K:$L(X)>20!($L(X)<2) X I $D(X) S DFN=DA D SE^DGLOCK2"
^DD(2,.255,.1)=""
^DD(2,.255,3)="Enter the city in which the spouse is employed [2-20 characters]."
^DD(2,.255,20,0)="^.3LA^1^1"
^DD(2,.255,20,1,0)="SP1"
^DD(2,.255,21,0)="^^4^4^2861007^"
^DD(2,.255,21,1,0)="If applicant is married and a spouse's employer name has been entered"
^DD(2,.255,21,2,0)="enter the spouse's employer city [2-20 characters], otherwise nothing"
^DD(2,.255,21,3,0)="may be entered.  This field may not be deleted as long as a spouse's"
^DD(2,.255,21,4,0)="employer's name is on file."
^DD(2,.255,"DEL",1,0)="S DFN=DA D SED^DGLOCK2 I '$D(X)"
^DD(2,.255,"DT")="2861002"
^DD(2,.256,0)="SPOUSE'S EMPLOYER'S STATE^P5'X^DIC(5,^.25;6^S DFN=DA D SE^DGLOCK2"
^DD(2,.256,.1)=""
^DD(2,.256,3)="Enter the state in which the spouse is employed."
^DD(2,.256,20,0)="^.3LA^1^1"
^DD(2,.256,20,1,0)="SP1"
^DD(2,.256,21,0)="^^4^4^2870116^^"
^DD(2,.256,21,1,0)="If applicant is married and a spouse's employer name has been entered"
^DD(2,.256,21,2,0)="select from the available listing the spouse's employer's state.  This"
^DD(2,.256,21,3,0)="field may not be deleted as long as a spouse's employer's name is on"
^DD(2,.256,21,4,0)="file."
^DD(2,.256,"DEL",1,0)="S DFN=DA D SED^DGLOCK2 I '$D(X)"
^DD(2,.256,"DT")="2861002"
^DD(2,.257,0)="SPOUSE'S EMP ZIP CODE^FX^^.25;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D SE^DGLOCK2"
^DD(2,.257,.1)=""
^DD(2,.257,1,0)="^.1"
^DD(2,.257,1,1,0)="2^ASP1ZIP^MUMPS"
^DD(2,.257,1,1,1)="D SET^DGREGDD1(DA,.2206,.22,6,X)"
^DD(2,.257,1,1,2)="D KILL^DGREGDD1(DA,.2206,.22,6,X)"
^DD(2,.257,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.257,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.257,1,1,"%D",2,0)="value."
^DD(2,.257,1,1,"DT")="2930603"
^DD(2,.257,3)="Enter the 5-digit zip code of the spouse's place of employment."
^DD(2,.257,20,0)="^.3LA^1^1"
^DD(2,.257,20,1,0)="SP1"
^DD(2,.257,21,0)="^^4^4^2930603^^"
^DD(2,.257,21,1,0)="If applicant is married and spouse's employer name has been entered"
^DD(2,.257,21,2,0)="enter the spouse's employer zip code [5 numerics], otherwise nothing"
^DD(2,.257,21,3,0)="may be entered.  This field may not be deleted as long as a spouse's"
^DD(2,.257,21,4,0)="employer's name is on file."
^DD(2,.257,"DEL",1,0)="S DFN=DA D SED^DGLOCK2 I '$D(X)"
^DD(2,.257,"DT")="2930603"
^DD(2,.258,0)="SPOUSE'S EMP PHONE NUMBER^FOX^^.25;8^K:$L(X)>20!($L(X)<4) X I $D(X) S DFN=DA D SE^DGLOCK2"
^DD(2,.258,.1)=""
^DD(2,.258,3)="Enter the spouse's employment telephone number [4-20 characters]."
^DD(2,.258,20,0)="^.3LA^1^1"
^DD(2,.258,20,1,0)="SP1"
^DD(2,.258,21,0)="^^4^4^2861007^"
^DD(2,.258,21,1,0)="If applicant is married and spouse's employer name has been entered"
^DD(2,.258,21,2,0)="enter the spouse's employer telephone number [4-20 characters],"
^DD(2,.258,21,3,0)="otherwise nothing may be entered.  This field may not be deleted as"
^DD(2,.258,21,4,0)="long as a spouse's employer's name is on file."
^DD(2,.258,"DT")="2861002"
^DD(2,.290012,0)="ZIP+4 (CIVIL)^FOX^^.291;12^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.290012,1,0)="^.1"
^DD(2,.290012,1,1,0)="2^ACIVZIP4^MUMPS"
^DD(2,.290012,1,1,1)="D SET^DGREGDD1(DA,.2928,.291,10,$E(X,1,5))"
^DD(2,.290012,1,1,2)="D KILL^DGREGDD1(DA,.2928,.291,10,$E(X,1,5))"
^DD(2,.290012,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.290012,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of this "
^DD(2,.290012,1,1,"%D",2,0)="field."
^DD(2,.290012,1,1,"DT")="2930603"
^DD(2,.290012,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.290012,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.290012,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.290012,21,0)="^^4^4^2930603^"
^DD(2,.290012,21,1,0)="Enter the zip code of the address where the person responsible for"
^DD(2,.290012,21,2,0)="handling this patient's funds resides.  Answer with either the 5 digit "
^DD(2,.290012,21,3,0)="format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or "
^DD(2,.290012,21,4,0)="123456789)."
^DD(2,.290012,23,0)="^^3^3^2930603^"
^DD(2,.290012,23,1,0)="Related to other address fields for the person responsible for handling"
^DD(2,.290012,23,2,0)="this patient's funds.  This field 'triggers' the ZIP (CIVIL) (#.2928) "
^DD(2,.290012,23,3,0)="field, using the first 5 digits of this field."
^DD(2,.290012,"DT")="2930913"
^DD(2,.29013,0)="ZIP+4 (VA)^FOX^^.29;13^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2,.29013,1,0)="^.1"
^DD(2,.29013,1,1,0)="2^AVAZIP4^MUMPS"
^DD(2,.29013,1,1,1)="D SET^DGREGDD1(DA,.2918,.29,10,$E(X,1,5))"
^DD(2,.29013,1,1,2)="D KILL^DGREGDD1(DA,.2918,.29,10,$E(X,1,5))"
^DD(2,.29013,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.29013,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of this "
^DD(2,.29013,1,1,"%D",2,0)="field."
^DD(2,.29013,1,1,"DT")="2930603"
^DD(2,.29013,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2,.29013,2.1)="D ZIPOUT^VAFADDR"
^DD(2,.29013,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2,.29013,21,0)="^^4^4^2930603^"
^DD(2,.29013,21,1,0)="If this patient has a VA guardian responsible for handling the patient's"
^DD(2,.29013,21,2,0)="funds, enter the guardian's zip code here.  Answer with either the 5 "
^DD(2,.29013,21,3,0)="digit format (e.g. 12345) or the nine digit format (e.g. 12345-6789 or "
^DD(2,.29013,21,4,0)="123456789)."
^DD(2,.29013,23,0)="^^3^3^2930603^"
^DD(2,.29013,23,1,0)="Related to other address fields for the VA guardian.  This field "
^DD(2,.29013,23,2,0)="'triggers' the ZIP (VA) (#.2918) field, using the first 5 digits of this"
^DD(2,.29013,23,3,0)="field."
^DD(2,.29013,"DT")="2930913"
^DD(2,.291,0)="DATE RULED INCOMPETENT (VA)^D^^.29;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.291,21,0)="^^2^2^2911224^^"
^DD(2,.291,21,1,0)="Enter the date this patient was ruled to be incompetant to handle his"
^DD(2,.291,21,2,0)="VA funds."
^DD(2,.2911,0)="INSTITUTION (VA)^P4'^DIC(4,^.29;3^Q"
^DD(2,.2911,21,0)="^^2^2^2911224^"
^DD(2,.2911,21,1,0)="Enter the VA facility or institution responsible for this patient's VA"
^DD(2,.2911,21,2,0)="funds."
^DD(2,.2911,"DT")="2840914"
^DD(2,.2912,0)="GUARDIAN (VA)^F^^.29;4^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2912,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2912,21,0)="^^2^2^2911224^"
^DD(2,.2912,21,1,0)="Enter the name of the VA representative responsible for this patient's"
^DD(2,.2912,21,2,0)="funds."
^DD(2,.2912,"DT")="2840914"
^DD(2,.2913,0)="RELATIONSHIP (VA)^F^^.29;5^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2913,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2913,21,0)="^^2^2^2911224^"
^DD(2,.2913,21,1,0)="Enter the relationship to the patient of the VA representative responsible"
^DD(2,.2913,21,2,0)="for handling this patient's funds."
^DD(2,.2914,0)="STREET ADDRESS 1 (VA)^F^^.29;6^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2914,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2914,21,0)="^^2^2^2911224^^"
^DD(2,.2914,21,1,0)="Enter the first line of the street address of the VA representative"
^DD(2,.2914,21,2,0)="responsible for handling this patient's funds."
^DD(2,.2915,0)="STREET ADDRESS 2 (VA)^F^^.29;7^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2915,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2915,21,0)="^^2^2^2911224^"
^DD(2,.2915,21,1,0)="Enter the second line of the street address of the VA representative"
^DD(2,.2915,21,2,0)="responsible for handling this patient's funds."
^DD(2,.2916,0)="CITY (VA)^F^^.29;8^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2916,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2916,21,0)="^^2^2^2911224^"
^DD(2,.2916,21,1,0)="Enter the city in which the person reponsible for handling this patient's"
^DD(2,.2916,21,2,0)="funds resides."
^DD(2,.2917,0)="STATE (VA)^P5'^DIC(5,^.29;9^Q"
^DD(2,.2917,21,0)="^^2^2^2911224^"
^DD(2,.2917,21,1,0)="Enter the state in which the person responsible for handling this patient's"
^DD(2,.2917,21,2,0)="funds resides."
^DD(2,.2917,"DT")="2840914"
^DD(2,.2918,0)="ZIP (VA)^F^^.29;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(2,.2918,1,0)="^.1"
^DD(2,.2918,1,1,0)="2^AVAZIP^MUMPS"
^DD(2,.2918,1,1,1)="D SET^DGREGDD1(DA,.29013,.29,13,X)"
^DD(2,.2918,1,1,2)="D KILL^DGREGDD1(DA,.29013,.29,13,X)"
^DD(2,.2918,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.2918,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.2918,1,1,"%D",2,0)="value."
^DD(2,.2918,1,1,"DT")="2930603"
^DD(2,.2918,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(2,.2918,21,0)="^^2^2^2930603^^^"
^DD(2,.2918,21,1,0)="If this patient has a VA guardian responsible for handling the patient's"
^DD(2,.2918,21,2,0)="funds, enter the guardian's zip code here."
^DD(2,.2918,"DT")="2930603"
^DD(2,.2919,0)="PHONE (VA)^F^^.29;11^K:$L(X)>20!($L(X)<3) X"
^DD(2,.2919,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(2,.2919,21,0)="^^2^2^2911224^"
^DD(2,.2919,21,1,0)="If this patient has a VA guardian responsible for handling the patient's"
^DD(2,.2919,21,2,0)="funds, enter the guardian's phone number here."
^DD(2,.2919,"DT")="2840914"
^DD(2,.292,0)="DATE RULED INCOMPETENT (CIVIL)^D^^.29;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.292,3)=""
^DD(2,.292,21,0)="^^2^2^2911224^"
^DD(2,.292,21,1,0)="If this patient was ruled incompetant to handle his funds, enter the"
^DD(2,.292,21,2,0)="date he was ruled incompetant."
^DD(2,.2921,0)="INSTITUTION (CIVIL)^F^^.291;3^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2921,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2921,21,0)="^^3^3^2911224^"
^DD(2,.2921,21,1,0)="If this patient has been ruled incompetant to handle his financial matters,"
^DD(2,.2921,21,2,0)="enter the instituition reponsible for handling the funds on the patient's"
^DD(2,.2921,21,3,0)="behalf."
^DD(2,.2922,0)="GUARDIAN (CIVIL)^F^^.291;4^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2922,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2922,21,0)="^^3^3^2911224^"
^DD(2,.2922,21,1,0)="If this patient has been ruled incompetant to handle his financial matters,"
^DD(2,.2922,21,2,0)="enter the name of the individual responsible for handling the funds on the"
^DD(2,.2922,21,3,0)="patient's behalf."
^DD(2,.2923,0)="RELATIONSHIP (CIVIL)^F^^.291;5^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2923,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2923,21,0)="^^3^3^2911224^"
^DD(2,.2923,21,1,0)="If this patient has been ruled incompetant to handle his financial funds,"
^DD(2,.2923,21,2,0)="and someone else is responsible for handling the funds, enter the"
^DD(2,.2923,21,3,0)="relationship of that person to the patient."
^DD(2,.2924,0)="STREET ADDRESS 1 (CIVIL)^F^^.291;6^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2924,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2924,21,0)="^^2^2^2911224^"
^DD(2,.2924,21,1,0)="Enter the first line of the street address of the person responsible for"
^DD(2,.2924,21,2,0)="handling this patient's funds."
^DD(2,.2925,0)="STREET ADDRESS 2 (CIVIL)^F^^.291;7^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2925,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2925,21,0)="^^2^2^2911224^"
^DD(2,.2925,21,1,0)="Enter the second line of the street address of the person responsible for"
^DD(2,.2925,21,2,0)="handling this patient's funds."
^DD(2,.2926,0)="CITY (CIVIL)^F^^.291;8^K:$L(X)>30!($L(X)<2) X"
^DD(2,.2926,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2,.2926,21,0)="^^2^2^2911224^"
^DD(2,.2926,21,1,0)="Enter the city in which the person responsible for this patient's funds"
^DD(2,.2926,21,2,0)="resides."
^DD(2,.2927,0)="STATE (CIVIL)^P5'^DIC(5,^.291;9^Q"
^DD(2,.2927,3)=""
^DD(2,.2927,21,0)="^^2^2^2911224^^"
^DD(2,.2927,21,1,0)="Enter the state in which the person responsible for handling this patient's"
^DD(2,.2927,21,2,0)="funds resides."
^DD(2,.2928,0)="ZIP (CIVIL)^F^^.291;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(2,.2928,1,0)="^.1"
^DD(2,.2928,1,1,0)="2^ACIVZIP^MUMPS"
^DD(2,.2928,1,1,1)="D SET^DGREGDD1(DA,.290012,.291,12,X)"
^DD(2,.2928,1,1,2)="D KILL^DGREGDD1(DA,.290012,.291,12,X)"
^DD(2,.2928,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.2928,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.2928,1,1,"%D",2,0)="value."
^DD(2,.2928,1,1,"DT")="2930603"
^DD(2,.2928,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(2,.2928,21,0)="^^2^2^2930617^^^^"
^DD(2,.2928,21,1,0)="Enter the zip code of the address where the person responsible for"
^DD(2,.2928,21,2,0)="handling this patient's funds resides."
^DD(2,.2928,"DT")="2930603"
^DD(2,.2929,0)="PHONE (CIVIL)^F^^.291;11^K:$L(X)>20!($L(X)<3) X"
^DD(2,.2929,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(2,.2929,21,0)="^^3^3^2911224^"
^DD(2,.2929,21,1,0)="If this patient has been ruled incompetant to handle his money and another"
^DD(2,.2929,21,2,0)="person has been assigned to handle the patient's financial matters, enter"
^DD(2,.2929,21,3,0)="that person's phone number here."
^DD(2,.293,0)="RATED INCOMPETENT?^S^0:NO;1:YES;^.29;12^Q"
^DD(2,.293,1,0)="^.1"
^DD(2,.293,1,1,0)="2^AENR293^MUMPS"
^DD(2,.293,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.293,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.293,1,1,3)=" DO NOT DELETE"
^DD(2,.293,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.293,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.293,1,1,"%D",2,0)="enrollment."
^DD(2,.293,1,1,"DT")="3050606"
^DD(2,.293,3)="Used by A.M.I.E,  may differ from the Date ruled incompetent"
^DD(2,.293,21,0)="^^4^4^2890512^^^^"
^DD(2,.293,21,1,0)="This field was originated for the use of AMIE (Automated Medical"
^DD(2,.293,21,2,0)="Information Exchange).  One will receive from DVB the information"
^DD(2,.293,21,3,0)="on whether the patient was rated incompetent by the VA. This may"
^DD(2,.293,21,4,0)="differ from the date rated incompetent field in the patient file."
^DD(2,.293,"DT")="2890505"
^DD(2,.301,0)="SERVICE CONNECTED?^RSXa^Y:YES;N:NO;^.3;1^S DFN=DA D EV^DGLOCK I $D(X),X=""Y"" D VET^DGLOCK"
^DD(2,.301,.1)="SC APPLICANT"
^DD(2,.301,1,0)="^.1"
^DD(2,.301,1,1,0)="^^TRIGGER^2^.302"
^DD(2,.301,1,1,1)="X ^DD(2,.301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(2,.301,1,1,1.4)"
^DD(2,.301,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.301,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.301,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.3)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.302 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.301,1,1,2)="Q"
^DD(2,.301,1,1,"CREATE CONDITION")="#.301=""NO"""
^DD(2,.301,1,1,"CREATE VALUE")="@"
^DD(2,.301,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.301,1,1,"FIELD")="#.302"
^DD(2,.301,1,2,0)="^^TRIGGER^2^.3012"
^DD(2,.301,1,2,1)="X ^DD(2,.301,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(2,.301,1,2,1.4)"
^DD(2,.301,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.301,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.301,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""""),DIV=X S $P(^(.3),U,12)=DIV,DIH=2,DIG=.3012 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.301,1,2,2)="Q"
^DD(2,.301,1,2,"%D",0)="^^2^2^2930419^"
^DD(2,.301,1,2,"%D",1,0)="This will delete the SC AWARD DATE (#.3012) field when the SERVICE"
^DD(2,.301,1,2,"%D",2,0)="CONNECTED? field is changed to NO."
^DD(2,.301,1,2,"CREATE CONDITION")="#.301=""NO"""
^DD(2,.301,1,2,"CREATE VALUE")="@"
^DD(2,.301,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.301,1,2,"DT")="2930419"
^DD(2,.301,1,2,"FIELD")="#.3012"
^DD(2,.301,1,3,0)="2^AENR301^MUMPS"
^DD(2,.301,1,3,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.301,1,3,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.301,1,3,3)="DO NOT DELETE"
^DD(2,.301,1,3,"%D",0)="^^2^2^2970630^^"
^DD(2,.301,1,3,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.301,1,3,"%D",2,0)="record."
^DD(2,.301,1,3,"DT")="2970630"
^DD(2,.301,1,991,0)="2^AVAFC301^MUMPS"
^DD(2,.301,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".301;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.301,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".301;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.301,1,991,"%D",0)="^^15^15^2990204^^^"
^DD(2,.301,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.301,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.301,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.301,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.301,1,991,"%D",5,0)=" "
^DD(2,.301,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.301,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.301,1,991,"%D",8,0)="process."
^DD(2,.301,1,991,"%D",9,0)=" "
^DD(2,.301,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.301,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.301,1,991,"%D",12,0)="  "
^DD(2,.301,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.301,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.301,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.301,1,991,"DT")="2970825"
^DD(2,.301,1,992,0)="2^ADGRU301^MUMPS"
^DD(2,.301,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.301,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.301,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.301,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.301,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.301,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.301,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.301,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.301,1,992,"%D",6,0)="interface."
^DD(2,.301,1,992,"%D",7,0)=" "
^DD(2,.301,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.301,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.301,1,992,"DT")="2990921"
^DD(2,.301,3)="Enter 'Y' if this patient is service connected, 'N' if not."
^DD(2,.301,5,1,0)="2^1901^3"
^DD(2,.301,20,0)="^.3LA^1^1"
^DD(2,.301,20,1,0)="ECD"
^DD(2,.301,21,0)="^^5^5^2990204^^^"
^DD(2,.301,21,1,0)="Enter 'Y' if this applicant is service connected, 'N' if not."
^DD(2,.301,21,2,0)="Applicants identified as being non-veterans cannot be entered"
^DD(2,.301,21,3,0)="as service connected.  Once eligibility has been verified only"
^DD(2,.301,21,4,0)="users holding the designated security key may enter/edit this"
^DD(2,.301,21,5,0)="field."
^DD(2,.301,"AUDIT")="y"
^DD(2,.301,"DEL",1,0)="S DFN=DA D EV^DGLOCK I '$D(X)"
^DD(2,.301,"DT")="2960911"
^DD(2,.3012,0)="SC AWARD DATE^DX^^.3;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X N DFN S DFN=DA D SC^DGLOCK1"
^DD(2,.3012,.1)="DATE AWARDED SERVICE CONNECTION"
^DD(2,.3012,3)="Enter the date on which Service Connection is effective based on VBA decision.  This can be obtained from either HINQ or the award letter."
^DD(2,.3012,5,1,0)="2^.301^2"
^DD(2,.3012,21,0)="^^3^3^2930419^"
^DD(2,.3012,21,1,0)="This field contains the effective date of service connection, based on"
^DD(2,.3012,21,2,0)="the VBA decision.  This can be obtained either through HINQ or the "
^DD(2,.3012,21,3,0)="award letter."
^DD(2,.3012,23,0)="^^4^4^2930419^"
^DD(2,.3012,23,1,0)="This field is dependent on the SERVICE CONNECTED? field (#.301)."
^DD(2,.3012,23,2,0)="Changing the SERVICE CONNECTED? response from YES to NO will delete"
^DD(2,.3012,23,3,0)="this field.  No entry to this field is allowed if SERVICE CONNECTED? is"
^DD(2,.3012,23,4,0)="not answered YES."
^DD(2,.3012,"DT")="2930419"
^DD(2,.3014,0)="EFF. DATE COMBINED SC% EVAL.^DX^^.3;14^S %DT=""EP"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(2,.3014,21,0)="^.001^2^2^3050714^^"
^DD(2,.3014,21,1,0)="Data will be filed automatically from HL7 message from the HEC.  This is "
^DD(2,.3014,21,2,0)="the date that the combined Service Connected Disability % was awarded."
^DD(2,.3014,"DT")="3050714"
^DD(2,.302,0)="SERVICE CONNECTED PERCENTAGE^NJ3,0Xa^^.3;2^S DFN=DA D EV^DGLOCK Q:'$D(X)  K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^DPT(DA,.3)),$P(^(.3),U,1)'=""Y"" W !?4,*7,""Only applies to service-connected applicants."" K X"
^DD(2,.302,1,0)="^.1"
^DD(2,.302,1,1,0)="2^ASCP^MUMPS"
^DD(2,.302,1,1,1)="Q"
^DD(2,.302,1,1,2)="Q"
^DD(2,.302,1,2,0)="2^AENR302^MUMPS"
^DD(2,.302,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.302,1,2,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.302,1,2,3)="DO NOT DELETE"
^DD(2,.302,1,2,"%D",0)="^^2^2^2970630^^"
^DD(2,.302,1,2,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.302,1,2,"%D",2,0)="record."
^DD(2,.302,1,2,"DT")="2970630"
^DD(2,.302,1,3,0)="2^AR^MUMPS"
^DD(2,.302,1,3,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.302,1,3,2)="Q"
^DD(2,.302,1,3,3)="DO NOT DELETE!"
^DD(2,.302,1,3,"%D",0)="^^2^2^2990809^"
^DD(2,.302,1,3,"%D",1,0)="This MUMPS cross-reference is needed to determine whether a change in"
^DD(2,.302,1,3,"%D",2,0)="service connected percentage requires that a means test be done."
^DD(2,.302,1,3,"DT")="2990809"
^DD(2,.302,1,991,0)="2^AVAFC302^MUMPS"
^DD(2,.302,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".302;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.302,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".302;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.302,1,991,"%D",0)="^^15^15^3030609^"
^DD(2,.302,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.302,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.302,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.302,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.302,1,991,"%D",5,0)=" "
^DD(2,.302,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.302,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.302,1,991,"%D",8,0)="process."
^DD(2,.302,1,991,"%D",9,0)=" "
^DD(2,.302,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.302,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.302,1,991,"%D",12,0)=" "
^DD(2,.302,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited.  This data "
^DD(2,.302,1,991,"%D",14,0)="is stored in the FIELD(S) EDITED (#2.1) field in the ADT/HL7 PIVOT file "
^DD(2,.302,1,991,"%D",15,0)="(#391.71)."
^DD(2,.302,1,991,"DT")="3030609"
^DD(2,.302,1,992,0)="2^ADGRU302^MUMPS"
^DD(2,.302,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.302,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.302,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.302,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.302,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.302,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.302,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.302,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.302,1,992,"%D",6,0)="interface."
^DD(2,.302,1,992,"%D",7,0)=" "
^DD(2,.302,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.302,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.302,1,992,"DT")="2990921"
^DD(2,.302,3)="For this service connected applicant enter the percentage of service connection between 0 and 100%."
^DD(2,.302,5,1,0)="2^.301^1"
^DD(2,.302,20,0)="^.3LA^1^1"
^DD(2,.302,20,1,0)="ECD"
^DD(2,.302,21,0)="^^5^5^2861007^^"
^DD(2,.302,21,1,0)="If this applicant is service connected (SERVICE CONNECTED prompt must"
^DD(2,.302,21,2,0)="be answered YES) enter the service connected percentage [a number"
^DD(2,.302,21,3,0)="between 0-100].  Once eligibility has been verified only users who hold"
^DD(2,.302,21,4,0)="the designated security key may enter/edit this field.  Field may not be"
^DD(2,.302,21,5,0)="deleted as long as service connection is indicated."
^DD(2,.302,"AUDIT")="y"
^DD(2,.302,"DEL",1,0)="S DFN=DA D EV^DGLOCK Q:'$D(X)  I $D(^DPT(DFN,.3)),$P(^(.3),U,1)=""Y"" W !?4,*7,""Service Connected Applicant...CAN'T DELETE!!"" K X"
^DD(2,.302,"DT")="3030609"
^DD(2,.3025,0)="RECEIVING VA DISABILITY?^SX^Y:YES;N:NO;U:UNKNOWN;^.3;11^S DFN=DA D MV^DGLOCK I $D(X),X=""Y"" D EC^DGLOCK1"
^DD(2,.3025,1,0)="^.1"
^DD(2,.3025,1,1,0)="^^TRIGGER^2^.303"
^DD(2,.3025,1,1,1)="X ^DD(2,.3025,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(2,.3025,1,1,1.4)"
^DD(2,.3025,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3025,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.3025,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.3)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.303 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.3025,1,1,2)="X ^DD(2,.3025,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(2,.3025,1,1,2.4)"
^DD(2,.3025,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.3025,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)="""""
^DD(2,.3025,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.3)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.303 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.3025,1,1,"CREATE CONDITION")="#.3025=""NO"""
^DD(2,.3025,1,1,"CREATE VALUE")="@"
^DD(2,.3025,1,1,"DELETE CONDITION")="#.3025="""""
^DD(2,.3025,1,1,"DELETE VALUE")="@"
^DD(2,.3025,1,1,"FIELD")="#.303"
^DD(2,.3025,1,2,0)="^^TRIGGER^2^.36295"
^DD(2,.3025,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.3025,1,2,1.4)"
^DD(2,.3025,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.3025,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.3025,1,2,2.4)"
^DD(2,.3025,1,2,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.3025,1,2,"CREATE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.3025,1,2,"CREATE VALUE")="@"
^DD(2,.3025,1,2,"DELETE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.3025,1,2,"DELETE VALUE")="@"
^DD(2,.3025,1,2,"DT")="2970327"
^DD(2,.3025,1,2,"FIELD")="#.36295"
^DD(2,.3025,1,3,0)="2^AENR3025^MUMPS"
^DD(2,.3025,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3025,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3025,1,3,3)=" DO NOT DELETE"
^DD(2,.3025,1,3,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.3025,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3025,1,3,"%D",2,0)="enrollment."
^DD(2,.3025,1,3,"DT")="3050606"
^DD(2,.3025,3)="Enter 'Y' if receiving a VA Disability, 'N' if not."
^DD(2,.3025,20,0)="^.3LA^1^1"
^DD(2,.3025,20,1,0)="MB"
^DD(2,.3025,21,0)="^^4^4^2861006^^"
^DD(2,.3025,21,1,0)="For this veteran applicant enter 'Y' if s/he is in receipt of a disability"
^DD(2,.3025,21,2,0)="payment, 'N' if not, or 'U' if unknown.  Once monetary benefits have been"
^DD(2,.3025,21,3,0)="verified only users who hold the designated security key may enter/edit"
^DD(2,.3025,21,4,0)="this field."
^DD(2,.3025,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.3025,"DT")="3010107"
^DD(2,.303,0)="AMOUNT OF VA DISABILITY^NJ7,0X^^.3;3^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.303,9.3)"
^DD(2,.303,.1)="VA DISABILITY AMOUNT"
^DD(2,.303,3)="If in receipt of VA Disability, enter the dollar amount awarded."
^DD(2,.303,5,1,0)="2^.3025^1"
^DD(2,.303,9.2)="I $D(^DPT(DA,.3)),$P(^(.3),U,11)=""Y"" W !?4,*7,""Delete by answering 'RECEIPT OF DISABILITY PAYMENT' prompt NO."" K X"
^DD(2,.303,9.3)="X ^DD(2,.303,9.4) I $D(X),$D(^DPT(DFN,.3)),$P(^(.3),U,11)'=""Y"" W !?4,*7,""Receipt of Disability payment not indicated."" K X Q"
^DD(2,.303,9.4)="I $D(^DPT(DFN,.362)),$P(^(.362),U,4)]"""" W !?4,*7,""Already receiving VA Pension monies...Can't receive both..."" K X Q"
^DD(2,.303,20,0)="^.3LA^1^1"
^DD(2,.303,20,1,0)="MB"
^DD(2,.303,21,0)="^^9^9^2880923^^^^"
^DD(2,.303,21,1,0)="For this veteran applicant who is in receipt of disability payment"
^DD(2,.303,21,2,0)="(RECEIPT OF DISABILITY PAYMENT prompt must be answered YES) enter"
^DD(2,.303,21,3,0)="the amount received [a number between 0-99999].  Once monetary"
^DD(2,.303,21,4,0)="benefits are verified only users who hold the designated security"
^DD(2,.303,21,5,0)="key may enter/edit this field.  Any dollar amomount on file cannot"
^DD(2,.303,21,6,0)="be deleted as long as receipt of disability payment is indicated."
^DD(2,.303,21,7,0)="  "
^DD(2,.303,21,8,0)="If you wish to enter a monthly amount either preceed or follow it with"
^DD(2,.303,21,9,0)="an asterisk and I'll multiply it out for you."
^DD(2,.303,"DEL",1,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.303,9.2):$D(X) I '$D(X)"
^DD(2,.303,"DT")="2880923"
^DD(2,.304,0)="P&T^S^Y:YES;N:NO;^.3;4^Q"
^DD(2,.304,.1)="PERMANENT AND TOTAL"
^DD(2,.304,1,0)="^.1"
^DD(2,.304,1,1,0)="2^AENR304^MUMPS"
^DD(2,.304,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.304,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.304,1,1,3)=" DO NOT DELETE"
^DD(2,.304,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.304,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.304,1,1,"%D",2,0)="enrollment."
^DD(2,.304,1,1,"DT")="3050606"
^DD(2,.304,3)="Is this patient permanently and totally disabled due to an SC condition?"
^DD(2,.304,21,0)="^^2^2^2920214^^^^"
^DD(2,.304,21,1,0)="This field will contain YES if the patient is permanently and totally"
^DD(2,.304,21,2,0)="disabled by VARO due to a service connected condition."
^DD(2,.304,"DT")="2911204"
^DD(2,.305,0)="UNEMPLOYABLE^S^Y:YES;N:NO;^.3;5^Q"
^DD(2,.305,1,0)="^.1"
^DD(2,.305,1,1,0)="2^AENR305^MUMPS"
^DD(2,.305,1,1,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.305,1,1,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.305,1,1,3)="DO NOT DELETE"
^DD(2,.305,1,1,"%D",0)="^^2^2^3040722^"
^DD(2,.305,1,1,"%D",1,0)="This cross-reference is used to update the patient's current"
^DD(2,.305,1,1,"%D",2,0)="Patient Enrollment record."
^DD(2,.305,1,1,"DT")="3040722"
^DD(2,.305,1,2,0)="2^AT^MUMPS"
^DD(2,.305,1,2,1)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.305,1,2,2)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.305,1,2,"%D",0)="^^3^3^3041117^"
^DD(2,.305,1,2,"%D",1,0)="This cross reference acts like a trigger.  It 'triggers' the status field"
^DD(2,.305,1,2,"%D",2,0)="in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It"
^DD(2,.305,1,2,"%D",3,0)="will update the field to 'NO LONGER APPLICABLE' if appropriate."
^DD(2,.305,1,2,"DT")="3041117"
^DD(2,.305,3)="Is this patient unemployable due to an SC condition as rated by VARO?"
^DD(2,.305,21,0)="^^2^2^2911203^^"
^DD(2,.305,21,1,0)="Is this patient rated unemployable by the VARO due to a service connected"
^DD(2,.305,21,2,0)="condition?"
^DD(2,.305,"DT")="3041117"
^DD(2,.306,0)="MONETARY BEN. VERIFY DATE^DX^^.3;6^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK"
^DD(2,.306,3)="Enter the date on which monetary benefits were verified to be accurate."
^DD(2,.306,20,0)="^.3LA^1^1"
^DD(2,.306,20,1,0)="MB"
^DD(2,.306,21,0)="^^5^5^2861006^"
^DD(2,.306,21,1,0)="Once monetary benefits, and amounts, are verified enter the date of"
^DD(2,.306,21,2,0)="verification.  All monetary benefits data fields will become uneditable"
^DD(2,.306,21,3,0)="to any user who does not hold the designated security key once the"
^DD(2,.306,21,4,0)="benefits are verified.  Only users who hold the designated security"
^DD(2,.306,21,5,0)="key may enter/edit this field."
^DD(2,.306,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.306,"DT")="2900418"
^DD(2,.307,0)="INELIGIBLE REASON^FX^^.3;7^K:$L(X)>40!($L(X)<1) X I $D(X) D EK^DGLOCK"
^DD(2,.307,.1)="REASON-INELIGIBLE"
^DD(2,.307,1,0)="^.1"
^DD(2,.307,1,1,0)="2^AENR307^MUMPS"
^DD(2,.307,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.307,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.307,1,1,3)=" DO NOT DELETE"
^DD(2,.307,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.307,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.307,1,1,"%D",2,0)="enrollment."
^DD(2,.307,1,1,"DT")="3050606"
^DD(2,.307,3)="Enter the reason this patient is considered to be ineligible for treatment NTE 40 characters."
^DD(2,.307,20,0)="^.3LA^1^1"
^DD(2,.307,20,1,0)="IPT"
^DD(2,.307,21,0)="^^5^5^2861007^^^"
^DD(2,.307,21,1,0)="If this applicant is ineligible for treatment enter the reason"
^DD(2,.307,21,2,0)="[not to exceed 40 characters].  An ineligible date must be specified"
^DD(2,.307,21,3,0)="in order to enter/edit this field and the user must hold the"
^DD(2,.307,21,4,0)="designated security key.  This field may not be deleted as long as"
^DD(2,.307,21,5,0)="an ineligible date is on file."
^DD(2,.307,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.307,"DT")="2860728"
^DD(2,.309,0)="AGENCY/ALLIED COUNTRY^*P35'X^DIC(35,^.3;9^S DFN=DA D AAC^DGLOCK2"
^DD(2,.309,3)="If applicable, enter the federal agency or allied country associated with this patient."
^DD(2,.309,12)="Screen selections by eligibility code"
^DD(2,.309,12.1)="S %Z1=$S($D(^DPT(DA,.31)):+$P(^(0),U,1),1:""""),%Z=$S('$D(^(""VET"")):"""",^(""VET"")=""N""&(%Z1=4):""A"",%Z=""Y""&(%Z1=5):""C"",1:""""),DIC(""S"")=""I $P(^(0),U,4)=%Z"""
^DD(2,.309,20,0)="^.3LA^1^1"
^DD(2,.309,20,1,0)="ECD"
^DD(2,.309,21,0)="^^4^4^2861007^"
^DD(2,.309,21,1,0)="For this applicant whose eligibility code is either 'OTHER FEDERAL"
^DD(2,.309,21,2,0)="AGENCY' or 'ALLIED VETERAN' select from the available listing"
^DD(2,.309,21,3,0)="the federal agency or allied country, as appropriate, which best"
^DD(2,.309,21,4,0)="classifies this applicant."
^DD(2,.309,"DEL",1,0)="S DFN=DA D EV^DGLOCK I '$D(X)"
^DD(2,.309,"DT")="2861007"
^DD(2,.31,0)="*CATEGORY OF BENEFICIARY^P45.82'X^DIC(45.82,^.3;10^D CAT^DGINP"
^DD(2,.31,.1)="CATEGORY OF BENEFICIARY"
^DD(2,.31,1,0)="^.1"
^DD(2,.31,1,1,0)="2^ACB"
^DD(2,.31,1,1,1)="S ^DPT(""ACB"",$E(X,1,30),DA)="""""
^DD(2,.31,1,1,2)="K ^DPT(""ACB"",$E(X,1,30),DA)"
^DD(2,.31,3)="Enter the category of benificiary for this patient."
^DD(2,.31,21,0)="^^7^7^2911216^"
^DD(2,.31,21,1,0)="This field is no longer used by the MAS package.  It was previously"
^DD(2,.31,21,2,0)="updated via a cross-reference on the CATEGORY OF BENEFICIARY field in"
^DD(2,.31,21,3,0)="the PTF file.  In a prior release of MAS, the use of category of"
^DD(2,.31,21,4,0)="beneficiary was discontinued and period of service is now solely used."
^DD(2,.31,21,5,0)="In a future release of MAS, this field will be removed along with"
^DD(2,.31,21,6,0)="the ACB cross-reference on the PATIENT file and the cross-reference in"
^DD(2,.31,21,7,0)="the PTF file which sets this data."
^DD(2,.31,"DT")="2911216"
^DD(2,.3111,0)="EMPLOYER NAME^FX^^.311;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) D EM^DGLOCK2"
^DD(2,.3111,.1)=""
^DD(2,.3111,1,0)="^.1"
^DD(2,.3111,1,1,0)="2^AXR3^MUMPS"
^DD(2,.3111,1,1,1)="Q"
^DD(2,.3111,1,1,2)="S DGXRF=.3111 D ^DGDDC Q"
^DD(2,.3111,1,2,0)="2^AENR3111^MUMPS"
^DD(2,.3111,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3111,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3111,1,2,3)=" DO NOT DELETE"
^DD(2,.3111,1,2,"%D",0)="^.101^2^2^3050929^^^^"
^DD(2,.3111,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3111,1,2,"%D",2,0)="enrollment."
^DD(2,.3111,1,2,"DT")="3050929"
^DD(2,.3111,3)="Enter the name of this patient's employer [1-30 characters]."
^DD(2,.3111,5,1,0)="2^.31115^2"
^DD(2,.3111,20,0)="^.3LA^1^1"
^DD(2,.3111,20,1,0)="EM1"
^DD(2,.3111,21,0)="^^2^2^2920604^^"
^DD(2,.3111,21,1,0)="If employment status is indicated and is not unemployed enter the"
^DD(2,.3111,21,2,0)="employer name [1-30 characters], otherwise nothing may be entered."
^DD(2,.3111,"DT")="2890530"
^DD(2,.31115,0)="EMPLOYMENT STATUS^RSa^1:EMPLOYED FULL TIME;2:EMPLOYED PART TIME;3:NOT EMPLOYED;4:SELF EMPLOYED;5:RETIRED;6:ACTIVE MILITARY DUTY;9:UNKNOWN;^.311;15^Q"
^DD(2,.31115,1,0)="^.1"
^DD(2,.31115,1,1,0)="^^TRIGGER^2^.31116"
^DD(2,.31115,1,1,1)="X ^DD(2,.31115,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.311)),DIV=X S $P(^(.311),U,16)=DIV,DIH=2,DIG=.31116 D ^DICR"
^DD(2,.31115,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.31115,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""RETIRED"""
^DD(2,.31115,1,1,2)="X ^DD(2,.31115,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.311)),DIV=X S $P(^(.311),U,16)=DIV,DIH=2,DIG=.31116 D ^DICR"
^DD(2,.31115,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.31115,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59))=""RETIRED"""
^DD(2,.31115,1,1,"%D",0)="^.101^5^5^3050302^^^"
^DD(2,.31115,1,1,"%D",1,0)="This trigger Cross Reference will remove the DATE OF RETIREMENT value when"
^DD(2,.31115,1,1,"%D",2,0)="the EMPLOYMENT STATUS changes from RETIRED to any other status."
^DD(2,.31115,1,1,"%D",3,0)=" "
^DD(2,.31115,1,1,"%D",4,0)="When the EMPLOYMENT STATUS changes from anything other than RETIRED, no "
^DD(2,.31115,1,1,"%D",5,0)="change should be made to the DATE OF RETIREMENT."
^DD(2,.31115,1,1,"CREATE CONDITION")="EMPLOYMENT STATUS'=""RETIRED"""
^DD(2,.31115,1,1,"CREATE VALUE")="@"
^DD(2,.31115,1,1,"DELETE CONDITION")="OLD EMPLOYMENT STATUS=""RETIRED"""
^DD(2,.31115,1,1,"DELETE VALUE")="@"
^DD(2,.31115,1,1,"DT")="3041130"
^DD(2,.31115,1,1,"FIELD")="DATE OF RETIREMENT"
^DD(2,.31115,1,2,0)="^^TRIGGER^2^.3111"
^DD(2,.31115,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I ""^3^9^""[$P(^DPT(DA,.311),U,15) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,.31115,1,2,1.4)"
^DD(2,.31115,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.311)):^(.311),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.311)=DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3111 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.31115,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I ""^3^9^""[$P(^DPT(DA,.311),U,15) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.311)):^(.311),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,.31115,1,2,2.4)"
^DD(2,.31115,1,2,2.4)="S DIH=$S($D(^DPT(DIV(0),.311)):^(.311),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.311)=DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3111 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.31115,1,2,"CREATE CONDITION")="I ""^3^9^""[$P(^DPT(DA,.311),U,15)"
^DD(2,.31115,1,2,"CREATE VALUE")="@"
^DD(2,.31115,1,2,"DELETE CONDITION")="I ""^3^9^""[$P(^DPT(DA,.311),U,15)"
^DD(2,.31115,1,2,"DELETE VALUE")="@"
^DD(2,.31115,1,2,"FIELD")="EMPLOYER NAME"
^DD(2,.31115,1,991,0)="2^AVAFC31115^MUMPS"
^DD(2,.31115,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".31115;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.31115,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".31115;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.31115,1,991,"%D",0)="^.101^15^15^3041130^^^^"
^DD(2,.31115,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.31115,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.31115,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.31115,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.31115,1,991,"%D",5,0)=" "
^DD(2,.31115,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.31115,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.31115,1,991,"%D",8,0)="process."
^DD(2,.31115,1,991,"%D",9,0)=" "
^DD(2,.31115,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.31115,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.31115,1,991,"%D",12,0)="  "
^DD(2,.31115,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.31115,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.31115,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.31115,1,991,"DT")="2970825"
^DD(2,.31115,1,992,0)="2^AENR31115^MUMPS"
^DD(2,.31115,1,992,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.31115,1,992,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.31115,1,992,3)=" DO NOT DELETE"
^DD(2,.31115,1,992,"%D",0)="^.101^2^2^3050929^^^^"
^DD(2,.31115,1,992,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.31115,1,992,"%D",2,0)="enrollment."
^DD(2,.31115,1,992,"DT")="3050929"
^DD(2,.31115,3)="Enter this patient's current employment status."
^DD(2,.31115,20,0)="^.3LA^1^1"
^DD(2,.31115,20,1,0)="PEMP"
^DD(2,.31115,21,0)="^^2^2^2920604^^"
^DD(2,.31115,21,1,0)="Enter the patient's current employment status.  Choose from the available"
^DD(2,.31115,21,2,0)="choices."
^DD(2,.31115,"AUDIT")="y"
^DD(2,.31115,"DT")="3060802"
^DD(2,.31116,0)="DATE OF RETIREMENT^DX^^.311;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X K:Y>DT X K:(+$P(^DPT(DA,0),""^"",3)>Y) X K:(+$P($G(^DPT(DA,.311)),""^"",15)'=5) X"
^DD(2,.31116,3)="For this veteran applicant enter the date s/he retired from her/his place of employment.  A date may only be entered if the veteran is RETIRED."
^DD(2,.31116,5,1,0)="2^.31115^1"
^DD(2,.31116,21,0)="^.001^2^2^3050526^^^^"
^DD(2,.31116,21,1,0)="For this veteran applicant, enter the date s/he retired from"
^DD(2,.31116,21,2,0)="her/his place of employment."
^DD(2,.31116,23,0)="^.001^4^4^3050526^^^^"
^DD(2,.31116,23,1,0)="The Input Transform for the DATE OF RETIREMENT compares the date entered"
^DD(2,.31116,23,2,0)="to the Patient's DATE OF BIRTH.  If the DATE OF BIRTH is later than the "
^DD(2,.31116,23,3,0)="DATE OF RETIREMENT, the entered date is not accepted for the DATE OF "
^DD(2,.31116,23,4,0)="RETIREMENT."
^DD(2,.31116,"DT")="3050526"
^DD(2,.3112,0)="GOVERNMENT AGENCY^SX^Y:YES;N:NO;^.311;2^I $D(X),X=""Y"" S DFN=DA D EM1^DGLOCK2"
^DD(2,.3112,3)="Enter 'Y' if this patient is employed by a government agency, 'N' if not."
^DD(2,.3112,21,0)="^^3^3^2911214^^"
^DD(2,.3112,21,1,0)="If this patient is currently employed by a government agency, respond yes"
^DD(2,.3112,21,2,0)="to this question.  If the patient is employed by the private sector or"
^DD(2,.3112,21,3,0)="currently is unemployed, respond no."
^DD(2,.3112,"DEL",1,0)="S DFN=DA D EMD^DGLOCK2 I '$D(X)"
^DD(2,.3112,"DT")="2890531"
^DD(2,.3113,0)="EMPLOYER STREET [LINE 1]^FX^^.311;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2"
^DD(2,.3113,.1)=""
^DD(2,.3113,1,0)="^.1"
^DD(2,.3113,1,1,0)="2^AXR20^MUMPS"
^DD(2,.3113,1,1,1)="Q"
^DD(2,.3113,1,1,2)="S DGXRF=.3113 D ^DGDDC Q"
^DD(2,.3113,3)="Enter the first line of the employer's address [1-30 characters]."
^DD(2,.3113,20,0)="^.3LA^1^1"
^DD(2,.3113,20,1,0)="EM1"
^DD(2,.3113,21,0)="^^4^4^2920604^^"
^DD(2,.3113,21,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3113,21,2,0)="an employer name is entered enter the first line of the employer"
^DD(2,.3113,21,3,0)="street address [1-30 characters], otherwise nothing may be entered."
^DD(2,.3113,21,4,0)="This field cannot be deleted as long as an employer name is on file."
^DD(2,.3113,"DEL",1,0)="S DFN=DA D EMD^DGLOCK2 I '$D(X)"
^DD(2,.3113,"DT")="2890531"
^DD(2,.3114,0)="EMPLOYER STREET [LINE 2]^FX^^.311;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2"
^DD(2,.3114,.1)=""
^DD(2,.3114,1,0)="^.1"
^DD(2,.3114,1,1,0)="2^AXR21^MUMPS"
^DD(2,.3114,1,1,1)="Q"
^DD(2,.3114,1,1,2)="S DGXRF=.3114 D ^DGDDC Q"
^DD(2,.3114,3)="If necessary, enter the second line of the employer's address [1-30 characters]."
^DD(2,.3114,20,0)="^.3LA^1^1"
^DD(2,.3114,20,1,0)="EM1"
^DD(2,.3114,21,0)="^^5^5^2920604^^"
^DD(2,.3114,21,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3114,21,2,0)="an employer name is entered enter the second line of the employer"
^DD(2,.3114,21,3,0)="street address [1-30 characters], if necessary, otherwise nothing"
^DD(2,.3114,21,4,0)="may be entered.  This field cannot be deleted as long as an employer"
^DD(2,.3114,21,5,0)="name is on file."
^DD(2,.3114,"DT")="2890531"
^DD(2,.3115,0)="EMPLOYER STREET [LINE 3]^FX^^.311;5^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2"
^DD(2,.3115,.1)=""
^DD(2,.3115,3)="If necessary, enter the third line of the employer's address [1-30 characters]."
^DD(2,.3115,20,0)="^.3LA^1^1"
^DD(2,.3115,20,1,0)="EM1"
^DD(2,.3115,21,0)="^^5^5^2920604^^"
^DD(2,.3115,21,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3115,21,2,0)="an employer name is entered enter the third line of the employer"
^DD(2,.3115,21,3,0)="street address [1-30 characters], if necessary, otherwise nothing"
^DD(2,.3115,21,4,0)="may be entered.  This field cannot be deleted as long as an employer"
^DD(2,.3115,21,5,0)="name is on file."
^DD(2,.3115,"DT")="2890531"
^DD(2,.3116,0)="EMPLOYER CITY^FX^^.311;6^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D EM1^DGLOCK2"
^DD(2,.3116,.1)=""
^DD(2,.3116,3)="Enter the city in which this patient is employed [1-30 characters]."
^DD(2,.3116,20,0)="^.3LA^1^1"
^DD(2,.3116,20,1,0)="EM1"
^DD(2,.3116,21,0)="^^4^4^2920604^^"
^DD(2,.3116,21,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3116,21,2,0)="an employer name is entered enter the employer city [1-30 characters],"
^DD(2,.3116,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted as"
^DD(2,.3116,21,4,0)="long as an employer name is on file."
^DD(2,.3116,"DEL",1,0)="S DFN=DA D EMD^DGLOCK2 I '$D(X)"
^DD(2,.3116,"DT")="2890531"
^DD(2,.3117,0)="EMPLOYER STATE^P5'X^DIC(5,^.311;7^I $D(X) S DFN=DA D EM1^DGLOCK2"
^DD(2,.3117,.1)=""
^DD(2,.3117,3)="Enter the state in which this patient is employed."
^DD(2,.3117,20,0)="^.3LA^1^1"
^DD(2,.3117,20,1,0)="EM1"
^DD(2,.3117,21,0)="^^4^4^2920604^^"
^DD(2,.3117,21,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3117,21,2,0)="an employer name is entered select from the available listing the"
^DD(2,.3117,21,3,0)="employer state, otherwise nothing may be entered.  This field"
^DD(2,.3117,21,4,0)="cannot be deleted as long as an employer name is on file."
^DD(2,.3117,"DEL",1,0)="S DFN=DA D EMD^DGLOCK2 I '$D(X)"
^DD(2,.3117,"DT")="2890531"
^DD(2,.3118,0)="EMPLOYER ZIP CODE^FX^^.311;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D EM1^DGLOCK2"
^DD(2,.3118,.1)=""
^DD(2,.3118,1,0)="^.1"
^DD(2,.3118,1,1,0)="2^AEM1ZIP^MUMPS"
^DD(2,.3118,1,1,1)="D SET^DGREGDD1(DA,.2205,.22,5,X)"
^DD(2,.3118,1,1,2)="D KILL^DGREGDD1(DA,.2205,.22,5,X)"
^DD(2,.3118,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.3118,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.3118,1,1,"%D",2,0)="value."
^DD(2,.3118,1,1,"DT")="2930603"
^DD(2,.3118,3)="Enter the 5-digit zip code for this patient's place of employment."
^DD(2,.3118,20,0)="^.3LA^1^1"
^DD(2,.3118,20,1,0)="EM1"
^DD(2,.3118,21,0)="^^4^4^2930603^^^"
^DD(2,.3118,21,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3118,21,2,0)="an employer name is entered enter the employer zip code [5 numerics],"
^DD(2,.3118,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted as"
^DD(2,.3118,21,4,0)="long as an employer name is on file."
^DD(2,.3118,"DEL",1,0)="S DFN=DA D EMD^DGLOCK2 I '$D(X)"
^DD(2,.3118,"DT")="2930603"
^DD(2,.3119,0)="EMPLOYER PHONE NUMBER^FX^^.311;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D EM1^DGLOCK2"
^DD(2,.3119,.1)=""
^DD(2,.3119,3)="Enter this patient's employment telephone number [3-20 characters]."
^DD(2,.3119,20,0)="^.3LA^1^1"
^DD(2,.3119,20,1,0)="EM1"
^DD(2,.3119,21,0)="^^4^4^2930611^^^^"
^DD(2,.3119,21,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3119,21,2,0)="an employer name is entered enter the employer telephone number"
^DD(2,.3119,21,3,0)="[3-20 characters], otherwise nothing may be entered.  This field"
^DD(2,.3119,21,4,0)="cannot be deleted as long as an employer name is on file."
^DD(2,.3119,23,0)="^^4^4^2930611^^^"
^DD(2,.3119,23,1,0)="If employment status is indicated, applicant is not unemployed and"
^DD(2,.3119,23,2,0)="an employer name is entered enter the employer telephone number"
^DD(2,.3119,23,3,0)="[3-20 characters], otherwise nothing may be entered.  This field"
^DD(2,.3119,23,4,0)="cannot be deleted as long as an employer name is on file."
^DD(2,.3119,"DT")="2890531"
^DD(2,.312,0)="*CLAIM FOLDER LOCATION^F^^.31;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<2) X"
^DD(2,.312,1,0)="^.1^^-1"
^DD(2,.312,1,2,0)="2^AENR312^MUMPS"
^DD(2,.312,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.312,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.312,1,2,3)=" DO NOT DELETE"
^DD(2,.312,1,2,"%D",0)="^.101^2^2^3051003^^^^"
^DD(2,.312,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.312,1,2,"%D",2,0)="enrollment."
^DD(2,.312,1,2,"DT")="3050606"
^DD(2,.312,3)="Enter the location of this patient's VA claim folder [2-40 characters]."
^DD(2,.312,20,0)="^.3LA^1^1"
^DD(2,.312,20,1,0)="ECD"
^DD(2,.312,21,0)="^^2^2^2930330^^^"
^DD(2,.312,21,1,0)="For this veteran applicant enter, if applicable, the location of"
^DD(2,.312,21,2,0)="his/her VA claim folder [2-40 characters]."
^DD(2,.312,"DT")="2930413"
^DD(2,.3121,0)="INSURANCE TYPE^2.312IPA^^.312;0"
^DD(2,.3121,3)="Select from the listing available the type of insurance under which this patient is covered."
^DD(2,.3121,20,0)="^.3LA^1^1"
^DD(2,.3121,20,1,0)="II"
^DD(2,.3121,21,0)="^^2^2^2930823^^^^"
^DD(2,.3121,21,1,0)="From the available listing enter the type of insurance under which this"
^DD(2,.3121,21,2,0)="applicant is covered regardless of who holds the policy."
^DD(2,.3121,22)=""
^DD(2,.313,0)="CLAIM NUMBER^FXOa^^.31;3^S DFN=DA D EV^DGLOCK I $D(X) S L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1""SS"".E ""  "",L S:X?1""SS"".E X=L K:$L(X)>9 X Q:'$D(X)  I X'=L K:$L(X)>8!($L(X)<7)!'(X?.N) X"
^DD(2,.313,1,0)="^.1"
^DD(2,.313,1,991,0)="2^AVAFC313^MUMPS"
^DD(2,.313,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".313;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.313,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".313;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.313,1,991,"%D",0)="^.101^15^15^3030211^^"
^DD(2,.313,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.313,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.313,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.313,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.313,1,991,"%D",5,0)="  "
^DD(2,.313,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.313,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.313,1,991,"%D",8,0)="process."
^DD(2,.313,1,991,"%D",9,0)="  "
^DD(2,.313,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.313,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.313,1,991,"%D",12,0)="  "
^DD(2,.313,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.313,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.313,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.313,1,991,"DT")="3030210"
^DD(2,.313,1,992,0)="2^AENR313^MUMPS"
^DD(2,.313,1,992,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.313,1,992,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.313,1,992,3)=" DO NOT DELETE"
^DD(2,.313,1,992,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.313,1,992,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.313,1,992,"%D",2,0)="enrollment."
^DD(2,.313,1,992,"DT")="3050606"
^DD(2,.313,2)="S Y(0)=Y S Y=$E(Y,1,10)"
^DD(2,.313,2.1)="S Y=$E(Y,1,10)"
^DD(2,.313,3)="Enter this patient's claim number as 7-8 numerics or enter SS if the claim number is the same as his/her SSN.  Pseudo SSNs are not allowed."
^DD(2,.313,20,0)="^.3LA^1^1"
^DD(2,.313,20,1,0)="ECD"
^DD(2,.313,21,0)="^^4^4^2861117^^^"
^DD(2,.313,21,1,0)="If the applicant is a veteran enter his/her claim number as 7-8 numerics"
^DD(2,.313,21,2,0)="or by entering the characters 'SS' if his/her claim number is the same"
^DD(2,.313,21,3,0)="as his/her social security number.  Once eligibility has been verified"
^DD(2,.313,21,4,0)="only users who hold the designated security key may enter/edit this field."
^DD(2,.313,"AUDIT")="y"
^DD(2,.313,"DEL",1,0)="S DFN=DA D EV^DGLOCK I '$D(X)"
^DD(2,.313,"DT")="3060905"
^DD(2,.314,0)="CLAIM FOLDER LOCATION^*P4'X^DIC(4,^.31;4^S DIC(""S"")=""I $$CFLTF^DGREGDD(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,.314,1,0)="^.1"
^DD(2,.314,1,1,0)="2^ACFL4^MUMPS"
^DD(2,.314,1,1,1)="D SET^DGREGDD(DA,X)"
^DD(2,.314,1,1,2)="D KILL^DGREGDD(DA)"
^DD(2,.314,1,1,"%D",0)="^.101^2^2^3060328^^^^"
^DD(2,.314,1,1,"%D",1,0)="This sets the *CLAIM FOLDER LOCATION field to be the station number"
^DD(2,.314,1,1,"%D",2,0)="concatenated with the name of the institution."
^DD(2,.314,1,1,"DT")="3060328"
^DD(2,.314,3)="Enter the location of the patient's claim folder  "
^DD(2,.314,12)="Only allow active sites with station # and valid facility type"
^DD(2,.314,12.1)="S DIC(""S"")=""I $$CFLTF^DGREGDD(Y)"""
^DD(2,.314,21,0)="^.001^9^9^3060329^^"
^DD(2,.314,21,1,0)="This is the location of the patient's claim folder.  It must be an entry"
^DD(2,.314,21,2,0)="in the INSTITUTION File."
^DD(2,.314,21,3,0)="Valid facility types:"
^DD(2,.314,21,4,0)="RO           (Regional Office)"
^DD(2,.314,21,5,0)="RO&IC        (Regional Office and Insurance Center)"
^DD(2,.314,21,6,0)="RO-OC        (Regional Office - Outpatient Clinic)"
^DD(2,.314,21,7,0)="RPC          (Record Processing Center)"
^DD(2,.314,21,8,0)="M&ROC        (Medical and Regional Office Center)"
^DD(2,.314,21,9,0)="M&ROC (M&RO) (Medical and Regional Office Center)"
^DD(2,.314,23,0)="^.001^1^1^3060329^^^^"
^DD(2,.314,23,1,0)="This is a pointer to the INSTITUTION File (#4)."
^DD(2,.314,"DT")="3060930"
^DD(2,.3192,0)="COVERED BY HEALTH INSURANCE?^RS^Y:YES;N:NO;U:UNKNOWN;^.31;11^Q"
^DD(2,.3192,.1)="ARE YOU COVERED BY ANY HEALTH INSURANCE"
^DD(2,.3192,1,0)="^.1"
^DD(2,.3192,1,1,0)="2^AENR3192^MUMPS"
^DD(2,.3192,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3192,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3192,1,1,3)=" DO NOT DELETE"
^DD(2,.3192,1,1,"%D",0)="^.101^2^2^3050615^^^^"
^DD(2,.3192,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3192,1,1,"%D",2,0)="enrollment."
^DD(2,.3192,1,1,"DT")="3050615"
^DD(2,.3192,3)="Enter 'Y' if this patient is covered by health insurance, 'N' if not."
^DD(2,.3192,20,0)="^.3LA^1^1"
^DD(2,.3192,20,1,0)="II"
^DD(2,.3192,21,0)="^^3^3^2861117^^^^"
^DD(2,.3192,21,1,0)="Enter 'Y' if this applicant is covered by a health insurance policy"
^DD(2,.3192,21,2,0)="regardless of who holds policy (applicant, spouse, employer, etc.),"
^DD(2,.3192,21,3,0)="'N' if s/he isn't covered by any policy, or 'U' if unknown."
^DD(2,.3192,"DT")="2911211"
^DD(2,.32101,0)="VIETNAM SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;1^S DFN=DA D SV^DGLOCK"
^DD(2,.32101,.1)="DID YOU SERVE IN VIET NAM"
^DD(2,.32101,1,0)="^.1"
^DD(2,.32101,1,1,0)="^^TRIGGER^2^.32104"
^DD(2,.32101,1,1,1)="X ^DD(2,.32101,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P(Y(1),U,4) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.32101,1,1,1.4)"
^DD(2,.32101,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32101,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32101,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(.321)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.32104 D ^DICR"
^DD(2,.32101,1,1,2)="Q"
^DD(2,.32101,1,1,"CREATE CONDITION")="#.32101=""NO"""
^DD(2,.32101,1,1,"CREATE VALUE")="@"
^DD(2,.32101,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.32101,1,1,"FIELD")="#.32104"
^DD(2,.32101,1,2,0)="^^TRIGGER^2^.32105"
^DD(2,.32101,1,2,1)="X ^DD(2,.32101,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.32101,1,2,1.4)"
^DD(2,.32101,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32101,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32101,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.321)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.32105 D ^DICR"
^DD(2,.32101,1,2,2)="Q"
^DD(2,.32101,1,2,"CREATE CONDITION")="#.32101=""NO"""
^DD(2,.32101,1,2,"CREATE VALUE")="@"
^DD(2,.32101,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.32101,1,2,"FIELD")="#.32105"
^DD(2,.32101,1,3,0)="2^AENR32101^MUMPS"
^DD(2,.32101,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32101,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32101,1,3,"%D",0)="^^2^2^3040614^"
^DD(2,.32101,1,3,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32101,1,3,"%D",2,0)="VIETNAM SERVICE INDICATED? field."
^DD(2,.32101,1,3,"DT")="3040614"
^DD(2,.32101,3)="Enter 'Y' if this patient served in Vietnam, 'N' if not, 'U' if unknown."
^DD(2,.32101,20,0)="^.3LA^1^1"
^DD(2,.32101,20,1,0)="VN"
^DD(2,.32101,21,0)="^^4^4^2930629^^^"
^DD(2,.32101,21,1,0)="For this veteran applicant enter 'Y' if s/he actually served in the"
^DD(2,.32101,21,2,0)="Republic of Vietnam, 'N' if not, or 'U' if unknown.  Once the service"
^DD(2,.32101,21,3,0)="record has been verified only users who hold the designated security"
^DD(2,.32101,21,4,0)="key may enter/edit this field."
^DD(2,.32101,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.32101,"DT")="3040614"
^DD(2,.32102,0)="AGENT ORANGE EXPOS. INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;2^S DFN=DA D SV^DGLOCK"
^DD(2,.32102,.1)="EXPOSED TO AGENT ORANGE"
^DD(2,.32102,1,0)="^.1"
^DD(2,.32102,1,1,0)="^^TRIGGER^2^.32107"
^DD(2,.32102,1,1,1)="X ^DD(2,.32102,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P(Y(1),U,7) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.32102,1,1,1.4)"
^DD(2,.32102,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32102,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32102,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U"" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(.321)=$P(DIH,U,1,6)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.32107 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.32102,1,1,2)="Q"
^DD(2,.32102,1,1,"CREATE CONDITION")="#.32102=""NO"""
^DD(2,.32102,1,1,"CREATE VALUE")="@"
^DD(2,.32102,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.32102,1,1,"FIELD")="#.32107"
^DD(2,.32102,1,2,0)="^^TRIGGER^2^.32109"
^DD(2,.32102,1,2,1)="X ^DD(2,.32102,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P(Y(1),U,9) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.32102,1,2,1.4)"
^DD(2,.32102,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32102,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32102,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U"" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(.321)=$P(DIH,U,1,8)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.32109 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.32102,1,2,2)="Q"
^DD(2,.32102,1,2,"CREATE CONDITION")="#.32102=""NO"""
^DD(2,.32102,1,2,"CREATE VALUE")="@"
^DD(2,.32102,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.32102,1,2,"FIELD")="#.32109"
^DD(2,.32102,1,3,0)="^^TRIGGER^2^.3211"
^DD(2,.32102,1,3,1)="X ^DD(2,.32102,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P(Y(1),U,10) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.32102,1,3,1.4)"
^DD(2,.32102,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32102,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32102,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(.321)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3211 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.32102,1,3,2)="Q"
^DD(2,.32102,1,3,"CREATE CONDITION")="#.32102=""NO"""
^DD(2,.32102,1,3,"CREATE VALUE")="@"
^DD(2,.32102,1,3,"DELETE VALUE")="NO EFFECT"
^DD(2,.32102,1,3,"FIELD")="#.3211"
^DD(2,.32102,1,4,0)="2^AENR32102^MUMPS"
^DD(2,.32102,1,4,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.32102,1,4,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.32102,1,4,3)="DO NOT DELETE"
^DD(2,.32102,1,4,"%D",0)="^^2^2^2970630^^"
^DD(2,.32102,1,4,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.32102,1,4,"%D",2,0)="record."
^DD(2,.32102,1,4,"DT")="2970630"
^DD(2,.32102,1,5,0)="^^TRIGGER^2^.3213"
^DD(2,.32102,1,5,1)="X ^DD(2,.32102,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.321)),DIV=X S $P(^(.321),U,13)=DIV,DIH=2,DIG=.3213 D ^DICR"
^DD(2,.32102,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32102,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32102,1,5,2)="Q"
^DD(2,.32102,1,5,"CREATE CONDITION")="#.32102=""NO"""
^DD(2,.32102,1,5,"CREATE VALUE")="@"
^DD(2,.32102,1,5,"DELETE VALUE")="NO EFFECT"
^DD(2,.32102,1,5,"DT")="3010314"
^DD(2,.32102,1,5,"FIELD")="#.3213"
^DD(2,.32102,3)="Enter 'Y' if this patient claims exposure to agent orange, 'N' if not, 'U' if unknown."
^DD(2,.32102,20,0)="^.3LA^1^1"
^DD(2,.32102,20,1,0)="AO"
^DD(2,.32102,21,0)="^^8^8^3010529^"
^DD(2,.32102,21,1,0)="For this veteran applicant enter 'Y' if s/he was exposed to the chemical"
^DD(2,.32102,21,2,0)="agent orange, 'N' if not, or 'U' if unknown.  Exposure can not be claimed"
^DD(2,.32102,21,3,0)="unless the Period of Service (field .323) is answered VIETNAM ERA, which"
^DD(2,.32102,21,4,0)="entails those serving in the Korean DMZ between January 1, 1968 and"
^DD(2,.32102,21,5,0)="December 31, 1969 or Vietnam."
^DD(2,.32102,21,6,0)=" "
^DD(2,.32102,21,7,0)="Once the service record has been verified only users who hold the"
^DD(2,.32102,21,8,0)="designated security key may enter/edit this field."
^DD(2,.32102,"DT")="3010529"
^DD(2,.32103,0)="RADIATION EXPOSURE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.321;3^S DFN=DA D SV^DGLOCK"
^DD(2,.32103,.1)="WERE YOU EXPOSED TO RADIATION"
^DD(2,.32103,1,0)="^.1"
^DD(2,.32103,1,1,0)="^^TRIGGER^2^.3212"
^DD(2,.32103,1,1,1)="X ^DD(2,.32103,1,1,1.3) I X S X=DIV S Y(2)="";""_$S($D(^DD(2,.3212,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P($P(Y(2),"";""_$P(Y(1),U,12)_"":"",2),"";"",1) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.32103,1,1,1.4)"
^DD(2,.32103,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32103,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U"" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.321)=$P(DIH,U,1,11)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3212 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.32103,1,1,2)="Q"
^DD(2,.32103,1,1,"CREATE CONDITION")="#.32103=""NO"""
^DD(2,.32103,1,1,"CREATE VALUE")="@"
^DD(2,.32103,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.32103,1,1,"FIELD")="#.3212"
^DD(2,.32103,1,2,0)="^^TRIGGER^2^.32111"
^DD(2,.32103,1,2,1)="X ^DD(2,.32103,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.321)):^(.321),1:"""") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.32103,1,2,1.4)"
^DD(2,.32103,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32103,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32103,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.321)):^(.321),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U"" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(.321)=$P(DIH,U,1,10)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.32111 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.32103,1,2,2)="Q"
^DD(2,.32103,1,2,"CREATE CONDITION")="#.32103=""NO"""
^DD(2,.32103,1,2,"CREATE VALUE")="@"
^DD(2,.32103,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.32103,1,2,"FIELD")="#.32111"
^DD(2,.32103,1,3,0)="2^AENR32103^MUMPS"
^DD(2,.32103,1,3,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.32103,1,3,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.32103,1,3,3)="DO NOT DELETE"
^DD(2,.32103,1,3,"%D",0)="^^3^3^2970630^^^"
^DD(2,.32103,1,3,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.32103,1,3,"%D",2,0)="record."
^DD(2,.32103,1,3,"%D",3,0)=""
^DD(2,.32103,1,3,"DT")="2970630"
^DD(2,.32103,3)="Enter the RADIATION EXPOSURE INDICATED associated with the enrollment priority determination"
^DD(2,.32103,20,0)="^.3LA^1^1"
^DD(2,.32103,20,1,0)="IRD"
^DD(2,.32103,21,0)="^.001^17^17^3060507^^^^"
^DD(2,.32103,21,1,0)="Enter 'Y' if the veteran was exposed to ionizing radiation 1) at a"
^DD(2,.32103,21,2,0)="nuclear device testing site (e.g. the Pacific Islands, NM or NV) or"
^DD(2,.32103,21,3,0)="2) as a POW or while serving in Hiroshima and/or Nagasaki, Japan"
^DD(2,.32103,21,4,0)="from August 6, 1945 through July 1, 1946, or 3) served at"
^DD(2,.32103,21,5,0)="Department of Energy plants at Paducah, KY, Portsmouth, OH or"
^DD(2,.32103,21,6,0)="the K25 area at Oak Ridge, TN for at least 250 days before"
^DD(2,.32103,21,7,0)="February 1, 1992 or 4) served at Longshot, Milrow, or"
^DD(2,.32103,21,8,0)="Cannikin underground nuclear tests at Amchitka Island, AK"
^DD(2,.32103,21,9,0)="prior to January 1, 1974.  "
^DD(2,.32103,21,10,0)=" "
^DD(2,.32103,21,11,0)="Veterans exposed by method #3 or #4 are not eligible for "
^DD(2,.32103,21,12,0)="copay exemption or enrollment in priority 6 based on their IR exposure."
^DD(2,.32103,21,13,0)=" "
^DD(2,.32103,21,14,0)="Enter 'N' if not exposed or 'U' if unknown."
^DD(2,.32103,21,15,0)=" "
^DD(2,.32103,21,16,0)="Once the record has been verified only HEC users "
^DD(2,.32103,21,17,0)="may enter/edit this field."
^DD(2,.32103,"DT")="3060507"
^DD(2,.32104,0)="VIETNAM FROM DATE^RDX^^.321;4^S %DT=""E"" D ^%DT S X=Y I $D(X) K:'$$VALCON^DGRPMS(DA,""VIET"",X,0) X I $D(X) S DFN=DA D VN^DGLOCK S:$D(X) DGFRDT=X"
^DD(2,.32104,.1)=""
^DD(2,.32104,1,0)="^.1"
^DD(2,.32104,1,1,0)="2^AENR32104^MUMPS"
^DD(2,.32104,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32104,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32104,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.32104,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32104,1,1,"%D",2,0)="VIETNAM FROM DATE field."
^DD(2,.32104,1,1,"DT")="3040614"
^DD(2,.32104,3)="Enter the date this patient commenced service in the Republic of Vietnam."
^DD(2,.32104,5,1,0)="2^.32101^1"
^DD(2,.32104,20,0)="^.3LA^1^1"
^DD(2,.32104,20,1,0)="VN"
^DD(2,.32104,21,0)="^^6^6^3040402^"
^DD(2,.32104,21,1,0)="For this veteran applicant who served in the Republic of Vietnam (DID"
^DD(2,.32104,21,2,0)="YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which"
^DD(2,.32104,21,3,0)="service in vietnam commenced [between February 28, 1961 and May 7, 1975]."
^DD(2,.32104,21,4,0)="Once the service record is verified only users who hold the designated"
^DD(2,.32104,21,5,0)="security key may enter/edit this field.  As long as Vietnam service is"
^DD(2,.32104,21,6,0)="indicated this date may not be deleted.                                "
^DD(2,.32104,"DEL",1,0)="S DFN=DA D VND^DGLOCK1 I '$D(X)"
^DD(2,.32104,"DT")="3040722"
^DD(2,.32105,0)="VIETNAM TO DATE^RDX^^.321;5^S %DT=""E"" D ^%DT S X=Y I $D(X) K:'$$VALCON^DGRPMS(DA,""VIET"",X,1) X I $D(X) S DFN=DA D VN^DGLOCK"
^DD(2,.32105,.1)=""
^DD(2,.32105,1,0)="^.1"
^DD(2,.32105,1,1,0)="2^AENR32105^MUMPS"
^DD(2,.32105,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32105,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32105,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.32105,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32105,1,1,"%D",2,0)="VIETNAM TO DATE field."
^DD(2,.32105,1,1,"DT")="3040614"
^DD(2,.32105,3)="Enter the date this patient ended service in the Republic of Vietnam."
^DD(2,.32105,5,1,0)="2^.32101^2"
^DD(2,.32105,20,0)="^.3LA^1^1"
^DD(2,.32105,20,1,0)="VN"
^DD(2,.32105,21,0)="^^6^6^3040407^"
^DD(2,.32105,21,1,0)="For this veteran applicant who served in the Republic of Vietnam (DID"
^DD(2,.32105,21,2,0)="YOU SERVE IN VIETNAM prompt must be answered YES) enter the date on which"
^DD(2,.32105,21,3,0)="service in Vietnam ended [between February 28, 1961 and May 7, 1975]. Once"
^DD(2,.32105,21,4,0)="the service record is verified only user who hold the designated security"
^DD(2,.32105,21,5,0)="key may enter/edit this field.  As long as Vietnam service is indicated"
^DD(2,.32105,21,6,0)="this date may not be deleted."
^DD(2,.32105,"DEL",1,0)="S DFN=DA D VND^DGLOCK1 I '$D(X)"
^DD(2,.32105,"DT")="3040614"
^DD(2,.32107,0)="AGENT ORANGE REGISTRATION DATE^DX^^.321;7^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK I $D(X) D DOB^DGHELP"
^DD(2,.32107,.1)=""
^DD(2,.32107,1,0)="^.1^^0"
^DD(2,.32107,3)="Enter the date on which this patient was registered as being exposed to agent orange."
^DD(2,.32107,5,1,0)="2^.32102^1"
^DD(2,.32107,20,0)="^.3LA^1^1"
^DD(2,.32107,20,1,0)="AO"
^DD(2,.32107,21,0)="^^5^5^2861007^^"
^DD(2,.32107,21,1,0)="For this veteran applicant who was exposed to agent orange (EXPOSED TO"
^DD(2,.32107,21,2,0)="AGENT ORANGE prompt must be answered YES) enter the date registered.  Once"
^DD(2,.32107,21,3,0)="the service record is verified only users who hold the designated"
^DD(2,.32107,21,4,0)="security key may enter/edit this field.  As long as agent orange"
^DD(2,.32107,21,5,0)="exposure is indicated this field may not be deleted."
^DD(2,.32107,"DEL",1,0)="S DFN=DA D AOD^DGLOCK1 I '$D(X)"
^DD(2,.32107,"DT")="2900418"
^DD(2,.32108,0)="AGENT ORANGE REPORTED TO C.O.^DX^^.321;8^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK"
^DD(2,.32108,.1)="AGENT ORANGE REPORTED TO C.O."
^DD(2,.32108,3)="Enter the date on which this patient's claim for agent orange exposure was reported to C.O."
^DD(2,.32108,20,0)="^.3LA^1^1"
^DD(2,.32108,20,1,0)="AO"
^DD(2,.32108,21,0)="^^2^2^2911214^^^"
^DD(2,.32108,21,1,0)="Enter the date on which this patient's claim of exposure to Agent Orange was"
^DD(2,.32108,21,2,0)="initially reported to VA Central Office."
^DD(2,.32108,"DEL",1,0)="S DFN=DA D AOD^DGLOCK1 I '$D(X)"
^DD(2,.32108,"DT")="2900418"
^DD(2,.32109,0)="AGENT ORANGE EXAM DATE^DX^^.321;9^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D AO^DGLOCK"
^DD(2,.32109,.1)=""
^DD(2,.32109,3)="Enter the date this patient was examined for the agent orange condition claimed."
^DD(2,.32109,5,1,0)="2^.32102^2"
^DD(2,.32109,20,0)="^.3LA^1^1"
^DD(2,.32109,20,1,0)="AO"
^DD(2,.32109,21,0)="^^6^6^2861117^^^"
^DD(2,.32109,21,1,0)="For this veteran applicant who was exposed to agent orange (EXPOSED TO"
^DD(2,.32109,21,2,0)="AGENT ORANGE prompt must be answered YES) enter the date s/he was examined"
^DD(2,.32109,21,3,0)="for this exposure, if any.  Once the service record is verified only"
^DD(2,.32109,21,4,0)="users who hold the designated security key may enter/edit this"
^DD(2,.32109,21,5,0)="field.  As long as agent orange exposure is indicated this field"
^DD(2,.32109,21,6,0)="may not be deleted."
^DD(2,.32109,"DEL",1,0)="S DFN=DA D AOD^DGLOCK1 I '$D(X)"
^DD(2,.32109,"DT")="2900418"
^DD(2,.3211,0)="AGENT ORANGE REGISTRATION #^NJ6,0X^^.321;10^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DFN=DA D AO^DGLOCK"
^DD(2,.3211,.1)=""
^DD(2,.3211,3)="Enter this patient's agent orange registration number [a number between 1-999999]."
^DD(2,.3211,5,1,0)="2^.32102^3"
^DD(2,.3211,20,0)="^.3LA^1^1"
^DD(2,.3211,20,1,0)="AO"
^DD(2,.3211,21,0)="^^6^6^2861117^^^"
^DD(2,.3211,21,1,0)="For this veteran applicant who was exposed to agent orange (EXPOSED TO"
^DD(2,.3211,21,2,0)="AGENT ORANGE prompt must be answered YES) enter the registration number"
^DD(2,.3211,21,3,0)="assigned [a number between 1-999999].  Once the service record has been"
^DD(2,.3211,21,4,0)="verified only users who hold the designated security key may"
^DD(2,.3211,21,5,0)="enter/edit this field.  This field cannot be deleted as long as"
^DD(2,.3211,21,6,0)="agent orange exposure is indicated."
^DD(2,.3211,"DEL",1,0)="S DFN=DA D AOD^DGLOCK1 I '$D(X)"
^DD(2,.3211,"DT")="2860806"
^DD(2,.32111,0)="RADIATION REGISTRATION DATE^DX^^.321;11^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D IR^DGLOCK I $D(X) D DOB^DGHELP"
^DD(2,.32111,.1)=""
^DD(2,.32111,1,0)="^.1^^0"
^DD(2,.32111,3)="Enter the date on which this patient was registered as claiming exposure to ionizing radiation."
^DD(2,.32111,5,1,0)="2^.32103^2"
^DD(2,.32111,20,0)="^.3LA^1^1"
^DD(2,.32111,20,1,0)="IRD"
^DD(2,.32111,21,0)="^^6^6^2861007^^"
^DD(2,.32111,21,1,0)="For this veteran applicant who was exposed to ionizing radiation"
^DD(2,.32111,21,2,0)="(WERE YOU EXPOSED TO RADIATION prompt must be answered YES) enter the"
^DD(2,.32111,21,3,0)="date registered.  Once the service record is verified only users who"
^DD(2,.32111,21,4,0)="hold the designated security key may enter/edit this field.  This field"
^DD(2,.32111,21,5,0)="cannot be deleted as long as ionizing radiation exposure is"
^DD(2,.32111,21,6,0)="indicated."
^DD(2,.32111,"DEL",1,0)="S DFN=DA D IRD^DGLOCK1 I '$D(X)"
^DD(2,.32111,"DT")="2900418"
^DD(2,.32115,0)="PROJ 112/SHAD^S^1:YES;0:NO;^.321;15^Q"
^DD(2,.32115,1,0)="^.1"
^DD(2,.32115,1,1,0)="2^AENR32115^MUMPS"
^DD(2,.32115,1,1,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.32115,1,1,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.32115,1,1,3)="DO NOT DELETE"
^DD(2,.32115,1,1,"%D",0)="^^2^2^3060713^"
^DD(2,.32115,1,1,"%D",1,0)="This cross-reference is used to update the patient's current Patient"
^DD(2,.32115,1,1,"%D",2,0)="Enrollment record."
^DD(2,.32115,1,1,"DT")="3060713"
^DD(2,.32115,"DT")="3060713"
^DD(2,.3212,0)="RADIATION EXPOSURE METHOD^SX^2:HIROSHIMA/NAGASAKI;3:ATMOSPHERIC NUCLEAR TESTING;4:H/N AND ATMOSPHERIC TESTING;5:UNDERGROUND NUCLEAR TESTING;6:EXPOSURE AT NUCLEAR FACILITY;7:OTHER;^.321;12^S DFN=DA D IR^DGLOCK Q"
^DD(2,.3212,.1)=""
^DD(2,.3212,1,0)="^.1"
^DD(2,.3212,1,1,0)="2^AENR3212^MUMPS"
^DD(2,.3212,1,1,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.3212,1,1,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.3212,1,1,3)="DO NOT DELETE"
^DD(2,.3212,1,1,"%D",0)="^.101^2^2^3060425^^"
^DD(2,.3212,1,1,"%D",1,0)="This cross-reference is used to update the"
^DD(2,.3212,1,1,"%D",2,0)="patient's current Patient Enrollment record."
^DD(2,.3212,1,1,"DT")="3060425"
^DD(2,.3212,3)="Select from the listing available the method by which this patient was exposed to ionizing radiation."
^DD(2,.3212,5,1,0)="2^.32103^1"
^DD(2,.3212,20,0)="^.3LA^1^1"
^DD(2,.3212,20,1,0)="IRD"
^DD(2,.3212,21,0)="^.001^2^2^3060424^^^^"
^DD(2,.3212,21,1,0)="This field represents the method by which the"
^DD(2,.3212,21,2,0)="exposure to ionizing radiation occurred."
^DD(2,.3212,"DEL",1,0)="S DFN=DA D IRD^DGLOCK1 I '$D(X)"
^DD(2,.3212,"DT")="3060425"
^DD(2,.3213,0)="AGENT ORANGE EXPOSURE LOCATION^RSX^K:KOREAN DMZ;V:VIETNAM;^.321;13^S DFN=DA D AO^DGLOCK"
^DD(2,.3213,.1)="Agent Orange Exposure Location"
^DD(2,.3213,1,0)="^.1"
^DD(2,.3213,1,1,0)="2^AENR3213^MUMPS"
^DD(2,.3213,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3213,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3213,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3213,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3213,1,1,"%D",2,0)="AGENT ORANGE EXPOSURE LOCATION field."
^DD(2,.3213,1,1,"DT")="3040614"
^DD(2,.3213,3)="Enter where the patient was exposed to agent orange"
^DD(2,.3213,5,1,0)="2^.32102^5"
^DD(2,.3213,21,0)="^.001^5^5^3040526^^^^"
^DD(2,.3213,21,1,0)="For this veteran applicant who was exposed to agent orange (EXPOSED TO"
^DD(2,.3213,21,2,0)="AGENT ORANGE prompt must be answered YES) enter the location where the"
^DD(2,.3213,21,3,0)="exposure occurred.  Once the service record has been verified only users"
^DD(2,.3213,21,4,0)="who hold the designated security key may enter/edit this field.  This"
^DD(2,.3213,21,5,0)="field cannot be deleted as long as agent orange exposure is indicated."
^DD(2,.3213,"DEL",1,0)="S DFN=DA D AOD^DGLOCK1 I '$D(X)"
^DD(2,.3213,"DT")="3040614"
^DD(2,.3214,0)="FILIPINO VETERAN PROOF^S^PP:US PASSPORT;BC:US BIRTH CERTIFICATE;BA:REPORT OF BIRTH ABROAD OF US CITIZEN;NA:VERIFICATION OF NATURALIZATION;PR:VERIFICATION OF PERMANENT RESIDENCY;VA:VA COMPENSATION AT FULL DOLLAR RATE;NO:NO PROOF;^.321;14^Q"
^DD(2,.3214,1,0)="^.1"
^DD(2,.3214,1,1,0)="2^AENR3214^MUMPS"
^DD(2,.3214,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3214,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3214,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3214,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3214,1,1,"%D",2,0)="FILIPINO VETERAN PROOF field."
^DD(2,.3214,1,1,"DT")="3040614"
^DD(2,.3214,21,0)="^.001^5^5^3040303^^^^"
^DD(2,.3214,21,1,0)="Enter in this field the documentation that was provided in order to"
^DD(2,.3214,21,2,0)="establish US citizenship, lawful permanent US residency, and/or VA"
^DD(2,.3214,21,3,0)="Compensation at full-dollar rate for a Filipino Veteran (i.e., a "
^DD(2,.3214,21,4,0)="veteran whose Branch of Service is F. Commonwealth, F. Guerilla, or F."
^DD(2,.3214,21,5,0)="Scouts New)"
^DD(2,.3214,"DT")="3040614"
^DD(2,.3215,0)="SERVICE [OEF OR OIF]^2.3215IS^^.3215;0"
^DD(2,.3215,12)="Users cannot enter 3 (UNSPECIFIED)"
^DD(2,.3215,12.1)="S DIC(""S"")=""I Y'=3"""
^DD(2,.3215,21,0)="^.001^5^5^3060508^^^^"
^DD(2,.3215,21,1,0)="This contains the information relating to the deployment of the"
^DD(2,.3215,21,2,0)="patient to a conflict location for the operations Iraqi and Enduring"
^DD(2,.3215,21,3,0)="Freedom (OIF, OEF respectively).  It also includes records of conflict"
^DD(2,.3215,21,4,0)="that can be identified as being EITHER OIF OR OEF, but the specific"
^DD(2,.3215,21,5,0)="location cannot be determined."
^DD(2,.3215,"DT")="3060104"
^DD(2,.322,0)="SERVICE VERIFICATION DATE^DX^^.32;2^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK"
^DD(2,.322,.1)="VERIFICATION DATE-SERVICE"
^DD(2,.322,3)="Enter the date on whcih this patient's service record was verified as being accurate."
^DD(2,.322,20,0)="^.3LA^1^1"
^DD(2,.322,20,1,0)="SVC"
^DD(2,.322,21,0)="^^4^4^2861006^"
^DD(2,.322,21,1,0)="Once the service record has been verified enter the date of verification."
^DD(2,.322,21,2,0)="All service record data will become uneditable to any user who does not"
^DD(2,.322,21,3,0)="hold the designated security key once the service record is verified."
^DD(2,.322,21,4,0)="Only users who hold the designated security key may enter/edit this field."
^DD(2,.322,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.322,"DT")="2900418"
^DD(2,.32201,0)="PERSIAN GULF SERVICE?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;10^S DFN=DA S DGX=10 D SV^DGLOCK"
^DD(2,.32201,.1)="DID YOU SERVE IN THE PERSIAN GULF WAR?"
^DD(2,.32201,1,0)="^.1"
^DD(2,.32201,1,1,0)="^^TRIGGER^2^.322011"
^DD(2,.32201,1,1,1)="X ^DD(2,.32201,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(2,.32201,1,1,1.4)"
^DD(2,.32201,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32201,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,11)=DIV,DIH=2,DIG=.322011 D ^DICR"
^DD(2,.32201,1,1,2)="Q"
^DD(2,.32201,1,1,"%D",0)="^^2^2^2920116^"
^DD(2,.32201,1,1,"%D",1,0)="If service in the Persian Gulf is no longer indicated, remove the PERSIAN"
^DD(2,.32201,1,1,"%D",2,0)="GULF FROM DATE."
^DD(2,.32201,1,1,"CREATE CONDITION")="#.32201=""NO"""
^DD(2,.32201,1,1,"CREATE VALUE")="@"
^DD(2,.32201,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.32201,1,1,"FIELD")="PERSIAN GULF FROM DATE"
^DD(2,.32201,1,2,0)="^^TRIGGER^2^.322012"
^DD(2,.32201,1,2,1)="X ^DD(2,.32201,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(2,.32201,1,2,1.4)"
^DD(2,.32201,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.32201,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,12)=DIV,DIH=2,DIG=.322012 D ^DICR"
^DD(2,.32201,1,2,2)="Q"
^DD(2,.32201,1,2,"%D",0)="^^2^2^2920116^"
^DD(2,.32201,1,2,"%D",1,0)="If service in the Persian Gulf is no longer indicated, remove the PERSIAN"
^DD(2,.32201,1,2,"%D",2,0)="GULF TO DATE."
^DD(2,.32201,1,2,"CREATE CONDITION")="#.32201=""NO"""
^DD(2,.32201,1,2,"CREATE VALUE")="@"
^DD(2,.32201,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.32201,1,2,"DT")="2920116"
^DD(2,.32201,1,2,"FIELD")="PERSIAN GULF TO DATE"
^DD(2,.32201,1,3,0)="^^TRIGGER^2^.322013"
^DD(2,.32201,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.32201,1,3,69.3) S X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(2,.32201,1,3,1.4)"
^DD(2,.32201,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR"
^DD(2,.32201,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.32201,1,3,79.3) S Y=X,X=Y(3),X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(2,.32201,1,3,2.4)"
^DD(2,.32201,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR"
^DD(2,.32201,1,3,69.2)="S Y(1)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""""),Y(4)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""""),Y(3)=$S($D(^DPT(D0,.322)):^(.322),1:"""")"
^DD(2,.32201,1,3,69.3)="X ^DD(2,.32201,1,3,69.2) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"",Y(2)=X S X=$P($P(Y(4),$C(59)_$P(Y(3),U,16)_"":"",2),$C(59),1)'=""YES"",Y=X,X=Y(2),X=X"
^DD(2,.32201,1,3,79.2)="S Y(2)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""""),Y(4)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""")"
^DD(2,.32201,1,3,79.3)="X ^DD(2,.32201,1,3,79.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1)=""NO"",Y(3)=X S X=$P($P(Y(4),$C(59)_$P(Y(1),U,16)_"":"",2),$C(59),1)'=""YES"""
^DD(2,.32201,1,3,"%D",0)="^^3^3^2930604^"
^DD(2,.32201,1,3,"%D",1,0)="If neither of the two fields (Persian Gulf Service? and Somalia Service"
^DD(2,.32201,1,3,"%D",2,0)="Indicated?) are 'YES', the Environmental Contaminants? field will be"
^DD(2,.32201,1,3,"%D",3,0)="deleted."
^DD(2,.32201,1,3,"CREATE CONDITION")="#.32201=""NO""&(#.322016'=""YES"")"
^DD(2,.32201,1,3,"CREATE VALUE")="@"
^DD(2,.32201,1,3,"DELETE CONDITION")="#.32201=""NO""&(#.322016'=""YES"")"
^DD(2,.32201,1,3,"DELETE VALUE")="@"
^DD(2,.32201,1,3,"DT")="2930604"
^DD(2,.32201,1,3,"FIELD")="#.322013"
^DD(2,.32201,1,4,0)="2^AENR32201^MUMPS"
^DD(2,.32201,1,4,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32201,1,4,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32201,1,4,"%D",0)="^^2^2^3040614^"
^DD(2,.32201,1,4,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32201,1,4,"%D",2,0)="PERSIAN GULF SERVICE? field."
^DD(2,.32201,1,4,"DT")="3040614"
^DD(2,.32201,3)="Did this patient serve in the Persian Gulf War?  Answer yes, no, or unknown."
^DD(2,.32201,21,0)="^^4^4^2930629^^^^"
^DD(2,.32201,21,1,0)="If this patient served in the Persian Gulf during the war (anytime after"
^DD(2,.32201,21,2,0)="August 2, 1990), enter yes here.  If the patient did not serve in the"
^DD(2,.32201,21,3,0)="Persian Gulf during this timeframe, enter no.  Enter unknown if this"
^DD(2,.32201,21,4,0)="information could not be obtained from the patient."
^DD(2,.32201,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.32201,"DT")="3040628"
^DD(2,.322011,0)="PERSIAN GULF FROM DATE^RDX^^.322;11^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""GULF"",X) X I $D(X) S DFN=DA,DGX=10 D SVED^DGLOCK S:$D(X) DGFRDT=X"
^DD(2,.322011,1,0)="^.1"
^DD(2,.322011,1,1,0)="2^AENR322011^MUMPS"
^DD(2,.322011,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.322011,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.322011,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.322011,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.322011,1,1,"%D",2,0)="PERSIAN GULF FROM DATE field."
^DD(2,.322011,1,1,"DT")="3040614"
^DD(2,.322011,3)="TYPE A DATE BETWEEN 8/2/1990 AND TODAY INDICATING THE DATE THIS PATIENT BEGAN SERVING IN THE PERSIAN GULF."
^DD(2,.322011,5,1,0)="2^.32201^1"
^DD(2,.322011,21,0)="^^3^3^2930302^^^"
^DD(2,.322011,21,1,0)="If this patient served in the Persian Gulf during the war (PERSIAN"
^DD(2,.322011,21,2,0)="GULF SERVICE? is answered YES), respond with the date the patient"
^DD(2,.322011,21,3,0)="began serving there.  The date must be on or after August 2, 1990."
^DD(2,.322011,"DEL",1,0)="S DFN=DA,DGX=10 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.322011,"DT")="3040722"
^DD(2,.322012,0)="PERSIAN GULF TO DATE^RDX^^.322;12^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""GULF"",X,1) X I $D(X) S DFN=DA,DGX=10 D SVED^DGLOCK"
^DD(2,.322012,1,0)="^.1"
^DD(2,.322012,1,1,0)="2^AENR322012^MUMPS"
^DD(2,.322012,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.322012,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.322012,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.322012,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.322012,1,1,"%D",2,0)="PERSIAN GULF TO DATE field."
^DD(2,.322012,1,1,"DT")="3040614"
^DD(2,.322012,3)="Enter the date this patient's service in the Persian Gulf ended.  Date must either be null or in the past."
^DD(2,.322012,5,1,0)="2^.32201^2"
^DD(2,.322012,21,0)="^^4^4^2920417^^"
^DD(2,.322012,21,1,0)="If this patient served in the Persian Gulf during the war, enter the date"
^DD(2,.322012,21,2,0)="the patient's service in that region ended.  The date must be after the"
^DD(2,.322012,21,3,0)="date selected as PERSIAN GULF FROM DATE which must be on or after August"
^DD(2,.322012,21,4,0)="2, 1990."
^DD(2,.322012,"DEL",1,0)="S DFN=DA,DGX=10 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.322012,"DT")="3040628"
^DD(2,.322013,0)="ENVIRONMENTAL CONTAMINANTS?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;13^S DFN=DA D SV^DGLOCK"
^DD(2,.322013,1,0)="^.1"
^DD(2,.322013,1,1,0)="^^TRIGGER^2^.322014"
^DD(2,.322013,1,1,1)="X ^DD(2,.322013,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" X ^DD(2,.322013,1,1,1.4)"
^DD(2,.322013,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322013,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=""YES"""
^DD(2,.322013,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,14)=DIV,DIH=2,DIG=.322014 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.322013,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" X ^DD(2,.322013,1,1,2.4)"
^DD(2,.322013,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,14)=DIV,DIH=2,DIG=.322014 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.322013,1,1,"%D",0)="^^2^2^2930604^"
^DD(2,.322013,1,1,"%D",1,0)="This will delete the ENVIR. CONT. REGISTRATION DATE field (#.322014)"
^DD(2,.322013,1,1,"%D",2,0)="field if the 'ENVIRONMENTAL CONTAMINANTS?' field is not 'YES""."
^DD(2,.322013,1,1,"CREATE CONDITION")="#.322013'=""YES"""
^DD(2,.322013,1,1,"CREATE VALUE")="@"
^DD(2,.322013,1,1,"DELETE VALUE")="@"
^DD(2,.322013,1,1,"DT")="2930604"
^DD(2,.322013,1,1,"FIELD")="#.322014"
^DD(2,.322013,1,2,0)="^^TRIGGER^2^.322015"
^DD(2,.322013,1,2,1)="X ^DD(2,.322013,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" X ^DD(2,.322013,1,2,1.4)"
^DD(2,.322013,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322013,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=""YES"""
^DD(2,.322013,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,15)=DIV,DIH=2,DIG=.322015 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.322013,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" X ^DD(2,.322013,1,2,2.4)"
^DD(2,.322013,1,2,2.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,15)=DIV,DIH=2,DIG=.322015 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.322013,1,2,"%D",0)="^^2^2^2930604^"
^DD(2,.322013,1,2,"%D",1,0)="This trigger deletes the 'ENVIR. CONT. EXAM DATE' field if the "
^DD(2,.322013,1,2,"%D",2,0)="'ENVIRONMENTAL CONTAMINANTS?' field is not 'YES'."
^DD(2,.322013,1,2,"CREATE CONDITION")="#.322013'=""YES"""
^DD(2,.322013,1,2,"CREATE VALUE")="@"
^DD(2,.322013,1,2,"DELETE VALUE")="@"
^DD(2,.322013,1,2,"DT")="2930604"
^DD(2,.322013,1,2,"FIELD")="#.322015"
^DD(2,.322013,1,3,0)="2^AENR322013^MUMPS"
^DD(2,.322013,1,3,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.322013,1,3,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.322013,1,3,3)="DO NOT DELETE"
^DD(2,.322013,1,3,"%D",0)="^^2^2^2970630^^^"
^DD(2,.322013,1,3,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.322013,1,3,"%D",2,0)="record."
^DD(2,.322013,1,3,"DT")="2970630"
^DD(2,.322013,3)="Enter 'Y' if this patient claims exposure to environmental contaminants, 'N' if not, 'U' if unknown.  Service in Persian Gulf or Somalia is required for this field."
^DD(2,.322013,5,1,0)="2^.322016^3"
^DD(2,.322013,5,2,0)="2^.32201^3"
^DD(2,.322013,21,0)="^^2^2^2930629^^^^"
^DD(2,.322013,21,1,0)="This indicates that the veteran was affected by some kind of "
^DD(2,.322013,21,2,0)="environmental contaminant in either the Persian Gulf or Somalia."
^DD(2,.322013,23,0)="^^2^2^2930629^^^^"
^DD(2,.322013,23,1,0)="This indicates that the veteran was affected by some kind of "
^DD(2,.322013,23,2,0)="environmental contaminant in either the Persian Gulf or Somalia."
^DD(2,.322013,"DT")="2970630"
^DD(2,.322014,0)="ENVIR. CONT. REGISTRATION DATE^DX^^.322;14^S %DT=""E"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X I $D(X) S DFN=DA D EC^DGLOCK"
^DD(2,.322014,3)="Enter the date on which this patient was registered as being exposed to environmental contaminants.  This must be after 8/1/1990."
^DD(2,.322014,5,1,0)="2^.322013^1"
^DD(2,.322014,21,0)="^^2^2^2930629^^"
^DD(2,.322014,21,1,0)="This is the date on which the patient registered for being exposed to"
^DD(2,.322014,21,2,0)="environmental contaminants.  This date must be after 8/1/1990."
^DD(2,.322014,23,0)="^^2^2^2930629^^"
^DD(2,.322014,23,1,0)="This is the date on which the patient registered for being exposed to"
^DD(2,.322014,23,2,0)="environmental contaminants.  This date must be after 8/1/1990."
^DD(2,.322014,"DT")="2930721"
^DD(2,.322015,0)="ENVIR. CONT. EXAM DATE^DX^^.322;15^S %DT=""E"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X I $D(X) D EC^DGLOCK"
^DD(2,.322015,3)="Enter the date this patient was examined for the environmental contaminants condition claimed (Must be after 8/1/1990)."
^DD(2,.322015,5,1,0)="2^.322013^2"
^DD(2,.322015,21,0)="^^2^2^2930629^^"
^DD(2,.322015,21,1,0)="This is the date on which an examination for exposure to environmental"
^DD(2,.322015,21,2,0)="contaminants was performed on the patient."
^DD(2,.322015,"DT")="2930721"
^DD(2,.322016,0)="SOMALIA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;16^S DFN=DA D SV^DGLOCK"
^DD(2,.322016,1,0)="^.1"
^DD(2,.322016,1,1,0)="^^TRIGGER^2^.322017"
^DD(2,.322016,1,1,1)="X ^DD(2,.322016,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" X ^DD(2,.322016,1,1,1.4)"
^DD(2,.322016,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.322016,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,17)=DIV,DIH=2,DIG=.322017 D ^DICR"
^DD(2,.322016,1,1,2)="Q"
^DD(2,.322016,1,1,"%D",0)="^^1^1^2990802^^"
^DD(2,.322016,1,1,"%D",1,0)="If Somalia Indicated is NO, FROM DATE is deleted."
^DD(2,.322016,1,1,"CREATE CONDITION")="#.322016=""NO"""
^DD(2,.322016,1,1,"CREATE VALUE")="@"
^DD(2,.322016,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.322016,1,1,"DT")="2930415"
^DD(2,.322016,1,1,"FIELD")="#.322017"
^DD(2,.322016,1,2,0)="^^TRIGGER^2^.322018"
^DD(2,.322016,1,2,1)="X ^DD(2,.322016,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="""" X ^DD(2,.322016,1,2,1.4)"
^DD(2,.322016,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.322016,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,18)=DIV,DIH=2,DIG=.322018 D ^DICR"
^DD(2,.322016,1,2,2)="Q"
^DD(2,.322016,1,2,"%D",0)="^^1^1^2930415^"
^DD(2,.322016,1,2,"%D",1,0)="If Somalia Indicated is NO, TO DATE is deleted."
^DD(2,.322016,1,2,"CREATE CONDITION")="#.322016=""NO"""
^DD(2,.322016,1,2,"CREATE VALUE")="@"
^DD(2,.322016,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.322016,1,2,"DT")="2930415"
^DD(2,.322016,1,2,"FIELD")="#.322018"
^DD(2,.322016,1,3,0)="^^TRIGGER^2^.322013"
^DD(2,.322016,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.322016,1,3,69.3) S Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(2,.322016,1,3,1.4)"
^DD(2,.322016,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR"
^DD(2,.322016,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2,.322016,1,3,79.3) S Y=X,X=Y(3),X=X&Y I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(2,.322016,1,3,2.4)"
^DD(2,.322016,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,13)=DIV,DIH=2,DIG=.322013 D ^DICR"
^DD(2,.322016,1,3,69.2)="S Y(1)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""""),Y(4)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""""),Y(3)=$S($D(^DPT(D0,.322)):^(.322),1:"""")"
^DD(2,.322016,1,3,69.3)="X ^DD(2,.322016,1,3,69.2) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=""YES"",Y(2)=X S X=$P($P(Y(4),$C(59)_$P(Y(3),U,10)_"":"",2),$C(59),1)'=""YES"""
^DD(2,.322016,1,3,79.2)="S Y(2)=$C(59)_$S($D(^DD(2,.322016,0)):$P(^(0),U,3),1:""""),Y(4)=$C(59)_$S($D(^DD(2,.32201,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""")"
^DD(2,.322016,1,3,79.3)="X ^DD(2,.322016,1,3,79.2) S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_"":"",2),$C(59),1)'=""YES"",Y(3)=X S X=$P($P(Y(4),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1)'=""YES"""
^DD(2,.322016,1,3,"%D",0)="^^3^3^2930604^"
^DD(2,.322016,1,3,"%D",1,0)="This trigger deletes the 'ENVIRONMENTAL CONTAMINANTS?' field when"
^DD(2,.322016,1,3,"%D",2,0)="neither the SOMALIA SERVICE INDICATED? nor the PERSIAN GULF SERVICE?"
^DD(2,.322016,1,3,"%D",3,0)="fields are YES."
^DD(2,.322016,1,3,"CREATE CONDITION")="#.322016'=""YES""&(#.32201'=""YES"")"
^DD(2,.322016,1,3,"CREATE VALUE")="@"
^DD(2,.322016,1,3,"DELETE CONDITION")="#.322016'=""YES""&(#.32201'=""YES"")"
^DD(2,.322016,1,3,"DELETE VALUE")="@"
^DD(2,.322016,1,3,"DT")="2930604"
^DD(2,.322016,1,3,"FIELD")="#.322013"
^DD(2,.322016,1,4,0)="2^AENR322016^MUMPS"
^DD(2,.322016,1,4,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.322016,1,4,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.322016,1,4,"%D",0)="^^2^2^3040614^"
^DD(2,.322016,1,4,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.322016,1,4,"%D",2,0)="SOMALIA SERVICE INDICATED? field."
^DD(2,.322016,1,4,"DT")="3040614"
^DD(2,.322016,3)="Did this patient serve in Somalia?"
^DD(2,.322016,21,0)="^^3^3^2990902^^^^"
^DD(2,.322016,21,1,0)="If this patient served in the Somalia, enter yes here.  If the patient "
^DD(2,.322016,21,2,0)="did not serve in Somalia, enter no. Enter unknown if this information "
^DD(2,.322016,21,3,0)="could not be obtained from the patient."
^DD(2,.322016,"DT")="3040628"
^DD(2,.322017,0)="SOMALIA FROM DATE^RDX^^.322;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$VALCON^DGRPMS(DA,""SOM"",X) X I $D(X) S DFN=DA,DGX=16 D SVED^DGLOCK S:$D(X) DGFRDT=X"
^DD(2,.322017,1,0)="^.1"
^DD(2,.322017,1,1,0)="2^AENR322017^MUMPS"
^DD(2,.322017,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.322017,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.322017,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.322017,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.322017,1,1,"%D",2,0)="SOMALIA FROM DATE field."
^DD(2,.322017,1,1,"DT")="3040614"
^DD(2,.322017,3)="Enter the date veteran's service in Somalia began."
^DD(2,.322017,5,1,0)="2^.322016^1"
^DD(2,.322017,21,0)="^^3^3^3040402^"
^DD(2,.322017,21,1,0)="If this patient served in Somalia (SOMALIA SERVICE INDICATED? is "
^DD(2,.322017,21,2,0)="answered YES), enter the date this patient's service in Somalia"
^DD(2,.322017,21,3,0)="began.  This date must be on or after September 28, 1992."
^DD(2,.322017,23,0)="^^1^1^2990802^^^^"
^DD(2,.322017,23,1,0)="This is the date Somalia service began."
^DD(2,.322017,"DT")="3040722"
^DD(2,.322018,0)="SOMALIA TO DATE^RDX^^.322;18^S %DT=""E"" D ^%DT S X=Y I $D(X) K:'$$VALCON^DGRPMS(DA,""SOM"",X,1) X I $D(X) S DFN=DA,DGX=16 D SVED^DGLOCK"
^DD(2,.322018,1,0)="^.1"
^DD(2,.322018,1,1,0)="2^AENR322018^MUMPS"
^DD(2,.322018,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.322018,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.322018,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.322018,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.322018,1,1,"%D",2,0)="SOMALIA TO DATE field."
^DD(2,.322018,1,1,"DT")="3040614"
^DD(2,.322018,3)="Enter the date veteran's service in Somalia ended."
^DD(2,.322018,5,1,0)="2^.322016^2"
^DD(2,.322018,21,0)="^^2^2^3040402^"
^DD(2,.322018,21,1,0)="This is the last date of service in Somalia.  This date must be on or "
^DD(2,.322018,21,2,0)="after September 28, 1992."
^DD(2,.322018,"DT")="3040628"
^DD(2,.322019,0)="YUGOSLAVIA SERVICE INDICATED?^SX^Y:YES;N:NO;U:UNKNOWN;^.322;19^S DFN=DA D SV^DGLOCK"
^DD(2,.322019,1,0)="^.1"
^DD(2,.322019,1,1,0)="^^TRIGGER^2^.32202"
^DD(2,.322019,1,1,1)="X ^DD(2,.322019,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.322019,1,1,1.4)"
^DD(2,.322019,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322019,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)[""N"""
^DD(2,.322019,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,20)=DIV,DIH=2,DIG=.32202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.322019,1,1,2)="Q"
^DD(2,.322019,1,1,"%D",0)="^^1^1^2990818^"
^DD(2,.322019,1,1,"%D",1,0)="If KOSOVO SERVICE is not indicated, delete the KOSOVO FROM DATE."
^DD(2,.322019,1,1,"CREATE CONDITION")="KOSOVO SERVICE INDICATED?[""N"""
^DD(2,.322019,1,1,"CREATE VALUE")="@"
^DD(2,.322019,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.322019,1,1,"FIELD")="#.32202"
^DD(2,.322019,1,2,0)="^^TRIGGER^2^.322021"
^DD(2,.322019,1,2,1)="X ^DD(2,.322019,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="""" X ^DD(2,.322019,1,2,1.4)"
^DD(2,.322019,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.322019,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)[""N"""
^DD(2,.322019,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,21)=DIV,DIH=2,DIG=.322021 D ^DICR"
^DD(2,.322019,1,2,2)="Q"
^DD(2,.322019,1,2,"%D",0)="^^1^1^2990818^"
^DD(2,.322019,1,2,"%D",1,0)="This cross-reference will delete KOSOVO TO DATE if the KOSOVO SERVICE INDICATED? field is deleted."
^DD(2,.322019,1,2,"CREATE CONDITION")="KOSOVO SERVICE INDICATED?[""N"""
^DD(2,.322019,1,2,"CREATE VALUE")="@"
^DD(2,.322019,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.322019,1,2,"DT")="2990818"
^DD(2,.322019,1,2,"FIELD")="#.322021"
^DD(2,.322019,1,3,0)="2^AENR322019^MUMPS"
^DD(2,.322019,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.322019,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.322019,1,3,"%D",0)="^^2^2^3040614^"
^DD(2,.322019,1,3,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.322019,1,3,"%D",2,0)="YUGOSLAVIA SERVICE INDICATED? field."
^DD(2,.322019,1,3,"DT")="3040614"
^DD(2,.322019,3)="Respond yes if patient served in the Kosovo Conflict (the airspace above and the adjacent waters of the Republic of Yugoslavia (Serbia/Montenegro), the Adriatic Sea & Ionian Sea n. of 39th parallel)."
^DD(2,.322019,21,0)="^^1^1^2990924^^^"
^DD(2,.322019,21,1,0)="Field stores code indicating if patient served in the Yugolslavia Conflict."
^DD(2,.322019,"DT")="3040628"
^DD(2,.32202,0)="YUGOSLAVIA FROM DATE^RDX^^.322;20^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""YUG"",X) X I $D(X) S DFN=DA,DGX=19 D SVED^DGLOCK S:$D(X) DGFRDT=X"
^DD(2,.32202,1,0)="^.1"
^DD(2,.32202,1,1,0)="2^AENR32202^MUMPS"
^DD(2,.32202,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32202,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32202,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.32202,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32202,1,1,"%D",2,0)="YUGOSLAVIA FROM DATE field."
^DD(2,.32202,1,1,"DT")="3040614"
^DD(2,.32202,3)="Type a date between June 22, 1992 and today indicating the date this patient began serving in the Yugoslavia Conflict."
^DD(2,.32202,5,1,0)="2^.322019^1"
^DD(2,.32202,21,0)="^^2^2^3040402^"
^DD(2,.32202,21,1,0)="Enter the date that service in the Yugoslavia Conflict began for this"
^DD(2,.32202,21,2,0)="patient.  Earliest possible date is 6/22/1992."
^DD(2,.32202,"DT")="3040722"
^DD(2,.322021,0)="YUGOSLAVIA TO DATE^RDX^^.322;21^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""YUG"",X,1) X I $D(X) S DFN=DA,DGX=19 D SVED^DGLOCK"
^DD(2,.322021,1,0)="^.1"
^DD(2,.322021,1,1,0)="2^AENR322021^MUMPS"
^DD(2,.322021,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.322021,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.322021,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.322021,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.322021,1,1,"%D",2,0)="YUGOSLAVIA TO DATE field."
^DD(2,.322021,1,1,"DT")="3040614"
^DD(2,.322021,3)="Enter the date this patient's service in the Yugoslavia Conflict ended.  Date must be after June 22, 1992."
^DD(2,.322021,5,1,0)="2^.322019^2"
^DD(2,.322021,21,0)="^^1^1^3040402^"
^DD(2,.322021,21,1,0)="The date service in the Yugoslavia Conflict ended for this patient."
^DD(2,.322021,"DT")="3040628"
^DD(2,.3221,0)="LEBANON SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;1^S DFN=DA D SV^DGLOCK"
^DD(2,.3221,.1)="DID YOU SERVE IN LEBANON?"
^DD(2,.3221,1,0)="^.1"
^DD(2,.3221,1,1,0)="^^TRIGGER^2^.3222"
^DD(2,.3221,1,1,1)="X ^DD(2,.3221,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(2,.3221,1,1,1.4)"
^DD(2,.3221,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3221,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.3221,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,2)=DIV,DIH=2,DIG=.3222 D ^DICR"
^DD(2,.3221,1,1,2)="Q"
^DD(2,.3221,1,1,"%D",0)="^^1^1^2990803^^"
^DD(2,.3221,1,1,"%D",1,0)="If Lebanon service not indicated, remove the LEBANON FROM DATE."
^DD(2,.3221,1,1,"CREATE CONDITION")="#.3221=""NO"""
^DD(2,.3221,1,1,"CREATE VALUE")="@"
^DD(2,.3221,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.3221,1,1,"DT")="2920615"
^DD(2,.3221,1,1,"FIELD")="LEBANON FROM DATE"
^DD(2,.3221,1,2,0)="^^TRIGGER^2^.3223"
^DD(2,.3221,1,2,1)="X ^DD(2,.3221,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(2,.3221,1,2,1.4)"
^DD(2,.3221,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3221,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.3221,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,3)=DIV,DIH=2,DIG=.3223 D ^DICR"
^DD(2,.3221,1,2,2)="Q"
^DD(2,.3221,1,2,"%D",0)="^^1^1^2920116^"
^DD(2,.3221,1,2,"%D",1,0)="If Lebanon service not indicated, remove the to date."
^DD(2,.3221,1,2,"CREATE CONDITION")="#.3221=""NO"""
^DD(2,.3221,1,2,"CREATE VALUE")="@"
^DD(2,.3221,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.3221,1,2,"DT")="2920116"
^DD(2,.3221,1,2,"FIELD")="LEBANON TO DATE"
^DD(2,.3221,1,3,0)="2^AENR3221^MUMPS"
^DD(2,.3221,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3221,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3221,1,3,"%D",0)="^^2^2^3040614^"
^DD(2,.3221,1,3,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3221,1,3,"%D",2,0)="LEBANON SERVICE INDICATED? field."
^DD(2,.3221,1,3,"DT")="3040614"
^DD(2,.3221,3)="Did this veteran serve in Lebanon during the conflict there?"
^DD(2,.3221,21,0)="^^2^2^2930629^^"
^DD(2,.3221,21,1,0)="Did this patient serve in Lebanon between the dates of August 23, 1982"
^DD(2,.3221,21,2,0)="and February 26, 1984?"
^DD(2,.3221,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3221,"DT")="3040614"
^DD(2,.3222,0)="LEBANON FROM DATE^RDX^^.322;2^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""LEB"",X) X I $D(X) S DFN=DA,DGX=1 D SVED^DGLOCK S:$D(X) DGFRDT=X"
^DD(2,.3222,1,0)="^.1"
^DD(2,.3222,1,1,0)="2^AENR3222^MUMPS"
^DD(2,.3222,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3222,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3222,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3222,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3222,1,1,"%D",2,0)="LEBANON FROM DATE field."
^DD(2,.3222,1,1,"DT")="3040614"
^DD(2,.3222,3)="TYPE A DATE AFTER OCTOBER 1, 1983 TO INDICATE THE DATE THIS PATIENT BEGAN HIS SERVICE IN LEBANON"
^DD(2,.3222,5,1,0)="2^.3221^1"
^DD(2,.3222,21,0)="^^4^4^3040402^"
^DD(2,.3222,21,1,0)="For this veteran applicant who served in Lebanon, enter the date which"
^DD(2,.3222,21,2,0)="the applicant's service in Lebanon began.  The date must be on or after"
^DD(2,.3222,21,3,0)="October 1, 1983."
^DD(2,.3222,21,4,0)="."
^DD(2,.3222,"DEL",1,0)="S DFN=DA,DGX=1 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.3222,"DT")="3040722"
^DD(2,.3223,0)="LEBANON TO DATE^RDX^^.322;3^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""LEB"",X,1) X I $D(X) S DFN=DA,DGX=1 D SVED^DGLOCK"
^DD(2,.3223,1,0)="^.1"
^DD(2,.3223,1,1,0)="2^AENR3223^MUMPS"
^DD(2,.3223,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3223,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3223,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3223,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3223,1,1,"%D",2,0)="LEBANON TO DATE field."
^DD(2,.3223,1,1,"DT")="3040614"
^DD(2,.3223,3)="TYPE A DATE AFTER OCTOBER 1, 1983 INDICATING THE DATE THIS PATIENT'S SERVICE IN LEBANON ENDED."
^DD(2,.3223,5,1,0)="2^.3221^2"
^DD(2,.3223,21,0)="^^3^3^3040407^"
^DD(2,.3223,21,1,0)="For this patient, enter the date the patient's service in Lebanon ended."
^DD(2,.3223,21,2,0)="The 'LEBANON SERVICE INDICATED?' field must be answered yes and the date"
^DD(2,.3223,21,3,0)="in this field must be after October 1, 1983."
^DD(2,.3223,"DEL",1,0)="S DFN=DA,DGX=1 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.3223,"DT")="3040614"
^DD(2,.3224,0)="GRENADA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;4^S DFN=DA D SV^DGLOCK"
^DD(2,.3224,1,0)="^.1"
^DD(2,.3224,1,1,0)="^^TRIGGER^2^.3225"
^DD(2,.3224,1,1,1)="X ^DD(2,.3224,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(2,.3224,1,1,1.4)"
^DD(2,.3224,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3224,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.3224,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,5)=DIV,DIH=2,DIG=.3225 D ^DICR"
^DD(2,.3224,1,1,2)="Q"
^DD(2,.3224,1,1,"%D",0)="^^1^1^2920116^"
^DD(2,.3224,1,1,"%D",1,0)="If service in Grenada is not indicated, remove the GRENADA FROM DATE."
^DD(2,.3224,1,1,"CREATE CONDITION")="#.3224=""NO"""
^DD(2,.3224,1,1,"CREATE VALUE")="@"
^DD(2,.3224,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.3224,1,1,"FIELD")="GRENADA FROM DATE"
^DD(2,.3224,1,2,0)="^^TRIGGER^2^.3226"
^DD(2,.3224,1,2,1)="X ^DD(2,.3224,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(2,.3224,1,2,1.4)"
^DD(2,.3224,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3224,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.3224,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,6)=DIV,DIH=2,DIG=.3226 D ^DICR"
^DD(2,.3224,1,2,2)="Q"
^DD(2,.3224,1,2,"%D",0)="^^1^1^2920116^"
^DD(2,.3224,1,2,"%D",1,0)="If service in Grenada is not indicated, delete the GRENADA TO DATE."
^DD(2,.3224,1,2,"CREATE CONDITION")="#.3224=""NO"""
^DD(2,.3224,1,2,"CREATE VALUE")="@"
^DD(2,.3224,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.3224,1,2,"DT")="2920116"
^DD(2,.3224,1,2,"FIELD")="GRENADA TO DATE"
^DD(2,.3224,1,3,0)="2^AENR3224^MUMPS"
^DD(2,.3224,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3224,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3224,1,3,"%D",0)="^^2^2^3040614^"
^DD(2,.3224,1,3,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3224,1,3,"%D",2,0)="GRENADA SERVICE INDICATED? field."
^DD(2,.3224,1,3,"DT")="3040614"
^DD(2,.3224,3)="If this patient served during the conflict in Grenada, enter YES here.  Enter NO if the patient did not serve in Grenada, or UNKNOWN if this can not be determined."
^DD(2,.3224,21,0)="^^2^2^2930629^^"
^DD(2,.3224,21,1,0)="Enter yes if this patient served in Grenada between the dates of October"
^DD(2,.3224,21,2,0)="23, 1983 and November 21, 1983."
^DD(2,.3224,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3224,"DT")="3040614"
^DD(2,.3225,0)="GRENADA FROM DATE^RDX^^.322;5^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""GREN"",X) X I $D(X) S DFN=DA,DGX=4 D SVED^DGLOCK S:$D(X) DGFRDT=X"
^DD(2,.3225,1,0)="^.1"
^DD(2,.3225,1,1,0)="2^AENR3225^MUMPS"
^DD(2,.3225,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3225,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3225,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3225,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3225,1,1,"%D",2,0)="GRENADA FROM DATE field."
^DD(2,.3225,1,1,"DT")="3040614"
^DD(2,.3225,3)="TYPE A DATE BETWEEN 10/23/1983 AND 11/21/1983 INDICATING THE DATE THIS PATIENT'S SERVICE IN GRENADA BEGAN."
^DD(2,.3225,5,1,0)="2^.3224^1"
^DD(2,.3225,21,0)="^^3^3^2920115^"
^DD(2,.3225,21,1,0)="Enter the date which this patient began service in Grenada.  The"
^DD(2,.3225,21,2,0)="'GRENADA SERVICE INDICATED?' field must be answered YES and the date"
^DD(2,.3225,21,3,0)="entered here must be between October 23, 1983 and November 21, 1983."
^DD(2,.3225,"DEL",1,0)="S DFN=DA,DGX=4 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.3225,"DT")="3040722"
^DD(2,.3226,0)="GRENADA TO DATE^RDX^^.322;6^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""GREN"",X,1) X I $D(X) S DFN=DA,DGX=4 D SVED^DGLOCK"
^DD(2,.3226,1,0)="^.1"
^DD(2,.3226,1,1,0)="2^AENR3226^MUMPS"
^DD(2,.3226,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3226,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3226,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3226,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3226,1,1,"%D",2,0)="GRENADA TO DATE field."
^DD(2,.3226,1,1,"DT")="3040614"
^DD(2,.3226,3)="TYPE A DATE BETWEEN 10/23/1983 AND 11/21/1983 INDICATING THE DATE THE PATIENT'S SERVICE IN GRENADA ENDED."
^DD(2,.3226,5,1,0)="2^.3224^2"
^DD(2,.3226,21,0)="^^3^3^2920115^"
^DD(2,.3226,21,1,0)="Enter the date which this patient's service in Grenada ended.  The"
^DD(2,.3226,21,2,0)="'GRENADA SERVICE INDICATED?' field must be yes and this date must be"
^DD(2,.3226,21,3,0)="between October 23, 1983 and November 21, 1983."
^DD(2,.3226,"DEL",1,0)="S DFN=DA,DGX=4 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.3226,"DT")="3040614"
^DD(2,.3227,0)="PANAMA SERVICE INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.322;7^S DFN=DA D SV^DGLOCK"
^DD(2,.3227,1,0)="^.1"
^DD(2,.3227,1,1,0)="^^TRIGGER^2^.3228"
^DD(2,.3227,1,1,1)="X ^DD(2,.3227,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(2,.3227,1,1,1.4)"
^DD(2,.3227,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3227,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.3227,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,8)=DIV,DIH=2,DIG=.3228 D ^DICR"
^DD(2,.3227,1,1,2)="Q"
^DD(2,.3227,1,1,"%D",0)="^^1^1^2920116^"
^DD(2,.3227,1,1,"%D",1,0)="If service in Panama is not indicated, remove the PANAMA FROM DATE."
^DD(2,.3227,1,1,"CREATE CONDITION")="#.3227=""NO"""
^DD(2,.3227,1,1,"CREATE VALUE")="@"
^DD(2,.3227,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.3227,1,1,"FIELD")="PANAMA FROM DATE"
^DD(2,.3227,1,2,0)="^^TRIGGER^2^.3229"
^DD(2,.3227,1,2,1)="X ^DD(2,.3227,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.322)):^(.322),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(2,.3227,1,2,1.4)"
^DD(2,.3227,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3227,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.3227,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.322)):^(.322),1:""""),DIV=X S $P(^(.322),U,9)=DIV,DIH=2,DIG=.3229 D ^DICR"
^DD(2,.3227,1,2,2)="Q"
^DD(2,.3227,1,2,"%D",0)="^^1^1^2920116^"
^DD(2,.3227,1,2,"%D",1,0)="If Panama service is no longer indicated, remove the PANAMA TO DATE."
^DD(2,.3227,1,2,"CREATE CONDITION")="#.3227=""NO"""
^DD(2,.3227,1,2,"CREATE VALUE")="@"
^DD(2,.3227,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.3227,1,2,"DT")="2920116"
^DD(2,.3227,1,2,"FIELD")="PANAMA TO DATE"
^DD(2,.3227,1,3,0)="2^AENR3227^MUMPS"
^DD(2,.3227,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3227,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3227,1,3,"%D",0)="^^2^2^3040614^"
^DD(2,.3227,1,3,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3227,1,3,"%D",2,0)="PANAMA SERVICE INDICATED? field."
^DD(2,.3227,1,3,"DT")="3040614"
^DD(2,.3227,3)="Did this patient serve in the conflict in Panama?  Answer YES, NO, or UNKNOWN."
^DD(2,.3227,21,0)="^^4^4^2930629^^"
^DD(2,.3227,21,1,0)="Respond yes if this patient served in Panama between the dates of"
^DD(2,.3227,21,2,0)="December 20, 1989 and January 31, 1990.  Enter no if the patient did not"
^DD(2,.3227,21,3,0)="serve in Panama during this timeframe.  Otherwise, enter unknown if this"
^DD(2,.3227,21,4,0)="information could not be obtained from the patient."
^DD(2,.3227,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3227,"DT")="3040614"
^DD(2,.3228,0)="PANAMA FROM DATE^RDX^^.322;8^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""PAN"",X) X I $D(X) S DFN=DA,DGX=7 D SVED^DGLOCK S:$D(X) DGFRDT=X"
^DD(2,.3228,1,0)="^.1"
^DD(2,.3228,1,1,0)="2^AENR3228^MUMPS"
^DD(2,.3228,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3228,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3228,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3228,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3228,1,1,"%D",2,0)="PANAMA FROM DATE field."
^DD(2,.3228,1,1,"DT")="3040614"
^DD(2,.3228,3)="TYPE A DATE BETWEEN 12/20/1989 AND 1/31/1990 INDICATING THE DATE THIS PATIENT BEGAN SERVICE IN PANAMA."
^DD(2,.3228,5,1,0)="2^.3227^1"
^DD(2,.3228,21,0)="^^3^3^2920115^"
^DD(2,.3228,21,1,0)="If this patient served in Panama (PANAMA SERVICE INDICATED? is answered"
^DD(2,.3228,21,2,0)="YES), enter the date this patient's service in Panama began.  The date"
^DD(2,.3228,21,3,0)="must be between December 20, 1989 and January 31, 1990."
^DD(2,.3228,"DEL",1,0)="S DFN=DA,DGX=7 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.3228,"DT")="3040722"
^DD(2,.3229,0)="PANAMA TO DATE^RDX^^.322;9^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""PAN"",X,1) X I $D(X) S DFN=DA,DGX=7 D SVED^DGLOCK"
^DD(2,.3229,1,0)="^.1"
^DD(2,.3229,1,1,0)="2^AENR3229^MUMPS"
^DD(2,.3229,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3229,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3229,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.3229,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3229,1,1,"%D",2,0)="PANAMA TO DATE field."
^DD(2,.3229,1,1,"DT")="3040614"
^DD(2,.3229,3)="TYPE A DATE BETWEEN 12/20/1989 AND 1/31/1990 INDICATING THE DATE THIS PATIENT'S SERVICE IN PANAMA ENDED."
^DD(2,.3229,5,1,0)="2^.3227^2"
^DD(2,.3229,21,0)="^^3^3^2920115^"
^DD(2,.3229,21,1,0)="If this patient served during the conflict in Panama (PANAMA SERVICE"
^DD(2,.3229,21,2,0)="INDICATED? is YES), enter the date the patient's service there ended."
^DD(2,.3229,21,3,0)="The date must be between December 20, 1989 and January 31, 1990."
^DD(2,.3229,"DEL",1,0)="S DFN=DA,DGX=7 D SVDEL^DGLOCK1 I '$D(X)"
^DD(2,.3229,"DT")="3040614"
^DD(2,.323,0)="PERIOD OF SERVICE^*P21'Xa^DIC(21,^.32;3^S DFN=DA D POS^DGLOCK1"
^DD(2,.323,1,0)="^.1"
^DD(2,.323,1,1,0)="2^APOS"
^DD(2,.323,1,1,1)="S ^DPT(""APOS"",$E(X,1,30),DA)="""""
^DD(2,.323,1,1,2)="K ^DPT(""APOS"",$E(X,1,30),DA)"
^DD(2,.323,1,2,0)="^^TRIGGER^2^11500.01"
^DD(2,.323,1,2,1)="X ^DD(2,.323,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,""ODS"")):^(""ODS""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(2,.323,1,2,1.1) X ^DD(2,.323,1,2,1.4)"
^DD(2,.323,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(2,.323,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DIC(21,+$P(^DPT(DA,.32),""^"",3),0)):0,$P(^(0),""^"",3)'=6:0,'$D(^DPT(DA,""ODS"")):1,'^(""ODS""):1,1:0)"
^DD(2,.323,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),""ODS"")):^(""ODS""),1:""""),DIV=X S $P(^(""ODS""),U,1)=DIV,DIH=2,DIG=11500.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.323,1,2,2)="Q"
^DD(2,.323,1,2,"CREATE CONDITION")="S X=$S('$D(^DIC(21,+$P(^DPT(DA,.32),""^"",3),0)):0,$P(^(0),""^"",3)'=6:0,'$D(^DPT(DA,""ODS"")):1,'^(""ODS""):1,1:0)"
^DD(2,.323,1,2,"CREATE VALUE")="NOW"
^DD(2,.323,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.323,1,2,"FIELD")="INIT"
^DD(2,.323,1,991,0)="2^AVAFC323^MUMPS"
^DD(2,.323,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".323;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.323,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".323;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.323,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,.323,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.323,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.323,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.323,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.323,1,991,"%D",5,0)=" "
^DD(2,.323,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.323,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.323,1,991,"%D",8,0)="process."
^DD(2,.323,1,991,"%D",9,0)=" "
^DD(2,.323,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.323,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.323,1,991,"%D",12,0)="  "
^DD(2,.323,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.323,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.323,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.323,1,991,"DT")="2970825"
^DD(2,.323,1,992,0)="2^AENR323^MUMPS"
^DD(2,.323,1,992,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.323,1,992,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.323,1,992,3)=" DO NOT DELETE"
^DD(2,.323,1,992,"%D",0)="^.101^2^2^3050831^^^^"
^DD(2,.323,1,992,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.323,1,992,"%D",2,0)="enrollment."
^DD(2,.323,1,992,"DT")="3050831"
^DD(2,.323,3)="Select from the available listing the period of service which best classifies this patient."
^DD(2,.323,11,0)="^.2LAP"
^DD(2,.323,12)="POS must be compatible with Eligibility Code"
^DD(2,.323,12.1)="S DIC(""S"")=""I $D(^DPT(DA,.36)),$D(^DIC(21,""""AELIG"""",+Y,+$P(^(.36),U,1)))"""
^DD(2,.323,20,0)="^.3LA^2^2"
^DD(2,.323,20,1,0)="SVC"
^DD(2,.323,20,2,0)="ECD"
^DD(2,.323,21,0)="^^6^6^2920721^^"
^DD(2,.323,21,1,0)="From the available listing select the period of service which best"
^DD(2,.323,21,2,0)="classifies this applicant.  The selections displayed are limited"
^DD(2,.323,21,3,0)="based on the eligibility code which must have been entered in order"
^DD(2,.323,21,4,0)="to select a period of service.  Once the service record is verified"
^DD(2,.323,21,5,0)="only those users who hold the designated security key may enter/edit"
^DD(2,.323,21,6,0)="this field."
^DD(2,.323,"AUDIT")="y"
^DD(2,.323,"DEL",1,0)="S DFN=DA D SV1^DGLOCK I '$D(X)"
^DD(2,.323,"DT")="3060802"
^DD(2,.324,0)="SERVICE DISCHARGE TYPE [LAST]^RP25'X^DIC(25,^.32;4^S DFN=DA I $D(X) D SV^DGLOCK Q"
^DD(2,.324,.1)="DISCHARGE TYPE-SERVICE [LAST]"
^DD(2,.324,1,0)="^.1"
^DD(2,.324,1,1,0)="2^AENR324^MUMPS"
^DD(2,.324,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.324,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.324,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.324,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.324,1,1,"%D",2,0)="SERVICE DISCHARGE TYPE [LAST] field."
^DD(2,.324,1,1,"DT")="3040610"
^DD(2,.324,3)="Select from the listing the discharge type from this patient's last episode of military service."
^DD(2,.324,20,0)="^.3LA^1^1"
^DD(2,.324,20,1,0)="SVC"
^DD(2,.324,21,0)="^^5^5^2920604^^^^"
^DD(2,.324,21,1,0)="For this veteran applicant select from the available listing"
^DD(2,.324,21,2,0)="the discharge type which s/he received for his/her most recent"
^DD(2,.324,21,3,0)="episode of military service.  Once the service record is verified"
^DD(2,.324,21,4,0)="only those users who hold the designated security key may enter/edit"
^DD(2,.324,21,5,0)="this field."
^DD(2,.324,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.324,"DT")="3040610"
^DD(2,.325,0)="SERVICE BRANCH [LAST]^P23'X^DIC(23,^.32;5^S DFN=DA K:X=$O(^DIC(23,""B"",""B.E.C."","""")) X I $D(X) D SV^DGLOCK S DGCOMBR=$G(Y) Q"
^DD(2,.325,.1)="BRANCH OF SERVICE, LAST"
^DD(2,.325,1,0)="^.1"
^DD(2,.325,1,1,0)="2^AODS4^MUMPS"
^DD(2,.325,1,1,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.325,1,1,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,.325,1,2,0)="2^AFV1^MUMPS"
^DD(2,.325,1,2,1)="Q"
^DD(2,.325,1,2,2)="I $P($G(^DPT(DA,.321)),U,14)]"""" D FVP^DGRPMS"
^DD(2,.325,1,2,"%D",0)="^.101^4^4^3040325^^^^"
^DD(2,.325,1,2,"%D",1,0)="This MUMPS cross-reference acts like a trigger cross-reference."
^DD(2,.325,1,2,"%D",2,0)="If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL]"
^DD(2,.325,1,2,"%D",3,0)="fields do not contain a Filipino Veteran branch of service, the Filipino"
^DD(2,.325,1,2,"%D",4,0)="Vet Proof field (#.3214) is deleted."
^DD(2,.325,1,2,"DT")="3040325"
^DD(2,.325,1,3,0)="2^AENR325^MUMPS"
^DD(2,.325,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.325,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.325,1,3,"%D",0)="^^2^2^3040610^"
^DD(2,.325,1,3,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.325,1,3,"%D",2,0)="SERVICE BRANCH [LAST] field."
^DD(2,.325,1,3,"DT")="3040610"
^DD(2,.325,1,4,0)="2^AXR34^MUMPS"
^DD(2,.325,1,4,1)="Q"
^DD(2,.325,1,4,2)="S DGXRF=.325 D ^DGDDC Q"
^DD(2,.325,1,4,"DT")="3050912"
^DD(2,.325,3)="Select from the listing the branch in which this patient served during his last episode of military service."
^DD(2,.325,20,0)="^.3LA^1^1"
^DD(2,.325,20,1,0)="SVC"
^DD(2,.325,21,0)="^.001^5^5^3060104^^^"
^DD(2,.325,21,1,0)="For this veteran applicant select from the available listing"
^DD(2,.325,21,2,0)="the branch of service served in during his/her most recent"
^DD(2,.325,21,3,0)="episode of military service.  Once the service record is verified"
^DD(2,.325,21,4,0)="only those users who hold the designated security key may"
^DD(2,.325,21,5,0)="enter/edit this field."
^DD(2,.325,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.325,"DT")="3051104"
^DD(2,.326,0)="SERVICE ENTRY DATE [LAST]^RDX^^.32;6^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,""MSL"") X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=1 D POS^DGINP"
^DD(2,.326,.1)="ENTRY DATE-SERVICE [LAST]"
^DD(2,.326,1,0)="^.1"
^DD(2,.326,1,1,0)="2^AE^MUMPS"
^DD(2,.326,1,1,1)="Q"
^DD(2,.326,1,1,2)="Q"
^DD(2,.326,1,2,0)="2^AENR326^MUMPS"
^DD(2,.326,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.326,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.326,1,2,"%D",0)="^^2^2^3040610^"
^DD(2,.326,1,2,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of any changes to the"
^DD(2,.326,1,2,"%D",2,0)="SERVICE ENTRY DATE [LAST] field."
^DD(2,.326,1,2,"DT")="3040610"
^DD(2,.326,1,992,0)="2^ADGRU326^MUMPS"
^DD(2,.326,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.326,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.326,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.326,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.326,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.326,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.326,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.326,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.326,1,992,"%D",6,0)="interface."
^DD(2,.326,1,992,"%D",7,0)=" "
^DD(2,.326,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.326,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.326,1,992,"DT")="2990921"
^DD(2,.326,3)="Enter the date the patient entered his last episode of military service."
^DD(2,.326,20,0)="^.3LA^1^1"
^DD(2,.326,20,1,0)="SVC"
^DD(2,.326,21,0)="^.001^7^7^3061003^^^"
^DD(2,.326,21,1,0)="For this veteran applicant enter the date s/he commenced his/her"
^DD(2,.326,21,2,0)="most recent episode of military service.  If the military service"
^DD(2,.326,21,3,0)="component is ACTIVATED NATIONAL GUARD or ACTIVATED RESERVE, the"
^DD(2,.326,21,4,0)="period entered should be the period of activation, so this date is"
^DD(2,.326,21,5,0)="their first day of active duty for the episode.  Once the service"
^DD(2,.326,21,6,0)="record is verified only those users who hold the designated"
^DD(2,.326,21,7,0)="security key may enter/edit this field."
^DD(2,.326,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.326,"DT")="3040722"
^DD(2,.327,0)="SERVICE SEPARATION DATE [LAST]^RDX^^.32;7^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SV^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,""MSL"") X I $D(X),$D(^DG(43,1)) S SD1=1 D PS^DGINP"
^DD(2,.327,.1)="SEPARATION DATE-SERVICE [LAST]"
^DD(2,.327,1,0)="^.1"
^DD(2,.327,1,1,0)="2^AENR327^MUMPS"
^DD(2,.327,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.327,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.327,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.327,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.327,1,1,"%D",2,0)="SERVICE SEPARATION DATE [LAST] field."
^DD(2,.327,1,1,"DT")="3040610"
^DD(2,.327,1,992,0)="2^ADGRU327^MUMPS"
^DD(2,.327,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.327,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.327,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.327,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.327,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.327,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.327,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.327,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.327,1,992,"%D",6,0)="interface."
^DD(2,.327,1,992,"%D",7,0)=" "
^DD(2,.327,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.327,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.327,1,992,"DT")="2990921"
^DD(2,.327,3)="Enter the date on which this patient was separated from his last episode of military service."
^DD(2,.327,20,0)="^.3LA^1^1"
^DD(2,.327,20,1,0)="SVC"
^DD(2,.327,21,0)="^.001^7^7^3061003^^"
^DD(2,.327,21,1,0)="For this veteran applicant enter the date s/he ended his/her"
^DD(2,.327,21,2,0)="most recent episode of military service. If the military"
^DD(2,.327,21,3,0)="service component is ACTIVATED NATIONAL GUARD or ACTIVATED"
^DD(2,.327,21,4,0)="RESERVE, the period entered should be the period of activation,"
^DD(2,.327,21,5,0)="so this date is their last day of active duty for this episode."
^DD(2,.327,21,6,0)="Once the service record is verified only those users who hold"
^DD(2,.327,21,7,0)="the designated security key may enter/edit this field."
^DD(2,.327,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.327,"DT")="3040628"
^DD(2,.328,0)="SERVICE NUMBER [LAST]^FX^^.32;8^S DFN=DA D SV^DGLOCK I $D(X) S:X?1""SS"".E L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1""SS"".E ""  "",L S:X?1""SS"".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X"
^DD(2,.328,.1)="NUMBER-SERVICE [LAST]"
^DD(2,.328,1,0)="^.1"
^DD(2,.328,1,1,0)="2^AENR328^MUMPS"
^DD(2,.328,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.328,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.328,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.328,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.328,1,1,"%D",2,0)="SERVICE NUMBER [LAST] field."
^DD(2,.328,1,1,"DT")="3040610"
^DD(2,.328,3)="Enter the service number assigned to this patient during his last episode of military service or 'SS' if it's the same as his SSN."
^DD(2,.328,20,0)="^.3LA^1^1"
^DD(2,.328,20,1,0)="SVC"
^DD(2,.328,21,0)="^^6^6^2920604^^^"
^DD(2,.328,21,1,0)="For this veteran applicant enter the service number assigned during"
^DD(2,.328,21,2,0)="his/her most recent episode of military service as either 1-15"
^DD(2,.328,21,3,0)="characters or enter 'SS' if the social security number and service"
^DD(2,.328,21,4,0)="number are the same.  Once the service record has been verified only"
^DD(2,.328,21,5,0)="those users who hold the designated security key may enter/edit this"
^DD(2,.328,21,6,0)="field."
^DD(2,.328,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.328,"DT")="3040610"
^DD(2,.3285,0)="SERVICE SECOND EPISODE?^RSX^Y:YES;N:NO;^.32;19^S DFN=DA D SV^DGLOCK"
^DD(2,.3285,.1)="SECOND EPISODE OF SERVICE?"
^DD(2,.3285,1,0)="^.1"
^DD(2,.3285,1,1,0)="2^AXR9^MUMPS"
^DD(2,.3285,1,1,1)="I X'=""Y"" S DGXRF=.3285 D ^DGDDC Q"
^DD(2,.3285,1,1,2)="Q"
^DD(2,.3285,1,1,"DT")="3040331"
^DD(2,.3285,1,2,0)="^^TRIGGER^2^.32945"
^DD(2,.3285,1,2,1)="X ^DD(2,.3285,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(2,.3285,1,2,1.4)"
^DD(2,.3285,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3285,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1),X=$E(X)'=""Y"""
^DD(2,.3285,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.32)):^(.32),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,19,99))  S DIH=DIH_U"" S %=$P(DIH,U,21,999),DIU=$P(DIH,U,20),^(.32)=$P(DIH,U,1,19)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.32945 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.3285,1,2,2)="Q"
^DD(2,.3285,1,2,"CREATE CONDITION")="$E(#.3285)'=""Y"""
^DD(2,.3285,1,2,"CREATE VALUE")="""N"""
^DD(2,.3285,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.3285,1,2,"FIELD")="#.32945"
^DD(2,.3285,1,3,0)="^^TRIGGER^2^.3291"
^DD(2,.3285,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.3285,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""YES"" I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" X ^DD(2,.3285,1,3,1.4)"
^DD(2,.3285,1,3,1.4)="S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,10)=DIV,DIH=2,DIG=.3291 D ^DICR"
^DD(2,.3285,1,3,2)="X ^DD(2,.3285,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,10)=DIV,DIH=2,DIG=.3291 D ^DICR"
^DD(2,.3285,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.3285,0)),U,3),Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,19)_"":"",2),$C(59))'=""YES"""
^DD(2,.3285,1,3,"CREATE CONDITION")="#.3285'=""YES"""
^DD(2,.3285,1,3,"CREATE VALUE")="@"
^DD(2,.3285,1,3,"DELETE CONDITION")="#.3285'=""YES"""
^DD(2,.3285,1,3,"DELETE VALUE")="@"
^DD(2,.3285,1,3,"DT")="3040407"
^DD(2,.3285,1,3,"FIELD")="#.3291"
^DD(2,.3285,3)="Enter YES if this patient has more than one episode of military service otherwise enter NO."
^DD(2,.3285,20,0)="^.3LA^1^1"
^DD(2,.3285,20,1,0)="SVC"
^DD(2,.3285,21,0)="^^3^3^2861006^"
^DD(2,.3285,21,1,0)="For this veteran applicant enter 'Y' if s/he has more than one episode of"
^DD(2,.3285,21,2,0)="military service, or 'N' if not.  Once the service record is verified"
^DD(2,.3285,21,3,0)="only users who hold the designated security key may enter/edit this field."
^DD(2,.3285,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3285,"DT")="3040407"
^DD(2,.329,0)="SERVICE DISCHARGE TYPE [NTL]^RP25'X^DIC(25,^.32;9^S DFN=DA D SER1^DGLOCK"
^DD(2,.329,.1)="DISCHARGE TYPE-SERVICE [NTL]"
^DD(2,.329,1,0)="^.1"
^DD(2,.329,1,1,0)="2^AENR329^MUMPS"
^DD(2,.329,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.329,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.329,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.329,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.329,1,1,"%D",2,0)="SERVICE DISCHARGE TYPE [NTL] field."
^DD(2,.329,1,1,"DT")="3040610"
^DD(2,.329,3)="Enter the type of discharge given this patient from his next-to-last episode of military service."
^DD(2,.329,20,0)="^.3LA^1^1"
^DD(2,.329,20,1,0)="SVC"
^DD(2,.329,21,0)="^^7^7^2920604^^^^"
^DD(2,.329,21,1,0)="For this veteran applicant who has at least two episodes of military"
^DD(2,.329,21,2,0)="service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)"
^DD(2,.329,21,3,0)="select from the available listing the type of discharge received from"
^DD(2,.329,21,4,0)="his/her next to last episode of military service.  Once the service"
^DD(2,.329,21,5,0)="record is verified only those users who hold the designated security"
^DD(2,.329,21,6,0)="key may enter/edit this field.  This field cannot be deleted as long"
^DD(2,.329,21,7,0)="as more than one episode of military service is indicated."
^DD(2,.329,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.329,"DT")="3040610"
^DD(2,.3291,0)="SERVICE BRANCH [NTL]^P23'X^DIC(23,^.32;10^S DFN=DA K:X=$O(^DIC(23,""B"",""B.E.C."","""")) X I $D(X) D SER1^DGLOCK S DGCOMBR=$G(Y) Q"
^DD(2,.3291,.1)="BRANCH OF SERVICE, NTL"
^DD(2,.3291,1,0)="^.1"
^DD(2,.3291,1,1,0)="2^AFV2^MUMPS"
^DD(2,.3291,1,1,1)="Q"
^DD(2,.3291,1,1,2)="I $P($G(^DPT(DA,.321)),U,14)]"""" D FVP^DGRPMS"
^DD(2,.3291,1,1,"%D",0)="^.101^4^4^3040331^^"
^DD(2,.3291,1,1,"%D",1,0)="This MUMPS cross-reference acts like a trigger cross-reference."
^DD(2,.3291,1,1,"%D",2,0)="If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL]"
^DD(2,.3291,1,1,"%D",3,0)="fields do not contain a Filipino Veteran branch of service, the Filipino"
^DD(2,.3291,1,1,"%D",4,0)="Vet Proof field (#.3214) is deleted."
^DD(2,.3291,1,1,"DT")="3040325"
^DD(2,.3291,1,2,0)="2^AENR3291^MUMPS"
^DD(2,.3291,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3291,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3291,1,2,"%D",0)="^^2^2^3040610^"
^DD(2,.3291,1,2,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3291,1,2,"%D",2,0)="SERVICE BRANCH [NTL] field."
^DD(2,.3291,1,2,"DT")="3040610"
^DD(2,.3291,1,3,0)="2^AXR35^MUMPS"
^DD(2,.3291,1,3,1)="Q"
^DD(2,.3291,1,3,2)="S DGXRF=.3291 D ^DGDDC Q"
^DD(2,.3291,1,3,"%D",0)="^^2^2^3060718^"
^DD(2,.3291,1,3,"%D",1,0)="This xref is used to delete the SERVICE COMPONENT [NTL] field if the"
^DD(2,.3291,1,3,"%D",2,0)="SERVICE BRANCH [NTL] field is changed or deleted."
^DD(2,.3291,1,3,"DT")="3060718"
^DD(2,.3291,3)="Enter the branch of service in which the patient served in his next-to-last episode of military service."
^DD(2,.3291,5,1,0)="2^.3285^3"
^DD(2,.3291,20,0)="^.3LA^1^1"
^DD(2,.3291,20,1,0)="SVC"
^DD(2,.3291,21,0)="^.001^7^7^3050909^^^^"
^DD(2,.3291,21,1,0)="For this veteran applicant who has at least two episodes of military"
^DD(2,.3291,21,2,0)="service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)"
^DD(2,.3291,21,3,0)="select from the available listing the branch of service s/he served"
^DD(2,.3291,21,4,0)="in during his/her next to last episode of military service.  Once the"
^DD(2,.3291,21,5,0)="service record is verified only those users who hold the designated"
^DD(2,.3291,21,6,0)="security key may enter/edit this field.  This field cannot be deleted"
^DD(2,.3291,21,7,0)="as long as more than one episode of military service is indicated."
^DD(2,.3291,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3291,"DT")="3060718"
^DD(2,.32911,0)="SERVICE COMPONENT [LAST]^*S^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;1^Q"
^DD(2,.32911,1,0)="^.1"
^DD(2,.32911,1,1,0)="2^AENR32911^MUMPS"
^DD(2,.32911,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32911,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32911,1,1,"%D",0)="^^2^2^3050909^"
^DD(2,.32911,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32911,1,1,"%D",2,0)="SERVICE COMPONENT [LAST] field."
^DD(2,.32911,1,1,"DT")="3050909"
^DD(2,.32911,3)="Enter the military service component of the patient for the most recent military service episode."
^DD(2,.32911,12)="Component must be consistent with branch of service, branch of service is required to enter component"
^DD(2,.32911,12.1)="S DIC(""S"")=""I $$VALCOMP^DGRPMS(DA,Y,1)"""
^DD(2,.32911,21,0)="^.001^5^5^3050919^^^^"
^DD(2,.32911,21,1,0)="For this veteran applicant enter the military service component for"
^DD(2,.32911,21,2,0)="his/her most recent episode of military service.  Once the service"
^DD(2,.32911,21,3,0)="record has been verified only those users who hold the designated "
^DD(2,.32911,21,4,0)="security key may enter/edit this field."
^DD(2,.32911,21,5,0)="NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE."
^DD(2,.32911,"DT")="3050919"
^DD(2,.32912,0)="SERVICE COMPONENT [NTL]^*SX^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;2^Q"
^DD(2,.32912,.1)=""
^DD(2,.32912,1,0)="^.1"
^DD(2,.32912,1,1,0)="2^AENR32912^MUMPS"
^DD(2,.32912,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32912,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32912,1,1,"%D",0)="^^2^2^3050909^"
^DD(2,.32912,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32912,1,1,"%D",2,0)="SERVICE COMPONENT [NTL] field."
^DD(2,.32912,1,1,"DT")="3050909"
^DD(2,.32912,3)="Enter the military service component of the patient for the next to last military service episode."
^DD(2,.32912,5,1,0)="2^.3291^3"
^DD(2,.32912,12)="Component must be consistent with branch of service, branch of service is required to enter component"
^DD(2,.32912,12.1)="S DIC(""S"")=""I $$VALCOMP^DGRPMS(DA,Y,2)"""
^DD(2,.32912,21,0)="^.001^8^8^3050912^^^^"
^DD(2,.32912,21,1,0)="For this veteran applicant who has at least two episodes of military"
^DD(2,.32912,21,2,0)="service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter"
^DD(2,.32912,21,3,0)="the military service component for the next to last episode of"
^DD(2,.32912,21,4,0)="service.  Once the service record is verified only those users who"
^DD(2,.32912,21,5,0)="hold the designated security key may enter/edit this field.  This field "
^DD(2,.32912,21,6,0)="cannot be deleted as long as more than two episodes of military service"
^DD(2,.32912,21,7,0)="are indicated."
^DD(2,.32912,21,8,0)="NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE."
^DD(2,.32912,"DT")="3050919"
^DD(2,.32913,0)="SERVICE COMPONENT [NNTL]^*SX^R:REGULAR;V:ACTIVATED RESERVE;G:ACTIVATED NG;^.3291;3^Q"
^DD(2,.32913,1,0)="^.1"
^DD(2,.32913,1,1,0)="2^AENR32913^MUMPS"
^DD(2,.32913,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.32913,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.32913,1,1,"%D",0)="^^2^2^3050909^"
^DD(2,.32913,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.32913,1,1,"%D",2,0)="SERVICE COMPONENT [NNTL] field."
^DD(2,.32913,1,1,"DT")="3050909"
^DD(2,.32913,3)="Enter the military service component of the patient for the third most recent military service episode."
^DD(2,.32913,5,1,0)="2^.3296^3"
^DD(2,.32913,12)="Component must be consistent with branch of service, branch of service is required to enter component"
^DD(2,.32913,12.1)="S DIC(""S"")=""I $$VALCOMP^DGRPMS(DA,Y,3)"""
^DD(2,.32913,21,0)="^.001^8^8^3050919^^^^"
^DD(2,.32913,21,1,0)="For this veteran applicant who has at least three episodes of military"
^DD(2,.32913,21,2,0)="service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter"
^DD(2,.32913,21,3,0)="the military service component for the third most recent episode of"
^DD(2,.32913,21,4,0)="service.  Once the service record is verified only those users who hold"
^DD(2,.32913,21,5,0)="the designated security key may enter/edit this field.  This field cannot"
^DD(2,.32913,21,6,0)="be deleted as long as more than two episodes of military service are"
^DD(2,.32913,21,7,0)="indicated."
^DD(2,.32913,21,8,0)="NATIONAL GUARD IS ONLY VALID FOR BRANCH OF SERVICE ARMY AND AIR FORCE."
^DD(2,.32913,"DT")="3050919"
^DD(2,.3292,0)="SERVICE ENTRY DATE [NTL]^RDX^^.32;11^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,""MSNTL"") X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=2 D POS^DGINP"
^DD(2,.3292,.1)="ENTRY DATE-SERVICE [NTL]"
^DD(2,.3292,1,0)="^.1"
^DD(2,.3292,1,1,0)="2^AF^MUMPS"
^DD(2,.3292,1,1,1)="Q"
^DD(2,.3292,1,1,2)="Q"
^DD(2,.3292,1,2,0)="2^AENR3292^MUMPS"
^DD(2,.3292,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3292,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3292,1,2,"%D",0)="^^2^2^3040610^"
^DD(2,.3292,1,2,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3292,1,2,"%D",2,0)="SERVICE ENTRY DATE [NTL] field."
^DD(2,.3292,1,2,"DT")="3040610"
^DD(2,.3292,3)="Enter the date this patient commenced his next-to-last episode of military service."
^DD(2,.3292,20,0)="^.3LA^1^1"
^DD(2,.3292,20,1,0)="SVC"
^DD(2,.3292,21,0)="^.001^10^10^3061003^^^^"
^DD(2,.3292,21,1,0)="For this veteran applicant who has at least two episodes of military"
^DD(2,.3292,21,2,0)="service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)"
^DD(2,.3292,21,3,0)="enter the date on which the next to last episode of service commenced."
^DD(2,.3292,21,4,0)="If the military service component is ACTIVATED NATIONAL GUARD or"
^DD(2,.3292,21,5,0)="ACTIVATED RESERVE, the period entered should be the period of"
^DD(2,.3292,21,6,0)="activation, so this date is their first day of active duty for the"
^DD(2,.3292,21,7,0)="episode.  Once the service record is verified only those users"
^DD(2,.3292,21,8,0)="who hold the designated security key may enter/edit this field."
^DD(2,.3292,21,9,0)="This field cannot be deleted as long as more than one episode of"
^DD(2,.3292,21,10,0)="military service is indicated."
^DD(2,.3292,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3292,"DT")="3040722"
^DD(2,.3293,0)="SERVICE SEPARATION DATE [NTL]^RDX^^.32;12^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER1^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,""MSNTL"") X I $D(X),$D(^DG(43,1)) S SD1=2 D PS^DGINP"
^DD(2,.3293,.1)="SEPARATION DATE-SERVICE [NTL]"
^DD(2,.3293,1,0)="^.1"
^DD(2,.3293,1,1,0)="2^AENR3293^MUMPS"
^DD(2,.3293,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3293,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3293,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.3293,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3293,1,1,"%D",2,0)="SERVICE SEPARATION DATE [NTL] field."
^DD(2,.3293,1,1,"DT")="3040610"
^DD(2,.3293,3)="Enter the date this patient ended his next-to-last episode of military service."
^DD(2,.3293,20,0)="^.3LA^1^1"
^DD(2,.3293,20,1,0)="SVC"
^DD(2,.3293,21,0)="^.001^10^10^3061003^^^^"
^DD(2,.3293,21,1,0)="For this veteran applicant who has at least two episodes of military"
^DD(2,.3293,21,2,0)="service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)"
^DD(2,.3293,21,3,0)="enter the date on which the next to last episode of service ended."
^DD(2,.3293,21,4,0)="If the military service component is ACTIVATED NATIONAL GUARD or"
^DD(2,.3293,21,5,0)="ACTIVATED RESERVE, the period entered should be the period of"
^DD(2,.3293,21,6,0)="activation, so this date is their last day of active duty for"
^DD(2,.3293,21,7,0)="this episode. Once the service record is verified only those users"
^DD(2,.3293,21,8,0)="who hold the designated security key may enter/edit this field.  This"
^DD(2,.3293,21,9,0)="field cannot be deleted as long as more than one episode of military"
^DD(2,.3293,21,10,0)="service is indicated."
^DD(2,.3293,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3293,"DT")="3040610"
^DD(2,.3294,0)="SERVICE NUMBER [NTL]^FX^^.32;13^S DFN=DA D SER1^DGLOCK I $D(X) S:X?1""SS"".E L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1""SS"".E ""  "",L S:X?1""SS"".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X"
^DD(2,.3294,.1)="NUMBER-SERVICE [NTL]"
^DD(2,.3294,1,0)="^.1"
^DD(2,.3294,1,1,0)="2^AENR3294^MUMPS"
^DD(2,.3294,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3294,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3294,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.3294,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3294,1,1,"%D",2,0)="SERVICE NUMBER [NTL] field."
^DD(2,.3294,1,1,"DT")="3040610"
^DD(2,.3294,3)="Enter the service number assigned to this patient during his next-to-last episode of military service or 'SS' if it's the same as his SSN."
^DD(2,.3294,20,0)="^.3LA^1^1"
^DD(2,.3294,20,1,0)="SVC"
^DD(2,.3294,21,0)="^^7^7^2930721^^^^"
^DD(2,.3294,21,1,0)="For this veteran applicant who has at least two episodes of military"
^DD(2,.3294,21,2,0)="service (ANY OTHER PERIODS OF SERVICE prompt must be answered YES)"
^DD(2,.3294,21,3,0)="enter the service number assigned to that next to last episode of"
^DD(2,.3294,21,4,0)="service [1-15 characters].  Once the service record is verified only"
^DD(2,.3294,21,5,0)="those users who hold the designated security key may enter/edit this"
^DD(2,.3294,21,6,0)="field.  This field cannot be deleted as long as more than one episode"
^DD(2,.3294,21,7,0)="of military service is indicated."
^DD(2,.3294,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3294,"DT")="3040610"
^DD(2,.32945,0)="SERVICE THIRD EPISODE?^RSX^Y:YES;N:NO;^.32;20^S DFN=DA D SV^DGLOCK I ""N""'[$G(X),$D(^DPT(DFN,.32)),$P(^(.32),U,19)'=""Y"" W !?4,*7,""Other Periods of service are not indicated...NO EDITING!"" K X"
^DD(2,.32945,.1)="THIRD EPISODE OF SERVICE?"
^DD(2,.32945,1,0)="^.1"
^DD(2,.32945,1,1,0)="2^AXR10^MUMPS"
^DD(2,.32945,1,1,1)="I X'=""Y"" S DGXRF=.32945 D ^DGDDC Q"
^DD(2,.32945,1,1,2)="Q"
^DD(2,.32945,1,2,0)="^^TRIGGER^2^.3296"
^DD(2,.32945,1,2,1)="X ^DD(2,.32945,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,15)=DIV,DIH=2,DIG=.3296 D ^DICR"
^DD(2,.32945,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(2,.32945,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))'=""YES"""
^DD(2,.32945,1,2,2)="X ^DD(2,.32945,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.32)),DIV=X S $P(^(.32),U,15)=DIV,DIH=2,DIG=.3296 D ^DICR"
^DD(2,.32945,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(2,.32945,0)),U,3),Y(1)=$S($D(^DPT(D0,.32)):^(.32),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,20)_"":"",2),$C(59))'=""YES"""
^DD(2,.32945,1,2,"CREATE CONDITION")="#.32945'=""YES"""
^DD(2,.32945,1,2,"CREATE VALUE")="@"
^DD(2,.32945,1,2,"DELETE CONDITION")="#.32945'=""YES"""
^DD(2,.32945,1,2,"DELETE VALUE")="@"
^DD(2,.32945,1,2,"DT")="3040407"
^DD(2,.32945,1,2,"FIELD")="#.3296"
^DD(2,.32945,3)="Enter YES if this patient served more than two episodes of military service otherwise enter NO."
^DD(2,.32945,5,1,0)="2^.3285^2"
^DD(2,.32945,20,0)="^.3LA^1^1"
^DD(2,.32945,20,1,0)="SVC"
^DD(2,.32945,21,0)="^^5^5^2980702^^^^"
^DD(2,.32945,21,1,0)="Enter 'Y' if this veteran applicant has at least three episodes of"
^DD(2,.32945,21,2,0)="military service, or 'N' if not.  The ANY OTHER PERIODS OF SERVICE"
^DD(2,.32945,21,3,0)="prompt must be answered YES in order to enter a third episode of"
^DD(2,.32945,21,4,0)="military service.  Once the service record is verified only those"
^DD(2,.32945,21,5,0)="users who hold the designated security key may enter/edit this field."
^DD(2,.32945,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.32945,"DT")="3040407"
^DD(2,.3295,0)="SERVICE DISCHARGE TYPE [NNTL]^RP25'X^DIC(25,^.32;14^S DFN=DA D SER2^DGLOCK"
^DD(2,.3295,.1)="DISCHARGE TYPE-SERVICE [NNTL]"
^DD(2,.3295,1,0)="^.1"
^DD(2,.3295,1,1,0)="2^AENR3295^MUMPS"
^DD(2,.3295,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3295,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3295,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.3295,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3295,1,1,"%D",2,0)="SERVICE DISCHARGE TYPE [NNTL] field."
^DD(2,.3295,1,1,"DT")="3040610"
^DD(2,.3295,3)="For this third episode of military service enter the discharge type given this patient."
^DD(2,.3295,5,1,0)="2^.32945^1"
^DD(2,.3295,20,0)="^.3LA^1^1"
^DD(2,.3295,20,1,0)="SVC"
^DD(2,.3295,21,0)="^^7^7^2920604^^^^"
^DD(2,.3295,21,1,0)="For this veteran applicant who has at least three episodes of military"
^DD(2,.3295,21,2,0)="service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select"
^DD(2,.3295,21,3,0)="from the available listing the discharge type received from the third most"
^DD(2,.3295,21,4,0)="recent episode of military service.  Once the service record is verified"
^DD(2,.3295,21,5,0)="only those users who hold the designated security key may enter/edit"
^DD(2,.3295,21,6,0)="this field.  This field cannot be deleted as long as more than two"
^DD(2,.3295,21,7,0)="episodes of military service are indicated."
^DD(2,.3295,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3295,"DT")="3040610"
^DD(2,.3296,0)="SERVICE BRANCH [NNTL]^P23'X^DIC(23,^.32;15^S DFN=DA K:X=$O(^DIC(23,""B"",""B.E.C."","""")) X I $D(X) D SER2^DGLOCK S DGCOMBR=$G(Y) Q"
^DD(2,.3296,.1)="BRANCH OF SERVICE, NNTL"
^DD(2,.3296,1,0)="^.1^^-1"
^DD(2,.3296,1,1,0)="2^AFV3^MUMPS"
^DD(2,.3296,1,1,1)="Q"
^DD(2,.3296,1,1,2)="I $P($G(^DPT(DA,.321)),U,14)]"""" D FVP^DGRPMS"
^DD(2,.3296,1,1,"%D",0)="^^4^4^3040325^"
^DD(2,.3296,1,1,"%D",1,0)="This MUMPS cross-reference acts like a trigger cross-reference."
^DD(2,.3296,1,1,"%D",2,0)="If the Service Branch [Last], Service Branch [NTL] and Service Branch [NNTL]"
^DD(2,.3296,1,1,"%D",3,0)="fields do not contain a Filipino Veteran branch of service, the Filipino"
^DD(2,.3296,1,1,"%D",4,0)="Vet Proof field (#.3214) is deleted."
^DD(2,.3296,1,1,"DT")="3040325"
^DD(2,.3296,1,2,0)="2^AENR3296^MUMPS"
^DD(2,.3296,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3296,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3296,1,2,"%D",0)="^^2^2^3040610^"
^DD(2,.3296,1,2,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3296,1,2,"%D",2,0)="SERVICE BRANCH [NNTL] field."
^DD(2,.3296,1,2,"DT")="3040610"
^DD(2,.3296,1,3,0)="^^TRIGGER^2^.32913"
^DD(2,.3296,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.3291)):^(.3291),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.3291)),DIV=X S $P(^(.3291),U,3)=DIV,DIH=2,DIG=.32913 D ^DICR"
^DD(2,.3296,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.3291)):^(.3291),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.3291)),DIV=X S $P(^(.3291),U,3)=DIV,DIH=2,DIG=.32913 D ^DICR"
^DD(2,.3296,1,3,"%D",0)="^^1^1^3050912^"
^DD(2,.3296,1,3,"%D",1,0)="Deletes the COMPONENT field if the branch of service is changed or deleted."
^DD(2,.3296,1,3,"CREATE VALUE")="@"
^DD(2,.3296,1,3,"DELETE VALUE")="@"
^DD(2,.3296,1,3,"DT")="3050912"
^DD(2,.3296,1,3,"FIELD")="SERVICE COMPONENT [NNTL]"
^DD(2,.3296,1,4,0)="2^AXR36^MUMPS"
^DD(2,.3296,1,4,1)="Q"
^DD(2,.3296,1,4,2)="S DGXRF=.3296 D ^DGDDC Q"
^DD(2,.3296,1,4,"DT")="3050912"
^DD(2,.3296,3)="For this third episode of military service enter the branch in which this patient served."
^DD(2,.3296,5,1,0)="2^.32945^2"
^DD(2,.3296,20,0)="^.3LA^1^1"
^DD(2,.3296,20,1,0)="SVC"
^DD(2,.3296,21,0)="^.001^7^7^3050909^^^^"
^DD(2,.3296,21,1,0)="For this veteran applicant who has at least three episodes of military"
^DD(2,.3296,21,2,0)="service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) select"
^DD(2,.3296,21,3,0)="from the available listing the service branch served in during his/her"
^DD(2,.3296,21,4,0)="third most recent episode of service.  Once the service record is"
^DD(2,.3296,21,5,0)="verified only those users who hold the designated security key may"
^DD(2,.3296,21,6,0)="enter/edit this field.  This field cannot be deleted as long as more"
^DD(2,.3296,21,7,0)="than two episodes of military service are indicated."
^DD(2,.3296,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3296,"DT")="3060104"
^DD(2,.3297,0)="SERVICE ENTRY DATE [NNTL]^RDX^^.32;16^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,0,""MSNNTL"") X I $D(X) S DGFRDT=X I $D(^DG(43,1)) S SD1=3 D POS^DGINP"
^DD(2,.3297,.1)="ENTRY DATE-SERVICE [NNTL]"
^DD(2,.3297,1,0)="^.1"
^DD(2,.3297,1,1,0)="2^AENR3297^MUMPS"
^DD(2,.3297,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3297,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3297,1,1,"%D",0)="^.101^2^2^3040702^^"
^DD(2,.3297,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3297,1,1,"%D",2,0)="SERVICE ENTRY DATE [NNTL] field."
^DD(2,.3297,1,1,"DT")="3040702"
^DD(2,.3297,3)="For this third episode of military service enter the date on which the patient commenced serving."
^DD(2,.3297,20,0)="^.3LA^1^1"
^DD(2,.3297,20,1,0)="SVC"
^DD(2,.3297,21,0)="^.001^10^10^3061003^^^^"
^DD(2,.3297,21,1,0)="For this veteran applicant who has at least three episodes of military"
^DD(2,.3297,21,2,0)="service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter"
^DD(2,.3297,21,3,0)="the date on which the third most recent episode of service commenced."
^DD(2,.3297,21,4,0)="If the military service component is ACTIVATED NATIONAL GUARD or"
^DD(2,.3297,21,5,0)="ACTIVATED RESERVE, the period entered should be the period of"
^DD(2,.3297,21,6,0)="activation, so this date is their first day of active duty for the"
^DD(2,.3297,21,7,0)="episode.  Once the service record is verified only those users who"
^DD(2,.3297,21,8,0)="hold the designated security key may enter/edit this field.  This"
^DD(2,.3297,21,9,0)="field cannot be deleted as long as more than two episodes of military"
^DD(2,.3297,21,10,0)="service are indicated."
^DD(2,.3297,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3297,"DT")="3040722"
^DD(2,.3298,0)="SERVICE SEPARATION DATE [NNTL]^RDX^^.32;17^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DFN=DA D SER2^DGLOCK I $D(X) K:'$$VALMSE^DGRPMS(DFN,X,1,""MSNNTL"") X I $D(X),$D(^DG(43,1)) S SD1=3 D PS^DGINP"
^DD(2,.3298,.1)="SEPARATION DATE-SERVICE [NNTL]"
^DD(2,.3298,1,0)="^.1"
^DD(2,.3298,1,1,0)="2^AENR3298^MUMPS"
^DD(2,.3298,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3298,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3298,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.3298,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3298,1,1,"%D",2,0)="SERVICE SEPARATION DATE [NNTL] field."
^DD(2,.3298,1,1,"DT")="3040610"
^DD(2,.3298,3)="For this third episode of military service enter the date on which the service terminated."
^DD(2,.3298,20,0)="^.3LA^1^1"
^DD(2,.3298,20,1,0)="SVC"
^DD(2,.3298,21,0)="^.001^9^9^3061003^^^^"
^DD(2,.3298,21,1,0)="For this veteran applicant who has at least three episodes of military"
^DD(2,.3298,21,2,0)="service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter"
^DD(2,.3298,21,3,0)="the date on which the third most recent episode of service ended.  If"
^DD(2,.3298,21,4,0)="the military service component is ACTIVATED NATIONAL GUARD or ACTIVATED"
^DD(2,.3298,21,5,0)="RESERVE, the period entered should be the period of activation, so this"
^DD(2,.3298,21,6,0)="date is their last day of active duty for this episode.  Once the"
^DD(2,.3298,21,7,0)="service record is verified only those users who hold the designated"
^DD(2,.3298,21,8,0)="security key may enter/edit this field.  This field cannot be deleted"
^DD(2,.3298,21,9,0)="as long as more than two episodes of military service are indicated."
^DD(2,.3298,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3298,"DT")="3040610"
^DD(2,.3299,0)="SERVICE NUMBER [NNTL]^FX^^.32;18^S DFN=DA D SER2^DGLOCK I $D(X) S:X?1""SS"".E L=$S($D(^DPT(DA,0)):$P(^(0),U,9),1:X) W:X?1""SS"".E ""  "",L S:X?1""SS"".E X=L K:$L(X)>15!($L(X)<1)!'(X?.N) X"
^DD(2,.3299,.1)="NUMBER-SERVICE [NNTL]"
^DD(2,.3299,1,0)="^.1"
^DD(2,.3299,1,1,0)="2^AENR3299^MUMPS"
^DD(2,.3299,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3299,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3299,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.3299,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.3299,1,1,"%D",2,0)="SERVICE NUMBER [NNTL] field."
^DD(2,.3299,1,1,"DT")="3040610"
^DD(2,.3299,3)="For this third episode of military service enter the service number assigned or 'SS' if it's the same as the SSN."
^DD(2,.3299,20,0)="^.3LA^1^1"
^DD(2,.3299,20,1,0)="SVC"
^DD(2,.3299,21,0)="^^7^7^2861008^^^"
^DD(2,.3299,21,1,0)="For this veteran applicant who has at least three episodes of military"
^DD(2,.3299,21,2,0)="service (ANOTHER PERIOD OF SERVICE prompt must be answered YES) enter"
^DD(2,.3299,21,3,0)="the service number assigned for the third most recent episode of service"
^DD(2,.3299,21,4,0)="[1-15 characters].  Once the service record is verified only those users"
^DD(2,.3299,21,5,0)="who hold the designated security key may enter/edit this field.  This"
^DD(2,.3299,21,6,0)="field cannot be deleted as long as more than two episodes of military"
^DD(2,.3299,21,7,0)="service are indicated."
^DD(2,.3299,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.3299,"DT")="3040610"
^DD(2,.33011,0)="E-WORK PHONE NUMBER^F^^.33;11^K:$L(X)>20!($L(X)<4) X"
^DD(2,.33011,3)="Enter the work phone number for the emergency contact.  Answer must be 4-20 characters in length."
^DD(2,.33011,21,0)="^^2^2^2920113^"
^DD(2,.33011,21,1,0)="If the emergency contact for this patient is employed, enter the phone"
^DD(2,.33011,21,2,0)="number at which this individual may be reached while at work."
^DD(2,.33011,"DT")="2920113"
^DD(2,.33012,0)="E-CONTACT CHANGE DATE/TIME^DX^^.332;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(2,.33012,21,0)="^^2^2^3050520^"
^DD(2,.33012,21,1,0)="This field will hold the date and time of the last Emergency Contact"
^DD(2,.33012,21,2,0)="Update."
^DD(2,.33012,"DT")="3050520"
^DD(2,.3305,0)="E-EMER. CONTACT SAME AS NOK?^RSX^Y:YES;N:NO;^.33;10^I $D(X),X=""Y"" D K1^DGLOCK2"
^DD(2,.3305,.1)="IS E-CONTACT SAME AS NOK"
^DD(2,.3305,3)="Enter YES if the emergency contact and next-of-kin are the same person, otherwise enter NO."
^DD(2,.3305,20,0)="^.3LA^1^1"
^DD(2,.3305,20,1,0)="EC1"
^DD(2,.3305,21,0)="^^2^2^2920610^^^^"
^DD(2,.3305,21,1,0)="If a primary NOK is defined enter 'Y' if that person is also the primary"
^DD(2,.3305,21,2,0)="emergency contact, otherwise enter 'N' for no."
^DD(2,.3305,"DT")="2861007"
^DD(2,.331,0)="E-NAME^F^^.33;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^DD(2,.331,.1)="EMERGENCY CONTACT"
^DD(2,.331,1,0)="^.1"
^DD(2,.331,1,1,0)="2^AXR4^MUMPS"
^DD(2,.331,1,1,1)="Q"
^DD(2,.331,1,1,2)="S DGXRF=.331 D ^DGDDC Q"
^DD(2,.331,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.331,20,0)="^.3LA^1^1"
^DD(2,.331,20,1,0)="EC1"
^DD(2,.331,21,0)="^^4^4^2861117^^^"
^DD(2,.331,21,1,0)="Enter the primary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.331,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"
^DD(2,.331,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.331,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.331,"DT")="3050611"
^DD(2,.331011,0)="E2-WORK PHONE NUMBER^F^^.331;11^K:$L(X)>20!($L(X)<4) X"
^DD(2,.331011,3)="Enter the work phone number for the secondary emergency contact.  Answer must be 4-20 characters in length."
^DD(2,.331011,21,0)="^^2^2^2920113^"
^DD(2,.331011,21,1,0)="If the person designated as the secondary emergency contact is employed,"
^DD(2,.331011,21,2,0)="enter the person's work phone number."
^DD(2,.331011,"DT")="2920113"
^DD(2,.3311,0)="E2-NAME OF SECONDARY CONTACT^FX^^.331;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME I $D(X) D E1^DGLOCK2"
^DD(2,.3311,.1)="EMERGENCY CONTACT-2"
^DD(2,.3311,1,0)="^.1"
^DD(2,.3311,1,1,0)="2^AXR5^MUMPS"
^DD(2,.3311,1,1,1)="Q"
^DD(2,.3311,1,1,2)="S DGXRF=.3311 D ^DGDDC Q"
^DD(2,.3311,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.3311,20,0)="^.3LA^1^1"
^DD(2,.3311,20,1,0)="EC2"
^DD(2,.3311,21,0)="^^4^4^2861007^"
^DD(2,.3311,21,1,0)="Enter the secondary emergency contact's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.3311,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"
^DD(2,.3311,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.3311,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.3311,"DT")="3050611"
^DD(2,.33112,0)="E2-CONTACT CHANGE DATE/TIME^DX^^.332;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(2,.33112,21,0)="^^2^2^3050520^"
^DD(2,.33112,21,1,0)="This field will hold the date and time of the last Secondary Emergency"
^DD(2,.33112,21,2,0)="Contact Update."
^DD(2,.33112,"DT")="3050520"
^DD(2,.3312,0)="E2-RELATIONSHIP TO PATIENT^FX^^.331;2^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3312,.1)=""
^DD(2,.3312,3)="Enter the relationship of the secondary emergency contact to the patient [2-30 characters]."
^DD(2,.3312,20,0)="^.3LA^1^1"
^DD(2,.3312,20,1,0)="EC2"
^DD(2,.3312,21,0)="^^4^4^2861007^"
^DD(2,.3312,21,1,0)="If a secondary emergency contact is specified enter the relationship"
^DD(2,.3312,21,2,0)="of that person to the applicant [2-30 characters], otherwise nothing"
^DD(2,.3312,21,3,0)="may be entered.  This field cannot be deleted as long as a secondary"
^DD(2,.3312,21,4,0)="emergency contact is on file."
^DD(2,.3312,"DEL",1,0)="S DFN=DA D E2D^DGLOCK2 I '$D(X)"
^DD(2,.3312,"DT")="2861002"
^DD(2,.3313,0)="E2-STREET ADDRESS [LINE 1]^FX^^.331;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3313,.1)=""
^DD(2,.3313,1,0)="^.1"
^DD(2,.3313,1,1,0)="2^AXR22^MUMPS"
^DD(2,.3313,1,1,1)="Q"
^DD(2,.3313,1,1,2)="S DGXRF=.3313 D ^DGDDC Q"
^DD(2,.3313,3)="Enter the first line of the secondary emergency contacts address [3-30 characters]."
^DD(2,.3313,20,0)="^.3LA^1^1"
^DD(2,.3313,20,1,0)="EC2"
^DD(2,.3313,21,0)="^^4^4^2861117^^"
^DD(2,.3313,21,1,0)="If a secondary emergency contact is specified enter the first line"
^DD(2,.3313,21,2,0)="of that person's street address [3-30 characters], otherwise nothing"
^DD(2,.3313,21,3,0)="may be entered.  This field cannot be deleted as long as a secondary"
^DD(2,.3313,21,4,0)="emergency contact is on file."
^DD(2,.3313,"DEL",1,0)="S DFN=DA D E2D^DGLOCK2 I '$D(X)"
^DD(2,.3313,"DT")="2890115"
^DD(2,.3314,0)="E2-STREET ADDRESS [LINE 2]^FX^^.331;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3314,.1)=""
^DD(2,.3314,1,0)="^.1"
^DD(2,.3314,1,1,0)="2^AXR23^MUMPS"
^DD(2,.3314,1,1,1)="Q"
^DD(2,.3314,1,1,2)="S DGXRF=.3314 D ^DGDDC Q"
^DD(2,.3314,3)="Enter the second line of the secondary emergency contacts address [3-30 characters]."
^DD(2,.3314,20,0)="^.3LA^1^1"
^DD(2,.3314,20,1,0)="EC2"
^DD(2,.3314,21,0)="^^4^4^2861117^^^"
^DD(2,.3314,21,1,0)="If a secondary emergency contact is specified enter the second line"
^DD(2,.3314,21,2,0)="of that person's street address [3-30 characters], if necessary, otherwise"
^DD(2,.3314,21,3,0)="nothing may be entered.  This field cannot be deleted as long as a"
^DD(2,.3314,21,4,0)="secondary emergency contact is on file."
^DD(2,.3314,"DT")="2890115"
^DD(2,.3315,0)="E2-STREET ADDRESS [LINE 3]^FX^^.331;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3315,.1)=""
^DD(2,.3315,3)="Enter the third line of the secondary emergency contacts address [3-30 characters]."
^DD(2,.3315,20,0)="^.3LA^1^1"
^DD(2,.3315,20,1,0)="EC2"
^DD(2,.3315,21,0)="^^4^4^2861117^^"
^DD(2,.3315,21,1,0)="If a secondary emergency contact is specified enter the third line"
^DD(2,.3315,21,2,0)="of that person's street address [3-30 characters], if necessary,"
^DD(2,.3315,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted as"
^DD(2,.3315,21,4,0)="long as a secondary emergency contact is on file."
^DD(2,.3315,"DT")="2861002"
^DD(2,.3316,0)="E2-CITY^FX^^.331;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3316,3)="Enter the city in which the secondary emergency contact resides [3-30 characters]."
^DD(2,.3316,20,0)="^.3LA^1^1"
^DD(2,.3316,20,1,0)="EC2"
^DD(2,.3316,21,0)="^^4^4^2861007^^"
^DD(2,.3316,21,1,0)="If a secondary emergency contact is specified enter the city in"
^DD(2,.3316,21,2,0)="which that person resides [3-30 characters], otherwise nothing"
^DD(2,.3316,21,3,0)="may be entered.  This field cannot be deleted as long as a secondary"
^DD(2,.3316,21,4,0)="emergency contact is on file."
^DD(2,.3316,"DEL",1,0)="S DFN=DA D E2D^DGLOCK2 I '$D(X)"
^DD(2,.3316,"DT")="2861002"
^DD(2,.3317,0)="E2-STATE^P5'X^DIC(5,^.331;7^I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3317,3)="Select from the listing the state in which the secondary emergency contact resides."
^DD(2,.3317,20,0)="^.3LA^1^1"
^DD(2,.3317,20,1,0)="EC2"
^DD(2,.3317,21,0)="^^4^4^2861007^"
^DD(2,.3317,21,1,0)="If a secondary emergency contact is specified select from the"
^DD(2,.3317,21,2,0)="available listing the state in which that person resides,"
^DD(2,.3317,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted"
^DD(2,.3317,21,4,0)="as long as a secondary emergency contact is on file."
^DD(2,.3317,"DEL",1,0)="S DFN=DA D E2D^DGLOCK2 I '$D(X)"
^DD(2,.3317,"DT")="2861002"
^DD(2,.3318,0)="E2-ZIP CODE^FX^^.331;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3318,.1)=""
^DD(2,.3318,1,0)="^.1"
^DD(2,.3318,1,1,0)="2^ZEC2ZIP^MUMPS"
^DD(2,.3318,1,1,1)="D SET^DGREGDD1(DA,.2204,.22,4,X)"
^DD(2,.3318,1,1,2)="D KILL^DGREGDD1(DA,.2204,.22,4,X)"
^DD(2,.3318,1,1,"%D",0)="^^2^2^2930603^^"
^DD(2,.3318,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.3318,1,1,"%D",2,0)="value."
^DD(2,.3318,1,1,"DT")="2930603"
^DD(2,.3318,3)="Enter the zip code as five numerics where the secondary emergency contact resides."
^DD(2,.3318,20,0)="^.3LA^1^1"
^DD(2,.3318,20,1,0)="EC2"
^DD(2,.3318,21,0)="^^4^4^2930603^^"
^DD(2,.3318,21,1,0)="If a secondary emergency contact is specified enter the zip"
^DD(2,.3318,21,2,0)="code for the city in which s/he resides [5 numerics], otherwise"
^DD(2,.3318,21,3,0)="nothing may be entered.  This field cannot be deleted as long"
^DD(2,.3318,21,4,0)="as a secondary emergency contact is on file."
^DD(2,.3318,"DEL",1,0)="S DFN=DA D E2D^DGLOCK2 I '$D(X)"
^DD(2,.3318,"DT")="2930603"
^DD(2,.3319,0)="E2-PHONE NUMBER^FX^^.331;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D E2^DGLOCK2"
^DD(2,.3319,.1)=""
^DD(2,.3319,3)="Enter the phone number of the secondary emergency contact [3-20 characters]."
^DD(2,.3319,20,0)="^.3LA^1^1"
^DD(2,.3319,20,1,0)="EC2"
^DD(2,.3319,21,0)="^^4^4^2861007^"
^DD(2,.3319,21,1,0)="If a secondary emergency contact is specified enter the telephone"
^DD(2,.3319,21,2,0)="number at which that person may be reached [3-20 characters],"
^DD(2,.3319,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted as"
^DD(2,.3319,21,4,0)="long as a secondary emergency contact is on file."
^DD(2,.3319,"DT")="2861002"
^DD(2,.332,0)="E-RELATIONSHIP TO PATIENT^FX^^.33;2^K:$L(X)>30!($L(X)<2) X I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.332,.1)=""
^DD(2,.332,3)="Enter the relationship of the emergency contact to the patient [3-35 characters]."
^DD(2,.332,20,0)="^.3LA^1^1"
^DD(2,.332,20,1,0)="EC1"
^DD(2,.332,21,0)="^^4^4^2861007^"
^DD(2,.332,21,1,0)="If a primary emergency contact is specified enter the relationship"
^DD(2,.332,21,2,0)="of that person to the applicant [3-35 characters], otherwise nothing"
^DD(2,.332,21,3,0)="may be entered.  This field cannot be deleted as long as a primary"
^DD(2,.332,21,4,0)="emergency contact is on file."
^DD(2,.332,"DEL",1,0)="S DFN=DA D E1D^DGLOCK2 I '$D(X)"
^DD(2,.332,"DT")="2861002"
^DD(2,.333,0)="E-STREET ADDRESS [LINE 1]^FX^^.33;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.333,.1)=""
^DD(2,.333,1,0)="^.1"
^DD(2,.333,1,1,0)="2^AXR24^MUMPS"
^DD(2,.333,1,1,1)="Q"
^DD(2,.333,1,1,2)="S DGXRF=.333 D ^DGDDC Q"
^DD(2,.333,3)="Enter the first line of the emergency contacts street address [3-30 characters]."
^DD(2,.333,20,0)="^.3LA^1^1"
^DD(2,.333,20,1,0)="EC1"
^DD(2,.333,21,0)="^^4^4^2861117^^"
^DD(2,.333,21,1,0)="If a primary emergency contact is specified enter the first line"
^DD(2,.333,21,2,0)="of that person's street address [3-30 characters], otherwise"
^DD(2,.333,21,3,0)="nothing may be entered.  This field cannot be deleted as long as"
^DD(2,.333,21,4,0)="a primary emergency contact is on file."
^DD(2,.333,"DEL",1,0)="S DFN=DA D E1D^DGLOCK2 I '$D(X)"
^DD(2,.333,"DT")="2890115"
^DD(2,.334,0)="E-STREET ADDRESS [LINE 2]^FX^^.33;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.334,.1)=""
^DD(2,.334,1,0)="^.1"
^DD(2,.334,1,1,0)="2^AXR25^MUMPS"
^DD(2,.334,1,1,1)="Q"
^DD(2,.334,1,1,2)="S DGXRF=.334 D ^DGDDC Q"
^DD(2,.334,3)="Enter the second line of the emergency contacts street address [3-30 characters]."
^DD(2,.334,20,0)="^.3LA^1^1"
^DD(2,.334,20,1,0)="EC1"
^DD(2,.334,21,0)="^^4^4^2861117^^"
^DD(2,.334,21,1,0)="If a primary emergency contact is specified enter the second line"
^DD(2,.334,21,2,0)="of that person's street address [3-30 characters], if necessary,"
^DD(2,.334,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted as"
^DD(2,.334,21,4,0)="long as a primary emergency contact is on file."
^DD(2,.334,"DT")="2890115"
^DD(2,.335,0)="E-STREET ADDRESS [LINE 3]^FX^^.33;5^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.335,.1)=""
^DD(2,.335,3)="Enter the third line of the emergency contacts address [3-30 characters]."
^DD(2,.335,20,0)="^.3LA^1^1"
^DD(2,.335,20,1,0)="EC1"
^DD(2,.335,21,0)="^^4^4^2861117^^"
^DD(2,.335,21,1,0)="If a primary emergency contact is specified enter the third line"
^DD(2,.335,21,2,0)="of that person's street address [3-30 characters], if necessary,"
^DD(2,.335,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted as"
^DD(2,.335,21,4,0)="long as a primary emergency contact is on file."
^DD(2,.335,"DT")="2861002"
^DD(2,.336,0)="E-CITY^FX^^.33;6^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.336,3)="Enter the city in which the emergency contact resides [3-30 characters]."
^DD(2,.336,20,0)="^.3LA^1^1"
^DD(2,.336,20,1,0)="EC1"
^DD(2,.336,21,0)="^^4^4^2861007^^"
^DD(2,.336,21,1,0)="If a primary emergency contact is specified enter the city in"
^DD(2,.336,21,2,0)="which that person resides [3-30 characters], otherwise nothing"
^DD(2,.336,21,3,0)="may be entered.  This field cannot be deleted as long as a"
^DD(2,.336,21,4,0)="primary emergency contact is on file."
^DD(2,.336,"DEL",1,0)="S DFN=DA D E1D^DGLOCK2 I '$D(X)"
^DD(2,.336,"DT")="2861002"
^DD(2,.337,0)="E-STATE^P5'X^DIC(5,^.33;7^I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.337,3)="Select from the listing the state in whcih the emergency contact resides."
^DD(2,.337,20,0)="^.3LA^1^1"
^DD(2,.337,20,1,0)="EC1"
^DD(2,.337,21,0)="^^4^4^2861007^"
^DD(2,.337,21,1,0)="If a primary emergency contact is specified select from the"
^DD(2,.337,21,2,0)="available listing the state in which that person resides,"
^DD(2,.337,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted"
^DD(2,.337,21,4,0)="as long as a primary emergency contact is on file."
^DD(2,.337,"DEL",1,0)="S DFN=DA D E1D^DGLOCK2 I '$D(X)"
^DD(2,.337,"DT")="2861002"
^DD(2,.338,0)="E-ZIP CODE^FX^^.33;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.338,.1)=""
^DD(2,.338,1,0)="^.1"
^DD(2,.338,1,1,0)="2^AEC1ZIP^MUMPS"
^DD(2,.338,1,1,1)="D SET^DGREGDD1(DA,.2201,.22,1,X)"
^DD(2,.338,1,1,2)="D KILL^DGREGDD1(DA,2201,.22,1,X)"
^DD(2,.338,1,1,"%D",0)="^^2^2^2930603^"
^DD(2,.338,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to "
^DD(2,.338,1,1,"%D",2,0)="this field's value."
^DD(2,.338,1,1,"DT")="2930603"
^DD(2,.338,3)="Enter the zip code as five numerics of the emergency contact."
^DD(2,.338,20,0)="^.3LA^1^1"
^DD(2,.338,20,1,0)="EC1"
^DD(2,.338,21,0)="^^4^4^2930603^^^^"
^DD(2,.338,21,1,0)="If a primary emergency contact is specified enter the zip code"
^DD(2,.338,21,2,0)="for the city in which s/he resides [5 numerics], otherwise"
^DD(2,.338,21,3,0)="nothing may be entered.  This field cannot be deleted as long as"
^DD(2,.338,21,4,0)="a primary emergency contact is on file."
^DD(2,.338,"DEL",1,0)="S DFN=DA D E1D^DGLOCK2 I '$D(X)"
^DD(2,.338,"DT")="2930603"
^DD(2,.339,0)="E-PHONE NUMBER^FX^^.33;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D E1^DGLOCK2"
^DD(2,.339,.1)=""
^DD(2,.339,3)="Enter the phone number of the emergency contact [3-20 characters]."
^DD(2,.339,20,0)="^.3LA^1^1"
^DD(2,.339,20,1,0)="EC1"
^DD(2,.339,21,0)="^^4^4^2861007^"
^DD(2,.339,21,1,0)="If a primary emergency contact is specified enter the telephone"
^DD(2,.339,21,2,0)="number [3-20 characters] at which that person may be reached,"
^DD(2,.339,21,3,0)="otherwise nothing may be entered.  This field cannot be deleted"
^DD(2,.339,21,4,0)="as long as a primary emergency contact is on file."
^DD(2,.339,"DT")="2861002"
^DD(2,.34011,0)="D-WORK PHONE NUMBER^F^^.34;11^K:$L(X)>20!($L(X)<4) X"
^DD(2,.34011,3)="Enter the designee's work phone number.  Answer must be 4-20 characters in length."
^DD(2,.34011,21,0)="^^3^3^2920113^"
^DD(2,.34011,21,1,0)="If the person designated to receive the patient's personal effects is"
^DD(2,.34011,21,2,0)="employed, enter the phone number at which that person may be reached"
^DD(2,.34011,21,3,0)="while at work."
^DD(2,.34011,"DT")="2920113"
^DD(2,.3405,0)="D-DESIGNEE SAME AS NOK?^RSX^Y:YES;N:NO;^.34;10^I $D(X),X=""Y"" D K1^DGLOCK2"
^DD(2,.3405,.1)="IS DESIGNEE SAME AS NOK"
^DD(2,.3405,3)="If the designee and the person specififed as the next-of-kin are one in the same enter YES otherwise enter NO."
^DD(2,.3405,20,0)="^.3LA^1^1"
^DD(2,.3405,20,1,0)="D1"
^DD(2,.3405,21,0)="^^2^2^2861007^"
^DD(2,.3405,21,1,0)="If a primary NOK is defined enter 'Y' if that person is also the"
^DD(2,.3405,21,2,0)="designee appointed by the applicant, otherwise enter 'N' for no."
^DD(2,.3405,"DT")="2861007"
^DD(2,.341,0)="D-NAME OF DESIGNEE^F^^.34;1^K:$L(X)>35!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35) K:'$L(X) X,DG20NAME"
^DD(2,.341,.1)="DESIGNEE"
^DD(2,.341,1,0)="^.1"
^DD(2,.341,1,1,0)="2^AXR6^MUMPS"
^DD(2,.341,1,1,1)="Q"
^DD(2,.341,1,1,2)="S DGXRF=.341 D ^DGDDC Q"
^DD(2,.341,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-35 characters in length."
^DD(2,.341,20,0)="^.3LA^1^1"
^DD(2,.341,20,1,0)="D1"
^DD(2,.341,21,0)="^^4^4^2861007^"
^DD(2,.341,21,1,0)="Enter the designee's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2,.341,21,2,0)="This value must be 3-35 characters in length and may contain only uppercase"
^DD(2,.341,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2,.341,21,4,0)="characters and parenthetical text will be removed."
^DD(2,.341,"DT")="3050611"
^DD(2,.3412,0)="DESIGNEE CHANGE DATE/TIME^DX^^.332;3^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(2,.3412,21,0)="^^1^1^3050520^"
^DD(2,.3412,21,1,0)="This field will hold the date and time of the last Designee Update."
^DD(2,.3412,"DT")="3050520"
^DD(2,.342,0)="D-RELATIONSHIP TO PATIENT^FX^^.34;2^K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.342,.1)=""
^DD(2,.342,3)="Enter the relationship of the designee to the patient [3-30 characters]."
^DD(2,.342,20,0)="^.3LA^1^1"
^DD(2,.342,20,1,0)="D1"
^DD(2,.342,21,0)="^^3^3^2861007^"
^DD(2,.342,21,1,0)="If a designee is specified enter the relationship of that person to"
^DD(2,.342,21,2,0)="the applicant [3-30 characters], otherwise nothing may be entered."
^DD(2,.342,21,3,0)="This field cannot be deleted as long as a designee is on file."
^DD(2,.342,"DEL",1,0)="S DFN=DA D DD^DGLOCK2 I '$D(X)"
^DD(2,.342,"DT")="2861002"
^DD(2,.343,0)="D-STREET ADDRESS [LINE 1]^FX^^.34;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.343,.1)=""
^DD(2,.343,1,0)="^.1"
^DD(2,.343,1,1,0)="2^AXR26^MUMPS"
^DD(2,.343,1,1,1)="Q"
^DD(2,.343,1,1,2)="S DGXRF=.343 D ^DGDDC Q"
^DD(2,.343,3)="Enter the first line of the designee's address [3-30 characters]."
^DD(2,.343,20,0)="^.3LA^1^1"
^DD(2,.343,20,1,0)="D1"
^DD(2,.343,21,0)="^^3^3^2861117^^"
^DD(2,.343,21,1,0)="If a designee is specified enter the first line of that person's street"
^DD(2,.343,21,2,0)="address [3-30 characters], otherwise nothing may be entered.  This"
^DD(2,.343,21,3,0)="field cannot be deleted as long as a designee is on file."
^DD(2,.343,"DEL",1,0)="S DFN=DA D DD^DGLOCK2 I '$D(X)"
^DD(2,.343,"DT")="2920113"
^DD(2,.344,0)="D-STREET ADDRESS [LINE 2]^FX^^.34;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.344,.1)=""
^DD(2,.344,1,0)="^.1"
^DD(2,.344,1,1,0)="2^AXR27^MUMPS"
^DD(2,.344,1,1,1)="Q"
^DD(2,.344,1,1,2)="S DGXRF=.344 D ^DGDDC Q"
^DD(2,.344,3)="Enter the second line of the designee's address [3-30 characters]."
^DD(2,.344,20,0)="^.3LA^1^1"
^DD(2,.344,20,1,0)="D1"
^DD(2,.344,21,0)="^^4^4^2861117^^^^"
^DD(2,.344,21,1,0)="If a designee is specified enter the second line of that person's"
^DD(2,.344,21,2,0)="street address [3-30 characters], if necessary, otherwise nothing"
^DD(2,.344,21,3,0)="may be entered.  This field cannot be deleted as long as a designee"
^DD(2,.344,21,4,0)="is on file."
^DD(2,.344,"AUDIT")=""
^DD(2,.344,"DT")="2890115"
^DD(2,.345,0)="D-STREET ADDRESS [LINE 3]^FX^^.34;5^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.345,.1)=""
^DD(2,.345,3)="Enter the third line of the designee's address [3-30 characters]."
^DD(2,.345,20,0)="^.3LA^1^1"
^DD(2,.345,20,1,0)="D1"
^DD(2,.345,21,0)="^^4^4^2861117^^"
^DD(2,.345,21,1,0)="If a designee is specified enter the third line of that person's"
^DD(2,.345,21,2,0)="street address [3-30 characters], if necessary, otherwise nothing"
^DD(2,.345,21,3,0)="may be entered.  This field cannot be deleted as long as a designee"
^DD(2,.345,21,4,0)="is on file."
^DD(2,.345,"DT")="2861002"
^DD(2,.346,0)="D-CITY^FX^^.34;6^K:$L(X)>30!($L(X)<1) X I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.346,3)="Enter the city in which the designee resides [1-30 characters]."
^DD(2,.346,20,0)="^.3LA^1^1"
^DD(2,.346,20,1,0)="D1"
^DD(2,.346,21,0)="^^3^3^2861007^"
^DD(2,.346,21,1,0)="If a designee is specified enter the city in which that person"
^DD(2,.346,21,2,0)="resides [1-30 characters], otherwise nothing may be entered."
^DD(2,.346,21,3,0)="This field cannot be deleted as long as a designee is on file."
^DD(2,.346,"DEL",1,0)="S DFN=DA D DD^DGLOCK2 I '$D(X)"
^DD(2,.346,"DT")="2861002"
^DD(2,.347,0)="D-STATE^P5'X^DIC(5,^.34;7^I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.347,3)="Select from the listing the state in which the designee resides."
^DD(2,.347,20,0)="^.3LA^1^1"
^DD(2,.347,20,1,0)="D1"
^DD(2,.347,21,0)="^^3^3^2861117^^"
^DD(2,.347,21,1,0)="If a designee is specified select from the available listing"
^DD(2,.347,21,2,0)="the state in which that person resides.  This field cannot"
^DD(2,.347,21,3,0)="be deleted as long as a designee is on file."
^DD(2,.347,"DEL",1,0)="S DFN=DA D DD^DGLOCK2 I '$D(X)"
^DD(2,.347,"DT")="2861002"
^DD(2,.348,0)="D-ZIP CODE^FX^^.34;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.348,.1)=""
^DD(2,.348,1,0)="^.1"
^DD(2,.348,1,1,0)="2^AD1ZIP^MUMPS"
^DD(2,.348,1,1,1)="D SET^DGREGDD1(DA,.2202,.22,2,X)"
^DD(2,.348,1,1,2)="D KILL^DGREGDD1(DA,.2202,.22,2,X)"
^DD(2,.348,1,1,"%D",0)="^^2^2^2930603^^"
^DD(2,.348,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2,.348,1,1,"%D",2,0)="value."
^DD(2,.348,1,1,"DT")="2930603"
^DD(2,.348,3)="Enter the zip code as five numerics of the designee's address."
^DD(2,.348,20,0)="^.3LA^1^1"
^DD(2,.348,20,1,0)="D1"
^DD(2,.348,21,0)="^^4^4^2930603^^"
^DD(2,.348,21,1,0)="If a designee is specified enter the zip code for the city in"
^DD(2,.348,21,2,0)="which s/he resides [5 numerics], otherwise nothing may be"
^DD(2,.348,21,3,0)="entered.  This field cannot be deleted as long as a designee"
^DD(2,.348,21,4,0)="is on file."
^DD(2,.348,23,0)="^^2^2^2930603^"
^DD(2,.348,23,1,0)=" "
^DD(2,.348,23,2,0)=" "
^DD(2,.348,"DEL",1,0)="S DFN=DA D DD^DGLOCK2 I '$D(X)"
^DD(2,.348,"DT")="2930603"
^DD(2,.349,0)="D-PHONE NUMBER^FX^^.34;9^K:$L(X)>20!($L(X)<3) X I $D(X) S DFN=DA D D^DGLOCK2"
^DD(2,.349,.1)="PHONE NUMBER OF PERSONAL POSSESSION DESIGNEE"
^DD(2,.349,3)="Enter the phone number of the designee [3-20 characters]."
^DD(2,.349,20,0)="^.3LA^1^1"
^DD(2,.349,20,1,0)="D1"
^DD(2,.349,21,0)="^^4^4^2861007^"
^DD(2,.349,21,1,0)="If a designee is specified enter the telephone number at which"
^DD(2,.349,21,2,0)="that person may be reached [3-20 characters], otherwise nothing"
^DD(2,.349,21,3,0)="may be entered.  This field cannot be deleted as long as a"
^DD(2,.349,21,4,0)="designee is on file."
^DD(2,.349,"DT")="2861002"
^DD(2,.351,0)="DATE OF DEATH^DXa^^.35;1^S %DT=""EPT"" D ^%DT S X=Y K:Y<1 X I $D(X) D H^DGUTL K:X>DGTIME X K DGTIME,DGDATE I $D(X),X<$P(^DPT(DA,0),""^"",3) K X"
^DD(2,.351,1,0)="^.1"
^DD(2,.351,1,1,0)="^^TRIGGER^2^.091"
^DD(2,.351,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(2,.351,1,1,1.1) X ^DD(2,.351,1,1,1.4)"
^DD(2,.351,1,1,1,9.2)="S X=DIU_""[PATIENT DIED ON "",Y(1)=X S X=DIV,Y(2)=X S X=4,Y(3)=X S X=5,X=$E(Y(2),Y(3),X) S Y=X,X=Y(1),X=X_Y_""/"",Y(4)=X S X=DIV,Y(5)=X S X=6,Y(6)=X S X=7"
^DD(2,.351,1,1,1.1)="S X=DIV X ^DD(2,.351,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y_""/"",Y(7)=X S X=DIV,Y(8)=X S X=2,Y(9)=X S X=3,X=$E(Y(8),Y(9),X) S Y=X,X=Y(7),X=X_Y_""]"""
^DD(2,.351,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.351,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(2,.351,1,1,2.1) X ^DD(2,.351,1,1,2.4)"
^DD(2,.351,1,1,2.1)="S X=DIV X ^DD(2,.351,1,1,59.2) S Y(8)=X S X=2,X=$P(Y(7),Y(8),X) S Y=X,X=Y(3),X=X_Y"
^DD(2,.351,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=2,DIG=.091 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.351,1,1,49.2)="S X=DIU_""[PATIENT DIED ON "",Y(1)=X S X=DIV,Y(2)=X S X=4,Y(3)=X S X=5,X=$E(Y(2),Y(3),X) S Y=X,X=Y(1),X=X_Y_""/"",Y(4)=X S X=DIV,Y(5)=X S X=6,Y(6)=X S X=7"
^DD(2,.351,1,1,59.2)="S X=DIU,Y(1)=X S X=""[PATIENT DIED"",Y(2)=X S X=1,X=$P(Y(1),Y(2),X),Y(3)=X,Y(4)=X S X=DIU,Y(5)=X S X=""PATIENT DIED"",Y(6)=X S X=2,X=$P(Y(5),Y(6),X),Y(7)=X S X=""]"""
^DD(2,.351,1,1,"%D",0)="^^3^3^2930723^^"
^DD(2,.351,1,1,"%D",1,0)="This appends into the REMARKS field a notation regarding the DATE OF "
^DD(2,.351,1,1,"%D",2,0)="DEATH.  If DATE OF DEATH is deleted, the notation will be stripped out"
^DD(2,.351,1,1,"%D",3,0)="of the REMARKS field."
^DD(2,.351,1,1,"CREATE VALUE")="REMARKS_""[PATIENT DIED ON ""_$E(DATE OF DEATH,4,5)_""/""_$E(DATE OF DEATH,6,7)_""/""_$E(DATE OF DEATH,2,3)_""]"""
^DD(2,.351,1,1,"DELETE VALUE")="$P(REMARKS,""[PATIENT DIED"",1)_$P($P(REMARKS,""PATIENT DIED"",2),""]"",2)"
^DD(2,.351,1,1,"DT")="2930601"
^DD(2,.351,1,1,"FIELD")="REMARKS"
^DD(2,.351,1,2,0)="^^TRIGGER^2^.352"
^DD(2,.351,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.35)):^(.35),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(2,.351,1,2,1.1) X ^DD(2,.351,1,2,1.4)"
^DD(2,.351,1,2,1.1)="S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^DD(2,.351,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.35)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.352 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.351,1,2,2)="Q"
^DD(2,.351,1,2,"CREATE VALUE")="S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^DD(2,.351,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.351,1,2,"FIELD")="DEATH ENTERED BY"
^DD(2,.351,1,3,0)="2^ADGDBUL^MUMPS"
^DD(2,.351,1,3,1)="D DSBULL^DGDEATH"
^DD(2,.351,1,3,2)="D DKBULL^DGDEATH"
^DD(2,.351,1,3,"DT")="3031008"
^DD(2,.351,1,4,0)="2^AEXP1"
^DD(2,.351,1,4,1)="S ^DPT(""AEXP1"",$E(X,1,30),DA)="""""
^DD(2,.351,1,4,2)="K ^DPT(""AEXP1"",$E(X,1,30),DA)"
^DD(2,.351,1,5,0)="2^AOERR^MUMPS"
^DD(2,.351,1,5,1)="D DEATH^DGOERNOT"
^DD(2,.351,1,5,2)="Q"
^DD(2,.351,1,5,"%D",0)="^^3^3^2910716^^^^"
^DD(2,.351,1,5,"%D",1,0)="     This cross-reference is used in conjunction with ORDER ENTRY/RESULTS"
^DD(2,.351,1,5,"%D",2,0)="REPORTING v2.09 or higher to send MAS OE/RR NOTIFICATIONS of"
^DD(2,.351,1,5,"%D",3,0)="DEATH to users who are on an OE/RR LIST for a patient."
^DD(2,.351,1,5,"DT")="2910715"
^DD(2,.351,1,6,0)="2^APSJD^MUMPS"
^DD(2,.351,1,6,1)="S XX=X,X=""PSJADT"" X ^%ZOSF(""TEST"") S X=XX K XX I  D END^PSJADT"
^DD(2,.351,1,6,2)="Q"
^DD(2,.351,1,6,3)="Cancels Inpatient Medication orders."
^DD(2,.351,1,6,"%D",0)="^^3^3^2930608^^^"
^DD(2,.351,1,6,"%D",1,0)="This is used by the Inpatient Medications package to cancel a patient's"
^DD(2,.351,1,6,"%D",2,0)="IV and Unit Dose orders whenever a date of death is entered for the"
^DD(2,.351,1,6,"%D",3,0)="patient."
^DD(2,.351,1,6,"DT")="2930608"
^DD(2,.351,1,7,0)="2^ARCDTH^MUMPS"
^DD(2,.351,1,7,1)="S RCX=X,X=""RCAMDTH"" X ^%ZOSF(""TEST"") S X=RCX K RCX I  D SET^RCAMDTH"
^DD(2,.351,1,7,2)="S RCX=X,X=""RCAMDTH"" X ^%ZOSF(""TEST"") S X=RCX K RCX I  D ERR^RCAMDTH"
^DD(2,.351,1,7,3)="ACCOUNTS RECEIVABLE DEATH NOTIFICATION"
^DD(2,.351,1,7,"%D",0)="^^3^3^2930722^^^^"
^DD(2,.351,1,7,"%D",1,0)="This cross-reference is used to notify the Accounts Receivable package (v4 or"
^DD(2,.351,1,7,"%D",2,0)="higher) of a patient's death so that the patient's account may be reviewed for"
^DD(2,.351,1,7,"%D",3,0)="appropriate action. "
^DD(2,.351,1,7,"DT")="2930609"
^DD(2,.351,1,8,0)="2^ADEP^MUMPS"
^DD(2,.351,1,8,1)="D SET^DGDEPINA"
^DD(2,.351,1,8,2)="D KILL^DGDEPINA"
^DD(2,.351,1,8,"%D",0)="^^1^1^2941114^"
^DD(2,.351,1,8,"%D",1,0)="This is used to updated the effective dates in file 408.12."
^DD(2,.351,1,8,"DT")="2941114"
^DD(2,.351,1,9,0)="2^AENR351^MUMPS"
^DD(2,.351,1,9,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.351,1,9,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.351,1,9,3)="DO NOT DELETE"
^DD(2,.351,1,9,"%D",0)="^^1^1^2970630^^^^"
^DD(2,.351,1,9,"%D",1,0)="Used to update the patient's enrollment."
^DD(2,.351,1,9,"DT")="2970630"
^DD(2,.351,1,10,0)="2^DG714^MUMPS"
^DD(2,.351,1,10,1)="D START^DGMTDELS(DA)"
^DD(2,.351,1,10,2)="Q"
^DD(2,.351,1,10,3)="Deletes last REQUIRED means test"
^DD(2,.351,1,10,"DT")="3060814"
^DD(2,.351,1,52,0)="2^APSOD^MUMPS"
^DD(2,.351,1,52,1)="I $$VERSION^XPDUTL(""PSO"")>6 D APSOD^PSOCAN3(DA)"
^DD(2,.351,1,52,2)="I $$VERSION^XPDUTL(""PSO"")>6 D APSOD^PSOAUTOC(DA)"
^DD(2,.351,1,52,3)="Discontinues Outpatient Medications."
^DD(2,.351,1,52,"%D",0)="^^3^3^2961122^^^^"
^DD(2,.351,1,52,"%D",1,0)="This xref is used to discontinue all active outpatient medications whenever"
^DD(2,.351,1,52,"%D",2,0)="a date of death is entered for the patient.  This xref is used with v7 of"
^DD(2,.351,1,52,"%D",3,0)="Outpatient Pharmacy (DBIA #1624)."
^DD(2,.351,1,52,"%D",4,0)="Kill logic updated with DG*5.3*455.  Mail message sent to pharmacy when date"
^DD(2,.351,1,52,"%D",5,0)="of death is deleted to holders of PSORPH key."
^DD(2,.351,1,52,"DT")="3020926"
^DD(2,.351,1,301,0)="2^IVM351^MUMPS"
^DD(2,.351,1,301,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.351,1,301,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T DPT^IVMPXFR S X=IVMX K IVMX"
^DD(2,.351,1,301,"%D",0)="^^5^5^2930605^"
^DD(2,.351,1,301,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(2,.351,1,301,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(2,.351,1,301,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(2,.351,1,301,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(2,.351,1,301,"DT")="2930605"
^DD(2,.351,1,991,0)="2^AVAFC351^MUMPS"
^DD(2,.351,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".351;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.351,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF="".351;"" D AVAFC^VAFCDD01(DA)"
^DD(2,.351,1,991,"%D",0)="^^15^15^2990204^^"
^DD(2,.351,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,.351,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,.351,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,.351,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,.351,1,991,"%D",5,0)=" "
^DD(2,.351,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,.351,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,.351,1,991,"%D",8,0)="process."
^DD(2,.351,1,991,"%D",9,0)=" "
^DD(2,.351,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,.351,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,.351,1,991,"%D",12,0)="  "
^DD(2,.351,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,.351,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,.351,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,.351,1,991,"DT")="2990204"
^DD(2,.351,1,992,0)="2^ADGRU351^MUMPS"
^DD(2,.351,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.351,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.351,1,992,"%D",0)="^^9^9^2990920^"
^DD(2,.351,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.351,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.351,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.351,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.351,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.351,1,992,"%D",6,0)="interface."
^DD(2,.351,1,992,"%D",7,0)=" "
^DD(2,.351,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.351,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.351,1,992,"DT")="2990920"
^DD(2,.351,3)="Enter the date this patient died.  Date must not be before date of birth."
^DD(2,.351,5,1,0)="405^.01^3"
^DD(2,.351,5,2,0)="405^.18^2"
^DD(2,.351,21,0)="^^1^1^2861022^"
^DD(2,.351,21,1,0)="Enter the date of this patient's expiration."
^DD(2,.351,"AUDIT")="y"
^DD(2,.351,"DT")="3060814"
^DD(2,.352,0)="DEATH ENTERED BY^P200'^VA(200,^.35;2^Q"
^DD(2,.352,3)="The name of the person who entered the date of death."
^DD(2,.352,5,1,0)="2^.351^2"
^DD(2,.352,9)="^"
^DD(2,.352,21,0)="^^4^4^2911214^"
^DD(2,.352,21,1,0)="This field records the date a patient's death was initially entered into"
^DD(2,.352,21,2,0)="the DHCP system.  This field is created automatically by the MAS module"
^DD(2,.352,21,3,0)="when a date of death is entered either through the 'Death Entry' option or"
^DD(2,.352,21,4,0)="through the 'Discharge a Patient' option."
^DD(2,.352,"DT")="2901006"
^DD(2,.353,0)="SOURCE OF NOTIFICATION^S^1:INPATIENT AT VAMC;2:NON-VA MEDICAL FACILITY;3:DEATH CERTIFICATE ON FILE;4:VBA;5:VA INSURANCE;6:SSA;7:NCA;8:NEXT OF KIN/FAMILY/FRIEND;9:OTHER;^.35;3^Q"
^DD(2,.353,1,0)="^.1^^0"
^DD(2,.353,1,1,0)="2^AENR353^MUMPS"
^DD(2,.353,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.353,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.353,1,1,3)=" DO NOT DELETE"
^DD(2,.353,1,1,"%D",0)="^.101^2^2^3050608^^^^"
^DD(2,.353,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.353,1,1,"%D",2,0)="enrollment."
^DD(2,.353,1,1,"DT")="3050608"
^DD(2,.353,3)="Select the first source of death that appears on the list that applies to this veteran."
^DD(2,.353,21,0)="^.001^3^3^3031023^^^^"
^DD(2,.353,21,1,0)=" "
^DD(2,.353,21,2,0)="This is a set of codes that represents who/what notified the VA of "
^DD(2,.353,21,3,0)="the Date of Death."
^DD(2,.353,"DT")="3031010"
^DD(2,.354,0)="DATE OF DEATH LAST UPDATED^D^^.35;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.354,1,0)="^.1"
^DD(2,.354,1,1,0)="2^AENR354^MUMPS"
^DD(2,.354,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.354,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.354,1,1,3)=" DO NOT DELETE"
^DD(2,.354,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.354,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.354,1,1,"%D",2,0)="enrollment."
^DD(2,.354,1,1,"DT")="3050606"
^DD(2,.354,21,0)="^^2^2^3030811^"
^DD(2,.354,21,1,0)="This is a date/time value that represents the date/time the date of death "
^DD(2,.354,21,2,0)="field (.351) was last modified/entered/deleted."
^DD(2,.354,"DT")="3030715"
^DD(2,.355,0)="LAST EDITED BY^P200'^VA(200,^.35;5^Q"
^DD(2,.355,21,0)="^^2^2^3030811^"
^DD(2,.355,21,1,0)="This is the local user ID of the person that last made a modification to "
^DD(2,.355,21,2,0)="the date of death (.351) field."
^DD(2,.355,"DT")="3030718"
^DD(2,.3601,0)="COLLATERAL SPONSOR'S NAME^R*P2'^DPT(^.36;11^S DIC(""S"")=""I $D(^DPT(+Y,""""VET"""")),^(""""VET"""")=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,.3601,1,0)="^.1"
^DD(2,.3601,1,1,0)="2^ACOL^MUMPS"
^DD(2,.3601,1,1,1)="S ^DPT(""ACOL"",+X,DA)="""""
^DD(2,.3601,1,1,2)="K ^DPT(""ACOL"",+X,DA)"
^DD(2,.3601,12)="Sponsor must be a veteran."
^DD(2,.3601,12.1)="S DIC(""S"")=""I $D(^DPT(+Y,""""VET"""")),^(""""VET"""")=""""Y"""""""
^DD(2,.3601,21,0)="^^5^5^2911224^^^"
^DD(2,.3601,21,1,0)="If this patient is a collateral responsible for picking up medications"
^DD(2,.3601,21,2,0)="or information regarding another patient, that patient's name should be "
^DD(2,.3601,21,3,0)="entered here."
^DD(2,.3601,21,4,0)=" "
^DD(2,.3601,21,5,0)="This sponsor must be a veteran and must exist in the patient file."
^DD(2,.3601,"DT")="2870505"
^DD(2,.3602,0)="MILITARY DISABILITY RETIREMENT^SX^1:YES;0:NO;^.36;12^S DFN=DA D EV2^DGLOCK"
^DD(2,.3602,1,0)="^.1"
^DD(2,.3602,1,1,0)="2^AV^MUMPS"
^DD(2,.3602,1,1,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.3602,1,1,2)="Q"
^DD(2,.3602,1,1,"DT")="3050708"
^DD(2,.3602,1,2,0)="2^AENR3602^MUMPS"
^DD(2,.3602,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.3602,1,2,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.3602,1,2,3)="DO NOT DELETE"
^DD(2,.3602,1,2,"%D",0)="^^2^2^3050829^"
^DD(2,.3602,1,2,"%D",1,0)="This cross-reference will be used to update the patient's current Patient"
^DD(2,.3602,1,2,"%D",2,0)="Enrollment Record."
^DD(2,.3602,1,2,"DT")="3050829"
^DD(2,.3602,3)="Answer Yes if the Veteran receives disability pay in lieu of VA Compensation."
^DD(2,.3602,4)="D HLP3602^DGRPU"
^DD(2,.3602,23,0)="^.001^2^2^3050922^^"
^DD(2,.3602,23,1,0)="This field will replace Disability Discharge from the Military (field "
^DD(2,.3602,23,2,0)="#.362)."
^DD(2,.3602,"DT")="3050829"
^DD(2,.3603,0)="DISCHARGE DUE TO DISABILITY^SX^1:YES;0:NO;^.36;13^S DFN=DA D EV2^DGLOCK"
^DD(2,.3603,1,0)="^.1"
^DD(2,.3603,1,1,0)="2^AU^MUMPS"
^DD(2,.3603,1,1,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.3603,1,1,2)="Q"
^DD(2,.3603,1,1,"DT")="3050708"
^DD(2,.3603,1,2,0)="2^AENR3603^MUMPS"
^DD(2,.3603,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.3603,1,2,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.3603,1,2,3)="DO NOT DELETE"
^DD(2,.3603,1,2,"%D",0)="^.101^2^2^3050829^^^^"
^DD(2,.3603,1,2,"%D",1,0)="This cross-reference will be used to update the patient's current "
^DD(2,.3603,1,2,"%D",2,0)="Patient Enrollment record."
^DD(2,.3603,1,2,"DT")="3050816"
^DD(2,.3603,3)="Was the Veteran discharged due to a disability incurred in the Line of Duty?"
^DD(2,.3603,4)="D HLP3603^DGRPU"
^DD(2,.3603,"DT")="3050816"
^DD(2,.361,0)="PRIMARY ELIGIBILITY CODE^*P8'Xa^DIC(8,^.36;1^S DFN=DA D EV^DGLOCK I $D(X) D ECD^DGLOCK1"
^DD(2,.361,.1)=""
^DD(2,.361,1,0)="^.1^^-1"
^DD(2,.361,1,1,0)="2^AG^MUMPS"
^DD(2,.361,1,1,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.361,1,1,2)="Q"
^DD(2,.361,1,1,"DT")="2920720"
^DD(2,.361,1,2,0)="^^TRIGGER^2.0361^.01"
^DD(2,.361,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,89.4) S Y(102)=$S($D(^DPT(D0,""E"",D1,0)):^(0),1:"""") S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(2,.361,1,2,1.4)"
^DD(2,.361,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),""E"",DIV(1),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=2.0361,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.361,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(2,.361,1,2,2.2) I DIV(1)>0 S DIK(0)=DA,DIK=""^DPT(DIV(0),""""E"""","",DA(1)=DIV(0),DA=DIV(1) D ^DIK S DA=DIK(0) K DIK"
^DD(2,.361,1,2,2.2)="X ^DD(2,.361,1,2,99.3) S X=$S('$D(^DIC(8,+$P(Y(102),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^DD(2,.361,1,2,3)="This trigger stuffs the ELIGIBILITY CODE into the PATIENT'S ELIGIBILITIES multiple."
^DD(2,.361,1,2,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),Y(2)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=""`"",Y(1)=X S X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X"
^DD(2,.361,1,2,89.3)="X ^DD(2,.361,1,2,89.2) S X=X_Y,X=X S X=X"
^DD(2,.361,1,2,89.4)="X ^DD(2,.361,1,2,89.3) K DIC S Y=-1,DIC=""^DPT(D0,""""E"""","",DIC(0)=""NMFL"",DIC(""P"")=""2.0361P"",DIU(1)=$S($D(DA(1)):DA(1),1:0),DA(1)=D0 D ^DIC:D0>0 S (D,D1,DIV(1))=+Y,DA(1)=DIU(1)"
^DD(2,.361,1,2,99.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),Y(2)=DIV S X=""`"",Y(1)=X S X=$P(Y(2),U,1),X=X S Y=X,X=Y(1),X=X S X=X"
^DD(2,.361,1,2,99.3)="X ^DD(2,.361,1,2,99.2) S X=X_Y K DIC S Y=-1,DIC=""^DPT(D0,""""E"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1,DIV(1))=+Y S Y(102)=$S($D(^DPT(D0,""E"",D1,0)):^(0),1:"""")"
^DD(2,.361,1,2,"CREATE VALUE")="INTERNAL(ELIGIBILITY CODE)"
^DD(2,.361,1,2,"DELETE VALUE")="@"
^DD(2,.361,1,2,"DIC")="LOOKUP"
^DD(2,.361,1,2,"DIK")="DELETE"
^DD(2,.361,1,2,"FIELD")="""`""_INTERNAL(ELIGIBILITY CODE):#361:#.01"
^DD(2,.361,1,3,0)="2^AXR28^MUMPS"
^DD(2,.361,1,3,1)="Q"
^DD(2,.361,1,3,2)="I $S('$D(^DIC(8,+X,0)):0,$P(^(0),""^"",1)[""DOM"":0,'$D(^DPT(DA,.36)):1,'$D(^DIC(8,+^(.36),0)):1,$P(^(0),""^"",1)'[""DOM"":1,1:0) S DGXRF=.361 D ^DGDDC Q"
^DD(2,.361,1,3,"%D",0)="^^8^8^2920429^"
^DD(2,.361,1,3,"%D",1,0)="When the eligibility code is changed, this cross-reference removes the"
^DD(2,.361,1,3,"%D",2,0)="data in the ELIGIBILITY STATUS field.  This only occurs if neither the"
^DD(2,.361,1,3,"%D",3,0)="original eligibility code nor the new eligibility code (the one being"
^DD(2,.361,1,3,"%D",4,0)="entered) is DOM. PATIENT.  If either is DOM. PATIENT, no update occurs."
^DD(2,.361,1,3,"%D",5,0)=" "
^DD(2,.361,1,3,"%D",6,0)="Since the DOM. PATIENT eligibility is being inactivated with MAS 5.2,"
^DD(2,.361,1,3,"%D",7,0)="the conditional on this cross-reference will be removed in a future "
^DD(2,.361,1,3,"%D",8,0)="version of MAS."
^DD(2,.361,1,3,"DT")="2920429"
^DD(2,.361,1,4,0)="2^AEL^MUMPS"
^DD(2,.361,1,4,1)="S ^DPT(""AEL"",DA,+X)="""""
^DD(2,.361,1,4,2)="K ^DPT(""AEL"",DA,+X)"
^DD(2,.361,1,5,0)="2^AENR361^MUMPS"
^DD(2,.361,1,5,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.361,1,5,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.361,1,5,3)="DO NOT DELETE"
^DD(2,.361,1,5,"%D",0)="^^2^2^2970715^^"
^DD(2,.361,1,5,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.361,1,5,"%D",2,0)="record."
^DD(2,.361,1,5,"DT")="2970715"
^DD(2,.361,3)="Select from the available list the eligibility code which best defines this applicant's primary entitlement to care.  For more detailed information, enter ??."
^DD(2,.361,12)="Applicable code based on veteran or non-veteran status."
^DD(2,.361,12.1)="S DFN=DA D ECD^DGLOCK1"
^DD(2,.361,20,0)="^.3LA^1^1"
^DD(2,.361,20,1,0)="ECD"
^DD(2,.361,21,0)="^.001^45^45^3060321^^^^"
^DD(2,.361,21,1,0)="Select from the available listing the appropriate eligibility code for"
^DD(2,.361,21,2,0)="this applicant.  For non-veteran applicants a wide variety of choices"
^DD(2,.361,21,3,0)="are available.  For veteran applicants the choices are screened [in the"
^DD(2,.361,21,4,0)="following order] dependent on the responses to other prompts:"
^DD(2,.361,21,5,0)="   "
^DD(2,.361,21,6,0)="1.  If the SERVICE CONNECTED prompt (field .301) is answered YES"
^DD(2,.361,21,7,0)="    only the following two choices are available:"
^DD(2,.361,21,8,0)="    "
^DD(2,.361,21,9,0)="    a.  If the SERVICE CONNECTED PERCENTAGE prompt (field .302) entered"
^DD(2,.361,21,10,0)="        is 50% or greater 'SERVICE CONNECTED 50% TO 100%' can be"
^DD(2,.361,21,11,0)="        selected."
^DD(2,.361,21,12,0)="   "
^DD(2,.361,21,13,0)="    b.  Otherwise, the percentage is assumed to be less than 50% and"
^DD(2,.361,21,14,0)="        only 'SC, LESS THAN 50%' may be entered."
^DD(2,.361,21,15,0)="   "
^DD(2,.361,21,16,0)="2.  If the response to the WERE YOU A PRISONER OF WAR field (# .525)"
^DD(2,.361,21,17,0)="    is YES and the veteran is not service connected, you must select "
^DD(2,.361,21,18,0)="    PRISONER OF WAR as the eligibility code."
^DD(2,.361,21,19,0)="   "
^DD(2,.361,21,20,0)="3.  If the response to the CURRENT PH INDICATOR field (#.531) "
^DD(2,.361,21,21,0)="    is YES and the veteran is not service connected and is not a Prisoner"
^DD(2,.361,21,22,0)="    of War, you must select PURPLE HEART RECIPIENT as the eligibility code."
^DD(2,.361,21,23,0)=" "
^DD(2,.361,21,24,0)="4.  If the veteran is receiving VA benefits, but does not meet the"
^DD(2,.361,21,25,0)="    criteria in items 1 and 2 above, then the following choices may"
^DD(2,.361,21,26,0)="    be presented for selection:"
^DD(2,.361,21,27,0)=" "
^DD(2,.361,21,28,0)="    If RECEIVING A&A BENEFITS is answered YES, the eligibility code"
^DD(2,.361,21,29,0)="    AID & ATTENDANCE may be selected."
^DD(2,.361,21,30,0)=" "
^DD(2,.361,21,31,0)="    If the RECEIVING HOUSEBOUND BENEFITS is answered YES ,the eligibility"
^DD(2,.361,21,32,0)="    code HOUSEBOUND may be selected."
^DD(2,.361,21,33,0)=" "
^DD(2,.361,21,34,0)="    If the above two prompts were answered NO, but the RECEIVING A VA"
^DD(2,.361,21,35,0)="    PENSION prompt was answered YES, only the NSC, VA PENSION prompt"
^DD(2,.361,21,36,0)="    may be selected."
^DD(2,.361,21,37,0)=" "
^DD(2,.361,21,38,0)="5.  If none of the above pertain to this veteran, then the NSC eligibility"
^DD(2,.361,21,39,0)="    will be available for selection."
^DD(2,.361,21,40,0)=" "
^DD(2,.361,21,41,0)="**  Dependent on the birthdate of the applicant, the following two"
^DD(2,.361,21,42,0)="    eligibility codes may be displayed along with those shown in items"
^DD(2,.361,21,43,0)="    3 through 5 above:  WORLD WAR I and MEXICAN BORDER WAR.  These would"
^DD(2,.361,21,44,0)="    display for veterans not meeting the criteria in items 1 and 2, but"
^DD(2,.361,21,45,0)="    whose date of birth is prior to 1907."
^DD(2,.361,"AUDIT")="y"
^DD(2,.361,"DEL",1,0)="S DFN=DA D EV^DGLOCK I '$D(X)"
^DD(2,.361,"DT")="3060321"
^DD(2,.3611,0)="ELIGIBILITY STATUS^SX^P:PENDING VERIFICATION;R:PENDING RE-VERIFICATION;V:VERIFIED;^.361;1^D EK^DGLOCK Q:'$D(X)"
^DD(2,.3611,.1)="ELIG STATUS"
^DD(2,.3611,1,0)="^.1"
^DD(2,.3611,1,1,0)="^^TRIGGER^2^.3616"
^DD(2,.3611,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(2,.3611,1,1,1.1) X ^DD(2,.3611,1,1,1.4)"
^DD(2,.3611,1,1,1.1)="S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^DD(2,.3611,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""VERIFIED"""
^DD(2,.3611,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.3611,1,1,2)="Q"
^DD(2,.3611,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.3611,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59),1)'=""VERIFIED"""
^DD(2,.3611,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.361)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.3611,1,1,"CREATE CONDITION")="ELIG STATUS=""VERIFIED"""
^DD(2,.3611,1,1,"CREATE VALUE")="S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^DD(2,.3611,1,1,"DELETE CONDITION")="ELIG STATUS'=""VERIFIED"""
^DD(2,.3611,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.3611,1,1,"FIELD")="ELIGIBILITY STATUS ENTERED BY"
^DD(2,.3611,1,2,0)="^^TRIGGER^2^.3612"
^DD(2,.3611,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(2,.3611,1,2,1.4)"
^DD(2,.3611,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.361)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3612 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.3611,1,2,2)="Q"
^DD(2,.3611,1,2,"CREATE VALUE")="TODAY"
^DD(2,.3611,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.3611,1,2,"FIELD")="ELIGIBILITY STATUS DATE"
^DD(2,.3611,1,3,0)="2^AENR3611^MUMPS"
^DD(2,.3611,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3611,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3611,1,3,3)=" DO NOT DELETE"
^DD(2,.3611,1,3,"%D",0)="^.101^2^2^3060918^^^^"
^DD(2,.3611,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3611,1,3,"%D",2,0)="enrollment."
^DD(2,.3611,1,3,"DT")="3050606"
^DD(2,.3611,3)="Select the status of this patient's eligibility."
^DD(2,.3611,5,1,0)="2^.361^3"
^DD(2,.3611,20,0)="^.3LA^1^1"
^DD(2,.3611,20,1,0)="ECD"
^DD(2,.3611,21,0)="^^3^3^2861117^^"
^DD(2,.3611,21,1,0)="Select from the available listing the appropriate eligibility status"
^DD(2,.3611,21,2,0)="for this applicant.  Only users who hold the designated security key"
^DD(2,.3611,21,3,0)="may enter/edit this field."
^DD(2,.3611,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.3611,"DT")="2880925"
^DD(2,.3612,0)="ELIGIBILITY STATUS DATE^DX^^.361;2^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK"
^DD(2,.3612,.1)="ELIG STATUS DATE"
^DD(2,.3612,1,0)="^.1"
^DD(2,.3612,1,1,0)="^^TRIGGER^2^.3616"
^DD(2,.3612,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.361)):^(.361),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"""") X ^DD(2,.3612,1,1,1.4)"
^DD(2,.3612,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.361)):^(.361),1:""""),DIV=X S $P(^(.361),U,6)=DIV,DIH=2,DIG=.3616 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.3612,1,1,2)="Q"
^DD(2,.3612,1,1,"%D",0)="^^3^3^2911106^"
^DD(2,.3612,1,1,"%D",1,0)="When the ELIGIBILITY STATUS DATE is updated through any option, the user"
^DD(2,.3612,1,1,"%D",2,0)="entering the new date will be automatically put into the ELIGIBILITY"
^DD(2,.3612,1,1,"%D",3,0)="STATUS ENTERED BY field (field .3616)."
^DD(2,.3612,1,1,"CREATE VALUE")="S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^DD(2,.3612,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.3612,1,1,"FIELD")="ELIGIBILITY STATUS ENTER"
^DD(2,.3612,1,2,0)="2^AENR3612^MUMPS"
^DD(2,.3612,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3612,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3612,1,2,3)=" DO NOT DELETE"
^DD(2,.3612,1,2,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.3612,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3612,1,2,"%D",2,0)="enrollment."
^DD(2,.3612,1,2,"DT")="3050606"
^DD(2,.3612,3)="Enter the date the current eligibility status was determined."
^DD(2,.3612,5,1,0)="2^.3611^2"
^DD(2,.3612,20,0)="^.3LA^1^1"
^DD(2,.3612,20,1,0)="ECD"
^DD(2,.3612,21,0)="^^3^3^2861117^^^^"
^DD(2,.3612,21,1,0)="Enter the effective date of the eligibility status (ELIG STATUS"
^DD(2,.3612,21,2,0)="prompt).  Only users who hold the designated security key may"
^DD(2,.3612,21,3,0)="enter/edit this field."
^DD(2,.3612,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.3612,"DT")="3010107"
^DD(2,.3613,0)="ELIGIBILITY VERIF. SOURCE^S^H:HEC;V:VISTA;^.361;3^Q"
^DD(2,.3613,.1)="ELIG VERIF SOURCE"
^DD(2,.3613,3)="The entity verifying the eligibility of the patient."
^DD(2,.3613,21,0)="^^2^2^3001115^"
^DD(2,.3613,21,1,0)="This field is used to restrict site ability to edit certain data elements when"
^DD(2,.3613,21,2,0)="HEC has verified eligibility data."
^DD(2,.3613,"DT")="3001115"
^DD(2,.3614,0)="ELIGIBILITY INTERIM RESPONSE^DX^^.361;4^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D EK^DGLOCK"
^DD(2,.3614,.1)="ELIG INTERIM RESPONSE"
^DD(2,.3614,3)="Enter the response concerning this aplicant's eligibility status."
^DD(2,.3614,20,0)="^.3LA^1^1"
^DD(2,.3614,20,1,0)="ECD"
^DD(2,.3614,21,0)="^^3^3^2861006^"
^DD(2,.3614,21,1,0)="If an interim response has been received concerning this applicant's"
^DD(2,.3614,21,2,0)="eligibility status enter the date received.  Only users who hold the"
^DD(2,.3614,21,3,0)="designated security key may enter/edit this field."
^DD(2,.3614,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.3614,"DT")="2900418"
^DD(2,.3615,0)="ELIGIBILITY VERIF. METHOD^FX^^.361;5^K:$L(X)>50!($L(X)<2) X I $D(X) D EK^DGLOCK"
^DD(2,.3615,.1)="VERIFICATION METHOD"
^DD(2,.3615,1,0)="^.1"
^DD(2,.3615,1,1,0)="2^AENR3615^MUMPS"
^DD(2,.3615,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3615,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3615,1,1,3)=" DO NOT DELETE"
^DD(2,.3615,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.3615,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3615,1,1,"%D",2,0)="enrollment."
^DD(2,.3615,1,1,"DT")="3050606"
^DD(2,.3615,3)="Enter the method by which this patient's eligibility was verified [2-50 characters]."
^DD(2,.3615,20,0)="^.3LA^1^1"
^DD(2,.3615,20,1,0)="ECD"
^DD(2,.3615,21,0)="^^3^3^2861006^"
^DD(2,.3615,21,1,0)="Enter the method in which the eligibility for this applicant was verified"
^DD(2,.3615,21,2,0)="[between 2-50 characters].  Only users who hold the designated security"
^DD(2,.3615,21,3,0)="key may enter/edit this field."
^DD(2,.3615,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2,.3615,"DT")="3010107"
^DD(2,.3616,0)="ELIGIBILITY STATUS ENTERED BY^P200'^VA(200,^.361;6^Q"
^DD(2,.3616,.1)="WHO ENTERED ELIGIBILITY STATUS"
^DD(2,.3616,3)="The name of the user who certified this patient's current eligibility status."
^DD(2,.3616,5,1,0)="2^.3611^1"
^DD(2,.3616,5,2,0)="2^.3612^1"
^DD(2,.3616,9)="^"
^DD(2,.3616,20,0)="^.3LA^1^1"
^DD(2,.3616,20,1,0)="ECD"
^DD(2,.3616,21,0)="^^2^2^2861022^"
^DD(2,.3616,21,1,0)="When eligibility is verified (ELIG STATUS=""VERIFIED"") the name of the"
^DD(2,.3616,21,2,0)="user who certified the verification."
^DD(2,.3616,"DT")="2901006"
^DD(2,.3617,0)="USER ENROLLEE VALID THROUGH^DX^^.361;7^S %DT=""E"" D ^%DT S X=$E(Y,1,3)_""0000"" K:Y<1 X"
^DD(2,.3617,1,0)="^.1"
^DD(2,.3617,1,1,0)="2^AENR3617^MUMPS"
^DD(2,.3617,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3617,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3617,1,1,3)=" DO NOT DELETE"
^DD(2,.3617,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.3617,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3617,1,1,"%D",2,0)="enrollment."
^DD(2,.3617,1,1,"DT")="3050606"
^DD(2,.3617,3)="Enter valid Fiscal Year"
^DD(2,.3617,21,0)="^.001^3^3^3030313^^"
^DD(2,.3617,21,1,0)="This field contains the Fiscal Year that the veteran's User Enrollee "
^DD(2,.3617,21,2,0)="Status is valid through. This field is populated by the system, no user "
^DD(2,.3617,21,3,0)="input is required."
^DD(2,.3617,"DT")="3030313"
^DD(2,.3618,0)="USER ENROLLEE SITE^P4'^DIC(4,^.361;8^Q"
^DD(2,.3618,1,0)="^.1"
^DD(2,.3618,1,1,0)="2^AENR3618^MUMPS"
^DD(2,.3618,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3618,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3618,1,1,3)=" DO NOT DELETE"
^DD(2,.3618,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.3618,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3618,1,1,"%D",2,0)="enrollment."
^DD(2,.3618,1,1,"DT")="3050606"
^DD(2,.3618,3)="Enter Valid Site"
^DD(2,.3618,21,0)="^^3^3^3030225^"
^DD(2,.3618,21,1,0)="This field contains the Site that determined the User Enrollee "
^DD(2,.3618,21,2,0)="information for the Veteran. This field is populated by the system, no "
^DD(2,.3618,21,3,0)="user input is required."
^DD(2,.3618,"DT")="3030225"
^DD(2,.362,0)="DISABILITY RET. FROM MILITARY?^RSX^0:NO;1:YES, RECEIVING MILITARY RETIREMENT;2:YES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA COMPENSATION;3:UNKNOWN;^.36;2^S DFN=DA D SV^DGLOCK"
^DD(2,.362,.1)="MILT RET DUE TO DISABILITY?"
^DD(2,.362,1,0)="^.1"
^DD(2,.362,1,1,0)="2^AH^MUMPS"
^DD(2,.362,1,1,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.362,1,1,2)="Q"
^DD(2,.362,1,1,"DT")="2920929"
^DD(2,.362,1,2,0)="2^AENR362^MUMPS"
^DD(2,.362,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.362,1,2,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.362,1,2,3)="DO NOT DELETE"
^DD(2,.362,1,2,"%D",0)="^.101^2^2^3041115^^^"
^DD(2,.362,1,2,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.362,1,2,"%D",2,0)="record."
^DD(2,.362,1,2,"DT")="2970630"
^DD(2,.362,3)="Was this patient retired from the U.S. Armed forces due to an disability incurred while serving?"
^DD(2,.362,4)="D HLPMLDS^DGRPU"
^DD(2,.362,20,0)="^.3LA^1^1"
^DD(2,.362,20,1,0)="SVC"
^DD(2,.362,"DT")="3040420"
^DD(2,.36205,0)="RECEIVING A&A BENEFITS?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;12^S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK"
^DD(2,.36205,.1)="ARE YOU IN RECEIPT OF A&A?"
^DD(2,.36205,1,0)="^.1"
^DD(2,.36205,1,1,0)="^^TRIGGER^2^.3621"
^DD(2,.36205,1,1,1)="X ^DD(2,.36205,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,.36205,1,1,1.4)"
^DD(2,.36205,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36205,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.36205,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.362)=DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3621 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36205,1,1,2)="X ^DD(2,.36205,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,.36205,1,1,2.4)"
^DD(2,.36205,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36205,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,12)_"":"",2),$C(59),1)="""""
^DD(2,.36205,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.362)=DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3621 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36205,1,1,"CREATE CONDITION")="#.36205=""NO"""
^DD(2,.36205,1,1,"CREATE VALUE")="@"
^DD(2,.36205,1,1,"DELETE CONDITION")="#.36205="""""
^DD(2,.36205,1,1,"DELETE VALUE")="@"
^DD(2,.36205,1,1,"FIELD")="#.3621"
^DD(2,.36205,1,2,0)="2^AJ^MUMPS"
^DD(2,.36205,1,2,1)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.36205,1,2,2)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.36205,1,2,"%D",0)="^^3^3^2930312^^^^"
^DD(2,.36205,1,2,"%D",1,0)="This cross reference acts like a trigger.  It 'triggers' the status field"
^DD(2,.36205,1,2,"%D",2,0)="in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It"
^DD(2,.36205,1,2,"%D",3,0)="will update the field to 'NO LONGER APPLICABLE' if appropriate."
^DD(2,.36205,1,2,"DT")="2930119"
^DD(2,.36205,1,3,0)="^^TRIGGER^2^.36295"
^DD(2,.36205,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.36205,1,3,1.4)"
^DD(2,.36205,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.36205,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.36205,1,3,2.4)"
^DD(2,.36205,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.36205,1,3,"CREATE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.36205,1,3,"CREATE VALUE")="@"
^DD(2,.36205,1,3,"DELETE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.36205,1,3,"DELETE VALUE")="@"
^DD(2,.36205,1,3,"DT")="2970327"
^DD(2,.36205,1,3,"FIELD")="#.36295"
^DD(2,.36205,1,4,0)="2^AENR36205^MUMPS"
^DD(2,.36205,1,4,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36205,1,4,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36205,1,4,3)="DO NOT DELETE"
^DD(2,.36205,1,4,"%D",0)="^^2^2^2970630^^"
^DD(2,.36205,1,4,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.36205,1,4,"%D",2,0)="record."
^DD(2,.36205,1,4,"DT")="2970630"
^DD(2,.36205,3)="Is this applicant receiving Aid and Attendance benefits?"
^DD(2,.36205,20,0)="^.3LA^1^1"
^DD(2,.36205,20,1,0)="MB"
^DD(2,.36205,21,0)="^^3^3^2970715^^^"
^DD(2,.36205,21,1,0)="For this veteran applicant enter 'Y' if s/he is on A&A, 'N' if not, or"
^DD(2,.36205,21,2,0)="'U' if unknown.  Once monetary benefits have been verified only users"
^DD(2,.36205,21,3,0)="who hold the designated security key may enter/edit this field."
^DD(2,.36205,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.36205,"DT")="2970715"
^DD(2,.3621,0)="AMOUNT OF AID & ATTENDANCE^NJ10,2X^^.362;1^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,12)'=""Y"" W !?4,""Receipt of A&A Benefits not indicated."" K X"
^DD(2,.3621,.1)="A&A AMOUNT"
^DD(2,.3621,3)="If this applicant is in receipt of A&A benefits enter the dollar amount received per year."
^DD(2,.3621,5,1,0)="2^.36205^1"
^DD(2,.3621,9.2)="I $D(^DPT(DA,.362)),$P(^(.362),U,12)=""Y"" W !?4,*7,""Delete by answering 'ARE YOU IN RECEIPT OF A&A' prompt NO."" K X"
^DD(2,.3621,20,0)="^.3LA^1^1"
^DD(2,.3621,20,1,0)="MB"
^DD(2,.3621,21,0)="^^9^9^2930312^^^^"
^DD(2,.3621,21,1,0)="For this veteran applicant who is receiving A&A benefits (ARE YOU IN"
^DD(2,.3621,21,2,0)="RECEIPT OF A&A prompt must be answered YES) enter the amount received"
^DD(2,.3621,21,3,0)="[numeric 0-99999].  Once monetary benefits are verified only users who"
^DD(2,.3621,21,4,0)="hold the designated security key may enter/edit this field.  Any dollar"
^DD(2,.3621,21,5,0)="amount on file cannot be deleted as long as receipt of A&A benefits"
^DD(2,.3621,21,6,0)="is indicated."
^DD(2,.3621,21,7,0)="  "
^DD(2,.3621,21,8,0)="f you wish to enter a monthly amount either preceed or follow the dollar"
^DD(2,.3621,21,9,0)="figure with an asterisk and I'll multiply it out for you."
^DD(2,.3621,"DEL",1,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.3621,9.2):$D(X) I '$D(X)"
^DD(2,.3621,"DT")="2880923"
^DD(2,.36215,0)="RECEIVING HOUSEBOUND BENEFITS?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;13^S DFN=DA D MV^DGLOCK I $D(X) S DFN=DA D EV^DGLOCK"
^DD(2,.36215,.1)="IN RECEIPT OF HB BENEFITS?"
^DD(2,.36215,1,0)="^.1"
^DD(2,.36215,1,1,0)="^^TRIGGER^2^.3622"
^DD(2,.36215,1,1,1)="X ^DD(2,.36215,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(2,.36215,1,1,1.4)"
^DD(2,.36215,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36215,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.36215,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.362)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3622 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36215,1,1,2)="X ^DD(2,.36215,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(2,.36215,1,1,2.4)"
^DD(2,.36215,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36215,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,13)_"":"",2),$C(59),1)="""""
^DD(2,.36215,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(.362)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3622 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36215,1,1,"CREATE CONDITION")="#.36215=""NO"""
^DD(2,.36215,1,1,"CREATE VALUE")="@"
^DD(2,.36215,1,1,"DELETE CONDITION")="#.36215="""""
^DD(2,.36215,1,1,"DELETE VALUE")="@"
^DD(2,.36215,1,1,"FIELD")="#.3622"
^DD(2,.36215,1,2,0)="2^AL^MUMPS"
^DD(2,.36215,1,2,1)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.36215,1,2,2)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.36215,1,2,"%D",0)="^^3^3^2930119^^^"
^DD(2,.36215,1,2,"%D",1,0)="This cross reference acts like a trigger.  It 'triggers' the status field"
^DD(2,.36215,1,2,"%D",2,0)="in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It"
^DD(2,.36215,1,2,"%D",3,0)="will update the field to 'NO LONGER APPLICABLE' if appropriate."
^DD(2,.36215,1,2,"DT")="2930119"
^DD(2,.36215,1,3,0)="^^TRIGGER^2^.36295"
^DD(2,.36215,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.36215,1,3,1.4)"
^DD(2,.36215,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.36215,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.36215,1,3,2.4)"
^DD(2,.36215,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.36215,1,3,"CREATE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.36215,1,3,"CREATE VALUE")="@"
^DD(2,.36215,1,3,"DELETE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.36215,1,3,"DELETE VALUE")="@"
^DD(2,.36215,1,3,"DT")="2970327"
^DD(2,.36215,1,3,"FIELD")="#.36295"
^DD(2,.36215,1,4,0)="2^AENR36215^MUMPS"
^DD(2,.36215,1,4,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36215,1,4,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36215,1,4,3)="DO NOT DELETE"
^DD(2,.36215,1,4,"%D",0)="^^2^2^2970630^^"
^DD(2,.36215,1,4,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.36215,1,4,"%D",2,0)="record."
^DD(2,.36215,1,4,"DT")="2970630"
^DD(2,.36215,3)="Is this applicant in receipt of housebound benefits?"
^DD(2,.36215,20,0)="^.3LA^1^1"
^DD(2,.36215,20,1,0)="MB"
^DD(2,.36215,21,0)="^^3^3^2861006^"
^DD(2,.36215,21,1,0)="For this veteran applicant enter 'Y' if s/he is housebound, 'N' if not,"
^DD(2,.36215,21,2,0)="or 'U' if unknown.  Once monetary benefits have been verified only users"
^DD(2,.36215,21,3,0)="who hold the designated security key may enter/edit this field."
^DD(2,.36215,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.36215,"DT")="2970715"
^DD(2,.3622,0)="AMOUNT OF HOUSEBOUND^NJ10,2X^^.362;2^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,13)'=""Y"" W !?4,*7,""Receipt of Housebound Benefits not indicated."" K X"
^DD(2,.3622,.1)="HB AMOUNT"
^DD(2,.3622,3)="If this applicant is in receipt of housebound benefits enter the dollars amount received per year."
^DD(2,.3622,5,1,0)="2^.36215^1"
^DD(2,.3622,9.2)="I $D(^DPT(DA,.362)),$P(^(.362),U,13)=""Y"" W !?4,*7,""Delete by answering 'IN RECEIPT OF HB BENEFITS' prompt NO."" K X"
^DD(2,.3622,20,0)="^.3LA^1^1"
^DD(2,.3622,20,1,0)="MB"
^DD(2,.3622,21,0)="^^9^9^2880923^^^^"
^DD(2,.3622,21,1,0)="For this veteran applicant who is housebound (ARE YOU IN RECEIPT OF HB"
^DD(2,.3622,21,2,0)="BENEFITS prompt must be answered YES) enter the amount received"
^DD(2,.3622,21,3,0)="[a number between 0-99999].  Once monetary benefits are verified only"
^DD(2,.3622,21,4,0)="users who hold the designated security key may enter/edit this field.  This"
^DD(2,.3622,21,5,0)="field cannot be deleted as long as receipt of housebound benefits is"
^DD(2,.3622,21,6,0)="indicated."
^DD(2,.3622,21,7,0)="  "
^DD(2,.3622,21,8,0)="If you wish to enter a monthly amount either preceed of follow it with"
^DD(2,.3622,21,9,0)="an asterisk and I'll multiply it out for you."
^DD(2,.3622,"DEL",1,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.3622,9.2):$D(X) I '$D(X)"
^DD(2,.3622,"DT")="2880923"
^DD(2,.36225,0)="RECEIVING SOCIAL SECURITY?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;15^S DFN=DA D MV^DGLOCK Q"
^DD(2,.36225,.1)="IN RECEIPT OF SOCIAL SECURITY?"
^DD(2,.36225,1,0)="^.1"
^DD(2,.36225,1,1,0)="^^TRIGGER^2^.3623"
^DD(2,.36225,1,1,1)="X ^DD(2,.36225,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(2,.36225,1,1,1.4)"
^DD(2,.36225,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36225,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.36225,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.362)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3623 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36225,1,1,2)="X ^DD(2,.36225,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(2,.36225,1,1,2.4)"
^DD(2,.36225,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36225,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,15)_"":"",2),$C(59),1)="""""
^DD(2,.36225,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(.362)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3623 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36225,1,1,"CREATE CONDITION")="#.36225=""NO"""
^DD(2,.36225,1,1,"CREATE VALUE")="@"
^DD(2,.36225,1,1,"DELETE CONDITION")="#.36225="""""
^DD(2,.36225,1,1,"DELETE VALUE")="@"
^DD(2,.36225,1,1,"FIELD")="#.3623"
^DD(2,.36225,3)="Is this patient in receipt of Social Security benefits?"
^DD(2,.36225,20,0)="^.3LA^1^1"
^DD(2,.36225,20,1,0)="MB"
^DD(2,.36225,21,0)="^^4^4^2861006^"
^DD(2,.36225,21,1,0)="For this veteran applicant enter 'Y' is s/he is in receipt of social"
^DD(2,.36225,21,2,0)="security benefits, 'N' if not, or 'U' if unknown.  Once monetary benefits"
^DD(2,.36225,21,3,0)="have been verified only users who hold the designated security key may"
^DD(2,.36225,21,4,0)="enter/edit this field."
^DD(2,.36225,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.36225,"DT")="2860806"
^DD(2,.3623,0)="*AMOUNT OF SOCIAL SECURITY^NJ10,2X^^.362;3^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.3623,9.2)"
^DD(2,.3623,.1)="SOCIAL SECURITY AMOUNT"
^DD(2,.3623,3)="If this applicant is in receipt of Social Security benefits enter the dollar amount received per year."
^DD(2,.3623,5,1,0)="2^.36225^1"
^DD(2,.3623,9.2)="I $D(^DPT(DA,.362)),$P(^(.362),U,15)'=""Y"" W !?4,*7,""Not in receipt of Social Security benefits."" K X"
^DD(2,.3623,9.3)="I $D(^DPT(DA,.362)),$P(^(.362),U,15)=""Y"" W !?4,*7,""Delete by answering 'IN RECEIPT OF SOCIAL SECURITY' prompt NO."" K X"
^DD(2,.3623,20,0)="^.3LA^1^1"
^DD(2,.3623,20,1,0)="MB"
^DD(2,.3623,21,0)="^^9^9^2880923^^^"
^DD(2,.3623,21,1,0)="For this veteran applicant who is in receipt of social security"
^DD(2,.3623,21,2,0)="insurance (IN RECEIPT OF SOCIAL SECURITY prompt must be answered YES)"
^DD(2,.3623,21,3,0)="enter the amount received [a number between 0-99999].  Once monetary"
^DD(2,.3623,21,4,0)="benefits are verified only users who hold the designated security key"
^DD(2,.3623,21,5,0)="may enter/edit this field.  This field may not be deleted as long as"
^DD(2,.3623,21,6,0)="receipt of social security benefits is indicated."
^DD(2,.3623,21,7,0)="  "
^DD(2,.3623,21,8,0)="If you wish to enter a monthly amount either preceed or follow it with"
^DD(2,.3623,21,9,0)="an asterisk and I'll multiply it out for you."
^DD(2,.3623,"DEL",1,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.3623,9.3):$D(X) I '$D(X)"
^DD(2,.3623,"DT")="2930609"
^DD(2,.36235,0)="RECEIVING A VA PENSION?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;14^S DFN=DA D MV^DGLOCK"
^DD(2,.36235,1,0)="^.1"
^DD(2,.36235,1,1,0)="^^TRIGGER^2^.3624"
^DD(2,.36235,1,1,1)="X ^DD(2,.36235,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(2,.36235,1,1,1.4)"
^DD(2,.36235,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36235,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.36235,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(.362)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3624 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36235,1,1,2)="X ^DD(2,.36235,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(2,.36235,1,1,2.4)"
^DD(2,.36235,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36235,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59),1)="""""
^DD(2,.36235,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(.362)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3624 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36235,1,1,"CREATE CONDITION")="#.36235=""NO"""
^DD(2,.36235,1,1,"CREATE VALUE")="@"
^DD(2,.36235,1,1,"DELETE CONDITION")="#.36235="""""
^DD(2,.36235,1,1,"DELETE VALUE")="@"
^DD(2,.36235,1,1,"FIELD")="#.3624"
^DD(2,.36235,1,2,0)="2^AM^MUMPS"
^DD(2,.36235,1,2,1)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.36235,1,2,2)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,.36235,1,2,"%D",0)="^^3^3^2930119^^^^"
^DD(2,.36235,1,2,"%D",1,0)="This cross reference acts like a trigger.  It 'triggers' the status field"
^DD(2,.36235,1,2,"%D",2,0)="in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It"
^DD(2,.36235,1,2,"%D",3,0)="will update the field to 'NO LONGER APPLICABLE' if appropriate."
^DD(2,.36235,1,2,"DT")="2930119"
^DD(2,.36235,1,3,0)="^^TRIGGER^2^.36295"
^DD(2,.36235,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.36235,1,3,1.4)"
^DD(2,.36235,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.36235,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$TOTCHK^DGLOCK2(DA) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(2,.36235,1,3,2.4)"
^DD(2,.36235,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X S $P(^(.362),U,20)=DIV,DIH=2,DIG=.36295 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,.36235,1,3,"CREATE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.36235,1,3,"CREATE VALUE")="@"
^DD(2,.36235,1,3,"DELETE CONDITION")="S X='$$TOTCHK^DGLOCK2(DA)"
^DD(2,.36235,1,3,"DELETE VALUE")="@"
^DD(2,.36235,1,3,"DT")="2970327"
^DD(2,.36235,1,3,"FIELD")="#.36295"
^DD(2,.36235,1,4,0)="2^AENR36235^MUMPS"
^DD(2,.36235,1,4,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36235,1,4,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36235,1,4,3)="DO NOT DELETE"
^DD(2,.36235,1,4,"%D",0)="^^2^2^2970630^^"
^DD(2,.36235,1,4,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.36235,1,4,"%D",2,0)="record."
^DD(2,.36235,1,4,"DT")="2970630"
^DD(2,.36235,3)="Is this patient receiving a VA pension?"
^DD(2,.36235,20,0)="^.3LA^1^1"
^DD(2,.36235,20,1,0)="MB"
^DD(2,.36235,21,0)="^^4^4^2890423^^^"
^DD(2,.36235,21,1,0)="For this veteran applicant enter 'Y' if s/he is in receipt of a pension"
^DD(2,.36235,21,2,0)="from the Dept of Veterans Affairs, 'N' if not, or 'U' if unknown.  Once"
^DD(2,.36235,21,3,0)="monetary benefits have been verified only users holding the designated"
^DD(2,.36235,21,4,0)="security key may enter/edit this field."
^DD(2,.36235,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.36235,"DT")="2970327"
^DD(2,.3624,0)="AMOUNT OF VA PENSION^NJ10,2X^^.362;4^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X) X ^DD(2,.3624,9.3)"
^DD(2,.3624,.1)="VA PENSION AMOUNT"
^DD(2,.3624,3)="If this applicant is receiving a VA pension enter the dollar amount received per year."
^DD(2,.3624,5,1,0)="2^.36235^1"
^DD(2,.3624,9.2)="I $D(^DPT(DA,.362)),$P(^(.362),U,14)=""Y"" W !?4,*7,""Delete by answering 'ARE YOU RECEIVING A VA PENSION' prompt NO."" K X"
^DD(2,.3624,9.3)="X ^DD(2,.3624,9.4) I $D(X),$D(^DPT(DFN,.3)),$P(^(.3),U,3)]"""" W !?4,*7,""Already receiving Disability payment monies...Can't receive both!!"" K X Q"
^DD(2,.3624,9.4)="I $D(^DPT(DFN,.362)),$P(^(.362),U,14)'=""Y"" W !?4,*7,""Receipt of VA Pension benefits not indicated."" K X Q"
^DD(2,.3624,20,0)="^.3LA^1^1"
^DD(2,.3624,20,1,0)="MB"
^DD(2,.3624,21,0)="^^9^9^2890613^^^^"
^DD(2,.3624,21,1,0)="For this veteran applicant who is in receipt of a pension from the"
^DD(2,.3624,21,2,0)="Dept of Veterans Affairs (ARE YOU RECEIVING A VA PENSION prompt must"
^DD(2,.3624,21,3,0)="be answered YES) enter the amount received [a number between 0-99999]."
^DD(2,.3624,21,4,0)="Once monetary benefits are verified only users who hold the designated"
^DD(2,.3624,21,5,0)="security key may enter/edit this field.  This field may not be deleted"
^DD(2,.3624,21,6,0)="as long as receipt of VA pension is indicated."
^DD(2,.3624,21,7,0)="  "
^DD(2,.3624,21,8,0)="If you wish to enter a monthly amount either precede or follow it with"
^DD(2,.3624,21,9,0)="an asterisk and I'll multiply it out for you."
^DD(2,.3624,"DEL",1,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.3624,9.2):$D(X) I '$D(X)"
^DD(2,.3624,"DT")="2880923"
^DD(2,.3625,0)="*AMOUNT OF MILITARY RETIREMENT^NJ10,2X^^.362;5^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,16)'=""Y"" W !?4,*7,""Not in receipt of Military Retirement benefits."" K X"
^DD(2,.3625,.1)="MILT. RETIREMENT PAY AMOUNT"
^DD(2,.3625,3)="If this applicant is receiving military retirement enter the dollar amount received per year."
^DD(2,.3625,5,1,0)="2^.36255^1"
^DD(2,.3625,9.2)="I $D(^DPT(DA,.362)),$P(^(.362),U,14)=""Y"" W !?4,*7,""Delete by answering 'IN RECEIPT OF MILITARY RETIREMENT' prompt NO."" K X"
^DD(2,.3625,20,0)="^.3LA^1^1"
^DD(2,.3625,20,1,0)="MB"
^DD(2,.3625,21,0)="^^9^9^2880923^^^^"
^DD(2,.3625,21,1,0)="For this veteran who is in receipt of military retirement (IN RECEIPT"
^DD(2,.3625,21,2,0)="OF MILIT RETIREMENT prompt must be answered YES) enter the amount"
^DD(2,.3625,21,3,0)="received [a number between 0-99999].  Once monetary benefits are"
^DD(2,.3625,21,4,0)="verified only users who hold the designated security key may enter/edit"
^DD(2,.3625,21,5,0)="this field.  This field cannot be deleted as long as receipt of military"
^DD(2,.3625,21,6,0)="retirement is indicated."
^DD(2,.3625,21,7,0)="  "
^DD(2,.3625,21,8,0)="If you wish to enter a monthly amount either preceed or follow it with"
^DD(2,.3625,21,9,0)="an asterisk and I'll multiply it out for you."
^DD(2,.3625,"DEL",1,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.3625,9.2):$D(X) I '$D(X)"
^DD(2,.3625,"DT")="2880923"
^DD(2,.36255,0)="RECEIVING MILITARY RETIREMENT?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;16^S DFN=DA D MV^DGLOCK Q"
^DD(2,.36255,1,0)="^.1"
^DD(2,.36255,1,1,0)="^^TRIGGER^2^.3625"
^DD(2,.36255,1,1,1)="X ^DD(2,.36255,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(2,.36255,1,1,1.4)"
^DD(2,.36255,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36255,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.36255,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.362)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3625 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36255,1,1,2)="X ^DD(2,.36255,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(2,.36255,1,1,2.4)"
^DD(2,.36255,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36255,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_"":"",2),$C(59),1)="""""
^DD(2,.36255,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(.362)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3625 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36255,1,1,"CREATE CONDITION")="#.36255=""NO"""
^DD(2,.36255,1,1,"CREATE VALUE")="@"
^DD(2,.36255,1,1,"DELETE CONDITION")="#.36255="""""
^DD(2,.36255,1,1,"DELETE VALUE")="@"
^DD(2,.36255,1,1,"FIELD")="#.3625"
^DD(2,.36255,3)="Is this patient receiving military retirement?"
^DD(2,.36255,20,0)="^.3LA^1^1"
^DD(2,.36255,20,1,0)="MB"
^DD(2,.36255,21,0)="^^4^4^2861006^"
^DD(2,.36255,21,1,0)="For this veteran applicant enter 'Y' if s/he receives a military"
^DD(2,.36255,21,2,0)="retirement, 'N' if not, or 'U' if unknown.  Once monetary benefits have"
^DD(2,.36255,21,3,0)="been verified only users who hold the designated security key may"
^DD(2,.36255,21,4,0)="enter/edit this field."
^DD(2,.36255,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.36255,"DT")="2860806"
^DD(2,.3626,0)="AMOUNT OF GI INSURANCE^NJ8,2X^^.362;6^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),$D(^DPT(DA,.362)),$P(^(.362),U,17)'=""Y"" W !?4,*7,""Applicant doesn't have GI Insurance."" K X"
^DD(2,.3626,.1)="GI INSURANCE AMOUNT"
^DD(2,.3626,3)="If this applicant does have GI Insurance enter the amount for which insured."
^DD(2,.3626,5,1,0)="2^.36265^1"
^DD(2,.3626,9.2)="I $D(^DPT(DA,.362)),$P(^(.362),U,17)=""Y"" W !?4,*7,""Delete by answering 'DO YOU HAVE GI INSURANCE' prompt NO."" K X"
^DD(2,.3626,20,0)="^.3LA^1^1"
^DD(2,.3626,20,1,0)="MB"
^DD(2,.3626,21,0)="^^9^9^2880923^^^"
^DD(2,.3626,21,1,0)="For this veteran applicant who does have GI insurance (DO YOU HAVE GI"
^DD(2,.3626,21,2,0)="INSURANCE prompt must be answered YES) enter the amount received [a"
^DD(2,.3626,21,3,0)="number between 1 and 999999].  Once monetary benefits are verified only"
^DD(2,.3626,21,4,0)="users who hold the designated security key may enter/edit this field."
^DD(2,.3626,21,5,0)="This field cannot be deleted as long as the veteran is identified as"
^DD(2,.3626,21,6,0)="holding GI insurance."
^DD(2,.3626,21,7,0)="  "
^DD(2,.3626,21,8,0)="If you wish to enter a monthly amount either preceed or follow it with"
^DD(2,.3626,21,9,0)="an asterisk and I'll multiply it out for you."
^DD(2,.3626,"DEL",1,0)="S DFN=DA D MV^DGLOCK X ^DD(2,.3626,9.2):$D(X) I '$D(X)"
^DD(2,.3626,"DT")="2880923"
^DD(2,.36265,0)="GI INSURANCE POLICY?^SX^Y:YES;N:NO;U:UNKNOWN;^.362;17^S DFN=DA D MV^DGLOCK Q"
^DD(2,.36265,.1)="DO YOU HAVE GI INSURANCE?"
^DD(2,.36265,1,0)="^.1"
^DD(2,.36265,1,1,0)="^^TRIGGER^2^.3626"
^DD(2,.36265,1,1,1)="X ^DD(2,.36265,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(2,.36265,1,1,1.4)"
^DD(2,.36265,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.36265,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.36265,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.362)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3626 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36265,1,1,2)="X ^DD(2,.36265,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(2,.36265,1,1,2.4)"
^DD(2,.36265,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.36265,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.362)):^(.362),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,17)_"":"",2),$C(59),1)="""""
^DD(2,.36265,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.362)):^(.362),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.362)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.3626 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,.36265,1,1,"CREATE CONDITION")="#.36265=""NO"""
^DD(2,.36265,1,1,"CREATE VALUE")="@"
^DD(2,.36265,1,1,"DELETE CONDITION")="#.36265="""""
^DD(2,.36265,1,1,"DELETE VALUE")="@"
^DD(2,.36265,1,1,"FIELD")="#.3626"
^DD(2,.36265,3)="Does this applicant have a GI Insurance policy?"
^DD(2,.36265,20,0)="^.3LA^1^1"
^DD(2,.36265,20,1,0)="MB"
^DD(2,.36265,21,0)="^^3^3^2861006^"
^DD(2,.36265,21,1,0)="For this veteran applicant enter 'Y' if s/he has GI insurance, 'N' if not,"
^DD(2,.36265,21,2,0)="or 'U' if unknown.  Once monetary benefits have been verified only users"
^DD(2,.36265,21,3,0)="who hold the designated security key may enter/edit this field."
^DD(2,.36265,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.36265,"DT")="2860806"
^DD(2,.3627,0)="AMOUNT OF SSI^NJ8,2X^^.362;7^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK"
^DD(2,.3627,.1)="SUPPLEMENTAL SOCIAL SECURITY AMOUNT"
^DD(2,.3627,3)="If this applicant is receiving Supplemental Security Income (SSI) enter the dollar amount received per year."
^DD(2,.3627,20,0)="^.3LA^1^1"
^DD(2,.3627,20,1,0)="MB"
^DD(2,.3627,21,0)="^^7^7^2880923^^"
^DD(2,.3627,21,1,0)="For this veteran applicant enter the dollar amount of social security"
^DD(2,.3627,21,2,0)="insurance s/he receives [a number between 1-99999].  Leave blank if"
^DD(2,.3627,21,3,0)="none received.  Once monetary benefits have been verified only users"
^DD(2,.3627,21,4,0)="who hold the designated security key may enter/edit this field."
^DD(2,.3627,21,5,0)="  "
^DD(2,.3627,21,6,0)="If you wish to enter a monthly amount either preceed or follow it with"
^DD(2,.3627,21,7,0)="an asterisk and I'll multiply it out for you."
^DD(2,.3627,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.3627,"DT")="2880923"
^DD(2,.36275,0)="RECEIVING SUP. SECURITY (SSI)?^S^Y:YES;N:NO;U:UNKNOWN;^.362;19^Q"
^DD(2,.36275,.1)="IN RECEIPT OF SSI?"
^DD(2,.36275,3)="Does this patient receive Supplemental Security Income (SSI)?"
^DD(2,.36275,20,0)="^.3LA^1^1"
^DD(2,.36275,20,1,0)="MB"
^DD(2,.36275,21,0)="^^4^4^2911216^^"
^DD(2,.36275,21,1,0)="This field contains a yes or no reponse indicating whether this patient"
^DD(2,.36275,21,2,0)="receives supplemental social security insurance.  This field is being *'d"
^DD(2,.36275,21,3,0)="for deletion and will be removed in a future release of MAS.  This data"
^DD(2,.36275,21,4,0)="is no longer updated by the MAS package."
^DD(2,.36275,"DT")="2880601"
^DD(2,.3628,0)="AMOUNT OF OTHER RETIREMENT^NJ8,2X^^.362;8^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<1) X I $D(X) S DFN=DA D MV^DGLOCK"
^DD(2,.3628,.1)="OTHER RETIREMENT AMOUNT"
^DD(2,.3628,3)="If this patient receives retirment from another source enter the dollar amount received per year."
^DD(2,.3628,20,0)="^.3LA^1^1"
^DD(2,.3628,20,1,0)="MB"
^DD(2,.3628,21,0)="^^7^7^2880923^^^^"
^DD(2,.3628,21,1,0)="For this veteran applicant enter the amount of other retirement s/he"
^DD(2,.3628,21,2,0)="is in receipt of [a number between 1-99999].  Leave blank if none"
^DD(2,.3628,21,3,0)="received.  Once monetary benefits have been verified only users who"
^DD(2,.3628,21,4,0)="hold the designated security key may enter/edit this field."
^DD(2,.3628,21,5,0)="  "
^DD(2,.3628,21,6,0)="If you wish to enter a monthly amount either preceed or follow it with"
^DD(2,.3628,21,7,0)="an asterisk and I'll multiple it out for you."
^DD(2,.3628,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.3628,"DT")="2880923"
^DD(2,.36285,0)="TYPE OF OTHER RETIREMENT^SX^B:BLACK LUNG;M:MILITARY;C:CIVIL;R:RAILROAD;O:OTHER;X:COMBINATIONS OF TYPES;^.362;18^S DFN=DA D MV^DGLOCK Q"
^DD(2,.36285,3)="If this patient receives retirement from another source choose from the available listing the source of that retirement."
^DD(2,.36285,20,0)="^.3LA^1^1"
^DD(2,.36285,20,1,0)="MB"
^DD(2,.36285,21,0)="^^4^4^2861006^"
^DD(2,.36285,21,1,0)="For this veteran applicant choose from the available list the type"
^DD(2,.36285,21,2,0)="of other retirement s/he is in receipt of, if any.  Once monetary"
^DD(2,.36285,21,3,0)="benefits have been verified only users who hold the designated"
^DD(2,.36285,21,4,0)="security key may enter/edit this field."
^DD(2,.36285,"DEL",1,0)="S DFN=DA D MV^DGLOCK I '$D(X)"
^DD(2,.36285,"DT")="2860728"
^DD(2,.3629,0)="AMOUNT OF OTHER INCOME^NJ8,2X^^.362;9^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<1) X"
^DD(2,.3629,.1)="OTHER PERSONAL INCOME"
^DD(2,.3629,3)="If applicable, enter the dollar amount of other income received per year."
^DD(2,.3629,20,0)="^.3LA^1^1"
^DD(2,.3629,20,1,0)="MB"
^DD(2,.3629,21,0)="^^7^7^2911112^^^"
^DD(2,.3629,21,1,0)="For this veteran applicant enter the amount of other personal income"
^DD(2,.3629,21,2,0)="s/he is in receipt of [a number between 1-999999].  Leave blank if"
^DD(2,.3629,21,3,0)="none.  Once monetary benefits have been verified only users who hold"
^DD(2,.3629,21,4,0)="the designated security key may enter/edit this field."
^DD(2,.3629,21,5,0)="  "
^DD(2,.3629,21,6,0)="If you wish to enter a monthly amount either preceed or follow it with"
^DD(2,.3629,21,7,0)="an asterisk and I'll multiply it out for you."
^DD(2,.3629,"DT")="2880923"
^DD(2,.36295,0)="TOTAL ANNUAL VA CHECK AMOUNT^NJ8,2X^^.362;20^D DOL^DGLOCK2 K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X I $D(X) S DFN=DA D MV^DGLOCK I $D(X),('$$TOTCHK^DGLOCK2(DFN)) D TOTCKMSG^DGLOCK2 K X"
^DD(2,.36295,.1)="AMOUNT OF TOTAL ANNUAL VA CHECKS"
^DD(2,.36295,1,0)="^.1"
^DD(2,.36295,1,1,0)="2^AQ^MUMPS"
^DD(2,.36295,1,1,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.36295,1,1,2)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.36295,1,1,"%D",0)="^^2^2^2970829^^^^"
^DD(2,.36295,1,1,"%D",1,0)="This cross-reference is used to determine whether or"
^DD(2,.36295,1,1,"%D",2,0)="not a means test is required."
^DD(2,.36295,1,1,"DT")="2970319"
^DD(2,.36295,1,2,0)="2^AENR36295^MUMPS"
^DD(2,.36295,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36295,1,2,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.36295,1,2,3)="DO NOT DELETE"
^DD(2,.36295,1,2,"%D",0)="^^2^2^2970902^"
^DD(2,.36295,1,2,"%D",1,0)="This cross-reference is used to update the patient's current"
^DD(2,.36295,1,2,"%D",2,0)="Patient Enrollment record."
^DD(2,.36295,1,2,"DT")="2970902"
^DD(2,.36295,3)="Enter the total annual VA Check amount for A&A, Housebound, Pension, and Disability."
^DD(2,.36295,5,1,0)="2^.3025^2"
^DD(2,.36295,5,2,0)="2^.36205^3"
^DD(2,.36295,5,3,0)="2^.36215^3"
^DD(2,.36295,5,4,0)="2^.36235^3"
^DD(2,.36295,20,0)="^.3LA^1^1"
^DD(2,.36295,20,1,0)="MB"
^DD(2,.36295,21,0)="^^9^9^2970328^^^^"
^DD(2,.36295,21,1,0)="If this applicant is receiving A&A, Housebound, Pension, and/or"
^DD(2,.36295,21,2,0)="Disability payments from the VA (at least one of the YES/NO questions"
^DD(2,.36295,21,3,0)="relating to the above must be answered YES), enter the annual amount"
^DD(2,.36295,21,4,0)="received (0-99999).  Once monetary benefits are verified, only users who"
^DD(2,.36295,21,5,0)="hold the designated security key may enter/edit this field.  This field"
^DD(2,.36295,21,6,0)="may not be deleted as long as recipt of VA funds is indicated by one of"
^DD(2,.36295,21,7,0)="the four fields related to A&A, Housebound, Pension, and Disability.  If"
^DD(2,.36295,21,8,0)="you wish to enter a monthly amount either precede or follow it with an"
^DD(2,.36295,21,9,0)="asterisk and I'll multiply it out for you."
^DD(2,.36295,23,0)="^^2^2^2970328^^^^"
^DD(2,.36295,23,1,0)="Contains the total annual benefit amount for A&A, Housebound, Pension and"
^DD(2,.36295,23,2,0)="Disabilty.  "
^DD(2,.36295,"DEL",1,0)="S DFN=DA D MV^DGLOCK D:$D(X) TOTCKDEL^DGLOCK2 I '$D(X)"
^DD(2,.36295,"DT")="2970902"
^DD(2,.363,0)="PRIMARY LONG ID^F^^.36;3^K:$L(X)>15!($L(X)<1) X"
^DD(2,.363,1,0)="^.1"
^DD(2,.363,1,391,0)="2^AHL7^MUMPS"
^DD(2,.363,1,391,1)="N NX,REG,VAFHDFN S VAFHDFN=DA,NX=X,X=""VAFHDD"" X ^%ZOSF(""TEST"") I $T S REG=$$EN^VAFHREG() D:REG=0 SET^VAFHUTL2 S X=NX,DA=VAFHDFN"
^DD(2,.363,1,391,2)="N NX,REG,VAFHDFN S VAFHDFN=DA,NX=X,X=""VAFHDD"" X ^%ZOSF(""TEST"") I $T S REG=$$EN^VAFHREG() D:REG=0 KILL^VAFHUTL2(DA,NX) S:REG'=0 VAFHMRG="""",VAFHBEF=NX S X=NX,DA=VAFHDFN"
^DD(2,.363,1,391,"%D",0)="^^3^3^2960624^^^"
^DD(2,.363,1,391,"%D",1,0)="This x-ref is used to catch changes to the Primary Long ID"
^DD(2,.363,1,391,"%D",2,0)="It will cause an A34 (Merge) HL7 message to be fired."
^DD(2,.363,1,391,"%D",3,0)="The A34 message will not be generated during patient registration."
^DD(2,.363,1,391,"DT")="2960603"
^DD(2,.363,3)="Answer must be 1-15 characters in length."
^DD(2,.363,5,1,0)="2.0361^.03^3"
^DD(2,.363,9)="^"
^DD(2,.363,21,0)="^^7^7^2911214^^^^"
^DD(2,.363,21,1,0)="This field contains the patient's long ID associated with"
^DD(2,.363,21,2,0)="the patient's PRIMARY ELIGIBILITY CODE.  For most patients"
^DD(2,.363,21,3,0)="this is the Social Security Number."
^DD(2,.363,21,4,0)=" "
^DD(2,.363,21,5,0)="No user input is needed for this field. It is automatically"
^DD(2,.363,21,6,0)="updated when the PRIMARY ELIGIBILITY CODE field is entered"
^DD(2,.363,21,7,0)="and edited."
^DD(2,.363,"DT")="2960603"
^DD(2,.364,0)="PRIMARY SHORT ID^F^^.36;4^K:$L(X)>7!($L(X)<1) X"
^DD(2,.364,3)="Answer must be 1-7 characters in length."
^DD(2,.364,5,1,0)="2.0361^.04^3"
^DD(2,.364,9)="^"
^DD(2,.364,21,0)="^^7^7^2911205^^^"
^DD(2,.364,21,1,0)="This field contains the patient's short ID associated with"
^DD(2,.364,21,2,0)="the patient's PRIMARY ELIGIBILITY CODE.  For most patients"
^DD(2,.364,21,3,0)="this is the last four digits of the Social Security Number."
^DD(2,.364,21,4,0)=" "
^DD(2,.364,21,5,0)="No user input is needed for this field. It is automatically"
^DD(2,.364,21,6,0)="updated when the PRIMARY ELIGIBILITY CODE field is entered"
^DD(2,.364,21,7,0)="and edited."
^DD(2,.364,"DT")="2911004"
^DD(2,.368,0)="SERVICE DENTAL INJURY?^S^Y:YES;N:NO;^.36;8^Q"
^DD(2,.368,.1)="DENTAL INJURY IN SERVICE"
^DD(2,.368,3)="Did this patient incur a dental injury while serving in the military?"
^DD(2,.368,20,0)="^.3LA^1^1"
^DD(2,.368,20,1,0)="SVC"
^DD(2,.368,21,0)="^^4^4^2861006^"
^DD(2,.368,21,1,0)="For this veteran applicant enter 'Y' if a dental injury was incurred"
^DD(2,.368,21,2,0)="while serving in the U.S. Armed Forces, or 'N' if not.  Once the"
^DD(2,.368,21,3,0)="service record is verified only users who hold the designated security"
^DD(2,.368,21,4,0)="key may enter/edit this field."
^DD(2,.369,0)="SERVICE TEETH EXTRACTED?^S^Y:YES;N:NO;^.36;9^Q"
^DD(2,.369,.1)="TEETH EXTRACTED IN SERVICE"
^DD(2,.369,3)="Did this patient have teeth extracted while in military service?"
^DD(2,.369,20,0)="^.3LA^1^1"
^DD(2,.369,20,1,0)="SVC"
^DD(2,.369,21,0)="^^4^4^2861006^"
^DD(2,.369,21,1,0)="For this veteran applicant enter 'Y' if teeth were extracted while"
^DD(2,.369,21,2,0)="serving in the U.S. Armed Forces, or 'N' if not.  Once the service"
^DD(2,.369,21,3,0)="record is verified only users who hold the designated security key"
^DD(2,.369,21,4,0)="may enter/edit this field."
^DD(2,.37,0)="DATE OF DENTAL TREATMENT^2.11D^^.37;0"
^DD(2,.37,3)="If this patient had a dental injury or teeth extracted while in service enter the date(s) of treatment."
^DD(2,.37,20,0)="^.3LA^1^1"
^DD(2,.37,20,1,0)="SVC"
^DD(2,.37,21,0)="^^6^6^2861007^^"
^DD(2,.37,21,1,0)="For this veteran applicant who either incurred a dental injury"
^DD(2,.37,21,2,0)="(DENTAL INJURY IN SERVICE prompt must be answered YES) or had"
^DD(2,.37,21,3,0)="teeth extracted (TEETH EXTRACTED IN SERVICE prompt must be answered"
^DD(2,.37,21,4,0)="YES) while serving in the U.S. Armed Forces enter the date of dental"
^DD(2,.37,21,5,0)="treatment received.  Once the service record is verified only users"
^DD(2,.37,21,6,0)="who hold the designated security key may enter/edit this field."
^DD(2,.3721,0)="RATED DISABILITIES (VA)^2.04P^^.372;0"
^DD(2,.3721,3)="Choose from the available listing those disabilities fro which this patient has been rated by the VA."
^DD(2,.3721,20,0)="^.3LA^1^1"
^DD(2,.3721,20,1,0)="DIS1"
^DD(2,.3721,21,0)="^^3^3^3051129^"
^DD(2,.3721,21,1,0)="From the available listing choose and enter conditions for which the"
^DD(2,.3721,21,2,0)="applicant has been verified as being service connected.  Only users who"
^DD(2,.3721,21,3,0)="hold the designated security key may enter/edit this field."
^DD(2,.3731,0)="SERVICE CONNECTED CONDITIONS^2.05A^^.373;0"
^DD(2,.3731,3)="Enter those conditions [1-30 characters] for which patient claims service connection."
^DD(2,.3731,20,0)="^.3LA^1^1"
^DD(2,.3731,20,1,0)="DIS1"
^DD(2,.3731,21,0)="^^2^2^2911214^^^"
^DD(2,.3731,21,1,0)="Enter conditions as stated by applicant for which s/he claims service"
^DD(2,.3731,21,2,0)="connection [1-30 characters]."
^DD(2,.381,0)="ELIGIBLE FOR MEDICAID?^RS^1:YES;0:NO;^.38;1^Q"
^DD(2,.381,.1)="MEDICAID ELIGIBILE?"
^DD(2,.381,1,0)="^.1"
^DD(2,.381,1,1,0)="2^AMT^MUMPS"
^DD(2,.381,1,1,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.381,1,1,2)="Q"
^DD(2,.381,1,1,"%D",0)="^^2^2^2920720^^^^"
^DD(2,.381,1,1,"%D",1,0)="This cross-ref calls the means test software.  If answered yes, a means"
^DD(2,.381,1,1,"%D",2,0)="test is not required."
^DD(2,.381,1,1,"DT")="2920720"
^DD(2,.381,1,2,0)="2^AENR381^MUMPS"
^DD(2,.381,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.381,1,2,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.381,1,2,3)="DO NOT DELETE"
^DD(2,.381,1,2,"%D",0)="^^2^2^2970715^"
^DD(2,.381,1,2,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.381,1,2,"%D",2,0)="record."
^DD(2,.381,1,2,"DT")="2970715"
^DD(2,.381,3)="Is this patient eligible to receive medicaid coverage?"
^DD(2,.381,21,0)="^^2^2^2921006^^^^"
^DD(2,.381,21,1,0)="Enter yes if this patient is eligible to receive medicaid coverage."
^DD(2,.381,21,2,0)="Otherwise, answer no."
^DD(2,.381,23,0)="^^1^1^2921006^^^^"
^DD(2,.381,23,1,0)="If yes is answered to this question, a means test will NOT be required."
^DD(2,.381,"DT")="2970715"
^DD(2,.382,0)="DATE MEDICAID LAST ASKED^RD^^.38;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.382,1,0)="^.1"
^DD(2,.382,1,1,0)="2^AENR382^MUMPS"
^DD(2,.382,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.382,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.382,1,1,3)=" DO NOT DELETE"
^DD(2,.382,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.382,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.382,1,1,"%D",2,0)="enrollment."
^DD(2,.382,1,1,"DT")="3050606"
^DD(2,.382,3)="Type a date indicating the date the 'ELIGIBLE FOR MEDICAID' question was last asked of this patient."
^DD(2,.382,21,0)="^^7^7^2920518^^^"
^DD(2,.382,21,1,0)="Enter the date/time the 'ELIGIBLE FOR MEDICAID' question was last asked of"
^DD(2,.382,21,2,0)="this veteran.  This data must be asked on a yearly basis as it affects the"
^DD(2,.382,21,3,0)="requirement for a means test (a negative response results in a means test"
^DD(2,.382,21,4,0)="not being required)."
^DD(2,.382,21,5,0)=" "
^DD(2,.382,21,6,0)="This field will be stored automatically by the MAS module when editing"
^DD(2,.382,21,7,0)="data on registration or load/edit screen 7.  It will not appear for editing."
^DD(2,.382,"DT")="2941208"
^DD(2,.383,0)="MEDICAID NUMBER^F^^.38;3^K:$L(X)>30!($L(X)<3) X"
^DD(2,.383,1,0)="^.1"
^DD(2,.383,1,992,0)="2^ADGRU383^MUMPS"
^DD(2,.383,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.383,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,.383,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,.383,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,.383,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,.383,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,.383,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,.383,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,.383,1,992,"%D",6,0)="interface."
^DD(2,.383,1,992,"%D",7,0)=" "
^DD(2,.383,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,.383,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,.383,1,992,"DT")="2990921"
^DD(2,.383,3)="Enter the patient's assigned MEDICAID Number, must be 3-30 characters in length."
^DD(2,.383,21,0)="^^1^1^2990811^^"
^DD(2,.383,21,1,0)="This is the patient's assigned MEDICAID number."
^DD(2,.383,"DT")="2990921"
^DD(2,.39,0)="VETERAN CATASTROPHICALLY DISABLED?^S^Y:YES;N:NO;^.39;6^Q"
^DD(2,.39,1,0)="^.1"
^DD(2,.39,1,1,0)="2^VCD^MUMPS"
^DD(2,.39,1,1,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.39,1,1,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.39,1,1,"%D",0)="^^2^2^2990618^"
^DD(2,.39,1,1,"%D",1,0)="This cross-reference is used to auto-update the patients"
^DD(2,.39,1,1,"%D",2,0)="PATIENT ENROLLMENT (#27.11) record."
^DD(2,.39,1,1,"DT")="2990618"
^DD(2,.39,21,0)="^^2^2^2990702^^^"
^DD(2,.39,21,1,0)="This field states whether or not the patient is a veteran who has been"
^DD(2,.39,21,2,0)="determined to meet the criteria for CATASTROPHICALLY DISABLED."
^DD(2,.39,"DT")="2990618"
^DD(2,.391,0)="DECIDED BY^F^^.39;1^K:$L(X)>35!($L(X)<3) X"
^DD(2,.391,1,0)="^.1"
^DD(2,.391,1,1,0)="2^AENR391^MUMPS"
^DD(2,.391,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.391,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.391,1,1,3)=" DO NOT DELETE"
^DD(2,.391,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.391,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.391,1,1,"%D",2,0)="enrollment."
^DD(2,.391,1,1,"DT")="3050606"
^DD(2,.391,3)="Enter the name of the VA staff physician who made the decision that the patient was catastrophically disabled."
^DD(2,.391,4)=""
^DD(2,.391,21,0)="^^2^2^2970520^"
^DD(2,.391,21,1,0)="The name of the VA staff physician who made the determination that the patient"
^DD(2,.391,21,2,0)="was catastrophically disabled."
^DD(2,.391,"DT")="2970520"
^DD(2,.392,0)="DATE OF DECISION^DX^^.39;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X K:($G(DT)&($G(X)>$G(DT))) X"
^DD(2,.392,1,0)="^.1"
^DD(2,.392,1,1,0)="2^AENR392^MUMPS"
^DD(2,.392,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.392,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.392,1,1,3)=" DO NOT DELETE"
^DD(2,.392,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.392,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.392,1,1,"%D",2,0)="enrollment."
^DD(2,.392,1,1,"DT")="3050606"
^DD(2,.392,3)="Enter the date the decision was made."
^DD(2,.392,21,0)="^^1^1^2970619^^"
^DD(2,.392,21,1,0)="The date the catastrophic disability determination was made."
^DD(2,.392,"DT")="2970820"
^DD(2,.393,0)="FACILITY MAKING DETERMINATION^P4'^DIC(4,^.39;3^Q"
^DD(2,.393,1,0)="^.1"
^DD(2,.393,1,1,0)="2^AENR393^MUMPS"
^DD(2,.393,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.393,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.393,1,1,3)=" DO NOT DELETE"
^DD(2,.393,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.393,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.393,1,1,"%D",2,0)="enrollment."
^DD(2,.393,1,1,"DT")="3050606"
^DD(2,.393,3)="Enter the VAMC that made the catastrophic disability determination."
^DD(2,.393,21,0)="^^1^1^2970520^"
^DD(2,.393,21,1,0)="The VAMC that made the catastrophic disability determination."
^DD(2,.393,"DT")="2970520"
^DD(2,.394,0)="REVIEW DATE^D^^.39;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.394,1,0)="^.1"
^DD(2,.394,1,1,0)="2^AENR394^MUMPS"
^DD(2,.394,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.394,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.394,1,1,3)=" DO NOT DELETE"
^DD(2,.394,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.394,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.394,1,1,"%D",2,0)="enrollment."
^DD(2,.394,1,1,"DT")="3050606"
^DD(2,.394,3)="Enter the date the catastrophic disability determination was made."
^DD(2,.394,21,0)="^^2^2^2990702^^^^"
^DD(2,.394,21,1,0)="The date that a review to determine Catastrophic Disability was made. "
^DD(2,.394,21,2,0)="This review may be a medical record review or physical exam review."
^DD(2,.394,"DT")="2970520"
^DD(2,.395,0)="METHOD OF DETERMINATION^S^2:MEDICAL RECORD REVIEW;3:PHYSICAL EXAMINATION;^.39;5^Q"
^DD(2,.395,1,0)="^.1"
^DD(2,.395,1,1,0)="2^AENR395^MUMPS"
^DD(2,.395,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.395,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.395,1,1,3)=" DO NOT DELETE"
^DD(2,.395,1,1,"%D",0)="^.101^2^2^3050606^^^^"
^DD(2,.395,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.395,1,1,"%D",2,0)="enrollment."
^DD(2,.395,1,1,"DT")="3050606"
^DD(2,.395,21,0)="^^7^7^2990702^^^^"
^DD(2,.395,21,1,0)="Added in order to document the review method of how the decision"
^DD(2,.395,21,2,0)="to assign a CD status was determined."
^DD(2,.395,21,3,0)=" "
^DD(2,.395,21,4,0)="Determination may be made by reviewing the veteran's medical record"
^DD(2,.395,21,5,0)="or by performing a physical examination of the veteran."
^DD(2,.395,21,6,0)="In the future, the capability to fully automate the record review"
^DD(2,.395,21,7,0)="process will be added to the system."
^DD(2,.395,"DT")="2990629"
^DD(2,.3951,0)="DATE VETERAN REQUESTED CD EVAL^D^^.39;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.3951,1,0)="^.1"
^DD(2,.3951,1,1,0)="2^AENR3951^MUMPS"
^DD(2,.3951,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3951,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3951,1,1,3)=" DO NOT DELETE"
^DD(2,.3951,1,1,"%D",0)="^.101^2^2^3050930^^^^"
^DD(2,.3951,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3951,1,1,"%D",2,0)="enrollment."
^DD(2,.3951,1,1,"DT")="3050930"
^DD(2,.3951,"DT")="3050930"
^DD(2,.3952,0)="DATE FACILITY INITIATED REVIEW^D^^.39;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.3952,1,0)="^.1"
^DD(2,.3952,1,1,0)="2^AENR3952^MUMPS"
^DD(2,.3952,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3952,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3952,1,1,3)=" DO NOT DELETE"
^DD(2,.3952,1,1,"%D",0)="^.101^2^2^3050930^^^^"
^DD(2,.3952,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3952,1,1,"%D",2,0)="enrollment."
^DD(2,.3952,1,1,"DT")="3050930"
^DD(2,.3952,"DT")="3050930"
^DD(2,.3953,0)="DATE VETERAN WAS NOTIFIED^D^^.39;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.3953,1,0)="^.1"
^DD(2,.3953,1,1,0)="2^AENR3953^MUMPS"
^DD(2,.3953,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.3953,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.3953,1,1,3)=" DO NOT DELETE"
^DD(2,.3953,1,1,"%D",0)="^.101^2^2^3050930^^^^"
^DD(2,.3953,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.3953,1,1,"%D",2,0)="enrollment."
^DD(2,.3953,1,1,"DT")="3050930"
^DD(2,.3953,"DT")="3050930"
^DD(2,.396,0)="CD STATUS DIAGNOSES^2.396P^^.396;0"
^DD(2,.396,12)="Must point to a CD REASON that is a diagnosis."
^DD(2,.396,12.1)="S DIC(""S"")=""I $P(^DGEN(27.17,Y,0),U,2)=""""D"""""""
^DD(2,.397,0)="CD STATUS PROCEDURES^2.397P^^.397;0"
^DD(2,.397,12)="Must select a CD REASON that is a valid procedure."
^DD(2,.397,12.1)="S DIC(""S"")=""I $P(^DGEN(27.17,Y,0),U,2)=""""P"""""""
^DD(2,.398,0)="CD STATUS CONDITIONS^2.398P^^.398;0"
^DD(2,.398,12)="Must specify a CD REASON that is a condition."
^DD(2,.398,12.1)="S DIC(""S"")=""I $P(^DGEN(27.17,Y,0),U,2)=""""C"""""""
^DD(2,.399,0)="CD HISTORY DATE^2.399DA^^.399;0"
^DD(2,.525,0)="POW STATUS INDICATED?^RSX^Y:YES;N:NO;U:UNKNOWN;^.52;5^S DFN=DA D SV^DGLOCK"
^DD(2,.525,.1)="WERE YOU A PRISONER OF WAR"
^DD(2,.525,1,0)="^.1"
^DD(2,.525,1,1,0)="^^TRIGGER^2^.526"
^DD(2,.525,1,1,1)="X ^DD(2,.525,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$S('$D(^DIC(22,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1)) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.525,1,1,1.4)"
^DD(2,.525,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.525,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(.52)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.526 D ^DICR"
^DD(2,.525,1,1,2)="Q"
^DD(2,.525,1,1,"CREATE CONDITION")="WERE YOU A PRISONER OF WAR=""NO"""
^DD(2,.525,1,1,"CREATE VALUE")="@"
^DD(2,.525,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.525,1,1,"FIELD")="POW WAR"
^DD(2,.525,1,2,0)="^^TRIGGER^2^.527"
^DD(2,.525,1,2,1)="X ^DD(2,.525,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P(Y(1),U,7) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.525,1,2,1.4)"
^DD(2,.525,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.525,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U"" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(.52)=$P(DIH,U,1,6)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.527 D ^DICR"
^DD(2,.525,1,2,2)="Q"
^DD(2,.525,1,2,"CREATE CONDITION")="#.525=""NO"""
^DD(2,.525,1,2,"CREATE VALUE")="@"
^DD(2,.525,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.525,1,2,"FIELD")="POW FROM DATE"
^DD(2,.525,1,3,0)="^^TRIGGER^2^.528"
^DD(2,.525,1,3,1)="X ^DD(2,.525,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P(Y(1),U,8) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.525,1,3,1.4)"
^DD(2,.525,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.525,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.525,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U"" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(.52)=$P(DIH,U,1,7)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.528 D ^DICR"
^DD(2,.525,1,3,2)="Q"
^DD(2,.525,1,3,"CREATE CONDITION")="#.525=""NO"""
^DD(2,.525,1,3,"CREATE VALUE")="@"
^DD(2,.525,1,3,"DELETE VALUE")="NO EFFECT"
^DD(2,.525,1,3,"FIELD")="#.528"
^DD(2,.525,1,4,0)="2^AENR525^MUMPS"
^DD(2,.525,1,4,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.525,1,4,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.525,1,4,3)="DO NOT DELETE"
^DD(2,.525,1,4,"%D",0)="^.101^2^2^3040708^^^"
^DD(2,.525,1,4,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2,.525,1,4,"%D",2,0)="record."
^DD(2,.525,1,4,"DT")="2970630"
^DD(2,.525,1,5,0)="2^AMTR^MUMPS"
^DD(2,.525,1,5,1)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.525,1,5,2)="S DFN=DA D EN^DGMTR K DGREQF"
^DD(2,.525,1,5,"%D",0)="^^2^2^2970927^"
^DD(2,.525,1,5,"%D",1,0)="This cross-reference is used to determine whether or not a means test is"
^DD(2,.525,1,5,"%D",2,0)="required."
^DD(2,.525,1,5,"DT")="2970927"
^DD(2,.525,1,6,0)="2^AENRL525^MUMPS"
^DD(2,.525,1,6,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.525,1,6,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.525,1,6,"%D",0)="^^2^2^3040708^"
^DD(2,.525,1,6,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.525,1,6,"%D",2,0)="POW STATUS INDICATED? field."
^DD(2,.525,1,6,"DT")="3040708"
^DD(2,.525,3)="Was this patient a Prisoner of War?"
^DD(2,.525,20,0)="^.3LA^1^1"
^DD(2,.525,20,1,0)="PW"
^DD(2,.525,21,0)="^^4^4^2920721^^^^"
^DD(2,.525,21,1,0)="For this veteran applicant enter 'Y' if s/he was confined as a prisoner"
^DD(2,.525,21,2,0)="of war, 'N' if not, or 'U' if unknown.  Once the service record is"
^DD(2,.525,21,3,0)="verified only users who hold the designated security key may enter/edit"
^DD(2,.525,21,4,0)="this field."
^DD(2,.525,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.525,"DT")="3040708"
^DD(2,.526,0)="POW CONFINEMENT LOCATION^RP22'X^DIC(22,^.52;6^S DFN=DA,DGCOMLOC=X D POW^DGLOCK"
^DD(2,.526,.1)="POW WAR"
^DD(2,.526,1,0)="^.1"
^DD(2,.526,1,1,0)="2^AENR526^MUMPS"
^DD(2,.526,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.526,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.526,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.526,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.526,1,1,"%D",2,0)="POW CONFINEMENT LOCATION field."
^DD(2,.526,1,1,"DT")="3040614"
^DD(2,.526,3)="For this former POW enter the war in which confined."
^DD(2,.526,5,1,0)="2^.525^1"
^DD(2,.526,20,0)="^.3LA^1^1"
^DD(2,.526,20,1,0)="PW"
^DD(2,.526,21,0)="^^6^6^2981123^^^^"
^DD(2,.526,21,1,0)="For this veteran applicant who was confined as a prisoner of war"
^DD(2,.526,21,2,0)="(WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the"
^DD(2,.526,21,3,0)="war during which confined.  Once the service record is verified only"
^DD(2,.526,21,4,0)="those users who hold the designated security key may enter/edit this"
^DD(2,.526,21,5,0)="field.  This field cannot be deleted as long as applicant is"
^DD(2,.526,21,6,0)="identified as a former POW."
^DD(2,.526,"DEL",1,0)="S DFN=DA D POWD^DGLOCK1 I '$D(X)"
^DD(2,.526,"DT")="3040614"
^DD(2,.527,0)="POW FROM DATE^RDX^^.52;7^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""POW"",X) X I $D(X) S DFN=DA D POW^DGLOCK I $D(X) S DGFRDT=X D DOB^DGHELP"
^DD(2,.527,.1)=""
^DD(2,.527,1,0)="^.1"
^DD(2,.527,1,1,0)="2^AENR527^MUMPS"
^DD(2,.527,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.527,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.527,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.527,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.527,1,1,"%D",2,0)="POW FROM DATE field."
^DD(2,.527,1,1,"DT")="3040614"
^DD(2,.527,3)="For this former POW enter the date confinement commenced."
^DD(2,.527,5,1,0)="2^.525^2"
^DD(2,.527,20,0)="^.3LA^1^1"
^DD(2,.527,20,1,0)="PW"
^DD(2,.527,21,0)="^^6^6^2910116^^^^"
^DD(2,.527,21,1,0)="For this veteran applicant who was confined as a prisoner of war"
^DD(2,.527,21,2,0)="(WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the"
^DD(2,.527,21,3,0)="date on which confinement commenced.  Once"
^DD(2,.527,21,4,0)="the service record is verified only those users who hold the designated"
^DD(2,.527,21,5,0)="security key may enter/edit this field.  This field cannot be"
^DD(2,.527,21,6,0)="deleted as long as applicant is identified as a former POW."
^DD(2,.527,"DEL",1,0)="S DFN=DA D POWD^DGLOCK1 I '$D(X)"
^DD(2,.527,"DT")="3040722"
^DD(2,.528,0)="POW TO DATE^RDX^^.52;8^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""POW"",X,1) X I $D(X) S DFN=DA D POW^DGLOCK I $D(X) D DOB^DGHELP"
^DD(2,.528,.1)=""
^DD(2,.528,1,0)="^.1"
^DD(2,.528,1,1,0)="2^AENR528^MUMPS"
^DD(2,.528,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.528,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.528,1,1,"%D",0)="^^2^2^3040614^"
^DD(2,.528,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.528,1,1,"%D",2,0)="POW TO DATE field."
^DD(2,.528,1,1,"DT")="3040614"
^DD(2,.528,3)="For this former POW enter the date confinement ended."
^DD(2,.528,5,1,0)="2^.525^3"
^DD(2,.528,20,0)="^.3LA^1^1"
^DD(2,.528,20,1,0)="PW"
^DD(2,.528,21,0)="^^6^6^2910116^^^^"
^DD(2,.528,21,1,0)="For this veteran applicant who was confined as a prisoner of war"
^DD(2,.528,21,2,0)="(WERE YOU A PRISONER OF WAR prompt must be answered YES) enter the"
^DD(2,.528,21,3,0)="date on which confinement ended.  Once the"
^DD(2,.528,21,4,0)="service record is verified only those users who hold the designated"
^DD(2,.528,21,5,0)="security key may enter/edit this field.  This field cannot be"
^DD(2,.528,21,6,0)="deleted as long as applicant is identified as a former POW."
^DD(2,.528,"DEL",1,0)="S DFN=DA D POWD^DGLOCK1 I '$D(X)"
^DD(2,.528,"DT")="3040614"
^DD(2,.5291,0)="COMBAT SERVICE INDICATED?^RSX^Y:YES;N:NO;^.52;11^S DFN=DA D SV^DGLOCK"
^DD(2,.5291,.1)="IN COMBAT (Y/N)"
^DD(2,.5291,1,0)="^.1"
^DD(2,.5291,1,1,0)="^^TRIGGER^2^.5292"
^DD(2,.5291,1,1,1)="X ^DD(2,.5291,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$S('$D(^DIC(22,+$P(Y(1),U,12),0)):"""",1:$P(^(0),U,1)) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.5291,1,1,1.4)"
^DD(2,.5291,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.5291,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U"" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.52)=$P(DIH,U,1,11)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.5292 D ^DICR"
^DD(2,.5291,1,1,2)="Q"
^DD(2,.5291,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)="""""
^DD(2,.5291,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U"" S %=$P(DIH,U,13,999),DIU=$P(DIH,U,12),^(.52)=$P(DIH,U,1,11)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.5292 D ^DICR"
^DD(2,.5291,1,1,"CREATE CONDITION")="IN COMBAT=""NO"""
^DD(2,.5291,1,1,"CREATE VALUE")="@"
^DD(2,.5291,1,1,"DELETE CONDITION")="IN COMBAT="""""
^DD(2,.5291,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,.5291,1,1,"FIELD")="COMBAT WHERE"
^DD(2,.5291,1,2,0)="^^TRIGGER^2^.5293"
^DD(2,.5291,1,2,1)="X ^DD(2,.5291,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P(Y(1),U,13) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.5291,1,2,1.4)"
^DD(2,.5291,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.5291,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U"" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(.52)=$P(DIH,U,1,12)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.5293 D ^DICR"
^DD(2,.5291,1,2,2)="Q"
^DD(2,.5291,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)="""""
^DD(2,.5291,1,2,2.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U"" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(.52)=$P(DIH,U,1,12)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.5293 D ^DICR"
^DD(2,.5291,1,2,"CREATE CONDITION")="IN COMBAT=""NO"""
^DD(2,.5291,1,2,"CREATE VALUE")="@"
^DD(2,.5291,1,2,"DELETE CONDITION")="IN COMBAT="""""
^DD(2,.5291,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2,.5291,1,2,"FIELD")="COMBAT FRO"
^DD(2,.5291,1,3,0)="^^TRIGGER^2^.5294"
^DD(2,.5291,1,3,1)="X ^DD(2,.5291,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P(Y(1),U,14) S DIU=X K Y S X=DIV S X="""" X ^DD(2,.5291,1,3,1.4)"
^DD(2,.5291,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(2,.5291,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(.52)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.5294 D ^DICR"
^DD(2,.5291,1,3,2)="Q"
^DD(2,.5291,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,.5291,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)="""""
^DD(2,.5291,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.52)):^(.52),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(.52)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.5294 D ^DICR"
^DD(2,.5291,1,3,"CREATE CONDITION")="IN COMBAT=""NO"""
^DD(2,.5291,1,3,"CREATE VALUE")="@"
^DD(2,.5291,1,3,"DELETE CONDITION")="IN COMBAT="""""
^DD(2,.5291,1,3,"DELETE VALUE")="NO EFFECT"
^DD(2,.5291,1,3,"FIELD")="COMBAT TO DATE"
^DD(2,.5291,1,4,0)="2^AENR5291^MUMPS"
^DD(2,.5291,1,4,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.5291,1,4,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.5291,1,4,"%D",0)="^^2^2^3040614^"
^DD(2,.5291,1,4,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.5291,1,4,"%D",2,0)="COMBAT SERVICE INDICATED? field."
^DD(2,.5291,1,4,"DT")="3040614"
^DD(2,.5291,1,5,0)="2^AI^MUMPS"
^DD(2,.5291,1,5,1)="D CSI1010^DGENDD(DA)"
^DD(2,.5291,1,5,2)="Q"
^DD(2,.5291,1,5,"%D",0)="^^4^4^3061023^"
^DD(2,.5291,1,5,"%D",1,0)="This MUMPS xref will trigger an update to the COMBAT"
^DD(2,.5291,1,5,"%D",2,0)="INDICATED ON 1010EZ field (2/1010.157), so that when"
^DD(2,.5291,1,5,"%D",3,0)="COMBAT SERVICE INDICATED? is ""NO,"" COMBAT INDICATED"
^DD(2,.5291,1,5,"%D",4,0)="ON 1010EZ is set to ""NO."""
^DD(2,.5291,1,5,"DT")="3061023"
^DD(2,.5291,3)="Did this patient serve in combat?"
^DD(2,.5291,20,0)="^.3LA^1^1"
^DD(2,.5291,20,1,0)="CS"
^DD(2,.5291,21,0)="^^4^4^2861006^"
^DD(2,.5291,21,1,0)="For this veteran applicant enter 'Y' if s/he served in a combat"
^DD(2,.5291,21,2,0)="zone, or 'N' if not.  Once the service record is verified only"
^DD(2,.5291,21,3,0)="users who hold the designated security key may enter/edit this"
^DD(2,.5291,21,4,0)="field."
^DD(2,.5291,"DEL",1,0)="S DFN=DA D SV^DGLOCK I '$D(X)"
^DD(2,.5291,"DT")="3061023"
^DD(2,.5292,0)="COMBAT SERVICE LOCATION^RP22'X^DIC(22,^.52;12^S DFN=DA S DGCOMLOC=X D COM^DGLOCK"
^DD(2,.5292,.1)="COMBAT WHERE"
^DD(2,.5292,1,0)="^.1"
^DD(2,.5292,1,1,0)="2^AENR5292^MUMPS"
^DD(2,.5292,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.5292,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.5292,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.5292,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.5292,1,1,"%D",2,0)="COMBAT SERVICE LOCATION field."
^DD(2,.5292,1,1,"DT")="3040610"
^DD(2,.5292,3)="For this combat veteran enter the war in which combat service was incurred."
^DD(2,.5292,5,1,0)="2^.5291^1"
^DD(2,.5292,20,0)="^.3LA^1^1"
^DD(2,.5292,20,1,0)="CS"
^DD(2,.5292,21,0)="^^6^6^2861007^^^"
^DD(2,.5292,21,1,0)="For this veteran applicant who served in a combat zone (IN COMBAT"
^DD(2,.5292,21,2,0)="prompt must be answered YES) enter the zone in which s/he"
^DD(2,.5292,21,3,0)="served.  Once the service record is verified only those users"
^DD(2,.5292,21,4,0)="who hold the designated security key may enter/edit this field."
^DD(2,.5292,21,5,0)="This field cannot be deleted as long as combat service is"
^DD(2,.5292,21,6,0)="indicated."
^DD(2,.5292,"DEL",1,0)="S DFN=DA D COMD^DGLOCK1 I '$D(X)"
^DD(2,.5292,"DT")="3040610"
^DD(2,.5293,0)="COMBAT FROM DATE^RDX^^.52;13^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""COMB"",X) X I $D(X) S DFN=DA D COM^DGLOCK I $D(X) S DGFRDT=X D DOB^DGHELP"
^DD(2,.5293,.1)=""
^DD(2,.5293,1,0)="^.1"
^DD(2,.5293,1,1,0)="2^AENR5293^MUMPS"
^DD(2,.5293,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.5293,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.5293,1,1,"%D",0)="^^2^2^3040610^"
^DD(2,.5293,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.5293,1,1,"%D",2,0)="COMBAT FROM DATE field."
^DD(2,.5293,1,1,"DT")="3040610"
^DD(2,.5293,3)="For this combat veteran enter the date combat service commenced."
^DD(2,.5293,5,1,0)="2^.5291^2"
^DD(2,.5293,20,0)="^.3LA^1^1"
^DD(2,.5293,20,1,0)="CS"
^DD(2,.5293,21,0)="^^6^6^2910116^^^^"
^DD(2,.5293,21,1,0)="For this veteran who served in a combat zone (IN COMBAT prompt"
^DD(2,.5293,21,2,0)="must be answered YES) enter the date on which combat service"
^DD(2,.5293,21,3,0)="commenced.  Once the service record is"
^DD(2,.5293,21,4,0)="verified only those users who hold the designated security key"
^DD(2,.5293,21,5,0)="may enter/edit this field.  This field cannot be deleted as long"
^DD(2,.5293,21,6,0)="as combat service is indicated."
^DD(2,.5293,"DEL",1,0)="S DFN=DA D COMD^DGLOCK1 I '$D(X)"
^DD(2,.5293,"DT")="3040722"
^DD(2,.5294,0)="COMBAT TO DATE^RDX^^.52;14^S %DT=""E"" D ^%DT S X=Y K:'$$VALCON^DGRPMS(DA,""COMB"",X,1) X I $D(X) S DFN=DA D COM^DGLOCK I $D(X) D DOB^DGHELP"
^DD(2,.5294,.1)=""
^DD(2,.5294,1,0)="^.1"
^DD(2,.5294,1,1,0)="2^AENR5294^MUMPS"
^DD(2,.5294,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.5294,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.5294,1,1,"%D",0)="^.101^2^2^3040708^^"
^DD(2,.5294,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2,.5294,1,1,"%D",2,0)="COMBAT TO DATE field."
^DD(2,.5294,1,1,"DT")="3040610"
^DD(2,.5294,1,2,0)="2^AK^MUMPS"
^DD(2,.5294,1,2,1)="D CTD1010^DGENDD(DA)"
^DD(2,.5294,1,2,2)="Q"
^DD(2,.5294,1,2,"%D",0)="^^9^9^3061023^"
^DD(2,.5294,1,2,"%D",1,0)="This MUMPS xref will trigger an update to the COMBAT"
^DD(2,.5294,1,2,"%D",2,0)="INDICATED ON 1010EZ field (2/1010.157), so that when"
^DD(2,.5294,1,2,"%D",3,0)="COMBAT SERVICE INDICATED? (2/.5291) is ""YES"" and"
^DD(2,.5294,1,2,"%D",4,0)="COMBAT TO DATE (2/.5294) is greater that 11/11/1998,"
^DD(2,.5294,1,2,"%D",5,0)="COMBAT INDICATED ON 1010EZ is set to ""YES."""
^DD(2,.5294,1,2,"%D",6,0)=" "
^DD(2,.5294,1,2,"%D",7,0)="Conversely, if COMBAT TO DATE is less than or equal"
^DD(2,.5294,1,2,"%D",8,0)="to 11/11/1998, COMBAT INDICATED ON 1010EZ will be"
^DD(2,.5294,1,2,"%D",9,0)="set to ""NO."""
^DD(2,.5294,1,2,"DT")="3061023"
^DD(2,.5294,3)="For this combat veteran enter the date combat service ended."
^DD(2,.5294,5,1,0)="2^.5291^3"
^DD(2,.5294,20,0)="^.3LA^1^1"
^DD(2,.5294,20,1,0)="CS"
^DD(2,.5294,21,0)="^^6^6^2910116^^^"
^DD(2,.5294,21,1,0)="For this veteran who served in a combat zone (IN COMBAT prompt must"
^DD(2,.5294,21,2,0)="be answered YES) enter the date on which combat service ended."
^DD(2,.5294,21,3,0)="Once the service record is verified"
^DD(2,.5294,21,4,0)="only those users who hold the designated security key may"
^DD(2,.5294,21,5,0)="enter/edit this field.  This field cannot be deleted as long as"
^DD(2,.5294,21,6,0)="combat service is indicated."
^DD(2,.5294,"DEL",1,0)="S DFN=DA D COMD^DGLOCK1 I '$D(X)"
^DD(2,.5294,"DT")="3061023"
^DD(2,.5295,0)="COMBAT VETERAN END DATE^D^^.52;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.5295,1,0)="^.1"
^DD(2,.5295,1,1,0)="2^AENR5295^MUMPS"
^DD(2,.5295,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.5295,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.5295,1,1,3)="DO NOT DELETE"
^DD(2,.5295,1,1,"%D",0)="^^2^2^3040420^"
^DD(2,.5295,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes"
^DD(2,.5295,1,1,"%D",2,0)="to the COMBAT VETERAN END DATE field."
^DD(2,.5295,1,1,"DT")="3040420"
^DD(2,.5295,1,2,0)="^^TRIGGER^2^.5296"
^DD(2,.5295,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^DPT(DIV(0),.52)),DIV=X S $P(^(.52),U,16)=DIV,DIH=2,DIG=.5296 D ^DICR"
^DD(2,.5295,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,.52)):^(.52),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^DPT(DIV(0),.52)),DIV=X S $P(^(.52),U,16)=DIV,DIH=2,DIG=.5296 D ^DICR"
^DD(2,.5295,1,2,"%D",0)="^.101^2^2^3040628^^"
^DD(2,.5295,1,2,"%D",1,0)="This trigger x-ref is used to update the date stamp when the CV "
^DD(2,.5295,1,2,"%D",2,0)="Eligibility End date is edited."
^DD(2,.5295,1,2,"CREATE VALUE")="S X=DT"
^DD(2,.5295,1,2,"DELETE VALUE")="S X=DT"
^DD(2,.5295,1,2,"DT")="3040614"
^DD(2,.5295,1,2,"FIELD")="CV"
^DD(2,.5295,1,3,0)="2^AENR52951^MUMPS"
^DD(2,.5295,1,3,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.5295,1,3,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.5295,1,3,3)="DO NOT DELETE"
^DD(2,.5295,1,3,"%D",0)="^^1^1^3040708^"
^DD(2,.5295,1,3,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment record.  "
^DD(2,.5295,1,3,"DT")="3040708"
^DD(2,.5295,20,0)="^.3LA^1^1"
^DD(2,.5295,20,1,0)="CS"
^DD(2,.5295,21,0)="^.001^4^4^3040420^^^^"
^DD(2,.5295,21,1,0)="This field represents the last day for combat vet eligibility. This field "
^DD(2,.5295,21,2,0)="will only be populated by cross-reference when the veteran's combat vet "
^DD(2,.5295,21,3,0)="eligibility has been determined. This value will remain after the combat "
^DD(2,.5295,21,4,0)="vet eligibility period has expired."
^DD(2,.5295,"AUDIT")=""
^DD(2,.5295,"AX")=""
^DD(2,.5295,"DT")="3040708"
^DD(2,.5296,0)="CV DATE EDITED^D^^.52;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,.5296,1,0)="^.1"
^DD(2,.5296,1,1,0)="2^E"
^DD(2,.5296,1,1,1)="S ^DPT(""E"",$E(X,1,30),DA)="""""
^DD(2,.5296,1,1,2)="K ^DPT(""E"",$E(X,1,30),DA)"
^DD(2,.5296,1,1,"%D",0)="^^3^3^3030711^"
^DD(2,.5296,1,1,"%D",1,0)="This cross reference will be used for a Lookup of the CV Date Edited "
^DD(2,.5296,1,1,"%D",2,0)="field, so that veterans assigned CV Status Eligibility sduring certain "
^DD(2,.5296,1,1,"%D",3,0)="time frames can be pulled into a report."
^DD(2,.5296,1,1,"DT")="3030711"
^DD(2,.5296,5,1,0)="2^.5295^2"
^DD(2,.5296,21,0)="^^2^2^3030711^"
^DD(2,.5296,21,1,0)="The CV DATE EDITED field will be stuffed with the current date "
^DD(2,.5296,21,2,0)="whenever the COMBAT VET END DATE field (.5295) is changed."
^DD(2,.5296,"DT")="3030711"
^DD(2,.531,0)="CURRENT PH INDICATOR^SX^Y:YES;N:NO;^.53;1^S DFN=DA D VET^DGLOCK"
^DD(2,.531,1,0)="^.1"
^DD(2,.531,1,1,0)="2^D"
^DD(2,.531,1,1,1)="S ^DPT(""D"",$E(X,1,30),DA)="""""
^DD(2,.531,1,1,2)="K ^DPT(""D"",$E(X,1,30),DA)"
^DD(2,.531,1,1,"%D",0)="^^2^2^3000810^"
^DD(2,.531,1,1,"%D",1,0)="Cross-reference on Current PH Indicator to be used for look-ups and"
^DD(2,.531,1,1,"%D",2,0)="sorting."
^DD(2,.531,1,1,"DT")="3000810"
^DD(2,.531,1,2,0)="2^AENR531^MUMPS"
^DD(2,.531,1,2,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,.531,1,2,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,.531,1,2,3)="DO NOT DELETE"
^DD(2,.531,1,2,"%D",0)="^.101^2^2^3000926^^^"
^DD(2,.531,1,2,"%D",1,0)="This cross-reference is used to update the patient's current Patient"
^DD(2,.531,1,2,"%D",2,0)="Enrollment record."
^DD(2,.531,1,2,"DT")="3000926"
^DD(2,.531,3)="Enter 'Yes' if patient is a Purple Heart Recipient and is a veteran."
^DD(2,.531,21,0)="^.001^3^3^3010130^^^^"
^DD(2,.531,21,1,0)="This field can be entered by the local site if currently null.  Subsequent"
^DD(2,.531,21,2,0)="editing can be done only by the HEC.  A response of 'Yes' can be entered "
^DD(2,.531,21,3,0)="only if the patient is a veteran,"
^DD(2,.531,"DT")="3000926"
^DD(2,.532,0)="CURRENT PURPLE HEART STATUS^S^1:PENDING;2:IN PROCESS;3:CONFIRMED;^.53;2^Q"
^DD(2,.532,1,0)="^.1"
^DD(2,.532,1,1,0)="2^C"
^DD(2,.532,1,1,1)="S ^DPT(""C"",$E(X,1,30),DA)="""""
^DD(2,.532,1,1,2)="K ^DPT(""C"",$E(X,1,30),DA)"
^DD(2,.532,1,1,"%D",0)="^^1^1^3000810^"
^DD(2,.532,1,1,"%D",1,0)="Cross-reference on Current PH Status, to be used for look-ups."
^DD(2,.532,1,1,"DT")="3000810"
^DD(2,.532,1,2,0)="2^AENR532^MUMPS"
^DD(2,.532,1,2,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.532,1,2,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.532,1,2,3)="DO NOT DELETE"
^DD(2,.532,1,2,"%D",0)="^^2^2^3050715^"
^DD(2,.532,1,2,"%D",1,0)="This cross-reference is used to notify HEC that may affect"
^DD(2,.532,1,2,"%D",2,0)="enrollment."
^DD(2,.532,1,2,"DT")="3050715"
^DD(2,.532,21,0)="^.001^4^4^3010130^^^^"
^DD(2,.532,21,1,0)="This field cannot be edited locally.  If Current Purple Heart Indicator is"
^DD(2,.532,21,2,0)="set to 'Yes' by the local site, a Current Purple Heart Status of 'Pending'"
^DD(2,.532,21,3,0)="will be stuffed into the field.  Other editing or updating is done by the"
^DD(2,.532,21,4,0)="HEC."
^DD(2,.532,"DT")="3001122"
^DD(2,.533,0)="CURRENT PURPLE HEART REMARKS^S^1:UNACCEPTABLE DOCUMENTATION;2:NO DOCUMENTATION REC'D;3:ENTERED IN ERROR;4:UNSUPPORTED PURPLE HEART;5:VAMC;6:UNDELIVERABLE MAIL;^.53;3^Q"
^DD(2,.533,1,0)="^.1"
^DD(2,.533,1,1,0)="2^AENR533^MUMPS"
^DD(2,.533,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,.533,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,.533,1,1,3)="DO NOT DELETE"
^DD(2,.533,1,1,"%D",0)="^^2^2^3050715^"
^DD(2,.533,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,.533,1,1,"%D",2,0)="enrollment."
^DD(2,.533,1,1,"DT")="3050715"
^DD(2,.533,21,0)="^.001^4^4^3001215^^"
^DD(2,.533,21,1,0)="This field cannot be edited locally.  If Current Purple Heart Indicator"
^DD(2,.533,21,2,0)="isset to 'No' by the local site, a Current Purple Heart Remarks of 'VAMC'"
^DD(2,.533,21,3,0)="will be stuffed into the field.  Other editing or updating is done by the"
^DD(2,.533,21,4,0)="HEC."
^DD(2,.533,"DT")="3001215"
^DD(2,.535,0)="PH DIVISION^P4'^DIC(4,^.53;4^Q"
^DD(2,.535,21,0)="^^4^4^3010209^"
^DD(2,.535,21,1,0)="When site enters a value for CURRENT PH Indicator, a prompt"
^DD(2,.535,21,2,0)="for PH Division will appear.  This field will point to the"
^DD(2,.535,21,3,0)="INSTITUTION file (#4), and will hold the division where the"
^DD(2,.535,21,4,0)="PH request was initiated."
^DD(2,.535,"DT")="3010209"
^DD(2,.6,0)="TEST PATIENT INDICATOR^SI^1:YES;0:NO;^0;21^Q"
^DD(2,.6,1,0)="^.1"
^DD(2,.6,1,1,0)="2^ATEST^MUMPS"
^DD(2,.6,1,1,1)="I X S ^DPT(""ATEST"",DA)="""""
^DD(2,.6,1,1,2)="K ^DPT(""ATEST"",DA)"
^DD(2,.6,1,1,"%D",0)="^^4^4^2951026^^^"
^DD(2,.6,1,1,"%D",1,0)="This cross reference is set for test patients only. If the SSN of a patient"
^DD(2,.6,1,1,"%D",2,0)="has five leading zeros then this cross reference is set. Otherwise, no"
^DD(2,.6,1,1,"%D",3,0)="cross reference will be created. This field is populated by the 'ATP' cross"
^DD(2,.6,1,1,"%D",4,0)="reference on the SSN field (.09)."
^DD(2,.6,1,1,"DT")="2951026"
^DD(2,.6,3)="THIS FIELD IS USED TO INDENTIFY TEST PATIENTS"
^DD(2,.6,9)="^"
^DD(2,.6,21,0)="^^2^2^2951026^^^^"
^DD(2,.6,21,1,0)="This field is set by the 'ATP' cross reference on the Social Security Number "
^DD(2,.6,21,2,0)="field (.09) when an SSN containing five leading zeros is entered."
^DD(2,.6,23,0)="^^3^3^2951026^"
^DD(2,.6,23,1,0)="This field is used to indentify test patients in the Patient file (#2). It is"
^DD(2,.6,23,2,0)="not editable from any options, it is set by the 'ATP' cross reference on the"
^DD(2,.6,23,3,0)="SSN field (.09) for all SSNs with five leading zeros."
^DD(2,.6,"DT")="2951026"
^DD(2,1,0)="ALIAS^2.01^^.01;0"
^DD(2,1,3)="If this patient is known by another name enter that name."
^DD(2,1,20,0)="^.3LA^1^1"
^DD(2,1,20,1,0)="DEMOG"
^DD(2,1,21,0)="^^4^4^2911214^^^^"
^DD(2,1,21,1,0)="If this applicant is known by any name other than that entered in"
^DD(2,1,21,2,0)="the NAME field enter that/those other name(s) here.  Any entry"
^DD(2,1,21,3,0)="to this field will be cross-referenced and the applicant may be"
^DD(2,1,21,4,0)="called up using this alias."
^DD(2,1.01,0)="NAME COMPONENTS^P20'I^VA(20,^NAME;1^Q"
^DD(2,1.01,1,0)="^.1^^0"
^DD(2,1.01,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.01."
^DD(2,1.01,9)="^"
^DD(2,1.01,"DT")="3020419"
^DD(2,1.02,0)="K-NAME COMPONENTS^P20'I^VA(20,^NAME;2^Q"
^DD(2,1.02,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.211."
^DD(2,1.02,9)="^"
^DD(2,1.02,"DT")="3020419"
^DD(2,1.03,0)="K2-NAME COMPONENTS^P20'I^VA(20,^NAME;3^Q"
^DD(2,1.03,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.2191."
^DD(2,1.03,9)="^"
^DD(2,1.03,"DT")="3020419"
^DD(2,1.04,0)="FATHER'S NAME COMPONENTS^P20'I^VA(20,^NAME;4^Q"
^DD(2,1.04,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.2401."
^DD(2,1.04,9)="^"
^DD(2,1.04,"DT")="3020419"
^DD(2,1.05,0)="MOTHER'S NAME COMPONENTS^P20'I^VA(20,^NAME;5^Q"
^DD(2,1.05,1,0)="^.1^^0"
^DD(2,1.05,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.2402."
^DD(2,1.05,9)="^"
^DD(2,1.05,"DT")="3020725"
^DD(2,1.06,0)="MOTHERS MAIDEN NAME COMPONENTS^P20'I^VA(20,^NAME;6^Q"
^DD(2,1.06,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.2403."
^DD(2,1.06,9)="^"
^DD(2,1.06,"DT")="3020419"
^DD(2,1.07,0)="E-NAME COMPONENTS^P20'I^VA(20,^NAME;7^Q"
^DD(2,1.07,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.331."
^DD(2,1.07,9)="^"
^DD(2,1.07,"DT")="3020419"
^DD(2,1.08,0)="E2-NAME COMPONENTS^P20'I^VA(20,^NAME;8^Q"
^DD(2,1.08,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.3311."
^DD(2,1.08,9)="^"
^DD(2,1.08,"DT")="3020725"
^DD(2,1.09,0)="D-NAME COMPONENTS^P20'I^VA(20,^NAME;9^Q"
^DD(2,1.09,3)="This field contains a pointer to the NAME COMPONENTS record associated with field #.341."
^DD(2,1.09,9)="^"
^DD(2,1.09,"DT")="3020725"
^DD(2,2,0)="RACE INFORMATION^2.02P^^.02;0"
^DD(2,3,0)="ENROLLMENT CLINIC^2.001P^^DE;0"
^DD(2,3,21,0)="^^2^2^2911214^^^^"
^DD(2,3,21,1,0)="This multiple field contains the data relating to clinic enrollments for"
^DD(2,3,21,2,0)="this patient."
^DD(2,6,0)="ETHNICITY INFORMATION^2.06PA^^.06;0"
^DD(2,27.01,0)="CURRENT ENROLLMENT^P27.11'I^DGEN(27.11,^ENR;1^Q"
^DD(2,27.01,1,0)="^.1"
^DD(2,27.01,1,1,0)="2^AENRC^MUMPS"
^DD(2,27.01,1,1,1)="D SET1^DGENDD(DA,X)"
^DD(2,27.01,1,1,2)="D KILL1^DGENDD(DA)"
^DD(2,27.01,1,1,3)="DO NOT DELETE"
^DD(2,27.01,1,1,"%D",0)="^^6^6^2970911^^^^"
^DD(2,27.01,1,1,"%D",1,0)="This index sorts the patients by their current enrollment status."
^DD(2,27.01,1,1,"%D",2,0)="The ENROLLMENT STATUS field of the PATIENT ENROLLMENT file also triggers"
^DD(2,27.01,1,1,"%D",3,0)="this cross-reference."
^DD(2,27.01,1,1,"%D",4,0)=""
^DD(2,27.01,1,1,"%D",5,0)="The format of the index is:"
^DD(2,27.01,1,1,"%D",6,0)="^DPT(""AENRC"",<current enrollment status>,<DFN>)="""""
^DD(2,27.01,1,1,"DT")="2970619"
^DD(2,27.01,3)="Enter the patient's current enrollment."
^DD(2,27.01,21,0)="^^1^1^2970520^"
^DD(2,27.01,21,1,0)="The patient's current enrollment."
^DD(2,27.01,"DT")="2970724"
^DD(2,27.02,0)="PREFERRED FACILITY^*P4'X^DIC(4,^ENR;2^S DIC(""S"")=""I $$PFTF^DGREGDD(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,27.02,1,0)="^.1"
^DD(2,27.02,1,1,0)="2^AENR2702^MUMPS"
^DD(2,27.02,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,27.02,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,27.02,1,1,3)="DO NOT DELETE"
^DD(2,27.02,1,1,"%D",0)="^.101^2^2^3010117^^^"
^DD(2,27.02,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,27.02,1,1,"%D",2,0)="enrollment. "
^DD(2,27.02,1,1,"DT")="2980213"
^DD(2,27.02,3)="Enter the facility that the patient chooses to designate as his primary location for care."
^DD(2,27.02,12)="Selected facility must be a treating facility with a valid facility type."
^DD(2,27.02,12.1)="S DIC(""S"")=""I $$PFTF^DGREGDD(Y)"""
^DD(2,27.02,21,0)="^.001^22^22^3060419^^^^"
^DD(2,27.02,21,1,0)="The facility that the patient chooses to designate as his preferred"
^DD(2,27.02,21,2,0)="location for care."
^DD(2,27.02,21,3,0)="The facility must have one of the following facility types:"
^DD(2,27.02,21,4,0)="      CBOC         (Community Based Outpatient Clinic)"
^DD(2,27.02,21,5,0)="      HCS          (Health Care System)"
^DD(2,27.02,21,6,0)="      HEALTHCARE   (VA Boston Health Care System)"
^DD(2,27.02,21,7,0)="      M&ROC        (Medical and Regional Office Center)"
^DD(2,27.02,21,8,0)="      MOC          (Mobile Outpatient Clinic)"
^DD(2,27.02,21,9,0)="      MORC         (Mobile Outreach Clinic)"
^DD(2,27.02,21,10,0)="      NETWORK      (VA Healthcare Network Upstate NY)"
^DD(2,27.02,21,11,0)="      NHC          (Nursing Home Care)"
^DD(2,27.02,21,12,0)="      OC           (Outpatient Clinic - Independent)"
^DD(2,27.02,21,13,0)="      OCMC         (Outpatient Clinic - Subordinate)"
^DD(2,27.02,21,14,0)="      OCS          (Outpatient Clinic Substation)"
^DD(2,27.02,21,15,0)="      OPC          (Out Patient Clinic)"
^DD(2,27.02,21,16,0)="      ORC          (Outreach Clinic)"
^DD(2,27.02,21,17,0)="      RO-OC        (Regional Office - Outpatient Clinic)"
^DD(2,27.02,21,18,0)="      SATELLITE    (Satellite Outpatient Clinic)"
^DD(2,27.02,21,19,0)="      SOC          (Satellite Outpatient Clinic)"
^DD(2,27.02,21,20,0)="      VAMC         (VA Medical Center)"
^DD(2,27.02,21,21,0)="      VANPH        (Neural Psychiatric Hospital)"
^DD(2,27.02,21,22,0)="      VA ROSEBERG  (VA Roseburg Health Care System)"
^DD(2,27.02,"DT")="3060930"
^DD(2,53,0)="*REACTIONS^S^Y:YES;N:NO;^PI;1^Q"
^DD(2,53,.1)="REACTIONS"
^DD(2,57.1,0)="*HEIGHT(cm)^NJ3,0^^57;1^K:+X'=X!(X>300)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2,57.1,.1)="HEIGHT(cm)"
^DD(2,57.1,3)="TYPE A WHOLE NUMBER BETWEEN 100 AND 300"
^DD(2,57.2,0)="*WEIGHT(kg)^NJ3,0^^57;2^K:+X'=X!(X>150)!(X<40)!(X?.E1"".""1N.N) X"
^DD(2,57.2,.1)="WEIGHT(kg)"
^DD(2,57.2,3)="TYPE A WHOLE NUMBER BETWEEN 40 AND 150"
^DD(2,57.4,0)="SPINAL CORD INJURY^S^1:PARAPLEGIA-TRAUMATIC;2:QUADRIPLEGIA-TRAUMATIC;3:PARAPLEGIA-NONTRAUMATIC;4:QUADRIPLEGIA-NONTRAUMATIC;X:NOT APPLICABLE;^57;4^Q"
^DD(2,57.4,3)="Enter the appropriate code."
^DD(2,57.4,21,0)="3"
^DD(2,57.4,21,1,0)="If this patient does not have a spinal cord injury, enter X for not"
^DD(2,57.4,21,2,0)="applicable in this field.  Otherwise, if the patient does have a spinal"
^DD(2,57.4,21,3,0)="cord injury, choose from the other available choices the one "
^DD(2,57.4,"DT")="2880816"
^DD(2,63,0)="LABORATORY REFERENCE^IP63X^LR(^LR;1^K X"
^DD(2,63,3)="Any changes to this entry must be made from the lab data entry routines. This is the patient's record number in the lab file."
^DD(2,63,21,0)="^^4^4^2911216^"
^DD(2,63,21,1,0)="This field contains the internal entry number of this patient in the"
^DD(2,63,21,2,0)="LAB DATA file.  This data is entered and maintained by the laboratory"
^DD(2,63,21,3,0)="package and must NOT be edited under any circumstances.  Editing of this"
^DD(2,63,21,4,0)="data could cause severe repercussions in the laboratory package."
^DD(2,63,"DT")="2831205"
^DD(2,67,0)="LAB REFERRAL REF^P67'X^LRT(67,^LRT;1^K X"
^DD(2,67,21,0)="^^6^6^2981016^^"
^DD(2,67,21,1,0)="This field contains the pointer reference to the Referral file of the"
^DD(2,67,21,2,0)="Laboratory Package. This field is set by the laboratory accessioning"
^DD(2,67,21,3,0)="software and should not be edited."
^DD(2,67,21,4,0)=" "
^DD(2,67,21,5,0)="Changing of this pointer will result IN misidentification of patients that"
^DD(2,67,21,6,0)="could have dire medical repercussions."
^DD(2,67,"DT")="2970622"
^DD(2,148,0)="CNH CURRENT^S^Y:YES;N:NO;^NHC;1^Q"
^DD(2,148,.1)=""
^DD(2,148,3)="Answer yes if the patient is in a contract nursing home now.  Otherwise, answer no."
^DD(2,148,21,0)="^^3^3^2920430^"
^DD(2,148,21,1,0)="This field is used to denote when a patient is currently in a contract"
^DD(2,148,21,2,0)="nursing home.  Answer yes if the patient is in a contract nursing home"
^DD(2,148,21,3,0)="currently.  Otherwise, answer no."
^DD(2,148,"DT")="2920430"
^DD(2,220,0)="DENTAL CLASSIFICATION^P220.2'^DIC(220.2,^DENT;1^Q"
^DD(2,220,21,0)="^^1^1^2850731^"
^DD(2,220,21,1,0)="For Dental Package"
^DD(2,220,"DT")="2850731"
^DD(2,220.1,0)="DENTAL ELIGIBILITY EXPIRATION^D^^DENT;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2,220.1,21,0)="^^1^1^2850731^"
^DD(2,220.1,21,1,0)="For Dental Eligibility"
^DD(2,220.1,"DT")="2850731"
^DD(2,361,0)="PATIENT ELIGIBILITIES^2.0361IP^^E;0"
^DD(2,361,3)="Choose from the available listing those eligibilities to which this patient might be entitled which are not his primary eligibility."
^DD(2,361,20,0)="^.3LA^1^1"
^DD(2,361,20,1,0)="ECD"
^DD(2,361,21,0)="^^3^3^2911214^"
^DD(2,361,21,1,0)="This multiple contains all eligibilities under which this patient can"
^DD(2,361,21,2,0)="receive care.  This includes his primary eligibility and all other"
^DD(2,361,21,3,0)="eligibilities he may have."
^DD(2,391,0)="TYPE^RP391'a^DG(391,^TYPE;1^Q"
^DD(2,391,1,0)="^.1"
^DD(2,391,1,991,0)="2^AVAFC391^MUMPS"
^DD(2,391,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF=""391;"" D AVAFC^VAFCDD01(DA)"
^DD(2,391,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF=""391;"" D AVAFC^VAFCDD01(DA)"
^DD(2,391,1,991,"%D",0)="^^15^15^2990204^^^^"
^DD(2,391,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,391,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,391,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,391,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,391,1,991,"%D",5,0)=" "
^DD(2,391,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,391,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,391,1,991,"%D",8,0)="process."
^DD(2,391,1,991,"%D",9,0)=" "
^DD(2,391,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,391,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,391,1,991,"%D",12,0)="  "
^DD(2,391,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,391,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,391,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,391,1,991,"DT")="2970825"
^DD(2,391,3)="Choose from the available listing the PATIENT TYPE which best classifies this patient."
^DD(2,391,20,0)="^.3LA^1^1"
^DD(2,391,20,1,0)="ECD"
^DD(2,391,21,0)="^^10^10^2990205^^^"
^DD(2,391,21,1,0)="Enter the patient type for this patient.  This is selectable from the"
^DD(2,391,21,2,0)="distributed entries in the TYPE OF PATIENT file.  The type selected should"
^DD(2,391,21,3,0)="be the primary one selectable.  For example, if the patient is both an"
^DD(2,391,21,4,0)="NSC veteran and an employee, the patient type should be NSC VETERAN, not"
^DD(2,391,21,5,0)="employee."
^DD(2,391,21,6,0)=" "
^DD(2,391,21,7,0)="This field is used by the registration screen processor to determine which"
^DD(2,391,21,8,0)="screens will be editable for this patient.  The selection of which screens"
^DD(2,391,21,9,0)="can be viewed for which types of patients can be made through the 'Patient"
^DD(2,391,21,10,0)="Type Update' option."
^DD(2,391,23,0)="^^4^4^2990205^^"
^DD(2,391,23,1,0)="The type of patient is used to determine which screens in the registration"
^DD(2,391,23,2,0)="process should be allowed for entry/edit.  The 'Patient Type Update' option"
^DD(2,391,23,3,0)="in MAS can be used to determine which screens are editable for each patient"
^DD(2,391,23,4,0)="type."
^DD(2,391,"AUDIT")="y"
^DD(2,391,"DT")="2970825"
^DD(2,401.3,0)="CONDITION^S^S:SERIOUSLY ILL;^DAC;1^Q"
^DD(2,401.3,1,0)="^.1"
^DD(2,401.3,1,1,0)="2^AS"
^DD(2,401.3,1,1,1)="S ^DPT(""AS"",$E(X,1,30),DA)="""""
^DD(2,401.3,1,1,2)="K ^DPT(""AS"",$E(X,1,30),DA)"
^DD(2,401.3,1,2,0)="^^TRIGGER^2^401.4"
^DD(2,401.3,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,""DAC"")):^(""DAC""),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X=DT S X=X X ^DD(2,401.3,1,2,1.4)"
^DD(2,401.3,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),""DAC"")):^(""DAC""),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(""DAC"")=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=401.4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,401.3,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DPT(D0,""DAC"")):^(""DAC""),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X="""" X ^DD(2,401.3,1,2,2.4)"
^DD(2,401.3,1,2,2.4)="S DIH=$S($D(^DPT(DIV(0),""DAC"")):^(""DAC""),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(""DAC"")=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=401.4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,401.3,1,2,"CREATE VALUE")="TODAY"
^DD(2,401.3,1,2,"DELETE VALUE")="@"
^DD(2,401.3,1,2,"FIELD")="DATE ENTERED ON SI LIST"
^DD(2,401.3,1,3,0)="2^AODS7^MUMPS"
^DD(2,401.3,1,3,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,401.3,1,3,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,401.3,3)="Enter 'S' if this patient is seriouslly ill or '@' to delete.  Enter nothing if the patient is not seriously ill."
^DD(2,401.3,21,0)="^^3^3^2861022^"
^DD(2,401.3,21,1,0)="Enter 'S' if the patient is seriouslly ill and should be displayed on the"
^DD(2,401.3,21,2,0)="Seriouslly Ill Roster.  Enter '@' to delete patient from seriouslly ill"
^DD(2,401.3,21,3,0)="status."
^DD(2,401.3,"DT")="2910117"
^DD(2,401.4,0)="DATE ENTERED ON SI LIST^RDX^^DAC;2^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X"
^DD(2,401.4,3)="For this seriouslly ill patient enter the date placed on the seriouslly ill roster."
^DD(2,401.4,5,1,0)="2^401.3^2"
^DD(2,401.4,21,0)="^^1^1^2861022^"
^DD(2,401.4,21,1,0)="Enter the date the patient was placed on the Seriouslly Ill list."
^DD(2,401.4,"DT")="2900313"
^DD(2,404.01,0)="*CURRENT PC PRACTITIONER^*P200'^VA(200,^PC;1^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,404.01,3)="This is the patient's Primary Care Practitioner."
^DD(2,404.01,4)="D HELP^DGPMDD(DA)"
^DD(2,404.01,12)="Select active providers only."
^DD(2,404.01,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA)"""
^DD(2,404.01,21,0)="^^1^1^2950607^^^^"
^DD(2,404.01,21,1,0)="This field stores the patient's Current Primary Care Practitioner."
^DD(2,404.01,23,0)="^^3^3^2950607^^^"
^DD(2,404.01,23,1,0)="Programmers should use the input & output APIs for this field in order"
^DD(2,404.01,23,2,0)="to be compatible with changes in the Primary Care Management Module"
^DD(2,404.01,23,3,0)="Release in winter of 1995-1996."
^DD(2,404.01,"DT")="2980812"
^DD(2,404.02,0)="*CURRENT PC TEAM^P404.51'^SCTM(404.51,^PC;2^Q"
^DD(2,404.02,3)="This is the patient's Primary Care Team."
^DD(2,404.02,21,0)="^^1^1^2950602^^^"
^DD(2,404.02,21,1,0)="This field contains the patients's Primary Care Team."
^DD(2,404.02,23,0)="^^4^4^2950602^^"
^DD(2,404.02,23,1,0)="This field points to the TEAM (#404.51) File (distributed with SD*5.3*30)."
^DD(2,404.02,23,2,0)="Programmers should use the input & output APIs for this field in order"
^DD(2,404.02,23,3,0)="to be compatible with changes in the Primary Care Management Module"
^DD(2,404.02,23,4,0)="Release in winter of 1995-1996."
^DD(2,404.02,"DT")="2980812"
^DD(2,534,0)="PH DATE/TIME UPDATED^2.0534DA^^PH;0"
^DD(2,991.01,0)="INTEGRATION CONTROL NUMBER^NJ12,0Xa^^MPI;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N)!('$D(RGRSICN)) X"
^DD(2,991.01,1,0)="^.1^^-1"
^DD(2,991.01,1,1,0)="2^AICN"
^DD(2,991.01,1,1,1)="S ^DPT(""AICN"",$E(X,1,30),DA)="""""
^DD(2,991.01,1,1,2)="K ^DPT(""AICN"",$E(X,1,30),DA)"
^DD(2,991.01,1,1,"%D",0)="^^2^2^2960807^"
^DD(2,991.01,1,1,"%D",1,0)="This is a non-lookup cross-reference for the Integration Control "
^DD(2,991.01,1,1,"%D",2,0)="Number Field."
^DD(2,991.01,1,1,"DT")="2960807"
^DD(2,991.01,1,2,0)="2^AHICN^MUMPS"
^DD(2,991.01,1,2,1)="Q"
^DD(2,991.01,1,2,2)="I $T(ICN^VAFCHIS)'="""" D ICN^VAFCHIS(X,DA)"
^DD(2,991.01,1,2,"%D",0)="^^1^1^2980114^^^^"
^DD(2,991.01,1,2,"%D",1,0)="Used to create ICN History, ICN lookup capability."
^DD(2,991.01,1,2,"DT")="2980114"
^DD(2,991.01,1,3,0)="2^AR^MUMPS"
^DD(2,991.01,1,3,1)="I $T(KILL^VAFCMIS)'="""" D KILL^VAFCMIS(DA)"
^DD(2,991.01,1,3,2)="Q"
^DD(2,991.01,1,3,"%D",0)="^^2^2^2980114^^^"
^DD(2,991.01,1,3,"%D",1,0)="Cross Reference is used to delete the 'AMPIMIS' cross reference denoting"
^DD(2,991.01,1,3,"%D",2,0)="missing ICN."
^DD(2,991.01,1,3,"DT")="2980114"
^DD(2,991.01,1,4,0)="2^AENR99101^MUMPS"
^DD(2,991.01,1,4,1)="D EVENT^IVMPLOG(DA)"
^DD(2,991.01,1,4,2)="D EVENT^IVMPLOG(DA)"
^DD(2,991.01,1,4,3)="DO NOT DELETE"
^DD(2,991.01,1,4,"%D",0)="^^2^2^2971007^^^"
^DD(2,991.01,1,4,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,991.01,1,4,"%D",2,0)="enrollment. "
^DD(2,991.01,1,4,"DT")="2971007"
^DD(2,991.01,3)="This field can only be edited by CIRN !"
^DD(2,991.01,21,0)="^.001^1^1^3050603^^^^"
^DD(2,991.01,21,1,0)="Machine to machine identifier for a patient."
^DD(2,991.01,"AUDIT")="y"
^DD(2,991.01,"DT")="3070904"
^DD(2,991.02,0)="ICN CHECKSUM^Fa^^MPI;2^K:$L(X)>6!($L(X)<6) X"
^DD(2,991.02,3)="Answer must be 6 characters in length."
^DD(2,991.02,21,0)="^.001^2^2^3010215^^^^"
^DD(2,991.02,21,1,0)="This checksum is the calculated checksum for the Integration Control"
^DD(2,991.02,21,2,0)="Number. It verifies the integrity of the ICN."
^DD(2,991.02,"AUDIT")="y"
^DD(2,991.02,"DT")="3010215"
^DD(2,991.03,0)="COORDINATING MASTER OF RECORD^P4'a^DIC(4,^MPI;3^Q"
^DD(2,991.03,1,0)="^.1"
^DD(2,991.03,1,1,0)="2^ACMOR"
^DD(2,991.03,1,1,1)="S ^DPT(""ACMOR"",$E(X,1,30),DA)="""""
^DD(2,991.03,1,1,2)="K ^DPT(""ACMOR"",$E(X,1,30),DA)"
^DD(2,991.03,1,2,0)="2^AHCMOR^MUMPS"
^DD(2,991.03,1,2,1)="Q"
^DD(2,991.03,1,2,2)="I $T(CMOR^VAFCHIS)'="""" D CMOR^VAFCHIS(X,DA)"
^DD(2,991.03,1,2,"%D",0)="^^2^2^3000731^"
^DD(2,991.03,1,2,"%D",1,0)="This cross-reference is used to create the MPICMOR history multiple for"
^DD(2,991.03,1,2,"%D",2,0)="lookup capability."
^DD(2,991.03,1,2,"DT")="3000623"
^DD(2,991.03,1,3,0)="2^AENR99103^MUMPS"
^DD(2,991.03,1,3,1)="D EVENT^IVMPLOG(DA)"
^DD(2,991.03,1,3,2)="D EVENT^IVMPLOG(DA)"
^DD(2,991.03,1,3,3)="DO NOT DELETE"
^DD(2,991.03,1,3,"%D",0)="^^2^2^2971007^^^"
^DD(2,991.03,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,991.03,1,3,"%D",2,0)="enrollment. "
^DD(2,991.03,1,3,"DT")="2971007"
^DD(2,991.03,3)="Enter the coordinating site for the patient."
^DD(2,991.03,21,0)="^.001^1^1^3010713^^^^"
^DD(2,991.03,21,1,0)="The coordinating site for the patient."
^DD(2,991.03,"AUDIT")="y"
^DD(2,991.03,"DT")="3010713"
^DD(2,991.04,0)="LOCALLY ASSIGNED ICN^Sa^1:YES;^MPI;4^Q"
^DD(2,991.04,1,0)="^.1"
^DD(2,991.04,1,1,0)="2^AICNL"
^DD(2,991.04,1,1,1)="S ^DPT(""AICNL"",$E(X,1,30),DA)="""""
^DD(2,991.04,1,1,2)="K ^DPT(""AICNL"",$E(X,1,30),DA)"
^DD(2,991.04,1,1,"%D",0)="^^1^1^2960912^"
^DD(2,991.04,1,1,"%D",1,0)="INDICATES THE ICN WAS LOCALLY ASSIGNED"
^DD(2,991.04,1,1,"DT")="2960912"
^DD(2,991.04,3)="This field will be 1 or YES if a LOCAL ICN has been assigned."
^DD(2,991.04,21,0)="^^1^1^2981223^^^^"
^DD(2,991.04,21,1,0)="DESIGNATES THAT THE ICN BELONGING TO THIS PATIENT IS LOCAL"
^DD(2,991.04,"AUDIT")="y"
^DD(2,991.04,"DT")="3060923"
^DD(2,991.05,0)="SUBSCRIPTION CONTROL NUMBER^P774'Ia^HLS(774,^MPI;5^Q"
^DD(2,991.05,1,0)="^.1"
^DD(2,991.05,1,1,0)="2^ASCN^MUMPS"
^DD(2,991.05,1,1,1)="Q"
^DD(2,991.05,1,1,2)="I '$D(DIU(0)) N DA,DIK S DIK=""^HLS(774,"",DA=X D ^DIK"
^DD(2,991.05,1,1,"%D",0)="^^4^4^2970812^"
^DD(2,991.05,1,1,"%D",1,0)="The kill logic on this cross-reference is used to selectively delete"
^DD(2,991.05,1,1,"%D",2,0)="entries from the Subscription Control File for patient merges and"
^DD(2,991.05,1,1,"%D",3,0)="deletions. Re-indexing the patient file will not affect the Subscription"
^DD(2,991.05,1,1,"%D",4,0)="Control file."
^DD(2,991.05,1,1,"DT")="2970812"
^DD(2,991.05,1,2,0)="2^ASCN2"
^DD(2,991.05,1,2,1)="S ^DPT(""ASCN2"",$E(X,1,30),DA)="""""
^DD(2,991.05,1,2,2)="K ^DPT(""ASCN2"",$E(X,1,30),DA)"
^DD(2,991.05,1,2,3)="MPI/PD XREF - DO NOT DELETE!"
^DD(2,991.05,1,2,"%D",0)="^.101^3^3^3010713^^"
^DD(2,991.05,1,2,"%D",1,0)="This cross-reference is used by Master Patient Index/ "
^DD(2,991.05,1,2,"%D",2,0)="Patient Demographics (MPI/PD) for various data validation "
^DD(2,991.05,1,2,"%D",3,0)="and reporting functions."
^DD(2,991.05,1,2,"DT")="2980609"
^DD(2,991.05,3)="Enter the patient's Subscription Control Number."
^DD(2,991.05,21,0)="^.001^6^6^3010713^^^^"
^DD(2,991.05,21,1,0)="This field points to a list of subscribers to this patient's data. For"
^DD(2,991.05,21,2,0)="example, see details of the MPI/PD messaging implementation. The subscriber"
^DD(2,991.05,21,3,0)="list is specific to this patient. Do not change the subscription control"
^DD(2,991.05,21,4,0)="number without remembering to update the current subscriber list in file"
^DD(2,991.05,21,5,0)="774 (SUBSCRIPTION CONTROL). Use only documented API calls to create a new"
^DD(2,991.05,21,6,0)="subscription control number for a patient."
^DD(2,991.05,"AUDIT")="y"
^DD(2,991.05,"DT")="3060923"
^DD(2,991.06,0)="CMOR ACTIVITY SCORE^NJ7,0a^^MPI;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(2,991.06,1,0)="^.1"
^DD(2,991.06,1,1,0)="2^ACMORS^MUMPS"
^DD(2,991.06,1,1,1)="S ^DPT(""ACMORS"",(9999999-X),DA)="""""
^DD(2,991.06,1,1,2)="K ^DPT(""ACMORS"",(9999999-X),DA)"
^DD(2,991.06,1,1,"%D",0)="^.101^6^6^3010713^^^^"
^DD(2,991.06,1,1,"%D",1,0)="This inverse cross-reference allows patients with the highest CMOR"
^DD(2,991.06,1,1,"%D",2,0)="activity score to receive priority processing. The CMOR activity"
^DD(2,991.06,1,1,"%D",3,0)="score collating sequence is reversed to process from highest to"
^DD(2,991.06,1,1,"%D",4,0)="lowest scores."
^DD(2,991.06,1,1,"%D",5,0)="This cross-reference reads:"
^DD(2,991.06,1,1,"%D",6,0)="^DPT('ACMORS',INVERSE CMOR ACTIVITY SCORE,DA)=''"
^DD(2,991.06,1,1,"DT")="2970730"
^DD(2,991.06,3)="Type a number between 0 and 9999999, 0 Decimal Digits"
^DD(2,991.06,21,0)="^^1^1^3010713^"
^DD(2,991.06,21,1,0)="This score is used to determine the Coordinating Master of Record."
^DD(2,991.06,"AUDIT")="y"
^DD(2,991.06,"DT")="3060923"
^DD(2,991.07,0)="SCORE CALCULATION DATE^Da^^MPI;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,991.07,3)="This is the last date that the CMOR Activity Score was calculated at this site."
^DD(2,991.07,21,0)="^^2^2^2990111^^^^"
^DD(2,991.07,21,1,0)="This is the last date that the CMOR ACTIVITY SCORE was calculated"
^DD(2,991.07,21,2,0)="at this site."
^DD(2,991.07,"AUDIT")="y"
^DD(2,991.07,"DT")="3060923"
^DD(2,992,0)="ICN HISTORY^2.0992A^^MPIFHIS;0"
^DD(2,993,0)="CMOR HISTORY^2.0993A^^MPICMOR;0"
^DD(2,994,0)="MULTIPLE BIRTH INDICATOR^Sa^N:NO;Y:*MULTIPLE BIRTH*;^MPIMB;1^Q"
^DD(2,994,3)="Is the patient part of a multiple birth?"
^DD(2,994,21,0)="^.001^3^3^3030519^^^^"
^DD(2,994,21,1,0)="The MULTIPLE BIRTH INDICATOR will designate whether or not"
^DD(2,994,21,2,0)="the patient is part of a multiple birth (i.e. to identify"
^DD(2,994,21,3,0)="twins, etc.)."
^DD(2,994,"AUDIT")="y"
^DD(2,994,"DT")="3060923"
^DD(2,999,0)="ABSENCE DIVISION^CJ15^^ ; ^S X=$S($D(^UTILITY($J,""DG"",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,11),1:0),X=$S($D(^DG(40.8,+X,0)):$P(^(0),U,1),1:"""")"
^DD(2,999,.1)="ABSENCE DIVISION"
^DD(2,999,9)="^"
^DD(2,999,9.01)=""
^DD(2,999,9.1)="S X=$S($D(^UTILITY($J,""DG"",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,11),1:0),X=$S($D(^DG(40.8,+X,0)):$P(^(0),U,1),1:"""")"
^DD(2,999,21,0)="^^1^1^2900404^^^^"
^DD(2,999,21,1,0)="Computed field used in Absence list. For programmers only."
^DD(2,999,"DT")="2850718"
^DD(2,999.1,0)="INPATIENT WARD^CJ10^^ ; ^S X=$S($D(^UTILITY($J,""DG"",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,1),1:"""")"
^DD(2,999.1,.1)="INPATIENT WARD"
^DD(2,999.1,9)="^"
^DD(2,999.1,9.01)=""
^DD(2,999.1,9.1)="S X=$S($D(^UTILITY($J,""DG"",D0)):^(D0),1:0),X=$S($D(^DIC(42,+$P(X,U,4),0)):$P(^(0),U,1),1:"""")"
^DD(2,999.1,21,0)="^^1^1^2900409^^"
^DD(2,999.1,21,1,0)="For use in historical inpatient list. For programmers only"
^DD(2,999.1,"DT")="2850808"
^DD(2,999.2,0)="LAST MEANS TEST^CJ15^^ ; ^S X1=$$LST^DGMTU(D0),Y=$P(X1,U,2) D DD^%DT S X=Y"
^DD(2,999.2,9)="^"
^DD(2,999.2,9.01)=""
^DD(2,999.2,9.1)="S X1=$$LST^DGMTU(D0),Y=$P(X1,U,2) D DD^%DT S X=Y"
^DD(2,999.2,"DT")="2930423"
^DD(2,1000,0)="DISPOSITION LOG-IN DATE/TIME^2.101DA^^DIS;0"
^DD(2,1000,3)="Enter the date/time this patient was registered for care."
^DD(2,1000,21,0)="6^^6^6^2930603^^^^"
^DD(2,1000,21,1,0)="The date/time at which this applicant applied for medical benefits, e.g.,"
^DD(2,1000,21,2,0)="was registered for care using the 'Registration' option of ADT."
^DD(2,1000,21,3,0)=" "
^DD(2,1000,21,4,0)="This multiple contains information on each registration entered for this"
^DD(2,1000,21,5,0)="patient including the date of registration, date of disposition, and type"
^DD(2,1000,21,6,0)="of disposition."
^DD(2,1000,23,0)="^^6^6^2930603^^"
^DD(2,1000,23,1,0)="The date/time at which this applicant applied for medical benefits, e.g.,"
^DD(2,1000,23,2,0)="was registered for care using the 'Registration' option of ADT."
^DD(2,1000,23,3,0)=" "
^DD(2,1000,23,4,0)="This multiple contains information on each registration entered for this"
^DD(2,1000,23,5,0)="patient including the date of registration, date of disposition, and type"
^DD(2,1000,23,6,0)="of disposition."
^DD(2,1010.15,0)="RECEIVED VA CARE PREVIOUSLY?^RS^Y:YES;N:NO;^1010.15;5^Q"
^DD(2,1010.15,.1)="HAVE YOU PREVIOUSLY RECEIVED CARE IN A VA FACILITY"
^DD(2,1010.15,1,0)="^.1"
^DD(2,1010.15,1,1,0)="^^TRIGGER^2^1010.151"
^DD(2,1010.15,1,1,1)="X ^DD(2,1010.15,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2,1010.15,1,1,1.4)"
^DD(2,1010.15,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,1010.15,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'[""Y"""
^DD(2,1010.15,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(1010.15)=DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=1010.151 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,1010.15,1,1,2)="Q"
^DD(2,1010.15,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(2,1010.15,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)'[""Y"""
^DD(2,1010.15,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(1010.15)=DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=1010.151 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,1010.15,1,1,"CREATE CONDITION")="#1010.15'[""Y"""
^DD(2,1010.15,1,1,"CREATE VALUE")="@"
^DD(2,1010.15,1,1,"DELETE CONDITION")="#1010.15'[""Y"""
^DD(2,1010.15,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2,1010.15,1,1,"FIELD")="#1010.151"
^DD(2,1010.15,3)="Has this patient received care in a VA previously."
^DD(2,1010.15,21,0)="^^2^2^2861007^"
^DD(2,1010.15,21,1,0)="Enter 'Y' if this veteran has previously received care in another VA"
^DD(2,1010.15,21,2,0)="facility, otherwise enter 'N'."
^DD(2,1010.15,"DT")="2870120"
^DD(2,1010.151,0)="MOST RECENT DATE OF CARE^DX^^1010.15;1^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(2,1010.151,1,0)="^.1"
^DD(2,1010.151,1,1,0)="^^TRIGGER^2^1010.152"
^DD(2,1010.151,1,1,1)="Q"
^DD(2,1010.151,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P(Y(1),U,1)="""" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(2,1010.151,1,1,2.4)"
^DD(2,1010.151,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(1010.15)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=1010.152 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,1010.151,1,1,"CREATE VALUE")="NO EFFECT"
^DD(2,1010.151,1,1,"DELETE CONDITION")="MOST RECENT DATE OF CARE="""""
^DD(2,1010.151,1,1,"DELETE VALUE")="@"
^DD(2,1010.151,1,1,"FIELD")="MOST RECENT LOCATION OF CARE"
^DD(2,1010.151,1,2,0)="^^TRIGGER^2^1010.153"
^DD(2,1010.151,1,2,1)="Q"
^DD(2,1010.151,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P(Y(1),U,1)="""" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(2,1010.151,1,2,2.4)"
^DD(2,1010.151,1,2,2.4)="S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(1010.15)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=1010.153 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,1010.151,1,2,"CREATE VALUE")="NO EFFECT"
^DD(2,1010.151,1,2,"DELETE CONDITION")="MOST RECENT DATE OF CARE="""""
^DD(2,1010.151,1,2,"DELETE VALUE")="@"
^DD(2,1010.151,1,2,"FIELD")="2ND MOST RECENT DATE OF CARE"
^DD(2,1010.151,3)="Enter the most recent date of care in a VA facility."
^DD(2,1010.151,5,1,0)="2^1010.15^1"
^DD(2,1010.151,21,0)="^^2^2^2861007^"
^DD(2,1010.151,21,1,0)="If this veteran has previously received care in another VA facility"
^DD(2,1010.151,21,2,0)="enter the date of care in that facility."
^DD(2,1010.151,"DT")="2900418"
^DD(2,1010.1511,0)="APPOINTMENT REQUEST DATE^D^^1010.15;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,1010.1511,1,0)="^.1"
^DD(2,1010.1511,1,1,0)="2^AENR10101511^MUMPS"
^DD(2,1010.1511,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,1010.1511,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,1010.1511,1,1,3)=" DO NOT DELETE"
^DD(2,1010.1511,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2,1010.1511,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,1010.1511,1,1,"%D",2,0)="enrollment."
^DD(2,1010.1511,1,1,"DT")="3050913"
^DD(2,1010.1511,3)="Enter date VA was notified the enrolling patient is requesting an appointment."
^DD(2,1010.1511,21,0)="^^2^2^3041118^"
^DD(2,1010.1511,21,1,0)="This field contains the date the VA enrolling a patient for the first time"
^DD(2,1010.1511,21,2,0)="was notified that the patient requests an appointment with a provider."
^DD(2,1010.1511,"DT")="3041118"
^DD(2,1010.152,0)="MOST RECENT LOCATION OF CARE^P4'^DIC(4,^1010.15;2^Q"
^DD(2,1010.152,3)="Enter the VA in which care was received most recently."
^DD(2,1010.152,5,1,0)="2^1010.151^1"
^DD(2,1010.152,21,0)="^^3^3^2861007^"
^DD(2,1010.152,21,1,0)="If this veteran have previously received care in another VA facility"
^DD(2,1010.152,21,2,0)="select from the available listing the name of the facility (or facility"
^DD(2,1010.152,21,3,0)="number) in which care was rendered most recently."
^DD(2,1010.152,"DT")="2840313"
^DD(2,1010.153,0)="2ND MOST RECENT DATE OF CARE^DX^^1010.15;3^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(2,1010.153,1,0)="^.1"
^DD(2,1010.153,1,1,0)="^^TRIGGER^2^1010.154"
^DD(2,1010.153,1,1,1)="Q"
^DD(2,1010.153,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^DPT(D0,1010.15)):^(1010.15),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(2,1010.153,1,1,2.4)"
^DD(2,1010.153,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),1010.15)):^(1010.15),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(1010.15)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=1010.154 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2,1010.153,1,1,"CREATE VALUE")="NO EFFECT"
^DD(2,1010.153,1,1,"DELETE CONDITION")="2ND MOST RECENT DATE OF CARE="""""
^DD(2,1010.153,1,1,"DELETE VALUE")="@"
^DD(2,1010.153,1,1,"FIELD")="#1010.154"
^DD(2,1010.153,3)="Enter the date of care this patient received care in another VA facility."
^DD(2,1010.153,5,1,0)="2^1010.151^2"
^DD(2,1010.153,21,0)="^^2^2^2861007^"
^DD(2,1010.153,21,1,0)="If this applicant has received care in more than one other VA facility"
^DD(2,1010.153,21,2,0)="enter the date of care received in the next to most recent facility."
^DD(2,1010.153,"DT")="2900418"
^DD(2,1010.154,0)="2ND MOST RECENT LOCATION^P4'^DIC(4,^1010.15;4^Q"
^DD(2,1010.154,3)="Enter the location of care (VA facility) this patient received other care."
^DD(2,1010.154,5,1,0)="2^1010.153^1"
^DD(2,1010.154,21,0)="^^3^3^2861007^"
^DD(2,1010.154,21,1,0)="If this veteran has received care in more than one other VA facility"
^DD(2,1010.154,21,2,0)="select from the available listing the name of the facility (or facility"
^DD(2,1010.154,21,3,0)="number) in which the next to most recent care was received."
^DD(2,1010.154,"DT")="2840313"
^DD(2,1010.156,0)="MOST RECENT 1010EZ^P712'I^EAS(712,^1010.15;6^Q"
^DD(2,1010.156,21,0)="^.001^7^7^3040419^^^^"
^DD(2,1010.156,21,1,0)="This field was added via patch DG*5.3*597, distributed with EAS*1.0*51."
^DD(2,1010.156,21,2,0)="  "
^DD(2,1010.156,21,3,0)="The purpose of this field is to link the PATIENT file record with"
^DD(2,1010.156,21,4,0)="the Veteran's latest 1010EZ Application to this site.  The 1010EZ"
^DD(2,1010.156,21,5,0)="data is retained in 1010EZ HOLDING File (#712).  The internal entry"
^DD(2,1010.156,21,6,0)="number to file #712 is stored in the MOST RECENT 1010EZ field."
^DD(2,1010.156,21,7,0)="  "
^DD(2,1010.156,"DT")="3040420"
^DD(2,1010.157,0)="COMBAT INDICATED ON 1010EZ^S^0:NO;1:YES;^1010.15;7^Q"
^DD(2,1010.157,21,0)="^^13^13^3040416^"
^DD(2,1010.157,21,1,0)="This field was added via patch DG*5.3*597, distributed with EAS*1.0*51."
^DD(2,1010.157,21,2,0)=" "
^DD(2,1010.157,21,3,0)="The purpose of this field is to store within the PATIENT file the"
^DD(2,1010.157,21,4,0)="applicant's answer to the 1010EZ question:"
^DD(2,1010.157,21,5,0)=" "
^DD(2,1010.157,21,6,0)="    DID YOU SERVE IN COMBAT AFTER 11/11/1998?"
^DD(2,1010.157,21,7,0)=" "
^DD(2,1010.157,21,8,0)="This field may contain any of the following:"
^DD(2,1010.157,21,9,0)=" "
^DD(2,1010.157,21,10,0)="    0 for ""NO"""
^DD(2,1010.157,21,11,0)="    1 for ""YES"""
^DD(2,1010.157,21,12,0)="    null (i.e., not answered)"
^DD(2,1010.157,21,13,0)=" "
^DD(2,1010.157,"DT")="3040416"
^DD(2,1010.158,0)="DISABILITY DISCHARGE ON 1010EZ^S^0:NO;1:YES;^1010.15;8^Q"
^DD(2,1010.158,21,0)="^.001^14^14^3040419^^"
^DD(2,1010.158,21,1,0)="This field was added via patch DG*5.3*597, distributed with EAS*1.0*51."
^DD(2,1010.158,21,2,0)=" "
^DD(2,1010.158,21,3,0)="The purpose of this field is to store within the PATIENT file the"
^DD(2,1010.158,21,4,0)="applicant's answer to the 1010EZ question:"
^DD(2,1010.158,21,5,0)=" "
^DD(2,1010.158,21,6,0)="WAS DISCHARGE FROM MILITARY FOR A DISABILITY INCURRED OR"
^DD(2,1010.158,21,7,0)="AGGRAVATED IN THE LINE OF DUTY?"
^DD(2,1010.158,21,8,0)=" "
^DD(2,1010.158,21,9,0)="This field may contain any of the following:"
^DD(2,1010.158,21,10,0)=" "
^DD(2,1010.158,21,11,0)="    0 for ""NO"""
^DD(2,1010.158,21,12,0)="    1 for ""YES"""
^DD(2,1010.158,21,13,0)="    null (i.e., not answered)"
^DD(2,1010.158,21,14,0)=" "
^DD(2,1010.158,"DT")="3040416"
^DD(2,1010.159,0)="APPOINTMENT REQUEST ON 1010EZ^S^0:NO;1:YES;^1010.15;9^Q"
^DD(2,1010.159,.1)="Do you want an appt. with a VA doctor/provider as soon as available? "
^DD(2,1010.159,1,0)="^.1"
^DD(2,1010.159,1,1,0)="2^AENR1010159^MUMPS"
^DD(2,1010.159,1,1,1)="D EVENT^IVMPLOG(DA)"
^DD(2,1010.159,1,1,2)="D EVENT^IVMPLOG(DA)"
^DD(2,1010.159,1,1,3)=" DO NOT DELETE"
^DD(2,1010.159,1,1,"%D",0)="^.101^2^2^3050627^^^^"
^DD(2,1010.159,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2,1010.159,1,1,"%D",2,0)="enrollment."
^DD(2,1010.159,1,1,"DT")="3050627"
^DD(2,1010.159,3)="Enter 'Y' if the veteran applicant has requested an appointment with a VA doctor/provider."
^DD(2,1010.159,4)=""
^DD(2,1010.159,21,0)="^.001^7^7^3050225^^^^"
^DD(2,1010.159,21,1,0)="Enter a 'Y' if the veteran applicant has requested an appointment with a"
^DD(2,1010.159,21,2,0)="VA doctor or provider and wants to be seen as soon as one becomes"
^DD(2,1010.159,21,3,0)="available.  Enter a 'N' if the veteran applicant has not requested an"
^DD(2,1010.159,21,4,0)="appointment."
^DD(2,1010.159,21,5,0)=" "
^DD(2,1010.159,21,6,0)="This question may ONLY be entered ONCE for the veteran.  The answer to"
^DD(2,1010.159,21,7,0)="this question CANNOT be changed after the initial entry."
^DD(2,1010.159,23,0)="^.001^2^2^3050225^^^^"
^DD(2,1010.159,23,1,0)="This field reflects the a request indicated on the patient's initial "
^DD(2,1010.159,23,2,0)="1010EZ."
^DD(2,1010.159,"DT")="3050112"
^DD(2,1100.01,0)="FUGITIVE FELON FLAG^SX^1:YES;^FFP;1^I $D(X) D FFP^DGLOCK"
^DD(2,1100.01,1,0)="^.1"
^DD(2,1100.01,1,1,0)="2^AUFFP^MUMPS"
^DD(2,1100.01,1,1,1)="S DGFFF=X,X=""DGFFP01"" X ^%ZOSF(""TEST"") D:$T DD^DGFFP01(DA) S X=DGFFF K DGFFF"
^DD(2,1100.01,1,1,2)="S DGFFF=X,X=""DGFFP01"" X ^%ZOSF(""TEST"") D:$T DD^DGFFP01(DA) S X=DGFFF K DGFFF"
^DD(2,1100.01,1,1,"%D",0)="^.101^5^5^3021113^^^^"
^DD(2,1100.01,1,1,"%D",1,0)="This cross-reference is used to set the following fields:"
^DD(2,1100.01,1,1,"%D",2,0)="   FFF ENTERED BY (#1100.02)"
^DD(2,1100.01,1,1,"%D",3,0)="   FFF DATE ENTERED (#1100.03)"
^DD(2,1100.01,1,1,"%D",4,0)="   FFF REMOVED BY (#1100.04)"
^DD(2,1100.01,1,1,"%D",5,0)="   FFF DATE REMOVED (#1100.05)"
^DD(2,1100.01,1,1,"DT")="3021113"
^DD(2,1100.01,1,2,0)="2^AXFFP"
^DD(2,1100.01,1,2,1)="S ^DPT(""AXFFP"",$E(X,1,30),DA)="""""
^DD(2,1100.01,1,2,2)="K ^DPT(""AXFFP"",$E(X,1,30),DA)"
^DD(2,1100.01,1,2,"%D",0)="^^3^3^3021108^"
^DD(2,1100.01,1,2,"%D",1,0)="This cross-reference is used for sorting patients that have the Fugitive "
^DD(2,1100.01,1,2,"%D",2,0)="Felon Flag set.  If the flag is not set, a cross-reference will not exist "
^DD(2,1100.01,1,2,"%D",3,0)="for the patient."
^DD(2,1100.01,1,2,"DT")="3021108"
^DD(2,1100.01,3)="Respond 'YES' if a Fugitive Felon warrent has been received for this patient"
^DD(2,1100.01,20,0)="^.3LA^1^1"
^DD(2,1100.01,20,1,0)="FFP"
^DD(2,1100.01,21,0)="^^6^6^3021112^"
^DD(2,1100.01,21,1,0)="This field is in support of Pub. L. 107-103, section 505, and is used to "
^DD(2,1100.01,21,2,0)="flag a patient who has a fugitive felon warrant outstanding.  This "
^DD(2,1100.01,21,3,0)="information will be provided to the appropriate personnel to enter.  "
^DD(2,1100.01,21,4,0)="Access to this field requires the DGFFP ACCESS key.  This field should "
^DD(2,1100.01,21,5,0)="not be updated directly, but should be entered through the appropriate "
^DD(2,1100.01,21,6,0)="Fugitive Felon Program options."
^DD(2,1100.01,"DEL",1,0)="D FFP^DGLOCK I '$D(X)"
^DD(2,1100.01,"DT")="3021113"
^DD(2,1100.02,0)="FFF ENTERED BY^P200'^VA(200,^FFP;2^Q"
^DD(2,1100.02,3)="Select the user who is setting the current Fugitive Felon Flag"
^DD(2,1100.02,9)="^"
^DD(2,1100.02,20,0)="^.3LA^2^2"
^DD(2,1100.02,20,1,0)="ffp"
^DD(2,1100.02,20,2,0)="FFP"
^DD(2,1100.02,21,0)="^^3^3^3021112^"
^DD(2,1100.02,21,1,0)="This field contains the user who entered the current Fugtitive Felon Flag"
^DD(2,1100.02,21,2,0)="for this patient.  It is automatically entered when the FUGITIVE FELON"
^DD(2,1100.02,21,3,0)="FLAG field (#1100.01) is entered."
^DD(2,1100.02,23,0)="^.001^2^2^3021112^^^^"
^DD(2,1100.02,23,1,0)="This field can only be set by the appropriate option and cannot be set "
^DD(2,1100.02,23,2,0)="through Fileman."
^DD(2,1100.02,"DT")="3021112"
^DD(2,1100.03,0)="FFF DATE ENTERED^D^^FFP;3^S %DT=""ETXR"" D ^%DT S X=Y K:X<1 X"
^DD(2,1100.03,3)="(No range limit on date)"
^DD(2,1100.03,20,0)="^.3LA^1^1"
^DD(2,1100.03,20,1,0)="FFP"
^DD(2,1100.03,21,0)="^.001^3^3^3021112^^^^"
^DD(2,1100.03,21,1,0)="Date/Time the FUGITIVE FELON FLAG field (#1100.01) was entered.  This "
^DD(2,1100.03,21,2,0)="field is automatically set when the FUGITIVE FELON FLAG field (#1100.01)"
^DD(2,1100.03,21,3,0)="is set."
^DD(2,1100.03,23,0)="^.001^2^2^3021112^^^"
^DD(2,1100.03,23,1,0)="This field can only be set through the appropriate option, it cannot be "
^DD(2,1100.03,23,2,0)="set through FileMan."
^DD(2,1100.03,"DT")="3021205"
^DD(2,1100.04,0)="FFF REMOVED BY^P200'^VA(200,^FFP;4^Q"
^DD(2,1100.04,3)="Select the user who removed the Fugitive Felon Flag"
^DD(2,1100.04,9)="^"
^DD(2,1100.04,20,0)="^.3LA^1^1"
^DD(2,1100.04,20,1,0)="FFP"
^DD(2,1100.04,21,0)="^^3^3^3021112^"
^DD(2,1100.04,21,1,0)="This field contains the user who removed the current Fugitive Felon Flag"
^DD(2,1100.04,21,2,0)="for this patient.  It is automatically entered when the FUGITIVE FELON FLAG"
^DD(2,1100.04,21,3,0)="field (#1100.01) is deleted."
^DD(2,1100.04,23,0)="^.001^2^2^3021112^^^"
^DD(2,1100.04,23,1,0)="This field can only be modified through the appropriate options, it "
^DD(2,1100.04,23,2,0)="cannot be modified through FileMan."
^DD(2,1100.04,"DT")="3021112"
^DD(2,1100.05,0)="FFF DATE REMOVED^D^^FFP;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2,1100.05,3)="Enter the date and time the Fugitive Felon Flag is removed"
^DD(2,1100.05,9)="^"
^DD(2,1100.05,20,0)="^.3LA^1^1"
^DD(2,1100.05,20,1,0)="FFP"
^DD(2,1100.05,21,0)="^^3^3^3021112^"
^DD(2,1100.05,21,1,0)="Date/Time the FUGITIVE FELON FLAG Field (#1100.01) was removed.  This "
^DD(2,1100.05,21,2,0)="field is automatically set when the FUGITIVE FELON FLAG field (#1100.01)"
^DD(2,1100.05,21,3,0)="is deleted."
^DD(2,1100.05,23,0)="^.001^2^2^3021112^^"
^DD(2,1100.05,23,1,0)="This field can only be set through the appropriate option and cannot be "
^DD(2,1100.05,23,2,0)="directly set."
^DD(2,1100.05,"DT")="3021112"
^DD(2,1100.09,0)="FFF REMOVAL REMARKS^F^^FFP;9^K:$L(X)>80!($L(X)<2) X"
^DD(2,1100.09,3)="Answer must be 2-80 characters in length.  This is a short comment about clearing this flag."
^DD(2,1100.09,9)="^"
^DD(2,1100.09,21,0)="^^1^1^3021204^^"
^DD(2,1100.09,21,1,0)="If the FFF flag has been cleared for this patient, this field contains a short reason as to why the flag was cleared.  This is a free text field which allows up to 80 characters to be entered."
^DD(2,1100.09,"DT")="3021204"
^DD(2,1900,0)="APPOINTMENT^2.98P^^S;0"
^DD(2,1900,9)="^"
^DD(2,1900,21,0)="^^3^3^2930924^^^^"
^DD(2,1900,21,1,0)="This multiple contains information on appointments this patient has had or"
^DD(2,1900,21,2,0)="is scheduled to have.  This information includes the date/time of the"
^DD(2,1900,21,3,0)="appointment, the clinic, and the reason for the appointment."
^DD(2,1901,0)="VETERAN (Y/N)?^RSXa^Y:YES;N:NO;^VET;1^I $D(X) S:'$D(DPTX) DFN=DA D:'$D(^XUSEC(""DG ELIGIBILITY"",DUZ)) VAGE^DGLOCK:X=""Y"" I $D(X) D:$D(DFN) EV^DGLOCK"
^DD(2,1901,.1)=""
^DD(2,1901,1,0)="^.1"
^DD(2,1901,1,1,0)="2^AN^MUMPS"
^DD(2,1901,1,1,1)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,1901,1,1,2)="S DFN=DA D EN^DGMTCOR K DGMTCOR"
^DD(2,1901,1,1,"%D",0)="^^3^3^2930121^^^^"
^DD(2,1901,1,1,"%D",1,0)="This cross reference acts like a trigger.  It 'triggers' the status field"
^DD(2,1901,1,1,"%D",2,0)="in file 408.31 (ANNUAL MEANS TEST) for the co-pay exemption test.  It"
^DD(2,1901,1,1,"%D",3,0)="will update the field to 'NO LONGER APPLICABLE' if appropriate."
^DD(2,1901,1,1,"DT")="2930121"
^DD(2,1901,1,2,0)="2^AN1^MUMPS"
^DD(2,1901,1,2,1)="S DFN=DA D EN^DGRP7CC"
^DD(2,1901,1,2,2)="S DFN=DA D EN^DGRP7CC"
^DD(2,1901,1,2,"%D",0)="^^2^2^3060316^"
^DD(2,1901,1,2,"%D",1,0)="THIS CROSS REFERENCE CONTAINS TRIGGERS TO DELETE DATA FROM SPECIFIED"
^DD(2,1901,1,2,"%D",2,0)="FIELDS WHEN THE 'VETERAN (Y/N)' FIELD IS CHANGED TO ""NO""."
^DD(2,1901,1,2,"DT")="3060316"
^DD(2,1901,1,3,0)="^^TRIGGER^2^.301"
^DD(2,1901,1,3,1)="X ^DD(2,1901,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.3)):^(.3),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(2,1901,1,3,1.4)"
^DD(2,1901,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(2,1901,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'[""Y"""
^DD(2,1901,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.3)):^(.3),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.3)=DIV_$S(%]"""":U_%,1:""""),DIH=2,DIG=.301 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2,1901,1,3,2)="Q"
^DD(2,1901,1,3,"CREATE CONDITION")="#1901'[""Y"""
^DD(2,1901,1,3,"CREATE VALUE")="""N"""
^DD(2,1901,1,3,"DELETE VALUE")="NO EFFECT"
^DD(2,1901,1,3,"FIELD")="#.301"
^DD(2,1901,1,4,0)="2^AENR1901^MUMPS"
^DD(2,1901,1,4,1)="D AUTOUPD^DGENA2(DA)"
^DD(2,1901,1,4,2)="D AUTOUPD^DGENA2(DA)"
^DD(2,1901,1,4,3)="DO NOT DELETE"
^DD(2,1901,1,4,"%D",0)="^^1^1^2980225^"
^DD(2,1901,1,4,"%D",1,0)="This cross-reference will be used to update the patient's enrollment."
^DD(2,1901,1,4,"DT")="2980225"
^DD(2,1901,1,991,0)="2^AVAFC1901^MUMPS"
^DD(2,1901,1,991,1)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF=""1901;"" D AVAFC^VAFCDD01(DA)"
^DD(2,1901,1,991,2)="I ($T(AVAFC^VAFCDD01)'="""") S VAFCF=""1901;"" D AVAFC^VAFCDD01(DA)"
^DD(2,1901,1,991,"%D",0)="^^15^15^2990204^^"
^DD(2,1901,1,991,"%D",1,0)="This cross reference is used to remember that changes were made to the"
^DD(2,1901,1,991,"%D",2,0)="PATIENT file (#2) outside of the Registration process.  Execution of this"
^DD(2,1901,1,991,"%D",3,0)="cross reference will create an entry in the ADT/HL7 PIVOT file (#391.71)"
^DD(2,1901,1,991,"%D",4,0)="and mark it as requiring transmission of an HL7 ADT-A08 message."
^DD(2,1901,1,991,"%D",5,0)=" "
^DD(2,1901,1,991,"%D",6,0)="The local variable VAFCFLG will be set to 1 if the cross reference is"
^DD(2,1901,1,991,"%D",7,0)="not executed because the change is being made from within the Registration"
^DD(2,1901,1,991,"%D",8,0)="process."
^DD(2,1901,1,991,"%D",9,0)=" "
^DD(2,1901,1,991,"%D",10,0)="Execution of this cross reference can be prevented by setting the local"
^DD(2,1901,1,991,"%D",11,0)="variable VAFCA08 equal to 1."
^DD(2,1901,1,991,"%D",12,0)="  "
^DD(2,1901,1,991,"%D",13,0)="The local variable VAFCF is used to identify the field edited."
^DD(2,1901,1,991,"%D",14,0)="This data is stored in the FIELD(S) EDITED (#2.1) field in the "
^DD(2,1901,1,991,"%D",15,0)="ADT/HL7 PIVOT file (#391.71)."
^DD(2,1901,1,991,"DT")="2990204"
^DD(2,1901,1,992,0)="2^ADGRU1901^MUMPS"
^DD(2,1901,1,992,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,1901,1,992,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DA)"
^DD(2,1901,1,992,"%D",0)="^^9^9^2990921^"
^DD(2,1901,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a "
^DD(2,1901,1,992,"%D",2,0)="monitored data field in the PATIENT File (#2) required for a vendor"
^DD(2,1901,1,992,"%D",3,0)="RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(2,1901,1,992,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(2,1901,1,992,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(2,1901,1,992,"%D",6,0)="interface."
^DD(2,1901,1,992,"%D",7,0)=" "
^DD(2,1901,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is"
^DD(2,1901,1,992,"%D",9,0)="not to be executed as part of a re-indexing."
^DD(2,1901,1,992,"DT")="2990921"
^DD(2,1901,3)="Is this patient requesting care as a veteran of the U.S. Armed Forces?"
^DD(2,1901,20,0)="^.3LA^2^2"
^DD(2,1901,20,1,0)="ECD"
^DD(2,1901,20,2,0)="SVC"
^DD(2,1901,21,0)="^.001^5^5^3010125^^^^"
^DD(2,1901,21,1,0)="Enter 'Y' if this applicant is over 17 years of age and is a veteran,"
^DD(2,1901,21,2,0)="'N' if not.  If applicant is under 17 years of age and is a veteran"
^DD(2,1901,21,3,0)="only those users holding the designated security may identify him/her"
^DD(2,1901,21,4,0)="as a veteran.  Once eligibility is verified only those users who"
^DD(2,1901,21,5,0)="hold the designated security key may enter/edit this field."
^DD(2,1901,"AUDIT")="y"
^DD(2,1901,"DEL",1,0)="S DFN=DA D EV^DGLOCK I '$D(X)"
^DD(2,1901,"DT")="3060802"
^DD(2,1903,0)="ARCHIVED DATA^2.12SA^^ARCH;0"
^DD(2,1903,21,0)="^^5^5^2911226^^"
^DD(2,1903,21,1,0)="This multiple is not presently used by the MAS module.  Archiving"
^DD(2,1903,21,2,0)="capabilities for the patient file are not yet available."
^DD(2,1903,21,3,0)=" "
^DD(2,1903,21,4,0)="This multiple was distributed in 1987, but the archiving routines were"
^DD(2,1903,21,5,0)="not distributed."
^DD(2,11500.01,0)="INITIAL ODS TREATMENT RECEIVED^D^^ODS;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2,11500.01,3)="Enter the date/time this patient was initially seen for an ODS related treatment."
^DD(2,11500.01,5,1,0)="2^.323^2"
^DD(2,11500.01,9)="^"
^DD(2,11500.01,21,0)="^^3^3^2910112^"
^DD(2,11500.01,21,1,0)="Enter the date/time this patient was initially entered as ODS.  This field"
^DD(2,11500.01,21,2,0)="will automatically be created when ODS is selected as the PERIOD OF SERVICE"
^DD(2,11500.01,21,3,0)="for this patient."
^DD(2,11500.01,"DT")="2910112"
^DD(2,11500.02,0)="RECALLED TO ACTIVE DUTY^S^0:NO;1:NATIONAL GUARD;2:RESERVES;^ODS;2^Q"
^DD(2,11500.02,1,0)="^.1"
^DD(2,11500.02,1,1,0)="2^AODS6^MUMPS"
^DD(2,11500.02,1,1,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,11500.02,1,1,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,11500.02,3)="Was this ODS patient recalled to active duty?"
^DD(2,11500.02,21,0)="^^2^2^2910112^"
^DD(2,11500.02,21,1,0)="Was this operation desert shield patient recalled to active duty?  If so"
^DD(2,11500.02,21,2,0)="select from national guard or reserves.  If not, answer no."
^DD(2,11500.02,"DT")="2910118"
^DD(2,11500.03,0)="RANK^*P25002.1'^DIC(25002.1,^ODS;3^S DIC(""S"")=""I '$P(^(0),""""^"""",4),(""""^e^c^""""[(""""^""""_$P(^(0),""""^"""",2)_""""^""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2,11500.03,1,0)="^.1"
^DD(2,11500.03,1,1,0)="2^AODS5^MUMPS"
^DD(2,11500.03,1,1,1)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,11500.03,1,1,2)="S A1B2TAG=""PAT"" D ^A1B2XFR"
^DD(2,11500.03,3)="Enter the grade/rank of this ODS patient"
^DD(2,11500.03,12)="Only active ranks (no federal employees)"
^DD(2,11500.03,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",4),(""""^e^c^""""[(""""^""""_$P(^(0),""""^"""",2)_""""^""""))"""
^DD(2,11500.03,21,0)="^^1^1^2990426^^"
^DD(2,11500.03,21,1,0)="Enter the grade/rank of this operation desert shield patient."
^DD(2,11500.03,"DT")="2910117"
^DD(2,537025,0)="NETWORK IDENTIFIER^F^^537025;1^K:$L(X)>33!($L(X)<1) X"
^DD(2,537025,3)="Answer must be 1-33 characters in length."
^DD(2,537025,21,0)="^^3^3^2951215^"
^DD(2,537025,21,1,0)="This field holds the synonym values from the Network Health Exchange"
^DD(2,537025,21,2,0)="Authorized Site file indicating where a particular patient has been found"
^DD(2,537025,21,3,0)="to have data."
^DD(2,537025,"DT")="2951215"
^DD(2,"AUDIT",.01)=""
^DD(2,"AUDIT",.02)=""
^DD(2,"AUDIT",.03)=""
^DD(2,"AUDIT",.05)=""
^DD(2,"AUDIT",.08)=""
^DD(2,"AUDIT",.09)=""
^DD(2,"AUDIT",.111)=""
^DD(2,"AUDIT",.1112)=""
^DD(2,"AUDIT",.112)=""
^DD(2,"AUDIT",.113)=""
^DD(2,"AUDIT",.114)=""
^DD(2,"AUDIT",.115)=""
^DD(2,"AUDIT",.117)=""
^DD(2,"AUDIT",.131)=""
^DD(2,"AUDIT",.132)=""
^DD(2,"AUDIT",.211)=""
^DD(2,"AUDIT",.219)=""
^DD(2,"AUDIT",.2403)=""
^DD(2,"AUDIT",.301)=""
^DD(2,"AUDIT",.302)=""
^DD(2,"AUDIT",.31115)=""
^DD(2,"AUDIT",.313)=""
^DD(2,"AUDIT",.323)=""
^DD(2,"AUDIT",.351)=""
^DD(2,"AUDIT",.361)=""
^DD(2,"AUDIT",391)=""
^DD(2,"AUDIT",991.01)=""
^DD(2,"AUDIT",991.02)=""
^DD(2,"AUDIT",991.03)=""
^DD(2,"AUDIT",991.04)=""
^DD(2,"AUDIT",991.05)=""
^DD(2,"AUDIT",991.06)=""
^DD(2,"AUDIT",991.07)=""
^DD(2,"AUDIT",994)=""
^DD(2,"AUDIT",1901)=""
^DD(2,"B","*AMOUNT OF MILITARY RETIREMENT",.3625)=""
^DD(2,"B","*AMOUNT OF SOCIAL SECURITY",.3623)=""
^DD(2,"B","*CATEGORY OF BENEFICIARY",.31)=""
^DD(2,"B","*CLAIM FOLDER LOCATION",.312)=""
^DD(2,"B","*CURRENT PC PRACTITIONER",404.01)=""
^DD(2,"B","*CURRENT PC TEAM",404.02)=""
^DD(2,"B","*HEIGHT(cm)",57.1)=""
^DD(2,"B","*REACTIONS",53)=""
^DD(2,"B","*WEIGHT(kg)",57.2)=""
^DD(2,"B","1U4N",.0905)=""
^DD(2,"B","2ND MOST RECENT DATE OF CARE",1010.153)=""
^DD(2,"B","2ND MOST RECENT LOCATION",1010.154)=""
^DD(2,"B","A&A AMOUNT",.3621)="1"
^DD(2,"B","ABSENCE DIVISION",999)="1"
^DD(2,"B","ADDRESS CHANGE DT/TM",.118)=""
^DD(2,"B","ADDRESS CHANGE SITE",.12)=""
^DD(2,"B","ADDRESS CHANGE SOURCE",.119)=""
^DD(2,"B","ADDRESS CHANGE USER",.122)=""
^DD(2,"B","AGE",.033)=""
^DD(2,"B","AGENCY/ALLIED COUNTRY",.309)=""
^DD(2,"B","AGENT ORANGE EXAM DATE",.32109)=""
^DD(2,"B","AGENT ORANGE EXPOS. INDICATED?",.32102)=""
^DD(2,"B","AGENT ORANGE EXPOSURE LOCATION",.3213)=""
^DD(2,"B","AGENT ORANGE REGISTRATION #",.3211)=""
^DD(2,"B","AGENT ORANGE REGISTRATION DATE",.32107)=""
^DD(2,"B","AGENT ORANGE REPORTED TO C.O.",.32108)="1"
^DD(2,"B","ALIAS",1)=""
^DD(2,"B","AMOUNT OF AID & ATTENDANCE",.3621)=""
^DD(2,"B","AMOUNT OF GI INSURANCE",.3626)=""
^DD(2,"B","AMOUNT OF HOUSEBOUND",.3622)=""
^DD(2,"B","AMOUNT OF OTHER INCOME",.3629)=""
^DD(2,"B","AMOUNT OF OTHER RETIREMENT",.3628)=""
^DD(2,"B","AMOUNT OF SSI",.3627)=""
^DD(2,"B","AMOUNT OF VA DISABILITY",.303)=""
^DD(2,"B","AMOUNT OF VA PENSION",.3624)=""
^DD(2,"B","APPOINTMENT",1900)=""
^DD(2,"B","APPOINTMENT REQUEST DATE",1010.1511)=""
^DD(2,"B","APPOINTMENT REQUEST ON 1010EZ",1010.159)=""
^DD(2,"B","ARCHIVED DATA",1903)=""
^DD(2,"B","ARE YOU IN RECEIPT OF A&A?",.36205)="1"
^DD(2,"B","ATTENDING PHYSICIAN",.1041)=""
^DD(2,"B","Agent Orange Exposure Location",.3213)="1"
^DD(2,"B","BAD ADDRESS INDICATOR",.121)=""
^DD(2,"B","BRANCH OF SERVICE, LAST",.325)="1"
^DD(2,"B","BRANCH OF SERVICE, NNTL",.3296)="1"
^DD(2,"B","BRANCH OF SERVICE, NTL",.3291)="1"
^DD(2,"B","CATEGORY OF BENEFICIARY",.31)="1"
^DD(2,"B","CD HISTORY DATE",.399)=""
^DD(2,"B","CD STATUS CONDITIONS",.398)=""
^DD(2,"B","CD STATUS DIAGNOSES",.396)=""
^DD(2,"B","CD STATUS PROCEDURES",.397)=""
^DD(2,"B","CELLULAR NUMBER CHANGE DT/TM",.139)=""
^DD(2,"B","CELLULAR NUMBER CHANGE SITE",.13111)=""
^DD(2,"B","CELLULAR NUMBER CHANGE SOURCE",.1311)=""
^DD(2,"B","CHECK FOR DUPLICATE",.083)=""
^DD(2,"B","CITY",.114)=""
^DD(2,"B","CITY (CIVIL)",.2926)=""
^DD(2,"B","CITY (VA)",.2916)=""
^DD(2,"B","CLAIM FOLDER LOCATION",.314)=""
^DD(2,"B","CLAIM NUMBER",.313)=""
^DD(2,"B","CMOR ACTIVITY SCORE",991.06)=""
^DD(2,"B","CMOR HISTORY",993)=""
^DD(2,"B","CNH CURRENT",148)=""
^DD(2,"B","COLLATERAL SPONSOR'S NAME",.3601)=""
^DD(2,"B","COMBAT FROM DATE",.5293)=""
^DD(2,"B","COMBAT INDICATED ON 1010EZ",1010.157)=""
^DD(2,"B","COMBAT SERVICE INDICATED?",.5291)=""
^DD(2,"B","COMBAT SERVICE LOCATION",.5292)=""
^DD(2,"B","COMBAT TO DATE",.5294)=""
^DD(2,"B","COMBAT VETERAN END DATE",.5295)=""
^DD(2,"B","COMBAT WHERE",.5292)="1"
^DD(2,"B","CONDITION",401.3)=""
^DD(2,"B","CONFIDENTIAL ADDR CHANGE DT/TM",.14112)=""
^DD(2,"B","CONFIDENTIAL ADDR CHANGE SITE",.14113)=""
^DD(2,"B","CONFIDENTIAL ADDRESS ACTIVE?",.14105)=""
^DD(2,"B","CONFIDENTIAL ADDRESS CATEGORY",.141)=""
^DD(2,"B","CONFIDENTIAL ADDRESS CITY",.1414)=""
^DD(2,"B","CONFIDENTIAL ADDRESS COUNTY",.14111)=""
^DD(2,"B","CONFIDENTIAL ADDRESS STATE",.1415)=""
^DD(2,"B","CONFIDENTIAL ADDRESS ZIP CODE",.1416)=""
^DD(2,"B","CONFIDENTIAL END DATE",.1418)=""
^DD(2,"B","CONFIDENTIAL START DATE",.1417)=""
^DD(2,"B","CONFIDENTIAL STREET [LINE 1]",.1411)=""
^DD(2,"B","CONFIDENTIAL STREET [LINE 2]",.1412)=""
^DD(2,"B","CONFIDENTIAL STREET [LINE 3]",.1413)=""
^DD(2,"B","COORDINATING MASTER OF RECORD",991.03)=""
^DD(2,"B","COUNTY",.117)=""
^DD(2,"B","COVERED BY HEALTH INSURANCE?",.3192)=""
^DD(2,"B","CURRENT ADMISSION",.105)=""
^DD(2,"B","CURRENT ENROLLMENT",27.01)=""
^DD(2,"B","CURRENT MEANS TEST STATUS",.14)=""
^DD(2,"B","CURRENT MOVEMENT",.102)=""
^DD(2,"B","CURRENT PH INDICATOR",.531)=""
^DD(2,"B","CURRENT PURPLE HEART REMARKS",.533)=""
^DD(2,"B","CURRENT PURPLE HEART STATUS",.532)=""
^DD(2,"B","CURRENT ROOM",.108)=""
^DD(2,"B","CV DATE EDITED",.5296)=""
^DD(2,"B","Cell Phone",.134)="1"
^DD(2,"B","D-CITY",.346)=""
^DD(2,"B","D-DESIGNEE SAME AS NOK?",.3405)=""
^DD(2,"B","D-NAME COMPONENTS",1.09)=""
^DD(2,"B","D-NAME OF DESIGNEE",.341)=""
^DD(2,"B","D-PHONE NUMBER",.349)=""
^DD(2,"B","D-RELATIONSHIP TO PATIENT",.342)=""
^DD(2,"B","D-STATE",.347)=""
^DD(2,"B","D-STREET ADDRESS [LINE 1]",.343)=""
^DD(2,"B","D-STREET ADDRESS [LINE 2]",.344)=""
^DD(2,"B","D-STREET ADDRESS [LINE 3]",.345)=""
^DD(2,"B","D-WORK PHONE NUMBER",.34011)=""
^DD(2,"B","D-ZIP CODE",.348)=""
^DD(2,"B","D-ZIP+4",.2202)=""
^DD(2,"B","DATE ENTERED INTO FILE",.097)=""
^DD(2,"B","DATE ENTERED ON SI LIST",401.4)=""
^DD(2,"B","DATE FACILITY INITIATED REVIEW",.3952)=""
^DD(2,"B","DATE MEDICAID LAST ASKED",.382)=""
^DD(2,"B","DATE OF BIRTH",.03)=""
^DD(2,"B","DATE OF DEATH",.351)=""
^DD(2,"B","DATE OF DEATH LAST UPDATED",.354)=""
^DD(2,"B","DATE OF DECISION",.392)=""
^DD(2,"B","DATE OF DENTAL TREATMENT",.37)=""
^DD(2,"B","DATE OF RETIREMENT",.31116)=""
^DD(2,"B","DATE RULED INCOMPETENT (CIVIL)",.292)=""
^DD(2,"B","DATE RULED INCOMPETENT (VA)",.291)=""
^DD(2,"B","DATE VETERAN REQUESTED CD EVAL",.3951)=""
^DD(2,"B","DATE VETERAN WAS NOTIFIED",.3953)=""
^DD(2,"B","DEATH ENTERED BY",.352)=""
^DD(2,"B","DECIDED BY",.391)=""
^DD(2,"B","DENTAL CLASSIFICATION",220)=""
^DD(2,"B","DENTAL ELIGIBILITY EXPIRATION",220.1)=""
^DD(2,"B","DENTAL INJURY IN SERVICE",.368)="1"
^DD(2,"B","DESIGNEE",.341)="1"
^DD(2,"B","DESIGNEE CHANGE DATE/TIME",.3412)=""
^DD(2,"B","DID YOU SERVE IN LEBANON?",.3221)="1"
^DD(2,"B","DID YOU SERVE IN VIET NAM",.32101)="1"
^DD(2,"B","DISABILITY DISCHARGE ON 1010EZ",1010.158)=""
^DD(2,"B","DISABILITY RET. FROM MILITARY?",.362)=""
^DD(2,"B","DISCHARGE DUE TO DISABILITY",.3603)=""
^DD(2,"B","DISCHARGE TYPE-SERVICE [LAST]",.324)="1"
^DD(2,"B","DISCHARGE TYPE-SERVICE [NNTL]",.3295)="1"
^DD(2,"B","DISCHARGE TYPE-SERVICE [NTL]",.329)="1"
^DD(2,"B","DISPOSITION LOG-IN DATE/TIME",1000)=""
^DD(2,"B","DIVISION",.19)=""
^DD(2,"B","DO YOU HAVE GI INSURANCE?",.36265)="1"
^DD(2,"B","DOB",.03)="1"
^DD(2,"B","DUPLICATE STATUS",.081)=""
^DD(2,"B","E-CITY",.336)=""
^DD(2,"B","E-CONTACT CHANGE DATE/TIME",.33012)=""
^DD(2,"B","E-EMER. CONTACT SAME AS NOK?",.3305)=""
^DD(2,"B","E-NAME",.331)=""
^DD(2,"B","E-NAME COMPONENTS",1.07)=""
^DD(2,"B","E-PHONE NUMBER",.339)=""
^DD(2,"B","E-RELATIONSHIP TO PATIENT",.332)=""
^DD(2,"B","E-STATE",.337)=""
^DD(2,"B","E-STREET ADDRESS [LINE 1]",.333)=""
^DD(2,"B","E-STREET ADDRESS [LINE 2]",.334)=""
^DD(2,"B","E-STREET ADDRESS [LINE 3]",.335)=""
^DD(2,"B","E-WORK PHONE NUMBER",.33011)=""
^DD(2,"B","E-ZIP CODE",.338)=""
^DD(2,"B","E-ZIP+4",.2201)=""
^DD(2,"B","E2-CITY",.3316)=""
^DD(2,"B","E2-CONTACT CHANGE DATE/TIME",.33112)=""
^DD(2,"B","E2-NAME COMPONENTS",1.08)=""
^DD(2,"B","E2-NAME OF SECONDARY CONTACT",.3311)=""
^DD(2,"B","E2-PHONE NUMBER",.3319)=""
^DD(2,"B","E2-RELATIONSHIP TO PATIENT",.3312)=""
^DD(2,"B","E2-STATE",.3317)=""
^DD(2,"B","E2-STREET ADDRESS [LINE 1]",.3313)=""
^DD(2,"B","E2-STREET ADDRESS [LINE 2]",.3314)=""
^DD(2,"B","E2-STREET ADDRESS [LINE 3]",.3315)=""
^DD(2,"B","E2-WORK PHONE NUMBER",.331011)=""
^DD(2,"B","E2-ZIP CODE",.3318)=""
^DD(2,"B","E2-ZIP+4",.2204)=""
^DD(2,"B","EFF. DATE COMBINED SC% EVAL.",.3014)=""
^DD(2,"B","ELIG INTERIM RESPONSE",.3614)="1"
^DD(2,"B","ELIG STATUS",.3611)="1"
^DD(2,"B","ELIG STATUS DATE",.3612)="1"
^DD(2,"B","ELIG VERIF SOURCE",.3613)="1"
^DD(2,"B","ELIGIBILITY INTERIM RESPONSE",.3614)=""
^DD(2,"B","ELIGIBILITY STATUS",.3611)=""
^DD(2,"B","ELIGIBILITY STATUS DATE",.3612)=""
^DD(2,"B","ELIGIBILITY STATUS ENTERED BY",.3616)=""
^DD(2,"B","ELIGIBILITY VERIF. METHOD",.3615)=""
^DD(2,"B","ELIGIBILITY VERIF. SOURCE",.3613)=""
^DD(2,"B","ELIGIBLE FOR MEDICAID?",.381)=""
^DD(2,"B","EMAIL ADDRESS",.133)=""
^DD(2,"B","EMAIL ADDRESS CHANGE DT/TM",.136)=""
^DD(2,"B","EMAIL ADDRESS CHANGE SITE",.138)=""
^DD(2,"B","EMAIL ADDRESS CHANGE SOURCE",.137)=""
^DD(2,"B","EMERGENCY CONTACT",.331)="1"
^DD(2,"B","EMERGENCY CONTACT-2",.3311)="1"
^DD(2,"B","EMERGENCY RESPONSE INDICATOR",.181)=""
^DD(2,"B","EMPLOYER CITY",.3116)=""
^DD(2,"B","EMPLOYER NAME",.3111)=""
^DD(2,"B","EMPLOYER PHONE NUMBER",.3119)=""
^DD(2,"B","EMPLOYER STATE",.3117)=""
^DD(2,"B","EMPLOYER STREET [LINE 1]",.3113)=""
^DD(2,"B","EMPLOYER STREET [LINE 2]",.3114)=""
^DD(2,"B","EMPLOYER STREET [LINE 3]",.3115)=""
^DD(2,"B","EMPLOYER ZIP CODE",.3118)=""
^DD(2,"B","EMPLOYER ZIP+4",.2205)=""
^DD(2,"B","EMPLOYMENT STATUS",.31115)=""
^DD(2,"B","END DATE OF TEMP ADDRESS",.1218)="1"
^DD(2,"B","ENROLLMENT CLINIC",3)=""
^DD(2,"B","ENTRY DATE-SERVICE [LAST]",.326)="1"
^DD(2,"B","ENTRY DATE-SERVICE [NNTL]",.3297)="1"
^DD(2,"B","ENTRY DATE-SERVICE [NTL]",.3292)="1"
^DD(2,"B","ENVIR. CONT. EXAM DATE",.322015)=""
^DD(2,"B","ENVIR. CONT. REGISTRATION DATE",.322014)=""
^DD(2,"B","ENVIRONMENTAL CONTAMINANTS?",.322013)=""
^DD(2,"B","ETHNICITY INFORMATION",6)=""
^DD(2,"B","EXCLUDE FROM FACILITY DIR",.109)=""
^DD(2,"B","EXPOSED TO AGENT ORANGE",.32102)="1"
^DD(2,"B","Email Address",.133)="1"
^DD(2,"B","FACILITY MAKING DETERMINATION",.393)=""
^DD(2,"B","FATHER'S NAME",.2401)=""
^DD(2,"B","FATHER'S NAME COMPONENTS",1.04)=""
^DD(2,"B","FEE HOSPITAL I.D.",.172)="1"
^DD(2,"B","FFF DATE ENTERED",1100.03)=""
^DD(2,"B","FFF DATE REMOVED",1100.05)=""
^DD(2,"B","FFF ENTERED BY",1100.02)=""
^DD(2,"B","FFF REMOVAL REMARKS",1100.09)=""
^DD(2,"B","FFF REMOVED BY",1100.04)=""
^DD(2,"B","FILIPINO VETERAN PROOF",.3214)=""
^DD(2,"B","FUGITIVE FELON FLAG",1100.01)=""
^DD(2,"B","GI INSURANCE AMOUNT",.3626)="1"
^DD(2,"B","GI INSURANCE POLICY?",.36265)=""
^DD(2,"B","GOVERNMENT AGENCY",.3112)=""
^DD(2,"B","GRENADA FROM DATE",.3225)=""
^DD(2,"B","GRENADA SERVICE INDICATED?",.3224)=""
^DD(2,"B","GRENADA TO DATE",.3226)=""
^DD(2,"B","GUARDIAN (CIVIL)",.2922)=""
^DD(2,"B","GUARDIAN (VA)",.2912)=""
^DD(2,"B","HB AMOUNT",.3622)="1"
^DD(2,"B","HEIGHT(cm)",57.1)="1"
^DD(2,"B","HOW WAS PATIENT ENTERED?",.098)=""
^DD(2,"B","ICN CHECKSUM",991.02)=""
^DD(2,"B","ICN HISTORY",992)=""
^DD(2,"B","IN COMBAT (Y/N)",.5291)="1"
^DD(2,"B","IN RECEIPT OF HB BENEFITS?",.36215)="1"
^DD(2,"B","IN RECEIPT OF SOCIAL SECURITY?",.36225)="1"
^DD(2,"B","IN RECEIPT OF SSI?",.36275)="1"
^DD(2,"B","INELIGIBLE DATE",.152)=""
^DD(2,"B","INELIGIBLE REASON",.307)=""
^DD(2,"B","INELIGIBLE TWX CITY",.1653)=""
^DD(2,"B","INELIGIBLE TWX SOURCE",.1651)=""
^DD(2,"B","INELIGIBLE TWX STATE",.1654)=""
^DD(2,"B","INELIGIBLE VARO DECISION",.1656)=""
^DD(2,"B","INITIAL ODS TREATMENT RECEIVED",11500.01)=""
^DD(2,"B","INPATIENT WARD",999.1)="1"
^DD(2,"B","INSTITUTION (CIVIL)",.2921)=""
^DD(2,"B","INSTITUTION (VA)",.2911)=""
^DD(2,"B","INSURANCE TYPE",.3121)=""
^DD(2,"B","INTEGRATION CONTROL NUMBER",991.01)=""
^DD(2,"B","IS DESIGNEE SAME AS NOK",.3405)="1"
^DD(2,"B","IS E-CONTACT SAME AS NOK",.3305)="1"
^DD(2,"B","IS K2-ADDR SAME AS PATIENT'S",.21925)="1"
^DD(2,"B","K-ADDRESS SAME AS PATIENT'S?",.2125)=""
^DD(2,"B","K-CITY",.216)=""
^DD(2,"B","K-NAME COMPONENTS",1.02)=""
^DD(2,"B","K-NAME OF PRIMARY NOK",.211)=""
^DD(2,"B","K-PHONE NUMBER",.219)=""
^DD(2,"B","K-RELATIONSHIP TO PATIENT",.212)=""
^DD(2,"B","K-STATE",.217)=""
^DD(2,"B","K-STREET ADDRESS [LINE 1]",.213)=""
^DD(2,"B","K-STREET ADDRESS [LINE 2]",.214)=""
^DD(2,"B","K-STREET ADDRESS [LINE 3]",.215)=""
^DD(2,"B","K-WORK PHONE NUMBER",.21011)=""
^DD(2,"B","K-ZIP CODE",.218)=""
^DD(2,"B","K-ZIP+4",.2207)=""
^DD(2,"B","K2-ADDRESS SAME AS PATIENT'S?",.21925)=""
^DD(2,"B","K2-CITY",.2196)=""
^DD(2,"B","K2-NAME COMPONENTS",1.03)=""
^DD(2,"B","K2-NAME OF SECONDARY NOK",.2191)=""
^DD(2,"B","K2-PHONE NUMBER",.2199)=""
^DD(2,"B","K2-RELATIONSHIP TO PATIENT",.2192)=""
^DD(2,"B","K2-STATE",.2197)=""
^DD(2,"B","K2-STREET ADDRESS [LINE 1]",.2193)=""
^DD(2,"B","K2-STREET ADDRESS [LINE 2]",.2194)=""
^DD(2,"B","K2-STREET ADDRESS [LINE 3]",.2195)=""
^DD(2,"B","K2-WORK PHONE NUMBER",.211011)=""
^DD(2,"B","K2-ZIP CODE",.2198)=""
^DD(2,"B","K2-ZIP+4",.2203)=""
^DD(2,"B","LAB REFERRAL REF",67)=""
^DD(2,"B","LABORATORY REFERENCE",63)=""
^DD(2,"B","LAST DMMS EPISODE NUMBER",.106)=""
^DD(2,"B","LAST EDITED BY",.355)=""
^DD(2,"B","LAST MEANS TEST",999.2)=""
^DD(2,"B","LEBANON FROM DATE",.3222)=""
^DD(2,"B","LEBANON SERVICE INDICATED?",.3221)=""
^DD(2,"B","LEBANON TO DATE",.3223)=""
^DD(2,"B","LOCALLY ASSIGNED ICN",991.04)=""
^DD(2,"B","LODGER WARD LOCATION",.107)=""
^DD(2,"B","MARITAL STATUS",.05)=""
^DD(2,"B","MEDICAID ELIGIBILE?",.381)="1"
^DD(2,"B","MEDICAID NUMBER",.383)=""
^DD(2,"B","METHOD OF DETERMINATION",.395)=""
^DD(2,"B","MILITARY DISABILITY RETIREMENT",.3602)=""
^DD(2,"B","MILT RET DUE TO DISABILITY?",.362)="1"
^DD(2,"B","MILT. RETIREMENT PAY AMOUNT",.3625)="1"
^DD(2,"B","MISSING OR INELIGIBLE",.16)=""
^DD(2,"B","MISSING PERSON DATE",.153)=""
^DD(2,"B","MISSING PERSON TWX CITY",.1658)=""
^DD(2,"B","MISSING PERSON TWX SOURCE",.1657)=""
^DD(2,"B","MISSING PERSON TWX STATE",.1659)=""
^DD(2,"B","MONETARY BEN. VERIFY DATE",.306)=""
^DD(2,"B","MOST RECENT 1010EZ",1010.156)=""
^DD(2,"B","MOST RECENT DATE OF CARE",1010.151)=""
^DD(2,"B","MOST RECENT LOCATION OF CARE",1010.152)=""
^DD(2,"B","MOTHER'S MAIDEN NAME",.2403)=""
^DD(2,"B","MOTHER'S NAME",.2402)=""
^DD(2,"B","MOTHER'S NAME COMPONENTS",1.05)=""
^DD(2,"B","MOTHERS MAIDEN NAME COMPONENTS",1.06)=""
^DD(2,"B","MULTIPLE BIRTH INDICATOR",994)=""
^DD(2,"B","NAME",.01)=""
^DD(2,"B","NAME COMPONENTS",1.01)=""
^DD(2,"B","NETWORK IDENTIFIER",537025)=""
^DD(2,"B","NEXT OF KIN",.211)="1"
^DD(2,"B","NEXT OF KIN-2",.2191)="1"
^DD(2,"B","NUMBER-SERVICE [LAST]",.328)="1"
^DD(2,"B","NUMBER-SERVICE [NNTL]",.3299)="1"
^DD(2,"B","NUMBER-SERVICE [NTL]",.3294)="1"
^DD(2,"B","OCCUPATION",.07)=""
^DD(2,"B","OFFICE PHONE",.132)="1"
^DD(2,"B","OTHER PERSONAL INCOME",.3629)="1"
^DD(2,"B","OTHER RETIREMENT AMOUNT",.3628)="1"
^DD(2,"B","P&T",.304)=""
^DD(2,"B","PAGER NUMBER",.135)=""
^DD(2,"B","PAGER NUMBER CHANGE DT/TM",.1312)=""
^DD(2,"B","PAGER NUMBER CHANGE SITE",.1314)=""
^DD(2,"B","PAGER NUMBER CHANGE SOURCE",.1313)=""
^DD(2,"B","PANAMA FROM DATE",.3228)=""
^DD(2,"B","PANAMA SERVICE INDICATED?",.3227)=""
^DD(2,"B","PANAMA TO DATE",.3229)=""
^DD(2,"B","PATIENT ELIGIBILITIES",361)=""
^DD(2,"B","PATIENT MERGED TO",.082)=""
^DD(2,"B","PERIOD OF SERVICE",.323)=""
^DD(2,"B","PERMANENT AND TOTAL",.304)="1"
^DD(2,"B","PERSIAN GULF FROM DATE",.322011)=""
^DD(2,"B","PERSIAN GULF SERVICE?",.32201)=""
^DD(2,"B","PERSIAN GULF TO DATE",.322012)=""
^DD(2,"B","PH DATE/TIME UPDATED",534)=""
^DD(2,"B","PH DIVISION",.535)=""
^DD(2,"B","PHONE (CIVIL)",.2929)=""
^DD(2,"B","PHONE (VA)",.2919)=""
^DD(2,"B","PHONE NUMBER [CELLULAR]",.134)=""
^DD(2,"B","PHONE NUMBER [RESIDENCE]",.131)=""
^DD(2,"B","PHONE NUMBER [WORK]",.132)=""
^DD(2,"B","PLACE OF BIRTH [CITY]",.092)=""
^DD(2,"B","PLACE OF BIRTH [STATE]",.093)=""
^DD(2,"B","POB CITY",.092)="1"
^DD(2,"B","POB STATE",.093)="1"
^DD(2,"B","POW CONFINEMENT LOCATION",.526)=""
^DD(2,"B","POW FROM DATE",.527)=""
^DD(2,"B","POW STATUS INDICATED?",.525)=""
^DD(2,"B","POW TO DATE",.528)=""
^DD(2,"B","POW WAR",.526)="1"
^DD(2,"B","PREFERRED FACILITY",27.02)=""
^DD(2,"B","PRIMARY ELIGIBILITY CODE",.361)=""
^DD(2,"B","PRIMARY LONG ID",.363)=""
^DD(2,"B","PRIMARY NOK CHANGE DATE/TIME",.21012)=""
^DD(2,"B","PRIMARY SHORT ID",.364)=""
^DD(2,"B","PROJ 112/SHAD",.32115)=""
^DD(2,"B","PROVIDER",.104)=""
^DD(2,"B","PSEUDO SSN REASON",.0906)=""
^DD(2,"B","Pager #",.135)="1"
^DD(2,"B","RACE",.06)=""
^DD(2,"B","RACE INFORMATION",2)=""
^DD(2,"B","RADIATION EXPOSURE INDICATED?",.32103)=""
^DD(2,"B","RADIATION EXPOSURE METHOD",.3212)=""
^DD(2,"B","RADIATION REGISTRATION DATE",.32111)=""
^DD(2,"B","RANK",11500.03)=""
^DD(2,"B","RATED DISABILITIES (VA)",.3721)=""
^DD(2,"B","RATED INCOMPETENT?",.293)=""
^DD(2,"B","REACTIONS",53)="1"
^DD(2,"B","REASON-INELIGIBLE",.307)="1"
^DD(2,"B","RECALLED TO ACTIVE DUTY",11500.02)=""
^DD(2,"B","RECEIVED VA CARE PREVIOUSLY?",1010.15)=""
^DD(2,"B","RECEIVING A VA PENSION?",.36235)=""
^DD(2,"B","RECEIVING A&A BENEFITS?",.36205)=""
^DD(2,"B","RECEIVING HOUSEBOUND BENEFITS?",.36215)=""
^DD(2,"B","RECEIVING MILITARY RETIREMENT?",.36255)=""
^DD(2,"B","RECEIVING SOCIAL SECURITY?",.36225)=""
^DD(2,"B","RECEIVING SUP. SECURITY (SSI)?",.36275)=""
^DD(2,"B","RECEIVING VA DISABILITY?",.3025)=""
^DD(2,"B","RELATIONSHIP (CIVIL)",.2923)=""
^DD(2,"B","RELATIONSHIP (VA)",.2913)=""
^DD(2,"B","RELIGION",.08)="1"
^DD(2,"B","RELIGIOUS PREFERENCE",.08)=""
^DD(2,"B","REMARKS",.091)=""
^DD(2,"B","REVIEW DATE",.394)=""
^DD(2,"B","ROOM-BED",.101)=""
^DD(2,"B","SC APPLICANT",.301)="1"
^DD(2,"B","SC AWARD DATE",.3012)=""
^DD(2,"B","SCORE CALCULATION DATE",991.07)=""
^DD(2,"B","SECOND EPISODE OF SERVICE?",.3285)="1"
^DD(2,"B","SECONDARY NOK CHANGE DATE/TIME",.211012)=""
^DD(2,"B","SEPARATION DATE-SERVICE [LAST]",.327)="1"
^DD(2,"B","SEPARATION DATE-SERVICE [NNTL]",.3298)="1"
^DD(2,"B","SEPARATION DATE-SERVICE [NTL]",.3293)="1"
^DD(2,"B","SERVICE BRANCH [LAST]",.325)=""
^DD(2,"B","SERVICE BRANCH [NNTL]",.3296)=""
^DD(2,"B","SERVICE BRANCH [NTL]",.3291)=""
^DD(2,"B","SERVICE COMPONENT [LAST]",.32911)=""
^DD(2,"B","SERVICE COMPONENT [NNTL]",.32913)=""
^DD(2,"B","SERVICE COMPONENT [NTL]",.32912)=""
^DD(2,"B","SERVICE CONNECTED CONDITIONS",.3731)=""
^DD(2,"B","SERVICE CONNECTED PERCENTAGE",.302)=""
^DD(2,"B","SERVICE CONNECTED?",.301)=""
^DD(2,"B","SERVICE DENTAL INJURY?",.368)=""
^DD(2,"B","SERVICE DISCHARGE TYPE [LAST]",.324)=""
^DD(2,"B","SERVICE DISCHARGE TYPE [NNTL]",.3295)=""
^DD(2,"B","SERVICE DISCHARGE TYPE [NTL]",.329)=""
^DD(2,"B","SERVICE ENTRY DATE [LAST]",.326)=""
^DD(2,"B","SERVICE ENTRY DATE [NNTL]",.3297)=""
^DD(2,"B","SERVICE ENTRY DATE [NTL]",.3292)=""
^DD(2,"B","SERVICE NUMBER [LAST]",.328)=""
^DD(2,"B","SERVICE NUMBER [NNTL]",.3299)=""
^DD(2,"B","SERVICE NUMBER [NTL]",.3294)=""
^DD(2,"B","SERVICE SECOND EPISODE?",.3285)=""
^DD(2,"B","SERVICE SEPARATION DATE [LAST]",.327)=""
^DD(2,"B","SERVICE SEPARATION DATE [NNTL]",.3298)=""
^DD(2,"B","SERVICE SEPARATION DATE [NTL]",.3293)=""
^DD(2,"B","SERVICE TEETH EXTRACTED?",.369)=""
^DD(2,"B","SERVICE THIRD EPISODE?",.32945)=""
^DD(2,"B","SERVICE VERIFICATION DATE",.322)=""
^DD(2,"B","SERVICE [OEF OR OIF]",.3215)=""
^DD(2,"B","SEX",.02)=""
^DD(2,"B","SOCIAL SECURITY AMOUNT",.3623)="1"
^DD(2,"B","SOCIAL SECURITY NUMBER",.09)=""
^DD(2,"B","SOMALIA FROM DATE",.322017)=""
^DD(2,"B","SOMALIA SERVICE INDICATED?",.322016)=""
^DD(2,"B","SOMALIA TO DATE",.322018)=""
^DD(2,"B","SOURCE OF NOTIFICATION",.353)=""
^DD(2,"B","SPINAL CORD INJURY",57.4)=""
^DD(2,"B","SPOUSE'S EMP PHONE NUMBER",.258)=""
^DD(2,"B","SPOUSE'S EMP STREET [LINE 1]",.252)=""
^DD(2,"B","SPOUSE'S EMP STREET [LINE 2]",.253)=""
^DD(2,"B","SPOUSE'S EMP STREET [LINE 3]",.254)=""
^DD(2,"B","SPOUSE'S EMP ZIP CODE",.257)=""
^DD(2,"B","SPOUSE'S EMP ZIP+4",.2206)=""
^DD(2,"B","SPOUSE'S EMPLOYER NAME",.251)=""
^DD(2,"B","SPOUSE'S EMPLOYER'S CITY",.255)=""
^DD(2,"B","SPOUSE'S EMPLOYER'S STATE",.256)=""
^DD(2,"B","SPOUSE'S EMPLOYMENT STATUS",.2515)=""
^DD(2,"B","SPOUSE'S OCCUPATION",.2514)=""
^DD(2,"B","SPOUSE'S RETIREMENT DATE",.2516)=""
^DD(2,"B","SSN",.09)="1"
^DD(2,"B","START DATE OF TEMP ADDRESS",.1217)="1"
^DD(2,"B","STATE",.115)=""
^DD(2,"B","STATE (CIVIL)",.2927)=""
^DD(2,"B","STATE (VA)",.2917)=""
^DD(2,"B","STREET ADDRESS 1 (CIVIL)",.2924)=""
^DD(2,"B","STREET ADDRESS 1 (VA)",.2914)=""
^DD(2,"B","STREET ADDRESS 2 (CIVIL)",.2925)=""
^DD(2,"B","STREET ADDRESS 2 (VA)",.2915)=""
^DD(2,"B","STREET ADDRESS [LINE 1]",.111)=""
^DD(2,"B","STREET ADDRESS [LINE 2]",.112)=""
^DD(2,"B","STREET ADDRESS [LINE 3]",.113)=""
^DD(2,"B","SUBSCRIPTION CONTROL NUMBER",991.05)=""
^DD(2,"B","TEETH EXTRACTED IN SERVICE",.369)="1"
^DD(2,"B","TEMPORARY ADDRESS ACTIVE?",.12105)=""
^DD(2,"B","TEMPORARY ADDRESS CHANGE DT/TM",.12113)=""
^DD(2,"B","TEMPORARY ADDRESS CHANGE SITE",.12114)=""
^DD(2,"B","TEMPORARY ADDRESS COUNTY",.12111)=""
^DD(2,"B","TEMPORARY ADDRESS END DATE",.1218)=""
^DD(2,"B","TEMPORARY ADDRESS START DATE",.1217)=""
^DD(2,"B","TEMPORARY CITY",.1214)=""
^DD(2,"B","TEMPORARY PHONE NUMBER",.1219)=""
^DD(2,"B","TEMPORARY STATE",.1215)=""
^DD(2,"B","TEMPORARY STREET [LINE 1]",.1211)=""
^DD(2,"B","TEMPORARY STREET [LINE 2]",.1212)=""
^DD(2,"B","TEMPORARY STREET [LINE 3]",.1213)=""
^DD(2,"B","TEMPORARY ZIP CODE",.1216)=""
^DD(2,"B","TEMPORARY ZIP+4",.12112)=""
^DD(2,"B","TERMINAL DIGIT OF SSN",.0901)=""
^DD(2,"B","TEST PATIENT INDICATOR",.6)=""
^DD(2,"B","THIRD EPISODE OF SERVICE?",.32945)="1"
^DD(2,"B","TOTAL ANNUAL VA CHECK AMOUNT",.36295)=""
^DD(2,"B","TREATING SPECIALTY",.103)=""
^DD(2,"B","TWX CITY-INELIGIBLE",.1653)="1"
^DD(2,"B","TWX CITY-MISSING PERSON",.1658)="1"
^DD(2,"B","TWX SOURCE-INELIGIBLE",.1651)="1"
^DD(2,"B","TWX SOURCE-MISSING PERSON",.1657)="1"
^DD(2,"B","TWX STATE-INELIGIBLE",.1654)="1"
^DD(2,"B","TWX STATE-MISSING PERSON",.1659)="1"
^DD(2,"B","TYPE",391)=""
^DD(2,"B","TYPE OF OTHER RETIREMENT",.36285)=""
^DD(2,"B","UNEMPLOYABLE",.305)=""
^DD(2,"B","USER ENROLLEE SITE",.3618)=""
^DD(2,"B","USER ENROLLEE VALID THROUGH",.3617)=""
^DD(2,"B","VA DISABILITY AMOUNT",.303)="1"
^DD(2,"B","VA PENSION AMOUNT",.3624)="1"
^DD(2,"B","VARO DECISION-INELIGIBLE",.1656)="1"
^DD(2,"B","VERIFICATION DATE-SERVICE",.322)="1"
^DD(2,"B","VERIFICATION METHOD",.3615)="1"
^DD(2,"B","VETERAN (Y/N)?",1901)=""
^DD(2,"B","VETERAN CATASTROPHICALLY DISABLED?",.39)=""
^DD(2,"B","VIETNAM FROM DATE",.32104)=""
^DD(2,"B","VIETNAM SERVICE INDICATED?",.32101)=""
^DD(2,"B","VIETNAM TO DATE",.32105)=""
^DD(2,"B","WANT TO ENTER TEMP ADDR",.12105)="1"
^DD(2,"B","WARD LOCATION",.1)=""
^DD(2,"B","WEIGHT(kg)",57.2)="1"
^DD(2,"B","WERE YOU A PRISONER OF WAR",.525)="1"
^DD(2,"B","WERE YOU EXPOSED TO RADIATION",.32103)="1"
^DD(2,"B","WHO ENTERED ELIGIBILITY STATUS",.3616)="1"
^DD(2,"B","WHO ENTERED PATIENT",.096)=""
^DD(2,"B","YUGOSLAVIA FROM DATE",.32202)=""
^DD(2,"B","YUGOSLAVIA SERVICE INDICATED?",.322019)=""
^DD(2,"B","YUGOSLAVIA TO DATE",.322021)=""
^DD(2,"B","ZIP (CIVIL)",.2928)=""
^DD(2,"B","ZIP (VA)",.2918)=""
^DD(2,"B","ZIP CODE",.116)=""
^DD(2,"B","ZIP+4",.1112)=""
^DD(2,"B","ZIP+4 (CIVIL)",.290012)=""
^DD(2,"B","ZIP+4 (VA)",.29013)=""
^DD(2,"GL",0,1,.01)=""
^DD(2,"GL",0,2,.02)=""
^DD(2,"GL",0,3,.03)=""
^DD(2,"GL",0,5,.05)=""
^DD(2,"GL",0,6,.06)=""
^DD(2,"GL",0,7,.07)=""
^DD(2,"GL",0,8,.08)=""
^DD(2,"GL",0,9,.09)=""
^DD(2,"GL",0,10,.091)=""
^DD(2,"GL",0,11,.092)=""
^DD(2,"GL",0,12,.093)=""
^DD(2,"GL",0,14,.14)=""
^DD(2,"GL",0,15,.096)=""
^DD(2,"GL",0,16,.097)=""
^DD(2,"GL",0,17,.098)=""
^DD(2,"GL",0,18,.081)=""
^DD(2,"GL",0,19,.082)=""
^DD(2,"GL",0,20,.083)=""
^DD(2,"GL",0,21,.6)=""
^DD(2,"GL",.01,0,1)=""
^DD(2,"GL",.02,0,2)=""
^DD(2,"GL",.06,0,6)=""
^DD(2,"GL",.1,"E1,30",.1)=""
^DD(2,"GL",.101,1,.101)=""
^DD(2,"GL",.102,1,.102)=""
^DD(2,"GL",.103,1,.103)=""
^DD(2,"GL",.104,1,.104)=""
^DD(2,"GL",.1041,1,.1041)=""
^DD(2,"GL",.105,1,.105)=""
^DD(2,"GL",.106,1,.106)=""
^DD(2,"GL",.107,1,.107)=""
^DD(2,"GL",.108,1,.108)=""
^DD(2,"GL",.109,1,.109)=""
^DD(2,"GL",.11,1,.111)=""
^DD(2,"GL",.11,2,.112)=""
^DD(2,"GL",.11,3,.113)=""
^DD(2,"GL",.11,4,.114)=""
^DD(2,"GL",.11,5,.115)=""
^DD(2,"GL",.11,6,.116)=""
^DD(2,"GL",.11,7,.117)=""
^DD(2,"GL",.11,12,.1112)=""
^DD(2,"GL",.11,13,.118)=""
^DD(2,"GL",.11,14,.119)=""
^DD(2,"GL",.11,15,.12)=""
^DD(2,"GL",.11,16,.121)=""
^DD(2,"GL",.11,17,.122)=""
^DD(2,"GL",.121,1,.1211)=""
^DD(2,"GL",.121,2,.1212)=""
^DD(2,"GL",.121,3,.1213)=""
^DD(2,"GL",.121,4,.1214)=""
^DD(2,"GL",.121,5,.1215)=""
^DD(2,"GL",.121,6,.1216)=""
^DD(2,"GL",.121,7,.1217)=""
^DD(2,"GL",.121,8,.1218)=""
^DD(2,"GL",.121,9,.12105)=""
^DD(2,"GL",.121,10,.1219)=""
^DD(2,"GL",.121,11,.12111)=""
^DD(2,"GL",.121,12,.12112)=""
^DD(2,"GL",.121,13,.12113)=""
^DD(2,"GL",.121,14,.12114)=""
^DD(2,"GL",.13,1,.131)=""
^DD(2,"GL",.13,2,.132)=""
^DD(2,"GL",.13,3,.133)=""
^DD(2,"GL",.13,4,.134)=""
^DD(2,"GL",.13,5,.135)=""
^DD(2,"GL",.13,6,.136)=""
^DD(2,"GL",.13,7,.137)=""
^DD(2,"GL",.13,8,.138)=""
^DD(2,"GL",.13,9,.139)=""
^DD(2,"GL",.13,10,.1311)=""
^DD(2,"GL",.13,11,.13111)=""
^DD(2,"GL",.13,12,.1312)=""
^DD(2,"GL",.13,13,.1313)=""
^DD(2,"GL",.13,14,.1314)=""
^DD(2,"GL",.14,0,.141)=""
^DD(2,"GL",.141,1,.1411)=""
^DD(2,"GL",.141,2,.1412)=""
^DD(2,"GL",.141,3,.1413)=""
^DD(2,"GL",.141,4,.1414)=""
^DD(2,"GL",.141,5,.1415)=""
^DD(2,"GL",.141,6,.1416)=""
^DD(2,"GL",.141,7,.1417)=""
^DD(2,"GL",.141,8,.1418)=""
^DD(2,"GL",.141,9,.14105)=""
^DD(2,"GL",.141,11,.14111)=""
^DD(2,"GL",.141,12,.14112)=""
^DD(2,"GL",.141,13,.14113)=""
^DD(2,"GL",.15,2,.152)=""
^DD(2,"GL",.15,3,.153)=""
^DD(2,"GL",.16,0,.16)=""
^DD(2,"GL",.17,2,.172)=""
^DD(2,"GL",.18,1,.181)=""
^DD(2,"GL",.21,1,.211)=""
^DD(2,"GL",.21,2,.212)=""
^DD(2,"GL",.21,3,.213)=""
^DD(2,"GL",.21,4,.214)=""
^DD(2,"GL",.21,5,.215)=""
^DD(2,"GL",.21,6,.216)=""
^DD(2,"GL",.21,7,.217)=""
^DD(2,"GL",.21,8,.218)=""
^DD(2,"GL",.21,9,.219)=""
^DD(2,"GL",.21,10,.2125)=""
^DD(2,"GL",.21,11,.21011)=""
^DD(2,"GL",.211,1,.2191)=""
^DD(2,"GL",.211,2,.2192)=""
^DD(2,"GL",.211,3,.2193)=""
^DD(2,"GL",.211,4,.2194)=""
^DD(2,"GL",.211,5,.2195)=""
^DD(2,"GL",.211,6,.2196)=""
^DD(2,"GL",.211,7,.2197)=""
^DD(2,"GL",.211,8,.2198)=""
^DD(2,"GL",.211,9,.2199)=""
^DD(2,"GL",.211,10,.21925)=""
^DD(2,"GL",.211,11,.211011)=""
^DD(2,"GL",.212,1,.21012)=""
^DD(2,"GL",.212,2,.211012)=""
^DD(2,"GL",.22,1,.2201)=""
^DD(2,"GL",.22,2,.2202)=""
^DD(2,"GL",.22,3,.2203)=""
^DD(2,"GL",.22,4,.2204)=""
^DD(2,"GL",.22,5,.2205)=""
^DD(2,"GL",.22,6,.2206)=""
^DD(2,"GL",.22,7,.2207)=""
^DD(2,"GL",.24,1,.2401)=""
^DD(2,"GL",.24,2,.2402)=""
^DD(2,"GL",.24,3,.2403)=""
^DD(2,"GL",.25,1,.251)=""
^DD(2,"GL",.25,2,.252)=""
^DD(2,"GL",.25,3,.253)=""
^DD(2,"GL",.25,4,.254)=""
^DD(2,"GL",.25,5,.255)=""
^DD(2,"GL",.25,6,.256)=""
^DD(2,"GL",.25,7,.257)=""
^DD(2,"GL",.25,8,.258)=""
^DD(2,"GL",.25,14,.2514)=""
^DD(2,"GL",.25,15,.2515)=""
^DD(2,"GL",.25,16,.2516)=""
^DD(2,"GL",.29,1,.291)=""
^DD(2,"GL",.29,2,.292)=""
^DD(2,"GL",.29,3,.2911)=""
^DD(2,"GL",.29,4,.2912)=""
^DD(2,"GL",.29,5,.2913)=""
^DD(2,"GL",.29,6,.2914)=""
^DD(2,"GL",.29,7,.2915)=""
^DD(2,"GL",.29,8,.2916)=""
^DD(2,"GL",.29,9,.2917)=""
^DD(2,"GL",.29,10,.2918)=""
^DD(2,"GL",.29,11,.2919)=""
^DD(2,"GL",.29,12,.293)=""
^DD(2,"GL",.29,13,.29013)=""
^DD(2,"GL",.291,3,.2921)=""
^DD(2,"GL",.291,4,.2922)=""
^DD(2,"GL",.291,5,.2923)=""
^DD(2,"GL",.291,6,.2924)=""
^DD(2,"GL",.291,7,.2925)=""
^DD(2,"GL",.291,8,.2926)=""
^DD(2,"GL",.291,9,.2927)=""
^DD(2,"GL",.291,10,.2928)=""
^DD(2,"GL",.291,11,.2929)=""
^DD(2,"GL",.291,12,.290012)=""
^DD(2,"GL",.3,1,.301)=""
^DD(2,"GL",.3,2,.302)=""
^DD(2,"GL",.3,3,.303)=""
^DD(2,"GL",.3,4,.304)=""
^DD(2,"GL",.3,5,.305)=""
^DD(2,"GL",.3,6,.306)=""
^DD(2,"GL",.3,7,.307)=""
^DD(2,"GL",.3,9,.309)=""
^DD(2,"GL",.3,10,.31)=""
^DD(2,"GL",.3,11,.3025)=""
^DD(2,"GL",.3,12,.3012)=""
^DD(2,"GL",.3,14,.3014)=""
^DD(2,"GL",.31,2,.312)=""
^DD(2,"GL",.31,3,.313)=""
^DD(2,"GL",.31,4,.314)=""
^DD(2,"GL",.31,11,.3192)=""
^DD(2,"GL",.311,1,.3111)=""
^DD(2,"GL",.311,2,.3112)=""
^DD(2,"GL",.311,3,.3113)=""
^DD(2,"GL",.311,4,.3114)=""
^DD(2,"GL",.311,5,.3115)=""
^DD(2,"GL",.311,6,.3116)=""
^DD(2,"GL",.311,7,.3117)=""
^DD(2,"GL",.311,8,.3118)=""
^DD(2,"GL",.311,9,.3119)=""
^DD(2,"GL",.311,15,.31115)=""
^DD(2,"GL",.311,16,.31116)=""
^DD(2,"GL",.312,0,.3121)=""
^DD(2,"GL",.32,2,.322)=""
^DD(2,"GL",.32,3,.323)=""
^DD(2,"GL",.32,4,.324)=""
^DD(2,"GL",.32,5,.325)=""
^DD(2,"GL",.32,6,.326)=""
^DD(2,"GL",.32,7,.327)=""
^DD(2,"GL",.32,8,.328)=""
^DD(2,"GL",.32,9,.329)=""
^DD(2,"GL",.32,10,.3291)=""
^DD(2,"GL",.32,11,.3292)=""
^DD(2,"GL",.32,12,.3293)=""
^DD(2,"GL",.32,13,.3294)=""
^DD(2,"GL",.32,14,.3295)=""
^DD(2,"GL",.32,15,.3296)=""
^DD(2,"GL",.32,16,.3297)=""
^DD(2,"GL",.32,17,.3298)=""
^DD(2,"GL",.32,18,.3299)=""
^DD(2,"GL",.32,19,.3285)=""
^DD(2,"GL",.32,20,.32945)=""
^DD(2,"GL",.321,1,.32101)=""
^DD(2,"GL",.321,2,.32102)=""
^DD(2,"GL",.321,3,.32103)=""
^DD(2,"GL",.321,4,.32104)=""
^DD(2,"GL",.321,5,.32105)=""
^DD(2,"GL",.321,7,.32107)=""
^DD(2,"GL",.321,8,.32108)=""
^DD(2,"GL",.321,9,.32109)=""
^DD(2,"GL",.321,10,.3211)=""
^DD(2,"GL",.321,11,.32111)=""
^DD(2,"GL",.321,12,.3212)=""
^DD(2,"GL",.321,13,.3213)=""
^DD(2,"GL",.321,14,.3214)=""
^DD(2,"GL",.321,15,.32115)=""
^DD(2,"GL",.3215,0,.3215)=""
^DD(2,"GL",.322,1,.3221)=""
^DD(2,"GL",.322,2,.3222)=""
^DD(2,"GL",.322,3,.3223)=""
^DD(2,"GL",.322,4,.3224)=""
^DD(2,"GL",.322,5,.3225)=""
^DD(2,"GL",.322,6,.3226)=""
^DD(2,"GL",.322,7,.3227)=""
^DD(2,"GL",.322,8,.3228)=""
^DD(2,"GL",.322,9,.3229)=""
^DD(2,"GL",.322,10,.32201)=""
^DD(2,"GL",.322,11,.322011)=""
^DD(2,"GL",.322,12,.322012)=""
^DD(2,"GL",.322,13,.322013)=""
^DD(2,"GL",.322,14,.322014)=""
^DD(2,"GL",.322,15,.322015)=""
^DD(2,"GL",.322,16,.322016)=""
^DD(2,"GL",.322,17,.322017)=""
^DD(2,"GL",.322,18,.322018)=""
^DD(2,"GL",.322,19,.322019)=""
^DD(2,"GL",.322,20,.32202)=""
^DD(2,"GL",.322,21,.322021)=""
^DD(2,"GL",.3291,1,.32911)=""
^DD(2,"GL",.3291,2,.32912)=""
^DD(2,"GL",.3291,3,.32913)=""
^DD(2,"GL",.33,1,.331)=""
^DD(2,"GL",.33,2,.332)=""
^DD(2,"GL",.33,3,.333)=""
^DD(2,"GL",.33,4,.334)=""
^DD(2,"GL",.33,5,.335)=""
^DD(2,"GL",.33,6,.336)=""
^DD(2,"GL",.33,7,.337)=""
^DD(2,"GL",.33,8,.338)=""
^DD(2,"GL",.33,9,.339)=""
^DD(2,"GL",.33,10,.3305)=""
^DD(2,"GL",.33,11,.33011)=""
^DD(2,"GL",.331,1,.3311)=""
^DD(2,"GL",.331,2,.3312)=""
^DD(2,"GL",.331,3,.3313)=""
^DD(2,"GL",.331,4,.3314)=""
^DD(2,"GL",.331,5,.3315)=""
^DD(2,"GL",.331,6,.3316)=""
^DD(2,"GL",.331,7,.3317)=""
^DD(2,"GL",.331,8,.3318)=""
^DD(2,"GL",.331,9,.3319)=""
^DD(2,"GL",.331,11,.331011)=""
^DD(2,"GL",.332,1,.33012)=""
^DD(2,"GL",.332,2,.33112)=""
^DD(2,"GL",.332,3,.3412)=""
^DD(2,"GL",.34,1,.341)=""
^DD(2,"GL",.34,2,.342)=""
^DD(2,"GL",.34,3,.343)=""
^DD(2,"GL",.34,4,.344)=""
^DD(2,"GL",.34,5,.345)=""
^DD(2,"GL",.34,6,.346)=""
^DD(2,"GL",.34,7,.347)=""
^DD(2,"GL",.34,8,.348)=""
^DD(2,"GL",.34,9,.349)=""
^DD(2,"GL",.34,10,.3405)=""
^DD(2,"GL",.34,11,.34011)=""
^DD(2,"GL",.35,1,.351)=""
^DD(2,"GL",.35,2,.352)=""
^DD(2,"GL",.35,3,.353)=""
^DD(2,"GL",.35,4,.354)=""
^DD(2,"GL",.35,5,.355)=""
^DD(2,"GL",.36,1,.361)=""
^DD(2,"GL",.36,2,.362)=""
^DD(2,"GL",.36,3,.363)=""
^DD(2,"GL",.36,4,.364)=""
^DD(2,"GL",.36,8,.368)=""
^DD(2,"GL",.36,9,.369)=""
^DD(2,"GL",.36,11,.3601)=""
^DD(2,"GL",.36,12,.3602)=""
^DD(2,"GL",.36,13,.3603)=""
^DD(2,"GL",.361,1,.3611)=""
^DD(2,"GL",.361,2,.3612)=""
^DD(2,"GL",.361,3,.3613)=""
^DD(2,"GL",.361,4,.3614)=""
^DD(2,"GL",.361,5,.3615)=""
^DD(2,"GL",.361,6,.3616)=""
^DD(2,"GL",.361,7,.3617)=""
^DD(2,"GL",.361,8,.3618)=""
^DD(2,"GL",.362,1,.3621)=""
^DD(2,"GL",.362,2,.3622)=""
^DD(2,"GL",.362,3,.3623)=""
^DD(2,"GL",.362,4,.3624)=""
^DD(2,"GL",.362,5,.3625)=""
^DD(2,"GL",.362,6,.3626)=""
^DD(2,"GL",.362,7,.3627)=""
^DD(2,"GL",.362,8,.3628)=""
^DD(2,"GL",.362,9,.3629)=""
^DD(2,"GL",.362,12,.36205)=""
^DD(2,"GL",.362,13,.36215)=""
^DD(2,"GL",.362,14,.36235)=""
^DD(2,"GL",.362,15,.36225)=""
^DD(2,"GL",.362,16,.36255)=""
^DD(2,"GL",.362,17,.36265)=""
^DD(2,"GL",.362,18,.36285)=""
^DD(2,"GL",.362,19,.36275)=""
^DD(2,"GL",.362,20,.36295)=""
^DD(2,"GL",.37,0,.37)=""
^DD(2,"GL",.372,0,.3721)=""
^DD(2,"GL",.373,0,.3731)=""
^DD(2,"GL",.38,1,.381)=""
^DD(2,"GL",.38,2,.382)=""
^DD(2,"GL",.38,3,.383)=""
^DD(2,"GL",.39,1,.391)=""
^DD(2,"GL",.39,2,.392)=""
^DD(2,"GL",.39,3,.393)=""
^DD(2,"GL",.39,4,.394)=""
^DD(2,"GL",.39,5,.395)=""
^DD(2,"GL",.39,6,.39)=""
^DD(2,"GL",.39,7,.3951)=""
^DD(2,"GL",.39,8,.3952)=""
^DD(2,"GL",.39,9,.3953)=""
^DD(2,"GL",.396,0,.396)=""
^DD(2,"GL",.397,0,.397)=""
^DD(2,"GL",.398,0,.398)=""
^DD(2,"GL",.399,0,.399)=""
^DD(2,"GL",.52,5,.525)=""
^DD(2,"GL",.52,6,.526)=""
^DD(2,"GL",.52,7,.527)=""
^DD(2,"GL",.52,8,.528)=""
^DD(2,"GL",.52,11,.5291)=""
^DD(2,"GL",.52,12,.5292)=""
^DD(2,"GL",.52,13,.5293)=""
^DD(2,"GL",.52,14,.5294)=""
^DD(2,"GL",.52,15,.5295)=""
^DD(2,"GL",.52,16,.5296)=""
^DD(2,"GL",.53,1,.531)=""
^DD(2,"GL",.53,2,.532)=""
^DD(2,"GL",.53,3,.533)=""
^DD(2,"GL",.53,4,.535)=""
^DD(2,"GL",57,1,57.1)=""
^DD(2,"GL",57,2,57.2)=""
^DD(2,"GL",57,4,57.4)=""
^DD(2,"GL",1010.15,1,1010.151)=""
^DD(2,"GL",1010.15,2,1010.152)=""
^DD(2,"GL",1010.15,3,1010.153)=""
^DD(2,"GL",1010.15,4,1010.154)=""
^DD(2,"GL",1010.15,5,1010.15)=""
^DD(2,"GL",1010.15,6,1010.156)=""
^DD(2,"GL",1010.15,7,1010.157)=""
^DD(2,"GL",1010.15,8,1010.158)=""
^DD(2,"GL",1010.15,9,1010.159)=""
^DD(2,"GL",1010.15,11,1010.1511)=""
^DD(2,"GL",537025,1,537025)=""
^DD(2,"GL","ARCH",0,1903)=""
^DD(2,"GL","DAC",1,401.3)=""
^DD(2,"GL","DAC",2,401.4)=""
^DD(2,"GL","DE",0,3)=""
^DD(2,"GL","DENT",1,220)=""
^DD(2,"GL","DENT",2,220.1)=""
^DD(2,"GL","DIS",0,1000)=""
^DD(2,"GL","E",0,361)=""
^DD(2,"GL","ENR",1,27.01)=""
^DD(2,"GL","ENR",2,27.02)=""
^DD(2,"GL","FFP",1,1100.01)=""
^DD(2,"GL","FFP",2,1100.02)=""
^DD(2,"GL","FFP",3,1100.03)=""
^DD(2,"GL","FFP",4,1100.04)=""
^DD(2,"GL","FFP",5,1100.05)=""
^DD(2,"GL","FFP",9,1100.09)=""
^DD(2,"GL","INE",1,.1651)=""
^DD(2,"GL","INE",3,.1653)=""
^DD(2,"GL","INE",4,.1654)=""
^DD(2,"GL","INE",6,.1656)=""
^DD(2,"GL","INE",7,.1657)=""
^DD(2,"GL","INE",8,.1658)=""
^DD(2,"GL","INE",9,.1659)=""
^DD(2,"GL","LR",1,63)=""
^DD(2,"GL","LRT",1,67)=""
^DD(2,"GL","MPI",1,991.01)=""
^DD(2,"GL","MPI",2,991.02)=""
^DD(2,"GL","MPI",3,991.03)=""
^DD(2,"GL","MPI",4,991.04)=""
^DD(2,"GL","MPI",5,991.05)=""
^DD(2,"GL","MPI",6,991.06)=""
^DD(2,"GL","MPI",7,991.07)=""
^DD(2,"GL","MPICMOR",0,993)=""
^DD(2,"GL","MPIFHIS",0,992)=""
^DD(2,"GL","MPIMB",1,994)=""
^DD(2,"GL","NAME",1,1.01)=""
^DD(2,"GL","NAME",2,1.02)=""
^DD(2,"GL","NAME",3,1.03)=""
^DD(2,"GL","NAME",4,1.04)=""
^DD(2,"GL","NAME",5,1.05)=""
^DD(2,"GL","NAME",6,1.06)=""
^DD(2,"GL","NAME",7,1.07)=""
^DD(2,"GL","NAME",8,1.08)=""
^DD(2,"GL","NAME",9,1.09)=""
^DD(2,"GL","NHC",1,148)=""
^DD(2,"GL","ODS",1,11500.01)=""
^DD(2,"GL","ODS",2,11500.02)=""
^DD(2,"GL","ODS",3,11500.03)=""
^DD(2,"GL","PC",1,404.01)=""
^DD(2,"GL","PC",2,404.02)=""
^DD(2,"GL","PH",0,534)=""
^DD(2,"GL","PI",1,53)=""
^DD(2,"GL","S",0,1900)=""
^DD(2,"GL","SSN",1,.0906)=""
^DD(2,"GL","TYPE",1,391)=""
^DD(2,"GL","VET",1,1901)=""
^DD(2,"GR","ADR",.111,1)=""
^DD(2,"GR","AO",.32102,1)=""
^DD(2,"GR","AO",.32107,1)=""
^DD(2,"GR","AO",.32108,1)=""
^DD(2,"GR","AO",.32109,1)=""
^DD(2,"GR","AO",.3211,1)=""
^DD(2,"GR","CS",.5291,1)=""
^DD(2,"GR","CS",.5292,1)=""
^DD(2,"GR","CS",.5293,1)=""
^DD(2,"GR","CS",.5294,1)=""
^DD(2,"GR","CS",.5295,1)=""
^DD(2,"GR","D-1",.2202,1)=""
^DD(2,"GR","D1",.2202,2)=""
^DD(2,"GR","D1",.3405,1)=""
^DD(2,"GR","D1",.341,1)=""
^DD(2,"GR","D1",.342,1)=""
^DD(2,"GR","D1",.343,1)=""
^DD(2,"GR","D1",.344,1)=""
^DD(2,"GR","D1",.345,1)=""
^DD(2,"GR","D1",.346,1)=""
^DD(2,"GR","D1",.347,1)=""
^DD(2,"GR","D1",.348,1)=""
^DD(2,"GR","D1",.349,1)=""
^DD(2,"GR","DEMOG",.01,1)=""
^DD(2,"GR","DEMOG",.02,1)=""
^DD(2,"GR","DEMOG",.03,1)=""
^DD(2,"GR","DEMOG",.05,1)=""
^DD(2,"GR","DEMOG",.06,1)=""
^DD(2,"GR","DEMOG",.08,1)=""
^DD(2,"GR","DEMOG",.09,1)=""
^DD(2,"GR","DEMOG",.111,2)=""
^DD(2,"GR","DEMOG",.1112,1)=""
^DD(2,"GR","DEMOG",.112,1)=""
^DD(2,"GR","DEMOG",.113,1)=""
^DD(2,"GR","DEMOG",.114,1)=""
^DD(2,"GR","DEMOG",.115,1)=""
^DD(2,"GR","DEMOG",.116,1)=""
^DD(2,"GR","DEMOG",.117,1)=""
^DD(2,"GR","DEMOG",.131,1)=""
^DD(2,"GR","DEMOG",1,1)=""
^DD(2,"GR","DIS1",.3721,1)=""
^DD(2,"GR","DIS1",.3731,1)=""
^DD(2,"GR","EC1",.2201,1)=""
^DD(2,"GR","EC1",.3305,1)=""
^DD(2,"GR","EC1",.331,1)=""
^DD(2,"GR","EC1",.332,1)=""
^DD(2,"GR","EC1",.333,1)=""
^DD(2,"GR","EC1",.334,1)=""
^DD(2,"GR","EC1",.335,1)=""
^DD(2,"GR","EC1",.336,1)=""
^DD(2,"GR","EC1",.337,1)=""
^DD(2,"GR","EC1",.338,1)=""
^DD(2,"GR","EC1",.339,1)=""
^DD(2,"GR","EC2",.2204,1)=""
^DD(2,"GR","EC2",.3311,1)=""
^DD(2,"GR","EC2",.3312,1)=""
^DD(2,"GR","EC2",.3313,1)=""
^DD(2,"GR","EC2",.3314,1)=""
^DD(2,"GR","EC2",.3315,1)=""
^DD(2,"GR","EC2",.3316,1)=""
^DD(2,"GR","EC2",.3317,1)=""
^DD(2,"GR","EC2",.3318,1)=""
^DD(2,"GR","EC2",.3319,1)=""
^DD(2,"GR","ECD",.301,1)=""
^DD(2,"GR","ECD",.302,1)=""
^DD(2,"GR","ECD",.309,1)=""
^DD(2,"GR","ECD",.312,1)=""
^DD(2,"GR","ECD",.313,1)=""
^DD(2,"GR","ECD",.323,2)=""
^DD(2,"GR","ECD",.361,1)=""
^DD(2,"GR","ECD",.3611,1)=""
^DD(2,"GR","ECD",.3612,1)=""
^DD(2,"GR","ECD",.3614,1)=""
^DD(2,"GR","ECD",.3615,1)=""
^DD(2,"GR","ECD",.3616,1)=""
^DD(2,"GR","ECD",361,1)=""
^DD(2,"GR","ECD",391,1)=""
^DD(2,"GR","ECD",1901,1)=""
^DD(2,"GR","EM1",.07,1)=""
^DD(2,"GR","EM1",.2205,1)=""
^DD(2,"GR","EM1",.3111,1)=""
^DD(2,"GR","EM1",.3113,1)=""
^DD(2,"GR","EM1",.3114,1)=""
^DD(2,"GR","EM1",.3115,1)=""
^DD(2,"GR","EM1",.3116,1)=""
^DD(2,"GR","EM1",.3117,1)=""
^DD(2,"GR","EM1",.3118,1)=""
^DD(2,"GR","EM1",.3119,1)=""
^DD(2,"GR","FFP",1100.01,1)=""
^DD(2,"GR","FFP",1100.02,2)=""
^DD(2,"GR","FFP",1100.03,1)=""
^DD(2,"GR","FFP",1100.04,1)=""
^DD(2,"GR","FFP",1100.05,1)=""
^DD(2,"GR","II",.3121,1)=""
^DD(2,"GR","II",.3192,1)=""
^DD(2,"GR","IPT",.152,1)=""
^DD(2,"GR","IPT",.16,2)=""
^DD(2,"GR","IPT",.1651,1)=""
^DD(2,"GR","IPT",.1653,1)=""
^DD(2,"GR","IPT",.1654,1)=""
^DD(2,"GR","IPT",.1656,1)=""
^DD(2,"GR","IPT",.307,1)=""
^DD(2,"GR","IRD",.32103,1)=""
^DD(2,"GR","IRD",.32111,1)=""
^DD(2,"GR","IRD",.3212,1)=""
^DD(2,"GR","MB",.3025,1)=""
^DD(2,"GR","MB",.303,1)=""
^DD(2,"GR","MB",.306,1)=""
^DD(2,"GR","MB",.36205,1)=""
^DD(2,"GR","MB",.3621,1)=""
^DD(2,"GR","MB",.36215,1)=""
^DD(2,"GR","MB",.3622,1)=""
^DD(2,"GR","MB",.36225,1)=""
^DD(2,"GR","MB",.3623,1)=""
^DD(2,"GR","MB",.36235,1)=""
^DD(2,"GR","MB",.3624,1)=""
^DD(2,"GR","MB",.3625,1)=""
^DD(2,"GR","MB",.36255,1)=""
^DD(2,"GR","MB",.3626,1)=""
^DD(2,"GR","MB",.36265,1)=""
^DD(2,"GR","MB",.3627,1)=""
^DD(2,"GR","MB",.36275,1)=""
^DD(2,"GR","MB",.3628,1)=""
^DD(2,"GR","MB",.36285,1)=""
^DD(2,"GR","MB",.3629,1)=""
^DD(2,"GR","MB",.36295,1)=""
^DD(2,"GR","MPT",.153,1)=""
^DD(2,"GR","MPT",.16,3)=""
^DD(2,"GR","MPT",.1657,1)=""
^DD(2,"GR","MPT",.1658,1)=""
^DD(2,"GR","MPT",.1659,1)=""
^DD(2,"GR","NK1",.211,1)=""
^DD(2,"GR","NK1",.212,1)=""
^DD(2,"GR","NK1",.2125,1)=""
^DD(2,"GR","NK1",.213,1)=""
^DD(2,"GR","NK1",.214,1)=""
^DD(2,"GR","NK1",.215,1)=""
^DD(2,"GR","NK1",.216,1)=""
^DD(2,"GR","NK1",.217,1)=""
^DD(2,"GR","NK1",.218,1)=""
^DD(2,"GR","NK1",.219,1)=""
^DD(2,"GR","NK1",.2207,1)=""
^DD(2,"GR","NK2",.2191,1)=""
^DD(2,"GR","NK2",.2192,1)=""
^DD(2,"GR","NK2",.21925,1)=""
^DD(2,"GR","NK2",.2193,1)=""
^DD(2,"GR","NK2",.2194,1)=""
^DD(2,"GR","NK2",.2195,1)=""
^DD(2,"GR","NK2",.2196,1)=""
^DD(2,"GR","NK2",.2197,1)=""
^DD(2,"GR","NK2",.2198,1)=""
^DD(2,"GR","NK2",.2199,1)=""
^DD(2,"GR","NK2",.2203,1)=""
^DD(2,"GR","PEMP",.132,1)=""
^DD(2,"GR","PEMP",.31115,1)=""
^DD(2,"GR","PW",.525,1)=""
^DD(2,"GR","PW",.526,1)=""
^DD(2,"GR","PW",.527,1)=""
^DD(2,"GR","PW",.528,1)=""
^DD(2,"GR","SP1",.2206,1)=""
^DD(2,"GR","SP1",.251,1)=""
^DD(2,"GR","SP1",.252,1)=""
^DD(2,"GR","SP1",.253,1)=""
^DD(2,"GR","SP1",.254,1)=""
^DD(2,"GR","SP1",.255,1)=""
^DD(2,"GR","SP1",.256,1)=""
^DD(2,"GR","SP1",.257,1)=""
^DD(2,"GR","SP1",.258,1)=""
^DD(2,"GR","SVC",.322,1)=""
^DD(2,"GR","SVC",.323,1)=""
^DD(2,"GR","SVC",.324,1)=""
^DD(2,"GR","SVC",.325,1)=""
^DD(2,"GR","SVC",.326,1)=""
^DD(2,"GR","SVC",.327,1)=""
^DD(2,"GR","SVC",.328,1)=""
^DD(2,"GR","SVC",.3285,1)=""
^DD(2,"GR","SVC",.329,1)=""
^DD(2,"GR","SVC",.3291,1)=""
^DD(2,"GR","SVC",.3292,1)=""
^DD(2,"GR","SVC",.3293,1)=""
^DD(2,"GR","SVC",.3294,1)=""
^DD(2,"GR","SVC",.32945,1)=""
^DD(2,"GR","SVC",.3295,1)=""
^DD(2,"GR","SVC",.3296,1)=""
^DD(2,"GR","SVC",.3297,1)=""
^DD(2,"GR","SVC",.3298,1)=""
^DD(2,"GR","SVC",.3299,1)=""
^DD(2,"GR","SVC",.362,1)=""
^DD(2,"GR","SVC",.368,1)=""
^DD(2,"GR","SVC",.369,1)=""
^DD(2,"GR","SVC",.37,1)=""
^DD(2,"GR","SVC",1901,2)=""
^DD(2,"GR","TAD",.12105,1)=""
^DD(2,"GR","TAD",.1211,1)=""
^DD(2,"GR","TAD",.12111,1)=""
^DD(2,"GR","TAD",.12112,1)=""
^DD(2,"GR","TAD",.1212,1)=""
^DD(2,"GR","TAD",.1213,1)=""
^DD(2,"GR","TAD",.1214,1)=""
^DD(2,"GR","TAD",.1215,1)=""
^DD(2,"GR","TAD",.1216,1)=""
^DD(2,"GR","TAD",.1217,1)=""
^DD(2,"GR","TAD",.1218,1)=""
^DD(2,"GR","TAD",.1219,1)=""
^DD(2,"GR","VN",.32101,1)=""
^DD(2,"GR","VN",.32104,1)=""
^DD(2,"GR","VN",.32105,1)=""
^DD(2,"GR","ffp",1100.02,1)=""
^DD(2,"IX",.01)=""
^DD(2,"IX",.02)=""
^DD(2,"IX",.03)=""
^DD(2,"IX",.05)=""
^DD(2,"IX",.06)=""
^DD(2,"IX",.07)=""
^DD(2,"IX",.08)=""
^DD(2,"IX",.083)=""
^DD(2,"IX",.09)=""
^DD(2,"IX",.092)=""
^DD(2,"IX",.093)=""
^DD(2,"IX",.1)=""
^DD(2,"IX",.101)=""
^DD(2,"IX",.103)=""
^DD(2,"IX",.104)=""
^DD(2,"IX",.1041)=""
^DD(2,"IX",.105)=""
^DD(2,"IX",.107)=""
^DD(2,"IX",.111)=""
^DD(2,"IX",.1112)=""
^DD(2,"IX",.112)=""
^DD(2,"IX",.113)=""
^DD(2,"IX",.114)=""
^DD(2,"IX",.115)=""
^DD(2,"IX",.116)=""
^DD(2,"IX",.117)=""
^DD(2,"IX",.118)=""
^DD(2,"IX",.119)=""
^DD(2,"IX",.121)=""
^DD(2,"IX",.12105)=""
^DD(2,"IX",.1211)=""
^DD(2,"IX",.12111)=""
^DD(2,"IX",.12112)=""
^DD(2,"IX",.12113)=""
^DD(2,"IX",.1212)=""
^DD(2,"IX",.1216)=""
^DD(2,"IX",.1217)=""
^DD(2,"IX",.1219)=""
^DD(2,"IX",.131)=""
^DD(2,"IX",.1311)=""
^DD(2,"IX",.1312)=""
^DD(2,"IX",.1313)=""
^DD(2,"IX",.132)=""
^DD(2,"IX",.133)=""
^DD(2,"IX",.134)=""
^DD(2,"IX",.135)=""
^DD(2,"IX",.136)=""
^DD(2,"IX",.137)=""
^DD(2,"IX",.139)=""
^DD(2,"IX",.14)=""
^DD(2,"IX",.14105)=""
^DD(2,"IX",.1411)=""
^DD(2,"IX",.14111)=""
^DD(2,"IX",.14112)=""
^DD(2,"IX",.1412)=""
^DD(2,"IX",.152)=""
^DD(2,"IX",.153)=""
^DD(2,"IX",.1656)=""
^DD(2,"IX",.181)=""
^DD(2,"IX",.21012)=""
^DD(2,"IX",.211)=""
^DD(2,"IX",.212)=""
^DD(2,"IX",.213)=""
^DD(2,"IX",.214)=""
^DD(2,"IX",.216)=""
^DD(2,"IX",.217)=""
^DD(2,"IX",.218)=""
^DD(2,"IX",.219)=""
^DD(2,"IX",.2191)=""
^DD(2,"IX",.2193)=""
^DD(2,"IX",.2194)=""
^DD(2,"IX",.2198)=""
^DD(2,"IX",.2201)=""
^DD(2,"IX",.2202)=""
^DD(2,"IX",.2203)=""
^DD(2,"IX",.2204)=""
^DD(2,"IX",.2205)=""
^DD(2,"IX",.2206)=""
^DD(2,"IX",.2207)=""
^DD(2,"IX",.2403)=""
^DD(2,"IX",.251)=""
^DD(2,"IX",.2515)=""
^DD(2,"IX",.252)=""
^DD(2,"IX",.253)=""
^DD(2,"IX",.257)=""
^DD(2,"IX",.290012)=""
^DD(2,"IX",.29013)=""
^DD(2,"IX",.2918)=""
^DD(2,"IX",.2928)=""
^DD(2,"IX",.293)=""
^DD(2,"IX",.301)=""
^DD(2,"IX",.302)=""
^DD(2,"IX",.3025)=""
^DD(2,"IX",.304)=""
^DD(2,"IX",.305)=""
^DD(2,"IX",.307)=""
^DD(2,"IX",.31)=""
^DD(2,"IX",.3111)=""
^DD(2,"IX",.31115)=""
^DD(2,"IX",.3113)=""
^DD(2,"IX",.3114)=""
^DD(2,"IX",.3118)=""
^DD(2,"IX",.312)=""
^DD(2,"IX",.313)=""
^DD(2,"IX",.314)=""
^DD(2,"IX",.3192)=""
^DD(2,"IX",.32101)=""
^DD(2,"IX",.32102)=""
^DD(2,"IX",.32103)=""
^DD(2,"IX",.32104)=""
^DD(2,"IX",.32105)=""
^DD(2,"IX",.32115)=""
^DD(2,"IX",.3212)=""
^DD(2,"IX",.3213)=""
^DD(2,"IX",.3214)=""
^DD(2,"IX",.32201)=""
^DD(2,"IX",.322011)=""
^DD(2,"IX",.322012)=""
^DD(2,"IX",.322013)=""
^DD(2,"IX",.322016)=""
^DD(2,"IX",.322017)=""
^DD(2,"IX",.322018)=""
^DD(2,"IX",.322019)=""
^DD(2,"IX",.32202)=""
^DD(2,"IX",.322021)=""
^DD(2,"IX",.3221)=""
^DD(2,"IX",.3222)=""
^DD(2,"IX",.3223)=""
^DD(2,"IX",.3224)=""
^DD(2,"IX",.3225)=""
^DD(2,"IX",.3226)=""
^DD(2,"IX",.3227)=""
^DD(2,"IX",.3228)=""
^DD(2,"IX",.3229)=""
^DD(2,"IX",.323)=""
^DD(2,"IX",.324)=""
^DD(2,"IX",.325)=""
^DD(2,"IX",.326)=""
^DD(2,"IX",.327)=""
^DD(2,"IX",.328)=""
^DD(2,"IX",.3285)=""
^DD(2,"IX",.329)=""
^DD(2,"IX",.3291)=""
^DD(2,"IX",.32911)=""
^DD(2,"IX",.32912)=""
^DD(2,"IX",.32913)=""
^DD(2,"IX",.3292)=""
^DD(2,"IX",.3293)=""
^DD(2,"IX",.3294)=""
^DD(2,"IX",.32945)=""
^DD(2,"IX",.3295)=""
^DD(2,"IX",.3296)=""
^DD(2,"IX",.3297)=""
^DD(2,"IX",.3298)=""
^DD(2,"IX",.3299)=""
^DD(2,"IX",.331)=""
^DD(2,"IX",.3311)=""
^DD(2,"IX",.3313)=""
^DD(2,"IX",.3314)=""
^DD(2,"IX",.3318)=""
^DD(2,"IX",.333)=""
^DD(2,"IX",.334)=""
^DD(2,"IX",.338)=""
^DD(2,"IX",.341)=""
^DD(2,"IX",.343)=""
^DD(2,"IX",.344)=""
^DD(2,"IX",.348)=""
^DD(2,"IX",.351)=""
^DD(2,"IX",.353)=""
^DD(2,"IX",.354)=""
^DD(2,"IX",.3601)=""
^DD(2,"IX",.3602)=""
^DD(2,"IX",.3603)=""
^DD(2,"IX",.361)=""
^DD(2,"IX",.3611)=""
^DD(2,"IX",.3612)=""
^DD(2,"IX",.3615)=""
^DD(2,"IX",.3617)=""
^DD(2,"IX",.3618)=""
^DD(2,"IX",.362)=""
^DD(2,"IX",.36205)=""
^DD(2,"IX",.36215)=""
^DD(2,"IX",.36225)=""
^DD(2,"IX",.36235)=""
^DD(2,"IX",.36255)=""
^DD(2,"IX",.36265)=""
^DD(2,"IX",.36295)=""
^DD(2,"IX",.363)=""
^DD(2,"IX",.381)=""
^DD(2,"IX",.382)=""
^DD(2,"IX",.383)=""
^DD(2,"IX",.39)=""
^DD(2,"IX",.391)=""
^DD(2,"IX",.392)=""
^DD(2,"IX",.393)=""
^DD(2,"IX",.394)=""
^DD(2,"IX",.395)=""
^DD(2,"IX",.3951)=""
^DD(2,"IX",.3952)=""
^DD(2,"IX",.3953)=""
^DD(2,"IX",.525)=""
^DD(2,"IX",.526)=""
^DD(2,"IX",.527)=""
^DD(2,"IX",.528)=""
^DD(2,"IX",.5291)=""
^DD(2,"IX",.5292)=""
^DD(2,"IX",.5293)=""
^DD(2,"IX",.5294)=""
^DD(2,"IX",.5295)=""
^DD(2,"IX",.5296)=""
^DD(2,"IX",.531)=""
^DD(2,"IX",.532)=""
^DD(2,"IX",.533)=""
^DD(2,"IX",.6)=""
^DD(2,"IX",27.01)=""
^DD(2,"IX",27.02)=""
^DD(2,"IX",391)=""
^DD(2,"IX",401.3)=""
^DD(2,"IX",991.01)=""
^DD(2,"IX",991.03)=""
^DD(2,"IX",991.04)=""
^DD(2,"IX",991.05)=""
^DD(2,"IX",991.06)=""
^DD(2,"IX",1010.15)=""
^DD(2,"IX",1010.151)=""
^DD(2,"IX",1010.1511)=""
^DD(2,"IX",1010.153)=""
^DD(2,"IX",1010.159)=""
^DD(2,"IX",1100.01)=""
^DD(2,"IX",1901)=""
^DD(2,"IX",11500.02)=""
^DD(2,"IX",11500.03)=""
^DD(2,"RQ",.01)=""
^DD(2,"RQ",.02)=""
^DD(2,"RQ",.03)=""
^DD(2,"RQ",.05)=""
^DD(2,"RQ",.09)=""
^DD(2,"RQ",.12105)=""
^DD(2,"RQ",.14105)=""
^DD(2,"RQ",.1651)=""
^DD(2,"RQ",.2125)=""
^DD(2,"RQ",.21925)=""
^DD(2,"RQ",.2515)=""
^DD(2,"RQ",.301)=""
^DD(2,"RQ",.31115)=""
^DD(2,"RQ",.3192)=""
^DD(2,"RQ",.32101)=""
^DD(2,"RQ",.32102)=""
^DD(2,"RQ",.32103)=""
^DD(2,"RQ",.32104)=""
^DD(2,"RQ",.32105)=""
^DD(2,"RQ",.3213)=""
^DD(2,"RQ",.32201)=""
^DD(2,"RQ",.322011)=""
^DD(2,"RQ",.322012)=""
^DD(2,"RQ",.322013)=""
^DD(2,"RQ",.322016)=""
^DD(2,"RQ",.322017)=""
^DD(2,"RQ",.322018)=""
^DD(2,"RQ",.32202)=""
^DD(2,"RQ",.322021)=""
^DD(2,"RQ",.3221)=""
^DD(2,"RQ",.3222)=""
^DD(2,"RQ",.3223)=""
^DD(2,"RQ",.3224)=""
^DD(2,"RQ",.3225)=""
^DD(2,"RQ",.3226)=""
^DD(2,"RQ",.3227)=""
^DD(2,"RQ",.3228)=""
^DD(2,"RQ",.3229)=""
^DD(2,"RQ",.324)=""
^DD(2,"RQ",.326)=""
^DD(2,"RQ",.327)=""
^DD(2,"RQ",.3285)=""
^DD(2,"RQ",.329)=""
^DD(2,"RQ",.3292)=""
^DD(2,"RQ",.3293)=""
^DD(2,"RQ",.32945)=""
^DD(2,"RQ",.3295)=""
^DD(2,"RQ",.3297)=""
^DD(2,"RQ",.3298)=""
^DD(2,"RQ",.3305)=""
^DD(2,"RQ",.3405)=""
^DD(2,"RQ",.3601)=""
^DD(2,"RQ",.362)=""
^DD(2,"RQ",.381)=""
^DD(2,"RQ",.382)=""
^DD(2,"RQ",.525)=""
^DD(2,"RQ",.526)=""
^DD(2,"RQ",.527)=""
^DD(2,"RQ",.528)=""
^DD(2,"RQ",.5291)=""
^DD(2,"RQ",.5292)=""
^DD(2,"RQ",.5293)=""
^DD(2,"RQ",.5294)=""
^DD(2,"RQ",391)=""
^DD(2,"RQ",401.4)=""
^DD(2,"RQ",1010.15)=""
^DD(2,"RQ",1901)=""
^DD(2,"SB",2.001,3)=""
^DD(2,"SB",2.01,1)=""
^DD(2,"SB",2.02,2)=""
^DD(2,"SB",2.0361,361)=""
^DD(2,"SB",2.04,.3721)=""
^DD(2,"SB",2.05,.3731)=""
^DD(2,"SB",2.0534,534)=""
^DD(2,"SB",2.06,6)=""
^DD(2,"SB",2.0992,992)=""
^DD(2,"SB",2.0993,993)=""
^DD(2,"SB",2.101,1000)=""
^DD(2,"SB",2.11,.37)=""
^DD(2,"SB",2.12,1903)=""
^DD(2,"SB",2.141,.141)=""
^DD(2,"SB",2.16,.16)=""
^DD(2,"SB",2.312,.3121)=""
^DD(2,"SB",2.3215,.3215)=""
^DD(2,"SB",2.396,.396)=""
^DD(2,"SB",2.397,.397)=""
^DD(2,"SB",2.398,.398)=""
^DD(2,"SB",2.399,.399)=""
^DD(2,"SB",2.98,1900)=""
^DD(2.001,0)="ENROLLMENT CLINIC SUB-FIELD^NL^2^3"
^DD(2.001,0,"IX","B",2.001,.01)=""
^DD(2.001,0,"NM","ENROLLMENT CLINIC")=""
^DD(2.001,0,"UP")="2"
^DD(2.001,.01,0)="ENROLLMENT CLINIC^MP44'X^SC(^0;1^K:$P(^SC(X,0),""^"",3)'[""C"" X Q"
^DD(2.001,.01,1,0)="^.1"
^DD(2.001,.01,1,1,0)="2.001^B"
^DD(2.001,.01,1,1,1)="S ^DPT(DA(1),""DE"",""B"",$E(X,1,30),DA)="""""
^DD(2.001,.01,1,1,2)="K ^DPT(DA(1),""DE"",""B"",$E(X,1,30),DA)"
^DD(2.001,.01,"DT")="2851030"
^DD(2.001,1,0)="ENROLLMENT DATA^2.011D^^1;0"
^DD(2.001,1,21,0)="^^4^4^2911214^"
^DD(2.001,1,21,1,0)="This multiple contains the pertinant data relating to this patients"
^DD(2.001,1,21,2,0)="enrollment in this clinic.  Data contained in this multiple includes"
^DD(2.001,1,21,3,0)="the date the patient was enrolled, the date of discharge from the clinic"
^DD(2.001,1,21,4,0)="and whether the patient was seen on an outpatient or ambulatory care basis."
^DD(2.001,2,0)="CURRENT STATUS^S^I:INACTIVE;^0;2^Q"
^DD(2.001,2,3)="If this patient is currently no longer enrolled in this clinic, enter 'I' here."
^DD(2.001,2,5,1,0)="2.011^.01^1"
^DD(2.001,2,5,2,0)="2.011^3^1"
^DD(2.001,2,21,0)="^^2^2^2911214^"
^DD(2.001,2,21,1,0)="This field will contain 'I' for inactive if this patient is no longer"
^DD(2.001,2,21,2,0)="enrolled in this clinic (patient has been discharged from the clinic)."
^DD(2.001,"B","CURRENT STATUS",2)=""
^DD(2.001,"B","ENROLLMENT CLINIC",.01)=""
^DD(2.001,"B","ENROLLMENT DATA",1)=""
^DD(2.001,"GL",0,1,.01)=""
^DD(2.001,"GL",0,2,2)=""
^DD(2.001,"GL",1,0,1)=""
^DD(2.001,"IX",.01)=""
^DD(2.001,"SB",2.011,1)=""
^DD(2.01,0)="ALIAS SUB-FIELD^NL^100.03^3"
^DD(2.01,0,"NM","ALIAS")=""
^DD(2.01,0,"UP")="2"
^DD(2.01,.01,0)="ALIAS^MF^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"
^DD(2.01,.01,1,0)="^.1"
^DD(2.01,.01,1,1,0)="2^B^MNEMONIC"
^DD(2.01,.01,1,1,1)="S:'$D(^DPT(""B"",$E(X,1,30),DA(1),DA)) ^(DA)=1"
^DD(2.01,.01,1,1,2)="I $D(^DPT(""B"",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)"
^DD(2.01,.01,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."
^DD(2.01,.01,21,0)="^^4^4^2861007^"
^DD(2.01,.01,21,1,0)="Enter the alias name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2.01,.01,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"
^DD(2.01,.01,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2.01,.01,21,4,0)="characters and parenthetical text will be removed."
^DD(2.01,.01,"DT")="3050611"
^DD(2.01,1,0)="ALIAS SSN^F^^0;2^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(2.01,1,3)="ANSWER MUST BE 9 CHARACTERS IN LENGTH"
^DD(2.01,1,21,0)="^^3^3^2911214^"
^DD(2.01,1,21,1,0)="If the patient was also known under a name other than that listed in"
^DD(2.01,1,21,2,0)="the NAME field of the PATIENT file, enter the social security number"
^DD(2.01,1,21,3,0)="used when the patient used this alias."
^DD(2.01,1,"DT")="2851213"
^DD(2.01,100.03,0)="ALIAS COMPONENTS^P20'I^VA(20,^0;3^Q"
^DD(2.01,100.03,1,0)="^.1^^0"
^DD(2.01,100.03,3)="This field contains a pointer to the NAME COMPONENTS record associated with ALIAS field #.01."
^DD(2.01,100.03,9)="^"
^DD(2.01,100.03,"DT")="3020419"
^DD(2.01,"B","ALIAS",.01)=""
^DD(2.01,"B","ALIAS COMPONENTS",100.03)=""
^DD(2.01,"B","ALIAS SSN",1)=""
^DD(2.01,"GL",0,1,.01)=""
^DD(2.01,"GL",0,2,1)=""
^DD(2.01,"GL",0,3,100.03)=""
^DD(2.01,"IX",.01)=""
^DD(2.011,0)="ENROLLMENT DATA SUB-FIELD^NL^5^6"
^DD(2.011,0,"IX","AEB1",2.011,.01)=""
^DD(2.011,0,"NM","ENROLLMENT DATA")=""
^DD(2.011,0,"UP")="2.001"
^DD(2.011,.01,0)="DATE OF ENROLLMENT^RDX^^0;1^S %DT=""EXT"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X I $N(^DPT(DA(2),""DE"",DA(1),1,0))>0,$P(^DPT(DA(2),""DE"",DA(1),0),""^"",2)']"""" W !,*7,*7,""PATIENT ALREADY HAS ACTIVE ENROLLMENT IN CLINIC !!"",*7,*7 K X"
^DD(2.011,.01,1,0)="^.1"
^DD(2.011,.01,1,1,0)="^^TRIGGER^2.001^2"
^DD(2.011,.01,1,1,1)="X ^DD(2.011,.01,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DE"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1) S DIU=X K Y S X="""" X ^DD(2.011,.01,1,1,1.4)"
^DD(2.011,.01,1,1,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA"
^DD(2.011,.01,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),""DE"",DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.011,.01,1,1,2)="X ^DD(2.011,.01,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DE"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1) S DIU=X K Y S X=""I"" X ^DD(2.011,.01,1,1,2.4)"
^DD(2.011,.01,1,1,2.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA"
^DD(2.011,.01,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),""DE"",DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.011,.01,1,1,"CREATE VALUE")="@"
^DD(2.011,.01,1,1,"DELETE VALUE")="""I"""
^DD(2.011,.01,1,1,"FIELD")="CURRENT STATUS"
^DD(2.011,.01,1,2,0)="2^AEB^MUMPS"
^DD(2.011,.01,1,2,1)="S ^DPT(""AEB"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(2.011,.01,1,2,2)="K ^DPT(""AEB"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(2.011,.01,1,2,"%D",0)="^^1^1^2930804^"
^DD(2.011,.01,1,2,"%D",1,0)=" "
^DD(2.011,.01,1,3,0)="2.011^AEB1^MUMPS"
^DD(2.011,.01,1,3,1)="S SD=+^DPT(DA(2),""DE"",DA(1),0),^DPT(""AEB1"",SD,$E(X,1,30),DA(2),DA(1),DA)="""" K SD"
^DD(2.011,.01,1,3,2)="S SD=+^DPT(DA(2),""DE"",DA(1),0) K ^DPT(""AEB1"",SD,$E(X,1,30),DA(2),DA(1),DA),SD"
^DD(2.011,.01,21,0)="^^1^1^2911214^"
^DD(2.011,.01,21,1,0)="Enter the date this patient was initially enrolled in this clinic."
^DD(2.011,.01,"DT")="2900418"
^DD(2.011,1,0)="OPT OR AC^RS^O:OPT;A:AC;^0;2^Q"
^DD(2.011,1,21,0)="^^2^2^2911214^"
^DD(2.011,1,21,1,0)="Enter O if the patient is being seen by this clinic on an outpatient"
^DD(2.011,1,21,2,0)="basis.  Enter A if the patient is being seen for ambulatory care."
^DD(2.011,1,"DT")="2830712"
^DD(2.011,2,0)="SERVICE^CJ12^^ ; ^X ^DD(2.011,2,9.2) S Y(2,101)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$P($P(Y(2,102),$C(59)_$P(Y(2,101),U,3)_"":"",2),$C(59),1) S D0=Y(2,2)"
^DD(2.011,2,9)="^"
^DD(2.011,2,9.01)="44^2;2.001^.01"
^DD(2.011,2,9.1)="ENROLLMENT CLINIC:SERVICE"
^DD(2.011,2,9.2)="S Y(2,2)=$S($D(D0):D0,1:""""),Y(2,1)=$S($D(^DPT(D0,""DE"",D1,0)):^(0),1:""""),D0=$P(Y(2,1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S Y(2,102)=$C(59)_$S($D(^DD(44,2,0)):$P(^(0),U,3),1:"""")"
^DD(2.011,2,21,0)="^^2^2^2911214^"
^DD(2.011,2,21,1,0)="This is a computed field which returns the service of the clinic in which"
^DD(2.011,2,21,2,0)="this patient is (was) enrolled."
^DD(2.011,3,0)="DATE OF DISCHARGE^DX^^0;3^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S HSC=+^DPT(DA(2),""DE"",DA(1),0) F XS=(X\1_.9):0 S XS=$N(^DPT(DA(2),""S"",XS)) Q:XS<0  I +^(XS,0)=HSC,$P(^(0),""^"",2)'[""C"",$P(^(0),""^"",2)'[""N"" X ^DD(2.011,3,9.2) Q"
^DD(2.011,3,1,0)="^.1^^-1"
^DD(2.011,3,1,1,0)="^^TRIGGER^2.001^2"
^DD(2.011,3,1,1,1)="X ^DD(2.011,3,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DE"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1) S DIU=X K Y S X=""I"" X ^DD(2.011,3,1,1,1.4)"
^DD(2.011,3,1,1,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA"
^DD(2.011,3,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),""DE"",DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.011,3,1,1,2)="X ^DD(2.011,3,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.001,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DE"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1) S DIU=X K Y S X="""" X ^DD(2.011,3,1,1,2.4)"
^DD(2.011,3,1,1,2.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA"
^DD(2.011,3,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),""DE"",DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.001,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.011,3,1,1,"CREATE VALUE")="""I"""
^DD(2.011,3,1,1,"DELETE VALUE")="@"
^DD(2.011,3,1,1,"FIELD")="CURRENT STATUS"
^DD(2.011,3,1,2,0)="2^AC^MUMPS"
^DD(2.011,3,1,2,1)="K ^DPT(""AEB"",+$P(^DPT(DA(2),""DE"",DA(1),1,DA,0),""^"",1),DA(2),DA(1),DA)"
^DD(2.011,3,1,2,2)="S ^DPT(""AEB"",+$P(^DPT(DA(2),""DE"",DA(1),1,DA,0),""^"",1),DA(2),DA(1),DA)="""""
^DD(2.011,3,1,2,"DT")="2930804"
^DD(2.011,3,1,4,0)="^^TRIGGER^2.011^5"
^DD(2.011,3,1,4,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^DPT(D0,""DE"",D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(2.011,3,1,4,1.4)"
^DD(2.011,3,1,4,1.4)="S DIH=$S($D(^DPT(DIV(0),""DE"",DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.011,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.011,3,1,4,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^DPT(D0,""DE"",D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(2.011,3,1,4,2.4)"
^DD(2.011,3,1,4,2.4)="S DIH=$S($D(^DPT(DIV(0),""DE"",DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.011,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.011,3,1,4,"CREATE VALUE")="@"
^DD(2.011,3,1,4,"DELETE VALUE")="@"
^DD(2.011,3,1,4,"FIELD")="REVIEW DATE"
^DD(2.011,3,9.2)="W !,*7,""PATIENT HAS FUTURE APPOINTMENTS, MUST BE CANCELLED PRIOR TO DISCHARGE !!"",*7 K X"
^DD(2.011,3,21,0)="^^1^1^2911214^"
^DD(2.011,3,21,1,0)="This field contains the date this patient was discharged from this clinic."
^DD(2.011,3,"DT")="2930804"
^DD(2.011,4,0)="REASON FOR DISCHARGE^F^^0;4^K:$L(X)>80!($L(X)<2) X"
^DD(2.011,4,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(2.011,4,21,0)="^^3^3^2911214^^"
^DD(2.011,4,21,1,0)="If the patient has been discharged from this clinic, this field contains the"
^DD(2.011,4,21,2,0)="reason the patient was discharged.  This is a free text field which"
^DD(2.011,4,21,3,0)="allows up to 80 characters to be entered."
^DD(2.011,4,"DT")="2840417"
^DD(2.011,5,0)="REVIEW DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2.011,5,3)="Enter the date/time the patient's enrollment in this clinic was last reviewed."
^DD(2.011,5,5,1,0)="2.011^3^4"
^DD(2.011,5,21,0)="^^2^2^2911214^"
^DD(2.011,5,21,1,0)="Enter the date on which this patients enrollment in this particular"
^DD(2.011,5,21,2,0)="clinic was last reviewed."
^DD(2.011,5,"DT")="2860317"
^DD(2.011,"B","DATE OF DISCHARGE",3)=""
^DD(2.011,"B","DATE OF ENROLLMENT",.01)=""
^DD(2.011,"B","OPT OR AC",1)=""
^DD(2.011,"B","REASON FOR DISCHARGE",4)=""
^DD(2.011,"B","REVIEW DATE",5)=""
^DD(2.011,"B","SERVICE",2)=""
^DD(2.011,"GL",0,1,.01)=""
^DD(2.011,"GL",0,2,1)=""
^DD(2.011,"GL",0,3,3)=""
^DD(2.011,"GL",0,4,4)=""
^DD(2.011,"GL",0,5,5)=""
^DD(2.011,"IX",.01)=""
^DD(2.011,"IX",3)=""
^DD(2.011,"RQ",.01)=""
^DD(2.011,"RQ",1)=""
^DD(2.02,0)="RACE INFORMATION SUB-FIELD^^.02^2"
^DD(2.02,0,"DT")="3020814"
^DD(2.02,0,"IX","B",2.02,.01)=""
^DD(2.02,0,"NM","RACE INFORMATION")=""
^DD(2.02,0,"UP")="2"
^DD(2.02,.01,0)="RACE INFORMATION^M*P10'X^DIC(10,^0;1^S DIC(""S"")=""I '$G(^(.02))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(2.02,.01,1,0)="^.1"
^DD(2.02,.01,1,1,0)="2.02^B"
^DD(2.02,.01,1,1,1)="S ^DPT(DA(1),.02,""B"",$E(X,1,30),DA)="""""
^DD(2.02,.01,1,1,2)="K ^DPT(DA(1),.02,""B"",$E(X,1,30),DA)"
^DD(2.02,.01,1,2,0)="^^TRIGGER^2.02^.02"
^DD(2.02,.01,1,2,1)="X ^DD(2.02,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.02,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+$O(^DIC(10.3,""C"",""S"",0)) S:X=0 X="""" X ^DD(2.02,.01,1,2,1.4)"
^DD(2.02,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.02,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(10.3,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(2.02,.01,1,2,1.4)="S DIH=$G(^DPT(DIV(0),.02,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.02,DIG=.02 D ^DICR"
^DD(2.02,.01,1,2,2)="Q"
^DD(2.02,.01,1,2,"%D",0)="^.101^1^1^3020709^^"
^DD(2.02,.01,1,2,"%D",1,0)="SELF IDENTIFICATION is the default value for collection method"
^DD(2.02,.01,1,2,"CREATE CONDITION")="METHOD OF COLLECTION="""""
^DD(2.02,.01,1,2,"CREATE VALUE")="S X=+$O(^DIC(10.3,""C"",""S"",0)) S:X=0 X="""""
^DD(2.02,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2.02,.01,1,2,"DT")="3020709"
^DD(2.02,.01,1,2,"FIELD")="METHOD"
^DD(2.02,.01,3)="Select from the available listing all races which best identify this patient"
^DD(2.02,.01,12)="Inactive values are not selectable"
^DD(2.02,.01,12.1)="S DIC(""S"")=""I '$G(^(.02))"""
^DD(2.02,.01,21,0)="^^1^1^3020726^"
^DD(2.02,.01,21,1,0)="Patient's race"
^DD(2.02,.01,"DT")="3020709"
^DD(2.02,.02,0)="METHOD OF COLLECTION^RP10.3'^DIC(10.3,^0;2^Q"
^DD(2.02,.02,3)="Enter the method in which the race value was collected"
^DD(2.02,.02,5,1,0)="2.02^.01^2"
^DD(2.02,.02,21,0)="^.001^1^1^3020814^^"
^DD(2.02,.02,21,1,0)="Method used to collect patient's race"
^DD(2.02,.02,"DT")="3020814"
^DD(2.02,"B","METHOD OF COLLECTION",.02)=""
^DD(2.02,"B","RACE INFORMATION",.01)=""
^DD(2.02,"GL",0,1,.01)=""
^DD(2.02,"GL",0,2,.02)=""
^DD(2.02,"IX",.01)=""
^DD(2.02,"RQ",.02)=""
^DD(2.0361,0)="PATIENT ELIGIBILITIES SUB-FIELD^^.04^3"
^DD(2.0361,0,"DT")="2911004"
^DD(2.0361,0,"IX","AC",2.0361,.03)=""
^DD(2.0361,0,"IX","B",2.0361,.01)=""
^DD(2.0361,0,"NM","PATIENT ELIGIBILITIES")=""
^DD(2.0361,0,"UP")="2"
^DD(2.0361,.01,0)="ELIGIBILITY^M*P8'X^DIC(8,^0;1^S DIC(""S"")=""I '$P(^(0),U,7),$S($P(^(0),U,8):1,'$D(^DPT(D0,.36)):0,1:Y=+^(.36)),$$ELGCHK^DGRPTU(D0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(2.0361,.01,1,0)="^.1"
^DD(2.0361,.01,1,1,0)="2.0361^B"
^DD(2.0361,.01,1,1,1)="S ^DPT(DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(2.0361,.01,1,1,2)="K ^DPT(DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(2.0361,.01,1,2,0)="2^AEL1^MUMPS"
^DD(2.0361,.01,1,2,1)="S ^DPT(""AEL"",DA(1),+X)="""""
^DD(2.0361,.01,1,2,2)="K ^DPT(""AEL"",DA(1),+X)"
^DD(2.0361,.01,1,3,0)="^^TRIGGER^2.0361^.03"
^DD(2.0361,.01,1,3,1)="D E31^VADPT62"
^DD(2.0361,.01,1,3,1.1)="S X=DIV S X="""" I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),""LONG"")) X ^(""LONG"")"
^DD(2.0361,.01,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),""E"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=2.0361,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.01,1,3,2)="D E32^VADPT62"
^DD(2.0361,.01,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),""E"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=2.0361,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.01,1,3,"CREATE VALUE")="S X="""" I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),""LONG"")) X ^(""LONG"")"
^DD(2.0361,.01,1,3,"DELETE VALUE")="@"
^DD(2.0361,.01,1,3,"FIELD")="LONG ID"
^DD(2.0361,.01,1,4,0)="2^AO^MUMPS"
^DD(2.0361,.01,1,4,1)="S DFN=DA(1) D EN^DGMTR K DGREQF"
^DD(2.0361,.01,1,4,2)="S DFN=DA(1) D EN^DGMTR K DGREQF"
^DD(2.0361,.01,1,4,"%D",0)="^^2^2^2970923^^^^"
^DD(2.0361,.01,1,4,"%D",1,0)="This cross-reference is used to determine whether or not a means test or"
^DD(2.0361,.01,1,4,"%D",2,0)="co-pay test is required."
^DD(2.0361,.01,1,4,"DT")="2970923"
^DD(2.0361,.01,1,5,0)="2^AENR01^MUMPS"
^DD(2.0361,.01,1,5,1)="D AUTOUPD^DGENA2(DA(1))"
^DD(2.0361,.01,1,5,2)="D AUTOUPD^DGENA2(DA(1))"
^DD(2.0361,.01,1,5,3)="DO NOT DELETE"
^DD(2.0361,.01,1,5,"%D",0)="^^7^7^2970820^^^^"
^DD(2.0361,.01,1,5,"%D",1,0)="This cross-reference is used to update the patient's current Patient Enrollment "
^DD(2.0361,.01,1,5,"%D",2,0)="record."
^DD(2.0361,.01,1,5,"%D",3,0)=" "
^DD(2.0361,.01,1,5,"%D",4,0)="When deleting an eligibility, at the point the kill logic of this x-ref"
^DD(2.0361,.01,1,5,"%D",5,0)="is executed the data still exists in the global.  To determine whether an"
^DD(2.0361,.01,1,5,"%D",6,0)="eligibility still exists the ""B"" x-ref is checked - if not there, the"
^DD(2.0361,.01,1,5,"%D",7,0)="eligibility is ignored."
^DD(2.0361,.01,1,5,"DT")="2970715"
^DD(2.0361,.01,3)="Select other eligibilities to which this patient may be entitled."
^DD(2.0361,.01,5,1,0)="2^.361^2"
^DD(2.0361,.01,12)="Select other eligibilities for the patient. The primary may be selected but it must already exist."
^DD(2.0361,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,7),$S($P(^(0),U,8):1,'$D(^DPT(D0,.36)):0,1:Y=+^(.36)),$$ELGCHK^DGRPTU(D0)"""
^DD(2.0361,.01,21,0)="^^3^3^2911214^^^^"
^DD(2.0361,.01,21,1,0)="Enter all eligibilities under which this patient may receive care.  The"
^DD(2.0361,.01,21,2,0)="patients primary eligibility as well as all other eligibilities he is"
^DD(2.0361,.01,21,3,0)="entitled to is stored in this multiple."
^DD(2.0361,.01,23,0)="^^9^9^2911214^^^^"
^DD(2.0361,.01,23,1,0)="Unlike previous versions of the PATIENT file, in this"
^DD(2.0361,.01,23,2,0)="version ALL the patient's eligibilities are stored in this"
^DD(2.0361,.01,23,3,0)="multiple."
^DD(2.0361,.01,23,4,0)=" "
^DD(2.0361,.01,23,5,0)="When the user enters/edits that patient's PRIMARY ELIGIBILITY CODE, that"
^DD(2.0361,.01,23,6,0)="code is automatically stored in the multiple as well as in"
^DD(2.0361,.01,23,7,0)="the PRIMARY ELIGIBILITY CODE field."
^DD(2.0361,.01,23,8,0)=" "
^DD(2.0361,.01,23,9,0)="This change was necessary to accomodate the VA/DOD sharing"
^DD(2.0361,.01,"DEL",1,0)="S DFN=DA(1) D EV^DGLOCK I '$D(X)!(+$G(^DPT(DA(1),.36))=DA) W:$D(X) !?5,""Deleting primary eligibility is not allowed"""
^DD(2.0361,.01,"DT")="2970923"
^DD(2.0361,.03,0)="LONG ID^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X),$D(X) K:$L(X)>15!($L(X)<1) X I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),""TRANSFORM"")) X ^(""TRANSFORM"")"
^DD(2.0361,.03,1,0)="^.1"
^DD(2.0361,.03,1,1,0)="^^TRIGGER^2.0361^.04"
^DD(2.0361,.03,1,1,1)="D L11^VADPT62"
^DD(2.0361,.03,1,1,1.1)="S X=DIV I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),""SHORT"")) X ^(""SHORT"")"
^DD(2.0361,.03,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),""E"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=2.0361,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.03,1,1,2)="D L12^VADPT62"
^DD(2.0361,.03,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),""E"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=2.0361,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.03,1,1,"CREATE VALUE")="I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),""SHORT"")) X ^(""SHORT"")"
^DD(2.0361,.03,1,1,"DELETE VALUE")="@"
^DD(2.0361,.03,1,1,"FIELD")="SHORT ID"
^DD(2.0361,.03,1,2,0)="2.0361^AC^MUMPS"
^DD(2.0361,.03,1,2,1)="I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),1)) X ^(1)"
^DD(2.0361,.03,1,2,2)="I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),2)) X ^(2)"
^DD(2.0361,.03,1,3,0)="^^TRIGGER^2^.363"
^DD(2.0361,.03,1,3,1)="D L31^VADPT62"
^DD(2.0361,.03,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""""),DIV=X S $P(^(.36),U,3)=DIV,DIH=2,DIG=.363 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.03,1,3,2)="D L32^VADPT62"
^DD(2.0361,.03,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""""),DIV=X S $P(^(.36),U,3)=DIV,DIH=2,DIG=.363 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.03,1,3,"CREATE CONDITION")="S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))"
^DD(2.0361,.03,1,3,"CREATE VALUE")="LONG ID"
^DD(2.0361,.03,1,3,"DELETE CONDITION")="S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))"
^DD(2.0361,.03,1,3,"DELETE VALUE")="@"
^DD(2.0361,.03,1,3,"DIC")=""
^DD(2.0361,.03,1,3,"FIELD")="PRIMARY LONG ID"
^DD(2.0361,.03,1,4,0)="2^PID^MUMPS"
^DD(2.0361,.03,1,4,1)="S:$S('$D(^DIC(8,DA,0)):0,'$D(^DIC(8.2,+$P(^(0),U,10),0)):0,1:$P(^(0),U)'=""VA STANDARD"") ^DPT(""PID"",X,DA(1),DA)="""""
^DD(2.0361,.03,1,4,2)="K ^DPT(""PID"",X,DA(1),DA)"
^DD(2.0361,.03,3)="Enter the value of the patient's identification."
^DD(2.0361,.03,4)="I $D(^DIC(8,DA,0)),$D(^DIC(8.2,+$P(^(0),U,10),""HELP"")) X ^(""HELP"")"
^DD(2.0361,.03,5,1,0)="2.0361^.01^3"
^DD(2.0361,.03,21,0)="^^8^8^2910418^^^"
^DD(2.0361,.03,21,1,0)="This field contains the patient's long ID associated with"
^DD(2.0361,.03,21,2,0)="the patient's ELIGIBILITY.  For most eligibilities this is the"
^DD(2.0361,.03,21,3,0)="Social Security Number."
^DD(2.0361,.03,21,4,0)=" "
^DD(2.0361,.03,21,5,0)="This field is triggered by the 'ELIGILBILTY(#.01)' field.  It is"
^DD(2.0361,.03,21,6,0)="user defined only if this eligibility's id format allows this"
^DD(2.0361,.03,21,7,0)="user interaction as indicated by the 'PROMPT USER FOR ID?(#.02)'"
^DD(2.0361,.03,21,8,0)="field of the 'IDENTIFICATION FORMAT(#8.1)' file."
^DD(2.0361,.03,"DT")="2910312"
^DD(2.0361,.04,0)="SHORT ID^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X"
^DD(2.0361,.04,1,0)="^.1"
^DD(2.0361,.04,1,3,0)="^^TRIGGER^2^.364"
^DD(2.0361,.04,1,3,1)="D S31^VADPT62"
^DD(2.0361,.04,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""""),DIV=X S $P(^(.36),U,4)=DIV,DIH=2,DIG=.364 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.04,1,3,2)="D S32^VADPT62"
^DD(2.0361,.04,1,3,2.4)="S DIH=$S($D(^DPT(DIV(0),.36)):^(.36),1:""""),DIV=X S $P(^(.36),U,4)=DIV,DIH=2,DIG=.364 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.0361,.04,1,3,"CREATE CONDITION")="S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))"
^DD(2.0361,.04,1,3,"CREATE VALUE")="SHORT ID"
^DD(2.0361,.04,1,3,"DELETE CONDITION")="S X=$S('$D(^DPT(DA(1),.36)):0,1:DA=+^(.36))"
^DD(2.0361,.04,1,3,"DELETE VALUE")="@"
^DD(2.0361,.04,1,3,"DIC")=""
^DD(2.0361,.04,1,3,"FIELD")="PRIMARY SHORT ID"
^DD(2.0361,.04,3)="Answer must be 1-7 characters in length."
^DD(2.0361,.04,5,1,0)="2.0361^.03^1"
^DD(2.0361,.04,9)="^"
^DD(2.0361,.04,21,0)="^^5^5^2910418^^^^"
^DD(2.0361,.04,21,1,0)="This field contains the patient's short ID associated with"
^DD(2.0361,.04,21,2,0)="the patient's ELIGIBILITY.  For most eligibilities, this is the"
^DD(2.0361,.04,21,3,0)="last four digits of the Social Security Number."
^DD(2.0361,.04,21,4,0)=" "
^DD(2.0361,.04,21,5,0)="This field is uneditable and triggered by the 'LONG ID(#.03)' field."
^DD(2.0361,.04,"DT")="2911004"
^DD(2.0361,"B","ELIGIBILITY",.01)=""
^DD(2.0361,"B","LONG ID",.03)=""
^DD(2.0361,"B","SHORT ID",.04)=""
^DD(2.0361,"GL",0,1,.01)=""
^DD(2.0361,"GL",0,3,.03)=""
^DD(2.0361,"GL",0,4,.04)=""
^DD(2.0361,"IX",.01)=""
^DD(2.0361,"IX",.03)=""
^DD(2.0361,"IX",.04)=""
^DD(2.04,0)="RATED DISABILITIES (VA) SUB-FIELD^NL^6^6"
^DD(2.04,0,"IX","AENR01",2.04,.01)=""
^DD(2.04,0,"IX","AENR2",2.04,2)=""
^DD(2.04,0,"IX","AENR3",2.04,3)=""
^DD(2.04,0,"NM","RATED DISABILITIES (VA)")=""
^DD(2.04,0,"UP")="2"
^DD(2.04,.01,0)="RATED DISABILITIES (VA)^MP31'X^DIC(31,^0;1^I $D(X) D EK^DGLOCK Q"
^DD(2.04,.01,1,0)="^.1"
^DD(2.04,.01,1,1,0)="2.04^AENR01^MUMPS"
^DD(2.04,.01,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.04,.01,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.04,.01,1,1,3)=" DO NOT DELETE"
^DD(2.04,.01,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.04,.01,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.04,.01,1,1,"%D",2,0)="enrollment."
^DD(2.04,.01,1,1,"DT")="3050913"
^DD(2.04,.01,3)="Enter the disability conditions for this patient.  Select from the available list."
^DD(2.04,.01,21,0)="^^2^2^2860930^"
^DD(2.04,.01,21,1,0)="From the available listing choose and enter conditions for which the"
^DD(2.04,.01,21,2,0)="applicant has been verified as being service connected."
^DD(2.04,.01,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2.04,.01,"DT")="3030722"
^DD(2.04,2,0)="DISABILITY %^RNJ3,0X^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D EK^DGLOCK"
^DD(2.04,2,1,0)="^.1"
^DD(2.04,2,1,1,0)="2.04^AENR2^MUMPS"
^DD(2.04,2,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.04,2,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.04,2,1,1,3)=" DO NOT DELETE"
^DD(2.04,2,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.04,2,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.04,2,1,1,"%D",2,0)="enrollment."
^DD(2.04,2,1,1,"DT")="3050913"
^DD(2.04,2,3)="Enter the disability % for this condition on this patient."
^DD(2.04,2,21,0)="^^3^3^2911214^"
^DD(2.04,2,21,1,0)="Enter the percentage at which the VA rated this disability for this"
^DD(2.04,2,21,2,0)="patient.  Only users who hold the designated security key may enter/edit"
^DD(2.04,2,21,3,0)="this field."
^DD(2.04,2,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2.04,2,"DT")="3030722"
^DD(2.04,3,0)="SERVICE CONNECTED^SX^0:NO;1:YES;^0;3^S DFN=DA(1) D:X SC^DGLOCK1 I $D(X) D EK^DGLOCK "
^DD(2.04,3,1,0)="^.1"
^DD(2.04,3,1,1,0)="2.04^AENR3^MUMPS"
^DD(2.04,3,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.04,3,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.04,3,1,1,3)=" DO NOT DELETE"
^DD(2.04,3,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.04,3,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.04,3,1,1,"%D",2,0)="enrollment."
^DD(2.04,3,1,1,"DT")="3050913"
^DD(2.04,3,3)="Enter 'Y' if the patient is service connected for this disability, 'N' if not."
^DD(2.04,3,21,0)="^^2^2^2911214^"
^DD(2.04,3,21,1,0)="Enter whether or not this rated disability was rated as service connected."
^DD(2.04,3,21,2,0)="Only users who hold the designated security key may enter/edit this field."
^DD(2.04,3,"DEL",1,0)="D EK^DGLOCK I '$D(X)"
^DD(2.04,3,"DT")="3030722"
^DD(2.04,4,0)="EXTREMITY AFFECTED^S^BL:BOTH LOWER;BU:BOTH UPPER;RL:RIGHT LOWER;RU:RIGHT UPPER;LL:LEFT LOWER;LU:LEFT UPPER;^0;4^Q"
^DD(2.04,4,"DT")="3051129"
^DD(2.04,5,0)="ORIGINAL EFFECTIVE DATE^DX^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(2.04,5,21,0)="^^2^2^3050712^"
^DD(2.04,5,21,1,0)="Data will be stuffed from messages from the HEC.  This field indicates "
^DD(2.04,5,21,2,0)="the first date that this disability was evaluated."
^DD(2.04,5,"DT")="3050714"
^DD(2.04,6,0)="CURRENT EFFECTIVE DATE^DX^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(2.04,6,21,0)="^.001^2^2^3050727^^^^"
^DD(2.04,6,21,1,0)="Data will be stuffed from messages from the HEC.  This field indicates "
^DD(2.04,6,21,2,0)="the most recent date that this disability was evaluated."
^DD(2.04,6,"DT")="3050728"
^DD(2.04,"B","CURRENT EFFECTIVE DATE",6)=""
^DD(2.04,"B","DISABILITY %",2)=""
^DD(2.04,"B","EXTREMITY AFFECTED",4)=""
^DD(2.04,"B","ORIGINAL EFFECTIVE DATE",5)=""
^DD(2.04,"B","RATED DISABILITIES (VA)",.01)=""
^DD(2.04,"B","SERVICE CONNECTED",3)=""
^DD(2.04,"GL",0,1,.01)=""
^DD(2.04,"GL",0,2,2)=""
^DD(2.04,"GL",0,3,3)=""
^DD(2.04,"GL",0,4,4)=""
^DD(2.04,"GL",0,5,5)=""
^DD(2.04,"GL",0,6,6)=""
^DD(2.04,"IX",.01)=""
^DD(2.04,"IX",2)=""
^DD(2.04,"IX",3)=""
^DD(2.04,"RQ",2)=""
^DD(2.05,0)="SERVICE CONNECTED CONDITIONS SUB-FIELD^NL^.02^2"
^DD(2.05,0,"NM","SERVICE CONNECTED CONDITIONS")=""
^DD(2.05,0,"UP")="2"
^DD(2.05,.01,0)="SERVICE CONNECTED CONDITIONS^MFX^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(2.05,.01,.1)="Service Connected Conditions as stated by applicant"
^DD(2.05,.01,3)="Enter the conditions stated by the patient.  Use 1 to 30 characters."
^DD(2.05,.01,21,0)="^^2^2^2860930^^"
^DD(2.05,.01,21,1,0)="Enter conditions as stated by applicant for which s/he claims service"
^DD(2.05,.01,21,2,0)="connection."
^DD(2.05,.01,"DT")="2860909"
^DD(2.05,.02,0)="PERCENTAGE^NJ3,0X^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2.05,.02,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(2.05,.02,21,0)="^^2^2^2911214^"
^DD(2.05,.02,21,1,0)="Enter the percentage that the patient states this disability was rated"
^DD(2.05,.02,21,2,0)="at."
^DD(2.05,.02,"DT")="2860909"
^DD(2.05,"B","PERCENTAGE",.02)=""
^DD(2.05,"B","SERVICE CONNECTED CONDITIONS",.01)=""
^DD(2.05,"GL",0,1,.01)=""
^DD(2.05,"GL",0,2,.02)=""
^DD(2.0534,0)="PH DATE/TIME UPDATED SUB-FIELD^^4^5"
^DD(2.0534,0,"DT")="3001215"
^DD(2.0534,0,"IX","B",2.0534,.01)=""
^DD(2.0534,0,"NM","PH DATE/TIME UPDATED")=""
^DD(2.0534,0,"UP")="2"
^DD(2.0534,.01,0)="PH DATE/TIME UPDATED^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.0534,.01,1,0)="^.1"
^DD(2.0534,.01,1,1,0)="2.0534^B"
^DD(2.0534,.01,1,1,1)="S ^DPT(DA(1),""PH"",""B"",$E(X,1,30),DA)="""""
^DD(2.0534,.01,1,1,2)="K ^DPT(DA(1),""PH"",""B"",$E(X,1,30),DA)"
^DD(2.0534,.01,21,0)="^^3^3^3000807^"
^DD(2.0534,.01,21,1,0)="This field is automatically stuffed with the current date and time"
^DD(2.0534,.01,21,2,0)="whenever the Purple Heart data is updated.  This may be done initially by"
^DD(2.0534,.01,21,3,0)="the local site, then subsequently by HEC."
^DD(2.0534,.01,"DT")="3000807"
^DD(2.0534,1,0)="PH?^S^Y:YES;N:NO;^0;2^Q"
^DD(2.0534,1,21,0)="^^2^2^3000807^"
^DD(2.0534,1,21,1,0)="Field will be stuffed with the CURRENT PURPLE HEART INDICATOR at the"
^DD(2.0534,1,21,2,0)="date/time of the update."
^DD(2.0534,1,"DT")="3000807"
^DD(2.0534,2,0)="PH STATUS^S^1:PENDING;2:IN PROCESS;3:CONFIRMED;^0;3^Q"
^DD(2.0534,2,21,0)="^.001^2^2^3001122^^^^"
^DD(2.0534,2,21,1,0)="Field will be stuffed with CURRENT PURPLE HEART STATUS (if any) at"
^DD(2.0534,2,21,2,0)="date/time of the update."
^DD(2.0534,2,"DT")="3001122"
^DD(2.0534,3,0)="PH REMARKS^S^1:UNACCEPTABLE DOCUMENTATION;2:NO DOCUMENTATION REC'D;3:ENTERED IN ERROR;4:UNSUPPORTED PURPLE HEART;5:VAMC;6:UNDELIVERABLE MAIL;^0;4^Q"
^DD(2.0534,3,21,0)="^.001^2^2^3001215^^^^"
^DD(2.0534,3,21,1,0)="Field will be stuffed with CURRENT PURPLE HEART REMARKS field, if any, at"
^DD(2.0534,3,21,2,0)="time of update."
^DD(2.0534,3,"DT")="3001215"
^DD(2.0534,4,0)="PH USER^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(2.0534,4,3)="Answer must be 3-30 characters in length."
^DD(2.0534,4,21,0)="^.001^4^4^3010130^^"
^DD(2.0534,4,21,1,0)="Field will be stuffed with the user who updated PH information.  If"
^DD(2.0534,4,21,2,0)="local user, then the value will be the free text user name from the"
^DD(2.0534,4,21,3,0)="NEW PERSON file.  If updated by the HEC, then the value will be "
^DD(2.0534,4,21,4,0)="""HEC User""."
^DD(2.0534,4,"DT")="3000807"
^DD(2.0534,"B","PH DATE/TIME UPDATED",.01)=""
^DD(2.0534,"B","PH REMARKS",3)=""
^DD(2.0534,"B","PH STATUS",2)=""
^DD(2.0534,"B","PH USER",4)=""
^DD(2.0534,"B","PH?",1)=""
^DD(2.0534,"GL",0,1,.01)=""
^DD(2.0534,"GL",0,2,1)=""
^DD(2.0534,"GL",0,3,2)=""
^DD(2.0534,"GL",0,4,3)=""
^DD(2.0534,"GL",0,5,4)=""
^DD(2.0534,"IX",.01)=""
^DD(2.06,0)="ETHNICITY INFORMATION SUB-FIELD^^.02^2"
^DD(2.06,0,"DT")="3020814"
^DD(2.06,0,"IX","B",2.06,.01)=""
^DD(2.06,0,"NM","ETHNICITY INFORMATION")=""
^DD(2.06,0,"UP")="2"
^DD(2.06,.01,0)="ETHNICITY INFORMATION^*P10.2'X^DIC(10.2,^0;1^S DIC(""S"")=""I '$G(^(.02))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(2.06,.01,1,0)="^.1^^-1"
^DD(2.06,.01,1,1,0)="2.06^B"
^DD(2.06,.01,1,1,1)="S ^DPT(DA(1),.06,""B"",$E(X,1,30),DA)="""""
^DD(2.06,.01,1,1,2)="K ^DPT(DA(1),.06,""B"",$E(X,1,30),DA)"
^DD(2.06,.01,1,2,0)="^^TRIGGER^2.06^.02"
^DD(2.06,.01,1,2,1)="X ^DD(2.06,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.06,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+$O(^DIC(10.3,""C"",""S"",0)) S:X=0 X="""" X ^DD(2.06,.01,1,2,1.4)"
^DD(2.06,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.06,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(10.3,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(2.06,.01,1,2,1.4)="S DIH=$G(^DPT(DIV(0),.06,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=2.06,DIG=.02 D ^DICR"
^DD(2.06,.01,1,2,2)="Q"
^DD(2.06,.01,1,2,"%D",0)="^^1^1^3020709^"
^DD(2.06,.01,1,2,"%D",1,0)="SELF IDENTIFICATION is the default value for collection method"
^DD(2.06,.01,1,2,"CREATE CONDITION")="METHOD OF COLLECTION="""""
^DD(2.06,.01,1,2,"CREATE VALUE")="S X=+$O(^DIC(10.3,""C"",""S"",0)) S:X=0 X="""""
^DD(2.06,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2.06,.01,1,2,"DT")="3020709"
^DD(2.06,.01,1,2,"FIELD")="METHOD"
^DD(2.06,.01,3)="Select from the available listing the ethnicity which best identifies this patient"
^DD(2.06,.01,12)="Inactive values are not selectable"
^DD(2.06,.01,12.1)="S DIC(""S"")=""I '$G(^(.02))"""
^DD(2.06,.01,21,0)="^^1^1^3020726^"
^DD(2.06,.01,21,1,0)="Patient's ethnicity"
^DD(2.06,.01,23,0)="^.001^4^4^3020726^^^"
^DD(2.06,.01,23,1,0)="Although this field is defined to be multi-valued, the AONLYONE cross "
^DD(2.06,.01,23,2,0)="reference prevents multiple values from being stored.  This is because "
^DD(2.06,.01,23,3,0)="the current business definition for ethnicity only accounts for a single "
^DD(2.06,.01,23,4,0)="value."
^DD(2.06,.01,"DT")="3020712"
^DD(2.06,.02,0)="METHOD OF COLLECTION^RP10.3'^DIC(10.3,^0;2^Q"
^DD(2.06,.02,3)="Enter the method in which the ethnicity value was collected"
^DD(2.06,.02,5,1,0)="2.06^.01^2"
^DD(2.06,.02,21,0)="^.001^1^1^3020814^^"
^DD(2.06,.02,21,1,0)="Method used to collect patient's ethnicity"
^DD(2.06,.02,"DT")="3020814"
^DD(2.06,"B","ETHNICITY INFORMATION",.01)=""
^DD(2.06,"B","METHOD OF COLLECTION",.02)=""
^DD(2.06,"GL",0,1,.01)=""
^DD(2.06,"GL",0,2,.02)=""
^DD(2.06,"IX",.01)=""
^DD(2.06,"RQ",.02)=""
^DD(2.0992,0)="ICN HISTORY SUB-FIELD^^3^4"
^DD(2.0992,0,"DT")="2980130"
^DD(2.0992,0,"NM","ICN HISTORY")=""
^DD(2.0992,0,"UP")="2"
^DD(2.0992,.01,0)="ICN HISTORY^NJ12,0a^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2.0992,.01,1,0)="^.1"
^DD(2.0992,.01,1,1,0)="2^AAICN^MUMPS"
^DD(2.0992,.01,1,1,1)="S ^DPT(""AICN"",$E(X,1,30),DA(1))="""""
^DD(2.0992,.01,1,1,2)="K ^DPT(""AICN"",$E(X,1,30),DA(1))"
^DD(2.0992,.01,1,1,"%D",0)="^.101^2^2^3001115^^^^"
^DD(2.0992,.01,1,1,"%D",1,0)="This is set up to allow all ICNs in the History file to remain in the AICN"
^DD(2.0992,.01,1,1,"%D",2,0)="cross-reference when re-indexing."
^DD(2.0992,.01,1,1,"DT")="3001115"
^DD(2.0992,.01,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(2.0992,.01,21,0)="^^3^3^2980130^^"
^DD(2.0992,.01,21,1,0)="ICN History, to track changes in Integration Control Number for each"
^DD(2.0992,.01,21,2,0)="patient.  This will be used by mumps code to perform lookups when ICN"
^DD(2.0992,.01,21,3,0)="can't be found to see if it was used previously."
^DD(2.0992,.01,"AUDIT")="y"
^DD(2.0992,.01,"DT")="3060923"
^DD(2.0992,1,0)="ICN CHECKSUM^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2.0992,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2.0992,1,21,0)="^^1^1^2980130^"
^DD(2.0992,1,21,1,0)="ICN Checksum for ICN entered in multiple."
^DD(2.0992,1,"DT")="2980130"
^DD(2.0992,2,0)="CMOR^P4'^DIC(4,^0;3^Q"
^DD(2.0992,2,21,0)="^^1^1^2980130^"
^DD(2.0992,2,21,1,0)="CMOR at the time of the ICN change."
^DD(2.0992,2,"DT")="2980130"
^DD(2.0992,3,0)="DATE/TIME OF CHANGE^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2.0992,3,21,0)="^^1^1^2980130^"
^DD(2.0992,3,21,1,0)="Date/Time of change to the ICN."
^DD(2.0992,3,"DT")="2980130"
^DD(2.0992,"AUDIT",.01)=""
^DD(2.0992,"B","CMOR",2)=""
^DD(2.0992,"B","DATE/TIME OF CHANGE",3)=""
^DD(2.0992,"B","ICN CHECKSUM",1)=""
^DD(2.0992,"B","ICN HISTORY",.01)=""
^DD(2.0992,"GL",0,1,.01)=""
^DD(2.0992,"GL",0,2,1)=""
^DD(2.0992,"GL",0,3,2)=""
^DD(2.0992,"GL",0,4,3)=""
^DD(2.0992,"IX",.01)=""
^DD(2.0993,0)="CMOR HISTORY SUB-FIELD^^3^4"
^DD(2.0993,0,"DT")="3000721"
^DD(2.0993,0,"NM","CMOR HISTORY")=""
^DD(2.0993,0,"UP")="2"
^DD(2.0993,.01,0)="CMOR HISTORY^NJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(2.0993,.01,1,0)="^.1^^0"
^DD(2.0993,.01,3)="This field is hard set by CMOR^VAFCHIS when the patient's CMOR is changed."
^DD(2.0993,.01,21,0)="^^1^1^3000731^^"
^DD(2.0993,.01,21,1,0)="Primary Care site for patient at time of change."
^DD(2.0993,.01,23,0)="^^2^2^3000731^"
^DD(2.0993,.01,23,1,0)="This node is created by CMOR^VAFCHIS when the CMOR (#991.03) field is"
^DD(2.0993,.01,23,2,0)="modified/deleted."
^DD(2.0993,.01,"DT")="3000731"
^DD(2.0993,1,0)="CMOR ACTIVITY SCORE^NJ12,0^^0;2^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(2.0993,1,3)="This field is hardset by CMOR^VAFCHIS when a patient's CMOR is changed."
^DD(2.0993,1,21,0)="^^1^1^3000731^^"
^DD(2.0993,1,21,1,0)="CMOR score at time of change."
^DD(2.0993,1,23,0)="^^2^2^3000731^"
^DD(2.0993,1,23,1,0)="This field is hardset by CMOR^VAFCHIS when the patient's CMOR score is"
^DD(2.0993,1,23,2,0)="modified."
^DD(2.0993,1,"DT")="3000731"
^DD(2.0993,2,0)="CMOR SCORE CALCULATION DATE^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(2.0993,2,3)="This field is hard set by CMOR^VAFCHIS when a patient's CMOR is modified."
^DD(2.0993,2,21,0)="^^1^1^3000731^^"
^DD(2.0993,2,21,1,0)="Date CMOR score was last calculated at time of change."
^DD(2.0993,2,23,0)="^^1^1^3000731^"
^DD(2.0993,2,23,1,0)="This field is hardset by CMOR^VAFCHIS when a patient's CMOR is changed."
^DD(2.0993,2,"DT")="3000731"
^DD(2.0993,3,0)="CMOR CHANGE DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(2.0993,3,3)="(No range limit on date)"
^DD(2.0993,3,21,0)="^^1^1^3001129^"
^DD(2.0993,3,21,1,0)="Date CMOR was changed."
^DD(2.0993,3,23,0)="^^2^2^3001129^"
^DD(2.0993,3,23,1,0)="This field is created when a patient's CMOR (field #991.03) is"
^DD(2.0993,3,23,2,0)="modified/deleted."
^DD(2.0993,3,"DT")="3001129"
^DD(2.0993,"B","CMOR ACTIVITY SCORE",1)=""
^DD(2.0993,"B","CMOR CHANGE DATE",3)=""
^DD(2.0993,"B","CMOR HISTORY",.01)=""
^DD(2.0993,"B","CMOR SCORE CALCULATION DATE",2)=""
^DD(2.0993,"GL",0,1,.01)=""
^DD(2.0993,"GL",0,2,1)=""
^DD(2.0993,"GL",0,3,2)=""
^DD(2.0993,"GL",0,4,3)=""
^DD(2.101,0)="DISPOSITION LOG-IN DATE/TIME SUB-FIELD^NL^11500.02^41"
^DD(2.101,0,"DT")="2930603"
^DD(2.101,0,"IX","AAS",2.101,1)=""
^DD(2.101,0,"IX","AAS1",2.101,3)=""
^DD(2.101,0,"IX","AC",2.101,12)=""
^DD(2.101,0,"IX","ADISAZIP",2.101,36)=""
^DD(2.101,0,"IX","ADISZIP4",2.101,38)=""
^DD(2.101,0,"IX","AODS1",2.101,.01)=""
^DD(2.101,0,"IX","AODS5",2.101,6)=""
^DD(2.101,0,"IX","AOERR1",2.101,1)=""
^DD(2.101,0,"IX","ASDPSD",2.101,3)=""
^DD(2.101,0,"IX","ASDPSD1",2.101,1)=""
^DD(2.101,0,"NM","DISPOSITION LOG-IN DATE/TIME")=""
^DD(2.101,0,"QUES")="EN^DGHELP"
^DD(2.101,0,"UP")="2"
^DD(2.101,.01,0)="LOG IN DATE/TIME^MDX^^0;1^S %DT=""ETRPX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X,LL=+$O(^DPT(DA(1),""DIS"",0)) I LL>0,DINUM'<LL!(DINUM'<(9999999-$P(^(LL,0),""^"",6))) K X,DINUM W !!,""Entry must be after last disposition."",!!,*7"
^DD(2.101,.01,1,0)="^.1"
^DD(2.101,.01,1,1,0)="^^TRIGGER^2.101^50"
^DD(2.101,.01,1,1,1)="X ^DD(2.101,.01,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X=""1"" X ^DD(2.101,.01,1,1,1.4)"
^DD(2.101,.01,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^DD(2.101,.01,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.101,.01,1,1,2)="X ^DD(2.101,.01,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X="""" X ^DD(2.101,.01,1,1,2.4)"
^DD(2.101,.01,1,1,2.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^DD(2.101,.01,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.101,.01,1,1,"CREATE VALUE")="""1"""
^DD(2.101,.01,1,1,"DELETE VALUE")="@"
^DD(2.101,.01,1,1,"FIELD")="AC"
^DD(2.101,.01,1,2,0)="2^ADIS"
^DD(2.101,.01,1,2,1)="S ^DPT(""ADIS"",$E(X,1,30),DA(1),DA)="""""
^DD(2.101,.01,1,2,2)="K ^DPT(""ADIS"",$E(X,1,30),DA(1),DA)"
^DD(2.101,.01,1,3,0)="2^ADI^MUMPS"
^DD(2.101,.01,1,3,1)="S ^DPT(""ADI"",$E(X,1,30),DA(1),DA)="""""
^DD(2.101,.01,1,3,2)="K ^DPT(""ADI"",$E(X,1,30),DA(1),DA)"
^DD(2.101,.01,1,3,"%D",0)="^^8^8^2920327^"
^DD(2.101,.01,1,3,"%D",1,0)="This cross-reference is identical to the ^DPT(""ADIS"" cross-reference on"
^DD(2.101,.01,1,3,"%D",2,0)="this field.  The only difference is that this ADI cross-reference was"
^DD(2.101,.01,1,3,"%D",3,0)="also set on disposition if the registration and disposition were in"
^DD(2.101,.01,1,3,"%D",4,0)="different months."
^DD(2.101,.01,1,3,"%D",5,0)=" "
^DD(2.101,.01,1,3,"%D",6,0)="MAS no longer uses this cross-reference and this serves as notification"
^DD(2.101,.01,1,3,"%D",7,0)="that this cross-reference will be removed the first release of MAS"
^DD(2.101,.01,1,3,"%D",8,0)="released 18 months after the release of MAS 5.2."
^DD(2.101,.01,1,4,0)="2.101^AODS1^MUMPS"
^DD(2.101,.01,1,4,1)="S A1B2TAG=""REG"" D ^A1B2XFR"
^DD(2.101,.01,1,4,2)="S A1B2TAG=""REG"" D ^A1B2XFR"
^DD(2.101,.01,3)="Enter the date and time this patient was logged as a new application for care. Date must be before today's date and must be after the last disposition."
^DD(2.101,.01,4)="W !,""Enter '??' (a double question mark) for a list of the available dates and times."",!"
^DD(2.101,.01,21,0)="^^4^4^2911214^"
^DD(2.101,.01,21,1,0)="The date/time the patient was registered using the 'Register a Patient'"
^DD(2.101,.01,21,2,0)="option in ADT should be entered into this field.  Registrations must be"
^DD(2.101,.01,21,3,0)="entered using the ADT module and should not be entered or edited using"
^DD(2.101,.01,21,4,0)="VA FileMan options."
^DD(2.101,.01,"DT")="2941215"
^DD(2.101,.2,0)="10-10T REGISTRATION^S^0:NO;1:YES;^0;20^Q"
^DD(2.101,.2,3)=""
^DD(2.101,.2,21,0)="^^1^1^2961218^"
^DD(2.101,.2,21,1,0)="Was the patient registered using the 10-10T"
^DD(2.101,.2,"DT")="2961218"
^DD(2.101,1,0)="STATUS^RS^0:10/10 VISIT;1:UNSCHEDULED;2:APPLICATION WITHOUT EXAM;^0;2^Q"
^DD(2.101,1,1,0)="^.1"
^DD(2.101,1,1,1,0)="2.101^AAS^MUMPS"
^DD(2.101,1,1,1,1)="S SDX=$S(X=0:2,X=1:4,1:"""") K:'SDX SDX I $D(SDX) S ^SC(""AAS"",SDX,(9999999-DA),DA(1))=$S('$D(^DPT(DA(1),""DIS"",DA,0)):"""",1:+$P(^(0),""^"",4)) K SDX"
^DD(2.101,1,1,1,2)="S SDX=$S(X=0:2,X=1:4,1:"""") K:'SDX SDX I $D(SDX) S SDX1=$S($D(^SC(""AAS"",SDX,(9999999-DA),DA(1))):9999999-DA,1:$P(9999999-DA,""."")) K ^SC(""AAS"",SDX,SDX1,DA(1)),SDX,SDX1"
^DD(2.101,1,1,2,0)="2.101^ASDPSD1^MUMPS"
^DD(2.101,1,1,2,1)="S SDX=$S($D(^DPT(DA(1),""DIS"",DA,0)):$P(^(0),""^"",4),1:"""") Q:SDX']""""  S SDX1=$S('X:""TT"",X=1:""UN"",1:"""") Q:SDX1']""""  I '$D(^DPT(""ASDPSD"",""C"","" ""_SDX,SDX1,9999999-DA,DA(1))) S ^(DA(1))="""""
^DD(2.101,1,1,2,2)="S SDX=$S($D(^DPT(DA(1),""DIS"",DA,0)):$P(^(0),""^"",4),1:"""") Q:SDX']""""  S SDX1=$S('X:""TT"",X=1:""UN"",1:"""") Q:SDX1']""""  K ^DPT(""ASDPSD"",""C"","" ""_SDX,SDX1,9999999-DA,DA(1))"
^DD(2.101,1,1,3,0)="2.101^AOERR1^MUMPS"
^DD(2.101,1,1,3,1)="D UNSCHED^DGOERNOT"
^DD(2.101,1,1,3,2)="K DGOERNOT S:X'=$P(^DPT(DA(1),""DIS"",DA,0),U,2) DGOERNOT=X"
^DD(2.101,1,1,3,"%D",0)="^^4^4^2910716^^^^"
^DD(2.101,1,1,3,"%D",1,0)="     This cross-reference is used in conjunction with ORDER ENTRY/"
^DD(2.101,1,1,3,"%D",2,0)="RESULTS REPORTING v2.09 or higher and will cause MAS OE/RR NOTIFICATIONS"
^DD(2.101,1,1,3,"%D",3,0)="for UNSCHEDULED (1010) VISITS to be sent to users who are on an OE/RR LIST"
^DD(2.101,1,1,3,"%D",4,0)="for the patient."
^DD(2.101,1,1,3,"DT")="2910715"
^DD(2.101,1,3)="Enter '0' if this is a 10/10 visit for AMIS, '1' if this is an unscheduled visit, or '2' if this is an application without exam."
^DD(2.101,1,21,0)="^^4^4^2911214^"
^DD(2.101,1,21,1,0)="ter the appropriate code indicating the status of the patient's visit."
^DD(2.101,1,21,2,0)="Enter 0 if this patient had a 1010 visit (application for care).  Enter"
^DD(2.101,1,21,3,0)="1 if the patient's visit was not scheduled.  Enter 2 if no exam was needed."
^DD(2.101,1,21,4,0)="This data is used by the AMIS 400 series reports."
^DD(2.101,1,"DT")="2910715"
^DD(2.101,2,0)="TYPE OF BENEFIT APPLIED FOR^RS^1:HOSPITAL;2:DOMICILIARY;3:OUTPATIENT MEDICAL;4:OUTPATIENT DENTAL;5:NURSING HOME CARE;^0;3^Q"
^DD(2.101,2,3)="Enter the type of benefit this patient is now applying for."
^DD(2.101,2,21,0)="^^2^2^2911214^"
^DD(2.101,2,21,1,0)="Enter the type of care this patient has applied for whether it be inpatient"
^DD(2.101,2,21,2,0)="(dom, hospital, or nursing home) or outpatient (dental, or non-dental)."
^DD(2.101,2,"DT")="2860115"
^DD(2.101,2.1,0)="TYPE OF CARE APPLIED FOR^RSX^1:DENTAL;2:PLASTIC SURGERY;3:STERILIZATION;4:PREGNANCY;5:ALL OTHER;^0;11^I X=4,($P(^DPT(DA(1),0),""^"",2)=""M"") K X"
^DD(2.101,2.1,3)="Select the type of care this applicant is applying for.  Pregnancy can not be selected for male patients."
^DD(2.101,2.1,21,0)="^^4^4^2911214^"
^DD(2.101,2.1,21,1,0)="Enter the type of care that the patient is requesting service for.  If"
^DD(2.101,2.1,21,2,0)="the patient will be receiving treatment for plastic surgery, dental care,"
^DD(2.101,2.1,21,3,0)="sterilization, or pregnancy, enter that choice.  Otherwise, enter all"
^DD(2.101,2.1,21,4,0)="other."
^DD(2.101,2.1,"DT")="2890609"
^DD(2.101,3,0)="FACILITY APPLYING TO^P40.8'^DG(40.8,^0;4^Q"
^DD(2.101,3,1,0)="^.1"
^DD(2.101,3,1,1,0)="2.101^AAS1^MUMPS"
^DD(2.101,3,1,1,1)="S SDX=$S($D(^DPT(DA(1),""DIS"",DA,0)):+$P(^(0),""^"",2),1:""""),SDX=$S(SDX=0:2,SDX=1:4,1:"""") K:'SDX SDX I $D(SDX) S ^SC(""AAS"",SDX,(9999999-DA),DA(1))=X K SDX"
^DD(2.101,3,1,1,2)="S SDX=$S($D(^DPT(DA(1),""DIS"",DA,0)):+$P(^(0),""^"",2),1:""""),SDX=$S(SDX=0:2,SDX=1:4,1:"""") K:'SDX SDX I $D(SDX) S SDX1=$S($D(^SC(""AAS"",SDX,(9999999-DA),DA(1))):9999999-DA,1:$P(9999999-DA,""."")) K ^SC(""AAS"",SDX,SDX1,DA(1)),SDX,SDX1"
^DD(2.101,3,1,2,0)="2.101^ASDPSD^MUMPS"
^DD(2.101,3,1,2,1)="S SDX=$S($D(^DPT(DA(1),""DIS"",DA,0)):$P(^(0),""^"",2),1:""""),SDX=$S(SDX=0:""TT"",SDX=1:""UN"",1:"""") K:SDX']"""" SDX I $D(SDX) S SDIV="" ""_X D SSD^DGREG0 K SDIV,SDX"
^DD(2.101,3,1,2,2)="S SDX=$S($D(^DPT(DA(1),""DIS"",DA,0)):$P(^(0),""^"",2),1:""""),SDX=$S(SDX=0:""TT"",SDX=1:""UN"",1:"""") K:SDX']"""" SDX I $D(SDX) S SDIV="" ""_X D SSDK^DGREG0 K SDIV,SDX"
^DD(2.101,3,3)="Enter the division this patient is applying for care to if it is multidivision."
^DD(2.101,3,21,0)="^^2^2^2911214^"
^DD(2.101,3,21,1,0)="Enter the facility (division) at which this patient will be receiving"
^DD(2.101,3,21,2,0)="care.  This is a pointer to the MEDICAL CENTER DIVISION file."
^DD(2.101,3,"DT")="2860729"
^DD(2.101,4,0)="WHO ENTERED 10/10^P200'^VA(200,^0;5^Q"
^DD(2.101,4,3)="Enter the name of the person who entered or verified the data for this application for care."
^DD(2.101,4,21,0)="^^3^3^2911214^"
^DD(2.101,4,21,1,0)="The user who entered the registration (1010 application) for this patient"
^DD(2.101,4,21,2,0)="will automatically be stored in this field.  This field can be used for"
^DD(2.101,4,21,3,0)="tracking purposes.  It should NOT be edited."
^DD(2.101,4,"DT")="2900719"
^DD(2.101,5,0)="LOG OUT DATE TIME^RDX^^0;6^S %DT=""ETRX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X),X<-(DA-9999999) K X"
^DD(2.101,5,1,0)="^.1"
^DD(2.101,5,1,1,0)="^^TRIGGER^2.101^50"
^DD(2.101,5,1,1,1)="X ^DD(2.101,5,1,1,1.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X="""" X ^DD(2.101,5,1,1,1.4)"
^DD(2.101,5,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^DD(2.101,5,1,1,1.4)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.101,5,1,1,2)="X ^DD(2.101,5,1,1,2.3) S Y(2)=$C(59)_$S($D(^DD(2.101,50,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,10)_"":"",2),$C(59),1) S DIU=X K Y S X=DIV S X=""1"" X ^DD(2.101,5,1,1,2.4)"
^DD(2.101,5,1,1,2.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1"
^DD(2.101,5,1,1,2.4)="S DIH=$S($D(^DPT(DIV(0),""DIS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=2.101,DIG=50 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.101,5,1,1,"CREATE VALUE")="@"
^DD(2.101,5,1,1,"DELETE VALUE")="""1"""
^DD(2.101,5,1,1,"FIELD")="AC"
^DD(2.101,5,1,2,0)="2^ADIS4^MUMPS"
^DD(2.101,5,1,2,1)="S L=+^DPT(DA(1),""DIS"",DA,0) S:$E(X,1,5)>$E(L,1,5) ^DPT(""ADI"",X,DA(1),DA)="""""
^DD(2.101,5,1,2,2)="K ^DPT(""ADI"",X,DA(1),DA)"
^DD(2.101,5,1,2,"%D",0)="^^3^3^2920327^"
^DD(2.101,5,1,2,"%D",1,0)="This cross-reference is also set on the LOG-IN DATE/TIME field.  It is"
^DD(2.101,5,1,2,"%D",2,0)="no longer used by MAS and it will be removed in the first release of MAS"
^DD(2.101,5,1,2,"%D",3,0)="released 18 months after MAS version 5.2."
^DD(2.101,5,3)="Enter the date and time this application for care was dispositioned."
^DD(2.101,5,21,0)="^^1^1^2911214^"
^DD(2.101,5,21,1,0)="Enter in this field the date/time the patient was dispositioned."
^DD(2.101,5,"DT")="2901018"
^DD(2.101,6,0)="DISPOSITION^R*P37'^DIC(37,^0;7^S DIC(""S"")=""I '$P(^(0),""""^"""",10)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.101,6,1,0)="^.1"
^DD(2.101,6,1,1,0)="2.101^AODS5^MUMPS"
^DD(2.101,6,1,1,1)="S A1B2TAG=""REG"" D ^A1B2XFR"
^DD(2.101,6,1,1,2)="S A1B2TAG=""REG"" D ^A1B2XFR"
^DD(2.101,6,3)="Enter the disposition of this application for care."
^DD(2.101,6,12)="ONLY ACTIVE DISPOSITION TYPES PLEASE!"
^DD(2.101,6,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",10)"""
^DD(2.101,6,21,0)="^^4^4^2911214^"
^DD(2.101,6,21,1,0)="Enter the type of disposition this patient had.  Choose from the available"
^DD(2.101,6,21,2,0)="list whether the patient was scheduled for a future appointment, admitted"
^DD(2.101,6,21,3,0)="to your facility or another facility, or was released from care without"
^DD(2.101,6,21,4,0)="exam, for example.  Many other choices also exist."
^DD(2.101,6,"DT")="2910117"
^DD(2.101,8,0)="REASON FOR LATE DISPOSITION^P30'^DIC(30,^0;8^Q"
^DD(2.101,8,3)="Enter the reason this application for care took so long to disposition."
^DD(2.101,8,21,0)="^^7^7^2911214^^"
^DD(2.101,8,21,1,0)="As part of the 'MAS Parameter Entry/Edit' option, a site can determine how"
^DD(2.101,8,21,2,0)="may hours must elapse before a disposition is considered to be entered"
^DD(2.101,8,21,3,0)="late.  If the time between the registration (log-in) date/time and the"
^DD(2.101,8,21,4,0)="disposition (log-out) date/time is found to be more than the number of"
^DD(2.101,8,21,5,0)="hours specified in the MAS parameters, the user will be prompted with"
^DD(2.101,8,21,6,0)="a reason for the late disposition.  This is a pointer to the DISPOSITION"
^DD(2.101,8,21,7,0)="LATE REASON file."
^DD(2.101,8,"DT")="2831210"
^DD(2.101,9,0)="WHO DISPOSITIONED^P200'^VA(200,^0;9^Q"
^DD(2.101,9,3)="Enter the name of the person who dispositioned this application for care."
^DD(2.101,9,21,0)="^^3^3^2911214^"
^DD(2.101,9,21,1,0)="When a user dispositions a patient, the name of the user will automatically"
^DD(2.101,9,21,2,0)="be entered into this field.  This field can be used for tracking purposes"
^DD(2.101,9,21,3,0)="at the site and should not be edited."
^DD(2.101,9,"DT")="2900924"
^DD(2.101,10,0)="DESCRIPTION OF INCIDENT^F^^1;1^K:$L(X)>250!($L(X)<3) X"
^DD(2.101,10,3)="Enter a brief description of what caused the accident, 3-250 characters."
^DD(2.101,10,21,0)="^^2^2^2911214^"
^DD(2.101,10,21,1,0)="If the patient was injured in an accident, a brief description (from 3-250"
^DD(2.101,10,21,2,0)="characters) should be entered detailing what caused the injury."
^DD(2.101,10,"DT")="2831201"
^DD(2.101,12,0)="*ELIGIBLE FOR MEDICAID^S^0:NO;1:YES;^0;12^Q"
^DD(2.101,12,1,0)="^.1"
^DD(2.101,12,1,1,0)="2.101^AC^MUMPS"
^DD(2.101,12,1,1,1)="S DFN=DA(1) D EN^DGMTR"
^DD(2.101,12,1,1,2)="Q"
^DD(2.101,12,1,1,"DT")="2920227"
^DD(2.101,12,3)="Does patient meet eligibility requirements of Medicaid."
^DD(2.101,12,21,0)="^^2^2^2911214^"
^DD(2.101,12,21,1,0)="If this patient is eligible for medicaid, enter yes in this field."
^DD(2.101,12,21,2,0)="Otherwise, entere no.  This field is used for billing purposes."
^DD(2.101,12,"DT")="2920227"
^DD(2.101,13,0)="REGISTRATION ELIGIBILITY CODE^R*P8'X^DIC(8,^0;13^S DIC(""S"")=""I $P(^(0),""""^"""",9)=8!($D(^DPT(""""AEL"""",DA(1),+Y)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.101,13,1,0)="^.1"
^DD(2.101,13,1,1,0)="^^TRIGGER^409.68^.13"
^DD(2.101,13,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.101,13,1,1,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(8,+$P(Y(101),U,13),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD(2.101,13,1,1,1.4)"
^DD(2.101,13,1,1,1.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,13)=DIV,DIH=409.68,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.101,13,1,1,2)="Q"
^DD(2.101,13,1,1,89.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,18) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0"
^DD(2.101,13,1,1,"CREATE VALUE")="S X=X"
^DD(2.101,13,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2.101,13,1,1,"DT")="2930722"
^DD(2.101,13,1,1,"FIELD")="OUTPATIENT ENCOUNTER:#.13"
^DD(2.101,13,12)="ONLY ELIGIBILITIES WHICH HAVE BEEN ASSIGNED TO THIS PATIENT!"
^DD(2.101,13,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",9)=8!($D(^DPT(""""AEL"""",DA(1),+Y)))"""
^DD(2.101,13,21,0)="^^5^5^2911214^"
^DD(2.101,13,21,1,0)="When a patient is registered, the user registering the patient will be"
^DD(2.101,13,21,2,0)="asked for the patient's eligibility under which they are receiving care."
^DD(2.101,13,21,3,0)="The default will be the primary eligibility code.  However, if the patient"
^DD(2.101,13,21,4,0)="also has other entitled eligibilities (employee, for example), one of"
^DD(2.101,13,21,5,0)="the other eligibilities may also be entered."
^DD(2.101,13,"DT")="2930722"
^DD(2.101,14,0)="ELIG VERIFIED AT REGISTRATION^RS^0:NO;1:YES;^0;14^Q"
^DD(2.101,14,21,0)="^^2^2^2911214^"
^DD(2.101,14,21,1,0)="If the eligibility was verified at the time of registration, this field"
^DD(2.101,14,21,2,0)="will be YES.  Otherwise, it will be NO."
^DD(2.101,14,"DT")="2880208"
^DD(2.101,15,0)="SC AT REGISTRATION^RS^0:NO;1:YES;^0;15^Q"
^DD(2.101,15,21,0)="^^4^4^2911214^"
^DD(2.101,15,21,1,0)="If the patient being registered was SC (as determined by the SERVICE"
^DD(2.101,15,21,2,0)="CONNECTED? field on screen 7 of registration) at the time this application"
^DD(2.101,15,21,3,0)="was entered, YES will be stuffed into this field.  Otherwise NO will be"
^DD(2.101,15,21,4,0)="filled in here."
^DD(2.101,15,"DT")="2880208"
^DD(2.101,16,0)="SC% AT REGISTRATION^RNJ3,0^^0;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2.101,16,3)="If SC at registration enter the percentage of service connection."
^DD(2.101,16,21,0)="^^4^4^2911214^"
^DD(2.101,16,21,1,0)="If the patient was service connected at the time of this registration (as"
^DD(2.101,16,21,2,0)="determined by the SERVICE CONNECTED? field on registration screen 7), the"
^DD(2.101,16,21,3,0)="service connected percentage should be entered here.  The default value"
^DD(2.101,16,21,4,0)="will be the percentage entered on registration screen 7."
^DD(2.101,16,"DT")="2880208"
^DD(2.101,17,0)="AMIS 420 SEGMENT^*P391.1'^DG(391.1,^0;17^S DIC(""S"")=""I Y>400,Y<421"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.101,17,12)="AMIS 401-420 SEGMENT ON WHICH THIS DISPOSITION IS COUNTED"
^DD(2.101,17,12.1)="S DIC(""S"")=""I Y>400,Y<421"""
^DD(2.101,17,21,0)="^^5^5^2911214^"
^DD(2.101,17,21,1,0)="The AMIS 400 series reports are generated based on data in the DISPOSITION"
^DD(2.101,17,21,2,0)="LOG-IN DATE/TIME multiple.  When an application is dispositioned, it is"
^DD(2.101,17,21,3,0)="deterined by the module which AMIS segment (401-420) this registration"
^DD(2.101,17,21,4,0)="should fall into.  This information is created automatically by the MAS"
^DD(2.101,17,21,5,0)="module."
^DD(2.101,17,"DT")="2880208"
^DD(2.101,18,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;18^Q"
^DD(2.101,18,"DT")="2930210"
^DD(2.101,19,0)="ENCOUNTER CONVERSION STATUS^S^0:NOT CONVERTED;1:CONVERTED;^0;19^Q"
^DD(2.101,19,21,0)="^^5^5^2991228^"
^DD(2.101,19,21,1,0)="This field indicates whether or not this disposition was converted  "
^DD(2.101,19,21,2,0)="during the ACRP Database Conversion (SD*5.3*211)."
^DD(2.101,19,21,3,0)=" "
^DD(2.101,19,21,4,0)="The field is set to '1' after the disposition has been converted"
^DD(2.101,19,21,5,0)="by the conversion software.                        "
^DD(2.101,19,"DT")="2980114"
^DD(2.101,20,0)="NEED RELATED TO OCCUPATION^RS^Y:YES;N:NO;U:UNKNOWN;^2;1^Q"
^DD(2.101,20,3)="Enter 'Y' if this application for care is related to the patient's occupation, 'N' if it is not, 'U' if you do not know."
^DD(2.101,20,21,0)="^^3^3^2911214^"
^DD(2.101,20,21,1,0)="If the need for care is related to an injury or condition acquired while"
^DD(2.101,20,21,2,0)="the patient was performing work-related duties, yes should be entered here."
^DD(2.101,20,21,3,0)="Otherwise, no should be entered."
^DD(2.101,20,"DT")="2831130"
^DD(2.101,21,0)="WORKMEN'S COMP CLAIM FILED^S^Y:YES;N:NO;^2;2^Q"
^DD(2.101,21,3)="Enter 'Y' if a workman's comp claim has been filed against this patient's employer, 'N' if it has not."
^DD(2.101,21,21,0)="^^4^4^2911214^"
^DD(2.101,21,21,1,0)="If the injury or condition for which this patient is being treated occurred"
^DD(2.101,21,21,2,0)="while performing duties necessary for his/her job and the patient entered"
^DD(2.101,21,21,3,0)="a workmen's compensation claim for this injury or condition, enter yes"
^DD(2.101,21,21,4,0)="here.  Otherwise, enter no."
^DD(2.101,21,"DT")="2831130"
^DD(2.101,22,0)="WORKMEN'S COMP CLAIM NUMBER^F^^2;3^K:$L(X)>10!($L(X)<4) X"
^DD(2.101,22,3)="Enter the workman's comp claim number, 4 to 10 characters."
^DD(2.101,22,21,0)="^^4^4^2911214^"
^DD(2.101,22,21,1,0)="If this patient is being seen for an injury or condition s/he received"
^DD(2.101,22,21,2,0)="while performing work related duties and s/he filed a claim with workmen's"
^DD(2.101,22,21,3,0)="compensation, enter the claim number here.  Otherwise, leave this field"
^DD(2.101,22,21,4,0)="blank."
^DD(2.101,22,"DT")="2831130"
^DD(2.101,23,0)="NEED RELATED TO AN ACCIDENT^RS^Y:YES;N:NO;U:UNKNOWN;^2;4^Q"
^DD(2.101,23,3)="Enter 'Y' if this application for care is due to an accident, 'N' if it is not, 'U' if unknown."
^DD(2.101,23,21,0)="^^2^2^2911214^"
^DD(2.101,23,21,1,0)="If the injury or condition for which this patient is being treated was the"
^DD(2.101,23,21,2,0)="result of an accident, enter yes here.  Otherwise, answer no."
^DD(2.101,23,"DT")="2831130"
^DD(2.101,24,0)="INJURY CAUSED BY^F^^2;5^K:$L(X)>80!($L(X)<4) X"
^DD(2.101,24,3)="Enter who or what was responsible for the accident, 4-80 characters."
^DD(2.101,24,21,0)="^^3^3^2911214^"
^DD(2.101,24,21,1,0)="If the reason this patient is being seen at the medical center is due to"
^DD(2.101,24,21,2,0)="an injury sustained, enter what caused the injury.  Otherwise, leave this"
^DD(2.101,24,21,3,0)="field blank."
^DD(2.101,24,"DT")="2831130"
^DD(2.101,25,0)="INJURING PARTIES INSURANCE^P36'^DIC(36,^2;6^Q"
^DD(2.101,25,21,0)="^^3^3^2911214^"
^DD(2.101,25,21,1,0)="If the reason this patient is being seen at this medical center is due to"
^DD(2.101,25,21,2,0)="an injury sustained and there is a liable party, enter that party's"
^DD(2.101,25,21,3,0)="insurance policy number.  Otherwise, leave this field blank."
^DD(2.101,25,"DT")="2841022"
^DD(2.101,26,0)="FILED AGAINST INJURING PARTY^S^Y:YES;N:NO;^2;7^Q"
^DD(2.101,26,21,0)="^^3^3^2911214^"
^DD(2.101,26,21,1,0)="If this patient is being seen is due to an injury resulting from another"
^DD(2.101,26,21,2,0)="person's negligence, enter yes here if a claim has been filed against the"
^DD(2.101,26,21,3,0)="other party's insurance company.  Otherwise, answer no."
^DD(2.101,26,"DT")="2831130"
^DD(2.101,30,0)="ATTORNEY'S NAME^F^^3;1^K:$L(X)>30!($L(X)<3) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,30) K:'$L(X) X,DG20NAME"
^DD(2.101,30,3)="Enter name in 'LAST,FIRST MIDDLE SUFFIX' format, must be 3-30 characters in length."
^DD(2.101,30,21,0)="^^4^4^2911214^^"
^DD(2.101,30,21,1,0)="Enter the attorney's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(2.101,30,21,2,0)="This value must be 3-30 characters in length and may contain only uppercase"
^DD(2.101,30,21,3,0)="alpha characters, spaces, apostrophes, hyphens and one comma.  All other"
^DD(2.101,30,21,4,0)="characters and parenthetical text will be removed."
^DD(2.101,30,"DT")="3050611"
^DD(2.101,31,0)="A-ADDRESS 1^F^^3;2^K:$L(X)>30!($L(X)<3) X"
^DD(2.101,31,3)="Enter the first line of the attorney's address (do not include city, state or zip code), 3-30 characters."
^DD(2.101,31,21,0)="^^3^3^2911214^^"
^DD(2.101,31,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,31,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,31,21,3,0)="incident, enter the first line the street address for the attorney."
^DD(2.101,31,"DT")="2831201"
^DD(2.101,32,0)="A-ADDRESS 2^F^^3;3^K:$L(X)>30!($L(X)<3) X"
^DD(2.101,32,3)="Enter the second line of the attorney's address (do not include city, state or zip code), 3-30 characters."
^DD(2.101,32,21,0)="^^3^3^2911214^"
^DD(2.101,32,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,32,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,32,21,3,0)="incident, enter the second line of the street address for the attorney."
^DD(2.101,32,"DT")="2831201"
^DD(2.101,33,0)="A-ADDRESS 3^F^^3;4^K:$L(X)>30!($L(X)<3) X"
^DD(2.101,33,3)="Enter the third line of the attorney's address (do not include city, state or zip code) 3-30 characters."
^DD(2.101,33,21,0)="^^3^3^2911214^"
^DD(2.101,33,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,33,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,33,21,3,0)="incident, enter the third line of the street address for the attorney."
^DD(2.101,33,"DT")="2831201"
^DD(2.101,34,0)="A-CITY^F^^3;5^K:$L(X)>30!($L(X)<3) X"
^DD(2.101,34,3)="Enter the attorney's city address, 3-30 characters."
^DD(2.101,34,21,0)="^^3^3^2911214^"
^DD(2.101,34,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,34,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,34,21,3,0)="incident, enter the city where the attorney practices."
^DD(2.101,34,"DT")="2831201"
^DD(2.101,35,0)="A-STATE^P5'^DIC(5,^3;6^Q"
^DD(2.101,35,3)="Enter the attorney's state address."
^DD(2.101,35,21,0)="^^3^3^2911214^"
^DD(2.101,35,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,35,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,35,21,3,0)="incident, enter the the state where the attorney practices."
^DD(2.101,35,"DT")="2831201"
^DD(2.101,36,0)="A-ZIP CODE^F^^3;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(2.101,36,1,0)="^.1^^-1"
^DD(2.101,36,1,1,0)="2.101^ADISAZIP^MUMPS"
^DD(2.101,36,1,1,1)="D SETMULT^DGREGDD1(DA(1),DA,2.101,""DIS"",38,3,9,X)"
^DD(2.101,36,1,1,2)="D KILLMULT^DGREGDD1(DA(1),DA,2.101,""DIS"",38,3,9,X)"
^DD(2.101,36,1,1,"%D",0)="^^2^2^2930607^^^"
^DD(2.101,36,1,1,"%D",1,0)="This sets the corresponding zip+4 field to be equal to this field's "
^DD(2.101,36,1,1,"%D",2,0)="value."
^DD(2.101,36,1,1,"DT")="2930607"
^DD(2.101,36,3)="Enter the 5 numbers in the attorney's zip code (ex: '12345')."
^DD(2.101,36,21,0)="3"
^DD(2.101,36,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,36,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,36,21,3,0)="incident, enter the zip code of the attorney's address."
^DD(2.101,36,"DT")="2930607"
^DD(2.101,37,0)="A-PHONE^F^^3;8^K:$L(X)>20!($L(X)<3) X"
^DD(2.101,37,3)="Enter the attorney's phone number, 3-20 characters."
^DD(2.101,37,21,0)="^^3^3^2911214^"
^DD(2.101,37,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,37,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,37,21,3,0)="incident, enter the the attorney's business phone number."
^DD(2.101,37,"DT")="2831201"
^DD(2.101,38,0)="A-ZIP+4^FOX^^3;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2.101,38,1,0)="^.1^^-1"
^DD(2.101,38,1,1,0)="2.101^ADISZIP4^MUMPS"
^DD(2.101,38,1,1,1)="D SETMULT^DGREGDD1(DA(1),DA,2.101,""DIS"",36,3,7,$E(X,1,5))"
^DD(2.101,38,1,1,2)="D KILLMULT^DGREGDD1(DA(1),DA,2.101,""DIS"",36,3,7,$E(X,1,5))"
^DD(2.101,38,1,1,"%D",0)="^^2^2^2930607^^^^"
^DD(2.101,38,1,1,"%D",1,0)="This sets the corresponding zip code field to the first 5 digits of this "
^DD(2.101,38,1,1,"%D",2,0)="field."
^DD(2.101,38,1,1,"DT")="2930607"
^DD(2.101,38,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2.101,38,2.1)="D ZIPOUT^VAFADDR"
^DD(2.101,38,3)="Answer with either 5 digit or 9 digit zip code."
^DD(2.101,38,21,0)="^^5^5^2930603^"
^DD(2.101,38,21,1,0)="If the patient is being treated for an injury sustained due to the"
^DD(2.101,38,21,2,0)="negligence of another and the patient has an attorney covering the"
^DD(2.101,38,21,3,0)="incident, enter the zip code of the attorney's address.  Answer with "
^DD(2.101,38,21,4,0)="either the 5 digit format (e.g. 12345) or the nine digit format (e.g."
^DD(2.101,38,21,5,0)="12345-6789 or 123456789)."
^DD(2.101,38,23,0)="^^3^3^2930603^"
^DD(2.101,38,23,1,0)="Related to other address fields for the patient's attorney.  This field "
^DD(2.101,38,23,2,0)="'triggers' the A-ZIP CODE (#38) field of the disposition multiple, using"
^DD(2.101,38,23,3,0)="the first 5 digits of this field."
^DD(2.101,38,"DT")="2930607"
^DD(2.101,50,0)="ACTIVE^S^1:ACTIVE;^0;10^Q"
^DD(2.101,50,1,0)="^.1"
^DD(2.101,50,1,1,0)="2^ADA"
^DD(2.101,50,1,1,1)="S ^DPT(""ADA"",$E(X,1,30),DA(1),DA)="""""
^DD(2.101,50,1,1,2)="K ^DPT(""ADA"",$E(X,1,30),DA(1),DA)"
^DD(2.101,50,3)="Enter 1 if this registration is active (not dispositioned)."
^DD(2.101,50,5,1,0)="2.101^.01^1"
^DD(2.101,50,5,2,0)="2.101^5^1"
^DD(2.101,50,9)="^"
^DD(2.101,50,21,0)="^^2^2^2911214^"
^DD(2.101,50,21,1,0)="If this registration is currently active (not dispostioned) a 1 will be"
^DD(2.101,50,21,2,0)="stored in this field.  Otherwise, the field should be left blank."
^DD(2.101,50,"DT")="2850702"
^DD(2.101,99,0)="PROGRAMMERS USE^DC^^ ; ^S Y(2.101,99,1)=$S($D(^DPT(D0,""DIS"",D1,0)):^(0),1:"""") S X=$P(Y(2.101,99,1),U,1)"
^DD(2.101,99,9)="^"
^DD(2.101,99,9.01)="2.101^.01"
^DD(2.101,99,9.1)="#.01"
^DD(2.101,99,21,0)="^^2^2^2851121^"
^DD(2.101,99,21,1,0)="Used to speed reporting in Multidivisional Facilities."
^DD(2.101,99,21,2,0)="Fileman can not sort by same field twice"
^DD(2.101,100.21,0)="ATTORNEY'S NAME COMPONENTS^P20'I^VA(20,^0;21^Q"
^DD(2.101,100.21,3)="This field contains a pointer to the NAME COMPONENTS record associated with DISPOSITION field #30."
^DD(2.101,100.21,9)="^"
^DD(2.101,100.21,"DT")="3020419"
^DD(2.101,11500.01,0)="ODS AT REGISTRATION?^S^1:YES;0:NO;^ODS;1^Q"
^DD(2.101,11500.01,3)="Did this patient have a period of service of ODS at the time of this registration?"
^DD(2.101,11500.01,21,0)="^^1^1^2910116^"
^DD(2.101,11500.01,21,1,0)="Enter yes if this patient was an ODS patient at the time of this registration.  Otherwise, respond no."
^DD(2.101,11500.01,21,2,0)="this registration.  Otherwise, respond no."
^DD(2.101,11500.01,"DT")="2910116"
^DD(2.101,11500.02,0)="ODS REGISTRATION ENTRY^P11500.4'^A1B2(11500.4,^ODS;2^Q"
^DD(2.101,11500.02,1,0)="^.1"
^DD(2.101,11500.02,1,1,0)="2^AODSR"
^DD(2.101,11500.02,1,1,1)="S ^DPT(""AODSR"",$E(X,1,30),DA(1),DA)="""""
^DD(2.101,11500.02,1,1,2)="K ^DPT(""AODSR"",$E(X,1,30),DA(1),DA)"
^DD(2.101,11500.02,3)="Enter the entry in the ODS REGISTRATIONS file which corresponds to this registration."
^DD(2.101,11500.02,21,0)="^^1^1^2910116^"
^DD(2.101,11500.02,21,1,0)="Enter the entry in the ODS REGISTRATIONS file which corresponds to this registration."
^DD(2.101,11500.02,"DT")="2910116"
^DD(2.101,"B","*ELIGIBLE FOR MEDICAID",12)=""
^DD(2.101,"B","10-10T REGISTRATION",.2)=""
^DD(2.101,"B","A-ADDRESS 1",31)=""
^DD(2.101,"B","A-ADDRESS 2",32)=""
^DD(2.101,"B","A-ADDRESS 3",33)=""
^DD(2.101,"B","A-CITY",34)=""
^DD(2.101,"B","A-PHONE",37)=""
^DD(2.101,"B","A-STATE",35)=""
^DD(2.101,"B","A-ZIP CODE",36)=""
^DD(2.101,"B","A-ZIP+4",38)=""
^DD(2.101,"B","ACTIVE",50)=""
^DD(2.101,"B","AMIS 420 SEGMENT",17)=""
^DD(2.101,"B","ATTORNEY'S NAME",30)=""
^DD(2.101,"B","ATTORNEY'S NAME COMPONENTS",100.21)=""
^DD(2.101,"B","DESCRIPTION OF INCIDENT",10)=""
^DD(2.101,"B","DISPOSITION",6)=""
^DD(2.101,"B","ELIG VERIFIED AT REGISTRATION",14)=""
^DD(2.101,"B","ENCOUNTER CONVERSION STATUS",19)=""
^DD(2.101,"B","FACILITY APPLYING TO",3)=""
^DD(2.101,"B","FILED AGAINST INJURING PARTY",26)=""
^DD(2.101,"B","INJURING PARTIES INSURANCE",25)=""
^DD(2.101,"B","INJURY CAUSED BY",24)=""
^DD(2.101,"B","LOG IN DATE/TIME",.01)=""
^DD(2.101,"B","LOG OUT DATE TIME",5)=""
^DD(2.101,"B","NEED RELATED TO AN ACCIDENT",23)=""
^DD(2.101,"B","NEED RELATED TO OCCUPATION",20)=""
^DD(2.101,"B","ODS AT REGISTRATION?",11500.01)=""
^DD(2.101,"B","ODS REGISTRATION ENTRY",11500.02)=""
^DD(2.101,"B","OUTPATIENT ENCOUNTER",18)=""
^DD(2.101,"B","PROGRAMMERS USE",99)=""
^DD(2.101,"B","REASON FOR LATE DISPOSITION",8)=""
^DD(2.101,"B","REGISTRATION ELIGIBILITY CODE",13)=""
^DD(2.101,"B","SC AT REGISTRATION",15)=""
^DD(2.101,"B","SC% AT REGISTRATION",16)=""
^DD(2.101,"B","STATUS",1)=""
^DD(2.101,"B","TYPE OF BENEFIT APPLIED FOR",2)=""
^DD(2.101,"B","TYPE OF CARE APPLIED FOR",2.1)=""
^DD(2.101,"B","WHO DISPOSITIONED",9)=""
^DD(2.101,"B","WHO ENTERED 10/10",4)=""
^DD(2.101,"B","WORKMEN'S COMP CLAIM FILED",21)=""
^DD(2.101,"B","WORKMEN'S COMP CLAIM NUMBER",22)=""
^DD(2.101,"GL",0,1,.01)=""
^DD(2.101,"GL",0,2,1)=""
^DD(2.101,"GL",0,3,2)=""
^DD(2.101,"GL",0,4,3)=""
^DD(2.101,"GL",0,5,4)=""
^DD(2.101,"GL",0,6,5)=""
^DD(2.101,"GL",0,7,6)=""
^DD(2.101,"GL",0,8,8)=""
^DD(2.101,"GL",0,9,9)=""
^DD(2.101,"GL",0,10,50)=""
^DD(2.101,"GL",0,11,2.1)=""
^DD(2.101,"GL",0,12,12)=""
^DD(2.101,"GL",0,13,13)=""
^DD(2.101,"GL",0,14,14)=""
^DD(2.101,"GL",0,15,15)=""
^DD(2.101,"GL",0,16,16)=""
^DD(2.101,"GL",0,17,17)=""
^DD(2.101,"GL",0,18,18)=""
^DD(2.101,"GL",0,19,19)=""
^DD(2.101,"GL",0,20,.2)=""
^DD(2.101,"GL",0,21,100.21)=""
^DD(2.101,"GL",1,1,10)=""
^DD(2.101,"GL",2,1,20)=""
^DD(2.101,"GL",2,2,21)=""
^DD(2.101,"GL",2,3,22)=""
^DD(2.101,"GL",2,4,23)=""
^DD(2.101,"GL",2,5,24)=""
^DD(2.101,"GL",2,6,25)=""
^DD(2.101,"GL",2,7,26)=""
^DD(2.101,"GL",3,1,30)=""
^DD(2.101,"GL",3,2,31)=""
^DD(2.101,"GL",3,3,32)=""
^DD(2.101,"GL",3,4,33)=""
^DD(2.101,"GL",3,5,34)=""
^DD(2.101,"GL",3,6,35)=""
^DD(2.101,"GL",3,7,36)=""
^DD(2.101,"GL",3,8,37)=""
^DD(2.101,"GL",3,9,38)=""
^DD(2.101,"GL","ODS",1,11500.01)=""
^DD(2.101,"GL","ODS",2,11500.02)=""
^DD(2.101,"IX",.01)=""
^DD(2.101,"IX",1)=""
^DD(2.101,"IX",3)=""
^DD(2.101,"IX",5)=""
^DD(2.101,"IX",6)=""
^DD(2.101,"IX",12)=""
^DD(2.101,"IX",13)=""
^DD(2.101,"IX",36)=""
^DD(2.101,"IX",38)=""
^DD(2.101,"IX",50)=""
^DD(2.101,"IX",11500.02)=""
^DD(2.101,"RQ",1)=""
^DD(2.101,"RQ",2)=""
^DD(2.101,"RQ",2.1)=""
^DD(2.101,"RQ",5)=""
^DD(2.101,"RQ",6)=""
^DD(2.101,"RQ",13)=""
^DD(2.101,"RQ",14)=""
^DD(2.101,"RQ",15)=""
^DD(2.101,"RQ",16)=""
^DD(2.101,"RQ",20)=""
^DD(2.101,"RQ",23)=""
^DD(2.11,0)="DATE OF DENTAL TREATMENT SUB-FIELD^^3^3"
^DD(2.11,0,"NM","DATE OF DENTAL TREATMENT")=""
^DD(2.11,0,"UP")="2"
^DD(2.11,.01,0)="DATE OF DENTAL TREATMENT^MDX^^0;1^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:1000000>X X"
^DD(2.11,.01,3)="TYPE A DATE BETWEEN 1800 AND TODAY"
^DD(2.11,.01,"DT")="2980302"
^DD(2.11,2,0)="CONDITION^F^^0;2^K:$L(X)>100!($L(X)<3) X"
^DD(2.11,2,3)="Enter Condition Treated, Place of treatment, and from whom treatment received."
^DD(2.11,2,21,0)="^^3^3^2911214^^"
^DD(2.11,2,21,1,0)="Enter the patient's condition on the date in which they received dental"
^DD(2.11,2,21,2,0)="treatment.  Also enter the place of treatment and from whom the"
^DD(2.11,2,21,3,0)="treatment was received.  This field allows entry of 3-100 characters."
^DD(2.11,2,"DT")="2860624"
^DD(2.11,3,0)="DATE CONDITION FIRST NOTICED^DX^^0;3^S %DT=""E"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(2.11,3,3)="Enter Approximate date condition was first noticed."
^DD(2.11,3,21,0)="^^2^2^2911214^"
^DD(2.11,3,21,1,0)="Enter the date the patient states s/he first noticed this dental"
^DD(2.11,3,21,2,0)="condition."
^DD(2.11,3,"DT")="2900418"
^DD(2.11,"B","CONDITION",2)=""
^DD(2.11,"B","DATE CONDITION FIRST NOTICED",3)=""
^DD(2.11,"B","DATE OF DENTAL TREATMENT",.01)=""
^DD(2.11,"GL",0,1,.01)=""
^DD(2.11,"GL",0,2,2)=""
^DD(2.11,"GL",0,3,3)=""
^DD(2.12,0)="ARCHIVED DATA SUB-FIELD^^1^2"
^DD(2.12,0,"IX","AB",2.12,.01)=""
^DD(2.12,0,"NM","ARCHIVED DATA")=""
^DD(2.12,0,"UP")="2"
^DD(2.12,.01,0)="DATA TYPE^S^DE:CLINIC ENROLLMENT;S:APPOINTMENT;SSD:SPECIAL SURVEY DISP;^0;1^Q"
^DD(2.12,.01,1,0)="^.1"
^DD(2.12,.01,1,1,0)="2.12^AB"
^DD(2.12,.01,1,1,1)="S ^DPT(DA(1),""ARCH"",""AB"",$E(X,1,30),DA)="""""
^DD(2.12,.01,1,1,2)="K ^DPT(DA(1),""ARCH"",""AB"",$E(X,1,30),DA)"
^DD(2.12,.01,21,0)="^^1^1^2911226^^"
^DD(2.12,.01,21,1,0)="This field identifies the type of data that was archived"
^DD(2.12,.01,"DT")="2870102"
^DD(2.12,1,0)="DATE OF ARCHIVE^2.13DA^^1;0"
^DD(2.12,1,21,0)="^^2^2^2911226^"
^DD(2.12,1,21,1,0)="This multiple contains data pertaining to each specific archive (the"
^DD(2.12,1,21,2,0)="date, the beginning and ending archiving dates, and the tape numbers)."
^DD(2.12,"B","DATA TYPE",.01)=""
^DD(2.12,"B","DATE OF ARCHIVE",1)=""
^DD(2.12,"GL",0,1,.01)=""
^DD(2.12,"GL",1,0,1)=""
^DD(2.12,"IX",.01)=""
^DD(2.12,"SB",2.13,1)=""
^DD(2.13,0)="DATE OF ARCHIVE SUB-FIELD^^4^5"
^DD(2.13,0,"NM","DATE OF ARCHIVE")=""
^DD(2.13,0,"UP")="2.12"
^DD(2.13,.01,0)="DATE OF ARCHIVE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2.13,.01,21,0)="^^4^4^2911226^"
^DD(2.13,.01,21,1,0)="Enter the date/time the archiving utility was run."
^DD(2.13,.01,21,2,0)=" "
^DD(2.13,.01,21,3,0)="This field is not currently used.  The archiving software was not"
^DD(2.13,.01,21,4,0)="distributed."
^DD(2.13,.01,"DT")="2861229"
^DD(2.13,1,0)="TAPE #^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(2.13,1,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(2.13,1,21,0)="^^2^2^2911226^"
^DD(2.13,1,21,1,0)="Enter the sequential number of the tape on which this archiving data"
^DD(2.13,1,21,2,0)="was put."
^DD(2.13,1,"DT")="2870129"
^DD(2.13,2,0)="BEGIN ARCHIVE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2.13,2,21,0)="^^1^1^2911226^"
^DD(2.13,2,21,1,0)="Enter the date the user chose to begin the scheduling archive."
^DD(2.13,2,"DT")="2861229"
^DD(2.13,3,0)="END ARCHIVE DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2.13,3,3)=""
^DD(2.13,3,21,0)="^^1^1^2911226^"
^DD(2.13,3,21,1,0)="Enter the ending date the user chose for the scheduling archive."
^DD(2.13,4,0)="NUMBER OF RECORDS ARCHIVED^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2.13,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(2.13,4,21,0)="^^5^5^2911226^"
^DD(2.13,4,21,1,0)="The number of records archived.  This is created automatically by the"
^DD(2.13,4,21,2,0)="software."
^DD(2.13,4,21,3,0)=" "
^DD(2.13,4,21,4,0)="This software has not been released and this field is not presently"
^DD(2.13,4,21,5,0)="used in DHCP."
^DD(2.13,4,"DT")="2861229"
^DD(2.13,"B","BEGIN ARCHIVE DATE",2)=""
^DD(2.13,"B","DATE OF ARCHIVE",.01)=""
^DD(2.13,"B","END ARCHIVE DATE",3)=""
^DD(2.13,"B","NUMBER OF RECORDS ARCHIVED",4)=""
^DD(2.13,"B","TAPE #",1)=""
^DD(2.13,"GL",0,1,.01)=""
^DD(2.13,"GL",0,2,1)=""
^DD(2.13,"GL",0,3,2)=""
^DD(2.13,"GL",0,4,3)=""
^DD(2.13,"GL",0,5,4)=""
^DD(2.141,0)="CONFIDENTIAL ADDRESS CATEGORY SUB-FIELD^^1^2"
^DD(2.141,0,"DT")="3030108"
^DD(2.141,0,"IX","B",2.141,.01)=""
^DD(2.141,0,"NM","CONFIDENTIAL ADDRESS CATEGORY")=""
^DD(2.141,0,"UP")="2"
^DD(2.141,.01,0)="CONFIDENTIAL ADDRESS CATEGORY^MS^1:ELIGIBILITY/ENROLLMENT;2:APPOINTMENT/SCHEDULING;3:COPAYMENTS/VETERAN BILLING;4:MEDICAL RECORDS;5:ALL OTHERS;^0;1^Q"
^DD(2.141,.01,.1)=""
^DD(2.141,.01,1,0)="^.1"
^DD(2.141,.01,1,1,0)="2.141^B"
^DD(2.141,.01,1,1,1)="S ^DPT(DA(1),.14,""B"",$E(X,1,30),DA)="""""
^DD(2.141,.01,1,1,2)="K ^DPT(DA(1),.14,""B"",$E(X,1,30),DA)"
^DD(2.141,.01,3)="Enter the confidential address category for the applicant's confidential communications."
^DD(2.141,.01,21,0)="^.001^3^3^3030313^^"
^DD(2.141,.01,21,1,0)="If the 'Confidential Address Active' prompt is answered YES, "
^DD(2.141,.01,21,2,0)="select the confidential address category for this applicant's"
^DD(2.141,.01,21,3,0)="confidential communications."
^DD(2.141,.01,"DT")="3060518"
^DD(2.141,1,0)="CONFIDENTIAL CATEGORY ACTIVE^S^Y:YES;N:NO;^0;2^Q"
^DD(2.141,1,3)="Enter Yes if the confidential address category for the applicant's confidential communications is active."
^DD(2.141,1,21,0)="^.001^3^3^3030313^^"
^DD(2.141,1,21,1,0)="If the applicant's confidential communications for this category should"
^DD(2.141,1,21,2,0)="be sent to the confidential address, Confidential Category Active field"
^DD(2.141,1,21,3,0)="should be set to yes.  If not, select N or No."
^DD(2.141,1,"DT")="3060518"
^DD(2.141,"B","CONFIDENTIAL ADDRESS CATEGORY",.01)=""
^DD(2.141,"B","CONFIDENTIAL CATEGORY ACTIVE",1)=""
^DD(2.141,"GL",0,1,.01)=""
^DD(2.141,"GL",0,2,1)=""
^DD(2.141,"IX",.01)=""
^DD(2.16,0)="MISSING OR INELIGIBLE SUB-FIELD^NL^.01^1"
^DD(2.16,0,"NM","MISSING OR INELIGIBLE")=""
^DD(2.16,0,"UP")="2"
^DD(2.16,.01,0)="MISSING OR INELIGIBLE^W^^0;1^Q"
^DD(2.16,.01,3)=""
^DD(2.16,.01,21,0)="^^2^2^2911224^"
^DD(2.16,.01,21,1,0)="This is a word processing field to contain information on the patient's"
^DD(2.16,.01,21,2,0)="ineligibility or information about this missing patient."
^DD(2.16,.01,"DT")="2850321"
^DD(2.16,"B","MISSING OR INELIGIBLE",.01)=""
^DD(2.16,"GL",0,1,.01)=""
^DD(2.312,0)="INSURANCE TYPE SUB-FIELD^NL^21^62"
^DD(2.312,0,"DT")="2930712"
^DD(2.312,0,"ID","WRITE")=""
^DD(2.312,0,"IX","ADGRU31201",2.312,.01)=""
^DD(2.312,0,"IX","ADGRU3121",2.312,1)=""
^DD(2.312,0,"IX","ADGRU31218",2.312,.18)=""
^DD(2.312,0,"IX","ADGRU3123",2.312,3)=""
^DD(2.312,0,"IX","ADGRU3128",2.312,8)=""
^DD(2.312,0,"IX","AENR01",2.312,.01)=""
^DD(2.312,0,"IX","AENR1",2.312,1)=""
^DD(2.312,0,"IX","AENR17",2.312,17)=""
^DD(2.312,0,"IX","AENR18",2.312,.18)=""
^DD(2.312,0,"IX","AENR2",2.312,2)=""
^DD(2.312,0,"IX","AENR3",2.312,3)=""
^DD(2.312,0,"IX","AENR6",2.312,6)=""
^DD(2.312,0,"IX","AENR8",2.312,8)=""
^DD(2.312,0,"IX","B",2.312,.01)=""
^DD(2.312,0,"NM","INSURANCE TYPE")=""
^DD(2.312,0,"UP")="2"
^DD(2.312,.01,0)="INSURANCE TYPE^M*P36'^DIC(36,^0;1^S DIC(""S"")=""I '$P(^(0),""""^"""",5)"" S:$D(DGCRINSS) DIC(""S"")=DIC(""S"")_"",$P(^(0),""""^"""",2)'=""""N"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.312,.01,1,0)="^.1"
^DD(2.312,.01,1,1,0)="2.312^ADGRU31201^MUMPS"
^DD(2.312,.01,1,1,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,.01,1,1,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,.01,1,1,"%D",0)="^^1^1^3000420^"
^DD(2.312,.01,1,1,"%D",1,0)="RAI/MDS: field monitored for changes."
^DD(2.312,.01,1,1,"DT")="3000420"
^DD(2.312,.01,1,2,0)="2.312^B"
^DD(2.312,.01,1,2,1)="S ^DPT(DA(1),.312,""B"",$E(X,1,30),DA)="""""
^DD(2.312,.01,1,2,2)="K ^DPT(DA(1),.312,""B"",$E(X,1,30),DA)"
^DD(2.312,.01,1,2,"DT")="2930304"
^DD(2.312,.01,1,3,0)="2^AB"
^DD(2.312,.01,1,3,1)="S ^DPT(""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(2.312,.01,1,3,2)="K ^DPT(""AB"",$E(X,1,30),DA(1),DA)"
^DD(2.312,.01,1,3,"%D",0)="^^3^3^3000216^^"
^DD(2.312,.01,1,3,"%D",1,0)="Index of all insurance companies for the entire patient file.  This will "
^DD(2.312,.01,1,3,"%D",2,0)="be used to prevent deleting of insurance companies that are pointed to"
^DD(2.312,.01,1,3,"%D",3,0)="by the patient file."
^DD(2.312,.01,1,3,"DT")="2930304"
^DD(2.312,.01,1,4,0)="^^TRIGGER^2.312^1.01"
^DD(2.312,.01,1,4,1)="X ^DD(2.312,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(2.312,.01,1,4,1.4)"
^DD(2.312,.01,1,4,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"""") S X=$P(Y(1),U,1)="""""
^DD(2.312,.01,1,4,1.4)="S DIH=$S($D(^DPT(DIV(0),.312,DIV(1),1)):^(1),1:""""),DIV=X S $P(^(1),U,1)=DIV,DIH=2.312,DIG=1.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.312,.01,1,4,2)="Q"
^DD(2.312,.01,1,4,"%D",0)="^^1^1^2930602^^"
^DD(2.312,.01,1,4,"%D",1,0)="Triggers date entered field to current date only if null."
^DD(2.312,.01,1,4,"CREATE CONDITION")="#1.01="""""
^DD(2.312,.01,1,4,"CREATE VALUE")="S X=DT"
^DD(2.312,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(2.312,.01,1,4,"DT")="2930304"
^DD(2.312,.01,1,4,"FIELD")="#1.01"
^DD(2.312,.01,1,5,0)="^^TRIGGER^2.312^1.02"
^DD(2.312,.01,1,5,1)="X ^DD(2.312,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(2.312,.01,1,5,1.4)"
^DD(2.312,.01,1,5,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(2.312,.01,1,5,1.4)="S DIH=$S($D(^DPT(DIV(0),.312,DIV(1),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=2.312,DIG=1.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.312,.01,1,5,2)="Q"
^DD(2.312,.01,1,5,"%D",0)="^^1^1^2930304^"
^DD(2.312,.01,1,5,"%D",1,0)="Store user who entered insurance."
^DD(2.312,.01,1,5,"CREATE CONDITION")="#1.02="""""
^DD(2.312,.01,1,5,"CREATE VALUE")="S X=DUZ"
^DD(2.312,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(2.312,.01,1,5,"DT")="2930304"
^DD(2.312,.01,1,5,"FIELD")="#1.02"
^DD(2.312,.01,1,6,0)="2.312^AENR01^MUMPS"
^DD(2.312,.01,1,6,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,.01,1,6,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,.01,1,6,3)=" DO NOT DELETE"
^DD(2.312,.01,1,6,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,.01,1,6,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,.01,1,6,"%D",2,0)="enrollment."
^DD(2.312,.01,1,6,"DT")="3050913"
^DD(2.312,.01,3)="Enter the insurance company with which the patient has insurance coverage."
^DD(2.312,.01,12)="ACTIVE INSURANCE COMPANIES ONLY"
^DD(2.312,.01,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",5)"" S:$D(DGCRINSS) DIC(""S"")=DIC(""S"")_"",$P(^(0),""""^"""",2)'=""""N"""""""
^DD(2.312,.01,21,0)="^^2^2^3000216^^^^"
^DD(2.312,.01,21,1,0)="Choose from the available listing the name(s) of the insurance"
^DD(2.312,.01,21,2,0)="company(ies) under which this applicant is covered."
^DD(2.312,.01,"DEL",399,0)="I $$DELP^IBCNSU(DA(1),$P(^DPT(DA(1),.312,DA,0),U),DA) W !!,$C(7),""THERE ARE BILLS ASSOCIATED WITH THIS COMPANY, DELETION NOT ALLOWED"""
^DD(2.312,.01,"DT")="3000420"
^DD(2.312,.18,0)="GROUP PLAN^*P355.3^IBA(355.3,^0;18^S DIC(""S"")=""I +$P(^(0),U)=+$G(^DPT(DA(1),.312,DA,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.312,.18,1,0)="^.1^^-1"
^DD(2.312,.18,1,1,0)="2.312^ADGRU31218^MUMPS"
^DD(2.312,.18,1,1,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,.18,1,1,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,.18,1,1,"%D",0)="^^1^1^3000420^"
^DD(2.312,.18,1,1,"%D",1,0)="RAI/MDS: field monitored for changes."
^DD(2.312,.18,1,1,"DT")="3000420"
^DD(2.312,.18,1,2,0)="2.312^AENR18^MUMPS"
^DD(2.312,.18,1,2,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,.18,1,2,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,.18,1,2,3)=" DO NOT DELETE"
^DD(2.312,.18,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,.18,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,.18,1,2,"%D",2,0)="enrollment."
^DD(2.312,.18,1,2,"DT")="3050913"
^DD(2.312,.18,3)="Enter the name or number of the Insurance Company you are trying to update benefits for."
^DD(2.312,.18,12)="MUST BE SAME INSURANCE COMPANY"
^DD(2.312,.18,12.1)="S DIC(""S"")=""I +$P(^(0),U)=+$G(^DPT(DA(1),.312,DA,0))"""
^DD(2.312,.18,21,0)="^^5^5^2931103^^"
^DD(2.312,.18,21,1,0)="Select the plan under which this patient is covered by the specified"
^DD(2.312,.18,21,2,0)="insurance company.  If this is a group plan then there may already be"
^DD(2.312,.18,21,3,0)="an entry for this plan that you may select.  Or, you may add a new"
^DD(2.312,.18,21,4,0)="plan.  If this is an individual plan then it will be associated with"
^DD(2.312,.18,21,5,0)="only this patient."
^DD(2.312,.18,"DT")="3000420"
^DD(2.312,.2,0)="COORDINATION OF BENEFITS^S^1:PRIMARY;2:SECONDARY;3:TERTIARY;^0;20^Q"
^DD(2.312,.2,"DT")="2930702"
^DD(2.312,1,0)="SUBSCRIBER ID^FX^^0;2^D SUBID^IBCNSU1"
^DD(2.312,1,.1)="INSURANCE NUMBER"
^DD(2.312,1,1,0)="^.1"
^DD(2.312,1,1,1,0)="2.312^ADGRU3121^MUMPS"
^DD(2.312,1,1,1,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,1,1,1,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,1,1,1,"%D",0)="^^1^1^3000420^"
^DD(2.312,1,1,1,"%D",1,0)="RAI/MDS: field monitored for changes."
^DD(2.312,1,1,1,"DT")="3000420"
^DD(2.312,1,1,2,0)="2.312^AENR1^MUMPS"
^DD(2.312,1,1,2,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,1,1,2,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,1,1,2,3)=" DO NOT DELETE"
^DD(2.312,1,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,1,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,1,1,2,"%D",2,0)="enrollment."
^DD(2.312,1,1,2,"DT")="3050913"
^DD(2.312,1,3)="Answer must be 3-20 characters in length"
^DD(2.312,1,21,0)="^^2^2^3070620^"
^DD(2.312,1,21,1,0)="Enter the Subscriber's Primary ID number.  This number is assigned"
^DD(2.312,1,21,2,0)="by the payer and can be found on the subscriber's insurance card."
^DD(2.312,1,"DT")="3070620"
^DD(2.312,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.312,1.01,3)="Enter the Date time this entry was entered"
^DD(2.312,1.01,5,1,0)="2.312^.01^4"
^DD(2.312,1.01,21,0)="^^3^3^2930603^^"
^DD(2.312,1.01,21,1,0)="This is the date this entry was added.  It will be created by the system"
^DD(2.312,1.01,21,2,0)="whenever a new policy is added.  Entries created prior the installation"
^DD(2.312,1.01,21,3,0)="of IB v2.0 will not have an entry in this field."
^DD(2.312,1.01,"DT")="2930707"
^DD(2.312,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(2.312,1.02,5,1,0)="2.312^.01^5"
^DD(2.312,1.02,21,0)="^^3^3^2930603^"
^DD(2.312,1.02,21,1,0)="This the user who added this entry.  It will be entered by the system"
^DD(2.312,1.02,21,2,0)="whenever a new policy is added.  Entries created prior the installation"
^DD(2.312,1.02,21,3,0)="of IB v2.0 will not have an entry in this field."
^DD(2.312,1.02,"DT")="2930303"
^DD(2.312,1.03,0)="DATE LAST VERIFIED^D^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2.312,1.03,3)="Enter the date that this policy was last verified."
^DD(2.312,1.03,21,0)="^^9^9^3000216^^^"
^DD(2.312,1.03,21,1,0)="Insurance coverage is generally verified by calling the insurer and"
^DD(2.312,1.03,21,2,0)="requesting an explanation of benefits.  When coverage has been"
^DD(2.312,1.03,21,3,0)="verified the person verifying the coverage should use the options to"
^DD(2.312,1.03,21,4,0)="verify the coverage in VISTA.  "
^DD(2.312,1.03,21,5,0)=" "
^DD(2.312,1.03,21,6,0)="This is the date that this policy for this patient was last verified "
^DD(2.312,1.03,21,7,0)="with the insurance company.  It is important to update the verification"
^DD(2.312,1.03,21,8,0)="date regularly so that other users will know how current the information"
^DD(2.312,1.03,21,9,0)="in VISTA is."
^DD(2.312,1.03,"DT")="3000131"
^DD(2.312,1.04,0)="VERIFIED BY^P200'^VA(200,^1;4^Q"
^DD(2.312,1.04,21,0)="^^4^4^2930603^"
^DD(2.312,1.04,21,1,0)="This is the user that last contacted the insurance company to verify"
^DD(2.312,1.04,21,2,0)="the policy.  It is updated by using the appropriate DHCP options."
^DD(2.312,1.04,21,3,0)="It is important to update the verification date and user so that other"
^DD(2.312,1.04,21,4,0)="users will know the insurance policy information is current."
^DD(2.312,1.04,"DT")="2930303"
^DD(2.312,1.05,0)="DATE LAST EDITED^D^^1;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.312,1.05,21,0)="^^2^2^2930603^"
^DD(2.312,1.05,21,1,0)="This is the date this policy was last edited.  This field is updated by"
^DD(2.312,1.05,21,2,0)="the computer whenever anyone edits this patients policy information."
^DD(2.312,1.05,"DT")="2930707"
^DD(2.312,1.06,0)="LAST EDITED BY^P200'^VA(200,^1;6^Q"
^DD(2.312,1.06,21,0)="^^2^2^2930603^"
^DD(2.312,1.06,21,1,0)="This is the user that last edited the policy.  This field is updated by"
^DD(2.312,1.06,21,2,0)="the computer whenever anyone edits this patients policy information."
^DD(2.312,1.06,"DT")="2930303"
^DD(2.312,1.08,0)="COMMENT - PATIENT POLICY^F^^1;8^K:$L(X)>80!($L(X)<3) X"
^DD(2.312,1.08,3)="Answer must be 3-80 characters in length.  This is a short comment about this patients policy."
^DD(2.312,1.08,21,0)="^^3^3^2930603^^"
^DD(2.312,1.08,21,1,0)="This is a place to record a short comment about this patients policy."
^DD(2.312,1.08,21,2,0)="It is specific to this patient and to this policy.  The answer must be"
^DD(2.312,1.08,21,3,0)="3 to 80 characters."
^DD(2.312,1.08,"DT")="2930603"
^DD(2.312,1.09,0)="SOURCE OF INFORMATION^P355.12'O^IBE(355.12,^1;9^Q"
^DD(2.312,1.09,1,0)="^.1"
^DD(2.312,1.09,1,1,0)="^^TRIGGER^2.312^1.1"
^DD(2.312,1.09,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,1)):^(1),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(2.312,1.09,1,1,1.4)"
^DD(2.312,1.09,1,1,1.1)="S X=DIV S %=$P($H,"","",2),X=$E(DT_(%\60#60/100+(%\3600)+(%#60/10000)/100),1,12)"
^DD(2.312,1.09,1,1,1.4)="S DIH=$G(^DPT(DIV(0),.312,DIV(1),1)),DIV=X S $P(^(1),U,10)=DIV,DIH=2.312,DIG=1.1 D ^DICR"
^DD(2.312,1.09,1,1,2)="Q"
^DD(2.312,1.09,1,1,"CREATE VALUE")="NOW"
^DD(2.312,1.09,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2.312,1.09,1,1,"DT")="3030131"
^DD(2.312,1.09,1,1,"FIELD")="#1.1"
^DD(2.312,1.09,2)="S Y(0)=Y S Y=$$GET1^DIQ(355.12,Y_"","",.02,""E"")"
^DD(2.312,1.09,2.1)="S Y=$$GET1^DIQ(355.12,Y_"","",.02,""E"")"
^DD(2.312,1.09,3)="Enter the source by which this insurance information was obtained."
^DD(2.312,1.09,21,0)="^.001^11^11^3061206^^^"
^DD(2.312,1.09,21,1,0)="Enter the last source of this information."
^DD(2.312,1.09,21,2,0)="If the insurance information was obtained by patient interview, then"
^DD(2.312,1.09,21,3,0)="enter interview, etc.  If the information was initially or previously"
^DD(2.312,1.09,21,4,0)="obtained by one source but updated by another source, then enter the"
^DD(2.312,1.09,21,5,0)="most recent source of the information."
^DD(2.312,1.09,21,6,0)=" "
^DD(2.312,1.09,21,7,0)="The data in this field will be initially set to INTERVIEW with IB v2."
^DD(2.312,1.09,21,8,0)="The data may be passed to Accounts Receivable and/or the MCCR NDB."
^DD(2.312,1.09,21,9,0)=" "
^DD(2.312,1.09,21,10,0)="If this field is being edited through the use of the pre-registration"
^DD(2.312,1.09,21,11,0)="software, the default for this field will be set to PRE-REGISTRATION."
^DD(2.312,1.09,"DT")="3061031"
^DD(2.312,1.1,0)="DATE OF SOURCE OF INFORMATION^D^^1;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.312,1.1,5,1,0)="2.312^1.09^1"
^DD(2.312,1.1,"DT")="2930712"
^DD(2.312,2,0)="*GROUP NUMBER^F^^0;3^K:$L(X)>17!($L(X)<1) X"
^DD(2.312,2,1,0)="^.1"
^DD(2.312,2,1,1,0)="2.312^AENR2^MUMPS"
^DD(2.312,2,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,2,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,2,1,1,3)=" DO NOT DELETE"
^DD(2.312,2,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,2,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,2,1,1,"%D",2,0)="enrollment."
^DD(2.312,2,1,1,"DT")="3050913"
^DD(2.312,2,3)="Answer must be 1-17 characters in length."
^DD(2.312,2,21,0)="^^7^7^2930601^^^^"
^DD(2.312,2,21,1,0)="Enter any other appropriate number which identifies this policy, i.e.,"
^DD(2.312,2,21,2,0)="group number/code, under which this applicant is covered.  Answer must"
^DD(2.312,2,21,3,0)="be between 1 and 17 characters."
^DD(2.312,2,21,4,0)=" "
^DD(2.312,2,21,5,0)="This field is moved to the HEALTH INSURANCE POLICY file (355.3) beginning"
^DD(2.312,2,21,6,0)="with IB v2.0.  It will be deleted with the first release 18 months after"
^DD(2.312,2,21,7,0)="the release of IB V2."
^DD(2.312,2,"DT")="2930601"
^DD(2.312,2.01,0)="SEND BILL TO EMPLOYER^S^1:YES;0:NO;^2;1^Q"
^DD(2.312,2.01,3)="Enter 'YES' if the employer should be mailed insurance claims for pre-processing.  Enter 'NO' if the employer does not receive claims."
^DD(2.312,2.01,21,0)="^^11^11^2930603^^^^"
^DD(2.312,2.01,21,1,0)="If the employer of the person who holds this policy requires that "
^DD(2.312,2.01,21,2,0)="they pre-processed for the insurance policy then enter 'YES'.  You "
^DD(2.312,2.01,21,3,0)="will then be allowed to enter the company name and address that"
^DD(2.312,2.01,21,4,0)="these bills should be sent to.  The bills will then automatically use"
^DD(2.312,2.01,21,5,0)="this address."
^DD(2.312,2.01,21,6,0)=" "
^DD(2.312,2.01,21,7,0)="If the employer does not require this, or unknown, enter 'NO'.  The bills"
^DD(2.312,2.01,21,8,0)="will then be sent to the insurance company."
^DD(2.312,2.01,21,9,0)=" "
^DD(2.312,2.01,21,10,0)="If the policy is held by other than the patient then this will not be the"
^DD(2.312,2.01,21,11,0)="patient's employer but the employer of the person who is insured."
^DD(2.312,2.01,"DT")="2930303"
^DD(2.312,2.015,0)="SUBSCRIBER'S EMPLOYER NAME^F^^2;9^K:$L(X)>30!($L(X)<3) X"
^DD(2.312,2.015,3)="Answer must be 3-30 characters in length.  This is the name of the subsriber's employer that will appear on the UB-04 if this employer pre-processes insurance claims."
^DD(2.312,2.015,21,0)="^^2^2^3070115^"
^DD(2.312,2.015,21,1,0)="This is the name of the employer that will appear on the UB-04 if the"
^DD(2.312,2.015,21,2,0)="bills should be sent to the employer for pre-processing."
^DD(2.312,2.015,"DT")="3070115"
^DD(2.312,2.02,0)="EMPLOYER CLAIMS STREET ADDRESS^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(2.312,2.02,3)="Answer must be 3-30 characters in length.  This is the street address, line 1, of the employer who should receive claims to pre-processs."
^DD(2.312,2.02,21,0)="^^3^3^2930603^"
^DD(2.312,2.02,21,1,0)="This is the street address of the employer who should receive claims to be"
^DD(2.312,2.02,21,2,0)="pre-processed before the are forwarded to the insurance carrier."
^DD(2.312,2.02,21,3,0)="The answer should be 3 to 30 characters."
^DD(2.312,2.02,"DT")="2930303"
^DD(2.312,2.03,0)="EMPLOY CLAIM ST ADDRESS LINE 2^F^^2;3^K:$L(X)>30!($L(X)<3) X"
^DD(2.312,2.03,3)="Answer must be 3-30 characters in length.  This is line 2 of the street address for employers who pre-process insurance claims."
^DD(2.312,2.03,21,0)="^^3^3^2930603^"
^DD(2.312,2.03,21,1,0)="This is line 2 of the street address for employers who pre-process "
^DD(2.312,2.03,21,2,0)="insurance claims before they are forwarded to the insurance carrier"
^DD(2.312,2.03,21,3,0)="for processing.  Answer must be 3-30 characters."
^DD(2.312,2.03,"DT")="2930303"
^DD(2.312,2.04,0)="EMPLOY CLAIM ST ADDRESS LINE 3^F^^2;4^K:$L(X)>30!($L(X)<3) X"
^DD(2.312,2.04,3)="Answer must be 3-30 characters in length.  This is line 3 of the street address for employers who pre-process insurance claims."
^DD(2.312,2.04,21,0)="^^3^3^2930603^"
^DD(2.312,2.04,21,1,0)="This is line 3 of the street address for employers who pre-process "
^DD(2.312,2.04,21,2,0)="insurance claims before they are forwarded to the insurance carrier "
^DD(2.312,2.04,21,3,0)="for processing.  Answer must be 3-30 characters."
^DD(2.312,2.04,"DT")="2930303"
^DD(2.312,2.05,0)="EMPLOYER CLAIMS CITY^F^^2;5^K:$L(X)>20!($L(X)<3) X"
^DD(2.312,2.05,3)="Answer must be 3-20 characters in length.  Enter the city of the employer's address if the employer pre-processes insurance claims."
^DD(2.312,2.05,21,0)="^^4^4^2930603^^^^"
^DD(2.312,2.05,21,1,0)="If the employer of the person who holds this policy pre-processes"
^DD(2.312,2.05,21,2,0)="insurance claims prior to forwarding to the insurance carrier enter"
^DD(2.312,2.05,21,3,0)="the city that claim should be sent to.  This will be printed on the"
^DD(2.312,2.05,21,4,0)="claim form.  Answer must be 3 to 20 characters."
^DD(2.312,2.05,"DT")="2930303"
^DD(2.312,2.06,0)="EMPLOYER CLAIMS STATE^P5'^DIC(5,^2;6^Q"
^DD(2.312,2.06,21,0)="^^4^4^2930603^"
^DD(2.312,2.06,21,1,0)="If the employer of the person who holds this policy pre-processes"
^DD(2.312,2.06,21,2,0)="insurance claims prior to forwarding to the insurance carrier enter"
^DD(2.312,2.06,21,3,0)="the state that the claim should be sent to.  This will be printed on the"
^DD(2.312,2.06,21,4,0)="claim form.  Answer must be 3 to 20 characters."
^DD(2.312,2.06,"DT")="2930303"
^DD(2.312,2.07,0)="EMPLOYER CLAIMS ZIP CODE^FX^^2;7^K:$L(X)>20!($L(X)<5) X D:$D(X) ZIPIN^VAFADDR"
^DD(2.312,2.07,3)="Answer with either the 5 or 9 digit zip code."
^DD(2.312,2.07,21,0)="^^4^4^2930603^"
^DD(2.312,2.07,21,1,0)="Enter the zip code of the mailing address for this employer."
^DD(2.312,2.07,21,2,0)="Answer with either the 5 digit zip code (format 12345) or with the 9 "
^DD(2.312,2.07,21,3,0)="digit zip code (in format 123456789 or 12345-6789)."
^DD(2.312,2.07,21,4,0)=" "
^DD(2.312,2.07,"DT")="2930603"
^DD(2.312,2.08,0)="EMPLOYER CLAIMS PHONE^F^^2;8^K:$L(X)>15!($L(X)<7) X"
^DD(2.312,2.08,3)="Answer must be 7-15 characters in length."
^DD(2.312,2.08,21,0)="^^2^2^2930603^"
^DD(2.312,2.08,21,1,0)="Enter the phone number of the employer.  This should be the phone number"
^DD(2.312,2.08,21,2,0)="of the person to contact regarding insurance claims."
^DD(2.312,2.08,"DT")="2930304"
^DD(2.312,2.1,0)="ESGHP^S^1:YES;0:NO;^2;10^Q"
^DD(2.312,2.1,3)="Enter 'Yes' if this policy is part of an Employer Sponsored Group Health Plan."
^DD(2.312,2.1,21,0)="^^2^2^2971212^^^"
^DD(2.312,2.1,21,1,0)="Enter 'Yes' if this policy is part of a plan that is sponsored or"
^DD(2.312,2.1,21,2,0)="provided by the insured's current or past employer."
^DD(2.312,2.1,"DT")="2970813"
^DD(2.312,2.11,0)="EMPLOYMENT STATUS^S^1:FULL TIME;2:PART TIME;3:NOT EMPLOYED;4:SELF EMPLOYED;5:RETIRED;6:ACTIVE MILITARY;9:UNKNOWN;^2;11^Q"
^DD(2.312,2.11,3)="Enter the insured's employment status with the employer that sponsors this plan."
^DD(2.312,2.11,21,0)="^^2^2^2970813^^^"
^DD(2.312,2.11,21,1,0)="If this is an Employer Sponsored Group Health Plan then this should be the"
^DD(2.312,2.11,21,2,0)="employment status of the insured with the employer that sponsors the plan."
^DD(2.312,2.11,"DT")="2970813"
^DD(2.312,2.12,0)="RETIREMENT DATE^D^^2;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2.312,2.12,3)="Enter the date the insured retired from the employer that sponsors this plan."
^DD(2.312,2.12,21,0)="^^2^2^2970813^"
^DD(2.312,2.12,21,1,0)="If this is an Employer Sponsored Group Health Plan then this should be"
^DD(2.312,2.12,21,2,0)="the date the insured retired from the employer that sponsors the plan."
^DD(2.312,2.12,"DT")="2970813"
^DD(2.312,3,0)="INSURANCE EXPIRATION DATE^DX^^0;4^S %DT=""E"" D ^%DT S X=Y K:((Y<1)!(X<$P($G(^DPT(DA(1),.312,DA,0)),""^"",8))) X"
^DD(2.312,3,1,0)="^.1"
^DD(2.312,3,1,1,0)="2.312^ADGRU3123^MUMPS"
^DD(2.312,3,1,1,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,3,1,1,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,3,1,1,"%D",0)="^^2^2^3000420^"
^DD(2.312,3,1,1,"%D",1,0)="RAI/MDS: field monitored for changes."
^DD(2.312,3,1,1,"%D",2,0)="Cross reference also needed to force filing so input transform works."
^DD(2.312,3,1,1,"DT")="3000420"
^DD(2.312,3,1,2,0)="2.312^AENR3^MUMPS"
^DD(2.312,3,1,2,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,3,1,2,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,3,1,2,3)=" DO NOT DELETE"
^DD(2.312,3,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,3,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,3,1,2,"%D",2,0)="enrollment."
^DD(2.312,3,1,2,"DT")="3050913"
^DD(2.312,3,3)=""
^DD(2.312,3,21,0)="^^2^2^2930820^^^^"
^DD(2.312,3,21,1,0)="If this insurance policy under which this applicant is covered expires on"
^DD(2.312,3,21,2,0)="a specified date enter that date, otherwise, leave this field blank."
^DD(2.312,3,"DT")="3000420"
^DD(2.312,3.01,0)="INSURED'S DOB^DX^^3;1^S %DT=""EXP"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(2.312,3.01,3)="Please enter the insured person's date of birth."
^DD(2.312,3.01,21,0)="^^3^3^3060905^"
^DD(2.312,3.01,21,1,0)="The field is used to store the date of birth of the insured person."
^DD(2.312,3.01,21,2,0)="The field value may be printed in block 11a of the CMS-1500 claim"
^DD(2.312,3.01,21,3,0)="form.  This is a required field for billing ChampUS patients."
^DD(2.312,3.01,"DT")="3060905"
^DD(2.312,3.02,0)="INSURED'S BRANCH^P23'^DIC(23,^3;2^Q"
^DD(2.312,3.02,3)="Please enter the Service Branch of the insured person."
^DD(2.312,3.02,21,0)="^^5^5^3060905^"
^DD(2.312,3.02,21,1,0)="This field may be used to store the service branch of the insured"
^DD(2.312,3.02,21,2,0)="person.  The field will be used primarily for CHAMPUS policies,"
^DD(2.312,3.02,21,3,0)="where the subscriber, or sponsor, may be an active duty member"
^DD(2.312,3.02,21,4,0)="of the military.  The field value may be printed in block 11b"
^DD(2.312,3.02,21,5,0)="of the CMS-1500 claim form."
^DD(2.312,3.02,"DT")="3060905"
^DD(2.312,3.03,0)="INSURED'S RANK^F^^3;3^K:$L(X)>12!($L(X)<2) X"
^DD(2.312,3.03,3)="Answer must be 2-12 characters in length."
^DD(2.312,3.03,21,0)="^^5^5^3060905^"
^DD(2.312,3.03,21,1,0)="This field contains the insured person's military rank.  The"
^DD(2.312,3.03,21,2,0)="field will be used primarily for CHAMPUS policies, where the"
^DD(2.312,3.03,21,3,0)="subscriber, or sponsor, may be an active duty member of the"
^DD(2.312,3.03,21,4,0)="military.  The field value may be printed in block 11c of"
^DD(2.312,3.03,21,5,0)="the CMS-1500 claim form."
^DD(2.312,3.03,"DT")="3060905"
^DD(2.312,3.04,0)="POLICY NOT BILLABLE^S^0:NO;1:YES;^3;4^Q"
^DD(2.312,3.04,3)="Enter YES if claims should not be created against this policy."
^DD(2.312,3.04,21,0)="^^4^4^2960813^"
^DD(2.312,3.04,21,1,0)="This field is used primarily for CHAMPUS policies.  If the patient is"
^DD(2.312,3.04,21,2,0)="covered under CHAMPUS, but it is known that claims should never be"
^DD(2.312,3.04,21,3,0)="submitted to the CHAMPUS Fiscal Intermediary, then entering YES in"
^DD(2.312,3.04,21,4,0)="this field will cause Pharmacy claims to the FI not to be created."
^DD(2.312,3.04,"DT")="2960813"
^DD(2.312,3.05,0)="INSURED'S SSN^FOX^^3;5^K:$L(X)>13!($L(X)<9) X I $D(X) S X=$TR(X,""-"","""")"
^DD(2.312,3.05,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(2.312,3.05,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(2.312,3.05,3)="Answer must be 9-13 characters in length."
^DD(2.312,3.05,21,0)="^^4^4^2970505^"
^DD(2.312,3.05,21,1,0)="This field contains the policyholder's social security number,"
^DD(2.312,3.05,21,2,0)="if it is different than the Subscriber ID.  For CHAMPUS policies,"
^DD(2.312,3.05,21,3,0)="this value may be automatically inserted into this field from"
^DD(2.312,3.05,21,4,0)="the PATIENT (#2) or SPONSOR PERSON (#355.82) files."
^DD(2.312,3.05,"DT")="2970506"
^DD(2.312,3.06,0)="INSURED'S STREET 1^F^^3;6^K:$L(X)>30!($L(X)<3) X"
^DD(2.312,3.06,3)="Answer must be 3-30 characters in length."
^DD(2.312,3.06,21,0)="^^1^1^2970505^^"
^DD(2.312,3.06,21,1,0)="This field contains the first street address of the policyholder."
^DD(2.312,3.06,"DT")="2970505"
^DD(2.312,3.07,0)="INSURED'S STREET 2^F^^3;7^K:$L(X)>30!($L(X)<3) X"
^DD(2.312,3.07,3)="Answer must be 3-30 characters in length."
^DD(2.312,3.07,21,0)="^^1^1^2970505^^"
^DD(2.312,3.07,21,1,0)="This field contains the second street of the policyholder."
^DD(2.312,3.07,"DT")="2970505"
^DD(2.312,3.08,0)="INSURED'S CITY^F^^3;8^K:$L(X)>25!($L(X)<2) X"
^DD(2.312,3.08,3)="Answer must be 2-25 characters in length."
^DD(2.312,3.08,21,0)="^^1^1^2970505^^^"
^DD(2.312,3.08,21,1,0)="This field contains the city of the policyholder."
^DD(2.312,3.08,"DT")="2970505"
^DD(2.312,3.09,0)="INSURED'S STATE^P5'^DIC(5,^3;9^Q"
^DD(2.312,3.09,21,0)="^^1^1^2970505^"
^DD(2.312,3.09,21,1,0)="This field contains the state of the policyholder."
^DD(2.312,3.09,"DT")="2970505"
^DD(2.312,3.1,0)="INSURED'S ZIP^FXO^^3;10^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(2.312,3.1,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(2.312,3.1,2.1)="D ZIPOUT^VAFADDR"
^DD(2.312,3.1,3)="Answer must be 5-20 characters in length."
^DD(2.312,3.1,21,0)="^^1^1^2970505^"
^DD(2.312,3.1,21,1,0)="This field contains the zip code of the policyholder."
^DD(2.312,3.1,"DT")="2970505"
^DD(2.312,3.11,0)="INSURED'S PHONE^F^^3;11^K:$L(X)>20!($L(X)<7) X"
^DD(2.312,3.11,3)="Answer must be 7-20 characters in length."
^DD(2.312,3.11,21,0)="^^1^1^2970505^"
^DD(2.312,3.11,21,1,0)="This field contains the phone number of the policyholder."
^DD(2.312,3.11,"DT")="2970505"
^DD(2.312,3.12,0)="INSURED'S SEX^S^F:FEMALE;M:MALE;^3;12^Q"
^DD(2.312,3.12,3)="Enter the sex (M or F) of the policy holder."
^DD(2.312,3.12,21,0)="^.001^6^6^3061002^^"
^DD(2.312,3.12,21,1,0)="This field is used in insurance billing to help verify the"
^DD(2.312,3.12,21,2,0)="policy coverage when the bill is submitted to the carrier."
^DD(2.312,3.12,21,3,0)="If the patient is the policy holder, this value should match"
^DD(2.312,3.12,21,4,0)="the patient's sex.  If the patient's spouse or other relative"
^DD(2.312,3.12,21,5,0)="is the policy holder, the appropriate value should be"
^DD(2.312,3.12,21,6,0)="determined and entered."
^DD(2.312,3.12,"DT")="3061002"
^DD(2.312,4.01,0)="PRIMARY CARE PROVIDER^F^^4;1^K:$L(X)>30!($L(X)<3) X"
^DD(2.312,4.01,3)="Answer must be 3-30 characters in length.  Non-VA Provider to obtain a referral from for this patient."
^DD(2.312,4.01,21,0)="^^2^2^2970814^"
^DD(2.312,4.01,21,1,0)="This is the patient's Primary Care Provider within their managed care"
^DD(2.312,4.01,21,2,0)="network that may refer the patient to the VA."
^DD(2.312,4.01,"DT")="2970814"
^DD(2.312,4.02,0)="PRIMARY PROVIDER PHONE^F^^4;2^K:$L(X)>20!($L(X)<7) X"
^DD(2.312,4.02,3)="Answer must be 7-20 characters in length.  The phone number of the PCP a referral may be obtained from."
^DD(2.312,4.02,21,0)="^^2^2^2970814^"
^DD(2.312,4.02,21,1,0)="This is the phone number of the Primary Care Provider that may refer the"
^DD(2.312,4.02,21,2,0)="patient to the VA."
^DD(2.312,4.02,"DT")="2970814"
^DD(2.312,4.03,0)="PT. RELATIONSHIP - HIPAA^RS^01:SPOUSE;18:SELF;19:CHILD;20:EMPLOYEE;29:SIGNIFICANT OTHER;32:MOTHER;33:FATHER;39:ORGAN DONOR;41:INJURED PLAINTIFF;53:LIFE PARTNER;G8:OTHER RELATIONSHIP;^4;3^Q"
^DD(2.312,4.03,1,0)="^.1"
^DD(2.312,4.03,1,1,0)="^^TRIGGER^2.312^16"
^DD(2.312,4.03,1,1,1)="X ^DD(2.312,4.03,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),.312,DA,4),U,3),0) X ^DD(2.312,4.03,1,1,1.4)"
^DD(2.312,4.03,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 N Z S Z=$$PRELCNV^IBCNSP1($P(^DPT(D0,.312,D1,4),U,3),0),X=(Z'=""""&(Z'=$P(^DPT(D0,.312,D1,0),U,16)))"
^DD(2.312,4.03,1,1,1.4)="S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=2.312,DIG=16 D ^DICR"
^DD(2.312,4.03,1,1,2)="Q"
^DD(2.312,4.03,1,1,"%D",0)="^^1^1^3080204^"
^DD(2.312,4.03,1,1,"%D",1,0)="Triggers field 16 if its value differs from value in this field."
^DD(2.312,4.03,1,1,"CREATE CONDITION")="N Z S Z=$$PRELCNV^IBCNSP1($P(^DPT(D0,.312,D1,4),U,3),0),X=(Z'=""""&(Z'=$P(^DPT(D0,.312,D1,0),U,16)))"
^DD(2.312,4.03,1,1,"CREATE VALUE")="S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),.312,DA,4),U,3),0)"
^DD(2.312,4.03,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2.312,4.03,1,1,"DT")="3071203"
^DD(2.312,4.03,1,1,"FIELD")="#16"
^DD(2.312,4.03,3)="Select the HIPAA relationship code that describes the relationship this patient has to the holder of this insurance policy."
^DD(2.312,4.03,5,1,0)="2.312^16^2"
^DD(2.312,4.03,21,0)="^^2^2^3080108^"
^DD(2.312,4.03,21,1,0)="Enter the code which best describes the patient's relationship"
^DD(2.312,4.03,21,2,0)="to the person who holds this policy (or insured)."
^DD(2.312,4.03,"DT")="3080108"
^DD(2.312,5.01,0)="PATIENT ID^F^^5;1^K:$L(X)>30!($L(X)<1) X"
^DD(2.312,5.01,3)="Answer must be 1-30 characters in length"
^DD(2.312,5.01,21,0)="^^8^8^3070620^"
^DD(2.312,5.01,21,1,0)="This is the patient's primary ID number for this insurance company."
^DD(2.312,5.01,21,2,0)="Enter this field when the patient and the subscriber are different"
^DD(2.312,5.01,21,3,0)="and the patient has been given a unique ID number.  If issued by"
^DD(2.312,5.01,21,4,0)="this payer, the number should be present on the patient's insurance"
^DD(2.312,5.01,21,5,0)="card."
^DD(2.312,5.01,21,6,0)=" "
^DD(2.312,5.01,21,7,0)="This data will print in box 8a on the UB-04 for institutional claims"
^DD(2.312,5.01,21,8,0)="when the patient and the subscriber are different."
^DD(2.312,5.01,"DT")="3070620"
^DD(2.312,5.02,0)="SUBSCRIBER'S SEC QUALIFIER(1)^SX^23:Client Number;IG:Insurance Policy Number;SY:Social Security Number;^5;2^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,4,6) X Q"
^DD(2.312,5.02,3)="Enter a Qualifier to identify the type of ID number."
^DD(2.312,5.02,21,0)="^^6^6^3070626^"
^DD(2.312,5.02,21,1,0)="Enter the subscriber secondary ID qualifier# 1.  The qualifier"
^DD(2.312,5.02,21,2,0)="describes the type of ID number."
^DD(2.312,5.02,21,3,0)=" "
^DD(2.312,5.02,21,4,0)="Up to 3 secondary ID's and qualifiers may be entered, but you"
^DD(2.312,5.02,21,5,0)="cannot use the same qualifier more than once."
^DD(2.312,5.02,21,6,0)="SY is not a valid qualifier when the payer is Medicare."
^DD(2.312,5.02,"DT")="3070626"
^DD(2.312,5.03,0)="SUBSCRIBER'S SEC ID(1)^F^^5;3^K:$L(X)>30!($L(X)<1) X"
^DD(2.312,5.03,3)="Answer must be 1-30 characters in length"
^DD(2.312,5.03,21,0)="^^2^2^3070626^"
^DD(2.312,5.03,21,1,0)="Enter the subscriber's secondary ID #1.  You may enter up to 3 secondary"
^DD(2.312,5.03,21,2,0)="ID's and qualifiers."
^DD(2.312,5.03,"DT")="3070626"
^DD(2.312,5.04,0)="SUBSCRIBER'S SEC QUALIFIER(2)^SX^23:Client Number;IG:Insurance Policy Number;SY:Social Security Number;^5;4^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,2,6) X Q"
^DD(2.312,5.04,3)="Enter a Qualifier to identify the type of ID number."
^DD(2.312,5.04,21,0)="^^6^6^3070626^"
^DD(2.312,5.04,21,1,0)="Enter the subscriber secondary ID qualifier# 2.  The qualifier"
^DD(2.312,5.04,21,2,0)="describes the type of ID number."
^DD(2.312,5.04,21,3,0)=" "
^DD(2.312,5.04,21,4,0)="Up to 3 secondary ID's and qualifiers may be entered, but you"
^DD(2.312,5.04,21,5,0)="cannot use the same qualifier more than once."
^DD(2.312,5.04,21,6,0)="SY is not a valid qualifier when the payer is Medicare."
^DD(2.312,5.04,"DT")="3070626"
^DD(2.312,5.05,0)="SUBSCRIBER'S SEC ID(2)^F^^5;5^K:$L(X)>30!($L(X)<1) X"
^DD(2.312,5.05,3)="Answer must be 1-30 characters in length"
^DD(2.312,5.05,21,0)="^^2^2^3070626^"
^DD(2.312,5.05,21,1,0)="Enter the subscriber's secondary ID #2.  You may enter up to 3 secondary"
^DD(2.312,5.05,21,2,0)="ID's and qualifiers."
^DD(2.312,5.05,"DT")="3070626"
^DD(2.312,5.06,0)="SUBSCRIBER'S SEC QUALIFIER(3)^SX^23:Client Number;IG:Insurance Policy Number;SY:Social Security Number;^5;6^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,2,4) X Q"
^DD(2.312,5.06,3)="Enter a Qualifier to identify the type of ID number."
^DD(2.312,5.06,21,0)="^^6^6^3070626^"
^DD(2.312,5.06,21,1,0)="Enter the subscriber secondary ID qualifier# 3.  The qualifier"
^DD(2.312,5.06,21,2,0)="describes the type of ID number."
^DD(2.312,5.06,21,3,0)=" "
^DD(2.312,5.06,21,4,0)="Up to 3 secondary ID's and qualifiers may be entered, but you"
^DD(2.312,5.06,21,5,0)="cannot use the same qualifier more than once."
^DD(2.312,5.06,21,6,0)="SY is not a valid qualifier when the payer is Medicare."
^DD(2.312,5.06,"DT")="3070626"
^DD(2.312,5.07,0)="SUBSCRIBER'S SEC ID(3)^F^^5;7^K:$L(X)>30!($L(X)<1) X"
^DD(2.312,5.07,3)="Answer must be 1-30 characters in length"
^DD(2.312,5.07,21,0)="^^2^2^3070626^"
^DD(2.312,5.07,21,1,0)="Enter the subscriber's secondary ID #3.  You may enter up to 3 secondary"
^DD(2.312,5.07,21,2,0)="ID's and qualifiers."
^DD(2.312,5.07,"DT")="3070626"
^DD(2.312,5.08,0)="PATIENT'S SEC QUALIFIER(1)^SX^23:Client Number;IG:Insurance Policy Number;SY:Social Security Number;^5;8^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,10,12) X Q"
^DD(2.312,5.08,3)="Enter a Qualifier to identify the type of ID number."
^DD(2.312,5.08,21,0)="^^7^7^3070626^"
^DD(2.312,5.08,21,1,0)="Enter the patient secondary ID qualifier# 1.  The qualifier"
^DD(2.312,5.08,21,2,0)="describes the type of ID number.  This should only be used when"
^DD(2.312,5.08,21,3,0)="the patient and the subscriber are different."
^DD(2.312,5.08,21,4,0)=" "
^DD(2.312,5.08,21,5,0)="Up to 3 secondary ID's and qualifiers may be entered, but you"
^DD(2.312,5.08,21,6,0)="cannot use the same qualifier more than once."
^DD(2.312,5.08,21,7,0)="SY is not a valid qualifier when the payer is Medicare."
^DD(2.312,5.08,"DT")="3070626"
^DD(2.312,5.09,0)="PATIENT'S SECONDARY ID(1)^F^^5;9^K:$L(X)>30!($L(X)<1) X"
^DD(2.312,5.09,3)="Answer must be 1-30 characters in length"
^DD(2.312,5.09,21,0)="^^3^3^3070626^"
^DD(2.312,5.09,21,1,0)="Enter the patient secondary ID #1.  You may enter up to 3 secondary"
^DD(2.312,5.09,21,2,0)="ID's and qualifiers.  This should only be used when the patient and"
^DD(2.312,5.09,21,3,0)="the subscriber are different."
^DD(2.312,5.09,"DT")="3070626"
^DD(2.312,5.1,0)="PATIENT'S SEC QUALIFIER(2)^SX^23:Client Number;IG:Insurance Policy Number;SY:Social Security Number;^5;10^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,8,12) X Q"
^DD(2.312,5.1,3)="Enter a Qualifier to identify the type of ID number."
^DD(2.312,5.1,21,0)="^^7^7^3070626^"
^DD(2.312,5.1,21,1,0)="Enter the patient secondary ID qualifier# 2.  The qualifier"
^DD(2.312,5.1,21,2,0)="describes the type of ID number.  This should only be used when"
^DD(2.312,5.1,21,3,0)="the patient and the subscriber are different."
^DD(2.312,5.1,21,4,0)=" "
^DD(2.312,5.1,21,5,0)="Up to 3 secondary ID's and qualifiers may be entered, but you"
^DD(2.312,5.1,21,6,0)="cannot use the same qualifier more than once."
^DD(2.312,5.1,21,7,0)="SY is not a valid qualifier when the payer is Medicare."
^DD(2.312,5.1,"DT")="3070626"
^DD(2.312,5.11,0)="PATIENT'S SECONDARY ID(2)^F^^5;11^K:$L(X)>30!($L(X)<1) X"
^DD(2.312,5.11,3)="Answer must be 1-30 characters in length"
^DD(2.312,5.11,21,0)="^^3^3^3070626^"
^DD(2.312,5.11,21,1,0)="Enter the patient secondary ID #2.  You may enter up to 3 secondary"
^DD(2.312,5.11,21,2,0)="ID's and qualifiers.  This should only be used when the patient and"
^DD(2.312,5.11,21,3,0)="the subscriber are different."
^DD(2.312,5.11,"DT")="3070626"
^DD(2.312,5.12,0)="PATIENT'S SEC QUALIFIER(3)^SX^23:Client Number;IG:Insurance Policy Number;SY:Social Security Number;^5;12^K:'$$CHKQUAL^IBCNSU1(DA(1),DA,X,8,10) X Q"
^DD(2.312,5.12,3)="Enter a Qualifier to identify the type of ID number."
^DD(2.312,5.12,21,0)="^^7^7^3070626^"
^DD(2.312,5.12,21,1,0)="Enter the patient secondary ID qualifier# 3.  The qualifier"
^DD(2.312,5.12,21,2,0)="describes the type of ID number.  This should only be used when"
^DD(2.312,5.12,21,3,0)="the patient and the subscriber are different."
^DD(2.312,5.12,21,4,0)=" "
^DD(2.312,5.12,21,5,0)="Up to 3 secondary ID's and qualifiers may be entered, but you"
^DD(2.312,5.12,21,6,0)="cannot use the same qualifier more than once."
^DD(2.312,5.12,21,7,0)="SY is not a valid qualifier when the payer is Medicare."
^DD(2.312,5.12,"DT")="3070626"
^DD(2.312,5.13,0)="PATIENT'S SECONDARY ID(3)^F^^5;13^K:$L(X)>30!($L(X)<1) X"
^DD(2.312,5.13,3)="Answer must be 1-30 characters in length"
^DD(2.312,5.13,21,0)="^^3^3^3070626^"
^DD(2.312,5.13,21,1,0)="Enter the patient secondary ID #3.  You may enter up to 3 secondary"
^DD(2.312,5.13,21,2,0)="ID's and qualifiers.  This should only be used when the patient and"
^DD(2.312,5.13,21,3,0)="the subscriber are different."
^DD(2.312,5.13,"DT")="3070626"
^DD(2.312,6,0)="WHOSE INSURANCE^RSX^v:VETERAN;s:SPOUSE;o:OTHER;^0;6^Q"
^DD(2.312,6,1,0)="^.1"
^DD(2.312,6,1,1,0)="2.312^AENR6^MUMPS"
^DD(2.312,6,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,6,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,6,1,1,3)=" DO NOT DELETE"
^DD(2.312,6,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,6,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,6,1,1,"%D",2,0)="enrollment."
^DD(2.312,6,1,1,"DT")="3050913"
^DD(2.312,6,3)=""
^DD(2.312,6,5,1,0)="2.312^16^1"
^DD(2.312,6,21,0)="^^4^4^2861117^"
^DD(2.312,6,21,1,0)="Enter 'v' if this insurance policy is held by the veteran (applicant),"
^DD(2.312,6,21,2,0)="'s' if the veteran is married and the spouse holds the policy, or 'o'"
^DD(2.312,6,21,3,0)="if someone other than the veteran or his/her spouse hold the policy, i.e.,"
^DD(2.312,6,21,4,0)="employer."
^DD(2.312,6,"DT")="2860930"
^DD(2.312,8,0)="EFFECTIVE DATE OF POLICY^DX^^0;8^S %DT=""E"" D ^%DT S X=Y K:(Y<1) X I $D(X),$P($G(^DPT(DA(1),.312,DA,0)),""^"",4)'="""",X>$P($G(^DPT(DA(1),.312,DA,0)),""^"",4) K X"
^DD(2.312,8,1,0)="^.1"
^DD(2.312,8,1,1,0)="2.312^ADGRU3128^MUMPS"
^DD(2.312,8,1,1,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,8,1,1,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(+$G(DA(1)))"
^DD(2.312,8,1,1,"%D",0)="^^2^2^3000420^"
^DD(2.312,8,1,1,"%D",1,0)="RAI/MDS: field monitored for changes."
^DD(2.312,8,1,1,"%D",2,0)="Cross reference also needed to force filing so input transform works."
^DD(2.312,8,1,1,"DT")="3000420"
^DD(2.312,8,1,2,0)="2.312^AENR8^MUMPS"
^DD(2.312,8,1,2,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,8,1,2,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,8,1,2,3)=" DO NOT DELETE"
^DD(2.312,8,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,8,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,8,1,2,"%D",2,0)="enrollment."
^DD(2.312,8,1,2,"DT")="3050913"
^DD(2.312,8,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(2.312,8,21,0)="^^2^2^2930823^^"
^DD(2.312,8,21,1,0)="Enter the date that this insurance policy initially went into effect (the"
^DD(2.312,8,21,2,0)="date the patient acquired this policy)."
^DD(2.312,8,"DT")="3000420"
^DD(2.312,15,0)="*GROUP NAME^F^^0;15^K:$L(X)>20!($L(X)<1) X"
^DD(2.312,15,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(2.312,15,21,0)="^^5^5^2930601^^"
^DD(2.312,15,21,1,0)="If this insurance policy is a group policy, enter the name of the group."
^DD(2.312,15,21,2,0)=" "
^DD(2.312,15,21,3,0)="This field is moved to the HEALTH INSURANCE POLICY file (355.3) beginning"
^DD(2.312,15,21,4,0)="with IB v2.0.  It will be deleted with the first release 18 months after"
^DD(2.312,15,21,5,0)="the release of IB V2."
^DD(2.312,15,"DT")="2930601"
^DD(2.312,16,0)="PT. RELATIONSHIP TO INSURED^R*S^01:PATIENT;02:SPOUSE;03:NATURAL CHILD;08:EMPLOYEE;09:DO NOT USE;11:ORGAN DONOR;15:INJURED PLANTIFF;18:DO NOT USE;32:MOTHER;33:FATHER;34:SIGNIFICANT OTHER;35:LIFE PARTNER;36:OTHER RELATIONSHIP;^0;16^Q"
^DD(2.312,16,1,0)="^.1"
^DD(2.312,16,1,1,0)="^^TRIGGER^2.312^6"
^DD(2.312,16,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$S(+X=1:""v"",+X=2:""s"",1:""o"") X ^DD(2.312,16,1,1,1.4)"
^DD(2.312,16,1,1,1.4)="S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=2.312,DIG=6 D ^DICR"
^DD(2.312,16,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" S DIH=$G(^DPT(DIV(0),.312,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=2.312,DIG=6 D ^DICR"
^DD(2.312,16,1,1,"%D",0)="^^2^2^3070611^"
^DD(2.312,16,1,1,"%D",1,0)="This trigger will set the WHOSE INSURANCE field (#6).  WHOSE INSURANCE "
^DD(2.312,16,1,1,"%D",2,0)="will no longer be asked on user interface screens."
^DD(2.312,16,1,1,"CREATE VALUE")="S X=$S(+X=1:""v"",+X=2:""s"",1:""o"")"
^DD(2.312,16,1,1,"DELETE VALUE")="@"
^DD(2.312,16,1,1,"DT")="3070611"
^DD(2.312,16,1,1,"FIELD")="WHOSE INSURANCE"
^DD(2.312,16,1,2,0)="^^TRIGGER^2.312^4.03"
^DD(2.312,16,1,2,1)="X ^DD(2.312,16,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DPT(D0,.312,D1,4)):^(4),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),.312,DA,0),U,16),1) X ^DD(2.312,16,1,2,1.4)"
^DD(2.312,16,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 N Z S Z=$$PRELCNV^IBCNSP1($P(^DPT(D0,.312,D1,0),U,16),1),X=(Z'=""""&(Z'=$P($G(^DPT(D0,.312,D1,4)),U,3)))"
^DD(2.312,16,1,2,1.4)="S DIH=$G(^DPT(DIV(0),.312,DIV(1),4)),DIV=X S $P(^(4),U,3)=DIV,DIH=2.312,DIG=4.03 D ^DICR"
^DD(2.312,16,1,2,2)="Q"
^DD(2.312,16,1,2,"%D",0)="^^1^1^3080204^"
^DD(2.312,16,1,2,"%D",1,0)="Triggers field 4.03 if its value differs from value in this field."
^DD(2.312,16,1,2,"CREATE CONDITION")="N Z S Z=$$PRELCNV^IBCNSP1($P(^DPT(D0,.312,D1,0),U,16),1),X=(Z'=""""&(Z'=$P($G(^DPT(D0,.312,D1,4)),U,3)))"
^DD(2.312,16,1,2,"CREATE VALUE")="S X=$$PRELCNV^IBCNSP1($P(^DPT(DA(1),.312,DA,0),U,16),1)"
^DD(2.312,16,1,2,"DELETE VALUE")="NO EFFECT"
^DD(2.312,16,1,2,"DT")="3071203"
^DD(2.312,16,1,2,"FIELD")="#4.03"
^DD(2.312,16,3)="Enter the code which indicates the patient's relationship to the insured party."
^DD(2.312,16,5,1,0)="2.312^4.03^1"
^DD(2.312,16,12)="Cannot use 09 or 18 anymore"
^DD(2.312,16,12.1)="S DIC(""S"")=""I X'=""""09"""",X'=""""18"""""""
^DD(2.312,16,21,0)="^.001^4^4^3030910^^^^"
^DD(2.312,16,21,1,0)="Select the relationship code that describes the relationship this"
^DD(2.312,16,21,2,0)="patient has to the holder of this insurance policy. If the policy"
^DD(2.312,16,21,3,0)="belongs to the patient enter '01' for patient. If the policy"
^DD(2.312,16,21,4,0)="belongs to the spouse enter '02' for spouse, etc."
^DD(2.312,16,"DT")="3071203"
^DD(2.312,17,0)="NAME OF INSURED^RFX^^0;17^K:$L(X)>50!($L(X)<2) X K:$G(X)'["","" X"
^DD(2.312,17,1,0)="^.1"
^DD(2.312,17,1,1,0)="2.312^AENR17^MUMPS"
^DD(2.312,17,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,17,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.312,17,1,1,3)=" DO NOT DELETE"
^DD(2.312,17,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.312,17,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.312,17,1,1,"%D",2,0)="enrollment."
^DD(2.312,17,1,1,"DT")="3050913"
^DD(2.312,17,3)="ENTER 2-50 CHARACTER NAME OF PERSON WHO HOLDS THIS INSURANCE POLICY"
^DD(2.312,17,21,0)="^^5^5^3080124^"
^DD(2.312,17,21,1,0)="Enter the name of the individual for which this insurance policy was"
^DD(2.312,17,21,2,0)="issued.  If the patient and the insurance subscriber are the same,"
^DD(2.312,17,21,3,0)="then this field will be defaulted from the patient name field."
^DD(2.312,17,21,4,0)=" "
^DD(2.312,17,21,5,0)="The name must contain a comma and be entered in Last,First format."
^DD(2.312,17,"DT")="3080124"
^DD(2.312,20,0)="NEW GROUP NAME^CJ20^^ ; ^X ^DD(2.312,20,9.2) S D0=$P(Y(2.312,20,1),U,18) S:'$D(^IBA(355.3,+D0,0)) D0=-1 S Y(2.312,20,101)=$S($D(^IBA(355.3,D0,0)):^(0),1:"""") S X=$P(Y(2.312,20,101),U,3) S D0=Y(2.312,20,80) S D1=Y(2.312,20,81)"
^DD(2.312,20,9)="^"
^DD(2.312,20,9.01)="355.3^.03;2.312^.18"
^DD(2.312,20,9.1)="#.18:GROUP NAME"
^DD(2.312,20,9.2)="S Y(2.312,20,81)=$S($D(D1):D1,1:""""),Y(2.312,20,80)=$S($D(D0):D0,1:""""),Y(2.312,20,1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"""")"
^DD(2.312,21,0)="NEW GROUP NUMBER^CJ20^^ ; ^X ^DD(2.312,21,9.2) S D0=$P(Y(2.312,21,1),U,18) S:'$D(^IBA(355.3,+D0,0)) D0=-1 S Y(2.312,21,101)=$S($D(^IBA(355.3,D0,0)):^(0),1:"""") S X=$P(Y(2.312,21,101),U,4) S D0=Y(2.312,21,80) S D1=Y(2.312,21,81)"
^DD(2.312,21,9)="^"
^DD(2.312,21,9.01)="355.3^.04;2.312^.18"
^DD(2.312,21,9.1)="#.18:GROUP NUMBER"
^DD(2.312,21,9.2)="S Y(2.312,21,81)=$S($D(D1):D1,1:""""),Y(2.312,21,80)=$S($D(D0):D0,1:""""),Y(2.312,21,1)=$S($D(^DPT(D0,.312,D1,0)):^(0),1:"""")"
^DD(2.312,"B","*GROUP NAME",15)=""
^DD(2.312,"B","*GROUP NUMBER",2)=""
^DD(2.312,"B","COMMENT - PATIENT POLICY",1.08)=""
^DD(2.312,"B","COORDINATION OF BENEFITS",.2)=""
^DD(2.312,"B","DATE ENTERED",1.01)=""
^DD(2.312,"B","DATE LAST EDITED",1.05)=""
^DD(2.312,"B","DATE LAST VERIFIED",1.03)=""
^DD(2.312,"B","DATE OF SOURCE OF INFORMATION",1.1)=""
^DD(2.312,"B","EFFECTIVE DATE OF POLICY",8)=""
^DD(2.312,"B","EMPLOY CLAIM ST ADDRESS LINE 2",2.03)=""
^DD(2.312,"B","EMPLOY CLAIM ST ADDRESS LINE 3",2.04)=""
^DD(2.312,"B","EMPLOYER CLAIMS CITY",2.05)=""
^DD(2.312,"B","EMPLOYER CLAIMS PHONE",2.08)=""
^DD(2.312,"B","EMPLOYER CLAIMS STATE",2.06)=""
^DD(2.312,"B","EMPLOYER CLAIMS STREET ADDRESS",2.02)=""
^DD(2.312,"B","EMPLOYER CLAIMS ZIP CODE",2.07)=""
^DD(2.312,"B","EMPLOYMENT STATUS",2.11)=""
^DD(2.312,"B","ENTERED BY",1.02)=""
^DD(2.312,"B","ESGHP",2.1)=""
^DD(2.312,"B","GROUP PLAN",.18)=""
^DD(2.312,"B","INSURANCE EXPIRATION DATE",3)=""
^DD(2.312,"B","INSURANCE NUMBER",1)="1"
^DD(2.312,"B","INSURANCE TYPE",.01)=""
^DD(2.312,"B","INSURED'S BRANCH",3.02)=""
^DD(2.312,"B","INSURED'S CITY",3.08)=""
^DD(2.312,"B","INSURED'S DOB",3.01)=""
^DD(2.312,"B","INSURED'S PHONE",3.11)=""
^DD(2.312,"B","INSURED'S RANK",3.03)=""
^DD(2.312,"B","INSURED'S SEX",3.12)=""
^DD(2.312,"B","INSURED'S SSN",3.05)=""
^DD(2.312,"B","INSURED'S STATE",3.09)=""
^DD(2.312,"B","INSURED'S STREET 1",3.06)=""
^DD(2.312,"B","INSURED'S STREET 2",3.07)=""
^DD(2.312,"B","INSURED'S ZIP",3.1)=""
^DD(2.312,"B","LAST EDITED BY",1.06)=""
^DD(2.312,"B","NAME OF INSURED",17)=""
^DD(2.312,"B","NEW GROUP NAME",20)=""
^DD(2.312,"B","NEW GROUP NUMBER",21)=""
^DD(2.312,"B","PATIENT ID",5.01)=""
^DD(2.312,"B","PATIENT'S SEC QUALIFIER(1)",5.08)=""
^DD(2.312,"B","PATIENT'S SEC QUALIFIER(2)",5.1)=""
^DD(2.312,"B","PATIENT'S SEC QUALIFIER(3)",5.12)=""
^DD(2.312,"B","PATIENT'S SECONDARY ID(1)",5.09)=""
^DD(2.312,"B","PATIENT'S SECONDARY ID(2)",5.11)=""
^DD(2.312,"B","PATIENT'S SECONDARY ID(3)",5.13)=""
^DD(2.312,"B","POLICY NOT BILLABLE",3.04)=""
^DD(2.312,"B","PRIMARY CARE PROVIDER",4.01)=""
^DD(2.312,"B","PRIMARY PROVIDER PHONE",4.02)=""
^DD(2.312,"B","PT. RELATIONSHIP - HIPAA",4.03)=""
^DD(2.312,"B","PT. RELATIONSHIP TO INSURED",16)=""
^DD(2.312,"B","RETIREMENT DATE",2.12)=""
^DD(2.312,"B","SEND BILL TO EMPLOYER",2.01)=""
^DD(2.312,"B","SOURCE OF INFORMATION",1.09)=""
^DD(2.312,"B","SUBSCRIBER ID",1)=""
^DD(2.312,"B","SUBSCRIBER'S EMPLOYER NAME",2.015)=""
^DD(2.312,"B","SUBSCRIBER'S SEC ID(1)",5.03)=""
^DD(2.312,"B","SUBSCRIBER'S SEC ID(2)",5.05)=""
^DD(2.312,"B","SUBSCRIBER'S SEC ID(3)",5.07)=""
^DD(2.312,"B","SUBSCRIBER'S SEC QUALIFIER(1)",5.02)=""
^DD(2.312,"B","SUBSCRIBER'S SEC QUALIFIER(2)",5.04)=""
^DD(2.312,"B","SUBSCRIBER'S SEC QUALIFIER(3)",5.06)=""
^DD(2.312,"B","VERIFIED BY",1.04)=""
^DD(2.312,"B","WHOSE INSURANCE",6)=""
^DD(2.312,"GL",0,1,.01)=""
^DD(2.312,"GL",0,2,1)=""
^DD(2.312,"GL",0,3,2)=""
^DD(2.312,"GL",0,4,3)=""
^DD(2.312,"GL",0,6,6)=""
^DD(2.312,"GL",0,8,8)=""
^DD(2.312,"GL",0,15,15)=""
^DD(2.312,"GL",0,16,16)=""
^DD(2.312,"GL",0,17,17)=""
^DD(2.312,"GL",0,18,.18)=""
^DD(2.312,"GL",0,20,.2)=""
^DD(2.312,"GL",1,1,1.01)=""
^DD(2.312,"GL",1,2,1.02)=""
^DD(2.312,"GL",1,3,1.03)=""
^DD(2.312,"GL",1,4,1.04)=""
^DD(2.312,"GL",1,5,1.05)=""
^DD(2.312,"GL",1,6,1.06)=""
^DD(2.312,"GL",1,8,1.08)=""
^DD(2.312,"GL",1,9,1.09)=""
^DD(2.312,"GL",1,10,1.1)=""
^DD(2.312,"GL",2,1,2.01)=""
^DD(2.312,"GL",2,2,2.02)=""
^DD(2.312,"GL",2,3,2.03)=""
^DD(2.312,"GL",2,4,2.04)=""
^DD(2.312,"GL",2,5,2.05)=""
^DD(2.312,"GL",2,6,2.06)=""
^DD(2.312,"GL",2,7,2.07)=""
^DD(2.312,"GL",2,8,2.08)=""
^DD(2.312,"GL",2,9,2.015)=""
^DD(2.312,"GL",2,10,2.1)=""
^DD(2.312,"GL",2,11,2.11)=""
^DD(2.312,"GL",2,12,2.12)=""
^DD(2.312,"GL",3,1,3.01)=""
^DD(2.312,"GL",3,2,3.02)=""
^DD(2.312,"GL",3,3,3.03)=""
^DD(2.312,"GL",3,4,3.04)=""
^DD(2.312,"GL",3,5,3.05)=""
^DD(2.312,"GL",3,6,3.06)=""
^DD(2.312,"GL",3,7,3.07)=""
^DD(2.312,"GL",3,8,3.08)=""
^DD(2.312,"GL",3,9,3.09)=""
^DD(2.312,"GL",3,10,3.1)=""
^DD(2.312,"GL",3,11,3.11)=""
^DD(2.312,"GL",3,12,3.12)=""
^DD(2.312,"GL",4,1,4.01)=""
^DD(2.312,"GL",4,2,4.02)=""
^DD(2.312,"GL",4,3,4.03)=""
^DD(2.312,"GL",5,1,5.01)=""
^DD(2.312,"GL",5,2,5.02)=""
^DD(2.312,"GL",5,3,5.03)=""
^DD(2.312,"GL",5,4,5.04)=""
^DD(2.312,"GL",5,5,5.05)=""
^DD(2.312,"GL",5,6,5.06)=""
^DD(2.312,"GL",5,7,5.07)=""
^DD(2.312,"GL",5,8,5.08)=""
^DD(2.312,"GL",5,9,5.09)=""
^DD(2.312,"GL",5,10,5.1)=""
^DD(2.312,"GL",5,11,5.11)=""
^DD(2.312,"GL",5,12,5.12)=""
^DD(2.312,"GL",5,13,5.13)=""
^DD(2.312,"IX",.01)=""
^DD(2.312,"IX",.18)=""
^DD(2.312,"IX",1)=""
^DD(2.312,"IX",1.09)=""
^DD(2.312,"IX",2)=""
^DD(2.312,"IX",3)=""
^DD(2.312,"IX",4.03)=""
^DD(2.312,"IX",6)=""
^DD(2.312,"IX",8)=""
^DD(2.312,"IX",16)=""
^DD(2.312,"IX",17)=""
^DD(2.312,"RQ",4.03)=""
^DD(2.312,"RQ",6)=""
^DD(2.312,"RQ",16)=""
^DD(2.312,"RQ",17)=""
^DD(2.3215,0)="SERVICE [OEF OR OIF] SUB-FIELD^^.06^6"
^DD(2.3215,0,"DT")="3060627"
^DD(2.3215,0,"ID",.02)="W ""   "",$$FMTE^DILIBF($P(^(0),U,2),5)"
^DD(2.3215,0,"ID",.03)="W ""   "",$$FMTE^DILIBF($P(^(0),U,3),5)"
^DD(2.3215,0,"IX","AENR321501",2.3215,.01)=""
^DD(2.3215,0,"IX","AENR321502",2.3215,.02)=""
^DD(2.3215,0,"IX","AENR321503",2.3215,.03)=""
^DD(2.3215,0,"IX","B",2.3215,.01)=""
^DD(2.3215,0,"NM","SERVICE [OEF OR OIF]")=""
^DD(2.3215,0,"UP")="2"
^DD(2.3215,.01,0)="LOCATION OF SERVICE^*S^1:OIF;2:OEF;3:UNKNOWN OEF/OIF;^0;1^Q"
^DD(2.3215,.01,1,0)="^.1"
^DD(2.3215,.01,1,1,0)="2.3215^B"
^DD(2.3215,.01,1,1,1)="S ^DPT(DA(1),.3215,""B"",$E(X,1,30),DA)="""""
^DD(2.3215,.01,1,1,2)="K ^DPT(DA(1),.3215,""B"",$E(X,1,30),DA)"
^DD(2.3215,.01,1,2,0)="2.3215^AENR321501^MUMPS"
^DD(2.3215,.01,1,2,1)="D EVENT^IVMPLOG(DA(1))"
^DD(2.3215,.01,1,2,2)="D EVENT^IVMPLOG(DA(1))"
^DD(2.3215,.01,1,2,"%D",0)="^^2^2^3060123^"
^DD(2.3215,.01,1,2,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2.3215,.01,1,2,"%D",2,0)="LOCATION OF SERVICE field."
^DD(2.3215,.01,1,2,"DT")="3060123"
^DD(2.3215,.01,3)="Enter OEF or OIF operation where this patient was in combat."
^DD(2.3215,.01,12)="CANNOT CHANGE THE LOCATION ONCE SET"
^DD(2.3215,.01,12.1)="S DIC(""S"")=""I $P($G(^DPT(DA(1),.3215,DA,0)),U),$P(^(0),U)=Y"""
^DD(2.3215,.01,21,0)="^.001^2^2^3060627^^^^"
^DD(2.3215,.01,21,1,0)="This is the operation in which the patient was in combat during the"
^DD(2.3215,.01,21,2,0)="specified time period."
^DD(2.3215,.01,"DT")="3060627"
^DD(2.3215,.02,0)="OEF/OIF FROM DATE^DX^^0;2^S %DT=""E"" D ^%DT S X=Y I $D(X) K:'$$VALCON1^DGRPMS(DA(1),DA,X,0) X I $D(X) S DFN=DA(1) D OEIF^DGLOCK S:$D(X) DGFRDT=X"
^DD(2.3215,.02,1,0)="^.1"
^DD(2.3215,.02,1,1,0)="2.3215^AENR321502^MUMPS"
^DD(2.3215,.02,1,1,1)="D EVENT^IVMPLOG(DA(1))"
^DD(2.3215,.02,1,1,2)="D EVENT^IVMPLOG(DA(1))"
^DD(2.3215,.02,1,1,"%D",0)="^^2^2^3060123^"
^DD(2.3215,.02,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2.3215,.02,1,1,"%D",2,0)="OEF/OIF FROM DATE field."
^DD(2.3215,.02,1,1,"DT")="3060123"
^DD(2.3215,.02,3)="Enter the date the patient was deployed to the OEF/OIF area, if known.  Otherwise, enter the military pay start date for this OEF/OIF deployment."
^DD(2.3215,.02,21,0)="^.001^10^10^3060508^^^^"
^DD(2.3215,.02,21,1,0)="If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on"
^DD(2.3215,.02,21,2,0)="or after 9/01/2001 and the end date must be after 9/11/2001.  If the"
^DD(2.3215,.02,21,3,0)="service indicated is OIF, this date must be on or after 3/01/2003 and"
^DD(2.3215,.02,21,4,0)="the end date must be after 3/19/2003."
^DD(2.3215,.02,21,5,0)=" "
^DD(2.3215,.02,21,6,0)="The meaning of this date depends on where the information was obtained"
^DD(2.3215,.02,21,7,0)="from.  If the data came from the VIS, Environmental Medicine or FHIE"
^DD(2.3215,.02,21,8,0)="systems, this is the start date of military pay for the assignment to"
^DD(2.3215,.02,21,9,0)="the OEF/OIF operation.  If it came from any other source, it is the date"
^DD(2.3215,.02,21,10,0)="the patient was actually deployed to the OEF/OIF area."
^DD(2.3215,.02,"DT")="3060313"
^DD(2.3215,.03,0)="OEF/OIF TO DATE^DX^^0;3^S %DT=""E"" D ^%DT S X=Y I $D(X) K:'$$VALCON1^DGRPMS(DA(1),DA,X,1) X I $D(X) S DFN=DA(1) D OEIF^DGLOCK"
^DD(2.3215,.03,1,0)="^.1"
^DD(2.3215,.03,1,1,0)="2.3215^AENR321503^MUMPS"
^DD(2.3215,.03,1,1,1)="D EVENT^IVMPLOG(DA(1))"
^DD(2.3215,.03,1,1,2)="D EVENT^IVMPLOG(DA(1))"
^DD(2.3215,.03,1,1,"%D",0)="^^2^2^3060123^"
^DD(2.3215,.03,1,1,"%D",1,0)="This MUMPS cross-reference is used to notify HEC of changes to the"
^DD(2.3215,.03,1,1,"%D",2,0)="OEF/OIF TO DATE field."
^DD(2.3215,.03,1,1,"DT")="3060123"
^DD(2.3215,.03,3)="Enter the date the patient left the OEF/OIF area if known.  Otherwise, enter the end date of military pay for this OEF/OIF deployment."
^DD(2.3215,.03,4)=""
^DD(2.3215,.03,21,0)="^.001^9^9^3060322^^^^"
^DD(2.3215,.03,21,1,0)="If the service indicated is OEF or UNKNOWN OEF/OIF, this date must be on"
^DD(2.3215,.03,21,2,0)="or after 9/11/2001. If the service indicated is OIF, this date must be on"
^DD(2.3215,.03,21,3,0)="or after 3/19/2003."
^DD(2.3215,.03,21,4,0)=" "
^DD(2.3215,.03,21,5,0)="The meaning of this date depends on where the information was obtained"
^DD(2.3215,.03,21,6,0)="from.  If the data came from the VIS, Environmental Medicine or FHIE"
^DD(2.3215,.03,21,7,0)="systems, this is the military pay end date for the assignment to"
^DD(2.3215,.03,21,8,0)="the OEF/OIF operation.  If it came from any other source, it is the date"
^DD(2.3215,.03,21,9,0)="the patient actually left the OEF/OIF area."
^DD(2.3215,.03,"DT")="3061011"
^DD(2.3215,.04,0)="DATA LOCKED^S^0:NO;1:YES;^0;4^Q"
^DD(2.3215,.04,3)="Enter YES (1) to lock the data in VistA so no changes or deletions can be made."
^DD(2.3215,.04,21,0)="^.001^3^3^3051017^^"
^DD(2.3215,.04,21,1,0)="This is a flag that indicates the data is 'locked' at the site and can't"
^DD(2.3215,.04,21,2,0)="be changed or deleted.  This flag is set to 1 if the source of the data"
^DD(2.3215,.04,21,3,0)="is the HEC system."
^DD(2.3215,.04,"DT")="3051017"
^DD(2.3215,.05,0)="RECORDED DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.3215,.05,3)="Enter the date/time this data was last entered/updated."
^DD(2.3215,.05,21,0)="^.001^1^1^3051025^^"
^DD(2.3215,.05,21,1,0)="This is a time stamp for when the data was last added/updated."
^DD(2.3215,.05,"DT")="3050909"
^DD(2.3215,.06,0)="ENTERED BY SITE^*P4'^DIC(4,^0;6^S DIC(""S"")=""I $P($G(^(99)),""""^"""")]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.3215,.06,3)="Enter the facility where the data for this episode was entered."
^DD(2.3215,.06,12)="Facility must have a station number assigned."
^DD(2.3215,.06,12.1)="S DIC(""S"")=""I $P($G(^(99)),""""^"""")]"""""""""""
^DD(2.3215,.06,21,0)="^.001^3^3^3051118^^^^"
^DD(2.3215,.06,21,1,0)="This is the facility where the data was originally entered.  If the"
^DD(2.3215,.06,21,2,0)="data's source was not from a facility, it will be assumed to be generated"
^DD(2.3215,.06,21,3,0)="from HEC (CEV) and this field will be blank."
^DD(2.3215,.06,"DT")="3051116"
^DD(2.3215,"B","DATA LOCKED",.04)=""
^DD(2.3215,"B","ENTERED BY SITE",.06)=""
^DD(2.3215,"B","LOCATION OF SERVICE",.01)=""
^DD(2.3215,"B","OEF/OIF FROM DATE",.02)=""
^DD(2.3215,"B","OEF/OIF TO DATE",.03)=""
^DD(2.3215,"B","RECORDED DATE/TIME",.05)=""
^DD(2.3215,"GL",0,1,.01)=""
^DD(2.3215,"GL",0,2,.02)=""
^DD(2.3215,"GL",0,3,.03)=""
^DD(2.3215,"GL",0,4,.04)=""
^DD(2.3215,"GL",0,5,.05)=""
^DD(2.3215,"GL",0,6,.06)=""
^DD(2.3215,"IX",.01)=""
^DD(2.3215,"IX",.02)=""
^DD(2.3215,"IX",.03)=""
^DD(2.396,0)="CD STATUS DIAGNOSES SUB-FIELD^^.01^1"
^DD(2.396,0,"DT")="2990617"
^DD(2.396,0,"IX","AENR01",2.396,.01)=""
^DD(2.396,0,"IX","B",2.396,.01)=""
^DD(2.396,0,"NM","CD STATUS DIAGNOSES")=""
^DD(2.396,0,"UP")="2"
^DD(2.396,.01,0)="CD STATUS DIAGNOSES^M*P27.17'^DGEN(27.17,^0;1^S DIC(""S"")=""I $$TYPE^DGENA5(Y)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.396,.01,1,0)="^.1"
^DD(2.396,.01,1,1,0)="2.396^B"
^DD(2.396,.01,1,1,1)="S ^DPT(DA(1),.396,""B"",$E(X,1,30),DA)="""""
^DD(2.396,.01,1,1,2)="K ^DPT(DA(1),.396,""B"",$E(X,1,30),DA)"
^DD(2.396,.01,1,2,0)="2.396^AENR01^MUMPS"
^DD(2.396,.01,1,2,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.396,.01,1,2,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.396,.01,1,2,3)=" DO NOT DELETE"
^DD(2.396,.01,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.396,.01,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.396,.01,1,2,"%D",2,0)="enrollment."
^DD(2.396,.01,1,2,"DT")="3050913"
^DD(2.396,.01,3)="The specified CD REASON must be a diagnosis."
^DD(2.396,.01,12)="Must specify a CD REASON that is a diagnosis."
^DD(2.396,.01,12.1)="S DIC(""S"")=""I $$TYPE^DGENA5(Y)=""""D"""""""
^DD(2.396,.01,21,0)="^^2^2^2990617^^^"
^DD(2.396,.01,21,1,0)="Veterans having one of the following diagnoses shall be determined"
^DD(2.396,.01,21,2,0)="catastrophically disabled."
^DD(2.396,.01,"DT")="2990617"
^DD(2.396,"B","CD STATUS DIAGNOSES",.01)=""
^DD(2.396,"GL",0,1,.01)=""
^DD(2.396,"IX",.01)=""
^DD(2.397,0)="CD STATUS PROCEDURES SUB-FIELD^^1^2"
^DD(2.397,0,"DT")="2990617"
^DD(2.397,0,"IX","AENR01",2.397,.01)=""
^DD(2.397,0,"IX","AENR1",2.397,1)=""
^DD(2.397,0,"IX","B",2.397,.01)=""
^DD(2.397,0,"NM","CD STATUS PROCEDURES")=""
^DD(2.397,0,"UP")="2"
^DD(2.397,.01,0)="CD STATUS PROCEDURES^M*P27.17'^DGEN(27.17,^0;1^S DIC(""S"")=""I $$TYPE^DGENA5(Y)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.397,.01,1,0)="^.1"
^DD(2.397,.01,1,1,0)="2.397^B"
^DD(2.397,.01,1,1,1)="S ^DPT(DA(1),.397,""B"",$E(X,1,30),DA)="""""
^DD(2.397,.01,1,1,2)="K ^DPT(DA(1),.397,""B"",$E(X,1,30),DA)"
^DD(2.397,.01,1,2,0)="2.397^AENR01^MUMPS"
^DD(2.397,.01,1,2,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.397,.01,1,2,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.397,.01,1,2,3)=" DO NOT DELETE"
^DD(2.397,.01,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.397,.01,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.397,.01,1,2,"%D",2,0)="enrollment."
^DD(2.397,.01,1,2,"DT")="3050913"
^DD(2.397,.01,12)="Must specify a CD REASON that is a procedure."
^DD(2.397,.01,12.1)="S DIC(""S"")=""I $$TYPE^DGENA5(Y)=""""P"""""""
^DD(2.397,.01,21,0)="^^4^4^2990617^^^"
^DD(2.397,.01,21,1,0)="The veteran shall be determined Catastrophically Disabled if "
^DD(2.397,.01,21,2,0)="he/she has two of the following procedures (ICD-9 Procedure "
^DD(2.397,.01,21,3,0)="Codes 84.03 through 84.19) and/or certain CPT Codes provided "
^DD(2.397,.01,21,4,0)="the two procedures were not on the same limb."
^DD(2.397,.01,"DT")="2990617"
^DD(2.397,1,0)="AFFECTED EXTREMITY^R*S^RUE:Right Upper Extremity;LUE:Left Upper Extremity;RLE:Right Lower Extremity;LLE:Left Lower Extremity;^0;2^Q"
^DD(2.397,1,1,0)="^.1"
^DD(2.397,1,1,1,0)="2.397^AENR1^MUMPS"
^DD(2.397,1,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.397,1,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.397,1,1,1,3)=" DO NOT DELETE"
^DD(2.397,1,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.397,1,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.397,1,1,1,"%D",2,0)="enrollment."
^DD(2.397,1,1,1,"DT")="3050913"
^DD(2.397,1,12)="Must select an affected extremity that is valid for the procedure."
^DD(2.397,1,12.1)="S DIC(""S"")=""I $$LSCREEN^DGENA5(Y)"""
^DD(2.397,1,"DT")="2990526"
^DD(2.397,"B","AFFECTED EXTREMITY",1)=""
^DD(2.397,"B","CD STATUS PROCEDURES",.01)=""
^DD(2.397,"GL",0,1,.01)=""
^DD(2.397,"GL",0,2,1)=""
^DD(2.397,"IX",.01)=""
^DD(2.397,"IX",1)=""
^DD(2.397,"RQ",1)=""
^DD(2.398,0)="CD STATUS CONDITIONS SUB-FIELD^^2^3"
^DD(2.398,0,"DT")="2990617"
^DD(2.398,0,"IX","AENR01",2.398,.01)=""
^DD(2.398,0,"IX","AENR1",2.398,1)=""
^DD(2.398,0,"IX","AENR2",2.398,2)=""
^DD(2.398,0,"IX","B",2.398,.01)=""
^DD(2.398,0,"NM","CD STATUS CONDITIONS")=""
^DD(2.398,0,"UP")="2"
^DD(2.398,.01,0)="CD STATUS CONDITIONS^M*P27.17'^DGEN(27.17,^0;1^S DIC(""S"")=""I $$TYPE^DGENA5(Y)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.398,.01,1,0)="^.1"
^DD(2.398,.01,1,1,0)="2.398^B"
^DD(2.398,.01,1,1,1)="S ^DPT(DA(1),.398,""B"",$E(X,1,30),DA)="""""
^DD(2.398,.01,1,1,2)="K ^DPT(DA(1),.398,""B"",$E(X,1,30),DA)"
^DD(2.398,.01,1,2,0)="2.398^AENR01^MUMPS"
^DD(2.398,.01,1,2,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.398,.01,1,2,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.398,.01,1,2,3)=" DO NOT DELETE"
^DD(2.398,.01,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.398,.01,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.398,.01,1,2,"%D",2,0)="enrollment."
^DD(2.398,.01,1,2,"DT")="3050913"
^DD(2.398,.01,12)="Must specify a CD REASON that is a condition."
^DD(2.398,.01,12.1)="S DIC(""S"")=""I $$TYPE^DGENA5(Y)=""""C"""""""
^DD(2.398,.01,21,0)="^^10^10^2990617^^"
^DD(2.398,.01,21,1,0)="The veteran shall be determined Catastrophically Disabled if "
^DD(2.398,.01,21,2,0)="he/she has one of the following conditions:"
^DD(2.398,.01,21,3,0)=" - Dependent in three or more ADLs, with at least three of the"
^DD(2.398,.01,21,4,0)="   dependencies being permanent, using the Katz Scale."
^DD(2.398,.01,21,5,0)=" - A score of 10 or lower using the Folstein Mini-Mental State "
^DD(2.398,.01,21,6,0)="   Examination."
^DD(2.398,.01,21,7,0)=" - A score of 2 or lower on at least 4 of the 13 motor items "
^DD(2.398,.01,21,8,0)="   using the Functional Independence Measure (FIM)"
^DD(2.398,.01,21,9,0)=" - A score of 30 or lower using the Global Assessment of Functions "
^DD(2.398,.01,21,10,0)="   in (GAF)"
^DD(2.398,.01,"DT")="2990617"
^DD(2.398,1,0)="SCORE^RNJ3,0X^^0;2^K:'$$CONDINP^DGENA5($G(D0),$G(D1),X) X"
^DD(2.398,1,1,0)="^.1"
^DD(2.398,1,1,1,0)="2.398^AENR1^MUMPS"
^DD(2.398,1,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.398,1,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.398,1,1,1,3)=" DO NOT DELETE"
^DD(2.398,1,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.398,1,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.398,1,1,1,"%D",2,0)="enrollment."
^DD(2.398,1,1,1,"DT")="3050913"
^DD(2.398,1,3)=""
^DD(2.398,1,4)="D CONDHELP^DGENA5($G(D0),$G(D1))"
^DD(2.398,1,21,0)="^^4^4^2990520^^^^"
^DD(2.398,1,21,1,0)="NOTE:  This field does not always contain the veteran's raw test"
^DD(2.398,1,21,2,0)="score.  Sometimes you must enter specific information about the"
^DD(2.398,1,21,3,0)="score that may apply to the determination of Catastrophic Disability."
^DD(2.398,1,21,4,0)="See the help text above for more details."
^DD(2.398,1,23,0)="^^3^3^2990520^"
^DD(2.398,1,23,1,0)="The exact criteria for the score are determined by the CATASTROPHIC"
^DD(2.398,1,23,2,0)="DISABILITY REASONS file (#27.17).  That file also contains the help"
^DD(2.398,1,23,3,0)="text for responding to SCORE."
^DD(2.398,1,"DT")="2990525"
^DD(2.398,2,0)="PERMANENT INDICATOR^RS^1:PERMANENT;2:NOT PERMANENT;3:UNKNOWN;^0;3^Q"
^DD(2.398,2,1,0)="^.1"
^DD(2.398,2,1,1,0)="2.398^AENR2^MUMPS"
^DD(2.398,2,1,1,1)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.398,2,1,1,2)="D EVENT^IVMPLOG($G(DA(1)))"
^DD(2.398,2,1,1,3)=" DO NOT DELETE"
^DD(2.398,2,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(2.398,2,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(2.398,2,1,1,"%D",2,0)="enrollment."
^DD(2.398,2,1,1,"DT")="3050913"
^DD(2.398,2,"DT")="2990519"
^DD(2.398,"B","CD STATUS CONDITIONS",.01)=""
^DD(2.398,"B","PERMANENT INDICATOR",2)=""
^DD(2.398,"B","SCORE",1)=""
^DD(2.398,"GL",0,1,.01)=""
^DD(2.398,"GL",0,2,1)=""
^DD(2.398,"GL",0,3,2)=""
^DD(2.398,"IX",.01)=""
^DD(2.398,"IX",1)=""
^DD(2.398,"IX",2)=""
^DD(2.398,"RQ",1)=""
^DD(2.398,"RQ",2)=""
^DD(2.399,0)="CD HISTORY DATE SUB-FIELD^^.396^11"
^DD(2.399,0,"DT")="2990525"
^DD(2.399,0,"IX","B",2.399,.01)=""
^DD(2.399,0,"NM","CD HISTORY DATE")=""
^DD(2.399,0,"UP")="2"
^DD(2.399,.01,0)="CD HISTORY DATE^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.399,.01,1,0)="^.1"
^DD(2.399,.01,1,1,0)="2.399^B"
^DD(2.399,.01,1,1,1)="S ^DPT(DA(1),.399,""B"",$E(X,1,30),DA)="""""
^DD(2.399,.01,1,1,2)="K ^DPT(DA(1),.399,""B"",$E(X,1,30),DA)"
^DD(2.399,.01,3)="THIS SHOULD NOT BE ENTERED BY HAND!"
^DD(2.399,.01,21,0)="^^2^2^2990524^"
^DD(2.399,.01,21,1,0)="This sub-file stores the history of the PATIENT's Catastrophic Disability"
^DD(2.399,.01,21,2,0)="Eligibility information."
^DD(2.399,.01,"DT")="2990524"
^DD(2.399,.39,0)="VETERAN CATASTROPHICALLY DISABLED?^RS^Y:YES;N:NO;^0;7^Q"
^DD(2.399,.39,"DT")="2990525"
^DD(2.399,.391,0)="DECIDED BY^F^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(2.399,.391,3)="Answer must be 3-35 characters in length."
^DD(2.399,.391,21,0)="^^1^1^2990524^"
^DD(2.399,.391,21,1,0)="Captures a historical value of DECIDED BY (#.391) field in PATIENT file."
^DD(2.399,.391,"DT")="2990524"
^DD(2.399,.392,0)="DATE OF DECISION^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2.399,.392,3)="Date the decision was made."
^DD(2.399,.392,21,0)="^^1^1^2990524^"
^DD(2.399,.392,21,1,0)="Captures historical value of PATIENT field #.392 DATE OF DECISION."
^DD(2.399,.392,"DT")="2990524"
^DD(2.399,.393,0)="FACILITY MAKING DETERMINATION^P4'^DIC(4,^0;4^Q"
^DD(2.399,.393,21,0)="^^2^2^2990524^"
^DD(2.399,.393,21,1,0)="Captures a historical value of the FACILITY MAKING DETERMINATION field"
^DD(2.399,.393,21,2,0)="(#.393) of the PATIENT file."
^DD(2.399,.393,"DT")="2990524"
^DD(2.399,.394,0)="REVIEW DATE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2.399,.394,21,0)="^^2^2^2990524^"
^DD(2.399,.394,21,1,0)="Captures a historical value of the PATIENT file's REVIEW DATE field"
^DD(2.399,.394,21,2,0)="(#.394)."
^DD(2.399,.394,"DT")="2990524"
^DD(2.399,.395,0)="METHOD OF DETERMINATION^S^1:AUTOMATED RECORD REVIEW;2:MEDICAL RECORD REVIEW;3:PHYSICAL EXAMINATION;^0;6^Q"
^DD(2.399,.395,21,0)="^^2^2^2990524^"
^DD(2.399,.395,21,1,0)="This sub-field stores the historical value of the PATIENT file's METHOD"
^DD(2.399,.395,21,2,0)="OF DETERMINATION field (#.395)."
^DD(2.399,.395,"DT")="2990524"
^DD(2.399,.3951,0)="DATE VETERAN REQUESTED CD EVAL^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2.399,.3951,"DT")="3050915"
^DD(2.399,.3952,0)="DATE FACILITY INITIATED REVIEW^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2.399,.3952,"DT")="3050915"
^DD(2.399,.3953,0)="DATE VETERAN WAS NOTIFIED^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2.399,.3953,"DT")="3050915"
^DD(2.399,.396,0)="CD REASON^2.409PA^^1;0"
^DD(2.399,"B","CD HISTORY DATE",.01)=""
^DD(2.399,"B","CD REASON",.396)=""
^DD(2.399,"B","DATE FACILITY INITIATED REVIEW",.3952)=""
^DD(2.399,"B","DATE OF DECISION",.392)=""
^DD(2.399,"B","DATE VETERAN REQUESTED CD EVAL",.3951)=""
^DD(2.399,"B","DATE VETERAN WAS NOTIFIED",.3953)=""
^DD(2.399,"B","DECIDED BY",.391)=""
^DD(2.399,"B","FACILITY MAKING DETERMINATION",.393)=""
^DD(2.399,"B","METHOD OF DETERMINATION",.395)=""
^DD(2.399,"B","REVIEW DATE",.394)=""
^DD(2.399,"B","VETERAN CATASTROPHICALLY DISABLED?",.39)=""
^DD(2.399,"GL",0,1,.01)=""
^DD(2.399,"GL",0,2,.391)=""
^DD(2.399,"GL",0,3,.392)=""
^DD(2.399,"GL",0,4,.393)=""
^DD(2.399,"GL",0,5,.394)=""
^DD(2.399,"GL",0,6,.395)=""
^DD(2.399,"GL",0,7,.39)=""
^DD(2.399,"GL",0,8,.3951)=""
^DD(2.399,"GL",0,9,.3952)=""
^DD(2.399,"GL",0,10,.3953)=""
^DD(2.399,"GL",1,0,.396)=""
^DD(2.399,"IX",.01)=""
^DD(2.399,"RQ",.39)=""
^DD(2.399,"SB",2.409,.396)=""
^DD(2.409,0)="CD REASON SUB-FIELD^^3^4"
^DD(2.409,0,"DT")="2990524"
^DD(2.409,0,"IX","B",2.409,.01)=""
^DD(2.409,0,"NM","CD REASON")=""
^DD(2.409,0,"UP")="2.399"
^DD(2.409,.01,0)="CD REASON^P27.17'^DGEN(27.17,^0;1^Q"
^DD(2.409,.01,1,0)="^.1"
^DD(2.409,.01,1,1,0)="2.409^B"
^DD(2.409,.01,1,1,1)="S ^DPT(DA(2),.399,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2.409,.01,1,1,2)="K ^DPT(DA(2),.399,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2.409,.01,21,0)="^^3^3^2990524^"
^DD(2.409,.01,21,1,0)="This sub-field will contain pointers to the CD REASONS file (#27.17),"
^DD(2.409,.01,21,2,0)="as well as the supporting data stored in the CD STATUS DIAGNOSES (#.396),"
^DD(2.409,.01,21,3,0)="PROCEDURES (#.397) and CONDITIONS (#.398) fields."
^DD(2.409,.01,"DT")="2990524"
^DD(2.409,1,0)="AFFECTED EXTREMITY^S^RUE:RIGHT UPPER EXTREMITY;LUE:LEFT UPPER EXTREMITY;RLE:RIGHT LOWER EXTREMITY;LLE:LEFT LOWER EXTREMITY;^0;2^Q"
^DD(2.409,1,21,0)="^^2^2^2990524^"
^DD(2.409,1,21,1,0)="Stores the historical value of the AFFECTED EXTREMITY sub-field (#1)"
^DD(2.409,1,21,2,0)="in the CD STATUS PROCEDURES (#.397) of the PATIENT file (#2)."
^DD(2.409,1,"DT")="2990524"
^DD(2.409,2,0)="SCORE^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2.409,2,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2.409,2,21,0)="^^2^2^2990524^"
^DD(2.409,2,21,1,0)="This field stores a historical value for the SCORE subfield (#1) of the"
^DD(2.409,2,21,2,0)="CD STATUS CONDITIONS field (#.398) of the PATIENT file (#2)."
^DD(2.409,2,"DT")="2990524"
^DD(2.409,3,0)="PERMANENT INDICATOR^S^1:PERMANENT;2:NOT PERMANENT;3:UNKNOWN;^0;4^Q"
^DD(2.409,3,21,0)="^^2^2^2990524^"
^DD(2.409,3,21,1,0)="This subfield stores a historical value of the PERMANENT INDICATOR subfield"
^DD(2.409,3,21,2,0)="(#2) of the CD STATUS CONDITIONS field (#.398) of the PATIENT file (#2)."
^DD(2.409,3,"DT")="2990524"
^DD(2.409,"B","AFFECTED EXTREMITY",1)=""
^DD(2.409,"B","CD REASON",.01)=""
^DD(2.409,"B","PERMANENT INDICATOR",3)=""
^DD(2.409,"B","SCORE",2)=""
^DD(2.409,"GL",0,1,.01)=""
^DD(2.409,"GL",0,2,1)=""
^DD(2.409,"GL",0,3,2)=""
^DD(2.409,"GL",0,4,3)=""
^DD(2.409,"IX",.01)=""
^DD(2.98,0)="APPOINTMENT SUB-FIELD^NL^100^33"
^DD(2.98,0,"DT")="2930922"
^DD(2.98,0,"NM","APPOINTMENT")=""
^DD(2.98,0,"UP")="2"
^DD(2.98,.001,0)="APPOINTMENT DATE/TIME^D^^ ^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,.001,21,0)="^^3^3^2930127^^"
^DD(2.98,.001,21,1,0)="This displays date/time function as defined in file manager.  The"
^DD(2.98,.001,21,2,0)="date/time of the appointment."
^DD(2.98,.001,21,3,0)="|"
^DD(2.98,.001,22)=""
^DD(2.98,.001,"DT")="2870505"
^DD(2.98,.01,0)="CLINIC^MP44'X^SC(^0;1^Q"
^DD(2.98,.01,1,0)="^.1^^0"
^DD(2.98,.01,3)=""
^DD(2.98,.01,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""No deletion of this node allowed through fileman"""
^DD(2.98,.01,"DT")="2870323"
^DD(2.98,.02,0)="TELEPHONE OF CLINIC^CJ14^^ ; ^X ^DD(2.98,.02,9.2) S X=$P(Y(.02,101),U,1) S D0=Y(.02,2)"
^DD(2.98,.02,9)="^"
^DD(2.98,.02,9.01)="44^99;2.98^.01"
^DD(2.98,.02,9.1)="#.01:TELEPHONE"
^DD(2.98,.02,9.2)="S Y(.02,2)=$S($D(D0):D0,1:""""),Y(.02,1)=$S($D(^DPT(D0,""S"",D1,0)):^(0),1:""""),D0=$P(Y(.02,1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S Y(.02,101)=$S($D(^SC(D0,99)):^(99),1:"""")"
^DD(2.98,.02,21,0)="^^3^3^2911214^^"
^DD(2.98,.02,21,1,0)="This is a computed field which returns the telephone number for the clinic"
^DD(2.98,.02,21,2,0)="at which this patient has an appointment.  This information is stored in"
^DD(2.98,.02,21,3,0)="the HOSPITAL LOCATION file."
^DD(2.98,.02,"DT")="2830406"
^DD(2.98,3,0)="STATUS^S^N:NO-SHOW;C:CANCELLED BY CLINIC;NA:NO-SHOW & AUTO RE-BOOK;CA:CANCELLED BY CLINIC & AUTO RE-BOOK;I:INPATIENT APPOINTMENT;PC:CANCELLED BY PATIENT;PCA:CANCELLED BY PATIENT & AUTO-REBOOK;NT:NO ACTION TAKEN;^0;2^Q"
^DD(2.98,3,1,0)="^.1"
^DD(2.98,3,1,1,0)="2^ASDCN^MUMPS"
^DD(2.98,3,1,1,1)="D:X[""C"" ^SDCAN"
^DD(2.98,3,1,1,2)="K ^DPT(""ASDCN"",$P(^(0),""^""),DA,DA(1))"
^DD(2.98,3,21,0)="^^5^5^2930617^^"
^DD(2.98,3,21,1,0)="This field contains the current status of the patient's appointment.  If"
^DD(2.98,3,21,2,0)="the field is blank, it means the appointment has not been no-showed or"
^DD(2.98,3,21,3,0)="cancelled and the patient was not an inpatient at the time of the"
^DD(2.98,3,21,4,0)="appointment.  This field is set automatically by the scheduling module and"
^DD(2.98,3,21,5,0)="must NOT be edited."
^DD(2.98,3,"DT")="2911127"
^DD(2.98,4,0)="REAL APPOINTMENT^BC^^ ; ^S Y(4,1)=$S($D(^DPT(D0,""S"",D1,0)):^(0),1:"""") S X=$P(Y(4,1),U,2)="""""
^DD(2.98,4,9)="^"
^DD(2.98,4,9.1)="STATUS="""""
^DD(2.98,4,21,0)="^^4^4^2911214^"
^DD(2.98,4,21,1,0)="This is a computed field which determines whether the appointment is"
^DD(2.98,4,21,2,0)="considered real (kept).  This field checks to see that the status is null"
^DD(2.98,4,21,3,0)="(this means the appointment is not no-showed or cancelled and the patient"
^DD(2.98,4,21,4,0)="was not an inpatient at the time of the appointment)."
^DD(2.98,5,0)="LAB DATE/TIME^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,5,21,0)="^^3^3^2911214^"
^DD(2.98,5,21,1,0)="If this patient is scheduled for laboratory tests in conjunction with this"
^DD(2.98,5,21,2,0)="appointment, enter the date/time the patient should report to the lab for"
^DD(2.98,5,21,3,0)="these tests."
^DD(2.98,5,"DT")="2870505"
^DD(2.98,6,0)="X-RAY DATE/TIME^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,6,21,0)="^^3^3^2911214^"
^DD(2.98,6,21,1,0)="If this patient is scheduled for x-rays in conjunction with this"
^DD(2.98,6,21,2,0)="appointment, enter the date/time the patient should report to radiology"
^DD(2.98,6,21,3,0)="for these x-rays."
^DD(2.98,6,"DT")="2870505"
^DD(2.98,7,0)="EKG DATE/TIME^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,7,21,0)="^^2^2^2911214^"
^DD(2.98,7,21,1,0)="If this patient is scheduled for EKG tests in conjuction with this clinic"
^DD(2.98,7,21,2,0)="appointment, enter the date/time the patient should report for these tests."
^DD(2.98,7,"DT")="2870505"
^DD(2.98,8,0)="ROUTING SLIP PRINTED^S^Y:YES;^0;6^Q"
^DD(2.98,8,21,0)="^^3^3^2911214^"
^DD(2.98,8,21,1,0)="If a routing sheet was printed for this appointment, this field will"
^DD(2.98,8,21,2,0)="contain a yes.  Otherwise this field will contain a no.  This is created"
^DD(2.98,8,21,3,0)="automatically by the scheduling module."
^DD(2.98,8,"DT")="2831230"
^DD(2.98,8.5,0)="ROUTING SLIP PRINT DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,8.5,3)="The date the routing slip was printed."
^DD(2.98,8.5,21,0)="^^2^2^2911214^"
^DD(2.98,8.5,21,1,0)="If a routing sheet was printed for this visit, the date it was printed will"
^DD(2.98,8.5,21,2,0)="be stored here.  This is stored automatically by the MAS module."
^DD(2.98,8.5,"DT")="2860317"
^DD(2.98,9,0)="PURPOSE OF VISIT^RS^1:C&P;2:10-10;3:SCHEDULED VISIT;4:UNSCHED. VISIT;^0;7^Q"
^DD(2.98,9,3)="Enter the reason for this appointment.  Choose from the available choices."
^DD(2.98,9,21,0)="^^6^6^2911214^"
^DD(2.98,9,21,1,0)="Choose from the list of available choices the reason this patient has"
^DD(2.98,9,21,2,0)="this clinic appointment.  Enter 1010 if this patient was sent to the"
^DD(2.98,9,21,3,0)="clinic after a 1010 application (registration).  Enter C&P if this patient"
^DD(2.98,9,21,4,0)="is being seen for a comp and pension exam.  Enter scheduled visit if this"
^DD(2.98,9,21,5,0)="patient is being seen for a previously scheduled appointment or unsched."
^DD(2.98,9,21,6,0)="visit if the patient is a walk-in."
^DD(2.98,9,"DT")="2841030"
^DD(2.98,9.5,0)="APPOINTMENT TYPE^P409.1'^SD(409.1,^0;16^Q"
^DD(2.98,9.5,1,0)="^.1"
^DD(2.98,9.5,1,1,0)="^^TRIGGER^409.68^.1"
^DD(2.98,9.5,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.98,9.5,1,1,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$S('$D(^SD(409.1,+$P(Y(101),U,10),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD(2.98,9.5,1,1,1.4)"
^DD(2.98,9.5,1,1,1.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=409.68,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.98,9.5,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(2.98,9.5,1,1,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$S('$D(^SD(409.1,+$P(Y(101),U,10),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X="""" X ^DD(2.98,9.5,1,1,2.4)"
^DD(2.98,9.5,1,1,2.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=409.68,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2.98,9.5,1,1,89.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DPT(D0,""S"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,20) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0"
^DD(2.98,9.5,1,1,"CREATE VALUE")="S X=X"
^DD(2.98,9.5,1,1,"DELETE VALUE")="@"
^DD(2.98,9.5,1,1,"FIELD")="OUTPATIENT ENCOUNTER:#.1"
^DD(2.98,9.5,3)="Enter from the available choices the type of appointment this patient has."
^DD(2.98,9.5,21,0)="^^2^2^2911214^"
^DD(2.98,9.5,21,1,0)="Enter from the available choices the type of appointment this patient is"
^DD(2.98,9.5,21,2,0)="scheduled for.  This is a pointer to the APPOINTMENT TYPE file."
^DD(2.98,9.5,"DT")="2930407"
^DD(2.98,10,0)="SPECIAL SURVEY DISPOSITION^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2.98,10,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9"
^DD(2.98,10,21,0)="^^3^3^2911224^"
^DD(2.98,10,21,1,0)="If this patinet is claiming exposure to agent orange or ionizing radiation,"
^DD(2.98,10,21,2,0)="enter the special survey disposition, indicating whether his treatment was"
^DD(2.98,10,21,3,0)="related to that exposure, here."
^DD(2.98,10,"DT")="2840924"
^DD(2.98,11,0)="NUMBER OF COLLATERAL SEEN^NJ1,0^^0;9^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2.98,11,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(2.98,11,21,0)="^^2^2^2911224^"
^DD(2.98,11,21,1,0)="If this patient is a collateral, enter the number assigned to that"
^DD(2.98,11,21,2,0)="collateral."
^DD(2.98,11,"DT")="2840228"
^DD(2.98,12,0)="AUTO-REBOOKED APPT. DATE/TIME^D^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,12,21,0)="^^4^4^2911214^"
^DD(2.98,12,21,1,0)="If this appointment was cancelled and automatically rebooked for a future"
^DD(2.98,12,21,2,0)="date, this field will contain the date/time for which this appointment"
^DD(2.98,12,21,3,0)="was rescheduled.  This field is created automatically by the scheduling"
^DD(2.98,12,21,4,0)="module and should not be edited."
^DD(2.98,12,"DT")="2870505"
^DD(2.98,13,0)="COLLATERAL VISIT^S^1:YES;^0;11^Q"
^DD(2.98,13,21,0)="^^2^2^2911214^"
^DD(2.98,13,21,1,0)="If this patient was seen as a collateral for another patient, enter YES"
^DD(2.98,13,21,2,0)="in this field.  Otherwise, enter NO."
^DD(2.98,13,"DT")="2840913"
^DD(2.98,14,0)="NO-SHOW/CANCELLED BY^P200'^VA(200,^0;12^Q"
^DD(2.98,14,21,0)="^^4^4^2911214^"
^DD(2.98,14,21,1,0)="If this appointment was listed as a no-show and was that no-show was"
^DD(2.98,14,21,2,0)="subsequently cancelled, this field will contain the user that cancelled"
^DD(2.98,14,21,3,0)="the no-show.  This field is set automatically by the MAS module and should"
^DD(2.98,14,21,4,0)="not be edited."
^DD(2.98,14,"DT")="2901017"
^DD(2.98,15,0)="NO-SHOW/CANCEL DATE/TIME^D^^0;14^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,15,21,0)="^^4^4^2911214^"
^DD(2.98,15,21,1,0)="If this appointment was listed as a no-show and that no-show was"
^DD(2.98,15,21,2,0)="subsequently cancelled, this field will contain the date/time the no-show"
^DD(2.98,15,21,3,0)="was cancelled.  This field is set automatically by the scheduling module"
^DD(2.98,15,21,4,0)="and should not be edited."
^DD(2.98,15,"DT")="2860909"
^DD(2.98,16,0)="CANCELLATION REASON^R*P409.2'^SD(409.2,^0;15^S DIC(""S"")=""I '$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2.98,16,12)="CHOOSE FROM ACTIVE REASONS ONLY"
^DD(2.98,16,12.1)="S DIC(""S"")=""I '$P(^(0),U,4)"""
^DD(2.98,16,21,0)="^^3^3^2911214^"
^DD(2.98,16,21,1,0)="If this appointment was cancelled, this field will contain the reason the"
^DD(2.98,16,21,2,0)="appointment was cancelled.  Choose from the available entries in the"
^DD(2.98,16,21,3,0)="CANCELLATION REASONS file."
^DD(2.98,16,"DT")="2880412"
^DD(2.98,17,0)="CANCELLATION REMARKS^F^^R;1^K:$L(X)>160!($L(X)<3) X"
^DD(2.98,17,3)="ANSWER MUST BE 3-160 CHARACTERS IN LENGTH"
^DD(2.98,17,21,0)="^^2^2^2911214^"
^DD(2.98,17,21,1,0)="If thsi appointment was cancelled, additional remarks as to the reason"
^DD(2.98,17,21,2,0)="the appointment was cancelled can be entered.  This is optional."
^DD(2.98,17,"DT")="2880329"
^DD(2.98,18,0)="APPT. CANCELLED^P44'^SC(^0;17^Q"
^DD(2.98,18,21,0)="^^4^4^2880623^^"
^DD(2.98,18,21,1,0)="Field is set when user cancels another appointment set at the same time"
^DD(2.98,18,21,2,0)="in another clinic for the same patient. This field reflects the clinic"
^DD(2.98,18,21,3,0)="in which the patient had a scheduled appointment which was cancelled to"
^DD(2.98,18,21,4,0)="set this appointment."
^DD(2.98,18,"DT")="2880401"
^DD(2.98,19,0)="DATA ENTRY CLERK^P200'^VA(200,^0;18^Q"
^DD(2.98,19,21,0)="^^3^3^2911214^^"
^DD(2.98,19,21,1,0)="This field contains the name of the user that entered the appointment"
^DD(2.98,19,21,2,0)="into the scheduling system.  This field is created automatically by the"
^DD(2.98,19,21,3,0)="scheduling module and should not be edited."
^DD(2.98,19,"DT")="2901017"
^DD(2.98,20,0)="DATE APPT. MADE^D^^0;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,20,1,0)="^.1"
^DD(2.98,20,1,1,0)="2^ASADM^MUMPS"
^DD(2.98,20,1,1,1)="S ^DPT(""ASADM"",$E(X,1,30),DA(1),DA)="""""
^DD(2.98,20,1,1,2)="K ^DPT(""ASADM"",$E(X,1,30),DA(1),DA)"
^DD(2.98,20,1,1,"DT")="2991105"
^DD(2.98,20,21,0)="^^3^3^2911214^"
^DD(2.98,20,21,1,0)="This field contains the date the appointment was entered into sheduling"
^DD(2.98,20,21,2,0)="system.  This field is creatd automatically by the scheduling module and"
^DD(2.98,20,21,3,0)="should not be edited."
^DD(2.98,20,"DT")="2991105"
^DD(2.98,21,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;20^Q"
^DD(2.98,21,"DT")="2930209"
^DD(2.98,22,0)="ENCOUNTER FORMS PRINTED^S^0:NO;1:YES;^0;21^Q"
^DD(2.98,22,3)="Enter YES if the required encounter forms and reports have been printed for the appointment."
^DD(2.98,22,21,0)="^^3^3^2930924^"
^DD(2.98,22,21,1,0)="Used by the Print Manager to indicate that it has printed"
^DD(2.98,22,21,2,0)="the encounter forms and other reports required by the division and"
^DD(2.98,22,21,3,0)="clinic for the appointment."
^DD(2.98,22,23,0)="^^2^2^2930924^^^"
^DD(2.98,22,23,1,0)="Used by IB to indicate whether or not encounter forms have been printed"
^DD(2.98,22,23,2,0)="for the patient."
^DD(2.98,22,"DT")="2930922"
^DD(2.98,23,0)="ENCOUNTER FORMS AS ADD-ONS^S^0:NO;1:YES;^0;22^Q"
^DD(2.98,23,3)="Enter YES if the required encounter forms and reports have been printed for the appointment as an add-on."
^DD(2.98,23,21,0)="^^3^3^2930924^"
^DD(2.98,23,21,1,0)="Used by the Print Manager to indicate that it has printed"
^DD(2.98,23,21,2,0)="the encounter forms and other reports required by the division and"
^DD(2.98,23,21,3,0)="clinic for the appointment and they were printed as an add-on."
^DD(2.98,23,23,0)="^^2^2^2930924^^^"
^DD(2.98,23,23,1,0)="Used by IB to indicate that encounter forms & reports were printed as an"
^DD(2.98,23,23,2,0)="add-on."
^DD(2.98,23,"DT")="2930922"
^DD(2.98,23.1,0)="ENCOUNTER CONVERSION STATUS^S^0:NOT CONVERTED;1:CONVERTED;^0;23^Q"
^DD(2.98,23.1,3)=""
^DD(2.98,23.1,21,0)="^^5^5^2991228^"
^DD(2.98,23.1,21,1,0)="This field indicates whether or not this appointment was converted  "
^DD(2.98,23.1,21,2,0)="during the ACRP Database Conversion (SD*5.3*211)."
^DD(2.98,23.1,21,3,0)=" "
^DD(2.98,23.1,21,4,0)="The field is set to '1' after the appointment has been converted"
^DD(2.98,23.1,21,5,0)="by the conversion software.                                         "
^DD(2.98,23.1,"DT")="2980114"
^DD(2.98,24,0)="APPOINTMENT TYPE SUB-CATEGORY^P35.2'^DG(35.2,^0;24^Q"
^DD(2.98,24,3)="Please enter the sub-category associated with this appointment."
^DD(2.98,24,21,0)="^^1^1^2970305^"
^DD(2.98,24,21,1,0)="This field contains the sub-category associated with this appoitment."
^DD(2.98,24,"DT")="2970305"
^DD(2.98,25,0)="SCHEDULING REQUEST TYPE^RS^N:'NEXT AVAILABLE' APPT.;C:OTHER THAN 'NEXT AVA.' (CLINICIAN REQ.);P:OTHER THAN 'NEXT AVA.' (PATIENT REQ.);W:WALKIN APPT.;M:MULTIPLE APPT. BOOKING;A:AUTO REBOOK;O:OTHER THAN 'NEXT AVA.' APPT.;^0;25^Q"
^DD(2.98,25,3)="Enter the type of request that initiated the scheduling of this appointment."
^DD(2.98,25,"DT")="3001107"
^DD(2.98,26,0)="NEXT AVA. APPT. INDICATOR^RS^0:NOT INDICATED TO BE A 'NEXT AVA.' APPT.;1:'NEXT AVA.' APPT. INDICATED BY USER;2:'NEXT AVA.' APPT. INDICATED BY CALCULATION;3:'NEXT AVA.' APPT. INDICATED BY USER & CALCULATION;^0;26^Q"
^DD(2.98,26,3)="Specify if this appointment was indicated by the user or by calculation to be a 'next available' appointment scheduling request."
^DD(2.98,26,"DT")="2991105"
^DD(2.98,27,0)="DESIRED DATE OF APPOINTMENT^D^^1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2.98,27,3)="This is the date the clinician or patient desired for the scheduling of this appointment."
^DD(2.98,27,"DT")="3001107"
^DD(2.98,28,0)="FOLLOW-UP VISIT^S^1:YES;0:NO;^1;2^Q"
^DD(2.98,28,3)="Indicate if this is a follow-up visit for conditions already being treated by this clinician or clinic."
^DD(2.98,28,"DT")="3001107"
^DD(2.98,100,0)="CURRENT STATUS^CJ35^^ ; ^D CURRENT^SDAMU"
^DD(2.98,100,9)="^"
^DD(2.98,100,9.01)=""
^DD(2.98,100,9.1)="D CURRENT^SDAMU"
^DD(2.98,100,21,0)="^^12^12^2920715^^^"
^DD(2.98,100,21,1,0)="This computed field determines the current status for the"
^DD(2.98,100,21,2,0)="appointment. The difference between this field and the STATUS "
^DD(2.98,100,21,3,0)="field is that appointments with a blank STATUS are further defined "
^DD(2.98,100,21,4,0)="in this CURRENT STATUS field. "
^DD(2.98,100,21,5,0)=" "
^DD(2.98,100,21,6,0)="Appointments with a blank STATUS may have a CURRENT STATUS of any"
^DD(2.98,100,21,7,0)="one of the following:"
^DD(2.98,100,21,8,0)="          o FUTURE"
^DD(2.98,100,21,9,0)="          o NO ACTION TAKEN"
^DD(2.98,100,21,10,0)="          o CHECKED IN"
^DD(2.98,100,21,11,0)="          o CHECKED OUT"
^DD(2.98,100,21,12,0)="          o NON-COUNT"
^DD(2.98,100,"DT")="2920212"
^DD(2.98,"B","APPOINTMENT DATE/TIME",.001)=""
^DD(2.98,"B","APPOINTMENT TYPE",9.5)=""
^DD(2.98,"B","APPOINTMENT TYPE SUB-CATEGORY",24)=""
^DD(2.98,"B","APPT. CANCELLED",18)=""
^DD(2.98,"B","AUTO-REBOOKED APPT. DATE/TIME",12)=""
^DD(2.98,"B","CANCELLATION REASON",16)=""
^DD(2.98,"B","CANCELLATION REMARKS",17)=""
^DD(2.98,"B","CLINIC",.01)=""
^DD(2.98,"B","COLLATERAL VISIT",13)=""
^DD(2.98,"B","CURRENT STATUS",100)=""
^DD(2.98,"B","DATA ENTRY CLERK",19)=""
^DD(2.98,"B","DATE APPT. MADE",20)=""
^DD(2.98,"B","DESIRED DATE OF APPOINTMENT",27)=""
^DD(2.98,"B","EKG DATE/TIME",7)=""
^DD(2.98,"B","ENCOUNTER CONVERSION STATUS",23.1)=""
^DD(2.98,"B","ENCOUNTER FORMS AS ADD-ONS",23)=""
^DD(2.98,"B","ENCOUNTER FORMS PRINTED",22)=""
^DD(2.98,"B","FOLLOW-UP VISIT",28)=""
^DD(2.98,"B","LAB DATE/TIME",5)=""
^DD(2.98,"B","NEXT AVA. APPT. INDICATOR",26)=""
^DD(2.98,"B","NO-SHOW/CANCEL DATE/TIME",15)=""
^DD(2.98,"B","NO-SHOW/CANCELLED BY",14)=""
^DD(2.98,"B","NUMBER OF COLLATERAL SEEN",11)=""
^DD(2.98,"B","OUTPATIENT ENCOUNTER",21)=""
^DD(2.98,"B","PURPOSE OF VISIT",9)=""
^DD(2.98,"B","REAL APPOINTMENT",4)=""
^DD(2.98,"B","ROUTING SLIP PRINT DATE",8.5)=""
^DD(2.98,"B","ROUTING SLIP PRINTED",8)=""
^DD(2.98,"B","SCHEDULING REQUEST TYPE",25)=""
^DD(2.98,"B","SPECIAL SURVEY DISPOSITION",10)=""
^DD(2.98,"B","STATUS",3)=""
^DD(2.98,"B","TELEPHONE OF CLINIC",.02)=""
^DD(2.98,"B","X-RAY DATE/TIME",6)=""
^DD(2.98,"GL",0,1,.01)=""
^DD(2.98,"GL",0,2,3)=""
^DD(2.98,"GL",0,3,5)=""
^DD(2.98,"GL",0,4,6)=""
^DD(2.98,"GL",0,5,7)=""
^DD(2.98,"GL",0,6,8)=""
^DD(2.98,"GL",0,7,9)=""
^DD(2.98,"GL",0,8,10)=""
^DD(2.98,"GL",0,9,11)=""
^DD(2.98,"GL",0,10,12)=""
^DD(2.98,"GL",0,11,13)=""
^DD(2.98,"GL",0,12,14)=""
^DD(2.98,"GL",0,13,8.5)=""
^DD(2.98,"GL",0,14,15)=""
^DD(2.98,"GL",0,15,16)=""
^DD(2.98,"GL",0,16,9.5)=""
^DD(2.98,"GL",0,17,18)=""
^DD(2.98,"GL",0,18,19)=""
^DD(2.98,"GL",0,19,20)=""
^DD(2.98,"GL",0,20,21)=""
^DD(2.98,"GL",0,21,22)=""
^DD(2.98,"GL",0,22,23)=""
^DD(2.98,"GL",0,23,23.1)=""
^DD(2.98,"GL",0,24,24)=""
^DD(2.98,"GL",0,25,25)=""
^DD(2.98,"GL",0,26,26)=""
^DD(2.98,"GL",1,1,27)=""
^DD(2.98,"GL",1,2,28)=""
^DD(2.98,"GL","R",1,17)=""
^DD(2.98,"IX",3)=""
^DD(2.98,"IX",9.5)=""
^DD(2.98,"IX",20)=""
^DD(2.98,"RQ",9)=""
^DD(2.98,"RQ",16)=""
^DD(2.98,"RQ",25)=""
^DD(2.98,"RQ",26)=""
^DD(3,0,"PT",53.41,.01)=""
^DD(3.05,0)="FIELD^^7^10"
^DD(3.05,0,"DDA")="N"
^DD(3.05,0,"DT")="2890908"
^DD(3.05,0,"NM","FAILED ACCESS ATTEMPTS LOG")=""
^DD(3.05,0,"VR")="8.0"
^DD(3.05,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.05,.001,0)="DATE/TIME OF ATTEMPT^D^^ ^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.05,.001,21,0)="^^2^2^2920513^^"
^DD(3.05,.001,21,1,0)="Entries in this file are uniquely identified by the precise time of the"
^DD(3.05,.001,21,2,0)="failed access attempt."
^DD(3.05,.01,0)="DEVICE^RP3.5'^%ZIS(1,^0;1^Q"
^DD(3.05,.01,1,0)="^.1^^0"
^DD(3.05,.01,3)=""
^DD(3.05,.01,21,0)="^^2^2^2920513^^"
^DD(3.05,.01,21,1,0)="This field holds a pointer to the Device File to identify the device"
^DD(3.05,.01,21,2,0)="in use at the time of the failed access attempt."
^DD(3.05,.01,"DT")="2880406"
^DD(3.05,1,0)="CPU^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(3.05,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(3.05,1,21,0)="^^2^2^2920513^^"
^DD(3.05,1,21,1,0)="This field identifies the CPU/Volume Set where the failed access attempt"
^DD(3.05,1,21,2,0)="occurred."
^DD(3.05,2,0)="TYPE OF FAILED ATTEMPT^S^D:DEVICE;V:VERIFY;A:ACCESS;^0;3^Q"
^DD(3.05,2,21,0)="^^3^3^2920513^^"
^DD(3.05,2,21,1,0)="This field identifies the type of access failure.  For example, if"
^DD(3.05,2,21,2,0)="the access code passes the type of access is VERIFY and only the text"
^DD(3.05,2,21,3,0)="entered in guessing the verify code is stored."
^DD(3.05,3,0)="NUMBER OF ATTEMPTS^NJ3,0^^0;4^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.05,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 100"
^DD(3.05,3,21,0)="^^5^5^2920513^^^^"
^DD(3.05,3,21,1,0)="This field records the number of unsuccessful attempts that were made"
^DD(3.05,3,21,2,0)="before the device locked.  The ^DISV global maintains a count of the"
^DD(3.05,3,21,3,0)="current unsuccessful attempts.  A lock results when the number of"
^DD(3.05,3,21,4,0)="default attempts (set in the Kernel Site Parameters File) is reached."
^DD(3.05,3,21,5,0)="If the default is reached an entry is made in this file."
^DD(3.05,4,0)="UCI^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(3.05,4,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(3.05,4,21,0)="^^2^2^2920513^^"
^DD(3.05,4,21,1,0)="This field identifies the UCI account location of the failed access"
^DD(3.05,4,21,2,0)="attempt."
^DD(3.05,5,0)="USER^P200'^VA(200,^0;6^Q"
^DD(3.05,5,3)=""
^DD(3.05,5,21,0)="^^2^2^2920513^^"
^DD(3.05,5,21,1,0)="This field is used when an access code is entered which matches one on"
^DD(3.05,5,21,2,0)="file.  The associated user's name may then be recorded."
^DD(3.05,5,"DT")="2890908"
^DD(3.05,5.5,0)="USER NUMBER^CJ8^^ ; ^S Y(3.05,5.5,1)=$S($D(^%ZUA(3.05,D0,0)):^(0),1:"""") S X=$P(Y(3.05,5.5,1),U,6),X=X"
^DD(3.05,5.5,9)="^"
^DD(3.05,5.5,9.01)="3.05^5"
^DD(3.05,5.5,9.1)="INTERNAL(USER)"
^DD(3.05,5.5,21,0)="^^2^2^2920513^^"
^DD(3.05,5.5,21,1,0)="This field retrieves the user number from the User File to facilitate"
^DD(3.05,5.5,21,2,0)="report display."
^DD(3.05,6,0)="ZIO (optional)^F^^0;7^K:$L(X)>20!($L(X)<2) X"
^DD(3.05,6,3)="The DECserver port info at sign-on."
^DD(3.05,6,21,0)="^^3^3^2920513^^"
^DD(3.05,6,21,1,0)="This field (if filled in) is the $ZIO value from VAX-DSM to show"
^DD(3.05,6,21,2,0)="the DECserver port that was trying to sign-on."
^DD(3.05,6,21,3,0)="On MSM systems with LAT servers it will have the $ZDEV value."
^DD(3.05,6,"DT")="2890329"
^DD(3.05,7,0)="TEXT ENTERED^3.051A^^1;0"
^DD(3.05,7,21,0)="^^1^1^2920513^^"
^DD(3.05,7,21,1,0)="This subfile holds the text of the unsuccessful attempts."
^DD(3.05,"B","CPU",1)=""
^DD(3.05,"B","DATE/TIME OF ATTEMPT",.001)=""
^DD(3.05,"B","DEVICE",.01)=""
^DD(3.05,"B","NUMBER OF ATTEMPTS",3)=""
^DD(3.05,"B","TEXT ENTERED",7)=""
^DD(3.05,"B","TYPE OF FAILED ATTEMPT",2)=""
^DD(3.05,"B","UCI",4)=""
^DD(3.05,"B","USER",5)=""
^DD(3.05,"B","USER NUMBER",5.5)=""
^DD(3.05,"B","ZIO (optional)",6)=""
^DD(3.05,"GL",0,1,.01)=""
^DD(3.05,"GL",0,2,1)=""
^DD(3.05,"GL",0,3,2)=""
^DD(3.05,"GL",0,4,3)=""
^DD(3.05,"GL",0,5,4)=""
^DD(3.05,"GL",0,6,5)=""
^DD(3.05,"GL",0,7,6)=""
^DD(3.05,"GL",1,0,7)=""
^DD(3.05,"RQ",.01)=""
^DD(3.05,"SB",3.051,7)=""
^DD(3.051,0)="TEXT ENTERED SUB-FIELD^^.01^1"
^DD(3.051,0,"NM","TEXT ENTERED")=""
^DD(3.051,0,"UP")="3.05"
^DD(3.051,.01,0)="TEXT ENTERED^MF^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(3.051,.01,1,0)="^.1^^0"
^DD(3.051,.01,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(3.051,.01,21,0)="^^3^3^2920513^^"
^DD(3.051,.01,21,1,0)="This field holds the text that was entered during an unsuccessful"
^DD(3.051,.01,21,2,0)="log-on attempt.  Text that matches existing codes is not recorded"
^DD(3.051,.01,21,3,0)="to prevent discovery of valid codes."
^DD(3.051,"B","TEXT ENTERED",.01)=""
^DD(3.051,"GL",0,1,.01)=""
^DD(3.07,0)="FIELD^^4^6"
^DD(3.07,0,"DDA")="N"
^DD(3.07,0,"DT")="2890908"
^DD(3.07,0,"NM","PROGRAMMER MODE LOG")=""
^DD(3.07,0,"VR")="8.0"
^DD(3.07,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.07,.001,0)="DATE/TIME^D^^ ^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.07,.001,21,0)="^^2^2^2890124^"
^DD(3.07,.001,21,1,0)="Entries in this file are uniquely identified by the precise time of"
^DD(3.07,.001,21,2,0)="entry into programmer mode."
^DD(3.07,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(3.07,.01,1,0)="^.1^^0"
^DD(3.07,.01,3)=""
^DD(3.07,.01,21,0)="^^1^1^2911209^^^"
^DD(3.07,.01,21,1,0)="This field identifies the user by means of a pointer to the New Person File."
^DD(3.07,.01,"DT")="2890908"
^DD(3.07,1,0)="UCI^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(3.07,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(3.07,1,21,0)="^^2^2^2890124^"
^DD(3.07,1,21,1,0)="This field identifies the UCI account location of the entry into"
^DD(3.07,1,21,2,0)="programmer mode."
^DD(3.07,2,0)="CPU^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(3.07,2,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(3.07,2,21,0)="^^2^2^2890124^"
^DD(3.07,2,21,1,0)="This field identifies the CPU/Volume Set location of the entry into"
^DD(3.07,2,21,2,0)="programmer mode."
^DD(3.07,3,0)="USER NUMBER^CJ8^^ ; ^S Y(3.07,3,1)=$S($D(^%ZUA(3.07,D0,0)):^(0),1:"""") S X=$P(Y(3.07,3,1),U,1),X=X"
^DD(3.07,3,9)="^"
^DD(3.07,3,9.01)="3.07^.01"
^DD(3.07,3,9.1)="INTERNAL(USER)"
^DD(3.07,3,21,0)="^^2^2^2890124^"
^DD(3.07,3,21,1,0)="This field retrieves the user number from the User File to facilitate"
^DD(3.07,3,21,2,0)="report display."
^DD(3.07,4,0)="USER NAME^CJ8^^ ; ^X ^DD(3.07,4,9.3) S X=$S(Y(3.07,4,2):Y(3.07,4,3),Y(3.07,4,4):X)"
^DD(3.07,4,9)="^"
^DD(3.07,4,9.01)="3.07^.01;3.07^1"
^DD(3.07,4,9.1)="$S(PARAM(""CURRENT"")=UCI:USER,1:"""")"
^DD(3.07,4,9.2)="S Y(3.07,4,1)=$S($D(^%ZUA(3.07,D0,0)):^(0),1:"""") S X=""CURRENT"",X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""") S X=X=$P(Y(3.07,4,1),U,2)"
^DD(3.07,4,9.3)="X ^DD(3.07,4,9.2) S Y(3.07,4,2)=X S X=$S('$D(^VA(200,+$P(Y(3.07,4,1),U,1),0)):"""",1:$P(^(0),U,1)),Y(3.07,4,3)=X S X=1,Y(3.07,4,4)=X S X="""""
^DD(3.07,4,21,0)="^^3^3^2911212^^"
^DD(3.07,4,21,1,0)="A computed field to give the name of the person that switched into"
^DD(3.07,4,21,2,0)="Programmer mode, only if it was in the current UCI. Returns empty string"
^DD(3.07,4,21,3,0)="otherwise."
^DD(3.07,4,"DT")="2890908"
^DD(3.07,"B","CPU",2)=""
^DD(3.07,"B","DATE/TIME",.001)=""
^DD(3.07,"B","UCI",1)=""
^DD(3.07,"B","USER",.01)=""
^DD(3.07,"B","USER NAME",4)=""
^DD(3.07,"B","USER NUMBER",3)=""
^DD(3.07,"GL",0,1,.01)=""
^DD(3.07,"GL",0,2,1)=""
^DD(3.07,"GL",0,3,2)=""
^DD(3.07,"RQ",.01)=""
^DD(3.075,0)="FIELD^^1^3"
^DD(3.075,0,"DT")="2940811"
^DD(3.075,0,"IX","B",3.075,.01)=""
^DD(3.075,0,"NM","ERROR LOG")=""
^DD(3.075,0,"VR")="8.0"
^DD(3.075,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.075,.01,0)="$H DATE^RF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(3.075,.01,1,0)="^.1"
^DD(3.075,.01,1,1,0)="3.075^B"
^DD(3.075,.01,1,1,1)="S ^%ZTER(1,""B"",$E(X,1,30),DA)="""""
^DD(3.075,.01,1,1,2)="K ^%ZTER(1,""B"",$E(X,1,30),DA)"
^DD(3.075,.01,3)="This is the date part only of the $H value at the time the error was logged"
^DD(3.075,.01,21,0)="^^3^3^2930402^^^^"
^DD(3.075,.01,21,1,0)="This is the first level separator for different errors, grouping those"
^DD(3.075,.01,21,2,0)="errors which occured on a given date (as indicated by the day number"
^DD(3.075,.01,21,3,0)="part of the system variable $H)."
^DD(3.075,.01,23,0)="^^1^1^2930402^^^^"
^DD(3.075,.01,23,1,0)="This is +$H for the $H value at the time the error was logged."
^DD(3.075,.01,"DT")="2891218"
^DD(3.075,.02,0)="NUMBER OF ERRORS RECORDED^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.075,.02,3)="This is the number of errors which have been recorded on the date"
^DD(3.075,.02,21,0)="^^1^1^2930402^^^^"
^DD(3.075,.02,21,1,0)="This field contains a count of the errors logged on the date indicated."
^DD(3.075,.02,"DT")="2891218"
^DD(3.075,1,0)="ERROR NUMBER^3.0751A^^1;0"
^DD(3.075,1,21,0)="^^2^2^2930402^^^"
^DD(3.075,1,21,1,0)="This multiple field contains the sequential error numbers for the order in"
^DD(3.075,1,21,2,0)="which the errors were logged on the date specified."
^DD(3.075,"B","$H DATE",.01)=""
^DD(3.075,"B","ERROR NUMBER",1)=""
^DD(3.075,"B","NUMBER OF ERRORS RECORDED",.02)=""
^DD(3.075,"GL",0,1,.01)=""
^DD(3.075,"GL",0,2,.02)=""
^DD(3.075,"GL",1,0,1)=""
^DD(3.075,"IX",.01)=""
^DD(3.075,"RQ",.01)=""
^DD(3.075,"SB",3.0751,1)=""
^DD(3.0751,0)="ERROR NUMBER SUB-FIELD^^10^25"
^DD(3.0751,0,"DT")="2940811"
^DD(3.0751,0,"IX","B",3.0751,.01)=""
^DD(3.0751,0,"NM","ERROR NUMBER")=""
^DD(3.0751,0,"UP")="3.075"
^DD(3.0751,.01,0)="ERROR NUMBER^MRNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.0751,.01,1,0)="^.1"
^DD(3.0751,.01,1,1,0)="3.0751^B"
^DD(3.0751,.01,1,1,1)="S ^%ZTER(1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(3.0751,.01,1,1,2)="K ^%ZTER(1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(3.0751,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(3.0751,.01,21,0)="^^2^2^2930402^^^^"
^DD(3.0751,.01,21,1,0)="This is the sequential error number for the order in which the errors"
^DD(3.0751,.01,21,2,0)="were logged on the date specified."
^DD(3.0751,.01,"DT")="2891218"
^DD(3.0751,1,0)="ERROR TEXT^RF^^ZE;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(3.0751,1,3)="This is the actual text of the error message"
^DD(3.0751,1,9)="@"
^DD(3.0751,1,21,0)="^^2^2^2930402^^^"
^DD(3.0751,1,21,1,0)="This field contains the text of the actual error $ZE passed by the"
^DD(3.0751,1,21,2,0)="operating system."
^DD(3.0751,1,"DT")="2891218"
^DD(3.0751,2,0)="$H VALUE^F^^H;1^K:$L(X)>20!($L(X)<1) X"
^DD(3.0751,2,3)="This is the complete $H value at the time of the error"
^DD(3.0751,2,21,0)="^^3^3^2930402^^"
^DD(3.0751,2,21,1,0)="This field contains the value of $H at the time the error was being"
^DD(3.0751,2,21,2,0)="recorded, so that the complete date and time of the error can be"
^DD(3.0751,2,21,3,0)="displayed."
^DD(3.0751,2,"DT")="2891218"
^DD(3.0751,3,0)="LAST GLOBAL REFERENCE^F^^GR;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(3.0751,3,3)="The last global referenced by the job (if available) prior to the error"
^DD(3.0751,3,9)="@"
^DD(3.0751,3,21,0)="^^6^6^2930402^^"
^DD(3.0751,3,21,1,0)="This field contains the last global which was referenced, if available in"
^DD(3.0751,3,21,2,0)="the operating system, prior to entering the error trap.  If the error was"
^DD(3.0751,3,21,3,0)="trapped immediately into ERR^ZU (as established on entry to DHCP through"
^DD(3.0751,3,21,4,0)="ZU, then this is the last global referenced prior to or at the time of the"
^DD(3.0751,3,21,5,0)="error.  If an application traps the error prior to calling the error trap,"
^DD(3.0751,3,21,6,0)="this could be a global referenced by the application error trap."
^DD(3.0751,3,"DT")="2891218"
^DD(3.0751,4.01,0)="JOB NUMBER^F^^J;1^K:$L(X)>20!($L(X)<1) X"
^DD(3.0751,4.01,3)="This is the JOB number for the job at the time of the error"
^DD(3.0751,4.01,21,0)="^^1^1^2930402^^"
^DD(3.0751,4.01,21,1,0)="This field indicates the job number of the job which generated the error."
^DD(3.0751,4.01,"DT")="2891218"
^DD(3.0751,4.02,0)="PROCESS NAME^F^^J;2^K:$L(X)>30!($L(X)<1) X"
^DD(3.0751,4.02,3)="This is the Process Name associated with the process (if available)"
^DD(3.0751,4.02,21,0)="^^2^2^2930402^^"
^DD(3.0751,4.02,21,1,0)="If the process name is available within the operating system, this is the"
^DD(3.0751,4.02,21,2,0)="process name associated with the job at the time the error was generated."
^DD(3.0751,4.02,"DT")="2891218"
^DD(3.0751,4.03,0)="USER NAME^F^^J;3^K:$L(X)>30!($L(X)<1) X"
^DD(3.0751,4.03,3)="This is the USER NAME as identified by the system for this job (if available)"
^DD(3.0751,4.03,21,0)="^^3^3^2930402^^"
^DD(3.0751,4.03,21,1,0)="This is the name of the user at the time of the error if it was possible"
^DD(3.0751,4.03,21,2,0)="to determine the name either by the presence of XQUSER or from the value"
^DD(3.0751,4.03,21,3,0)="of DUZ at the time of the error."
^DD(3.0751,4.03,"DT")="2891218"
^DD(3.0751,4.04,0)="UCI,VOL^F^^J;4^K:$L(X)>20!($L(X)<1) X"
^DD(3.0751,4.04,3)="This is the UCI,VOL in which the job was running"
^DD(3.0751,4.04,21,0)="^^3^3^2930402^^"
^DD(3.0751,4.04,21,1,0)=" "
^DD(3.0751,4.04,21,2,0)="This field contains the UCI and VOL in which the job was running at the"
^DD(3.0751,4.04,21,3,0)="time the error was generated."
^DD(3.0751,4.04,"DT")="2891218"
^DD(3.0751,4.05,0)="JOB NUMBER(ALTERNATE)^F^^J;5^K:$L(X)>20!($L(X)<1) X"
^DD(3.0751,4.05,3)="This is the job number and on some systems is shown in HEXADECIMAL format"
^DD(3.0751,4.05,21,0)="^^3^3^2930402^^"
^DD(3.0751,4.05,21,1,0)="This field contains an alternate job number if the operating system"
^DD(3.0751,4.05,21,2,0)="provides one and it is appropriate for the job at the time the error"
^DD(3.0751,4.05,21,3,0)="occurred."
^DD(3.0751,4.05,"DT")="2891218"
^DD(3.0751,5.01,0)="CURRENT $IO^F^^I;1^K:$L(X)>25!($L(X)<1) X"
^DD(3.0751,5.01,3)="This is the current value of $I at the time the error was logged"
^DD(3.0751,5.01,21,0)="^^2^2^2930402^"
^DD(3.0751,5.01,21,1,0)="This field contains information on the current device, if any, which is"
^DD(3.0751,5.01,21,2,0)="open and in use."
^DD(3.0751,5.01,"DT")="2891218"
^DD(3.0751,5.02,0)="$ZA VALUE^F^^I;2^K:$L(X)>25!($L(X)<1) X"
^DD(3.0751,5.02,3)="This is the value of $ZA at the time the error was logged"
^DD(3.0751,5.02,21,0)="^^2^2^2930402^"
^DD(3.0751,5.02,21,1,0)="This is the value of the system variable $ZA if it is available in the"
^DD(3.0751,5.02,21,2,0)="operating system."
^DD(3.0751,5.02,"DT")="2891218"
^DD(3.0751,5.03,0)="$ZB VALUE^F^^I;3^K:$L(X)>30!($L(X)<1) X"
^DD(3.0751,5.03,3)="This is the value of $ZB at the time the error was logged"
^DD(3.0751,5.03,21,0)="^^3^3^2930402^"
^DD(3.0751,5.03,21,1,0)=" "
^DD(3.0751,5.03,21,2,0)="This field contains the value of the system variable $ZB at the time of"
^DD(3.0751,5.03,21,3,0)="the error if it is available on the current system."
^DD(3.0751,5.03,"DT")="2891218"
^DD(3.0751,5.04,0)="CURRENT $ZIO^F^^I;4^K:$L(X)>30!($L(X)<1) X"
^DD(3.0751,5.04,3)="This is the current value of $ZIO (if available) at the time the error was logged"
^DD(3.0751,5.04,21,0)="^^2^2^2930402^"
^DD(3.0751,5.04,21,1,0)="This field contains the value of the system variable $ZIO at the time of"
^DD(3.0751,5.04,21,2,0)="the error if it is available on the current system."
^DD(3.0751,5.04,"DT")="2891218"
^DD(3.0751,6.01,0)="CPU TIME^F^^ZH;1^K:$L(X)>20!($L(X)<1) X"
^DD(3.0751,6.01,3)="This is the CPU TIME logged by the job prior to the error"
^DD(3.0751,6.01,21,0)="^^2^2^2930402^"
^DD(3.0751,6.01,21,1,0)="This value, if present, is the amount of CPU time used by the current job"
^DD(3.0751,6.01,21,2,0)="at the time the error was logged."
^DD(3.0751,6.01,"DT")="2891218"
^DD(3.0751,6.03,0)="DATE/TIME STRING^F^^ZH;3^K:$L(X)>45!($L(X)<1) X"
^DD(3.0751,6.03,3)="This is the date and time string for when the error occurred"
^DD(3.0751,6.03,21,0)="^^3^3^2930402^"
^DD(3.0751,6.03,21,1,0)="This value, if present, contains a text string describing the date and"
^DD(3.0751,6.03,21,2,0)="time of the error."
^DD(3.0751,6.03,21,3,0)="f"
^DD(3.0751,6.03,"DT")="2891218"
^DD(3.0751,6.04,0)="PAGE FACTOR^F^^ZH;4^K:$L(X)>10!($L(X)<1) X"
^DD(3.0751,6.04,3)="This is the page factor value from the $ZH value"
^DD(3.0751,6.04,21,0)="^^2^2^2930402^"
^DD(3.0751,6.04,21,1,0)="This field, if present, contains information on the page factor supplied"
^DD(3.0751,6.04,21,2,0)="by the operating system."
^DD(3.0751,6.04,"DT")="2891218"
^DD(3.0751,6.07,0)="DIRECT I/O^F^^ZH;7^K:$L(X)>15!($L(X)<1) X"
^DD(3.0751,6.07,3)="This is a measure of the amount of direct input/output performed by the job"
^DD(3.0751,6.07,21,0)="^^3^3^2930402^"
^DD(3.0751,6.07,21,1,0)="This field, if present, contains a measure of direct (as opposed to"
^DD(3.0751,6.07,21,2,0)="buffered) input/output performed by the job up to the time the error was"
^DD(3.0751,6.07,21,3,0)="recorded."
^DD(3.0751,6.07,"DT")="2891218"
^DD(3.0751,6.08,0)="BUFFERED I/O^F^^ZH;8^K:$L(X)>15!($L(X)<1) X"
^DD(3.0751,6.08,3)="A measure of the amount of buffered input output performed by the job"
^DD(3.0751,6.08,21,0)="^^3^3^2930402^"
^DD(3.0751,6.08,21,1,0)="This field, if present, contains information provided by the operating"
^DD(3.0751,6.08,21,2,0)="system on the amount of buffered (as opposed to direct) input/output that"
^DD(3.0751,6.08,21,3,0)="the job had performed prior to the error being logged."
^DD(3.0751,6.08,"DT")="2891218"
^DD(3.0751,7,0)="ERROR WITHIN %ZTER TEXT^F^^ZE2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(3.0751,7,3)="This is the text generated by an error within the %ZTER error trap"
^DD(3.0751,7,9)="@"
^DD(3.0751,7,21,0)="^^4^4^2930402^"
^DD(3.0751,7,21,1,0)="This field provides the text of an error which occurred while the initial"
^DD(3.0751,7,21,2,0)="error was being logged.  An entry in this field indicates that part of the"
^DD(3.0751,7,21,3,0)="information on the original error may be missing due to the occurrence of"
^DD(3.0751,7,21,4,0)="the error indicated in this field."
^DD(3.0751,7,"DT")="2891219"
^DD(3.0751,8.01,0)="$ECODE^F^^ECODE;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.0751,8.01,3)="Answer must be 1-30 characters in length."
^DD(3.0751,8.01,"DT")="2940811"
^DD(3.0751,8.02,0)="$STACK^NJ3,0^^ECODE;2^K:+X'=X!(X>127)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.0751,8.02,3)="Type a Number between 0 and 127, 0 Decimal Digits"
^DD(3.0751,8.02,"DT")="2940811"
^DD(3.0751,8.03,0)="$ESTACK^NJ3,0^^ECODE;3^K:+X'=X!(X>127)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.0751,8.03,3)="Type a Number between 0 and 127, 0 Decimal Digits"
^DD(3.0751,8.03,"DT")="2940811"
^DD(3.0751,8.04,0)="$QUIT^NJ1,0^^ECODE;4^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.0751,8.04,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(3.0751,8.04,"DT")="2940811"
^DD(3.0751,9,0)="$STACK()^3.7519A^^STACK;0"
^DD(3.0751,10,0)="VARIABLES AND DATA^3.0752A^^ZV;0"
^DD(3.0751,10,21,0)="^^2^2^2930402^"
^DD(3.0751,10,21,1,0)="This is a multiple variable which is used to hold the variable names and"
^DD(3.0751,10,21,2,0)="the values associated with them at the time the error was logged."
^DD(3.0751,"B","$ECODE",8.01)=""
^DD(3.0751,"B","$ESTACK",8.03)=""
^DD(3.0751,"B","$H VALUE",2)=""
^DD(3.0751,"B","$QUIT",8.04)=""
^DD(3.0751,"B","$STACK",8.02)=""
^DD(3.0751,"B","$STACK()",9)=""
^DD(3.0751,"B","$ZA VALUE",5.02)=""
^DD(3.0751,"B","$ZB VALUE",5.03)=""
^DD(3.0751,"B","BUFFERED I/O",6.08)=""
^DD(3.0751,"B","CPU TIME",6.01)=""
^DD(3.0751,"B","CURRENT $IO",5.01)=""
^DD(3.0751,"B","CURRENT $ZIO",5.04)=""
^DD(3.0751,"B","DATE/TIME STRING",6.03)=""
^DD(3.0751,"B","DIRECT I/O",6.07)=""
^DD(3.0751,"B","ERROR NUMBER",.01)=""
^DD(3.0751,"B","ERROR TEXT",1)=""
^DD(3.0751,"B","ERROR WITHIN %ZTER TEXT",7)=""
^DD(3.0751,"B","JOB NUMBER",4.01)=""
^DD(3.0751,"B","JOB NUMBER(ALTERNATE)",4.05)=""
^DD(3.0751,"B","LAST GLOBAL REFERENCE",3)=""
^DD(3.0751,"B","PAGE FACTOR",6.04)=""
^DD(3.0751,"B","PROCESS NAME",4.02)=""
^DD(3.0751,"B","UCI,VOL",4.04)=""
^DD(3.0751,"B","USER NAME",4.03)=""
^DD(3.0751,"B","VARIABLES AND DATA",10)=""
^DD(3.0751,"GL",0,1,.01)=""
^DD(3.0751,"GL","ECODE",1,8.01)=""
^DD(3.0751,"GL","ECODE",2,8.02)=""
^DD(3.0751,"GL","ECODE",3,8.03)=""
^DD(3.0751,"GL","ECODE",4,8.04)=""
^DD(3.0751,"GL","GR","E1,245",3)=""
^DD(3.0751,"GL","H",1,2)=""
^DD(3.0751,"GL","I",1,5.01)=""
^DD(3.0751,"GL","I",2,5.02)=""
^DD(3.0751,"GL","I",3,5.03)=""
^DD(3.0751,"GL","I",4,5.04)=""
^DD(3.0751,"GL","J",1,4.01)=""
^DD(3.0751,"GL","J",2,4.02)=""
^DD(3.0751,"GL","J",3,4.03)=""
^DD(3.0751,"GL","J",4,4.04)=""
^DD(3.0751,"GL","J",5,4.05)=""
^DD(3.0751,"GL","STACK",0,9)=""
^DD(3.0751,"GL","ZE","E1,245",1)=""
^DD(3.0751,"GL","ZE2","E1,245",7)=""
^DD(3.0751,"GL","ZH",1,6.01)=""
^DD(3.0751,"GL","ZH",3,6.03)=""
^DD(3.0751,"GL","ZH",4,6.04)=""
^DD(3.0751,"GL","ZH",7,6.07)=""
^DD(3.0751,"GL","ZH",8,6.08)=""
^DD(3.0751,"GL","ZV",0,10)=""
^DD(3.0751,"IX",.01)=""
^DD(3.0751,"RQ",.01)=""
^DD(3.0751,"RQ",1)=""
^DD(3.0751,"SB",3.0752,10)=""
^DD(3.0751,"SB",3.7519,9)=""
^DD(3.0752,0)="VARIABLES AND DATA SUB-FIELD^^1^2"
^DD(3.0752,0,"DT")="2891218"
^DD(3.0752,0,"IX","B",3.0752,.01)=""
^DD(3.0752,0,"NM","VARIABLES AND DATA")=""
^DD(3.0752,0,"UP")="3.0751"
^DD(3.0752,.01,0)="VARIABLE NAME^MF^^0;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(3.0752,.01,1,0)="^.1"
^DD(3.0752,.01,1,1,0)="3.0752^B"
^DD(3.0752,.01,1,1,1)="S ^%ZTER(1,DA(2),1,DA(1),""ZV"",""B"",$E(X,1,30),DA)="""""
^DD(3.0752,.01,1,1,2)="K ^%ZTER(1,DA(2),1,DA(1),""ZV"",""B"",$E(X,1,30),DA)"
^DD(3.0752,.01,3)="This is a variable name"
^DD(3.0752,.01,9)="@"
^DD(3.0752,.01,21,0)="^^2^2^2930407^"
^DD(3.0752,.01,21,1,0)="This field contains the name of one of the variables present at the time"
^DD(3.0752,.01,21,2,0)="that the error was logged."
^DD(3.0752,.01,"DT")="2891218"
^DD(3.0752,1,0)="DATA VALUE^F^^D;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(3.0752,1,3)="This is the data value associated with the variable"
^DD(3.0752,1,9)="@"
^DD(3.0752,1,21,0)="^^2^2^2930407^"
^DD(3.0752,1,21,1,0)="This is the value of the companion variable name at the time the error"
^DD(3.0752,1,21,2,0)="was logged."
^DD(3.0752,1,"DT")="2891218"
^DD(3.0752,"B","DATA VALUE",1)=""
^DD(3.0752,"B","VARIABLE NAME",.01)=""
^DD(3.0752,"GL",0,"E1,245",.01)=""
^DD(3.0752,"GL","D","E1,245",1)=""
^DD(3.0752,"IX",.01)=""
^DD(3.076,0)="FIELD^^3^8"
^DD(3.076,0,"DT")="2970423"
^DD(3.076,0,"ID","W2")="D:$D(^(2)) EN^DDIOL($E(^(2),1,50),"""",""?35"")"
^DD(3.076,0,"IX","AC",3.076,.03)=""
^DD(3.076,0,"IX","B",3.076,.01)=""
^DD(3.076,0,"NM","ERROR MESSAGES")=""
^DD(3.076,0,"VR")="8.0"
^DD(3.076,0,"VRPK")="XU"
^DD(3.076,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(3.076,.01,1,0)="^.1"
^DD(3.076,.01,1,1,0)="3.076^B"
^DD(3.076,.01,1,1,1)="S ^%ZTER(2,""B"",$E(X,1,30),DA)="""""
^DD(3.076,.01,1,1,2)="K ^%ZTER(2,""B"",$E(X,1,30),DA)"
^DD(3.076,.01,3)="Answer must be 3-30 characters in length."
^DD(3.076,.01,21,0)="^^2^2^2930402^"
^DD(3.076,.01,21,1,0)="This field contains the brief name for an error used by one or more"
^DD(3.076,.01,21,2,0)="operating systems (e.g., UNDEF for an undefined error)"
^DD(3.076,.01,"DEL",1,0)="I $P(^%ZTER(2,DA,0),U,5)"
^DD(3.076,.01,"DT")="2901121"
^DD(3.076,.02,0)="ERROR TYPE^RS^F:FATAL;H:HARDWARE;I:IO/DEVICE;P:PROGRAM;D:DATA;L:LOCAL;^0;2^Q"
^DD(3.076,.02,3)="This entry indicates the type of error represented to provide some indication of whether continuation would be feasible."
^DD(3.076,.02,21,0)="^^3^3^2930402^"
^DD(3.076,.02,21,1,0)="This field attempts to indicate the primary responsibility for an error,"
^DD(3.076,.02,21,2,0)="such as hardware, or software, since this affects the extent of"
^DD(3.076,.02,21,3,0)="recoverability from an error."
^DD(3.076,.02,"DT")="2970422"
^DD(3.076,.03,0)="SCREEN IN XTER^S^1:Don't show;2:Don't record;^0;3^Q"
^DD(3.076,.03,1,0)="^.1"
^DD(3.076,.03,1,1,0)="3.076^AC"
^DD(3.076,.03,1,1,1)="S ^%ZTER(2,""AC"",$E(X,1,30),DA)="""""
^DD(3.076,.03,1,1,2)="K ^%ZTER(2,""AC"",$E(X,1,30),DA)"
^DD(3.076,.03,1,1,3)="Used by XTER."
^DD(3.076,.03,1,1,"%D",0)="^^2^2^2970421^"
^DD(3.076,.03,1,1,"%D",1,0)="This X-ref is used by XTER and %ZTER to screen out the recording "
^DD(3.076,.03,1,1,"%D",2,0)="and display of errors."
^DD(3.076,.03,1,1,"DT")="2970421"
^DD(3.076,.03,21,0)="^^3^3^2970324^"
^DD(3.076,.03,21,1,0)="This field is used to mark errors that should be screened in one way or"
^DD(3.076,.03,21,2,0)="another. If blank show and record error, 1 record but don't show in XTER"
^DD(3.076,.03,21,3,0)="in default mode, 2 don't record."
^DD(3.076,.03,"DT")="2970421"
^DD(3.076,.04,0)="COUNT SCREENED ERRORS^S^0:No;1:Yes;^0;4^Q"
^DD(3.076,.04,21,0)="^^1^1^2970422^"
^DD(3.076,.04,21,1,0)="This field turns one the counting of the screening of this error."
^DD(3.076,.04,"DT")="2970422"
^DD(3.076,.05,0)="National^S^1:Yes;^0;5^Q"
^DD(3.076,.05,9)="^"
^DD(3.076,.05,21,0)="^^3^3^2970423^"
^DD(3.076,.05,21,1,0)="This field should only be used by the National developers."
^DD(3.076,.05,21,2,0)="This is to GUARANTEE that certain ones are in the file."
^DD(3.076,.05,21,3,0)="These entries can't be deleted."
^DD(3.076,.05,"DT")="2970423"
^DD(3.076,1,0)="OPERATING SYSTEM NUMBER^3.0761A^^1;0"
^DD(3.076,1,21,0)="^^2^2^2930402^"
^DD(3.076,1,21,1,0)="This is a multiple field which is used to indicate which operating"
^DD(3.076,1,21,2,0)="system(s) use a given brief name for an error."
^DD(3.076,2,0)="ALTERNATIVE SCREENING TEXT^F^^2;E1,50^K:$L(X)>50!($L(X)<1) X"
^DD(3.076,2,3)="Answer must be 1-50 characters in length."
^DD(3.076,2,21,0)="^^4^4^2970422^"
^DD(3.076,2,21,1,0)="If you need to screen errors on text that can not be placed in the .01"
^DD(3.076,2,21,2,0)="field than use a local name for the .01 and enter the real screening text"
^DD(3.076,2,21,3,0)="in this field.  This field will allow ^ and other characters that cannot"
^DD(3.076,2,21,4,0)="be placed in the .01 field."
^DD(3.076,2,"DT")="2970422"
^DD(3.076,3,0)="COUNT OF SCREENED ERRORS^NJ5,0^^3;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.076,3,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(3.076,3,21,0)="^^2^2^2970422^"
^DD(3.076,3,21,1,0)="This field holds a count of the number of times this error was screen from"
^DD(3.076,3,21,2,0)="being recorded in the error trap."
^DD(3.076,3,"DT")="2970422"
^DD(3.076,"B","ALTERNATIVE SCREENING TEXT",2)=""
^DD(3.076,"B","COUNT OF SCREENED ERRORS",3)=""
^DD(3.076,"B","COUNT SCREENED ERRORS",.04)=""
^DD(3.076,"B","ERROR TYPE",.02)=""
^DD(3.076,"B","NAME",.01)=""
^DD(3.076,"B","National",.05)=""
^DD(3.076,"B","OPERATING SYSTEM NUMBER",1)=""
^DD(3.076,"B","SCREEN IN XTER",.03)=""
^DD(3.076,"GL",0,1,.01)=""
^DD(3.076,"GL",0,2,.02)=""
^DD(3.076,"GL",0,3,.03)=""
^DD(3.076,"GL",0,4,.04)=""
^DD(3.076,"GL",0,5,.05)=""
^DD(3.076,"GL",1,0,1)=""
^DD(3.076,"GL",2,"E1,50",2)=""
^DD(3.076,"GL",3,1,3)=""
^DD(3.076,"IX",.01)=""
^DD(3.076,"IX",.03)=""
^DD(3.076,"RQ",.01)=""
^DD(3.076,"RQ",.02)=""
^DD(3.076,"SB",3.0761,1)=""
^DD(3.0761,0)="OPERATING SYSTEM NUMBER SUB-FIELD^^.01^1"
^DD(3.0761,0,"DT")="2901121"
^DD(3.0761,0,"IX","B",3.0761,.01)=""
^DD(3.0761,0,"NM","OPERATING SYSTEM NUMBER")=""
^DD(3.0761,0,"UP")="3.076"
^DD(3.0761,.01,0)="OPERATING SYSTEM NUMBER^NJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.0761,.01,1,0)="^.1"
^DD(3.0761,.01,1,1,0)="3.0761^B"
^DD(3.0761,.01,1,1,1)="S ^%ZTER(2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(3.0761,.01,1,1,2)="K ^%ZTER(2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(3.0761,.01,3)="Enter the operating system number (second piece of ^%ZOSF(""OS"")) associated with this error message"
^DD(3.0761,.01,21,0)="^^2^2^2930402^"
^DD(3.0761,.01,21,1,0)="This is an operating system which uses the brief name to describe an error"
^DD(3.0761,.01,21,2,0)="of this type."
^DD(3.0761,.01,"DT")="2901121"
^DD(3.0761,"B","OPERATING SYSTEM NUMBER",.01)=""
^DD(3.0761,"GL",0,1,.01)=""
^DD(3.0761,"IX",.01)=""
^DD(3.081,0)="FIELD^^99^21"
^DD(3.081,0,"DDA")="N"
^DD(3.081,0,"DIK")="XUCT03"
^DD(3.081,0,"DIKOLD")="XUCT03"
^DD(3.081,0,"DT")="3021023"
^DD(3.081,0,"IX","AC",3.081,3)=""
^DD(3.081,0,"IX","AC2",3.081,3)=""
^DD(3.081,0,"IX","AC3",3.081,3)=""
^DD(3.081,0,"IX","ALDEV",3.081,5)=""
^DD(3.081,0,"IX","AS1",3.081,11)=""
^DD(3.081,0,"IX","AS2",3.081,12)=""
^DD(3.081,0,"IX","AS3",3.081,11)=""
^DD(3.081,0,"IX","CUR",3.081,.01)=""
^DD(3.081,0,"NM","SIGN-ON LOG")=""
^DD(3.081,0,"VR")="8.0"
^DD(3.081,0,"VRPK")="XU"
^DD(3.081,.001,0)="DATE/TIME^D^^ ^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.081,.001,21,0)="^^3^3^3030326^"
^DD(3.081,.001,21,1,0)="This is the date/time that the user signed on."
^DD(3.081,.001,21,2,0)="Two allow more than one sign-on per second the time may have values that "
^DD(3.081,.001,21,3,0)="show hundredth of a second."
^DD(3.081,.001,"DT")="3030326"
^DD(3.081,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(3.081,.01,1,0)="^.1"
^DD(3.081,.01,1,1,0)="3.081^CUR^MUMPS"
^DD(3.081,.01,1,1,1)="S ^XUSEC(0,""CUR"",$E(X,1,30),DA)="""""
^DD(3.081,.01,1,1,2)="K ^XUSEC(0,""CUR"",$E(X,1,30),DA)"
^DD(3.081,.01,3)=""
^DD(3.081,.01,8.5)="#"
^DD(3.081,.01,9)="#"
^DD(3.081,.01,10)="SIGN-ON SYSTEM"
^DD(3.081,.01,21,0)="^^1^1^2920528^^^"
^DD(3.081,.01,21,1,0)="This is the user that signed on."
^DD(3.081,.01,"DT")="2910618"
^DD(3.081,1,0)="DEVICE $I^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(3.081,1,3)="Answer must be 1-30 characters in length."
^DD(3.081,1,21,0)="^^1^1^3030326^"
^DD(3.081,1,21,1,0)="This is the device $I that the user signed on to."
^DD(3.081,1,"DT")="3030326"
^DD(3.081,2,0)="JOB^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.081,2,3)="$J (PARTITION NUMBER) OF SIGN-ON"
^DD(3.081,2,21,0)="1^^1^1^2920528^^^"
^DD(3.081,2,21,1,0)="This is the job number of the user's job."
^DD(3.081,3,0)="SIGNOFF TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.081,3,1,0)="^.1"
^DD(3.081,3,1,1,0)="3.081^AC^MUMPS"
^DD(3.081,3,1,1,1)="K ^XUSEC(0,""CUR"",+^XUSEC(0,DA,0),DA)"
^DD(3.081,3,1,1,2)="Q"
^DD(3.081,3,1,1,3)="The CUR x-ref."
^DD(3.081,3,1,1,"%D",0)="^^2^2^2920528^"
^DD(3.081,3,1,1,"%D",1,0)="This X-ref clears ^XUSEC(0,'CUR' that keeps a list of user sign-ons"
^DD(3.081,3,1,1,"%D",2,0)="that is used by the FIND USER option."
^DD(3.081,3,1,2,0)="3.081^AC2^MUMPS"
^DD(3.081,3,1,2,1)="N % S %=^XUSEC(0,DA,0) K:$L($P(%,U,11)) ^XUSEC(0,""AS1"",$P($P(%,U,11),"":""),DA) K:$L($P(%,U,12)) ^XUSEC(0,""AS2"",$P($P(%,U,12),"":""),DA)"
^DD(3.081,3,1,2,2)="Q"
^DD(3.081,3,1,2,3)="Remove the 'AS1' and 'AS2' x-ref"
^DD(3.081,3,1,2,"%D",0)="^^2^2^2970128^"
^DD(3.081,3,1,2,"%D",1,0)="This cross-reference removes the 'AS1' and 'AS2' indexs when the signoff"
^DD(3.081,3,1,2,"%D",2,0)="time is entered."
^DD(3.081,3,1,2,"DT")="2970128"
^DD(3.081,3,1,3,0)="3.081^AC3^MUMPS"
^DD(3.081,3,1,3,1)="N % S %=^XUSEC(0,DA,0) I $L($P(%,U,11)) K ^XUSEC(0,""AS3"",$P(%,U),$P($P(%,U,11),"":""),DA)"
^DD(3.081,3,1,3,2)="Q"
^DD(3.081,3,1,3,3)="Remove the AS3 x-ref"
^DD(3.081,3,1,3,"%D",0)="^.101^2^2^3021021^^"
^DD(3.081,3,1,3,"%D",1,0)="The cross reference removes the AS3 entry when the user is signed off."
^DD(3.081,3,1,3,"%D",2,0)="See field #11 for more info."
^DD(3.081,3,1,3,"DT")="3021021"
^DD(3.081,3,21,0)="^^1^1^2920528^^"
^DD(3.081,3,21,1,0)="This is the time that the user signed-off through H^XUS."
^DD(3.081,3,"DT")="3021021"
^DD(3.081,4,0)="CPU^F^^0;5^K:$L(X)>16!($L(X)<1) X"
^DD(3.081,4,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(3.081,4,21,0)="^^1^1^2920528^^^"
^DD(3.081,4,21,1,0)="This is the name of the CPU the user signed on to."
^DD(3.081,4,"DT")="2841005"
^DD(3.081,5,0)="DEVICE^P3.5'^%ZIS(1,^0;7^Q"
^DD(3.081,5,1,0)="^.1"
^DD(3.081,5,1,1,0)="3.081^ALDEV^MUMPS"
^DD(3.081,5,1,1,1)="S ^XUSEC(0,""ALDEV"",X)=+^XUSEC(0,DA,0)"
^DD(3.081,5,1,1,2)="Q"
^DD(3.081,5,1,1,3)="ALDEV"
^DD(3.081,5,1,1,"%D",0)="^^3^3^2920528^"
^DD(3.081,5,1,1,"%D",1,0)="The 'ALDEV' X-ref is used to tell which user last sign-on to this"
^DD(3.081,5,1,1,"%D",2,0)="device and the X-ref is not killed.  At the most there would be one entry"
^DD(3.081,5,1,1,"%D",3,0)="for each entry in the device file."
^DD(3.081,5,21,0)="^^7^7^3030326^"
^DD(3.081,5,21,1,0)="This is a pointer to the Device file showing which device the user"
^DD(3.081,5,21,2,0)="signed-on to. "
^DD(3.081,5,21,3,0)="With network devices this is not a very useful field anymore."
^DD(3.081,5,21,4,0)=" "
^DD(3.081,5,21,5,0)="The 'ALDEV' X-ref is used to tell which user last sign-on to this"
^DD(3.081,5,21,6,0)="device and the X-ref is not killed.  At the most there would be one entry "
^DD(3.081,5,21,7,0)="for each entry in the device file."
^DD(3.081,5,"DT")="3030326"
^DD(3.081,6,0)="UCI^F^^0;8^K:$L(X)>8!($L(X)<1) X"
^DD(3.081,6,3)="Answer with the UCI the user signed into."
^DD(3.081,6,21,0)="^^1^1^2920528^^"
^DD(3.081,6,21,1,0)="This field records the UCI account area where the user had signed on."
^DD(3.081,6,"DT")="2880701"
^DD(3.081,7,0)="TASK?^S^1:TASK;^0;6^Q"
^DD(3.081,7,.1)="Was this entry made by TaskMan?"
^DD(3.081,7,3)="This field should never be filled in by a user."
^DD(3.081,7,21,0)="^^4^4^3030326^"
^DD(3.081,7,21,1,0)="This field is set to 1 for entries that are created by TaskMan.  A field"
^DD(3.081,7,21,2,0)="in the Kernel Site Parameters file can be used to make TaskMan ""log"
^DD(3.081,7,21,3,0)="sign-ons"" for tasks.  When that feature is active, TaskMan makes an entry"
^DD(3.081,7,21,4,0)="in this file every time it runs a task."
^DD(3.081,7,"DT")="3030326"
^DD(3.081,9,0)="$ZIO (optional)^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(3.081,9,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(3.081,9,21,0)="^^3^3^2920528^^^"
^DD(3.081,9,21,1,0)="On a system with terminal servers this may be the port and server"
^DD(3.081,9,21,2,0)="that the user is signed-on to.  It can provide information not contained"
^DD(3.081,9,21,3,0)="in $I."
^DD(3.081,9,"DT")="2880801"
^DD(3.081,10,0)="NODE NAME^F^^0;10^K:$L(X)>15!($L(X)<2) X"
^DD(3.081,10,3)="Answer must be 2-15 characters in length."
^DD(3.081,10,21,0)="^^2^2^3030326^"
^DD(3.081,10,21,1,0)="The VAX/VMS cluster node name or system name on other systems."
^DD(3.081,10,21,2,0)="Comes from the GETENV^%ZOSV api."
^DD(3.081,10,23,0)="^^1^1^2891013^^"
^DD(3.081,10,23,1,0)="This is the 4th piece of $ZC(%GETSYI)."
^DD(3.081,10,"DT")="3030326"
^DD(3.081,11,0)="IP ADDRESS^F^^0;11^K:$L(X)>20!($L(X)<7)!'(X?1.3N1P1.3N1P1.3N1P1.3N.E) X"
^DD(3.081,11,1,0)="^.1"
^DD(3.081,11,1,1,0)="3.081^AS1^MUMPS"
^DD(3.081,11,1,1,1)="S:'$P(^XUSEC(0,DA,0),U,4) ^XUSEC(0,""AS1"",$P(X,"":""),DA)="""""
^DD(3.081,11,1,1,2)="K ^XUSEC(0,""AS1"",$P(X,"":""),DA)"
^DD(3.081,11,1,1,3)="For Single sign-on"
^DD(3.081,11,1,1,"%D",0)="^^1^1^2970210^^"
^DD(3.081,11,1,1,"%D",1,0)="This index builds a list of IP addresses that the user may be at."
^DD(3.081,11,1,1,"DT")="2970210"
^DD(3.081,11,1,2,0)="3.081^AS3^MUMPS"
^DD(3.081,11,1,2,1)="N % S %=^XUSEC(0,DA,0) I '$P(%,U,4) S ^XUSEC(0,""AS3"",$P(%,U),$P(X,"":""),DA)="""""
^DD(3.081,11,1,2,2)="N % S %=^XUSEC(0,DA,0) K ^XUSEC(0,""AS3"",$P(%,U),$P(X,"":""),DA)"
^DD(3.081,11,1,2,3)="Multi sign-on control"
^DD(3.081,11,1,2,"%D",0)="^.101^3^3^3021021^^"
^DD(3.081,11,1,2,"%D",1,0)="This cross reference builds a list of the IP or DNS name used by a device."
^DD(3.081,11,1,2,"%D",2,0)="This is used to limit users to multiple sign-on from one IP address."
^DD(3.081,11,1,2,"%D",3,0)="The X-ref in by DUZ,IP,DA."
^DD(3.081,11,1,2,"DT")="3021021"
^DD(3.081,11,3)="IP address, Answer must be 7-20 characters in length."
^DD(3.081,11,21,0)="^^3^3^2970117^"
^DD(3.081,11,21,1,0)="This field holds the IP address of the calling system."
^DD(3.081,11,21,2,0)="Note that under DHCP IP address are dynamically allocated so more that one"
^DD(3.081,11,21,3,0)="client could have used the same IP address over some time period."
^DD(3.081,11,"DT")="3021021"
^DD(3.081,12,0)="WORKSTATION NAME^F^^0;12^K:$L(X)>20!($L(X)<3) X"
^DD(3.081,12,1,0)="^.1"
^DD(3.081,12,1,1,0)="3.081^AS2^MUMPS"
^DD(3.081,12,1,1,1)="S:'$P(^XUSEC(0,DA,0),U,4) ^XUSEC(0,""AS2"",$P(X,"":""),DA)="""""
^DD(3.081,12,1,1,2)="K ^XUSEC(0,""AS2"",$P(X,"":""),DA)"
^DD(3.081,12,1,1,3)="For single sign-on"
^DD(3.081,12,1,1,"%D",0)="^^1^1^2970210^^^"
^DD(3.081,12,1,1,"%D",1,0)="This index builds a list of WORKSTATION names that the user may be at."
^DD(3.081,12,1,1,"DT")="2970210"
^DD(3.081,12,3)="Answer must be 3-20 characters in length."
^DD(3.081,12,21,0)="^^2^2^2970117^"
^DD(3.081,12,21,1,0)="This field holds the workstation name if it has been provide by the"
^DD(3.081,12,21,2,0)="underlaying OS or as part of a RPCBroker signon."
^DD(3.081,12,"DT")="2970210"
^DD(3.081,13,0)="AUTO SIGNON HANDLE^F^^0;13^K:$L(X)>15!($L(X)<7) X"
^DD(3.081,13,3)="Answer must be 7-15 characters in length."
^DD(3.081,13,21,0)="^^2^2^2991213^"
^DD(3.081,13,21,1,0)="This field is used internally by the Kernel Auto Sign-on code to store the"
^DD(3.081,13,21,2,0)="handle returned by the ClientAgent on the users system."
^DD(3.081,13,"DT")="2991213"
^DD(3.081,14,0)="REMOTE STATION ID^F^^0;14^K:$L(X)>6!($L(X)<3) X"
^DD(3.081,14,3)="Answer must be 3-6 characters in length."
^DD(3.081,14,21,0)="^^5^5^3000208^"
^DD(3.081,14,21,1,0)="This field holds the station id (station #) of a remote site that did the"
^DD(3.081,14,21,2,0)="user authentication. Having this field filled in implies that the user did"
^DD(3.081,14,21,3,0)="not sign-on to the local system but was authenticated at some remote site"
^DD(3.081,14,21,4,0)="that has requested data or services from this system.  The Enterprise"
^DD(3.081,14,21,5,0)="Single Sign-on, and the CPRS remote patient data projects use this field."
^DD(3.081,14,"DT")="3000208"
^DD(3.081,15,0)="REMOTE USER IEN^NJ9,0^^0;15^K:+X'=X!(X>999999999)!(X<.5)!(X?.E1"".""1N.N) X"
^DD(3.081,15,3)="Type a Number between .5 and 999999999, 0 Decimal Digits"
^DD(3.081,15,21,0)="^^6^6^3000208^"
^DD(3.081,15,21,1,0)="This field holds the user IEN of a remote user that was authenticated at a"
^DD(3.081,15,21,2,0)="remote site (field #14)."
^DD(3.081,15,21,3,0)="Having this field filled in implies that the user did not sign-on to the"
^DD(3.081,15,21,4,0)="local system but was authenticated at some remote site that has requested"
^DD(3.081,15,21,5,0)="data or services from this system.  The Enterprise Single Sign-on, and the"
^DD(3.081,15,21,6,0)="CPRS remote patient data projects use this field."
^DD(3.081,15,"DT")="3000208"
^DD(3.081,16,0)="FORCE CLOSE^S^0:No;1:Yes;^0;16^Q"
^DD(3.081,16,21,0)="^^4^4^3030326^"
^DD(3.081,16,21,1,0)="This field is a flag to indicate that the sign-on record was closed by"
^DD(3.081,16,21,2,0)="some action other than a normal sign-off. IRM used the 'Release User'"
^DD(3.081,16,21,3,0)="option.  The nightly cleanup job closed the record because it was open to"
^DD(3.081,16,21,4,0)="long."
^DD(3.081,16,"DT")="3030326"
^DD(3.081,60,0)="CPU^F^^0;5^K:$L(X)>16!($L(X)<1) X"
^DD(3.081,60,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(3.081,60,21,0)="^^1^1^2920528^^^"
^DD(3.081,60,21,1,0)="This is the name of the CPU the user signed on to."
^DD(3.081,60,"DT")="2841005"
^DD(3.081,97,0)="ELAPSED TIME (SECONDS)^CJ8^^ ; ^X ^DD(3.081,97,9.4) S X=$S(Y(3.081,97,5):Y(3.081,97,6),Y(3.081,97,7):X) S Y=X,X=Y(3.081,97,3),X=X_Y"
^DD(3.081,97,9)="^"
^DD(3.081,97,9.01)="3.081^16;3.081^3;3.081^.001"
^DD(3.081,97,9.1)="XUDELTATIME(#.001,#3)_$S(INTERNAL(#16):""*"",1:"" "")"
^DD(3.081,97,9.2)="S Y(3.081,97,2)=$S($D(^XUSEC(0,D0,0)):^(0),1:"""") S X=$S('$D(D0):"""",D0<0:"""",1:D0),Y(3.081,97,1)=X S X=$P(Y(3.081,97,2),U,4)"
^DD(3.081,97,9.3)="X ^DD(3.081,97,9.2) S X1=Y(3.081,97,1) S X=$S(X&X1:X,1:"""") Q:'X  D H^%DTC S XUS1=%H*86400+%T,X=X1 D H^%DTC S XUS2=%H*86400+%T,X=$S(XUS1>XUS2:XUS1-XUS2,1:XUS2-XUS1) S X=X"
^DD(3.081,97,9.4)="X ^DD(3.081,97,9.3) S Y(3.081,97,3)=X,Y(3.081,97,4)=X S X=$P(Y(3.081,97,2),U,16),X=X S X=X,Y(3.081,97,5)=X S X=""*"",Y(3.081,97,6)=X S X=1,Y(3.081,97,7)=X S X="" """
^DD(3.081,97,21,0)="^^2^2^2920528^^"
^DD(3.081,97,21,1,0)="This field calculates the number of seconds between sign-on time"
^DD(3.081,97,21,2,0)="and sign-off time."
^DD(3.081,97,"DT")="3021114"
^DD(3.081,98,0)="LOCATION^CJ15^^ ; ^X ^DD(3.081,98,9.2) S Y(3.081,98,101)=$S($D(^%ZIS(1,D0,1)):^(1),1:"""") S X=$P(Y(3.081,98,101),U,1) S D0=Y(3.081,98,80)"
^DD(3.081,98,9)="^"
^DD(3.081,98,9.01)="3.5^.02;3.081^5"
^DD(3.081,98,9.1)="DEVICE:LOCATION"
^DD(3.081,98,9.2)="S Y(3.081,98,80)=$S($D(D0):D0,1:""""),Y(3.081,98,1)=$S($D(^XUSEC(0,D0,0)):^(0),1:""""),D0=$P(Y(3.081,98,1),U,7) S:'$D(^%ZIS(1,+D0,0)) D0=-1"
^DD(3.081,98,21,0)="^^1^1^2920528^^"
^DD(3.081,98,21,1,0)="This is the location of the device which was used to sign on."
^DD(3.081,98,"DT")="2931216"
^DD(3.081,99,0)="ELAPSED TIME (MINUTES)^CJ8^^ ; ^X ^DD(3.081,99,9.4) S X=$S(Y(3.081,99,5):Y(3.081,99,6),Y(3.081,99,7):X) S Y=X,X=Y(3.081,99,3),X=X_Y"
^DD(3.081,99,9)="^"
^DD(3.081,99,9.01)="3.081^16;3.081^.001;3.081^3"
^DD(3.081,99,9.1)="MINUTES(#3,#.001)_$S(INTERNAL(#16):""*"",1:"" "")"
^DD(3.081,99,9.2)="S Y(3.081,99,1)=$S($D(^XUSEC(0,D0,0)):^(0),1:"""") S X=$P(Y(3.081,99,1),U,4),Y(3.081,99,2)=X S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DD(3.081,99,9.3)="X ^DD(3.081,99,9.2) S X1=Y(3.081,99,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y S X=X"
^DD(3.081,99,9.4)="X ^DD(3.081,99,9.3) S Y(3.081,99,3)=X,Y(3.081,99,4)=X S X=$P(Y(3.081,99,1),U,16),X=X S X=X,Y(3.081,99,5)=X S X=""*"",Y(3.081,99,6)=X S X=1,Y(3.081,99,7)=X S X="" """
^DD(3.081,99,21,0)="^^1^1^2920528^^"
^DD(3.081,99,21,1,0)="This is the amount of time the user has been signed on."
^DD(3.081,"B","$ZIO (optional)",9)=""
^DD(3.081,"B","AUTO SIGNON HANDLE",13)=""
^DD(3.081,"B","CPU",4)=""
^DD(3.081,"B","CPU",60)=""
^DD(3.081,"B","DATE/TIME",.001)=""
^DD(3.081,"B","DEVICE",5)=""
^DD(3.081,"B","DEVICE $I",1)=""
^DD(3.081,"B","ELAPSED TIME (MINUTES)",99)=""
^DD(3.081,"B","ELAPSED TIME (SECONDS)",97)=""
^DD(3.081,"B","FORCE CLOSE",16)=""
^DD(3.081,"B","IP ADDRESS",11)=""
^DD(3.081,"B","JOB",2)=""
^DD(3.081,"B","LOCATION",98)=""
^DD(3.081,"B","NODE NAME",10)=""
^DD(3.081,"B","REMOTE STATION ID",14)=""
^DD(3.081,"B","REMOTE USER IEN",15)=""
^DD(3.081,"B","SIGNOFF TIME",3)=""
^DD(3.081,"B","TASK?",7)=""
^DD(3.081,"B","UCI",6)=""
^DD(3.081,"B","USER",.01)=""
^DD(3.081,"B","WORKSTATION NAME",12)=""
^DD(3.081,"GL",0,1,.01)=""
^DD(3.081,"GL",0,2,1)=""
^DD(3.081,"GL",0,3,2)=""
^DD(3.081,"GL",0,4,3)=""
^DD(3.081,"GL",0,5,4)=""
^DD(3.081,"GL",0,5,60)=""
^DD(3.081,"GL",0,6,7)=""
^DD(3.081,"GL",0,7,5)=""
^DD(3.081,"GL",0,8,6)=""
^DD(3.081,"GL",0,9,9)=""
^DD(3.081,"GL",0,10,10)=""
^DD(3.081,"GL",0,11,11)=""
^DD(3.081,"GL",0,12,12)=""
^DD(3.081,"GL",0,13,13)=""
^DD(3.081,"GL",0,14,14)=""
^DD(3.081,"GL",0,15,15)=""
^DD(3.081,"GL",0,16,16)=""
^DD(3.081,"IX",.01)=""
^DD(3.081,"IX",3)=""
^DD(3.081,"IX",5)=""
^DD(3.081,"IX",11)=""
^DD(3.081,"IX",12)=""
^DD(3.081,"RQ",.01)=""
^DD(3.083,0)="FIELD^^2^2"
^DD(3.083,0,"DDA")="N"
^DD(3.083,0,"DT")="3030306"
^DD(3.083,0,"IX","B",3.083,.01)=""
^DD(3.083,0,"NM","LOCKED IP or DEVICE")=""
^DD(3.083,0,"VR")="8.0"
^DD(3.083,0,"VRPK")="XU"
^DD(3.083,.01,0)="LOCKED IP/DEVICE^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(3.083,.01,1,0)="^.1"
^DD(3.083,.01,1,1,0)="3.083^B"
^DD(3.083,.01,1,1,1)="S ^XUSEC(3,""B"",$E(X,1,30),DA)="""""
^DD(3.083,.01,1,1,2)="K ^XUSEC(3,""B"",$E(X,1,30),DA)"
^DD(3.083,.01,3)="Answer must be 3-40 characters in length."
^DD(3.083,.01,21,0)="^^2^2^3030306^"
^DD(3.083,.01,21,1,0)="This field holds a list of IP's or Device ID's that have been locked."
^DD(3.083,.01,21,2,0)="These are cleaned up automatically."
^DD(3.083,.01,"DT")="3030306"
^DD(3.083,2,0)="LOCKED UNTIL^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.083,2,21,0)="^^2^2^3030306^"
^DD(3.083,2,21,1,0)="This field holds the fileman date/time that this IP should be locked "
^DD(3.083,2,21,2,0)="until."
^DD(3.083,2,"DT")="3030306"
^DD(3.083,"B","LOCKED IP/DEVICE",.01)=""
^DD(3.083,"B","LOCKED UNTIL",2)=""
^DD(3.083,"GL",0,1,.01)=""
^DD(3.083,"GL",0,2,2)=""
^DD(3.083,"IX",.01)=""
^DD(3.083,"RQ",.01)=""
^DD(3.083,"RQ",2)=""
^DD(3.084,0)="FIELD^^3^3"
^DD(3.084,0,"DDA")="N"
^DD(3.084,0,"DT")="3030715"
^DD(3.084,0,"IX","B",3.084,.01)=""
^DD(3.084,0,"NM","FAILED SIGNON ATTEMPTS")=""
^DD(3.084,0,"VR")="8.0"
^DD(3.084,0,"VRPK")="XU"
^DD(3.084,.01,0)="IP or DEVICE^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(3.084,.01,1,0)="^.1"
^DD(3.084,.01,1,1,0)="3.084^B"
^DD(3.084,.01,1,1,1)="S ^XUSEC(4,""B"",$E(X,1,30),DA)="""""
^DD(3.084,.01,1,1,2)="K ^XUSEC(4,""B"",$E(X,1,30),DA)"
^DD(3.084,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(3.084,2,0)="ATTEMPT COUNT^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.084,2,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(3.084,2,21,0)="^^2^2^3030714^"
^DD(3.084,2,21,1,0)="This field keeps track of the count of failed signon attempts from a"
^DD(3.084,2,21,2,0)="given device or IP address."
^DD(3.084,2,"DT")="3030714"
^DD(3.084,3,0)="HOROLOG OF LAST UPDATE^F^^0;3^K:$L(X)>12!($L(X)<4) X"
^DD(3.084,3,3)="Answer with current $H value."
^DD(3.084,3,21,0)="^^2^2^3030715^"
^DD(3.084,3,21,1,0)="This field holds the $H value of the last time this record was updated so "
^DD(3.084,3,21,2,0)="we can know when to clear it out."
^DD(3.084,3,"DT")="3030715"
^DD(3.084,"B","ATTEMPT COUNT",2)=""
^DD(3.084,"B","HOROLOG OF LAST UPDATE",3)=""
^DD(3.084,"B","IP or DEVICE",.01)=""
^DD(3.084,"GL",0,1,.01)=""
^DD(3.084,"GL",0,2,2)=""
^DD(3.084,"GL",0,3,3)=""
^DD(3.084,"IX",.01)=""
^DD(3.084,"RQ",.01)=""
^DD(3.1,0)="FIELD^NL^.01^1"
^DD(3.1,0,"DDA")="N"
^DD(3.1,0,"IX","B",3.1,.01)=""
^DD(3.1,0,"NM","TITLE")=""
^DD(3.1,0,"PT",200,8)=""
^DD(3.1,0,"PT",413.3,1)=""
^DD(3.1,0,"PT",742.4,.07)=""
^DD(3.1,0,"VR")="8.0"
^DD(3.1,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.1,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(3.1,.01,1,0)="^.1"
^DD(3.1,.01,1,1,0)="3.1^B"
^DD(3.1,.01,1,1,1)="S ^DIC(3.1,""B"",$E(X,1,30),DA)="""""
^DD(3.1,.01,1,1,2)="K ^DIC(3.1,""B"",$E(X,1,30),DA)"
^DD(3.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(3.1,.01,"DT")="2841004"
^DD(3.1,"B","NAME",.01)=""
^DD(3.1,"GL",0,1,.01)=""
^DD(3.1,"IX",.01)=""
^DD(3.1,"RQ",.01)=""
^DD(3.2,0)="FIELD^NL^1925^156"
^DD(3.2,0,"DDA")="N"
^DD(3.2,0,"DT")="2941209"
^DD(3.2,0,"ID","W99")="N % S %=$P($G(^(9)),U,1) D:$L(%) EN^DDIOL(""  ""_%,"""",$S($S($X>30:$X,1:30)+$L(%)>76:""!?8"",1:""?30""))"
^DD(3.2,0,"IX","B",3.2,.01)=""
^DD(3.2,0,"IX","B",3.2,1925)=""
^DD(3.2,0,"NM","TERMINAL TYPE")=""
^DD(3.2,0,"PT",3.23,3)=""
^DD(3.2,0,"PT",3.5,3)=""
^DD(3.2,0,"PT",3.5,23)=""
^DD(3.2,0,"PT",43.077,.01)=""
^DD(3.2,0,"PT",200,9.3)=""
^DD(3.2,0,"PT",200,8983.13)=""
^DD(3.2,0,"PT",357.94,.01)=""
^DD(3.2,0,"VR")="8.0"
^DD(3.2,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X'?1.2U1""-"".UNP) X"
^DD(3.2,.01,1,0)="^.1"
^DD(3.2,.01,1,1,0)="3.2^B"
^DD(3.2,.01,1,1,1)="S ^%ZIS(2,""B"",$E(X,1,30),DA)="""""
^DD(3.2,.01,1,1,2)="K ^%ZIS(2,""B"",$E(X,1,30),DA)"
^DD(3.2,.01,3)="Answer must be 1-2 uppercase, 1 ""-"", 1-27 characters. (3-30 char.)"
^DD(3.2,.01,21,0)="^^5^5^2920515^^^^"
^DD(3.2,.01,21,1,0)="Name should be in following form:"
^DD(3.2,.01,21,2,0)="  C-    for video terminals"
^DD(3.2,.01,21,3,0)="  PK-   for printers with keyboards"
^DD(3.2,.01,21,4,0)="  P-    for printers without keyboards"
^DD(3.2,.01,21,5,0)="  M-    for modems"
^DD(3.2,.01,"DT")="2890310"
^DD(3.2,.02,0)="SELECTABLE AT SIGN-ON^S^0:NO;1:YES;^0;2^Q"
^DD(3.2,.02,3)="Is this an acceptable terminal type to choose at sign-on."
^DD(3.2,.02,21,0)="^^2^2^2920515^^"
^DD(3.2,.02,21,1,0)="This field is used to screan the choices that can be made at the "
^DD(3.2,.02,21,2,0)="DEVICE TYPE question during sign-on."
^DD(3.2,.02,"DT")="2890824"
^DD(3.2,1,0)="RIGHT MARGIN^RNJ3,0^^1;1^K:+X'=X!(X>256)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.2,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 256"
^DD(3.2,1,21,0)="^^1^1^2920515^^^"
^DD(3.2,1,21,1,0)="This is the number of characters wide this device is."
^DD(3.2,2,0)="FORM FEED^RF^^1;2^D CHECK^%ZISS1,FORM^%ZISS1 K:$L(X)>70!($L(X)<1) X"
^DD(3.2,2,3)="ARGUMENT OF MUMPS 'WRITE' TO CLEAR SCREEN OR GO TO TOP-OF-PAGE"
^DD(3.2,2,21,0)="^^3^3^2930329^^^^"
^DD(3.2,2,21,1,0)="The argument of a MUMPS WRITE statement that will set the top-of-form for"
^DD(3.2,2,21,2,0)="the use of tractor-feed paper on a printer, or will clear the screen of a"
^DD(3.2,2,21,3,0)="video display terminal.                                  "
^DD(3.2,3,0)="PAGE LENGTH^RNJ5,0^^1;3^K:+X'=X!(X>65500)!(X<3)!(X?.E1"".""1.N) X"
^DD(3.2,3,3)="Type a number between 3 and 65500, 0 Decimal Digits"
^DD(3.2,3,21,0)="^^1^1^3041221^"
^DD(3.2,3,21,1,0)="This is the number of usable lines on the output device."
^DD(3.2,3,"DT")="3041221"
^DD(3.2,4,0)="BACK SPACE^F^^1;4^D CHECK^%ZISS1 K:$L(X)>9!($L(X)<1) X"
^DD(3.2,4,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(3.2,4,21,0)="^^2^2^2920515^^^"
^DD(3.2,4,21,1,0)="The argument of a MUMPS WRITE statement which will cause"
^DD(3.2,4,21,2,0)="the cursor to Back-Space."
^DD(3.2,4,"DT")="2851003"
^DD(3.2,5,0)="*OLD XY CRT^KI^^1;5^D CHECK1^%ZISS1 K:$L(X)>100!($L(X)<2) X D ^DIM:$D(X)"
^DD(3.2,5,3)="ANSWER MUST BE 2-100 CHARACTERS IN LENGTH"
^DD(3.2,5,5,1,0)="3.2^5.2^1"
^DD(3.2,5,9)="@"
^DD(3.2,5,21,0)="^^2^2^2920515^^^^"
^DD(3.2,5,21,1,0)="This is the Xecutable MUMPS code which places the cursor at"
^DD(3.2,5,21,2,0)="a XY location."
^DD(3.2,5,"DT")="2900605"
^DD(3.2,5.2,0)="XY CRT^K^^XY;E1,245^D CHECK1^%ZISS1 K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,5.2,1,0)="^.1"
^DD(3.2,5.2,1,1,0)="^^TRIGGER^3.2^5"
^DD(3.2,5.2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(3.2,5.2,1,1,1.4)"
^DD(3.2,5.2,1,1,1.4)="S DIH=$S($D(^%ZIS(2,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=3.2,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.2,5.2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$S($D(^%ZIS(2,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=3.2,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.2,5.2,1,1,3)="FOR DATA CONVERSION"
^DD(3.2,5.2,1,1,"%D",0)="^^1^1^2920706^"
^DD(3.2,5.2,1,1,"%D",1,0)="This is a temporary trigger to phase out the old xy crt field."
^DD(3.2,5.2,1,1,"CREATE VALUE")="#5.2"
^DD(3.2,5.2,1,1,"DELETE VALUE")="@"
^DD(3.2,5.2,1,1,"DT")="2900605"
^DD(3.2,5.2,1,1,"FIELD")="#5"
^DD(3.2,5.2,3)="This is Standard MUMPS code."
^DD(3.2,5.2,9)="@"
^DD(3.2,5.2,21,0)="^^2^2^2920515^^^^"
^DD(3.2,5.2,21,1,0)="This is the Xecutable MUMPS code which places the cursor at"
^DD(3.2,5.2,21,2,0)="a XY location."
^DD(3.2,5.2,"DT")="2900605"
^DD(3.2,6,0)="OPEN EXECUTE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,6,3)="XECUTABLE MUMPS CODE"
^DD(3.2,6,9)="@"
^DD(3.2,6,21,0)="^^2^2^2920515^^^^"
^DD(3.2,6,21,1,0)="This is the Xecutable MUMPS code which is used by %ZIS to"
^DD(3.2,6,21,2,0)="OPEN the terminal."
^DD(3.2,6.1,0)="OPEN EXECUTE DESCRIPTION^3.206^^W6;0"
^DD(3.2,7,0)="CLOSE EXECUTE^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,7,3)="XECUTABLE MUMPS CODE"
^DD(3.2,7,9)="@"
^DD(3.2,7,21,0)="^^2^2^2920515^^^^"
^DD(3.2,7,21,1,0)="This is the Xecutable MUMPS code which is used to CLOSE the"
^DD(3.2,7,21,2,0)="terminal, i.e. X ^%ZIS(""C"")."
^DD(3.2,8,0)="ONLINE CHECK^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,8,3)="XECUTABLE MUMPS CODE"
^DD(3.2,8,9)="@"
^DD(3.2,8,21,0)="^^2^2^2920515^^^"
^DD(3.2,8,21,1,0)="This is the Xecutable MUMPS code which is used by %ZIS during the"
^DD(3.2,8,21,2,0)="OPENing of the terminal to see if the device is On-Line."
^DD(3.2,10,0)="10 PITCH^FX^^5;1^D CHECK^%ZISS1 K:$L(X)>25 X"
^DD(3.2,10,3)="ARGUMENT OF MUMPS 'WRITE' TO SET DEVICE TO 10 CHARACTERS PER INCH DISPLAY"
^DD(3.2,10,21,0)="^^1^1^2920515^^^"
^DD(3.2,10,21,1,0)="The argument of a MUMPS WRITE statement that will set a printer to 10 pitch."
^DD(3.2,10,"DT")="2840210"
^DD(3.2,12,0)="12 PITCH^FX^^5;2^D CHECK^%ZISS1 K:$L(X)>25 X"
^DD(3.2,12,3)="ARGUMENT OF MUMPS 'WRITE' TO SET DEVICE TO 12 CHARACTERS PER INCH"
^DD(3.2,12,21,0)="^^1^1^2920515^^"
^DD(3.2,12,21,1,0)="The argument of a MUMPS WRITE statement that will set a printer to 12 pitch."
^DD(3.2,12,"DT")="2840210"
^DD(3.2,12.1,0)="16 PITCH^FX^^12.1;E1,250^D CHECK^%ZISS1 K:$L(X)>25 X"
^DD(3.2,12.1,3)="ARGUMENT OF MUMPS 'WRITE' TO SET DEVICE TO 16 CHARACTERS PER INCH DISPLAY"
^DD(3.2,12.1,9)="@"
^DD(3.2,12.1,21,0)="^^1^1^2920515^^^"
^DD(3.2,12.1,21,1,0)="The argument of a MUMPS WRITE statement that will set a printer to 16 pitch."
^DD(3.2,12.1,"DT")="2840210"
^DD(3.2,12.11,0)="DEFAULT PITCH^F^^12.11;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,12.11,3)="Answer must be 2-245 characters in length."
^DD(3.2,12.11,9)="@"
^DD(3.2,12.11,21,0)="^^2^2^2920515^^"
^DD(3.2,12.11,21,1,0)="The argument of a MUMPS WRITE statement that will set a printer"
^DD(3.2,12.11,21,2,0)="to a default pitch."
^DD(3.2,12.11,"DT")="2901018"
^DD(3.2,12.12,0)="X PITCH^F^^12.12;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,12.12,3)="Answer must be 2-245 characters in length."
^DD(3.2,12.12,9)="@"
^DD(3.2,12.12,21,0)="^^2^2^2920515^^"
^DD(3.2,12.12,21,1,0)="The argument of a MUMPS WRITE statement that will use the value"
^DD(3.2,12.12,21,2,0)="in the variable X to set the characters per inch display of a printer."
^DD(3.2,12.12,"DT")="2901018"
^DD(3.2,12.13,0)="6 LINES PER INCH^F^^12.13;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,12.13,3)="Answer must be 2-245 characters in length."
^DD(3.2,12.13,9)="@"
^DD(3.2,12.13,21,0)="^^2^2^2920515^^"
^DD(3.2,12.13,21,1,0)="The argument of a MUMPS WRITE statement that will set a printer"
^DD(3.2,12.13,21,2,0)="to 6 lines per inch."
^DD(3.2,12.13,"DT")="2901018"
^DD(3.2,12.14,0)="8 LINES PER INCH^F^^12.14;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,12.14,3)="Answer must be 2-245 characters in length."
^DD(3.2,12.14,9)="@"
^DD(3.2,12.14,21,0)="^^2^2^2920515^^"
^DD(3.2,12.14,21,1,0)="The argument of a MUMPS WRITE statement that will set the printer"
^DD(3.2,12.14,21,2,0)="to 8 lines per inch."
^DD(3.2,12.14,"DT")="2901018"
^DD(3.2,12.15,0)="DEFAULT LINES PER INCH^F^^12.15;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,12.15,3)="Answer must be 2-245 characters in length."
^DD(3.2,12.15,9)="@"
^DD(3.2,12.15,21,0)="^^2^2^2920515^^"
^DD(3.2,12.15,21,1,0)="The argument of a MUMPS WRITE statement that will set the printer"
^DD(3.2,12.15,21,2,0)="to the default lines per inch."
^DD(3.2,12.15,"DT")="2901018"
^DD(3.2,12.16,0)="X LINES PER INCH^F^^12.16;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,12.16,3)="Answer must be 2-245 characters in length."
^DD(3.2,12.16,9)="@"
^DD(3.2,12.16,21,0)="^^2^2^2920515^^"
^DD(3.2,12.16,21,1,0)="The argument of a MUMPS WRITE statement that will use the value"
^DD(3.2,12.16,21,2,0)="in the variable X to set the lines per inch."
^DD(3.2,12.16,"DT")="2901018"
^DD(3.2,12.2,0)="QUALITY 0^F^^12.2;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<3) X"
^DD(3.2,12.2,3)="Answer must be 3-30 characters in length."
^DD(3.2,12.2,21,0)="^^2^2^2920515^^"
^DD(3.2,12.2,21,1,0)="The argument of a MUMPS WRITE statement that will turn on a specific"
^DD(3.2,12.2,21,2,0)="letter quality mode of a printer."
^DD(3.2,12.2,"DT")="2891121"
^DD(3.2,12.3,0)="QUALITY 1^F^^12.2;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<3) X"
^DD(3.2,12.3,3)="Answer must be 3-30 characters in length."
^DD(3.2,12.3,21,0)="^^2^2^2920515^^^"
^DD(3.2,12.3,21,1,0)="The argument of a MUMPS WRITE statement that will turn on a specific"
^DD(3.2,12.3,21,2,0)="letter quality mode of a printer."
^DD(3.2,12.3,"DT")="2891121"
^DD(3.2,12.4,0)="QUALITY 2^F^^12.2;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<3) X"
^DD(3.2,12.4,3)="Answer must be 3-30 characters in length."
^DD(3.2,12.4,21,0)="^^2^2^2920515^^"
^DD(3.2,12.4,21,1,0)="The argument of a MUMPS WRITE statement that will turn on a specific"
^DD(3.2,12.4,21,2,0)="letter quality mode of a printer."
^DD(3.2,12.4,"DT")="2891121"
^DD(3.2,13,0)="HOME CURSOR^FX^^5;3^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,13,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,13,21,0)="^^2^2^2920515^^^^"
^DD(3.2,13,21,1,0)="The argument of a MUMPS WRITE statement that will move the cursor"
^DD(3.2,13,21,2,0)="to the Home position of this terminal."
^DD(3.2,13,"DT")="2890524"
^DD(3.2,14,0)="REVERSE VIDEO ON^FX^^5;4^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,14,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,14,21,0)="^^2^2^2920515^^^"
^DD(3.2,14,21,1,0)="The argument of a MUMPS WRITE statement that will turn ON reverse"
^DD(3.2,14,21,2,0)="video on a CRT."
^DD(3.2,14,"DT")="2890524"
^DD(3.2,15,0)="REVERSE VIDEO OFF^FX^^5;5^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,15,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,15,21,0)="^^2^2^2920515^^^"
^DD(3.2,15,21,1,0)="The argument of a MUMPS WRITE statement that will turn OFF reverse"
^DD(3.2,15,21,2,0)="video on a CRT."
^DD(3.2,15,"DT")="2890524"
^DD(3.2,16,0)="ERASE TO END OF LINE^FX^^5;6^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,16,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,16,21,0)="^^2^2^2920515^^^^"
^DD(3.2,16,21,1,0)="The argument of a MUMPS WRITE statement which will erase from the"
^DD(3.2,16,21,2,0)="cursor to the end of the line on a CRT."
^DD(3.2,16,"DT")="2890524"
^DD(3.2,17,0)="ERASE TO END OF PAGE^FX^^5;7^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,17,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,17,21,0)="^^3^3^2920515^^^"
^DD(3.2,17,21,1,0)="The argument of a MUMPS WRITE statement which will erase from the"
^DD(3.2,17,21,2,0)="cursor to the end of the page on a CRT. Doing a HOME CURSOR followed"
^DD(3.2,17,21,3,0)="by an ERASE TO END OF PAGE will erase the entire display."
^DD(3.2,17,"DT")="2890524"
^DD(3.2,18,0)="BLINK ON^FX^^5;8^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,18,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,18,21,0)="^^2^2^2920515^^^^"
^DD(3.2,18,21,1,0)="The argument of a MUMPS WRITE statement which will turn ON blinking"
^DD(3.2,18,21,2,0)="for a CRT."
^DD(3.2,18,"DT")="2890524"
^DD(3.2,19,0)="BLINK OFF^FX^^5;9^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,19,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,19,21,0)="^^2^2^2920515^^^"
^DD(3.2,19,21,1,0)="The argument of a MUMPS WRITE statement which will turn OFF blinking"
^DD(3.2,19,21,2,0)="for a CRT."
^DD(3.2,19,"DT")="2890524"
^DD(3.2,20,0)="RESET^F^^6;1^D CHECK^%ZISS1 K:$L(X)>12!($L(X)<1) X"
^DD(3.2,20,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(3.2,20,21,0)="^^1^1^2920515^^"
^DD(3.2,20,21,1,0)="The argument of a MUMPS WRITE statement that will RESET the device."
^DD(3.2,20.5,0)="SGR ATTRIBUTES OFF^F^^6;8^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<1) X"
^DD(3.2,20.5,3)="Answer must be 1-20 characters in length."
^DD(3.2,20.5,21,0)="^^12^12^2920515^^^^"
^DD(3.2,20.5,21,1,0)="This is an argument of a MUMPS WRITE statement that will turn off"
^DD(3.2,20.5,21,2,0)="all attributes of SELECT GRAPHIC RENDITION."
^DD(3.2,20.5,21,3,0)=" "
^DD(3.2,20.5,21,4,0)="Some of the attributes of SELECT GRAPHIC RENDITION are"
^DD(3.2,20.5,21,5,0)=" "
^DD(3.2,20.5,21,6,0)="      o  Bold or increased intensity"
^DD(3.2,20.5,21,7,0)=" "
^DD(3.2,20.5,21,8,0)="      o  Underscore"
^DD(3.2,20.5,21,9,0)=" "
^DD(3.2,20.5,21,10,0)="      o  Blink"
^DD(3.2,20.5,21,11,0)=" "
^DD(3.2,20.5,21,12,0)="      o  Negative(reverse) image"
^DD(3.2,20.5,"DT")="2890726"
^DD(3.2,21,0)="HALF UP^F^^6;2^D CHECK^%ZISS1 K:$L(X)>12!($L(X)<1) X"
^DD(3.2,21,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(3.2,21,21,0)="^^2^2^2920515^^"
^DD(3.2,21,21,1,0)="The argument of a MUMPS WRITE statement that will move the print head"
^DD(3.2,21,21,2,0)="one-half line up (for superscripts)."
^DD(3.2,22,0)="HALF DOWN^F^^6;3^D CHECK^%ZISS1 K:$L(X)>12!($L(X)<1) X"
^DD(3.2,22,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(3.2,22,21,0)="^^2^2^2920515^^"
^DD(3.2,22,21,1,0)="The argument of a MUMPS WRITE statement that will move the print head"
^DD(3.2,22,21,2,0)="one-half line down (for subscripts)."
^DD(3.2,23,0)="UNDERLINE ON^FX^^6;4^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,23,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,23,21,0)="^^1^1^2920515^^^"
^DD(3.2,23,21,1,0)="The argument of a MUMPS WRITE statement that will turn ON underlineing."
^DD(3.2,23,"DT")="2890524"
^DD(3.2,24,0)="UNDERLINE OFF^FX^^6;5^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,24,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,24,21,0)="^^1^1^2920515^^^"
^DD(3.2,24,21,1,0)="The argument of a MUMPS WRITE statement that will turn OFF underlining."
^DD(3.2,24,"DT")="2890524"
^DD(3.2,25,0)="REVERSE LINE FEED^FX^^6;6^D CHECK^%ZISS1 K:$L(X)>20 X"
^DD(3.2,25,3)="ARGUMENT OF MUMPS 'WRITE' TO MOVE PRINTER UP ONE LINE"
^DD(3.2,25,21,0)="^^2^2^2920515^^^"
^DD(3.2,25,21,1,0)="The argument of a MUMPS WRITE statement that will set the terminal to"
^DD(3.2,25,21,2,0)="reverse line feed mode."
^DD(3.2,25,"DT")="2890524"
^DD(3.2,26,0)="PROPORTIONAL SPACING^FX^^6;7^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,26,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,26,21,0)="^^2^2^2920515^^^"
^DD(3.2,26,21,1,0)="The argument of a MUMPS WRITE statement that will turn on "
^DD(3.2,26,21,2,0)="proportional spacing for a printer."
^DD(3.2,26,"DT")="2890524"
^DD(3.2,27,0)="HIGH INTENSITY (BOLD)^FX^^7;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<1) X"
^DD(3.2,27,3)="ARGUMENT OF A MUMPS 'WRITE' COMMAND"
^DD(3.2,27,21,0)="^^3^3^2920515^^^^"
^DD(3.2,27,21,1,0)="The argument of a MUMPS WRITE statement that will turn ON high"
^DD(3.2,27,21,2,0)="intensity for a CRT.  This is also used to hold the code to set"
^DD(3.2,27,21,3,0)="a printer to BOLD or emphasize print."
^DD(3.2,27,"DT")="2890524"
^DD(3.2,28,0)="LOW INTENSITY (UNBOLD)^FX^^7;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<1) X"
^DD(3.2,28,3)="ARGUMENT OF A MUMPS 'WRITE' COMMAND"
^DD(3.2,28,21,0)="^^3^3^2920515^^^^"
^DD(3.2,28,21,1,0)="The argument of a MUMPS WRITE statement that will turn ON low"
^DD(3.2,28,21,2,0)="intensity for a CRT. This is also used to hold the code to set"
^DD(3.2,28,21,3,0)="a printer to REGULAR print."
^DD(3.2,28,"DT")="2890524"
^DD(3.2,29,0)="NORMAL INTENSITY (RESET)^F^^7;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<1) X"
^DD(3.2,29,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(3.2,29,21,0)="4^^3^3^2920515^^^"
^DD(3.2,29,21,1,0)="The argument of a MUMPS WRITE statement that will return a CRT to"
^DD(3.2,29,21,2,0)="its NORMAL (default) intensity.  If a printer were set to BOLD, this"
^DD(3.2,29,21,3,0)="code would reset the printer to its default setting."
^DD(3.2,29,"DT")="2860530"
^DD(3.2,30,0)="INSERT MODE^F^^7;4^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<1) X"
^DD(3.2,30,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(3.2,30,21,0)="^^2^2^2920515^^"
^DD(3.2,30,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,30,21,2,0)="insert mode."
^DD(3.2,30,"DT")="2880516"
^DD(3.2,31,0)="REPLACE MODE^F^^7;5^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<1) X"
^DD(3.2,31,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(3.2,31,21,0)="^^2^2^2920515^^"
^DD(3.2,31,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,31,21,2,0)="replace mode."
^DD(3.2,31,"DT")="2880516"
^DD(3.2,32,0)="ERASE FROM BEG OF PAGE^F^^13;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,32,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,32,21,0)="^^2^2^2920515^^"
^DD(3.2,32,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,32,21,2,0)="erasing from the beginning of the page."
^DD(3.2,32,"DT")="2880523"
^DD(3.2,33,0)="ERASE ENTIRE PAGE^F^^13;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,33,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,33,21,0)="^^2^2^2920515^^"
^DD(3.2,33,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,33,21,2,0)="erasing the entire page."
^DD(3.2,33,"DT")="2880523"
^DD(3.2,34,0)="ERASE FROM BEG OF LINE^F^^13;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,34,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,34,21,0)="^^2^2^2920515^^"
^DD(3.2,34,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,34,21,2,0)="erasing from the beginning of a line."
^DD(3.2,34,"DT")="2880523"
^DD(3.2,35,0)="ERASE ENTIRE LINE^F^^13;4^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,35,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,35,21,0)="^^2^2^2920515^^"
^DD(3.2,35,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,35,21,2,0)="erasing the entire line."
^DD(3.2,35,"DT")="2880523"
^DD(3.2,36,0)="ERASE CHARACTER^F^^13;5^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,36,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,36,21,0)="^^2^2^2920515^^^"
^DD(3.2,36,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,36,21,2,0)="erasing of a single character."
^DD(3.2,36,"DT")="2880523"
^DD(3.2,37,0)="ERASE FIELD^F^^13;6^D CHECK^%ZISS1 K:$L(X)>40!($L(X)<2) X"
^DD(3.2,37,3)="Answer must be 2-40 characters in length."
^DD(3.2,37,21,0)="^^2^2^2920515^^^^"
^DD(3.2,37,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,37,21,2,0)="the erasing of a field given the length of the field in varariable X."
^DD(3.2,37,"DT")="2890731"
^DD(3.2,40,0)="CURSOR UP^FX^^8;1^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,40,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,40,21,0)="^^2^2^2920515^^"
^DD(3.2,40,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,40,21,2,0)="upward movement of the cursor."
^DD(3.2,40,"DT")="2890524"
^DD(3.2,41,0)="CURSOR DOWN^FX^^8;2^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,41,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,41,21,0)="^^2^2^2920515^^^^"
^DD(3.2,41,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,41,21,2,0)="downward movement of the cursor."
^DD(3.2,41,"DT")="2890524"
^DD(3.2,42,0)="CURSOR RIGHT^FX^^8;3^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,42,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,42,21,0)="^^2^2^2920515^^"
^DD(3.2,42,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,42,21,2,0)="cursor movement to the right."
^DD(3.2,42,"DT")="2890524"
^DD(3.2,43,0)="CURSOR LEFT^FX^^8;4^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,43,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,43,21,0)="^^2^2^2920515^^"
^DD(3.2,43,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,43,21,2,0)="cursor movement to the left."
^DD(3.2,43,"DT")="2890524"
^DD(3.2,44,0)="ARROW KEY STRING LENGTH^NJ1,0^^8;5^K:+X'=X!(X>3)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.2,44,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 3"
^DD(3.2,44,21,0)="^^2^2^2920515^^^"
^DD(3.2,44,21,1,0)="The value that should be entered into this field should be the"
^DD(3.2,44,21,2,0)="number of characters produced by depressing an arrow key."
^DD(3.2,44,"DT")="2870601"
^DD(3.2,45,0)="DELETE LINE^FX^^8;6^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,45,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,45,21,0)="^^2^2^2920515^^"
^DD(3.2,45,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,45,21,2,0)="deletion of an entire line."
^DD(3.2,45,"DT")="2890524"
^DD(3.2,46,0)="INSERT LINE^FX^^8;7^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,46,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,46,21,0)="^^2^2^2920515^^"
^DD(3.2,46,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,46,21,2,0)="insertion of an entire line."
^DD(3.2,46,"DT")="2890524"
^DD(3.2,47,0)="DELETE CHAR.^FX^^8;8^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,47,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,47,21,0)="^^2^2^2920515^^"
^DD(3.2,47,21,1,0)="This is the argument of a MUMPS WRITE statement that will indicate"
^DD(3.2,47,21,2,0)="deletion of a single character."
^DD(3.2,47,"DT")="2890524"
^DD(3.2,48,0)="INSERT CHAR.^FX^^8;9^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,48,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(3.2,48,21,0)="^^2^2^2931109^^^"
^DD(3.2,48,21,1,0)="This is the argument of MUMPS WRITE statement that will indicate"
^DD(3.2,48,21,2,0)="insertion of a single character."
^DD(3.2,48,"DT")="2890524"
^DD(3.2,49,0)="CURSOR ON^FX^^8.1;1^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,49,3)="Answer must be 2-20 characters in length."
^DD(3.2,49,"DT")="2931109"
^DD(3.2,49.1,0)="CURSOR OFF^FX^^8.1;2^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,49.1,3)="Answer must be 2-20 characters in length."
^DD(3.2,49.1,"DT")="2931109"
^DD(3.2,50,0)="MODEM DIAL LOGIC^K^^50;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,50,3)="Executable code to dial the modem"
^DD(3.2,50,9)="@"
^DD(3.2,50,21,0)="^^5^5^2920515^^^^"
^DD(3.2,50,21,1,0)="This is Xecutable MUMPS code which is used whenever MailMan needs"
^DD(3.2,50,21,2,0)="to dial a modem. The variable XMPHONE holds the number to be dialed."
^DD(3.2,50,21,3,0)="The variable ER is 0 if the modem dialed successfully; is 1 otherwise."
^DD(3.2,50,21,4,0)="The variable Y, if defined, holds a message about the dial operation,"
^DD(3.2,50,21,5,0)="i.e. busy, no answer, etc."
^DD(3.2,50,"DT")="2840207"
^DD(3.2,51,0)="MODEM HANG UP LOGIC^K^^51;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,51,.1)="Executable code to hang up the phone line, if this is a modem"
^DD(3.2,51,3)="This is Standard MUMPS code."
^DD(3.2,51,9)="@"
^DD(3.2,51,21,0)="^^2^2^2920515^^^^"
^DD(3.2,51,21,1,0)="This is Xecutable MUMPS code which is used whenever MailMan needs"
^DD(3.2,51,21,2,0)="to hang up a modem.  Variable ER=0 if sucessful, =1 if not."
^DD(3.2,51,"DT")="2840207"
^DD(3.2,52,0)="MODEM STATUS LOGIC^F^^52;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(3.2,52,.1)="Executable code to return the status of the modem"
^DD(3.2,52,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(3.2,52,9)="@"
^DD(3.2,52,21,0)="^^4^4^2920515^^^"
^DD(3.2,52,21,1,0)="This is Xecutable MUMPS code which is used whenever MailMan needs"
^DD(3.2,52,21,2,0)="to check the status of a Modem. The variable Y holds the response."
^DD(3.2,52,21,3,0)="This logic is used by the network diagnostics menu only, and need"
^DD(3.2,52,21,4,0)="not be defined if the modem has no self-checking status mode."
^DD(3.2,55,0)="CONTROL CODES^3.2055^^55;0"
^DD(3.2,60,0)="BAR CODE ON^F^^BAR1;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,60,3)="ANSWER MUST BE 2-245 CHARACTERS IN LENGTH"
^DD(3.2,60,9)="@"
^DD(3.2,60,21,0)="^^2^2^2920515^^^"
^DD(3.2,60,21,1,0)="The argument of a MUMPS WRITE statement that will turn on bar code"
^DD(3.2,60,21,2,0)="printing mode of a device."
^DD(3.2,60,"DT")="2950614"
^DD(3.2,61,0)="BAR CODE OFF^F^^BAR0;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,61,3)="ANSWER MUST BE 2-245 CHARACTERS IN LENGTH"
^DD(3.2,61,9)="@"
^DD(3.2,61,21,0)="^^2^2^2920515^^"
^DD(3.2,61,21,1,0)="The argument of a MUMPS WRITE statement that will turn off bar code"
^DD(3.2,61,21,2,0)="printing mode of a device."
^DD(3.2,61,"DT")="2950614"
^DD(3.2,62,0)="RESERVED^F^^BARX;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,62,3)="ANSWER MUST BE 2-245 CHARACTERS IN LENGTH"
^DD(3.2,62,9)="@"
^DD(3.2,62,21,0)="^^1^1^2920515^^^"
^DD(3.2,62,21,1,0)="This field is reserved for additional bar code specifications."
^DD(3.2,62,"DT")="2880523"
^DD(3.2,65,0)="SUBSCRIPT ON^F^^SUB1;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,65,3)="Answer must be 2-245 characters in length."
^DD(3.2,65,9)="@"
^DD(3.2,65,21,0)="^^1^1^2920515^^"
^DD(3.2,65,21,1,0)="The argument of a MUMPS WRITE statement that will turn on SUBSCRIPT on the printer"
^DD(3.2,65,"DT")="2950614"
^DD(3.2,65.1,0)="SUBSCRIPT OFF^F^^SUB0;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,65.1,3)="Answer must be 2-245 characters in length."
^DD(3.2,65.1,9)="@"
^DD(3.2,65.1,21,0)="^^1^1^2920515^^"
^DD(3.2,65.1,21,1,0)="The argument of a MUMPS WRITE statement that will turn off SUBSCRIPT on the printer"
^DD(3.2,65.1,"DT")="2950614"
^DD(3.2,65.2,0)="SUPERSCRIPT ON^F^^SPR1;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,65.2,3)="Answer must be 2-245 characters in length."
^DD(3.2,65.2,9)="@"
^DD(3.2,65.2,21,0)="^^1^1^2920515^^"
^DD(3.2,65.2,21,1,0)="The argument of a MUMPS WRITE statement used to turn on SUPERSCRIPT on the printer."
^DD(3.2,65.2,"DT")="2950614"
^DD(3.2,65.3,0)="SUPERSCRIPT OFF^F^^SPR0;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,65.3,3)="Answer must be 2-245 characters in length."
^DD(3.2,65.3,9)="@"
^DD(3.2,65.3,21,0)="^^1^1^2920515^^"
^DD(3.2,65.3,21,1,0)="The argument of a MUMPS WRITE statement used to turn off SUPERSCRIPT on the printer."
^DD(3.2,65.3,"DT")="2950614"
^DD(3.2,66,0)="ITALICS ON^F^^I1;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,66,3)="Answer must be 2-245 characters in length."
^DD(3.2,66,9)="@"
^DD(3.2,66,21,0)="^^1^1^2920515^^"
^DD(3.2,66,21,1,0)="The argument of a MUMPS WRITE statement used to turn on ITALICS on the printer."
^DD(3.2,66,"DT")="2950614"
^DD(3.2,67,0)="ITALICS OFF^F^^I0;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(3.2,67,3)="Answer must be 2-245 characters in length."
^DD(3.2,67,9)="@"
^DD(3.2,67,21,0)="^^1^1^2920515^^"
^DD(3.2,67,21,1,0)="The argument of a MUMPS WRITE statement used to turn ITALICS on the printer."
^DD(3.2,67,"DT")="2950614"
^DD(3.2,67.21,0)="COLOR ON^F^^CLR1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(3.2,67.21,3)="Answer must be 1-245 characters in length."
^DD(3.2,67.21,21,0)="^^2^2^2941212^^"
^DD(3.2,67.21,21,1,0)="The argument of a MUMPS WRITE statement used to turn on COLOR"
^DD(3.2,67.21,21,2,0)="on the printer."
^DD(3.2,67.21,"DT")="2950614"
^DD(3.2,67.22,0)="COLOR OFF^F^^CLR0;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(3.2,67.22,3)="Answer must be 1-245 characters in length."
^DD(3.2,67.22,21,0)="^^2^2^2941212^"
^DD(3.2,67.22,21,1,0)="The argument of a MUMPS WRITE statement used to turn off COLOR"
^DD(3.2,67.22,21,2,0)="on the printer."
^DD(3.2,67.22,"DT")="2950614"
^DD(3.2,68,0)="GRAPHICS ON^F^^G1;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,68,3)="Answer must be 2-245 characters in length."
^DD(3.2,68,9)="@"
^DD(3.2,68,21,0)="^^1^1^2920515^^"
^DD(3.2,68,21,1,0)="The argument of a MUMPS WRITE statement used to turn on GRAPHICS mode on the printer."
^DD(3.2,68,"DT")="2901018"
^DD(3.2,69,0)="GRAPHICS OFF^F^^G0;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,69,3)="Answer must be 2-245 characters in length."
^DD(3.2,69,9)="@"
^DD(3.2,69,21,0)="^^1^1^2920515^^"
^DD(3.2,69,21,1,0)="The argument of a MUMPS WRITE statement used to turn off GRAPHICS mode on the printer."
^DD(3.2,69,"DT")="2901018"
^DD(3.2,69.11,0)="TOP LEFT CORNER^F^^G;1^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.11,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.11,21,0)="^^2^2^2920515^^^^"
^DD(3.2,69.11,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.11,21,2,0)="the TOP LEFT CORNER part of a window in graphics mode."
^DD(3.2,69.11,"DT")="2910505"
^DD(3.2,69.12,0)="BOTTOM LEFT CORNER^F^^G;2^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.12,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.12,21,0)="^^2^2^2920515^^^"
^DD(3.2,69.12,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.12,21,2,0)="the BOTTOM LEFT CORNER of a window in graphics mode."
^DD(3.2,69.12,"DT")="2910505"
^DD(3.2,69.13,0)="TOP RIGHT CORNER^F^^G;3^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.13,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.13,21,0)="^^2^2^2920515^^^"
^DD(3.2,69.13,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.13,21,2,0)="the TOP RIGHT CORNER of a window in graphics mode."
^DD(3.2,69.13,"DT")="2910505"
^DD(3.2,69.14,0)="BOTTOM RIGHT CORNER^F^^G;4^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.14,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.14,21,0)="^^2^2^2920515^^^"
^DD(3.2,69.14,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.14,21,2,0)="the BOTTOM RIGHT CORNER of a window in graphics mode."
^DD(3.2,69.14,"DT")="2910505"
^DD(3.2,69.2,0)="MIDDLE T^F^^G;5^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.2,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.2,21,0)="^^2^2^2920515^^^"
^DD(3.2,69.2,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.2,21,2,0)="the graphics T character that joins a four box window at the middle."
^DD(3.2,69.2,"DT")="2910505"
^DD(3.2,69.3,0)="TOP T^F^^G;6^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.3,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.3,21,0)="^^3^3^2920515^^^^"
^DD(3.2,69.3,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.3,21,2,0)="the perpendicular intersection of lines at the TOP middle"
^DD(3.2,69.3,21,3,0)="of a four box window."
^DD(3.2,69.3,"DT")="2910505"
^DD(3.2,69.4,0)="BOTTOM T^F^^G;7^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.4,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.4,21,0)="^^3^3^2920515^^^"
^DD(3.2,69.4,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.4,21,2,0)="the perpendicular intersection of lines at the BOTTOM middle"
^DD(3.2,69.4,21,3,0)="of a four box window."
^DD(3.2,69.4,"DT")="2910505"
^DD(3.2,69.5,0)="LEFT T^F^^G;8^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.5,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.5,21,0)="^^3^3^2920515^^^"
^DD(3.2,69.5,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.5,21,2,0)="the perpendicular intersection of lines at the LEFT middle"
^DD(3.2,69.5,21,3,0)="of a four box window."
^DD(3.2,69.5,"DT")="2910505"
^DD(3.2,69.6,0)="RIGHT T^F^^G;9^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.6,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.6,21,0)="^^3^3^2920515^^^"
^DD(3.2,69.6,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.6,21,2,0)="the perpendicular intersection of lines at the RIGHT middle"
^DD(3.2,69.6,21,3,0)="of a four box window."
^DD(3.2,69.6,"DT")="2910505"
^DD(3.2,69.7,0)="VERTICAL LINE^F^^G;10^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.7,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.7,21,0)="^^2^2^2920515^^^"
^DD(3.2,69.7,21,1,0)="The argument of a MUMPS WRITE statement used to that produce"
^DD(3.2,69.7,21,2,0)="the VERTICAL LINE in graphics mode."
^DD(3.2,69.7,"DT")="2910505"
^DD(3.2,69.8,0)="HORIZONTAL LINE^F^^G;11^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<3) X"
^DD(3.2,69.8,3)="Answer must be 3-20 characters in length."
^DD(3.2,69.8,21,0)="^^2^2^2920515^^^^"
^DD(3.2,69.8,21,1,0)="The argument of a MUMPS WRITE statement used to produce"
^DD(3.2,69.8,21,2,0)="the HORIZONTAL LINE in graphics mode."
^DD(3.2,69.8,"DT")="2910505"
^DD(3.2,70,0)="INDEX^F^^14;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,70,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,70,21,0)="^^4^4^2920515^^^"
^DD(3.2,70,21,1,0)="This is the argument of a MUMPS WRITE statement that will cause the"
^DD(3.2,70,21,2,0)="active position to move downward one line without changing"
^DD(3.2,70,21,3,0)="column position.  If the active position is at the bottom of the screen,"
^DD(3.2,70,21,4,0)="a scroll up is performed."
^DD(3.2,70,"DT")="2880523"
^DD(3.2,71,0)="REVERSE INDEX^F^^14;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,71,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,71,21,0)="^^3^3^2920515^^^"
^DD(3.2,71,21,1,0)="This is the argument of a MUMPS WRITE statement that will cause the"
^DD(3.2,71,21,2,0)="active position to move up by one.  If the cursor is at the top"
^DD(3.2,71,21,3,0)="of the screen, a scroll down is performed."
^DD(3.2,71,"DT")="2880523"
^DD(3.2,72,0)="SAVE CURSOR^F^^14;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,72,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,72,21,0)="^^2^2^2920515^^"
^DD(3.2,72,21,1,0)="This is the argument of a MUMPS WRITE statement that will save the"
^DD(3.2,72,21,2,0)="current cursor position."
^DD(3.2,72,"DT")="2880523"
^DD(3.2,73,0)="RESTORE CURSOR^F^^14;4^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,73,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,73,21,0)="^^2^2^2920515^^"
^DD(3.2,73,21,1,0)="This is the argument of a MUMPS WRITE statement that will restore the"
^DD(3.2,73,21,2,0)="cursor position."
^DD(3.2,73,"DT")="2880523"
^DD(3.2,74,0)="NEXT LINE^F^^14;5^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,74,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,74,21,0)="^^2^2^2920515^^"
^DD(3.2,74,21,1,0)="This is the argument of a MUMPS WRITE statement that will transfer"
^DD(3.2,74,21,2,0)="the cursor position to the next line."
^DD(3.2,74,"DT")="2880523"
^DD(3.2,75,0)="AUTO WRAP ON^F^^15;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,75,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,75,21,0)="^^3^3^2920515^^"
^DD(3.2,75,21,1,0)="This is the argument of a MUMPS WRITE statement that will cause"
^DD(3.2,75,21,2,0)="characters to wrap to the next line when the right margin has been"
^DD(3.2,75,21,3,0)="exceeded."
^DD(3.2,75,"DT")="2880523"
^DD(3.2,76,0)="AUTO WRAP OFF^F^^15;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,76,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,76,21,0)="^^2^2^2920515^^"
^DD(3.2,76,21,1,0)="This is the argument of a MUMPS WRITE statement that will cause"
^DD(3.2,76,21,2,0)="truncation of text that exceeds the right margin limit."
^DD(3.2,76,"DT")="2880523"
^DD(3.2,77,0)="AUTO REPEAT ON^F^^15;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,77,3)="Answer must be 2-30 characters in length."
^DD(3.2,77,21,0)="^^3^3^2920515^^^^"
^DD(3.2,77,21,1,0)="This is the argument of a MUMPS WRITE statement that will cause"
^DD(3.2,77,21,2,0)="characters to automatically repeat when keys are depressed and"
^DD(3.2,77,21,3,0)="held in the down position."
^DD(3.2,77,"DT")="2890817"
^DD(3.2,78,0)="AUTO REPEAT OFF^F^^15;4^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,78,3)="Answer must be 2-30 characters in length."
^DD(3.2,78,21,0)="^^2^2^2920515^^"
^DD(3.2,78,21,1,0)="This is the argument of a MUMPS WRITE statement that will disable"
^DD(3.2,78,21,2,0)="repeat mode."
^DD(3.2,78,"DT")="2890817"
^DD(3.2,79,0)="KEYPAD APPLICATION MODE^F^^15;5^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,79,3)="Answer must be 2-30 characters in length."
^DD(3.2,79,21,0)="^^2^2^2920515^^^"
^DD(3.2,79,21,1,0)="This is the argument of a MUMPS WRITE statement that will toggle"
^DD(3.2,79,21,2,0)="the keypad into application mode."
^DD(3.2,79,"DT")="2890817"
^DD(3.2,79.1,0)="KEYPAD NUMERIC MODE^F^^15;6^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,79.1,3)="Answer must be 2-30 characters in length."
^DD(3.2,79.1,21,0)="^^2^2^2920515^^"
^DD(3.2,79.1,21,1,0)="This the argument of a MUMPS WRITE statement that will toggle"
^DD(3.2,79.1,21,2,0)="the keypad into numeric mode."
^DD(3.2,79.1,"DT")="2890817"
^DD(3.2,80,0)="TAB SET^F^^16;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,80,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,80,21,0)="^^2^2^2920515^^"
^DD(3.2,80,21,1,0)="This is the argument of a MUMPS WRITE statement that will set a"
^DD(3.2,80,21,2,0)="value for the tab function."
^DD(3.2,80,"DT")="2880523"
^DD(3.2,81,0)="TAB CLEAR^F^^16;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,81,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,81,21,0)="^^2^2^2920515^^"
^DD(3.2,81,21,1,0)="This is the argument of a MUMPS WRITE statement that will clear"
^DD(3.2,81,21,2,0)="the settings of tabs."
^DD(3.2,81,"DT")="2880523"
^DD(3.2,82,0)="CLEAR ALL TABS^F^^16;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,82,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,82,21,0)="^^2^2^2920515^^"
^DD(3.2,82,21,1,0)="This is the argument of a MUMPS WRITE statement that will clear"
^DD(3.2,82,21,2,0)="all tab settings."
^DD(3.2,82,"DT")="2880523"
^DD(3.2,83,0)="SET TOP & BOTTOM MARGINS^F^^16;4^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,83,3)="Answer must be 2-30 characters in length."
^DD(3.2,83,21,0)="^^2^2^2920515^^"
^DD(3.2,83,21,1,0)="This is the argument of a MUMPS WRITE statement that will set the"
^DD(3.2,83,21,2,0)="top and bottom margins of the scrolling region of a display terminal."
^DD(3.2,83,"DT")="2890817"
^DD(3.2,85,0)="DOUBLE HIGH DOUBLE WIDE TOP^F^^17;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,85,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,85,21,0)="^^5^5^2920515^^^^"
^DD(3.2,85,21,1,0)="This is the argument of a MUMPS WRITE statement that will display"
^DD(3.2,85,21,2,0)="the top half portion of the current line with each character"
^DD(3.2,85,21,3,0)="at double height and double wide."
^DD(3.2,85,21,4,0)="This argument must be used in pairs with DOUBLE HIGH DOUBLE WIDE BOTTOM"
^DD(3.2,85,21,5,0)="on adjacent lines with the same character output."
^DD(3.2,85,"DT")="2880523"
^DD(3.2,86,0)="DOUBLE HIGH DOUBLE WIDE BOTTOM^F^^17;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,86,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,86,21,0)="^^5^5^2920515^^^^"
^DD(3.2,86,21,1,0)="This is the argument of a MUMPS WRITE statement that will display"
^DD(3.2,86,21,2,0)="the bottom half portion of the current line with each character"
^DD(3.2,86,21,3,0)="at double height and double wide."
^DD(3.2,86,21,4,0)="This argument must be used in pairs with DOULBE HIGH DOUBLE WIDE TOP"
^DD(3.2,86,21,5,0)="on adjacent lines with the same character output."
^DD(3.2,86,"DT")="2880523"
^DD(3.2,87,0)="SINGLE HIGH DOUBLE WIDE^F^^17;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,87,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,87,21,0)="^^2^2^2920515^^^^"
^DD(3.2,87,21,1,0)="This is the argument of a MUMPS WRITE statement that will display"
^DD(3.2,87,21,2,0)="each character on the current line at a character size of double wide."
^DD(3.2,87,"DT")="2880523"
^DD(3.2,88,0)="SINGLE HIGH SINGLE WIDE^F^^17;4^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,88,.1)=""
^DD(3.2,88,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.2,88,21,0)="^^2^2^2920515^^^"
^DD(3.2,88,21,1,0)="This is the argument of a MUMPS WRITE statement to restore the"
^DD(3.2,88,21,2,0)="display of characters to the normal width on a single line."
^DD(3.2,88,"DT")="2880523"
^DD(3.2,99,0)="DESCRIPTION^F^^9;1^K:$L(X)>80!($L(X)<6) X"
^DD(3.2,99,3)="ANSWER MUST BE 6-80 CHARACTERS IN LENGTH"
^DD(3.2,99,21,0)="^^1^1^2920515^^"
^DD(3.2,99,21,1,0)="This is a brief description of this type of terminal."
^DD(3.2,99,"DT")="2840418"
^DD(3.2,102,0)="ANSWERBACK LOGIC^K^^102;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,102,3)="MUMPS CODE THAT WILL SET $T SWITCH 'TRUE' IF DEVICE IS ONLINE"
^DD(3.2,102,9)="@"
^DD(3.2,102,21,0)="^^2^2^2920515^^"
^DD(3.2,102,21,1,0)="This is Xecutable MUMPS code which will set the $T switch"
^DD(3.2,102,21,2,0)="to ""TRUE"" (i.e. 1) if this terminal is On-Line."
^DD(3.2,102,"DT")="2840302"
^DD(3.2,110,0)="OPEN PRINTER PORT^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,110,3)="Mumps code to open printer port"
^DD(3.2,110,9)="@"
^DD(3.2,110,21,0)="^^2^2^2920515^^^"
^DD(3.2,110,21,1,0)="This is Xecutable MUMPS code which will OPEN the terminal's"
^DD(3.2,110,21,2,0)="printer port."
^DD(3.2,110,"DT")="2850730"
^DD(3.2,110.1,0)="OPEN PRINTER DESCRIPTION^3.207^^W110;0"
^DD(3.2,111,0)="CLOSE PRINTER PORT^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2,111,3)="Mumps code to close the printer port."
^DD(3.2,111,9)="@"
^DD(3.2,111,21,0)="^^2^2^2920515^^^"
^DD(3.2,111,21,1,0)="This is Xecutable MUMPS code which will CLOSE this terminal's"
^DD(3.2,111,21,2,0)="printer port."
^DD(3.2,111,"DT")="2850730"
^DD(3.2,112,0)="PRINT SCREEN^F^^PRT;1^D CHECK^%ZISS1 K:$L(X)>40!($L(X)<2) X"
^DD(3.2,112,3)="Answer must be 2-40 characters in length."
^DD(3.2,112,21,0)="^^2^2^2920515^^^"
^DD(3.2,112,21,1,0)="The argument of a MUMPS write statement used to print the screen"
^DD(3.2,112,21,2,0)="display onto a slaved printer."
^DD(3.2,112,"DT")="2890906"
^DD(3.2,120,0)="KP0^F^^18;1^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,120,3)="Answer must be 2-20 characters in length."
^DD(3.2,120,21,0)="^^2^2^2920515^^"
^DD(3.2,120,21,1,0)="The argument of a MUMPS WRITE statement used to generate the same"
^DD(3.2,120,21,2,0)="escape sequence produced by depressing the '0' key of the keypad."
^DD(3.2,120,"DT")="2900622"
^DD(3.2,121,0)="KP1^F^^18;2^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,121,3)="Answer must be 2-20 characters in length."
^DD(3.2,121,21,0)="^^2^2^2920515^^"
^DD(3.2,121,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,121,21,2,0)="escape sequences produced by depressing the '1' key on the keypad."
^DD(3.2,121,"DT")="2900622"
^DD(3.2,122,0)="KP2^F^^18;3^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,122,3)="Answer must be 2-20 characters in length."
^DD(3.2,122,21,0)="^^2^2^2920515^^^"
^DD(3.2,122,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,122,21,2,0)="escape sequences produced by depressing the '2' key on the keypad."
^DD(3.2,123,0)="KP3^F^^18;4^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,123,3)="Answer must be 2-20 characters in length."
^DD(3.2,123,21,0)="^^2^2^2920515^^^"
^DD(3.2,123,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,123,21,2,0)="escape sequences produced by depressing the '3' key on the keypad."
^DD(3.2,124,0)="KP4^F^^18;5^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,124,3)="Answer must be 2-20 characters in length."
^DD(3.2,124,21,0)="^^2^2^2920515^^^"
^DD(3.2,124,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,124,21,2,0)="escape sequences produced by depressing the '4' key on the keypad."
^DD(3.2,125,0)="KP5^F^^18;6^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,125,3)="Answer must be 2-20 characters in length."
^DD(3.2,125,21,0)="^^2^2^2920515^^^"
^DD(3.2,125,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,125,21,2,0)="escape sequences produced by depressing the '5' key on the keypad."
^DD(3.2,126,0)="KP6^F^^18;7^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,126,3)="Answer must be 2-20 characters in length."
^DD(3.2,126,21,0)="^^2^2^2920515^^^"
^DD(3.2,126,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,126,21,2,0)="escape sequences produced by depressing the '6' key on the keypad."
^DD(3.2,127,0)="KP7^F^^18;8^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,127,3)="Answer must be 2-20 characters in length."
^DD(3.2,127,21,0)="^^2^2^2920515^^^"
^DD(3.2,127,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,127,21,2,0)="escape sequences produced by depressing the '7' key on the keypad."
^DD(3.2,128,0)="KP8^F^^18;9^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,128,3)="Answer must be 2-20 characters in length."
^DD(3.2,128,21,0)="^^2^2^2920515^^^^"
^DD(3.2,128,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,128,21,2,0)="escape sequences produced by depressing the '8' key on the keypad."
^DD(3.2,129,0)="KP9^F^^18;10^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,129,3)="Answer must be 2-20 characters in length."
^DD(3.2,129,21,0)="^^2^2^2920515^^^"
^DD(3.2,129,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,129,21,2,0)="escape sequences produced by depressing the '9' key on the keypad."
^DD(3.2,130,0)="PF1^F^^19;1^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,130,3)="Answer must be 2-20 characters in length."
^DD(3.2,130,21,0)="^^2^2^2920515^^^"
^DD(3.2,130,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,130,21,2,0)="escape sequences produced by depressing the 'PF1' key on the keypad."
^DD(3.2,130,"DT")="2900622"
^DD(3.2,131,0)="PF2^F^^19;2^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,131,3)="Answer must be 2-20 characters in length."
^DD(3.2,131,21,0)="^^2^2^2920515^^^"
^DD(3.2,131,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,131,21,2,0)="escape sequences produced by depressing the 'PF2' key on the keypad."
^DD(3.2,132,0)="PF3^F^^19;3^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,132,3)="Answer must be 2-20 characters in length."
^DD(3.2,132,21,0)="^^2^2^2920515^^^"
^DD(3.2,132,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,132,21,2,0)="escape sequences produced by depressing the 'PF3' key on the keypad."
^DD(3.2,133,0)="PF4^F^^19;4^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,133,3)="Answer must be 2-20 characters in length."
^DD(3.2,133,21,0)="^^2^2^2920515^^^"
^DD(3.2,133,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,133,21,2,0)="escape sequences produced by depressing the 'PF4' key on the keypad."
^DD(3.2,134,0)="MINUS^F^^19;5^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,134,3)="Answer must be 2-20 characters in length."
^DD(3.2,134,21,0)="^^2^2^2920515^^^^"
^DD(3.2,134,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,134,21,2,0)="escape sequences produced by depressing the '-' key on the keypad."
^DD(3.2,135,0)="COMMA^F^^19;6^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,135,3)="Answer must be 2-20 characters in length."
^DD(3.2,135,21,0)="^^2^2^2920515^^^"
^DD(3.2,135,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,135,21,2,0)="escape sequences produced by depressing the ',' key on the keypad."
^DD(3.2,136,0)="ENTER^F^^19;7^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,136,3)="Answer must be 2-20 characters in length."
^DD(3.2,136,21,0)="^^2^2^2920515^^^"
^DD(3.2,136,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,136,21,2,0)="escape sequences produced by depressing the 'ENTER' key on the keypad."
^DD(3.2,137,0)="PERIOD^F^^19;8^D CHECK^%ZISS1 K:$L(X)>20!($L(X)<2) X"
^DD(3.2,137,3)="Answer must be 2-20 characters in length."
^DD(3.2,137,21,0)="^^2^2^2920515^^"
^DD(3.2,137,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,137,21,2,0)="escape sequences produced by depressing the '1' key on the keypad."
^DD(3.2,140,0)="FIND^F^^20;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,140,3)="Answer must be 2-30 characters in length."
^DD(3.2,140,21,0)="^^2^2^2920515^^^"
^DD(3.2,140,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,140,21,2,0)="escape sequences produced by depressing the 'FIND' key on the keyboard."
^DD(3.2,140,"DT")="2900622"
^DD(3.2,141,0)="SELECT^F^^20;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,141,3)="Answer must be 2-30 characters in length."
^DD(3.2,141,21,0)="^^2^2^2920515^^^"
^DD(3.2,141,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,141,21,2,0)="escape sequences produced by depressing the 'SELECT' key on the keyboard."
^DD(3.2,141,"DT")="2900622"
^DD(3.2,142,0)="INSERT HERE^F^^20;3^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,142,3)="Answer must be 2-30 characters in length."
^DD(3.2,142,21,0)="^^2^2^2920515^^^"
^DD(3.2,142,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,142,21,2,0)="escape sequences produced by depressing the 'INSERT HERE' key on the keyboard."
^DD(3.2,143,0)="REMOVE^F^^20;4^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,143,3)="Answer must be 2-30 characters in length."
^DD(3.2,143,21,0)="^^2^2^2920515^^^"
^DD(3.2,143,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,143,21,2,0)="escape sequences produced by depressing the 'REMOVE' key on the keyboard."
^DD(3.2,144,0)="PREV SCREEN^F^^20;5^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,144,3)="Answer must be 2-30 characters in length."
^DD(3.2,144,21,0)="^^2^2^2920515^^^"
^DD(3.2,144,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,144,21,2,0)="escape sequences produced by depressing the 'PREV SCRN' key on the keyboard."
^DD(3.2,145,0)="NEXT SCREEN^F^^20;6^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,145,3)="Answer must be 2-30 characters in length."
^DD(3.2,145,21,0)="^^2^2^2920515^^^"
^DD(3.2,145,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,145,21,2,0)="escape sequences produced by depressing the 'NEXT SCRN' key on the keyboard."
^DD(3.2,146,0)="HELP^F^^21;1^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,146,3)="Answer must be 2-30 characters in length."
^DD(3.2,146,21,0)="^^2^2^2920515^^^"
^DD(3.2,146,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,146,21,2,0)="escape sequences produced by depressing the 'HELP' key on the keyboard."
^DD(3.2,146,"DT")="2900622"
^DD(3.2,147,0)="DO^F^^21;2^D CHECK^%ZISS1 K:$L(X)>30!($L(X)<2) X"
^DD(3.2,147,3)="Answer must be 2-30 characters in length."
^DD(3.2,147,21,0)="^^2^2^2920515^^^"
^DD(3.2,147,21,1,0)="The argument of a MUMPS WRITE statment used to generate the same"
^DD(3.2,147,21,2,0)="escape sequences produced by depressing the 'DO' key on the keyboard."
^DD(3.2,200,0)="DEFAULT FONT TITLE^F^^200;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.2,200,3)="Answer must be 1-30 characters in length."
^DD(3.2,200,21,0)="^^1^1^2920515^^^"
^DD(3.2,200,21,1,0)="Name of the default font."
^DD(3.2,200,"DT")="2901018"
^DD(3.2,201,0)="DEFAULT FONT CODE^F^^201;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,201,3)="Answer must be 2-245 characters in length."
^DD(3.2,201,9)="@"
^DD(3.2,201,21,0)="^^1^1^2920515^^"
^DD(3.2,201,21,1,0)="The argument of a MUMPS WRITE statement that will turn on the default font."
^DD(3.2,201,"DT")="2901018"
^DD(3.2,202,0)="FONT NUMBER 1 TITLE^F^^202;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.2,202,3)="Answer must be 1-30 characters in length."
^DD(3.2,202,21,0)="^^1^1^2920515^^^^"
^DD(3.2,202,21,1,0)="Name of font #1"
^DD(3.2,202,"DT")="2901018"
^DD(3.2,203,0)="FONT NUMBER 1 CODE^F^^203;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,203,3)="Answer must be 2-245 characters in length."
^DD(3.2,203,9)="@"
^DD(3.2,203,21,0)="^^1^1^2920515^^^"
^DD(3.2,203,21,1,0)="The argument of a MUMPS WRITE statement that will turn on the specified font."
^DD(3.2,203,"DT")="2901018"
^DD(3.2,204,0)="FONT NUMBER 2 TITLE^F^^204;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.2,204,3)="Answer must be 1-30 characters in length."
^DD(3.2,204,21,0)="^^1^1^2920515^^^"
^DD(3.2,204,21,1,0)="Name of font #2"
^DD(3.2,204,"DT")="2901018"
^DD(3.2,205,0)="FONT NUMBER 2 CODE^F^^205;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,205,3)="Answer must be 2-245 characters in length."
^DD(3.2,205,9)="@"
^DD(3.2,205,21,0)="^^1^1^2920515^^"
^DD(3.2,205,21,1,0)="The argument of a MUMPS WRITE statement that will turn on the specified font."
^DD(3.2,205,"DT")="2901018"
^DD(3.2,206,0)="FONT NUMBER 3 TITLE^F^^206;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.2,206,3)="Answer must be 1-30 characters in length."
^DD(3.2,206,21,0)="^^1^1^2920515^^"
^DD(3.2,206,21,1,0)="Name of font #3"
^DD(3.2,206,"DT")="2901018"
^DD(3.2,207,0)="FONT NUMBER 3 CODE^F^^207;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,207,3)="Answer must be 2-245 characters in length."
^DD(3.2,207,9)="@"
^DD(3.2,207,21,0)="^^1^1^2920515^^"
^DD(3.2,207,21,1,0)="The argument of a MUMPS WRITE statement that will turn on the specified font."
^DD(3.2,207,"DT")="2901018"
^DD(3.2,208,0)="FONT NUMBER 4 TITLE^F^^208;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.2,208,3)="Answer must be 1-30 characters in length."
^DD(3.2,208,21,0)="^^1^1^2920515^^"
^DD(3.2,208,21,1,0)="Name of font #4"
^DD(3.2,208,"DT")="2901018"
^DD(3.2,209,0)="FONT NUMBER 4 CODE^F^^209;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,209,3)="Answer must be 2-245 characters in length."
^DD(3.2,209,9)="@"
^DD(3.2,209,21,0)="^^1^1^2920515^^"
^DD(3.2,209,21,1,0)="The argument of a MUMPS WRITE statement that will turn on the specified font."
^DD(3.2,209,"DT")="2901018"
^DD(3.2,210,0)="FONT NUMBER 5 TITLE^F^^210;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.2,210,3)="Answer must be 1-30 characters in length."
^DD(3.2,210,21,0)="^^1^1^2920515^^^"
^DD(3.2,210,21,1,0)="Name of font #5"
^DD(3.2,210,"DT")="2901018"
^DD(3.2,211,0)="FONT NUMBER 5 CODE^F^^211;E1,245^D CHECK^%ZISS1 K:$L(X)>245!($L(X)<2) X"
^DD(3.2,211,3)="Answer must be 2-245 characters in length."
^DD(3.2,211,9)="@"
^DD(3.2,211,21,0)="^^1^1^2920515^^"
^DD(3.2,211,21,1,0)="The argument of a MUMPS WRITE statement that will turn on the specified font."
^DD(3.2,211,"DT")="2901018"
^DD(3.2,1001,0)="SIMPLEX^F^^1001;1^K:$L(X)>30!($L(X)<2) X"
^DD(3.2,1001,3)="Answer must be 2-30 characters in length."
^DD(3.2,1001,21,0)="^^5^5^2940718^^^^"
^DD(3.2,1001,21,1,0)="The argument of a MUMPS WRITE command used to set a printer into SIMPLEX,"
^DD(3.2,1001,21,2,0)="or printing only on the first side of the page.  This field is only"
^DD(3.2,1001,21,3,0)="applicable for terminal types with a duplex printing feature such as"
^DD(3.2,1001,21,4,0)="the HP LaserJet 4 Si printers purchased by MCCR for print of"
^DD(3.2,1001,21,5,0)="encounter forms."
^DD(3.2,1001,"DT")="2950614"
^DD(3.2,1002,0)="DUPLEX, LONG EDGE BINDING^F^^1001;2^K:$L(X)>30!($L(X)<2) X"
^DD(3.2,1002,3)="Answer must be 2-30 characters in length."
^DD(3.2,1002,21,0)="^^2^2^2940718^^^"
^DD(3.2,1002,21,1,0)="This should be used when printing double sided forms that will be bound"
^DD(3.2,1002,21,2,0)="at the side such as forms to be put in a binder."
^DD(3.2,1002,"DT")="2950614"
^DD(3.2,1003,0)="DUPLEX, SHORT EDGE BINDING^F^^1001;3^K:$L(X)>30!($L(X)<2) X"
^DD(3.2,1003,3)="Answer must be 2-30 characters in length."
^DD(3.2,1003,21,0)="^^2^2^2940718^^^"
^DD(3.2,1003,21,1,0)="This should be used when printing double sided forms that will be bound"
^DD(3.2,1003,21,2,0)="at the top, such as forms to be put in a medical record."
^DD(3.2,1003,"DT")="2950614"
^DD(3.2,1925,0)="SYNONYM^F^^SY;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(3.2,1925,1,0)="^.1"
^DD(3.2,1925,1,1,0)="3.2^B^MNEMONIC"
^DD(3.2,1925,1,1,1)="S ^%ZIS(2,""B"",$E(X,1,30),DA)=1"
^DD(3.2,1925,1,1,2)="K ^%ZIS(2,""B"",$E(X,1,30),DA)"
^DD(3.2,1925,1,1,"%D",0)="^^4^4^2920515^"
^DD(3.2,1925,1,1,"%D",1,0)="Since this cross-reference is also a B cross-reference,"
^DD(3.2,1925,1,1,"%D",2,0)="the alternate name should not be the same name as the #.01 NAME field."
^DD(3.2,1925,1,1,"%D",3,0)="If they are set the same, then a change in one could affect the cross-reference"
^DD(3.2,1925,1,1,"%D",4,0)="of the other."
^DD(3.2,1925,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(3.2,1925,21,0)="^^1^1^2920515^^^"
^DD(3.2,1925,21,1,0)="This is a synonym for the name of this type of terminal."
^DD(3.2,1925,"DT")="2841002"
^DD(3.2,"B","*OLD XY CRT",5)=""
^DD(3.2,"B","10 PITCH",10)=""
^DD(3.2,"B","12 PITCH",12)=""
^DD(3.2,"B","16 PITCH",12.1)=""
^DD(3.2,"B","6 LINES PER INCH",12.13)=""
^DD(3.2,"B","8 LINES PER INCH",12.14)=""
^DD(3.2,"B","ANSWERBACK LOGIC",102)=""
^DD(3.2,"B","ARROW KEY STRING LENGTH",44)=""
^DD(3.2,"B","AUTO REPEAT OFF",78)=""
^DD(3.2,"B","AUTO REPEAT ON",77)=""
^DD(3.2,"B","AUTO WRAP OFF",76)=""
^DD(3.2,"B","AUTO WRAP ON",75)=""
^DD(3.2,"B","BACK SPACE",4)=""
^DD(3.2,"B","BAR CODE OFF",61)=""
^DD(3.2,"B","BAR CODE ON",60)=""
^DD(3.2,"B","BLINK OFF",19)=""
^DD(3.2,"B","BLINK ON",18)=""
^DD(3.2,"B","BOTTOM LEFT CORNER",69.12)=""
^DD(3.2,"B","BOTTOM RIGHT CORNER",69.14)=""
^DD(3.2,"B","BOTTOM T",69.4)=""
^DD(3.2,"B","CLEAR ALL TABS",82)=""
^DD(3.2,"B","CLOSE EXECUTE",7)=""
^DD(3.2,"B","CLOSE PRINTER PORT",111)=""
^DD(3.2,"B","COLOR OFF",67.22)=""
^DD(3.2,"B","COLOR ON",67.21)=""
^DD(3.2,"B","COMMA",135)=""
^DD(3.2,"B","CONTROL CODES",55)=""
^DD(3.2,"B","CURSOR DOWN",41)=""
^DD(3.2,"B","CURSOR LEFT",43)=""
^DD(3.2,"B","CURSOR OFF",49.1)=""
^DD(3.2,"B","CURSOR ON",49)=""
^DD(3.2,"B","CURSOR RIGHT",42)=""
^DD(3.2,"B","CURSOR UP",40)=""
^DD(3.2,"B","DEFAULT FONT CODE",201)=""
^DD(3.2,"B","DEFAULT FONT TITLE",200)=""
^DD(3.2,"B","DEFAULT LINES PER INCH",12.15)=""
^DD(3.2,"B","DEFAULT PITCH",12.11)=""
^DD(3.2,"B","DELETE CHAR.",47)=""
^DD(3.2,"B","DELETE LINE",45)=""
^DD(3.2,"B","DESCRIPTION",99)=""
^DD(3.2,"B","DO",147)=""
^DD(3.2,"B","DOUBLE HIGH DOUBLE WIDE BOTTOM",86)=""
^DD(3.2,"B","DOUBLE HIGH DOUBLE WIDE TOP",85)=""
^DD(3.2,"B","DUPLEX, LONG EDGE BINDING",1002)=""
^DD(3.2,"B","DUPLEX, SHORT EDGE BINDING",1003)=""
^DD(3.2,"B","ENTER",136)=""
^DD(3.2,"B","ERASE CHARACTER",36)=""
^DD(3.2,"B","ERASE ENTIRE LINE",35)=""
^DD(3.2,"B","ERASE ENTIRE PAGE",33)=""
^DD(3.2,"B","ERASE FIELD",37)=""
^DD(3.2,"B","ERASE FROM BEG OF LINE",34)=""
^DD(3.2,"B","ERASE FROM BEG OF PAGE",32)=""
^DD(3.2,"B","ERASE TO END OF LINE",16)=""
^DD(3.2,"B","ERASE TO END OF PAGE",17)=""
^DD(3.2,"B","FIND",140)=""
^DD(3.2,"B","FONT NUMBER 1 CODE",203)=""
^DD(3.2,"B","FONT NUMBER 1 TITLE",202)=""
^DD(3.2,"B","FONT NUMBER 2 CODE",205)=""
^DD(3.2,"B","FONT NUMBER 2 TITLE",204)=""
^DD(3.2,"B","FONT NUMBER 3 CODE",207)=""
^DD(3.2,"B","FONT NUMBER 3 TITLE",206)=""
^DD(3.2,"B","FONT NUMBER 4 CODE",209)=""
^DD(3.2,"B","FONT NUMBER 4 TITLE",208)=""
^DD(3.2,"B","FONT NUMBER 5 CODE",211)=""
^DD(3.2,"B","FONT NUMBER 5 TITLE",210)=""
^DD(3.2,"B","FORM FEED",2)=""
^DD(3.2,"B","GRAPHICS OFF",69)=""
^DD(3.2,"B","GRAPHICS ON",68)=""
^DD(3.2,"B","HALF DOWN",22)=""
^DD(3.2,"B","HALF UP",21)=""
^DD(3.2,"B","HELP",146)=""
^DD(3.2,"B","HIGH INTENSITY (BOLD)",27)=""
^DD(3.2,"B","HOME CURSOR",13)=""
^DD(3.2,"B","HORIZONTAL LINE",69.8)=""
^DD(3.2,"B","INDEX",70)=""
^DD(3.2,"B","INSERT CHAR.",48)=""
^DD(3.2,"B","INSERT HERE",142)=""
^DD(3.2,"B","INSERT LINE",46)=""
^DD(3.2,"B","INSERT MODE",30)=""
^DD(3.2,"B","ITALICS OFF",67)=""
^DD(3.2,"B","ITALICS ON",66)=""
^DD(3.2,"B","KEYPAD APPLICATION MODE",79)=""
^DD(3.2,"B","KEYPAD NUMERIC MODE",79.1)=""
^DD(3.2,"B","KP0",120)=""
^DD(3.2,"B","KP1",121)=""
^DD(3.2,"B","KP2",122)=""
^DD(3.2,"B","KP3",123)=""
^DD(3.2,"B","KP4",124)=""
^DD(3.2,"B","KP5",125)=""
^DD(3.2,"B","KP6",126)=""
^DD(3.2,"B","KP7",127)=""
^DD(3.2,"B","KP8",128)=""
^DD(3.2,"B","KP9",129)=""
^DD(3.2,"B","LEFT T",69.5)=""
^DD(3.2,"B","LOW INTENSITY (UNBOLD)",28)=""
^DD(3.2,"B","MIDDLE T",69.2)=""
^DD(3.2,"B","MINUS",134)=""
^DD(3.2,"B","MODEM DIAL LOGIC",50)=""
^DD(3.2,"B","MODEM HANG UP LOGIC",51)=""
^DD(3.2,"B","MODEM STATUS LOGIC",52)=""
^DD(3.2,"B","NAME",.01)=""
^DD(3.2,"B","NEXT LINE",74)=""
^DD(3.2,"B","NEXT SCREEN",145)=""
^DD(3.2,"B","NORMAL INTENSITY (RESET)",29)=""
^DD(3.2,"B","ONLINE CHECK",8)=""
^DD(3.2,"B","OPEN EXECUTE",6)=""
^DD(3.2,"B","OPEN EXECUTE DESCRIPTION",6.1)=""
^DD(3.2,"B","OPEN PRINTER DESCRIPTION",110.1)=""
^DD(3.2,"B","OPEN PRINTER PORT",110)=""
^DD(3.2,"B","PAGE LENGTH",3)=""
^DD(3.2,"B","PERIOD",137)=""
^DD(3.2,"B","PF1",130)=""
^DD(3.2,"B","PF2",131)=""
^DD(3.2,"B","PF3",132)=""
^DD(3.2,"B","PF4",133)=""
^DD(3.2,"B","PREV SCREEN",144)=""
^DD(3.2,"B","PRINT SCREEN",112)=""
^DD(3.2,"B","PROPORTIONAL SPACING",26)=""
^DD(3.2,"B","QUALITY 0",12.2)=""
^DD(3.2,"B","QUALITY 1",12.3)=""
^DD(3.2,"B","QUALITY 2",12.4)=""
^DD(3.2,"B","REMOVE",143)=""
^DD(3.2,"B","REPLACE MODE",31)=""
^DD(3.2,"B","RESERVED",62)=""
^DD(3.2,"B","RESET",20)=""
^DD(3.2,"B","RESTORE CURSOR",73)=""
^DD(3.2,"B","REVERSE INDEX",71)=""
^DD(3.2,"B","REVERSE LINE FEED",25)=""
^DD(3.2,"B","REVERSE VIDEO OFF",15)=""
^DD(3.2,"B","REVERSE VIDEO ON",14)=""
^DD(3.2,"B","RIGHT MARGIN",1)=""
^DD(3.2,"B","RIGHT T",69.6)=""
^DD(3.2,"B","SAVE CURSOR",72)=""
^DD(3.2,"B","SELECT",141)=""
^DD(3.2,"B","SELECTABLE AT SIGN-ON",.02)=""
^DD(3.2,"B","SET TOP & BOTTOM MARGINS",83)=""
^DD(3.2,"B","SGR ATTRIBUTES OFF",20.5)=""
^DD(3.2,"B","SIMPLEX",1001)=""
^DD(3.2,"B","SINGLE HIGH DOUBLE WIDE",87)=""
^DD(3.2,"B","SINGLE HIGH SINGLE WIDE",88)=""
^DD(3.2,"B","SUBSCRIPT OFF",65.1)=""
^DD(3.2,"B","SUBSCRIPT ON",65)=""
^DD(3.2,"B","SUPERSCRIPT OFF",65.3)=""
^DD(3.2,"B","SUPERSCRIPT ON",65.2)=""
^DD(3.2,"B","SYNONYM",1925)=""
^DD(3.2,"B","TAB CLEAR",81)=""
^DD(3.2,"B","TAB SET",80)=""
^DD(3.2,"B","TOP LEFT CORNER",69.11)=""
^DD(3.2,"B","TOP RIGHT CORNER",69.13)=""
^DD(3.2,"B","TOP T",69.3)=""
^DD(3.2,"B","UNDERLINE OFF",24)=""
^DD(3.2,"B","UNDERLINE ON",23)=""
^DD(3.2,"B","VERTICAL LINE",69.7)=""
^DD(3.2,"B","X LINES PER INCH",12.16)=""
^DD(3.2,"B","X PITCH",12.12)=""
^DD(3.2,"B","XY CRT",5.2)=""
^DD(3.2,"GL",0,1,.01)=""
^DD(3.2,"GL",0,2,.02)=""
^DD(3.2,"GL",1,1,1)=""
^DD(3.2,"GL",1,2,2)=""
^DD(3.2,"GL",1,3,3)=""
^DD(3.2,"GL",1,4,4)=""
^DD(3.2,"GL",1,5,5)=""
^DD(3.2,"GL",2,"E1,245",6)=""
^DD(3.2,"GL",3,"E1,245",7)=""
^DD(3.2,"GL",4,"E1,245",8)=""
^DD(3.2,"GL",5,1,10)=""
^DD(3.2,"GL",5,2,12)=""
^DD(3.2,"GL",5,3,13)=""
^DD(3.2,"GL",5,4,14)=""
^DD(3.2,"GL",5,5,15)=""
^DD(3.2,"GL",5,6,16)=""
^DD(3.2,"GL",5,7,17)=""
^DD(3.2,"GL",5,8,18)=""
^DD(3.2,"GL",5,9,19)=""
^DD(3.2,"GL",6,1,20)=""
^DD(3.2,"GL",6,2,21)=""
^DD(3.2,"GL",6,3,22)=""
^DD(3.2,"GL",6,4,23)=""
^DD(3.2,"GL",6,5,24)=""
^DD(3.2,"GL",6,6,25)=""
^DD(3.2,"GL",6,7,26)=""
^DD(3.2,"GL",6,8,20.5)=""
^DD(3.2,"GL",7,1,27)=""
^DD(3.2,"GL",7,2,28)=""
^DD(3.2,"GL",7,3,29)=""
^DD(3.2,"GL",7,4,30)=""
^DD(3.2,"GL",7,5,31)=""
^DD(3.2,"GL",8,1,40)=""
^DD(3.2,"GL",8,2,41)=""
^DD(3.2,"GL",8,3,42)=""
^DD(3.2,"GL",8,4,43)=""
^DD(3.2,"GL",8,5,44)=""
^DD(3.2,"GL",8,6,45)=""
^DD(3.2,"GL",8,7,46)=""
^DD(3.2,"GL",8,8,47)=""
^DD(3.2,"GL",8,9,48)=""
^DD(3.2,"GL",8.1,1,49)=""
^DD(3.2,"GL",8.1,2,49.1)=""
^DD(3.2,"GL",9,1,99)=""
^DD(3.2,"GL",10,"E1,245",110)=""
^DD(3.2,"GL",11,"E1,245",111)=""
^DD(3.2,"GL",12.1,"E1,250",12.1)=""
^DD(3.2,"GL",12.11,"E1,245",12.11)=""
^DD(3.2,"GL",12.12,"E1,245",12.12)=""
^DD(3.2,"GL",12.13,"E1,245",12.13)=""
^DD(3.2,"GL",12.14,"E1,245",12.14)=""
^DD(3.2,"GL",12.15,"E1,245",12.15)=""
^DD(3.2,"GL",12.16,"E1,245",12.16)=""
^DD(3.2,"GL",12.2,1,12.2)=""
^DD(3.2,"GL",12.2,2,12.3)=""
^DD(3.2,"GL",12.2,3,12.4)=""
^DD(3.2,"GL",13,1,32)=""
^DD(3.2,"GL",13,2,33)=""
^DD(3.2,"GL",13,3,34)=""
^DD(3.2,"GL",13,4,35)=""
^DD(3.2,"GL",13,5,36)=""
^DD(3.2,"GL",13,6,37)=""
^DD(3.2,"GL",14,1,70)=""
^DD(3.2,"GL",14,2,71)=""
^DD(3.2,"GL",14,3,72)=""
^DD(3.2,"GL",14,4,73)=""
^DD(3.2,"GL",14,5,74)=""
^DD(3.2,"GL",15,1,75)=""
^DD(3.2,"GL",15,2,76)=""
^DD(3.2,"GL",15,3,77)=""
^DD(3.2,"GL",15,4,78)=""
^DD(3.2,"GL",15,5,79)=""
^DD(3.2,"GL",15,6,79.1)=""
^DD(3.2,"GL",16,1,80)=""
^DD(3.2,"GL",16,2,81)=""
^DD(3.2,"GL",16,3,82)=""
^DD(3.2,"GL",16,4,83)=""
^DD(3.2,"GL",17,1,85)=""
^DD(3.2,"GL",17,2,86)=""
^DD(3.2,"GL",17,3,87)=""
^DD(3.2,"GL",17,4,88)=""
^DD(3.2,"GL",18,1,120)=""
^DD(3.2,"GL",18,2,121)=""
^DD(3.2,"GL",18,3,122)=""
^DD(3.2,"GL",18,4,123)=""
^DD(3.2,"GL",18,5,124)=""
^DD(3.2,"GL",18,6,125)=""
^DD(3.2,"GL",18,7,126)=""
^DD(3.2,"GL",18,8,127)=""
^DD(3.2,"GL",18,9,128)=""
^DD(3.2,"GL",18,10,129)=""
^DD(3.2,"GL",19,1,130)=""
^DD(3.2,"GL",19,2,131)=""
^DD(3.2,"GL",19,3,132)=""
^DD(3.2,"GL",19,4,133)=""
^DD(3.2,"GL",19,5,134)=""
^DD(3.2,"GL",19,6,135)=""
^DD(3.2,"GL",19,7,136)=""
^DD(3.2,"GL",19,8,137)=""
^DD(3.2,"GL",20,1,140)=""
^DD(3.2,"GL",20,2,141)=""
^DD(3.2,"GL",20,3,142)=""
^DD(3.2,"GL",20,4,143)=""
^DD(3.2,"GL",20,5,144)=""
^DD(3.2,"GL",20,6,145)=""
^DD(3.2,"GL",21,1,146)=""
^DD(3.2,"GL",21,2,147)=""
^DD(3.2,"GL",50,"E1,245",50)=""
^DD(3.2,"GL",51,"E1,245",51)=""
^DD(3.2,"GL",52,"E1,200",52)=""
^DD(3.2,"GL",55,0,55)=""
^DD(3.2,"GL",102,"E1,245",102)=""
^DD(3.2,"GL",200,1,200)=""
^DD(3.2,"GL",201,"E1,245",201)=""
^DD(3.2,"GL",202,1,202)=""
^DD(3.2,"GL",203,"E1,245",203)=""
^DD(3.2,"GL",204,1,204)=""
^DD(3.2,"GL",205,"E1,245",205)=""
^DD(3.2,"GL",206,1,206)=""
^DD(3.2,"GL",207,"E1,245",207)=""
^DD(3.2,"GL",208,1,208)=""
^DD(3.2,"GL",209,"E1,245",209)=""
^DD(3.2,"GL",210,1,210)=""
^DD(3.2,"GL",211,"E1,245",211)=""
^DD(3.2,"GL",1001,1,1001)=""
^DD(3.2,"GL",1001,2,1002)=""
^DD(3.2,"GL",1001,3,1003)=""
^DD(3.2,"GL","BAR0","E1,245",61)=""
^DD(3.2,"GL","BAR1","E1,245",60)=""
^DD(3.2,"GL","BARX","E1,245",62)=""
^DD(3.2,"GL","CLR0","E1,245",67.22)=""
^DD(3.2,"GL","CLR1","E1,245",67.21)=""
^DD(3.2,"GL","G",1,69.11)=""
^DD(3.2,"GL","G",2,69.12)=""
^DD(3.2,"GL","G",3,69.13)=""
^DD(3.2,"GL","G",4,69.14)=""
^DD(3.2,"GL","G",5,69.2)=""
^DD(3.2,"GL","G",6,69.3)=""
^DD(3.2,"GL","G",7,69.4)=""
^DD(3.2,"GL","G",8,69.5)=""
^DD(3.2,"GL","G",9,69.6)=""
^DD(3.2,"GL","G",10,69.7)=""
^DD(3.2,"GL","G",11,69.8)=""
^DD(3.2,"GL","G0","E1,245",69)=""
^DD(3.2,"GL","G1","E1,245",68)=""
^DD(3.2,"GL","I0","E1,245",67)=""
^DD(3.2,"GL","I1","E1,245",66)=""
^DD(3.2,"GL","PRT",1,112)=""
^DD(3.2,"GL","SPR0","E1,245",65.3)=""
^DD(3.2,"GL","SPR1","E1,245",65.2)=""
^DD(3.2,"GL","SUB0","E1,245",65.1)=""
^DD(3.2,"GL","SUB1","E1,245",65)=""
^DD(3.2,"GL","SY",1,1925)=""
^DD(3.2,"GL","W110",0,110.1)=""
^DD(3.2,"GL","W6",0,6.1)=""
^DD(3.2,"GL","XY","E1,245",5.2)=""
^DD(3.2,"IX",.01)=""
^DD(3.2,"IX",5.2)=""
^DD(3.2,"IX",1925)=""
^DD(3.2,"RQ",.01)=""
^DD(3.2,"RQ",1)=""
^DD(3.2,"RQ",2)=""
^DD(3.2,"RQ",3)=""
^DD(3.2,"SB",3.2055,55)=""
^DD(3.2,"SB",3.206,6.1)=""
^DD(3.2,"SB",3.207,110.1)=""
^DD(3.2055,0)="CONTROL CODES SUB-FIELD^^2^4"
^DD(3.2055,0,"DT")="3010718"
^DD(3.2055,0,"IX","B",3.2055,.01)=""
^DD(3.2055,0,"NM","CONTROL CODES")=" "
^DD(3.2055,0,"UP")="3.2"
^DD(3.2055,.001,0)="NUMBER^NJ4,1^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""2N.N) X"
^DD(3.2055,.001,3)="Type a Number between 1 and 99, 1 Decimal Digit"
^DD(3.2055,.001,21,0)="^^2^2^3010619^"
^DD(3.2055,.001,21,1,0)="This field controls the internal sequence that the data is stored"
^DD(3.2055,.001,21,2,0)="in the file."
^DD(3.2055,.001,"DT")="3010619"
^DD(3.2055,.01,0)="CTRL CODE ABBREVIATION^MF^^0;1^K:$L(X)>8!($L(X)<2) X"
^DD(3.2055,.01,1,0)="^.1"
^DD(3.2055,.01,1,1,0)="3.2055^B"
^DD(3.2055,.01,1,1,1)="S ^%ZIS(2,DA(1),55,""B"",$E(X,1,30),DA)="""""
^DD(3.2055,.01,1,1,2)="K ^%ZIS(2,DA(1),55,""B"",$E(X,1,30),DA)"
^DD(3.2055,.01,3)="Answer must be 2-8 characters in length."
^DD(3.2055,.01,21,0)="^^10^10^3010905^"
^DD(3.2055,.01,21,1,0)="This multiple holds device control codes."
^DD(3.2055,.01,21,2,0)="It is up to each application to advise the sites on what data needs to"
^DD(3.2055,.01,21,3,0)="be placed in these fields."
^DD(3.2055,.01,21,4,0)=" "
^DD(3.2055,.01,21,5,0)="This field holds a short abbreviation for the code. The sub-file is cross"
^DD(3.2055,.01,21,6,0)="referenced by this field."
^DD(3.2055,.01,21,7,0)=" "
^DD(3.2055,.01,21,8,0)="The abbreviation and full name for any control codes are controlled by "
^DD(3.2055,.01,21,9,0)="Integration Agrement #3435. Before any new abbreviations are added to this"
^DD(3.2055,.01,21,10,0)="file see that they have been added to Integration Agrement #3435 first."
^DD(3.2055,.01,"DT")="3010905"
^DD(3.2055,1,0)="FULL NAME^F^^0;2^K:$L(X)>75!($L(X)<3) X"
^DD(3.2055,1,3)="Answer must be 3-75 characters in length."
^DD(3.2055,1,21,0)="^^5^5^3010905^"
^DD(3.2055,1,21,1,0)="This is a long name for the control code."
^DD(3.2055,1,21,2,0)=" "
^DD(3.2055,1,21,3,0)="The abbreviation and full name for any control codes are controlled by "
^DD(3.2055,1,21,4,0)="Integration Agrement #3435. Before any new abbreviations are added to this"
^DD(3.2055,1,21,5,0)="file see that they have been added to Integration Agrement #3435 first."
^DD(3.2055,1,"DT")="3010905"
^DD(3.2055,2,0)="CONTROL CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.2055,2,3)="This is Standard MUMPS code."
^DD(3.2055,2,9)=" "
^DD(3.2055,2,21,0)="^^3^3^3010829^"
^DD(3.2055,2,21,1,0)="This field holds the device Control Code for the function. "
^DD(3.2055,2,21,2,0)="The value in this field is the argument of a XECUTE statement."
^DD(3.2055,2,21,3,0)="If the value of this field is in V it will be used like XECUTE V."
^DD(3.2055,2,"DT")="3010829"
^DD(3.2055,"B","CONTROL CODE",2)=""
^DD(3.2055,"B","CTRL CODE ABBREVIATION",.01)=""
^DD(3.2055,"B","FULL NAME",1)=""
^DD(3.2055,"B","NUMBER",.001)=""
^DD(3.2055,"GL",0,1,.01)=""
^DD(3.2055,"GL",0,2,1)=""
^DD(3.2055,"GL",1,"E1,245",2)=""
^DD(3.2055,"IX",.01)=""
^DD(3.206,0)="OPEN EXECUTE DESCRIPTION SUB-FIELD^^.01^1"
^DD(3.206,0,"DT")="2960813"
^DD(3.206,0,"NM","OPEN EXECUTE DESCRIPTION")=""
^DD(3.206,0,"UP")="3.2"
^DD(3.206,.01,0)="OPEN EXECUTE DESCRIPTION^W^^0;1^Q"
^DD(3.206,.01,21,0)="^^2^2^2960813^"
^DD(3.206,.01,21,1,0)="This field is to hold the description of what the OPEN EXECUTE and CLOSE"
^DD(3.206,.01,21,2,0)="EXECUTE are doing."
^DD(3.206,.01,"DT")="2960813"
^DD(3.206,"B","OPEN EXECUTE DESCRIPTION",.01)=""
^DD(3.206,"GL",0,1,.01)=""
^DD(3.207,0)="OPEN PRINTER DESCRIPTION SUB-FIELD^^.01^1"
^DD(3.207,0,"DT")="2960813"
^DD(3.207,0,"NM","OPEN PRINTER DESCRIPTION")=""
^DD(3.207,0,"UP")="3.2"
^DD(3.207,.01,0)="OPEN PRINTER DESCRIPTION^W^^0;1^Q"
^DD(3.207,.01,21,0)="^^2^2^2960813^"
^DD(3.207,.01,21,1,0)="This field is to hold a description of what the OPEN PRINTER PORT and"
^DD(3.207,.01,21,2,0)="CLOSE PRINTER PORT are doing."
^DD(3.207,.01,"DT")="2960813"
^DD(3.207,"B","OPEN PRINTER DESCRIPTION",.01)=""
^DD(3.207,"GL",0,1,.01)=""
^DD(3.22,0)="FIELD^^3^3"
^DD(3.22,0,"DT")="2931006"
^DD(3.22,0,"IX","B",3.22,.01)=""
^DD(3.22,0,"IX","B1",3.22,.01)=""
^DD(3.22,0,"NM","DA RETURN CODES")=""
^DD(3.22,0,"VR")="8.0"
^DD(3.22,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.22,.01,0)="DA Return String^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>70!($L(X)<3)!'(X?1""["".E) X"
^DD(3.22,.01,.1)="DA RETURN STRING"
^DD(3.22,.01,1,0)="^.1"
^DD(3.22,.01,1,1,0)="3.22^B"
^DD(3.22,.01,1,1,1)="S ^%ZIS(3.22,""B"",$E(X,1,30),DA)="""""
^DD(3.22,.01,1,1,2)="K ^%ZIS(3.22,""B"",$E(X,1,30),DA)"
^DD(3.22,.01,1,2,0)="3.22^B1^MUMPS"
^DD(3.22,.01,1,2,1)="S:$L(X)>30 ^%ZIS(3.22,""B"",X,DA)=1"
^DD(3.22,.01,1,2,2)="K:$L(X)>30 ^%ZIS(3.22,""B"",X,DA)"
^DD(3.22,.01,1,2,"%D",0)="^^2^2^2931006^"
^DD(3.22,.01,1,2,"%D",1,0)="This is a work around for FM only allowing 30 charaters"
^DD(3.22,.01,1,2,"%D",2,0)="in a normal B X-ref.  Makes it look like an old MNEMONIC."
^DD(3.22,.01,1,2,"DT")="2931006"
^DD(3.22,.01,3)="Answer must be 3-70 characters in length."
^DD(3.22,.01,21,0)="^^3^3^2940627^^^"
^DD(3.22,.01,21,1,0)="This field holds the string returned from sending a ANSI DA to"
^DD(3.22,.01,21,2,0)="a terminal."
^DD(3.22,.01,21,3,0)="It starts with the first charater after the <esc>."
^DD(3.22,.01,"DT")="2931006"
^DD(3.22,2,0)="Terminal Type String^RFX^^0;2^K:$L(X)>30!($L(X)<3)!'(X?1.2U1""-""1.17ANP) X I $D(X) K:'($D(^%ZIS(2,""B"",X))>9) X"
^DD(3.22,2,.1)="TERMINAL TYPE STRING"
^DD(3.22,2,3)="Answer must be 3-30 characters in length."
^DD(3.22,2,21,0)="^^2^2^2940627^^"
^DD(3.22,2,21,1,0)="This is the string that should be used in a lookup to the terminal type"
^DD(3.22,2,21,2,0)="file.  This isn't a pionter, but it is checked."
^DD(3.22,2,"DT")="2920924"
^DD(3.22,3,0)="DESCRIPTION^3.223^^1;0"
^DD(3.22,3,21,0)="^^2^2^2940627^"
^DD(3.22,3,21,1,0)="The description of the description field is that of holding the description"
^DD(3.22,3,21,2,0)="of the record."
^DD(3.22,"B","DA RETURN STRING",.01)="1"
^DD(3.22,"B","DA Return String",.01)=""
^DD(3.22,"B","DESCRIPTION",3)=""
^DD(3.22,"B","TERMINAL TYPE STRING",2)="1"
^DD(3.22,"B","Terminal Type String",2)=""
^DD(3.22,"GL",0,1,.01)=""
^DD(3.22,"GL",0,2,2)=""
^DD(3.22,"GL",1,0,3)=""
^DD(3.22,"IX",.01)=""
^DD(3.22,"RQ",.01)=""
^DD(3.22,"RQ",2)=""
^DD(3.22,"SB",3.223,3)=""
^DD(3.223,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(3.223,0,"DT")="2920924"
^DD(3.223,0,"NM","DESCRIPTION")=""
^DD(3.223,0,"UP")="3.22"
^DD(3.223,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(3.223,.01,"DT")="2920924"
^DD(3.223,"B","DESCRIPTION",.01)=""
^DD(3.223,"GL",0,1,.01)=""
^DD(3.23,0)="FIELD^^3^4"
^DD(3.23,0,"DT")="2941020"
^DD(3.23,0,"IX","B",3.23,.01)=""
^DD(3.23,0,"IX","C",3.23,2)=""
^DD(3.23,0,"NM","LINE/PORT ADDRESS")=""
^DD(3.23,0,"VR")="8.0"
^DD(3.23,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.23,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(3.23,.01,1,0)="^.1"
^DD(3.23,.01,1,1,0)="3.23^B"
^DD(3.23,.01,1,1,1)="S ^%ZIS(3.23,""B"",$E(X,1,30),DA)="""""
^DD(3.23,.01,1,1,2)="K ^%ZIS(3.23,""B"",$E(X,1,30),DA)"
^DD(3.23,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(3.23,1,0)="LOCATION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(3.23,1,3)="Answer must be 3-30 characters in length."
^DD(3.23,1,"DT")="2940706"
^DD(3.23,2,0)="DEVICE^P3.5'^%ZIS(1,^0;3^Q"
^DD(3.23,2,1,0)="^.1"
^DD(3.23,2,1,1,0)="3.23^C"
^DD(3.23,2,1,1,1)="S ^%ZIS(3.23,""C"",$E(X,1,30),DA)="""""
^DD(3.23,2,1,1,2)="K ^%ZIS(3.23,""C"",$E(X,1,30),DA)"
^DD(3.23,2,1,1,"%D",0)="^^1^1^2941018^"
^DD(3.23,2,1,1,"%D",1,0)="Cross-reference of pointer to Device File."
^DD(3.23,2,1,1,"DT")="2941018"
^DD(3.23,2,"DT")="2941018"
^DD(3.23,3,0)="SUBTYPE^P3.2'^%ZIS(2,^0;4^Q"
^DD(3.23,3,"DT")="2941020"
^DD(3.23,"B","DEVICE",2)=""
^DD(3.23,"B","LOCATION",1)=""
^DD(3.23,"B","NAME",.01)=""
^DD(3.23,"B","SUBTYPE",3)=""
^DD(3.23,"GL",0,1,.01)=""
^DD(3.23,"GL",0,2,1)=""
^DD(3.23,"GL",0,3,2)=""
^DD(3.23,"GL",0,4,3)=""
^DD(3.23,"IX",.01)=""
^DD(3.23,"IX",2)=""
^DD(3.23,"RQ",.01)=""
^DD(3.4,0)="FIELD^^5^6"
^DD(3.4,0,"DDA")="N"
^DD(3.4,0,"DT")="2910720"
^DD(3.4,0,"IX","B",3.4,.01)=""
^DD(3.4,0,"NM","COMMUNICATIONS PROTOCOL")=""
^DD(3.4,0,"PT",4.3,8.23)=""
^DD(3.4,0,"VR")="8.0"
^DD(3.4,0,"VRPK")="MAILMAN"
^DD(3.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(3.4,.01,.1)="Name of the channel"
^DD(3.4,.01,1,0)="^.1"
^DD(3.4,.01,1,1,0)="3.4^B"
^DD(3.4,.01,1,1,1)="S ^DIC(3.4,""B"",$E(X,1,30),DA)="""""
^DD(3.4,.01,1,1,2)="K ^DIC(3.4,""B"",$E(X,1,30),DA)"
^DD(3.4,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(3.4,.01,21,0)="^^1^1^2931213^^"
^DD(3.4,.01,21,1,0)="The name assigned to this particular communications protocol."
^DD(3.4,.01,"DT")="2851009"
^DD(3.4,1,0)="SEND^K^^1;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(3.4,1,.1)="The executable code to send a line of data in <XMSG>"
^DD(3.4,1,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(3.4,1,9)="@"
^DD(3.4,1,21,0)="^^2^2^2900315^^"
^DD(3.4,1,21,1,0)="The executable MUMPS code that will send the data in the"
^DD(3.4,1,21,2,0)="variable XMSG."
^DD(3.4,2,0)="RECEIVE^K^^2;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(3.4,2,.1)="The executable code to receive a line of data in <XMRG>"
^DD(3.4,2,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(3.4,2,9)="@"
^DD(3.4,2,21,0)="^^2^2^2851015^^"
^DD(3.4,2,21,1,0)="The executable MUMPS code which will receive data and store it"
^DD(3.4,2,21,2,0)="in the variable XMRG."
^DD(3.4,3,0)="OPEN^K^^3;E1,200^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.4,3,.1)="The executable code to open the channel, setting <IO> to proper values"
^DD(3.4,3,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(3.4,3,9)="@"
^DD(3.4,3,21,0)="^^13^13^3020424^^^^"
^DD(3.4,3,21,1,0)="The executable MUMPS code which will open the communication channel,"
^DD(3.4,3,21,2,0)="setting the variable IO to the proper value."
^DD(3.4,3,21,3,0)=" "
^DD(3.4,3,21,4,0)="There are a couple of variables that can be set in this area to control "
^DD(3.4,3,21,5,0)="the connection:"
^DD(3.4,3,21,6,0)=" "
^DD(3.4,3,21,7,0)="XMNO220=1 will stop MailMan from issuing its second (and mandatory"
^DD(3.4,3,21,8,0)="when talking to another MailMan system, but fatal when talking"
^DD(3.4,3,21,9,0)="to non-MailMan SMTP messaging systems) 220 'ready' when the"
^DD(3.4,3,21,10,0)="receiver is indicating it is on the line and ready to receive."
^DD(3.4,3,21,11,0)=" "
^DD(3.4,3,21,12,0)="XMD=""D"" causes MailMan to echo on the principle device the entire"
^DD(3.4,3,21,13,0)="transmission script."
^DD(3.4,3,"DT")="3020424"
^DD(3.4,4,0)="CLOSE^K^^4;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(3.4,4,.1)="The executable code to close the channel"
^DD(3.4,4,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(3.4,4,9)="@"
^DD(3.4,4,21,0)="^^2^2^2851009^"
^DD(3.4,4,21,1,0)="The executable MUMPS code which will close the communication"
^DD(3.4,4,21,2,0)="channel."
^DD(3.4,5,0)="DESCRIPTION^3.41^^5;0"
^DD(3.4,"B","CLOSE",4)=""
^DD(3.4,"B","DESCRIPTION",5)=""
^DD(3.4,"B","NAME",.01)=""
^DD(3.4,"B","Name of the channel",.01)="1"
^DD(3.4,"B","OPEN",3)=""
^DD(3.4,"B","RECEIVE",2)=""
^DD(3.4,"B","SEND",1)=""
^DD(3.4,"GL",0,1,.01)=""
^DD(3.4,"GL",1,"E1,200",1)=""
^DD(3.4,"GL",2,"E1,200",2)=""
^DD(3.4,"GL",3,"E1,200",3)=""
^DD(3.4,"GL",4,"E1,200",4)=""
^DD(3.4,"GL",5,0,5)=""
^DD(3.4,"IX",.01)=""
^DD(3.4,"RQ",.01)=""
^DD(3.4,"SB",3.41,5)=""
^DD(3.41,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(3.41,0,"NM","DESCRIPTION")=""
^DD(3.41,0,"UP")="3.4"
^DD(3.41,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(3.41,.01,21,0)="^^1^1^2931213^"
^DD(3.41,.01,21,1,0)="This is the description of the communications protocol file."
^DD(3.41,"B","DESCRIPTION",.01)=""
^DD(3.41,"GL",0,1,.01)=""
^DD(3.5,0)="FIELD^NL^2010^72"
^DD(3.5,0,"DDA")="N"
^DD(3.5,0,"DT")="2940808"
^DD(3.5,0,"ID",.02)="N % S %=$P($G(^(1)),U) D:$L(%) EN^DDIOL(""  ""_%,"""",$S($X+$L(%)>76:""!?""_(77-$L(%)),1:""?0""))"
^DD(3.5,0,"ID",1)="D EN^DDIOL(""   ""_$P(^(0),U,2),"""",""?0"")"
^DD(3.5,0,"ID",1.9)="D EN^DDIOL(""   ""_$P(^(0),U,9),"""",""?0"")"
^DD(3.5,0,"ID",2)="W """""
^DD(3.5,0,"IX","AC",3.5,1.9)=""
^DD(3.5,0,"IX","ACPU",3.5,1)=""
^DD(3.5,0,"IX","AD",3.5,1)=""
^DD(3.5,0,"IX","AHG",3.53,.01)=""
^DD(3.5,0,"IX","B",3.5,.01)=""
^DD(3.5,0,"IX","B",3.501,.01)=""
^DD(3.5,0,"IX","C",3.5,1)=""
^DD(3.5,0,"IX","CPU",3.5,1.9)=""
^DD(3.5,0,"IX","F",3.5,17)=""
^DD(3.5,0,"IX","G",3.5,1.95)=""
^DD(3.5,0,"IX","LSYN",3.5,.04)=""
^DD(3.5,0,"NM","DEVICE")=""
^DD(3.5,0,"PT",3.05,.01)=""
^DD(3.5,0,"PT",3.081,5)=""
^DD(3.5,0,"PT",3.23,2)=""
^DD(3.5,0,"PT",3.5,16)=""
^DD(3.5,0,"PT",3.5,28)=""
^DD(3.5,0,"PT",3.5,101)=""
^DD(3.5,0,"PT",3.53,.01)=""
^DD(3.5,0,"PT",3.532,.01)=""
^DD(3.5,0,"PT",14.4,91)=""
^DD(3.5,0,"PT",19,227)=""
^DD(3.5,0,"PT",19.396,.01)=""
^DD(3.5,0,"PT",44,22901)=""
^DD(3.5,0,"PT",52.9,.01)=""
^DD(3.5,0,"PT",53.45,.13)=""
^DD(3.5,0,"PT",53.69,.06)=""
^DD(3.5,0,"PT",53.71,2)=""
^DD(3.5,0,"PT",57.5,32)=""
^DD(3.5,0,"PT",58.8,24)=""
^DD(3.5,0,"PT",58.8,25)=""
^DD(3.5,0,"PT",58.8,26)=""
^DD(3.5,0,"PT",58.8,29)=""
^DD(3.5,0,"PT",59,107)=""
^DD(3.5,0,"PT",59.02008,.01)=""
^DD(3.5,0,"PT",59.3,2)=""
^DD(3.5,0,"PT",59.6,.19)=""
^DD(3.5,0,"PT",59.6,.2)=""
^DD(3.5,0,"PT",59.6,4)=""
^DD(3.5,0,"PT",59.7,13)=""
^DD(3.5,0,"PT",59.747,.01)=""
^DD(3.5,0,"PT",59.747,.02)=""
^DD(3.5,0,"PT",62.4,1)=""
^DD(3.5,0,"PT",62.4,29)=""
^DD(3.5,0,"PT",64.56,1)=""
^DD(3.5,0,"PT",64.6,3)=""
^DD(3.5,0,"PT",69.9,303)=""
^DD(3.5,0,"PT",69.9006,.05)=""
^DD(3.5,0,"PT",69.9007,.02)=""
^DD(3.5,0,"PT",69.9007,.03)=""
^DD(3.5,0,"PT",69.9008,.01)=""
^DD(3.5,0,"PT",71,3)=""
^DD(3.5,0,"PT",79,100)=""
^DD(3.5,0,"PT",79.1,3)=""
^DD(3.5,0,"PT",79.1,5)=""
^DD(3.5,0,"PT",79.1,10)=""
^DD(3.5,0,"PT",79.1,16)=""
^DD(3.5,0,"PT",79.1,23)=""
^DD(3.5,0,"PT",79.1,24)=""
^DD(3.5,0,"PT",100.21,1.5)=""
^DD(3.5,0,"PT",100.9901,.05)=""
^DD(3.5,0,"PT",100.99011,.02)=""
^DD(3.5,0,"PT",100.9925,.04)=""
^DD(3.5,0,"PT",100.9925,.05)=""
^DD(3.5,0,"PT",100.9925,.06)=""
^DD(3.5,0,"PT",100.9925,1)=""
^DD(3.5,0,"PT",119.93,.01)=""
^DD(3.5,0,"PT",123.02,8)=""
^DD(3.5,0,"PT",123.5,123.09)=""
^DD(3.5,0,"PT",142.2,.02)=""
^DD(3.5,0,"PT",142.99,.04)=""
^DD(3.5,0,"PT",213.9,2)=""
^DD(3.5,0,"PT",404.51,.04)=""
^DD(3.5,0,"PT",553,6)=""
^DD(3.5,0,"PT",631.9,6)=""
^DD(3.5,0,"PT",669.9,9)=""
^DD(3.5,0,"PT",669.9,27)=""
^DD(3.5,0,"PT",669.9,28)=""
^DD(3.5,0,"PT",669.9,29)=""
^DD(3.5,0,"PT",669.9,30)=""
^DD(3.5,0,"PT",669.9,35)=""
^DD(3.5,0,"PT",690.18,.01)=""
^DD(3.5,0,"PT",713,5)=""
^DD(3.5,0,"PT",713.025,1)=""
^DD(3.5,0,"PT",839.7,.02)=""
^DD(3.5,0,"PT",860.22,4)=""
^DD(3.5,0,"PT",869.2,200.01)=""
^DD(3.5,0,"PT",869.2,300.01)=""
^DD(3.5,0,"PT",870,200.01)=""
^DD(3.5,0,"PT",870,300.01)=""
^DD(3.5,0,"PT",6910.1,.01)=""
^DD(3.5,0,"PT",6922,2)=""
^DD(3.5,0,"PT",7105.3,2)=""
^DD(3.5,0,"PT",7109,3)=""
^DD(3.5,0,"PT",8925.93,1.03)=""
^DD(3.5,0,"PT",8925.94,1.02)=""
^DD(3.5,0,"PT",8925.95,.13)=""
^DD(3.5,0,"PT",8925.952,.02)=""
^DD(3.5,0,"PT",8925.952,.03)=""
^DD(3.5,0,"PT",8989.33,.01)=""
^DD(3.5,0,"PT",8989.5,.01)=""
^DD(3.5,0,"SCR")="I 1 Q:$G(D)'=""LSYN""  Q:'$D(^%ZOSF(""VOL""))  I $P(^%ZIS(1,Y,0),U,9)=^%ZOSF(""VOL"")!($P(^%ZIS(1,Y,0),U,9)="""")"
^DD(3.5,0,"VR")="8.0"
^DD(3.5,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.5,.01,0)="NAME^RFX^^0;1^K:X["";""!(X[""."")!($L(X)>30)!(X'?1U.UNP) X"
^DD(3.5,.01,1,0)="^.1^^-1"
^DD(3.5,.01,1,1,0)="3.5^B"
^DD(3.5,.01,1,1,1)="S ^%ZIS(1,""B"",$E(X,1,30),DA)="""""
^DD(3.5,.01,1,1,2)="K ^%ZIS(1,""B"",$E(X,1,30),DA)"
^DD(3.5,.01,3)="NAME BY WHICH TO REFER TO THE DEVICE, Must start with 1 UPPERcase and not contain lowercase, or ';', or '.'."
^DD(3.5,.01,4)=""
^DD(3.5,.01,21,0)="4^^4^4^2920518^"
^DD(3.5,.01,21,1,0)="This is the name of the device. It is used at the 'DEVICE' prompt"
^DD(3.5,.01,21,2,0)="to select this device. It should not be the internal name for"
^DD(3.5,.01,21,3,0)="the device but a logical one."
^DD(3.5,.01,21,4,0)="It must start with 1 uppercase and not contain lowercase."
^DD(3.5,.01,"AUDIT")=""
^DD(3.5,.01,"DT")="2961025"
^DD(3.5,.02,0)="LOCATION OF TERMINAL^RF^^1;1^K:$L(X)>35!($L(X)<2) X"
^DD(3.5,.02,3)="ANSWER MUST BE 2-35 CHARACTERS IN LENGTH"
^DD(3.5,.02,21,0)="^^2^2^2920518^^^^"
^DD(3.5,.02,21,1,0)="This is a free text description of where the device is located,"
^DD(3.5,.02,21,2,0)="e.g. Ward 2A nurse station, etc."
^DD(3.5,.02,"DT")="2841001"
^DD(3.5,.03,0)="MNEMONIC^3.501^^MN;0"
^DD(3.5,.03,21,0)="^^1^1^2920518^^^^"
^DD(3.5,.03,21,1,0)="These are alternate names which may be used to select the device."
^DD(3.5,.04,0)="LOCAL SYNONYM^F^^1;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(3.5,.04,1,0)="^.1"
^DD(3.5,.04,1,1,0)="3.5^LSYN"
^DD(3.5,.04,1,1,1)="S ^%ZIS(1,""LSYN"",$E(X,1,30),DA)="""""
^DD(3.5,.04,1,1,2)="K ^%ZIS(1,""LSYN"",$E(X,1,30),DA)"
^DD(3.5,.04,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(3.5,.04,4)="W !,""ENTER THE NAME WHICH CAN BE USED TO SELECT THIS DEVICE"",!,""WHEN REFERENCING FROM THE CPU WHICH THIS DEVICE BELONGS."""
^DD(3.5,.04,21,0)="^^6^6^2920518^^^^"
^DD(3.5,.04,21,1,0)="This is an alternate name which may be used to select the device."
^DD(3.5,.04,21,2,0)="When using the LOCAL SYNONYM to select the device, selection can only"
^DD(3.5,.04,21,3,0)="occur on the local CPU.  For example, if you assigned a LOCAL SYNONYM"
^DD(3.5,.04,21,4,0)="to one device on the local CPU, and the same name to a device on"
^DD(3.5,.04,21,5,0)="the remote CPU, selection using the LOCAL SYNONYM will return"
^DD(3.5,.04,21,6,0)="the device on the local CPU."
^DD(3.5,.04,"DT")="2880623"
^DD(3.5,1,0)="$I^RFX^^0;2^K:$L(X)>40 X I $D(X) N % S %=$G(^(""TYPE"")) I $D(^%ZIS(1,""C"",X)) D EN^DDIOL("" This $I in use by other Devices.""_$C(7),"""",""?30"") K:%=""RES"" X"
^DD(3.5,1,.1)="DEVICE $I"
^DD(3.5,1,1,0)="^.1"
^DD(3.5,1,1,1,0)="3.5^C"
^DD(3.5,1,1,1,1)="S ^%ZIS(1,""C"",X,DA)="""""
^DD(3.5,1,1,1,2)="K ^%ZIS(1,""C"",X,DA)"
^DD(3.5,1,1,2,0)="3.5^AD^MUMPS"
^DD(3.5,1,1,2,1)="I $D(ZISOX) K:'$D(^%ZIS(1,DA,0))!(ZISOX=X) ZISOX I $D(ZISOX) K:$P(^(0),U,2)="""" ZISOX I $D(ZISOX) K ^%ZIS(1,""G"",""SYS.""_$P(^(0),U,9)_"".""_ZISOX,DA) X ^DD(3.5,1,9.2) K ZISOX"
^DD(3.5,1,1,2,2)="S ZISOX=X"
^DD(3.5,1,1,2,"%D",0)="^^1^1^2920518^^^^"
^DD(3.5,1,1,2,"%D",1,0)="This sets up the 'G' cross-reference used to identify the primary device."
^DD(3.5,1,1,3,0)="3.5^ACPU^MUMPS"
^DD(3.5,1,1,3,1)="S:$S($D(^%ZIS(1,DA,0)):$S(X]"""":1,1:0),1:0) ^%ZIS(1,""CPU"",$P(^(0),U,9)_"".""_X,DA)="""""
^DD(3.5,1,1,3,2)="K:$S($D(^%ZIS(1,DA,0)):$S(X]"""":1,1:0),1:0) ^%ZIS(1,""CPU"",$P(^(0),U,9)_"".""_X,DA)"
^DD(3.5,1,1,3,"%D",0)="^^2^2^2920518^^^^"
^DD(3.5,1,1,3,"%D",1,0)="This sets up the 'CPU' cross-reference used to find devices"
^DD(3.5,1,1,3,"%D",2,0)="that have a particular $I on a specified VOLUME SET(CPU)."
^DD(3.5,1,1,4,0)="^^TRIGGER^3.54^.01"
^DD(3.5,1,1,4,1)="X ^DD(3.5,1,1,4,1.3) I X S X=DIV X ^DD(3.5,1,1,4,89.2) S Y(101)=$S($D(^%ZISL(3.54,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(3.5,1,1,4,1.4)"
^DD(3.5,1,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^%ZIS(1,D0,""TYPE"")):^(""TYPE""),1:"""") S X=$P(Y(1),U,1),X=X S X=X=""RES"""
^DD(3.5,1,1,4,1.4)="S DIH=$S($D(^%ZISL(3.54,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=3.54,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.5,1,1,4,2)="Q"
^DD(3.5,1,1,4,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X K DIC S DIC=""^%ZISL(3.54,"",DIC(0)=""NMFL"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(3.5,1,1,4,"%D",0)="^^4^4^2930414^^^^"
^DD(3.5,1,1,4,"%D",1,0)="Whenever the $I is edited, the new value of $I is triggered"
^DD(3.5,1,1,4,"%D",2,0)="into the name field of the RESOURCE File(#3.54)."
^DD(3.5,1,1,4,"%D",3,0)="This ensures that an entry in the RESOURCE File(#3.54)"
^DD(3.5,1,1,4,"%D",4,0)="is established for every device entry of TYPE RESOURCE."
^DD(3.5,1,1,4,"CREATE CONDITION")="INTERNAL(#2)=""RES"""
^DD(3.5,1,1,4,"CREATE VALUE")="#1"
^DD(3.5,1,1,4,"DELETE VALUE")="NO EFFECT"
^DD(3.5,1,1,4,"DIC")="LOOKUP"
^DD(3.5,1,1,4,"DT")="2931029"
^DD(3.5,1,1,4,"FIELD")="#1:RESOURCE:#.01"
^DD(3.5,1,3)="on DSM, M+, and MSM $I must be numeric if it is for a local port."
^DD(3.5,1,4)="W !,""If the '$I' value is zero ('0'), then"",!?4,""the Device will be understood to be a slave device on the current port"",!"
^DD(3.5,1,9.2)="I X]"""",$P(^%ZIS(1,DA,0),U,11) X:$D(^%ZIS(1,""G"",""SYS.""_$P(^(0),U,9)_"".""_X))>9 ^DD(3.5,1,9.3) I $P(^%ZIS(1,DA,0),U,11) S ^%ZIS(1,""G"",""SYS.""_$P(^(0),U,9)_"".""_X,DA)="""""
^DD(3.5,1,9.3)="S $P(^%ZIS(1,DA,0),U,11)="""" W !,*7,""CONFLICT OCCURRED.  DELETING ""_$P(^DD(3.5,1.95,0),U,1)_"" FROM DEVICE ""_$P(^%ZIS(1,DA,0),U,1)"
^DD(3.5,1,21,0)="^^6^6^2940718^^^^"
^DD(3.5,1,21,1,0)="This field holds the Hardware port name that the OS can identify when"
^DD(3.5,1,21,2,0)="referencing a port on a CPU."
^DD(3.5,1,21,3,0)="On layered systems where opening of host files is supported,"
^DD(3.5,1,21,4,0)="this field may hold the host file name."
^DD(3.5,1,21,5,0)="When defining a spool device entry(TYPE=""SPL"") on VAX DSM or MSM-Unix,"
^DD(3.5,1,21,6,0)="enter the name of directory where spool host files will be created."
^DD(3.5,1,"DT")="2931029"
^DD(3.5,1.9,0)="VOLUME SET(CPU)^FX^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X'?.8UN.1"":""1.12UN) X"
^DD(3.5,1.9,1,0)="^.1"
^DD(3.5,1.9,1,1,0)="3.5^AC^MUMPS"
^DD(3.5,1.9,1,1,1)="S:'$D(ZISOX) ZISOX="""" K:'$D(^%ZIS(1,DA,0))!(ZISOX=X) ZISOX I $D(ZISOX) K:$P(^(0),U,2)="""" ZISOX I $D(ZISOX) S ZISNX=X X ^DD(3.5,1.9,9.2) K ZISOX,ZISNX"
^DD(3.5,1.9,1,1,2)="S ZISOX=X I $D(^%ZIS(1,DA,0)),$P(^(0),U,2)]"""",$P(^(0),U,9)="""" S ZISNX="""" X ^DD(3.5,1.9,9.2) K ZISNX"
^DD(3.5,1.9,1,1,"%D",0)="^^3^3^2920518^^^^"
^DD(3.5,1.9,1,1,"%D",1,0)="This sets up the 'G' cross-reference used to identify the primary device."
^DD(3.5,1.9,1,1,"%D",2,0)="The AC cross-reference is needed to support the 'G' cross-reference"
^DD(3.5,1.9,1,1,"%D",3,0)="because the 'G' cross-reference is multifield indexed."
^DD(3.5,1.9,1,2,0)="3.5^CPU^MUMPS"
^DD(3.5,1.9,1,2,1)="I $D(^%ZIS(1,DA,0)),$P(^(0),U,2)]"""" K ^%ZIS(1,""CPU"","".""_$P(^(0),U,2),DA) S ^%ZIS(1,""CPU"",X_"".""_$P(^%ZIS(1,DA,0),U,2),DA)="""""
^DD(3.5,1.9,1,2,2)="I $D(^%ZIS(1,DA,0)),$P(^(0),U,2)]"""",$D(^%ZIS(1,""CPU"",X_"".""_$P(^(0),U,2),DA)) K ^(DA) S ^%ZIS(1,""CPU"","".""_$P(^%ZIS(1,DA,0),U,2),DA)="""""
^DD(3.5,1.9,1,2,"%D",0)="^^2^2^2920518^^"
^DD(3.5,1.9,1,2,"%D",1,0)="This cross-reference is a multifield index.  The lookup key is a combination"
^DD(3.5,1.9,1,2,"%D",2,0)="of $I (#1) and VOLUME SET(CPU) (#1.9) fields."
^DD(3.5,1.9,3)="ANSWER MUST BE 1-8 ALPHA NAME OF A VOLUME SET (E.G. 'CCC')"
^DD(3.5,1.9,4)=""
^DD(3.5,1.9,9.2)="K ^%ZIS(1,""G"",""SYS.""_ZISOX_"".""_$P(^%ZIS(1,DA,0),U,2),DA) I $P(^%ZIS(1,DA,0),U,11) X:$D(^%ZIS(1,""G"",""SYS.""_ZISNX_"".""_$P(^(0),U,2)))>9 ^DD(3.5,1.9,9.3) I $P(^%ZIS(1,DA,0),U,11) S ^%ZIS(1,""G"",""SYS.""_ZISNX_"".""_$P(^(0),U,2),DA)="""""
^DD(3.5,1.9,9.3)="S $P(^%ZIS(1,DA,0),U,11)="""" W !,*7,""CONFLICT OCCURRED.  DELETING ""_$P(^DD(3.5,1.95,0),U,1)_"" FROM DEVICE ""_$P(^%ZIS(1,DA,0),U,1)"
^DD(3.5,1.9,21,0)="^^14^14^2920518^^^^"
^DD(3.5,1.9,21,1,0)="This field holds the name of the CPU to which this device belongs."
^DD(3.5,1.9,21,2,0)="This field holds the name of the CPU where the physical port resides."
^DD(3.5,1.9,21,3,0)="On DSM-11, VAX DSM, this field may hold the name of the Volume Set."
^DD(3.5,1.9,21,4,0)="On M/11+, this field may hold the name of the Directory Set."
^DD(3.5,1.9,21,5,0)=" "
^DD(3.5,1.9,21,6,0)="If no name has been entered for this field, this device is assumed"
^DD(3.5,1.9,21,7,0)="to be accessible from all CPUs in the network.  In other words,"
^DD(3.5,1.9,21,8,0)="when this device is referenced, the device handler will operate"
^DD(3.5,1.9,21,9,0)="as if this device is resident on the local CPU.  "
^DD(3.5,1.9,21,10,0)=" "
^DD(3.5,1.9,21,11,0)="For example, if there is a device that uses the same $I on each CPU,"
^DD(3.5,1.9,21,12,0)="one entry can be made in the Device File by leaving the 'Volume"
^DD(3.5,1.9,21,13,0)="Set(CPU)' Field null.  This shortcut will work only if the same $I"
^DD(3.5,1.9,21,14,0)="has been associated with this device on every CPU."
^DD(3.5,1.9,"DT")="2891109"
^DD(3.5,1.95,0)="SIGN-ON/SYSTEM DEVICE^SX^1:YES;0:NO;^0;11^K:X=1&$S($D(^%ZIS(1,D0,0)):$S($P(^(0),U,2)]"""":$S($D(^%ZIS(1,""G"",""SYS.""_$P(^(0),U,9)_"".""_$P(^(0),U,2)))>9:1,1:0),1:1),1:0) X Q"
^DD(3.5,1.95,1,0)="^.1"
^DD(3.5,1.95,1,1,0)="3.5^G^MUMPS"
^DD(3.5,1.95,1,1,1)="S:$S($D(^%ZIS(1,DA,0)):$S($P(^(0),U,2)]"""":$S(+$O(^%ZIS(1,""G"",""SYS.""_$P(^(0),U,9)_"".""_$P(^(0),U,2),0))'>0&(X=1):1,1:0),1:0),1:0) ^(DA)="""" X ^DD(3.5,1.95,9.2)"
^DD(3.5,1.95,1,1,2)="K:$S($D(^%ZIS(1,DA,0)):$S($P(^(0),U,2)]"""":1,1:0),1:0) ^%ZIS(1,""G"",""SYS.""_$P(^(0),U,9)_"".""_$P(^(0),U,2),DA)"
^DD(3.5,1.95,1,1,"%D",0)="^^4^4^2920518^^"
^DD(3.5,1.95,1,1,"%D",1,0)="The 'G' cross-reference is a multifield index.  This index is used"
^DD(3.5,1.95,1,1,"%D",2,0)="to identify the primary device.  The fields that affect this"
^DD(3.5,1.95,1,1,"%D",3,0)="cross-reference are $I (#1), VOLUME SET(CPU) (#1.9) and SIGN-ON/SYSTEM"
^DD(3.5,1.95,1,1,"%D",4,0)="DEVICE (#1.95)."
^DD(3.5,1.95,3)="YOU MAY ASSIGN ONLY ONE SIGN-ON/SYSTEM DEVICE PER $I PER CPU."
^DD(3.5,1.95,4)="W !,""Answer 'yes' if this device is the primary device amoung those"",!,""device entries that have the same $I and VOLUME SET(CPU)."""
^DD(3.5,1.95,9.2)="K:$S($D(^%ZIS(1,DA,0)):$S($P(^(0),U,2)]""""&(X=0):1,1:0),1:0) ^%ZIS(1,""G"",""SYS.""_$P(^(0),U,9)_"".""_$P(^(0),U,2),DA)"
^DD(3.5,1.95,21,0)="^^10^10^2920518^^^^"
^DD(3.5,1.95,21,1,0)="If answered 'YES', this field identifies that this entry is the primary"
^DD(3.5,1.95,21,2,0)="device among those device entries that have the same $I with the same"
^DD(3.5,1.95,21,3,0)="VOLUME SET(CPU)."
^DD(3.5,1.95,21,4,0)=" "
^DD(3.5,1.95,21,5,0)="Among those device entries that have a common $I and CPU,"
^DD(3.5,1.95,21,6,0)="only one of these entries can have this field set to 'YES'."
^DD(3.5,1.95,21,7,0)="If none of the common device entries are set to 'YES', the"
^DD(3.5,1.95,21,8,0)="default device will be identified by the first device on"
^DD(3.5,1.95,21,9,0)="the CPU x-ref.  The default device is used when the device"
^DD(3.5,1.95,21,10,0)="handler is invoked with $I as the device to be selected."
^DD(3.5,1.95,"DT")="2871013"
^DD(3.5,2,0)="TYPE^RS^TRM:TERMINAL;OTH:OTHER;MT:MAGTAPE;SDP:SDP;SPL:SPOOL;BAR:BARCODE READER;HFS:HOST FILE SERVER;VTRM:VIRTUAL TERMINAL;HG:HUNT GROUP;RES:RESOURCES;CHAN:NETWORK CHANNEL;IMPC:IMAGING WORK STATION;^TYPE;1^Q"
^DD(3.5,2,.1)=""
^DD(3.5,2,1,0)="^.1"
^DD(3.5,2,1,1,0)="^^TRIGGER^3.54^.01"
^DD(3.5,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=""RES"" I X S X=DIV X ^DD(3.5,2,1,1,89.2) ;S Y(101)=$S($D(^%ZISL(3.54,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(3.5,2,1,1,1.1) X ^DD(3.5,2,1,1,1.4)"
^DD(3.5,2,1,1,1.1)="S X=DIV S Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2)"
^DD(3.5,2,1,1,1.4)="S DIH=$S($D(^%ZISL(3.54,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=3.54,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.5,2,1,1,2)="Q"
^DD(3.5,2,1,1,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2) K DIC S DIC=""^%ZISL(3.54,"",DIC(0)=""NMFL"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(3.5,2,1,1,"%D",0)="^^5^5^2930414^"
^DD(3.5,2,1,1,"%D",1,0)="Whenever the TYPE field of the DEVICE File(#3.5) is changed"
^DD(3.5,2,1,1,"%D",2,0)="to TYPE RESOURCE, the value of $I is triggered"
^DD(3.5,2,1,1,"%D",3,0)="into the NAME field of the RESOURCE File(#3.54)."
^DD(3.5,2,1,1,"%D",4,0)="This ensures that an entry in the RESOURCE File(#3.54)"
^DD(3.5,2,1,1,"%D",5,0)="is established for every device entry of TYPE RESOURCE."
^DD(3.5,2,1,1,"CREATE CONDITION")="INTERNAL(#2)=""RES"""
^DD(3.5,2,1,1,"CREATE VALUE")="#1"
^DD(3.5,2,1,1,"DELETE VALUE")="NO EFFECT"
^DD(3.5,2,1,1,"DIC")="LOOKUP"
^DD(3.5,2,1,1,"DT")="2921015"
^DD(3.5,2,1,1,"FIELD")="#1:RESOURCE"
^DD(3.5,2,1,2,0)="^^TRIGGER^3.5^35"
^DD(3.5,2,1,2,1)="X ^DD(3.5,2,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^%ZIS(1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(3.5,2,1,2,1.4)"
^DD(3.5,2,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X,Y(3)=$S($D(^%ZIS(1,D0,1)):^(1),1:""""),X=Y(0) S X=X=""RES"",Y(1)=X,Y(2)=X S X=$P(Y(3),U,10) S X=X="""",Y=X,X=Y(1),X=X&Y"
^DD(3.5,2,1,2,1.4)="S DIH=$S($D(^%ZIS(1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,10)=DIV,DIH=3.5,DIG=35 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.5,2,1,2,2)="Q"
^DD(3.5,2,1,2,3)="Set the default value."
^DD(3.5,2,1,2,"%D",0)="^^3^3^2961212^"
^DD(3.5,2,1,2,"%D",1,0)="Whenever a device entry is created with a TYPE RESOURCE, a default value"
^DD(3.5,2,1,2,"%D",2,0)="of '1' is triggered into the AVAILABLE SLOTS field of the RESOURCE"
^DD(3.5,2,1,2,"%D",3,0)="File(#3.54)."
^DD(3.5,2,1,2,"CREATE CONDITION")="(INTERNAL(TYPE)=""RES"")&(INTERNAL(#35)="""")"
^DD(3.5,2,1,2,"CREATE VALUE")="""1"""
^DD(3.5,2,1,2,"DELETE VALUE")="NO EFFECT"
^DD(3.5,2,1,2,"DT")="2961212"
^DD(3.5,2,1,2,"FIELD")="#35"
^DD(3.5,2,9)="@"
^DD(3.5,2,21,0)="24^^44^44^2921109^^^^"
^DD(3.5,2,21,1,0)="This field has the general type of device on the CPU.  'TRM' is the most"
^DD(3.5,2,21,2,0)="common entry."
^DD(3.5,2,21,3,0)="      TRM -- Terminal devices such as most crts and printers"
^DD(3.5,2,21,4,0)="             should be associated with a corresponding device entry"
^DD(3.5,2,21,5,0)="             with a type of 'TRM'."
^DD(3.5,2,21,6,0)="      OTH -- Other devices that do not fit a particular category"
^DD(3.5,2,21,7,0)="             should be given a type of 'OTH'."
^DD(3.5,2,21,8,0)="       MT -- Magtape device should have a type of 'MT'."
^DD(3.5,2,21,9,0)="      SDP -- Sequential Disk Processor is a predefined allocated"
^DD(3.5,2,21,10,0)="             disk space used for sequential processing.  On DSM-11"
^DD(3.5,2,21,11,0)="             and M/11+ systems, devices 59 thru 62 are reserved for SDP."
^DD(3.5,2,21,12,0)="             On MSM, the Sequential Block Processor(SBP) is essentially"
^DD(3.5,2,21,13,0)="             the same as SDP."
^DD(3.5,2,21,14,0)="      SPL -- Spool device is a predefined allocated disk space similar"
^DD(3.5,2,21,15,0)="             to SDP.  However, access to the spool device can be achieved"
^DD(3.5,2,21,16,0)="             from multiple users simultaneously."
^DD(3.5,2,21,17,0)="      BAR -- Bar code reader.  This type identifies the device"
^DD(3.5,2,21,18,0)="             as a barcode reader."
^DD(3.5,2,21,19,0)="      HFS -- Host File Server is only available on mumps platforms"
^DD(3.5,2,21,20,0)="             that exists on a layered system(e.g.:  DOS, VMS, UNIX, etc.)."
^DD(3.5,2,21,21,0)="             This type and the associated functionality provides"
^DD(3.5,2,21,22,0)="             the vehicle to read and write to host level files."
^DD(3.5,2,21,23,0)="             Instead of directing reports to a printer, the results"
^DD(3.5,2,21,24,0)="             could be placed into a DOS, VMS, or UNIX file.  This would"
^DD(3.5,2,21,25,0)="             allow a non-mumps based statistical package or spreadsheet"
^DD(3.5,2,21,26,0)="             to use data produced by the mumps based application by"
^DD(3.5,2,21,27,0)="             simply extracting data from the host file."
^DD(3.5,2,21,28,0)="     VTRM -- Virtual Terminal Server devices are those that are associated"
^DD(3.5,2,21,29,0)="             with a dynamically created mumps port identification($I)."
^DD(3.5,2,21,30,0)="             A generic device entry with a device type of 'VTRM'"
^DD(3.5,2,21,31,0)="             can be established for users who log into the system"
^DD(3.5,2,21,32,0)="             through terminal servers."
^DD(3.5,2,21,33,0)="       HG -- Hunt Groups are groups of devices that share a purpose"
^DD(3.5,2,21,34,0)="             for printing common reports.  Printers in the same Hunt Group"
^DD(3.5,2,21,35,0)="             are usually expected to be in the same general proximity."
^DD(3.5,2,21,36,0)="             Reports may be directed to a Hunt Group or to one of its"
^DD(3.5,2,21,37,0)="             members.  If a member is not available, the next available"
^DD(3.5,2,21,38,0)="             device in the Hunt Group is selected."
^DD(3.5,2,21,39,0)="      RES -- Resources is a type used for special sequencing of tasks"
^DD(3.5,2,21,40,0)="             that do not require a particular device."
^DD(3.5,2,21,41,0)="     CHAN -- Network Channels are high speed devices that use network"
^DD(3.5,2,21,42,0)="             protocols such as DECNET and TCP/IP."
^DD(3.5,2,21,43,0)="     IMPC -- Imaging work station device(reserved for future use for"
^DD(3.5,2,21,44,0)="             DHCP Imaging Project)."
^DD(3.5,2,"DT")="2961212"
^DD(3.5,3,0)="SUBTYPE^RP3.2^%ZIS(2,^SUBTYPE;1^Q"
^DD(3.5,3,1,0)="^.1^^0"
^DD(3.5,3,21,0)="^^3^3^2920518^^^^"
^DD(3.5,3,21,1,0)="This field tells what type of terminal is on a terminal port."
^DD(3.5,3,21,2,0)="It has a great impact on whether the proper terminal control codes"
^DD(3.5,3,21,3,0)="get sent to the terminal."
^DD(3.5,4,0)="ASK DEVICE^S^1:YES;0:NO;^0;3^Q"
^DD(3.5,4,3)="IF '0', YOU WON'T BE ASKED TO SEND OUTPUT FROM THIS DEVICE TO ANOTHER"
^DD(3.5,4,21,0)="2^^2^2^2920518^^^^"
^DD(3.5,4,21,1,0)="This field controls if the 'DEVICE' question is asked when a call"
^DD(3.5,4,21,2,0)="is made to ^%ZIS."
^DD(3.5,5,0)="ASK PARAMETERS^S^1:YES;0:NO;^0;4^Q"
^DD(3.5,5,3)="Enter YES if OPEN parameters(RIGHT MARGIN on TRM & VTRM devices) should be asked when the device is selected."
^DD(3.5,5,21,0)="^^4^4^2920706^^"
^DD(3.5,5,21,1,0)="On devices of TYPE 'TRM' and 'VTRM', this field controls"
^DD(3.5,5,21,2,0)="if the 'RIGHT MARGIN' question is asked after selecting the device."
^DD(3.5,5,21,3,0)="On devices of TYPE 'MT', 'SDP', 'BAR', and 'OTH', this field controls"
^DD(3.5,5,21,4,0)="if the 'ADDRESS/PARAMETERS' question is asked after selecting the device."
^DD(3.5,5.1,0)="ASK HOST FILE^S^1:YES;0:NO;^1;5^Q"
^DD(3.5,5.1,3)="ANSWER YES IF HOST FILE NAME SHOULD BE ASKED"
^DD(3.5,5.1,21,0)="^^3^3^2920930^^^^"
^DD(3.5,5.1,21,1,0)="Answer 'yes' if 'HOST FILE NAME:' should be asked when the device"
^DD(3.5,5.1,21,2,0)="is selected.  TYPE must be 'HFS'.  Only applicable on layered systems"
^DD(3.5,5.1,21,3,0)="that support host files."
^DD(3.5,5.1,"DT")="2880714"
^DD(3.5,5.2,0)="ASK HFS I/O OPERATION^S^1:YES;0:NO;^1;6^Q"
^DD(3.5,5.2,4)="W !,""If you wish to have INPUT/OUTPUT OPERATION asked, answer 'yes'"",!,""to this field.  ASK PARAMETERS must be set to 'no'"",!,""and the OPEN PARAMETERS must be null."""
^DD(3.5,5.2,21,0)="^^6^6^2920515^^^^"
^DD(3.5,5.2,21,1,0)="For systems that support host files, this field may be used instead"
^DD(3.5,5.2,21,2,0)="of 'ADDRESS/PARAMETERS' to specify more general parameters."
^DD(3.5,5.2,21,3,0)=" "
^DD(3.5,5.2,21,4,0)="If 'Ask Parameters' is null or 'NO', set this field to 'YES' and the"
^DD(3.5,5.2,21,5,0)="device handler will ask for INPUT/OUTPUT OPERATION upon selecting a"
^DD(3.5,5.2,21,6,0)="device."
^DD(3.5,5.2,"DT")="2880714"
^DD(3.5,5.5,0)="QUEUING^S^0:ALLOWED;1:FORCED;2:NOT ALLOWED;^0;12^Q"
^DD(3.5,5.5,21,0)="^^15^15^2941109^^^^"
^DD(3.5,5.5,21,1,0)="When this field is set to FORCED and queuing is allowed by the calling"
^DD(3.5,5.5,21,2,0)="program (%ZIS[""Q""), the Device Handler will return IO(""Q"")=1 upon"
^DD(3.5,5.5,21,3,0)="device selection and the job will be queued.  That is, the user"
^DD(3.5,5.5,21,4,0)="does not need to enter ""Q"" to invoke queuing and will not be prompted"
^DD(3.5,5.5,21,5,0)="with the question about wanting output queued.  If queuing is not"
^DD(3.5,5.5,21,6,0)="allowed (%ZIS'[""Q""), the setting of this field to FORCED"
^DD(3.5,5.5,21,7,0)="will have no effect."
^DD(3.5,5.5,21,8,0)=" "
^DD(3.5,5.5,21,9,0)="Set this field to NOT ALLOWED if queuing is not possible or desired"
^DD(3.5,5.5,21,10,0)="for this device."
^DD(3.5,5.5,21,11,0)=" "
^DD(3.5,5.5,21,12,0)="Set this field to ALLOWED if queuing is possible for this device."
^DD(3.5,5.5,21,13,0)="When this field is set to ALLOWED, the application/user will determine"
^DD(3.5,5.5,21,14,0)="if queuing is desired.  Setting this field to null is the same as"
^DD(3.5,5.5,21,15,0)="setting this field to ALLOWED."
^DD(3.5,5.5,"DT")="2940623"
^DD(3.5,6,0)="OUT-OF-SERVICE DATE^D^^90;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(3.5,6,1,0)="^.1^^0"
^DD(3.5,6,3)="IF THERE IS AN ANSWER, TERMINAL WILL BE CONSIDERED 'OUT OF SERVICE', ON OR AFTER THAT DATE"
^DD(3.5,6,21,0)="^^2^2^2920515^^^^"
^DD(3.5,6,21,1,0)="If entered then this device cannot be selected if the current date is"
^DD(3.5,6,21,2,0)="greater than, or the same as, the date specified."
^DD(3.5,6,"DT")="2900102"
^DD(3.5,7,0)="NEAREST PHONE^F^^90;2^K:$L(X)>25!($L(X)<2) X"
^DD(3.5,7,3)="ANSWER MUST BE 2-25 CHARACTERS IN LENGTH"
^DD(3.5,7,21,0)="^^1^1^2920515^^^^"
^DD(3.5,7,21,1,0)="The location of the telephone nearest to this device."
^DD(3.5,8,0)="KEY OPERATOR^F^^90;3^K:$L(X)>25!($L(X)<2) X"
^DD(3.5,8,3)="ANSWER MUST BE 2-25 CHARACTERS IN LENGTH"
^DD(3.5,8,21,0)="^^1^1^2920515^^^"
^DD(3.5,8,21,1,0)="The name of the person who usually uses this device."
^DD(3.5,9,0)="MARGIN WIDTH^NJ3,0^^91;1^K:+X'=X!(X>256)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.5,9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 256"
^DD(3.5,9,21,0)="^^4^4^2971105^"
^DD(3.5,9,21,1,0)="This field if it has data will override the Right Margin field value"
^DD(3.5,9,21,2,0)="from the Terminal type file."
^DD(3.5,9,21,3,0)="Leave this field blank unless you are sure that you need to have a"
^DD(3.5,9,21,4,0)="different Right Margin than what is in the terminal type file."
^DD(3.5,9,"DT")="2971105"
^DD(3.5,11,0)="PAGE LENGTH^NJ5,0^^91;3^K:+X'=X!(X>65500)!(X<3)!(X?.E1"".""1.N) X"
^DD(3.5,11,3)="Type a number between 3 and 65500, 0 Decimal Digits"
^DD(3.5,11,21,0)="^^8^8^3041221^"
^DD(3.5,11,21,1,0)="This field, if it has data, will override the Page Length field value"
^DD(3.5,11,21,2,0)="from the Terminal type file."
^DD(3.5,11,21,3,0)="Leave this field blank unless you are sure that you need to have a"
^DD(3.5,11,21,4,0)="different Page Length than what is in the terminal type file."
^DD(3.5,11,21,5,0)=" "
^DD(3.5,11,21,6,0)="If this is a CRT then this is the number of lines which can"
^DD(3.5,11,21,7,0)="be displayed on the screen, otherwise, for printers, it is"
^DD(3.5,11,21,8,0)="the number of print lines per page."
^DD(3.5,11,"DT")="3041221"
^DD(3.5,11.2,0)="SUPPRESS FORM FEED AT CLOSE^S^1:YES;0:NO;^1;11^Q"
^DD(3.5,11.2,21,0)="^^3^3^2920515^^^^"
^DD(3.5,11.2,21,1,0)="This field is used flag devices that should not have form feeds issued"
^DD(3.5,11.2,21,2,0)="at the time the device is closed."
^DD(3.5,11.2,21,3,0)="This field should be answered 'YES' for label printers."
^DD(3.5,11.2,"DT")="2910418"
^DD(3.5,15,0)="SECURITY^FX^^95;E1,99^K:'$D(DUZ(0)) X I $D(X),DUZ(0)'=""@"" F %=1:1:$L(X) I DUZ(0)'[$E(X,%) K X Q"
^DD(3.5,15,1,0)="^.1^^0"
^DD(3.5,15,3)="STRING OF SECURITY CODES (MATCHING YOUR OWN 'DUZ(0)')"
^DD(3.5,15,9)="@"
^DD(3.5,15,21,0)="^^2^2^2920515^^^^"
^DD(3.5,15,21,1,0)="The users DUZ(0) (fileman access) must contain at least one of the"
^DD(3.5,15,21,2,0)="characters in this field for the user to be able to select this device."
^DD(3.5,15,"DT")="2900102"
^DD(3.5,16,0)="CLOSEST PRINTER^P3.5^%ZIS(1,^99;1^Q"
^DD(3.5,16,21,0)="^^2^2^2920515^^^^"
^DD(3.5,16,21,1,0)="This is the name of the nearest printer, it is selected at the "
^DD(3.5,16,21,2,0)="""DEVICE"" prompt simply by entering ""P""."
^DD(3.5,17,0)="FORM CURRENTLY MOUNTED^F^^F;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(3.5,17,1,0)="^.1"
^DD(3.5,17,1,1,0)="3.5^F"
^DD(3.5,17,1,1,1)="S ^%ZIS(1,""F"",$E(X,1,30),DA)="""""
^DD(3.5,17,1,1,2)="K ^%ZIS(1,""F"",$E(X,1,30),DA)"
^DD(3.5,17,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(3.5,17,21,0)="^^1^1^2920515^^^^"
^DD(3.5,17,21,1,0)="This describes the type of form currently in the printer."
^DD(3.5,19,0)="OPEN PARAMETERS^FX^^IOPAR;1^Q"
^DD(3.5,19,1,0)="^.1^^0"
^DD(3.5,19,3)="Enter the open parameters specific to this device."
^DD(3.5,19,21,0)="^^6^6^2920515^^^^"
^DD(3.5,19,21,1,0)="These parameters are used to open a device with specified"
^DD(3.5,19,21,2,0)="characteristics/addresses."
^DD(3.5,19,21,3,0)="This field is primarily used with non-terminal devices such"
^DD(3.5,19,21,4,0)="as magtape and SDP."
^DD(3.5,19,21,5,0)="For SDP, use (block:0) on M/11; (0:block:drive) on DSM."
^DD(3.5,19,21,6,0)="For Magtape, use (""VAL4"":0:2048) on both M/11 and DSM."
^DD(3.5,19,"DT")="2900126"
^DD(3.5,19.3,0)="CLOSE PARAMETERS^F^^IOCPAR;1^K:$L(X)>120!($L(X)<1) X"
^DD(3.5,19.3,3)="Answer must be 1-120 characters in length."
^DD(3.5,19.3,21,0)="^^1^1^2940503^"
^DD(3.5,19.3,21,1,0)="This field holds the parameters to be used in a MUMPS CLOSE statement."
^DD(3.5,19.3,"DT")="2940503"
^DD(3.5,19.5,0)="USE PARAMETERS^F^^IOUPAR;1^K:$L(X)>120!($L(X)<1) X"
^DD(3.5,19.5,1,0)="^.1^^0"
^DD(3.5,19.5,3)="ANSWER MUST BE 1-120 CHARACTERS IN LENGTH"
^DD(3.5,19.5,21,0)="^^1^1^2920515^^^"
^DD(3.5,19.5,21,1,0)="This field holds the parameters to be used in a MUMPS USE statement."
^DD(3.5,19.5,"DT")="2940503"
^DD(3.5,19.7,0)="PRE-OPEN EXECUTE^K^^POX;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.5,19.7,3)="This is Standard MUMPS code."
^DD(3.5,19.7,9)="@"
^DD(3.5,19.7,21,0)="^^3^3^2950201^^"
^DD(3.5,19.7,21,1,0)="This is the Xecutable MUMPS code which is used by %ZIS before opening"
^DD(3.5,19.7,21,2,0)="the device.  Setting %ZISQUIT=1 in the PRE-OPEN EXECUTE code"
^DD(3.5,19.7,21,3,0)="will signal %ZIS to reject the selected device."
^DD(3.5,19.7,"DT")="2940503"
^DD(3.5,19.8,0)="POST-CLOSE EXECUTE^K^^PCX;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(3.5,19.8,3)="This is Standard MUMPS code."
^DD(3.5,19.8,9)="@"
^DD(3.5,19.8,21,0)="^^2^2^2950201^"
^DD(3.5,19.8,21,1,0)="This is the Xecutable MUMPS code which is used by %ZISC after closing"
^DD(3.5,19.8,21,2,0)="the device."
^DD(3.5,19.8,"DT")="2940503"
^DD(3.5,20,0)="BAUD RATE^CJ8X^^ ; ^S X=$P(""50^75^110^134^150^300^600^1200^1800^2000^2400^3600^4800^7200^9600"",U,$P($S($D(^%IS(+$P(^%ZIS(1,D0,0),U,2),2)):^(2),1:0),U,3)\64#16) I 'X,$D(^%ZOSF(""OS"")),^(""OS"")[""DSM"" D BAUD^%ZOSV"
^DD(3.5,20,9)="^"
^DD(3.5,20,9.01)=""
^DD(3.5,20,9.1)="S X=$P(""50^75^110^134^150^300^600^1200^1800^2000^2400^3600^4800^7200^9600"",U,$P($S($D(^%IS(+$P(^%ZIS(1,D0,0),U,2),2)):^(2),1:0),U,3)\64#16)"
^DD(3.5,20,21,0)="^^3^3^2920515^^^^"
^DD(3.5,20,21,1,0)="This field returns the Baud Rate (i.e. speed) of this device, but"
^DD(3.5,20,21,2,0)="only if it is a terminal from which such information can be"
^DD(3.5,20,21,3,0)="determined."
^DD(3.5,20,"DT")="2840821"
^DD(3.5,21,0)="MICOM PRINTER CONTENTION PORT^S^1:YES;0:NO;^1;7^Q"
^DD(3.5,21,21,0)="^^3^3^2920515^^^"
^DD(3.5,21,21,1,0)="This field is reserved for future use to determine whether the device"
^DD(3.5,21,21,2,0)="uses printer contention.  It would be a preliminary check to decide"
^DD(3.5,21,21,3,0)="whether it is necessary to invoke the printer contention programs."
^DD(3.5,21,"DT")="2880721"
^DD(3.5,23,0)="MODEM^P3.2^%ZIS(2,^0;6^Q"
^DD(3.5,23,3)="IF THIS DEVICE HAS A MODEM ATTACHED TO IT, ENTER NAME OF MODEM"
^DD(3.5,23,21,0)="^^5^5^2920515^^^"
^DD(3.5,23,21,1,0)="If this device is connected to a modem, this is the name of the type"
^DD(3.5,23,21,2,0)="of modem, as found in the TERMINAL TYPE file.  Modem names must begin"
^DD(3.5,23,21,3,0)="with ""M-"".  This field is used by MailMan for controlling the auto-dialer."
^DD(3.5,23,21,4,0)="If the device is used only for dial-in (receives calls only, never places"
^DD(3.5,23,21,5,0)="them), then this field is not necessary."
^DD(3.5,23,"DT")="2840302"
^DD(3.5,25,0)="PRIORITY AT RUN TIME^NJ2,0^^0;5^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.5,25,3)="An integer from 1 to 10 for the job priority."
^DD(3.5,25,21,0)="^^3^3^2920515^^^^"
^DD(3.5,25,21,1,0)="This field, if set, will be used by the Task Manager to set a job's"
^DD(3.5,25,21,2,0)="operating system run priority. Lowest priority is 1, and 10 is the"
^DD(3.5,25,21,3,0)="highest."
^DD(3.5,25,"DT")="2851003"
^DD(3.5,26,0)="TASKMAN PRINT A HEADER PAGE^S^y:YES;n:NO;^0;7^Q"
^DD(3.5,26,21,0)="^^2^2^2920515^^^"
^DD(3.5,26,21,1,0)="If this field is set to YES then, Taskman will print a header page"
^DD(3.5,26,21,2,0)="before the job is started to form a break between reports."
^DD(3.5,26,"DT")="2851101"
^DD(3.5,27,0)="PASSWORD^F^^1;2^K:$L(X)>15!($L(X)<6)!'(X?.UNP) X"
^DD(3.5,27,3)="ANSWER MUST BE 6-15 CHARACTERS IN LENGTH"
^DD(3.5,27,21,0)="^^4^4^2920515^^^^"
^DD(3.5,27,21,1,0)="Passwords are used for an additional level of security on devices such as"
^DD(3.5,27,21,2,0)="modems.  If a value is entered in this field, all users trying to log on to"
^DD(3.5,27,21,3,0)="this device will be prompted for the password before being prompted for the"
^DD(3.5,27,21,4,0)="access code."
^DD(3.5,27,"DT")="2851028"
^DD(3.5,28,0)="SLAVED FROM DEVICE^*P3.5'X^%ZIS(1,^0;8^S %ZISV=$P(^%ZIS(1,D0,0),U,9),DIC(""S"")=""I $L($P(^(0),U,2)),$P(^(0),U,9)=%ZISV"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(3.5,28,3)="Enter the device that this device is slaved off of."
^DD(3.5,28,12)="Can't slave off of a slave or remote device"
^DD(3.5,28,12.1)="S DIC(""S"")=""I $L($P(^(0),U,2)),$L($P(^(0),U,8,9))<2"""
^DD(3.5,28,21,0)="^^4^4^2920515^^^"
^DD(3.5,28,21,1,0)="This field may permit queuing to slaved devices.  Given hard-wiring such"
^DD(3.5,28,21,2,0)="that a display terminal may be identified with a device name, queuing may"
^DD(3.5,28,21,3,0)="take place to the slaved device ($I=0).  Enter the device name of the"
^DD(3.5,28,21,4,0)="display terminal in this field."
^DD(3.5,28,"DT")="2880420"
^DD(3.5,30,0)="HUNT GROUP DEVICE^3.53PA^^HG;0"
^DD(3.5,30,21,0)="^^2^2^2920515^^^"
^DD(3.5,30,21,1,0)="This multiple contains the list of members belonging to the hunt group"
^DD(3.5,30,21,2,0)="named in the #.01 field of the Device File."
^DD(3.5,30,22)="6"
^DD(3.5,30,"DT")="2890822"
^DD(3.5,31,0)="AUTO DESPOOL^S^1:YES;0:NO;^1;8^Q"
^DD(3.5,31,21,0)="^^1^1^2920515^^^"
^DD(3.5,31,21,1,0)="Answer 'YES' if the report is to be automatically despooled."
^DD(3.5,31,"DT")="2890907"
^DD(3.5,32,0)="DESPOOL DEVICES^3.532PA^^SPL;0"
^DD(3.5,32,21,0)="^^2^2^2920515^^^"
^DD(3.5,32,21,1,0)="This is the list of printers that reports will be printed during"
^DD(3.5,32,21,2,0)="the despool process for the named spool device."
^DD(3.5,33,0)="GENERATE SPL DOC NAME^S^1:YES;0:NO;^1;9^Q"
^DD(3.5,33,3)="Enter 'YES' if you want the system to generate document name."
^DD(3.5,33,21,0)="^^2^2^2920515^^^"
^DD(3.5,33,21,1,0)="Answer 'YES' to this field if the spool document name is to be"
^DD(3.5,33,21,2,0)="automatically generated."
^DD(3.5,33,"DT")="2890907"
^DD(3.5,35,0)="RESOURCE SLOTS^NJ3,0^^1;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.5,35,1,0)="^.1"
^DD(3.5,35,1,1,0)="^^TRIGGER^3.54^1"
^DD(3.5,35,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(3.5,35,1,1,89.2) S Y(101)=$S($D(^%ZISL(3.54,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y X ^DD(3.5,35,1,1,1.1) X ^DD(3.5,35,1,1,1.4)"
^DD(3.5,35,1,1,1.1)="S X=DIV X ^DD(3.5,35,1,1,49.4) S Y=X,X=Y(1),X=X-Y S D0=I(0,0) S D1=I(101,0)"
^DD(3.5,35,1,1,1.4)="S DIH=$S($D(^%ZISL(3.54,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=3.54,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.5,35,1,1,2)="Q"
^DD(3.5,35,1,1,49.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(2)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=DIV,Y(1)=X S X=$P(Y(2),U,2) K DIC S DIC=""^%ZISL(3.54,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y"
^DD(3.5,35,1,1,49.3)="X ^DD(3.5,35,1,1,49.2) S I(100,0)=$S($D(D0):D0,1:""""),I(101,0)=$S($D(D1):D1,1:""""),Y(101)=X,Y(202)="""""
^DD(3.5,35,1,1,49.4)="X ^DD(3.5,35,1,1,49.3) X ""F D1=0:0 S D1=$O(^%ZISL(3.54,D0,1,D1)) Q:D1'>0  S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" Y(202)=Y(202)+1"" S D(1)=D1 S X=+Y(202)"
^DD(3.5,35,1,1,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^%ZIS(1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X K DIC S DIC=""^%ZISL(3.54,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(3.5,35,1,1,"CREATE VALUE")="(#35)-(#1:RESOURCE:COUNT(#2))"
^DD(3.5,35,1,1,"DELETE VALUE")="NO EFFECT"
^DD(3.5,35,1,1,"DIC")="LOOKUP"
^DD(3.5,35,1,1,"DT")="2921015"
^DD(3.5,35,1,1,"FIELD")="#1:RESOURCE:AVAILABLE SLOTS"
^DD(3.5,35,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(3.5,35,5,1,0)="3.5^2^2"
^DD(3.5,35,9)="^"
^DD(3.5,35,21,0)="^^3^3^2920515^^^^"
^DD(3.5,35,21,1,0)="Enter a value that will identify the limit of concurrent jobs"
^DD(3.5,35,21,2,0)="that may own the same resource.  If no data is entered, the"
^DD(3.5,35,21,3,0)="device handler will use a default value of 1."
^DD(3.5,35,"DT")="2940422"
^DD(3.5,36,0)="GLOBAL LOCK^SO^0:No;1:Yes;^GBL;1^Q"
^DD(3.5,36,2)="S Y(0)=Y S Y=Y"
^DD(3.5,36,2.1)="S Y=Y"
^DD(3.5,36,3)=""
^DD(3.5,36,21,0)="^.001^2^2^3071108^^"
^DD(3.5,36,21,1,0)="This field tells the device handler if it should use a global lock"
^DD(3.5,36,21,2,0)="to control access to a device."
^DD(3.5,36,23,0)="^.001^9^9^3071108^^"
^DD(3.5,36,23,1,0)="This field locks ^%ZIS(""lock"",IO) in the device handler."
^DD(3.5,36,23,2,0)="It is cleared in %ZISC."
^DD(3.5,36,23,3,0)="It is not limited to CHAN devices anymore."
^DD(3.5,36,23,4,0)=" "
^DD(3.5,36,23,5,0)="In the past this field held a global to lock but there was no code"
^DD(3.5,36,23,6,0)="to support it."
^DD(3.5,36,23,7,0)="Old description:"
^DD(3.5,36,23,8,0)="Identify a global to lock/unlock to be used to limit the access to"
^DD(3.5,36,23,9,0)="a given channel to one client."
^DD(3.5,36,"DT")="3071108"
^DD(3.5,51,0)="OPEN COUNT^NJ8,0^^5;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.5,51,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(3.5,51,21,0)="^^3^3^3051012^"
^DD(3.5,51,21,1,0)="This field holds a count of the number of times that %ZIS has "
^DD(3.5,51,21,2,0)="successfully open this device."
^DD(3.5,51,21,3,0)="The reason is to find LAT devices that are still in use."
^DD(3.5,51,"DT")="3051012"
^DD(3.5,51.1,0)="TIMED READ (# OF SECONDS)^NJ5,0^^XUS;10^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.5,51.1,3)="NUMBER OF SECONDS (1-99999) THAT TERMINAL WILL WAIT FOR A RESPONSE"
^DD(3.5,51.1,21,0)="^^2^2^2920515^^^^"
^DD(3.5,51.1,21,1,0)="The number of seconds for timed reads at this device. It is overridden"
^DD(3.5,51.1,21,2,0)="by the Timed Read specification in the USER File."
^DD(3.5,51.1,"DT")="2831206"
^DD(3.5,51.12,0)="*RESERVED^F^^XUS;12^K:$L(X)>1!($L(X)<1)!'(X?.E) X"
^DD(3.5,51.12,3)="Reserved for XUS"
^DD(3.5,51.12,9)="^"
^DD(3.5,51.12,"DT")="2940808"
^DD(3.5,51.13,0)="*RESERVED^F^^XUS;13^K:$L(X)>1!($L(X)<1)!'(X?.E) X"
^DD(3.5,51.13,3)="Reserved for XUS"
^DD(3.5,51.13,9)="^"
^DD(3.5,51.13,"DT")="2940808"
^DD(3.5,51.14,0)="*RESERVED^F^^XUS;14^K:$L(X)>1!($L(X)<1)!'(X?.E) X"
^DD(3.5,51.14,3)="Reserved for XUS"
^DD(3.5,51.14,9)="^"
^DD(3.5,51.14,"DT")="2940808"
^DD(3.5,51.15,0)="*RESERVED^F^^XUS;15^K:$L(X)>1!($L(X)<1)!'(X?.E) X"
^DD(3.5,51.15,3)="Reserved for XUS"
^DD(3.5,51.15,9)="^"
^DD(3.5,51.15,"DT")="2940808"
^DD(3.5,51.2,0)="# OF ATTEMPTS^NJ1,0^^XUS;2^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1.N) X"
^DD(3.5,51.2,3)="Type a integer between 1 and 5."
^DD(3.5,51.2,21,0)="^^4^4^3010326^"
^DD(3.5,51.2,21,1,0)="The number of sign-on attempts before the device is locked from use."
^DD(3.5,51.2,21,2,0)="This may be ignored by setting the BYPASS DEVICE LOCK-OUT field in"
^DD(3.5,51.2,21,3,0)="the KERNEL SITE PARAMETERS File. The minimum value is set by the VA"
^DD(3.5,51.2,21,4,0)="INFORMATION SYSTEM ACCOUNT AND PASSWORD MANAGEMENT POLICY."
^DD(3.5,51.2,"DT")="3010330"
^DD(3.5,51.3,0)="LOCK-OUT TIME^NJ8,0^^XUS;3^K:+X'=X!(X>99999999)!(X<600)!(X?.E1"".""1.N) X"
^DD(3.5,51.3,3)="Type a integer between 600 and 99999999."
^DD(3.5,51.3,21,0)="^^5^5^3010330^^"
^DD(3.5,51.3,21,1,0)="This is the amount of time that the device must be idle before "
^DD(3.5,51.3,21,2,0)="the lock will release. This may be ignored by setting the BYPASS"
^DD(3.5,51.3,21,3,0)="DEVICE LOCK-OUT field in the KERNEL SITE PARAMETERS File."
^DD(3.5,51.3,21,4,0)="The minimum value is set by the VA INFORMATION SYSTEM ACCOUNT AND PASSWORD"
^DD(3.5,51.3,21,5,0)="MANAGEMENT POLICY."
^DD(3.5,51.3,"DT")="3010330"
^DD(3.5,51.4,0)="MULTIPLE SIGN-ON^S^0:NOT ALLOWED;1:ALLOWED;^XUS;4^Q"
^DD(3.5,51.4,21,0)="^^3^3^2920515^^^^"
^DD(3.5,51.4,21,1,0)="Specifies whether or not the user of this device can be already signed"
^DD(3.5,51.4,21,2,0)="on the system. It is overridden by the Multiple Sign-on specification in"
^DD(3.5,51.4,21,3,0)="the USER File."
^DD(3.5,51.5,0)="ASK DEVICE TYPE AT SIGN-ON^S^1:YES, ASK;0:NO, DON'T ASK;^XUS;5^Q"
^DD(3.5,51.5,3)="'ASK' IF ALL USERS SIGNING-ON TO THIS DEVICE SHOULD BE ASKED 'DEVICE TYPE'"
^DD(3.5,51.5,4)="W !,""IF DEVICE IS A DIAL-UP MODEM, OR A 'SWITCHED' PORT,"",!?3,""THE ANSWER SHOULD PROBABLY BE 'A'"",!"
^DD(3.5,51.5,21,0)="^^10^10^2920515^^^"
^DD(3.5,51.5,21,1,0)="This field (if filled in) will over ride the ones in the KERNEL site"
^DD(3.5,51.5,21,2,0)="parameter file. This is overridden by the same specification in the"
^DD(3.5,51.5,21,3,0)="NEW PERSON File."
^DD(3.5,51.5,21,4,0)="It controls if the user/terminal should be asked for a terminal type during"
^DD(3.5,51.5,21,5,0)="sign-on."
^DD(3.5,51.5,21,6,0)="If set to YES then a <ENQ> is sent to the terminal to collect the answer back"
^DD(3.5,51.5,21,7,0)="message, if valid the terminal type is set to this. Otherwise the user is"
^DD(3.5,51.5,21,8,0)="prompted."
^DD(3.5,51.5,21,9,0)="If set to NO then the one from the Last Sign-on field or device subtype will"
^DD(3.5,51.5,21,10,0)="be used."
^DD(3.5,51.5,"DT")="2851218"
^DD(3.5,51.6,0)="AUTO MENU^S^0:NO MENUS GENERATED;1:MENUS GENERATED;^XUS;6^Q"
^DD(3.5,51.6,21,0)="^^4^4^2920515^^^^"
^DD(3.5,51.6,21,1,0)="This field controls whether the Auto-menu function will be turned on"
^DD(3.5,51.6,21,2,0)="for this device. If it is turned on, it acts just as if the user"
^DD(3.5,51.6,21,3,0)="types a ""?"" before each prompt. This is overridden by the same"
^DD(3.5,51.6,21,4,0)="specification in the USER File."
^DD(3.5,51.6,"DT")="2830502"
^DD(3.5,51.7,0)="*RESERVED^F^^XUS;7^K:$L(X)>1!($L(X)<1)!'(X?.E) X"
^DD(3.5,51.7,3)="Reserved for XUS"
^DD(3.5,51.7,9)="^"
^DD(3.5,51.7,"DT")="2940808"
^DD(3.5,51.8,0)="TIED ROUTINE^F^^XUS;8^K:$L(X)>13!($L(X)<3) X"
^DD(3.5,51.8,3)="ENTER A ROUTINE NAME IF TERMINAL SHOULD INVOKE THAT ROUTINE *WITHOUT* ASKING USER ACCESS CODE"
^DD(3.5,51.8,21,0)="^^2^2^2920515^^^^"
^DD(3.5,51.8,21,1,0)="This field, if filled in, has the name of a routine that is run"
^DD(3.5,51.8,21,2,0)="before the 'ACCESS CODE' question is asked. Use with care."
^DD(3.5,51.8,"DT")="2840403"
^DD(3.5,51.9,0)="TYPE-AHEAD^S^Y:ALLOWED;N:NOT ALLOWED;^XUS;9^Q"
^DD(3.5,51.9,3)="ANSWER 'Y' IF USERS CAN ANSWER QUESTIONS BEFORE THEY ARE ASKED!"
^DD(3.5,51.9,21,0)="^^2^2^2920515^^^^"
^DD(3.5,51.9,21,1,0)="Should the user of this device have 'Type-Ahead' turned on or off."
^DD(3.5,51.9,21,2,0)="This will be overridden by the same specification in the USER File."
^DD(3.5,51.9,"DT")="2831206"
^DD(3.5,51.91,0)="PERFORM DEVICE CHECKING^S^0:NO;1:YES;^XUS;11^Q"
^DD(3.5,51.91,3)="Override the turning off of the device checking from the KERNEL."
^DD(3.5,51.91,21,0)="^^5^5^2920515^^^^"
^DD(3.5,51.91,21,1,0)="This field, if set, will override the default in the KERNEL SITE"
^DD(3.5,51.91,21,2,0)="PARAMETERS File."
^DD(3.5,51.91,21,3,0)=" "
^DD(3.5,51.91,21,4,0)="Device checking involves checking for device lockout, prohibited access"
^DD(3.5,51.91,21,5,0)="times, etc. If turned off, logon will be faster."
^DD(3.5,51.91,"DT")="2850808"
^DD(3.5,52,0)="SECONDARY $I^FX^^2;1^K:$L(X)>40!($L(X)<1) X"
^DD(3.5,52,3)="Enter the $IO for the secondary system (1-40 char)"
^DD(3.5,52,21,0)="^^3^3^3061211^"
^DD(3.5,52,21,1,0)="This field holds the $IO value to be used if this is the secondary system"
^DD(3.5,52,21,2,0)="in a mixed OS environment.  It is not used otherwise."
^DD(3.5,52,21,3,0)="It is only used for output devices."
^DD(3.5,52,"DT")="3070426"
^DD(3.5,61,0)="LAT SERVER NODE^FX^^VMS;1^K:$L(X)>10!($L(X)<3)!'(X?1U1.9UN) X S %1=$P(^%ZIS(1,DA,0),U,2) F %=0:0 S %=$O(^%ZIS(1,""C"",%1,%)) Q:%'>0  I %-DA,$D(^%ZIS(1,%,""VMS"")),$P(^(""VMS""),U,1)]"""" W "" See "",$P(^%ZIS(1,%,0),U,1) K X Q"
^DD(3.5,61,3)="Enter DECserver node name.  Only setup 1 per LTA."
^DD(3.5,61,21,0)="^^2^2^2920515^^^^"
^DD(3.5,61,21,1,0)="This is the DECserver/terminal server node name that the device is on."
^DD(3.5,61,21,2,0)="It is used by XTLATSET to build data files for VMS startup."
^DD(3.5,61,"DT")="2930204"
^DD(3.5,62,0)="LAT SERVER PORT^F^^VMS;2^K:$L(X)>15!($L(X)<1)!'(X?1.15ANP) X"
^DD(3.5,62,3)="Answer must be 1-15 characters in length."
^DD(3.5,62,21,0)="^^4^4^2920515^^^^"
^DD(3.5,62,21,1,0)="This is the port on the DECserver/terminal server that this device is"
^DD(3.5,62,21,2,0)="connected to. It can be entered in the LC-2-5 form or 31 form."
^DD(3.5,62,21,3,0)="On EQUINOX it is in the PORT_31 form."
^DD(3.5,62,21,4,0)="This field is used by XTLATSET to build VMS datafiles for startup."
^DD(3.5,62,"DT")="2920213"
^DD(3.5,63,0)="VMS DEVICE TYPE^S^n:NOT SPOOLED;y:YES SPOOLED;m:HOSTSYNC/NOWRAP;l:LAB INSTRUMENT;w:NOWRAP;p:PASTHRU/NOWRAP;^VMS;3^Q"
^DD(3.5,63,3)="Will this device use VMS spooling or other special device settings"
^DD(3.5,63,21,0)="^^3^3^3040617^"
^DD(3.5,63,21,1,0)="This is a flag that is passed into the file LT_PTR.DAT by the routine "
^DD(3.5,63,21,2,0)="XTLATSET to select how this port should be setup in VMS by the"
^DD(3.5,63,21,3,0)="SYS$MANAGER:SYSPRINT.COM file when it runs."
^DD(3.5,63,"DT")="3040617"
^DD(3.5,64,0)="LAT PORT SPEED^S^300:3;1200:12;2400:24;4800:48;9600:96;19200:192;^VMS;4^Q"
^DD(3.5,64,3)="Enter the speed that the permanent database should be set to."
^DD(3.5,64,21,0)="^^2^2^2920515^^^"
^DD(3.5,64,21,1,0)="This field holds the value that will be passed to the TSC_LOAD.COM"
^DD(3.5,64,21,2,0)="file for loading the DECserver permanent database."
^DD(3.5,64,"DT")="2920103"
^DD(3.5,65,0)="PRINT SERVER NAME OR ADDRESS^F^^VMS;5^K:$L(X)>45!($L(X)<3) X"
^DD(3.5,65,3)="Enter the FQDN or TCP/IP address of the remote server."
^DD(3.5,65,21,0)="^^3^3^3030722^"
^DD(3.5,65,21,1,0)="This field contains the FQDN (fully qualified domain name) or specific"
^DD(3.5,65,21,2,0)="TCP/IP address of a remote server (e.g., for LPD/LPR printing) or device"
^DD(3.5,65,21,3,0)="(e.g., for telnet printer)."
^DD(3.5,65,"DT")="3030722"
^DD(3.5,66,0)="TELNET PORT^NJ5,0^^VMS;6^K:+X'=X!(X>65534)!(X<2000)!(X?.E1"".""1.N) X"
^DD(3.5,66,3)="Enter the telnet port (range = 2000 to 65534)"
^DD(3.5,66,21,0)="^^2^2^3030825^"
^DD(3.5,66,21,1,0)="This field contains the telnet port of a remote device (e.g., a telnet"
^DD(3.5,66,21,2,0)="printer).  The allowable range is a number between 2000 and 65534."
^DD(3.5,66,"DT")="3030825"
^DD(3.5,67,0)="REMOTE PRINTER NAME^F^^VMS;7^K:$L(X)>45!($L(X)<2) X"
^DD(3.5,67,3)="Answer must be 2-45 characters in length"
^DD(3.5,67,21,0)="^^2^2^3030722^"
^DD(3.5,67,21,1,0)="This is the Name of the Remote Printer that is referenced by"
^DD(3.5,67,21,2,0)="the ""PRINT SERVER NAME OR ADDRESS"" and ""TELNET PORT"" fields."
^DD(3.5,67,"DT")="3040818"
^DD(3.5,101,0)="LAB LABEL PRINTER^P3.5^%ZIS(1,^101;1^Q"
^DD(3.5,101,3)="If there is a label printer associated with this device, indicate it"
^DD(3.5,101,21,0)="^^2^2^2920515^^^^"
^DD(3.5,101,21,1,0)="This field is used only if the current device has a label printer associated"
^DD(3.5,101,21,2,0)="with it."
^DD(3.5,101,"DT")="2841119"
^DD(3.5,201,0)="PRIMARY MENU OPTION^P19'^DIC(19,^201;1^Q"
^DD(3.5,201,3)=""
^DD(3.5,201,21,0)="^^2^2^2920515^^^^"
^DD(3.5,201,21,1,0)="This field, if filled in, contains the primary menu that is run from this"
^DD(3.5,201,21,2,0)="device. It overrides the user's primary menu."
^DD(3.5,201,"DT")="2840104"
^DD(3.5,646,0)="BARCODE AVAIL^S^Y:YES;N:NO;^646;1^Q"
^DD(3.5,646,21,0)="^^1^1^2920515^^^^"
^DD(3.5,646,21,1,0)="This field is used by Augie Turano's pharmacy barcode software."
^DD(3.5,646,"DT")="2870918"
^DD(3.5,2007,0)="CURRENT UNSUCCESSFUL ATTEMPTS^CJ8^^ ; ^S X=$P(^%ZIS(1,D0,0),U,2) Q:X=""""  S X=$S($D(^DISV(""XU"",X)):+^(X),1:"""")"
^DD(3.5,2007,9)="^"
^DD(3.5,2007,9.01)=""
^DD(3.5,2007,9.1)="S X=$P(^%ZIS(1,D0,0),U,2) Q:X=""""  S X=$S($D(^DISV(""XU"",X)):+^(X),1:"""")"
^DD(3.5,2007,21,0)="^^6^6^2920706^^^^"
^DD(3.5,2007,21,1,0)="This is a count of the current number of unsuccessful attempts that"
^DD(3.5,2007,21,2,0)="have been made on this device. If it exceeds the DEFAULT # OF ATTEMPTS"
^DD(3.5,2007,21,3,0)="in the KERNEL SITE PARAMETERS File, the device will be locked for the"
^DD(3.5,2007,21,4,0)="duration specified in DEFAULT LOCKOUT TIME in the KERNEL SITE PARAMETERS."
^DD(3.5,2007,21,5,0)=" "
^DD(3.5,2007,21,6,0)="This field is maintained internally by the KERNEL."
^DD(3.5,2007,"DT")="2920528"
^DD(3.5,2008,0)="LAST SIGN-ON USER^CJ30^^ ; ^S X=$S($D(^XUSEC(0,""ALDEV"",D0)):$S($D(^VA(200,+^(D0),0)):$P(^(0),U,1),1:""""),1:"""")"
^DD(3.5,2008,9)="^"
^DD(3.5,2008,9.01)=""
^DD(3.5,2008,9.1)="S X=$S($D(^XUSEC(0,""ALDEV"",D0)):$S($D(^VA(200,+^(D0),0)):$P(^(0),U,1),1:""""),1:"""")"
^DD(3.5,2008,21,0)="^^2^2^2920515^^^^"
^DD(3.5,2008,21,1,0)="This is the name of the last user who signed on to this device. It"
^DD(3.5,2008,21,2,0)="is controlled internally by the KERNEL."
^DD(3.5,2008,"DT")="2831208"
^DD(3.5,2009,0)="PROHIBITED TIMES FOR SIGN-ON^FX^^TIME;1^K:$E(X,1,2)>23!($E(X,3,4)>59)!'(X?4N1""-""4N)!($E(X,6,7)>23)!($E(X,8,9)>59) X"
^DD(3.5,2009,1,0)="^.1^^0"
^DD(3.5,2009,3)="RANGE OF MILITARY TIMES (HHMM-HHMM) DURING WHICH SIGN-ONS WON'T BE ALLOWED"
^DD(3.5,2009,4)="W !?7,""FOR EXAMPLE, TO SHUT OFF DEVICE OVERNIGHT, TYPE '1630-0800'"""
^DD(3.5,2009,21,0)="^^6^6^2920515^^^^"
^DD(3.5,2009,21,1,0)="This field allows a device to be locked out for certain periods of the"
^DD(3.5,2009,21,2,0)="day. The time period for which logons will be prohibited is specified"
^DD(3.5,2009,21,3,0)="in the form HHMM-HHMM. For example, 1630-0800 would lock out the device"
^DD(3.5,2009,21,4,0)="from 4:30 PM to 8:00 AM."
^DD(3.5,2009,21,5,0)=" "
^DD(3.5,2009,21,6,0)="If device checking is bypassed for this device, these times are ignored."
^DD(3.5,2009,"DT")="2900102"
^DD(3.5,2009.5,0)="USE TIMEOUT ON OPENS^S^n:NO;y:YES;^TIME;3^Q"
^DD(3.5,2009.5,21,0)="^^2^2^2920515^^^"
^DD(3.5,2009.5,21,1,0)="This field determines whether a timeout will be used"
^DD(3.5,2009.5,21,2,0)="to open the device."
^DD(3.5,2009.5,"DT")="2901116"
^DD(3.5,2010,0)="OPEN TIMEOUT^NJ2,0^^TIME;2^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.5,2010,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(3.5,2010,21,0)="^^4^4^2920515^^^^"
^DD(3.5,2010,21,1,0)="If a specific timeout is needed when an open is performed,"
^DD(3.5,2010,21,2,0)="enter the value of the timeout into this field.  This will enable %ZIS"
^DD(3.5,2010,21,3,0)="to ""hang"" for the number of seconds specified in this field to achieve"
^DD(3.5,2010,21,4,0)="a connection rather than using the default of zero."
^DD(3.5,2010,"DT")="2880505"
^DD(3.5,"B","# OF ATTEMPTS",51.2)=""
^DD(3.5,"B","$I",1)=""
^DD(3.5,"B","*RESERVED",51.12)=""
^DD(3.5,"B","*RESERVED",51.13)=""
^DD(3.5,"B","*RESERVED",51.14)=""
^DD(3.5,"B","*RESERVED",51.15)=""
^DD(3.5,"B","*RESERVED",51.7)=""
^DD(3.5,"B","ASK DEVICE",4)=""
^DD(3.5,"B","ASK DEVICE TYPE AT SIGN-ON",51.5)=""
^DD(3.5,"B","ASK HFS I/O OPERATION",5.2)=""
^DD(3.5,"B","ASK HOST FILE",5.1)=""
^DD(3.5,"B","ASK PARAMETERS",5)=""
^DD(3.5,"B","AUTO DESPOOL",31)=""
^DD(3.5,"B","AUTO MENU",51.6)=""
^DD(3.5,"B","BARCODE AVAIL",646)=""
^DD(3.5,"B","BAUD RATE",20)=""
^DD(3.5,"B","CLOSE PARAMETERS",19.3)=""
^DD(3.5,"B","CLOSEST PRINTER",16)=""
^DD(3.5,"B","CURRENT UNSUCCESSFUL ATTEMPTS",2007)=""
^DD(3.5,"B","DESPOOL DEVICES",32)=""
^DD(3.5,"B","DEVICE $I",1)="1"
^DD(3.5,"B","FORM CURRENTLY MOUNTED",17)=""
^DD(3.5,"B","GENERATE SPL DOC NAME",33)=""
^DD(3.5,"B","GLOBAL LOCK",36)=""
^DD(3.5,"B","HUNT GROUP DEVICE",30)=""
^DD(3.5,"B","KEY OPERATOR",8)=""
^DD(3.5,"B","LAB LABEL PRINTER",101)=""
^DD(3.5,"B","LAST SIGN-ON USER",2008)=""
^DD(3.5,"B","LAT PORT SPEED",64)=""
^DD(3.5,"B","LAT SERVER NODE",61)=""
^DD(3.5,"B","LAT SERVER PORT",62)=""
^DD(3.5,"B","LOCAL SYNONYM",.04)=""
^DD(3.5,"B","LOCATION OF TERMINAL",.02)=""
^DD(3.5,"B","LOCK-OUT TIME",51.3)=""
^DD(3.5,"B","MARGIN WIDTH",9)=""
^DD(3.5,"B","MICOM PRINTER CONTENTION PORT",21)=""
^DD(3.5,"B","MNEMONIC",.03)=""
^DD(3.5,"B","MODEM",23)=""
^DD(3.5,"B","MULTIPLE SIGN-ON",51.4)=""
^DD(3.5,"B","NAME",.01)=""
^DD(3.5,"B","NEAREST PHONE",7)=""
^DD(3.5,"B","OPEN COUNT",51)=""
^DD(3.5,"B","OPEN PARAMETERS",19)=""
^DD(3.5,"B","OPEN TIMEOUT",2010)=""
^DD(3.5,"B","OUT-OF-SERVICE DATE",6)=""
^DD(3.5,"B","PAGE LENGTH",11)=""
^DD(3.5,"B","PASSWORD",27)=""
^DD(3.5,"B","PERFORM DEVICE CHECKING",51.91)=""
^DD(3.5,"B","POST-CLOSE EXECUTE",19.8)=""
^DD(3.5,"B","PRE-OPEN EXECUTE",19.7)=""
^DD(3.5,"B","PRIMARY MENU OPTION",201)=""
^DD(3.5,"B","PRINT SERVER NAME OR ADDRESS",65)=""
^DD(3.5,"B","PRIORITY AT RUN TIME",25)=""
^DD(3.5,"B","PROHIBITED TIMES FOR SIGN-ON",2009)=""
^DD(3.5,"B","QUEUING",5.5)=""
^DD(3.5,"B","REMOTE PRINTER NAME",67)=""
^DD(3.5,"B","RESOURCE SLOTS",35)=""
^DD(3.5,"B","SECONDARY $I",52)=""
^DD(3.5,"B","SECURITY",15)=""
^DD(3.5,"B","SIGN-ON/SYSTEM DEVICE",1.95)=""
^DD(3.5,"B","SLAVED FROM DEVICE",28)=""
^DD(3.5,"B","SUBTYPE",3)=""
^DD(3.5,"B","SUPPRESS FORM FEED AT CLOSE",11.2)=""
^DD(3.5,"B","TASKMAN PRINT A HEADER PAGE",26)=""
^DD(3.5,"B","TELNET PORT",66)=""
^DD(3.5,"B","TIED ROUTINE",51.8)=""
^DD(3.5,"B","TIMED READ (# OF SECONDS)",51.1)=""
^DD(3.5,"B","TYPE",2)=""
^DD(3.5,"B","TYPE-AHEAD",51.9)=""
^DD(3.5,"B","USE PARAMETERS",19.5)=""
^DD(3.5,"B","USE TIMEOUT ON OPENS",2009.5)=""
^DD(3.5,"B","VMS DEVICE TYPE",63)=""
^DD(3.5,"B","VOLUME SET(CPU)",1.9)=""
^DD(3.5,"GL",0,1,.01)=""
^DD(3.5,"GL",0,2,1)=""
^DD(3.5,"GL",0,3,4)=""
^DD(3.5,"GL",0,4,5)=""
^DD(3.5,"GL",0,5,25)=""
^DD(3.5,"GL",0,6,23)=""
^DD(3.5,"GL",0,7,26)=""
^DD(3.5,"GL",0,8,28)=""
^DD(3.5,"GL",0,9,1.9)=""
^DD(3.5,"GL",0,11,1.95)=""
^DD(3.5,"GL",0,12,5.5)=""
^DD(3.5,"GL",1,1,.02)=""
^DD(3.5,"GL",1,2,27)=""
^DD(3.5,"GL",1,4,.04)=""
^DD(3.5,"GL",1,5,5.1)=""
^DD(3.5,"GL",1,6,5.2)=""
^DD(3.5,"GL",1,7,21)=""
^DD(3.5,"GL",1,8,31)=""
^DD(3.5,"GL",1,9,33)=""
^DD(3.5,"GL",1,10,35)=""
^DD(3.5,"GL",1,11,11.2)=""
^DD(3.5,"GL",2,1,52)=""
^DD(3.5,"GL",5,1,51)=""
^DD(3.5,"GL",90,1,6)=""
^DD(3.5,"GL",90,2,7)=""
^DD(3.5,"GL",90,3,8)=""
^DD(3.5,"GL",91,1,9)=""
^DD(3.5,"GL",91,3,11)=""
^DD(3.5,"GL",95,"E1,99",15)=""
^DD(3.5,"GL",99,1,16)=""
^DD(3.5,"GL",101,1,101)=""
^DD(3.5,"GL",201,1,201)=""
^DD(3.5,"GL",646,1,646)=""
^DD(3.5,"GL","F",1,17)=""
^DD(3.5,"GL","GBL",1,36)=""
^DD(3.5,"GL","HG",0,30)=""
^DD(3.5,"GL","IOCPAR",1,19.3)=""
^DD(3.5,"GL","IOPAR",1,19)=""
^DD(3.5,"GL","IOUPAR",1,19.5)=""
^DD(3.5,"GL","MN",0,.03)=""
^DD(3.5,"GL","PCX","E1,245",19.8)=""
^DD(3.5,"GL","POX","E1,245",19.7)=""
^DD(3.5,"GL","SPL",0,32)=""
^DD(3.5,"GL","SUBTYPE",1,3)=""
^DD(3.5,"GL","TIME",1,2009)=""
^DD(3.5,"GL","TIME",2,2010)=""
^DD(3.5,"GL","TIME",3,2009.5)=""
^DD(3.5,"GL","TYPE",1,2)=""
^DD(3.5,"GL","VMS",1,61)=""
^DD(3.5,"GL","VMS",2,62)=""
^DD(3.5,"GL","VMS",3,63)=""
^DD(3.5,"GL","VMS",4,64)=""
^DD(3.5,"GL","VMS",5,65)=""
^DD(3.5,"GL","VMS",6,66)=""
^DD(3.5,"GL","VMS",7,67)=""
^DD(3.5,"GL","XUS",2,51.2)=""
^DD(3.5,"GL","XUS",3,51.3)=""
^DD(3.5,"GL","XUS",4,51.4)=""
^DD(3.5,"GL","XUS",5,51.5)=""
^DD(3.5,"GL","XUS",6,51.6)=""
^DD(3.5,"GL","XUS",7,51.7)=""
^DD(3.5,"GL","XUS",8,51.8)=""
^DD(3.5,"GL","XUS",9,51.9)=""
^DD(3.5,"GL","XUS",10,51.1)=""
^DD(3.5,"GL","XUS",11,51.91)=""
^DD(3.5,"GL","XUS",12,51.12)=""
^DD(3.5,"GL","XUS",13,51.13)=""
^DD(3.5,"GL","XUS",14,51.14)=""
^DD(3.5,"GL","XUS",15,51.15)=""
^DD(3.5,"IX",.01)=""
^DD(3.5,"IX",.04)=""
^DD(3.5,"IX",1)=""
^DD(3.5,"IX",1.9)=""
^DD(3.5,"IX",1.95)=""
^DD(3.5,"IX",2)=""
^DD(3.5,"IX",17)=""
^DD(3.5,"IX",35)=""
^DD(3.5,"RQ",.01)=""
^DD(3.5,"RQ",.02)=""
^DD(3.5,"RQ",1)=""
^DD(3.5,"RQ",2)=""
^DD(3.5,"RQ",3)=""
^DD(3.5,"SB",3.501,.03)=""
^DD(3.5,"SB",3.53,30)=""
^DD(3.5,"SB",3.532,32)=""
^DD(3.501,0)="MNEMONIC SUB-FIELD^NL^.01^1"
^DD(3.501,0,"NM","MNEMONIC")=""
^DD(3.501,0,"UP")="3.5"
^DD(3.501,.01,0)="MNEMONIC^MFX^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>35!($L(X)<1)!($D(^%ZIS(1,""C"",$E(X,1,30)))) X"
^DD(3.501,.01,1,0)="^.1"
^DD(3.501,.01,1,1,0)="3.5^B^MNEMONIC"
^DD(3.501,.01,1,1,1)="S ^%ZIS(1,""B"",$E(X,1,30),DA(1),DA)=1"
^DD(3.501,.01,1,1,2)="K ^%ZIS(1,""B"",$E(X,1,30),DA(1),DA)"
^DD(3.501,.01,1,1,"%D",0)="^^4^4^2920518^^^"
^DD(3.501,.01,1,1,"%D",1,0)="Since this cross-reference is also a B cross-reference,"
^DD(3.501,.01,1,1,"%D",2,0)="the alternate name should not be the same as the #.01 NAME field."
^DD(3.501,.01,1,1,"%D",3,0)="If they are the same, then a change in one could affect the cross-reference"
^DD(3.501,.01,1,1,"%D",4,0)="of the other."
^DD(3.501,.01,3)="ANSWER MUST BE 1-35 CHARACTERS IN LENGTH and not equal to a $I."
^DD(3.501,.01,21,0)="^^2^2^2920518^^^^"
^DD(3.501,.01,21,1,0)="This is an alternate name which may be used to select the"
^DD(3.501,.01,21,2,0)="device."
^DD(3.501,.01,"DT")="2890602"
^DD(3.501,"B","MNEMONIC",.01)=""
^DD(3.501,"GL",0,1,.01)=""
^DD(3.501,"IX",.01)=""
^DD(3.51,0)="FIELD^^31^13"
^DD(3.51,0,"DDA")="N"
^DD(3.51,0,"DT")="2910801"
^DD(3.51,0,"IX","ADUZ",3.51,4)=""
^DD(3.51,0,"IX","AM",3.51,9)=""
^DD(3.51,0,"IX","AOK",3.51,4)=""
^DD(3.51,0,"IX","AOK2",3.5131,.01)=""
^DD(3.51,0,"IX","B",3.51,.01)=""
^DD(3.51,0,"IX","C",3.51,1)=""
^DD(3.51,0,"NM","SPOOL DOCUMENT")=""
^DD(3.51,0,"PT",3.519,.01)=""
^DD(3.51,0,"SCR")="I $D(DUZ)=11,$D(^XMB(3.51,""AOK"",Y,DUZ))!$D(^XUSEC(""XUMGR"",DUZ))"
^DD(3.51,0,"VR")="8.0"
^DD(3.51,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.51,.01,0)="NAME^RFX^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E)!(X'?.ANP)!(X?1.2E1""-"".E) X"
^DD(3.51,.01,1,0)="^.1"
^DD(3.51,.01,1,1,0)="3.51^B"
^DD(3.51,.01,1,1,1)="S ^XMB(3.51,""B"",$E(X,1,63),DA)="""""
^DD(3.51,.01,1,1,2)="K ^XMB(3.51,""B"",$E(X,1,63),DA)"
^DD(3.51,.01,3)="Answer must be 3-80 characters in length, and not look like a TERM. TYPE."
^DD(3.51,.01,21,0)="^^4^4^2920519^^^^"
^DD(3.51,.01,21,1,0)="This field holds the name of the spool document.  To avoid device handler"
^DD(3.51,.01,21,2,0)="confusion, the name of the spool document must not look like the name of"
^DD(3.51,.01,21,3,0)="a terminal type, e.g. C-VT100, since either name might be contained in"
^DD(3.51,.01,21,4,0)="a response to the device prompt."
^DD(3.51,.01,"DT")="2880304"
^DD(3.51,1,0)="SPOOL NUMBER^FI^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(3.51,1,1,0)="^.1"
^DD(3.51,1,1,1,0)="3.51^C"
^DD(3.51,1,1,1,1)="S ^XMB(3.51,""C"",$E(X,1,60),DA)="""""
^DD(3.51,1,1,1,2)="K ^XMB(3.51,""C"",$E(X,1,60),DA)"
^DD(3.51,1,3)="Answer must be 1-30 characters in length."
^DD(3.51,1,21,0)="^^1^1^2920519^^^^"
^DD(3.51,1,21,1,0)="This is a system-assigned identification number for spool documents."
^DD(3.51,1,"DT")="2890315"
^DD(3.51,2,0)="STATUS^S^a:Active;o:Open;r:Ready;m:Message;p:Printed;^0;3^Q"
^DD(3.51,2,3)=""
^DD(3.51,2,21,0)="^^1^1^2920519^^^^"
^DD(3.51,2,21,1,0)="This is an internal flag to indicate the status of the spool document."
^DD(3.51,2,"DT")="2880325"
^DD(3.51,3,0)="DATE INITIATED^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(3.51,3,21,0)="^^2^2^2920519^^^^"
^DD(3.51,3,21,1,0)="This field indicates when a spool document was created as an entry"
^DD(3.51,3,21,2,0)="in this Spool Document File."
^DD(3.51,4,0)="USER^P200'^VA(200,^0;5^Q"
^DD(3.51,4,1,0)="^.1"
^DD(3.51,4,1,1,0)="3.51^AOK^MUMPS"
^DD(3.51,4,1,1,1)="S ^XMB(3.51,""AOK"",DA,X)="""""
^DD(3.51,4,1,1,2)="K ^XMB(3.51,""AOK"",DA,X)"
^DD(3.51,4,1,1,"%D",0)="^^2^2^2920519^^^"
^DD(3.51,4,1,1,"%D",1,0)="The 'AOK' cross-reference identifies who has access to this document."
^DD(3.51,4,1,1,"%D",2,0)="The creater of the document is automatically assigned access."
^DD(3.51,4,1,2,0)="3.51^ADUZ"
^DD(3.51,4,1,2,1)="S ^XMB(3.51,""ADUZ"",$E(X,1,30),DA)="""""
^DD(3.51,4,1,2,2)="K ^XMB(3.51,""ADUZ"",$E(X,1,30),DA)"
^DD(3.51,4,1,2,"%D",0)="^^1^1^2920519^^^"
^DD(3.51,4,1,2,"%D",1,0)="The 'ADUZ' cross-reference identifies who is the creator of an individual document."
^DD(3.51,4,21,0)="^^2^2^2920519^^^^"
^DD(3.51,4,21,1,0)="This field holds a pointer to the New Person File to indicate the identity"
^DD(3.51,4,21,2,0)="of the person creating the spool document."
^DD(3.51,4,"DT")="2890822"
^DD(3.51,5,0)="STARTED^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(3.51,5,1,0)="^.1^^0"
^DD(3.51,5,21,0)="^^1^1^2920519^^^^"
^DD(3.51,5,21,1,0)="This field indicates when spool device activity began."
^DD(3.51,5,"DT")="2840712"
^DD(3.51,6,0)="PRINTED^D^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(3.51,6,21,0)="^^1^1^2920519^^^^"
^DD(3.51,6,21,1,0)="This field indicates when the spool document was printed."
^DD(3.51,6,"DT")="2841203"
^DD(3.51,7,0)="PAGE ATTRIBUTES^F^^0;8^K:$L(X)>7!($L(X)<3)!'(X?1.3N1"";""1.3N) X"
^DD(3.51,7,3)="IOM_"";""_IOSL"
^DD(3.51,7,21,0)="^^3^3^2920519^^^^"
^DD(3.51,7,21,1,0)="This field holds the device parameters which were established by the"
^DD(3.51,7,21,2,0)="initial device handler call.  These parameters are retained and use"
^DD(3.51,7,21,3,0)="when the job is spooled and when the spool document is printed."
^DD(3.51,7,"DT")="2880201"
^DD(3.51,8,0)="NUMBER OF LINES^NJ7,0I^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.51,8,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(3.51,8,21,0)="^^4^4^2920519^^^^"
^DD(3.51,8,21,1,0)="This field holds a count of the total lines spooled for this spool"
^DD(3.51,8,21,2,0)="document.  It is used in conjunction with the limit set in the"
^DD(3.51,8,21,3,0)="Kernel Site Parameter File to regulate the amount of spooled text"
^DD(3.51,8,21,4,0)="that users may accumulate."
^DD(3.51,8,"DT")="2880513"
^DD(3.51,9,0)="SPOOL DATA^*P3.519'I^XMBS(3.519,^0;10^S DIC(""S"")=""I 0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(3.51,9,1,0)="^.1"
^DD(3.51,9,1,1,0)="3.51^AM"
^DD(3.51,9,1,1,1)="S ^XMB(3.51,""AM"",$E(X,1,30),DA)="""""
^DD(3.51,9,1,1,2)="K ^XMB(3.51,""AM"",$E(X,1,30),DA)"
^DD(3.51,9,3)="FOR INTERNAL USE ONLY"
^DD(3.51,9,12)="CAN'T BE ACCESS FROM HERE"
^DD(3.51,9,12.1)="S DIC(""S"")=""I 0"""
^DD(3.51,9,21,0)="^^2^2^2930506^"
^DD(3.51,9,21,1,0)="This field holds a pointer to the Spool File indicating the storage"
^DD(3.51,9,21,2,0)="location of the spooled document."
^DD(3.51,9,"DT")="2910801"
^DD(3.51,10,0)="INCOMPLETE REPORT INDICATOR^S^1:YES, REPORT IS INCOMPLETE;^0;11^Q"
^DD(3.51,10,3)="Output only. Set by spool code."
^DD(3.51,10,21,0)="^^2^2^2920519^^^^"
^DD(3.51,10,21,1,0)="This flag is set buy the spooler code to indicate that not all of the"
^DD(3.51,10,21,2,0)="report was restored from the system spool space."
^DD(3.51,10,"DT")="2910731"
^DD(3.51,21,0)="DEVICE'S^3.5121^^2;0"
^DD(3.51,21,21,0)="^^2^2^2920519^^^^"
^DD(3.51,21,21,1,0)="This subfile holds the names of the devices that are being used"
^DD(3.51,21,21,2,0)="for despooling (printing)."
^DD(3.51,31,0)="OTHER AUTHORIZED USERS^3.5131PA^^3;0"
^DD(3.51,31,21,0)="^^1^1^2920519^^^^"
^DD(3.51,31,21,1,0)="This is a list of other users that my print this spool document."
^DD(3.51,"B","DATE INITIATED",3)=""
^DD(3.51,"B","DEVICE'S",21)=""
^DD(3.51,"B","INCOMPLETE REPORT INDICATOR",10)=""
^DD(3.51,"B","NAME",.01)=""
^DD(3.51,"B","NUMBER OF LINES",8)=""
^DD(3.51,"B","OTHER AUTHORIZED USERS",31)=""
^DD(3.51,"B","PAGE ATTRIBUTES",7)=""
^DD(3.51,"B","PRINTED",6)=""
^DD(3.51,"B","SPOOL DATA",9)=""
^DD(3.51,"B","SPOOL NUMBER",1)=""
^DD(3.51,"B","STARTED",5)=""
^DD(3.51,"B","STATUS",2)=""
^DD(3.51,"B","USER",4)=""
^DD(3.51,"GL",0,1,.01)=""
^DD(3.51,"GL",0,2,1)=""
^DD(3.51,"GL",0,3,2)=""
^DD(3.51,"GL",0,4,3)=""
^DD(3.51,"GL",0,5,4)=""
^DD(3.51,"GL",0,6,5)=""
^DD(3.51,"GL",0,7,6)=""
^DD(3.51,"GL",0,8,7)=""
^DD(3.51,"GL",0,9,8)=""
^DD(3.51,"GL",0,10,9)=""
^DD(3.51,"GL",0,11,10)=""
^DD(3.51,"GL",2,0,21)=""
^DD(3.51,"GL",3,0,31)=""
^DD(3.51,"IX",.01)=""
^DD(3.51,"IX",1)=""
^DD(3.51,"IX",4)=""
^DD(3.51,"IX",9)=""
^DD(3.51,"RQ",.01)=""
^DD(3.51,"SB",3.5121,21)=""
^DD(3.51,"SB",3.5131,31)=""
^DD(3.5121,0)="DEVICE'S SUB-FIELD^^5^6"
^DD(3.5121,0,"IX","B",3.5121,.01)=""
^DD(3.5121,0,"NM","DEVICE'S")=""
^DD(3.5121,0,"UP")="3.51"
^DD(3.5121,.01,0)="DEVICE^FX^^0;1^K:$L(X)>30!($L(X)<2) X I '$D(ZISDA) W ""  Must be called from the Spooler options"" K X"
^DD(3.5121,.01,1,0)="^.1"
^DD(3.5121,.01,1,1,0)="3.5121^B"
^DD(3.5121,.01,1,1,1)="S ^XMB(3.51,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(3.5121,.01,1,1,2)="K ^XMB(3.51,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(3.5121,.01,3)="ANSWER MUST BE A VALID DEVICE NAME"
^DD(3.5121,.01,4)="W !,""Must only be called from the Spooler Options"""
^DD(3.5121,.01,21,0)="^^2^2^2920519^^^^"
^DD(3.5121,.01,21,1,0)="This field holds the name of the device that is being used for"
^DD(3.5121,.01,21,2,0)="despooling (printing)."
^DD(3.5121,.01,"DT")="2881024"
^DD(3.5121,1,0)="COPIES TO PRINT^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.5121,1,.1)="Copies to print"
^DD(3.5121,1,3)="Type a Number between 1 and 99, Number of copies needed."
^DD(3.5121,1,21,0)="^^2^2^2930521^^^^"
^DD(3.5121,1,21,1,0)="This field holds an indication of the number of copies of the spool"
^DD(3.5121,1,21,2,0)="document that are to be despooled."
^DD(3.5121,1,"DT")="2880202"
^DD(3.5121,2,0)="CURRENT PAGE^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.5121,2,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(3.5121,2,21,0)="^^1^1^2920519^^^^"
^DD(3.5121,2,21,1,0)="This field holds an indication of the current page being despooled."
^DD(3.5121,2,"DT")="2880202"
^DD(3.5121,3,0)="LINE NUMBER OF CURRENT PAGE^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.5121,3,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(3.5121,3,21,0)="^^2^2^2920519^^^^"
^DD(3.5121,3,21,1,0)="This field holds an indication of the line number of the current"
^DD(3.5121,3,21,2,0)="page being despooled."
^DD(3.5121,3,"DT")="2880202"
^DD(3.5121,4,0)="FINISH DATE/TIME^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(3.5121,4,21,0)="^^1^1^2920519^^^^"
^DD(3.5121,4,21,1,0)="This field indicates when the job finished despooling."
^DD(3.5121,4,"DT")="2880202"
^DD(3.5121,5,0)="COPIES PRINTED^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.5121,5,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(3.5121,5,21,0)="^^2^2^2930521^"
^DD(3.5121,5,21,1,0)="This field holds an indication of the actual number of copies of the spool"
^DD(3.5121,5,21,2,0)="document that have been printed."
^DD(3.5121,5,"DT")="2890210"
^DD(3.5121,"B","COPIES PRINTED",5)=""
^DD(3.5121,"B","COPIES TO PRINT",1)=""
^DD(3.5121,"B","CURRENT PAGE",2)=""
^DD(3.5121,"B","Copies to print",1)="1"
^DD(3.5121,"B","DEVICE",.01)=""
^DD(3.5121,"B","FINISH DATE/TIME",4)=""
^DD(3.5121,"B","LINE NUMBER OF CURRENT PAGE",3)=""
^DD(3.5121,"GL",0,1,.01)=""
^DD(3.5121,"GL",0,2,1)=""
^DD(3.5121,"GL",0,3,2)=""
^DD(3.5121,"GL",0,4,3)=""
^DD(3.5121,"GL",0,5,4)=""
^DD(3.5121,"GL",0,6,5)=""
^DD(3.5121,"IX",.01)=""
^DD(3.5131,0)="OTHER AUTHORIZED USERS SUB-FIELD^^.01^1"
^DD(3.5131,0,"DT")="2890822"
^DD(3.5131,0,"IX","B",3.5131,.01)=""
^DD(3.5131,0,"NM","OTHER AUTHORIZED USERS")=""
^DD(3.5131,0,"UP")="3.51"
^DD(3.5131,.01,0)="OTHER AUTHORIZED USERS^MP200'^VA(200,^0;1^Q"
^DD(3.5131,.01,1,0)="^.1"
^DD(3.5131,.01,1,1,0)="3.5131^B"
^DD(3.5131,.01,1,1,1)="S ^XMB(3.51,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(3.5131,.01,1,1,2)="K ^XMB(3.51,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(3.5131,.01,1,2,0)="3.51^AOK2^MUMPS"
^DD(3.5131,.01,1,2,1)="S ^XMB(3.51,""AOK"",DA(1),X)="""""
^DD(3.5131,.01,1,2,2)="K:'$D(^XMB(3.51,""ADUZ"",X,DA(1))) ^XMB(3.51,""AOK"",DA(1),X)"
^DD(3.5131,.01,1,2,"%D",0)="^^3^3^2920519^^"
^DD(3.5131,.01,1,2,"%D",1,0)="The 'AOK2' cross-reference set the 'AOK' cross-reference."
^DD(3.5131,.01,1,2,"%D",2,0)="The 'AOK' cross-reference identifies who has authorized access to"
^DD(3.5131,.01,1,2,"%D",3,0)="an individual document."
^DD(3.5131,.01,3)="Other users who may share this spool document."
^DD(3.5131,.01,"DT")="2890822"
^DD(3.5131,"B","OTHER AUTHORIZED USERS",.01)=""
^DD(3.5131,"GL",0,1,.01)=""
^DD(3.5131,"IX",.01)=""
^DD(3.519,0)="FIELD^^3^2"
^DD(3.519,0,"DT")="2910801"
^DD(3.519,0,"IX","B",3.519,.01)=""
^DD(3.519,0,"NM","SPOOL DATA")=""
^DD(3.519,0,"PT",3.51,9)=""
^DD(3.519,0,"VR")="8.0"
^DD(3.519,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(3.519,.01,0)="ENTRY^RP3.51'^XMB(3.51,^0;1^Q"
^DD(3.519,.01,1,0)="^.1"
^DD(3.519,.01,1,1,0)="3.519^B"
^DD(3.519,.01,1,1,1)="S ^XMBS(3.519,""B"",$E(X,1,30),DA)="""""
^DD(3.519,.01,1,1,2)="K ^XMBS(3.519,""B"",$E(X,1,30),DA)"
^DD(3.519,.01,3)=""
^DD(3.519,.01,21,0)="^^1^1^2920518^^^^"
^DD(3.519,.01,21,1,0)="A DINUMed pointer to the spool doc file."
^DD(3.519,.01,"DT")="2910801"
^DD(3.519,3,0)="TEXT^3.5193^^2;0"
^DD(3.519,3,21,0)="^^1^1^2920518^^^"
^DD(3.519,3,21,1,0)="This is the text of the spool document."
^DD(3.519,"B","ENTRY",.01)=""
^DD(3.519,"B","TEXT",3)=""
^DD(3.519,"GL",0,1,.01)=""
^DD(3.519,"GL",2,0,3)=""
^DD(3.519,"IX",.01)=""
^DD(3.519,"RQ",.01)=""
^DD(3.519,"SB",3.5193,3)=""
^DD(3.5193,0)="TEXT SUB-FIELD^^.01^1"
^DD(3.5193,0,"DT")="2910729"
^DD(3.5193,0,"NM","TEXT")=""
^DD(3.5193,0,"UP")="3.519"
^DD(3.5193,.01,0)="TEXT^W^^0;1^Q"
^DD(3.5193,.01,"DT")="2910729"
^DD(3.5193,"B","TEXT",.01)=""
^DD(3.5193,"GL",0,1,.01)=""
^DD(3.53,0)="HUNT GROUP DEVICE SUB-FIELD^^.01^2"
^DD(3.53,0,"DT")="2940422"
^DD(3.53,0,"IX","B",3.53,.01)=""
^DD(3.53,0,"NM","HUNT GROUP DEVICE")=""
^DD(3.53,0,"UP")="3.5"
^DD(3.53,.001,0)="ORDER^NJ5,0X^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.53,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(3.53,.001,"DT")="2950619"
^DD(3.53,.01,0)="HUNT GROUP DEVICE^MP3.5'^%ZIS(1,^0;1^Q"
^DD(3.53,.01,1,0)="^.1"
^DD(3.53,.01,1,1,0)="3.53^B"
^DD(3.53,.01,1,1,1)="S ^%ZIS(1,DA(1),""HG"",""B"",$E(X,1,30),DA)="""""
^DD(3.53,.01,1,1,2)="K ^%ZIS(1,DA(1),""HG"",""B"",$E(X,1,30),DA)"
^DD(3.53,.01,1,2,0)="3.5^AHG"
^DD(3.53,.01,1,2,1)="S ^%ZIS(1,""AHG"",$E(X,1,30),DA(1),DA)="""""
^DD(3.53,.01,1,2,2)="K ^%ZIS(1,""AHG"",$E(X,1,30),DA(1),DA)"
^DD(3.53,.01,1,2,"DT")="2891002"
^DD(3.53,.01,21,0)="^^2^2^2920515^^^"
^DD(3.53,.01,21,1,0)="This is the device that is a member of the hunt group described in"
^DD(3.53,.01,21,2,0)="the #.01 field of the Device File."
^DD(3.53,.01,"DT")="2891002"
^DD(3.53,"B","HUNT GROUP DEVICE",.01)=""
^DD(3.53,"B","ORDER",.001)=""
^DD(3.53,"GL",0,1,.01)=""
^DD(3.53,"IX",.01)=""
^DD(3.532,0)="DESPOOL DEVICES SUB-FIELD^^1^2"
^DD(3.532,0,"DT")="2940428"
^DD(3.532,0,"IX","B",3.532,.01)=""
^DD(3.532,0,"NM","DESPOOL DEVICES")=""
^DD(3.532,0,"UP")="3.5"
^DD(3.532,.01,0)="DESPOOL DEVICES^MP3.5'^%ZIS(1,^0;1^Q"
^DD(3.532,.01,1,0)="^.1"
^DD(3.532,.01,1,1,0)="3.532^B"
^DD(3.532,.01,1,1,1)="S ^%ZIS(1,DA(1),""SPL"",""B"",$E(X,1,30),DA)="""""
^DD(3.532,.01,1,1,2)="K ^%ZIS(1,DA(1),""SPL"",""B"",$E(X,1,30),DA)"
^DD(3.532,.01,21,0)="^^2^2^2920515^^^"
^DD(3.532,.01,21,1,0)="The printer used in the despool process associated with"
^DD(3.532,.01,21,2,0)="the current spool device."
^DD(3.532,.01,"DT")="2890907"
^DD(3.532,1,0)="COPIES^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.532,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(3.532,1,"DT")="2940428"
^DD(3.532,"B","COPIES",1)=""
^DD(3.532,"B","DESPOOL DEVICES",.01)=""
^DD(3.532,"GL",0,1,.01)=""
^DD(3.532,"GL",0,2,1)=""
^DD(3.532,"IX",.01)=""
^DD(3.54,0)="FIELD^^2^3"
^DD(3.54,0,"DDA")="N"
^DD(3.54,0,"DT")="2991028"
^DD(3.54,0,"IX","AJ",3.542,2)=""
^DD(3.54,0,"IX","B",3.54,.01)=""
^DD(3.54,0,"NM","RESOURCE")=""
^DD(3.54,0,"VR")="8.0"
^DD(3.54,0,"VRPK")="XU"
^DD(3.54,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(3.54,.01,1,0)="^.1^^-1"
^DD(3.54,.01,1,1,0)="3.54^B"
^DD(3.54,.01,1,1,1)="S ^%ZISL(3.54,""B"",$E(X,1,30),DA)="""""
^DD(3.54,.01,1,1,2)="K ^%ZISL(3.54,""B"",$E(X,1,30),DA)"
^DD(3.54,.01,3)="Answer must be 3-30 characters in length."
^DD(3.54,.01,5,1,0)="3.5^1^4"
^DD(3.54,.01,5,2,0)="3.5^2^1"
^DD(3.54,.01,21,0)="^^3^3^2920515^^"
^DD(3.54,.01,21,1,0)="This file is for internal use by TaskMan and the Device Handler.  Names"
^DD(3.54,.01,21,2,0)="of resources are defined by the Device Handler according to the $I value"
^DD(3.54,.01,21,3,0)="of resource-type devices in the Device file."
^DD(3.54,.01,"DT")="2891016"
^DD(3.54,1,0)="AVAILABLE SLOTS^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.54,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(3.54,1,5,1,0)="3.5^35^1"
^DD(3.54,1,21,0)="^^7^7^2920515^^"
^DD(3.54,1,21,1,0)="This field indicates whether another task can be sent to this resource."
^DD(3.54,1,21,2,0)="For sequential or single thread processing, this field will have a"
^DD(3.54,1,21,3,0)="constant value of one.  The RESOURCE SLOTS field in the Device file"
^DD(3.54,1,21,4,0)="is used to determine the number.  If the RESOURCE SLOTS are greater than"
^DD(3.54,1,21,5,0)="one, the value of this field will change as the beginning tasks complete"
^DD(3.54,1,21,6,0)="and slots become available for other tasks that have been directed to"
^DD(3.54,1,21,7,0)="this resource."
^DD(3.54,1,"DT")="2901221"
^DD(3.54,2,0)="SLOTS IN USE^3.542A^^1;0"
^DD(3.54,2,21,0)="^^2^2^2920515^^"
^DD(3.54,2,21,1,0)="This multiple field stores information about the jobs that currently"
^DD(3.54,2,21,2,0)="own this resource."
^DD(3.54,2,"DT")="2891016"
^DD(3.54,"B","AVAILABLE SLOTS",1)=""
^DD(3.54,"B","NAME",.01)=""
^DD(3.54,"B","SLOTS IN USE",2)=""
^DD(3.54,"GL",0,1,.01)=""
^DD(3.54,"GL",0,2,1)=""
^DD(3.54,"GL",1,0,2)=""
^DD(3.54,"IX",.01)=""
^DD(3.54,"RQ",.01)=""
^DD(3.54,"SB",3.542,2)=""
^DD(3.542,0)="SLOTS IN USE SUB-FIELD^^4^5"
^DD(3.542,0,"DT")="2991028"
^DD(3.542,0,"IX","B",3.542,.01)=""
^DD(3.542,0,"NM","SLOTS IN USE")=""
^DD(3.542,0,"UP")="3.54"
^DD(3.542,.01,0)="SLOT IN USE^MNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X K:$S('$D(X)!'$D(^%ZISL(3.54,D0,0)):0,X>($P(^(0),""^"",2)+1):1,1:0) X S:$D(X) DINUM=X"
^DD(3.542,.01,1,0)="^.1^^-1"
^DD(3.542,.01,1,1,0)="3.542^B"
^DD(3.542,.01,1,1,1)="S ^%ZISL(3.54,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(3.542,.01,1,1,2)="K ^%ZISL(3.54,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(3.542,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(3.542,.01,21,0)="^^2^2^2920515^^"
^DD(3.542,.01,21,1,0)="This is the number of the slot currently in use.  It is an arbitrary"
^DD(3.542,.01,21,2,0)="counter used to file information about the current job."
^DD(3.542,.01,"DT")="2891025"
^DD(3.542,1,0)="CPU/VOL^F^^0;2^K:$L(X)>7!($L(X)<2) X"
^DD(3.542,1,3)="Answer must be 2-7 characters in length."
^DD(3.542,1,21,0)="^^1^1^2920515^^"
^DD(3.542,1,21,1,0)="This field indicates the location of the current resource."
^DD(3.542,1,"DT")="2891016"
^DD(3.542,2,0)="JOB #^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(3.542,2,1,0)="^.1"
^DD(3.542,2,1,1,0)="3.54^AJ"
^DD(3.542,2,1,1,1)="S ^%ZISL(3.54,""AJ"",$E(X,1,30),DA(1),DA)="""""
^DD(3.542,2,1,1,2)="K ^%ZISL(3.54,""AJ"",$E(X,1,30),DA(1),DA)"
^DD(3.542,2,1,1,"DT")="2900529"
^DD(3.542,2,3)="Answer must be a numeric integer of 1-30 characters in length."
^DD(3.542,2,21,0)="^^1^1^2920515^^"
^DD(3.542,2,21,1,0)="This field holds the number of the current job, the Task SubManager's $J."
^DD(3.542,2,"DT")="2900529"
^DD(3.542,3,0)="TASK #^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.542,3,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(3.542,3,21,0)="^^2^2^2990623^"
^DD(3.542,3,21,1,0)="This field holds the task number of the job that has this resource slot."
^DD(3.542,3,21,2,0)="It is for reference only."
^DD(3.542,3,"DT")="2990623"
^DD(3.542,4,0)="START TIME^F^^0;5^K:$L(X)>11!($L(X)<3)!'(X?1.5N1"",""1.5N) X"
^DD(3.542,4,3)="Answer must be 3-11 characters in length. $H format."
^DD(3.542,4,21,0)="^^2^2^2991028^"
^DD(3.542,4,21,1,0)="This field holds the $H time that the slot was allocated to a job."
^DD(3.542,4,21,2,0)="Can be used to help find abandoned slots."
^DD(3.542,4,"DT")="2991028"
^DD(3.542,"B","CPU/VOL",1)=""
^DD(3.542,"B","JOB #",2)=""
^DD(3.542,"B","SLOT IN USE",.01)=""
^DD(3.542,"B","START TIME",4)=""
^DD(3.542,"B","TASK #",3)=""
^DD(3.542,"GL",0,1,.01)=""
^DD(3.542,"GL",0,2,1)=""
^DD(3.542,"GL",0,3,2)=""
^DD(3.542,"GL",0,4,3)=""
^DD(3.542,"GL",0,5,4)=""
^DD(3.542,"IX",.01)=""
^DD(3.542,"IX",2)=""
^DD(3.6,0)="FIELD^NL^12^8"
^DD(3.6,0,"DDA")="N"
^DD(3.6,0,"DT")="2970611"
^DD(3.6,0,"IX","B",3.6,.01)=""
^DD(3.6,0,"NM","BULLETIN")=""
^DD(3.6,0,"PT",19,220)=""
^DD(3.6,0,"VR")="8.0"
^DD(3.6,0,"VRPK")="MAILMAN"
^DD(3.6,.01,0)="NAME^RXF^^0;1^D CHKNAME^XQ5 K:$L(X)>30!(X["""""""")!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(3.6,.01,.1)="A Unique name of bulletin, beginning with the package prefix"
^DD(3.6,.01,1,0)="^.1^^-1"
^DD(3.6,.01,1,1,0)="3.6^B"
^DD(3.6,.01,1,1,1)="S ^XMB(3.6,""B"",$E(X,1,30),DA)="""""
^DD(3.6,.01,1,1,2)="K ^XMB(3.6,""B"",$E(X,1,30),DA)"
^DD(3.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(3.6,.01,21,0)="^^2^2^2880707^^"
^DD(3.6,.01,21,1,0)="This field is the name of the bulletin, in the standard format of a "
^DD(3.6,.01,21,2,0)="two character package prefix, followed by a descriptive name."
^DD(3.6,.01,"AUDIT")="n"
^DD(3.6,.01,"DT")="2880707"
^DD(3.6,2,0)="SUBJECT^RF^^0;2^K:$L(X)>65!($L(X)<3) X"
^DD(3.6,2,.1)="The subject of the message generated, as it will appear on the message"
^DD(3.6,2,3)="ANSWER MUST BE 3-65 CHARACTERS IN LENGTH"
^DD(3.6,2,21,0)="^^2^2^2840524^"
^DD(3.6,2,21,1,0)="This is the subject of the bulletin, as it will appear to the recipient."
^DD(3.6,2,21,2,0)="Note that it may contain windows, just as in the ""MESSAGE"" field."
^DD(3.6,2,"AUDIT")="n"
^DD(3.6,2,"DT")="2830922"
^DD(3.6,4,0)="MAIL GROUP^3.62P^^2;0"
^DD(3.6,4,21,0)="^^3^3^2860224^^^"
^DD(3.6,4,21,1,0)="This is a list of the mail groups to which this bulletin will be directed"
^DD(3.6,4,21,2,0)="when triggered.  If no mail groups are defined, or they point to no users,"
^DD(3.6,4,21,3,0)="then the bulletin is ignored."
^DD(3.6,5,0)="RETENTION DAYS^NJ3,0^^0;3^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.6,5,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(3.6,5,21,0)="^^3^3^3020325^^^"
^DD(3.6,5,21,1,0)="After this number of days, if the bulletin hasn't already been purged,"
^DD(3.6,5,21,2,0)="it will be purged by the XMAUTOPURGE option.  If zero or null, the"
^DD(3.6,5,21,3,0)="bulletin will not have a purge date, and will not be purged by XMAUTOPURGE."
^DD(3.6,5,"DT")="3020325"
^DD(3.6,6,0)="DESCRIPTION^3.63^^3;0"
^DD(3.6,6,21,0)="^.001^2^2^3020422^^^^"
^DD(3.6,6,21,1,0)="This field is a description of the bulletin, for documentation purposes."
^DD(3.6,6,21,2,0)="It is not used by MailMan for any automatic processing."
^DD(3.6,10,0)="MESSAGE^3.61A^^1;0"
^DD(3.6,10,21,0)="^.001^12^12^3020422^^^"
^DD(3.6,10,21,1,0)="This holds the ""canned"" text of the bulletin which will be sent when"
^DD(3.6,10,21,2,0)="the bulletin is fired.  "
^DD(3.6,10,21,3,0)=" "
^DD(3.6,10,21,4,0)="Variable text may be stored in parameters at the time of firing, then"
^DD(3.6,10,21,5,0)="inserted in the message text.  Parameter windows are defined by putting"
^DD(3.6,10,21,6,0)="them within vertical bars, with the parameter number inside.  For"
^DD(3.6,10,21,7,0)="example,  ""Appointment for |1| on |2| has been cancelled.""  with parameter"
^DD(3.6,10,21,8,0)="1 set to ""Jones"", and parameter 2 set to ""Monday"" would generate a"
^DD(3.6,10,21,9,0)="bulletin of ""Appointment for Jones on Monday has been cancelled."""
^DD(3.6,10,21,10,0)=" "
^DD(3.6,10,21,11,0)="Parameters may be set with fileman (in the Bulletin cross reference)"
^DD(3.6,10,21,12,0)="or by programmers from within programs."
^DD(3.6,11,0)="PARAMETER^3.64A^^4;0"
^DD(3.6,11,21,0)="^^2^2^2931213^^^^"
^DD(3.6,11,21,1,0)="This defines the parameters, which will be used to set information"
^DD(3.6,11,21,2,0)="into the bulletin."
^DD(3.6,12,0)="PRIORITY?^S^0:NO;1:YES;^0;4^Q"
^DD(3.6,12,3)="Should this bulletin be a priority message?"
^DD(3.6,12,21,0)="^^2^2^2970611^"
^DD(3.6,12,21,1,0)="If you want this bulletin to appear to the recipients as a priority message,"
^DD(3.6,12,21,2,0)="enter 'yes'; if not, enter 'no'."
^DD(3.6,12,"DT")="2970611"
^DD(3.6,"B","DESCRIPTION",6)=""
^DD(3.6,"B","MAIL GROUP",4)=""
^DD(3.6,"B","MESSAGE",10)=""
^DD(3.6,"B","NAME",.01)=""
^DD(3.6,"B","PARAMETER",11)=""
^DD(3.6,"B","PRIORITY?",12)=""
^DD(3.6,"B","RETENTION DAYS",5)=""
^DD(3.6,"B","SUBJECT",2)=""
^DD(3.6,"GL",0,1,.01)=""
^DD(3.6,"GL",0,2,2)=""
^DD(3.6,"GL",0,3,5)=""
^DD(3.6,"GL",0,4,12)=""
^DD(3.6,"GL",1,0,10)=""
^DD(3.6,"GL",2,0,4)=""
^DD(3.6,"GL",3,0,6)=""
^DD(3.6,"GL",4,0,11)=""
^DD(3.6,"IX",.01)=""
^DD(3.6,"RQ",.01)=""
^DD(3.6,"RQ",2)=""
^DD(3.6,"SB",3.61,10)=""
^DD(3.6,"SB",3.62,4)=""
^DD(3.6,"SB",3.63,6)=""
^DD(3.6,"SB",3.64,11)=""
^DD(3.61,0)="MESSAGE SUB-FIELD^NL^.01^1"
^DD(3.61,0,"NM","MESSAGE")=""
^DD(3.61,0,"UP")="3.6"
^DD(3.61,.01,0)="MESSAGE^W^^0;1^Q"
^DD(3.61,.01,.1)="The text of the bulletin, with windows enclosed in  ""|"" characters"
^DD(3.61,.01,3)=""
^DD(3.61,.01,21,0)="^^1^1^2931213^"
^DD(3.61,.01,21,1,0)="This field has text in it that will become the text of a message."
^DD(3.61,.01,"DT")="2831003"
^DD(3.61,"B","MESSAGE",.01)=""
^DD(3.61,"GL",0,1,.01)=""
^DD(3.62,0)="MAIL GROUP SUB-FIELD^NL^.01^1"
^DD(3.62,0,"IX","B",3.62,.01)=""
^DD(3.62,0,"NM","MAIL GROUP")=""
^DD(3.62,0,"UP")="3.6"
^DD(3.62,.01,0)="MAIL GROUP^MP3.8^XMB(3.8,^0;1^Q"
^DD(3.62,.01,.1)="The list of Mail Group(s) to which this bulletin will be sent"
^DD(3.62,.01,1,0)="^.1"
^DD(3.62,.01,1,1,0)="3.62^B"
^DD(3.62,.01,1,1,1)="S ^XMB(3.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(3.62,.01,1,1,2)="K ^XMB(3.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(3.62,.01,1,1,"DT")="2901002"
^DD(3.62,.01,3)="To which mail group should this bulletin be sent?"
^DD(3.62,.01,21,0)="^.001^2^2^3020422^^"
^DD(3.62,.01,21,1,0)="This is the name of a mail group to which this bulletin will be directed"
^DD(3.62,.01,21,2,0)="when triggered."
^DD(3.62,.01,"AUDIT")="n"
^DD(3.62,.01,"DT")="2901002"
^DD(3.62,"B","MAIL GROUP",.01)=""
^DD(3.62,"GL",0,1,.01)=""
^DD(3.62,"IX",.01)=""
^DD(3.63,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(3.63,0,"NM","DESCRIPTION")=""
^DD(3.63,0,"UP")="3.6"
^DD(3.63,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(3.63,.01,.1)="A short description of the purpose of this bulletin, for documentation purposes"
^DD(3.63,.01,3)="What's the purpose of this bulletin?"
^DD(3.63,.01,21,0)="^.001^1^1^3020422^^"
^DD(3.63,.01,21,1,0)="This field describes the bulletin."
^DD(3.63,.01,"DT")="2831006"
^DD(3.63,"B","DESCRIPTION",.01)=""
^DD(3.63,"GL",0,1,.01)=""
^DD(3.64,0)="PARAMETER SUB-FIELD^NL^1^2"
^DD(3.64,0,"ID","X")="W:$D(^(1,1))#2 ""   "",^(1),""..."""
^DD(3.64,0,"NM","PARAMETER")=""
^DD(3.64,0,"UP")="3.6"
^DD(3.64,.01,0)="PARAMETER^MNJ3,0X^^0;1^S DINUM=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X,DINUM"
^DD(3.64,.01,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(3.64,.01,21,0)="^^2^2^2931213^^"
^DD(3.64,.01,21,1,0)="This defines a parameter which will be used to set information"
^DD(3.64,.01,21,2,0)="into the bulletin."
^DD(3.64,.01,"AUDIT")="n"
^DD(3.64,.01,"DT")="2831012"
^DD(3.64,1,0)="DESCRIPTION^3.65^^1;0"
^DD(3.64,1,21,0)="^^2^2^2931213^^^^"
^DD(3.64,1,21,1,0)="This is a description of the parameter, to be inserted into the"
^DD(3.64,1,21,2,0)="bulletin.  It is purely for documentation purposes."
^DD(3.64,"B","DESCRIPTION",1)=""
^DD(3.64,"B","PARAMETER",.01)=""
^DD(3.64,"GL",0,1,.01)=""
^DD(3.64,"GL",1,0,1)=""
^DD(3.64,"SB",3.65,1)=""
^DD(3.65,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(3.65,0,"NM","DESCRIPTION")=""
^DD(3.65,0,"UP")="3.64"
^DD(3.65,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(3.65,.01,21,0)="^^2^2^2931213^"
^DD(3.65,.01,21,1,0)="This is a description of the parameter to be inserted into the"
^DD(3.65,.01,21,2,0)="bulletin.  It is purely for documentation purposes."
^DD(3.65,.01,"DT")="2831012"
^DD(3.65,"B","DESCRIPTION",.01)=""
^DD(3.65,"GL",0,1,.01)=""
^DD(3.7,0)="FIELD^^99^39"
^DD(3.7,0,"DDA")="Y"
^DD(3.7,0,"DT")="3020222"
^DD(3.7,0,"IX","AB",3.703,.01)=""
^DD(3.7,0,"IX","AC",3.702,5)=""
^DD(3.7,0,"IX","AD",3.7,5)=""
^DD(3.7,0,"IX","B",3.7,.01)=""
^DD(3.7,0,"IX","C",3.7,.3)=""
^DD(3.7,0,"IX","F",3.7,2)=""
^DD(3.7,0,"IX","M",3.702,.01)=""
^DD(3.7,0,"NM","MAILBOX")=""
^DD(3.7,0,"VR")="8.0"
^DD(3.7,0,"VRPK")="MAILMAN"
^DD(3.7,.001,0)="NUMBER^NJ7,0I^^ ^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.7,.001,.1)="The number of the mailbasket"
^DD(3.7,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 1000000"
^DD(3.7,.001,21,0)="^^3^3^3020422^^^^"
^DD(3.7,.001,21,1,0)="This number is used internally to match mailboxes to users in the"
^DD(3.7,.001,21,2,0)="NEW PERSON file.  It is not seen by users.  Postmaster has been given the"
^DD(3.7,.001,21,3,0)="special number of .5."
^DD(3.7,.001,"DT")="3020422"
^DD(3.7,.01,0)="NAME^RP200'XI^VA(200,^0;1^S DINUM=+X"
^DD(3.7,.01,.1)="The user who owns this mail box."
^DD(3.7,.01,1,0)="^.1"
^DD(3.7,.01,1,1,0)="3.7^B"
^DD(3.7,.01,1,1,1)="S ^XMB(3.7,""B"",$E(X,1,30),DA)="""""
^DD(3.7,.01,1,1,2)="K ^XMB(3.7,""B"",$E(X,1,30),DA)"
^DD(3.7,.01,3)=""
^DD(3.7,.01,21,0)="^^1^1^2931223^^^"
^DD(3.7,.01,21,1,0)="This is the name of the user who has this mail box."
^DD(3.7,.01,"DT")="2851003"
^DD(3.7,.3,0)="MAIL NAME^FX^^.3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) D MNAME^XMA21C"
^DD(3.7,.3,1,0)="^.1"
^DD(3.7,.3,1,1,0)="3.7^C"
^DD(3.7,.3,1,1,1)="S ^XMB(3.7,""C"",$E(X,1,30),DA)="""""
^DD(3.7,.3,1,1,2)="K ^XMB(3.7,""C"",$E(X,1,30),DA)"
^DD(3.7,.3,1,1,"%D",0)="^^3^3^2921127^"
^DD(3.7,.3,1,1,"%D",1,0)="This cross reference is used to ensure that names for this field will"
^DD(3.7,.3,1,1,"%D",2,0)="be unique.  It is also used for look-up by the name-server for incoming"
^DD(3.7,.3,1,1,"%D",3,0)="network mail and local mail."
^DD(3.7,.3,1,1,"DT")="2921127"
^DD(3.7,.3,3)="Answer with a name that will be used for your return address on messages sent to other sites."
^DD(3.7,.3,4)="D HELP^XMA21C"
^DD(3.7,.3,21,0)="^^2^2^2931223^^^^"
^DD(3.7,.3,21,1,0)="This is a name that the user assigns to his mail-box on this system."
^DD(3.7,.3,21,2,0)="It is guaranteed to be unique for each user."
^DD(3.7,.3,"DT")="2921127"
^DD(3.7,1,0)="BASKET^3.701^^2;0"
^DD(3.7,1,21,0)="^^10^10^2970811^^^^"
^DD(3.7,1,21,1,0)="This is where users store their messages.  Each user is automatically given an"
^DD(3.7,1,21,2,0)="IN basket (#1), and a WASTE basket (#.5) when they first use MailMan.  These"
^DD(3.7,1,21,3,0)="are permanent, and may not be deleted by the user.  Other baskets may be"
^DD(3.7,1,21,4,0)="created by the user, and also deleted. "
^DD(3.7,1,21,5,0)=" "
^DD(3.7,1,21,6,0)="Deleted messages are placed in the WASTE basket temporarily.  Every evening"
^DD(3.7,1,21,7,0)="the WASTE basket is emptied."
^DD(3.7,1,21,8,0)=" "
^DD(3.7,1,21,9,0)="USERS SHOULD MANIPULATE BASKETS ONLY WITH MAILMAN; NOT TRY TO DO IT MANUALLY"
^DD(3.7,1,21,10,0)="WITH FILEMAN. "
^DD(3.7,1,"DT")="2950226"
^DD(3.7,1.1,0)="# NEW MESSAGES FOR USER^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.7,1.1,.1)="Total number of NEW messages for this user."
^DD(3.7,1.1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(3.7,1.1,21,0)="^^1^1^2881121^^^^"
^DD(3.7,1.1,21,1,0)="A counter for the number of new messages in this MailBox"
^DD(3.7,1.1,"DT")="2870519"
^DD(3.7,1.11,0)="LAST MSG RECEIVED DATE/TIME^D^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.7,1.11,3)="This is the date/time that the latest message was received."
^DD(3.7,1.11,21,0)="^^2^2^2970409^^"
^DD(3.7,1.11,21,1,0)="This field is displayed when the user has new messages, and the user is"
^DD(3.7,1.11,21,2,0)="told how many, and when the last one was received."
^DD(3.7,1.11,"DT")="2960403"
^DD(3.7,1.12,0)="LAST NEW MSG NOTIFY DATE/TIME^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.7,1.12,3)="This is the last new message arrival date of which the user was notified."
^DD(3.7,1.12,21,0)="^^7^7^3020422^^^"
^DD(3.7,1.12,21,1,0)="This field is used during logon to determine whether or not to display"
^DD(3.7,1.12,21,2,0)="to the user the time that the last new message arrived. "
^DD(3.7,1.12,21,3,0)=""
^DD(3.7,1.12,21,4,0)="When the user logs on and has new messages, he is told how many, and when"
^DD(3.7,1.12,21,5,0)="the last one arrived.  If he logs off without reading those messages and"
^DD(3.7,1.12,21,6,0)="logs on again, and hasn't received any further new messages, he is told"
^DD(3.7,1.12,21,7,0)="how many new messages he has, but is not told when the last one arrived. "
^DD(3.7,1.12,"DT")="3020422"
^DD(3.7,1.2,0)="DATE @ REINSTATEMENT^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(3.7,1.2,.1)="Date for the user at the time of reinstatement."
^DD(3.7,1.2,3)="If you want to restrict the user's access regarding messages originating before a certain date, enter that date."
^DD(3.7,1.2,21,0)="^.001^5^5^3020422^^^^"
^DD(3.7,1.2,21,1,0)="When a user is reinstated, the current date may be stored here if IRM"
^DD(3.7,1.2,21,2,0)="wants to make sure that the reinstated user may not read any messages"
^DD(3.7,1.2,21,3,0)="whose local create date is before the reinstatement date."
^DD(3.7,1.2,21,4,0)="The user may not access such messages unless the messages are in one of"
^DD(3.7,1.2,21,5,0)="his mail baskets or the message is forwarded to him. "
^DD(3.7,1.2,"DT")="2980917"
^DD(3.7,2,0)="FORWARDING ADDRESS^FX^^0;2^D XMFWD^XMVVITA(.X,$G(XMIA)) I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(3.7,2,.1)="Remote address to which mail is routed"
^DD(3.7,2,1,0)="^.1"
^DD(3.7,2,1,1,0)="^^BULLETIN MESSAGE"
^DD(3.7,2,1,1,1)="S Y(0)=X,D0=DA X ""N DIIND F DIIND=1.001:.001 Q:$D(^DD(3.7,2,1,1,DIIND))[0  X ^(DIIND)"" K XMY S XMB=""XM FWD ADDRESS CHANGE"" D ^XMB:$D(^XMB(3.7,""B"",XMB)),ENT^XMUT7(DA) K Y,XMB"
^DD(3.7,2,1,1,1.001)="S X=Y(0) S Y(1)=$S($D(^XMB(3.7,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) S XMB(1)=X"
^DD(3.7,2,1,1,1.002)="S X=Y(0) S Y(1)=$S($D(^XMB(3.7,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2) S XMB(2)=X"
^DD(3.7,2,1,1,2)="Q"
^DD(3.7,2,1,1,"%D",0)="^.101^12^12^3020423^^^^"
^DD(3.7,2,1,1,"%D",1,0)="This cross reference sends two bulletins."
^DD(3.7,2,1,1,"%D",2,0)=""
^DD(3.7,2,1,1,"%D",3,0)="The first, XM FWD ADDRESS CHANGE, notifies responsible individuals"
^DD(3.7,2,1,1,"%D",4,0)="(belonging to the mail group associated with the bulletin) that a user"
^DD(3.7,2,1,1,"%D",5,0)="has changed his forwarding address.  This is the ""official"" bulletin"
^DD(3.7,2,1,1,"%D",6,0)="of this cross reference."
^DD(3.7,2,1,1,"%D",7,0)=""
^DD(3.7,2,1,1,"%D",8,0)="The second, XM FWD ADDRESS CHECK, is sent to the user's new forwarding"
^DD(3.7,2,1,1,"%D",9,0)="address as test to see if the address is valid.  If it's not valid, the"
^DD(3.7,2,1,1,"%D",10,0)="sender (the Postmaster) will receive an error message.  This bulletin"
^DD(3.7,2,1,1,"%D",11,0)="has been piggy-backed onto the ""official"" bulletin.  FileMan is not"
^DD(3.7,2,1,1,"%D",12,0)="aware of this."
^DD(3.7,2,1,1,"CREATE PARAMETER #1")="NAME"
^DD(3.7,2,1,1,"CREATE PARAMETER #2")="FORWARDING ADDRESS"
^DD(3.7,2,1,1,"CREATE VALUE")="XM FWD ADDRESS CHANGE"
^DD(3.7,2,1,1,"DELETE VALUE")="NO EFFECT"
^DD(3.7,2,1,1,"DT")="3020423"
^DD(3.7,2,1,2,0)="3.7^F"
^DD(3.7,2,1,2,1)="S ^XMB(3.7,""F"",$E(X,1,30),DA)="""""
^DD(3.7,2,1,2,2)="K ^XMB(3.7,""F"",$E(X,1,30),DA)"
^DD(3.7,2,1,2,"%D",0)="^^2^2^3020423^"
^DD(3.7,2,1,2,"%D",1,0)="This cross reference enables the site manager to easily find a user"
^DD(3.7,2,1,2,"%D",2,0)="who enters a bad forwarding address."
^DD(3.7,2,1,2,"DT")="3020423"
^DD(3.7,2,3)="Enter a forwarding address (name@domain) of up to 50 characters."
^DD(3.7,2,21,0)="^^8^8^2990512^^^^"
^DD(3.7,2,21,1,0)="This field names an additional address to which any messages addressed to"
^DD(3.7,2,21,2,0)="you are routed.  This address must be a remote address or a local device."
^DD(3.7,2,21,3,0)=""
^DD(3.7,2,21,4,0)="If you want a local user to see your messages, make that user a surrogate."
^DD(3.7,2,21,5,0)=" "
^DD(3.7,2,21,6,0)="See the LOCAL DELIVERY FLAG.  If you do not edit this field to 'ON', then"
^DD(3.7,2,21,7,0)="mail will only be delivered to your FORWARDING ADDRESS and not to your"
^DD(3.7,2,21,8,0)="Mailbox."
^DD(3.7,2,"DT")="3020423"
^DD(3.7,2.1,0)="LOCAL DELIVERY FLAG^S^0:NO LOCAL DELIVERY;1:LOCAL DELIVERY ON;^0;8^Q"
^DD(3.7,2.1,.1)="LOCAL DELIVERY"
^DD(3.7,2.1,3)="If this field is not set to 'ON' and the FORWARDING ADDRESS field is filled in, then messages will only be forwarded, not delivered locally."
^DD(3.7,2.1,21,0)="^^9^9^2970725^^^^"
^DD(3.7,2.1,21,1,0)="This field only applies if you have a FORWARDING ADDRESS."
^DD(3.7,2.1,21,2,0)=""
^DD(3.7,2.1,21,3,0)="If you have a FORWARDING ADDRESS and you want your messages"
^DD(3.7,2.1,21,4,0)="delivered locally, too, select 1 or LOCAL DELIVERY ON."
^DD(3.7,2.1,21,5,0)="Your messages will be delivered to both your local and remote addresses."
^DD(3.7,2.1,21,6,0)=""
^DD(3.7,2.1,21,7,0)="If you have a FORWARDING ADDRESS and you do not want your messages"
^DD(3.7,2.1,21,8,0)="delivered locally, too, select 0 or NO LOCAL DELIVERY."
^DD(3.7,2.1,21,9,0)="Your messages will be delivered only to your remote addresses."
^DD(3.7,2.1,"DT")="2970725"
^DD(3.7,2.21,0)="NETWORK SIGNATURE LINE 1 OF 3^F^^NS1;1^K:$L(X)>70!($L(X)<3) X"
^DD(3.7,2.21,3)="Answer must be 3-70 characters in length."
^DD(3.7,2.21,21,0)="^.001^20^20^3000509^^^^"
^DD(3.7,2.21,21,1,0)="This field is used when a user chooses to 'Answer' a message"
^DD(3.7,2.21,21,2,0)="rather than 'Reply' to a message.  While a 'reply' chains the new"
^DD(3.7,2.21,21,3,0)="message to the original one, an 'answer' creates a new message to"
^DD(3.7,2.21,21,4,0)="send to the sender of the original message, a new message which will not"
^DD(3.7,2.21,21,5,0)="be chained to the original message.  The new message is created with a"
^DD(3.7,2.21,21,6,0)="copy of the message being answered, along with the text of the answer,"
^DD(3.7,2.21,21,7,0)="followed by this field and the next two NETWORK SIGNATURE LINE fields."
^DD(3.7,2.21,21,8,0)=""
^DD(3.7,2.21,21,9,0)="Your network signature might contain your name, who you are, where you"
^DD(3.7,2.21,21,10,0)="work, how you can be contacted, a favorite quote, or whatever you like."
^DD(3.7,2.21,21,11,0)=" "
^DD(3.7,2.21,21,12,0)="So the final message, sent only to the sender will look like this:"
^DD(3.7,2.21,21,13,0)=" "
^DD(3.7,2.21,21,14,0)="    Original text"
^DD(3.7,2.21,21,15,0)="    ."
^DD(3.7,2.21,21,16,0)="    ."
^DD(3.7,2.21,21,17,0)="    Answer"
^DD(3.7,2.21,21,18,0)="    ."
^DD(3.7,2.21,21,19,0)="    ."
^DD(3.7,2.21,21,20,0)="    Network signature (preceeded by a line of ""-""s)"
^DD(3.7,2.21,"DT")="2930326"
^DD(3.7,2.22,0)="NETWORK SIGNATURE LINE 2 OF 3^F^^NS1;2^K:$L(X)>70!($L(X)<3) X"
^DD(3.7,2.22,3)="Answer must be 3-70 characters in length."
^DD(3.7,2.22,21,0)="^^1^1^2960228^^"
^DD(3.7,2.22,21,1,0)="See field 2.21 'NETWORK SIGNATURE LINE 1 OF 3'."
^DD(3.7,2.22,"DT")="2930326"
^DD(3.7,2.23,0)="NETWORK SIGNATURE LINE 3 OF 3^F^^NS1;3^K:$L(X)>70!($L(X)<3) X"
^DD(3.7,2.23,3)="Answer must be 3-70 characters in length."
^DD(3.7,2.23,21,0)="^^1^1^2930326^^"
^DD(3.7,2.23,21,1,0)="See field 2.21 'NETWORK SIGNATURE LINE 1 OF 3'."
^DD(3.7,2.23,"DT")="2930326"
^DD(3.7,3,0)="LATEST MAILMAN ACCESS^F^^L;1^K:$L(X)>64!($L(X)<2) X"
^DD(3.7,3,3)="Answer must be 2-64 characters in length."
^DD(3.7,3,21,0)="^.001^6^6^3020422^^^^"
^DD(3.7,3,21,1,0)="This field holds the time of last use of MailMan by this user."
^DD(3.7,3,21,2,0)="It is in an external date/time format and may include a parenthesized"
^DD(3.7,3,21,3,0)="surrogate's name (if it was the surrogate that last accessed MailMan)."
^DD(3.7,3,21,4,0)=""
^DD(3.7,3,21,5,0)="It is displayed when you address a message to a local user so that you"
^DD(3.7,3,21,6,0)="know when the user ""last used MailMan""."
^DD(3.7,3,"DT")="2970725"
^DD(3.7,3.1,0)="LATEST MAILMAN ACCESS DATE^D^^L;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(3.7,3.1,21,0)="^^6^6^2960228^^^"
^DD(3.7,3.1,21,1,0)="The Latest Date Accessed (7N) is in FileMan format and is the same as"
^DD(3.7,3.1,21,2,0)="the portion of the LATEST ACCESS field that excludes time and text."
^DD(3.7,3.1,21,3,0)=" "
^DD(3.7,3.1,21,4,0)="CAUTION:"
^DD(3.7,3.1,21,5,0)=" "
^DD(3.7,3.1,21,6,0)="This field does not exist for a NEW USER until he signs into MailMan."
^DD(3.7,3.1,22)=""
^DD(3.7,3.1,"DT")="2900619"
^DD(3.7,3.2,0)="LAST MAILMAN ACCESS USER ID^P200'^VA(200,^L;3^Q"
^DD(3.7,3.2,3)="Enter the DUZ of the user."
^DD(3.7,3.2,21,0)="^^2^2^2900619^"
^DD(3.7,3.2,21,1,0)="This field is used to record the DUZ of the last user to sign onto the "
^DD(3.7,3.2,21,2,0)="system and use a particular Mail Box."
^DD(3.7,3.2,"DT")="2910523"
^DD(3.7,4,0)="BANNER^F^^B;1^K:$L(X)>200!($L(X)<2) X"
^DD(3.7,4,1,0)="^.1"
^DD(3.7,4,1,1,0)="^^BULLETIN MESSAGE"
^DD(3.7,4,1,1,1)="S Y(0)=X,D0=DA S X=Y(0) S Y(1)=$S($D(^XMB(3.7,D0,""B"")):^(""B""),1:"""") S X=$P(Y(1),U,1) S XMB(1)=X X ^DD(3.7,4,1,1,1.2) K XMY S XMB=""XM BANNER MESSAGE"" D ^XMB:$D(^XMB(3.6,""B"",XMB)) K Y,XMB"
^DD(3.7,4,1,1,1.2)="S X=Y(0) S Y(1)=$S($D(^XMB(3.7,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1)) S XMB(2)=X"
^DD(3.7,4,1,1,2)="Q"
^DD(3.7,4,1,1,"%D",0)="^^1^1^2980430^^^"
^DD(3.7,4,1,1,"%D",1,0)="Sends a bulletin whenever a banner is created or changed."
^DD(3.7,4,1,1,"CREATE PARAMETER #1")="BANNER"
^DD(3.7,4,1,1,"CREATE PARAMETER #2")="NAME"
^DD(3.7,4,1,1,"CREATE VALUE")="XM BANNER MESSAGE"
^DD(3.7,4,1,1,"DELETE VALUE")="NO EFFECT"
^DD(3.7,4,1,1,"DT")="2970804"
^DD(3.7,4,3)="ANSWER MUST BE 2-200 CHARACTERS IN LENGTH"
^DD(3.7,4,21,0)="^^1^1^2851003^^"
^DD(3.7,4,21,1,0)="The banner is displayed to others whenever they address mail to you."
^DD(3.7,4,"DT")="2970804"
^DD(3.7,4.5,0)="INTRODUCTION^3.704^^1;0"
^DD(3.7,4.5,21,0)="^^2^2^2881107^"
^DD(3.7,4.5,21,1,0)="This field will be displayed upon fetching the data of a user during"
^DD(3.7,4.5,21,2,0)="the help functions."
^DD(3.7,5,0)="MESSAGE BEING EDITED^P3.9I^XMB(3.9,^T;1^Q"
^DD(3.7,5,1,0)="^.1"
^DD(3.7,5,1,1,0)="3.7^AD^MUMPS"
^DD(3.7,5,1,1,1)="S ^XMB(3.7,""AD"",DA,X)="""""
^DD(3.7,5,1,1,2)="K ^XMB(3.7,""AD"",DA,X)"
^DD(3.7,5,1,1,"%D",0)="^^2^2^2931212^"
^DD(3.7,5,1,1,"%D",1,0)="This cross reference is used to keep track of the message currently "
^DD(3.7,5,1,1,"%D",2,0)="being editted."
^DD(3.7,5,1,1,"DT")="2901002"
^DD(3.7,5,21,0)="^^2^2^2881123^^^"
^DD(3.7,5,21,1,0)="When the user is interupted while entering a message, this field holds the"
^DD(3.7,5,21,2,0)="message number of the message being edited."
^DD(3.7,5,"DT")="2901002"
^DD(3.7,6,0)="SHOW MESSAGE PREVIEW^S^Y:YES, SHOW MESSAGE PREVIEW;N:NO, DO NOT SHOW IT;^0;4^Q"
^DD(3.7,6,3)="Do you want to see a preview of the message subject and sender?"
^DD(3.7,6,21,0)="^^44^44^2990223^^^^"
^DD(3.7,6,21,1,0)="This applies to the Classic reader only."
^DD(3.7,6,21,2,0)=""
^DD(3.7,6,21,3,0)="When you are scrolling through the messages in a basket, you can choose"
^DD(3.7,6,21,4,0)="whether or not MailMan should display (preview) the message subject"
^DD(3.7,6,21,5,0)="and sender before you read the message."
^DD(3.7,6,21,6,0)=""
^DD(3.7,6,21,7,0)="Enter Y to see the preview; N not to.  If you don't enter anything, you"
^DD(3.7,6,21,8,0)="will not see a preview."
^DD(3.7,6,21,9,0)=""
^DD(3.7,6,21,10,0)="Seeing the message subject and sender may help you decide whether or not"
^DD(3.7,6,21,11,0)="you wish to read the message.  If you decide not to read the message,"
^DD(3.7,6,21,12,0)="you can ""Ignore"" it and move on to the next message."
^DD(3.7,6,21,13,0)=""
^DD(3.7,6,21,14,0)="The following is a sample dialogue showing message preview:"
^DD(3.7,6,21,15,0)=""
^DD(3.7,6,21,16,0)="Select MailMan Menu Option: R  Read/Manage Messages"
^DD(3.7,6,21,17,0)="Select message reader:  Detailed Full Screen// Classic"
^DD(3.7,6,21,18,0)="Read mail in MAIL BASKET: IN//       (199 messages, 1 new)"
^DD(3.7,6,21,19,0)="Last message number: 248    Messages in basket: 199 (1 new)"
^DD(3.7,6,21,20,0)="Enter ??? for help."
^DD(3.7,6,21,21,0)=""
^DD(3.7,6,21,22,0)="Subj: MESSAGE A   From: USER,ONE"
^DD(3.7,6,21,23,0)="IN Basket Message: 248// I"
^DD(3.7,6,21,24,0)=""
^DD(3.7,6,21,25,0)="Subj: MESSAGE B   From: USER,TWO"
^DD(3.7,6,21,26,0)="IN Basket Message: 247// I"
^DD(3.7,6,21,27,0)=""
^DD(3.7,6,21,28,0)="Subj: MESSAGE C   From: USER,THREE"
^DD(3.7,6,21,29,0)="IN Basket Message: 246//"
^DD(3.7,6,21,30,0)=""
^DD(3.7,6,21,31,0)="The following is a sample dialogue without message preview.  It is more"
^DD(3.7,6,21,32,0)="difficult to decide whether to read the message or to ignore it."
^DD(3.7,6,21,33,0)=""
^DD(3.7,6,21,34,0)="Select MailMan Menu Option: R  Read/Manage Messages"
^DD(3.7,6,21,35,0)="Select message reader:  Detailed Full Screen// Classic"
^DD(3.7,6,21,36,0)="Read mail in MAIL BASKET: IN//       (199 messages, 1 new)"
^DD(3.7,6,21,37,0)="Last message number: 248    Messages in basket: 199 (1 new)"
^DD(3.7,6,21,38,0)="Enter ??? for help."
^DD(3.7,6,21,39,0)=""
^DD(3.7,6,21,40,0)="IN Basket Message: 248// I"
^DD(3.7,6,21,41,0)=""
^DD(3.7,6,21,42,0)="IN Basket Message: 247// I"
^DD(3.7,6,21,43,0)=""
^DD(3.7,6,21,44,0)="IN Basket Message: 246//"
^DD(3.7,6,"DT")="2990223"
^DD(3.7,7,0)="MESSAGE BEING RESPONDED TO^P3.9I^XMB(3.9,^T;3^Q"
^DD(3.7,7,21,0)="^^2^2^3020422^^"
^DD(3.7,7,21,1,0)="When the user is interrupted while responding to a message, this field "
^DD(3.7,7,21,2,0)="holds the message number of the original message being responded to."
^DD(3.7,7,"DT")="3020422"
^DD(3.7,7.5,0)="BLOB MESSAGE^S^0:NO;1:YES;^T;4^Q"
^DD(3.7,7.5,3)="Are attachments (BLOBs) being added to this message?"
^DD(3.7,7.5,21,0)="^^3^3^2970221^"
^DD(3.7,7.5,21,1,0)="When the user is interrupted while creating a message, this field serves to"
^DD(3.7,7.5,21,2,0)="remind us whether or not the message was being created with attachments"
^DD(3.7,7.5,21,3,0)="(through the Imaging Package)."
^DD(3.7,7.5,"DT")="2970221"
^DD(3.7,8,0)="SURROGATE^3.703P^^9;0"
^DD(3.7,8,21,0)="^^4^4^2960228^^^^"
^DD(3.7,8,21,1,0)="This field lists all of the users who have the ability to act as a surrogate"
^DD(3.7,8,21,2,0)="for this user.  A surrogate may read or send mail for someone else, and is"
^DD(3.7,8,21,3,0)="listed as the ""sender"" of the message, while the message is ""from"" the"
^DD(3.7,8,21,4,0)="original user."
^DD(3.7,9,0)="MAILMAN INSTITUTION^F^^6000;1^K:$L(X)>30!($L(X)<3) X"
^DD(3.7,9,3)="Answer must be 3-30 characters in length."
^DD(3.7,9,21,0)="^^9^9^2980729^^^^"
^DD(3.7,9,21,1,0)="The MailMan Institution is shown in MailMan when the 'Show Institution in"
^DD(3.7,9,21,2,0)="MailMan?' field in the MailMan Site Parameters file indicates so."
^DD(3.7,9,21,3,0)=""
^DD(3.7,9,21,4,0)="It is shown in parentheses following your name and title in the heading of"
^DD(3.7,9,21,5,0)="every local message or response which you send."
^DD(3.7,9,21,6,0)=""
^DD(3.7,9,21,7,0)="It helps to further identify you.  It is usually the office or site where"
^DD(3.7,9,21,8,0)="you are located, and is most useful in systems such as FORUM, where people"
^DD(3.7,9,21,9,0)="from many different sites interact."
^DD(3.7,9,"DT")="2891024"
^DD(3.7,11,0)="MESSAGE ACTION DEFAULT^S^I:IGNORE;D:DELETE;^0;9^Q"
^DD(3.7,11,3)="Enter an 'I' for 'Ignore' or a 'D' for 'Delete'."
^DD(3.7,11,21,0)="0^^5^5^2980729^2900801^2900801^^"
^DD(3.7,11,21,1,0)="This field overrides the field of the same name in the MailMan Site"
^DD(3.7,11,21,2,0)="Parameters file.  Whatever you fill into this field will control the"
^DD(3.7,11,21,3,0)="default for the ""Message Action"" prompt that you answer after reading"
^DD(3.7,11,21,4,0)="each message in your IN basket.  For all other baskets, your message"
^DD(3.7,11,21,5,0)="action default will be ""Ignore""."
^DD(3.7,11,"DT")="2901002"
^DD(3.7,12,0)="ASK BASKET?^S^y:YES;n:NO;^0;5^Q"
^DD(3.7,12,3)="If no, MailMan will not ask basket name when user sends message to himself."
^DD(3.7,12,21,0)="^^8^8^2980427^^^"
^DD(3.7,12,21,1,0)="When you send a message to yourself, MailMan will ask you to which basket"
^DD(3.7,12,21,2,0)="to deliver the message."
^DD(3.7,12,21,3,0)=""
^DD(3.7,12,21,4,0)="Answer YES (this is the default) if this is what you want."
^DD(3.7,12,21,5,0)=""
^DD(3.7,12,21,6,0)="Answer NO if you do not want MailMan to ask you.  In this case, your"
^DD(3.7,12,21,7,0)="message will be filtered to the correct basket, with the IN basket being"
^DD(3.7,12,21,8,0)="the default delivery basket."
^DD(3.7,12,"DT")="2850423"
^DD(3.7,13,0)="SHOW TITLES^S^1:YES;0:NO;^0;10^Q"
^DD(3.7,13,3)="Enter 'Yes' if you want to see senders' and recipients' titles."
^DD(3.7,13,21,0)="^^3^3^2980729^^^^"
^DD(3.7,13,21,1,0)="This field controls whether or not senders of messages and responses,"
^DD(3.7,13,21,2,0)="and members of groups will be seen with their 'title' as recorded"
^DD(3.7,13,21,3,0)="in the NEW PERSON file (200)."
^DD(3.7,13,"DT")="2910326"
^DD(3.7,14,0)="PRIORITY RESPONSES FLAG^S^0:Responses are PRIORITY;1:Responses are ORDINARY;^0;11^Q"
^DD(3.7,14,21,0)="^^3^3^2920818^^"
^DD(3.7,14,21,1,0)="This field allows users to decide whether or not they want to receive"
^DD(3.7,14,21,2,0)="responses to their priority mail as priority.  It may be overridden by"
^DD(3.7,14,21,3,0)="setting a flag in a message that they are the sender or recipient of."
^DD(3.7,14,"DT")="2921009"
^DD(3.7,14.1,0)="PRIORITY RESPONSES PROMPT^S^0:ASK EACH TIME MESSAGE IS READ;1:DO NOT ASK EACH TIME MESSAGE IS READ;^0;12^Q"
^DD(3.7,14.1,3)="Enter 'Ask' or 'Do not ask'."
^DD(3.7,14.1,4)=""
^DD(3.7,14.1,21,0)="^^12^12^2980729^^^^"
^DD(3.7,14.1,21,1,0)="Answer 'Ask', and MailMan will prompt you each time you read a PRIORITY"
^DD(3.7,14.1,21,2,0)="mail message, to find out if you want the future responses to that message"
^DD(3.7,14.1,21,3,0)="to be delivered as PRIORITY mail.  The default answer will be whatever"
^DD(3.7,14.1,21,4,0)="you answered before for that message, or if it's a new message, whatever"
^DD(3.7,14.1,21,5,0)="you have entered in PRIORITY RESPONSES FLAG."
^DD(3.7,14.1,21,6,0)=""
^DD(3.7,14.1,21,7,0)="Answer 'Do not ask', and MailMan will not bother you with such requests"
^DD(3.7,14.1,21,8,0)="for information, but will use whatever you have entered in"
^DD(3.7,14.1,21,9,0)="PRIORITY RESPONSES FLAG."
^DD(3.7,14.1,21,10,0)=""
^DD(3.7,14.1,21,11,0)="In either case you may toggle the value of this field by typing KPRIORITY"
^DD(3.7,14.1,21,12,0)="at the message action prompt."
^DD(3.7,14.1,"DT")="2920930"
^DD(3.7,15,0)="FILTER^3.715^^15;0"
^DD(3.7,16,0)="FILTER MESSAGES?^S^N:NO;Y:YES;^16;1^Q"
^DD(3.7,16,3)="If you have mail filters set up, do you want to use them?"
^DD(3.7,16,21,0)="^.001^8^8^3020422^^^^"
^DD(3.7,16,21,1,0)="If you don't answer, or if you delete the answer, the default is 'no'."
^DD(3.7,16,21,2,0)=""
^DD(3.7,16,21,3,0)="Answer 'yes' if you want MailMan to deliver your messages to your"
^DD(3.7,16,21,4,0)="baskets based on the filtering criteria (if any) you've set up."
^DD(3.7,16,21,5,0)=""
^DD(3.7,16,21,6,0)="Answer 'no' if you have no filtering criteria set up, or if you want"
^DD(3.7,16,21,7,0)="MailMan to ignore your filtering criteria and deposit all your"
^DD(3.7,16,21,8,0)="messages in your IN basket."
^DD(3.7,16,"DT")="2980515"
^DD(3.7,16.2,0)="ACCEPT DELIVERY BASKET?^S^Y:YES, ACCEPT IT;N:NO, DON'T ACCEPT IT;E:EXISTING BASKETS ONLY;S:SELECTED BASKETS ONLY;^16;2^Q"
^DD(3.7,16.2,3)="Accept message delivery into sender-specified baskets?"
^DD(3.7,16.2,21,0)="^^18^18^2980518^^^^"
^DD(3.7,16.2,21,1,0)="The sender of a message may specify the *basket* into which the message"
^DD(3.7,16.2,21,2,0)="should be delivered for all recipients."
^DD(3.7,16.2,21,3,0)="You may decide whether to accept delivery to the target basket."
^DD(3.7,16.2,21,4,0)=""
^DD(3.7,16.2,21,5,0)="Answer 'NO' if you don't accept it.  This is the default."
^DD(3.7,16.2,21,6,0)=" - The message will be delivered as usual."
^DD(3.7,16.2,21,7,0)="Answer 'YES' if you accept it."
^DD(3.7,16.2,21,8,0)=" - If the basket does not exist, it will be created."
^DD(3.7,16.2,21,9,0)=" - The message will be delivered to the specified basket."
^DD(3.7,16.2,21,10,0)="Answer 'EXIST' if you accept it only if that basket already exists."
^DD(3.7,16.2,21,11,0)=" - If the basket exists, the message will be delivered to it."
^DD(3.7,16.2,21,12,0)=" - If the basket doesn't exist, it will not be created, and the message"
^DD(3.7,16.2,21,13,0)="   will be delivered as usual."
^DD(3.7,16.2,21,14,0)="Answer 'SELECT' if you accept it only if that basket already exists"
^DD(3.7,16.2,21,15,0)="and you have specified that the basket will accept such messages."
^DD(3.7,16.2,21,16,0)=" - If the basket exists and accepts, the message will be delivered to it."
^DD(3.7,16.2,21,17,0)=" - If the basket doesn't exist or doesn't accept,"
^DD(3.7,16.2,21,18,0)="   the message will be delivered as usual."
^DD(3.7,16.2,"DT")="2980518"
^DD(3.7,16.3,0)="P-MESSAGE FROM^S^M:ME;P:POSTMASTER;^16;3^Q"
^DD(3.7,16.3,3)="From whom should your P-MESSAGEs be?"
^DD(3.7,16.3,21,0)="^^14^14^2990228^^^^"
^DD(3.7,16.3,21,1,0)="This pertains to anything you may print to the P-MESSAGE device."
^DD(3.7,16.3,21,2,0)="The result is a message sent to you.  The question is, ""From whom"
^DD(3.7,16.3,21,3,0)="should the message be?"""
^DD(3.7,16.3,21,4,0)=""
^DD(3.7,16.3,21,5,0)="Answer ME if the message should be from you."
^DD(3.7,16.3,21,6,0)="It will not be delivered new to you, but you will be able to edit it."
^DD(3.7,16.3,21,7,0)="(If this field has nothing in it, the default is ME.)"
^DD(3.7,16.3,21,8,0)=""
^DD(3.7,16.3,21,9,0)="Answer POSTMASTER if the message should be from the Postmaster."
^DD(3.7,16.3,21,10,0)="It will be delivered new to you, but you will not be able to edit it."
^DD(3.7,16.3,21,11,0)=""
^DD(3.7,16.3,21,12,0)="If you queue the print, this is from whom the message will be."
^DD(3.7,16.3,21,13,0)="If you don't queue the print, this is the default which will appear"
^DD(3.7,16.3,21,14,0)="in a dialog with MailMan to determine from whom the message will be."
^DD(3.7,16.3,"DT")="2990227"
^DD(3.7,17,0)="MESSAGE ORDER^S^N:Newest First;O:Oldest First;^0;13^Q"
^DD(3.7,17,3)="In which order do you want your messages to appear?"
^DD(3.7,17,21,0)="^^2^2^2980511^^^"
^DD(3.7,17,21,1,0)="'Newest First' means messages are displayed in reverse message number order."
^DD(3.7,17,21,2,0)="'Oldest First' means messages are displayed in message number order."
^DD(3.7,17,"DT")="2980511"
^DD(3.7,18,0)="MESSAGE READER^S^C:Classic;D:Detailed Full Screen;S:Summary Full Screen;^0;16^Q"
^DD(3.7,18,3)="What should your default message reader be?"
^DD(3.7,18,21,0)="^^11^11^3020422^^^^"
^DD(3.7,18,21,1,0)="There are several ways to read and manage your messages:"
^DD(3.7,18,21,2,0)=""
^DD(3.7,18,21,3,0)=" Classic              - the one that has been around for years."
^DD(3.7,18,21,4,0)=" Detailed Full Screen - full screen, with a detailed message list."
^DD(3.7,18,21,5,0)=" Summary Full Screen  - full screen, with a summary message list."
^DD(3.7,18,21,6,0)=""
^DD(3.7,18,21,7,0)="'Classic' is the default, if you don't choose any."
^DD(3.7,18,21,8,0)=""
^DD(3.7,18,21,9,0)="In the next prompt, 'message reader prompt', you will be able to"
^DD(3.7,18,21,10,0)="specify whether the reader you choose should be used all the time"
^DD(3.7,18,21,11,0)="or whether you want to be asked each time."
^DD(3.7,18,"DT")="3020422"
^DD(3.7,19,0)="MESSAGE READER PROMPT^S^Y:Yes, ask me;N:No, don't ask me, just use the default;^0;17^Q"
^DD(3.7,19,3)="Should MailMan ask you which message reader to use every time you go to read messages?"
^DD(3.7,19,21,0)="^^15^15^2980518^^^^"
^DD(3.7,19,21,1,0)="You have chosen a default 'message reader' in the previous selection."
^DD(3.7,19,21,2,0)="You chose either the 'classic' reader or one of the 'full-screen' readers."
^DD(3.7,19,21,3,0)="(If you didn't choose, then your default is the 'classic' reader.)"
^DD(3.7,19,21,4,0)=""
^DD(3.7,19,21,5,0)="In this selection, you must decide whether you want MailMan to ask you"
^DD(3.7,19,21,6,0)="every time you use the message reader which reader to use, or not to ask"
^DD(3.7,19,21,7,0)="you and just go ahead and use your default message reader."
^DD(3.7,19,21,8,0)=""
^DD(3.7,19,21,9,0)="Answer 'Yes' if you want to be prompted for your reader choice every time"
^DD(3.7,19,21,10,0)="you go to read messages in a basket.  This is the default answer, and is"
^DD(3.7,19,21,11,0)="recommended until you have tried all the readers and decided that you want"
^DD(3.7,19,21,12,0)="to settle on using just one."
^DD(3.7,19,21,13,0)=""
^DD(3.7,19,21,14,0)="Answer 'No' if you don't want to be prompted, and you just want to use"
^DD(3.7,19,21,15,0)="your default reader every time."
^DD(3.7,19,"DT")="2971204"
^DD(3.7,20,0)="NEW MESSAGES DEFAULT OPTION^S^LB:LIST BASKETS WITH NEW MAIL;LN:LIST ALL NEW MESSAGES;P:PRINT ALL NEW MESSAGES;R:READ NEW MAIL BY BASKET;^0;18^Q"
^DD(3.7,20,3)="Select default new messages option"
^DD(3.7,20,21,0)="^.001^5^5^3000717^^"
^DD(3.7,20,21,1,0)="This is the default choice which will appear when you select the"
^DD(3.7,20,21,2,0)="'New Messages and Responses' option."
^DD(3.7,20,21,3,0)=""
^DD(3.7,20,21,4,0)="If you don't choose a default, the default will be"
^DD(3.7,20,21,5,0)="'Read new mail by basket'."
^DD(3.7,20,"DT")="3000717"
^DD(3.7,21,0)="NEW MESSAGES READ ORDER^S^N:Newest First;O:Oldest First;^0;19^Q"
^DD(3.7,21,3)="In which order do you want to read your new messages?"
^DD(3.7,21,21,0)="^.001^8^8^3000719^^"
^DD(3.7,21,21,1,0)="'Newest First' means new messages are read in reverse order."
^DD(3.7,21,21,2,0)="'Oldest First' means new messages are read in the order in which"
^DD(3.7,21,21,3,0)="they were sent."
^DD(3.7,21,21,4,0)=""
^DD(3.7,21,21,5,0)="If you don't choose, your new messages will be read 'Oldest First'."
^DD(3.7,21,21,6,0)=""
^DD(3.7,21,21,7,0)="Note: When you display a list of new messages, they will be displayed"
^DD(3.7,21,21,8,0)="in the order you selected in the previous field 'MESSAGE ORDER'."
^DD(3.7,21,"DT")="3000719"
^DD(3.7,99,0)="RETENTION DAYS^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<30)!(X?.E1"".""1N.N) X"
^DD(3.7,99,3)="TYPE A WHOLE NUMBER BETWEEN 30 AND 999"
^DD(3.7,99,21,0)="^^5^5^2870716^"
^DD(3.7,99,21,1,0)="This field is not in service currently, but has been reserved here to"
^DD(3.7,99,21,2,0)="facilitate differing retention dates by user.  Currently the retention"
^DD(3.7,99,21,3,0)="date (number of days to retain messages in the IN basket) is in the"
^DD(3.7,99,21,4,0)="Kernel Site Parameters file.  This would continue to be the default"
^DD(3.7,99,21,5,0)="for all users that do not have this field filled in."
^DD(3.7,99,"DT")="2870701"
^DD(3.7,"B","# NEW MESSAGES FOR USER",1.1)=""
^DD(3.7,"B","ACCEPT DELIVERY BASKET?",16.2)=""
^DD(3.7,"B","ASK BASKET?",12)=""
^DD(3.7,"B","BANNER",4)=""
^DD(3.7,"B","BASKET",1)=""
^DD(3.7,"B","BLOB MESSAGE",7.5)=""
^DD(3.7,"B","DATE @ REINSTATEMENT",1.2)=""
^DD(3.7,"B","FILTER",15)=""
^DD(3.7,"B","FILTER MESSAGES?",16)=""
^DD(3.7,"B","FORWARDING ADDRESS",2)=""
^DD(3.7,"B","INTRODUCTION",4.5)=""
^DD(3.7,"B","LAST MAILMAN ACCESS USER ID",3.2)=""
^DD(3.7,"B","LAST MSG RECEIVED DATE/TIME",1.11)=""
^DD(3.7,"B","LAST NEW MSG NOTIFY DATE/TIME",1.12)=""
^DD(3.7,"B","LATEST MAILMAN ACCESS",3)=""
^DD(3.7,"B","LATEST MAILMAN ACCESS DATE",3.1)=""
^DD(3.7,"B","LOCAL DELIVERY",2.1)="1"
^DD(3.7,"B","LOCAL DELIVERY FLAG",2.1)=""
^DD(3.7,"B","MAIL NAME",.3)=""
^DD(3.7,"B","MAILMAN INSTITUTION",9)=""
^DD(3.7,"B","MESSAGE ACTION DEFAULT",11)=""
^DD(3.7,"B","MESSAGE BEING EDITED",5)=""
^DD(3.7,"B","MESSAGE BEING RESPONDED TO",7)=""
^DD(3.7,"B","MESSAGE ORDER",17)=""
^DD(3.7,"B","MESSAGE READER",18)=""
^DD(3.7,"B","MESSAGE READER PROMPT",19)=""
^DD(3.7,"B","NAME",.01)=""
^DD(3.7,"B","NETWORK SIGNATURE LINE 1 OF 3",2.21)=""
^DD(3.7,"B","NETWORK SIGNATURE LINE 2 OF 3",2.22)=""
^DD(3.7,"B","NETWORK SIGNATURE LINE 3 OF 3",2.23)=""
^DD(3.7,"B","NEW MESSAGES DEFAULT OPTION",20)=""
^DD(3.7,"B","NEW MESSAGES READ ORDER",21)=""
^DD(3.7,"B","NUMBER",.001)=""
^DD(3.7,"B","P-MESSAGE FROM",16.3)=""
^DD(3.7,"B","PRIORITY RESPONSES FLAG",14)=""
^DD(3.7,"B","PRIORITY RESPONSES PROMPT",14.1)=""
^DD(3.7,"B","RETENTION DAYS",99)=""
^DD(3.7,"B","SHOW MESSAGE PREVIEW",6)=""
^DD(3.7,"B","SHOW TITLES",13)=""
^DD(3.7,"B","SURROGATE",8)=""
^DD(3.7,"B","The number of the mailbasket",.001)="1"
^DD(3.7,"GL",0,1,.01)=""
^DD(3.7,"GL",0,2,2)=""
^DD(3.7,"GL",0,3,99)=""
^DD(3.7,"GL",0,4,6)=""
^DD(3.7,"GL",0,5,12)=""
^DD(3.7,"GL",0,6,1.1)=""
^DD(3.7,"GL",0,7,1.2)=""
^DD(3.7,"GL",0,8,2.1)=""
^DD(3.7,"GL",0,9,11)=""
^DD(3.7,"GL",0,10,13)=""
^DD(3.7,"GL",0,11,14)=""
^DD(3.7,"GL",0,12,14.1)=""
^DD(3.7,"GL",0,13,17)=""
^DD(3.7,"GL",0,14,1.11)=""
^DD(3.7,"GL",0,15,1.12)=""
^DD(3.7,"GL",0,16,18)=""
^DD(3.7,"GL",0,17,19)=""
^DD(3.7,"GL",0,18,20)=""
^DD(3.7,"GL",0,19,21)=""
^DD(3.7,"GL",.3,1,.3)=""
^DD(3.7,"GL",1,0,4.5)=""
^DD(3.7,"GL",2,0,1)=""
^DD(3.7,"GL",9,0,8)=""
^DD(3.7,"GL",15,0,15)=""
^DD(3.7,"GL",16,1,16)=""
^DD(3.7,"GL",16,2,16.2)=""
^DD(3.7,"GL",16,3,16.3)=""
^DD(3.7,"GL",6000,1,9)=""
^DD(3.7,"GL","B",1,4)=""
^DD(3.7,"GL","L",1,3)=""
^DD(3.7,"GL","L",2,3.1)=""
^DD(3.7,"GL","L",3,3.2)=""
^DD(3.7,"GL","NS1",1,2.21)=""
^DD(3.7,"GL","NS1",2,2.22)=""
^DD(3.7,"GL","NS1",3,2.23)=""
^DD(3.7,"GL","T",1,5)=""
^DD(3.7,"GL","T",3,7)=""
^DD(3.7,"GL","T",4,7.5)=""
^DD(3.7,"IX",.01)=""
^DD(3.7,"IX",.3)=""
^DD(3.7,"IX",2)=""
^DD(3.7,"IX",4)=""
^DD(3.7,"IX",5)=""
^DD(3.7,"RQ",.01)=""
^DD(3.7,"SB",3.701,1)=""
^DD(3.7,"SB",3.703,8)=""
^DD(3.7,"SB",3.704,4.5)=""
^DD(3.7,"SB",3.715,15)=""
^DD(3.701,0)="BASKET SUB-FIELD^^4^5"
^DD(3.701,0,"DT")="3020222"
^DD(3.701,0,"IX","AP",3.701,4)=""
^DD(3.701,0,"IX","B",3.701,.01)=""
^DD(3.701,0,"IX","N",3.702,3)=""
^DD(3.701,0,"IX","N0",3.702,3)=""
^DD(3.701,0,"NM","BASKET")=""
^DD(3.701,0,"UP")="3.7"
^DD(3.701,.01,0)="BASKET^MRF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(3.701,.01,.1)="User's Mail Basket"
^DD(3.701,.01,1,0)="^.1"
^DD(3.701,.01,1,1,0)="3.701^B"
^DD(3.701,.01,1,1,1)="S ^XMB(3.7,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(3.701,.01,1,1,2)="K ^XMB(3.7,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(3.701,.01,1,1,"DT")="2931207"
^DD(3.701,.01,3)="Answer must be 2-30 characters in length."
^DD(3.701,.01,21,0)="^^1^1^2970811^^^^"
^DD(3.701,.01,21,1,0)="The basket is the place where messages are delivered and/or stored."
^DD(3.701,.01,22)="L"
^DD(3.701,.01,"DT")="2970811"
^DD(3.701,1,0)="MESSAGE^3.702P^^1;0"
^DD(3.701,1,21,0)="^^3^3^2970811^^^^"
^DD(3.701,1,21,1,0)="This is a list of pointers to messages which are in this basket."
^DD(3.701,1,21,2,0)="Note that the basket contains only pointers.  The text of the message"
^DD(3.701,1,21,3,0)="is held only once in the Message file."
^DD(3.701,2,0)="# NEW MESSAGES IN BASKET^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.701,2,.1)="Number of NEW messages in mail basket"
^DD(3.701,2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(3.701,2,21,0)="^^3^3^2970725^^^^"
^DD(3.701,2,21,1,0)="This is the field that is displayed during look-ups and lists of baskets."
^DD(3.701,2,21,2,0)="Holds a count of the number of messages which are flagged as NEW for"
^DD(3.701,2,21,3,0)="this basket."
^DD(3.701,2,"DT")="2970725"
^DD(3.701,3,0)="DELIVERY BASKET?^S^Y:YES;N:NO;^0;3^Q"
^DD(3.701,3,3)="Accept delivery to this basket?"
^DD(3.701,3,21,0)="^^8^8^2980518^"
^DD(3.701,3,21,1,0)="The sender of a message may specify the *basket* into which the message"
^DD(3.701,3,21,2,0)="should be delivered for all recipients."
^DD(3.701,3,21,3,0)=""
^DD(3.701,3,21,4,0)="This field is relevant only if you have set ACCEPT DELIVERY BASKET? to"
^DD(3.701,3,21,5,0)="'SELECTED baskets only'."
^DD(3.701,3,21,6,0)=""
^DD(3.701,3,21,7,0)="Is this basket one of those baskets which will accept messages from"
^DD(3.701,3,21,8,0)="senders who have specified target delivery baskets?"
^DD(3.701,3,"DT")="2980518"
^DD(3.701,4,0)="READ NEW MSGS BASKET PRIORITY^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.701,4,.1)="Read new messages basket priority"
^DD(3.701,4,1,0)="^.1"
^DD(3.701,4,1,1,0)="3.701^AP"
^DD(3.701,4,1,1,1)="S ^XMB(3.7,DA(1),2,""AP"",$E(X,1,30),DA)="""""
^DD(3.701,4,1,1,2)="K ^XMB(3.7,DA(1),2,""AP"",$E(X,1,30),DA)"
^DD(3.701,4,1,1,"DT")="3000718"
^DD(3.701,4,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(3.701,4,21,0)="^.001^7^7^3000719^^^"
^DD(3.701,4,21,1,0)="When you read new messages by basket, MailMan suggests the IN basket"
^DD(3.701,4,21,2,0)="to read first.  If you want MailMan to suggest other basket(s) before"
^DD(3.701,4,21,3,0)="suggesting the IN basket, then fill in this field with a priority"
^DD(3.701,4,21,4,0)="order number.  MailMan will suggest the basket(s) in the priority order"
^DD(3.701,4,21,5,0)="set by you.  The IN basket will be suggested last.  (You will not be"
^DD(3.701,4,21,6,0)="able to choose the IN basket.)  Once all the priority baskets have been"
^DD(3.701,4,21,7,0)="read, MailMan will suggest baskets in alphabetical order. "
^DD(3.701,4,"DT")="3000719"
^DD(3.701,"B","# NEW MESSAGES IN BASKET",2)=""
^DD(3.701,"B","BASKET",.01)=""
^DD(3.701,"B","DELIVERY BASKET?",3)=""
^DD(3.701,"B","MESSAGE",1)=""
^DD(3.701,"B","READ NEW MSGS BASKET PRIORITY",4)=""
^DD(3.701,"B","User's Mail Basket",.01)="1"
^DD(3.701,"GL",0,1,.01)=""
^DD(3.701,"GL",0,2,2)=""
^DD(3.701,"GL",0,3,3)=""
^DD(3.701,"GL",0,4,4)=""
^DD(3.701,"GL",1,0,1)=""
^DD(3.701,"IX",.01)=""
^DD(3.701,"IX",4)=""
^DD(3.701,"RQ",.01)=""
^DD(3.701,"SB",3.702,1)=""
^DD(3.702,0)="MESSAGE SUB-FIELD^^7^7"
^DD(3.702,0,"DT")="3020222"
^DD(3.702,0,"IX","C",3.702,2)=""
^DD(3.702,0,"NM","MESSAGE")=""
^DD(3.702,0,"UP")="3.701"
^DD(3.702,.01,0)="MESSAGE^P3.9'X^XMB(3.9,^0;1^S DINUM=+X"
^DD(3.702,.01,.1)="A pointer to each message in this basket"
^DD(3.702,.01,1,0)="^.1"
^DD(3.702,.01,1,2,0)="3.7^M"
^DD(3.702,.01,1,2,1)="S ^XMB(3.7,""M"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(3.702,.01,1,2,2)="K ^XMB(3.7,""M"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(3.702,.01,1,3,0)="^^TRIGGER^3.702^2"
^DD(3.702,.01,1,3,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(3.7,D0,2,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(3.702,.01,1,3,1.1) X ^DD(3.702,.01,1,3,1.4)"
^DD(3.702,.01,1,3,1.1)="S X=DIV S X=$O(^XMB(3.7,DA(2),2,DA(1),1,""C"",""""),-1)+1"
^DD(3.702,.01,1,3,1.4)="S DIH=$S($D(^XMB(3.7,DIV(0),2,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=3.702,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.702,.01,1,3,2)="Q"
^DD(3.702,.01,1,3,"%D",0)="^^1^1^2960229^"
^DD(3.702,.01,1,3,"%D",1,0)="This trigger gives a new message the next sequence number in the mail basket."
^DD(3.702,.01,1,3,"CREATE VALUE")="XM NEXT SEQUENCE NUMBER"
^DD(3.702,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(3.702,.01,1,3,"DT")="2960229"
^DD(3.702,.01,1,3,"FIELD")="MAILBOX INDEX"
^DD(3.702,.01,3)="Users may not enter messages except through the SEND A MESSAGE option."
^DD(3.702,.01,21,0)="^^1^1^2881121^^^"
^DD(3.702,.01,21,1,0)="Messages exist in the MESSAGE file and are pointed to by multiple RECIPIENTS."
^DD(3.702,.01,21,2,0)="File."
^DD(3.702,.01,"DT")="2970730"
^DD(3.702,2,0)="MAILBOX INDEX^RNJ5,0^^0;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.702,2,.1)="Index number of message in mail basket"
^DD(3.702,2,1,0)="^.1"
^DD(3.702,2,1,1,0)="3.702^C"
^DD(3.702,2,1,1,1)="S ^XMB(3.7,DA(2),2,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(3.702,2,1,1,2)="K ^XMB(3.7,DA(2),2,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(3.702,2,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(3.702,2,5,1,0)="3.702^.01^3"
^DD(3.702,2,21,0)="^^2^2^2970725^^^^"
^DD(3.702,2,21,1,0)="This field is used to help the user choose a message.  It is assigned"
^DD(3.702,2,21,2,0)="when a message is delivered into a MailBox."
^DD(3.702,2,"DT")="2970725"
^DD(3.702,3,0)="NEW FLAG^S^0:NOT NEW;1:NEW;^0;3^Q"
^DD(3.702,3,.1)="A flag which indicates NEW status for message"
^DD(3.702,3,1,0)="^.1"
^DD(3.702,3,1,1,0)="3.701^N0^MUMPS"
^DD(3.702,3,1,1,1)="S:X=1 ^XMB(3.7,DA(2),""N0"",DA(1),DA)="""""
^DD(3.702,3,1,1,2)="K ^XMB(3.7,DA(2),""N0"",DA(1),DA)"
^DD(3.702,3,1,1,"%D",0)="^^1^1^2970728^^"
^DD(3.702,3,1,1,"%D",1,0)="This x-ref is for new messages."
^DD(3.702,3,1,1,"DT")="2970728"
^DD(3.702,3,1,2,0)="3.701^N^MUMPS"
^DD(3.702,3,1,2,1)="I X=1,$$PRIORITY^XMXSEC($G(^XMB(3.9,DA,0))) N % S %=$G(^XMB(3.9,DA,1,+$O(^XMB(3.9,DA,1,""C"",DA(2),0)),0)) I '($P(%,U,9)&$P(%,U,10)) S ^XMB(3.7,DA(2),""N"",DA(1),DA)="""""
^DD(3.702,3,1,2,2)="K ^XMB(3.7,DA(2),""N"",DA(1),DA)"
^DD(3.702,3,1,2,"%D",0)="^^3^3^2990611^^^^"
^DD(3.702,3,1,2,"%D",1,0)="This x-ref is for priority messages.  If the message is priority, this x-ref is"
^DD(3.702,3,1,2,"%D",2,0)="set if the message is a new message or if the message has a new reply, and the"
^DD(3.702,3,1,2,"%D",3,0)="user has chosen to have replies priority, too. "
^DD(3.702,3,1,2,"DT")="2990611"
^DD(3.702,3,3)="If this message is new, set it to 1, otherwise delete it."
^DD(3.702,3,21,0)="^^2^2^2980518^^^^"
^DD(3.702,3,21,1,0)="This field indicates to the user and to MailMan whether or not a message is"
^DD(3.702,3,21,2,0)="new. "
^DD(3.702,3,23,0)="^^8^8^2980518^^^^"
^DD(3.702,3,23,1,0)="While it is proper to set this field to 0 when the message is no longer new,"
^DD(3.702,3,23,2,0)="the preferred method is to delete the field (=@)."
^DD(3.702,3,23,3,0)=""
^DD(3.702,3,23,4,0)="Please note that the cross references on this field, N and N0, are not"
^DD(3.702,3,23,5,0)="standard FileMan."
^DD(3.702,3,23,6,0)=""
^DD(3.702,3,23,7,0)="They should be:  ^XMB(3.7,duz,2,""N"",X,xmk,xmz)="""""
^DD(3.702,3,23,8,0)="But they are:    ^XMB(3.7,duz,""N"",xmk,xmz)="""""
^DD(3.702,3,"DT")="2990611"
^DD(3.702,4,0)="LAST READ DATE/TIME^D^^0;4^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.702,4,.1)="Date/time the message was last referenced"
^DD(3.702,4,3)="Enter the date & time."
^DD(3.702,4,21,0)="^^1^1^2970725^^^"
^DD(3.702,4,21,1,0)="This is the last date/time the message was read, printed."
^DD(3.702,4,23,0)="^^2^2^2970725^"
^DD(3.702,4,23,1,0)="This field is used during the 'in basket purge' to identify messages which"
^DD(3.702,4,23,2,0)="haven't been read in a while."
^DD(3.702,4,"DT")="2970725"
^DD(3.702,5,0)="AUTOMATIC DELETE DATE^DX^^0;5^S %DT=""FEST"" D ^%DT S X=Y K:Y<1 X"
^DD(3.702,5,1,0)="^.1"
^DD(3.702,5,1,1,0)="3.7^AC"
^DD(3.702,5,1,1,1)="S ^XMB(3.7,""AC"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(3.702,5,1,1,2)="K ^XMB(3.7,""AC"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(3.702,5,3)="Enter the date (in the future) when this message should be deleted from your basket."
^DD(3.702,5,9)="^"
^DD(3.702,5,21,0)="^^2^2^2990106^^^^"
^DD(3.702,5,21,1,0)="This is the date at which this message will be 'vaporized',"
^DD(3.702,5,21,2,0)="deleted from this mail basket for this user."
^DD(3.702,5,21,3,0)="the message will be taken out of the users mail basket at the first"
^DD(3.702,5,21,4,0)="time that the IN-BASKET-PURGE runs."
^DD(3.702,5,"DT")="3001025"
^DD(3.702,6,0)="NETWORK PRIORITY TRANSMISSION?^S^1:HIGH PRIORITY;0:REGULAR PRIORITY;2:LOW PRIORITY;^0;6^Q"
^DD(3.702,6,1,0)="^.1^^0"
^DD(3.702,6,3)="How should this message be handled during transmission?"
^DD(3.702,6,21,0)="^^23^23^3020222^^^^"
^DD(3.702,6,21,1,0)="This field is used to flag messages that need to be transmitted before or"
^DD(3.702,6,21,2,0)="after all other messages in a queue."
^DD(3.702,6,21,3,0)=""
^DD(3.702,6,21,4,0)="Messages in the queue which are flagged as HIGH priority are transmitted"
^DD(3.702,6,21,5,0)="before all other messages."
^DD(3.702,6,21,6,0)=""
^DD(3.702,6,21,7,0)="Messages in the queue which are flagged as REGULAR priority (default) are"
^DD(3.702,6,21,8,0)="transmitted next."
^DD(3.702,6,21,9,0)=""
^DD(3.702,6,21,10,0)="Messages in the queue which are flagged as LOW priority are transmitted"
^DD(3.702,6,21,11,0)="after all other messages."
^DD(3.702,6,21,12,0)=""
^DD(3.702,6,21,13,0)="Messages with the same priority are transmitted in IEN order, which is"
^DD(3.702,6,21,14,0)="not necessarily the order in which they appear in the transmit queue."
^DD(3.702,6,21,15,0)=""
^DD(3.702,6,21,16,0)="Only the POSTMASTER (or surrogate) may change the priority of a message"
^DD(3.702,6,21,17,0)="in a transmit queue.  If, during a transmission, MailMan has problems"
^DD(3.702,6,21,18,0)="with a particular message, MailMan may flag that message as LOW priority,"
^DD(3.702,6,21,19,0)="so that other messages in the queue will transmit, before the problem"
^DD(3.702,6,21,20,0)="message is attempted again."
^DD(3.702,6,21,21,0)=""
^DD(3.702,6,21,22,0)="Changes to message priorities can be made even while a queue is being"
^DD(3.702,6,21,23,0)="transmitted."
^DD(3.702,6,"DT")="3020222"
^DD(3.702,7,0)="DELETE DATE SET BY MAILMAN?^S^0:NO;1:YES;^0;7^Q"
^DD(3.702,7,3)="Did MailMan set the automatic delete date for this message?"
^DD(3.702,7,21,0)="^^4^4^2970613^"
^DD(3.702,7,21,1,0)="When the IN BASKET PURGE sets a delete date for a message, it sets this field"
^DD(3.702,7,21,2,0)="to 1."
^DD(3.702,7,21,3,0)=""
^DD(3.702,7,21,4,0)="If a user sets a delete date for a message, this field is set to 0."
^DD(3.702,7,"DT")="2970613"
^DD(3.702,"B","AUTOMATIC DELETE DATE",5)=""
^DD(3.702,"B","DELETE DATE SET BY MAILMAN?",7)=""
^DD(3.702,"B","LAST READ DATE/TIME",4)=""
^DD(3.702,"B","MAILBOX INDEX",2)=""
^DD(3.702,"B","MESSAGE",.01)=""
^DD(3.702,"B","NETWORK PRIORITY TRANSMISSION?",6)=""
^DD(3.702,"B","NEW FLAG",3)=""
^DD(3.702,"GL",0,1,.01)=""
^DD(3.702,"GL",0,2,2)=""
^DD(3.702,"GL",0,3,3)=""
^DD(3.702,"GL",0,4,4)=""
^DD(3.702,"GL",0,5,5)=""
^DD(3.702,"GL",0,6,6)=""
^DD(3.702,"GL",0,7,7)=""
^DD(3.702,"IX",.01)=""
^DD(3.702,"IX",2)=""
^DD(3.702,"IX",3)=""
^DD(3.702,"IX",5)=""
^DD(3.702,"RQ",2)=""
^DD(3.703,0)="SURROGATE SUB-FIELD^NL^2^3"
^DD(3.703,0,"DT")="2891025"
^DD(3.703,0,"NM","SURROGATE")=""
^DD(3.703,0,"UP")="3.7"
^DD(3.703,.01,0)="SURROGATE^MP200'^VA(200,^0;1^Q"
^DD(3.703,.01,1,0)="^.1"
^DD(3.703,.01,1,1,0)="3.7^AB"
^DD(3.703,.01,1,1,1)="S ^XMB(3.7,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(3.703,.01,1,1,2)="K ^XMB(3.7,""AB"",$E(X,1,30),DA(1),DA)"
^DD(3.703,.01,21,0)="^^4^4^2851009^"
^DD(3.703,.01,21,1,0)="A user who has the ability to act as a surrogate for this user. A"
^DD(3.703,.01,21,2,0)="surrogate may read or send mail for someone else, and is listed as"
^DD(3.703,.01,21,3,0)="the ""sender"" of the message, while the message is ""from"" the original"
^DD(3.703,.01,21,4,0)="user."
^DD(3.703,.01,"DT")="2841202"
^DD(3.703,1,0)="READ PRIVILEGE^S^y:YES;n:NO;^0;2^Q"
^DD(3.703,1,21,0)="^^1^1^2850729^^"
^DD(3.703,1,21,1,0)="This flag controls whether the surrogate may read the mail of this user."
^DD(3.703,1,"DT")="2841202"
^DD(3.703,2,0)="SEND PRIVILEGE^S^y:YES;n:NO;^0;3^Q"
^DD(3.703,2,21,0)="^^2^2^2960228^^^"
^DD(3.703,2,21,1,0)="This flag controls whether the surrogate may send messages while acting"
^DD(3.703,2,21,2,0)="as a surrogate of this user.  If so, the surrogate is named as ""sender""."
^DD(3.703,2,"DT")="2841202"
^DD(3.703,"B","READ PRIVILEGE",1)=""
^DD(3.703,"B","SEND PRIVILEGE",2)=""
^DD(3.703,"B","SURROGATE",.01)=""
^DD(3.703,"GL",0,1,.01)=""
^DD(3.703,"GL",0,2,1)=""
^DD(3.703,"GL",0,3,2)=""
^DD(3.703,"IX",.01)=""
^DD(3.704,0)="INTRODUCTION SUB-FIELD^NL^.01^1"
^DD(3.704,0,"NM","INTRODUCTION")=""
^DD(3.704,0,"UP")="3.7"
^DD(3.704,.01,0)="INTRODUCTION^W^^0;1^Q"
^DD(3.704,.01,3)="Enter a short introductory text, describing the user to the group."
^DD(3.704,.01,21,0)="^^1^1^2851009^"
^DD(3.704,.01,21,1,0)="A brief description, introducing the user to the group."
^DD(3.704,.01,"DT")="2850423"
^DD(3.704,"B","INTRODUCTION",.01)=""
^DD(3.704,"GL",0,1,.01)=""
^DD(3.705,0)="ADDRESS SUB-FIELD^NL^.01^1"
^DD(3.705,0,"NM","ADDRESS")=""
^DD(3.705,0,"UP")="3.7"
^DD(3.705,.01,0)="ADDRESS^W^^0;1^Q"
^DD(3.705,.01,3)="Enter your mailing address"
^DD(3.705,.01,21,0)="^^2^2^2931213^"
^DD(3.705,.01,21,1,0)="This is the address of the user, as entered by him with the ""edit"""
^DD(3.705,.01,21,2,0)="option of MailMan."
^DD(3.705,.01,"DT")="2850423"
^DD(3.705,"B","ADDRESS",.01)=""
^DD(3.705,"GL",0,1,.01)=""
^DD(3.706,0)="ALREADY SIGNED ON TO DEVICES SUB-FIELD^NL^^0"
^DD(3.706,0,"IX","P",3.706,.01)=""
^DD(3.706,0,"NM","ALREADY SIGN ON TO DEVICES")=""
^DD(3.706,0,"UP")="3.7"
^DD(3.706,"IX",.01)=""
^DD(3.715,0)="FILTER SUB-FIELD^^9^10"
^DD(3.715,0,"DT")="3001016"
^DD(3.715,0,"IX","AC",3.715,3)=""
^DD(3.715,0,"IX","AF",3.715,1)=""
^DD(3.715,0,"IX","B",3.715,.01)=""
^DD(3.715,0,"IX","C",3.715,2)=""
^DD(3.715,0,"NM","FILTER")=""
^DD(3.715,0,"UP")="3.7"
^DD(3.715,.01,0)="FILTER^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(3.715,.01,1,0)="^.1"
^DD(3.715,.01,1,1,0)="3.715^B"
^DD(3.715,.01,1,1,1)="S ^XMB(3.7,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(3.715,.01,1,1,2)="K ^XMB(3.7,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(3.715,.01,3)="Answer must be 3-30 characters in length."
^DD(3.715,.01,21,0)="^^22^22^3020422^^^^"
^DD(3.715,.01,21,1,0)="This is the name of your filter.  The filter is used by MailMan"
^DD(3.715,.01,21,2,0)="to determine into which basket to place a message.  Messages can be"
^DD(3.715,.01,21,3,0)="filtered based on up to three criteria which must all be true:"
^DD(3.715,.01,21,4,0)=" - Subject contains"
^DD(3.715,.01,21,5,0)=" - Message is from"
^DD(3.715,.01,21,6,0)=" - Message is to"
^DD(3.715,.01,21,7,0)=""
^DD(3.715,.01,21,8,0)="For example, if you specify 'subject contains' and 'message is from', the"
^DD(3.715,.01,21,9,0)="filter takes effect only if the subject contains the string you specify AND"
^DD(3.715,.01,21,10,0)="the message is from the person you specify. "
^DD(3.715,.01,21,11,0)=""
^DD(3.715,.01,21,12,0)="If you wish the filter to take effect upon 'subject contains' OR 'message"
^DD(3.715,.01,21,13,0)="is from' you must create two filters, one with 'subject contains', and the"
^DD(3.715,.01,21,14,0)="other with 'message is from'."
^DD(3.715,.01,21,15,0)=""
^DD(3.715,.01,21,16,0)="Filtering takes place during message delivery and can also be selected as a"
^DD(3.715,.01,21,17,0)="basket action.  The filter is ignored during delivery under the following"
^DD(3.715,.01,21,18,0)="conditions:"
^DD(3.715,.01,21,19,0)=" - The message already exists in one of your baskets."
^DD(3.715,.01,21,20,0)=" - The message is from you, and you specified a basket (other than the IN"
^DD(3.715,.01,21,21,0)="basket) at the transmit prompt."
^DD(3.715,.01,21,22,0)=" - The sender has specified a delivery basket and you have allowed it."
^DD(3.715,.01,"DT")="3020422"
^DD(3.715,1,0)="ORDER^RNJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(3.715,1,1,0)="^.1"
^DD(3.715,1,1,1,0)="3.715^AF^MUMPS"
^DD(3.715,1,1,1,1)="N XMSTAT S XMSTAT=$P($G(^XMB(3.7,DA(1),15,DA,0)),U,4) I XMSTAT S ^XMB(3.7,DA(1),15,""AF"",X,DA)="""""
^DD(3.715,1,1,1,2)="N XMSTAT S XMSTAT=$P($G(^XMB(3.7,DA(1),15,DA,0)),U,4) I XMSTAT K ^XMB(3.7,DA(1),15,""AF"",X,DA)"
^DD(3.715,1,1,1,"DT")="2970520"
^DD(3.715,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(3.715,1,21,0)="^^8^8^2980908^^^^"
^DD(3.715,1,21,1,0)="This is the order in which you wish to have your filters checked."
^DD(3.715,1,21,2,0)=""
^DD(3.715,1,21,3,0)="A message may match several filters, depending on the conditions you have"
^DD(3.715,1,21,4,0)="set.  It is here that you specify relative filter priority.  If several"
^DD(3.715,1,21,5,0)="filters have the same order, then the first one you entered receives"
^DD(3.715,1,21,6,0)="priority."
^DD(3.715,1,21,7,0)=""
^DD(3.715,1,21,8,0)="If you aren't sure, enter 100.  You can always change it later."
^DD(3.715,1,"DT")="2970520"
^DD(3.715,2,0)="BASKET^RFX^^0;3^D BASKET^XMTDF(.X)"
^DD(3.715,2,1,0)="^.1"
^DD(3.715,2,1,1,0)="3.715^C"
^DD(3.715,2,1,1,1)="S ^XMB(3.7,DA(1),15,""C"",$E(X,1,30),DA)="""""
^DD(3.715,2,1,1,2)="K ^XMB(3.7,DA(1),15,""C"",$E(X,1,30),DA)"
^DD(3.715,2,1,1,"DT")="2970520"
^DD(3.715,2,3)="Answer must be a valid basket name (not the IN basket)."
^DD(3.715,2,4)="D BSKTHELP^XMTDF"
^DD(3.715,2,21,0)="^^8^8^2980908^^^^"
^DD(3.715,2,21,1,0)="This is the basket you want any messages to go into if they match all of"
^DD(3.715,2,21,2,0)="the conditions you specify for this filter."
^DD(3.715,2,21,3,0)=""
^DD(3.715,2,21,4,0)="The basket may not be the ""IN"" basket, because that is the default basket."
^DD(3.715,2,21,5,0)=""
^DD(3.715,2,21,6,0)="The basket must exist (or be created) at the time you specify it.  You may"
^DD(3.715,2,21,7,0)="delete this basket later.  If a message filters to this basket, and the"
^DD(3.715,2,21,8,0)="basket does not exist, the basket will be created."
^DD(3.715,2,"DT")="2970521"
^DD(3.715,3,0)="STATUS^RS^0:OFF;1:ON;^0;4^Q"
^DD(3.715,3,1,0)="^.1"
^DD(3.715,3,1,1,0)="3.715^AC^MUMPS"
^DD(3.715,3,1,1,1)="Q:'X  N XMORDER S XMORDER=$P($G(^XMB(3.7,DA(1),15,DA,0)),U,2) I XMORDER S ^XMB(3.7,DA(1),15,""AF"",XMORDER,DA)="""""
^DD(3.715,3,1,1,2)="Q:'X  N XMORDER S XMORDER=$P($G(^XMB(3.7,DA(1),15,DA,0)),U,2) I XMORDER K ^XMB(3.7,DA(1),15,""AF"",XMORDER,DA)"
^DD(3.715,3,1,1,"DT")="2970520"
^DD(3.715,3,21,0)="^^2^2^2980908^^"
^DD(3.715,3,21,1,0)="If the filter is active, it will be used."
^DD(3.715,3,21,2,0)="If the filter is not active, it will be ignored."
^DD(3.715,3,"DT")="2970520"
^DD(3.715,4,0)="SUBJECT CONTAINS^FX^^0;5^K:$L(X)>25!($L(X)<3) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(3.715,4,3)="Answer must be 3-25 characters in length."
^DD(3.715,4,21,0)="^^4^4^2980908^^^^"
^DD(3.715,4,21,1,0)="If the subject contains the string you specify AND if the message matches"
^DD(3.715,4,21,2,0)="the other conditions (if any), then the message matches this filter."
^DD(3.715,4,21,3,0)=""
^DD(3.715,4,21,4,0)="The subject is capitalized automatically to facilitate filtering."
^DD(3.715,4,"DT")="2970806"
^DD(3.715,5,0)="FROM^FXO^^0;6^D FROM^XMTDF(.X)"
^DD(3.715,5,2)="S Y(0)=Y S:+Y=Y Y=$$NAME^XMXUTIL(Y)"
^DD(3.715,5,2.1)="S:+Y=Y Y=$$NAME^XMXUTIL(Y)"
^DD(3.715,5,3)="Who is the sender of the message?"
^DD(3.715,5,21,0)="^.001^20^20^3010301^^^^"
^DD(3.715,5,21,1,0)="This is the person who sent the message."
^DD(3.715,5,21,2,0)=" "
^DD(3.715,5,21,3,0)="If it's a local person, just enter the name."
^DD(3.715,5,21,4,0)=" "
^DD(3.715,5,21,5,0)="If it's a remote person, enter name@site.  MailMan will match any sender"
^DD(3.715,5,21,6,0)="whose name contains 'name' and whose site contains 'site'.  'Name' may"
^DD(3.715,5,21,7,0)="be null, in which case, MailMan will match any sender whose site"
^DD(3.715,5,21,8,0)="contains 'site'.  'Site' may be null, in which case, MailMan will match"
^DD(3.715,5,21,9,0)="any sender whose name contains 'name'.  In any event, the string must be"
^DD(3.715,5,21,10,0)="from 2 to 45 characters and must contain '@'."
^DD(3.715,5,21,11,0)=" "
^DD(3.715,5,21,12,0)="If it's a local message from a VISTA package/fake sender,"
^DD(3.715,5,21,13,0)="put '@' at the end, like ACCOUNTS RECEIVABLE@"
^DD(3.715,5,21,14,0)=" "
^DD(3.715,5,21,15,0)="The sender's name is capitalized automatically to facilitate filtering."
^DD(3.715,5,21,16,0)=" "
^DD(3.715,5,21,17,0)="For this filter to activate, its STATUS must be on, this condition and"
^DD(3.715,5,21,18,0)="the other conditions (if any) must match the message, and it must be the"
^DD(3.715,5,21,19,0)="first filter (as controlled by its ORDER) to match the message."
^DD(3.715,5,21,20,0)="Finally, filtering must be turned on."
^DD(3.715,5,"DT")="3020422"
^DD(3.715,6,0)="ADDRESSED TO^FX^^0;7^D TO^XMTDF(.X)"
^DD(3.715,6,3)="Answer must be 1-55 characters in length."
^DD(3.715,6,21,0)="^.001^16^16^3010301^^^^"
^DD(3.715,6,21,1,0)="Enter the person or group to whom the message is addressed."
^DD(3.715,6,21,2,0)="If the person is remote, enter name@site.  MailMan will match any"
^DD(3.715,6,21,3,0)="sender whose name contains 'name' and whose site contains 'site'."
^DD(3.715,6,21,4,0)="'name' or 'site' may be null."
^DD(3.715,6,21,5,0)=""
^DD(3.715,6,21,6,0)="The addressee's name may be automatically capitalized to facilitate"
^DD(3.715,6,21,7,0)="filtering."
^DD(3.715,6,21,8,0)=""
^DD(3.715,6,21,9,0)="MailMan will check the addressees that you see when you Query (Q) the"
^DD(3.715,6,21,10,0)="message.  MailMan will NOT check the expanded list of addresses that"
^DD(3.715,6,21,11,0)="you see when you Query Detailed (QD) the message."
^DD(3.715,6,21,12,0)=""
^DD(3.715,6,21,13,0)="For this filter to activate, its STATUS must be on, this condition and the"
^DD(3.715,6,21,14,0)="other conditions (if any) must match the message, and it must be the first"
^DD(3.715,6,21,15,0)="filter (as controlled by its ORDER) to match the message.  Finally,"
^DD(3.715,6,21,16,0)="filtering must be turned on. "
^DD(3.715,6,"DT")="2970521"
^DD(3.715,7,0)="VAPORIZE DAYS^NJ3,0^^0;8^K:+X'=X!(X>365)!(X<7)!(X?.E1"".""1N.N) X"
^DD(3.715,7,3)="Type a Number between 7 and 365, 0 Decimal Digits"
^DD(3.715,7,21,0)="^.001^13^13^3020422^^^^"
^DD(3.715,7,21,1,0)="The message will be set to vaporize (be deleted from your mailbox) this"
^DD(3.715,7,21,2,0)="many days after it is delivered to you.  This date will override any"
^DD(3.715,7,21,3,0)="vaporize date set by the sender. You will be able to change or delete"
^DD(3.715,7,21,4,0)="the vaporize date at the message action prompt whenever you read the"
^DD(3.715,7,21,5,0)="message. "
^DD(3.715,7,21,6,0)=" "
^DD(3.715,7,21,7,0)="If this field is null, the filter will not set any vaporize date."
^DD(3.715,7,21,8,0)=" "
^DD(3.715,7,21,9,0)="This will only apply to new messages and responses which are put into"
^DD(3.715,7,21,10,0)="your mailbox (includes moving from the WASTE basket) as a result of"
^DD(3.715,7,21,11,0)="delivery or latering.  It won't apply to messages which are already in"
^DD(3.715,7,21,12,0)="your mailbox.  It won't apply when you filter messages which are already"
^DD(3.715,7,21,13,0)="in your mailbox. "
^DD(3.715,7,"DT")="3020422"
^DD(3.715,8,0)="DELIVER NEW?^S^Y:YES;N:NO;^0;9^Q"
^DD(3.715,8,3)="Answer YES or NO."
^DD(3.715,8,21,0)="^.001^11^11^3000515^^^^"
^DD(3.715,8,21,1,0)="If you don't answer, or delete the answer, the default is YES."
^DD(3.715,8,21,2,0)=" "
^DD(3.715,8,21,3,0)="YES means that the message will be delivered as usual, and made new as"
^DD(3.715,8,21,4,0)="usual."
^DD(3.715,8,21,5,0)=" "
^DD(3.715,8,21,6,0)="NO means that the message will be delivered as usual, but it won't be"
^DD(3.715,8,21,7,0)="made new, so you won't know it's arrived unless you check. "
^DD(3.715,8,21,8,0)=" "
^DD(3.715,8,21,9,0)="This will only apply to new messages which you have not seen before."
^DD(3.715,8,21,10,0)="It won't apply to responses or forwarded messages with responses.  It"
^DD(3.715,8,21,11,0)="won't apply when you filter messages which are already in your mailbox. "
^DD(3.715,8,"DT")="3000505"
^DD(3.715,9,0)="FORWARD TO^3.7159^^1;0"
^DD(3.715,"B","ADDRESSED TO",6)=""
^DD(3.715,"B","BASKET",2)=""
^DD(3.715,"B","DELIVER NEW?",8)=""
^DD(3.715,"B","FILTER",.01)=""
^DD(3.715,"B","FORWARD TO",9)=""
^DD(3.715,"B","FROM",5)=""
^DD(3.715,"B","ORDER",1)=""
^DD(3.715,"B","STATUS",3)=""
^DD(3.715,"B","SUBJECT CONTAINS",4)=""
^DD(3.715,"B","VAPORIZE DAYS",7)=""
^DD(3.715,"GL",0,1,.01)=""
^DD(3.715,"GL",0,2,1)=""
^DD(3.715,"GL",0,3,2)=""
^DD(3.715,"GL",0,4,3)=""
^DD(3.715,"GL",0,5,4)=""
^DD(3.715,"GL",0,6,5)=""
^DD(3.715,"GL",0,7,6)=""
^DD(3.715,"GL",0,8,7)=""
^DD(3.715,"GL",0,9,8)=""
^DD(3.715,"GL",1,0,9)=""
^DD(3.715,"IX",.01)=""
^DD(3.715,"IX",1)=""
^DD(3.715,"IX",2)=""
^DD(3.715,"IX",3)=""
^DD(3.715,"RQ",1)=""
^DD(3.715,"RQ",2)=""
^DD(3.715,"RQ",3)=""
^DD(3.715,"SB",3.7159,9)=""
^DD(3.7159,0)="FORWARD TO SUB-FIELD^^.01^1"
^DD(3.7159,0,"DT")="3001016"
^DD(3.7159,0,"IX","B",3.7159,.01)=""
^DD(3.7159,0,"NM","FORWARD TO")=""
^DD(3.7159,0,"UP")="3.715"
^DD(3.7159,.01,0)="FORWARD TO^MFX^^0;1^D FWDTO^XMTDF(.X,$G(XMIA)) I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(3.7159,.01,1,0)="^.1"
^DD(3.7159,.01,1,1,0)="3.7159^B"
^DD(3.7159,.01,1,1,1)="S ^XMB(3.7,DA(2),15,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(3.7159,.01,1,1,2)="K ^XMB(3.7,DA(2),15,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(3.7159,.01,3)="Answer must be 1-50 characters in length."
^DD(3.7159,.01,21,0)="^.001^12^12^3001017^^^^"
^DD(3.7159,.01,21,1,0)="Enter the person, group, device, or server to whom or to which the"
^DD(3.7159,.01,21,2,0)="message is to be forwarded.  The message will be forwarded under"
^DD(3.7159,.01,21,3,0)="the following conditions, and you will be listed as the forwarder."
^DD(3.7159,.01,21,4,0)=""
^DD(3.7159,.01,21,5,0)="This will only apply when:"
^DD(3.7159,.01,21,6,0)=" - delivering a message to you for the first time."
^DD(3.7159,.01,21,7,0)=""
^DD(3.7159,.01,21,8,0)="This will not apply when:"
^DD(3.7159,.01,21,9,0)=" - you sent the message."
^DD(3.7159,.01,21,10,0)=" - the message is already in your mailbox."
^DD(3.7159,.01,21,11,0)=" - delivering replies."
^DD(3.7159,.01,21,12,0)=" - the message is closed, confidential, or otherwise sensitive."
^DD(3.7159,.01,"DT")="3001017"
^DD(3.7159,"B","FORWARD TO",.01)=""
^DD(3.7159,"GL",0,1,.01)=""
^DD(3.7159,"IX",.01)=""
^DD(3.73,0)="FIELD^^2^3"
^DD(3.73,0,"DDA")="Y"
^DD(3.73,0,"DT")="2970515"
^DD(3.73,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^XMB(3.9,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(3.9,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(3.73,0,"IX","AB",3.73,2)=""
^DD(3.73,0,"IX","AB1",3.73,.01)=""
^DD(3.73,0,"IX","AC",3.73,2)=""
^DD(3.73,0,"IX","C",3.73,1)=""
^DD(3.73,0,"NM","MESSAGES TO BE NEW AT A LATER DATE")=""
^DD(3.73,0,"VR")="8.0"
^DD(3.73,0,"VRPK")="MAILMAN"
^DD(3.73,.01,0)="DATE MESSAGE WILL BE NEW^RDX^^0;1^S %DT(0)=""NOW"",%DT=""ETF"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(3.73,.01,.1)="Date Message Will Be New"
^DD(3.73,.01,1,0)="^.1"
^DD(3.73,.01,1,1,0)="^^TRIGGER^3.73^1"
^DD(3.73,.01,1,1,1)="X ^DD(3.73,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(3.73,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$S($D(XMDUZ):XMDUZ,1:DUZ) X ^DD(3.73,.01,1,1,1.4)"
^DD(3.73,.01,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^XMB(3.73,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(3.73,.01,1,1,1.4)="S DIH=$S($D(^XMB(3.73,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=3.73,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(3.73,.01,1,1,2)="Q"
^DD(3.73,.01,1,1,"%D",0)="^.101^2^2^3020422^^"
^DD(3.73,.01,1,1,"%D",1,0)="This trigger fills in field 1, USER, with the DUZ of the user"
^DD(3.73,.01,1,1,"%D",2,0)="whose message is to be latered."
^DD(3.73,.01,1,1,"CREATE CONDITION")="USER="""""
^DD(3.73,.01,1,1,"CREATE VALUE")="S X=$S($D(XMDUZ):XMDUZ,1:DUZ)"
^DD(3.73,.01,1,1,"DELETE VALUE")="NO EFFECT"
^DD(3.73,.01,1,1,"DT")="2970124"
^DD(3.73,.01,1,1,"FIELD")="USER"
^DD(3.73,.01,1,2,0)="3.73^AB1^MUMPS"
^DD(3.73,.01,1,2,1)="N XMDUZ,XMZ,XMREC S XMREC=$G(^XMB(3.73,DA,0)),XMDUZ=$P(XMREC,U,2),XMZ=$P(XMREC,U,3) I XMZ]"""" S ^XMB(3.73,""AB"",X,XMDUZ,XMZ,DA)="""""
^DD(3.73,.01,1,2,2)="N XMDUZ,XMZ,XMREC S XMREC=$G(^XMB(3.73,DA,0)),XMDUZ=$P(XMREC,U,2),XMZ=$P(XMREC,U,3) I XMZ]"""" K ^XMB(3.73,""AB"",X,XMDUZ,XMZ,DA)"
^DD(3.73,.01,1,2,"%D",0)="^^2^2^2970127^"
^DD(3.73,.01,1,2,"%D",1,0)="This xref activates when a user changes the date/time that a message is"
^DD(3.73,.01,1,2,"%D",2,0)="latered. "
^DD(3.73,.01,1,2,"DT")="2970127"
^DD(3.73,.01,3)="Enter a date or date @ time on which you wish this message to be new."
^DD(3.73,.01,21,0)="^^2^2^2970127^^^^"
^DD(3.73,.01,21,1,0)="This field should be in FileMan format.  The file will be X-referenced by it"
^DD(3.73,.01,21,2,0)="and the background filer will process it on that date."
^DD(3.73,.01,"DT")="3001116"
^DD(3.73,1,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(3.73,1,1,0)="^.1"
^DD(3.73,1,1,1,0)="3.73^C"
^DD(3.73,1,1,1,1)="S ^XMB(3.73,""C"",$E(X,1,30),DA)="""""
^DD(3.73,1,1,1,2)="K ^XMB(3.73,""C"",$E(X,1,30),DA)"
^DD(3.73,1,1,1,3)="This cross reference is used to drive the Later'd Messages Report.  Do not delete."
^DD(3.73,1,1,1,"%D",0)="^^1^1^2900117^"
^DD(3.73,1,1,1,"%D",1,0)="SEE NO-DELETION MESSAGE."
^DD(3.73,1,1,1,"DT")="2900117"
^DD(3.73,1,3)=""
^DD(3.73,1,5,1,0)="3.73^.01^1"
^DD(3.73,1,9)="^"
^DD(3.73,1,12)="The user must have a mailbox and may only choose himself."
^DD(3.73,1,12.1)="S DIC(""S"")=""I $S($D(XMDUZ):XMDUZ,$D(DUZ):DUZ,1:"""""""")=Y,$D(^XMB(3.7,Y))"""
^DD(3.73,1,21,0)="^^2^2^2970731^^"
^DD(3.73,1,21,1,0)="This field indicates the user for whom the message will"
^DD(3.73,1,21,2,0)="be later'd."
^DD(3.73,1,"DT")="2910618"
^DD(3.73,2,0)="MESSAGE^R*P3.9'^XMB(3.9,^0;3^S DIC(""S"")=""I $D(^XMB(3.9,X,0)),$P(^(0),U,2)=$S($D(XMDUZ):XMDUZ,1:DUZ)!$D(^XMB(3.9,X,1,""""C"""",$S($D(XMDUZ):XMDUZ,1:DUZ)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(3.73,2,1,0)="^.1"
^DD(3.73,2,1,1,0)="3.73^AB^MUMPS"
^DD(3.73,2,1,1,1)="S %=^XMB(3.73,DA,0),^XMB(3.73,""AB"",+%,$P(%,U,2),X,DA)="""" K %"
^DD(3.73,2,1,1,2)="S %=^XMB(3.73,DA,0) K ^XMB(3.73,""AB"",+%,$P(%,U,2),X,DA),%"
^DD(3.73,2,1,1,"%D",0)="^^3^3^2971229^^"
^DD(3.73,2,1,1,"%D",1,0)="This cross reference keeps track of the dates on which messages"
^DD(3.73,2,1,1,"%D",2,0)="are scheduled to become new."
^DD(3.73,2,1,1,"%D",3,0)="Each message may have many such dates."
^DD(3.73,2,1,2,0)="3.73^AC^MUMPS"
^DD(3.73,2,1,2,1)="S %=^XMB(3.73,DA,0) S ^XMB(3.73,""AC"",$P(%,U,3),$P(%,U,2),DA)="""" K %"
^DD(3.73,2,1,2,2)="S %=^XMB(3.73,DA,0) K ^XMB(3.73,""AC"",$P(%,U,3),$P(%,U,2),DA),%"
^DD(3.73,2,1,2,"%D",0)="^^2^2^2971229^^"
^DD(3.73,2,1,2,"%D",1,0)="This cross reference keeps track of messages which are scheduled to"
^DD(3.73,2,1,2,"%D",2,0)="become new for a particular mail box (user)."
^DD(3.73,2,1,2,"DT")="2900118"
^DD(3.73,2,12)="The user must be either the sender or the recipient of the message."
^DD(3.73,2,12.1)="S DIC(""S"")=""I $D(^XMB(3.9,X,0)),$P(^(0),U,2)=$S($D(XMDUZ):XMDUZ,1:DUZ)!$D(^XMB(3.9,X,1,""""C"""",$S($D(XMDUZ):XMDUZ,1:DUZ)))"""
^DD(3.73,2,21,0)="^^2^2^2881121^"
^DD(3.73,2,21,1,0)="This field indicates which message is to appear NEW at"
^DD(3.73,2,21,2,0)="a later date."
^DD(3.73,2,"DT")="2900118"
^DD(3.73,"B","DATE MESSAGE WILL BE NEW",.01)=""
^DD(3.73,"B","Date Message Will Be New",.01)="1"
^DD(3.73,"B","MESSAGE",2)=""
^DD(3.73,"B","USER",1)=""
^DD(3.73,"GL",0,1,.01)=""
^DD(3.73,"GL",0,2,1)=""
^DD(3.73,"GL",0,3,2)=""
^DD(3.73,"IX",.01)=""
^DD(3.73,"IX",1)=""
^DD(3.73,"IX",2)=""
^DD(3.73,"RQ",.01)=""
^DD(3.73,"RQ",1)=""
^DD(3.73,"RQ",2)=""
^DD(3.7519,0)="$STACK() SUB-FIELD^^3^4"
^DD(3.7519,0,"DT")="2940811"
^DD(3.7519,0,"IX","B",3.7519,.01)=""
^DD(3.7519,0,"NM","$STACK()")=""
^DD(3.7519,0,"UP")="3.0751"
^DD(3.7519,.001,0)="STACK LEVEL (+1)^NJ3,0^^ ^K:+X'=X!(X>127)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.7519,.001,3)="Type a Number between 0 and 127, 0 Decimal Digits"
^DD(3.7519,.001,"DT")="2940811"
^DD(3.7519,.01,0)="$STACK(ECODE)^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(3.7519,.01,1,0)="^.1"
^DD(3.7519,.01,1,1,0)="3.7519^B"
^DD(3.7519,.01,1,1,1)="S ^%ZTER(1,DA(2),1,DA(1),""STACK"",""B"",$E(X,1,30),DA)="""""
^DD(3.7519,.01,1,1,2)="K ^%ZTER(1,DA(2),1,DA(1),""STACK"",""B"",$E(X,1,30),DA)"
^DD(3.7519,.01,3)="Answer must be 1-30 characters in length."
^DD(3.7519,.01,"DT")="2940811"
^DD(3.7519,2,0)="$STACK(PLACE)^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(3.7519,2,3)="Answer must be 1-30 characters in length."
^DD(3.7519,2,"DT")="2940811"
^DD(3.7519,3,0)="$STACK(MCODE)^F^^1;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(3.7519,3,3)="Answer must be 1-240 characters in length."
^DD(3.7519,3,"DT")="2940811"
^DD(3.7519,"B","$STACK(ECODE)",.01)=""
^DD(3.7519,"B","$STACK(MCODE)",3)=""
^DD(3.7519,"B","$STACK(PLACE)",2)=""
^DD(3.7519,"B","STACK LEVEL (+1)",.001)=""
^DD(3.7519,"GL",0,1,.01)=""
^DD(3.7519,"GL",0,2,2)=""
^DD(3.7519,"GL",1,"E1,240",3)=""
^DD(3.7519,"IX",.01)=""
^DD(3.8,0)="FIELD^NL^15^16"
^DD(3.8,0,"DDA")="Y"
^DD(3.8,0,"DT")="3020422"
^DD(3.8,0,"IX","AB",3.81,.01)=""
^DD(3.8,0,"IX","AC",3.8,5.1)=""
^DD(3.8,0,"IX","AD",3.811,.01)=""
^DD(3.8,0,"IX","B",3.8,.01)=""
^DD(3.8,0,"NM","MAIL GROUP")=""
^DD(3.8,0,"PT",3.62,.01)=""
^DD(3.8,0,"PT",3.811,.01)=""
^DD(3.8,0,"PT",4.001,.06)=""
^DD(3.8,0,"PT",9.4,1938)=""
^DD(3.8,0,"PT",9.951,.01)=""
^DD(3.8,0,"PT",15.1,.11)=""
^DD(3.8,0,"PT",15.1,.16)=""
^DD(3.8,0,"PT",15.1,.29)=""
^DD(3.8,0,"PT",15.12,.02)=""
^DD(3.8,0,"PT",19,222)=""
^DD(3.8,0,"PT",26.11,.06)=""
^DD(3.8,0,"PT",26.15,.06)=""
^DD(3.8,0,"PT",43,215)=""
^DD(3.8,0,"PT",43,216)=""
^DD(3.8,0,"PT",43,217)=""
^DD(3.8,0,"PT",43,226)=""
^DD(3.8,0,"PT",43,500)=""
^DD(3.8,0,"PT",43,501)=""
^DD(3.8,0,"PT",43,502)=""
^DD(3.8,0,"PT",43,503)=""
^DD(3.8,0,"PT",43,504)=""
^DD(3.8,0,"PT",43,505)=""
^DD(3.8,0,"PT",43,506)=""
^DD(3.8,0,"PT",43,507)=""
^DD(3.8,0,"PT",43,508)=""
^DD(3.8,0,"PT",43,509)=""
^DD(3.8,0,"PT",43,510)=""
^DD(3.8,0,"PT",43,511)=""
^DD(3.8,0,"PT",43,512)=""
^DD(3.8,0,"PT",43,513)=""
^DD(3.8,0,"PT",43,906)=""
^DD(3.8,0,"PT",43,908)=""
^DD(3.8,0,"PT",58.8,32)=""
^DD(3.8,0,"PT",59.6,5)=""
^DD(3.8,0,"PT",62.481,.02)=""
^DD(3.8,0,"PT",69.4,1)=""
^DD(3.8,0,"PT",69.45,.01)=""
^DD(3.8,0,"PT",133,43)=""
^DD(3.8,0,"PT",142.99,.06)=""
^DD(3.8,0,"PT",154.91,7)=""
^DD(3.8,0,"PT",154.91,8)=""
^DD(3.8,0,"PT",195.1,12)=""
^DD(3.8,0,"PT",195.1,14)=""
^DD(3.8,0,"PT",195.1,22)=""
^DD(3.8,0,"PT",301.9,.02)=""
^DD(3.8,0,"PT",301.9,.09)=""
^DD(3.8,0,"PT",342,20.02)=""
^DD(3.8,0,"PT",349,23)=""
^DD(3.8,0,"PT",349.12,.01)=""
^DD(3.8,0,"PT",350.9,.09)=""
^DD(3.8,0,"PT",350.9,.11)=""
^DD(3.8,0,"PT",350.9,.13)=""
^DD(3.8,0,"PT",350.9,1.07)=""
^DD(3.8,0,"PT",350.9,1.09)=""
^DD(3.8,0,"PT",350.9,4.04)=""
^DD(3.8,0,"PT",350.9,6.25)=""
^DD(3.8,0,"PT",350.9,50.03)=""
^DD(3.8,0,"PT",350.9,50.04)=""
^DD(3.8,0,"PT",350.9,51.04)=""
^DD(3.8,0,"PT",354.52,.01)=""
^DD(3.8,0,"PT",357.09,1.01)=""
^DD(3.8,0,"PT",364.3,.02)=""
^DD(3.8,0,"PT",372,.05)=""
^DD(3.8,0,"PT",372,.06)=""
^DD(3.8,0,"PT",395.015,.01)=""
^DD(3.8,0,"PT",395.5,2)=""
^DD(3.8,0,"PT",404.91,804)=""
^DD(3.8,0,"PT",423.5,1)=""
^DD(3.8,0,"PT",690.17,.01)=""
^DD(3.8,0,"PT",690.7,.03)=""
^DD(3.8,0,"PT",702.09,.02)=""
^DD(3.8,0,"PT",740,740.05)=""
^DD(3.8,0,"PT",740,740.06)=""
^DD(3.8,0,"PT",740,742.01)=""
^DD(3.8,0,"PT",743,62)=""
^DD(3.8,0,"PT",770,10)=""
^DD(3.8,0,"PT",771,4)=""
^DD(3.8,0,"PT",776.106,.01)=""
^DD(3.8,0,"PT",783.9,.03)=""
^DD(3.8,0,"PT",800,3)=""
^DD(3.8,0,"PT",869.2,100.01)=""
^DD(3.8,0,"PT",869.3,.05)=""
^DD(3.8,0,"PT",870,100.01)=""
^DD(3.8,0,"PT",990.8,.5)=""
^DD(3.8,0,"PT",991.11,6)=""
^DD(3.8,0,"PT",991.8,.03)=""
^DD(3.8,0,"PT",8994.1,2)=""
^DD(3.8,0,"PT",509850.8,.02)=""
^DD(3.8,0,"VR")="8.0"
^DD(3.8,0,"VRPK")="MAILMAN"
^DD(3.8,.01,0)="NAME^RFX^^0;1^S:X?1""G."".E!(X?1""g."".E) X=$E(X,3,99) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(3.8,.01,.1)="MAIL GROUP NAME"
^DD(3.8,.01,1,0)="^.1"
^DD(3.8,.01,1,1,0)="3.8^B"
^DD(3.8,.01,1,1,1)="S ^XMB(3.8,""B"",$E(X,1,30),DA)="""""
^DD(3.8,.01,1,1,2)="K ^XMB(3.8,""B"",$E(X,1,30),DA)"
^DD(3.8,.01,1,2,0)="^^TRIGGER^3.8^5"
^DD(3.8,.01,1,2,1)="X ^DD(3.8,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(3.8,D0,3)):^(3),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$G(XMDUZ,DUZ) S DIH=$G(^XMB(3.8,DIV(0),3)),DIV=X S $P(^(3),U,1)=DIV,DIH=3.8,DIG=5 D ^DICR"
^DD(3.8,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^XMB(3.8,D0,3)):^(3),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))="""""
^DD(3.8,.01,1,2,2)="Q"
^DD(3.8,.01,1,2,"%D",0)="^^2^2^3020425^"
^DD(3.8,.01,1,2,"%D",1,0)="When a user creates a mail group, this trigger makes that user"
^DD(3.8,.01,1,2,"%D",2,0)="the organizer of the group.  The user is free to change that field.  "
^DD(3.8,.01,1,2,"CREATE CONDITION")="ORGANIZER="""""
^DD(3.8,.01,1,2,"CREATE VALUE")="S X=$G(XMDUZ,DUZ)"
^DD(3.8,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(3.8,.01,1,2,"DT")="3020425"
^DD(3.8,.01,1,2,"FIELD")="ORGANIZER"
^DD(3.8,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(3.8,.01,21,0)="^^2^2^2921125^^^^"
^DD(3.8,.01,21,1,0)="The name of a mail group, i.e. a list of recipients who can"
^DD(3.8,.01,21,2,0)="all be addressed at once by reference to this name."
^DD(3.8,.01,"DT")="3020425"
^DD(3.8,.01,"LAYGO",1,0)="I $$LAYGO^XMVGROUP(X)"
^DD(3.8,2,0)="MEMBER^3.81P^^1;0"
^DD(3.8,2,21,0)="^^2^2^2971007^^^^"
^DD(3.8,2,21,1,0)="A member of a Mail Group is a user to whom messages will be sent when the"
^DD(3.8,2,21,2,0)="message is addressed to this mail group."
^DD(3.8,2,"DT")="2911126"
^DD(3.8,3,0)="DESCRIPTION^3.801^^2;0"
^DD(3.8,3,21,0)="^^1^1^2921125^^^"
^DD(3.8,3,21,1,0)="The definition and/or purpose of this mail group."
^DD(3.8,4,0)="TYPE^RS^PU:public;PR:private;^0;2^Q"
^DD(3.8,4,.1)=""
^DD(3.8,4,1,0)="^.1"
^DD(3.8,4,1,1,0)="^^TRIGGER^3.8^10"
^DD(3.8,4,1,1,1)="Q"
^DD(3.8,4,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(3.8,4,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1)=""private"" I X S X=DIV S Y(1)=$S($D(^XMB(3.8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(3.8,4,1,1,2.4)"
^DD(3.8,4,1,1,2.4)="S DIH=$G(^XMB(3.8,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=3.8,DIG=10 D ^DICR"
^DD(3.8,4,1,1,"%D",0)="^^2^2^3010207^"
^DD(3.8,4,1,1,"%D",1,0)="When changing the TYPE from 'private' to 'public',"
^DD(3.8,4,1,1,"%D",2,0)="delete the RESTRICTIONS field, because it no longer applies."
^DD(3.8,4,1,1,"CREATE VALUE")="NO EFFECT"
^DD(3.8,4,1,1,"DELETE CONDITION")="OLD TYPE=""private"""
^DD(3.8,4,1,1,"DELETE VALUE")="@"
^DD(3.8,4,1,1,"DT")="3010207"
^DD(3.8,4,1,1,"FIELD")="RESTRICTIONS"
^DD(3.8,4,1,2,0)="^^TRIGGER^3.8^7"
^DD(3.8,4,1,2,1)="Q"
^DD(3.8,4,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(3.8,4,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1)=""public"" I X S X=DIV S Y(1)=$S($D(^XMB(3.8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(3.8,4,1,2,2.4)"
^DD(3.8,4,1,2,2.4)="S DIH=$G(^XMB(3.8,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=3.8,DIG=7 D ^DICR"
^DD(3.8,4,1,2,"%D",0)="^^2^2^3010207^"
^DD(3.8,4,1,2,"%D",1,0)="When changing the TYPE from 'public' to 'private', delete the"
^DD(3.8,4,1,2,"%D",2,0)="ALLOW SELF ENROLLMENT? field, because it no longer applies."
^DD(3.8,4,1,2,"CREATE VALUE")="NO EFFECT"
^DD(3.8,4,1,2,"DELETE CONDITION")="OLD TYPE=""public"""
^DD(3.8,4,1,2,"DELETE VALUE")="@"
^DD(3.8,4,1,2,"DT")="3010207"
^DD(3.8,4,1,2,"FIELD")="ALLOW SELF ENROLLMENT?"
^DD(3.8,4,21,0)="^^5^5^2921125^^^^"
^DD(3.8,4,21,1,0)="The type of mail group determines who can send mail to it."
^DD(3.8,4,21,2,0)="Provided there are no AUTHORIZED SENDERS specified, anyone can send mail"
^DD(3.8,4,21,3,0)="to a public group and only its members can send mail to a private group."
^DD(3.8,4,21,4,0)="If there are AUTHORIZED SENDERS specified, only those users can address"
^DD(3.8,4,21,5,0)="the group."
^DD(3.8,4,"DT")="3010207"
^DD(3.8,5,0)="ORGANIZER^P200'^VA(200,^3;1^Q"
^DD(3.8,5,.1)="The user who has organizer's privileges for the group."
^DD(3.8,5,5,1,0)="3.8^.01^2"
^DD(3.8,5,21,0)="^^3^3^2921125^^^^"
^DD(3.8,5,21,1,0)="The user who has the privileges of an ""Organizer"" for"
^DD(3.8,5,21,2,0)="the mail group. For example, an organizer can add new members to a"
^DD(3.8,5,21,3,0)="""Private"" mail group."
^DD(3.8,5,"DT")="2910618"
^DD(3.8,5.1,0)="COORDINATOR^P200'^VA(200,^0;7^Q"
^DD(3.8,5.1,1,0)="^.1"
^DD(3.8,5.1,1,1,0)="3.8^AC"
^DD(3.8,5.1,1,1,1)="S ^XMB(3.8,""AC"",$E(X,1,30),DA)="""""
^DD(3.8,5.1,1,1,2)="K ^XMB(3.8,""AC"",$E(X,1,30),DA)"
^DD(3.8,5.1,1,1,"%D",0)="^^1^1^2940202^"
^DD(3.8,5.1,1,1,"%D",1,0)="This cross reference is to be used for listing mail groups for coordinators."
^DD(3.8,5.1,1,1,"DT")="2940202"
^DD(3.8,5.1,3)="The person responsible for maintaining the membership of the mail group."
^DD(3.8,5.1,21,0)="^^7^7^3020425^^"
^DD(3.8,5.1,21,1,0)="This field is used as a screen when a user tries to edit a mail group"
^DD(3.8,5.1,21,2,0)="that he is a coordinator of.  If the screen fails and the user does not"
^DD(3.8,5.1,21,3,0)="hold the XMMGR key, he cannot edit the mail group."
^DD(3.8,5.1,21,4,0)=" "
^DD(3.8,5.1,21,5,0)="Even if the coordinator is REMOVED from the Mail System, this field will"
^DD(3.8,5.1,21,6,0)="remain to indicate who created the Mail Group if others can use it.  If it"
^DD(3.8,5.1,21,7,0)="is a Personal Group, it will be deleted."
^DD(3.8,5.1,"DT")="3020425"
^DD(3.8,6,0)="AUTHORIZED SENDER^3.802P^^4;0"
^DD(3.8,6,21,0)="^^12^12^2981231^^^^"
^DD(3.8,6,21,1,0)="If you wish to restrict this mail group to only a limited set of senders,"
^DD(3.8,6,21,2,0)="name them in this field.  If no names are entered here, then it is assumed"
^DD(3.8,6,21,3,0)="that anyone may send mail to this group (if public), or only members"
^DD(3.8,6,21,4,0)="may send to it (if private).  "
^DD(3.8,6,21,5,0)=" "
^DD(3.8,6,21,6,0)="If a user attempts to send mail to a group which has one or more authorized"
^DD(3.8,6,21,7,0)="senders, but is not an authorized sender, then he is shown a list of"
^DD(3.8,6,21,8,0)="authorized senders.  He may send the message to them, and they may forward"
^DD(3.8,6,21,9,0)="it, if desired."
^DD(3.8,6,21,10,0)=""
^DD(3.8,6,21,11,0)="NOTE:  Remote users may not send mail to any local group which has"
^DD(3.8,6,21,12,0)="authorized senders"
^DD(3.8,7,0)="ALLOW SELF ENROLLMENT?^S^y:YES;n:NO;^0;3^Q"
^DD(3.8,7,3)="If users may join this group by themselves, say ""YES"""
^DD(3.8,7,5,1,0)="3.8^4^2"
^DD(3.8,7,21,0)="^^3^3^2921125^^"
^DD(3.8,7,21,1,0)="If this field is set to ""YES"", then users may use the JOIN option to "
^DD(3.8,7,21,2,0)="make themselves members of the group, or to drop their names from the"
^DD(3.8,7,21,3,0)="group.  This option is only operative with public groups."
^DD(3.8,7,"DT")="2851028"
^DD(3.8,8,0)="REFERENCE COUNT^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.8,8,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(3.8,8,21,0)="^^3^3^2921125^^^"
^DD(3.8,8,21,1,0)="This is a count of the number of times this mailgroup has been"
^DD(3.8,8,21,2,0)="used as a recipient of a message.  This will help site managers"
^DD(3.8,8,21,3,0)="monitor the activity of mail groups."
^DD(3.8,8,"DT")="2860212"
^DD(3.8,9,0)="LAST REFERENCED^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(3.8,9,21,0)="^^1^1^3020422^^"
^DD(3.8,9,21,1,0)="This is the date on which this mail group was last referenced."
^DD(3.8,9,"DT")="3020422"
^DD(3.8,10,0)="RESTRICTIONS^S^0:UNRESTRICTED;1:ORGANIZER ONLY;^0;6^Q"
^DD(3.8,10,3)="Enter restriction code for private group."
^DD(3.8,10,5,1,0)="3.8^4^1"
^DD(3.8,10,21,0)="^.001^13^13^3010208^^^^"
^DD(3.8,10,21,1,0)="This field is only applicable for PRIVATE mail groups."
^DD(3.8,10,21,2,0)="It is ignored for PUBLIC mail groups."
^DD(3.8,10,21,3,0)=" "
^DD(3.8,10,21,4,0)="This field controls who may address (send messages to) this"
^DD(3.8,10,21,5,0)="PRIVATE mail group."
^DD(3.8,10,21,6,0)=" "
^DD(3.8,10,21,7,0)="If 0 (zero) or null, then the group is unrestricted, and all"
^DD(3.8,10,21,8,0)="members may address the group."
^DD(3.8,10,21,9,0)=" "
^DD(3.8,10,21,10,0)="If 1, then only the organizer may address the group."
^DD(3.8,10,21,11,0)="The group is a personal group."
^DD(3.8,10,21,12,0)=""
^DD(3.8,10,21,13,0)="Note that non-members cannot address private mail groups."
^DD(3.8,10,"DT")="3010206"
^DD(3.8,11,0)="MEMBER GROUPS^3.811P^^5;0"
^DD(3.8,11,21,0)="^.001^3^3^3020904^^^^"
^DD(3.8,11,21,1,0)="Member Groups are mail groups that are members of this mail group.  When"
^DD(3.8,11,21,2,0)="a Mail Group is made a member of another in this fashion, the individuals"
^DD(3.8,11,21,3,0)="of it are added to the mailing list at delivery time."
^DD(3.8,11,"DT")="2920716"
^DD(3.8,12,0)="MEMBERS - REMOTE^3.812^^6;0"
^DD(3.8,12,21,0)="^^4^4^2990219^^^^"
^DD(3.8,12,21,1,0)="This multiple contains remote addresses or local devices or local servers."
^DD(3.8,12,21,2,0)="The input to the field is checked for validity at the time it is entered."
^DD(3.8,12,21,3,0)="If the address BECOMES INCORRECT MailMan will try to inform"
^DD(3.8,12,21,4,0)="a responsible person of the non-delivery of a message."
^DD(3.8,12,"DT")="2940811"
^DD(3.8,13,0)="DISTRIBUTION LIST^3.813P^^7;0"
^DD(3.8,13,21,0)="^^3^3^2901026^"
^DD(3.8,13,21,1,0)="This field will allow distribution lists to be included in Mail Groups."
^DD(3.8,13,21,2,0)="In this way a message that must be sent to the same name at many domains"
^DD(3.8,13,21,3,0)="may easily be included in the recipient chain of a message."
^DD(3.8,14,0)="FAX RECIPIENT^3.814P^^8;0"
^DD(3.8,14,"DT")="2970211"
^DD(3.8,15,0)="FAX GROUP^3.815P^^9;0"
^DD(3.8,15,"DT")="2970211"
^DD(3.8,"B","ALLOW SELF ENROLLMENT?",7)=""
^DD(3.8,"B","AUTHORIZED SENDER",6)=""
^DD(3.8,"B","COORDINATOR",5.1)=""
^DD(3.8,"B","DESCRIPTION",3)=""
^DD(3.8,"B","DISTRIBUTION LIST",13)=""
^DD(3.8,"B","FAX GROUP",15)=""
^DD(3.8,"B","FAX RECIPIENT",14)=""
^DD(3.8,"B","LAST REFERENCED",9)=""
^DD(3.8,"B","MAIL GROUP NAME",.01)="1"
^DD(3.8,"B","MEMBER",2)=""
^DD(3.8,"B","MEMBER GROUPS",11)=""
^DD(3.8,"B","MEMBERS - REMOTE",12)=""
^DD(3.8,"B","NAME",.01)=""
^DD(3.8,"B","ORGANIZER",5)=""
^DD(3.8,"B","REFERENCE COUNT",8)=""
^DD(3.8,"B","RESTRICTIONS",10)=""
^DD(3.8,"B","TYPE",4)=""
^DD(3.8,"GL",0,1,.01)=""
^DD(3.8,"GL",0,2,4)=""
^DD(3.8,"GL",0,3,7)=""
^DD(3.8,"GL",0,4,8)=""
^DD(3.8,"GL",0,5,9)=""
^DD(3.8,"GL",0,6,10)=""
^DD(3.8,"GL",0,7,5.1)=""
^DD(3.8,"GL",1,0,2)=""
^DD(3.8,"GL",2,0,3)=""
^DD(3.8,"GL",3,1,5)=""
^DD(3.8,"GL",4,0,6)=""
^DD(3.8,"GL",5,0,11)=""
^DD(3.8,"GL",6,0,12)=""
^DD(3.8,"GL",7,0,13)=""
^DD(3.8,"GL",8,0,14)=""
^DD(3.8,"GL",9,0,15)=""
^DD(3.8,"IX",.01)=""
^DD(3.8,"IX",4)=""
^DD(3.8,"IX",5.1)=""
^DD(3.8,"RQ",.01)=""
^DD(3.8,"RQ",4)=""
^DD(3.8,"SB",3.801,3)=""
^DD(3.8,"SB",3.802,6)=""
^DD(3.8,"SB",3.81,2)=""
^DD(3.8,"SB",3.811,11)=""
^DD(3.8,"SB",3.812,12)=""
^DD(3.8,"SB",3.813,13)=""
^DD(3.8,"SB",3.814,14)=""
^DD(3.8,"SB",3.815,15)=""
^DD(3.801,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(3.801,0,"NM","DESCRIPTION")=""
^DD(3.801,0,"UP")="3.8"
^DD(3.801,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(3.801,.01,.1)="A short description of the purpose of the mail group"
^DD(3.801,.01,21,0)="^^1^1^2921125^^^"
^DD(3.801,.01,21,1,0)="The definition and/or purpose of this mail group."
^DD(3.801,.01,"DT")="2831004"
^DD(3.801,"B","DESCRIPTION",.01)=""
^DD(3.801,"GL",0,1,.01)=""
^DD(3.802,0)="AUTHORIZED SENDER SUB-FIELD^NL^.01^1"
^DD(3.802,0,"DT")="2910618"
^DD(3.802,0,"IX","B",3.802,.01)=""
^DD(3.802,0,"NM","AUTHORIZED SENDER")=""
^DD(3.802,0,"UP")="3.8"
^DD(3.802,.01,0)="AUTHORIZED SENDER^MP200'^VA(200,^0;1^Q"
^DD(3.802,.01,1,0)="^.1"
^DD(3.802,.01,1,1,0)="3.802^B"
^DD(3.802,.01,1,1,1)="S ^XMB(3.8,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(3.802,.01,1,1,2)="K ^XMB(3.8,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(3.802,.01,3)="Enter name of user who may address this group, if it is to be limited"
^DD(3.802,.01,21,0)="^^9^9^2981231^^"
^DD(3.802,.01,21,1,0)="This subfile records user numbers of those users who have the"
^DD(3.802,.01,21,2,0)="exclusive privilege of addressing the mail group.  Messages sent"
^DD(3.802,.01,21,3,0)="by other users will reach the group only if forwarded by an authorized "
^DD(3.802,.01,21,4,0)="sender.  The authorized senders receive all mail addressed to the"
^DD(3.802,.01,21,5,0)="group."
^DD(3.802,.01,21,6,0)=""
^DD(3.802,.01,21,7,0)="WARNING:  If a group has authorized senders, then remote users will not"
^DD(3.802,.01,21,8,0)="be able to send messages to it.  Any messages sent by a remote user to"
^DD(3.802,.01,21,9,0)="a group with authorized senders will be rejected."
^DD(3.802,.01,"DT")="2910618"
^DD(3.802,"B","AUTHORIZED SENDER",.01)=""
^DD(3.802,"GL",0,1,.01)=""
^DD(3.802,"IX",.01)=""
^DD(3.81,0)="MEMBER SUB-FIELD^NL^1^2"
^DD(3.81,0,"DT")="2990308"
^DD(3.81,0,"NM","MEMBER")=""
^DD(3.81,0,"UP")="3.8"
^DD(3.81,.01,0)="MEMBER^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $L($P(^(0),U,3)),$D(^XMB(3.7,+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(3.81,.01,.1)="Local Member"
^DD(3.81,.01,1,0)="^.1^^-1"
^DD(3.81,.01,1,2,0)="3.8^AB"
^DD(3.81,.01,1,2,1)="S ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(3.81,.01,1,2,2)="K ^XMB(3.8,""AB"",$E(X,1,30),DA(1),DA)"
^DD(3.81,.01,1,2,"DT")="2990727"
^DD(3.81,.01,3)="Enter a local user who should receive mail addressed to this group."
^DD(3.81,.01,12)="User must have an access code and a mailbox."
^DD(3.81,.01,12.1)="S DIC(""S"")=""I $L($P(^(0),U,3)),$D(^XMB(3.7,+Y,0))"""
^DD(3.81,.01,21,0)="^^2^2^2990308^^^^"
^DD(3.81,.01,21,1,0)="The local user who is a member of this mail group."
^DD(3.81,.01,21,2,0)="The user must have an access code and a mailbox."
^DD(3.81,.01,"DT")="3010212"
^DD(3.81,1,0)="TYPE^S^C:CC;I:INFO;^0;2^Q"
^DD(3.81,1,21,0)="^^11^11^2990227^^^"
^DD(3.81,1,21,1,0)="This field indicates what type of recipient this is."
^DD(3.81,1,21,2,0)=""
^DD(3.81,1,21,3,0)="If this field has nothing in it, it indicates that this recipient is"
^DD(3.81,1,21,4,0)="a primary recipient, and may reply."
^DD(3.81,1,21,5,0)=""
^DD(3.81,1,21,6,0)="CC:  indicates that the recipient is being sent a copy, but is not the"
^DD(3.81,1,21,7,0)="primary recipient.  The recipient may reply."
^DD(3.81,1,21,8,0)=" "
^DD(3.81,1,21,9,0)="INFO: indicates that the recipient may not reply to the message; the"
^DD(3.81,1,21,10,0)="message is being transmitted to the recipient for information purposes"
^DD(3.81,1,21,11,0)="only."
^DD(3.81,1,"DT")="2990225"
^DD(3.81,"B","Local Member",.01)="1"
^DD(3.81,"B","MEMBER",.01)=""
^DD(3.81,"B","TYPE",1)=""
^DD(3.81,"GL",0,1,.01)=""
^DD(3.81,"GL",0,2,1)=""
^DD(3.81,"IX",.01)=""
^DD(3.811,0)="MEMBER GROUPS SUB-FIELD^^1^2"
^DD(3.811,0,"DT")="3020422"
^DD(3.811,0,"IX","B",3.811,.01)=""
^DD(3.811,0,"NM","MEMBER GROUPS")=""
^DD(3.811,0,"UP")="3.8"
^DD(3.811,.01,0)="MEMBER GROUP NAME^M*P3.8'^XMB(3.8,^0;1^S DIC(""S"")=""I Y'=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(3.811,.01,1,0)="^.1"
^DD(3.811,.01,1,1,0)="3.811^B"
^DD(3.811,.01,1,1,1)="S ^XMB(3.8,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(3.811,.01,1,1,2)="K ^XMB(3.8,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(3.811,.01,1,2,0)="3.8^AD"
^DD(3.811,.01,1,2,1)="S ^XMB(3.8,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(3.811,.01,1,2,2)="K ^XMB(3.8,""AD"",$E(X,1,30),DA(1),DA)"
^DD(3.811,.01,1,2,"%D",0)="^^1^1^3000503^"
^DD(3.811,.01,1,2,"%D",1,0)="Shows groups to which a group belongs."
^DD(3.811,.01,1,2,"DT")="3000503"
^DD(3.811,.01,3)="If you would like another mail group to be a member of this one enter a partial match to its name."
^DD(3.811,.01,12)="A mail group may not be a member of itself."
^DD(3.811,.01,12.1)="S DIC(""S"")=""I Y'=DA"""
^DD(3.811,.01,21,0)="^.001^2^2^3020422^^^^"
^DD(3.811,.01,21,1,0)="This is a pointer to another entry in this Mail Group file."
^DD(3.811,.01,21,2,0)="See the description of the multiple for more information."
^DD(3.811,.01,"DT")="3020422"
^DD(3.811,1,0)="TYPE^S^C:CC;I:INFO;^0;2^Q"
^DD(3.811,1,21,0)="^^11^11^2990225^"
^DD(3.811,1,21,1,0)="This field indicates what type of recipient this is."
^DD(3.811,1,21,2,0)=""
^DD(3.811,1,21,3,0)="If this field has nothing in it, it indicates that this recipient is"
^DD(3.811,1,21,4,0)="a primary recipient, and may reply."
^DD(3.811,1,21,5,0)=""
^DD(3.811,1,21,6,0)="CC:  indicates that the recipient is being sent a copy, but is not the"
^DD(3.811,1,21,7,0)="primary recipient.  The recipient may reply."
^DD(3.811,1,21,8,0)=""
^DD(3.811,1,21,9,0)="INFO: indicates that the recipient may not reply to the message; the"
^DD(3.811,1,21,10,0)="message is being transmitted to the recipient for information purposes"
^DD(3.811,1,21,11,0)="only."
^DD(3.811,1,"DT")="2990225"
^DD(3.811,"B","MEMBER GROUP NAME",.01)=""
^DD(3.811,"B","TYPE",1)=""
^DD(3.811,"GL",0,1,.01)=""
^DD(3.811,"GL",0,2,1)=""
^DD(3.811,"IX",.01)=""
^DD(3.812,0)="MEMBERS - REMOTE SUB-FIELD^^.01^1"
^DD(3.812,0,"IX","B",3.812,.01)=""
^DD(3.812,0,"NM","MEMBERS - REMOTE")=""
^DD(3.812,0,"UP")="3.8"
^DD(3.812,.01,0)="REMOTE MEMBER^MFX^^0;1^D REMOTE^XMVGROUP(.X,$G(XMIA)) I $D(X) K:$L(X)>99 X"
^DD(3.812,.01,1,0)="^.1"
^DD(3.812,.01,1,1,0)="3.812^B"
^DD(3.812,.01,1,1,1)="S ^XMB(3.8,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(3.812,.01,1,1,2)="K ^XMB(3.8,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(3.812,.01,3)="Enter a remote address (name@domain) or local device (D.device or H.device) or local server (S.server)."
^DD(3.812,.01,21,0)="^^2^2^2990308^^^^"
^DD(3.812,.01,21,1,0)="This is a free text, validated (at the time you enter it) remote address"
^DD(3.812,.01,21,2,0)="or local device or local server."
^DD(3.812,.01,"DT")="3020422"
^DD(3.812,"B","REMOTE MEMBER",.01)=""
^DD(3.812,"GL",0,1,.01)=""
^DD(3.812,"IX",.01)=""
^DD(3.813,0)="DISTRIBUTION LIST SUB-FIELD^^.01^1"
^DD(3.813,0,"IX","B",3.813,.01)=""
^DD(3.813,0,"NM","DISTRIBUTION LIST")=""
^DD(3.813,0,"UP")="3.8"
^DD(3.813,.01,0)="DISTRIBUTION LIST^MP3.816^XMB(3.816,^0;1^Q"
^DD(3.813,.01,1,0)="^.1"
^DD(3.813,.01,1,1,0)="3.813^B"
^DD(3.813,.01,1,1,1)="S ^XMB(3.8,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(3.813,.01,1,1,2)="K ^XMB(3.8,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(3.813,.01,"DT")="2901026"
^DD(3.813,"B","DISTRIBUTION LIST",.01)=""
^DD(3.813,"GL",0,1,.01)=""
^DD(3.813,"IX",.01)=""
^DD(3.814,0)="FAX RECIPIENT SUB-FIELD^^.01^1"
^DD(3.814,0,"DT")="2970113"
^DD(3.814,0,"IX","B",3.814,.01)=""
^DD(3.814,0,"NM","FAX RECIPIENT")=""
^DD(3.814,0,"UP")="3.8"
^DD(3.814,.01,0)="FAX RECIPIENT^MP589499'^AKF(""FAXR"",^0;1^Q"
^DD(3.814,.01,1,0)="^.1"
^DD(3.814,.01,1,1,0)="3.814^B"
^DD(3.814,.01,1,1,1)="S ^XMB(3.8,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(3.814,.01,1,1,2)="K ^XMB(3.8,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(3.814,.01,3)="Enter the fax recipient who should receive faxes sent to this mail group."
^DD(3.814,.01,21,0)="^^3^3^2970211^^^^"
^DD(3.814,.01,21,1,0)="This is a list of individual recipients who will receive by fax any mail sent"
^DD(3.814,.01,21,2,0)="to this mail group.  They receive the original message only.  They do not"
^DD(3.814,.01,21,3,0)="receive responses. "
^DD(3.814,.01,"DT")="2970211"
^DD(3.814,"B","FAX RECIPIENT",.01)=""
^DD(3.814,"GL",0,1,.01)=""
^DD(3.814,"IX",.01)=""
^DD(3.815,0)="FAX GROUP SUB-FIELD^^.01^1"
^DD(3.815,0,"DT")="2970114"
^DD(3.815,0,"IX","B",3.815,.01)=""
^DD(3.815,0,"NM","FAX GROUP")=""
^DD(3.815,0,"UP")="3.8"
^DD(3.815,.01,0)="FAX GROUP^M*P589498'^AKF(""FAXG"",^0;1^S DIC(""S"")=""N XM S XM=$G(^(3)) I $P(XM,U,2)!($G(XMDUZ,DUZ)=+XM)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(3.815,.01,1,0)="^.1"
^DD(3.815,.01,1,1,0)="3.815^B"
^DD(3.815,.01,1,1,1)="S ^XMB(3.8,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(3.815,.01,1,1,2)="K ^XMB(3.8,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(3.815,.01,3)="Enter the fax group which should receive faxes sent to this mail group."
^DD(3.815,.01,12)="Group must be public or user must be (surrogate of) creator of group."
^DD(3.815,.01,12.1)="S DIC(""S"")=""N XM S XM=$G(^(3)) I $P(XM,U,2)!($G(XMDUZ,DUZ)=+XM)"""
^DD(3.815,.01,21,0)="^^2^2^2970114^^^^"
^DD(3.815,.01,21,1,0)="Each member of the fax group will receive by fax any message sent to this mail"
^DD(3.815,.01,21,2,0)="group.  Only the original message will be faxed.  Responses will not be faxed."
^DD(3.815,.01,"DT")="2970211"
^DD(3.815,"B","FAX GROUP",.01)=""
^DD(3.815,"GL",0,1,.01)=""
^DD(3.815,"IX",.01)=""
^DD(3.816,0)="FIELD^^1^2"
^DD(3.816,0,"DDA")="N"
^DD(3.816,0,"DT")="2901026"
^DD(3.816,0,"IX","B",3.816,.01)=""
^DD(3.816,0,"NM","DISTRIBUTION LIST")=""
^DD(3.816,0,"PT",3.813,.01)=""
^DD(3.816,0,"VR")="8.0"
^DD(3.816,0,"VRPK")="MAILMAN"
^DD(3.816,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(3.816,.01,1,0)="^.1"
^DD(3.816,.01,1,1,0)="3.816^B"
^DD(3.816,.01,1,1,1)="S ^XMB(3.816,""B"",$E(X,1,30),DA)="""""
^DD(3.816,.01,1,1,2)="K ^XMB(3.816,""B"",$E(X,1,30),DA)"
^DD(3.816,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(3.816,.01,21,0)="^^1^1^2931213^"
^DD(3.816,.01,21,1,0)="This is the name of the distribution list."
^DD(3.816,.01,23,0)="^^2^2^2931213^"
^DD(3.816,.01,23,1,0)="If it does not start with D. or S. or P., it is assumed to begin"
^DD(3.816,.01,23,2,0)="with G."
^DD(3.816,1,0)="DOMAIN^3.8161P^^1;0"
^DD(3.816,"B","DOMAIN",1)=""
^DD(3.816,"B","NAME",.01)=""
^DD(3.816,"GL",0,1,.01)=""
^DD(3.816,"GL",1,0,1)=""
^DD(3.816,"IX",.01)=""
^DD(3.816,"RQ",.01)=""
^DD(3.816,"SB",3.8161,1)=""
^DD(3.8161,0)="DOMAIN SUB-FIELD^^.01^1"
^DD(3.8161,0,"DT")="2901026"
^DD(3.8161,0,"IX","B",3.8161,.01)=""
^DD(3.8161,0,"NM","DOMAIN")=""
^DD(3.8161,0,"UP")="3.816"
^DD(3.8161,.01,0)="DOMAIN^MP4.2'^DIC(4.2,^0;1^Q"
^DD(3.8161,.01,1,0)="^.1"
^DD(3.8161,.01,1,1,0)="3.8161^B"
^DD(3.8161,.01,1,1,1)="S ^XMB(3.816,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(3.8161,.01,1,1,2)="K ^XMB(3.816,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(3.8161,.01,3)="Each domain is concatenated to the NAME field to create recipients for a mail group that points to this distribution list."
^DD(3.8161,.01,21,0)="^^2^2^2931214^"
^DD(3.8161,.01,21,1,0)="This is a list of domains that will be contenated to the name of the"
^DD(3.8161,.01,21,2,0)="distribution list to form remote addresses."
^DD(3.8161,.01,"DT")="2901026"
^DD(3.8161,"B","DOMAIN",.01)=""
^DD(3.8161,"GL",0,1,.01)=""
^DD(3.8161,"IX",.01)=""
^DD(3.9,0)="FIELD^NL^2005^25"
^DD(3.9,0,"DDA")="Y"
^DD(3.9,0,"DT")="3011128"
^DD(3.9,0,"IX","AI",3.9,9)=""
^DD(3.9,0,"IX","AL",3.914,4)=""
^DD(3.9,0,"IX","AW",3.914,2)=""
^DD(3.9,0,"IX","B",3.9,.01)=""
^DD(3.9,0,"IX","C",3.9,31)=""
^DD(3.9,0,"NM","MESSAGE")=""
^DD(3.9,0,"PT",1.12,.06)=""
^DD(3.9,0,"PT",3.7,5)=""
^DD(3.9,0,"PT",3.7,7)=""
^DD(3.9,0,"PT",3.702,.01)=""
^DD(3.9,0,"PT",3.73,2)=""
^DD(3.9,0,"PT",3.9,1.35)=""
^DD(3.9,0,"PT",3.9001,.01)=""
^DD(3.9,0,"PT",4.2999,2)=""
^DD(3.9,0,"PT",45.04,3)=""
^DD(3.9,0,"PT",45.831,2)=""
^DD(3.9,0,"PT",45.87,.03)=""
^DD(3.9,0,"PT",100.008,32)=""
^DD(3.9,0,"PT",395.5,7)=""
^DD(3.9,0,"PT",421.5,65)=""
^DD(3.9,0,"PT",458.03,.01)=""
^DD(3.9,0,"PT",783,.17)=""
^DD(3.9,0,"PT",509850.9,.13)=""
^DD(3.9,0,"PT",791810.0201,.02)=""
^DD(3.9,0,"PT",791812,.06)=""
^DD(3.9,0,"PT",791814,1.02)=""
^DD(3.9,0,"SCR")="I $S('$D(DUZ):0,'$D(^XMB(3.9,+Y,0)):0,$P(^(0),U,2)=DUZ:1,$D(^(1,""C"",DUZ)):1,$D(^(""* (Broadcast to all local user"")):1,1:0)"
^DD(3.9,0,"VR")="8.0"
^DD(3.9,0,"VRPK")="MAILMAN"
^DD(3.9,.001,0)="NUMBER^NJ15,0I^^ ^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.9,.001,.1)="A unique number assigned to each message, never reused"
^DD(3.9,.001,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(3.9,.001,21,0)="^^13^13^3020325^^^"
^DD(3.9,.001,21,1,0)="This is the unique number which is assigned to a message at the time"
^DD(3.9,.001,21,2,0)="it is entered into the system.  Messages are numbered sequentially."
^DD(3.9,.001,21,3,0)="Numbers may be re-used if numbers get too big.  See field 17.1, MAX"
^DD(3.9,.001,21,4,0)="DIGITS FOR MESSAGE NUMBER in file 4.3, MailMan Site Parameters, for"
^DD(3.9,.001,21,5,0)="more information."
^DD(3.9,.001,21,6,0)=""
^DD(3.9,.001,21,7,0)="Numbers appear in the ""Query"" listing for the message, as"
^DD(3.9,.001,21,8,0)="<number>@<domain name>, where <number> is the message number for this"
^DD(3.9,.001,21,9,0)="message, and <domain name> is the name of the domain, as defined in"
^DD(3.9,.001,21,10,0)="the file 4.3.  This combination of number and domain name uniquely"
^DD(3.9,.001,21,11,0)="identifies ALL messages in the mailman network, and editing control"
^DD(3.9,.001,21,12,0)="is such that no two copies of the message at different domains are"
^DD(3.9,.001,21,13,0)="different; the message is either identical or missing."
^DD(3.9,.001,"DT")="3020325"
^DD(3.9,.01,0)="SUBJECT^RFOX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) S X=$$STRIP^XMXUTIL1(X),X=$$MAXBLANK^XMXUTIL1(X) K:$L(X)>65!($L(X)<3) X I $D(X),X[""^"" S X=$$ENCODEUP^XMXUTIL1(X)"
^DD(3.9,.01,.1)="A short, descriptive title to the message."
^DD(3.9,.01,1,0)="^.1"
^DD(3.9,.01,1,1,0)="3.9^B"
^DD(3.9,.01,1,1,1)="S ^XMB(3.9,""B"",$E(X,1,30),DA)="""""
^DD(3.9,.01,1,1,2)="K ^XMB(3.9,""B"",$E(X,1,30),DA)"
^DD(3.9,.01,2)="S Y(0)=Y S:Y[""~U~"" Y=$$DECODEUP^XMXUTIL1(Y)"
^DD(3.9,.01,2.1)="S:Y[""~U~"" Y=$$DECODEUP^XMXUTIL1(Y)"
^DD(3.9,.01,3)="Answer must be 3-65 characters in length."
^DD(3.9,.01,21,0)="^^4^4^2970811^^^^"
^DD(3.9,.01,21,1,0)="This is the subject of the message, and is shown whenever the message is"
^DD(3.9,.01,21,2,0)="displayed."
^DD(3.9,.01,21,3,0)="Leading and trailing blanks are deleted."
^DD(3.9,.01,21,4,0)="Any sequence of 3 or more blanks is reduced to 2 blanks."
^DD(3.9,.01,23,0)="^^3^3^2970811^"
^DD(3.9,.01,23,1,0)="If the message happens to be a local reply, the message subject will be ""R"""
^DD(3.9,.01,23,2,0)="followed by the message number of the original message for which this is a"
^DD(3.9,.01,23,3,0)="response.  This text contains ~U~ if the subject contains an up-arrow. "
^DD(3.9,.01,"DEL",1,0)="I 1 W *7,""   DELETION ONLY ALLOWED THROUGH MANAGER 'PURGE'"""
^DD(3.9,.01,"DT")="2980526"
^DD(3.9,1,0)="FROM^RFI^^0;2^K:$L(X)>70!($L(X)<0) X"
^DD(3.9,1,.1)="The User number of who the message is from, or his network name if remote"
^DD(3.9,1,1,0)="^.1^^0"
^DD(3.9,1,3)="Answer must be 0-70 characters in length."
^DD(3.9,1,21,0)="^^4^4^2970813^^^^"
^DD(3.9,1,21,1,0)="This is who the message is from.  In the case of"
^DD(3.9,1,21,2,0)="a local message, this is the internal entry number of the user in the"
^DD(3.9,1,21,3,0)="NEW PERSON file.  In the case of a networked message, it is the user's full"
^DD(3.9,1,21,4,0)="network address, in the format <user@domain>."
^DD(3.9,1,23,0)="^^1^1^2970813^^"
^DD(3.9,1,23,1,0)="In a future patch, the field should be made longer, perhaps to 99."
^DD(3.9,1,"DT")="2970813"
^DD(3.9,1.1,0)="SENDER^FI^^0;4^K:$L(X)>30!($L(X)<0) X"
^DD(3.9,1.1,.1)="The person who entered the message, if not the same as FROM"
^DD(3.9,1.1,3)="ANSWER MUST BE 0-30 CHARACTERS IN LENGTH"
^DD(3.9,1.1,21,0)="^^5^5^2990106^^^^"
^DD(3.9,1.1,21,1,0)="If the message is sent by a surrogate, this field holds the surrogate's"
^DD(3.9,1.1,21,2,0)="identity."
^DD(3.9,1.1,21,3,0)=""
^DD(3.9,1.1,21,4,0)="It is displayed on the message header in parentheses, with the text"
^DD(3.9,1.1,21,5,0)="SENDER: preceding the sender's name."
^DD(3.9,1.1,"DT")="2851004"
^DD(3.9,1.3,0)="CONFIRMATION REQUESTED?^S^y:YES;n:NO;^0;5^Q"
^DD(3.9,1.3,.1)=""
^DD(3.9,1.3,21,0)="^^2^2^2860211^^"
^DD(3.9,1.3,21,1,0)="This specifies whether or not the sender of a message will get an"
^DD(3.9,1.3,21,2,0)="acknowledgement when the message is read by the recipient."
^DD(3.9,1.3,"DT")="2970728"
^DD(3.9,1.35,0)="ORIGINAL MESSAGE^P3.9'^XMB(3.9,^0;8^Q"
^DD(3.9,1.35,.1)="Original Message Number response points to"
^DD(3.9,1.35,3)=""
^DD(3.9,1.35,21,0)="^^2^2^2970811^^^^"
^DD(3.9,1.35,21,1,0)="This field is used for responses only."
^DD(3.9,1.35,21,2,0)="If this message is a response, this field points to the original message."
^DD(3.9,1.35,"DT")="2880722"
^DD(3.9,1.4,0)="SENT DATE/TIME^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.9,1.4,.1)="The date and time the message was sent."
^DD(3.9,1.4,1,0)="^.1^^0"
^DD(3.9,1.4,21,0)="^^6^6^2970730^^^^"
^DD(3.9,1.4,21,1,0)="This is the date and time at which this message was sent.  It relates"
^DD(3.9,1.4,21,2,0)="to the completion of the sending process, not the beginning, as previous"
^DD(3.9,1.4,21,3,0)="versions did."
^DD(3.9,1.4,21,4,0)="Initiation and initial sending can be separated by days, e.g. due to"
^DD(3.9,1.4,21,5,0)="equipment failure or illness of the sender, the time of the first send,"
^DD(3.9,1.4,21,6,0)="rather than the time message editing began, is retained."
^DD(3.9,1.4,23,0)="^^5^5^2970811^"
^DD(3.9,1.4,23,1,0)="In a future patch, as remote messages arrive, their date should be"
^DD(3.9,1.4,23,2,0)="converted from clear text to FM, using CONVERT^XMA32A."
^DD(3.9,1.4,23,3,0)="If conversion is not possible, the current date/time should be used."
^DD(3.9,1.4,23,4,0)="Currently, the DD to the contrary, the clear text version of the date"
^DD(3.9,1.4,23,5,0)="of the remote message is placed in this field."
^DD(3.9,1.4,"DT")="2970730"
^DD(3.9,1.6,0)="PURGE DATE^DX^^0;6^S %DT=""FEST"" D ^%DT S X=Y K:Y<1 X"
^DD(3.9,1.6,3)="Enter a date in the future when this message should be purged."
^DD(3.9,1.6,21,0)="^.001^2^2^3001024^^^^"
^DD(3.9,1.6,21,1,0)="This message will be set for all recipients to automatically delete on"
^DD(3.9,1.6,21,2,0)="this date."
^DD(3.9,1.6,23,0)="^.001^3^3^3001024^^^^"
^DD(3.9,1.6,23,1,0)="As the message is delivered to each recipient, the AUTOMATIC DELETE DATE"
^DD(3.9,1.6,23,2,0)="for the message in the recipient's basket is set to this purge date."
^DD(3.9,1.6,23,3,0)="The recipient is free, of course, to change the AUTOMATIC DELETE DATE."
^DD(3.9,1.6,"DT")="3001025"
^DD(3.9,1.7,0)="MESSAGE TYPE^F^^0;7^K:$L(X)>3!($L(X)<1) X"
^DD(3.9,1.7,.1)=""
^DD(3.9,1.7,3)="Answer must be 1-3 characters in length."
^DD(3.9,1.7,21,0)="^^17^17^3020422^^^^"
^DD(3.9,1.7,21,1,0)="This field enables MailMan to differentiate among types of messages."
^DD(3.9,1.7,21,2,0)="Spooled documents must be handled partially through an interface to the"
^DD(3.9,1.7,21,3,0)="'spooler'.  Word processing documents are handled differently from"
^DD(3.9,1.7,21,4,0)="ordinary messages."
^DD(3.9,1.7,21,5,0)=" "
^DD(3.9,1.7,21,6,0)="This field is set within MailMan to any combination of the valid codes,"
^DD(3.9,1.7,21,7,0)="e.g. ""XPB"" would indicate a PackMan message which includes a BLOB,"
^DD(3.9,1.7,21,8,0)="and marked by the user for priority delivery."
^DD(3.9,1.7,21,9,0)=""
^DD(3.9,1.7,21,10,0)=" TYPE   MEANING"
^DD(3.9,1.7,21,11,0)=" D      Document"
^DD(3.9,1.7,21,12,0)=" S      Spooled Document"
^DD(3.9,1.7,21,13,0)=" X      DIFROM (PackMan) Installable Message"
^DD(3.9,1.7,21,14,0)=" O      ODIF Format"
^DD(3.9,1.7,21,15,0)=" B      BLOB (eg. MIME) contained within"
^DD(3.9,1.7,21,16,0)=" K      KIDS Distribution"
^DD(3.9,1.7,21,17,0)=" P      Priority"
^DD(3.9,1.7,"DT")="3020422"
^DD(3.9,1.8,0)="SCRAMBLE HINT^F^^0;10^K:$L(X)>40!($L(X)<1) X"
^DD(3.9,1.8,.1)=""
^DD(3.9,1.8,3)="Answer must be 1-40 characters in length."
^DD(3.9,1.8,21,0)="^^7^7^2970225^^^^"
^DD(3.9,1.8,21,1,0)="A scramble hint is used to suggest to the reader what the scramble password is."
^DD(3.9,1.8,21,2,0)="Since the password is not recoverable after it is entered, and since the reader"
^DD(3.9,1.8,21,3,0)="must supply the password in order to read the message, the hint can be a"
^DD(3.9,1.8,21,4,0)="helpful reminder to the reader of the message. "
^DD(3.9,1.8,21,5,0)=""
^DD(3.9,1.8,21,6,0)="The hint will be shown to the reader just before the reader is asked to enter"
^DD(3.9,1.8,21,7,0)="the password."
^DD(3.9,1.8,"DT")="2970225"
^DD(3.9,1.85,0)="SCRAMBLE KEY^FI^^K;E1,200^K:$L(X)>200!($L(X)<3) X"
^DD(3.9,1.85,3)="Answer must be 3-20 characters in length."
^DD(3.9,1.85,21,0)="^^3^3^2970225^^^^"
^DD(3.9,1.85,21,1,0)="The scramble password is a secret code which must be entered by the reader in"
^DD(3.9,1.85,21,2,0)="order to see the message.  Upper and lower case characters are treated the"
^DD(3.9,1.85,21,3,0)="same.  (The password is not case sensitive.) "
^DD(3.9,1.85,23,0)="^^3^3^2970225^^^"
^DD(3.9,1.85,23,1,0)="The key is stored in scrambled form.  First character=1 indicates that"
^DD(3.9,1.85,23,2,0)="scrambling is done in standard bazaries cylinder form.  Other first"
^DD(3.9,1.85,23,3,0)="characters are reserved."
^DD(3.9,1.85,"DT")="2970225"
^DD(3.9,1.95,0)="CLOSED MESSAGE?^S^y:YES;n:NO;^0;9^Q"
^DD(3.9,1.95,.1)=" "
^DD(3.9,1.95,3)="If closed, message may not be forwarded or copied by recipients."
^DD(3.9,1.95,21,0)="^^2^2^2881121^^^^"
^DD(3.9,1.95,21,1,0)="This field, if set to 'yes', means that recipients may not forward or"
^DD(3.9,1.95,21,2,0)="copy the message.  "
^DD(3.9,1.95,"DT")="2850419"
^DD(3.9,1.96,0)="CONFIDENTIAL?^S^y:YES;n:NO;^0;11^Q"
^DD(3.9,1.96,3)="If confidential, surrogates may not read message."
^DD(3.9,1.96,21,0)="^^2^2^2851004^"
^DD(3.9,1.96,21,1,0)="This field, if set to ""yes"", means that surrogates of the recipients"
^DD(3.9,1.96,21,2,0)="may not read this message."
^DD(3.9,1.96,"DT")="2850419"
^DD(3.9,1.97,0)="INFORMATION ONLY?^S^y:YES;n:NO;^0;12^Q"
^DD(3.9,1.97,3)="If ""YES"", the message will be considered ""INFORMATION ONLY"" for all recipients."
^DD(3.9,1.97,21,0)="^^8^8^2860210^"
^DD(3.9,1.97,21,1,0)="This field, if set to ""YES"", will cause all recipients to be considered"
^DD(3.9,1.97,21,2,0)="""INFORMATION ONLY"", which disables responses to the message. "
^DD(3.9,1.97,21,3,0)=" "
^DD(3.9,1.97,21,4,0)="If a sender wishes to individually restrict responses, ""INFO:"" before"
^DD(3.9,1.97,21,5,0)="the recipient's names will restrict their responses."
^DD(3.9,1.97,21,6,0)=" "
^DD(3.9,1.97,21,7,0)="Messages which are broadcast (by naming a recipient ""*""), are automatically"
^DD(3.9,1.97,21,8,0)="set to INFORMATION ONLY."
^DD(3.9,1.97,"DT")="2860210"
^DD(3.9,2,0)="RECIPIENT^3.91A^^1;0"
^DD(3.9,2,21,0)="^^4^4^2970902^^^^"
^DD(3.9,2,21,1,0)="This is a list of all recipients of this message.  MailMan automatically"
^DD(3.9,2,21,2,0)="tracks each recipient's progress through the response chain, when"
^DD(3.9,2,21,3,0)="they last read it, who forwarded or copied the message, etc.  This "
^DD(3.9,2,21,4,0)="information is displayed with the Query option after reading the message."
^DD(3.9,3,0)="TEXT^3.92A^^2;0"
^DD(3.9,3,21,0)="^^2^2^2931214^^^^"
^DD(3.9,3,21,1,0)="This is the actual text of the message.  It is stored without the"
^DD(3.9,3,21,2,0)="wrap-around logic, in a line-by-line format."
^DD(3.9,8,0)="RESPONSE^3.9001PA^^3;0"
^DD(3.9,8,.1)="LIST OF RESPONSES TO THIS MESSAGE"
^DD(3.9,8,21,0)="^^3^3^2881121^^^"
^DD(3.9,8,21,1,0)="This is a list of the responses to the message.  Each response is"
^DD(3.9,8,21,2,0)="a separate message, with a subject of ""R"" followed by this response"
^DD(3.9,8,21,3,0)="number."
^DD(3.9,9,0)="INCOMING MESSAGE ID^FI^^5;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>110!($L(X)<2) X"
^DD(3.9,9,1,0)="^.1"
^DD(3.9,9,1,1,0)="3.9^AI^MUMPS"
^DD(3.9,9,1,1,1)="I X[""@"",$L($P(X,""@"",1)),$L($P(X,""@"",2)) S ^XMBX(3.9,""AI"",$E($P(X,""@"",2),1,64),$E($P(X,""@"",1),1,64),DA)=DT"
^DD(3.9,9,1,1,2)="Q"
^DD(3.9,9,1,1,"%D",0)="^^12^12^2990218^^^^"
^DD(3.9,9,1,1,"%D",1,0)="This cross reference keeps track of messages that have already been"
^DD(3.9,9,1,1,"%D",2,0)="received from other sites."
^DD(3.9,9,1,1,"%D",3,0)=""
^DD(3.9,9,1,1,"%D",4,0)="This index is used to retrieve remote messages which have been transmitted"
^DD(3.9,9,1,1,"%D",5,0)="from other domains.  For example, if message 123 from loma-linda has"
^DD(3.9,9,1,1,"%D",6,0)="been sent to another site, that other site could inquire against "
^DD(3.9,9,1,1,"%D",7,0)="message ID ""loma-linda@123"", to find out if the message had been "
^DD(3.9,9,1,1,"%D",8,0)="received yet."
^DD(3.9,9,1,1,"%D",9,0)=" "
^DD(3.9,9,1,1,"%D",10,0)="This index is also used to prevent messages from looping around the"
^DD(3.9,9,1,1,"%D",11,0)="network.  The MailMan receiver will not allow the same message to be"
^DD(3.9,9,1,1,"%D",12,0)="received twice at the same site."
^DD(3.9,9,1,1,"DT")="2990218"
^DD(3.9,9,3)="Answer must be 2-110 characters in length."
^DD(3.9,9,21,0)="^^4^4^2990122^^^^"
^DD(3.9,9,21,1,0)="If this is a message which has been received from a remote site,"
^DD(3.9,9,21,2,0)="its Message ID, as contained in the message header, is stored here."
^DD(3.9,9,21,3,0)=""
^DD(3.9,9,21,4,0)="Its format is usually <message ID@domain name>."
^DD(3.9,9,"DT")="2990218"
^DD(3.9,9.5,0)="IN REPLY TO REMOTE MESSAGE ID^F^^IN;1^K:$L(X)>110!($L(X)<2) X"
^DD(3.9,9.5,3)="Answer must be 2-110 characters in length."
^DD(3.9,9.5,21,0)="^^4^4^2990122^^^^"
^DD(3.9,9.5,21,1,0)="When a user responds to a message from a remote user,"
^DD(3.9,9.5,21,2,0)="the INCOMING MESSAGE ID (field 9) of the original message"
^DD(3.9,9.5,21,3,0)="is copied and placed here."
^DD(3.9,9.5,21,4,0)="Its format is <domain@message id>."
^DD(3.9,9.5,"DT")="2970728"
^DD(3.9,10,0)="ADDRESSED TO^3.911A^^6;0"
^DD(3.9,10,21,0)="^^6^6^2970516^^^^"
^DD(3.9,10,21,1,0)="There are two parts to addressing a message.  The first part occurs when"
^DD(3.9,10,21,2,0)="the user enters the 'names' (addresses) to which the message will be sent."
^DD(3.9,10,21,3,0)="The second part occurs when Mail Groups are 'Expanded'.  The 'names' the"
^DD(3.9,10,21,4,0)="user enters will be recorded here.  The expanded list is in a multiple"
^DD(3.9,10,21,5,0)="titled 'Recipients'.  Old messages may not have 'ADDRESSED TO' data if they"
^DD(3.9,10,21,6,0)="were originated before MailMan recorded these two pieces of data separately."
^DD(3.9,14,0)="LATER DELIVERY TO^3.914^^7;0"
^DD(3.9,21,0)="DELIVERY BASKET^F^^.5;1^K:$L(X)>30!($L(X)<2) X"
^DD(3.9,21,3)="Answer must be 2-30 characters in length."
^DD(3.9,21,21,0)="^^2^2^2980515^^^"
^DD(3.9,21,21,1,0)="The Delivery Basket is the basket into which the message will be delivered"
^DD(3.9,21,21,2,0)="for each recipient.  It overrides any filters."
^DD(3.9,21,"DT")="2980513"
^DD(3.9,31,0)="LOCAL CREATE DATE^D^^.6;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(3.9,31,1,0)="^.1"
^DD(3.9,31,1,1,0)="3.9^C"
^DD(3.9,31,1,1,1)="S ^XMB(3.9,""C"",$E(X,1,30),DA)="""""
^DD(3.9,31,1,1,2)="K ^XMB(3.9,""C"",$E(X,1,30),DA)"
^DD(3.9,31,1,1,"%D",0)="^^2^2^2980917^"
^DD(3.9,31,1,1,"%D",1,0)="This xref is used by the date purge and by the unreferenced messages"
^DD(3.9,31,1,1,"%D",2,0)="purge."
^DD(3.9,31,1,1,"DT")="2980917"
^DD(3.9,31,3)="Enter the date this message was created."
^DD(3.9,31,21,0)="^^2^2^2980918^^"
^DD(3.9,31,21,1,0)="This is the date this message was created and added to the message file."
^DD(3.9,31,21,2,0)="It is used, via the ""C"" xref, to select messages for purging."
^DD(3.9,31,"DT")="2980917"
^DD(3.9,41,0)="ENVELOPE FROM^F^^.7;1^K:$L(X)>99!($L(X)<1) X"
^DD(3.9,41,3)="Answer must be 1-99 characters in length."
^DD(3.9,41,21,0)="^^5^5^2981015^"
^DD(3.9,41,21,1,0)="This is the 'from' as stated in the message envelope on an incoming"
^DD(3.9,41,21,2,0)="network message."
^DD(3.9,41,21,3,0)="HELO ..."
^DD(3.9,41,21,4,0)="MAIL FROM:<envelope from>"
^DD(3.9,41,21,5,0)="RCPT TO: ..."
^DD(3.9,41,"DT")="2981015"
^DD(3.9,2005,0)="OBJECTS - OTHER BODY PARTS^3.92005P^^2005;0"
^DD(3.9,2005,21,0)="^^2^2^2931214^"
^DD(3.9,2005,21,1,0)="Pointers to the Object file are stored here as attachments"
^DD(3.9,2005,21,2,0)="to multimedia messages."
^DD(3.9,2005,23,0)="^^1^1^2931214^"
^DD(3.9,2005,23,1,0)="The pointers in this field point at the OBJECT file (2005)."
^DD(3.9,"B"," ",1.95)="1"
^DD(3.9,"B","ADDRESSED TO",10)=""
^DD(3.9,"B","CLOSED MESSAGE?",1.95)=""
^DD(3.9,"B","CONFIDENTIAL?",1.96)=""
^DD(3.9,"B","CONFIRMATION REQUESTED?",1.3)=""
^DD(3.9,"B","DELIVERY BASKET",21)=""
^DD(3.9,"B","ENVELOPE FROM",41)=""
^DD(3.9,"B","FROM",1)=""
^DD(3.9,"B","IN REPLY TO REMOTE MESSAGE ID",9.5)=""
^DD(3.9,"B","INCOMING MESSAGE ID",9)=""
^DD(3.9,"B","INFORMATION ONLY?",1.97)=""
^DD(3.9,"B","LATER DELIVERY TO",14)=""
^DD(3.9,"B","LOCAL CREATE DATE",31)=""
^DD(3.9,"B","MESSAGE TYPE",1.7)=""
^DD(3.9,"B","NUMBER",.001)=""
^DD(3.9,"B","OBJECTS - OTHER BODY PARTS",2005)=""
^DD(3.9,"B","ORIGINAL MESSAGE",1.35)=""
^DD(3.9,"B","PURGE DATE",1.6)=""
^DD(3.9,"B","RECIPIENT",2)=""
^DD(3.9,"B","RESPONSE",8)=""
^DD(3.9,"B","SCRAMBLE HINT",1.8)=""
^DD(3.9,"B","SCRAMBLE KEY",1.85)=""
^DD(3.9,"B","SENDER",1.1)=""
^DD(3.9,"B","SENT DATE/TIME",1.4)=""
^DD(3.9,"B","SUBJECT",.01)=""
^DD(3.9,"B","TEXT",3)=""
^DD(3.9,"GL",0,1,.01)=""
^DD(3.9,"GL",0,2,1)=""
^DD(3.9,"GL",0,3,1.4)=""
^DD(3.9,"GL",0,4,1.1)=""
^DD(3.9,"GL",0,5,1.3)=""
^DD(3.9,"GL",0,6,1.6)=""
^DD(3.9,"GL",0,7,1.7)=""
^DD(3.9,"GL",0,8,1.35)=""
^DD(3.9,"GL",0,9,1.95)=""
^DD(3.9,"GL",0,10,1.8)=""
^DD(3.9,"GL",0,11,1.96)=""
^DD(3.9,"GL",0,12,1.97)=""
^DD(3.9,"GL",.5,1,21)=""
^DD(3.9,"GL",.6,1,31)=""
^DD(3.9,"GL",.7,1,41)=""
^DD(3.9,"GL",1,0,2)=""
^DD(3.9,"GL",2,0,3)=""
^DD(3.9,"GL",3,0,8)=""
^DD(3.9,"GL",5,1,9)=""
^DD(3.9,"GL",6,0,10)=""
^DD(3.9,"GL",7,0,14)=""
^DD(3.9,"GL",2005,0,2005)=""
^DD(3.9,"GL","IN",1,9.5)=""
^DD(3.9,"GL","K","E1,200",1.85)=""
^DD(3.9,"IX",.01)=""
^DD(3.9,"IX",9)=""
^DD(3.9,"IX",31)=""
^DD(3.9,"RQ",.01)=""
^DD(3.9,"RQ",1)=""
^DD(3.9,"SB",3.9001,8)=""
^DD(3.9,"SB",3.91,2)=""
^DD(3.9,"SB",3.911,10)=""
^DD(3.9,"SB",3.914,14)=""
^DD(3.9,"SB",3.92,3)=""
^DD(3.9,"SB",3.92005,2005)=""
^DD(3.9001,0)="RESPONSE SUB-FIELD^NL^.01^1"
^DD(3.9001,0,"DT")="2940705"
^DD(3.9001,0,"NM","RESPONSE")=""
^DD(3.9001,0,"UP")="3.9"
^DD(3.9001,.01,0)="RESPONSE^MP3.9'I^XMB(3.9,^0;1^Q"
^DD(3.9001,.01,.1)="This is a list of the responses to this message."
^DD(3.9001,.01,3)=""
^DD(3.9001,.01,21,0)="^^1^1^2851009^"
^DD(3.9001,.01,21,1,0)="This is a response to this message."
^DD(3.9001,.01,"DT")="2851004"
^DD(3.9001,"B","RESPONSE",.01)=""
^DD(3.9001,"GL",0,1,.01)=""
^DD(3.91,0)="RECIPIENT SUB-FIELD^NL^15^23"
^DD(3.91,0,"DT")="3011128"
^DD(3.91,0,"IX","AFAX",3.91,13)=""
^DD(3.91,0,"IX","AQUEUE",3.91,6)=""
^DD(3.91,0,"IX","C",3.91,.01)=""
^DD(3.91,0,"NM","RECIPIENT")=""
^DD(3.91,0,"UP")="3.9"
^DD(3.91,.01,0)="RECIPIENT^MFI^^0;1^K:$L(X)>85!($L(X)<1) X"
^DD(3.91,.01,.1)="The recipient user number or network address"
^DD(3.91,.01,1,0)="^.1"
^DD(3.91,.01,1,1,0)="3.91^C"
^DD(3.91,.01,1,1,1)="S ^XMB(3.9,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(3.91,.01,1,1,2)="K ^XMB(3.9,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(3.91,.01,1,1,"DT")="2960305"
^DD(3.91,.01,3)="Answer must be 1-85 characters in length."
^DD(3.91,.01,21,0)="^.001^1^1^3020415^^^^"
^DD(3.91,.01,21,1,0)="The name of a recipient of this message."
^DD(3.91,.01,23,0)="^.001^1^1^3020415^^"
^DD(3.91,.01,23,1,0)="In a future patch, the field should be lengthened, perhaps to 99."
^DD(3.91,.01,"DT")="2970730"
^DD(3.91,1,0)="LAST RESPONSE READ^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.91,1,.1)="Last response read, if this is a shared response message."
^DD(3.91,1,1,0)="^.1^^0"
^DD(3.91,1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(3.91,1,21,0)="^^3^3^2970728^^^^"
^DD(3.91,1,21,1,0)="The last response which this recipient read."
^DD(3.91,1,21,2,0)=""
^DD(3.91,1,21,3,0)="It actually points into 3.9001, the Response multiple for this message."
^DD(3.91,1,"DT")="2970728"
^DD(3.91,2,0)="LAST READ DATE/TIME^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.91,2,.1)="Date/Time message was last read by recipient"
^DD(3.91,2,3)=""
^DD(3.91,2,21,0)="^^1^1^2970730^^^^"
^DD(3.91,2,21,1,0)="The date and time this recipient last read this message."
^DD(3.91,2,"DT")="2970730"
^DD(3.91,3,0)="REMOTE MESSAGE ID^F^^0;4^K:$L(X)>45!($L(X)<3) X"
^DD(3.91,3,.1)="The identifier of the message as accepted by the remote site"
^DD(3.91,3,1,0)="^.1^^0"
^DD(3.91,3,3)="Answer must be 3-45 characters in length."
^DD(3.91,3,21,0)="^^2^2^2970730^^^"
^DD(3.91,3,21,1,0)="The identifier of the message at the remote location."
^DD(3.91,3,21,2,0)="Format: message ID@site"
^DD(3.91,3,23,0)="^^1^1^2970811^"
^DD(3.91,3,23,1,0)="In a future patch, this field should be lengthened, perhaps to 110 chars."
^DD(3.91,3,"DT")="2970728"
^DD(3.91,4,0)="TRANSMISSION DATE/TIME^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.91,4,.1)="THE DATE/TIME A REMOTE MESSAGE WAS SENT "
^DD(3.91,4,21,0)="^^1^1^2970730^^"
^DD(3.91,4,21,1,0)="The date and time the remote message was transmitted."
^DD(3.91,4,"DT")="2970730"
^DD(3.91,5,0)="STATUS^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(3.91,5,.1)="Any error messages or comments by the receiver, if not delivered"
^DD(3.91,5,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(3.91,5,21,0)="^^12^12^2970902^^"
^DD(3.91,5,21,1,0)="This field holds the status of the recipient, if the recipient is other"
^DD(3.91,5,21,2,0)="than a local user.  If this is a device, the status is ""Awaiting Device"""
^DD(3.91,5,21,3,0)="until the device has printed the message.  If this is a server, the"
^DD(3.91,5,21,4,0)="status will be ""Awaiting Server"" until the server has read the message."
^DD(3.91,5,21,5,0)="In either of the above cases, the status becomes ""done"" when the process"
^DD(3.91,5,21,6,0)="is complete, and ""Last read"" field describes when the process was complete."
^DD(3.91,5,21,7,0)=" "
^DD(3.91,5,21,8,0)="If the recipient is a remote user, the status is ""awaiting transmission"""
^DD(3.91,5,21,9,0)="and the Path field names the queue in which the message is waiting.  When"
^DD(3.91,5,21,10,0)="the message has been sent, the Transmission date is set, the remote message"
^DD(3.91,5,21,11,0)="ID is set to the other domain's message number (providing bi-directional"
^DD(3.91,5,21,12,0)="linkage of messages), and the Path field is cleared."
^DD(3.91,5,"DT")="2840120"
^DD(3.91,6,0)="PATH^P4.2'^DIC(4.2,^0;7^Q"
^DD(3.91,6,1,0)="^.1"
^DD(3.91,6,1,1,0)="3.91^AQUEUE"
^DD(3.91,6,1,1,1)="S ^XMB(3.9,DA(1),1,""AQUEUE"",$E(X,1,30),DA)="""""
^DD(3.91,6,1,1,2)="K ^XMB(3.9,DA(1),1,""AQUEUE"",$E(X,1,30),DA)"
^DD(3.91,6,1,1,"%D",0)="^^2^2^2920920^"
^DD(3.91,6,1,1,"%D",1,0)="This cross reference makes it possible for network mail transmissions to"
^DD(3.91,6,1,1,"%D",2,0)="immediately find the recipients to transmit a message to."
^DD(3.91,6,1,1,"DT")="2920920"
^DD(3.91,6,21,0)="^^4^4^2840410^"
^DD(3.91,6,21,1,0)="This field points to the queue in which this message resides.  After"
^DD(3.91,6,21,2,0)="transmission, the REMOTE MESSAGE ID field holds the message number and"
^DD(3.91,6,21,3,0)="site to which the message was transmitted (which may be only a relay"
^DD(3.91,6,21,4,0)="point)."
^DD(3.91,6,"DT")="2920920"
^DD(3.91,6.5,0)="TYPE OF RECIPIENT^S^C:cc;I:Info;^T;1^Q"
^DD(3.91,6.5,21,0)="^^10^10^2990225^^^^"
^DD(3.91,6.5,21,1,0)="This field indicates what type of recipient this is."
^DD(3.91,6.5,21,2,0)=" "
^DD(3.91,6.5,21,3,0)="CC:  indicates that the recipient is being sent a copy, but is not the"
^DD(3.91,6.5,21,4,0)="primary recipient.  He may reply."
^DD(3.91,6.5,21,5,0)=" "
^DD(3.91,6.5,21,6,0)="INFO: indicates that the recipient may not reply to the message; the"
^DD(3.91,6.5,21,7,0)="message is being transmitted to him for information purposes only."
^DD(3.91,6.5,21,8,0)=" "
^DD(3.91,6.5,21,9,0)="These flags are set by the ""Send to:"" prompt by including them before a"
^DD(3.91,6.5,21,10,0)="recipient name.  ""CC:JONES"" would put JONES on the CC: list."
^DD(3.91,6.5,21,11,0)=" "
^DD(3.91,6.5,21,12,0)="These flags are set by the ""Send to:"" prompt by including them before a"
^DD(3.91,6.5,21,13,0)="message: ""CC:JONES"" would put JONES on the CC: list."
^DD(3.91,6.5,"DT")="2970811"
^DD(3.91,6.6,0)="APPROVAL^F^^T;2^K:$L(X)>65!($L(X)<1) X"
^DD(3.91,6.6,3)="ANSWER MUST BE 1-65 CHARACTERS IN LENGTH"
^DD(3.91,6.6,21,0)="^^2^2^2841130^"
^DD(3.91,6.6,21,1,0)="This field is set whenever the  the recipient is named as a THRU: type, and issues the"
^DD(3.91,6.6,21,2,0)="approval command after reading it."
^DD(3.91,6.6,"DT")="2841130"
^DD(3.91,7,0)="TERMINATION DATE^D^^D;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(3.91,7,21,0)="^^7^7^2900319^^^"
^DD(3.91,7,21,1,0)="This field, if set, inhibits MailMan from sending future replies to this"
^DD(3.91,7,21,2,0)="message, allowing him to ""drop out"" of a conversation.  This is accomplished"
^DD(3.91,7,21,3,0)="with the ""Terminate"" option."
^DD(3.91,7,21,4,0)=" "
^DD(3.91,7,21,5,0)="This field is displayed whenever a recipient queries the message.  The"
^DD(3.91,7,21,6,0)="drop-outs will have the notation ""Terminated: mm/dd/yy"" in their status"
^DD(3.91,7,21,7,0)="line."
^DD(3.91,7,"DT")="2840424"
^DD(3.91,8,0)="FORWARDED BY^FI^^F;1^K:$L(X)>110!($L(X)<1) X"
^DD(3.91,8,3)="Answer must be 1-110 characters in length."
^DD(3.91,8,21,0)="^^3^3^2970728^^^"
^DD(3.91,8,21,1,0)="When a message is forwarded to another user, this field names the"
^DD(3.91,8,21,2,0)="person who did the forwarding, along with the date and time that this"
^DD(3.91,8,21,3,0)="was done.  It is displayed in the query option after reading."
^DD(3.91,8,"DT")="2970728"
^DD(3.91,8.01,0)="FORWARDED BY (XMDUZ)^P200'^VA(200,^F;2^Q"
^DD(3.91,8.01,3)="Who forwarded the message to this recipient?"
^DD(3.91,8.01,21,0)="^^2^2^2970728^^"
^DD(3.91,8.01,21,1,0)="This field uses the XMDUZ variable to identify the user who"
^DD(3.91,8.01,21,2,0)="forwarded the message."
^DD(3.91,8.01,"DT")="2970728"
^DD(3.91,8.02,0)="FWD TYPE^S^F:Filter-Forward;A:Auto-Forward;R:Regular-Forward;^F;3^Q"
^DD(3.91,8.02,3)="What kind of forwarding?"
^DD(3.91,8.02,21,0)="^.001^11^11^3011128^^"
^DD(3.91,8.02,21,1,0)="Regular-Forward - A user simply forwarded this message to the recipient"
^DD(3.91,8.02,21,2,0)="in the .01 field.  This is the default, if this field is null."
^DD(3.91,8.02,21,3,0)=""
^DD(3.91,8.02,21,4,0)="Auto-Forward - A user has a forwarding address listing the recipient"
^DD(3.91,8.02,21,5,0)="in the .01 field.  This message was sent to the user and then"
^DD(3.91,8.02,21,6,0)="automatically forwarded to the recipient."
^DD(3.91,8.02,21,7,0)=""
^DD(3.91,8.02,21,8,0)="Filter-Forward - A user has an active message filter listing the"
^DD(3.91,8.02,21,9,0)="recipient in the .01 field as a ""forward to"" person.  This message was"
^DD(3.91,8.02,21,10,0)="sent to the user and then automatically forwarded to the recipient"
^DD(3.91,8.02,21,11,0)="during message delivery."
^DD(3.91,8.02,"DT")="3011128"
^DD(3.91,8.03,0)="FWD BY ORIGINAL^F^^F;4^K:$L(X)>110!($L(X)<1) X"
^DD(3.91,8.03,3)="Answer must be 1-110 characters in length."
^DD(3.91,8.03,21,0)="^^3^3^3011128^"
^DD(3.91,8.03,21,1,0)="This field is only used if FWD TYPE is Auto-Forward."
^DD(3.91,8.03,21,2,0)="This field lists the original user (and possibly the user's surrogate)"
^DD(3.91,8.03,21,3,0)="who forwarded the message to the user with the forwarding address."
^DD(3.91,8.03,"DT")="3011128"
^DD(3.91,8.04,0)="FWD TYPE ORIGINAL^S^F:Filter-Forward;R:Regular-Forward;^F;5^Q"
^DD(3.91,8.04,3)="What kind of forwarding, originally?"
^DD(3.91,8.04,21,0)="^^14^14^3011128^"
^DD(3.91,8.04,21,1,0)="This field is only used if FWD TYPE is Auto-Forward.  This field reveals"
^DD(3.91,8.04,21,2,0)="how the message was forwarded to the user who had the forwarding address"
^DD(3.91,8.04,21,3,0)="listing the recipient in the .01 field."
^DD(3.91,8.04,21,4,0)=""
^DD(3.91,8.04,21,5,0)="Regular-Forward - A user simply forwarded this message to the user with"
^DD(3.91,8.04,21,6,0)="the forwarding address.  This is the default, if this field is null."
^DD(3.91,8.04,21,7,0)=""
^DD(3.91,8.04,21,8,0)="Filter-Forward - A user has an active message filter listing the user"
^DD(3.91,8.04,21,9,0)="with the forwarding address as a ""forward to"" person.  This message was"
^DD(3.91,8.04,21,10,0)="sent to the user and then automatically forwarded to the user during"
^DD(3.91,8.04,21,11,0)="message delivery."
^DD(3.91,8.04,21,12,0)=""
^DD(3.91,8.04,21,13,0)="Note that Auto-Forward is not a possibility, because Auto-Forward is"
^DD(3.91,8.04,21,14,0)="allowed only to remote recipients or to devices or servers."
^DD(3.91,8.04,"DT")="3011128"
^DD(3.91,8.5,0)="COPIED DATE/TIME^F^^C;1^K:$L(X)>15!($L(X)<1) X"
^DD(3.91,8.5,3)="Answer must be 1-15 characters in length."
^DD(3.91,8.5,21,0)="^^3^3^3020422^^^^"
^DD(3.91,8.5,21,1,0)="When a message is copied by a user, this field indicates the date and"
^DD(3.91,8.5,21,2,0)="time at which this was done."
^DD(3.91,8.5,21,3,0)="It is displayed in the query option after reading the message."
^DD(3.91,8.5,23,0)="^^4^4^3020422^"
^DD(3.91,8.5,23,1,0)="Before patch XM*7.1*110, this field was in external format."
^DD(3.91,8.5,23,2,0)="After that patch, this field is in internal FileMan format."
^DD(3.91,8.5,23,3,0)="The data have not been changed, so you may see either format,"
^DD(3.91,8.5,23,4,0)="depending on when the message was copied."
^DD(3.91,8.5,"DT")="3020422"
^DD(3.91,9,0)="NETWORK TRANSMISSION TIME^NJ6,0I^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.91,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(3.91,9,21,0)="^^2^2^2970730^^"
^DD(3.91,9,21,1,0)="This field records the elapsed time (in seconds) during a network"
^DD(3.91,9,21,2,0)="transmission."
^DD(3.91,9,"DT")="2880222"
^DD(3.91,10,0)="PRIORITY RESPONSES?^S^0:YES;1:NO;^0;9^Q"
^DD(3.91,10,21,0)="^^5^5^2980729^^^^"
^DD(3.91,10,21,1,0)="This field overrides the MESSAGE TYPE field in the zero node of the "
^DD(3.91,10,21,2,0)="message, but only if it contains a ""P"".  In this way, some recipients can "
^DD(3.91,10,21,3,0)="keep receiving responses to a 'Priority Message' as priority mail, while"
^DD(3.91,10,21,4,0)="others may choose not to.  One cannot, however, force the responses of an"
^DD(3.91,10,21,5,0)="ordinary message to be delivered as 'Priority Mail'."
^DD(3.91,10,"DT")="2970728"
^DD(3.91,11,0)="FIRST READ DATE/TIME^D^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(3.91,11,21,0)="^^2^2^2970730^^^"
^DD(3.91,11,21,1,0)="Into this field is set the date and time that a message was first seen"
^DD(3.91,11,21,2,0)="by the recipient."
^DD(3.91,11,"DT")="2970730"
^DD(3.91,12,0)="SURROGATE READER^F^^S;1^K:$L(X)>35!($L(X)<3) X"
^DD(3.91,12,3)="Answer must be 3-35 characters in length."
^DD(3.91,12,21,0)="^^1^1^2960403^^"
^DD(3.91,12,21,1,0)="This is the name of the surrogate who last read this message."
^DD(3.91,12,"DT")="2960403"
^DD(3.91,13,0)="FAX RECIPIENT^P589499'^AKF(""FAXR"",^0;11^Q"
^DD(3.91,13,1,0)="^.1"
^DD(3.91,13,1,1,0)="3.91^AFAX"
^DD(3.91,13,1,1,1)="S ^XMB(3.9,DA(1),1,""AFAX"",$E(X,1,30),DA)="""""
^DD(3.91,13,1,1,2)="K ^XMB(3.9,DA(1),1,""AFAX"",$E(X,1,30),DA)"
^DD(3.91,13,1,1,"%D",0)="^^2^2^2970114^^"
^DD(3.91,13,1,1,"%D",1,0)="This cross reference makes it possible for MailMan to immediately find the"
^DD(3.91,13,1,1,"%D",2,0)="recipients to fax a message to. "
^DD(3.91,13,1,1,"DT")="2970110"
^DD(3.91,13,3)="Enter the fax recipient"
^DD(3.91,13,21,0)="^^4^4^2970211^^^^"
^DD(3.91,13,21,1,0)="When the message is addressed to a fax recipient, this field points to the fax"
^DD(3.91,13,21,2,0)="rolodex file.  After the message is handed off to the fax software,"
^DD(3.91,13,21,3,0)="the pointer in this field is deleted and the Fax ID field is set to the fax ID"
^DD(3.91,13,21,4,0)="number assigned to it by the fax software."
^DD(3.91,13,"DT")="2970211"
^DD(3.91,14,0)="FAX ID^F^^0;12^K:$L(X)>14!($L(X)<1) X"
^DD(3.91,14,3)="Answer must be 1-14 characters in length."
^DD(3.91,14,21,0)="^^1^1^2970211^"
^DD(3.91,14,21,1,0)="This is the fax ID as assigned by the fax software (AKF*)."
^DD(3.91,14,"DT")="2970211"
^DD(3.91,15,0)="FILTER FORWARD^NJ3,0^^0;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(3.91,15,1,0)="^.1^^0"
^DD(3.91,15,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(3.91,15,21,0)="^.001^6^6^3001017^^^"
^DD(3.91,15,21,1,0)="This is the IEN of the user's filter which was activated during message"
^DD(3.91,15,21,2,0)="delivery.  The filter indicates that this message should be forwarded"
^DD(3.91,15,21,3,0)="to the addressees listed in the FORWARD TO multiple of the activated"
^DD(3.91,15,21,4,0)="filter."
^DD(3.91,15,21,5,0)=""
^DD(3.91,15,21,6,0)="If this field is set to zero, the message has been forwarded."
^DD(3.91,15,23,0)="^.001^14^14^3001017^^"
^DD(3.91,15,23,1,0)="When this field is set to a positive number (the IEN of the user's"
^DD(3.91,15,23,2,0)="activated filter), it causes the whole-file ""AF"" xref to be set."
^DD(3.91,15,23,3,0)=""
^DD(3.91,15,23,4,0)="Routine ^XMTDT checks for the existence of the ""AF"" xref.  It will do"
^DD(3.91,15,23,5,0)="the actual forwarding of the message.  Once it finishes forwarding,"
^DD(3.91,15,23,6,0)="it will set this field to zero, which will kill the xref and won't"
^DD(3.91,15,23,7,0)="reset it."
^DD(3.91,15,23,8,0)=""
^DD(3.91,15,23,9,0)="If the field is null, filter forwarding has not yet occurred for this"
^DD(3.91,15,23,10,0)="message for this user."
^DD(3.91,15,23,11,0)=""
^DD(3.91,15,23,12,0)="If the field is not null, it means that the message has already been"
^DD(3.91,15,23,13,0)="(or is scheduled to be) filter forwarded once for this user, and"
^DD(3.91,15,23,14,0)="should not be filter forwarded again for this user."
^DD(3.91,15,"DT")="3001017"
^DD(3.91,"B","APPROVAL",6.6)=""
^DD(3.91,"B","COPIED DATE/TIME",8.5)=""
^DD(3.91,"B","FAX ID",14)=""
^DD(3.91,"B","FAX RECIPIENT",13)=""
^DD(3.91,"B","FILTER FORWARD",15)=""
^DD(3.91,"B","FIRST READ DATE/TIME",11)=""
^DD(3.91,"B","FORWARDED BY",8)=""
^DD(3.91,"B","FORWARDED BY (XMDUZ)",8.01)=""
^DD(3.91,"B","FWD BY ORIGINAL",8.03)=""
^DD(3.91,"B","FWD TYPE",8.02)=""
^DD(3.91,"B","FWD TYPE ORIGINAL",8.04)=""
^DD(3.91,"B","LAST READ DATE/TIME",2)=""
^DD(3.91,"B","LAST RESPONSE READ",1)=""
^DD(3.91,"B","NETWORK TRANSMISSION TIME",9)=""
^DD(3.91,"B","PATH",6)=""
^DD(3.91,"B","PRIORITY RESPONSES?",10)=""
^DD(3.91,"B","RECIPIENT",.01)=""
^DD(3.91,"B","REMOTE MESSAGE ID",3)=""
^DD(3.91,"B","STATUS",5)=""
^DD(3.91,"B","SURROGATE READER",12)=""
^DD(3.91,"B","TERMINATION DATE",7)=""
^DD(3.91,"B","TRANSMISSION DATE/TIME",4)=""
^DD(3.91,"B","TYPE OF RECIPIENT",6.5)=""
^DD(3.91,"GL",0,1,.01)=""
^DD(3.91,"GL",0,2,1)=""
^DD(3.91,"GL",0,3,2)=""
^DD(3.91,"GL",0,4,3)=""
^DD(3.91,"GL",0,5,4)=""
^DD(3.91,"GL",0,6,5)=""
^DD(3.91,"GL",0,7,6)=""
^DD(3.91,"GL",0,8,9)=""
^DD(3.91,"GL",0,9,10)=""
^DD(3.91,"GL",0,10,11)=""
^DD(3.91,"GL",0,11,13)=""
^DD(3.91,"GL",0,12,14)=""
^DD(3.91,"GL",0,13,15)=""
^DD(3.91,"GL","C",1,8.5)=""
^DD(3.91,"GL","D",1,7)=""
^DD(3.91,"GL","F",1,8)=""
^DD(3.91,"GL","F",2,8.01)=""
^DD(3.91,"GL","F",3,8.02)=""
^DD(3.91,"GL","F",4,8.03)=""
^DD(3.91,"GL","F",5,8.04)=""
^DD(3.91,"GL","S",1,12)=""
^DD(3.91,"GL","T",1,6.5)=""
^DD(3.91,"GL","T",2,6.6)=""
^DD(3.91,"IX",.01)=""
^DD(3.91,"IX",6)=""
^DD(3.91,"IX",13)=""
^DD(3.911,0)="ADDRESSED TO SUB-FIELD^^1^2"
^DD(3.911,0,"DT")="2970516"
^DD(3.911,0,"IX","B",3.911,.01)=""
^DD(3.911,0,"NM","ADDRESSED TO")=""
^DD(3.911,0,"UP")="3.9"
^DD(3.911,.01,0)="ADDRESSED TO^MF^^0;1^K:$L(X)>99!($L(X)<1) X"
^DD(3.911,.01,1,0)="^.1"
^DD(3.911,.01,1,1,0)="3.911^B"
^DD(3.911,.01,1,1,1)="S ^XMB(3.9,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(3.911,.01,1,1,2)="K ^XMB(3.9,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(3.911,.01,3)="Enter the address of a local or remote person, group, device, or server."
^DD(3.911,.01,21,0)="^^1^1^2931214^"
^DD(3.911,.01,21,1,0)="Into this field is recorded the way that a message was addressed."
^DD(3.911,.01,"DT")="2911203"
^DD(3.911,1,0)="TYPE OF RECIPIENT^S^C:cc;I:Info;^0;2^Q"
^DD(3.911,1,21,0)="^^1^1^2970516^^"
^DD(3.911,1,21,1,0)="Indicates the type of recipient."
^DD(3.911,1,"DT")="2970516"
^DD(3.911,"B","ADDRESSED TO",.01)=""
^DD(3.911,"B","TYPE OF RECIPIENT",1)=""
^DD(3.911,"GL",0,1,.01)=""
^DD(3.911,"GL",0,2,1)=""
^DD(3.911,"IX",.01)=""
^DD(3.914,0)="LATER DELIVERY TO SUB-FIELD^^4^5"
^DD(3.914,0,"DT")="2970516"
^DD(3.914,0,"IX","B",3.914,.01)=""
^DD(3.914,0,"NM","LATER DELIVERY TO")=""
^DD(3.914,0,"UP")="3.9"
^DD(3.914,.01,0)="LATER DELIVERY TO^MF^^0;1^K:$L(X)>99!($L(X)<1) X"
^DD(3.914,.01,1,0)="^.1"
^DD(3.914,.01,1,1,0)="3.914^B"
^DD(3.914,.01,1,1,1)="S ^XMB(3.9,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(3.914,.01,1,1,2)="K ^XMB(3.9,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(3.914,.01,1,1,"DT")="2970516"
^DD(3.914,.01,3)="Answer must be 1-99 characters in length."
^DD(3.914,.01,21,0)="^^2^2^2970515^^"
^DD(3.914,.01,21,1,0)="This is the local or network address of the person to whom to deliver the"
^DD(3.914,.01,21,2,0)="message at a later date. "
^DD(3.914,.01,"DT")="2970516"
^DD(3.914,1,0)="TYPE OF RECIPIENT^S^C:cc;I:Info;^0;2^Q"
^DD(3.914,1,21,0)="^^1^1^2970516^^"
^DD(3.914,1,21,1,0)="Indicates the type of recipient when the message is delivered later."
^DD(3.914,1,"DT")="2970516"
^DD(3.914,2,0)="BY WHOM DUZ^RP200'^VA(200,^0;3^Q"
^DD(3.914,2,1,0)="^.1"
^DD(3.914,2,1,1,0)="3.9^AW"
^DD(3.914,2,1,1,1)="S ^XMB(3.9,""AW"",$E(X,1,30),DA(1),DA)="""""
^DD(3.914,2,1,1,2)="K ^XMB(3.9,""AW"",$E(X,1,30),DA(1),DA)"
^DD(3.914,2,1,1,"%D",0)="^^2^2^2970515^"
^DD(3.914,2,1,1,"%D",1,0)="This xref will help us find messages which have been scheduled for later"
^DD(3.914,2,1,1,"%D",2,0)="delivery by certain users."
^DD(3.914,2,1,1,"DT")="2970515"
^DD(3.914,2,3)=""
^DD(3.914,2,21,0)="^^1^1^2970515^^"
^DD(3.914,2,21,1,0)="This is the DUZ of the person who scheduled the delivery."
^DD(3.914,2,"DT")="2970515"
^DD(3.914,3,0)="BY WHOM TEXT^RF^^0;4^K:$L(X)>99!($L(X)<1) X"
^DD(3.914,3,3)="Answer must be 1-99 characters in length."
^DD(3.914,3,21,0)="^^1^1^2970515^"
^DD(3.914,3,21,1,0)="This is the name or remote address of the person who scheduled the delivery."
^DD(3.914,3,"DT")="2970515"
^DD(3.914,4,0)="DELIVERY DATE/TIME^RD^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(3.914,4,1,0)="^.1"
^DD(3.914,4,1,1,0)="3.9^AL"
^DD(3.914,4,1,1,1)="S ^XMB(3.9,""AL"",$E(X,1,30),DA(1),DA)="""""
^DD(3.914,4,1,1,2)="K ^XMB(3.9,""AL"",$E(X,1,30),DA(1),DA)"
^DD(3.914,4,1,1,"%D",0)="^^2^2^2970515^"
^DD(3.914,4,1,1,"%D",1,0)="Helps the 'later' delivery task to find messages which should be delivered"
^DD(3.914,4,1,1,"%D",2,0)="later to certain recipients."
^DD(3.914,4,1,1,"DT")="2970515"
^DD(3.914,4,3)="When do you want the message delivered to this recipient?"
^DD(3.914,4,21,0)="^^1^1^2970731^^"
^DD(3.914,4,21,1,0)="Indicates when the message is to be delivered."
^DD(3.914,4,"DT")="2970515"
^DD(3.914,"B","BY WHOM DUZ",2)=""
^DD(3.914,"B","BY WHOM TEXT",3)=""
^DD(3.914,"B","DELIVERY DATE/TIME",4)=""
^DD(3.914,"B","LATER DELIVERY TO",.01)=""
^DD(3.914,"B","TYPE OF RECIPIENT",1)=""
^DD(3.914,"GL",0,1,.01)=""
^DD(3.914,"GL",0,2,1)=""
^DD(3.914,"GL",0,3,2)=""
^DD(3.914,"GL",0,4,3)=""
^DD(3.914,"GL",0,5,4)=""
^DD(3.914,"IX",.01)=""
^DD(3.914,"IX",2)=""
^DD(3.914,"IX",4)=""
^DD(3.914,"RQ",2)=""
^DD(3.914,"RQ",3)=""
^DD(3.914,"RQ",4)=""
^DD(3.92,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(3.92,0,"DT")="2900501"
^DD(3.92,0,"NM","TEXT")=""
^DD(3.92,0,"UP")="3.9"
^DD(3.92,.01,0)="TEXT^W^^0;1^Q"
^DD(3.92,.01,.1)="This is the text of the message, in the format as it is displayed on the screen."
^DD(3.92,.01,3)=""
^DD(3.92,.01,21,0)="^^2^2^2931214^"
^DD(3.92,.01,21,1,0)="This is the actual text of the message.  It is stored without the"
^DD(3.92,.01,21,2,0)="wrap-around logic, in a line-by-line format."
^DD(3.92,.01,"DT")="2900501"
^DD(3.92,"B","TEXT",.01)=""
^DD(3.92,"GL",0,1,.01)=""
^DD(3.92005,0)="OBJECTS - OTHER BODY PARTS SUB-FIELD^^.01^1"
^DD(3.92005,0,"DT")="2920206"
^DD(3.92005,0,"IX","B",3.92005,.01)=""
^DD(3.92005,0,"NM","OBJECTS - OTHER BODY PARTS")=""
^DD(3.92005,0,"UP")="3.9"
^DD(3.92005,.01,0)="OBJECTS - OTHER BODY PARTS^MP2005^MAG(2005,^0;1^Q"
^DD(3.92005,.01,1,0)="^.1"
^DD(3.92005,.01,1,1,0)="3.92005^B"
^DD(3.92005,.01,1,1,1)="S ^XMB(3.9,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(3.92005,.01,1,1,2)="K ^XMB(3.9,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(3.92005,.01,1,1,"DT")="2920319"
^DD(3.92005,.01,21,0)="^^2^2^2931214^"
^DD(3.92005,.01,21,1,0)="Pointers to the Object file are stored here as attachments"
^DD(3.92005,.01,21,2,0)="to multimedia messages."
^DD(3.92005,.01,"DT")="2920319"
^DD(3.92005,"B","OBJECTS - OTHER BODY PARTS",.01)=""
^DD(3.92005,"GL",0,1,.01)=""
^DD(3.92005,"IX",.01)=""
^DD(4,0)="FIELD^NL^9999^35"
^DD(4,0,0)="^4I"
^DD(4,0,"DDA")="N"
^DD(4,0,"DT")="3040112"
^DD(4,0,"ID","W1")="D EN^DDIOL($P($G(^DIC(5,+$P($G(^(0)),U,2),0)),U,2),,""?31"")"
^DD(4,0,"ID","W2")="D EN^DDIOL($P($G(^DIC(4.1,+$G(^DIC(4,+Y,3)),0)),U),,""?35"")"
^DD(4,0,"ID","W3")="D EN^DDIOL($P($G(^DIC(4,+Y,99)),U),,""?45"")"
^DD(4,0,"ID","W4")="D:$P($G(^DIC(4,+Y,99)),U,4) EN^DDIOL(""INACTIVE ""_$$FMTE^XLFDT($$IDT^XUAF4(+Y),""D""),,""?54"")"
^DD(4,0,"IX","AC",4.014,1)=""
^DD(4,0,"IX","AD",4,.01)=""
^DD(4,0,"IX","AI",4.999,.07)=""
^DD(4,0,"IX","ANPI",4,41.99)=""
^DD(4,0,"IX","AP1",4,.01)=""
^DD(4,0,"IX","ARF",4.999,.06)=""
^DD(4,0,"IX","ARFM",4.999,.06)=""
^DD(4,0,"IX","ART",4.999,.05)=""
^DD(4,0,"IX","ARTO",4.999,.05)=""
^DD(4,0,"IX","B",4,.01)=""
^DD(4,0,"IX","C",4,100)=""
^DD(4,0,"IX","D",4,99)=""
^DD(4,0,"IX","LOC1",4,720)=""
^DD(4,0,"IX","OLDNAM",4.999,.02)=""
^DD(4,0,"IX","XUMF",4,11)=""
^DD(4,0,"NM","INSTITUTION")=""
^DD(4,0,"PT",2,.12)=""
^DD(4,0,"PT",2,.12114)=""
^DD(4,0,"PT",2,.13111)=""
^DD(4,0,"PT",2,.1314)=""
^DD(4,0,"PT",2,.138)=""
^DD(4,0,"PT",2,.14113)=""
^DD(4,0,"PT",2,.2911)=""
^DD(4,0,"PT",2,.314)=""
^DD(4,0,"PT",2,.3618)=""
^DD(4,0,"PT",2,.393)=""
^DD(4,0,"PT",2,.535)=""
^DD(4,0,"PT",2,27.02)=""
^DD(4,0,"PT",2,991.03)=""
^DD(4,0,"PT",2,1010.152)=""
^DD(4,0,"PT",2,1010.154)=""
^DD(4,0,"PT",2.0992,2)=""
^DD(4,0,"PT",2.3215,.06)=""
^DD(4,0,"PT",2.399,.393)=""
^DD(4,0,"PT",4,96)=""
^DD(4,0,"PT",4.014,1)=""
^DD(4,0,"PT",4.3,217)=""
^DD(4,0,"PT",4.999,.05)=""
^DD(4,0,"PT",4.999,.06)=""
^DD(4,0,"PT",26.13,.04)=""
^DD(4,0,"PT",26.13,.05)=""
^DD(4,0,"PT",26.17,.05)=""
^DD(4,0,"PT",26.19,.05)=""
^DD(4,0,"PT",27.11,.06)=""
^DD(4,0,"PT",28.11,1.04)=""
^DD(4,0,"PT",28.11,2.04)=""
^DD(4,0,"PT",29.11,6)=""
^DD(4,0,"PT",40.8,.07)=""
^DD(4,0,"PT",44,3)=""
^DD(4,0,"PT",45.87,.1)=""
^DD(4,0,"PT",52.41,100)=""
^DD(4,0,"PT",52.91,7)=""
^DD(4,0,"PT",52.92,.01)=""
^DD(4,0,"PT",53.66,.03)=""
^DD(4,0,"PT",53.68,.04)=""
^DD(4,0,"PT",53.69,.04)=""
^DD(4,0,"PT",53.79,.03)=""
^DD(4,0,"PT",59,100)=""
^DD(4,0,"PT",59,101)=""
^DD(4,0,"PT",59.08,.01)=""
^DD(4,0,"PT",60.11,.01)=""
^DD(4,0,"PT",62.9,.02)=""
^DD(4,0,"PT",62.9,.03)=""
^DD(4,0,"PT",62.9,.031)=""
^DD(4,0,"PT",62.9,.06)=""
^DD(4,0,"PT",62.9001,.025)=""
^DD(4,0,"PT",63.04,.111)=""
^DD(4,0,"PT",63.04,.112)=""
^DD(4,0,"PT",63.04,.32)=""
^DD(4,0,"PT",63.04,.33)=""
^DD(4,0,"PT",63.05,.111)=""
^DD(4,0,"PT",63.05,.112)=""
^DD(4,0,"PT",64.03,4)=""
^DD(4,0,"PT",64.06,.01)=""
^DD(4,0,"PT",64.1,.01)=""
^DD(4,0,"PT",65,.16)=""
^DD(4,0,"PT",65.31,.03)=""
^DD(4,0,"PT",66.1,.01)=""
^DD(4,0,"PT",67.9,.01)=""
^DD(4,0,"PT",67.901,.01)=""
^DD(4,0,"PT",68.02,16.1)=""
^DD(4,0,"PT",68.02,16.2)=""
^DD(4,0,"PT",68.02,26)=""
^DD(4,0,"PT",68.03,.01)=""
^DD(4,0,"PT",68.14,3)=""
^DD(4,0,"PT",68.23,2.3)=""
^DD(4,0,"PT",69.01,25)=""
^DD(4,0,"PT",69.03,14)=""
^DD(4,0,"PT",69.03,15)=""
^DD(4,0,"PT",69.6,1)=""
^DD(4,0,"PT",69.6,2)=""
^DD(4,0,"PT",69.9,3)=""
^DD(4,0,"PT",69.9001,3)=""
^DD(4,0,"PT",69.9006,.01)=""
^DD(4,0,"PT",69.9007,.01)=""
^DD(4,0,"PT",69.9618,.01)=""
^DD(4,0,"PT",69.981,.01)=""
^DD(4,0,"PT",79,.01)=""
^DD(4,0,"PT",100.5,3)=""
^DD(4,0,"PT",100.6,3)=""
^DD(4,0,"PT",100.66,.01)=""
^DD(4,0,"PT",120.846,.01)=""
^DD(4,0,"PT",123,.05)=""
^DD(4,0,"PT",123,.07)=""
^DD(4,0,"PT",123.051,.03)=""
^DD(4,0,"PT",123.3,126)=""
^DD(4,0,"PT",123.3128,.01)=""
^DD(4,0,"PT",123.5,132)=""
^DD(4,0,"PT",123.5134,.01)=""
^DD(4,0,"PT",123.6,.02)=""
^DD(4,0,"PT",123.9,.01)=""
^DD(4,0,"PT",130,50)=""
^DD(4,0,"PT",133,.01)=""
^DD(4,0,"PT",154,3.2)=""
^DD(4,0,"PT",154,3.3)=""
^DD(4,0,"PT",154,3.4)=""
^DD(4,0,"PT",154,8.4)=""
^DD(4,0,"PT",160.05,1)=""
^DD(4,0,"PT",160.075,3)=""
^DD(4,0,"PT",160.1,6)=""
^DD(4,0,"PT",160.22,.01)=""
^DD(4,0,"PT",161.01,101)=""
^DD(4,0,"PT",161.4,27)=""
^DD(4,0,"PT",162.03,26)=""
^DD(4,0,"PT",162.11,25)=""
^DD(4,0,"PT",162.5,23)=""
^DD(4,0,"PT",162.7,6)=""
^DD(4,0,"PT",165,99)=""
^DD(4,0,"PT",165.5,2000)=""
^DD(4,0,"PT",183,.01)=""
^DD(4,0,"PT",190.1,12)=""
^DD(4,0,"PT",194.2,12)=""
^DD(4,0,"PT",195.12,.01)=""
^DD(4,0,"PT",195.9,.01)=""
^DD(4,0,"PT",200,12.4)=""
^DD(4,0,"PT",200.02,.01)=""
^DD(4,0,"PT",213.2,.01)=""
^DD(4,0,"PT",301.7,3.5)=""
^DD(4,0,"PT",301.7,6)=""
^DD(4,0,"PT",340,.01)=""
^DD(4,0,"PT",341,.09)=""
^DD(4,0,"PT",342,.01)=""
^DD(4,0,"PT",344.41,.11)=""
^DD(4,0,"PT",350,.13)=""
^DD(4,0,"PT",350.9,.02)=""
^DD(4,0,"PT",350.9,10.01)=""
^DD(4,0,"PT",351.6,.03)=""
^DD(4,0,"PT",351.6,.09)=""
^DD(4,0,"PT",351.6,.1)=""
^DD(4,0,"PT",351.61,.11)=""
^DD(4,0,"PT",354.71,.13)=""
^DD(4,0,"PT",354.711,.01)=""
^DD(4,0,"PT",355.33,.14)=""
^DD(4,0,"PT",363.3121,.01)=""
^DD(4,0,"PT",372,.01)=""
^DD(4,0,"PT",389.9,.07)=""
^DD(4,0,"PT",391.31,2)=""
^DD(4,0,"PT",391.91,.02)=""
^DD(4,0,"PT",394.2,4)=""
^DD(4,0,"PT",394.26,.01)=""
^DD(4,0,"PT",394.81,.01)=""
^DD(4,0,"PT",394.82,.01)=""
^DD(4,0,"PT",394.831,.01)=""
^DD(4,0,"PT",396.12,.01)=""
^DD(4,0,"PT",396.151,3)=""
^DD(4,0,"PT",396.3,2)=""
^DD(4,0,"PT",399,111)=""
^DD(4,0,"PT",404.51,.07)=""
^DD(4,0,"PT",404.9503,.01)=""
^DD(4,0,"PT",405,.05)=""
^DD(4,0,"PT",408,3)=""
^DD(4,0,"PT",409.3,2)=""
^DD(4,0,"PT",409.3,13.3)=""
^DD(4,0,"PT",409.311,.01)=""
^DD(4,0,"PT",409.32,.02)=""
^DD(4,0,"PT",411,.1)=""
^DD(4,0,"PT",430,12)=""
^DD(4,0,"PT",456,.01)=""
^DD(4,0,"PT",470,8)=""
^DD(4,0,"PT",470,73)=""
^DD(4,0,"PT",552,.01)=""
^DD(4,0,"PT",604.8,.01)=""
^DD(4,0,"PT",631.9,4)=""
^DD(4,0,"PT",660,8)=""
^DD(4,0,"PT",660,8.11)=""
^DD(4,0,"PT",660,40)=""
^DD(4,0,"PT",660,70)=""
^DD(4,0,"PT",660.1,14)=""
^DD(4,0,"PT",660.2,14)=""
^DD(4,0,"PT",661.11,3)=""
^DD(4,0,"PT",661.2,16)=""
^DD(4,0,"PT",661.3,.05)=""
^DD(4,0,"PT",661.4,3)=""
^DD(4,0,"PT",661.41,2)=""
^DD(4,0,"PT",661.5,2)=""
^DD(4,0,"PT",661.6,13)=""
^DD(4,0,"PT",661.63,7)=""
^DD(4,0,"PT",661.7,4)=""
^DD(4,0,"PT",661.9,4)=""
^DD(4,0,"PT",663.4,4)=""
^DD(4,0,"PT",664,18)=""
^DD(4,0,"PT",664.1,.03)=""
^DD(4,0,"PT",664.1,.04)=""
^DD(4,0,"PT",664.1,.11)=""
^DD(4,0,"PT",664.2,1.5)=""
^DD(4,0,"PT",664.2,6)=""
^DD(4,0,"PT",664.3,2)=""
^DD(4,0,"PT",664.4,2)=""
^DD(4,0,"PT",664.4,14)=""
^DD(4,0,"PT",665,2)=""
^DD(4,0,"PT",665.1,1)=""
^DD(4,0,"PT",665.1,6)=""
^DD(4,0,"PT",665.4,6)=""
^DD(4,0,"PT",667,11)=""
^DD(4,0,"PT",667.3,12)=""
^DD(4,0,"PT",668,2)=""
^DD(4,0,"PT",668,2.1)=""
^DD(4,0,"PT",669.9,1)=""
^DD(4,0,"PT",680.6,.04)=""
^DD(4,0,"PT",694.5,2)=""
^DD(4,0,"PT",698,7)=""
^DD(4,0,"PT",713.025,.01)=""
^DD(4,0,"PT",713.34,.01)=""
^DD(4,0,"PT",721,3)=""
^DD(4,0,"PT",727,15)=""
^DD(4,0,"PT",728,.01)=""
^DD(4,0,"PT",728.059,.01)=""
^DD(4,0,"PT",728.46,1)=""
^DD(4,0,"PT",740,.01)=""
^DD(4,0,"PT",740.03,.01)=""
^DD(4,0,"PT",740.0752,.01)=""
^DD(4,0,"PT",742.4,52)=""
^DD(4,0,"PT",742.6,.01)=""
^DD(4,0,"PT",745.1,37)=""
^DD(4,0,"PT",776.4,.03)=""
^DD(4,0,"PT",776.51,.01)=""
^DD(4,0,"PT",783.9,.01)=""
^DD(4,0,"PT",785,2)=""
^DD(4,0,"PT",785.5,2)=""
^DD(4,0,"PT",790,.25)=""
^DD(4,0,"PT",790,.26)=""
^DD(4,0,"PT",790.02,.01)=""
^DD(4,0,"PT",790.08,.1)=""
^DD(4,0,"PT",790.08,.34)=""
^DD(4,0,"PT",790.1,.1)=""
^DD(4,0,"PT",790.1,.34)=""
^DD(4,0,"PT",790.4,.07)=""
^DD(4,0,"PT",790.71,.02)=""
^DD(4,0,"PT",798.01,2)=""
^DD(4,0,"PT",799.4,.04)=""
^DD(4,0,"PT",810.13,.01)=""
^DD(4,0,"PT",810.33,.03)=""
^DD(4,0,"PT",810.53,.02)=""
^DD(4,0,"PT",839.7,.04)=""
^DD(4,0,"PT",869.3,.04)=""
^DD(4,0,"PT",870,.02)=""
^DD(4,0,"PT",912,5.01)=""
^DD(4,0,"PT",914,5.01)=""
^DD(4,0,"PT",984.9,.07)=""
^DD(4,0,"PT",984.9,.09)=""
^DD(4,0,"PT",1020.1,8)=""
^DD(4,0,"PT",1020.2,1)=""
^DD(4,0,"PT",1020.5,.01)=""
^DD(4,0,"PT",1020.8,.01)=""
^DD(4,0,"PT",2005,.05)=""
^DD(4,0,"PT",2005.1,.05)=""
^DD(4,0,"PT",2006.035,8)=""
^DD(4,0,"PT",2006.04,1)=""
^DD(4,0,"PT",2006.1,.01)=""
^DD(4,0,"PT",2006.12,.01)=""
^DD(4,0,"PT",2006.1201,.01)=""
^DD(4,0,"PT",2006.12201,.01)=""
^DD(4,0,"PT",2006.19,.05)=""
^DD(4,0,"PT",2006.55,.01)=""
^DD(4,0,"PT",2006.552,.01)=""
^DD(4,0,"PT",2006.56,.01)=""
^DD(4,0,"PT",2006.563,17)=""
^DD(4,0,"PT",2006.574,5)=""
^DD(4,0,"PT",2006.575,36)=""
^DD(4,0,"PT",2006.57621,.01)=""
^DD(4,0,"PT",2006.576311,3)=""
^DD(4,0,"PT",2006.581,5)=""
^DD(4,0,"PT",2006.583,2)=""
^DD(4,0,"PT",2006.5831,3)=""
^DD(4,0,"PT",2006.5841,4)=""
^DD(4,0,"PT",2006.5842,.01)=""
^DD(4,0,"PT",2006.5842,1)=""
^DD(4,0,"PT",2006.5849,1)=""
^DD(4,0,"PT",2006.5849,15)=""
^DD(4,0,"PT",2006.587,7)=""
^DD(4,0,"PT",2041,.01)=""
^DD(4,0,"PT",2041,.04)=""
^DD(4,0,"PT",2043.51,.03)=""
^DD(4,0,"PT",2101.7,.01)=""
^DD(4,0,"PT",2260,13)=""
^DD(4,0,"PT",2261.43,.01)=""
^DD(4,0,"PT",2262.03,.01)=""
^DD(4,0,"PT",6925,3)=""
^DD(4,0,"PT",6925,15.3)=""
^DD(4,0,"PT",7118.21,.01)=""
^DD(4,0,"PT",8925,1212)=""
^DD(4,0,"PT",8925.4,.09)=""
^DD(4,0,"PT",8925.99,.01)=""
^DD(4,0,"PT",8973,.01)=""
^DD(4,0,"PT",8989.3,217)=""
^DD(4,0,"PT",8989.5,.01)=""
^DD(4,0,"PT",177100.12,.01)=""
^DD(4,0,"PT",177100.13,4)=""
^DD(4,0,"PT",503338,.01)=""
^DD(4,0,"PT",509850.8,.01)=""
^DD(4,0,"PT",509850.9,.1)=""
^DD(4,0,"PT",791813,.01)=""
^DD(4,0,"PT",791813,2.01)=""
^DD(4,0,"PT",9999999.06,.01)=""
^DD(4,0,"SCR")="I $$SCN^XUMF333(+Y,$G(XUMF))"
^DD(4,0,"VR")="8.0"
^DD(4,0,"VRPK")="XU"
^DD(4,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X K:($P($G(^DIC(4,+$G(DA),0)),U,11)=""N"")&'$G(XUMF) X"
^DD(4,.01,.1)="INSTITUTION NAME"
^DD(4,.01,1,0)="^.1"
^DD(4,.01,1,1,0)="4^B"
^DD(4,.01,1,1,1)="S ^DIC(4,""B"",$E(X,1,30),DA)="""""
^DD(4,.01,1,1,2)="K ^DIC(4,""B"",$E(X,1,30),DA)"
^DD(4,.01,1,2,0)="4^AP1^MUMPS"
^DD(4,.01,1,2,1)="F I=0:0 S I=$O(^DIC(4,DA,4,I)) Q:I'>0  S Y(1)=+^(I,0),Y(2)=$S($D(^DIC(9.4,Y(1),0)):^(0),1:"""") S:Y(2)]"""" ^DIC(4,""AP""_$P(Y(2),U,2),$E(X,1,30),DA)="""""
^DD(4,.01,1,2,2)="S Y=""AP"" F I=0:0 S Y=$O(^DIC(4,Y)) Q:$E(Y,1,2)'=""AP""  K ^DIC(4,Y,$E(X,1,30),DA)"
^DD(4,.01,1,2,3)="Special Package X-ref"
^DD(4,.01,1,2,"DT")="2900103"
^DD(4,.01,1,3,0)="4^AD^MUMPS"
^DD(4,.01,1,3,1)="I $D(^AUTTLOC(0))#2 N DIC,DD,DO,DINUM,DS S DIC=""^AUTTLOC("",DIC(0)="""",(X,DINUM)=DA D FILE^DICN"
^DD(4,.01,1,3,2)="I $D(^AUTTLOC(0))#2 N DIK S DIK=""^AUTTLOC("" D ^DIK"
^DD(4,.01,1,3,3)="Needed to keep PCE location file in sync."
^DD(4,.01,1,3,"%D",0)="^^2^2^2980827^"
^DD(4,.01,1,3,"%D",1,0)="This MUMPS cross reference is used to keep the PCE location file"
^DD(4,.01,1,3,"%D",2,0)="(#9999999.06) synchronized with the Institution file."
^DD(4,.01,1,3,"DT")="2980827"
^DD(4,.01,3)="Answer must be 3-30 characters in length."
^DD(4,.01,21,0)="^.001^2^2^3031215^^^^"
^DD(4,.01,21,1,0)="This is the name of the institution with out modifiers like state"
^DD(4,.01,21,2,0)="or type."
^DD(4,.01,"DEL",11,0)="I ($P($G(^DIC(4,+$G(DA),0)),U,11)=""N""&('$G(XUMF)))"
^DD(4,.01,"DT")="3031215"
^DD(4,.02,0)="STATE^P5'X^DIC(5,^0;2^Q:$G(XUMF)  K:$P($G(^DIC(4,+DA,0)),U,11)=""N"" X"
^DD(4,.02,3)="Enter the state."
^DD(4,.02,21,0)="^^1^1^3011218^"
^DD(4,.02,21,1,0)="State that the institution is physically located."
^DD(4,.02,"DEL",11,0)="I ($P($G(^DIC(4,+$G(DA),0)),U,11)=""N""&('$G(XUMF)))"
^DD(4,.02,"DT")="3040112"
^DD(4,.03,0)="DISTRICT^NJ2,0X^^0;3^K:+X'=X!(X>27)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4,.03,1,0)="^.1^^0"
^DD(4,.03,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 27"
^DD(4,.03,21,0)="^^2^2^2920702^"
^DD(4,.03,21,1,0)="This is the Medical District of the Institution file.  Therefore it is not"
^DD(4,.03,21,2,0)="to be changed except by appropriately knowledgeable individuals."
^DD(4,.03,"DT")="2900409"
^DD(4,.05,0)="SHORT NAME^F^^0;5^K:$L(X)>80!($L(X)<4) X"
^DD(4,.05,1,0)="^.1^^0"
^DD(4,.05,3)="ANSWER MUST BE 4-80 CHARACTERS IN LENGTH"
^DD(4,.05,21,0)="^^1^1^2930330^"
^DD(4,.05,21,1,0)="Short version of name."
^DD(4,.05,"DT")="2840410"
^DD(4,.06,0)="VA TYPE CODE^S^MC:HOSP;DM:DOM;NH:NH;RO:RO;DP:DPC;OI:OC-IND;OM:OC-UNDER MMT;OS:OC-SUB;PC:PROTH;PD:PDC;RP:RPC;CO:VACO;CR:VACO-RO;MCDM:MC&DOM;MCDMNH:MC,DOM,NH;MCNH:MC&NH;MCRO:MC&RO;RODP:RO&DPC;^0;6^Q"
^DD(4,.06,21,0)="^^1^1^2920528^^^"
^DD(4,.06,21,1,0)="This field is being replaced by the Facitily type field."
^DD(4,.07,0)="REGION^NJ1,0^^0;7^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4,.07,1,0)="^.1^^0"
^DD(4,.07,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 7"
^DD(4,.07,21,0)="^^1^1^2920528^^^^"
^DD(4,.07,21,1,0)="VA region number."
^DD(4,.07,"DT")="2900409"
^DD(4,1.01,0)="STREET ADDR. 1^F^^1;1^K:$L(X)>40!($L(X)<2) X"
^DD(4,1.01,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(4,1.01,21,0)="^^1^1^3011218^"
^DD(4,1.01,21,1,0)="First line of the street address (physical) of the facility."
^DD(4,1.01,"DT")="3011218"
^DD(4,1.02,0)="STREET ADDR. 2^F^^1;2^K:$L(X)>40!($L(X)<2) X"
^DD(4,1.02,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(4,1.02,21,0)="^^1^1^3020805^^"
^DD(4,1.02,21,1,0)="Second line of street address (physical) of the facility."
^DD(4,1.02,"DT")="3020805"
^DD(4,1.03,0)="CITY^F^^1;3^K:$L(X)>40!($L(X)<2) X"
^DD(4,1.03,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(4,1.03,21,0)="^.001^1^1^3011231^^"
^DD(4,1.03,21,1,0)="The city the facility is physically located."
^DD(4,1.03,"DT")="3011218"
^DD(4,1.04,0)="ZIP^FX^^1;4^K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1""-""4N)) X"
^DD(4,1.04,3)="Enter ZIP code or ZIP + 4"
^DD(4,1.04,21,0)="^.001^1^1^3011231^^^"
^DD(4,1.04,21,1,0)="Postal ZIP code for the physical address of the facility."
^DD(4,1.04,"DT")="3011218"
^DD(4,4,0)="CONTACT^4.03^^2;0"
^DD(4,4,21,0)="^^1^1^2920528^^^^"
^DD(4,4,21,1,0)="List of contacts."
^DD(4,4.01,0)="ST. ADDR. 1 (MAILING)^F^^4;1^K:$L(X)>40!($L(X)<2) X"
^DD(4,4.01,3)="Answer must be 2-40 characters in length."
^DD(4,4.01,21,0)="^^1^1^3011231^"
^DD(4,4.01,21,1,0)="First line of the street address (mailing) of the facility."
^DD(4,4.01,"DT")="3011231"
^DD(4,4.02,0)="ST. ADDR. 2 (MAILING)^F^^4;2^K:$L(X)>40!($L(X)<2) X"
^DD(4,4.02,3)="Answer must be 2-40 characters in length."
^DD(4,4.02,21,0)="^^1^1^3011231^"
^DD(4,4.02,21,1,0)="Second line of the street address (mailing) of the facility."
^DD(4,4.02,"DT")="3011231"
^DD(4,4.03,0)="CITY (MAILING)^F^^4;3^K:$L(X)>40!($L(X)<2) X"
^DD(4,4.03,3)="Answer must be 2-40 characters in length."
^DD(4,4.03,21,0)="^^1^1^3011231^"
^DD(4,4.03,21,1,0)="The City of the facility's mailing address."
^DD(4,4.03,"DT")="3011231"
^DD(4,4.04,0)="STATE (MAILING)^P5'^DIC(5,^4;4^Q"
^DD(4,4.04,21,0)="^^1^1^3011231^"
^DD(4,4.04,21,1,0)="The State of the facility's mailing address."
^DD(4,4.04,"DT")="3011231"
^DD(4,4.05,0)="ZIP (MAILING)^FX^^4;5^K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1""-""4N)) X"
^DD(4,4.05,3)="Enter ZIP code or ZIP + 4"
^DD(4,4.05,21,0)="^^1^1^3011231^"
^DD(4,4.05,21,1,0)="Postal ZIP code for the mailing address of the facility."
^DD(4,4.05,"DT")="3020122"
^DD(4,5,0)="MULTI-DIVISION FACILITY^S^Y:YES;N:NO;^DIV;1^Q"
^DD(4,5,21,0)="^^1^1^2930330^"
^DD(4,5,21,1,0)="Flag to indicate this is a multi-division facility."
^DD(4,5,"DT")="3010104"
^DD(4,11,0)="STATUS^RSX^N:National;L:Local;^0;11^Q:$G(XUMF)  K:$P($G(^DIC(4,+DA,0)),U,11)=""N""!(X[""N"") X"
^DD(4,11,1,0)="^.1"
^DD(4,11,1,1,0)="4^XUMF"
^DD(4,11,1,1,1)="S ^DIC(4,""XUMF"",$E(X,1,30),DA)="""""
^DD(4,11,1,1,2)="K ^DIC(4,""XUMF"",$E(X,1,30),DA)"
^DD(4,11,1,1,"%D",0)="^^2^2^3010524^"
^DD(4,11,1,1,"%D",1,0)="This x-ref. is used by the master file server query.  It loops this x-ref to"
^DD(4,11,1,1,"%D",2,0)="find all national entries."
^DD(4,11,1,1,"DT")="3000302"
^DD(4,11,3)="Local or National -- if national, do not edit!"
^DD(4,11,21,0)="^^17^17^3010104^^"
^DD(4,11,21,1,0)="An Institution has a STATUS (#11) of either LOCAL or NATIONAL."
^DD(4,11,21,2,0)=""
^DD(4,11,21,3,0)="Inactive facilities are flagged as such by the field INACTIVE"
^DD(4,11,21,4,0)="FACILITY FLAG (#101)."
^DD(4,11,21,5,0)=""
^DD(4,11,21,6,0)="National entries are facilities that have a STATION NUMBER (#99)"
^DD(4,11,21,7,0)="approved by Information Management Service (045A4).  National"
^DD(4,11,21,8,0)="entries are maintained by the Master File Server located on FORUM."
^DD(4,11,21,9,0)=""
^DD(4,11,21,10,0)="Local entries are facilities that are entered locally.  Local"
^DD(4,11,21,11,0)="entries no not have a STATION NUMBER (#99).  (Only offically"
^DD(4,11,21,12,0)="approved station numbers are allowed in the STATION NUMBER (#99)"
^DD(4,11,21,13,0)="field.)"
^DD(4,11,21,14,0)=""
^DD(4,11,21,15,0)="All national entries will have a STATUS (#11) of NATIONAL.  Do"
^DD(4,11,21,16,0)="not edit the STATUS (#11) of a national entry.  Do not set a LOCAL"
^DD(4,11,21,17,0)="entry to a STATUS (#11) of NATIONAL."
^DD(4,11,23,0)="^^17^17^3010104^"
^DD(4,11,23,1,0)="An Institution has a STATUS (#11) of either LOCAL or NATIONAL."
^DD(4,11,23,2,0)=""
^DD(4,11,23,3,0)="Inactive facilities are flagged as such by the field INACTIVE"
^DD(4,11,23,4,0)="FACILITY FLAG (#101)."
^DD(4,11,23,5,0)=""
^DD(4,11,23,6,0)="National entries are facilities that have a STATION NUMBER (#99)"
^DD(4,11,23,7,0)="approved by Information Management Service (045A4).  National"
^DD(4,11,23,8,0)="entries are maintained by the Master File Server located on FORUM."
^DD(4,11,23,9,0)=""
^DD(4,11,23,10,0)="Local entries are facilities that are entered locally.  Local"
^DD(4,11,23,11,0)="entries no not have a STATION NUMBER (#99).  (Only offically"
^DD(4,11,23,12,0)="approved station numbers are allowed in the STATION NUMBER (#99)"
^DD(4,11,23,13,0)="field.)"
^DD(4,11,23,14,0)=""
^DD(4,11,23,15,0)="All national entries will have a STATUS (#11) of NATIONAL.  Do"
^DD(4,11,23,16,0)="not edit the STATUS (#11) of a national entry.  Do not set a LOCAL"
^DD(4,11,23,17,0)="entry to a STATUS (#11) of NATIONAL."
^DD(4,11,"DEL",11,0)="I ($P($G(^DIC(4,+$G(DA),0)),U,11)=""N""&('$G(XUMF)))"
^DD(4,11,"DT")="3010108"
^DD(4,13,0)="FACILITY TYPE^P4.1X^DIC(4.1,^3;1^Q:($G(XUMF)&($P($G(^DIC(4.1,+X,0)),U,4)=""N""))  K:$P($G(^DIC(4,+DA,0)),U,11)=""N"" X"
^DD(4,13,3)="Enter the facility type."
^DD(4,13,21,0)="^^1^1^2920706^^"
^DD(4,13,21,1,0)="The type of facility. A replacement for the type field."
^DD(4,13,"DEL",11,0)="I ($P($G(^DIC(4,+$G(DA),0)),U,11)=""N""&('$G(XUMF)))"
^DD(4,13,"DT")="3040112"
^DD(4,14,0)="ASSOCIATIONS^4.014P^^7;0"
^DD(4,41.99,0)="NPI^RFX^^NPI;1^K:'($$CHKDGT^XUSNPIE1(X,DA,""Organization_ID"")) X"
^DD(4,41.99,1,0)="^.1"
^DD(4,41.99,1,1,0)="4^ANPI"
^DD(4,41.99,1,1,1)="S ^DIC(4,""ANPI"",$E(X,1,30),DA)="""""
^DD(4,41.99,1,1,2)="K ^DIC(4,""ANPI"",$E(X,1,30),DA)"
^DD(4,41.99,1,1,"%D",0)="^^1^1^3060301^"
^DD(4,41.99,1,1,"%D",1,0)="File entries by NPI."
^DD(4,41.99,1,1,"DT")="3060301"
^DD(4,41.99,3)="Answer must be 10 characters in length and not being used."
^DD(4,41.99,21,0)="^^2^2^3060509^"
^DD(4,41.99,21,1,0)="Current Unique National Provider ID. A unique meaningless integer assigned"
^DD(4,41.99,21,2,0)="to providers."
^DD(4,41.99,"DEL",11,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server(MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(4,41.99,"DT")="3060814"
^DD(4,42,0)="EFFECTIVE DATE/TIME^4.042D^^NPISTATUS;0"
^DD(4,43,0)="TAXONOMY CODE^4.043P^^TAXONOMY;0"
^DD(4,51,0)="ACOS HOSPITAL ID^F^^5;1^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(4,51,.1)="American College of Surgeons Hospital ID"
^DD(4,51,3)="Please enter American College of Surgeons 6 digit ID number."
^DD(4,51,21,0)="^^6^6^2920513^^"
^DD(4,51,21,1,0)="This field holds the six-digit code assigned to this facility by"
^DD(4,51,21,2,0)="the American College of Surgeons (ACOS) Commission on Cancer, the"
^DD(4,51,21,3,0)="organization that accredits a hospital's Cancer Program and Tumor"
^DD(4,51,21,4,0)="Registry.  A facility will only have an ACOS number if they have"
^DD(4,51,21,5,0)="requested a Cancer Program survey from the ACOS (not all facilities"
^DD(4,51,21,6,0)="will have a number)."
^DD(4,51,"DT")="2900306"
^DD(4,52,0)="FACILITY DEA NUMBER^FX^^DEA;1^K:'$$VALDEA^XUSER2(X,1) X"
^DD(4,52,3)="Answer with a DEA ID, must be 9 characters in length"
^DD(4,52,21,0)="^^2^2^3021223^^^"
^DD(4,52,21,1,0)="This field holds the facility DEA number. This allows house officers who "
^DD(4,52,21,2,0)="do not have their own DEA # to use a VA # for Digital Signatures."
^DD(4,52,23,0)="^^22^22^3021223^"
^DD(4,52,23,1,0)="This value is checked by the call to $$VALDEA^XUSER2(x)."
^DD(4,52,23,2,0)="This is the algorithm"
^DD(4,52,23,3,0)=" "
^DD(4,52,23,4,0)="The first letter for practitioners (physicians, dentists, veterinarians,"
^DD(4,52,23,5,0)="pharmacies etc.) is either an ""A"" or ""B"""
^DD(4,52,23,6,0)=" "
^DD(4,52,23,7,0)="The second letter should be the first letter of the practitioner's last"
^DD(4,52,23,8,0)="name.  Sometimes this does not match if the registrant changed their name "
^DD(4,52,23,9,0)="or the DEA did not get it correct the first time."
^DD(4,52,23,10,0)=" "
^DD(4,52,23,11,0)="The check digit algorithm is as follows:"
^DD(4,52,23,12,0)=" "
^DD(4,52,23,13,0)="AS1234563"
^DD(4,52,23,14,0)=" "
^DD(4,52,23,15,0)="1 + 3 + 5 =   9"
^DD(4,52,23,16,0)="2 + 4 + 6 = 12 x 2 = 24"
^DD(4,52,23,17,0)=" "
^DD(4,52,23,18,0)="9 + 24 = 33"
^DD(4,52,23,19,0)=" "
^DD(4,52,23,20,0)="The last digit of the total must equal the check digit (the last"
^DD(4,52,23,21,0)="digit of the DEA number)."
^DD(4,52,23,22,0)="(33#10)=$E(""AS1234563"",9)"
^DD(4,52,"DT")="3021223"
^DD(4,60,0)="DOMAIN^P4.2'^DIC(4.2,^6;1^Q"
^DD(4,60,3)="This allows a link from the institution file to the domain file."
^DD(4,60,21,0)="^^1^1^2920513^^^"
^DD(4,60,21,1,0)="A pointer to the domain so the institution can be linked to a E-mail domain."
^DD(4,60,"DT")="2900516"
^DD(4,95,0)="AGENCY CODE^S^V:VA;AF:AIR FORCE;I:IHS;ARMY:ARMY;N:NAVY;O:OTHER;E:EHR;USCG:COAST GUARD;^99;5^Q"
^DD(4,95,1,0)="^.1"
^DD(4,95,1,1,0)="^^TRIGGER^4^97"
^DD(4,95,1,1,1)="K DIV,Y S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:""""),Y(2)=$P(Y(1),U,5),Y(3)=$P(Y(1),U,7) X ^DD(4,95,1,1,1.1) I X]"""" S X=$O(^DIC(4.11,""B"",X,0)) X ^DD(4,95,1,1,1.4)"
^DD(4,95,1,1,1.1)="S X=DIV S Y(5)=$C(59)_$S($D(^DD(4,95,0)):$P(^(0),U,3),1:""""),X=$P($P(Y(5),$C(59)_DIV_"":"",2),$C(59),1),Y(4)=$S($D(^DIC(4.11,+Y(3),0)):^(0),1:"""")"
^DD(4,95,1,1,1.4)="I Y(2)'=$P(Y(4),U,2) S DIU=Y(3),DIV=X,$P(^DIC(4,D0,99),U,7)=DIV,DIH=4,DIG=97 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(4,95,1,1,2)="Q  K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(4,DIV(0),99)):^(99),1:""""),DIV=X S $P(^(99),U,7)=DIV,DIH=4,DIG=97 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(4,95,1,1,3)="Link to keep fields 95 and 97 in sync. (Edited)"
^DD(4,95,1,1,"CREATE VALUE")="AGENCY CODE"
^DD(4,95,1,1,"DELETE VALUE")="NO EFFECT"
^DD(4,95,1,1,"FIELD")="POINTER TO AGENCY"
^DD(4,95,3)="What type of instution is this. Other for non-goverment."
^DD(4,95,5,1,0)="4^97^1"
^DD(4,95,21,0)="^.001^2^2^3050815^^^^"
^DD(4,95,21,1,0)="A code to identify the Government agency that this site belongs to."
^DD(4,95,21,2,0)="This is a duplicate of the POINTER TO AGENCY field."
^DD(4,95,"DT")="3060511"
^DD(4,96,0)="REPORTING STATION^*P4'^DIC(4,^99;6^S DIC(""S"")=""I $S($D(^(99)):$P(^(99),U,1)?3N,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(4,96,3)="Enter the consolidating reporting station.  (must have a 3 digit station number)"
^DD(4,96,12)="Can only select instutions with a 3 numeric station number."
^DD(4,96,12.1)="S DIC(""S"")=""I $S($D(^(99)):$P(^(99),U,1)?3N,1:0)"""
^DD(4,96,21,0)="^^2^2^2920513^^^"
^DD(4,96,21,1,0)="This is a pointer back to the Institution file that indicates the"
^DD(4,96,21,2,0)="site that does the reporting to VACO."
^DD(4,96,"DT")="2890726"
^DD(4,97,0)="POINTER TO AGENCY^RP4.11'^DIC(4.11,^99;7^Q"
^DD(4,97,1,0)="^.1"
^DD(4,97,1,1,0)="^^TRIGGER^4^95"
^DD(4,97,1,1,1)="X ^DD(4,97,1,1,1.3) I X,Y(3)]"""" S X=Y(3) X ^DD(4,97,1,1,1.4)"
^DD(4,97,1,1,1.3)="K DIV,Y S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(4,97,1,1,69.2) S Y(3)=$P(Y(101),U,2),X=(Y(2)'=Y(3)) S D0=I(0,0)"
^DD(4,97,1,1,1.4)="S DIH=$S($D(^DIC(4,DIV(0),99)):^(99),1:""""),DIV=X,DIU=$P(DIH,U,5) S $P(^(99),U,5)=DIV,DIH=4,DIG=95 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(4,97,1,1,2)="Q"
^DD(4,97,1,1,3)="Link to keep fields 95 and 97 in sync. (Edited)"
^DD(4,97,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(Y(1),U,5),X=X S X=X,Y(2)=X,D0=Y(0) S:'$D(^DIC(4.11,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.11,D0,0)):^(0),1:"""")"
^DD(4,97,1,1,"CREATE CONDITION")="INTERNAL(AGENCY CODE)'=INTERNAL(POINTER TO AGENCY:AGENCY CODE)"
^DD(4,97,1,1,"CREATE VALUE")="INTERNAL(POINTER TO AGENCY:AGENCY CODE)"
^DD(4,97,1,1,"DELETE VALUE")="NO EFFECT"
^DD(4,97,1,1,"DT")="2900103"
^DD(4,97,1,1,"FIELD")="AGENCY CODE"
^DD(4,97,5,1,0)="4^95^1"
^DD(4,97,21,0)="^^2^2^2920513^^^"
^DD(4,97,21,1,0)="A pointer to a file that identifies the government agency that"
^DD(4,97,21,2,0)="this site belongs to.  Keep in sync with the Agency code field."
^DD(4,97,"DT")="2900103"
^DD(4,99,0)="STATION NUMBER^FX^^99;1^K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X Q:$G(XUMF)  K X"
^DD(4,99,1,0)="^.1"
^DD(4,99,1,1,0)="4^D^MUMPS"
^DD(4,99,1,1,1)="S ^DIC(4,""D"",$E(X,1,30),DA)="""""
^DD(4,99,1,1,2)="K ^DIC(4,""D"",$E(X,1,30),DA) S ^DIC(4,""AOLD99"",DA,$E(X,1,30))="""""
^DD(4,99,1,1,"%D",0)="^^3^3^3010524^"
^DD(4,99,1,1,"%D",1,0)="The ""AOLD99"" x-ref (kill statement 0f ""D"" x-ref) is used by $$O99^XUAF4 to get"
^DD(4,99,1,1,"%D",2,0)="the pointer to the valid entry with station number for duplicate station"
^DD(4,99,1,1,"%D",3,0)="numbers resolved by the clean up (patch xu*8.0*126)."
^DD(4,99,1,1,"DT")="3000703"
^DD(4,99,3)="No local station numbers allowed!"
^DD(4,99,20,0)="^.3LA^1^1"
^DD(4,99,20,1,0)="RUPP"
^DD(4,99,21,0)="^^1^1^2920513^^"
^DD(4,99,21,1,0)="This is the 3 digit station number plus any modifiers."
^DD(4,99,"DT")="3010518"
^DD(4,100,0)="OFFICIAL VA NAME^FX^^99;3^K:$L(X)>80!($L(X)<2) X K:($P($G(^DIC(4,+$G(DA),0)),U,11)=""N"")&'$G(XUMF) X"
^DD(4,100,1,0)="^.1"
^DD(4,100,1,1,0)="4^C"
^DD(4,100,1,1,1)="S ^DIC(4,""C"",$E(X,1,30),DA)="""""
^DD(4,100,1,1,2)="K ^DIC(4,""C"",$E(X,1,30),DA)"
^DD(4,100,1,1,"DT")="2960828"
^DD(4,100,3)="Enter the official VA name or name of the facility."
^DD(4,100,21,0)="^^2^2^2960816^"
^DD(4,100,21,1,0)="This field holds the Offical VA name for this VA facility."
^DD(4,100,21,2,0)="The value in this field should not be changed by the site."
^DD(4,100,"DEL",11,0)="I ($P($G(^DIC(4,+$G(DA),0)),U,11)=""N""&('$G(XUMF)))"
^DD(4,100,"DT")="3040112"
^DD(4,101,0)="INACTIVE FACILITY FLAG^SX^1:INACTIVE;^99;4^Q:$G(XUMF)  K:$P($G(^DIC(4,+DA,0)),U,11)=""N"" X"
^DD(4,101,3)="1 flags inactive entry."
^DD(4,101,"DEL",11,0)="I ($P($G(^DIC(4,+$G(DA),0)),U,11)=""N""&('$G(XUMF)))"
^DD(4,101,"DT")="3040112"
^DD(4,720,0)="CURRENT LOCATION^S^1:YES;0:NO;^EC;1^Q"
^DD(4,720,1,0)="^.1"
^DD(4,720,1,1,0)="4^LOC1^MUMPS"
^DD(4,720,1,1,1)="I X S ^DIC(4,""LOC"",$P(^DIC(4,DA,0),""^""),DA)="""""
^DD(4,720,1,1,2)="K ^DIC(4,""LOC"",$P(^DIC(4,DA,0),""^""),DA)"
^DD(4,720,1,1,"%D",0)="^^1^1^2960507^"
^DD(4,720,1,1,"%D",1,0)="Sets and kills the ""LOC"" nodes."
^DD(4,720,1,1,"DT")="2960507"
^DD(4,720,3)="Entering a 1 for YES means ACTIVE, a 0 for NO means INACTIVE."
^DD(4,720,21,0)="^^5^5^2960507^^^"
^DD(4,720,21,1,0)="This field flags entries for use in the Event Capture software."
^DD(4,720,21,2,0)="  "
^DD(4,720,21,3,0)="       '1'  for   'YES'   (ACTIVE)"
^DD(4,720,21,4,0)="  "
^DD(4,720,21,5,0)="       '0'  for   'NO'    (INACTIVE)"
^DD(4,720,"DT")="2960507"
^DD(4,999.1,0)="HISTORY^4.999DA^^999;0"
^DD(4,9999,0)="IDENTIFIER^4.9999A^^9999;0"
^DD(4,"B","ACOS HOSPITAL ID",51)=""
^DD(4,"B","AGENCY CODE",95)=""
^DD(4,"B","ASSOCIATIONS",14)=""
^DD(4,"B","CITY",1.03)=""
^DD(4,"B","CITY (MAILING)",4.03)=""
^DD(4,"B","CONTACT",4)=""
^DD(4,"B","CURRENT LOCATION",720)=""
^DD(4,"B","DISTRICT",.03)=""
^DD(4,"B","DOMAIN",60)=""
^DD(4,"B","EFFECTIVE DATE/TIME",42)=""
^DD(4,"B","FACILITY DEA NUMBER",52)=""
^DD(4,"B","FACILITY TYPE",13)=""
^DD(4,"B","HISTORY",999.1)=""
^DD(4,"B","IDENTIFIER",9999)=""
^DD(4,"B","INACTIVE FACILITY FLAG",101)=""
^DD(4,"B","INSTITUTION NAME",.01)="1"
^DD(4,"B","MULTI-DIVISION FACILITY",5)=""
^DD(4,"B","NAME",.01)=""
^DD(4,"B","NPI",41.99)=""
^DD(4,"B","OFFICIAL VA NAME",100)=""
^DD(4,"B","POINTER TO AGENCY",97)=""
^DD(4,"B","REGION",.07)=""
^DD(4,"B","REPORTING STATION",96)=""
^DD(4,"B","SHORT NAME",.05)=""
^DD(4,"B","ST. ADDR. 1 (MAILING)",4.01)=""
^DD(4,"B","ST. ADDR. 2 (MAILING)",4.02)=""
^DD(4,"B","STATE",.02)=""
^DD(4,"B","STATE (MAILING)",4.04)=""
^DD(4,"B","STATION NUMBER",99)=""
^DD(4,"B","STATUS",11)=""
^DD(4,"B","STREET ADDR. 1",1.01)=""
^DD(4,"B","STREET ADDR. 2",1.02)=""
^DD(4,"B","TAXONOMY CODE",43)=""
^DD(4,"B","VA TYPE CODE",.06)=""
^DD(4,"B","ZIP",1.04)=""
^DD(4,"B","ZIP (MAILING)",4.05)=""
^DD(4,"GL",0,1,.01)=""
^DD(4,"GL",0,2,.02)=""
^DD(4,"GL",0,3,.03)=""
^DD(4,"GL",0,5,.05)=""
^DD(4,"GL",0,6,.06)=""
^DD(4,"GL",0,7,.07)=""
^DD(4,"GL",0,11,11)=""
^DD(4,"GL",1,1,1.01)=""
^DD(4,"GL",1,2,1.02)=""
^DD(4,"GL",1,3,1.03)=""
^DD(4,"GL",1,4,1.04)=""
^DD(4,"GL",2,0,4)=""
^DD(4,"GL",3,1,13)=""
^DD(4,"GL",4,1,4.01)=""
^DD(4,"GL",4,2,4.02)=""
^DD(4,"GL",4,3,4.03)=""
^DD(4,"GL",4,4,4.04)=""
^DD(4,"GL",4,5,4.05)=""
^DD(4,"GL",5,1,51)=""
^DD(4,"GL",6,1,60)=""
^DD(4,"GL",7,0,14)=""
^DD(4,"GL",99,1,99)=""
^DD(4,"GL",99,3,100)=""
^DD(4,"GL",99,4,101)=""
^DD(4,"GL",99,5,95)=""
^DD(4,"GL",99,6,96)=""
^DD(4,"GL",99,7,97)=""
^DD(4,"GL",999,0,999.1)=""
^DD(4,"GL",9999,0,9999)=""
^DD(4,"GL","DEA",1,52)=""
^DD(4,"GL","DIV",1,5)=""
^DD(4,"GL","EC",1,720)=""
^DD(4,"GL","NPI",1,41.99)=""
^DD(4,"GL","NPISTATUS",0,42)=""
^DD(4,"GL","TAXONOMY",0,43)=""
^DD(4,"GR","RUPP",99,1)=""
^DD(4,"IX",.01)=""
^DD(4,"IX",11)=""
^DD(4,"IX",41.99)=""
^DD(4,"IX",95)=""
^DD(4,"IX",97)=""
^DD(4,"IX",99)=""
^DD(4,"IX",100)=""
^DD(4,"IX",720)=""
^DD(4,"RQ",.01)=""
^DD(4,"RQ",11)=""
^DD(4,"RQ",41.99)=""
^DD(4,"RQ",97)=""
^DD(4,"SB",4.014,14)=""
^DD(4,"SB",4.03,4)=""
^DD(4,"SB",4.042,42)=""
^DD(4,"SB",4.043,43)=""
^DD(4,"SB",4.999,999.1)=""
^DD(4,"SB",4.9999,9999)=""
^DD(4.001,0)="FIELD^^5^27"
^DD(4.001,0,"DDA")="N"
^DD(4.001,0,"DT")="3060525"
^DD(4.001,0,"IX","B",4.001,.01)=""
^DD(4.001,0,"IX","MFI",4.001,.03)=""
^DD(4.001,0,"IX","MFID",4.001,.07)=""
^DD(4.001,0,"IX","ZZZ",4.001,.02)=""
^DD(4.001,0,"NM","MASTER FILE PARAMETERS")=""
^DD(4.001,0,"VR")="8.0"
^DD(4.001,0,"VRPK")="XU"
^DD(4.001,.01,0)="MASTER FILE^RP1X^DIC(^0;1^S DINUM=X"
^DD(4.001,.01,1,0)="^.1"
^DD(4.001,.01,1,1,0)="4.001^B"
^DD(4.001,.01,1,1,1)="S ^DIC(4.001,""B"",$E(X,1,30),DA)="""""
^DD(4.001,.01,1,1,2)="K ^DIC(4.001,""B"",$E(X,1,30),DA)"
^DD(4.001,.01,3)="Select file to be supported by the Master File Server (MFS) mechanism."
^DD(4.001,.01,21,0)="^^3^3^3031223^"
^DD(4.001,.01,21,1,0)="This field is the Internal File Number (IFN) of the"
^DD(4.001,.01,21,2,0)="Master File table supported by the Master File Server"
^DD(4.001,.01,21,3,0)="(MFS)."
^DD(4.001,.01,"DT")="3031226"
^DD(4.001,.02,0)="SEGMENT NAME^RFX^^0;2^K:$L(X)>3!($L(X)<3) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,.02,1,0)="^.1"
^DD(4.001,.02,1,1,0)="4.001^ZZZ"
^DD(4.001,.02,1,1,1)="S ^DIC(4.001,""ZZZ"",$E(X,1,30),DA)="""""
^DD(4.001,.02,1,1,2)="K ^DIC(4.001,""ZZZ"",$E(X,1,30),DA)"
^DD(4.001,.02,1,1,"%D",0)="^^3^3^3031223^"
^DD(4.001,.02,1,1,"%D",1,0)="This x-ref is the segment name.  The MFS handler"
^DD(4.001,.02,1,1,"%D",2,0)="checks incoming message data segments against this"
^DD(4.001,.02,1,1,"%D",3,0)="x-ref to verify the file is supported."
^DD(4.001,.02,1,1,"DT")="3031223"
^DD(4.001,.02,3)="Enter the HL7 data segment or Z segment name."
^DD(4.001,.02,21,0)="^^2^2^3031223^"
^DD(4.001,.02,21,1,0)="This field holds the name of the HL7 data segment"
^DD(4.001,.02,21,2,0)="that hold the actual table values."
^DD(4.001,.02,"DT")="3031226"
^DD(4.001,.03,0)="MFI CODE^RFX^^0;3^K:$L(X)>60!($L(X)<2) X"
^DD(4.001,.03,1,0)="^.1"
^DD(4.001,.03,1,1,0)="4.001^MFI"
^DD(4.001,.03,1,1,1)="S ^DIC(4.001,""MFI"",$E(X,1,60),DA)="""""
^DD(4.001,.03,1,1,2)="K ^DIC(4.001,""MFI"",$E(X,1,60),DA)"
^DD(4.001,.03,1,1,"%D",0)="^^1^1^3031223^"
^DD(4.001,.03,1,1,"%D",1,0)="This x-ref is the Master File Identifier (MFI)."
^DD(4.001,.03,1,1,"DT")="3031223"
^DD(4.001,.03,3)="Answer must be 2-60 characters in length."
^DD(4.001,.03,21,0)="^^1^1^3031224^^"
^DD(4.001,.03,21,1,0)="This code identifies the master file."
^DD(4.001,.03,"DT")="3041220"
^DD(4.001,.04,0)="PRE-UPDATE ROUTINE^RFX^^0;4^K:$L(X)>20!($L(X)<3) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,.04,3)="Enter the label of sub-routine in XUMFR to be executed prior to the MFS update."
^DD(4.001,.04,21,0)="^^20^20^3031226^^^"
^DD(4.001,.04,21,1,0)="This field holds the label of the "
^DD(4.001,.04,21,2,0)="sub-routine in XUMFR that gets called"
^DD(4.001,.04,21,3,0)="before an update by the MFS for a"
^DD(4.001,.04,21,4,0)="data type segment.  "
^DD(4.001,.04,21,5,0)="                                 "
^DD(4.001,.04,21,6,0)="Enter the label without '^XUMFR'.  The"
^DD(4.001,.04,21,7,0)="sub-routine can assume the presence of the"
^DD(4.001,.04,21,8,0)="variables IFN and IEN.  All local variables"
^DD(4.001,.04,21,9,0)="within the sub-routine must be NEW'd "
^DD(4.001,.04,21,10,0)="before using them."
^DD(4.001,.04,21,11,0)="                                 "
^DD(4.001,.04,21,12,0)="The default value for this field is "
^DD(4.001,.04,21,13,0)="'PRE'.  The PRE sub-routine builds"
^DD(4.001,.04,21,14,0)="the current values of the entry in"
^DD(4.001,.04,21,15,0)="question (associated with the IEN)"
^DD(4.001,.04,21,16,0)="into an array (^TMP(""XUMF PRE"",$J,SEQ)"
^DD(4.001,.04,21,17,0)="=fieldLabel_"": ""_value). "
^DD(4.001,.04,21,18,0)=""
^DD(4.001,.04,21,19,0)="This field is required, so if you have"
^DD(4.001,.04,21,20,0)="no processing use NULL."
^DD(4.001,.04,"DT")="3031226"
^DD(4.001,.05,0)="POST-UPDATE ROUTINE^FX^^0;5^K:$L(X)>20!($L(X)<3) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,.05,3)="Enter the label of sub-routine in XUMFR to be executed after MFS updates."
^DD(4.001,.05,21,0)="^.001^18^18^3050516^^^^"
^DD(4.001,.05,21,1,0)="This field holds the label of the sub-routine in XUMFR that gets called"
^DD(4.001,.05,21,2,0)="after an update by the MFS for a data type segment."
^DD(4.001,.05,21,3,0)=" "
^DD(4.001,.05,21,4,0)="Enter the label without '^XUMFR'.  The sub-routine can assume the presence"
^DD(4.001,.05,21,5,0)="of the variables IFN and IEN.  All local variables within the sub-routine"
^DD(4.001,.05,21,6,0)="must be NEW'd before using them."
^DD(4.001,.05,21,7,0)=" "
^DD(4.001,.05,21,8,0)="The default value for this field is 'POST'.  The POST sub-routine builds"
^DD(4.001,.05,21,9,0)="the new values of the entry in question (associated with the IEN) and"
^DD(4.001,.05,21,10,0)="compares them against the previous values (prior to update) to determine"
^DD(4.001,.05,21,11,0)="if any values changed.  If the values have changed a MailMan notification"
^DD(4.001,.05,21,12,0)="is sent to the XUMF SERVER mail group and the group identified by MAIL"
^DD(4.001,.05,21,13,0)="GROUP of this MASTER FILE PARAMERS entry."
^DD(4.001,.05,21,14,0)=" "
^DD(4.001,.05,21,15,0)="Note: if the post-update routine calls POST^XUMFR then pre-update routine"
^DD(4.001,.05,21,16,0)="must call PRE^XUMFR."
^DD(4.001,.05,21,17,0)=""
^DD(4.001,.05,21,18,0)="This field is required, so if you have no processing use NULL."
^DD(4.001,.05,"DT")="3050516"
^DD(4.001,.06,0)="MAIL GROUP^P3.8X^XMB(3.8,^0;6^K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,.06,3)="Enter the mail group that will receive update notifications."
^DD(4.001,.06,21,0)="^^3^3^3031224^^"
^DD(4.001,.06,21,1,0)="This mail group will be notified when an HL7 unsolicited update"
^DD(4.001,.06,21,2,0)="message is received from the MFS server.  This group will be notified"
^DD(4.001,.06,21,3,0)="in addition to the group XUMF SERVER."
^DD(4.001,.06,"DT")="3031226"
^DD(4.001,.07,0)="MASTER FILE IDENTIFIER^F^^0;7^K:$L(X)>30!($L(X)<2) X"
^DD(4.001,.07,1,0)="^.1"
^DD(4.001,.07,1,1,0)="4.001^MFID"
^DD(4.001,.07,1,1,1)="S ^DIC(4.001,""MFID"",$E(X,1,30),DA)="""""
^DD(4.001,.07,1,1,2)="K ^DIC(4.001,""MFID"",$E(X,1,30),DA)"
^DD(4.001,.07,1,1,"%D",0)="^^2^2^3060516^"
^DD(4.001,.07,1,1,"%D",1,0)="This identifier is used in the HL7 segment to identify the file"
^DD(4.001,.07,1,1,"%D",2,0)="to be updated."
^DD(4.001,.07,1,1,"DT")="3060516"
^DD(4.001,.07,3)="Answer must be 2-30 characters in length."
^DD(4.001,.07,9)="@"
^DD(4.001,.07,21,0)="^^1^1^3060516^"
^DD(4.001,.07,21,1,0)="This field identifies the file to be updated."
^DD(4.001,.07,"DT")="3060516"
^DD(4.001,1,0)="COLUMN^4.011^^1;0"
^DD(4.001,1,21,0)="^.001^4^4^3040420^^^^"
^DD(4.001,1,21,1,0)="The COLUMN DESCRIPTION multiple maps the data type segment fields"
^DD(4.001,1,21,2,0)="and components to FileMan fields for a standard table.  There are"
^DD(4.001,1,21,3,0)="additional fields within the sub-file to handle multiple field types"
^DD(4.001,1,21,4,0)="and extended references."
^DD(4.001,1,"DT")="3040420"
^DD(4.001,2,0)="POST-PROCESSING LOGIC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(4.001,2,3)="This is Standard MUMPS code."
^DD(4.001,2,9)="@"
^DD(4.001,2,21,0)="^^1^1^3060207^"
^DD(4.001,2,21,1,0)="This is Standard MUMPS code that gets executed after message processing."
^DD(4.001,2,"DT")="3060207"
^DD(4.001,3,0)="ADD-PROCESSING LOGIC^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(4.001,3,3)="This is Standard MUMPS code."
^DD(4.001,3,9)="@"
^DD(4.001,3,21,0)="^^1^1^3060207^"
^DD(4.001,3,21,1,0)="This is Standard MUMPS code that gets executed before message processing."
^DD(4.001,3,"DT")="3060522"
^DD(4.001,4,0)="MFE-PROCESSING LOGIC^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(4.001,4,3)="This is Standard MUMPS code."
^DD(4.001,4,9)="@"
^DD(4.001,4,21,0)="^^1^1^3060207^"
^DD(4.001,4,21,1,0)="This is Standard MUMPS code that gets executed for each MFE segment."
^DD(4.001,4,"DT")="3060207"
^DD(4.001,4.1,0)="MFE ID FIELD^RRNJ17,7X^^MFE;1^Q"
^DD(4.001,4.1,3)="Enter the field # that corresponds to the PKV id."
^DD(4.001,4.1,21,0)="^^5^5^3031224^"
^DD(4.001,4.1,21,1,0)="This field holds the field number that corresponds to the ID"
^DD(4.001,4.1,21,2,0)="of the Primary Key Value in MFE."
^DD(4.001,4.1,21,3,0)=" "
^DD(4.001,4.1,21,4,0)="This field # is the SDS field added to the file to store the internal"
^DD(4.001,4.1,21,5,0)="identifier to the SDS database."
^DD(4.001,4.1,"DT")="3031230"
^DD(4.001,4.11,0)="MFE ID TYPE^RP771.4'X^HL(771.4,^MFE;11^K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.11,3)="Enter HL7 data type."
^DD(4.001,4.11,21,0)="^^1^1^3031224^"
^DD(4.001,4.11,21,1,0)="MFE ID HL7 data type."
^DD(4.001,4.11,"DT")="3031226"
^DD(4.001,4.12,0)="MFE TEXT TYPE^RP771.4'X^HL(771.4,^MFE;12^K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.12,3)="Enter the HL7 data type."
^DD(4.001,4.12,21,0)="^^1^1^3031224^"
^DD(4.001,4.12,21,1,0)="Enter the MFE TEXT HL7 data type."
^DD(4.001,4.12,"DT")="3031226"
^DD(4.001,4.14,0)="MFE ALT ID TYPE^RP771.4'X^HL(771.4,^MFE;14^K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.14,3)="Enter the HL7 data type."
^DD(4.001,4.14,21,0)="^^1^1^3031224^"
^DD(4.001,4.14,21,1,0)="Enter the MFE ID HL7 data type."
^DD(4.001,4.14,"DT")="3031226"
^DD(4.001,4.15,0)="MFE ALT TEXT TYPE^RP771.4'X^HL(771.4,^MFE;15^K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.15,3)="Enter the HL7 data type."
^DD(4.001,4.15,21,0)="^^1^1^3031224^"
^DD(4.001,4.15,21,1,0)="Enter the MFE ALT TEXT HL7 data type."
^DD(4.001,4.15,"DT")="3031226"
^DD(4.001,4.16,0)="MFE PRE-UPDATE ROUTINE^RFX^^MFE;16^K:$L(X)>8!($L(X)<2) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.16,3)="Enter the subroutine label that executes prior to MFE."
^DD(4.001,4.16,21,0)="^.001^6^6^3050516^^"
^DD(4.001,4.16,21,1,0)="This field holds the label of the sub-routine in XUMFRMFE that gets called"
^DD(4.001,4.16,21,2,0)="before an update by the MFS for an MFE segment."
^DD(4.001,4.16,21,3,0)=" "
^DD(4.001,4.16,21,4,0)="Enter the label without '^XUMFRMFE'.  The sub-routine can assume the presence"
^DD(4.001,4.16,21,5,0)="of the variable IFN.  All local variables within the sub-routine"
^DD(4.001,4.16,21,6,0)="must be NEW'd before using the."
^DD(4.001,4.16,"DT")="3031226"
^DD(4.001,4.17,0)="MFE POST-UPDATE ROUTINE^RFX^^MFE;17^K:$L(X)>8!($L(X)<2) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.17,3)="Enter the subroutine label that executes after the MFE segment."
^DD(4.001,4.17,21,0)="^.001^6^6^3050516^^"
^DD(4.001,4.17,21,1,0)="This field holds the label of the sub-routine in XUMFRMFE that gets called"
^DD(4.001,4.17,21,2,0)="after an update by the MFS for an MFE segment.                             "
^DD(4.001,4.17,21,3,0)=" "
^DD(4.001,4.17,21,4,0)="Enter the label without '^XUMFRMFE'.  The sub-routine can assume the presence"
^DD(4.001,4.17,21,5,0)="of the variables IFN and IEN.  All local variables within the sub-routine"
^DD(4.001,4.17,21,6,0)="must be NEW'd before using them."
^DD(4.001,4.17,"DT")="3031226"
^DD(4.001,4.2,0)="MFE TEXT FIELD^RNJ17,7X^^MFE;2^Q"
^DD(4.001,4.2,3)="Enter the field # that corresponds to the PKV text."
^DD(4.001,4.2,21,0)="^^2^2^3031224^^"
^DD(4.001,4.2,21,1,0)="This field holds the field number that corresponds to the TEXT"
^DD(4.001,4.2,21,2,0)="of the Primary Key Value in MFE."
^DD(4.001,4.2,"DT")="3031230"
^DD(4.001,4.3,0)="MFE CODSYS^RFX^^MFE;3^K:$L(X)>20!($L(X)<1) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.3,3)="Enter the coding system for the MFE ID."
^DD(4.001,4.3,21,0)="^^2^2^3031224^^"
^DD(4.001,4.3,21,1,0)="This field holds the coding system that corresponds to the ID"
^DD(4.001,4.3,21,2,0)="of the Primary Key Value in MFE."
^DD(4.001,4.3,"DT")="3031226"
^DD(4.001,4.4,0)="MFE ALT ID FIELD^RNJ17,7X^^MFE;4^Q"
^DD(4.001,4.4,3)="Enter the field # that corresponds to the PKV alternate id."
^DD(4.001,4.4,21,0)="^^7^7^3031224^"
^DD(4.001,4.4,21,1,0)="This field holds the field number that corresponds to the"
^DD(4.001,4.4,21,2,0)="alternate ID of the Primary Key Value in MFE."
^DD(4.001,4.4,21,3,0)=" "
^DD(4.001,4.4,21,4,0)="The field # should be a key field to the file (not the SDS identifier"
^DD(4.001,4.4,21,5,0)="field).  This field will be used by MFS to determine which entry in"
^DD(4.001,4.4,21,6,0)="the file corresponds to the PKV id if it hasn't been already associated."
^DD(4.001,4.4,21,7,0)="Ideally, this field is a unique key to the file."
^DD(4.001,4.4,"DT")="3031230"
^DD(4.001,4.5,0)="MFE ALT TEXT FIELD^RNJ17,7X^^MFE;5^Q"
^DD(4.001,4.5,3)="Enter the field # that corresponds to the PKV alternate text."
^DD(4.001,4.5,21,0)="^^2^2^3031224^"
^DD(4.001,4.5,21,1,0)="This field holds the field number that corresponds to the"
^DD(4.001,4.5,21,2,0)="alternate TEXT of the Primary Key Value in MFE."
^DD(4.001,4.5,"DT")="3031230"
^DD(4.001,4.6,0)="MFE ALT CODSYS^RFX^^MFE;6^K:$L(X)>20!($L(X)<2) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.6,3)="Enter the alternate coding system of the PKV."
^DD(4.001,4.6,21,0)="^.001^2^2^3050331^^"
^DD(4.001,4.6,21,1,0)="This field holds the alternate coding system that corresponds"
^DD(4.001,4.6,21,2,0)="to the ID of the Primary Key Value in MFE."
^DD(4.001,4.6,"DT")="3031226"
^DD(4.001,4.7,0)="MFE PKV TYPE^RP771.4'X^HL(771.4,^MFE;7^K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.7,3)="Enter the PKV type (i.e., CE or PL) CE or Composite Element."
^DD(4.001,4.7,21,0)="^^3^3^3031224^^"
^DD(4.001,4.7,21,1,0)="This field holds the Primary Key Value data"
^DD(4.001,4.7,21,2,0)="type.  Valid values stored in HL7 Table 0355 -"
^DD(4.001,4.7,21,3,0)="Primary key value type."
^DD(4.001,4.7,"DT")="3031226"
^DD(4.001,4.8,0)="MFE PKV X-REF^RFX^^MFE;8^K:$L(X)>10!($L(X)<1) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.8,3)="Enter the FM x-ref of non-SDS key field - MFE.4.4"
^DD(4.001,4.8,21,0)="^^6^6^3031224^^"
^DD(4.001,4.8,21,1,0)="This field hold the FileMan cross-reference of"
^DD(4.001,4.8,21,2,0)="the Primary Key Value (PKV)."
^DD(4.001,4.8,21,3,0)=" "
^DD(4.001,4.8,21,4,0)="Since MFE.4.1 is the SDS internal identifier then provide"
^DD(4.001,4.8,21,5,0)="the alternate ID (MFE.4.4) cross-reference.  The natural"
^DD(4.001,4.8,21,6,0)="FileMan key x-ref that corresponds to the alt id."
^DD(4.001,4.8,"DT")="3031226"
^DD(4.001,4.9,0)="ASSIGNING AUTHORITY^RFX^^MFE;9^K:$L(X)>20!($L(X)<2) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.001,4.9,3)="Enter the entity responsible for assigning IDs for coding system."
^DD(4.001,4.9,21,0)="^^11^11^3031226^^^"
^DD(4.001,4.9,21,1,0)="This field holds the assigning authority responsible for"
^DD(4.001,4.9,21,2,0)="the code system used in the HL7 MFE PKV segment sequence."
^DD(4.001,4.9,21,3,0)=" "
^DD(4.001,4.9,21,4,0)="See QRD segment.  Who Subject Filter."
^DD(4.001,4.9,21,5,0)=""
^DD(4.001,4.9,21,6,0)="This field holds the code that identifies the standards"
^DD(4.001,4.9,21,7,0)="body, or in the case of VA specific data the routing"
^DD(4.001,4.9,21,8,0)="symbol (or other identifying code) of the data owner of"
^DD(4.001,4.9,21,9,0)="steward."
^DD(4.001,4.9,21,10,0)=""
^DD(4.001,4.9,21,11,0)="If all else fails, use 'VA' as the code."
^DD(4.001,4.9,"DT")="3031226"
^DD(4.001,5,0)="ZRT-PROCESSING LOGIC^K^^5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(4.001,5,3)="This is Standard MUMPS code."
^DD(4.001,5,9)="@"
^DD(4.001,5,21,0)="^^1^1^3060207^"
^DD(4.001,5,21,1,0)="This is Standard MUMPS code that gets executed for each ZRT segment."
^DD(4.001,5,"DT")="3060207"
^DD(4.001,"B","ADD-PROCESSING LOGIC",3)=""
^DD(4.001,"B","ASSIGNING AUTHORITY",4.9)=""
^DD(4.001,"B","COLUMN",1)=""
^DD(4.001,"B","MAIL GROUP",.06)=""
^DD(4.001,"B","MASTER FILE",.01)=""
^DD(4.001,"B","MASTER FILE IDENTIFIER",.07)=""
^DD(4.001,"B","MFE ALT CODSYS",4.6)=""
^DD(4.001,"B","MFE ALT ID FIELD",4.4)=""
^DD(4.001,"B","MFE ALT ID TYPE",4.14)=""
^DD(4.001,"B","MFE ALT TEXT FIELD",4.5)=""
^DD(4.001,"B","MFE ALT TEXT TYPE",4.15)=""
^DD(4.001,"B","MFE CODSYS",4.3)=""
^DD(4.001,"B","MFE ID FIELD",4.1)=""
^DD(4.001,"B","MFE ID TYPE",4.11)=""
^DD(4.001,"B","MFE PKV TYPE",4.7)=""
^DD(4.001,"B","MFE PKV X-REF",4.8)=""
^DD(4.001,"B","MFE POST-UPDATE ROUTINE",4.17)=""
^DD(4.001,"B","MFE PRE-UPDATE ROUTINE",4.16)=""
^DD(4.001,"B","MFE TEXT FIELD",4.2)=""
^DD(4.001,"B","MFE TEXT TYPE",4.12)=""
^DD(4.001,"B","MFE-PROCESSING LOGIC",4)=""
^DD(4.001,"B","MFI CODE",.03)=""
^DD(4.001,"B","POST-PROCESSING LOGIC",2)=""
^DD(4.001,"B","POST-UPDATE ROUTINE",.05)=""
^DD(4.001,"B","PRE-UPDATE ROUTINE",.04)=""
^DD(4.001,"B","SEGMENT NAME",.02)=""
^DD(4.001,"B","ZRT-PROCESSING LOGIC",5)=""
^DD(4.001,"GL",0,1,.01)=""
^DD(4.001,"GL",0,2,.02)=""
^DD(4.001,"GL",0,3,.03)=""
^DD(4.001,"GL",0,4,.04)=""
^DD(4.001,"GL",0,5,.05)=""
^DD(4.001,"GL",0,6,.06)=""
^DD(4.001,"GL",0,7,.07)=""
^DD(4.001,"GL",1,0,1)=""
^DD(4.001,"GL",2,"E1,245",2)=""
^DD(4.001,"GL",3,"E1,245",3)=""
^DD(4.001,"GL",4,"E1,245",4)=""
^DD(4.001,"GL",5,"E1,245",5)=""
^DD(4.001,"GL","MFE",1,4.1)=""
^DD(4.001,"GL","MFE",2,4.2)=""
^DD(4.001,"GL","MFE",3,4.3)=""
^DD(4.001,"GL","MFE",4,4.4)=""
^DD(4.001,"GL","MFE",5,4.5)=""
^DD(4.001,"GL","MFE",6,4.6)=""
^DD(4.001,"GL","MFE",7,4.7)=""
^DD(4.001,"GL","MFE",8,4.8)=""
^DD(4.001,"GL","MFE",9,4.9)=""
^DD(4.001,"GL","MFE",11,4.11)=""
^DD(4.001,"GL","MFE",12,4.12)=""
^DD(4.001,"GL","MFE",14,4.14)=""
^DD(4.001,"GL","MFE",15,4.15)=""
^DD(4.001,"GL","MFE",16,4.16)=""
^DD(4.001,"GL","MFE",17,4.17)=""
^DD(4.001,"IX",.01)=""
^DD(4.001,"IX",.02)=""
^DD(4.001,"IX",.03)=""
^DD(4.001,"IX",.07)=""
^DD(4.001,"RQ",.01)=""
^DD(4.001,"RQ",.02)=""
^DD(4.001,"RQ",.03)=""
^DD(4.001,"RQ",.04)=""
^DD(4.001,"RQ",4.1)=""
^DD(4.001,"RQ",4.11)=""
^DD(4.001,"RQ",4.12)=""
^DD(4.001,"RQ",4.14)=""
^DD(4.001,"RQ",4.15)=""
^DD(4.001,"RQ",4.16)=""
^DD(4.001,"RQ",4.17)=""
^DD(4.001,"RQ",4.2)=""
^DD(4.001,"RQ",4.3)=""
^DD(4.001,"RQ",4.4)=""
^DD(4.001,"RQ",4.5)=""
^DD(4.001,"RQ",4.6)=""
^DD(4.001,"RQ",4.7)=""
^DD(4.001,"RQ",4.8)=""
^DD(4.001,"RQ",4.9)=""
^DD(4.001,"SB",4.011,1)=""
^DD(4.005,0)="FIELD^^6^7"
^DD(4.005,0,"DDA")="N"
^DD(4.005,0,"DT")="3060626"
^DD(4.005,0,"IX","B",4.005,.01)=""
^DD(4.005,0,"NM","MD5 Signature")=""
^DD(4.005,0,"VR")="8.0"
^DD(4.005,0,"VRPK")="XU"
^DD(4.005,.01,0)="MD5 CODE SYSTEM^RFX^^0;1^K:$L(X)>32!($L(X)<1) X"
^DD(4.005,.01,.1)="MD5 Code System"
^DD(4.005,.01,1,0)="^.1"
^DD(4.005,.01,1,1,0)="4.005^B"
^DD(4.005,.01,1,1,1)="S ^DIC(4.005,""B"",$E(X,1,30),DA)="""""
^DD(4.005,.01,1,1,2)="K ^DIC(4.005,""B"",$E(X,1,30),DA)"
^DD(4.005,.01,3)="Answer must be 1-32 characters in length."
^DD(4.005,.01,21,0)="^^1^1^3050818^"
^DD(4.005,.01,21,1,0)="This field is the Domain name of SDS for which MD5 will be requested."
^DD(4.005,.01,"DT")="3050818"
^DD(4.005,1,0)="FILE/SUBFILE NUMBER^4.0051^^1;0"
^DD(4.005,1,21,0)="^.001^2^2^3060705^^^^"
^DD(4.005,1,21,1,0)="This field is the Internal File Number (IFN) of the MD5 table supported "
^DD(4.005,1,21,2,0)="by the Master File Server (MFS)."
^DD(4.005,2,0)="Vets Code System Version^NJ16,5^^2;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""6N.N) X"
^DD(4.005,2,3)="Type a Number between 1 and 9999999999, 5 Decimal Digits"
^DD(4.005,2,21,0)="^^1^1^3050609^"
^DD(4.005,2,21,1,0)="Vets Code System Version"
^DD(4.005,2,"DT")="3050609"
^DD(4.005,3,0)="Vets MD5 Hash^F^^2;2^K:$L(X)>32!($L(X)<1) X"
^DD(4.005,3,3)="Answer must be 1-32 characters in length."
^DD(4.005,3,21,0)="^^1^1^3050609^"
^DD(4.005,3,21,1,0)="Vets MD5 Hash ENTRY"
^DD(4.005,3,"DT")="3050609"
^DD(4.005,4,0)="Date of MD5 verification^D^^2;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(4.005,4,21,0)="^^1^1^3050609^"
^DD(4.005,4,21,1,0)="Date of MD5 verification"
^DD(4.005,4,"DT")="3050609"
^DD(4.005,5,0)="Computed MD5 value^F^^2;4^K:$L(X)>32!($L(X)<1) X"
^DD(4.005,5,3)="Don't enter the data."
^DD(4.005,5,21,0)="^^1^1^3050818^"
^DD(4.005,5,21,1,0)="Computed MD5 checksum value, 32 cha long."
^DD(4.005,5,"DT")="3050818"
^DD(4.005,6,0)="Debug Mode^NJ3,1^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""2.N) X"
^DD(4.005,6,3)="Type a number between 0 and 9, 1 Decimal Digit"
^DD(4.005,6,21,0)="^^6^6^3050818^"
^DD(4.005,6,21,1,0)="Field indicates the level of response."
^DD(4.005,6,21,2,0)="MODE = 0 regular mode.. last HASH value returned in Apl. ACK."
^DD(4.005,6,21,3,0)="       1 debugging mode.. all values + hash codess returned in Apl ACK"
^DD(4.005,6,21,4,0)="       1.1 debugging mode.. all values (no hash codes) returned in Apl ACK"
^DD(4.005,6,21,5,0)="       2 debugging mode.. all fields values, all hash values,all hash "
^DD(4.005,6,21,6,0)="         codes returned in Apl. ACK."
^DD(4.005,6,"DT")="3050818"
^DD(4.005,"B","Computed MD5 value",5)=""
^DD(4.005,"B","Date of MD5 verification",4)=""
^DD(4.005,"B","Debug Mode",6)=""
^DD(4.005,"B","FILE/SUBFILE NUMBER",1)=""
^DD(4.005,"B","MD5 CODE SYSTEM",.01)=""
^DD(4.005,"B","MD5 Code System",.01)="1"
^DD(4.005,"B","Vets Code System Version",2)=""
^DD(4.005,"B","Vets MD5 Hash",3)=""
^DD(4.005,"GL",0,1,.01)=""
^DD(4.005,"GL",0,2,6)=""
^DD(4.005,"GL",1,0,1)=""
^DD(4.005,"GL",2,1,2)=""
^DD(4.005,"GL",2,2,3)=""
^DD(4.005,"GL",2,3,4)=""
^DD(4.005,"GL",2,4,5)=""
^DD(4.005,"IX",.01)=""
^DD(4.005,"RQ",.01)=""
^DD(4.005,"SB",4.0051,1)=""
^DD(4.0051,0)="FILE/SUBFILE NUMBER SUB-FIELD^^1^2"
^DD(4.0051,0,"DT")="3060626"
^DD(4.0051,0,"IX","B",4.0051,.01)=""
^DD(4.0051,0,"NM","FILE/SUBFILE NUMBER")=""
^DD(4.0051,0,"UP")="4.005"
^DD(4.0051,.01,0)="FILE/SUBFILE NUMBER^MFX^^0;1^K:$L(X)>15!($L(X)<1) X S:$D(X) DINUM=X"
^DD(4.0051,.01,.1)="File/Subfile Number"
^DD(4.0051,.01,1,0)="^.1"
^DD(4.0051,.01,1,1,0)="4.0051^B"
^DD(4.0051,.01,1,1,1)="S ^DIC(4.005,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(4.0051,.01,1,1,2)="K ^DIC(4.005,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(4.0051,.01,3)="Select file/subfile number to be included in MD5 procedure of the Master File Server (MFS) mechanism"
^DD(4.0051,.01,21,0)="^^2^2^3050818^"
^DD(4.0051,.01,21,1,0)="This field is the Internal File Number (IFN) of the MD5 table supported "
^DD(4.0051,.01,21,2,0)="by the Master File Server (MFS)."
^DD(4.0051,.01,"DT")="3060517"
^DD(4.0051,1,0)="FIELD NUMBER^4.00511^^1;0"
^DD(4.0051,1,21,0)="^.001^2^2^3060705^^^^"
^DD(4.0051,1,21,1,0)="This is the field number of file/subfile to be included in MD5 procedure "
^DD(4.0051,1,21,2,0)="of the Master File Server (MFS)."
^DD(4.0051,"B","FIELD NUMBER",1)=""
^DD(4.0051,"B","FILE/SUBFILE NUMBER",.01)=""
^DD(4.0051,"B","File/Subfile Number",.01)="1"
^DD(4.0051,"GL",0,1,.01)=""
^DD(4.0051,"GL",1,0,1)=""
^DD(4.0051,"IX",.01)=""
^DD(4.0051,"SB",4.00511,1)=""
^DD(4.00511,0)="FIELD NUMBER SUB-FIELD^^4^5"
^DD(4.00511,0,"DT")="3060626"
^DD(4.00511,0,"IX","B",4.00511,.01)=""
^DD(4.00511,0,"NM","FIELD NUMBER")=""
^DD(4.00511,0,"UP")="4.0051"
^DD(4.00511,.01,0)="FIELD NUMBER^MFX^^0;1^K:+X'=X!(X>999999)!(X<.001) X S:$D(X) DINUM=X"
^DD(4.00511,.01,1,0)="^.1"
^DD(4.00511,.01,1,1,0)="4.00511^B"
^DD(4.00511,.01,1,1,1)="S ^DIC(4.005,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(4.00511,.01,1,1,2)="K ^DIC(4.005,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(4.00511,.01,3)="Select field of file/subfile to be included in MD5 procedure of the Master File Server (MFS)."
^DD(4.00511,.01,"DT")="3060517"
^DD(4.00511,1,0)="SEQUNCE^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1.N) X"
^DD(4.00511,1,3)="Type the sequence # the field will be taken in MD5 hash."
^DD(4.00511,1,21,0)="^^1^1^3050818^"
^DD(4.00511,1,21,1,0)="Order sequence, the field will be taken in MD5 hash."
^DD(4.00511,1,"DT")="3050819"
^DD(4.00511,2,0)="External/Internal^S^I:INTERNAL;E:EXTERNAL;^0;3^Q"
^DD(4.00511,2,21,0)="^^1^1^3050802^"
^DD(4.00511,2,21,1,0)="Get External or internal Fileman value.. Default = Internal"
^DD(4.00511,2,"DT")="3050802"
^DD(4.00511,3,0)="VUID FROM FILE^NJ21,8^^0;4^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""9N.N) X"
^DD(4.00511,3,3)="Enter the number of the file being pointed to.  Type '@' and press Enter to clear this setting"
^DD(4.00511,3,21,0)="^^2^2^3060426^"
^DD(4.00511,3,21,1,0)="If Pointer type field to .01 (Name), replace Name with VUID of pointed "
^DD(4.00511,3,21,2,0)="file. Field holds Pointed File #."
^DD(4.00511,3,"DT")="3060426"
^DD(4.00511,4,0)="Distinct values^S^0:NO;1:YES;^0;5^Q"
^DD(4.00511,4,"DT")="3060705"
^DD(4.00511,"B","Distinct values",4)=""
^DD(4.00511,"B","External/Internal",2)=""
^DD(4.00511,"B","FIELD NUMBER",.01)=""
^DD(4.00511,"B","SEQUNCE",1)=""
^DD(4.00511,"B","VUID FROM FILE",3)=""
^DD(4.00511,"GL",0,1,.01)=""
^DD(4.00511,"GL",0,2,1)=""
^DD(4.00511,"GL",0,3,2)=""
^DD(4.00511,"GL",0,4,3)=""
^DD(4.00511,"GL",0,5,4)=""
^DD(4.00511,"IX",.01)=""
^DD(4.009,0)="FIELD^^99.991^5"
^DD(4.009,0,"DDA")="N"
^DD(4.009,0,"DT")="3050719"
^DD(4.009,0,"IX","AVUID",4.009,99.99)=""
^DD(4.009,0,"IX","B",4.009,.01)=""
^DD(4.009,0,"NM","STANDARD TERMINOLOGY VERSION FILE")=""
^DD(4.009,0,"VR")="8.0"
^DD(4.009,0,"VRPK")="XU"
^DD(4.009,.01,0)="VERSION NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(4.009,.01,1,0)="^.1"
^DD(4.009,.01,1,1,0)="4.009^B"
^DD(4.009,.01,1,1,1)="S ^DIC(4.009,""B"",$E(X,1,30),DA)="""""
^DD(4.009,.01,1,1,2)="K ^DIC(4.009,""B"",$E(X,1,30),DA)"
^DD(4.009,.01,3)="Answer must be 3-50 characters in length."
^DD(4.009,.01,11,0)="^.2LAP"
^DD(4.009,.01,21,0)="^.001^1^1^3050719^^"
^DD(4.009,.01,21,1,0)="NAME THAT DESCRIBES THE VERSION"
^DD(4.009,.01,"DT")="3050719"
^DD(4.009,1,0)="VERSION^RF^^0;2^K:$L(X)>7!($L(X)<1) X"
^DD(4.009,1,3)="Answer must be 1-7 characters in length."
^DD(4.009,1,21,0)="^^1^1^3050719^"
^DD(4.009,1,21,1,0)="Version of the terminology"
^DD(4.009,1,"DT")="3050719"
^DD(4.009,99.98,0)="MASTER ENTRY FOR VUID^S^1:YES;0:NO;^VUID;2^Q"
^DD(4.009,99.98,21,0)="^^1^1^3050719^"
^DD(4.009,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a Term/Concept."
^DD(4.009,99.98,"DT")="3050719"
^DD(4.009,99.99,0)="VUID^F^^VUID;1^K:$L(X)>20!($L(X)<1) X"
^DD(4.009,99.99,1,0)="^.1"
^DD(4.009,99.99,1,1,0)="4.009^AVUID"
^DD(4.009,99.99,1,1,1)="S ^DIC(4.009,""AVUID"",$E(X,1,30),DA)="""""
^DD(4.009,99.99,1,1,2)="K ^DIC(4.009,""AVUID"",$E(X,1,30),DA)"
^DD(4.009,99.99,1,1,3)="Please don't delete AVUID x-ref"
^DD(4.009,99.99,1,1,"DT")="3050719"
^DD(4.009,99.99,3)="Answer must be 1-20 characters in length."
^DD(4.009,99.99,21,0)="^^1^1^3050719^"
^DD(4.009,99.99,21,1,0)="Unique identification from ERT."
^DD(4.009,99.99,"DT")="3050719"
^DD(4.009,99.991,0)="EFFECTIVE DATE/TIME^4.00999DA^^TERMSTATUS;0"
^DD(4.009,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(4.009,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(4.009,"B","VERSION",1)=""
^DD(4.009,"B","VERSION NAME",.01)=""
^DD(4.009,"B","VUID",99.99)=""
^DD(4.009,"GL",0,1,.01)=""
^DD(4.009,"GL",0,2,1)=""
^DD(4.009,"GL","TERMSTATUS",0,99.991)=""
^DD(4.009,"GL","VUID",1,99.99)=""
^DD(4.009,"GL","VUID",2,99.98)=""
^DD(4.009,"IX",.01)=""
^DD(4.009,"IX",99.99)=""
^DD(4.009,"RQ",.01)=""
^DD(4.009,"RQ",1)=""
^DD(4.009,"SB",4.00999,99.991)=""
^DD(4.00999,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(4.00999,0,"DT")="3050719"
^DD(4.00999,0,"IX","B",4.00999,.01)=""
^DD(4.00999,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(4.00999,0,"UP")="4.009"
^DD(4.00999,.01,0)="EFFECTIVE DATE/TIME^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(4.00999,.01,1,0)="^.1"
^DD(4.00999,.01,1,1,0)="4.00999^B"
^DD(4.00999,.01,1,1,1)="S ^DIC(4.009,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(4.00999,.01,1,1,2)="K ^DIC(4.009,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(4.00999,.01,21,0)="^^1^1^3050719^"
^DD(4.00999,.01,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(4.00999,.01,"DT")="3050719"
^DD(4.00999,.02,0)="STATUS^S^1:ACTIVE;2:INACTIVE;^0;2^Q"
^DD(4.00999,.02,21,0)="^^4^4^3050719^"
^DD(4.00999,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'."
^DD(4.00999,.02,21,2,0)="If 'ACTIVE', then the term will be accessible by end-users to "
^DD(4.00999,.02,21,3,0)="document a particular patient event.  If 'INACTIVE', then the term will only be "
^DD(4.00999,.02,21,4,0)="accessible by the application to display legacy data."
^DD(4.00999,.02,"DT")="3050719"
^DD(4.00999,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(4.00999,"B","STATUS",.02)=""
^DD(4.00999,"GL",0,1,.01)=""
^DD(4.00999,"GL",0,2,.02)=""
^DD(4.00999,"IX",.01)=""
^DD(4.011,0)="COLUMN SUB-FIELD^^1^16"
^DD(4.011,0,"DT")="3060525"
^DD(4.011,0,"IX","ASEQ",4.011,.15)=""
^DD(4.011,0,"IX","B",4.011,.01)=""
^DD(4.011,0,"NM","COLUMN")=""
^DD(4.011,0,"UP")="4.001"
^DD(4.011,.01,0)="COLUMN DESCRIPTION^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(4.011,.01,1,0)="^.1"
^DD(4.011,.01,1,1,0)="4.011^B"
^DD(4.011,.01,1,1,1)="S ^DIC(4.001,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(4.011,.01,1,1,2)="K ^DIC(4.001,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(4.011,.01,3)="Answer must be 1-40 characters in length."
^DD(4.011,.01,21,0)="^.001^21^21^3040420^^^^"
^DD(4.011,.01,21,1,0)="The column description is the identifier that"
^DD(4.011,.01,21,2,0)="names the data element that gets mapped to a"
^DD(4.011,.01,21,3,0)="FileMan field.  The RDF segment (table row "
^DD(4.011,.01,21,4,0)="definition) has a field (the 3rd sequence) that"
^DD(4.011,.01,21,5,0)="is a repeating element.  The 1st component of"
^DD(4.011,.01,21,6,0)="the element is the column description.  It is"
^DD(4.011,.01,21,7,0)="the column name in central repository master"
^DD(4.011,.01,21,8,0)="table."
^DD(4.011,.01,21,9,0)=""
^DD(4.011,.01,21,10,0)="(The 2nd component is the HL7 data type.  The"
^DD(4.011,.01,21,11,0)="3rd component is the length of the field.) "
^DD(4.011,.01,21,12,0)="                                "
^DD(4.011,.01,21,13,0)="The RDF segment defines the format of"
^DD(4.011,.01,21,14,0)="subsequent RDT segment (table row data).  The"
^DD(4.011,.01,21,15,0)="sequence of column description fields in the"
^DD(4.011,.01,21,16,0)="RDF segment maps the sequence of the"
^DD(4.011,.01,21,17,0)="corresponding data values in the RDT segment."
^DD(4.011,.01,21,18,0)=""
^DD(4.011,.01,21,19,0)="(The 2nd field of the RDF segment is the number"
^DD(4.011,.01,21,20,0)="of columns or data elements passed in the RDF"
^DD(4.011,.01,21,21,0)="and RDT segments.) "
^DD(4.011,.01,"DT")="3040420"
^DD(4.011,.02,0)="FIELD NUMBER^RNJ17,7X^^0;2^K:+X'=X!(X>999999999)!(X<.01)!(X?.E1"".""8N.N) X ;  K:'$$ECHO^XUMF(DA(1),DA,X,+$G(XUMF)) X"
^DD(4.011,.02,3)="Enter the field number for the data element."
^DD(4.011,.02,21,0)="^.001^6^6^3031224^^^"
^DD(4.011,.02,21,1,0)="This field holds the FileMan field number that corresponds to"
^DD(4.011,.02,21,2,0)="the segment sequence number in question."
^DD(4.011,.02,21,3,0)=" "
^DD(4.011,.02,21,4,0)="If this sequence component maps to a FileMan sub-file (multiple)"
^DD(4.011,.02,21,5,0)="then the SUBFILE NUMBER (#.04) is required before FIELD NUMBER to"
^DD(4.011,.02,21,6,0)="be able to validate (input transform.)"
^DD(4.011,.02,"DT")="3040420"
^DD(4.011,.03,0)="HL7 DATA TYPE^RP771.4'X^HL(771.4,^0;3^;K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.011,.03,3)="Enter the HL7 data type."
^DD(4.011,.03,21,0)="^^1^1^3031224^"
^DD(4.011,.03,21,1,0)="This field holds the HL7 data type of the sequence."
^DD(4.011,.03,"DT")="3040420"
^DD(4.011,.04,0)="SUBFILE NUMBER^NJ17,7X^^0;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""8.N) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.011,.04,3)="If multiple field, enter sub-file number."
^DD(4.011,.04,21,0)="^^2^2^3031224^"
^DD(4.011,.04,21,1,0)="This field holds the FileMan sub-file number.  ONLY if FIELD NUMBER"
^DD(4.011,.04,21,2,0)="relates to a field in a multiple."
^DD(4.011,.04,"DT")="3031226"
^DD(4.011,.05,0)="SUBFILE LKUP LITERAL^FX^^0;5^K:$L(X)>30!($L(X)<2) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.011,.05,3)="If subfile and .01 not in HL7 segment, enter literal value of the .01"
^DD(4.011,.05,21,0)="^^9^9^3031224^^"
^DD(4.011,.05,21,1,0)="If this sequence is a field in a subfile and the .01 of the multiple"
^DD(4.011,.05,21,2,0)="is not included in the HL7 segment but is some literal, then provide"
^DD(4.011,.05,21,3,0)="the literal string here."
^DD(4.011,.05,21,4,0)=" "
^DD(4.011,.05,21,5,0)="If SUBFILE LKUP LITERAL is NULL then SUBFILE LKUP SEQUENCE must not"
^DD(4.011,.05,21,6,0)="be NULL."
^DD(4.011,.05,21,7,0)=""
^DD(4.011,.05,21,8,0)="If SUBFILE LKUP LITERAL is not NULL then SUBFILE LKUP SEQUENCE must"
^DD(4.011,.05,21,9,0)="be NULL."
^DD(4.011,.05,"DT")="3031226"
^DD(4.011,.06,0)="SUBFILE LKUP COLUMN^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(4.011,.06,3)="Enter the COLUMN DESCRIPTION identifier that is the lookup (.01) to this field"
^DD(4.011,.06,21,0)="^.001^11^11^3050519^^^^"
^DD(4.011,.06,21,1,0)="If the FIELD NUMBER is associated with a multiple field, then this"
^DD(4.011,.06,21,2,0)="field holds the COLUMN DESCRIPTION of the .01 field of the multiple. "
^DD(4.011,.06,21,3,0)=" "
^DD(4.011,.06,21,4,0)="If the .01 field is not a sequence, then leave this field blank and"
^DD(4.011,.06,21,5,0)="provide a value for SUBFILE LKUP LITERAL."
^DD(4.011,.06,21,6,0)=" "
^DD(4.011,.06,21,7,0)="If SUBFILE LKUP LITERAL is NULL then SUBFILE LKUP SEQUENCE must not"
^DD(4.011,.06,21,8,0)="be NULL."
^DD(4.011,.06,21,9,0)=""
^DD(4.011,.06,21,10,0)="If SUBFILE LKUP LITERAL is not NULL then SUBFILE LKUP SEQUENCE must"
^DD(4.011,.06,21,11,0)="be NULL."
^DD(4.011,.06,"DT")="3040525"
^DD(4.011,.07,0)="EXTENDED POINTER LKUP^NJ17,7X^^0;7^K:+X'=X!(X>999999999)!(X<.01)!(X?.E1"".""8.N) X K:'$$F^XUMF(+$G(XUMF)) X"
^DD(4.011,.07,3)="Enter the field number which is the key to the extended reference of FIELD NAME if other than .01"
^DD(4.011,.07,21,0)="^.001^8^8^3050516^^"
^DD(4.011,.07,21,1,0)="If FIELD NUMBER is a pointer and you want to look-up"
^DD(4.011,.07,21,2,0)="the entry by a field other than its .01, then enter"
^DD(4.011,.07,21,3,0)="that field number."
^DD(4.011,.07,21,4,0)=""
^DD(4.011,.07,21,5,0)="Example: Parent facility, in the association multiple"
^DD(4.011,.07,21,6,0)="of the Institution file points to Institution.  The"
^DD(4.011,.07,21,7,0)="Institution NAME may not be unique.  It would be more"
^DD(4.011,.07,21,8,0)="useful to look-up the Institution by STATION NUMBER."
^DD(4.011,.07,"DT")="3031226"
^DD(4.011,.08,0)="LIST^S^1:YES;0:NO;^0;8^Q"
^DD(4.011,.08,3)="Is this a member of a sub-file to be compared against the message"
^DD(4.011,.08,"DT")="3060413"
^DD(4.011,.09,0)="COLUMN LENGTH^RNJ2,0^^0;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.011,.09,3)="Type the maximum column width"
^DD(4.011,.09,21,0)="^.001^4^4^3040525^^^^"
^DD(4.011,.09,21,1,0)="This field holds the maximum column width of the column in question."
^DD(4.011,.09,21,2,0)="The column description is the 3rd sequence of the RDF segment.  It"
^DD(4.011,.09,21,3,0)="is a repeating element.  The maximum column width is the 3rd component"
^DD(4.011,.09,21,4,0)="of the element."
^DD(4.011,.09,"DT")="3040525"
^DD(4.011,.11,0)="REPEATING FIELD^S^1:YES;0:NO;^0;11^Q"
^DD(4.011,.11,21,0)="^^5^5^3040817^"
^DD(4.011,.11,21,1,0)="If this field is repeating - a single valued multiple (a multiple"
^DD(4.011,.11,21,2,0)="field with only a .01 field) - field, then set the flag to YES."
^DD(4.011,.11,21,3,0)=""
^DD(4.011,.11,21,4,0)="If the multiple should be cleaned out first, then also set the CLEAN"
^DD(4.011,.11,21,5,0)="MULTIPLE flag too."
^DD(4.011,.11,"DT")="3040817"
^DD(4.011,.12,0)="CLEAN MULTIPLE^S^1:YES;0:NO;^0;12^Q"
^DD(4.011,.12,3)="delete existing values before updating"
^DD(4.011,.12,21,0)="^^6^6^3040817^"
^DD(4.011,.12,21,1,0)="If this field is a single valued repeating element (see REPEATING FIELD)"
^DD(4.011,.12,21,2,0)="and the existing values should be deleted before the update occurs, then"
^DD(4.011,.12,21,3,0)="set this flag to YES."
^DD(4.011,.12,21,4,0)=""
^DD(4.011,.12,21,5,0)="By setting this flag, you indicate all the valid data is contained within"
^DD(4.011,.12,21,6,0)="the incoming message, so purge existing values and start clean."
^DD(4.011,.12,"DT")="3040817"
^DD(4.011,.13,0)="VUID PREFIX^F^^0;13^K:$L(X)>10!($L(X)<1) X"
^DD(4.011,.13,3)="Enter string (i.e. ""VUID"") to indicate VUID value is passed instead of VALUE"
^DD(4.011,.13,21,0)="^.001^7^7^3050516^^"
^DD(4.011,.13,21,1,0)="String indicates that the field is a Pointer, and"
^DD(4.011,.13,21,2,0)="the VUID may be used instead of the value (.01)."
^DD(4.011,.13,21,3,0)=""
^DD(4.011,.13,21,4,0)="Example:  Instead of Drug Class name, you may be use"
^DD(4.011,.13,21,5,0)="the VUID of the drug class such as ""VUID123456"", where"
^DD(4.011,.13,21,6,0)="123456 is the VUID of the Drug Class and ""VUID"" is the"
^DD(4.011,.13,21,7,0)="prefix."
^DD(4.011,.13,"DT")="3041019"
^DD(4.011,.14,0)="TIME ZONE FLAG^S^L:LOCAL;U:UTC;^0;14^Q"
^DD(4.011,.14,3)="Should the local or UTC time be filed?"
^DD(4.011,.14,21,0)="^.001^7^7^3050317^^^^"
^DD(4.011,.14,21,1,0)="If this column/field represents a date data type then MFS"
^DD(4.011,.14,21,2,0)="needs to know how to handle the time zone."
^DD(4.011,.14,21,3,0)=" "
^DD(4.011,.14,21,4,0)="This field indicates how FileMan should file the HL7 date --"
^DD(4.011,.14,21,5,0)="local time or UTC time."
^DD(4.011,.14,21,6,0)=""
^DD(4.011,.14,21,7,0)="Note: VUID effective date/time should always be flagged LOCAL."
^DD(4.011,.14,"DT")="3050317"
^DD(4.011,.15,0)="SEQUENCE^NJ3,0^^0;15^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.011,.15,1,0)="^.1"
^DD(4.011,.15,1,1,0)="4.011^ASEQ"
^DD(4.011,.15,1,1,1)="S ^DIC(4.001,DA(1),1,""ASEQ"",$E(X,1,30),DA)="""""
^DD(4.011,.15,1,1,2)="K ^DIC(4.001,DA(1),1,""ASEQ"",$E(X,1,30),DA)"
^DD(4.011,.15,1,1,"%D",0)="^^2^2^3060301^"
^DD(4.011,.15,1,1,"%D",1,0)="The sequence number of the data segments returned in a query.  "
^DD(4.011,.15,1,1,"%D",2,0)="Sub-file entries should use fractional digits to group data."
^DD(4.011,.15,1,1,"DT")="3060301"
^DD(4.011,.15,3)="Type a Number between 1 and 999"
^DD(4.011,.15,21,0)="^^6^6^3060306^"
^DD(4.011,.15,21,1,0)="The sequence number of the data segments returned in a query."
^DD(4.011,.15,21,2,0)=" "
^DD(4.011,.15,21,3,0)="If this field is a Sub-file record, enter the sequence of the .01."
^DD(4.011,.15,21,4,0)="If the sequence has associated sub-record fields, use the SUBFILE"
^DD(4.011,.15,21,5,0)="SEQUENCE of this sequence number to sequence the fields of the"
^DD(4.011,.15,21,6,0)="sub-record."
^DD(4.011,.15,"DT")="3060306"
^DD(4.011,.16,0)="WP FIELD^S^1:YES;0:NO;^0;16^Q"
^DD(4.011,.16,3)="Is this a Word Processing field"
^DD(4.011,.16,21,0)="^^2^2^3060511^"
^DD(4.011,.16,21,1,0)="If this field is a word processing field then set this flag"
^DD(4.011,.16,21,2,0)="to YES."
^DD(4.011,.16,"DT")="3060511"
^DD(4.011,1,0)="SUBFILE SEQUENCE^4.111^^1;0"
^DD(4.011,"B","CLEAN MULTIPLE",.12)=""
^DD(4.011,"B","COLUMN DESCRIPTION",.01)=""
^DD(4.011,"B","COLUMN LENGTH",.09)=""
^DD(4.011,"B","EXTENDED POINTER LKUP",.07)=""
^DD(4.011,"B","FIELD NUMBER",.02)=""
^DD(4.011,"B","HL7 DATA TYPE",.03)=""
^DD(4.011,"B","LIST",.08)=""
^DD(4.011,"B","REPEATING FIELD",.11)=""
^DD(4.011,"B","SEQUENCE",.15)=""
^DD(4.011,"B","SUBFILE LKUP COLUMN",.06)=""
^DD(4.011,"B","SUBFILE LKUP LITERAL",.05)=""
^DD(4.011,"B","SUBFILE NUMBER",.04)=""
^DD(4.011,"B","SUBFILE SEQUENCE",1)=""
^DD(4.011,"B","TIME ZONE FLAG",.14)=""
^DD(4.011,"B","VUID PREFIX",.13)=""
^DD(4.011,"B","WP FIELD",.16)=""
^DD(4.011,"GL",0,1,.01)=""
^DD(4.011,"GL",0,2,.02)=""
^DD(4.011,"GL",0,3,.03)=""
^DD(4.011,"GL",0,4,.04)=""
^DD(4.011,"GL",0,5,.05)=""
^DD(4.011,"GL",0,6,.06)=""
^DD(4.011,"GL",0,7,.07)=""
^DD(4.011,"GL",0,8,.08)=""
^DD(4.011,"GL",0,9,.09)=""
^DD(4.011,"GL",0,11,.11)=""
^DD(4.011,"GL",0,12,.12)=""
^DD(4.011,"GL",0,13,.13)=""
^DD(4.011,"GL",0,14,.14)=""
^DD(4.011,"GL",0,15,.15)=""
^DD(4.011,"GL",0,16,.16)=""
^DD(4.011,"GL",1,0,1)=""
^DD(4.011,"IX",.01)=""
^DD(4.011,"IX",.15)=""
^DD(4.011,"RQ",.02)=""
^DD(4.011,"RQ",.03)=""
^DD(4.011,"RQ",.09)=""
^DD(4.011,"SB",4.111,1)=""
^DD(4.014,0)="ASSOCIATIONS SUB-FIELD^^1^2"
^DD(4.014,0,"DT")="3040112"
^DD(4.014,0,"IX","B",4.014,.01)=""
^DD(4.014,0,"NM","ASSOCIATIONS")=""
^DD(4.014,0,"UP")="4"
^DD(4.014,.01,0)="ASSOCIATIONS^P4.05'X^DIC(4.05,^0;1^S DINUM=X"
^DD(4.014,.01,1,0)="^.1^^-1"
^DD(4.014,.01,1,1,0)="4.014^B"
^DD(4.014,.01,1,1,1)="S ^DIC(4,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(4.014,.01,1,1,2)="K ^DIC(4,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(4.014,.01,21,0)="^^2^2^2971021^"
^DD(4.014,.01,21,1,0)="This multiple field is used to link groups if Institutions into"
^DD(4.014,.01,21,2,0)="associations."
^DD(4.014,.01,"DT")="2971203"
^DD(4.014,1,0)="PARENT OF ASSOCIATION^P4'^DIC(4,^0;2^Q"
^DD(4.014,1,1,0)="^.1"
^DD(4.014,1,1,1,0)="4^AC^MUMPS"
^DD(4.014,1,1,1,1)="S ^DIC(4,""AC"",DA,X,DA(1))="""""
^DD(4.014,1,1,1,2)="K ^DIC(4,""AC"",DA,X,DA(1))"
^DD(4.014,1,1,1,3)="This is needed by CIRN"
^DD(4.014,1,1,1,"%D",0)="^^2^2^2971021^"
^DD(4.014,1,1,1,"%D",1,0)="This X-ref is used to find the children of a patent for an Association"
^DD(4.014,1,1,1,"%D",2,0)="type."
^DD(4.014,1,1,1,"DT")="2971021"
^DD(4.014,1,21,0)="^^2^2^2971021^^"
^DD(4.014,1,21,1,0)="This field points back to the Institution file to indicate the"
^DD(4.014,1,21,2,0)="parent of the association."
^DD(4.014,1,"DT")="3040112"
^DD(4.014,"B","ASSOCIATIONS",.01)=""
^DD(4.014,"B","PARENT OF ASSOCIATION",1)=""
^DD(4.014,"GL",0,1,.01)=""
^DD(4.014,"GL",0,2,1)=""
^DD(4.014,"IX",.01)=""
^DD(4.014,"IX",1)=""
^DD(4.03,0)="CONTACT SUB-FIELD^NL^.03^3"
^DD(4.03,0,"NM","CONTACT")=""
^DD(4.03,0,"UP")="4"
^DD(4.03,.01,0)="CONTACT^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(4.03,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(4.03,.01,21,0)="^^1^1^2920528^^^^"
^DD(4.03,.01,21,1,0)="The name of a contact at the site."
^DD(4.03,.02,0)="AREA^P44'^SC(^0;2^Q"
^DD(4.03,.02,21,0)="^^1^1^2920528^^^^"
^DD(4.03,.02,21,1,0)="Pointer to the part of the site the contact works in."
^DD(4.03,.03,0)="PHONE #^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(4.03,.03,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(4.03,.03,21,0)="^^1^1^2920528^^^^"
^DD(4.03,.03,21,1,0)="Telephone number."
^DD(4.03,"B","AREA",.02)=""
^DD(4.03,"B","CONTACT",.01)=""
^DD(4.03,"B","PHONE #",.03)=""
^DD(4.03,"GL",0,1,.01)=""
^DD(4.03,"GL",0,2,.02)=""
^DD(4.03,"GL",0,3,.03)=""
^DD(4.042,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.03^3"
^DD(4.042,0,"DT")="3060301"
^DD(4.042,0,"IX","AC",4.042,.03)=""
^DD(4.042,0,"IX","B",4.042,.01)=""
^DD(4.042,0,"IX","C",4.042,.03)=""
^DD(4.042,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(4.042,0,"UP")="4"
^DD(4.042,.01,0)="EFFECTIVE DATE/TIME^DX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(4.042,.01,1,0)="^.1"
^DD(4.042,.01,1,1,0)="4.042^B"
^DD(4.042,.01,1,1,1)="S ^DIC(4,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(4.042,.01,1,1,2)="K ^DIC(4,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)"
^DD(4.042,.01,3)="Enter the date/time of the last change to this NPI."
^DD(4.042,.01,21,0)="^.001^1^1^3060508^^"
^DD(4.042,.01,21,1,0)="This field contains the date and time of the last change to the NPI field."
^DD(4.042,.01,"DT")="3060301"
^DD(4.042,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(4.042,.02,21,0)="^.001^4^4^3060314^^"
^DD(4.042,.02,21,1,0)="The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then "
^DD(4.042,.02,21,2,0)="the NPI will be accessible by end-users to document a particular provider."
^DD(4.042,.02,21,3,0)="If 'INACTIVE', then the NPI will only be accessible by the application to"
^DD(4.042,.02,21,4,0)="display legacy data."
^DD(4.042,.02,"DT")="3060301"
^DD(4.042,.03,0)="NPI^RFX^^0;3^K:'($$CHKDGT^XUSNPIE1(X,DA,""Organization_ID"")) X"
^DD(4.042,.03,1,0)="^.1"
^DD(4.042,.03,1,1,0)="4.042^C"
^DD(4.042,.03,1,1,1)="S ^DIC(4,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)="""""
^DD(4.042,.03,1,1,2)="K ^DIC(4,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)"
^DD(4.042,.03,1,1,"DT")="3060321"
^DD(4.042,.03,1,2,0)="4.042^AC^MUMPS"
^DD(4.042,.03,1,2,1)="D SET1^XUSNPIE1(DA(1),X)"
^DD(4.042,.03,1,2,2)="Q"
^DD(4.042,.03,1,2,3)="Special Trigger"
^DD(4.042,.03,1,2,"%D",0)="^.101^1^1^3060512^^^^"
^DD(4.042,.03,1,2,"%D",1,0)="his Special x-ref sets the NPI field (#41.99)."
^DD(4.042,.03,1,2,"DT")="3060512"
^DD(4.042,.03,3)="Answer must be 10 characters in length and not being used."
^DD(4.042,.03,21,0)="^^2^2^3060301^"
^DD(4.042,.03,21,1,0)="Unique National Provider ID. A unique meaningless integer assigned to"
^DD(4.042,.03,21,2,0)="providers. "
^DD(4.042,.03,"DT")="3060817"
^DD(4.042,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(4.042,"B","NPI",.03)=""
^DD(4.042,"B","STATUS",.02)=""
^DD(4.042,"GL",0,1,.01)=""
^DD(4.042,"GL",0,2,.02)=""
^DD(4.042,"GL",0,3,.03)=""
^DD(4.042,"IX",.01)=""
^DD(4.042,"IX",.03)=""
^DD(4.042,"RQ",.02)=""
^DD(4.042,"RQ",.03)=""
^DD(4.043,0)="TAXONOMY CODE SUB-FIELD^^.03^3"
^DD(4.043,0,"DT")="3060615"
^DD(4.043,0,"IX","B",4.043,.01)=""
^DD(4.043,0,"IX","C",4.043,.02)=""
^DD(4.043,0,"NM","TAXONOMY CODE")=""
^DD(4.043,0,"UP")="4"
^DD(4.043,.01,0)="TAXONOMY CODE^MP8932.1'^USC(8932.1,^0;1^Q"
^DD(4.043,.01,1,0)="^.1"
^DD(4.043,.01,1,1,0)="4.043^B"
^DD(4.043,.01,1,1,1)="S ^DIC(4,DA(1),""TAXONOMY"",""B"",$E(X,1,30),DA)="""""
^DD(4.043,.01,1,1,2)="K ^DIC(4,DA(1),""TAXONOMY"",""B"",$E(X,1,30),DA)"
^DD(4.043,.01,3)="Enter the NUCC recognized taxonomy code."
^DD(4.043,.01,21,0)="^^2^2^3060615^"
^DD(4.043,.01,21,1,0)="This multiple field holds the NUCC recognized taxonomy code for an"
^DD(4.043,.01,21,2,0)="individual or an organization."
^DD(4.043,.01,"DT")="3060615"
^DD(4.043,.02,0)="PRIMARY CODE^S^1:YES;0:NO;^0;2^Q"
^DD(4.043,.02,1,0)="^.1"
^DD(4.043,.02,1,1,0)="4.043^C"
^DD(4.043,.02,1,1,1)="S ^DIC(4,DA(1),""TAXONOMY"",""C"",$E(X,1,30),DA)="""""
^DD(4.043,.02,1,1,2)="K ^DIC(4,DA(1),""TAXONOMY"",""C"",$E(X,1,30),DA)"
^DD(4.043,.02,1,1,3)="C X-REF"
^DD(4.043,.02,1,1,"DT")="3060615"
^DD(4.043,.02,3)="Enter a 1 if this is the provider's primary taxonomy code or a 0 for non-primary."
^DD(4.043,.02,21,0)="^^3^3^3060615^"
^DD(4.043,.02,21,1,0)="Only one code can be the primary taxonomy code for a provider. When a "
^DD(4.043,.02,21,2,0)="specific taxonomy code is identified it is the primary code that will be "
^DD(4.043,.02,21,3,0)="the default."
^DD(4.043,.02,"DT")="3060615"
^DD(4.043,.03,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;3^Q"
^DD(4.043,.03,3)="Enter an 'A' for an active code or an 'I' for an inactive code."
^DD(4.043,.03,21,0)="^^5^5^3060615^"
^DD(4.043,.03,21,1,0)="If a taxonomy code listed for a provider is a currently active code (one "
^DD(4.043,.03,21,2,0)="they use today), then the status should be marked with an 'A'. At times a"
^DD(4.043,.03,21,3,0)="provider will no longer use a taxonomy code. This code will be marked with"
^DD(4.043,.03,21,4,0)="an 'I' for inactive. Codes should not be removed from a provider's list."
^DD(4.043,.03,21,5,0)="They should be activated or inactivated."
^DD(4.043,.03,"DT")="3060615"
^DD(4.043,"B","PRIMARY CODE",.02)=""
^DD(4.043,"B","STATUS",.03)=""
^DD(4.043,"B","TAXONOMY CODE",.01)=""
^DD(4.043,"GL",0,1,.01)=""
^DD(4.043,"GL",0,2,.02)=""
^DD(4.043,"GL",0,3,.03)=""
^DD(4.043,"IX",.01)=""
^DD(4.043,"IX",.02)=""
^DD(4.05,0)="FIELD^^.01^2"
^DD(4.05,0,"DDA")="N"
^DD(4.05,0,"DT")="2980623"
^DD(4.05,0,"IX","B",4.05,.01)=""
^DD(4.05,0,"NM","INSTITUTION ASSOCIATION TYPES")=""
^DD(4.05,0,"PT",4.014,.01)=""
^DD(4.05,0,"VR")="8.0"
^DD(4.05,0,"VRPK")="XU"
^DD(4.05,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.05,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(4.05,.001,21,0)="^^2^2^2980623^"
^DD(4.05,.001,21,1,0)="Institution Associations Types can be uniquely identified by number"
^DD(4.05,.001,21,2,0)="throughout the VHA in VistA."
^DD(4.05,.001,"DT")="2980623"
^DD(4.05,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(4.05,.01,1,0)="^.1"
^DD(4.05,.01,1,1,0)="4.05^B"
^DD(4.05,.01,1,1,1)="S ^DIC(4.05,""B"",$E(X,1,30),DA)="""""
^DD(4.05,.01,1,1,2)="K ^DIC(4.05,""B"",$E(X,1,30),DA)"
^DD(4.05,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(4.05,"B","NAME",.01)=""
^DD(4.05,"B","NUMBER",.001)=""
^DD(4.05,"GL",0,1,.01)=""
^DD(4.05,"IX",.01)=""
^DD(4.05,"RQ",.01)=""
^DD(4.1,0)="FIELD^^3^4"
^DD(4.1,0,"DDA")="N"
^DD(4.1,0,"DT")="3000626"
^DD(4.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(4.1,0,"IX","B",4.1,.01)=""
^DD(4.1,0,"IX","C",4.1,1)=""
^DD(4.1,0,"IX","XUMF",4.1,3)=""
^DD(4.1,0,"NM","FACILITY TYPE")=""
^DD(4.1,0,"PT",4,13)=""
^DD(4.1,0,"VR")="8.0"
^DD(4.1,0,"VRPK")="XU"
^DD(4.1,.01,0)="NAME^RF^^0;1^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(4.1,.01,.1)="Type Code"
^DD(4.1,.01,1,0)="^.1"
^DD(4.1,.01,1,1,0)="4.1^B"
^DD(4.1,.01,1,1,1)="S ^DIC(4.1,""B"",$E(X,1,30),DA)="""""
^DD(4.1,.01,1,1,2)="K ^DIC(4.1,""B"",$E(X,1,30),DA)"
^DD(4.1,.01,3)="Answer must be 1-11 characters in length."
^DD(4.1,.01,21,0)="^^1^1^2980723^^^"
^DD(4.1,.01,21,1,0)="This is the Facility type code."
^DD(4.1,.01,"DT")="2890502"
^DD(4.1,1,0)="FULL NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3) X"
^DD(4.1,1,1,0)="^.1"
^DD(4.1,1,1,1,0)="4.1^C"
^DD(4.1,1,1,1,1)="S ^DIC(4.1,""C"",$E(X,1,30),DA)="""""
^DD(4.1,1,1,1,2)="K ^DIC(4.1,""C"",$E(X,1,30),DA)"
^DD(4.1,1,3)="Answer must be 3-45 characters in length."
^DD(4.1,1,21,0)="^^1^1^2920518^^"
^DD(4.1,1,21,1,0)="This is the full name of the facility type code."
^DD(4.1,2,0)="TITLE^F^^0;3^K:$L(X)>45!($L(X)<3) X"
^DD(4.1,2,3)="Answer must be 3-45 characters in length."
^DD(4.1,2,21,0)="^^1^1^2920518^^^"
^DD(4.1,2,21,1,0)="Reserved"
^DD(4.1,2,"DT")="2890502"
^DD(4.1,3,0)="STATUS^S^N:NATIONAL;L:LOCAL;^0;4^Q"
^DD(4.1,3,1,0)="^.1"
^DD(4.1,3,1,1,0)="4.1^XUMF"
^DD(4.1,3,1,1,1)="S ^DIC(4.1,""XUMF"",$E(X,1,30),DA)="""""
^DD(4.1,3,1,1,2)="K ^DIC(4.1,""XUMF"",$E(X,1,30),DA)"
^DD(4.1,3,1,1,"DT")="3000626"
^DD(4.1,3,3)="Local or National -- if national, do not edit!"
^DD(4.1,3,21,0)="^^3^3^3031223^"
^DD(4.1,3,21,1,0)="This field flags an entry as national.  National entries can not"
^DD(4.1,3,21,2,0)="be modified locally.  National Institutions will only point to"
^DD(4.1,3,21,3,0)="National facility types."
^DD(4.1,3,"DT")="3010104"
^DD(4.1,"B","FULL NAME",1)=""
^DD(4.1,"B","NAME",.01)=""
^DD(4.1,"B","STATUS",3)=""
^DD(4.1,"B","TITLE",2)=""
^DD(4.1,"B","Type Code",.01)="1"
^DD(4.1,"GL",0,1,.01)=""
^DD(4.1,"GL",0,2,1)=""
^DD(4.1,"GL",0,3,2)=""
^DD(4.1,"GL",0,4,3)=""
^DD(4.1,"IX",.01)=""
^DD(4.1,"IX",1)=""
^DD(4.1,"IX",3)=""
^DD(4.1,"RQ",.01)=""
^DD(4.11,0)="FIELD^^.02^2"
^DD(4.11,0,"DT")="3060511"
^DD(4.11,0,"IX","B",4.11,.01)=""
^DD(4.11,0,"NM","AGENCY")=""
^DD(4.11,0,"PT",4,97)=""
^DD(4.11,0,"PT",8,11)=""
^DD(4.11,0,"PT",44,23)=""
^DD(4.11,0,"VR")="8.0"
^DD(4.11,0,"VRPK")="XU"
^DD(4.11,.01,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<2)!'(X'?1P.E) X"
^DD(4.11,.01,1,0)="^.1"
^DD(4.11,.01,1,1,0)="4.11^B"
^DD(4.11,.01,1,1,1)="S ^DIC(4.11,""B"",$E(X,1,30),DA)="""""
^DD(4.11,.01,1,1,2)="K ^DIC(4.11,""B"",$E(X,1,30),DA)"
^DD(4.11,.01,3)="Answer must be 2-15 characters in length."
^DD(4.11,.01,21,0)="^^1^1^2911212^^"
^DD(4.11,.01,21,1,0)="The name of the agency."
^DD(4.11,.01,"DT")="2891204"
^DD(4.11,.01,"LAYGO",1,0)="I 1"
^DD(4.11,.02,0)="AGENCY CODE^RS^V:VA;AF:AIR FORCE;I:IHS;ARMY:ARMY;N:NAVY;O:OTHER;E:EHR;USCG:COAST GUARD;^0;2^Q"
^DD(4.11,.02,3)="Use OTHER if not one of the other agencies."
^DD(4.11,.02,21,0)="^^1^1^2911212^^"
^DD(4.11,.02,21,1,0)="a short code for the agency."
^DD(4.11,.02,"DT")="3060511"
^DD(4.11,"B","AGENCY CODE",.02)=""
^DD(4.11,"B","NAME",.01)=""
^DD(4.11,"GL",0,1,.01)=""
^DD(4.11,"GL",0,2,.02)=""
^DD(4.11,"IX",.01)=""
^DD(4.11,"RQ",.01)=""
^DD(4.11,"RQ",.02)=""
^DD(4.111,0)="SUBFILE SEQUENCE SUB-FIELD^^.05^5"
^DD(4.111,0,"DT")="3060525"
^DD(4.111,0,"IX","ASEQ1",4.111,.01)=""
^DD(4.111,0,"IX","B",4.111,.01)=""
^DD(4.111,0,"NM","SUBFILE SEQUENCE")=""
^DD(4.111,0,"UP")="4.011"
^DD(4.111,.01,0)="SUBFILE SEQUENCE^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.111,.01,1,0)="^.1"
^DD(4.111,.01,1,1,0)="4.111^B"
^DD(4.111,.01,1,1,1)="S ^DIC(4.001,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(4.111,.01,1,1,2)="K ^DIC(4.001,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(4.111,.01,1,2,0)="4.111^ASEQ1"
^DD(4.111,.01,1,2,1)="S ^DIC(4.001,DA(2),1,DA(1),1,""ASEQ1"",$E(X,1,30),DA)="""""
^DD(4.111,.01,1,2,2)="K ^DIC(4.001,DA(2),1,DA(1),1,""ASEQ1"",$E(X,1,30),DA)"
^DD(4.111,.01,1,2,"DT")="3060306"
^DD(4.111,.01,3)="Type a Number between 1 and 99"
^DD(4.111,.01,21,0)="^^2^2^3060306^"
^DD(4.111,.01,21,1,0)="If the SEQUENCE is a subfile, and it has associated fields at the"
^DD(4.111,.01,21,2,0)="sub-file level, enter the sequence of sub-record fields."
^DD(4.111,.01,"DT")="3060306"
^DD(4.111,.02,0)="SUBFILE COLUMN NAME^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(4.111,.02,.1)=""
^DD(4.111,.02,3)="Enter the subfile field # to be returned."
^DD(4.111,.02,21,0)="^^2^2^3060525^"
^DD(4.111,.02,21,1,0)="Enter the field name associated with the sub-file sequence for"
^DD(4.111,.02,21,2,0)="the sequence."
^DD(4.111,.02,"DT")="3060525"
^DD(4.111,.03,0)="SUBFILE FIELD NUMBER^NJ19,9^^0;3^K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"".""10N.N) X"
^DD(4.111,.03,3)="Enter the field number."
^DD(4.111,.03,21,0)="^^2^2^3060525^"
^DD(4.111,.03,21,1,0)="Enter the field name associated with the sub-file sequence"
^DD(4.111,.03,21,2,0)="for the sequence."
^DD(4.111,.03,"DT")="3060525"
^DD(4.111,.04,0)="SUBFILE FIELD VUID^S^1:YES;^0;4^Q"
^DD(4.111,.04,21,0)="^^2^2^3060525^"
^DD(4.111,.04,21,1,0)="If this field references another file entry by VUID set the flag"
^DD(4.111,.04,21,2,0)="to YES, otherwise leave empty."
^DD(4.111,.04,"DT")="3060525"
^DD(4.111,.05,0)="SUBFILE FIELD TYPE^F^^0;5^K:$L(X)>2!($L(X)<2) X"
^DD(4.111,.05,3)="Enter the 2 character HL7 data type."
^DD(4.111,.05,21,0)="^^1^1^3060525^"
^DD(4.111,.05,21,1,0)="This is the HL7 data type of the field.  The default is ST (string)."
^DD(4.111,.05,"DT")="3060525"
^DD(4.111,"B","SUBFILE COLUMN NAME",.02)=""
^DD(4.111,"B","SUBFILE FIELD NUMBER",.03)=""
^DD(4.111,"B","SUBFILE FIELD TYPE",.05)=""
^DD(4.111,"B","SUBFILE FIELD VUID",.04)=""
^DD(4.111,"B","SUBFILE SEQUENCE",.01)=""
^DD(4.111,"GL",0,1,.01)=""
^DD(4.111,"GL",0,2,.02)=""
^DD(4.111,"GL",0,3,.03)=""
^DD(4.111,"GL",0,4,.04)=""
^DD(4.111,"GL",0,5,.05)=""
^DD(4.111,"IX",.01)=""
^DD(4.2,0)="FIELD^^100^41"
^DD(4.2,0,"DDA")="Y"
^DD(4.2,0,"DT")="2990518"
^DD(4.2,0,"IX","AB",4.24,.01)=""
^DD(4.2,0,"IX","AC",4.2,1)=""
^DD(4.2,0,"IX","AD",4.2,6.2)=""
^DD(4.2,0,"IX","AE",4.2,50)=""
^DD(4.2,0,"IX","ATCP",4.2,6.61)=""
^DD(4.2,0,"IX","B",4.2,.01)=""
^DD(4.2,0,"IX","C",4.23,.01)=""
^DD(4.2,0,"IX","D",4.2,6.61)=""
^DD(4.2,0,"NM","DOMAIN")=""
^DD(4.2,0,"PT",3.8161,.01)=""
^DD(4.2,0,"PT",3.91,6)=""
^DD(4.2,0,"PT",4,60)=""
^DD(4.2,0,"PT",4.2,2)=""
^DD(4.2,0,"PT",4.2999,.01)=""
^DD(4.2,0,"PT",4.3,.01)=""
^DD(4.2,0,"PT",4.3,3)=""
^DD(4.2,0,"PT",4.31,.01)=""
^DD(4.2,0,"PT",18.01,.01)=""
^DD(4.2,0,"PT",64.6,6)=""
^DD(4.2,0,"PT",195.9,21)=""
^DD(4.2,0,"PT",349,22)=""
^DD(4.2,0,"PT",349.1,32)=""
^DD(4.2,0,"PT",349.161,.02)=""
^DD(4.2,0,"PT",349.9,13)=""
^DD(4.2,0,"PT",394.2,3)=""
^DD(4.2,0,"PT",394.26,1)=""
^DD(4.2,0,"PT",394.81,.02)=""
^DD(4.2,0,"PT",394.82,.02)=""
^DD(4.2,0,"PT",394.831,.02)=""
^DD(4.2,0,"PT",396.3,28)=""
^DD(4.2,0,"PT",396.327,8)=""
^DD(4.2,0,"PT",396.4,62)=""
^DD(4.2,0,"PT",407.71,1)=""
^DD(4.2,0,"PT",550,3)=""
^DD(4.2,0,"PT",552,4)=""
^DD(4.2,0,"PT",682.1,34)=""
^DD(4.2,0,"PT",774.01,2)=""
^DD(4.2,0,"PT",776.32,.01)=""
^DD(4.2,0,"PT",789.5,1)=""
^DD(4.2,0,"PT",869.3,.02)=""
^DD(4.2,0,"PT",870,.03)=""
^DD(4.2,0,"PT",1020.128,.01)=""
^DD(4.2,0,"PT",1020.2,1.5)=""
^DD(4.2,0,"PT",2101.12,1)=""
^DD(4.2,0,"PT",6910,100)=""
^DD(4.2,0,"PT",6910,101)=""
^DD(4.2,0,"PT",7105.1,9)=""
^DD(4.2,0,"PT",8989.3,.01)=""
^DD(4.2,0,"PT",8989.5,.01)=""
^DD(4.2,0,"PT",8994.1,.01)=""
^DD(4.2,0,"PT",537000,8)=""
^DD(4.2,0,"PT",537010.04,.01)=""
^DD(4.2,0,"PT",537025,.01)=""
^DD(4.2,0,"VR")="8.0"
^DD(4.2,0,"VRPK")="MAILMAN"
^DD(4.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>64!($L(X)<1) X I $D(X) D CHKNAME^XMXADDRD"
^DD(4.2,.01,.1)="The exact name of the domain, as used in network addressing"
^DD(4.2,.01,1,0)="^.1"
^DD(4.2,.01,1,1,0)="4.2^B"
^DD(4.2,.01,1,1,1)="S ^DIC(4.2,""B"",$E(X,1,30),DA)="""""
^DD(4.2,.01,1,1,2)="K ^DIC(4.2,""B"",$E(X,1,30),DA)"
^DD(4.2,.01,3)="Answer must be 1-64 characters in length."
^DD(4.2,.01,4)=""
^DD(4.2,.01,21,0)="^^10^10^2990518^^^^"
^DD(4.2,.01,21,1,0)="This name is the exact name of the domain, as used in network addressing."
^DD(4.2,.01,21,2,0)="It consists of ""."" (dot) pieces that are formed hierarchically starting at"
^DD(4.2,.01,21,3,0)="the right.  Domains with dot pieces to the left are administered by the"
^DD(4.2,.01,21,4,0)="domain whose domain name consists of its name less the 1st dot piece."
^DD(4.2,.01,21,5,0)="For example:  A.DOMAIN.COM is administered by DOMAIN.COM."
^DD(4.2,.01,21,6,0)=" "
^DD(4.2,.01,21,7,0)="The domain name may be from 1 to 64 characters."
^DD(4.2,.01,21,8,0)=""
^DD(4.2,.01,21,9,0)="Each dot piece may be up to 20 characters, and must begin with an alpha"
^DD(4.2,.01,21,10,0)="or numeric, and be composed of only alpha, numeric, or ""-"" characters."
^DD(4.2,.01,23,0)="^^5^5^2990518^^^"
^DD(4.2,.01,23,1,0)="Although the standard says that domain names may be 255 characters,"
^DD(4.2,.01,23,2,0)="and each dot piece may be 63 characters, MailMan must limit these,"
^DD(4.2,.01,23,3,0)="because of operating system restrictions.  MailMan places addresses"
^DD(4.2,.01,23,4,0)="in globals such as ^TMP(""XMY0"",$J,<name@site>)="""".  If the address"
^DD(4.2,.01,23,5,0)="is too long, it can cause an invalid subscript error."
^DD(4.2,.01,"DT")="2990518"
^DD(4.2,1,0)="FLAGS^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(4.2,1,1,0)="^.1"
^DD(4.2,1,1,1,0)="4.2^AC^MUMPS"
^DD(4.2,1,1,1,1)="I X[""P"" S ^DIC(4.2,""AC"",""P"",DA)="""""
^DD(4.2,1,1,1,2)="K ^DIC(4.2,""AC"",""P"",DA)"
^DD(4.2,1,1,1,"%D",0)="^^2^2^2931212^"
^DD(4.2,1,1,1,"%D",1,0)="This cross reference keeps track of domains that have the polling"
^DD(4.2,1,1,1,"%D",2,0)="flag on."
^DD(4.2,1,3)="C=CLOSED, S=SEND, Q=QUEUE, N=NO-FORWARD, P=POLL, T=TALKMAN ENABLED"
^DD(4.2,1,4)=""
^DD(4.2,1,21,0)="19^^19^19^3020422^^^^"
^DD(4.2,1,21,1,0)="The flags field controls the flow of messages to this domain from the"
^DD(4.2,1,21,2,0)="local node.  Flags are:"
^DD(4.2,1,21,3,0)=" "
^DD(4.2,1,21,4,0)="S = Send.  MailMan should start a TaskMan task to transmit the message"
^DD(4.2,1,21,5,0)="as soon as the message is received."
^DD(4.2,1,21,6,0)=" "
^DD(4.2,1,21,7,0)="C = Close.  MailMan will not allow users to address mail to this domain."
^DD(4.2,1,21,8,0)=" "
^DD(4.2,1,21,9,0)="Q or """" (the null string) = Queue.  MailMan will not deliver until a"
^DD(4.2,1,21,10,0)="task is explicitly created to deliver the mail."
^DD(4.2,1,21,11,0)=" "
^DD(4.2,1,21,12,0)="P = Poll.  A TaskMan task will poll all domains with this flag."
^DD(4.2,1,21,13,0)=" "
^DD(4.2,1,21,14,0)="N = NO-forward.  MailMan will not allow messages to be forwarded to this"
^DD(4.2,1,21,15,0)="domain."
^DD(4.2,1,21,16,0)=" "
^DD(4.2,1,21,17,0)="T = Talkman enabled.  The presence of this flag allows Talkman to be "
^DD(4.2,1,21,18,0)="used at your site.  It is also necessary to put a 'T' command into"
^DD(4.2,1,21,19,0)="the script so that TalkMan will be invoked properly."
^DD(4.2,1,"DT")="3020422"
^DD(4.2,1.5,0)="SECURITY KEY^FX^^0;11^K:$L(X)>30!($L(X)<1) X I $D(X) I '$D(^DIC(19.1,""B"",X)) W !,*7,""Security key must exactly match an existing security key name"" K X"
^DD(4.2,1.5,3)="Enter the exact name of a security required of the user to address this domain."
^DD(4.2,1.5,21,0)="^^3^3^2860225^"
^DD(4.2,1.5,21,1,0)="This field, if defined, names a security key which must be held by the "
^DD(4.2,1.5,21,2,0)="sender.  If the sender does not have this key, then he may not address this"
^DD(4.2,1.5,21,3,0)="domain."
^DD(4.2,1.5,"DT")="2860225"
^DD(4.2,1.6,0)="VALIDATION NUMBER^NJ8,0^^0;15^K:+X'=X!(X>99999999)!(X<1000000)!(X?.E1"".""1N.N) X"
^DD(4.2,1.6,3)="TYPE A WHOLE NUMBER BETWEEN 1000000 AND 99999999"
^DD(4.2,1.6,8)="^"
^DD(4.2,1.6,21,0)="^^3^3^2900306^^"
^DD(4.2,1.6,21,1,0)="This field is used for security.  If filled in any messaging services"
^DD(4.2,1.6,21,2,0)="that contact you will need to know the value of this field, or their"
^DD(4.2,1.6,21,3,0)="requests will be ignored.  Messaging services = other MailMan domains."
^DD(4.2,1.6,"DT")="2861009"
^DD(4.2,1.61,0)="NEW VALIDATION NUMBER^NJ8,0^^0;18^K:+X'=X!(X>99999999)!(X<1000000)!(X?.E1"".""1N.N) X"
^DD(4.2,1.61,3)="Type a Number between 1000000 and 99999999, 0 Decimal Digits"
^DD(4.2,1.61,21,0)="^^3^3^2961112^"
^DD(4.2,1.61,21,1,0)="This field is used for security.  It is a temporary value, it is set when"
^DD(4.2,1.61,21,2,0)="a new validation number is negotiated with another Domain. It is moved to"
^DD(4.2,1.61,21,3,0)="the Validation Number, field 1.6, after it is confirmed by the other Domain."
^DD(4.2,1.61,"DT")="2961112"
^DD(4.2,1.7,0)="DISABLE TURN COMMAND^S^y:YES;n:NO;^0;16^Q"
^DD(4.2,1.7,21,0)="^^5^5^2861027^^"
^DD(4.2,1.7,21,1,0)="This field, if set to ""YES"", means that a remote domain calling this"
^DD(4.2,1.7,21,2,0)="domain will not be able to execute the SMTP TURN command.  This means"
^DD(4.2,1.7,21,3,0)="that the sending domain must open the link.  This allows an extra "
^DD(4.2,1.7,21,4,0)="measure of security, to insure that the sending domain establishes the"
^DD(4.2,1.7,21,5,0)="link."
^DD(4.2,1.7,"DT")="2861007"
^DD(4.2,2,0)="RELAY DOMAIN^P4.2^DIC(4.2,^0;3^Q"
^DD(4.2,2,3)="NAME OF DOMAIN TO SEND MESSAGES TO IF NO DIRECT PATH"
^DD(4.2,2,21,0)="^^7^7^2840330^"
^DD(4.2,2,21,1,0)="This is the name of the domain, if any, to which messages are to be"
^DD(4.2,2,21,2,0)="always routed.  For example, if traffic from Los Angeles to Washington"
^DD(4.2,2,21,3,0)="is always to be routed through San Francisco, then the RELAY DOMAIN for"
^DD(4.2,2,21,4,0)="Los Angeles is defined to be San Francisco.  "
^DD(4.2,2,21,5,0)=" "
^DD(4.2,2,21,6,0)="The relay domain overides any other path determination processes, such"
^DD(4.2,2,21,7,0)="as scripts and parent domains."
^DD(4.2,2,"DT")="2840330"
^DD(4.2,4,0)="TRANSMISSION SCRIPT^4.21^^1;0"
^DD(4.2,4,21,0)="^^14^14^2960716^^^^"
^DD(4.2,4,21,1,0)="See the Technical Description for how this field is used in implicit"
^DD(4.2,4,21,2,0)="routing by the name server.  This field should always have at least one"
^DD(4.2,4,21,3,0)="Script command in it unless implicit routing is desirable."
^DD(4.2,4,21,4,0)="Each line of this text field is interpreted by the MailMan script processor."
^DD(4.2,4,21,5,0)=" "
^DD(4.2,4,21,6,0)="There are commands to be used:"
^DD(4.2,4,21,7,0)=" "
^DD(4.2,4,21,8,0)="  Open"
^DD(4.2,4,21,9,0)="  Device"
^DD(4.2,4,21,10,0)="  Wait"
^DD(4.2,4,21,11,0)="  Xecute"
^DD(4.2,4,21,12,0)="  Call"
^DD(4.2,4,21,13,0)=" "
^DD(4.2,4,21,14,0)="These commands are described in other documentation."
^DD(4.2,4,23,0)="17^^17^17^2960716^"
^DD(4.2,4,23,1,0)="MailMan looks at this field at two different points.  The most obvious is"
^DD(4.2,4,23,2,0)="that this field contains a script that is interpreted by the script"
^DD(4.2,4,23,3,0)="processor.  This gives results that are explicitely defined."
^DD(4.2,4,23,4,0)=" "
^DD(4.2,4,23,5,0)="However, this field is also looked at by the name server to determine"
^DD(4.2,4,23,6,0)="implicit routing.  The implication to the system, if this field is not"
^DD(4.2,4,23,7,0)="defined is that the local system does not know how to deliver mail to"
^DD(4.2,4,23,8,0)="this domain.  (There are no directions in the form of a Transmission Script"
^DD(4.2,4,23,9,0)="to tell MailMan what to do.)  Since, this system doesn't know how to deliver"
^DD(4.2,4,23,10,0)="the message, it is assumed that the parent of this system does know."
^DD(4.2,4,23,11,0)="Therefore, if a domain has no data at all in the Transmission Script field,"
^DD(4.2,4,23,12,0)="MailMan routes messages sent to it to the local domain's parent."
^DD(4.2,4,23,13,0)="This often occurs with subdomains.    No protection exists to"
^DD(4.2,4,23,14,0)="prevent infinite loops of transmissions that can occur when the"
^DD(4.2,4,23,15,0)="parent has no entry for the subdomain and therefore implicitely assumes"
^DD(4.2,4,23,16,0)="that it should route the message to the subdomain's creator.  Other problems"
^DD(4.2,4,23,17,0)="that do not cause systems to be misued have can still occur, also."
^DD(4.2,4.2,0)="NOTES^4.25^^5;0"
^DD(4.2,4.2,21,0)="^^2^2^2990123^^^"
^DD(4.2,4.2,21,1,0)="NETWORK NOTES should be used to document idiosyncracies"
^DD(4.2,4.2,21,2,0)="which occur when communicating with the domain in question."
^DD(4.2,5,0)="SYNONYM^4.23^^2;0"
^DD(4.2,5,21,0)="^^1^1^2851009^^"
^DD(4.2,5,21,1,0)="Other names by which this domain is known."
^DD(4.2,5.5,0)="STATION^F^^0;13^K:$L(X)>7!($L(X)<3)!'(X?3N.E) X"
^DD(4.2,5.5,.1)="STATION"
^DD(4.2,5.5,3)="ANSWER MUST BE 3-7 CHARACTERS IN LENGTH"
^DD(4.2,5.5,21,0)="^^1^1^2881107^"
^DD(4.2,5.5,21,1,0)="This is the domain's station."
^DD(4.2,5.5,"DT")="2860423"
^DD(4.2,6,0)="MCTS ROUTING INDICATOR^F^^0;4^K:$L(X)>3!($L(X)<3)!'(X?3U) X"
^DD(4.2,6,3)="Must be three upper case letters"
^DD(4.2,6,21,0)="^^2^2^2860619^^^"
^DD(4.2,6,21,1,0)="This is a three character routing indicator for the VADATS network's"
^DD(4.2,6,21,2,0)="MCTS terminal system."
^DD(4.2,6,21,3,0)="statistics reflect the messages as they are actually transmitted, not"
^DD(4.2,6,21,4,0)="as they are addressed."
^DD(4.2,6,"DT")="2850320"
^DD(4.2,6.2,0)="DHCP ROUTING INDICATOR^F^^0;14^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X"
^DD(4.2,6.2,1,0)="^.1"
^DD(4.2,6.2,1,1,0)="4.2^AD"
^DD(4.2,6.2,1,1,1)="S ^DIC(4.2,""AD"",$E(X,1,30),DA)="""""
^DD(4.2,6.2,1,1,2)="K ^DIC(4.2,""AD"",$E(X,1,30),DA)"
^DD(4.2,6.2,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(4.2,6.2,21,0)="^^2^2^2931214^"
^DD(4.2,6.2,21,1,0)="This field is used to route messages when they arrive at the"
^DD(4.2,6.2,21,2,0)="central data collection point at the domain FOC-AUSTIN.VA.GOV."
^DD(4.2,6.2,"DT")="2900710"
^DD(4.2,6.5,0)="MAILMAN HOST^F^^0;12^K:$L(X)>20!($L(X)<2) X"
^DD(4.2,6.5,3)="Answer must be 2-20 characters in length."
^DD(4.2,6.5,21,0)="^^2^2^2931214^"
^DD(4.2,6.5,21,1,0)="This field contains a logical or physical address of a remote domain"
^DD(4.2,6.5,21,2,0)="so that a connection can occur."
^DD(4.2,6.5,"DT")="2940602"
^DD(4.2,6.6,0)="FTP BLOB IP ADDRESS^F^^IP;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7)!'(X?1.N1"".""1.N1"".""1.N1"".""1.N) X"
^DD(4.2,6.6,1,0)="^.1^^0"
^DD(4.2,6.6,3)="Enter a valid IP address in the form:  nn.nn.nn.nn"
^DD(4.2,6.6,21,0)="^^2^2^2931214^"
^DD(4.2,6.6,21,1,0)="This field contains the IP address of this host so that it can be"
^DD(4.2,6.6,21,2,0)="used as the to address for files that will be sent to this domain."
^DD(4.2,6.6,"DT")="2930219"
^DD(4.2,6.61,0)="TCP/IP POLL FLAG^S^0:DO NOT POLL;1:POLL;^P;1^Q"
^DD(4.2,6.61,1,0)="^.1"
^DD(4.2,6.61,1,1,0)="4.2^D"
^DD(4.2,6.61,1,1,1)="S ^DIC(4.2,""D"",$E(X,1,30),DA)="""""
^DD(4.2,6.61,1,1,2)="K ^DIC(4.2,""D"",$E(X,1,30),DA)"
^DD(4.2,6.61,1,1,3)="If this cross reference is deleted, netmail may not be transmitted."
^DD(4.2,6.61,1,1,"DT")="2920611"
^DD(4.2,6.61,1,2,0)="4.2^ATCP"
^DD(4.2,6.61,1,2,1)="S ^DIC(4.2,""ATCP"",$E(X,1,30),DA)="""""
^DD(4.2,6.61,1,2,2)="K ^DIC(4.2,""ATCP"",$E(X,1,30),DA)"
^DD(4.2,6.61,1,2,"%D",0)="^^3^3^2920706^"
^DD(4.2,6.61,1,2,"%D",1,0)="This cross reference is used by XMRTCP to poll domains that have messages"
^DD(4.2,6.61,1,2,"%D",2,0)="to be sent out.  TaskMan does not run on the node that has the TCP/IP"
^DD(4.2,6.61,1,2,"%D",3,0)="device sometimes."
^DD(4.2,6.61,1,2,"DT")="2920706"
^DD(4.2,6.61,21,0)="^.001^3^3^3020128^^"
^DD(4.2,6.61,21,1,0)="This is the information needed to log in the FTP service of this site"
^DD(4.2,6.61,21,2,0)="if the standard route needs to be overridden."
^DD(4.2,6.61,21,3,0)="."
^DD(4.2,6.61,21,4,0)="This field is required.  Set the value of it to zero (""0"" Do Not Poll)"
^DD(4.2,6.61,21,5,0)="unless you know that you are using the XMRTCP TCP/IP poller."
^DD(4.2,6.61,"DT")="2920706"
^DD(4.2,6.62,0)="FTP^FX^^3;1^K:$L(X)>61!($L(X)<7) X I X'?2.E1"";""2.E K X"
^DD(4.2,6.62,3)="Answer must be 7-61 characters in length."
^DD(4.2,6.62,21,0)="^^6^6^2930426^^^"
^DD(4.2,6.62,21,1,0)="This is the information needed by to log into an FTP service to send"
^DD(4.2,6.62,21,2,0)="files.  It is overridden by the site if they wish in their Kernel Site"
^DD(4.2,6.62,21,3,0)="Parameters and sent to the sender in real time."
^DD(4.2,6.62,21,4,0)=" "
^DD(4.2,6.62,21,5,0)="There are really two pieces of data in this field separated by a "";""."
^DD(4.2,6.62,21,6,0)="Piece number 1 is the username.  Piece number 2 is the password."
^DD(4.2,6.62,"DT")="2930426"
^DD(4.2,6.7,0)="FTP BLOB DIRECTORY^F^^FTP-DIR;1^K:$L(X)>40!($L(X)<2) X"
^DD(4.2,6.7,3)="Answer must be 2-40 characters in length."
^DD(4.2,6.7,21,0)="^^2^2^2931214^^"
^DD(4.2,6.7,21,1,0)="This field contains the directory into which a file should be put"
^DD(4.2,6.7,21,2,0)="by a domain sending it files to attach to multimedia messages."
^DD(4.2,6.7,"DT")="2930301"
^DD(4.2,7,0)="*OUTGOING MESSAGE COUNT^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999"
^DD(4.2,7,21,0)="^^5^5^2900605^^^"
^DD(4.2,7,21,1,0)="This is a count of the number of messages which have been transmitted to this"
^DD(4.2,7,21,2,0)="domain since the counter was last set to zero."
^DD(4.2,7,21,3,0)=" "
^DD(4.2,7,21,4,0)="As of Kernel 7 this field was *'d and it will be deleted 18 month from the"
^DD(4.2,7,21,5,0)="date that the community was notified (6/5/90)."
^DD(4.2,7,"DT")="2851009"
^DD(4.2,8,0)="*OUTGOING LINE COUNT^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,8,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999"
^DD(4.2,8,21,0)="^^4^4^2900605^^"
^DD(4.2,8,21,1,0)="This is a count of the number of lines of text which have been transmitted"
^DD(4.2,8,21,2,0)="to this domain since the counter was last set to zero."
^DD(4.2,8,21,3,0)=" "
^DD(4.2,8,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,8,"DT")="2851009"
^DD(4.2,9,0)="*INCOMING MESSAGE COUNT^NJ8,0^^0;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999"
^DD(4.2,9,21,0)="^^4^4^2900605^^^"
^DD(4.2,9,21,1,0)="This is a count of the number of messages which have been received from this"
^DD(4.2,9,21,2,0)="domain since the counter was last reset."
^DD(4.2,9,21,3,0)=" "
^DD(4.2,9,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,10,0)="*INCOMING LINE COUNT^NJ8,0^^0;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,10,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999"
^DD(4.2,10,21,0)="^^4^4^2900605^^^"
^DD(4.2,10,21,1,0)="This is the count of the number of lines which have been received from this"
^DD(4.2,10,21,2,0)="domain since the counter was last reset."
^DD(4.2,10,21,3,0)=" "
^DD(4.2,10,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,11,0)="*ERROR LAST REPORTED^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(4.2,11,21,0)="^^6^6^2900605^^^^"
^DD(4.2,11,21,1,0)="This is the date/time at which a physical link error was last reported "
^DD(4.2,11,21,2,0)="to the network log device.  This timestamp is checked by the error"
^DD(4.2,11,21,3,0)="reporting programs to insure that too many error messages are not "
^DD(4.2,11,21,4,0)="sent."
^DD(4.2,11,21,5,0)=" "
^DD(4.2,11,21,6,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,11,22)=""
^DD(4.2,11,"DT")="2851009"
^DD(4.2,12,0)="*NUMBER OF RECOVERABLE ERRORS^NJ9,0^^0;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999999"
^DD(4.2,12,21,0)="^^7^7^2900605^^^^"
^DD(4.2,12,21,1,0)="This is a count of the number of recoverable errors which have occurred"
^DD(4.2,12,21,2,0)="while sending or receiving messages to or from this domain, since the "
^DD(4.2,12,21,3,0)="counter was last set to zero."
^DD(4.2,12,21,4,0)="Recoverable errors are errors which are detected by checksums, etc,  which"
^DD(4.2,12,21,5,0)="require retransmission of the line."
^DD(4.2,12,21,6,0)=" "
^DD(4.2,12,21,7,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,12,"DT")="2851009"
^DD(4.2,13,0)="*PROGRESS REPORT^F^^3;1^K:$L(X)>20!($L(X)<6) X"
^DD(4.2,13,3)="ANSWER MUST BE 6-20 CHARACTERS IN LENGTH"
^DD(4.2,13,21,0)="^^7^7^2900605^^^"
^DD(4.2,13,21,1,0)="This field contains the time (in $H format) of the last time a queue"
^DD(4.2,13,21,2,0)="dump routine reported its progress.  If this field is undefined, or"
^DD(4.2,13,21,3,0)="more than 5 minutes old, then the queue is assumed to be inactive."
^DD(4.2,13,21,4,0)="If not, then the MESSAGE IN TRANSIT and LAST LINE TRANSMITTED fields"
^DD(4.2,13,21,5,0)="indicate the current status of the queue transmission."
^DD(4.2,13,21,6,0)=" "
^DD(4.2,13,21,7,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,13,"DT")="2860211"
^DD(4.2,14,0)="*MESSAGE IN TRANSIT^NJ9,0^^3;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,14,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999999"
^DD(4.2,14,21,0)="^^4^4^2900605^^^"
^DD(4.2,14,21,1,0)="If this field exists, it indicates the message number of message currently"
^DD(4.2,14,21,2,0)="being transmitted."
^DD(4.2,14,21,3,0)=" "
^DD(4.2,14,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,14,"DT")="2860211"
^DD(4.2,15,0)="*LINE LAST TRANSMITTED^NJ8,0^^3;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,15,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999"
^DD(4.2,15,21,0)="^^4^4^2900605^^^"
^DD(4.2,15,21,1,0)="If this field exists, it indicates the line number of the MESSAGE IN TRANSIT"
^DD(4.2,15,21,2,0)="which was sent just prior to the last PROGRESS REPORT."
^DD(4.2,15,21,3,0)=" "
^DD(4.2,15,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,15,"DT")="2860211"
^DD(4.2,15.4,0)="*ERRORS THIS TRANSMISSION^NJ3,0^^3;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,15.4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(4.2,15.4,21,0)="^^5^5^2900605^^^^"
^DD(4.2,15.4,21,1,0)="Number of ""soft"" errors (non-fatal) that have been encountered during the"
^DD(4.2,15.4,21,2,0)="course of the current transmission.  This is the total number of soft"
^DD(4.2,15.4,21,3,0)="errors encountered during entire transmission."
^DD(4.2,15.4,21,4,0)=" "
^DD(4.2,15.4,21,5,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,15.4,"DT")="2861124"
^DD(4.2,15.5,0)="*RATE OF TRANSMISSION^NJ8,2^^3;5^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(4.2,15.5,3)="TYPE A NUMBER BETWEEN 0 AND 99999.99"
^DD(4.2,15.5,21,0)="^^6^6^2900605^^^"
^DD(4.2,15.5,21,1,0)="Transmission rate (in seconds) since the posting of the last progress"
^DD(4.2,15.5,21,2,0)="report.  This number is based on the number of lines trasmitted since"
^DD(4.2,15.5,21,3,0)="the last progress report and the number of seconds since the last"
^DD(4.2,15.5,21,4,0)="progress report."
^DD(4.2,15.5,21,5,0)=" "
^DD(4.2,15.5,21,6,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,15.5,"DT")="2861124"
^DD(4.2,15.6,0)="*CHARACTERS REC'D^NJ8,0^^3;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,15.6,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(4.2,15.6,21,0)="^^4^4^2900605^^"
^DD(4.2,15.6,21,1,0)="This is the number of characters received during the current process and"
^DD(4.2,15.6,21,2,0)="is for the current message."
^DD(4.2,15.6,21,3,0)=" "
^DD(4.2,15.6,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,15.6,"DT")="2891026"
^DD(4.2,15.7,0)="*CHARACTERS SENT^NJ8,0^^3;9^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2,15.7,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(4.2,15.7,21,0)="^^4^4^2900605^^"
^DD(4.2,15.7,21,1,0)="This is the number of characters in the current message that have been"
^DD(4.2,15.7,21,2,0)="sent so far."
^DD(4.2,15.7,21,3,0)=" "
^DD(4.2,15.7,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,15.7,"DT")="2891026"
^DD(4.2,16,0)="POLL LIST^4.24^^4;0"
^DD(4.2,16,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(4.2,16,21,0)="^^2^2^2931214^^"
^DD(4.2,16,21,1,0)="If this domain belongs to a poll list, then it will be activated when"
^DD(4.2,16,21,2,0)="a background poller is activated to send mail to this list."
^DD(4.2,16,"DT")="2860228"
^DD(4.2,17,0)="PHYSICAL LINK DEVICE^FX^^0;17^K:$L(X)>30!($L(X)<1) X I $D(X) S %ZIS=""NQRS"",IOP=X D ^%ZIS K:POP X S:$D(X) X=ION W:$D(X) "" Stored internally as "",X D ^%ZISC S IOP=""HOME"" D ^%ZIS K IOP,%ZIS"
^DD(4.2,17,3)="MUST MATCH THE NAME FIELD IN THE DEVICE FILE."
^DD(4.2,17,21,0)="^.001^19^19^3020904^^^^"
^DD(4.2,17,21,1,0)="This field is used for network mail ONLY."
^DD(4.2,17,21,2,0)="If there is no device named in field 1.3 of the TRANSMISSION SCRIPT,"
^DD(4.2,17,21,3,0)="then this device is used.  If no device is named in this field, then"
^DD(4.2,17,21,4,0)="the device named in field 8.25 of file 4.3 is used.  If there's no"
^DD(4.2,17,21,5,0)="device named in that field, then there is no device."
^DD(4.2,17,21,6,0)="If this domain has a physical link such as a miniengine port,"
^DD(4.2,17,21,7,0)="a direct line to another cpu, a modem, etc., this port should be named"
^DD(4.2,17,21,8,0)="in this field to direct network mail to the proper output device."
^DD(4.2,17,21,9,0)="There must be an entry in the DEVICE file for this cpu port.  The name"
^DD(4.2,17,21,10,0)="field of the DEVICE file can be a literal (such as MINIENGINE-OUT or"
^DD(4.2,17,21,11,0)="CPU B LINK) but the $I field must match with the correct cpu $I."
^DD(4.2,17,21,12,0)="If the link is physically located on a cpu other than the one the network"
^DD(4.2,17,21,13,0)="mail is being sent from, the local DEVICE file MUST reflect that in the"
^DD(4.2,17,21,14,0)="OTHER CPU field of the device file if the transmission is to take place"
^DD(4.2,17,21,15,0)="immediately.  If it is not identified properly, the message will go into"
^DD(4.2,17,21,16,0)="a queue to be processed the next time a network message is sent from or"
^DD(4.2,17,21,17,0)="recieved on the processor with the physical link."
^DD(4.2,17,21,18,0)="NOTE:  The DEVICE files on all cpu's must have matching device names"
^DD(4.2,17,21,19,0)="to correctly route the message to the proper cpu for sending."
^DD(4.2,17,"DT")="2911217"
^DD(4.2,20,0)="LEVEL 1 NAME^CJ8^^ ; ^X ^DD(4.2,20,9.2) S Y(4.2,20,5)=X S X=""."",X=$L(Y(4.2,20,5),X),X=$P(Y(4.2,20,2),Y(4.2,20,3),X)"
^DD(4.2,20,9)="^"
^DD(4.2,20,9.01)="4.2^.01"
^DD(4.2,20,9.1)="$P(NAME,""."",$L(NAME,"".""))"
^DD(4.2,20,9.2)="S Y(4.2,20,1)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""") S X=$P(Y(4.2,20,1),U,1),Y(4.2,20,2)=X S X=""."",Y(4.2,20,3)=X,Y(4.2,20,4)=X S X=$P(Y(4.2,20,1),U,1)"
^DD(4.2,20,21,0)="^^2^2^2881107^"
^DD(4.2,20,21,1,0)="The most right ""."" piece of a domain name "
^DD(4.2,20,21,2,0)="($P(domain-name,""."",$L(domain-name,"".""))"
^DD(4.2,21,0)="LEVEL 2 NAME^CJ8^^ ; ^X ^DD(4.2,21,9.2) S Y(4.2,21,5)=X S X=""."",X=$L(Y(4.2,21,5),X)-1,Y(4.2,21,6)=X S X=9,X=$P(Y(4.2,21,2),Y(4.2,21,3),Y(4.2,21,6),X)"
^DD(4.2,21,9)="^"
^DD(4.2,21,9.01)="4.2^.01"
^DD(4.2,21,9.1)="$P(NAME,""."",$L(NAME,""."")-1)"
^DD(4.2,21,9.2)="S Y(4.2,21,1)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""") S X=$P(Y(4.2,21,1),U,1),Y(4.2,21,2)=X S X=""."",Y(4.2,21,3)=X,Y(4.2,21,4)=X S X=$P(Y(4.2,21,1),U,1)"
^DD(4.2,21,21,0)="^^1^1^2881107^^"
^DD(4.2,21,21,1,0)="$P(domain-name,""."",$L(domain-name,""."")-1)"
^DD(4.2,22,0)="LEVEL 3 NAME^CJ8^^ ; ^X ^DD(4.2,22,9.2) S Y(4.2,22,5)=X S X=""."",X=$L(Y(4.2,22,5),X)-2,Y(4.2,22,6)=X S X=9,X=$P(Y(4.2,22,2),Y(4.2,22,3),Y(4.2,22,6),X)"
^DD(4.2,22,9)="^"
^DD(4.2,22,9.01)="4.2^.01"
^DD(4.2,22,9.1)="$P(NAME,""."",$L(NAME,""."")-2)"
^DD(4.2,22,9.2)="S Y(4.2,22,1)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""") S X=$P(Y(4.2,22,1),U,1),Y(4.2,22,2)=X S X=""."",Y(4.2,22,3)=X,Y(4.2,22,4)=X S X=$P(Y(4.2,22,1),U,1)"
^DD(4.2,22,21,0)="^^1^1^2881107^"
^DD(4.2,22,21,1,0)="$P(domain-name,""."",$L(domain-name,""."")-2)"
^DD(4.2,23,0)="LEVEL 4 NAME^CJ8^^ ; ^X ^DD(4.2,23,9.2) S Y(4.2,23,5)=X S X=""."",X=$L(Y(4.2,23,5),X)-3,Y(4.2,23,6)=X S X=9,X=$P(Y(4.2,23,2),Y(4.2,23,3),Y(4.2,23,6),X)"
^DD(4.2,23,9)="^"
^DD(4.2,23,9.01)="4.2^.01"
^DD(4.2,23,9.1)="$P(NAME,""."",$L(NAME,""."")-3)"
^DD(4.2,23,9.2)="S Y(4.2,23,1)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""") S X=$P(Y(4.2,23,1),U,1),Y(4.2,23,2)=X S X=""."",Y(4.2,23,3)=X,Y(4.2,23,4)=X S X=$P(Y(4.2,23,1),U,1)"
^DD(4.2,23,9.3)="X ^DD(4.2,23,9.2) S Y(4.2,23,5)=X,X=""."",Y(4.2,23,6)=X,X=$L(Y(4.2,23,5),X),Y(4.2,23,6)=X,Y(4.2,23,7)=X S X=9"
^DD(4.2,23,21,0)="^^1^1^2881107^"
^DD(4.2,23,21,1,0)="$P(domain-name,""."",$L(domain-name,""."")-3)"
^DD(4.2,23,"DT")="2870406"
^DD(4.2,24,0)="*NETWORK DEVICE^F^^3;6^K:$L(X)>9!($L(X)<1) X"
^DD(4.2,24,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(4.2,24,21,0)="^^1^1^2900605^"
^DD(4.2,24,21,1,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,24,"DT")="2880301"
^DD(4.2,25,0)="*TRANSMISSION TASK#^NJ8,0^^3;7^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.2,25,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(4.2,25,21,0)="^^4^4^2900605^^^"
^DD(4.2,25,21,1,0)="The transmission task# points to the TaskMan task that has been generated"
^DD(4.2,25,21,2,0)="to handle delivery of messages to the domain in background."
^DD(4.2,25,21,3,0)=" "
^DD(4.2,25,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.2,25,"DT")="2890922"
^DD(4.2,50,0)="DIRECTORY REQUESTS FLAG^NJ2,0X^^50;1^I $S(X="""":0,X\1'=X:1,X>99:1,1:0) K X"
^DD(4.2,50,1,0)="^.1"
^DD(4.2,50,1,1,0)="4.2^AE"
^DD(4.2,50,1,1,1)="S ^DIC(4.2,""AE"",$E(X,1,30),DA)="""""
^DD(4.2,50,1,1,2)="K ^DIC(4.2,""AE"",$E(X,1,30),DA)"
^DD(4.2,50,1,1,"DT")="2930323"
^DD(4.2,50,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(4.2,50,21,0)="10"
^DD(4.2,50,21,1,0)="This field controls whether or not the XMMGR-DIRECTORY-ALL option"
^DD(4.2,50,21,2,0)="will send a message requesting the user directory for the domain."
^DD(4.2,50,21,3,0)=" "
^DD(4.2,50,21,4,0)="If the value is null or zero, no request will be made."
^DD(4.2,50,21,5,0)="If the value is a positive integer, a request will be made"
^DD(4.2,50,21,6,0)="at the same time as other domains with the same number in this"
^DD(4.2,50,21,7,0)="field are made.  A task must be set up and scheduled for each"
^DD(4.2,50,21,8,0)="number assigned using the XMDIR-REQUEST-ALL option, which is then"
^DD(4.2,50,21,9,0)="run every 90 days (or according to what you change the reschedule"
^DD(4.2,50,21,10,0)="value to)."
^DD(4.2,50,"DT")="2930902"
^DD(4.2,100,0)="*MESSAGE STATISTICS MONTH^4.25D^^100;0"
^DD(4.2,100,21,0)="^^3^3^2900605^^^^"
^DD(4.2,100,21,1,0)="Message statistics are collected by month."
^DD(4.2,100,21,2,0)=" "
^DD(4.2,100,21,3,0)="SEE FIELD 7 ABOUT '*'"
^DD(4.2,"B","*CHARACTERS REC'D",15.6)=""
^DD(4.2,"B","*CHARACTERS SENT",15.7)=""
^DD(4.2,"B","*ERROR LAST REPORTED",11)=""
^DD(4.2,"B","*ERRORS THIS TRANSMISSION",15.4)=""
^DD(4.2,"B","*INCOMING LINE COUNT",10)=""
^DD(4.2,"B","*INCOMING MESSAGE COUNT",9)=""
^DD(4.2,"B","*LINE LAST TRANSMITTED",15)=""
^DD(4.2,"B","*MESSAGE IN TRANSIT",14)=""
^DD(4.2,"B","*MESSAGE STATISTICS MONTH",100)=""
^DD(4.2,"B","*NETWORK DEVICE",24)=""
^DD(4.2,"B","*NUMBER OF RECOVERABLE ERRORS",12)=""
^DD(4.2,"B","*OUTGOING LINE COUNT",8)=""
^DD(4.2,"B","*OUTGOING MESSAGE COUNT",7)=""
^DD(4.2,"B","*PROGRESS REPORT",13)=""
^DD(4.2,"B","*RATE OF TRANSMISSION",15.5)=""
^DD(4.2,"B","*TRANSMISSION TASK#",25)=""
^DD(4.2,"B","DHCP ROUTING INDICATOR",6.2)=""
^DD(4.2,"B","DIRECTORY REQUESTS FLAG",50)=""
^DD(4.2,"B","DISABLE TURN COMMAND",1.7)=""
^DD(4.2,"B","FLAGS",1)=""
^DD(4.2,"B","FTP",6.62)=""
^DD(4.2,"B","FTP BLOB DIRECTORY",6.7)=""
^DD(4.2,"B","FTP BLOB IP ADDRESS",6.6)=""
^DD(4.2,"B","LEVEL 1 NAME",20)=""
^DD(4.2,"B","LEVEL 2 NAME",21)=""
^DD(4.2,"B","LEVEL 3 NAME",22)=""
^DD(4.2,"B","LEVEL 4 NAME",23)=""
^DD(4.2,"B","MAILMAN HOST",6.5)=""
^DD(4.2,"B","MCTS ROUTING INDICATOR",6)=""
^DD(4.2,"B","NAME",.01)=""
^DD(4.2,"B","NEW VALIDATION NUMBER",1.61)=""
^DD(4.2,"B","NOTES",4.2)=""
^DD(4.2,"B","PHYSICAL LINK DEVICE",17)=""
^DD(4.2,"B","POLL LIST",16)=""
^DD(4.2,"B","RELAY DOMAIN",2)=""
^DD(4.2,"B","SECURITY KEY",1.5)=""
^DD(4.2,"B","STATION",5.5)="1"
^DD(4.2,"B","SYNONYM",5)=""
^DD(4.2,"B","TCP/IP POLL FLAG",6.61)=""
^DD(4.2,"B","TRANSMISSION SCRIPT",4)=""
^DD(4.2,"B","VALIDATION NUMBER",1.6)=""
^DD(4.2,"GL",0,1,.01)=""
^DD(4.2,"GL",0,2,1)=""
^DD(4.2,"GL",0,3,2)=""
^DD(4.2,"GL",0,4,6)=""
^DD(4.2,"GL",0,5,7)=""
^DD(4.2,"GL",0,6,8)=""
^DD(4.2,"GL",0,7,9)=""
^DD(4.2,"GL",0,8,10)=""
^DD(4.2,"GL",0,9,11)=""
^DD(4.2,"GL",0,10,12)=""
^DD(4.2,"GL",0,11,1.5)=""
^DD(4.2,"GL",0,12,6.5)=""
^DD(4.2,"GL",0,13,5.5)=""
^DD(4.2,"GL",0,14,6.2)=""
^DD(4.2,"GL",0,15,1.6)=""
^DD(4.2,"GL",0,16,1.7)=""
^DD(4.2,"GL",0,17,17)=""
^DD(4.2,"GL",0,18,1.61)=""
^DD(4.2,"GL",1,0,4)=""
^DD(4.2,"GL",2,0,5)=""
^DD(4.2,"GL",3,1,6.62)=""
^DD(4.2,"GL",3,1,13)=""
^DD(4.2,"GL",3,2,14)=""
^DD(4.2,"GL",3,3,15)=""
^DD(4.2,"GL",3,4,15.4)=""
^DD(4.2,"GL",3,5,15.5)=""
^DD(4.2,"GL",3,6,24)=""
^DD(4.2,"GL",3,7,25)=""
^DD(4.2,"GL",3,8,15.6)=""
^DD(4.2,"GL",3,9,15.7)=""
^DD(4.2,"GL",4,0,16)=""
^DD(4.2,"GL",5,0,4.2)=""
^DD(4.2,"GL",50,1,50)=""
^DD(4.2,"GL",100,0,100)=""
^DD(4.2,"GL","FTP-DIR",1,6.7)=""
^DD(4.2,"GL","IP",1,6.6)=""
^DD(4.2,"GL","P",1,6.61)=""
^DD(4.2,"IX",.01)=""
^DD(4.2,"IX",1)=""
^DD(4.2,"IX",6.2)=""
^DD(4.2,"IX",6.61)=""
^DD(4.2,"IX",50)=""
^DD(4.2,"RQ",.01)=""
^DD(4.2,"SB",4.21,4)=""
^DD(4.2,"SB",4.23,5)=""
^DD(4.2,"SB",4.24,16)=""
^DD(4.2,"SB",4.25,4.2)=""
^DD(4.2,"SB",4.25,100)=""
^DD(4.21,0)="TRANSMISSION SCRIPT SUB-FIELD^NL^99^9"
^DD(4.21,0,"DT")="2960716"
^DD(4.21,0,"IX","AC",4.21,1)=""
^DD(4.21,0,"IX","B",4.21,.01)=""
^DD(4.21,0,"NM","TRANSMISSION SCRIPT")=""
^DD(4.21,0,"UP")="4.2"
^DD(4.21,.01,0)="TRANSMISSION SCRIPT^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(4.21,.01,.1)="A free text string of 1 to 10 characters identifying the script."
^DD(4.21,.01,1,0)="^.1"
^DD(4.21,.01,1,1,0)="4.21^B"
^DD(4.21,.01,1,1,1)="S ^DIC(4.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(4.21,.01,1,1,2)="K ^DIC(4.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(4.21,.01,1,1,"DT")="3010102"
^DD(4.21,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(4.21,.01,21,0)="^^1^1^3020422^^^"
^DD(4.21,.01,21,1,0)="This is the name of the transmission script."
^DD(4.21,.01,"DT")="3020422"
^DD(4.21,1,0)="PRIORITY^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.21,1,1,0)="^.1"
^DD(4.21,1,1,1,0)="4.21^AC"
^DD(4.21,1,1,1,1)="S ^DIC(4.2,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(4.21,1,1,1,2)="K ^DIC(4.2,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(4.21,1,1,1,"%D",0)="^^3^3^2930317^"
^DD(4.21,1,1,1,"%D",1,0)="This cross reference controls which transmission script will be used to"
^DD(4.21,1,1,1,"%D",2,0)="trnsmit messages.  The highest priority script wil be used first.  Low"
^DD(4.21,1,1,1,"%D",3,0)="numbers mean high priority."
^DD(4.21,1,1,1,"DT")="2930317"
^DD(4.21,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(4.21,1,21,0)="^^3^3^2930312^"
^DD(4.21,1,21,1,0)="This field is used by MailMan to decide which script to play when trying"
^DD(4.21,1,21,2,0)="to transmit messages in background.  The higher the number the lower the"
^DD(4.21,1,21,3,0)="priority for being chosen.  See also the Number of Attempts field."
^DD(4.21,1,21,4,0)="When MailMan is transmitting using the TCP/IP Poller (XMRTCP), it"
^DD(4.21,1,21,5,0)="assumes that there is only one  possible TCP/IP connection per domain and"
^DD(4.21,1,21,6,0)="does not look for multiple scripts to roll over to.  This field is only"
^DD(4.21,1,21,7,0)="operable for SMTP type scripts (using standard asynchronous WAN connections)."
^DD(4.21,1,21,8,0)="PRIORITIES can go from 0 to 9999 where 0 is the highest and 9999 is the"
^DD(4.21,1,21,9,0)="lowest.  If the field has no value, 9999 is assumed."
^DD(4.21,1,"DT")="2930317"
^DD(4.21,1.1,0)="NUMBER OF ATTEMPTS^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.21,1.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(4.21,1.1,21,0)="^^5^5^2930312^^"
^DD(4.21,1.1,21,1,0)="MailMan tests against this field to determine how many times it should"
^DD(4.21,1.1,21,2,0)="try a particular protocol before giving up and trying the next one."
^DD(4.21,1.1,21,3,0)="This field is used in conjunction with the Priority field.  When the"
^DD(4.21,1.1,21,4,0)="the Number of tries to transmit the messages in the queue exceeds the value"
^DD(4.21,1.1,21,5,0)="of this field, a Transmission Failure bulletin is sent to the Postmaster."
^DD(4.21,1.1,21,6,0)="This field is only active with the SMTP type of transmission script."
^DD(4.21,1.1,23,0)="^^2^2^2930312^"
^DD(4.21,1.1,23,1,0)=" "
^DD(4.21,1.1,23,2,0)=" "
^DD(4.21,1.1,"DT")="2930312"
^DD(4.21,1.2,0)="TYPE^S^FTP:File Transfer Protocol;SMTP:Simple Mail Transfer Protocol;TELNET:Interactive / TalkMan;TCPCHAN:TCP/IP Channel;OTHER:OTHER;^0;4^Q"
^DD(4.21,1.2,21,0)="^^2^2^2931214^"
^DD(4.21,1.2,21,1,0)="Each transmission script must be given a type so that it"
^DD(4.21,1.2,21,2,0)="can be handled properly."
^DD(4.21,1.2,21,3,0)="asynchronous connections on the WAN are of the type IDCU.  These scripts"
^DD(4.21,1.2,21,4,0)="may compete with each other according to their priorities (See the"
^DD(4.21,1.2,21,5,0)="PRIORITY field).  Scripts that use TCP/IP channels should be marked"
^DD(4.21,1.2,21,6,0)="with the type TCPCHAN so that they are ignored during prioritization"
^DD(4.21,1.2,21,7,0)="unless the TCP/IP enabled CPUs have Task Manager running on them, in"
^DD(4.21,1.2,21,8,0)="which case they should be made SMTP type."
^DD(4.21,1.2,21,9,0)=" "
^DD(4.21,1.2,21,10,0)="In other words, if the physical link is on a CPU that Task Manager runs"
^DD(4.21,1.2,21,11,0)="on the transmission script can be of the type SMTP.  If it is not on such"
^DD(4.21,1.2,21,12,0)="a CPU another type must be chosen."
^DD(4.21,1.2,21,13,0)=" "
^DD(4.21,1.2,21,14,0)="Other types are TELNET (used for TalkMan or other interactive scripts),"
^DD(4.21,1.2,21,15,0)="FTP (for File Transfers) and Other."
^DD(4.21,1.2,"DT")="2931218"
^DD(4.21,1.3,0)="PHYSICAL LINK / DEVICE^FX^^0;5^K:$L(X)>30!($L(X)<1) X I $D(X) S %ZIS=""NQRS"",IOP=X D ^%ZIS K:POP X S:$D(X) X=ION W:$D(X) "" Stored internally as "",X D ^%ZISC S IOP=""HOME"" D ^%ZIS K IOP,%ZIS"
^DD(4.21,1.3,3)="Answer must be 3-30 characters in length."
^DD(4.21,1.3,21,0)="^^4^4^2930312^"
^DD(4.21,1.3,21,1,0)="The physical link is the channel that the transmission will take place"
^DD(4.21,1.3,21,2,0)="on.  This field is always a free text pointer to the device file."
^DD(4.21,1.3,21,3,0)="See field 17 / Physical Link Device for more information."
^DD(4.21,1.3,21,4,0)=" "
^DD(4.21,1.3,23,0)="^^1^1^2930312^"
^DD(4.21,1.3,23,1,0)=" "
^DD(4.21,1.3,"DT")="2930312"
^DD(4.21,1.4,0)="NETWORK ADDRESS (MAILMAN HOST)^F^^0;6^K:$L(X)>50!($L(X)<3) X"
^DD(4.21,1.4,3)="Answer must be 3-50 characters in length."
^DD(4.21,1.4,21,0)="^^2^2^2930312^"
^DD(4.21,1.4,21,1,0)="The network address is that identifier that, used appropriately on the"
^DD(4.21,1.4,21,2,0)="physical link, allows specification of the system to be contacted."
^DD(4.21,1.4,"DT")="2930312"
^DD(4.21,1.5,0)="OUT OF SERVICE^S^0:in service;1:out of service;^0;7^Q"
^DD(4.21,1.5,3)="If you don't want this script to be used, set this field to 1 otherwise leave it blank or set it to zero."
^DD(4.21,1.5,21,0)="^^2^2^2960716^"
^DD(4.21,1.5,21,1,0)="This is the preferred field to set to take a script out of service,"
^DD(4.21,1.5,21,2,0)="to prevent it from being used."
^DD(4.21,1.5,"DT")="3020422"
^DD(4.21,2,0)="TEXT^4.22^^1;0"
^DD(4.21,2,21,0)="^.001^1^1^3020422^^^"
^DD(4.21,2,21,1,0)="This is the text of the script.  See description above."
^DD(4.21,99,0)="TRANSMISSION SCRIPT NOTES^4.299^^NOTES;0"
^DD(4.21,99,21,0)="^^1^1^2931214^"
^DD(4.21,99,21,1,0)="Keep notes that are important for systems management here."
^DD(4.21,99,"DT")="2930405"
^DD(4.21,"B","NETWORK ADDRESS (MAILMAN HOST)",1.4)=""
^DD(4.21,"B","NUMBER OF ATTEMPTS",1.1)=""
^DD(4.21,"B","OUT OF SERVICE",1.5)=""
^DD(4.21,"B","PHYSICAL LINK / DEVICE",1.3)=""
^DD(4.21,"B","PRIORITY",1)=""
^DD(4.21,"B","TEXT",2)=""
^DD(4.21,"B","TRANSMISSION SCRIPT",.01)=""
^DD(4.21,"B","TRANSMISSION SCRIPT NOTES",99)=""
^DD(4.21,"B","TYPE",1.2)=""
^DD(4.21,"GL",0,1,.01)=""
^DD(4.21,"GL",0,2,1)=""
^DD(4.21,"GL",0,3,1.1)=""
^DD(4.21,"GL",0,4,1.2)=""
^DD(4.21,"GL",0,5,1.3)=""
^DD(4.21,"GL",0,6,1.4)=""
^DD(4.21,"GL",0,7,1.5)=""
^DD(4.21,"GL",1,0,2)=""
^DD(4.21,"GL","NOTES",0,99)=""
^DD(4.21,"IX",.01)=""
^DD(4.21,"IX",1)=""
^DD(4.21,"SB",4.22,2)=""
^DD(4.21,"SB",4.299,99)=""
^DD(4.22,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(4.22,0,"NM","TEXT")=""
^DD(4.22,0,"UP")="4.21"
^DD(4.22,.01,0)="TEXT^WL^^0;1^Q"
^DD(4.22,.01,3)="Enter the text to be used to connect to the site."
^DD(4.22,.01,21,0)="^.001^1^1^3020422^^^^"
^DD(4.22,.01,21,1,0)="This is the text of the script.  See description above."
^DD(4.22,.01,"DT")="3020422"
^DD(4.22,"B","TEXT",.01)=""
^DD(4.22,"GL",0,1,.01)=""
^DD(4.23,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(4.23,0,"DT")="2990518"
^DD(4.23,0,"NM","SYNONYM")=""
^DD(4.23,0,"UP")="4.2"
^DD(4.23,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>64!($L(X)<1) X"
^DD(4.23,.01,1,0)="^.1"
^DD(4.23,.01,1,1,0)="4.2^C^MUMPS"
^DD(4.23,.01,1,1,1)="S ^DIC(4.2,""C"",$E(X,1,64),DA(1),DA)="""""
^DD(4.23,.01,1,1,2)="K ^DIC(4.2,""C"",$E(X,1,64),DA(1),DA)"
^DD(4.23,.01,1,1,"DT")="2990503"
^DD(4.23,.01,3)="Answer must be 1-64 characters in length."
^DD(4.23,.01,21,0)="^^3^3^3020422^^^^"
^DD(4.23,.01,21,1,0)="Another name by which this Domain is known. For example,"
^DD(4.23,.01,21,2,0)="""San Francisco, CA"" can be a synonym of the domain"
^DD(4.23,.01,21,3,0)="""SANFRANCISCO.MED.VA.GOV""."
^DD(4.23,.01,"DT")="3020422"
^DD(4.23,"B","SYNONYM",.01)=""
^DD(4.23,"GL",0,1,.01)=""
^DD(4.23,"IX",.01)=""
^DD(4.24,0)="POLL LIST SUB-FIELD^^.01^1"
^DD(4.24,0,"NM","POLL LIST")=""
^DD(4.24,0,"UP")="4.2"
^DD(4.24,.01,0)="POLL LIST^MNJ7,2^^0;1^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(4.24,.01,1,0)="^.1"
^DD(4.24,.01,1,1,0)="4.2^AB"
^DD(4.24,.01,1,1,1)="S ^DIC(4.2,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(4.24,.01,1,1,2)="K ^DIC(4.2,""AB"",$E(X,1,30),DA(1),DA)"
^DD(4.24,.01,3)="Enter a poll list number between 0 and 1000"
^DD(4.24,.01,21,0)="^^2^2^2931214^"
^DD(4.24,.01,21,1,0)="If this domain belongs to a poll list, then it will be activated when"
^DD(4.24,.01,21,2,0)="a background poller is activated to send mail to this list."
^DD(4.24,.01,"DT")="2860625"
^DD(4.24,"B","POLL LIST",.01)=""
^DD(4.24,"GL",0,1,.01)=""
^DD(4.24,"IX",.01)=""
^DD(4.25,0)="NOTES SUB-FIELD^^101.6^7"
^DD(4.25,0,"DT")="2920312"
^DD(4.25,0,"IX","B",4.25,.01)=""
^DD(4.25,0,"NM","NOTES")=""
^DD(4.25,0,"UP")="4.2"
^DD(4.25,.01,0)="NETWORK NOTES^WL^^0;1^Q"
^DD(4.25,.01,1,0)="^.1"
^DD(4.25,.01,1,1,0)="4.25^B"
^DD(4.25,.01,1,1,1)="S ^DIC(4.2,DA(1),100,""B"",$E(X,1,30),DA)="""""
^DD(4.25,.01,1,1,2)="K ^DIC(4.2,DA(1),100,""B"",$E(X,1,30),DA)"
^DD(4.25,.01,21,0)="^^2^2^2990123^^"
^DD(4.25,.01,21,1,0)="NETWORK NOTES should be used to document idiosyncracies"
^DD(4.25,.01,21,2,0)="which occur when communicating with the domain in question."
^DD(4.25,.01,"DT")="2920312"
^DD(4.25,101.1,0)="*MESSAGES SENT^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.25,101.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(4.25,101.1,21,0)="^^6^6^2900605^^^^"
^DD(4.25,101.1,21,1,0)="This is the number of messages that were transmitted to other domains"
^DD(4.25,101.1,21,2,0)="regardless of their origination site.  A previously transmitted message"
^DD(4.25,101.1,21,3,0)="being forwarded to additional recipients is also included."
^DD(4.25,101.1,21,4,0)="Responses are included as if they were separate messages."
^DD(4.25,101.1,21,5,0)=" "
^DD(4.25,101.1,21,6,0)="SEE FIELD 7 ABOUT '*'"
^DD(4.25,101.1,"DT")="2891026"
^DD(4.25,101.2,0)="*MESSAGES RECEIVED^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.25,101.2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(4.25,101.2,21,0)="^^4^4^2900605^^^"
^DD(4.25,101.2,21,1,0)="Messages and Responses rec'd are included in this count even if they"
^DD(4.25,101.2,21,2,0)="are not received by a local recipient, but are forwarded on to another site."
^DD(4.25,101.2,21,3,0)=" "
^DD(4.25,101.2,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.25,101.2,"DT")="2891026"
^DD(4.25,101.3,0)="*CHARACTERS SENT^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.25,101.3,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(4.25,101.3,21,0)="^^4^4^2900605^^^"
^DD(4.25,101.3,21,1,0)="This is a count of the number of characters that were in the text field"
^DD(4.25,101.3,21,2,0)="of the messages sent in field 101.1."
^DD(4.25,101.3,21,3,0)=" "
^DD(4.25,101.3,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.25,101.3,"DT")="2891026"
^DD(4.25,101.4,0)="*CHARACTERS RECEIVED^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.25,101.4,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(4.25,101.4,21,0)="^^4^4^2900605^^"
^DD(4.25,101.4,21,1,0)="This is the number of characters counted in the messages recorded in"
^DD(4.25,101.4,21,2,0)="field 101.2."
^DD(4.25,101.4,21,3,0)=" "
^DD(4.25,101.4,21,4,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.25,101.4,"DT")="2891026"
^DD(4.25,101.5,0)="*LINES SENT^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.25,101.5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(4.25,101.5,21,0)="^^3^3^2900605^^"
^DD(4.25,101.5,21,1,0)="The number of lines sent is to be stored here."
^DD(4.25,101.5,21,2,0)=" "
^DD(4.25,101.5,21,3,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.25,101.5,"DT")="2891027"
^DD(4.25,101.6,0)="*LINES RECEIVED^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.25,101.6,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(4.25,101.6,21,0)="^^3^3^2900605^^"
^DD(4.25,101.6,21,1,0)="The number of lines received will be stored here."
^DD(4.25,101.6,21,2,0)=" "
^DD(4.25,101.6,21,3,0)="SEE FIELD 7 ABOUT '*'."
^DD(4.25,101.6,"DT")="2891027"
^DD(4.25,"B","*CHARACTERS RECEIVED",101.4)=""
^DD(4.25,"B","*CHARACTERS SENT",101.3)=""
^DD(4.25,"B","*LINES RECEIVED",101.6)=""
^DD(4.25,"B","*LINES SENT",101.5)=""
^DD(4.25,"B","*MESSAGES RECEIVED",101.2)=""
^DD(4.25,"B","*MESSAGES SENT",101.1)=""
^DD(4.25,"B","NETWORK NOTES",.01)=""
^DD(4.25,"GL",0,1,.01)=""
^DD(4.25,"GL",0,2,101.1)=""
^DD(4.25,"GL",0,3,101.2)=""
^DD(4.25,"GL",0,4,101.3)=""
^DD(4.25,"GL",0,5,101.4)=""
^DD(4.25,"GL",0,6,101.5)=""
^DD(4.25,"GL",0,7,101.6)=""
^DD(4.25,"IX",.01)=""
^DD(4.281,0)="FIELD^^2^3"
^DD(4.281,0,"DDA")="N"
^DD(4.281,0,"DT")="3020219"
^DD(4.281,0,"IX","B",4.281,.01)=""
^DD(4.281,0,"IX","C",4.281,1)=""
^DD(4.281,0,"NM","INTER-UCI TRANSFER")=""
^DD(4.281,0,"VR")="8.0"
^DD(4.281,0,"VRPK")="MAILMAN"
^DD(4.281,.01,0)="FROM DOMAIN^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(4.281,.01,1,0)="^.1"
^DD(4.281,.01,1,1,0)="4.281^B"
^DD(4.281,.01,1,1,1)="S ^%ZISL(4.281,""B"",$E(X,1,64),DA)="""""
^DD(4.281,.01,1,1,2)="K ^%ZISL(4.281,""B"",$E(X,1,64),DA)"
^DD(4.281,.01,3)="Answer must be 3-64 characters in length"
^DD(4.281,.01,"DT")="3020219"
^DD(4.281,1,0)="TO DOMAIN^F^^0;2^K:$L(X)>64!($L(X)<3) X"
^DD(4.281,1,1,0)="^.1"
^DD(4.281,1,1,1,0)="4.281^C"
^DD(4.281,1,1,1,1)="S ^%ZISL(4.281,""C"",$E(X,1,64),DA)="""""
^DD(4.281,1,1,1,2)="K ^%ZISL(4.281,""C"",$E(X,1,64),DA)"
^DD(4.281,1,1,1,3)="XXXX - Do not delete"
^DD(4.281,1,1,1,"%D",0)="^.101^2^2^3020219^^"
^DD(4.281,1,1,1,"%D",1,0)="This cross-reference is used by the receiving UCI to find entries"
^DD(4.281,1,1,1,"%D",2,0)="which have been 'transmitted' to it from other UCIs."
^DD(4.281,1,1,1,"DT")="2920608"
^DD(4.281,1,3)="Answer must be 3-64 characters in length"
^DD(4.281,1,"DT")="3020219"
^DD(4.281,2,0)="TEXT^4.2812^^T;0"
^DD(4.281,2,21,0)="^.001^5^5^3020422^^"
^DD(4.281,2,21,1,0)="The data being transferred and control logic are written into this"
^DD(4.281,2,21,2,0)="field and read out of this field when using the MailMan options:"
^DD(4.281,2,21,3,0)=" "
^DD(4.281,2,21,4,0)=" XMR-UCI-RCV    RECEIVE MESSAGES FROM OTHER UCI"
^DD(4.281,2,21,5,0)=" XMR-UCI-SEND   SEND MESSAGES TO ANOTHER UCI"
^DD(4.281,"B","FROM DOMAIN",.01)=""
^DD(4.281,"B","TEXT",2)=""
^DD(4.281,"B","TO DOMAIN",1)=""
^DD(4.281,"GL",0,1,.01)=""
^DD(4.281,"GL",0,2,1)=""
^DD(4.281,"GL","T",0,2)=""
^DD(4.281,"IX",.01)=""
^DD(4.281,"IX",1)=""
^DD(4.281,"RQ",.01)=""
^DD(4.281,"SB",4.2812,2)=""
^DD(4.2812,0)="TEXT SUB-FIELD^^.01^1"
^DD(4.2812,0,"DT")="2910725"
^DD(4.2812,0,"NM","TEXT")=""
^DD(4.2812,0,"UP")="4.281"
^DD(4.2812,.01,0)="TEXT^WL^^0;1^Q"
^DD(4.2812,.01,"DT")="2910725"
^DD(4.2812,"B","TEXT",.01)=""
^DD(4.2812,"GL",0,1,.01)=""
^DD(4.299,0)="TRANSMISSION SCRIPT NOTES SUB-FIELD^^.01^1"
^DD(4.299,0,"DT")="2930312"
^DD(4.299,0,"NM","TRANSMISSION SCRIPT NOTES")=""
^DD(4.299,0,"UP")="4.21"
^DD(4.299,.01,0)="NOTES^WL^^0;1^Q"
^DD(4.299,.01,21,0)="^^1^1^2931214^"
^DD(4.299,.01,21,1,0)="Keep notes that are important for systems management here."
^DD(4.299,.01,"DT")="2930312"
^DD(4.299,"B","NOTES",.01)=""
^DD(4.299,"GL",0,1,.01)=""
^DD(4.2995,0)="FIELD^^13^12"
^DD(4.2995,0,"DT")="2940222"
^DD(4.2995,0,"IX","B",4.2995,.01)=""
^DD(4.2995,0,"NM","MAILMAN OUTSTANDING FTP TRANSACTIONS")=""
^DD(4.2995,0,"VR")="8.0"
^DD(4.2995,0,"VRPK")="MAILMAN"
^DD(4.2995,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(4.2995,.01,1,0)="^.1"
^DD(4.2995,.01,1,1,0)="4.2995^B"
^DD(4.2995,.01,1,1,1)="S ^XMBX(4.2995,""B"",$E(X,1,30),DA)="""""
^DD(4.2995,.01,1,1,2)="K ^XMBX(4.2995,""B"",$E(X,1,30),DA)"
^DD(4.2995,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(4.2995,.01,21,0)="^^2^2^2930421^"
^DD(4.2995,.01,21,1,0)="The name of the entry is the same as the name of the executable file"
^DD(4.2995,.01,21,2,0)="that actually sends a BLOB across the network using FTP."
^DD(4.2995,.01,21,3,0)="for the file that actually sends a BLOB "
^DD(4.2995,.01,21,4,0)="across the network using FTP."
^DD(4.2995,.01,23,0)="1"
^DD(4.2995,.01,23,1,0)="The entries"
^DD(4.2995,.01,"DT")="2940114"
^DD(4.2995,1,0)="CREATION TIME^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.2995,1,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(4.2995,1,21,0)="^^2^2^2930421^^^"
^DD(4.2995,1,21,1,0)="This is the  time the entry was made [$H*86400+$P($H,"","",2)]"
^DD(4.2995,1,21,2,0)="in seconds since the beginning of system time."
^DD(4.2995,1,"DT")="2930421"
^DD(4.2995,2,0)="USER^P200'^VA(200,^0;3^Q"
^DD(4.2995,2,21,0)="^^2^2^2931214^"
^DD(4.2995,2,21,1,0)="This is the DUZ (internal ID) of the user whose message initiated the"
^DD(4.2995,2,21,2,0)="transfer."
^DD(4.2995,2,"DT")="2930421"
^DD(4.2995,3,0)="IMAGE^P2005'^MAG(2005,^0;4^Q"
^DD(4.2995,3,21,0)="^^2^2^2930616^"
^DD(4.2995,3,21,1,0)="This field is a pointer to the image file and is necessary to facilitate"
^DD(4.2995,3,21,2,0)="interjob communications."
^DD(4.2995,3,"DT")="2930616"
^DD(4.2995,4,0)="GET/PUT A FILE^RS^1:GET A FILE;2:PUT A FILE;^1;1^Q"
^DD(4.2995,4,3)=""
^DD(4.2995,4,21,0)="^^4^4^2940222^^"
^DD(4.2995,4,21,1,0)="Enter a GET command if you want to receive a file from a"
^DD(4.2995,4,21,2,0)="      Remote Host and place the file into a Local Host."
^DD(4.2995,4,21,3,0)="Enter a PUT command if you want to transfer a file from a"
^DD(4.2995,4,21,4,0)="      Local Host and place the file into a Remote Host."
^DD(4.2995,4,21,5,0)="      the Origination node and place the file into the"
^DD(4.2995,4,21,6,0)="      Destination node."
^DD(4.2995,4,"DT")="2940222"
^DD(4.2995,7,0)="LOGON USERNAME^RF^^1;4^K:$L(X)>15!($L(X)<3) X"
^DD(4.2995,7,3)="Answer must be 3-15 characters in length."
^DD(4.2995,7,21,0)="^^3^3^2940222^^^"
^DD(4.2995,7,21,1,0)="Enter the logon name at the Remote Host where"
^DD(4.2995,7,21,2,0)="the file will be placed or from where the file"
^DD(4.2995,7,21,3,0)="will be retrieved."
^DD(4.2995,7,21,4,0)="Username must be 3-15 characters in length."
^DD(4.2995,7,"DT")="2940222"
^DD(4.2995,8,0)="LOGON PASSWORD^RF^^1;5^K:$L(X)>15!($L(X)<3) X"
^DD(4.2995,8,3)="Answer must be 3-15 characters in length."
^DD(4.2995,8,21,0)="^^2^2^2940222^^"
^DD(4.2995,8,21,1,0)="Enter the password that are appropriate for the "
^DD(4.2995,8,21,2,0)="logon name at the Remote Host."
^DD(4.2995,8,21,3,0)="the file will be retrieved."
^DD(4.2995,8,21,4,0)="Password must be 3-15 characters in length."
^DD(4.2995,8,"DT")="2940222"
^DD(4.2995,9,0)="IP ADDRESS^RF^^1;6^K:$L(X)>20!($L(X)<3) X"
^DD(4.2995,9,3)="Answer must be 3-20 characters in length."
^DD(4.2995,9,21,0)="^^2^2^2940222^^"
^DD(4.2995,9,21,1,0)="Enter an IP address in the format of 4 numerals"
^DD(4.2995,9,21,2,0)="separated by periods, e.g., 128.149.32.1"
^DD(4.2995,9,"DT")="2940222"
^DD(4.2995,10,0)="FILENAME AT LOCAL HOST^RF^^1;7^K:$L(X)>30!($L(X)<3) X"
^DD(4.2995,10,3)="Answer must be 3-30 characters in length."
^DD(4.2995,10,21,0)="^^4^4^2940222^^"
^DD(4.2995,10,21,1,0)="For PUT command, enter the file name that you want to"
^DD(4.2995,10,21,2,0)="        transfer from the Local Host."
^DD(4.2995,10,21,3,0)="For GET command, enter the file name that you wnat to"
^DD(4.2995,10,21,4,0)="        place at the Local Host."
^DD(4.2995,10,"DT")="2940222"
^DD(4.2995,11,0)="DIRECTORY AT LOCAL HOST^F^^1;8^K:$L(X)>30!($L(X)<3) X"
^DD(4.2995,11,3)="Answer must be 3-30 characters in length."
^DD(4.2995,11,21,0)="^^4^4^2940222^^"
^DD(4.2995,11,21,1,0)="For PUT command, enter the Directory Name in which the file"
^DD(4.2995,11,21,2,0)="        name you want to transfer from the Local Host."
^DD(4.2995,11,21,3,0)="For GET command, enter the Directory Name in which the file"
^DD(4.2995,11,21,4,0)="        name you wnat to place at the Local Host."
^DD(4.2995,11,"DT")="2940222"
^DD(4.2995,12,0)="FILENAME AT REMOTE HOST^RF^^1;9^K:$L(X)>30!($L(X)<3) X"
^DD(4.2995,12,3)="Answer must be 3-30 characters in length."
^DD(4.2995,12,21,0)="^^4^4^2940222^^"
^DD(4.2995,12,21,1,0)="For Get command, enter the file name that you want to"
^DD(4.2995,12,21,2,0)="        receive from the Remote Host."
^DD(4.2995,12,21,3,0)="For PUT command, enter the file name that you want to"
^DD(4.2995,12,21,4,0)="        place at the Remote Host."
^DD(4.2995,12,"DT")="2940222"
^DD(4.2995,13,0)="DIRECTORY AT REMOTE HOST^F^^1;10^K:$L(X)>30!($L(X)<3) X"
^DD(4.2995,13,3)="Answer must be 3-30 characters in length."
^DD(4.2995,13,21,0)="^^4^4^2940222^^"
^DD(4.2995,13,21,1,0)="For GET command, enter the Directory Name in which the file"
^DD(4.2995,13,21,2,0)="        name you want to receive from the Remote Host."
^DD(4.2995,13,21,3,0)="For PUT command, enter the Directory Name in which the file"
^DD(4.2995,13,21,4,0)="        name you want to place at the Remote Host."
^DD(4.2995,13,"DT")="2940222"
^DD(4.2995,"B","CREATION TIME",1)=""
^DD(4.2995,"B","DIRECTORY AT LOCAL HOST",11)=""
^DD(4.2995,"B","DIRECTORY AT REMOTE HOST",13)=""
^DD(4.2995,"B","FILENAME AT LOCAL HOST",10)=""
^DD(4.2995,"B","FILENAME AT REMOTE HOST",12)=""
^DD(4.2995,"B","GET/PUT A FILE",4)=""
^DD(4.2995,"B","IMAGE",3)=""
^DD(4.2995,"B","IP ADDRESS",9)=""
^DD(4.2995,"B","LOGON PASSWORD",8)=""
^DD(4.2995,"B","LOGON USERNAME",7)=""
^DD(4.2995,"B","NAME",.01)=""
^DD(4.2995,"B","USER",2)=""
^DD(4.2995,"GL",0,1,.01)=""
^DD(4.2995,"GL",0,2,1)=""
^DD(4.2995,"GL",0,3,2)=""
^DD(4.2995,"GL",0,4,3)=""
^DD(4.2995,"GL",1,1,4)=""
^DD(4.2995,"GL",1,4,7)=""
^DD(4.2995,"GL",1,5,8)=""
^DD(4.2995,"GL",1,6,9)=""
^DD(4.2995,"GL",1,7,10)=""
^DD(4.2995,"GL",1,8,11)=""
^DD(4.2995,"GL",1,9,12)=""
^DD(4.2995,"GL",1,10,13)=""
^DD(4.2995,"IX",.01)=""
^DD(4.2995,"RQ",.01)=""
^DD(4.2995,"RQ",4)=""
^DD(4.2995,"RQ",7)=""
^DD(4.2995,"RQ",8)=""
^DD(4.2995,"RQ",9)=""
^DD(4.2995,"RQ",10)=""
^DD(4.2995,"RQ",12)=""
^DD(4.2996,0)="FIELD^^100^3"
^DD(4.2996,0,"DDA")="N"
^DD(4.2996,0,"DT")="3001130"
^DD(4.2996,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(4.2996,0,"IX","B",4.2996,.01)=""
^DD(4.2996,0,"NM","INTERNET SUFFIX")=""
^DD(4.2996,0,"VR")="8.0"
^DD(4.2996,0,"VRPK")="MAILMAN"
^DD(4.2996,.01,0)="NAME^RF^^0;1^K:$L(X)>10!($L(X)<2)!'(X?.U) X"
^DD(4.2996,.01,1,0)="^.1"
^DD(4.2996,.01,1,1,0)="4.2996^B"
^DD(4.2996,.01,1,1,1)="S ^DIC(4.2996,""B"",$E(X,1,30),DA)="""""
^DD(4.2996,.01,1,1,2)="K ^DIC(4.2996,""B"",$E(X,1,30),DA)"
^DD(4.2996,.01,3)="Answer must be 2-10 characters in length."
^DD(4.2996,.01,8.5)="^"
^DD(4.2996,.01,9)="^"
^DD(4.2996,.01,21,0)="^.001^3^3^3001130^^^"
^DD(4.2996,.01,21,1,0)="This is an approved (by ICANN or IANA) top-level domain (the last dot"
^DD(4.2996,.01,21,2,0)="piece of a domain name), which is used to control the routing of"
^DD(4.2996,.01,21,3,0)="messages on the Internet."
^DD(4.2996,.01,"DT")="3001130"
^DD(4.2996,.01,"LAYGO",1,0)="I 0"
^DD(4.2996,1,0)="SHORT DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(4.2996,1,3)="Answer must be 1-50 characters in length."
^DD(4.2996,1,8.5)="^"
^DD(4.2996,1,9)="^"
^DD(4.2996,1,21,0)="^.001^1^1^3001130^^^^"
^DD(4.2996,1,21,1,0)="This is a short description of the top-level domain."
^DD(4.2996,1,"DT")="3001130"
^DD(4.2996,100,0)="NOTES^4.29961^^1;0"
^DD(4.2996,100,21,0)="^.001^2^2^3001130^^^"
^DD(4.2996,100,21,1,0)="This field may be used for notes or more information about the top-level"
^DD(4.2996,100,21,2,0)="domain, if needed."
^DD(4.2996,100,"DT")="3001130"
^DD(4.2996,"B","NAME",.01)=""
^DD(4.2996,"B","NOTES",100)=""
^DD(4.2996,"B","SHORT DESCRIPTION",1)=""
^DD(4.2996,"GL",0,1,.01)=""
^DD(4.2996,"GL",0,2,1)=""
^DD(4.2996,"GL",1,0,100)=""
^DD(4.2996,"IX",.01)=""
^DD(4.2996,"RQ",.01)=""
^DD(4.2996,"SB",4.29961,100)=""
^DD(4.29961,0)="NOTES SUB-FIELD^^.01^1"
^DD(4.29961,0,"DT")="3001130"
^DD(4.29961,0,"NM","NOTES")=""
^DD(4.29961,0,"UP")="4.2996"
^DD(4.29961,.01,0)="NOTES^W^^0;1^Q"
^DD(4.29961,.01,3)="Enter any notes about this top-level domain."
^DD(4.29961,.01,21,0)="^.001^2^2^3001130^^^"
^DD(4.29961,.01,21,1,0)="This field may be used for a more complete description of the top-level"
^DD(4.29961,.01,21,2,0)="domain, if needed."
^DD(4.29961,.01,"DT")="3001130"
^DD(4.29961,"B","NOTES",.01)=""
^DD(4.29961,"GL",0,1,.01)=""
^DD(4.2997,0)="FIELD^^99^12"
^DD(4.2997,0,"DDA")="N"
^DD(4.2997,0,"DT")="2930120"
^DD(4.2997,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(4.2997,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(4.2997,0,"ID",5)="W ""   "",$P(^(0),U,6)"
^DD(4.2997,0,"ID",99)="W ""   "",$P(^(0),U,7)"
^DD(4.2997,0,"IX","AC",4.2997,6)=""
^DD(4.2997,0,"IX","B",4.2997,.01)=""
^DD(4.2997,0,"IX","C",4.2997,3)=""
^DD(4.2997,0,"IX","D",4.2997,5)=""
^DD(4.2997,0,"IX","E",4.2997,98)=""
^DD(4.2997,0,"IX","F",4.2997,99)=""
^DD(4.2997,0,"NM","REMOTE USER DIRECTORY")=""
^DD(4.2997,0,"VR")="8.0"
^DD(4.2997,0,"VRPK")="MAILMAN"
^DD(4.2997,.01,0)="LAST NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1.AN) X"
^DD(4.2997,.01,1,0)="^.1"
^DD(4.2997,.01,1,1,0)="4.2997^B"
^DD(4.2997,.01,1,1,1)="S ^XMD(4.2997,""B"",$E(X,1,30),DA)="""""
^DD(4.2997,.01,1,1,2)="K ^XMD(4.2997,""B"",$E(X,1,30),DA)"
^DD(4.2997,.01,3)="Answer must be 3-30 characters in length."
^DD(4.2997,.01,21,0)="^^1^1^2931214^"
^DD(4.2997,.01,21,1,0)="This is the last name of the remote user."
^DD(4.2997,1,0)="FIRST NAME^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,1,3)="Answer must be 3-30 characters in length."
^DD(4.2997,1,21,0)="^^1^1^2931214^"
^DD(4.2997,1,21,1,0)="This is the first name of the remote user."
^DD(4.2997,2,0)="REST OF NAME^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(4.2997,2,3)="Answer must be 1-30 characters in length."
^DD(4.2997,2,21,0)="^^1^1^2931214^"
^DD(4.2997,2,21,1,0)="This is the rest of the remote user's name."
^DD(4.2997,3,0)="MAIL CODE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,3,1,0)="^.1"
^DD(4.2997,3,1,1,0)="4.2997^C"
^DD(4.2997,3,1,1,1)="S ^XMD(4.2997,""C"",$E(X,1,30),DA)="""""
^DD(4.2997,3,1,1,2)="K ^XMD(4.2997,""C"",$E(X,1,30),DA)"
^DD(4.2997,3,3)="Answer must be 3-30 characters in length."
^DD(4.2997,3,21,0)="^^1^1^2931214^"
^DD(4.2997,3,21,1,0)="This is the mail code name of the remote user."
^DD(4.2997,3,"DT")="2901030"
^DD(4.2997,4,0)="EXTENDED MAIL CODE^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,4,3)="Answer must be 3-30 characters in length."
^DD(4.2997,4,21,0)="^^2^2^2931214^"
^DD(4.2997,4,21,1,0)="This is the mail code name of the remote user with a greater amount of detail"
^DD(4.2997,4,21,2,0)="than the regular mail code."
^DD(4.2997,5,0)="LOCATION^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,5,1,0)="^.1"
^DD(4.2997,5,1,1,0)="4.2997^D^KWIC"
^DD(4.2997,5,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^XMD(4.2997,""D"",I,DA)="""""
^DD(4.2997,5,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^XMD(4.2997,""D"",I,DA)"
^DD(4.2997,5,3)="Answer must be 3-30 characters in length."
^DD(4.2997,5,21,0)="^^1^1^2931214^"
^DD(4.2997,5,21,1,0)="This is where the remote user is located."
^DD(4.2997,5,"DT")="2901030"
^DD(4.2997,6,0)="DATE LAST USED^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(4.2997,6,1,0)="^.1"
^DD(4.2997,6,1,1,0)="4.2997^AC"
^DD(4.2997,6,1,1,1)="S ^XMD(4.2997,""AC"",$E(X,1,30),DA)="""""
^DD(4.2997,6,1,1,2)="K ^XMD(4.2997,""AC"",$E(X,1,30),DA)"
^DD(4.2997,6,1,1,"%D",0)="^^2^2^2930120^"
^DD(4.2997,6,1,1,"%D",1,0)="This cross reference is used by the XMDIR1 to automatically maintain out"
^DD(4.2997,6,1,1,"%D",2,0)="old entries that have not been used for at least 2 years."
^DD(4.2997,6,1,1,"DT")="2930120"
^DD(4.2997,6,21,0)="^^1^1^2931214^"
^DD(4.2997,6,21,1,0)="This is when the entry was last chosen and used for addressing a message."
^DD(4.2997,6,"DT")="2930120"
^DD(4.2997,7,0)="PHONE^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,7,3)="Answer must be 3-30 characters in length."
^DD(4.2997,7,21,0)="^^1^1^2931214^"
^DD(4.2997,7,21,1,0)="This is the phone number of the remote user."
^DD(4.2997,7,"DT")="2930120"
^DD(4.2997,8,0)="PHONE EXTENSION^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,8,3)="Answer must be 3-30 characters in length."
^DD(4.2997,8,21,0)="^^1^1^2931214^^"
^DD(4.2997,8,21,1,0)="This is the extension of the phone number of the remote user."
^DD(4.2997,8,"DT")="2930120"
^DD(4.2997,50,0)="DATE ENTERED^NJ1,0XO^^0;8^K:+X'=X!($H-X>9) X"
^DD(4.2997,50,2)="S Y(0)=Y N %H,%,X S %H=Y D YX^%DTC"
^DD(4.2997,50,2.1)="N %H,%,X S %H=Y D YX^%DTC"
^DD(4.2997,50,3)="Enter a $H day."
^DD(4.2997,50,21,0)="^^4^4^2930115^^"
^DD(4.2997,50,21,1,0)="This is the date that a user was entered into the directory."
^DD(4.2997,50,21,2,0)="It is is $H format (just the day portion, eg.  55445)."
^DD(4.2997,50,21,3,0)="It is data to be entered only when users are being entered"
^DD(4.2997,50,21,4,0)="into the database automatically."
^DD(4.2997,50,23,0)="^^1^1^2930115^^"
^DD(4.2997,50,23,1,0)=" "
^DD(4.2997,50,"DT")="2930827"
^DD(4.2997,98,0)="AUTOMATICALLY ENTERED BY^F^^AUTO;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,98,1,0)="^.1"
^DD(4.2997,98,1,1,0)="4.2997^E"
^DD(4.2997,98,1,1,1)="S ^XMD(4.2997,""E"",$E(X,1,30),DA)="""""
^DD(4.2997,98,1,1,2)="K ^XMD(4.2997,""E"",$E(X,1,30),DA)"
^DD(4.2997,98,1,1,"%D",0)="^^1^1^2930115^"
^DD(4.2997,98,1,1,"%D",1,0)="This cross reference is used to maintain out old directory entries."
^DD(4.2997,98,1,1,"DT")="2930115"
^DD(4.2997,98,3)="Answer must be 3-30 characters in length."
^DD(4.2997,98,21,0)="^^5^5^2930115^"
^DD(4.2997,98,21,1,0)="This field is used by a routine (or server) that automatically enters names"
^DD(4.2997,98,21,2,0)="into this file to mark it with a prechosen name.  This name must be coordinated"
^DD(4.2997,98,21,3,0)="by the MailMan Development team.  Local sites may use names that begin with"
^DD(4.2997,98,21,4,0)="the three character sequence ""XMZ"" without coordinating."
^DD(4.2997,98,21,5,0)=" "
^DD(4.2997,98,23,0)="^^1^1^2930115^"
^DD(4.2997,98,23,1,0)=" "
^DD(4.2997,98,"DT")="2930115"
^DD(4.2997,99,0)="NETWORK ADDRESS^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(4.2997,99,1,0)="^.1"
^DD(4.2997,99,1,1,0)="4.2997^F"
^DD(4.2997,99,1,1,1)="S ^XMD(4.2997,""F"",X,DA)="""""
^DD(4.2997,99,1,1,2)="K ^XMD(4.2997,""F"",X,DA)"
^DD(4.2997,99,1,1,"%D",0)="^^4^4^2930120^"
^DD(4.2997,99,1,1,"%D",1,0)="This cross reference is used for look-up and also to determine if an"
^DD(4.2997,99,1,1,"%D",2,0)="entry already exists.  Theory is that the old and new addresses can exist"
^DD(4.2997,99,1,1,"%D",3,0)="in the file and that is okay.  The bad entry will be removed when the user"
^DD(4.2997,99,1,1,"%D",4,0)="notifies the support staff."
^DD(4.2997,99,1,1,"DT")="2930120"
^DD(4.2997,99,3)="Answer must be 3-30 characters in length."
^DD(4.2997,99,21,0)="^^4^4^2931214^"
^DD(4.2997,99,21,1,0)="This field is used to address mail automatically.  When a look-up"
^DD(4.2997,99,21,2,0)="is done on the local user file and fails, a secondary look-up tries"
^DD(4.2997,99,21,3,0)="to find the user in the Remote User file.  If it is found, the message"
^DD(4.2997,99,21,4,0)="is automatically addressed using this field."
^DD(4.2997,99,"DT")="2930120"
^DD(4.2997,"B","AUTOMATICALLY ENTERED BY",98)=""
^DD(4.2997,"B","DATE ENTERED",50)=""
^DD(4.2997,"B","DATE LAST USED",6)=""
^DD(4.2997,"B","EXTENDED MAIL CODE",4)=""
^DD(4.2997,"B","FIRST NAME",1)=""
^DD(4.2997,"B","LAST NAME",.01)=""
^DD(4.2997,"B","LOCATION",5)=""
^DD(4.2997,"B","MAIL CODE",3)=""
^DD(4.2997,"B","NETWORK ADDRESS",99)=""
^DD(4.2997,"B","PHONE",7)=""
^DD(4.2997,"B","PHONE EXTENSION",8)=""
^DD(4.2997,"B","REST OF NAME",2)=""
^DD(4.2997,"GL",0,1,.01)=""
^DD(4.2997,"GL",0,2,1)=""
^DD(4.2997,"GL",0,3,2)=""
^DD(4.2997,"GL",0,4,3)=""
^DD(4.2997,"GL",0,5,4)=""
^DD(4.2997,"GL",0,6,5)=""
^DD(4.2997,"GL",0,7,99)=""
^DD(4.2997,"GL",0,8,50)=""
^DD(4.2997,"GL",0,9,6)=""
^DD(4.2997,"GL",1,1,7)=""
^DD(4.2997,"GL",1,2,8)=""
^DD(4.2997,"GL","AUTO",1,98)=""
^DD(4.2997,"IX",.01)=""
^DD(4.2997,"IX",3)=""
^DD(4.2997,"IX",5)=""
^DD(4.2997,"IX",6)=""
^DD(4.2997,"IX",98)=""
^DD(4.2997,"IX",99)=""
^DD(4.2997,"RQ",.01)=""
^DD(4.2998,0)="FIELD^^710^80"
^DD(4.2998,0,"DDA")="N"
^DD(4.2998,0,"DT")="2921006"
^DD(4.2998,0,"IX","B",4.2998,.01)=""
^DD(4.2998,0,"NM","MESSAGE DELIVERY STATS")=""
^DD(4.2998,0,"VR")="8.0"
^DD(4.2998,0,"VRPK")="MAILMAN"
^DD(4.2998,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:X<2911100 X"
^DD(4.2998,.01,1,0)="^.1"
^DD(4.2998,.01,1,1,0)="4.2998^B"
^DD(4.2998,.01,1,1,1)="S ^XMBX(4.2998,""B"",$E(X,1,30),DA)="""""
^DD(4.2998,.01,1,1,2)="K ^XMBX(4.2998,""B"",$E(X,1,30),DA)"
^DD(4.2998,.01,3)="This is the date & time the stats were recorded."
^DD(4.2998,.01,21,0)="^^2^2^2911104^"
^DD(4.2998,.01,21,1,0)="This is the date and time in FileMan format that this batch of stats were"
^DD(4.2998,.01,21,2,0)="created."
^DD(4.2998,.01,"DT")="2911104"
^DD(4.2998,1,0)="TOTAL QUEUE LENGTH^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,1,21,0)="^^2^2^2931214^"
^DD(4.2998,1,21,1,0)="This is the total number of messages and responses in the queue"
^DD(4.2998,1,21,2,0)="waiting to be delivered by the background filer."
^DD(4.2998,1,"DT")="2911104"
^DD(4.2998,11,0)="MESSAGES^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,11,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(4.2998,11,21,0)="^^1^1^2911104^"
^DD(4.2998,11,21,1,0)="This field is for original messages as opposed to responses to deliver."
^DD(4.2998,11,"DT")="2911104"
^DD(4.2998,12,0)="RESPONSES^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,12,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,12,21,0)="^^2^2^2931214^"
^DD(4.2998,12,21,1,0)="This is the total number of responses in the queue"
^DD(4.2998,12,21,2,0)="waiting to be delivered by the background filer."
^DD(4.2998,12,"DT")="2911104"
^DD(4.2998,15,0)="LINES OUTPUT^NJ10,0^^0;5^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,15,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(4.2998,15,21,0)="^^2^2^2931214^"
^DD(4.2998,15,21,1,0)="This is the number of lines output (displayed and printed) during the"
^DD(4.2998,15,21,2,0)="interval in question."
^DD(4.2998,15,"DT")="2920107"
^DD(4.2998,22,0)="RESPONSE TIME - AVERAGE^NJ9,1^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(4.2998,22,3)="Type a Number between 0 and 9999999, 1 Decimal Digit"
^DD(4.2998,22,21,0)="^^2^2^2931214^"
^DD(4.2998,22,21,1,0)="This is the average response time that it took during the interval"
^DD(4.2998,22,21,2,0)="in question while messages were being deleted and/or terminated."
^DD(4.2998,38,0)="ACTIVE USERS^NJ7,0^^0;21^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,38,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,38,21,0)="^^2^2^2931214^^"
^DD(4.2998,38,21,1,0)="This is the total number of users that were on the system"
^DD(4.2998,38,21,2,0)="when the statistics for the period were gathered."
^DD(4.2998,38,"DT")="2911202"
^DD(4.2998,39,0)="ACTIVE ZSLOT USERS^NJ7,0^^0;22^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,39,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,39,21,0)="^^2^2^2931214^"
^DD(4.2998,39,21,1,0)="This is the total number if ZSLOT users that were on the system"
^DD(4.2998,39,21,2,0)="when the statistics for the period were gathered."
^DD(4.2998,40,0)="ACTIVE NON-ZSLOT USERS^NJ7,0^^0;23^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,40,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,40,21,0)="^^2^2^2931214^"
^DD(4.2998,40,21,1,0)="This is the total number of non-ZSLOT users that were on the system"
^DD(4.2998,40,21,2,0)="when the statistics for the period were gathered."
^DD(4.2998,41,0)="LOGINS - LAST 24 HOURS^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,41,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,41,21,0)="^^1^1^2931214^"
^DD(4.2998,41,21,1,0)="This is the number of Logins that occured during the last 24 hours."
^DD(4.2998,41,"DT")="2911127"
^DD(4.2998,42,0)="LOGIN MINUTES - LAST 24 HOURS^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,42,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,42,21,0)="^^2^2^2931214^"
^DD(4.2998,42,21,1,0)="This is the number of minutes that users were logged onto the system"
^DD(4.2998,42,21,2,0)="during the last 24 hours."
^DD(4.2998,42,"DT")="2911127"
^DD(4.2998,43,0)="MESSAGE NUMBER LAST ASSIGNED^NJ10,0^^0;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,43,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(4.2998,43,21,0)="^^1^1^2931214^"
^DD(4.2998,43,21,1,0)="This is the last message number assigned for the date."
^DD(4.2998,43,"DT")="2911113"
^DD(4.2998,44,0)="MESSAGE DELIVERIES MADE^NJ9,0^^0;12^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,44,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(4.2998,44,21,0)="^^2^2^2931214^"
^DD(4.2998,44,21,1,0)="This is the number of message deliveries made during the interval"
^DD(4.2998,44,21,2,0)="in question."
^DD(4.2998,44,"DT")="2911124"
^DD(4.2998,45,0)="RESPONSE DELIVERIES MADE^NJ9,0^^0;13^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,45,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(4.2998,45,21,0)="^^2^2^2931214^"
^DD(4.2998,45,21,1,0)="This is the number of response deliveries made during the interval"
^DD(4.2998,45,21,2,0)="in question."
^DD(4.2998,45,"DT")="2911124"
^DD(4.2998,46,0)="MESSAGE DELIVERIES IN QUEUE^NJ8,0^^0;14^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,46,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(4.2998,46,21,0)="^^2^2^2931214^"
^DD(4.2998,46,21,1,0)="This is the total number of message deliveries that remained undelivered"
^DD(4.2998,46,21,2,0)="at the time that the queues were checked."
^DD(4.2998,46,"DT")="2911123"
^DD(4.2998,47,0)="RESPONSE DELIVERIES IN QUEUE^NJ8,0^^0;15^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,47,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(4.2998,47,21,0)="^^2^2^2931214^"
^DD(4.2998,47,21,1,0)="This is the total number of response deliveries that remained undelivered"
^DD(4.2998,47,21,2,0)="at the time that the queues were checked."
^DD(4.2998,47,"DT")="2911123"
^DD(4.2998,101,0)="AGE OF OLDEST MESSAGE^NJ7,0^^1;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,101,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,101,21,0)="^^2^2^2931214^"
^DD(4.2998,101,21,1,0)="This is the longest amount of time in seconds that any message has been"
^DD(4.2998,101,21,2,0)="in the queue at the time the queue was checked."
^DD(4.2998,101,"DT")="2911104"
^DD(4.2998,102,0)="AGE OF OLDEST RESPONSE^NJ7,0^^1;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,102,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,102,21,0)="^^2^2^2931214^"
^DD(4.2998,102,21,1,0)="This is the longest amount of time in seconds that any message has been"
^DD(4.2998,102,21,2,0)="in the queue at the time the queue was checked.    "
^DD(4.2998,102,"DT")="2911106"
^DD(4.2998,103,0)="RESPONSE ANALYSIS PARAMETERS^F^^1;3^K:$L(X)>50!($L(X)<1) X"
^DD(4.2998,103,3)="Enter integer recipient frequencies separated by commas that will define groupings for analysis."
^DD(4.2998,103,21,0)="^^8^8^2920908^^"
^DD(4.2998,103,21,1,0)="This field is a series of integers separated by commas.  The numbers define"
^DD(4.2998,103,21,2,0)="groupings of messages to analyze.  For instance the string ""10,50,300"" will"
^DD(4.2998,103,21,3,0)="cause messages to be grouped into the following groups:"
^DD(4.2998,103,21,4,0)=" "
^DD(4.2998,103,21,5,0)="   10 or fewer recipients on the message"
^DD(4.2998,103,21,6,0)="   from 11 to 50 recipients on the message"
^DD(4.2998,103,21,7,0)="   from 51 to 300 recipients on the message"
^DD(4.2998,103,21,8,0)="   greater than 300 recipients on the message"
^DD(4.2998,103,"DT")="2911115"
^DD(4.2998,104,0)="MESSAGE ANALYSIS PARAMETERS^FX^^1;4^K:$L(X)>50!($L(X)<1) X"
^DD(4.2998,104,3)="Answer with a string like the one you entered for the RESPONSE GROUPING STRING."
^DD(4.2998,104,21,0)="^^1^1^2911106^"
^DD(4.2998,104,21,1,0)="See field 103."
^DD(4.2998,104,"DT")="2921006"
^DD(4.2998,201,0)="RESPONSE AGE GROUP1^NJ7,0^^2;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,201,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,201,21,0)="^^2^2^2931214^"
^DD(4.2998,201,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,201,21,2,0)="the queue for Response Group 1 the longest has been there."
^DD(4.2998,201,"DT")="2911106"
^DD(4.2998,202,0)="RESPONSE AGE GROUP2^NJ7,0^^2;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,202,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,202,21,0)="^^2^2^2931214^^^"
^DD(4.2998,202,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,202,21,2,0)="the queue for Response Group 2 the longest has been there."
^DD(4.2998,202,"DT")="2911106"
^DD(4.2998,203,0)="RESPONSE AGE GROUP3^NJ7,0^^2;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,203,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,203,21,0)="^^2^2^2931214^"
^DD(4.2998,203,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,203,21,2,0)="the queue for Response Group 3 the longest has been there."
^DD(4.2998,203,"DT")="2911106"
^DD(4.2998,204,0)="RESPONSE AGE GROUP4^RNJ7,0^^2;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,204,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,204,21,0)="^^2^2^2931214^"
^DD(4.2998,204,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,204,21,2,0)="the queue for Response Group 4 the longest has been there."
^DD(4.2998,204,"DT")="2911106"
^DD(4.2998,205,0)="RESPONSE AGE GROUP5^NJ7,0^^2;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,205,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,205,21,0)="^^2^2^2931214^^"
^DD(4.2998,205,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,205,21,2,0)="the queue for Response Group 5 the longest has been there."
^DD(4.2998,205,"DT")="2911106"
^DD(4.2998,206,0)="RESPONSE AGE GROUP6^NJ7,0^^2;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,206,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,206,21,0)="^^2^2^2931214^^"
^DD(4.2998,206,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,206,21,2,0)="the queue for Response Group 6 the longest has been there."
^DD(4.2998,206,"DT")="2911106"
^DD(4.2998,207,0)="RESPONSE AGE GROUP7^NJ7,0^^2;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,207,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,207,21,0)="^^2^2^2931214^"
^DD(4.2998,207,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,207,21,2,0)="the queue for Response Group 7 the longest has been there."
^DD(4.2998,207,"DT")="2911106"
^DD(4.2998,208,0)="RESPONSE AGE GROUP8^NJ7,0^^2;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,208,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,208,21,0)="^^2^2^2931214^"
^DD(4.2998,208,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,208,21,2,0)="the queue for Response Group 8 the longest has been there."
^DD(4.2998,208,"DT")="2911106"
^DD(4.2998,209,0)="RESPONSE AGE GROUP9^NJ7,0^^2;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,209,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,209,21,0)="^^2^2^2931214^^"
^DD(4.2998,209,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,209,21,2,0)="the queue for Response Group 9 the longest has been there."
^DD(4.2998,209,"DT")="2911106"
^DD(4.2998,210,0)="RESPONSE AGE GROUP 10^NJ7,0^^2;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,210,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,210,21,0)="^^2^2^2931214^^"
^DD(4.2998,210,21,1,0)="This is the amount of seconds that the response that has been in"
^DD(4.2998,210,21,2,0)="the queue for Response Group 10 the longest has been there."
^DD(4.2998,210,"DT")="2911126"
^DD(4.2998,301,0)="RESPONSE NUMBER GROUP1^NJ7,0^^3;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,301,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,301,21,0)="^^2^2^2931214^^"
^DD(4.2998,301,21,1,0)="This is the number of responses that were delivered for Response Group 1"
^DD(4.2998,301,21,2,0)="during the last time interval."
^DD(4.2998,301,"DT")="2911106"
^DD(4.2998,302,0)="RESPONSE NUMBER GROUP2^NJ7,0^^3;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,302,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,302,21,0)="^^2^2^2931214^^"
^DD(4.2998,302,21,1,0)="This is the number of responses that were delivered for Response Group 2"
^DD(4.2998,302,21,2,0)="during the last time interval."
^DD(4.2998,302,"DT")="2911106"
^DD(4.2998,303,0)="RESPONSE NUMBER GROUP3^NJ7,0^^3;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,303,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,303,21,0)="^^2^2^2931214^^^"
^DD(4.2998,303,21,1,0)="This is the number of responses that were delivered for Response Group 3"
^DD(4.2998,303,21,2,0)="during the last time interval."
^DD(4.2998,303,"DT")="2911106"
^DD(4.2998,304,0)="RESPONSE NUMBER GROUP4^NJ7,0^^3;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,304,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,304,21,0)="^^2^2^2931214^^"
^DD(4.2998,304,21,1,0)="This is the number of responses that were delivered for Response Group 4"
^DD(4.2998,304,21,2,0)="during the last time interval."
^DD(4.2998,304,"DT")="2911106"
^DD(4.2998,305,0)="RESPONSE NUMBER GROUP5^NJ7,0^^3;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,305,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,305,21,0)="^^2^2^2931214^^^"
^DD(4.2998,305,21,1,0)="This is the number of responses that were delivered for Response Group 5"
^DD(4.2998,305,21,2,0)="during the last time interval."
^DD(4.2998,305,"DT")="2911106"
^DD(4.2998,306,0)="RESPONSE NUMBER GROUP6^NJ7,0^^3;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,306,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,306,21,0)="^^2^2^2931214^^"
^DD(4.2998,306,21,1,0)="This is the number of responses that were delivered for Response Group 6"
^DD(4.2998,306,21,2,0)="during the last time interval."
^DD(4.2998,306,"DT")="2911106"
^DD(4.2998,307,0)="RESPONSE NUMBER GROUP7^NJ7,0^^3;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,307,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,307,21,0)="^^2^2^2931214^^"
^DD(4.2998,307,21,1,0)="This is the number of responses that were delivered for Response Group 7"
^DD(4.2998,307,21,2,0)="during the last time interval."
^DD(4.2998,307,"DT")="2911106"
^DD(4.2998,308,0)="RESPONSE NUMBER GROUP8^NJ7,0^^3;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,308,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,308,21,0)="^^2^2^2931214^^"
^DD(4.2998,308,21,1,0)="This is the number of responses that were delivered for Response Group 8"
^DD(4.2998,308,21,2,0)="during the last time interval."
^DD(4.2998,308,"DT")="2911106"
^DD(4.2998,309,0)="RESPONSE NUMBER GROUP9^NJ7,0^^3;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,309,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,309,21,0)="^^2^2^2931214^^"
^DD(4.2998,309,21,1,0)="This is the number of responses that were delivered for Response Group 9"
^DD(4.2998,309,21,2,0)="during the last time interval."
^DD(4.2998,309,"DT")="2911106"
^DD(4.2998,310,0)="RESPONSE NUMBER GROUP 10^NJ7,0^^3;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,310,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,310,21,0)="^^2^2^2931214^^"
^DD(4.2998,310,21,1,0)="This is the number of responses that were delivered for Response Group 10"
^DD(4.2998,310,21,2,0)="during the last time interval."
^DD(4.2998,310,"DT")="2911126"
^DD(4.2998,401,0)="MESSAGE AGE GROUP1^NJ7,0^^4;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,401,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,401,21,0)="^^2^2^2931214^"
^DD(4.2998,401,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,401,21,2,0)="the queue for Message Group 1 the longest has been there."
^DD(4.2998,401,"DT")="2911106"
^DD(4.2998,402,0)="MESSAGE AGE GROUP2^NJ7,0^^4;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,402,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,402,21,0)="^^2^2^2931214^"
^DD(4.2998,402,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,402,21,2,0)="the queue for Message Group 2 the longest has been there."
^DD(4.2998,402,"DT")="2911106"
^DD(4.2998,403,0)="MESSAGE AGE GROUP3^NJ7,0^^4;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,403,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,403,21,0)="^^2^2^2931214^"
^DD(4.2998,403,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,403,21,2,0)="the queue for Message Group 3 the longest has been there."
^DD(4.2998,403,"DT")="2911106"
^DD(4.2998,404,0)="MESSAGE AGE GROUP4^NJ7,0^^4;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,404,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,404,21,0)="^^2^2^2931214^"
^DD(4.2998,404,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,404,21,2,0)="the queue for Message Group 4 the longest has been there."
^DD(4.2998,404,"DT")="2911106"
^DD(4.2998,405,0)="MESSAGE AGE GROUP5^NJ7,0^^4;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,405,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,405,21,0)="^^2^2^2931214^"
^DD(4.2998,405,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,405,21,2,0)="the queue for Message Group 5 the longest has been there."
^DD(4.2998,406,0)="MESSAGE AGE GROUP6^NJ7,0^^4;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,406,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,406,21,0)="^^2^2^2931214^"
^DD(4.2998,406,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,406,21,2,0)="the queue for Message Group 6 the longest has been there."
^DD(4.2998,407,0)="MESSAGE AGE GROUP7^NJ7,0^^4;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,407,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,407,21,0)="^^2^2^2931214^"
^DD(4.2998,407,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,407,21,2,0)="the queue for Message Group 7 the longest has been there."
^DD(4.2998,407,"DT")="2911106"
^DD(4.2998,408,0)="MESSAGE AGE GROUP8^NJ7,0^^4;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,408,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,408,21,0)="^^2^2^2931214^"
^DD(4.2998,408,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,408,21,2,0)="the queue for Message Group 8 the longest has been there."
^DD(4.2998,409,0)="MESSAGE AGE GROUP9^NJ7,0^^4;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,409,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,409,21,0)="^^2^2^2931214^"
^DD(4.2998,409,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,409,21,2,0)="the queue for Message Group 9 the longest has been there."
^DD(4.2998,410,0)="MESSAGE AGE GROUP 10^NJ7,0^^4;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,410,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,410,21,0)="^^2^2^2931214^"
^DD(4.2998,410,21,1,0)="This is the amount of seconds that the message that has been in"
^DD(4.2998,410,21,2,0)="the queue for Message Group 10 the longest has been there."
^DD(4.2998,410,"DT")="2911126"
^DD(4.2998,501,0)="MESSAGE NUMBER GROUP1^NJ7,0^^5;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,501,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,501,21,0)="^^2^2^2931214^^"
^DD(4.2998,501,21,1,0)="This is the number of messages that were delivered for Message Group 1"
^DD(4.2998,501,21,2,0)="during the last time interval."
^DD(4.2998,502,0)="MESSAGE NUMBER GROUP2^NJ7,0^^5;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,502,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,502,21,0)="^^2^2^2931214^^^"
^DD(4.2998,502,21,1,0)="This is the number of messages that were delivered for Message Group 2"
^DD(4.2998,502,21,2,0)="during the last time interval."
^DD(4.2998,503,0)="MESSAGE NUMBER GROUP3^NJ7,0^^5;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,503,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,503,21,0)="^^2^2^2931214^^"
^DD(4.2998,503,21,1,0)="This is the number of messages that were delivered for Message Group 3"
^DD(4.2998,503,21,2,0)="during the last time interval."
^DD(4.2998,504,0)="MESSAGE NUMBER GROUP4^NJ7,0^^5;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,504,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,504,21,0)="^^2^2^2931214^^"
^DD(4.2998,504,21,1,0)="This is the number of messages that were delivered for Message Group 4"
^DD(4.2998,504,21,2,0)="during the last time interval."
^DD(4.2998,505,0)="MESSAGE NUMBER GROUP5^NJ7,0^^5;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,505,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,505,21,0)="^^2^2^2931214^^"
^DD(4.2998,505,21,1,0)="This is the number of messages that were delivered for Message Group 5"
^DD(4.2998,505,21,2,0)="during the last time interval."
^DD(4.2998,506,0)="MESSAGE NUMBER GROUP6^NJ7,0^^5;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,506,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,506,21,0)="^^2^2^2931214^^"
^DD(4.2998,506,21,1,0)="This is the number of messages that were delivered for Message Group 6"
^DD(4.2998,506,21,2,0)="during the last time interval."
^DD(4.2998,507,0)="MESSAGE NUMBER GROUP7^NJ7,0^^5;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,507,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,507,21,0)="^^2^2^2931214^^"
^DD(4.2998,507,21,1,0)="This is the number of messages that were delivered for Message Group 7"
^DD(4.2998,507,21,2,0)="during the last time interval."
^DD(4.2998,508,0)="MESSAGE NUMBER GROUP8^NJ7,0^^5;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,508,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,508,21,0)="^^2^2^2931214^^"
^DD(4.2998,508,21,1,0)="This is the number of messages that were delivered for Message Group 8"
^DD(4.2998,508,21,2,0)="during the last time interval."
^DD(4.2998,509,0)="MESSAGE NUMBER GROUP9^NJ7,0^^5;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,509,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,509,21,0)="^^2^2^2931214^^"
^DD(4.2998,509,21,1,0)="This is the number of messages that were delivered for Message Group 9"
^DD(4.2998,509,21,2,0)="during the last time interval."
^DD(4.2998,510,0)="MESSAGE NUMBER GROUP 10^NJ7,0^^5;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,510,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,510,21,0)="^^2^2^2931214^^"
^DD(4.2998,510,21,1,0)="This is the number of messages that were delivered for Message Group 10"
^DD(4.2998,510,21,2,0)="during the last time interval."
^DD(4.2998,510,"DT")="2911126"
^DD(4.2998,601,0)="QUEUED DELIVERIES RESPONSE G1^NJ7,0^^6;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,601,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,601,21,0)="^^2^2^2931214^"
^DD(4.2998,601,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,601,21,2,0)="for Response Group 1 when the queue was checked."
^DD(4.2998,601,"DT")="2911210"
^DD(4.2998,602,0)="QUEUED DELIVERIES RESPONSE G2^NJ7,0^^6;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,602,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,602,21,0)="^^2^2^2931214^"
^DD(4.2998,602,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,602,21,2,0)="for Response Group 2 when the queue was checked."
^DD(4.2998,602,"DT")="2911210"
^DD(4.2998,603,0)="QUEUED DELIVERIES RESPONSE G3^NJ7,0^^6;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,603,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,603,21,0)="^^2^2^2931214^"
^DD(4.2998,603,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,603,21,2,0)="for Response Group 3 when the queue was checked."
^DD(4.2998,603,"DT")="2911210"
^DD(4.2998,604,0)="QUEUED DELIVERIES RESPONSE G4^NJ7,0^^6;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,604,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,604,21,0)="^^2^2^2931214^"
^DD(4.2998,604,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,604,21,2,0)="for Response Group 4 when the queue was checked."
^DD(4.2998,604,"DT")="2911210"
^DD(4.2998,605,0)="QUEUED DELIVERIES RESPONSE G5^NJ7,0^^6;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,605,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,605,21,0)="^^2^2^2931214^"
^DD(4.2998,605,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,605,21,2,0)="for Response Group 5 when the queue was checked."
^DD(4.2998,605,"DT")="2911210"
^DD(4.2998,606,0)="QUEUED DELIVERIES RESPONSE G6^NJ7,0^^6;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,606,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,606,21,0)="^^2^2^2931214^"
^DD(4.2998,606,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,606,21,2,0)="for Response Group 6 when the queue was checked."
^DD(4.2998,606,"DT")="2911210"
^DD(4.2998,607,0)="QUEUED DELIVERIES RESPONSE G7^NJ7,0^^6;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,607,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,607,21,0)="^^2^2^2931214^"
^DD(4.2998,607,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,607,21,2,0)="for Response Group 7 when the queue was checked."
^DD(4.2998,607,"DT")="2911210"
^DD(4.2998,608,0)="QUEUED DELIVERIES RESPONSE G8^NJ7,0^^6;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,608,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,608,21,0)="^^2^2^2931214^"
^DD(4.2998,608,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,608,21,2,0)="for Response Group 8 when the queue was checked."
^DD(4.2998,608,"DT")="2911210"
^DD(4.2998,609,0)="QUEUED DELIVERIES RESPONSE G9^NJ7,0^^6;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,609,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,609,21,0)="^^2^2^2931214^"
^DD(4.2998,609,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,609,21,2,0)="for Response Group 9 when the queue was checked."
^DD(4.2998,609,"DT")="2911210"
^DD(4.2998,610,0)="QUEUED DELIVERIES RESP G 10^NJ7,0^^6;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,610,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,610,21,0)="^^2^2^2931214^"
^DD(4.2998,610,21,1,0)="This is the number of response deliveries that were in the queue"
^DD(4.2998,610,21,2,0)="for Response Group 10 when the queue was checked."
^DD(4.2998,610,"DT")="2911210"
^DD(4.2998,701,0)="QUEUED DELIVERIES MESSAGE G1^NJ7,0^^7;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,701,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,701,21,0)="^^2^2^2931214^"
^DD(4.2998,701,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,701,21,2,0)="for Message Group 1 when the queue was checked."
^DD(4.2998,701,"DT")="2911210"
^DD(4.2998,702,0)="QUEUED DELIVERIES MESSAGE G2^NJ7,0^^7;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,702,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,702,21,0)="^^2^2^2931214^"
^DD(4.2998,702,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,702,21,2,0)="for Message Group 2 when the queue was checked."
^DD(4.2998,702,"DT")="2911210"
^DD(4.2998,703,0)="QUEUED DELIVERIES MESSAGE G3^NJ7,0^^7;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,703,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,703,21,0)="^^2^2^2931214^"
^DD(4.2998,703,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,703,21,2,0)="for Message Group 3 when the queue was checked."
^DD(4.2998,703,"DT")="2911210"
^DD(4.2998,704,0)="QUEUED DELIVERIES MESSAGE G4^NJ7,0^^7;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,704,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,704,21,0)="^^2^2^2931214^"
^DD(4.2998,704,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,704,21,2,0)="for Message Group 4 when the queue was checked."
^DD(4.2998,704,"DT")="2911210"
^DD(4.2998,705,0)="QUEUED DELIVERIES MESSAGE G5^NJ7,0^^7;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,705,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,705,21,0)="^^2^2^2931214^"
^DD(4.2998,705,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,705,21,2,0)="for Message Group 5 when the queue was checked."
^DD(4.2998,705,"DT")="2911210"
^DD(4.2998,706,0)="QUEUED DELIVERIES MESSAGE G6^NJ7,0^^7;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,706,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,706,21,0)="^^2^2^2931214^"
^DD(4.2998,706,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,706,21,2,0)="for Message Group 6 when the queue was checked."
^DD(4.2998,706,"DT")="2911210"
^DD(4.2998,707,0)="QUEUED DELIVERIES MESSAGE G7^NJ7,0^^7;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,707,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,707,21,0)="^^2^2^2931214^"
^DD(4.2998,707,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,707,21,2,0)="for Message Group 7 when the queue was checked."
^DD(4.2998,707,"DT")="2911210"
^DD(4.2998,708,0)="QUEUED DELIVERIES MESSAGE G8^NJ7,0^^7;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,708,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,708,21,0)="^^2^2^2931214^"
^DD(4.2998,708,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,708,21,2,0)="for Message Group 8 when the queue was checked."
^DD(4.2998,708,"DT")="2911210"
^DD(4.2998,709,0)="QUEUED DELIVERIES MESSAGE G9^NJ7,0^^7;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,709,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,709,21,0)="^^2^2^2931214^"
^DD(4.2998,709,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,709,21,2,0)="for Message Group 9 when the queue was checked."
^DD(4.2998,709,"DT")="2911210"
^DD(4.2998,710,0)="QUEUED DELIVERIES MESSAGE G 10^NJ7,0^^7;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2998,710,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.2998,710,21,0)="^^2^2^2931214^"
^DD(4.2998,710,21,1,0)="This is the number of message deliveries that were in the queue"
^DD(4.2998,710,21,2,0)="for Message Group 10 when the queue was checked."
^DD(4.2998,710,"DT")="2911210"
^DD(4.2998,"B","ACTIVE NON-ZSLOT USERS",40)=""
^DD(4.2998,"B","ACTIVE USERS",38)=""
^DD(4.2998,"B","ACTIVE ZSLOT USERS",39)=""
^DD(4.2998,"B","AGE OF OLDEST MESSAGE",101)=""
^DD(4.2998,"B","AGE OF OLDEST RESPONSE",102)=""
^DD(4.2998,"B","DATE/TIME",.01)=""
^DD(4.2998,"B","LINES OUTPUT",15)=""
^DD(4.2998,"B","LOGIN MINUTES - LAST 24 HOURS",42)=""
^DD(4.2998,"B","LOGINS - LAST 24 HOURS",41)=""
^DD(4.2998,"B","MESSAGE AGE GROUP 10",410)=""
^DD(4.2998,"B","MESSAGE AGE GROUP1",401)=""
^DD(4.2998,"B","MESSAGE AGE GROUP2",402)=""
^DD(4.2998,"B","MESSAGE AGE GROUP3",403)=""
^DD(4.2998,"B","MESSAGE AGE GROUP4",404)=""
^DD(4.2998,"B","MESSAGE AGE GROUP5",405)=""
^DD(4.2998,"B","MESSAGE AGE GROUP6",406)=""
^DD(4.2998,"B","MESSAGE AGE GROUP7",407)=""
^DD(4.2998,"B","MESSAGE AGE GROUP8",408)=""
^DD(4.2998,"B","MESSAGE AGE GROUP9",409)=""
^DD(4.2998,"B","MESSAGE ANALYSIS PARAMETERS",104)=""
^DD(4.2998,"B","MESSAGE DELIVERIES IN QUEUE",46)=""
^DD(4.2998,"B","MESSAGE DELIVERIES MADE",44)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP 10",510)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP1",501)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP2",502)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP3",503)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP4",504)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP5",505)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP6",506)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP7",507)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP8",508)=""
^DD(4.2998,"B","MESSAGE NUMBER GROUP9",509)=""
^DD(4.2998,"B","MESSAGE NUMBER LAST ASSIGNED",43)=""
^DD(4.2998,"B","MESSAGES",11)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G 10",710)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G1",701)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G2",702)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G3",703)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G4",704)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G5",705)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G6",706)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G7",707)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G8",708)=""
^DD(4.2998,"B","QUEUED DELIVERIES MESSAGE G9",709)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESP G 10",610)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G1",601)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G2",602)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G3",603)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G4",604)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G5",605)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G6",606)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G7",607)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G8",608)=""
^DD(4.2998,"B","QUEUED DELIVERIES RESPONSE G9",609)=""
^DD(4.2998,"B","RESPONSE AGE GROUP 10",210)=""
^DD(4.2998,"B","RESPONSE AGE GROUP1",201)=""
^DD(4.2998,"B","RESPONSE AGE GROUP2",202)=""
^DD(4.2998,"B","RESPONSE AGE GROUP3",203)=""
^DD(4.2998,"B","RESPONSE AGE GROUP4",204)=""
^DD(4.2998,"B","RESPONSE AGE GROUP5",205)=""
^DD(4.2998,"B","RESPONSE AGE GROUP6",206)=""
^DD(4.2998,"B","RESPONSE AGE GROUP7",207)=""
^DD(4.2998,"B","RESPONSE AGE GROUP8",208)=""
^DD(4.2998,"B","RESPONSE AGE GROUP9",209)=""
^DD(4.2998,"B","RESPONSE ANALYSIS PARAMETERS",103)=""
^DD(4.2998,"B","RESPONSE DELIVERIES IN QUEUE",47)=""
^DD(4.2998,"B","RESPONSE DELIVERIES MADE",45)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP 10",310)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP1",301)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP2",302)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP3",303)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP4",304)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP5",305)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP6",306)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP7",307)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP8",308)=""
^DD(4.2998,"B","RESPONSE NUMBER GROUP9",309)=""
^DD(4.2998,"B","RESPONSE TIME - AVERAGE",22)=""
^DD(4.2998,"B","RESPONSES",12)=""
^DD(4.2998,"B","TOTAL QUEUE LENGTH",1)=""
^DD(4.2998,"GL",0,1,.01)=""
^DD(4.2998,"GL",0,2,1)=""
^DD(4.2998,"GL",0,3,11)=""
^DD(4.2998,"GL",0,4,12)=""
^DD(4.2998,"GL",0,5,15)=""
^DD(4.2998,"GL",0,8,22)=""
^DD(4.2998,"GL",0,9,42)=""
^DD(4.2998,"GL",0,10,41)=""
^DD(4.2998,"GL",0,11,43)=""
^DD(4.2998,"GL",0,12,44)=""
^DD(4.2998,"GL",0,13,45)=""
^DD(4.2998,"GL",0,14,46)=""
^DD(4.2998,"GL",0,15,47)=""
^DD(4.2998,"GL",0,21,38)=""
^DD(4.2998,"GL",0,22,39)=""
^DD(4.2998,"GL",0,23,40)=""
^DD(4.2998,"GL",1,1,101)=""
^DD(4.2998,"GL",1,2,102)=""
^DD(4.2998,"GL",1,3,103)=""
^DD(4.2998,"GL",1,4,104)=""
^DD(4.2998,"GL",2,1,201)=""
^DD(4.2998,"GL",2,2,202)=""
^DD(4.2998,"GL",2,3,203)=""
^DD(4.2998,"GL",2,4,204)=""
^DD(4.2998,"GL",2,5,205)=""
^DD(4.2998,"GL",2,6,206)=""
^DD(4.2998,"GL",2,7,207)=""
^DD(4.2998,"GL",2,8,208)=""
^DD(4.2998,"GL",2,9,209)=""
^DD(4.2998,"GL",2,10,210)=""
^DD(4.2998,"GL",3,1,301)=""
^DD(4.2998,"GL",3,2,302)=""
^DD(4.2998,"GL",3,3,303)=""
^DD(4.2998,"GL",3,4,304)=""
^DD(4.2998,"GL",3,5,305)=""
^DD(4.2998,"GL",3,6,306)=""
^DD(4.2998,"GL",3,7,307)=""
^DD(4.2998,"GL",3,8,308)=""
^DD(4.2998,"GL",3,9,309)=""
^DD(4.2998,"GL",3,10,310)=""
^DD(4.2998,"GL",4,1,401)=""
^DD(4.2998,"GL",4,2,402)=""
^DD(4.2998,"GL",4,3,403)=""
^DD(4.2998,"GL",4,4,404)=""
^DD(4.2998,"GL",4,5,405)=""
^DD(4.2998,"GL",4,6,406)=""
^DD(4.2998,"GL",4,7,407)=""
^DD(4.2998,"GL",4,8,408)=""
^DD(4.2998,"GL",4,9,409)=""
^DD(4.2998,"GL",4,10,410)=""
^DD(4.2998,"GL",5,1,501)=""
^DD(4.2998,"GL",5,2,502)=""
^DD(4.2998,"GL",5,3,503)=""
^DD(4.2998,"GL",5,4,504)=""
^DD(4.2998,"GL",5,5,505)=""
^DD(4.2998,"GL",5,6,506)=""
^DD(4.2998,"GL",5,7,507)=""
^DD(4.2998,"GL",5,8,508)=""
^DD(4.2998,"GL",5,9,509)=""
^DD(4.2998,"GL",5,10,510)=""
^DD(4.2998,"GL",6,1,601)=""
^DD(4.2998,"GL",6,2,602)=""
^DD(4.2998,"GL",6,3,603)=""
^DD(4.2998,"GL",6,4,604)=""
^DD(4.2998,"GL",6,5,605)=""
^DD(4.2998,"GL",6,6,606)=""
^DD(4.2998,"GL",6,7,607)=""
^DD(4.2998,"GL",6,8,608)=""
^DD(4.2998,"GL",6,9,609)=""
^DD(4.2998,"GL",6,10,610)=""
^DD(4.2998,"GL",7,1,701)=""
^DD(4.2998,"GL",7,2,702)=""
^DD(4.2998,"GL",7,3,703)=""
^DD(4.2998,"GL",7,4,704)=""
^DD(4.2998,"GL",7,5,705)=""
^DD(4.2998,"GL",7,6,706)=""
^DD(4.2998,"GL",7,7,707)=""
^DD(4.2998,"GL",7,8,708)=""
^DD(4.2998,"GL",7,9,709)=""
^DD(4.2998,"GL",7,10,710)=""
^DD(4.2998,"IX",.01)=""
^DD(4.2998,"RQ",.01)=""
^DD(4.2998,"RQ",204)=""
^DD(4.2999,0)="FIELD^^101^20"
^DD(4.2999,0,"DDA")="N"
^DD(4.2999,0,"DT")="3020416"
^DD(4.2999,0,"IX","B",4.2999,.01)=""
^DD(4.2999,0,"NM","MESSAGE STATISTICS")=""
^DD(4.2999,0,"VR")="8.0"
^DD(4.2999,0,"VRPK")="MAILMAN"
^DD(4.2999,.01,0)="NAME^RP4.2'X^DIC(4.2,^0;1^S:$D(X) DINUM=X"
^DD(4.2999,.01,.1)="Domain name"
^DD(4.2999,.01,1,0)="^.1"
^DD(4.2999,.01,1,1,0)="4.2999^B"
^DD(4.2999,.01,1,1,1)="S ^XMBS(4.2999,""B"",$E(X,1,30),DA)="""""
^DD(4.2999,.01,1,1,2)="K ^XMBS(4.2999,""B"",$E(X,1,30),DA)"
^DD(4.2999,.01,3)=""
^DD(4.2999,.01,21,0)="^^1^1^3020403^^^^"
^DD(4.2999,.01,21,1,0)="Domain for which network mail transmission information is collected."
^DD(4.2999,.01,"DT")="3020403"
^DD(4.2999,1,0)="PROGRESS REPORT^F^^3;1^K:$L(X)>20!($L(X)<6) X"
^DD(4.2999,1,3)="Answer must be 6-20 characters in length."
^DD(4.2999,1,21,0)="^^4^4^2900530^"
^DD(4.2999,1,21,1,0)="This field contains the time in $H format of the last time a queue dump "
^DD(4.2999,1,21,2,0)="routine reported its progress.  If this field is undefined, or 'old', then "
^DD(4.2999,1,21,3,0)="the queue is assumed to be inactive.  If not, the rest of the fields on this"
^DD(4.2999,1,21,4,0)="node indicate the status of the transmission."
^DD(4.2999,2,0)="MESSAGE IN TRANSIT^P3.9'^XMB(3.9,^3;2^Q"
^DD(4.2999,2,3)="Enter the IEN of the message being transmitted."
^DD(4.2999,2,21,0)="^^1^1^3020403^^"
^DD(4.2999,2,21,1,0)="This points to the 3.9 (Message) file entry of the message being transmitted."
^DD(4.2999,2,"DT")="3020403"
^DD(4.2999,3,0)="LINE LAST TRANSMITTED^NJ9,0^^3;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2999,3,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(4.2999,3,21,0)="^.001^1^1^3010320^^"
^DD(4.2999,3,21,1,0)="This is the line number of the message in transit."
^DD(4.2999,4,0)="ERRORS THIS TRANSMISSION^NJ3,0^^3;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2999,4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(4.2999,4,21,0)="^^2^2^2900530^"
^DD(4.2999,4,21,1,0)="This is the number of ""soft"" errors (non-fatal) that have been encountered "
^DD(4.2999,4,21,2,0)="during the course of the entire current transmission."
^DD(4.2999,5,0)="RATE OF TRANSMISSION^NJ9,0^^3;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2999,5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(4.2999,5,21,0)="^.001^4^4^3010326^^^"
^DD(4.2999,5,21,1,0)="This is the transmission rate in characters per second for the"
^DD(4.2999,5,21,2,0)="current transmission.  It may be for a single line or for a block"
^DD(4.2999,5,21,3,0)="or for the entire message.  It is updated regularly during the"
^DD(4.2999,5,21,4,0)="transmission."
^DD(4.2999,5,"DT")="3010326"
^DD(4.2999,6,0)="NETWORK DEVICE^F^^3;6^K:$L(X)>19!($L(X)<1) X"
^DD(4.2999,6,3)="Answer must be 1-19 characters in length."
^DD(4.2999,6,21,0)="^^2^2^2900530^"
^DD(4.2999,6,21,1,0)="This is the name of the device (system name) that the transmission is "
^DD(4.2999,6,21,2,0)="running on.  It may be incoming or outgoing."
^DD(4.2999,8,0)="DIRECTION^S^S:SENDING;R:RECEIVING;^3;8^Q"
^DD(4.2999,8,3)="Are we sending or receiving?"
^DD(4.2999,8,21,0)="^^2^2^3020416^"
^DD(4.2999,8,21,1,0)="This field is used to report whether, at any given time,"
^DD(4.2999,8,21,2,0)="we are sending messages to, or receiving messages from, the site.  "
^DD(4.2999,8,"DT")="3020416"
^DD(4.2999,25,0)="TRANSMISSION TASK#^NJ8,0^^3;7^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.2999,25,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(4.2999,25,21,0)="^^2^2^2890922^^"
^DD(4.2999,25,21,1,0)="The transmission task# points to the TaskMan task that has been generated"
^DD(4.2999,25,21,2,0)="to handle delivery of messages to the domain in background."
^DD(4.2999,25,"DT")="2890922"
^DD(4.2999,41,0)="XMIT START DATE/TIME^D^^4;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(4.2999,41,3)="This is the date/time that the transmission process started."
^DD(4.2999,41,21,0)="^^2^2^2960529^^"
^DD(4.2999,41,21,1,0)="This field helps MailMan determine, after a fatal error, whether to start the"
^DD(4.2999,41,21,2,0)="transmission process at script 1, try 1, or to start it elsewhere."
^DD(4.2999,41,"DT")="2960529"
^DD(4.2999,42,0)="XMIT FINISH DATE/TIME^D^^4;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(4.2999,42,3)="Date/time transmission process started/ended"
^DD(4.2999,42,21,0)="^^1^1^2960529^"
^DD(4.2999,42,21,1,0)="This may be useful information for debugging purposes."
^DD(4.2999,42,"DT")="2960529"
^DD(4.2999,43,0)="XMIT SCRIPT^NJ3,0^^4;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2999,43,3)="IEN (0-100) of TRANSMISSION SCRIPT (4.21) record within DOMAIN file (4.2)"
^DD(4.2999,43,21,0)="^^1^1^2960529^"
^DD(4.2999,43,21,1,0)="This tells MailMan which script is/was being used."
^DD(4.2999,43,"DT")="2960529"
^DD(4.2999,44,0)="XMIT TRIES^NJ3,0^^4;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2999,44,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(4.2999,44,21,0)="^^1^1^2960529^"
^DD(4.2999,44,21,1,0)="This tells MailMan how many tries have been made with the current script."
^DD(4.2999,44,"DT")="2960529"
^DD(4.2999,45,0)="XMIT LATEST TRY DATE/TIME^D^^4;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(4.2999,45,3)="Enter date/time of latest transmission attempt"
^DD(4.2999,45,21,0)="^^1^1^2960529^"
^DD(4.2999,45,21,1,0)="This may be useful information for debugging purposes."
^DD(4.2999,45,"DT")="2960529"
^DD(4.2999,46,0)="XMIT SCRIPT CYCLE ITERATIONS^NJ3,0^^4;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.2999,46,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(4.2999,46,21,0)="^^2^2^2960809^^"
^DD(4.2999,46,21,1,0)="This is the number of script cycles we have tried.  This field starts off at 0."
^DD(4.2999,46,21,2,0)="After we have tried all the scripts available, we bump up this field by 1."
^DD(4.2999,46,"DT")="2960809"
^DD(4.2999,47,0)="XMIT FIRST SCRIPT^NJ3,0^^4;7^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.2999,47,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(4.2999,47,21,0)="^^2^2^2960809^"
^DD(4.2999,47,21,1,0)="This field notes which script has the highest priority, that is, which script"
^DD(4.2999,47,21,2,0)="was tried first."
^DD(4.2999,47,"DT")="2960809"
^DD(4.2999,48,0)="XMIT IP ADDRESSES TRIED^F^^4;8^K:$L(X)>100!($L(X)<3) X"
^DD(4.2999,48,3)="Answer must be 3-100 characters in length."
^DD(4.2999,48,21,0)="^^6^6^3020321^"
^DD(4.2999,48,21,1,0)="This is a list of IP addresses, separated by commas, which have already"
^DD(4.2999,48,21,2,0)="been used in attempting to connect with the site."
^DD(4.2999,48,21,3,0)=""
^DD(4.2999,48,21,4,0)="We use this list in conjunction with the DNS server, which returns a list"
^DD(4.2999,48,21,5,0)="of valid addresses to try.  Using both lists, we can come up with the"
^DD(4.2999,48,21,6,0)="next IP address to try."
^DD(4.2999,48,"DT")="3020321"
^DD(4.2999,51,0)="XMIT SCRIPT RECORD^F^^5;E1,245^K:$L(X)>245!($L(X)<10) X"
^DD(4.2999,51,3)="Answer must be 10-245 characters in length."
^DD(4.2999,51,21,0)="^^1^1^2960529^"
^DD(4.2999,51,21,1,0)="This is a copy of the zeronode of the latest script used."
^DD(4.2999,51,"DT")="2960529"
^DD(4.2999,60,0)="XMIT AUDIT^4.29992D^^6;0"
^DD(4.2999,60,21,0)="^^2^2^2981001^^^"
^DD(4.2999,60,21,1,0)="This multiple contains an audit of the attempts that have been made during"
^DD(4.2999,60,21,2,0)="this transmission."
^DD(4.2999,101,0)="MESSAGE STATISTICS MONTH^4.29991D^^100;0"
^DD(4.2999,101,21,0)="^^3^3^2931214^^"
^DD(4.2999,101,21,1,0)="Message statistics are summed into this area at the end of each successful"
^DD(4.2999,101,21,2,0)="message received or sent into the appropriate month according to the time"
^DD(4.2999,101,21,3,0)="the message is received."
^DD(4.2999,"B","DIRECTION",8)=""
^DD(4.2999,"B","Domain name",.01)="1"
^DD(4.2999,"B","ERRORS THIS TRANSMISSION",4)=""
^DD(4.2999,"B","LINE LAST TRANSMITTED",3)=""
^DD(4.2999,"B","MESSAGE IN TRANSIT",2)=""
^DD(4.2999,"B","MESSAGE STATISTICS MONTH",101)=""
^DD(4.2999,"B","NAME",.01)=""
^DD(4.2999,"B","NETWORK DEVICE",6)=""
^DD(4.2999,"B","PROGRESS REPORT",1)=""
^DD(4.2999,"B","RATE OF TRANSMISSION",5)=""
^DD(4.2999,"B","TRANSMISSION TASK#",25)=""
^DD(4.2999,"B","XMIT AUDIT",60)=""
^DD(4.2999,"B","XMIT FINISH DATE/TIME",42)=""
^DD(4.2999,"B","XMIT FIRST SCRIPT",47)=""
^DD(4.2999,"B","XMIT IP ADDRESSES TRIED",48)=""
^DD(4.2999,"B","XMIT LATEST TRY DATE/TIME",45)=""
^DD(4.2999,"B","XMIT SCRIPT",43)=""
^DD(4.2999,"B","XMIT SCRIPT CYCLE ITERATIONS",46)=""
^DD(4.2999,"B","XMIT SCRIPT RECORD",51)=""
^DD(4.2999,"B","XMIT START DATE/TIME",41)=""
^DD(4.2999,"B","XMIT TRIES",44)=""
^DD(4.2999,"GL",0,1,.01)=""
^DD(4.2999,"GL",3,1,1)=""
^DD(4.2999,"GL",3,2,2)=""
^DD(4.2999,"GL",3,3,3)=""
^DD(4.2999,"GL",3,4,4)=""
^DD(4.2999,"GL",3,5,5)=""
^DD(4.2999,"GL",3,6,6)=""
^DD(4.2999,"GL",3,7,25)=""
^DD(4.2999,"GL",3,8,8)=""
^DD(4.2999,"GL",4,1,41)=""
^DD(4.2999,"GL",4,2,42)=""
^DD(4.2999,"GL",4,3,43)=""
^DD(4.2999,"GL",4,4,44)=""
^DD(4.2999,"GL",4,5,45)=""
^DD(4.2999,"GL",4,6,46)=""
^DD(4.2999,"GL",4,7,47)=""
^DD(4.2999,"GL",4,8,48)=""
^DD(4.2999,"GL",5,"E1,245",51)=""
^DD(4.2999,"GL",6,0,60)=""
^DD(4.2999,"GL",100,0,101)=""
^DD(4.2999,"IX",.01)=""
^DD(4.2999,"RQ",.01)=""
^DD(4.2999,"SB",4.29991,101)=""
^DD(4.2999,"SB",4.29992,60)=""
^DD(4.29991,0)="MESSAGE STATISTICS MONTH SUB-FIELD^^107^7"
^DD(4.29991,0,"DT")="3020403"
^DD(4.29991,0,"IX","B",4.29991,.01)=""
^DD(4.29991,0,"NM","MESSAGE STATISTICS MONTH")=""
^DD(4.29991,0,"UP")="4.2999"
^DD(4.29991,.01,0)="MESSAGE STATISTICS MONTH^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(4.29991,.01,1,0)="^.1"
^DD(4.29991,.01,1,1,0)="4.29991^B"
^DD(4.29991,.01,1,1,1)="S ^XMBS(4.2999,DA(1),100,""B"",$E(X,1,30),DA)="""""
^DD(4.29991,.01,1,1,2)="K ^XMBS(4.2999,DA(1),100,""B"",$E(X,1,30),DA)"
^DD(4.29991,.01,21,0)="^^3^3^2931214^"
^DD(4.29991,.01,21,1,0)="Message statistics are summed into this area at the end of each successful"
^DD(4.29991,.01,21,2,0)="message received or sent into the appropriate month according to the time"
^DD(4.29991,.01,21,3,0)="the message is received."
^DD(4.29991,102,0)="MESSAGES SENT^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.29991,102,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.29991,102,21,0)="^^3^3^2900530^"
^DD(4.29991,102,21,1,0)="This is the number of messagaes that were transmitted to this domain."
^DD(4.29991,102,21,2,0)="Previously transmitted (but forwarded to new recipients) message and"
^DD(4.29991,102,21,3,0)="responses are included as though they were separate messages."
^DD(4.29991,103,0)="MESSAGES RECEIVED^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.29991,103,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(4.29991,103,21,0)="^^3^3^3020403^^"
^DD(4.29991,103,21,1,0)="Messages received are included here even if they are received only to be"
^DD(4.29991,103,21,2,0)="forwarded on to another site.  Also included are responses and messages"
^DD(4.29991,103,21,3,0)="received previously (as long as they have additional recipients)."
^DD(4.29991,103,"DT")="3020403"
^DD(4.29991,104,0)="CHARACTERS SENT^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(4.29991,104,3)="Type a number between 0 and 999999999, 0 Decimal Digits"
^DD(4.29991,104,21,0)="^^1^1^2900530^^"
^DD(4.29991,104,21,1,0)="This is a count of the number of characters in the messages sent."
^DD(4.29991,104,"DT")="3020403"
^DD(4.29991,105,0)="CHARACTERS RECEIVED^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(4.29991,105,3)="Type a number between 0 and 999999999, 0 Decimal Digits"
^DD(4.29991,105,21,0)="^^1^1^2900530^"
^DD(4.29991,105,21,1,0)="This is a count of the number of characters in the messages received."
^DD(4.29991,105,"DT")="3020403"
^DD(4.29991,106,0)="LINES SENT^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(4.29991,106,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(4.29991,106,21,0)="^^1^1^2900530^"
^DD(4.29991,106,21,1,0)="This is a count of the number of lines in the message sent."
^DD(4.29991,106,"DT")="3020403"
^DD(4.29991,107,0)="LINES RECEIVED^NJ8,0^^0;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(4.29991,107,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(4.29991,107,21,0)="^^1^1^2900605^^^"
^DD(4.29991,107,21,1,0)="This is a count of the number of lines in the messages received."
^DD(4.29991,107,"DT")="3020403"
^DD(4.29991,"B","CHARACTERS RECEIVED",105)=""
^DD(4.29991,"B","CHARACTERS SENT",104)=""
^DD(4.29991,"B","LINES RECEIVED",107)=""
^DD(4.29991,"B","LINES SENT",106)=""
^DD(4.29991,"B","MESSAGE STATISTICS MONTH",.01)=""
^DD(4.29991,"B","MESSAGES RECEIVED",103)=""
^DD(4.29991,"B","MESSAGES SENT",102)=""
^DD(4.29991,"GL",0,1,.01)=""
^DD(4.29991,"GL",0,2,102)=""
^DD(4.29991,"GL",0,3,103)=""
^DD(4.29991,"GL",0,4,104)=""
^DD(4.29991,"GL",0,5,105)=""
^DD(4.29991,"GL",0,6,106)=""
^DD(4.29991,"GL",0,7,107)=""
^DD(4.29991,"IX",.01)=""
^DD(4.29992,0)="XMIT AUDIT SUB-FIELD^^3^4"
^DD(4.29992,0,"DT")="3020321"
^DD(4.29992,0,"NM","XMIT AUDIT")=""
^DD(4.29992,0,"UP")="4.2999"
^DD(4.29992,.01,0)="XMIT AUDIT DATE/TIME^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(4.29992,.01,1,0)="^.1^^0"
^DD(4.29992,.01,21,0)="^^1^1^2960614^^"
^DD(4.29992,.01,21,1,0)="This is the date/time of the start of this attempt."
^DD(4.29992,.01,"DT")="2960614"
^DD(4.29992,1,0)="XMIT AUDIT SCRIPT NAME^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(4.29992,1,3)="Answer must be 1-10 characters in length."
^DD(4.29992,1,21,0)="^^1^1^2981001^^"
^DD(4.29992,1,21,1,0)="This is the name of the script being used for this attempt."
^DD(4.29992,1,"DT")="2960614"
^DD(4.29992,2,0)="XMIT AUDIT ERROR^F^^0;3^K:$L(X)>200!($L(X)<1) X"
^DD(4.29992,2,3)="Answer must be 1-200 characters in length."
^DD(4.29992,2,21,0)="^.001^2^2^3020321^^"
^DD(4.29992,2,21,1,0)="If the transmission fails or is interrupted for some reason, the reason"
^DD(4.29992,2,21,2,0)="will be placed here."
^DD(4.29992,2,"DT")="3020321"
^DD(4.29992,3,0)="XMIT AUDIT IP ADDRESS^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(4.29992,3,3)="Answer must be 1-20 characters in length."
^DD(4.29992,3,21,0)="^^1^1^3020321^"
^DD(4.29992,3,21,1,0)="This is the IP address used for this attempt."
^DD(4.29992,3,"DT")="3020321"
^DD(4.29992,"B","XMIT AUDIT DATE/TIME",.01)=""
^DD(4.29992,"B","XMIT AUDIT ERROR",2)=""
^DD(4.29992,"B","XMIT AUDIT IP ADDRESS",3)=""
^DD(4.29992,"B","XMIT AUDIT SCRIPT NAME",1)=""
^DD(4.29992,"GL",0,1,.01)=""
^DD(4.29992,"GL",0,2,1)=""
^DD(4.29992,"GL",0,3,2)=""
^DD(4.29992,"GL",0,4,3)=""
^DD(4.3,0)="FIELD^^242^68"
^DD(4.3,0,"DDA")="Y"
^DD(4.3,0,"DT")="3020828"
^DD(4.3,0,"IX","AC",4.3,1)=""
^DD(4.3,0,"IX","AD",4.3,.01)=""
^DD(4.3,0,"IX","AE",4.3,3)=""
^DD(4.3,0,"IX","AF",4.3,.01)=""
^DD(4.3,0,"IX","AG",4.3,1)=""
^DD(4.3,0,"IX","B",4.3,.01)=""
^DD(4.3,0,"NM","MAILMAN SITE PARAMETERS")=""
^DD(4.3,0,"VR")="8.0"
^DD(4.3,0,"VRPK")="MAILMAN"
^DD(4.3,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.3,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 1"
^DD(4.3,.001,21,0)="1^^1^1^2920505^^"
^DD(4.3,.001,21,1,0)="Used to have VA fileman only have one entry in the file."
^DD(4.3,.001,"DT")="2851217"
^DD(4.3,.01,0)="DOMAIN NAME^RP4.2'X^DIC(4.2,^0;1^S DINUM=1"
^DD(4.3,.01,1,0)="^.1"
^DD(4.3,.01,1,1,0)="4.3^B"
^DD(4.3,.01,1,1,1)="S ^XMB(1,""B"",$E(X,1,30),DA)="""""
^DD(4.3,.01,1,1,2)="K ^XMB(1,""B"",$E(X,1,30),DA)"
^DD(4.3,.01,1,2,0)="4.3^AD^MUMPS"
^DD(4.3,.01,1,2,1)="S ^XMB(""NUM"")=X"
^DD(4.3,.01,1,2,2)="K ^XMB(""NUM"")"
^DD(4.3,.01,1,2,"%D",0)="^^2^2^2931213^^"
^DD(4.3,.01,1,2,"%D",1,0)="This cross reference is used to record the pointer to the domain"
^DD(4.3,.01,1,2,"%D",2,0)="that is the name of the local site."
^DD(4.3,.01,1,3,0)="4.3^AF^MUMPS"
^DD(4.3,.01,1,3,1)="I $D(^DIC(4.2,+X,0)) S (^XMB(""NAME""),^XMB(""NETNAME""))=$P(^DIC(4.2,+X,0),""^"")"
^DD(4.3,.01,1,3,2)="K ^XMB(""NAME""),^XMB(""NETNAME"")"
^DD(4.3,.01,1,3,"%D",0)="^^2^2^2931212^"
^DD(4.3,.01,1,3,"%D",1,0)="This cross reference is used to record the human readable name of the"
^DD(4.3,.01,1,3,"%D",2,0)="local site's identity."
^DD(4.3,.01,1,3,"DT")="2900319"
^DD(4.3,.01,3)=""
^DD(4.3,.01,21,0)="^^4^4^2980427^^"
^DD(4.3,.01,21,1,0)="This is the name of this installation of MailMan, as it is known"
^DD(4.3,.01,21,2,0)="to the rest of the network. It must appear in the DOMAIN file."
^DD(4.3,.01,21,3,0)="This name applies to all CPUs or Volume sets which access this ^XMB"
^DD(4.3,.01,21,4,0)="global."
^DD(4.3,.01,"DEL",.01,0)="I 1"
^DD(4.3,.01,"DT")="2900319"
^DD(4.3,1,0)="TIME ZONE^RP4.4'^XMB(4.4,^0;2^Q"
^DD(4.3,1,1,0)="^.1"
^DD(4.3,1,1,1,0)="4.3^AC^MUMPS"
^DD(4.3,1,1,1,1)="S ^XMB(""TIMEZONE"")=$P(^XMB(4.4,X,0),U)"
^DD(4.3,1,1,1,2)="K ^XMB(""TIMEZONE"")"
^DD(4.3,1,1,1,"%D",0)="^^2^2^2980511^^"
^DD(4.3,1,1,1,"%D",1,0)="This cross reference is used to record the name of the timezone"
^DD(4.3,1,1,1,"%D",2,0)="that is the correct time zone for the local site."
^DD(4.3,1,1,2,0)="4.3^AG^MUMPS"
^DD(4.3,1,1,2,1)="S ^XMB(""TIMEDIFF"")=$$TIMEDIFF^XMXUTIL1($P(^XMB(4.4,X,0),U,3))"
^DD(4.3,1,1,2,2)="K ^XMB(""TIMEDIFF"")"
^DD(4.3,1,1,2,"%D",0)="^^5^5^2980511^^^^"
^DD(4.3,1,1,2,"%D",1,0)="This cross reference records the time difference, in standard internet format,"
^DD(4.3,1,1,2,"%D",2,0)="between this time zone and GMT."
^DD(4.3,1,1,2,"%D",3,0)=""
^DD(4.3,1,1,2,"%D",4,0)="For example, +0800 means 8 hours ahead of GMT."
^DD(4.3,1,1,2,"%D",5,0)="             -0130 means 1 1/2 hours behind GMT."
^DD(4.3,1,1,2,"DT")="2980511"
^DD(4.3,1,3)="Enter the time zone of this domain."
^DD(4.3,1,21,0)="^^6^6^2980219^^^^"
^DD(4.3,1,21,1,0)="This field defines the timezone in which this domain is located."
^DD(4.3,1,21,2,0)="Note that Standard and Daylight savings times are considered two"
^DD(4.3,1,21,3,0)="different timezones, requiring that the timezone be changed with"
^DD(4.3,1,21,4,0)="the changing of daylight savings.  The timezones are located in the"
^DD(4.3,1,21,5,0)="MailMan timezone file.  The values of the cross references on this"
^DD(4.3,1,21,6,0)="field are appended to message dates as they are sent over the network."
^DD(4.3,1,"DT")="2980511"
^DD(4.3,2,0)="SUBORDINATE DOMAIN^4.31P^^1;0"
^DD(4.3,2,21,0)="^^3^3^2980122^^^"
^DD(4.3,2,21,1,0)="This field is not currently used."
^DD(4.3,2,21,2,0)="This field describes the domains which are subordinate to this one;"
^DD(4.3,2,21,3,0)="that is, those domains which consider this domain a parent."
^DD(4.3,3,0)="PARENT^*P4.2'^DIC(4.2,^0;3^S DIC(""S"")=""I +Y'=^XMB(""""NUM"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(4.3,3,1,0)="^.1"
^DD(4.3,3,1,1,0)="4.3^AE^MUMPS"
^DD(4.3,3,1,1,1)="S ^XMB(""PARENT"")=X"
^DD(4.3,3,1,1,2)="K ^XMB(""PARENT"")"
^DD(4.3,3,1,1,"%D",0)="^.101^2^2^3010124^^"
^DD(4.3,3,1,1,"%D",1,0)="This cross reference is used to record the IEN of the domain that"
^DD(4.3,3,1,1,"%D",2,0)="is the Parent of the local site."
^DD(4.3,3,12)="Parent may not be the site itself."
^DD(4.3,3,12.1)="S DIC(""S"")=""I +Y'=^XMB(""""NUM"""")"""
^DD(4.3,3,21,0)="^.001^15^15^3010124^^^^"
^DD(4.3,3,21,1,0)="This field holds the name of the domain which is considered the"
^DD(4.3,3,21,2,0)="parent of this domain.  The parent domain's subordinate domain"
^DD(4.3,3,21,3,0)="list will contain this domain, also."
^DD(4.3,3,21,4,0)=" "
^DD(4.3,3,21,5,0)="Parent domains are used for routing messages when a subordinate"
^DD(4.3,3,21,6,0)="domain does not know a direct path to the selected domain."
^DD(4.3,3,21,7,0)=" "
^DD(4.3,3,21,8,0)="Domains are connected to their parents as follows:"
^DD(4.3,3,21,9,0)=" "
^DD(4.3,3,21,10,0)="1.  The local domain is named."
^DD(4.3,3,21,11,0)="2.  The parent is named at the local site."
^DD(4.3,3,21,12,0)="3.  A script from the parent to the subordinate domain is created."
^DD(4.3,3,21,13,0)="4.  A christening operation is performed by the parent domain."
^DD(4.3,3,21,14,0)="    When the subordinate domain is christened, the domain is connected"
^DD(4.3,3,21,15,0)="    to the network.  (Mail may be addressed to remote domains)"
^DD(4.3,3,"DT")="3010124"
^DD(4.3,4,0)="DATE CHRISTENED^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(4.3,4,3)="Date on which this domain was christened by its parent."
^DD(4.3,4,21,0)="^^2^2^2851003^"
^DD(4.3,4,21,1,0)="This holds the date on which this local domain was christened by its"
^DD(4.3,4,21,2,0)="parent domain."
^DD(4.3,4.301,0)="NO-PURGE DAYS BUFFER^NJ1,0^^.14;1^K:+X'=X!(X>5)!(X<2)!(X?.E1"".""1N.N) X"
^DD(4.3,4.301,3)="Type a Number between 2 and 5, 0 Decimal Digits"
^DD(4.3,4.301,21,0)="^^9^9^2980918^^^^"
^DD(4.3,4.301,21,1,0)="This field is used by the unreferenced messages purge to avoid purging"
^DD(4.3,4.301,21,2,0)="the last few days worth of messages in the message file.  It should be"
^DD(4.3,4.301,21,3,0)="a number sufficiently high so as to avoid purging messages which are"
^DD(4.3,4.301,21,4,0)="in danger of being purged before they can be delivered.  This includes"
^DD(4.3,4.301,21,5,0)="incoming network mail messages.  "
^DD(4.3,4.301,21,6,0)="The minimum (and default if this field is null) is two days."
^DD(4.3,4.301,21,7,0)=""
^DD(4.3,4.301,21,8,0)="For example, if this field is 2, then messages up to and including those"
^DD(4.3,4.301,21,9,0)="whose local create date is 2 days ago are subject to possible purge."
^DD(4.3,4.301,"DT")="2980918"
^DD(4.3,4.302,0)="PURGE AUDIT^4.302D^^.1;0"
^DD(4.3,4.302,21,0)="^^17^17^2980122^^^^"
^DD(4.3,4.302,21,1,0)="This multiple contains a history of Message file purges.  Generally,"
^DD(4.3,4.302,21,2,0)="a record of the last 20 purges is kept."
^DD(4.3,4.302,21,3,0)=""
^DD(4.3,4.302,21,4,0)="MailMan has two ways to purge messages.  The option XMAUTOPURGE is generally"
^DD(4.3,4.302,21,5,0)="run after XMCLEAN (the waste basket cleaner) and will purge any messages"
^DD(4.3,4.302,21,6,0)="that are not pointed at by any recipients nor the sender.  The option"
^DD(4.3,4.302,21,7,0)="XMPURGE-BY-DATE can also be run to purge messages that have an origination"
^DD(4.3,4.302,21,8,0)="date older than one used to initiate the process.  It is recommended that "
^DD(4.3,4.302,21,9,0)="before XMPURGE-BY-DATE is used, users be notified of the proposed purge "
^DD(4.3,4.302,21,10,0)="date so they have a chance to preserve important texts.  These are the only "
^DD(4.3,4.302,21,11,0)="options that actually kill off entries in the message file.  The XMPURGE "
^DD(4.3,4.302,21,12,0)="option does the same thing as XMAUTOPURGE, but is meant to be run in "
^DD(4.3,4.302,21,13,0)="foreground and displays data as it proceeds."
^DD(4.3,4.302,21,14,0)=" "
^DD(4.3,4.302,21,15,0)="Unlike XMPURGE and XMAUTOPURGE, which only remove messages that no one holds "
^DD(4.3,4.302,21,16,0)="in their mail baskets any more, XMPURGE-BY-DATE will remove messages from"
^DD(4.3,4.302,21,17,0)="users' mail baskets and then delete them from the message file (3.9)."
^DD(4.3,4.302,"DT")="2980123"
^DD(4.3,4.303,0)="AUTOMATIC INTEGRITY CHECK^S^0:YES;1:NO;^.12;1^Q"
^DD(4.3,4.303,3)="Enter 'Y' if you wish to run the integrity checker, 'N' if you do not wish to run the Integrity Checker (before the XMAUTOPURGE)."
^DD(4.3,4.303,21,0)="^^9^9^2910521^"
^DD(4.3,4.303,21,1,0)="XMAUTOPURGE is generally run at least once a week at most sites.  It is"
^DD(4.3,4.303,21,2,0)="the process that purges messages that are no longer referenced.  Before it"
^DD(4.3,4.303,21,3,0)="is run, XMCLEAN is generally run.  XMCLEAN removes messages from WASTE"
^DD(4.3,4.303,21,4,0)="baskets so that they will be unreferenced when XMAUTOPURGE comes along."
^DD(4.3,4.303,21,5,0)="XMAUTOPURGE kicks off the part of XMUTCHECKFILE that checks the Mail Box"
^DD(4.3,4.303,21,6,0)="file.  XMUTCHECKFILE also resets and cleans up the  x-refs of this file."
^DD(4.3,4.303,21,7,0)="If your system has had fairly clean runs of XMUTCHECKFILE or if the entire"
^DD(4.3,4.303,21,8,0)="XMUTCHECKFILE process is run regularly as a separate process, it is not"
^DD(4.3,4.303,21,9,0)="necessary for XMAUTOPURGE to run any part of it again."
^DD(4.3,4.303,23,0)="^^5^5^2910521^"
^DD(4.3,4.303,23,1,0)="If this field is set to nill or other value that can be evaluated to zero"
^DD(4.3,4.303,23,2,0)="(+field=zero), then XMUTCHECKFIL is called to check MailBoxes and recreate"
^DD(4.3,4.303,23,3,0)="the X-ref that the XMAUTOPURGE uses to verify that a message is no longer"
^DD(4.3,4.303,23,4,0)="referenced by anyone.  If it is set to 1, then this call to XMUTCHECKFIL"
^DD(4.3,4.303,23,5,0)="is skipped."
^DD(4.3,4.303,"DT")="2910520"
^DD(4.3,4.304,0)="WEEKDAY DAYS TO PURGE^NJ3,0^^NOTOPURGE;1^K:+X'=X!(X>999)!(X<30)!(X?.E1"".""1N.N) X"
^DD(4.3,4.304,3)="Type a Number between 30 and 999, 0 Decimal Digits"
^DD(4.3,4.304,21,0)="^^13^13^2980922^^^^"
^DD(4.3,4.304,21,1,0)="When the unreferenced messages purge runs, it purges messages from"
^DD(4.3,4.304,21,2,0)="the message file, ^XMB(3.9, which are no longer referenced, meaning"
^DD(4.3,4.304,21,3,0)="they aren't in anyone's mailbox."
^DD(4.3,4.304,21,4,0)=""
^DD(4.3,4.304,21,5,0)="If this field is null, OR if the purge is run on Saturday, the purge"
^DD(4.3,4.304,21,6,0)="starts at the beginning of the message file. "
^DD(4.3,4.304,21,7,0)=""
^DD(4.3,4.304,21,8,0)="If this field has a value, AND the purge is run on Sunday through"
^DD(4.3,4.304,21,9,0)="Friday, the purge starts at the message create date calculated by"
^DD(4.3,4.304,21,10,0)="subtracting the number of days from today's date."
^DD(4.3,4.304,21,11,0)=""
^DD(4.3,4.304,21,12,0)="So, if this number is 45, the unreferenced message purge would start"
^DD(4.3,4.304,21,13,0)="with messages created 45 days ago, and work from there forward."
^DD(4.3,4.304,"DT")="2980917"
^DD(4.3,5,0)="SHOW INSTITUTION IN MAILMAN?^S^y:YES;n:NO;^0;5^Q"
^DD(4.3,5,3)="If yes, then the user's institution code will be displayed."
^DD(4.3,5,21,0)="^^3^3^2851003^"
^DD(4.3,5,21,1,0)="This field controls whether mailman will show the user's organization"
^DD(4.3,5,21,2,0)="after his name.  This is useful when MailMan has many remote users,"
^DD(4.3,5,21,3,0)="who may not know each other's location or affiliation."
^DD(4.3,5.1,0)="MESSAGE ACTION DEFAULT^S^I:IGNORE;D:DELETE;^0;15^Q"
^DD(4.3,5.1,21,0)="0^^2^2^2980122^2900801^2900801^"
^DD(4.3,5.1,21,1,0)="This is the default for the user prompt, ""Message Action"".  The user may"
^DD(4.3,5.1,21,2,0)="over-ride this default by selecting his own under ""Edit User Options""."
^DD(4.3,5.1,"DT")="2901206"
^DD(4.3,5.11,0)="COPY LIMIT - RECIPIENTS^NJ5,0^^.11;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.3,5.11,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(4.3,5.11,21,0)="^^4^4^2980122^^^^"
^DD(4.3,5.11,21,1,0)="This field enables site management to control whether a message with more"
^DD(4.3,5.11,21,2,0)="than a certain number of recipients may be copied.  A user may not copy a"
^DD(4.3,5.11,21,3,0)="message which has more than this number of recipients.  If this field is"
^DD(4.3,5.11,21,4,0)="null, then the limit is 2999."
^DD(4.3,5.11,"DT")="2980123"
^DD(4.3,5.12,0)="COPY LIMIT - RESPONSES^NJ4,0^^.11;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.3,5.12,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(4.3,5.12,21,0)="^^3^3^2980122^^^^"
^DD(4.3,5.12,21,1,0)="This field enables site management to limit the number of responses to"
^DD(4.3,5.12,21,2,0)="a message that may be copied.  A user may not copy more than this number"
^DD(4.3,5.12,21,3,0)="of responses to a message.  If this field is null, then the limit is 99."
^DD(4.3,5.12,"DT")="2980123"
^DD(4.3,5.13,0)="COPY LIMIT - LINES^NJ7,0^^.11;3^K:+X'=X!(X>9999999)!(X<99)!(X?.E1"".""1N.N) X"
^DD(4.3,5.13,3)="Type a Number between 99 and 9999999, 0 Decimal Digits"
^DD(4.3,5.13,21,0)="^^3^3^2980122^^"
^DD(4.3,5.13,21,1,0)="This field enables site management to limit the number of lines that may be"
^DD(4.3,5.13,21,2,0)="copied from a message and its responses.  A user may not copy more than this"
^DD(4.3,5.13,21,3,0)="number of message lines.  If this field is null, then the limit is 3999."
^DD(4.3,5.13,"DT")="2980123"
^DD(4.3,7,0)="REQUIRE INTRODUCTIONS?^S^y:YES;n:NO;^0;6^Q"
^DD(4.3,7,3)="Are users required to enter introductory text about themselves to the MailMan system?"
^DD(4.3,7,21,0)="^^4^4^2980730^^"
^DD(4.3,7,21,1,0)="If this is turned on, then users must introduce themselves when they"
^DD(4.3,7,21,2,0)="first log in to MailMan.  This forces users to describe themselves,"
^DD(4.3,7,21,3,0)="and enter their phone numbers and addresses for others to query with"
^DD(4.3,7,21,4,0)="the HELP options in MailMan."
^DD(4.3,7,"DT")="2980123"
^DD(4.3,7.01,0)="FWD TEST MESSAGE TO POSTMASTER^S^1:NO;0:YES;^FORWARD;1^Q"
^DD(4.3,7.01,3)="Enter NO (or 1) to not send test messages about forwarding addresses to the Postmaster."
^DD(4.3,7.01,21,0)="^^4^4^2931214^"
^DD(4.3,7.01,21,1,0)="Messages are sent automatically to a user's forwarding address if he"
^DD(4.3,7.01,21,2,0)="changes it.  If you want these messages to be sent to the Postmaster,"
^DD(4.3,7.01,21,3,0)="also, so that he is aware that the forwarding addresses are proper"
^DD(4.3,7.01,21,4,0)="mark this field with ""YES""."
^DD(4.3,7.01,"DT")="2921228"
^DD(4.3,7.2,0)="BIG GROUP SIZE^NJ5,0^^0;7^K:+X'=X!(X>10000)!(X<50)!(X?.E1"".""1N.N) X"
^DD(4.3,7.2,3)="Type a Number between 50 and 10000, 0 Decimal Digits"
^DD(4.3,7.2,21,0)="^^25^25^3020424^^^^"
^DD(4.3,7.2,21,1,0)="During message addressing, when a user addresses a message to a mail group"
^DD(4.3,7.2,21,2,0)="with a lot of members, it can seem to take forever to process the group."
^DD(4.3,7.2,21,3,0)="(Dots of death!)  This field, BIG GROUP SIZE, can help."
^DD(4.3,7.2,21,4,0)=""
^DD(4.3,7.2,21,5,0)="IF you enter a number in this field, AND"
^DD(4.3,7.2,21,6,0)="    - If the group contains member groups"
^DD(4.3,7.2,21,7,0)=" or - If the group contains distribution lists"
^DD(4.3,7.2,21,8,0)=" or - If the number of local members plus the number of remote members"
^DD(4.3,7.2,21,9,0)="exceeds or equals the BIG GROUP SIZE boundary"
^DD(4.3,7.2,21,10,0)=""
^DD(4.3,7.2,21,11,0)="THEN the user is asked whether s/he wants to queue the group for later"
^DD(4.3,7.2,21,12,0)="delivery, and avoid waiting while the group is processed."
^DD(4.3,7.2,21,13,0)=""
^DD(4.3,7.2,21,14,0)="The user is also warned that if s/he chooses to queue delivery, then"
^DD(4.3,7.2,21,15,0)="recipients may not be 'minus'ed from the group."
^DD(4.3,7.2,21,16,0)=""
^DD(4.3,7.2,21,17,0)="If the user chooses not to queue delivery, then processing proceeds in the"
^DD(4.3,7.2,21,18,0)="foreground, as usual."
^DD(4.3,7.2,21,19,0)=""
^DD(4.3,7.2,21,20,0)="If the user chooses to queue delivery, then s/he is asked when the delivery"
^DD(4.3,7.2,21,21,0)="should take place.  The group is then queued for processing and delivery"
^DD(4.3,7.2,21,22,0)="at the specified time (by the same background job which 'news' messages)."
^DD(4.3,7.2,21,23,0)=""
^DD(4.3,7.2,21,24,0)="There is no default.  (If BIG GROUP SIZE equates to zero, then groups are"
^DD(4.3,7.2,21,25,0)="processed in the foreground as usual.)"
^DD(4.3,7.2,"DT")="3020424"
^DD(4.3,7.3,0)="SHOW DUZ WHEN ADDRESS MESSAGE^S^0:NO;1:YES;^0;8^Q"
^DD(4.3,7.3,21,0)="^^13^13^3020424^^"
^DD(4.3,7.3,21,1,0)="When someone addresses a message to a local user, should the DUZ of the"
^DD(4.3,7.3,21,2,0)="local user be displayed?"
^DD(4.3,7.3,21,3,0)=""
^DD(4.3,7.3,21,4,0)="(If this field is null, the default answer is ""no"".)"
^DD(4.3,7.3,21,5,0)=""
^DD(4.3,7.3,21,6,0)="Disadvantages:"
^DD(4.3,7.3,21,7,0)=" - Your site's DUZs may be SSNs.  They should not be displayed."
^DD(4.3,7.3,21,8,0)=" - Users may be confused by the display."
^DD(4.3,7.3,21,9,0)=""
^DD(4.3,7.3,21,10,0)="Advantages:"
^DD(4.3,7.3,21,11,0)=" - A DUZ is unique, whereas some users may share the same or very similar"
^DD(4.3,7.3,21,12,0)="name.  If a user knows the addressee's DUZ, the DUZ may be used to"
^DD(4.3,7.3,21,13,0)="address a message, instead of the name."
^DD(4.3,7.3,"DT")="3020424"
^DD(4.3,7.4,0)="SHOW ADDRESS ON USER LOOKUP^S^0:NO;1:YES;^0;10^Q"
^DD(4.3,7.4,3)="Should the user's address be displayed in a MailMan lookup?"
^DD(4.3,7.4,21,0)="^^8^8^2990511^"
^DD(4.3,7.4,21,1,0)="Option XMHELPUSER displays user information.  Among the items displayed"
^DD(4.3,7.4,21,2,0)="are the address fields (.111 through .116) from the NEW PERSON file."
^DD(4.3,7.4,21,3,0)=""
^DD(4.3,7.4,21,4,0)="Some sites have home address information in these fields, which should not"
^DD(4.3,7.4,21,5,0)="be displayed."
^DD(4.3,7.4,21,6,0)=""
^DD(4.3,7.4,21,7,0)="If the address fields should be displayed, answer YES; otherwise, answer"
^DD(4.3,7.4,21,8,0)="NO.  If this field is null, the default answer is NO."
^DD(4.3,7.4,"DT")="2990511"
^DD(4.3,7.5,0)="CPU (UCI,VOL) FOR FILER TO RUN^F^^0;12^K:$L(X)>30!($L(X)<3) X"
^DD(4.3,7.5,3)="Answer must be 3-30 characters in length."
^DD(4.3,7.5,10)=""
^DD(4.3,7.5,21,0)="^^3^3^2980122^^^^"
^DD(4.3,7.5,21,1,0)="Enter the UCI,VOL of where you want the background filer routines to run."
^DD(4.3,7.5,21,2,0)="It is recommended that the XMB global also reside in this location."
^DD(4.3,7.5,21,3,0)="If you are unsure what to enter, leave this field blank."
^DD(4.3,7.5,"DT")="2980122"
^DD(4.3,7.6,0)="FTP ADDRESS FOR BLOB <GET>^F^^FTP-GET;1^K:$L(X)>15!($L(X)<7)!'(X?1.N1"".""1.N1"".""1.N1"".""1.N) X"
^DD(4.3,7.6,3)="Answer must be 7-15 characters in length."
^DD(4.3,7.6,21,0)="^^5^5^2931214^"
^DD(4.3,7.6,21,1,0)="If your images are on a network that is available via FTP from your"
^DD(4.3,7.6,21,2,0)="main node and you have no other way of accessing those message to get"
^DD(4.3,7.6,21,3,0)="them onto you main node so that you can FTP them to other sites, put"
^DD(4.3,7.6,21,4,0)="the IP address of the machine that you will GET your images from"
^DD(4.3,7.6,21,5,0)="into this field."
^DD(4.3,7.6,"DT")="2920331"
^DD(4.3,7.7,0)="FTP RECEIVE DIRECTORY^F^^DISK/VOL;1^K:$L(X)>90!($L(X)<3) X"
^DD(4.3,7.7,3)="Answer must be 3-90 characters in length."
^DD(4.3,7.7,21,0)="^^7^7^2930521^^^^"
^DD(4.3,7.7,21,1,0)="This field is used to store the path for BLOBs to be received in."
^DD(4.3,7.7,21,2,0)="It is communicated to the transmitter of messages containing BLOBS so"
^DD(4.3,7.7,21,3,0)="that they can be FTP'd to the correct directory once the disk has"
^DD(4.3,7.7,21,4,0)="been designated with field 7.711."
^DD(4.3,7.7,21,5,0)=" "
^DD(4.3,7.7,21,6,0)="If the receiving system is a DOS system the disk portion of the path "
^DD(4.3,7.7,21,7,0)="is in the field 'FTP RECEIVE DISK'."
^DD(4.3,7.7,23,0)="^^1^1^2930521^^^^"
^DD(4.3,7.7,23,1,0)=" "
^DD(4.3,7.7,"DT")="2940225"
^DD(4.3,7.71,0)="FTP RECEIVE NETWORK LOCATION^F^^FTPNETLOC;1^K:$L(X)>30!($L(X)<3) X"
^DD(4.3,7.71,3)="Answer must be 3-30 characters in length."
^DD(4.3,7.71,21,0)="^^4^4^2931017^^"
^DD(4.3,7.71,21,1,0)="This field should be the name of an entry in your 2005.2 file (Network"
^DD(4.3,7.71,21,2,0)="Location).  It maps where incoming BLOBs will be placed and is the"
^DD(4.3,7.71,21,3,0)="logical equivalent of field 7.7."
^DD(4.3,7.71,21,4,0)=" "
^DD(4.3,7.71,23,0)="^^2^2^2931017^^"
^DD(4.3,7.71,23,1,0)=" "
^DD(4.3,7.71,23,2,0)=" "
^DD(4.3,7.71,"DT")="2930426"
^DD(4.3,7.711,0)="FTP RECEIVE DISK^F^^FTPRCVDISK;1^K:$L(X)>30!($L(X)<2) X"
^DD(4.3,7.711,3)="Answer must be 2-30 characters in length."
^DD(4.3,7.711,21,0)="^^2^2^2930521^^"
^DD(4.3,7.711,21,1,0)="This field contains the name of the physical disk that the FTP Receive"
^DD(4.3,7.711,21,2,0)="Network Location is on if the receiving system is a DOS system."
^DD(4.3,7.711,"DT")="2930426"
^DD(4.3,7.72,0)="FTP ADDRESS FOR BLOB RECEIVE^F^^FTP-RCV;1^K:$L(X)>30!($L(X)<7)!'(X?1.N1"".""1.N1"".""1.N1"".""1.N) X"
^DD(4.3,7.72,3)="Answer must be 7-30 characters in length."
^DD(4.3,7.72,21,0)="^^2^2^2931214^"
^DD(4.3,7.72,21,1,0)="This is the IP address that you will advertise to other sites that wish"
^DD(4.3,7.72,21,2,0)="to send you images that attach to multimedia messages."
^DD(4.3,7.72,"DT")="2930308"
^DD(4.3,7.73,0)="FTP USERNAME^F^^FTPUSER;1^K:$L(X)>30!($L(X)<3) X"
^DD(4.3,7.73,3)="Answer must be 3-30 characters in length."
^DD(4.3,7.73,21,0)="^^2^2^2930423^"
^DD(4.3,7.73,21,1,0)="This is the VMS username that the sender will be told to use when he"
^DD(4.3,7.73,21,2,0)="FTP's BLOBs to this domain."
^DD(4.3,7.73,"DT")="2930423"
^DD(4.3,7.731,0)="FTP PASSWORD^F^^FTPPWD;1^K:$L(X)>30!($L(X)<3) X"
^DD(4.3,7.731,3)="Answer must be 3-30 characters in length."
^DD(4.3,7.731,21,0)="^^2^2^2930423^"
^DD(4.3,7.731,21,1,0)="This is the password if any that a BLOB sender needs to have when he FTPs"
^DD(4.3,7.731,21,2,0)="into the system."
^DD(4.3,7.731,"DT")="2930423"
^DD(4.3,7.7999,0)="FTP NOTES^4.37^^FTP-NOTES;0"
^DD(4.3,7.7999,21,0)="^^2^2^2980122^^^"
^DD(4.3,7.7999,21,1,0)="This field holds site specific notes for this site on FTP operations."
^DD(4.3,7.7999,21,2,0)="It is not used by MailMan."
^DD(4.3,8.11,0)="LPC CHECKSUM^K^^LPC;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(4.3,8.11,3)="This is Standard MUMPS code used by network mail to calculate checksums."
^DD(4.3,8.11,9)="@"
^DD(4.3,8.11,21,0)="^^8^8^2890310^"
^DD(4.3,8.11,21,1,0)="The code in this field will be obsolete after installation of KERNEL 6,"
^DD(4.3,8.11,21,2,0)="if the ""LPC"" node in ^%ZOSF [^%ZOSF(""LPC"")] is defined.  This field is"
^DD(4.3,8.11,21,3,0)="inserted by the MailMan POST-init if the ^%ZOSF(""OS"") is defined, contains"
^DD(4.3,8.11,21,4,0)="""DSM"" and does not contain ""VAX"".  This is because of a situation that "
^DD(4.3,8.11,21,5,0)="exists where DSM for PDP-aa series used to use on $ZCALL anbd in the updated"
^DD(4.3,8.11,21,6,0)="version uses a slightly different one.  Both do not exist in one system."
^DD(4.3,8.11,21,7,0)="The way it is inserted is by setting an error trap and then trying one."
^DD(4.3,8.11,21,8,0)="If it doesn't work, it must be the onther."
^DD(4.3,8.11,"DT")="2890310"
^DD(4.3,8.12,0)="TCP CHANNEL - MAXIMUM TO USE^NJ3,0^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.3,8.12,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(4.3,8.12,21,0)="^^3^3^2930223^"
^DD(4.3,8.12,21,1,0)="This field contains a value that is checked before starting a process"
^DD(4.3,8.12,21,2,0)="to transmit mail via a TCP/IP channel.  If there are already as many"
^DD(4.3,8.12,21,3,0)="processes running as is in this field, no process is started."
^DD(4.3,8.12,"DT")="2920926"
^DD(4.3,8.13,0)="STATS NORMALIZATION^F^^7;1^K:$L(X)>99!($L(X)<1) X"
^DD(4.3,8.13,3)="Answer must be 1-99 characters in length."
^DD(4.3,8.13,21,0)="^^1^1^2920926^"
^DD(4.3,8.13,21,1,0)="This option allows the user to customize the normalized report."
^DD(4.3,8.13,"DT")="2980123"
^DD(4.3,8.14,0)="LARGE MESSAGE REPORT LINES^NJ6,0^^XMUT2-LINES;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.3,8.14,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(4.3,8.14,21,0)="^^3^3^2980123^^^^"
^DD(4.3,8.14,21,1,0)="This field is used by the large message report."
^DD(4.3,8.14,21,2,0)="Any message with more than this many lines is included in the report."
^DD(4.3,8.14,21,3,0)="If this field is null, the default is 100."
^DD(4.3,8.14,"DT")="2980123"
^DD(4.3,8.15,0)="TCP/IP POLLER RUN FLAG^S^1:STOP RUNNING;0:OKAY TO RUN;^0;18^Q"
^DD(4.3,8.15,21,0)="^^6^6^2950626^^"
^DD(4.3,8.15,21,1,0)="This field is checked every time the background tcp poller, XMRTCP,"
^DD(4.3,8.15,21,2,0)="starts to process poller request.  If it is set to 1, XMRTCP stops"
^DD(4.3,8.15,21,3,0)="running. If it is null or zero, XMRTCP processes the next entry.  If"
^DD(4.3,8.15,21,4,0)="XMRTCP is not running it will not be restarted if the field is set to 1."
^DD(4.3,8.15,21,5,0)="If it is null or 0, and XMRTCP is not running, a background task will be"
^DD(4.3,8.15,21,6,0)="created to restart it."
^DD(4.3,8.15,"DT")="2950626"
^DD(4.3,8.2,0)="RECORD NETMAIL TRANSCRIPT?^S^1:YES;0:NO;^0;14^Q"
^DD(4.3,8.2,21,0)="^^3^3^2930211^^^^"
^DD(4.3,8.2,21,1,0)="This field allows the site manager to turn on and off (toggle) whether or"
^DD(4.3,8.2,21,2,0)="not MailMan records all script transcripts in background.  The send portion"
^DD(4.3,8.2,21,3,0)="of scripts played (using the 'Play Script' option) will not be recorded."
^DD(4.3,8.2,"DT")="2900627"
^DD(4.3,8.21,0)="XMITS TILL ERROR MESSAGE^NJ3,0^^NETWORK;1^K:+X'=X!(X>999)!(X<5)!(X?.E1"".""1N.N) X"
^DD(4.3,8.21,3)="Type a Number between 5 and 999, 0 Decimal Digits"
^DD(4.3,8.21,21,0)="^^3^3^2931214^"
^DD(4.3,8.21,21,1,0)="How many times will a transmission be attempted before a message is"
^DD(4.3,8.21,21,2,0)="sent to the Postmaster indicating that there have been multiple,"
^DD(4.3,8.21,21,3,0)="unsuccessful transmissions to a domain."
^DD(4.3,8.21,"DT")="2930211"
^DD(4.3,8.22,0)="DNS AWARE^S^0:NO;1:YES;^NETWORK;2^Q"
^DD(4.3,8.22,3)="Should MailMan use DNS to look up IP addresses?"
^DD(4.3,8.22,21,0)="^^12^12^3020422^^^"
^DD(4.3,8.22,21,1,0)="In order for MailMan to be DNS aware, the site must have installed the"
^DD(4.3,8.22,21,2,0)="requisite Kernel patches for DNS."
^DD(4.3,8.22,21,3,0)=" - DNS IP (field 51 in file 8989.3) must contain an IP address"
^DD(4.3,8.22,21,4,0)="for a DNS server."
^DD(4.3,8.22,21,5,0)=" - Routine ^XLFNSLK must exist."
^DD(4.3,8.22,21,6,0)=""
^DD(4.3,8.22,21,7,0)="If you answer 'no', MailMan will use the IP addresses in the domain scripts."
^DD(4.3,8.22,21,8,0)=""
^DD(4.3,8.22,21,9,0)="If you answer 'yes', MailMan will use the IP addresses in the domain"
^DD(4.3,8.22,21,10,0)="scripts, but if they fail, or don't exist, MailMan will use DNS to ascertain"
^DD(4.3,8.22,21,11,0)="other IP addresses to try.  MailMan will replace failed script IP address"
^DD(4.3,8.22,21,12,0)="with the successful DNS IP address."
^DD(4.3,8.22,"DT")="3020422"
^DD(4.3,8.23,0)="TCP/IP COMMUNICATIONS PROTOCOL^P3.4'^DIC(3.4,^NETWORK;3^Q"
^DD(4.3,8.23,3)="Which protocol shall be used for TCP/IP?"
^DD(4.3,8.23,21,0)="^.001^18^18^3020612^^^^"
^DD(4.3,8.23,21,1,0)="For TCP/IP connections, the scripts (the TEXT field, 2, in the TRANSMISSION"
^DD(4.3,8.23,21,2,0)="SCRIPT multiple, 4, of the DOMAIN file, 4.2) can be built on-the-fly, if"
^DD(4.3,8.23,21,3,0)="they don't exist, and if both this field and field 8.24 are filled in."
^DD(4.3,8.23,21,4,0)=""
^DD(4.3,8.23,21,5,0)="We identify the TCP/IP transmission scripts in file 4.2 by the TYPE field,"
^DD(4.3,8.23,21,6,0)="1.2, within the TRANSMISSION SCRIPT multiple.  Those whose TYPE is 'SMTP',"
^DD(4.3,8.23,21,7,0)="'TCPCHAN', or null are considered TCP/IP transmission scripts."
^DD(4.3,8.23,21,8,0)=""
^DD(4.3,8.23,21,9,0)="We can build the scripts, because they are standard."
^DD(4.3,8.23,21,10,0)=""
^DD(4.3,8.23,21,11,0)="Here's an example of one for FORUM:"
^DD(4.3,8.23,21,12,0)=""
^DD(4.3,8.23,21,13,0)="O H=FORUM.VA.GOV,P=TCP/IP-MAILMAN"
^DD(4.3,8.23,21,14,0)="C TCPCHAN-SOCKET25"
^DD(4.3,8.23,21,15,0)=""
^DD(4.3,8.23,21,16,0)="In this script, the TCP/IP-MAILMAN refers to the communications protocol"
^DD(4.3,8.23,21,17,0)="to use.  This field should point to the communications protocol in file 3.4"
^DD(4.3,8.23,21,18,0)="that should be used for TCP/IP connections."
^DD(4.3,8.23,"DT")="3020612"
^DD(4.3,8.24,0)="TCP/IP TRANSMISSION SCRIPT^P4.6'^XMB(4.6,^NETWORK;4^Q"
^DD(4.3,8.24,3)="Which script shall be used for TCP/IP?"
^DD(4.3,8.24,21,0)="^^18^18^3020612^^^^"
^DD(4.3,8.24,21,1,0)="For TCP/IP connections, the scripts (the TEXT field, 2, in the TRANSMISSION"
^DD(4.3,8.24,21,2,0)="SCRIPT multiple, 4, of the DOMAIN file, 4.2) can be built on-the-fly, if"
^DD(4.3,8.24,21,3,0)="they don't exist, and if both this field and field 8.23 are filled in."
^DD(4.3,8.24,21,4,0)=""
^DD(4.3,8.24,21,5,0)="We identify the TCP/IP transmission scripts in file 4.2 by the TYPE field,"
^DD(4.3,8.24,21,6,0)="1.2, within the TRANSMISSION SCRIPT multiple.  Those whose TYPE is 'SMTP',"
^DD(4.3,8.24,21,7,0)="'TCPCHAN', or null are considered TCP/IP transmission scripts."
^DD(4.3,8.24,21,8,0)=""
^DD(4.3,8.24,21,9,0)="We can build the scripts, because they are standard."
^DD(4.3,8.24,21,10,0)=""
^DD(4.3,8.24,21,11,0)="Here's an example of one for FORUM:"
^DD(4.3,8.24,21,12,0)=""
^DD(4.3,8.24,21,13,0)=" O H=FORUM.VA.GOV,P=TCP/IP-MAILMAN"
^DD(4.3,8.24,21,14,0)=" C TCPCHAN-SOCKET25"
^DD(4.3,8.24,21,15,0)=""
^DD(4.3,8.24,21,16,0)="In this script, the TCPCHAN-SOCKET25 refers to the transmission script"
^DD(4.3,8.24,21,17,0)="to use.  This field should point to the transmission script in file 4.6"
^DD(4.3,8.24,21,18,0)="that should be used for TCP/IP connections."
^DD(4.3,8.24,"DT")="3020612"
^DD(4.3,8.25,0)="TCP/IP DEVICE^FX^^NETWORK;5^K:$L(X)>30!($L(X)<1) X I $D(X) S %ZIS=""NQRS"",IOP=X D ^%ZIS K:POP X S:$D(X) X=ION W:$D(X) "" Stored internally as "",X D ^%ZISC S IOP=""HOME"" D ^%ZIS K IOP,%ZIS"
^DD(4.3,8.25,3)="Which device shall be used for TCP/IP?"
^DD(4.3,8.25,21,0)="^.001^13^13^3020906^^^^"
^DD(4.3,8.25,21,1,0)="For TCP/IP connections, the physical link/device to be used is usually"
^DD(4.3,8.25,21,2,0)="standard - some sort of NULL device.  This field is a free-text pointer"
^DD(4.3,8.25,21,3,0)="to that device in the DEVICE (#3.5) file."
^DD(4.3,8.25,21,4,0)=""
^DD(4.3,8.25,21,5,0)="The device pointed to by this field will be used for a TCP/IP connection"
^DD(4.3,8.25,21,6,0)="if, in the DOMAIN (#4.2) file, the device field is null in both of the"
^DD(4.3,8.25,21,7,0)="following fields:"
^DD(4.3,8.25,21,8,0)=" - PHYSICAL LINK / DEVICE (#1.3) field of the TRANSMISSION SCRIPT (#4)"
^DD(4.3,8.25,21,9,0)="multiple"
^DD(4.3,8.25,21,10,0)=" - PHYSICAL LINK DEVICE (#17) field"
^DD(4.3,8.25,21,11,0)=""
^DD(4.3,8.25,21,12,0)="For more information, see the PHYSICAL LINK DEVICE (#17) field in the"
^DD(4.3,8.25,21,13,0)="DOMAIN (#4.2) file."
^DD(4.3,8.25,"DT")="3020906"
^DD(4.3,8.3,0)="NETWORK - MAX LINES SEND^NJ5,0^^NETWORK-LIMIT;1^K:+X'=X!(X>15000)!(X<2000)!(X?.E1"".""1N.N) X"
^DD(4.3,8.3,3)="Type a Number between 2000 and 15000, 0 Decimal Digits"
^DD(4.3,8.3,21,0)="^^4^4^2980122^^"
^DD(4.3,8.3,21,1,0)="This field enables site management to limit the number of lines which"
^DD(4.3,8.3,21,2,0)="a message may have when it is addressed to a remote recipient.  A user"
^DD(4.3,8.3,21,3,0)="may not send a message across the network with more than this number of"
^DD(4.3,8.3,21,4,0)="lines.  If this field is null, there is no limit."
^DD(4.3,8.3,"DT")="2980122"
^DD(4.3,8.31,0)="NETWORK - MAX LINES RECEIVE^NJ8,0^^NETWORK-LIMIT;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.3,8.31,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(4.3,8.31,21,0)="^^6^6^3020422^^^"
^DD(4.3,8.31,21,1,0)="This field enables site management to limit the number of lines which"
^DD(4.3,8.31,21,2,0)="a message may have when it is received from a remote site.  Any message"
^DD(4.3,8.31,21,3,0)="received from a remote site which has more lines than this number is"
^DD(4.3,8.31,21,4,0)="automatically rejected.  If this field is null, there is no limit."
^DD(4.3,8.31,21,5,0)=""
^DD(4.3,8.31,21,6,0)="KIDS and PackMan messages are not affected by this limit."
^DD(4.3,8.31,"DT")="3020422"
^DD(4.3,8.32,0)="NETWORK - BLOCK SIZE RECEIVE^S^A:255;B:512;^NETWORK-LIMIT;3^Q"
^DD(4.3,8.32,3)="Select the block size for incoming transmissions."
^DD(4.3,8.32,21,0)="^.001^14^14^3020422^^^^"
^DD(4.3,8.32,21,1,0)="*** This field is reserved for future use.  Not currently used. ***"
^DD(4.3,8.32,21,2,0)=""
^DD(4.3,8.32,21,3,0)="This is the maximum number of characters to read at a time when"
^DD(4.3,8.32,21,4,0)="receiving incoming transmissions.  Default is 255."
^DD(4.3,8.32,21,5,0)=" "
^DD(4.3,8.32,21,6,0)="Limiting factors are:"
^DD(4.3,8.32,21,7,0)=" - Maximum string length on the system."
^DD(4.3,8.32,21,8,0)=" - Maximum global length on the system.  In particular, maximum"
^DD(4.3,8.32,21,9,0)="(desirable) length of a line of message text in the MESSAGE file:"
^DD(4.3,8.32,21,10,0)="   S ^XMB(3.9,xmz,2,x,0)=<line of message text>"
^DD(4.3,8.32,21,11,0)=""
^DD(4.3,8.32,21,12,0)="You may also wish to consider the maximum string length that the"
^DD(4.3,8.32,21,13,0)="system's various editors can handle.  See the Technical Description"
^DD(4.3,8.32,21,14,0)="for more information."
^DD(4.3,8.32,23,0)="^.001^26^26^3010315^^^"
^DD(4.3,8.32,23,1,0)="Why would you want to set the block size higher than 255, which has"
^DD(4.3,8.32,23,2,0)="been the historical setting?  Just how long a line do you need for the"
^DD(4.3,8.32,23,3,0)="text in a message?  Well, for user-to-user communication, 255 is more"
^DD(4.3,8.32,23,4,0)="than enough.  But for application-to-application communication, 255"
^DD(4.3,8.32,23,5,0)="may not be enough.  512 may be.  So, if your system can handle globals"
^DD(4.3,8.32,23,6,0)="with 512 characters, setting this field to 512 is recommended."
^DD(4.3,8.32,23,7,0)="  "
^DD(4.3,8.32,23,8,0)="How can you tell how long a string a global can be set to?  Do this at"
^DD(4.3,8.32,23,9,0)="the programmer prompt:"
^DD(4.3,8.32,23,10,0)=" "
^DD(4.3,8.32,23,11,0)=" > S ^TMP(""XM"",$J)="""" F I=1:1 S ^TMP(""XM"",$J)=^TMP(""XM"",$J)_""X"""
^DD(4.3,8.32,23,12,0)=" > W $L(^TMP(""XM"",$J)) <--- This is your answer"
^DD(4.3,8.32,23,13,0)=" > K ^TMP(""XM"",$J)"
^DD(4.3,8.32,23,14,0)=" "
^DD(4.3,8.32,23,15,0)="Yes, some systems can handle way more than 512, but we need to limit"
^DD(4.3,8.32,23,16,0)="the maximum, so that if we need to port data from one system to"
^DD(4.3,8.32,23,17,0)="another, any system can handle data from any other system."
^DD(4.3,8.32,23,18,0)=" "
^DD(4.3,8.32,23,19,0)="There is one caution.  It's a small one, but you should be aware of"
^DD(4.3,8.32,23,20,0)="it.  Your system's text editors, which are used to edit message text"
^DD(4.3,8.32,23,21,0)="in MailMan messages, may not be able to handle line lengths of more"
^DD(4.3,8.32,23,22,0)="than 245 or 255.  When does this become a problem?  Only if you attempt"
^DD(4.3,8.32,23,23,0)="to copy and edit messages which have such lengthy lines.  Such lines"
^DD(4.3,8.32,23,24,0)="may be truncated by the editors.  This is not really much of a problem,"
^DD(4.3,8.32,23,25,0)="because you probably won't be copying and editing such messages, since"
^DD(4.3,8.32,23,26,0)="they would most likely contain application-to-application communication."
^DD(4.3,8.32,"DT")="3020422"
^DD(4.3,8.4,0)="DIRECTORY REQUEST FLAG^S^0:Requests will NOT be granted.;1:Requests will be granted.;^8.4;1^Q"
^DD(4.3,8.4,3)="Enter 0 to stop all requests for the local directory from being granted."
^DD(4.3,8.4,21,0)="^^6^6^2940417^^^"
^DD(4.3,8.4,21,1,0)="This field controls whether or not the XMMGR-DIRECTORY-RECV option will"
^DD(4.3,8.4,21,2,0)="grant request from remote site to send domain user directory information."
^DD(4.3,8.4,21,3,0)=" "
^DD(4.3,8.4,21,4,0)="If the value is null or zero, request is rejected.  If the value is"
^DD(4.3,8.4,21,5,0)="one, a request is granted and domain user directory will"
^DD(4.3,8.4,21,6,0)="be made available to the remote site."
^DD(4.3,8.4,"DT")="2940417"
^DD(4.3,10,0)="IN-BASKET-PURGE DAYS^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<30)!(X?.E1"".""1N.N) X"
^DD(4.3,10,3)="Type a Number between 30 and 999, 0 Decimal Digits"
^DD(4.3,10,21,0)="^^10^10^2970723^^^^"
^DD(4.3,10,21,1,0)="This field is used by the IN BASKET PURGE to identify inactive messages and"
^DD(4.3,10,21,2,0)="mark them for purging."
^DD(4.3,10,21,3,0)=""
^DD(4.3,10,21,4,0)="A message is considered inactive if it has not been accessed in the past"
^DD(4.3,10,21,5,0)="number of days specified here.  The default is 30 days."
^DD(4.3,10,21,6,0)=""
^DD(4.3,10,21,7,0)="The IN BASKET PURGE sends a message to each user listing all messages which"
^DD(4.3,10,21,8,0)="it has marked for purging and stating that they will be purged in an"
^DD(4.3,10,21,9,0)="additional 30 days if they remain in the 'IN' basket and are not accessed"
^DD(4.3,10,21,10,0)="again."
^DD(4.3,10,"DT")="2980123"
^DD(4.3,10.01,0)="IN-BASKET-PURGE TYPE^S^0:IN BASKET ONLY;1:ALL BASKETS;^.15;1^Q"
^DD(4.3,10.01,3)="Enter 0 for IN Basket, 1 for **All** baskets or ? for more information."
^DD(4.3,10.01,4)=""
^DD(4.3,10.01,21,0)="^^16^16^3020422^^^^"
^DD(4.3,10.01,21,1,0)="This field controls the extent of the IN-BASKET-PURGE."
^DD(4.3,10.01,21,2,0)="If is is not filled in the effect on the IN-BASKET-PURGE"
^DD(4.3,10.01,21,3,0)="is the same as it would be if the value of the field is zero."
^DD(4.3,10.01,21,4,0)=" "
^DD(4.3,10.01,21,5,0)="The field can have the following values:"
^DD(4.3,10.01,21,6,0)=" "
^DD(4.3,10.01,21,7,0)=" 0 or null = The IN-BASKET-PURGE will affect user IN baskets only."
^DD(4.3,10.01,21,8,0)=" 1 = The IN-BASKET-PURGE will affect all user baskets.  (This is not"
^DD(4.3,10.01,21,9,0)="the normal way for this process to be run.  It is recommended that you"
^DD(4.3,10.01,21,10,0)="discuss this with site management and get user input before doing this.)"
^DD(4.3,10.01,21,11,0)=" "
^DD(4.3,10.01,21,12,0)="In either case the users will be sent the now familiar message listing"
^DD(4.3,10.01,21,13,0)="the messages that will be deleted from their baskets in 30 days.  In"
^DD(4.3,10.01,21,14,0)="either case the field 'IN-BASKET-PURGE DAYS' will control how long a"
^DD(4.3,10.01,21,15,0)="message can remain inactive in a basket before it is considered okay"
^DD(4.3,10.01,21,16,0)="to put on the list of messages to be considered for deletion."
^DD(4.3,10.01,"DT")="3020422"
^DD(4.3,10.03,0)="DATE PURGE CUTOFF DAYS^NJ4,0^^.18;1^K:+X'=X!(X>9999)!(X<365)!(X?.E1"".""1N.N) X"
^DD(4.3,10.03,3)="Type a Number between 365 and 9999, 0 Decimal Digits"
^DD(4.3,10.03,21,0)="^.001^5^5^3001120^^"
^DD(4.3,10.03,21,1,0)="This field is used by the option XMPURGE-BY-DATE.  When this option"
^DD(4.3,10.03,21,2,0)="is run, the date purge will be set to purge all messages originating"
^DD(4.3,10.03,21,3,0)="this many days ago and before."
^DD(4.3,10.03,21,4,0)=" "
^DD(4.3,10.03,21,5,0)="If this field is null, the default will be 730 days (2 years)."
^DD(4.3,10.03,"DT")="3001117"
^DD(4.3,10.04,0)="DATE PURGE GRACE PERIOD^NJ2,0^^.18;2^K:+X'=X!(X>31)!(X<3)!(X?.E1"".""1N.N) X"
^DD(4.3,10.04,3)="Type a Number between 3 and 31, 0 Decimal Digits"
^DD(4.3,10.04,21,0)="^.001^13^13^3001120^^^"
^DD(4.3,10.04,21,1,0)="This is the number of days' warning the users get before the date"
^DD(4.3,10.04,21,2,0)="purge, XMPURGE-BY-DATE, is run."
^DD(4.3,10.04,21,3,0)=" "
^DD(4.3,10.04,21,4,0)="This field is used by the option XMPURGE-BY-DATE only if that"
^DD(4.3,10.04,21,5,0)="option is scheduled, not if it is run interactively."
^DD(4.3,10.04,21,6,0)=" "
^DD(4.3,10.04,21,7,0)="At the scheduled date/time, the bulletin, XM DATE PURGE WARNING,"
^DD(4.3,10.04,21,8,0)="is broadcast to all users to warn them of the coming date purge,"
^DD(4.3,10.04,21,9,0)="and the actual date purge is then queued to run this many days"
^DD(4.3,10.04,21,10,0)="later."
^DD(4.3,10.04,21,11,0)=" "
^DD(4.3,10.04,21,12,0)="If this field is null, the date purge will run at the scheduled"
^DD(4.3,10.04,21,13,0)="date/time, and no bulletin will be sent."
^DD(4.3,10.04,"DT")="3001117"
^DD(4.3,10.1,0)="BACKGROUND FILER HANG TIME^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.3,10.1,3)="Background filer hangs up to 99 seconds between mail deliveries (default=5)."
^DD(4.3,10.1,21,0)="^^6^6^2980427^^"
^DD(4.3,10.1,21,1,0)="This field is used by the background filer when it is started up to determine"
^DD(4.3,10.1,21,2,0)="the amount of time it will hang between deliveries of messages.  Since mail"
^DD(4.3,10.1,21,3,0)="is not delivered, even to the sender, unless the backgournd filer delivers"
^DD(4.3,10.1,21,4,0)="it, it should not be too long a period so that your users are inconvenienced."
^DD(4.3,10.1,21,5,0)="If this field is not filled in the background filer will hang for 5 seconds"
^DD(4.3,10.1,21,6,0)="between deliveries.  5 to 15 seconds is the recommended range."
^DD(4.3,10.1,"DT")="2881115"
^DD(4.3,10.2,0)="BACKGROUND FILER RUN FLAG^S^1:STOP RUNNING;0:OKAY TO RUN;^0;16^Q"
^DD(4.3,10.2,9)="@"
^DD(4.3,10.2,21,0)="^^5^5^2980122^^^^"
^DD(4.3,10.2,21,1,0)="The background filer checks this field every time it is about to"
^DD(4.3,10.2,21,2,0)="deliver a message or response.  If it is set to 1, it stops running, and"
^DD(4.3,10.2,21,3,0)="will not restart until it is set to null or zero.  If it is null or zero,"
^DD(4.3,10.2,21,4,0)="and is already running, it continues.  If it is null or zero, and is not"
^DD(4.3,10.2,21,5,0)="running, a background task will be created to restart it."
^DD(4.3,10.2,22)="P"
^DD(4.3,10.2,"DT")="2920123"
^DD(4.3,10.3,0)="BACKGROUND FILER RUN PRIORITY^NJ2,0^^.13;1^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.3,10.3,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(4.3,10.3,21,0)="^^1^1^2980122^^"
^DD(4.3,10.3,21,1,0)="This field is used by the background filer to set its priority at runtime."
^DD(4.3,10.3,"DT")="2921112"
^DD(4.3,16.1,0)="P-MESSAGE LINE LIMIT^NJ7,0^^.16;1^K:+X'=X!(X>9999999)!(X<2000)!(X?.E1"".""1N.N) X"
^DD(4.3,16.1,3)="Type a Number between 2000 and 9999999, 0 Decimal Digits"
^DD(4.3,16.1,21,0)="^^2^2^2980408^"
^DD(4.3,16.1,21,1,0)="This field enables site management to limit the number of lines which may"
^DD(4.3,16.1,21,2,0)="be printed to P-MESSAGE.  If this field is null, there is no limit."
^DD(4.3,16.1,"DT")="2980408"
^DD(4.3,17.1,0)="MAX DIGITS FOR MESSAGE NUMBER^NJ2,0^^.17;1^K:+X'=X!(X>14)!(X<7)!(X?.E1"".""1N.N) X"
^DD(4.3,17.1,3)="Type a Number between 7 and 14, 0 Decimal Digits"
^DD(4.3,17.1,21,0)="^^17^17^2980917^^^"
^DD(4.3,17.1,21,1,0)="This field is used to control the size of the message number in"
^DD(4.3,17.1,21,2,0)="^XMB(3.9, the MESSAGE file.  If this field is null, its default "
^DD(4.3,17.1,21,3,0)="will be 8 digits.  If the message number becomes greater"
^DD(4.3,17.1,21,4,0)="than this many digits, the message numbers will recycle back to"
^DD(4.3,17.1,21,5,0)="the next vacant message number after 999999.  In this way, message"
^DD(4.3,17.1,21,6,0)="numbers will cease being too ungainly in size."
^DD(4.3,17.1,21,7,0)=""
^DD(4.3,17.1,21,8,0)="So message numbers will be re-used."
^DD(4.3,17.1,21,9,0)=""
^DD(4.3,17.1,21,10,0)="If MailMan is not able to find a vacant message number less than"
^DD(4.3,17.1,21,11,0)="this number of digits, then MailMan will take the next available"
^DD(4.3,17.1,21,12,0)="message number, no matter how many digits it has, AND MailMan will"
^DD(4.3,17.1,21,13,0)="change this field to reflect the new maximum."
^DD(4.3,17.1,21,14,0)=""
^DD(4.3,17.1,21,15,0)="It is very important that the unreferenced messages purge and/or"
^DD(4.3,17.1,21,16,0)="the date purge be run on a regular basis to free up message numbers"
^DD(4.3,17.1,21,17,0)="for re-use."
^DD(4.3,17.1,"DT")="2980917"
^DD(4.3,21,0)="FORWARD PRIORITY MAIL TO GROUP^S^0:NO;1:YES;^2;1^Q"
^DD(4.3,21,3)="Let users forward priority messages to mail groups?"
^DD(4.3,21,21,0)="^.001^6^6^3000606^^^"
^DD(4.3,21,21,1,0)="Enter YES if you wish to allow users to forward priority messages"
^DD(4.3,21,21,2,0)="to mail groups."
^DD(4.3,21,21,3,0)=" "
^DD(4.3,21,21,4,0)="Enter NO if you don't.  (This is the default, if this field is null.)"
^DD(4.3,21,21,5,0)="Then only the message originator or anyone with the XM GROUP PRIORITY"
^DD(4.3,21,21,6,0)="key may forward priority messages to mail groups."
^DD(4.3,21,23,0)="^.001^9^9^3000606^^"
^DD(4.3,21,23,1,0)="The issue here is one of annoyance.  Priority messages can be annoying."
^DD(4.3,21,23,2,0)="When priority messages are inappropriately forwarded to mail groups,"
^DD(4.3,21,23,3,0)="the annoyance quotient rises dramatically.  If you wish to have MailMan"
^DD(4.3,21,23,4,0)="be the enforcer, then set this field to NO.  (Then only a select few"
^DD(4.3,21,23,5,0)="users will be able to forward priority messages to mail groups.)"
^DD(4.3,21,23,6,0)="If you wish to have the user's peers be the enforcers, then set this"
^DD(4.3,21,23,7,0)="field to YES.  (Then anyone can forward priority messages to mail groups,"
^DD(4.3,21,23,8,0)="and users who inappropriately do so, risk the wrath and flames of the"
^DD(4.3,21,23,9,0)="annoyed recipients.)"
^DD(4.3,21,"DT")="3000525"
^DD(4.3,22,0)="DROP OUT OF RESTRICTED GROUP^S^0:NO;1:YES;^2;2^Q"
^DD(4.3,22,3)="Let users drop out of non-self-enrolling mail groups?"
^DD(4.3,22,21,0)="^.001^8^8^3000606^^^^"
^DD(4.3,22,21,1,0)="Enter YES if you wish to allow users to drop out of non-self-enrolling"
^DD(4.3,22,21,2,0)="mail groups.  The user will be warned that this is a non-self-enrolling"
^DD(4.3,22,21,3,0)="group, and that they won't be allowed to rejoin later, and then they"
^DD(4.3,22,21,4,0)="will be asked to re-confirm the decision to drop out."
^DD(4.3,22,21,5,0)=" "
^DD(4.3,22,21,6,0)="Enter NO if you don't.  (This is the default if this field is null.)"
^DD(4.3,22,21,7,0)="Then users will have to contact IRM or the mail group coordinator to"
^DD(4.3,22,21,8,0)="ask to be dropped."
^DD(4.3,22,23,0)="^.001^16^16^3000606^^^"
^DD(4.3,22,23,1,0)="If a mail group is not a self-enrolling mail group, then users can't just"
^DD(4.3,22,23,2,0)="join.  They must be added by the mail group coordinator."
^DD(4.3,22,23,3,0)=" "
^DD(4.3,22,23,4,0)="If a user no longer wishes to be a member of such a group, he must ask the"
^DD(4.3,22,23,5,0)="group coordinator to drop him.  But what if the group coordinator has left"
^DD(4.3,22,23,6,0)="the organization or is unresponsive?  Then what?  Then the user will have"
^DD(4.3,22,23,7,0)="to ask IRM to help.  This problem can be avoided by setting this field to"
^DD(4.3,22,23,8,0)="YES."
^DD(4.3,22,23,9,0)=" "
^DD(4.3,22,23,10,0)="Some would argue that the coordinator added the user to the group for a"
^DD(4.3,22,23,11,0)="reason, and the user should not be allowed to drop out.  (Perhaps the"
^DD(4.3,22,23,12,0)="coordinator is the user's boss.)  They would argue that it is MailMan's"
^DD(4.3,22,23,13,0)="job to prevent the user from dropping out.  (Set the field to NO.)"
^DD(4.3,22,23,14,0)="Others would argue that it is not MailMan's job at all, but the boss's"
^DD(4.3,22,23,15,0)="job to prevent the user from dropping out, and to discipline the user"
^DD(4.3,22,23,16,0)="if he does.  (Set the field to YES.)"
^DD(4.3,22,"DT")="3000606"
^DD(4.3,23,0)="TITLE SOURCE^S^S:SIGNATURE BLOCK TITLE;T:TITLE;^0;11^Q"
^DD(4.3,23,3)="Where should the user's title come from?"
^DD(4.3,23,21,0)="^.001^10^10^3000718^^"
^DD(4.3,23,21,1,0)="Where in the NEW PERSON file should the user's title come from?"
^DD(4.3,23,21,2,0)=" "
^DD(4.3,23,21,3,0)="Enter 'S' if the user's title should come from field 20.3,"
^DD(4.3,23,21,4,0)="SIGNATURE BLOCK TITLE.  If that field is empty, then we'll try"
^DD(4.3,23,21,5,0)="field 8, TITLE."
^DD(4.3,23,21,6,0)=" "
^DD(4.3,23,21,7,0)="Enter 'T' if the user's title should come from field 8, TITLE."
^DD(4.3,23,21,8,0)="If that field is empty, we won't show any title."
^DD(4.3,23,21,9,0)=" "
^DD(4.3,23,21,10,0)="The default is 'T', if this field is not filled in."
^DD(4.3,23,"DT")="3000718"
^DD(4.3,31,0)="AUTO-FORWARD LIMITED?^S^0:NO;1:YES;^3;1^Q"
^DD(4.3,31,3)="Should auto-forward capability be limited?"
^DD(4.3,31,21,0)="^^10^10^3030415^^"
^DD(4.3,31,21,1,0)="For security or privacy reasons, you may wish to limit the sites to which"
^DD(4.3,31,21,2,0)="users may have their mail auto-forwarded.  If so, set this field to YES,"
^DD(4.3,31,21,3,0)="and enter the approved sites in the AUTO-FORWARD APPROVED SITE multiple."
^DD(4.3,31,21,4,0)=""
^DD(4.3,31,21,5,0)="For VA sites, this field must be set to YES.  The only approved sites are"
^DD(4.3,31,21,6,0)="those ending in "".VA.GOV""."
^DD(4.3,31,21,7,0)=""
^DD(4.3,31,21,8,0)="If this field is set to YES, MailMan will limit auto-forwarding to only"
^DD(4.3,31,21,9,0)="those sites whose names are in (or end in the ones in) the AUTO-FORWARD"
^DD(4.3,31,21,10,0)="APPROVED SITE multiple."
^DD(4.3,31,"DT")="3030415"
^DD(4.3,31.1,0)="AUTO-FORWARD APPROVED SITE^4.33^^3.1;0"
^DD(4.3,31.2,0)="AUTO-FORWARD WAIVER SITE^4.34^^3.2;0"
^DD(4.3,31.2,"DT")="3030414"
^DD(4.3,40,0)="PREVENT MESSAGE RELAY?^S^1:YES;0:NO;^4;1^Q"
^DD(4.3,40,3)="Should message relaying be prevented?"
^DD(4.3,40,21,0)="^.001^17^17^3040317^^^^"
^DD(4.3,40,21,1,0)="Answer YES if you want to prevent outside sites from sending mail through"
^DD(4.3,40,21,2,0)="your site to other outside sites.  Spammers and Virus propagators use this"
^DD(4.3,40,21,3,0)="technique to disguise the source of their mail, and to make it appear to"
^DD(4.3,40,21,4,0)="come from a trusted source, namely your site."
^DD(4.3,40,21,5,0)=""
^DD(4.3,40,21,6,0)="Answer NO if you want your site to act as a relay site for anyone."
^DD(4.3,40,21,7,0)=""
^DD(4.3,40,21,8,0)="It is strongly recommended that you answer YES to prevent your site from"
^DD(4.3,40,21,9,0)="unwittingly relaying destructive mail."
^DD(4.3,40,21,10,0)=""
^DD(4.3,40,21,11,0)="If you answer YES, you should define your ""inside"" sites in the MY DOMAIN"
^DD(4.3,40,21,12,0)="(field #41) multiple, so that MailMan can distinguish them from outside"
^DD(4.3,40,21,13,0)="sites."
^DD(4.3,40,21,14,0)=""
^DD(4.3,40,21,15,0)="Note: This does NOT prevent users from receiving mail from outside sites."
^DD(4.3,40,21,16,0)="It also does NOT prevent users from forwarding mail to outside sites."
^DD(4.3,40,21,17,0)="Such actions are perfectly acceptable."
^DD(4.3,40,"DT")="3040209"
^DD(4.3,41,0)="MY DOMAINS^4.341^^4.1;0"
^DD(4.3,50,0)="LIMITED BROADCAST^4.32^^5;0"
^DD(4.3,51,0)="LIMITED BROADCAST DEFAULT^NJ3,0XO^^0;20^D INXFORM^XMXADDR2(.X)"
^DD(4.3,51,2)="S Y(0)=Y S:Y Y=$P($G(^XMB(1,1,5,Y,0)),U,1)"
^DD(4.3,51,2.1)="S:Y Y=$P($G(^XMB(1,1,5,Y,0)),U,1)"
^DD(4.3,51,3)="Select a limited broadcast default"
^DD(4.3,51,4)="D EXHELP^XMXADDR2"
^DD(4.3,51,21,0)="^^4^4^2991129^"
^DD(4.3,51,21,1,0)="When sending a limited broadcast message, this is the default which will"
^DD(4.3,51,21,2,0)="appear when the user is presented with limited broadcast choices. "
^DD(4.3,51,21,3,0)=""
^DD(4.3,51,21,4,0)="If you don't want a default to appear, delete this entry."
^DD(4.3,51,23,0)="^^5^5^2991129^"
^DD(4.3,51,23,1,0)="For this field, we are simulating a pointer to a record in the"
^DD(4.3,51,23,2,0)="LIMITED BROADCAST multiple.  The executable help displays the choices"
^DD(4.3,51,23,3,0)="in the multiple.  The input transform makes sure you choose one of the"
^DD(4.3,51,23,4,0)="choices.  The output transform converts the ""pointer"" to the limited"
^DD(4.3,51,23,5,0)="broadcast name."
^DD(4.3,51,"DT")="2991129"
^DD(4.3,142,0)="NO-PURGE DAYS BUFFER (LOCAL)^NJ2,0^^.14;2^K:+X'=X!(X>10)!(X<2)!(X?.E1"".""1N.N) X"
^DD(4.3,142,3)="Type a Number between 2 and 10, 0 Decimal Digits"
^DD(4.3,142,21,0)="16^^22^22^2980918^^^^"
^DD(4.3,142,21,1,0)="This field is used during the un-referenced-messages purge to avoid"
^DD(4.3,142,21,2,0)="purging the last few messages in the message file, according to"
^DD(4.3,142,21,3,0)="their local create date. "
^DD(4.3,142,21,4,0)=""
^DD(4.3,142,21,5,0)="We subtract the NO-PURGE DAYS BUFFER (LOCAL) from today's date, giving"
^DD(4.3,142,21,6,0)="a 'no-purge date'.  Local messages which were created on or after that"
^DD(4.3,142,21,7,0)="date and which were sent to remote sites are not subject to purge."
^DD(4.3,142,21,8,0)="Other messages are not affected by this buffer."
^DD(4.3,142,21,9,0)=""
^DD(4.3,142,21,10,0)="If this field is not filled in, it defaults to 7 days.  This is the"
^DD(4.3,142,21,11,0)="recommended value."
^DD(4.3,142,21,12,0)=""
^DD(4.3,142,21,13,0)="It should not be less than the NO-PURGE DAYS BUFFER (field 4.301)"
^DD(4.3,142,21,14,0)="or it will have no effect."
^DD(4.3,142,21,15,0)=""
^DD(4.3,142,21,16,0)="One situation in which this buffer may be useful is in the case of a"
^DD(4.3,142,21,17,0)="message sent only to a remote site.  Such a message is unreferenced"
^DD(4.3,142,21,18,0)="and would otherwise be subject to purge.  If a reply came from the"
^DD(4.3,142,21,19,0)="remote site after the original message had been purged, the sender"
^DD(4.3,142,21,20,0)="would have access only to the reply and not to the original message."
^DD(4.3,142,21,21,0)="The NO-PURGE DAYS BUFFER (LOCAL) could be set to a reasonable number"
^DD(4.3,142,21,22,0)="of days to allow for a reply."
^DD(4.3,142,"DT")="2980918"
^DD(4.3,143,0)="FAX ENABLED^S^0:no;1:yes;^0;19^Q"
^DD(4.3,143,3)="Is your site fax enabled?"
^DD(4.3,143,21,0)="^^7^7^2970109^"
^DD(4.3,143,21,1,0)="Your site is fax enabled if you have the suite of fax software and files"
^DD(4.3,143,21,2,0)="(^AKF) and fax capability and you choose to allow faxes to be sent via MailMan."
^DD(4.3,143,21,3,0)=""
^DD(4.3,143,21,4,0)="To send faxes via MailMan, Mail groups (file 3.8) must first be populated in the"
^DD(4.3,143,21,5,0)="fax recipient and fax group multiples.  Then, when a user sends a message to a"
^DD(4.3,143,21,6,0)="mail group, the message is also faxed to any fax recipients in that mail group."
^DD(4.3,143,21,7,0)="Responses to the message are not faxed."
^DD(4.3,143,"DT")="2970211"
^DD(4.3,217,0)="DEFAULT INSTITUTION^RP4^DIC(4,^XUS;17^Q"
^DD(4.3,217,3)="Enter the instutition to use as a default for users without one."
^DD(4.3,217,9)="^"
^DD(4.3,217,21,0)="^^2^2^2980427^^^^"
^DD(4.3,217,21,1,0)="This field is the default institution that is shown for any user who"
^DD(4.3,217,21,2,0)="hasn't chosen one under ""edit user options"""
^DD(4.3,217,23,0)="^^2^2^2980427^^"
^DD(4.3,217,23,1,0)="This field is set by a Mumps xref on file 8989.3, field 217, making it a"
^DD(4.3,217,23,2,0)="duplicate of that field."
^DD(4.3,217,"DT")="2900213"
^DD(4.3,241,0)="BACKGROUND MESSAGE DELIVERERS^FX^^6;1^D CHKQ^XMKPLQ"
^DD(4.3,241,3)="Enter a set of increasing numbers separated by commas."
^DD(4.3,241,4)="D HELPQ^XMKPLQ"
^DD(4.3,241,21,0)="^^2^2^2980121^^^^"
^DD(4.3,241,21,1,0)="This field is used by the background filer to determine how many message"
^DD(4.3,241,21,2,0)="delivery queues (and tasks) there should be and how to separate them."
^DD(4.3,241,"DT")="2980121"
^DD(4.3,242,0)="BACKGROUND RESPONSE DELIVERERS^FX^^6;2^D CHKQ^XMKPLQ"
^DD(4.3,242,3)="Enter a set of increasing numbers separated by commas."
^DD(4.3,242,4)="D HELPQ^XMKPLQ"
^DD(4.3,242,21,0)="^^2^2^2980121^^^^"
^DD(4.3,242,21,1,0)="This field is used by the background filer to determine how many response"
^DD(4.3,242,21,2,0)="delivery queues (and tasks) there will be and how to separate them."
^DD(4.3,242,"DT")="2980121"
^DD(4.3,"B","AUTO-FORWARD APPROVED SITE",31.1)=""
^DD(4.3,"B","AUTO-FORWARD LIMITED?",31)=""
^DD(4.3,"B","AUTO-FORWARD WAIVER SITE",31.2)=""
^DD(4.3,"B","AUTOMATIC INTEGRITY CHECK",4.303)=""
^DD(4.3,"B","BACKGROUND FILER HANG TIME",10.1)=""
^DD(4.3,"B","BACKGROUND FILER RUN FLAG",10.2)=""
^DD(4.3,"B","BACKGROUND FILER RUN PRIORITY",10.3)=""
^DD(4.3,"B","BACKGROUND MESSAGE DELIVERERS",241)=""
^DD(4.3,"B","BACKGROUND RESPONSE DELIVERERS",242)=""
^DD(4.3,"B","BIG GROUP SIZE",7.2)=""
^DD(4.3,"B","COPY LIMIT - LINES",5.13)=""
^DD(4.3,"B","COPY LIMIT - RECIPIENTS",5.11)=""
^DD(4.3,"B","COPY LIMIT - RESPONSES",5.12)=""
^DD(4.3,"B","CPU (UCI,VOL) FOR FILER TO RUN",7.5)=""
^DD(4.3,"B","DATE CHRISTENED",4)=""
^DD(4.3,"B","DATE PURGE CUTOFF DAYS",10.03)=""
^DD(4.3,"B","DATE PURGE GRACE PERIOD",10.04)=""
^DD(4.3,"B","DEFAULT INSTITUTION",217)=""
^DD(4.3,"B","DIRECTORY REQUEST FLAG",8.4)=""
^DD(4.3,"B","DNS AWARE",8.22)=""
^DD(4.3,"B","DOMAIN NAME",.01)=""
^DD(4.3,"B","DROP OUT OF RESTRICTED GROUP",22)=""
^DD(4.3,"B","FAX ENABLED",143)=""
^DD(4.3,"B","FORWARD PRIORITY MAIL TO GROUP",21)=""
^DD(4.3,"B","FTP ADDRESS FOR BLOB <GET>",7.6)=""
^DD(4.3,"B","FTP ADDRESS FOR BLOB RECEIVE",7.72)=""
^DD(4.3,"B","FTP NOTES",7.7999)=""
^DD(4.3,"B","FTP PASSWORD",7.731)=""
^DD(4.3,"B","FTP RECEIVE DIRECTORY",7.7)=""
^DD(4.3,"B","FTP RECEIVE DISK",7.711)=""
^DD(4.3,"B","FTP RECEIVE NETWORK LOCATION",7.71)=""
^DD(4.3,"B","FTP USERNAME",7.73)=""
^DD(4.3,"B","FWD TEST MESSAGE TO POSTMASTER",7.01)=""
^DD(4.3,"B","IN-BASKET-PURGE DAYS",10)=""
^DD(4.3,"B","IN-BASKET-PURGE TYPE",10.01)=""
^DD(4.3,"B","LARGE MESSAGE REPORT LINES",8.14)=""
^DD(4.3,"B","LIMITED BROADCAST",50)=""
^DD(4.3,"B","LIMITED BROADCAST DEFAULT",51)=""
^DD(4.3,"B","LPC CHECKSUM",8.11)=""
^DD(4.3,"B","MAX DIGITS FOR MESSAGE NUMBER",17.1)=""
^DD(4.3,"B","MESSAGE ACTION DEFAULT",5.1)=""
^DD(4.3,"B","MY DOMAINS",41)=""
^DD(4.3,"B","NETWORK - BLOCK SIZE RECEIVE",8.32)=""
^DD(4.3,"B","NETWORK - MAX LINES RECEIVE",8.31)=""
^DD(4.3,"B","NETWORK - MAX LINES SEND",8.3)=""
^DD(4.3,"B","NO-PURGE DAYS BUFFER",4.301)=""
^DD(4.3,"B","NO-PURGE DAYS BUFFER (LOCAL)",142)=""
^DD(4.3,"B","NUMBER",.001)=""
^DD(4.3,"B","P-MESSAGE LINE LIMIT",16.1)=""
^DD(4.3,"B","PARENT",3)=""
^DD(4.3,"B","PREVENT MESSAGE RELAY?",40)=""
^DD(4.3,"B","PURGE AUDIT",4.302)=""
^DD(4.3,"B","RECORD NETMAIL TRANSCRIPT?",8.2)=""
^DD(4.3,"B","REQUIRE INTRODUCTIONS?",7)=""
^DD(4.3,"B","SHOW ADDRESS ON USER LOOKUP",7.4)=""
^DD(4.3,"B","SHOW DUZ WHEN ADDRESS MESSAGE",7.3)=""
^DD(4.3,"B","SHOW INSTITUTION IN MAILMAN?",5)=""
^DD(4.3,"B","STATS NORMALIZATION",8.13)=""
^DD(4.3,"B","SUBORDINATE DOMAIN",2)=""
^DD(4.3,"B","TCP CHANNEL - MAXIMUM TO USE",8.12)=""
^DD(4.3,"B","TCP/IP COMMUNICATIONS PROTOCOL",8.23)=""
^DD(4.3,"B","TCP/IP DEVICE",8.25)=""
^DD(4.3,"B","TCP/IP POLLER RUN FLAG",8.15)=""
^DD(4.3,"B","TCP/IP TRANSMISSION SCRIPT",8.24)=""
^DD(4.3,"B","TIME ZONE",1)=""
^DD(4.3,"B","TITLE SOURCE",23)=""
^DD(4.3,"B","WEEKDAY DAYS TO PURGE",4.304)=""
^DD(4.3,"B","XMITS TILL ERROR MESSAGE",8.21)=""
^DD(4.3,"GL",0,1,.01)=""
^DD(4.3,"GL",0,2,1)=""
^DD(4.3,"GL",0,3,3)=""
^DD(4.3,"GL",0,4,4)=""
^DD(4.3,"GL",0,5,5)=""
^DD(4.3,"GL",0,6,7)=""
^DD(4.3,"GL",0,7,7.2)=""
^DD(4.3,"GL",0,8,7.3)=""
^DD(4.3,"GL",0,9,10)=""
^DD(4.3,"GL",0,10,7.4)=""
^DD(4.3,"GL",0,11,23)=""
^DD(4.3,"GL",0,12,7.5)=""
^DD(4.3,"GL",0,13,10.1)=""
^DD(4.3,"GL",0,14,8.2)=""
^DD(4.3,"GL",0,15,5.1)=""
^DD(4.3,"GL",0,16,10.2)=""
^DD(4.3,"GL",0,17,8.12)=""
^DD(4.3,"GL",0,18,8.15)=""
^DD(4.3,"GL",0,19,143)=""
^DD(4.3,"GL",0,20,51)=""
^DD(4.3,"GL",.1,0,4.302)=""
^DD(4.3,"GL",.11,1,5.11)=""
^DD(4.3,"GL",.11,2,5.12)=""
^DD(4.3,"GL",.11,3,5.13)=""
^DD(4.3,"GL",.12,1,4.303)=""
^DD(4.3,"GL",.13,1,10.3)=""
^DD(4.3,"GL",.14,1,4.301)=""
^DD(4.3,"GL",.14,2,142)=""
^DD(4.3,"GL",.15,1,10.01)=""
^DD(4.3,"GL",.16,1,16.1)=""
^DD(4.3,"GL",.17,1,17.1)=""
^DD(4.3,"GL",.18,1,10.03)=""
^DD(4.3,"GL",.18,2,10.04)=""
^DD(4.3,"GL",1,0,2)=""
^DD(4.3,"GL",2,1,21)=""
^DD(4.3,"GL",2,2,22)=""
^DD(4.3,"GL",3,1,31)=""
^DD(4.3,"GL",3.1,0,31.1)=""
^DD(4.3,"GL",3.2,0,31.2)=""
^DD(4.3,"GL",4,1,40)=""
^DD(4.3,"GL",4.1,0,41)=""
^DD(4.3,"GL",5,0,50)=""
^DD(4.3,"GL",6,1,241)=""
^DD(4.3,"GL",6,2,242)=""
^DD(4.3,"GL",7,1,8.13)=""
^DD(4.3,"GL",8.4,1,8.4)=""
^DD(4.3,"GL","DISK/VOL",1,7.7)=""
^DD(4.3,"GL","FORWARD",1,7.01)=""
^DD(4.3,"GL","FTP-GET",1,7.6)=""
^DD(4.3,"GL","FTP-NOTES",0,7.7999)=""
^DD(4.3,"GL","FTP-RCV",1,7.72)=""
^DD(4.3,"GL","FTPNETLOC",1,7.71)=""
^DD(4.3,"GL","FTPPWD",1,7.731)=""
^DD(4.3,"GL","FTPRCVDISK",1,7.711)=""
^DD(4.3,"GL","FTPUSER",1,7.73)=""
^DD(4.3,"GL","LPC","E1,245",8.11)=""
^DD(4.3,"GL","NETWORK",1,8.21)=""
^DD(4.3,"GL","NETWORK",2,8.22)=""
^DD(4.3,"GL","NETWORK",3,8.23)=""
^DD(4.3,"GL","NETWORK",4,8.24)=""
^DD(4.3,"GL","NETWORK",5,8.25)=""
^DD(4.3,"GL","NETWORK-LIMIT",1,8.3)=""
^DD(4.3,"GL","NETWORK-LIMIT",2,8.31)=""
^DD(4.3,"GL","NETWORK-LIMIT",3,8.32)=""
^DD(4.3,"GL","NOTOPURGE",1,4.304)=""
^DD(4.3,"GL","XMUT2-LINES",1,8.14)=""
^DD(4.3,"GL","XUS",17,217)=""
^DD(4.3,"IX",.01)=""
^DD(4.3,"IX",1)=""
^DD(4.3,"IX",3)=""
^DD(4.3,"RQ",.01)=""
^DD(4.3,"RQ",1)=""
^DD(4.3,"RQ",217)=""
^DD(4.3,"SB",4.302,4.302)=""
^DD(4.3,"SB",4.31,2)=""
^DD(4.3,"SB",4.32,50)=""
^DD(4.3,"SB",4.33,31.1)=""
^DD(4.3,"SB",4.34,31.2)=""
^DD(4.3,"SB",4.341,41)=""
^DD(4.3,"SB",4.37,7.7999)=""
^DD(4.302,0)="PURGE AUDIT SUB-FIELD^^8^9"
^DD(4.302,0,"DT")="2980916"
^DD(4.302,0,"IX","B",4.302,.01)=""
^DD(4.302,0,"NM","PURGE AUDIT")=""
^DD(4.302,0,"UP")="4.3"
^DD(4.302,.01,0)="PURGE DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(4.302,.01,1,0)="^.1"
^DD(4.302,.01,1,1,0)="4.302^B"
^DD(4.302,.01,1,1,1)="S ^XMB(1,DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(4.302,.01,1,1,2)="K ^XMB(1,DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(4.302,.01,3)="Enter the purge date you are interested in."
^DD(4.302,.01,21,0)="^^1^1^2980122^^"
^DD(4.302,.01,21,1,0)="This is a date on which one of the purges ran."
^DD(4.302,.01,"DT")="2980123"
^DD(4.302,1,0)="REMAINING MESSAGES^NJ8,0^^0;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.302,1,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(4.302,1,21,0)="^^1^1^2980122^^^^"
^DD(4.302,1,21,1,0)="This is the number of messages that remained on file after the purge ran."
^DD(4.302,1,"DT")="2980123"
^DD(4.302,2,0)="PURGED MESSAGES^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(4.302,2,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(4.302,2,21,0)="^^1^1^2980122^^^"
^DD(4.302,2,21,1,0)="This is the number of messages that were purged."
^DD(4.302,2,"DT")="2890726"
^DD(4.302,3,0)="START PURGE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(4.302,3,3)="Enter the date at which you wish processing to start."
^DD(4.302,3,21,0)="^^4^4^2980916^^^^"
^DD(4.302,3,21,1,0)="This is the date entered by the user.  It refers to the starting date"
^DD(4.302,3,21,2,0)="of the purge process for unreferenced messages.  All unreferenced"
^DD(4.302,3,21,3,0)="messages sent on or after this date (and on or before the ending date)"
^DD(4.302,3,21,4,0)="are subject to purge."
^DD(4.302,3,"DT")="2980916"
^DD(4.302,4,0)="STOP PURGE DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(4.302,4,3)="Enter the date after which you wish processing to stop."
^DD(4.302,4,21,0)="^^4^4^2980916^^^^"
^DD(4.302,4,21,1,0)="This is the date entered by the user.  It refers to the ending date"
^DD(4.302,4,21,2,0)="of the purge process for unreferenced messages.  All unreferenced"
^DD(4.302,4,21,3,0)="messages sent on or before this date (and on or after the starting date)"
^DD(4.302,4,21,4,0)="are subject to purge."
^DD(4.302,4,"DT")="2980916"
^DD(4.302,5,0)="PURGE TYPE^S^1:DATE PURGE;0:UNREFERENCED MESSAGES PURGE;^0;6^Q"
^DD(4.302,5,3)="Which type of purge is this?"
^DD(4.302,5,21,0)="^^1^1^2980123^^"
^DD(4.302,5,21,1,0)="There are purges of unreferenced messages and there are date purges."
^DD(4.302,5,"DT")="2980123"
^DD(4.302,6,0)="PURGE MESSAGES OLDER THAN DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(4.302,6,21,0)="^^10^10^2980916^^^^"
^DD(4.302,6,21,1,0)="This field is used during date purges and unreferenced message purges."
^DD(4.302,6,21,2,0)=""
^DD(4.302,6,21,3,0)="During date purges, messages older than this date are purged from the"
^DD(4.302,6,21,4,0)="Message file."
^DD(4.302,6,21,5,0)=""
^DD(4.302,6,21,6,0)="During unreferenced message purges, unreferenced messages are purged"
^DD(4.302,6,21,7,0)="if they were created on or before the purge end date."
^DD(4.302,6,21,8,0)="However, messages which originated locally and were sent to remote sites"
^DD(4.302,6,21,9,0)="are not purged if they were created on or after this date.  This is to"
^DD(4.302,6,21,10,0)="give the remote sites some time to reply to the unreferenced message."
^DD(4.302,6,"DT")="2980916"
^DD(4.302,7,0)="LAST UPDATE^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(4.302,7,21,0)="^^4^4^2980918^^"
^DD(4.302,7,21,1,0)="This is the date & time of the last update by the process."
^DD(4.302,7,21,2,0)="It, along with the LAST DATE PROCESSED field,"
^DD(4.302,7,21,3,0)="should indicate to the user that the task is progressing"
^DD(4.302,7,21,4,0)="as it is checked and changes during the process."
^DD(4.302,7,"DT")="2900125"
^DD(4.302,8,0)="LAST DATE PROCESSED^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(4.302,8,3)=""
^DD(4.302,8,21,0)="^^4^4^2980916^^^"
^DD(4.302,8,21,1,0)="This field is updated during the date purge."
^DD(4.302,8,21,2,0)="It is the local create date of the last message actually processed"
^DD(4.302,8,21,3,0)="when the update was made to the progress data which also includes"
^DD(4.302,8,21,4,0)="the date/time of the update."
^DD(4.302,8,"DT")="2980916"
^DD(4.302,"B","LAST DATE PROCESSED",8)=""
^DD(4.302,"B","LAST UPDATE",7)=""
^DD(4.302,"B","PURGE DATE",.01)=""
^DD(4.302,"B","PURGE MESSAGES OLDER THAN DATE",6)=""
^DD(4.302,"B","PURGE TYPE",5)=""
^DD(4.302,"B","PURGED MESSAGES",2)=""
^DD(4.302,"B","REMAINING MESSAGES",1)=""
^DD(4.302,"B","START PURGE DATE",3)=""
^DD(4.302,"B","STOP PURGE DATE",4)=""
^DD(4.302,"GL",0,1,.01)=""
^DD(4.302,"GL",0,2,1)=""
^DD(4.302,"GL",0,3,2)=""
^DD(4.302,"GL",0,4,3)=""
^DD(4.302,"GL",0,5,4)=""
^DD(4.302,"GL",0,6,5)=""
^DD(4.302,"GL",0,7,6)=""
^DD(4.302,"GL",0,8,7)=""
^DD(4.302,"GL",0,9,8)=""
^DD(4.302,"IX",.01)=""
^DD(4.31,0)="SUBORDINATE DOMAIN SUB-FIELD^NL^2^3"
^DD(4.31,0,"DT")="2910618"
^DD(4.31,0,"NM","SUBORDINATE DOMAIN")=""
^DD(4.31,0,"UP")="4.3"
^DD(4.31,.01,0)="SUBORDINATE DOMAIN^MP4.2'^DIC(4.2,^0;1^Q"
^DD(4.31,.01,3)="This is a list of all domains which consider this domain a parent"
^DD(4.31,.01,21,0)="^^4^4^2980122^^"
^DD(4.31,.01,21,1,0)="This field is not currently used."
^DD(4.31,.01,21,2,0)="This is a domain which is subordinate to this local MailMan"
^DD(4.31,.01,21,3,0)="domain, i.e. a domain which considers this local domain a"
^DD(4.31,.01,21,4,0)="""parent""."
^DD(4.31,1,0)="DATE CHRISTENED^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(4.31,1,3)="Date on which this subordinate domain was christened.."
^DD(4.31,1,21,0)="^^4^4^2980122^^"
^DD(4.31,1,21,1,0)="This field is not currently used."
^DD(4.31,1,21,2,0)="This field holds the date and time on which this subordinate domain"
^DD(4.31,1,21,3,0)="was accepted by this domain.  It is controlled automatically by the"
^DD(4.31,1,21,4,0)="MailMan christening operation."
^DD(4.31,2,0)="CHRISTENED BY^P200'^VA(200,^0;3^Q"
^DD(4.31,2,21,0)="^^3^3^2980122^^"
^DD(4.31,2,21,1,0)="This field is not currently used."
^DD(4.31,2,21,2,0)="This field holds the name of the user who performed the christening"
^DD(4.31,2,21,3,0)="operation on this subordinate domain."
^DD(4.31,2,"DT")="2910618"
^DD(4.31,"B","CHRISTENED BY",2)=""
^DD(4.31,"B","DATE CHRISTENED",1)=""
^DD(4.31,"B","SUBORDINATE DOMAIN",.01)=""
^DD(4.31,"GL",0,1,.01)=""
^DD(4.31,"GL",0,2,1)=""
^DD(4.31,"GL",0,3,2)=""
^DD(4.32,0)="LIMITED BROADCAST SUB-FIELD^^2^3"
^DD(4.32,0,"DT")="2991116"
^DD(4.32,0,"IX","B",4.32,.01)=""
^DD(4.32,0,"NM","LIMITED BROADCAST")=""
^DD(4.32,0,"UP")="4.3"
^DD(4.32,.01,0)="LIMITED BROADCAST^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(4.32,.01,1,0)="^.1"
^DD(4.32,.01,1,1,0)="4.32^B"
^DD(4.32,.01,1,1,1)="S ^XMB(1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(4.32,.01,1,1,2)="K ^XMB(1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(4.32,.01,3)="Answer must be 3-30 characters in length"
^DD(4.32,.01,21,0)="^^1^1^2991028^^"
^DD(4.32,.01,21,1,0)="This is the name of the associated field in the NEW PERSON file."
^DD(4.32,.01,"DT")="2991025"
^DD(4.32,1,0)="POINTED TO FILE^RP1'^DIC(^0;2^Q"
^DD(4.32,1,3)="Answer with FILE NUMBER, or NAME"
^DD(4.32,1,21,0)="^^1^1^2991116^^^^"
^DD(4.32,1,21,1,0)="This is the file pointed to by the associated field in the NEW PERSON file."
^DD(4.32,1,"DT")="2991116"
^DD(4.32,2,0)="NEW PERSON FILE XREF^RF^^0;3^K:$L(X)>4!($L(X)<1) X"
^DD(4.32,2,3)="Answer must be 1-4 characters in length."
^DD(4.32,2,21,0)="^^2^2^2991116^^^"
^DD(4.32,2,21,1,0)="This is the name of the (whole file) cross reference on the associated"
^DD(4.32,2,21,2,0)="field in the NEW PERSON file."
^DD(4.32,2,"DT")="2991116"
^DD(4.32,"B","LIMITED BROADCAST",.01)=""
^DD(4.32,"B","NEW PERSON FILE XREF",2)=""
^DD(4.32,"B","POINTED TO FILE",1)=""
^DD(4.32,"GL",0,1,.01)=""
^DD(4.32,"GL",0,2,1)=""
^DD(4.32,"GL",0,3,2)=""
^DD(4.32,"IX",.01)=""
^DD(4.32,"RQ",1)=""
^DD(4.32,"RQ",2)=""
^DD(4.324,0)="INTRO TEXT SUB-FIELD^^.01^1"
^DD(4.324,0,"NM","INTRO TEXT")=""
^DD(4.324,0,"UP")="4.3"
^DD(4.324,.01,0)="INTRO TEXT^WL^^0;1^Q"
^DD(4.324,.01,3)="This text is displayed as an intro before any checking."
^DD(4.324,.01,21,0)="^^2^2^2891109^"
^DD(4.324,.01,21,1,0)="This field holds the text that is initially displayed at signon, before"
^DD(4.324,.01,21,2,0)="the prompt for access code or other checking."
^DD(4.324,.01,23,0)="^^4^4^2891109^"
^DD(4.324,.01,23,1,0)="The current location is ^XMB(1,1,""INTRO"", referencing this field.  The"
^DD(4.324,.01,23,2,0)="previous location was ^XMB(""MGR"",""INTRO"", which did not correspond to"
^DD(4.324,.01,23,3,0)="any field in a file.  The XUSERINT option, an action type, is used now,"
^DD(4.324,.01,23,4,0)="as in the past, to edit introductory text."
^DD(4.324,.01,23,5,0)="text."
^DD(4.324,.01,"DT")="2890727"
^DD(4.324,"B","INTRO TEXT",.01)=""
^DD(4.324,"GL",0,1,.01)=""
^DD(4.33,0)="AUTO-FORWARD APPROVED SITE SUB-FIELD^^.01^1"
^DD(4.33,0,"DT")="3030414"
^DD(4.33,0,"IX","B",4.33,.01)=""
^DD(4.33,0,"NM","AUTO-FORWARD APPROVED SITE")=""
^DD(4.33,0,"UP")="4.3"
^DD(4.33,.01,0)="AUTO-FORWARD APPROVED SITE^MF^^0;1^K:$L(X)>64!($L(X)<3) X"
^DD(4.33,.01,1,0)="^.1"
^DD(4.33,.01,1,1,0)="4.33^B"
^DD(4.33,.01,1,1,1)="S ^XMB(1,DA(1),3.1,""B"",$E(X,1,64),DA)="""""
^DD(4.33,.01,1,1,2)="K ^XMB(1,DA(1),3.1,""B"",$E(X,1,64),DA)"
^DD(4.33,.01,3)="Answer must be 3-64 characters in length."
^DD(4.33,.01,21,0)="^^5^5^3030414^^"
^DD(4.33,.01,21,1,0)="If the AUTO-FORWARD LIMIT? (#31) field is set to YES, auto-forward addresses"
^DD(4.33,.01,21,2,0)="are limited to sites which are listed here, or which end in those which are"
^DD(4.33,.01,21,3,0)="listed here."
^DD(4.33,.01,21,4,0)=""
^DD(4.33,.01,21,5,0)="For VA sites, the one and only entry should be "".VA.GOV""."
^DD(4.33,.01,"DT")="3030414"
^DD(4.33,"B","AUTO-FORWARD APPROVED SITE",.01)=""
^DD(4.33,"GL",0,1,.01)=""
^DD(4.33,"IX",.01)=""
^DD(4.34,0)="AUTO-FORWARD WAIVER SITE SUB-FIELD^^.01^1"
^DD(4.34,0,"DT")="3030414"
^DD(4.34,0,"IX","B",4.34,.01)=""
^DD(4.34,0,"NM","AUTO-FORWARD WAIVER SITE")=""
^DD(4.34,0,"UP")="4.3"
^DD(4.34,.01,0)="AUTO-FORWARD WAIVER SITE^MF^^0;1^K:$L(X)>64!($L(X)<3) X"
^DD(4.34,.01,1,0)="^.1"
^DD(4.34,.01,1,1,0)="4.34^B"
^DD(4.34,.01,1,1,1)="S ^XMB(1,DA(1),3.2,""B"",$E(X,1,64),DA)="""""
^DD(4.34,.01,1,1,2)="K ^XMB(1,DA(1),3.2,""B"",$E(X,1,64),DA)"
^DD(4.34,.01,3)="Answer must be 3-64 characters in length."
^DD(4.34,.01,21,0)="^.001^11^11^3030415^^^^"
^DD(4.34,.01,21,1,0)="If the AUTO-FORWARD LIMIT? (#31) field is set to YES, auto-forward"
^DD(4.34,.01,21,2,0)="addresses are limited to sites in the AUTO-FORWARD APPROVED SITE (#31.1)"
^DD(4.34,.01,21,3,0)="multiple."
^DD(4.34,.01,21,4,0)=""
^DD(4.34,.01,21,5,0)="However, any user who has been assigned the XM AUTO-FORWARD WAIVER"
^DD(4.34,.01,21,6,0)="security key, may also auto-forward to the sites which are listed here,"
^DD(4.34,.01,21,7,0)="or which end in those which are listed here."
^DD(4.34,.01,21,8,0)=""
^DD(4.34,.01,21,9,0)="Requests for waivers must be submitted through the site Information Security"
^DD(4.34,.01,21,10,0)="Officer (ISO).  Only after a waiver has been granted may a site be added"
^DD(4.34,.01,21,11,0)="here.  Check with the ISO for details on the requirements for the waiver."
^DD(4.34,.01,"DT")="3030415"
^DD(4.34,"B","AUTO-FORWARD WAIVER SITE",.01)=""
^DD(4.34,"GL",0,1,.01)=""
^DD(4.34,"IX",.01)=""
^DD(4.341,0)="MY DOMAINS SUB-FIELD^^.01^1"
^DD(4.341,0,"DT")="3040209"
^DD(4.341,0,"IX","B",4.341,.01)=""
^DD(4.341,0,"NM","MY DOMAINS")=""
^DD(4.341,0,"UP")="4.3"
^DD(4.341,.01,0)="MY DOMAINS^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(4.341,.01,1,0)="^.1"
^DD(4.341,.01,1,1,0)="4.341^B"
^DD(4.341,.01,1,1,1)="S ^XMB(1,DA(1),4.1,""B"",$E(X,1,30),DA)="""""
^DD(4.341,.01,1,1,2)="K ^XMB(1,DA(1),4.1,""B"",$E(X,1,30),DA)"
^DD(4.341,.01,3)="Answer must be 3-30 characters in length."
^DD(4.341,.01,21,0)="^.001^24^24^3040217^^^"
^DD(4.341,.01,21,1,0)="If you answered YES to PREVENT MESSAGE RELAYING? (field #40), to stop"
^DD(4.341,.01,21,2,0)="your site from relaying messages from outside sites through your site to"
^DD(4.341,.01,21,3,0)="other outside sites, you may add entries here, in order to define what is"
^DD(4.341,.01,21,4,0)="an ""inside"" site, or sites whose messages your site is willing to relay."
^DD(4.341,.01,21,5,0)=""
^DD(4.341,.01,21,6,0)="For example, if your site is a VA site, then other VA sites are ""inside"""
^DD(4.341,.01,21,7,0)="sites, and your site should relay mail for them.  So, any site whose domain"
^DD(4.341,.01,21,8,0)="name ends in "".VA.GOV"" is an ""inside"" site.  So VA sites should have only"
^DD(4.341,.01,21,9,0)="one record in this multiple, and it should be "".VA.GOV""."
^DD(4.341,.01,21,10,0)=""
^DD(4.341,.01,21,11,0)="The default, if there are no entries in this multiple, is your site's"
^DD(4.341,.01,21,12,0)="domain name."
^DD(4.341,.01,21,13,0)=""
^DD(4.341,.01,21,14,0)="MailMan will check the site name of any site which connects to it, and"
^DD(4.341,.01,21,15,0)="identifies itself in the SMTP HELO <sitename> command.  If the sitename"
^DD(4.341,.01,21,16,0)="ends in any of the entries in this multiple, then any mail coming from"
^DD(4.341,.01,21,17,0)="that site through your site to other sites, will be accepted and relayed"
^DD(4.341,.01,21,18,0)="onward."
^DD(4.341,.01,21,19,0)=""
^DD(4.341,.01,21,20,0)="If the sitename does not end in any of the entries in this multiple, then"
^DD(4.341,.01,21,21,0)="messages will only be accepted that are addressed to recipients whose"
^DD(4.341,.01,21,22,0)="sitenames end in one of the entries in this multiple.  Otherwise, the site"
^DD(4.341,.01,21,23,0)="will receive an error message telling it that relaying is denied, and"
^DD(4.341,.01,21,24,0)="messages will not be accepted for relaying onward."
^DD(4.341,.01,"DT")="3040217"
^DD(4.341,"B","MY DOMAINS",.01)=""
^DD(4.341,"GL",0,1,.01)=""
^DD(4.341,"IX",.01)=""
^DD(4.37,0)="FTP NOTES SUB-FIELD^^.01^1"
^DD(4.37,0,"DT")="2930616"
^DD(4.37,0,"NM","FTP NOTES")=""
^DD(4.37,0,"UP")="4.3"
^DD(4.37,.01,0)="FTP NOTES^WL^^0;1^Q"
^DD(4.37,.01,3)="Put special notes revelant to the FTP operations of this site."
^DD(4.37,.01,21,0)="^^1^1^2931214^"
^DD(4.37,.01,21,1,0)="See above."
^DD(4.37,.01,"DT")="2930616"
^DD(4.37,"B","FTP NOTES",.01)=""
^DD(4.37,"GL",0,1,.01)=""
^DD(4.4,0)="FIELD^^2^3"
^DD(4.4,0,"DDA")="Y"
^DD(4.4,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(4.4,0,"IX","B",4.4,.01)=""
^DD(4.4,0,"IX","C",4.4,1)=""
^DD(4.4,0,"NM","MAILMAN TIME ZONE")=""
^DD(4.4,0,"PT",4.3,1)=""
^DD(4.4,0,"PT",990.8,10)=""
^DD(4.4,0,"PT",990.8,11)=""
^DD(4.4,0,"VR")="8.0"
^DD(4.4,0,"VRPK")="MAILMAN"
^DD(4.4,.01,0)="CODE^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X?3U) X"
^DD(4.4,.01,.1)="Three character code, naming the zone."
^DD(4.4,.01,1,0)="^.1"
^DD(4.4,.01,1,1,0)="4.4^B"
^DD(4.4,.01,1,1,1)="S ^XMB(4.4,""B"",$E(X,1,30),DA)="""""
^DD(4.4,.01,1,1,2)="K ^XMB(4.4,""B"",$E(X,1,30),DA)"
^DD(4.4,.01,3)="Must be three upper case letters"
^DD(4.4,.01,21,0)="^^1^1^2851009^"
^DD(4.4,.01,21,1,0)="The 3 character code for the Time Zone, i.e. EST, CST, MST, PST, etc."
^DD(4.4,1,0)="TIME ZONE NAME^F^^0;2^K:$L(X)>25!($L(X)<5) X"
^DD(4.4,1,1,0)="^.1"
^DD(4.4,1,1,1,0)="4.4^C"
^DD(4.4,1,1,1,1)="S ^XMB(4.4,""C"",$E(X,1,30),DA)="""""
^DD(4.4,1,1,1,2)="K ^XMB(4.4,""C"",$E(X,1,30),DA)"
^DD(4.4,1,3)="ANSWER MUST BE 5-25 CHARACTERS IN LENGTH"
^DD(4.4,1,21,0)="^^1^1^2851009^"
^DD(4.4,1,21,1,0)="The formal name of the Time Zone, i.e. Eastern Standard Time, etc."
^DD(4.4,2,0)="DIFFERENTIAL^NJ4,1^^0;3^K:+X'=X!(X>12)!(X<-12)!(X?.E1"".""2N.N) X"
^DD(4.4,2,3)="Enter the number of hours before or after GMT"
^DD(4.4,2,21,0)="^^1^1^2851009^"
^DD(4.4,2,21,1,0)="The number of hours before or after GMT."
^DD(4.4,"B","CODE",.01)=""
^DD(4.4,"B","DIFFERENTIAL",2)=""
^DD(4.4,"B","TIME ZONE NAME",1)=""
^DD(4.4,"GL",0,1,.01)=""
^DD(4.4,"GL",0,2,1)=""
^DD(4.4,"GL",0,3,2)=""
^DD(4.4,"IX",.01)=""
^DD(4.4,"IX",1)=""
^DD(4.4,"RQ",.01)=""
^DD(4.5,0)="FIELD^^6^7"
^DD(4.5,0,"IX","B",4.5,.01)=""
^DD(4.5,0,"IX","C",4.5,1)=""
^DD(4.5,0,"NM","NETWORK TRANSACTION")=""
^DD(4.5,.01,0)="NAME^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(4.5,.01,1,0)="^.1"
^DD(4.5,.01,1,1,0)="4.5^B"
^DD(4.5,.01,1,1,1)="S ^XMB(4.5,""B"",$E(X,1,30),DA)="""""
^DD(4.5,.01,1,1,2)="K ^XMB(4.5,""B"",$E(X,1,30),DA)"
^DD(4.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(4.5,.01,21,0)="^^1^1^2931214^"
^DD(4.5,.01,21,1,0)="This file is obsolete."
^DD(4.5,1,0)="IDENTIFIER^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<2) X"
^DD(4.5,1,1,0)="^.1"
^DD(4.5,1,1,1,0)="4.5^C"
^DD(4.5,1,1,1,1)="S ^XMB(4.5,""C"",$E(X,1,30),DA)="""""
^DD(4.5,1,1,1,2)="K ^XMB(4.5,""C"",$E(X,1,30),DA)"
^DD(4.5,1,3)="The identifier from the delivery text header"
^DD(4.5,1,21,0)="^^1^1^2931214^"
^DD(4.5,1,21,1,0)="This file is obsolete."
^DD(4.5,2,0)="PREPROCESSING LOGIC^FX^^1;E1,200^K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM"
^DD(4.5,2,3)="Logic to be invoked before transaction is passed on"
^DD(4.5,2,21,0)="^^1^1^2931214^"
^DD(4.5,2,21,1,0)="This file is obsolete."
^DD(4.5,3,0)="POSTPROCESSING LOGIC^FX^^2;E1,200^K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM"
^DD(4.5,3,3)="Logic to be invoked after transaction is passed on"
^DD(4.5,3,21,0)="^^1^1^2931214^"
^DD(4.5,3,21,1,0)="This file is obsolete."
^DD(4.5,4,0)="RECIPIENT^4.51^^3;0"
^DD(4.5,4,21,0)="^^1^1^2931214^"
^DD(4.5,4,21,1,0)="This file is obsolete."
^DD(4.5,5,0)="RECORD TYPE SELECTOR^FX^^4;E1,200^K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM"
^DD(4.5,5,3)="Logic to determine which record to use"
^DD(4.5,6,0)="RECORD^4.52^^5;0"
^DD(4.5,6,21,0)="^^1^1^2931214^"
^DD(4.5,6,21,1,0)="This file is obsolete."
^DD(4.5,"B","IDENTIFIER",1)=""
^DD(4.5,"B","NAME",.01)=""
^DD(4.5,"B","POSTPROCESSING LOGIC",3)=""
^DD(4.5,"B","PREPROCESSING LOGIC",2)=""
^DD(4.5,"B","RECIPIENT",4)=""
^DD(4.5,"B","RECORD",6)=""
^DD(4.5,"B","RECORD TYPE SELECTOR",5)=""
^DD(4.5,"GL",0,1,.01)=""
^DD(4.5,"GL",0,2,1)=""
^DD(4.5,"GL",1,"E1,200",2)=""
^DD(4.5,"GL",2,"E1,200",3)=""
^DD(4.5,"GL",3,0,4)=""
^DD(4.5,"GL",4,"E1,200",5)=""
^DD(4.5,"GL",5,0,6)=""
^DD(4.5,"IX",.01)=""
^DD(4.5,"IX",1)=""
^DD(4.5,"RQ",.01)=""
^DD(4.5,"SB",4.51,4)=""
^DD(4.5,"SB",4.52,6)=""
^DD(4.501,0)="FIELD^^1^2"
^DD(4.501,0,"DDA")="N"
^DD(4.501,0,"DT")="2930501"
^DD(4.501,0,"IX","B",4.501,.01)=""
^DD(4.501,0,"NM","NETWORK SENDERS REJECTED")=""
^DD(4.501,0,"VR")="8.0"
^DD(4.501,0,"VRPK")="MAILMAN"
^DD(4.501,.01,0)="NAME^RF^^0;1^K:$L(X)>99!($L(X)<3)!'(X'?1P.E) X"
^DD(4.501,.01,1,0)="^.1"
^DD(4.501,.01,1,1,0)="4.501^B"
^DD(4.501,.01,1,1,1)="S ^XMBX(4.501,""B"",$E(X,1,30),DA)="""""
^DD(4.501,.01,1,1,2)="K ^XMBX(4.501,""B"",$E(X,1,30),DA)"
^DD(4.501,.01,3)="Answer must be 3-99 characters in length."
^DD(4.501,.01,21,0)="^^9^9^3020422^^"
^DD(4.501,.01,21,1,0)="This field contains a list of senders from whom messages will be rejected."
^DD(4.501,.01,21,2,0)="The test is that the sender's name contains the string in one of these"
^DD(4.501,.01,21,3,0)="fields.  A site could therefore choose to reject all messages that come"
^DD(4.501,.01,21,4,0)="from a particular domain, from a person at a domain or from any domain"
^DD(4.501,.01,21,5,0)="that is a subdomain of a domain.  This is not a complete list, but is a set"
^DD(4.501,.01,21,6,0)="of examples of what could be done."
^DD(4.501,.01,21,7,0)=""
^DD(4.501,.01,21,8,0)="Rejection is done during the processing of the MAIL FROM: message protocol"
^DD(4.501,.01,21,9,0)="data unit."
^DD(4.501,.01,"DT")="3020422"
^DD(4.501,1,0)="USE FLAG^S^1:DO NOT USE;0:USE;^0;2^Q"
^DD(4.501,1,"DT")="2930501"
^DD(4.501,"B","NAME",.01)=""
^DD(4.501,"B","USE FLAG",1)=""
^DD(4.501,"GL",0,1,.01)=""
^DD(4.501,"GL",0,2,1)=""
^DD(4.501,"IX",.01)=""
^DD(4.501,"RQ",.01)=""
^DD(4.51,0)="RECIPIENT SUB-FIELD^NL^.01^1"
^DD(4.51,0,"NM","RECIPIENT")=""
^DD(4.51,0,"UP")="4.5"
^DD(4.51,.01,0)="RECIPIENT^MF^^0;1^K:$L(X)>45!($L(X)<2) X"
^DD(4.51,.01,3)="Enter names of recipients and their routing information"
^DD(4.51,.01,21,0)="^^1^1^2931214^"
^DD(4.51,.01,21,1,0)="This field is obsolete."
^DD(4.51,"B","RECIPIENT",.01)=""
^DD(4.51,"GL",0,1,.01)=""
^DD(4.52,0)="RECORD SUB-FIELD^NL^1^2"
^DD(4.52,0,"IX","B",4.52,.01)=""
^DD(4.52,0,"IX","C",4.53,10)=""
^DD(4.52,0,"NM","RECORD")=""
^DD(4.52,0,"UP")="4.5"
^DD(4.52,.01,0)="RECORD^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(4.52,.01,1,0)="^.1"
^DD(4.52,.01,1,1,0)="4.52^B"
^DD(4.52,.01,1,1,1)="S ^XMB(4.5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(4.52,.01,1,1,2)="K ^XMB(4.5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(4.52,.01,3)="Enter the name of the record"
^DD(4.52,.01,21,0)="^^1^1^2931214^"
^DD(4.52,.01,21,1,0)="This file is obsolete."
^DD(4.52,.01,"DT")="2850515"
^DD(4.52,1,0)="FIELD^4.53^^1;0"
^DD(4.52,1,21,0)="^^1^1^2931214^"
^DD(4.52,1,21,1,0)="This file is obsolete."
^DD(4.52,"B","FIELD",1)=""
^DD(4.52,"B","RECORD",.01)=""
^DD(4.52,"GL",0,1,.01)=""
^DD(4.52,"GL",1,0,1)=""
^DD(4.52,"IX",.01)=""
^DD(4.52,"SB",4.53,1)=""
^DD(4.53,0)="FIELD SUB-FIELD^NL^99^13"
^DD(4.53,0,"NM","FIELD")=""
^DD(4.53,0,"UP")="4.52"
^DD(4.53,.01,0)="FIELD NAME^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(4.53,.01,3)="Enter the FileMan name of the field"
^DD(4.53,1,0)="EXTERNAL NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(4.53,1,3)="Enter the COBOL name of the field"
^DD(4.53,1,21,0)="^^1^1^2931214^"
^DD(4.53,1,21,1,0)="This file is obsolete."
^DD(4.53,2,0)="TYPE^SI^F:FREE TEXT;N:NUMERIC;^0;3^Q"
^DD(4.53,2,21,0)="^^1^1^2931214^"
^DD(4.53,2,21,1,0)="This file is obsolete."
^DD(4.53,3,0)="LENGTH^NJ3,0I^^0;4^K:+X'=X!(X>255)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.53,3,3)="Enter the number of bytes for the COBOL field"
^DD(4.53,3,21,0)="^^1^1^2931214^"
^DD(4.53,3,21,1,0)="This file is obsolete."
^DD(4.53,4,0)="DECIMAL PLACES^NJ3,0I^^0;5^K:+X'=X!(X>255)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.53,4,1,0)="^.1^^0"
^DD(4.53,4,3)="Enter the number of digits to the right of the decimal point"
^DD(4.53,4,21,0)="^^1^1^2931214^"
^DD(4.53,4,21,1,0)="This file is obsolete."
^DD(4.53,4,"DT")="2850412"
^DD(4.53,5,0)="START POSITION^NJ3,0^^0;6^K:+X'=X!(X>255)!(X<1)!(X?.E1"".""1N.N) X"
^DD(4.53,5,1,0)="^.1"
^DD(4.53,5,1,1,0)="^^TRIGGER^4.53^9"
^DD(4.53,5,1,1,1)="X ^DD(4.53,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,5,1,1,1.1) X ^DD(4.53,5,1,1,1.4)"
^DD(4.53,5,1,1,1,9.2)="S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S X=X,Y(2)=X S X=$P(Y(1),U,4),Y(3)=X S X=$P(Y(1),U,5),Y(4)=X S X=DIV,Y(5)=X,Y(6)=X"
^DD(4.53,5,1,1,1,9.3)="X ^DD(4.53,5,1,1,1,9.2) S X=$P(Y(1),U,7),X=X S X=X,Y(7)=X,Y(8)=X S X=$P(Y(1),U,8),X=X S X=X"
^DD(4.53,5,1,1,1.1)="S X=DIV X ^DD(4.53,5,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X"
^DD(4.53,5,1,1,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)"
^DD(4.53,5,1,1,1.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,5,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y S X=DIV S X="""" X ^DD(4.53,5,1,1,2.4)"
^DD(4.53,5,1,1,2.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,5,1,1,"CREATE CONDITION")="ALL HERE"
^DD(4.53,5,1,1,"CREATE VALUE")="XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))"
^DD(4.53,5,1,1,"DELETE VALUE")="@"
^DD(4.53,5,1,1,"FIELD")="EXTRACT CODE"
^DD(4.53,5,3)="Enter the byte position where this field begins"
^DD(4.53,5,21,0)="^^1^1^2931214^"
^DD(4.53,5,21,1,0)="This file is obsolete."
^DD(4.53,5,"DT")="2850415"
^DD(4.53,6,0)="TRIM^S^L:LEFT;R:RIGHT;B:BOTH LEFT AND RIGHT;^0;7^Q"
^DD(4.53,6,1,0)="^.1"
^DD(4.53,6,1,1,0)="^^TRIGGER^4.53^9"
^DD(4.53,6,1,1,1)="X ^DD(4.53,6,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,6,1,1,1.1) X ^DD(4.53,6,1,1,1.4)"
^DD(4.53,6,1,1,1,9.2)="S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S X=X,Y(2)=X S X=$P(Y(1),U,4),Y(3)=X S X=$P(Y(1),U,5),Y(4)=X S X=$P(Y(1),U,6),Y(5)=X"
^DD(4.53,6,1,1,1,9.3)="X ^DD(4.53,6,1,1,1,9.2) S Y(6)=X S X=DIV,X=X S X=X,Y(7)=X,Y(8)=X S X=$P(Y(1),U,8),X=X S X=X"
^DD(4.53,6,1,1,1.1)="S X=DIV X ^DD(4.53,6,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X"
^DD(4.53,6,1,1,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)"
^DD(4.53,6,1,1,1.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,6,1,1,2)="X ^DD(4.53,6,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,6,1,1,2.1) X ^DD(4.53,6,1,1,2.4)"
^DD(4.53,6,1,1,2,9.2)="S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S X=X,Y(2)=X S X=$P(Y(1),U,4),Y(3)=X S X=$P(Y(1),U,5),Y(4)=X S X=$P(Y(1),U,6),Y(5)=X S X="""""
^DD(4.53,6,1,1,2,9.3)="X ^DD(4.53,6,1,1,2,9.2) S Y(6)=X,Y(7)=X S X=$P(Y(1),U,8),X=X S X=X"
^DD(4.53,6,1,1,2.1)="S X=DIV X ^DD(4.53,6,1,1,2,9.3) S X1=Y(6) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X"
^DD(4.53,6,1,1,2.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)"
^DD(4.53,6,1,1,2.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,6,1,1,"CREATE CONDITION")="ALL HERE"
^DD(4.53,6,1,1,"CREATE VALUE")="XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))"
^DD(4.53,6,1,1,"DELETE CONDITION")="ALL HERE"
^DD(4.53,6,1,1,"DELETE VALUE")="XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,"""",INTERNAL(IGNORE 0 AND NULL))"
^DD(4.53,6,1,1,"FIELD")="EXTRACT CODE"
^DD(4.53,6,21,0)="^^1^1^2931214^"
^DD(4.53,6,21,1,0)="This file is obsolete."
^DD(4.53,6,"DT")="2850416"
^DD(4.53,7,0)="IGNORE 0 AND NULL^S^Y:YES;N:NO;^0;8^Q"
^DD(4.53,7,1,0)="^.1"
^DD(4.53,7,1,1,0)="^^TRIGGER^4.53^9"
^DD(4.53,7,1,1,1)="X ^DD(4.53,7,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,7,1,1,1.1) X ^DD(4.53,7,1,1,1.4)"
^DD(4.53,7,1,1,1,9.2)="S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S X=X,Y(2)=X S X=$P(Y(1),U,4),Y(3)=X S X=$P(Y(1),U,5),Y(4)=X S X=$P(Y(1),U,6),Y(5)=X"
^DD(4.53,7,1,1,1,9.3)="X ^DD(4.53,7,1,1,1,9.2) S Y(6)=X S X=$P(Y(1),U,7),X=X S X=X,Y(7)=X,Y(8)=X S X=DIV,X=X S X=X"
^DD(4.53,7,1,1,1.1)="S X=DIV X ^DD(4.53,7,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X"
^DD(4.53,7,1,1,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)"
^DD(4.53,7,1,1,1.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,7,1,1,2)="X ^DD(4.53,7,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,7,1,1,2.1) X ^DD(4.53,7,1,1,2.4)"
^DD(4.53,7,1,1,2,9.2)="S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S X=X,Y(2)=X S X=$P(Y(1),U,4),Y(3)=X S X=$P(Y(1),U,5),Y(4)=X S X=$P(Y(1),U,6),Y(5)=X"
^DD(4.53,7,1,1,2,9.3)="X ^DD(4.53,7,1,1,2,9.2) S Y(6)=X S X=$P(Y(1),U,7),X=X S X=X,Y(7)=X S X="""""
^DD(4.53,7,1,1,2.1)="S X=DIV X ^DD(4.53,7,1,1,2,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X"
^DD(4.53,7,1,1,2.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)"
^DD(4.53,7,1,1,2.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,7,1,1,"CREATE CONDITION")="ALL HERE"
^DD(4.53,7,1,1,"CREATE VALUE")="XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))"
^DD(4.53,7,1,1,"DELETE CONDITION")="ALL HERE"
^DD(4.53,7,1,1,"DELETE VALUE")="XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),"""")"
^DD(4.53,7,1,1,"FIELD")="EXTRACT CODE"
^DD(4.53,7,3)="Enter YES if a zero or blank value need not be stored in Fileman."
^DD(4.53,7,21,0)="^^1^1^2931214^"
^DD(4.53,7,21,1,0)="This file is obsolete."
^DD(4.53,7,"DT")="2850416"
^DD(4.53,8,0)="COBOL PICTURE^FX^^0;9^K:$L(X)>30!($L(X)<1) X D:$D(X) ^XMVPIC D:$D(X) ^XMVSTUFF"
^DD(4.53,8,1,0)="^.1"
^DD(4.53,8,1,1,0)="^^TRIGGER^4.53^9"
^DD(4.53,8,1,1,1)="X ^DD(4.53,8,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y X ^DD(4.53,8,1,1,1.1) X ^DD(4.53,8,1,1,1.4)"
^DD(4.53,8,1,1,1,9.2)="S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S X=X,Y(2)=X S X=$P(Y(1),U,4),Y(3)=X S X=$P(Y(1),U,5),Y(4)=X S X=$P(Y(1),U,6),Y(5)=X"
^DD(4.53,8,1,1,1,9.3)="X ^DD(4.53,8,1,1,1,9.2) S Y(6)=X S X=$P(Y(1),U,7),X=X S X=X,Y(7)=X,Y(8)=X S X=$P(Y(1),U,8),X=X S X=X"
^DD(4.53,8,1,1,1.1)="S X=DIV X ^DD(4.53,8,1,1,1,9.3) S X1=Y(7) S X2=Y(5) S X3=Y(4) S X4=Y(3) S X5=Y(2) S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD S X=X"
^DD(4.53,8,1,1,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X X $P(^DD(4.53,99,0),U,5,99) S Y(1)=X S X=Y(1)"
^DD(4.53,8,1,1,1.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,8,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,1)):^(1),1:"""") S X=$E(Y(1),1,200) S DIU=X K Y S X=DIV S X="""" X ^DD(4.53,8,1,1,2.4)"
^DD(4.53,8,1,1,2.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,200),Y=$E(DIH,201,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",200-$L(DIV))_Y),DIH=4.53,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,8,1,1,"CREATE CONDITION")="ALL HERE"
^DD(4.53,8,1,1,"CREATE VALUE")="XMVCODE(INTERNAL(TYPE),LENGTH,DECIMAL PLACES,START POSITION,INTERNAL(TRIM),INTERNAL(IGNORE 0 AND NULL))"
^DD(4.53,8,1,1,"DELETE VALUE")="@"
^DD(4.53,8,1,1,"FIELD")="EXTRACT CODE"
^DD(4.53,8,3)="Enter the COBOL picture that defines the field"
^DD(4.53,8,21,0)="^^1^1^2931214^"
^DD(4.53,8,21,1,0)="This file is obsolete."
^DD(4.53,8,"DT")="2850415"
^DD(4.53,9,0)="EXTRACT CODE^FX^^1;E1,200^K:$L(X)>200!($L(X)<1) X D:$D(X) ^DIM"
^DD(4.53,9,3)="Transforms the portion of XMRG into fileman external form in Y.  Generated by the fields COBOL PIC and STARTING POSITION."
^DD(4.53,9,5,1,0)="4.53^5^1"
^DD(4.53,9,5,2,0)="4.53^6^1"
^DD(4.53,9,5,3,0)="4.53^7^1"
^DD(4.53,9,5,4,0)="4.53^8^1"
^DD(4.53,9,9)="^"
^DD(4.53,9,21,0)="^^1^1^2931214^"
^DD(4.53,9,21,1,0)="This file is obsolete."
^DD(4.53,9,"DT")="2850806"
^DD(4.53,10,0)="FILE^NJ15,5^^0;10^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""6N.N) X"
^DD(4.53,10,1,0)="^.1"
^DD(4.53,10,1,1,0)="4.52^C"
^DD(4.53,10,1,1,1)="S ^XMB(4.5,DA(2),5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(4.53,10,1,1,2)="K ^XMB(4.5,DA(2),5,""C"",$E(X,1,30),DA(1),DA)"
^DD(4.53,10,1,2,0)="^^TRIGGER^4.53^11"
^DD(4.53,10,1,2,1)="Q"
^DD(4.53,10,1,2,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X="""" X ^DD(4.53,10,1,2,2.4)"
^DD(4.53,10,1,2,2.4)="S DIH=$S($D(^XMB(4.5,DIV(0),5,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U"" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"""":U_%,1:""""),DIH=4.53,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(4.53,10,1,2,"CREATE VALUE")="NO EFFECT"
^DD(4.53,10,1,2,"DELETE VALUE")="@"
^DD(4.53,10,1,2,"FIELD")="FIELD"
^DD(4.53,10,3)="Enter the number of the file or sub-file where this data will be stored."
^DD(4.53,10,21,0)="^^1^1^2931214^"
^DD(4.53,10,21,1,0)="This file is obsolete."
^DD(4.53,11,0)="FIELD^NJ15,5X^^0;11^S Y=$S($D(^XMB(4.5,DA(2),5,DA(1),1,DA,0)):$P(^(0),U,10),1:0) K:'Y X I Y S DIC=""^DD(""_Y_"","",DIC(0)=""QEN"" D ^DIC S X=+Y K:Y<0 X S DIC=DIE"
^DD(4.53,11,3)="Enter the number or name of the field where this data will go."
^DD(4.53,11,4)="S Y=$S($D(^XMB(4.5,DA(2),5,DA(1),1,DA,0)):$P(^(0),U,10),1:0) I Y S DIC=""^DD(""_Y_"","",DIC(0)=""QEN"",X=""?"" D ^DIC S DIC=DIE"
^DD(4.53,11,5,1,0)="4.53^10^2"
^DD(4.53,11,21,0)="^^1^1^2931214^"
^DD(4.53,11,21,1,0)="This file is obsolete."
^DD(4.53,99,0)="ALL HERE^BC^^ ; ^X ^DD(4.53,99,9.3) S X=X&Y,Y(4.53,99,4)=X S X=$P(Y(4.53,99,1),U,6)]"""",Y=X,X=Y(4.53,99,4),X=X&Y"
^DD(4.53,99,9)="^"
^DD(4.53,99,9.01)="4.53^5;4.53^3;4.53^2"
^DD(4.53,99,9.1)="TYPE]""""&(LENGTH]"""")&(START POSITION]"""")"
^DD(4.53,99,9.2)="S Y(4.53,99,2)=$C(59)_$S($D(^DD(4.53,2,0)):$P(^(0),U,3),1:""""),Y(4.53,99,1)=$S($D(^XMB(4.5,D0,5,D1,1,D2,0)):^(0),1:"""")"
^DD(4.53,99,9.3)="X ^DD(4.53,99,9.2) S X=$P($P(Y(4.53,99,2),$C(59)_$P(Y(4.53,99,1),U,3)_"":"",2),$C(59),1)]"""",Y(4.53,99,3)=X S X=$P(Y(4.53,99,1),U,4)]"""",Y=X,X=Y(4.53,99,3),X=X"
^DD(4.53,99,9.4)="X ^DD(4.53,99,9.3) S X=$P($P(Y(4.53,99,2),$C(59)_$P(Y(4.53,99,1),U,3)_"":"",2),$C(59),1)]"""",Y(4.53,99,3)=X S X=$P(Y(4.53,99,1),U,4)]"""",Y=X,X=Y(4.53,99,3),X=X"
^DD(4.53,99,9.5)="X ^DD(4.53,99,9.4) S X=X&Y,Y(4.53,99,4)=X S X=$P(Y(4.53,99,1),U,5)]"""",Y=X,X=Y(4.53,99,4),X=X&Y,Y(4.53,99,5)=X S X=$P(Y(4.53,99,1),U,6)]"""""
^DD(4.53,99,9.6)="X ^DD(4.53,99,9.5) S Y=X,X=Y(4.53,99,5),X=X&Y,Y(4.53,99,6)=X S X=$P($P(Y(4.53,99,7),$C(59)_$P(Y(4.53,99,1),U,7)_"":"",2),$C(59),1)]"""",Y=X,X=Y(4.53,99,6),X=X"
^DD(4.53,99,21,0)="^^1^1^2931214^"
^DD(4.53,99,21,1,0)="This file is obsolete."
^DD(4.53,99,"DT")="2850415"
^DD(4.53,"B","ALL HERE",99)=""
^DD(4.53,"B","COBOL PICTURE",8)=""
^DD(4.53,"B","DECIMAL PLACES",4)=""
^DD(4.53,"B","EXTERNAL NAME",1)=""
^DD(4.53,"B","EXTRACT CODE",9)=""
^DD(4.53,"B","FIELD",11)=""
^DD(4.53,"B","FIELD NAME",.01)=""
^DD(4.53,"B","FILE",10)=""
^DD(4.53,"B","IGNORE 0 AND NULL",7)=""
^DD(4.53,"B","LENGTH",3)=""
^DD(4.53,"B","START POSITION",5)=""
^DD(4.53,"B","TRIM",6)=""
^DD(4.53,"B","TYPE",2)=""
^DD(4.53,"GL",0,1,.01)=""
^DD(4.53,"GL",0,2,1)=""
^DD(4.53,"GL",0,3,2)=""
^DD(4.53,"GL",0,4,3)=""
^DD(4.53,"GL",0,5,4)=""
^DD(4.53,"GL",0,6,5)=""
^DD(4.53,"GL",0,7,6)=""
^DD(4.53,"GL",0,8,7)=""
^DD(4.53,"GL",0,9,8)=""
^DD(4.53,"GL",0,10,10)=""
^DD(4.53,"GL",0,11,11)=""
^DD(4.53,"GL",1,"E1,200",9)=""
^DD(4.53,"IX",5)=""
^DD(4.53,"IX",6)=""
^DD(4.53,"IX",7)=""
^DD(4.53,"IX",8)=""
^DD(4.53,"IX",10)=""
^DD(4.6,0)="FIELD^^2^3"
^DD(4.6,0,"DDA")="Y"
^DD(4.6,0,"IX","B",4.6,.01)=""
^DD(4.6,0,"NM","TRANSMISSION SCRIPT")=""
^DD(4.6,0,"PT",4.3,8.24)=""
^DD(4.6,0,"VR")="8.0"
^DD(4.6,0,"VRPK")="MAILMAN"
^DD(4.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(4.6,.01,1,0)="^.1"
^DD(4.6,.01,1,1,0)="4.6^B"
^DD(4.6,.01,1,1,1)="S ^XMB(4.6,""B"",$E(X,1,30),DA)="""""
^DD(4.6,.01,1,1,2)="K ^XMB(4.6,""B"",$E(X,1,30),DA)"
^DD(4.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(4.6,.01,21,0)="^^3^3^2881107^"
^DD(4.6,.01,21,1,0)="Transmission scripts are used by the MailMan script processor to link"
^DD(4.6,.01,21,2,0)="up systems.  The entries in this file are 'Called' as a kind of 'macro'"
^DD(4.6,.01,21,3,0)="by any of the scripts in the DOMAIN file."
^DD(4.6,1,0)="TEXT^4.61^^1;0"
^DD(4.6,1,21,0)="^^2^2^2931214^^"
^DD(4.6,1,21,1,0)="This is the actual script.  It consists of a command per line that is"
^DD(4.6,1,21,2,0)="interpreted by the MailMan script processor."
^DD(4.6,2,0)="DESCRIPTION^4.62^^2;0"
^DD(4.6,2,21,0)="^^1^1^2931214^^"
^DD(4.6,2,21,1,0)="A brief description of the purpose of the script."
^DD(4.6,"B","DESCRIPTION",2)=""
^DD(4.6,"B","NAME",.01)=""
^DD(4.6,"B","TEXT",1)=""
^DD(4.6,"GL",0,1,.01)=""
^DD(4.6,"GL",1,0,1)=""
^DD(4.6,"GL",2,0,2)=""
^DD(4.6,"IX",.01)=""
^DD(4.6,"RQ",.01)=""
^DD(4.6,"SB",4.61,1)=""
^DD(4.6,"SB",4.62,2)=""
^DD(4.61,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(4.61,0,"NM","TEXT")=""
^DD(4.61,0,"UP")="4.6"
^DD(4.61,.01,0)="TEXT^WL^^0;1^Q"
^DD(4.61,.01,3)="Enter the text of the script."
^DD(4.61,.01,21,0)="^^1^1^2931214^"
^DD(4.61,.01,21,1,0)="See above."
^DD(4.61,.01,"DT")="2860508"
^DD(4.61,"B","TEXT",.01)=""
^DD(4.61,"GL",0,1,.01)=""
^DD(4.62,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(4.62,0,"NM","DESCRIPTION")=""
^DD(4.62,0,"UP")="4.6"
^DD(4.62,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(4.62,.01,3)="Description of the script for documentation purposes"
^DD(4.62,.01,21,0)="^^1^1^2931214^"
^DD(4.62,.01,21,1,0)="See above."
^DD(4.62,"B","DESCRIPTION",.01)=""
^DD(4.62,"GL",0,1,.01)=""
^DD(4.999,0)="HISTORY SUB-FIELD^^.08^7"
^DD(4.999,0,"DT")="3000606"
^DD(4.999,0,"IX","B",4.999,.01)=""
^DD(4.999,0,"NM","HISTORY")=""
^DD(4.999,0,"UP")="4"
^DD(4.999,.01,0)="EFFECTIVE DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:X<1 X S DINUM=X"
^DD(4.999,.01,1,0)="^.1"
^DD(4.999,.01,1,1,0)="4.999^B"
^DD(4.999,.01,1,1,1)="S ^DIC(4,DA(1),999,""B"",$E(X,1,30),DA)="""""
^DD(4.999,.01,1,1,2)="K ^DIC(4,DA(1),999,""B"",$E(X,1,30),DA)"
^DD(4.999,.01,3)="The effective date of the change."
^DD(4.999,.01,"DT")="3000605"
^DD(4.999,.02,0)="NAME (CHANGED FROM)^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(4.999,.02,1,0)="^.1"
^DD(4.999,.02,1,1,0)="4^OLDNAM"
^DD(4.999,.02,1,1,1)="S ^DIC(4,""OLDNAM"",$E(X,1,30),DA(1),DA)="""""
^DD(4.999,.02,1,1,2)="K ^DIC(4,""OLDNAM"",$E(X,1,30),DA(1),DA)"
^DD(4.999,.02,1,1,"%D",0)="^^1^1^3010524^"
^DD(4.999,.02,1,1,"%D",1,0)="This x-ref stores the old name."
^DD(4.999,.02,1,1,"DT")="3000721"
^DD(4.999,.02,3)="If NAME changed, this field holds old value."
^DD(4.999,.02,"DT")="3000721"
^DD(4.999,.03,0)="OFFICAL VA NAME (CHANGED FROM)^F^^0;3^K:$L(X)>80!($L(X)<3) X"
^DD(4.999,.03,3)="If OFFICAL VA NAME changed, this field holds old value."
^DD(4.999,.03,"DT")="3000606"
^DD(4.999,.05,0)="REALIGNED TO^P4'^DIC(4,^0;5^Q"
^DD(4.999,.05,1,0)="^.1"
^DD(4.999,.05,1,1,0)="4^ART"
^DD(4.999,.05,1,1,1)="S ^DIC(4,""ART"",$E(X,1,30),DA(1),DA)="""""
^DD(4.999,.05,1,1,2)="K ^DIC(4,""ART"",$E(X,1,30),DA(1),DA)"
^DD(4.999,.05,1,1,"%D",0)="^^1^1^3010524^"
^DD(4.999,.05,1,1,"%D",1,0)="This x-ref used by F4^XUAF4 API."
^DD(4.999,.05,1,1,"DT")="3000612"
^DD(4.999,.05,1,2,0)="4^ARTO^MUMPS"
^DD(4.999,.05,1,2,1)="S ^DIC(4,""ARTO"",DA(1),X)="""""
^DD(4.999,.05,1,2,2)="K ^DIC(4,""ARTO"",DA(1),X)"
^DD(4.999,.05,1,2,"%D",0)="^^1^1^3010524^"
^DD(4.999,.05,1,2,"%D",1,0)="This x-ref used by F4^XUAF4 API."
^DD(4.999,.05,1,2,"DT")="3000612"
^DD(4.999,.05,3)="This field points to the new entry with valid station number.\]"
^DD(4.999,.05,"DT")="3000612"
^DD(4.999,.06,0)="REALIGNED FROM^P4'^DIC(4,^0;6^Q"
^DD(4.999,.06,1,0)="^.1"
^DD(4.999,.06,1,1,0)="4^ARF"
^DD(4.999,.06,1,1,1)="S ^DIC(4,""ARF"",$E(X,1,30),DA(1),DA)="""""
^DD(4.999,.06,1,1,2)="K ^DIC(4,""ARF"",$E(X,1,30),DA(1),DA)"
^DD(4.999,.06,1,1,"%D",0)="^^1^1^3010524^"
^DD(4.999,.06,1,1,"%D",1,0)="This x-ref used by F4^XUAF4 API."
^DD(4.999,.06,1,1,"DT")="3000612"
^DD(4.999,.06,1,2,0)="4^ARFM^MUMPS"
^DD(4.999,.06,1,2,1)="S ^DIC(4,""ARFM"",DA(1),X)="""""
^DD(4.999,.06,1,2,2)="K ^DIC(4,""ARFM"",DA(1),X)"
^DD(4.999,.06,1,2,"%D",0)="^^1^1^3010524^"
^DD(4.999,.06,1,2,"%D",1,0)="This x-ref used by F4^XUAF4 API."
^DD(4.999,.06,1,2,"DT")="3000612"
^DD(4.999,.06,3)="This field points to the old entry/sta# for this facility."
^DD(4.999,.06,"DT")="3000612"
^DD(4.999,.07,0)="DEACTIVATED FACILITY / STA #^S^1:DEACTIVATED;^0;7^Q"
^DD(4.999,.07,1,0)="^.1"
^DD(4.999,.07,1,1,0)="4^AI^MUMPS"
^DD(4.999,.07,1,1,1)="S ^DIC(4,""AI"",DA(1),DA)="""""
^DD(4.999,.07,1,1,2)="K ^DIC(4,""AI"",DA(1),DA)"
^DD(4.999,.07,1,1,"%D",0)="^^1^1^3010524^"
^DD(4.999,.07,1,1,"%D",1,0)="This x-ref used by F4^XUAF4 API."
^DD(4.999,.07,1,1,"DT")="3000613"
^DD(4.999,.07,3)="Flags deactivated facilities and/or station numbers."
^DD(4.999,.07,"DT")="3000613"
^DD(4.999,.08,0)="ACTIVATED FACILITY^S^1:ACTIVATED;^0;8^Q"
^DD(4.999,.08,3)="Flags activated facilities for EFFECTIVE DATE."
^DD(4.999,.08,"DT")="3000606"
^DD(4.999,"B","ACTIVATED FACILITY",.08)=""
^DD(4.999,"B","DEACTIVATED FACILITY / STA #",.07)=""
^DD(4.999,"B","EFFECTIVE DATE",.01)=""
^DD(4.999,"B","NAME (CHANGED FROM)",.02)=""
^DD(4.999,"B","OFFICAL VA NAME (CHANGED FROM)",.03)=""
^DD(4.999,"B","REALIGNED FROM",.06)=""
^DD(4.999,"B","REALIGNED TO",.05)=""
^DD(4.999,"GL",0,1,.01)=""
^DD(4.999,"GL",0,2,.02)=""
^DD(4.999,"GL",0,3,.03)=""
^DD(4.999,"GL",0,5,.05)=""
^DD(4.999,"GL",0,6,.06)=""
^DD(4.999,"GL",0,7,.07)=""
^DD(4.999,"GL",0,8,.08)=""
^DD(4.999,"IX",.01)=""
^DD(4.999,"IX",.02)=""
^DD(4.999,"IX",.05)=""
^DD(4.999,"IX",.06)=""
^DD(4.999,"IX",.07)=""
^DD(4.9999,0)="IDENTIFIER SUB-FIELD^^.02^4"
^DD(4.9999,0,"DT")="3020212"
^DD(4.9999,0,"IX","B",4.9999,.01)=""
^DD(4.9999,0,"NM","IDENTIFIER")=""
^DD(4.9999,0,"UP")="4"
^DD(4.9999,.01,0)="CODING SYSTEM^FX^^0;1^K:$L(X)>20!($L(X)<2) X K:($P($G(^DIC(4,+$G(DA(1)),0)),U,11)=""N"")&'$G(XUMF) X"
^DD(4.9999,.01,1,0)="^.1"
^DD(4.9999,.01,1,1,0)="4.9999^B"
^DD(4.9999,.01,1,1,1)="S ^DIC(4,DA(1),9999,""B"",$E(X,1,30),DA)="""""
^DD(4.9999,.01,1,1,2)="K ^DIC(4,DA(1),9999,""B"",$E(X,1,30),DA)"
^DD(4.9999,.01,3)="Answer must be 2-20 characters in length"
^DD(4.9999,.01,"DT")="3030203"
^DD(4.9999,.02,0)="ID^FX^^0;2^K:$L(X)>20!($L(X)<2) X K:($P($G(^DIC(4,+$G(DA(1)),0)),U,11)=""N"")&'$G(XUMF) X"
^DD(4.9999,.02,1,0)="^.1^^0"
^DD(4.9999,.02,3)="Answer must be 2-20 characters in length"
^DD(4.9999,.02,"DT")="3030203"
^DD(4.9999,.03,0)="EFFECTIVE DATE/TIME^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(4.9999,.03,21,0)="^.001^1^1^3060330^^"
^DD(4.9999,.03,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(4.9999,.03,"DT")="3060410"
^DD(4.9999,.04,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;4^Q"
^DD(4.9999,.04,21,0)="^.001^4^4^3060330^^"
^DD(4.9999,.04,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE', then the "
^DD(4.9999,.04,21,2,0)="term will be accessible by end-users to document a particular patient "
^DD(4.9999,.04,21,3,0)="event. If 'INACTIVE', then the term will only be accessible by the "
^DD(4.9999,.04,21,4,0)="application to display legacy data."
^DD(4.9999,.04,"DT")="3060410"
^DD(4.9999,"B","CODING SYSTEM",.01)=""
^DD(4.9999,"B","EFFECTIVE DATE/TIME",.03)=""
^DD(4.9999,"B","ID",.02)=""
^DD(4.9999,"B","STATUS",.04)=""
^DD(4.9999,"GL",0,1,.01)=""
^DD(4.9999,"GL",0,2,.02)=""
^DD(4.9999,"GL",0,3,.03)=""
^DD(4.9999,"GL",0,4,.04)=""
^DD(4.9999,"IX",.01)=""
^DD(5,0)="FIELD^NL^5^8"
^DD(5,0,"DDA")="N"
^DD(5,0,"ID",2)="W ""   "",$P(^(""0""),U,2)"
^DD(5,0,"IX","B",5,.01)=""
^DD(5,0,"IX","C",5,1)=""
^DD(5,0,"IX","C",5,2)=""
^DD(5,0,"NM","STATE")=""
^DD(5,0,"PT",2,.093)=""
^DD(5,0,"PT",2,.115)=""
^DD(5,0,"PT",2,.1215)=""
^DD(5,0,"PT",2,.1415)=""
^DD(5,0,"PT",2,.1654)=""
^DD(5,0,"PT",2,.1659)=""
^DD(5,0,"PT",2,.217)=""
^DD(5,0,"PT",2,.2197)=""
^DD(5,0,"PT",2,.256)=""
^DD(5,0,"PT",2,.2917)=""
^DD(5,0,"PT",2,.2927)=""
^DD(5,0,"PT",2,.3117)=""
^DD(5,0,"PT",2,.3317)=""
^DD(5,0,"PT",2,.337)=""
^DD(5,0,"PT",2,.347)=""
^DD(5,0,"PT",2.101,35)=""
^DD(5,0,"PT",2.312,2.06)=""
^DD(5,0,"PT",2.312,3.09)=""
^DD(5,0,"PT",4,.02)=""
^DD(5,0,"PT",4,4.04)=""
^DD(5,0,"PT",5.1,1)=""
^DD(5,0,"PT",5.11,3)=""
^DD(5,0,"PT",5.12,3)=""
^DD(5,0,"PT",5.13,2)=""
^DD(5,0,"PT",36,.115)=""
^DD(5,0,"PT",36,.125)=""
^DD(5,0,"PT",36,.145)=""
^DD(5,0,"PT",36,.155)=""
^DD(5,0,"PT",36,.165)=""
^DD(5,0,"PT",36,.185)=""
^DD(5,0,"PT",43,914)=""
^DD(5,0,"PT",45.2,4)=""
^DD(5,0,"PT",52.92,.09)=""
^DD(5,0,"PT",52.92,1.04)=""
^DD(5,0,"PT",59,.08)=""
^DD(5,0,"PT",65.4,1.5)=""
^DD(5,0,"PT",65.5,1.5)=""
^DD(5,0,"PT",66.01,.07)=""
^DD(5,0,"PT",67,.115)=""
^DD(5,0,"PT",120.84,16)=""
^DD(5,0,"PT",120.85,48)=""
^DD(5,0,"PT",120.85,58)=""
^DD(5,0,"PT",130.03,3)=""
^DD(5,0,"PT",133.8013,3)=""
^DD(5,0,"PT",161.2,4)=""
^DD(5,0,"PT",161.4,4)=""
^DD(5,0,"PT",161.5,10)=""
^DD(5,0,"PT",200,.115)=""
^DD(5,0,"PT",200,.1215)=""
^DD(5,0,"PT",200.074734,4)=""
^DD(5,0,"PT",200.074743,1.3)=""
^DD(5,0,"PT",200.074745,1)=""
^DD(5,0,"PT",200.541,.01)=""
^DD(5,0,"PT",200.55,.01)=""
^DD(5,0,"PT",210,13.7)=""
^DD(5,0,"PT",210.02,5)=""
^DD(5,0,"PT",210.03,.01)=""
^DD(5,0,"PT",301.7,13)=""
^DD(5,0,"PT",340,1.05)=""
^DD(5,0,"PT",342.1,1.05)=""
^DD(5,0,"PT",350.9,2.04)=""
^DD(5,0,"PT",355.33,21.05)=""
^DD(5,0,"PT",355.33,61.1)=""
^DD(5,0,"PT",355.93,.07)=""
^DD(5,0,"PT",366.1412,.103)=""
^DD(5,0,"PT",392,24.1)=""
^DD(5,0,"PT",392,28.1)=""
^DD(5,0,"PT",392.1,2)=""
^DD(5,0,"PT",392.2,15)=""
^DD(5,0,"PT",399,108)=""
^DD(5,0,"PT",399.0222,.04)=""
^DD(5,0,"PT",399.041,.03)=""
^DD(5,0,"PT",408.13,1.6)=""
^DD(5,0,"PT",409.36,.115)=""
^DD(5,0,"PT",410,11.6)=""
^DD(5,0,"PT",411,18)=""
^DD(5,0,"PT",411.01,5)=""
^DD(5,0,"PT",411.03,5)=""
^DD(5,0,"PT",421.6,29)=""
^DD(5,0,"PT",423.2,43)=""
^DD(5,0,"PT",440,4.4)=""
^DD(5,0,"PT",440,16.5)=""
^DD(5,0,"PT",440,17.8)=""
^DD(5,0,"PT",440,22.5)=""
^DD(5,0,"PT",440.2,5)=""
^DD(5,0,"PT",440.3,4.4)=""
^DD(5,0,"PT",440.3,16.5)=""
^DD(5,0,"PT",440.3,17.8)=""
^DD(5,0,"PT",440.3,22.5)=""
^DD(5,0,"PT",444.1,4.4)=""
^DD(5,0,"PT",444.1,17.8)=""
^DD(5,0,"PT",452.2,3)=""
^DD(5,0,"PT",452.9,3)=""
^DD(5,0,"PT",453,4)=""
^DD(5,0,"PT",453,747.06)=""
^DD(5,0,"PT",453,747.12)=""
^DD(5,0,"PT",453,747.18)=""
^DD(5,0,"PT",453,747.362)=""
^DD(5,0,"PT",453.05,1)=""
^DD(5,0,"PT",453.06,4)=""
^DD(5,0,"PT",453.074767,1)=""
^DD(5,0,"PT",453.11,1.3)=""
^DD(5,0,"PT",624,8)=""
^DD(5,0,"PT",631.8,.01)=""
^DD(5,0,"PT",652,6)=""
^DD(5,0,"PT",655.2,6.4)=""
^DD(5,0,"PT",655.2,29.8)=""
^DD(5,0,"PT",655.2,29.96)=""
^DD(5,0,"PT",656,2.5)=""
^DD(5,0,"PT",669.9,6)=""
^DD(5,0,"PT",680.1,3)=""
^DD(5,0,"PT",680.4,.06)=""
^DD(5,0,"PT",712.5,.03)=""
^DD(5,0,"PT",740,747.04)=""
^DD(5,0,"PT",785,.09)=""
^DD(5,0,"PT",785,12)=""
^DD(5,0,"PT",785.5,.09)=""
^DD(5,0,"PT",785.5,12)=""
^DD(5,0,"PT",787.5,2)=""
^DD(5,0,"PT",799.4,9.12)=""
^DD(5,0,"PT",799.4,12.03)=""
^DD(5,0,"PT",910,.11)=""
^DD(5,0,"PT",910,1.04)=""
^DD(5,0,"PT",910,2.04)=""
^DD(5,0,"PT",910.2,1.02)=""
^DD(5,0,"PT",912.03,1.04)=""
^DD(5,0,"PT",912.03,2.04)=""
^DD(5,0,"PT",912.04,.07)=""
^DD(5,0,"PT",912.04,1.04)=""
^DD(5,0,"PT",912.04,2.04)=""
^DD(5,0,"PT",912.05,.13)=""
^DD(5,0,"PT",912.05,1.04)=""
^DD(5,0,"PT",912.05,2.04)=""
^DD(5,0,"PT",912.06,1.04)=""
^DD(5,0,"PT",912.06,2.04)=""
^DD(5,0,"PT",912.09,.03)=""
^DD(5,0,"PT",914,1.04)=""
^DD(5,0,"PT",2260,10)=""
^DD(5,0,"PT",2260,105)=""
^DD(5,0,"PT",2260,116.2)=""
^DD(5,0,"PT",2260,133)=""
^DD(5,0,"PT",2260,154)=""
^DD(5,0,"PT",2260,159)=""
^DD(5,0,"PT",2260,179)=""
^DD(5,0,"PT",2260,185)=""
^DD(5,0,"PT",2260,205)=""
^DD(5,0,"PT",2260,212)=""
^DD(5,0,"PT",2260,233)=""
^DD(5,0,"PT",2260,240)=""
^DD(5,0,"PT",2260,248)=""
^DD(5,0,"PT",2260,262)=""
^DD(5,0,"PT",2260,345)=""
^DD(5,0,"PT",2260.0125,3)=""
^DD(5,0,"PT",2262.03,4)=""
^DD(5,0,"PT",2264,4)=""
^DD(5,0,"PT",2264,19)=""
^DD(5,0,"PT",2264,32)=""
^DD(5,0,"PT",2264,40)=""
^DD(5,0,"PT",6928.3,5)=""
^DD(5,0,"PT",6928.3,5.6)=""
^DD(5,0,"PT",7335.7,5)=""
^DD(5,0,"PT",8984.1,.02)=""
^DD(5,0,"PT",8984.2,.02)=""
^DD(5,0,"PT",503330,4)=""
^DD(5,0,"PT",503330.121,1)=""
^DD(5,0,"PT",503334.1,6)=""
^DD(5,0,"PT",503339.2,6)=""
^DD(5,0,"PT",503340,21)=""
^DD(5,0,"PT",503340,34)=""
^DD(5,0,"PT",503340.1,5)=""
^DD(5,0,"PT",791810,1.05)=""
^DD(5,0,"PT",9002313.56,120.04)=""
^DD(5,0,"PT",9002313.56,130.07)=""
^DD(5,0,"VR")="5.3"
^DD(5,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(5,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(5,.001,21,0)="^^2^2^2980716^^"
^DD(5,.001,21,1,0)="This field contains the internal entry number of the state.  In most"
^DD(5,.001,21,2,0)="cases, this should also correspond to the VA STATE CODE field."
^DD(5,.01,0)="NAME^R^^0;1^K:$L(X)>30!X!($L(X)<1)!'(X'?1P.E) X"
^DD(5,.01,1,0)="^.1"
^DD(5,.01,1,1,0)="5^B"
^DD(5,.01,1,1,1)="S ^DIC(5,""B"",$E(X,1,30),DA)="""""
^DD(5,.01,1,1,2)="K ^DIC(5,""B"",$E(X,1,30),DA)"
^DD(5,.01,3)="NAME MUST BE 1-30 CHARACTERS LONG & NOT BEGIN WITH PUNCTUATION"
^DD(5,.01,21,0)="^^5^5^2911214^"
^DD(5,.01,21,1,0)="This field contains the name of the state (or outlying area) as issued"
^DD(5,.01,21,2,0)="by the Department of Veterans Affairs and issued in M-1, Part I Appendix"
^DD(5,.01,21,3,0)="B.  These entries should remain as distributed and should not be edited"
^DD(5,.01,21,4,0)="or updated unless done via a software upgrade or under direction of VA"
^DD(5,.01,21,5,0)="Central Office."
^DD(5,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed."","""",""!?5,$C(7)"") I 1"
^DD(5,.01,"DT")="3060525"
^DD(5,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New State additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(5,1,0)="ABBREVIATION^RF^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(5,1,1,0)="^.1"
^DD(5,1,1,1,0)="5^C"
^DD(5,1,1,1,1)="Q"
^DD(5,1,1,1,2)="Q"
^DD(5,1,1,1,3)="Used in conjunction with the 'ADUALC' xref."
^DD(5,1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(5,1,21,0)="^^3^3^2911214^"
^DD(5,1,21,1,0)="This field contains the recognized abbreviation for the state.  This"
^DD(5,1,21,2,0)="abbreviation is transmitted to Austin from various DHCP packages and"
^DD(5,1,21,3,0)="therefore should not be altered unless you are directed to do so."
^DD(5,1,"DT")="3060525"
^DD(5,2,0)="VA STATE CODE^F^^0;3^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(5,2,1,0)="^.1"
^DD(5,2,1,1,0)="5^C"
^DD(5,2,1,1,1)="Q"
^DD(5,2,1,1,2)="Q"
^DD(5,2,1,1,3)="Used in conjunction with the 'ADUALC' xref."
^DD(5,2,3)="ANSWER MUST BE 2 NUMERICS"
^DD(5,2,21,0)="^^4^4^2911214^"
^DD(5,2,21,1,0)="This is a numeric code (2 characters in length) which many packages"
^DD(5,2,21,2,0)="transmit as to Austin to represent the state a patient resides or"
^DD(5,2,21,3,0)="receives treatment in.  This value should not be altered OR IT COULD"
^DD(5,2,21,4,0)="SERVERELY AND ADVERSELY AFFECT OPERATIONS AT YOUR MEDICAL CENTER."
^DD(5,2,"DT")="3060525"
^DD(5,2.1,0)="AAC RECOGNIZED^RS^1:YES;0:NO;^0;5^Q"
^DD(5,2.1,3)="Does the Austin Automation Center(AAC) recognize this State?"
^DD(5,2.1,21,0)="^^2^2^3051107^"
^DD(5,2.1,21,1,0)="This field designates whether or not the Austin Automation Center(AAC) "
^DD(5,2.1,21,2,0)="recognizes this State."
^DD(5,2.1,"DT")="3051013"
^DD(5,2.2,0)="US STATE OR POSSESSION^S^0:No;1:Yes;^0;6^Q"
^DD(5,2.2,3)="Is this a US State or Possession?"
^DD(5,2.2,21,0)="^^2^2^3051216^"
^DD(5,2.2,21,1,0)="This field designates if this entry is a US State or United Sates "
^DD(5,2.2,21,2,0)="possession."
^DD(5,2.2,"DT")="3051216"
^DD(5,3,0)="COUNTY^5.01I^^1;0"
^DD(5,3,21,0)="^^4^4^2920211^^"
^DD(5,3,21,1,0)="This multiple contains the names and codes of all recognized counties"
^DD(5,3,21,2,0)="for this state.  This information is distributed from VA Central Office"
^DD(5,3,21,3,0)="and it should NOT be altered unless you are directed to do so from"
^DD(5,3,21,4,0)="someone in that office."
^DD(5,5,0)="CAPITAL^F^^0;4^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>18!($L(X)<4) X"
^DD(5,5,1,0)="^.1^^0"
^DD(5,5,3)="MAXIMUM LENGTH: 18, MINIMUM LENGTH: 4"
^DD(5,5,21,0)="^^1^1^2911214^^"
^DD(5,5,21,1,0)="This field contains the name of the capital city for this state."
^DD(5,"B","AAC RECOGNIZED",2.1)=""
^DD(5,"B","ABBREVIATION",1)=""
^DD(5,"B","CAPITAL",5)=""
^DD(5,"B","COUNTY",3)=""
^DD(5,"B","NAME",.01)=""
^DD(5,"B","NUMBER",.001)=""
^DD(5,"B","US STATE OR POSSESSION",2.2)=""
^DD(5,"B","VA STATE CODE",2)=""
^DD(5,"GL",0,1,.01)=""
^DD(5,"GL",0,2,1)=""
^DD(5,"GL",0,3,2)=""
^DD(5,"GL",0,4,5)=""
^DD(5,"GL",0,5,2.1)=""
^DD(5,"GL",0,6,2.2)=""
^DD(5,"GL",1,0,3)=""
^DD(5,"IX",.01)=""
^DD(5,"IX",1)=""
^DD(5,"IX",2)=""
^DD(5,"RQ",.01)=""
^DD(5,"RQ",1)=""
^DD(5,"RQ",2.1)=""
^DD(5,"SB",5.01,3)=""
^DD(5.01,0)="COUNTY SUB-FIELD^NL^5^6"
^DD(5.01,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(5.01,0,"IX","B",5.01,.01)=""
^DD(5.01,0,"IX","C",5.01,2)=""
^DD(5.01,0,"IX","C",5.02,.01)=""
^DD(5.01,0,"NM","COUNTY")=""
^DD(5.01,0,"UP")="5"
^DD(5.01,.01,0)="COUNTY^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(5.01,.01,1,0)="^.1^^-1"
^DD(5.01,.01,1,2,0)="5.01^B"
^DD(5.01,.01,1,2,1)="S ^DIC(5,DA(1),1,""B"",X,DA)="""""
^DD(5.01,.01,1,2,2)="K ^DIC(5,DA(1),1,""B"",X,DA)"
^DD(5.01,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(5.01,.01,21,0)="^^5^5^2911214^"
^DD(5.01,.01,21,1,0)="This field contains the name of the county as distributed by VA Central"
^DD(5.01,.01,21,2,0)="Office.  This information should not be altered unless you are directed"
^DD(5.01,.01,21,3,0)="to do so.  Addition, deletion, or modification of this data could have"
^DD(5.01,.01,21,4,0)="severe, adverse affects on many DHCP packages and cause rejects of data"
^DD(5.01,.01,21,5,0)="transmitted to Austin."
^DD(5.01,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"
^DD(5.01,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New County additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(5.01,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(5.01,1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(5.01,1,21,0)="^^2^2^2911214^"
^DD(5.01,1,21,1,0)="This field contains the abbreviation of this county.  This field can be"
^DD(5.01,1,21,2,0)="1-5 characters."
^DD(5.01,2,0)="VA COUNTY CODE^F^^0;3^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(5.01,2,1,0)="^.1^^0"
^DD(5.01,2,1,1,0)="5.01^C"
^DD(5.01,2,1,1,1)="S ^DIC(5,DA(1),1,""C"",X,DA)="""""
^DD(5.01,2,1,1,2)="K ^DIC(5,DA(1),1,""C"",X,DA)"
^DD(5.01,2,3)="ANSWER MUST BE 3 NUMERICS"
^DD(5.01,2,21,0)="^^6^6^2911214^"
^DD(5.01,2,21,1,0)="This field contains the numeric county code assigned to this conty.  This"
^DD(5.01,2,21,2,0)="assignment is made by VA Central Office and changes should not be made to"
^DD(5.01,2,21,3,0)="these codes unless done through a national software upgrade or with the"
^DD(5.01,2,21,4,0)="direction of VACO.  This information is transmitted in many packages to the"
^DD(5.01,2,21,5,0)="Austin DPC and editing of this data could cause rejects to occur as well"
^DD(5.01,2,21,6,0)="as other negative ramifications."
^DD(5.01,2,"DT")="2870410"
^DD(5.01,3,0)="CATCHMENT CODE^F^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(5.01,3,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(5.01,3,21,0)="^^3^3^2911214^^^"
^DD(5.01,3,21,1,0)="This field contains the catchment code (the service area) for this county."
^DD(5.01,3,21,2,0)="Data in this field must not be edited unless it is under the direction of"
^DD(5.01,3,21,3,0)="VA Central Office."
^DD(5.01,4,0)="ZIP CODE^5.02^^1;0"
^DD(5.01,4,21,0)="^^2^2^2911214^"
^DD(5.01,4,21,1,0)="This multiple contains the various zip codes which exist within this"
^DD(5.01,4,21,2,0)="county.  This information is distributed by the US postal service."
^DD(5.01,5,0)="INACTIVE DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(5.01,5,21,0)="^^2^2^3031017^"
^DD(5.01,5,21,1,0)="This date represents the date when the VA determined that the county was "
^DD(5.01,5,21,2,0)="no longer valid."
^DD(5.01,5,"DT")="3031017"
^DD(5.01,"B","ABBREVIATION",1)=""
^DD(5.01,"B","CATCHMENT CODE",3)=""
^DD(5.01,"B","COUNTY",.01)=""
^DD(5.01,"B","INACTIVE DATE",5)=""
^DD(5.01,"B","VA COUNTY CODE",2)=""
^DD(5.01,"B","ZIP CODE",4)=""
^DD(5.01,"GL",0,1,.01)=""
^DD(5.01,"GL",0,2,1)=""
^DD(5.01,"GL",0,3,2)=""
^DD(5.01,"GL",0,4,3)=""
^DD(5.01,"GL",0,5,5)=""
^DD(5.01,"GL",1,0,4)=""
^DD(5.01,"IX",.01)=""
^DD(5.01,"IX",2)=""
^DD(5.01,"SB",5.02,4)=""
^DD(5.02,0)="ZIP CODE SUB-FIELD^NL^.01^1"
^DD(5.02,0,"NM","ZIP CODE")=""
^DD(5.02,0,"UP")="5.01"
^DD(5.02,.01,0)="ZIP CODE^MF^^0;1^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(5.02,.01,1,0)="^.1^^-1"
^DD(5.02,.01,1,2,0)="5.01^C"
^DD(5.02,.01,1,2,1)="S ^DIC(5,DA(2),1,""C"",X,DA(1))="""""
^DD(5.02,.01,1,2,2)="K ^DIC(5,DA(2),1,""C"",X,DA(1))"
^DD(5.02,.01,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(5.02,.01,21,0)="^^4^4^2911214^^"
^DD(5.02,.01,21,1,0)="This field contains the numeric zip code allowable for this county.  This"
^DD(5.02,.01,21,2,0)="information is distributed by the United States Postal Service."
^DD(5.02,.01,21,3,0)=" "
^DD(5.02,.01,21,4,0)="This field is designed only for 5 digit zip codes.  Zip+4 is not allowed."
^DD(5.02,"B","ZIP CODE",.01)=""
^DD(5.02,"GL",0,1,.01)=""
^DD(5.02,"IX",.01)=""
^DD(5.1,0)="FIELD^NL^5^6"
^DD(5.1,0,"DT")="3050602"
^DD(5.1,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(5,.01,0),U,2) D Y^DIQ:Y]"""" W ?30,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(5.1,0,"IX","B",5.1,.01)=""
^DD(5.1,0,"IX","C",5.1,1)=""
^DD(5.1,0,"NM","COUNTY")=""
^DD(5.1,0,"PT",5.11,2)=""
^DD(5.1,0,"PT",165.5,10)=""
^DD(5.1,0,"PT",409.36,.117)=""
^DD(5.1,0,"VR")="2.11"
^DD(5.1,0,"VRPK")="ONC"
^DD(5.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(5.1,.01,1,0)="^.1"
^DD(5.1,.01,1,1,0)="5.1^B"
^DD(5.1,.01,1,1,1)="S ^VIC(5.1,""B"",$E(X,1,30),DA)="""""
^DD(5.1,.01,1,1,2)="K ^VIC(5.1,""B"",$E(X,1,30),DA)"
^DD(5.1,.01,3)="Answer must be 3-30 characters in length."
^DD(5.1,.01,21,0)="^^1^1^2930819^"
^DD(5.1,.01,21,1,0)="This is the name of the county."
^DD(5.1,.01,"DT")="2930819"
^DD(5.1,1,0)="STATE^RP5'^DIC(5,^0;2^Q"
^DD(5.1,1,1,0)="^.1"
^DD(5.1,1,1,1,0)="5.1^C"
^DD(5.1,1,1,1,1)="S ^VIC(5.1,""C"",$E(X,1,30),DA)="""""
^DD(5.1,1,1,1,2)="K ^VIC(5.1,""C"",$E(X,1,30),DA)"
^DD(5.1,1,1,1,"%D",0)="^^1^1^2930909"
^DD(5.1,1,1,1,"%D",1,0)="Indexes file by STATE."
^DD(5.1,1,1,1,"DT")="2930909"
^DD(5.1,1,3)=""
^DD(5.1,1,21,0)="^.001^1^1^3061221^^"
^DD(5.1,1,21,1,0)="This is the state containing this county."
^DD(5.1,1,"DT")="2881102"
^DD(5.1,2,0)="SEER COUNTY CODE^F^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(5.1,2,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(5.1,2,10)="SEER III.01A"
^DD(5.1,2,20,0)="^.3LA^1^1"
^DD(5.1,2,20,1,0)="SEER"
^DD(5.1,2,21,0)="^^4^4^2870916^"
^DD(5.1,2,21,1,0)="This identifies the county of residence at cancer diagnosis.  The code"
^DD(5.1,2,21,2,0)="is assigned by the Surveillance, Epidemiology, and End Results (SEER)"
^DD(5.1,2,21,3,0)="Program of the Division of Cancer Prevention and Control, National Cancer"
^DD(5.1,2,21,4,0)="Institute.  (Only SEER areas have SEER county codes)."
^DD(5.1,2,"DT")="2870402"
^DD(5.1,3,0)="ABBREVIATION^F^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(5.1,3,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(5.1,3,21,0)="^^1^1^2930819^"
^DD(5.1,3,21,1,0)="This is the abbreviated county name."
^DD(5.1,3,"DT")="2871202"
^DD(5.1,4,0)="VA COUNTY CODE^F^^0;5^K:$L(X)>5!($L(X)<1) X"
^DD(5.1,4,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(5.1,4,21,0)="^^1^1^2930819^"
^DD(5.1,4,21,1,0)="This is the county code assigned by the Department of Veterans Affairs."
^DD(5.1,4,"DT")="2871202"
^DD(5.1,5,0)="CATCHMENT CODE^F^^0;6^K:$L(X)>5!($L(X)<1) X"
^DD(5.1,5,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(5.1,5,21,0)="^^1^1^2930819^"
^DD(5.1,5,21,1,0)="This is the VA's internal geographical area code."
^DD(5.1,5,"DT")="2871202"
^DD(5.1,"B","ABBREVIATION",3)=""
^DD(5.1,"B","CATCHMENT CODE",5)=""
^DD(5.1,"B","NAME",.01)=""
^DD(5.1,"B","SEER COUNTY CODE",2)=""
^DD(5.1,"B","STATE",1)=""
^DD(5.1,"B","VA COUNTY CODE",4)=""
^DD(5.1,"GL",0,1,.01)=""
^DD(5.1,"GL",0,2,1)=""
^DD(5.1,"GL",0,3,2)=""
^DD(5.1,"GL",0,4,3)=""
^DD(5.1,"GL",0,5,4)=""
^DD(5.1,"GL",0,6,5)=""
^DD(5.1,"GR","SEER",2,1)=""
^DD(5.1,"IX",.01)=""
^DD(5.1,"IX",1)=""
^DD(5.1,"RQ",.01)=""
^DD(5.1,"RQ",1)=""
^DD(5.11,0)="FIELD^^3^4"
^DD(5.11,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(5.11,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VIC(5.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(5.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(5.11,0,"ID",3)="W ""   "",$S($D(^DIC(5,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(5.11,0,"IX","B",5.11,.01)=""
^DD(5.11,0,"IX","C",5.11,.01)=""
^DD(5.11,0,"IX","D",5.11,1)=""
^DD(5.11,0,"NM","ZIP CODE")=""
^DD(5.11,0,"PT",160.1,.03)=""
^DD(5.11,0,"PT",165,.119)=""
^DD(5.11,0,"PT",165,.1219)=""
^DD(5.11,0,"VR")="2.11"
^DD(5.11,.01,0)="NUMBER^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(5.11,.01,1,0)="^.1"
^DD(5.11,.01,1,1,0)="5.11^B^MUMPS"
^DD(5.11,.01,1,1,1)="S:$D(X) ^VIC(5.11,""B"",($S(($L(X)=5):(X_"" ""),1:X)),DA)="""""
^DD(5.11,.01,1,1,2)="K ^VIC(5.11,""B"",($S(($L(X)=5):(X_"" ""),1:X)),DA)"
^DD(5.11,.01,1,2,0)="5.11^C"
^DD(5.11,.01,1,2,1)="S ^VIC(5.11,""C"",$E(X,1,30),DA)="""""
^DD(5.11,.01,1,2,2)="K ^VIC(5.11,""C"",$E(X,1,30),DA)"
^DD(5.11,.01,1,2,"%D",0)="^^1^1^2930909"
^DD(5.11,.01,1,2,"%D",1,0)="Indexes file by NUMBER."
^DD(5.11,.01,3)="ENTER ZIP CODE AS 12345 OR 12345-6789"
^DD(5.11,.01,21,0)="^^1^1^2930819^^"
^DD(5.11,.01,21,1,0)="This is the five-digit or nine-digit ZIP Code number."
^DD(5.11,.01,"DT")="2881021"
^DD(5.11,1,0)="CITY^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(5.11,1,1,0)="^.1"
^DD(5.11,1,1,1,0)="5.11^D"
^DD(5.11,1,1,1,1)="S ^VIC(5.11,""D"",$E(X,1,30),DA)="""""
^DD(5.11,1,1,1,2)="K ^VIC(5.11,""D"",$E(X,1,30),DA)"
^DD(5.11,1,1,1,"%D",0)="^^1^1^2930909"
^DD(5.11,1,1,1,"%D",1,0)="Indexes file by CITY."
^DD(5.11,1,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(5.11,1,21,0)="^^1^1^2930819^"
^DD(5.11,1,21,1,0)="This is the city referenced by the ZIP Code."
^DD(5.11,1,"DT")="2881021"
^DD(5.11,2,0)="COUNTY^RP5.1'^VIC(5.1,^0;3^Q"
^DD(5.11,2,21,0)="^^1^1^2930819^^"
^DD(5.11,2,21,1,0)="This is the county in which the ZIP Code area is located."
^DD(5.11,2,"DT")="2880712"
^DD(5.11,3,0)="STATE^RP5'^DIC(5,^0;4^Q"
^DD(5.11,3,21,0)="^^1^1^2930819^"
^DD(5.11,3,21,1,0)="This is the state in which this ZIP Code area is located."
^DD(5.11,3,"DT")="2870326"
^DD(5.11,"B","CITY",1)=""
^DD(5.11,"B","COUNTY",2)=""
^DD(5.11,"B","NUMBER",.01)=""
^DD(5.11,"B","STATE",3)=""
^DD(5.11,"GL",0,1,.01)=""
^DD(5.11,"GL",0,2,1)=""
^DD(5.11,"GL",0,3,2)=""
^DD(5.11,"GL",0,4,3)=""
^DD(5.11,"IX",.01)=""
^DD(5.11,"IX",1)=""
^DD(5.11,"RQ",.01)=""
^DD(5.11,"RQ",1)=""
^DD(5.11,"RQ",2)=""
^DD(5.11,"RQ",3)=""
^DD(5.12,0)="FIELD^^8^9"
^DD(5.12,0,"DDA")="N"
^DD(5.12,0,"DT")="3030603"
^DD(5.12,0,"ID",8)="W ""   "",$P(^(0),U,9)"
^DD(5.12,0,"ID","W1")="D EN^DDIOL($P(^(0),U,2)_""  ""_$P(^(0),U,6)_""  ""_$P(^(0),U,7),"""",""?0"")"
^DD(5.12,0,"IX","AC",5.12,2)=""
^DD(5.12,0,"IX","B",5.12,.01)=""
^DD(5.12,0,"IX","C",5.12,1)=""
^DD(5.12,0,"IX","D",5.12,5)=""
^DD(5.12,0,"IX","E",5.12,8)=""
^DD(5.12,0,"NM","POSTAL CODE")=""
^DD(5.12,0,"VR")="8.0"
^DD(5.12,0,"VRPK")="XU"
^DD(5.12,.01,0)="MAIL CODE^RFa^^0;1^K:$L(X)>12!($L(X)<3) X"
^DD(5.12,.01,.1)=""
^DD(5.12,.01,1,0)="^.1"
^DD(5.12,.01,1,1,0)="5.12^B"
^DD(5.12,.01,1,1,1)="S ^XIP(5.12,""B"",$E(X,1,30),DA)="""""
^DD(5.12,.01,1,1,2)="K ^XIP(5.12,""B"",$E(X,1,30),DA)"
^DD(5.12,.01,1,1,"DT")="3050922"
^DD(5.12,.01,3)="Please enter the Postal Code"
^DD(5.12,.01,21,0)="^.001^3^3^3030710^^^^"
^DD(5.12,.01,21,1,0)="This field holds recognized postal codes.  Although this file will only "
^DD(5.12,.01,21,2,0)="start with US postal codes, it may be expanded in the future to also "
^DD(5.12,.01,21,3,0)="contain postal codes from other countries."
^DD(5.12,.01,23,0)="^^7^7^3030710^"
^DD(5.12,.01,23,1,0)="This value is currently obtained from the USPS AIS City-State file.  The"
^DD(5.12,.01,23,2,0)="data in the file is located at:"
^DD(5.12,.01,23,3,0)="                                 "
^DD(5.12,.01,23,4,0)="  Field Reference Number: 2"
^DD(5.12,.01,23,5,0)="  Field Description: ZIP code"
^DD(5.12,.01,23,6,0)="  Logical Length: 5"
^DD(5.12,.01,23,7,0)="  Relative Position From/Thru: 02-06"
^DD(5.12,.01,"AUDIT")="e"
^DD(5.12,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"
^DD(5.12,.01,"DT")="3061227"
^DD(5.12,1,0)="CITY^F^^0;2^K:$L(X)>28!($L(X)<3) X"
^DD(5.12,1,1,0)="^.1"
^DD(5.12,1,1,1,0)="5.12^C"
^DD(5.12,1,1,1,1)="S ^XIP(5.12,""C"",$E(X,1,30),DA)="""""
^DD(5.12,1,1,1,2)="K ^XIP(5.12,""C"",$E(X,1,30),DA)"
^DD(5.12,1,1,1,"DT")="3020627"
^DD(5.12,1,3)="Please enter the City associated with this Postal Code."
^DD(5.12,1,21,0)="^.001^1^1^3030529^^"
^DD(5.12,1,21,1,0)="This field holds the city represented by this Postal Code."
^DD(5.12,1,23,0)="^^7^7^3030529^"
^DD(5.12,1,23,1,0)="This value is currently obtained from the USPS AIS City-State file.  The"
^DD(5.12,1,23,2,0)="data in the file is located at:"
^DD(5.12,1,23,3,0)=" "
^DD(5.12,1,23,4,0)="  Field Reference Number: 5"
^DD(5.12,1,23,5,0)="  Field Description: City State Name"
^DD(5.12,1,23,6,0)="  Logical Length: 28"
^DD(5.12,1,23,7,0)="  Relative Position From/Thru: 14-41"
^DD(5.12,1,"DT")="3030610"
^DD(5.12,2,0)="COUNTY^P5.13'^XIP(5.13,^0;3^Q"
^DD(5.12,2,1,0)="^.1"
^DD(5.12,2,1,1,0)="5.12^AC"
^DD(5.12,2,1,1,1)="S ^XIP(5.12,""AC"",$E(X,1,30),DA)="""""
^DD(5.12,2,1,1,2)="K ^XIP(5.12,""AC"",$E(X,1,30),DA)"
^DD(5.12,2,1,1,"DT")="3020910"
^DD(5.12,2,3)="Please enter the county associated with this Postal Code."
^DD(5.12,2,21,0)="^.001^2^2^3030626^^^"
^DD(5.12,2,21,1,0)="This field contains a pointer to the County that this Postal Code is "
^DD(5.12,2,21,2,0)="within."
^DD(5.12,2,"DT")="3030626"
^DD(5.12,3,0)="STATE^P5'^DIC(5,^0;4^Q"
^DD(5.12,3,3)="Please enter the State associated with this Postal Code."
^DD(5.12,3,21,0)="^^2^2^3020703^"
^DD(5.12,3,21,1,0)="This field contains a pointer to the State File to represent the state "
^DD(5.12,3,21,2,0)="associated with this Postal Code."
^DD(5.12,3,"DT")="3030610"
^DD(5.12,4,0)="INACTIVE DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(5.12,4,3)="Please enter the Inactive Date for this Postal Code."
^DD(5.12,4,21,0)="^^1^1^3020703^"
^DD(5.12,4,21,1,0)="This is the date that the Postal Code became Inactive."
^DD(5.12,4,"DT")="3030610"
^DD(5.12,5,0)="CITY KEY^RF^^0;6^K:$L(X)>6!($L(X)<6) X"
^DD(5.12,5,1,0)="^.1"
^DD(5.12,5,1,1,0)="5.12^D"
^DD(5.12,5,1,1,1)="S ^XIP(5.12,""D"",$E(X,1,30),DA)="""""
^DD(5.12,5,1,1,2)="K ^XIP(5.12,""D"",$E(X,1,30),DA)"
^DD(5.12,5,1,1,"DT")="3030529"
^DD(5.12,5,1,2,0)="^^TRIGGER^5.12^8"
^DD(5.12,5,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(5.12,5,1,2,1.1) S DIH=$G(^XIP(5.12,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=5.12,DIG=8 D ^DICR"
^DD(5.12,5,1,2,1.1)="S X=DIV S Y(1)=$S($D(^XIP(5.12,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=$G(X) S X=DIV,Y=X,X=Y(2),X=X_Y"
^DD(5.12,5,1,2,2)="Q"
^DD(5.12,5,1,2,"%D",0)="^^3^3^3030710^"
^DD(5.12,5,1,2,"%D",1,0)="The field value is created by the concatenation of the MAIL CODE(#.01)"
^DD(5.12,5,1,2,"%D",2,0)="field and the CITY KEY(#5) that creates a unique key for lookups. The"
^DD(5.12,5,1,2,"%D",3,0)="value is stuffed into the UNIQUE KEY(#8)."
^DD(5.12,5,1,2,"CREATE VALUE")="((#.01)_(#5))"
^DD(5.12,5,1,2,"DELETE VALUE")="NO EFFECT"
^DD(5.12,5,1,2,"DT")="3030603"
^DD(5.12,5,1,2,"FIELD")="UNI"
^DD(5.12,5,3)="Answer must be 6 characters in length."
^DD(5.12,5,21,0)="^.001^1^1^3030710^^^"
^DD(5.12,5,21,1,0)="This is the unique City State Key that has been assigned by the USPS."
^DD(5.12,5,23,0)="^.001^7^7^3030710^^"
^DD(5.12,5,23,1,0)="This value is currently obtained from the USPS AIS City-State file.  The"
^DD(5.12,5,23,2,0)="data in the file is located at:"
^DD(5.12,5,23,3,0)=" "
^DD(5.12,5,23,4,0)="  Field Reference Number: 3"
^DD(5.12,5,23,5,0)="  Field Description: City State Key"
^DD(5.12,5,23,6,0)="  Logical Length: 6"
^DD(5.12,5,23,7,0)="  Relative Position From/Thru: 07-12"
^DD(5.12,5,"DT")="3030610"
^DD(5.12,6,0)="PREFERRED CITY KEY^RF^^0;7^K:$L(X)>6!($L(X)<6) X"
^DD(5.12,6,3)="Answer must be 6 characters in length."
^DD(5.12,6,21,0)="^.001^1^1^3030710^^^"
^DD(5.12,6,21,1,0)="This key is assigned by USPS."
^DD(5.12,6,23,0)="^^11^11^3030710^"
^DD(5.12,6,23,1,0)="This value is currently obtained from the USPS AIS City-State file.  The"
^DD(5.12,6,23,2,0)="data in the file is located at:"
^DD(5.12,6,23,3,0)=" "
^DD(5.12,6,23,4,0)="  Field Reference Number: 9"
^DD(5.12,6,23,5,0)="  Field Description: Preferred Last Line City State Key"
^DD(5.12,6,23,6,0)="  Logical Length: 6"
^DD(5.12,6,23,7,0)="  Relative Position From/Thru: 57-62"
^DD(5.12,6,23,8,0)=" "
^DD(5.12,6,23,9,0)="If this field equals 'UNIQUE CITY KEY' then this city is considered the"
^DD(5.12,6,23,10,0)="DEFAULT city.  On the other hand, if this is not equal to 'UNIQUE CITY"
^DD(5.12,6,23,11,0)="KEY' then the city is considered an ACCEPTABLE city."
^DD(5.12,6,"DT")="3030710"
^DD(5.12,7,0)="CITY ABBREVIATION^F^^0;8^K:$L(X)>13!($L(X)<1) X"
^DD(5.12,7,3)="Answer must be 1-13 characters in length."
^DD(5.12,7,21,0)="^.001^1^1^3030529^^"
^DD(5.12,7,21,1,0)="This field contains the USPS's city abbreviation."
^DD(5.12,7,23,0)="^^7^7^3030529^"
^DD(5.12,7,23,1,0)="This value is currently obtained from the USPS AIS City-State file.  The"
^DD(5.12,7,23,2,0)="data in the file is located at:"
^DD(5.12,7,23,3,0)="  "
^DD(5.12,7,23,4,0)="  Field Reference Number: 6"
^DD(5.12,7,23,5,0)="  Field Description: City State Name Abbreviation"
^DD(5.12,7,23,6,0)="  Logical Length: 13"
^DD(5.12,7,23,7,0)="  Relative Position From/Thru: 42-54"
^DD(5.12,7,"DT")="3030610"
^DD(5.12,8,0)="UNIQUE KEY (VA)^RF^^0;9^K:$L(X)>18!($L(X)<9) X"
^DD(5.12,8,1,0)="^.1"
^DD(5.12,8,1,1,0)="5.12^E"
^DD(5.12,8,1,1,1)="S ^XIP(5.12,""E"",$E(X,1,30),DA)="""""
^DD(5.12,8,1,1,2)="K ^XIP(5.12,""E"",$E(X,1,30),DA)"
^DD(5.12,8,1,1,"DT")="3030603"
^DD(5.12,8,3)="Answer must be 9-18 characters in length."
^DD(5.12,8,5,1,0)="5.12^5^2"
^DD(5.12,8,9)="^"
^DD(5.12,8,21,0)="^.001^3^3^3030710^^"
^DD(5.12,8,21,1,0)="This field is the value when the MAIL CODE(#.01) and the CITY KEY(#6) are "
^DD(5.12,8,21,2,0)="concatenated.  The purpose of this field is to create a unique lookup "
^DD(5.12,8,21,3,0)="value using the ""E"" cross-reference."
^DD(5.12,8,23,0)="^^17^17^3030710^"
^DD(5.12,8,23,1,0)="A single Zip code can represent multiple City names or an individual "
^DD(5.12,8,23,2,0)="City name can represent multiple Zip Code.  But each object in and of "
^DD(5.12,8,23,3,0)="themselves are unique, a combination of these two unique properties will "
^DD(5.12,8,23,4,0)="create a unique lookup value.  For example:"
^DD(5.12,8,23,5,0)=" "
^DD(5.12,8,23,6,0)=" Case A:"
^DD(5.12,8,23,7,0)=" Zip code: 26452"
^DD(5.12,8,23,8,0)=" City Name: VALLEY CHAPEL, City Key: X2A444, Unique Key: 26452X2A444"
^DD(5.12,8,23,9,0)=" City Name: WESTON, City Key: X29362, Unique Key: 26452X29362"
^DD(5.12,8,23,10,0)=" "
^DD(5.12,8,23,11,0)=" Case B:"
^DD(5.12,8,23,12,0)=" City: HAGERSTOWN, City Key: V23622, Zip code: 21740 UKey: 21740V23622"
^DD(5.12,8,23,13,0)=" City: HAGERSTOWN, City Key: V23622, Zip code: 21741, UKey: 21741V23622"
^DD(5.12,8,23,14,0)=" City: HAGERSTOWN, City Key: V23622, Zip code: 21742, UKey: 21742V23622"
^DD(5.12,8,23,15,0)=" City: HAGERSTOWN, City Key: V23622, Zip code: 21746, UKey: 21746V23622 "
^DD(5.12,8,23,16,0)=" City: HAGERSTOWN, City Key: V23622, Zip code: 21747, UKey: 21747V23622"
^DD(5.12,8,23,17,0)=" <and so on>"
^DD(5.12,8,"DT")="3030619"
^DD(5.12,"AUDIT",.01)=""
^DD(5.12,"B","CITY",1)=""
^DD(5.12,"B","CITY ABBREVIATION",7)=""
^DD(5.12,"B","CITY KEY",5)=""
^DD(5.12,"B","COUNTY",2)=""
^DD(5.12,"B","INACTIVE DATE",4)=""
^DD(5.12,"B","MAIL CODE",.01)=""
^DD(5.12,"B","PREFERRED CITY KEY",6)=""
^DD(5.12,"B","STATE",3)=""
^DD(5.12,"B","UNIQUE KEY (VA)",8)=""
^DD(5.12,"GL",0,1,.01)=""
^DD(5.12,"GL",0,2,1)=""
^DD(5.12,"GL",0,3,2)=""
^DD(5.12,"GL",0,4,3)=""
^DD(5.12,"GL",0,5,4)=""
^DD(5.12,"GL",0,6,5)=""
^DD(5.12,"GL",0,7,6)=""
^DD(5.12,"GL",0,8,7)=""
^DD(5.12,"GL",0,9,8)=""
^DD(5.12,"IX",.01)=""
^DD(5.12,"IX",1)=""
^DD(5.12,"IX",2)=""
^DD(5.12,"IX",5)=""
^DD(5.12,"IX",8)=""
^DD(5.12,"RQ",.01)=""
^DD(5.12,"RQ",5)=""
^DD(5.12,"RQ",6)=""
^DD(5.12,"RQ",8)=""
^DD(5.13,0)="FIELD^^5^6"
^DD(5.13,0,"DDA")="N"
^DD(5.13,0,"DT")="3030619"
^DD(5.13,0,"IX","B",5.13,.01)=""
^DD(5.13,0,"IX","C",5.13,1)=""
^DD(5.13,0,"NM","COUNTY CODE")=""
^DD(5.13,0,"PT",5.12,2)=""
^DD(5.13,0,"VR")="8.0"
^DD(5.13,0,"VRPK")="XU"
^DD(5.13,.01,0)="FIPS CODE^RF^^0;1^K:$L(X)>5!($L(X)<3)!'(X'?1P.E) X"
^DD(5.13,.01,1,0)="^.1"
^DD(5.13,.01,1,1,0)="5.13^B"
^DD(5.13,.01,1,1,1)="S ^XIP(5.13,""B"",$E(X,1,30),DA)="""""
^DD(5.13,.01,1,1,2)="K ^XIP(5.13,""B"",$E(X,1,30),DA)"
^DD(5.13,.01,3)="Please enter the 5-digit FIPS code for this county."
^DD(5.13,.01,21,0)="^.001^3^3^3030711^^"
^DD(5.13,.01,21,1,0)="This field contains a 5-digit number representing the Federal Information "
^DD(5.13,.01,21,2,0)="Processing Standard for a state and county.  The first 2 digits represent "
^DD(5.13,.01,21,3,0)="the state, and the last 3 digits represent the county."
^DD(5.13,.01,"DEL",1,0)="D EN^DDIOL(""Entries can only be Inactivated."","""",""!?5,$C(7)"") I 1"
^DD(5.13,.01,"DT")="3060525"
^DD(5.13,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""New County Code additions are not allowed."","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(5.13,1,0)="COUNTY NAME^F^^0;2^K:$L(X)>25!($L(X)<3) X"
^DD(5.13,1,1,0)="^.1"
^DD(5.13,1,1,1,0)="5.13^C"
^DD(5.13,1,1,1,1)="S ^XIP(5.13,""C"",$E(X,1,30),DA)="""""
^DD(5.13,1,1,1,2)="K ^XIP(5.13,""C"",$E(X,1,30),DA)"
^DD(5.13,1,1,1,"DT")="3020528"
^DD(5.13,1,3)="Answer must be 3-25 characters in length"
^DD(5.13,1,21,0)="^^1^1^3020703^"
^DD(5.13,1,21,1,0)="This field holds the name associated with this county."
^DD(5.13,1,"DT")="3030621"
^DD(5.13,2,0)="STATE^P5'^DIC(5,^0;3^Q"
^DD(5.13,2,21,0)="^^1^1^3020703^"
^DD(5.13,2,21,1,0)="This field holds the state that this county is within."
^DD(5.13,2,"DT")="3030621"
^DD(5.13,3,0)="INACTIVE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(5.13,3,3)="Please enter an Inactive Date for this County FIPS."
^DD(5.13,3,21,0)="^^1^1^3020703^"
^DD(5.13,3,21,1,0)="This is the date that the 5-digit FIPS became inactive."
^DD(5.13,3,"DT")="3030621"
^DD(5.13,4,0)="LATITUDE (EST)^F^^0;5^K:$L(X)>6!($L(X)<6) X"
^DD(5.13,4,3)="Answer must be 6 characters in length."
^DD(5.13,4,21,0)="^^6^6^3030619^"
^DD(5.13,4,21,1,0)="This field the estimated Latitude in <degrees>:<minutes>N or"
^DD(5.13,4,21,2,0)="<degrees>:<minutes>S of the County as given by the United States"
^DD(5.13,4,21,3,0)="Geological Survey (USGS)."
^DD(5.13,4,21,4,0)=" "
^DD(5.13,4,21,5,0)=" N is North of the Equator."
^DD(5.13,4,21,6,0)=" S is South of the Equator."
^DD(5.13,4,"DT")="3030619"
^DD(5.13,5,0)="LONGITUDE (EST)^F^^0;6^K:$L(X)>7!($L(X)<7) X"
^DD(5.13,5,3)="Answer must be 7 characters in length."
^DD(5.13,5,21,0)="^^6^6^3030710^"
^DD(5.13,5,21,1,0)="This field is the estimated Longitude in <degrees:<minutes>E or "
^DD(5.13,5,21,2,0)="<degrees>:<minutes>W of the County as given by the United States"
^DD(5.13,5,21,3,0)="Geological Survey (USGS)."
^DD(5.13,5,21,4,0)=" "
^DD(5.13,5,21,5,0)=" E is East of the Prime Meridian."
^DD(5.13,5,21,6,0)=" W is West of the Prime Meridian."
^DD(5.13,5,"DT")="3030619"
^DD(5.13,"B","COUNTY NAME",1)=""
^DD(5.13,"B","FIPS CODE",.01)=""
^DD(5.13,"B","INACTIVE DATE",3)=""
^DD(5.13,"B","LATITUDE (EST)",4)=""
^DD(5.13,"B","LONGITUDE (EST)",5)=""
^DD(5.13,"B","STATE",2)=""
^DD(5.13,"GL",0,1,.01)=""
^DD(5.13,"GL",0,2,1)=""
^DD(5.13,"GL",0,3,2)=""
^DD(5.13,"GL",0,4,3)=""
^DD(5.13,"GL",0,5,4)=""
^DD(5.13,"GL",0,6,5)=""
^DD(5.13,"IX",.01)=""
^DD(5.13,"IX",1)=""
^DD(5.13,"RQ",.01)=""
^DD(7,0)="FIELD^NL^1^2"
^DD(7,0,"IX","B",7,.01)=""
^DD(7,0,"IX","C",7,1)=""
^DD(7,0,"NM","PROVIDER CLASS")=""
^DD(7,0,"PT",200,53.5)=""
^DD(7,0,"PT",721,14)=""
^DD(7,0,"PT",721,16)=""
^DD(7,0,"PT",721,18)=""
^DD(7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(7,.01,1,0)="^.1"
^DD(7,.01,1,1,0)="7^B"
^DD(7,.01,1,1,1)="S ^DIC(7,""B"",$E(X,1,30),DA)="""""
^DD(7,.01,1,1,2)="K ^DIC(7,""B"",$E(X,1,30),DA)"
^DD(7,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(7,.01,21,0)="^^1^1^2950202^"
^DD(7,.01,21,1,0)="Name represents the title for this provider classification."
^DD(7,.01,"DT")="2821013"
^DD(7,1,0)="ABBREV. TITLE^RF^^0;2^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(7,1,1,0)="^.1"
^DD(7,1,1,1,0)="7^C"
^DD(7,1,1,1,1)="S ^DIC(7,""C"",$E(X,1,30),DA)="""""
^DD(7,1,1,1,2)="K ^DIC(7,""C"",$E(X,1,30),DA)"
^DD(7,1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(7,1,21,0)="^^1^1^2950202^"
^DD(7,1,21,1,0)="Abbreviation for this provider classification."
^DD(7,"B","ABBREV. TITLE",1)=""
^DD(7,"B","NAME",.01)=""
^DD(7,"GL",0,1,.01)=""
^DD(7,"GL",0,2,1)=""
^DD(7,"IX",.01)=""
^DD(7,"IX",1)=""
^DD(7,"RQ",.01)=""
^DD(7,"RQ",1)=""
^DD(7.1,0)="FIELD^^2^3"
^DD(7.1,0,"IX","B",7.1,.01)=""
^DD(7.1,0,"NM","SPECIALITY")=""
^DD(7.1,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(7.1,.01,1,0)="^.1"
^DD(7.1,.01,1,1,0)="7.1^B"
^DD(7.1,.01,1,1,1)="S ^DIC(7.1,""B"",$E(X,1,30),DA)="""""
^DD(7.1,.01,1,1,2)="K ^DIC(7.1,""B"",$E(X,1,30),DA)"
^DD(7.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7.1,.01,21,0)="^^1^1^2950202^"
^DD(7.1,.01,21,1,0)="Name of this specialty entry."
^DD(7.1,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>8!($L(X)<2) X"
^DD(7.1,1,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(7.1,1,21,0)="^^1^1^2950202^"
^DD(7.1,1,21,1,0)="Abbreviation for this specialty."
^DD(7.1,2,0)="SERVICE^S^M:MEDICINE;S:SURGERY;R:REHAB MEDICINE;N:NEUROLOGY;P:MENTAL HEALTH;^0;3^Q"
^DD(7.1,2,3)="Enter the associated service for this specialty."
^DD(7.1,2,21,0)="^^1^1^2950202^"
^DD(7.1,2,21,1,0)="The assocaited service for this specialty."
^DD(7.1,"B","ABBREVIATION",1)=""
^DD(7.1,"B","NAME",.01)=""
^DD(7.1,"B","SERVICE",2)=""
^DD(7.1,"GL",0,1,.01)=""
^DD(7.1,"GL",0,2,1)=""
^DD(7.1,"GL",0,3,2)=""
^DD(7.1,"IX",.01)=""
^DD(7.1,"RQ",.01)=""
^DD(8,0)="FIELD^NL^11^13"
^DD(8,0,"DDA")="N"
^DD(8,0,"ID",3)="W:$D(^(""0"")) ?35,$P(^(""0""),U,4)"
^DD(8,0,"ID",8)="W """""
^DD(8,0,"ID","WRITE")="W ""    "",$P(^(0),U,4),""   "",@(""$P($P($C(59)_$S($D(^DD(8,4,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(8,0,"IX","AF",8,9)=""
^DD(8,0,"IX","B",8,.01)=""
^DD(8,0,"IX","C",8,3)=""
^DD(8,0,"IX","D",8,8)=""
^DD(8,0,"IX","SYN",8.01,.01)=""
^DD(8,0,"NM","ELIGIBILITY CODE")=""
^DD(8,0,"PT",2,.361)=""
^DD(8,0,"PT",2.0361,.01)=""
^DD(8,0,"PT",2.101,13)=""
^DD(8,0,"PT",21.01,.01)=""
^DD(8,0,"PT",43.08,.01)=""
^DD(8,0,"PT",44.003,30)=""
^DD(8,0,"PT",45,20.1)=""
^DD(8,0,"PT",392,3)=""
^DD(8,0,"PT",405,.2)=""
^DD(8,0,"PT",409.1,6)=""
^DD(8,0,"PT",409.51,4)=""
^DD(8,0,"PT",409.68,.13)=""
^DD(8,0,"PT",790.13,.01)=""
^DD(8,0,"PT",790.14,.01)=""
^DD(8,0,"PT",509850.6,80)=""
^DD(8,0,"PT",9000010,.21)=""
^DD(8,0,"VR")="5.3"
^DD(8,0,"VRPK")="DG"
^DD(8,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E) X"
^DD(8,.01,1,0)="^.1"
^DD(8,.01,1,1,0)="8^B"
^DD(8,.01,1,1,1)="S ^DIC(8,""B"",$E(X,1,30),DA)="""""
^DD(8,.01,1,1,2)="K ^DIC(8,""B"",$E(X,1,30),DA)"
^DD(8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8,.01,21,0)="^^3^3^2911222^^"
^DD(8,.01,21,1,0)="This field contains the site specific name for the eligibility."
^DD(8,.01,21,2,0)="In most cases the name will be the same as the MAS ELIGIBILITY CODE"
^DD(8,.01,21,3,0)="pointed to by the MAS ELIGIBILITY CODE field of this file."
^DD(8,.12,0)="MAKE RECORD SENSITIVE?^S^1:YES;0:NO;^0;12^Q"
^DD(8,.12,3)="Enter YES if patients with this eligibility should have their records automatically placed in the DG SECURITY LOG file."
^DD(8,.12,21,0)="^^3^3^2960417^"
^DD(8,.12,21,1,0)="Answer YES if patients with this eligibility should have there records"
^DD(8,.12,21,2,0)="automatically added to the DG SECURITY LOG file so that the patient's"
^DD(8,.12,21,3,0)="record will be listed as sensitive."
^DD(8,.12,"DT")="2960417"
^DD(8,1,0)="CARD COLOR^RS^P:PURPLE;B:BLUE;R:RED;^0;2^Q"
^DD(8,1,5,1,0)="8^8^2"
^DD(8,1,9)="^"
^DD(8,1,21,0)="^^8^8^2911222^^^^"
^DD(8,1,21,1,0)="This field indicates the color of the patient's card for the MAS"
^DD(8,1,21,2,0)="eligibility."
^DD(8,1,21,3,0)=" "
^DD(8,1,21,4,0)="This field is automatically updated with the value of the"
^DD(8,1,21,5,0)="'CARD COLOR' of the MAS ELIGIBILITY CODE(#8.1) entry"
^DD(8,1,21,6,0)="pointed to by field #8, MAS ELIGIBILITY CODE."
^DD(8,1,21,7,0)=" "
^DD(8,1,21,8,0)="This field is uneditable."
^DD(8,2,0)="ABBREVIATION^F^^0;3^K:$L(X)>4!($L(X)<1) X"
^DD(8,2,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(8,2,21,0)="^^2^2^2910416^"
^DD(8,2,21,1,0)="This field may contain an abbreviation for the eligibility name.  It"
^DD(8,2,21,2,0)="may be used in place of the name in selected prints."
^DD(8,3,0)="VA CODE NUMBER^RNJ2,0^^0;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8,3,1,0)="^.1"
^DD(8,3,1,1,0)="8^C"
^DD(8,3,1,1,1)="S ^DIC(8,""C"",$E(X,1,30),DA)="""""
^DD(8,3,1,1,2)="K ^DIC(8,""C"",$E(X,1,30),DA)"
^DD(8,3,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(8,3,5,1,0)="8^8^3"
^DD(8,3,9)="^"
^DD(8,3,21,0)="^^8^8^2910418^^"
^DD(8,3,21,1,0)="This field contains the VA CODE NUMBER that has been assigned to this"
^DD(8,3,21,2,0)="eligibility."
^DD(8,3,21,3,0)=" "
^DD(8,3,21,4,0)="This field is automatically updated with the value of the 'VA"
^DD(8,3,21,5,0)="CODE NUMBER' of the MAS ELIGIBILITY CODE(#8.1) entry"
^DD(8,3,21,6,0)="pointed to by field #8, MAS ELIGIBILITY CODE."
^DD(8,3,21,7,0)=" "
^DD(8,3,21,8,0)="This field is uneditable."
^DD(8,3,"DT")="2970730"
^DD(8,4,0)="TYPE^RS^N:NON-VETERAN;Y:VETERAN;^0;5^Q"
^DD(8,4,5,1,0)="8^8^4"
^DD(8,4,9)="^"
^DD(8,4,21,0)="^^9^9^2910418^^"
^DD(8,4,21,1,0)="This field indicates the type of patient that can be assigned this"
^DD(8,4,21,2,0)="eligibility. The patient is either a 'veteran' or a 'non-veteran'"
^DD(8,4,21,3,0)="type."
^DD(8,4,21,4,0)=" "
^DD(8,4,21,5,0)="This field is automatically updated with the value of the"
^DD(8,4,21,6,0)="'TYPE' of the MAS ELIGIBILITY CODE(#8.1) entry pointed"
^DD(8,4,21,7,0)="to by field #8, MAS ELIGIBILITY CODE."
^DD(8,4,21,8,0)=" "
^DD(8,4,21,9,0)="This field is uneditable."
^DD(8,4,"DT")="2840912"
^DD(8,5,0)="PRINT NAME^RFI^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(8,5,3)="Enter abbreviated Eligibility Code name for ouput in limited space."
^DD(8,5,21,0)="^^2^2^2910416^"
^DD(8,5,21,1,0)="This field contains a shorten eligibility name that is used for"
^DD(8,5,21,2,0)="output that has limited space to print."
^DD(8,5,"DT")="2861002"
^DD(8,6,0)="INACTIVE^S^1:YES;^0;7^Q"
^DD(8,6,21,0)="^^1^1^2910416^"
^DD(8,6,21,1,0)="If the eligibility is inactive then this field will be set to 'YES'."
^DD(8,6,"DT")="2861121"
^DD(8,7,0)="SELECT AS ADDITIONAL^S^0:NO;1:YES;^0;8^Q"
^DD(8,7,5,1,0)="8^8^5"
^DD(8,7,9)="^"
^DD(8,7,21,0)="^^14^14^2910416^"
^DD(8,7,21,1,0)="This field indicates whether patients may be assigned this"
^DD(8,7,21,2,0)="eligibility as an 'additional' eligibility."
^DD(8,7,21,3,0)=" "
^DD(8,7,21,4,0)="If the field is set to 'NO' or is not filled in, then the eligibility"
^DD(8,7,21,5,0)="can only be assigned as a primary eligibility."
^DD(8,7,21,6,0)=" "
^DD(8,7,21,7,0)="If set to 'YES', then the eligibility can be used as both a primary"
^DD(8,7,21,8,0)="and an 'additional' eligibility."
^DD(8,7,21,9,0)=" "
^DD(8,7,21,10,0)="This field is automatically updated with the value of the"
^DD(8,7,21,11,0)="'SELECT AS ADDITIONAL' of the MAS ELIGIBILITY CODE(FILE #8.1)"
^DD(8,7,21,12,0)="entry pointed to by field #8, MAS ELIGIBILITY CODE."
^DD(8,7,21,13,0)=" "
^DD(8,7,21,14,0)="This field is uneditable."
^DD(8,7,"DT")="2880208"
^DD(8,8,0)="MAS ELIGIBILITY CODE^R*P8.1'^DIC(8.1,^0;9^S DIC(""S"")=""I '$P(^(0),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8,8,1,0)="^.1"
^DD(8,8,1,1,0)="8^D"
^DD(8,8,1,1,1)="S ^DIC(8,""D"",$E(X,1,30),DA)="""""
^DD(8,8,1,1,2)="K ^DIC(8,""D"",$E(X,1,30),DA)"
^DD(8,8,1,2,0)="^^TRIGGER^8^1"
^DD(8,8,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,2) X ^DD(8,8,1,2,1.4)"
^DD(8,8,1,2,1.4)="S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=8,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=8,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,2,"CREATE VALUE")="S X=$P(^DIC(8.1,X,0),U,2)"
^DD(8,8,1,2,"DELETE VALUE")="@"
^DD(8,8,1,2,"FIELD")="CARD COLOR"
^DD(8,8,1,3,0)="^^TRIGGER^8^3"
^DD(8,8,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,4) X ^DD(8,8,1,3,1.4)"
^DD(8,8,1,3,1.4)="S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=8,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=8,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,3,"CREATE VALUE")="S X=$P(^DIC(8.1,X,0),U,4)"
^DD(8,8,1,3,"DELETE VALUE")="@"
^DD(8,8,1,3,"FIELD")="VA CODE NUMBER"
^DD(8,8,1,4,0)="^^TRIGGER^8^4"
^DD(8,8,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,5) X ^DD(8,8,1,4,1.4)"
^DD(8,8,1,4,1.4)="S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=8,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=8,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,4,"CREATE VALUE")="S X=$P(^DIC(8.1,X,0),U,5)"
^DD(8,8,1,4,"DELETE VALUE")="@"
^DD(8,8,1,4,"FIELD")="TYPE"
^DD(8,8,1,5,0)="^^TRIGGER^8^7"
^DD(8,8,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P(^DIC(8.1,X,0),U,8) X ^DD(8,8,1,5,1.4)"
^DD(8,8,1,5,1.4)="S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=8,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,5,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(8,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=8,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(8,8,1,5,"CREATE VALUE")="S X=$P(^DIC(8.1,X,0),U,8)"
^DD(8,8,1,5,"DELETE VALUE")="@"
^DD(8,8,1,5,"FIELD")="SELECT AS ADDITIONAL"
^DD(8,8,12)="Allows only 'active' MAS eligibility codes."
^DD(8,8,12.1)="S DIC(""S"")=""I '$P(^(0),U,7)"""
^DD(8,8,21,0)="^^12^12^2910416^^"
^DD(8,8,21,1,0)="This field is required.  All entries in this file must be"
^DD(8,8,21,2,0)="associated with an entry in the MAS ELIGIBILITY CODE file"
^DD(8,8,21,3,0)="in order to be valid."
^DD(8,8,21,4,0)=" "
^DD(8,8,21,5,0)="This relationship with the MAS ELIGIBILITY CODE is used"
^DD(8,8,21,6,0)="throughout the MAS software for statistics and reporting"
^DD(8,8,21,7,0)="purposes.  It is very important."
^DD(8,8,21,8,0)=" "
^DD(8,8,21,9,0)="When this field is entered or edited, then the fields CARD COLOR(#1),"
^DD(8,8,21,10,0)="VA CODE NUMBER(#3), TYPE(#4) and SELECT AS ADDITIONAL(#7) are"
^DD(8,8,21,11,0)="automatically updated.  They are updated with the values of"
^DD(8,8,21,12,0)="same fields entered for the MAS ELIGIBILITY CODE entry that was selected."
^DD(8,8,"DT")="2901120"
^DD(8,9,0)="ID FORMAT^P8.2'^DIC(8.2,^0;10^Q"
^DD(8,9,1,0)="^.1"
^DD(8,9,1,1,0)="8^AF"
^DD(8,9,1,1,1)="S ^DIC(8,""AF"",$E(X,1,30),DA)="""""
^DD(8,9,1,1,2)="K ^DIC(8,""AF"",$E(X,1,30),DA)"
^DD(8,9,21,0)="^^10^10^2980623^^^"
^DD(8,9,21,1,0)="This field indicates which identification format is to be used"
^DD(8,9,21,2,0)="when setting a patient's ID who has been assigned this eligibility."
^DD(8,9,21,3,0)=" "
^DD(8,9,21,4,0)="Most eligibilities should be associated with 'VA STANDARD' format."
^DD(8,9,21,5,0)="This format is the patient's Social Security Number."
^DD(8,9,21,6,0)=" "
^DD(8,9,21,7,0)="If your site has a DOD/VA sharing agreement AND are running"
^DD(8,9,21,8,0)="the VA/DOD software developed by the Dallas ISC, then you"
^DD(8,9,21,9,0)="may have to associate some DOD specific eligibilities with"
^DD(8,9,21,10,0)="a format other than 'VA STANDARD'."
^DD(8,9,"DT")="2891106"
^DD(8,10,0)="SYNONYM^8.01^^S;0"
^DD(8,10,21,0)="^^2^2^2911222^"
^DD(8,10,21,1,0)="This multiple contains all of the alternative names by which a user may"
^DD(8,10,21,2,0)="call up this eligibility code.  This can be modified at the site level."
^DD(8,11,0)="AGENCY^P4.11'^DIC(4.11,^0;11^Q"
^DD(8,11,21,0)="^^2^2^2910416^"
^DD(8,11,21,1,0)="This field contains the AGENCY that is associated with this "
^DD(8,11,21,2,0)="eligibility.  Normally, the agency is the VA."
^DD(8,11,"DT")="2900104"
^DD(8,"B","ABBREVIATION",2)=""
^DD(8,"B","AGENCY",11)=""
^DD(8,"B","CARD COLOR",1)=""
^DD(8,"B","ID FORMAT",9)=""
^DD(8,"B","INACTIVE",6)=""
^DD(8,"B","MAKE RECORD SENSITIVE?",.12)=""
^DD(8,"B","MAS ELIGIBILITY CODE",8)=""
^DD(8,"B","NAME",.01)=""
^DD(8,"B","PRINT NAME",5)=""
^DD(8,"B","SELECT AS ADDITIONAL",7)=""
^DD(8,"B","SYNONYM",10)=""
^DD(8,"B","TYPE",4)=""
^DD(8,"B","VA CODE NUMBER",3)=""
^DD(8,"GL",0,1,.01)=""
^DD(8,"GL",0,2,1)=""
^DD(8,"GL",0,3,2)=""
^DD(8,"GL",0,4,3)=""
^DD(8,"GL",0,5,4)=""
^DD(8,"GL",0,6,5)=""
^DD(8,"GL",0,7,6)=""
^DD(8,"GL",0,8,7)=""
^DD(8,"GL",0,9,8)=""
^DD(8,"GL",0,10,9)=""
^DD(8,"GL",0,11,11)=""
^DD(8,"GL",0,12,.12)=""
^DD(8,"GL","S",0,10)=""
^DD(8,"IX",.01)=""
^DD(8,"IX",3)=""
^DD(8,"IX",8)=""
^DD(8,"IX",9)=""
^DD(8,"RQ",.01)=""
^DD(8,"RQ",1)=""
^DD(8,"RQ",3)=""
^DD(8,"RQ",4)=""
^DD(8,"RQ",5)=""
^DD(8,"RQ",8)=""
^DD(8,"SB",8.01,10)=""
^DD(8.01,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(8.01,0,"IX","B",8.01,.01)=""
^DD(8.01,0,"NM","SYNONYM")=""
^DD(8.01,0,"UP")="8"
^DD(8.01,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X?1A.E) X"
^DD(8.01,.01,1,0)="^.1"
^DD(8.01,.01,1,1,0)="8.01^B"
^DD(8.01,.01,1,1,1)="S ^DIC(8,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(8.01,.01,1,1,2)="K ^DIC(8,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(8.01,.01,1,2,0)="8^SYN"
^DD(8.01,.01,1,2,1)="S ^DIC(8,""SYN"",$E(X,1,30),DA(1),DA)="""""
^DD(8.01,.01,1,2,2)="K ^DIC(8,""SYN"",$E(X,1,30),DA(1),DA)"
^DD(8.01,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(8.01,.01,21,0)="^^2^2^2911022^^"
^DD(8.01,.01,21,1,0)="This multiple fields allows the site to specify alternate name"
^DD(8.01,.01,21,2,0)="that the user can use to select this eligibility."
^DD(8.01,.01,"DT")="2861125"
^DD(8.01,"B","SYNONYM",.01)=""
^DD(8.01,"GL",0,1,.01)=""
^DD(8.01,"IX",.01)=""
^DD(8.1,0)="FIELD^NL^7^8"
^DD(8.1,0,"DDA")="N"
^DD(8.1,0,"DT")="3000417"
^DD(8.1,0,"ID",3)="W:$D(^(""0"")) ?35,$P(^(""0""),U,4)"
^DD(8.1,0,"IX","B",8.1,.01)=""
^DD(8.1,0,"IX","C",8.1,3)=""
^DD(8.1,0,"NM","MAS ELIGIBILITY CODE")=""
^DD(8.1,0,"PT",8,8)=""
^DD(8.1,0,"PT",27.11,50.01)=""
^DD(8.1,0,"PT",375,2.07)=""
^DD(8.1,0,"VR")="5.3"
^DD(8.1,0,"VRPK")="DG"
^DD(8.1,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8.1,.01,1,0)="^.1"
^DD(8.1,.01,1,1,0)="8.1^B"
^DD(8.1,.01,1,1,1)="S ^DIC(8.1,""B"",$E(X,1,30),DA)="""""
^DD(8.1,.01,1,1,2)="K ^DIC(8.1,""B"",$E(X,1,30),DA)"
^DD(8.1,.01,3)="Answer must be 3-30 characters in length."
^DD(8.1,.01,21,0)="^.001^1^1^3000417^^^^"
^DD(8.1,.01,21,1,0)="This is the official name of the MAS eligibility code."
^DD(8.1,.01,"DEL",1,0)="I 1 W !?5,""Deleting a MAS ELIGIBILITY file entry is not allowed"""
^DD(8.1,.01,"DT")="3000417"
^DD(8.1,.01,"LAYGO",1,0)="W !?5,*7,""Adding entries to the MAS ELIGIBILITY file is not allowed??"" I 0"
^DD(8.1,1,0)="CARD COLOR^RS^P:PURPLE;B:BLUE;R:RED;^0;2^Q"
^DD(8.1,1,21,0)="^^2^2^2891018^"
^DD(8.1,1,21,1,0)="This field indicates the color of the patient's card for the"
^DD(8.1,1,21,2,0)="MAS eligibility."
^DD(8.1,1,"DT")="2961023"
^DD(8.1,2,0)="ABBREVIATION^FI^^0;3^K:$L(X)>4!($L(X)<1) X"
^DD(8.1,2,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(8.1,2,21,0)="^^3^3^2910415^"
^DD(8.1,2,21,1,0)="This field may contain an abbreviation for the eligibility"
^DD(8.1,2,21,2,0)="name.  It may be used in place of the name in selected"
^DD(8.1,2,21,3,0)="prints."
^DD(8.1,2,"DT")="2891018"
^DD(8.1,3,0)="VA CODE NUMBER^RNJ2,0I^^0;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8.1,3,1,0)="^.1"
^DD(8.1,3,1,1,0)="8.1^C"
^DD(8.1,3,1,1,1)="S ^DIC(8.1,""C"",$E(X,1,30),DA)="""""
^DD(8.1,3,1,1,2)="K ^DIC(8.1,""C"",$E(X,1,30),DA)"
^DD(8.1,3,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(8.1,3,21,0)="^^2^2^2910415^"
^DD(8.1,3,21,1,0)="This field contains the VA CODE NUMBER that has been assigned"
^DD(8.1,3,21,2,0)="to this eligibility."
^DD(8.1,3,"DT")="2970730"
^DD(8.1,4,0)="TYPE^RSI^N:NON-VETERAN;Y:VETERAN;^0;5^Q"
^DD(8.1,4,21,0)="^^3^3^2970723^^"
^DD(8.1,4,21,1,0)="This field indicates the type of patient that can be assigned"
^DD(8.1,4,21,2,0)="this eligibility. The patient is either a 'veteran' or a"
^DD(8.1,4,21,3,0)="'non-veteran' type."
^DD(8.1,4,"DT")="3000803"
^DD(8.1,5,0)="PRINT NAME^RFI^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(8.1,5,3)="Enter abbreviated Eligibility Code name for ouput in limited space."
^DD(8.1,5,21,0)="^^2^2^2910415^"
^DD(8.1,5,21,1,0)="This field contains a shorten eligibility name that is used for"
^DD(8.1,5,21,2,0)="output that has limited space to print."
^DD(8.1,5,"DT")="2891018"
^DD(8.1,6,0)="INACTIVE^SI^1:YES;^0;7^Q"
^DD(8.1,6,21,0)="^^2^2^2910415^"
^DD(8.1,6,21,1,0)="If the eligibility is inactive then this field will be set to"
^DD(8.1,6,21,2,0)="'YES'."
^DD(8.1,6,"DT")="2920504"
^DD(8.1,7,0)="SELECT AS ADDITIONAL^SI^0:NO;1:YES;^0;8^Q"
^DD(8.1,7,21,0)="^^8^8^2910415^"
^DD(8.1,7,21,1,0)="This field indicates whether patients may be assigned this eligibility"
^DD(8.1,7,21,2,0)="as an 'additional' eligibility."
^DD(8.1,7,21,3,0)=" "
^DD(8.1,7,21,4,0)="If the field is set to 'NO' or is not filled in, then the eligibility can"
^DD(8.1,7,21,5,0)="only be assigned as a primary eligibility."
^DD(8.1,7,21,6,0)=" "
^DD(8.1,7,21,7,0)="If set to 'YES', then the eligibility can be used as both a"
^DD(8.1,7,21,8,0)="primary and an 'additional' eligibility."
^DD(8.1,7,"DT")="2910604"
^DD(8.1,"B","ABBREVIATION",2)=""
^DD(8.1,"B","CARD COLOR",1)=""
^DD(8.1,"B","INACTIVE",6)=""
^DD(8.1,"B","NAME",.01)=""
^DD(8.1,"B","PRINT NAME",5)=""
^DD(8.1,"B","SELECT AS ADDITIONAL",7)=""
^DD(8.1,"B","TYPE",4)=""
^DD(8.1,"B","VA CODE NUMBER",3)=""
^DD(8.1,"GL",0,1,.01)=""
^DD(8.1,"GL",0,2,1)=""
^DD(8.1,"GL",0,3,2)=""
^DD(8.1,"GL",0,4,3)=""
^DD(8.1,"GL",0,5,4)=""
^DD(8.1,"GL",0,6,5)=""
^DD(8.1,"GL",0,7,6)=""
^DD(8.1,"GL",0,8,7)=""
^DD(8.1,"IX",.01)=""
^DD(8.1,"IX",3)=""
^DD(8.1,"RQ",.01)=""
^DD(8.1,"RQ",1)=""
^DD(8.1,"RQ",3)=""
^DD(8.1,"RQ",4)=""
^DD(8.1,"RQ",5)=""
^DD(8.2,0)="FIELD^^400^9"
^DD(8.2,0,"DDA")="N"
^DD(8.2,0,"IX","B",8.2,.01)=""
^DD(8.2,0,"NM","IDENTIFICATION FORMAT")=""
^DD(8.2,0,"PT",8,9)=""
^DD(8.2,0,"PT",391,8.2)=""
^DD(8.2,0,"VR")="5.3"
^DD(8.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8.2,.01,1,0)="^.1"
^DD(8.2,.01,1,1,0)="8.2^B"
^DD(8.2,.01,1,1,1)="S ^DIC(8.2,""B"",$E(X,1,30),DA)="""""
^DD(8.2,.01,1,1,2)="K ^DIC(8.2,""B"",$E(X,1,30),DA)"
^DD(8.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8.2,.01,21,0)="^^1^1^2910408^^"
^DD(8.2,.01,21,1)="This field holds the name of the id format."
^DD(8.2,.01,21,1,0)="This field holds the name of the id format."
^DD(8.2,.02,0)="PROMPT USER FOR ID?^S^0:NO;1:YES;^0;2^Q"
^DD(8.2,.02,21,0)="^^4^4^2910415^^^"
^DD(8.2,.02,21,1,0)="This field indicates whether the user is prompted for the patient's long"
^DD(8.2,.02,21,2,0)="identification.  If set to 'NO' then user is not prompted and the"
^DD(8.2,.02,21,3,0)="id value will remain the value obtained from executing the 'DEFAULT"
^DD(8.2,.02,21,4,0)="LONG ID VALUE LOGIC'(field #300)."
^DD(8.2,1,0)="CROSS REFERENCE SET LOGIC^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8.2,1,3)="This is Standard MUMPS code."
^DD(8.2,1,21,0)="^^21^21^2910501^^^^"
^DD(8.2,1,21,1,0)="This field contains MUMPS code that will be executed by the 'set' logic"
^DD(8.2,1,21,2,0)="in the 'AC' cross reference on the 'LONG ID(#.03)' field of the 'PATIENT"
^DD(8.2,1,21,3,0)="ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file."
^DD(8.2,1,21,4,0)=" "
^DD(8.2,1,21,5,0)="The code will only be executed when the patient's eligibility has this"
^DD(8.2,1,21,6,0)="'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the"
^DD(8.2,1,21,7,0)="'ELIGIBILITY CODE(#8)' file."
^DD(8.2,1,21,8,0)=" "
^DD(8.2,1,21,9,0)="The purpose of this field is to allow for the setting of 'IDENTIFICATION"
^DD(8.2,1,21,10,0)="FORMAT' specific cross references.  Naturally, all cross-reference sets"
^DD(8.2,1,21,11,0)="must conform to VA FileMan specifications."
^DD(8.2,1,21,12,0)=" "
^DD(8.2,1,21,13,0)="The following variables are present when this code is executed:"
^DD(8.2,1,21,14,0)="     DA(1)  - internal number of PATIENT file entry"
^DD(8.2,1,21,15,0)=" "
^DD(8.2,1,21,16,0)="     DA     - internal number of PATIENT ELIGIBILITIES sub-file entry"
^DD(8.2,1,21,17,0)="            - also, since this sub-file is DINUMed, DA equals the"
^DD(8.2,1,21,18,0)="              internal file entry in the 'ELIGIBILITY CODE' file"
^DD(8.2,1,21,19,0)=" "
^DD(8.2,1,21,20,0)="     X      - new value of long id"
^DD(8.2,1,21,21,0)=" "
^DD(8.2,2,0)="CROSS REFERENCE KILL LOGIC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8.2,2,3)="This is Standard MUMPS code."
^DD(8.2,2,21,0)="^^21^21^2910501^^^^"
^DD(8.2,2,21,1,0)="This field contains MUMPS code that will be executed by the 'kill' logic"
^DD(8.2,2,21,2,0)="in the 'AC' cross reference on the 'LONG ID(#.03)' field of the 'PATIENT"
^DD(8.2,2,21,3,0)="ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file."
^DD(8.2,2,21,4,0)=" "
^DD(8.2,2,21,5,0)="The code will only be executed when the patient's eligibility has this"
^DD(8.2,2,21,6,0)="'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the"
^DD(8.2,2,21,7,0)="'ELIGIBILITY CODE(#8)' file."
^DD(8.2,2,21,8,0)=" "
^DD(8.2,2,21,9,0)="The purpose of this field is to allow for the killing of 'IDENTIFICATION"
^DD(8.2,2,21,10,0)="FORMAT' specific cross references.  Naturally, all cross-reference kills"
^DD(8.2,2,21,11,0)="must conform to VA FileMan specifications."
^DD(8.2,2,21,12,0)=" "
^DD(8.2,2,21,13,0)="The following variables are present when this code is executed:"
^DD(8.2,2,21,14,0)="     DA(1)  - internal number of PATIENT file entry"
^DD(8.2,2,21,15,0)=" "
^DD(8.2,2,21,16,0)="     DA     - internal number of PATIENT ELIGIBILITIES sub-file entry"
^DD(8.2,2,21,17,0)="            - also, since this sub-file is DINUMed, DA equals the"
^DD(8.2,2,21,18,0)="              internal file entry in the 'ELIGIBILITY CODE' file"
^DD(8.2,2,21,19,0)=" "
^DD(8.2,2,21,20,0)="     X      - old value long id"
^DD(8.2,2,21,21,0)=" "
^DD(8.2,4,0)="XECUTABLE 'HELP'^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8.2,4,3)="This is Standard MUMPS code."
^DD(8.2,4,21,0)="^^20^20^2910415^^^"
^DD(8.2,4,21,1,0)="This field contains MUMPS code that will be executed by the XECUTABLE"
^DD(8.2,4,21,2,0)="'HELP' on the 'LONG ID(#.03)' field of the 'PATIENT"
^DD(8.2,4,21,3,0)="ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file."
^DD(8.2,4,21,4,0)=" "
^DD(8.2,4,21,5,0)="The code will only be executed when the patient eligibility has this"
^DD(8.2,4,21,6,0)="'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the"
^DD(8.2,4,21,7,0)="'ELIGIBILITY CODE(#8)' file."
^DD(8.2,4,21,8,0)=" "
^DD(8.2,4,21,9,0)="The purpose of this field is to allow for id format specific help"
^DD(8.2,4,21,10,0)="to be performed whenever the user requests help or when they enter"
^DD(8.2,4,21,11,0)="invalid data."
^DD(8.2,4,21,12,0)=" "
^DD(8.2,4,21,13,0)="The following variables are present when this code is executed:"
^DD(8.2,4,21,14,0)="     DA(1)  - internal number of PATIENT file entry"
^DD(8.2,4,21,15,0)=" "
^DD(8.2,4,21,16,0)="     DA     - internal number of PATIENT ELIGIBILITIES sub-file entry"
^DD(8.2,4,21,17,0)="            - also, since this sub-file is DINUMed, DA equals the "
^DD(8.2,4,21,18,0)="              internal file entry in the 'ELIGIBILITY CODE' file"
^DD(8.2,4,21,19,0)=" "
^DD(8.2,4,21,20,0)="     X      - value of user input"
^DD(8.2,50,0)="DESCRIPTION^8.21^^DESCRIPTION;0"
^DD(8.2,50,21,0)="^^2^2^2910408^^"
^DD(8.2,50,21,1,0)="This field is used to document the use of this identification format."
^DD(8.2,50,21,2,0)="It is only for documentation purposes."
^DD(8.2,100,0)="INPUT TRANSFORM^K^^TRANSFORM;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8.2,100,3)="This is Standard MUMPS code."
^DD(8.2,100,21,0)="^^19^19^2910415^^^"
^DD(8.2,100,21,1,0)="This field contains MUMPS code that will be executed by the 'input"
^DD(8.2,100,21,2,0)="transform' on the 'LONG ID(#.03)' field of the 'PATIENT"
^DD(8.2,100,21,3,0)="ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file."
^DD(8.2,100,21,4,0)=" "
^DD(8.2,100,21,5,0)="The code will only be executed when the patient eligibility has this"
^DD(8.2,100,21,6,0)="'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the"
^DD(8.2,100,21,7,0)="'ELIGIBILITY CODE(#8)' file."
^DD(8.2,100,21,8,0)=" "
^DD(8.2,100,21,9,0)="The purpose of this field is to allow for id format specific input"
^DD(8.2,100,21,10,0)="transform to be performed on the id entered by a user."
^DD(8.2,100,21,11,0)=" "
^DD(8.2,100,21,12,0)="The following variables are present when this code is executed:"
^DD(8.2,100,21,13,0)="     DA(1)  - internal number of PATIENT file entry"
^DD(8.2,100,21,14,0)=" "
^DD(8.2,100,21,15,0)="     DA     - internal number of PATIENT ELIGIBILITIES sub-file entry"
^DD(8.2,100,21,16,0)="            - also, since this sub-file is DINUMed, DA equals the "
^DD(8.2,100,21,17,0)="              internal file entry in the 'ELIGIBILITY CODE' file"
^DD(8.2,100,21,18,0)=" "
^DD(8.2,100,21,19,0)="     X      - value of user input"
^DD(8.2,300,0)="DEFAULT LONG ID VALUE LOGIC^K^^LONG;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8.2,300,3)="This is Standard MUMPS code."
^DD(8.2,300,21,0)="^^19^19^2910415^^^^"
^DD(8.2,300,21,1,0)="This field contains MUMPS code that will be executed by the trigger cross "
^DD(8.2,300,21,2,0)="reference(#3) on the 'ELIGIBILITY(#.01)' field of the 'PATIENT "
^DD(8.2,300,21,3,0)="ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file. The code is the "
^DD(8.2,300,21,4,0)="'CREATE VALUE' for this trigger. This trigger is used to automatically stuff a "
^DD(8.2,300,21,5,0)="value in the 'LONG ID(#.03) field."
^DD(8.2,300,21,6,0)=" "
^DD(8.2,300,21,7,0)="The code will only be executed when the 'ELIGIBILIITY(#.01)' field has this "
^DD(8.2,300,21,8,0)="'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)' indicated in the "
^DD(8.2,300,21,9,0)="'ELIGIBILITY CODE(#8)' file."
^DD(8.2,300,21,10,0)=" "
^DD(8.2,300,21,11,0)="The following variables are present when this code is executed:"
^DD(8.2,300,21,12,0)="     DA(1)  - internal number of PATIENT file entry"
^DD(8.2,300,21,13,0)=" "
^DD(8.2,300,21,14,0)="     DA     - internal number of PATIENT ELIGIBILITIES sub-file entry"
^DD(8.2,300,21,15,0)="            - also, since this sub-file is DINUMed, DA equals the"
^DD(8.2,300,21,16,0)="              internal file entry in the 'ELIGIBILITY CODE' file"
^DD(8.2,300,21,17,0)=" "
^DD(8.2,300,21,18,0)="     X      - value of user input"
^DD(8.2,300,21,19,0)=" "
^DD(8.2,400,0)="SHORT ID TRANSFORM^K^^SHORT;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8.2,400,3)="This is Standard MUMPS code."
^DD(8.2,400,21,0)="^^19^19^2911222^^^^"
^DD(8.2,400,21,1,0)="This field contains MUMPS code that will be executed by the trigger"
^DD(8.2,400,21,2,0)="cross reference(#3) on the 'LONG ID(#.03)' field of the 'PATIENT"
^DD(8.2,400,21,3,0)="ELIGIBILITIES(#361)' sub-field of the 'PATIENT(#2)' file. The code is"
^DD(8.2,400,21,4,0)="the 'CREATE VALUE' for this trigger. This trigger is used to"
^DD(8.2,400,21,5,0)="automatically stuff a value in the 'SHORT ID(#.04) field."
^DD(8.2,400,21,6,0)=" "
^DD(8.2,400,21,7,0)="The code will only be executed when the 'ELIGIBILIITY(#.01)' field"
^DD(8.2,400,21,8,0)="has this 'IDENTIFICATION FORMAT' entry as its 'ID FORMAT(#9)'"
^DD(8.2,400,21,9,0)="indicated in the 'ELIGIBILITY CODE(#8)' file."
^DD(8.2,400,21,10,0)=" "
^DD(8.2,400,21,11,0)="The following variables are present when this code is executed:"
^DD(8.2,400,21,12,0)="     DA(1)  - internal number of PATIENT file entry"
^DD(8.2,400,21,13,0)=" "
^DD(8.2,400,21,14,0)="     DA     - internal number of PATIENT ELIGIBILITIES sub-file entry"
^DD(8.2,400,21,15,0)="            - also, since this sub-file is DINUMed, DA equals the"
^DD(8.2,400,21,16,0)="              internal file entry in the 'ELIGIBILITY CODE' file"
^DD(8.2,400,21,17,0)=" "
^DD(8.2,400,21,18,0)="     X      - value of user input"
^DD(8.2,400,21,19,0)=" "
^DD(8.2,400,"DT")="2891107"
^DD(8.2,"B","CROSS REFERENCE KILL LOGIC",2)=""
^DD(8.2,"B","CROSS REFERENCE SET LOGIC",1)=""
^DD(8.2,"B","DEFAULT LONG ID VALUE LOGIC",300)=""
^DD(8.2,"B","DESCRIPTION",50)=""
^DD(8.2,"B","INPUT TRANSFORM",100)=""
^DD(8.2,"B","NAME",.01)=""
^DD(8.2,"B","PROMPT USER FOR ID?",.02)=""
^DD(8.2,"B","SHORT ID TRANSFORM",400)=""
^DD(8.2,"B","XECUTABLE 'HELP'",4)=""
^DD(8.2,"GL",0,1,.01)=""
^DD(8.2,"GL",0,2,.02)=""
^DD(8.2,"GL",1,"E1,245",1)=""
^DD(8.2,"GL",2,"E1,245",2)=""
^DD(8.2,"GL",4,"E1,245",4)=""
^DD(8.2,"GL","DESCRIPTION",0,50)=""
^DD(8.2,"GL","LONG","E1,245",300)=""
^DD(8.2,"GL","SHORT","E1,245",400)=""
^DD(8.2,"GL","TRANSFORM","E1,245",100)=""
^DD(8.2,"IX",.01)=""
^DD(8.2,"RQ",.01)=""
^DD(8.2,"SB",8.21,50)=""
^DD(8.21,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8.21,0,"NM","DESCRIPTION")=""
^DD(8.21,0,"UP")="8.2"
^DD(8.21,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(8.21,"B","DESCRIPTION",.01)=""
^DD(8.21,"GL",0,1,.01)=""
^DD(9.2,0)="FIELD^^10.2^14"
^DD(9.2,0,"DDA")="N"
^DD(9.2,0,"DT")="2910815"
^DD(9.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(9.2,0,"IX","AC",9.2,6)=""
^DD(9.2,0,"IX","AD",9.24,.01)=""
^DD(9.2,0,"IX","AE",9.22,1)=""
^DD(9.2,0,"IX","B",9.2,.01)=""
^DD(9.2,0,"IX","C",9.2,1)=""
^DD(9.2,0,"IX","D",9.2,4)=""
^DD(9.2,0,"IX","D",9.23,.01)=""
^DD(9.2,0,"NM","HELP FRAME")=""
^DD(9.2,0,"PT",9.22,1)=""
^DD(9.2,0,"PT",19,3.7)=""
^DD(9.2,0,"VR")="8.0"
^DD(9.2,0,"VRPK")="XU"
^DD(9.2,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.2,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 1000000"
^DD(9.2,.001,21,0)="^^1^1^2931214^"
^DD(9.2,.001,21,1,0)="This field uniquely identifies a help frame."
^DD(9.2,.01,0)="NAME^RX^^0;1^D CHKNAME^XQ5 K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(9.2,.01,.1)="SHORT DESCRIPTION OF THE FRAME"
^DD(9.2,.01,1,0)="^.1"
^DD(9.2,.01,1,1,0)="9.2^B"
^DD(9.2,.01,1,1,1)="S ^DIC(9.2,""B"",$E(X,1,30),DA)="""""
^DD(9.2,.01,1,1,2)="K ^DIC(9.2,""B"",$E(X,1,30),DA)"
^DD(9.2,.01,1,2,0)="^^TRIGGER^9.2^4"
^DD(9.2,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9.2,.01,1,2,1.1) X ^DD(9.2,.01,1,2,1.4)"
^DD(9.2,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(9.2,.01,1,2,1.4)="S DIH=$S($D(^DIC(9.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=9.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(9.2,.01,1,2,2)="Q"
^DD(9.2,.01,1,2,"%D",0)="^^2^2^2900723^"
^DD(9.2,.01,1,2,"%D",1,0)="This trigger sets the 'DATE ENTERED' field to the date and time when"
^DD(9.2,.01,1,2,"%D",2,0)="the help frame is created."
^DD(9.2,.01,1,2,"CREATE CONDITION")="DATE ENTERED="""""
^DD(9.2,.01,1,2,"CREATE VALUE")="NOW"
^DD(9.2,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(9.2,.01,1,2,"DT")="2900723"
^DD(9.2,.01,1,2,"FIELD")="DATE ENTERED"
^DD(9.2,.01,1,3,0)="^^TRIGGER^9.2^6"
^DD(9.2,.01,1,3,1)="X ^DD(9.2,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9.2,.01,1,3,1.1) X ^DD(9.2,.01,1,3,1.4)"
^DD(9.2,.01,1,3,1.1)="S X=DIV X ^DD(9.2,.01,1,3,49.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""""),X=$S('DUZ:""??"",X=""#"":DUZ,X=""N"":$P(%,U,1),X=""I"":$P(%,U,2),X=""T"":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""""),X=""NN"":$S($D(^VA(200,+DUZ,.1)):$P(^(.1),U,4),1:""""),1:""??"") K %"
^DD(9.2,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(9.2,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1))="""""
^DD(9.2,.01,1,3,1.4)="S DIH=$S($D(^DIC(9.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=9.2,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(9.2,.01,1,3,2)="Q"
^DD(9.2,.01,1,3,49.2)="S X=""#"""
^DD(9.2,.01,1,3,"%D",0)="^^2^2^2940202^"
^DD(9.2,.01,1,3,"%D",1,0)="This cross reference marks Help Frames with the creater in the"
^DD(9.2,.01,1,3,"%D",2,0)="Author field."
^DD(9.2,.01,1,3,"CREATE CONDITION")="AUTHOR="""""
^DD(9.2,.01,1,3,"CREATE VALUE")="USER(""#"")"
^DD(9.2,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(9.2,.01,1,3,"DT")="2940202"
^DD(9.2,.01,1,3,"FIELD")="author"
^DD(9.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(9.2,.01,21,0)="^^2^2^2840809^"
^DD(9.2,.01,21,1,0)="The unique name of the frame, preceded with the package prefix name,"
^DD(9.2,.01,21,2,0)="similar to option names."
^DD(9.2,.01,"DT")="2940202"
^DD(9.2,1,0)="HEADER^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<2) X"
^DD(9.2,1,1,0)="^.1"
^DD(9.2,1,1,1,0)="9.2^C^KWIC"
^DD(9.2,1,1,1,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^DIC(9.2,""C"",I,DA)="""""
^DD(9.2,1,1,1,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^DIC(9.2,""C"",I,DA)"
^DD(9.2,1,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(9.2,1,21,0)="^^2^2^2840809^"
^DD(9.2,1,21,1,0)="A short description of the frame, succinctly describing the content"
^DD(9.2,1,21,2,0)="of the frame"
^DD(9.2,2,0)="TEXT^9.21^^1;0"
^DD(9.2,2,21,0)="^^3^3^2920702^"
^DD(9.2,2,21,1,0)="The actual text of the help frame, which will be displayed when the user"
^DD(9.2,2,21,2,0)="presses question mark.  Screen breaks are indicated by a line terminating"
^DD(9.2,2,21,3,0)="with ""..""."
^DD(9.2,2,21,4,0)="continuation screens, or 'related frames'."
^DD(9.2,3,0)="RELATED FRAME^9.22A^^2;0"
^DD(9.2,3,21,0)="^^4^4^2930402^"
^DD(9.2,3,21,1,0)="This is a multiple field which contains information on the other help"
^DD(9.2,3,21,2,0)="frames which are related to the current help frame through specific"
^DD(9.2,3,21,3,0)="keywords.  The keywords may be selected to obtain additional information"
^DD(9.2,3,21,4,0)="about the topic through the related help frame(s)."
^DD(9.2,3.5,0)="Want to LOAD KEYWORDS (Y/N)?^FX^^0;5^D LOADKW^XQH2"
^DD(9.2,3.5,.1)=""
^DD(9.2,3.5,1,0)="^.1^^0"
^DD(9.2,3.5,3)="Enter 'Y' if you wish to make all bracketed words appearing in the text into keywords."
^DD(9.2,3.5,21,0)="^^2^2^2890125^"
^DD(9.2,3.5,21,1,0)="This field is designed for internal use.  Its input transform will"
^DD(9.2,3.5,21,2,0)="invoke a routine to associate keywords with related help frames."
^DD(9.2,3.5,"DT")="2860724"
^DD(9.2,4,0)="DATE ENTERED^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(9.2,4,1,0)="^.1"
^DD(9.2,4,1,1,0)="9.2^D"
^DD(9.2,4,1,1,1)="S ^DIC(9.2,""D"",$E(X,1,30),DA)="""""
^DD(9.2,4,1,1,2)="K ^DIC(9.2,""D"",$E(X,1,30),DA)"
^DD(9.2,4,5,1,0)="9.2^.01^2"
^DD(9.2,4,5,2,0)="9.2^.01^3"
^DD(9.2,4,9)="^"
^DD(9.2,4,21,0)="^^2^2^2840809^"
^DD(9.2,4,21,1,0)="Date/time that this frame was entered into the system, which is used to "
^DD(9.2,4,21,2,0)="track new Help frame activity."
^DD(9.2,5,0)="INVOKED BY ROUTINE^9.23A^^3;0"
^DD(9.2,5,21,0)="^^2^2^2850919^^^"
^DD(9.2,5,21,1,0)="This field is for documentation purposes.  It serves as a record of which"
^DD(9.2,5,21,2,0)="routines reference a particular help frame."
^DD(9.2,6,0)="AUTHOR^P200'^VA(200,^0;4^Q"
^DD(9.2,6,1,0)="^.1"
^DD(9.2,6,1,1,0)="9.2^AC"
^DD(9.2,6,1,1,1)="S ^DIC(9.2,""AC"",$E(X,1,30),DA)="""""
^DD(9.2,6,1,1,2)="K ^DIC(9.2,""AC"",$E(X,1,30),DA)"
^DD(9.2,6,5,1,0)="9.2^.01^2"
^DD(9.2,6,5,2,0)="9.2^.01^3"
^DD(9.2,6,9)="^"
^DD(9.2,6,21,0)="^^2^2^2850919^"
^DD(9.2,6,21,1,0)="The person who created the entry for this help frame.  This is a triggered"
^DD(9.2,6,21,2,0)="field, it's value determined by the creator of the .01 entry."
^DD(9.2,6,"DT")="2890908"
^DD(9.2,7,0)="EDITOR^9.24P^^4;0"
^DD(9.2,7,21,0)="^^1^1^2850919^^"
^DD(9.2,7,21,1,0)="Users who are allowed to edit this help frame, as determined by the author."
^DD(9.2,8,0)="DATE LAST UPDATED^CDJ15^^ ; ^S Y(9.2,8,1)=$S($D(^DIC(9.2,D0,1,0)):^(0),1:"""") S X=$P(Y(9.2,8,1),U,5)"
^DD(9.2,8,9)="^"
^DD(9.2,8,9.01)=""
^DD(9.2,8,9.1)="S Y(9.2,8,1)=$S($D(^DIC(9.2,D0,1,0)):^(0),1:"""") S X=$P(Y(9.2,8,1),U,5)"
^DD(9.2,8,21,0)="^^2^2^2930402^"
^DD(9.2,8,21,1,0)="This field is used to maintain an indication of the date on which the help"
^DD(9.2,8,21,2,0)="frame was last modified or updated."
^DD(9.2,8,"DT")="2851013"
^DD(9.2,10,0)="OBJECT^9.201P^^10;0"
^DD(9.2,10,21,0)="^^3^3^2930402^"
^DD(9.2,10,21,1,0)="This field is a multiple provided to point to the object file to"
^DD(9.2,10,21,2,0)="specify particular objects, and is primarily used in conjunction with the"
^DD(9.2,10,21,3,0)="Enter and Exit Execute fields (fields 10.1 and 10.2)."
^DD(9.2,10.1,0)="ENTRY EXECUTE STATEMENT^K^^10.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(9.2,10.1,3)="This is Standard MUMPS code which will be executed as the user enters this Help Frame"
^DD(9.2,10.1,9)="""@"""
^DD(9.2,10.1,21,0)="^^2^2^2930402^"
^DD(9.2,10.1,21,1,0)="This field is used to include an M code statement which is executed as the"
^DD(9.2,10.1,21,2,0)="user enters this help frame."
^DD(9.2,10.1,"DT")="2910116"
^DD(9.2,10.2,0)="EXIT EXECUTE STATEMENT^K^^10.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(9.2,10.2,3)="This is Standard MUMPS code which will be executed as the user leaves the current Help Frame."
^DD(9.2,10.2,9)="""@"""
^DD(9.2,10.2,21,0)="^^3^3^2930402^"
^DD(9.2,10.2,21,1,0)="This field is used to provide an M code statement which is to be executed"
^DD(9.2,10.2,21,2,0)="as the user exits the current help frame (whether moving into another help"
^DD(9.2,10.2,21,3,0)="frame or back out of the current help frame)."
^DD(9.2,10.2,"DT")="2910116"
^DD(9.2,"B","AUTHOR",6)=""
^DD(9.2,"B","DATE ENTERED",4)=""
^DD(9.2,"B","DATE LAST UPDATED",8)=""
^DD(9.2,"B","EDITOR",7)=""
^DD(9.2,"B","ENTRY EXECUTE STATEMENT",10.1)=""
^DD(9.2,"B","EXIT EXECUTE STATEMENT",10.2)=""
^DD(9.2,"B","HEADER",1)=""
^DD(9.2,"B","INVOKED BY ROUTINE",5)=""
^DD(9.2,"B","NAME",.01)=""
^DD(9.2,"B","NUMBER",.001)=""
^DD(9.2,"B","OBJECT",10)=""
^DD(9.2,"B","RELATED FRAME",3)=""
^DD(9.2,"B","SHORT DESCRIPTION OF THE FRAME",.01)="1"
^DD(9.2,"B","TEXT",2)=""
^DD(9.2,"B","Want to LOAD KEYWORDS (Y/N)?",3.5)=""
^DD(9.2,"GL",0,1,.01)=""
^DD(9.2,"GL",0,2,1)=""
^DD(9.2,"GL",0,3,4)=""
^DD(9.2,"GL",0,4,6)=""
^DD(9.2,"GL",0,5,3.5)=""
^DD(9.2,"GL",1,0,2)=""
^DD(9.2,"GL",2,0,3)=""
^DD(9.2,"GL",3,0,5)=""
^DD(9.2,"GL",4,0,7)=""
^DD(9.2,"GL",10,0,10)=""
^DD(9.2,"GL",10.1,"E1,245",10.1)=""
^DD(9.2,"GL",10.2,"E1,245",10.2)=""
^DD(9.2,"IX",.01)=""
^DD(9.2,"IX",1)=""
^DD(9.2,"IX",4)=""
^DD(9.2,"IX",6)=""
^DD(9.2,"RQ",.01)=""
^DD(9.2,"SB",9.201,10)=""
^DD(9.2,"SB",9.21,2)=""
^DD(9.2,"SB",9.22,3)=""
^DD(9.2,"SB",9.23,5)=""
^DD(9.2,"SB",9.24,7)=""
^DD(9.201,0)="OBJECT SUB-FIELD^^.01^1"
^DD(9.201,0,"DT")="2910116"
^DD(9.201,0,"IX","B",9.201,.01)=""
^DD(9.201,0,"NM","OBJECT")=""
^DD(9.201,0,"UP")="9.2"
^DD(9.201,.01,0)="OBJECT^MP2005'^MAG(^0;1^Q"
^DD(9.201,.01,1,0)="^.1"
^DD(9.201,.01,1,1,0)="9.201^B"
^DD(9.201,.01,1,1,1)="S ^DIC(9.2,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(9.201,.01,1,1,2)="K ^DIC(9.2,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(9.201,.01,3)="This is a pointer to entries in the OBJECT file which may be referenced in the ENTRY or EXIT EXECUTE STATEMENTS associated with this Help Frame"
^DD(9.201,.01,21,0)="^^3^3^2930402^"
^DD(9.201,.01,21,1,0)="This field is used to indicate a specific object in the OBJECT file.  It"
^DD(9.201,.01,21,2,0)="is primarily intended for use with the Entry and Exit Execute fields to"
^DD(9.201,.01,21,3,0)="provide the ability to relate to the specified object."
^DD(9.201,.01,"DT")="2910116"
^DD(9.201,"B","OBJECT",.01)=""
^DD(9.201,"GL",0,1,.01)=""
^DD(9.201,"IX",.01)=""
^DD(9.21,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(9.21,0,"DT")="2910815"
^DD(9.21,0,"NM","TEXT")=""
^DD(9.21,0,"UP")="9.2"
^DD(9.21,.01,0)="TEXT^W^^0;1^Q"
^DD(9.21,.01,.1)="THE ACTUAL TEXT OF THE FIELD, IN DIWE FORMAT"
^DD(9.21,.01,3)="ANSWER MUST BE 1-72 CHARACTERS IN LENGTH"
^DD(9.21,.01,21,0)="^^3^3^2920702^"
^DD(9.21,.01,21,1,0)="The actual text of the help frame, which will be displayed when the user"
^DD(9.21,.01,21,2,0)="presses question mark.  Screen breaks are indicated by a line terminating"
^DD(9.21,.01,21,3,0)="with ""..""."
^DD(9.21,.01,"DT")="2910815"
^DD(9.21,"B","TEXT",.01)=""
^DD(9.21,"GL",0,1,.01)=""
^DD(9.22,0)="RELATED FRAME SUB-FIELD^NL^1^2"
^DD(9.22,0,"DT")="2910801"
^DD(9.22,0,"IX","B",9.22,.01)=""
^DD(9.22,0,"NM","RELATED FRAME")=""
^DD(9.22,0,"UP")="9.2"
^DD(9.22,.01,0)="RELATED FRAME KEYWORD^MF^^0;1^K:$L(X)>30!($L(X)<1)!'(X?.PNU) X"
^DD(9.22,.01,.1)="FRAMES WHICH MAY BE CHOSEN FOR GREATER DETAIL, AT THE USER'S DISCRETION"
^DD(9.22,.01,1,0)="^.1"
^DD(9.22,.01,1,1,0)="9.22^B"
^DD(9.22,.01,1,1,1)="S ^DIC(9.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(9.22,.01,1,1,2)="K ^DIC(9.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(9.22,.01,3)="Answer must be 1-30 characters in length."
^DD(9.22,.01,4)="Q  ;S Y=22 D EN^XQH ;Unknow what this was to do."
^DD(9.22,.01,21,0)="^^3^3^2850919^"
^DD(9.22,.01,21,1,0)="A keyword appears in the text surrounded by brackets.  When the user"
^DD(9.22,.01,21,2,0)="enters the keyword, a related frame will be displayed with more detailed"
^DD(9.22,.01,21,3,0)="information on the topic suggested by the keyword."
^DD(9.22,.01,"DT")="2910801"
^DD(9.22,1,0)="RELATED FRAME^P9.2^DIC(9.2,^0;2^Q"
^DD(9.22,1,1,0)="^.1"
^DD(9.22,1,1,1,0)="9.2^AE"
^DD(9.22,1,1,1,1)="S ^DIC(9.2,""AE"",$E(X,1,30),DA(1),DA)="""""
^DD(9.22,1,1,1,2)="K ^DIC(9.2,""AE"",$E(X,1,30),DA(1),DA)"
^DD(9.22,1,1,1,3)="For clean-up tools"
^DD(9.22,1,1,1,"DT")="2950315"
^DD(9.22,1,3)=""
^DD(9.22,1,21,0)="^^2^2^2850919^^"
^DD(9.22,1,21,1,0)="The internal name of another help-frame which can be invoked by the"
^DD(9.22,1,21,2,0)="keyword to obtain more detailed information on a sub-topic."
^DD(9.22,1,"DT")="2950315"
^DD(9.22,"B","RELATED FRAME",1)=""
^DD(9.22,"B","RELATED FRAME KEYWORD",.01)=""
^DD(9.22,"GL",0,1,.01)=""
^DD(9.22,"GL",0,2,1)=""
^DD(9.22,"IX",.01)=""
^DD(9.22,"IX",1)=""
^DD(9.23,0)="INVOKED BY ROUTINE SUB-FIELD^NL^.01^1"
^DD(9.23,0,"NM","INVOKED BY ROUTINE")=""
^DD(9.23,0,"UP")="9.2"
^DD(9.23,.01,0)="INVOKED BY ROUTINE^F^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(9.23,.01,.1)="NOT USED AT THE MOMENT"
^DD(9.23,.01,1,0)="^.1"
^DD(9.23,.01,1,1,0)="9.2^D"
^DD(9.23,.01,1,1,1)="S ^XHLP(""D"",$E(X,1,30),DA(1),DA)="""""
^DD(9.23,.01,1,1,2)="K ^XHLP(""D"",$E(X,1,30),DA(1),DA)"
^DD(9.23,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(9.23,.01,21,0)="^^2^2^2850919^^"
^DD(9.23,.01,21,1,0)="This field is for documentation purposes.  It serves as a record of which"
^DD(9.23,.01,21,2,0)="routines reference a particular help frame."
^DD(9.23,.01,"DT")="2850610"
^DD(9.23,"B","INVOKED BY ROUTINE",.01)=""
^DD(9.23,"B","NOT USED AT THE MOMENT",.01)="1"
^DD(9.23,"GL",0,1,.01)=""
^DD(9.23,"IX",.01)=""
^DD(9.24,0)="EDITOR SUB-FIELD^NL^.01^1"
^DD(9.24,0,"DT")="2890908"
^DD(9.24,0,"IX","AB",9.24,.01)=""
^DD(9.24,0,"NM","EDITOR")=""
^DD(9.24,0,"UP")="9.2"
^DD(9.24,.01,0)="EDITOR^MP200'^VA(200,^0;1^Q"
^DD(9.24,.01,.1)="A LIST OF FRAMES WHICH SHOULD BE SEQUENTIALLY SCANNED AFTER THIS ONE."
^DD(9.24,.01,1,0)="^.1"
^DD(9.24,.01,1,1,0)="9.24^AB"
^DD(9.24,.01,1,1,1)="S ^DIC(9.2,DA(1),4,""AB"",$E(X,1,30),DA)="""""
^DD(9.24,.01,1,1,2)="K ^DIC(9.2,DA(1),4,""AB"",$E(X,1,30),DA)"
^DD(9.24,.01,1,2,0)="9.2^AD"
^DD(9.24,.01,1,2,1)="S ^DIC(9.2,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(9.24,.01,1,2,2)="K ^DIC(9.2,""AD"",$E(X,1,30),DA(1),DA)"
^DD(9.24,.01,4)="Q"
^DD(9.24,.01,21,0)="^^1^1^2850919^"
^DD(9.24,.01,21,1,0)="Users who are allowed to edit this help frame, as determined by the author."
^DD(9.24,.01,"DT")="2890908"
^DD(9.24,"B","EDITOR",.01)=""
^DD(9.24,"GL",0,1,.01)=""
^DD(9.24,"IX",.01)=""
^DD(9.4,0)="FIELD^NL^15007^31"
^DD(9.4,0,"DDA")="N"
^DD(9.4,0,"DT")="2941020"
^DD(9.4,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(9.4,0,"IX","AMRG",9.402,.01)=""
^DD(9.4,0,"IX","AR",9.44,.01)=""
^DD(9.4,0,"IX","B",9.4,.01)=""
^DD(9.4,0,"IX","C",9.4,1)=""
^DD(9.4,0,"IX","C2",9.4014,.01)=""
^DD(9.4,0,"IX","E",9.415007,.01)=""
^DD(9.4,0,"NM","PACKAGE")=""
^DD(9.4,0,"PT",.84,1.2)=""
^DD(9.4,0,"PT",9.6,1)=""
^DD(9.4,0,"PT",9.7,1)=""
^DD(9.4,0,"PT",15.01101,.01)=""
^DD(9.4,0,"PT",19,12)=""
^DD(9.4,0,"PT",44,50.02)=""
^DD(9.4,0,"PT",100,12)=""
^DD(9.4,0,"PT",100.03,.05)=""
^DD(9.4,0,"PT",100.1,2)=""
^DD(9.4,0,"PT",100.22,.07)=""
^DD(9.4,0,"PT",100.67,.01)=""
^DD(9.4,0,"PT",100.9901,.01)=""
^DD(9.4,0,"PT",100.995,.01)=""
^DD(9.4,0,"PT",101,12)=""
^DD(9.4,0,"PT",101.41,7)=""
^DD(9.4,0,"PT",150.93,.01)=""
^DD(9.4,0,"PT",579.6,.01)=""
^DD(9.4,0,"PT",776.3,.02)=""
^DD(9.4,0,"PT",779.2,2)=""
^DD(9.4,0,"PT",7105.5,3)=""
^DD(9.4,0,"PT",8989.332,.01)=""
^DD(9.4,0,"PT",8989.5,.01)=""
^DD(9.4,0,"PT",9000010,81202)=""
^DD(9.4,0,"PT",9000010.06,81202)=""
^DD(9.4,0,"PT",9000010.07,81202)=""
^DD(9.4,0,"PT",9000010.11,81202)=""
^DD(9.4,0,"PT",9000010.12,81202)=""
^DD(9.4,0,"PT",9000010.13,81202)=""
^DD(9.4,0,"PT",9000010.15,81202)=""
^DD(9.4,0,"PT",9000010.16,81202)=""
^DD(9.4,0,"PT",9000010.18,81202)=""
^DD(9.4,0,"PT",9000010.23,81202)=""
^DD(9.4,0,"VR")="8.0"
^DD(9.4,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(9.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<4)!'(X'?1P.E) X"
^DD(9.4,.01,1,0)="^.1"
^DD(9.4,.01,1,1,0)="9.4^B"
^DD(9.4,.01,1,1,1)="S ^DIC(9.4,""B"",X,DA)="""""
^DD(9.4,.01,1,1,2)="K ^DIC(9.4,""B"",X,DA)"
^DD(9.4,.01,3)="Please enter the name of this PACKAGE (4-30 characters)."
^DD(9.4,.01,21,0)="^^1^1^2940627^^^^"
^DD(9.4,.01,21,1,0)="The name of this Package."
^DD(9.4,1,0)="PREFIX^RFX^^0;2^K:$L(X)>4!(X'?1U1.3NU) X I $D(X) S %=$O(^DIC(9.4,""C"",X,0)) K:(%>0)&(%-DA) X"
^DD(9.4,1,.1)="NAMESPACE"
^DD(9.4,1,1,0)="^.1"
^DD(9.4,1,1,1,0)="9.4^C"
^DD(9.4,1,1,1,1)="S ^DIC(9.4,""C"",X,DA)="""""
^DD(9.4,1,1,1,2)="K ^DIC(9.4,""C"",X,DA)"
^DD(9.4,1,3)="Please enter the unique namespace prefix (2-4 characters, starting with an alpha)."
^DD(9.4,1,21,0)="^^4^4^2940627^^^^"
^DD(9.4,1,21,1,0)="This is the unique namespace prefix assigned to the Package, e.g. XM for"
^DD(9.4,1,21,2,0)="the MailMan routines and globals, DI for the FileMan routines, etc."
^DD(9.4,1,21,3,0)="This field is appended to letters (like ""INIT"") to be used as the"
^DD(9.4,1,21,4,0)="names of INIT routines."
^DD(9.4,1,"DT")="2890223"
^DD(9.4,2,0)="SHORT DESCRIPTION^RF^^0;3^K:$L(X)>60!($L(X)<2) X"
^DD(9.4,2,3)="Answer must be 2-60 characters in length."
^DD(9.4,2,21,0)="1"
^DD(9.4,2,21,1,0)="This is a brief description of this Package's functions."
^DD(9.4,2,"DT")="2890627"
^DD(9.4,3,0)="DESCRIPTION^9.41A^^1;0"
^DD(9.4,3,21,0)="^^2^2^2920513^^^"
^DD(9.4,3,21,1,0)="This is a complete and detailed description of the Package's functions"
^DD(9.4,3,21,2,0)="and capabilities."
^DD(9.4,6,0)="FILE^9.44PA^^4;0"
^DD(9.4,6,21,0)="^^3^3^2920513^^^^"
^DD(9.4,6,21,1,0)="Any FileMan files which are part of this Package are documented"
^DD(9.4,6,21,2,0)="here.  This multiple controls what files (Data Dictionaries and"
^DD(9.4,6,21,3,0)="Data) are sent in an INIT built from this Package entry."
^DD(9.4,6,"DT")="2990407"
^DD(9.4,7,0)="PRINT TEMPLATE^9.46^^DIPT;0"
^DD(9.4,7,21,0)="^^4^4^2921202^^^^"
^DD(9.4,7,21,1,0)="The names of Print Templates being sent with this Package."
^DD(9.4,7,21,2,0)="This multiple is used to send non-namespaced templates in an INIT."
^DD(9.4,7,21,3,0)="Namespaced templates are sent automatically and need not be listed"
^DD(9.4,7,21,4,0)="separately."
^DD(9.4,7,"DT")="2990407"
^DD(9.4,8,0)="INPUT TEMPLATE^9.47^^DIE;0"
^DD(9.4,8,21,0)="^^4^4^2920513^^^"
^DD(9.4,8,21,1,0)="The names of the Input Templates being sent with this Package"
^DD(9.4,8,21,2,0)="This multiple is used to send non-namespaced templates in an INIT."
^DD(9.4,8,21,3,0)="Namespaced templates are sent automatically and need not be listed"
^DD(9.4,8,21,4,0)="separately."
^DD(9.4,8,"DT")="2990407"
^DD(9.4,9,0)="SORT TEMPLATE^9.48^^DIBT;0"
^DD(9.4,9,21,0)="^^4^4^2920513^^^"
^DD(9.4,9,21,1,0)="The names of the Sort Templates being sent with this Package."
^DD(9.4,9,21,2,0)="This multiple is used to send non-namespaced templates in an INIT."
^DD(9.4,9,21,3,0)="Namespaced templates are sent automatically and need not be listed"
^DD(9.4,9,21,4,0)="separately."
^DD(9.4,9,"DT")="2990407"
^DD(9.4,9.1,0)="SCREEN TEMPLATE (FORM)^9.485^^DIST;0"
^DD(9.4,9.1,21,0)="^^2^2^2920513^^^"
^DD(9.4,9.1,21,1,0)="The names of Screen Templates (from the FORM file) associated with"
^DD(9.4,9.1,21,2,0)="this package."
^DD(9.4,9.1,"DT")="2990407"
^DD(9.4,9.5,0)="*MENU^9.495^^M;0"
^DD(9.4,9.5,21,0)="^^1^1^2920513^^^"
^DD(9.4,9.5,21,1,0)="This is the name of a menu-type option in another namespace."
^DD(9.4,9.5,"DT")="2940603"
^DD(9.4,10,0)="DEVELOPER (PERSON/SITE)^F^^DEV;1^K:$L(X)>50!($L(X)<2) X"
^DD(9.4,10,3)="Please enter the name of the principal Developer and Site (2-50 characters)."
^DD(9.4,10,21,0)="^^1^1^2920513^^"
^DD(9.4,10,21,1,0)="The name of the principal Developer and Site for this Package."
^DD(9.4,10.6,0)="*LOWEST FILE NUMBER^NJ12,2^^11;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(9.4,10.6,3)="Type a Number between 0 and 999999999, 2 Decimal Digits"
^DD(9.4,10.6,21,0)="^^1^1^2920513^^^^"
^DD(9.4,10.6,21,1,0)="Inclusive lower bound of the range of file numbers allocated to this package."
^DD(9.4,10.6,"DT")="2940603"
^DD(9.4,11,0)="*HIGHEST FILE NUMBER^NJ12,2^^11;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(9.4,11,3)="Type a Number between 0 and 999999999, 2 Decimal Digits"
^DD(9.4,11,21,0)="^^1^1^2920513^^^"
^DD(9.4,11,21,1,0)="Inclusive upper bound of the range of file numbers assigned to this package."
^DD(9.4,11,"DT")="2940603"
^DD(9.4,11.01,0)="DEVELOPMENT ISC^F^^5;1^K:$L(X)>20!($L(X)<3) X"
^DD(9.4,11.01,3)="Please enter the name of the ISC (3-20 characters)."
^DD(9.4,11.01,21,0)="^^1^1^2920513^^^"
^DD(9.4,11.01,21,1,0)="The ISC responsible for the development and management of this Package."
^DD(9.4,11.01,"DT")="2840815"
^DD(9.4,11.3,0)="CLASS^S^I:National;II:Inactive;III:Local;^7;3^Q"
^DD(9.4,11.3,21,0)="^^1^1^2920513^^"
^DD(9.4,11.3,21,1,0)="The ranking Class of this software Package."
^DD(9.4,11.3,"DT")="2940325"
^DD(9.4,13,0)="CURRENT VERSION^F^^VERSION;1^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X"
^DD(9.4,13,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(9.4,13,21,0)="^^5^5^2920702^"
^DD(9.4,13,21,1,0)="This field holds the version number of the package currently running"
^DD(9.4,13,21,2,0)="at this site.  When a package initialization has been run, this field"
^DD(9.4,13,21,3,0)="will be updated with the version number most recently installed."
^DD(9.4,13,21,4,0)="This can be either using the old format (1.0, 16.04, etc.) or the new"
^DD(9.4,13,21,5,0)="format (18.0T4, 19.1V2, etc.)"
^DD(9.4,13,"DT")="2860221"
^DD(9.4,14,0)="ADDITIONAL PREFIXES^9.4014^^14;0"
^DD(9.4,14,"DT")="2990302"
^DD(9.4,20,0)="AFFECTS RECORD MERGE^9.402P^^20;0"
^DD(9.4,20,21,0)="^^2^2^2970307^^^"
^DD(9.4,20,21,1,0)="This Multipule lists the files that will impact this package if a Record"
^DD(9.4,20,21,2,0)="Merge is done on any of the files in the list."
^DD(9.4,22,0)="VERSION^9.49I^^22;0"
^DD(9.4,22,21,0)="^^1^1^2930415^^^^"
^DD(9.4,22,21,1,0)="The version numbers of this Package."
^DD(9.4,913,0)="ENVIRONMENT CHECK ROUTINE^F^^PRE;1^K:$L(X)>8!($L(X)<3) X"
^DD(9.4,913,.1)="DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED"
^DD(9.4,913,3)="Enter name of developer's environment check routine (3-8 characters) that runs before any user questions are asked.  This routine should be used for environment check only and should not alter data."
^DD(9.4,913,21,0)="^^4^4^2921202^"
^DD(9.4,913,21,1,0)="The name of the developer's routine which is run at the beginning of"
^DD(9.4,913,21,2,0)="the NAMESPACE_INIT routine.  This should just check the environment"
^DD(9.4,913,21,3,0)="and should not alter any data, since the user has no way to exit out of"
^DD(9.4,913,21,4,0)="the INIT process until this program runs to completion."
^DD(9.4,913,23,0)="^^2^2^2921202^^^^"
^DD(9.4,913,23,1,0)="  A call to this routine gets inserted, by DIFROM at the beginning of the"
^DD(9.4,913,23,2,0)="NAMESPACE_INIT routine, before the EN entry point."
^DD(9.4,913,"DT")="2990407"
^DD(9.4,913.5,0)="ENVIRONMENT CHECK DONE DATE^D^^PRE;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.4,913.5,3)=""
^DD(9.4,913.5,21,0)="^^3^3^2921202^"
^DD(9.4,913.5,21,1,0)="This is the date/time that the ENVIRONMENT CHECK routine last ran. When an"
^DD(9.4,913.5,21,2,0)="INIT is run at a target site, and it contains an ENVIRONMENT CHECK"
^DD(9.4,913.5,21,3,0)="routine, this field is updated automatically."
^DD(9.4,913.5,"DT")="2990407"
^DD(9.4,914,0)="POST-INITIALIZATION ROUTINE^F^^INIT;1^K:$L(X)>8!($L(X)<3)!'(X?1UP.UN) X"
^DD(9.4,914,.1)="DEVELOPERS ROUTINE TO BRANCH TO AT END OF 'INIT' ROUTINE"
^DD(9.4,914,3)="Enter the name of the developer's post-initialization routine (3-8 characters)."
^DD(9.4,914,21,0)="^^2^2^2900730^^^^"
^DD(9.4,914,21,1,0)="The name of the developer's routine which is run immediately after the"
^DD(9.4,914,21,2,0)="installation of the package."
^DD(9.4,914,23,0)="^^3^3^2900730^^^"
^DD(9.4,914,23,1,0)="  This routine gets inserted by DIFROM at the end of the"
^DD(9.4,914,23,2,0)="NAMESPACE_INIT routine, after the INIT has filed all the information,"
^DD(9.4,914,23,3,0)="but before the quit statement."
^DD(9.4,914,"DT")="2990407"
^DD(9.4,914.5,0)="POST-INIT COMPLETION DATE^D^^INIT;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.4,914.5,3)=""
^DD(9.4,914.5,21,0)="^^3^3^2911209^^"
^DD(9.4,914.5,21,1,0)="This is the date/time that the POST-INIT last ran.  When an"
^DD(9.4,914.5,21,2,0)="INIT is run at a target site, and it contains a POST-INIT"
^DD(9.4,914.5,21,3,0)="routine, this field is updated automatically."
^DD(9.4,914.5,"DT")="2990407"
^DD(9.4,916,0)="PRE-INIT AFTER USER COMMIT^F^^INI;1^K:$L(X)>8!($L(X)<3) X"
^DD(9.4,916,.1)="DEVELOPERS ROUTINE RUN AFTER 'INIT' QUESTIONS ANSWERED"
^DD(9.4,916,3)="Enter name of developer's pre-init routine (3-8 characters) that runs after user has answered all INIT questions.  Can be used for data conversions needed before INIT files new data."
^DD(9.4,916,21,0)="^^4^4^2930303^^^^"
^DD(9.4,916,21,1,0)="Name of the developer's routine that runs after the user has answered all"
^DD(9.4,916,21,2,0)="of the questions in NAMESPACE_INIT but before the INIT files any new data."
^DD(9.4,916,21,3,0)="Used for data conversions, etc. that the developer needs to do before"
^DD(9.4,916,21,4,0)="bringing in new data."
^DD(9.4,916,23,0)="^^3^3^2930303^^^^"
^DD(9.4,916,23,1,0)="  A call to this routine gets inserted, by DIFROM, into the"
^DD(9.4,916,23,2,0)="NAMESPACE_INIT1 routine, after the user has answered the last"
^DD(9.4,916,23,3,0)="question 'ARE YOU SURE EVERYTHING'S OK?', but before filing any data."
^DD(9.4,916,"DT")="2990407"
^DD(9.4,916.5,0)="PRE-INIT COMPLETION DATE^D^^INI;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.4,916.5,21,0)="^^3^3^2911209^^"
^DD(9.4,916.5,21,1,0)="This is the date/time that the PRE-INIT AFTER USER COMMIT last ran."
^DD(9.4,916.5,21,2,0)="When an INIT is run at a target site, and it contains a PRE-INIT"
^DD(9.4,916.5,21,3,0)="AFTER USER COMMIT routine, this field is updated automatically."
^DD(9.4,916.5,"DT")="2990407"
^DD(9.4,919,0)="EXCLUDED NAME SPACE^9.432^^EX;0"
^DD(9.4,919,21,0)="^^5^5^2930303^^^"
^DD(9.4,919,21,1,0)="By specifying an ""excluded name space"", the developer will be telling"
^DD(9.4,919,21,2,0)="the DIFROM routine not to take OPTIONS, BULLETINS, etc. which begin"
^DD(9.4,919,21,3,0)="with these characters.  For example, if ""PSZ"" is an excluded name space"
^DD(9.4,919,21,4,0)="in the ""PS"" package, DIFROM will not send along OPTIONS, SECURITY KEYS,"
^DD(9.4,919,21,5,0)="BULLETINS, or FUNCTIONS that begin with ""PSZ""."
^DD(9.4,919,"DT")="2990602"
^DD(9.4,1938,0)="MAIL GROUP^P3.8'^XMB(3.8,^MG;1^Q"
^DD(9.4,1938,21,0)="^^2^2^2990408^"
^DD(9.4,1938,21,1,0)="This field points to a mail group that will receive a mail message from"
^DD(9.4,1938,21,2,0)="KIDS when a package or patch is installed."
^DD(9.4,1938,"DT")="2990408"
^DD(9.4,1944,0)="*BULLETINS^XCmJ30^^ ; ^S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 S D=$O(^XMB(3.6,""B"",X,0)) S:D="""" D=-1 X:$D(^XMB(3.6,D,0)) DICMX S X=$O(^XMB(3.6,""B"",X)) I $P(X,XU,1)]""""!(X="""") S X="""" Q"
^DD(9.4,1944,9)="^"
^DD(9.4,1944,9.01)=""
^DD(9.4,1944,9.1)="S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 Q:$P(X,XU,1)]""""!(X="""")  S D=$O(^XMB(3.6,X,0)) S:D="""" D=-1 X:$D(^XMB(3.6,D,0)) DICMX S X=$O(^XMB(3.6,""B"",X))"
^DD(9.4,1944,21,0)="^^2^2^2851008^"
^DD(9.4,1944,21,1,0)="This presents information about any BULLETINs which are distributed"
^DD(9.4,1944,21,2,0)="along with the Package."
^DD(9.4,1944,"DT")="2940606"
^DD(9.4,1945,0)="*SECURITY KEYS^XCmJ30^^ ; ^S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 X:$D(^XUSEC(X)) DICMX S X=$O(^XUSEC(X)) I $P(X,XU,1)]""""!(X="""") S X="""" Q"
^DD(9.4,1945,9)="^"
^DD(9.4,1945,9.01)=""
^DD(9.4,1945,9.1)="S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 X:$D(^XUSEC(X)) DICMX S X=$O(^XUSEC(X)) I $P(X,XU,1)]""""!(X="""") S X="""" Q"
^DD(9.4,1945,21,0)="^^2^2^2851008^"
^DD(9.4,1945,21,1,0)="This describes the SECURITY KEYs which are distributed along with"
^DD(9.4,1945,21,2,0)="the Package."
^DD(9.4,1945,"DT")="2940606"
^DD(9.4,1946,0)="*OPTIONS^XCmJ30^^ ; ^S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 S D=$O(^DIC(19,""B"",X,0)) S:D="""" D=-1 X:$D(^DIC(19,D,0)) DICMX S X=$O(^DIC(19,""B"",X)) I $P(X,XU,1)]""""!(X="""") S X="""" Q"
^DD(9.4,1946,9)="^"
^DD(9.4,1946,9.01)=""
^DD(9.4,1946,9.1)="S (XU,X)=$P(^DIC(9.4,D0,0),U,2) I X?1A.E F D=0:0 Q:$P(X,XU,1)]""""!(X="""")  S D=$O(^DIC(19,""B"",X,0)) S:D="""" D=-1 X:$D(^DIC(19,D,0)) DICMX S X=$O(^DIC(19,""B"",X))"
^DD(9.4,1946,21,0)="^^2^2^2851008^"
^DD(9.4,1946,21,1,0)="This lists information concerning the OPTIONs which are distributed"
^DD(9.4,1946,21,2,0)="along with the Package."
^DD(9.4,1946,"DT")="2940606"
^DD(9.4,15007,0)="SYNONYM^9.415007^^15007;0"
^DD(9.4,"B","*BULLETINS",1944)=""
^DD(9.4,"B","*HIGHEST FILE NUMBER",11)=""
^DD(9.4,"B","*LOWEST FILE NUMBER",10.6)=""
^DD(9.4,"B","*MENU",9.5)=""
^DD(9.4,"B","*OPTIONS",1946)=""
^DD(9.4,"B","*SECURITY KEYS",1945)=""
^DD(9.4,"B","ADDITIONAL PREFIXES",14)=""
^DD(9.4,"B","AFFECTS RECORD MERGE",20)=""
^DD(9.4,"B","CLASS",11.3)=""
^DD(9.4,"B","CURRENT VERSION",13)=""
^DD(9.4,"B","DESCRIPTION",3)=""
^DD(9.4,"B","DEVELOPER (PERSON/SITE)",10)=""
^DD(9.4,"B","DEVELOPMENT ISC",11.01)=""
^DD(9.4,"B","ENVIRONMENT CHECK DONE DATE",913.5)=""
^DD(9.4,"B","ENVIRONMENT CHECK ROUTINE",913)=""
^DD(9.4,"B","EXCLUDED NAME SPACE",919)=""
^DD(9.4,"B","FILE",6)=""
^DD(9.4,"B","INPUT TEMPLATE",8)=""
^DD(9.4,"B","MAIL GROUP",1938)=""
^DD(9.4,"B","NAME",.01)=""
^DD(9.4,"B","NAMESPACE",1)="1"
^DD(9.4,"B","POST-INIT COMPLETION DATE",914.5)=""
^DD(9.4,"B","POST-INITIALIZATION ROUTINE",914)=""
^DD(9.4,"B","PRE-INIT AFTER USER COMMIT",916)=""
^DD(9.4,"B","PRE-INIT COMPLETION DATE",916.5)=""
^DD(9.4,"B","PREFIX",1)=""
^DD(9.4,"B","PRINT TEMPLATE",7)=""
^DD(9.4,"B","SCREEN TEMPLATE (FORM)",9.1)=""
^DD(9.4,"B","SHORT DESCRIPTION",2)=""
^DD(9.4,"B","SORT TEMPLATE",9)=""
^DD(9.4,"B","SYNONYM",15007)=""
^DD(9.4,"B","VERSION",22)=""
^DD(9.4,"GL",0,1,.01)=""
^DD(9.4,"GL",0,2,1)=""
^DD(9.4,"GL",0,3,2)=""
^DD(9.4,"GL",1,0,3)=""
^DD(9.4,"GL",4,0,6)=""
^DD(9.4,"GL",5,1,11.01)=""
^DD(9.4,"GL",7,3,11.3)=""
^DD(9.4,"GL",11,1,10.6)=""
^DD(9.4,"GL",11,2,11)=""
^DD(9.4,"GL",14,0,14)=""
^DD(9.4,"GL",20,0,20)=""
^DD(9.4,"GL",22,0,22)=""
^DD(9.4,"GL",15007,0,15007)=""
^DD(9.4,"GL","DEV",1,10)=""
^DD(9.4,"GL","DIBT",0,9)=""
^DD(9.4,"GL","DIE",0,8)=""
^DD(9.4,"GL","DIPT",0,7)=""
^DD(9.4,"GL","DIST",0,9.1)=""
^DD(9.4,"GL","EX",0,919)=""
^DD(9.4,"GL","INI",1,916)=""
^DD(9.4,"GL","INI",2,916.5)=""
^DD(9.4,"GL","INIT",1,914)=""
^DD(9.4,"GL","INIT",2,914.5)=""
^DD(9.4,"GL","M",0,9.5)=""
^DD(9.4,"GL","MG",1,1938)=""
^DD(9.4,"GL","PRE",1,913)=""
^DD(9.4,"GL","PRE",2,913.5)=""
^DD(9.4,"GL","VERSION",1,13)=""
^DD(9.4,"IX",.01)=""
^DD(9.4,"IX",1)=""
^DD(9.4,"RQ",.01)=""
^DD(9.4,"RQ",1)=""
^DD(9.4,"RQ",2)=""
^DD(9.4,"SB",9.4014,14)=""
^DD(9.4,"SB",9.402,20)=""
^DD(9.4,"SB",9.41,3)=""
^DD(9.4,"SB",9.415007,15007)=""
^DD(9.4,"SB",9.432,919)=""
^DD(9.4,"SB",9.44,6)=""
^DD(9.4,"SB",9.46,7)=""
^DD(9.4,"SB",9.47,8)=""
^DD(9.4,"SB",9.48,9)=""
^DD(9.4,"SB",9.485,9.1)=""
^DD(9.4,"SB",9.49,22)=""
^DD(9.4,"SB",9.495,9.5)=""
^DD(9.4014,0)="ADDITIONAL PREFIXES SUB-FIELD^^.01^1"
^DD(9.4014,0,"DT")="2990127"
^DD(9.4014,0,"IX","B",9.4014,.01)=""
^DD(9.4014,0,"NM","ADDITIONAL PREFIXES")=""
^DD(9.4014,0,"UP")="9.4"
^DD(9.4014,.01,0)="ADDITIONAL PREFIXES^MFX^^0;1^K:$L(X)>4!($L(X)<2)!'(X?1U1.3UN) X I $D(X) N % S %=$O(^DIC(9.4,""C"",X,0)) K:(%>0)&(%-DA(1)) X"
^DD(9.4014,.01,1,0)="^.1"
^DD(9.4014,.01,1,1,0)="9.4014^B"
^DD(9.4014,.01,1,1,1)="S ^DIC(9.4,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(9.4014,.01,1,1,2)="K ^DIC(9.4,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(9.4014,.01,1,2,0)="9.4^C2^MUMPS"
^DD(9.4014,.01,1,2,1)="S ^DIC(9.4,""C"",X,DA(1),DA)=1"
^DD(9.4014,.01,1,2,2)="K ^DIC(9.4,""C"",X,DA(1),DA)"
^DD(9.4014,.01,1,2,3)="Keep"
^DD(9.4014,.01,1,2,"%D",0)="^^2^2^2990127^^"
^DD(9.4014,.01,1,2,"%D",1,0)="This X-ref sets the additional PREFIX into the ""C"" index"
^DD(9.4014,.01,1,2,"%D",2,0)="so the standard lookup will find the pachage with the PREFIX."
^DD(9.4014,.01,1,2,"DT")="2990127"
^DD(9.4014,.01,3)="Answer must be 2-4 uppercase characters in length."
^DD(9.4014,.01,21,0)="^^1^1^2990127^"
^DD(9.4014,.01,21,1,0)="This multiple is to record additional PREFIXs that a package may have."
^DD(9.4014,.01,"DT")="2990602"
^DD(9.4014,"B","ADDITIONAL PREFIXES",.01)=""
^DD(9.4014,"GL",0,1,.01)=""
^DD(9.4014,"IX",.01)=""
^DD(9.402,0)="AFFECTS RECORD MERGE SUB-FIELD^^4^3"
^DD(9.402,0,"DT")="2900906"
^DD(9.402,0,"IX","B",9.402,.01)=""
^DD(9.402,0,"NM","AFFECTS RECORD MERGE")=""
^DD(9.402,0,"UP")="9.4"
^DD(9.402,.01,0)="FILE AFFECTED^*P1'X^DIC(^0;1^S DIC(""S"")=""I $D(^DD(15,.01,""""V"""",""""B"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(9.402,.01,1,0)="^.1"
^DD(9.402,.01,1,1,0)="9.402^B"
^DD(9.402,.01,1,1,1)="S ^DIC(9.4,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(9.402,.01,1,1,2)="K ^DIC(9.4,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(9.402,.01,1,2,0)="9.4^AMRG"
^DD(9.402,.01,1,2,1)="S ^DIC(9.4,""AMRG"",$E(X,1,30),DA(1),DA)="""""
^DD(9.402,.01,1,2,2)="K ^DIC(9.4,""AMRG"",$E(X,1,30),DA(1),DA)"
^DD(9.402,.01,1,2,"%D",0)="^^2^2^2900906^"
^DD(9.402,.01,1,2,"%D",1,0)="This xref is used by the merge process to determine if any package"
^DD(9.402,.01,1,2,"%D",2,0)="file entry affects the file being merged."
^DD(9.402,.01,1,2,"DT")="2900906"
^DD(9.402,.01,3)="Pointer to a file that has been added to FILE 15's variable pointer."
^DD(9.402,.01,12)="MUST BE VARIABLE POINTER FILE IN FIELD .01 OF FILE 15"
^DD(9.402,.01,12.1)="S DIC(""S"")=""I $D(^DD(15,.01,""""V"""",""""B"""",Y))"""
^DD(9.402,.01,21,0)="^^1^1^2970307^^^^"
^DD(9.402,.01,21,1,0)="A file that if merged will affect this package."
^DD(9.402,.01,"DT")="2900910"
^DD(9.402,3,0)="NAME OF MERGE ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<2)!'(X?1U1.7UN) X"
^DD(9.402,3,3)="Answer with a routine name (1U.1.7UN)."
^DD(9.402,3,21,0)="^^4^4^2930330^"
^DD(9.402,3,21,1,0)="This field holds the routine name to call when two records in"
^DD(9.402,3,21,2,0)="an affected file are to be merged. This allows the package to"
^DD(9.402,3,21,3,0)="do any repointing or other clean-up needed before the records"
^DD(9.402,3,21,4,0)="are merged."
^DD(9.402,3,"DT")="2900816"
^DD(9.402,4,0)="RECORD HAS PACKAGE DATA^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(9.402,4,3)="This is Standard MUMPS code. To tell if this record has data in this package."
^DD(9.402,4,9)="@"
^DD(9.402,4,"DT")="2900816"
^DD(9.402,"B","FILE AFFECTED",.01)=""
^DD(9.402,"B","NAME OF MERGE ROUTINE",3)=""
^DD(9.402,"B","RECORD HAS PACKAGE DATA",4)=""
^DD(9.402,"GL",0,1,.01)=""
^DD(9.402,"GL",0,3,3)=""
^DD(9.402,"GL",1,"E1,245",4)=""
^DD(9.402,"IX",.01)=""
^DD(9.41,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(9.41,0,"NM","DESCRIPTION")=""
^DD(9.41,0,"UP")="9.4"
^DD(9.41,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(9.41,.01,3)="Please enter a complete and detailed description of the Package."
^DD(9.41,.01,21,0)="^^2^2^2920513^^^^"
^DD(9.41,.01,21,1,0)="This is a complete and detailed description of the Package's functions"
^DD(9.41,.01,21,2,0)="and capabilities."
^DD(9.41,.01,"DT")="2851007"
^DD(9.41,"B","DESCRIPTION",.01)=""
^DD(9.41,"GL",0,1,.01)=""
^DD(9.415007,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(9.415007,0,"DT")="2941020"
^DD(9.415007,0,"IX","B",9.415007,.01)=""
^DD(9.415007,0,"NM","SYNONYM")=""
^DD(9.415007,0,"UP")="9.4"
^DD(9.415007,.01,0)="SYNONYM^F^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(9.415007,.01,1,0)="^.1"
^DD(9.415007,.01,1,1,0)="9.415007^B"
^DD(9.415007,.01,1,1,1)="S ^DIC(9.4,DA(1),15007,""B"",$E(X,1,30),DA)="""""
^DD(9.415007,.01,1,1,2)="K ^DIC(9.4,DA(1),15007,""B"",$E(X,1,30),DA)"
^DD(9.415007,.01,1,2,0)="9.4^E"
^DD(9.415007,.01,1,2,1)="S ^DIC(9.4,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(9.415007,.01,1,2,2)="K ^DIC(9.4,""E"",$E(X,1,30),DA(1),DA)"
^DD(9.415007,.01,1,2,"%D",0)="^^2^2^2941020^"
^DD(9.415007,.01,1,2,"%D",1,0)="This allow the lookup of a package other than it's official name."
^DD(9.415007,.01,1,2,"%D",2,0)="It is'nt used by the Kernel VERSION function."
^DD(9.415007,.01,1,2,"DT")="2941020"
^DD(9.415007,.01,3)="Answer must be 2-30 characters in length."
^DD(9.415007,.01,"DT")="2941020"
^DD(9.415007,"B","SYNONYM",.01)=""
^DD(9.415007,"GL",0,1,.01)=""
^DD(9.415007,"IX",.01)=""
^DD(9.432,0)="EXCLUDED NAME SPACE SUB-FIELD^NL^.01^1"
^DD(9.432,0,"NM","EXCLUDED NAME SPACE")=""
^DD(9.432,0,"UP")="9.4"
^DD(9.432,.01,0)="EXCLUDED NAME SPACE^MFX^^0;1^K:$L(X)>7!($L(X)<2)!'(X?1U1UN.UN) X"
^DD(9.432,.01,3)="Please enter the prefix of the excluded name space (2-7 characters)."
^DD(9.432,.01,4)="W !,?5,""When DIFROM builds '"",$P(^DIC(9.4,D0,0),""^"",2),""INIT',"",!?5,""OPTIONS, FUNCTIONS, SECURITY KEYS, and BULLETINS beginning with"",!?5,""these characters WON'T be included."",!"
^DD(9.432,.01,21,0)="^^2^2^2851008^"
^DD(9.432,.01,21,1,0)="This specifies a sub-set of the Package's namespace which is not to"
^DD(9.432,.01,21,2,0)="be exported by the DIFROM routines."
^DD(9.432,.01,"DT")="2841128"
^DD(9.432,"B","EXCLUDED NAME SPACE",.01)=""
^DD(9.432,"GL",0,1,.01)=""
^DD(9.44,0)="FILE SUB-FIELD^NL^223^9"
^DD(9.44,0,"DT")="2890928"
^DD(9.44,0,"IX","B",9.44,.01)=""
^DD(9.44,0,"NM","FILE")=""
^DD(9.44,0,"UP")="9.4"
^DD(9.44,.01,0)="FILE^M*P1'^DIC(^0;1^S DIC(""S"")=""I Y>1.9999"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9.44,.01,.1)="REQUIRED FILES FOR THIS PACKAGE"
^DD(9.44,.01,1,0)="^.1"
^DD(9.44,.01,1,1,0)="9.44^B"
^DD(9.44,.01,1,1,1)="S ^DIC(9.4,DA(1),4,""B"",X,DA)="""""
^DD(9.44,.01,1,1,2)="K ^DIC(9.4,DA(1),4,""B"",X,DA)"
^DD(9.44,.01,1,2,0)="9.4^AR"
^DD(9.44,.01,1,2,1)="S ^DIC(9.4,""AR"",$E(X,1,30),DA(1),DA)="""""
^DD(9.44,.01,1,2,2)="K ^DIC(9.4,""AR"",$E(X,1,30),DA(1),DA)"
^DD(9.44,.01,3)="Please enter the name of a FILE that is known to VA FileMan."
^DD(9.44,.01,12)="Select a file which is used by this package."
^DD(9.44,.01,12.1)="S DIC(""S"")=""I Y>1.9999"""
^DD(9.44,.01,21,0)="^^2^2^2920513^^^^"
^DD(9.44,.01,21,1,0)="The name of a VA FileMan file which you wish to transport with"
^DD(9.44,.01,21,2,0)="this package.  This may be any file whose number is 2 or greater."
^DD(9.44,.01,"DT")="2890928"
^DD(9.44,2,0)="FIELD^9.45A^^1;0"
^DD(9.44,2,21,0)="^^3^3^2920513^^^"
^DD(9.44,2,21,1,0)="The names of the FileMan Fields required by this Package.  Enter data"
^DD(9.44,2,21,2,0)="here ONLY if you wish to send just selected fields from a Data Dictionary"
^DD(9.44,2,21,3,0)="instead of the entire DD (i.e., a partial DD)."
^DD(9.44,222.1,0)="UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q"
^DD(9.44,222.1,21,0)="^^8^8^2920513^^^^"
^DD(9.44,222.1,21,1,0)="YES means that the Data Dictionary for this file should be updated when"
^DD(9.44,222.1,21,2,0)="this version of the package is installed."
^DD(9.44,222.1,21,3,0)=" "
^DD(9.44,222.1,21,4,0)="NO means that this Data Dictionary has not changed since the last version,"
^DD(9.44,222.1,21,5,0)="and therefore, need not be updated."
^DD(9.44,222.1,21,6,0)=" "
^DD(9.44,222.1,21,7,0)="If the Data Dictionary does not exist on the recipient system, then this"
^DD(9.44,222.1,21,8,0)="field does not apply.  The DD will be put in place."
^DD(9.44,222.1,"DT")="2890627"
^DD(9.44,222.2,0)="ASSIGN A VERSION NUMBER^S^y:YES;n:NO;^222;2^Q"
^DD(9.44,222.2,3)=""
^DD(9.44,222.2,21,0)="^^5^5^2920513^^^^"
^DD(9.44,222.2,21,1,0)="YES means that you want to set ^DD(file#,0,""VR"") to the version"
^DD(9.44,222.2,21,2,0)="number of this package when the init is finished."
^DD(9.44,222.2,21,3,0)=" "
^DD(9.44,222.2,21,4,0)="NO means that you intend for the version number to remain as it is."
^DD(9.44,222.2,21,5,0)="This may mean that this DD has no version number at all."
^DD(9.44,222.4,0)="MAY USER OVERRIDE DD UPDATE^S^y:YES;n:NO;^222;4^Q"
^DD(9.44,222.4,3)=""
^DD(9.44,222.4,21,0)="^^5^5^2920513^^^^"
^DD(9.44,222.4,21,1,0)="YES means that the user may decide at installation time whether or not"
^DD(9.44,222.4,21,2,0)="to update the data dictionary for this file."
^DD(9.44,222.4,21,3,0)=" "
^DD(9.44,222.4,21,4,0)="NO means that the developer building the INIT is determining if the"
^DD(9.44,222.4,21,5,0)="data dictionary is to be updated."
^DD(9.44,222.7,0)="DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q"
^DD(9.44,222.7,2)="DATA COMES WITH FILE"
^DD(9.44,222.7,21,0)="^^4^4^2920513^^^^"
^DD(9.44,222.7,21,1,0)="YES means that the data should be included in the initialization"
^DD(9.44,222.7,21,2,0)="routines."
^DD(9.44,222.7,21,3,0)=" "
^DD(9.44,222.7,21,4,0)="NO means that the data should be left out."
^DD(9.44,222.7,"DT")="2940502"
^DD(9.44,222.8,0)="MERGE OR OVERWRITE SITE'S DATA^S^m:MERGE;o:OVERWRITE;^222;8^Q"
^DD(9.44,222.8,3)=""
^DD(9.44,222.8,21,0)="^^7^7^2920513^^^^"
^DD(9.44,222.8,21,1,0)=" "
^DD(9.44,222.8,21,2,0)="If the data being sent is to be MERGED, then only data which is not"
^DD(9.44,222.8,21,3,0)="already on file at the recipient site will be put in place."
^DD(9.44,222.8,21,4,0)=" "
^DD(9.44,222.8,21,5,0)="If the data being sent is to OVERWRITE, then the data included in"
^DD(9.44,222.8,21,6,0)="the initialization routines will be put in place regardless of what"
^DD(9.44,222.8,21,7,0)="is on file at the recipient site."
^DD(9.44,222.8,"DT")="2890627"
^DD(9.44,222.9,0)="MAY USER OVERRIDE DATA UPDATE^S^y:YES;n:NO;^222;9^Q"
^DD(9.44,222.9,2)="MAY USER OVERRIDE DATA UPDATE"
^DD(9.44,222.9,3)=""
^DD(9.44,222.9,21,0)="^^7^7^2920513^^^^"
^DD(9.44,222.9,21,1,0)="YES means that the user has the option to determine whether or not"
^DD(9.44,222.9,21,2,0)="to bring in the data that has been sent with the package.  However,"
^DD(9.44,222.9,21,3,0)="he does not get the ability to change from merge to overwrite or"
^DD(9.44,222.9,21,4,0)="from overwrite to merge."
^DD(9.44,222.9,21,5,0)=" "
^DD(9.44,222.9,21,6,0)="No means that the developer of the INIT will control whether the data"
^DD(9.44,222.9,21,7,0)="will be installed at the target site."
^DD(9.44,222.9,"DT")="2940502"
^DD(9.44,223,0)="SCREEN TO DETERMINE DD UPDATE^KX^^223;E1,245^K:$L(X)>240 X I $D(X) D ^DIM"
^DD(9.44,223,3)="This is Standard MUMPS code from 1 to 240 characters in length."
^DD(9.44,223,9)="@"
^DD(9.44,223,21,0)="^^7^7^2920513^^"
^DD(9.44,223,21,1,0)="This field contains standard MUMPS code which is used to determine"
^DD(9.44,223,21,2,0)="whether or not a data dictionary should be updated.  This code must"
^DD(9.44,223,21,3,0)="set $T.  If $T=1, the DD will be updated.  If $T=0, it will not."
^DD(9.44,223,21,4,0)=" "
^DD(9.44,223,21,5,0)="This code will be executed within VA FileMan which may be being called"
^DD(9.44,223,21,6,0)="from within MailMan which is being called from within MenuMan."
^DD(9.44,223,21,7,0)="Namespace your variables."
^DD(9.44,223,"DT")="2890927"
^DD(9.44,"B","ASSIGN A VERSION NUMBER",222.2)=""
^DD(9.44,"B","DATA COMES WITH FILE",222.7)=""
^DD(9.44,"B","FIELD",2)=""
^DD(9.44,"B","FILE",.01)=""
^DD(9.44,"B","MAY USER OVERRIDE DATA UPDATE",222.9)=""
^DD(9.44,"B","MAY USER OVERRIDE DD UPDATE",222.4)=""
^DD(9.44,"B","MERGE OR OVERWRITE SITE'S DATA",222.8)=""
^DD(9.44,"B","SCREEN TO DETERMINE DD UPDATE",223)=""
^DD(9.44,"B","UPDATE THE DATA DICTIONARY",222.1)=""
^DD(9.44,"GL",0,1,.01)=""
^DD(9.44,"GL",1,0,2)=""
^DD(9.44,"GL",222,1,222.1)=""
^DD(9.44,"GL",222,2,222.2)=""
^DD(9.44,"GL",222,4,222.4)=""
^DD(9.44,"GL",222,7,222.7)=""
^DD(9.44,"GL",222,8,222.8)=""
^DD(9.44,"GL",222,9,222.9)=""
^DD(9.44,"GL",223,"E1,245",223)=""
^DD(9.44,"IX",.01)=""
^DD(9.44,"SB",9.45,2)=""
^DD(9.45,0)="FIELD SUB-FIELD^NL^.01^1"
^DD(9.45,0,"IX","B",9.45,.01)=""
^DD(9.45,0,"NM","FIELD")=""
^DD(9.45,0,"UP")="9.44"
^DD(9.45,.01,0)="FIELD^MFX^^0;1^S %=+^DIC(9.4,DA(2),4,DA(1),0),X=$S($L(X)>30:X,$D(^DD(%,""B"",X)):X,X'?.NP:0,'$D(^DD(%,X,0)):0,1:$P(^(0),U,1)) K:X=0 X"
^DD(9.45,.01,.1)="FIELDS REQUIRED FOR THE PACKAGE"
^DD(9.45,.01,1,0)="^.1"
^DD(9.45,.01,1,1,0)="9.45^B"
^DD(9.45,.01,1,1,1)="S ^DIC(9.4,DA(2),4,DA(1),1,""B"",X,DA)="""""
^DD(9.45,.01,1,1,2)="K ^DIC(9.4,DA(2),4,DA(1),1,""B"",X,DA)"
^DD(9.45,.01,3)="Please enter the name of a field."
^DD(9.45,.01,21,0)="^^4^4^2920513^^^^"
^DD(9.45,.01,21,1,0)="The name of a FileMan field required by this Package.  This field is"
^DD(9.45,.01,21,2,0)="only to be filled in if you wish to send only selected fields in"
^DD(9.45,.01,21,3,0)="an INIT of this file, instead of the full data dictionary. (i.e.,"
^DD(9.45,.01,21,4,0)="a partial DD)."
^DD(9.45,.01,"DT")="2840302"
^DD(9.45,"B","FIELD",.01)=""
^DD(9.45,"GL",0,1,.01)=""
^DD(9.45,"IX",.01)=""
^DD(9.46,0)="PRINT TEMPLATE SUB-FIELD^NL^2^2"
^DD(9.46,0,"NM","PRINT TEMPLATE")=""
^DD(9.46,0,"UP")="9.4"
^DD(9.46,.01,0)="PRINT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(9.46,.01,1,0)="^.1^^0"
^DD(9.46,.01,3)="Please enter the name of a Print Template (2-50 characters)."
^DD(9.46,.01,21,0)="^^5^5^2921202^"
^DD(9.46,.01,21,1,0)="The name of a Print Template being sent with this Package."
^DD(9.46,.01,21,2,0)="This multiple is used to send non-namespaced templates in an INIT."
^DD(9.46,.01,21,3,0)="Namespaced templates are sent automatically and need not be listed"
^DD(9.46,.01,21,4,0)="separately.  Selected Fields for Export and Export templates cannot be"
^DD(9.46,.01,21,5,0)="sent; entering their names here will have no effect."
^DD(9.46,.01,"DT")="2821117"
^DD(9.46,2,0)="FILE^RP1'^DIC(^0;2^Q"
^DD(9.46,2,21,0)="^^1^1^2920513^^"
^DD(9.46,2,21,1,0)="The FileMan file for this Print Template."
^DD(9.46,2,"DT")="2821126"
^DD(9.46,"B","FILE",2)=""
^DD(9.46,"B","PRINT TEMPLATE",.01)=""
^DD(9.46,"GL",0,1,.01)=""
^DD(9.46,"GL",0,2,2)=""
^DD(9.46,"RQ",2)=""
^DD(9.47,0)="INPUT TEMPLATE SUB-FIELD^NL^2^2"
^DD(9.47,0,"ID",2)="W ""   FILE #""_$P(^(0),U,2)"
^DD(9.47,0,"NM","INPUT TEMPLATE")=""
^DD(9.47,0,"UP")="9.4"
^DD(9.47,.01,0)="INPUT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(9.47,.01,1,0)="^.1^^0"
^DD(9.47,.01,3)="Please enter the name of an Input Template (2-50 characters)."
^DD(9.47,.01,21,0)="^^4^4^2920513^^^"
^DD(9.47,.01,21,1,0)="The name of an Input Template being sent with this Package."
^DD(9.47,.01,21,2,0)="This multiple is used to send non-namespaced templates in an INIT."
^DD(9.47,.01,21,3,0)="Namespaced templates are sent automatically and need not be listed"
^DD(9.47,.01,21,4,0)="separately."
^DD(9.47,.01,"DT")="2821117"
^DD(9.47,2,0)="FILE^RP1'^DIC(^0;2^Q"
^DD(9.47,2,21,0)="^^1^1^2920513^^"
^DD(9.47,2,21,1,0)="The name of the FileMan file for this Input Template."
^DD(9.47,2,"DT")="2821126"
^DD(9.47,"B","FILE",2)=""
^DD(9.47,"B","INPUT TEMPLATE",.01)=""
^DD(9.47,"GL",0,1,.01)=""
^DD(9.47,"GL",0,2,2)=""
^DD(9.47,"RQ",2)=""
^DD(9.48,0)="SORT TEMPLATE SUB-FIELD^NL^2^2"
^DD(9.48,0,"NM","SORT TEMPLATE")=""
^DD(9.48,0,"UP")="9.4"
^DD(9.48,.01,0)="SORT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(9.48,.01,1,0)="^.1^^0"
^DD(9.48,.01,3)="Please enter the name of a Sort Template (2-50 characters)."
^DD(9.48,.01,21,0)="^^4^4^2920513^^^"
^DD(9.48,.01,21,1,0)="The name of a Sort Template being sent with this Package."
^DD(9.48,.01,21,2,0)="This multiple is used to send non-namespaced templates in an INIT."
^DD(9.48,.01,21,3,0)="Namespaced templates are sent automatically and need not be listed"
^DD(9.48,.01,21,4,0)="separately."
^DD(9.48,.01,"DT")="2821117"
^DD(9.48,2,0)="FILE^RP1'^DIC(^0;2^Q"
^DD(9.48,2,21,0)="^^1^1^2920513^^"
^DD(9.48,2,21,1,0)="The FileMan file for this Sort Template."
^DD(9.48,"B","FILE",2)=""
^DD(9.48,"B","SORT TEMPLATE",.01)=""
^DD(9.48,"GL",0,1,.01)=""
^DD(9.48,"GL",0,2,2)=""
^DD(9.48,"RQ",2)=""
^DD(9.485,0)="SCREEN TEMPLATE (FORM) SUB-FIELD^^2^2"
^DD(9.485,0,"DT")="2910320"
^DD(9.485,0,"NM","SCREEN TEMPLATE (FORM)")=""
^DD(9.485,0,"UP")="9.4"
^DD(9.485,.01,0)="SCREEN TEMPLATE (FORM)^MF^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(9.485,.01,1,0)="^.1^^0"
^DD(9.485,.01,3)="Please enter the name of a Screen Template (Form), (2-50 characters)."
^DD(9.485,.01,21,0)="^^2^2^2920513^^^^"
^DD(9.485,.01,21,1,0)="The name of a Screen Template (from the FORM file) associated with"
^DD(9.485,.01,21,2,0)="this Package."
^DD(9.485,.01,23,0)="^^3^3^2910320^^^^"
^DD(9.485,.01,23,1,0)="This list is originally created by the user for building an INIT, and allows"
^DD(9.485,.01,23,2,0)="the user to send FORMS on an INIT that are outside the Package namespace."
^DD(9.485,.01,23,3,0)="All BLOCKS associated with the FORMS are also sent automatically."
^DD(9.485,.01,"DT")="2910320"
^DD(9.485,2,0)="FILE^RP1'^DIC(^0;2^Q"
^DD(9.485,2,21,0)="^^1^1^2920513^^"
^DD(9.485,2,21,1,0)="The name of the FileMan file for this Screen Template (FORM)."
^DD(9.485,2,23,0)="^^1^1^2910320^"
^DD(9.485,2,23,1,0)="This field must match the PRIMARY FILE field on the FORM file."
^DD(9.485,2,"DT")="2910320"
^DD(9.485,"B","FILE",2)=""
^DD(9.485,"B","SCREEN TEMPLATE (FORM)",.01)=""
^DD(9.485,"GL",0,1,.01)=""
^DD(9.485,"GL",0,2,2)=""
^DD(9.485,"RQ",2)=""
^DD(9.49,0)="VERSION SUB-FIELD^NL^1105^6"
^DD(9.49,0,"DT")="2940607"
^DD(9.49,0,"ID",1)="W:$D(^(""0"")) ""   "",$E($P(^(""0""),U,2),4,5)_""-""_$E($P(^(""0""),U,2),6,7)_""-""_$E($P(^(""0""),U,2),2,3)"
^DD(9.49,0,"IX","B",9.49,.01)=""
^DD(9.49,0,"NM","VERSION")=""
^DD(9.49,0,"UP")="9.4"
^DD(9.49,.01,0)="VERSION^FX^^0;1^K:'(X?1.3N.1""."".2N.1A.2N)!(X>999)!(X'>0) X"
^DD(9.49,.01,1,0)="^.1"
^DD(9.49,.01,1,1,0)="9.49^B"
^DD(9.49,.01,1,1,1)="S ^DIC(9.4,DA(1),22,""B"",$E(X,1,30),DA)="""""
^DD(9.49,.01,1,1,2)="K ^DIC(9.4,DA(1),22,""B"",$E(X,1,30),DA)"
^DD(9.49,.01,3)="Please enter the Version Number of this release.  This can be either the old method (1.0, 16.04, etc.) or the new (17T1, 6.0V2, etc.)."
^DD(9.49,.01,21,0)="^^2^2^2930415^^^^"
^DD(9.49,.01,21,1,0)="The version number of this Package.  This number is updated automatically"
^DD(9.49,.01,21,2,0)="when an INIT is built for this package."
^DD(9.49,.01,"DT")="2910322"
^DD(9.49,1,0)="DATE DISTRIBUTED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(9.49,1,21,0)="^^2^2^2911209^^^"
^DD(9.49,1,21,1,0)="The date this release was distributed.  This field is updated automatically"
^DD(9.49,1,21,2,0)="when an INIT is built for this package."
^DD(9.49,1,"DT")="2840227"
^DD(9.49,2,0)="DATE INSTALLED AT THIS SITE^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(9.49,2,21,0)="^^2^2^2911209^^^"
^DD(9.49,2,21,1,0)="The date this release was installed at this site.  This field is updated"
^DD(9.49,2,21,2,0)="automatically when an INIT is installed for this package."
^DD(9.49,2,"DT")="2840302"
^DD(9.49,3,0)="INSTALLED BY^P200'^VA(200,^0;4^Q"
^DD(9.49,3,21,0)="^^1^1^2940607^"
^DD(9.49,3,21,1,0)="This is the person who installed this version at this site."
^DD(9.49,3,"DT")="2940607"
^DD(9.49,41,0)="DESCRIPTION OF ENHANCEMENTS^9.54^^1;0"
^DD(9.49,41,21,0)="^^2^2^2851008^^"
^DD(9.49,41,21,1,0)="This is a description of the enhancements being distributed with this"
^DD(9.49,41,21,2,0)="release."
^DD(9.49,1105,0)="PATCH APPLICATION HISTORY^9.4901^^PAH;0"
^DD(9.49,"B","DATE DISTRIBUTED",1)=""
^DD(9.49,"B","DATE INSTALLED AT THIS SITE",2)=""
^DD(9.49,"B","DESCRIPTION OF ENHANCEMENTS",41)=""
^DD(9.49,"B","INSTALLED BY",3)=""
^DD(9.49,"B","PATCH APPLICATION HISTORY",1105)=""
^DD(9.49,"B","VERSION",.01)=""
^DD(9.49,"GL",0,1,.01)=""
^DD(9.49,"GL",0,2,1)=""
^DD(9.49,"GL",0,3,2)=""
^DD(9.49,"GL",0,4,3)=""
^DD(9.49,"GL",1,0,41)=""
^DD(9.49,"GL","PAH",0,1105)=""
^DD(9.49,"IX",.01)=""
^DD(9.49,"SB",9.4901,1105)=""
^DD(9.49,"SB",9.54,41)=""
^DD(9.4901,0)="PATCH APPLICATION HISTORY SUB-FIELD^^1^4"
^DD(9.4901,0,"DT")="2940603"
^DD(9.4901,0,"IX","B",9.4901,.01)=""
^DD(9.4901,0,"NM","PATCH APPLICATION HISTORY")=""
^DD(9.4901,0,"UP")="9.49"
^DD(9.4901,.01,0)="PATCH APPLICATION HISTORY^MF^^0;1^K:$L(X)>15!($L(X)<8) X"
^DD(9.4901,.01,1,0)="^.1"
^DD(9.4901,.01,1,1,0)="9.4901^B"
^DD(9.4901,.01,1,1,1)="S ^DIC(9.4,DA(2),22,DA(1),""PAH"",""B"",$E(X,1,30),DA)="""""
^DD(9.4901,.01,1,1,2)="K ^DIC(9.4,DA(2),22,DA(1),""PAH"",""B"",$E(X,1,30),DA)"
^DD(9.4901,.01,3)="Answer must be 8-15 characters in length."
^DD(9.4901,.01,"DT")="2890426"
^DD(9.4901,.02,0)="DATE APPLIED^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.4901,.02,3)="(No range limit on date)"
^DD(9.4901,.02,"DT")="3060905"
^DD(9.4901,.03,0)="APPLIED BY^P200'^VA(200,^0;3^Q"
^DD(9.4901,.03,"DT")="2890426"
^DD(9.4901,1,0)="DESCRIPTION^9.49011^^1;0"
^DD(9.4901,1,21,0)="^^1^1^2940603^"
^DD(9.4901,1,21,1,0)="This is a description of the patch being distributed with this release."
^DD(9.4901,"B","APPLIED BY",.03)=""
^DD(9.4901,"B","DATE APPLIED",.02)=""
^DD(9.4901,"B","DESCRIPTION",1)=""
^DD(9.4901,"B","PATCH APPLICATION HISTORY",.01)=""
^DD(9.4901,"GL",0,1,.01)=""
^DD(9.4901,"GL",0,2,.02)=""
^DD(9.4901,"GL",0,3,.03)=""
^DD(9.4901,"GL",1,0,1)=""
^DD(9.4901,"IX",.01)=""
^DD(9.4901,"SB",9.49011,1)=""
^DD(9.49011,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(9.49011,0,"DT")="2940603"
^DD(9.49011,0,"NM","DESCRIPTION")=""
^DD(9.49011,0,"UP")="9.4901"
^DD(9.49011,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(9.49011,.01,"DT")="2940603"
^DD(9.49011,"B","DESCRIPTION",.01)=""
^DD(9.49011,"GL",0,1,.01)=""
^DD(9.495,0)="*MENU SUB-FIELD^^.02^2"
^DD(9.495,0,"DT")="2890928"
^DD(9.495,0,"IX","B",9.495,.01)=""
^DD(9.495,0,"NM","*MENU")=""
^DD(9.495,0,"UP")="9.4"
^DD(9.495,.01,0)="MENU^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(9.495,.01,1,0)="^.1"
^DD(9.495,.01,1,1,0)="9.495^B"
^DD(9.495,.01,1,1,1)="S ^DIC(9.4,DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(9.495,.01,1,1,2)="K ^DIC(9.4,DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(9.495,.01,3)="This is the name of a menu-type option outside this namespace."
^DD(9.495,.01,4)="N DO,DIC S DIC=""^DIC(19,"",DIC(0)=""QE"",D=""B"",DIC(""S"")=""I $P(^(0),U,4)=""""M"""""" D DQ^DICQ"
^DD(9.495,.01,21,0)="^^4^4^2920513^^^^"
^DD(9.495,.01,21,1,0)="This is the name of an option NOT in this namespace.  This option"
^DD(9.495,.01,21,2,0)="must be a menu, but it may not exist on this system.  You are"
^DD(9.495,.01,21,3,0)="entering this menu name because you want to add an option in this"
^DD(9.495,.01,21,4,0)="package to a menu that is in another."
^DD(9.495,.01,"DT")="2890928"
^DD(9.495,.02,0)="OPTION^R*P19'^DIC(19,^0;2^S DIC(""S"")=""I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))="""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9.495,.02,12)="Select an option in this namespace."
^DD(9.495,.02,12.1)="S DIC(""S"")=""I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))="""""""""""
^DD(9.495,.02,21,0)="^^1^1^2920513^^"
^DD(9.495,.02,21,1,0)="This is an option which you wish to add to a menu in another namespace."
^DD(9.495,.02,"DT")="2890928"
^DD(9.495,"B","MENU",.01)=""
^DD(9.495,"B","OPTION",.02)=""
^DD(9.495,"GL",0,1,.01)=""
^DD(9.495,"GL",0,2,.02)=""
^DD(9.495,"IX",.01)=""
^DD(9.495,"RQ",.02)=""
^DD(9.54,0)="DESCRIPTION OF ENHANCEMENTS SUB-FIELD^NL^.01^1"
^DD(9.54,0,"NM","DESCRIPTION OF ENHANCEMENTS")=""
^DD(9.54,0,"UP")="9.49"
^DD(9.54,.01,0)="DESCRIPTION OF ENHANCEMENTS^W^^0;1^Q"
^DD(9.54,.01,21,0)="^^2^2^2851008^^^^"
^DD(9.54,.01,21,1,0)="This is a description of the enhancements which are being distributed"
^DD(9.54,.01,21,2,0)="with this release."
^DD(9.54,.01,"DT")="2840404"
^DD(9.54,"B","DESCRIPTION OF ENHANCEMENTS",.01)=""
^DD(9.54,"GL",0,1,.01)=""
^DD(9.6,0)="FIELD^NL^916.1^34"
^DD(9.6,0,"DT")="2950330"
^DD(9.6,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(9.4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(9.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(9.6,0,"ID","W1")="D:$P(^(0),U,2) EN^DDIOL(""   ""_$$EXTERNAL^DILFD(9.6,1,"""",$P(^(0),U,2)),"""",""?0"")"
^DD(9.6,0,"IX","B",9.6,.01)=""
^DD(9.6,0,"IX","C",9.6,1)=""
^DD(9.6,0,"NM","BUILD")=""
^DD(9.6,0,"VR")="8.0"
^DD(9.6,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(9.6,.01,0)="NAME^FX^^0;1^D INPUTB^XPDET(.X)"
^DD(9.6,.01,1,0)="^.1^^-1"
^DD(9.6,.01,1,1,0)="9.6^B"
^DD(9.6,.01,1,1,1)="S ^XPD(9.6,""B"",X,DA)="""""
^DD(9.6,.01,1,1,2)="K ^XPD(9.6,""B"",X,DA)"
^DD(9.6,.01,3)="Enter Package or Patch Name and version in the format 'PACKAGE nn.n[V|T]n' or 'PATCH*nn.n*nn'."
^DD(9.6,.01,21,0)="^^2^2^2950105^^^^"
^DD(9.6,.01,21,1,0)="The name and version number of this Package or Patch."
^DD(9.6,.01,21,2,0)=" i.e. KERNEL 8.0T1  or XU*8.0*1"
^DD(9.6,.01,"DT")="2950105"
^DD(9.6,.02,0)="DATE DISTRIBUTED^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.6,.02,21,0)="^^1^1^2940608^"
^DD(9.6,.02,21,1,0)="The date this Build is distributed to the sites."
^DD(9.6,.02,"DT")="2940608"
^DD(9.6,1,0)="PACKAGE FILE LINK^*P9.4'^DIC(9.4,^0;2^S DIC(""S"")=""I $$PCK^XPDET(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9.6,1,1,0)="^.1"
^DD(9.6,1,1,1,0)="9.6^C"
^DD(9.6,1,1,1,1)="S ^XPD(9.6,""C"",$E(X,1,30),DA)="""""
^DD(9.6,1,1,1,2)="K ^XPD(9.6,""C"",$E(X,1,30),DA)"
^DD(9.6,1,1,1,"DT")="2930820"
^DD(9.6,1,3)=""
^DD(9.6,1,12)="Must be the same Package Name or Namespace"
^DD(9.6,1,12.1)="S DIC(""S"")=""I $$PCK^XPDET(Y)"""
^DD(9.6,1,21,0)="^^4^4^2950113^^^^"
^DD(9.6,1,21,1,0)="Enter this field only if you want to update the Package file when this"
^DD(9.6,1,21,2,0)="package is installed at the recipient's site.  You can only reference"
^DD(9.6,1,21,3,0)="a Package with the same Name as your Build. If this is a patch, you can"
^DD(9.6,1,21,4,0)="only reference a Package with the same Namespace as your Build."
^DD(9.6,1,"DT")="2940425"
^DD(9.6,2,0)="TYPE^S^0:SINGLE PACKAGE;1:MULTI-PACKAGE;2:GLOBAL PACKAGE;^0;3^Q"
^DD(9.6,2,3)=""
^DD(9.6,2,21,0)="^^5^5^2960906^^^"
^DD(9.6,2,21,1,0)="This field controls what can be sent as part of this Build."
^DD(9.6,2,21,2,0)=" SINGLE PACKAGE can contain all Routines and all Build Components."
^DD(9.6,2,21,3,0)=" MULTI-PACAGE contains only a list of other Builds."
^DD(9.6,2,21,4,0)=" GLOBAL PACKAGE can contain Environment Check and Post-Install"
^DD(9.6,2,21,5,0)=" Routines and a list of Globals."
^DD(9.6,2,"DT")="2950105"
^DD(9.6,3,0)="DESCRIPTION OF ENHANCEMENTS^9.61A^^1;0"
^DD(9.6,3,21,0)="^^2^2^2940607^^^^"
^DD(9.6,3,21,1,0)="A complete and detailed description of the Package's or Patch's"
^DD(9.6,3,21,2,0)="enhancements and capabilities."
^DD(9.6,3,"DT")="2940607"
^DD(9.6,4,0)="VERSION^CJ8^^ ; ^S X=$$VER^XPDUTL($P($G(^XPD(9.6,D0,0)),U))"
^DD(9.6,4,9)="^"
^DD(9.6,4,9.01)=""
^DD(9.6,4,9.1)="S X=$$VER^XPDUTL($P($G(^XPD(9.6,D0,0)),U))"
^DD(9.6,4,21,0)="^^1^1^2940914^^"
^DD(9.6,4,21,1,0)="This field returns the version number for this package."
^DD(9.6,5,0)="TRACK PACKAGE NATIONALLY^S^y:YES;n:NO;^0;5^Q"
^DD(9.6,5,21,0)="^^4^4^2941108^^^"
^DD(9.6,5,21,1,0)="YES means you want to send a message to the National Package File on"
^DD(9.6,5,21,2,0)="FORUM to track this package when it is installed at an installing site."
^DD(9.6,5,21,3,0)=" "
^DD(9.6,5,21,4,0)="NO means you don't want to generate a message."
^DD(9.6,5,"DT")="2940422"
^DD(9.6,6,0)="FILE^9.64PA^^4;0"
^DD(9.6,6,21,0)="^^3^3^2940502^^^^"
^DD(9.6,6,21,1,0)="Any FileMan files which are part of this Package are documented"
^DD(9.6,6,21,2,0)="here.  This multiple controls what files (Data Dictionaries and"
^DD(9.6,6,21,3,0)="Data) are distributed from this Package entry."
^DD(9.6,7,0)="BUILD COMPONENTS^9.67PA^^KRN;0"
^DD(9.6,7,21,0)="^^1^1^2940503^^"
^DD(9.6,7,21,1,0)="The list of the components that make up a package."
^DD(9.6,7,"DT")="2940519"
^DD(9.6,10,0)="MULTIPLE BUILD^9.63^^10;0"
^DD(9.6,10,21,0)="^^4^4^2960904^^"
^DD(9.6,10,21,1,0)="This multiple contains other Builds that will be sent with this package"
^DD(9.6,10,21,2,0)="for a multi-package distribution. It can also contain a list of patches"
^DD(9.6,10,21,3,0)="that was rolled up into this Build.  The Type field is used to distinguish"
^DD(9.6,10,21,4,0)="the difference in its use."
^DD(9.6,10,"DT")="2960904"
^DD(9.6,11,0)="REQUIRED BUILD^9.611^^REQB;0"
^DD(9.6,20,0)="ALPHA/BETA TESTING^S^y:YES;n:NO;^ABPKG;1^Q"
^DD(9.6,20,21,0)="^^5^5^2940502^^^^"
^DD(9.6,20,21,1,0)="YES means this package is currently in alpha or beta test and that you want"
^DD(9.6,20,21,2,0)="to track option usage and errors relating to this package at the sites."
^DD(9.6,20,21,3,0)=" "
^DD(9.6,20,21,4,0)="NO means that you want to discontinue tracking of alpha or beta testing"
^DD(9.6,20,21,5,0)="at sites."
^DD(9.6,20,"DT")="2940307"
^DD(9.6,21,0)="INSTALLATION MESSAGE^S^y:YES;n:NO;^ABPKG;2^Q"
^DD(9.6,21,21,0)="^^3^3^2940307^^"
^DD(9.6,21,21,1,0)="YES means you want a Installation Message sent when this package is"
^DD(9.6,21,21,2,0)="installed at a site.  The message will be sent to the mailgroup in the "
^DD(9.6,21,21,3,0)="'ADDRESS FOR USAGE REPORTING' field."
^DD(9.6,21,"DT")="2940307"
^DD(9.6,22,0)="ADDRESS FOR USAGE REPORTING^FX^^ABPKG;3^K:$L(X)>60!($L(X)<5)!(X'?1""G.""1U.E1""@""1U.E) X I $D(X) N DIC,XPD S DIC=4.2,DIC(0)=""QEM"",XPD=X,X=$P(X,""@"",2) D ^DIC S:Y>0 X=$P(XPD,""@"")_""@""_$P(Y,U,2) K:Y<0 X"
^DD(9.6,22,3)="Answer should be a group addressee network mail format (e.g., G.PKG-TEST@ISC-ANYWHERE)"
^DD(9.6,22,21,0)="^^4^4^2940307^"
^DD(9.6,22,21,1,0)="This field contains a mail group at a domain to which"
^DD(9.6,22,21,2,0)="installation, option usage, and error messages are sent."
^DD(9.6,22,21,3,0)="This is usually a mail group containing one or more of"
^DD(9.6,22,21,4,0)="the developers of the package at the developing ISC."
^DD(9.6,22,"DT")="2940308"
^DD(9.6,23,0)="PACKAGE NAMESPACE OR PREFIX^9.66A^^ABNS;0"
^DD(9.6,23,21,0)="^^3^3^2940307^"
^DD(9.6,23,21,1,0)="This multiple field is used to identify the namespace or"
^DD(9.6,23,21,2,0)="prefixes used to identify the options and routines"
^DD(9.6,23,21,3,0)="associated with the alpha or beta test package."
^DD(9.6,30,0)="GLOBAL^9.65^^GLO;0"
^DD(9.6,30,21,0)="^^1^1^2950105^^"
^DD(9.6,30,21,1,0)="This multiple contains the globals to transport with KIDS."
^DD(9.6,50,0)="INSTALL QUESTIONS^9.62^^QUES;0"
^DD(9.6,50,21,0)="^^4^4^2940502^^^"
^DD(9.6,50,21,1,0)="These are the Install questions that will be asked at the installing site."
^DD(9.6,50,21,2,0)="All questions will use the VA Fileman Reader (DIR) and all variables need"
^DD(9.6,50,21,3,0)="to be defined in this multiple. Only the ENVIROMENT CHECK ROUTINE will be"
^DD(9.6,50,21,4,0)="loaded at the installing site when these questions are asked."
^DD(9.6,51.01,0)="XPF1^S^YES:YES;NO:NO;^QDEF;1^Q"
^DD(9.6,51.01,21,0)="^^1^1^3070619^"
^DD(9.6,51.01,21,1,0)="Place holder for developer default answer. Not used at this time."
^DD(9.6,51.01,"DT")="3070619"
^DD(9.6,51.03,0)="XPF2^S^YES:YES;NO:NO;^QDEF;3^Q"
^DD(9.6,51.03,21,0)="^^1^1^3070621^"
^DD(9.6,51.03,21,1,0)="Place holder for developer default answer. Not used at this time."
^DD(9.6,51.03,23,0)="^^2^2^3070621^"
^DD(9.6,51.03,23,1,0)="The order and location of these fields are setup to match the order and "
^DD(9.6,51.03,23,2,0)="index in QUESTION^XPDTC."
^DD(9.6,51.03,"DT")="3070621"
^DD(9.6,51.05,0)="XPI1^S^YES:YES;NO:NO;^QDEF;5^Q"
^DD(9.6,51.05,21,0)="^^1^1^3070619^"
^DD(9.6,51.05,21,1,0)="This field holds the developer default for the Install question XPI1."
^DD(9.6,51.05,"DT")="3070619"
^DD(9.6,51.07,0)="XPM1^S^YES:YES;NO:NO;^QDEF;7^Q"
^DD(9.6,51.07,21,0)="^^1^1^3070621^"
^DD(9.6,51.07,21,1,0)="Place holder for developer default answer. Not used at this time."
^DD(9.6,51.07,"DT")="3070621"
^DD(9.6,51.09,0)="XPO1^S^YES:YES;NO:NO;^QDEF;9^Q"
^DD(9.6,51.09,21,0)="^^1^1^3070619^"
^DD(9.6,51.09,21,1,0)="This field holds the developer default for the Install question XPO1."
^DD(9.6,51.09,"DT")="3070619"
^DD(9.6,51.11,0)="XPZ1^S^YES:YES;NO:NO;^QDEF;11^Q"
^DD(9.6,51.11,21,0)="^^1^1^3070619^"
^DD(9.6,51.11,21,1,0)="This field holds the developer default for the Install question XPZ1."
^DD(9.6,51.11,"DT")="3070619"
^DD(9.6,51.13,0)="XPZ2^S^YES:YES;NO:NO;^QDEF;13^Q"
^DD(9.6,51.13,21,0)="^^1^1^3070619^"
^DD(9.6,51.13,21,1,0)="Place holder for developer default answer. Not used at this time."
^DD(9.6,51.13,"DT")="3070619"
^DD(9.6,61,0)="TEST#^NJ3,0^^6;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.6,61,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9.6,61,21,0)="^^2^2^3050609^"
^DD(9.6,61,21,1,0)="This is just a place holder to reserve the database location in the "
^DD(9.6,61,21,2,0)="INSTALL file."
^DD(9.6,61,"DT")="3050609"
^DD(9.6,62,0)="SEQ#^NJ3,0^^6;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.6,62,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9.6,62,21,0)="^^2^2^3050609^"
^DD(9.6,62,21,1,0)="This is just a place holder to reserve the database location in the "
^DD(9.6,62,21,2,0)="INSTALL file."
^DD(9.6,62,"DT")="3050609"
^DD(9.6,63,0)="TRANSPORT BUILD NUMBER^NJ3,0^^6.3;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(9.6,63,.1)="Transport Build Number"
^DD(9.6,63,3)="Type a number between 0 and 999, 0 Decimal Digits"
^DD(9.6,63,21,0)="^^6^6^3051206^"
^DD(9.6,63,21,1,0)="This field holds the Transport Build Number for this package or patch. It"
^DD(9.6,63,21,2,0)="is incremented by one every time there is a KIDS transport done. It should"
^DD(9.6,63,21,3,0)="not be edited. During the KIDS transport this build number will be "
^DD(9.6,63,21,4,0)="inserted into the 7th piece of the second line. During the testing of a "
^DD(9.6,63,21,5,0)="package or patch this gives a way for support to know if the most "
^DD(9.6,63,21,6,0)="current routines are loaded."
^DD(9.6,63,"DT")="3060619"
^DD(9.6,900,0)="PRE-TRANSPORTATION ROUTINE^FX^^PRET;E1,240^K:$L(X)>17!(X'?.1UP.7UN.1""^""1UP.7UN) X"
^DD(9.6,900,3)="Enter a routine, [TAG^]ROUTINE."
^DD(9.6,900,21,0)="^^5^5^2960415^^"
^DD(9.6,900,21,1,0)="The name of the routine which is run before the Transport Global"
^DD(9.6,900,21,2,0)="is sent. You can use this routine to add nodes to the Transport"
^DD(9.6,900,21,3,0)="Global.  The variable XPDGREF will be defined to a closed global"
^DD(9.6,900,21,4,0)="root that could be used to set the nodes."
^DD(9.6,900,21,5,0)=" examble: S @XPDGREF@(""mydata"",1,0)=""node one of data"""
^DD(9.6,900,"DT")="2960415"
^DD(9.6,913,0)="ENVIRONMENT CHECK ROUTINE^FX^^PRE;1^K:$L(X)<3!(X'?1U.7UN) X"
^DD(9.6,913,.1)="DEVELOPERS ROUTINE RUN BEFORE 'INIT' QUESTIONS ASKED"
^DD(9.6,913,3)="Enter name of developer's environment check routine (3-8 characters) that runs before any user questions are asked.  This routine should be used for environment check only and should not alter data."
^DD(9.6,913,21,0)="^^8^8^2931118^^^"
^DD(9.6,913,21,1,0)="The name of the developer's routine which is run at the beginning of"
^DD(9.6,913,21,2,0)="the install process.  This should just check the environment"
^DD(9.6,913,21,3,0)="and should not alter any data, since the user has no way to exit out of"
^DD(9.6,913,21,4,0)="the install process until this program runs to completion."
^DD(9.6,913,21,5,0)="This routine can interact with the user. If the variable XPDQUIT is set,"
^DD(9.6,913,21,6,0)="the install process will terminate."
^DD(9.6,913,21,7,0)=" Note: This routine must be self-contained, since it will be the only"
^DD(9.6,913,21,8,0)="routine installed from this package at this time."
^DD(9.6,913,"DT")="2940119"
^DD(9.6,913.1,0)="DELETE ENV ROUTINE^S^y:Yes;n:No;^INID;1^Q"
^DD(9.6,913.1,21,0)="^^2^2^2990415^"
^DD(9.6,913.1,21,1,0)="Setting this field to YES will instruct KIDS to delete the Enviroment"
^DD(9.6,913.1,21,2,0)="Check Routine at the end of the install."
^DD(9.6,913.1,"DT")="2990415"
^DD(9.6,914,0)="POST-INSTALL ROUTINE^FX^^INIT;E1,240^K:$L(X)>17!(X'?.1UP.7UN.1""^""1UP.7UN) X"
^DD(9.6,914,.1)=""
^DD(9.6,914,3)="Enter the name of the developer's post-initialization [TAG^]ROUTINE. "
^DD(9.6,914,21,0)="^^3^3^2940518^^^^"
^DD(9.6,914,21,1,0)="The name of the developer's routine which is run immediately after the"
^DD(9.6,914,21,2,0)="installation of the package.  This routine cannot be interactive with"
^DD(9.6,914,21,3,0)="the user, it might be queued to run at a later time."
^DD(9.6,914,"DT")="2940518"
^DD(9.6,914.1,0)="DELETE POST-INIT ROUTINE^S^y:Yes;n:No;^INID;2^Q"
^DD(9.6,914.1,3)=""
^DD(9.6,914.1,21,0)="^^2^2^2990607^"
^DD(9.6,914.1,21,1,0)="Setting this field to YES will instruct KIDS to delete the Post-INIT"
^DD(9.6,914.1,21,2,0)="Routine at the end of the install."
^DD(9.6,914.1,"DT")="2990415"
^DD(9.6,916,0)="PRE-INSTALL ROUTINE^FX^^INI;E1,240^K:$L(X)>17!(X'?.1UP.7UN.1""^"".1UP.7UN) X"
^DD(9.6,916,.1)=""
^DD(9.6,916,3)="Enter name of developer's pre-init [TAG^]ROUTINE."
^DD(9.6,916,21,0)="^^6^6^2940518^^^^"
^DD(9.6,916,21,1,0)="Name of the developer's routine that runs after the user has answered all"
^DD(9.6,916,21,2,0)="of the questions, but before any data or DD has been installed. All of"
^DD(9.6,916,21,3,0)="the routines for this package will already be installed. Used for data"
^DD(9.6,916,21,4,0)="conversions, etc. that the developer needs to do before bringing in new"
^DD(9.6,916,21,5,0)="data.  This routine cannot be interactive with the user, it might"
^DD(9.6,916,21,6,0)="be queued to run at a later time."
^DD(9.6,916,"DT")="2940518"
^DD(9.6,916.1,0)="DELETE PRE-INIT ROUTINE^S^y:Yes;n:No;^INID;3^Q"
^DD(9.6,916.1,3)=""
^DD(9.6,916.1,21,0)="^^2^2^2990607^"
^DD(9.6,916.1,21,1,0)="Setting this field to YES will instruct KIDS to delete the Pre-INIT"
^DD(9.6,916.1,21,2,0)="Routine at the end of the install."
^DD(9.6,916.1,"DT")="2990415"
^DD(9.6,"B","ADDRESS FOR USAGE REPORTING",22)=""
^DD(9.6,"B","ALPHA/BETA TESTING",20)=""
^DD(9.6,"B","BUILD COMPONENTS",7)=""
^DD(9.6,"B","DATE DISTRIBUTED",.02)=""
^DD(9.6,"B","DELETE ENV ROUTINE",913.1)=""
^DD(9.6,"B","DELETE POST-INIT ROUTINE",914.1)=""
^DD(9.6,"B","DELETE PRE-INIT ROUTINE",916.1)=""
^DD(9.6,"B","DESCRIPTION OF ENHANCEMENTS",3)=""
^DD(9.6,"B","ENVIRONMENT CHECK ROUTINE",913)=""
^DD(9.6,"B","FILE",6)=""
^DD(9.6,"B","GLOBAL",30)=""
^DD(9.6,"B","INSTALL QUESTIONS",50)=""
^DD(9.6,"B","INSTALLATION MESSAGE",21)=""
^DD(9.6,"B","MULTIPLE BUILD",10)=""
^DD(9.6,"B","NAME",.01)=""
^DD(9.6,"B","PACKAGE FILE LINK",1)=""
^DD(9.6,"B","PACKAGE NAMESPACE OR PREFIX",23)=""
^DD(9.6,"B","POST-INSTALL ROUTINE",914)=""
^DD(9.6,"B","PRE-INSTALL ROUTINE",916)=""
^DD(9.6,"B","PRE-TRANSPORTATION ROUTINE",900)=""
^DD(9.6,"B","REQUIRED BUILD",11)=""
^DD(9.6,"B","SEQ#",62)=""
^DD(9.6,"B","TEST#",61)=""
^DD(9.6,"B","TRACK PACKAGE NATIONALLY",5)=""
^DD(9.6,"B","TRANSPORT BUILD NUMBER",63)=""
^DD(9.6,"B","TYPE",2)=""
^DD(9.6,"B","Transport Build Number",63)="1"
^DD(9.6,"B","VERSION",4)=""
^DD(9.6,"B","XPF1",51.01)=""
^DD(9.6,"B","XPF2",51.03)=""
^DD(9.6,"B","XPI1",51.05)=""
^DD(9.6,"B","XPM1",51.07)=""
^DD(9.6,"B","XPO1",51.09)=""
^DD(9.6,"B","XPZ1",51.11)=""
^DD(9.6,"B","XPZ2",51.13)=""
^DD(9.6,"GL",0,1,.01)=""
^DD(9.6,"GL",0,2,1)=""
^DD(9.6,"GL",0,3,2)=""
^DD(9.6,"GL",0,4,.02)=""
^DD(9.6,"GL",0,5,5)=""
^DD(9.6,"GL",1,0,3)=""
^DD(9.6,"GL",4,0,6)=""
^DD(9.6,"GL",6,1,61)=""
^DD(9.6,"GL",6,2,62)=""
^DD(9.6,"GL",6.3,1,63)=""
^DD(9.6,"GL",10,0,10)=""
^DD(9.6,"GL","ABNS",0,23)=""
^DD(9.6,"GL","ABPKG",1,20)=""
^DD(9.6,"GL","ABPKG",2,21)=""
^DD(9.6,"GL","ABPKG",3,22)=""
^DD(9.6,"GL","GLO",0,30)=""
^DD(9.6,"GL","INI","E1,240",916)=""
^DD(9.6,"GL","INID",1,913.1)=""
^DD(9.6,"GL","INID",2,914.1)=""
^DD(9.6,"GL","INID",3,916.1)=""
^DD(9.6,"GL","INIT","E1,240",914)=""
^DD(9.6,"GL","KRN",0,7)=""
^DD(9.6,"GL","PRE",1,913)=""
^DD(9.6,"GL","PRET","E1,240",900)=""
^DD(9.6,"GL","QDEF",1,51.01)=""
^DD(9.6,"GL","QDEF",3,51.03)=""
^DD(9.6,"GL","QDEF",5,51.05)=""
^DD(9.6,"GL","QDEF",7,51.07)=""
^DD(9.6,"GL","QDEF",9,51.09)=""
^DD(9.6,"GL","QDEF",11,51.11)=""
^DD(9.6,"GL","QDEF",13,51.13)=""
^DD(9.6,"GL","QUES",0,50)=""
^DD(9.6,"GL","REQB",0,11)=""
^DD(9.6,"IX",.01)=""
^DD(9.6,"IX",1)=""
^DD(9.6,"SB",9.61,3)=""
^DD(9.6,"SB",9.611,11)=""
^DD(9.6,"SB",9.62,50)=""
^DD(9.6,"SB",9.63,10)=""
^DD(9.6,"SB",9.64,6)=""
^DD(9.6,"SB",9.65,30)=""
^DD(9.6,"SB",9.66,23)=""
^DD(9.6,"SB",9.67,7)=""
^DD(9.61,0)="DESCRIPTION OF ENHANCEMENTS SUB-FIELD^NL^.01^1"
^DD(9.61,0,"NM","DESCRIPTION OF ENHANCEMENTS")=""
^DD(9.61,0,"UP")="9.6"
^DD(9.61,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(9.61,.01,3)="Please enter a complete and detailed description of the Package."
^DD(9.61,.01,21,0)="^^2^2^2920513^^^^"
^DD(9.61,.01,21,1,0)="This is a complete and detailed description of the Package's functions"
^DD(9.61,.01,21,2,0)="and capabilities."
^DD(9.61,.01,"DT")="2851007"
^DD(9.61,"B","DESCRIPTION",.01)=""
^DD(9.61,"GL",0,1,.01)=""
^DD(9.611,0)="REQUIRED BUILD SUB-FIELD^^1^2"
^DD(9.611,0,"DT")="2960905"
^DD(9.611,0,"IX","B",9.611,.01)=""
^DD(9.611,0,"NM","REQUIRED BUILD")=""
^DD(9.611,0,"UP")="9.6"
^DD(9.611,.01,0)="REQUIRED BUILD^MFX^^0;1^K:$L(X)>50!($L(X)<3) X I $D(X) D INPUTMB^XPDET(.X)"
^DD(9.611,.01,1,0)="^.1"
^DD(9.611,.01,1,1,0)="9.611^B"
^DD(9.611,.01,1,1,1)="S ^XPD(9.6,DA(1),""REQB"",""B"",X,DA)="""""
^DD(9.611,.01,1,1,2)="K ^XPD(9.6,DA(1),""REQB"",""B"",X,DA)"
^DD(9.611,.01,3)="Enter a Build name"
^DD(9.611,.01,4)="D HELPMB^XPDET"
^DD(9.611,.01,21,0)="^^4^4^2960904^^"
^DD(9.611,.01,21,1,0)="Enter a Build name, a patch or package, that is required to be"
^DD(9.611,.01,21,2,0)="installed before this Build is installed.  KIDS will check the"
^DD(9.611,.01,21,3,0)="Package file, Version multiple and Patch Application History multiple,"
^DD(9.611,.01,21,4,0)="to verify that the Required Build has been installed."
^DD(9.611,.01,"DT")="2960904"
^DD(9.611,1,0)="ACTION^RS^0:Warning only;1:Don't install, remove global;2:Don't install, leave global;^0;2^Q"
^DD(9.611,1,21,0)="^^2^2^2960819^"
^DD(9.611,1,21,1,0)="This is the action you want to happen when installing this Build and the"
^DD(9.611,1,21,2,0)="Required Build has not been installed at the site."
^DD(9.611,1,"DT")="2960905"
^DD(9.611,"B","ACTION",1)=""
^DD(9.611,"B","REQUIRED BUILD",.01)=""
^DD(9.611,"GL",0,1,.01)=""
^DD(9.611,"GL",0,2,1)=""
^DD(9.611,"IX",.01)=""
^DD(9.611,"RQ",1)=""
^DD(9.62,0)="INSTALL QUESTIONS SUB-FIELD^^10^9"
^DD(9.62,0,"DT")="2931129"
^DD(9.62,0,"IX","B",9.62,.01)=""
^DD(9.62,0,"NM","INSTALL QUESTIONS")=""
^DD(9.62,0,"UP")="9.6"
^DD(9.62,.01,0)="SUBSCRIPT^MFX^^0;1^K:$L(X)>30!'(X?1""PRE"".E!(X?1""POS"".E)) X"
^DD(9.62,.01,1,0)="^.1"
^DD(9.62,.01,1,1,0)="9.62^B"
^DD(9.62,.01,1,1,1)="S ^XPD(9.6,DA(1),""QUES"",""B"",$E(X,1,30),DA)="""""
^DD(9.62,.01,1,1,2)="K ^XPD(9.6,DA(1),""QUES"",""B"",$E(X,1,30),DA)"
^DD(9.62,.01,3)="Answer must begin with ""PRE"" or ""POS"" and can be up to 30 characters in length."
^DD(9.62,.01,21,0)="^^8^8^2940607^^^^"
^DD(9.62,.01,21,1,0)="This field will be used as the subscript of the users answer to the"
^DD(9.62,.01,21,2,0)="Install Questions.  The first 3 character should be either ""PRE"" or ""POS"""
^DD(9.62,.01,21,3,0)="to indicate whether the question should be asked during the pre-init or"
^DD(9.62,.01,21,4,0)="during the post-init.   The answers will be in the XPDQUES array, example:"
^DD(9.62,.01,21,5,0)=" If this field was set to 'PRE1 QUESTION' then"
^DD(9.62,.01,21,6,0)=" XPDQUES(""PRE1 QUESTION"") = user response."
^DD(9.62,.01,21,7,0)=" "
^DD(9.62,.01,21,8,0)="This field is also used to determine the order of the questions."
^DD(9.62,.01,"DT")="2931129"
^DD(9.62,1,0)="DIR(0)^RF^^1;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(9.62,1,3)="Answer must be 1-240 characters in length."
^DD(9.62,1,21,0)="^^1^1^2940414^"
^DD(9.62,1,21,1,0)="This is the DIR(0) variable for the VA Fileman DIR routine."
^DD(9.62,1,"DT")="2931123"
^DD(9.62,2,0)="DIR(A)^F^^A;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(9.62,2,3)="Answer must be 1-240 characters in length."
^DD(9.62,2,21,0)="^^1^1^2940414^^"
^DD(9.62,2,21,1,0)="This is the DIR(""A"") variable for the VA Fileman DIR routine."
^DD(9.62,2,"DT")="2931122"
^DD(9.62,3,0)="DIR(A,#)^9.623^^A1;0"
^DD(9.62,3,21,0)="^^1^1^2940414^^"
^DD(9.62,3,21,1,0)="This is the DIR(""A"",#) array for the VA Fileman DIR routine."
^DD(9.62,4,0)="DIR(B)^F^^B;1^K:$L(X)>79!($L(X)<1) X"
^DD(9.62,4,3)="Answer must be 1-79 characters in length."
^DD(9.62,4,21,0)="^^1^1^2940414^^"
^DD(9.62,4,21,1,0)="This is the DIR(""B"") variable for the VA Fileman DIR routine."
^DD(9.62,4,"DT")="2931122"
^DD(9.62,5,0)="DIR(?)^F^^Q;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(9.62,5,3)="Answer must be 1-240 characters in length."
^DD(9.62,5,21,0)="^^1^1^2940414^^"
^DD(9.62,5,21,1,0)="This is the DIR(""?"") variable for the VA Fileman DIR routine."
^DD(9.62,5,"DT")="2931122"
^DD(9.62,6,0)="DIR(?,#)^9.626^^Q1;0"
^DD(9.62,6,21,0)="^^1^1^2940414^^"
^DD(9.62,6,21,1,0)="This is the DIR(""?"",#) array for the VA Fileman DIR routine."
^DD(9.62,7,0)="DIR(??)^F^^QQ;E1,245^K:$L(X)>240!($L(X)<3) X"
^DD(9.62,7,3)="Answer must be 3-240 characters in length."
^DD(9.62,7,21,0)="^^1^1^2940414^^"
^DD(9.62,7,21,1,0)="This is the DIR(""??"") variable for the VA Fileman DIR routine."
^DD(9.62,7,"DT")="2931122"
^DD(9.62,10,0)="M CODE^K^^M;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(9.62,10,3)="This is Standard MUMPS code."
^DD(9.62,10,9)="@"
^DD(9.62,10,21,0)="^^6^6^2940110^^"
^DD(9.62,10,21,1,0)="This field contains standard M code which will be executed after the DIR"
^DD(9.62,10,21,2,0)="array has been set from the previous fields, but before the call to the DIR"
^DD(9.62,10,21,3,0)="routine. If the developer doesn't want to ask a question, kill the DIR"
^DD(9.62,10,21,4,0)="array.  The array XPDQUES(SUBSCRIPT)=internal answer will be defined for all"
^DD(9.62,10,21,5,0)="questions asked.  This code can only make references to the ENVIORMENT CHECK"
^DD(9.62,10,21,6,0)="ROUTINE, since it will be the only routine loaded at this time."
^DD(9.62,10,"DT")="2931129"
^DD(9.62,"B","DIR(0)",1)=""
^DD(9.62,"B","DIR(?)",5)=""
^DD(9.62,"B","DIR(?,#)",6)=""
^DD(9.62,"B","DIR(??)",7)=""
^DD(9.62,"B","DIR(A)",2)=""
^DD(9.62,"B","DIR(A,#)",3)=""
^DD(9.62,"B","DIR(B)",4)=""
^DD(9.62,"B","M CODE",10)=""
^DD(9.62,"B","SUBSCRIPT",.01)=""
^DD(9.62,"GL",0,1,.01)=""
^DD(9.62,"GL",1,"E1,245",1)=""
^DD(9.62,"GL","A","E1,245",2)=""
^DD(9.62,"GL","A1",0,3)=""
^DD(9.62,"GL","B",1,4)=""
^DD(9.62,"GL","M","E1,245",10)=""
^DD(9.62,"GL","Q","E1,245",5)=""
^DD(9.62,"GL","Q1",0,6)=""
^DD(9.62,"GL","QQ","E1,245",7)=""
^DD(9.62,"IX",.01)=""
^DD(9.62,"RQ",1)=""
^DD(9.62,"SB",9.623,3)=""
^DD(9.62,"SB",9.626,6)=""
^DD(9.623,0)="DIR(A,#) SUB-FIELD^^.01^1"
^DD(9.623,0,"DT")="2931122"
^DD(9.623,0,"NM","DIR(A,#)")=""
^DD(9.623,0,"UP")="9.62"
^DD(9.623,.01,0)="DIR(A,#)^WL^^0;1^Q"
^DD(9.623,.01,"DT")="2931122"
^DD(9.623,"B","DIR(A,#)",.01)=""
^DD(9.623,"GL",0,1,.01)=""
^DD(9.626,0)="DIR(?,#) SUB-FIELD^^.01^1"
^DD(9.626,0,"DT")="2931122"
^DD(9.626,0,"NM","DIR(?,#)")=""
^DD(9.626,0,"UP")="9.62"
^DD(9.626,.01,0)="DIR(?,#)^WL^^0;1^Q"
^DD(9.626,.01,"DT")="2931122"
^DD(9.626,"B","DIR(?,#)",.01)=""
^DD(9.626,"GL",0,1,.01)=""
^DD(9.63,0)="MULTIPLE BUILD SUB-FIELD^^.02^3"
^DD(9.63,0,"DT")="2960904"
^DD(9.63,0,"IX","B",9.63,.01)=""
^DD(9.63,0,"NM","MULTIPLE BUILD")=""
^DD(9.63,0,"UP")="9.6"
^DD(9.63,.001,0)="INSTALL ORDER^NJ6,2^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(9.63,.001,3)="Type a Number between 1 and 999, 2 Decimal Digits"
^DD(9.63,.001,21,0)="^^1^1^2940503^"
^DD(9.63,.001,21,1,0)="This is the order in which this package will be installed."
^DD(9.63,.001,"DT")="2981117"
^DD(9.63,.01,0)="MULTIPLE BUILD^MFX^^0;1^K:$L(X)>50!($L(X)<3) X I $D(X) D INPUTMB^XPDET(.X)"
^DD(9.63,.01,1,0)="^.1"
^DD(9.63,.01,1,1,0)="9.63^B"
^DD(9.63,.01,1,1,1)="S ^XPD(9.6,DA(1),10,""B"",X,DA)="""""
^DD(9.63,.01,1,1,2)="K ^XPD(9.6,DA(1),10,""B"",X,DA)"
^DD(9.63,.01,3)="Enter a Build name"
^DD(9.63,.01,4)="D HELPMB^XPDET"
^DD(9.63,.01,21,0)="^^2^2^2960904^^"
^DD(9.63,.01,21,1,0)="Name of Build that will be part of this multi-package distribution or a"
^DD(9.63,.01,21,2,0)="patch that is part of this Build definition."
^DD(9.63,.01,"DT")="2960904"
^DD(9.63,.02,0)="REQUIRED TO CONTINUE^S^1:YES;0:NO;^0;2^Q"
^DD(9.63,.02,21,0)="^^6^6^2990217^^^^"
^DD(9.63,.02,21,1,0)="YES: If this distribution fails KID's internal checks it will be unloaded "
^DD(9.63,.02,21,2,0)="automatically along with all other distributions in this multi-build.  No user "
^DD(9.63,.02,21,3,0)="interaction will take place."
^DD(9.63,.02,21,4,0)=""
^DD(9.63,.02,21,5,0)="NO: If this distributuion fails KID's internal checks the user will choose to "
^DD(9.63,.02,21,6,0)="either 'load it' or 'skip it' and continue with the other distributions."
^DD(9.63,.02,"DT")="2981118"
^DD(9.63,"B","INSTALL ORDER",.001)=""
^DD(9.63,"B","MULTIPLE BUILD",.01)=""
^DD(9.63,"B","REQUIRED TO CONTINUE",.02)=""
^DD(9.63,"GL",0,1,.01)=""
^DD(9.63,"GL",0,2,.02)=""
^DD(9.63,"IX",.01)=""
^DD(9.64,0)="FILE SUB-FIELD^NL^224^13"
^DD(9.64,0,"DT")="2950330"
^DD(9.64,0,"IX","AC",9.64,222.3)=""
^DD(9.64,0,"IX","APDD",9.6411,.01)=""
^DD(9.64,0,"IX","B",9.64,.01)=""
^DD(9.64,0,"NM","FILE")=""
^DD(9.64,0,"UP")="9.6"
^DD(9.64,.01,0)="FILE^M*P1'X^DIC(^0;1^S DIC(""S"")=""I Y>1.9999"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(9.64,.01,.1)="REQUIRED FILES FOR THIS PACKAGE"
^DD(9.64,.01,1,0)="^.1^^-1"
^DD(9.64,.01,1,1,0)="9.64^B"
^DD(9.64,.01,1,1,1)="S ^XPD(9.6,DA(1),4,""B"",X,DA)="""""
^DD(9.64,.01,1,1,2)="K ^XPD(9.6,DA(1),4,""B"",X,DA)"
^DD(9.64,.01,3)="Please enter the name of a FILE that is known to VA FileMan."
^DD(9.64,.01,12)="Select a file which is used by this package."
^DD(9.64,.01,12.1)="S DIC(""S"")=""I Y>1.9999"""
^DD(9.64,.01,21,0)="^^2^2^2920513^^^^"
^DD(9.64,.01,21,1,0)="The name of a VA FileMan file which you wish to transport with"
^DD(9.64,.01,21,2,0)="this package.  This may be any file whose number is 2 or greater."
^DD(9.64,.01,"DT")="2931104"
^DD(9.64,.02,0)="CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(9.64,.02,3)="Answer must be 3-30 characters in length."
^DD(9.64,.02,21,0)="^^1^1^2950330^"
^DD(9.64,.02,21,1,0)="This field contains the checksum for this Data Dictionary"
^DD(9.64,.02,"DT")="2950330"
^DD(9.64,1,0)="DD NUMBER^9.641^^2;0"
^DD(9.64,1,21,0)="^^2^2^2940903^"
^DD(9.64,1,21,1,0)="DD NUMBER pertains to the top level of the file, file number, or a"
^DD(9.64,1,21,2,0)="sub-file such as a multiple field."
^DD(9.64,222.1,0)="UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q"
^DD(9.64,222.1,21,0)="8^^7^7^2940503^"
^DD(9.64,222.1,21,1,0)="YES means that the Data Dictionary for this file should be updated when"
^DD(9.64,222.1,21,2,0)="this version of the package is installed."
^DD(9.64,222.1,21,3,0)=" "
^DD(9.64,222.1,21,4,0)="NO means that this Data Dictionary has not changed since the last version,"
^DD(9.64,222.1,21,5,0)=" "
^DD(9.64,222.1,21,6,0)="If the Data Dictionary does not exist at the installing site, then this"
^DD(9.64,222.1,21,7,0)="field does not apply.  The DD will be put in place."
^DD(9.64,222.1,"DT")="2890627"
^DD(9.64,222.2,0)="SEND SECURITY CODE^S^y:YES;n:NO;^222;2^Q"
^DD(9.64,222.2,21,0)="^^5^5^2940503^^^"
^DD(9.64,222.2,21,1,0)="YES means you want to include the security protection currently"
^DD(9.64,222.2,21,2,0)="on this file when it is distributed. The security protection will"
^DD(9.64,222.2,21,3,0)="only be installed if the file is new at the installing site."
^DD(9.64,222.2,21,4,0)=" "
^DD(9.64,222.2,21,5,0)="NO means you do not want to include security codes."
^DD(9.64,222.2,"DT")="2940211"
^DD(9.64,222.3,0)="SEND FULL OR PARTIAL DD^S^f:FULL;p:PARTIAL;^222;3^Q"
^DD(9.64,222.3,1,0)="^.1"
^DD(9.64,222.3,1,1,0)="^^TRIGGER^9.64^222.7"
^DD(9.64,222.3,1,1,1)="X ^DD(9.64,222.3,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""n"" X ^DD(9.64,222.3,1,1,1.4)"
^DD(9.64,222.3,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.3,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""PARTIAL"""
^DD(9.64,222.3,1,1,1.4)="S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""""),DIV=X S $P(^(222),U,7)=DIV,DIH=9.64,DIG=222.7 D ^DICR"
^DD(9.64,222.3,1,1,2)="Q"
^DD(9.64,222.3,1,1,"%D",0)="^^2^2^2941220^"
^DD(9.64,222.3,1,1,"%D",1,0)="This cross-reference sets the DATA COMES WITH FILE field to 'NO' if the"
^DD(9.64,222.3,1,1,"%D",2,0)="Data Dictionary is a PARTIAL."
^DD(9.64,222.3,1,1,"CREATE CONDITION")="SEND FULL OR PARTIAL DD=""PARTIAL"""
^DD(9.64,222.3,1,1,"CREATE VALUE")="""n"""
^DD(9.64,222.3,1,1,"DELETE VALUE")="NO EFFECT"
^DD(9.64,222.3,1,1,"DT")="2941220"
^DD(9.64,222.3,1,1,"FIELD")="#222.7"
^DD(9.64,222.3,1,2,0)="9.64^AC^MUMPS"
^DD(9.64,222.3,1,2,1)="K:X=""f"" ^XPD(9.6,DA(1),4,DA,2),^XPD(9.6,DA(1),4,""APDD"",DA)"
^DD(9.64,222.3,1,2,2)="Q"
^DD(9.64,222.3,1,2,"%D",0)="^^2^2^2941220^"
^DD(9.64,222.3,1,2,"%D",1,0)="This cross-reference is to clean up the partial DD information when"
^DD(9.64,222.3,1,2,"%D",2,0)="you send a Full DD."
^DD(9.64,222.3,1,2,"DT")="2941220"
^DD(9.64,222.3,5,1,0)="9.64^222.7^1"
^DD(9.64,222.3,"DT")="2941220"
^DD(9.64,222.5,0)="RESOLVE POINTERS^S^y:YES;n:NO;^222;5^Q"
^DD(9.64,222.5,21,0)="^^4^4^3030521^^"
^DD(9.64,222.5,21,1,0)="YES means you want to have all pointer type field values resolved"
^DD(9.64,222.5,21,2,0)="at the installing site."
^DD(9.64,222.5,21,3,0)=" "
^DD(9.64,222.5,21,4,0)="NO means you do not want any pointer type field values resolved."
^DD(9.64,222.5,"DT")="3030521"
^DD(9.64,222.6,0)="DATA LIST^FX^^222;6^S X=$$SEL^DIFROMSS(D1,X) K:X="""" X"
^DD(9.64,222.6,3)="Select Sort Template containing the list of records to transport, for this file."
^DD(9.64,222.6,4)="D HELP^DIFROMSS(D1)"
^DD(9.64,222.6,12)="Must be a sort list"
^DD(9.64,222.6,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=D1,$D(^(1))>9"""
^DD(9.64,222.6,21,0)="^^2^2^2940720^^^^"
^DD(9.64,222.6,21,1,0)="This is the results of a search, which is stored in a Sort template.  This"
^DD(9.64,222.6,21,2,0)="Sort list will contain the records to be transported."
^DD(9.64,222.6,"DT")="2940720"
^DD(9.64,222.7,0)="DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q"
^DD(9.64,222.7,1,0)="^.1^^0"
^DD(9.64,222.7,1,1,0)="^^TRIGGER^9.64^222.3"
^DD(9.64,222.7,1,1,1)="X ^DD(9.64,222.7,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,4,D1,222)):^(222),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""f"" X ^DD(9.64,222.7,1,1,1.4)"
^DD(9.64,222.7,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(9.64,222.7,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""YES"""
^DD(9.64,222.7,1,1,1.4)="S DIH=$S($D(^XPD(9.6,DIV(0),4,DIV(1),222)):^(222),1:""""),DIV=X S $P(^(222),U,3)=DIV,DIH=9.64,DIG=222.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(9.64,222.7,1,1,2)="Q"
^DD(9.64,222.7,1,1,"%D",0)="^^2^2^2941220^"
^DD(9.64,222.7,1,1,"%D",1,0)="This cross-reference sets the SEND FULL OR PATIAL DD field to FULL"
^DD(9.64,222.7,1,1,"%D",2,0)="when sending data with a file."
^DD(9.64,222.7,1,1,"CREATE CONDITION")="DATA COMES WITH FILE=""YES"""
^DD(9.64,222.7,1,1,"CREATE VALUE")="""f"""
^DD(9.64,222.7,1,1,"DELETE VALUE")="NO EFFECT"
^DD(9.64,222.7,1,1,"DT")="2941220"
^DD(9.64,222.7,1,1,"FIELD")="#222.3"
^DD(9.64,222.7,5,1,0)="9.64^222.3^1"
^DD(9.64,222.7,21,0)="^^4^4^2920513^^^^"
^DD(9.64,222.7,21,1,0)="YES means that the data should be included in the initialization"
^DD(9.64,222.7,21,2,0)="routines."
^DD(9.64,222.7,21,3,0)=" "
^DD(9.64,222.7,21,4,0)="NO means that the data should be left out."
^DD(9.64,222.7,"DT")="3030522"
^DD(9.64,222.8,0)="SITE'S DATA^S^a:ADD ONLY IF NEW FILE;m:MERGE;o:OVERWRITE;r:REPLACE;^222;8^Q"
^DD(9.64,222.8,3)=""
^DD(9.64,222.8,21,0)="7^^9^9^2941108^^^^"
^DD(9.64,222.8,21,1,0)="ADD ONLY IF NEW will install data at the installing site only if this"
^DD(9.64,222.8,21,2,0)="file is new to the site or there is no data in this file at the site."
^DD(9.64,222.8,21,3,0)="MERGE data will only bring in data which is not already on file at"
^DD(9.64,222.8,21,4,0)="the installing site."
^DD(9.64,222.8,21,5,0)="OVERWRITE data will be put in place regardless of what is on file"
^DD(9.64,222.8,21,6,0)="at the installing site."
^DD(9.64,222.8,21,7,0)="REPLACE will delete the installing site's data before installing data for"
^DD(9.64,222.8,21,8,0)="this file. It will preserve locally developed fields, if they were created"
^DD(9.64,222.8,21,9,0)="within the VA Programming Standards and Conventions."
^DD(9.64,222.8,"DT")="2940831"
^DD(9.64,222.9,0)="MAY USER OVERRIDE DATA UPDATE^S^y:YES;n:NO;^222;9^Q"
^DD(9.64,222.9,3)=""
^DD(9.64,222.9,21,0)="7^^7^7^2940414^^^"
^DD(9.64,222.9,21,1,0)="YES means that the user has the option to determine whether or not"
^DD(9.64,222.9,21,2,0)="to bring in the data that has been sent with this package.  However,"
^DD(9.64,222.9,21,3,0)="the user does not get the ability to change how to install the SITE'S DATA,"
^DD(9.64,222.9,21,4,0)="i.e. MERGE to REPLACE."
^DD(9.64,222.9,21,5,0)=" "
^DD(9.64,222.9,21,6,0)="NO means that the developer of this package will control whether the data"
^DD(9.64,222.9,21,7,0)="will be installed at the target site."
^DD(9.64,222.9,"DT")="2940502"
^DD(9.64,223,0)="SCREEN TO DETERMINE DD UPDATE^KX^^223;E1,245^K:$L(X)>240 X I $D(X) D ^DIM"
^DD(9.64,223,3)="This is Standard MUMPS code from 1 to 240 characters in length."
^DD(9.64,223,9)="@"
^DD(9.64,223,21,0)="^^5^5^2940915^^^^"
^DD(9.64,223,21,1,0)="This field contains standard MUMPS code which is used to determine"
^DD(9.64,223,21,2,0)="whether or not a data dictionary should be updated.  This code must"
^DD(9.64,223,21,3,0)="set $T.  If $T=1, the DD will be updated.  If $T=0, it will not."
^DD(9.64,223,21,4,0)=" "
^DD(9.64,223,21,5,0)="Namespace your variables."
^DD(9.64,223,"DT")="2890927"
^DD(9.64,224,0)="SCREEN TO SELECT DATA^K^^224;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(9.64,224,3)="This is Standard MUMPS code."
^DD(9.64,224,9)="@"
^DD(9.64,224,21,0)="^^5^5^2950512^^^^"
^DD(9.64,224,21,1,0)="This field contains standard M code which is used to determine"
^DD(9.64,224,21,2,0)="whether a record in a file should be exported in this package."
^DD(9.64,224,21,3,0)="The variable Y will be equal to the internal entry number of the"
^DD(9.64,224,21,4,0)="current record.  This code must set $T, if $T=1 then the record will"
^DD(9.64,224,21,5,0)="be sent. If $T=0 it will not."
^DD(9.64,224,"DT")="2940119"
^DD(9.64,"B","CHECKSUM",.02)=""
^DD(9.64,"B","DATA COMES WITH FILE",222.7)=""
^DD(9.64,"B","DATA LIST",222.6)=""
^DD(9.64,"B","DD NUMBER",1)=""
^DD(9.64,"B","FILE",.01)=""
^DD(9.64,"B","MAY USER OVERRIDE DATA UPDATE",222.9)=""
^DD(9.64,"B","RESOLVE POINTERS",222.5)=""
^DD(9.64,"B","SCREEN TO DETERMINE DD UPDATE",223)=""
^DD(9.64,"B","SCREEN TO SELECT DATA",224)=""
^DD(9.64,"B","SEND FULL OR PARTIAL DD",222.3)=""
^DD(9.64,"B","SEND SECURITY CODE",222.2)=""
^DD(9.64,"B","SITE'S DATA",222.8)=""
^DD(9.64,"B","UPDATE THE DATA DICTIONARY",222.1)=""
^DD(9.64,"GL",0,1,.01)=""
^DD(9.64,"GL",0,2,.02)=""
^DD(9.64,"GL",2,0,1)=""
^DD(9.64,"GL",222,1,222.1)=""
^DD(9.64,"GL",222,2,222.2)=""
^DD(9.64,"GL",222,3,222.3)=""
^DD(9.64,"GL",222,5,222.5)=""
^DD(9.64,"GL",222,6,222.6)=""
^DD(9.64,"GL",222,7,222.7)=""
^DD(9.64,"GL",222,8,222.8)=""
^DD(9.64,"GL",222,9,222.9)=""
^DD(9.64,"GL",223,"E1,245",223)=""
^DD(9.64,"GL",224,"E1,245",224)=""
^DD(9.64,"IX",.01)=""
^DD(9.64,"IX",222.3)=""
^DD(9.64,"IX",222.7)=""
^DD(9.64,"SB",9.641,1)=""
^DD(9.641,0)="DD NUMBER SUB-FIELD^^1^3"
^DD(9.641,0,"DT")="2950330"
^DD(9.641,0,"IX","APDD",9.641,.01)=""
^DD(9.641,0,"NM","DD NUMBER")=""
^DD(9.641,0,"UP")="9.64"
^DD(9.641,.01,0)="DD NUMBER^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) S X=$$CHKDD^DIFROMSD(D1,+$G(X),""N"") K:X'>0 X S:$D(X) DINUM=+X,X=$P(X,""^"",2)"
^DD(9.641,.01,1,0)="^.1"
^DD(9.641,.01,1,1,0)="9.641^APDD^MUMPS"
^DD(9.641,.01,1,1,1)="S ^XPD(9.6,DA(2),4,""APDD"",DA(1),DA)="""""
^DD(9.641,.01,1,1,2)="K ^XPD(9.6,DA(2),4,""APDD"",DA(1),DA)"
^DD(9.641,.01,1,1,"%D",0)="^^2^2^2950117^"
^DD(9.641,.01,1,1,"%D",1,0)="Used to create an array structure containing Partial DDs.  This array"
^DD(9.641,.01,1,1,"%D",2,0)="is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport."
^DD(9.641,.01,1,1,"DT")="2940829"
^DD(9.641,.01,3)="Enter a valid DD number for this file."
^DD(9.641,.01,4)="D DDIOLDD^DIFROMSD(D1)"
^DD(9.641,.01,21,0)="^^17^17^2940903^"
^DD(9.641,.01,21,1,0)=" "
^DD(9.641,.01,21,2,0)="DD NUMBER pertains to the file's number or any multiple field contained"
^DD(9.641,.01,21,3,0)="within the file."
^DD(9.641,.01,21,4,0)=" "
^DD(9.641,.01,21,5,0)="This list starts with the file's top level number followed by a list of"
^DD(9.641,.01,21,6,0)="multiple fields contained within the file, if any.  These DO NOT represent"
^DD(9.641,.01,21,7,0)="Field Number(s)."
^DD(9.641,.01,21,8,0)=" "
^DD(9.641,.01,21,9,0)="The nesting levels are not represented.  All the DD NUMBERs, file number"
^DD(9.641,.01,21,10,0)="and multiple fields, have been flatten to a single list."
^DD(9.641,.01,21,11,0)=" "
^DD(9.641,.01,21,12,0)="After selecting a valid DD NUMBER you will then be prompted to select"
^DD(9.641,.01,21,13,0)="field number(s)."
^DD(9.641,.01,21,14,0)=" "
^DD(9.641,.01,21,15,0)="If a DD NUMBER is selected and no fields are selected, KIDS will send all"
^DD(9.641,.01,21,16,0)="the fields contained within, including multiple fields below the selected"
^DD(9.641,.01,21,17,0)="level."
^DD(9.641,.01,"DT")="2940829"
^DD(9.641,.02,0)="CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(9.641,.02,3)="Answer must be 3-30 characters in length."
^DD(9.641,.02,21,0)="^^1^1^2950330^"
^DD(9.641,.02,21,1,0)="This field contains the checksum for this subDD"
^DD(9.641,.02,"DT")="2950330"
^DD(9.641,1,0)="FIELD NUMBER^9.6411^^1;0"
^DD(9.641,1,"DT")="2940525"
^DD(9.641,"B","CHECKSUM",.02)=""
^DD(9.641,"B","DD NUMBER",.01)=""
^DD(9.641,"B","FIELD NUMBER",1)=""
^DD(9.641,"GL",0,1,.01)=""
^DD(9.641,"GL",0,2,.02)=""
^DD(9.641,"GL",1,0,1)=""
^DD(9.641,"IX",.01)=""
^DD(9.641,"SB",9.6411,1)=""
^DD(9.6411,0)="FIELD NUMBER SUB-FIELD^^.02^2"
^DD(9.6411,0,"DT")="2950330"
^DD(9.6411,0,"NM","FIELD NUMBER")=""
^DD(9.6411,0,"UP")="9.641"
^DD(9.6411,.01,0)="FIELD NUMBER^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) S X=$$FLDCHK^DIFROMSD(D2,+$G(X),""MN"") K:X'>0 X S:$D(X) DINUM=+X,X=$P(X,""^"",2)"
^DD(9.6411,.01,1,0)="^.1"
^DD(9.6411,.01,1,1,0)="9.64^APDD^MUMPS"
^DD(9.6411,.01,1,1,1)="S ^XPD(9.6,DA(3),4,""APDD"",DA(2),DA(1),DA)="""""
^DD(9.6411,.01,1,1,2)="K ^XPD(9.6,DA(3),4,""APDD"",DA(2),DA(1),DA)"
^DD(9.6411,.01,1,1,"%D",0)="^^2^2^2950117^"
^DD(9.6411,.01,1,1,"%D",1,0)="Used to create an array structure containing Partial DDs.  This array"
^DD(9.6411,.01,1,1,"%D",2,0)="is passed to FIA^DIFROMSU as a list of DD numbers and fields to transport."
^DD(9.6411,.01,1,1,"DT")="2940525"
^DD(9.6411,.01,3)="Enter a valid field NUMBER."
^DD(9.6411,.01,4)="D DDIOLFLD^DIFROMSD(D2,""M"")"
^DD(9.6411,.01,21,0)="^^13^13^2940903^"
^DD(9.6411,.01,21,1,0)=" "
^DD(9.6411,.01,21,2,0)="Select field(s) to be sent for this Partial Data Dictionary."
^DD(9.6411,.01,21,3,0)=" "
^DD(9.6411,.01,21,4,0)="Only the attributes for the field(s) selected are sent.  Attributes such"
^DD(9.6411,.01,21,5,0)="as identifers, ""ID"" nodes for a field, are not sent when sending a"
^DD(9.6411,.01,21,6,0)="partial. Some attributes are considered file attributes, such as"
^DD(9.6411,.01,21,7,0)="identifiers, and are only sent with a Full Data Dictionary."
^DD(9.6411,.01,21,8,0)=" "
^DD(9.6411,.01,21,9,0)="If the .01 field for a sub-file, multiple, is selected, the field at the"
^DD(9.6411,.01,21,10,0)="level above, which points to the multiple, is automatically sent."
^DD(9.6411,.01,21,11,0)=" "
^DD(9.6411,.01,21,12,0)="If no field is selected, all fields will be sent, as well as the multiple"
^DD(9.6411,.01,21,13,0)="fields below this level."
^DD(9.6411,.01,"DT")="2940906"
^DD(9.6411,.02,0)="CHECKSUM^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(9.6411,.02,3)="Answer must be 3-30 characters in length."
^DD(9.6411,.02,21,0)="^^1^1^2950330^"
^DD(9.6411,.02,21,1,0)="This field contains the checksum for this field."
^DD(9.6411,.02,"DT")="2950330"
^DD(9.6411,"B","CHECKSUM",.02)=""
^DD(9.6411,"B","FIELD NUMBER",.01)=""
^DD(9.6411,"GL",0,1,.01)=""
^DD(9.6411,"GL",0,2,.02)=""
^DD(9.6411,"IX",.01)=""
^DD(9.65,0)="GLOBAL SUB-FIELD^^1^2"
^DD(9.65,0,"DT")="2950105"
^DD(9.65,0,"IX","B",9.65,.01)=""
^DD(9.65,0,"NM","GLOBAL")=""
^DD(9.65,0,"UP")="9.6"
^DD(9.65,.01,0)="GLOBAL^MFXO^^0;1^D GLOBALE^XPDET(.X)"
^DD(9.65,.01,1,0)="^.1"
^DD(9.65,.01,1,1,0)="9.65^B"
^DD(9.65,.01,1,1,1)="S ^XPD(9.6,DA(1),""GLO"",""B"",$E(X,1,30),DA)="""""
^DD(9.65,.01,1,1,2)="K ^XPD(9.6,DA(1),""GLO"",""B"",$E(X,1,30),DA)"
^DD(9.65,.01,2)="S Y(0)=Y S Y=$TR(Y,""'"","""""""")"
^DD(9.65,.01,2.1)="S Y=$TR(Y,""'"","""""""")"
^DD(9.65,.01,3)="Answer must be 2-30 characters in length and not begining with ""^""."
^DD(9.65,.01,7.5)="S X=$TR(X,"""""""",""'"")"
^DD(9.65,.01,21,0)="^^2^2^2950105^^^"
^DD(9.65,.01,21,1,0)="Enter a global name or a closed global root you want to transport."
^DD(9.65,.01,21,2,0)="The global should not begin with a ""^"". i.e.  %ZIS(2)."
^DD(9.65,.01,"DT")="2950106"
^DD(9.65,1,0)="KILL GLOBAL BEFORE INSTALL^S^y:YES;n:NO;^0;2^Q"
^DD(9.65,1,21,0)="^^5^5^2950105^"
^DD(9.65,1,21,1,0)="YES means that you want this global killed before it is installed"
^DD(9.65,1,21,2,0)="at the installing site."
^DD(9.65,1,21,3,0)=" "
^DD(9.65,1,21,4,0)="NO means you want this global install on top of the existing global"
^DD(9.65,1,21,5,0)="at the installing site."
^DD(9.65,1,"DT")="2950105"
^DD(9.65,"B","GLOBAL",.01)=""
^DD(9.65,"B","KILL GLOBAL BEFORE INSTALL",1)=""
^DD(9.65,"GL",0,1,.01)=""
^DD(9.65,"GL",0,2,1)=""
^DD(9.65,"IX",.01)=""
^DD(9.66,0)="PACKAGE NAMESPACE OR PREFIX SUB-FIELD^^1^2"
^DD(9.66,0,"DT")="2940307"
^DD(9.66,0,"IX","B",9.66,.01)=""
^DD(9.66,0,"NM","PACKAGE NAMESPACE OR PREFIX")=""
^DD(9.66,0,"UP")="9.6"
^DD(9.66,.01,0)="PACKAGE NAMESPACE OR PREFIX^MF^^0;1^K:$L(X)>4!($L(X)<2) X"
^DD(9.66,.01,1,0)="^.1"
^DD(9.66,.01,1,1,0)="9.66^B"
^DD(9.66,.01,1,1,1)="S ^XPD(9.6,DA(1),""ABNS"",""B"",$E(X,1,30),DA)="""""
^DD(9.66,.01,1,1,2)="K ^XPD(9.6,DA(1),""ABNS"",""B"",$E(X,1,30),DA)"
^DD(9.66,.01,3)="This is (one of) the 2 to 4 character namespaces or prefixes associated with the test package"
^DD(9.66,.01,21,0)="^^1^1^2940307^"
^DD(9.66,.01,21,1,0)="This field identifies on of the alpha/beta package namespaces."
^DD(9.66,.01,"DT")="2940307"
^DD(9.66,1,0)="EXCLUDE NAMESPACE OR PREFIX^9.661A^^1;0"
^DD(9.66,1,21,0)="^^5^5^2940502^^^"
^DD(9.66,1,21,1,0)="This multiple field is used to indicate any specific namespaces"
^DD(9.66,1,21,2,0)="or prefixes which begin with the current namespace or prefix"
^DD(9.66,1,21,3,0)="which should be excluded from analyses for the alpha/beta"
^DD(9.66,1,21,4,0)="package.  Generally those namespaces which are immediately"
^DD(9.66,1,21,5,0)="followed by the letter 'Z' are excluded."
^DD(9.66,"B","EXCLUDE NAMESPACE OR PREFIX",1)=""
^DD(9.66,"B","PACKAGE NAMESPACE OR PREFIX",.01)=""
^DD(9.66,"GL",0,1,.01)=""
^DD(9.66,"GL",1,0,1)=""
^DD(9.66,"IX",.01)=""
^DD(9.66,"SB",9.661,1)=""
^DD(9.661,0)="EXCLUDE NAMESPACE OR PREFIX SUB-FIELD^^.01^1"
^DD(9.661,0,"DT")="2940307"
^DD(9.661,0,"IX","B",9.661,.01)=""
^DD(9.661,0,"NM","EXCLUDE NAMESPACE OR PREFIX")=""
^DD(9.661,0,"UP")="9.66"
^DD(9.661,.01,0)="EXCLUDE NAMESPACE OR PREFIX^MF^^0;1^K:$L(X)>4!($L(X)<2) X"
^DD(9.661,.01,1,0)="^.1"
^DD(9.661,.01,1,1,0)="9.661^B"
^DD(9.661,.01,1,1,1)="S ^XPD(9.6,DA(2),""ABNS"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9.661,.01,1,1,2)="K ^XPD(9.6,DA(2),""ABNS"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9.661,.01,3)="Answer must be 2-4 characters in length."
^DD(9.661,.01,21,0)="^^4^4^2940307^"
^DD(9.661,.01,21,1,0)="This is a specific namespace or prefix which would normally be"
^DD(9.661,.01,21,2,0)="included as a part of the alpha/beta package based on the"
^DD(9.661,.01,21,3,0)="prefix specified for the package, but is be excluded from"
^DD(9.661,.01,21,4,0)="consideration as part of the alpha/beta package. "
^DD(9.661,.01,"DT")="2940307"
^DD(9.661,"B","EXCLUDE NAMESPACE OR PREFIX",.01)=""
^DD(9.661,"GL",0,1,.01)=""
^DD(9.661,"IX",.01)=""
^DD(9.67,0)="BUILD COMPONENTS SUB-FIELD^^10^2"
^DD(9.67,0,"DT")="2950330"
^DD(9.67,0,"IX","B",9.67,.01)=""
^DD(9.67,0,"NM","BUILD COMPONENTS")=""
^DD(9.67,0,"UP")="9.6"
^DD(9.67,.01,0)="BUILD COMPONENT^MP1'XI^DIC(^0;1^S DINUM=+X K:'$G(XPDNEWF) X,DINUM"
^DD(9.67,.01,1,0)="^.1"
^DD(9.67,.01,1,1,0)="9.67^B"
^DD(9.67,.01,1,1,1)="S ^XPD(9.6,DA(1),""KRN"",""B"",$E(X,1,30),DA)="""""
^DD(9.67,.01,1,1,2)="K ^XPD(9.6,DA(1),""KRN"",""B"",$E(X,1,30),DA)"
^DD(9.67,.01,21,0)="^^2^2^2940414^"
^DD(9.67,.01,21,1,0)="The name of a VA Fileman file that will be used as a component"
^DD(9.67,.01,21,2,0)="of a package."
^DD(9.67,.01,"DT")="2940815"
^DD(9.67,10,0)="ENTRIES^9.68A^^NM;0"
^DD(9.67,10,21,0)="^^1^1^2940503^"
^DD(9.67,10,21,1,0)="This multiple is a list of each record that is being sent for a component."
^DD(9.67,"B","BUILD COMPONENT",.01)=""
^DD(9.67,"B","ENTRIES",10)=""
^DD(9.67,"GL",0,1,.01)=""
^DD(9.67,"GL","NM",0,10)=""
^DD(9.67,"IX",.01)=""
^DD(9.67,"SB",9.68,10)=""
^DD(9.68,0)="ENTRIES SUB-FIELD^^.04^4"
^DD(9.68,0,"DT")="2950330"
^DD(9.68,0,"IX","B",9.68,.01)=""
^DD(9.68,0,"NM","ENTRIES")=""
^DD(9.68,0,"UP")="9.67"
^DD(9.68,.01,0)="ENTRIES^MFX^^0;1^K:$L(X)>45!($L(X)<2) X I $D(X) D INPUTE^XPDET(.X)"
^DD(9.68,.01,1,0)="^.1"
^DD(9.68,.01,1,1,0)="9.68^B"
^DD(9.68,.01,1,1,1)="S ^XPD(9.6,DA(2),""KRN"",DA(1),""NM"",""B"",X,DA)="""""
^DD(9.68,.01,1,1,2)="K ^XPD(9.6,DA(2),""KRN"",DA(1),""NM"",""B"",X,DA)"
^DD(9.68,.01,1,2,0)="^^TRIGGER^9.68^.02"
^DD(9.68,.01,1,2,1)="X ^DD(9.68,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^XPD(9.6,D0,""KRN"",D1,""NM"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(9.68,.01,1,2,1.1) X ^DD(9.68,.01,1,2,1.4)"
^DD(9.68,.01,1,2,1.1)="S X=DIV S X=DIV,Y(1)=X S X=""    FILE #"",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)"
^DD(9.68,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^XPD(9.6,D0,""KRN"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X<.44"
^DD(9.68,.01,1,2,1.4)="S DIH=$S($D(^XPD(9.6,DIV(0),""KRN"",DIV(1),""NM"",DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=9.68,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(9.68,.01,1,2,2)="Q"
^DD(9.68,.01,1,2,"%D",0)="^^2^2^2950117^"
^DD(9.68,.01,1,2,"%D",1,0)="This trigger updates the FILE field, #.02, with the appropriate file number"
^DD(9.68,.01,1,2,"%D",2,0)="for this template. It is only triggered for Fileman template components."
^DD(9.68,.01,1,2,"CREATE CONDITION")="INTERNAL(KERNEL FILES)<.44"
^DD(9.68,.01,1,2,"CREATE VALUE")="$P(ENTRIES,""    FILE #"",2)"
^DD(9.68,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(9.68,.01,1,2,"DT")="2931020"
^DD(9.68,.01,1,2,"FIELD")="FILE"
^DD(9.68,.01,3)="Answer must be 3-45 characters in length."
^DD(9.68,.01,4)="D HELP^XPDET"
^DD(9.68,.01,7.5)="D LOOKE^XPDET(.X)"
^DD(9.68,.01,21,0)="^^4^4^2950214^^^^"
^DD(9.68,.01,21,1,0)="The name of the component being sent.  The component must exist in"
^DD(9.68,.01,21,2,0)="the pointed-to file.  You can use '*' as a wild card character, "
^DD(9.68,.01,21,3,0)="i.e.  XUS* means all components begining with XUS."
^DD(9.68,.01,21,4,0)="You can also preceed the component with '-' to delete it from the list."
^DD(9.68,.01,"DT")="2940517"
^DD(9.68,.02,0)="FILE^RP1'^DIC(^0;2^Q"
^DD(9.68,.02,5,1,0)="9.68^.01^2"
^DD(9.68,.02,9)="^"
^DD(9.68,.02,21,0)="^^1^1^2931020^"
^DD(9.68,.02,21,1,0)="The Fileman file for this Entry."
^DD(9.68,.02,"DT")="2931020"
^DD(9.68,.03,0)="ACTION^R*S^0:SEND TO SITE;1:DELETE AT SITE;2:USE AS LINK FOR MENU ITEMS;3:MERGE MENU ITEMS;4:ATTACH TO MENU;5:DISABLE DURING INSTALL;^0;3^Q"
^DD(9.68,.03,12)="Enter a number"
^DD(9.68,.03,12.1)="S DIC(""S"")=""I $$SCRA^XPDET(Y)"""
^DD(9.68,.03,21,0)="^^2^2^2970121^^^"
^DD(9.68,.03,21,1,0)="This is the action you want performed at the installing site on"
^DD(9.68,.03,21,2,0)="the entry of the component you are sending for this package."
^DD(9.68,.03,"DT")="2970121"
^DD(9.68,.04,0)="CHECKSUM^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(9.68,.04,3)="Answer must be 3-30 characters in length."
^DD(9.68,.04,21,0)="^^1^1^2950330^"
^DD(9.68,.04,21,1,0)="This field contains the checksum for this component."
^DD(9.68,.04,"DT")="2950330"
^DD(9.68,"B","ACTION",.03)=""
^DD(9.68,"B","CHECKSUM",.04)=""
^DD(9.68,"B","ENTRIES",.01)=""
^DD(9.68,"B","FILE",.02)=""
^DD(9.68,"GL",0,1,.01)=""
^DD(9.68,"GL",0,2,.02)=""
^DD(9.68,"GL",0,3,.03)=""
^DD(9.68,"GL",0,4,.04)=""
^DD(9.68,"IX",.01)=""
^DD(9.68,"RQ",.02)=""
^DD(9.68,"RQ",.03)=""
^DD(9.7,0)="FIELD^^62^27"
^DD(9.7,0,"DDA")="N"
^DD(9.7,0,"DT")="2950410"
^DD(9.7,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(9.7,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,9)_"""":"""",2),$C(59),1)"")"
^DD(9.7,0,"ID","W1")="D ID97^XPDET"
^DD(9.7,0,"IX","AS",9.7,4)=""
^DD(9.7,0,"IX","ASP",9.7,3)=""
^DD(9.7,0,"IX","B",9.7,.01)=""
^DD(9.7,0,"NM","INSTALL")=""
^DD(9.7,0,"PT",9.7,3)=""
^DD(9.7,0,"VR")="8.0"
^DD(9.7,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(9.7,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(9.7,.01,1,0)="^.1^^-1"
^DD(9.7,.01,1,1,0)="9.7^B"
^DD(9.7,.01,1,1,1)="S ^XPD(9.7,""B"",X,DA)="""""
^DD(9.7,.01,1,1,2)="K ^XPD(9.7,""B"",X,DA)"
^DD(9.7,.01,3)="Answer must be 3-50 characters in length."
^DD(9.7,.01,21,0)="^^1^1^2950109^^"
^DD(9.7,.01,21,1,0)="The name and version number of this Package (i.e. Kernel 8.0T1)"
^DD(9.7,.01,"DEL",1,0)="I $P(^XPD(9.7,DA,0),U,9)<3 D EN^DDIOL($C(7)_$S($P(^(0),U,9)=2:""Cannot delete if Install has started."",1:""You must use the Unload a Distribution option.""))"
^DD(9.7,.01,"DT")="2941013"
^DD(9.7,.02,0)="STATUS^RS^0:Loaded from Distribution;1:Queued for Install;2:Start of Install;3:Install Completed;4:De-Installed;^0;9^Q"
^DD(9.7,.02,21,0)="^^1^1^2940620^"
^DD(9.7,.02,21,1,0)="This is the status of this package at this site."
^DD(9.7,.02,"DT")="2950410"
^DD(9.7,1,0)="PACKAGE FILE LINK^P9.4'^DIC(9.4,^0;2^Q"
^DD(9.7,1,21,0)="^^1^1^2940502^^"
^DD(9.7,1,21,1,0)="This field contains the link to the Package File."
^DD(9.7,1,"DT")="2940524"
^DD(9.7,2,0)="DATE LOADED^DI^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.7,2,21,0)="^^1^1^2950321^^"
^DD(9.7,2,21,1,0)="This is the time the Transport Global was loaded at the site."
^DD(9.7,2,"DT")="2950321"
^DD(9.7,3,0)="STARTING PACKAGE^P9.7'I^XPD(9.7,^0;4^Q"
^DD(9.7,3,1,0)="^.1"
^DD(9.7,3,1,1,0)="9.7^ASP^MUMPS"
^DD(9.7,3,1,1,1)="S %=$P(^XPD(9.7,DA,0),U,5) S:% ^XPD(9.7,""ASP"",X,%,DA)="""""
^DD(9.7,3,1,1,2)="S %=$P(^XPD(9.7,DA,0),U,5) K:% ^XPD(9.7,""ASP"",X,%,DA)"
^DD(9.7,3,1,1,"%D",0)="^^3^3^2940114^^"
^DD(9.7,3,1,1,"%D",1,0)="This cross-reference uses the INSTALL ORDER field as the 4th subscript."
^DD(9.7,3,1,1,"%D",2,0)="It is used to find the first package in a linked package and the order to"
^DD(9.7,3,1,1,"%D",3,0)="install this package."
^DD(9.7,3,1,1,"DT")="2940113"
^DD(9.7,3,3)=""
^DD(9.7,3,21,0)="^^1^1^2940415^"
^DD(9.7,3,21,1,0)="This is the first package in a multi-package install."
^DD(9.7,3,"DT")="2940113"
^DD(9.7,4,0)="INSTALL ORDER^NJ2,0I^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.7,4,1,0)="^.1"
^DD(9.7,4,1,1,0)="9.7^AS^MUMPS"
^DD(9.7,4,1,1,1)="S %=$P(^XPD(9.7,DA,0),U,4) S:% ^XPD(9.7,""ASP"",%,X,DA)="""""
^DD(9.7,4,1,1,2)="S %=$P(^XPD(9.7,DA,0),U,4) K:% ^XPD(9.7,""ASP"",%,X,DA)"
^DD(9.7,4,1,1,"%D",0)="^^3^3^2940114^"
^DD(9.7,4,1,1,"%D",1,0)="This cross-reference uses the STARTING PACKAGE field as the 3rd subscript."
^DD(9.7,4,1,1,"%D",2,0)="It is used to find the first package in a linked package and the order"
^DD(9.7,4,1,1,"%D",3,0)="to install this package."
^DD(9.7,4,1,1,"DT")="2940114"
^DD(9.7,4,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9.7,4,21,0)="^^1^1^2940415^"
^DD(9.7,4,21,1,0)="This is the order to install this package in a multi-package install."
^DD(9.7,4,"DT")="2940114"
^DD(9.7,5,0)="QUEUED TASK NUMBER^NJ8,0I^^0;6^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.7,5,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(9.7,5,21,0)="^^2^2^2940415^"
^DD(9.7,5,21,1,0)="This is the Task number for this package if this package was queued to"
^DD(9.7,5,21,2,0)="be installed at a later time."
^DD(9.7,5,"DT")="2940113"
^DD(9.7,6,0)="FILE COMMENT^F^^2;E1,240^K:$L(X)>240!($L(X)<3) X"
^DD(9.7,6,3)="Answer must be 3-240 characters in length."
^DD(9.7,6,21,0)="^^1^1^2950321^"
^DD(9.7,6,21,1,0)="This is the comment from the HFS file that contained this package."
^DD(9.7,6,"DT")="2950321"
^DD(9.7,6.5,0)="REQUIRED TO CONTINUE^S^1:YES;0:NO;^0;7^Q"
^DD(9.7,6.5,21,0)="^^4^4^2981118^"
^DD(9.7,6.5,21,1,0)="If required (answer = YES) the entire build will be aborted if this build does "
^DD(9.7,6.5,21,2,0)="not successfully load.  If not required (answer = NO) the other builds within "
^DD(9.7,6.5,21,3,0)="this build will continue to be processed."
^DD(9.7,6.5,21,4,0)=""
^DD(9.7,6.5,"DT")="2981118"
^DD(9.7,7,0)="SETNAME^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(9.7,7,3)="Answer must be 3-30 characters in length."
^DD(9.7,7,21,0)="^^2^2^2940426^^"
^DD(9.7,7,21,1,0)="This is the SETNAME that will be used to disable options and protocols during"
^DD(9.7,7,21,2,0)="the installation of this package."
^DD(9.7,7,"DT")="2940426"
^DD(9.7,8,0)="DISABLE OPTION DELAY^NJ2,0^^0;10^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9.7,8,3)="Enter the number of minutes to delay the install, between 0 and 60."
^DD(9.7,8,21,0)="^^2^2^2941103^"
^DD(9.7,8,21,1,0)="Enter the number of minutes to wait after the Options and Protocols have"
^DD(9.7,8,21,2,0)="been disabled, but before the Routines have been installed."
^DD(9.7,8,"DT")="2941103"
^DD(9.7,9,0)="INSTALLED BY^P200'^VA(200,^0;11^Q"
^DD(9.7,9,21,0)="^^1^1^2950213^"
^DD(9.7,9,21,1,0)="This is the person who installed this package."
^DD(9.7,9,"DT")="2950213"
^DD(9.7,11,0)="INSTALL START TIME^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.7,11,21,0)="^^1^1^2940415^"
^DD(9.7,11,21,1,0)="This is the time the install started."
^DD(9.7,11,"DT")="2931117"
^DD(9.7,12,0)="ROUTINE INSTALL TIME^D^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.7,12,21,0)="^^1^1^2940415^"
^DD(9.7,12,21,1,0)="This is the routine install completed time."
^DD(9.7,12,"DT")="2931118"
^DD(9.7,13,0)="PRE-INIT CHECK POINTS^9.713^^INI;0"
^DD(9.7,13,21,0)="^^1^1^2940503^^"
^DD(9.7,13,21,1,0)="This contains all the check points needed for the Pre-Init routine."
^DD(9.7,14,0)="FILE^9.714P^^4;0"
^DD(9.7,14,21,0)="^^1^1^2940415^"
^DD(9.7,14,21,1,0)="This contains the VA Fileman files that were installed by this package."
^DD(9.7,14,"DT")="2931118"
^DD(9.7,15,0)="BUILD COMPONENTS^9.715P^^KRN;0"
^DD(9.7,15,21,0)="^^1^1^2940415^"
^DD(9.7,15,21,1,0)="This contains a list of the components of this package."
^DD(9.7,15,"DT")="2940525"
^DD(9.7,16,0)="POST-INIT CHECK POINTS^9.716^^INIT;0"
^DD(9.7,16,21,0)="^^1^1^2940503^"
^DD(9.7,16,21,1,0)="This contains all the check points needed for the Post-Init routine."
^DD(9.7,17,0)="INSTALL COMPLETE TIME^D^^1;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.7,17,21,0)="^^1^1^2940503^"
^DD(9.7,17,21,1,0)="This is the time the install finished."
^DD(9.7,17,"DT")="2940111"
^DD(9.7,18,0)="GLOBALS^9.718^^GLO;0"
^DD(9.7,18,21,0)="^^2^2^2950109^"
^DD(9.7,18,21,1,0)="This multiple contains a list of globals that were installed by"
^DD(9.7,18,21,2,0)="this package."
^DD(9.7,20,0)="MESSAGES^9.702^^MES;0"
^DD(9.7,20,21,0)="^^1^1^2940503^"
^DD(9.7,20,21,1,0)="This is where all messages about the install will be saved."
^DD(9.7,30,0)="VOLUME SET^9.703A^^VOL;0"
^DD(9.7,30,21,0)="^^2^2^2960919^^^^"
^DD(9.7,30,21,1,0)="This multiple contains the Volumes Sets that will be updated with the new"
^DD(9.7,30,21,2,0)="routines and compiled cross references, print and input templates."
^DD(9.7,30,"DT")="2941017"
^DD(9.7,40,0)="ROUTINES^9.704A^^RTN;0"
^DD(9.7,40,21,0)="^^3^3^2941128^^"
^DD(9.7,40,21,1,0)="This multiple contains a list of all Routines that were installed for"
^DD(9.7,40,21,2,0)="this package.  It also includes routines that were generated during the"
^DD(9.7,40,21,3,0)="install.  The Routines came from calls to DIEZ, DIPZ, and DIKZ."
^DD(9.7,40,"DT")="2941128"
^DD(9.7,50,0)="INSTALL ANSWERS^9.701^^QUES;0"
^DD(9.7,50,21,0)="^^1^1^2940503^"
^DD(9.7,50,21,1,0)="This multiple contains the answers to all the install Questions."
^DD(9.7,51,0)="DISTRIBUTION DATE^D^^1;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.7,51,3)="Loaded from the Build."
^DD(9.7,51,21,0)="^^2^2^2981214^"
^DD(9.7,51,21,1,0)="This field holds the distribution date of the build that is being"
^DD(9.7,51,21,2,0)="installed.  This is not a user input field."
^DD(9.7,51,"DT")="2981214"
^DD(9.7,61,0)="TEST#^NJ3,0^^6;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.7,61,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9.7,61,21,0)="^^1^1^3050609^"
^DD(9.7,61,21,1,0)="This field holds the Test Version Number from the patch module on FORUM."
^DD(9.7,61,"DT")="3050609"
^DD(9.7,62,0)="SEQ#^NJ3,0^^6;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.7,62,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9.7,62,21,0)="^.001^1^1^3050628^^"
^DD(9.7,62,21,1,0)="This field holds the Release Sequence # from the Patch Module on FORUM."
^DD(9.7,62,"DT")="3050609"
^DD(9.7,"B","BUILD COMPONENTS",15)=""
^DD(9.7,"B","DATE LOADED",2)=""
^DD(9.7,"B","DISABLE OPTION DELAY",8)=""
^DD(9.7,"B","DISTRIBUTION DATE",51)=""
^DD(9.7,"B","FILE",14)=""
^DD(9.7,"B","FILE COMMENT",6)=""
^DD(9.7,"B","GLOBALS",18)=""
^DD(9.7,"B","INSTALL ANSWERS",50)=""
^DD(9.7,"B","INSTALL COMPLETE TIME",17)=""
^DD(9.7,"B","INSTALL ORDER",4)=""
^DD(9.7,"B","INSTALL START TIME",11)=""
^DD(9.7,"B","INSTALLED BY",9)=""
^DD(9.7,"B","MESSAGES",20)=""
^DD(9.7,"B","NAME",.01)=""
^DD(9.7,"B","PACKAGE FILE LINK",1)=""
^DD(9.7,"B","POST-INIT CHECK POINTS",16)=""
^DD(9.7,"B","PRE-INIT CHECK POINTS",13)=""
^DD(9.7,"B","QUEUED TASK NUMBER",5)=""
^DD(9.7,"B","REQUIRED TO CONTINUE",6.5)=""
^DD(9.7,"B","ROUTINE INSTALL TIME",12)=""
^DD(9.7,"B","ROUTINES",40)=""
^DD(9.7,"B","SEQ#",62)=""
^DD(9.7,"B","SETNAME",7)=""
^DD(9.7,"B","STARTING PACKAGE",3)=""
^DD(9.7,"B","STATUS",.02)=""
^DD(9.7,"B","TEST#",61)=""
^DD(9.7,"B","VOLUME SET",30)=""
^DD(9.7,"GL",0,1,.01)=""
^DD(9.7,"GL",0,2,1)=""
^DD(9.7,"GL",0,3,2)=""
^DD(9.7,"GL",0,4,3)=""
^DD(9.7,"GL",0,5,4)=""
^DD(9.7,"GL",0,6,5)=""
^DD(9.7,"GL",0,7,6.5)=""
^DD(9.7,"GL",0,8,7)=""
^DD(9.7,"GL",0,9,.02)=""
^DD(9.7,"GL",0,10,8)=""
^DD(9.7,"GL",0,11,9)=""
^DD(9.7,"GL",1,1,11)=""
^DD(9.7,"GL",1,2,12)=""
^DD(9.7,"GL",1,3,17)=""
^DD(9.7,"GL",1,4,51)=""
^DD(9.7,"GL",2,"E1,240",6)=""
^DD(9.7,"GL",4,0,14)=""
^DD(9.7,"GL",6,1,61)=""
^DD(9.7,"GL",6,2,62)=""
^DD(9.7,"GL","GLO",0,18)=""
^DD(9.7,"GL","INI",0,13)=""
^DD(9.7,"GL","INIT",0,16)=""
^DD(9.7,"GL","KRN",0,15)=""
^DD(9.7,"GL","MES",0,20)=""
^DD(9.7,"GL","QUES",0,50)=""
^DD(9.7,"GL","RTN",0,40)=""
^DD(9.7,"GL","VOL",0,30)=""
^DD(9.7,"IX",.01)=""
^DD(9.7,"IX",3)=""
^DD(9.7,"IX",4)=""
^DD(9.7,"RQ",.01)=""
^DD(9.7,"RQ",.02)=""
^DD(9.7,"SB",9.701,50)=""
^DD(9.7,"SB",9.702,20)=""
^DD(9.7,"SB",9.703,30)=""
^DD(9.7,"SB",9.704,40)=""
^DD(9.7,"SB",9.713,13)=""
^DD(9.7,"SB",9.714,14)=""
^DD(9.7,"SB",9.715,15)=""
^DD(9.7,"SB",9.716,16)=""
^DD(9.7,"SB",9.718,18)=""
^DD(9.701,0)="INSTALL ANSWERS SUB-FIELD^^3^4"
^DD(9.701,0,"DT")="2931201"
^DD(9.701,0,"IX","B",9.701,.01)=""
^DD(9.701,0,"NM","INSTALL ANSWERS")=""
^DD(9.701,0,"UP")="9.7"
^DD(9.701,.01,0)="NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(9.701,.01,1,0)="^.1"
^DD(9.701,.01,1,1,0)="9.701^B"
^DD(9.701,.01,1,1,1)="S ^XPD(9.7,DA(1),""QUES"",""B"",$E(X,1,30),DA)="""""
^DD(9.701,.01,1,1,2)="K ^XPD(9.7,DA(1),""QUES"",""B"",$E(X,1,30),DA)"
^DD(9.701,.01,3)="Answer must be 3-30 characters in length."
^DD(9.701,.01,21,0)="^^1^1^2940503^"
^DD(9.701,.01,21,1,0)="This is the subscript to the install question."
^DD(9.701,.01,"DT")="2931122"
^DD(9.701,1,0)="PROMPT^F^^A;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(9.701,1,3)="Answer must be 1-240 characters in length."
^DD(9.701,1,21,0)="^^2^2^2940503^^"
^DD(9.701,1,21,1,0)="This is the DIR(A) variable that was used to prompt the user for the"
^DD(9.701,1,21,2,0)="Install Question."
^DD(9.701,1,"DT")="2931201"
^DD(9.701,2,0)="EXTERNAL ANSWER^F^^B;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(9.701,2,3)="Answer must be 1-200 characters in length."
^DD(9.701,2,21,0)="^^1^1^2940503^^"
^DD(9.701,2,21,1,0)="This is the external format of the Install Question answer."
^DD(9.701,2,"DT")="2931201"
^DD(9.701,3,0)="ANSWER^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(9.701,3,3)="Answer must be 1-200 characters in length."
^DD(9.701,3,21,0)="^^1^1^2940503^"
^DD(9.701,3,21,1,0)="This is the internal format of the Install Question answer."
^DD(9.701,3,"DT")="2931201"
^DD(9.701,"B","ANSWER",3)=""
^DD(9.701,"B","EXTERNAL ANSWER",2)=""
^DD(9.701,"B","NAME",.01)=""
^DD(9.701,"B","PROMPT",1)=""
^DD(9.701,"GL",0,1,.01)=""
^DD(9.701,"GL",1,"E1,200",3)=""
^DD(9.701,"GL","A","E1,240",1)=""
^DD(9.701,"GL","B","E1,200",2)=""
^DD(9.701,"IX",.01)=""
^DD(9.702,0)="MESSAGES SUB-FIELD^^.01^1"
^DD(9.702,0,"DT")="2931129"
^DD(9.702,0,"NM","MESSAGES")=""
^DD(9.702,0,"UP")="9.7"
^DD(9.702,.01,0)="MESSAGES^WL^^0;1^Q"
^DD(9.702,.01,"DT")="2931129"
^DD(9.702,"B","MESSAGES",.01)=""
^DD(9.702,"GL",0,1,.01)=""
^DD(9.703,0)="VOLUME SET SUB-FIELD^^4^5"
^DD(9.703,0,"DT")="2941014"
^DD(9.703,0,"IX","B",9.703,.01)=""
^DD(9.703,0,"NM","VOLUME SET")=""
^DD(9.703,0,"UP")="9.7"
^DD(9.703,.01,0)="VOLUME SET^MFX^^0;1^K:$L(X)>30!($L(X)<3) X D VOLE^XPDET(.X)"
^DD(9.703,.01,1,0)="^.1"
^DD(9.703,.01,1,1,0)="9.703^B"
^DD(9.703,.01,1,1,1)="S ^XPD(9.7,DA(1),""VOL"",""B"",$E(X,1,30),DA)="""""
^DD(9.703,.01,1,1,2)="K ^XPD(9.7,DA(1),""VOL"",""B"",$E(X,1,30),DA)"
^DD(9.703,.01,3)="Enter a Compute Server or Print Server type VOLUME SET"
^DD(9.703,.01,4)="D VOLH^XPDET"
^DD(9.703,.01,21,0)="^^3^3^2960919^^^^"
^DD(9.703,.01,21,1,0)="Enter the name of the VOLUME SET that you want updated when this package is"
^DD(9.703,.01,21,2,0)="installed. This field points to the VOLUME SET file, #14.5. A VOLUME SET"
^DD(9.703,.01,21,3,0)="must have the field SIGNON/PRODUCTION VOLUME SET, #9, set to YES."
^DD(9.703,.01,"DT")="2941017"
^DD(9.703,1,0)="COMPLETED TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.703,1,21,0)="^^1^1^2941014^"
^DD(9.703,1,21,1,0)="This is the time the update to the VOLUME SET was completed. "
^DD(9.703,1,"DT")="2941014"
^DD(9.703,2,0)="START TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.703,2,3)=""
^DD(9.703,2,21,0)="^^1^1^2941014^"
^DD(9.703,2,21,1,0)="This is the time the update to the VOLUME SET was started."
^DD(9.703,2,"DT")="2941014"
^DD(9.703,3,0)="QUEUED TASK NUMBER^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.703,3,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(9.703,3,21,0)="^^1^1^2941014^"
^DD(9.703,3,21,1,0)="This is the Task number for the job that is updating the VOLUME SET."
^DD(9.703,3,"DT")="2941014"
^DD(9.703,4,0)="LAST UPDATE^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(9.703,4,3)="Must be $H format"
^DD(9.703,4,21,0)="^^2^2^2941014^"
^DD(9.703,4,21,1,0)="This is the $H value from the job that is updating the VOLUME SET. It should"
^DD(9.703,4,21,2,0)="be updated every 60 seconds."
^DD(9.703,4,"DT")="2941014"
^DD(9.703,"B","COMPLETED TIME",1)=""
^DD(9.703,"B","LAST UPDATE",4)=""
^DD(9.703,"B","QUEUED TASK NUMBER",3)=""
^DD(9.703,"B","START TIME",2)=""
^DD(9.703,"B","VOLUME SET",.01)=""
^DD(9.703,"GL",0,1,.01)=""
^DD(9.703,"GL",0,2,1)=""
^DD(9.703,"GL",0,3,2)=""
^DD(9.703,"GL",0,4,3)=""
^DD(9.703,"GL",1,1,4)=""
^DD(9.703,"IX",.01)=""
^DD(9.704,0)="ROUTINES SUB-FIELD^^.01^1"
^DD(9.704,0,"DT")="2950314"
^DD(9.704,0,"IX","B",9.704,.01)=""
^DD(9.704,0,"NM","ROUTINES")=""
^DD(9.704,0,"UP")="9.7"
^DD(9.704,.01,0)="ROUTINES^MF^^0;1^K:$L(X)>8!($L(X)<3) X"
^DD(9.704,.01,1,0)="^.1"
^DD(9.704,.01,1,1,0)="9.704^B"
^DD(9.704,.01,1,1,1)="S ^XPD(9.7,DA(1),""RTN"",""B"",$E(X,1,30),DA)="""""
^DD(9.704,.01,1,1,2)="K ^XPD(9.7,DA(1),""RTN"",""B"",$E(X,1,30),DA)"
^DD(9.704,.01,3)="Answer must be 3-8 characters in length."
^DD(9.704,.01,21,0)="^^1^1^2941128^^"
^DD(9.704,.01,21,1,0)="This is the name of a Routine that is part of this Package."
^DD(9.704,.01,"DT")="2941128"
^DD(9.704,"B","ROUTINES",.01)=""
^DD(9.704,"GL",0,1,.01)=""
^DD(9.704,"IX",.01)=""
^DD(9.713,0)="PRE-INIT CHECK POINTS SUB-FIELD^^3^4"
^DD(9.713,0,"DT")="2940710"
^DD(9.713,0,"IX","B",9.713,.01)=""
^DD(9.713,0,"NM","PRE-INIT CHECK POINTS")=""
^DD(9.713,0,"UP")="9.7"
^DD(9.713,.01,0)="PRE-INIT CHECK POINTS^MF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X"
^DD(9.713,.01,1,0)="^.1"
^DD(9.713,.01,1,1,0)="9.713^B"
^DD(9.713,.01,1,1,1)="S ^XPD(9.7,DA(1),""INI"",""B"",$E(X,1,30),DA)="""""
^DD(9.713,.01,1,1,2)="K ^XPD(9.7,DA(1),""INI"",""B"",$E(X,1,30),DA)"
^DD(9.713,.01,3)="Answer must be 3-30 characters in length."
^DD(9.713,.01,21,0)="^^3^3^2931119^"
^DD(9.713,.01,21,1,0)="Enter the name of a Check Point that will be used by the Pre-Init routine."
^DD(9.713,.01,21,2,0)="The Check Point ""COMPLETED"" will be created by the Install process and"
^DD(9.713,.01,21,3,0)="updated when the Pre-Init routine is finished."
^DD(9.713,.01,"DT")="2940708"
^DD(9.713,1,0)="COMPLETED TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.713,1,21,0)="^^1^1^2940415^"
^DD(9.713,1,21,1,0)="This is the time the check point was completed."
^DD(9.713,1,"DT")="2931118"
^DD(9.713,2,0)="CALLBACK^FX^^1;E1,245^K:$L(X)>60!($L(X)<2)!'(X?.1UP.7UN.E) X"
^DD(9.713,2,3)="Enter a [TAG^]ROUTINE"
^DD(9.713,2,9)="@"
^DD(9.713,2,21,0)="^^2^2^2940710^^^"
^DD(9.713,2,21,1,0)="This is a routine that will be run if this Check Point didn't complete"
^DD(9.713,2,21,2,0)="and the install process had to be restarted."
^DD(9.713,2,"DT")="2940710"
^DD(9.713,3,0)="PARAMETERS^F^^2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(9.713,3,3)="Answer must be 1-245 characters in length."
^DD(9.713,3,21,0)="^^1^1^2940503^^"
^DD(9.713,3,21,1,0)="This is optional parameters that may be need during a restart."
^DD(9.713,3,"DT")="2940503"
^DD(9.713,"B","CALLBACK",2)=""
^DD(9.713,"B","COMPLETED TIME",1)=""
^DD(9.713,"B","PARAMETERS",3)=""
^DD(9.713,"B","PRE-INIT CHECK POINTS",.01)=""
^DD(9.713,"GL",0,1,.01)=""
^DD(9.713,"GL",0,2,1)=""
^DD(9.713,"GL",1,"E1,245",2)=""
^DD(9.713,"GL",2,"E1,245",3)=""
^DD(9.713,"IX",.01)=""
^DD(9.714,0)="FILE SUB-FIELD^^2^3"
^DD(9.714,0,"DT")="2931118"
^DD(9.714,0,"IX","B",9.714,.01)=""
^DD(9.714,0,"NM","FILE")=""
^DD(9.714,0,"UP")="9.7"
^DD(9.714,.01,0)="FILE^MP1'X^DIC(^0;1^S DINUM=+X"
^DD(9.714,.01,1,0)="^.1"
^DD(9.714,.01,1,1,0)="9.714^B"
^DD(9.714,.01,1,1,1)="S ^XPD(9.7,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(9.714,.01,1,1,2)="K ^XPD(9.7,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(9.714,.01,21,0)="^^1^1^2940415^"
^DD(9.714,.01,21,1,0)="VA Fileman file that was installed by this package."
^DD(9.714,.01,"DT")="2940215"
^DD(9.714,1,0)="DATA DICTIONARY TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.714,1,21,0)="^^1^1^2940503^^"
^DD(9.714,1,21,1,0)="The time the Data Dictionary was installed at this site."
^DD(9.714,1,"DT")="2931118"
^DD(9.714,2,0)="DATA TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.714,2,3)=""
^DD(9.714,2,21,0)="^^1^1^2940503^^"
^DD(9.714,2,21,1,0)="The time the Data was installed at this site."
^DD(9.714,2,"DT")="2931118"
^DD(9.714,"B","DATA DICTIONARY TIME",1)=""
^DD(9.714,"B","DATA TIME",2)=""
^DD(9.714,"B","FILE",.01)=""
^DD(9.714,"GL",0,1,.01)=""
^DD(9.714,"GL",0,2,1)=""
^DD(9.714,"GL",0,3,2)=""
^DD(9.714,"IX",.01)=""
^DD(9.715,0)="BUILD COMPONENTS SUB-FIELD^^2^3"
^DD(9.715,0,"DT")="2941212"
^DD(9.715,0,"IX","AC",9.715,2)=""
^DD(9.715,0,"IX","B",9.715,.01)=""
^DD(9.715,0,"NM","BUILD COMPONENTS")=""
^DD(9.715,0,"UP")="9.7"
^DD(9.715,.01,0)="BUILD COMPONENT^MP1'X^DIC(^0;1^S DINUM=+X"
^DD(9.715,.01,1,0)="^.1"
^DD(9.715,.01,1,1,0)="9.715^B"
^DD(9.715,.01,1,1,1)="S ^XPD(9.7,DA(1),""KRN"",""B"",$E(X,1,30),DA)="""""
^DD(9.715,.01,1,1,2)="K ^XPD(9.7,DA(1),""KRN"",""B"",$E(X,1,30),DA)"
^DD(9.715,.01,21,0)="^^1^1^2940503^"
^DD(9.715,.01,21,1,0)="The name of a VA Fileman file that is a component of this package."
^DD(9.715,.01,"DT")="2940525"
^DD(9.715,1,0)="DATA TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.715,1,21,0)="^^1^1^2940503^"
^DD(9.715,1,21,1,0)="This is the time the package component was installed."
^DD(9.715,1,"DT")="2931118"
^DD(9.715,2,0)="INSTALL ORDER^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.715,2,1,0)="^.1"
^DD(9.715,2,1,1,0)="9.715^AC"
^DD(9.715,2,1,1,1)="S ^XPD(9.7,DA(1),""KRN"",""AC"",$E(X,1,30),DA)="""""
^DD(9.715,2,1,1,2)="K ^XPD(9.7,DA(1),""KRN"",""AC"",$E(X,1,30),DA)"
^DD(9.715,2,1,1,"%D",0)="^^2^2^2950103^"
^DD(9.715,2,1,1,"%D",1,0)="This x-ref is used in the Install File Print option. It is used to print the"
^DD(9.715,2,1,1,"%D",2,0)="components in the order in which they were installed."
^DD(9.715,2,1,1,"DT")="2950103"
^DD(9.715,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9.715,2,21,0)="^^1^1^2941212^"
^DD(9.715,2,21,1,0)="This is the order the Build Components were installed."
^DD(9.715,2,"DT")="2950103"
^DD(9.715,"B","BUILD COMPONENT",.01)=""
^DD(9.715,"B","DATA TIME",1)=""
^DD(9.715,"B","INSTALL ORDER",2)=""
^DD(9.715,"GL",0,1,.01)=""
^DD(9.715,"GL",0,2,1)=""
^DD(9.715,"GL",0,3,2)=""
^DD(9.715,"IX",.01)=""
^DD(9.715,"IX",2)=""
^DD(9.716,0)="POST-INIT CHECK POINTS SUB-FIELD^^3^4"
^DD(9.716,0,"DT")="2940710"
^DD(9.716,0,"IX","B",9.716,.01)=""
^DD(9.716,0,"NM","POST-INIT CHECK POINTS")=""
^DD(9.716,0,"UP")="9.7"
^DD(9.716,.01,0)="POST-INIT CHECK POINTS^MF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X"
^DD(9.716,.01,1,0)="^.1"
^DD(9.716,.01,1,1,0)="9.716^B"
^DD(9.716,.01,1,1,1)="S ^XPD(9.7,DA(1),""INIT"",""B"",$E(X,1,30),DA)="""""
^DD(9.716,.01,1,1,2)="K ^XPD(9.7,DA(1),""INIT"",""B"",$E(X,1,30),DA)"
^DD(9.716,.01,3)="Answer must be 3-30 characters in length."
^DD(9.716,.01,21,0)="^^3^3^2931119^^"
^DD(9.716,.01,21,1,0)="Enter the name of a Check Point that will be used by the Post-Init routine."
^DD(9.716,.01,21,2,0)="The Check Point ""COMPLETED"" will be created by the Install process and"
^DD(9.716,.01,21,3,0)="updated when the Post-Init routine is finished."
^DD(9.716,.01,"DT")="2940708"
^DD(9.716,1,0)="COMPLETED TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.716,1,21,0)="^^1^1^2940503^^"
^DD(9.716,1,21,1,0)="This is the time the check point was completed."
^DD(9.716,1,"DT")="2931118"
^DD(9.716,2,0)="CALLBACK^FX^^1;E1,245^K:$L(X)>60!($L(X)<2)!'(X?.1UP.7UN.E) X"
^DD(9.716,2,3)="Enter a [TAG^]ROUTINE"
^DD(9.716,2,9)="@"
^DD(9.716,2,21,0)="^^2^2^2940710^^"
^DD(9.716,2,21,1,0)="This is a routine that will be run if this Check Point didn't complete"
^DD(9.716,2,21,2,0)="and the install process had to be restarted."
^DD(9.716,2,"DT")="2940710"
^DD(9.716,3,0)="PARAMETERS^F^^2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(9.716,3,3)="Answer must be 1-245 characters in length."
^DD(9.716,3,21,0)="^^1^1^2940503^"
^DD(9.716,3,21,1,0)="This is optional parameters that may be need during a restart."
^DD(9.716,3,"DT")="2940503"
^DD(9.716,"B","CALLBACK",2)=""
^DD(9.716,"B","COMPLETED TIME",1)=""
^DD(9.716,"B","PARAMETERS",3)=""
^DD(9.716,"B","POST-INIT CHECK POINTS",.01)=""
^DD(9.716,"GL",0,1,.01)=""
^DD(9.716,"GL",0,2,1)=""
^DD(9.716,"GL",1,"E1,245",2)=""
^DD(9.716,"GL",2,"E1,245",3)=""
^DD(9.716,"IX",.01)=""
^DD(9.718,0)="GLOBALS SUB-FIELD^^1^2"
^DD(9.718,0,"DT")="2950109"
^DD(9.718,0,"IX","B",9.718,.01)=""
^DD(9.718,0,"NM","GLOBALS")=""
^DD(9.718,0,"UP")="9.7"
^DD(9.718,.01,0)="GLOBALS^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(9.718,.01,1,0)="^.1"
^DD(9.718,.01,1,1,0)="9.718^B"
^DD(9.718,.01,1,1,1)="S ^XPD(9.7,DA(1),""GLO"",""B"",$E(X,1,30),DA)="""""
^DD(9.718,.01,1,1,2)="K ^XPD(9.7,DA(1),""GLO"",""B"",$E(X,1,30),DA)"
^DD(9.718,.01,3)="Answer must be 2-30 characters in length."
^DD(9.718,.01,21,0)="^^2^2^2950109^^"
^DD(9.718,.01,21,1,0)="The name of a Global or Global root that was installed by this"
^DD(9.718,.01,21,2,0)="package."
^DD(9.718,.01,"DT")="2950109"
^DD(9.718,1,0)="COMPLETED TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9.718,1,21,0)="^^1^1^2950109^"
^DD(9.718,1,21,1,0)="This is the time the Global was installed."
^DD(9.718,1,"DT")="2950109"
^DD(9.718,"B","COMPLETED TIME",1)=""
^DD(9.718,"B","GLOBALS",.01)=""
^DD(9.718,"GL",0,1,.01)=""
^DD(9.718,"GL",0,2,1)=""
^DD(9.718,"IX",.01)=""
^DD(9.8,0)="FIELD^NL^6000^25"
^DD(9.8,0,"DDA")="N"
^DD(9.8,0,"DT")="2940822"
^DD(9.8,0,"IX","B",9.8,.01)=""
^DD(9.8,0,"NM","ROUTINE")=""
^DD(9.8,0,"VR")="8.0"
^DD(9.8,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(9.8,.01,0)="NAME^RX^^0;1^D CHKNAME^XQ5 K:$L(X)>8!($L(X)<1)!'(X?.UN!(X?1""%"".UN)) X"
^DD(9.8,.01,1,0)="^.1"
^DD(9.8,.01,1,1,0)="9.8^B"
^DD(9.8,.01,1,1,1)="S ^DIC(9.8,""B"",X,DA)="""""
^DD(9.8,.01,1,1,2)="K ^DIC(9.8,""B"",X,DA)"
^DD(9.8,.01,3)="Please enter the NAME (1-8 characters), e.g. DIC, XM, ..."
^DD(9.8,.01,21,0)="^^1^1^2851007^^^^"
^DD(9.8,.01,21,1,0)="The name of the PACKAGE, ROUTINE, or PROGRAM being documented."
^DD(9.8,.01,"DT")="2851003"
^DD(9.8,1,0)="TYPE^S^PK:PACKAGE;R:ROUTINE;^0;2^Q"
^DD(9.8,1,1,0)="^.1^^0"
^DD(9.8,1,21,0)="^^2^2^2940822^"
^DD(9.8,1,21,1,0)="This defines whether an entire PACKAGE of programs is being documented,"
^DD(9.8,1,21,2,0)="or a single pecific ROUTINE."
^DD(9.8,1,"DT")="2940822"
^DD(9.8,1.2,0)="SIZE (BYTES)^NJ5,0^^0;3^K:+X'=X!(X>16000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9.8,1.2,3)="This field is filled in by %INDEX (range 0-16000)"
^DD(9.8,1.2,21,0)="^^2^2^2890125^"
^DD(9.8,1.2,21,1,0)="When %INDEX is run, the size of the routine is calculated and entered"
^DD(9.8,1.2,21,2,0)="into this field."
^DD(9.8,1.2,"DT")="2860204"
^DD(9.8,1.4,0)="DATE OF %INDEX RUN^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:3000000<X!(2000000>X) X"
^DD(9.8,1.4,3)="This field is set by %INDEX (Enter a date)"
^DD(9.8,1.4,21,0)="^^1^1^2890125^"
^DD(9.8,1.4,21,1,0)="This field holds the date when %INDEX was run."
^DD(9.8,1.4,"DT")="2860204"
^DD(9.8,1.5,0)="RSUM VALUE^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9.8,1.5,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(9.8,1.5,21,0)="^^2^2^2940822^"
^DD(9.8,1.5,21,1,0)="This field is used by the Routine monitor program to store a check"
^DD(9.8,1.5,21,2,0)="sum of the routine."
^DD(9.8,1.5,"DT")="2940822"
^DD(9.8,1.6,0)="RSUM DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.8,1.6,21,0)="^^1^1^2940822^"
^DD(9.8,1.6,21,1,0)="This field holds the date of the last change in the RSUM value."
^DD(9.8,1.6,"DT")="2940822"
^DD(9.8,2,0)="DESCRIPTION^9.81LA^^1;0"
^DD(9.8,2,21,0)="^^2^2^2851007^"
^DD(9.8,2,21,1,0)="This is a description of the PACKAGE, ROUTINE, or PROGRAM being"
^DD(9.8,2,21,2,0)="documented."
^DD(9.8,2.1,0)="BRIEF DESCRIPTION^9.808^^2;0"
^DD(9.8,2.1,21,0)="^^1^1^2950316^"
^DD(9.8,2.1,21,1,0)="This field holds a short description of the routine."
^DD(9.8,4,0)="PARAMETERS (IN/OUT)^9.83A^^3;0"
^DD(9.8,4,21,0)="^^1^1^2860204^^^"
^DD(9.8,4,21,1,0)="Any essential or useful parameters are documented here."
^DD(9.8,5,0)="TAG^9.801^^T;0"
^DD(9.8,5,21,0)="^^2^2^2851009^^"
^DD(9.8,5,21,1,0)="Any important TAGs or ENTRY POINTs in the program are documented"
^DD(9.8,5,21,2,0)="here."
^DD(9.8,6,0)="CHECKSUM REPORT^S^0:Local - don't report;1:Local - report;2:National - report;3:National - Deleted or NOT tracked;^6;1^Q"
^DD(9.8,6,21,0)="^^4^4^3061020^"
^DD(9.8,6,21,1,0)="Entries flagged with ""National - report"" should not be changed, with ""FOR "
^DD(9.8,6,21,2,0)="National - Deleted or NOT tracked"" for routines that do not exist in the "
^DD(9.8,6,21,3,0)="system. Sites may determine if they want reports on checksum differences"
^DD(9.8,6,21,4,0)="for local routines by selecting ""Local - report""."
^DD(9.8,6,"DT")="3061017"
^DD(9.8,6.1,0)="LOCALLY MODIFIED^S^1:YES;^6;2^Q"
^DD(9.8,6.1,3)="Enter ?? to read field description."
^DD(9.8,6.1,21,0)="^^4^4^3050824^"
^DD(9.8,6.1,21,1,0)="This field was introduced by the VISTA Auto-patch Utility v2.0 for the "
^DD(9.8,6.1,21,2,0)="purpose of not installing patches that contain routines with local mods. "
^DD(9.8,6.1,21,3,0)="If the value is set to YES for a given routine VAPU will not install a "
^DD(9.8,6.1,21,4,0)="patch or any of the routines contained in the patch."
^DD(9.8,6.1,"DT")="3050824"
^DD(9.8,6.2,0)="DELETED BY PATCH^F^^6;3^K:$L(X)>15!($L(X)<2) X"
^DD(9.8,6.2,3)="Answer must be 2-15 characters in length."
^DD(9.8,6.2,21,0)="^^3^3^3050921^"
^DD(9.8,6.2,21,1,0)="This field is set by KIDS during an Install when the routine is sent"
^DD(9.8,6.2,21,2,0)="with the 'delete at site'."
^DD(9.8,6.2,21,3,0)="It holds the patch name."
^DD(9.8,6.2,"DT")="3050921"
^DD(9.8,7.1,0)="CHECKSUM DATE^D^^4;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.8,7.1,21,0)="^^1^1^2961230^"
^DD(9.8,7.1,21,1,0)="This field holds the date the Checksum was last saved."
^DD(9.8,7.1,"DT")="2961230"
^DD(9.8,7.2,0)="CHECKSUM VALUE^F^^4;2^K:$L(X)>15!($L(X)<2)!'(X?1A1.N) X"
^DD(9.8,7.2,3)="Answer must be 1 Alpha 1-14 Numerics in length."
^DD(9.8,7.2,21,0)="^^5^5^3050922^"
^DD(9.8,7.2,21,1,0)="This is the saved Checksum value."
^DD(9.8,7.2,21,2,0)="The letter at the front tells us what checksum algorithm was used."
^DD(9.8,7.2,21,3,0)="It is loaded from the KIDS build on FORUM and sent to the sites."
^DD(9.8,7.2,21,4,0)="The only application that should load date into this field are on FORUM"
^DD(9.8,7.2,21,5,0)="and the Master File Update routines in the field."
^DD(9.8,7.2,"DT")="3050922"
^DD(9.8,7.3,0)="PATCH LIST AT CHECKSUM TIME^F^^4;3^K:$L(X)>200!($L(X)<2) X"
^DD(9.8,7.3,3)="Answer must be 2-200 characters in length."
^DD(9.8,7.3,21,0)="^^2^2^3021217^"
^DD(9.8,7.3,21,1,0)="This field holds the patch list from the second line of the routine at the"
^DD(9.8,7.3,21,2,0)="time the checksum was updated by the XTRUTL routine."
^DD(9.8,7.3,21,3,0)="in new code on the fly."
^DD(9.8,7.3,"DT")="3021217"
^DD(9.8,7.4,0)="KIDS INSTALL DATE^D^^4.1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.8,7.4,3)=""
^DD(9.8,7.4,21,0)="^^3^3^3021217^"
^DD(9.8,7.4,21,1,0)="This field will be updated by KIDS when a package is installed. "
^DD(9.8,7.4,21,2,0)=" "
^DD(9.8,7.4,21,3,0)=" "
^DD(9.8,7.4,"DT")="3021217"
^DD(9.8,8,0)="PATCH^9.818^^8;0"
^DD(9.8,9,0)="DEV PATCH^9.819A^^9;0"
^DD(9.8,19,0)="ROUTINE INVOKED^9.803A^^19;0"
^DD(9.8,19,21,0)="^^1^1^2851009^^^"
^DD(9.8,19,21,1,0)="The names of the routines which this routine uses."
^DD(9.8,20,0)="INVOKED BY^9.804^^20;0"
^DD(9.8,20,21,0)="^^1^1^2890125^^^^"
^DD(9.8,20,21,1,0)="The names of the routines which use this routine."
^DD(9.8,21,0)="VARIABLES^9.805^^21;0"
^DD(9.8,21,21,0)="^^1^1^2890125^"
^DD(9.8,21,21,1,0)="This subfile holds a list of the variables used in the routine."
^DD(9.8,22,0)="GLOBALS^9.806^^22;0"
^DD(9.8,22,21,0)="^^1^1^2890125^"
^DD(9.8,22,21,1,0)="This subfile lists the globals that are referenced in this routine."
^DD(9.8,23,0)="EDIT HISTORY^9.823DA^^23;0"
^DD(9.8,23,21,0)="^^2^2^2890125^"
^DD(9.8,23,21,1,0)="This subfile provides an edit history of this routine according to"
^DD(9.8,23,21,2,0)="the date that the %Z editor was used to modify the routine."
^DD(9.8,6000,0)="SIZE (BYTES)^CJ8,0^^ ; ^S Y=0,X=$P(^DIC(9.8,D0,0),""^"",1) X:$D(^%ZOSF(""SIZE""))&$D(^(""TEST"")) ^(""TEST""),""ZL @X X ^%ZOSF(""""SIZE"""")"":$T S:Y X=Y"
^DD(9.8,6000,9)="^"
^DD(9.8,6000,9.01)=""
^DD(9.8,6000,9.1)="S Y=0,X=$P(^DIC(9.8,D0,0),""^"",1) X:$D(^%ZOSF(""SIZE""))&$D(^(""TEST"")) ^(""TEST""),""ZL @X X ^%ZOSF(""""SIZE"""")"":$T S:Y X=Y"
^DD(9.8,6000,21,0)="^^2^2^2890125^^^^"
^DD(9.8,6000,21,1,0)="This field may be used to calculate the size of the routine as an"
^DD(9.8,6000,21,2,0)="alternative to the %INDEX calculation stored in Field 1.2 of this file."
^DD(9.8,6000,"DT")="2850204"
^DD(9.8,"B","BRIEF DESCRIPTION",2.1)=""
^DD(9.8,"B","CHECKSUM DATE",7.1)=""
^DD(9.8,"B","CHECKSUM REPORT",6)=""
^DD(9.8,"B","CHECKSUM VALUE",7.2)=""
^DD(9.8,"B","DATE OF %INDEX RUN",1.4)=""
^DD(9.8,"B","DELETED BY PATCH",6.2)=""
^DD(9.8,"B","DESCRIPTION",2)=""
^DD(9.8,"B","DEV PATCH",9)=""
^DD(9.8,"B","EDIT HISTORY",23)=""
^DD(9.8,"B","GLOBALS",22)=""
^DD(9.8,"B","INVOKED BY",20)=""
^DD(9.8,"B","KIDS INSTALL DATE",7.4)=""
^DD(9.8,"B","LOCALLY MODIFIED",6.1)=""
^DD(9.8,"B","NAME",.01)=""
^DD(9.8,"B","PARAMETERS (IN/OUT)",4)=""
^DD(9.8,"B","PATCH",8)=""
^DD(9.8,"B","PATCH LIST AT CHECKSUM TIME",7.3)=""
^DD(9.8,"B","ROUTINE INVOKED",19)=""
^DD(9.8,"B","RSUM DATE",1.6)=""
^DD(9.8,"B","RSUM VALUE",1.5)=""
^DD(9.8,"B","SIZE (BYTES)",1.2)=""
^DD(9.8,"B","SIZE (BYTES)",6000)=""
^DD(9.8,"B","TAG",5)=""
^DD(9.8,"B","TYPE",1)=""
^DD(9.8,"B","VARIABLES",21)=""
^DD(9.8,"GL",0,1,.01)=""
^DD(9.8,"GL",0,2,1)=""
^DD(9.8,"GL",0,3,1.2)=""
^DD(9.8,"GL",0,4,1.4)=""
^DD(9.8,"GL",0,5,1.5)=""
^DD(9.8,"GL",0,6,1.6)=""
^DD(9.8,"GL",1,0,2)=""
^DD(9.8,"GL",2,0,2.1)=""
^DD(9.8,"GL",3,0,4)=""
^DD(9.8,"GL",4,1,7.1)=""
^DD(9.8,"GL",4,2,7.2)=""
^DD(9.8,"GL",4,3,7.3)=""
^DD(9.8,"GL",4.1,1,7.4)=""
^DD(9.8,"GL",6,1,6)=""
^DD(9.8,"GL",6,2,6.1)=""
^DD(9.8,"GL",6,3,6.2)=""
^DD(9.8,"GL",8,0,8)=""
^DD(9.8,"GL",9,0,9)=""
^DD(9.8,"GL",19,0,19)=""
^DD(9.8,"GL",20,0,20)=""
^DD(9.8,"GL",21,0,21)=""
^DD(9.8,"GL",22,0,22)=""
^DD(9.8,"GL",23,0,23)=""
^DD(9.8,"GL","T",0,5)=""
^DD(9.8,"IX",.01)=""
^DD(9.8,"RQ",.01)=""
^DD(9.8,"SB",9.801,5)=""
^DD(9.8,"SB",9.803,19)=""
^DD(9.8,"SB",9.804,20)=""
^DD(9.8,"SB",9.805,21)=""
^DD(9.8,"SB",9.806,22)=""
^DD(9.8,"SB",9.808,2.1)=""
^DD(9.8,"SB",9.81,2)=""
^DD(9.8,"SB",9.818,8)=""
^DD(9.8,"SB",9.819,9)=""
^DD(9.8,"SB",9.823,23)=""
^DD(9.8,"SB",9.83,4)=""
^DD(9.801,0)="TAG SUB-FIELD^NL^3^4"
^DD(9.801,0,"IX","B",9.801,.01)=""
^DD(9.801,0,"NM","TAG")=""
^DD(9.801,0,"UP")="9.8"
^DD(9.801,.01,0)="TAG^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<1) X"
^DD(9.801,.01,1,0)="^.1"
^DD(9.801,.01,1,1,0)="9.801^B"
^DD(9.801,.01,1,1,1)="S ^DIC(9.8,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(9.801,.01,1,1,2)="K ^DIC(9.8,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(9.801,.01,3)="Please enter the name of a line in the program (1-11 characters)."
^DD(9.801,.01,21,0)="^^2^2^2851009^^^"
^DD(9.801,.01,21,1,0)="The name of an important Line Label (""TAG"") or Entry Point in"
^DD(9.801,.01,21,2,0)="this routine."
^DD(9.801,.01,"DT")="2860204"
^DD(9.801,1,0)="EXPLANATION^9.802^^1;0"
^DD(9.801,1,21,0)="^^2^2^2851007^"
^DD(9.801,1,21,1,0)="This is a complete and detailed description of what this line or"
^DD(9.801,1,21,2,0)="part of the program does."
^DD(9.801,2,0)="SUPPORTED ENTRY POINT^S^y:YES;n:NO;^0;2^Q"
^DD(9.801,2,"DT")="2890221"
^DD(9.801,3,0)="FOUND BY %INDEX^S^y:YES;n:NO;^0;3^Q"
^DD(9.801,3,3)="This field set by %INDEX"
^DD(9.801,3,21,0)="^^1^1^2890125^"
^DD(9.801,3,21,1,0)="This field is set to 'YES' if %INDEX has located the tag."
^DD(9.801,3,"DT")="2860204"
^DD(9.801,"B","EXPLANATION",1)=""
^DD(9.801,"B","FOUND BY %INDEX",3)=""
^DD(9.801,"B","SUPPORTED ENTRY POINT",2)=""
^DD(9.801,"B","TAG",.01)=""
^DD(9.801,"GL",0,1,.01)=""
^DD(9.801,"GL",0,2,2)=""
^DD(9.801,"GL",0,3,3)=""
^DD(9.801,"GL",1,0,1)=""
^DD(9.801,"IX",.01)=""
^DD(9.801,"SB",9.802,1)=""
^DD(9.802,0)="EXPLANATION SUB-FIELD^NL^.01^1"
^DD(9.802,0,"NM","EXPLANATION")=""
^DD(9.802,0,"UP")="9.801"
^DD(9.802,.01,0)="EXPLANATION^W^^0;1^Q"
^DD(9.802,.01,21,0)="^^1^1^2851007^^^"
^DD(9.802,.01,21,1,0)="Text describing what this line of code does."
^DD(9.802,.01,"DT")="2840815"
^DD(9.802,"B","EXPLANATION",.01)=""
^DD(9.802,"GL",0,1,.01)=""
^DD(9.803,0)="ROUTINE INVOKED SUB-FIELD^NL^3^2"
^DD(9.803,0,"IX","B",9.803,.01)=""
^DD(9.803,0,"NM","ROUTINE INVOKED")=""
^DD(9.803,0,"UP")="9.8"
^DD(9.803,.01,0)="ROUTINE INVOKED^MFO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(9.803,.01,1,0)="^.1"
^DD(9.803,.01,1,1,0)="9.803^B"
^DD(9.803,.01,1,1,1)="S ^DIC(9.8,DA(1),19,""B"",$E(X,1,30),DA)="""""
^DD(9.803,.01,1,1,2)="K ^DIC(9.8,DA(1),19,""B"",$E(X,1,30),DA)"
^DD(9.803,.01,2)="S Y(0)=Y S Y=$P(Y,"" "",2)_""^""_$P(Y,"" "",1)"
^DD(9.803,.01,2.1)="S Y=$P(Y,"" "",2)_""^""_$P(Y,"" "",1)"
^DD(9.803,.01,3)="Please enter the name of the routine this program invokes (1-20 characters)."
^DD(9.803,.01,21,0)="^^1^1^2851009^^^"
^DD(9.803,.01,21,1,0)="The name of a routine which this routine uses."
^DD(9.803,.01,"DT")="2860204"
^DD(9.803,3,0)="FOUND BY %INDEX^S^y:YES;n:NO;^0;3^Q"
^DD(9.803,3,3)="This field set by %INDEX"
^DD(9.803,3,21,0)="^^1^1^2890125^"
^DD(9.803,3,21,1,0)="This field is set to 'YES' if the routine invoked is found by %INDEX."
^DD(9.803,3,"DT")="2860204"
^DD(9.803,"B","FOUND BY %INDEX",3)=""
^DD(9.803,"B","ROUTINE INVOKED",.01)=""
^DD(9.803,"GL",0,1,.01)=""
^DD(9.803,"GL",0,3,3)=""
^DD(9.803,"IX",.01)=""
^DD(9.804,0)="INVOKED BY SUB-FIELD^NL^3^2"
^DD(9.804,0,"IX","B",9.804,.01)=""
^DD(9.804,0,"NM","INVOKED BY")=""
^DD(9.804,0,"UP")="9.8"
^DD(9.804,.01,0)="INVOKED BY^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1)!'(X?1""%"".UN!(X?.UN)) X"
^DD(9.804,.01,1,0)="^.1"
^DD(9.804,.01,1,1,0)="9.804^B"
^DD(9.804,.01,1,1,1)="S ^DIC(9.8,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(9.804,.01,1,1,2)="K ^DIC(9.8,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(9.804,.01,3)="Please enter the name of a routine which invokes this one (1-20 characters)."
^DD(9.804,.01,21,0)="^^2^2^2851009^^^^"
^DD(9.804,.01,21,1,0)="The name of a routine which uses this routine."
^DD(9.804,.01,21,2,0)="This is the name of the routine which invokes this one."
^DD(9.804,.01,"DT")="2860204"
^DD(9.804,3,0)="FOUND BY %INDEX^S^y:YES;n:NO;^0;3^Q"
^DD(9.804,3,3)="This field set by %INDEX."
^DD(9.804,3,21,0)="^^1^1^2890125^"
^DD(9.804,3,21,1,0)="This field is set to 'YES' if %INDEX finds the invoked-by routine."
^DD(9.804,3,"DT")="2860204"
^DD(9.804,"B","FOUND BY %INDEX",3)=""
^DD(9.804,"B","INVOKED BY",.01)=""
^DD(9.804,"GL",0,1,.01)=""
^DD(9.804,"GL",0,3,3)=""
^DD(9.804,"IX",.01)=""
^DD(9.805,0)="VARIABLES SUB-FIELD^NL^3^3"
^DD(9.805,0,"IX","B",9.805,.01)=""
^DD(9.805,0,"NM","VARIABLES")=""
^DD(9.805,0,"UP")="9.8"
^DD(9.805,.01,0)="VARIABLES^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(9.805,.01,1,0)="^.1"
^DD(9.805,.01,1,1,0)="9.805^B"
^DD(9.805,.01,1,1,1)="S ^DIC(9.8,DA(1),21,""B"",$E(X,1,30),DA)="""""
^DD(9.805,.01,1,1,2)="K ^DIC(9.8,DA(1),21,""B"",$E(X,1,30),DA)"
^DD(9.805,.01,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(9.805,.01,21,0)="^^1^1^2890125^"
^DD(9.805,.01,21,1,0)="This field holds the name of a variable used in the routine."
^DD(9.805,.01,"DT")="2860205"
^DD(9.805,2,0)="CHANGED OR KILLED^S^*:CHANGED;!:KILLED;*!:CHANGED and KILLED;^0;2^Q"
^DD(9.805,2,21,0)="^^2^2^2890125^"
^DD(9.805,2,21,1,0)="This field indicates whether the variable is changed and/or killed"
^DD(9.805,2,21,2,0)="within the routine."
^DD(9.805,2,"DT")="2860228"
^DD(9.805,3,0)="FOUND BY %INDEX^S^y:YES;n:NO;^0;3^Q"
^DD(9.805,3,21,0)="^^1^1^2890125^"
^DD(9.805,3,21,1,0)="This field is set to 'YES' if %INDEX finds this variable."
^DD(9.805,3,"DT")="2860205"
^DD(9.805,"B","CHANGED OR KILLED",2)=""
^DD(9.805,"B","FOUND BY %INDEX",3)=""
^DD(9.805,"B","VARIABLES",.01)=""
^DD(9.805,"GL",0,1,.01)=""
^DD(9.805,"GL",0,2,2)=""
^DD(9.805,"GL",0,3,3)=""
^DD(9.805,"IX",.01)=""
^DD(9.806,0)="GLOBALS SUB-FIELD^NL^3^3"
^DD(9.806,0,"IX","B",9.806,.01)=""
^DD(9.806,0,"NM","GLOBALS")=""
^DD(9.806,0,"UP")="9.8"
^DD(9.806,.01,0)="GLOBALS^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1)!'((X?1U.UN.""("".E)!(X?1""%"".UN.""("".E)) X"
^DD(9.806,.01,1,0)="^.1"
^DD(9.806,.01,1,1,0)="9.806^B"
^DD(9.806,.01,1,1,1)="S ^DIC(9.8,DA(1),22,""B"",$E(X,1,30),DA)="""""
^DD(9.806,.01,1,1,2)="K ^DIC(9.8,DA(1),22,""B"",$E(X,1,30),DA)"
^DD(9.806,.01,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(9.806,.01,21,0)="^^1^1^2890125^"
^DD(9.806,.01,21,1,0)="This field holds the name of a global which is referenced in this routine."
^DD(9.806,.01,"DT")="2880126"
^DD(9.806,1,0)="EXPLANATION^9.807^^1;0"
^DD(9.806,1,21,0)="^^1^1^2890125^"
^DD(9.806,1,21,1,0)="This field may be used to describe the global."
^DD(9.806,3,0)="FOUND BY %INDEX^S^y:YES;n:NO;^0;3^Q"
^DD(9.806,3,21,0)="^^1^1^2890125^"
^DD(9.806,3,21,1,0)="This field is set to 'YES' if %INDEX finds this global reference."
^DD(9.806,3,"DT")="2860205"
^DD(9.806,"B","EXPLANATION",1)=""
^DD(9.806,"B","FOUND BY %INDEX",3)=""
^DD(9.806,"B","GLOBALS",.01)=""
^DD(9.806,"GL",0,1,.01)=""
^DD(9.806,"GL",0,3,3)=""
^DD(9.806,"GL",1,0,1)=""
^DD(9.806,"IX",.01)=""
^DD(9.806,"SB",9.807,1)=""
^DD(9.807,0)="EXPLANATION SUB-FIELD^NL^.01^1"
^DD(9.807,0,"NM","EXPLANATION")=""
^DD(9.807,0,"UP")="9.806"
^DD(9.807,.01,0)="EXPLANATION^W^^0;1^Q"
^DD(9.807,.01,"DT")="2860206"
^DD(9.807,"B","EXPLANATION",.01)=""
^DD(9.807,"GL",0,1,.01)=""
^DD(9.808,0)="BRIEF DESCRIPTION SUB-FIELD^^.01^1"
^DD(9.808,0,"DT")="2930726"
^DD(9.808,0,"NM","BRIEF DESCRIPTION")=""
^DD(9.808,0,"UP")="9.8"
^DD(9.808,.01,0)="BRIEF DESCRIPTION^W^^0;1^Q"
^DD(9.808,.01,3)="This is a brief description for the VA tech manual."
^DD(9.808,.01,"DT")="2930726"
^DD(9.808,"B","BRIEF DESCRIPTION",.01)=""
^DD(9.808,"GL",0,1,.01)=""
^DD(9.81,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(9.81,0,"NM","DESCRIPTION")=""
^DD(9.81,0,"UP")="9.8"
^DD(9.81,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(9.81,.01,3)=""
^DD(9.81,.01,21,0)="^^2^2^2851007^^^^"
^DD(9.81,.01,21,1,0)="This is a description of the PACKAGE, ROUTINE, or PROGRAM being"
^DD(9.81,.01,21,2,0)="documented."
^DD(9.81,.01,"DT")="2840525"
^DD(9.81,"B","DESCRIPTION",.01)=""
^DD(9.81,"GL",0,1,.01)=""
^DD(9.818,0)="PATCH SUB-FIELD^^3^3"
^DD(9.818,0,"DT")="3060509"
^DD(9.818,0,"IX","B",9.818,.01)=""
^DD(9.818,0,"NM","PATCH")=""
^DD(9.818,0,"UP")="9.8"
^DD(9.818,.01,0)="PATCH^F^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(9.818,.01,1,0)="^.1"
^DD(9.818,.01,1,1,0)="9.818^B"
^DD(9.818,.01,1,1,1)="S ^DIC(9.8,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(9.818,.01,1,1,2)="K ^DIC(9.8,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(9.818,.01,3)="Answer must be 2-20 characters in length"
^DD(9.818,.01,21,0)="^^1^1^3060905^"
^DD(9.818,.01,21,1,0)="This field holds a Package or Patch name that included this routine."
^DD(9.818,.01,"DT")="3060509"
^DD(9.818,2,0)="CHECKSUM^F^^0;2^K:$L(X)>15!($L(X)<2)!'(X?1A1.N) X"
^DD(9.818,2,.1)="CheckSum"
^DD(9.818,2,3)="Answer must be 1 Alpha 1-14 Numerics in length."
^DD(9.818,2,21,0)="^^2^2^3060905^"
^DD(9.818,2,21,1,0)="This field holds the checksum (based on $$SUMB^XPDRSUM(routine)) "
^DD(9.818,2,21,2,0)="calculated for Class I release loaded by KIDS."
^DD(9.818,2,"DT")="3050922"
^DD(9.818,3,0)="PATCH LIST^F^^0;3^K:$L(X)>200!($L(X)<2) X"
^DD(9.818,3,3)="Answer must be 2-200 characters in length"
^DD(9.818,3,21,0)="^^1^1^3060509^"
^DD(9.818,3,21,1,0)="This field holds the patch list at the time of the patch."
^DD(9.818,3,"DT")="3060509"
^DD(9.818,"B","CHECKSUM",2)=""
^DD(9.818,"B","CheckSum",2)="1"
^DD(9.818,"B","PATCH",.01)=""
^DD(9.818,"B","PATCH LIST",3)=""
^DD(9.818,"GL",0,1,.01)=""
^DD(9.818,"GL",0,2,2)=""
^DD(9.818,"GL",0,3,3)=""
^DD(9.818,"IX",.01)=""
^DD(9.819,0)="DEV PATCH SUB-FIELD^^3^3"
^DD(9.819,0,"DT")="3060504"
^DD(9.819,0,"IX","B",9.819,.01)=""
^DD(9.819,0,"NM","DEV PATCH")=""
^DD(9.819,0,"UP")="9.8"
^DD(9.819,.01,0)="Dev Patch^F^^0;1^K:$L(X)>15!($L(X)<2) X"
^DD(9.819,.01,1,0)="^.1"
^DD(9.819,.01,1,1,0)="9.819^B"
^DD(9.819,.01,1,1,1)="S ^DIC(9.8,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(9.819,.01,1,1,2)="K ^DIC(9.8,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(9.819,.01,3)="Answer must be 2-15 characters in length."
^DD(9.819,.01,21,0)="^^4^4^3060504^"
^DD(9.819,.01,21,1,0)="This field holds the patch number."
^DD(9.819,.01,21,2,0)="This is were KIDS will put the Checksum for the routine at the time the "
^DD(9.819,.01,21,3,0)="the routine is exported from the account."
^DD(9.819,.01,21,4,0)="The PATCH (#8) field is synced with the FORUM gold account."
^DD(9.819,.01,"DT")="3060504"
^DD(9.819,2,0)="Dev Checksum^F^^0;2^K:$L(X)>20!($L(X)<2) X"
^DD(9.819,2,3)="Answer must be 2-20 characters in length."
^DD(9.819,2,21,0)="^^1^1^3060504^"
^DD(9.819,2,21,1,0)="This is the Checksum value for the routine at the time of export."
^DD(9.819,2,"DT")="3060504"
^DD(9.819,3,0)="Dev Patch List^F^^0;3^K:$L(X)>200!($L(X)<2) X"
^DD(9.819,3,3)="Answer must be 2-200 characters in length."
^DD(9.819,3,21,0)="^^2^2^3060504^"
^DD(9.819,3,21,1,0)="This is the patch list at the time the patch was exported from this "
^DD(9.819,3,21,2,0)="account."
^DD(9.819,3,"DT")="3060504"
^DD(9.819,"B","Dev Checksum",2)=""
^DD(9.819,"B","Dev Patch",.01)=""
^DD(9.819,"B","Dev Patch List",3)=""
^DD(9.819,"GL",0,1,.01)=""
^DD(9.819,"GL",0,2,2)=""
^DD(9.819,"GL",0,3,3)=""
^DD(9.819,"IX",.01)=""
^DD(9.823,0)="EDIT HISTORY SUB-FIELD^^11^5"
^DD(9.823,0,"DT")="2890908"
^DD(9.823,0,"NM","EDIT HISTORY")=""
^DD(9.823,0,"UP")="9.8"
^DD(9.823,.01,0)="EDIT HISTORY^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.823,.01,21,0)="^^2^2^2890125^"
^DD(9.823,.01,21,1,0)="This field holds the date when the %Z editor was used to modify the"
^DD(9.823,.01,21,2,0)="routine."
^DD(9.823,.01,"DT")="2870401"
^DD(9.823,1,0)="DEVICE^F^^0;2^K:$L(X)>6!($L(X)<1) X"
^DD(9.823,1,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(9.823,1,21,0)="^^2^2^2890125^"
^DD(9.823,1,21,1,0)="This field holds an indication of the device used with the %Z editor"
^DD(9.823,1,21,2,0)="to modify this routine."
^DD(9.823,1,"DT")="2870401"
^DD(9.823,2,0)="UCI^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(9.823,2,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(9.823,2,21,0)="^^2^2^2890125^"
^DD(9.823,2,21,1,0)="This field indicates the UCI account area where the %Z editor was used"
^DD(9.823,2,21,2,0)="to modify this routine."
^DD(9.823,2,"DT")="2870401"
^DD(9.823,3,0)="USER^P200'^VA(200,^0;4^Q"
^DD(9.823,3,21,0)="^^2^2^2890125^"
^DD(9.823,3,21,1,0)="This field indicates the user number associated with the use of the %Z"
^DD(9.823,3,21,2,0)="editor when the routine was modified."
^DD(9.823,3,"DT")="2890908"
^DD(9.823,11,0)="EDIT COMMENT^9.82311^^1;0"
^DD(9.823,"B","DEVICE",1)=""
^DD(9.823,"B","EDIT COMMENT",11)=""
^DD(9.823,"B","EDIT HISTORY",.01)=""
^DD(9.823,"B","UCI",2)=""
^DD(9.823,"B","USER",3)=""
^DD(9.823,"GL",0,1,.01)=""
^DD(9.823,"GL",0,2,1)=""
^DD(9.823,"GL",0,3,2)=""
^DD(9.823,"GL",0,4,3)=""
^DD(9.823,"GL",1,0,11)=""
^DD(9.823,"SB",9.82311,11)=""
^DD(9.82311,0)="EDIT COMMENT SUB-FIELD^^.01^1"
^DD(9.82311,0,"DT")="2890815"
^DD(9.82311,0,"NM","EDIT COMMENT")=""
^DD(9.82311,0,"UP")="9.823"
^DD(9.82311,.01,0)="EDIT COMMENT^W^^0;1^Q"
^DD(9.82311,.01,"DT")="2890815"
^DD(9.82311,"B","EDIT COMMENT",.01)=""
^DD(9.82311,"GL",0,1,.01)=""
^DD(9.83,0)="PARAMETERS (IN/OUT) SUB-FIELD^NL^3^4"
^DD(9.83,0,"IX","B",9.83,.01)=""
^DD(9.83,0,"NM","PARAMETERS (IN/OUT)")=""
^DD(9.83,0,"UP")="9.8"
^DD(9.83,.01,0)="PARAMETERS (IN/OUT)^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(9.83,.01,.1)=""
^DD(9.83,.01,1,0)="^.1"
^DD(9.83,.01,1,1,0)="9.83^B"
^DD(9.83,.01,1,1,1)="S ^DIC(9.8,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(9.83,.01,1,1,2)="K ^DIC(9.8,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(9.83,.01,3)="Please enter the name of the parameter being documented (1-40 characters)."
^DD(9.83,.01,21,0)="^^2^2^2851009^^^"
^DD(9.83,.01,21,1,0)="The name of a parameter required by, or useful to, this"
^DD(9.83,.01,21,2,0)="routine."
^DD(9.83,.01,"DT")="2890314"
^DD(9.83,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>72!($L(X)<2) X"
^DD(9.83,1,3)="Please enter a brief description of the parameter (2-72 characters)."
^DD(9.83,1,21,0)="^^1^1^2851007^"
^DD(9.83,1,21,1,0)="This is a brief description of the parameter and its function."
^DD(9.83,2,0)="DETAILED DESCRIPTION^9.831^^1;0"
^DD(9.83,2,21,0)="^^2^2^2851007^"
^DD(9.83,2,21,1,0)="This is a complete and detailed description of the parameter, its"
^DD(9.83,2,21,2,0)="options, functions, and requirements."
^DD(9.83,3,0)="FOUND BY %INDEX^S^y:YES;n:NO;^0;3^Q"
^DD(9.83,3,3)="This field set by %INDEX"
^DD(9.83,3,21,0)="^^1^1^2890125^"
^DD(9.83,3,21,1,0)="This field is set to 'YES' if %INDEX finds this parameter."
^DD(9.83,3,"DT")="2860204"
^DD(9.83,"B","DESCRIPTION",1)=""
^DD(9.83,"B","DETAILED DESCRIPTION",2)=""
^DD(9.83,"B","FOUND BY %INDEX",3)=""
^DD(9.83,"B","PARAMETERS (IN/OUT)",.01)=""
^DD(9.83,"GL",0,1,.01)=""
^DD(9.83,"GL",0,2,1)=""
^DD(9.83,"GL",0,3,3)=""
^DD(9.83,"GL",1,0,2)=""
^DD(9.83,"IX",.01)=""
^DD(9.83,"RQ",1)=""
^DD(9.83,"SB",9.831,2)=""
^DD(9.831,0)="DETAILED DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(9.831,0,"NM","DETAILED DESCRIPTION")=""
^DD(9.831,0,"UP")="9.83"
^DD(9.831,.01,0)="DETAILED DESCRIPTION^W^^0;1^Q"
^DD(9.831,.01,21,0)="^^2^2^2851007^^"
^DD(9.831,.01,21,1,0)="This is a complete and detailed description of the parameter, its"
^DD(9.831,.01,21,2,0)="options, functions, and requirements."
^DD(9.831,.01,"DT")="2850213"
^DD(9.831,"B","DETAILED DESCRIPTION",.01)=""
^DD(9.831,"GL",0,1,.01)=""
^DD(9.9,0)="FIELD^^13^14"
^DD(9.9,0,"DDA")="N"
^DD(9.9,0,"DT")="3050802"
^DD(9.9,0,"IX","B",9.9,.01)=""
^DD(9.9,0,"IX","C",9.9,1)=""
^DD(9.9,0,"IX","D",9.9,8)=""
^DD(9.9,0,"IX","E",9.9,12)=""
^DD(9.9,0,"NM","PATCH MONITOR")=""
^DD(9.9,0,"VR")="7.3"
^DD(9.9,0,"VRPK")="XT"
^DD(9.9,.01,0)="PATCH NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(9.9,.01,1,0)="^.1"
^DD(9.9,.01,1,1,0)="9.9^B"
^DD(9.9,.01,1,1,1)="S ^XPD(9.9,""B"",$E(X,1,30),DA)="""""
^DD(9.9,.01,1,1,2)="K ^XPD(9.9,""B"",$E(X,1,30),DA)"
^DD(9.9,.01,3)="Answer must be 3-20 characters in length."
^DD(9.9,.01,21,0)="^^4^4^3050721^"
^DD(9.9,.01,21,1,0)="This is the name of the patch as it comes in the mail message. "
^DD(9.9,.01,21,2,0)=" "
^DD(9.9,.01,21,3,0)="Examples: RMIM*1*1"
^DD(9.9,.01,21,4,0)="          DG*5.3*211"
^DD(9.9,.01,"DT")="3050721"
^DD(9.9,1,0)="DATE OF RECEIPT^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.9,1,1,0)="^.1"
^DD(9.9,1,1,1,0)="9.9^C"
^DD(9.9,1,1,1,1)="S ^XPD(9.9,""C"",$E(X,1,30),DA)="""""
^DD(9.9,1,1,1,2)="K ^XPD(9.9,""C"",$E(X,1,30),DA)"
^DD(9.9,1,1,1,"%D",0)="^^1^1^3050721^"
^DD(9.9,1,1,1,"%D",1,0)="Index by Date of Receipt."
^DD(9.9,1,1,1,"DT")="3050721"
^DD(9.9,1,3)="The date the patch was received in-house."
^DD(9.9,1,21,0)="^^1^1^3050721^"
^DD(9.9,1,21,1,0)="This is the date the patch was received in-house."
^DD(9.9,1,"DT")="3050721"
^DD(9.9,2,0)="PRIORITY^S^m:MANDATORY;e:EMERGENCY;^0;3^Q"
^DD(9.9,2,3)="Enter the priority of the patch. Type ? for help."
^DD(9.9,2,21,0)="^^1^1^3050721^"
^DD(9.9,2,21,1,0)="The priority assigned to this patch.  Typical is ""mandatory""."
^DD(9.9,2,"DT")="3050721"
^DD(9.9,3,0)="PARENT PACKAGE^F^^0;4^K:$L(X)>35!($L(X)<3) X"
^DD(9.9,3,3)="The parent package of the patch."
^DD(9.9,3,21,0)="^^4^4^3050721^"
^DD(9.9,3,21,1,0)="This is the package for which the patch was issued."
^DD(9.9,3,21,2,0)=" "
^DD(9.9,3,21,3,0)="This field must be free text because of the possibility of having a patch "
^DD(9.9,3,21,4,0)="issued for a new package without the package having been installed yet."
^DD(9.9,3,"DT")="3050721"
^DD(9.9,4,0)="SEQUENCE NUMBER^NJ12,0^^0;5^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9.9,4,3)="The sequence number of the patch."
^DD(9.9,4,21,0)="^^2^2^3050721^"
^DD(9.9,4,21,1,0)="This is the sequence number assigned to the patch by the National Patch "
^DD(9.9,4,21,2,0)="Module."
^DD(9.9,4,"DT")="3050721"
^DD(9.9,5,0)="PACKAGE VERSION^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(9.9,5,3)="The version assignment of the parent package."
^DD(9.9,5,21,0)="^^2^2^3050721^"
^DD(9.9,5,21,1,0)="This is the version of the parent package for which a patch is sent.  It "
^DD(9.9,5,21,2,0)="is determined from the patch information in the message."
^DD(9.9,5,"DT")="3050721"
^DD(9.9,6,0)="PATCH SUBJECT^F^^0;7^K:$L(X)>50!($L(X)<3) X"
^DD(9.9,6,3)="Answer must be 3-50 characters in length."
^DD(9.9,6,21,0)="^^1^1^3050721^"
^DD(9.9,6,21,1,0)="This is the subject of the patch."
^DD(9.9,6,"DT")="3050721"
^DD(9.9,7,0)="INSTALL NAME^F^^0;8^K:$L(X)>35!($L(X)<3) X"
^DD(9.9,7,3)="Answer must be 3-35 characters in length."
^DD(9.9,7,21,0)="^^6^6^3050721^"
^DD(9.9,7,21,1,0)="The installation information may or may not be in the INSTALL file for a "
^DD(9.9,7,21,2,0)="patch.  This may be because of:"
^DD(9.9,7,21,3,0)=" "
^DD(9.9,7,21,4,0)="        a.  The package is new and may not yet be loaded"
^DD(9.9,7,21,5,0)="            but already has patches issued."
^DD(9.9,7,21,6,0)="        b.  The patch is a non-kids patch for executables, etc."
^DD(9.9,7,"DT")="3050721"
^DD(9.9,8,0)="COMPLIANCE DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.9,8,1,0)="^.1"
^DD(9.9,8,1,1,0)="9.9^D"
^DD(9.9,8,1,1,1)="S ^XPD(9.9,""D"",$E(X,1,30),DA)="""""
^DD(9.9,8,1,1,2)="K ^XPD(9.9,""D"",$E(X,1,30),DA)"
^DD(9.9,8,1,1,"%D",0)="^^1^1^3050721^"
^DD(9.9,8,1,1,"%D",1,0)="Index by Compliance Date."
^DD(9.9,8,1,1,"DT")="3050721"
^DD(9.9,8,3)="This is the date the patch must be installed by."
^DD(9.9,8,21,0)="^.001^1^1^3050721^^"
^DD(9.9,8,21,1,0)="This is the date by which the patch must be installed."
^DD(9.9,8,"DT")="3050721"
^DD(9.9,9,0)="DATE INSTALLED^CJ^^ ; ^D ^XTPMKPCF"
^DD(9.9,9,9)="^"
^DD(9.9,9,9.01)=""
^DD(9.9,9,9.1)="D ^XTPMKPCF"
^DD(9.9,9,21,0)="^^7^7^3070614^"
^DD(9.9,9,21,1,0)="This is a computed field, driven by a mumps routine XTPMKPCF.  This is a "
^DD(9.9,9,21,2,0)="special routine to calculate the date installed from the INSTALL file.  "
^DD(9.9,9,21,3,0)="It reads the index backwards to find the last installed version by taking"
^DD(9.9,9,21,4,0)="the $O(^XPD(9.7,""B"",[INSTALL NAME],9999999999),-1)."
^DD(9.9,9,21,5,0)=" "
^DD(9.9,9,21,6,0)="This is done because there may be several test versions on file in "
^DD(9.9,9,21,7,0)="INSTALL file which may affect the true installation date determination."
^DD(9.9,9,"DT")="3070614"
^DD(9.9,10,0)="INSTALLED BY^CJ30^^ ; ^D WHO^XTPMKPCF"
^DD(9.9,10,9)="^"
^DD(9.9,10,9.01)=""
^DD(9.9,10,9.1)="D WHO^XTPMKPCF"
^DD(9.9,10,21,0)="^^2^2^3050721^"
^DD(9.9,10,21,1,0)="This is a computed field driven also by the routine AWBCKPCF at entry "
^DD(9.9,10,21,2,0)="point WHO.  It tells who installed the patch."
^DD(9.9,10,"DT")="3050802"
^DD(9.9,11,0)="NON-KIDS PATCH?^S^1:YES;^0;10^Q"
^DD(9.9,11,3)="Enter 1 if a Non-KIDS patch."
^DD(9.9,11,21,0)="^^4^4^3050721^"
^DD(9.9,11,21,1,0)="This field determines what happens in various areas of the package.  A "
^DD(9.9,11,21,2,0)="patch can be KIDs or non-KIDs.  The data on a patch record can be either "
^DD(9.9,11,21,3,0)="NULL (KIDs patch) or 1 (Non-KIDs patch).  The field can actually be only "
^DD(9.9,11,21,4,0)="set to a 1 or the information deleted (NULL)."
^DD(9.9,11,"DT")="3050721"
^DD(9.9,12,0)="NON-KIDS INSTALL DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9.9,12,1,0)="^.1"
^DD(9.9,12,1,1,0)="9.9^E"
^DD(9.9,12,1,1,1)="S ^XPD(9.9,""E"",$E(X,1,30),DA)="""""
^DD(9.9,12,1,1,2)="K ^XPD(9.9,""E"",$E(X,1,30),DA)"
^DD(9.9,12,1,1,"%D",0)="^^1^1^3050721^"
^DD(9.9,12,1,1,"%D",1,0)="ndex by Non-Kids Install Date."
^DD(9.9,12,1,1,"DT")="3050721"
^DD(9.9,12,3)="Enter the date this NON-KIDS patch was completed."
^DD(9.9,12,21,0)="^^11^11^3050721^"
^DD(9.9,12,21,1,0)="Non-KIDs patches are those which do not have an accompanying KIDs install "
^DD(9.9,12,21,2,0)="in the Packman message because:"
^DD(9.9,12,21,3,0)=" "
^DD(9.9,12,21,4,0)="        o  It may have an accompanying host file (too large for a mail "
^DD(9.9,12,21,5,0)="           message) or"
^DD(9.9,12,21,6,0)=" "
^DD(9.9,12,21,7,0)="        o  It may be a patch message referring to a .zip, .exe or other"
^DD(9.9,12,21,8,0)="           file which will not put an entry into the INSTALL file."
^DD(9.9,12,21,9,0)=" "
^DD(9.9,12,21,10,0)="Because of this, there is no install record to extract the install date "
^DD(9.9,12,21,11,0)="and it must be entered (i.e., completed) by filling in this field."
^DD(9.9,12,"DT")="3050721"
^DD(9.9,13,0)="NON-KIDS PATCH COMPLETED BY^P200'^VA(200,^0;12^Q"
^DD(9.9,13,3)="This is the name of the person who completed the non-KIDs patch."
^DD(9.9,13,21,0)="^^1^1^3050721^"
^DD(9.9,13,21,1,0)="This is a pointer to file 200 to record who completed the non-KIDs patch."
^DD(9.9,13,"DT")="3050721"
^DD(9.9,"B","COMPLIANCE DATE",8)=""
^DD(9.9,"B","DATE INSTALLED",9)=""
^DD(9.9,"B","DATE OF RECEIPT",1)=""
^DD(9.9,"B","INSTALL NAME",7)=""
^DD(9.9,"B","INSTALLED BY",10)=""
^DD(9.9,"B","NON-KIDS INSTALL DATE",12)=""
^DD(9.9,"B","NON-KIDS PATCH COMPLETED BY",13)=""
^DD(9.9,"B","NON-KIDS PATCH?",11)=""
^DD(9.9,"B","PACKAGE VERSION",5)=""
^DD(9.9,"B","PARENT PACKAGE",3)=""
^DD(9.9,"B","PATCH NAME",.01)=""
^DD(9.9,"B","PATCH SUBJECT",6)=""
^DD(9.9,"B","PRIORITY",2)=""
^DD(9.9,"B","SEQUENCE NUMBER",4)=""
^DD(9.9,"GL",0,1,.01)=""
^DD(9.9,"GL",0,2,1)=""
^DD(9.9,"GL",0,3,2)=""
^DD(9.9,"GL",0,4,3)=""
^DD(9.9,"GL",0,5,4)=""
^DD(9.9,"GL",0,6,5)=""
^DD(9.9,"GL",0,7,6)=""
^DD(9.9,"GL",0,8,7)=""
^DD(9.9,"GL",0,9,8)=""
^DD(9.9,"GL",0,10,11)=""
^DD(9.9,"GL",0,11,12)=""
^DD(9.9,"GL",0,12,13)=""
^DD(9.9,"IX",.01)=""
^DD(9.9,"IX",1)=""
^DD(9.9,"IX",8)=""
^DD(9.9,"IX",12)=""
^DD(9.9,"RQ",.01)=""
^DD(9.95,0)="FIELD^^4^5"
^DD(9.95,0,"DDA")="N"
^DD(9.95,0,"DT")="3050721"
^DD(9.95,0,"IX","B",9.95,.01)=""
^DD(9.95,0,"NM","PATCH MONITOR PARAMETER")=""
^DD(9.95,0,"VR")="7.3"
^DD(9.95,0,"VRPK")="XT"
^DD(9.95,.01,0)="SITE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(9.95,.01,1,0)="^.1"
^DD(9.95,.01,1,1,0)="9.95^B"
^DD(9.95,.01,1,1,1)="S ^XPD(9.95,""B"",$E(X,1,30),DA)="""""
^DD(9.95,.01,1,1,2)="K ^XPD(9.95,""B"",$E(X,1,30),DA)"
^DD(9.95,.01,3)="Enter the name of your site."
^DD(9.95,.01,21,0)="^^1^1^3050721^"
^DD(9.95,.01,21,1,0)="The free text name of the facility that is tracking the patches."
^DD(9.95,.01,"DT")="3050721"
^DD(9.95,1,0)="MAIL GROUPS^9.951P^^1;0"
^DD(9.95,1,21,0)="^^2^2^3050721^"
^DD(9.95,1,21,1,0)="This is a multiple field that has all the mail groups you wish to send an "
^DD(9.95,1,21,2,0)="uninstalled patch bulletin to."
^DD(9.95,2,0)="NUMBER OF DAYS TO KEEP DATA^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<7)!(X?.E1"".""1N.N) X"
^DD(9.95,2,3)="Enter a number from 7 to 99999 for the number of days to keep data, if you are not deleting when patches are installed."
^DD(9.95,2,21,0)="^^4^4^3050721^"
^DD(9.95,2,21,1,0)="If the site wishes to keep the data recording patch isntallations on "
^DD(9.95,2,21,2,0)="file, this field keeps the number of days the site wishes to keep on "
^DD(9.95,2,21,3,0)="file.  This field is not used if field 3, DELETE INSTALLED PATCHES? is "
^DD(9.95,2,21,4,0)="answered 1 or YES."
^DD(9.95,2,"DT")="3050721"
^DD(9.95,3,0)="DELETE INSTALLED PATCHES?^S^0:No;1:Yes;^0;3^Q"
^DD(9.95,3,3)="Enter 1 or YES to allow the night-time job to remove installed patches, or 0 or NO to leave them for future tracking."
^DD(9.95,3,21,0)="^^6^6^3050721^"
^DD(9.95,3,21,1,0)="If the site wishes, patches that are installed may be deleted by the "
^DD(9.95,3,21,2,0)="night time job.  This is only if they wish NOT to track timely "
^DD(9.95,3,21,3,0)="installation."
^DD(9.95,3,21,4,0)=" "
^DD(9.95,3,21,5,0)="If this field is answered 1 or YES, field 2, NUMBER OF DAYS TO KEEP DATA "
^DD(9.95,3,21,6,0)="is ignored."
^DD(9.95,3,"DT")="3050721"
^DD(9.95,4,0)="REPORTING GROUP^9.954^^2;0"
^DD(9.95,"B","DELETE INSTALLED PATCHES?",3)=""
^DD(9.95,"B","MAIL GROUPS",1)=""
^DD(9.95,"B","NUMBER OF DAYS TO KEEP DATA",2)=""
^DD(9.95,"B","REPORTING GROUP",4)=""
^DD(9.95,"B","SITE NAME",.01)=""
^DD(9.95,"GL",0,1,.01)=""
^DD(9.95,"GL",0,2,2)=""
^DD(9.95,"GL",0,3,3)=""
^DD(9.95,"GL",1,0,1)=""
^DD(9.95,"GL",2,0,4)=""
^DD(9.95,"IX",.01)=""
^DD(9.95,"RQ",.01)=""
^DD(9.95,"SB",9.951,1)=""
^DD(9.95,"SB",9.954,4)=""
^DD(9.951,0)="MAIL GROUPS SUB-FIELD^^.01^1"
^DD(9.951,0,"DT")="3050721"
^DD(9.951,0,"IX","B",9.951,.01)=""
^DD(9.951,0,"NM","MAIL GROUPS")=""
^DD(9.951,0,"UP")="9.95"
^DD(9.951,.01,0)="MAIL GROUPS^MP3.8'^XMB(3.8,^0;1^Q"
^DD(9.951,.01,1,0)="^.1"
^DD(9.951,.01,1,1,0)="9.951^B"
^DD(9.951,.01,1,1,1)="S ^XPD(9.95,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9.951,.01,1,1,2)="K ^XPD(9.95,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9.951,.01,21,0)="^^2^2^3050721^"
^DD(9.951,.01,21,1,0)="The name of a mail group that wishes to receive uninstalled patch "
^DD(9.951,.01,21,2,0)="bulletins."
^DD(9.951,.01,"DT")="3050721"
^DD(9.951,"B","MAIL GROUPS",.01)=""
^DD(9.951,"GL",0,1,.01)=""
^DD(9.951,"IX",.01)=""
^DD(9.954,0)="REPORTING GROUP SUB-FIELD^^1^2"
^DD(9.954,0,"DT")="3050721"
^DD(9.954,0,"IX","B",9.954,.01)=""
^DD(9.954,0,"NM","REPORTING GROUP")=""
^DD(9.954,0,"UP")="9.95"
^DD(9.954,.01,0)="REPORTING GROUP^MF^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(9.954,.01,1,0)="^.1"
^DD(9.954,.01,1,1,0)="9.954^B"
^DD(9.954,.01,1,1,1)="S ^XPD(9.95,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(9.954,.01,1,1,2)="K ^XPD(9.95,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(9.954,.01,3)="Enter the name of a reporting group for statistics. [3-15 characters]"
^DD(9.954,.01,21,0)="^^1^1^3050721^"
^DD(9.954,.01,21,1,0)="Statistical reporting group name."
^DD(9.954,.01,"DT")="3050721"
^DD(9.954,1,0)="NAME SPACE^9.9541^^1;0"
^DD(9.954,"B","NAME SPACE",1)=""
^DD(9.954,"B","REPORTING GROUP",.01)=""
^DD(9.954,"GL",0,1,.01)=""
^DD(9.954,"GL",1,0,1)=""
^DD(9.954,"IX",.01)=""
^DD(9.954,"SB",9.9541,1)=""
^DD(9.9541,0)="NAME SPACE SUB-FIELD^^.01^1"
^DD(9.9541,0,"DT")="3050721"
^DD(9.9541,0,"IX","B",9.9541,.01)=""
^DD(9.9541,0,"NM","NAME SPACE")=""
^DD(9.9541,0,"UP")="9.954"
^DD(9.9541,.01,0)="NAME SPACE^MFX^^0;1^K:$L(X)>4!($L(X)<2) X D:$D(X) PKGLOOK^XTPMKPCF"
^DD(9.9541,.01,1,0)="^.1"
^DD(9.9541,.01,1,1,0)="9.9541^B"
^DD(9.9541,.01,1,1,1)="S ^XPD(9.95,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9.9541,.01,1,1,2)="K ^XPD(9.95,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9.9541,.01,3)="Enter the name space to report.  This is cross-checked against the Package file (#9.4). [2-4 characters]"
^DD(9.9541,.01,"DT")="3050802"
^DD(9.9541,"B","NAME SPACE",.01)=""
^DD(9.9541,"GL",0,1,.01)=""
^DD(9.9541,"IX",.01)=""
^DD(10,0)="FIELD^NL^202^8"
^DD(10,0,"DDA")="N"
^DD(10,0,"DT")="3020801"
^DD(10,0,"ID",2)="N TMP S TMP=$P($G(^(0)),""^"",2) I TMP'="""" D EN^DDIOL(TMP,,""?$X+2"")"
^DD(10,0,"ID",200)="I +$G(^(.02)) D EN^DDIOL(""** INACTIVE **"",,""?$X+2"")"
^DD(10,0,"IX","AHL7",10,3)=""
^DD(10,0,"IX","B",10,.01)=""
^DD(10,0,"IX","C",10,2)=""
^DD(10,0,"NM","RACE")=""
^DD(10,0,"PT",2,.06)=""
^DD(10,0,"PT",2.02,.01)=""
^DD(10,0,"PT",67,.06)=""
^DD(10,0,"PT",910,.09)=""
^DD(10,0,"PT",912.04,.04)=""
^DD(10,0,"PT",912.05,.04)=""
^DD(10,0,"VR")="5.3"
^DD(10,0,"VRPK")="DG"
^DD(10,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<4) X"
^DD(10,.01,1,0)="^.1"
^DD(10,.01,1,1,0)="10^B"
^DD(10,.01,1,1,1)="S ^DIC(10,""B"",$E(X,1,30),DA)="""""
^DD(10,.01,1,1,2)="K ^DIC(10,""B"",$E(X,1,30),DA)"
^DD(10,.01,3)="Enter the race name, 4-45 characters."
^DD(10,.01,21,0)="^.001^6^6^3020801^^^^"
^DD(10,.01,21,1,0)="This field contains the name of a race as selectable during enter/edit of"
^DD(10,.01,21,2,0)="patient data information."
^DD(10,.01,21,3,0)=" "
^DD(10,.01,21,4,0)="These entries are distributed by the MAS module and entry or edit of any"
^DD(10,.01,21,5,0)="data elements contained in this file could have negative impacts on the"
^DD(10,.01,21,6,0)="performance of the MAS or other DHCP modules."
^DD(10,.01,"DT")="3020801"
^DD(10,2,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(10,2,1,0)="^.1"
^DD(10,2,1,1,0)="10^C"
^DD(10,2,1,1,1)="S ^DIC(10,""C"",$E(X,1,30),DA)="""""
^DD(10,2,1,1,2)="K ^DIC(10,""C"",$E(X,1,30),DA)"
^DD(10,2,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(10,2,21,0)="^^3^3^2930127^^^"
^DD(10,2,21,1,0)="This field contains the abbreviation for this race entry.  This may appear"
^DD(10,2,21,2,0)="on various outputs where there is insufficient room to print the entire"
^DD(10,2,21,3,0)="name of the race."
^DD(10,2,"DT")="2840820"
^DD(10,3,0)="HL7 VALUE^RF^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(10,3,1,0)="^.1"
^DD(10,3,1,1,0)="10^AHL7"
^DD(10,3,1,1,1)="S ^DIC(10,""AHL7"",$E(X,1,30),DA)="""""
^DD(10,3,1,1,2)="K ^DIC(10,""AHL7"",$E(X,1,30),DA)"
^DD(10,3,1,1,"%D",0)="^^1^1^3020814^"
^DD(10,3,1,1,"%D",1,0)="Regular cross reference on the HL7 value"
^DD(10,3,1,1,"DT")="3020814"
^DD(10,3,3)="Answer must be 1-10 characters in length."
^DD(10,3,21,0)="^^1^1^3020624^"
^DD(10,3,21,1,0)="The HL7 representation of this race"
^DD(10,3,"DT")="3020814"
^DD(10,4,0)="CDC VALUE^F^^0;4^K:$L(X)>6!($L(X)<6)!'(X?4N1""-""1N) X"
^DD(10,4,3)="Answer must be in the format NNNN-N"
^DD(10,4,21,0)="^^1^1^3020624^"
^DD(10,4,21,1,0)="The CDC representation of this race"
^DD(10,4,"DT")="3020624"
^DD(10,5,0)="PTF VALUE^RF^^0;5^K:$L(X)>1!($L(X)<1) X"
^DD(10,5,3)="Answer must be 1 character in length."
^DD(10,5,21,0)="^^1^1^3020624^"
^DD(10,5,21,1,0)="The PTF represenation of this race"
^DD(10,5,"DT")="3020624"
^DD(10,100,0)="SYNONYM^10.01^^.01;0"
^DD(10,100,21,0)="^^2^2^2911222^"
^DD(10,100,21,1,0)="This multiple contains all alternate names by which this race can be called"
^DD(10,100,21,2,0)="up by a user."
^DD(10,200,0)="INACTIVE^S^1:YES;^.02;1^Q"
^DD(10,200,1,0)="^.1^^0"
^DD(10,200,21,0)="^^1^1^3020624^"
^DD(10,200,21,1,0)="This field is used to denote that this race value is no longer active."
^DD(10,200,"DT")="3020624"
^DD(10,202,0)="INACTIVATION DATE^D^^.02;2^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(10,202,3)="(No range limit on date)"
^DD(10,202,21,0)="^^1^1^3020624^"
^DD(10,202,21,1,0)="Date that this race became inactive"
^DD(10,202,"DT")="3020624"
^DD(10,"B","ABBREVIATION",2)=""
^DD(10,"B","CDC VALUE",4)=""
^DD(10,"B","HL7 VALUE",3)=""
^DD(10,"B","INACTIVATION DATE",202)=""
^DD(10,"B","INACTIVE",200)=""
^DD(10,"B","NAME",.01)=""
^DD(10,"B","PTF VALUE",5)=""
^DD(10,"B","SYNONYM",100)=""
^DD(10,"GL",0,1,.01)=""
^DD(10,"GL",0,2,2)=""
^DD(10,"GL",0,3,3)=""
^DD(10,"GL",0,4,4)=""
^DD(10,"GL",0,5,5)=""
^DD(10,"GL",.01,0,100)=""
^DD(10,"GL",.02,1,200)=""
^DD(10,"GL",.02,2,202)=""
^DD(10,"IX",.01)=""
^DD(10,"IX",2)=""
^DD(10,"IX",3)=""
^DD(10,"RQ",.01)=""
^DD(10,"RQ",3)=""
^DD(10,"RQ",5)=""
^DD(10,"SB",10.01,100)=""
^DD(10.01,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(10.01,0,"NM","SYNONYM")=""
^DD(10.01,0,"UP")="10"
^DD(10.01,.01,0)="SYNONYM^F^^0;1^K:$L(X)>16!($L(X)<1) X"
^DD(10.01,.01,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(10.01,.01,21,0)="^^3^3^2911222^"
^DD(10.01,.01,21,1,0)="This field contains another name by which this race can be called up.  When"
^DD(10.01,.01,21,2,0)="entering this race, users will be allowed to select either the name of the"
^DD(10.01,.01,21,3,0)="race or one of the synonyms."
^DD(10.01,"B","SYNONYM",.01)=""
^DD(10.01,"GL",0,1,.01)=""
^DD(10.2,0)="FIELD^^202^8"
^DD(10.2,0,"DDA")="N"
^DD(10.2,0,"DT")="3020624"
^DD(10.2,0,"ID",2)="N TMP S TMP=$P($G(^(0)),""^"",2) I TMP'="""" D EN^DDIOL(TMP,,""?$X+2"")"
^DD(10.2,0,"ID",200)="I +$G(^(.02)) D EN^DDIOL(""** INACTIVE **"",,""?$X+2"")"
^DD(10.2,0,"IX","AHL7",10.2,3)=""
^DD(10.2,0,"IX","B",10.2,.01)=""
^DD(10.2,0,"IX","C",10.2,2)=""
^DD(10.2,0,"NM","ETHNICITY")=""
^DD(10.2,0,"PT",2.06,.01)=""
^DD(10.2,0,"VR")="5.3"
^DD(10.2,0,"VRPK")="DG"
^DD(10.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(10.2,.01,1,0)="^.1"
^DD(10.2,.01,1,1,0)="10.2^B"
^DD(10.2,.01,1,1,1)="S ^DIC(10.2,""B"",$E(X,1,30),DA)="""""
^DD(10.2,.01,1,1,2)="K ^DIC(10.2,""B"",$E(X,1,30),DA)"
^DD(10.2,.01,3)="Answer must be 3-30 characters in length"
^DD(10.2,.01,21,0)="^^5^5^3020624^"
^DD(10.2,.01,21,1,0)="This field contains the name of an ethnicity as selectable during"
^DD(10.2,.01,21,2,0)="enter/edit of patient data information."
^DD(10.2,.01,21,3,0)=" "
^DD(10.2,.01,21,4,0)="These entries are maintained by VA Central Office and entry/edit of "
^DD(10.2,.01,21,5,0)="entries is not allowed."
^DD(10.2,.01,"DT")="3020624"
^DD(10.2,2,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(10.2,2,1,0)="^.1"
^DD(10.2,2,1,1,0)="10.2^C"
^DD(10.2,2,1,1,1)="S ^DIC(10.2,""C"",$E(X,1,30),DA)="""""
^DD(10.2,2,1,1,2)="K ^DIC(10.2,""C"",$E(X,1,30),DA)"
^DD(10.2,2,1,1,"DT")="3020624"
^DD(10.2,2,3)="Answer must be 1-5 characters in length"
^DD(10.2,2,21,0)="^^3^3^3020624^"
^DD(10.2,2,21,1,0)="This field contains the abbreviation for this ethnicity entry.  This may"
^DD(10.2,2,21,2,0)="appear on various outputs where there is insufficient room to print the"
^DD(10.2,2,21,3,0)="entire name of the ethnicity."
^DD(10.2,2,"DT")="3020624"
^DD(10.2,3,0)="HL7 VALUE^RF^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(10.2,3,1,0)="^.1"
^DD(10.2,3,1,1,0)="10.2^AHL7"
^DD(10.2,3,1,1,1)="S ^DIC(10.2,""AHL7"",$E(X,1,30),DA)="""""
^DD(10.2,3,1,1,2)="K ^DIC(10.2,""AHL7"",$E(X,1,30),DA)"
^DD(10.2,3,1,1,"%D",0)="^^1^1^3020814^"
^DD(10.2,3,1,1,"%D",1,0)="Regular cross reference on the HL7 value"
^DD(10.2,3,1,1,"DT")="3020814"
^DD(10.2,3,3)="Answer must be 1-10 characters in length"
^DD(10.2,3,21,0)="^.001^1^1^3020624^^"
^DD(10.2,3,21,1,0)="The HL7 representation of this ethnicity"
^DD(10.2,3,"DT")="3020814"
^DD(10.2,4,0)="CDC VALUE^F^^0;4^K:$L(X)>6!($L(X)<6)!'(X?4N1""-""1N) X"
^DD(10.2,4,3)="Answer must be in the format NNNN-N"
^DD(10.2,4,21,0)="^^1^1^3020624^"
^DD(10.2,4,21,1,0)="CDC representation of this ethnicity"
^DD(10.2,4,"DT")="3020624"
^DD(10.2,5,0)="PTF VALUE^RF^^0;5^K:$L(X)>1!($L(X)<1) X"
^DD(10.2,5,3)="Answer must be 1 character in length."
^DD(10.2,5,21,0)="^.001^1^1^3020624^^"
^DD(10.2,5,21,1,0)="PTF representation of this ethnicity"
^DD(10.2,5,"DT")="3020624"
^DD(10.2,100,0)="SYNONYM^10.21^^.01;0"
^DD(10.2,200,0)="INACTIVE^S^1:YES;^.02;1^Q"
^DD(10.2,200,1,0)="^.1^^0"
^DD(10.2,200,21,0)="^^2^2^3020624^"
^DD(10.2,200,21,1,0)="This field is used to denote that this ethnicity value is no longer "
^DD(10.2,200,21,2,0)="active."
^DD(10.2,200,"DT")="3020624"
^DD(10.2,202,0)="INACTIVATION DATE^D^^.02;2^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(10.2,202,3)="(No range limit on date)"
^DD(10.2,202,21,0)="^^1^1^3020624^"
^DD(10.2,202,21,1,0)="Date that this ethnicity became inactive"
^DD(10.2,202,"DT")="3020624"
^DD(10.2,"B","ABBREVIATION",2)=""
^DD(10.2,"B","CDC VALUE",4)=""
^DD(10.2,"B","HL7 VALUE",3)=""
^DD(10.2,"B","INACTIVATION DATE",202)=""
^DD(10.2,"B","INACTIVE",200)=""
^DD(10.2,"B","NAME",.01)=""
^DD(10.2,"B","PTF VALUE",5)=""
^DD(10.2,"B","SYNONYM",100)=""
^DD(10.2,"GL",0,1,.01)=""
^DD(10.2,"GL",0,2,2)=""
^DD(10.2,"GL",0,3,3)=""
^DD(10.2,"GL",0,4,4)=""
^DD(10.2,"GL",0,5,5)=""
^DD(10.2,"GL",.01,0,100)=""
^DD(10.2,"GL",.02,1,200)=""
^DD(10.2,"GL",.02,2,202)=""
^DD(10.2,"IX",.01)=""
^DD(10.2,"IX",2)=""
^DD(10.2,"IX",3)=""
^DD(10.2,"RQ",.01)=""
^DD(10.2,"RQ",3)=""
^DD(10.2,"RQ",5)=""
^DD(10.2,"SB",10.21,100)=""
^DD(10.21,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(10.21,0,"DT")="3020624"
^DD(10.21,0,"IX","B",10.21,.01)=""
^DD(10.21,0,"NM","SYNONYM")=""
^DD(10.21,0,"UP")="10.2"
^DD(10.21,.01,0)="SYNONYM^F^^0;1^K:$L(X)>16!($L(X)<1) X"
^DD(10.21,.01,1,0)="^.1"
^DD(10.21,.01,1,1,0)="10.21^B"
^DD(10.21,.01,1,1,1)="S ^DIC(10.2,DA(1),.01,""B"",$E(X,1,30),DA)="""""
^DD(10.21,.01,1,1,2)="K ^DIC(10.2,DA(1),.01,""B"",$E(X,1,30),DA)"
^DD(10.21,.01,3)="Answer must be 1-16 characters in length."
^DD(10.21,.01,21,0)="^.001^3^3^3020624^^"
^DD(10.21,.01,21,1,0)="This field contains another name by which this ethnicity can be called"
^DD(10.21,.01,21,2,0)="up.  When entering this ethnicity, users will be allowed to select either"
^DD(10.21,.01,21,3,0)="the name of the ethnicity or one of the synonyms."
^DD(10.21,.01,"DT")="3020624"
^DD(10.21,"B","SYNONYM",.01)=""
^DD(10.21,"GL",0,1,.01)=""
^DD(10.21,"IX",.01)=""
^DD(10.3,0)="FIELD^^.05^4"
^DD(10.3,0,"DDA")="N"
^DD(10.3,0,"DT")="3020717"
^DD(10.3,0,"ID",.02)="N TMP S TMP=$P($G(^(0)),""^"",2) I TMP'="""" D EN^DDIOL(TMP,,""?$X+2"")"
^DD(10.3,0,"IX","AHL7",10.3,.03)=""
^DD(10.3,0,"IX","B",10.3,.01)=""
^DD(10.3,0,"IX","C",10.3,.02)=""
^DD(10.3,0,"NM","RACE AND ETHNICITY COLLECTION METHOD")=""
^DD(10.3,0,"PT",2.02,.02)=""
^DD(10.3,0,"PT",2.06,.02)=""
^DD(10.3,0,"VR")="5.3"
^DD(10.3,0,"VRPK")="DG"
^DD(10.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(10.3,.01,1,0)="^.1"
^DD(10.3,.01,1,1,0)="10.3^B"
^DD(10.3,.01,1,1,1)="S ^DIC(10.3,""B"",$E(X,1,30),DA)="""""
^DD(10.3,.01,1,1,2)="K ^DIC(10.3,""B"",$E(X,1,30),DA)"
^DD(10.3,.01,3)="Answer must be 3-30 characters in length"
^DD(10.3,.01,21,0)="^^5^5^3020624^"
^DD(10.3,.01,21,1,0)="This field contains the name of a collection method used to obtain a value"
^DD(10.3,.01,21,2,0)="for race and ethnicity during enter/edit of patient data information."
^DD(10.3,.01,21,3,0)=" "
^DD(10.3,.01,21,4,0)="These entries are maintained by VA Central Office and entry/edit of"
^DD(10.3,.01,21,5,0)="entries is not allowed."
^DD(10.3,.01,"DT")="3020624"
^DD(10.3,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(10.3,.02,1,0)="^.1"
^DD(10.3,.02,1,1,0)="10.3^C"
^DD(10.3,.02,1,1,1)="S ^DIC(10.3,""C"",$E(X,1,30),DA)="""""
^DD(10.3,.02,1,1,2)="K ^DIC(10.3,""C"",$E(X,1,30),DA)"
^DD(10.3,.02,1,1,"DT")="3020625"
^DD(10.3,.02,3)="Answer must be 1-5 characters in length"
^DD(10.3,.02,21,0)="^^3^3^3020624^"
^DD(10.3,.02,21,1,0)="This field contains the abbreviation for this collection method entry.  "
^DD(10.3,.02,21,2,0)="This may appear on various outputs where there is insufficient room to"
^DD(10.3,.02,21,3,0)="print the entire name of the collection method."
^DD(10.3,.02,"DT")="3020625"
^DD(10.3,.03,0)="HL7 VALUE^RF^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(10.3,.03,1,0)="^.1"
^DD(10.3,.03,1,1,0)="10.3^AHL7"
^DD(10.3,.03,1,1,1)="S ^DIC(10.3,""AHL7"",$E(X,1,30),DA)="""""
^DD(10.3,.03,1,1,2)="K ^DIC(10.3,""AHL7"",$E(X,1,30),DA)"
^DD(10.3,.03,1,1,"%D",0)="^^1^1^3020814^"
^DD(10.3,.03,1,1,"%D",1,0)="Regular cross reference on the HL7 value"
^DD(10.3,.03,1,1,"DT")="3020814"
^DD(10.3,.03,3)="Answer must be 1-3 characters in length."
^DD(10.3,.03,21,0)="^^1^1^3020624^"
^DD(10.3,.03,21,1,0)="HL7 representation of this collection method"
^DD(10.3,.03,"DT")="3020814"
^DD(10.3,.05,0)="PTF VALUE^RF^^0;5^K:$L(X)>1!($L(X)<1) X"
^DD(10.3,.05,3)="Answer must be 1 character in length."
^DD(10.3,.05,21,0)="^^1^1^3020717^"
^DD(10.3,.05,21,1,0)="PTF representation of this collection method"
^DD(10.3,.05,"DT")="3020717"
^DD(10.3,"B","ABBREVIATION",.02)=""
^DD(10.3,"B","HL7 VALUE",.03)=""
^DD(10.3,"B","NAME",.01)=""
^DD(10.3,"B","PTF VALUE",.05)=""
^DD(10.3,"GL",0,1,.01)=""
^DD(10.3,"GL",0,2,.02)=""
^DD(10.3,"GL",0,3,.03)=""
^DD(10.3,"GL",0,5,.05)=""
^DD(10.3,"IX",.01)=""
^DD(10.3,"IX",.02)=""
^DD(10.3,"IX",.03)=""
^DD(10.3,"RQ",.01)=""
^DD(10.3,"RQ",.03)=""
^DD(10.3,"RQ",.05)=""
^DD(11,0)="FIELD^NL^2^3"
^DD(11,0,"IX","B",11,.01)=""
^DD(11,0,"IX","C",11,1)=""
^DD(11,0,"NM","MARITAL STATUS")=""
^DD(11,0,"PT",2,.05)=""
^DD(11,0,"PT",67,.05)=""
^DD(11,0,"PT",727.802,26)=""
^DD(11,0,"PT",727.82,26)=""
^DD(11,0,"VR")="5.3"
^DD(11,.01,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<2)!(X'?2U.E) X"
^DD(11,.01,1,0)="^.1"
^DD(11,.01,1,1,0)="11^B"
^DD(11,.01,1,1,1)="S ^DIC(11,""B"",X,DA)="""""
^DD(11,.01,1,1,2)="K ^DIC(11,""B"",X,DA)"
^DD(11,.01,3)="ANSWER MUST BE 2-15 CHARACTERS IN LENGTH"
^DD(11,.01,21,0)="^^4^4^2911222^"
^DD(11,.01,21,1,0)="This field contains the name of the acceptable marital status as distributed"
^DD(11,.01,21,2,0)="by the MAS package.  These entries should not be altered in any way nor"
^DD(11,.01,21,3,0)="should entries be added or removed.  Editing of this data can have negative"
^DD(11,.01,21,4,0)="affects on the performance of the MAS module as well as other DHCP modules."
^DD(11,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(11,1,1,0)="^.1"
^DD(11,1,1,1,0)="11^C"
^DD(11,1,1,1,1)="S ^DIC(11,""C"",$E(X,1,30),DA)="""""
^DD(11,1,1,1,2)="K ^DIC(11,""C"",$E(X,1,30),DA)"
^DD(11,1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(11,1,21,0)="^^3^3^2911222^"
^DD(11,1,21,1,0)="This field contains an abbreviation for this marital status.  Outputs"
^DD(11,1,21,2,0)="throughout DHCP may use this abbreviation if there is insufficient room"
^DD(11,1,21,3,0)="to display the entire marital status name."
^DD(11,2,0)="MARITAL STATUS CODE^S^D:DIVORCED;M:MARRIED;N:NEVER MARRIED;S:SEPARATED;W:WIDOWED;U:UNKNOWN;^0;3^Q"
^DD(11,2,21,0)="^^5^5^3070423^^"
^DD(11,2,21,1,0)="This field contains the code for the marital status.  It must NOT be"
^DD(11,2,21,2,0)="edited unless through a software upgrade!  This field is used widely"
^DD(11,2,21,3,0)="throughout DHCP to determine programming flow.  It will be displayed"
^DD(11,2,21,4,0)="on the patient's data card as well as many other places throughout"
^DD(11,2,21,5,0)="DHCP."
^DD(11,2,"DT")="3070425"
^DD(11,"B","ABBREVIATION",1)=""
^DD(11,"B","MARITAL STATUS CODE",2)=""
^DD(11,"B","NAME",.01)=""
^DD(11,"GL",0,1,.01)=""
^DD(11,"GL",0,2,1)=""
^DD(11,"GL",0,3,2)=""
^DD(11,"IX",.01)=""
^DD(11,"IX",1)=""
^DD(11,"RQ",.01)=""
^DD(13,0)="FIELD^NL^100^5"
^DD(13,0,"DDA")="N"
^DD(13,0,"ID",3)="W:$D(^(""0"")) ?30,$P(^(""0""),U,4)"
^DD(13,0,"IX","B",13,.01)=""
^DD(13,0,"IX","B",13.01,.01)=""
^DD(13,0,"IX","C",13,3)=""
^DD(13,0,"NM","RELIGION")=""
^DD(13,0,"PT",2,.08)=""
^DD(13,0,"PT",67,.08)=""
^DD(13,0,"PT",727.802,12)=""
^DD(13,0,"PT",727.82,12)=""
^DD(13,0,"VR")="5.3"
^DD(13,0,"VRPK")="DG"
^DD(13,0,"W")="W ""  ("",$P(^(0),U,3),"")"""
^DD(13,.01,0)="NAME^RF^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(13,.01,1,0)="^.1"
^DD(13,.01,1,1,0)="13^B"
^DD(13,.01,1,1,1)="S ^DIC(13,""B"",$E(X,1,30),DA)="""""
^DD(13,.01,1,1,2)="K ^DIC(13,""B"",$E(X,1,30),DA)"
^DD(13,.01,1,2,0)="13^B"
^DD(13,.01,1,2,1)="S ^DIC(13,""B"",X,DA)="""""
^DD(13,.01,1,2,2)="K ^DIC(13,""B"",X,DA)"
^DD(13,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(13,.01,21,0)="^^4^4^3080331^"
^DD(13,.01,21,1,0)="This field contains the name of the religion as it will appear to users at"
^DD(13,.01,21,2,0)="the time of selection in the registration module.  This name will appear"
^DD(13,.01,21,3,0)="in various reports and options throughout DHCP.  This field should not"
^DD(13,.01,21,4,0)="be altered."
^DD(13,.01,"DT")="3080331"
^DD(13,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(13,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(13,1,21,0)="^^4^4^2911222^"
^DD(13,1,21,1,0)="This field contains an abbreviation for this religion.  This abbreviation"
^DD(13,1,21,2,0)="will appear on outputs or displays where there in insufficient room for"
^DD(13,1,21,3,0)="the full name of the religion.  This field should not be altered at the"
^DD(13,1,21,4,0)="site level."
^DD(13,2,0)="CLASSIFICATION^S^1:CATHOLIC;2:PROTESTANT;3:JEWISH;4:ORTHODOX;5:OTHER;^0;3^Q"
^DD(13,2,21,0)="^^4^4^2911222^"
^DD(13,2,21,1,0)="This field should contain the classification of the religion (whether"
^DD(13,2,21,2,0)="it be Catholic, Protestant, Jewish, Orthodox, or something other than"
^DD(13,2,21,3,0)="what is listed.  This field is distributed by the MAS module and should"
^DD(13,2,21,4,0)="not be altered in any way."
^DD(13,3,0)="CODE^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(13,3,1,0)="^.1"
^DD(13,3,1,1,0)="13^C"
^DD(13,3,1,1,1)="S ^DIC(13,""C"",$E(X,1,30),DA)="""""
^DD(13,3,1,1,2)="K ^DIC(13,""C"",$E(X,1,30),DA)"
^DD(13,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(13,3,21,0)="^^5^5^2911222^"
^DD(13,3,21,1,0)="This field contains the numeric code for this particular religion.  This"
^DD(13,3,21,2,0)="code is transmitted to Austin with various DHCP packages.  It must NOT"
^DD(13,3,21,3,0)="be altered in any way as this could cause severe negative impacts on "
^DD(13,3,21,4,0)="various DHCP modules and could cause rejected records to be returned from"
^DD(13,3,21,5,0)="Austin."
^DD(13,3,"DT")="2840202"
^DD(13,100,0)="SYNONYM^13.01^^.01;0"
^DD(13,100,21,0)="^^2^2^2911222^"
^DD(13,100,21,1,0)="This multiple contains all of the alternative names by which this religion"
^DD(13,100,21,2,0)="may be selected by the user."
^DD(13,"B","ABBREVIATION",1)=""
^DD(13,"B","CLASSIFICATION",2)=""
^DD(13,"B","CODE",3)=""
^DD(13,"B","NAME",.01)=""
^DD(13,"B","SYNONYM",100)=""
^DD(13,"GL",0,1,.01)=""
^DD(13,"GL",0,2,1)=""
^DD(13,"GL",0,3,2)=""
^DD(13,"GL",0,4,3)=""
^DD(13,"GL",.01,0,100)=""
^DD(13,"IX",.01)=""
^DD(13,"IX",3)=""
^DD(13,"RQ",.01)=""
^DD(13,"SB",13.01,100)=""
^DD(13.01,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(13.01,0,"NM","SYNONYM")=""
^DD(13.01,0,"UP")="13"
^DD(13.01,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(13.01,.01,1,0)="^.1"
^DD(13.01,.01,1,1,0)="13^B^MNEMONIC"
^DD(13.01,.01,1,1,1)="S ^DIC(13,""B"",$E(X,1,30),DA(1),DA)=1"
^DD(13.01,.01,1,1,2)="K ^DIC(13,""B"",$E(X,1,30),DA(1),DA)"
^DD(13.01,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(13.01,.01,21,0)="^^3^3^2911222^"
^DD(13.01,.01,21,1,0)="This field contains another name by which a user may choose this religion."
^DD(13.01,.01,21,2,0)="Entry of either the name of the religion or one of the synonyms will cause"
^DD(13.01,.01,21,3,0)="this religion to be selected."
^DD(13.01,.01,"DT")="2821013"
^DD(13.01,"B","SYNONYM",.01)=""
^DD(13.01,"GL",0,1,.01)=""
^DD(13.01,"IX",.01)=""
^DD(14.4,0)="FIELD^^152^49"
^DD(14.4,0,"DT")="3000307"
^DD(14.4,0,"NM","TASKS")=""
^DD(14.4,0,"VR")="8.0"
^DD(14.4,0,"VRPK")="XU"
^DD(14.4,.001,0)="NUMBER^NJ10,0^^ ^K:+X'=X!(X>9899999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(14.4,.001,3)="Type a Number between 1 and 9899999999, 0 Decimal Digits"
^DD(14.4,.001,9)="^"
^DD(14.4,.001,21,0)="^^1^1^2940630^"
^DD(14.4,.001,21,1,0)="This is the TASK number."
^DD(14.4,.001,"DT")="2940517"
^DD(14.4,.01,0)="Entry Point^RF^^0;1^K:$L(X)>8!($L(X)<1)!'((X?1A.7AN)) X"
^DD(14.4,.01,1,0)="^.1^^0"
^DD(14.4,.01,3)="Answer must be 1-8 characters in length."
^DD(14.4,.01,9)="^"
^DD(14.4,.01,21,0)="^^1^1^2940630^"
^DD(14.4,.01,21,1,0)="This is the entry point in the routine to use."
^DD(14.4,.01,"DT")="2940705"
^DD(14.4,2,0)="Routine Name^RF^^0;2^K:$L(X)>20!($L(X)<1)!'((X?1A.7AN.1""("".E)!(X?1""%"".7AN.1""("".E)) X"
^DD(14.4,2,3)="Answer must be 1-20 characters in length."
^DD(14.4,2,9)="^"
^DD(14.4,2,21,0)="^^2^2^2940630^"
^DD(14.4,2,21,1,0)="This is the ROUTINE that should be run when the scheduled time "
^DD(14.4,2,21,2,0)="comes."
^DD(14.4,2,"DT")="2940705"
^DD(14.4,3,0)="User^RP200'^VA(200,^0;3^Q"
^DD(14.4,3,9)="^"
^DD(14.4,3,21,0)="^^3^3^2940630^"
^DD(14.4,3,21,1,0)="This is a pointer to the NEW PERSON file of the person the created"
^DD(14.4,3,21,2,0)="the task."
^DD(14.4,3,21,3,0)="It is only valid if the task was created in this UCI."
^DD(14.4,3,"DT")="2940705"
^DD(14.4,4,0)="Requested UCI^F^^0;4^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,4,3)="Answer must be 1-8 characters in length."
^DD(14.4,4,9)="^"
^DD(14.4,4,21,0)="^^1^1^2940630^"
^DD(14.4,4,21,1,0)="This is the UCI that the job requested that the task run in."
^DD(14.4,4,"DT")="2940518"
^DD(14.4,5,0)="Creation Time ($H)^F^^0;5^K:$L(X)>12!($L(X)<5)!'(X?5N1"",""1.5N) X"
^DD(14.4,5,3)="Answer must be 5-12 characters in length."
^DD(14.4,5,9)="^"
^DD(14.4,5,21,0)="^^1^1^2940630^"
^DD(14.4,5,21,1,0)="This is the time that the task was created."
^DD(14.4,5,"DT")="2940518"
^DD(14.4,6,0)="Scheduled Run Time ($H)^F^^0;6^K:$L(X)>12!($L(X)<5)!'(X?5N1""%""1.5N) X"
^DD(14.4,6,3)="Answer must be 5-12 characters in length."
^DD(14.4,6,9)="^"
^DD(14.4,6,21,0)="^^1^1^2940630^"
^DD(14.4,6,21,1,0)="This is the time that the task is scheduled to run."
^DD(14.4,6,"DT")="2940531"
^DD(14.4,7,0)="Type of Task^F^^0;7^K:$L(X)>1!($L(X)<1) X"
^DD(14.4,7,3)="Answer must be 1 character in length."
^DD(14.4,7,9)="^"
^DD(14.4,7,21,0)="^^2^2^2940630^"
^DD(14.4,7,21,1,0)="This is a flag to tell if it is an option or a routine that is"
^DD(14.4,7,21,2,0)="scheduled."
^DD(14.4,7,"DT")="2940518"
^DD(14.4,8,0)="Option Number^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(14.4,8,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(14.4,8,9)="^"
^DD(14.4,8,21,0)="^^2^2^2940630^"
^DD(14.4,8,21,1,0)="This is the IEN of the option to run."
^DD(14.4,8,21,2,0)="It is only valid if the task was created in this UCI."
^DD(14.4,8,"DT")="2940518"
^DD(14.4,9,0)="Option Name^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(14.4,9,3)="Answer must be 1-30 characters in length."
^DD(14.4,9,9)="^"
^DD(14.4,9,21,0)="^^1^1^2940630^"
^DD(14.4,9,21,1,0)="This is the name of the option that is scheduled to run."
^DD(14.4,9,"DT")="2940518"
^DD(14.4,10,0)="Creator Name^F^^0;10^K:$L(X)>30!($L(X)<2) X"
^DD(14.4,10,3)="Answer must be 2-30 characters in length."
^DD(14.4,10,9)="^"
^DD(14.4,10,21,0)="^^1^1^2940630^"
^DD(14.4,10,21,1,0)="This is the name of the Person that created the task."
^DD(14.4,10,"DT")="2940518"
^DD(14.4,11,0)="Creation UCI^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,11,3)="Answer must be 1-8 characters in length."
^DD(14.4,11,9)="^"
^DD(14.4,11,21,0)="^^1^1^2940630^"
^DD(14.4,11,21,1,0)="This is the UCI that the task was created in."
^DD(14.4,11,"DT")="2940518"
^DD(14.4,12,0)="Creation Volume Set^F^^0;12^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,12,3)="Answer must be 1-8 characters in length."
^DD(14.4,12,9)="^"
^DD(14.4,12,21,0)="^^1^1^2940630^"
^DD(14.4,12,21,1,0)="This is the Volume Set that the task was created on."
^DD(14.4,12,"DT")="2940518"
^DD(14.4,13,0)="RESERVED^F^^0;13^K:$L(X)>6!($L(X)<6) X"
^DD(14.4,13,3)="This is a holder for the string ZTDESC"
^DD(14.4,13,21,0)="^^2^2^3010614^"
^DD(14.4,13,21,1,0)="This is a place holder field for the string ZTDESC that is placed in"
^DD(14.4,13,21,2,0)="this position by the code."
^DD(14.4,13,"DT")="3010614"
^DD(14.4,14,0)="Requested Volume Set^F^^0;14^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,14,3)="Answer must be 1-8 characters in length."
^DD(14.4,14,9)="^"
^DD(14.4,14,21,0)="^^1^1^2940630^"
^DD(14.4,14,21,1,0)="This is the Volume Set that was requested for the running of the task."
^DD(14.4,14,"DT")="2940518"
^DD(14.4,15,0)="Priority^NJ2,0^^0;15^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(14.4,15,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(14.4,15,9)="^"
^DD(14.4,15,21,0)="^^3^3^2940630^^"
^DD(14.4,15,21,1,0)="This field is the priority that the task should run at."
^DD(14.4,15,21,2,0)="It is a value passed in by the calling routine and over-rides"
^DD(14.4,15,21,3,0)="the default."
^DD(14.4,15,"DT")="2940527"
^DD(14.4,16,0)="Original Create date ($H)^F^^0;16^K:$L(X)>11!($L(X)<5)!'(X?5N1"",""1.5N) X"
^DD(14.4,16,3)="Answer must be 5-11 characters in length."
^DD(14.4,16,21,0)="^^3^3^3010614^"
^DD(14.4,16,21,1,0)="This field will get the original creation $H when the task is"
^DD(14.4,16,21,2,0)="requeued thru the REQ^%ZTLOAD API."
^DD(14.4,16,21,3,0)="At other times it will be empty."
^DD(14.4,16,"DT")="3010614"
^DD(14.4,21,0)="Original Destination UCI^F^^.01;1^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,21,3)="Answer must be 1-8 characters in length."
^DD(14.4,21,9)="^"
^DD(14.4,21,21,0)="^^1^1^2940630^^"
^DD(14.4,21,21,1,0)="This is the Original Destination UCI that was given."
^DD(14.4,21,"DT")="2940527"
^DD(14.4,22,0)="Original Destination Volume^F^^.01;2^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,22,3)="Answer must be 1-8 characters in length."
^DD(14.4,22,9)="^"
^DD(14.4,22,21,0)="^^1^1^2940630^^"
^DD(14.4,22,21,1,0)="This field holds the Original Destination Volume."
^DD(14.4,22,"DT")="2940527"
^DD(14.4,31,0)="Current Destination UCI^F^^.02;1^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,31,3)="Answer must be 1-8 characters in length."
^DD(14.4,31,9)="^"
^DD(14.4,31,21,0)="^^1^1^2940630^^"
^DD(14.4,31,21,1,0)="This field holds the Current Destination UCI."
^DD(14.4,31,"DT")="2940527"
^DD(14.4,32,0)="Current Destination Volume Set^F^^.02;2^K:$L(X)>8!($L(X)<1) X"
^DD(14.4,32,3)="Answer must be 1-8 characters in length."
^DD(14.4,32,9)="^"
^DD(14.4,32,21,0)="^^1^1^2940630^^"
^DD(14.4,32,21,1,0)="This field holds the Current Destination Volume Set."
^DD(14.4,32,"DT")="2940527"
^DD(14.4,33,0)="Hop Count^NJ2,0^^.02;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.4,33,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(14.4,33,21,0)="^^5^5^3030123^"
^DD(14.4,33,21,1,0)="This field is used by Taskmanager to keep track of the number of times that "
^DD(14.4,33,21,2,0)="a task is moved to a new system trying to start it."
^DD(14.4,33,21,3,0)="After 3 hops taskman will reject the task.  This will help keep it from "
^DD(14.4,33,21,4,0)="filling up a disk."
^DD(14.4,33,21,5,0)=""
^DD(14.4,33,"DT")="3030123"
^DD(14.4,41,0)="Task Description^F^^.03;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(14.4,41,3)="Answer must be 1-240 characters in length."
^DD(14.4,41,9)="^"
^DD(14.4,41,21,0)="^^2^2^2940630^"
^DD(14.4,41,21,1,0)="This field holds the task description that was given by the creating"
^DD(14.4,41,21,2,0)="application."
^DD(14.4,41,"DT")="2940527"
^DD(14.4,42,0)="Schedule Time Seconds^NJ10,0^^.04;1^K:+X'=X!(X>9999999999)!(X<86400)!(X?.E1"".""1N.N) X"
^DD(14.4,42,3)="Type a Number between 86400 and 9999999999, 0 Decimal Digits"
^DD(14.4,42,21,0)="^^2^2^3000307^"
^DD(14.4,42,21,1,0)="This field holds the Scheduled run time in seconds."
^DD(14.4,42,21,2,0)="It is value is $$H3^%ZTM(<field #6>)."
^DD(14.4,42,"DT")="3000307"
^DD(14.4,51,0)="Status Code^F^^.1;1^K:$L(X)>1!($L(X)<1) X"
^DD(14.4,51,3)="Answer must be 1 character in length."
^DD(14.4,51,9)="^"
^DD(14.4,51,21,0)="^^1^1^2940630^"
^DD(14.4,51,21,1,0)="This is a status code to show that last know state of the task."
^DD(14.4,51,"DT")="2940531"
^DD(14.4,52,0)="Last Update $H^F^^.1;2^K:$L(X)>12!($L(X)<5)!'(X?5.6N1"",""1.5N) X"
^DD(14.4,52,3)="Answer must be 5-12 characters in length."
^DD(14.4,52,9)="^"
^DD(14.4,52,21,0)="^^1^1^2940630^"
^DD(14.4,52,21,1,0)="This field holds the $H date when the status code was last updated."
^DD(14.4,52,"DT")="2940527"
^DD(14.4,53,0)="Status Notes^F^^.1;3^K:$L(X)>50!($L(X)<1) X"
^DD(14.4,53,3)="Answer must be 1-50 characters in length."
^DD(14.4,53,9)="^"
^DD(14.4,53,21,0)="^^2^2^2940630^"
^DD(14.4,53,21,1,0)="This field holds and text string that was included to expaned the status"
^DD(14.4,53,21,2,0)="code."
^DD(14.4,53,"DT")="2940527"
^DD(14.4,54,0)="Job^NJ9,0^^.1;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.4,54,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(14.4,54,21,0)="^^2^2^3030123^"
^DD(14.4,54,21,1,0)="This field holds the $JOB value for the process that ran the task."
^DD(14.4,54,21,2,0)=""
^DD(14.4,54,"DT")="3030123"
^DD(14.4,59.1,0)="Stop Flag^F^^.1;10^K:$L(X)>1!($L(X)<1) X"
^DD(14.4,59.1,3)="Answer must be 1 character in length."
^DD(14.4,59.1,9)="^"
^DD(14.4,59.1,21,0)="^^2^2^2940630^"
^DD(14.4,59.1,21,1,0)="This field holds the flag that indicates that the user has asked"
^DD(14.4,59.1,21,2,0)=" the task to stop."
^DD(14.4,59.1,"DT")="2940527"
^DD(14.4,59.8,0)="Remember Untill^F^^.1;8^K:$L(X)>11!($L(X)<5)!'(X?1.N.1"","".5N) X"
^DD(14.4,59.8,3)="Answer must be a $H date/time."
^DD(14.4,59.8,21,0)="^^3^3^2950313^"
^DD(14.4,59.8,21,1,0)="This field holds the $Horolog value for the date to remember the"
^DD(14.4,59.8,21,2,0)="task untill.  The task cleanup routine will not remove the task record"
^DD(14.4,59.8,21,3,0)="untill after this date."
^DD(14.4,59.8,"DT")="2950313"
^DD(14.4,61,0)="Message to User^F^^.11;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(14.4,61,3)="Answer must be 1-240 characters in length."
^DD(14.4,61,9)="^"
^DD(14.4,61,21,0)="^^2^2^2940630^"
^DD(14.4,61,21,1,0)="This field holds and message that the task sends back to the used"
^DD(14.4,61,21,2,0)="when checking the stop flag."
^DD(14.4,61,"DT")="2940527"
^DD(14.4,71,0)="Error Count^NJ1,0^^.12;1^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.4,71,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(14.4,71,9)="^"
^DD(14.4,71,21,0)="^^3^3^2950203^^"
^DD(14.4,71,21,1,0)="This field holds a count of the retries if the sub-manager gets"
^DD(14.4,71,21,2,0)="and error while setting up the task.  The current limit is 5"
^DD(14.4,71,21,3,0)="before the sub-manager stops trying."
^DD(14.4,71,"DT")="2950203"
^DD(14.4,72,0)="Error $H^F^^.12;2^K:$L(X)>12!($L(X)<5) X"
^DD(14.4,72,3)="Answer must be 5-12 characters in length."
^DD(14.4,72,9)="^"
^DD(14.4,72,21,0)="^^1^1^2940630^"
^DD(14.4,72,21,1,0)="This field holds the $H value of when an eror occured."
^DD(14.4,72,"DT")="2940527"
^DD(14.4,73,0)="Error Message^F^^.12;3^K:$L(X)>200!($L(X)<1) X"
^DD(14.4,73,3)="Answer must be 1-200 characters in length."
^DD(14.4,73,21,0)="^^1^1^2950203^^"
^DD(14.4,73,21,1,0)="This field holds and OS error message if any error occurs."
^DD(14.4,73,"DT")="2950203"
^DD(14.4,81,0)="Device IOP value^F^^.2;1^K:$L(X)>45!($L(X)<1) X"
^DD(14.4,81,3)="Answer must be 1-45 characters in length."
^DD(14.4,81,9)="^"
^DD(14.4,81,21,0)="^^2^2^2940630^"
^DD(14.4,81,21,1,0)="This field holds the string that will be passed to %ZIS in the IOP"
^DD(14.4,81,21,2,0)="variable."
^DD(14.4,81,"DT")="2940527"
^DD(14.4,82,0)="$IO value^F^^.2;2^K:$L(X)>45!($L(X)<1) X"
^DD(14.4,82,3)="Answer must be 1-45 characters in length."
^DD(14.4,82,9)="^"
^DD(14.4,82,21,0)="^^2^2^2940630^"
^DD(14.4,82,21,1,0)="This field holds the resolved $IO value that was returned from"
^DD(14.4,82,21,2,0)="%ZIS."
^DD(14.4,82,"DT")="2940527"
^DD(14.4,83,0)="Device Type^F^^.2;3^K:$L(X)>5!($L(X)<1) X"
^DD(14.4,83,3)="Answer must be 1-5 characters in length."
^DD(14.4,83,9)="^"
^DD(14.4,83,21,0)="^^1^1^2940630^"
^DD(14.4,83,21,1,0)="This field holds the device type that was returned from %ZIS."
^DD(14.4,83,"DT")="2940527"
^DD(14.4,84,0)="Device Sub-Type^F^^.2;4^K:$L(X)>45!($L(X)<1) X"
^DD(14.4,84,3)="Answer must be 1-45 characters in length."
^DD(14.4,84,9)="^"
^DD(14.4,84,21,0)="^^1^1^2940630^"
^DD(14.4,84,21,1,0)="This field holds the Terminal Type value returned from %ZIS."
^DD(14.4,84,"DT")="2940527"
^DD(14.4,85,0)="Device %IS modifier^F^^.2;5^K:$L(X)>5!($L(X)<1) X"
^DD(14.4,85,3)="Answer must be 1-5 characters in length."
^DD(14.4,85,9)="^"
^DD(14.4,85,21,0)="^^1^1^2940630^"
^DD(14.4,85,21,1,0)="This field holds any modifieds to the %ZIS call."
^DD(14.4,85,"DT")="2940527"
^DD(14.4,86,0)="Host File Address^F^^.2;6^K:$L(X)>45!($L(X)<1) X"
^DD(14.4,86,3)="Answer must be 1-45 characters in length."
^DD(14.4,86,9)="^"
^DD(14.4,86,21,0)="^^2^2^2940630^"
^DD(14.4,86,21,1,0)="If the device requested is a Host File then this field holds the"
^DD(14.4,86,21,2,0)="name of the Host file."
^DD(14.4,86,"DT")="2940527"
^DD(14.4,87,0)="Sync Flag^F^^.2;7^K:$L(X)>30!($L(X)<1) X"
^DD(14.4,87,3)="Answer must be 1-30 characters in length."
^DD(14.4,87,9)="^"
^DD(14.4,87,21,0)="^^4^4^2940630^^"
^DD(14.4,87,21,1,0)="This field holds the Sync Flag that will be used to control other"
^DD(14.4,87,21,2,0)="tasks with the same Sync Flag."
^DD(14.4,87,21,3,0)="If one task with a Sync Flag doesn't finish properly other tasks"
^DD(14.4,87,21,4,0)="with the same Sync Flag will be prevented from running."
^DD(14.4,87,"DT")="2940527"
^DD(14.4,88,0)="IO Reschedule Count^NJ2,0^^.2;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.4,88,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(14.4,88,21,0)="^^3^3^3000307^"
^DD(14.4,88,21,1,0)="This field holds a count of the number of times a task has been"
^DD(14.4,88,21,2,0)="re-Scheduled because the HFS or SPL type device has been busy."
^DD(14.4,88,21,3,0)="This can be used to find tasks that are looping because of a bad device."
^DD(14.4,88,"DT")="3000307"
^DD(14.4,91,0)="Device file entry^P3.5'^%ZIS(1,^.21;1^Q"
^DD(14.4,91,9)="^"
^DD(14.4,91,21,0)="^^1^1^2940630^"
^DD(14.4,91,21,1,0)="This field holds the IEN of the device that was selected."
^DD(14.4,91,"DT")="2940527"
^DD(14.4,95,0)="Device parameters^F^^.25;1^K:$L(X)>45!($L(X)<1) X"
^DD(14.4,95,3)="Answer must be 1-45 characters in length."
^DD(14.4,95,9)="^"
^DD(14.4,95,21,0)="^^1^1^2940630^"
^DD(14.4,95,21,1,0)="This field holds other device parameters."
^DD(14.4,95,"DT")="2940527"
^DD(14.4,96,0)="Hunt Group Name^F^^.26;1^K:$L(X)>30!($L(X)<1) X"
^DD(14.4,96,3)="Answer must be 1-30 characters in length."
^DD(14.4,96,9)="^"
^DD(14.4,96,21,0)="^^1^1^2940630^"
^DD(14.4,96,21,1,0)="This field holds name of the hunt group that the device is in."
^DD(14.4,96,"DT")="2940527"
^DD(14.4,101,0)="ROUTINE^CJ15^^ ; ^S Y(14.4,101,1)=$S($D(^%ZTSK(D0,0)):^(0),1:"""") S X=$P(Y(14.4,101,1),U,1)_""^"",Y(14.4,101,2)=X S X=$P(Y(14.4,101,1),U,2),Y=X,X=Y(14.4,101,2),X=X_Y"
^DD(14.4,101,9)="^"
^DD(14.4,101,9.01)="14.4^2;14.4^.01"
^DD(14.4,101,9.1)="(Entry Point)_""^""_(Routine Name)"
^DD(14.4,105,0)="Creation DT^CJ17^^ ; ^S X=$$HTE^XLFDT($P($G(^%ZTSK(D0,0)),U,5),""2F"")"
^DD(14.4,105,9)="^"
^DD(14.4,105,9.01)="14.4^5"
^DD(14.4,105,9.1)="XLFDTHTE(#5,""2F"")"
^DD(14.4,105,21,0)="^^1^1^2940630^"
^DD(14.4,105,21,1,0)="Convert the creation $H into printable format."
^DD(14.4,106,0)="Scheduled Run DT^CJ17^^ ; ^S X=$$HTE^XLFDT($P($G(^%ZTSK(D0,0)),U,6),""2F"")"
^DD(14.4,106,9)="^"
^DD(14.4,106,9.01)="14.4^6"
^DD(14.4,106,9.1)="XLFDTHTE(#6,""2F"")"
^DD(14.4,106,21,0)="^^1^1^2940630^"
^DD(14.4,106,21,1,0)="Convert the scheduled run $H to printable format."
^DD(14.4,152,0)="Status DT^CJ17^^ ; ^S X=$$HTE^XLFDT($P($G(^%ZTSK(D0,.1)),U,2),""2F"")"
^DD(14.4,152,9)="^"
^DD(14.4,152,9.01)="14.4^52"
^DD(14.4,152,9.1)="XLFDTHTE(#52,""2F"")"
^DD(14.4,152,21,0)="^^1^1^2940630^"
^DD(14.4,152,21,1,0)="Convert the status $H to printable format."
^DD(14.4,"B","$IO value",82)=""
^DD(14.4,"B","Creation DT",105)=""
^DD(14.4,"B","Creation Time ($H)",5)=""
^DD(14.4,"B","Creation UCI",11)=""
^DD(14.4,"B","Creation Volume Set",12)=""
^DD(14.4,"B","Creator Name",10)=""
^DD(14.4,"B","Current Destination UCI",31)=""
^DD(14.4,"B","Current Destination Volume Set",32)=""
^DD(14.4,"B","Device %IS modifier",85)=""
^DD(14.4,"B","Device IOP value",81)=""
^DD(14.4,"B","Device Sub-Type",84)=""
^DD(14.4,"B","Device Type",83)=""
^DD(14.4,"B","Device file entry",91)=""
^DD(14.4,"B","Device parameters",95)=""
^DD(14.4,"B","Entry Point",.01)=""
^DD(14.4,"B","Error $H",72)=""
^DD(14.4,"B","Error Count",71)=""
^DD(14.4,"B","Error Message",73)=""
^DD(14.4,"B","Hop Count",33)=""
^DD(14.4,"B","Host File Address",86)=""
^DD(14.4,"B","Hunt Group Name",96)=""
^DD(14.4,"B","IO Reschedule Count",88)=""
^DD(14.4,"B","Job",54)=""
^DD(14.4,"B","Last Update $H",52)=""
^DD(14.4,"B","Message to User",61)=""
^DD(14.4,"B","NUMBER",.001)=""
^DD(14.4,"B","Option Name",9)=""
^DD(14.4,"B","Option Number",8)=""
^DD(14.4,"B","Original Create date ($H)",16)=""
^DD(14.4,"B","Original Destination UCI",21)=""
^DD(14.4,"B","Original Destination Volume",22)=""
^DD(14.4,"B","Priority",15)=""
^DD(14.4,"B","RESERVED",13)=""
^DD(14.4,"B","ROUTINE",101)=""
^DD(14.4,"B","Remember Untill",59.8)=""
^DD(14.4,"B","Requested UCI",4)=""
^DD(14.4,"B","Requested Volume Set",14)=""
^DD(14.4,"B","Routine Name",2)=""
^DD(14.4,"B","Schedule Time Seconds",42)=""
^DD(14.4,"B","Scheduled Run DT",106)=""
^DD(14.4,"B","Scheduled Run Time ($H)",6)=""
^DD(14.4,"B","Status Code",51)=""
^DD(14.4,"B","Status DT",152)=""
^DD(14.4,"B","Status Notes",53)=""
^DD(14.4,"B","Stop Flag",59.1)=""
^DD(14.4,"B","Sync Flag",87)=""
^DD(14.4,"B","Task Description",41)=""
^DD(14.4,"B","Type of Task",7)=""
^DD(14.4,"B","User",3)=""
^DD(14.4,"GL",0,1,.01)=""
^DD(14.4,"GL",0,2,2)=""
^DD(14.4,"GL",0,3,3)=""
^DD(14.4,"GL",0,4,4)=""
^DD(14.4,"GL",0,5,5)=""
^DD(14.4,"GL",0,6,6)=""
^DD(14.4,"GL",0,7,7)=""
^DD(14.4,"GL",0,8,8)=""
^DD(14.4,"GL",0,9,9)=""
^DD(14.4,"GL",0,10,10)=""
^DD(14.4,"GL",0,11,11)=""
^DD(14.4,"GL",0,12,12)=""
^DD(14.4,"GL",0,13,13)=""
^DD(14.4,"GL",0,14,14)=""
^DD(14.4,"GL",0,15,15)=""
^DD(14.4,"GL",0,16,16)=""
^DD(14.4,"GL",.01,1,21)=""
^DD(14.4,"GL",.01,2,22)=""
^DD(14.4,"GL",.02,1,31)=""
^DD(14.4,"GL",.02,2,32)=""
^DD(14.4,"GL",.02,3,33)=""
^DD(14.4,"GL",.03,"E1,240",41)=""
^DD(14.4,"GL",.04,1,42)=""
^DD(14.4,"GL",.1,1,51)=""
^DD(14.4,"GL",.1,2,52)=""
^DD(14.4,"GL",.1,3,53)=""
^DD(14.4,"GL",.1,4,54)=""
^DD(14.4,"GL",.1,8,59.8)=""
^DD(14.4,"GL",.1,10,59.1)=""
^DD(14.4,"GL",.11,"E1,240",61)=""
^DD(14.4,"GL",.12,1,71)=""
^DD(14.4,"GL",.12,2,72)=""
^DD(14.4,"GL",.12,3,73)=""
^DD(14.4,"GL",.2,1,81)=""
^DD(14.4,"GL",.2,2,82)=""
^DD(14.4,"GL",.2,3,83)=""
^DD(14.4,"GL",.2,4,84)=""
^DD(14.4,"GL",.2,5,85)=""
^DD(14.4,"GL",.2,6,86)=""
^DD(14.4,"GL",.2,7,87)=""
^DD(14.4,"GL",.2,8,88)=""
^DD(14.4,"GL",.21,1,91)=""
^DD(14.4,"GL",.25,1,95)=""
^DD(14.4,"GL",.26,1,96)=""
^DD(14.4,"RQ",.01)=""
^DD(14.4,"RQ",2)=""
^DD(14.4,"RQ",3)=""
^DD(14.5,0)="FIELD^^9^11"
^DD(14.5,0,"DDA")="N"
^DD(14.5,0,"DT")="2941121"
^DD(14.5,0,"IX","AC",14.5,.01)=""
^DD(14.5,0,"IX","AD",14.5,.01)=""
^DD(14.5,0,"IX","AE",14.5,1)=""
^DD(14.5,0,"IX","AE2",14.5,3)=""
^DD(14.5,0,"IX","AF",14.5,1)=""
^DD(14.5,0,"IX","B",14.5,.01)=""
^DD(14.5,0,"NM","VOLUME SET")=""
^DD(14.5,0,"PT",14.5,6)=""
^DD(14.5,0,"PT",14.5,7)=""
^DD(14.5,0,"PT",14.6,1)=""
^DD(14.5,0,"PT",14.6,2)=""
^DD(14.5,0,"VR")="8.0"
^DD(14.5,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(14.5,.01,0)="VOLUME SET^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) D IT01^XUTMG145"
^DD(14.5,.01,.1)=""
^DD(14.5,.01,1,0)="^.1"
^DD(14.5,.01,1,1,0)="14.5^B"
^DD(14.5,.01,1,1,1)="S ^%ZIS(14.5,""B"",$E(X,1,30),DA)="""""
^DD(14.5,.01,1,1,2)="K ^%ZIS(14.5,""B"",$E(X,1,30),DA)"
^DD(14.5,.01,1,1,"%D",0)="^^1^1^2920523^"
^DD(14.5,.01,1,1,"%D",1,0)="TaskMan uses this cross-reference to lookup volume sets."
^DD(14.5,.01,1,2,0)="14.5^AC^MUMPS"
^DD(14.5,.01,1,2,1)="I X]"""" D S01^XUTMG145"
^DD(14.5,.01,1,2,2)="Q"
^DD(14.5,.01,1,2,"%D",0)="^^2^2^2920513^^^^"
^DD(14.5,.01,1,2,"%D",1,0)="This cross-reference updates the cross-references in the UCI Association"
^DD(14.5,.01,1,2,"%D",2,0)="file whenever a pointed-to volume set changes."
^DD(14.5,.01,1,2,"DT")="2910213"
^DD(14.5,.01,1,3,0)="14.5^AD^MUMPS"
^DD(14.5,.01,1,3,1)="I X]"""" D ^XUTMG14P"
^DD(14.5,.01,1,3,2)="Q"
^DD(14.5,.01,1,3,"%D",0)="^^1^1^2920513^^"
^DD(14.5,.01,1,3,"%D",1,0)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.5,.01,1,3,"DT")="2910213"
^DD(14.5,.01,3)="Answer must be 3-30 characters in length."
^DD(14.5,.01,4)="I $D(ZTUNIQUE) W ?5,""Volume set names must be unique."" K ZTUNIQUE"
^DD(14.5,.01,10)="System manager (from local system configuration)."
^DD(14.5,.01,11,0)="^.2LAP^1^1"
^DD(14.5,.01,11,1,0)="1"
^DD(14.5,.01,21,0)="^^3^3^2920513^^^^"
^DD(14.5,.01,21,1,0)="Answer should be the name of a volume set."
^DD(14.5,.01,21,2,0)="When each cpu can have only one volume set, this is also the cpu name."
^DD(14.5,.01,21,3,0)="Answer will be used in extended global references to reach this volume."
^DD(14.5,.01,"AUDIT")="n"
^DD(14.5,.01,"DT")="2910213"
^DD(14.5,.1,0)="TYPE^RS^G:GENERAL PURPOSE VOLUME SET;P:PRINT SERVER;C:COMPUTE SERVER;O:OTHER NON-TASKMAN VOLUME SET;^0;10^Q"
^DD(14.5,.1,.1)="Type of Volume Set"
^DD(14.5,.1,3)=""
^DD(14.5,.1,4)="W !?5,""This field is required."",!?5,""Enter ?? for more help."",!"
^DD(14.5,.1,9)="@"
^DD(14.5,.1,10)="SYSTEM CONFIGURATION"
^DD(14.5,.1,21,0)="^^29^29^2930319^"
^DD(14.5,.1,21,1,0)="This field describes how TaskMan should treat the volume set.  It takes"
^DD(14.5,.1,21,2,0)="over many of the 486 configuration functions handled by the Out of Order"
^DD(14.5,.1,21,3,0)="and Replacement Volume Set fields in versions 6.5 and 7.0."
^DD(14.5,.1,21,4,0)=" "
^DD(14.5,.1,21,5,0)="General Purpose Volume Set:  The Manager on a G type will usually send"
^DD(14.5,.1,21,6,0)="tasks back to the volume set where they were created, except that tasks"
^DD(14.5,.1,21,7,0)="that explicitly request a different volume set will be sent where they"
^DD(14.5,.1,21,8,0)="ask.  (Explicit volume set requests are made by using 1) the ZTCPU"
^DD(14.5,.1,21,9,0)="input variable to the %ZTLOAD entry point, 2) the CPU (VOL SET)"
^DD(14.5,.1,21,10,0)="field of the Device file, or 3) the Queued to What Volume Set field"
^DD(14.5,.1,21,11,0)="of the Option file.)  To transfer tasks TO a G type, TaskMan will"
^DD(14.5,.1,21,12,0)="use extended global references to copy the task to the destination"
^DD(14.5,.1,21,13,0)="Task and Schedule files, and will then remove the task from this side."
^DD(14.5,.1,21,14,0)=" "
^DD(14.5,.1,21,15,0)="Print Server:  On a P type, the Manager will run any task it finds"
^DD(14.5,.1,21,16,0)="unless the task explicitly requests a different volume set.  Tasks"
^DD(14.5,.1,21,17,0)="are transferred TO a P type the same as to a G type, and Submanagers"
^DD(14.5,.1,21,18,0)="behave the same."
^DD(14.5,.1,21,19,0)=" "
^DD(14.5,.1,21,20,0)="Compute Server:  Tasks are transferred to a C type by placing the tasks in"
^DD(14.5,.1,21,21,0)="the Link Waiting List and jobbing a Submanager across to that volume set."
^DD(14.5,.1,21,22,0)="Submanagers started on a C type will only process tasks in the Link"
^DD(14.5,.1,21,23,0)="Waiting List for their volume set."
^DD(14.5,.1,21,24,0)=" "
^DD(14.5,.1,21,25,0)="File Server and Other Non-TaskMan Volume Set: Tasks sent from or to a F or"
^DD(14.5,.1,21,26,0)="O type will be rejected."
^DD(14.5,.1,21,27,0)=" "
^DD(14.5,.1,21,28,0)="Because of the field's crucial role in guiding TaskMan's behavior, the"
^DD(14.5,.1,21,29,0)="field is required."
^DD(14.5,.1,23,0)="^^4^4^2921118^^^^"
^DD(14.5,.1,23,1,0)="This field is used by the Manager and Submanager as described above."
^DD(14.5,.1,23,2,0)="It is also used by the Global Support Routines to decide which volume"
^DD(14.5,.1,23,3,0)="sets are likely to have ^%ZTSCH(""UPDATE"") nodes that need to be killed"
^DD(14.5,.1,23,4,0)="to get the Manager to update its parameters."
^DD(14.5,.1,"AUDIT")="n"
^DD(14.5,.1,"DT")="2941121"
^DD(14.5,1,0)="INHIBIT LOGONS?^S^Y:YES;N:NO;S:SYSTEM SHUTDOWN;^0;2^Q"
^DD(14.5,1,1,0)="^.1"
^DD(14.5,1,1,1,0)="14.5^AE^MUMPS"
^DD(14.5,1,1,1,1)="I X]"""" D ^XUTMG14P"
^DD(14.5,1,1,1,2)="Q"
^DD(14.5,1,1,1,"%D",0)="^^1^1^2920513^^^^"
^DD(14.5,1,1,1,"%D",1,0)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.5,1,1,1,"DT")="2910213"
^DD(14.5,1,1,2,0)="14.5^AF^MUMPS"
^DD(14.5,1,1,2,1)="S ^%ZIS(14.5,""LOGON"",$P(^%ZIS(14.5,DA,0),U))=(""YS""[X)"
^DD(14.5,1,1,2,2)="K ^%ZIS(14.5,""LOGON"",$P(^%ZIS(14.5,DA,0),U))"
^DD(14.5,1,1,2,3)="Tells MenuMan, Security, and TaskMan when logons are inhibited."
^DD(14.5,1,1,2,"%D",0)="^^3^3^2920706^^"
^DD(14.5,1,1,2,"%D",1,0)="This cross-reference sets and kills the flag that tells MenuMan, Security,"
^DD(14.5,1,1,2,"%D",2,0)="and TaskMan that logons are inhibited for this volume set.  The flag is"
^DD(14.5,1,1,2,"%D",3,0)="kept at ^%ZIS(14.5,""LOGON"",volume set name)."
^DD(14.5,1,1,2,"DT")="2920706"
^DD(14.5,1,10)="System manager"
^DD(14.5,1,11,0)="^.2LAP^1^1"
^DD(14.5,1,11,1,0)="1"
^DD(14.5,1,21,0)="^^5^5^2960614^^^"
^DD(14.5,1,21,1,0)="Answering YES will cause TaskMan to notify Sign-on that logons are now"
^DD(14.5,1,21,2,0)="prohibited, and to stop processing tasks until logons are allowed again."
^DD(14.5,1,21,3,0)=" "
^DD(14.5,1,21,4,0)="If set to SYSTEM SHUTDOWN then taskman set this because of a pending"
^DD(14.5,1,21,5,0)="shutdown. Taskman will clear this flag when restarted."
^DD(14.5,1,"AUDIT")="n"
^DD(14.5,1,"DT")="2960614"
^DD(14.5,2,0)="LINK ACCESS?^*S^Y:YES;N:NO;^0;3^Q"
^DD(14.5,2,10)="System Manager (from local system configuration)."
^DD(14.5,2,11,0)="^.2LAP^1^1"
^DD(14.5,2,11,1,0)="1"
^DD(14.5,2,12)="Required volume sets must have link access."
^DD(14.5,2,12.1)="S DIC(""S"")=""I $S(Y=""""Y"""":1,1:$P(^%ZIS(14.5,DA,0),U,5)'=""""Y"""")"""
^DD(14.5,2,21,0)="^^7^7^2920513^^^^"
^DD(14.5,2,21,1,0)="Answer NO to tell TaskMan that this volume set cannot be accessed by"
^DD(14.5,2,21,2,0)="other volume sets using the local network links."
^DD(14.5,2,21,3,0)=" "
^DD(14.5,2,21,4,0)="Tasks that request a volume set without link access are rejected by"
^DD(14.5,2,21,5,0)="TaskMan.  Such volume sets are usually PC workstations linked into the"
^DD(14.5,2,21,6,0)="larger network.  They can access the core computers, but cannot be accessed"
^DD(14.5,2,21,7,0)="themselves."
^DD(14.5,2,"AUDIT")="n"
^DD(14.5,2,"DT")="2910218"
^DD(14.5,3,0)="OUT OF SERVICE?^S^Y:YES;N:NO;^0;4^Q"
^DD(14.5,3,1,0)="^.1"
^DD(14.5,3,1,1,0)="14.5^AE2^MUMPS"
^DD(14.5,3,1,1,1)="D ^XUTMG14P"
^DD(14.5,3,1,1,2)="Q"
^DD(14.5,3,1,1,3)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.5,3,1,1,"DT")="2940103"
^DD(14.5,3,10)="System manager."
^DD(14.5,3,11,0)="^.2LAP^1^1"
^DD(14.5,3,11,1,0)="1"
^DD(14.5,3,21,0)="^^6^6^2920706^^"
^DD(14.5,3,21,1,0)="Answer YES to temporarily prevent tasks from being sent to this volume set."
^DD(14.5,3,21,2,0)=" "
^DD(14.5,3,21,3,0)="While a volume set is out of service, tasks that would normally be sent"
^DD(14.5,3,21,4,0)="across the local links to that volume set are either saved until the volume"
^DD(14.5,3,21,5,0)="set is back in service, or sent to a replacement volume set if one is"
^DD(14.5,3,21,6,0)="specified."
^DD(14.5,3,"AUDIT")="n"
^DD(14.5,3,"DT")="2940103"
^DD(14.5,4,0)="REQUIRED VOLUME SET?^*S^Y:YES;N:NO;^0;5^Q"
^DD(14.5,4,3)=""
^DD(14.5,4,10)="System manager (from local system configuration)."
^DD(14.5,4,11,0)="^.2LAP^1^1"
^DD(14.5,4,11,1,0)="1"
^DD(14.5,4,12)="Required volume sets must have link access."
^DD(14.5,4,12.1)="S DIC(""S"")=""I $S(Y=""""N"""":1,1:$P(^%ZIS(14.5,DA,0),U,3)'=""""N"""")"""
^DD(14.5,4,21,0)="^^7^7^2920706^^"
^DD(14.5,4,21,1,0)="Answer YES if TaskMan cannot run without this volume set being accessible."
^DD(14.5,4,21,2,0)=" "
^DD(14.5,4,21,3,0)="If a volume set serves the files that the rest of the system needs, it"
^DD(14.5,4,21,4,0)="should be a required volume set.  So long as a volume set is required, the"
^DD(14.5,4,21,5,0)="normal mechanisms of handling links that are out of service or dropped are"
^DD(14.5,4,21,6,0)="bypassed for that volume set.  Instead, TaskMan waits until the link is"
^DD(14.5,4,21,7,0)="restored before processing any more tasks."
^DD(14.5,4,"AUDIT")="n"
^DD(14.5,4,"DT")="2910218"
^DD(14.5,5,0)="TASKMAN FILES UCI^RF^^0;6^K:$L(X)>30!($L(X)<2) X"
^DD(14.5,5,3)="Answer must be 2-30 characters in length."
^DD(14.5,5,10)="System manager (from local system configuration)."
^DD(14.5,5,11,0)="^.2LAP^1^1"
^DD(14.5,5,11,1,0)="1"
^DD(14.5,5,21,0)="^^3^3^2920706^^"
^DD(14.5,5,21,1,0)="Answer should be the uci that holds the ^%ZTSK and ^%ZTSCH globals."
^DD(14.5,5,21,2,0)="That uci will usually be the library uci, which is usually the manager uci."
^DD(14.5,5,21,3,0)="Answer should not contain a comma and volume set name--just the uci name."
^DD(14.5,5,"AUDIT")="n"
^DD(14.5,5,"DT")="2910219"
^DD(14.5,6,0)="TASKMAN FILES VOLUME SET^P14.5^%ZIS(14.5,^0;7^Q"
^DD(14.5,6,10)="System manager (from local system configuration)."
^DD(14.5,6,11,0)="^.2LAP^1^1"
^DD(14.5,6,11,1,0)="1"
^DD(14.5,6,21,0)="^^5^5^2920706^^"
^DD(14.5,6,21,1,0)="Answer should be the name of the volume set that holds ^%ZTSK and ^%ZTSCH."
^DD(14.5,6,21,2,0)="If that is the current volume set, you may leave this field blank."
^DD(14.5,6,21,3,0)=" "
^DD(14.5,6,21,4,0)="This field will usually be used for mounted volume sets that lack library"
^DD(14.5,6,21,5,0)="ucis of their own, and for VAX sites set up according to the VA cookbook."
^DD(14.5,6,"AUDIT")="n"
^DD(14.5,6,"DT")="2910213"
^DD(14.5,7,0)="REPLACEMENT VOLUME SET^P14.5^%ZIS(14.5,^0;8^Q"
^DD(14.5,7,10)="System manager (from local system configuration)."
^DD(14.5,7,11,0)="^.2LAP^1^1"
^DD(14.5,7,11,1,0)="1"
^DD(14.5,7,21,0)="^^9^9^2930409^^^"
^DD(14.5,7,21,1,0)="Answer should be a volume set to which tasks can be sent if this"
^DD(14.5,7,21,2,0)="volume set is unavailable."
^DD(14.5,7,21,3,0)="If tasks that need this volume set should wait, leave the field blank."
^DD(14.5,7,21,4,0)=" "
^DD(14.5,7,21,5,0)="A replacement volume set should be essentially equivalent in features to"
^DD(14.5,7,21,6,0)="the current one, since tasks that would normally run on this one will be"
^DD(14.5,7,21,7,0)="running on that one instead.  For many volume sets, no other volume set is"
^DD(14.5,7,21,8,0)="equivalent, and tasks should wait for the link to be restored rather than"
^DD(14.5,7,21,9,0)="run elsewhere."
^DD(14.5,7,"AUDIT")="n"
^DD(14.5,7,"DT")="2910213"
^DD(14.5,8,0)="DAYS TO KEEP OLD TASKS^NJ2,0^^0;9^K:+X'=X!(X>14)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.5,8,3)="Type a Number between 0 and 14, 0 Decimal Digits"
^DD(14.5,8,10)="System manager."
^DD(14.5,8,11,0)="^.2LAP^1^1"
^DD(14.5,8,11,1,0)="1"
^DD(14.5,8,21,0)="^^3^3^2920706^^"
^DD(14.5,8,21,1,0)="Answer will be used by ZTMQCLEAN option to decide which tasks to delete."
^DD(14.5,8,21,2,0)=" "
^DD(14.5,8,21,3,0)="If no answer is given, ZTMQCLEAN will keep the last seven days' tasks."
^DD(14.5,8,"AUDIT")="n"
^DD(14.5,8,"DT")="2910226"
^DD(14.5,9,0)="SIGNON/PRODUCTION VOLUME SET^S^0:No;1:Yes;^0;11^Q"
^DD(14.5,9,21,0)="^^10^10^2960917^^"
^DD(14.5,9,21,1,0)="Enter Yes if this Volume Set has the following properties:"
^DD(14.5,9,21,2,0)=" 1. Users can sign-on into the Kernel Menu system or the RPC Broker Server"
^DD(14.5,9,21,3,0)="    routine is running there."
^DD(14.5,9,21,4,0)=" 2. Has a productions UCI which contains application routines."
^DD(14.5,9,21,5,0)=" 3. The ^XTMP global is translated."
^DD(14.5,9,21,6,0)=""
^DD(14.5,9,21,7,0)="If you enter Yes the Kernel Installation and Distribution System will be able"
^DD(14.5,9,21,8,0)="to move routines to this Volume Set.  The Kernel Menu system will be able to"
^DD(14.5,9,21,9,0)="run the Menu Microsurgery and keep menus updated."
^DD(14.5,9,21,10,0)=""
^DD(14.5,9,"DT")="2960917"
^DD(14.5,"B","DAYS TO KEEP OLD TASKS",8)=""
^DD(14.5,"B","INHIBIT LOGONS?",1)=""
^DD(14.5,"B","LINK ACCESS?",2)=""
^DD(14.5,"B","OUT OF SERVICE?",3)=""
^DD(14.5,"B","REPLACEMENT VOLUME SET",7)=""
^DD(14.5,"B","REQUIRED VOLUME SET?",4)=""
^DD(14.5,"B","SIGNON/PRODUCTION VOLUME SET",9)=""
^DD(14.5,"B","TASKMAN FILES UCI",5)=""
^DD(14.5,"B","TASKMAN FILES VOLUME SET",6)=""
^DD(14.5,"B","TYPE",.1)=""
^DD(14.5,"B","Type of Volume Set",.1)="1"
^DD(14.5,"B","VOLUME SET",.01)=""
^DD(14.5,"GL",0,1,.01)=""
^DD(14.5,"GL",0,2,1)=""
^DD(14.5,"GL",0,3,2)=""
^DD(14.5,"GL",0,4,3)=""
^DD(14.5,"GL",0,5,4)=""
^DD(14.5,"GL",0,6,5)=""
^DD(14.5,"GL",0,7,6)=""
^DD(14.5,"GL",0,8,7)=""
^DD(14.5,"GL",0,9,8)=""
^DD(14.5,"GL",0,10,.1)=""
^DD(14.5,"GL",0,11,9)=""
^DD(14.5,"IX",.01)=""
^DD(14.5,"IX",1)=""
^DD(14.5,"IX",3)=""
^DD(14.5,"RQ",.01)=""
^DD(14.5,"RQ",.1)=""
^DD(14.5,"RQ",5)=""
^DD(14.6,0)="FIELD^^3^7"
^DD(14.6,0,"DDA")="N"
^DD(14.6,0,"DT")="2910212"
^DD(14.6,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^%ZIS(14.5,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(14.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(14.6,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^%ZIS(14.5,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(14.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(14.6,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(14.6,0,"IX","AC",14.6,.01)=""
^DD(14.6,0,"IX","AD",14.6,1.5)=""
^DD(14.6,0,"IX","AE",14.6,2.5)=""
^DD(14.6,0,"IX","AF",14.6,3)=""
^DD(14.6,0,"IX","B",14.6,.01)=""
^DD(14.6,0,"NM","UCI ASSOCIATION")=""
^DD(14.6,0,"VR")="8.0"
^DD(14.6,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(14.6,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(14.6,.001,.1)=""
^DD(14.6,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(14.6,.001,10)="VA FileMan (arbitrary)"
^DD(14.6,.001,11,0)="^.2LAP"
^DD(14.6,.001,21,0)="^^1^1^2910213^^^^"
^DD(14.6,.001,21,1,0)="Answer should be a unique number, used to identify this file entry."
^DD(14.6,.001,23,0)="^^2^2^2910213^^"
^DD(14.6,.001,23,1,0)="The entries in this file have no unique data elements, so the internal"
^DD(14.6,.001,23,2,0)="number is used to distinguish them."
^DD(14.6,.001,"AUDIT")="n"
^DD(14.6,.001,"DT")="2910118"
^DD(14.6,.01,0)="FROM UCI^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>32!($L(X)<2)!'(X?2ANP.ANP) X"
^DD(14.6,.01,.1)=""
^DD(14.6,.01,1,0)="^.1"
^DD(14.6,.01,1,1,0)="14.6^B"
^DD(14.6,.01,1,1,1)="S ^%ZIS(14.6,""B"",$E(X,1,30),DA)="""""
^DD(14.6,.01,1,1,2)="K ^%ZIS(14.6,""B"",$E(X,1,30),DA)"
^DD(14.6,.01,1,1,"%D",0)="^^1^1^2920523^"
^DD(14.6,.01,1,1,"%D",1,0)="This cross-reference is used directly only by FileMan."
^DD(14.6,.01,1,2,0)="14.6^AC^MUMPS"
^DD(14.6,.01,1,2,1)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D S01^XUTMG146 K ZT"
^DD(14.6,.01,1,2,2)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D K01^XUTMG146 K ZT"
^DD(14.6,.01,1,2,"%D",0)="^^1^1^2910213^^^^"
^DD(14.6,.01,1,2,"%D",1,0)="This cross-reference updates the ""AT"" and ""AV"" indices."
^DD(14.6,.01,1,2,"DT")="2910213"
^DD(14.6,.01,3)="Answer must be 2-32 characters in length."
^DD(14.6,.01,10)="System manager (from local system configuration)."
^DD(14.6,.01,11,0)="^.2LAP^1^1"
^DD(14.6,.01,11,1,0)="1"
^DD(14.6,.01,21,0)="^^1^1^2910213^^^^"
^DD(14.6,.01,21,1,0)="Answer should be the name of a uci from which a task is being transferred."
^DD(14.6,.01,"AUDIT")="n"
^DD(14.6,.01,"DT")="2910213"
^DD(14.6,1,0)="FROM VOLUME SET^R*P14.5'^%ZIS(14.5,^0;5^S DIC(""S"")=""I Y'=$P(^%ZIS(14.6,DA,0),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(14.6,1,1,0)="^.1^^-1"
^DD(14.6,1,1,1,0)="^^TRIGGER^14.6^1.5"
^DD(14.6,1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(14.6,1,1,1,1.1) X ^DD(14.6,1,1,1,1.4)"
^DD(14.6,1,1,1,1.1)="S X=DIV S X=$S('$D(^%ZIS(14.5,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(14.6,1,1,1,1.4)="S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=14.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(14.6,1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(14.6,1,1,1,2.4)"
^DD(14.6,1,1,1,2.4)="S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=14.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(14.6,1,1,1,"%D",0)="^^2^2^2910212^^"
^DD(14.6,1,1,1,"%D",1,0)="This cross-reference triggers changing the free text value in field 1.5"
^DD(14.6,1,1,1,"%D",2,0)="that corresponds to the pointer value in this field."
^DD(14.6,1,1,1,"CREATE VALUE")="FROM VOLUME SET"
^DD(14.6,1,1,1,"DELETE VALUE")="@"
^DD(14.6,1,1,1,"DT")="2910212"
^DD(14.6,1,1,1,"FIELD")="FROM VOLUME SET "
^DD(14.6,1,10)="System manager (from local system configuration)."
^DD(14.6,1,11,0)="^.2LAP^1^1"
^DD(14.6,1,11,1,0)="1"
^DD(14.6,1,12)="UCIs must be associated with UCIs on different volume sets."
^DD(14.6,1,12.1)="S DIC(""S"")=""I Y'=$P(^%ZIS(14.6,DA,0),U,6)"""
^DD(14.6,1,21,0)="^^2^2^2910213^^^"
^DD(14.6,1,21,1,0)="Answer should be the name of the volume set from which the task is being"
^DD(14.6,1,21,2,0)="transferred."
^DD(14.6,1,23,0)="^^2^2^2910213^^^"
^DD(14.6,1,23,1,0)="Altering the pointer value in this field triggers changes to the free text"
^DD(14.6,1,23,2,0)="value in field 1.5, which is used to generate the correct cross-references."
^DD(14.6,1,"AUDIT")="n"
^DD(14.6,1,"DT")="2910212"
^DD(14.6,1.5,0)="FROM VOLUME SET (FREE TEXT)^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(14.6,1.5,1,0)="^.1"
^DD(14.6,1.5,1,1,0)="14.6^AD^MUMPS"
^DD(14.6,1.5,1,1,1)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D S15^XUTMG146 K ZT"
^DD(14.6,1.5,1,1,2)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D K15^XUTMG146 K ZT"
^DD(14.6,1.5,1,1,"%D",0)="^^1^1^2910213^^"
^DD(14.6,1.5,1,1,"%D",1,0)="This cross-reference updates the ""AT"" and ""AV"" indices."
^DD(14.6,1.5,1,1,"DT")="2910213"
^DD(14.6,1.5,3)="Answer must be 2-30 characters in length."
^DD(14.6,1.5,5,1,0)="14.6^1^1"
^DD(14.6,1.5,9)="^"
^DD(14.6,1.5,10)="System manager (from local system configuration)."
^DD(14.6,1.5,11,0)="^.2LAP^1^1"
^DD(14.6,1.5,11,1,0)="1"
^DD(14.6,1.5,21,0)="^^3^3^2911212^^^^"
^DD(14.6,1.5,21,1,0)="This field is write protected and uneditable.  It is triggered by field"
^DD(14.6,1.5,21,2,0)="1, and holds the resolved pointer values for use in the file's cross-"
^DD(14.6,1.5,21,3,0)="references."
^DD(14.6,1.5,23,0)="^^3^3^2911205^^^"
^DD(14.6,1.5,23,1,0)="This field is used to generate the correct cross-references for field 1."
^DD(14.6,1.5,23,2,0)="This value can only be altered by the trigger on field 1, which ensures"
^DD(14.6,1.5,23,3,0)="that only valid VOLUME SET names are used."
^DD(14.6,1.5,"AUDIT")="n"
^DD(14.6,1.5,"DT")="2910213"
^DD(14.6,2,0)="TO VOLUME SET^*P14.5'^%ZIS(14.5,^0;6^S DIC(""S"")=""I Y'=$P(^%ZIS(14.6,DA,0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(14.6,2,1,0)="^.1^^-1"
^DD(14.6,2,1,1,0)="^^TRIGGER^14.6^2.5"
^DD(14.6,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(14.6,2,1,1,1.1) X ^DD(14.6,2,1,1,1.4)"
^DD(14.6,2,1,1,1.1)="S X=DIV S X=$S('$D(^%ZIS(14.5,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(14.6,2,1,1,1.4)="S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=14.6,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(14.6,2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^%ZIS(14.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(14.6,2,1,1,2.4)"
^DD(14.6,2,1,1,2.4)="S DIH=$S($D(^%ZIS(14.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=14.6,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(14.6,2,1,1,"%D",0)="^^2^2^2910212^"
^DD(14.6,2,1,1,"%D",1,0)="This cross-reference triggers changing the free text value in field 2.5"
^DD(14.6,2,1,1,"%D",2,0)="to correspond to the pointer value in this field."
^DD(14.6,2,1,1,"CREATE VALUE")="TO VOLUME SET"
^DD(14.6,2,1,1,"DELETE VALUE")="@"
^DD(14.6,2,1,1,"DT")="2910212"
^DD(14.6,2,1,1,"FIELD")="TO VOLUME SET "
^DD(14.6,2,10)="System manager (from local system configuration)."
^DD(14.6,2,11,0)="^.2LAP^1^1"
^DD(14.6,2,11,1,0)="1"
^DD(14.6,2,12)="UCIs must be associated with UCIs on different volume sets."
^DD(14.6,2,12.1)="S DIC(""S"")=""I Y'=$P(^%ZIS(14.6,DA,0),U,5)"""
^DD(14.6,2,21,0)="^^2^2^2910213^^"
^DD(14.6,2,21,1,0)="Answer should be the name of the volume set to which the task is being"
^DD(14.6,2,21,2,0)="transferred."
^DD(14.6,2,23,0)="^^2^2^2910213^^"
^DD(14.6,2,23,1,0)="The pointer value placed in this field triggers placing the free text"
^DD(14.6,2,23,2,0)="value in field 2.5 so that the correct cross-references are made."
^DD(14.6,2,"AUDIT")="n"
^DD(14.6,2,"DT")="2910212"
^DD(14.6,2.5,0)="TO VOLUME SET (FREE TEXT)^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(14.6,2.5,1,0)="^.1"
^DD(14.6,2.5,1,1,0)="14.6^AE^MUMPS"
^DD(14.6,2.5,1,1,1)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D S25^XUTMG146 K ZT"
^DD(14.6,2.5,1,1,2)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D K25^XUTMG146 K ZT"
^DD(14.6,2.5,1,1,"%D",0)="^^1^1^2910213^^"
^DD(14.6,2.5,1,1,"%D",1,0)="This cross-reference updates the ""AT"" and ""AV"" indices."
^DD(14.6,2.5,1,1,"DT")="2910213"
^DD(14.6,2.5,3)="Answer must be 2-30 characters in length."
^DD(14.6,2.5,5,1,0)="14.6^2^1"
^DD(14.6,2.5,9)="^"
^DD(14.6,2.5,10)="System manager (from local system configuration)."
^DD(14.6,2.5,11,0)="^.2LAP^1^1"
^DD(14.6,2.5,11,1,0)="1"
^DD(14.6,2.5,21,0)="^^3^3^2911212^^^"
^DD(14.6,2.5,21,1,0)="This field is write protected and uneditable.  It is triggered by field"
^DD(14.6,2.5,21,2,0)="2, and holds the resolved pointer values for use in the file's cross-"
^DD(14.6,2.5,21,3,0)="references."
^DD(14.6,2.5,23,0)="^^3^3^2911205^^^"
^DD(14.6,2.5,23,1,0)="This field holds the free text value associated with the value in field"
^DD(14.6,2.5,23,2,0)="2, and is triggered by changing that field.  This value is used to set"
^DD(14.6,2.5,23,3,0)="the correct cross-references for field 2."
^DD(14.6,2.5,"AUDIT")="n"
^DD(14.6,2.5,"DT")="2910213"
^DD(14.6,3,0)="TO UCI^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>32!($L(X)<2)!'(X?2ANP.ANP) X"
^DD(14.6,3,.1)=""
^DD(14.6,3,1,0)="^.1"
^DD(14.6,3,1,1,0)="14.6^AF^MUMPS"
^DD(14.6,3,1,1,1)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D S3^XUTMG146 K ZT"
^DD(14.6,3,1,1,2)="I $D(^%ZIS(14.6,DA,0))#2,X]"""" N ZT S ZT=^(0) D K3^XUTMG146 K ZT"
^DD(14.6,3,1,1,"%D",0)="^^1^1^2910213^^"
^DD(14.6,3,1,1,"%D",1,0)="This cross-reference updates the ""AT"" and ""AV"" indices."
^DD(14.6,3,1,1,"DT")="2910213"
^DD(14.6,3,3)="Answer must be 2-32 characters in length."
^DD(14.6,3,10)="System manager (from local system configuration)."
^DD(14.6,3,11,0)="^.2LAP^1^1"
^DD(14.6,3,11,1,0)="1"
^DD(14.6,3,21,0)="^^1^1^2910213^^^^"
^DD(14.6,3,21,1,0)="Answer should be the name of the uci to which the task will be transferred."
^DD(14.6,3,"AUDIT")="n"
^DD(14.6,3,"DT")="2910213"
^DD(14.6,"B","FROM UCI",.01)=""
^DD(14.6,"B","FROM VOLUME SET",1)=""
^DD(14.6,"B","FROM VOLUME SET (FREE TEXT)",1.5)=""
^DD(14.6,"B","NUMBER",.001)=""
^DD(14.6,"B","TO UCI",3)=""
^DD(14.6,"B","TO VOLUME SET",2)=""
^DD(14.6,"B","TO VOLUME SET (FREE TEXT)",2.5)=""
^DD(14.6,"GL",0,1,.01)=""
^DD(14.6,"GL",0,2,1.5)=""
^DD(14.6,"GL",0,3,2.5)=""
^DD(14.6,"GL",0,4,3)=""
^DD(14.6,"GL",0,5,1)=""
^DD(14.6,"GL",0,6,2)=""
^DD(14.6,"IX",.01)=""
^DD(14.6,"IX",1)=""
^DD(14.6,"IX",1.5)=""
^DD(14.6,"IX",2)=""
^DD(14.6,"IX",2.5)=""
^DD(14.6,"IX",3)=""
^DD(14.6,"RQ",.01)=""
^DD(14.6,"RQ",1)=""
^DD(14.7,0)="FIELD^^32^17"
^DD(14.7,0,"DDA")="N"
^DD(14.7,0,"DT")="3000317"
^DD(14.7,0,"IX","AC",14.7,4)=""
^DD(14.7,0,"IX","AD",14.7,6)=""
^DD(14.7,0,"IX","AE",14.7,7)=""
^DD(14.7,0,"IX","AF",14.7,.01)=""
^DD(14.7,0,"IX","AG",14.7,13)=""
^DD(14.7,0,"IX","AH",14.7,11)=""
^DD(14.7,0,"IX","B",14.7,.01)=""
^DD(14.7,0,"NM","TASKMAN SITE PARAMETERS")=""
^DD(14.7,0,"PT",14.7,12)=""
^DD(14.7,0,"PT",18.012,.01)=""
^DD(14.7,0,"PT",18.04,.01)=""
^DD(14.7,0,"PT",869.2,400.06)=""
^DD(14.7,0,"PT",870,400.06)=""
^DD(14.7,0,"PT",8994.17,.01)=""
^DD(14.7,0,"VR")="8.0"
^DD(14.7,0,"VRPK")="XU"
^DD(14.7,.01,0)="BOX-VOLUME PAIR^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(14.7,.01,.1)="CPU BOX-VOLUME SET PAIR"
^DD(14.7,.01,1,0)="^.1"
^DD(14.7,.01,1,1,0)="14.7^B"
^DD(14.7,.01,1,1,1)="S ^%ZIS(14.7,""B"",$E(X,1,30),DA)="""""
^DD(14.7,.01,1,1,2)="K ^%ZIS(14.7,""B"",$E(X,1,30),DA)"
^DD(14.7,.01,1,1,"%D",0)="^^1^1^2920523^"
^DD(14.7,.01,1,1,"%D",1,0)="TaskMan uses this cross-reference to lookup environments."
^DD(14.7,.01,1,2,0)="14.7^AF^MUMPS"
^DD(14.7,.01,1,2,1)="D ^XUTMG14P"
^DD(14.7,.01,1,2,2)="Q"
^DD(14.7,.01,1,2,"%D",0)="^^1^1^2910728^"
^DD(14.7,.01,1,2,"%D",1,0)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.7,.01,1,2,"DT")="2910728"
^DD(14.7,.01,3)="Answer must be 3-30 characters in length."
^DD(14.7,.01,4)="D GETENV^%ZOSV W !,""The value for the current account is "",$P(Y,""^"",4)"
^DD(14.7,.01,10)="System manager (from local system configuration)."
^DD(14.7,.01,11,0)="^.2LAP^1^1"
^DD(14.7,.01,11,1,0)="1"
^DD(14.7,.01,20,0)="^.3LA^^0"
^DD(14.7,.01,21,0)="^^7^7^2940708^"
^DD(14.7,.01,21,1,0)="Your answer should be the  volume set name concatenated with "":"""
^DD(14.7,.01,21,2,0)="concatenated with the name of the CPU."
^DD(14.7,.01,21,3,0)=" "
^DD(14.7,.01,21,4,0)="The value for the current process can be found by doing GETENV^%ZOSV and"
^DD(14.7,.01,21,5,0)="checking the fourth ^-piece of Y.  This allows the TaskMan site parameters"
^DD(14.7,.01,21,6,0)="to be applied extremely precisely, depending both upon which volume set"
^DD(14.7,.01,21,7,0)="and cpu which is affected."
^DD(14.7,.01,"AUDIT")="n"
^DD(14.7,.01,"DT")="2910728"
^DD(14.7,1,0)="RESERVED^S^Y:YES;N:NO;^0;2^Q"
^DD(14.7,1,10)="System manager."
^DD(14.7,1,11,0)="^.2LAP^1^1"
^DD(14.7,1,11,1,0)="2"
^DD(14.7,1,21,0)="^^2^2^2930409^^^"
^DD(14.7,1,21,1,0)="Answer YES to activate response time monitoring for processes using"
^DD(14.7,1,21,2,0)="this pair of resources."
^DD(14.7,1,"AUDIT")="n"
^DD(14.7,1,"DT")="2910517"
^DD(14.7,2,0)="LOG TASKS?^S^Y:YES;N:NO;^0;3^Q"
^DD(14.7,2,10)="System manager."
^DD(14.7,2,11,0)="^.2LAP^1^1"
^DD(14.7,2,11,1,0)="1"
^DD(14.7,2,21,0)="^^2^2^2930107^"
^DD(14.7,2,21,1,0)="If you answer YES, then tasks will gerenarate entries in the sign-on log"
^DD(14.7,2,21,2,0)="file."
^DD(14.7,2,"AUDIT")="n"
^DD(14.7,2,"DT")="2910118"
^DD(14.7,3,0)="DEFAULT TASK PRIORITY^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(14.7,3,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(14.7,3,10)="System manager."
^DD(14.7,3,11,0)="^.2LAP^1^1"
^DD(14.7,3,11,1,0)="1"
^DD(14.7,3,21,0)="^^7^7^2930107^"
^DD(14.7,3,21,1,0)="Your answer will set the default Kernel priority assigned to tasks."
^DD(14.7,3,21,2,0)="This value will be overridden only for special options, devices, and tasks."
^DD(14.7,3,21,3,0)=" "
^DD(14.7,3,21,4,0)="If this value is too low, jobs started by TaskMan will be unable to"
^DD(14.7,3,21,5,0)="process tasks fast enough to keep up with demand.  7-10 are good values,"
^DD(14.7,3,21,6,0)="depending on whether interactive users' priorities are set higher or lower"
^DD(14.7,3,21,7,0)="on the local system."
^DD(14.7,3,"AUDIT")="n"
^DD(14.7,3,"DT")="2910118"
^DD(14.7,4,0)="TASK PARTITION SIZE^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<10)!(X?.E1"".""1N.N) X"
^DD(14.7,4,1,0)="^.1"
^DD(14.7,4,1,1,0)="14.7^AC^MUMPS"
^DD(14.7,4,1,1,1)="I X]"""" D ^XUTMG14P"
^DD(14.7,4,1,1,2)="Q"
^DD(14.7,4,1,1,"%D",0)="^^1^1^2910728^^"
^DD(14.7,4,1,1,"%D",1,0)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.7,4,1,1,"DT")="2910213"
^DD(14.7,4,3)="Enter the number of KB (10-999) to set maximum partition size to."
^DD(14.7,4,10)="System manager."
^DD(14.7,4,11,0)="^.2LAP^1^1"
^DD(14.7,4,11,1,0)="1"
^DD(14.7,4,21,0)="^^5^5^2960813^^"
^DD(14.7,4,21,1,0)="Under MSM only, this field will be used to change the maximum partition"
^DD(14.7,4,21,2,0)="size for a JOB.  It will be used by both interactive and Tasked jobs."
^DD(14.7,4,21,3,0)=" "
^DD(14.7,4,21,4,0)="The answer is in K bytes to pass into MSM's %PARTSIZ utility. Check with"
^DD(14.7,4,21,5,0)="the 486 team for the latest recommendations."
^DD(14.7,4,"AUDIT")="n"
^DD(14.7,4,"DT")="2960813"
^DD(14.7,5,0)="SUBMANAGER RETENTION TIME^NJ3,0^^0;6^K:+X'=X!(X>600)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.7,5,3)="Type a Number between 0 and 600, 0 Decimal Digits"
^DD(14.7,5,10)="System manager."
^DD(14.7,5,11,0)="^.2LAP^1^1"
^DD(14.7,5,11,1,0)="1"
^DD(14.7,5,21,0)="^^6^6^2920504^^^"
^DD(14.7,5,21,1,0)="Answer will determine how long submanagers wait for new tasks, in seconds."
^DD(14.7,5,21,2,0)=" "
^DD(14.7,5,21,3,0)="The goal of this field is to reduce the number of JOB commands needed to"
^DD(14.7,5,21,4,0)="process a site's tasks.  By keeping old submanagers around to run new"
^DD(14.7,5,21,5,0)="tasks, new process creation is severely reduced.  Good values are 300-600"
^DD(14.7,5,21,6,0)="seconds for VAX sites, and 10-50 for others."
^DD(14.7,5,"AUDIT")="n"
^DD(14.7,5,"DT")="2910118"
^DD(14.7,6,0)="TASKMAN JOB LIMIT^RNJ4,0^^0;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1.N) X"
^DD(14.7,6,1,0)="^.1"
^DD(14.7,6,1,1,0)="14.7^AD^MUMPS"
^DD(14.7,6,1,1,1)="I X]"""" D ^XUTMG14P"
^DD(14.7,6,1,1,2)="Q"
^DD(14.7,6,1,1,"%D",0)="^^1^1^2910213^"
^DD(14.7,6,1,1,"%D",1,0)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.7,6,1,1,"DT")="2910213"
^DD(14.7,6,3)="Type a number between 1 and 9999, 0 Decimal Digits"
^DD(14.7,6,10)="System manager."
^DD(14.7,6,11,0)="^.2LAP^1^1"
^DD(14.7,6,11,1,0)="1"
^DD(14.7,6,21,0)="^^8^8^3020717^"
^DD(14.7,6,21,1,0)="If there are more active processes on the system than this number, TaskMan"
^DD(14.7,6,21,2,0)="will not create new submanagers to handle tasks.  Task processing will"
^DD(14.7,6,21,3,0)="be left to existing submanagers until the number of processes falls back"
^DD(14.7,6,21,4,0)="below this number."
^DD(14.7,6,21,5,0)=" "
^DD(14.7,6,21,6,0)="This number should be slightly lower than the Max Signons field of the"
^DD(14.7,6,21,7,0)="Kernel Site Parameters file, so that the system manager still has room"
^DD(14.7,6,21,8,0)="to sign on when TaskMan is using its greatest number of partitions."
^DD(14.7,6,"AUDIT")="n"
^DD(14.7,6,"DT")="3020717"
^DD(14.7,7,0)="TASKMAN HANG BETWEEN NEW JOBS^NJ2,0^^0;8^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.7,7,1,0)="^.1"
^DD(14.7,7,1,1,0)="14.7^AE^MUMPS"
^DD(14.7,7,1,1,1)="I X]"""" D ^XUTMG14P"
^DD(14.7,7,1,1,2)="Q"
^DD(14.7,7,1,1,"%D",0)="^^1^1^2910213^"
^DD(14.7,7,1,1,"%D",1,0)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.7,7,1,1,"DT")="2910213"
^DD(14.7,7,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(14.7,7,10)="System manager."
^DD(14.7,7,11,0)="^.2LAP^1^1"
^DD(14.7,7,11,1,0)="1"
^DD(14.7,7,21,0)="^^6^6^2920504^"
^DD(14.7,7,21,1,0)="Answer will set a delay between the creation of new submanagers, in seconds."
^DD(14.7,7,21,2,0)=" "
^DD(14.7,7,21,3,0)="Such a delay is necessary where the Retention Time is low and task"
^DD(14.7,7,21,4,0)="creation cost is high. This prevents the creation of many new submanagers"
^DD(14.7,7,21,5,0)="in quick succession from causing a perceivable delay to users.  The number"
^DD(14.7,7,21,6,0)="should be the lowest value that prevents the problem."
^DD(14.7,7,"AUDIT")="n"
^DD(14.7,7,"DT")="2910213"
^DD(14.7,8,0)="MODE OF TASKMAN^RS^G:GENERAL PROCESSOR;P:PRINT SERVER;C:COMPUTE SERVER;O:OTHER NON-TASKMAN;^0;9^Q"
^DD(14.7,8,4)="W !!,?5,""This is a required field."",!?5,""Enter '??' for more help."",!"
^DD(14.7,8,21,0)="^^32^32^2930319^"
^DD(14.7,8,21,1,0)="This field describes how TaskMan should act.  It takes over many of the"
^DD(14.7,8,21,2,0)="486 configuration functions handled by the Out of Order and Replacement"
^DD(14.7,8,21,3,0)="Volume Set fields in versions 6.5 and 7.0."
^DD(14.7,8,21,4,0)=" "
^DD(14.7,8,21,5,0)="General Processor:  The Manager on a G type will usually send"
^DD(14.7,8,21,6,0)="tasks back to the volume set where they were created, except that tasks"
^DD(14.7,8,21,7,0)="that explicitly request a different volume set will be sent where they"
^DD(14.7,8,21,8,0)="ask.  (Explicit volume set requests are made by using 1) the ZTCPU"
^DD(14.7,8,21,9,0)="input variable to the %ZTLOAD entry point, 2) the CPU (VOL SET)"
^DD(14.7,8,21,10,0)="field of the Device file, or 3) the Queued to What Volume Set field"
^DD(14.7,8,21,11,0)="of the Option file.)  To transfer tasks TO a G type, TaskMan will"
^DD(14.7,8,21,12,0)="use extended global references to copy the task to the destination"
^DD(14.7,8,21,13,0)="Task and Schedule files, and will then remove the task from this side."
^DD(14.7,8,21,14,0)="Submanagers started on a G type will process tasks in the Partition"
^DD(14.7,8,21,15,0)="Waiting List and the Busy Device Waiting Lists."
^DD(14.7,8,21,16,0)=" "
^DD(14.7,8,21,17,0)="Print Server:  On a P type, the Manager will run any task it finds"
^DD(14.7,8,21,18,0)="unless the task explicitly requests a different volume set.  Tasks"
^DD(14.7,8,21,19,0)="are transferred TO a P type the same as to a G type, and Submanagers"
^DD(14.7,8,21,20,0)="behave the same."
^DD(14.7,8,21,21,0)=" "
^DD(14.7,8,21,22,0)="Compute Server:  The Manager will not start on a C type.  Tasks are"
^DD(14.7,8,21,23,0)="transferred to a C type by placing the tasks in the Link Waiting List"
^DD(14.7,8,21,24,0)="and jobbing a Submanager across to that volume set.  Submanagers"
^DD(14.7,8,21,25,0)="started on a C type will only process tasks in the Link Waiting List for"
^DD(14.7,8,21,26,0)="their volume set."
^DD(14.7,8,21,27,0)=" "
^DD(14.7,8,21,28,0)="Other Non-TaskMan:  Neither the Manager nor the Submanager will run on O"
^DD(14.7,8,21,29,0)="types.  Tasks sent from or to a O type will be rejected."
^DD(14.7,8,21,30,0)=" "
^DD(14.7,8,21,31,0)="Because of the field's crucial role in guiding TaskMan's behavior, the"
^DD(14.7,8,21,32,0)="field is required."
^DD(14.7,8,23,0)="^^4^4^2921118^^^^"
^DD(14.7,8,23,1,0)="This field is used by the Manager and Submanager as described above."
^DD(14.7,8,23,2,0)="It is also used by the Global Support Routines to decide which volume"
^DD(14.7,8,23,3,0)="sets are likely to have ^%ZTSCH(""UPDATE"") nodes that need to be killed"
^DD(14.7,8,23,4,0)="to get the Manager to update its parameters."
^DD(14.7,8,"DT")="2921118"
^DD(14.7,9,0)="VAX ENVIROMENT FOR DCL^F^^0;10^K:$L(X)>12!($L(X)<2) X"
^DD(14.7,9,3)="Answer must be 2-12 characters in length."
^DD(14.7,9,21,0)="^^23^23^3060124^"
^DD(14.7,9,21,1,0)="This field only has meaning on OpenVMS systems."
^DD(14.7,9,21,2,0)=" "
^DD(14.7,9,21,3,0)="If this field is empty, then the M JOB command will be used."
^DD(14.7,9,21,4,0)=" "
^DD(14.7,9,21,5,0)="If this field has a value, it will cause TM to SUBMIT submanagers"
^DD(14.7,9,21,6,0)="to run from a VMS batch queue with a name of TM$<nodename>."
^DD(14.7,9,21,7,0)=" "
^DD(14.7,9,21,8,0)="For Cache VMS, Put the VMS NODE name in this field as the BOX:VOLUME field "
^DD(14.7,9,21,9,0)="has the configuration name in it."
^DD(14.7,9,21,10,0)=" "
^DD(14.7,9,21,11,0)="For VAX DSM, Put the NAME of the DSM manager that starts the environment."
^DD(14.7,9,21,12,0)=" "
^DD(14.7,9,21,13,0)="TM will submit submanagers to the queue TM$<node_name>, have this queue "
^DD(14.7,9,21,14,0)="assigned to the proper node."
^DD(14.7,9,21,15,0)=" "
^DD(14.7,9,21,16,0)="There are several VMS setups that must be in place before starting"
^DD(14.7,9,21,17,0)="to use this method."
^DD(14.7,9,21,18,0)="The TASKMAN user account and directory, ZTM2WDCL.COM and ZTMS2WDCL.COM,"
^DD(14.7,9,21,19,0)="Batch queue TM$<node>, DHCP$TASKMAN logical."
^DD(14.7,9,21,20,0)="(For DSM use ZTMWDCL.COM and ZTMSWDCL.COM)"
^DD(14.7,9,21,21,0)=" "
^DD(14.7,9,21,22,0)="For more information, See the systems management issues section of the"
^DD(14.7,9,21,23,0)="taskman chapter in the Kernel systems manual."
^DD(14.7,9,"DT")="3060124"
^DD(14.7,10,0)="OUT OF SERVICE^RS^0:NO;1:YES;^0;11^Q"
^DD(14.7,10,3)="Answer YES to prevent any taskman jobs being sent to this cpu."
^DD(14.7,10,21,0)="^^4^4^2940118^"
^DD(14.7,10,21,1,0)="This field is used by the TASK Manager to control if any"
^DD(14.7,10,21,2,0)="new sub-manager jobs are sent to this Box-Volume Pair."
^DD(14.7,10,21,3,0)="If the manager gets an error when jobbing to another CPU it will"
^DD(14.7,10,21,4,0)="change the flag to mark the Box-Volume as Out of Service."
^DD(14.7,10,"DT")="2940118"
^DD(14.7,11,0)="MIN SUBMANAGER CNT^NJ2,0^^0;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(14.7,11,1,0)="^.1"
^DD(14.7,11,1,1,0)="14.7^AH^MUMPS"
^DD(14.7,11,1,1,1)="I X]"""" D ^XUTMG14P"
^DD(14.7,11,1,1,2)="Q"
^DD(14.7,11,1,1,3)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.7,11,1,1,"DT")="3000317"
^DD(14.7,11,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(14.7,11,21,0)="^^4^4^2960905^"
^DD(14.7,11,21,1,0)="This field sets a value that free submanagers will check and not stop if"
^DD(14.7,11,21,2,0)="there count doesn't exceed. The manager will check this and start new"
^DD(14.7,11,21,3,0)="submangers if the free count is below this value.  If this field is left"
^DD(14.7,11,21,4,0)="blank a default value of 1 is used."
^DD(14.7,11,"DT")="3000317"
^DD(14.7,12,0)="TM MASTER^P14.7'^%ZIS(14.7,^0;13^Q"
^DD(14.7,12,21,0)="^^4^4^2960905^^"
^DD(14.7,12,21,1,0)="This field is holds a pointer to the TaskMan Master Box-Volume."
^DD(14.7,12,21,2,0)="This is only needed if this Box-Volume is mounted on an other"
^DD(14.7,12,21,3,0)="configuration and shares the library account with that other"
^DD(14.7,12,21,4,0)="configuration. "
^DD(14.7,12,"DT")="2960905"
^DD(14.7,13,0)="Balance Interval^NJ3,0^^0;14^K:+X'=X!(X>120)!(X<10)!(X?.E1"".""1.N) X"
^DD(14.7,13,1,0)="^.1"
^DD(14.7,13,1,1,0)="14.7^AG^MUMPS"
^DD(14.7,13,1,1,1)="I X]"""" D ^XUTMG14P"
^DD(14.7,13,1,1,2)="Q"
^DD(14.7,13,1,1,3)="This cross-reference notifies TaskMan of changes to the field."
^DD(14.7,13,1,1,"DT")="3000317"
^DD(14.7,13,3)="Type a number between 10 and 120, 0 Decimal Digits"
^DD(14.7,13,21,0)="^^5^5^3000317^"
^DD(14.7,13,21,1,0)="This field sets the time interval in seconds that the Task Manager will"
^DD(14.7,13,21,2,0)="wait before running the ""LOAD BALANCE ROUTINE"". If this field in empty a"
^DD(14.7,13,21,3,0)="value of 30 will be used.  A lower value will cause more resources to be"
^DD(14.7,13,21,4,0)="used calculating the balance. A large value will allow a node to pick-up a"
^DD(14.7,13,21,5,0)="lot of work before balancing."
^DD(14.7,13,"DT")="3000317"
^DD(14.7,21,0)="LOAD BALANCE ROUTINE^F^^2;E1,75^K:$L(X)>75!($L(X)<3)!'(X?1""$"".1PA.E) X"
^DD(14.7,21,3)="Answer must be 3-75 characters in length. Funtion, Extrinsic function, External routine."
^DD(14.7,21,21,0)="^^28^28^3050224^"
^DD(14.7,21,21,1,0)="This field holds the name of a Function, Extrinsic function or External"
^DD(14.7,21,21,2,0)="routine call that returns a load rating. If this field contains a value,"
^DD(14.7,21,21,3,0)="TaskMan will use this name in preforming Load Balancing."
^DD(14.7,21,21,4,0)=" "
^DD(14.7,21,21,5,0)="Only use Load Balancing if you have two or more CPU's running TM that"
^DD(14.7,21,21,6,0)="share the same %ZTSCH global."
^DD(14.7,21,21,7,0)=" "
^DD(14.7,21,21,8,0)="The Load Balancing function must return a value between 1 and 256."
^DD(14.7,21,21,9,0)="Where: 1 represents a CPU with no capacity for any more work."
^DD(14.7,21,21,10,0)="       256 represents a CPU that is Idle."
^DD(14.7,21,21,11,0)=" "
^DD(14.7,21,21,12,0)="The only included functions are"
^DD(14.7,21,21,13,0)="For VAX DSM it is '$$VXD' and its algorithm is:"
^DD(14.7,21,21,14,0)="Capacity left= Available jobs - Active jobs - (4 * Computable jobs)"
^DD(14.7,21,21,15,0)=" "
^DD(14.7,21,21,16,0)="For Cache/NT it is '$$CACHE1(constant)' its algorithm is:"
^DD(14.7,21,21,17,0)="Capacity left= Available jobs + constant"
^DD(14.7,21,21,18,0)=" "
^DD(14.7,21,21,19,0)="For Cache/VMS it is '$$CACHE2(@com-file,logical-name)'."
^DD(14.7,21,21,20,0)="If the com-file value is set, that com-file will be run each time taskman"
^DD(14.7,21,21,21,0)="wants to get the balance value."
^DD(14.7,21,21,22,0)="The logical-name will default to ""VISTA$METRIC"" or us the value entered."
^DD(14.7,21,21,23,0)="The normal way would be to have $$CACHE2() in the field and use the two"
^DD(14.7,21,21,24,0)="scripts."
^DD(14.7,21,21,25,0)=" "
^DD(14.7,21,21,26,0)="A script ""GET_METRIC.COM"" will set the logical ""VISTA$METRIC""."
^DD(14.7,21,21,27,0)="This can be run by taskman or from the TM$node batch queue with the "
^DD(14.7,21,21,28,0)="script ""METRIC_SCHEDULE.COM""."
^DD(14.7,21,"DT")="3050516"
^DD(14.7,31,0)="Auto Delete Tasks^S^0:No;1:Yes;^3;1^Q"
^DD(14.7,31,21,0)="^^9^9^3000313^"
^DD(14.7,31,21,1,0)="This Field is used by the Sub-manager to control if the Sub-manger"
^DD(14.7,31,21,2,0)="should set the ZTREQ variable to ""@"" so a task will be killed when it"
^DD(14.7,31,21,3,0)="finishes unless the application modifies ZTREQ."
^DD(14.7,31,21,4,0)=" "
^DD(14.7,31,21,5,0)="Unless there is a need to save the enties in the ^%ZTSK global set this"
^DD(14.7,31,21,6,0)="field to YES.  If you are researching task errors you should set to NO"
^DD(14.7,31,21,7,0)="untill you have the data you need."
^DD(14.7,31,21,8,0)=" "
^DD(14.7,31,21,9,0)="This data will still be cleaned up by the XUTMK option."
^DD(14.7,31,"DT")="3000313"
^DD(14.7,32,0)="Manager Startup Delay^NJ3,0^^3;2^K:+X'=X!(X>180)!(X<1)!(X?.E1"".""1.N) X"
^DD(14.7,32,3)="Type a number between 1 and 180, 0 Decimal Digits"
^DD(14.7,32,21,0)="^^8^8^3000313^"
^DD(14.7,32,21,1,0)="This field is used by the Task Manager to control the delay (hang) the"
^DD(14.7,32,21,2,0)="manager will do during a START. This field is not used with a RESTART."
^DD(14.7,32,21,3,0)=" "
^DD(14.7,32,21,4,0)="The Manager Startup Delay was hard set at 60 before. After requests to"
^DD(14.7,32,21,5,0)="change the delay it has been made a parameter."
^DD(14.7,32,21,6,0)=" "
^DD(14.7,32,21,7,0)="I would think that 5 to 30 would be OK. If you get errors because jobs"
^DD(14.7,32,21,8,0)="start running before DDP/Cluster is up that use a larger number."
^DD(14.7,32,"DT")="3000313"
^DD(14.7,"B","Auto Delete Tasks",31)=""
^DD(14.7,"B","BOX-VOLUME PAIR",.01)=""
^DD(14.7,"B","Balance Interval",13)=""
^DD(14.7,"B","CPU BOX-VOLUME SET PAIR",.01)="1"
^DD(14.7,"B","DEFAULT TASK PRIORITY",3)=""
^DD(14.7,"B","LOAD BALANCE ROUTINE",21)=""
^DD(14.7,"B","LOG TASKS?",2)=""
^DD(14.7,"B","MIN SUBMANAGER CNT",11)=""
^DD(14.7,"B","MODE OF TASKMAN",8)=""
^DD(14.7,"B","Manager Startup Delay",32)=""
^DD(14.7,"B","OUT OF SERVICE",10)=""
^DD(14.7,"B","RESERVED",1)=""
^DD(14.7,"B","SUBMANAGER RETENTION TIME",5)=""
^DD(14.7,"B","TASK PARTITION SIZE",4)=""
^DD(14.7,"B","TASKMAN HANG BETWEEN NEW JOBS",7)=""
^DD(14.7,"B","TASKMAN JOB LIMIT",6)=""
^DD(14.7,"B","TM MASTER",12)=""
^DD(14.7,"B","VAX ENVIROMENT FOR DCL",9)=""
^DD(14.7,"GL",0,1,.01)=""
^DD(14.7,"GL",0,2,1)=""
^DD(14.7,"GL",0,3,2)=""
^DD(14.7,"GL",0,4,3)=""
^DD(14.7,"GL",0,5,4)=""
^DD(14.7,"GL",0,6,5)=""
^DD(14.7,"GL",0,7,6)=""
^DD(14.7,"GL",0,8,7)=""
^DD(14.7,"GL",0,9,8)=""
^DD(14.7,"GL",0,10,9)=""
^DD(14.7,"GL",0,11,10)=""
^DD(14.7,"GL",0,12,11)=""
^DD(14.7,"GL",0,13,12)=""
^DD(14.7,"GL",0,14,13)=""
^DD(14.7,"GL",2,"E1,75",21)=""
^DD(14.7,"GL",3,1,31)=""
^DD(14.7,"GL",3,2,32)=""
^DD(14.7,"IX",.01)=""
^DD(14.7,"IX",4)=""
^DD(14.7,"IX",6)=""
^DD(14.7,"IX",7)=""
^DD(14.7,"IX",11)=""
^DD(14.7,"IX",13)=""
^DD(14.7,"RQ",.01)=""
^DD(14.7,"RQ",6)=""
^DD(14.7,"RQ",8)=""
^DD(14.7,"RQ",10)=""
^DD(14.8,0)="FIELD^^1^2"
^DD(14.8,0,"DT")="2930721"
^DD(14.8,0,"IX","B",14.8,.01)=""
^DD(14.8,0,"NM","TASK SYNC FLAG")=""
^DD(14.8,0,"VR")="8.0"
^DD(14.8,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(14.8,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(14.8,.01,1,0)="^.1"
^DD(14.8,.01,1,1,0)="14.8^B"
^DD(14.8,.01,1,1,1)="S ^%ZISL(14.8,""B"",X,DA)="""""
^DD(14.8,.01,1,1,2)="K ^%ZISL(14.8,""B"",X,DA)"
^DD(14.8,.01,3)="Answer must be 3-60 characters in length."
^DD(14.8,.01,"DT")="2930721"
^DD(14.8,1,0)="STATUS^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(14.8,1,3)="Answer must be 1-245 characters in length."
^DD(14.8,1,"DT")="2930721"
^DD(14.8,"B","NAME",.01)=""
^DD(14.8,"B","STATUS",1)=""
^DD(14.8,"GL",0,1,.01)=""
^DD(14.8,"GL",1,1,1)=""
^DD(14.8,"IX",.01)=""
^DD(14.8,"RQ",.01)=""
^DD(15,0)="FIELD^^999999904^33"
^DD(15,0,"DDA")="N"
^DD(15,0,"DT")="2980219"
^DD(15,0,"ID",.02)="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,2),1:"""") D NAME^DICM2 N XDRXX S @(""XDRXX=$E(""_DIC_""Y,0),0)"") D EN^DDIOL(""   ""_DINAME_XDRXX,"""",""?0"")"
^DD(15,0,"ID",.03)="N XDRXX S @(""XDRXX=$P($P($C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"") D EN^DDIOL(""   ""_XDRXX,"""",""?0"")"
^DD(15,0,"IX","ACMORS",15,.03)=""
^DD(15,0,"IX","ADJ",15,.05)=""
^DD(15,0,"IX","AFR",15,.04)=""
^DD(15,0,"IX","AFR",15,.05)=""
^DD(15,0,"IX","ALK",15,.03)=""
^DD(15,0,"IX","ALK2",15,.04)=""
^DD(15,0,"IX","ALK3",15,.05)=""
^DD(15,0,"IX","AMFIC",15,999999901)=""
^DD(15,0,"IX","AMFIP",15,999999903)=""
^DD(15,0,"IX","AMFIP2",15,999999902)=""
^DD(15,0,"IX","AMFIR",15,999999902)=""
^DD(15,0,"IX","AMRG",15,.05)=""
^DD(15,0,"IX","ANOT",15,.03)=""
^DD(15,0,"IX","AODUP",15,.03)=""
^DD(15,0,"IX","APOT",15,.03)=""
^DD(15,0,"IX","ARDUP",15,.03)=""
^DD(15,0,"IX","ARDUP1",15,.03)=""
^DD(15,0,"IX","ATO",15,.04)=""
^DD(15,0,"IX","ATO",15,.05)=""
^DD(15,0,"IX","AVCHG",15,.12)=""
^DD(15,0,"IX","AVDUP",15,.03)=""
^DD(15,0,"IX","AXDUP",15,.03)=""
^DD(15,0,"IX","AXDUP1",15,.03)=""
^DD(15,0,"IX","B",15,.01)=""
^DD(15,0,"IX","B",15,.02)=""
^DD(15,0,"NM","DUPLICATE RECORD")=""
^DD(15,0,"PT",15.22,.03)=""
^DD(15,0,"SCR")="I 1 Q:$D(APMFCTL)  Q:'$D(^VA(15,Y,9999999))  I '+^(9999999)"
^DD(15,0,"VR")="7.3"
^DD(15,0,"VRPK")="XT"
^DD(15,.01,0)="RECORD1^RVXI^^0;1^I $D(^VA(15,""AFR"",$P(X,"";"",2),+X)) S %=$O(^(+X,0)),%=+$P(^VA(15,%,0),U,$P(^VA(15,%,0),U,4)#2+1),%=$P(@(U_$P(X,"";"",2)_%_"",0)""),U,1) K X W !?5,""Already merged to ""_% Q"
^DD(15,.01,1,0)="^.1^^-1"
^DD(15,.01,1,1,0)="15^B"
^DD(15,.01,1,1,1)="S ^VA(15,""B"",$E(X,1,30),DA)="""""
^DD(15,.01,1,1,2)="K ^VA(15,""B"",$E(X,1,30),DA)"
^DD(15,.01,1,2,0)="^^TRIGGER^15^.06"
^DD(15,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$D(DIU(0))=0 I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.01,1,2,1.4)"
^DD(15,.01,1,2,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=15,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.01,1,2,2)="Q"
^DD(15,.01,1,2,"%D",0)="^^2^2^2900607^"
^DD(15,.01,1,2,"%D",1,0)="This TRIGGER sets the DATE FOUND field when an entry is added to this"
^DD(15,.01,1,2,"%D",2,0)="file."
^DD(15,.01,1,2,"CREATE CONDITION")="S X=$D(DIU(0))=0"
^DD(15,.01,1,2,"CREATE VALUE")="TODAY"
^DD(15,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(15,.01,1,2,"FIELD")="DATE FOUND"
^DD(15,.01,1,3,0)="^^TRIGGER^15^.09"
^DD(15,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$D(DIU(0))=0 I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(15,.01,1,3,1.4)"
^DD(15,.01,1,3,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=15,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.01,1,3,2)="Q"
^DD(15,.01,1,3,"%D",0)="^^2^2^2900607^"
^DD(15,.01,1,3,"%D",1,0)="This TRIGGER sets the WHO CREATED field when an entry is added to this"
^DD(15,.01,1,3,"%D",2,0)="file."
^DD(15,.01,1,3,"CREATE CONDITION")="S X=$D(DIU(0))=0"
^DD(15,.01,1,3,"CREATE VALUE")="S X=DUZ"
^DD(15,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(15,.01,1,3,"FIELD")="WHO CREATED"
^DD(15,.01,1,4,0)="^^TRIGGER^9002099.3^.01"
^DD(15,.01,1,4,1)="Q"
^DD(15,.01,1,4,2)="Q  X ^DD(15,.01,1,4,2.3) I X S X=DIV X ^DD(15,.01,1,4,89.2) S Y(101)=$S($D(^APMM(99.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y I DIV(0)>0 S DIK(0)=DA,DIK=""^APMM(99.3,"",DA=DIV(0) D ^DIK S DA=DIK(0) K DIK"
^DD(15,.01,1,4,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S(X[""DPT(""&('$D(DIU(0))):1,1:0)"
^DD(15,.01,1,4,89.2)="X $P(^DD(15,99993,0),U,5,99) S Y(1)=X S I(0,0)=$S($D(D0):D0,1:"""") S X=Y(1),X=X S X=X K DIC S DIC=""^APMM(99.3,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(15,.01,1,4,"%D",0)="^^3^3^2900607^"
^DD(15,.01,1,4,"%D",1,0)="This TRIGGER fires only for file 2, and then only on the kill side.  Its"
^DD(15,.01,1,4,"%D",2,0)="purpose is to delete the corresponding entry in the DUPLICATE RECORD VALUE"
^DD(15,.01,1,4,"%D",3,0)="file, if there is one."
^DD(15,.01,1,4,"CREATE VALUE")="NO EFFECT"
^DD(15,.01,1,4,"DELETE CONDITION")="S X=$S(X[""DPT(""&('$D(DIU(0))):1,1:0)"
^DD(15,.01,1,4,"DELETE VALUE")="@"
^DD(15,.01,1,4,"DIC")="LOOKUP"
^DD(15,.01,1,4,"DIK")="DELETE"
^DD(15,.01,1,4,"FIELD")="LOOKUP3:DUPLICATE RECORD VALUE:DUPLICATES"
^DD(15,.01,3)=""
^DD(15,.01,21,0)="^^2^2^2961002^^^^"
^DD(15,.01,21,1,0)="This field contains one of the potential duplicate pair.  This is a"
^DD(15,.01,21,2,0)="variable pointer."
^DD(15,.01,23,0)="^^1^1^2961002^^^^"
^DD(15,.01,23,1,0)="One of the potential duplicate pair."
^DD(15,.01,"DT")="2900906"
^DD(15,.01,"V",0)="^.12P^^0"
^DD(15,.01,"V",1,0)="2^PATIENT^1^P^n^n"
^DD(15,.01,"V",2,0)="200^NEW PERSON^2^NP^^n"
^DD(15,.01,"V","B",2,1)=""
^DD(15,.01,"V","B",200,2)=""
^DD(15,.01,"V","M","NEW PERSON",2)=""
^DD(15,.01,"V","M","PATIENT",1)=""
^DD(15,.01,"V","O",1,1)=""
^DD(15,.01,"V","O",2,2)=""
^DD(15,.01,"V","P","NP",2)=""
^DD(15,.01,"V","P","P",1)=""
^DD(15,.02,0)="RECORD2^RVXI^^0;2^S %=$P(^VA(15,DA,0),U,1) K:X=%!($P(X,"";"",2)'=$P(%,"";"",2))!($P(^(0),U,5)=2) X X:$D(X) $P(^DD(15,.01,0),U,5,99)"
^DD(15,.02,1,0)="^.1"
^DD(15,.02,1,1,0)="15^B^MNEMONIC"
^DD(15,.02,1,1,1)="S:'$D(^VA(15,""B"",$E(X,1,30),DA)) ^(DA)=1"
^DD(15,.02,1,1,2)="I $D(^VA(15,""B"",$E(X,1,30),DA)),^(DA) K ^(DA)"
^DD(15,.02,3)=""
^DD(15,.02,21,0)="^^1^1^2921217^"
^DD(15,.02,21,1,0)="The second of the potential duplicate pair.  This is a variable pointer."
^DD(15,.02,23,0)="^^1^1^2900830^^^"
^DD(15,.02,23,1,0)="One of the potential duplicate pair."
^DD(15,.02,"DT")="2890725"
^DD(15,.02,"V",0)="^.12P^1^1"
^DD(15,.02,"V",1,0)="2^PATIENT^1^P^n^n"
^DD(15,.02,"V",2,0)="200^MESSAGE FOR NEW PERSON^2^NEW PERSON^n^n"
^DD(15,.02,"V","B",2,1)=""
^DD(15,.02,"V","B",200,2)=""
^DD(15,.02,"V","M","MESSAGE FOR NEW PERSON",2)=""
^DD(15,.02,"V","M","PATIENT",1)=""
^DD(15,.02,"V","O",1,1)=""
^DD(15,.02,"V","O",2,2)=""
^DD(15,.02,"V","P","NEW PERSON",2)=""
^DD(15,.02,"V","P","P",1)=""
^DD(15,.03,0)="STATUS^R*S^P:POTENTIAL DUPLICATE, UNVERIFIED;N:VERIFIED, NOT A DUPLICATE;V:VERIFIED DUPLICATE;X:VERIFICATION IN PROCESS;R:REQUIRES RESOLUTION;^0;3^Q"
^DD(15,.03,1,0)="^.1^^-1"
^DD(15,.03,1,1,0)="15^APOT^MUMPS"
^DD(15,.03,1,1,1)="I X=""P"" S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) S ^VA(15,""APOT"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)="""""
^DD(15,.03,1,1,2)="Q:X'=""P""  S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) K ^VA(15,""APOT"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)"
^DD(15,.03,1,1,"%D",0)="^^7^7^2900607^"
^DD(15,.03,1,1,"%D",1,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.03,1,1,"%D",2,0)=""
^DD(15,.03,1,1,"%D",3,0)="^VA(15,""APOT"",""DPT("",fe#1^fe#2,DA)="""" and the fe#s will be in the order"
^DD(15,.03,1,1,"%D",4,0)="                                      low^high."
^DD(15,.03,1,1,"%D",5,0)=""
^DD(15,.03,1,1,"%D",6,0)="This xref will be killed when the STATUS field is changed to any other"
^DD(15,.03,1,1,"%D",7,0)="value."
^DD(15,.03,1,2,0)="15^ANOT^MUMPS"
^DD(15,.03,1,2,1)="I X=""N"" S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) S ^VA(15,""ANOT"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)="""""
^DD(15,.03,1,2,2)="Q:X'=""N""  S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) K ^VA(15,""ANOT"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)"
^DD(15,.03,1,2,"%D",0)="^^9^9^2900607^"
^DD(15,.03,1,2,"%D",1,0)="This xref will exist only when the STATUS is VERIFIED, NOT A DUPLICATE."
^DD(15,.03,1,2,"%D",2,0)=""
^DD(15,.03,1,2,"%D",3,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.03,1,2,"%D",4,0)=""
^DD(15,.03,1,2,"%D",5,0)="^VA(15,""ANOT"",""DPT("",""fe#1^fe#2,DA)="""" where the order of the fe#s will be"
^DD(15,.03,1,2,"%D",6,0)="                                       low^high"
^DD(15,.03,1,2,"%D",7,0)=""
^DD(15,.03,1,2,"%D",8,0)="This xref will be killed when the STATUS field is changed to any other"
^DD(15,.03,1,2,"%D",9,0)="value."
^DD(15,.03,1,3,0)="15^AVDUP^MUMPS"
^DD(15,.03,1,3,1)="I X=""V"" S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) S ^VA(15,""AVDUP"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)="""""
^DD(15,.03,1,3,2)="Q:X'=""V""  S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) K ^VA(15,""AVDUP"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)"
^DD(15,.03,1,3,"%D",0)="^^7^7^2950109^^"
^DD(15,.03,1,3,"%D",1,0)="This xref permanently exists for all entries in this file that are verified"
^DD(15,.03,1,3,"%D",2,0)="duplicates."
^DD(15,.03,1,3,"%D",3,0)=""
^DD(15,.03,1,3,"%D",4,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.03,1,3,"%D",5,0)=""
^DD(15,.03,1,3,"%D",6,0)="^VA(15,""AVDUP"",""DPT("",""fe#1^fe#2"",DA)="""" where the order of the fe#s will"
^DD(15,.03,1,3,"%D",7,0)="                                         low^high."
^DD(15,.03,1,3,"DT")="2980331"
^DD(15,.03,1,4,0)="15^ALK^MUMPS"
^DD(15,.03,1,4,1)="Q:X=""N""  S %=X=""V"",X=$P(^VA(15,DA,0),U,1,2),^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+X,%+1,+$P(X,U,2),DA)="""" S:'% ^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+$P(X,U,2),1,+X,DA)="""""
^DD(15,.03,1,4,2)="Q:X=""N""  S %=X=""V"",X=$P(^VA(15,DA,0),U,1,2) K ^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+X,%+1,+$P(X,U,2),DA) K:'% ^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+$P(X,U,2),1,+X,DA)"
^DD(15,.03,1,4,"%D",0)="^^14^14^2900607^^^^"
^DD(15,.03,1,4,"%D",1,0)="This xref will exist, in one form or the other, from the time an entry is"
^DD(15,.03,1,4,"%D",2,0)="made in this file until the records are merged or verified as not a"
^DD(15,.03,1,4,"%D",3,0)="duplicate."
^DD(15,.03,1,4,"%D",4,0)=""
^DD(15,.03,1,4,"%D",5,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.03,1,4,"%D",6,0)=""
^DD(15,.03,1,4,"%D",7,0)="^VA(15,""ALK"",^DPT("",fe#1,n,fe#2,DA)="""" where 'n' will be 1 for a potential"
^DD(15,.03,1,4,"%D",8,0)="duplicate and 2 for a verified duplicate."
^DD(15,.03,1,4,"%D",9,0)=""
^DD(15,.03,1,4,"%D",10,0)="When 'n' is 1 there will be two ""ALK"" xrefs with the fe#s reversed.  When"
^DD(15,.03,1,4,"%D",11,0)="'n' is 2 there will be only one ""ALK"" xref and the fe#s will be in the"
^DD(15,.03,1,4,"%D",12,0)="order RECORD1 RECORD2.  The ""ALK2"" xref on MERGE DIRECTION will reset this"
^DD(15,.03,1,4,"%D",13,0)="xref to be in the order 'from' 'to'.  Once merged the ""ALK"" xref for this"
^DD(15,.03,1,4,"%D",14,0)="entry will be killed by the ""ALK3"" xref on the MERGE STATUS field.."
^DD(15,.03,1,5,0)="^^TRIGGER^15^.07"
^DD(15,.03,1,5,1)="X ^DD(15,.03,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.03,1,5,1.4)"
^DD(15,.03,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=""POTENTIAL DUPLICATE, UNVERIFIED"" S:X X=$D(DIU(0))=0"
^DD(15,.03,1,5,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=15,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,5,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$D(DIU(0))=0 I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(15,.03,1,5,2.4)"
^DD(15,.03,1,5,2.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=15,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,5,"%D",0)="^^4^4^2900607^"
^DD(15,.03,1,5,"%D",1,0)="This TRIGGER sets the DATE VERIFIED field.  It is not fired for a status"
^DD(15,.03,1,5,"%D",2,0)="of 'potential duplicate, unverified'.  If the status is changed from"
^DD(15,.03,1,5,"%D",3,0)="verified the DATE VERIFIED field is deleted and will be reset if"
^DD(15,.03,1,5,"%D",4,0)="appropriate."
^DD(15,.03,1,5,"CREATE CONDITION")="STATUS'=""POTENTIAL DUPLICATE, UNVERIFIED"""
^DD(15,.03,1,5,"CREATE VALUE")="TODAY"
^DD(15,.03,1,5,"DELETE CONDITION")="S X=$D(DIU(0))=0"
^DD(15,.03,1,5,"DELETE VALUE")="@"
^DD(15,.03,1,5,"DT")="2980331"
^DD(15,.03,1,5,"FIELD")="DATE VERIFIED"
^DD(15,.03,1,6,0)="^^TRIGGER^15^.11"
^DD(15,.03,1,6,1)="X ^DD(15,.03,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(15,.03,1,6,1.4)"
^DD(15,.03,1,6,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=""POTENTIAL DUPLICATE, UNVERIFIED"" S:X X=$D(DIU(0))=0"
^DD(15,.03,1,6,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=15,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,6,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$D(DIU(0))=0 I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(15,.03,1,6,2.4)"
^DD(15,.03,1,6,2.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=15,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,6,"%D",0)="^^6^6^2900613^^"
^DD(15,.03,1,6,"%D",1,0)="This TRIGGER sets the WHO VERIFIED field.  It is not fired for a status"
^DD(15,.03,1,6,"%D",2,0)="of 'potential duplicate, unverified'.  If the status is changed from"
^DD(15,.03,1,6,"%D",3,0)="verified the WHO VERIFIED field is deleted and reset as appropriate."
^DD(15,.03,1,6,"%D",4,0)=""
^DD(15,.03,1,6,"%D",5,0)="The conditional logic on this TRIGGER was modified, using ^%GEDIT, to"
^DD(15,.03,1,6,"%D",6,0)="prevent firing during a RE-INDEX."
^DD(15,.03,1,6,"CREATE CONDITION")="STATUS'=""POTENTIAL DUPLICATE, UNVERIFIED"""
^DD(15,.03,1,6,"CREATE VALUE")="S X=DUZ"
^DD(15,.03,1,6,"DELETE CONDITION")="S X=$D(DIU(0))=0"
^DD(15,.03,1,6,"DELETE VALUE")="@"
^DD(15,.03,1,6,"FIELD")="WHO VERIFIED"
^DD(15,.03,1,7,0)="^^TRIGGER^15^.04"
^DD(15,.03,1,7,1)="Q"
^DD(15,.03,1,7,2)="X ^DD(15,.03,1,7,2.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=15,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,7,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1)=""VERIFIED DUPLICATE"" S:X X=$D(DIU(0))=0"
^DD(15,.03,1,7,"%D",0)="^^5^5^2900613^^"
^DD(15,.03,1,7,"%D",1,0)="This TRIGGER deletes the MERGE DIRECTION field when the status is being"
^DD(15,.03,1,7,"%D",2,0)="changed from 'verified duplicate' to any other value."
^DD(15,.03,1,7,"%D",3,0)=""
^DD(15,.03,1,7,"%D",4,0)="The conditional logic on this TRIGGER was modified, using ^%GEDIT, to"
^DD(15,.03,1,7,"%D",5,0)="prevent firing during a RE-INDEX."
^DD(15,.03,1,7,"CREATE VALUE")="NO EFFECT"
^DD(15,.03,1,7,"DELETE CONDITION")="OLD STATUS=""VERIFIED DUPLICATE"""
^DD(15,.03,1,7,"DELETE VALUE")="@"
^DD(15,.03,1,7,"FIELD")="MERGE DIRECTION"
^DD(15,.03,1,8,0)="^^TRIGGER^15^.05"
^DD(15,.03,1,8,1)="X ^DD(15,.03,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(15,.03,1,8,1.4)"
^DD(15,.03,1,8,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""VERIFIED DUPLICATE"" S:X X=$D(DIU(0))=0"
^DD(15,.03,1,8,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=15,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,8,2)="X ^DD(15,.03,1,8,2.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=15,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,8,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1)=""VERIFIED DUPLICATE"" S:X X=$D(DIU(0))=0"
^DD(15,.03,1,8,"%D",0)="^^6^6^2900613^^"
^DD(15,.03,1,8,"%D",1,0)="This TRIGGER sets the MERGE STATUS field to 0=NOT READY when the status"
^DD(15,.03,1,8,"%D",2,0)="is set to 'verified duplicate'.  The MERGE STATUS field is deleted when"
^DD(15,.03,1,8,"%D",3,0)="the status is changed from 'verified duplicate' to any other value."
^DD(15,.03,1,8,"%D",4,0)=""
^DD(15,.03,1,8,"%D",5,0)="The conditional logic on this TRIGGER was modified, using ^%GEDIT, to"
^DD(15,.03,1,8,"%D",6,0)="prevent firing during a RE-INDEX."
^DD(15,.03,1,8,"CREATE CONDITION")="STATUS=""VERIFIED DUPLICATE"""
^DD(15,.03,1,8,"CREATE VALUE")="S X=0"
^DD(15,.03,1,8,"DELETE CONDITION")="OLD STATUS=""VERIFIED DUPLICATE"""
^DD(15,.03,1,8,"DELETE VALUE")="@"
^DD(15,.03,1,8,"FIELD")="MERGE STATUS"
^DD(15,.03,1,9,0)="^^TRIGGER^15^.08"
^DD(15,.03,1,9,1)="X ^DD(15,.03,1,9,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.03,1,9,1.4)"
^DD(15,.03,1,9,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""VERIFIED, NOT A DUPLICATE"" S:X X=$D(DIU(0))=0"
^DD(15,.03,1,9,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=15,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,9,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$D(DIU(0))=0 I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(15,.03,1,9,2.4)"
^DD(15,.03,1,9,2.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=15,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,9,"%D",0)="^^3^3^2900607^"
^DD(15,.03,1,9,"%D",1,0)="This TRIGGER sets the DATE RESOLVED field when the status is set to"
^DD(15,.03,1,9,"%D",2,0)="'verified, not a duplicate'.  The DATE RESOLVED field is deleted when"
^DD(15,.03,1,9,"%D",3,0)="the status is changed to any other value."
^DD(15,.03,1,9,"CREATE CONDITION")="STATUS=""VERIFIED, NOT A DUPLICATE"""
^DD(15,.03,1,9,"CREATE VALUE")="TODAY"
^DD(15,.03,1,9,"DELETE CONDITION")="S X=$D(DIU(0))=0"
^DD(15,.03,1,9,"DELETE VALUE")="@"
^DD(15,.03,1,9,"FIELD")="DATE RESOLVED"
^DD(15,.03,1,10,0)="^^TRIGGER^15^.12"
^DD(15,.03,1,10,1)="Q"
^DD(15,.03,1,10,2)="X ^DD(15,.03,1,10,2.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(15,.03,1,10,2.4)"
^DD(15,.03,1,10,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.03,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1)=""VERIFIED DUPLICATE"" S:X X=$D(DIU(0))=0"
^DD(15,.03,1,10,2.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=15,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.03,1,10,"%D",0)="^^5^5^2900613^^"
^DD(15,.03,1,10,"%D",1,0)="This TRIGGER sets the WHO CHANGED field to the user number any time the"
^DD(15,.03,1,10,"%D",2,0)="status is changed from 'verified duplicate' to any other value."
^DD(15,.03,1,10,"%D",3,0)=""
^DD(15,.03,1,10,"%D",4,0)="The conditional logic on this TRIGGER was modified, using ^%GEDIT, to"
^DD(15,.03,1,10,"%D",5,0)="prevent firing during a RE-INDEX."
^DD(15,.03,1,10,"CREATE VALUE")="NO EFFECT"
^DD(15,.03,1,10,"DELETE CONDITION")="OLD STATUS=""VERIFIED DUPLICATE"""
^DD(15,.03,1,10,"DELETE VALUE")="S X=DUZ"
^DD(15,.03,1,10,"FIELD")="WHO CHANGED"
^DD(15,.03,1,11,0)="15^AXDUP^MUMPS"
^DD(15,.03,1,11,1)="I X=""X"" S X=$P($P(^VA(15,DA,0),U),"";"",2) S ^VA(15,""AXDUP"",X,DA)="""""
^DD(15,.03,1,11,2)="Q:X'=""X""  S X=$P($P(^VA(15,DA,0),U),"";"",2) K ^VA(15,""AXDUP"",X,DA)"
^DD(15,.03,1,11,3)="THIS X-REF IS USED TO IDENTIFY POTENTIAL DUPLICATES IN THE VERIFICATION PROCESS.  IT IS USED TO RAPIDLY CHECK ENTRIES FOR THE NUMBER OF DAYS SINCE THEY ENTERED THE VERIFICATION PROCESS."
^DD(15,.03,1,11,"%D",0)="^^3^3^2960214^"
^DD(15,.03,1,11,"%D",1,0)="This X-REF (AXDUP) on field .03 is used to identify potential duplicates"
^DD(15,.03,1,11,"%D",2,0)="in the verification process.  It is used to rapidly check entries for the"
^DD(15,.03,1,11,"%D",3,0)="number of days since they entered the verification process."
^DD(15,.03,1,11,"DT")="2960214"
^DD(15,.03,1,12,0)="15^ACMORS^MUMPS"
^DD(15,.03,1,12,1)="Q"
^DD(15,.03,1,12,2)="Q"
^DD(15,.03,1,12,3)="THIS SETS UP THE ACMORS X-REFERENCE ON CMOR SCORES FOR THE FIRST ENTRY"
^DD(15,.03,1,12,"DT")="2980112"
^DD(15,.03,1,13,0)="15^ARDUP^MUMPS"
^DD(15,.03,1,13,1)="I X=""R"" S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) S ^VA(15,""ARDUP"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)="""""
^DD(15,.03,1,13,2)="Q:X'=""R""  S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) K ^VA(15,""ARDUP"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)"
^DD(15,.03,1,13,"%D",0)="^^8^8^2980325^"
^DD(15,.03,1,13,"%D",1,0)=" "
^DD(15,.03,1,13,"%D",2,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.03,1,13,"%D",3,0)=" "
^DD(15,.03,1,13,"%D",4,0)="^VA(15,""ARDUP"",""DPT("",fe#1^fe#2,DA)="""" and the fe#s will be in the order"
^DD(15,.03,1,13,"%D",5,0)="                                       low^high."
^DD(15,.03,1,13,"%D",6,0)=" "
^DD(15,.03,1,13,"%D",7,0)="This xref will be killed when the STATUS field is changed to any other"
^DD(15,.03,1,13,"%D",8,0)="value."
^DD(15,.03,1,13,"DT")="2980325"
^DD(15,.03,1,14,0)="15^AXDUP1^MUMPS"
^DD(15,.03,1,14,1)="I X=""X"" S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) S ^VA(15,""AXDUP1"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)="""""
^DD(15,.03,1,14,2)="Q:X'=""X""  S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) K ^VA(15,""AXDUP1"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)"
^DD(15,.03,1,14,"%D",0)="^^7^7^2980325^"
^DD(15,.03,1,14,"%D",1,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.03,1,14,"%D",2,0)=" "
^DD(15,.03,1,14,"%D",3,0)="^VA(15,""AXDUP1"",""DPT("",fe#1^fe#2,DA)="""" and the fe#s will be in the order"
^DD(15,.03,1,14,"%D",4,0)="                                       low^high."
^DD(15,.03,1,14,"%D",5,0)=" "
^DD(15,.03,1,14,"%D",6,0)="This xref will be killed when the STATUS field is changed to any other"
^DD(15,.03,1,14,"%D",7,0)="value."
^DD(15,.03,1,14,"DT")="2980325"
^DD(15,.03,1,15,0)="15^AODUP^MUMPS"
^DD(15,.03,1,15,1)="I X=""O"" S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) S ^VA(15,""AODUP"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)="""""
^DD(15,.03,1,15,2)="Q:X'=""O""  S X=$P(^VA(15,DA,0),U,1,2) S:+X>+$P(X,U,2) X=$P(X,U,2)_U_$P(X,U,1) K ^VA(15,""AODUP"",$P($P(X,"";"",2),U,1),+X_U_+$P(X,U,2),DA)"
^DD(15,.03,1,15,"%D",0)="^^7^7^2980325^"
^DD(15,.03,1,15,"%D",1,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.03,1,15,"%D",2,0)=" "
^DD(15,.03,1,15,"%D",3,0)="^VA(15,""AODUP"",""DPT("",fe#1^fe#2,DA)="""" and the fe#s will be in the order"
^DD(15,.03,1,15,"%D",4,0)="                                       low^high."
^DD(15,.03,1,15,"%D",5,0)=" "
^DD(15,.03,1,15,"%D",6,0)="This xref will be killed when the STATUS field is changed to any other"
^DD(15,.03,1,15,"%D",7,0)="value."
^DD(15,.03,1,15,"DT")="2980325"
^DD(15,.03,1,17,0)="15^ARDUP1^MUMPS"
^DD(15,.03,1,17,1)="Q:X'=""R""  S X=$P($P(^VA(15,DA,0),U),"";"",2) S ^VA(15,""ARDUP1"",X,DA)="""""
^DD(15,.03,1,17,2)="Q:X'=""R""  S X=$P($P(^VA(15,DA,0),U),"";"",2) K ^VA(15,""ARDUP1"",X,DA)"
^DD(15,.03,1,17,"%D",0)="^^3^3^2980331^"
^DD(15,.03,1,17,"%D",1,0)="This X-REF (RXDUP1) on field .03 is used to identify potential duplicates"
^DD(15,.03,1,17,"%D",2,0)="in the verification process.  It is used to rapidly check entries for the"
^DD(15,.03,1,17,"%D",3,0)="number of days since they entered the verification process."
^DD(15,.03,1,17,"DT")="2980331"
^DD(15,.03,3)="This indicates the status of the pair of entries"
^DD(15,.03,12)="Cannot be modified once MERGE STATUS is set to 2=MERGED or 3=IN PROCESS"
^DD(15,.03,12.1)="S DIC(""S"")=""I $P(^VA(15,DA,0),U,5)'>1"""
^DD(15,.03,21,0)="^^5^5^2971211^^^^"
^DD(15,.03,21,1,0)="This field indicates the status of this duplicate record pair.  It may be"
^DD(15,.03,21,2,0)="'potential duplicate, unverified', 'verified, not a duplicate', or"
^DD(15,.03,21,3,0)="'verified duplicate'."
^DD(15,.03,21,4,0)=""
^DD(15,.03,21,5,0)="This field cannot be modified once MERGE STATUS is set to 2=MERGED."
^DD(15,.03,23,0)="^^5^5^2971211^^^^"
^DD(15,.03,23,1,0)="This field indicates the status of this duplicate record pair.  It may be"
^DD(15,.03,23,2,0)="'potential duplicate, unverified', 'verified, not a duplicate', or"
^DD(15,.03,23,3,0)="'verified duplicate'."
^DD(15,.03,23,4,0)=""
^DD(15,.03,23,5,0)="This field cannot be modified once MERGE STATUS is set to 2=MERGED."
^DD(15,.03,"DT")="2980405"
^DD(15,.04,0)="MERGE DIRECTION^R*SI^1:RECORD1 to RECORD2;2:RECORD2 to RECORD1;^0;4^Q"
^DD(15,.04,1,0)="^.1^^-1"
^DD(15,.04,1,1,0)="15^ALK2^MUMPS"
^DD(15,.04,1,1,1)="S %=X,X=$P(^VA(15,DA,0),U,1,2) K ^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+$P(X,U,%#2+1),2,+$P(X,U,%),DA) S ^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+$P(X,U,%),2,+$P(X,U,%#2+1),DA)="""""
^DD(15,.04,1,1,2)="Q:X=""""  S %=X,X=$P(^VA(15,DA,0),U,1,2) K ^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+$P(X,U,%),2,+$P(X,U,%#2+1),DA)"
^DD(15,.04,1,1,"%D",0)="^^2^2^2900607^"
^DD(15,.04,1,1,"%D",1,0)="This xref kills the existing ""ALK"" xref for this entry and resets it to be"
^DD(15,.04,1,1,"%D",2,0)="in order 'from' 'to'.  See ""ALK"" xref on STATUS field for more info."
^DD(15,.04,1,2,0)="15^AFR^MUMPS"
^DD(15,.04,1,2,1)="S:X=""V"" X=$P(^VA(15,DA,0),U,1),^VA(15,""AFR"",$P(X,"";"",2),+X,DA)="""""
^DD(15,.04,1,2,2)="Q:X'=""V""  S X=$P(^VA(15,DA,0),U,1) K ^VA(15,""AFR"",$P(X,"";"",2),+X,DA)"
^DD(15,.04,1,3,0)="15^ATO^MUMPS"
^DD(15,.04,1,3,1)="S:X=""V"" X=$P(^VA(15,DA,0),U,2),^VA(15,""ATO"",$P(X,"";"",2),+X,DA)="""""
^DD(15,.04,1,3,2)="Q:X'=""V""  S X=$P(^VA(15,DA,0),U,2) K ^VA(15,""ATO"",$P(X,"";"",2),+X,DA)"
^DD(15,.04,4)="S %=$P(^VA(15,DA,0),U,1,2) W !,?5,""RECORD1="",$P(@(U_$P($P(%,U,1),"";"",2)_+%_"",0)""),U,1),!,?5,""RECORD2="",$P(@(U_$P($P(%,U,2),"";"",2)_+$P(%,U,2)_"",0)""),U,1),!"
^DD(15,.04,5,1,0)="15^.03^7"
^DD(15,.04,12)="Must be verified duplicate"
^DD(15,.04,12.1)="S DIC(""S"")=""I $P(^VA(15,DA,0),U,3)=""""V"""""""
^DD(15,.04,21,0)="^^5^5^2960213^^^^"
^DD(15,.04,21,1,0)="This field indicates in which direction the merge is to occur, RECORD1 to"
^DD(15,.04,21,2,0)="RECORD2 or RECORD2 to RECORD1.  This field cannot be modified once set."
^DD(15,.04,21,3,0)=""
^DD(15,.04,21,4,0)="Note:  Q:X=""""  on kill side of ""ALK2"" xref is because deleting an entry"
^DD(15,.04,21,5,0)="       using ^DIK may set this field to NULL via a TRIGGER."
^DD(15,.04,23,0)="^^5^5^2960213^^^^"
^DD(15,.04,23,1,0)="This field indicates in which direction the merge is to occur, RECORD1 to"
^DD(15,.04,23,2,0)="RECORD2 or RECORD2 to RECORD1.  This field cannot be modified once set."
^DD(15,.04,23,3,0)=""
^DD(15,.04,23,4,0)="Note:  Q:X=""""  on kill side of ""ALK2"" xref is because deleting an entry"
^DD(15,.04,23,5,0)="       using ^DIK may set this field to NULL via a TRIGGER."
^DD(15,.04,"DT")="2900709"
^DD(15,.05,0)="MERGE STATUS^*S^0:NOT READY;1:READY;2:MERGED;3:IN PROGRESS;^0;5^Q"
^DD(15,.05,1,0)="^.1^^-1"
^DD(15,.05,1,1,0)="15^AFR^MUMPS"
^DD(15,.05,1,1,1)="Q:X'=2  S X=$P(^VA(15,DA,0),U,1,2),%=+$P(^(0),U,4),^VA(15,""AFR"",$P($P(X,"";"",2),U,1),+$P(X,U,%),DA)="""""
^DD(15,.05,1,1,2)="Q:X'=2  S X=$P(^VA(15,DA,0),U,1,2) K ^VA(15,""AFR"",$P($P(X,"";"",2),U,1),+$P(X,U,1),DA),^VA(15,""AFR"",$P($P(X,"";"",2),U,1),+$P(X,U,2),DA)"
^DD(15,.05,1,1,"%D",0)="^^12^12^2900607^^^"
^DD(15,.05,1,1,"%D",1,0)="This xref is permanent and exists for all merged entries.  It indicates"
^DD(15,.05,1,1,"%D",2,0)="which file entry was the 'from' entry.  It is used by the INPUT TRANSFORMS"
^DD(15,.05,1,1,"%D",3,0)="on the .01 and .02 fields to prevent entering a file entry that has"
^DD(15,.05,1,1,"%D",4,0)="already been merged away."
^DD(15,.05,1,1,"%D",5,0)=""
^DD(15,.05,1,1,"%D",6,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.05,1,1,"%D",7,0)=""
^DD(15,.05,1,1,"%D",8,0)="^VA(15,""AFR"",""DPT("",fe#,DA)=""""  where fe# is the 'from' file entry."
^DD(15,.05,1,1,"%D",9,0)=""
^DD(15,.05,1,1,"%D",10,0)="Note that the kill side of this xref kills all possible combinations"
^DD(15,.05,1,1,"%D",11,0)="because deleting an entry in this file using ^DIK results in the MERGE"
^DD(15,.05,1,1,"%D",12,0)="DIRECTION field being NULL when this xref is fired."
^DD(15,.05,1,2,0)="15^ATO^MUMPS"
^DD(15,.05,1,2,1)="Q:X'=2  S X=$P(^VA(15,DA,0),U,1,2),%=+$P(^(0),U,4)#2+1,^VA(15,""ATO"",$P($P(X,"";"",2),U,1),+$P(X,U,%),DA)="""""
^DD(15,.05,1,2,2)="Q:X'=2  S X=$P(^VA(15,DA,0),U,1,2) K ^VA(15,""ATO"",$P($P(X,"";"",2),U,1),+$P(X,U,1),DA),^VA(15,""ATO"",$P($P(X,"";"",2),U,1),+$P(X,U,2),DA)"
^DD(15,.05,1,2,"%D",0)="^^11^11^2900607^"
^DD(15,.05,1,2,"%D",1,0)="This xref is permanent and exists for all merged entires.  It indicates"
^DD(15,.05,1,2,"%D",2,0)="which file entry was the 'to' entry.  It is currently not used by the"
^DD(15,.05,1,2,"%D",3,0)="dictionary."
^DD(15,.05,1,2,"%D",4,0)=""
^DD(15,.05,1,2,"%D",5,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.05,1,2,"%D",6,0)=""
^DD(15,.05,1,2,"%D",7,0)="^VA(15,""ATO"",""DPT("",fe#,DA)="""" where fe# is the 'to' file entry."
^DD(15,.05,1,2,"%D",8,0)=""
^DD(15,.05,1,2,"%D",9,0)="Note that the kill side of this xref kills all possible combinations"
^DD(15,.05,1,2,"%D",10,0)="because deleting an entry in this file using ^DIK results in the MERGE"
^DD(15,.05,1,2,"%D",11,0)="DIRECTION field being NULL when this xref is fired."
^DD(15,.05,1,3,0)="15^AMRG^MUMPS"
^DD(15,.05,1,3,1)="Q:X=2  S %=$P($P(^VA(15,DA,0),U,1),"";"",2),^VA(15,""AMRG"",%,X,DA)="""""
^DD(15,.05,1,3,2)="S %=$P($P(^VA(15,DA,0),U,1),"";"",2) K ^VA(15,""AMRG"",%,X,DA)"
^DD(15,.05,1,3,"%D",0)="^^9^9^2900607^"
^DD(15,.05,1,3,"%D",1,0)="This xref is short lived and exists only for entries that are verified"
^DD(15,.05,1,3,"%D",2,0)="duplicates that have not yet been merged."
^DD(15,.05,1,3,"%D",3,0)=""
^DD(15,.05,1,3,"%D",4,0)="The form of this xref, using file 2 as an example, is:"
^DD(15,.05,1,3,"%D",5,0)=""
^DD(15,.05,1,3,"%D",6,0)="^VA(15,""AMRG"",""DPT("",n,DA)="""" where 'n' will be 0 for a MERGE STATUS of"
^DD(15,.05,1,3,"%D",7,0)="                              NOT READY and a 1 for READY."
^DD(15,.05,1,3,"%D",8,0)=""
^DD(15,.05,1,3,"%D",9,0)="Once merged the ""AMRG"" xref for this entry will be killed."
^DD(15,.05,1,4,0)="15^ALK3^MUMPS"
^DD(15,.05,1,4,1)="Q:X'=2  S X=$P(^VA(15,DA,0),U,1,2),%=$P(^(0),U,4) K ^VA(15,""ALK"",$P($P(X,"";"",2),U,1),+$P(X,U,%),2,+$P(X,U,%#2+1),DA)"
^DD(15,.05,1,4,2)="Q"
^DD(15,.05,1,4,"%D",0)="^^2^2^2900607^"
^DD(15,.05,1,4,"%D",1,0)="This xref kills the ""ALK"" xref for this entry.  See the ""ALK"" xref on the"
^DD(15,.05,1,4,"%D",2,0)="STATUS field for more info."
^DD(15,.05,1,5,0)="^^TRIGGER^15^.08"
^DD(15,.05,1,5,1)="X ^DD(15,.05,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(15,.05,1,5,1.4)"
^DD(15,.05,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(15,.05,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""MERGED"" S:X X=$D(DIU(0))=0"
^DD(15,.05,1,5,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=15,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,.05,1,5,2)="Q"
^DD(15,.05,1,5,"%D",0)="^^5^5^2900613^^"
^DD(15,.05,1,5,"%D",1,0)="This TRIGGER sets the DATE RESOLVED field when the merge status is set"
^DD(15,.05,1,5,"%D",2,0)="to 'merged'."
^DD(15,.05,1,5,"%D",3,0)=""
^DD(15,.05,1,5,"%D",4,0)="The conditional logic on this TRIGGER was modified, using ^%GEDIT, to"
^DD(15,.05,1,5,"%D",5,0)="prevent firing during a RE-INDEX."
^DD(15,.05,1,5,"CREATE CONDITION")="MERGE STATUS=""MERGED"""
^DD(15,.05,1,5,"CREATE VALUE")="TODAY"
^DD(15,.05,1,5,"DELETE VALUE")="NO EFFECT"
^DD(15,.05,1,5,"FIELD")="DATE RESOLVED"
^DD(15,.05,1,6,0)="15^ADJ^MUMPS"
^DD(15,.05,1,6,1)="Q:X'=2  S X=""XDRDADJ"" X ^%ZOSF(""TEST"") D:$T ^XDRDADJ"
^DD(15,.05,1,6,2)="Q"
^DD(15,.05,1,6,"%D",0)="^^8^8^2900830^^^^"
^DD(15,.05,1,6,"%D",1,0)="This xref is fired only when an entry has been merged.  The routine ^XDRDADJ"
^DD(15,.05,1,6,"%D",2,0)="then looks at the file to determine if any other file entry pairs need to"
^DD(15,.05,1,6,"%D",3,0)="be adjusted.  For example, using file 2, if patient 5 was merged to patient"
^DD(15,.05,1,6,"%D",4,0)="10, and there was a potential duplicate entry for patient 5 and patient 15,"
^DD(15,.05,1,6,"%D",5,0)="that entry would be changed to patient 10 and patient 15."
^DD(15,.05,1,6,"%D",6,0)=""
^DD(15,.05,1,6,"%D",7,0)="There are other possible situations that are far more complex than the"
^DD(15,.05,1,6,"%D",8,0)="above example."
^DD(15,.05,1,6,"DT")="2900830"
^DD(15,.05,3)="This field indicates the status of verified duplicate entries with respect to merging."
^DD(15,.05,5,1,0)="15.01101^.02^2"
^DD(15,.05,5,2,0)="15^.03^8"
^DD(15,.05,12)="Must be verified duplicate and once merged cannot be modified"
^DD(15,.05,12.1)="S DIC(""S"")=""I $P(^VA(15,DA,0),U,3)=""""V"""",$P(^(0),U,5)'=2"""
^DD(15,.05,21,0)="^^8^8^2890725^^^^"
^DD(15,.05,21,1,0)="This field is set when a duplicate record pair is verified as a duplicate."
^DD(15,.05,21,2,0)="The actual merge will not occur until this field is set to READY (1).  The"
^DD(15,.05,21,3,0)="merge routine will set this field to MERGED (2).  Once set to MERGED (2)"
^DD(15,.05,21,4,0)="this field cannot be modified."
^DD(15,.05,21,5,0)=""
^DD(15,.05,21,6,0)="Note:  Kill side of ""AFR"" and ""ATO"" xref kill all possible combinations of"
^DD(15,.05,21,7,0)="       xref because deleting an entry in this file using ^DIK results in"
^DD(15,.05,21,8,0)="       the .04 field being NULL when these xrefs are fired."
^DD(15,.05,23,0)="^^8^8^2900830^^^^"
^DD(15,.05,23,1,0)="This field is set when a duplicate record pair is verified as a duplicate."
^DD(15,.05,23,2,0)="The actual merge will not occur until this field is set to READY (1).  The"
^DD(15,.05,23,3,0)="merge routine will set this field to MERGED (2).  Once set to MERGED (2)"
^DD(15,.05,23,4,0)="this field cannot be modified."
^DD(15,.05,23,5,0)=""
^DD(15,.05,23,6,0)="Note:  Kill side of ""AFR"" and ""ATO"" xref kill all possible combinations of"
^DD(15,.05,23,7,0)="       xref because deleting an entry in this file using ^DIK results in"
^DD(15,.05,23,8,0)="       the .04 field being NULL when these xrefs are fired."
^DD(15,.05,"DEL",.05,0)="I 1"
^DD(15,.05,"DT")="2960505"
^DD(15,.06,0)="DATE FOUND^RD^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(15,.06,5,1,0)="15^.01^2"
^DD(15,.06,9)="^"
^DD(15,.06,21,0)="^^2^2^2890717^"
^DD(15,.06,21,1,0)="This field indicates the date this duplicate record pair was added to this"
^DD(15,.06,21,2,0)="file."
^DD(15,.06,23,0)="^^2^2^2900830^^"
^DD(15,.06,23,1,0)="This field indicates the date this duplicate record pair was added to this"
^DD(15,.06,23,2,0)="file."
^DD(15,.06,"DT")="2870402"
^DD(15,.07,0)="DATE VERIFIED^DX^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^VA(15,DA,0),U,3)=""P"" W "" Not verified! "" K X"
^DD(15,.07,3)=""
^DD(15,.07,5,1,0)="15^.03^5"
^DD(15,.07,9)="^"
^DD(15,.07,21,0)="^^3^3^2890721^^"
^DD(15,.07,21,1,0)="This field contains the date this duplicate record pair was verified."
^DD(15,.07,21,2,0)="The STATUS field must be set to ""N"" or ""V"" before data can be entered"
^DD(15,.07,21,3,0)="in this field."
^DD(15,.07,23,0)="^^3^3^2900830^^^"
^DD(15,.07,23,1,0)="This field contains the date this duplicate record pair was verified."
^DD(15,.07,23,2,0)="The STATUS field must be set to ""N"" or ""V"" before data can be entered"
^DD(15,.07,23,3,0)="in this field."
^DD(15,.07,"DT")="2890718"
^DD(15,.08,0)="DATE RESOLVED^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(15,.08,3)=""
^DD(15,.08,5,1,0)="15^.03^9"
^DD(15,.08,5,2,0)="15^.05^5"
^DD(15,.08,9)="^"
^DD(15,.08,21,0)="^^3^3^2960213^^^"
^DD(15,.08,21,1,0)="This field indicates the date this duplicate record pair was resolved."
^DD(15,.08,21,2,0)="This field will be set by the dictionary when the STATUS field is set"
^DD(15,.08,21,3,0)="to ""N"" or the MERGE STATUS field is set to MERGED."
^DD(15,.08,23,0)="^^3^3^2960213^^^^"
^DD(15,.08,23,1,0)="This field indicates the date this duplicate record pair was resolved."
^DD(15,.08,23,2,0)="This field will be set by the dictionary when the STATUS field is set"
^DD(15,.08,23,3,0)="to ""N"" or the MERGE STATUS field is set to MERGED."
^DD(15,.08,"DT")="2870408"
^DD(15,.09,0)="WHO CREATED^P200'^VA(200,^0;9^Q"
^DD(15,.09,5,1,0)="15^.01^3"
^DD(15,.09,9)="^"
^DD(15,.09,21,0)="^^2^2^2890717^"
^DD(15,.09,21,1,0)="This field contains the user who created this entry.  If the entry was"
^DD(15,.09,21,2,0)="created by software this field will be NULL."
^DD(15,.09,23,0)="^^2^2^2900830^^"
^DD(15,.09,23,1,0)="This field contains the user who created this entry.  If the entry was"
^DD(15,.09,23,2,0)="created by software this field will be NULL."
^DD(15,.09,"DT")="2910618"
^DD(15,.1,0)="VERIF STARTED DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(15,.1,3)="This is the date on which the status changed from POTENTIAL DUPLICATE to VERIFICATION IN PROGRESS"
^DD(15,.1,21,0)="^^2^2^2960410^"
^DD(15,.1,21,1,0)="This is the date on which the status changed from POTENTIAL DUPLICATE to"
^DD(15,.1,21,2,0)="VERIFICATION IN PROGRESS."
^DD(15,.1,"DT")="2960410"
^DD(15,.11,0)="WHO VERIFIED^P200'X^VA(200,^0;11^S %=$P(^VA(15,DA,0),U,3)=""P"" W:% "" Not verified! "" K:% X"
^DD(15,.11,5,1,0)="15^.03^6"
^DD(15,.11,9)="^"
^DD(15,.11,21,0)="^^3^3^2890721^^"
^DD(15,.11,21,1,0)="This field indicates the user who verified this duplicate record pair."
^DD(15,.11,21,2,0)="The STATUS must be set to ""N"" or ""V"" before data can be entered in"
^DD(15,.11,21,3,0)="this field."
^DD(15,.11,23,0)="^^3^3^2900830^^^"
^DD(15,.11,23,1,0)="This field indicates the user who verified this duplicate record pair."
^DD(15,.11,23,2,0)="The STATUS must be set to ""N"" or ""V"" before data can be entered in"
^DD(15,.11,23,3,0)="this field."
^DD(15,.11,"DT")="2890718"
^DD(15,.12,0)="WHO CHANGED^P200'I^VA(200,^0;12^Q"
^DD(15,.12,1,0)="^.1"
^DD(15,.12,1,1,0)="15^AVCHG"
^DD(15,.12,1,1,1)="S ^VA(15,""AVCHG"",$E(X,1,30),DA)="""""
^DD(15,.12,1,1,2)="K ^VA(15,""AVCHG"",$E(X,1,30),DA)"
^DD(15,.12,1,1,"%D",0)="^^8^8^2900607^"
^DD(15,.12,1,1,"%D",1,0)="This xref is set only when the STATUS field is changed from ""V"" to any"
^DD(15,.12,1,1,"%D",2,0)="other value.  This is because the WHO CHANGED is set only by a TRIGGER"
^DD(15,.12,1,1,"%D",3,0)="under the above conditon.  The reason this is critical is other packages"
^DD(15,.12,1,1,"%D",4,0)="may have been notified to do the merge."
^DD(15,.12,1,1,"%D",5,0)=""
^DD(15,.12,1,1,"%D",6,0)="The form of this xref is:"
^DD(15,.12,1,1,"%D",7,0)=""
^DD(15,.12,1,1,"%D",8,0)="^VA(15,""AVCHG"",n,DA)="""" where 'n' is the user number."
^DD(15,.12,5,1,0)="15^.03^10"
^DD(15,.12,9)="^"
^DD(15,.12,21,0)="^^3^3^2970219^^"
^DD(15,.12,21,1,0)="This field is set when the STATUS field is changed from ""V"" to any other"
^DD(15,.12,21,2,0)="value.  The reason this is so important is other packages have been"
^DD(15,.12,21,3,0)="notified and may have already done the merge."
^DD(15,.12,23,0)="^^3^3^2970219^^^"
^DD(15,.12,23,1,0)="This field is set when the STATUS field is changed from ""V"" to any other"
^DD(15,.12,23,2,0)="value.  The reason this is so important is other packages have been"
^DD(15,.12,23,3,0)="notified and may have already done the merge."
^DD(15,.12,"DT")="2910618"
^DD(15,.13,0)="APPROVED FOR BACK UP^S^0:NO;1:YES;^0;13^Q"
^DD(15,.13,3)="Select YES only if the records of both the entry being merged and the entry being merged into have been fully backed up."
^DD(15,.13,21,0)="^^2^2^2960503^"
^DD(15,.13,21,1,0)="This field is used to document that a backup of the records has been"
^DD(15,.13,21,2,0)="generated.  This is required prior to merging the records."
^DD(15,.13,"DT")="2970218"
^DD(15,.14,0)="BACKUP INDICATED BY^F^^0;14^K:$L(X)>60!($L(X)<3) X"
^DD(15,.14,3)="Answer must be 3-60 characters in length."
^DD(15,.14,21,0)="^^3^3^2960503^"
^DD(15,.14,21,1,0)="This field is used to document the user who indicates that the backup has"
^DD(15,.14,21,2,0)="been generated and/or the fact that the backup was generated by the"
^DD(15,.14,21,3,0)="duplicate merge system."
^DD(15,.14,"DT")="2970210"
^DD(15,.15,0)="DC TOTAL POSSIBLE SCORE^NJ2,0^^0;15^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(15,.15,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(15,.15,21,0)="^^3^3^2931216^"
^DD(15,.15,21,1,0)=""
^DD(15,.15,21,2,0)="This is the maximum possible score if this entry matches exactly to its"
^DD(15,.15,21,3,0)="couterpart."
^DD(15,.15,23,0)="^^2^2^2900830^"
^DD(15,.15,23,1,0)="This field contains the highest possible score that can be computed"
^DD(15,.15,23,2,0)="for this 'duplicate record' entry."
^DD(15,.15,"DT")="2900830"
^DD(15,.16,0)="DC VERIFIED DUPE THRESHOLD %^NJ3,0^^0;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15,.16,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(15,.16,21,0)="^^3^3^2931216^"
^DD(15,.16,21,1,0)=""
^DD(15,.16,21,2,0)="This is the lowest % possible that will mark this entry as 'verified"
^DD(15,.16,21,3,0)="duplicate'."
^DD(15,.16,23,0)="^^4^4^2901002^^"
^DD(15,.16,23,1,0)="This field contains the percent of the highest possible score that"
^DD(15,.16,23,2,0)="will cause this 'duplicate record' entry to become a 'verified duplicate'."
^DD(15,.16,23,3,0)="If no score, no matter how high, should cause an entry to be a 'verified"
^DD(15,.16,23,4,0)="duplicate', this field should be left empty."
^DD(15,.16,"DT")="2901002"
^DD(15,.17,0)="DC POTENTIAL DUPE THRESHOLD %^NJ3,0^^0;17^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15,.17,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(15,.17,21,0)="^^3^3^2931216^"
^DD(15,.17,21,1,0)=""
^DD(15,.17,21,2,0)="This is the lowest possible % of the total duplicate score that would mark"
^DD(15,.17,21,3,0)="this entry as 'potential duplicate/unverified'."
^DD(15,.17,23,0)="^^3^3^2901002^^"
^DD(15,.17,23,1,0)="This field contains the percent of the highest possible score that"
^DD(15,.17,23,2,0)="will cause this 'duplicate record' entry to become a 'potential duplicate/"
^DD(15,.17,23,3,0)="unverified'."
^DD(15,.17,"DT")="2901002"
^DD(15,.18,0)="DC DUPE MATCH SCORE^NJ3,0^^0;18^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15,.18,3)="Type a Number between 0 and 500, 0 Decimal Digits"
^DD(15,.18,21,0)="^^2^2^2931216^"
^DD(15,.18,21,1,0)=""
^DD(15,.18,21,2,0)="Actual duplicate score computed."
^DD(15,.18,23,0)="^^2^2^2901002^^"
^DD(15,.18,23,1,0)="This field contains the actual score computed when this 'duplicate record'"
^DD(15,.18,23,2,0)="entry was analyzed by the duplicate resolution software."
^DD(15,.18,"DT")="2900830"
^DD(15,.19,0)="DC DUPE MATCH PERCENTILE^NJ3,0^^0;19^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15,.19,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(15,.19,21,0)="^^2^2^2931216^"
^DD(15,.19,21,1,0)=""
^DD(15,.19,21,2,0)="This is the % of the total possible match score."
^DD(15,.19,23,0)="^^3^3^2901002^^"
^DD(15,.19,23,1,0)="This field contains the percent of the total possible score computed"
^DD(15,.19,23,2,0)="for this 'duplicate record' entry when it was analyzed by the duplicate"
^DD(15,.19,23,3,0)="resolution software."
^DD(15,.19,"DT")="2901002"
^DD(15,.2,0)="MERGE PROCESS^P15.2'^VA(15.2,^0;20^Q"
^DD(15,.2,3)="This is the Merge Process which is associated with the merge of this duplicate pair"
^DD(15,.2,21,0)="^^4^4^2951201^"
^DD(15,.2,21,1,0)="This field indicates which entry is the XDR MERGE PROCESS file this entry"
^DD(15,.2,21,2,0)="is associated with.  The merge process contains information on the status"
^DD(15,.2,21,3,0)="of the merge of the duplicate pair(s) included within the given process"
^DD(15,.2,21,4,0)="and the extent of completion."
^DD(15,.2,"DT")="2951201"
^DD(15,1,0)="REMARKS^F^^1;1^K:$L(X)>50!($L(X)<1) X"
^DD(15,1,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(15,1,21,0)="^^2^2^2931216^"
^DD(15,1,21,1,0)=""
^DD(15,1,21,2,0)="This field contains special comments about the duplicate record."
^DD(15,1,"DT")="2870406"
^DD(15,2,0)="IDENTIFYING SERVICE^15.02^^2;0"
^DD(15,3,0)="OVERWRITE IN FILE^15.03A^^3;0"
^DD(15,1101,0)="MERGE PACKAGES^15.01101P^^11;0"
^DD(15,1101,21,0)="^^9^9^2890724^^"
^DD(15,1101,21,1,0)="This multiple contains an entry for each package from the package file"
^DD(15,1101,21,2,0)="that is affected by the merging of entries in the file specified in"
^DD(15,1101,21,3,0)="this files .01 field.  The STATUS field of this multiple will be set"
^DD(15,1101,21,4,0)="to 0=NOT READY if the package has the 'from' entry in the subject file"
^DD(15,1101,21,5,0)="and does not have a merge routine specified in the package file.  The"
^DD(15,1101,21,6,0)="STATUS field will be set to 1=READY if the package has the 'from' entry"
^DD(15,1101,21,7,0)="and also has a merge routine specified in the package file.  It will be"
^DD(15,1101,21,8,0)="set to 2=NO FROM ENTRY if the package does not have the 'from' entry,"
^DD(15,1101,21,9,0)="regardless of whether the package has a merge routine or not."
^DD(15,1101,23,0)="^^9^9^2900830^^^"
^DD(15,1101,23,1,0)="This multiple contains an entry for each package from the package file"
^DD(15,1101,23,2,0)="that is affected by the merging of entries in the file specified in"
^DD(15,1101,23,3,0)="this files .01 field.  The STATUS field of this multiple will be set"
^DD(15,1101,23,4,0)="to 0=NOT READY if the package has the 'from' entry in the subject file"
^DD(15,1101,23,5,0)="and does not have a merge routine specified in the package file.  The"
^DD(15,1101,23,6,0)="STATUS field will be set to 1=READY if the package has the 'from' entry"
^DD(15,1101,23,7,0)="and also has a merge routine specified in the package file.  It will be"
^DD(15,1101,23,8,0)="set to 2=NO FROM ENTRY if the package does not have the 'from' entry,"
^DD(15,1101,23,9,0)="regardless of whether the package has a merge routine or not."
^DD(15,1300,0)="CHECK POINTS^15.013^^CP;0"
^DD(15,2101,0)="DUPLICATE TESTS/SCORES^15.02101A^^21;0"
^DD(15,2101,21,0)="^^2^2^2931216^"
^DD(15,2101,21,1,0)=""
^DD(15,2101,21,2,0)="This field contains the comparison tests and the scores."
^DD(15,2101,23,0)="^^3^3^2900830^"
^DD(15,2101,23,1,0)="This multiple contains the individual tests, and their resulting scores,"
^DD(15,2101,23,2,0)="when this 'duplicate record' entry was analyzed by the duplicate"
^DD(15,2101,23,3,0)="resolution software."
^DD(15,99991,0)="LOOKUP1^CJ8^^ ; ^S X=""`""_+^VA(15,D0,0)"
^DD(15,99991,9)="^"
^DD(15,99991,9.01)=""
^DD(15,99991,9.1)="S X=""`""_+^VA(15,D0,0)"
^DD(15,99991,21,0)="^^1^1^2890717^^"
^DD(15,99991,21,1,0)="This field is used to navigate to the file pointed to by RECORD1."
^DD(15,99991,23,0)="^^1^1^2900830^^^^"
^DD(15,99991,23,1,0)="This field is used to navigate to the file pointed to by RECORD1."
^DD(15,99992,0)="LOOKUP2^CJ8^^ ; ^S X=""`""_+$P(^VA(15,D0,0),U,2)"
^DD(15,99992,9)="^"
^DD(15,99992,9.01)=""
^DD(15,99992,9.1)="S X=""`""_+$P(^VA(15,D0,0),U,2)"
^DD(15,99992,21,0)="^^1^1^2890717^^"
^DD(15,99992,21,1,0)="This field is used to navigate to the file pointed to by RECORD2."
^DD(15,99992,23,0)="^^1^1^2900830^^^"
^DD(15,99992,23,1,0)="This field is used to navigate to the file pointed to by RECORD2."
^DD(15,99993,0)="LOOKUP3^CJ8^^ ; ^S X=""`""_D0"
^DD(15,99993,9)="^"
^DD(15,99993,9.01)=""
^DD(15,99993,9.1)="S X=""`""_D0"
^DD(15,99993,21,0)="^^2^2^2890727^"
^DD(15,99993,21,1,0)="This computed field provides navigational capability to any file that points"
^DD(15,99993,21,2,0)="to this file and has a DINUM relationship."
^DD(15,99993,23,0)="^^2^2^2900830^^"
^DD(15,99993,23,1,0)="This computed field provides navigational capability to any file that points"
^DD(15,99993,23,2,0)="to this file and has a DINUM relationship."
^DD(15,99993,"DT")="2890808"
^DD(15,999999901,0)="MFI CONTROLLED^SI^1:MERGE;2:INSTALL;^9999999;1^Q"
^DD(15,999999901,1,0)="^.1"
^DD(15,999999901,1,1,0)="15^AMFIC"
^DD(15,999999901,1,1,1)="S ^VA(15,""AMFIC"",$E(X,1,30),DA)="""""
^DD(15,999999901,1,1,2)="K ^VA(15,""AMFIC"",$E(X,1,30),DA)"
^DD(15,999999901,1,1,"%D",0)="^^2^2^2900816^^^^"
^DD(15,999999901,1,1,"%D",1,0)="This xref is set to allow the MFI duplicate resolution software direct"
^DD(15,999999901,1,1,"%D",2,0)="access to MFI controlled entries."
^DD(15,999999901,1,1,"DT")="2900703"
^DD(15,999999901,1,2,0)="^^TRIGGER^15^999999902"
^DD(15,999999901,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(15,D0,9999999)):^(9999999),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(15,999999901,1,2,1.4)"
^DD(15,999999901,1,2,1.4)="S DIH=$S($D(^VA(15,DIV(0),9999999)):^(9999999),1:""""),DIV=X S $P(^(9999999),U,2)=DIV,DIH=15,DIG=999999902 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15,999999901,1,2,2)="Q"
^DD(15,999999901,1,2,"%D",0)="^^3^3^2900703^"
^DD(15,999999901,1,2,"%D",1,0)="This trigger sets the MFI RESOLVED field to 0=UNRESOLVED when a value"
^DD(15,999999901,1,2,"%D",2,0)="is entered into this field.  It has no effect on the change/delete side"
^DD(15,999999901,1,2,"%D",3,0)="because this field is uneditable."
^DD(15,999999901,1,2,"CREATE VALUE")="S X=0"
^DD(15,999999901,1,2,"DELETE VALUE")="NO EFFECT"
^DD(15,999999901,1,2,"DT")="2900703"
^DD(15,999999901,1,2,"FIELD")="MFI RESOLVED"
^DD(15,999999901,3)=""
^DD(15,999999901,21,0)="^^2^2^2931216^"
^DD(15,999999901,21,1,0)=""
^DD(15,999999901,21,2,0)="This field is for MultiFacility Integration software use only."
^DD(15,999999901,23,0)="^^8^8^2900703^^^^"
^DD(15,999999901,23,1,0)="This field is set for entries entered by MFI software.  Any entry with a"
^DD(15,999999901,23,2,0)="value in this field is under MFI control and cannot be seen by any user"
^DD(15,999999901,23,3,0)="other than the MFI manager.  The value of this field indicates whether"
^DD(15,999999901,23,4,0)="this entry was created by an 'install' or a 'merge' command."
^DD(15,999999901,23,5,0)=""
^DD(15,999999901,23,6,0)="If the local site is an integration site this field may have either"
^DD(15,999999901,23,7,0)="value.  If the local site is a facility all entries will be for 'merge'"
^DD(15,999999901,23,8,0)="commands."
^DD(15,999999901,"DT")="2900703"
^DD(15,999999902,0)="MFI RESOLVED^S^0:UNRESOLVED;1:RESOLVED;^9999999;2^Q"
^DD(15,999999902,1,0)="^.1"
^DD(15,999999902,1,1,0)="15^AMFIR"
^DD(15,999999902,1,1,1)="S:'X ^VA(15,""AMFIR"",$E(X,1,30),DA)="""""
^DD(15,999999902,1,1,2)="K ^VA(15,""AMFIR"",$E(X,1,30),DA)"
^DD(15,999999902,1,1,"%D",0)="^^2^2^2900816^^^"
^DD(15,999999902,1,1,"%D",1,0)="This xref is set for unresolved entries only.  When the entry is changed"
^DD(15,999999902,1,1,"%D",2,0)="to resolved this xref is deleted."
^DD(15,999999902,1,1,"DT")="2900703"
^DD(15,999999902,1,2,0)="15^AMFIP2^MUMPS"
^DD(15,999999902,1,2,1)="I X S %=^VA(15,DA,9999999),%=$P(%,U,3) S:% ^VA(15,""AMFIP"",%,DA)=X"
^DD(15,999999902,1,2,2)="I X S %=^VA(15,DA,9999999),%=$P(%,U,3) S:% ^VA(15,""AMFIP"",%,DA)="""""
^DD(15,999999902,1,2,"%D",0)="^^2^2^2900703^"
^DD(15,999999902,1,2,"%D",1,0)="This xref sets the value of the ""AMFIP"" xref to 1 once this entry is"
^DD(15,999999902,1,2,"%D",2,0)="resolved.  It sets it back to """" if this field is changed from resolved."
^DD(15,999999902,1,2,"DT")="2900703"
^DD(15,999999902,5,1,0)="15^999999901^2"
^DD(15,999999902,21,0)="^^2^2^2931216^"
^DD(15,999999902,21,1,0)=""
^DD(15,999999902,21,2,0)="This field is for MultiFacility Integration software use only."
^DD(15,999999902,23,0)="^^3^3^2900703^^^"
^DD(15,999999902,23,1,0)="This field is for MFI use only and is set to 0 by a trigger when the MFI"
^DD(15,999999902,23,2,0)="CONTROLLED field is set.  It is then set to 1 by the MFI duplicate"
^DD(15,999999902,23,3,0)="resolution/merge software once it has completed this entry."
^DD(15,999999902,"DT")="2900703"
^DD(15,999999903,0)="MFI PATIENT^P2'^DPT(^9999999;3^Q"
^DD(15,999999903,1,0)="^.1"
^DD(15,999999903,1,1,0)="15^AMFIP"
^DD(15,999999903,1,1,1)="S ^VA(15,""AMFIP"",$E(X,1,30),DA)="""""
^DD(15,999999903,1,1,2)="K ^VA(15,""AMFIP"",$E(X,1,30),DA)"
^DD(15,999999903,1,1,"%D",0)="^^2^2^2900703^"
^DD(15,999999903,1,1,"%D",1,0)="This xref contains the controlled patient when an entry in this file"
^DD(15,999999903,1,1,"%D",2,0)="is under MFI control because of an 'install' command."
^DD(15,999999903,1,1,"DT")="2900703"
^DD(15,999999903,21,0)="^^2^2^2931216^"
^DD(15,999999903,21,1,0)=""
^DD(15,999999903,21,2,0)="This field is for MultiFacility Integration software use only."
^DD(15,999999903,23,0)="^^6^6^2900703^^"
^DD(15,999999903,23,1,0)="This field is for MFI use only and contains the controlled patient for"
^DD(15,999999903,23,2,0)="an 'install' command."
^DD(15,999999903,23,3,0)=""
^DD(15,999999903,23,4,0)="So long as a patient is unresolved and under MFI control data for that"
^DD(15,999999903,23,5,0)="patient will not be forwarded to other sites within an integration domain"
^DD(15,999999903,23,6,0)="by the integration site."
^DD(15,999999903,"DT")="2900703"
^DD(15,999999904,0)="MFI FROM SITE^F^^9999999;4^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(15,999999904,3)="Answer must be 6 numeric characters in length."
^DD(15,999999904,21,0)="^^2^2^2931216^"
^DD(15,999999904,21,1,0)=""
^DD(15,999999904,21,2,0)="This field is for MultiFacility Integration software use only."
^DD(15,999999904,23,0)="^^3^3^2900711^"
^DD(15,999999904,23,1,0)="This field is for MFI use only and contains the six digit IHS standard"
^DD(15,999999904,23,2,0)="code for the site that originated the install or merge command that"
^DD(15,999999904,23,3,0)="caused this duplicate recored entry to be created."
^DD(15,999999904,"DT")="2900709"
^DD(15,"B","APPROVED FOR BACK UP",.13)=""
^DD(15,"B","BACKUP INDICATED BY",.14)=""
^DD(15,"B","CHECK POINTS",1300)=""
^DD(15,"B","DATE FOUND",.06)=""
^DD(15,"B","DATE RESOLVED",.08)=""
^DD(15,"B","DATE VERIFIED",.07)=""
^DD(15,"B","DC DUPE MATCH PERCENTILE",.19)=""
^DD(15,"B","DC DUPE MATCH SCORE",.18)=""
^DD(15,"B","DC POTENTIAL DUPE THRESHOLD %",.17)=""
^DD(15,"B","DC TOTAL POSSIBLE SCORE",.15)=""
^DD(15,"B","DC VERIFIED DUPE THRESHOLD %",.16)=""
^DD(15,"B","DUPLICATE TESTS/SCORES",2101)=""
^DD(15,"B","IDENTIFYING SERVICE",2)=""
^DD(15,"B","LOOKUP1",99991)=""
^DD(15,"B","LOOKUP2",99992)=""
^DD(15,"B","LOOKUP3",99993)=""
^DD(15,"B","MERGE DIRECTION",.04)=""
^DD(15,"B","MERGE PACKAGES",1101)=""
^DD(15,"B","MERGE PROCESS",.2)=""
^DD(15,"B","MERGE STATUS",.05)=""
^DD(15,"B","MFI CONTROLLED",999999901)=""
^DD(15,"B","MFI FROM SITE",999999904)=""
^DD(15,"B","MFI PATIENT",999999903)=""
^DD(15,"B","MFI RESOLVED",999999902)=""
^DD(15,"B","OVERWRITE IN FILE",3)=""
^DD(15,"B","RECORD1",.01)=""
^DD(15,"B","RECORD2",.02)=""
^DD(15,"B","REMARKS",1)=""
^DD(15,"B","STATUS",.03)=""
^DD(15,"B","VERIF STARTED DATE",.1)=""
^DD(15,"B","WHO CHANGED",.12)=""
^DD(15,"B","WHO CREATED",.09)=""
^DD(15,"B","WHO VERIFIED",.11)=""
^DD(15,"GL",0,1,.01)=""
^DD(15,"GL",0,2,.02)=""
^DD(15,"GL",0,3,.03)=""
^DD(15,"GL",0,4,.04)=""
^DD(15,"GL",0,5,.05)=""
^DD(15,"GL",0,6,.06)=""
^DD(15,"GL",0,7,.07)=""
^DD(15,"GL",0,8,.08)=""
^DD(15,"GL",0,9,.09)=""
^DD(15,"GL",0,10,.1)=""
^DD(15,"GL",0,11,.11)=""
^DD(15,"GL",0,12,.12)=""
^DD(15,"GL",0,13,.13)=""
^DD(15,"GL",0,14,.14)=""
^DD(15,"GL",0,15,.15)=""
^DD(15,"GL",0,16,.16)=""
^DD(15,"GL",0,17,.17)=""
^DD(15,"GL",0,18,.18)=""
^DD(15,"GL",0,19,.19)=""
^DD(15,"GL",0,20,.2)=""
^DD(15,"GL",1,1,1)=""
^DD(15,"GL",2,0,2)=""
^DD(15,"GL",3,0,3)=""
^DD(15,"GL",11,0,1101)=""
^DD(15,"GL",21,0,2101)=""
^DD(15,"GL",9999999,1,999999901)=""
^DD(15,"GL",9999999,2,999999902)=""
^DD(15,"GL",9999999,3,999999903)=""
^DD(15,"GL",9999999,4,999999904)=""
^DD(15,"GL","CP",0,1300)=""
^DD(15,"IX",.01)=""
^DD(15,"IX",.02)=""
^DD(15,"IX",.03)=""
^DD(15,"IX",.04)=""
^DD(15,"IX",.05)=""
^DD(15,"IX",.12)=""
^DD(15,"IX",999999901)=""
^DD(15,"IX",999999902)=""
^DD(15,"IX",999999903)=""
^DD(15,"RQ",.01)=""
^DD(15,"RQ",.02)=""
^DD(15,"RQ",.03)=""
^DD(15,"RQ",.04)=""
^DD(15,"RQ",.06)=""
^DD(15,"SB",15.01101,1101)=""
^DD(15,"SB",15.013,1300)=""
^DD(15,"SB",15.02,2)=""
^DD(15,"SB",15.02101,2101)=""
^DD(15,"SB",15.03,3)=""
^DD(15.01101,0)="MERGE PACKAGES SUB-FIELD^^.03^4"
^DD(15.01101,0,"DT")="2900906"
^DD(15.01101,0,"IX","ANR",15.01101,.02)=""
^DD(15.01101,0,"NM","MERGE PACKAGES")=""
^DD(15.01101,0,"UP")="15"
^DD(15.01101,.01,0)="PACKAGE^*P9.4'IX^DIC(9.4,^0;1^S DIC(""S"")=""I $D(^DIC(9.4,Y,20,+$P(@(""""^""""_$P($P(^VA(15,D0,0),U),"""";"""",2)_""""0)""""),U,2)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(15.01101,.01,1,0)="^.1^^0"
^DD(15.01101,.01,12)="Package must be affected by file being merged"
^DD(15.01101,.01,12.1)="S DIC(""S"")=""I $D(^DIC(9.4,Y,20,+$P(@""""^""""_$P($P(^VA(15,D0,0),U),"""";"""",2)_""""0)""""),U,2)))"""
^DD(15.01101,.01,21,0)="^^2^2^2890724^^^^"
^DD(15.01101,.01,21,1,0)="Package interested in pending merge.  In order to enter a package in this"
^DD(15.01101,.01,21,2,0)="field the package must be affected by file being merged."
^DD(15.01101,.01,23,0)="^^2^2^2900830^^^^"
^DD(15.01101,.01,23,1,0)="Package interested in pending merge.  In order to enter a package in this"
^DD(15.01101,.01,23,2,0)="field the package must be affected by file being merged."
^DD(15.01101,.01,"DT")="2900906"
^DD(15.01101,.02,0)="STATUS^RS^0:NOT READY;1:READY;2:NO FROM ENTRY;^0;2^Q"
^DD(15.01101,.02,1,0)="^.1"
^DD(15.01101,.02,1,1,0)="15.01101^ANR^MUMPS"
^DD(15.01101,.02,1,1,1)="Q:X  S ^VA(15,DA(1),11,""ANR"",X,DA)="""""
^DD(15.01101,.02,1,1,2)="Q:X  K ^VA(15,DA(1),11,""ANR"",X,DA)"
^DD(15.01101,.02,1,1,"%D",0)="^^4^4^2900607^"
^DD(15.01101,.02,1,1,"%D",1,0)="This xref is set only when the status is 'not ready'.  It is used to"
^DD(15.01101,.02,1,1,"%D",2,0)="determine when all entries in this subfile are ready, which means the"
^DD(15.01101,.02,1,1,"%D",3,0)="primary file entries in the DUPLICATE RECORD file entry may now be"
^DD(15.01101,.02,1,1,"%D",4,0)="merged."
^DD(15.01101,.02,1,2,0)="^^TRIGGER^15^.05"
^DD(15.01101,.02,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(15.01101,.02,1,2,1.1) X ^DD(15.01101,.02,1,2,1.4)"
^DD(15.01101,.02,1,2,1.1)="S X=DIV X $P(^DD(15.01101,.0299,0),U,5,99) S Y(1)=X S X=Y(1)"
^DD(15.01101,.02,1,2,1.4)="S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=15,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(15.01101,.02,1,2,2)="Q"
^DD(15.01101,.02,1,2,"%D",0)="^^8^8^2900607^"
^DD(15.01101,.02,1,2,"%D",1,0)="This TRIGGER sets the MERGE STATUS field in this subfiles parent file."
^DD(15.01101,.02,1,2,"%D",2,0)="The MERGE STATUS field is set to a value computed by the computed field"
^DD(15.01101,.02,1,2,"%D",3,0)="READY in this subfile.  The value will compute to 0=NOT READY if there"
^DD(15.01101,.02,1,2,"%D",4,0)="is any entry in this subfile that is not ready.  It will compute to"
^DD(15.01101,.02,1,2,"%D",5,0)="1=READY only after all entries in this subfile have said they are"
^DD(15.01101,.02,1,2,"%D",6,0)="ready."
^DD(15.01101,.02,1,2,"%D",7,0)=""
^DD(15.01101,.02,1,2,"%D",8,0)="This TRIGGER must not be modified to fire on the kill side."
^DD(15.01101,.02,1,2,"CREATE VALUE")="READY"
^DD(15.01101,.02,1,2,"DELETE VALUE")="NO EFFECT"
^DD(15.01101,.02,1,2,"FIELD")="MERGE STATUS"
^DD(15.01101,.02,21,0)="^^6^6^2890725^^"
^DD(15.01101,.02,21,1,0)="This field set to 0=NOT READY if package does its own interactive merge;"
^DD(15.01101,.02,21,2,0)="1=READY if package has 'from' entry and has a merge routine specified in"
^DD(15.01101,.02,21,3,0)="the package file; 2=NO FROM ENTRY if the package does not have the 'from'"
^DD(15.01101,.02,21,4,0)="entry, regardless of whether it has a merge routine or not."
^DD(15.01101,.02,21,5,0)=""
^DD(15.01101,.02,21,6,0)="The TRIGGER on this field must not be modified to fire on the delete side."
^DD(15.01101,.02,23,0)="^^6^6^2900830^^^^"
^DD(15.01101,.02,23,1,0)="This field is set to 0=NOT READY if package does its own interactive merge;"
^DD(15.01101,.02,23,2,0)="1=READY if package has 'from' entry and has a merge routine specified in"
^DD(15.01101,.02,23,3,0)="the package file; 2=NO FROM ENTRY if the package does not have the 'from'"
^DD(15.01101,.02,23,4,0)="entry, regardless of whether it has a merge routine or not."
^DD(15.01101,.02,23,5,0)=""
^DD(15.01101,.02,23,6,0)="The TRIGGER on this field must not be modified to fire on the delete side."
^DD(15.01101,.02,"DT")="2890725"
^DD(15.01101,.0299,0)="READY^CJ8^^ ; ^S X=$S($D(^VA(15,D0,11,""ANR"")):0,1:1)"
^DD(15.01101,.0299,9)="^"
^DD(15.01101,.0299,9.01)=""
^DD(15.01101,.0299,9.1)="S X=$S($D(^VA(15,D0,11,""ANR"")):0,1:1)"
^DD(15.01101,.0299,21,0)="^^4^4^2940523^"
^DD(15.01101,.0299,21,1,0)="This field is set to 0 (not ready) if any of the entries in the MERGE"
^DD(15.01101,.0299,21,2,0)="PACKAGES multiple indicate via STATUS field that this duplicate record"
^DD(15.01101,.0299,21,3,0)="is not ready to be merged.  If all packages are ready for this record"
^DD(15.01101,.0299,21,4,0)="to be merged than this field will contain 1 (ready)."
^DD(15.01101,.0299,23,0)="^^3^3^2900607^"
^DD(15.01101,.0299,23,1,0)="This computed field computes a value of 0 or 1.  The value will be 0"
^DD(15.01101,.0299,23,2,0)="if any entry in this subfile has a STATUS of 'not ready', otherwise,"
^DD(15.01101,.0299,23,3,0)="the value will be 1."
^DD(15.01101,.0299,"DT")="2900405"
^DD(15.01101,.03,0)="ERROR MESSAGE^FI^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(15.01101,.03,3)="Answer must be 3-60 characters in length."
^DD(15.01101,.03,21,0)="^^2^2^2890727^"
^DD(15.01101,.03,21,1,0)="This field contains system error messages trapped during the execution"
^DD(15.01101,.03,21,2,0)="of package merge routines."
^DD(15.01101,.03,23,0)="^^2^2^2900830^^"
^DD(15.01101,.03,23,1,0)="This field contains system error messages trapped during the execution"
^DD(15.01101,.03,23,2,0)="of package merge routines."
^DD(15.01101,.03,"DT")="2890727"
^DD(15.01101,"B","ERROR MESSAGE",.03)=""
^DD(15.01101,"B","PACKAGE",.01)=""
^DD(15.01101,"B","READY",.0299)=""
^DD(15.01101,"B","STATUS",.02)=""
^DD(15.01101,"GL",0,1,.01)=""
^DD(15.01101,"GL",0,2,.02)=""
^DD(15.01101,"GL",0,3,.03)=""
^DD(15.01101,"IX",.02)=""
^DD(15.01101,"RQ",.02)=""
^DD(15.013,0)="CHECK POINTS SUB-FIELD^^1^2"
^DD(15.013,0,"DT")="2951102"
^DD(15.013,0,"IX","B",15.013,.01)=""
^DD(15.013,0,"NM","CHECK POINTS")=""
^DD(15.013,0,"UP")="15"
^DD(15.013,.01,0)="CHECK POINTS^F^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X"
^DD(15.013,.01,1,0)="^.1"
^DD(15.013,.01,1,1,0)="15.013^B"
^DD(15.013,.01,1,1,1)="S ^VA(15,DA(1),""CP"",""B"",$E(X,1,30),DA)="""""
^DD(15.013,.01,1,1,2)="K ^VA(15,DA(1),""CP"",""B"",$E(X,1,30),DA)"
^DD(15.013,.01,3)="Answer must be 3-30 characters in length."
^DD(15.013,.01,21,0)="^^1^1^2951102^"
^DD(15.013,.01,21,1,0)="This sub file hold check point information about the merge."
^DD(15.013,.01,"DT")="2951102"
^DD(15.013,1,0)="PARAMETERS^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(15.013,1,3)="Answer must be 1-245 characters in length."
^DD(15.013,1,21,0)="^^2^2^2951102^"
^DD(15.013,1,21,1,0)="This field is were the MERGE routines can store parameters for"
^DD(15.013,1,21,2,0)="restart and tracking."
^DD(15.013,1,"DT")="2951102"
^DD(15.013,"B","CHECK POINTS",.01)=""
^DD(15.013,"B","PARAMETERS",1)=""
^DD(15.013,"GL",0,1,.01)=""
^DD(15.013,"GL",1,"E1,245",1)=""
^DD(15.013,"IX",.01)=""
^DD(15.02,0)="IDENTIFYING SERVICE SUB-FIELD^^.05^5"
^DD(15.02,0,"DT")="2960426"
^DD(15.02,0,"IX","B",15.02,.01)=""
^DD(15.02,0,"NM","IDENTIFYING SERVICE")=""
^DD(15.02,0,"UP")="15"
^DD(15.02,.01,0)="IDENTIFYING SERVICE^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(15.02,.01,1,0)="^.1"
^DD(15.02,.01,1,1,0)="15.02^B"
^DD(15.02,.01,1,1,1)="S ^VA(15,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(15.02,.01,1,1,2)="K ^VA(15,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(15.02,.01,3)="Answer must be 3-30 characters in length."
^DD(15.02,.01,21,0)="^^2^2^2960206^^"
^DD(15.02,.01,21,1,0)="This field is the name of the service with respect to the patient"
^DD(15.02,.01,21,2,0)="pair being duplicates."
^DD(15.02,.01,"DT")="2960206"
^DD(15.02,.02,0)="SERVICE DETERMINATION^S^V:VERIFIED DUPLICATE;N:VERIFIED, NOT A DUPLICATE;U:UNKNOWN;D:NO DATA IN FILE;^0;2^Q"
^DD(15.02,.02,3)="This entry indicates the services indication of the status of this duplicate pair (D - NO DATA IN FILE is entered automatically if no data is available for the service to base a decision)."
^DD(15.02,.02,21,0)="^^2^2^2960206^"
^DD(15.02,.02,21,1,0)="This field determines if the patient pair entries are duplicates"
^DD(15.02,.02,21,2,0)="or not for each identifying service."
^DD(15.02,.02,"DT")="2960426"
^DD(15.02,.03,0)="WHO DETERMINED^P200'^VA(200,^0;3^Q"
^DD(15.02,.03,"DT")="2960206"
^DD(15.02,.04,0)="WHEN DETERMINED^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.02,.04,"DT")="2960206"
^DD(15.02,.05,0)="DIRECTION OF MERGE^S^1:RECORD1 INTO RECORD2;2:RECORD2 INTO RECORD1;^0;5^Q"
^DD(15.02,.05,3)="Indicate the record which does not have the best data (1=RECORD1 or 2=RECORD2) which should be merged into the other record."
^DD(15.02,.05,21,0)="^^2^2^2960213^"
^DD(15.02,.05,21,1,0)="This field is used for the identifying service to indicate the preference"
^DD(15.02,.05,21,2,0)="for which record should be merged into the other record."
^DD(15.02,.05,"DT")="2960213"
^DD(15.02,"B","DIRECTION OF MERGE",.05)=""
^DD(15.02,"B","IDENTIFYING SERVICE",.01)=""
^DD(15.02,"B","SERVICE DETERMINATION",.02)=""
^DD(15.02,"B","WHEN DETERMINED",.04)=""
^DD(15.02,"B","WHO DETERMINED",.03)=""
^DD(15.02,"GL",0,1,.01)=""
^DD(15.02,"GL",0,2,.02)=""
^DD(15.02,"GL",0,3,.03)=""
^DD(15.02,"GL",0,4,.04)=""
^DD(15.02,"GL",0,5,.05)=""
^DD(15.02,"IX",.01)=""
^DD(15.02101,0)="DUPLICATE TESTS/SCORES SUB-FIELD^^.02^2"
^DD(15.02101,0,"DT")="2900830"
^DD(15.02101,0,"IX","B",15.02101,.01)=""
^DD(15.02101,0,"NM","DUPLICATE TESTS/SCORES")=""
^DD(15.02101,0,"UP")="15"
^DD(15.02101,.01,0)="DUPLICATE TEST^F^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(15.02101,.01,1,0)="^.1"
^DD(15.02101,.01,1,1,0)="15.02101^B"
^DD(15.02101,.01,1,1,1)="S ^VA(15,DA(1),21,""B"",$E(X,1,30),DA)="""""
^DD(15.02101,.01,1,1,2)="K ^VA(15,DA(1),21,""B"",$E(X,1,30),DA)"
^DD(15.02101,.01,3)="Answer must be 3-30 characters in length."
^DD(15.02101,.01,23,0)="^^2^2^2900830^"
^DD(15.02101,.01,23,1,0)="This field is the name of a test in the 'duplicate test' multiple of"
^DD(15.02101,.01,23,2,0)="the 'duplicate resolution' file."
^DD(15.02101,.01,"DT")="2900830"
^DD(15.02101,.02,0)="DUPLICATE SCORE^RNJ3,0^^0;2^K:+X'=X!(X>500)!(X<-500)!(X?.E1"".""1N.N) X"
^DD(15.02101,.02,3)="Type a Number between -500 and 500, 0 Decimal Digits"
^DD(15.02101,.02,21,0)="^^3^3^2940523^"
^DD(15.02101,.02,21,1,0)="This field contains the score computed for this test at the time this"
^DD(15.02101,.02,21,2,0)="'duplicate record' entry was analyzed by the duplicate resolution"
^DD(15.02101,.02,21,3,0)="software."
^DD(15.02101,.02,23,0)="^^3^3^2900830^"
^DD(15.02101,.02,23,1,0)="This field contains the score computed for this test at the time"
^DD(15.02101,.02,23,2,0)="this 'duplicate record' entry was analyzed by the duplicate resolution"
^DD(15.02101,.02,23,3,0)="software."
^DD(15.02101,.02,"DT")="2900830"
^DD(15.02101,"B","DUPLICATE SCORE",.02)=""
^DD(15.02101,"B","DUPLICATE TEST",.01)=""
^DD(15.02101,"GL",0,1,.01)=""
^DD(15.02101,"GL",0,2,.02)=""
^DD(15.02101,"IX",.01)=""
^DD(15.02101,"RQ",.02)=""
^DD(15.03,0)="OVERWRITE IN FILE SUB-FIELD^^1^3"
^DD(15.03,0,"DT")="2960423"
^DD(15.03,0,"IX","B",15.03,.01)=""
^DD(15.03,0,"NM","OVERWRITE IN FILE")=""
^DD(15.03,0,"UP")="15"
^DD(15.03,.01,0)="OVERWRITE IN FILE^MNJ15,3^^0;1^K:+X'=X!(X>99999999999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(15.03,.01,1,0)="^.1"
^DD(15.03,.01,1,1,0)="15.03^B"
^DD(15.03,.01,1,1,1)="S ^VA(15,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(15.03,.01,1,1,2)="K ^VA(15,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(15.03,.01,3)="Enter File Number in which one or more fields are to be overwritten during the merge process by data from the merged from entry."
^DD(15.03,.01,21,0)="^^3^3^2960402^"
^DD(15.03,.01,21,1,0)="This multiple field is used to indicate a file number in which one or more"
^DD(15.03,.01,21,2,0)="fields in the 'merged to' entry are to be overwritten with data from the"
^DD(15.03,.01,21,3,0)="'merged from' entry."
^DD(15.03,.01,"DT")="2960402"
^DD(15.03,.02,0)="MERGE DIRECTION^S^1:MERGE REC1 TO REC2;2:REVERSE MERGE;^0;2^Q"
^DD(15.03,.02,3)="This entry indicates whether the merge is processed in the normal direction, or reversed"
^DD(15.03,.02,21,0)="^^2^2^2960423^"
^DD(15.03,.02,21,1,0)="This field is used to determine whethe the merge process is handled in"
^DD(15.03,.02,21,2,0)="the normal direction, or is reversed."
^DD(15.03,.02,"DT")="2960423"
^DD(15.03,1,0)="FIELD TO OVERWRITE^15.031A^^1;0"
^DD(15.03,"B","FIELD TO OVERWRITE",1)=""
^DD(15.03,"B","MERGE DIRECTION",.02)=""
^DD(15.03,"B","OVERWRITE IN FILE",.01)=""
^DD(15.03,"GL",0,1,.01)=""
^DD(15.03,"GL",0,2,.02)=""
^DD(15.03,"GL",1,0,1)=""
^DD(15.03,"IX",.01)=""
^DD(15.03,"SB",15.031,1)=""
^DD(15.031,0)="FIELD TO OVERWRITE SUB-FIELD^^.01^1"
^DD(15.031,0,"DT")="2960402"
^DD(15.031,0,"IX","B",15.031,.01)=""
^DD(15.031,0,"NM","FIELD TO OVERWRITE")=""
^DD(15.031,0,"UP")="15.03"
^DD(15.031,.01,0)="FIELD TO OVERWRITE^MNJ19,7^^0;1^K:+X'=X!(X>99999999999)!(X<.0000001)!(X?.E1"".""8N.N) X"
^DD(15.031,.01,1,0)="^.1"
^DD(15.031,.01,1,1,0)="15.031^B"
^DD(15.031,.01,1,1,1)="S ^VA(15,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(15.031,.01,1,1,2)="K ^VA(15,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(15.031,.01,3)="Enter a field number for which the data in the 'merged to' entry is to be overwritten with data from the 'merged from' entry."
^DD(15.031,.01,21,0)="^^2^2^2960402^"
^DD(15.031,.01,21,1,0)="This multiple field is used to indicate the field(s) which in the parent"
^DD(15.031,.01,21,2,0)="file that are to be overwritten with data from the 'merged from' entry."
^DD(15.031,.01,"DT")="2960402"
^DD(15.031,"B","FIELD TO OVERWRITE",.01)=""
^DD(15.031,"GL",0,1,.01)=""
^DD(15.031,"IX",.01)=""
^DD(15.1,0)="FIELD^^1200^33"
^DD(15.1,0,"DDA")="N"
^DD(15.1,0,"DT")="2980210"
^DD(15.1,0,"IX","AGL",15.1,.01)=""
^DD(15.1,0,"IX","APDTI",15.1,.15)=""
^DD(15.1,0,"IX","B",15.1,.01)=""
^DD(15.1,0,"NM","DUPLICATE RESOLUTION")=""
^DD(15.1,0,"VR")="7.3"
^DD(15.1,0,"VRPK")="XT"
^DD(15.1,.01,0)="FILE TO BE CHECKED^R*P1'X^DIC(^0;1^S DIC(""S"")=""I $D(^DD(15,.01,""""V"""",""""B"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(15.1,.01,1,0)="^.1"
^DD(15.1,.01,1,1,0)="15.1^B"
^DD(15.1,.01,1,1,1)="S ^VA(15.1,""B"",$E(X,1,30),DA)="""""
^DD(15.1,.01,1,1,2)="K ^VA(15.1,""B"",$E(X,1,30),DA)"
^DD(15.1,.01,1,2,0)="15.1^AGL^MUMPS"
^DD(15.1,.01,1,2,1)="S ^VA(15.1,""AGL"",$P(^DIC(X,0,""GL""),U,2),DA)="""""
^DD(15.1,.01,1,2,2)="K ^VA(15.1,""AGL"",$P(^DIC(X,0,""GL""),U,2),DA)"
^DD(15.1,.01,1,2,"%D",0)="^^2^2^2901123^"
^DD(15.1,.01,1,2,"%D",1,0)="This cross reference is utilized by the XDRDUP when adjusting"
^DD(15.1,.01,1,2,"%D",2,0)="existing score values for a Duplicate Record entry."
^DD(15.1,.01,1,2,"DT")="2901123"
^DD(15.1,.01,3)="Please enter a file name or file number."
^DD(15.1,.01,12)="MUST BE VARIABLE POINTER FILE IN FIELD .01 OF FILE 15"
^DD(15.1,.01,12.1)="S DIC(""S"")=""I $D(^DD(15,.01,""""V"""",""""B"""",Y))"""
^DD(15.1,.01,21,0)="^^2^2^2960531^^^"
^DD(15.1,.01,21,1,0)="This is the file that is being checked for duplicates and if duplicates"
^DD(15.1,.01,21,2,0)="are found, to be merged."
^DD(15.1,.01,"DT")="2921221"
^DD(15.1,.02,0)="DUPLICATE SEARCH STATUS^RS^c:COMPLETED;h:HALTED;r:RUNNING;e:ERROR(STOP);^0;2^Q"
^DD(15.1,.02,3)="This is the status of the duplicate checker at any given time."
^DD(15.1,.02,21,0)="^^2^2^2970724^^"
^DD(15.1,.02,21,1,0)=""
^DD(15.1,.02,21,2,0)="This is the status of the duplicate checker at any given time."
^DD(15.1,.02,23,0)="^^6^6^2970724^^"
^DD(15.1,.02,23,1,0)="This field is set by the duplicate checker software.  It is set to"
^DD(15.1,.02,23,2,0)="running when the search is first initiated, set to halt if a person"
^DD(15.1,.02,23,3,0)="wants to stop the search, and to completed when the search is finished."
^DD(15.1,.02,23,4,0)=""
^DD(15.1,.02,23,5,0)="If for some reason the search aborts you will need to set this field to"
^DD(15.1,.02,23,6,0)="halted from running in order for you to restart the search."
^DD(15.1,.02,"DT")="2960202"
^DD(15.1,.03,0)="SEARCH BEGINNING DATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(15.1,.03,3)="No entry is required in this field.  It will automatically be filled in for you by the search software."
^DD(15.1,.03,21,0)="^^3^3^2960305^^"
^DD(15.1,.03,21,1,0)="This is the date and time that the present search started.  This field"
^DD(15.1,.03,21,2,0)="does not require user input, it is automatically filled in when you"
^DD(15.1,.03,21,3,0)="start the search."
^DD(15.1,.03,23,0)="^^2^2^2960305^^"
^DD(15.1,.03,23,1,0)="This field is automatically stuffed with the date and time that the"
^DD(15.1,.03,23,2,0)="search is queued by the search queueing software."
^DD(15.1,.03,"DT")="2900830"
^DD(15.1,.04,0)="SEARCH COMPLETION DATE^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(15.1,.04,3)="You do not need to fill in this field.  It will automatically be done for you by the search software."
^DD(15.1,.04,21,0)="^^2^2^2900829^"
^DD(15.1,.04,21,1,0)="This field is used to store the date and time that the duplicate search"
^DD(15.1,.04,21,2,0)="is completed."
^DD(15.1,.04,23,0)="^^2^2^2900829^"
^DD(15.1,.04,23,1,0)="This field is automatically stuffed by the search software upon completion"
^DD(15.1,.04,23,2,0)="of the search."
^DD(15.1,.04,"DT")="2900830"
^DD(15.1,.05,0)="TYPE OF SEARCH^S^b:BASIC;n:NEW;^0;5^Q"
^DD(15.1,.05,3)="This is the type of search that is currently being run or has been completed."
^DD(15.1,.05,21,0)="^^4^4^2900914^^"
^DD(15.1,.05,21,1,0)="This field describes the type of search the Duplicate Resolution"
^DD(15.1,.05,21,2,0)="software will conduct.  A 'BASIC' search starts at the beginning of"
^DD(15.1,.05,21,3,0)="a file while the 'NEW' search will only check those newly added"
^DD(15.1,.05,21,4,0)="entries."
^DD(15.1,.05,23,0)="^^5^5^2900914^^"
^DD(15.1,.05,23,1,0)="This field is used to describe the type of search that is currently"
^DD(15.1,.05,23,2,0)="being run or has been completed.  The Basic search type is used"
^DD(15.1,.05,23,3,0)="whenever you are starting at the very beginning of a file and searching"
^DD(15.1,.05,23,4,0)="for duplicates.  The New search type is used to take records from a"
^DD(15.1,.05,23,5,0)="defined cross reference to check for duplicates in the file."
^DD(15.1,.05,"DT")="2900829"
^DD(15.1,.06,0)="CROSS-REF FOR NEW SEARCH^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(15.1,.06,3)="Answer must be 1-10 characters in length."
^DD(15.1,.06,21,0)="^^4^4^2900912^^"
^DD(15.1,.06,21,1,0)="This is the name of the cross reference that should be"
^DD(15.1,.06,21,2,0)="utilized to separate out any records that you wish to run"
^DD(15.1,.06,21,3,0)="through the Duplicate Resolution software checking to see"
^DD(15.1,.06,21,4,0)="if any potential duplicates."
^DD(15.1,.06,23,0)="^^7^7^2900912^^"
^DD(15.1,.06,23,1,0)="If the operator chooses to do a 'NEW' search this cross reference"
^DD(15.1,.06,23,2,0)="will be $Ordered through checking each record against a gathered"
^DD(15.1,.06,23,3,0)="group of records to determine if any potential duplicates."
^DD(15.1,.06,23,4,0)=""
^DD(15.1,.06,23,5,0)="The 'NEW' search will be utilized almost exclusively once the"
^DD(15.1,.06,23,6,0)="file has gone through a basic cleaning up phase utilizing the"
^DD(15.1,.06,23,7,0)="'BASIC' search type."
^DD(15.1,.06,"DT")="2900829"
^DD(15.1,.07,0)="NUMBER OF RECORDS PROCESSED^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.1,.07,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(15.1,.07,21,0)="^^2^2^2900829^"
^DD(15.1,.07,21,1,0)="This is the number of records that have been checked for duplicates"
^DD(15.1,.07,21,2,0)="by the duplicate checking software."
^DD(15.1,.07,23,0)="^^2^2^2900829^"
^DD(15.1,.07,23,1,0)="This field is stuffed by the duplicate checking software whenever"
^DD(15.1,.07,23,2,0)="the search is stopped or completed."
^DD(15.1,.07,"DT")="2900829"
^DD(15.1,.08,0)="LAST RECORD PROCESSED^NJ15,0^^0;8^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.1,.08,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(15.1,.08,21,0)="^^2^2^2971217^^^^"
^DD(15.1,.08,21,1,0)="This is the last record that was processed by the duplicate checking"
^DD(15.1,.08,21,2,0)="software."
^DD(15.1,.08,23,0)="^^8^8^2971217^^^^"
^DD(15.1,.08,23,1,0)="This field is utilized by the duplicate software as a starting point"
^DD(15.1,.08,23,2,0)="whenever the duplicate search is started up from a halted status."
^DD(15.1,.08,23,3,0)="This means that if the search was stopped either by a user or some"
^DD(15.1,.08,23,4,0)="other reason, the search would start up again starting with this"
^DD(15.1,.08,23,5,0)="record number."
^DD(15.1,.08,23,6,0)=""
^DD(15.1,.08,23,7,0)="This field is updated every time a record is checked for duplicates by"
^DD(15.1,.08,23,8,0)="the duplicate checking software."
^DD(15.1,.08,"DT")="2971217"
^DD(15.1,.09,0)="CANDIDATE COLLECTION ROUTINE^RF^^0;9^K:$L(X)>17!($L(X)<1) X"
^DD(15.1,.09,3)="Answer must be 1-17 characters in length.  No '^' allowed."
^DD(15.1,.09,21,0)="^^3^3^2900912^^^^"
^DD(15.1,.09,21,1,0)="This is the name of the routine which will be used to"
^DD(15.1,.09,21,2,0)="gather any potential duplicate records which should be checked"
^DD(15.1,.09,21,3,0)="by the Duplicate Resolution software."
^DD(15.1,.09,23,0)="^^5^5^2900912^^"
^DD(15.1,.09,23,1,0)="Enter the routine name without the '^' character.  A label entry"
^DD(15.1,.09,23,2,0)="point reference is allowed but you must use a '-' instead of the"
^DD(15.1,.09,23,3,0)="normal '^', ex. ENTRY POINT-ROUTINE.  This entry will be executed by"
^DD(15.1,.09,23,4,0)="the Kernel duplicate resolution software after transforming the '-'"
^DD(15.1,.09,23,5,0)="into a '^'."
^DD(15.1,.09,"DT")="2921217"
^DD(15.1,.1,0)="SECONDS SEARCHED^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(15.1,.1,3)="This value is entered when the search process is stopped for any reason."
^DD(15.1,.1,21,0)="^^5^5^2960202^"
^DD(15.1,.1,21,1,0)="This field is used to track the number of seconds that the search process"
^DD(15.1,.1,21,2,0)="was running PRIOR TO the most current start (or restart).  The value is"
^DD(15.1,.1,21,3,0)="determined at the time the process stops for any reason (completed, halt,"
^DD(15.1,.1,21,4,0)="or error).  While the search is running it does NOT include time for the"
^DD(15.1,.1,21,5,0)="current process."
^DD(15.1,.1,"DT")="2960202"
^DD(15.1,.11,0)="DUPLICATE MANAGER MAIL GROUP^P3.8'^XMB(3.8,^0;11^Q"
^DD(15.1,.11,3)="Enter the name of the mail group to which you want to send a bulletin when some error causes the halting of the duplicate search or merge process.  The name must be in the Mail Group file."
^DD(15.1,.11,21,0)="^^3^3^2970718^^"
^DD(15.1,.11,21,1,0)="This is the mail group that will be sent a bulletin whenever"
^DD(15.1,.11,21,2,0)="any known problems occur during the duplicate checking or"
^DD(15.1,.11,21,3,0)="merging process."
^DD(15.1,.11,"DT")="2901127"
^DD(15.1,.12,0)="NUMBER SELECTED^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.1,.12,3)="This number indicates the number of patients that have been selected during the current search."
^DD(15.1,.12,21,0)="^^2^2^2960306^^"
^DD(15.1,.12,21,1,0)="This field is used to indicate the number of potential duplicates that"
^DD(15.1,.12,21,2,0)="have been found in the current search."
^DD(15.1,.12,"DT")="2960213"
^DD(15.1,.13,0)="DAYS BEFORE FINAL VERIFY^NJ2,0^^0;13^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.1,.13,3)="Type a Number between 0 and 30, 0 Decimal Digits"
^DD(15.1,.13,21,0)="^^7^7^2970812^"
^DD(15.1,.13,21,1,0)="The value of this field is the number of days available for ancillary"
^DD(15.1,.13,21,2,0)="reviewers to conduct their reviews. If action is still pending by any"
^DD(15.1,.13,21,3,0)="ancillary reviewers after this period, the site may take alternative"
^DD(15.1,.13,21,4,0)="action; notify designated persons via a mail group, establish an"
^DD(15.1,.13,21,5,0)="additional reviewer, or otherwise resolve the review. All reviews must be"
^DD(15.1,.13,21,6,0)="resolved prior to merging the affected record pair. The default with this"
^DD(15.1,.13,21,7,0)="application release is five days.  Days 1 to 30."
^DD(15.1,.13,"DT")="2980210"
^DD(15.1,.14,0)="DAYS BETWEEN VERIFY AND MERGE^NJ2,0^^0;14^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.1,.14,3)="Enter the number of days (0 to 30) which must pass after a patient pair is marked as completely verified as a duplicate pair before the pair may be merged."
^DD(15.1,.14,21,0)="^^7^7^2970417^^"
^DD(15.1,.14,21,1,0)="This field contains the sites determination on the number of days that"
^DD(15.1,.14,21,2,0)="MUST pass before a completely verified duplicate pair may be merged."
^DD(15.1,.14,21,3,0)="This time period is included to provide for outstanding tests which"
^DD(15.1,.14,21,4,0)="might have been ordered for the entry which is to be merged into the"
^DD(15.1,.14,21,5,0)="other one to be completed prior to the merge, so that data are not"
^DD(15.1,.14,21,6,0)="entered for the merged entry after the merge has been completed."
^DD(15.1,.14,21,7,0)=" "
^DD(15.1,.14,"DT")="2960213"
^DD(15.1,.15,0)="POTENTIAL DUPLICATE THRESHOLD%^RNJ3,0X^^0;15^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X K:$P(^VA(15.1,DA,0),U,2)=""r"" X"
^DD(15.1,.15,1,0)="^.1"
^DD(15.1,.15,1,1,0)="15.1^APDTI^MUMPS"
^DD(15.1,.15,1,1,1)="I $D(XDR(""APDTI"")),XDR(""APDTI""),X>XDR(""APDTI"") S ^VA(15.1,DA,""APDTI"")="""" K XDR(""APDTI"")"
^DD(15.1,.15,1,1,2)="I $D(X),X S XDR(""APDTI"")=X"
^DD(15.1,.15,1,1,"%D",0)="^^11^11^2900913^^^"
^DD(15.1,.15,1,1,"%D",1,0)="This cross reference is set whenever the Potential Duplicate Threshold"
^DD(15.1,.15,1,1,"%D",2,0)="is increased.  This Xref is utilized by the Duplicate Resolution software"
^DD(15.1,.15,1,1,"%D",3,0)="to let it know to go through the existing Non-verified Potential Duplicates"
^DD(15.1,.15,1,1,"%D",4,0)="and see if the duplicate record pair meet the increased Potential Duplicate"
^DD(15.1,.15,1,1,"%D",5,0)="Threshold.  If not, the duplicate record pair entry is deleted from the"
^DD(15.1,.15,1,1,"%D",6,0)="file."
^DD(15.1,.15,1,1,"%D",7,0)=""
^DD(15.1,.15,1,1,"%D",8,0)="The variable XDR(""APDTI"") is left around if somebody deletes the entry"
^DD(15.1,.15,1,1,"%D",9,0)="from the Duplicate Resolution file.   This is due to Fileman never"
^DD(15.1,.15,1,1,"%D",10,0)="allowing you to know if a person is just editing, adding, or deleting"
^DD(15.1,.15,1,1,"%D",11,0)="an entry."
^DD(15.1,.15,1,1,"DT")="2900913"
^DD(15.1,.15,3)="Type a Number between 0 and 100, 0 Decimal Digits.  You cannot edit if a Search is running."
^DD(15.1,.15,21,0)="^^3^3^2970812^^^^"
^DD(15.1,.15,21,1,0)="This is the percentage of the total possible score that needs to be"
^DD(15.1,.15,21,2,0)="obtained before a duplicate record pair is placed in the Duplicate"
^DD(15.1,.15,21,3,0)="Record file as a Potential Non-Verified Duplicate pair."
^DD(15.1,.15,23,0)="^^2^2^2900926^^"
^DD(15.1,.15,23,1,0)="This field has a input transform that prevents the user from editing"
^DD(15.1,.15,23,2,0)="the field if the Duplicate Search Status is set to 'Running'."
^DD(15.1,.15,"DT")="2901002"
^DD(15.1,.16,0)="VERIFIED DUPLICATE MAIL GROUP^P3.8'^XMB(3.8,^0;16^Q"
^DD(15.1,.16,3)="Enter the name of the mail group to which you want to send a bulletin when the record is verified a duplicate.  The name must be in the Mail Group file."
^DD(15.1,.16,21,0)="^^3^3^2900829^"
^DD(15.1,.16,21,1,0)="This is the mail group that will be sent a bulletin"
^DD(15.1,.16,21,2,0)="whenever a Potential Non-Verified Duplicate is changed to"
^DD(15.1,.16,21,3,0)="a Verified Duplicate status."
^DD(15.1,.16,23,0)="^^6^6^2900829^"
^DD(15.1,.16,23,1,0)="This is the mail group that will be sent a bulletin saying"
^DD(15.1,.16,23,2,0)="that a Potential Non-Verified Duplicate pair has been"
^DD(15.1,.16,23,3,0)="verified as a Duplicate pair.  The bulletin will be sent"
^DD(15.1,.16,23,4,0)="immediately after the status has been changed to Verified"
^DD(15.1,.16,23,5,0)="Duplicate unless it is okay to proceed immediately with merging"
^DD(15.1,.16,23,6,0)="the records."
^DD(15.1,.16,"DT")="2900829"
^DD(15.1,.17,0)="VERIFIED DUPLICATE MSG ROUTINE^F^^0;17^K:$L(X)>17!($L(X)<1) X"
^DD(15.1,.17,3)="Answer must be 1-17 characters in length.  No '^' allowed."
^DD(15.1,.17,21,0)="^^3^3^2901231^^^^"
^DD(15.1,.17,21,1,0)="Enter the name of the routine which will be called to send a bulletin"
^DD(15.1,.17,21,2,0)="to members of the Verified Duplicate Mail Group. No '^' should be"
^DD(15.1,.17,21,3,0)="included."
^DD(15.1,.17,23,0)="^^13^13^2901231^^^^"
^DD(15.1,.17,23,1,0)="This optional field is to allow a package developer to send a"
^DD(15.1,.17,23,2,0)="customized bulletin notifying the Verified Duplicate Mail Group"
^DD(15.1,.17,23,3,0)="about verified duplicates.  If nothing is entered the Kernel"
^DD(15.1,.17,23,4,0)="Duplicate Resolution software will send a brief bulletin to the"
^DD(15.1,.17,23,5,0)="members of the mail group.  This bulletin will only provide the"
^DD(15.1,.17,23,6,0)=".01 value and the DFN numbers of the two records.  The duplicate"
^DD(15.1,.17,23,7,0)="resolution software will pass the routine XDRMFR and XDRMTO and"
^DD(15.1,.17,23,8,0)="it will be up to this routine to gather any other information it"
^DD(15.1,.17,23,9,0)="wants to send in the bulletin and also to send the bulletin to"
^DD(15.1,.17,23,10,0)="the Verified Duplicate Mail Group.  A label entry point is allowed"
^DD(15.1,.17,23,11,0)="but you must use a '-' instead of the normal '^', ex. ENTRY POINT-"
^DD(15.1,.17,23,12,0)="ROUTINE.  This entry point will be executed by the duplicate"
^DD(15.1,.17,23,13,0)="resolution software after transforming the '-' into a '^'."
^DD(15.1,.17,"DT")="2901231"
^DD(15.1,.18,0)="VERIFIED DUPLICATE THRESHOLD%^NJ3,0X^^0;18^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X K:$P(^VA(15.1,DA,0),U,2)=""r"" X"
^DD(15.1,.18,3)="Type a Number between 0 and 100, 0 Decimal Digits.  You cannot edit if a search is running."
^DD(15.1,.18,21,0)="^^3^3^2901002^^^^"
^DD(15.1,.18,21,1,0)="This is the percentage that needs to be obtained before a duplicate record"
^DD(15.1,.18,21,2,0)="pair is placed in the Duplicate Record file as a Verified Potential"
^DD(15.1,.18,21,3,0)="Duplicate pair."
^DD(15.1,.18,23,0)="^^16^16^2901002^^^^"
^DD(15.1,.18,23,1,0)="There is a input transform that does not allow the user to edit this"
^DD(15.1,.18,23,2,0)="field if the Duplicate Search Status is set to 'Running'."
^DD(15.1,.18,23,3,0)=""
^DD(15.1,.18,23,4,0)="It is unknown in the early phases of the Duplicate Resolution software"
^DD(15.1,.18,23,5,0)="whether there will be a percentage which no user interaction will be"
^DD(15.1,.18,23,6,0)="required to look at a potential duplicate and make the determination"
^DD(15.1,.18,23,7,0)="that the pair truly are duplicates."
^DD(15.1,.18,23,8,0)=""
^DD(15.1,.18,23,9,0)="However if someone does enter a percentage in this field and the Duplicate"
^DD(15.1,.18,23,10,0)="Checker score exceeds this percentage, the duplicate resolution software"
^DD(15.1,.18,23,11,0)="will enter the pair as verified non-duplicates and will send the message"
^DD(15.1,.18,23,12,0)="to the Verified Duplicate Mail Group."
^DD(15.1,.18,23,13,0)=""
^DD(15.1,.18,23,14,0)="The merge will not occur at this time, it will either be started up"
^DD(15.1,.18,23,15,0)="via the automatic merge option or be done at the completion of the"
^DD(15.1,.18,23,16,0)="duplicate checker."
^DD(15.1,.18,"DT")="2901002"
^DD(15.1,.25,0)="MERGE STYLE^RS^0:INTERACTIVE;1:NON-INTERACTIVE;^0;25^Q"
^DD(15.1,.25,3)="Enter 'Interactive' if during the merge process you wish to be able to select certain field values of the From record to replace in the To record"
^DD(15.1,.25,21,0)="^^3^3^2901213^^"
^DD(15.1,.25,21,1,0)="This field is used to define whether during the merge process the operator"
^DD(15.1,.25,21,2,0)="will be able to select certain field values to transfer (Interactive) or"
^DD(15.1,.25,21,3,0)="if the merge will occur automatically (Non-interactive)."
^DD(15.1,.25,23,0)="^^9^9^2901213^^"
^DD(15.1,.25,23,1,0)="If you enter 'Interactive' the utilities of DITC will be utilized to"
^DD(15.1,.25,23,2,0)="display both records and different fields in a columnar format on the"
^DD(15.1,.25,23,3,0)="screen.  The operator will then be able to select field values of the"
^DD(15.1,.25,23,4,0)="From record to replace the corresponding fields in the To record."
^DD(15.1,.25,23,5,0)=""
^DD(15.1,.25,23,6,0)="If you choose 'Non-interactive' the operator will not see a display"
^DD(15.1,.25,23,7,0)="of the records and the To field values will be retained with the"
^DD(15.1,.25,23,8,0)="fields that are empty being replaced by any corresponding From field"
^DD(15.1,.25,23,9,0)="value."
^DD(15.1,.25,"DT")="2901213"
^DD(15.1,.26,0)="DELETE FROM ENTRY^S^0:NO;1:YES;^0;26^Q"
^DD(15.1,.26,3)="If you wish to delete the From record entry enter a 'YES', if you wish to keep the From entry or have done any manipulation of the From entry in the Post-Merge Routine enter a 'NO'."
^DD(15.1,.26,21,0)="^^2^2^2900829^"
^DD(15.1,.26,21,1,0)="This field is used to tell the Duplicate Resolution software whether"
^DD(15.1,.26,21,2,0)="or not you wish to delete the From entry in this file."
^DD(15.1,.26,23,0)="^^7^7^2900829^"
^DD(15.1,.26,23,1,0)="This field is used to tell the Duplicate Resolution software whether or"
^DD(15.1,.26,23,2,0)="not the From entry should be deleted from the file.  The From entry will"
^DD(15.1,.26,23,3,0)="be deleted using DIK and it should also be remebered that any files pointing"
^DD(15.1,.26,23,4,0)="to the From entry will have been repointed before the entry is deleted."
^DD(15.1,.26,23,5,0)=""
^DD(15.1,.26,23,6,0)="Also if you wish to leave some sort of stub or cross reference of the From"
^DD(15.1,.26,23,7,0)="entry, this should be accomplished in the Post-Merge Routine."
^DD(15.1,.26,"DT")="2900829"
^DD(15.1,.27,0)="PRE-MERGE ROUTINE^F^^0;27^K:$L(X)>17!($L(X)<1) X"
^DD(15.1,.27,3)="Answer must be 1-17 characters in length.  No '^' allowed."
^DD(15.1,.27,21,0)="^^3^3^2900912^^^^"
^DD(15.1,.27,21,1,0)="This field is utilized to name a routine that should be done"
^DD(15.1,.27,21,2,0)="prior to the merging process."
^DD(15.1,.27,21,3,0)="This may be a entry point call to a routine or just a routine name."
^DD(15.1,.27,23,0)="^^5^5^2900912^^^"
^DD(15.1,.27,23,1,0)="This field will be executed by the duplicate resolution software."
^DD(15.1,.27,23,2,0)="The routine should be entered without a '^' if an entry point is"
^DD(15.1,.27,23,3,0)="utilized use a '-' to separate the entry point from the routine name."
^DD(15.1,.27,23,4,0)="The duplicate resolution software will execute this field after"
^DD(15.1,.27,23,5,0)="transforming the '-' to a '^'."
^DD(15.1,.27,"DT")="2900912"
^DD(15.1,.28,0)="POST-MERGE ROUTINE^F^^0;28^K:$L(X)>17!($L(X)<1) X"
^DD(15.1,.28,3)="Answer must be 1-17 characters in length.  No '^' allowed."
^DD(15.1,.28,21,0)="^^3^3^2900912^"
^DD(15.1,.28,21,1,0)="This field is utilized to name a routine that should be done after"
^DD(15.1,.28,21,2,0)="the completion of the merge process.  This may be a entry point call"
^DD(15.1,.28,21,3,0)="to a routine or just a routine name."
^DD(15.1,.28,23,0)="^^5^5^2900912^"
^DD(15.1,.28,23,1,0)="This field will be executed by the duplicate resolution software."
^DD(15.1,.28,23,2,0)="The routine should be entered without a '^', if an entry point is"
^DD(15.1,.28,23,3,0)="utilized use a '-' to separate the entry point from the routine"
^DD(15.1,.28,23,4,0)="name.  The duplicate resolution software will execute this field after"
^DD(15.1,.28,23,5,0)="transforming the '-' to a '^'."
^DD(15.1,.28,"DT")="2900912"
^DD(15.1,.29,0)="MERGE MAIL GROUP^P3.8'^XMB(3.8,^0;29^Q"
^DD(15.1,.29,3)="Enter the name of the mail group to which you want to send a bulletin when a duplicate record pair has completed being merged.  The name must be in the Mail Group file."
^DD(15.1,.29,21,0)="^^2^2^2970718^^"
^DD(15.1,.29,21,1,0)="This is the mail group that will be sent a bulletin whenever"
^DD(15.1,.29,21,2,0)="the merge process has been completed for a duplicate record pair."
^DD(15.1,.29,23,0)="^^4^4^2970718^^"
^DD(15.1,.29,23,1,0)="This is the mail group that will be sent a bulletin saying that"
^DD(15.1,.29,23,2,0)="a duplicate record pair has been merged.  Generally it will"
^DD(15.1,.29,23,3,0)="be the same mail group as specified in the Verified Duplicate"
^DD(15.1,.29,23,4,0)="Mail Group field (#.16)."
^DD(15.1,.29,"DT")="2900830"
^DD(15.1,.31,0)="MERGE MSG ROUTINE^F^^0;31^K:$L(X)>17!($L(X)<1) X"
^DD(15.1,.31,3)="Answer must be 1-17 characters in length.  No '^' allowed."
^DD(15.1,.31,21,0)="^^3^3^2901231^^^^"
^DD(15.1,.31,21,1,0)="Enter the name of the routine which will be called to send a"
^DD(15.1,.31,21,2,0)="bulletin to members of the Merge Mail Group.  No '^' should be"
^DD(15.1,.31,21,3,0)="included."
^DD(15.1,.31,23,0)="^^13^13^2901231^"
^DD(15.1,.31,23,1,0)="This optional field is to allow a package developer to send a"
^DD(15.1,.31,23,2,0)="customized bulletin notifying the Merge Mail Group about"
^DD(15.1,.31,23,3,0)="merged duplicate pairs.  If nothing is entered, the Kernel"
^DD(15.1,.31,23,4,0)="duplicate resolution software will send a brief bulletin to"
^DD(15.1,.31,23,5,0)="the members of the mail group.  The Kernel Bulletin will"
^DD(15.1,.31,23,6,0)="only provide the .01 values and the DFN's of the two records."
^DD(15.1,.31,23,7,0)="The duplicate resolution software will pass this routine"
^DD(15.1,.31,23,8,0)="XDRMFR and XDRMTO and it will be up to the routine to gather"
^DD(15.1,.31,23,9,0)="any information it wants to send in the bulletin and also to"
^DD(15.1,.31,23,10,0)="send the bulletin to the Merge Mail Group.  A label entry point is"
^DD(15.1,.31,23,11,0)="allowed but you must use a '-' instead of the normal '^', ex."
^DD(15.1,.31,23,12,0)="ENTRY POINT-ROUTINE.  This entry point will be executed by the"
^DD(15.1,.31,23,13,0)="duplicate resolution software after transforming the '-' into a '^'."
^DD(15.1,.31,"DT")="2901231"
^DD(15.1,.32,0)="AUTO MERGE STATUS^S^0:RUN;1:STOP;^0;32^Q"
^DD(15.1,.32,3)="""Enter 'S' if you are currently automatically merging all Ready to Merge Duplicates and want to stop the process."""
^DD(15.1,.32,21,0)="^^2^2^2901212^"
^DD(15.1,.32,21,1,0)="This field is used by the Kernel Merge routines to determine if it"
^DD(15.1,.32,21,2,0)="should stop automatically merging the Ready to Merge Verified Duplicates."
^DD(15.1,.32,23,0)="^^5^5^2901212^"
^DD(15.1,.32,23,1,0)="This field is used as a quit flag for the EN1 entry point in XDRMAIN."
^DD(15.1,.32,23,2,0)="It is used to stop the looping of the ^VA(15,""AMRG"", X-ref which"
^DD(15.1,.32,23,3,0)="is utilized to merge the verified duplicates that could not be merged"
^DD(15.1,.32,23,4,0)="at the time of verification due to package interactions.  It only"
^DD(15.1,.32,23,5,0)="comes into play when the MERGE STYLE field is set to Non-Interactive."
^DD(15.1,.32,"DT")="2901212"
^DD(15.1,.33,0)="MERGE DIRECTION INP TRANSFORM^F^^0;33^K:$L(X)>17!($L(X)<2) X"
^DD(15.1,.33,3)="Answer must be 2-17 characters in length. No '^' allowed.  Use a ""-"" in place of a ""^""."
^DD(15.1,.33,21,0)="^^4^4^2921217^"
^DD(15.1,.33,21,1,0)="This field contains the routine that will be executed by the input"
^DD(15.1,.33,21,2,0)="transform on the merge directions field of the Duplicate record file."
^DD(15.1,.33,21,3,0)="This routine will execute code that will help the user decide whether"
^DD(15.1,.33,21,4,0)="or not they have selected the best record to be the target record."
^DD(15.1,.33,23,0)="^^3^3^2921217^"
^DD(15.1,.33,23,1,0)="A routine or entry point_""-""_routine."
^DD(15.1,.33,23,2,0)="This field is optional."
^DD(15.1,.33,23,3,0)="Called from the input transform on .04 field of file 15."
^DD(15.1,.33,"DT")="2921019"
^DD(15.1,1.01,0)="NUMBER OF THREADS^NJ1,0^^1;1^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(15.1,1.01,3)="Enter the maximum number of threads you want running during phase 3.  Enter 1 for only the main process or enter up to 5 for the main process and 4 other threads."
^DD(15.1,1.01,21,0)="^^7^7^2970721^"
^DD(15.1,1.01,21,1,0)="This field is used to indicate the number of threads that should be used"
^DD(15.1,1.01,21,2,0)="during the longest phase of the merge process.  Entry of 1 would indicate"
^DD(15.1,1.01,21,3,0)="that only the main process (the same as null) would be running.  Entry of"
^DD(15.1,1.01,21,4,0)="2 to 5 indicates that the main process along with 1 to 4 other threads"
^DD(15.1,1.01,21,5,0)="should be used during this phase.  Each additional thread will be used to"
^DD(15.1,1.01,21,6,0)="process one of the most time consuming files.  Which will reduce the"
^DD(15.1,1.01,21,7,0)="amount of time that the main process takes."
^DD(15.1,1.01,"DT")="2960510"
^DD(15.1,1.02,0)="THREAD FILES^F^^1;2^K:$L(X)>20!($L(X)<1) X"
^DD(15.1,1.02,3)="Enter the file numbers which should be threaded in the order in which they should be used (i.e., most time consuming first) separated by semi-colons, e.g., 44;52;50.8  ."
^DD(15.1,1.02,21,0)="^^6^6^2960510^"
^DD(15.1,1.02,21,1,0)="This field is used to indicate the preference for files which be used"
^DD(15.1,1.02,21,2,0)="as separate threads during the 3rd phase of the merge if extra threads"
^DD(15.1,1.02,21,3,0)="are indicated in field 1.01.  The files to be threaded should be those"
^DD(15.1,1.02,21,4,0)="which take the longest during this phase of the merge process with"
^DD(15.1,1.02,21,5,0)="the most time consuming file indicated first.  The files are indicated"
^DD(15.1,1.02,21,6,0)="by file numbers separated by semi-colons, e.g.,  44;52;50.8;"
^DD(15.1,1.02,"DT")="2960510"
^DD(15.1,1.03,0)="SECONDS TO WAIT FOR STOP CHECK^RNJ3,0^^1;3^K:+X'=X!(X>300)!(X<60)!(X?.E1"".""1N.N) X"
^DD(15.1,1.03,3)="Type a Number between 60 and 300, 0 Decimal Digits"
^DD(15.1,1.03,21,0)="^^4^4^3050422^"
^DD(15.1,1.03,21,1,0)="This field will define how many seconds a merge process should run before "
^DD(15.1,1.03,21,2,0)="making a call to ZTLOAD to see if the user requested the background processes "
^DD(15.1,1.03,21,3,0)="to stop."
^DD(15.1,1.03,21,4,0)=""
^DD(15.1,1.03,"DT")="3050422"
^DD(15.1,2,0)="ANCILLARY SERVICE^15.12^^2;0"
^DD(15.1,2,21,0)="^^2^2^2970721^^^"
^DD(15.1,2,21,1,0)="Ancillary Service is a multiple of the service packages that are"
^DD(15.1,2,21,2,0)="associated with the duplicates."
^DD(15.1,3.01,0)="LAST TIME NOTED^D^^3;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.1,3.01,3)="This field is entered and updated during the Search for Potential Duplicates."
^DD(15.1,3.01,21,0)="^^6^6^2970122^"
^DD(15.1,3.01,21,1,0)="This field is entered and updated during the search for potential"
^DD(15.1,3.01,21,2,0)="duplicates.  It is entered and updated by XDRDMAIN on each entry of the"
^DD(15.1,3.01,21,3,0)="file that is being searched for duplicates.  It is used by XDRDSTAT to"
^DD(15.1,3.01,21,4,0)="determine if an apparently running process has stopped processing.  If"
^DD(15.1,3.01,21,5,0)="this is the case, the process is marked as having errored out after"
^DD(15.1,3.01,21,6,0)="15 minutes of no recorded activity."
^DD(15.1,3.01,"DT")="2970122"
^DD(15.1,1100,0)="DUPLICATE TESTS^15.111A^^11;0"
^DD(15.1,1100,21,0)="^^2^2^2960305^^^"
^DD(15.1,1100,21,1,0)="Enter the name of the duplicate test you wish to"
^DD(15.1,1100,21,2,0)="run to determine if a pair of records are duplicates."
^DD(15.1,1100,"DT")="2900830"
^DD(15.1,1200,0)="DINUM FILES FOR MERGE^15.112PA^^12;0"
^DD(15.1,1200,12)="File has to be a Dinum file pointing to the 'FILE TO BE CHECKED' file."
^DD(15.1,1200,12.1)="S DIC(""S"")=""I $P(^DD(XY,.01,0),U,2)[(""""P""""_D0),$P(^(0),U,5,99)[""""DINUM"""""""
^DD(15.1,1200,21,0)="^^14^14^2950210^^^^"
^DD(15.1,1200,21,1,0)="This multiple contains files that you want an operator to"
^DD(15.1,1200,21,2,0)="be able to compare and merge specific fields from prior to"
^DD(15.1,1200,21,3,0)="the merging and deletion of the duplicate record From entry."
^DD(15.1,1200,21,4,0)="You may only enter files that point to and are dinum with"
^DD(15.1,1200,21,5,0)="the file you specified in the File to Be Checked field (#.01)."
^DD(15.1,1200,21,6,0)=""
^DD(15.1,1200,21,7,0)="You should only place entries in this multiple if you have"
^DD(15.1,1200,21,8,0)="chosen 'Interactive' for the type of merge in the Merge Style"
^DD(15.1,1200,21,9,0)="field (#.25)."
^DD(15.1,1200,21,10,0)=""
^DD(15.1,1200,21,11,0)="It uses Fileman's Compare and Merge option to display the"
^DD(15.1,1200,21,12,0)="duplicate record pair side by side allowing the operator"
^DD(15.1,1200,21,13,0)="to merge specific fields from the From entry to the To entry."
^DD(15.1,1200,21,14,0)=""
^DD(15.1,"B","ANCILLARY SERVICE",2)=""
^DD(15.1,"B","AUTO MERGE STATUS",.32)=""
^DD(15.1,"B","CANDIDATE COLLECTION ROUTINE",.09)=""
^DD(15.1,"B","CROSS-REF FOR NEW SEARCH",.06)=""
^DD(15.1,"B","DAYS BEFORE FINAL VERIFY",.13)=""
^DD(15.1,"B","DAYS BETWEEN VERIFY AND MERGE",.14)=""
^DD(15.1,"B","DELETE FROM ENTRY",.26)=""
^DD(15.1,"B","DINUM FILES FOR MERGE",1200)=""
^DD(15.1,"B","DUPLICATE MANAGER MAIL GROUP",.11)=""
^DD(15.1,"B","DUPLICATE SEARCH STATUS",.02)=""
^DD(15.1,"B","DUPLICATE TESTS",1100)=""
^DD(15.1,"B","FILE TO BE CHECKED",.01)=""
^DD(15.1,"B","LAST RECORD PROCESSED",.08)=""
^DD(15.1,"B","LAST TIME NOTED",3.01)=""
^DD(15.1,"B","MERGE DIRECTION INP TRANSFORM",.33)=""
^DD(15.1,"B","MERGE MAIL GROUP",.29)=""
^DD(15.1,"B","MERGE MSG ROUTINE",.31)=""
^DD(15.1,"B","MERGE STYLE",.25)=""
^DD(15.1,"B","NUMBER OF RECORDS PROCESSED",.07)=""
^DD(15.1,"B","NUMBER OF THREADS",1.01)=""
^DD(15.1,"B","NUMBER SELECTED",.12)=""
^DD(15.1,"B","POST-MERGE ROUTINE",.28)=""
^DD(15.1,"B","POTENTIAL DUPLICATE THRESHOLD%",.15)=""
^DD(15.1,"B","PRE-MERGE ROUTINE",.27)=""
^DD(15.1,"B","SEARCH BEGINNING DATE",.03)=""
^DD(15.1,"B","SEARCH COMPLETION DATE",.04)=""
^DD(15.1,"B","SECONDS SEARCHED",.1)=""
^DD(15.1,"B","SECONDS TO WAIT FOR STOP CHECK",1.03)=""
^DD(15.1,"B","THREAD FILES",1.02)=""
^DD(15.1,"B","TYPE OF SEARCH",.05)=""
^DD(15.1,"B","VERIFIED DUPLICATE MAIL GROUP",.16)=""
^DD(15.1,"B","VERIFIED DUPLICATE MSG ROUTINE",.17)=""
^DD(15.1,"B","VERIFIED DUPLICATE THRESHOLD%",.18)=""
^DD(15.1,"GL",0,1,.01)=""
^DD(15.1,"GL",0,2,.02)=""
^DD(15.1,"GL",0,3,.03)=""
^DD(15.1,"GL",0,4,.04)=""
^DD(15.1,"GL",0,5,.05)=""
^DD(15.1,"GL",0,6,.06)=""
^DD(15.1,"GL",0,7,.07)=""
^DD(15.1,"GL",0,8,.08)=""
^DD(15.1,"GL",0,9,.09)=""
^DD(15.1,"GL",0,10,.1)=""
^DD(15.1,"GL",0,11,.11)=""
^DD(15.1,"GL",0,12,.12)=""
^DD(15.1,"GL",0,13,.13)=""
^DD(15.1,"GL",0,14,.14)=""
^DD(15.1,"GL",0,15,.15)=""
^DD(15.1,"GL",0,16,.16)=""
^DD(15.1,"GL",0,17,.17)=""
^DD(15.1,"GL",0,18,.18)=""
^DD(15.1,"GL",0,25,.25)=""
^DD(15.1,"GL",0,26,.26)=""
^DD(15.1,"GL",0,27,.27)=""
^DD(15.1,"GL",0,28,.28)=""
^DD(15.1,"GL",0,29,.29)=""
^DD(15.1,"GL",0,31,.31)=""
^DD(15.1,"GL",0,32,.32)=""
^DD(15.1,"GL",0,33,.33)=""
^DD(15.1,"GL",1,1,1.01)=""
^DD(15.1,"GL",1,2,1.02)=""
^DD(15.1,"GL",1,3,1.03)=""
^DD(15.1,"GL",2,0,2)=""
^DD(15.1,"GL",3,1,3.01)=""
^DD(15.1,"GL",11,0,1100)=""
^DD(15.1,"GL",12,0,1200)=""
^DD(15.1,"IX",.01)=""
^DD(15.1,"IX",.15)=""
^DD(15.1,"RQ",.01)=""
^DD(15.1,"RQ",.02)=""
^DD(15.1,"RQ",.09)=""
^DD(15.1,"RQ",.15)=""
^DD(15.1,"RQ",.25)=""
^DD(15.1,"RQ",1.03)=""
^DD(15.1,"SB",15.111,1100)=""
^DD(15.1,"SB",15.112,1200)=""
^DD(15.1,"SB",15.12,2)=""
^DD(15.111,0)="DUPLICATE TEST SUB-FIELD^^.07^7"
^DD(15.111,0,"DT")="2970127"
^DD(15.111,0,"IX","AO",15.111,.02)=""
^DD(15.111,0,"IX","AZ1",15.111,.04)=""
^DD(15.111,0,"IX","B",15.111,.01)=""
^DD(15.111,0,"NM","DUPLICATE TEST")=""
^DD(15.111,0,"UP")="15.1"
^DD(15.111,.01,0)="DUPLICATE TEST^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(15.111,.01,1,0)="^.1"
^DD(15.111,.01,1,1,0)="15.111^B"
^DD(15.111,.01,1,1,1)="S ^VA(15.1,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(15.111,.01,1,1,2)="K ^VA(15.1,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(15.111,.01,3)="Answer must be 3-30 characters in length."
^DD(15.111,.01,21,0)="^^2^2^2960305^"
^DD(15.111,.01,21,1,0)="Enter the name of the duplicate test you wish to"
^DD(15.111,.01,21,2,0)="run to determine if a pair of records are duplicates."
^DD(15.111,.01,"DT")="2910604"
^DD(15.111,.02,0)="ORDER OF TEST^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(15.111,.02,1,0)="^.1"
^DD(15.111,.02,1,1,0)="15.111^AO"
^DD(15.111,.02,1,1,1)="S ^VA(15.1,DA(1),11,""AO"",$E(X,1,30),DA)="""""
^DD(15.111,.02,1,1,2)="K ^VA(15.1,DA(1),11,""AO"",$E(X,1,30),DA)"
^DD(15.111,.02,1,1,"%D",0)="^^2^2^2900927^"
^DD(15.111,.02,1,1,"%D",1,0)="This cross reference is used to place the duplicate resolution tests in"
^DD(15.111,.02,1,1,"%D",2,0)="the order the programmers want them to be executed."
^DD(15.111,.02,1,1,"DT")="2900927"
^DD(15.111,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(15.111,.02,21,0)="^^3^3^2960619^^^^"
^DD(15.111,.02,21,1,0)="Enter a number to represent whether you want this test run first, second,"
^DD(15.111,.02,21,2,0)="third, etc. to help in determining if a pair of records are potential"
^DD(15.111,.02,21,3,0)="duplicates."
^DD(15.111,.02,"DT")="2921217"
^DD(15.111,.03,0)="DUPLICATE TEST ROUTINE^RF^^0;3^K:$L(X)>17!($L(X)<1) X"
^DD(15.111,.03,3)="Answer must be 1-17 characters in length.  No '^' allowed."
^DD(15.111,.03,21,0)="^^3^3^2921217^^^"
^DD(15.111,.03,21,1,0)="Enter the name of the routine which will be called to do the"
^DD(15.111,.03,21,2,0)="actual comparison of the two records for a specific field."
^DD(15.111,.03,21,3,0)="No '^' should be included in the name."
^DD(15.111,.03,23,0)="^^5^5^2921217^^^"
^DD(15.111,.03,23,1,0)="Enter the routine name without the '^' character. A label entry"
^DD(15.111,.03,23,2,0)="point reference is allowed but you must use a '-' instead of the"
^DD(15.111,.03,23,3,0)="normal '^', ex. ENTRY POINT-ROUTINE.  This entry will be executed"
^DD(15.111,.03,23,4,0)="by the Kernel duplicate resolution software after transforming"
^DD(15.111,.03,23,5,0)="the '-' into a '^'."
^DD(15.111,.03,"DT")="2900926"
^DD(15.111,.04,0)="FILE FOR INFORMATION^P1'^DIC(^0;4^Q"
^DD(15.111,.04,1,0)="^.1"
^DD(15.111,.04,1,1,0)="15.111^AZ1^MUMPS"
^DD(15.111,.04,1,1,1)="Q"
^DD(15.111,.04,1,1,2)="Q"
^DD(15.111,.04,1,1,"%D",0)="^^3^3^2910306^"
^DD(15.111,.04,1,1,"%D",1,0)="This cross reference is just used to make Fileman log the response so"
^DD(15.111,.04,1,1,"%D",2,0)="that the input transform on the FIELD TO BE CHECKED can refer to"
^DD(15.111,.04,1,1,"%D",3,0)="the $P value of this field."
^DD(15.111,.04,1,1,"DT")="2910306"
^DD(15.111,.04,3)="Enter the File from which to get the information you want to compare."
^DD(15.111,.04,4)="I $D(DZ),DZ=""??"" F I=0:0 S I=$O(^DD(D0,I)) Q:I'=+I  W:$P(^(I,0),U,2)'[""C""&('+$P(^(0),U,2)) !,I,""  "",$P(^(0),U,1)"
^DD(15.111,.04,21,0)="^^3^3^2900830^^^^"
^DD(15.111,.04,21,1,0)="This is the field that you wish to compare and assign a"
^DD(15.111,.04,21,2,0)="matching value.  You cannot compare computed fields or any"
^DD(15.111,.04,21,3,0)="fields that are in a multiple."
^DD(15.111,.04,23,0)="^^7^7^2900830^^"
^DD(15.111,.04,23,1,0)="This field represents the field number that you wish to"
^DD(15.111,.04,23,2,0)="compare values to help in determining if a potential"
^DD(15.111,.04,23,3,0)="duplicate record pair.  No multiples or computed fields are"
^DD(15.111,.04,23,4,0)="allowed.  There is a screen preventing their selection."
^DD(15.111,.04,23,5,0)=""
^DD(15.111,.04,23,6,0)="If the user enters a '??' the executable help will display all"
^DD(15.111,.04,23,7,0)="the fields that are valid choices."
^DD(15.111,.04,"DT")="2910306"
^DD(15.111,.05,0)="FIELD TO BE CHECKED^RNJ18,9X^^0;5^S %=$S('$P(^VA(15.1,DA(1),11,DA,0),U,4):DA(1),1:$P(^(0),U,4)) X ""I $D(^DD(%,X,0)) S %=^(0) I $P(%,U,2)'[""""C"""",$P($P(%,U,4),"""";"""",2)"" K:'$T X"
^DD(15.111,.05,3)="Enter a field # (e.g.  .05), it cannot be a computed field or a multiple.  If you enter a '??' you will get a list of possible fields."
^DD(15.111,.05,4)="I $D(DZ),DZ=""??"" S %=$S('$P(^VA(15.1,DA(1),11,DA,0),U,4):DA(1),1:$P(^(0),U,4)) F I=0:0 S I=$O(^DD(%,I)) Q:I'=+I  W:$P(^(I,0),U,2)'[""C""&('+$P(^(0),U,2)) !,I,""  "",$P(^(0),U,1)"
^DD(15.111,.05,21,0)="^^3^3^2900830^^^^"
^DD(15.111,.05,21,1,0)="This is the field that you wish to compare and assign a"
^DD(15.111,.05,21,2,0)="matching value.  You cannot compare computed fields or any"
^DD(15.111,.05,21,3,0)="fields that are in a multiple."
^DD(15.111,.05,23,0)="^^7^7^2900830^^"
^DD(15.111,.05,23,1,0)="This field represents the field number that you wish to"
^DD(15.111,.05,23,2,0)="compare values to help in determining if a potential"
^DD(15.111,.05,23,3,0)="duplicate record pair.  No multiples or computed fields are"
^DD(15.111,.05,23,4,0)="allowed.  There is a screen preventing their selection."
^DD(15.111,.05,23,5,0)=""
^DD(15.111,.05,23,6,0)="If the user enters a '??' the executable help will display all"
^DD(15.111,.05,23,7,0)="the fields that are valid choices."
^DD(15.111,.05,"DT")="2921217"
^DD(15.111,.06,0)="SUCCESSFUL MATCH WEIGHT^RNJ3,0^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.111,.06,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(15.111,.06,21,0)="^^2^2^2900829^"
^DD(15.111,.06,21,1,0)="This is the value given towards determing if a pair of records are"
^DD(15.111,.06,21,2,0)="potential duplicates."
^DD(15.111,.06,21,3,0)="duplicates."
^DD(15.111,.06,23,0)="^^6^6^2900829^"
^DD(15.111,.06,23,1,0)="This is the value given towards determing if a pair of records are"
^DD(15.111,.06,23,2,0)="potential duplicates.  This should be the maximum number of points"
^DD(15.111,.06,23,3,0)="awarded if the field from both records exactly matched."
^DD(15.111,.06,23,4,0)=""
^DD(15.111,.06,23,5,0)="In the Duplicate Test routine fractions of this value will be awarded"
^DD(15.111,.06,23,6,0)="based on whether there was an exact match or some partial match."
^DD(15.111,.06,"DT")="2970127"
^DD(15.111,.07,0)="UNSUCCESSFUL MATCH WEIGHT^RNJ1,0^^0;7^K:+X'=X!(X>0)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(15.111,.07,3)="Type a Number between -100 and 0, 0 Decimal Digits"
^DD(15.111,.07,21,0)="^^3^3^2950109^^"
^DD(15.111,.07,21,1,0)="This is the value that should be subtracted from the total number"
^DD(15.111,.07,21,2,0)="of points awarded in determining if a pair of records are potential"
^DD(15.111,.07,21,3,0)="duplicates."
^DD(15.111,.07,23,0)="^^6^6^2950109^^"
^DD(15.111,.07,23,1,0)="This is the value that should be subtracted from the total number of"
^DD(15.111,.07,23,2,0)="points awarded in determing if a pair of records are potential duplicates."
^DD(15.111,.07,23,3,0)=""
^DD(15.111,.07,23,4,0)="In other words, when there is no type of match that can be made on the"
^DD(15.111,.07,23,5,0)="field in the two records this negative score will be assigned to the"
^DD(15.111,.07,23,6,0)="checking algorithm."
^DD(15.111,.07,"DT")="2970127"
^DD(15.111,"B","DUPLICATE TEST",.01)=""
^DD(15.111,"B","DUPLICATE TEST ROUTINE",.03)=""
^DD(15.111,"B","FIELD TO BE CHECKED",.05)=""
^DD(15.111,"B","FILE FOR INFORMATION",.04)=""
^DD(15.111,"B","ORDER OF TEST",.02)=""
^DD(15.111,"B","SUCCESSFUL MATCH WEIGHT",.06)=""
^DD(15.111,"B","UNSUCCESSFUL MATCH WEIGHT",.07)=""
^DD(15.111,"GL",0,1,.01)=""
^DD(15.111,"GL",0,2,.02)=""
^DD(15.111,"GL",0,3,.03)=""
^DD(15.111,"GL",0,4,.04)=""
^DD(15.111,"GL",0,5,.05)=""
^DD(15.111,"GL",0,6,.06)=""
^DD(15.111,"GL",0,7,.07)=""
^DD(15.111,"IX",.01)=""
^DD(15.111,"IX",.02)=""
^DD(15.111,"IX",.04)=""
^DD(15.111,"RQ",.02)=""
^DD(15.111,"RQ",.03)=""
^DD(15.111,"RQ",.05)=""
^DD(15.111,"RQ",.06)=""
^DD(15.111,"RQ",.07)=""
^DD(15.112,0)="DINUM FILES FOR MERGE SUB-FIELD^^.01^1"
^DD(15.112,0,"DT")="2900906"
^DD(15.112,0,"IX","B",15.112,.01)=""
^DD(15.112,0,"NM","DINUM FILES FOR MERGE")=""
^DD(15.112,0,"UP")="15.1"
^DD(15.112,.01,0)="DINUM FILE FOR MERGE^M*P1'^DIC(^0;1^S DIC(""S"")=""I $P(^DD(Y,.01,0),U,2)[""""P"""",+$P($P(^(0),U,2),""""P"""",2)=D0,$P(^(0),U,5,99)[""""DINUM"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(15.112,.01,1,0)="^.1"
^DD(15.112,.01,1,1,0)="15.112^B"
^DD(15.112,.01,1,1,1)="S ^VA(15.1,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(15.112,.01,1,1,2)="K ^VA(15.1,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(15.112,.01,3)="Enter a file number or name that points to and is dinum with the File to Be Checked field (#.01)."
^DD(15.112,.01,12)="Must point to primary file and be DINUM"
^DD(15.112,.01,12.1)="S DIC(""S"")=""I $P(^DD(Y,.01,0),U,2)[""""P"""",+$P($P(^(0),U,2),""""P"""",2)=D0,$P(^(0),U,5,99)[""""DINUM"""""""
^DD(15.112,.01,21,0)="^^6^6^2950210^^^"
^DD(15.112,.01,21,1,0)="This is a file that points to the File to Be Checked entry and is"
^DD(15.112,.01,21,2,0)="Dinum with it."
^DD(15.112,.01,21,3,0)=""
^DD(15.112,.01,21,4,0)="During an Interactive style of merge the duplicate record pair"
^DD(15.112,.01,21,5,0)="entries for this file will be displayed side by side allowing an"
^DD(15.112,.01,21,6,0)="operator to merge selected fields in these entries."
^DD(15.112,.01,"DT")="2910105"
^DD(15.112,"B","DINUM FILE FOR MERGE",.01)=""
^DD(15.112,"GL",0,1,.01)=""
^DD(15.112,"IX",.01)=""
^DD(15.12,0)="ANCILLARY SERVICE SUB-FIELD^^2.02^6"
^DD(15.12,0,"DT")="2960207"
^DD(15.12,0,"IX","B",15.12,.01)=""
^DD(15.12,0,"NM","ANCILLARY SERVICE")=""
^DD(15.12,0,"UP")="15.1"
^DD(15.12,.01,0)="ANCILLARY SERVICE^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(15.12,.01,1,0)="^.1"
^DD(15.12,.01,1,1,0)="15.12^B"
^DD(15.12,.01,1,1,1)="S ^VA(15.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(15.12,.01,1,1,2)="K ^VA(15.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(15.12,.01,3)="Answer must be 3-30 characters in length."
^DD(15.12,.01,21,0)="^^1^1^2960305^"
^DD(15.12,.01,21,1,0)="The name of the ancillary service that is associated with each duplicate."
^DD(15.12,.01,"DT")="2960206"
^DD(15.12,.02,0)="MAIL GROUP^P3.8'^XMB(3.8,^0;2^Q"
^DD(15.12,.02,21,0)="^^3^3^2970721^^"
^DD(15.12,.02,21,1,0)="This field is the name of the ancillary mail group that the mail messages"
^DD(15.12,.02,21,2,0)="will be sent too.  The mail messages are used to notify ancillary services"
^DD(15.12,.02,21,3,0)="to process potential duplicate."
^DD(15.12,.02,"DT")="2960920"
^DD(15.12,.03,0)="PRIMARY FILE NUMBER^RNJ18,4^^0;3^K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(15.12,.03,3)="Enter the file NUMBER for the primary file to be used for identifying duplicates for this ancillary package (e.g., LAB DATA (63), RADIOLOGY PATIENT (70), PHARMACY PATIENT (55), etc.)"
^DD(15.12,.03,21,0)="^^2^2^2960305^"
^DD(15.12,.03,21,1,0)="This is the file number mostly related to the ancillary"
^DD(15.12,.03,21,2,0)="service (package)."
^DD(15.12,.03,"DT")="2960207"
^DD(15.12,1,0)="INDIVIDUAL^15.121P^^1;0"
^DD(15.12,1,21,0)="^^2^2^2960305^"
^DD(15.12,1,21,1,0)="This multiple is a pointer to the New Person file which is used to include"
^DD(15.12,1,21,2,0)="individuals that are not part of the mail group."
^DD(15.12,2.01,0)="SUBFILES (FIELD NUMBERS)^F^^2;1^K:$L(X)>60!($L(X)<1) X"
^DD(15.12,2.01,3)="Enter field numbers for subfiles (with DATE values in the .01 field) to be displayed separated by a semicolon, e.g., 1;.085;2;4;5"
^DD(15.12,2.01,21,0)="^^18^18^2960305^^^"
^DD(15.12,2.01,21,1,0)="This field is used to indicate one or more subfiles within the primary"
^DD(15.12,2.01,21,2,0)="file which should have a .01 field as a date and can be used to display"
^DD(15.12,2.01,21,3,0)="the last date associated with the subfiles's data for the potential"
^DD(15.12,2.01,21,4,0)="duplicate patients.  The field numbers in the primary file for the desired"
^DD(15.12,2.01,21,5,0)="subfiles should be entered and separated by a semicolon."
^DD(15.12,2.01,21,6,0)=""
^DD(15.12,2.01,21,7,0)="For example, in the laboratory data file (63), entry of"
^DD(15.12,2.01,21,8,0)=""
^DD(15.12,2.01,21,9,0)="   1;.085;2;4;5;8;9"
^DD(15.12,2.01,21,10,0)=""
^DD(15.12,2.01,21,11,0)="would indicate field 1 in file 63, which is the Blood Bank subfile"
^DD(15.12,2.01,21,12,0)="field .085, which is the Tranfusion Record subfile"
^DD(15.12,2.01,21,13,0)="field 2, which is the EM subfile"
^DD(15.12,2.01,21,14,0)="field 4, which is the CHEM, HEM, TOX, ..., etc. subfile"
^DD(15.12,2.01,21,15,0)="field 5, which is the Microbiology subfile"
^DD(15.12,2.01,21,16,0)="field 8, which is the Surgical Pathology subfile"
^DD(15.12,2.01,21,17,0)="and"
^DD(15.12,2.01,21,18,0)="field 9, which is the Cytopathology subfile"
^DD(15.12,2.01,"DT")="2960207"
^DD(15.12,2.02,0)="DISPLAY NAMES FOR SUBFILES^F^^2;2^K:$L(X)>120!($L(X)<1) X"
^DD(15.12,2.02,3)="Enter the names which are to be associated with the subfiles, separating each by a semicolon, e.g., Bld Bank;Transfusn;EM;Lab Tests;Microbiol"
^DD(15.12,2.02,21,0)="^^13^13^2960305^^"
^DD(15.12,2.02,21,1,0)="This field is used to specify names to be displayed for any subfiles which"
^DD(15.12,2.02,21,2,0)="are listed in the SUBFILES (FIELD NUMBERS). The names should be entered in"
^DD(15.12,2.02,21,3,0)="the same order as the field numbers for the subfiles are entered and a"
^DD(15.12,2.02,21,4,0)="semicolon should be used to separate each name."
^DD(15.12,2.02,21,5,0)=""
^DD(15.12,2.02,21,6,0)="For example the following might be entered for SUBFILES (FIELD NUMBERS)"
^DD(15.12,2.02,21,7,0)="for file 63"
^DD(15.12,2.02,21,8,0)=""
^DD(15.12,2.02,21,9,0)="    1;.085;2;4;5;8;9"
^DD(15.12,2.02,21,10,0)=""
^DD(15.12,2.02,21,11,0)="and the entry for the DISPLAY NAMES FOR SUBFILES might be"
^DD(15.12,2.02,21,12,0)=""
^DD(15.12,2.02,21,13,0)="   Bld Bank;Transfusn;EM;Lab Tests;Microbiol;Surg Pathol;Cytology"
^DD(15.12,2.02,"DT")="2960207"
^DD(15.12,"B","ANCILLARY SERVICE",.01)=""
^DD(15.12,"B","DISPLAY NAMES FOR SUBFILES",2.02)=""
^DD(15.12,"B","INDIVIDUAL",1)=""
^DD(15.12,"B","MAIL GROUP",.02)=""
^DD(15.12,"B","PRIMARY FILE NUMBER",.03)=""
^DD(15.12,"B","SUBFILES (FIELD NUMBERS)",2.01)=""
^DD(15.12,"GL",0,1,.01)=""
^DD(15.12,"GL",0,2,.02)=""
^DD(15.12,"GL",0,3,.03)=""
^DD(15.12,"GL",1,0,1)=""
^DD(15.12,"GL",2,1,2.01)=""
^DD(15.12,"GL",2,2,2.02)=""
^DD(15.12,"IX",.01)=""
^DD(15.12,"RQ",.03)=""
^DD(15.12,"SB",15.121,1)=""
^DD(15.121,0)="INDIVIDUAL SUB-FIELD^^.01^1"
^DD(15.121,0,"DT")="2960206"
^DD(15.121,0,"IX","B",15.121,.01)=""
^DD(15.121,0,"NM","INDIVIDUAL")=""
^DD(15.121,0,"UP")="15.12"
^DD(15.121,.01,0)="INDIVIDUAL^MP200'^VA(200,^0;1^Q"
^DD(15.121,.01,1,0)="^.1"
^DD(15.121,.01,1,1,0)="15.121^B"
^DD(15.121,.01,1,1,1)="S ^VA(15.1,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(15.121,.01,1,1,2)="K ^VA(15.1,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(15.121,.01,21,0)="^^2^2^2960305^^"
^DD(15.121,.01,21,1,0)="This field is the individual/individuals that the alerts would be sent"
^DD(15.121,.01,21,2,0)="to."
^DD(15.121,.01,"DT")="2960206"
^DD(15.121,"B","INDIVIDUAL",.01)=""
^DD(15.121,"GL",0,1,.01)=""
^DD(15.121,"IX",.01)=""
^DD(15.2,0)="FIELD^^3^11"
^DD(15.2,0,"DDA")="N"
^DD(15.2,0,"DT")="2960920"
^DD(15.2,0,"IX","B",15.2,.01)=""
^DD(15.2,0,"NM","XDR MERGE PROCESS")=""
^DD(15.2,0,"PT",15,.2)=""
^DD(15.2,0,"VR")="7.3"
^DD(15.2,0,"VRPK")="XT"
^DD(15.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(15.2,.01,1,0)="^.1"
^DD(15.2,.01,1,1,0)="15.2^B"
^DD(15.2,.01,1,1,1)="S ^VA(15.2,""B"",$E(X,1,30),DA)="""""
^DD(15.2,.01,1,1,2)="K ^VA(15.2,""B"",$E(X,1,30),DA)"
^DD(15.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(15.2,.02,0)="MERGE FILE NUMBER^F^^0;2^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N) X"
^DD(15.2,.02,3)="Answer must be 1-20 characters in length and indicate the primary FILE NUMBER in which entries are being merged."
^DD(15.2,.02,21,0)="^^2^2^2960416^"
^DD(15.2,.02,21,1,0)="This field indicates the primary file for which this merge process is"
^DD(15.2,.02,21,2,0)="being run."
^DD(15.2,.02,"DT")="2960416"
^DD(15.2,.03,0)="START DATE/TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.2,.03,3)="This field indicates the date/time on which the merge process originally started (or is scheduled to start, if in the future)."
^DD(15.2,.03,21,0)="^^2^2^2960416^"
^DD(15.2,.03,21,1,0)="This field indicates the original date and time when the merge process"
^DD(15.2,.03,21,2,0)="began, or if in the future, is scheduled to start."
^DD(15.2,.03,"DT")="2960416"
^DD(15.2,.04,0)="STATUS^S^S:SCHEDULED;A:ACTIVE NOW;C:COMPLETED;U:UNKNOWN-LOST;R:RESCHEDULED;^0;4^Q"
^DD(15.2,.04,3)="This field indicates the current status of this merge process."
^DD(15.2,.04,21,0)="^^18^18^2951129^"
^DD(15.2,.04,21,1,0)="This field is used to track the current status of the merge process.  The"
^DD(15.2,.04,21,2,0)="choices are:"
^DD(15.2,.04,21,3,0)="  SCHEDULED -  this process is scheduled to run as a task - the start"
^DD(15.2,.04,21,4,0)="               date/time should be indicated in field .03"
^DD(15.2,.04,21,5,0)=""
^DD(15.2,.04,21,6,0)="  ACTIVE    -  the process is currently running and is actively updating"
^DD(15.2,.04,21,7,0)="               the current time value for the process."
^DD(15.2,.04,21,8,0)=""
^DD(15.2,.04,21,9,0)="  COMPLETED -  the process ran through the all entries to normal"
^DD(15.2,.04,21,10,0)="               completion."
^DD(15.2,.04,21,11,0)=""
^DD(15.2,.04,21,12,0)="  UNKNOWN-LOST - this is an abnormal status and is set when a supposedly"
^DD(15.2,.04,21,13,0)="                 active process is no longer updating the current time"
^DD(15.2,.04,21,14,0)="                 value for the process (and has not for a period of time)."
^DD(15.2,.04,21,15,0)=""
^DD(15.2,.04,21,16,0)="  RESCHEDULED  - the process is scheduled to restart and continue from its"
^DD(15.2,.04,21,17,0)="                 last checkpointed location.  The restart time should be"
^DD(15.2,.04,21,18,0)="                 indicated in field .05"
^DD(15.2,.04,"DT")="2951129"
^DD(15.2,.05,0)="RESTART DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.2,.05,3)="This value indicates the date and time at which the LAST restart for the merge process began or is scheduled (if in the future)."
^DD(15.2,.05,21,0)="^^5^5^2951129^"
^DD(15.2,.05,21,1,0)="This value indicates the date and time when the merge process was last"
^DD(15.2,.05,21,2,0)="restarted or, if in the future, is scheduled to restart.  A restart"
^DD(15.2,.05,21,3,0)="date/time would only be entered if the merge process was not successful in"
^DD(15.2,.05,21,4,0)="completing in its first run.  If multiple restarts are required to reach"
^DD(15.2,.05,21,5,0)="completion, only the last restart would be indicated."
^DD(15.2,.05,"DT")="2951129"
^DD(15.2,.06,0)="COMPLETION DATE/TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.2,.06,3)="This value indicates the Date and Time when the merge process was completed"
^DD(15.2,.06,21,0)="^^2^2^2951129^"
^DD(15.2,.06,21,1,0)="This value indicates the date and time when the merge process was"
^DD(15.2,.06,21,2,0)="successfully completed."
^DD(15.2,.06,"DT")="2951129"
^DD(15.2,.07,0)="NUMBER OF RESTARTS^NJ3,0^^0;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.2,.07,3)="This value indicates the number of times  that the merge process was restarted."
^DD(15.2,.07,21,0)="^^2^2^2951129^"
^DD(15.2,.07,21,1,0)="This field is a simple count of the number of restarts which were required"
^DD(15.2,.07,21,2,0)="prior to completion of the merge process."
^DD(15.2,.07,"DT")="2951129"
^DD(15.2,.08,0)="TASK NUMBER^F^^0;8^K:$L(X)>20!($L(X)<1)!'(X?1.N) X"
^DD(15.2,.08,3)="This field contains the task number currently associated with the merge process (scheduled, active, or completed)."
^DD(15.2,.08,21,0)="^^2^2^2951129^"
^DD(15.2,.08,21,1,0)="This field shows the task number currently associated with this merge"
^DD(15.2,.08,21,2,0)="process (scheduled, active, or completed)."
^DD(15.2,.08,"DT")="2951129"
^DD(15.2,.09,0)="HALT FLAG^S^1:HALT;^0;9^Q"
^DD(15.2,.09,3)="This flag is set if the merge process is to halt."
^DD(15.2,.09,21,0)="^^5^5^2960617^"
^DD(15.2,.09,21,1,0)="This field is a flag which is set if the merge process is supposed to"
^DD(15.2,.09,21,2,0)="halt.  While the flag might be set manually, it normally would be set"
^DD(15.2,.09,21,3,0)="by the process when taskmanager indicates the process is to halt, or if"
^DD(15.2,.09,21,4,0)="a halt merge process option sets the flag.  The flag is necessary to"
^DD(15.2,.09,21,5,0)="permit communication to multiple threads during processing of phase 3."
^DD(15.2,.09,"DT")="2960617"
^DD(15.2,2,0)="MERGE ENTRY^15.22A^^2;0"
^DD(15.2,3,0)="PACKAGE BEING MERGED^15.23A^^3;0"
^DD(15.2,3,"DT")="2960417"
^DD(15.2,"B","COMPLETION DATE/TIME",.06)=""
^DD(15.2,"B","HALT FLAG",.09)=""
^DD(15.2,"B","MERGE ENTRY",2)=""
^DD(15.2,"B","MERGE FILE NUMBER",.02)=""
^DD(15.2,"B","NAME",.01)=""
^DD(15.2,"B","NUMBER OF RESTARTS",.07)=""
^DD(15.2,"B","PACKAGE BEING MERGED",3)=""
^DD(15.2,"B","RESTART DATE/TIME",.05)=""
^DD(15.2,"B","START DATE/TIME",.03)=""
^DD(15.2,"B","STATUS",.04)=""
^DD(15.2,"B","TASK NUMBER",.08)=""
^DD(15.2,"GL",0,1,.01)=""
^DD(15.2,"GL",0,2,.02)=""
^DD(15.2,"GL",0,3,.03)=""
^DD(15.2,"GL",0,4,.04)=""
^DD(15.2,"GL",0,5,.05)=""
^DD(15.2,"GL",0,6,.06)=""
^DD(15.2,"GL",0,7,.07)=""
^DD(15.2,"GL",0,8,.08)=""
^DD(15.2,"GL",0,9,.09)=""
^DD(15.2,"GL",2,0,2)=""
^DD(15.2,"GL",3,0,3)=""
^DD(15.2,"IX",.01)=""
^DD(15.2,"RQ",.01)=""
^DD(15.2,"SB",15.22,2)=""
^DD(15.2,"SB",15.23,3)=""
^DD(15.22,0)="MERGE ENTRY SUB-FIELD^^.03^3"
^DD(15.22,0,"DT")="2960419"
^DD(15.22,0,"IX","B",15.22,.01)=""
^DD(15.22,0,"NM","MERGE ENTRY")=""
^DD(15.22,0,"UP")="15.2"
^DD(15.22,.01,0)="MERGE ENTRY^MF^^0;1^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N) X"
^DD(15.22,.01,1,0)="^.1"
^DD(15.22,.01,1,1,0)="15.22^B"
^DD(15.22,.01,1,1,1)="S ^VA(15.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(15.22,.01,1,1,2)="K ^VA(15.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(15.22,.01,3)="This is the internal entry number to be merged in the merge process."
^DD(15.22,.01,21,0)="^^1^1^2951129^"
^DD(15.22,.01,21,1,0)="This is the internal entry number to be merged during the merge process."
^DD(15.22,.01,"DT")="2951129"
^DD(15.22,.02,0)="MERGE TO^F^^0;2^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N) X"
^DD(15.22,.02,3)="This is the internal entry number to which the MERGE ENTRY is being merged."
^DD(15.22,.02,21,0)="^^2^2^2951129^"
^DD(15.22,.02,21,1,0)="This is the internal entry number to which the MERGE ENTRY (field .01) is"
^DD(15.22,.02,21,2,0)="being merged."
^DD(15.22,.02,"DT")="2951129"
^DD(15.22,.03,0)="DUPLICATE FILE ENTRY^P15'^VA(15,^0;3^Q"
^DD(15.22,.03,3)="This is a pointer back to the Duplicate File Entry for this pair."
^DD(15.22,.03,21,0)="^^2^2^2960419^"
^DD(15.22,.03,21,1,0)="This pointer back to the entry in the duplicate file for this pair is used"
^DD(15.22,.03,21,2,0)="to easily mark the correct entries on completion of the merge."
^DD(15.22,.03,"DT")="2960419"
^DD(15.22,"B","DUPLICATE FILE ENTRY",.03)=""
^DD(15.22,"B","MERGE ENTRY",.01)=""
^DD(15.22,"B","MERGE TO",.02)=""
^DD(15.22,"GL",0,1,.01)=""
^DD(15.22,"GL",0,2,.02)=""
^DD(15.22,"GL",0,3,.03)=""
^DD(15.22,"IX",.01)=""
^DD(15.23,0)="PACKAGE BEING MERGED SUB-FIELD^^2^14"
^DD(15.23,0,"DT")="2960920"
^DD(15.23,0,"IX","B",15.23,.01)=""
^DD(15.23,0,"NM","PACKAGE BEING MERGED")=""
^DD(15.23,0,"UP")="15.2"
^DD(15.23,.01,0)="PACKAGE BEING MERGED^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(15.23,.01,1,0)="^.1"
^DD(15.23,.01,1,1,0)="15.23^B"
^DD(15.23,.01,1,1,1)="S ^VA(15.2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(15.23,.01,1,1,2)="K ^VA(15.2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(15.23,.01,3)="Answer must be 1-30 characters in length."
^DD(15.23,.01,21,0)="^^5^5^2960416^"
^DD(15.23,.01,21,1,0)="During a merge process, there is the merge of the primary file.  There may"
^DD(15.23,.01,21,2,0)="also be merges of related files which require special processing (as"
^DD(15.23,.01,21,3,0)="indicated by entries within the 'Affects Merge' multiple of the package"
^DD(15.23,.01,21,4,0)="file).  This entry indicates which file merge the associated data is"
^DD(15.23,.01,21,5,0)="related to.  The entry is a file number for which a merge is being run."
^DD(15.23,.01,"DT")="2960417"
^DD(15.23,.02,0)="START DATE/TIME^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.23,.02,3)="This value indicates the date and time that the merge process was actually initiated or is scheduled to be started (if it is in the future)."
^DD(15.23,.02,21,0)="^^1^1^2960416^"
^DD(15.23,.02,21,1,0)="The date and time at which the merge process actually began."
^DD(15.23,.02,"DT")="2960416"
^DD(15.23,.03,0)="STATUS^S^A:ACTIVE;C:COMPLETED;U:UNKNOWN-LOST;R:RESCHEDULED;S:SCHEDULED;H:HALTED;E:ERROR EXIT;^0;3^Q"
^DD(15.23,.03,3)="This field indicates the current status of this merge process."
^DD(15.23,.03,21,0)="^^18^18^2980514^"
^DD(15.23,.03,21,1,0)="This field is used to track the current status of the merge process.  The"
^DD(15.23,.03,21,2,0)="choices are:"
^DD(15.23,.03,21,3,0)="  SCHEDULED -  this process is scheduled to run as a task - the start"
^DD(15.23,.03,21,4,0)="               date/time should be indicated in field .02"
^DD(15.23,.03,21,5,0)=" "
^DD(15.23,.03,21,6,0)="  ACTIVE    -  the process is currently running and is actively updating"
^DD(15.23,.03,21,7,0)="               the current time value for the process."
^DD(15.23,.03,21,8,0)=" "
^DD(15.23,.03,21,9,0)="  COMPLETED -  the process ran through the all entries to normal"
^DD(15.23,.03,21,10,0)="               completion."
^DD(15.23,.03,21,11,0)=" "
^DD(15.23,.03,21,12,0)="  UNKNOWN-LOST - this is an abnormal status and is set when a supposedly"
^DD(15.23,.03,21,13,0)="                 active process is no longer updating the current time"
^DD(15.23,.03,21,14,0)="                 value for the process (and has not for a period of time)."
^DD(15.23,.03,21,15,0)=" "
^DD(15.23,.03,21,16,0)="  RESCHEDULED  - the process is scheduled to restart and continue from its"
^DD(15.23,.03,21,17,0)="                 last checkpointed location.  The restart time should be"
^DD(15.23,.03,21,18,0)="                 indicated in field .05"
^DD(15.23,.03,"DT")="2960418"
^DD(15.23,.04,0)="RESTART DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.23,.04,3)="This value indicates the date and time at which the LAST restart for the merge process began or is scheduled (if in the future)."
^DD(15.23,.04,21,0)="^^5^5^2960416^"
^DD(15.23,.04,21,1,0)="This value indicates the date and time when the merge process was last"
^DD(15.23,.04,21,2,0)="restarted or, if in the future, is scheduled to restart.  A restart"
^DD(15.23,.04,21,3,0)="date/time would only be entered if the merge process was not successful"
^DD(15.23,.04,21,4,0)="in completing in its first run.  If multiple restarts are required to"
^DD(15.23,.04,21,5,0)="reach completion, only the last restart would be indicated."
^DD(15.23,.04,"DT")="2960416"
^DD(15.23,.05,0)="COMPLETION DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.23,.05,3)="This value indicates the Date and Time when the merge process was completed."
^DD(15.23,.05,21,0)="^^2^2^2960416^"
^DD(15.23,.05,21,1,0)="This value indicates the Date and Time when the merge process was "
^DD(15.23,.05,21,2,0)="successfully completed."
^DD(15.23,.05,"DT")="2960416"
^DD(15.23,.06,0)="NUMBER OF RESTARTS^NJ3,0^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.23,.06,3)="This value indicates the number of times that the merge process was restarted."
^DD(15.23,.06,21,0)="^^2^2^2960416^"
^DD(15.23,.06,21,1,0)="This field is a simple count of the number of restarts which were required"
^DD(15.23,.06,21,2,0)="prior to completion of the merge process."
^DD(15.23,.06,"DT")="2960416"
^DD(15.23,.07,0)="TASK NUMBER^F^^0;7^K:$L(X)>20!($L(X)<1)!'(X?1.N) X"
^DD(15.23,.07,3)="This field contains the task number currently associated with the merge process (scheduled, active, or completed)."
^DD(15.23,.07,21,0)="^^2^2^2960416^"
^DD(15.23,.07,21,1,0)="This field shows the task number currently associated with this merge"
^DD(15.23,.07,21,2,0)="process (scheduled, active, or completed)."
^DD(15.23,.07,"DT")="2960416"
^DD(15.23,.08,0)="TAG FOR MERGE ROUTINE^F^^0;8^K:$L(X)>8!($L(X)<1)!'(X?1U.7UN) X"
^DD(15.23,.08,3)="This indicates the TAG to be used for entry into the merge routine."
^DD(15.23,.08,21,0)="^^1^1^2960419^"
^DD(15.23,.08,21,1,0)="This field contains the TAG for entry into the merge routine for the package.  This will generally be in the form of TAG^ROUTINE(ARRAY)"
^DD(15.23,.08,"DT")="2960419"
^DD(15.23,.09,0)="PACKAGE ROUTINE^F^^0;9^K:$L(X)>8!($L(X)<3) X"
^DD(15.23,.09,3)="Answer must be 3-8 characters in length."
^DD(15.23,.09,21,0)="^^3^3^2960417^"
^DD(15.23,.09,21,1,0)="This is the name of the routine as specified in the package file under"
^DD(15.23,.09,21,2,0)="the 'Affects Merge' entry that specifies special processing for this"
^DD(15.23,.09,21,3,0)="package."
^DD(15.23,.09,"DT")="2960417"
^DD(15.23,1.01,0)="CURRENT TIME^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(15.23,1.01,3)="This value indicates the most recent date/time checkpoint of the active process."
^DD(15.23,1.01,21,0)="^^3^3^2960416^"
^DD(15.23,1.01,21,1,0)="This value indicates the last date/time recorded as a checkpoint by the"
^DD(15.23,1.01,21,2,0)="process.  This value is used to determine whether the process is still"
^DD(15.23,1.01,21,3,0)="active or not."
^DD(15.23,1.01,"DT")="2960416"
^DD(15.23,1.02,0)="STAGE - CURRENT^S^0:FASTER;1:LATTER;^1;2^Q"
^DD(15.23,1.02,3)="This field is used to indicate which processing stage it currently is in."
^DD(15.23,1.02,21,0)="^^10^10^2960416^"
^DD(15.23,1.02,21,1,0)="This field is used to indicate which processing stage this merge process"
^DD(15.23,1.02,21,2,0)="is currently in.  The merge process goes through three stages, but"
^DD(15.23,1.02,21,3,0)="since the first is rapid and doesn't require any effort to repeat"
^DD(15.23,1.02,21,4,0)="(since the entries have already been merged) only two stages are recorded."
^DD(15.23,1.02,21,5,0)="The FASTER (or EARLY) stage indicates the processing of pointers which"
^DD(15.23,1.02,21,6,0)="either DINUMmed or cross-referenced so that they can be identified"
^DD(15.23,1.02,21,7,0)="rapidly.  The LATTER stage indicates the processing of pointers which"
^DD(15.23,1.02,21,8,0)="can only be found by stepping through each entry within a file - these"
^DD(15.23,1.02,21,9,0)="are the pointers which require longer periods to sucessfully complete"
^DD(15.23,1.02,21,10,0)="the re-pointing."
^DD(15.23,1.02,"DT")="2960416"
^DD(15.23,1.03,0)="FILE - CURRENT^F^^1;3^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N) X"
^DD(15.23,1.03,3)="This field indicates the current file being processed as indicated at the last checkpoint of the active merge process."
^DD(15.23,1.03,21,0)="^^2^2^2960416^"
^DD(15.23,1.03,21,1,0)="This value indicates the file currently being processed as recorded at"
^DD(15.23,1.03,21,2,0)="the last checkpoint by the active merge process."
^DD(15.23,1.03,"DT")="2960416"
^DD(15.23,1.04,0)="ENTRY-CURRENT^F^^1;4^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N) X"
^DD(15.23,1.04,3)="This value indicates the most recent internal entry number as checkpointed within the FILE - CURRENT file by the active merge process."
^DD(15.23,1.04,21,0)="^^6^6^2951129^"
^DD(15.23,1.04,21,1,0)="This value indicates the last internal entry number recorded as a"
^DD(15.23,1.04,21,2,0)="checkpoint (within the checkpointed file) by the active merge process."
^DD(15.23,1.04,21,3,0)="This value (in conjunction with the other checkpoint data) is intended for"
^DD(15.23,1.04,21,4,0)="use in tracking the progress of the merge process and, if necessary, to"
^DD(15.23,1.04,21,5,0)="permit the merge process to be restarted in the vicinity where it was last"
^DD(15.23,1.04,21,6,0)="processing."
^DD(15.23,1.04,"DT")="2960416"
^DD(15.23,2,0)="FILE FOR THREAD^15.232A^^2;0"
^DD(15.23,"B","COMPLETION DATE/TIME",.05)=""
^DD(15.23,"B","CURRENT TIME",1.01)=""
^DD(15.23,"B","ENTRY-CURRENT",1.04)=""
^DD(15.23,"B","FILE - CURRENT",1.03)=""
^DD(15.23,"B","FILE FOR THREAD",2)=""
^DD(15.23,"B","NUMBER OF RESTARTS",.06)=""
^DD(15.23,"B","PACKAGE BEING MERGED",.01)=""
^DD(15.23,"B","PACKAGE ROUTINE",.09)=""
^DD(15.23,"B","RESTART DATE/TIME",.04)=""
^DD(15.23,"B","STAGE - CURRENT",1.02)=""
^DD(15.23,"B","START DATE/TIME",.02)=""
^DD(15.23,"B","STATUS",.03)=""
^DD(15.23,"B","TAG FOR MERGE ROUTINE",.08)=""
^DD(15.23,"B","TASK NUMBER",.07)=""
^DD(15.23,"GL",0,1,.01)=""
^DD(15.23,"GL",0,2,.02)=""
^DD(15.23,"GL",0,3,.03)=""
^DD(15.23,"GL",0,4,.04)=""
^DD(15.23,"GL",0,5,.05)=""
^DD(15.23,"GL",0,6,.06)=""
^DD(15.23,"GL",0,7,.07)=""
^DD(15.23,"GL",0,8,.08)=""
^DD(15.23,"GL",0,9,.09)=""
^DD(15.23,"GL",1,1,1.01)=""
^DD(15.23,"GL",1,2,1.02)=""
^DD(15.23,"GL",1,3,1.03)=""
^DD(15.23,"GL",1,4,1.04)=""
^DD(15.23,"GL",2,0,2)=""
^DD(15.23,"IX",.01)=""
^DD(15.23,"RQ",.02)=""
^DD(15.23,"SB",15.232,2)=""
^DD(15.232,0)="FILE FOR THREAD SUB-FIELD^^.01^1"
^DD(15.232,0,"DT")="2960920"
^DD(15.232,0,"IX","B",15.232,.01)=""
^DD(15.232,0,"NM","FILE FOR THREAD")=""
^DD(15.232,0,"UP")="15.23"
^DD(15.232,.01,0)="FILE FOR THREAD^F^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(15.232,.01,1,0)="^.1"
^DD(15.232,.01,1,1,0)="15.232^B"
^DD(15.232,.01,1,1,1)="S ^VA(15.2,DA(2),3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(15.232,.01,1,1,2)="K ^VA(15.2,DA(2),3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(15.232,.01,3)="This is the file number for one file to be processed by this thread."
^DD(15.232,.01,21,0)="^^3^3^2960920^"
^DD(15.232,.01,21,1,0)="Entries in this sub-file are created during the merge processing when a"
^DD(15.232,.01,21,2,0)="new thread is created to assist in processing the third phase.  The values"
^DD(15.232,.01,21,3,0)="are removed upon completion of the processing."
^DD(15.232,.01,"DT")="2960920"
^DD(15.232,"B","FILE FOR THREAD",.01)=""
^DD(15.232,"GL",0,1,.01)=""
^DD(15.232,"IX",.01)=""
^DD(15.3,0)="FIELD^^1^2"
^DD(15.3,0,"DT")="2951129"
^DD(15.3,0,"IX","B",15.3,.01)=""
^DD(15.3,0,"NM","XDR REPOINTED ENTRY")=""
^DD(15.3,0,"VR")="7.3"
^DD(15.3,0,"VRPK")="XT"
^DD(15.3,.01,0)="FILE NUMBER^RFX^^0;1^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N)!'(X=+X) X I $D(X) S DINUM=X"
^DD(15.3,.01,1,0)="^.1"
^DD(15.3,.01,1,1,0)="15.3^B"
^DD(15.3,.01,1,1,1)="S ^VA(15.3,""B"",$E(X,1,30),DA)="""""
^DD(15.3,.01,1,1,2)="K ^VA(15.3,""B"",$E(X,1,30),DA)"
^DD(15.3,.01,3)="Answer must be 1-20 characters in length and must be a file number"
^DD(15.3,.01,21,0)="^^7^7^2980514^"
^DD(15.3,.01,21,1,0)="This field indicates the file in which one or more entries were merged."
^DD(15.3,.01,21,2,0)="Whether an unused internal entry number is the result of merging an entry"
^DD(15.3,.01,21,3,0)="into another one can be determined by testing for an entry for the file"
^DD(15.3,.01,21,4,0)="number, and then under that entry an entry for the internal entry number."
^DD(15.3,.01,21,5,0)="If the internal entry number is present as a .01 field value in the"
^DD(15.3,.01,21,6,0)="subfile under the file number, then it is the result of merging two"
^DD(15.3,.01,21,7,0)="entries."
^DD(15.3,.01,"DT")="2951129"
^DD(15.3,1,0)="MERGED ENTRY^15.31A^^1;0"
^DD(15.3,1,21,0)="^^3^3^2980514^"
^DD(15.3,1,21,1,0)="This is the internal entry number of an entry which was merged into"
^DD(15.3,1,21,2,0)="another entry in the file which this field is associated with (the .01"
^DD(15.3,1,21,3,0)="field value in file 15.3)."
^DD(15.3,"B","FILE NUMBER",.01)=""
^DD(15.3,"B","MERGED ENTRY",1)=""
^DD(15.3,"GL",0,1,.01)=""
^DD(15.3,"GL",1,0,1)=""
^DD(15.3,"IX",.01)=""
^DD(15.3,"RQ",.01)=""
^DD(15.3,"SB",15.31,1)=""
^DD(15.31,0)="MERGED ENTRY SUB-FIELD^^.02^2"
^DD(15.31,0,"DT")="2951129"
^DD(15.31,0,"IX","B",15.31,.01)=""
^DD(15.31,0,"NM","MERGED ENTRY")=""
^DD(15.31,0,"UP")="15.3"
^DD(15.31,.01,0)="MERGED ENTRY^MRFX^^0;1^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N)!'(X=+X) X I $D(X) S DINUM=X"
^DD(15.31,.01,1,0)="^.1"
^DD(15.31,.01,1,1,0)="15.31^B"
^DD(15.31,.01,1,1,1)="S ^VA(15.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(15.31,.01,1,1,2)="K ^VA(15.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(15.31,.01,3)="Answer must be 1-20 characters in length must be a number."
^DD(15.31,.01,21,0)="^^3^3^2980514^"
^DD(15.31,.01,21,1,0)="This is the internal entry number of an entry which was merged intoanother"
^DD(15.31,.01,21,2,0)="entry in the file which this field is associated with (the .01field value"
^DD(15.31,.01,21,3,0)="in file 15.3)."
^DD(15.31,.01,"DT")="2951129"
^DD(15.31,.02,0)="MERGED TO ENTRY^RF^^0;2^K:$L(X)>20!($L(X)<1)!'(X?.N.""."".N) X"
^DD(15.31,.02,3)="Answer must be 1-20 characters in length and must be the internal number to which the merged entry was moved."
^DD(15.31,.02,21,0)="^^2^2^2980514^"
^DD(15.31,.02,21,1,0)="This field indicates the internal entry number of the file entry into"
^DD(15.31,.02,21,2,0)="which the entry indicated by the .01 field value was merged."
^DD(15.31,.02,"DT")="2951129"
^DD(15.31,"B","MERGED ENTRY",.01)=""
^DD(15.31,"B","MERGED TO ENTRY",.02)=""
^DD(15.31,"GL",0,1,.01)=""
^DD(15.31,"GL",0,2,.02)=""
^DD(15.31,"IX",.01)=""
^DD(15.31,"RQ",.01)=""
^DD(15.31,"RQ",.02)=""
^DD(15.4,0)="FIELD^^3^6"
^DD(15.4,0,"DDA")="N"
^DD(15.4,0,"DT")="2980514"
^DD(15.4,0,"IX","B",15.4,.01)=""
^DD(15.4,0,"IX","B",15.4,.02)=""
^DD(15.4,0,"NM","MERGE IMAGES")=""
^DD(15.4,0,"VR")="7.3"
^DD(15.4,0,"VRPK")="XT"
^DD(15.4,.01,0)="MERGED FROM^RV^^0;1^Q"
^DD(15.4,.01,1,0)="^.1"
^DD(15.4,.01,1,1,0)="15.4^B"
^DD(15.4,.01,1,1,1)="S ^XDRM(""B"",$E(X,1,30),DA)="""""
^DD(15.4,.01,1,1,2)="K ^XDRM(""B"",$E(X,1,30),DA)"
^DD(15.4,.01,3)="This is the FROM entry of the MERGE Pair"
^DD(15.4,.01,21,0)="^^2^2^2980514^^"
^DD(15.4,.01,21,1,0)="This field contains a variable pointer reference to the location in the"
^DD(15.4,.01,21,2,0)="primary merge file of the entry which was merged into another entry."
^DD(15.4,.01,"DT")="2971204"
^DD(15.4,.01,"V",0)="^.12P^1^1"
^DD(15.4,.01,"V",1,0)="2^  ^1^XDRM^^n"
^DD(15.4,.01,"V","B",2,1)=""
^DD(15.4,.01,"V","M","  ",1)=""
^DD(15.4,.01,"V","O",1,1)=""
^DD(15.4,.01,"V","P","XDRM",1)=""
^DD(15.4,.02,0)="MERGED TO^V^^0;2^Q"
^DD(15.4,.02,1,0)="^.1"
^DD(15.4,.02,1,1,0)="15.4^B"
^DD(15.4,.02,1,1,1)="S ^XDRM(""B"",$E(X,1,30),DA)="""""
^DD(15.4,.02,1,1,2)="K ^XDRM(""B"",$E(X,1,30),DA)"
^DD(15.4,.02,1,1,"DT")="2971205"
^DD(15.4,.02,3)="This is the entry that was merged into"
^DD(15.4,.02,21,0)="^^3^3^2980514^"
^DD(15.4,.02,21,1,0)="This field contains a variable pointer reference to the entry in the"
^DD(15.4,.02,21,2,0)="primary file for the merge, into which the entry indicated by the MERGED"
^DD(15.4,.02,21,3,0)="FROM (#.01) field was merged."
^DD(15.4,.02,"DT")="2971205"
^DD(15.4,.02,"V",0)="^.12P^1^1"
^DD(15.4,.02,"V",1,0)="2^  ^1^  ^^n"
^DD(15.4,.02,"V","B",2,1)=""
^DD(15.4,.02,"V","M","  ",1)=""
^DD(15.4,.02,"V","O",1,1)=""
^DD(15.4,.02,"V","P","  ",1)=""
^DD(15.4,.03,0)="DATE MERGED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(15.4,.03,3)="This is the date on which the entries were merged."
^DD(15.4,.03,21,0)="^^3^3^2980514^^"
^DD(15.4,.03,21,1,0)="This field indicates the date on which the entry indicated by the MERGED"
^DD(15.4,.03,21,2,0)="FROM (#.01) field was merged into the entry indicated by the MERGED TO"
^DD(15.4,.03,21,3,0)="(#.02) field."
^DD(15.4,.03,"DT")="2980514"
^DD(15.4,1,0)="FROM FILE#^15.41PA^^1;0"
^DD(15.4,1,21,0)="^^2^2^2980514^^"
^DD(15.4,1,21,1,0)="This field specifies a file for which a data image was recorded for the"
^DD(15.4,1,21,2,0)="entry specified by the MERGED FROM (#.01) field."
^DD(15.4,2,0)="TO FILE#^15.42PA^^2;0"
^DD(15.4,2,21,0)="^^2^2^2980514^"
^DD(15.4,2,21,1,0)="This field specifies a file for which a data image was recorded for"
^DD(15.4,2,21,2,0)="the entry specified by the MERGED TO (#.02) field."
^DD(15.4,3,0)="POINTERS CHANGED^15.43A^^3;0"
^DD(15.4,3,21,0)="^^6^6^2980514^"
^DD(15.4,3,21,1,0)="This multiple field contains data on locations where a pointer value was"
^DD(15.4,3,21,2,0)="changed.  The #.01 field contains the information which would be specified"
^DD(15.4,3,21,3,0)="as subscripts in the array passed in a call to FILE^DIE.  The array"
^DD(15.4,3,21,4,0)="subscripts are separated by a ';', and are in the form FILE;IENS;FIELD."
^DD(15.4,3,21,5,0)="The value which was present before the data was changed is stored in field"
^DD(15.4,3,21,6,0)="#1.01."
^DD(15.4,"B","DATE MERGED",.03)=""
^DD(15.4,"B","FROM FILE#",1)=""
^DD(15.4,"B","MERGED FROM",.01)=""
^DD(15.4,"B","MERGED TO",.02)=""
^DD(15.4,"B","POINTERS CHANGED",3)=""
^DD(15.4,"B","TO FILE#",2)=""
^DD(15.4,"GL",0,1,.01)=""
^DD(15.4,"GL",0,2,.02)=""
^DD(15.4,"GL",0,3,.03)=""
^DD(15.4,"GL",1,0,1)=""
^DD(15.4,"GL",2,0,2)=""
^DD(15.4,"GL",3,0,3)=""
^DD(15.4,"IX",.01)=""
^DD(15.4,"IX",.02)=""
^DD(15.4,"RQ",.01)=""
^DD(15.4,"SB",15.41,1)=""
^DD(15.4,"SB",15.42,2)=""
^DD(15.4,"SB",15.43,3)=""
^DD(15.41,0)="FROM FILE# SUB-FIELD^^1^3"
^DD(15.41,0,"DT")="2971204"
^DD(15.41,0,"IX","B",15.41,.01)=""
^DD(15.41,0,"NM","FROM FILE#")=""
^DD(15.41,0,"UP")="15.4"
^DD(15.41,.01,0)="FROM FILE#^P1'^DIC(^0;1^Q"
^DD(15.41,.01,1,0)="^.1"
^DD(15.41,.01,1,1,0)="15.41^B"
^DD(15.41,.01,1,1,1)="S ^XDRM(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(15.41,.01,1,1,2)="K ^XDRM(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(15.41,.01,3)="Selects one of the files that was merged"
^DD(15.41,.01,21,0)="^^3^3^2980514^^"
^DD(15.41,.01,21,1,0)="This field specifies a file for which a data image was recorded for"
^DD(15.41,.01,21,2,0)="the entry specified by the MERGED FROM (#.01) field in the parent file"
^DD(15.41,.01,21,3,0)="(MERGE IMAGES, 15.4)."
^DD(15.41,.01,"DT")="2971204"
^DD(15.41,.02,0)="IEN IN FILE^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.41,.02,3)="This is the internal entry number for the FROM entry in the current file."
^DD(15.41,.02,21,0)="^^6^6^2980514^"
^DD(15.41,.02,21,1,0)="This is the internal entry number (IEN) associated with the MERGED FROM"
^DD(15.41,.02,21,2,0)="(#.01 field in file 15.4) entry in the current file (FROM FILE#, #.01)."
^DD(15.41,.02,21,3,0)="While this is normally the same as the IEN of the entry indicated by"
^DD(15.41,.02,21,4,0)="MERGED FROM, there are some files which are not associated by DINUMed"
^DD(15.41,.02,21,5,0)="values and for which the IEN is different.  This field contains the proper"
^DD(15.41,.02,21,6,0)="IEN for the entry in the current file (FROM FILE#, #.01)."
^DD(15.41,.02,"DT")="2971204"
^DD(15.41,1,0)="GLOBAL DATA^15.411A^^1;0"
^DD(15.41,1,21,0)="^^6^6^2980514^"
^DD(15.41,1,21,1,0)="This multiple field contains the global nodes (lacking the beginning '^')"
^DD(15.41,1,21,2,0)="for the MERGED FROM entry in the current file (FROM FILE#, #.01).  The"
^DD(15.41,1,21,3,0)="global prior to the merge can be reconstructed by setting the value in"
^DD(15.41,1,21,4,0)="field #1.01 of the subfile into the global location specified by the data"
^DD(15.41,1,21,5,0)="in the current field (#.01).  If there is no field #1.01 associated with a"
^DD(15.41,1,21,6,0)="global location, the value was NULL."
^DD(15.41,"B","FROM FILE#",.01)=""
^DD(15.41,"B","GLOBAL DATA",1)=""
^DD(15.41,"B","IEN IN FILE",.02)=""
^DD(15.41,"GL",0,1,.01)=""
^DD(15.41,"GL",0,2,.02)=""
^DD(15.41,"GL",1,0,1)=""
^DD(15.41,"IX",.01)=""
^DD(15.41,"SB",15.411,1)=""
^DD(15.411,0)="GLOBAL DATA SUB-FIELD^^1.01^2"
^DD(15.411,0,"DT")="2971204"
^DD(15.411,0,"IX","B",15.411,.01)=""
^DD(15.411,0,"NM","GLOBAL DATA")=""
^DD(15.411,0,"UP")="15.41"
^DD(15.411,.01,0)="GLOBAL NODE^F^^0;1^K:$L(X)>245!($L(X)<2) X"
^DD(15.411,.01,1,0)="^.1"
^DD(15.411,.01,1,1,0)="15.411^B"
^DD(15.411,.01,1,1,1)="S ^XDRM(DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(15.411,.01,1,1,2)="K ^XDRM(DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(15.411,.01,3)="This is the global node for which the data is given"
^DD(15.411,.01,21,0)="^^6^6^2980514^"
^DD(15.411,.01,21,1,0)="This field contains global node (lacking the beginning '^') for the MERGED"
^DD(15.411,.01,21,2,0)="FROM entry in the current file (FROM FILE#, #.01). The global prior to the"
^DD(15.411,.01,21,3,0)="merge can be reconstructed by setting the value in field #1.01 into the"
^DD(15.411,.01,21,4,0)="global location specified by the data inthe current field (#.01).  If"
^DD(15.411,.01,21,5,0)="there is no field #1.01 associated with a global location, the value was"
^DD(15.411,.01,21,6,0)="NULL."
^DD(15.411,.01,"DT")="2971204"
^DD(15.411,1.01,0)="DATA VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(15.411,1.01,3)="This is the value associated with the current global node"
^DD(15.411,1.01,21,0)="^^3^3^2980514^^"
^DD(15.411,1.01,21,1,0)="This field contains the data value associated with the global location"
^DD(15.411,1.01,21,2,0)="specified in GLOBAL NODE (#.01).  If there is no data in the current"
^DD(15.411,1.01,21,3,0)="field, then the value associated with the global was NULL."
^DD(15.411,1.01,"DT")="2971204"
^DD(15.411,"B","DATA VALUE",1.01)=""
^DD(15.411,"B","GLOBAL NODE",.01)=""
^DD(15.411,"GL",0,1,.01)=""
^DD(15.411,"GL",1,"E1,245",1.01)=""
^DD(15.411,"IX",.01)=""
^DD(15.42,0)="TO FILE# SUB-FIELD^^1^3"
^DD(15.42,0,"DT")="2971204"
^DD(15.42,0,"IX","B",15.42,.01)=""
^DD(15.42,0,"NM","TO FILE#")=""
^DD(15.42,0,"UP")="15.4"
^DD(15.42,.01,0)="TO FILE#^P1'^DIC(^0;1^Q"
^DD(15.42,.01,1,0)="^.1"
^DD(15.42,.01,1,1,0)="15.42^B"
^DD(15.42,.01,1,1,1)="S ^XDRM(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(15.42,.01,1,1,2)="K ^XDRM(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(15.42,.01,3)="Selects one of the files that was merged"
^DD(15.42,.01,21,0)="^^3^3^2980514^^"
^DD(15.42,.01,21,1,0)="This field specifies a file for which a data image was recorded for the"
^DD(15.42,.01,21,2,0)="entry specified by the MERGED TO (#.02 ) field in the parent file (MERGE"
^DD(15.42,.01,21,3,0)="IMAGES, 15.4)."
^DD(15.42,.01,"DT")="2971204"
^DD(15.42,.02,0)="IEN IN FILE^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(15.42,.02,3)="This is the internal entry number for the TO entry in the current file."
^DD(15.42,.02,21,0)="^^6^6^2980514^^"
^DD(15.42,.02,21,1,0)="This is the internal entry number (IEN) associated with the MERGED TO"
^DD(15.42,.02,21,2,0)="(#.02 field in file 15.4) entry in the current file (TO FILE#, #.01)."
^DD(15.42,.02,21,3,0)="While this is normally the same as the IEN of the entry indicated by"
^DD(15.42,.02,21,4,0)="MERGED TO, there are some files which are not associated by DINUMed values"
^DD(15.42,.02,21,5,0)="and for which the IEN is different.  This field contains the proper IEN"
^DD(15.42,.02,21,6,0)="for the entry in the current file (TO FILE#, .01)."
^DD(15.42,.02,"DT")="2971204"
^DD(15.42,1,0)="GLOBAL DATA^15.421A^^1;0"
^DD(15.42,1,21,0)="^^6^6^2980514^^"
^DD(15.42,1,21,1,0)="This multiple field contains the global nodes (lacking the beginning"
^DD(15.42,1,21,2,0)="'^') for the MERGED TO entry in the current file (TO FILE#, #.01)."
^DD(15.42,1,21,3,0)="The global prior to the merge can be reconstructed by setting the value"
^DD(15.42,1,21,4,0)="in field #1.01 of the subfile into the global location specified by the"
^DD(15.42,1,21,5,0)="data in the current field (#.01).  If there is no field #1.01 associated"
^DD(15.42,1,21,6,0)="with a global location, the value was NULL."
^DD(15.42,"B","GLOBAL DATA",1)=""
^DD(15.42,"B","IEN IN FILE",.02)=""
^DD(15.42,"B","TO FILE#",.01)=""
^DD(15.42,"GL",0,1,.01)=""
^DD(15.42,"GL",0,2,.02)=""
^DD(15.42,"GL",1,0,1)=""
^DD(15.42,"IX",.01)=""
^DD(15.42,"SB",15.421,1)=""
^DD(15.421,0)="GLOBAL DATA SUB-FIELD^^1.01^2"
^DD(15.421,0,"DT")="2971204"
^DD(15.421,0,"IX","B",15.421,.01)=""
^DD(15.421,0,"NM","GLOBAL DATA")=""
^DD(15.421,0,"UP")="15.42"
^DD(15.421,.01,0)="GLOBAL NODE^F^^0;1^K:$L(X)>245!($L(X)<2) X"
^DD(15.421,.01,1,0)="^.1"
^DD(15.421,.01,1,1,0)="15.421^B"
^DD(15.421,.01,1,1,1)="S ^XDRM(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(15.421,.01,1,1,2)="K ^XDRM(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(15.421,.01,3)="This is the global node for which the data is given"
^DD(15.421,.01,21,0)="^^6^6^2980514^"
^DD(15.421,.01,21,1,0)="This field contains a global node (lacking the beginning'^') for the"
^DD(15.421,.01,21,2,0)="MERGED TO entry in the current file (TO FILE#, #.01).    The global prior"
^DD(15.421,.01,21,3,0)="to the merge can be reconstructed by setting the value in field #1.01 of"
^DD(15.421,.01,21,4,0)="the subfile into the global location specified by the data in the current"
^DD(15.421,.01,21,5,0)="field (#.01).  If there is no field #1.01 associated with a global"
^DD(15.421,.01,21,6,0)="location, the value was NULL."
^DD(15.421,.01,"DT")="2971204"
^DD(15.421,1.01,0)="DATA VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(15.421,1.01,3)="This is the value associated with the current global node"
^DD(15.421,1.01,21,0)="^^3^3^2980514^^"
^DD(15.421,1.01,21,1,0)="This field contains the data value associated with the global"
^DD(15.421,1.01,21,2,0)="location specified in GLOBAL NODE (#.01).  If there is no data in the"
^DD(15.421,1.01,21,3,0)="current field, then the value associated with the global was NULL."
^DD(15.421,1.01,"DT")="2971204"
^DD(15.421,"B","DATA VALUE",1.01)=""
^DD(15.421,"B","GLOBAL NODE",.01)=""
^DD(15.421,"GL",0,1,.01)=""
^DD(15.421,"GL",1,"E1,245",1.01)=""
^DD(15.421,"IX",.01)=""
^DD(15.43,0)="POINTERS CHANGED SUB-FIELD^^1.01^2"
^DD(15.43,0,"DT")="2971205"
^DD(15.43,0,"IX","B",15.43,.01)=""
^DD(15.43,0,"NM","POINTERS CHANGED")=""
^DD(15.43,0,"UP")="15.4"
^DD(15.43,.01,0)="POINTERS CHANGED^F^^0;1^K:$L(X)>100!($L(X)<1) X"
^DD(15.43,.01,1,0)="^.1"
^DD(15.43,.01,1,1,0)="15.43^B"
^DD(15.43,.01,1,1,1)="S ^XDRM(DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(15.43,.01,1,1,2)="K ^XDRM(DA(1),3,""B"",$E(X,1,30),DA)"
^DD(15.43,.01,3)="Value is file number;field number;IEN string  where file number may be a subfile number"
^DD(15.43,.01,21,0)="^^6^6^2980514^^"
^DD(15.43,.01,21,1,0)="This field contains data on a location where a pointer value was changed."
^DD(15.43,.01,21,2,0)="The #.01 field contains the information which would be specified as"
^DD(15.43,.01,21,3,0)="subscripts in the array passed in a call to FILE^DIE.  The array"
^DD(15.43,.01,21,4,0)="subscripts are separated by a ';', and are in the form FILE;IENS;FIELD."
^DD(15.43,.01,21,5,0)="The value which was present before the data was changed is stored in field"
^DD(15.43,.01,21,6,0)="#1.01."
^DD(15.43,.01,"DT")="2971205"
^DD(15.43,1.01,0)="ORIGINAL VALUE^F^^1;1^K:$L(X)>200!($L(X)<1) X"
^DD(15.43,1.01,3)="This is the pointer value before it was changed"
^DD(15.43,1.01,21,0)="^^3^3^2980514^^"
^DD(15.43,1.01,21,1,0)="This field contains the pointer value which was present at the location"
^DD(15.43,1.01,21,2,0)="specified by the #.01 field, prior to the value being changed during the"
^DD(15.43,1.01,21,3,0)="merge."
^DD(15.43,1.01,"DT")="2971205"
^DD(15.43,"B","ORIGINAL VALUE",1.01)=""
^DD(15.43,"B","POINTERS CHANGED",.01)=""
^DD(15.43,"GL",0,1,.01)=""
^DD(15.43,"GL",1,1,1.01)=""
^DD(15.43,"IX",.01)=""
^DD(18.01,0)="FIELD^^100^7"
^DD(18.01,0,"DDA")="N"
^DD(18.01,0,"DT")="3041110"
^DD(18.01,0,"IX","B",18.01,.01)=""
^DD(18.01,0,"NM","FOUNDATIONS SITE PARAMETERS")=""
^DD(18.01,0,"VR")="1.5"
^DD(18.01,0,"VRPK")="XOBU"
^DD(18.01,.01,0)="DOMAIN NAME^RP4.2'X^DIC(4.2,^0;1^S DINUM=1"
^DD(18.01,.01,1,0)="^.1"
^DD(18.01,.01,1,1,0)="18.01^B"
^DD(18.01,.01,1,1,1)="S ^XOB(18.01,""B"",$E(X,1,30),DA)="""""
^DD(18.01,.01,1,1,2)="K ^XOB(18.01,""B"",$E(X,1,30),DA)"
^DD(18.01,.01,3)="Enter the domain name associated with this application"
^DD(18.01,.01,21,0)="^^5^5^3030410^"
^DD(18.01,.01,21,1,0)="This is the domain name of this installation of the Foundations and"
^DD(18.01,.01,21,2,0)="VistALink application as it is known to the rest of the network."
^DD(18.01,.01,21,3,0)=" "
^DD(18.01,.01,21,4,0)="This name applies to all CPUs or Volume sets which access this ^XOB"
^DD(18.01,.01,21,5,0)="global and the ^XWB global."
^DD(18.01,.01,"DT")="3030410"
^DD(18.01,.02,0)="HEARTBEAT RATE^RNJ4,0^^0;2^K:+X'=X!(X>3600)!(X<180)!(X?.E1"".""1.N) X"
^DD(18.01,.02,3)="Type the number of seconds between 180 and 3600"
^DD(18.01,.02,21,0)="^^11^11^3030430^"
^DD(18.01,.02,21,1,0)="This field indicates the rate (in seconds) the VistALink heartbeat message"
^DD(18.01,.02,21,2,0)="should be expected from a client. If there is no activity on the"
^DD(18.01,.02,21,3,0)="connection for this amount of time, the client will send a system"
^DD(18.01,.02,21,4,0)="heartbeat message."
^DD(18.01,.02,21,5,0)=" "
^DD(18.01,.02,21,6,0)="The client, as part of the initial connection protocol, retrieves this "
^DD(18.01,.02,21,7,0)="value. As a result, the client and the M server are always synchronized"
^DD(18.01,.02,21,8,0)="regarding the heartbeat rate."
^DD(18.01,.02,21,9,0)=" "
^DD(18.01,.02,21,10,0)=" "
^DD(18.01,.02,21,11,0)="See also: LATENCY DELTA"
^DD(18.01,.02,"DT")="3030430"
^DD(18.01,.03,0)="LATENCY DELTA^NJ4,0^^0;3^K:+X'=X!(X>3600)!(X<180)!(X?.E1"".""1.N) X"
^DD(18.01,.03,3)="Type the number of seconds between 180 and 3600"
^DD(18.01,.03,21,0)="^^10^10^3030410^"
^DD(18.01,.03,21,1,0)="This field indicates the number of seconds to add to the HEARTBEAT RATE "
^DD(18.01,.03,21,2,0)="when calculating the initial timeout value for the VistALink Listener."
^DD(18.01,.03,21,3,0)=" "
^DD(18.01,.03,21,4,0)="The client and the M server are synchronized regarding the HEARTBEAT "
^DD(18.01,.03,21,5,0)="RATE. This latency parameter allows the site to fine tune the timeout"
^DD(18.01,.03,21,6,0)="value. The site can to take into account any network slowness or other"
^DD(18.01,.03,21,7,0)="factors that may delay the arrival of the system heartbeat message from"
^DD(18.01,.03,21,8,0)="the client."
^DD(18.01,.03,21,9,0)=" "
^DD(18.01,.03,21,10,0)="See also: HEARTBEAT RATE"
^DD(18.01,.03,"DT")="3030410"
^DD(18.01,.04,0)="J2EE CONNECTION TIMEOUT^NJ6,0^^0;4^K:+X'=X!(X>604800)!(X<180)!(X?.E1"".""1N.N) X"
^DD(18.01,.04,3)="Enter the number of seconds between 180 (3 minutes) and 604800 (1 week), inclusive."
^DD(18.01,.04,21,0)="^^73^73^3041116^"
^DD(18.01,.04,21,1,0)="This field indicates the number of seconds that a VistaLink connection"
^DD(18.01,.04,21,2,0)="from J2EE to M should be allowed to remain connected but inactive, before"
^DD(18.01,.04,21,3,0)="M drops the connection."
^DD(18.01,.04,21,4,0)=" "
^DD(18.01,.04,21,5,0)="It is recommended that this J2EE CONNECTION TIMEOUT"
^DD(18.01,.04,21,6,0)="parameter be set relatively high, for example 1 day (86400 seconds)."
^DD(18.01,.04,21,7,0)=" "
^DD(18.01,.04,21,8,0)="A high setting is recommended because all the major application"
^DD(18.01,.04,21,9,0)="server implementations have more robust mechanisms for controlling"
^DD(18.01,.04,21,10,0)="connection pools. The site should use the tools/mechanisms supplied"
^DD(18.01,.04,21,11,0)="by the application server implementation to control how the conection"
^DD(18.01,.04,21,12,0)="pool size grows and shrinks."
^DD(18.01,.04,21,13,0)=" "
^DD(18.01,.04,21,14,0)="For a quick indicator of the level of control available, below is a"
^DD(18.01,.04,21,15,0)="brief summary of the connection pool properties in the J2EE"
^DD(18.01,.04,21,16,0)="deployment descriptors (DD) for J2EE Connector Architecture (J2CA)"
^DD(18.01,.04,21,17,0)="adaptors by the major application servers."
^DD(18.01,.04,21,18,0)=" "
^DD(18.01,.04,21,19,0)=" "
^DD(18.01,.04,21,20,0)="BEA WebLogic:"
^DD(18.01,.04,21,21,0)="============="
^DD(18.01,.04,21,22,0)=" "
^DD(18.01,.04,21,23,0)="DD  file: weblogic-ra.xml"
^DD(18.01,.04,21,24,0)="DTD file: weblogic810-ra.dtd"
^DD(18.01,.04,21,25,0)=" "
^DD(18.01,.04,21,26,0)=" <pool-params>"
^DD(18.01,.04,21,27,0)="    <initial-capacity>1</initial-capacity>"
^DD(18.01,.04,21,28,0)="    <max-capacity>5</max-capacity>"
^DD(18.01,.04,21,29,0)="    <capacity-increment>1</capacity-increment>"
^DD(18.01,.04,21,30,0)="    <shrinking-enabled>true</shrinking-enabled>"
^DD(18.01,.04,21,31,0)="    <connection-profiling-enabled>false</connection-profiling-enabled>"
^DD(18.01,.04,21,32,0)="    <shrink-frequency-seconds>900</shrink-frequency-seconds>"
^DD(18.01,.04,21,33,0)="    <inactive-connection-timeout-seconds>0"
^DD(18.01,.04,21,34,0)="         </inactive-connection-timeout-seconds>"
^DD(18.01,.04,21,35,0)="    <highest-num-waiters>2147483647</highest-num-waiters>"
^DD(18.01,.04,21,36,0)="    <highest-num-unavailable>0</highest-num-unavailable>"
^DD(18.01,.04,21,37,0)="    <connection-creation-retry-frequency-seconds>0"
^DD(18.01,.04,21,38,0)="         </connection-creation-retry-frequency-seconds>"
^DD(18.01,.04,21,39,0)="    <connection-reserve-timeout-seconds>10"
^DD(18.01,.04,21,40,0)="         </connection-reserve-timeout-seconds>"
^DD(18.01,.04,21,41,0)="    <test-frequency-seconds>0</test-frequency-seconds>"
^DD(18.01,.04,21,42,0)="    <match-connections-supported>true</match-connections-supported>"
^DD(18.01,.04,21,43,0)="  </pool-params>"
^DD(18.01,.04,21,44,0)=" "
^DD(18.01,.04,21,45,0)=" "
^DD(18.01,.04,21,46,0)="Oracle 9iAS:"
^DD(18.01,.04,21,47,0)="============"
^DD(18.01,.04,21,48,0)=" "
^DD(18.01,.04,21,49,0)="DD  file: oc4j-ra.xml"
^DD(18.01,.04,21,50,0)="DTD file: oc4j-connector-factories.dtd"
^DD(18.01,.04,21,51,0)=" "
^DD(18.01,.04,21,52,0)=" <connection-pooling>"
^DD(18.01,.04,21,53,0)="    <property name=""waitTimeout"" value=""0"" />"
^DD(18.01,.04,21,54,0)="    <property name=""scheme"" value=""fixed"" />"
^DD(18.01,.04,21,55,0)="    <property name=""maxConnections"" value=""5"" />"
^DD(18.01,.04,21,56,0)="    <property name=""minConnections"" value=""1"" />"
^DD(18.01,.04,21,57,0)=" </connection-pooling>"
^DD(18.01,.04,21,58,0)=" "
^DD(18.01,.04,21,59,0)=" "
^DD(18.01,.04,21,60,0)="JBoss:"
^DD(18.01,.04,21,61,0)="======"
^DD(18.01,.04,21,62,0)=" "
^DD(18.01,.04,21,63,0)="DD  file: jboss-xxx-ds.xml"
^DD(18.01,.04,21,64,0)="DTD file: ??"
^DD(18.01,.04,21,65,0)=" "
^DD(18.01,.04,21,66,0)=" <min-pool-size>1</min-pool-size>"
^DD(18.01,.04,21,67,0)=" <max-pool-size>5</max-pool-size>"
^DD(18.01,.04,21,68,0)=" <blocking-timeout-millis>5000</blocking-timeout-millis>"
^DD(18.01,.04,21,69,0)=" <idle-timeout-minutes>15</idle-timeout-minutes>"
^DD(18.01,.04,21,70,0)=" "
^DD(18.01,.04,21,71,0)=" "
^DD(18.01,.04,21,72,0)="For more information on each application server implementation, see"
^DD(18.01,.04,21,73,0)="documentation for each individual implementation."
^DD(18.01,.04,"DT")="3041116"
^DD(18.01,.05,0)="J2EE REAUTHENTICATION TIMEOUT^NJ4,0^^0;5^K:+X'=X!(X>3600)!(X<180)!(X?.E1"".""1N.N) X"
^DD(18.01,.05,3)="Number of seconds between 180 and 3600 (inclusive) before a reauthenticated connection is considered expired and must go through the reauthentication process again."
^DD(18.01,.05,21,0)="^^34^34^3041118^"
^DD(18.01,.05,21,1,0)="Number of seconds a connection is considered reauthenicated after a "
^DD(18.01,.05,21,2,0)="successful reauthentication has occurred."
^DD(18.01,.05,21,3,0)=" "
^DD(18.01,.05,21,4,0)="Rules Enforced:"
^DD(18.01,.05,21,5,0)="==============="
^DD(18.01,.05,21,6,0)="- If a connection in the application server's pool is not"
^DD(18.01,.05,21,7,0)="  reused by the reauthenticated user before this timeout"
^DD(18.01,.05,21,8,0)="  limit is reached, the reauthentication is considered expired."
^DD(18.01,.05,21,9,0)=" "
^DD(18.01,.05,21,10,0)="- If expiration does occur, the re-authentication process is"
^DD(18.01,.05,21,11,0)="  performed again."
^DD(18.01,.05,21,12,0)=" "
^DD(18.01,.05,21,13,0)="- If expiration does not occur, the session is considered"
^DD(18.01,.05,21,14,0)="  reauthenticated for these number of seconds. (i.e. the time"
^DD(18.01,.05,21,15,0)="  out clock is reset)"
^DD(18.01,.05,21,16,0)=" "
^DD(18.01,.05,21,17,0)="- If a different user gains access to the connection, the"
^DD(18.01,.05,21,18,0)="  connection is immediately considered not reauthenticated and"
^DD(18.01,.05,21,19,0)="  the reauthentication process is performed."
^DD(18.01,.05,21,20,0)=" "
^DD(18.01,.05,21,21,0)="Example of Reauthentication Expiration:"
^DD(18.01,.05,21,22,0)="======================================="
^DD(18.01,.05,21,23,0)=" - User gains access and uses a connection from the pool at 4:00pm"
^DD(18.01,.05,21,24,0)=" - User signs off and goes home, along with most of the site staff"
^DD(18.01,.05,21,25,0)=" - After 4:00pm, user file maintenance is performed and "
^DD(18.01,.05,21,26,0)="   the user's profile is changed. For example, the user's "
^DD(18.01,.05,21,27,0)="   FILE MANAGER ACCESS CODE [DUZ(0)] is changed.  "
^DD(18.01,.05,21,28,0)=" - User signs back on the next morning at 8am"
^DD(18.01,.05,21,29,0)=" - Since there is very little activity from 4:00-8am, the connection"
^DD(18.01,.05,21,30,0)="   has not been re-used by another user and is still associated with "
^DD(18.01,.05,21,31,0)="   4:00 user"
^DD(18.01,.05,21,32,0)=" - Since timeout has passed, reauthentication has expired"
^DD(18.01,.05,21,33,0)=" - Reauthentication process occurs for user"
^DD(18.01,.05,21,34,0)=" - Reauthentication process re-sets DUZ(0) appropriately to new value. "
^DD(18.01,.05,"DT")="3041118"
^DD(18.01,21,0)="DEFAULT HTTP TIMEOUT^NJ3,0^^2;1^K:+X'=X!(X>300)!(X<2)!(X?.E1"".""1.N) X"
^DD(18.01,21,3)="Default HTTP time-out between 1 and 300 seconds"
^DD(18.01,21,21,0)="^^10^10^3050504^"
^DD(18.01,21,21,1,0)="This field indicates the default HTTP time-out (in seconds) for call out"
^DD(18.01,21,21,2,0)="of the M to a J2EE application server using the M2J feature in VistALink."
^DD(18.01,21,21,3,0)=" "
^DD(18.01,21,21,4,0)="This time-out value can be overriden by specifying a time-out for an"
^DD(18.01,21,21,5,0)="particular application server. This is accomplished by entering a time-out"
^DD(18.01,21,21,6,0)="value for DEFAULT HTTP TIMEOUT (#.1) field in the VISTALINK J2EE APP "
^DD(18.01,21,21,7,0)="SERVERS (#18.08) file."
^DD(18.01,21,21,8,0)=" "
^DD(18.01,21,21,9,0)=" "
^DD(18.01,21,21,10,0)="Note: This field is only used by the VistALink v2.0 codebase."
^DD(18.01,21,"DT")="3050504"
^DD(18.01,100,0)="LISTENER CONFIGURATION^18.012P^^CONFIG;0"
^DD(18.01,100,21,0)="^^11^11^3030410^"
^DD(18.01,100,21,1,0)="This multiple field contains the VistALink Listener configurations for "
^DD(18.01,100,21,2,0)="BOX-VOLUME entries in the DOMAIN NAME's scope."
^DD(18.01,100,21,3,0)=" "
^DD(18.01,100,21,4,0)="Each configuration is used by the XOBV LISTENER STARTUP menu option. This"
^DD(18.01,100,21,5,0)="option is typically scheduled to run as part of the system startup after"
^DD(18.01,100,21,6,0)="the VistA system has been restarted. The option will start up VistALink"
^DD(18.01,100,21,7,0)="Listeners for the BOX-VOLUME where Task Manager is running."
^DD(18.01,100,21,8,0)=" "
^DD(18.01,100,21,9,0)="Note: This only applies to Cache NT systems. VMS/DSM systems need to use "
^DD(18.01,100,21,10,0)="the TCP/IP (UCX) utility to have Listeners automatically started"
^DD(18.01,100,21,11,0)="on reboot."
^DD(18.01,"B","DEFAULT HTTP TIMEOUT",21)=""
^DD(18.01,"B","DOMAIN NAME",.01)=""
^DD(18.01,"B","HEARTBEAT RATE",.02)=""
^DD(18.01,"B","J2EE CONNECTION TIMEOUT",.04)=""
^DD(18.01,"B","J2EE REAUTHENTICATION TIMEOUT",.05)=""
^DD(18.01,"B","LATENCY DELTA",.03)=""
^DD(18.01,"B","LISTENER CONFIGURATION",100)=""
^DD(18.01,"GL",0,1,.01)=""
^DD(18.01,"GL",0,2,.02)=""
^DD(18.01,"GL",0,3,.03)=""
^DD(18.01,"GL",0,4,.04)=""
^DD(18.01,"GL",0,5,.05)=""
^DD(18.01,"GL",2,1,21)=""
^DD(18.01,"GL","CONFIG",0,100)=""
^DD(18.01,"IX",.01)=""
^DD(18.01,"RQ",.01)=""
^DD(18.01,"RQ",.02)=""
^DD(18.01,"SB",18.012,100)=""
^DD(18.012,0)="LISTENER CONFIGURATION SUB-FIELD^^.02^2"
^DD(18.012,0,"DT")="3030310"
^DD(18.012,0,"IX","B",18.012,.01)=""
^DD(18.012,0,"NM","LISTENER CONFIGURATION")=""
^DD(18.012,0,"UP")="18.01"
^DD(18.012,.01,0)="BOX-VOLUME PAIR^MRP14.7'^%ZIS(14.7,^0;1^Q"
^DD(18.012,.01,1,0)="^.1"
^DD(18.012,.01,1,1,0)="18.012^B"
^DD(18.012,.01,1,1,1)="S ^XOB(18.01,DA(1),""CONFIG"",""B"",$E(X,1,30),DA)="""""
^DD(18.012,.01,1,1,2)="K ^XOB(18.01,DA(1),""CONFIG"",""B"",$E(X,1,30),DA)"
^DD(18.012,.01,3)="Enter the BOX-VOLUME pair for this entry"
^DD(18.012,.01,21,0)="^^11^11^3030410^"
^DD(18.012,.01,21,1,0)="This field indicates the BOX-VOLUME pair for the entry."
^DD(18.012,.01,21,2,0)=" "
^DD(18.012,.01,21,3,0)="The XOBV LISTENER STARTUP option uses this field to find the configuration"
^DD(18.012,.01,21,4,0)="that should be used to start up VistALink Listeners for the BOX-VOLUME "
^DD(18.012,.01,21,5,0)="pair."
^DD(18.012,.01,21,6,0)=" "
^DD(18.012,.01,21,7,0)="See also: DEFAULT CONFIGURATION"
^DD(18.012,.01,21,8,0)=" "
^DD(18.012,.01,21,9,0)="Note: This only applies to Cache NT systems. VMS/DSM systems need to use"
^DD(18.012,.01,21,10,0)="the TCP/IP (UCX) utility to have Listeners automatically started on "
^DD(18.012,.01,21,11,0)="reboot."
^DD(18.012,.01,"DT")="3030410"
^DD(18.012,.02,0)="DEFAULT CONFIGURATION^P18.03'^XOB(18.03,^0;2^Q"
^DD(18.012,.02,3)="Enter the default configuration name"
^DD(18.012,.02,21,0)="^^15^15^3030410^"
^DD(18.012,.02,21,1,0)="This field indicates the default startup Listener configuration for the "
^DD(18.012,.02,21,2,0)="BOX-VOLUME PAIR entry."
^DD(18.012,.02,21,3,0)=" "
^DD(18.012,.02,21,4,0)="The XOBV LISTENER STARTUP option uses this field to retrieve the correct "
^DD(18.012,.02,21,5,0)="Listener configuration from the VISTALINK LISTENER CONFIGURATION file"
^DD(18.012,.02,21,6,0)="(#18.03)."
^DD(18.012,.02,21,7,0)=" "
^DD(18.012,.02,21,8,0)="The information in the configuration is then used to start up the"
^DD(18.012,.02,21,9,0)="indicated VistALink Listeners on the desired ports."
^DD(18.012,.02,21,10,0)=" "
^DD(18.012,.02,21,11,0)="See also: BOX-VOLUME PAIR"
^DD(18.012,.02,21,12,0)=" "
^DD(18.012,.02,21,13,0)="Note: This only applies to Cache NT systems. VMS/DSM systems need to use"
^DD(18.012,.02,21,14,0)="the TCP/IP (UCX) utility to have Listeners automatically started on "
^DD(18.012,.02,21,15,0)="reboot."
^DD(18.012,.02,"DT")="3030410"
^DD(18.012,"B","BOX-VOLUME PAIR",.01)=""
^DD(18.012,"B","DEFAULT CONFIGURATION",.02)=""
^DD(18.012,"GL",0,1,.01)=""
^DD(18.012,"GL",0,2,.02)=""
^DD(18.012,"IX",.01)=""
^DD(18.012,"RQ",.01)=""
^DD(18.03,0)="FIELD^^100^2"
^DD(18.03,0,"DDA")="N"
^DD(18.03,0,"DT")="3030310"
^DD(18.03,0,"IX","B",18.03,.01)=""
^DD(18.03,0,"NM","VISTALINK LISTENER CONFIGURATION")=""
^DD(18.03,0,"PT",18.012,.02)=""
^DD(18.03,0,"PT",18.04,.06)=""
^DD(18.03,0,"VR")="1.5"
^DD(18.03,0,"VRPK")="XOBV"
^DD(18.03,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(18.03,.01,1,0)="^.1"
^DD(18.03,.01,1,1,0)="18.03^B"
^DD(18.03,.01,1,1,1)="S ^XOB(18.03,""B"",$E(X,1,30),DA)="""""
^DD(18.03,.01,1,1,2)="K ^XOB(18.03,""B"",$E(X,1,30),DA)"
^DD(18.03,.01,3)="Answer must be 3-30 characters in length"
^DD(18.03,.01,21,0)="^^3^3^3030410^"
^DD(18.03,.01,21,1,0)="This field contains the name of the default VistALink configuration used "
^DD(18.03,.01,21,2,0)="with the associated BOX-VOLUME PAIR specified in the FOUNDATIONS SITE"
^DD(18.03,.01,21,3,0)="PARAMETERS file (#18.01)."
^DD(18.03,.01,"DT")="3030410"
^DD(18.03,100,0)="LISTENER PORTS^18.031^^PORTS;0"
^DD(18.03,100,21,0)="^^6^6^3030410^"
^DD(18.03,100,21,1,0)="This multiple field contains Listener port information associated with a "
^DD(18.03,100,21,2,0)="specific VistALink configuration entry."
^DD(18.03,100,21,3,0)=" "
^DD(18.03,100,21,4,0)="Each Listener port entry holds the port number to be used by the VistALink"
^DD(18.03,100,21,5,0)="Listener along with an indicator which will specify whether the Listener"
^DD(18.03,100,21,6,0)="should be automatically tasked to start on system startup."
^DD(18.03,"B","LISTENER PORTS",100)=""
^DD(18.03,"B","NAME",.01)=""
^DD(18.03,"GL",0,1,.01)=""
^DD(18.03,"GL","PORTS",0,100)=""
^DD(18.03,"IX",.01)=""
^DD(18.03,"RQ",.01)=""
^DD(18.03,"SB",18.031,100)=""
^DD(18.031,0)="LISTENER PORTS SUB-FIELD^^.02^2"
^DD(18.031,0,"DT")="3030310"
^DD(18.031,0,"IX","B",18.031,.01)=""
^DD(18.031,0,"NM","LISTENER PORTS")=""
^DD(18.031,0,"UP")="18.03"
^DD(18.031,.01,0)="PORT^MNJ5,0^^0;1^K:+X'=X!(X>65635)!(X<5000)!(X?.E1"".""1N.N) X"
^DD(18.031,.01,1,0)="^.1"
^DD(18.031,.01,1,1,0)="18.031^B"
^DD(18.031,.01,1,1,1)="S ^XOB(18.03,DA(1),""PORTS"",""B"",$E(X,1,30),DA)="""""
^DD(18.031,.01,1,1,2)="K ^XOB(18.03,DA(1),""PORTS"",""B"",$E(X,1,30),DA)"
^DD(18.031,.01,3)="Type a Number between 5000 and 65635, 0 Decimal Digits"
^DD(18.031,.01,21,0)="^.001^2^2^3030409^^"
^DD(18.031,.01,21,1,0)="This field indicates the port number that will be used by the VistALink"
^DD(18.031,.01,21,2,0)="Listener configuration."
^DD(18.031,.01,"DT")="3030409"
^DD(18.031,.02,0)="STARTUP^S^0:NO;1:YES;^0;2^Q"
^DD(18.031,.02,3)="Answer YES if Listener should be started on system startup, NO otherwise"
^DD(18.031,.02,21,0)="^^2^2^3030410^"
^DD(18.031,.02,21,1,0)="This field indicates whether the Listener should be automatically tasked "
^DD(18.031,.02,21,2,0)="to start on system startup."
^DD(18.031,.02,"DT")="3030410"
^DD(18.031,"B","PORT",.01)=""
^DD(18.031,"B","STARTUP",.02)=""
^DD(18.031,"GL",0,1,.01)=""
^DD(18.031,"GL",0,2,.02)=""
^DD(18.031,"IX",.01)=""
^DD(18.04,0)="FIELD^^.06^6"
^DD(18.04,0,"DDA")="N"
^DD(18.04,0,"DT")="3031021"
^DD(18.04,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(18.04,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(18.04,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(18.04,0,"IX","B",18.04,.01)=""
^DD(18.04,0,"NM","VISTALINK LISTENER STARTUP LOG")=""
^DD(18.04,0,"VR")="1.5"
^DD(18.04,0,"VRPK")="XOBV"
^DD(18.04,.01,0)="BOX-VOLUME PAIR^RP14.7'^%ZIS(14.7,^0;1^Q"
^DD(18.04,.01,1,0)="^.1"
^DD(18.04,.01,1,1,0)="18.04^B"
^DD(18.04,.01,1,1,1)="S ^XOB(18.04,""B"",$E(X,1,30),DA)="""""
^DD(18.04,.01,1,1,2)="K ^XOB(18.04,""B"",$E(X,1,30),DA)"
^DD(18.04,.01,3)="Enter the BOX-VOLUME pair name"
^DD(18.04,.01,21,0)="^^1^1^3030410^^"
^DD(18.04,.01,21,1,0)="This field indicates the BOX-VOLUME pair for the entry."
^DD(18.04,.01,"DT")="3030410"
^DD(18.04,.02,0)="PORT^NJ5,0^^0;2^K:+X'=X!(X>65635)!(X<5000)!(X?.E1"".""1N.N) X"
^DD(18.04,.02,3)="Type a Number between 5000 and 65635, 0 Decimal Digits"
^DD(18.04,.02,21,0)="^^1^1^3030409^"
^DD(18.04,.02,21,1,0)="This field indicates the port number used by the VistALink Listener entry."
^DD(18.04,.02,"DT")="3030409"
^DD(18.04,.03,0)="STATUS^S^1:STARTING;2:RUNNING;3:STOPPING;4:STOPPED;5:FAILED;^0;3^Q"
^DD(18.04,.03,3)="Current status of the VistALink Listener"
^DD(18.04,.03,21,0)="^^1^1^3030410^^^"
^DD(18.04,.03,21,1,0)="This field indicates the current status of the VistALink Listener entry."
^DD(18.04,.03,"DT")="3031021"
^DD(18.04,.04,0)="USER RESPONSIBLE^P200'^VA(200,^0;4^Q"
^DD(18.04,.04,1,0)="^.1^^0"
^DD(18.04,.04,3)="User responsible for the current status of the VistALink Listener"
^DD(18.04,.04,21,0)="^^3^3^3030409^"
^DD(18.04,.04,21,1,0)="This field indicates the user responsible for the current status of"
^DD(18.04,.04,21,2,0)="the VistALink Listener entry. This information is only entered if"
^DD(18.04,.04,21,3,0)="available at the time of the status update."
^DD(18.04,.04,"DT")="3030410"
^DD(18.04,.05,0)="DATE/TIME OF LAST STATUS^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(18.04,.05,3)="Date/Time of the current status of the VistALink Listener"
^DD(18.04,.05,21,0)="^^2^2^3030410^^^"
^DD(18.04,.05,21,1,0)="This field indicates the date/time that the current status of the"
^DD(18.04,.05,21,2,0)="VistALink Listener entry occurred."
^DD(18.04,.05,"DT")="3030410"
^DD(18.04,.06,0)="ASSOCIATED CONFIGURATION^P18.03'^XOB(18.03,^0;6^Q"
^DD(18.04,.06,3)="Configuration associated with this log file entry"
^DD(18.04,.06,21,0)="^^2^2^3030416^"
^DD(18.04,.06,21,1,0)="This field indicates the VistALink Listener configuration (if one "
^DD(18.04,.06,21,2,0)="exists) that is associated with the Listener log file entry."
^DD(18.04,.06,"DT")="3030416"
^DD(18.04,"B","ASSOCIATED CONFIGURATION",.06)=""
^DD(18.04,"B","BOX-VOLUME PAIR",.01)=""
^DD(18.04,"B","DATE/TIME OF LAST STATUS",.05)=""
^DD(18.04,"B","PORT",.02)=""
^DD(18.04,"B","STATUS",.03)=""
^DD(18.04,"B","USER RESPONSIBLE",.04)=""
^DD(18.04,"GL",0,1,.01)=""
^DD(18.04,"GL",0,2,.02)=""
^DD(18.04,"GL",0,3,.03)=""
^DD(18.04,"GL",0,4,.04)=""
^DD(18.04,"GL",0,5,.05)=""
^DD(18.04,"GL",0,6,.06)=""
^DD(18.04,"IX",.01)=""
^DD(18.04,"RQ",.01)=""
^DD(18.05,0)="FIELD^^.07^7"
^DD(18.05,0,"DDA")="N"
^DD(18.05,0,"DT")="3030408"
^DD(18.05,0,"IX","AS",18.05,.06)=""
^DD(18.05,0,"IX","B",18.05,.01)=""
^DD(18.05,0,"IX","C",18.05,.02)=""
^DD(18.05,0,"IX","D",18.05,.07)=""
^DD(18.05,0,"NM","VISTALINK MESSAGE TYPE")=""
^DD(18.05,0,"VR")="1.5"
^DD(18.05,0,"VRPK")="XOBV"
^DD(18.05,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(18.05,.01,1,0)="^.1"
^DD(18.05,.01,1,1,0)="18.05^B"
^DD(18.05,.01,1,1,1)="S ^XOB(18.05,""B"",$E(X,1,30),DA)="""""
^DD(18.05,.01,1,1,2)="K ^XOB(18.05,""B"",$E(X,1,30),DA)"
^DD(18.05,.01,3)="Unique name must be 3-30 characters, not numeric or starting with punctuation"
^DD(18.05,.01,21,0)="^^5^5^3030411^"
^DD(18.05,.01,21,1,0)="This field contains a unique and keyed human readable name for the message"
^DD(18.05,.01,21,2,0)="type."
^DD(18.05,.01,21,3,0)=" "
^DD(18.05,.01,21,4,0)="It is also recommended that the name be prefixed with namespace"
^DD(18.05,.01,21,5,0)="characters."
^DD(18.05,.01,"DT")="3030411"
^DD(18.05,.02,0)="MESSAGE TYPE^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(18.05,.02,1,0)="^.1^^0"
^DD(18.05,.02,1,1,0)="18.05^C^MUMPS"
^DD(18.05,.02,1,1,1)="S ^XOB(18.05,""C"",$E(X,1,80),DA)="""""
^DD(18.05,.02,1,1,2)="K ^XOB(18.05,""C"",$E(X,1,80),DA)"
^DD(18.05,.02,1,1,"DT")="3030316"
^DD(18.05,.02,3)="Answer must be 3-80 characters in length"
^DD(18.05,.02,21,0)="^^6^6^3030410^"
^DD(18.05,.02,21,1,0)="This field contains the name of a unique XML message type, e.g."
^DD(18.05,.02,21,2,0)="gov.va.med.foundations.rpc.request."
^DD(18.05,.02,21,3,0)=" "
^DD(18.05,.02,21,4,0)="This field is a keyed field and is used by the VistALink request manager"
^DD(18.05,.02,21,5,0)="during SAX parsing to look up the correct request handler for an incoming"
^DD(18.05,.02,21,6,0)="request."
^DD(18.05,.02,"DT")="3030410"
^DD(18.05,.03,0)="CATEGORY^S^1:REQUEST;2:RESPONSE;9:OTHER;^0;3^Q"
^DD(18.05,.03,3)="Enter whether this is a request or response message type"
^DD(18.05,.03,21,0)="^^8^8^3030410^"
^DD(18.05,.03,21,1,0)="This field allows for the categorization of the message type."
^DD(18.05,.03,21,2,0)=" "
^DD(18.05,.03,21,3,0)="The field is not currently used in business logic and exists to allow for "
^DD(18.05,.03,21,4,0)="filtering and sorting during reporting."
^DD(18.05,.03,21,5,0)=" "
^DD(18.05,.03,21,6,0)="Currently, there are only two categories: request and response."
^DD(18.05,.03,21,7,0)=" "
^DD(18.05,.03,21,8,0)="'Other' is also available but is not used at this time."
^DD(18.05,.03,"DT")="3030410"
^DD(18.05,.04,0)="REQUIRE AUTHENTICATION?^S^0:NO;1:YES;^0;4^Q"
^DD(18.05,.04,3)="Indicate whether this message requires a VistALink security authenticated partition to be processed"
^DD(18.05,.04,21,0)="^^10^10^3030410^"
^DD(18.05,.04,21,1,0)="This field indicates whether or not a request of the message type "
^DD(18.05,.04,21,2,0)="requires the user to be authenticated by VistALink security before"
^DD(18.05,.04,21,3,0)="the request handler for the type can be executed."
^DD(18.05,.04,21,4,0)=" "
^DD(18.05,.04,21,5,0)="System and security message types do not need authentication since they "
^DD(18.05,.04,21,6,0)="involve processing at a higher level like heartbeat messages and "
^DD(18.05,.04,21,7,0)="messages establishing authentication."
^DD(18.05,.04,21,8,0)=" "
^DD(18.05,.04,21,9,0)="On the other hand, RPC-type messages would require authentication before "
^DD(18.05,.04,21,10,0)="the RPC request handler is executed."
^DD(18.05,.04,"DT")="3030410"
^DD(18.05,.05,0)="REQUEST HANDLER^F^^0;5^K:$L(X)>8!($L(X)<2) X"
^DD(18.05,.05,3)="Answer must be 2-8 characters in length and the name of a routine"
^DD(18.05,.05,21,0)="^^27^27^3030410^"
^DD(18.05,.05,21,1,0)="This field contains the name of the M routine that implements the request "
^DD(18.05,.05,21,2,0)="handler interface methods (tags)."
^DD(18.05,.05,21,3,0)=" "
^DD(18.05,.05,21,4,0)="Currently, those methods are the following:"
^DD(18.05,.05,21,5,0)=" "
^DD(18.05,.05,21,6,0)="  CALLBACK(CB)           :: Logic that sets the SAX callbacks for the"
^DD(18.05,.05,21,7,0)="                            message type in CB parameter. These callbacks"
^DD(18.05,.05,21,8,0)="                            are executed during the SAX XML parsing."
^DD(18.05,.05,21,9,0)=" "
^DD(18.05,.05,21,10,0)="                            This method is required."
^DD(18.05,.05,21,11,0)=" "
^DD(18.05,.05,21,12,0)="  READER(XOBUF,XOBDATA)  :: Stream reader logic called when the incoming"
^DD(18.05,.05,21,13,0)="                            request is in proprietary format."
^DD(18.05,.05,21,14,0)=" "
^DD(18.05,.05,21,15,0)="                            XOBUF   :: characters already read from stream"
^DD(18.05,.05,21,16,0)=" "
^DD(18.05,.05,21,17,0)="                            XOBDATA :: where to store parsed request "
^DD(18.05,.05,21,18,0)="                                       information or reference to such"
^DD(18.05,.05,21,19,0)="                                       information."
^DD(18.05,.05,21,20,0)=" "
^DD(18.05,.05,21,21,0)="                            This method is optional."
^DD(18.05,.05,21,22,0)=" "
^DD(18.05,.05,21,23,0)="  REQHDLR(XOBDATA)       :: Logic called to process request information"
^DD(18.05,.05,21,24,0)="                            stored in XOBDATA after XML parsing or"
^DD(18.05,.05,21,25,0)="                            proprietary parsing has completed."
^DD(18.05,.05,21,26,0)=" "
^DD(18.05,.05,21,27,0)="                            This method is required."
^DD(18.05,.05,"DT")="3030410"
^DD(18.05,.06,0)="CACHE REQUEST HANDLER INFO^S^0:NO;1:YES;^0;6^Q"
^DD(18.05,.06,1,0)="^.1"
^DD(18.05,.06,1,1,0)="18.05^AS"
^DD(18.05,.06,1,1,1)="S ^XOB(18.05,""AS"",$E(X,1,30),DA)="""""
^DD(18.05,.06,1,1,2)="K ^XOB(18.05,""AS"",$E(X,1,30),DA)"
^DD(18.05,.06,1,1,"DT")="3030325"
^DD(18.05,.06,3)="Answer YES or NO to cache request handler information upon socket connection"
^DD(18.05,.06,21,0)="^^7^7^3030408^"
^DD(18.05,.06,21,1,0)="This field indicates whether runtime information for the message type "
^DD(18.05,.06,21,2,0)="should be cached as part of the initial connection logic of the request "
^DD(18.05,.06,21,3,0)="manager."
^DD(18.05,.06,21,4,0)=" "
^DD(18.05,.06,21,5,0)="Caching -- storing in a local array -- only the information needed for "
^DD(18.05,.06,21,6,0)="request handling can benefit performance for those message types that are "
^DD(18.05,.06,21,7,0)="executed often, like RPC requests."
^DD(18.05,.06,"DT")="3030410"
^DD(18.05,.07,0)="PROPRIETARY INDICATOR^FX^^0;7^K:$L(X)>20!($L(X)<3) X IF $DATA(^XOB(18.05,""D"",X)) DO EN^DDIOL(""Value is not unique"") KILL X"
^DD(18.05,.07,1,0)="^.1"
^DD(18.05,.07,1,1,0)="18.05^D"
^DD(18.05,.07,1,1,1)="S ^XOB(18.05,""D"",$E(X,1,30),DA)="""""
^DD(18.05,.07,1,1,2)="K ^XOB(18.05,""D"",$E(X,1,30),DA)"
^DD(18.05,.07,1,1,"DT")="3030322"
^DD(18.05,.07,3)="Answer must be 3-20 characters in length and unique"
^DD(18.05,.07,21,0)="^^7^7^3030414^"
^DD(18.05,.07,21,1,0)="This unique valued field is used during the processing of the first"
^DD(18.05,.07,21,2,0)="read of a new request stream. If this proprietary indicator is present"
^DD(18.05,.07,21,3,0)="then the READER method of the request handler routine is called."
^DD(18.05,.07,21,4,0)=" "
^DD(18.05,.07,21,5,0)="No SAX XML parsing is performed if this READER method is executed."
^DD(18.05,.07,21,6,0)=" "
^DD(18.05,.07,21,7,0)="See also: REQUEST HANDLER field."
^DD(18.05,.07,"DT")="3030410"
^DD(18.05,"B","CACHE REQUEST HANDLER INFO",.06)=""
^DD(18.05,"B","CATEGORY",.03)=""
^DD(18.05,"B","MESSAGE TYPE",.02)=""
^DD(18.05,"B","NAME",.01)=""
^DD(18.05,"B","PROPRIETARY INDICATOR",.07)=""
^DD(18.05,"B","REQUEST HANDLER",.05)=""
^DD(18.05,"B","REQUIRE AUTHENTICATION?",.04)=""
^DD(18.05,"GL",0,1,.01)=""
^DD(18.05,"GL",0,2,.02)=""
^DD(18.05,"GL",0,3,.03)=""
^DD(18.05,"GL",0,4,.04)=""
^DD(18.05,"GL",0,5,.05)=""
^DD(18.05,"GL",0,6,.06)=""
^DD(18.05,"GL",0,7,.07)=""
^DD(18.05,"IX",.01)=""
^DD(18.05,"IX",.02)=""
^DD(18.05,"IX",.06)=""
^DD(18.05,"IX",.07)=""
^DD(18.05,"RQ",.01)=""
^DD(19,0)="FIELD^^1916^107"
^DD(19,0,"DDA")="N"
^DD(19,0,"DT")="2950215"
^DD(19,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(19,0,"IX","AC",19,3.7)=""
^DD(19,0,"IX","AD",19.01,.01)=""
^DD(19,0,"IX","AE",19,1)=""
^DD(19,0,"IX","AF",19,14)=""
^DD(19,0,"IX","AG",19,.15)=""
^DD(19,0,"IX","AOA",19,1)=""
^DD(19,0,"IX","AOB",19,2)=""
^DD(19,0,"IX","AOC",19,3)=""
^DD(19,0,"IX","AOD",19,3.9)=""
^DD(19,0,"IX","AOE",19.01,.01)=""
^DD(19,0,"IX","AOF",19.01,2)=""
^DD(19,0,"IX","AOG",19,3.7)=""
^DD(19,0,"IX","AOH",19,4)=""
^DD(19,0,"IX","AOI",19,3.8)=""
^DD(19,0,"IX","AOJ",19,3.95)=""
^DD(19,0,"IX","AOR",19,4)=""
^DD(19,0,"IX","AORK",19,1)=""
^DD(19,0,"IX","AREDO",19,3.01)=""
^DD(19,0,"IX","ASTARTUP",19,1916)=""
^DD(19,0,"IX","ASTARTUP",19.2,9)=""
^DD(19,0,"IX","AZT",19,200)=""
^DD(19,0,"IX","AZT",19.2,2)=""
^DD(19,0,"IX","AZTIO",19,201)=""
^DD(19,0,"IX","AZTIO",19.2,3)=""
^DD(19,0,"IX","AZTVOL",19,203)=""
^DD(19,0,"IX","AZTVOL",19.2,5)=""
^DD(19,0,"IX","B",19,.01)=""
^DD(19,0,"IX","C",19,1.1)=""
^DD(19,0,"NM","OPTION")=""
^DD(19,0,"PT",1.1,4.1)=""
^DD(19,0,"PT",1.1,4.2)=""
^DD(19,0,"PT",3.5,201)=""
^DD(19,0,"PT",9.495,.02)=""
^DD(19,0,"PT",19.01,.01)=""
^DD(19,0,"PT",19.081,.01)=""
^DD(19,0,"PT",19.2,.01)=""
^DD(19,0,"PT",39.4,.05)=""
^DD(19,0,"PT",100,2)=""
^DD(19,0,"PT",100,7)=""
^DD(19,0,"PT",100.1,.01)=""
^DD(19,0,"PT",100.9,1)=""
^DD(19,0,"PT",100.99,4)=""
^DD(19,0,"PT",101,6)=""
^DD(19,0,"PT",123.5,123.011)=""
^DD(19,0,"PT",200,201)=""
^DD(19,0,"PT",200,201.1)=""
^DD(19,0,"PT",200,202.1)=""
^DD(19,0,"PT",200.03,.01)=""
^DD(19,0,"PT",200.19,.01)=""
^DD(19,0,"PT",301.62,.07)=""
^DD(19,0,"PT",8989.333,.01)=""
^DD(19,0,"PT",8989.36,.01)=""
^DD(19,0,"PT",8994.5,.02)=""
^DD(19,0,"PT",791810.5,.03)=""
^DD(19,0,"PT",9000010,.24)=""
^DD(19,0,"VR")="8.0"
^DD(19,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(19,.01,0)="NAME^RFX^^0;1^D CHKNAME^XQ5 K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(19,.01,.1)="A unique name, which is preceded by the package abbreviation"
^DD(19,.01,1,0)="^.1"
^DD(19,.01,1,1,0)="19^B"
^DD(19,.01,1,1,1)="S ^DIC(19,""B"",$E(X,1,30),DA)="""""
^DD(19,.01,1,1,2)="K ^DIC(19,""B"",$E(X,1,30),DA)"
^DD(19,.01,1,2,0)="^^TRIGGER^19^3.6"
^DD(19,.01,1,2,1)="X ^DD(19,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(19,.01,1,2,1.4)"
^DD(19,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1))="""""
^DD(19,.01,1,2,1.4)="S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=19,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,.01,1,2,2)="Q"
^DD(19,.01,1,2,3)="This trigger is used to record the user who created this option."
^DD(19,.01,1,2,"%D",0)="^^2^2^2920512^"
^DD(19,.01,1,2,"%D",1,0)="This trigger is used to record the user who created this option at the"
^DD(19,.01,1,2,"%D",2,0)="time that the name was created."
^DD(19,.01,1,2,"CREATE CONDITION")="CREATOR="""""
^DD(19,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(19,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(19,.01,1,2,"DT")="2890908"
^DD(19,.01,1,2,"FIELD")="CREATOR"
^DD(19,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(19,.01,21,0)="^^4^4^2910226^^^^"
^DD(19,.01,21,1,0)="The formal name of an option, prefaced with the package name."
^DD(19,.01,21,2,0)=" "
^DD(19,.01,21,3,0)="Each option must be preceded by its package prefix (a 2-4 character)"
^DD(19,.01,21,4,0)="code specified in the PACKAGE file, or the letter ""Z"" or ""A""."
^DD(19,.01,22)=""
^DD(19,.01,"AUDIT")=""
^DD(19,.01,"DT")="2910226"
^DD(19,.15,0)="X ACTION PRESENT^S^1:YES;^0;15^Q"
^DD(19,.15,1,0)="^.1"
^DD(19,.15,1,1,0)="19^AG^MUMPS"
^DD(19,.15,1,1,1)="D REDO^XQ7"
^DD(19,.15,1,1,2)="D REDO^XQ7"
^DD(19,.15,1,1,"%D",0)="^^3^3^2920519"
^DD(19,.15,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,.15,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,.15,1,1,"%D",3,0)="correctly updated."
^DD(19,.15,1,1,"DT")="2910213"
^DD(19,.15,3)="This flag indicates if there is an exit action for this option"
^DD(19,.15,5,1,0)="19^15^1"
^DD(19,.15,9)="^"
^DD(19,.15,21,0)="^^2^2^2910701^"
^DD(19,.15,21,1,0)=" "
^DD(19,.15,21,2,0)="This field will be set to '1' if the option has an entry action."
^DD(19,.15,"DT")="2910213"
^DD(19,.16,0)="REV KEY PRESENT^S^1:YES;^0;16^Q"
^DD(19,.16,3)="This flag indicates whether a reverse or negative lock has been defined for this option"
^DD(19,.16,5,1,0)="19^3.01^1"
^DD(19,.16,9)="^"
^DD(19,.16,21,0)="^^2^2^2910701^"
^DD(19,.16,21,1,0)=" "
^DD(19,.16,21,2,0)="This field will be set to '1' if this option has a reverse key assigned to it."
^DD(19,.16,"DT")="2900125"
^DD(19,.26,0)="HEADER PRESENT?^S^1:YES;^0;17^Q"
^DD(19,.26,5,1,0)="19^26^1"
^DD(19,.26,9)="^"
^DD(19,.26,21,0)="^^2^2^2901203^^"
^DD(19,.26,21,1,0)="This field is set to 1 by a trigger on field #26 when MUMPS code is"
^DD(19,.26,21,2,0)="entered into it."
^DD(19,.26,"DT")="2901203"
^DD(19,1,0)="MENU TEXT^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(19,1,.1)="The option's text, as it appears on the menu"
^DD(19,1,1,0)="^.1"
^DD(19,1,1,1,0)="19^AE^MUMPS"
^DD(19,1,1,1,1)="Q  ;The C X-ref has been moved to field 1.1"
^DD(19,1,1,1,2)="Q"
^DD(19,1,1,1,3)="This is a null cross-reference used to overwrite the previous x-ref which set the uppercase text."
^DD(19,1,1,1,"%D",0)="^^2^2^2920512^"
^DD(19,1,1,1,"%D",1,0)=" "
^DD(19,1,1,1,"%D",2,0)="This is a null cross-reference used to over-write the previous x-ref."
^DD(19,1,1,2,0)="19^AORK^MUMPS"
^DD(19,1,1,2,1)="I $P(^DIC(19,DA,0),U,4)=""O""!($P(^(0),U,4)=""Q"") S ^DIC(19,""AOR"",X,DA)="""""
^DD(19,1,1,2,2)="K ^DIC(19,""AOR"",X,DA)"
^DD(19,1,1,2,"%D",0)="^^2^2^2920519"
^DD(19,1,1,2,"%D",1,0)="This sets the ""AORK"" cross-reference on the file if the option type is either "
^DD(19,1,1,2,"%D",2,0)="a protocol or a protocol menu."
^DD(19,1,1,3,0)="19^AOA^MUMPS"
^DD(19,1,1,3,1)="D REDO^XQ7"
^DD(19,1,1,3,2)="D REDO^XQ7"
^DD(19,1,1,3,"%D",0)="^^3^3^2920519"
^DD(19,1,1,3,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,1,1,3,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,1,1,3,"%D",3,0)="correctly updated."
^DD(19,1,1,4,0)="^^TRIGGER^19^1.1"
^DD(19,1,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0,DIU=$P($G(^DIC(19,D0,""U"")),U) K Y X ^DD(19,1,1,4,1.1) X ^DD(19,1,1,4,1.4)"
^DD(19,1,1,4,1.1)="S X=$E(DIV,1,30),X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),Y(1)=X"
^DD(19,1,1,4,1.4)="S DIH=$S($D(^DIC(19,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,1)=DIV,DIH=19,DIG=1.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,1,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(19,1,1,4,2.4)"
^DD(19,1,1,4,2.4)="S DIH=$S($D(^DIC(19,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,1)=DIV,DIH=19,DIG=1.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,1,1,4,3)="This X-ref Triggers the UPPERCASE MENU TEXT field."
^DD(19,1,1,4,"%D",0)="^^3^3^2940721^"
^DD(19,1,1,4,"%D",1,0)="This X-ref triggers the UPPERCASE MENU TEXT field that builds the"
^DD(19,1,1,4,"%D",2,0)="C cross-reference. It is also used by the menu system to build the"
^DD(19,1,1,4,"%D",3,0)="compiled menus."
^DD(19,1,1,4,"CREATE VALUE")="$E(UPPERCASE(MENU TEXT),1,30)"
^DD(19,1,1,4,"DELETE VALUE")="@"
^DD(19,1,1,4,"DT")="2940721"
^DD(19,1,1,4,"FIELD")="UPPERCASE"
^DD(19,1,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(19,1,21,0)="^^3^3^2880701^^"
^DD(19,1,21,1,0)="The name as the option as it will be displayed to the user within"
^DD(19,1,21,2,0)="the menu system."
^DD(19,1,21,3,0)="** The 'C' X-ref has been moved to the uppercase field. **"
^DD(19,1,"DT")="2940721"
^DD(19,1.1,0)="UPPERCASE MENU TEXT^F^^U;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(19,1.1,1,0)="^.1"
^DD(19,1.1,1,1,0)="19^C"
^DD(19,1.1,1,1,1)="S ^DIC(19,""C"",$E(X,1,30),DA)="""""
^DD(19,1.1,1,1,2)="K ^DIC(19,""C"",$E(X,1,30),DA)"
^DD(19,1.1,1,1,3)="Used by the Menu system"
^DD(19,1.1,1,1,"%D",0)="^^1^1^2940721^"
^DD(19,1.1,1,1,"%D",1,0)="This field builds the UPPERCASE menu text C X-ref."
^DD(19,1.1,1,1,"DT")="2940721"
^DD(19,1.1,3)="Answer must be 3-30 characters in length."
^DD(19,1.1,5,1,0)="19^1^4"
^DD(19,1.1,9)="^"
^DD(19,1.1,"DT")="2940721"
^DD(19,2,0)="OUT OF ORDER MESSAGE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<0) X"
^DD(19,2,.1)="If there is a message here, the option is out of order"
^DD(19,2,1,0)="^.1"
^DD(19,2,1,1,0)="19^AOB^MUMPS"
^DD(19,2,1,1,1)="D REDO^XQ7"
^DD(19,2,1,1,2)="D REDO^XQ7"
^DD(19,2,1,1,"%D",0)="^^3^3^2920519"
^DD(19,2,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,2,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,2,1,1,"%D",3,0)="correctly updated."
^DD(19,2,3)="Answer must be 0-50 characters in length."
^DD(19,2,21,0)="^^3^3^2901203^^^^"
^DD(19,2,21,1,0)="This field is used to temporarily disable an option. If it is"
^DD(19,2,21,2,0)="filled in, the message here will be displayed whenever the user attempts"
^DD(19,2,21,3,0)="to select the option."
^DD(19,2,"DT")="2901203"
^DD(19,3,0)="LOCK^FX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) Q:$D(^DIC(19.1,""B"",X))  W !,*7,""Key name must match exactly with a key in SECURITY KEY file."" K X"
^DD(19,3,.1)="The name of the key required of the user to access this option"
^DD(19,3,1,0)="^.1^^-1"
^DD(19,3,1,1,0)="19^AOC^MUMPS"
^DD(19,3,1,1,1)="D REDO^XQ7"
^DD(19,3,1,1,2)="D REDO^XQ7"
^DD(19,3,1,1,"%D",0)="^^3^3^2920519"
^DD(19,3,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,3,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,3,1,1,"%D",3,0)="correctly updated."
^DD(19,3,3)="Enter the exact name of the key required to access this option."
^DD(19,3,4)="S X=""??"",DIC=19.1,DIC(0)=""E"" I $D(^DIC(19.1,0)),$P(^(0),U,3) W ""CURRENT LOCKS:"" D ^DIC W !"
^DD(19,3,21,0)="^^3^3^2860225^^^"
^DD(19,3,21,1,0)="This field is used to deny access to users which have this option"
^DD(19,3,21,2,0)="as part of their menu. If an option has a lock, then only users"
^DD(19,3,21,3,0)="which hold the matching key can access it."
^DD(19,3,"DT")="2850912"
^DD(19,3.01,0)="REVERSE/NEGATIVE LOCK^FX^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>27!($L(X)<3) X I $D(X) Q:$D(^DIC(19.1,""B"",X))  W !!,""Must match exactly an entry in the KEY file."",! K X"
^DD(19,3.01,1,0)="^.1"
^DD(19,3.01,1,1,0)="^^TRIGGER^19^.16"
^DD(19,3.01,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(19,3.01,1,1,1.4)"
^DD(19,3.01,1,1,1.4)="S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=19,DIG=.16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,3.01,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=19,DIG=.16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,3.01,1,1,"%D",0)="^^2^2^2920519"
^DD(19,3.01,1,1,"%D",1,0)="Trigger to set a value of 1 into field .16 if a reverse key is present on this "
^DD(19,3.01,1,1,"%D",2,0)="option. "
^DD(19,3.01,1,1,"CREATE VALUE")="""1"""
^DD(19,3.01,1,1,"DELETE VALUE")="@"
^DD(19,3.01,1,1,"FIELD")="REV KEY PRESENT"
^DD(19,3.01,1,2,0)="19^AREDO^MUMPS"
^DD(19,3.01,1,2,1)="D REDO^XQ7"
^DD(19,3.01,1,2,2)="D REDO^XQ7"
^DD(19,3.01,1,2,"%D",0)="^^3^3^2920519"
^DD(19,3.01,1,2,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,3.01,1,2,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,3.01,1,2,"%D",3,0)="correctly updated."
^DD(19,3.01,1,2,"DT")="2910807"
^DD(19,3.01,3)="Answer must match EXACTLY a name which has been entered in the KEY file."
^DD(19,3.01,4)="S X=""??"",DIC(0)=""E"",DIC=19.1 I $D(^DIC(19.1,0)),$P(^(0),U,3) D ^DIC W !"
^DD(19,3.01,21,0)="^^3^3^2910701^"
^DD(19,3.01,21,1,0)=" "
^DD(19,3.01,21,2,0)="This field may contain a pointer to the Key File.  If it does, the user may"
^DD(19,3.01,21,3,0)="not access this option if he or she holds that key."
^DD(19,3.01,"DT")="2910807"
^DD(19,3.5,0)="DESCRIPTION^19.06^^1;0"
^DD(19,3.5,21,0)="^^3^3^2851014^^^"
^DD(19,3.5,21,1,0)="This field contains a brief explanation of the particular option."
^DD(19,3.5,21,2,0)="It will be displayed in the menu system to the user when '???'"
^DD(19,3.5,21,3,0)="are entered to the selection choice of the parent menu."
^DD(19,3.6,0)="CREATOR^P200'^VA(200,^0;5^Q"
^DD(19,3.6,.1)="The user who created this option"
^DD(19,3.6,1,0)="^.1^^0"
^DD(19,3.6,3)=""
^DD(19,3.6,5,1,0)="19^.01^2"
^DD(19,3.6,21,0)="^^2^2^2851003^"
^DD(19,3.6,21,1,0)="This field defaults to the DUZ of the user who originally"
^DD(19,3.6,21,2,0)="set up this option."
^DD(19,3.6,"DT")="2921028"
^DD(19,3.7,0)="HELP FRAME^P9.2^DIC(9.2,^0;7^Q"
^DD(19,3.7,1,0)="^.1"
^DD(19,3.7,1,1,0)="19^AC"
^DD(19,3.7,1,1,1)="S ^DIC(19,""AC"",$E(X,1,30),DA)="""""
^DD(19,3.7,1,1,2)="K ^DIC(19,""AC"",$E(X,1,30),DA)"
^DD(19,3.7,1,1,"%D",0)="^^2^2^2920519"
^DD(19,3.7,1,1,"%D",1,0)="This regular cross-reference provides a look-up by Help Frame internal entry "
^DD(19,3.7,1,1,"%D",2,0)="number for those options referencing the desired help frame."
^DD(19,3.7,1,2,0)="19^AOG^MUMPS"
^DD(19,3.7,1,2,1)="D REDO^XQ7"
^DD(19,3.7,1,2,2)="D REDO^XQ7"
^DD(19,3.7,1,2,"%D",0)="^^3^3^2920519"
^DD(19,3.7,1,2,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,3.7,1,2,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,3.7,1,2,"%D",3,0)="correctly updated."
^DD(19,3.7,3)="Enter the name of a help frame to be displayed when the user types ?<optionname>"
^DD(19,3.7,21,0)="^^2^2^2851003^"
^DD(19,3.7,21,1,0)="This field contains a pointer to the help text which describes"
^DD(19,3.7,21,2,0)="this option.  The help text is displayed to the user on entering '?OPTION'."
^DD(19,3.7,"DT")="2850924"
^DD(19,3.8,0)="PRIORITY^NJ2,0^^0;8^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(19,3.8,1,0)="^.1"
^DD(19,3.8,1,1,0)="19^AOI^MUMPS"
^DD(19,3.8,1,1,1)="D REDO^XQ7"
^DD(19,3.8,1,1,2)="D REDO^XQ7"
^DD(19,3.8,1,1,"%D",0)="^^3^3^2920519"
^DD(19,3.8,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,3.8,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,3.8,1,1,"%D",3,0)="correctly updated."
^DD(19,3.8,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 10"
^DD(19,3.8,21,0)="^^4^4^2851003^^^"
^DD(19,3.8,21,1,0)="If this field is null, the option will run at the current priority,"
^DD(19,3.8,21,2,0)="otherwise, priorities range from 1-10, a low number indicating lower"
^DD(19,3.8,21,3,0)="priority. The priority is in effect while the current option"
^DD(19,3.8,21,4,0)="is being executed."
^DD(19,3.8,"DT")="2860127"
^DD(19,3.9,0)="PROHIBITED TIMES^F^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?4N1""-""4N) X"
^DD(19,3.9,1,0)="^.1"
^DD(19,3.9,1,1,0)="19^AOD^MUMPS"
^DD(19,3.9,1,1,1)="D REDO^XQ7"
^DD(19,3.9,1,1,2)="D REDO^XQ7"
^DD(19,3.9,1,1,"%D",0)="^^3^3^2920519"
^DD(19,3.9,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,3.9,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,3.9,1,1,"%D",3,0)="correctly updated."
^DD(19,3.9,3)="ANSWER MUST BE 9 CHARACTERS IN LENGTH"
^DD(19,3.9,21,0)="^^3^3^2910626^^^^"
^DD(19,3.9,21,1,0)="This specifies a time range during which this option cannot be accessed."
^DD(19,3.9,21,2,0)="The time should be entered in military format. For example, to"
^DD(19,3.9,21,3,0)="prohibit an option from running between 9 AM and 2 PM, enter 0900-1400."
^DD(19,3.9,"DT")="2851013"
^DD(19,3.91,0)="TIMES/DAYS PROHIBITED^19.391^^3.91;0"
^DD(19,3.91,21,0)="^^4^4^2910701^"
^DD(19,3.91,21,1,0)=" "
^DD(19,3.91,21,2,0)="This subfile may contain dasy and time during which this option may not be"
^DD(19,3.91,21,3,0)="envoked.  This subfile replaces field 3.9, Prohibited Times, in the 0th node"
^DD(19,3.91,21,4,0)="of the Option File."
^DD(19,3.92,0)="QUEUING REQUIRED^19.392A^^3.92;0"
^DD(19,3.92,21,0)="^^5^5^2930402^"
^DD(19,3.92,21,1,0)="By entering days and times in the subfile the option's output"
^DD(19,3.92,21,2,0)="can be restricted to days and times not included in this file."
^DD(19,3.92,21,3,0)="The Menu System passes a flag to the Device Handler causing it"
^DD(19,3.92,21,4,0)="to force queuing during the days and times included in this"
^DD(19,3.92,21,5,0)="file."
^DD(19,3.92,"DT")="2920423"
^DD(19,3.93,0)="OUTPUT RESTRICTED?^S^1:YES;^0;18^Q"
^DD(19,3.93,5,1,0)="19.392^.01^2"
^DD(19,3.93,9)="^"
^DD(19,3.93,21,0)="^^3^3^2910701^"
^DD(19,3.93,21,1,0)=" "
^DD(19,3.93,21,2,0)="This field will contain a '1' if output from this option is restricted to"
^DD(19,3.93,21,3,0)="certain days and times."
^DD(19,3.93,"DT")="2901203"
^DD(19,3.95,0)="RESTRICT DEVICES?^S^y:YES;n:NO;^0;10^Q"
^DD(19,3.95,1,0)="^.1"
^DD(19,3.95,1,1,0)="19^AOJ^MUMPS"
^DD(19,3.95,1,1,1)="D REDO^XQ7"
^DD(19,3.95,1,1,2)="D REDO^XQ7"
^DD(19,3.95,1,1,"%D",0)="^^3^3^2920519"
^DD(19,3.95,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,3.95,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,3.95,1,1,"%D",3,0)="correctly updated."
^DD(19,3.95,3)=""
^DD(19,3.95,21,0)="^^3^3^2890201^^^"
^DD(19,3.95,21,1,0)="This indicates whether the option is allowed to run on selected devices"
^DD(19,3.95,21,2,0)="only.  If this field contains a 'y', the option will be enabled only"
^DD(19,3.95,21,3,0)="for the devices entered in the field 'PERMITTED DEVICE.'"
^DD(19,3.95,"DT")="2861205"
^DD(19,3.96,0)="PERMITTED DEVICE^19.396P^^3.96;0"
^DD(19,3.96,21,0)="^^3^3^2910701^"
^DD(19,3.96,21,1,0)=" "
^DD(19,3.96,21,2,0)="This subfile may contain a list of devices upon which this option is permitted"
^DD(19,3.96,21,3,0)="to run."
^DD(19,4,0)="TYPE^RS^A:action;E:edit;I:inquire;M:menu;P:print;R:run routine;O:protocol;Q:protocol menu;X:extended action;S:server;L:limited;C:ScreenMan;W:Window;Z:Window Suite;B:Broker (Client/Server);^0;4^Q"
^DD(19,4,.1)="THE TYPE OF OPTION"
^DD(19,4,1,0)="^.1"
^DD(19,4,1,1,0)="19^AOR^MUMPS"
^DD(19,4,1,1,1)="I X=""O""!(X=""Q"") S ^DIC(19,""AOR"",$P(^DIC(19,DA,0),U,2),DA)="""""
^DD(19,4,1,1,2)="K ^DIC(19,""AOR"",$P(^DIC(19,DA,0),U,2),DA)"
^DD(19,4,1,1,"%D",0)="^^2^2^2920519"
^DD(19,4,1,1,"%D",1,0)="This sets the ""AOR"" cross-reference on the file if the option type is either "
^DD(19,4,1,1,"%D",2,0)="a protocol or a protocol menu."
^DD(19,4,1,2,0)="19^AOH^MUMPS"
^DD(19,4,1,2,1)="D REDO^XQ7"
^DD(19,4,1,2,2)="D REDO^XQ7"
^DD(19,4,1,2,"%D",0)="^^3^3^2920519"
^DD(19,4,1,2,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,4,1,2,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,4,1,2,"%D",3,0)="correctly updated."
^DD(19,4,21,0)="^^7^7^2951212^"
^DD(19,4,21,1,0)="    This field indicates the 'category' or type of option. A print-type"
^DD(19,4,21,2,0)="option, for instance, will call FileMan to print something. Menu-type"
^DD(19,4,21,3,0)="options point to other options in the tree-structured menu system. The"
^DD(19,4,21,4,0)="other fields in the options file are filled in depending on the type."
^DD(19,4,21,5,0)="There are several fields that will tell a print-type option what to print"
^DD(19,4,21,6,0)="and how to print it, for example.  These same fields may be meaningless to"
^DD(19,4,21,7,0)="another options type."
^DD(19,4,22)="TYPE"
^DD(19,4,"DT")="2951212"
^DD(19,10,0)="MENU^19.01IP^^10;0"
^DD(19,10,21,0)="^^1^1^2931230^^^^"
^DD(19,10,21,1,0)="This field points to the descendent options of this menu."
^DD(19,10.1,0)="Short Menu Text^F^^10.1;1^K:$L(X)>30!($L(X)<3) X"
^DD(19,10.1,3)="Enter a short (less than 30 characters) of the Menu Text field."
^DD(19,10.1,21,0)="^^3^3^2921022^"
^DD(19,10.1,21,1,0)=" "
^DD(19,10.1,21,2,0)="This field contains a short version of the Menu Text field (field # 1) for"
^DD(19,10.1,21,3,0)="use with multi-column displays.  It is a mandatory field."
^DD(19,10.1,"DT")="2921022"
^DD(19,11,0)="DISPLAY OPTION?^S^y:YES;n:NO;^0;11^Q"
^DD(19,11,21,0)="^^6^6^2910227^"
^DD(19,11,21,1,0)="This field controls the action of the Menu system if the user has"
^DD(19,11,21,2,0)="automenu turned on.  If this field is set then the menu system will stop"
^DD(19,11,21,3,0)="and"
^DD(19,11,21,4,0)="ask"
^DD(19,11,21,5,0)="'Press"
^DD(19,11,21,6,0)="return to continue'. before showing the menu again."
^DD(19,11,"DT")="2871013"
^DD(19,12,0)="PACKAGE^P9.4'^DIC(9.4,^0;12^Q"
^DD(19,12,21,0)="^^1^1^2890125^"
^DD(19,12,21,1,0)="This field indicates the package with which this option is associated."
^DD(19,12,"DT")="2871204"
^DD(19,13,0)="DELEGABLE^S^n:NO;y:YES;^0;13^Q"
^DD(19,13,21,0)="^^2^2^2920702^"
^DD(19,13,21,1,0)="If this field is marked 'no' in the option file then the XQSMD"
^DD(19,13,21,2,0)="software will not delegate this option to a user."
^DD(19,13,"DT")="2880125"
^DD(19,14,0)="E ACTION PRESENT^S^1:YES;^0;14^Q"
^DD(19,14,1,0)="^.1"
^DD(19,14,1,1,0)="19^AF^MUMPS"
^DD(19,14,1,1,1)="D REDO^XQ7"
^DD(19,14,1,1,2)="D REDO^XQ7"
^DD(19,14,1,1,"%D",0)="^^3^3^2920519"
^DD(19,14,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19,14,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19,14,1,1,"%D",3,0)="correctly updated."
^DD(19,14,1,1,"DT")="2910213"
^DD(19,14,3)="THIS FLAG INDICATES IF AN ENTRY ACTION IS PRESENT FOR THIS OPTION"
^DD(19,14,5,1,0)="19^20^1"
^DD(19,14,9)="^"
^DD(19,14,21,0)="^^2^2^2910701^"
^DD(19,14,21,1,0)=" "
^DD(19,14,21,2,0)="This field will contain a '1' if the option has an entry action in field #20."
^DD(19,14,"DT")="2910213"
^DD(19,15,0)="EXIT ACTION^K^^15;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,15,.1)=""
^DD(19,15,1,0)="^.1"
^DD(19,15,1,1,0)="^^TRIGGER^19^.15"
^DD(19,15,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(19,15,1,1,1.4)"
^DD(19,15,1,1,1.4)="S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,15)=DIV,DIH=19,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,15,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,15)=DIV,DIH=19,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,15,1,1,"%D",0)="^^3^3^2920519"
^DD(19,15,1,1,"%D",1,0)="This trigger sets the value 1 into field .15 when a value is entered on the "
^DD(19,15,1,1,"%D",2,0)="current field.  This permits identification of the presence of an exit action "
^DD(19,15,1,1,"%D",3,0)="without having to determine whether a node 15 exists or not."
^DD(19,15,1,1,"CREATE VALUE")="""1"""
^DD(19,15,1,1,"DELETE VALUE")="@"
^DD(19,15,1,1,"FIELD")="X AC"
^DD(19,15,3)="ENTER STANDARD MUMPS CODE"
^DD(19,15,9)="@"
^DD(19,15,21,0)="^^2^2^2910109^^^^"
^DD(19,15,21,1,0)="This field contains mumps code which will be executed on"
^DD(19,15,21,2,0)="leaving this option.  It is applicable to all option types."
^DD(19,15,"DT")="2910109"
^DD(19,20,0)="ENTRY ACTION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,20,.1)=""
^DD(19,20,1,0)="^.1"
^DD(19,20,1,1,0)="^^TRIGGER^19^14"
^DD(19,20,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(19,20,1,1,1.4)"
^DD(19,20,1,1,1.4)="S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=19,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,20,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=19,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,20,1,1,"%D",0)="^^3^3^2920519"
^DD(19,20,1,1,"%D",1,0)="This trigger sets the value 1 into field 14 when a value is entered on the "
^DD(19,20,1,1,"%D",2,0)="current field.  This permits identification of the presence of an entry action "
^DD(19,20,1,1,"%D",3,0)="without having to determine whether a node 20 exists or not."
^DD(19,20,1,1,"CREATE VALUE")="""1"""
^DD(19,20,1,1,"DELETE VALUE")="@"
^DD(19,20,1,1,"FIELD")="E ACT"
^DD(19,20,3)="ENTER STANDARD MUMPS CODE"
^DD(19,20,9)="@"
^DD(19,20,21,0)="^^5^5^2910109^^"
^DD(19,20,21,1,0)="MUMPS code that is executed upon entry to this option for all option "
^DD(19,20,21,2,0)="types.  When an option is first envoked this code is executed,"
^DD(19,20,21,3,0)="but if you drop back into the option from a higher-level option "
^DD(19,20,21,4,0)="(with a simple [RETURN]), for instance, it is NOT executed.  See Header"
^DD(19,20,21,5,0)="field (field # 26)."
^DD(19,20,"DT")="2910109"
^DD(19,21,0)="XQUIT MESSAGE^19.021^^21;0"
^DD(19,22,0)="XQUIT EXECUTABLE^K^^22;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,22,3)="M code executed when XQUIT is encountered"
^DD(19,22,9)="@"
^DD(19,22,21,0)="^^10^10^2971014^"
^DD(19,22,21,1,0)="     This field contains code which is executed by the menu system when an"
^DD(19,22,21,2,0)="XQUIT variable is detected after the execution of this option's ENTRY"
^DD(19,22,21,3,0)="ACTION.  If the execution of this field produces the variable XQNOBACK the"
^DD(19,22,21,4,0)="Menu System will not attempt to return the user to their previous option,"
^DD(19,22,21,5,0)="but leave the user at the present stack location.  In the case of jumps,"
^DD(19,22,21,6,0)="the user may be returned to an option that is quite far away if XQNOBACK"
^DD(19,22,21,7,0)="is not defined.  Obviously, the problem that resulted in an XQUIT should"
^DD(19,22,21,8,0)="first be solved before XQNOBACK is set."
^DD(19,22,21,9,0)="     If there is no code in this field the default is to return the user"
^DD(19,22,21,10,0)="to their previous option."
^DD(19,22,"DT")="2971014"
^DD(19,24,0)="WINDOW^P8995'^XTV(8995,^24;1^Q"
^DD(19,24,3)="Enter the name of a window in the Window Object File."
^DD(19,24,"DT")="2940602"
^DD(19,25,0)="ROUTINE^FX^^25;E1,245^K:$L(X)>25!(X'?.1ANP.7AN.1""^""1ANP.7AN.1""["".E) X I $D(X),X[""["",'$D(^XUSEC(""XUMGR"",DUZ)) K X"
^DD(19,25,3)="Answer must be [TAG^]ROUTINE to run"
^DD(19,25,21,0)="^^1^1^2890125^"
^DD(19,25,21,1,0)="Indicate the name of the routine, e.g. ROUTINE, or TAG^ROUTINE."
^DD(19,25,"DT")="2871215"
^DD(19,26,0)="HEADER^K^^26;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,26,1,0)="^.1"
^DD(19,26,1,1,0)="^^TRIGGER^19^.26"
^DD(19,26,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(19,26,1,1,1.4)"
^DD(19,26,1,1,1.4)="S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,17)=DIV,DIH=19,DIG=.26 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,26,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,17)=DIV,DIH=19,DIG=.26 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19,26,1,1,"%D",0)="^^3^3^2910108^"
^DD(19,26,1,1,"%D",1,0)="This trigger sets the field HEADER PRESENT to '1' when there is"
^DD(19,26,1,1,"%D",2,0)="mumps code in the field HEADER.  HEADER PRESENT is carried as a "
^DD(19,26,1,1,"%D",3,0)="flag in the 0th node of each option."
^DD(19,26,1,1,"CREATE VALUE")="""1"""
^DD(19,26,1,1,"DELETE VALUE")="@"
^DD(19,26,1,1,"DT")="2910108"
^DD(19,26,1,1,"FIELD")="#.26"
^DD(19,26,3)="This is Standard MUMPS code executed upon entry of the option."
^DD(19,26,21,0)="^^5^5^2910109^"
^DD(19,26,21,1,0)="This field of MUMPS code is executed each time the option is envoked,"
^DD(19,26,21,2,0)="whether the user is moving down through the tree of options, or backing"
^DD(19,26,21,3,0)="up through the options already envoked; unlike the entry action which"
^DD(19,26,21,4,0)="is only executed when envoking an option from above, and not when"
^DD(19,26,21,5,0)="backing up into it."
^DD(19,26,"DT")="2910108"
^DD(19,30,0)="DIC {DIC}^FX^^30;E1,64^K:$L(X)>30!(X'?.1""%""1A.6AN1""("".ANP) X"
^DD(19,30,.1)="SELECT FILE IN DIC"
^DD(19,30,3)="Enter the global reference for DIC, WITHOUT the ""^""."
^DD(19,30,21,0)="^^4^4^2890406^^^^"
^DD(19,30,21,1,0)="Used in conjunction with EDIT and INQUIRE type options to lookup an entry."
^DD(19,30,21,2,0)="for use."
^DD(19,30,21,3,0)="The global reference of the file to be used in lookup (without the '^')."
^DD(19,30,21,4,0)="For example: DPT("
^DD(19,30,"DT")="2910319"
^DD(19,31,0)="DIC(0)^F^^31;E1,9^K:$L(X)>9!($L(X)<1) X"
^DD(19,31,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(19,31,21,0)="^^16^16^2890406^^^^"
^DD(19,31,21,1,0)="Used in conjunction with the EDIT and INQUIRE type options for finding"
^DD(19,31,21,2,0)="an entry.  "
^DD(19,31,21,3,0)="Enter the parameters used in file-lookups."
^DD(19,31,21,4,0)=" A = Ask and reask entry"
^DD(19,31,21,5,0)=" C = Cross reference suppression is turned off"
^DD(19,31,21,6,0)=" E = Echo back the entry"
^DD(19,31,21,7,0)=" F = Forget storing the lookup value (for space bar recall)"
^DD(19,31,21,8,0)=" I = Ignore any special lookup program"
^DD(19,31,21,9,0)=" L = Learning (LAYGO - adding a new entry) allowed"
^DD(19,31,21,10,0)=" M = Look up entry using all available indexes"
^DD(19,31,21,11,0)=" N = Allow internal entry number as input"
^DD(19,31,21,12,0)=" O = Look up an entry in the old way"
^DD(19,31,21,13,0)=" Q = Question input if match not found"
^DD(19,31,21,14,0)=" X = Exact match of input required"
^DD(19,31,21,15,0)=" Z = Zero entry node returned in variable Y(0) and"
^DD(19,31,21,16,0)="     the external value of the .01 field in Y(0,0)"
^DD(19,32,0)="DIC(A)^F^^32;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,32,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(19,32,21,0)="^^7^7^2890406^^^^"
^DD(19,32,21,1,0)="Used in conjunction with the EDIT and INQUIRE type option for finding "
^DD(19,32,21,2,0)="an entry."
^DD(19,32,21,3,0)="Enter the prompt to be displayed instead of the usual 'Select FILENAME NAME'"
^DD(19,32,21,4,0)="format."
^DD(19,32,21,5,0)=" Example:     DIC(A)=""Please enter patient name: """
^DD(19,32,21,6,0)="              Would display to user -  Please enter patient name:"
^DD(19,32,21,7,0)="              Rather than the usual -  Select PATIENT NAME:"
^DD(19,32,"DT")="2871214"
^DD(19,33,0)="DIC(B)^F^^33;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,33,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(19,33,21,0)="^^7^7^2890406^^^^"
^DD(19,33,21,1,0)="Used in conjunction with the EDIT and INQUIRE type options for finding "
^DD(19,33,21,2,0)="an entry."
^DD(19,33,21,3,0)="Enter the default value you want displayed to user when selecting the"
^DD(19,33,21,4,0)="entry to use."
^DD(19,33,21,5,0)=" Example:   DIC(B)=""JONES,JOHN"""
^DD(19,33,21,6,0)=" Would produce the display - Select PATIENT NAME: JONES,JOHN//"
^DD(19,33,21,7,0)=" Rather than the usual display - Select PATIENT NAME:"
^DD(19,33,"DT")="2871214"
^DD(19,34,0)="DIC(S)^K^^34;E1,245^D ^DIM"
^DD(19,34,3)="ENTER STANDARD MUMPS CODE"
^DD(19,34,9)="@"
^DD(19,34,21,0)="^^8^8^2890406^^"
^DD(19,34,21,1,0)="Used in conjunction with INQUIRE and EDIT type options for screening"
^DD(19,34,21,2,0)="entry selection.  Enter executable MUMPS code that will screen out entries"
^DD(19,34,21,3,0)="that should NOT be selected.  An entry is only selectable when the "
^DD(19,34,21,4,0)="executable code produces a truth value of 1.  For example:"
^DD(19,34,21,5,0)=" "
^DD(19,34,21,6,0)="   DIC(S)=I $P(^(0),U,2)=""M"""
^DD(19,34,21,7,0)="allows only males to be selected if the second piece of the entry's zero"
^DD(19,34,21,8,0)="node contained an 'M' for Male or 'F' for Female."
^DD(19,34,"DT")="2871210"
^DD(19,35,0)="DIC(W)^K^^35;E1,245^D ^DIM"
^DD(19,35,3)="ENTER STANDARD MUMPS CODE"
^DD(19,35,9)="@"
^DD(19,35,21,0)="^^8^8^2890406^"
^DD(19,35,21,1,0)="Used in conjunction with the EDIT and INQUIRE type options for matching"
^DD(19,35,21,2,0)="user input.  Enter MUMPS code that will be executed each time a match "
^DD(19,35,21,3,0)="(matches) is found for user input."
^DD(19,35,21,4,0)=" "
^DD(19,35,21,5,0)="Example:  DIC(W)=W:$D(^(.1)) ""Patient is currently on ward "",^(.1)"
^DD(19,35,21,6,0)="       produces the display - JONES,JOHN  Patient is currently on ward 2SE"
^DD(19,35,21,7,0)=" "
^DD(19,35,21,8,0)="NOTE:  This will override identifier displays."
^DD(19,35,"DT")="2871210"
^DD(19,36,0)="D.^F^^36;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,36,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(19,36,21,0)="7^^9^9^2870812^"
^DD(19,36,21,1,0)="Used in conjunction with the INQUIRE and EDIT type options for"
^DD(19,36,21,2,0)="selecting an entry.  Enter the subscript of the cross reference"
^DD(19,36,21,3,0)="to be used for entry look-up."
^DD(19,36,21,4,0)=" example:  D.=C"
^DD(19,36,21,5,0)="Would only check for user input against the ""C"" cross-reference."
^DD(19,36,21,6,0)="If DIC(0) contains an ""M"" meaning multi-index look-up, then this"
^DD(19,36,21,7,0)="value will be used as a starting point for the multi-index look-up."
^DD(19,36,21,8,0)="To restrict the look-up only to a single index then DIC(0) must"
^DD(19,36,21,9,0)="NOT contain an ""M""."
^DD(19,36,"DT")="2871214"
^DD(19,40,0)="DR{DDS}^F^^40;1^K:$L(X)>245!($L(X)<1) X"
^DD(19,40,3)="Enter the name of a form from the Form File enclosed in square brackets, e.g.""[MYFORM]""."
^DD(19,40,21,0)="^^2^2^2941205^^"
^DD(19,40,21,1,0)="This field contains the name of the form from the Form File"
^DD(19,40,21,2,0)="enclosed in square brackets, e.g., ""[MYFORM]""."
^DD(19,40,"DT")="2931020"
^DD(19,41,0)="DDSFILE^F^^41;1^K:$L(X)>64!($L(X)<1) X"
^DD(19,41,3)="Enter the file number or the global root of the file being displayed or edited."
^DD(19,41,21,0)="^^2^2^2931020^"
^DD(19,41,21,1,0)="This is the root of the file being edited or displayed"
^DD(19,41,21,2,0)="entered without the up-arrow, e.g., ""DIC(19,""."
^DD(19,41,"DT")="2931020"
^DD(19,42,0)="DDSFILE(1)^F^^42;1^K:$L(X)>64!($L(X)<1) X"
^DD(19,42,3)="Enter the subfile number or the global root of the subfile."
^DD(19,42,21,0)="^^1^1^2931020^"
^DD(19,42,21,1,0)="This is the global root of the subfile being edited or displayed."
^DD(19,42,"DT")="2931020"
^DD(19,43,0)="DDSPAGE^NJ5,1^^43;1^K:+X'=X!(X>999.9)!(X<1)!(X?.E1"".""2N.N) X"
^DD(19,43,3)="Enter a Page Number between 1 and 999.9, 1 Decimal Digit"
^DD(19,43,21,0)="^^3^3^2931025^"
^DD(19,43,21,1,0)="This optional variable contains the page number of the first page to"
^DD(19,43,21,2,0)="display to the user when the ScreenMan form is invoked.  If this variable"
^DD(19,43,21,3,0)="is not defined, then by default the first page the user sees is Page 1."
^DD(19,43,"DT")="2931021"
^DD(19,44,0)="DDSPARM^F^^43;2^K:$L(X)>9!($L(X)<1) X"
^DD(19,44,3)="Answer must be 1-9 characters in length."
^DD(19,44,21,0)="^^14^14^2941205^"
^DD(19,44,21,1,0)="This optional variable contains a string of alphabetic characters that"
^DD(19,44,21,2,0)="controls ScreenMan's behavior.  The acceptable characters are:"
^DD(19,44,21,3,0)=" "
^DD(19,44,21,4,0)=" C   Return the variable DDSCHANG=1 if ScreenMan detects that the user"
^DD(19,44,21,5,0)="     saved a Change to the database."
^DD(19,44,21,6,0)=" "
^DD(19,44,21,7,0)=" E   Return Error messages in ^TMP(""DIERR"",$J) and return DIERR if"
^DD(19,44,21,8,0)="     ScreenMan encounters problems when initially trying to load the form."
^DD(19,44,21,9,0)="     If DDSPARM does not contain an ""E"", ScreenMan prints messages"
^DD(19,44,21,10,0)="     directly on the screen, and returns the variable DIMSG equal to null."
^DD(19,44,21,11,0)=" "
^DD(19,44,21,12,0)=" S   Return the variable DDSSAVE=1 if the user pressed <PF1>S or <PF1>E,"
^DD(19,44,21,13,0)="     or entered an ""Exit"" or ""Save"" command from the Command Line, whether"
^DD(19,44,21,14,0)="     or not any changes were actually made on the form."
^DD(19,44,"DT")="2931021"
^DD(19,50,0)="DIE^FX^^50;E1,64^K:$L(X)>30 X"
^DD(19,50,3)="Enter the File number, or the global reference for DIE, WITHOUT the ""^""."
^DD(19,50,21,0)="^^3^3^2910321^"
^DD(19,50,21,1,0)="Used in the EDIT type option. The global reference of the file to be used"
^DD(19,50,21,2,0)="in the edit."
^DD(19,50,21,3,0)=" example:  DPT("
^DD(19,50,"DT")="2840123"
^DD(19,51,0)="DR {DIE}^F^^51;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,51,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH, CODE FOR DR."
^DD(19,51,21,0)="^^6^6^2890406^^^^"
^DD(19,51,21,1,0)="Used in the EDIT type option.  Enter the string of field numbers (delimited"
^DD(19,51,21,2,0)="by semi-colons) to be edited or a bracketed input template name."
^DD(19,51,21,3,0)=" example:"
^DD(19,51,21,4,0)="         .01;.03;3;.351"
^DD(19,51,21,5,0)="         or"
^DD(19,51,21,6,0)="         [INPUT TEMPLATE NAME]"
^DD(19,51,"DT")="2880217"
^DD(19,52,0)="*DR()^F^^52;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,52,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(19,52,"DT")="2880217"
^DD(19,53,0)="NO UP-ARROW^S^N:NO UP-ARROWING ALLOWED;OUTOK:UP-ARROW OUT OK, NO BRANCHING;BACK:BACK JUMPING OK, NO EXIT;BACKOUTOK:EXIT AND BACK JUMPING OK;^53;1^Q"
^DD(19,53,21,0)="^^11^11^2910320^"
^DD(19,53,21,1,0)="Used in the EDIT type option."
^DD(19,53,21,2,0)="If an 'N' is entered, no up-arrowing (^) is allowed while editing either"
^DD(19,53,21,3,0)="for exiting the edit entirely or branching to other fields."
^DD(19,53,21,4,0)="If an 'OUTOK' is entered, you may up-arrow (^) entirely out of the edit"
^DD(19,53,21,5,0)="but not be allowed to jump to other fields."
^DD(19,53,21,6,0)="If an 'BACK' is entered, you may jump to a previously edited field"
^DD(19,53,21,7,0)="but not entirely out."
^DD(19,53,21,8,0)="If an 'BACKOUTOK' is entered, you may jump back to previously edited"
^DD(19,53,21,9,0)="fields and up-arrow (^) to exit."
^DD(19,53,21,10,0)="If no entry is in this field, you may jump to other fields or"
^DD(19,53,21,11,0)="up-arrow (^) out of the entire edit process."
^DD(19,53,"DT")="2900410"
^DD(19,54,0)="*DIE(W)^K^^54;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,54,3)="ENTER STANDARD MUMPS CODE"
^DD(19,54,9)="@"
^DD(19,54,21,0)="^^2^2^2910321^^"
^DD(19,54,21,1,0)="Enter a WRITE statement in this field and the WRITE statement will be used"
^DD(19,54,21,2,0)="instead of VA FileMan's regular prompt for the field being edited."
^DD(19,54,"DT")="2910321"
^DD(19,60,0)="DIC {DIP}^FX^^60;E1,64^K:$L(X)>30!(X'[""("") X"
^DD(19,60,3)="ENTER THE GLOBAL REFERENCE FOR 'DIP', WITHOUT THE ""^""."
^DD(19,60,21,0)="^^2^2^2851006^^^"
^DD(19,60,21,1,0)="The global reference of the file to be used in PRINT type option."
^DD(19,60,21,2,0)=" example: DPT("
^DD(19,60,"DT")="2870817"
^DD(19,61,0)="PG^NJ4,0^^61;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(19,61,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(19,61,21,0)="^^4^4^2890406^^^^"
^DD(19,61,21,1,0)="Used in the PRINT type option.  The page number that should appear on first"
^DD(19,61,21,2,0)="page of report. (This number ONLY effects page numbering, NOT at which entry"
^DD(19,61,21,3,0)="the report should begin printing).  If this field is left blank, "
^DD(19,61,21,4,0)="then page 1 is assumed."
^DD(19,62,0)="L.^F^^62;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,62,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(19,62,4)="W !?4,""SHOULD ALWAYS CONTAIN '0'.  IF A '1' IS ENTERED"",!?4,""THE USER WILL BE ASKED FOR FLDS,FR,TO AND DHD"""
^DD(19,62,21,0)="^^4^4^2881013^^^^"
^DD(19,62,21,1,0)="Used in the PRINT type option.  This entry should always contain a 0."
^DD(19,62,21,2,0)="If a 1 is entered for this field, all predetermined ranges of sorts"
^DD(19,62,21,3,0)="(fields TO and FR), print fields (field FLDS) and header (DHD) are overriden"
^DD(19,62,21,4,0)="and the user will be asked for sort ranges, print fields and header."
^DD(19,62,"DT")="2871214"
^DD(19,63,0)="FLDS^F^^63;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,63,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(19,63,4)="W !?4,""FIELD FORMAT '.01;""_""""""""_""PATIENT NAME""_""""""""_"";C1,.02,.1'"",!?4,""OR A '[PRINT TEMPLATE NAME]'"""
^DD(19,63,21,0)="^^7^7^2920113^^^^"
^DD(19,63,21,1,0)="Used in the PRINT type option.  Enter the fields to be printed (delimited"
^DD(19,63,21,2,0)="by commas) or the bracketed print template name."
^DD(19,63,21,3,0)="Fileman formatting criteria can also be entered."
^DD(19,63,21,4,0)=" example:"
^DD(19,63,21,5,0)="        .01;""PATIENT NAME"";C1,.02,.1"
^DD(19,63,21,6,0)="         or"
^DD(19,63,21,7,0)="         [PRINT TEMPLATE NAME]"
^DD(19,63,"DT")="2871214"
^DD(19,64,0)="BY^F^^64;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,64,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(19,64,4)="W !?4,""SORT BY FORMAT '.1,.01' OR A [SORT TEMPLATE NAME]"""
^DD(19,64,21,0)="^^6^6^2890406^^^^"
^DD(19,64,21,1,0)="Used in the PRINT type option. Enter the fields to be sorted by (delimited "
^DD(19,64,21,2,0)="by commas) or a bracketed sort template name."
^DD(19,64,21,3,0)=" Example:"
^DD(19,64,21,4,0)="        '.1,.01"
^DD(19,64,21,5,0)="        or"
^DD(19,64,21,6,0)="        [SORT TEMPLATE NAME]"
^DD(19,64,"DT")="2871214"
^DD(19,65,0)="FR^FX^^65;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,65,3)="ANSWER MUST BE IN 'START WITH' VALUES SEPARATED BY COMMAS"
^DD(19,65,4)="W !?4,""START WITH '2NE,SMITH' (WARD AND NAME)"""
^DD(19,65,21,0)="^^5^5^2890406^^^^"
^DD(19,65,21,1,0)="Used in the PRINT type option. Enter the 'start with' values (delimited by "
^DD(19,65,21,2,0)="commas) used in sorting."
^DD(19,65,21,3,0)=" Example:"
^DD(19,65,21,4,0)="          2NE,SMITH"
^DD(19,65,21,5,0)="  (if sort fields were ward & name, start with ward 2NE and patient SMITH)"
^DD(19,65,"DT")="2871215"
^DD(19,66,0)="TO^FX^^66;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19,66,3)="ANSWER MUST BE IN 'GO TO' VALUES SEPARATED BY COMMAS"
^DD(19,66,4)="W !?4,""GO TO '2NE,SMITH' (WARD AND NAME)"""
^DD(19,66,21,0)="^^6^6^2851006^^^"
^DD(19,66,21,1,0)="Used in the PRINT type option. The 'go to' values (delimited by commas) used"
^DD(19,66,21,2,0)="in sorting."
^DD(19,66,21,3,0)=" example:"
^DD(19,66,21,4,0)="          2NE,SMITH"
^DD(19,66,21,5,0)="  (If sort fields were ward & name, end sort after ward  2NE and patient"
^DD(19,66,21,6,0)="SMITH)"
^DD(19,66,"DT")="2871215"
^DD(19,67,0)="DHD^FX^^67;E1,245^D:X?1""W "".ANP ^DIM I $D(X) K:X[""""""""&(X'?1""W "".ANP) X I $D(X),X?1""W "".ANP S Q="""""""" F %=1:2 Q:'$D(X)  Q:$P(X,Q,%,999)=""""  K:$P($E(3,999),Q,%)["" "" X"
^DD(19,67,3)="ANSWER MUST BE 1-245 CHARACTERS OR A MUMPS STATEMENT STARTING WITH 'W '."
^DD(19,67,4)="W !?5,""Quotes are valid only within a MUMPS write statement"",!"
^DD(19,67,21,0)="3^^3^3^2870812^^"
^DD(19,67,21,1,0)="Used in the PRINT type option.  Enter the free text heading you want"
^DD(19,67,21,2,0)="printed as the header of your output.  "
^DD(19,67,21,3,0)="(Do not include quotes in your header)"
^DD(19,67,"DT")="2840124"
^DD(19,68,0)="DCOPIES^NJ5,0^^68;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(19,68,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(19,68,21,0)="^^2^2^2851018^^^^"
^DD(19,68,21,1,0)="Used in the PRINT type option. The number of copies desired."
^DD(19,68,21,2,0)="SDP space must be available on your system for this option."
^DD(19,69,0)="DIS(0)^K^^69;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,69,3)="ENTER STANDARD MUMPS CODE"
^DD(19,69,9)="@"
^DD(19,69,21,0)="^^8^8^2910321^^^^"
^DD(19,69,21,1,0)="Used in the PRINT type option.  Enter the executable mumps code to screen"
^DD(19,69,21,2,0)="out undesired entries from the sort process.  If the code produces a truth"
^DD(19,69,21,3,0)="value of 1, the entry will be printed.  A truth value of 0 will not allow"
^DD(19,69,21,4,0)="the entry to be printed.  At the time the code is executed , the internal"
^DD(19,69,21,5,0)="reference number of the entry is stored in the variable D0."
^DD(19,69,21,6,0)=" example:   "
^DD(19,69,21,7,0)=" DIS(0)=I $P(^DPT(D0,0),U,3)<2700101!($P(^(0),U,3)>2791231)"
^DD(19,69,21,8,0)=" Would not print any patients that were born in the 1970's."
^DD(19,69,"DT")="2910321"
^DD(19,69.1,0)="DIS(1)^K^^69.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,69.1,3)="This is Standard MUMPS code to produce $T value."
^DD(19,69.1,21,0)="^^5^5^2910321^"
^DD(19,69.1,21,1,0)=" "
^DD(19,69.1,21,2,0)="This field is used along with DIS(0), and other DIS(n) fields, with print"
^DD(19,69.1,21,3,0)="options.  Each DIS field is examined in order (beginning with 0) for MUMPS"
^DD(19,69.1,21,4,0)="code that will produce a $T value.  A $T=1 will cause the entry not to"
^DD(19,69.1,21,5,0)="print.PPPPP"
^DD(19,69.1,"DT")="2910321"
^DD(19,69.2,0)="DIS(2)^K^^69.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,69.2,3)="This is Standard MUMPS code to produce $T value."
^DD(19,69.2,21,0)="^^3^3^2910321^"
^DD(19,69.2,21,1,0)=" "
^DD(19,69.2,21,2,0)="This field is the 3rd field examined in the DIS array for a $T value to see"
^DD(19,69.2,21,3,0)="whether or not the data pointed to by DO should be printed."
^DD(19,69.2,"DT")="2910321"
^DD(19,69.3,0)="DIS(3)^K^^69.3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19,69.3,3)="This is Standard MUMPS code to produce $T valu."
^DD(19,69.3,21,0)="^^3^3^2910321^"
^DD(19,69.3,21,1,0)=" "
^DD(19,69.3,21,2,0)="This is the forth MUMPS field in the DIS array to be examined for a $T value"
^DD(19,69.3,21,3,0)="which may stop the selected entry from being printed."
^DD(19,69.3,"DT")="2910321"
^DD(19,70,0)="IOP^FX^^70;1^Q:X=""HOME""  S DIC=""^%ZIS(1,"",DIC(0)=""EMQ"" D ^DIC K DIC S X=$P(Y,U,2),DIC=DIE K:Y<0 X"
^DD(19,70,3)="THIS IS THE DEFAULT OUTPUT DEVICE"
^DD(19,70,4)="S DIC=""^%ZIS(1,"",DIC(0)=""M"",D=""B"" D DQ^DICQ K DIC S DIC=DIE"
^DD(19,70,21,0)="^^2^2^2871110^^^"
^DD(19,70,21,1,0)="The default output device.  Enter a valid Device Name or ""HOME"""
^DD(19,70,21,2,0)="to mean output will always go to the home device."
^DD(19,70,"DT")="2901213"
^DD(19,71,0)="DHIT^K^^71;E1,245^D ^DIM"
^DD(19,71,3)="ENTER STANDARD MUMPS CODE"
^DD(19,71,9)="@"
^DD(19,71,21,0)="^^3^3^2870813^"
^DD(19,71,21,1,0)="Used in the PRINT type option.  Enter a string of MUMPS code that"
^DD(19,71,21,2,0)="will be executed for every entry after all the fields specified"
^DD(19,71,21,3,0)="in FLDS have been printed."
^DD(19,71,"DT")="2870813"
^DD(19,72,0)="DIOBEG^K^^72;E1,245^D ^DIM"
^DD(19,72,3)="ENTER STANDARD MUMPS CODE"
^DD(19,72,9)="@"
^DD(19,72,21,0)="^^2^2^2870813^"
^DD(19,72,21,1,0)="Used in the PRINT type option.  Enter a string of MUMPS code that"
^DD(19,72,21,2,0)="will be executed before the printout starts."
^DD(19,72,"DT")="2870813"
^DD(19,73,0)="DIOEND^K^^73;E1,245^D ^DIM"
^DD(19,73,3)="ENTER STANDARD MUMPS CODE"
^DD(19,73,9)="@"
^DD(19,73,21,0)="^^3^3^2870813^"
^DD(19,73,21,1,0)="Used in the PRINT type option.  Enter a string of MUMPS code that"
^DD(19,73,21,2,0)="will be executed after the printout has finished but before"
^DD(19,73,21,3,0)="returning to the calling program."
^DD(19,73,"DT")="2870813"
^DD(19,76,0)="BY(0)^F^^76;1^K:$L(X)>200!($L(X)<1) X"
^DD(19,76,3)="Enter the 'static' part of a cross-reference or an open global reference, or the name of a search template enclosed in square brackets.  Answer must be 1-200 characters in length."
^DD(19,76,9)="^"
^DD(19,76,20,0)="^.3LA^1^1"
^DD(19,76,20,1,0)="V21X"
^DD(19,76,21,0)="^^12^12^2931020^"
^DD(19,76,21,1,0)="This variable can be set when you want to sort using a specified"
^DD(19,76,21,2,0)="cross-reference (even MUMPS), or a list of record numbers in any global,"
^DD(19,76,21,3,0)="or a list of results on a search template.  The only criteria"
^DD(19,76,21,4,0)="is that the last subscript to sort through is an internal entry number"
^DD(19,76,21,5,0)="(record number) for the file being printed.  This variable should contain"
^DD(19,76,21,6,0)="the static part of a cross-reference or an open global reference, without"
^DD(19,76,21,7,0)="the leading up-arrow.  Or, if printing from a list of search results, the"
^DD(19,76,21,8,0)="variable should contain the name of a search template surrounded by square"
^DD(19,76,21,9,0)="brackets.  Ex.:"
^DD(19,76,21,10,0)="  BY(0) = TMP(""ZZTEST"",$J,"
^DD(19,76,21,11,0)="  BY(0) = DIZ(662001,""AC"","
^DD(19,76,21,12,0)="  BY(0) = [ZZSEARCH]"
^DD(19,76,23,0)="^^2^2^2931020^"
^DD(19,76,23,1,0)="If this field is not null, set BY(0) equal to its contents before calling"
^DD(19,76,23,2,0)="EN1^DIP.  If it is not null, field L(0) should also be set."
^DD(19,76,"DT")="2931020"
^DD(19,76.1,0)="L(0)^NJ1,0^^79;5^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(19,76.1,3)="Enter the total number of subscripts that must be sorted through to get to the record number, PLUS 1 for the record number.  Type a Number between 1 and 7, 0 Decimal Digits"
^DD(19,76.1,9)="^"
^DD(19,76.1,20,0)="^.3LA^1^1"
^DD(19,76.1,20,1,0)="V21"
^DD(19,76.1,21,0)="^^7^7^2940914^^^^"
^DD(19,76.1,21,1,0)="This variable should ONLY be set if BY(0) is set, and is REQUIRED if BY(0)"
^DD(19,76.1,21,2,0)="is set.  It should be equal to the total number of variable subscripts"
^DD(19,76.1,21,3,0)="that FileMan needs to sort through in order to reach the record number,"
^DD(19,76.1,21,4,0)="PLUS 1 for the record number itself.  For example, if BY(0) defines a"
^DD(19,76.1,21,5,0)="regular cross-reference, L(0)=2 (1 for the cross-referenced field value,"
^DD(19,76.1,21,6,0)="and 1 for the record number, D0).  If sorting through a list of record"
^DD(19,76.1,21,7,0)="numbers in ^TMP($J,D0), L(0)=1 (1 for the record number, D0)."
^DD(19,76.1,23,0)="^^3^3^2940914^^^"
^DD(19,76.1,23,1,0)="This field is checked ONLY if BY(0) is set, and is REQUIRED if BY(0) is"
^DD(19,76.1,23,2,0)="set.  If this field is not null, set L(0) equal to the contents before"
^DD(19,76.1,23,3,0)="calling EN1^DIP."
^DD(19,76.1,"DT")="2931019"
^DD(19,76.2,0)="FR(0,N)^19.02^^FROM;0"
^DD(19,76.2,9)="^"
^DD(19,76.2,20,0)="^.3LA^1^1"
^DD(19,76.2,20,1,0)="V21"
^DD(19,76.2,21,0)="^^2^2^2940915^"
^DD(19,76.2,21,1,0)="Sort FROM criteria associated with the subscripts defined by the BY(0)"
^DD(19,76.2,21,2,0)="input variable."
^DD(19,76.3,0)="TO(0,N)^19.03^^TO;0"
^DD(19,76.3,9)="^"
^DD(19,76.3,20,0)="^.3LA^1^1"
^DD(19,76.3,20,1,0)="V21"
^DD(19,76.3,21,0)="^^2^2^2940915^"
^DD(19,76.3,21,1,0)="Sort TO criteria associated with the subscripts defined by the BY(0) input"
^DD(19,76.3,21,2,0)="variable."
^DD(19,76.4,0)="DISPAR(0,N)^19.04^^SUB;0"
^DD(19,76.4,9)="^"
^DD(19,76.4,20,0)="^.3LA^1^1"
^DD(19,76.4,20,1,0)="V21"
^DD(19,76.4,"DT")="2931015"
^DD(19,77,0)="DISUPNO^S^1:SUPPRESS HEADER IF NO RECORDS;^79;2^Q"
^DD(19,77,3)="Enter 1 to suppress printing the HEADER and the 'NO MATCHES' or 'No Records to Print' message, when no entries meet SEARCH or SORT criteria."
^DD(19,77,20,0)="^.3LA^1^1"
^DD(19,77,20,1,0)="V21"
^DD(19,77,21,0)="^^5^5^2940915^^^^"
^DD(19,77,21,1,0)="If there are no matches found in a SEARCH, or if there are no records"
^DD(19,77,21,2,0)="to print in a PRINT, VA FileMan still prints a header and a message"
^DD(19,77,21,3,0)="informing the user that there were 0 matches, or no records to print."
^DD(19,77,21,4,0)="If this input variable is set to 1, that print of the header will be"
^DD(19,77,21,5,0)="suppressed and nothing will print."
^DD(19,77,23,0)="^^3^3^2940915^^^"
^DD(19,77,23,1,0)="Set DISUPNO to the contents of this field before calling either"
^DD(19,77,23,2,0)="EN1^DIP or ENS^DIS. It is OK to set DISUPNO to this field even"
^DD(19,77,23,3,0)="if it is null."
^DD(19,77,"DT")="2931013"
^DD(19,78,0)="DIPCRIT^S^1:PRINT SEARCH/SORT CRITERIA;^79;3^Q"
^DD(19,78,3)="Print SEARCH and/or SORT criteria in the heading of the first page when using the standard FileMan header on a SEARCH or PRINT."
^DD(19,78,20,0)="^.3LA^1^1"
^DD(19,78,20,1,0)="V21"
^DD(19,78,21,0)="^^3^3^2940915^"
^DD(19,78,21,1,0)="When set to 1, causes SEARCH or SORT criteria to print in the heading of"
^DD(19,78,21,2,0)="the first page of a report, along with the standard header.  If called"
^DD(19,78,21,3,0)="from SEARCH option, both SEARCH and SORT criteria print."
^DD(19,78,23,0)="^^2^2^2940915^"
^DD(19,78,23,1,0)="Set DIPCRIT to the contents of this field before calling EN1^DIP.  It is"
^DD(19,78,23,2,0)="OK to set DIPCRIT to this field, even if it is null."
^DD(19,78,"DT")="2931013"
^DD(19,79,0)="DIASKHD^S^0:Do not ask user for a header;1:Ask user for a header;^79;1^Q"
^DD(19,79,3)="Entering a 1 will cause a user to be prompted for a print header."
^DD(19,79,21,0)="^^4^4^2910701^"
^DD(19,79,21,1,0)=" "
^DD(19,79,21,2,0)="If this field is set to '1' then the variable DIASKHDR will be defined when"
^DD(19,79,21,3,0)="FileMan is called to print.  The user will then be prompted for a header for"
^DD(19,79,21,4,0)="the report."
^DD(19,79,"DT")="2910320"
^DD(19,79.5,0)="DISTEMP^F^^79;4^K:$L(X)>32!($L(X)<1) X"
^DD(19,79.5,3)="Enter the name of a SEARCH template with criteria, to RE-DO the search.  Can be enclosed in brackets.  Answer must be 1-32 characters in length."
^DD(19,79.5,20,0)="^.3LA^1^1"
^DD(19,79.5,20,1,0)="V21"
^DD(19,79.5,21,0)="^^7^7^2931015^^"
^DD(19,79.5,21,1,0)="This field MUST be defined in order to call the FileMan routine to RE-DO a"
^DD(19,79.5,21,2,0)="search using the search criteria from an existing SEARCH TEMPLATE (routine"
^DD(19,79.5,21,3,0)="ENS^DIS).  The field must contain the name of a SEARCH TEMPLATE.  This"
^DD(19,79.5,21,4,0)="template name can be enclosed in square brackets but the brackets are not"
^DD(19,79.5,21,5,0)="required.  Note that if there are already search results on the template,"
^DD(19,79.5,21,6,0)="they will be replaced by a new list of search results when this option is"
^DD(19,79.5,21,7,0)="run."
^DD(19,79.5,23,0)="^^4^4^2931020^^"
^DD(19,79.5,23,1,0)="This field is only used, and is REQUIRED, for a call to ENS^DIS, the"
^DD(19,79.5,23,2,0)="option to re-do a search.  If the field is defined, set DISTEMP equal to the"
^DD(19,79.5,23,3,0)="contents of the field before the call.  You then must set up the other"
^DD(19,79.5,23,4,0)="variables that would be set up if doing a normal FileMan PRINT."
^DD(19,79.5,"DT")="2931013"
^DD(19,80,0)="DIC {DIQ}^F^^80;E1,64^K:$L(X)>64!($L(X)<1) X"
^DD(19,80,3)="Enter the global reference for DIQ, WITHOUT the ""^""."
^DD(19,80,21,0)="^^3^3^2851006^^^"
^DD(19,80,21,1,0)="Used in the INQUIRY type option.  The global reference of the file to be"
^DD(19,80,21,2,0)="used in the inquiry."
^DD(19,80,21,3,0)=" example: DPT("
^DD(19,81,0)="DR {DIQ}^F^^81;E1,245^K:$L(X)>250!($L(X)<1) X"
^DD(19,81,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(19,81,21,0)="^^11^11^2851006^^^^"
^DD(19,81,21,1,0)="Used in the INQUIRY type option.  Enter the GLOBAL SUBSCRIPTS that you"
^DD(19,81,21,2,0)="want displayed on the inquiry.  Any fields residing in these global nodes"
^DD(19,81,21,3,0)="will be displayed in standard captioned output format."
^DD(19,81,21,4,0)="Multiple subscripts can be delimited by a semi-colon or a range of subscripts"
^DD(19,81,21,5,0)="may be used delimiting the starting subscript and ending subscript with a"
^DD(19,81,21,6,0)="colon."
^DD(19,81,21,7,0)=" NOTE: Field security is not matched against user access for this option."
^DD(19,81,21,8,0)="Data will be displayed regardless of user READ access to those fields."
^DD(19,81,21,9,0)=" example:  DR {DIQ}=0;.1"
^DD(19,81,21,10,0)=" Would display any fields whose global location was in either"
^DD(19,81,21,11,0)="global node 0 or global node .1"
^DD(19,82,0)="DIQ(0)^FX^^82;E1,245^K:$L(X)>2!($L(X)<1) X I $D(X) F %=1:1:$L(X) I ""C""'[$E(X,%) K X Q"
^DD(19,82,3)="Set this field to 'C' to display computed fields."
^DD(19,82,21,0)="^^1^1^2870813^"
^DD(19,82,21,1,0)="If this field is set to ""C"", computed fields will be displayed."
^DD(19,82,"DT")="2871215"
^DD(19,83,0)="SUPRESS DEVICE PROMPT^S^Y:YES;N:NO;^83;1^Q"
^DD(19,83,3)="Enter Yes or No.  With [CAPTIONED] template Yes forces output to the screen."
^DD(19,83,"DT")="2920825"
^DD(19,99,0)="TIMESTAMP^F^^99;1^K:$L(X)>15!($L(X)<1) X"
^DD(19,99,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(19,99,9)="^"
^DD(19,99,21,0)="^^2^2^2910701^"
^DD(19,99,21,1,0)=" "
^DD(19,99,21,2,0)="This field contains the timestamp for when the option was created."
^DD(19,99,"DT")="2851013"
^DD(19,99.1,0)="TIMESTAMP OF PRIMARY MENU^F^^99.1;1^K:$L(X)>15!($L(X)<1) X"
^DD(19,99.1,.1)=""
^DD(19,99.1,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(19,99.1,9)="^"
^DD(19,99.1,21,0)="^^2^2^2910701^"
^DD(19,99.1,21,1,0)=" "
^DD(19,99.1,21,2,0)="This field contains the timestamp of when this primary menu tree was rebuilt."
^DD(19,100,0)="*ORDER PRINT ACTION^K^^100;E1,245^D ^DIM"
^DD(19,100,3)="ENTER STANDARD MUMPS CODE"
^DD(19,100,9)="@"
^DD(19,100,"DT")="2870603"
^DD(19,100.1,0)="*ORDER CANCEL ACTION^K^^100.1;E1,245^D ^DIM"
^DD(19,100.1,3)="ENTER STANDARD MUMPS CODE"
^DD(19,100.1,9)="@"
^DD(19,100.1,"DT")="2870603"
^DD(19,100.2,0)="*ORDER PURGE ACTION^K^^100.2;E1,245^D ^DIM"
^DD(19,100.2,3)="ENTER STANDARD MUMPS CODE"
^DD(19,100.2,9)="@"
^DD(19,100.2,"DT")="2870603"
^DD(19,110,0)="INDEPENDENTLY INVOCABLE^S^n:NO;y:YES;^2;1^Q"
^DD(19,110,.1)="Independently Invocable"
^DD(19,110,3)="Enter NO if this option requires the action of another option first"
^DD(19,110,21,0)="^^9^9^2920706^^"
^DD(19,110,21,1,0)="This field is only to document those options that the site can't"
^DD(19,110,21,2,0)="randomly add to other options."
^DD(19,110,21,3,0)=" "
^DD(19,110,21,4,0)="If this field is NO then this option requires that some option or"
^DD(19,110,21,5,0)="action has been done before it can be called."
^DD(19,110,21,6,0)="If this field is YES then this option can be invoked at any time."
^DD(19,110,21,7,0)="It is up to the developer to set this field."
^DD(19,110,21,8,0)=" "
^DD(19,110,21,9,0)="The MENU system doesn't look at this at any time."
^DD(19,110,"DT")="2890210"
^DD(19,200,0)="*QUEUED TO RUN AT WHAT TIME^DX^^200;1^K X"
^DD(19,200,.1)="TIME AT WHICH TASKMAN WILL AUTOMATICALLY START UP THIS OPTION"
^DD(19,200,1,0)="^.1"
^DD(19,200,1,1,0)="19^AZT^MUMPS"
^DD(19,200,1,1,1)="Q"
^DD(19,200,1,1,2)="Q"
^DD(19,200,1,1,"%D",0)="^^3^3^2940714^"
^DD(19,200,1,1,"%D",1,0)="This field and X-ref are beening replaced"
^DD(19,200,1,1,"%D",2,0)="part of a package install) to set or remove the option as a task queued for "
^DD(19,200,1,1,"%D",3,0)="the specified time."
^DD(19,200,1,1,"DT")="2940714"
^DD(19,200,3)="Time must be at least 2 minutes in the future and type run, action, print"
^DD(19,200,4)="N % S %(1)=""Changing or deleting this date/time field will re-queue"",%(2)=""or un-queue the Option."" D EN^DDIOL(.%)"
^DD(19,200,21,0)="^^1^1^2950103^"
^DD(19,200,21,1,0)="This field is OBSOLETE,  Please use the new Option scheduling File."
^DD(19,200,"DT")="2940714"
^DD(19,201,0)="*DEVICE FOR QUEUED JOB OUTPUT^FX^^200;2^K X"
^DD(19,201,1,0)="^.1"
^DD(19,201,1,1,0)="19^AZTIO^MUMPS"
^DD(19,201,1,1,1)="Q"
^DD(19,201,1,1,2)="Q"
^DD(19,201,1,1,"DT")="2940714"
^DD(19,201,3)="MUST BE NAME OF DEVICE ON WHICH THE QUEUED OPTION WILL PRINT"
^DD(19,201,4)="N % S %(1)=""If TASKMAN cannot identify a DEVICE by this name"",%(2)=""at the time of dequeueing, job will not run, "" D EN^DDIOL(.%)"
^DD(19,201,21,0)="^^1^1^2950103^^^"
^DD(19,201,21,1,0)="This field is OBSOLETE,  Please use the new Option scheduling File."
^DD(19,201,"DT")="2940714"
^DD(19,202,0)="*RESCHEDULING FREQUENCY^FX^^200;3^K X"
^DD(19,202,.1)="FREQUENCY WITH WHICH THIS OPTION WILL BE AUTOMATICALLY RESCHEDULED TO RUN"
^DD(19,202,3)="FOR AUTOMATIC RE-QUEUING, ANSWER WITH INCREMENT OF HOURS, DAYS, OR MONTHS"
^DD(19,202,4)="N % S %(1)=""Examples:"",%(2)="" 120S = job will be re-run every two minutes"",%(3)=""   1H = job will be rerun every hour"",%(4)=""   7D = job will be re-run every week"",%(5)=""   3M = job will be run once a quarter"" D EN^DDIOL(.%)"
^DD(19,202,21,0)="^^1^1^2950103^^"
^DD(19,202,21,1,0)="This field is OBSOLETE,  Please use the new Option scheduling File."
^DD(19,202,"DT")="2940309"
^DD(19,203,0)="*QUEUED TO RUN ON VOLUME SET^FX^^200;4^K X"
^DD(19,203,1,0)="^.1"
^DD(19,203,1,1,0)="19^AZTVOL^MUMPS"
^DD(19,203,1,1,1)="Q"
^DD(19,203,1,1,2)="Q"
^DD(19,203,1,1,"%D",0)="^^2^2^2940714^"
^DD(19,203,1,1,"%D",1,0)="This field and X-ref beening replaced."
^DD(19,203,1,1,"%D",2,0)="part of a package install) for the option as a queued task."
^DD(19,203,1,1,"DT")="2940714"
^DD(19,203,3)="Answer must be the (2-15 char) volume set (CPU) name that the option should run on."
^DD(19,203,4)="D EN^DDIOL(""The volume set name must also be in the Kernel site parameters as a volume set."")"
^DD(19,203,21,0)="^^1^1^2950103^^"
^DD(19,203,21,1,0)="This field is OBSOLETE,  Please use the new Option scheduling File."
^DD(19,203,"DT")="2940714"
^DD(19,209,0)="SCHEDULING RECOMMENDED^S^y:YES;n:NO;s:STARTUP;^200.9;1^Q"
^DD(19,209,21,0)="^^2^2^2930407^"
^DD(19,209,21,1,0)="This field should be filled in by developers to allow reports of"
^DD(19,209,21,2,0)="options that a site should consider seting up for background scheduling."
^DD(19,209,"DT")="2940809"
^DD(19,209.2,0)="KEEP FROM DELETING^S^y:Yes;^200.9;2^Q"
^DD(19,209.2,3)="Set if this is option shouldn't be purged."
^DD(19,209.2,21,0)="^^4^4^2970117^"
^DD(19,209.2,21,1,0)="This field is to keep the DELETE UNREFERENCED OPTIONS routine from"
^DD(19,209.2,21,2,0)="selecting this option for deletion even if it isn't referenced in the"
^DD(19,209.2,21,3,0)="normal ways.  Like ""Parent of Queuable Options"" (ZTMQUEUABLE OPTIONS) or"
^DD(19,209.2,21,4,0)="XUCOMMAD. Normal options don't need to set this field."
^DD(19,209.2,"DT")="2970117"
^DD(19,220,0)="SERVER BULLETIN^P3.6^XMB(3.6,^220;1^Q"
^DD(19,220,3)="Enter the bulletin you would like sent to notify users of a server request"
^DD(19,220,21,0)="^^4^4^2910701^"
^DD(19,220,21,1,0)=" "
^DD(19,220,21,2,0)="This field may contain a pointer to the bulletin which will override the"
^DD(19,220,21,3,0)="default bulletin XQSERVER for a server-type option.  This bulletin will be"
^DD(19,220,21,4,0)="usedto notify the users in the event of a security breach, etc."
^DD(19,220,"DT")="2890707"
^DD(19,221,0)="SERVER ACTION^S^R:RUN IMMEDIATELY;Q:QUEUE SERVER ROUTINE;N:NOTIFY MAIL GROUP (DO NOT RUN);I:IGNORE REQUESTS;^220;2^Q"
^DD(19,221,3)="What do you want the menu system to do when a request for this server option is received from the mail system."
^DD(19,221,21,0)="^^2^2^2920722^^"
^DD(19,221,21,1,0)="A set of codes which tell the menu system what to do when a request"
^DD(19,221,21,2,0)="for this server option is received from the mail system."
^DD(19,221,"DT")="2890707"
^DD(19,222,0)="SERVER MAIL GROUP^P3.8^XMB(3.8,^220;3^Q"
^DD(19,222,3)="Who should be notified in the event of a server request if 'N' is specified in Server Action codes (field #221)."
^DD(19,222,21,0)="^^4^4^2910701^"
^DD(19,222,21,1,0)=" "
^DD(19,222,21,2,0)="This field amy contain a pointer to the Mail Group file.  This mail group will"
^DD(19,222,21,3,0)="be notified in the even of a security breach etc. when a server-type option is"
^DD(19,222,21,4,0)="envoked."
^DD(19,222,"DT")="2890707"
^DD(19,223,0)="SERVER AUDIT^S^Y:YES;N:NO;^220;4^Q"
^DD(19,223,3)="Do you want all requests for this server, and results of those requests logged?"
^DD(19,223,21,0)="^^6^6^2920324^^"
^DD(19,223,21,1,0)="This set of codes will determine whethere or not auditing will take place."
^DD(19,223,21,2,0)="If auditing is turned on with a 'Y' (YES) response the menu system will"
^DD(19,223,21,3,0)="record: 1. The server option requested, 2. Date/time of the request, 3."
^DD(19,223,21,4,0)="User (Postmaster), 4. Device (none), 5. Job #, 6. Date/time of exit from"
^DD(19,223,21,5,0)="the option, 7. CPU, 8. Request result (error message, ""task completed"
^DD(19,223,21,6,0)="normally"", etc."
^DD(19,223,"DT")="2890707"
^DD(19,224,0)="SUPRESS BULLETIN^S^Y:YES, SUPRESS IT;N:NO (DEFAULT) SEND A BULLETIN;^220;5^Q"
^DD(19,224,.1)="SUPRESS SERVER REQUEST BULLETIN"
^DD(19,224,3)="ENTER 'Y' TO SUPRESS THE SENDING OF A BULLETIN"
^DD(19,224,21,0)="^^4^4^2891130^"
^DD(19,224,21,1,0)="If this field contains a 'Y' no bulletin will be fired when a server"
^DD(19,224,21,2,0)="request is recieved.  The default is to send a bulletin.  If there is"
^DD(19,224,21,3,0)="no bulletin in field #220 (SERVER BULLETIN) then the default bulletin"
^DD(19,224,21,4,0)="XQSERVER is fired off."
^DD(19,224,"DT")="2891130"
^DD(19,225,0)="SERVER REPLY^S^N:NO REPLY (DEFAULT);E:REPLY ON ERROR ONLY;R:SEND REPLY IN ALL CASES;^220;6^Q"
^DD(19,225,3)="N=NO REPLY, E=REPLY ON ERROR ONLY, R=SEND REPLY"
^DD(19,225,21,0)="^^6^6^2891130^"
^DD(19,225,21,1,0)="This field controls the transmission of replies to server requests via"
^DD(19,225,21,2,0)="network mail.  If the field contains 'R' a reply will be transmitted to"
^DD(19,225,21,3,0)="the sender of the server request.  If the field contains an 'E' a network"
^DD(19,225,21,4,0)="reply will be transmitted only in the event that an error was trapped"
^DD(19,225,21,5,0)="during the attemp to run a server option, Entry or Exit Actions, or the"
^DD(19,225,21,6,0)="routine associated with a server option."
^DD(19,225,"DT")="2891130"
^DD(19,226,0)="SAVE REQUEST^S^0:Do not save request;1:Save request in Postmaster basket;^220;7^Q"
^DD(19,226,3)="A '1' in this field will cause the message to be entered in mail basket for long-term storage."
^DD(19,226,21,0)="^^3^3^2920324^"
^DD(19,226,21,1,0)="If there is a 1 in this field or if this field is null, then the server"
^DD(19,226,21,2,0)="request message is saved in a mailbox for the Postmaster that is named"
^DD(19,226,21,3,0)="""S.""option_name."
^DD(19,226,"DT")="2920204"
^DD(19,227,0)="SERVER DEVICE^P3.5^%ZIS(1,^220;8^Q"
^DD(19,227,3)="Enter the name of a resource in the Device File"
^DD(19,227,"DT")="2931116"
^DD(19,228,0)="ZTSK RETENTION DAYS^NJ3,0^^220;9^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(19,228,3)="Number of days (1 to 365) task will be retained in ^ZTSK (default = 14 days)."
^DD(19,228,21,0)="^^5^5^2961015^^^"
^DD(19,228,21,1,0)="This is a number between 1 and 365 to incicate the number of days that a "
^DD(19,228,21,2,0)="server task should be retained by Task Manager in ^ZTSK.  The default"
^DD(19,228,21,3,0)="is 14 days if nothing is entered in this field.  For long-term retention"
^DD(19,228,21,4,0)="see field 226 which allows you to save the server message in a Postmaster"
^DD(19,228,21,5,0)="mailbox."
^DD(19,228,"DT")="2961015"
^DD(19,300,0)="ICON^F^^W;1^K:$L(X)>30!($L(X)<3) X"
^DD(19,300,3)="Enter the name of a file containing the icon for this window option."
^DD(19,300,"DT")="2940713"
^DD(19,301,0)="TITLE^F^^W;2^K:$L(X)>25!($L(X)<3) X"
^DD(19,301,3)="Answer must be 3-25 characters in length."
^DD(19,301,"DT")="2940805"
^DD(19,320,0)="RPC^19.05P^^RPC;0"
^DD(19,320,23,0)="^^2^2^2960108^^^"
^DD(19,320,23,1,0)="This field contains a pointer to the Remote Procedure file for an RPC"
^DD(19,320,23,2,0)="registered to this option."
^DD(19,1613,0)="PRIMARY MENU^FX^^1613;1^K:$L(X)>77!($L(X)<3)!($P(^DIC(19,DA,0),U,4)'=""M"") X"
^DD(19,1613,3)="Answer with a User description, if this menu could be assigned as a 'Primary Menu Option'"
^DD(19,1613,21,0)="^^3^3^2850729^^^"
^DD(19,1613,21,1,0)="This field will have a value only if the Option is a 'high-level' menu"
^DD(19,1613,21,2,0)="Option, which could be assigned to a typical user.  For example, the"
^DD(19,1613,21,3,0)="value of this field might be ""PHARMACIST"", or ""ADMISSIONS CLERK"""
^DD(19,1613,"DT")="2850225"
^DD(19,1840,0)="PROTECTED VARIABLES^FX^^NOKILL;1^K:$L(X)>245!($L(X)<1)!(X["" "") X S X=""N ""_X D ^DIM S:$D(X) X=$E(X,3,999)"
^DD(19,1840,3)="Answer must be a list of variables. Limit 245 char."
^DD(19,1840,4)="W !,""Like:"",!,""DUZ,DTIME,DT"""
^DD(19,1840,21,0)="^^5^5^2950215^^"
^DD(19,1840,21,1,0)="This field holds a list of variables that need to be protected"
^DD(19,1840,21,2,0)="when another package call KILL^XUSCLEAN.  These should all be"
^DD(19,1840,21,3,0)="documented package wide variables."
^DD(19,1840,21,4,0)="The format is that of a list of variable names separated by commas."
^DD(19,1840,21,5,0)="i.e. DUZ,DTIME,DT"
^DD(19,1840,23,0)="^^1^1^2950215^"
^DD(19,1840,23,1,0)="This list is used as the indirect argument to a NEW command."
^DD(19,1840,"DT")="2950215"
^DD(19,1916,0)="*SPECIAL QUEUEING^SX^S:STARTUP;^1916;1^D IT1916^XUTMG19"
^DD(19,1916,1,0)="^.1"
^DD(19,1916,1,1,0)="19^ASTARTUP^MUMPS"
^DD(19,1916,1,1,1)="Q"
^DD(19,1916,1,1,2)="Q"
^DD(19,1916,1,1,"%D",0)="^^2^2^2940714^"
^DD(19,1916,1,1,"%D",1,0)="This cross-reference causes the updating of the option as a startup option to "
^DD(19,1916,1,1,"%D",2,0)="be started when the system is started."
^DD(19,1916,1,1,"DT")="2940714"
^DD(19,1916,3)="SHOULD NOT BE ANSWERED UNLESS THIS IS A STARTUP (BOOT-TIME) ROUTINE!!"
^DD(19,1916,21,0)="^^1^1^2950103^^^^"
^DD(19,1916,21,1,0)="This field is OBSOLETE,  Please use the new Option scheduling File."
^DD(19,1916,"DT")="2940714"
^DD(19,"B","*DEVICE FOR QUEUED JOB OUTPUT",201)=""
^DD(19,"B","*DIE(W)",54)=""
^DD(19,"B","*DR()",52)=""
^DD(19,"B","*ORDER CANCEL ACTION",100.1)=""
^DD(19,"B","*ORDER PRINT ACTION",100)=""
^DD(19,"B","*ORDER PURGE ACTION",100.2)=""
^DD(19,"B","*QUEUED TO RUN AT WHAT TIME",200)=""
^DD(19,"B","*QUEUED TO RUN ON VOLUME SET",203)=""
^DD(19,"B","*RESCHEDULING FREQUENCY",202)=""
^DD(19,"B","*SPECIAL QUEUEING",1916)=""
^DD(19,"B","BY",64)=""
^DD(19,"B","BY(0)",76)=""
^DD(19,"B","CREATOR",3.6)=""
^DD(19,"B","D.",36)=""
^DD(19,"B","DCOPIES",68)=""
^DD(19,"B","DDSFILE",41)=""
^DD(19,"B","DDSFILE(1)",42)=""
^DD(19,"B","DDSPAGE",43)=""
^DD(19,"B","DDSPARM",44)=""
^DD(19,"B","DELEGABLE",13)=""
^DD(19,"B","DESCRIPTION",3.5)=""
^DD(19,"B","DHD",67)=""
^DD(19,"B","DHIT",71)=""
^DD(19,"B","DIASKHD",79)=""
^DD(19,"B","DIC {DIC}",30)=""
^DD(19,"B","DIC {DIP}",60)=""
^DD(19,"B","DIC {DIQ}",80)=""
^DD(19,"B","DIC(0)",31)=""
^DD(19,"B","DIC(A)",32)=""
^DD(19,"B","DIC(B)",33)=""
^DD(19,"B","DIC(S)",34)=""
^DD(19,"B","DIC(W)",35)=""
^DD(19,"B","DIE",50)=""
^DD(19,"B","DIOBEG",72)=""
^DD(19,"B","DIOEND",73)=""
^DD(19,"B","DIPCRIT",78)=""
^DD(19,"B","DIQ(0)",82)=""
^DD(19,"B","DIS(0)",69)=""
^DD(19,"B","DIS(1)",69.1)=""
^DD(19,"B","DIS(2)",69.2)=""
^DD(19,"B","DIS(3)",69.3)=""
^DD(19,"B","DISPAR(0,N)",76.4)=""
^DD(19,"B","DISPLAY OPTION?",11)=""
^DD(19,"B","DISTEMP",79.5)=""
^DD(19,"B","DISUPNO",77)=""
^DD(19,"B","DR {DIE}",51)=""
^DD(19,"B","DR {DIQ}",81)=""
^DD(19,"B","DR{DDS}",40)=""
^DD(19,"B","E ACTION PRESENT",14)=""
^DD(19,"B","ENTRY ACTION",20)=""
^DD(19,"B","EXIT ACTION",15)=""
^DD(19,"B","FLDS",63)=""
^DD(19,"B","FR",65)=""
^DD(19,"B","FR(0,N)",76.2)=""
^DD(19,"B","HEADER",26)=""
^DD(19,"B","HEADER PRESENT?",.26)=""
^DD(19,"B","HELP FRAME",3.7)=""
^DD(19,"B","ICON",300)=""
^DD(19,"B","INDEPENDENTLY INVOCABLE",110)=""
^DD(19,"B","IOP",70)=""
^DD(19,"B","Independently Invocable",110)="1"
^DD(19,"B","KEEP FROM DELETING",209.2)=""
^DD(19,"B","L(0)",76.1)=""
^DD(19,"B","L.",62)=""
^DD(19,"B","LOCK",3)=""
^DD(19,"B","MENU",10)=""
^DD(19,"B","MENU TEXT",1)=""
^DD(19,"B","NAME",.01)=""
^DD(19,"B","NO UP-ARROW",53)=""
^DD(19,"B","OUT OF ORDER MESSAGE",2)=""
^DD(19,"B","OUTPUT RESTRICTED?",3.93)=""
^DD(19,"B","PACKAGE",12)=""
^DD(19,"B","PERMITTED DEVICE",3.96)=""
^DD(19,"B","PG",61)=""
^DD(19,"B","PRIMARY MENU",1613)=""
^DD(19,"B","PRIORITY",3.8)=""
^DD(19,"B","PROHIBITED TIMES",3.9)=""
^DD(19,"B","PROTECTED VARIABLES",1840)=""
^DD(19,"B","QUEUING REQUIRED",3.92)=""
^DD(19,"B","RESTRICT DEVICES?",3.95)=""
^DD(19,"B","REV KEY PRESENT",.16)=""
^DD(19,"B","REVERSE/NEGATIVE LOCK",3.01)=""
^DD(19,"B","ROUTINE",25)=""
^DD(19,"B","RPC",320)=""
^DD(19,"B","SAVE REQUEST",226)=""
^DD(19,"B","SCHEDULING RECOMMENDED",209)=""
^DD(19,"B","SELECT FILE IN DIC",30)="1"
^DD(19,"B","SERVER ACTION",221)=""
^DD(19,"B","SERVER AUDIT",223)=""
^DD(19,"B","SERVER BULLETIN",220)=""
^DD(19,"B","SERVER DEVICE",227)=""
^DD(19,"B","SERVER MAIL GROUP",222)=""
^DD(19,"B","SERVER REPLY",225)=""
^DD(19,"B","SUPRESS BULLETIN",224)=""
^DD(19,"B","SUPRESS DEVICE PROMPT",83)=""
^DD(19,"B","Short Menu Text",10.1)=""
^DD(19,"B","THE TYPE OF OPTION",4)="1"
^DD(19,"B","TIMES/DAYS PROHIBITED",3.91)=""
^DD(19,"B","TIMESTAMP",99)=""
^DD(19,"B","TIMESTAMP OF PRIMARY MENU",99.1)=""
^DD(19,"B","TITLE",301)=""
^DD(19,"B","TO",66)=""
^DD(19,"B","TO(0,N)",76.3)=""
^DD(19,"B","TYPE",4)=""
^DD(19,"B","UPPERCASE MENU TEXT",1.1)=""
^DD(19,"B","WINDOW",24)=""
^DD(19,"B","X ACTION PRESENT",.15)=""
^DD(19,"B","XQUIT EXECUTABLE",22)=""
^DD(19,"B","XQUIT MESSAGE",21)=""
^DD(19,"B","ZTSK RETENTION DAYS",228)=""
^DD(19,"GL",0,1,.01)=""
^DD(19,"GL",0,2,1)=""
^DD(19,"GL",0,3,2)=""
^DD(19,"GL",0,4,4)=""
^DD(19,"GL",0,5,3.6)=""
^DD(19,"GL",0,6,3)=""
^DD(19,"GL",0,7,3.7)=""
^DD(19,"GL",0,8,3.8)=""
^DD(19,"GL",0,9,3.9)=""
^DD(19,"GL",0,10,3.95)=""
^DD(19,"GL",0,11,11)=""
^DD(19,"GL",0,12,12)=""
^DD(19,"GL",0,13,13)=""
^DD(19,"GL",0,14,14)=""
^DD(19,"GL",0,15,.15)=""
^DD(19,"GL",0,16,.16)=""
^DD(19,"GL",0,17,.26)=""
^DD(19,"GL",0,18,3.93)=""
^DD(19,"GL",1,0,3.5)=""
^DD(19,"GL",2,1,110)=""
^DD(19,"GL",3,1,3.01)=""
^DD(19,"GL",3.91,0,3.91)=""
^DD(19,"GL",3.92,0,3.92)=""
^DD(19,"GL",3.96,0,3.96)=""
^DD(19,"GL",10,0,10)=""
^DD(19,"GL",10.1,1,10.1)=""
^DD(19,"GL",15,"E1,245",15)=""
^DD(19,"GL",20,"E1,245",20)=""
^DD(19,"GL",21,0,21)=""
^DD(19,"GL",22,"E1,245",22)=""
^DD(19,"GL",24,1,24)=""
^DD(19,"GL",25,"E1,245",25)=""
^DD(19,"GL",26,"E1,245",26)=""
^DD(19,"GL",30,"E1,64",30)=""
^DD(19,"GL",31,"E1,9",31)=""
^DD(19,"GL",32,"E1,245",32)=""
^DD(19,"GL",33,"E1,245",33)=""
^DD(19,"GL",34,"E1,245",34)=""
^DD(19,"GL",35,"E1,245",35)=""
^DD(19,"GL",36,"E1,245",36)=""
^DD(19,"GL",40,1,40)=""
^DD(19,"GL",41,1,41)=""
^DD(19,"GL",42,1,42)=""
^DD(19,"GL",43,1,43)=""
^DD(19,"GL",43,2,44)=""
^DD(19,"GL",50,"E1,64",50)=""
^DD(19,"GL",51,"E1,245",51)=""
^DD(19,"GL",52,"E1,245",52)=""
^DD(19,"GL",53,1,53)=""
^DD(19,"GL",54,"E1,245",54)=""
^DD(19,"GL",60,"E1,64",60)=""
^DD(19,"GL",61,1,61)=""
^DD(19,"GL",62,"E1,245",62)=""
^DD(19,"GL",63,"E1,245",63)=""
^DD(19,"GL",64,"E1,245",64)=""
^DD(19,"GL",65,"E1,245",65)=""
^DD(19,"GL",66,"E1,245",66)=""
^DD(19,"GL",67,"E1,245",67)=""
^DD(19,"GL",68,1,68)=""
^DD(19,"GL",69,"E1,245",69)=""
^DD(19,"GL",69.1,"E1,245",69.1)=""
^DD(19,"GL",69.2,"E1,245",69.2)=""
^DD(19,"GL",69.3,"E1,245",69.3)=""
^DD(19,"GL",70,1,70)=""
^DD(19,"GL",71,"E1,245",71)=""
^DD(19,"GL",72,"E1,245",72)=""
^DD(19,"GL",73,"E1,245",73)=""
^DD(19,"GL",76,1,76)=""
^DD(19,"GL",79,1,79)=""
^DD(19,"GL",79,2,77)=""
^DD(19,"GL",79,3,78)=""
^DD(19,"GL",79,4,79.5)=""
^DD(19,"GL",79,5,76.1)=""
^DD(19,"GL",80,"E1,64",80)=""
^DD(19,"GL",81,"E1,245",81)=""
^DD(19,"GL",82,"E1,245",82)=""
^DD(19,"GL",83,1,83)=""
^DD(19,"GL",99,1,99)=""
^DD(19,"GL",99.1,1,99.1)=""
^DD(19,"GL",100,"E1,245",100)=""
^DD(19,"GL",100.1,"E1,245",100.1)=""
^DD(19,"GL",100.2,"E1,245",100.2)=""
^DD(19,"GL",200,1,200)=""
^DD(19,"GL",200,2,201)=""
^DD(19,"GL",200,3,202)=""
^DD(19,"GL",200,4,203)=""
^DD(19,"GL",200.9,1,209)=""
^DD(19,"GL",200.9,2,209.2)=""
^DD(19,"GL",220,1,220)=""
^DD(19,"GL",220,2,221)=""
^DD(19,"GL",220,3,222)=""
^DD(19,"GL",220,4,223)=""
^DD(19,"GL",220,5,224)=""
^DD(19,"GL",220,6,225)=""
^DD(19,"GL",220,7,226)=""
^DD(19,"GL",220,8,227)=""
^DD(19,"GL",220,9,228)=""
^DD(19,"GL",1613,1,1613)=""
^DD(19,"GL",1916,1,1916)=""
^DD(19,"GL","FROM",0,76.2)=""
^DD(19,"GL","NOKILL",1,1840)=""
^DD(19,"GL","RPC",0,320)=""
^DD(19,"GL","SUB",0,76.4)=""
^DD(19,"GL","TO",0,76.3)=""
^DD(19,"GL","U",1,1.1)=""
^DD(19,"GL","W",1,300)=""
^DD(19,"GL","W",2,301)=""
^DD(19,"GR","V21",76.1,1)=""
^DD(19,"GR","V21",76.2,1)=""
^DD(19,"GR","V21",76.3,1)=""
^DD(19,"GR","V21",76.4,1)=""
^DD(19,"GR","V21",77,1)=""
^DD(19,"GR","V21",78,1)=""
^DD(19,"GR","V21",79.5,1)=""
^DD(19,"GR","V21X",76,1)=""
^DD(19,"IX",.01)=""
^DD(19,"IX",.15)=""
^DD(19,"IX",1)=""
^DD(19,"IX",1.1)=""
^DD(19,"IX",2)=""
^DD(19,"IX",3)=""
^DD(19,"IX",3.01)=""
^DD(19,"IX",3.7)=""
^DD(19,"IX",3.8)=""
^DD(19,"IX",3.9)=""
^DD(19,"IX",3.95)=""
^DD(19,"IX",4)=""
^DD(19,"IX",14)=""
^DD(19,"IX",15)=""
^DD(19,"IX",20)=""
^DD(19,"IX",26)=""
^DD(19,"IX",200)=""
^DD(19,"IX",201)=""
^DD(19,"IX",203)=""
^DD(19,"IX",1916)=""
^DD(19,"RQ",.01)=""
^DD(19,"RQ",1)=""
^DD(19,"RQ",4)=""
^DD(19,"SB",19.01,10)=""
^DD(19,"SB",19.02,76.2)=""
^DD(19,"SB",19.021,21)=""
^DD(19,"SB",19.03,76.3)=""
^DD(19,"SB",19.04,76.4)=""
^DD(19,"SB",19.05,320)=""
^DD(19,"SB",19.06,3.5)=""
^DD(19,"SB",19.391,3.91)=""
^DD(19,"SB",19.392,3.92)=""
^DD(19,"SB",19.396,3.96)=""
^DD(19.01,0)="MENU SUB-FIELD^NL^3^3"
^DD(19.01,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(19.01,0,"IX","AOK",19.01,3)=""
^DD(19.01,0,"IX","B",19.01,.01)=""
^DD(19.01,0,"IX","C",19.01,2)=""
^DD(19.01,0,"NM","MENU")=""
^DD(19.01,0,"UP")="19"
^DD(19.01,.01,0)="ITEM^M*P19X^DIC(19,^0;1^S DIC(""S"")=""D CK^XQ7"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(19.01,.01,.1)="The items which will appear on this menu"
^DD(19.01,.01,1,0)="^.1"
^DD(19.01,.01,1,2,0)="19.01^B"
^DD(19.01,.01,1,2,1)="S ^DIC(19,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(19.01,.01,1,2,2)="K ^DIC(19,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(19.01,.01,1,3,0)="19^AD"
^DD(19.01,.01,1,3,1)="S ^DIC(19,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(19.01,.01,1,3,2)="K ^DIC(19,""AD"",$E(X,1,30),DA(1),DA)"
^DD(19.01,.01,1,4,0)="19^AOE^MUMPS"
^DD(19.01,.01,1,4,1)="D REDOXI^XQ7"
^DD(19.01,.01,1,4,2)="D REDOXD^XQ7"
^DD(19.01,.01,1,4,"%D",0)="^^3^3^2920519"
^DD(19.01,.01,1,4,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19.01,.01,1,4,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19.01,.01,1,4,"%D",3,0)="correctly updated."
^DD(19.01,.01,12)="A USER CAN ASSIGN A 'LOCKED' MENU ONLY IF HE HAS THAT LOCK"
^DD(19.01,.01,12.1)="S DIC(""S"")=""D CK^XQ7"""
^DD(19.01,.01,21,0)="^^1^1^2890106^^^"
^DD(19.01,.01,21,1,0)="The name of an Option which will appear on this menu."
^DD(19.01,.01,"AUDIT")=""
^DD(19.01,.01,"DT")="2870810"
^DD(19.01,2,0)="SYNONYM^FX^^0;2^K:X[""""""""!($A(X)=45)!(X=""0"") X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(19.01,2,1,0)="^.1"
^DD(19.01,2,1,2,0)="19.01^C"
^DD(19.01,2,1,2,1)="S ^DIC(19,DA(1),10,""C"",$E(X,1,30),DA)="""""
^DD(19.01,2,1,2,2)="K ^DIC(19,DA(1),10,""C"",$E(X,1,30),DA)"
^DD(19.01,2,1,3,0)="19^AOF^MUMPS"
^DD(19.01,2,1,3,1)="D REDOXS^XQ7"
^DD(19.01,2,1,3,2)="D REDOXS^XQ7"
^DD(19.01,2,1,3,"%D",0)="^^3^3^2920519"
^DD(19.01,2,1,3,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19.01,2,1,3,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19.01,2,1,3,"%D",3,0)="correctly updated."
^DD(19.01,2,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(19.01,2,21,0)="^^3^3^2861219^^"
^DD(19.01,2,21,1,0)="An abbreviation which will appear to the left of the menu text"
^DD(19.01,2,21,2,0)="on the display of a menu.  Options are selectable by synonyms"
^DD(19.01,2,21,3,0)="as well as menu text."
^DD(19.01,2,"DT")="2861219"
^DD(19.01,3,0)="DISPLAY ORDER^NJ5,2^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(19.01,3,1,0)="^.1"
^DD(19.01,3,1,1,0)="19.01^AOK^MUMPS"
^DD(19.01,3,1,1,1)="D REDOXZ^XQ7"
^DD(19.01,3,1,1,2)="D REDOXZ^XQ7"
^DD(19.01,3,1,1,"%D",0)="^^3^3^2920519"
^DD(19.01,3,1,1,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19.01,3,1,1,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19.01,3,1,1,"%D",3,0)="correctly updated."
^DD(19.01,3,3)="TYPE A NUMBER BETWEEN 1 AND 99"
^DD(19.01,3,21,0)="^^3^3^2860130^"
^DD(19.01,3,21,1,0)="The field determines the order in which the items of a menu appear"
^DD(19.01,3,21,2,0)="when displayed. If this field is entered, it takes precedence over"
^DD(19.01,3,21,3,0)="the order determined by the synonyms."
^DD(19.01,3,"DT")="2860131"
^DD(19.01,"B","DISPLAY ORDER",3)=""
^DD(19.01,"B","ITEM",.01)=""
^DD(19.01,"B","SYNONYM",2)=""
^DD(19.01,"GL",0,1,.01)=""
^DD(19.01,"GL",0,2,2)=""
^DD(19.01,"GL",0,3,3)=""
^DD(19.01,"IX",.01)=""
^DD(19.01,"IX",2)=""
^DD(19.01,"IX",3)=""
^DD(19.02,0)="FR(0,N) SUB-FIELD^^1^2"
^DD(19.02,0,"DT")="2931020"
^DD(19.02,0,"IX","B",19.02,.01)=""
^DD(19.02,0,"NM","FR(0,N)")=""
^DD(19.02,0,"UP")="19"
^DD(19.02,.01,0)="SUBSCRIPT LEVEL NUMBER^MNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(19.02,.01,1,0)="^.1"
^DD(19.02,.01,1,1,0)="19.02^B"
^DD(19.02,.01,1,1,1)="S ^DIC(19,DA(1),""FROM"",""B"",$E(X,1,30),DA)="""""
^DD(19.02,.01,1,1,2)="K ^DIC(19,DA(1),""FROM"",""B"",$E(X,1,30),DA)"
^DD(19.02,.01,3)="Enter the subscript level number 'N', associated with the 'Nth' subscript in the BY(0) cross-reference or global.  Used to set up FR(0,N) input variable to the print routine EN1^DIP"
^DD(19.02,.01,20,0)="^.3LA^1^1"
^DD(19.02,.01,20,1,0)="V21"
^DD(19.02,.01,21,0)="^^4^4^2940915^"
^DD(19.02,.01,21,1,0)="Number equal to one of the ""N"" subscripts that FileMan must sort through"
^DD(19.02,.01,21,2,0)="on the global or cross-reference defined by the BY(0) input variable to"
^DD(19.02,.01,21,3,0)="the FileMan print routine, EN1^DIP. Used to set an entry into the FR(0,N)"
^DD(19.02,.01,21,4,0)="input array (sort FROM value for the Nth subscript)."
^DD(19.02,.01,23,0)="^^6^6^2940915^^^"
^DD(19.02,.01,23,1,0)="This field should only be filled out if BY(0) exists, but is not required."
^DD(19.02,.01,23,2,0)=" If the field is filled in, then it should be used as the second"
^DD(19.02,.01,23,3,0)="subscript, ""N"", when setting up the FR(0,N) variable before a call to"
^DD(19.02,.01,23,4,0)="EN1^DIP.  FR(0,N) will be set to the second piece of this node (the FROM"
^DD(19.02,.01,23,5,0)="VALUE).  Since the .01 field of this multiple is DINUMED, the record"
^DD(19.02,.01,23,6,0)="number will be equal to this .01 field."
^DD(19.02,.01,"DT")="2931020"
^DD(19.02,1,0)="FROM VALUE^F^^0;2^K:$L(X)>62!($L(X)<1) X"
^DD(19.02,1,3)="Enter the value that you want to START WITH when sorting through this subscript.  Answer must be 1-62 characters in length."
^DD(19.02,1,20,0)="^.3LA^1^1"
^DD(19.02,1,20,1,0)="V21"
^DD(19.02,1,21,0)="^^8^8^2931018^^^^"
^DD(19.02,1,21,1,0)="This optional field can be filled out for any of the ""N"" subscripts that"
^DD(19.02,1,21,2,0)="FileMan must sort through on the global defined in BY(0).  This field only"
^DD(19.02,1,21,3,0)="has meaning when something has been defined in BY(0), and it indicates the"
^DD(19.02,1,21,4,0)="""START WITH"" value for subscript ""N"".  For example, when FileMan builds"
^DD(19.02,1,21,5,0)="the code for sorting through a cross-reference defined in BY(0), if an"
^DD(19.02,1,21,6,0)="entry exists in the first multiple for this field, the value of this field"
^DD(19.02,1,21,7,0)="will be used as the starting point for sorting on the first variable"
^DD(19.02,1,21,8,0)="subscript in the cross-reference."
^DD(19.02,1,23,0)="^^4^4^2931015^^^^"
^DD(19.02,1,23,1,0)="This field should only be filled out if BY(0) exists, but is not"
^DD(19.02,1,23,2,0)="required.  If a record exists, for example, in record 1 of this"
^DD(19.02,1,23,3,0)="multiple, then FR(0,1) should be set to the contents of this field"
^DD(19.02,1,23,4,0)="before calling EN1^DIP."
^DD(19.02,1,"DT")="2931013"
^DD(19.02,"B","FROM VALUE",1)=""
^DD(19.02,"B","SUBSCRIPT LEVEL NUMBER",.01)=""
^DD(19.02,"GL",0,1,.01)=""
^DD(19.02,"GL",0,2,1)=""
^DD(19.02,"GR","V21",.01,1)=""
^DD(19.02,"GR","V21",1,1)=""
^DD(19.02,"IX",.01)=""
^DD(19.021,0)="XQUIT MESSAGE SUB-FIELD^^.01^1"
^DD(19.021,0,"DT")="2971007"
^DD(19.021,0,"NM","XQUIT MESSAGE")=" "
^DD(19.021,0,"UP")="19"
^DD(19.021,.01,0)="XQUIT MESSAGE^W^^0;1^Q"
^DD(19.021,.01,3)="Enter the message to be given when XQUIT stops the user."
^DD(19.021,.01,21,0)="^^4^4^2971007^"
^DD(19.021,.01,21,1,0)="     This word processing field should contain the message that the"
^DD(19.021,.01,21,2,0)="developer wants the menu system to display on the user's screen when"
^DD(19.021,.01,21,3,0)="normal progress to a target options is halted because the variable XQUIT"
^DD(19.021,.01,21,4,0)="has been encountered after the execution of the Entry Action (field 20)."
^DD(19.021,.01,"DT")="2971007"
^DD(19.021,"B","XQUIT MESSAGE",.01)=""
^DD(19.021,"GL",0,1,.01)=""
^DD(19.03,0)="TO(0,N) SUB-FIELD^^1^2"
^DD(19.03,0,"DT")="2931020"
^DD(19.03,0,"IX","B",19.03,.01)=""
^DD(19.03,0,"NM","TO(0,N)")=""
^DD(19.03,0,"UP")="19"
^DD(19.03,.01,0)="SUBSCRIPT LEVEL NUMBER^MNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(19.03,.01,1,0)="^.1"
^DD(19.03,.01,1,1,0)="19.03^B"
^DD(19.03,.01,1,1,1)="S ^DIC(19,DA(1),""TO"",""B"",$E(X,1,30),DA)="""""
^DD(19.03,.01,1,1,2)="K ^DIC(19,DA(1),""TO"",""B"",$E(X,1,30),DA)"
^DD(19.03,.01,3)="Enter the subscript level number 'N', associated with the 'Nth' subscript in the BY(0) cross-reference or global.  Used to set up TO(0,N) input variable to the print routine EN1^DIP"
^DD(19.03,.01,20,0)="^.3LA^1^1"
^DD(19.03,.01,20,1,0)="V21"
^DD(19.03,.01,21,0)="^^4^4^2940915^"
^DD(19.03,.01,21,1,0)="Number equal to one of the ""N"" subscripts that FileMan must sort through "
^DD(19.03,.01,21,2,0)="on the global or cross-reference defined by the BY(0) input variable to"
^DD(19.03,.01,21,3,0)="the FileMan print routine, EN1^DIP. Used to set an entry into the TO(0,N)"
^DD(19.03,.01,21,4,0)="input array (sort TO value for the Nth subscript). "
^DD(19.03,.01,23,0)="^^6^6^2940915^^"
^DD(19.03,.01,23,1,0)="This field should only be filled out if BY(0) exists, but is not required."
^DD(19.03,.01,23,2,0)=" If the field is filled in, then it should be used as the second"
^DD(19.03,.01,23,3,0)="subscript, ""N"", when setting up the TO(0,N) variable before a call to"
^DD(19.03,.01,23,4,0)="EN1^DIP.  TO(0,N) will be set to the second piece of this node (the TO"
^DD(19.03,.01,23,5,0)="VALUE).  Since the .01 field of this multiple is DINUMED, the record"
^DD(19.03,.01,23,6,0)="number will be equal to this .01 field."
^DD(19.03,.01,"DT")="2931020"
^DD(19.03,1,0)="TO VALUE^F^^0;2^K:$L(X)>62!($L(X)<1) X"
^DD(19.03,1,3)="Enter the value that you want to GO TO when sorting through this subscript.  Answer must be 1-62 characters in length."
^DD(19.03,1,20,0)="^.3LA^1^1"
^DD(19.03,1,20,1,0)="V21"
^DD(19.03,1,21,0)="^^8^8^2931018^^"
^DD(19.03,1,21,1,0)="This optional field can be filled out for any of the ""N"" subscripts that"
^DD(19.03,1,21,2,0)="FileMan must sort through on the global defined in BY(0).  This field only"
^DD(19.03,1,21,3,0)="has meaning when something has been defined in BY(0), and it indicates the"
^DD(19.03,1,21,4,0)="""GO TO"" value for subscript ""N"".  For example, when FileMan builds the"
^DD(19.03,1,21,5,0)="code for sorting through a cross-reference defined in BY(0), if an entry"
^DD(19.03,1,21,6,0)="exists in the first multiple for this field, the value of this field"
^DD(19.03,1,21,7,0)="will be used as the ending point for sorting on the first variable"
^DD(19.03,1,21,8,0)="subscript in the cross-reference."
^DD(19.03,1,23,0)="^^4^4^2931015^"
^DD(19.03,1,23,1,0)="This field should only be filled out if BY(0) exists, but is not"
^DD(19.03,1,23,2,0)="required.  If a record exists, for example, in record 1 of this"
^DD(19.03,1,23,3,0)="multiple, then TO(0,1) should be set to the contents of this field"
^DD(19.03,1,23,4,0)="before calling EN1^DIP."
^DD(19.03,1,"DT")="2931013"
^DD(19.03,"B","SUBSCRIPT LEVEL NUMBER",.01)=""
^DD(19.03,"B","TO VALUE",1)=""
^DD(19.03,"GL",0,1,.01)=""
^DD(19.03,"GL",0,2,1)=""
^DD(19.03,"GR","V21",.01,1)=""
^DD(19.03,"GR","V21",1,1)=""
^DD(19.03,"IX",.01)=""
^DD(19.04,0)="DISPAR(0,N) SUB-FIELD^^3^4"
^DD(19.04,0,"DT")="2931020"
^DD(19.04,0,"IX","B",19.04,.01)=""
^DD(19.04,0,"NM","DISPAR(0,N)")=""
^DD(19.04,0,"UP")="19"
^DD(19.04,.01,0)="SUBSCRIPT LEVEL NUMBER^MNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(19.04,.01,1,0)="^.1"
^DD(19.04,.01,1,1,0)="19.04^B"
^DD(19.04,.01,1,1,1)="S ^DIC(19,DA(1),""SUB"",""B"",$E(X,1,30),DA)="""""
^DD(19.04,.01,1,1,2)="K ^DIC(19,DA(1),""SUB"",""B"",$E(X,1,30),DA)"
^DD(19.04,.01,3)="Enter the subscript level number 'N', associated with the 'Nth' subscript in the BY(0) cross-reference or global.  Used to set up DISPAR(0,N) input variables to the print routine EN1^DIP"
^DD(19.04,.01,20,0)="^.3LA^1^1"
^DD(19.04,.01,20,1,0)="V21"
^DD(19.04,.01,21,0)="^^5^5^2940915^^"
^DD(19.04,.01,21,1,0)="Number equal to one of the ""N"" subscripts that FileMan must sort through"
^DD(19.04,.01,21,2,0)="on the global or cross-reference defined by the BY(0) input variable to"
^DD(19.04,.01,21,3,0)="the FileMan print routine, EN1^DIP. Used to set entries into the"
^DD(19.04,.01,21,4,0)="DIAPAR(0,N) and DIAPAR(0,N,""OUT"") input arrays (subheader control for the"
^DD(19.04,.01,21,5,0)="Nth subscript). "
^DD(19.04,.01,23,0)="^^8^8^2940915^^"
^DD(19.04,.01,23,1,0)="This field should only be filled out if BY(0) exists, but is not required."
^DD(19.04,.01,23,2,0)=" If the field is filled in, then it should be used as the second"
^DD(19.04,.01,23,3,0)="subscript, ""N"", when setting up the DISPAR(0,N) variables before a call to"
^DD(19.04,.01,23,4,0)="EN1^DIP.  DISPAR(0,N) will be set to the second and third pieces of this"
^DD(19.04,.01,23,5,0)="node (STATICTICAL CONTROL CHARACTERS and SUBHEADER FORMAT CHARACTERS"
^DD(19.04,.01,23,6,0)="fields), DISPAR(0,N,""OUT"") will be set to the SUBHEADER OUTPUT TRANSFORM"
^DD(19.04,.01,23,7,0)="field.  Since the .01 field of this multiple is DINUMED, the record number"
^DD(19.04,.01,23,8,0)="will be equal to this .01 field."
^DD(19.04,.01,"DT")="2931020"
^DD(19.04,1,0)="STATISTICAL CONTROL CHARACTERS^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(19.04,1,3)="Enter control characters normally entered BEFORE a sort field when doing a FileMan print.  NOTE: only !, #, + or @ are allowed."
^DD(19.04,1,20,0)="^.3LA^1^1"
^DD(19.04,1,20,1,0)="V21"
^DD(19.04,1,21,0)="^^7^7^2940915^"
^DD(19.04,1,21,1,0)="Statistical control characters for printing the ""Nth"" subscript from the"
^DD(19.04,1,21,2,0)="BY(0) global/cross-reference.  Used to set first piece of DISPAR(0,N)"
^DD(19.04,1,21,3,0)="input variable to the FileMan print, EN1^DIP. If defined, it should"
^DD(19.04,1,21,4,0)="contain any of the three statistical control characters !, #, or + that"
^DD(19.04,1,21,5,0)="are normally entered BEFORE a sort field in the FileMan interactive mode"
^DD(19.04,1,21,6,0)="for printing data.  See the FileMan User's manual section on How to"
^DD(19.04,1,21,7,0)="Display and Print File Data for more information."
^DD(19.04,1,23,0)="^^4^4^2940915^^^^"
^DD(19.04,1,23,1,0)="This field should only be filled out if BY(0) exists, but is not"
^DD(19.04,1,23,2,0)="required.  If a record exists, for example, in record 1 of this"
^DD(19.04,1,23,3,0)="multiple, then the first piece of DISPAR(0,1) should be set to the"
^DD(19.04,1,23,4,0)="contents of this field before calling EN1^DIP."
^DD(19.04,1,"DT")="2931013"
^DD(19.04,2,0)="SUBHEADER FORMAT CHARACTERS^F^^0;3^K:$L(X)>120!($L(X)<1) X"
^DD(19.04,2,3)="Enter control fields normally entered AFTER a sort field when doing a FileMan print.  These control fields control printing of the subheader.  Answer must be 1-120 characters in length."
^DD(19.04,2,20,0)="^.3LA^1^1"
^DD(19.04,2,20,1,0)="V21"
^DD(19.04,2,21,0)="^^8^8^2940915^"
^DD(19.04,2,21,1,0)="Subheader formatting characters for printing the ""Nth"" subscript from the"
^DD(19.04,2,21,2,0)="BY(0) global/cross-reference.  Used to set second piece of DISPAR(0,N)"
^DD(19.04,2,21,3,0)="input variable to the FileMan print, EN1^DIP. If defined, it should"
^DD(19.04,2,21,4,0)="contain any subheader formatting characters that are normally entered"
^DD(19.04,2,21,5,0)="AFTER a sort field in the FileMan interactive mode for printing data.  See"
^DD(19.04,2,21,6,0)="the FileMan User's manual section on How to Display and Print File Data"
^DD(19.04,2,21,7,0)="for more information. (ex. ;C3;""SUBHEADER TITLE:"" to begin printing"
^DD(19.04,2,21,8,0)="subheader in column 3, with a literal caption.)"
^DD(19.04,2,23,0)="^^4^4^2940915^^"
^DD(19.04,2,23,1,0)="This field should only be filled out if BY(0) exists, but is not required."
^DD(19.04,2,23,2,0)=" If a record exists, for example, in record 1 of this multiple, then the"
^DD(19.04,2,23,3,0)="second piece of DISPAR(0,1) should be set to the contents of this field"
^DD(19.04,2,23,4,0)="before calling EN1^DIP."
^DD(19.04,2,"DT")="2931020"
^DD(19.04,3,0)="SUBHEADER OUTPUT TRANSFORM^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19.04,3,3)="Enter Standard MUMPS code that takes untransformed subscript Y from the BY(0) cross-reference, and puts the printable value into Y."
^DD(19.04,3,9)="@"
^DD(19.04,3,20,0)="^.3LA^1^1"
^DD(19.04,3,20,1,0)="V21"
^DD(19.04,3,21,0)="^^6^6^2940915^"
^DD(19.04,3,21,1,0)="Output transform code for printing the ""Nth"" subscript subheader from the"
^DD(19.04,3,21,2,0)="BY(0) global/cross-reference.  Used to set DISPAR(0,N,""OUT"") input"
^DD(19.04,3,21,3,0)="variable to the FileMan print, EN1^DIP. For instance, it could transform"
^DD(19.04,3,21,4,0)="an inverse date into a printable date.  If defined, it should contain"
^DD(19.04,3,21,5,0)="MUMPS code that transforms the internal value of the subscript ""Y"", into"
^DD(19.04,3,21,6,0)="it's external form, also in variable ""Y""."
^DD(19.04,3,23,0)="^^4^4^2940915^^"
^DD(19.04,3,23,1,0)="This field should only be filled out if BY(0) exists, but is not required."
^DD(19.04,3,23,2,0)=" If a record exists, for example, in record 1 of this multiple, then"
^DD(19.04,3,23,3,0)="DISPAR(0,1,""OUT"") should be set to the contents of this field before"
^DD(19.04,3,23,4,0)="calling EN1^DIP."
^DD(19.04,3,"DT")="2931013"
^DD(19.04,"B","STATISTICAL CONTROL CHARACTERS",1)=""
^DD(19.04,"B","SUBHEADER FORMAT CHARACTERS",2)=""
^DD(19.04,"B","SUBHEADER OUTPUT TRANSFORM",3)=""
^DD(19.04,"B","SUBSCRIPT LEVEL NUMBER",.01)=""
^DD(19.04,"GL",0,1,.01)=""
^DD(19.04,"GL",0,2,1)=""
^DD(19.04,"GL",0,3,2)=""
^DD(19.04,"GL",1,"E1,245",3)=""
^DD(19.04,"GR","V21",.01,1)=""
^DD(19.04,"GR","V21",1,1)=""
^DD(19.04,"GR","V21",2,1)=""
^DD(19.04,"GR","V21",3,1)=""
^DD(19.04,"IX",.01)=""
^DD(19.05,0)="RPC SUB-FIELD^^2^3"
^DD(19.05,0,"DT")="2960108"
^DD(19.05,0,"IX","B",19.05,.01)=""
^DD(19.05,0,"NM","RPC")=""
^DD(19.05,0,"UP")="19"
^DD(19.05,.01,0)="RPC^MP8994^XWB(8994,^0;1^Q"
^DD(19.05,.01,1,0)="^.1"
^DD(19.05,.01,1,1,0)="19.05^B"
^DD(19.05,.01,1,1,1)="S ^DIC(19,DA(1),""RPC"",""B"",$E(X,1,30),DA)="""""
^DD(19.05,.01,1,1,2)="K ^DIC(19,DA(1),""RPC"",""B"",$E(X,1,30),DA)"
^DD(19.05,.01,3)="Enter a Remote Procedure registered to this option."
^DD(19.05,.01,21,0)="^^3^3^2951212^"
^DD(19.05,.01,21,1,0)="This subfile is used to register the Remote Procedures registered"
^DD(19.05,.01,21,2,0)="to a particular Broker-type option.  It is a pointer to the"
^DD(19.05,.01,21,3,0)="Remote Procedure File."
^DD(19.05,.01,"DT")="2951212"
^DD(19.05,1,0)="RPCKEY^FX^^0;2^K:$L(X)>30!($L(X)<1) X I $D(X) Q:$D(^DIC(19.1,""B"",X))  W !,*7,""Key name must match exactly with a key in the Security Key File."" K X"
^DD(19.05,1,3)="Answer must be the name of an existing key 1-30 characters in length."
^DD(19.05,1,21,0)="^^3^3^2960108^^^"
^DD(19.05,1,21,1,0)="This field is the free-text name from the Security Key File that will be"
^DD(19.05,1,21,2,0)="checked when this remote procedure call is requested to the broker."
^DD(19.05,1,21,3,0)="If the user does not hold this key then the request will be denied."
^DD(19.05,1,"DT")="2960108"
^DD(19.05,2,0)="RULES^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19.05,2,3)="This is Standard MUMPS code."
^DD(19.05,2,9)="@"
^DD(19.05,2,21,0)="^^4^4^2951212^"
^DD(19.05,2,21,1,0)="This field contains standard M code that will be executed when this"
^DD(19.05,2,21,2,0)="remote procedure call is requested from the broker.  The variable"
^DD(19.05,2,21,3,0)="XQRPCOK is set to 1 and the code is executed. If the value of that"
^DD(19.05,2,21,4,0)="variable is reset to 0 by the RULES code, then the request is denied."
^DD(19.05,2,"DT")="2951212"
^DD(19.05,"B","RPC",.01)=""
^DD(19.05,"B","RPCKEY",1)=""
^DD(19.05,"B","RULES",2)=""
^DD(19.05,"GL",0,1,.01)=""
^DD(19.05,"GL",0,2,1)=""
^DD(19.05,"GL",1,"E1,245",2)=""
^DD(19.05,"IX",.01)=""
^DD(19.06,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(19.06,0,"NM","DESCRIPTION")=""
^DD(19.06,0,"UP")="19"
^DD(19.06,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(19.06,.01,"DT")="2831214"
^DD(19.06,"B","DESCRIPTION",.01)=""
^DD(19.06,"GL",0,1,.01)=""
^DD(19.081,0)="FIELD^^9^11"
^DD(19.081,0,"DDA")="N"
^DD(19.081,0,"DT")="2910618"
^DD(19.081,0,"IX","B",19.081,.01)=""
^DD(19.081,0,"NM","AUDIT LOG FOR OPTIONS")=""
^DD(19.081,0,"VR")="8.0"
^DD(19.081,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(19.081,.001,0)="DATE/TIME^D^^ ^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(19.081,.001,21,0)="^^5^5^2890125^"
^DD(19.081,.001,21,1,0)="Entries in this file are uniquely identified by the precise time when"
^DD(19.081,.001,21,2,0)="the option was accessed.  An entry will be made as specified in the"
^DD(19.081,.001,21,3,0)="Kernel Site Parameters File.  Once the date set in the 'Initiate"
^DD(19.081,.001,21,4,0)="Audit' Field has been reached, this file will be used to maintain a"
^DD(19.081,.001,21,5,0)="log according to the 'Option Audit' flag."
^DD(19.081,.001,"DT")="2870615"
^DD(19.081,.01,0)="OPTION^RP19'^DIC(19,^0;1^Q"
^DD(19.081,.01,1,0)="^.1"
^DD(19.081,.01,1,1,0)="19.081^B"
^DD(19.081,.01,1,1,1)="S ^XUSEC(19,""B"",$E(X,1,30),DA)="""""
^DD(19.081,.01,1,1,2)="K ^XUSEC(19,""B"",$E(X,1,30),DA)"
^DD(19.081,.01,3)=""
^DD(19.081,.01,21,0)="^^1^1^2890125^"
^DD(19.081,.01,21,1,0)="This field indicates the name of the option being audited."
^DD(19.081,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(19.081,1,21,0)="^^1^1^2890125^"
^DD(19.081,1,21,1,0)="This field indicates the name of the user who has accessed the option."
^DD(19.081,1,"DT")="2910618"
^DD(19.081,2,0)="DEVICE^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(19.081,2,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(19.081,2,21,0)="^^1^1^2890125^"
^DD(19.081,2,21,1,0)="This field indicates the device used while the option was accessed."
^DD(19.081,3,0)="JOB^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(19.081,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(19.081,3,21,0)="^^1^1^2890125^"
^DD(19.081,3,21,1,0)="This field records the job number associated with the option access."
^DD(19.081,4,0)="DATE/TIME OF EXIT FROM OPTION^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(19.081,4,21,0)="^^1^1^2890125^"
^DD(19.081,4,21,1,0)="This field marks the time when the user exited from the option."
^DD(19.081,5,0)="CPU^F^^0;6^K:$L(X)>16!($L(X)<1) X"
^DD(19.081,5,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(19.081,5,21,0)="^^1^1^2890125^"
^DD(19.081,5,21,1,0)="This field records the CPU location of the option access."
^DD(19.081,6,0)="MESSAGE NUMBER^NJ9,0^^1;1^K:+X'=X!(X>100000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(19.081,6,3)="Type a Number between 0 and 100000000, 0 Decimal Digits"
^DD(19.081,6,21,0)="^^3^3^2911230^"
^DD(19.081,6,21,1,0)="For a Server-type option this field will contain the message"
^DD(19.081,6,21,2,0)="number in the Message File that activated (or tried to activate)"
^DD(19.081,6,21,3,0)="the server option.  This message is called the 'server request.'"
^DD(19.081,6,"DT")="2890622"
^DD(19.081,7,0)="SENDER^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(19.081,7,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(19.081,7,21,0)="^^4^4^2911230^"
^DD(19.081,7,21,1,0)="For a Server-type option this field will contain the return address"
^DD(19.081,7,21,2,0)="of the person who initiated the server request, that is, the name"
^DD(19.081,7,21,3,0)="of the person who sent the message that activated (or tried to"
^DD(19.081,7,21,4,0)="activate) the option."
^DD(19.081,7,"DT")="2890622"
^DD(19.081,8,0)="SUBJECT^FX^^2;E1,65^K:$L(X)>65!($L(X)<3) X"
^DD(19.081,8,3)="Answer must be 3-65 characters in length."
^DD(19.081,8,21,0)="^^3^3^2911230^"
^DD(19.081,8,21,1,0)="For a Server-type option this field will contain the subject of"
^DD(19.081,8,21,2,0)="the MailMan message that activated (or tried to activate) the"
^DD(19.081,8,21,3,0)="option."
^DD(19.081,8,"DT")="2900122"
^DD(19.081,9,0)="ACTION^F^^3;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19.081,9,3)="Answer must be 1-245 characters in length."
^DD(19.081,9,21,0)="^^3^3^2911230^"
^DD(19.081,9,21,1,0)="For a Server-type option this field will contain the resulting action"
^DD(19.081,9,21,2,0)="of a server request.  In the event of an error, the error will be"
^DD(19.081,9,21,3,0)="trapped by the server software and entered into this field."
^DD(19.081,9,"DT")="2900119"
^DD(19.081,"B","ACTION",9)=""
^DD(19.081,"B","CPU",5)=""
^DD(19.081,"B","DATE/TIME",.001)=""
^DD(19.081,"B","DATE/TIME OF EXIT FROM OPTION",4)=""
^DD(19.081,"B","DEVICE",2)=""
^DD(19.081,"B","JOB",3)=""
^DD(19.081,"B","MESSAGE NUMBER",6)=""
^DD(19.081,"B","OPTION",.01)=""
^DD(19.081,"B","SENDER",7)=""
^DD(19.081,"B","SUBJECT",8)=""
^DD(19.081,"B","USER",1)=""
^DD(19.081,"GL",0,1,.01)=""
^DD(19.081,"GL",0,2,1)=""
^DD(19.081,"GL",0,3,2)=""
^DD(19.081,"GL",0,4,3)=""
^DD(19.081,"GL",0,5,4)=""
^DD(19.081,"GL",0,6,5)=""
^DD(19.081,"GL",1,1,6)=""
^DD(19.081,"GL",1,2,7)=""
^DD(19.081,"GL",2,"E1,65",8)=""
^DD(19.081,"GL",3,"E1,245",9)=""
^DD(19.081,"IX",.01)=""
^DD(19.081,"RQ",.01)=""
^DD(19.1,0)="FIELD^^5^9"
^DD(19.1,0,"DDA")="N"
^DD(19.1,0,"DT")="2940520"
^DD(19.1,0,"IX","AC",19.1,.01)=""
^DD(19.1,0,"IX","B",19.1,.01)=""
^DD(19.1,0,"IX","E",19.1,.02)=""
^DD(19.1,0,"NM","SECURITY KEY")=""
^DD(19.1,0,"PT",19.13,.01)=""
^DD(19.1,0,"PT",19.15,.01)=""
^DD(19.1,0,"PT",68,.9)=""
^DD(19.1,0,"PT",68.2,51)=""
^DD(19.1,0,"PT",72,4)=""
^DD(19.1,0,"PT",101.03,.01)=""
^DD(19.1,0,"PT",200.051,.01)=""
^DD(19.1,0,"PT",200.052,.01)=""
^DD(19.1,0,"PT",991.112,.01)=""
^DD(19.1,0,"VR")="8.0"
^DD(19.1,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(19.1,.01,0)="NAME^RFXI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) D CHKNAME^XQ5 K:$L(X)>27!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(19.1,.01,.1)="This is the name of the key, beginning with the package prefix"
^DD(19.1,.01,1,0)="^.1"
^DD(19.1,.01,1,1,0)="19.1^B"
^DD(19.1,.01,1,1,1)="S ^DIC(19.1,""B"",$E(X,1,30),DA)="""""
^DD(19.1,.01,1,1,2)="K ^DIC(19.1,""B"",$E(X,1,30),DA)"
^DD(19.1,.01,1,2,0)="19.1^AC^MUMPS"
^DD(19.1,.01,1,2,1)="Q"
^DD(19.1,.01,1,2,2)="K ^XUSEC(X),^VA(200,""AK.""_X)"
^DD(19.1,.01,1,2,3)="Cleanup"
^DD(19.1,.01,1,2,"%D",0)="^^6^6^2930128^^^"
^DD(19.1,.01,1,2,"%D",1,0)="This X-ref will clean-up the XUSEC global if a key is removed by"
^DD(19.1,.01,1,2,"%D",2,0)="an app calling DIK directly."
^DD(19.1,.01,1,2,"%D",3,0)="If the UNEDITABLE flag was removed and the KEY name changed it would"
^DD(19.1,.01,1,2,"%D",4,0)="clean-up the old name from XUSEC BUT would not set in the new name."
^DD(19.1,.01,1,2,"%D",5,0)="to do that the MUMPS X-ref on the KEY sub-file of the NEW PERSON file."
^DD(19.1,.01,1,2,"%D",6,0)="will need to be re-indexed."
^DD(19.1,.01,1,2,"DT")="2920122"
^DD(19.1,.01,3)="Enter the name of the key, prefixed with the package code"
^DD(19.1,.01,21,0)="^^8^8^2920109^^"
^DD(19.1,.01,21,1,0)="Each entry in this File is the name of a key that defines some characteristic"
^DD(19.1,.01,21,2,0)="or capability for individual specified users.  The capability might be"
^DD(19.1,.01,21,3,0)="access to some OPTION (file 19) which is permited with the authorization."
^DD(19.1,.01,21,4,0)="Other functionalities (such as allowing scheduling overbook) might"
^DD(19.1,.01,21,5,0)="also be allowed only if the key is held."
^DD(19.1,.01,21,6,0)=" "
^DD(19.1,.01,21,7,0)="Keys are named with the standard package prefix formats; a 2-4"
^DD(19.1,.01,21,8,0)="character package prefix for standard names or Z."
^DD(19.1,.01,"DEL",200,0)="I $D(^VA(200,""AB"",DA)) W ""  Can't delete"""
^DD(19.1,.01,"DT")="2920122"
^DD(19.1,.02,0)="DESCRIPTIVE NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(19.1,.02,1,0)="^.1"
^DD(19.1,.02,1,1,0)="19.1^E^MUMPS"
^DD(19.1,.02,1,1,1)="S %X=X X ""F %=1:1:$L(%X) I $E(%X,%)?1L S %X=$E(%X,1,%-1)_$C($A(%X,%)-32)_$E(%X,%+1,99)"" S ^DIC(19.1,""E"",%X,DA)="""""
^DD(19.1,.02,1,1,2)="S %X=X X ""F %=1:1:$L(%X) I $E(%X,%)?1L S %X=$E(%X,1,%-1)_$C($A(%X,%)-32)_$E(%X,%+1,99)"" K ^DIC(19.1,""E"",%X,DA)"
^DD(19.1,.02,1,1,3)="This is a uppercase only X-ref of the field."
^DD(19.1,.02,1,1,"%D",0)="^^2^2^2890929^"
^DD(19.1,.02,1,1,"%D",1,0)="This is a normal X-ref that has the special code to see that"
^DD(19.1,.02,1,1,"%D",2,0)="the X-ref is in all uppercase for easy lookup."
^DD(19.1,.02,1,1,"DT")="2890929"
^DD(19.1,.02,3)="Answer must be 2-30 characters in length."
^DD(19.1,.02,21,0)="^^2^2^2910219^"
^DD(19.1,.02,21,1,0)="This is a more descriptive name for the KEY than allowed in the namespaced"
^DD(19.1,.02,21,2,0)="name field."
^DD(19.1,.02,"DT")="2890929"
^DD(19.1,.03,0)="PERSON LOOKUP^S^l:LOOKUP;^0;3^Q"
^DD(19.1,.03,3)="Should a X-ref of holders of this key be made for person lookup."
^DD(19.1,.03,21,0)="^^8^8^2920428^"
^DD(19.1,.03,21,1,0)="This field when set to 'lookup' will build a X-ref on the NEW PERSON file"
^DD(19.1,.03,21,2,0)="of all holders of the key.  This will be under a X-ref of 'AK.'_<keyname>"
^DD(19.1,.03,21,3,0)="so that a package can lookup members of a group."
^DD(19.1,.03,21,4,0)=" "
^DD(19.1,.03,21,5,0)="There is a standard SECURITY KEY that will be sent out of 'PROVIDER' with"
^DD(19.1,.03,21,6,0)="the lookup flag set. Then a package can do a lookup of PROVIDER's with the"
^DD(19.1,.03,21,7,0)="following code:"
^DD(19.1,.03,21,8,0)="S DIC=""^VA(200,"",D=""AK.PROVIDER"",DIC(0)=""AEQ"" D IX^DIC"
^DD(19.1,.03,"DT")="2890927"
^DD(19.1,.04,0)="KEEP AT TERMINATE^S^y:YES;n:NO;^0;4^Q"
^DD(19.1,.04,3)="Does the user need to keep this key when terminated."
^DD(19.1,.04,21,0)="^^4^4^2920428^^"
^DD(19.1,.04,21,1,0)="If this field is set to YES (1) then this key will not be removed"
^DD(19.1,.04,21,2,0)="from a user in the New Person file when they are terminated."
^DD(19.1,.04,21,3,0)=" "
^DD(19.1,.04,21,4,0)="One example is the 'PROVIDER' key."
^DD(19.1,.04,"DT")="2910924"
^DD(19.1,.05,0)="SEND TO J2EE^S^0:No;1:Yes;^0;5^Q"
^DD(19.1,.05,21,0)="^^5^5^3050222^"
^DD(19.1,.05,21,1,0)="This field controls if this is a Security Key that should be sent to the "
^DD(19.1,.05,21,2,0)="J2EE application server for temporary role assignment."
^DD(19.1,.05,21,3,0)=" "
^DD(19.1,.05,21,4,0)="If this field is set to 'Yes' then this Security Key can be sent to the "
^DD(19.1,.05,21,5,0)="application server."
^DD(19.1,.05,"DT")="3050222"
^DD(19.1,1,0)="DESCRIPTION^19.11^^1;0"
^DD(19.1,1,21,0)="^^2^2^2851003^"
^DD(19.1,1,21,1,0)="This is a short description of the security key, indicating what the"
^DD(19.1,1,21,2,0)="key locks out, and what class of users should be assigned the key."
^DD(19.1,3,0)="SUBORDINATE KEY^19.13P^^3;0"
^DD(19.1,3,21,0)="^^3^3^2930402^^"
^DD(19.1,3,21,1,0)="Subordinate authorization are ""given"" when the ""master"" authorization"
^DD(19.1,3,21,2,0)="is given.  This allows easier and more efficient delegation"
^DD(19.1,3,21,3,0)="of authorizations."
^DD(19.1,4,0)="GRANTING CONDITION^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(19.1,4,3)="This is Standard MUMPS code."
^DD(19.1,4,9)="@"
^DD(19.1,4,21,0)="^^2^2^2890927^"
^DD(19.1,4,21,1,0)="This is MUMPS code that set $T true if its OK for the person to"
^DD(19.1,4,21,2,0)="be granted this key."
^DD(19.1,4,"DT")="2890927"
^DD(19.1,5,0)="MUTUALLY EXCLUSIVE KEYS^19.15P^^5;0"
^DD(19.1,"B","DESCRIPTION",1)=""
^DD(19.1,"B","DESCRIPTIVE NAME",.02)=""
^DD(19.1,"B","GRANTING CONDITION",4)=""
^DD(19.1,"B","KEEP AT TERMINATE",.04)=""
^DD(19.1,"B","MUTUALLY EXCLUSIVE KEYS",5)=""
^DD(19.1,"B","NAME",.01)=""
^DD(19.1,"B","PERSON LOOKUP",.03)=""
^DD(19.1,"B","SEND TO J2EE",.05)=""
^DD(19.1,"B","SUBORDINATE KEY",3)=""
^DD(19.1,"GL",0,1,.01)=""
^DD(19.1,"GL",0,2,.02)=""
^DD(19.1,"GL",0,3,.03)=""
^DD(19.1,"GL",0,4,.04)=""
^DD(19.1,"GL",0,5,.05)=""
^DD(19.1,"GL",1,0,1)=""
^DD(19.1,"GL",3,0,3)=""
^DD(19.1,"GL",4,"E1,245",4)=""
^DD(19.1,"GL",5,0,5)=""
^DD(19.1,"IX",.01)=""
^DD(19.1,"IX",.02)=""
^DD(19.1,"RQ",.01)=""
^DD(19.1,"SB",19.11,1)=""
^DD(19.1,"SB",19.13,3)=""
^DD(19.1,"SB",19.15,5)=""
^DD(19.11,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(19.11,0,"NM","DESCRIPTION")=""
^DD(19.11,0,"UP")="19.1"
^DD(19.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(19.11,.01,.1)="This is a description of the privileges accorded holders of this key"
^DD(19.11,.01,3)="Enter a description of what privileges the key gives"
^DD(19.11,"B","DESCRIPTION",.01)=""
^DD(19.11,"GL",0,1,.01)=""
^DD(19.13,0)="SUBORDINATE KEY SUB-FIELD^^.01^1"
^DD(19.13,0,"DT")="2920930"
^DD(19.13,0,"IX","B",19.13,.01)=""
^DD(19.13,0,"NM","SUBORDINATE KEY")=""
^DD(19.13,0,"UP")="19.1"
^DD(19.13,.01,0)="SUBORDINATE KEY^M*P19.1'^DIC(19.1,^0;1^S DIC(""S"")=""I $D(^XUSEC(""""XUMGR"""",DUZ))!$S($D(^VA(200,DUZ,52,+Y,0)):$P(^(0),U,4),1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(19.13,.01,1,0)="^.1"
^DD(19.13,.01,1,1,0)="19.13^B"
^DD(19.13,.01,1,1,1)="S ^DIC(19.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(19.13,.01,1,1,2)="K ^DIC(19.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(19.13,.01,3)="A cluster of keys to allow easier key assignment."
^DD(19.13,.01,12)="The person clustering authorizations must have the authority not only to delegate but also the authority to give others the authority to delegate."
^DD(19.13,.01,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""XUMGR"""",DUZ))!$S($D(^VA(200,DUZ,52,+Y,0)):$P(^(0),U,4),1:0)"""
^DD(19.13,.01,21,0)="^^3^3^2930402^"
^DD(19.13,.01,21,1,0)="Subordinate authorization is ""given"" at the same time the ""master"""
^DD(19.13,.01,21,2,0)="authorization is ""given"".  This permits more efficient and easier"
^DD(19.13,.01,21,3,0)="delegation of authority."
^DD(19.13,.01,"DT")="2920930"
^DD(19.13,"B","SUBORDINATE KEY",.01)=""
^DD(19.13,"GL",0,1,.01)=""
^DD(19.13,"IX",.01)=""
^DD(19.15,0)="MUTUALLY EXCLUSIVE KEYS SUB-FIELD^^.01^1"
^DD(19.15,0,"DT")="2940520"
^DD(19.15,0,"IX","B",19.15,.01)=""
^DD(19.15,0,"NM","MUTUALLY EXCLUSIVE KEYS")=""
^DD(19.15,0,"UP")="19.1"
^DD(19.15,.01,0)="MUTUALLY EXCLUSIVE KEYS^MP19.1'^DIC(19.1,^0;1^Q"
^DD(19.15,.01,1,0)="^.1"
^DD(19.15,.01,1,1,0)="19.15^B"
^DD(19.15,.01,1,1,1)="S ^DIC(19.1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(19.15,.01,1,1,2)="K ^DIC(19.1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(19.15,.01,3)="Enter the name of a key that may not be held jointly with this one."
^DD(19.15,.01,"DT")="2940520"
^DD(19.15,"B","MUTUALLY EXCLUSIVE KEYS",.01)=""
^DD(19.15,"GL",0,1,.01)=""
^DD(19.15,"IX",.01)=""
^DD(19.2,0)="FIELD^^99.1^12"
^DD(19.2,0,"DT")="2941020"
^DD(19.2,0,"IX","ASTARTUP",19.2,9)=""
^DD(19.2,0,"IX","AZT",19.2,2)=""
^DD(19.2,0,"IX","AZTIO",19.2,3)=""
^DD(19.2,0,"IX","AZTVOL",19.2,5)=""
^DD(19.2,0,"IX","B",19.2,.01)=""
^DD(19.2,0,"NM","OPTION SCHEDULING")=""
^DD(19.2,0,"VR")="8.0"
^DD(19.2,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(19.2,.01,0)="NAME^R*P19'^DIC(19,^0;1^S DIC(""S"")=""I """"APR""""[$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(19.2,.01,1,0)="^.1"
^DD(19.2,.01,1,1,0)="19.2^B"
^DD(19.2,.01,1,1,1)="S ^DIC(19.2,""B"",$E(X,1,30),DA)="""""
^DD(19.2,.01,1,1,2)="K ^DIC(19.2,""B"",$E(X,1,30),DA)"
^DD(19.2,.01,3)="Enter OPTION to schedule."
^DD(19.2,.01,12)="Only allow Action, Print, and Run type options."
^DD(19.2,.01,12.1)="S DIC(""S"")=""I """"APR""""[$P(^(0),U,4)"""
^DD(19.2,.01,21,0)="^^5^5^2950103^^^"
^DD(19.2,.01,21,1,0)="This field is a pointer to the OPTION file and indicates which"
^DD(19.2,.01,21,2,0)="option is to be scheduled to be run by taskman."
^DD(19.2,.01,21,3,0)=" "
^DD(19.2,.01,21,4,0)="Only options that have the 'Scheduleing Recommended' field set to YES"
^DD(19.2,.01,21,5,0)="can be selected."
^DD(19.2,.01,"DT")="2940309"
^DD(19.2,2,0)="QUEUED TO RUN AT WHAT TIME^DX^^0;2^D IT2^XUTMG19"
^DD(19.2,2,.1)="TIME AT WHICH TASKMAN WILL AUTOMATICALLY START UP THIS OPTION"
^DD(19.2,2,1,0)="^.1"
^DD(19.2,2,1,1,0)="19.2^AZT^MUMPS"
^DD(19.2,2,1,1,1)="Q:$D(DIFROM)  D S2^XUTMG19"
^DD(19.2,2,1,1,2)="Q:$D(DIFROM)  D K2^XUTMG19"
^DD(19.2,2,1,1,3)="SPECIAL TASKMAN CALL"
^DD(19.2,2,1,1,"%D",0)="^^3^3^2940630^"
^DD(19.2,2,1,1,"%D",1,0)="This cross-reference causes the entry or deletion of a value (if it is not "
^DD(19.2,2,1,1,"%D",2,0)="part of a package install) to set or remove the option as a task queued for "
^DD(19.2,2,1,1,"%D",3,0)="the specified time."
^DD(19.2,2,1,1,"DT")="2910220"
^DD(19.2,2,3)="Time must be at least 2 minutes in the future and type run, action, print"
^DD(19.2,2,4)="N % S %(1)=""Changing or deleting this date/time field will re-queue"",%(2)=""or un-queue the Option."" D EN^DDIOL(.%)"
^DD(19.2,2,21,0)="^^5^5^2940630^^^"
^DD(19.2,2,21,1,0)="If this field has a value, the Task Manager will try to run this OPTION"
^DD(19.2,2,21,2,0)="on or after the date/time entered.  This field should NOT have a"
^DD(19.2,2,21,3,0)="value if the OPTION TYPE is MENU, INQUIRY, or EDIT, since it doesn't"
^DD(19.2,2,21,4,0)="make sense to start up automatically a process that requires user"
^DD(19.2,2,21,5,0)="terminal input."
^DD(19.2,2,"DT")="2910220"
^DD(19.2,3,0)="DEVICE FOR QUEUED JOB OUTPUT^FX^^0;3^D IT3^XUTMG19"
^DD(19.2,3,1,0)="^.1"
^DD(19.2,3,1,1,0)="19.2^AZTIO^MUMPS"
^DD(19.2,3,1,1,1)="Q:$D(DIFROM)  D S3^XUTMG19"
^DD(19.2,3,1,1,2)="Q:$D(DIFROM)  D K3^XUTMG19"
^DD(19.2,3,1,1,3)="SPECIAL TASKMAN CALL"
^DD(19.2,3,1,1,"%D",0)="^^2^2^2940630^"
^DD(19.2,3,1,1,"%D",1,0)="This cross-reference causes the update of the task record."
^DD(19.2,3,1,1,"%D",2,0)="To reflect changes to the device."
^DD(19.2,3,1,1,"DT")="2910220"
^DD(19.2,3,3)="MUST BE NAME OF DEVICE ON WHICH THE QUEUED OPTION WILL PRINT"
^DD(19.2,3,4)="N % S %(1)=""If TASKMAN cannot identify a DEVICE by this name"",%(2)=""at the time of dequeueing, job will not run, "" D EN^DDIOL(.%)"
^DD(19.2,3,21,0)="^^3^3^2940630^^^"
^DD(19.2,3,21,1,0)="The name of the device on which this Option will be queued to print"
^DD(19.2,3,21,2,0)="by TaskMan. If, at the time the queueing, TaskMan cannot identify"
^DD(19.2,3,21,3,0)="a device by this name, then the job will not be run."
^DD(19.2,3,"DT")="2910618"
^DD(19.2,4,0)="OTHER DEVICE PARAMETERS^F^^0;4^K:$L(X)>70!($L(X)<3) X"
^DD(19.2,4,3)="Answer must be 3-70 characters in length."
^DD(19.2,4,21,0)="^^1^1^2940630^"
^DD(19.2,4,21,1,0)="This field is not in use yet."
^DD(19.2,4,"DT")="2940309"
^DD(19.2,5,0)="QUEUED TO RUN ON VOLUME SET^FX^^0;5^D IT5^XUTMG19"
^DD(19.2,5,1,0)="^.1"
^DD(19.2,5,1,1,0)="19.2^AZTVOL^MUMPS"
^DD(19.2,5,1,1,1)="Q:$D(DIFROM)  D S5^XUTMG19"
^DD(19.2,5,1,1,2)="Q:$D(DIFROM)  D K5^XUTMG19"
^DD(19.2,5,1,1,3)="SPECIAL TASKMAN CALL"
^DD(19.2,5,1,1,"%D",0)="^^2^2^2940630^"
^DD(19.2,5,1,1,"%D",1,0)="This cross-reference causes the updating of the ZTVOL value (if it is not "
^DD(19.2,5,1,1,"%D",2,0)="part of a package install) for the option as a queued task."
^DD(19.2,5,1,1,"DT")="2910220"
^DD(19.2,5,3)="Answer must be the (2-15 char) volume set (CPU) name that the option should run on."
^DD(19.2,5,4)="D EN^DDIOL(""The volume set name must also be in the Kernel site parameters as a volume set."")"
^DD(19.2,5,21,0)="^^2^2^2940630^^"
^DD(19.2,5,21,1,0)="This field is used to let the Task Manager know where to run"
^DD(19.2,5,21,2,0)="the queued job."
^DD(19.2,5,"DT")="2910220"
^DD(19.2,6,0)="RESCHEDULING FREQUENCY^FX^^0;6^D IT6^XUTMG19"
^DD(19.2,6,.1)="FREQUENCY WITH WHICH THIS OPTION WILL BE AUTOMATICALLY RESCHEDULED TO RUN"
^DD(19.2,6,3)="FOR AUTOMATIC RE-QUEUING, ANSWER WITH INCREMENT OF HOURS, DAYS, OR MONTHS"
^DD(19.2,6,4)="N % S %(1)=""Examples:"",%(2)="" 120S = job will be re-run every two minutes"",%(3)=""   1H = job will be rerun every hour"",%(4)=""   7D = job will be re-run every week"",%(5)=""   3M = job will be run once a quarter"" D EN^DDIOL(.%)"
^DD(19.2,6,21,0)="^^30^30^2970527^^"
^DD(19.2,6,21,1,0)="This field has a value only if the OPTION is to be re-queued automatically"
^DD(19.2,6,21,2,0)="for a subsequent run every time it is run by the TaskManager."
^DD(19.2,6,21,3,0)="Valid codes are:"
^DD(19.2,6,21,4,0)="       Every n seconds         nS"
^DD(19.2,6,21,5,0)="       Every n hours           nH"
^DD(19.2,6,21,6,0)="       Every n days            nD"
^DD(19.2,6,21,7,0)="       Every n months          nM"
^DD(19.2,6,21,8,0)="       Day of Week             day[@time]"
^DD(19.2,6,21,9,0)="       weekday                 D[@time] "
^DD(19.2,6,21,10,0)="       weekend day             E[@time] (saturday, sunday)"
^DD(19.2,6,21,11,0)="       Different days in month nM(sch...)"
^DD(19.2,6,21,12,0)=" "
^DD(19.2,6,21,13,0)="           sch:    dd[@time]       day of month ie: 15"
^DD(19.2,6,21,14,0)="                   nDay[@time]     day of week in month"
^DD(19.2,6,21,15,0)="                                   ie: 1W,3W  first and third wednesday"
^DD(19.2,6,21,16,0)="                   L               last"
^DD(19.2,6,21,17,0)=" "
^DD(19.2,6,21,18,0)="       day:=   M       monday"
^DD(19.2,6,21,19,0)="               T       tusday"
^DD(19.2,6,21,20,0)="               W       wednesday"
^DD(19.2,6,21,21,0)="               R       thursday"
^DD(19.2,6,21,22,0)="               F       friday"
^DD(19.2,6,21,23,0)="               S       saturday"
^DD(19.2,6,21,24,0)="               U       sunday"
^DD(19.2,6,21,25,0)="       Examples:"
^DD(19.2,6,21,26,0)="               1M(1,15)        The first and 15th of the month."
^DD(19.2,6,21,27,0)="               1M(L)           The last day of the month."
^DD(19.2,6,21,28,0)="               1M(LS)          The last saturday of the month."
^DD(19.2,6,21,29,0)="               W@4pm           Each wednesday at 4 pm."
^DD(19.2,6,21,30,0)="               D               Each weekday"
^DD(19.2,6,"DT")="2910220"
^DD(19.2,9,0)="SPECIAL QUEUEING^SX^S:STARTUP;SP:Startup Persistent;P:Persistent;^0;9^Q"
^DD(19.2,9,1,0)="^.1"
^DD(19.2,9,1,1,0)="19.2^ASTARTUP^MUMPS"
^DD(19.2,9,1,1,1)="D S9^XUTMG19"
^DD(19.2,9,1,1,2)="D K9^XUTMG19"
^DD(19.2,9,1,1,3)="SPECIAL TASKMAN CALL"
^DD(19.2,9,1,1,"%D",0)="^^2^2^2940630^"
^DD(19.2,9,1,1,"%D",1,0)="This cross-reference causes the updating of the option as a startup option to "
^DD(19.2,9,1,1,"%D",2,0)="be started when the system is started."
^DD(19.2,9,1,1,"DT")="2910220"
^DD(19.2,9,3)=""
^DD(19.2,9,21,0)="^^10^10^2971002^"
^DD(19.2,9,21,1,0)="If this Option is set for ""STARTUP"", then TaskMan will queue"
^DD(19.2,9,21,2,0)="the job to run whenever the TaskMan/computer is started up, i.e. at System"
^DD(19.2,9,21,3,0)="Boot. "
^DD(19.2,9,21,4,0)="If this Option is set for ""Startup/Persistent"", then Taskman will"
^DD(19.2,9,21,5,0)="queue the job as it does for ""STARTUP"" and it will mark it as a persistent"
^DD(19.2,9,21,6,0)="task to be restarted if it stops unexpectedly."
^DD(19.2,9,21,7,0)="If this Option is set for ""Persistent"" then TaskMan will run it on its"
^DD(19.2,9,21,8,0)="normal schedule, marking it as Persistent, This way TaskMan will restart"
^DD(19.2,9,21,9,0)="the task if it stops unexpectedly."
^DD(19.2,9,21,10,0)="When a task stop in a normal fashion its persistent flag will be cleared."
^DD(19.2,9,23,0)="^^2^2^2971002^"
^DD(19.2,9,23,1,0)="The persistent part is done at ZTSK^XQ1 when it looks back to the Option"
^DD(19.2,9,23,2,0)="Scheduleing file"
^DD(19.2,9,"DT")="2971002"
^DD(19.2,10,0)="OTHER PARAMETERS^19.21^^2;0"
^DD(19.2,10,21,0)="^^2^2^2940630^"
^DD(19.2,10,21,1,0)="This multipule holds name-value pairs that are setup before the option"
^DD(19.2,10,21,2,0)="is run."
^DD(19.2,11,0)="USER TO RUN TASK^*P200'X^VA(200,^1.1;1^S DIC(""S"")=""I $$ACTIVE^XUSER(Y)>0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:'$D(^XUSEC(""XUMGR"",DUZ)) X"
^DD(19.2,11,12)="Only Active users."
^DD(19.2,11,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(Y)>0"""
^DD(19.2,11,21,0)="^^6^6^3030416^"
^DD(19.2,11,21,1,0)="This field will allow a site to select the user that should run "
^DD(19.2,11,21,2,0)="a given scheduled task.  To set this field you must hold the XUMGR"
^DD(19.2,11,21,3,0)="key. The user must be an ACTIVE user on the system. This is checked with"
^DD(19.2,11,21,4,0)="$$ACTIVE^XUSER()"
^DD(19.2,11,21,5,0)="An example would be to have Postmaster run the MailMan background filers."
^DD(19.2,11,21,6,0)="Or to create a special user to run HL7 background filers."
^DD(19.2,11,"DT")="3030416"
^DD(19.2,12,0)="TASK ID^F^^1;1^K:$L(X)>15!($L(X)<1) X"
^DD(19.2,12,3)="This field is ONLY for TASKMAN"
^DD(19.2,12,21,0)="^^2^2^2940630^^"
^DD(19.2,12,21,1,0)="This field is only to be set by TASKMAN."
^DD(19.2,12,21,2,0)="It holds the TASK number that was assigned to run the option."
^DD(19.2,12,"DT")="2940309"
^DD(19.2,15,0)="TASK PARAMETERS^F^^3;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(19.2,15,3)="Answer must be 1-245 characters in length."
^DD(19.2,15,21,0)="^^3^3^2941020^"
^DD(19.2,15,21,1,0)="This field holds a string that is passed to queued jobs thru the"
^DD(19.2,15,21,2,0)="variable ZTQPARAM.  You will have to lookup in the options description"
^DD(19.2,15,21,3,0)="how to use this field."
^DD(19.2,15,"DT")="2941020"
^DD(19.2,99.1,0)="TASK DEFIND^CJ1^^ ; ^S Y(19.2,99.1,1)=$G(^DIC(19.2,D0,1)),X=$P(Y(19.2,99.1,1),U) I X>0 S X=$D(^%ZTSK(X,0))#2"
^DD(19.2,99.1,9)="^"
^DD(19.2,99.1,9.01)="19.2^12"
^DD(19.2,99.1,9.1)="$D(^%ZTSK(TASK ID,0))#2"
^DD(19.2,99.1,"DT")="2941013"
^DD(19.2,"B","DEVICE FOR QUEUED JOB OUTPUT",3)=""
^DD(19.2,"B","NAME",.01)=""
^DD(19.2,"B","OTHER DEVICE PARAMETERS",4)=""
^DD(19.2,"B","OTHER PARAMETERS",10)=""
^DD(19.2,"B","QUEUED TO RUN AT WHAT TIME",2)=""
^DD(19.2,"B","QUEUED TO RUN ON VOLUME SET",5)=""
^DD(19.2,"B","RESCHEDULING FREQUENCY",6)=""
^DD(19.2,"B","SPECIAL QUEUEING",9)=""
^DD(19.2,"B","TASK DEFIND",99.1)=""
^DD(19.2,"B","TASK ID",12)=""
^DD(19.2,"B","TASK PARAMETERS",15)=""
^DD(19.2,"B","USER TO RUN TASK",11)=""
^DD(19.2,"GL",0,1,.01)=""
^DD(19.2,"GL",0,2,2)=""
^DD(19.2,"GL",0,3,3)=""
^DD(19.2,"GL",0,4,4)=""
^DD(19.2,"GL",0,5,5)=""
^DD(19.2,"GL",0,6,6)=""
^DD(19.2,"GL",0,9,9)=""
^DD(19.2,"GL",1,1,12)=""
^DD(19.2,"GL",1.1,1,11)=""
^DD(19.2,"GL",2,0,10)=""
^DD(19.2,"GL",3,"E1,245",15)=""
^DD(19.2,"IX",.01)=""
^DD(19.2,"IX",2)=""
^DD(19.2,"IX",3)=""
^DD(19.2,"IX",5)=""
^DD(19.2,"IX",9)=""
^DD(19.2,"RQ",.01)=""
^DD(19.2,"SB",19.21,10)=""
^DD(19.21,0)="OTHER PARAMETERS SUB-FIELD^^1^2"
^DD(19.21,0,"DT")="2940309"
^DD(19.21,0,"IX","B",19.21,.01)=""
^DD(19.21,0,"NM","OTHER PARAMETERS")=""
^DD(19.21,0,"UP")="19.2"
^DD(19.21,.01,0)="VARIABLE NAME^MF^^0;1^K:$L(X)>20!($L(X)<1)!'((X?1.8U.1""("".E)) X"
^DD(19.21,.01,1,0)="^.1"
^DD(19.21,.01,1,1,0)="19.21^B"
^DD(19.21,.01,1,1,1)="S ^DIC(19.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(19.21,.01,1,1,2)="K ^DIC(19.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(19.21,.01,3)="Answer must be 1-20 characters in length."
^DD(19.21,.01,21,0)="^^2^2^2940630^^"
^DD(19.21,.01,21,1,0)="This field holds the name of a VARIABLE that is to be set into"
^DD(19.21,.01,21,2,0)="the SYMBOL TABLE of the job before it starts."
^DD(19.21,.01,"DT")="2940309"
^DD(19.21,1,0)="VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(19.21,1,3)="Answer must be 1-200 characters in length."
^DD(19.21,1,21,0)="^^2^2^2940630^^"
^DD(19.21,1,21,1,0)="This field holds the value that will be put in the VARIABLE when"
^DD(19.21,1,21,2,0)="the job starts."
^DD(19.21,1,"DT")="2940309"
^DD(19.21,"B","VALUE",1)=""
^DD(19.21,"B","VARIABLE NAME",.01)=""
^DD(19.21,"GL",0,1,.01)=""
^DD(19.21,"GL",0,2,1)=""
^DD(19.21,"IX",.01)=""
^DD(19.391,0)="TIMES/DAYS PROHIBITED SUB-FIELD^^.02^2"
^DD(19.391,0,"IX","AOD1",19.391,.01)=""
^DD(19.391,0,"IX","B",19.391,.01)=""
^DD(19.391,0,"NM","TIMES/DAYS PROHIBITED")=""
^DD(19.391,0,"UP")="19"
^DD(19.391,.01,0)="TIMES PROHIBITED^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<9)!'(X?4N1""-""4N) X"
^DD(19.391,.01,.1)="PROHIBITED TIME RANGE ON DAYS OF WEEK"
^DD(19.391,.01,1,0)="^.1"
^DD(19.391,.01,1,1,0)="19.391^B"
^DD(19.391,.01,1,1,1)="S ^DIC(19,DA(1),3.91,""B"",$E(X,1,30),DA)="""""
^DD(19.391,.01,1,1,2)="K ^DIC(19,DA(1),3.91,""B"",$E(X,1,30),DA)"
^DD(19.391,.01,1,2,0)="19.391^AOD1^MUMPS"
^DD(19.391,.01,1,2,1)="S %XQDA=DA,DA=DA(1) D REDO^XQ7 S DA=%XQDA K %XQDA"
^DD(19.391,.01,1,2,2)="S %XQDA=DA,DA=DA(1) D REDO^XQ7 S DA=%XQDA K %XQDA"
^DD(19.391,.01,1,2,"%D",0)="^^3^3^2920519"
^DD(19.391,.01,1,2,"%D",1,0)="This cross-reference causes the option to be flagged for updating in the menu "
^DD(19.391,.01,1,2,"%D",2,0)="trees so that the changes effecting display and/or access to the option are "
^DD(19.391,.01,1,2,"%D",3,0)="correctly updated."
^DD(19.391,.01,3)="Enter Time Range in format NNNN-NNNN, e.g., 0800-1630 for 8:00 am to 4:30 pm."
^DD(19.391,.01,21,0)="^^7^7^2910701^^^^"
^DD(19.391,.01,21,1,0)="This field may be used to set prohibited times for specific days of the"
^DD(19.391,.01,21,2,0)="week.  The PROHIBITED TIME RANGE may be specified alone to apply to all"
^DD(19.391,.01,21,3,0)="days as 0800-1630 to prohibit use between 8:00 am and 4:30 pm."
^DD(19.391,.01,21,4,0)=" "
^DD(19.391,.01,21,5,0)="The time range specified may be prohibited on one or more specific days"
^DD(19.391,.01,21,6,0)="of the week by entry of the desired prohibited days in the next field of"
^DD(19.391,.01,21,7,0)="this subfield."
^DD(19.391,.01,"DT")="2890314"
^DD(19.391,.02,0)="DAYS PROHIBITED^F^^0;2^K:$L(X)>20!($L(X)<2) X"
^DD(19.391,.02,3)="Enter Days as first two letters, e.g., FR  or  MO,WE,FR  or  MO-FR"
^DD(19.391,.02,21,0)="^^2^2^2910626^^^"
^DD(19.391,.02,21,1,0)="This field may be used to prohibit use of the option on particular"
^DD(19.391,.02,21,2,0)="days of the week."
^DD(19.391,.02,"DT")="2880706"
^DD(19.391,"B","DAYS PROHIBITED",.02)=""
^DD(19.391,"B","TIMES PROHIBITED",.01)=""
^DD(19.391,"GL",0,1,.01)=""
^DD(19.391,"GL",0,2,.02)=""
^DD(19.391,"IX",.01)=""
^DD(19.392,0)="QUEUING REQUIRED SUB-FIELD^^.02^2"
^DD(19.392,0,"DT")="2900125"
^DD(19.392,0,"IX","B",19.392,.01)=""
^DD(19.392,0,"NM","QUEUING REQUIRED")=""
^DD(19.392,0,"UP")="19"
^DD(19.392,.01,0)="TIME PERIOD^MF^^0;1^K:$L(X)>9!($L(X)<9)!'(X?4N1""-""4N) X"
^DD(19.392,.01,1,0)="^.1"
^DD(19.392,.01,1,1,0)="19.392^B"
^DD(19.392,.01,1,1,1)="S ^DIC(19,DA(1),3.92,""B"",$E(X,1,30),DA)="""""
^DD(19.392,.01,1,1,2)="K ^DIC(19,DA(1),3.92,""B"",$E(X,1,30),DA)"
^DD(19.392,.01,1,2,0)="^^TRIGGER^19^3.93"
^DD(19.392,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(19.392,.01,1,2,1.4)"
^DD(19.392,.01,1,2,1.4)="S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,18)=DIV,DIH=19,DIG=3.93 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19.392,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $O(^DIC(19,DA(1),3.92,0))=DA,$O(^(DA))'>0 I X S X=DIV S Y(1)=$S($D(^DIC(19,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="""" X ^DD(19.392,.01,1,2,2.4)"
^DD(19.392,.01,1,2,2.4)="S DIH=$S($D(^DIC(19,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,18)=DIV,DIH=19,DIG=3.93 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(19.392,.01,1,2,3)="Output restrictions won't work if deleted."
^DD(19.392,.01,1,2,"%D",0)="^^5^5^2901203^"
^DD(19.392,.01,1,2,"%D",1,0)="This cross-reference sets a flag in the 0th node of the option"
^DD(19.392,.01,1,2,"%D",2,0)="when output restrictions are in effect.  $P(XQY0,U,18) will be 1"
^DD(19.392,.01,1,2,"%D",3,0)="if there are restrictions, and null if there are not.  This"
^DD(19.392,.01,1,2,"%D",4,0)="flag is used by TaskMan to see if queueing is required in "
^DD(19.392,.01,1,2,"%D",5,0)="^%ZTLOAD."
^DD(19.392,.01,1,2,"CREATE VALUE")="""1"""
^DD(19.392,.01,1,2,"DELETE CONDITION")="I $O(^DIC(19,DA(1),3.92,0))=DA,$O(^(DA))'>0"
^DD(19.392,.01,1,2,"DELETE VALUE")=""""""
^DD(19.392,.01,1,2,"DIC")=""
^DD(19.392,.01,1,2,"DT")="2901203"
^DD(19.392,.01,1,2,"FIELD")="OUTPUT"
^DD(19.392,.01,3)="Enter time period as NNNN-NNNN (e.g., 0800-1630)"
^DD(19.392,.01,21,0)="^^3^3^2930402^"
^DD(19.392,.01,21,1,0)="This field is used to specify a time period for the days of the week"
^DD(19.392,.01,21,2,0)="specified in field .02 during which the option may be run, but output must"
^DD(19.392,.01,21,3,0)="be queued to a time outside the dates and times specified."
^DD(19.392,.01,"DT")="2901203"
^DD(19.392,.02,0)="DAY(S) FOR TIME PERIOD^F^^0;2^K:$L(X)>20!($L(X)<2) X"
^DD(19.392,.02,3)="No Entry indicates all days, or enter 2 letter day, MO, or days separated by commas MO,WE,FR or range of days MO-FR for inclusive range (Monday through Friday)"
^DD(19.392,.02,21,0)="^^3^3^2930402^"
^DD(19.392,.02,21,1,0)="This field is used to specify one or more specific days of the week"
^DD(19.392,.02,21,2,0)="when the option must be queued to a time outside those specified in the"
^DD(19.392,.02,21,3,0)=".01 field."
^DD(19.392,.02,"DT")="2900125"
^DD(19.392,"B","DAY(S) FOR TIME PERIOD",.02)=""
^DD(19.392,"B","TIME PERIOD",.01)=""
^DD(19.392,"GL",0,1,.01)=""
^DD(19.392,"GL",0,2,.02)=""
^DD(19.392,"IX",.01)=""
^DD(19.396,0)="PERMITTED DEVICE SUB-FIELD^^.01^1"
^DD(19.396,0,"IX","B",19.396,.01)=""
^DD(19.396,0,"NM","PERMITTED DEVICE")=""
^DD(19.396,0,"UP")="19"
^DD(19.396,.01,0)="PERMITTED DEVICE^MP3.5'^%ZIS(1,^0;1^Q"
^DD(19.396,.01,1,0)="^.1"
^DD(19.396,.01,1,1,0)="19.396^B"
^DD(19.396,.01,1,1,1)="S ^DIC(19,DA(1),3.96,""B"",$E(X,1,30),DA)="""""
^DD(19.396,.01,1,1,2)="K ^DIC(19,DA(1),3.96,""B"",$E(X,1,30),DA)"
^DD(19.396,.01,21,0)="^^2^2^2910701^"
^DD(19.396,.01,21,1,0)=" "
^DD(19.396,.01,21,2,0)="This field should contain a pointer to the Device File."
^DD(19.396,.01,"DT")="2871022"
^DD(19.396,"B","PERMITTED DEVICE",.01)=""
^DD(19.396,"GL",0,1,.01)=""
^DD(19.396,"IX",.01)=""
^DD(19.8,0)="FIELD^^1^2"
^DD(19.8,0,"DDA")="N"
^DD(19.8,0,"DT")="2980128"
^DD(19.8,0,"IX","B",19.8,.01)=""
^DD(19.8,0,"NM","MENUMAN QUICK HELP")=""
^DD(19.8,0,"VR")="8.0"
^DD(19.8,0,"VRPK")="XU"
^DD(19.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(19.8,.01,1,0)="^.1"
^DD(19.8,.01,1,1,0)="19.8^B"
^DD(19.8,.01,1,1,1)="S ^DIC(19.8,""B"",$E(X,1,30),DA)="""""
^DD(19.8,.01,1,1,2)="K ^DIC(19.8,""B"",$E(X,1,30),DA)"
^DD(19.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(19.8,1,0)="HELP TEXT^19.81^^1;0"
^DD(19.8,"B","HELP TEXT",1)=""
^DD(19.8,"B","NAME",.01)=""
^DD(19.8,"GL",0,1,.01)=""
^DD(19.8,"GL",1,0,1)=""
^DD(19.8,"IX",.01)=""
^DD(19.8,"RQ",.01)=""
^DD(19.8,"SB",19.81,1)=""
^DD(19.81,0)="HELP TEXT SUB-FIELD^^.01^1"
^DD(19.81,0,"DT")="2980128"
^DD(19.81,0,"NM","HELP TEXT")=""
^DD(19.81,0,"UP")="19.8"
^DD(19.81,.01,0)="HELP TEXT^WL^^0;1^Q"
^DD(19.81,.01,3)="Please the name"
^DD(19.81,.01,21,0)="^^2^2^2980128^"
^DD(19.81,.01,21,1,0)="    This is the name of the option."
^DD(19.81,.01,21,2,0)="Please respect the namespace rules."
^DD(19.81,.01,"DT")="2980128"
^DD(19.81,"B","HELP TEXT",.01)=""
^DD(19.81,"GL",0,1,.01)=""
^DD(20,0)="FIELD^^11^11"
^DD(20,0,"DDA")="N"
^DD(20,0,"DT")="3011228"
^DD(20,0,"ID","NAME")="N XUN S XUN(""FAMILY"")=$P($G(^(1)),U),XUN(""GIVEN"")=$P($G(^(1)),U,2),XUN(""MIDDLE"")=$P($G(^(1)),U,3),XUN(""SUFFIX"")=$P($G(^(1)),U,5) D EN^DDIOL($$NAMEFMT^XLFNAME(.XUN,""F"",""C""),"""",""?0"")"
^DD(20,0,"IX","B",20,.01)=""
^DD(20,0,"NM","NAME COMPONENTS")=""
^DD(20,0,"PT",2,1.01)=""
^DD(20,0,"PT",2,1.02)=""
^DD(20,0,"PT",2,1.03)=""
^DD(20,0,"PT",2,1.04)=""
^DD(20,0,"PT",2,1.05)=""
^DD(20,0,"PT",2,1.06)=""
^DD(20,0,"PT",2,1.07)=""
^DD(20,0,"PT",2,1.08)=""
^DD(20,0,"PT",2,1.09)=""
^DD(20,0,"PT",2.01,100.03)=""
^DD(20,0,"PT",2.101,100.21)=""
^DD(20,0,"PT",200,10.1)=""
^DD(20,0,"VR")="8.0"
^DD(20,0,"VRPK")="XU"
^DD(20,.01,0)="FILE^RNJ20,7I^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(20,.01,1,0)="^.1"
^DD(20,.01,1,1,0)="20^B"
^DD(20,.01,1,1,1)="S ^VA(20,""B"",$E(X,1,30),DA)="""""
^DD(20,.01,1,1,2)="K ^VA(20,""B"",$E(X,1,30),DA)"
^DD(20,.01,3)="Answer must be a number between 0 and 999999999999, with up to 7 decimal digits. Answer '??' for more help."
^DD(20,.01,21,0)="^^2^2^2991008^"
^DD(20,.01,21,1,0)="Answer must be the number of the file or subfile that contains the name"
^DD(20,.01,21,2,0)="field."
^DD(20,.01,"DT")="3010817"
^DD(20,.02,0)="FIELD^RNJ20,7I^^0;2^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(20,.02,3)="Answer must be a number between 0 and 999999999999, with up to 7 decimal digits. Answer '??' for more help. "
^DD(20,.02,21,0)="^^1^1^2991008^"
^DD(20,.02,21,1,0)="Answer must be the number of the field that contains the name."
^DD(20,.02,"DT")="3010817"
^DD(20,.03,0)="IENS^RFI^^0;3^K:$L(X)>50!($L(X)<2) X"
^DD(20,.03,3)="Answer must be 2-50 characters in length. Answer '??' for more help."
^DD(20,.03,21,0)="^.001^1^1^2991012^^^"
^DD(20,.03,21,1,0)="Answer must be the IENS of the entry that contains the name."
^DD(20,.03,"DT")="3010817"
^DD(20,1,0)="FAMILY (LAST) NAME^RFX^^1;1^K:$L(X)>35!($L(X)<1)!'(X?1U.UNP)!(X[""`"") X"
^DD(20,1,.1)="LAST NAME"
^DD(20,1,3)="Answer must be 1-35 characters in length. Answer '??' for more help."
^DD(20,1,21,0)="^.001^3^3^3000321^^^"
^DD(20,1,21,1,0)="Answer with the person's family (last) name. It must begin with an"
^DD(20,1,21,2,0)="upper-case letter and can contain only upper-case letters, numbers, and"
^DD(20,1,21,3,0)="punctuation, excluding circumflexes (^) and grave accents (`)."
^DD(20,1,"DT")="3010817"
^DD(20,2,0)="GIVEN (FIRST) NAME^RFX^^1;2^K:$L(X)>25!($L(X)<1)!'(X?1U.UNP)!(X[""`"") X"
^DD(20,2,.1)="FIRST NAME"
^DD(20,2,3)="Answer must be 1-25 characters in length. Answer '??' for more help."
^DD(20,2,21,0)="^^3^3^3000321^"
^DD(20,2,21,1,0)="Answer with the person's given (first) name. It must begin with an"
^DD(20,2,21,2,0)="upper-case letter and can contain only upper-case letters, numbers, and"
^DD(20,2,21,3,0)="punctuation, excluding circumflexes (^) and grave accents (`)."
^DD(20,2,"DT")="3010817"
^DD(20,3,0)="MIDDLE NAME^FX^^1;3^K:$L(X)>25!($L(X)<1)!'(X?1U.UNP)!(X[""`"")!(X=""NMI"")!(X=""NMN"") X"
^DD(20,3,3)="Answer must be 1-25 characters in length. Answer '??' for more help."
^DD(20,3,21,0)="^^4^4^3000321^"
^DD(20,3,21,1,0)="Answer with the person's middle name. It must begin with an upper-case"
^DD(20,3,21,2,0)="letter and can contain only upper-case letters, numbers, and punctuation,"
^DD(20,3,21,3,0)="excluding circumflexes (^) and grave accents (`). Middle names of NMI and"
^DD(20,3,21,4,0)="NMN are not accepted."
^DD(20,3,"DT")="3010817"
^DD(20,4,0)="PREFIX^FX^^1;4^K:$L(X)>10!($L(X)<1)!'(X?1U.UNP)!(X[""`"") X"
^DD(20,4,3)="Answer must be 1-10 characters in length. Answer '??' for more help."
^DD(20,4,21,0)="^^3^3^3000321^"
^DD(20,4,21,1,0)="Answer with the name prefix, such as MR or MS. Answer must begin with an"
^DD(20,4,21,2,0)="upper-case letter and can contain only upper-case letters, numbers, and"
^DD(20,4,21,3,0)="punctuation, excluding circumflexes (^) and grave accents (`)."
^DD(20,4,"DT")="2991012"
^DD(20,5,0)="SUFFIX^FX^^1;5^K:$L(X)>10!($L(X)<1)!'(X?1UN.UNP)!(X[""`"") X"
^DD(20,5,3)="Answer must be 1-10 characters in length. Answer '??' for more help."
^DD(20,5,21,0)="^^4^4^3000321^"
^DD(20,5,21,1,0)="Answer with the name suffix(es), such as JR, SR, II, or III. Answer"
^DD(20,5,21,2,0)="must begin with an upper-case letter and can contain only upper-case"
^DD(20,5,21,3,0)="letters, numbers, and punctuation, excluding circumflexes (^) and grave"
^DD(20,5,21,4,0)="accents (`)."
^DD(20,5,"DT")="3010817"
^DD(20,6,0)="DEGREE^FX^^1;6^K:$L(X)>10!($L(X)<1)!'(X?1U.UNP)!(X[""`"") X"
^DD(20,6,3)="Answer must be 1-10 characters in length. Answer '??' for more help."
^DD(20,6,21,0)="^^4^4^3000321^"
^DD(20,6,21,1,0)="Answer with the person's academic or professional degree, such as BS, BA,"
^DD(20,6,21,2,0)="MD, or PHD. It must begin with an upper-case letter and can contain only"
^DD(20,6,21,3,0)="upper-case letters, numbers, and punctuation, excluding circumflexes (^)"
^DD(20,6,21,4,0)="and grave accents (`)."
^DD(20,6,"DT")="3000321"
^DD(20,7,0)="SOURCE NAME FORMAT FLAGS^F^^1;7^K:$L(X)>15!($L(X)<1) X"
^DD(20,7,3)="Answer must be 1-15 characters in length. Answer '??' for more help."
^DD(20,7,21,0)="^^18^18^3011228^"
^DD(20,7,21,1,0)="When the name fields in the Name Components file are edited, the ""ANAME"""
^DD(20,7,21,2,0)="cross-reference updates the corresponding name field in the source file."
^DD(20,7,21,3,0)="This SOURCE NAME FORMAT FLAGS field can be used to control the format of"
^DD(20,7,21,4,0)="the name placed in the source name field."
^DD(20,7,21,5,0)=" "
^DD(20,7,21,6,0)="Answer with the flags used in $$NAMEFMT^XLFNAME API. For example, "
^DD(20,7,21,7,0)=" "
^DD(20,7,21,8,0)="  C  : Return a Comma between the Family (Last) and Given (First)"
^DD(20,7,21,9,0)="       Names."
^DD(20,7,21,10,0)="  L  : Truncate the returned name to the maximum length as specified"
^DD(20,7,21,11,0)="       by the data type of the source name field."
^DD(20,7,21,12,0)="  L# : Truncate the returned name to a maximum length of #"
^DD(20,7,21,13,0)="       characters, where # is an integer between 1 and 256."
^DD(20,7,21,14,0)="  S  : Standardize the name components before building the formatted"
^DD(20,7,21,15,0)="       name."
^DD(20,7,21,16,0)=" "
^DD(20,7,21,17,0)="If this field is null (i.e., no flags are specified), the default is"
^DD(20,7,21,18,0)="""CLS""."
^DD(20,7,"DT")="3011228"
^DD(20,11,0)="NOTES ABOUT NAME^F^^11;1^K:$L(X)>100!($L(X)<3) X"
^DD(20,11,3)="Answer must be 3-100 characters in length. Answer '??' for more help."
^DD(20,11,21,0)="^^7^7^3000321^"
^DD(20,11,21,1,0)="This field stores notes about the name."
^DD(20,11,21,2,0)=" "
^DD(20,11,21,3,0)="During the New Person Name Conversion, which is run as part of the"
^DD(20,11,21,4,0)="post-install routine of Patch XU*8.0*134, if a name in the NEW PERSON file"
^DD(20,11,21,5,0)="contains text in parentheses (), brackets [], or braces {}, that text is"
^DD(20,11,21,6,0)="removed from the name, and the original name with the parenthetical text"
^DD(20,11,21,7,0)="is recorded in this field."
^DD(20,11,"DT")="3000131"
^DD(20,"B","DEGREE",6)=""
^DD(20,"B","FAMILY (LAST) NAME",1)=""
^DD(20,"B","FIELD",.02)=""
^DD(20,"B","FILE",.01)=""
^DD(20,"B","FIRST NAME",2)="1"
^DD(20,"B","GIVEN (FIRST) NAME",2)=""
^DD(20,"B","IENS",.03)=""
^DD(20,"B","LAST NAME",1)="1"
^DD(20,"B","MIDDLE NAME",3)=""
^DD(20,"B","NOTES ABOUT NAME",11)=""
^DD(20,"B","PREFIX",4)=""
^DD(20,"B","SOURCE NAME FORMAT FLAGS",7)=""
^DD(20,"B","SUFFIX",5)=""
^DD(20,"GL",0,1,.01)=""
^DD(20,"GL",0,2,.02)=""
^DD(20,"GL",0,3,.03)=""
^DD(20,"GL",1,1,1)=""
^DD(20,"GL",1,2,2)=""
^DD(20,"GL",1,3,3)=""
^DD(20,"GL",1,4,4)=""
^DD(20,"GL",1,5,5)=""
^DD(20,"GL",1,6,6)=""
^DD(20,"GL",1,7,7)=""
^DD(20,"GL",11,1,11)=""
^DD(20,"IX",.01)=""
^DD(20,"RQ",.01)=""
^DD(20,"RQ",.02)=""
^DD(20,"RQ",.03)=""
^DD(20,"RQ",1)=""
^DD(20,"RQ",2)=""
^DD(21,0)="FIELD^NL^20^12"
^DD(21,0,"ID","WRITE")="W:$X>40 ! W ?40,""("",$P(^(0),""^"",3),"")"" W:$X>53 ! W ?53,$P(^(0),""^"",20)"
^DD(21,0,"IX","B",21,.01)=""
^DD(21,0,"IX","C",21,.02)=""
^DD(21,0,"IX","D",21,.03)=""
^DD(21,0,"IX","SYN",21.02,.01)=""
^DD(21,0,"NM","PERIOD OF SERVICE")=""
^DD(21,0,"PT",2,.323)=""
^DD(21,0,"PT",22,101)=""
^DD(21,0,"PT",745.1,31)=""
^DD(21,0,"PT",798.4,.323)=""
^DD(21,0,"VR")="5.3"
^DD(21,.01,0)="NAME^RF^^0;1^K:$L(X)>25!($L(X)<4) X"
^DD(21,.01,1,0)="^.1"
^DD(21,.01,1,1,0)="21^B"
^DD(21,.01,1,1,1)="S ^DIC(21,""B"",$E(X,1,30),DA)="""""
^DD(21,.01,1,1,2)="K ^DIC(21,""B"",$E(X,1,30),DA)"
^DD(21,.01,3)="ANSWER MUST BE 4-25 CHARACTERS IN LENGTH"
^DD(21,.01,21,0)="^^5^5^2911222^"
^DD(21,.01,21,1,0)="This field contains the name of a period of service as determined by MAS"
^DD(21,.01,21,2,0)="VACO for use in DHCP.  This name should not be altered in any way nor"
^DD(21,.01,21,3,0)="should entries be added to or removed from this file.  This data is"
^DD(21,.01,21,4,0)="maintained by the MAS package and all updates to it will be made by that"
^DD(21,.01,21,5,0)="package during a release."
^DD(21,.01,"DT")="2840326"
^DD(21,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>9!($L(X)<2) X"
^DD(21,.02,1,0)="^.1"
^DD(21,.02,1,1,0)="21^C"
^DD(21,.02,1,1,1)="S ^DIC(21,""C"",X,DA)="""""
^DD(21,.02,1,1,2)="K ^DIC(21,""C"",X,DA)"
^DD(21,.02,3)="MAXIMUM LENGTH: 9, MINIMUM LENGTH: 2"
^DD(21,.02,21,0)="^^3^3^2911222^"
^DD(21,.02,21,1,0)="This field contains an abbreviation for this period of service.  Outputs"
^DD(21,.02,21,2,0)="and displays may alternately display the abbreviation if insufficient"
^DD(21,.02,21,3,0)="room exists for the full name of the period of service."
^DD(21,.03,0)="CODE^RF^^0;3^K:$L(X)>1!($L(X)<1) X"
^DD(21,.03,1,0)="^.1"
^DD(21,.03,1,1,0)="21^D"
^DD(21,.03,1,1,1)="S ^DIC(21,""D"",$E(X,1,30),DA)="""""
^DD(21,.03,1,1,2)="K ^DIC(21,""D"",$E(X,1,30),DA)"
^DD(21,.03,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(21,.03,21,0)="^^7^7^2921224^^"
^DD(21,.03,21,1,0)="This field contains the single character code by which this period of"
^DD(21,.03,21,2,0)="service is known.  This character is supplied by MAS VACO and MUST NOT BE"
^DD(21,.03,21,3,0)="ALTERED.  This code is transmitted to Austin with PTF, OPC, and many"
^DD(21,.03,21,4,0)="other DHCP packages and modules.  Editing of this code will have severe"
^DD(21,.03,21,5,0)="negative implications on the integrity of the data you are transmitting"
^DD(21,.03,21,6,0)="and it could cause rejected records and loss of reimbursement for your"
^DD(21,.03,21,7,0)="site."
^DD(21,.03,"DT")="2821014"
^DD(21,.04,0)="BEGIN DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(21,.04,21,0)="^^3^3^2911222^"
^DD(21,.04,21,1,0)="This field contains the beginning date of this period of service whether"
^DD(21,.04,21,2,0)="it be a war, conflict, police action, or period of peace.  This data is"
^DD(21,.04,21,3,0)="determined by MAS VACO and must not be altered in any way."
^DD(21,.05,0)="END DATE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(21,.05,21,0)="^^3^3^2911222^"
^DD(21,.05,21,1,0)="This field contains the ending date of this period of service whether it"
^DD(21,.05,21,2,0)="be a war, conflict, police action, or period of peace.  This data is"
^DD(21,.05,21,3,0)="determined by MAS VACO and must not be altered in any way."
^DD(21,.06,0)="WAR/PEACE^S^W:WAR;P:PEACE;^0;6^Q"
^DD(21,.06,21,0)="^^3^3^2911222^"
^DD(21,.06,21,1,0)="This field contains a set of codes to determine whether this period of"
^DD(21,.06,21,2,0)="service was a wartime period or a period of peace.  This information is"
^DD(21,.06,21,3,0)="determined by VACO and must not be altered in any way."
^DD(21,.07,0)="LATEST DOB^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(21,.07,3)="Enter the latest year in which a person could be born and still serve in this period."
^DD(21,.07,21,0)="^^4^4^2911222^"
^DD(21,.07,21,1,0)="This field contains the latest date of birth which a patient may have had"
^DD(21,.07,21,2,0)="in order to participate in this period of service.  For example, If this"
^DD(21,.07,21,3,0)="field contained 1975, only persons born in 1975 or earlier would have been"
^DD(21,.07,21,4,0)="old enough to serve during this period of service."
^DD(21,.07,"DT")="2840326"
^DD(21,.08,0)="INACTIVE^S^1:YES;^0;8^Q"
^DD(21,.08,21,0)="^^6^6^2911222^^"
^DD(21,.08,21,1,0)="If this period of service has been inactivated and should no longer be"
^DD(21,.08,21,2,0)="selectable, this field should contain YES.  Periods of service are"
^DD(21,.08,21,3,0)="maintained by VACO and the MAS software module.  Therefore, this"
^DD(21,.08,21,4,0)="information should not be altered by the site.  Should it be necessary to"
^DD(21,.08,21,5,0)="inactivate a period of service, this will occur through the release of the"
^DD(21,.08,21,6,0)="MAS module via a regular software release."
^DD(21,.08,"DT")="2861125"
^DD(21,.09,0)="PTF CODE^RF^^0;9^K:$L(X)>1!($L(X)<1)!'(X?1AN) X"
^DD(21,.09,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(21,.09,21,0)="^^5^5^2911222^^"
^DD(21,.09,21,1,0)="This field contains the code for this period of service which is transmitted"
^DD(21,.09,21,2,0)="as part of the PTF portion of the MAS module.  This field is determined by"
^DD(21,.09,21,3,0)="MAS VACO and is maintained by the MAS software module.  Editing of this"
^DD(21,.09,21,4,0)="information can have severe negative impacts on the operation of the MAS"
^DD(21,.09,21,5,0)="software and may cause records to be rejected in Austin."
^DD(21,.09,"DT")="2861130"
^DD(21,10,0)="ELIGIBILITY^21.01P^^E;0"
^DD(21,10,21,0)="^^2^2^2911222^"
^DD(21,10,21,1,0)="This multiple contains all eligibilities a person with this period of"
^DD(21,10,21,2,0)="service may have."
^DD(21,15,0)="SYNONYM^21.02^^S;0"
^DD(21,15,21,0)="^^4^4^2911222^"
^DD(21,15,21,1,0)="This multiple contains all alternate names by which this period of service"
^DD(21,15,21,2,0)="can be selected.  Entry of either the period of service name or one of"
^DD(21,15,21,3,0)="the synonyms contained in this multiple will cause this period of service"
^DD(21,15,21,4,0)="to be selected."
^DD(21,20,0)="BRIEF DESCRIPTION^F^^0;20^K:$L(X)>26!($L(X)<3) X"
^DD(21,20,3)="ANSWER MUST BE 3-26 CHARACTERS IN LENGTH"
^DD(21,20,21,0)="^^5^5^2911222^"
^DD(21,20,21,1,0)="This field contains a brief description of this period of service.  It may"
^DD(21,20,21,2,0)="contain the date range for the conflict or a brief explanation of the"
^DD(21,20,21,3,0)="period of service.  If the user enters two question marks at a PERIOD OF"
^DD(21,20,21,4,0)="SERVICE prompt, this description will appear in addition to the period of"
^DD(21,20,21,5,0)="service name and code."
^DD(21,20,"DT")="2870804"
^DD(21,"B","ABBREVIATION",.02)=""
^DD(21,"B","BEGIN DATE",.04)=""
^DD(21,"B","BRIEF DESCRIPTION",20)=""
^DD(21,"B","CODE",.03)=""
^DD(21,"B","ELIGIBILITY",10)=""
^DD(21,"B","END DATE",.05)=""
^DD(21,"B","INACTIVE",.08)=""
^DD(21,"B","LATEST DOB",.07)=""
^DD(21,"B","NAME",.01)=""
^DD(21,"B","PTF CODE",.09)=""
^DD(21,"B","SYNONYM",15)=""
^DD(21,"B","WAR/PEACE",.06)=""
^DD(21,"GL",0,1,.01)=""
^DD(21,"GL",0,2,.02)=""
^DD(21,"GL",0,3,.03)=""
^DD(21,"GL",0,4,.04)=""
^DD(21,"GL",0,5,.05)=""
^DD(21,"GL",0,6,.06)=""
^DD(21,"GL",0,7,.07)=""
^DD(21,"GL",0,8,.08)=""
^DD(21,"GL",0,9,.09)=""
^DD(21,"GL",0,20,20)=""
^DD(21,"GL","E",0,10)=""
^DD(21,"GL","S",0,15)=""
^DD(21,"IX",.01)=""
^DD(21,"IX",.02)=""
^DD(21,"IX",.03)=""
^DD(21,"RQ",.01)=""
^DD(21,"RQ",.03)=""
^DD(21,"RQ",.09)=""
^DD(21,"SB",21.01,10)=""
^DD(21,"SB",21.02,15)=""
^DD(21.01,0)="ELIGIBILITY SUB-FIELD^^.01^1"
^DD(21.01,0,"NM","ELIGIBILITY")=""
^DD(21.01,0,"UP")="21"
^DD(21.01,.01,0)="ELIGIBILITY^M*P8'X^DIC(8,^0;1^S DIC(""S"")=""I '$P(^(0),""""^"""",7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(21.01,.01,1,0)="^.1^^0"
^DD(21.01,.01,12)="'INACTIVE' Eligibilities can't be selected"
^DD(21.01,.01,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",7)"""
^DD(21.01,.01,21,0)="^^3^3^2911222^"
^DD(21.01,.01,21,1,0)="This field contains a pointer to the ELIGIBILITY CODE file denoting an"
^DD(21.01,.01,21,2,0)="eligibility which a patient may have if he service during this period of"
^DD(21.01,.01,21,3,0)="service."
^DD(21.01,.01,"DT")="2861202"
^DD(21.01,"B","ELIGIBILITY",.01)=""
^DD(21.01,"GL",0,1,.01)=""
^DD(21.02,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(21.02,0,"IX","B",21.02,.01)=""
^DD(21.02,0,"NM","SYNONYM")=""
^DD(21.02,0,"UP")="21"
^DD(21.02,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X?1A.E) X"
^DD(21.02,.01,1,0)="^.1"
^DD(21.02,.01,1,1,0)="21.02^B"
^DD(21.02,.01,1,1,1)="S ^DIC(21,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(21.02,.01,1,1,2)="K ^DIC(21,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(21.02,.01,1,2,0)="21^SYN"
^DD(21.02,.01,1,2,1)="S ^DIC(21,""SYN"",$E(X,1,30),DA(1),DA)="""""
^DD(21.02,.01,1,2,2)="K ^DIC(21,""SYN"",$E(X,1,30),DA(1),DA)"
^DD(21.02,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(21.02,.01,21,0)="^^3^3^2911222^"
^DD(21.02,.01,21,1,0)="This field contains an alternate name by which this period of service"
^DD(21.02,.01,21,2,0)="can be selected.  Wherever the period of service is prompted, this synonym"
^DD(21.02,.01,21,3,0)="may be entered instead of the name of the period of service."
^DD(21.02,.01,"DT")="2861125"
^DD(21.02,"B","SYNONYM",.01)=""
^DD(21.02,"GL",0,1,.01)=""
^DD(21.02,"IX",.01)=""
^DD(22,0)="FIELD^NL^101^5"
^DD(22,0,"DDA")="N"
^DD(22,0,"DT")="2990818"
^DD(22,0,"IX","B",22,.01)=""
^DD(22,0,"IX","B",22.01,.01)=""
^DD(22,0,"IX","C",22,1)=""
^DD(22,0,"NM","POW PERIOD")=""
^DD(22,0,"PT",2,.526)=""
^DD(22,0,"PT",2,.5292)=""
^DD(22,0,"PT",727.802,61)=""
^DD(22,0,"PT",727.804,29)=""
^DD(22,0,"PT",727.809,39)=""
^DD(22,0,"PT",727.81,44)=""
^DD(22,0,"PT",727.818,17)=""
^DD(22,0,"PT",727.819,52)=""
^DD(22,0,"VR")="5.3"
^DD(22,0,"VRPK")="DG"
^DD(22,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(22,.001,3)="Type a Number between 1 and 8, 0 Decimal Digits"
^DD(22,.001,21,0)="^^4^4^2991115^^^^"
^DD(22,.001,21,1,0)="This field contains the internal entry number for this POW PERIOD.  This"
^DD(22,.001,21,2,0)="number may be used by various software packages.  This must not be edited"
^DD(22,.001,21,3,0)="and entries must not be added or deleted unless done through a software"
^DD(22,.001,21,4,0)="upgrade of the PIMS package."
^DD(22,.001,"DT")="2990818"
^DD(22,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(22,.01,1,0)="^.1"
^DD(22,.01,1,1,0)="22^B"
^DD(22,.01,1,1,1)="S ^DIC(22,""B"",$E(X,1,30),DA)="""""
^DD(22,.01,1,1,2)="K ^DIC(22,""B"",$E(X,1,30),DA)"
^DD(22,.01,3)="NAME MUST BE 3-30 CHARACTERS LONG & NOT BEGIN WITH PUNCTUATION"
^DD(22,.01,21,0)="^^3^3^2990818^^"
^DD(22,.01,21,1,0)="This field contains the name of the period/place where a patient may"
^DD(22,.01,21,2,0)="have been a prisoner of war.  Choices include WWI and Vietnam.  This "
^DD(22,.01,21,3,0)="data must NOT be edited in any way."
^DD(22,.01,"DT")="2821013"
^DD(22,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>14!($L(X)<1) X"
^DD(22,1,1,0)="^.1"
^DD(22,1,1,1,0)="22^C"
^DD(22,1,1,1,1)="S ^DIC(22,""C"",$E(X,1,30),DA)="""""
^DD(22,1,1,1,2)="K ^DIC(22,""C"",$E(X,1,30),DA)"
^DD(22,1,3)="ANSWER MUST BE 1-14 CHARACTERS IN LENGTH"
^DD(22,1,21,0)="^^4^4^2911222^"
^DD(22,1,21,1,0)="This field contains an alternate name by which this prisoner of war period"
^DD(22,1,21,2,0)="may be called.  This abbreviation may be displayed on outputs or other"
^DD(22,1,21,3,0)="displays where there is insufficient space to display the entire name of"
^DD(22,1,21,4,0)="the POW PERIOD."
^DD(22,1,"DT")="2880526"
^DD(22,100,0)="SYNONYM^22.01^^.01;0"
^DD(22,100,21,0)="^^4^4^2930127^^^"
^DD(22,100,21,1,0)="A synonym or shortened name associated with a specific period of"
^DD(22,100,21,2,0)="service.  The shortened name may be 2-28 characters in length and"
^DD(22,100,21,3,0)="is a free text field."
^DD(22,100,21,4,0)="|"
^DD(22,101,0)="CODE^P21'^DIC(21,^0;3^Q"
^DD(22,101,21,0)="^^6^6^2930127^^^"
^DD(22,101,21,1,0)="This field is a pointer to the .01 field of the Period of Service"
^DD(22,101,21,2,0)="file which contains all periods of service and related data.  The"
^DD(22,101,21,3,0)="prisoner of war code contains the single character code by which"
^DD(22,101,21,4,0)="this status is identified.  Zero (0) stands for YES and one (1)"
^DD(22,101,21,5,0)="stands for NO."
^DD(22,101,21,6,0)="|"
^DD(22,101,"DT")="2831228"
^DD(22,"B","ABBREVIATION",1)=""
^DD(22,"B","CODE",101)=""
^DD(22,"B","NAME",.01)=""
^DD(22,"B","NUMBER",.001)=""
^DD(22,"B","SYNONYM",100)=""
^DD(22,"GL",0,1,.01)=""
^DD(22,"GL",0,2,1)=""
^DD(22,"GL",0,3,101)=""
^DD(22,"GL",.01,0,100)=""
^DD(22,"IX",.01)=""
^DD(22,"IX",1)=""
^DD(22,"RQ",.01)=""
^DD(22,"SB",22.01,100)=""
^DD(22.01,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(22.01,0,"NM","SYNONYM")=""
^DD(22.01,0,"UP")="22"
^DD(22.01,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>28!($L(X)<2) X"
^DD(22.01,.01,1,0)="^.1"
^DD(22.01,.01,1,1,0)="22^B^MNEMONIC"
^DD(22.01,.01,1,1,1)="S ^DIC(22,""B"",$E(X,1,30),DA(1),DA)=1"
^DD(22.01,.01,1,1,2)="K ^DIC(22,""B"",$E(X,1,30),DA(1),DA)"
^DD(22.01,.01,3)="ANSWER MUST BE 2-28 CHARACTERS IN LENGTH"
^DD(22.01,.01,21,0)="^^4^4^2930127^^^"
^DD(22.01,.01,21,1,0)="A synonym or shortened name associated wtih a specific period of"
^DD(22.01,.01,21,2,0)="service.  The shortened name may be 2-28 characters in length adn"
^DD(22.01,.01,21,3,0)="is a free text field."
^DD(22.01,.01,21,4,0)="|"
^DD(22.01,"B","SYNONYM",.01)=""
^DD(22.01,"GL",0,1,.01)=""
^DD(22.01,"IX",.01)=""
^DD(23,0)="FIELD^NL^1^3"
^DD(23,0,"DDA")="N"
^DD(23,0,"DT")="3040224"
^DD(23,0,"IX","B",23,.01)=""
^DD(23,0,"IX","C",23,1)=""
^DD(23,0,"NM","BRANCH OF SERVICE")=""
^DD(23,0,"PT",2,.325)=""
^DD(23,0,"PT",2,.3291)=""
^DD(23,0,"PT",2,.3296)=""
^DD(23,0,"PT",2.312,3.02)=""
^DD(23,0,"PT",210.06,1)=""
^DD(23,0,"PT",355.8,.03)=""
^DD(23,0,"SCR")="I X'[""B.E.C."""
^DD(23,0,"VR")="5.3"
^DD(23,0,"VRPK")="DG"
^DD(23,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>14)!(X<1)!(X?.E1"".""1N.N) X"
^DD(23,.001,3)="Type a Number between 1 and 14, 0 Decimal Digits"
^DD(23,.001,21,0)="^.001^5^5^3040224^^^^"
^DD(23,.001,21,1,0)="This filed contains the internal entry number for this branch of"
^DD(23,.001,21,2,0)="service.  This number may be used by various software packages."
^DD(23,.001,21,3,0)="This must not be edited and entries must not be added or deleted"
^DD(23,.001,21,4,0)="unless done through a software upgrade of the MAS package."
^DD(23,.001,21,5,0)="|"
^DD(23,.001,"DT")="3040224"
^DD(23,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(23,.01,1,0)="^.1"
^DD(23,.01,1,1,0)="23^B"
^DD(23,.01,1,1,1)="S ^DIC(23,""B"",$E(X,1,30),DA)="""""
^DD(23,.01,1,1,2)="K ^DIC(23,""B"",$E(X,1,30),DA)"
^DD(23,.01,3)="Answer must be 2-30 characters in length."
^DD(23,.01,21,0)="^.001^4^4^3040224^^^^"
^DD(23,.01,21,1,0)="This field contains that NAME of the Branch of Service.  It should"
^DD(23,.01,21,2,0)="not be altered or deleted unless done through an upgrade of an MAS"
^DD(23,.01,21,3,0)="package installation."
^DD(23,.01,21,4,0)="|"
^DD(23,.01,"DT")="3040224"
^DD(23,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(23,1,1,0)="^.1"
^DD(23,1,1,1,0)="23^C"
^DD(23,1,1,1,1)="S ^DIC(23,""C"",$E(X,1,30),DA)="""""
^DD(23,1,1,1,2)="K ^DIC(23,""C"",$E(X,1,30),DA)"
^DD(23,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(23,1,21,0)="^^3^3^2930127^^^"
^DD(23,1,21,1,0)="This field contains a synonym or shortened name associated with a"
^DD(23,1,21,2,0)="specific branch of service."
^DD(23,1,21,3,0)="|"
^DD(23,"B","ABBREVIATION",1)=""
^DD(23,"B","NAME",.01)=""
^DD(23,"B","NUMBER",.001)=""
^DD(23,"GL",0,1,.01)=""
^DD(23,"GL",0,2,1)=""
^DD(23,"IX",.01)=""
^DD(23,"IX",1)=""
^DD(23,"RQ",.01)=""
^DD(25,0)="FIELD^NL^1^3"
^DD(25,0,"IX","B",25,.01)=""
^DD(25,0,"NM","TYPE OF DISCHARGE")=""
^DD(25,0,"PT",2,.324)=""
^DD(25,0,"PT",2,.329)=""
^DD(25,0,"PT",2,.3295)=""
^DD(25,0,"VR")="5.3"
^DD(25,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(25,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 10"
^DD(25,.001,21,0)="^^4^4^2911222^"
^DD(25,.001,21,1,0)="This field contains the internal entry number of this type of discharge"
^DD(25,.001,21,2,0)="as determined by VA FileMan and the MAS software package.  This number"
^DD(25,.001,21,3,0)="may be used by various software modules throughout DHCP.  It must not"
^DD(25,.001,21,4,0)="be altered nor should entries be added or removed from this file."
^DD(25,.001,"DT")="2840228"
^DD(25,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(25,.01,1,0)="^.1"
^DD(25,.01,1,1,0)="25^B"
^DD(25,.01,1,1,1)="S ^DIC(25,""B"",$E(X,1,30),DA)="""""
^DD(25,.01,1,1,2)="K ^DIC(25,""B"",$E(X,1,30),DA)"
^DD(25,.01,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(25,.01,21,0)="^^4^4^2911222^"
^DD(25,.01,21,1,0)="This field contains the name of all allowable military discharge types as"
^DD(25,.01,21,2,0)="determined by VACO.  This information is maintained by the MAS software"
^DD(25,.01,21,3,0)="package through frequent releases and should not be edited at the site"
^DD(25,.01,21,4,0)="level."
^DD(25,.01,"DT")="2840320"
^DD(25,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>12!($L(X)<1) X"
^DD(25,1,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(25,1,21,0)="^^3^3^2911222^"
^DD(25,1,21,1,0)="This field contains an abbreviate for this military discharge type.  On"
^DD(25,1,21,2,0)="outputs or displays where the full name of the discharge may not fit, this"
^DD(25,1,21,3,0)="abbreviation will be displayed instead."
^DD(25,"B","ABBREVIATION",1)=""
^DD(25,"B","NAME",.01)=""
^DD(25,"B","NUMBER",.001)=""
^DD(25,"GL",0,1,.01)=""
^DD(25,"GL",0,2,1)=""
^DD(25,"IX",.01)=""
^DD(25,"RQ",.01)=""
^DD(26.11,0)="FIELD^^2^9"
^DD(26.11,0,"DDA")="N"
^DD(26.11,0,"DT")="3030425"
^DD(26.11,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(26.11,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(26.11,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGPF(26.16,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(26.16,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(26.11,0,"IX","B",26.11,.01)=""
^DD(26.11,0,"NM","PRF LOCAL FLAG")=""
^DD(26.11,0,"PT",26.12,.01)=""
^DD(26.11,0,"PT",26.13,.02)=""
^DD(26.11,0,"VR")="5.3"
^DD(26.11,0,"VRPK")="DG"
^DD(26.11,.01,0)="NAME^RFXI^^0;1^S X=$$UP^XLFSTR(X) K:$E(X)'?1U!($E(X,$L(X))?1P)!($L(X)>30)!($L(X)<3)!'($TR(X,"" "","""")?1U.UN) X"
^DD(26.11,.01,.1)="PATIENT RECORD FLAG NAME"
^DD(26.11,.01,1,0)="^.1"
^DD(26.11,.01,1,1,0)="26.11^B"
^DD(26.11,.01,1,1,1)="S ^DGPF(26.11,""B"",$E(X,1,30),DA)="""""
^DD(26.11,.01,1,1,2)="K ^DGPF(26.11,""B"",$E(X,1,30),DA)"
^DD(26.11,.01,3)="Answer must be 3-30 characters in length.  No punctuation characters except spaces may be used.  No leading or trailing spaces.  Can contain numbers but not in the first position."
^DD(26.11,.01,21,0)="^.001^1^1^3040331^^^^"
^DD(26.11,.01,21,1,0)="This field contains the locally assigned name of the Patient Record Flag."
^DD(26.11,.01,"DT")="3040331"
^DD(26.11,.02,0)="STATUS^RSI^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(26.11,.02,3)="Enter the status of the patient record flag."
^DD(26.11,.02,21,0)="^^3^3^3030418^"
^DD(26.11,.02,21,1,0)="This field contains the ACTIVE or INACTIVE status of the Patient Record"
^DD(26.11,.02,21,2,0)="Flag.  Changing this field from ACTIVE to INACTIVE will inactivate all"
^DD(26.11,.02,21,3,0)="patient record flag assignments associated with this flag."
^DD(26.11,.02,23,0)="^.001^8^8^3030418^^^"
^DD(26.11,.02,23,1,0)="This field contains the Active or Inactive status of the Patient Record"
^DD(26.11,.02,23,2,0)="Flag as a set of codes."
^DD(26.11,.02,23,3,0)="This field will be used as a trigger that will be fired when the Status"
^DD(26.11,.02,23,4,0)="of either a LOCAL (#26.11) or a NATIONAL (#26.15) Patient Record Flag is"
^DD(26.11,.02,23,5,0)="changed from Active to Inactive."
^DD(26.11,.02,23,6,0)="The trigger process will Inactivate ALL active Patient Record Flag"
^DD(26.11,.02,23,7,0)="Assignment records in the PRF ASSIGNMENT (#26.13) file associated with"
^DD(26.11,.02,23,8,0)="this flag."
^DD(26.11,.02,"DT")="3030423"
^DD(26.11,.03,0)="TYPE^RP26.16'I^DGPF(26.16,^0;3^Q"
^DD(26.11,.03,3)="Enter the Patient Record Flag Type."
^DD(26.11,.03,21,0)="^.001^1^1^3030424^^^"
^DD(26.11,.03,21,1,0)="This field identifies the usage classification of the Patient Record Flag."
^DD(26.11,.03,23,0)="^.001^2^2^3030424^^^^"
^DD(26.11,.03,23,1,0)="This field identifies the usage classification of the Patient Record Flag"
^DD(26.11,.03,23,2,0)="as a pointer to the PRF TYPE file (#26.16)."
^DD(26.11,.03,"DT")="3030423"
^DD(26.11,.04,0)="REVIEW FREQUENCY DAYS^RNJ4,0I^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(26.11,.04,3)="Enter a number of days from 0 to 9999. (ex: 730 days = 2 years)"
^DD(26.11,.04,21,0)="^.001^3^3^3030418^^"
^DD(26.11,.04,21,1,0)="This field represents the number of days that may elapse between reviews "
^DD(26.11,.04,21,2,0)="of a Patient Record Flag Assignment.  A value of zero (""0"") indicates "
^DD(26.11,.04,21,3,0)="that no automatic review will occur. (example: 730 = 2 years)"
^DD(26.11,.04,"DT")="3030731"
^DD(26.11,.05,0)="NOTIFICATION DAYS^RNJ4,0I^^0;5^K:+X'=X!(X>9998)!(X<0)!(X?.E1"".""1N.N) X"
^DD(26.11,.05,3)="Enter a Number between 0 and 9998, 0 Decimal Digits"
^DD(26.11,.05,21,0)="^^5^5^3030418^"
^DD(26.11,.05,21,1,0)="This field contains the number of days prior to a patient record flag"
^DD(26.11,.05,21,2,0)="assignment's Review date that a review notification is sent to"
^DD(26.11,.05,21,3,0)="the flag's Review Mail Group.  A value of zero (""0"") indicates"
^DD(26.11,.05,21,4,0)="that NO prior notification is required. This field should always be less"
^DD(26.11,.05,21,5,0)="than the Review Frequency field value."
^DD(26.11,.05,"DT")="3030423"
^DD(26.11,.06,0)="REVIEW MAIL GROUP^*P3.8'I^XMB(3.8,^0;6^S DIC(""S"")=""I $E($P(^(0),""""^""""),1,4)=""""DGPF"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(26.11,.06,3)="Enter the mail group that will receive review notifications."
^DD(26.11,.06,12)="Allows only mail group names that begin with DGPF."
^DD(26.11,.06,12.1)="S DIC(""S"")=""I $E($P(^(0),""""^""""),1,4)=""""DGPF"""""""
^DD(26.11,.06,21,0)="^^7^7^3030425^"
^DD(26.11,.06,21,1,0)="This field contains the name of the mail group whose members will"
^DD(26.11,.06,21,2,0)="receive MailMan notification of Patient Record Flag Assignments"
^DD(26.11,.06,21,3,0)="that are due for review."
^DD(26.11,.06,21,4,0)=" "
^DD(26.11,.06,21,5,0)="The mail group name must begin with 'DGPF' and it is further recommended"
^DD(26.11,.06,21,6,0)="that locally-defined flag mail group names begin with 'DGPFZ' to prevent"
^DD(26.11,.06,21,7,0)="conflicts with nationally-released patient record flags."
^DD(26.11,.06,"DT")="3030425"
^DD(26.11,.07,0)="TIU PN TITLE^R*P8925.1'XI^TIU(8925.1,^0;7^S DIC(""S"")=""I $$TIULIST^DGPFDD(Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(26.11,.07,3)="Enter the associated Category II Progress Note Title."
^DD(26.11,.07,12)="Allows only Category II Progress Note Titles to be displayed."
^DD(26.11,.07,12.1)="S DIC(""S"")=""I $$TIULIST^DGPFDD(Y)"""
^DD(26.11,.07,21,0)="^^2^2^3040511^"
^DD(26.11,.07,21,1,0)="This field contains the Category II Progress Note Title that is associated"
^DD(26.11,.07,21,2,0)="with this Patient Record Flag."
^DD(26.11,.07,23,0)="^^3^3^3040511^"
^DD(26.11,.07,23,1,0)="This field contains the pointer to the TIU DOCUMENT DEFINITION file "
^DD(26.11,.07,23,2,0)="(#8925.1).  This field is used to link a Progress Note Title to the "
^DD(26.11,.07,23,3,0)="Patient Record Flag.  DBIA Reference: (#4386)"
^DD(26.11,.07,"DT")="3040607"
^DD(26.11,1,0)="DESCRIPTION^26.111^^1;0"
^DD(26.11,1,21,0)="^^2^2^3030423^"
^DD(26.11,1,21,1,0)="This field contains the text that describes the purpose and instructions"
^DD(26.11,1,21,2,0)="for application of this local Patient Record Flag to a patient."
^DD(26.11,1,"DT")="3021226"
^DD(26.11,2,0)="PRINCIPAL INVESTIGATOR(S)^26.112PA^^2;0"
^DD(26.11,2,21,0)="^^2^2^3030418^"
^DD(26.11,2,21,1,0)="This multiple field contains the principal investigator(s) names when the"
^DD(26.11,2,21,2,0)="Flag TYPE is RESEARCH."
^DD(26.11,2,23,0)="^.001^3^3^3030418^^"
^DD(26.11,2,23,1,0)="This multiple field contains the principal investigator(s) names as a"
^DD(26.11,2,23,2,0)="pointer to the NEW PERSON file (#200).  This field is only used when the"
^DD(26.11,2,23,3,0)="Flag TYPE is RESEARCH."
^DD(26.11,"B","DESCRIPTION",1)=""
^DD(26.11,"B","NAME",.01)=""
^DD(26.11,"B","NOTIFICATION DAYS",.05)=""
^DD(26.11,"B","PATIENT RECORD FLAG NAME",.01)="1"
^DD(26.11,"B","PRINCIPAL INVESTIGATOR(S)",2)=""
^DD(26.11,"B","REVIEW FREQUENCY DAYS",.04)=""
^DD(26.11,"B","REVIEW MAIL GROUP",.06)=""
^DD(26.11,"B","STATUS",.02)=""
^DD(26.11,"B","TIU PN TITLE",.07)=""
^DD(26.11,"B","TYPE",.03)=""
^DD(26.11,"GL",0,1,.01)=""
^DD(26.11,"GL",0,2,.02)=""
^DD(26.11,"GL",0,3,.03)=""
^DD(26.11,"GL",0,4,.04)=""
^DD(26.11,"GL",0,5,.05)=""
^DD(26.11,"GL",0,6,.06)=""
^DD(26.11,"GL",0,7,.07)=""
^DD(26.11,"GL",1,0,1)=""
^DD(26.11,"GL",2,0,2)=""
^DD(26.11,"IX",.01)=""
^DD(26.11,"RQ",.01)=""
^DD(26.11,"RQ",.02)=""
^DD(26.11,"RQ",.03)=""
^DD(26.11,"RQ",.04)=""
^DD(26.11,"RQ",.05)=""
^DD(26.11,"RQ",.07)=""
^DD(26.11,"SB",26.111,1)=""
^DD(26.11,"SB",26.112,2)=""
^DD(26.111,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(26.111,0,"DT")="3021129"
^DD(26.111,0,"NM","DESCRIPTION")=""
^DD(26.111,0,"UP")="26.11"
^DD(26.111,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(26.111,.01,3)="Enter the purpose and instructions for assigning this flag."
^DD(26.111,.01,"DT")="3030423"
^DD(26.111,"B","DESCRIPTION",.01)=""
^DD(26.111,"GL",0,1,.01)=""
^DD(26.112,0)="PRINCIPAL INVESTIGATOR(S) SUB-FIELD^^.01^1"
^DD(26.112,0,"DT")="3030304"
^DD(26.112,0,"IX","B",26.112,.01)=""
^DD(26.112,0,"NM","PRINCIPAL INVESTIGATOR(S)")=""
^DD(26.112,0,"UP")="26.11"
^DD(26.112,.01,0)="PRINCIPAL INVESTIGATOR(S)^MP200'I^VA(200,^0;1^Q"
^DD(26.112,.01,1,0)="^.1"
^DD(26.112,.01,1,1,0)="26.112^B"
^DD(26.112,.01,1,1,1)="S ^DGPF(26.11,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(26.112,.01,1,1,2)="K ^DGPF(26.11,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(26.112,.01,3)="Enter the Principal Investigator name."
^DD(26.112,.01,4)="I $D(DGLKUP) D PIHELP^DGPFDD"
^DD(26.112,.01,21,0)="^^2^2^3030418^"
^DD(26.112,.01,21,1,0)="This field contains the name of the Principal Investigator associated "
^DD(26.112,.01,21,2,0)="with the Research Type of this Patient Record Flag."
^DD(26.112,.01,"DT")="3040308"
^DD(26.112,"B","PRINCIPAL INVESTIGATOR(S)",.01)=""
^DD(26.112,"GL",0,1,.01)=""
^DD(26.112,"IX",.01)=""
^DD(26.12,0)="FIELD^^.04^5"
^DD(26.12,0,"DDA")="N"
^DD(26.12,0,"DT")="3030207"
^DD(26.12,0,"ID",.02)="W ""   "",$$FMTE^DILIBF($P(^(0),U,2),6)"
^DD(26.12,0,"IX","B",26.12,.01)=""
^DD(26.12,0,"NM","PRF LOCAL FLAG HISTORY")=""
^DD(26.12,0,"VR")="5.3"
^DD(26.12,0,"VRPK")="DG"
^DD(26.12,.001,0)="NUMBER^NJ15,0I^^ ^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(26.12,.001,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(26.12,.001,21,0)="^^3^3^3030227^"
^DD(26.12,.001,21,1,0)="This is the internal entry number which is assigned to each record of "
^DD(26.12,.001,21,2,0)="this file.  This field can be used to help in identifying all History "
^DD(26.12,.001,21,3,0)="records for each Enter/Edit/Review to the PRF LOCAL FLAG (#26.11) record."
^DD(26.12,.001,"DT")="3030423"
^DD(26.12,.01,0)="FLAG NAME^RP26.11'I^DGPF(26.11,^0;1^Q"
^DD(26.12,.01,1,0)="^.1"
^DD(26.12,.01,1,1,0)="26.12^B"
^DD(26.12,.01,1,1,1)="S ^DGPF(26.12,""B"",$E(X,1,30),DA)="""""
^DD(26.12,.01,1,1,2)="K ^DGPF(26.12,""B"",$E(X,1,30),DA)"
^DD(26.12,.01,3)=""
^DD(26.12,.01,21,0)="^^2^2^3030509^"
^DD(26.12,.01,21,1,0)="This field contains the record flag name that is associated with the "
^DD(26.12,.01,21,2,0)="history record."
^DD(26.12,.01,23,0)="^.001^2^2^3030418^^"
^DD(26.12,.01,23,1,0)="This field contains a pointer to the record flag NAME field (#.01) of the"
^DD(26.12,.01,23,2,0)="PRF LOCAL FLAG (#26.11) file."
^DD(26.12,.01,"DT")="3030509"
^DD(26.12,.02,0)="FLAG EDIT DATE/TIME^RDI^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(26.12,.02,21,0)="^^2^2^3030418^"
^DD(26.12,.02,21,1,0)="This field contains the date/time that an entry in the PRF LOCAL FLAG "
^DD(26.12,.02,21,2,0)="file was Entered, Edited, or Reviewed."
^DD(26.12,.02,"DT")="3030423"
^DD(26.12,.03,0)="ENTERED/EDITED BY^RP200'I^VA(200,^0;3^Q"
^DD(26.12,.03,21,0)="^^2^2^3030418^"
^DD(26.12,.03,21,1,0)="This field contains the name of the person making the Enter/Edit/Review to"
^DD(26.12,.03,21,2,0)="the associated PRF LOCAL FLAG record."
^DD(26.12,.03,23,0)="^.001^3^3^3030418^^"
^DD(26.12,.03,23,1,0)="This field contains the pointer to the NEW PERSON FILE (#200) of the"
^DD(26.12,.03,23,2,0)="person making the Enter/Edit/Review to the associated PRF LOCAL FLAG"
^DD(26.12,.03,23,3,0)="(#26.11) record."
^DD(26.12,.03,"DT")="3030423"
^DD(26.12,.04,0)="EDIT REASON^26.122^^1;0"
^DD(26.12,.04,21,0)="^.001^2^2^3030418^^"
^DD(26.12,.04,21,1,0)="This field contains the text of the reason for the Enter/Edit/Review to"
^DD(26.12,.04,21,2,0)="the associated PRF LOCAL FLAG record."
^DD(26.12,"B","EDIT REASON",.04)=""
^DD(26.12,"B","ENTERED/EDITED BY",.03)=""
^DD(26.12,"B","FLAG EDIT DATE/TIME",.02)=""
^DD(26.12,"B","FLAG NAME",.01)=""
^DD(26.12,"B","NUMBER",.001)=""
^DD(26.12,"GL",0,1,.01)=""
^DD(26.12,"GL",0,2,.02)=""
^DD(26.12,"GL",0,3,.03)=""
^DD(26.12,"GL",1,0,.04)=""
^DD(26.12,"IX",.01)=""
^DD(26.12,"RQ",.01)=""
^DD(26.12,"RQ",.02)=""
^DD(26.12,"RQ",.03)=""
^DD(26.12,"SB",26.122,.04)=""
^DD(26.122,0)="EDIT REASON SUB-FIELD^^.01^1"
^DD(26.122,0,"DT")="3021129"
^DD(26.122,0,"NM","EDIT REASON")=""
^DD(26.122,0,"UP")="26.12"
^DD(26.122,.01,0)="EDIT REASON^WL^^0;1^Q"
^DD(26.122,.01,21,0)="^^2^2^3030418^"
^DD(26.122,.01,21,1,0)="This field contains the comment text that applies to the reason for the"
^DD(26.122,.01,21,2,0)="Enter/Edit/Review to the associated PRF LOCAL FLAG record."
^DD(26.122,.01,"DT")="3030227"
^DD(26.122,"B","EDIT REASON",.01)=""
^DD(26.122,"GL",0,1,.01)=""
^DD(26.13,0)="FIELD^^1^8"
^DD(26.13,0,"DDA")="N"
^DD(26.13,0,"DT")="3030423"
^DD(26.13,0,"ID",.02)="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,2),1:"""") D NAME^DICM2 W ""   "",DINAME,@(""$E(""_DIC_""Y,0),0)"")"
^DD(26.13,0,"IX","B",26.13,.01)=""
^DD(26.13,0,"NM","PRF ASSIGNMENT")=""
^DD(26.13,0,"PT",26.14,.01)=""
^DD(26.13,0,"VR")="5.3"
^DD(26.13,0,"VRPK")="DG"
^DD(26.13,.001,0)="NUMBER^NJ15,0I^^ ^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(26.13,.001,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(26.13,.001,21,0)="^^2^2^3021210^"
^DD(26.13,.001,21,1,0)="This is the internal entry number which is assigned to each record of this"
^DD(26.13,.001,21,2,0)="file."
^DD(26.13,.001,"DT")="3030423"
^DD(26.13,.01,0)="PATIENT NAME^RP2'I^DPT(^0;1^Q"
^DD(26.13,.01,1,0)="^.1"
^DD(26.13,.01,1,1,0)="26.13^B"
^DD(26.13,.01,1,1,1)="S ^DGPF(26.13,""B"",$E(X,1,30),DA)="""""
^DD(26.13,.01,1,1,2)="K ^DGPF(26.13,""B"",$E(X,1,30),DA)"
^DD(26.13,.01,3)="Enter the patient for this record flag assignment."
^DD(26.13,.01,21,0)="^^2^2^3030421^"
^DD(26.13,.01,21,1,0)="This field contains the name of the patient that has been assigned the"
^DD(26.13,.01,21,2,0)="PATIENT RECORD FLAG."
^DD(26.13,.01,23,0)="^.001^2^2^3030421^^"
^DD(26.13,.01,23,1,0)="This field contains a pointer to the PATIENT FILE (#2) of the patient"
^DD(26.13,.01,23,2,0)="that has been assigned the PATIENT RECORD FLAG."
^DD(26.13,.01,"DT")="3030423"
^DD(26.13,.02,0)="FLAG NAME^RVI^^0;2^Q"
^DD(26.13,.02,3)="Enter the patient record flag name."
^DD(26.13,.02,21,0)="^.001^2^2^3030423^^"
^DD(26.13,.02,21,1,0)="This field contains the Patient Record Flag Name that is assigned to a "
^DD(26.13,.02,21,2,0)="patient."
^DD(26.13,.02,23,0)="^.001^3^3^3030423^^^"
^DD(26.13,.02,23,1,0)="This field contains the Patient Record Flag Name that is assigned to a"
^DD(26.13,.02,23,2,0)="patient as a variable pointer field that will either reference the PRF"
^DD(26.13,.02,23,3,0)="NATIONAL FLAG file (#26.15) or the PRF LOCAL FLAG file (#26.11)."
^DD(26.13,.02,"DT")="3030423"
^DD(26.13,.02,"V",0)="^.12P^2^2"
^DD(26.13,.02,"V",1,0)="26.15^National Flag^1^N^n^n"
^DD(26.13,.02,"V",2,0)="26.11^Local Flag^2^L^n^n"
^DD(26.13,.02,"V","B",26.11,2)=""
^DD(26.13,.02,"V","B",26.15,1)=""
^DD(26.13,.02,"V","M","Local Flag",2)=""
^DD(26.13,.02,"V","M","National Flag",1)=""
^DD(26.13,.02,"V","O",1,1)=""
^DD(26.13,.02,"V","O",2,2)=""
^DD(26.13,.02,"V","P","L",2)=""
^DD(26.13,.02,"V","P","N",1)=""
^DD(26.13,.03,0)="STATUS^RSI^0:INACTIVE;1:ACTIVE;^0;3^Q"
^DD(26.13,.03,3)="Enter the status of the record flag assignment."
^DD(26.13,.03,21,0)="^^2^2^3030421^"
^DD(26.13,.03,21,1,0)="This field indicates if the patient record flag assignment is Active or"
^DD(26.13,.03,21,2,0)="Inactive for this patient."
^DD(26.13,.03,"DT")="3050622"
^DD(26.13,.04,0)="OWNER SITE^RP4'I^DIC(4,^0;4^Q"
^DD(26.13,.04,3)="Enter the site that owns this record flag assignment."
^DD(26.13,.04,21,0)="^^4^4^3030421^"
^DD(26.13,.04,21,1,0)="This field contains the current site that owns this patient flag"
^DD(26.13,.04,21,2,0)="assignment. Patient assignments may only be edited by the owner site. The"
^DD(26.13,.04,21,3,0)="owner site normally corresponds to the site providing primary care to the"
^DD(26.13,.04,21,4,0)="patient."
^DD(26.13,.04,23,0)="^.001^4^4^3030421^^"
^DD(26.13,.04,23,1,0)="This field contains a pointer to the INSTITUTION file (#4) of the current"
^DD(26.13,.04,23,2,0)="site that owns this patient flag assignment. Patient assignments may only"
^DD(26.13,.04,23,3,0)="be edited by the owner site. The owner site normally corresponds to the"
^DD(26.13,.04,23,4,0)="site providing primary care to the patient."
^DD(26.13,.04,"DT")="3050622"
^DD(26.13,.05,0)="ORIGINATING SITE^RP4'I^DIC(4,^0;5^Q"
^DD(26.13,.05,3)="Enter the site that initially made the record flag assignment."
^DD(26.13,.05,21,0)="^^3^3^3030421^"
^DD(26.13,.05,21,1,0)="This field contains the site that initially assigned the patient "
^DD(26.13,.05,21,2,0)="record flag to this patient.  The site that assigns the flag is not "
^DD(26.13,.05,21,3,0)="required to be the owner of the assignment."
^DD(26.13,.05,23,0)="^.001^2^2^3030421^^^"
^DD(26.13,.05,23,1,0)="This field contains a pointer to the INSTITUTION FILE (#4) of the site"
^DD(26.13,.05,23,2,0)="that first entered the flag on this patient."
^DD(26.13,.05,"DT")="3030423"
^DD(26.13,.06,0)="REVIEW DATE^DI^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(26.13,.06,3)="Enter the review date for the record flag assignment."
^DD(26.13,.06,21,0)="^.001^2^2^3030421^^^"
^DD(26.13,.06,21,1,0)="This field will contain the date that the flag assignment is due for "
^DD(26.13,.06,21,2,0)="review to determine continuing appropriateness."
^DD(26.13,.06,"DT")="3030423"
^DD(26.13,1,0)="ASSIGNMENT NARRATIVE^26.132^^1;0"
^DD(26.13,1,21,0)="^^5^5^3030423^"
^DD(26.13,1,21,1,0)="This word processing field contains the patient record flag assignment"
^DD(26.13,1,21,2,0)="narrative text. The assignment narrative text is a description of the"
^DD(26.13,1,21,3,0)="incident or reason that generated the need for this patient record flag"
^DD(26.13,1,21,4,0)="assignment.  The description is followed by recommended actions that"
^DD(26.13,1,21,5,0)="should be performed by a person working with this specific patient."
^DD(26.13,"B","ASSIGNMENT NARRATIVE",1)=""
^DD(26.13,"B","FLAG NAME",.02)=""
^DD(26.13,"B","NUMBER",.001)=""
^DD(26.13,"B","ORIGINATING SITE",.05)=""
^DD(26.13,"B","OWNER SITE",.04)=""
^DD(26.13,"B","PATIENT NAME",.01)=""
^DD(26.13,"B","REVIEW DATE",.06)=""
^DD(26.13,"B","STATUS",.03)=""
^DD(26.13,"GL",0,1,.01)=""
^DD(26.13,"GL",0,2,.02)=""
^DD(26.13,"GL",0,3,.03)=""
^DD(26.13,"GL",0,4,.04)=""
^DD(26.13,"GL",0,5,.05)=""
^DD(26.13,"GL",0,6,.06)=""
^DD(26.13,"GL",1,0,1)=""
^DD(26.13,"IX",.01)=""
^DD(26.13,"RQ",.01)=""
^DD(26.13,"RQ",.02)=""
^DD(26.13,"RQ",.03)=""
^DD(26.13,"RQ",.04)=""
^DD(26.13,"RQ",.05)=""
^DD(26.13,"SB",26.132,1)=""
^DD(26.132,0)="ASSIGNMENT NARRATIVE SUB-FIELD^^.01^1"
^DD(26.132,0,"DT")="3021129"
^DD(26.132,0,"NM","ASSIGNMENT NARRATIVE")=""
^DD(26.132,0,"UP")="26.13"
^DD(26.132,.01,0)="ASSIGNMENT NARRATIVE^WL^^0;1^Q"
^DD(26.132,.01,3)="Enter the narrative text for the record flag assignment."
^DD(26.132,.01,21,0)="^^5^5^3030421^"
^DD(26.132,.01,21,1,0)="This word field contains the patient record flag assignment narrative"
^DD(26.132,.01,21,2,0)="text. The assignment narrative text is a description of the incident or"
^DD(26.132,.01,21,3,0)="reason that generated the need for this patient record flag assignment.  "
^DD(26.132,.01,21,4,0)="The description is followed by recommended actions that should be"
^DD(26.132,.01,21,5,0)="performed by a person working with this specific patient."
^DD(26.132,.01,"DT")="3030423"
^DD(26.132,"B","ASSIGNMENT NARRATIVE",.01)=""
^DD(26.132,"GL",0,1,.01)=""
^DD(26.14,0)="FIELD^^1^8"
^DD(26.14,0,"DDA")="N"
^DD(26.14,0,"DT")="3030428"
^DD(26.14,0,"ID",.02)="W ""   "",$$FMTE^DILIBF($P(^(0),U,2),6)"
^DD(26.14,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(26.14,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(26.14,0,"IX","B",26.14,.01)=""
^DD(26.14,0,"NM","PRF ASSIGNMENT HISTORY")=""
^DD(26.14,0,"PT",26.17,.02)=""
^DD(26.14,0,"VR")="5.3"
^DD(26.14,0,"VRPK")="DG"
^DD(26.14,.001,0)="NUMBER^NJ15,0I^^ ^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(26.14,.001,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(26.14,.001,21,0)="^^2^2^3030204^"
^DD(26.14,.001,21,1,0)="This is the internal entry number which is assigned to each record of this"
^DD(26.14,.001,21,2,0)="file."
^DD(26.14,.001,"DT")="3030423"
^DD(26.14,.01,0)="PRF ASSIGNMENT^RP26.13'I^DGPF(26.13,^0;1^Q"
^DD(26.14,.01,1,0)="^.1"
^DD(26.14,.01,1,1,0)="26.14^B"
^DD(26.14,.01,1,1,1)="S ^DGPF(26.14,""B"",$E(X,1,30),DA)="""""
^DD(26.14,.01,1,1,2)="K ^DGPF(26.14,""B"",$E(X,1,30),DA)"
^DD(26.14,.01,3)="Enter the record flag assignment associated with this history record."
^DD(26.14,.01,21,0)="^^2^2^3030421^"
^DD(26.14,.01,21,1,0)="This field contains the history record's parent Patient Record Flag"
^DD(26.14,.01,21,2,0)="Assignment in the PRF ASSIGNMENT file."
^DD(26.14,.01,23,0)="^.001^2^2^3030421^^"
^DD(26.14,.01,23,1,0)="This field is a pointer to the history record's parent Patient Record Flag"
^DD(26.14,.01,23,2,0)="Assignment in the PRF ASSIGNMENT file (#26.13)."
^DD(26.14,.01,"DT")="3030423"
^DD(26.14,.02,0)="DATE/TIME^RDI^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(26.14,.02,3)="Enter the Date/Time of the assignment history."
^DD(26.14,.02,21,0)="^.001^3^3^3030421^^^^"
^DD(26.14,.02,21,1,0)="This field will contain the Date and [optional] Time of either the initial"
^DD(26.14,.02,21,2,0)="ASSIGNMENT of the PATIENT RECORD FLAG or the REVIEW Date/Time of the "
^DD(26.14,.02,21,3,0)="PATIENT RECORD FLAG."
^DD(26.14,.02,"DT")="3030423"
^DD(26.14,.03,0)="ACTION^RSI^1:NEW ASSIGNMENT;2:CONTINUE;3:INACTIVATE;4:REACTIVATE;5:ENTERED IN ERROR;^0;3^Q"
^DD(26.14,.03,3)="Enter the action associated with the assignment history."
^DD(26.14,.03,21,0)="^^3^3^3040318^"
^DD(26.14,.03,21,1,0)="This field contains the event that occurred to create this PRF ASSIGNMENT"
^DD(26.14,.03,21,2,0)="HISTORY record.  Sample events are NEW ASSIGNMENT, CONTINUE, INACTIVATE, "
^DD(26.14,.03,21,3,0)="REACTIVATE and ENTERED IN ERROR."
^DD(26.14,.03,"DT")="3050119"
^DD(26.14,.04,0)="ENTERED BY^RP200'I^VA(200,^0;4^Q"
^DD(26.14,.04,3)="Enter the user who is entering or editing the record flag assignment."
^DD(26.14,.04,21,0)="^^2^2^3030421^"
^DD(26.14,.04,21,1,0)="This field contains the name of the person entering, editing or"
^DD(26.14,.04,21,2,0)="reviewing the associated patient record flag assignment."
^DD(26.14,.04,23,0)="^.001^3^3^3030421^^"
^DD(26.14,.04,23,1,0)="This field contains the pointer to the NEW PERSON FILE (#200) of the"
^DD(26.14,.04,23,2,0)="person making the Enter/Edit/Review to a PATIENT RECORD FLAG of the"
^DD(26.14,.04,23,3,0)="associated PRF ASSIGNMENT FILE (#26.13) record."
^DD(26.14,.04,"DT")="3030423"
^DD(26.14,.05,0)="APPROVED BY^RP200'IO^VA(200,^0;5^Q"
^DD(26.14,.05,2)="S Y(0)=Y S Y=$$COS^DGPFDD(Y)"
^DD(26.14,.05,2.1)="S Y=$$COS^DGPFDD(Y)"
^DD(26.14,.05,3)="Enter the person approving the record flag assignment."
^DD(26.14,.05,21,0)="^.001^2^2^3030428^^^"
^DD(26.14,.05,21,1,0)="This field contains the name of the person who approved the assignment of"
^DD(26.14,.05,21,2,0)="the patient record flag to the patient."
^DD(26.14,.05,23,0)="^^6^6^3030428^"
^DD(26.14,.05,23,1,0)="This field contains the pointer to the NEW PERSON FILE (#200) of the"
^DD(26.14,.05,23,2,0)="person who approved the assignment of the patient record flag to the"
^DD(26.14,.05,23,3,0)="patient.  When the assignment originates from a site different from the"
^DD(26.14,.05,23,4,0)="local site, the internal value of the field will be .5 (POSTMASTER).  An "
^DD(26.14,.05,23,5,0)="output transform converts POSTMASTER to the text ""CHIEF OF STAFF"" for "
^DD(26.14,.05,23,6,0)="screen displays and reports."
^DD(26.14,.05,"DT")="3030509"
^DD(26.14,.06,0)="TIU PN LINK^RP8925'I^TIU(8925,^0;6^Q"
^DD(26.14,.06,3)="Enter the Progress Note IEN that will be linked to this assignment history record."
^DD(26.14,.06,21,0)="^^3^3^3040331^"
^DD(26.14,.06,21,1,0)="This field contains the IEN of the TIU Progress Note that is linked to"
^DD(26.14,.06,21,2,0)="this PRF Assignment History record."
^DD(26.14,.06,21,3,0)="Integration Agreement #4387."
^DD(26.14,.06,23,0)="^^2^2^3040331^^"
^DD(26.14,.06,23,1,0)="This field contains the pointer to the TIU DOCUMENT file (#8925) of"
^DD(26.14,.06,23,2,0)="the Progress Note that is linked to this PRF Assignment History record."
^DD(26.14,.06,"DT")="3040420"
^DD(26.14,1,0)="HISTORY COMMENTS^26.141^^1;0"
^DD(26.14,1,21,0)="^^3^3^3030423^"
^DD(26.14,1,21,1,0)="This word processing field contains the comments associated with the "
^DD(26.14,1,21,2,0)="patient record flag assignment history.  The history comments should "
^DD(26.14,1,21,3,0)="describe the reason that the history record was generated."
^DD(26.14,"B","ACTION",.03)=""
^DD(26.14,"B","APPROVED BY",.05)=""
^DD(26.14,"B","DATE/TIME",.02)=""
^DD(26.14,"B","ENTERED BY",.04)=""
^DD(26.14,"B","HISTORY COMMENTS",1)=""
^DD(26.14,"B","NUMBER",.001)=""
^DD(26.14,"B","PRF ASSIGNMENT",.01)=""
^DD(26.14,"B","TIU PN LINK",.06)=""
^DD(26.14,"GL",0,1,.01)=""
^DD(26.14,"GL",0,2,.02)=""
^DD(26.14,"GL",0,3,.03)=""
^DD(26.14,"GL",0,4,.04)=""
^DD(26.14,"GL",0,5,.05)=""
^DD(26.14,"GL",0,6,.06)=""
^DD(26.14,"GL",1,0,1)=""
^DD(26.14,"IX",.01)=""
^DD(26.14,"RQ",.01)=""
^DD(26.14,"RQ",.02)=""
^DD(26.14,"RQ",.03)=""
^DD(26.14,"RQ",.04)=""
^DD(26.14,"RQ",.05)=""
^DD(26.14,"RQ",.06)=""
^DD(26.14,"SB",26.141,1)=""
^DD(26.141,0)="HISTORY COMMENTS SUB-FIELD^^.01^1"
^DD(26.141,0,"DT")="3021204"
^DD(26.141,0,"NM","HISTORY COMMENTS")=""
^DD(26.141,0,"UP")="26.14"
^DD(26.141,.01,0)="HISTORY COMMENTS^WL^^0;1^Q"
^DD(26.141,.01,3)="Enter the comments associated with this history record."
^DD(26.141,.01,23,0)="^.001^2^2^3030421^^^"
^DD(26.141,.01,23,1,0)="This field will contain the comments that apply to the Enter/Edit/Review"
^DD(26.141,.01,23,2,0)="of the patient's RECORD FLAG of the PRF ASSIGNMENT FILE (#26.13)."
^DD(26.141,.01,"DT")="3030423"
^DD(26.141,"B","HISTORY COMMENTS",.01)=""
^DD(26.141,"GL",0,1,.01)=""
^DD(26.15,0)="FIELD^^2^9"
^DD(26.15,0,"DDA")="N"
^DD(26.15,0,"DT")="3030303"
^DD(26.15,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(26.15,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(26.15,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGPF(26.16,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(26.16,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(26.15,0,"IX","B",26.15,.01)=""
^DD(26.15,0,"NM","PRF NATIONAL FLAG")=""
^DD(26.15,0,"PT",26.13,.02)=""
^DD(26.15,0,"VR")="5.3"
^DD(26.15,0,"VRPK")="DG"
^DD(26.15,.01,0)="NAME^RFIX^^0;1^S X=$$UP^XLFSTR(X) K:$E(X)'?1U!($E(X,$L(X))?1P)!($L(X)>30)!($L(X)<3)!'($TR(X,"" "","""")?1U.UN) X"
^DD(26.15,.01,1,0)="^.1"
^DD(26.15,.01,1,1,0)="26.15^B"
^DD(26.15,.01,1,1,1)="S ^DGPF(26.15,""B"",$E(X,1,30),DA)="""""
^DD(26.15,.01,1,1,2)="K ^DGPF(26.15,""B"",$E(X,1,30),DA)"
^DD(26.15,.01,3)="Answer must be 3-30 characters in length.  No punctuation characters except spaces may be used.  No leading or trailing spaces.  Can contain numbers but not in the first position."
^DD(26.15,.01,21,0)="^.001^2^2^3040203^^^^"
^DD(26.15,.01,21,1,0)="This field contains the nationally assigned name of the Patient Record "
^DD(26.15,.01,21,2,0)="Flag."
^DD(26.15,.01,"DT")="3040331"
^DD(26.15,.02,0)="STATUS^RSI^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(26.15,.02,3)="Enter the status of the patient record flag."
^DD(26.15,.02,21,0)="^^3^3^3030421^"
^DD(26.15,.02,21,1,0)="This field contains the Active or Inactive status of the Patient Record"
^DD(26.15,.02,21,2,0)="Flag.  Modification of this field should only be performed by national "
^DD(26.15,.02,21,3,0)="patch installation."
^DD(26.15,.02,23,0)="^.001^8^8^3030421^^"
^DD(26.15,.02,23,1,0)="This field contains the Active or Inactive status of the Patient Record"
^DD(26.15,.02,23,2,0)="Flag as a set of codes."
^DD(26.15,.02,23,3,0)="This field will be used as a trigger that will be fired when the Status"
^DD(26.15,.02,23,4,0)="of either a LOCAL (#26.11) or a NATIONAL (#26.15) Patient Record Flag is"
^DD(26.15,.02,23,5,0)="changed from Active to Inactive."
^DD(26.15,.02,23,6,0)="The trigger process will Inactivate ALL active Patient Record Flag"
^DD(26.15,.02,23,7,0)="Assignment records in the PRF ASSIGNMENT (#26.13) file associated with"
^DD(26.15,.02,23,8,0)="this flag."
^DD(26.15,.02,"DT")="3030423"
^DD(26.15,.03,0)="TYPE^RP26.16'I^DGPF(26.16,^0;3^Q"
^DD(26.15,.03,3)="Enter the Patient Record Flag Type. '??' to list available Types."
^DD(26.15,.03,21,0)="^^1^1^3030421^"
^DD(26.15,.03,21,1,0)="This field contains the usage classification of the Patient Record Flag."
^DD(26.15,.03,23,0)="^.001^2^2^3030421^^"
^DD(26.15,.03,23,1,0)="This field contains the usage classification of the Patient Record Flag"
^DD(26.15,.03,23,2,0)="as a pointer to the PRF TYPE file (#26.16)."
^DD(26.15,.03,"DT")="3030423"
^DD(26.15,.04,0)="REVIEW FREQUENCY DAYS^RNJ3,0I^^0;4^K:+X'=X!(X>730)!(X<0)!(X?.E1"".""1N.N) X"
^DD(26.15,.04,3)="Enter a Number between 0 and 730, 0 Decimal Digits"
^DD(26.15,.04,21,0)="^.001^3^3^3030731^^^^"
^DD(26.15,.04,21,1,0)="This field represents the number of days that may elapse between reviews"
^DD(26.15,.04,21,2,0)="of a Patient Record Flag Assignment.  A value of zero (""0"") indicates that"
^DD(26.15,.04,21,3,0)="no automatic review will occur."
^DD(26.15,.04,"DT")="3030731"
^DD(26.15,.05,0)="NOTIFICATION DAYS^RNJ3,0I^^0;5^K:+X'=X!(X>729)!(X<0)!(X?.E1"".""1N.N) X"
^DD(26.15,.05,3)="Enter a Number between 0 and 729, 0 Decimal Digits"
^DD(26.15,.05,21,0)="^^5^5^3030421^"
^DD(26.15,.05,21,1,0)="This field contains the number of days prior to a patient record flag "
^DD(26.15,.05,21,2,0)="assignment's review date that a notification is sent to the flag's Review "
^DD(26.15,.05,21,3,0)="Mail Group."
^DD(26.15,.05,21,4,0)="Per the VHA Directive for the Nationally mandated Category I Patient "
^DD(26.15,.05,21,5,0)="Record Flags project, this field value will be set to 60 days."
^DD(26.15,.05,"DT")="3030423"
^DD(26.15,.06,0)="REVIEW MAIL GROUP^P3.8'I^XMB(3.8,^0;6^Q"
^DD(26.15,.06,3)="Enter the mail group that will receive review notifications.(Note: Must start with DGPF)"
^DD(26.15,.06,21,0)="^^5^5^3030421^"
^DD(26.15,.06,21,1,0)="This field contains the name of the mail group whose members will receive"
^DD(26.15,.06,21,2,0)="MailMan notification of Patient Record Flag Assignments that are due for"
^DD(26.15,.06,21,3,0)="review."
^DD(26.15,.06,21,4,0)=" "
^DD(26.15,.06,21,5,0)="The mail group name must begin with 'DGPF'."
^DD(26.15,.06,"DT")="3030423"
^DD(26.15,.07,0)="TIU PN TITLE^RP8925.1'I^TIU(8925.1,^0;7^Q"
^DD(26.15,.07,3)="Enter the associated Category I Progress Note Title."
^DD(26.15,.07,21,0)="^^2^2^3040511^"
^DD(26.15,.07,21,1,0)="This field contains the Category I Progress Note Title that is associated"
^DD(26.15,.07,21,2,0)="with this Patient Record Flag."
^DD(26.15,.07,23,0)="^^3^3^3040511^"
^DD(26.15,.07,23,1,0)="This field contains the pointer to the TIU DOCUMENT DEFINITION file"
^DD(26.15,.07,23,2,0)="(#8925.1).  This field is used to link a Progress Note Title to the"
^DD(26.15,.07,23,3,0)="Patient Record Flag.  DBIA Reference: (#4386)"
^DD(26.15,.07,"DT")="3040511"
^DD(26.15,1,0)="DESCRIPTION^26.151^^1;0"
^DD(26.15,1,21,0)="^.001^2^2^3030421^^^"
^DD(26.15,1,21,1,0)="This field contains the text that describes the purpose and instructions"
^DD(26.15,1,21,2,0)="for application of this national Patient Record Flag to a patient."
^DD(26.15,2,0)="PRINCIPAL INVESTIGATOR(S)^26.152PA^^2;0"
^DD(26.15,2,21,0)="^^2^2^3030421^"
^DD(26.15,2,21,1,0)="This multiple field contains the principal investigator(s) names when the"
^DD(26.15,2,21,2,0)="Flag TYPE is RESEARCH."
^DD(26.15,2,23,0)="^.001^3^3^3030421^^"
^DD(26.15,2,23,1,0)="This multiple field contains the principal investigator(s) names as a"
^DD(26.15,2,23,2,0)="pointer to the NEW PERSON file (#200).  This field is used when the Flag"
^DD(26.15,2,23,3,0)="TYPE is RESEARCH."
^DD(26.15,"B","DESCRIPTION",1)=""
^DD(26.15,"B","NAME",.01)=""
^DD(26.15,"B","NOTIFICATION DAYS",.05)=""
^DD(26.15,"B","PRINCIPAL INVESTIGATOR(S)",2)=""
^DD(26.15,"B","REVIEW FREQUENCY DAYS",.04)=""
^DD(26.15,"B","REVIEW MAIL GROUP",.06)=""
^DD(26.15,"B","STATUS",.02)=""
^DD(26.15,"B","TIU PN TITLE",.07)=""
^DD(26.15,"B","TYPE",.03)=""
^DD(26.15,"GL",0,1,.01)=""
^DD(26.15,"GL",0,2,.02)=""
^DD(26.15,"GL",0,3,.03)=""
^DD(26.15,"GL",0,4,.04)=""
^DD(26.15,"GL",0,5,.05)=""
^DD(26.15,"GL",0,6,.06)=""
^DD(26.15,"GL",0,7,.07)=""
^DD(26.15,"GL",1,0,1)=""
^DD(26.15,"GL",2,0,2)=""
^DD(26.15,"IX",.01)=""
^DD(26.15,"RQ",.01)=""
^DD(26.15,"RQ",.02)=""
^DD(26.15,"RQ",.03)=""
^DD(26.15,"RQ",.04)=""
^DD(26.15,"RQ",.05)=""
^DD(26.15,"RQ",.07)=""
^DD(26.15,"SB",26.151,1)=""
^DD(26.15,"SB",26.152,2)=""
^DD(26.151,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(26.151,0,"DT")="3021219"
^DD(26.151,0,"NM","DESCRIPTION")=""
^DD(26.151,0,"UP")="26.15"
^DD(26.151,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(26.151,.01,3)="Enter the purpose and instructions for assigning this flag"
^DD(26.151,.01,21,0)="^.001^2^2^3030421^^^^"
^DD(26.151,.01,21,1,0)="This field contains the text that describes the purpose and application "
^DD(26.151,.01,21,2,0)="of this national Patient Record Flag to a patient."
^DD(26.151,.01,"DT")="3030227"
^DD(26.151,"B","DESCRIPTION",.01)=""
^DD(26.151,"GL",0,1,.01)=""
^DD(26.152,0)="PRINCIPAL INVESTIGATOR(S) SUB-FIELD^^.01^1"
^DD(26.152,0,"DT")="3021219"
^DD(26.152,0,"IX","B",26.152,.01)=""
^DD(26.152,0,"NM","PRINCIPAL INVESTIGATOR(S)")=""
^DD(26.152,0,"UP")="26.15"
^DD(26.152,.01,0)="PRINCIPAL INVESTIGATOR(S)^P200'I^VA(200,^0;1^Q"
^DD(26.152,.01,1,0)="^.1"
^DD(26.152,.01,1,1,0)="26.152^B"
^DD(26.152,.01,1,1,1)="S ^DGPF(26.15,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(26.152,.01,1,1,2)="K ^DGPF(26.15,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(26.152,.01,3)="Enter the Principal Investigator name"
^DD(26.152,.01,21,0)="^^2^2^3030421^"
^DD(26.152,.01,21,1,0)="This field contains the name of the Principal Investigator associated"
^DD(26.152,.01,21,2,0)="with the Research Type of this Patient Record Flag."
^DD(26.152,.01,"DT")="3050301"
^DD(26.152,"B","PRINCIPAL INVESTIGATOR(S)",.01)=""
^DD(26.152,"GL",0,1,.01)=""
^DD(26.152,"IX",.01)=""
^DD(26.16,0)="FIELD^^.01^1"
^DD(26.16,0,"DDA")="N"
^DD(26.16,0,"DT")="3021226"
^DD(26.16,0,"IX","B",26.16,.01)=""
^DD(26.16,0,"NM","PRF TYPE")=""
^DD(26.16,0,"PT",26.11,.03)=""
^DD(26.16,0,"PT",26.15,.03)=""
^DD(26.16,0,"VR")="5.3"
^DD(26.16,0,"VRPK")="DG"
^DD(26.16,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(26.16,.01,1,0)="^.1"
^DD(26.16,.01,1,1,0)="26.16^B"
^DD(26.16,.01,1,1,1)="S ^DGPF(26.16,""B"",$E(X,1,30),DA)="""""
^DD(26.16,.01,1,1,2)="K ^DGPF(26.16,""B"",$E(X,1,30),DA)"
^DD(26.16,.01,3)="Answer must be 3-30 characters in length."
^DD(26.16,.01,21,0)="^.001^1^1^3030421^^"
^DD(26.16,.01,21,1,0)="This field contains the name of the Patient Record Flag Type."
^DD(26.16,.01,"DT")="3030423"
^DD(26.16,"B","NAME",.01)=""
^DD(26.16,"GL",0,1,.01)=""
^DD(26.16,"IX",.01)=""
^DD(26.16,"RQ",.01)=""
^DD(26.17,0)="FIELD^^.06^7"
^DD(26.17,0,"DDA")="N"
^DD(26.17,0,"DT")="3030613"
^DD(26.17,0,"ID",.03)="W ""   "",$$FMTE^DILIBF($P(^(0),U,3),6)"
^DD(26.17,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(26.17,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(26.17,0,"IX","B",26.17,.01)=""
^DD(26.17,0,"NM","PRF HL7 TRANSMISSION LOG")=""
^DD(26.17,0,"VR")="5.3"
^DD(26.17,0,"VRPK")="DG"
^DD(26.17,.01,0)="MESSAGE CONTROL ID^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(26.17,.01,1,0)="^.1"
^DD(26.17,.01,1,1,0)="26.17^B"
^DD(26.17,.01,1,1,1)="S ^DGPF(26.17,""B"",$E(X,1,30),DA)="""""
^DD(26.17,.01,1,1,2)="K ^DGPF(26.17,""B"",$E(X,1,30),DA)"
^DD(26.17,.01,3)="Answer must be 1-20 characters in length."
^DD(26.17,.01,21,0)="^^1^1^3030306^"
^DD(26.17,.01,21,1,0)="Unique ID generated by the VistA HL7 package."
^DD(26.17,.01,"DT")="3030306"
^DD(26.17,.02,0)="PRF ASSIGNMENT HISTORY^RP26.14'^DGPF(26.14,^0;2^Q"
^DD(26.17,.02,21,0)="^^1^1^3030613^"
^DD(26.17,.02,21,1,0)="This field contains a pointer to the PRF ASSIGNMENT HISTORY (#26.14) file."
^DD(26.17,.02,"DT")="3030613"
^DD(26.17,.03,0)="TRANSMISSION DATE/TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(26.17,.03,21,0)="^^2^2^3030306^"
^DD(26.17,.03,21,1,0)="This field contains the date and time that the HL7 message was "
^DD(26.17,.03,21,2,0)="transmitted."
^DD(26.17,.03,"DT")="3030619"
^DD(26.17,.04,0)="STATUS^RS^T:TRANSMITTED;A:ACCEPTED;RJ:REJECTED;M:MARKED FOR RE-TRANSMIT;RT:RE-TRANSMITTED;^0;4^Q"
^DD(26.17,.04,21,0)="^^1^1^3030306^"
^DD(26.17,.04,21,1,0)="This field will contain the transmission status of the HL7 message."
^DD(26.17,.04,"DT")="3030619"
^DD(26.17,.05,0)="SITE TRANSMITTED TO^RP4'^DIC(4,^0;5^Q"
^DD(26.17,.05,21,0)="^^1^1^3030613^"
^DD(26.17,.05,21,1,0)="This field will contain the site where the HL7 message was transmitted."
^DD(26.17,.05,"DT")="3030613"
^DD(26.17,.06,0)="ACK RECEIVED DATE/TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(26.17,.06,21,0)="^^2^2^3030613^"
^DD(26.17,.06,21,1,0)="This field contains the date and time an Acknowledgement message was "
^DD(26.17,.06,21,2,0)="received."
^DD(26.17,.06,"DT")="3030613"
^DD(26.17,.07,0)="ERROR CODES^26.1707^^ERR;0"
^DD(26.17,.07,21,0)="^^4^4^3050329^"
^DD(26.17,.07,21,1,0)="When the receiving site of a PRF Unsolicited Update (ORU~R01) HL7 message "
^DD(26.17,.07,21,2,0)="encounters one or more errors while processing the message, one or more "
^DD(26.17,.07,21,3,0)="error codes are returned in the Acknowledgment (ACK~R01) HL7 message.  "
^DD(26.17,.07,21,4,0)="This multiple field contains the returned error codes."
^DD(26.17,"B","ACK RECEIVED DATE/TIME",.06)=""
^DD(26.17,"B","ERROR CODES",.07)=""
^DD(26.17,"B","MESSAGE CONTROL ID",.01)=""
^DD(26.17,"B","PRF ASSIGNMENT HISTORY",.02)=""
^DD(26.17,"B","SITE TRANSMITTED TO",.05)=""
^DD(26.17,"B","STATUS",.04)=""
^DD(26.17,"B","TRANSMISSION DATE/TIME",.03)=""
^DD(26.17,"GL",0,1,.01)=""
^DD(26.17,"GL",0,2,.02)=""
^DD(26.17,"GL",0,3,.03)=""
^DD(26.17,"GL",0,4,.04)=""
^DD(26.17,"GL",0,5,.05)=""
^DD(26.17,"GL",0,6,.06)=""
^DD(26.17,"GL","ERR",0,.07)=""
^DD(26.17,"IX",.01)=""
^DD(26.17,"RQ",.01)=""
^DD(26.17,"RQ",.02)=""
^DD(26.17,"RQ",.03)=""
^DD(26.17,"RQ",.04)=""
^DD(26.17,"RQ",.05)=""
^DD(26.17,"SB",26.1707,.07)=""
^DD(26.1707,0)="ERROR CODES SUB-FIELD^^.01^1"
^DD(26.1707,0,"DT")="3050329"
^DD(26.1707,0,"IX","B",26.1707,.01)=""
^DD(26.1707,0,"NM","ERROR CODES")=""
^DD(26.1707,0,"UP")="26.17"
^DD(26.1707,.01,0)="ERROR CODE^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(26.1707,.01,1,0)="^.1"
^DD(26.1707,.01,1,1,0)="26.1707^B"
^DD(26.1707,.01,1,1,1)="S ^DGPF(26.17,DA(1),""ERR"",""B"",$E(X,1,30),DA)="""""
^DD(26.1707,.01,1,1,2)="K ^DGPF(26.17,DA(1),""ERR"",""B"",$E(X,1,30),DA)"
^DD(26.1707,.01,3)="Answer must be 2-30 characters in length."
^DD(26.1707,.01,21,0)="^^2^2^3050329^"
^DD(26.1707,.01,21,1,0)="This field contains a single error code value returned by the receiving"
^DD(26.1707,.01,21,2,0)="site of a PRF Unsolicited Update (ORU~R01) HL7 message."
^DD(26.1707,.01,"DT")="3050329"
^DD(26.1707,"B","ERROR CODE",.01)=""
^DD(26.1707,"GL",0,1,.01)=""
^DD(26.1707,"IX",.01)=""
^DD(26.18,0)="FIELD^^5^7"
^DD(26.18,0,"DDA")="N"
^DD(26.18,0,"DT")="3030627"
^DD(26.18,0,"IX","B",26.18,.01)=""
^DD(26.18,0,"NM","PRF PARAMETERS")=""
^DD(26.18,0,"VR")="5.3"
^DD(26.18,0,"VRPK")="DG"
^DD(26.18,.01,0)="ONE^RNJ1,0I^^0;1^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(26.18,.01,1,0)="^.1"
^DD(26.18,.01,1,1,0)="26.18^B"
^DD(26.18,.01,1,1,1)="S ^DGPF(26.18,""B"",$E(X,1,30),DA)="""""
^DD(26.18,.01,1,1,2)="K ^DGPF(26.18,""B"",$E(X,1,30),DA)"
^DD(26.18,.01,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(26.18,.01,21,0)="^^2^2^3030430^"
^DD(26.18,.01,21,1,0)="'One' designates the 'one' PRF Parameter.  There can only be one"
^DD(26.18,.01,21,2,0)="set of parameters."
^DD(26.18,.01,"DT")="3030501"
^DD(26.18,1,0)="PRF SOFTWARE ACTIVATION DATE^RDI^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(26.18,1,3)="Enter the starting date that you wish the Patient Record Flag module to become active."
^DD(26.18,1,21,0)="^.001^2^2^3030501^^"
^DD(26.18,1,21,1,0)="This field will contain the date that the Patient Record Flag software "
^DD(26.18,1,21,2,0)="(DGPF*) will become active."
^DD(26.18,1,"DT")="3030501"
^DD(26.18,2,0)="PRF HL7 UPDATE STATUS^RS^0:INACTIVE;1:ACTIVE;^0;3^Q"
^DD(26.18,2,3)="Enter '1' to enable or '0' to disable the Unsolicited Update HL7 interface."
^DD(26.18,2,21,0)="^.001^2^2^3030501^^"
^DD(26.18,2,21,1,0)="This field is used to enable or disable the Unsolicited Observation"
^DD(26.18,2,21,2,0)="Update (ORU~R01) HL7 interface for the Patient Record Flag module."
^DD(26.18,2,"DT")="3030430"
^DD(26.18,3,0)="PRF HL7 QUERY STATUS^RS^0:INACTIVE;1:DIRECT;2:DEFERRED;^0;4^Q"
^DD(26.18,3,3)="Enter '0' to disable the PRF HL7 query interface, '1' to enable the PRF HL7 query interface in ""direct"" connection mode or '2' to enable the PRF HL7 query interface in ""deferred"" connection mode."
^DD(26.18,3,21,0)="^.001^4^4^3030501^^"
^DD(26.18,3,21,1,0)="This field controls the PRF HL7 query (QRY~R02) interface.  Setting the "
^DD(26.18,3,21,2,0)="value to '0' disables the interface.  Setting the value to '1' enables "
^DD(26.18,3,21,3,0)="the interface using a VistA HL7 'direct' connection.  Setting the value to"
^DD(26.18,3,21,4,0)="'2' enables the interface using a VistA HL7 'deferred' connection."
^DD(26.18,3,"DT")="3030430"
^DD(26.18,4,0)="PRF HL7 RETRANSMIT DATE/TIME^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:X<1 X"
^DD(26.18,4,3)="(No range limit on date)"
^DD(26.18,4,21,0)="^^3^3^3030627^"
^DD(26.18,4,21,1,0)="This field will contain the transmission date/time of the last record "
^DD(26.18,4,21,2,0)="scanned during the HL7 retransmission processing from the ""ASTAT"" cross"
^DD(26.18,4,21,3,0)="reference of the (#26.17) PRF HL7 TRANSMISSION LOG file."
^DD(26.18,4,"DT")="3030627"
^DD(26.18,5,0)="PRF HL7 AUTO RETRANSMIT PERIOD^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(26.18,5,3)="Type a number between 1 and 999, 0 Decimal Digits"
^DD(26.18,5,21,0)="^^2^2^3030627^"
^DD(26.18,5,21,1,0)="This field represents the number of days to wait before an auto"
^DD(26.18,5,21,2,0)="retransmission of Rejected HL7 messages should occur."
^DD(26.18,5,"DT")="3030627"
^DD(26.18,6,0)="PRF PHASE 2 ACTIVATION^DI^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(26.18,6,3)="Enter the date that the PRF Phase 2 software is active."
^DD(26.18,6,21,0)="^^3^3^3050505^"
^DD(26.18,6,21,1,0)="This field contains the date that is used to restrict access to specific"
^DD(26.18,6,21,2,0)="Patient Record Flags functionality in production environments until all"
^DD(26.18,6,21,3,0)="sites have installed the PRF Phase II software."
^DD(26.18,6,"DT")="3050504"
^DD(26.18,"B","ONE",.01)=""
^DD(26.18,"B","PRF HL7 AUTO RETRANSMIT PERIOD",5)=""
^DD(26.18,"B","PRF HL7 QUERY STATUS",3)=""
^DD(26.18,"B","PRF HL7 RETRANSMIT DATE/TIME",4)=""
^DD(26.18,"B","PRF HL7 UPDATE STATUS",2)=""
^DD(26.18,"B","PRF PHASE 2 ACTIVATION",6)=""
^DD(26.18,"B","PRF SOFTWARE ACTIVATION DATE",1)=""
^DD(26.18,"GL",0,1,.01)=""
^DD(26.18,"GL",0,2,1)=""
^DD(26.18,"GL",0,3,2)=""
^DD(26.18,"GL",0,4,3)=""
^DD(26.18,"GL",0,5,4)=""
^DD(26.18,"GL",0,6,5)=""
^DD(26.18,"GL",0,7,6)=""
^DD(26.18,"IX",.01)=""
^DD(26.18,"RQ",.01)=""
^DD(26.18,"RQ",1)=""
^DD(26.18,"RQ",2)=""
^DD(26.18,"RQ",3)=""
^DD(26.19,0)="FIELD^^.07^7"
^DD(26.19,0,"DDA")="N"
^DD(26.19,0,"DT")="3050401"
^DD(26.19,0,"IX","B",26.19,.01)=""
^DD(26.19,0,"NM","PRF HL7 QUERY LOG")=""
^DD(26.19,0,"VR")="5.3"
^DD(26.19,0,"VRPK")="DG"
^DD(26.19,.01,0)="MESSAGE CONTROL ID^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(26.19,.01,1,0)="^.1"
^DD(26.19,.01,1,1,0)="26.19^B"
^DD(26.19,.01,1,1,1)="S ^DGPF(26.19,""B"",$E(X,1,30),DA)="""""
^DD(26.19,.01,1,1,2)="K ^DGPF(26.19,""B"",$E(X,1,30),DA)"
^DD(26.19,.01,3)="Answer must be 1-20 characters in length."
^DD(26.19,.01,21,0)="^^1^1^3050314^"
^DD(26.19,.01,21,1,0)="Unique ID generated by the VistA HL7 package."
^DD(26.19,.01,"DT")="3050314"
^DD(26.19,.02,0)="EVENT^RP26.21'^DGPF(26.21,^0;2^Q"
^DD(26.19,.02,3)="Enter the event that triggered the check for existing PRF assignments."
^DD(26.19,.02,21,0)="^^2^2^3050401^"
^DD(26.19,.02,21,1,0)="This field contains the event that triggered the query for existing PRF "
^DD(26.19,.02,21,2,0)="assignments."
^DD(26.19,.02,"DT")="3050425"
^DD(26.19,.03,0)="TRANSMISSION DATE/TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(26.19,.03,3)="Enter the date/time that the query is transmitted."
^DD(26.19,.03,21,0)="^^2^2^3050314^"
^DD(26.19,.03,21,1,0)="This field contains the date and time that the HL7 query message was "
^DD(26.19,.03,21,2,0)="transmitted."
^DD(26.19,.03,"DT")="3050425"
^DD(26.19,.04,0)="STATUS^RS^T:TRANSMITTED;AN:ACCEPTED W/NO RESULTS;A:ACCEPTED W/RESULTS;RJ:REJECTED;RT:RETRANSMITTED;^0;4^Q"
^DD(26.19,.04,3)="Enter the current query transmission status."
^DD(26.19,.04,21,0)="^.001^1^1^3050329^^"
^DD(26.19,.04,21,1,0)="This field contains the current transmission status of the PRF query."
^DD(26.19,.04,"DT")="3050329"
^DD(26.19,.05,0)="SITE TRANSMITTED TO^RP4'^DIC(4,^0;5^Q"
^DD(26.19,.05,3)="Enter the destination site for the PRF query."
^DD(26.19,.05,21,0)="^^2^2^3050314^"
^DD(26.19,.05,21,1,0)="This field contains the site that is being queried for existing PRF "
^DD(26.19,.05,21,2,0)="assignments."
^DD(26.19,.05,"DT")="3050314"
^DD(26.19,.06,0)="ACK RECEIVED DATE/TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(26.19,.06,3)="Enter the date/time that the acknowledgment to the query was received."
^DD(26.19,.06,21,0)="^^2^2^3050314^"
^DD(26.19,.06,21,1,0)="This field contains the date and time that the query acknowledgment was "
^DD(26.19,.06,21,2,0)="received by site originating the query."
^DD(26.19,.06,"DT")="3050314"
^DD(26.19,.07,0)="ERROR CODES^26.1907^^ERR;0"
^DD(26.19,.07,21,0)="^^4^4^3050329^"
^DD(26.19,.07,21,1,0)="When the receiving site of a PRF Query (QRY~R02) HL7 message encounters "
^DD(26.19,.07,21,2,0)="one or more errors while processing the message, one or more error codes "
^DD(26.19,.07,21,3,0)="are returned in the Response to Query (ORF~R04) HL7 message.  This "
^DD(26.19,.07,21,4,0)="multiple field contains the returned error codes."
^DD(26.19,"B","ACK RECEIVED DATE/TIME",.06)=""
^DD(26.19,"B","ERROR CODES",.07)=""
^DD(26.19,"B","EVENT",.02)=""
^DD(26.19,"B","MESSAGE CONTROL ID",.01)=""
^DD(26.19,"B","SITE TRANSMITTED TO",.05)=""
^DD(26.19,"B","STATUS",.04)=""
^DD(26.19,"B","TRANSMISSION DATE/TIME",.03)=""
^DD(26.19,"GL",0,1,.01)=""
^DD(26.19,"GL",0,2,.02)=""
^DD(26.19,"GL",0,3,.03)=""
^DD(26.19,"GL",0,4,.04)=""
^DD(26.19,"GL",0,5,.05)=""
^DD(26.19,"GL",0,6,.06)=""
^DD(26.19,"GL","ERR",0,.07)=""
^DD(26.19,"IX",.01)=""
^DD(26.19,"RQ",.01)=""
^DD(26.19,"RQ",.02)=""
^DD(26.19,"RQ",.03)=""
^DD(26.19,"RQ",.04)=""
^DD(26.19,"RQ",.05)=""
^DD(26.19,"SB",26.1907,.07)=""
^DD(26.1907,0)="ERROR CODES SUB-FIELD^^.01^1"
^DD(26.1907,0,"DT")="3050329"
^DD(26.1907,0,"IX","B",26.1907,.01)=""
^DD(26.1907,0,"NM","ERROR CODES")=""
^DD(26.1907,0,"UP")="26.19"
^DD(26.1907,.01,0)="ERROR CODE^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(26.1907,.01,1,0)="^.1"
^DD(26.1907,.01,1,1,0)="26.1907^B"
^DD(26.1907,.01,1,1,1)="S ^DGPF(26.19,DA(1),""ERR"",""B"",$E(X,1,30),DA)="""""
^DD(26.1907,.01,1,1,2)="K ^DGPF(26.19,DA(1),""ERR"",""B"",$E(X,1,30),DA)"
^DD(26.1907,.01,3)="Answer must be 2-30 characters in length."
^DD(26.1907,.01,21,0)="^.001^2^2^3050329^^"
^DD(26.1907,.01,21,1,0)="This field contains a sinlge error code value returned by the receiving "
^DD(26.1907,.01,21,2,0)="site of a PRF Query (QRY~R02) HL7 message."
^DD(26.1907,.01,"DT")="3050329"
^DD(26.1907,"B","ERROR CODE",.01)=""
^DD(26.1907,"GL",0,1,.01)=""
^DD(26.1907,"IX",.01)=""
^DD(26.21,0)="FIELD^^.03^3"
^DD(26.21,0,"DDA")="N"
^DD(26.21,0,"DT")="3050608"
^DD(26.21,0,"IX","B",26.21,.01)=""
^DD(26.21,0,"NM","PRF HL7 EVENT")=""
^DD(26.21,0,"PT",26.19,.02)=""
^DD(26.21,0,"VR")="5.3"
^DD(26.21,0,"VRPK")="DG"
^DD(26.21,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(26.21,.01,1,0)="^.1"
^DD(26.21,.01,1,1,0)="26.21^B"
^DD(26.21,.01,1,1,1)="S ^DGPF(26.21,""B"",$E(X,1,30),DA)="""""
^DD(26.21,.01,1,1,2)="K ^DGPF(26.21,""B"",$E(X,1,30),DA)"
^DD(26.21,.01,3)="Enter the patient that requires a PRF query."
^DD(26.21,.01,21,0)="^.001^2^2^3050401^^^^"
^DD(26.21,.01,21,1,0)="This field contains the patient associated with a Patient Record Flags "
^DD(26.21,.01,21,2,0)="query trigger."
^DD(26.21,.01,"DT")="3050401"
^DD(26.21,.02,0)="INITIAL TIMESTAMP^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(26.21,.02,3)="Enter the date and time of the event trigger."
^DD(26.21,.02,21,0)="^.001^1^1^3050609^^^"
^DD(26.21,.02,21,1,0)="This field contains the date and time when the PRF event trigger fired."
^DD(26.21,.02,"DT")="3050609"
^DD(26.21,.03,0)="CURRENT STATUS^RS^C:COMPLETE;I:INCOMPLETE;E:ERROR;^0;3^Q"
^DD(26.21,.03,3)="Enter C for COMPLETE, I for INCOMPLETE, or E for ERROR."
^DD(26.21,.03,21,0)="^.001^8^8^3050629^^^^"
^DD(26.21,.03,21,1,0)="This field contains the current status of the Patient Record Flags HL7 "
^DD(26.21,.03,21,2,0)="query process.  An INCOMPLETE status indicates that the HL7 query has "
^DD(26.21,.03,21,3,0)="either not been transmitted or that the query was NAK'ed by all receiving"
^DD(26.21,.03,21,4,0)="sites.  A COMPLETE status indicates that the HL7 query has run successfully"
^DD(26.21,.03,21,5,0)="to at least one of the patient's treating facilities or that the local"
^DD(26.21,.03,21,6,0)="facility is the patient's only treating facility.  An ERROR status "
^DD(26.21,.03,21,7,0)="indicates that the maximum number of HL7 query attempts has been reached "
^DD(26.21,.03,21,8,0)="without a successful result."
^DD(26.21,.03,"DT")="3050629"
^DD(26.21,"B","CURRENT STATUS",.03)=""
^DD(26.21,"B","INITIAL TIMESTAMP",.02)=""
^DD(26.21,"B","PATIENT",.01)=""
^DD(26.21,"GL",0,1,.01)=""
^DD(26.21,"GL",0,2,.02)=""
^DD(26.21,"GL",0,3,.03)=""
^DD(26.21,"IX",.01)=""
^DD(26.21,"RQ",.01)=""
^DD(26.21,"RQ",.02)=""
^DD(26.21,"RQ",.03)=""
^DD(27.11,0)="FIELD^^75.02^36"
^DD(27.11,0,"DDA")="N"
^DD(27.11,0,"DT")="2970820"
^DD(27.11,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(27.11,0,"IX","AC",27.11,.04)=""
^DD(27.11,0,"IX","ADGRU07",27.11,.07)=""
^DD(27.11,0,"IX","AENR01",27.11,.01)=""
^DD(27.11,0,"IX","AENR03",27.11,.03)=""
^DD(27.11,0,"IX","AENR04",27.11,.04)=""
^DD(27.11,0,"IX","AENR06",27.11,.06)=""
^DD(27.11,0,"IX","AENR07",27.11,.07)=""
^DD(27.11,0,"IX","AENR08",27.11,.08)=""
^DD(27.11,0,"IX","AENR1",27.11,.1)=""
^DD(27.11,0,"IX","AENR11",27.11,.11)=""
^DD(27.11,0,"IX","AENR12",27.11,.12)=""
^DD(27.11,0,"IX","AENRC",27.11,.04)=""
^DD(27.11,0,"IX","B",27.11,.01)=""
^DD(27.11,0,"IX","C",27.11,.02)=""
^DD(27.11,0,"NM","PATIENT ENROLLMENT")=""
^DD(27.11,0,"PT",2,27.01)=""
^DD(27.11,0,"PT",27.11,.09)=""
^DD(27.11,0,"VR")="5.3"
^DD(27.11,0,"VRPK")="DG"
^DD(27.11,.01,0)="ENROLLMENT APPLICATION DATE^RDI^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(27.11,.01,1,0)="^.1"
^DD(27.11,.01,1,1,0)="27.11^B"
^DD(27.11,.01,1,1,1)="S ^DGEN(27.11,""B"",$E(X,1,30),DA)="""""
^DD(27.11,.01,1,1,2)="K ^DGEN(27.11,""B"",$E(X,1,30),DA)"
^DD(27.11,.01,1,2,0)="27.11^AENR01^MUMPS"
^DD(27.11,.01,1,2,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.01,1,2,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.01,1,2,3)=" DO NOT DELETE"
^DD(27.11,.01,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.01,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.01,1,2,"%D",2,0)="enrollment."
^DD(27.11,.01,1,2,"DT")="3050913"
^DD(27.11,.01,3)="Enter the date of the application for enrollment."
^DD(27.11,.01,21,0)="^^5^5^2980219^^^^"
^DD(27.11,.01,21,1,0)=""
^DD(27.11,.01,21,2,0)="The date the enrollment application/registration was completed, i.e., the"
^DD(27.11,.01,21,3,0)="signature date."
^DD(27.11,.01,21,4,0)="  "
^DD(27.11,.01,21,5,0)="  "
^DD(27.11,.01,"DT")="3050913"
^DD(27.11,.02,0)="PATIENT^RP2'I^DPT(^0;2^Q"
^DD(27.11,.02,1,0)="^.1"
^DD(27.11,.02,1,1,0)="27.11^C"
^DD(27.11,.02,1,1,1)="S ^DGEN(27.11,""C"",$E(X,1,30),DA)="""""
^DD(27.11,.02,1,1,2)="K ^DGEN(27.11,""C"",$E(X,1,30),DA)"
^DD(27.11,.02,1,1,"%D",0)="^^1^1^2970612^"
^DD(27.11,.02,1,1,"%D",1,0)="This cross-reference allows look-up by patient."
^DD(27.11,.02,1,1,"DT")="2970612"
^DD(27.11,.02,3)="Enter the patient to enroll."
^DD(27.11,.02,21,0)="^^1^1^2970519^^"
^DD(27.11,.02,21,1,0)="The patient associated with the enrollment."
^DD(27.11,.02,"DT")="2970724"
^DD(27.11,.03,0)="SOURCE OF ENROLLMENT^RS^1:VAMC;2:HEC;3:OTHER VAMC;^0;3^Q"
^DD(27.11,.03,1,0)="^.1"
^DD(27.11,.03,1,1,0)="27.11^AENR03^MUMPS"
^DD(27.11,.03,1,1,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.03,1,1,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.03,1,1,3)=" DO NOT DELETE"
^DD(27.11,.03,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.03,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.03,1,1,"%D",2,0)="enrollment."
^DD(27.11,.03,1,1,"DT")="3050913"
^DD(27.11,.03,3)="Enter the source of the enrollment determination."
^DD(27.11,.03,21,0)="^^1^1^2970519^"
^DD(27.11,.03,21,1,0)="How the enrollment was determined."
^DD(27.11,.03,"DT")="3050913"
^DD(27.11,.04,0)="ENROLLMENT STATUS^RP27.15'IX^DGEN(27.15,^0;4^Q"
^DD(27.11,.04,1,0)="^.1"
^DD(27.11,.04,1,1,0)="27.11^AENRC^MUMPS"
^DD(27.11,.04,1,1,1)="D SET2^DGENDD(DA,X)"
^DD(27.11,.04,1,1,2)="D KILL2^DGENDD(DA,X)"
^DD(27.11,.04,1,1,3)="DO NOT DELETE"
^DD(27.11,.04,1,1,"%D",0)="^^7^7^2970829^^^^"
^DD(27.11,.04,1,1,"%D",1,0)="This index sorts the patients by their current enrollment status."
^DD(27.11,.04,1,1,"%D",2,0)="The CURRENT ENROLLMENT field of the PATIENT file also triggers this"
^DD(27.11,.04,1,1,"%D",3,0)="cross-reference."
^DD(27.11,.04,1,1,"%D",4,0)=""
^DD(27.11,.04,1,1,"%D",5,0)="The format of the index is:"
^DD(27.11,.04,1,1,"%D",6,0)=""
^DD(27.11,.04,1,1,"%D",7,0)="^DPT(""AENRC"",<current enrollment status>,<DFN>)="""""
^DD(27.11,.04,1,1,"DT")="2970619"
^DD(27.11,.04,1,2,0)="27.11^AC^MUMPS"
^DD(27.11,.04,1,2,1)="D SETREM^DGENDD(DA,X)"
^DD(27.11,.04,1,2,2)="D SETREM^DGENDD(DA,X)"
^DD(27.11,.04,1,2,"%D",0)="^.101^6^6^3030226^^"
^DD(27.11,.04,1,2,"%D",1,0)="This cross-reference calls an API that will update the Remarks field #.091"
^DD(27.11,.04,1,2,"%D",2,0)="of the Patient file #2 depending on the value of the enrollment status."
^DD(27.11,.04,1,2,"%D",3,0)="If the enrollment status contains the word REJECTED, then the Remarks"
^DD(27.11,.04,1,2,"%D",4,0)="field will be updated with the message **REJECTED**.  If the enrollment"
^DD(27.11,.04,1,2,"%D",5,0)="status is not a Rejected status then the message **REJECTED** will be"
^DD(27.11,.04,1,2,"%D",6,0)="removed from the Remarks field."
^DD(27.11,.04,1,2,"DT")="3030225"
^DD(27.11,.04,1,3,0)="27.11^AENR04^MUMPS"
^DD(27.11,.04,1,3,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.04,1,3,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.04,1,3,3)=" DO NOT DELETE"
^DD(27.11,.04,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.04,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.04,1,3,"%D",2,0)="enrollment."
^DD(27.11,.04,1,3,"DT")="3050913"
^DD(27.11,.04,3)="Enter the status of the application for enrollment."
^DD(27.11,.04,21,0)="^^1^1^2990507^^^^"
^DD(27.11,.04,21,1,0)="The status of an application for enrollment."
^DD(27.11,.04,"DT")="3050913"
^DD(27.11,.05,0)="REASON CANCELED/DECLINED^S^1:DISSATISFIED WITH CARE;2:GEOGRAPHIC ACCESS;3:OTHER INSURANCE;4:OTHER;^0;5^Q"
^DD(27.11,.05,3)="Enter the reason the veteran is declining or cancelling enrollment."
^DD(27.11,.05,21,0)="^^2^2^2970519^"
^DD(27.11,.05,21,1,0)="When a patient self dis-enrolls or requests that his enrollment be ceased, s/he"
^DD(27.11,.05,21,2,0)="is asked to give a reason."
^DD(27.11,.05,"DT")="2970519"
^DD(27.11,.06,0)="FACILITY RECEIVED^*P4'XI^DIC(4,^0;6^S DIC(""S"")=""I $P($G(^(99)),""""^"""")]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(27.11,.06,1,0)="^.1"
^DD(27.11,.06,1,1,0)="27.11^AENR06^MUMPS"
^DD(27.11,.06,1,1,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.06,1,1,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.06,1,1,3)=" DO NOT DELETE"
^DD(27.11,.06,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.06,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.06,1,1,"%D",2,0)="enrollment."
^DD(27.11,.06,1,1,"DT")="3050913"
^DD(27.11,.06,3)="Enter the facility that received the patient's application for enrollment."
^DD(27.11,.06,12)="Allows only facilities that have a station number."
^DD(27.11,.06,12.1)="S DIC(""S"")=""I $P($G(^(99)),""""^"""")]"""""""""""
^DD(27.11,.06,21,0)="^^2^2^2970716^^^"
^DD(27.11,.06,21,1,0)="This field should be used to document the VAMC that receives the application"
^DD(27.11,.06,21,2,0)="for enrollment."
^DD(27.11,.06,"DT")="3050913"
^DD(27.11,.07,0)="ENROLLMENT PRIORITY^SXI^1:GROUP 1;2:GROUP 2;3:GROUP 3;4:GROUP 4;5:GROUP 5;6:GROUP 6;7:GROUP 7;8:GROUP 8;^0;7^Q"
^DD(27.11,.07,1,0)="^.1"
^DD(27.11,.07,1,992,0)="27.11^ADGRU07^MUMPS"
^DD(27.11,.07,1,992,1)="N DG1 S DG1=+$P(^(0),""^"",2) I +DG1>0,($T(ADGRU^DGRUDD01)'="""") D ADGRU^DGRUDD01(DG1)"
^DD(27.11,.07,1,992,2)="N DG1 S DG1=+$P(^(0),""^"",2) I +DG1>0,($T(ADGRU^DGRUDD01)'="""") D ADGRU^DGRUDD01(DG1)"
^DD(27.11,.07,1,992,"%D",0)="^^9^9^2990927^^^^"
^DD(27.11,.07,1,992,"%D",1,0)="This cross reference is used to remember that changes were made to a"
^DD(27.11,.07,1,992,"%D",2,0)="monitored data field in the PATIENT ENROLLEMENT File (#27.11) required for"
^DD(27.11,.07,1,992,"%D",3,0)="a vendor RAI/MDS COTS system.  Execution of this cross reference will"
^DD(27.11,.07,1,992,"%D",4,0)="create an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as"
^DD(27.11,.07,1,992,"%D",5,0)="requiring transmission of an HL7 demographic A08 update message to the"
^DD(27.11,.07,1,992,"%D",6,0)="COTS interface."
^DD(27.11,.07,1,992,"%D",7,0)=" "
^DD(27.11,.07,1,992,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the cross reference is not"
^DD(27.11,.07,1,992,"%D",9,0)="to be executed as part of a re-indexing."
^DD(27.11,.07,1,992,"DT")="2990927"
^DD(27.11,.07,1,993,0)="27.11^AENR07^MUMPS"
^DD(27.11,.07,1,993,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.07,1,993,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.07,1,993,3)=" DO NOT DELETE"
^DD(27.11,.07,1,993,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.07,1,993,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.07,1,993,"%D",2,0)="enrollment."
^DD(27.11,.07,1,993,"DT")="3050913"
^DD(27.11,.07,3)="Enter the enrollment priority group determined for this patient."
^DD(27.11,.07,21,0)="^.001^2^2^3020626^^^^"
^DD(27.11,.07,21,1,0)="This field will contain the enrollment priority group determined for this"
^DD(27.11,.07,21,2,0)="enrollment."
^DD(27.11,.07,"DT")="3050913"
^DD(27.11,.08,0)="EFFECTIVE DATE^RD^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(27.11,.08,1,0)="^.1"
^DD(27.11,.08,1,1,0)="27.11^AENR08^MUMPS"
^DD(27.11,.08,1,1,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.08,1,1,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.08,1,1,3)=" DO NOT DELETE"
^DD(27.11,.08,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.08,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.08,1,1,"%D",2,0)="enrollment."
^DD(27.11,.08,1,1,"DT")="3050913"
^DD(27.11,.08,3)="Enter the effective date of the enrollment change."
^DD(27.11,.08,21,0)="^^2^2^2970519^"
^DD(27.11,.08,21,1,0)="For any change that may affect a patient's enrollment, this field documents"
^DD(27.11,.08,21,2,0)="the effective date of the change."
^DD(27.11,.08,"DT")="3050913"
^DD(27.11,.09,0)="PRIOR ENROLLMENT RECORD^P27.11'I^DGEN(27.11,^0;9^Q"
^DD(27.11,.09,3)="Enter the last enrollment record for the patient before this one."
^DD(27.11,.09,21,0)="^^4^4^2970711^^"
^DD(27.11,.09,21,1,0)="This field is used to maintain the enrollment history for the patient.  The"
^DD(27.11,.09,21,2,0)="enrollment history will be kept in the form of a linked list of enrollment"
^DD(27.11,.09,21,3,0)="records, with each record pointing to the enrollment record that came before"
^DD(27.11,.09,21,4,0)="it."
^DD(27.11,.09,"DT")="2970724"
^DD(27.11,.1,0)="ENROLLMENT DATE^DI^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(27.11,.1,1,0)="^.1"
^DD(27.11,.1,1,1,0)="27.11^AENR1^MUMPS"
^DD(27.11,.1,1,1,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.1,1,1,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.1,1,1,3)=" DO NOT DELETE"
^DD(27.11,.1,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.1,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.1,1,1,"%D",2,0)="enrollment."
^DD(27.11,.1,1,1,"DT")="3050913"
^DD(27.11,.1,3)="Enter the date the enrollment period begins."
^DD(27.11,.1,21,0)="^^1^1^2980219^"
^DD(27.11,.1,21,1,0)="Beginning of the enrollment cycle."
^DD(27.11,.1,"DT")="3050913"
^DD(27.11,.11,0)="ENROLLMENT END DATE^DI^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(27.11,.11,1,0)="^.1"
^DD(27.11,.11,1,1,0)="27.11^AENR11^MUMPS"
^DD(27.11,.11,1,1,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.11,1,1,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.11,1,1,3)=" DO NOT DELETE"
^DD(27.11,.11,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.11,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.11,1,1,"%D",2,0)="enrollment."
^DD(27.11,.11,1,1,"DT")="3050913"
^DD(27.11,.11,3)="Enter the last day of the veteran's enrollment period."
^DD(27.11,.11,21,0)="^^1^1^2980309^^"
^DD(27.11,.11,21,1,0)="The date specifying the end of the veteran's enrollment period."
^DD(27.11,.11,"DT")="3050913"
^DD(27.11,.12,0)="ENROLLMENT SUBGROUP^S^1:a;3:c;5:e;7:g;^0;12^Q"
^DD(27.11,.12,1,0)="^.1"
^DD(27.11,.12,1,1,0)="27.11^AENR12^MUMPS"
^DD(27.11,.12,1,1,1)="D E2711^DGRTRIG(DA)"
^DD(27.11,.12,1,1,2)="D E2711^DGRTRIG(DA)"
^DD(27.11,.12,1,1,3)=" DO NOT DELETE"
^DD(27.11,.12,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(27.11,.12,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(27.11,.12,1,1,"%D",2,0)="enrollment."
^DD(27.11,.12,1,1,"DT")="3050913"
^DD(27.11,.12,3)="Enter the enrollment priority subgroup determined for this patient."
^DD(27.11,.12,21,0)="^.001^1^1^3000727^^^"
^DD(27.11,.12,21,1,0)="This field will contain the enrollment priority subgroup determined for this enrollment."
^DD(27.11,.12,"DT")="3050913"
^DD(27.11,25,0)="CANCELED/DECLINED REMARKS^F^^R;1^K:$L(X)>60!($L(X)<1) X"
^DD(27.11,25,3)="If REASON CANCELED/DECLINED is OTHER, enter an explanation of up to 60 characters."
^DD(27.11,25,21,0)="^^2^2^2970617^^"
^DD(27.11,25,21,1,0)="This field is used to enter an explanation for why the veteran is canceling or"
^DD(27.11,25,21,2,0)="declining enrollment if the only code that fits is OTHER."
^DD(27.11,25,"DT")="2970519"
^DD(27.11,50.01,0)="ELIGIBILITY CODE^P8.1'I^DIC(8.1,^E;1^Q"
^DD(27.11,50.01,3)="Enter the eligibility code associated with the enrollment determination."
^DD(27.11,50.01,21,0)="^^1^1^2970520^"
^DD(27.11,50.01,21,1,0)="The eligibility code associated with the enrollment priority determination."
^DD(27.11,50.01,"DT")="2970724"
^DD(27.11,50.02,0)="SERVICE CONNECTED^SXI^Y:YES;N:NO;^E;2^Q"
^DD(27.11,50.02,3)="Enter YES if the veteran has a service connected disability, NO otherwise."
^DD(27.11,50.02,21,0)="^^2^2^2970723^^^^"
^DD(27.11,50.02,21,1,0)="The service connection indicator associated with the enrollment priority"
^DD(27.11,50.02,21,2,0)="determination."
^DD(27.11,50.02,"DT")="2970724"
^DD(27.11,50.03,0)="SERVICE CONNECTED PERCENTAGE^NJ3,0I^^E;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(27.11,50.03,3)="Enter the service connected percentage associated with the enrollment determination."
^DD(27.11,50.03,21,0)="^^2^2^2970519^"
^DD(27.11,50.03,21,1,0)="The service connected percentage associated with the enrollment priority"
^DD(27.11,50.03,21,2,0)="determination."
^DD(27.11,50.03,"DT")="2970724"
^DD(27.11,50.04,0)="POW STATUS INDICATED^SI^Y:YES;N:NO;U:UNKNOWN;^E;4^Q"
^DD(27.11,50.04,3)="Enter the POW status associated with the enrollment priority determination."
^DD(27.11,50.04,21,0)="^^1^1^2970519^"
^DD(27.11,50.04,21,1,0)="The POW status associated with the enrollment priority determination."
^DD(27.11,50.04,"DT")="2970724"
^DD(27.11,50.05,0)="RECEIVING A&A BENEFITS^SI^Y:YES;N:NO;U:UNKNOWN;^E;5^Q"
^DD(27.11,50.05,3)="Enter the RECEIVING A&A BENEFITS status associated with the enrollment priority determination."
^DD(27.11,50.05,21,0)="^^2^2^2970519^"
^DD(27.11,50.05,21,1,0)="The RECEIVING A&A BENEFITS status associated with the enrollment priority"
^DD(27.11,50.05,21,2,0)="determination."
^DD(27.11,50.05,"DT")="2970724"
^DD(27.11,50.06,0)="RECEIVING HOUSEBOUND BENEFITS^SI^Y:YES;N:NO;U:UNKNOWN;^E;6^Q"
^DD(27.11,50.06,3)="Enter the RECEIVING HOUSEBOUND BENEFITS status that the enrollment priority determination is based on."
^DD(27.11,50.06,21,0)="^^2^2^2970520^^"
^DD(27.11,50.06,21,1,0)="The RECEIVING HOUSEBOUND BENEFITS status that the enrollment priority"
^DD(27.11,50.06,21,2,0)="determination is based on."
^DD(27.11,50.06,"DT")="2970724"
^DD(27.11,50.07,0)="RECEIVING A VA PENSION^SI^Y:YES;N:NO;U:UNKNOWN;^E;7^Q"
^DD(27.11,50.07,3)="Enter the RECEIVING A VA PENSION status that the enrollment priority determination is based on."
^DD(27.11,50.07,21,0)="^^2^2^2970519^"
^DD(27.11,50.07,21,1,0)="The RECEIVING A VA PENSION status that the enrollment priority determination"
^DD(27.11,50.07,21,2,0)="is based on. "
^DD(27.11,50.07,"DT")="2970724"
^DD(27.11,50.08,0)="TOTAL ANNUAL VA CHECK AMOUNT^NJ8,2I^^E;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(27.11,50.08,3)="Enter the TOTAL ANNUAL VA CHECK AMOUNT associated with the enrollment priority determination."
^DD(27.11,50.08,21,0)="^^1^1^2970519^"
^DD(27.11,50.08,21,1,0)="The TOTAL ANNUAL VA CHECK AMOUNT associated with the enrollment determination."
^DD(27.11,50.08,"DT")="2970829"
^DD(27.11,50.09,0)="DISABILITY RET. FROM MILITARY^SI^0:NO;1:YES, RECEIVING MILITARY RETIREMENT;2:YES, RECEIVING MILITARY RETIREMENT IN LIEU OF VA COMPENSATION;3:UNKNOWN;^E;9^Q"
^DD(27.11,50.09,3)="Enter the status of DISABILITY RETIREMENT FROM MILITARY associated with the enrollment priority determination."
^DD(27.11,50.09,21,0)="^^2^2^2970716^^"
^DD(27.11,50.09,21,1,0)="The status of DISABILITY RET. FROM MILITARY that is associated with "
^DD(27.11,50.09,21,2,0)="the enrollment priority determination."
^DD(27.11,50.09,"DT")="2970724"
^DD(27.11,50.1,0)="MEDICAID^SI^0:NO;1:YES;^E;10^Q"
^DD(27.11,50.1,3)="Enter the Medicaid eligibility associated with the enrollment priority determination."
^DD(27.11,50.1,21,0)="^^1^1^2970519^"
^DD(27.11,50.1,21,1,0)="The Medicaid eligibility associated with the enrollment priority determination."
^DD(27.11,50.1,"DT")="2970724"
^DD(27.11,50.11,0)="EXPOSED TO AGENT ORANGE^SI^Y:YES;N:NO;U:UNKNOWN;^E;11^Q"
^DD(27.11,50.11,3)="Enter the status of EXPOSED TO AGENT ORANGE associated with the enrollment priority determination."
^DD(27.11,50.11,21,0)="^^2^2^2970519^"
^DD(27.11,50.11,21,1,0)="The EXPOSED TO AGENT ORANGE status associated with the enrollment priority"
^DD(27.11,50.11,21,2,0)="determination."
^DD(27.11,50.11,"DT")="2970724"
^DD(27.11,50.12,0)="RADIATION EXPOSURE INDICATED^SI^Y:YES;N:NO;U:UNKNOWN;^E;12^Q"
^DD(27.11,50.12,3)="Enter the RADIATION EXPOSURE INDICATED status associated with the enrollment priority determination."
^DD(27.11,50.12,21,0)="^.001^20^20^3060507^^^^"
^DD(27.11,50.12,21,1,0)="Enter 'Y' if the veteran was exposed to ionizing radiation 1) at a"
^DD(27.11,50.12,21,2,0)="nuclear device testing site (e.g. the Pacific Islands, NM or NV) or"
^DD(27.11,50.12,21,3,0)="2) as a POW or while serving in Hiroshima and/or Nagasaki, Japan"
^DD(27.11,50.12,21,4,0)="from August 6, 1945 through July 1, 1946, or 3) served at"
^DD(27.11,50.12,21,5,0)="Department of Energy plants at Paducah, KY, Portsmouth, OH or"
^DD(27.11,50.12,21,6,0)="the K25 area at Oak Ridge, TN for at least 250 days before"
^DD(27.11,50.12,21,7,0)="February 1, 1992 or 4) served at Longshot, Milrow, or"
^DD(27.11,50.12,21,8,0)="Cannikin underground nuclear tests at Amchitka Island, AK"
^DD(27.11,50.12,21,9,0)="prior to January 1, 1974."
^DD(27.11,50.12,21,10,0)=" "
^DD(27.11,50.12,21,11,0)="Veterans exposed by method #3 or #4 are not eligible for"
^DD(27.11,50.12,21,12,0)="copay exemption or enrollment in priority 6 based on their IR exposure."
^DD(27.11,50.12,21,13,0)=" "
^DD(27.11,50.12,21,14,0)="Enter 'N' if not exposed or 'U' if unknown."
^DD(27.11,50.12,21,15,0)=" "
^DD(27.11,50.12,21,16,0)="Once the record has been verified only HEC users"
^DD(27.11,50.12,21,17,0)="may enter/edit this field."
^DD(27.11,50.12,21,18,0)=" "
^DD(27.11,50.12,21,19,0)="The RADIATION EXPOSURE INDICATED status associated with the enrollment "
^DD(27.11,50.12,21,20,0)="priority determination."
^DD(27.11,50.12,"DT")="3060507"
^DD(27.11,50.13,0)="ENVIRONMENTAL CONTAMINANTS^SI^Y:YES;N:NO;U:UNKNOWN;^E;13^Q"
^DD(27.11,50.13,3)="Enter the ENVIRONMENTAL CONTAMINANTS status associated with the enrollment priority determination."
^DD(27.11,50.13,21,0)="^^2^2^2970519^"
^DD(27.11,50.13,21,1,0)="The ENVIRONMENTAL CONTAMINANTS status associated with the enrollment priority"
^DD(27.11,50.13,21,2,0)="determination."
^DD(27.11,50.13,"DT")="2970724"
^DD(27.11,50.14,0)="MEANS TEST STATUS^P408.32'I^DG(408.32,^E;14^Q"
^DD(27.11,50.14,3)="Enter the MEANS TEST STATUS associated with the enrollment priority determination."
^DD(27.11,50.14,21,0)="^^1^1^2970715^^"
^DD(27.11,50.14,21,1,0)="The MEANS TEST STATUS associated with the enrollment priority determination."
^DD(27.11,50.14,"DT")="2970724"
^DD(27.11,50.15,0)="VETERAN CATASTROPHICALLY DISABLED^S^Y:YES;N:NO;^E;15^Q"
^DD(27.11,50.15,3)="This field must be ""Y"" or ""N""."
^DD(27.11,50.15,21,0)="^^2^2^2990618^"
^DD(27.11,50.15,21,1,0)="This field was created to capture the Veteran's CATASTROPHIC DISABILITY"
^DD(27.11,50.15,21,2,0)="status associated with the enrollment priority determination."
^DD(27.11,50.15,"DT")="2990618"
^DD(27.11,50.16,0)="PURPLE HEART INDICATED?^S^Y:YES;N:NO;^E;16^Q"
^DD(27.11,50.16,21,0)="^^4^4^3001219^"
^DD(27.11,50.16,21,1,0)="This field corresponds to the CURRENT PH INDICATOR field .531 in the"
^DD(27.11,50.16,21,2,0)="PATIENT file 2.  It can be set by setting Purple Heart Indicated in the"
^DD(27.11,50.16,21,3,0)="Registration screens, or by the Z11 Upload from HEC.  Acceptable values"
^DD(27.11,50.16,21,4,0)="are Y and N."
^DD(27.11,50.16,23,0)="^^1^1^3001219^"
^DD(27.11,50.16,23,1,0)="Added for Purple Heart DG*5.3*314."
^DD(27.11,50.16,"DT")="3001219"
^DD(27.11,50.17,0)="UNEMPLOYABLE^S^Y:YES;N:NO;^E;17^Q"
^DD(27.11,50.17,21,0)="^^1^1^3040519^"
^DD(27.11,50.17,21,1,0)="Is this patient unemployable due to an SC condition as rated by VARO?"
^DD(27.11,50.17,"DT")="3040519"
^DD(27.11,50.18,0)="COMBAT VETERAN END DATE^D^^E;18^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(27.11,50.18,3)="(No range limit on date)"
^DD(27.11,50.18,21,0)="^^1^1^3040519^"
^DD(27.11,50.18,21,1,0)="For veterans who have combat vet eligibility, this field represents the date when that eligibility ends."
^DD(27.11,50.18,"DT")="3040519"
^DD(27.11,50.19,0)="PROJ 112/SHAD^S^1:YES;0:NO;^E;19^Q"
^DD(27.11,50.19,"DT")="3050602"
^DD(27.11,50.2,0)="DISCHARGED DUE TO DISABILITY^S^1:YES;0:NO;^E;20^Q"
^DD(27.11,50.2,3)="Line of Duty disability discharge?"
^DD(27.11,50.2,21,0)="^.001^2^2^3050708^^"
^DD(27.11,50.2,21,1,0)="Indicates whether or not discharge was due to a disability incurred in "
^DD(27.11,50.2,21,2,0)="the Line of Duty."
^DD(27.11,50.2,"DT")="3050708"
^DD(27.11,75.01,0)="DATE/TIME ENTERED^RDI^^U;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(27.11,75.01,3)="Enter the date and time the record is being created."
^DD(27.11,75.01,21,0)="^^1^1^2970519^"
^DD(27.11,75.01,21,1,0)="This field is used as part of the audit trail for the enrollment process."
^DD(27.11,75.01,"DT")="2970724"
^DD(27.11,75.02,0)="ENTERED BY^P200'I^VA(200,^U;2^Q"
^DD(27.11,75.02,3)="Enter the user who is enrolling the veteran."
^DD(27.11,75.02,21,0)="^^2^2^2970519^"
^DD(27.11,75.02,21,1,0)="For local enrollments, this field will point to the user who is enrolling the"
^DD(27.11,75.02,21,2,0)="veteran."
^DD(27.11,75.02,"DT")="2970724"
^DD(27.11,76,0)="RADIATION EXPOSURE METHOD^SI^2:HIROSHIMA/NAGASAKI;3:ATMOSPHERIC NUCLEAR TESTING;4:H/N AND ATMOSPHERIC NUCLEAR TESTING;5:UNDERGROUND NUCLEAR TESTING;6:EXPOSURE AT NUCLEAR FACILITY;7:OTHER;^E;21^Q"
^DD(27.11,76,21,0)="^^2^2^3060321^"
^DD(27.11,76,21,1,0)="The RADIATION EXPOSURE METHOD associated with"
^DD(27.11,76,21,2,0)="the enrollment priority determination."
^DD(27.11,76,"DT")="3060321"
^DD(27.11,"B","CANCELED/DECLINED REMARKS",25)=""
^DD(27.11,"B","COMBAT VETERAN END DATE",50.18)=""
^DD(27.11,"B","DATE/TIME ENTERED",75.01)=""
^DD(27.11,"B","DISABILITY RET. FROM MILITARY",50.09)=""
^DD(27.11,"B","DISCHARGED DUE TO DISABILITY",50.2)=""
^DD(27.11,"B","EFFECTIVE DATE",.08)=""
^DD(27.11,"B","ELIGIBILITY CODE",50.01)=""
^DD(27.11,"B","ENROLLMENT APPLICATION DATE",.01)=""
^DD(27.11,"B","ENROLLMENT DATE",.1)=""
^DD(27.11,"B","ENROLLMENT END DATE",.11)=""
^DD(27.11,"B","ENROLLMENT PRIORITY",.07)=""
^DD(27.11,"B","ENROLLMENT STATUS",.04)=""
^DD(27.11,"B","ENROLLMENT SUBGROUP",.12)=""
^DD(27.11,"B","ENTERED BY",75.02)=""
^DD(27.11,"B","ENVIRONMENTAL CONTAMINANTS",50.13)=""
^DD(27.11,"B","EXPOSED TO AGENT ORANGE",50.11)=""
^DD(27.11,"B","FACILITY RECEIVED",.06)=""
^DD(27.11,"B","MEANS TEST STATUS",50.14)=""
^DD(27.11,"B","MEDICAID",50.1)=""
^DD(27.11,"B","PATIENT",.02)=""
^DD(27.11,"B","POW STATUS INDICATED",50.04)=""
^DD(27.11,"B","PRIOR ENROLLMENT RECORD",.09)=""
^DD(27.11,"B","PROJ 112/SHAD",50.19)=""
^DD(27.11,"B","PURPLE HEART INDICATED?",50.16)=""
^DD(27.11,"B","RADIATION EXPOSURE INDICATED",50.12)=""
^DD(27.11,"B","RADIATION EXPOSURE METHOD",76)=""
^DD(27.11,"B","REASON CANCELED/DECLINED",.05)=""
^DD(27.11,"B","RECEIVING A VA PENSION",50.07)=""
^DD(27.11,"B","RECEIVING A&A BENEFITS",50.05)=""
^DD(27.11,"B","RECEIVING HOUSEBOUND BENEFITS",50.06)=""
^DD(27.11,"B","SERVICE CONNECTED",50.02)=""
^DD(27.11,"B","SERVICE CONNECTED PERCENTAGE",50.03)=""
^DD(27.11,"B","SOURCE OF ENROLLMENT",.03)=""
^DD(27.11,"B","TOTAL ANNUAL VA CHECK AMOUNT",50.08)=""
^DD(27.11,"B","UNEMPLOYABLE",50.17)=""
^DD(27.11,"B","VETERAN CATASTROPHICALLY DISABLED",50.15)=""
^DD(27.11,"GL",0,1,.01)=""
^DD(27.11,"GL",0,2,.02)=""
^DD(27.11,"GL",0,3,.03)=""
^DD(27.11,"GL",0,4,.04)=""
^DD(27.11,"GL",0,5,.05)=""
^DD(27.11,"GL",0,6,.06)=""
^DD(27.11,"GL",0,7,.07)=""
^DD(27.11,"GL",0,8,.08)=""
^DD(27.11,"GL",0,9,.09)=""
^DD(27.11,"GL",0,10,.1)=""
^DD(27.11,"GL",0,11,.11)=""
^DD(27.11,"GL",0,12,.12)=""
^DD(27.11,"GL","E",1,50.01)=""
^DD(27.11,"GL","E",2,50.02)=""
^DD(27.11,"GL","E",3,50.03)=""
^DD(27.11,"GL","E",4,50.04)=""
^DD(27.11,"GL","E",5,50.05)=""
^DD(27.11,"GL","E",6,50.06)=""
^DD(27.11,"GL","E",7,50.07)=""
^DD(27.11,"GL","E",8,50.08)=""
^DD(27.11,"GL","E",9,50.09)=""
^DD(27.11,"GL","E",10,50.1)=""
^DD(27.11,"GL","E",11,50.11)=""
^DD(27.11,"GL","E",12,50.12)=""
^DD(27.11,"GL","E",13,50.13)=""
^DD(27.11,"GL","E",14,50.14)=""
^DD(27.11,"GL","E",15,50.15)=""
^DD(27.11,"GL","E",16,50.16)=""
^DD(27.11,"GL","E",17,50.17)=""
^DD(27.11,"GL","E",18,50.18)=""
^DD(27.11,"GL","E",19,50.19)=""
^DD(27.11,"GL","E",20,50.2)=""
^DD(27.11,"GL","E",21,76)=""
^DD(27.11,"GL","R",1,25)=""
^DD(27.11,"GL","U",1,75.01)=""
^DD(27.11,"GL","U",2,75.02)=""
^DD(27.11,"IX",.01)=""
^DD(27.11,"IX",.02)=""
^DD(27.11,"IX",.03)=""
^DD(27.11,"IX",.04)=""
^DD(27.11,"IX",.06)=""
^DD(27.11,"IX",.07)=""
^DD(27.11,"IX",.08)=""
^DD(27.11,"IX",.1)=""
^DD(27.11,"IX",.11)=""
^DD(27.11,"IX",.12)=""
^DD(27.11,"RQ",.01)=""
^DD(27.11,"RQ",.02)=""
^DD(27.11,"RQ",.03)=""
^DD(27.11,"RQ",.04)=""
^DD(27.11,"RQ",.08)=""
^DD(27.11,"RQ",75.01)=""
^DD(27.12,0)="FIELD^^1^9"
^DD(27.12,0,"DDA")="N"
^DD(27.12,0,"DT")="2980505"
^DD(27.12,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(27.12,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(27.12,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(27.12,0,"IX","ADS1",27.12,.02)=""
^DD(27.12,0,"IX","ADS2",27.12,.03)=""
^DD(27.12,0,"IX","ADT1",27.12,.01)=""
^DD(27.12,0,"IX","ADT2",27.12,.02)=""
^DD(27.12,0,"IX","B",27.12,.01)=""
^DD(27.12,0,"IX","C",27.12,.05)=""
^DD(27.12,0,"NM","ENROLLMENT QUERY LOG")=""
^DD(27.12,0,"VR")="5.3"
^DD(27.12,0,"VRPK")="DG"
^DD(27.12,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(27.12,.01,1,0)="^.1"
^DD(27.12,.01,1,1,0)="27.12^B"
^DD(27.12,.01,1,1,1)="S ^DGEN(27.12,""B"",$E(X,1,30),DA)="""""
^DD(27.12,.01,1,1,2)="K ^DGEN(27.12,""B"",$E(X,1,30),DA)"
^DD(27.12,.01,1,2,0)="27.12^ADT1^MUMPS"
^DD(27.12,.01,1,2,1)="D SETADT1^DGENQRY(DA,X)"
^DD(27.12,.01,1,2,2)="D KILLADT1^DGENQRY(DA,X)"
^DD(27.12,.01,1,2,3)="DO NOT DELETE"
^DD(27.12,.01,1,2,"%D",0)="^^7^7^2971029^^^"
^DD(27.12,.01,1,2,"%D",1,0)="Used to find all the queries for a particular patient sorted in the order"
^DD(27.12,.01,1,2,"%D",2,0)="of dt/tm sent."
^DD(27.12,.01,1,2,"%D",3,0)=" "
^DD(27.12,.01,1,2,"%D",4,0)="The format is:  ^DGEN(27.12,""ADT"",<DFN>,<date@time query sent>,<ien>)="""""
^DD(27.12,.01,1,2,"%D",5,0)=""
^DD(27.12,.01,1,2,"%D",6,0)="This cross-reference also involves the DT/TM SENT field (.02) as the"
^DD(27.12,.01,1,2,"%D",7,0)="ADT2 cross-reference."
^DD(27.12,.01,1,2,"DT")="2971029"
^DD(27.12,.01,3)="Who was the query sent for?"
^DD(27.12,.01,21,0)="^^1^1^2971027^"
^DD(27.12,.01,21,1,0)="The patient for whom the query was sent."
^DD(27.12,.01,"DT")="2971029"
^DD(27.12,.02,0)="DT/TM SENT^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(27.12,.02,1,0)="^.1"
^DD(27.12,.02,1,1,0)="27.12^ADT2^MUMPS"
^DD(27.12,.02,1,1,1)="D SETADT2^DGENQRY(DA,X)"
^DD(27.12,.02,1,1,2)="D KILLADT2^DGENQRY(DA,X)"
^DD(27.12,.02,1,1,3)="DO NOT DELETE"
^DD(27.12,.02,1,1,"%D",0)="^^7^7^2971029^^"
^DD(27.12,.02,1,1,"%D",1,0)="Used to find all the queries for a particular patient sorted in the order"
^DD(27.12,.02,1,1,"%D",2,0)="of dt/tm sent."
^DD(27.12,.02,1,1,"%D",3,0)=" "
^DD(27.12,.02,1,1,"%D",4,0)="The format is:  ^DGEN(27.12,""ADT"",<DFN>,<date@time query sent>,<ien>)="""""
^DD(27.12,.02,1,1,"%D",5,0)=""
^DD(27.12,.02,1,1,"%D",6,0)="This cross-reference also involves the PATIENT field (.01) as the"
^DD(27.12,.02,1,1,"%D",7,0)="ADT1 cross-reference."
^DD(27.12,.02,1,1,"DT")="2971029"
^DD(27.12,.02,1,2,0)="27.12^ADS1^MUMPS"
^DD(27.12,.02,1,2,1)="D SETADS2^DGENQRY(DA,X)"
^DD(27.12,.02,1,2,2)="D KILLADS2^DGENQRY(DA,X)"
^DD(27.12,.02,1,2,3)="DO NOT DELETE"
^DD(27.12,.02,1,2,"%D",0)="^^10^10^2980618^^^^"
^DD(27.12,.02,1,2,"%D",1,0)="This cross-reference is used to track queries that have been sent but no reply"
^DD(27.12,.02,1,2,"%D",2,0)="has been received. The format is:"
^DD(27.12,.02,1,2,"%D",3,0)=""
^DD(27.12,.02,1,2,"%D",4,0)="^DGEN(27.12,""ADS"",<date sent>,DA)="""""
^DD(27.12,.02,1,2,"%D",5,0)=""
^DD(27.12,.02,1,2,"%D",6,0)="The cross-reference shows only outstanding queries that still require a reply"
^DD(27.12,.02,1,2,"%D",7,0)="and is used by a nightly background job to retransmit outstanding queries."
^DD(27.12,.02,1,2,"%D",8,0)="When a query is retransmitted the DT/TM SENT field is updated.  "
^DD(27.12,.02,1,2,"%D",9,0)=""
^DD(27.12,.02,1,2,"%D",10,0)="The cross-reference also appears on the STATUS field (.03) as ADS2."
^DD(27.12,.02,1,2,"DT")="2971029"
^DD(27.12,.02,3)="When was the query sent?"
^DD(27.12,.02,21,0)="^^1^1^2971028^^"
^DD(27.12,.02,21,1,0)="This field contains the date/time the query was transmitted to HEC."
^DD(27.12,.02,"DT")="2971029"
^DD(27.12,.03,0)="STATUS^RS^0:TRANSMITTED;1:CLOSED;2:RE-TRANSMITTED;3:RECEIVED/UPLOADED;4:RECEIVED/NO UPLOAD;^0;3^Q"
^DD(27.12,.03,1,0)="^.1"
^DD(27.12,.03,1,1,0)="27.12^ADS2^MUMPS"
^DD(27.12,.03,1,1,1)="D SETADS1^DGENQRY(DA,X)"
^DD(27.12,.03,1,1,2)="D KILLADS1^DGENQRY(DA,X)"
^DD(27.12,.03,1,1,3)="DO NOT DELETE"
^DD(27.12,.03,1,1,"%D",0)="^^11^11^2980618^^^^"
^DD(27.12,.03,1,1,"%D",1,0)="This cross-reference is used to track queries that have been sent but no reply"
^DD(27.12,.03,1,1,"%D",2,0)="has been received. The format is:"
^DD(27.12,.03,1,1,"%D",3,0)=""
^DD(27.12,.03,1,1,"%D",4,0)="^DGEN(27.12,""ADS"",<date sent>,DA)="""""
^DD(27.12,.03,1,1,"%D",5,0)=""
^DD(27.12,.03,1,1,"%D",6,0)="The cross-reference shows only outstanding queries that still require a reply"
^DD(27.12,.03,1,1,"%D",7,0)="and is used by a nightly background job to retransmit outstanding queries."
^DD(27.12,.03,1,1,"%D",8,0)="When a query is retransmitted the DT/TM SENT field is updated."
^DD(27.12,.03,1,1,"%D",9,0)=""
^DD(27.12,.03,1,1,"%D",10,0)="The cross-reference also appears on the DT/TM SENT field (.02) as ADS1."
^DD(27.12,.03,1,1,"%D",11,0)=""
^DD(27.12,.03,1,1,"DT")="2971029"
^DD(27.12,.03,3)="What is the status of the query?"
^DD(27.12,.03,21,0)="^^4^4^2980414^^^^"
^DD(27.12,.03,21,1,0)="This field will indicate the status of the query.  When a query needs to be"
^DD(27.12,.03,21,2,0)="re-sent due to non-response, the status of the original query will be changed"
^DD(27.12,.03,21,3,0)="to RE-TRANSMITTED.  If a response is no longer required, its status can be"
^DD(27.12,.03,21,4,0)="changed to CLOSED to prevent it from being re-sent."
^DD(27.12,.03,"DT")="2980302"
^DD(27.12,.05,0)="MESSAGE ID^RF^^0;5^K:$L(X)>18!($L(X)<1) X"
^DD(27.12,.05,1,0)="^.1"
^DD(27.12,.05,1,1,0)="27.12^C"
^DD(27.12,.05,1,1,1)="S ^DGEN(27.12,""C"",$E(X,1,30),DA)="""""
^DD(27.12,.05,1,1,2)="K ^DGEN(27.12,""C"",$E(X,1,30),DA)"
^DD(27.12,.05,1,1,3)="DO NOT DELETE"
^DD(27.12,.05,1,1,"DT")="2971027"
^DD(27.12,.05,3)="Answer must be 1-18 characters in length."
^DD(27.12,.05,21,0)="^^1^1^2971027^"
^DD(27.12,.05,21,1,0)="This field contains the unique identifier assigned to query by the HL7 package."
^DD(27.12,.05,"DT")="2971027"
^DD(27.12,.06,0)="DT/TM RESPONSE^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(27.12,.06,3)="When was the query reply received?"
^DD(27.12,.06,21,0)="^^1^1^2971027^"
^DD(27.12,.06,21,1,0)="Used to document when the query reply was received."
^DD(27.12,.06,"DT")="2971028"
^DD(27.12,.07,0)="RESPONSE MESSAGE ID^F^^0;7^K:$L(X)>18!($L(X)<1) X"
^DD(27.12,.07,3)="Answer must be 1-18 characters in length."
^DD(27.12,.07,21,0)="^^1^1^2980505^"
^DD(27.12,.07,21,1,0)="The HL7 message id contained in the query response."
^DD(27.12,.07,"DT")="2980505"
^DD(27.12,.08,0)="NOTIFY^P200'^VA(200,^0;8^Q"
^DD(27.12,.08,3)="Who should receive notification when a reply is received?"
^DD(27.12,.08,21,0)="^^2^2^2971027^"
^DD(27.12,.08,21,1,0)="If the user requests to be notified when a query response is recieved, this"
^DD(27.12,.08,21,2,0)="field should be completed with the person to notify."
^DD(27.12,.08,"DT")="2971027"
^DD(27.12,.09,0)="FIRST DT/TM^RD^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(27.12,.09,3)="When was the query first sent?"
^DD(27.12,.09,21,0)="^^2^2^2971028^^"
^DD(27.12,.09,21,1,0)="This field indicates when the query was first sent.  It will be different"
^DD(27.12,.09,21,2,0)="from the DT/TM SENT field only in the event of a retransmission."
^DD(27.12,.09,"DT")="2971027"
^DD(27.12,1,0)="ERROR MESSAGE^F^^10;1^K:$L(X)>245!($L(X)<1) X"
^DD(27.12,1,3)="If a query reply is received, but the eligibility/enrollment upload is unsuccessful, enter the reason."
^DD(27.12,1,21,0)="^^2^2^2980105^^^"
^DD(27.12,1,21,1,0)="If the query reply is received, but the eligibility/enrollment upload is"
^DD(27.12,1,21,2,0)="unsuccessful, this field should show the reason."
^DD(27.12,1,"DT")="2971210"
^DD(27.12,"B","DT/TM RESPONSE",.06)=""
^DD(27.12,"B","DT/TM SENT",.02)=""
^DD(27.12,"B","ERROR MESSAGE",1)=""
^DD(27.12,"B","FIRST DT/TM",.09)=""
^DD(27.12,"B","MESSAGE ID",.05)=""
^DD(27.12,"B","NOTIFY",.08)=""
^DD(27.12,"B","PATIENT",.01)=""
^DD(27.12,"B","RESPONSE MESSAGE ID",.07)=""
^DD(27.12,"B","STATUS",.03)=""
^DD(27.12,"GL",0,1,.01)=""
^DD(27.12,"GL",0,2,.02)=""
^DD(27.12,"GL",0,3,.03)=""
^DD(27.12,"GL",0,5,.05)=""
^DD(27.12,"GL",0,6,.06)=""
^DD(27.12,"GL",0,7,.07)=""
^DD(27.12,"GL",0,8,.08)=""
^DD(27.12,"GL",0,9,.09)=""
^DD(27.12,"GL",10,1,1)=""
^DD(27.12,"IX",.01)=""
^DD(27.12,"IX",.02)=""
^DD(27.12,"IX",.03)=""
^DD(27.12,"IX",.05)=""
^DD(27.12,"RQ",.01)=""
^DD(27.12,"RQ",.02)=""
^DD(27.12,"RQ",.03)=""
^DD(27.12,"RQ",.05)=""
^DD(27.12,"RQ",.09)=""
^DD(27.14,0)="FIELD^^1^4"
^DD(27.14,0,"DDA")="N"
^DD(27.14,0,"DT")="2980503"
^DD(27.14,0,"ID","WRITE")="D AUDITID^DGENUPA(+Y)"
^DD(27.14,0,"IX","B",27.14,.01)=""
^DD(27.14,0,"IX","C",27.14,.03)=""
^DD(27.14,0,"IX","D",27.14,.02)=""
^DD(27.14,0,"NM","ENROLLMENT/ELIGIBILITY UPLOAD AUDIT")=""
^DD(27.14,0,"VR")="5.3"
^DD(27.14,0,"VRPK")="DG"
^DD(27.14,.01,0)="MESSAGE ID^RF^^0;1^K:$L(X)>18!($L(X)<1) X"
^DD(27.14,.01,1,0)="^.1"
^DD(27.14,.01,1,1,0)="27.14^B"
^DD(27.14,.01,1,1,1)="S ^DGENA(27.14,""B"",$E(X,1,30),DA)="""""
^DD(27.14,.01,1,1,2)="K ^DGENA(27.14,""B"",$E(X,1,30),DA)"
^DD(27.14,.01,3)="Answer must be 1-18 characters in length."
^DD(27.14,.01,21,0)="^^1^1^2980503^^^^"
^DD(27.14,.01,21,1,0)="The HL7 Message ID of the message that was uploaded."
^DD(27.14,.01,"DT")="2980503"
^DD(27.14,.02,0)="DATE/TIME OF UPLOAD^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(27.14,.02,1,0)="^.1"
^DD(27.14,.02,1,1,0)="27.14^D"
^DD(27.14,.02,1,1,1)="S ^DGENA(27.14,""D"",$E(X,1,30),DA)="""""
^DD(27.14,.02,1,1,2)="K ^DGENA(27.14,""D"",$E(X,1,30),DA)"
^DD(27.14,.02,1,1,"%D",0)="^^1^1^2980507^"
^DD(27.14,.02,1,1,"%D",1,0)="Used to audit uploads by date range."
^DD(27.14,.02,1,1,"DT")="2980507"
^DD(27.14,.02,3)="When was the data uploaded?"
^DD(27.14,.02,21,0)="^^1^1^2980501^^"
^DD(27.14,.02,21,1,0)="When the upload occurred."
^DD(27.14,.02,"DT")="2980507"
^DD(27.14,.03,0)="PATIENT^RP2'^DPT(^0;3^Q"
^DD(27.14,.03,1,0)="^.1"
^DD(27.14,.03,1,1,0)="27.14^C"
^DD(27.14,.03,1,1,1)="S ^DGENA(27.14,""C"",$E(X,1,30),DA)="""""
^DD(27.14,.03,1,1,2)="K ^DGENA(27.14,""C"",$E(X,1,30),DA)"
^DD(27.14,.03,1,1,"DT")="2980503"
^DD(27.14,.03,3)="Enter the patient that was uploaded."
^DD(27.14,.03,21,0)="^^1^1^2980503^^"
^DD(27.14,.03,21,1,0)="Identifies the message that was uploaded."
^DD(27.14,.03,"DT")="2980503"
^DD(27.14,1,0)="RESULTANT CHANGES^27.141^^1;0"
^DD(27.14,1,21,0)="^^2^2^2980514^"
^DD(27.14,1,21,1,0)="This will contain the before and after values for fields changes as"
^DD(27.14,1,21,2,0)="a result of the upload."
^DD(27.14,"B","DATE/TIME OF UPLOAD",.02)=""
^DD(27.14,"B","MESSAGE ID",.01)=""
^DD(27.14,"B","PATIENT",.03)=""
^DD(27.14,"B","RESULTANT CHANGES",1)=""
^DD(27.14,"GL",0,1,.01)=""
^DD(27.14,"GL",0,2,.02)=""
^DD(27.14,"GL",0,3,.03)=""
^DD(27.14,"GL",1,0,1)=""
^DD(27.14,"IX",.01)=""
^DD(27.14,"IX",.02)=""
^DD(27.14,"IX",.03)=""
^DD(27.14,"RQ",.01)=""
^DD(27.14,"RQ",.03)=""
^DD(27.14,"SB",27.141,1)=""
^DD(27.141,0)="RESULTANT CHANGES SUB-FIELD^^.01^1"
^DD(27.141,0,"DT")="2980501"
^DD(27.141,0,"NM","RESULTANT CHANGES")=""
^DD(27.141,0,"UP")="27.14"
^DD(27.141,.01,0)="RESULTANT CHANGES^WL^^0;1^Q"
^DD(27.141,.01,3)="What changes resulted from the upload?"
^DD(27.141,.01,21,0)="^^1^1^2980501^^"
^DD(27.141,.01,21,1,0)="The changes that resulted from the upload."
^DD(27.141,.01,"DT")="2980501"
^DD(27.141,"B","RESULTANT CHANGES",.01)=""
^DD(27.141,"GL",0,1,.01)=""
^DD(27.15,0)="FIELD^^25^5"
^DD(27.15,0,"DDA")="N"
^DD(27.15,0,"DT")="2990422"
^DD(27.15,0,"IX","B",27.15,.01)=""
^DD(27.15,0,"NM","ENROLLMENT STATUS")=""
^DD(27.15,0,"PT",27.11,.04)=""
^DD(27.15,0,"VR")="5.3"
^DD(27.15,0,"VRPK")="DG"
^DD(27.15,.001,0)="ENTRY NUMBER^NJ3,0^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(27.15,.001,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(27.15,.001,21,0)="^^1^1^2990422^"
^DD(27.15,.001,21,1,0)="This field will indicate the internal entry number associated with the enrollment status."
^DD(27.15,.001,"DT")="2990422"
^DD(27.15,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(27.15,.01,1,0)="^.1"
^DD(27.15,.01,1,1,0)="27.15^B"
^DD(27.15,.01,1,1,1)="S ^DGEN(27.15,""B"",$E(X,1,30),DA)="""""
^DD(27.15,.01,1,1,2)="K ^DGEN(27.15,""B"",$E(X,1,30),DA)"
^DD(27.15,.01,3)="Answer must be 3-45 characters in length."
^DD(27.15,.01,21,0)="^^1^1^2990422^^^"
^DD(27.15,.01,21,1,0)="This field contains the enrollment status name."
^DD(27.15,.01,"DT")="2990422"
^DD(27.15,.02,0)="ENROLLMENT CATEGORY^S^E:ENROLLED;N:NOT ENROLLED;P:IN PROCESS;^0;2^Q"
^DD(27.15,.02,21,0)="^^1^1^2990422^^"
^DD(27.15,.02,21,1,0)="This field will contain the enrollment category associated with the enrollment status."
^DD(27.15,.02,"DT")="2990422"
^DD(27.15,.03,0)="INACTIVE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(27.15,.03,3)=""
^DD(27.15,.03,21,0)="^^1^1^2990422^^^"
^DD(27.15,.03,21,1,0)="This field will contain the date that the enrollment status became inactive."
^DD(27.15,.03,"DT")="2990422"
^DD(27.15,25,0)="DESCRIPTION^27.1525^^D;0"
^DD(27.15,"B","DESCRIPTION",25)=""
^DD(27.15,"B","ENROLLMENT CATEGORY",.02)=""
^DD(27.15,"B","ENTRY NUMBER",.001)=""
^DD(27.15,"B","INACTIVE DATE",.03)=""
^DD(27.15,"B","NAME",.01)=""
^DD(27.15,"GL",0,1,.01)=""
^DD(27.15,"GL",0,2,.02)=""
^DD(27.15,"GL",0,3,.03)=""
^DD(27.15,"GL","D",0,25)=""
^DD(27.15,"IX",.01)=""
^DD(27.15,"RQ",.01)=""
^DD(27.15,"SB",27.1525,25)=""
^DD(27.1525,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(27.1525,0,"DT")="2990422"
^DD(27.1525,0,"NM","DESCRIPTION")=""
^DD(27.1525,0,"UP")="27.15"
^DD(27.1525,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(27.1525,.01,21,0)="^^1^1^2990422^"
^DD(27.1525,.01,21,1,0)="This field will contain the description associated with the enrollment status."
^DD(27.1525,.01,"DT")="2990422"
^DD(27.1525,"B","DESCRIPTION",.01)=""
^DD(27.1525,"GL",0,1,.01)=""
^DD(27.16,0)="FIELD^^25^9"
^DD(27.16,0,"DDA")="N"
^DD(27.16,0,"DT")="2990507"
^DD(27.16,0,"IX","B",27.16,.01)=""
^DD(27.16,0,"NM","ENROLLMENT GROUP THRESHOLD")=""
^DD(27.16,0,"VR")="5.3"
^DD(27.16,0,"VRPK")="DG"
^DD(27.16,.01,0)="EGT EFFECTIVE DATE^RDI^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(27.16,.01,1,0)="^.1"
^DD(27.16,.01,1,1,0)="27.16^B"
^DD(27.16,.01,1,1,1)="S ^DGEN(27.16,""B"",$E(X,1,30),DA)="""""
^DD(27.16,.01,1,1,2)="K ^DGEN(27.16,""B"",$E(X,1,30),DA)"
^DD(27.16,.01,3)="Enter the effective date of the enrollment group threshold."
^DD(27.16,.01,21,0)="^^1^1^2990628^^^^"
^DD(27.16,.01,21,1,0)="This field will contain the date that the enrollment group threshold is effective."
^DD(27.16,.01,"DT")="2990513"
^DD(27.16,.02,0)="EGT PRIORITY^RSI^1:GROUP 1;2:GROUP 2;3:GROUP 3;4:GROUP 4;5:GROUP 5;6:GROUP 6;7:GROUP 7;8:GROUP 8;^0;2^Q"
^DD(27.16,.02,3)="Enter the enrollment priority group threshold."
^DD(27.16,.02,21,0)="^.001^1^1^3020626^^^^"
^DD(27.16,.02,21,1,0)="This field will contain the enrollment priority group threshold."
^DD(27.16,.02,"DT")="3020626"
^DD(27.16,.03,0)="EGT SUBGROUP^SI^1:a;3:c;^0;3^Q"
^DD(27.16,.03,3)="Enter the enrollment priority subgroup threshold."
^DD(27.16,.03,21,0)="^.001^1^1^3000727^^^^"
^DD(27.16,.03,21,1,0)="This field will contain the enrollment priority subgroup threshold."
^DD(27.16,.03,"DT")="3000727"
^DD(27.16,.04,0)="EGT TYPE^RSI^1:ANNUAL FISCAL YEAR;2:STOP NEW ENROLLMENTS DURING CYCLE;3:MID-CYCLE CHANGE;4:ENROLLMENT DECISION;^0;4^Q"
^DD(27.16,.04,3)="Enter the reason for the enrollment group threshold change."
^DD(27.16,.04,21,0)="^.001^1^1^3021219^^^^"
^DD(27.16,.04,21,1,0)="This field will contain the reason associated with the enrollment group threshold setting."
^DD(27.16,.04,"DT")="3021219"
^DD(27.16,.05,0)="FEDERAL REGISTER DATE^DI^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(27.16,.05,3)="Enter the date that the enrollment group threshold was posted in the Federal Register."
^DD(27.16,.05,21,0)="^^1^1^2990507^^^^"
^DD(27.16,.05,21,1,0)="This field will contain the date that the enrollment group threshold is posted in the Federal Register."
^DD(27.16,.05,"DT")="2990513"
^DD(27.16,.06,0)="DATE ENTERED^RDI^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(27.16,.06,3)="Enter the date/time the record is being created."
^DD(27.16,.06,21,0)="^^1^1^2990503^"
^DD(27.16,.06,21,1,0)="This field will contain the date/time that the enrollment group threshold record is entered/created."
^DD(27.16,.06,"DT")="2990513"
^DD(27.16,.07,0)="SOURCE OF EGT^SI^1:HEC;^0;7^Q"
^DD(27.16,.07,3)="Enter the source of the enrollment group threshold."
^DD(27.16,.07,21,0)="^^1^1^2990503^^"
^DD(27.16,.07,21,1,0)="How the enrollment group threshold was determined."
^DD(27.16,.07,"DT")="2990513"
^DD(27.16,.08,0)="INACTIVE?^S^1:YES;^0;8^Q"
^DD(27.16,.08,3)="Should this EGT setting be inactivated?"
^DD(27.16,.08,21,0)="^^2^2^3031120^"
^DD(27.16,.08,21,1,0)="This field is populated automatically when a new Enrollment Group "
^DD(27.16,.08,21,2,0)="Threshold is set, to prevent problems with future EGT settings."
^DD(27.16,.08,"DT")="3031120"
^DD(27.16,25,0)="REMARKS^FIX^^R;1^K:$L(X)>80!($L(X)<3) X"
^DD(27.16,25,3)="Answer must be 3-80 characters in length."
^DD(27.16,25,21,0)="^^1^1^2990629^^^^"
^DD(27.16,25,21,1,0)="This field will contain any remarks associated with the enrollment group threshold setting."
^DD(27.16,25,"DT")="2990428"
^DD(27.16,"B","DATE ENTERED",.06)=""
^DD(27.16,"B","EGT EFFECTIVE DATE",.01)=""
^DD(27.16,"B","EGT PRIORITY",.02)=""
^DD(27.16,"B","EGT SUBGROUP",.03)=""
^DD(27.16,"B","EGT TYPE",.04)=""
^DD(27.16,"B","FEDERAL REGISTER DATE",.05)=""
^DD(27.16,"B","INACTIVE?",.08)=""
^DD(27.16,"B","REMARKS",25)=""
^DD(27.16,"B","SOURCE OF EGT",.07)=""
^DD(27.16,"GL",0,1,.01)=""
^DD(27.16,"GL",0,2,.02)=""
^DD(27.16,"GL",0,3,.03)=""
^DD(27.16,"GL",0,4,.04)=""
^DD(27.16,"GL",0,5,.05)=""
^DD(27.16,"GL",0,6,.06)=""
^DD(27.16,"GL",0,7,.07)=""
^DD(27.16,"GL",0,8,.08)=""
^DD(27.16,"GL","R",1,25)=""
^DD(27.16,"IX",.01)=""
^DD(27.16,"RQ",.01)=""
^DD(27.16,"RQ",.02)=""
^DD(27.16,"RQ",.04)=""
^DD(27.16,"RQ",.06)=""
^DD(27.17,0)="FIELD^^8^8"
^DD(27.17,0,"DDA")="N"
^DD(27.17,0,"DT")="2990524"
^DD(27.17,0,"ID",3)="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,3),1:"""") D NAME^DICM2 W ?35,"" "",DINAME,@(""$E(""_DIC_""Y,0),0)"")"
^DD(27.17,0,"ID",8)="W ?45,"" "",$P(^(0),U,4)"
^DD(27.17,0,"IX","B",27.17,.01)=""
^DD(27.17,0,"IX","C",27.17,8)=""
^DD(27.17,0,"NM","CATASTROPHIC DISABILITY REASONS")=""
^DD(27.17,0,"PT",2.396,.01)=""
^DD(27.17,0,"PT",2.397,.01)=""
^DD(27.17,0,"PT",2.398,.01)=""
^DD(27.17,0,"PT",2.409,.01)=""
^DD(27.17,0,"VR")="5.3"
^DD(27.17,0,"VRPK")="DG"
^DD(27.17,.01,0)="NAME^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X"
^DD(27.17,.01,1,0)="^.1"
^DD(27.17,.01,1,1,0)="27.17^B"
^DD(27.17,.01,1,1,1)="S ^DGEN(27.17,""B"",$E($TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),1,30),DA)="""""
^DD(27.17,.01,1,1,2)="K ^DGEN(27.17,""B"",$E($TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),1,30),DA)"
^DD(27.17,.01,1,1,"DT")="2990621"
^DD(27.17,.01,3)="Answer must be 3-80 characters in length."
^DD(27.17,.01,"DT")="2990621"
^DD(27.17,1,0)="TYPE^RS^P:PROCEDURE;D:DIAGNOSIS;C:CONDITION;^0;2^Q"
^DD(27.17,1,21,0)="^^3^3^2990520^"
^DD(27.17,1,21,1,0)="This field contains the type of CATASTROPHIC DISABILITY REASON.  The"
^DD(27.17,1,21,2,0)="PATIENT file uses this set of codes to screen out Diagnoses, Procedures"
^DD(27.17,1,21,3,0)="and Conditions in its fields .396, .397, and .398"
^DD(27.17,1,"DT")="2990517"
^DD(27.17,3,0)="CODE NUMBER^V^^0;3^Q"
^DD(27.17,3,3)="Select an appropriate Diagnostic/Procedure code, if applicable."
^DD(27.17,3,21,0)="^^4^4^2990520^^^^"
^DD(27.17,3,21,1,0)="If the type is ""PROCEDURE"" then this must be a CPT Code or an ICD"
^DD(27.17,3,21,2,0)="DIAGNOSIS/Procedure.  If the type is ""Operation"" then this must be"
^DD(27.17,3,21,3,0)="an ICD Diagnosis.  If the type is ""CONDITION"" then this field must be"
^DD(27.17,3,21,4,0)="blank."
^DD(27.17,3,"DT")="2990513"
^DD(27.17,3,"V",0)="^.12P^3^3"
^DD(27.17,3,"V",1,0)="80^ICD9 Diagnostic Codes^10^ICD9^^n"
^DD(27.17,3,"V",2,0)="80.1^ICD Operations/Procedures^20^ICDOP^^n"
^DD(27.17,3,"V",3,0)="81^CPT Procedure^30^ICPT^^n"
^DD(27.17,3,"V","B",80,1)=""
^DD(27.17,3,"V","B",80.1,2)=""
^DD(27.17,3,"V","B",81,3)=""
^DD(27.17,3,"V","M","CPT Procedure",3)=""
^DD(27.17,3,"V","M","ICD Operations/Procedures",2)=""
^DD(27.17,3,"V","M","ICD9 Diagnostic Codes",1)=""
^DD(27.17,3,"V","O",10,1)=""
^DD(27.17,3,"V","O",20,2)=""
^DD(27.17,3,"V","O",30,3)=""
^DD(27.17,3,"V","P","ICD9",1)=""
^DD(27.17,3,"V","P","ICDOP",2)=""
^DD(27.17,3,"V","P","ICPT",3)=""
^DD(27.17,4,0)="AFFECTED LIMB^27.174SA^^1;0"
^DD(27.17,4,21,0)="^^2^2^2990520^"
^DD(27.17,4,21,1,0)="This set of codes determines to which limbs the procedure could apply."
^DD(27.17,4,21,2,0)="A procedure cannot be entered for a limb that's not mentioned here."
^DD(27.17,5,0)="TEST SCORE RANGE^F^^2;E1,245^K:$L(X)>250!($L(X)<1) X"
^DD(27.17,5,3)="Answer must be 1-250 characters in length."
^DD(27.17,5,9)="@"
^DD(27.17,5,21,0)="^^4^4^2990608^^"
^DD(27.17,5,21,1,0)="This field contains a MUMPS condition on the variables SCORE (patient's"
^DD(27.17,5,21,2,0)="score on the test) and PERM (permanent status indicator).  If this"
^DD(27.17,5,21,3,0)="condition is true, then the patient meets the Catastrophic Disability"
^DD(27.17,5,21,4,0)="requirements for this test."
^DD(27.17,5,"DT")="2990520"
^DD(27.17,6,0)="HELP TEXT^27.176^^3;0"
^DD(27.17,6,21,0)="^^2^2^2990520^"
^DD(27.17,6,21,1,0)="This field contains help text that will be displayed to the user when"
^DD(27.17,6,21,2,0)="entering data in the PATIENT file (field #.398) for this condition."
^DD(27.17,7,0)="VALIDATION^F^^4;E1,245^K:$L(X)>250!($L(X)<1) X"
^DD(27.17,7,3)="Answer must be 1-250 characters in length."
^DD(27.17,7,9)="@"
^DD(27.17,7,21,0)="^^5^5^2990520^"
^DD(27.17,7,21,1,0)="This field contains a MUMPS condition on the variable X to determine if"
^DD(27.17,7,21,2,0)="a test score entered by the user is valid or not.  For example if you"
^DD(27.17,7,21,3,0)="specify X>10 here, then the user won't be able to enter a TEST SCORE"
^DD(27.17,7,21,4,0)="in the CD CONDITIONS field of the PATIENT file whose value is not"
^DD(27.17,7,21,5,0)="greater than 10."
^DD(27.17,7,"DT")="2990520"
^DD(27.17,8,0)="HL7 TRANSMISSION VALUE^RF^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(27.17,8,1,0)="^.1"
^DD(27.17,8,1,1,0)="27.17^C"
^DD(27.17,8,1,1,1)="S ^DGEN(27.17,""C"",$E(X,1,30),DA)="""""
^DD(27.17,8,1,1,2)="K ^DGEN(27.17,""C"",$E(X,1,30),DA)"
^DD(27.17,8,1,1,"%D",0)="^^2^2^2990524^"
^DD(27.17,8,1,1,"%D",1,0)="This cross-reference will facilitate lookup when HL7 messages are being"
^DD(27.17,8,1,1,"%D",2,0)="processed."
^DD(27.17,8,1,1,"DT")="2990524"
^DD(27.17,8,3)="Answer must be 1-30 characters in length."
^DD(27.17,8,21,0)="^^2^2^2990524^"
^DD(27.17,8,21,1,0)="This is the value that should be sent in HL7 messages (ZCD segment)"
^DD(27.17,8,21,2,0)="for this catastrophic disability reason."
^DD(27.17,8,"DT")="2990524"
^DD(27.17,"B","AFFECTED LIMB",4)=""
^DD(27.17,"B","CODE NUMBER",3)=""
^DD(27.17,"B","HELP TEXT",6)=""
^DD(27.17,"B","HL7 TRANSMISSION VALUE",8)=""
^DD(27.17,"B","NAME",.01)=""
^DD(27.17,"B","TEST SCORE RANGE",5)=""
^DD(27.17,"B","TYPE",1)=""
^DD(27.17,"B","VALIDATION",7)=""
^DD(27.17,"GL",0,1,.01)=""
^DD(27.17,"GL",0,2,1)=""
^DD(27.17,"GL",0,3,3)=""
^DD(27.17,"GL",0,4,8)=""
^DD(27.17,"GL",1,0,4)=""
^DD(27.17,"GL",2,"E1,245",5)=""
^DD(27.17,"GL",3,0,6)=""
^DD(27.17,"GL",4,"E1,245",7)=""
^DD(27.17,"IX",.01)=""
^DD(27.17,"IX",8)=""
^DD(27.17,"RQ",.01)=""
^DD(27.17,"RQ",1)=""
^DD(27.17,"RQ",8)=""
^DD(27.17,"SB",27.174,4)=""
^DD(27.17,"SB",27.176,6)=""
^DD(27.174,0)="AFFECTED LIMB SUB-FIELD^^.01^1"
^DD(27.174,0,"DT")="2990514"
^DD(27.174,0,"IX","B",27.174,.01)=""
^DD(27.174,0,"NM","AFFECTED LIMB")=""
^DD(27.174,0,"UP")="27.17"
^DD(27.174,.01,0)="AFFECTED LIMB^MS^RUE:Right Upper Extremity;RLE:Right Lower Extremity;LUE:Left Upper Extremity;LLE:Left Lower Extremity;^0;1^Q"
^DD(27.174,.01,1,0)="^.1"
^DD(27.174,.01,1,1,0)="27.174^B"
^DD(27.174,.01,1,1,1)="S ^DGEN(27.17,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(27.174,.01,1,1,2)="K ^DGEN(27.17,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(27.174,.01,21,0)="^^4^4^2990514^^^^"
^DD(27.174,.01,21,1,0)="For ICD Procedure Codes and CPT Codes, this field is used to define"
^DD(27.174,.01,21,2,0)="the acceptable extremities to which the code could apply."
^DD(27.174,.01,21,3,0)="This field will also be used for V codes in the future."
^DD(27.174,.01,21,4,0)="The field is not used for ICD Diagnostic codes."
^DD(27.174,.01,"DT")="2990514"
^DD(27.174,"B","AFFECTED LIMB",.01)=""
^DD(27.174,"GL",0,1,.01)=""
^DD(27.174,"IX",.01)=""
^DD(27.176,0)="HELP TEXT SUB-FIELD^^.01^1"
^DD(27.176,0,"DT")="2990519"
^DD(27.176,0,"NM","HELP TEXT")=""
^DD(27.176,0,"UP")="27.17"
^DD(27.176,.01,0)="HELP TEXT^WL^^0;1^Q"
^DD(27.176,.01,"DT")="2990519"
^DD(27.176,"B","HELP TEXT",.01)=""
^DD(27.176,"GL",0,1,.01)=""
^DD(28.11,0)="FIELD^^2.04^19"
^DD(28.11,0,"DDA")="N"
^DD(28.11,0,"DT")="3010918"
^DD(28.11,0,"ID",.09)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(28.11,.09,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,9)_"""":"""",2),$C(59),1)"")"
^DD(28.11,0,"IX","B",28.11,.01)=""
^DD(28.11,0,"NM","NOSE AND THROAT RADIUM HISTORY")=""
^DD(28.11,0,"VR")="5.3"
^DD(28.11,0,"VRPK")="DG"
^DD(28.11,.001,0)="NUMBER^NJ15,0^^ ^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(28.11,.001,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(28.11,.001,"DT")="3010822"
^DD(28.11,.01,0)="PATIENT^RP2'I^DPT(^0;1^Q"
^DD(28.11,.01,1,0)="^.1"
^DD(28.11,.01,1,1,0)="28.11^B"
^DD(28.11,.01,1,1,1)="S ^DGNT(28.11,""B"",$E(X,1,30),DA)="""""
^DD(28.11,.01,1,1,2)="K ^DGNT(28.11,""B"",$E(X,1,30),DA)"
^DD(28.11,.01,3)=""
^DD(28.11,.01,21,0)="^.001^2^2^3010917^^"
^DD(28.11,.01,21,1,0)="This field contains the pointer to the PATIENT file (#2) of the"
^DD(28.11,.01,21,2,0)="patient associated with Nose/Throat Radium Treatment."
^DD(28.11,.01,"DT")="3010918"
^DD(28.11,.02,0)="NTR INDICATOR^RSI^N:NO;Y:YES;^0;2^Q"
^DD(28.11,.02,21,0)="^.001^6^6^3010917^^^"
^DD(28.11,.02,21,1,0)="This field contains the indicator for Nose/Throat Radium Treatment"
^DD(28.11,.02,21,2,0)="exposure.  A YES indicates that the exposure documentation has been"
^DD(28.11,.02,21,3,0)="verified and that the veteran has a diagnosis of cancer of the head"
^DD(28.11,.02,21,4,0)="and/or neck.  A NO indicates that the veteran claims no exposure,"
^DD(28.11,.02,21,5,0)="no supporting documentation is available or there is no diagnosis"
^DD(28.11,.02,21,6,0)="of cancer of the head and/or neck."
^DD(28.11,.02,"DT")="3010918"
^DD(28.11,.03,0)="SCREENING STATUS^RSI^1:NO EXPOSURE CLAIMED;2:PENDING DOCUMENTATION;3:PENDING DIAGNOSIS;4:VERIFIED MILITARY MEDICAL RECORD AND DIAGNOSIS;5:VERIFIED SERVICE RECORD AND DIAGNOSIS;6:NO SUPPORTING DOCUMENTATION;^0;3^Q"
^DD(28.11,.03,21,0)="^^2^2^3010820^"
^DD(28.11,.03,21,1,0)="This field indicates the status of the screening process for"
^DD(28.11,.03,21,2,0)="Nose/Throat Radium Treatment exposure."
^DD(28.11,.03,"DT")="3020116"
^DD(28.11,.04,0)="NTR TREATMENT^RSI^N:NO;Y:YES;U:UNKNOWN;^0;4^Q"
^DD(28.11,.04,1,0)="^.1^^0"
^DD(28.11,.04,3)="Enter YES, NO or UNKNOWN"
^DD(28.11,.04,21,0)="^^3^3^3010910^"
^DD(28.11,.04,21,1,0)="This field contains the response to the question: 'Did you"
^DD(28.11,.04,21,2,0)="receive Nose/Throat Radium Treatments in the military?' as"
^DD(28.11,.04,21,3,0)="a SET OF CODES."
^DD(28.11,.04,"DT")="3010918"
^DD(28.11,.05,0)="MILITARY AVIATOR PRE 1/31/1955^SI^N:NO;Y:YES;^0;5^Q"
^DD(28.11,.05,3)="Enter YES or NO"
^DD(28.11,.05,21,0)="^^3^3^3010910^"
^DD(28.11,.05,21,1,0)="This field contains the response to the question: 'Did you"
^DD(28.11,.05,21,2,0)="serve as an aviator in the military before Jan 31, 1955?'"
^DD(28.11,.05,21,3,0)="as a SET OF CODES."
^DD(28.11,.05,"DT")="3010918"
^DD(28.11,.06,0)="SUBMARINE TRAINING PRE 1/1/65^SI^N:NO;Y:YES;^0;6^Q"
^DD(28.11,.06,3)="Enter YES or NO"
^DD(28.11,.06,21,0)="^^3^3^3010910^"
^DD(28.11,.06,21,1,0)="This field contains the response to the question: 'Did you"
^DD(28.11,.06,21,2,0)="have submarine training in the military before Jan 1, "
^DD(28.11,.06,21,3,0)="1965?' as a SET OF CODES."
^DD(28.11,.06,"DT")="3010918"
^DD(28.11,.07,0)="DATE/TIME NTR ENTERED^DI^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(28.11,.07,21,0)="^.001^2^2^3010905^^"
^DD(28.11,.07,21,1,0)="This field contains the date and time of the Nose/Throat Radium"
^DD(28.11,.07,21,2,0)="Treatment data entry."
^DD(28.11,.07,"DT")="3010918"
^DD(28.11,.08,0)="NTR ENTERED BY^P200'I^VA(200,^0;8^Q"
^DD(28.11,.08,21,0)="^.001^2^2^3010905^^"
^DD(28.11,.08,21,1,0)="This field contains a pointer to the NEW PERSON file (#200) indicating"
^DD(28.11,.08,21,2,0)="the person entering the Nose/Throat response data."
^DD(28.11,.08,"DT")="3010918"
^DD(28.11,.09,0)="NTR PRIMARY ENTRY^SI^1:PRIMARY ENTRY;^0;9^Q"
^DD(28.11,.09,1,0)="^.1^^0"
^DD(28.11,.09,21,0)="^^2^2^3010904^"
^DD(28.11,.09,21,1,0)="Designates that this record is the primary entry for the"
^DD(28.11,.09,21,2,0)="patient."
^DD(28.11,.09,"DT")="3020116"
^DD(28.11,.1,0)="DATE/TIME SUPERSEDED^DI^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(28.11,.1,3)="Enter the date/time that the patient's primary record is superseded by a new primary record."
^DD(28.11,.1,21,0)="^.001^2^2^3010904^^^"
^DD(28.11,.1,21,1,0)="Date/Time that the patient's primary record is superseded"
^DD(28.11,.1,21,2,0)="by a new primary record."
^DD(28.11,.1,"DT")="3010918"
^DD(28.11,1.01,0)="VERIFICATION METHOD^SI^M:MILITARY MEDICAL RECORD;S:QUALIFYING MILITARY SERVICE;N:NOT QUALIFIED;^1;1^Q"
^DD(28.11,1.01,3)="Enter the document used for verification: 'S' for Qualifying Military Service, 'M' for Military Medical Record or 'N' for Not Qualified."
^DD(28.11,1.01,21,0)="^.001^2^2^3010918^^^^"
^DD(28.11,1.01,21,1,0)="This field contains the type of documentation used for verifying"
^DD(28.11,1.01,21,2,0)="the Nose/Throat Radium Treatment claim as a SET OF CODES."
^DD(28.11,1.01,"DT")="3010918"
^DD(28.11,1.02,0)="DATE/TIME VERIFIED^DI^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(28.11,1.02,21,0)="^.001^2^2^3010820^^"
^DD(28.11,1.02,21,1,0)="This field contains the date and time that the Nose/Throat"
^DD(28.11,1.02,21,2,0)="Radium Treatment claim was verified."
^DD(28.11,1.02,"DT")="3010918"
^DD(28.11,1.03,0)="VERIFIED BY^P200'I^VA(200,^1;3^Q"
^DD(28.11,1.03,21,0)="^^2^2^3010820^"
^DD(28.11,1.03,21,1,0)="This field contains a pointer to the NEW PERSON file (#200)"
^DD(28.11,1.03,21,2,0)="of the user verifying the Nose/Throat Radium Treatment exposure."
^DD(28.11,1.03,"DT")="3010918"
^DD(28.11,1.04,0)="SITE VERIFYING DOCUMENTATION^P4'I^DIC(4,^1;4^Q"
^DD(28.11,1.04,21,0)="^^3^3^3010904^"
^DD(28.11,1.04,21,1,0)="This field contains a pointer to the INSTITUTION file (#4)"
^DD(28.11,1.04,21,2,0)="of the associated station number of the VAMC that recorded"
^DD(28.11,1.04,21,3,0)="and verified the patient's Nose/Throat Radium Treatment status."
^DD(28.11,1.04,"DT")="3010918"
^DD(28.11,2.01,0)="HEAD/NECK CA DX^SI^N:NO;Y:YES;^2;1^Q"
^DD(28.11,2.01,3)="Enter Yes or No"
^DD(28.11,2.01,21,0)="^^3^3^3010910^"
^DD(28.11,2.01,21,1,0)="This field contains the response to the question: 'Has"
^DD(28.11,2.01,21,2,0)="veteran been diagnosed with cancer of the head and/or"
^DD(28.11,2.01,21,3,0)="neck?' as a SET OF CODES."
^DD(28.11,2.01,"DT")="3010918"
^DD(28.11,2.02,0)="DATE/TIME DX VERIFIED^DI^^2;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(28.11,2.02,21,0)="^^2^2^3010904^"
^DD(28.11,2.02,21,1,0)="This field contains the date/time that the diagnosis of "
^DD(28.11,2.02,21,2,0)="cancer of the head and/or neck was entered."
^DD(28.11,2.02,"DT")="3010918"
^DD(28.11,2.03,0)="DX VERIFIED BY^P200'I^VA(200,^2;3^Q"
^DD(28.11,2.03,21,0)="^^2^2^3010904^"
^DD(28.11,2.03,21,1,0)="This field contains a pointer to the NEW PERSON file (#200)"
^DD(28.11,2.03,21,2,0)="for the person performing the head/neck cancer dx verification."
^DD(28.11,2.03,"DT")="3010918"
^DD(28.11,2.04,0)="SITE VERIFYING DX^P4'I^DIC(4,^2;4^Q"
^DD(28.11,2.04,21,0)="^^3^3^3010904^"
^DD(28.11,2.04,21,1,0)="This field contains a pointer to the INSTITUTION file (#4)"
^DD(28.11,2.04,21,2,0)="of the associated station number of the VAMC that recorded"
^DD(28.11,2.04,21,3,0)="and verified the patient's cancer of head/neck diagnosis."
^DD(28.11,2.04,"DT")="3010918"
^DD(28.11,"B","DATE/TIME DX VERIFIED",2.02)=""
^DD(28.11,"B","DATE/TIME NTR ENTERED",.07)=""
^DD(28.11,"B","DATE/TIME SUPERSEDED",.1)=""
^DD(28.11,"B","DATE/TIME VERIFIED",1.02)=""
^DD(28.11,"B","DX VERIFIED BY",2.03)=""
^DD(28.11,"B","HEAD/NECK CA DX",2.01)=""
^DD(28.11,"B","MILITARY AVIATOR PRE 1/31/1955",.05)=""
^DD(28.11,"B","NTR ENTERED BY",.08)=""
^DD(28.11,"B","NTR INDICATOR",.02)=""
^DD(28.11,"B","NTR PRIMARY ENTRY",.09)=""
^DD(28.11,"B","NTR TREATMENT",.04)=""
^DD(28.11,"B","NUMBER",.001)=""
^DD(28.11,"B","PATIENT",.01)=""
^DD(28.11,"B","SCREENING STATUS",.03)=""
^DD(28.11,"B","SITE VERIFYING DOCUMENTATION",1.04)=""
^DD(28.11,"B","SITE VERIFYING DX",2.04)=""
^DD(28.11,"B","SUBMARINE TRAINING PRE 1/1/65",.06)=""
^DD(28.11,"B","VERIFICATION METHOD",1.01)=""
^DD(28.11,"B","VERIFIED BY",1.03)=""
^DD(28.11,"GL",0,1,.01)=""
^DD(28.11,"GL",0,2,.02)=""
^DD(28.11,"GL",0,3,.03)=""
^DD(28.11,"GL",0,4,.04)=""
^DD(28.11,"GL",0,5,.05)=""
^DD(28.11,"GL",0,6,.06)=""
^DD(28.11,"GL",0,7,.07)=""
^DD(28.11,"GL",0,8,.08)=""
^DD(28.11,"GL",0,9,.09)=""
^DD(28.11,"GL",0,10,.1)=""
^DD(28.11,"GL",1,1,1.01)=""
^DD(28.11,"GL",1,2,1.02)=""
^DD(28.11,"GL",1,3,1.03)=""
^DD(28.11,"GL",1,4,1.04)=""
^DD(28.11,"GL",2,1,2.01)=""
^DD(28.11,"GL",2,2,2.02)=""
^DD(28.11,"GL",2,3,2.03)=""
^DD(28.11,"GL",2,4,2.04)=""
^DD(28.11,"IX",.01)=""
^DD(28.11,"RQ",.01)=""
^DD(28.11,"RQ",.02)=""
^DD(28.11,"RQ",.03)=""
^DD(28.11,"RQ",.04)=""
^DD(29.11,0)="FIELD^^6^6"
^DD(29.11,0,"DDA")="N"
^DD(29.11,0,"DT")="2981211"
^DD(29.11,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(29.11,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(29.11,0,"IX","AENR01",29.11,.01)=""
^DD(29.11,0,"IX","AENR3",29.11,3)=""
^DD(29.11,0,"IX","AENR6",29.11,6)=""
^DD(29.11,0,"IX","B",29.11,.01)=""
^DD(29.11,0,"IX","C",29.11,2)=""
^DD(29.11,0,"IX","D",29.11,4)=""
^DD(29.11,0,"NM","MST HISTORY")=""
^DD(29.11,0,"VR")="5.3"
^DD(29.11,0,"VRPK")="DG"
^DD(29.11,.01,0)="MST CHANGE STATUS DATE^RDX^^0;1^S %DT=""EXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X"
^DD(29.11,.01,.1)="MST STATUS CHANGE DATE"
^DD(29.11,.01,1,0)="^.1"
^DD(29.11,.01,1,1,0)="29.11^B"
^DD(29.11,.01,1,1,1)="S ^DGMS(29.11,""B"",$E(X,1,30),DA)="""""
^DD(29.11,.01,1,1,2)="K ^DGMS(29.11,""B"",$E(X,1,30),DA)"
^DD(29.11,.01,1,2,0)="29.11^AENR01^MUMPS"
^DD(29.11,.01,1,2,1)="D E2911^DGRTRIG(DA)"
^DD(29.11,.01,1,2,2)="D E2911^DGRTRIG(DA)"
^DD(29.11,.01,1,2,3)=" DO NOT DELETE"
^DD(29.11,.01,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(29.11,.01,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(29.11,.01,1,2,"%D",2,0)="enrollment."
^DD(29.11,.01,1,2,"DT")="3050913"
^DD(29.11,.01,3)="Enter the date when the MST status was changed"
^DD(29.11,.01,10)="USER INPUT"
^DD(29.11,.01,12)="Screen on the following: 1) patient is a veteran and there is no date if death, or 2) patient is a veteran, there is a date of death, and it's greater than 10/1/1992"
^DD(29.11,.01,12.1)="S DIC(""S"")=""I $G(^(""""VET""""))=""""Y"""",'+$G(^(.35))>0!(+$G(^(.35))>0&(+$G(^(.35))'<2921001))"""
^DD(29.11,.01,21,0)="^^2^2^2990810^^^"
^DD(29.11,.01,21,1,0)="This field contains the date of the MST status change.  Time is required,"
^DD(29.11,.01,21,2,0)="and future dates are not allowed."
^DD(29.11,.01,"DT")="3050913"
^DD(29.11,2,0)="NAME^R*P2'^DPT(^0;2^S DIC(""S"")=""I $G(^(""""VET""""))=""""Y"""",'+$G(^(.35))>0!(+$G(^(.35))>0&(+$G(^(.35))'<2921001))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(29.11,2,1,0)="^.1^^-1"
^DD(29.11,2,1,2,0)="29.11^C"
^DD(29.11,2,1,2,1)="S ^DGMS(29.11,""C"",$E(X,1,30),DA)="""""
^DD(29.11,2,1,2,2)="K ^DGMS(29.11,""C"",$E(X,1,30),DA)"
^DD(29.11,2,1,2,"%D",0)="^^1^1^2981211^"
^DD(29.11,2,1,2,"%D",1,0)="Cross-reference on patient name"
^DD(29.11,2,1,2,"DT")="2981211"
^DD(29.11,2,3)="Enter the name of the patient who is reporting a MST classification"
^DD(29.11,2,12)="Screen on 1) patient is a vet, no date of death; or 2) patient is a vet, there is a date if death, and it's greater than 10/1/1992"
^DD(29.11,2,12.1)="S DIC(""S"")=""I $G(^(""""VET""""))=""""Y"""",'+$G(^(.35))>0!(+$G(^(.35))>0&(+$G(^(.35))'<2921001))"""
^DD(29.11,2,21,0)="^^1^1^2990121^^"
^DD(29.11,2,21,1,0)="This field contains a pointer back to the PATIENT File (#2)"
^DD(29.11,2,"DT")="3010601"
^DD(29.11,3,0)="MST STATUS^RS^Y:Yes, Screened reports MST;N:No, Screened does not report MST;D:Screened Declines to answer;U:Unknown, not screened;^0;3^Q"
^DD(29.11,3,1,0)="^.1"
^DD(29.11,3,1,1,0)="29.11^AENR3^MUMPS"
^DD(29.11,3,1,1,1)="D E2911^DGRTRIG(DA)"
^DD(29.11,3,1,1,2)="D E2911^DGRTRIG(DA)"
^DD(29.11,3,1,1,3)=" DO NOT DELETE"
^DD(29.11,3,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(29.11,3,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(29.11,3,1,1,"%D",2,0)="enrollment."
^DD(29.11,3,1,1,"DT")="3050913"
^DD(29.11,3,3)="Enter the appropriate MST status code for this patient"
^DD(29.11,3,21,0)="^.001^2^2^3010514^^"
^DD(29.11,3,21,1,0)="Indicates whether the patient has been screened, and whether the"
^DD(29.11,3,21,2,0)="patient claims Military Sexual Trauma."
^DD(29.11,3,"DT")="3050913"
^DD(29.11,4,0)="PROVIDER DETERMINING STATUS^R*P200'X^VA(200,^0;4^S DIC(""S"")=""I $$ACTIVPRV^PXAPI(Y,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(29.11,4,1,0)="^.1"
^DD(29.11,4,1,1,0)="29.11^D"
^DD(29.11,4,1,1,1)="S ^DGMS(29.11,""D"",$E(X,1,30),DA)="""""
^DD(29.11,4,1,1,2)="K ^DGMS(29.11,""D"",$E(X,1,30),DA)"
^DD(29.11,4,1,1,"%D",0)="^^1^1^2981211^"
^DD(29.11,4,1,1,"%D",1,0)="Cross-reference on provider who determined MST status"
^DD(29.11,4,1,1,"DT")="2981211"
^DD(29.11,4,3)="Enter name of the provider making the MST status determination"
^DD(29.11,4,12)="Checks for both an active PERSON CLASS and no TERMINATION DATE"
^DD(29.11,4,12.1)="S DIC(""S"")=""I $$ACTIVPRV^PXAPI(Y,DT)"""
^DD(29.11,4,21,0)="^.001^1^1^3070620^^^^"
^DD(29.11,4,21,1,0)="Pointer to the provider who determined the MST status of the patient"
^DD(29.11,4,"DT")="3070621"
^DD(29.11,5,0)="USER CHANGING STATUS^P200'^VA(200,^0;5^Q"
^DD(29.11,5,3)="Enter the name of the user who entered this change"
^DD(29.11,5,21,0)="^^1^1^2981210^"
^DD(29.11,5,21,1,0)="Name of the user who entered this change in status for the patient"
^DD(29.11,5,"DT")="2981210"
^DD(29.11,6,0)="SITE DETERMINING STATUS^P4'^DIC(4,^0;6^Q"
^DD(29.11,6,1,0)="^.1"
^DD(29.11,6,1,1,0)="29.11^AENR6^MUMPS"
^DD(29.11,6,1,1,1)="D E2911^DGRTRIG(DA)"
^DD(29.11,6,1,1,2)="D E2911^DGRTRIG(DA)"
^DD(29.11,6,1,1,3)=" DO NOT DELETE"
^DD(29.11,6,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(29.11,6,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(29.11,6,1,1,"%D",2,0)="enrollment."
^DD(29.11,6,1,1,"DT")="3050913"
^DD(29.11,6,21,0)="^^6^6^3010426^"
^DD(29.11,6,21,1,0)="This field contains a pointer to the INSTITUTION file (#4) indicating"
^DD(29.11,6,21,2,0)="the site associated with the MST Status determination.  If the MST"
^DD(29.11,6,21,3,0)="Status is entered by a local VistA site, then the API DGMSTAPI will"
^DD(29.11,6,21,4,0)="load this field with the current Primary station number.  If the"
^DD(29.11,6,21,5,0)="MST Status is entered by Enrollment/Eligibility Data upload from the"
^DD(29.11,6,21,6,0)="HEC, then the site stored with the record at the HEC will be loaded. "
^DD(29.11,6,"DT")="3050913"
^DD(29.11,"B","MST CHANGE STATUS DATE",.01)=""
^DD(29.11,"B","MST STATUS",3)=""
^DD(29.11,"B","MST STATUS CHANGE DATE",.01)="1"
^DD(29.11,"B","NAME",2)=""
^DD(29.11,"B","PROVIDER DETERMINING STATUS",4)=""
^DD(29.11,"B","SITE DETERMINING STATUS",6)=""
^DD(29.11,"B","USER CHANGING STATUS",5)=""
^DD(29.11,"GL",0,1,.01)=""
^DD(29.11,"GL",0,2,2)=""
^DD(29.11,"GL",0,3,3)=""
^DD(29.11,"GL",0,4,4)=""
^DD(29.11,"GL",0,5,5)=""
^DD(29.11,"GL",0,6,6)=""
^DD(29.11,"IX",.01)=""
^DD(29.11,"IX",2)=""
^DD(29.11,"IX",3)=""
^DD(29.11,"IX",4)=""
^DD(29.11,"IX",6)=""
^DD(29.11,"RQ",.01)=""
^DD(29.11,"RQ",2)=""
^DD(29.11,"RQ",3)=""
^DD(29.11,"RQ",4)=""
^DD(30,0)="FIELD^NL^2^4"
^DD(30,0,"IX","B",30,.01)=""
^DD(30,0,"NM","DISPOSITION LATE REASON")=""
^DD(30,0,"PT",2.101,8)=""
^DD(30,0,"VR")="5.3"
^DD(30,.001,0)="Number^NJ2,0^^ ^K:+X'=X!(X>11)!(X<1)!(X?.E1"".""1N.N) X"
^DD(30,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 11"
^DD(30,.001,21,0)="^^5^5^2911222^"
^DD(30,.001,21,1,0)="This field contains the internal entry number of this DISPOSITION LATE"
^DD(30,.001,21,2,0)="REASON.  This number is determined by VA FileMan and the MAS software"
^DD(30,.001,21,3,0)="package.  This number can be used in the software to determine programming"
^DD(30,.001,21,4,0)="flow.  It must NOT be altered in any way.  Nor should entries be added to"
^DD(30,.001,21,5,0)="or removed from this file."
^DD(30,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(30,.01,1,0)="^.1"
^DD(30,.01,1,1,0)="30^B"
^DD(30,.01,1,1,1)="S ^DIC(30,""B"",$E(X,1,30),DA)="""""
^DD(30,.01,1,1,2)="K ^DIC(30,""B"",$E(X,1,30),DA)"
^DD(30,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(30,.01,21,0)="^^5^5^2911222^^"
^DD(30,.01,21,1,0)="This field contains a reason why a patient may have been dispositioned after"
^DD(30,.01,21,2,0)="the allowable period of time (as determined by the site in the MAS"
^DD(30,.01,21,3,0)="PARAMETERS file).  All reasons are determine by MAS VACO and the MAS SIUG"
^DD(30,.01,21,4,0)="and maintained by the MAS software module.  This information should not"
^DD(30,.01,21,5,0)="be edited."
^DD(30,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>8!($L(X)<2) X"
^DD(30,1,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(30,1,21,0)="^^3^3^2911222^"
^DD(30,1,21,1,0)="This field contains an abbreviation for this DISPOSTION LATE REASON.  On"
^DD(30,1,21,2,0)="outputs or displays where there is insufficient room to display the entry"
^DD(30,1,21,3,0)="reason for the late disposition, this abbreviation may appear instead."
^DD(30,2,0)="REASON TYPE^S^1:NOT COUNTED;0:COUNTED;^0;3^Q"
^DD(30,2,21,0)="^^2^2^2911222^"
^DD(30,2,21,1,0)="This field contains a 0 if a late disposition of this type should be"
^DD(30,2,21,2,0)="counted on statistical reports, or a 1 if it shouldn't be."
^DD(30,"B","ABBREVIATION",1)=""
^DD(30,"B","NAME",.01)=""
^DD(30,"B","Number",.001)=""
^DD(30,"B","REASON TYPE",2)=""
^DD(30,"GL",0,1,.01)=""
^DD(30,"GL",0,2,1)=""
^DD(30,"GL",0,3,2)=""
^DD(30,"IX",.01)=""
^DD(30,"RQ",.01)=""
^DD(31,0)="FIELD^NL^10^7"
^DD(31,0,"DDA")="N"
^DD(31,0,"DT")="2940307"
^DD(31,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(31,0,"IX","AC",31,10)=""
^DD(31,0,"IX","ADVB",31,10)=""
^DD(31,0,"IX","B",31,.01)=""
^DD(31,0,"IX","C",31,2)=""
^DD(31,0,"NM","DISABILITY CONDITION")=""
^DD(31,0,"PT",2.04,.01)=""
^DD(31,0,"PT",396.61,.01)=""
^DD(31,0,"PT",396.701,.01)=""
^DD(31,0,"PT",662.06,.01)=""
^DD(31,0,"PT",8984.1,.02)=""
^DD(31,0,"PT",8984.2,.02)=""
^DD(31,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(31,.001,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(31,.001,21,0)="^^5^5^2930127^^^"
^DD(31,.001,21,1,0)="This field contains the internal entry number for this disability"
^DD(31,.001,21,2,0)="condition.  This number may be used by various software packages."
^DD(31,.001,21,3,0)="This must not be edited and entries must not be added or deleted"
^DD(31,.001,21,4,0)="unless done through a software upgrade of the MAS package."
^DD(31,.001,21,5,0)="|"
^DD(31,.001,"DT")="2860320"
^DD(31,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<4)!'(X'?1P.E) X"
^DD(31,.01,1,0)="^.1"
^DD(31,.01,1,1,0)="31^B"
^DD(31,.01,1,1,1)="S ^DIC(31,""B"",$E(X,1,30),DA)="""""
^DD(31,.01,1,1,2)="K ^DIC(31,""B"",$E(X,1,30),DA)"
^DD(31,.01,3)="ANSWER MUST BE 4-45 CHARACTERS IN LENGTH"
^DD(31,.01,10)=""
^DD(31,.01,21,0)="^^2^2^2930614^^^^"
^DD(31,.01,21,1,0)="VBA DISABILITY CODES"
^DD(31,.01,21,2,0)="MP-6,PART IV Supp 4.1  401.02f"
^DD(31,.01,"DT")="2920312"
^DD(31,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>30!($L(X)<4) X"
^DD(31,1,3)="ANSWER MUST BE 4-30 CHARACTERS IN LENGTH"
^DD(31,1,21,0)="^^1^1^2920721^"
^DD(31,1,21,1,0)="Enter an abbreviation, 4-30 characters."
^DD(31,2,0)="DX CODE^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(31,2,1,0)="^.1"
^DD(31,2,1,1,0)="31^C"
^DD(31,2,1,1,1)="S ^DIC(31,""C"",X,DA)="""""
^DD(31,2,1,1,2)="K ^DIC(31,""C"",X,DA)"
^DD(31,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(31,2,21,0)="^^1^1^2920721^"
^DD(31,2,21,1,0)="This field contains a numeric 0-9999.  It is the diagnosis code number."
^DD(31,3,0)="SENSITIVE CONDITION PRINT NAME^F^^0;4^K:$L(X)>32!($L(X)<4)!'(X'?1P.E) X"
^DD(31,3,3)="Answer must be 4-32 characters in length."
^DD(31,3,21,0)="^^3^3^2910708^^"
^DD(31,3,21,1,0)="In order to maintain sensitivity for certain diagnosis this field"
^DD(31,3,21,2,0)="has been added.  If it is filled in, the .01 field for the diagnosis"
^DD(31,3,21,3,0)="is not printed, but the SENSITIVE CONDITION PRINT NAME is, instead."
^DD(31,3,"DT")="2910703"
^DD(31,10,0)="LONG DESCRIPTION^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<1) X"
^DD(31,10,1,0)="^.1"
^DD(31,10,1,1,0)="31^ADVB^MUMPS"
^DD(31,10,1,1,1)="S %=""^DIC(31,""""ADVB"""",I,DA)"" D S^XTLKWIC"
^DD(31,10,1,1,2)="S %=""^DIC(31,""""ADVB"""",I,DA)"" D K^XTLKWIC"
^DD(31,10,1,1,"%D",0)="^^1^1^2950126^^^^"
^DD(31,10,1,1,"%D",1,0)="This is the MTLU cross reference lookup for the AMIE application."
^DD(31,10,1,1,"DT")="2940126"
^DD(31,10,1,2,0)="31^AC^MUMPS"
^DD(31,10,1,2,1)="S ^DIC(31,""AC"",$E(X,1,80),DA)="""""
^DD(31,10,1,2,2)="K ^DIC(31,""AC"",$E(X,1,80),DA)"
^DD(31,10,1,2,"%D",0)="^^3^3^2940325^^^"
^DD(31,10,1,2,"%D",1,0)="This cross reference was created so that a lookup could be performed on it"
^DD(31,10,1,2,"%D",2,0)="using IX or MIX.  It was created so that interactive FM could not use it."
^DD(31,10,1,2,"%D",3,0)="As a result users will not get confused at a selection prompt."
^DD(31,10,1,2,"DT")="2940210"
^DD(31,10,3)="Answer must be 1-200 characters in length."
^DD(31,10,21,0)="^^1^1^2940126^"
^DD(31,10,21,1,0)="This is the long description per the VBA Rating Schedule."
^DD(31,10,"DT")="2940307"
^DD(31,20,0)="RELATED ICD9 CODES^31.01PA^^ICD;0"
^DD(31,20,21,0)="^^5^5^3070306^"
^DD(31,20,21,1,0)="The Veterans Health Administration (VHA) has mapped the Veteran Benefits"
^DD(31,20,21,2,0)="Administration (VBA) 4 digit RATED DISABILITIES (VA) code terminology to"
^DD(31,20,21,3,0)="the ICD-9-CM codes used for billing and reporting purposes within VistA."
^DD(31,20,21,4,0)="This mapping will help automate the Service Connected (SC) decision for"
^DD(31,20,21,5,0)="outpatient encounters."
^DD(31,"B","ABBREVIATION",1)=""
^DD(31,"B","DX CODE",2)=""
^DD(31,"B","LONG DESCRIPTION",10)=""
^DD(31,"B","NAME",.01)=""
^DD(31,"B","NUMBER",.001)=""
^DD(31,"B","RELATED ICD9 CODES",20)=""
^DD(31,"B","SENSITIVE CONDITION PRINT NAME",3)=""
^DD(31,"GL",0,1,.01)=""
^DD(31,"GL",0,2,1)=""
^DD(31,"GL",0,3,2)=""
^DD(31,"GL",0,4,3)=""
^DD(31,"GL",1,1,10)=""
^DD(31,"GL","ICD",0,20)=""
^DD(31,"IX",.01)=""
^DD(31,"IX",2)=""
^DD(31,"IX",10)=""
^DD(31,"RQ",.01)=""
^DD(31,"SB",31.01,20)=""
^DD(31.01,0)="RELATED ICD9 CODES SUB-FIELD^^.02^2"
^DD(31.01,0,"DT")="3061208"
^DD(31.01,0,"IX","B",31.01,.01)=""
^DD(31.01,0,"NM","RELATED ICD9 CODES")=""
^DD(31.01,0,"UP")="31"
^DD(31.01,.01,0)="RELATED ICD9 CODES^P80'I^ICD9(^0;1^Q"
^DD(31.01,.01,1,0)="^.1"
^DD(31.01,.01,1,1,0)="31.01^B"
^DD(31.01,.01,1,1,1)="S ^DIC(31,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(31.01,.01,1,1,2)="K ^DIC(31,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(31.01,.01,21,0)="^^1^1^3070306^"
^DD(31.01,.01,21,1,0)="ICD9 code associated with the VBA code."
^DD(31.01,.01,23,0)="^^1^1^3070306^"
^DD(31.01,.01,23,1,0)="A pointer to the ICD DIAGNOSIS file #80."
^DD(31.01,.01,"DT")="3070118"
^DD(31.01,.02,0)="ICD9 MATCH^SI^0:PARTIAL MATCH;1:MATCH;^0;2^Q"
^DD(31.01,.02,3)="Enter 1 for a match or 0 for a partial match."
^DD(31.01,.02,21,0)="^.001^2^2^3070306^^^^"
^DD(31.01,.02,21,1,0)="If this ICD9 code is a true match for the VBA code then the value "
^DD(31.01,.02,21,2,0)="will be a 1. Otherwise it is a 0 indicating a partial match."
^DD(31.01,.02,"DT")="3070118"
^DD(31.01,"B","ICD9 MATCH",.02)=""
^DD(31.01,"B","RELATED ICD9 CODES",.01)=""
^DD(31.01,"GL",0,1,.01)=""
^DD(31.01,"GL",0,2,.02)=""
^DD(31.01,"IX",.01)=""
^DD(34,0)="FIELD^^3^3"
^DD(34,0,"DDA")="N"
^DD(34,0,"DT")="2910808"
^DD(34,0,"IX","B",34,.01)=""
^DD(34,0,"NM","CONTRACT/SHARING AGREEMENTS")=""
^DD(34,0,"PT",70.03,9)=""
^DD(34,0,"PT",75.1,9)=""
^DD(34,0,"VR")="5.0"
^DD(34,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(34,.01,0)="AGREEMENT NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(34,.01,1,0)="^.1"
^DD(34,.01,1,1,0)="34^B"
^DD(34,.01,1,1,1)="S ^DIC(34,""B"",$E(X,1,30),DA)="""""
^DD(34,.01,1,1,2)="K ^DIC(34,""B"",$E(X,1,30),DA)"
^DD(34,.01,1,1,3)="DO NOT DELETE"
^DD(34,.01,1,1,"%D",0)="^^1^1^2950111^^"
^DD(34,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(34,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(34,2,0)="TYPE OF AGREEMENT^S^S:SHARING;C:CONTRACT;^0;2^Q"
^DD(34,2,"DT")="2840923"
^DD(34,3,0)="INACTIVATION DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(34,3,3)="This is the date that this agreement was inactivated."
^DD(34,3,"DT")="2950523"
^DD(34,"B","AGREEMENT NAME",.01)=""
^DD(34,"B","INACTIVATION DATE",3)=""
^DD(34,"B","TYPE OF AGREEMENT",2)=""
^DD(34,"GL",0,1,.01)=""
^DD(34,"GL",0,2,2)=""
^DD(34,"GL","I",1,3)=""
^DD(34,"IX",.01)=""
^DD(34,"RQ",.01)=""
^DD(35,0)="FIELD^NL^3^4"
^DD(35,0,"IX","B",35,.01)=""
^DD(35,0,"NM","OTHER FEDERAL AGENCY")=""
^DD(35,0,"PT",2,.309)=""
^DD(35,0,"VR")="5.3"
^DD(35,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(35,.01,1,0)="^.1"
^DD(35,.01,1,1,0)="35^B"
^DD(35,.01,1,1,1)="S ^DIC(35,""B"",$E(X,1,30),DA)="""""
^DD(35,.01,1,1,2)="K ^DIC(35,""B"",$E(X,1,30),DA)"
^DD(35,.01,3)="NAME MUST BE 3-30 CHARACTERS LONG & NOT BEGIN WITH PUNCTUATION"
^DD(35,.01,21,0)="^^2^2^2911222^"
^DD(35,.01,21,1,0)="This field contains the name of a federal agency other than the Department"
^DD(35,.01,21,2,0)="of Veterans Affairs where a patient seen in the VA may be employed."
^DD(35,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(35,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(35,1,21,0)="^^3^3^2911222^"
^DD(35,1,21,1,0)="This field contains an abbreviation for this federal agency.  On outputs"
^DD(35,1,21,2,0)="and other displays where the entire name of the federal agency may not fit,"
^DD(35,1,21,3,0)="this abbreviation may appear instead."
^DD(35,2,0)="ELIGIBILITY CODE NUMBER^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(35,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(35,2,21,0)="^^3^3^2911222^"
^DD(35,2,21,1,0)="Enter in this field the internal entry number of the MAS ELIGIBILITY CODE"
^DD(35,2,21,2,0)="under which a patient receiving care from this federal agency may be"
^DD(35,2,21,3,0)="entitled."
^DD(35,3,0)="ENTRY TYPE^S^C:COUNTRY;A:OTHER AGENCY;^0;4^Q"
^DD(35,3,21,0)="^^2^2^2911222^"
^DD(35,3,21,1,0)="Enter the type of federal agency.  If the entry is a country, enter C.  If"
^DD(35,3,21,2,0)="the entry is another federal agency, enter A."
^DD(35,"B","ABBREVIATION",1)=""
^DD(35,"B","ELIGIBILITY CODE NUMBER",2)=""
^DD(35,"B","ENTRY TYPE",3)=""
^DD(35,"B","NAME",.01)=""
^DD(35,"GL",0,1,.01)=""
^DD(35,"GL",0,2,1)=""
^DD(35,"GL",0,3,2)=""
^DD(35,"GL",0,4,3)=""
^DD(35,"IX",.01)=""
^DD(35,"RQ",.01)=""
^DD(35.1,0)="FIELD^^.03^3"
^DD(35.1,0,"DDA")="N"
^DD(35.1,0,"DT")="2970117"
^DD(35.1,0,"IX","AC",35.1,.01)=""
^DD(35.1,0,"IX","AD",35.1,.03)=""
^DD(35.1,0,"IX","AE",35.1,.02)=""
^DD(35.1,0,"IX","B",35.1,.01)=""
^DD(35.1,0,"NM","SHARING AGREEMENT CATEGORY")=""
^DD(35.1,0,"VR")="5.3"
^DD(35.1,0,"VRPK")="DG"
^DD(35.1,.01,0)="A/P^RV^^0;1^Q"
^DD(35.1,.01,1,0)="^.1"
^DD(35.1,.01,1,1,0)="35.1^B"
^DD(35.1,.01,1,1,1)="S ^DG(35.1,""B"",$E(X,1,30),DA)="""""
^DD(35.1,.01,1,1,2)="K ^DG(35.1,""B"",$E(X,1,30),DA)"
^DD(35.1,.01,1,2,0)="35.1^AC^MUMPS"
^DD(35.1,.01,1,2,1)="I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),"";"",2)=""DIC(43.4,"":""AR"",1:""AT""),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)"
^DD(35.1,.01,1,2,2)="K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),"";"",2)=""DIC(43.4,"":""AR"",1:""AT""),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)"
^DD(35.1,.01,1,2,"DT")="2970117"
^DD(35.1,.01,3)="Enter the Appointment Type or Admitting Regulation."
^DD(35.1,.01,"DT")="2970117"
^DD(35.1,.01,"V",0)="^.12P^2^2"
^DD(35.1,.01,"V",1,0)="43.4^VA ADMITTING REGULATION^1^AR^^n"
^DD(35.1,.01,"V",2,0)="409.1^APPOINTMENT TYPE^2^AT^^n"
^DD(35.1,.01,"V","B",43.4,1)=""
^DD(35.1,.01,"V","B",409.1,2)=""
^DD(35.1,.01,"V","M","APPOINTMENT TYPE",2)=""
^DD(35.1,.01,"V","M","VA ADMITTING REGULATION",1)=""
^DD(35.1,.01,"V","O",1,1)=""
^DD(35.1,.01,"V","O",2,2)=""
^DD(35.1,.01,"V","P","AR",1)=""
^DD(35.1,.01,"V","P","AT",2)=""
^DD(35.1,.02,0)="CATEGORY^P35.2^DG(35.2,^0;2^Q"
^DD(35.1,.02,1,0)="^.1"
^DD(35.1,.02,1,1,0)="35.1^AE^MUMPS"
^DD(35.1,.02,1,1,1)="I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),"";"",2)=""DIC(43.4,"":""AR"",1:""AT""),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)"
^DD(35.1,.02,1,1,2)="K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),"";"",2)=""DIC(43.4,"":""AR"",1:""AT""),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)"
^DD(35.1,.02,1,1,"DT")="2970117"
^DD(35.1,.02,"DT")="2970117"
^DD(35.1,.03,0)="ACTIVE^S^1:YES;0:NO;^0;3^Q"
^DD(35.1,.03,1,0)="^.1"
^DD(35.1,.03,1,1,0)="35.1^AD^MUMPS"
^DD(35.1,.03,1,1,1)="I +$P(^DG(35.1,DA,0),U,2) S ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),"";"",2)=""DIC(43.4,"":""AR"",1:""AT""),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)=$P(^DG(35.1,DA,0),U,3)"
^DD(35.1,.03,1,1,2)="K ^DG(35.1,$S($P($P(^DG(35.1,DA,0),U,1),"";"",2)=""DIC(43.4,"":""AR"",1:""AT""),+$P(^DG(35.1,DA,0),U,1),+$P(^DG(35.1,DA,0),U,2),DA)"
^DD(35.1,.03,1,1,"DT")="2970117"
^DD(35.1,.03,3)="Please enter 1 for ""Yes"" and 0 for ""No""."
^DD(35.1,.03,"DT")="2970117"
^DD(35.1,"B","A/P",.01)=""
^DD(35.1,"B","ACTIVE",.03)=""
^DD(35.1,"B","CATEGORY",.02)=""
^DD(35.1,"GL",0,1,.01)=""
^DD(35.1,"GL",0,2,.02)=""
^DD(35.1,"GL",0,3,.03)=""
^DD(35.1,"IX",.01)=""
^DD(35.1,"IX",.02)=""
^DD(35.1,"IX",.03)=""
^DD(35.1,"RQ",.01)=""
^DD(35.2,0)="FIELD^^.01^1"
^DD(35.2,0,"DDA")="N"
^DD(35.2,0,"DT")="2970116"
^DD(35.2,0,"IX","B",35.2,.01)=""
^DD(35.2,0,"NM","SHARING AGREEMENT SUB-CATEGORY")=""
^DD(35.2,0,"PT",2.98,24)=""
^DD(35.2,0,"PT",35.1,.01)=""
^DD(35.2,0,"PT",35.1,.02)=""
^DD(35.2,0,"PT",405,54)=""
^DD(35.2,0,"VR")="5.3"
^DD(35.2,0,"VRPK")="DG"
^DD(35.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(35.2,.01,1,0)="^.1"
^DD(35.2,.01,1,1,0)="35.2^B"
^DD(35.2,.01,1,1,1)="S ^DG(35.2,""B"",$E(X,1,30),DA)="""""
^DD(35.2,.01,1,1,2)="K ^DG(35.2,""B"",$E(X,1,30),DA)"
^DD(35.2,.01,3)="Answer must be 3-30 characters in length."
^DD(35.2,.01,4)="D HLP^DGSAUTL"
^DD(35.2,.01,21,0)="^^5^5^2970117^^"
^DD(35.2,.01,21,1,0)="This field contains sub-categories associated with Sharing Agreement. The"
^DD(35.2,.01,21,2,0)="entries contained in this file can be utilized by multiple entries in the"
^DD(35.2,.01,21,3,0)="Sharing Agreement Category file (#35.1)."
^DD(35.2,.01,21,4,0)=""
^DD(35.2,.01,21,5,0)="This file contains local Sharing Agreement sub-categories."
^DD(35.2,.01,"DEL",1,0)="I $G(DGEDMODE) W *7,!,""Cannot Delete in this Mode"""
^DD(35.2,.01,"DT")="2970116"
^DD(35.2,"B","NAME",.01)=""
^DD(35.2,"GL",0,1,.01)=""
^DD(35.2,"IX",.01)=""
^DD(35.2,"RQ",.01)=""
^DD(36,0)="FIELD^^11^115"
^DD(36,0,"DDA")="N"
^DD(36,0,"DT")="2950804"
^DD(36,0,"ID",.111)="W:$D(^(.11)) ""   "",$P(^(.11),U,1)"
^DD(36,0,"ID",.112)="W """""
^DD(36,0,"ID",.113)="W """""
^DD(36,0,"ID",.114)="W:$D(^(.11)) ""   "",$P(^(.11),U,4)"
^DD(36,0,"ID",.115)="S %I=Y,Y=$S('$D(^(.11)):"""",$D(^DIC(5,+$P(^(.11),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(36,0,"ID",.116)="W """""
^DD(36,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(36,0,"IX","AC",36,3.1)=""
^DD(36,0,"IX","ADEL",36,5.01)=""
^DD(36,0,"IX","APC",36,3.14)=""
^DD(36,0,"IX","B",36,.01)=""
^DD(36,0,"IX","C",36.03,.01)=""
^DD(36,0,"NM","INSURANCE COMPANY")=""
^DD(36,0,"PT",2.101,25)=""
^DD(36,0,"PT",2.312,.01)=""
^DD(36,0,"PT",36,.127)=""
^DD(36,0,"PT",36,.139)=""
^DD(36,0,"PT",36,.147)=""
^DD(36,0,"PT",36,.157)=""
^DD(36,0,"PT",36,.16)=""
^DD(36,0,"PT",36,.167)=""
^DD(36,0,"PT",36,.187)=""
^DD(36,0,"PT",36,3.14)=""
^DD(36,0,"PT",36,5.02)=""
^DD(36,0,"PT",340,.01)=""
^DD(36,0,"PT",344.41,.04)=""
^DD(36,0,"PT",350.9,4.02)=""
^DD(36,0,"PT",350.9,4.06)=""
^DD(36,0,"PT",350.999,.01)=""
^DD(36,0,"PT",355.3,.01)=""
^DD(36,0,"PT",355.9,.02)=""
^DD(36,0,"PT",355.91,.01)=""
^DD(36,0,"PT",355.92,.01)=""
^DD(36,0,"PT",355.95,.03)=""
^DD(36,0,"PT",355.96,.03)=""
^DD(36,0,"PT",356.2,.08)=""
^DD(36,0,"PT",361.1,.02)=""
^DD(36,0,"PT",364.1,.12)=""
^DD(36,0,"PT",364.42,.01)=""
^DD(36,0,"PT",364.43,.01)=""
^DD(36,0,"PT",364.7,.05)=""
^DD(36,0,"PT",399,101)=""
^DD(36,0,"PT",399,102)=""
^DD(36,0,"PT",399,103)=""
^DD(36,0,"PT",399,135)=""
^DD(36,0,"PT",430,19)=""
^DD(36,0,"PT",430,19.1)=""
^DD(36,0,"PT",453,747.21)=""
^DD(36,0,"VR")="2.0"
^DD(36,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(36,.01,.1)="INSURANCE COMPANY FILE"
^DD(36,.01,1,0)="^.1"
^DD(36,.01,1,1,0)="36^B"
^DD(36,.01,1,1,1)="S ^DIC(36,""B"",$E(X,1,30),DA)="""""
^DD(36,.01,1,1,2)="K ^DIC(36,""B"",$E(X,1,30),DA)"
^DD(36,.01,1,2,0)="^^TRIGGER^36^4.04"
^DD(36,.01,1,2,1)="X ^DD(36,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""22"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=36,DIG=4.04 D ^DICR"
^DD(36,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($G(^IBE(355.97,+$P(Y(1),U,4),0)),U)="""""
^DD(36,.01,1,2,2)="Q"
^DD(36,.01,1,2,"CREATE CONDITION")="#4.04="""""
^DD(36,.01,1,2,"CREATE VALUE")="""22"""
^DD(36,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(36,.01,1,2,"DT")="3060905"
^DD(36,.01,1,2,"FIELD")="#4.04"
^DD(36,.01,1,3,0)="^^TRIGGER^36^4.05"
^DD(36,.01,1,3,1)="X ^DD(36,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""0"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,5)=DIV,DIH=36,DIG=4.05 D ^DICR"
^DD(36,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.05,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59))="""""
^DD(36,.01,1,3,2)="Q"
^DD(36,.01,1,3,"CREATE CONDITION")="REF PROV SEC ID REQ ON CLAIMS="""""
^DD(36,.01,1,3,"CREATE VALUE")="""0"""
^DD(36,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(36,.01,1,3,"DT")="3060308"
^DD(36,.01,1,3,"FIELD")="REF PROV SEC ID REQ ON CLAIMS"
^DD(36,.01,1,4,0)="^^TRIGGER^36^4.06"
^DD(36,.01,1,4,1)="X ^DD(36,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=""0"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,6)=DIV,DIH=36,DIG=4.06 D ^DICR"
^DD(36,.01,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.06,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))="""""
^DD(36,.01,1,4,2)="Q"
^DD(36,.01,1,4,"CREATE CONDITION")="#4.06="""""
^DD(36,.01,1,4,"CREATE VALUE")="""0"""
^DD(36,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(36,.01,1,4,"DT")="3060504"
^DD(36,.01,1,4,"FIELD")="ATT/REND ID BILL SEC ID PROF"
^DD(36,.01,1,5,0)="^^TRIGGER^36^4.07"
^DD(36,.01,1,5,1)="X ^DD(36,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""1"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,7)=DIV,DIH=36,DIG=4.07 D ^DICR"
^DD(36,.01,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.07,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^DD(36,.01,1,5,2)="Q"
^DD(36,.01,1,5,"CREATE CONDITION")="SEND LAB OR FAC IDS FOR VAMC="""""
^DD(36,.01,1,5,"CREATE VALUE")="""1"""
^DD(36,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(36,.01,1,5,"DT")="3060308"
^DD(36,.01,1,5,"FIELD")="SEND LAB OR FAC IDS FOR VAMC"
^DD(36,.01,1,6,0)="^^TRIGGER^36^4.08"
^DD(36,.01,1,6,1)="X ^DD(36,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=""0"" S DIH=$G(^DIC(36,DIV(0),4)),DIV=X S $P(^(4),U,8)=DIV,DIH=36,DIG=4.08 D ^DICR"
^DD(36,.01,1,6,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,4.08,0)),U,3),Y(1)=$S($D(^DIC(36,D0,4)):^(4),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59))="""""
^DD(36,.01,1,6,2)="Q"
^DD(36,.01,1,6,"CREATE CONDITION")="#4.08="""""
^DD(36,.01,1,6,"CREATE VALUE")="""0"""
^DD(36,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(36,.01,1,6,"DT")="3060504"
^DD(36,.01,1,6,"FIELD")="ATT/REND ID BILL SEC ID INST"
^DD(36,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(36,.01,21,0)="^^5^5^2941201^^^^"
^DD(36,.01,21,1,0)="Enter the name of the insurance carrier which at least one patient seen"
^DD(36,.01,21,2,0)="at your facility has.  This information must be updated using the 'Insurance"
^DD(36,.01,21,3,0)="Company Entry/Edit' option, NOT using VA FileMan.  Editing of this data"
^DD(36,.01,21,4,0)="through a filemanager option could cause negative impacts on the MAS and"
^DD(36,.01,21,5,0)="IB software modules in addition to other DHCP modules."
^DD(36,.01,"DEL",1,0)="I 1 W !!,""You must use the 'Delete Company' action to delete a company... """
^DD(36,.01,"DT")="3060905"
^DD(36,.05,0)="INACTIVE^SX^0:NO;1:YES;^0;5^Q"
^DD(36,.05,3)="ENTER 'YES' IF THIS COMPANY IS INACTIVE AND SHOULD NO LONGER BE ALLOWED FOR SELECTION."
^DD(36,.05,21,0)="^^2^2^2911222^"
^DD(36,.05,21,1,0)="If this insurance company is no longer active in your area, enter INACTIVE"
^DD(36,.05,21,2,0)="here.  This will disallow users from selecting this insurance company entry."
^DD(36,.05,"DEL",1,0)="I $D(DGINS)"
^DD(36,.05,"DT")="2930312"
^DD(36,.06,0)="ALLOW MULTIPLE BEDSECTIONS^S^0:NO;1:YES;^0;6^Q"
^DD(36,.06,3)="Enter whether or not this Insurance Company will accept multiple bedsections on a claim form.  If left blank a NO is assumed."
^DD(36,.06,21,0)="^^7^7^3051117^"
^DD(36,.06,21,1,0)="This field determines whether this insurance company will accept"
^DD(36,.06,21,2,0)="multiple bedsections on one claim form.  If answered 'YES' then"
^DD(36,.06,21,3,0)="selection of the PRIMARY INSURANCE CARRIER in MCCR will trigger"
^DD(36,.06,21,4,0)="revenue codes for all bedsections within the STATEMENT COVERS FROM"
^DD(36,.06,21,5,0)="and STATEMENT COVERS TO dates."
^DD(36,.06,21,6,0)="If this is answered 'NO' or left blank then only the first"
^DD(36,.06,21,7,0)="bedsection in the date range will be used."
^DD(36,.06,"DT")="3051117"
^DD(36,.07,0)="DIFFERENT REVENUE CODES TO USE^FX^^0;7^K:$L(X)>40!($L(X)<3) X I $D(X) X ""F DGII=1:1:10 S DGINX=$P(X,"""","""",DGII) Q:DGINX=""""""""  I DGINX'?3N."""":""""3N K X Q"" K DGII,DGINX"
^DD(36,.07,3)="Answer must be 3-40 characters in length.  Enter the 3 digit rev code that is being replaced followed by a ':' followed by the rev code to be used for this Ins Company.  (old RC:new RC,old RC:new RC)"
^DD(36,.07,21,0)="^^15^15^3051117^"
^DD(36,.07,21,1,0)="This field is used to replace standard revenue codes used on a"
^DD(36,.07,21,2,0)="bill with revenue codes requested by an insurance company."
^DD(36,.07,21,3,0)=" "
^DD(36,.07,21,4,0)="The standard revenue codes are those codes found in the"
^DD(36,.07,21,5,0)="Charge Master and are used for most bills."
^DD(36,.07,21,6,0)=" "
^DD(36,.07,21,7,0)="Enter the standard revenue code to be replaced followed by ':'"
^DD(36,.07,21,8,0)="followed by the revenue code the insurance company requires:"
^DD(36,.07,21,9,0)=" "
^DD(36,.07,21,10,0)="  500:510  will result in revenue code 500 being replaced"
^DD(36,.07,21,11,0)="           by 510 on this insurance company bills"
^DD(36,.07,21,12,0)=" "
^DD(36,.07,21,13,0)="Separate multiple revenue code replacement sets by a comma:"
^DD(36,.07,21,14,0)=" "
^DD(36,.07,21,15,0)="           101:240,500:510"
^DD(36,.07,"DT")="3051117"
^DD(36,.08,0)="ONE OPT. VISIT ON BILL ONLY^S^0:NO;1:YES;^0;8^Q"
^DD(36,.08,3)="Enter whether or not claom form's to this Insurance Company should allow only 1 outpatient visit per bill."
^DD(36,.08,21,0)="^^5^5^3051117^"
^DD(36,.08,21,1,0)="If this field is answered 'YES' then only one outpatient visit"
^DD(36,.08,21,2,0)="will be allowed per claim form for this Insurance Company."
^DD(36,.08,21,3,0)=" "
^DD(36,.08,21,4,0)="If it is unanswered or answered 'NO' then multiple (up to 10)"
^DD(36,.08,21,5,0)="outpatient bills will be allowed per claim form."
^DD(36,.08,"DT")="3051117"
^DD(36,.09,0)="AMBULATORY SURG. REV. CODE^*P399.2'^DGCR(399.2,^0;9^S DIC(""S"")=""I $P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.09,3)="Enter the default revenue code for ambulatory surgical codes.  This will automatically be used when creating a bill."
^DD(36,.09,12)="Only Activated Revenue Codes can be selected!"
^DD(36,.09,12.1)="S DIC(""S"")=""I $P(^(0),U,3)"""
^DD(36,.09,21,0)="^^3^3^2940207^^^"
^DD(36,.09,21,1,0)="This is the Revenue Code that will automatically be generated for this"
^DD(36,.09,21,2,0)="insurance company if a billable Ambulatory Surgical Code is listed as"
^DD(36,.09,21,3,0)="a procedure in this this bill."
^DD(36,.09,"DT")="2911120"
^DD(36,.1,0)="ATTENDING PHYSICIAN ID.^F^^0;10^K:$L(X)>22!($L(X)<3) X"
^DD(36,.1,3)="Answer must be 3-22 characters in length."
^DD(36,.1,21,0)="^.001^1^1^3010502^^^^"
^DD(36,.1,21,1,0)="This field is no longer used.  Provider id's now come from the 355.9 files."
^DD(36,.1,"DT")="3010321"
^DD(36,.11,0)="*HOSPITAL PROVIDER NUMBER^F^^0;11^K:$L(X)>15!($L(X)<1) X"
^DD(36,.11,3)="Answer must be 1-15 characters in length."
^DD(36,.11,21,0)="^^5^5^3070116^"
^DD(36,.11,21,1,0)="An identifier assigned to the facility by the insurance company."
^DD(36,.11,21,2,0)="It will be printed in form locator 51 of the UB-92 of bills for this"
^DD(36,.11,21,3,0)="insurance company."
^DD(36,.11,21,4,0)=" "
^DD(36,.11,21,5,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(36,.11,23,0)="^^3^3^3070116^"
^DD(36,.11,23,1,0)="Printed in form locator 51 of the UB-92"
^DD(36,.11,23,2,0)=" "
^DD(36,.11,23,3,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(36,.11,"DT")="3070116"
^DD(36,.111,0)="STREET ADDRESS [LINE 1]^RFX^^.11;1^K:$L(X)>35!($L(X)<3) X"
^DD(36,.111,1,0)="^.1"
^DD(36,.111,1,1,0)="^^TRIGGER^36^.112"
^DD(36,.111,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.111,1,1,1.4)"
^DD(36,.111,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""""),DIV=X S $P(^(.11),U,2)=DIV,DIH=36,DIG=.112 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.111,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.111,1,1,2.4)"
^DD(36,.111,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""""),DIV=X S $P(^(.11),U,2)=DIV,DIH=36,DIG=.112 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.111,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.111,1,1,"%D",1,0)="When changing or deleting STREET ADDRESS [LINE 1] delete STREET"
^DD(36,.111,1,1,"%D",2,0)="ADDRESS [LINE 2]."
^DD(36,.111,1,1,"CREATE VALUE")="@"
^DD(36,.111,1,1,"DELETE VALUE")="@"
^DD(36,.111,1,1,"DT")="3000124"
^DD(36,.111,1,1,"FIELD")="STREET ADDRESS [LINE 2]"
^DD(36,.111,1,2,0)="^^TRIGGER^36^.113"
^DD(36,.111,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.111,1,2,1.4)"
^DD(36,.111,1,2,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.111,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.111,1,2,2.4)"
^DD(36,.111,1,2,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.111,1,2,"%D",0)="^^2^2^3000124^"
^DD(36,.111,1,2,"%D",1,0)="When changing or deleting STREET ADDRESS [LINE 1] delete STREET"
^DD(36,.111,1,2,"%D",2,0)="ADDRESS [LINE 3]."
^DD(36,.111,1,2,"CREATE VALUE")="@"
^DD(36,.111,1,2,"DELETE VALUE")="@"
^DD(36,.111,1,2,"DT")="3000124"
^DD(36,.111,1,2,"FIELD")="STREET ADDRESS [LINE 3]"
^DD(36,.111,3)="Enter the first line of this company's street address with 3-35 characters."
^DD(36,.111,21,0)="^^2^2^3070619^"
^DD(36,.111,21,1,0)="Enter the first line of this company's street address with 3-35 "
^DD(36,.111,21,2,0)="characters."
^DD(36,.111,"DEL",1,0)="I $D(DGINS)"
^DD(36,.111,"DT")="3071003"
^DD(36,.112,0)="STREET ADDRESS [LINE 2]^FX^^.11;2^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(DA),.111) X"
^DD(36,.112,1,0)="^.1"
^DD(36,.112,1,1,0)="^^TRIGGER^36^.113"
^DD(36,.112,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.112,1,1,1.4)"
^DD(36,.112,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.112,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.11)):^(.11),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.112,1,1,2.4)"
^DD(36,.112,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.11)):^(.11),1:""""),DIV=X S $P(^(.11),U,3)=DIV,DIH=36,DIG=.113 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.112,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.112,1,1,"%D",1,0)="When changing or deleting STREET ADDRESS [LINE 2] delete STREET"
^DD(36,.112,1,1,"%D",2,0)="ADDRESS [LINE 3]."
^DD(36,.112,1,1,"CREATE VALUE")="@"
^DD(36,.112,1,1,"DELETE VALUE")="@"
^DD(36,.112,1,1,"DT")="3000124"
^DD(36,.112,1,1,"FIELD")="STREET ADDRESS [LINE 3]"
^DD(36,.112,3)="If the Street Address is longer than one line, enter a second line between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.112,5,1,0)="36^.111^1"
^DD(36,.112,21,0)="^^2^2^3070619^"
^DD(36,.112,21,1,0)="If the Street Address is longer than one line, enter a second line "
^DD(36,.112,21,2,0)="between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.112,"DT")="3071003"
^DD(36,.113,0)="STREET ADDRESS [LINE 3]^FX^^.11;3^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(DA),.111,.112) X"
^DD(36,.113,3)="If the Street Address is longer than two lines, enter a third line between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.113,5,1,0)="36^.111^2"
^DD(36,.113,5,2,0)="36^.112^1"
^DD(36,.113,21,0)="^^2^2^3070619^"
^DD(36,.113,21,1,0)="If the Street Address is longer than two lines, enter a third line "
^DD(36,.113,21,2,0)="between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.113,"DT")="3071003"
^DD(36,.114,0)="CITY^FX^^.11;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X"
^DD(36,.114,3)="Enter the city in which this company is located with 2-25 characters.  If the space provided is not sufficient, abbreviate the city to the best of your ability."
^DD(36,.114,21,0)="^^1^1^2911222^"
^DD(36,.114,21,1,0)="Enter the city of the mailing address for this insurance carrier."
^DD(36,.114,"DEL",1,0)="I $D(DGINS)"
^DD(36,.114,"DT")="2930226"
^DD(36,.115,0)="STATE^P5'X^DIC(5,^.11;5^Q"
^DD(36,.115,21,0)="^^1^1^2911222^"
^DD(36,.115,21,1,0)="Enter the state of the mailing address for this insurance carrier."
^DD(36,.115,"DEL",1,0)="I $D(DGINS)"
^DD(36,.115,"DT")="2930312"
^DD(36,.116,0)="ZIP CODE^FXO^^.11;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(36,.116,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(36,.116,2.1)="D ZIPOUT^VAFADDR"
^DD(36,.116,3)="Answer with either 5 digit or 9 digit zip code."
^DD(36,.116,21,0)="^^4^4^2930715^^^^"
^DD(36,.116,21,1,0)="Enter the zip code of the mailing address for this insurance carrier."
^DD(36,.116,21,2,0)="Answer with either the 5 digit zip code (format 12345) or with the 9 "
^DD(36,.116,21,3,0)="digit zip code (in format 123456789 or 12345-6789)."
^DD(36,.116,21,4,0)=" "
^DD(36,.116,"DEL",1,0)="I $D(DGINS)"
^DD(36,.116,"DT")="2930226"
^DD(36,.117,0)="BILLING COMPANY NAME^F^^.11;7^K:$L(X)>30!($L(X)<3) X"
^DD(36,.117,3)="Answer must be 3-30 characters in length."
^DD(36,.117,21,0)="^^1^1^2930715^"
^DD(36,.117,21,1,0)="Enter the name of the insurance carrier's billing company."
^DD(36,.117,"DT")="2930715"
^DD(36,.119,0)="FAX NUMBER^F^^.11;9^K:$L(X)>20!($L(X)<7) X"
^DD(36,.119,3)="Enter the fax number of the company with 7 - 20 characters, ex. 415-444-6555."
^DD(36,.119,21,0)="^^1^1^2931123^"
^DD(36,.119,21,1,0)="Enter the fax number of this insurance carrier."
^DD(36,.119,"DT")="2931123"
^DD(36,.12,0)="FILING TIME FRAME^F^^0;12^K:$L(X)>30!($L(X)<3) X"
^DD(36,.12,3)="Enter maximum amount of time from date of service that the insurance company allows for submitting claims.  Answer must be 3-30 characters in length."
^DD(36,.12,21,0)="^^4^4^2940204^^"
^DD(36,.12,21,1,0)="Enter the maximum amount of time from the date of service that the"
^DD(36,.12,21,2,0)="insurance company allows for submitting claims.  Examples:  60 days,"
^DD(36,.12,21,3,0)="90 days, 6 months, 1 year, 18 months;  March 30 following year of"
^DD(36,.12,21,4,0)="service, June 1 following year of service."
^DD(36,.12,"DT")="2940201"
^DD(36,.121,0)="CLAIMS (INPT) STREET ADDRESS 1^FX^^.12;1^K:$L(X)>30!($L(X)<3)!'$G(IBCNS) X"
^DD(36,.121,1,0)="^.1"
^DD(36,.121,1,1,0)="^^TRIGGER^36^.122"
^DD(36,.121,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.121,1,1,1.4)"
^DD(36,.121,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""""),DIV=X S $P(^(.12),U,2)=DIV,DIH=36,DIG=.122 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.121,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.121,1,1,2.4)"
^DD(36,.121,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""""),DIV=X S $P(^(.12),U,2)=DIV,DIH=36,DIG=.122 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.121,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.121,1,1,"%D",1,0)="When changing or deleting CLAIMS (INPT) STREET ADDRESS 1 delete"
^DD(36,.121,1,1,"%D",2,0)="CLAIMS (INPT) STREET ADDRESS 2."
^DD(36,.121,1,1,"CREATE VALUE")="@"
^DD(36,.121,1,1,"DELETE VALUE")="@"
^DD(36,.121,1,1,"DT")="3000124"
^DD(36,.121,1,1,"FIELD")="CLAIMS (INPT) STREET ADDRESS 2"
^DD(36,.121,1,2,0)="^^TRIGGER^36^.123"
^DD(36,.121,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.121,1,2,1.4)"
^DD(36,.121,1,2,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.121,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.121,1,2,2.4)"
^DD(36,.121,1,2,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.121,1,2,"%D",0)="^^2^2^3000124^"
^DD(36,.121,1,2,"%D",1,0)="When changing or deleting CLAIMS (INPT) STREET ADDRESS 1 delete"
^DD(36,.121,1,2,"%D",2,0)="CLAIMS STREET ADDRESS [LINE 3]."
^DD(36,.121,1,2,"CREATE VALUE")="@"
^DD(36,.121,1,2,"DELETE VALUE")="@"
^DD(36,.121,1,2,"DT")="3000124"
^DD(36,.121,1,2,"FIELD")="CLAIMS (INPT) STREET ADDRESS 3"
^DD(36,.121,3)="If the inpatient claims process address of this company is different from its main address, enter Line 1 of the inpatient claims street address.  Answer must be 3-30 characters in length."
^DD(36,.121,21,0)="^^3^3^3070619^"
^DD(36,.121,21,1,0)="If the inpatient claims process address of this company is different "
^DD(36,.121,21,2,0)="from its main address, enter Line 1 of the inpatient claims street"
^DD(36,.121,21,3,0)="address. Answer must be 3-30 characters in length."
^DD(36,.121,"DT")="3070619"
^DD(36,.122,0)="CLAIMS (INPT) STREET ADDRESS 2^FX^^.12;2^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.121) X"
^DD(36,.122,1,0)="^.1"
^DD(36,.122,1,1,0)="^^TRIGGER^36^.123"
^DD(36,.122,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.122,1,1,1.4)"
^DD(36,.122,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.122,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.122,1,1,2.4)"
^DD(36,.122,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""""),DIV=X S $P(^(.12),U,3)=DIV,DIH=36,DIG=.123 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.122,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.122,1,1,"%D",1,0)="When changing or deleting CLAIMS (INPT) STREET ADDRESS 2 delete"
^DD(36,.122,1,1,"%D",2,0)="CLAIMS (INPT) STREET ADDRESS 3."
^DD(36,.122,1,1,"CREATE VALUE")="@"
^DD(36,.122,1,1,"DELETE VALUE")="@"
^DD(36,.122,1,1,"DT")="3000124"
^DD(36,.122,1,1,"FIELD")="CLAIMS (INPT) STREET ADDRESS 3"
^DD(36,.122,3)="If the Inpatient Claims Process Address is longer than one line, enter a second line between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.122,5,1,0)="36^.121^1"
^DD(36,.122,21,0)="^^3^3^3070619^"
^DD(36,.122,21,1,0)="If the Inpatient Claims Process Address is longer than one line, enter"
^DD(36,.122,21,2,0)="a second line between 3-30 characters.  It can not be the same as"
^DD(36,.122,21,3,0)="Line 1."
^DD(36,.122,"DT")="3070619"
^DD(36,.123,0)="CLAIMS (INPT) STREET ADDRESS 3^FX^^.12;3^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.121,.122) X"
^DD(36,.123,3)="If the Inpatient Claims Process Address is longer than two lines, enter a third line between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.123,5,1,0)="36^.121^2"
^DD(36,.123,5,2,0)="36^.122^1"
^DD(36,.123,21,0)="^^3^3^3070619^"
^DD(36,.123,21,1,0)="If the Inpatient Claims Process Address is longer than two lines, enter"
^DD(36,.123,21,2,0)="a third line between 3-30 characters.  It can not be the same as Line 1"
^DD(36,.123,21,3,0)="or Line 2."
^DD(36,.123,"DT")="3070619"
^DD(36,.124,0)="CLAIMS (INPT) PROCESS CITY^F^^.12;4^K:$L(X)>25!($L(X)<2) X"
^DD(36,.124,3)="If the inpatient claims process address of this company is different from its main address, enter city of the inpatient claims process address.  Answer must be 2-25 characters in length."
^DD(36,.124,21,0)="^^2^2^2930715^^^"
^DD(36,.124,21,1,0)="Enter the city in which this insurance company's inpatient claims office is"
^DD(36,.124,21,2,0)="located."
^DD(36,.124,"DT")="2930715"
^DD(36,.125,0)="CLAIMS (INPT) PROCESS STATE^P5'^DIC(5,^.12;5^Q"
^DD(36,.125,3)="If the inpatient claims process address of this company is different from its main address, enter state of the inpatient claims process address."
^DD(36,.125,21,0)="^^3^3^2931007^^^^"
^DD(36,.125,21,1,0)="Enter the state in which this insurance company's inpatient claims "
^DD(36,.125,21,2,0)="office is located.  Enter state even if it is the same as the state"
^DD(36,.125,21,3,0)="of the company's main address."
^DD(36,.125,"DT")="2931007"
^DD(36,.126,0)="CLAIMS (INPT) PROCESS ZIP^FXO^^.12;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(36,.126,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(36,.126,2.1)="D ZIPOUT^VAFADDR"
^DD(36,.126,3)="If the inpatient claims process address of this company is different from its main address, enter zip code of the inpatient claims process address.  Answer with either 5 digit or 9 digit zip code."
^DD(36,.126,21,0)="^^1^1^2930816^^^^"
^DD(36,.126,21,1,0)="Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789)."
^DD(36,.126,"DT")="2930715"
^DD(36,.127,0)="CLAIMS (INPT) COMPANY NAME^*P36'X^DIC(36,^.12;7^S DIC(0)=DIC(0)_""F"",DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.12)),U,7),(Y'=DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.127,3)=""
^DD(36,.127,5,1,0)="36^.128^1"
^DD(36,.127,12)="Select a company that processes inpatient claims for this company.  Must be active, not this company, and process its own inpatient claims."
^DD(36,.127,12.1)="S DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.12)),U,7),(Y'=DA)"""
^DD(36,.127,21,0)="^^4^4^2931008^^^^"
^DD(36,.127,21,1,0)="You can only select a company that processes claims.  The company"
^DD(36,.127,21,2,0)="specified in this field must be an active insurance company, not the"
^DD(36,.127,21,3,0)="same company as the entry being edited, and must not have another"
^DD(36,.127,21,4,0)="company specified as handling Inpatient Claims for it."
^DD(36,.127,"DT")="2931005"
^DD(36,.128,0)="ANOTHER CO. PROCESS IP CLAIMS?^S^0:NO;1:YES;^.12;8^Q"
^DD(36,.128,.1)="Are Inpatient Claims Processed by Another Insurance Co.?"
^DD(36,.128,1,0)="^.1"
^DD(36,.128,1,1,0)="^^TRIGGER^36^.127"
^DD(36,.128,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.12)),""^"",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.12)):^(.12),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(36,.128,1,1,1.4)"
^DD(36,.128,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.12)):^(.12),1:""""),DIV=X S $P(^(.12),U,7)=DIV,DIH=36,DIG=.127 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.128,1,1,2)="Q"
^DD(36,.128,1,1,"%D",0)="^^1^1^2931005^^"
^DD(36,.128,1,1,"%D",1,0)="Enter ""Yes"" if another insurance company processes Inpatient Claims."
^DD(36,.128,1,1,"CREATE CONDITION")="S X='$P($G(^DIC(36,DA,.12)),""^"",8)"
^DD(36,.128,1,1,"CREATE VALUE")="@"
^DD(36,.128,1,1,"DELETE VALUE")="NO EFFECT"
^DD(36,.128,1,1,"DT")="2931005"
^DD(36,.128,1,1,"FIELD")="#.127"
^DD(36,.128,21,0)="^.001^1^1^3030410^^^^"
^DD(36,.128,21,1,0)="Enter ""Yes"" if another insurance company processes Inpatient Claims."
^DD(36,.128,"DT")="3030410"
^DD(36,.129,0)="CLAIMS (INPT) FAX^F^^.12;9^K:$L(X)>20!($L(X)<7) X"
^DD(36,.129,3)="Enter the fax number of the inpatient claims office with 7-20 characters, e.g. 444-8888, 614-333-9999."
^DD(36,.129,21,0)="^^1^1^2931122^"
^DD(36,.129,21,1,0)="Enter the fax number of this insurance carrier's inpatient claims office."
^DD(36,.129,"DT")="2931122"
^DD(36,.13,0)="TYPE OF COVERAGE^P355.2'^IBE(355.2,^0;13^Q"
^DD(36,.13,21,0)="^^11^11^3051117^"
^DD(36,.13,21,1,0)="If this insurance carrier provides only one type of coverage then select"
^DD(36,.13,21,2,0)="the entry that best describes this carriers type of coverage.  If this"
^DD(36,.13,21,3,0)="carrier provides more than one type of coverage then select HEALTH"
^DD(36,.13,21,4,0)="INSURANCE.  The default answer if left unanswered is Health Insurance."
^DD(36,.13,21,5,0)=" "
^DD(36,.13,21,6,0)="This is useful information when contacting carriers, when creating "
^DD(36,.13,21,7,0)="claims for reimbursement, and when estimating if the payment"
^DD(36,.13,21,8,0)="received is appropriate."
^DD(36,.13,21,9,0)=" "
^DD(36,.13,21,10,0)="If this field is answered it may affect choices that can be selected"
^DD(36,.13,21,11,0)="when entering policy or benefit information."
^DD(36,.13,"DT")="3051117"
^DD(36,.131,0)="PHONE NUMBER^FX^^.13;1^K:$L(X)>20!($L(X)<7) X"
^DD(36,.131,3)="Enter the telephone number of the company with 7 - 20 characters, ex. 777-8888, 415 111 2222 x123."
^DD(36,.131,21,0)="^^1^1^2911222^"
^DD(36,.131,21,1,0)="Enter the phone number at which this insurance carrier can be reached."
^DD(36,.131,"DEL",1,0)="I $D(DGINS)"
^DD(36,.131,"DT")="2930226"
^DD(36,.1311,0)="CLAIMS (RX) PHONE NUMBER^F^^.13;11^K:$L(X)>20!($L(X)<7) X"
^DD(36,.1311,3)="Enter the telephone number of the prescription claims office with 7 - 20 characters, ex. 777-8888, 415 111 2222x123."
^DD(36,.1311,21,0)="^^1^1^2940104^^"
^DD(36,.1311,21,1,0)="Enter the phone number at which the prescription claims office of this insurance carrier can be reached."
^DD(36,.1311,"DT")="2940104"
^DD(36,.132,0)="BILLING PHONE NUMBER^F^^.13;2^K:$L(X)>20!($L(X)<7) X"
^DD(36,.132,3)="Enter the telephone number of the billing office for this company.  Answer must be 7-20 characters in length."
^DD(36,.132,21,0)="^^2^2^2911222^"
^DD(36,.132,21,1,0)="Enter the phone number of the insurance carrier where inquiries about"
^DD(36,.132,21,2,0)="patient billing should be made."
^DD(36,.132,"DT")="2900504"
^DD(36,.133,0)="PRECERTIFICATION PHONE NUMBER^F^^.13;3^K:$L(X)>20!($L(X)<7) X"
^DD(36,.133,3)="Enter the phone number for getting Precertification of insurance if this company requires it.  Answer must be 7-20 characters in length."
^DD(36,.133,21,0)="^^2^2^2911222^"
^DD(36,.133,21,1,0)="If precertification is required prior to a patient being treated, enter"
^DD(36,.133,21,2,0)="the number of the insurance carrier to which this request can be made."
^DD(36,.133,"DT")="2900504"
^DD(36,.134,0)="VERIFICATION PHONE NUMBER^F^^.13;4^K:$L(X)>20!($L(X)<7) X"
^DD(36,.134,3)="Enter the phone number for getting verification of insurance.  Answer must be 7-20 characters in length."
^DD(36,.134,21,0)="^^2^2^2930715^^"
^DD(36,.134,21,1,0)="Enter the phone number of the insurance carrier to which a Verification"
^DD(36,.134,21,2,0)="request can be made."
^DD(36,.134,"DT")="2930329"
^DD(36,.135,0)="CLAIMS (INPT) PHONE NUMBER^F^^.13;5^K:$L(X)>20!($L(X)<7) X"
^DD(36,.135,3)="Enter the telephone number of the inpatient claims office with 7-20 characters, e.g. 777-8888, 415 111 2222 x123."
^DD(36,.135,21,0)="^^2^2^2930715^^^^"
^DD(36,.135,21,1,0)="Enter the telephone number at which this insurance carrier's "
^DD(36,.135,21,2,0)="inpatient claims office can be reached."
^DD(36,.135,"DT")="2930715"
^DD(36,.136,0)="CLAIMS (OPT) PHONE NUMBER^F^^.13;6^K:$L(X)>20!($L(X)<7) X"
^DD(36,.136,3)="Enter the telephone number of the outpatient claims office with 7 - 20 characters, ex. 777-8888, 415 111 2222 x123."
^DD(36,.136,21,0)="2"
^DD(36,.136,21,1,0)="Enter the phone number at which the outpatient claims office "
^DD(36,.136,21,2,0)="of this insurance carrier can be reached."
^DD(36,.136,"DT")="2930715"
^DD(36,.137,0)="APPEALS PHONE NUMBER^F^^.13;7^K:$L(X)>20!($L(X)<7) X"
^DD(36,.137,3)="Enter the telephone number of the appeals office with 7 - 20 characters, ex. 777-8888, 415 111 2222 x123."
^DD(36,.137,21,0)="^^2^2^2930823^^^^"
^DD(36,.137,21,1,0)="Enter the telephone number at which the appeals office of this insurance"
^DD(36,.137,21,2,0)="carrier can be reached."
^DD(36,.137,22)=""
^DD(36,.137,"DT")="2930715"
^DD(36,.138,0)="INQUIRY PHONE NUMBER^F^^.13;8^K:$L(X)>20!($L(X)<7) X"
^DD(36,.138,3)="Enter the telephone number of the inquiry office with 7 - 20 characters, ex. 777-8888, 415 111 222 x123."
^DD(36,.138,21,0)="^^1^1^2930715^"
^DD(36,.138,21,1,0)="Enter the telephone number at which the inquiry office of this insurance carrier can be reached."
^DD(36,.138,"DT")="2930715"
^DD(36,.139,0)="PRECERT COMPANY NAME^*P36'X^DIC(36,^.13;9^S DIC(0)=DIC(0)_""F"",DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.13)),U,9),(Y'=DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.139,5,1,0)="36^.178^1"
^DD(36,.139,12)="Select a company that processes precerts for this company.  Must be active, not this company, and process its own precerts."
^DD(36,.139,12.1)="S DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.13)),U,9),(Y'=DA)"""
^DD(36,.139,21,0)="^^3^3^2931006^^^^"
^DD(36,.139,21,1,0)="You can only select a company that processes Precerts.  The company"
^DD(36,.139,21,2,0)="specified in this field must be an active insurance company, not the"
^DD(36,.139,21,3,0)="same company specified as handling Precerts for it."
^DD(36,.139,"DT")="2931006"
^DD(36,.14,0)="*FORM TYPE^*P353'^IBE(353,^0;14^S DIC(""S"")=""I $P($G(^(2)),U,4)'=0,$P($G(^(2)),U,2)=""""P"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(36,.14,3)="Enter the primary Form Type desired by this Insurance Company."
^DD(36,.14,12)="The form must be a national/print-type form"
^DD(36,.14,12.1)="S DIC(""S"")=""I $P($G(^(2)),U,4)'=0,$P($G(^(2)),U,2)=""""P"""""""
^DD(36,.14,21,0)="^^9^9^3070116^"
^DD(36,.14,21,1,0)="This is the primary form type for the insurance company.  An entry is"
^DD(36,.14,21,2,0)="needed only if the primary form type for this insurance company is"
^DD(36,.14,21,3,0)="different than the Default Form Type site parameter."
^DD(36,.14,21,4,0)=" "
^DD(36,.14,21,5,0)="Used for the conversion from the UB-82 to the UB-92.  If this is set to"
^DD(36,.14,21,6,0)="either of those form types then all UB bills for this insurance"
^DD(36,.14,21,7,0)="company will be printed on that form."
^DD(36,.14,21,8,0)=" "
^DD(36,.14,21,9,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(36,.14,23,0)="^^4^4^3070116^"
^DD(36,.14,23,1,0)="Set up initially because companies are converting to the UB-92 at"
^DD(36,.14,23,2,0)="different times and once they do they will no longer accept the UB-82."
^DD(36,.14,23,3,0)=" "
^DD(36,.14,23,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(36,.14,"DT")="3070116"
^DD(36,.141,0)="APPEALS ADDRESS ST. [LINE 1]^FX^^.14;1^K:$L(X)>30!($L(X)<3)!'$G(IBCNS) X"
^DD(36,.141,1,0)="^.1"
^DD(36,.141,1,1,0)="^^TRIGGER^36^.142"
^DD(36,.141,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.141,1,1,1.4)"
^DD(36,.141,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""""),DIV=X S $P(^(.14),U,2)=DIV,DIH=36,DIG=.142 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.141,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.141,1,1,2.4)"
^DD(36,.141,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""""),DIV=X S $P(^(.14),U,2)=DIV,DIH=36,DIG=.142 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.141,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.141,1,1,"%D",1,0)="When changing or deleting APPEALS ADDRESS ST. [LINE 1] delete"
^DD(36,.141,1,1,"%D",2,0)="APPEALS ADDRESS ST. [LINE 2]."
^DD(36,.141,1,1,"CREATE VALUE")="@"
^DD(36,.141,1,1,"DELETE VALUE")="@"
^DD(36,.141,1,1,"DT")="3000124"
^DD(36,.141,1,1,"FIELD")="APPEALS ADDRESS ST. [LINE 2]"
^DD(36,.141,1,2,0)="^^TRIGGER^36^.143"
^DD(36,.141,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.141,1,2,1.4)"
^DD(36,.141,1,2,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.141,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.141,1,2,2.4)"
^DD(36,.141,1,2,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.141,1,2,"%D",0)="^^2^2^3000124^"
^DD(36,.141,1,2,"%D",1,0)="When changing or deleting APPEALS ADDRESS ST. [LINE 1] delete"
^DD(36,.141,1,2,"%D",2,0)="APPEALS ADDRESS ST. [LINE 3]."
^DD(36,.141,1,2,"CREATE VALUE")="@"
^DD(36,.141,1,2,"DELETE VALUE")="@"
^DD(36,.141,1,2,"DT")="3000124"
^DD(36,.141,1,2,"FIELD")="APPEALS ADDRESS ST. [LINE 3]"
^DD(36,.141,3)="If the appeals address of this company is different from its main address, enter Line 1 of the appeals street address.  Answer must be 3-30 characters in length."
^DD(36,.141,21,0)="^^3^3^3070619^"
^DD(36,.141,21,1,0)="If the appeals address of this company is different from its main "
^DD(36,.141,21,2,0)="address, enter Line 1 of the appeals street address.  Answer must be"
^DD(36,.141,21,3,0)="3-30 characters in length."
^DD(36,.141,"DT")="3070619"
^DD(36,.142,0)="APPEALS ADDRESS ST. [LINE 2]^FX^^.14;2^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.141) X"
^DD(36,.142,1,0)="^.1"
^DD(36,.142,1,1,0)="^^TRIGGER^36^.143"
^DD(36,.142,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.142,1,1,1.4)"
^DD(36,.142,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.142,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.142,1,1,2.4)"
^DD(36,.142,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""""),DIV=X S $P(^(.14),U,3)=DIV,DIH=36,DIG=.143 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.142,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.142,1,1,"%D",1,0)="When changing or deleting APPEALS ADDRESS ST. [LINE 2] delete"
^DD(36,.142,1,1,"%D",2,0)="APPEALS ADDRESS ST. [LINE 3]."
^DD(36,.142,1,1,"CREATE VALUE")="@"
^DD(36,.142,1,1,"DELETE VALUE")="@"
^DD(36,.142,1,1,"DT")="3000124"
^DD(36,.142,1,1,"FIELD")="APPEALS ADDRESS ST. [LINE 3]"
^DD(36,.142,3)="If the Appeals Address is longer than one line, enter a second line between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.142,5,1,0)="36^.141^1"
^DD(36,.142,21,0)="^^2^2^3070619^"
^DD(36,.142,21,1,0)="If the Appeals Address is longer than one line, enter a second line "
^DD(36,.142,21,2,0)="between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.142,"DT")="3070619"
^DD(36,.143,0)="APPEALS ADDRESS ST. [LINE 3]^FX^^.14;3^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.141,.142) X"
^DD(36,.143,3)="If the Appeals Address is longer than two lines, enter a third line between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.143,5,1,0)="36^.141^2"
^DD(36,.143,5,2,0)="36^.142^1"
^DD(36,.143,21,0)="^^2^2^3070619^"
^DD(36,.143,21,1,0)="If the Appeals Address is longer than two lines, enter a third line "
^DD(36,.143,21,2,0)="between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.143,"DT")="3070619"
^DD(36,.144,0)="APPEALS ADDRESS CITY^F^^.14;4^K:$L(X)>25!($L(X)<2) X"
^DD(36,.144,3)="If the appeals address of this company is different from its main address, enter city of the appeals address.  Answer must be 2-25 characters in length."
^DD(36,.144,21,0)="^^2^2^2930607^^"
^DD(36,.144,21,1,0)="Enter the city in which the appeals office of this insurance company"
^DD(36,.144,21,2,0)="is located."
^DD(36,.144,"DT")="2930225"
^DD(36,.145,0)="APPEALS ADDRESS STATE^P5'^DIC(5,^.14;5^Q"
^DD(36,.145,3)="If the appeals address of this company is different from its main address, enter state of the appeals address."
^DD(36,.145,21,0)="^^3^3^2931007^^^^"
^DD(36,.145,21,1,0)="Enter the state in which the appeals office of this insurance"
^DD(36,.145,21,2,0)="company is located.  Enter state even if it is the same as the state"
^DD(36,.145,21,3,0)="of the company's main address."
^DD(36,.145,22)="DESCR"
^DD(36,.145,"DT")="2931007"
^DD(36,.146,0)="APPEALS ADDRESS ZIP^FXO^^.14;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(36,.146,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(36,.146,2.1)="D ZIPOUT^VAFADDR"
^DD(36,.146,3)="If the appeals address of this company is different from its main address, enter zip code of the appeals address.  Answer with either 5 digit or 9 digit zip code."
^DD(36,.146,21,0)="2^^2^2^2930226^^^^"
^DD(36,.146,21,1,0)="Answer with either the 5 digit zip code (format 12345) or with the 9 "
^DD(36,.146,21,2,0)="digit zip code (in format 123456789 or 12345-6789)."
^DD(36,.146,"DT")="2930226"
^DD(36,.147,0)="APPEALS COMPANY NAME^*P36'X^DIC(36,^.14;7^S DIC(0)=DIC(0)_""F"",DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.14)),U,7),(Y'=DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.147,3)=""
^DD(36,.147,5,1,0)="36^.148^1"
^DD(36,.147,12)="Select a company that processes inpatient claims for this company.  Must be active, not this company, and process its own inpatient claims."
^DD(36,.147,12.1)="S DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.14)),U,7),(Y'=DA)"""
^DD(36,.147,21,0)="^^4^4^2931006^^^"
^DD(36,.147,21,1,0)="You can only select a company that processes Appeals.  The company"
^DD(36,.147,21,2,0)="specified in this field must be an active insurance company, not the"
^DD(36,.147,21,3,0)="same company as the entry being edited, and must not have another"
^DD(36,.147,21,4,0)="company specified as handling Appeals for it."
^DD(36,.147,"DT")="2931006"
^DD(36,.148,0)="ANOTHER CO. PROCESS APPEALS?^S^0:NO;1:YES;^.14;8^Q"
^DD(36,.148,.1)="Are Appeals Processed by Another Insurance Co.?"
^DD(36,.148,1,0)="^.1"
^DD(36,.148,1,1,0)="^^TRIGGER^36^.147"
^DD(36,.148,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.14)),""^"",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.14)):^(.14),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(36,.148,1,1,1.4)"
^DD(36,.148,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.14)):^(.14),1:""""),DIV=X S $P(^(.14),U,7)=DIV,DIH=36,DIG=.147 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.148,1,1,2)="Q"
^DD(36,.148,1,1,"CREATE CONDITION")="S X='$P($G(^DIC(36,DA,.14)),""^"",8)"
^DD(36,.148,1,1,"CREATE VALUE")="@"
^DD(36,.148,1,1,"DELETE VALUE")="NO EFFECT"
^DD(36,.148,1,1,"DT")="2931006"
^DD(36,.148,1,1,"FIELD")="#.147"
^DD(36,.148,21,0)="^^1^1^2931007^^^"
^DD(36,.148,21,1,0)="Enter ""Yes"" if another insurance company processes appeals."
^DD(36,.148,"DT")="2931007"
^DD(36,.149,0)="APPEALS FAX^F^^.14;9^K:$L(X)>20!($L(X)<7) X"
^DD(36,.149,3)="Enter the fax number of this insurance carrier's appeals office with 7 - 20 characters, ex. 444-8888, 614-333-9999."
^DD(36,.149,21,0)="^^1^1^2931122^^^"
^DD(36,.149,21,1,0)="Enter the fax number of the appeals office of this insurance carrier."
^DD(36,.149,"DT")="2931122"
^DD(36,.15,0)="PRESCRIPTION REFILL REV. CODE^*P399.2'^DGCR(399.2,^0;15^S DIC(""S"")=""I $P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.15,3)="Enter revenue code to be used for Rx refills."
^DD(36,.15,12)="This is the Revenue Code that will automatically be generated for this insurance company if a prescription refill is listed on this bill."
^DD(36,.15,12.1)="S DIC(""S"")=""I $P(^(0),U,3)"""
^DD(36,.15,21,0)="^^3^3^3051117^"
^DD(36,.15,21,1,0)="This is the Revenue Code that will automatically be generated"
^DD(36,.15,21,2,0)="for this insurance company if a prescription refill is listed"
^DD(36,.15,21,3,0)="on this bill."
^DD(36,.15,"DT")="3051117"
^DD(36,.151,0)="INQUIRY ADDRESS ST. [LINE 1]^FX^^.15;1^K:$L(X)>30!($L(X)<3)!'$G(IBCNS) X"
^DD(36,.151,1,0)="^.1"
^DD(36,.151,1,1,0)="^^TRIGGER^36^.152"
^DD(36,.151,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.151,1,1,1.4)"
^DD(36,.151,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""""),DIV=X S $P(^(.15),U,2)=DIV,DIH=36,DIG=.152 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.151,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.151,1,1,2.4)"
^DD(36,.151,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""""),DIV=X S $P(^(.15),U,2)=DIV,DIH=36,DIG=.152 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.151,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.151,1,1,"%D",1,0)="When changing or deleting INQUIRY ADDRESS ST. [LINE 1]"
^DD(36,.151,1,1,"%D",2,0)="delete INQUIRY ADDRESS ST. [LINE 2]."
^DD(36,.151,1,1,"CREATE VALUE")="@"
^DD(36,.151,1,1,"DELETE VALUE")="@"
^DD(36,.151,1,1,"DT")="3000124"
^DD(36,.151,1,1,"FIELD")="INQUIRY ADDRESS ST. [LINE 2]"
^DD(36,.151,1,2,0)="^^TRIGGER^36^.153"
^DD(36,.151,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.151,1,2,1.4)"
^DD(36,.151,1,2,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.151,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.151,1,2,2.4)"
^DD(36,.151,1,2,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.151,1,2,"%D",0)="^^2^2^3000124^"
^DD(36,.151,1,2,"%D",1,0)="When changing or deleting INQUIRY ADDRESS ST. [LINE 1] delete"
^DD(36,.151,1,2,"%D",2,0)="INQUIRY ADDRESS ST. [LINE 3]."
^DD(36,.151,1,2,"CREATE VALUE")="@"
^DD(36,.151,1,2,"DELETE VALUE")="@"
^DD(36,.151,1,2,"DT")="3000124"
^DD(36,.151,1,2,"FIELD")="INQUIRY ADDRESS ST. [LINE 3]"
^DD(36,.151,3)="If the inquiry address of this company is different from its main address, enter Line 1 of the inquiry street address.  Answer must be 3-30 characters in length."
^DD(36,.151,21,0)="^^3^3^3070619^"
^DD(36,.151,21,1,0)="If the inquiry address of this company is different from its main "
^DD(36,.151,21,2,0)="address, enter Line 1 of the inquiry street address.  Answer must be "
^DD(36,.151,21,3,0)="3-30 characters in length."
^DD(36,.151,"DT")="3070619"
^DD(36,.152,0)="INQUIRY ADDRESS ST. [LINE 2]^FX^^.15;2^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.151) X"
^DD(36,.152,1,0)="^.1"
^DD(36,.152,1,1,0)="^^TRIGGER^36^.153"
^DD(36,.152,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.152,1,1,1.4)"
^DD(36,.152,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.152,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.152,1,1,2.4)"
^DD(36,.152,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""""),DIV=X S $P(^(.15),U,3)=DIV,DIH=36,DIG=.153 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.152,1,1,"%D",0)="^^2^2^3000124^^"
^DD(36,.152,1,1,"%D",1,0)="When changing or deleting INQUIRY ADDRESS ST. [LINE 2] delete"
^DD(36,.152,1,1,"%D",2,0)="INQUIRY ADDRESS ST. [LINE 3]."
^DD(36,.152,1,1,"CREATE VALUE")="@"
^DD(36,.152,1,1,"DELETE VALUE")="@"
^DD(36,.152,1,1,"DT")="3000124"
^DD(36,.152,1,1,"FIELD")="INQUIRY ADDRESS ST. [LINE 3]"
^DD(36,.152,3)="If the Inquiry Address is longer than one line, enter a second line between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.152,5,1,0)="36^.151^1"
^DD(36,.152,21,0)="^^2^2^3070619^^"
^DD(36,.152,21,1,0)="If the Inquiry Address is longer than one line, enter a second line "
^DD(36,.152,21,2,0)="between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.152,"DT")="3070619"
^DD(36,.153,0)="INQUIRY ADDRESS ST. [LINE 3]^FX^^.15;3^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.151,.152) X"
^DD(36,.153,3)="If the Inquiry Address is longer than two lines, enter a third line between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.153,5,1,0)="36^.151^2"
^DD(36,.153,5,2,0)="36^.152^1"
^DD(36,.153,21,0)="^^2^2^3070619^"
^DD(36,.153,21,1,0)="If the Inquiry Address is longer than two lines, enter a third line "
^DD(36,.153,21,2,0)="between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.153,"DT")="3070619"
^DD(36,.154,0)="INQUIRY ADDRESS CITY^F^^.15;4^K:$L(X)>25!($L(X)<2) X"
^DD(36,.154,3)="If the inquiry address of this company is different from its main address, enter city of the inquiry address.  Answer must be 2-25 characters in length."
^DD(36,.154,21,0)="^^2^2^2930607^"
^DD(36,.154,21,1,0)="Enter the city in which this insurance company's inquiry address"
^DD(36,.154,21,2,0)="office is located."
^DD(36,.154,"DT")="2930225"
^DD(36,.155,0)="INQUIRY ADDRESS STATE^P5'^DIC(5,^.15;5^Q"
^DD(36,.155,3)="If the inquiry address of this company is different from its main address, enter state of the inquiry address."
^DD(36,.155,21,0)="^^3^3^2931007^^^^"
^DD(36,.155,21,1,0)="Enter the state in which this insurance company's inquiry address"
^DD(36,.155,21,2,0)="office is located.  Enter state even if it is the same as the state"
^DD(36,.155,21,3,0)="of the company's main address."
^DD(36,.155,"DT")="2930225"
^DD(36,.156,0)="INQUIRY ADDRESS ZIP CODE^FXO^^.15;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(36,.156,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(36,.156,2.1)="D ZIPOUT^VAFADDR"
^DD(36,.156,3)="If the inquiry address of this company is different from its main address, enter zip code of the inquiry address.  Answer with either the 5 digit or 9 digit zip code."
^DD(36,.156,21,0)="^^2^2^2930226^"
^DD(36,.156,21,1,0)="Answer with either the 5 digit zip code (format 12345) or with the 9"
^DD(36,.156,21,2,0)="digit zip code (in format 123456789 or 12345-6789)."
^DD(36,.156,"DT")="2930226"
^DD(36,.157,0)="INQUIRY COMPANY NAME^*P36'X^DIC(36,^.15;7^S DIC(0)=DIC(0)_""F"",DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.15)),U,7),(Y'=DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.157,3)=""
^DD(36,.157,5,1,0)="36^.158^1"
^DD(36,.157,12)="Select a company that processes inquiries for this company.  Must be active, not this company, and process its own inquiries."
^DD(36,.157,12.1)="S DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.15)),U,7),(Y'=DA)"""
^DD(36,.157,21,0)="^^4^4^2931006^^^"
^DD(36,.157,21,1,0)="You can only select a company that processes Inquiries.  The company"
^DD(36,.157,21,2,0)="specified in this field must be an active insurance company, not the"
^DD(36,.157,21,3,0)="same company as the entry being edited, and must not have another"
^DD(36,.157,21,4,0)="company specified as handling Inquiries for it."
^DD(36,.157,"DT")="2931008"
^DD(36,.158,0)="ANOTHER CO. PROCESS INQUIRIES?^S^0:NO;1:YES;^.15;8^Q"
^DD(36,.158,.1)="Are Inquiries Processed by Another Insurance Co.?"
^DD(36,.158,1,0)="^.1"
^DD(36,.158,1,1,0)="^^TRIGGER^36^.157"
^DD(36,.158,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.15)),""^"",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.15)):^(.15),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(36,.158,1,1,1.4)"
^DD(36,.158,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.15)):^(.15),1:""""),DIV=X S $P(^(.15),U,7)=DIV,DIH=36,DIG=.157 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.158,1,1,2)="Q"
^DD(36,.158,1,1,"CREATE CONDITION")="S X='$P($G(^DIC(36,DA,.15)),""^"",8)"
^DD(36,.158,1,1,"CREATE VALUE")="@"
^DD(36,.158,1,1,"DELETE VALUE")="NO EFFECT"
^DD(36,.158,1,1,"FIELD")="#.157"
^DD(36,.158,21,0)="^^1^1^2931007^^"
^DD(36,.158,21,1,0)="Enter ""Yes"" if another insurance company processes Inquiries."
^DD(36,.158,"DT")="2931007"
^DD(36,.159,0)="INQUIRY FAX^F^^.15;9^K:$L(X)>20!($L(X)<7) X"
^DD(36,.159,3)="Enter the fax number of this insurance carrier's inquiries office with 7 - 20 characters, ex. 444-8888, 614-333-9999."
^DD(36,.159,21,0)="^^1^1^2931122^^"
^DD(36,.159,21,1,0)="Enter the fax number of the inquiries office of this insurance carrier."
^DD(36,.159,"DT")="2931122"
^DD(36,.16,0)="REPOINT PATIENTS TO^P36^DIC(36,^0;16^Q"
^DD(36,.16,9)="^"
^DD(36,.16,21,0)="^^2^2^2940228^^"
^DD(36,.16,21,1,0)="If an insurance company has been inactivated and the patients repointed"
^DD(36,.16,21,2,0)="to another company then this is the company that they are assigned."
^DD(36,.16,23,0)="^^1^1^2940228^"
^DD(36,.16,23,1,0)="This field will be maintained by the computer.  Do not manually enter/edit."
^DD(36,.16,"DT")="2940228"
^DD(36,.161,0)="CLAIMS (OPT) STREET ADDRESS 1^FX^^.16;1^K:$L(X)>35!($L(X)<3)!'$G(IBCNS) X"
^DD(36,.161,1,0)="^.1"
^DD(36,.161,1,1,0)="^^TRIGGER^36^.162"
^DD(36,.161,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.161,1,1,1.4)"
^DD(36,.161,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""""),DIV=X S $P(^(.16),U,2)=DIV,DIH=36,DIG=.162 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.161,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.161,1,1,2.4)"
^DD(36,.161,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""""),DIV=X S $P(^(.16),U,2)=DIV,DIH=36,DIG=.162 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.161,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.161,1,1,"%D",1,0)="When changing or deleting CLAIMS (OPT) STREET ADDRESS 1 delete CLAIMS"
^DD(36,.161,1,1,"%D",2,0)="(OPT) STREET ADDRESS 2."
^DD(36,.161,1,1,"CREATE VALUE")="@"
^DD(36,.161,1,1,"DELETE VALUE")="@"
^DD(36,.161,1,1,"DT")="3000124"
^DD(36,.161,1,1,"FIELD")="#.162"
^DD(36,.161,1,2,0)="^^TRIGGER^36^.163"
^DD(36,.161,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.161,1,2,1.4)"
^DD(36,.161,1,2,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.161,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.161,1,2,2.4)"
^DD(36,.161,1,2,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.161,1,2,"%D",0)="^^2^2^3000124^"
^DD(36,.161,1,2,"%D",1,0)="When changing or deleting CLAIMS (OPT) STREET ADDRESS 1 delete CLAIMS"
^DD(36,.161,1,2,"%D",2,0)="(OPT) STREET ADDRESS 3."
^DD(36,.161,1,2,"CREATE VALUE")="@"
^DD(36,.161,1,2,"DELETE VALUE")="@"
^DD(36,.161,1,2,"DT")="3000124"
^DD(36,.161,1,2,"FIELD")="#.163"
^DD(36,.161,3)="If the outpatient claims process address of this company is different from its main address, enter Line 1 of the outpatient claims street address.  Answer must be 3-35 characters in length."
^DD(36,.161,21,0)="^^3^3^3070619^"
^DD(36,.161,21,1,0)="If the outpatient claims process address of this company is different "
^DD(36,.161,21,2,0)="from its main address, enter Line 1 of the outpatient claims street "
^DD(36,.161,21,3,0)="address.  Answer must be 3-35 characters in length."
^DD(36,.161,"DT")="3070619"
^DD(36,.162,0)="CLAIMS (OPT) STREET ADDRESS 2^FX^^.16;2^K:$L(X)>35!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.161) X"
^DD(36,.162,1,0)="^.1"
^DD(36,.162,1,1,0)="^^TRIGGER^36^.163"
^DD(36,.162,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.162,1,1,1.4)"
^DD(36,.162,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.162,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.162,1,1,2.4)"
^DD(36,.162,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""""),DIV=X S $P(^(.16),U,3)=DIV,DIH=36,DIG=.163 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.162,1,1,"%D",0)="^^2^2^3000124^"
^DD(36,.162,1,1,"%D",1,0)="When changing or deleting CLAIMS (OPT) STREET ADDRESS 2 delete CLAIMS (OPT)"
^DD(36,.162,1,1,"%D",2,0)="STREET ADDRESS 3."
^DD(36,.162,1,1,"CREATE VALUE")="@"
^DD(36,.162,1,1,"DELETE VALUE")="@"
^DD(36,.162,1,1,"DT")="3000124"
^DD(36,.162,1,1,"FIELD")="#.163"
^DD(36,.162,3)="If the Outpatient Claims Process Address is longer than one line, enter a second line between 3-35 characters.  It can not be the same as Line 1."
^DD(36,.162,5,1,0)="36^.161^1"
^DD(36,.162,21,0)="^^3^3^3070619^"
^DD(36,.162,21,1,0)="If the Outpatient Claims Process Address is longer than one line,"
^DD(36,.162,21,2,0)="enter a second line between 3-35 characters.  It can not be the same"
^DD(36,.162,21,3,0)="as Line 1."
^DD(36,.162,"DT")="3070928"
^DD(36,.163,0)="CLAIMS (OPT) STREET ADDRESS 3^FX^^.16;3^K:$L(X)>35!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.161,.162) X"
^DD(36,.163,3)="If the Outpatient Claims Process Address is longer than two lines, enter a third line between 3-35 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.163,5,1,0)="36^.161^2"
^DD(36,.163,5,2,0)="36^.162^1"
^DD(36,.163,21,0)="^^3^3^3070619^"
^DD(36,.163,21,1,0)="If the Outpatient Claims Process Address is longer than two lines, "
^DD(36,.163,21,2,0)="enter a third line between 3-35 characters.  It can not be the same"
^DD(36,.163,21,3,0)="as Line 1 or Line 2."
^DD(36,.163,"DT")="3070619"
^DD(36,.164,0)="CLAIMS (OPT) PROCESS CITY^F^^.16;4^K:$L(X)>25!($L(X)<2) X"
^DD(36,.164,3)="If the outpatient claims process address of this company is different from its main address, enter city of the outpatient claims process address.  Answer must be 2-25 characters in length."
^DD(36,.164,21,0)="^^1^1^2930715^"
^DD(36,.164,21,1,0)="Enter the city in which this insurance company's outpatient claims office is located."
^DD(36,.164,"DT")="2930715"
^DD(36,.165,0)="CLAIMS (OPT) PROCESS STATE^P5'^DIC(5,^.16;5^Q"
^DD(36,.165,3)="If the outpatient claims process address of this company is different from its main address, enter state of the outpatient claims address."
^DD(36,.165,21,0)="^^3^3^2931007^^^^"
^DD(36,.165,21,1,0)="Enter the state in which this insurance company's outpatient claims"
^DD(36,.165,21,2,0)="office is located.  Enter state even if it is the same as the state"
^DD(36,.165,21,3,0)="of the company's main address."
^DD(36,.165,"DT")="2930715"
^DD(36,.166,0)="CLAIMS (OPT) PROCESS ZIP^FXO^^.16;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(36,.166,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(36,.166,2.1)="D ZIPOUT^VAFADDR"
^DD(36,.166,3)="If the outpatient claims process address of this company is different from its main address, enter zip code of the outpatient claims process address.  Answer with either 5 digit or 9 digit zip code."
^DD(36,.166,21,0)="^^1^1^2930816^^^^"
^DD(36,.166,21,1,0)="Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789)."
^DD(36,.166,"DT")="2930816"
^DD(36,.167,0)="CLAIMS (OPT) COMPANY NAME^*P36'X^DIC(36,^.16;7^S DIC(0)=DIC(0)_""F"",DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.16)),U,7),Y'=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.167,3)=""
^DD(36,.167,5,1,0)="36^.168^1"
^DD(36,.167,12)="Select an active Insurance Company that will process Outpatient Claims for this company.  It may not be this company or have another company process outpatient claims for it."
^DD(36,.167,12.1)="S DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.16)),U,7),Y'=DA"""
^DD(36,.167,21,0)="^^4^4^2931006^^^^"
^DD(36,.167,21,1,0)="You can only select a company that processes claims.  The company"
^DD(36,.167,21,2,0)="specified in this field must be an active insurance company, not the"
^DD(36,.167,21,3,0)="same company as the entry being edited, and must not have another"
^DD(36,.167,21,4,0)="company specified as handling Outpatient Claims for it."
^DD(36,.167,"DT")="2931001"
^DD(36,.168,0)="ANOTHER CO. PROCESS OP CLAIMS?^S^0:NO;1:YES;^.16;8^Q"
^DD(36,.168,.1)="Are Outpatient Claims Processed by Another Insurance Co.?"
^DD(36,.168,1,0)="^.1"
^DD(36,.168,1,1,0)="^^TRIGGER^36^.167"
^DD(36,.168,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.16)),""^"",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.16)):^(.16),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(36,.168,1,1,1.4)"
^DD(36,.168,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.16)):^(.16),1:""""),DIV=X S $P(^(.16),U,7)=DIV,DIH=36,DIG=.167 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.168,1,1,2)="Q"
^DD(36,.168,1,1,"CREATE CONDITION")="S X='$P($G(^DIC(36,DA,.16)),""^"",8)"
^DD(36,.168,1,1,"CREATE VALUE")="@"
^DD(36,.168,1,1,"DELETE VALUE")="NO EFFECT"
^DD(36,.168,1,1,"DT")="2931006"
^DD(36,.168,1,1,"FIELD")="#.167"
^DD(36,.168,21,0)="^.001^1^1^3030410^^^^"
^DD(36,.168,21,1,0)="Enter ""Yes"" if another insurance company processes Outpatient Claims."
^DD(36,.168,"DT")="3030410"
^DD(36,.169,0)="CLAIMS (OPT) FAX^F^^.16;9^K:$L(X)>20!($L(X)<7) X"
^DD(36,.169,3)="Enter the fax number of the outpatient claims office with 7 - 20 characters, ex. 444-8888, 614-333-9999."
^DD(36,.169,21,0)="^^1^1^2931122^^"
^DD(36,.169,21,1,0)="Enter the fax number of the outpatient claims office of this insurance carrier."
^DD(36,.169,"DT")="2931122"
^DD(36,.17,0)="PROFESSIONAL PROVIDER NUMBER^F^^0;17^K:$L(X)>15!($L(X)<1) X"
^DD(36,.17,3)="Answer must be 1-15 characters in length."
^DD(36,.17,21,0)="^^2^2^3060905^"
^DD(36,.17,21,1,0)="An identifier for professional (CMS-1500) bills assigned by the insurance "
^DD(36,.17,21,2,0)="company.  This field is a counterpart to the Hospital Provider Number."
^DD(36,.17,"DT")="3060905"
^DD(36,.178,0)="ANOTHER CO. PROCESS PRECERTS?^S^0:NO;1:YES;^.17;8^Q"
^DD(36,.178,.1)="Are Precerts Processed by Another Insurance Co.?"
^DD(36,.178,1,0)="^.1"
^DD(36,.178,1,1,0)="^^TRIGGER^36^.139"
^DD(36,.178,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.17)),""^"",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.13)):^(.13),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(36,.178,1,1,1.4)"
^DD(36,.178,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.13)):^(.13),1:""""),DIV=X S $P(^(.13),U,9)=DIV,DIH=36,DIG=.139 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.178,1,1,2)="Q"
^DD(36,.178,1,1,"CREATE CONDITION")="S X='$P($G(^DIC(36,DA,.17)),""^"",8)"
^DD(36,.178,1,1,"CREATE VALUE")="@"
^DD(36,.178,1,1,"DELETE VALUE")="NO EFFECT"
^DD(36,.178,1,1,"FIELD")="#.139"
^DD(36,.178,21,0)="^^1^1^2931007^^"
^DD(36,.178,21,1,0)="Enter ""Yes"" if another insurance company processes precerts."
^DD(36,.178,"DT")="2931007"
^DD(36,.181,0)="CLAIMS (RX) STREET ADDRESS 1^FX^^.18;1^K:$L(X)>30!($L(X)<3)!'$G(IBCNS) X"
^DD(36,.181,1,0)="^.1"
^DD(36,.181,1,1,0)="^^TRIGGER^36^.182"
^DD(36,.181,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.181,1,1,1.4)"
^DD(36,.181,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.181,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(36,.181,1,1,2.4)"
^DD(36,.181,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""""),DIV=X S $P(^(.18),U,2)=DIV,DIH=36,DIG=.182 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.181,1,1,"%D",0)="^^1^1^2940104^^"
^DD(36,.181,1,1,"%D",1,0)="When changing or deleting CLAIMS (RX) STREET 1 delete CLAIMS (RX) STREET ADDRESS 1."
^DD(36,.181,1,1,"CREATE VALUE")="@"
^DD(36,.181,1,1,"DELETE VALUE")="@"
^DD(36,.181,1,1,"FIELD")="#.182"
^DD(36,.181,1,2,0)="^^TRIGGER^36^.183"
^DD(36,.181,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.181,1,2,1.4)"
^DD(36,.181,1,2,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.181,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.181,1,2,2.4)"
^DD(36,.181,1,2,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.181,1,2,"%D",0)="^^1^1^2940104^"
^DD(36,.181,1,2,"%D",1,0)="When changing or deleting CLAIMS (RX) STREET ADDRESS 1 delete CLAIMS (RX) STREET ADDRESS 2."
^DD(36,.181,1,2,"CREATE VALUE")="@"
^DD(36,.181,1,2,"DELETE VALUE")="@"
^DD(36,.181,1,2,"DT")="2940104"
^DD(36,.181,1,2,"FIELD")="#.183"
^DD(36,.181,3)="If the prescription claims address of this company is different from its main address, enter Line 1 of the prescription claims address.  Answer must be 3-30 characters in length."
^DD(36,.181,21,0)="^^3^3^3070619^"
^DD(36,.181,21,1,0)="If the prescription claims address of this company is different from"
^DD(36,.181,21,2,0)="its main address, enter Line 1 of the prescription claims address."
^DD(36,.181,21,3,0)="Answer must be 3-30 characters in length."
^DD(36,.181,"DT")="3070619"
^DD(36,.182,0)="CLAIMS (RX) STREET ADDRESS 2^FX^^.18;2^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.181) X"
^DD(36,.182,1,0)="^.1"
^DD(36,.182,1,1,0)="^^TRIGGER^36^.183"
^DD(36,.182,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.182,1,1,1.4)"
^DD(36,.182,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.182,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,.182,1,1,2.4)"
^DD(36,.182,1,1,2.4)="S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""""),DIV=X S $P(^(.18),U,3)=DIV,DIH=36,DIG=.183 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.182,1,1,"CREATE VALUE")="@"
^DD(36,.182,1,1,"DELETE VALUE")="@"
^DD(36,.182,1,1,"FIELD")="#.183"
^DD(36,.182,3)="If the Prescription Claims Address is longer than one line, enter a second line between 3-30 characters.  It can not be the same as Line 1."
^DD(36,.182,5,1,0)="36^.181^1"
^DD(36,.182,21,0)="^^3^3^3070619^"
^DD(36,.182,21,1,0)="If the Prescription Claims Address is longer than one line, enter a "
^DD(36,.182,21,2,0)="second line between 3-30 characters.  It can not be the same as "
^DD(36,.182,21,3,0)="Line 1."
^DD(36,.182,"DT")="3070619"
^DD(36,.183,0)="CLAIMS (RX) STREET ADDRESS 3^FX^^.18;3^K:$L(X)>30!($L(X)<3)!$$DUPADDRL^IBCNSU(X,+$G(IBCNS),.181,.182) X"
^DD(36,.183,3)="If the Prescription Claims Address is longer than two lines, enter a third line between 3-30 characters.  It can not be the same as Line 1 or Line 2."
^DD(36,.183,5,1,0)="36^.181^2"
^DD(36,.183,5,2,0)="36^.182^1"
^DD(36,.183,21,0)="^^3^3^3070619^"
^DD(36,.183,21,1,0)="If the Prescription Claims Address is longer than two lines, enter a "
^DD(36,.183,21,2,0)="third line between 3-30 characters.  It can not be the same as Line 1"
^DD(36,.183,21,3,0)="or Line 2."
^DD(36,.183,"DT")="3070619"
^DD(36,.184,0)="CLAIMS (RX) CITY^F^^.18;4^K:$L(X)>25!($L(X)<2) X"
^DD(36,.184,3)="If the prescription claims office address of this company is different from its main address, enter city of the prescription claims address.  Answer must be 2-25 characters in length."
^DD(36,.184,21,0)="^^1^1^2940103^"
^DD(36,.184,21,1,0)="Enter the city in which this insurance company's prescription claims office is located."
^DD(36,.184,"DT")="2940103"
^DD(36,.185,0)="CLAIMS (RX) STATE^P5'^DIC(5,^.18;5^Q"
^DD(36,.185,3)="If the prescription clais office address of this company is different from its main address, enter state of the prescription claims office."
^DD(36,.185,21,0)="^^1^1^2940103^^"
^DD(36,.185,21,1,0)="Enter the state in which this insurance company's prescription claims office is located.  Enter state even if it is the same as the state of the company's main address."
^DD(36,.185,"DT")="2940103"
^DD(36,.186,0)="CLAIMS (RX) ZIP^FXO^^.18;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(36,.186,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(36,.186,2.1)="D ZIPOUT^VAFADDR"
^DD(36,.186,3)="If the prescription claims address of this company is different from its main address, enter zip code of the prescription claims address.  Answer with either 5 digit or 9 digit zip code."
^DD(36,.186,21,0)="^^1^1^2940103^"
^DD(36,.186,21,1,0)="Answer with either the 5 digit zip code (format 12345) or with the 9 digit zip code (in format 123456789 or 12345-6789)."
^DD(36,.186,"DT")="2940104"
^DD(36,.187,0)="CLAIMS (RX) COMPANY NAME^*P36'X^DIC(36,^.18;7^S DIC(0)=DIC(0)_""F"",DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.18)),U,7),(Y'=DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,.187,5,1,0)="36^.188^1"
^DD(36,.187,12)="Select a company that processes prescription claims for this company.  Must be active, not this company, and process its own prescription claims."
^DD(36,.187,12.1)="S DIC(""S"")=""I '$P(^(0),U,5),'$P($G(^(.18)),U,7),(Y'=DA)"""
^DD(36,.187,21,0)="^^4^4^2940103^"
^DD(36,.187,21,1,0)="You can only select a company that processes Prescriptions.  The company"
^DD(36,.187,21,2,0)="specified in this field must be an active insurance company, not the"
^DD(36,.187,21,3,0)="same company as the entry being edited, and must not have another company"
^DD(36,.187,21,4,0)="specified as handling Prescriptions for it."
^DD(36,.187,"DT")="2940104"
^DD(36,.188,0)="ANOTHER CO. PROCESS RX CLAIMS?^S^0:NO;1:YES;^.18;8^Q"
^DD(36,.188,.1)="Are Rx Claims Processed by Another Insurance Co.?"
^DD(36,.188,1,0)="^.1"
^DD(36,.188,1,1,0)="^^TRIGGER^36^.187"
^DD(36,.188,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$P($G(^DIC(36,DA,.18)),""^"",8) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,.18)):^(.18),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(36,.188,1,1,1.4)"
^DD(36,.188,1,1,1.4)="S DIH=$S($D(^DIC(36,DIV(0),.18)):^(.18),1:""""),DIV=X S $P(^(.18),U,7)=DIV,DIH=36,DIG=.187 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(36,.188,1,1,2)="Q"
^DD(36,.188,1,1,"%D",0)="^^1^1^2940104^"
^DD(36,.188,1,1,"%D",1,0)="Enter ""Yes"" if another insurance company processes prescription claims."
^DD(36,.188,1,1,"CREATE CONDITION")="S X='$P($G(^DIC(36,DA,.18)),""^"",8)"
^DD(36,.188,1,1,"CREATE VALUE")="@"
^DD(36,.188,1,1,"DELETE VALUE")="NO EFFECT"
^DD(36,.188,1,1,"FIELD")="#.187"
^DD(36,.188,21,0)="^^1^1^2940121^^^"
^DD(36,.188,21,1,0)="Enter ""Yes"" if another insurance company processes prescription claims."
^DD(36,.188,"DT")="2940104"
^DD(36,.189,0)="CLAIMS (RX) FAX^F^^.18;9^K:$L(X)>20!($L(X)<7) X"
^DD(36,.189,3)="Enter the fax number of the prescription claims office with 7-20 characters, ex. 444-8888, 614-333-9999."
^DD(36,.189,21,0)="^^1^1^2940103^^"
^DD(36,.189,21,1,0)="Enter the fax number of the prescription claims office of this insurance carrier."
^DD(36,.189,"DT")="2940103"
^DD(36,1,0)="REIMBURSE?^RS^Y:WILL REIMBURSE;*:WILL REIMBURSE IF TREATED UNDER VAR 6046(C) OR VAR 6060.2(A);**:DEPENDS ON POLICY, CHECK WITH COMPANY;N:WILL NOT REIMBURSE;^0;2^Q"
^DD(36,1,21,0)="^^3^3^2930927^^"
^DD(36,1,21,1,0)="Choose from the available list of choices the appropriate code denoting"
^DD(36,1,21,2,0)="whether or not and under which circumstances this insurance carrier will"
^DD(36,1,21,3,0)="reimburse the Dept of Veterans Affairs for care received."
^DD(36,1,"DEL",1,0)="I $D(DGINS)"
^DD(36,1,"DT")="2901102"
^DD(36,2,0)="SIGNATURE REQUIRED ON BILL?^RS^0:NO;1:YES;^0;3^Q"
^DD(36,2,3)="Enter 'Yes' if a bill sent to this insurance carrier requires a manual signature or 'No' if it does not."
^DD(36,2,21,0)="^^2^2^2911222^"
^DD(36,2,21,1,0)="Enter a yes or no in this field denoting whether a signature is required"
^DD(36,2,21,2,0)="on a bill before being submitted to the insurance carrier."
^DD(36,2,"DEL",1,0)="I $D(DGINS)"
^DD(36,2,"DT")="2911222"
^DD(36,3.01,0)="TRANSMIT ELECTRONICALLY^SX^0:NO;1:YES-LIVE;2:YES-TEST;^3;1^K:'$$EDIKEY^IBCNSC X"
^DD(36,3.01,3)="Enter 1 to bill electronically; 0 to print bills for this insurance co; 2 to only transmit for testing"
^DD(36,3.01,21,0)="^^2^2^2990825^^^^"
^DD(36,3.01,21,1,0)="This is the flag that says whether or not an insurance company is ready"
^DD(36,3.01,21,2,0)="to be billed electronically via 837/EDI functions."
^DD(36,3.01,"DT")="3060203"
^DD(36,3.02,0)="EDI ID NUMBER - PROF^FX^^3;2^K:$L(X)>30!($L(X)<1) X I $D(X) K:'$$EDIKEY^IBCNSC X"
^DD(36,3.02,3)="Answer must be 1-30 characters in length."
^DD(36,3.02,21,0)="^^2^2^2990907^^^^"
^DD(36,3.02,21,1,0)="This is the ID number used to identify the insurance company for"
^DD(36,3.02,21,2,0)="professional claim transmissions."
^DD(36,3.02,"DT")="3060203"
^DD(36,3.03,0)="BIN NUMBER^F^^3;3^K:$L(X)>15!($L(X)<2) X"
^DD(36,3.03,3)="Answer must be 2-15 characters in length."
^DD(36,3.03,21,0)="^^4^4^2970528^^"
^DD(36,3.03,21,1,0)="This field is used for facilities who are billing CHAMPUS prescription"
^DD(36,3.03,21,2,0)="charges electronically to the CHAMPUS fiscal intermediary.  The Bin"
^DD(36,3.03,21,3,0)="number identifies this company as the CHAMPUS FI to the electronic"
^DD(36,3.03,21,4,0)="billing system so that the claim is correctly routed to the FI."
^DD(36,3.03,"DT")="2960814"
^DD(36,3.04,0)="EDI ID NUMBER - INST^FX^^3;4^K:$L(X)>30!($L(X)<1) X I $D(X) K:'$$EDIKEY^IBCNSC X"
^DD(36,3.04,3)="Answer must be 1-30 characters in length."
^DD(36,3.04,21,0)="^.001^2^2^3000512^^^"
^DD(36,3.04,21,1,0)="This is the id number used to identify the insurance company for"
^DD(36,3.04,21,2,0)="institutional claim transmissions."
^DD(36,3.04,"DT")="3060203"
^DD(36,3.05,0)="LAST EXTRACT DATE FOR TEST^D^^3;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(36,3.05,3)="Enter the date that bills for this insurance company were last extracted for transmission."
^DD(36,3.05,21,0)="^^2^2^2970602^"
^DD(36,3.05,21,1,0)="The last date that bills for this insurance company were extracted."
^DD(36,3.05,21,2,0)="This date is used to reset the counter for the # of test bills submitted."
^DD(36,3.05,"DT")="2970602"
^DD(36,3.06,0)="MAX NUMBER TEST BILLS PER DAY^NJ5,0^^3;6^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(36,3.06,3)="Type a Number between 1 and 10000, 0 Decimal Digits"
^DD(36,3.06,21,0)="^^2^2^2970602^^"
^DD(36,3.06,21,1,0)="This field is used to indicate the maximum number of test bills to send per"
^DD(36,3.06,21,2,0)="day to this insurance company."
^DD(36,3.06,"DT")="2970602"
^DD(36,3.07,0)="NUMBER TEST BILLS FOR LAST DT^NJ5,0^^3;7^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(36,3.07,3)="Type a Number between 1 and 10000, 0 Decimal Digits"
^DD(36,3.07,21,0)="^^2^2^3000504^"
^DD(36,3.07,21,1,0)="This is the number of test bills that were sent on the last date when"
^DD(36,3.07,21,2,0)="test bills were sent electronically for this insurance company."
^DD(36,3.07,"DT")="2970602"
^DD(36,3.09,0)="ELECTRONIC INSURANCE TYPE^SX^1:HMO;2:COMMERCIAL;3:MEDICARE;4:MEDICAID;5:GROUP POLICY;9:OTHER;^3;9^K:'$$EDIKEY^IBCNSC X"
^DD(36,3.09,3)="ENTER THE TYPE OF INSURANCE FOR ELECTRONIC TRANSMISSION PURPOSES"
^DD(36,3.09,21,0)="^^6^6^3061023^"
^DD(36,3.09,21,1,0)="This field contains the code to be used in the electronic"
^DD(36,3.09,21,2,0)="transmission of claims to identify the type of insurance"
^DD(36,3.09,21,3,0)="company the claim is for."
^DD(36,3.09,21,4,0)="The default, if this field is blank, is Group Policy."
^DD(36,3.09,21,5,0)="If you select GROUP POLICY, this will force a check in the"
^DD(36,3.09,21,6,0)="GROUP insurance box of the CMS 1500/BOX 1."
^DD(36,3.09,"DT")="3061023"
^DD(36,3.1,0)="PAYER^*P365.12'^IBE(365.12,^3;10^S DIC(""S"")=""I $P($G(^(0)),U,1)'=""""~NO PAYER"""",$$ACTAPP^IBCNEUT5(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,3.1,1,0)="^.1"
^DD(36,3.1,1,1,0)="36^AC"
^DD(36,3.1,1,1,1)="S ^DIC(36,""AC"",$E(X,1,30),DA)="""""
^DD(36,3.1,1,1,2)="K ^DIC(36,""AC"",$E(X,1,30),DA)"
^DD(36,3.1,1,1,"%D",0)="^^2^2^3020605^"
^DD(36,3.1,1,1,"%D",1,0)="This cross-reference is used to find insurance companies pointing"
^DD(36,3.1,1,1,"%D",2,0)="to a specific payer."
^DD(36,3.1,1,1,"DT")="3020605"
^DD(36,3.1,3)="Please choose an entry in the Payer File."
^DD(36,3.1,12)="Only valid payers may be selected."
^DD(36,3.1,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,1)'=""""~NO PAYER"""",$$ACTAPP^IBCNEUT5(Y)"""
^DD(36,3.1,21,0)="^.001^4^4^3020924^^"
^DD(36,3.1,21,1,0)="This field points to an entry in the Payer File (#365.12).  This"
^DD(36,3.1,21,2,0)="field is not required, but it allows the insurance company entry"
^DD(36,3.1,21,3,0)="to be able to conduct business electronically by linking the"
^DD(36,3.1,21,4,0)="insurance company with a payer for various electronic applications."
^DD(36,3.1,"DT")="3020924"
^DD(36,3.13,0)="INS COMPANY LINK TYPE^SX^P:PARENT;C:CHILD;^3;13^K:$D(^DIC(36,""APC"",DA))&(X'=""P"") X K:'$$EDIKEY^IBCNSC X"
^DD(36,3.13,.1)="Define Insurance Company as Parent or Child"
^DD(36,3.13,1,0)="^.1"
^DD(36,3.13,1,1,0)="^^TRIGGER^36^3.14"
^DD(36,3.13,1,1,1)="Q"
^DD(36,3.13,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,13),X=X S X=X'=""C"" I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" X ^DD(36,3.13,1,1,2.4)"
^DD(36,3.13,1,1,2.4)="S DIH=$G(^DIC(36,DIV(0),3)),DIV=X S $P(^(3),U,14)=DIV,DIH=36,DIG=3.14 D ^DICR"
^DD(36,3.13,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,3.13,1,1,"DELETE CONDITION")="INTERNAL(INS COMPANY LINK TYPE)'=""C"""
^DD(36,3.13,1,1,"DELETE VALUE")="@"
^DD(36,3.13,1,1,"DT")="3051118"
^DD(36,3.13,1,1,"FIELD")="INS COMPANY LINK PARENT"
^DD(36,3.13,3)=""
^DD(36,3.13,5,1,0)="36^3.14^2"
^DD(36,3.13,21,0)="^^10^10^3051114^"
^DD(36,3.13,21,1,0)="This field indicates if the insurance company is identified"
^DD(36,3.13,21,2,0)="as a Parent insurance company or a Child insurance company."
^DD(36,3.13,21,3,0)="This linkage between parent insurance companies and children"
^DD(36,3.13,21,4,0)="insurance companies allows for easier maintenance of billing"
^DD(36,3.13,21,5,0)="provider secondary ID's."
^DD(36,3.13,21,6,0)=" "
^DD(36,3.13,21,7,0)="If this insurance company is currently defined as a Parent"
^DD(36,3.13,21,8,0)="insurance company and there are Children insurance companies"
^DD(36,3.13,21,9,0)="associated with it, then this field cannot be changed."
^DD(36,3.13,21,10,0)="You must first disassociate the Children from the Parent."
^DD(36,3.13,"DT")="3060504"
^DD(36,3.14,0)="INS COMPANY LINK PARENT^*P36'X^DIC(36,^3;14^S DIC(""S"")=""I $P($G(^DIC(36,Y,3)),U,13)=""""P"""",$P($G(^DIC(36,DA,3)),U,13)=""""C"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X K:'$$EDIKEY^IBCNSC X"
^DD(36,3.14,.1)="Associate with which Parent Insurance Company"
^DD(36,3.14,1,0)="^.1"
^DD(36,3.14,1,1,0)="36^APC"
^DD(36,3.14,1,1,1)="S ^DIC(36,""APC"",$E(X,1,30),DA)="""""
^DD(36,3.14,1,1,2)="K ^DIC(36,""APC"",$E(X,1,30),DA)"
^DD(36,3.14,1,1,"%D",0)="^.101^1^1^3050623^^"
^DD(36,3.14,1,1,"%D",1,0)="Cross reference by Parent insurance company."
^DD(36,3.14,1,1,"DT")="3050623"
^DD(36,3.14,1,2,0)="^^TRIGGER^36^3.13"
^DD(36,3.14,1,2,1)="X ^DD(36,3.14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),3)),DIV=X S $P(^(3),U,13)=DIV,DIH=36,DIG=3.13 D ^DICR"
^DD(36,3.14,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(3)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=Y(0),X=X S X=X="""",Y(1)=$G(X),Y(2)=$G(X) S X=$P(Y(3),U,13),X=X S X=X=""C"",Y=X,X=Y(1),X=X&Y"
^DD(36,3.14,1,2,2)="X ^DD(36,3.14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),3)),DIV=X S $P(^(3),U,13)=DIV,DIH=36,DIG=3.13 D ^DICR"
^DD(36,3.14,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,3)):^(3),1:"""") S X=$P(Y(1),U,14),X=X S X=X="""",Y(2)=$G(X),Y(3)=$G(X) S X=$P(Y(1),U,13),X=X S X=X=""C"",Y=X,X=Y(2),X=X&Y"
^DD(36,3.14,1,2,"CREATE CONDITION")="INTERNAL(INS COMPANY LINK PARENT)=""""&(INTERNAL(INS COMPANY LINK TYPE)=""C"")"
^DD(36,3.14,1,2,"CREATE VALUE")="@"
^DD(36,3.14,1,2,"DELETE CONDITION")="INTERNAL(INS COMPANY LINK PARENT)=""""&(INTERNAL(INS COMPANY LINK TYPE)=""C"")"
^DD(36,3.14,1,2,"DELETE VALUE")="@"
^DD(36,3.14,1,2,"DT")="3051118"
^DD(36,3.14,1,2,"FIELD")="INS COMPANY LINK TYPE"
^DD(36,3.14,5,1,0)="36^3.13^1"
^DD(36,3.14,12)="Only parent insurance companies may be selected."
^DD(36,3.14,12.1)="S DIC(""S"")=""I $P($G(^DIC(36,Y,3)),U,13)=""""P"""",$P($G(^DIC(36,DA,3)),U,13)=""""C"""""""
^DD(36,3.14,21,0)="^^4^4^3050623^"
^DD(36,3.14,21,1,0)="This field identifies the parent insurance company link for"
^DD(36,3.14,21,2,0)="maintenance of billing provider secondary ID's."
^DD(36,3.14,21,3,0)="This field is only valid for insurance companies identified"
^DD(36,3.14,21,4,0)="as children."
^DD(36,3.14,"DT")="3060504"
^DD(36,4.01,0)="PERF PROV SECOND ID TYPE 1500^*P355.97'^IBE(355.97,^4;1^S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,4.01,1,0)="^.1^^0"
^DD(36,4.01,3)="Enter the type of performing provider id # the insurance co requires on its CMS-1500 bills"
^DD(36,4.01,12)="Must be valid id type for performing provider id"
^DD(36,4.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^DD(36,4.01,21,0)="^^5^5^3060905^"
^DD(36,4.01,21,1,0)="This is the type of performing provider secondary id # that the "
^DD(36,4.01,21,2,0)="insurance company expects on CMS-1500 bills received from the "
^DD(36,4.01,21,3,0)="V.A.  When the payer-specific provider id is extracted, this field"
^DD(36,4.01,21,4,0)="is used to determine where to get the default data from if another"
^DD(36,4.01,21,5,0)="secondary id is not entered for the claim."
^DD(36,4.01,"DT")="3060905"
^DD(36,4.02,0)="PERF PROV SECOND ID TYPE UB^*P355.97'^IBE(355.97,^4;2^S DIC(""S"")=""I $P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(36,4.02,3)="Enter the type of performing provider id # the insurance co requires on its UB-04 bills"
^DD(36,4.02,12)="Must be valid id type for performing provider id."
^DD(36,4.02,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""TJ"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^DD(36,4.02,21,0)="^^4^4^3070116^"
^DD(36,4.02,21,1,0)="This is the type of performing provider id # that the insurance"
^DD(36,4.02,21,2,0)="company expects on UB-04 bills received from the V.A.  When the"
^DD(36,4.02,21,3,0)="payer-specific provider id is extracted, this field is used to "
^DD(36,4.02,21,4,0)="determine where to get the data from."
^DD(36,4.02,"DT")="3070116"
^DD(36,4.03,0)="SECONDARY ID REQUIREMENTS^S^0:NONE REQUIRED;1:CMS-1500 REQUIRED;2:UB-04 REQUIRED;3:BOTH UB-04 AND CMS-1500 REQUIRED;^4;3^Q"
^DD(36,4.03,3)="Enter the code to specify the secondary performing provider id requirement for this ins co by form type"
^DD(36,4.03,21,0)="^^2^2^3070116^"
^DD(36,4.03,21,1,0)="This field is used to identify if the insurance company requires the"
^DD(36,4.03,21,2,0)="performing provider secondary id on the UB-04, the CMS-1500 or both."
^DD(36,4.03,"DT")="3070116"
^DD(36,4.04,0)="REF PROV SEC ID DEF CMS-1500^*P355.97'^IBE(355.97,^4;4^S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(36,4.04,3)="Enter the referring providers secondary ID type to be used on outgoing claims"
^DD(36,4.04,5,1,0)="36^.01^2"
^DD(36,4.04,12)="Must be an allowable ID for a person"
^DD(36,4.04,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""1A"""",$$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^DD(36,4.04,21,0)="^^2^2^3060905^"
^DD(36,4.04,21,1,0)="This is the default qualifier for a referring provider if there is a "
^DD(36,4.04,21,2,0)="referring provider and the form type is CMS-1500."
^DD(36,4.04,"DT")="3060905"
^DD(36,4.05,0)="REF PROV SEC ID REQ ON CLAIMS^S^1:CMS-1500;0:NONE;^4;5^Q"
^DD(36,4.05,3)="Enter 1 if this qualifier is required on CMS-1500 claims that have a referring provider"
^DD(36,4.05,5,1,0)="36^.01^3"
^DD(36,4.05,21,0)="^^2^2^3061012^"
^DD(36,4.05,21,1,0)="Set this field to CMS-1500 if the default ID for a Referring Provider is"
^DD(36,4.05,21,2,0)="REQUIRED on a claim."
^DD(36,4.05,"DT")="3061012"
^DD(36,4.06,0)="ATT/REND ID BILL SEC ID PROF^S^0:NO;1:YES;^4;6^Q"
^DD(36,4.06,.1)="For CMS-1500 claims, use the Rendering ID as a Billing Provider secondary ID"
^DD(36,4.06,3)="Enter 1 if att/rend ID should be used as Billing Provider's secondary ID for CMS-1500 claims"
^DD(36,4.06,5,1,0)="36^.01^4"
^DD(36,4.06,21,0)="^^3^3^3060905^"
^DD(36,4.06,21,1,0)="This flag is set for insurance companies that wish to have the "
^DD(36,4.06,21,2,0)="attending/rendering provider secondary ID used as a billing provider "
^DD(36,4.06,21,3,0)="secondary ID.  This applies to CMS-1500 claims."
^DD(36,4.06,"DT")="3060905"
^DD(36,4.07,0)="SEND LAB OR FAC IDS FOR VAMC^S^0:NO;1:YES;^4;7^Q"
^DD(36,4.07,.1)=" "
^DD(36,4.07,3)="Enter a 1 (YES) if Lab or Facility IDs should be sent for procedures performed at VAMC"
^DD(36,4.07,5,1,0)="36^.01^5"
^DD(36,4.07,21,0)="^^4^4^3060309^"
^DD(36,4.07,21,1,0)="This flag determines whether to send the lab/facility IDs if the services "
^DD(36,4.07,21,2,0)="are performed at the VAMC.  Some insurances do not which to receive them "
^DD(36,4.07,21,3,0)="because they are the same as the billing provider secondary IDs when the "
^DD(36,4.07,21,4,0)="work is performed at the VAMC."
^DD(36,4.07,"DT")="3060309"
^DD(36,4.08,0)="ATT/REND ID BILL SEC ID INST^S^0:NO;1:YES;^4;8^Q"
^DD(36,4.08,.1)="For UB claims, use the Attending ID as a Billing Provider secondary ID"
^DD(36,4.08,3)="Enter 1 if att/rend ID should be used as Billing Provider's secondary ID for UB claims"
^DD(36,4.08,5,1,0)="36^.01^6"
^DD(36,4.08,21,0)="^^3^3^3060504^"
^DD(36,4.08,21,1,0)="This flag is set for insurance companies that wish to have the"
^DD(36,4.08,21,2,0)="attending/rendering provider secondary ID used as a billing provider"
^DD(36,4.08,21,3,0)="secondary ID.  This applies to UB claims."
^DD(36,4.08,"DT")="3060504"
^DD(36,4.09,0)="PERF PROV CARE UNIT PROMPT^F^^4;9^K:$L(X)>30!($L(X)<1) X"
^DD(36,4.09,3)="Answer must be 1-30 characters in length."
^DD(36,4.09,21,0)="^.001^6^6^3001109^^^"
^DD(36,4.09,21,1,0)="This is the name of the specific care unit this insurance company"
^DD(36,4.09,21,2,0)="needs on each claim to determine the correct performing provider id #."
^DD(36,4.09,21,3,0)="For example, if specialty code is the care unit that the provider"
^DD(36,4.09,21,4,0)="id # is based on, you would enter SPECIALTY CODE here and, on each"
^DD(36,4.09,21,5,0)="claim, enter the actual specialty code in the PROVIDER ID CARE UNIT"
^DD(36,4.09,21,6,0)="field for the performing provider."
^DD(36,4.09,23,0)="^.001^2^2^3001109^^"
^DD(36,4.09,23,1,0)="This data will appear in the executable help for the PROVIDER ID CARE"
^DD(36,4.09,23,2,0)="UNIT field."
^DD(36,4.09,"DT")="3010507"
^DD(36,4.1,0)="DELETE 2006 4.1^*P355.97'^IBE(355.97,^4;10^S DIC(""S"")=""I $P(^(0),U,2)'>4,$P(^(0),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(36,4.1,1,0)="^.1^^0"
^DD(36,4.1,3)="Enter the provider id type to use if the id from the performing prov source is not found"
^DD(36,4.1,12)="Must be a valid type for performing provider and have no minimum source level or have source 1-4"
^DD(36,4.1,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'>4,$P(^(0),U,6)"""
^DD(36,4.1,21,0)="^.001^3^3^3010424^^"
^DD(36,4.1,21,1,0)="This is the alternate provider id type to use to find the performing"
^DD(36,4.1,21,2,0)="provider's id when the default id as defined by the performing provider"
^DD(36,4.1,21,3,0)="id type cannot be found."
^DD(36,4.1,"DT")="3040519"
^DD(36,4.11,0)="DELETE 2006 4.11^*S^1:PROVIDER DEFAULT;2:FACILITY DEFAULT;3:INSURANCE COMPANY DEFAULT;4:INSURANCE CO/PROVIDER;^4;11^Q"
^DD(36,4.11,3)="Enter the source the system should use to find the alternate performing provider id for this insurance co"
^DD(36,4.11,12)="This field must agree with limitations on alternate provider id type"
^DD(36,4.11,12.1)="S DIC(""S"")=""I $S($P($G(^IBE(355.97,+$P($G(^DIC(36,D0,4)),U,10),0)),U,2):$P(^(0),U,2)=Y,1:1)"""
^DD(36,4.11,21,0)="^^12^12^3020312^"
^DD(36,4.11,21,1,0)="This is the alternate performing provider id's source level:"
^DD(36,4.11,21,2,0)=" "
^DD(36,4.11,21,3,0)="1 (PROVIDER DEFAULT) - insurance co needs an id that has been assigned"
^DD(36,4.11,21,4,0)=" ONLY to an individual provider by other than the insurance co or the"
^DD(36,4.11,21,5,0)=" facility (i.e. State License #, UPIN, etc)"
^DD(36,4.11,21,6,0)="2 (FACILITY DEFAULT) - insurance co needs an id that has been assigned"
^DD(36,4.11,21,7,0)=" to the facility by other than the insurance co and will apply to"
^DD(36,4.11,21,8,0)=" all providers at the facility (i.e. Facility Federal Tax id #)"
^DD(36,4.11,21,9,0)="3 (INSURANCE CO DEFAULT) - the insurance co provides a single id that"
^DD(36,4.11,21,10,0)=" applies to all providers at the facility."
^DD(36,4.11,21,11,0)="4 (INS CO/PROV DEFAULT) - the insurance co provides ids that are"
^DD(36,4.11,21,12,0)=" specifically assigned to each provider at the facility."
^DD(36,4.11,"DT")="3040519"
^DD(36,5.01,0)="SCHEDULED FOR DELETION^S^0:NO;1:YES;^5;1^Q"
^DD(36,5.01,1,0)="^.1"
^DD(36,5.01,1,1,0)="36^ADEL^MUMPS"
^DD(36,5.01,1,1,1)="I X=1 S ^DIC(36,""ADEL"",DA)="""""
^DD(36,5.01,1,1,2)="K ^DIC(36,""ADEL"",DA)"
^DD(36,5.01,1,1,"%D",0)="^^2^2^2950804^"
^DD(36,5.01,1,1,"%D",1,0)="This cross-reference contains a list of all entries which have"
^DD(36,5.01,1,1,"%D",2,0)="been flagged for deletion."
^DD(36,5.01,1,1,"DT")="2950804"
^DD(36,5.01,21,0)="^^5^5^2950804^^"
^DD(36,5.01,21,1,0)="This field will be used if a company is scheduled for deletion."
^DD(36,5.01,21,2,0)="Setting this field to 'Yes' will set a cross-reference which"
^DD(36,5.01,21,3,0)="will allow quick retrieval of this company when the deletion"
^DD(36,5.01,21,4,0)="clean-up background job begins to run.  That job will delete"
^DD(36,5.01,21,5,0)="the entire insurance company entry."
^DD(36,5.01,23,0)="^^5^5^2950804^"
^DD(36,5.01,23,1,0)="This field is used to flag insurance companies which will be"
^DD(36,5.01,23,2,0)="deleted during a background process which should run within"
^DD(36,5.01,23,3,0)="the same day that this field is set to 'Yes.'  The Insurance"
^DD(36,5.01,23,4,0)="Company Editor will not allow selection of companies where"
^DD(36,5.01,23,5,0)="this field has been set to 'Yes.'"
^DD(36,5.01,"DT")="2950804"
^DD(36,5.02,0)="REPOINT DELETED COMPANY TO^P36'^DIC(36,^5;2^Q"
^DD(36,5.02,21,0)="^^4^4^2950804^^"
^DD(36,5.02,21,1,0)="When an Insurance Company is deleted, it may be necessary to"
^DD(36,5.02,21,2,0)="repoint billing activity associated with that company to"
^DD(36,5.02,21,3,0)="another company.  This field stored the pointer to that"
^DD(36,5.02,21,4,0)="company."
^DD(36,5.02,23,0)="^^4^4^2950804^"
^DD(36,5.02,23,1,0)="The pointer to the company to which all billing activity needs"
^DD(36,5.02,23,2,0)="to be repointed is used during the tasked insurance company"
^DD(36,5.02,23,3,0)="deletion clean-up job.  Thus, it is stored with the company"
^DD(36,5.02,23,4,0)="when the company is flagged for deletion."
^DD(36,5.02,"DT")="2950804"
^DD(36,6.01,0)="EDI INST SECONDARY ID QUAL(1)^SX^2U:PAYER ID #;FY:CLAIM OFFICE #;NF:NAIC CODE;TJ:FED TAXPAYER #;^6;1^K:$$DUPQUAL^IBCNSC($G(IBCNS),X,6.03) X Q"
^DD(36,6.01,1,0)="^.1"
^DD(36,6.01,1,1,0)="^^TRIGGER^36^6.02"
^DD(36,6.01,1,1,1)="Q"
^DD(36,6.01,1,1,2)="X ^DD(36,6.01,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,2)=DIV,DIH=36,DIG=6.02 D ^DICR"
^DD(36,6.01,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,6.01,0)),U,3),Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59))="""""
^DD(36,6.01,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.01,1,1,"DELETE CONDITION")="#6.01="""""
^DD(36,6.01,1,1,"DELETE VALUE")="@"
^DD(36,6.01,1,1,"FIELD")="#6.02"
^DD(36,6.01,3)="Enter the qualifier for this secondary Payer ID.  You can not use the same qualifier multiple times for institutional payer IDs."
^DD(36,6.01,5,1,0)="36^6.02^1"
^DD(36,6.01,21,0)="^^1^1^3070730^^^"
^DD(36,6.01,21,1,0)="Enter a secondary payer ID qualifier if provided by the payer."
^DD(36,6.01,"DT")="3070730"
^DD(36,6.02,0)="EDI INST SECONDARY ID(1)^F^^6;2^K:$L(X)>30!($L(X)<1) X"
^DD(36,6.02,1,0)="^.1"
^DD(36,6.02,1,1,0)="^^TRIGGER^36^6.01"
^DD(36,6.02,1,1,1)="Q"
^DD(36,6.02,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,2)="""" I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(36,6.02,1,1,2.4)"
^DD(36,6.02,1,1,2.4)="S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,1)=DIV,DIH=36,DIG=6.01 D ^DICR"
^DD(36,6.02,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.02,1,1,"DELETE CONDITION")="#6.02="""""
^DD(36,6.02,1,1,"DELETE VALUE")="@"
^DD(36,6.02,1,1,"FIELD")="#6.01"
^DD(36,6.02,3)="Answer must be 1-30 characters in length"
^DD(36,6.02,5,1,0)="36^6.01^1"
^DD(36,6.02,21,0)="^^1^1^3070626^"
^DD(36,6.02,21,1,0)="Enter a secondary payer ID number if provided by the payer."
^DD(36,6.02,"DT")="3070626"
^DD(36,6.03,0)="EDI INST SECONDARY ID QUAL(2)^SX^2U:PAYER ID #;FY:CLAIM OFFICE #;NF:NAIC CODE;TJ:FED TAXPAYER #;^6;3^K:$$DUPQUAL^IBCNSC($G(IBCNS),X,6.01) X Q"
^DD(36,6.03,1,0)="^.1"
^DD(36,6.03,1,1,0)="^^TRIGGER^36^6.04"
^DD(36,6.03,1,1,1)="Q"
^DD(36,6.03,1,1,2)="X ^DD(36,6.03,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,4)=DIV,DIH=36,DIG=6.04 D ^DICR"
^DD(36,6.03,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,6.03,0)),U,3),Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59))="""""
^DD(36,6.03,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.03,1,1,"DELETE CONDITION")="#6.03="""""
^DD(36,6.03,1,1,"DELETE VALUE")="@"
^DD(36,6.03,1,1,"FIELD")="#6.04"
^DD(36,6.03,3)="Enter the qualifier for this secondary Payer ID.  You can not use the same qualifier multiple times for institutional payer IDs."
^DD(36,6.03,5,1,0)="36^6.04^1"
^DD(36,6.03,21,0)="^^1^1^3070626^"
^DD(36,6.03,21,1,0)="Enter a secondary payer ID qualifier if provided by the payer."
^DD(36,6.03,"DT")="3070730"
^DD(36,6.04,0)="EDI INST SECONDARY ID(2)^F^^6;4^K:$L(X)>30!($L(X)<1) X"
^DD(36,6.04,1,0)="^.1"
^DD(36,6.04,1,1,0)="^^TRIGGER^36^6.03"
^DD(36,6.04,1,1,1)="Q"
^DD(36,6.04,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,4)="""" I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(36,6.04,1,1,2.4)"
^DD(36,6.04,1,1,2.4)="S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,3)=DIV,DIH=36,DIG=6.03 D ^DICR"
^DD(36,6.04,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.04,1,1,"DELETE CONDITION")="#6.04="""""
^DD(36,6.04,1,1,"DELETE VALUE")="@"
^DD(36,6.04,1,1,"FIELD")="#6.03"
^DD(36,6.04,3)="Answer must be 1-30 characters in length"
^DD(36,6.04,5,1,0)="36^6.03^1"
^DD(36,6.04,21,0)="^^1^1^3070626^"
^DD(36,6.04,21,1,0)="Enter a secondary payer ID number if provided by the payer."
^DD(36,6.04,"DT")="3070626"
^DD(36,6.05,0)="EDI PROF SECONDARY ID QUAL(1)^SX^2U:PAYER ID #;FY:CLAIM OFFICE #;NF:NAIC CODE;TJ:FED TAXPAYER #;^6;5^K:$$DUPQUAL^IBCNSC($G(IBCNS),X,6.07) X Q"
^DD(36,6.05,1,0)="^.1"
^DD(36,6.05,1,1,0)="^^TRIGGER^36^6.06"
^DD(36,6.05,1,1,1)="Q"
^DD(36,6.05,1,1,2)="X ^DD(36,6.05,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,6)=DIV,DIH=36,DIG=6.06 D ^DICR"
^DD(36,6.05,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,6.05,0)),U,3),Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59))="""""
^DD(36,6.05,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.05,1,1,"DELETE CONDITION")="#6.05="""""
^DD(36,6.05,1,1,"DELETE VALUE")="@"
^DD(36,6.05,1,1,"FIELD")="#6.06"
^DD(36,6.05,3)="Enter the qualifier for this secondary Payer ID.  You can not use the same qualifier multiple times for professional payer IDs."
^DD(36,6.05,5,1,0)="36^6.06^1"
^DD(36,6.05,21,0)="^^1^1^3070626^"
^DD(36,6.05,21,1,0)="Enter a secondary payer ID qualifier if provided by the payer."
^DD(36,6.05,"DT")="3070730"
^DD(36,6.06,0)="EDI PROF SECONDARY ID(1)^F^^6;6^K:$L(X)>30!($L(X)<1) X"
^DD(36,6.06,1,0)="^.1"
^DD(36,6.06,1,1,0)="^^TRIGGER^36^6.05"
^DD(36,6.06,1,1,1)="Q"
^DD(36,6.06,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,6)="""" I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(36,6.06,1,1,2.4)"
^DD(36,6.06,1,1,2.4)="S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,5)=DIV,DIH=36,DIG=6.05 D ^DICR"
^DD(36,6.06,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.06,1,1,"DELETE CONDITION")="#6.06="""""
^DD(36,6.06,1,1,"DELETE VALUE")="@"
^DD(36,6.06,1,1,"FIELD")="#6.05"
^DD(36,6.06,3)="Answer must be 1-30 characters in length"
^DD(36,6.06,5,1,0)="36^6.05^1"
^DD(36,6.06,21,0)="^^1^1^3070626^"
^DD(36,6.06,21,1,0)="Enter a secondary payer ID number if provided by the payer."
^DD(36,6.06,"DT")="3070626"
^DD(36,6.07,0)="EDI PROF SECONDARY ID QUAL(2)^SX^2U:PAYER ID #;FY:CLAIM OFFICE #;NF:NAIC CODE;TJ:FED TAXPAYER #;^6;7^K:$$DUPQUAL^IBCNSC($G(IBCNS),X,6.05) X Q"
^DD(36,6.07,1,0)="^.1"
^DD(36,6.07,1,1,0)="^^TRIGGER^36^6.08"
^DD(36,6.07,1,1,1)="Q"
^DD(36,6.07,1,1,2)="X ^DD(36,6.07,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,8)=DIV,DIH=36,DIG=6.08 D ^DICR"
^DD(36,6.07,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(36,6.07,0)),U,3),Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^DD(36,6.07,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.07,1,1,"DELETE CONDITION")="#6.07="""""
^DD(36,6.07,1,1,"DELETE VALUE")="@"
^DD(36,6.07,1,1,"FIELD")="#6.08"
^DD(36,6.07,3)="Enter the qualifier for this secondary Payer ID.  You can not use the same qualifier multiple times for professional payer IDs."
^DD(36,6.07,5,1,0)="36^6.08^1"
^DD(36,6.07,21,0)="^^1^1^3070626^"
^DD(36,6.07,21,1,0)="Enter a secondary payer ID qualifier if provided by the payer."
^DD(36,6.07,"DT")="3070730"
^DD(36,6.08,0)="EDI PROF SECONDARY ID(2)^F^^6;8^K:$L(X)>30!($L(X)<1) X"
^DD(36,6.08,1,0)="^.1"
^DD(36,6.08,1,1,0)="^^TRIGGER^36^6.07"
^DD(36,6.08,1,1,1)="Q"
^DD(36,6.08,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,8)="""" I X S X=DIV S Y(1)=$S($D(^DIC(36,D0,6)):^(6),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(36,6.08,1,1,2.4)"
^DD(36,6.08,1,1,2.4)="S DIH=$G(^DIC(36,DIV(0),6)),DIV=X S $P(^(6),U,7)=DIV,DIH=36,DIG=6.07 D ^DICR"
^DD(36,6.08,1,1,"CREATE VALUE")="NO EFFECT"
^DD(36,6.08,1,1,"DELETE CONDITION")="#6.08="""""
^DD(36,6.08,1,1,"DELETE VALUE")="@"
^DD(36,6.08,1,1,"FIELD")="#6.07"
^DD(36,6.08,3)="Answer must be 1-30 characters in length"
^DD(36,6.08,5,1,0)="36^6.07^1"
^DD(36,6.08,21,0)="^^1^1^3070626^"
^DD(36,6.08,21,1,0)="Enter a secondary payer ID number if provided by the payer."
^DD(36,6.08,"DT")="3070626"
^DD(36,10,0)="SYNONYM^36.03^^10;0"
^DD(36,11,0)="REMARKS^36.011^^11;0"
^DD(36,11,21,0)="^^3^3^2931109^"
^DD(36,11,21,1,0)="You may enter unlimited free text comments about this insurance company."
^DD(36,11,21,2,0)="It may be helpful to date ongoing comments and identify the source of "
^DD(36,11,21,3,0)="the comments."
^DD(36,11,"DT")="2931109"
^DD(36,13,0)="PLAN TYPES NO BILL PRV SEC ID^36.013SA^^13;0"
^DD(36,13,21,0)="^^2^2^3060307^"
^DD(36,13,21,1,0)="Enter all the Electronic plan types which will suppress Billing Provider "
^DD(36,13,21,2,0)="Secondary and Additional IDs from being sent."
^DD(36,"B"," ",4.07)="1"
^DD(36,"B","*FORM TYPE",.14)=""
^DD(36,"B","*HOSPITAL PROVIDER NUMBER",.11)=""
^DD(36,"B","ALLOW MULTIPLE BEDSECTIONS",.06)=""
^DD(36,"B","AMBULATORY SURG. REV. CODE",.09)=""
^DD(36,"B","ANOTHER CO. PROCESS APPEALS?",.148)=""
^DD(36,"B","ANOTHER CO. PROCESS INQUIRIES?",.158)=""
^DD(36,"B","ANOTHER CO. PROCESS IP CLAIMS?",.128)=""
^DD(36,"B","ANOTHER CO. PROCESS OP CLAIMS?",.168)=""
^DD(36,"B","ANOTHER CO. PROCESS PRECERTS?",.178)=""
^DD(36,"B","ANOTHER CO. PROCESS RX CLAIMS?",.188)=""
^DD(36,"B","APPEALS ADDRESS CITY",.144)=""
^DD(36,"B","APPEALS ADDRESS ST. [LINE 1]",.141)=""
^DD(36,"B","APPEALS ADDRESS ST. [LINE 2]",.142)=""
^DD(36,"B","APPEALS ADDRESS ST. [LINE 3]",.143)=""
^DD(36,"B","APPEALS ADDRESS STATE",.145)=""
^DD(36,"B","APPEALS ADDRESS ZIP",.146)=""
^DD(36,"B","APPEALS COMPANY NAME",.147)=""
^DD(36,"B","APPEALS FAX",.149)=""
^DD(36,"B","APPEALS PHONE NUMBER",.137)=""
^DD(36,"B","ATT/REND ID BILL SEC ID INST",4.08)=""
^DD(36,"B","ATT/REND ID BILL SEC ID PROF",4.06)=""
^DD(36,"B","ATTENDING PHYSICIAN ID.",.1)=""
^DD(36,"B","BILLING COMPANY NAME",.117)=""
^DD(36,"B","BILLING PHONE NUMBER",.132)=""
^DD(36,"B","BIN NUMBER",3.03)=""
^DD(36,"B","CITY",.114)=""
^DD(36,"B","CLAIMS (INPT) COMPANY NAME",.127)=""
^DD(36,"B","CLAIMS (INPT) FAX",.129)=""
^DD(36,"B","CLAIMS (INPT) PHONE NUMBER",.135)=""
^DD(36,"B","CLAIMS (INPT) PROCESS CITY",.124)=""
^DD(36,"B","CLAIMS (INPT) PROCESS STATE",.125)=""
^DD(36,"B","CLAIMS (INPT) PROCESS ZIP",.126)=""
^DD(36,"B","CLAIMS (INPT) STREET ADDRESS 1",.121)=""
^DD(36,"B","CLAIMS (INPT) STREET ADDRESS 2",.122)=""
^DD(36,"B","CLAIMS (INPT) STREET ADDRESS 3",.123)=""
^DD(36,"B","CLAIMS (OPT) COMPANY NAME",.167)=""
^DD(36,"B","CLAIMS (OPT) FAX",.169)=""
^DD(36,"B","CLAIMS (OPT) PHONE NUMBER",.136)=""
^DD(36,"B","CLAIMS (OPT) PROCESS CITY",.164)=""
^DD(36,"B","CLAIMS (OPT) PROCESS STATE",.165)=""
^DD(36,"B","CLAIMS (OPT) PROCESS ZIP",.166)=""
^DD(36,"B","CLAIMS (OPT) STREET ADDRESS 1",.161)=""
^DD(36,"B","CLAIMS (OPT) STREET ADDRESS 2",.162)=""
^DD(36,"B","CLAIMS (OPT) STREET ADDRESS 3",.163)=""
^DD(36,"B","CLAIMS (RX) CITY",.184)=""
^DD(36,"B","CLAIMS (RX) COMPANY NAME",.187)=""
^DD(36,"B","CLAIMS (RX) FAX",.189)=""
^DD(36,"B","CLAIMS (RX) PHONE NUMBER",.1311)=""
^DD(36,"B","CLAIMS (RX) STATE",.185)=""
^DD(36,"B","CLAIMS (RX) STREET ADDRESS 1",.181)=""
^DD(36,"B","CLAIMS (RX) STREET ADDRESS 2",.182)=""
^DD(36,"B","CLAIMS (RX) STREET ADDRESS 3",.183)=""
^DD(36,"B","CLAIMS (RX) ZIP",.186)=""
^DD(36,"B","DELETE 2006 4.1",4.1)=""
^DD(36,"B","DELETE 2006 4.11",4.11)=""
^DD(36,"B","DIFFERENT REVENUE CODES TO USE",.07)=""
^DD(36,"B","EDI ID NUMBER - INST",3.04)=""
^DD(36,"B","EDI ID NUMBER - PROF",3.02)=""
^DD(36,"B","EDI INST SECONDARY ID QUAL(1)",6.01)=""
^DD(36,"B","EDI INST SECONDARY ID QUAL(2)",6.03)=""
^DD(36,"B","EDI INST SECONDARY ID(1)",6.02)=""
^DD(36,"B","EDI INST SECONDARY ID(2)",6.04)=""
^DD(36,"B","EDI PROF SECONDARY ID QUAL(1)",6.05)=""
^DD(36,"B","EDI PROF SECONDARY ID QUAL(2)",6.07)=""
^DD(36,"B","EDI PROF SECONDARY ID(1)",6.06)=""
^DD(36,"B","EDI PROF SECONDARY ID(2)",6.08)=""
^DD(36,"B","ELECTRONIC INSURANCE TYPE",3.09)=""
^DD(36,"B","FAX NUMBER",.119)=""
^DD(36,"B","FILING TIME FRAME",.12)=""
^DD(36,"B","INACTIVE",.05)=""
^DD(36,"B","INQUIRY ADDRESS CITY",.154)=""
^DD(36,"B","INQUIRY ADDRESS ST. [LINE 1]",.151)=""
^DD(36,"B","INQUIRY ADDRESS ST. [LINE 2]",.152)=""
^DD(36,"B","INQUIRY ADDRESS ST. [LINE 3]",.153)=""
^DD(36,"B","INQUIRY ADDRESS STATE",.155)=""
^DD(36,"B","INQUIRY ADDRESS ZIP CODE",.156)=""
^DD(36,"B","INQUIRY COMPANY NAME",.157)=""
^DD(36,"B","INQUIRY FAX",.159)=""
^DD(36,"B","INQUIRY PHONE NUMBER",.138)=""
^DD(36,"B","INS COMPANY LINK PARENT",3.14)=""
^DD(36,"B","INS COMPANY LINK TYPE",3.13)=""
^DD(36,"B","INSURANCE COMPANY FILE",.01)="1"
^DD(36,"B","LAST EXTRACT DATE FOR TEST",3.05)=""
^DD(36,"B","MAX NUMBER TEST BILLS PER DAY",3.06)=""
^DD(36,"B","NAME",.01)=""
^DD(36,"B","NUMBER TEST BILLS FOR LAST DT",3.07)=""
^DD(36,"B","ONE OPT. VISIT ON BILL ONLY",.08)=""
^DD(36,"B","PAYER",3.1)=""
^DD(36,"B","PERF PROV CARE UNIT PROMPT",4.09)=""
^DD(36,"B","PERF PROV SECOND ID TYPE 1500",4.01)=""
^DD(36,"B","PERF PROV SECOND ID TYPE UB",4.02)=""
^DD(36,"B","PHONE NUMBER",.131)=""
^DD(36,"B","PLAN TYPES NO BILL PRV SEC ID",13)=""
^DD(36,"B","PRECERT COMPANY NAME",.139)=""
^DD(36,"B","PRECERTIFICATION PHONE NUMBER",.133)=""
^DD(36,"B","PRESCRIPTION REFILL REV. CODE",.15)=""
^DD(36,"B","PROFESSIONAL PROVIDER NUMBER",.17)=""
^DD(36,"B","REF PROV SEC ID DEF CMS-1500",4.04)=""
^DD(36,"B","REF PROV SEC ID REQ ON CLAIMS",4.05)=""
^DD(36,"B","REIMBURSE?",1)=""
^DD(36,"B","REMARKS",11)=""
^DD(36,"B","REPOINT DELETED COMPANY TO",5.02)=""
^DD(36,"B","REPOINT PATIENTS TO",.16)=""
^DD(36,"B","SCHEDULED FOR DELETION",5.01)=""
^DD(36,"B","SECONDARY ID REQUIREMENTS",4.03)=""
^DD(36,"B","SEND LAB OR FAC IDS FOR VAMC",4.07)=""
^DD(36,"B","SIGNATURE REQUIRED ON BILL?",2)=""
^DD(36,"B","STATE",.115)=""
^DD(36,"B","STREET ADDRESS [LINE 1]",.111)=""
^DD(36,"B","STREET ADDRESS [LINE 2]",.112)=""
^DD(36,"B","STREET ADDRESS [LINE 3]",.113)=""
^DD(36,"B","SYNONYM",10)=""
^DD(36,"B","TRANSMIT ELECTRONICALLY",3.01)=""
^DD(36,"B","TYPE OF COVERAGE",.13)=""
^DD(36,"B","VERIFICATION PHONE NUMBER",.134)=""
^DD(36,"B","ZIP CODE",.116)=""
^DD(36,"GL",0,1,.01)=""
^DD(36,"GL",0,2,1)=""
^DD(36,"GL",0,3,2)=""
^DD(36,"GL",0,5,.05)=""
^DD(36,"GL",0,6,.06)=""
^DD(36,"GL",0,7,.07)=""
^DD(36,"GL",0,8,.08)=""
^DD(36,"GL",0,9,.09)=""
^DD(36,"GL",0,10,.1)=""
^DD(36,"GL",0,11,.11)=""
^DD(36,"GL",0,12,.12)=""
^DD(36,"GL",0,13,.13)=""
^DD(36,"GL",0,14,.14)=""
^DD(36,"GL",0,15,.15)=""
^DD(36,"GL",0,16,.16)=""
^DD(36,"GL",0,17,.17)=""
^DD(36,"GL",.11,1,.111)=""
^DD(36,"GL",.11,2,.112)=""
^DD(36,"GL",.11,3,.113)=""
^DD(36,"GL",.11,4,.114)=""
^DD(36,"GL",.11,5,.115)=""
^DD(36,"GL",.11,6,.116)=""
^DD(36,"GL",.11,7,.117)=""
^DD(36,"GL",.11,9,.119)=""
^DD(36,"GL",.12,1,.121)=""
^DD(36,"GL",.12,2,.122)=""
^DD(36,"GL",.12,3,.123)=""
^DD(36,"GL",.12,4,.124)=""
^DD(36,"GL",.12,5,.125)=""
^DD(36,"GL",.12,6,.126)=""
^DD(36,"GL",.12,7,.127)=""
^DD(36,"GL",.12,8,.128)=""
^DD(36,"GL",.12,9,.129)=""
^DD(36,"GL",.13,1,.131)=""
^DD(36,"GL",.13,2,.132)=""
^DD(36,"GL",.13,3,.133)=""
^DD(36,"GL",.13,4,.134)=""
^DD(36,"GL",.13,5,.135)=""
^DD(36,"GL",.13,6,.136)=""
^DD(36,"GL",.13,7,.137)=""
^DD(36,"GL",.13,8,.138)=""
^DD(36,"GL",.13,9,.139)=""
^DD(36,"GL",.13,11,.1311)=""
^DD(36,"GL",.14,1,.141)=""
^DD(36,"GL",.14,2,.142)=""
^DD(36,"GL",.14,3,.143)=""
^DD(36,"GL",.14,4,.144)=""
^DD(36,"GL",.14,5,.145)=""
^DD(36,"GL",.14,6,.146)=""
^DD(36,"GL",.14,7,.147)=""
^DD(36,"GL",.14,8,.148)=""
^DD(36,"GL",.14,9,.149)=""
^DD(36,"GL",.15,1,.151)=""
^DD(36,"GL",.15,2,.152)=""
^DD(36,"GL",.15,3,.153)=""
^DD(36,"GL",.15,4,.154)=""
^DD(36,"GL",.15,5,.155)=""
^DD(36,"GL",.15,6,.156)=""
^DD(36,"GL",.15,7,.157)=""
^DD(36,"GL",.15,8,.158)=""
^DD(36,"GL",.15,9,.159)=""
^DD(36,"GL",.16,1,.161)=""
^DD(36,"GL",.16,2,.162)=""
^DD(36,"GL",.16,3,.163)=""
^DD(36,"GL",.16,4,.164)=""
^DD(36,"GL",.16,5,.165)=""
^DD(36,"GL",.16,6,.166)=""
^DD(36,"GL",.16,7,.167)=""
^DD(36,"GL",.16,8,.168)=""
^DD(36,"GL",.16,9,.169)=""
^DD(36,"GL",.17,8,.178)=""
^DD(36,"GL",.18,1,.181)=""
^DD(36,"GL",.18,2,.182)=""
^DD(36,"GL",.18,3,.183)=""
^DD(36,"GL",.18,4,.184)=""
^DD(36,"GL",.18,5,.185)=""
^DD(36,"GL",.18,6,.186)=""
^DD(36,"GL",.18,7,.187)=""
^DD(36,"GL",.18,8,.188)=""
^DD(36,"GL",.18,9,.189)=""
^DD(36,"GL",3,1,3.01)=""
^DD(36,"GL",3,2,3.02)=""
^DD(36,"GL",3,3,3.03)=""
^DD(36,"GL",3,4,3.04)=""
^DD(36,"GL",3,5,3.05)=""
^DD(36,"GL",3,6,3.06)=""
^DD(36,"GL",3,7,3.07)=""
^DD(36,"GL",3,9,3.09)=""
^DD(36,"GL",3,10,3.1)=""
^DD(36,"GL",3,13,3.13)=""
^DD(36,"GL",3,14,3.14)=""
^DD(36,"GL",4,1,4.01)=""
^DD(36,"GL",4,2,4.02)=""
^DD(36,"GL",4,3,4.03)=""
^DD(36,"GL",4,4,4.04)=""
^DD(36,"GL",4,5,4.05)=""
^DD(36,"GL",4,6,4.06)=""
^DD(36,"GL",4,7,4.07)=""
^DD(36,"GL",4,8,4.08)=""
^DD(36,"GL",4,9,4.09)=""
^DD(36,"GL",4,10,4.1)=""
^DD(36,"GL",4,11,4.11)=""
^DD(36,"GL",5,1,5.01)=""
^DD(36,"GL",5,2,5.02)=""
^DD(36,"GL",6,1,6.01)=""
^DD(36,"GL",6,2,6.02)=""
^DD(36,"GL",6,3,6.03)=""
^DD(36,"GL",6,4,6.04)=""
^DD(36,"GL",6,5,6.05)=""
^DD(36,"GL",6,6,6.06)=""
^DD(36,"GL",6,7,6.07)=""
^DD(36,"GL",6,8,6.08)=""
^DD(36,"GL",10,0,10)=""
^DD(36,"GL",11,0,11)=""
^DD(36,"GL",13,0,13)=""
^DD(36,"IX",.01)=""
^DD(36,"IX",.111)=""
^DD(36,"IX",.112)=""
^DD(36,"IX",.121)=""
^DD(36,"IX",.122)=""
^DD(36,"IX",.128)=""
^DD(36,"IX",.141)=""
^DD(36,"IX",.142)=""
^DD(36,"IX",.148)=""
^DD(36,"IX",.151)=""
^DD(36,"IX",.152)=""
^DD(36,"IX",.158)=""
^DD(36,"IX",.161)=""
^DD(36,"IX",.162)=""
^DD(36,"IX",.168)=""
^DD(36,"IX",.178)=""
^DD(36,"IX",.181)=""
^DD(36,"IX",.182)=""
^DD(36,"IX",.188)=""
^DD(36,"IX",3.1)=""
^DD(36,"IX",3.13)=""
^DD(36,"IX",3.14)=""
^DD(36,"IX",5.01)=""
^DD(36,"IX",6.01)=""
^DD(36,"IX",6.02)=""
^DD(36,"IX",6.03)=""
^DD(36,"IX",6.04)=""
^DD(36,"IX",6.05)=""
^DD(36,"IX",6.06)=""
^DD(36,"IX",6.07)=""
^DD(36,"IX",6.08)=""
^DD(36,"RQ",.01)=""
^DD(36,"RQ",.111)=""
^DD(36,"RQ",1)=""
^DD(36,"RQ",2)=""
^DD(36,"SB",36.011,11)=""
^DD(36,"SB",36.013,13)=""
^DD(36,"SB",36.03,10)=""
^DD(36.011,0)="REMARKS SUB-FIELD^^.01^1"
^DD(36.011,0,"DT")="2931109"
^DD(36.011,0,"NM","REMARKS")=""
^DD(36.011,0,"UP")="36"
^DD(36.011,.01,0)="REMARKS^W^^0;1^Q"
^DD(36.011,.01,3)="You may enter comments about this insurance company."
^DD(36.011,.01,"DT")="2931109"
^DD(36.011,"B","REMARKS",.01)=""
^DD(36.011,"GL",0,1,.01)=""
^DD(36.013,0)="PLAN TYPES NO BILL PRV SEC ID SUB-FIELD^^.01^1"
^DD(36.013,0,"DT")="3051228"
^DD(36.013,0,"IX","B",36.013,.01)=""
^DD(36.013,0,"NM","PLAN TYPES NO BILL PRV SEC ID")=""
^DD(36.013,0,"UP")="36"
^DD(36.013,.01,0)="PLAN TYPES NO BILL PRV SEC ID^MS^16:HMO MEDICARE;MX:MEDICARE A OR B;TV:TITLE V;MC:MEDICAID;BL:BC/BS;CH:TRICARE;15:INDEMNITY;CI:COMMERCIAL;HM:HMO;DS:DISABILITY;12:PPO;13:POS;ZZ:OTHER;^0;1^Q"
^DD(36.013,.01,1,0)="^.1"
^DD(36.013,.01,1,1,0)="36.013^B"
^DD(36.013,.01,1,1,1)="S ^DIC(36,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(36.013,.01,1,1,2)="K ^DIC(36,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(36.013,.01,3)="Enter all the Electronic plan types which will suppress Billing Provider Secondary and Additional IDs from being sent."
^DD(36.013,.01,21,0)="^^2^2^3060309^"
^DD(36.013,.01,21,1,0)="These are electronic plan types which cause the billing provider "
^DD(36.013,.01,21,2,0)="secondary ids to be suppressed on the claim."
^DD(36.013,.01,"DT")="3060309"
^DD(36.013,"B","PLAN TYPES NO BILL PRV SEC ID",.01)=""
^DD(36.013,"GL",0,1,.01)=""
^DD(36.013,"IX",.01)=""
^DD(36.03,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(36.03,0,"DT")="2930326"
^DD(36.03,0,"IX","B",36.03,.01)=""
^DD(36.03,0,"NM","SYNONYM")=""
^DD(36.03,0,"UP")="36"
^DD(36.03,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(36.03,.01,1,0)="^.1"
^DD(36.03,.01,1,1,0)="36.03^B"
^DD(36.03,.01,1,1,1)="S ^DIC(36,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(36.03,.01,1,1,2)="K ^DIC(36,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(36.03,.01,1,2,0)="36^C"
^DD(36.03,.01,1,2,1)="S ^DIC(36,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(36.03,.01,1,2,2)="K ^DIC(36,""C"",$E(X,1,30),DA(1),DA)"
^DD(36.03,.01,1,2,"DT")="2930326"
^DD(36.03,.01,3)="Answer must be 3-30 characters in length."
^DD(36.03,.01,21,0)="^^1^1^2930607^"
^DD(36.03,.01,21,1,0)="Enter other terms for referring to this insurance company."
^DD(36.03,.01,"DT")="2930326"
^DD(36.03,"B","SYNONYM",.01)=""
^DD(36.03,"GL",0,1,.01)=""
^DD(36.03,"IX",.01)=""
^DD(37,0)="FIELD^NL^100^12"
^DD(37,0,"IX","AHN",37,99)=""
^DD(37,0,"IX","B",37,.01)=""
^DD(37,0,"IX","C",37,1)=""
^DD(37,0,"IX","S",37.01,.01)=""
^DD(37,0,"NM","DISPOSITION")=""
^DD(37,0,"PT",2.101,6)=""
^DD(37,0,"PT",352.2,.01)=""
^DD(37,0,"VR")="5.3"
^DD(37,.01,0)="NAME^RF^^0;1^K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X"
^DD(37,.01,1,0)="^.1"
^DD(37,.01,1,1,0)="37^B"
^DD(37,.01,1,1,1)="S @(DIC_""""""B"""",X,DA)="""""""""")"
^DD(37,.01,1,1,2)="K @(DIC_""""""B"""",X,DA)"")"
^DD(37,.01,3)="ANSWER MUST BE 3-35 CHARACTERS IN LENGTH"
^DD(37,.01,21,0)="^^2^2^2911222^"
^DD(37,.01,21,1,0)="Enter the name of the disposition.  These entries are distributed by the"
^DD(37,.01,21,2,0)="MAS package and shouldn't be altered."
^DD(37,.01,"DT")="2860710"
^DD(37,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<1) X"
^DD(37,1,1,0)="^.1"
^DD(37,1,1,1,0)="37^C"
^DD(37,1,1,1,1)="S ^DIC(37,""C"",$E(X,1,30),DA)="""""
^DD(37,1,1,1,2)="K ^DIC(37,""C"",$E(X,1,30),DA)"
^DD(37,1,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(37,1,21,0)="^^3^3^2911222^"
^DD(37,1,21,1,0)="This field contains an abbreviation for this disposition.  On outputs and"
^DD(37,1,21,2,0)="displays where there is not enough room to display the full name of the"
^DD(37,1,21,3,0)="disposition, the abbreviation may appear instead."
^DD(37,2,0)="APPLICATION CODE^S^R:REGISTRATION;C:CLINIC;^0;3^Q"
^DD(37,2,21,0)="^^2^2^2911222^"
^DD(37,2,21,1,0)="This field cotains an R if this disposition type is from registration or"
^DD(37,2,21,2,0)="C if it is from a clinic."
^DD(37,3,0)="DISPOSITION ACTION^RS^H:HOSPITAL;S:SCH-ADMIT;O:OUTPATIENT;I:INACTIVE;D:DOMICILIARY;N:NURSING HOME;E:NO EFFECT;X:NO CHANGE (INACTIVE IF NONE);P:PENDING;^0;4^Q"
^DD(37,3,3)=""
^DD(37,3,21,0)="^^3^3^2911222^"
^DD(37,3,21,1,0)="Choose from the available choices the dispostion action (where the patient"
^DD(37,3,21,2,0)="is being dispositioned to).  Choices include various types of inpatient"
^DD(37,3,21,3,0)="and outpatient care."
^DD(37,3,"DT")="2840214"
^DD(37,4,0)="CONTINUING CARE^S^1:YES;0:NO;^0;5^Q"
^DD(37,4,21,0)="^^2^2^2911222^"
^DD(37,4,21,1,0)="Enter YES if this disposition is for a continuing episode of care."
^DD(37,4,21,2,0)="Otherwise, respond NO."
^DD(37,5,0)="*AMIS 331 GROUP^S^H:HOSPITAL CARE;O:OUTPATIENT CARE;N:NURSING HOME CARE;D:DOMICILIARY CARE;X:NOT IN NEED;C:CANCELED;Z:NOT COUNTED;P:PENDING;^0;6^Q"
^DD(37,5,"DT")="2831210"
^DD(37,8,0)="*AMIS 320 GROUP^RS^1:HOSPITAL;2:NHC;3:DOM;4:OPC;5:NOT IN NEED;6:CANCELLED;7:NOT ELIGIBLE;8:RESOURCES NOT AVAIL.;9:NOT AGREEING TO PAY DEDUCT.;10:REFERRED TO OTHER VA FACILITY;11:PENDING;^0;8^Q"
^DD(37,8,"DT")="2860725"
^DD(37,9,0)="AMIS 401-420 DISPOSITION GROUP^RS^1:CANCEL;2:COMMUNITY;3:DOM ADMIT;4:DOM W/L;5:FEE BASIS;6:HOSP ADMIT;7:HOSP W/L;8:NHCU ADMIT;9:NHCU W/L;10:NO CARE REQ;11:OTHER;12:OP CARE REC;13:PENDING;14:OTHER VA;15:REFUSED TO PAY;^0;9^Q"
^DD(37,9,3)=""
^DD(37,9,21,0)="^^4^4^2911222^"
^DD(37,9,21,1,0)="This field contains the AMIS 400 series segment under which this"
^DD(37,9,21,2,0)="disposition should fall.  It is imperative this field contain accurate"
^DD(37,9,21,3,0)="data or it could cause workload reporting (and therefore reimbursement)"
^DD(37,9,21,4,0)="to be incorrect."
^DD(37,9,"DT")="2880211"
^DD(37,10,0)="INACTIVE^RS^1:YES;0:NO;^0;10^Q"
^DD(37,10,21,0)="^^3^3^2911222^"
^DD(37,10,21,1,0)="Enter YES if this dispostion should no longer be selectable during the"
^DD(37,10,21,2,0)="disposition a patient option.  Previous dispositions of this type will"
^DD(37,10,21,3,0)="not be affected in any way."
^DD(37,10,"DT")="2880211"
^DD(37,50,0)="SYNONYM^37.01^^S;0"
^DD(37,50,21,0)="^^3^3^2911222^"
^DD(37,50,21,1,0)="This multiple contains alternate names by which this disposition may be"
^DD(37,50,21,2,0)="selected.  If the user enters either the disposition name or one of"
^DD(37,50,21,3,0)="these synonyms, this disposition will be selected."
^DD(37,99,0)="*HONEYWELL CODE^NJ1,0^^0;7^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(37,99,1,0)="^.1"
^DD(37,99,1,1,0)="37^AHN"
^DD(37,99,1,1,1)="S ^DIC(37,""AHN"",$E(X,1,30),DA)="""""
^DD(37,99,1,1,2)="K ^DIC(37,""AHN"",$E(X,1,30),DA)"
^DD(37,99,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(37,99,"DT")="2840709"
^DD(37,100,0)="PROGRAM ACTION^FX^^P;E1,250^K:$L(X)>250!($L(X)<1) X I $D(X) D ^DIM"
^DD(37,100,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(37,100,21,0)="^^4^4^2911222^"
^DD(37,100,21,1,0)="Enter the code which is executed once this dispostion is selected.  This"
^DD(37,100,21,2,0)="code is distributed by the MAS package and MUST NOT BE ALTERED.  Editing"
^DD(37,100,21,3,0)="of this data can have severe negative impacts on the operation of the"
^DD(37,100,21,4,0)="registration and disposition software including software errors."
^DD(37,100,"DT")="2840214"
^DD(37,"B","*AMIS 320 GROUP",8)=""
^DD(37,"B","*AMIS 331 GROUP",5)=""
^DD(37,"B","*HONEYWELL CODE",99)=""
^DD(37,"B","ABBREVIATION",1)=""
^DD(37,"B","AMIS 401-420 DISPOSITION GROUP",9)=""
^DD(37,"B","APPLICATION CODE",2)=""
^DD(37,"B","CONTINUING CARE",4)=""
^DD(37,"B","DISPOSITION ACTION",3)=""
^DD(37,"B","INACTIVE",10)=""
^DD(37,"B","NAME",.01)=""
^DD(37,"B","PROGRAM ACTION",100)=""
^DD(37,"B","SYNONYM",50)=""
^DD(37,"GL",0,1,.01)=""
^DD(37,"GL",0,2,1)=""
^DD(37,"GL",0,3,2)=""
^DD(37,"GL",0,4,3)=""
^DD(37,"GL",0,5,4)=""
^DD(37,"GL",0,6,5)=""
^DD(37,"GL",0,7,99)=""
^DD(37,"GL",0,8,8)=""
^DD(37,"GL",0,9,9)=""
^DD(37,"GL",0,10,10)=""
^DD(37,"GL","P","E1,250",100)=""
^DD(37,"GL","S",0,50)=""
^DD(37,"IX",.01)=""
^DD(37,"IX",1)=""
^DD(37,"IX",99)=""
^DD(37,"RQ",.01)=""
^DD(37,"RQ",3)=""
^DD(37,"RQ",8)=""
^DD(37,"RQ",9)=""
^DD(37,"RQ",10)=""
^DD(37,"SB",37.01,50)=""
^DD(37.01,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(37.01,0,"IX","B",37.01,.01)=""
^DD(37.01,0,"NM","SYNONYM")=""
^DD(37.01,0,"UP")="37"
^DD(37.01,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(37.01,.01,1,0)="^.1"
^DD(37.01,.01,1,1,0)="37.01^B"
^DD(37.01,.01,1,1,1)="S ^DIC(37,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(37.01,.01,1,1,2)="K ^DIC(37,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(37.01,.01,1,2,0)="37^S"
^DD(37.01,.01,1,2,1)="S ^DIC(37,""S"",$E(X,1,30),DA(1),DA)="""""
^DD(37.01,.01,1,2,2)="K ^DIC(37,""S"",$E(X,1,30),DA(1),DA)"
^DD(37.01,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(37.01,.01,21,0)="^^1^1^2911222^"
^DD(37.01,.01,21,1,0)="Enter an alternate name by which this disposition is known."
^DD(37.01,.01,"DT")="2880211"
^DD(37.01,"B","SYNONYM",.01)=""
^DD(37.01,"GL",0,1,.01)=""
^DD(37.01,"IX",.01)=""
^DD(38.1,0)="FIELD^^50^6"
^DD(38.1,0,"DT")="2930601"
^DD(38.1,0,"ID","WRITE")="W """""
^DD(38.1,0,"IX","ABUL",38.1,2)=""
^DD(38.1,0,"IX","AD",38.11,.01)=""
^DD(38.1,0,"IX","ANS",38.1,2)=""
^DD(38.1,0,"IX","AU",38.11,2)=""
^DD(38.1,0,"IX","B",38.1,.01)=""
^DD(38.1,0,"NM","DG SECURITY LOG")=""
^DD(38.1,0,"VR")="5.3"
^DD(38.1,.01,0)="PATIENT NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(38.1,.01,1,0)="^.1"
^DD(38.1,.01,1,1,0)="38.1^B"
^DD(38.1,.01,1,1,1)="S ^DGSL(38.1,""B"",$E(X,1,30),DA)="""""
^DD(38.1,.01,1,1,2)="K ^DGSL(38.1,""B"",$E(X,1,30),DA)"
^DD(38.1,.01,3)=""
^DD(38.1,.01,21,0)="^^2^2^2911222^"
^DD(38.1,.01,21,1,0)="This field contains a pointer to the PATIENT file representing the patient"
^DD(38.1,.01,21,2,0)="who is listed as sensitive."
^DD(38.1,.01,"DT")="2870309"
^DD(38.1,2,0)="SECURITY LEVEL^RSX^0:NON-SENSITIVE;1:SENSITIVE;^0;2^Q"
^DD(38.1,2,1,0)="^.1"
^DD(38.1,2,1,1,0)="38.1^ABUL^MUMPS"
^DD(38.1,2,1,1,1)="Q"
^DD(38.1,2,1,1,2)="I +X,'+$P(^DGSL(38.1,DA,0),U,2) D BULTIN^DGSEC1"
^DD(38.1,2,1,2,0)="38.1^ANS^MUMPS"
^DD(38.1,2,1,2,1)="I '+$P(^DGSL(38.1,DA,0),U,2) S ^DGSL(38.1,""ANS"",DA)="""""
^DD(38.1,2,1,2,2)="K ^DGSL(38.1,""ANS"",DA)"
^DD(38.1,2,21,0)="^^2^2^2911222^"
^DD(38.1,2,21,1,0)="This field contains a 1 if the patient record is presently listed as"
^DD(38.1,2,21,2,0)="sensitive or a 0 if the patient's record is not currently sensitive."
^DD(38.1,2,"DT")="2870819"
^DD(38.1,3,0)="SECURITY ASSIGNED BY^RP200'^VA(200,^0;3^Q"
^DD(38.1,3,21,0)="^^2^2^2911222^"
^DD(38.1,3,21,1,0)="This field contains a pointer to the NEW PERSON file denoting the name of"
^DD(38.1,3,21,2,0)="the user who most recently changed this patient's security level."
^DD(38.1,3,"DT")="2900928"
^DD(38.1,4,0)="DATE/TIME SECURITY ASSIGNED^RD^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(38.1,4,21,0)="^^2^2^2911222^^"
^DD(38.1,4,21,1,0)="This field contians the date/time that this patient's security level was"
^DD(38.1,4,21,2,0)="most recently changed."
^DD(38.1,4,"DT")="2870413"
^DD(38.1,5,0)="SECURITY SOURCE^F^^0;5^K:$L(X)>65!($L(X)<1) X"
^DD(38.1,5,3)="Answer must be 1-65 characters in length."
^DD(38.1,5,21,0)="^^1^1^2990226^"
^DD(38.1,5,21,1,0)="This field contains the remote source that assigned the patient's security level."
^DD(38.1,5,"DT")="2990226"
^DD(38.1,50,0)="DATE/TIME RECORD ACCESSED^38.11DA^^D;0"
^DD(38.1,50,21,0)="^^2^2^2930716^^^^"
^DD(38.1,50,21,1,0)="This multiple contains information on when and by whom a patient's record"
^DD(38.1,50,21,2,0)="was accessed (if that patient's record was listed as sensitive at the time)."
^DD(38.1,"B","DATE/TIME RECORD ACCESSED",50)=""
^DD(38.1,"B","DATE/TIME SECURITY ASSIGNED",4)=""
^DD(38.1,"B","PATIENT NAME",.01)=""
^DD(38.1,"B","SECURITY ASSIGNED BY",3)=""
^DD(38.1,"B","SECURITY LEVEL",2)=""
^DD(38.1,"B","SECURITY SOURCE",5)=""
^DD(38.1,"GL",0,1,.01)=""
^DD(38.1,"GL",0,2,2)=""
^DD(38.1,"GL",0,3,3)=""
^DD(38.1,"GL",0,4,4)=""
^DD(38.1,"GL",0,5,5)=""
^DD(38.1,"GL","D",0,50)=""
^DD(38.1,"IX",.01)=""
^DD(38.1,"IX",2)=""
^DD(38.1,"RQ",.01)=""
^DD(38.1,"RQ",2)=""
^DD(38.1,"RQ",3)=""
^DD(38.1,"RQ",4)=""
^DD(38.1,"SB",38.11,50)=""
^DD(38.11,0)="DATE/TIME RECORD ACCESSED SUB-FIELD^^4^4"
^DD(38.11,0,"DT")="2930601"
^DD(38.11,0,"NM","DATE/TIME RECORD ACCESSED")=""
^DD(38.11,0,"UP")="38.1"
^DD(38.11,.01,0)="DATE/TIME RECORD ACCESSED^RDX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999.9999-X"
^DD(38.11,.01,1,0)="^.1"
^DD(38.11,.01,1,1,0)="38.1^AD^MUMPS"
^DD(38.11,.01,1,1,1)="S ^DGSL(38.1,""AD"",DA,DA(1))="""""
^DD(38.11,.01,1,1,2)="K ^DGSL(38.1,""AD"",DA,DA(1))"
^DD(38.11,.01,21,0)="^^2^2^2911222^"
^DD(38.11,.01,21,1,0)="This field contains the date/time the patient's sensitive record was"
^DD(38.11,.01,21,2,0)="accessed."
^DD(38.11,.01,"DT")="2870820"
^DD(38.11,2,0)="ACCESSED BY^P200'^VA(200,^0;2^Q"
^DD(38.11,2,1,0)="^.1"
^DD(38.11,2,1,1,0)="38.1^AU^MUMPS"
^DD(38.11,2,1,1,1)="S ^DGSL(38.1,""AU"",DA(1),$E(X,1,30),DA)="""""
^DD(38.11,2,1,1,2)="K ^DGSL(38.1,""AU"",DA(1),$E(X,1,30),DA)"
^DD(38.11,2,21,0)="^^2^2^2911222^"
^DD(38.11,2,21,1,0)="This field contains the name of the user that accessed this sensitive"
^DD(38.11,2,21,2,0)="patient's record."
^DD(38.11,2,"DT")="2900928"
^DD(38.11,3,0)="OPTION/PROTOCOL USED^F^^0;3^K:$L(X)>65!($L(X)<1) X"
^DD(38.11,3,.1)="OPTION/PROTOCOL USED WHEN ACCESSED"
^DD(38.11,3,3)="Answer must be 1-65 characters in length."
^DD(38.11,3,21,0)="^^2^2^2930607^^^^"
^DD(38.11,3,21,1,0)="This field contains the option or protocol the user was utilizing when this"
^DD(38.11,3,21,2,0)="sensitive patient's record was accessed."
^DD(38.11,3,"DT")="2930607"
^DD(38.11,4,0)="INPATIENT WHEN ACCESSED?^S^y:YES;n:NO;^0;4^Q"
^DD(38.11,4,21,0)="^^2^2^2911222^"
^DD(38.11,4,21,1,0)="If, at the time this patient's sensitive record was accessed, this patient"
^DD(38.11,4,21,2,0)="was an inpatient, a YES will appear here."
^DD(38.11,4,"DT")="2870413"
^DD(38.11,"B","ACCESSED BY",2)=""
^DD(38.11,"B","DATE/TIME RECORD ACCESSED",.01)=""
^DD(38.11,"B","INPATIENT WHEN ACCESSED?",4)=""
^DD(38.11,"B","OPTION/PROTOCOL USED",3)=""
^DD(38.11,"GL",0,1,.01)=""
^DD(38.11,"GL",0,2,2)=""
^DD(38.11,"GL",0,3,3)=""
^DD(38.11,"GL",0,4,4)=""
^DD(38.11,"IX",.01)=""
^DD(38.11,"IX",2)=""
^DD(38.11,"RQ",.01)=""
^DD(38.5,0)="FIELD^^10^7"
^DD(38.5,0,"IX","AC",38.5,4)=""
^DD(38.5,0,"IX","B",38.5,.01)=""
^DD(38.5,0,"NM","INCONSISTENT DATA")=""
^DD(38.5,0,"VR")="5.3"
^DD(38.5,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(38.5,.01,1,0)="^.1"
^DD(38.5,.01,1,1,0)="38.5^B"
^DD(38.5,.01,1,1,1)="S ^DGIN(38.5,""B"",$E(X,1,30),DA)="""""
^DD(38.5,.01,1,1,2)="K ^DGIN(38.5,""B"",$E(X,1,30),DA)"
^DD(38.5,.01,3)=""
^DD(38.5,.01,21,0)="^^2^2^2911211^"
^DD(38.5,.01,21,1,0)="This field contains the name of the patient for which the inconsistencies"
^DD(38.5,.01,21,2,0)="exist.  This is a DINUMed pointer to the PATIENT file."
^DD(38.5,2,0)="INITIALLY IDENTIFIED^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(38.5,2,21,0)="^^2^2^2911211^"
^DD(38.5,2,21,1,0)="This field contains the date the inconsistency was initially identified"
^DD(38.5,2,21,2,0)="on your system."
^DD(38.5,3,0)="IDENTIFIED BY^RP200'^VA(200,^0;3^Q"
^DD(38.5,3,21,0)="^^2^2^2911211^"
^DD(38.5,3,21,1,0)="This field will contain the name of the user (via a pointer to the NEW"
^DD(38.5,3,21,2,0)="PERSON file) that was editing the data when the inconsistency was created."
^DD(38.5,3,"DT")="2901006"
^DD(38.5,4,0)="LAST UPDATED^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(38.5,4,1,0)="^.1"
^DD(38.5,4,1,1,0)="38.5^AC^MUMPS"
^DD(38.5,4,1,1,1)="S ^DGIN(38.5,""AC"",9999999-X,DA)="""""
^DD(38.5,4,1,1,2)="K ^DGIN(38.5,""AC"",9999999-X,DA)"
^DD(38.5,4,21,0)="^^4^4^2911211^"
^DD(38.5,4,21,1,0)="If an inconsistency exists for a patient for more than 7 days and the"
^DD(38.5,4,21,2,0)="record is called up again through a registration option without correcting"
^DD(38.5,4,21,3,0)="this inconsistency, a new bulletin will be generated and the date of the"
^DD(38.5,4,21,4,0)="edit will be stored in this field."
^DD(38.5,4,"DT")="2870306"
^DD(38.5,5,0)="LAST UPDATED BY^P200'^VA(200,^0;5^Q"
^DD(38.5,5,21,0)="^^4^4^2911211^"
^DD(38.5,5,21,1,0)="If an inconsistency exists for a patient for more than 7 days and the"
^DD(38.5,5,21,2,0)="record is called up again through a registration option without correcting"
^DD(38.5,5,21,3,0)="the inconsistency, a new bulletin will be generated and the user who"
^DD(38.5,5,21,4,0)="last edited this record will be stored."
^DD(38.5,5,"DT")="2901006"
^DD(38.5,6,0)="BULLETIN SENT^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(38.5,6,21,0)="^^2^2^2911211^^"
^DD(38.5,6,21,1,0)="This field will contain the date a bulletin of these inconsistencies"
^DD(38.5,6,21,2,0)="was last generated."
^DD(38.5,6,"DT")="2870309"
^DD(38.5,10,0)="INCONSISTENCY^38.51PA^^I;0"
^DD(38.5,10,21,0)="^^1^1^2911211^"
^DD(38.5,10,21,1,0)="This multiple will contain the inconsistencies for this patient."
^DD(38.5,"B","BULLETIN SENT",6)=""
^DD(38.5,"B","IDENTIFIED BY",3)=""
^DD(38.5,"B","INCONSISTENCY",10)=""
^DD(38.5,"B","INITIALLY IDENTIFIED",2)=""
^DD(38.5,"B","LAST UPDATED",4)=""
^DD(38.5,"B","LAST UPDATED BY",5)=""
^DD(38.5,"B","NAME",.01)=""
^DD(38.5,"GL",0,1,.01)=""
^DD(38.5,"GL",0,2,2)=""
^DD(38.5,"GL",0,3,3)=""
^DD(38.5,"GL",0,4,4)=""
^DD(38.5,"GL",0,5,5)=""
^DD(38.5,"GL",0,6,6)=""
^DD(38.5,"GL","I",0,10)=""
^DD(38.5,"IX",.01)=""
^DD(38.5,"IX",4)=""
^DD(38.5,"RQ",.01)=""
^DD(38.5,"RQ",2)=""
^DD(38.5,"RQ",3)=""
^DD(38.5,"SB",38.51,10)=""
^DD(38.51,0)="INCONSISTENCY SUB-FIELD^^.01^1"
^DD(38.51,0,"NM","INCONSISTENCY")=""
^DD(38.51,0,"UP")="38.5"
^DD(38.51,.01,0)="INCONSISTENCY^MRP38.6'X^DGIN(38.6,^0;1^S DINUM=X"
^DD(38.51,.01,1,0)="^.1^^0"
^DD(38.51,.01,21,0)="^^2^2^2911211^"
^DD(38.51,.01,21,1,0)="This field contains the name of the inconsistency (a pointer to the"
^DD(38.51,.01,21,2,0)="INCONSISTENT DATA ELEMENTS file) which exists for this patient."
^DD(38.51,"B","INCONSISTENCY",.01)=""
^DD(38.51,"GL",0,1,.01)=""
^DD(38.51,"RQ",.01)=""
^DD(38.6,0)="FIELD^^50^8"
^DD(38.6,0,"DDA")="N"
^DD(38.6,0,"IX","B",38.6,.01)=""
^DD(38.6,0,"NM","INCONSISTENT DATA ELEMENTS")=""
^DD(38.6,0,"PT",38.51,.01)=""
^DD(38.6,0,"VR")="5.3"
^DD(38.6,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(38.6,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(38.6,.001,21,0)="^^5^5^2911211^"
^DD(38.6,.001,21,1,0)="This field contains the internal entry number of the inconsistency.  This"
^DD(38.6,.001,21,2,0)="number is used by the consistency checker routines to determine what action"
^DD(38.6,.001,21,3,0)="needs to be taken.  Entries in this file must not be added nor altered in"
^DD(38.6,.001,21,4,0)="any way as this would cause the consistency checker functionality to act"
^DD(38.6,.001,21,5,0)="incorrectly."
^DD(38.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X"
^DD(38.6,.01,1,0)="^.1"
^DD(38.6,.01,1,1,0)="38.6^B"
^DD(38.6,.01,1,1,1)="S ^DGIN(38.6,""B"",$E(X,1,30),DA)="""""
^DD(38.6,.01,1,1,2)="K ^DGIN(38.6,""B"",$E(X,1,30),DA)"
^DD(38.6,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(38.6,.01,21,0)="^^4^4^2911211^"
^DD(38.6,.01,21,1,0)="This field contains the name of the inconsistency that will be reported"
^DD(38.6,.01,21,2,0)="when utilizing various registration and consistency checker options.  This"
^DD(38.6,.01,21,3,0)="name will appear on the screen and in a mailmessage should the inconsistency"
^DD(38.6,.01,21,4,0)="not be reported."
^DD(38.6,.01,"DT")="2870513"
^DD(38.6,2,0)="TEXT^RF^^0;2^K:$L(X)>70!($L(X)<2) X"
^DD(38.6,2,3)="ANSWER MUST BE 2-70 CHARACTERS IN LENGTH"
^DD(38.6,2,21,0)="^^2^2^2911211^"
^DD(38.6,2,21,1,0)="Enter the text for this inconsistency.  This text will display on the"
^DD(38.6,2,21,2,0)="inconsistent data reports.  It describes how the inconsistency occurs."
^DD(38.6,2,"DT")="2870306"
^DD(38.6,3,0)="KEY REQUIRED^RS^0:NO KEY REQUIRED;1:ELIGIBILITY VERIFIED;2:MONEY VERFIED;3:SERVICE VERIFIED;4:KEY ALWAYS REQUIRED;^0;3^Q"
^DD(38.6,3,21,0)="^^8^8^2911211^"
^DD(38.6,3,21,1,0)="Various entries in the PATIENT file become uneditable by certain hospital"
^DD(38.6,3,21,2,0)="personnel once the data has been verified.  If the data has been verified,"
^DD(38.6,3,21,3,0)="the user must hold a key in order to make a change to it.  If the"
^DD(38.6,3,21,4,0)="inconsistency in this file requires a user to hold a key to edit the data"
^DD(38.6,3,21,5,0)="once it has been verified, that key must be listed here."
^DD(38.6,3,21,6,0)=" "
^DD(38.6,3,21,7,0)="Altering of data in this field could cause data to be edited"
^DD(38.6,3,21,8,0)="inappropriately.  This field should not be changed!"
^DD(38.6,3,"DT")="2870312"
^DD(38.6,4,0)="SET ELIG DR STRING^S^1:YES;0:NO;^0;4^Q"
^DD(38.6,4,21,0)="^^10^10^2911211^"
^DD(38.6,4,21,1,0)="If the data required to clean-up this inconsistency requires editing of"
^DD(38.6,4,21,2,0)="data that is related to eligibility, this field should be answered yes."
^DD(38.6,4,21,3,0)="For example, if the inconsistency is 'SC PROMPT UNANSWERED', this field"
^DD(38.6,4,21,4,0)="would be yes because this prompt is required in order to select a"
^DD(38.6,4,21,5,0)="patient's eligibility.  If this field is answered yes, all eligibility"
^DD(38.6,4,21,6,0)="related questions will also be asked."
^DD(38.6,4,21,7,0)=" "
^DD(38.6,4,21,8,0)="Data in this field must not be altered in any way or it could cause"
^DD(38.6,4,21,9,0)="inaccrarate patient data to be entered on your system.  This data is"
^DD(38.6,4,21,10,0)="distributed and maintained by the MAS package."
^DD(38.6,4,"DT")="2870320"
^DD(38.6,5,0)="CHECK/DON'T CHECK^S^0:CHECK;1:DON'T CHECK;^0;5^Q"
^DD(38.6,5,21,0)="^^13^13^2920324^^^"
^DD(38.6,5,21,1,0)="Answer '0' if you want to check this inconsistency locally or '1'"
^DD(38.6,5,21,2,0)="if you wish to ignore it whenever found."
^DD(38.6,5,21,3,0)=" "
^DD(38.6,5,21,4,0)="Most checks provide the ability for them to be turned off locally, however,"
^DD(38.6,5,21,5,0)="there are some consistency checks ('SC PROMPT UNANSWERED', for example)"
^DD(38.6,5,21,6,0)="which will always be turned on regardless of how this promt is answered."
^DD(38.6,5,21,7,0)=" "
^DD(38.6,5,21,8,0)="This field can be edited at the site level."
^DD(38.6,5,21,9,0)=" "
^DD(38.6,5,21,10,0)="The consistency checks that will always be on are 'VETERAN STATUS"
^DD(38.6,5,21,11,0)="UNSPECIFIED', 'SC PROMPT UNANSWERED', 'POS UNSPECIFIED', 'ELIG CODE"
^DD(38.6,5,21,12,0)="UNANSWERED', 'ELIG CODE INCONSISTENT', 'INSURANCE PROMPT UNANSWERED',"
^DD(38.6,5,21,13,0)="and 'EMPLOYMENT STATUS UNANSWERED'."
^DD(38.6,5,"DT")="2870513"
^DD(38.6,6,0)="USE FOR Z07 CHECK^S^0:NO;1:YES;^0;6^Q"
^DD(38.6,6,"DT")="3051013"
^DD(38.6,50,0)="DESCRIPTION^38.61^^D;0"
^DD(38.6,50,21,0)="^^3^3^2911211^"
^DD(38.6,50,21,1,0)="This field contains a full description of how the inconsistency is"
^DD(38.6,50,21,2,0)="created.  This data is provided and maintained by the MAS package and"
^DD(38.6,50,21,3,0)="should not be altered at the site level."
^DD(38.6,"B","CHECK/DON'T CHECK",5)=""
^DD(38.6,"B","DESCRIPTION",50)=""
^DD(38.6,"B","KEY REQUIRED",3)=""
^DD(38.6,"B","NAME",.01)=""
^DD(38.6,"B","NUMBER",.001)=""
^DD(38.6,"B","SET ELIG DR STRING",4)=""
^DD(38.6,"B","TEXT",2)=""
^DD(38.6,"B","USE FOR Z07 CHECK",6)=""
^DD(38.6,"GL",0,1,.01)=""
^DD(38.6,"GL",0,2,2)=""
^DD(38.6,"GL",0,3,3)=""
^DD(38.6,"GL",0,4,4)=""
^DD(38.6,"GL",0,5,5)=""
^DD(38.6,"GL",0,6,6)=""
^DD(38.6,"GL","D",0,50)=""
^DD(38.6,"IX",.01)=""
^DD(38.6,"RQ",.01)=""
^DD(38.6,"RQ",2)=""
^DD(38.6,"RQ",3)=""
^DD(38.6,"SB",38.61,50)=""
^DD(38.61,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(38.61,0,"NM","DESCRIPTION")=""
^DD(38.61,0,"UP")="38.6"
^DD(38.61,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(38.61,.01,"DT")="2870513"
^DD(38.61,"B","DESCRIPTION",.01)=""
^DD(38.61,"GL",0,1,.01)=""
^DD(39.1,0)="FIELD^^12^9"
^DD(39.1,0,"DDA")="N"
^DD(39.1,0,"DT")="2950216"
^DD(39.1,0,"IX","B",39.1,.01)=""
^DD(39.1,0,"IX","C",39.1,5)=""
^DD(39.1,0,"NM","EMBOSSED CARD TYPE")=""
^DD(39.1,0,"VR")="5.3"
^DD(39.1,.001,0)="CARD TYPE^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(39.1,.001,.1)="NUMBER ASSOCIATED WITH THIS CARD TYPE"
^DD(39.1,.001,3)=""
^DD(39.1,.001,10)="GENERATED BY FILE MANAGER"
^DD(39.1,.001,21,0)="^^2^2^2851009^^^^"
^DD(39.1,.001,21,1,0)="This field contains the internal record number that is associated with"
^DD(39.1,.001,21,2,0)="this data card type."
^DD(39.1,.01,0)="NAME^RX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(39.1,.01,1,0)="^.1"
^DD(39.1,.01,1,1,0)="39.1^B"
^DD(39.1,.01,1,1,1)="S ^DIC(39.1,""B"",$E(X,1,30),DA)="""""
^DD(39.1,.01,1,1,2)="K ^DIC(39.1,""B"",$E(X,1,30),DA)"
^DD(39.1,.01,3)=""
^DD(39.1,.01,10)="DEVELOPER"
^DD(39.1,.01,21,0)="^^2^2^2851009^^^^"
^DD(39.1,.01,21,1,0)="This field contains the name of this card type.  Card type names must"
^DD(39.1,.01,21,2,0)="be between 3 and 30 characters in length."
^DD(39.1,.01,"DT")="2850102"
^DD(39.1,1,0)="DEFAULT DEVICE^P39.3'^DIC(39.3,^0;2^Q"
^DD(39.1,1,.1)="DEFAULT EMBOSSER DEVICE FOR THIS CARD TYPE"
^DD(39.1,1,3)=""
^DD(39.1,1,10)="COMPUTER SITE MANAGER"
^DD(39.1,1,21,0)="^^9^9^2951201^^^^"
^DD(39.1,1,21,1,0)="This field is used to assign the default embosser device to be associated"
^DD(39.1,1,21,2,0)="with each card type (Service Connected, Non-Service Connected, Non-Veteran,"
^DD(39.1,1,21,3,0)="Free Text, etc.).  Each card type may be associated with a different embosser"
^DD(39.1,1,21,4,0)="device.  Default devices are assigned at each site by the computer site"
^DD(39.1,1,21,5,0)="manager.  If a default device is not entered here, the user will be"
^DD(39.1,1,21,6,0)="prompted for a device."
^DD(39.1,1,21,7,0)=" "
^DD(39.1,1,21,8,0)="This field points to the EMBOSSER EQUIPMENT file (#39.3).  Therefore, the"
^DD(39.1,1,21,9,0)="device selected here must match an entry in that file."
^DD(39.1,1,"DT")="2850712"
^DD(39.1,2,0)="MANDATORY HOLD^S^1:YES;2:NO;0:ASK;^0;3^Q"
^DD(39.1,2,.1)="AUTOMATIC 'HOLD' STATUS FOR CARDS OF THIS CARD TYPE?"
^DD(39.1,2,10)="COMPUTER SITE MANAGER"
^DD(39.1,2,21,0)="^^10^10^2951201^^^^"
^DD(39.1,2,21,1,0)="This field is used to determine whether or not data cards should be"
^DD(39.1,2,21,2,0)="printed immediately or put into 'Hold' status, or if the user should be"
^DD(39.1,2,21,3,0)="prompted for the correct action. This field can be set up with a different"
^DD(39.1,2,21,4,0)="action for each card type (Service Connected, Non-Service Connected,"
^DD(39.1,2,21,5,0)="Non-Veteran, Free Text, etc.).."
^DD(39.1,2,21,6,0)=" "
^DD(39.1,2,21,7,0)="The computer site manager should set this field to YES to automatically"
^DD(39.1,2,21,8,0)="place the cards in 'Hold' status, to NO to automatically 'Print' the"
^DD(39.1,2,21,9,0)="cards immediately, or to ASK to ask the user to 'Print' or 'Hold'.  If"
^DD(39.1,2,21,10,0)="this field is not edited, the system defaults to ASK. "
^DD(39.1,2,"DT")="2850208"
^DD(39.1,3,0)="DEFAULT NUMBER OF CARDS^NJ1,0^^0;4^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(39.1,3,.1)="DEFAULT NUMBER OF CARDS FOR THIS CARD TYPE"
^DD(39.1,3,3)=""
^DD(39.1,3,10)="COMPUTER SITE MANAGER"
^DD(39.1,3,21,0)="^^5^5^2951211^"
^DD(39.1,3,21,1,0)="This field is used to assign the number of duplicate cards to be embossed"
^DD(39.1,3,21,2,0)="for each card type (Service Connected, Non-Service Connected, Non-Veteran,"
^DD(39.1,3,21,3,0)="Free Text, etc.).  Each card type may be assigned a different default"
^DD(39.1,3,21,4,0)="number of cards.  The default number of cards must be a number between"
^DD(39.1,3,21,5,0)="one and eight."
^DD(39.1,5,0)="TYPE^RS^1:NON SERVICE CONNECTED;2:SERVICE CONNECTED;9:FREE TEXT;3:NON-VETERAN;10:WRISTBAND;^0;6^Q"
^DD(39.1,5,.1)="NAME AND CODE NUMBER ASSOCIATED WITH THIS CARD TYPE"
^DD(39.1,5,1,0)="^.1"
^DD(39.1,5,1,1,0)="39.1^C"
^DD(39.1,5,1,1,1)="S ^DIC(39.1,""C"",$E(X,1,30),DA)="""""
^DD(39.1,5,1,1,2)="K ^DIC(39.1,""C"",$E(X,1,30),DA)"
^DD(39.1,5,3)="Enter the type of card."
^DD(39.1,5,10)="DEVELOPER"
^DD(39.1,5,21,0)="^^3^3^2951201^^^^"
^DD(39.1,5,21,1,0)="This field should contain the name and code number associated with this"
^DD(39.1,5,21,2,0)="data card type.  ('1' for NON SERVICE CONNECTED, '2' for 'SERVICE"
^DD(39.1,5,21,3,0)="CONNECTED, '3' fNON-VETERAN, or '9' for FREE TEXT, '10' for WRISTBAND.)"
^DD(39.1,5,"DT")="2950216"
^DD(39.1,10,0)="LINE NUMBER^39.11^^1;0"
^DD(39.1,10,10)="DEVELOPER"
^DD(39.1,10,21,0)="^^2^2^2951204^^^^"
^DD(39.1,10,21,1,0)="This multiple field contains information about each line to be printed"
^DD(39.1,10,21,2,0)="on the data cards."
^DD(39.1,11,0)="MAIL TO REQUESTOR^RS^Y:YES;N:NO;^0;5^Q"
^DD(39.1,11,.1)="SHOULD ERROR MESSAGE BE SENT TO REQUESTOR?"
^DD(39.1,11,3)=""
^DD(39.1,11,10)="COMPUTER SITE MANAGER"
^DD(39.1,11,21,0)="^^6^6^2851101^^^"
^DD(39.1,11,21,1,0)="This field is used to determine if users who request data cards who are"
^DD(39.1,11,21,2,0)="not in the DGEMBOSSER mail group should receive embosser error messages."
^DD(39.1,11,21,3,0)="If this field is set to YES, then a user who requests a card that does"
^DD(39.1,11,21,4,0)="not get embossed due to an error will receive an error message.  If this"
^DD(39.1,11,21,5,0)="field is set to NO, only members of the DGEMBOSSER mail group will"
^DD(39.1,11,21,6,0)="receive the message."
^DD(39.1,11,"DT")="2851101"
^DD(39.1,12,0)="CARDS IN HOLD^39.13P^^HOLD;0"
^DD(39.1,12,21,0)="^^2^2^2911222^"
^DD(39.1,12,21,1,0)="This multiple contains the number of this card type that are presently"
^DD(39.1,12,21,2,0)="in hold awaiting printing."
^DD(39.1,"B","CARD TYPE",.001)=""
^DD(39.1,"B","CARDS IN HOLD",12)=""
^DD(39.1,"B","DEFAULT DEVICE",1)=""
^DD(39.1,"B","DEFAULT NUMBER OF CARDS",3)=""
^DD(39.1,"B","LINE NUMBER",10)=""
^DD(39.1,"B","MAIL TO REQUESTOR",11)=""
^DD(39.1,"B","MANDATORY HOLD",2)=""
^DD(39.1,"B","NAME",.01)=""
^DD(39.1,"B","TYPE",5)=""
^DD(39.1,"GL",0,1,.01)=""
^DD(39.1,"GL",0,2,1)=""
^DD(39.1,"GL",0,3,2)=""
^DD(39.1,"GL",0,4,3)=""
^DD(39.1,"GL",0,5,11)=""
^DD(39.1,"GL",0,6,5)=""
^DD(39.1,"GL",1,0,10)=""
^DD(39.1,"GL","HOLD",0,12)=""
^DD(39.1,"IX",.01)=""
^DD(39.1,"IX",5)=""
^DD(39.1,"RQ",.01)=""
^DD(39.1,"RQ",5)=""
^DD(39.1,"RQ",11)=""
^DD(39.1,"SB",39.11,10)=""
^DD(39.1,"SB",39.13,12)=""
^DD(39.11,0)="LINE NUMBER SUB-FIELD^NL^1^2"
^DD(39.11,0,"DT")="2950216"
^DD(39.11,0,"NM","LINE NUMBER")=""
^DD(39.11,0,"UP")="39.1"
^DD(39.11,.01,0)="LINE NUMBER^MNJ1,0X^^0;1^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(39.11,.01,.1)=""
^DD(39.11,.01,3)=""
^DD(39.11,.01,10)="DEVELOPER"
^DD(39.11,.01,21,0)="^^2^2^2851101^^^^"
^DD(39.11,.01,21,1,0)="This field contains a number between 1 and 9 to indicate a line of the"
^DD(39.11,.01,21,2,0)="data card."
^DD(39.11,.01,"DT")="2950321"
^DD(39.11,1,0)="DATA ITEM^39.12P^^1;0"
^DD(39.11,1,10)="DEVELOPER"
^DD(39.11,1,21,0)="^^2^2^2851009^^^^"
^DD(39.11,1,21,1,0)="This multiple field contains information about each data item to be"
^DD(39.11,1,21,2,0)="printed on a line of the data card."
^DD(39.11,"B","DATA ITEM",1)=""
^DD(39.11,"B","LINE NUMBER",.01)=""
^DD(39.11,"GL",0,1,.01)=""
^DD(39.11,"GL",1,0,1)=""
^DD(39.11,"SB",39.12,1)=""
^DD(39.12,0)="DATA ITEM SUB-FIELD^NL^2^4"
^DD(39.12,0,"DT")="2950216"
^DD(39.12,0,"NM","DATA ITEM")=""
^DD(39.12,0,"UP")="39.11"
^DD(39.12,.001,0)="FIELD POSITION^NJ2,0^^ ^K:+X'=X!(X>26)!(X<1)!(X?.E1"".""1N.N) X"
^DD(39.12,.001,.1)="NUMBER ASSOCIATED WITH THIS FIELD POSITION"
^DD(39.12,.001,3)=""
^DD(39.12,.001,10)="GENERATED BY FILE MANAGER"
^DD(39.12,.001,21,0)="^^2^2^2851009^^^^"
^DD(39.12,.001,21,1,0)="This field contains the internal record number that is associated with"
^DD(39.12,.001,21,2,0)="this field position."
^DD(39.12,.01,0)="DATA ITEM^MP39.2'^DIC(39.2,^0;1^Q"
^DD(39.12,.01,.1)="NAME OF THIS DATA ITEM"
^DD(39.12,.01,10)="DEVELOPER"
^DD(39.12,.01,21,0)="^^2^2^2950323^^^"
^DD(39.12,.01,21,1,0)="This field points to the EMBOSSING DATA file (#39.2) to indicate the"
^DD(39.12,.01,21,2,0)="name of this data item."
^DD(39.12,1,0)="STARTING COLUMN^NJ2,0^^0;2^K:+X'=X!(X>35)!(X<1)!(X?.E1"".""1N.N) X"
^DD(39.12,1,.1)="STARTING COLUMN OF THIS DATA ITEM"
^DD(39.12,1,3)="Type a Number between 1 and 35, 0 Decimal Digits"
^DD(39.12,1,10)="DEVELOPER"
^DD(39.12,1,21,0)="^^2^2^2950323^^^^"
^DD(39.12,1,21,1,0)="This field contains a number between 1 and 35 to indicate the starting"
^DD(39.12,1,21,2,0)="column position of this data item."
^DD(39.12,1,"DT")="2950216"
^DD(39.12,2,0)="LENGTH^NJ2,0^^0;3^K:+X'=X!(X>40)!(X<1)!(X?.E1"".""1N.N) X"
^DD(39.12,2,.1)="LENGTH OF THIS DATA ITEM"
^DD(39.12,2,3)="Type a Number between 1 and 40, 0 Decimal Digits"
^DD(39.12,2,10)="DEVELOPER"
^DD(39.12,2,21,0)="^^2^2^2950323^^^"
^DD(39.12,2,21,1,0)="This field contains a number between 1 and 40 to indicate the length of"
^DD(39.12,2,21,2,0)="this data item."
^DD(39.12,2,"DT")="2950216"
^DD(39.12,"B","DATA ITEM",.01)=""
^DD(39.12,"B","FIELD POSITION",.001)=""
^DD(39.12,"B","LENGTH",2)=""
^DD(39.12,"B","LENGTH OF THIS DATA ITEM",2)="1"
^DD(39.12,"B","NAME OF THIS DATA ITEM",.01)="1"
^DD(39.12,"B","STARTING COLUMN",1)=""
^DD(39.12,"GL",0,1,.01)=""
^DD(39.12,"GL",0,2,1)=""
^DD(39.12,"GL",0,3,2)=""
^DD(39.13,0)="CARDS IN HOLD SUB-FIELD^NL^1^2"
^DD(39.13,0,"NM","CARDS IN HOLD")=""
^DD(39.13,0,"UP")="39.1"
^DD(39.13,.01,0)="CARDS IN HOLD^P2'^DPT(^0;1^Q"
^DD(39.13,.01,21,0)="^^2^2^2911222^^"
^DD(39.13,.01,21,1,0)="This field contains a pointer to the PATIENT file indicating the"
^DD(39.13,.01,21,2,0)="patient for which this card is presently in a hold status."
^DD(39.13,.01,"DT")="2860214"
^DD(39.13,1,0)="FREE TEXT^39.14A^^1;0"
^DD(39.13,1,21,0)="^^2^2^2911222^"
^DD(39.13,1,21,1,0)="This multiple contains all of the data necessary to emboss a card for"
^DD(39.13,1,21,2,0)="this patient."
^DD(39.13,"B","CARDS IN HOLD",.01)=""
^DD(39.13,"B","FREE TEXT",1)=""
^DD(39.13,"GL",0,1,.01)=""
^DD(39.13,"GL",1,0,1)=""
^DD(39.13,"SB",39.14,1)=""
^DD(39.14,0)="FREE TEXT SUB-FIELD^NL^.01^1"
^DD(39.14,0,"NM","FREE TEXT")=""
^DD(39.14,0,"UP")="39.13"
^DD(39.14,.01,0)="FREE TEXT^F^^0;1^K:$L(X)>27!($L(X)<1) X"
^DD(39.14,.01,3)="ANSWER MUST BE 1-27 CHARACTERS IN LENGTH"
^DD(39.14,.01,21,0)="^^2^2^2911222^^"
^DD(39.14,.01,21,1,0)="This field contains a free text comment that will appear at the bottom of"
^DD(39.14,.01,21,2,0)="the patient's data card."
^DD(39.14,.01,"DT")="2860214"
^DD(39.14,"B","FREE TEXT",.01)=""
^DD(39.14,"GL",0,1,.01)=""
^DD(39.2,0)="FIELD^^1^2"
^DD(39.2,0,"IX","B",39.2,.01)=""
^DD(39.2,0,"NM","EMBOSSING DATA")=""
^DD(39.2,0,"PT",39.12,.01)=""
^DD(39.2,0,"VR")="5.3"
^DD(39.2,.01,0)="NAME^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(39.2,.01,.1)="NAME OF THIS DATA ITEM"
^DD(39.2,.01,1,0)="^.1"
^DD(39.2,.01,1,1,0)="39.2^B"
^DD(39.2,.01,1,1,1)="S ^DIC(39.2,""B"",$E(X,1,30),DA)="""""
^DD(39.2,.01,1,1,2)="K ^DIC(39.2,""B"",$E(X,1,30),DA)"
^DD(39.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(39.2,.01,10)="DEVELOPER"
^DD(39.2,.01,21,0)="^^2^2^2911024^^"
^DD(39.2,.01,21,1,0)="This field contains the name of the data item to be printed on the data"
^DD(39.2,.01,21,2,0)="card.  Data item names must be between 3 and 30 characters in length."
^DD(39.2,.01,"DT")="2851007"
^DD(39.2,1,0)="MUMPS CODE^F^^1;E1,250^K:$L(X)>250!($L(X)<1) X I $D(X) D ^DIM"
^DD(39.2,1,.1)="MUMPS CODE OF THIS DATA ITEM"
^DD(39.2,1,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(39.2,1,10)="DEVELOPER"
^DD(39.2,1,21,0)="^^2^2^2911024^^"
^DD(39.2,1,21,1,0)="This field contains the MUMPS code associated with the data item to be"
^DD(39.2,1,21,2,0)="printed on the data card.  This code must be between 1 and 250 characters."
^DD(39.2,1,"DT")="2841024"
^DD(39.2,"B","MUMPS CODE",1)=""
^DD(39.2,"B","MUMPS CODE OF THIS DATA ITEM",1)="1"
^DD(39.2,"B","NAME",.01)=""
^DD(39.2,"B","NAME OF THIS DATA ITEM",.01)="1"
^DD(39.2,"GL",0,1,.01)=""
^DD(39.2,"GL",1,"E1,250",1)=""
^DD(39.2,"IX",.01)=""
^DD(39.2,"RQ",.01)=""
^DD(39.3,0)="FIELD^^2^3"
^DD(39.3,0,"DDA")="N"
^DD(39.3,0,"IX","B",39.3,.01)=""
^DD(39.3,0,"NM","EMBOSSER EQUIPMENT FILE")=""
^DD(39.3,0,"PT",39.1,1)=""
^DD(39.3,0,"VR")="5.3"
^DD(39.3,.01,0)="NAME^RFX^^0;1^K:'$D(^%ZIS(1,""B"",$E(X,1,30))) X"
^DD(39.3,.01,1,0)="^.1"
^DD(39.3,.01,1,1,0)="39.3^B"
^DD(39.3,.01,1,1,1)="S ^DIC(39.3,""B"",$E(X,1,30),DA)="""""
^DD(39.3,.01,1,1,2)="K ^DIC(39.3,""B"",$E(X,1,30),DA)"
^DD(39.3,.01,3)="MUST ENTER A DEVICE THAT IS IN THE DEVICE FILE"
^DD(39.3,.01,4)="I DZ=""??"" W ! S N=0,L=0 F I=1:1 S N=$N(^%ZIS(1,""B"",N)) Q:N<0  W !?5,N S L=L+1 I L>21 R !,""""""^"""" TO QUIT: "",X:DTIME Q:X=""^""  W $C(13),$J("""",15),$C(13) S L=0"
^DD(39.3,.01,10)="COMPUTER SITE MANAGER"
^DD(39.3,.01,21,0)="^^3^3^2930609^^^^"
^DD(39.3,.01,21,1,0)="This field is used to assign the names of the devices to be used to "
^DD(39.3,.01,21,2,0)="print data cards.  This field points to the DEVICE file (#3.5) therefore,"
^DD(39.3,.01,21,3,0)="a name entered here must match a name currently in that file."
^DD(39.3,.01,"DEL",1,0)="I '$D(DGMENU) W !?4,*7,""Delete EMBOSSER DEVICE via the 'Edit Embosser Device File' menu option."""
^DD(39.3,.01,"DT")="2850513"
^DD(39.3,1,0)="EMBOSSER TYPE^S^1:DATA CARD;2:ADDRESSOGRAPH;0:PLAIN PRINTER;^0;2^Q"
^DD(39.3,1,.1)="TYPE OF THIS EMBOSSER DEVICE"
^DD(39.3,1,10)="COMPUTER SITE MANAGER"
^DD(39.3,1,21,0)="^^3^3^2911024^^"
^DD(39.3,1,21,1,0)="This field is used to assign the type of the embosser device.  Following"
^DD(39.3,1,21,2,0)="are the available embosser types and their associated code number:"
^DD(39.3,1,21,3,0)="'1' for DATACARD, '2' for ADDRESSOGRAPH, and '0' for PLAIN PRINTER."
^DD(39.3,1,"DT")="2841220"
^DD(39.3,2,0)="NUMBER OF CARDS EMBOSSED^39.31A^^1;0"
^DD(39.3,2,10)="SYSTEM GENERATED"
^DD(39.3,2,21,0)="^^2^2^2911024^^^^"
^DD(39.3,2,21,1,0)="This multiple field gives information that may be useful to site managers"
^DD(39.3,2,21,2,0)="about data cards that have been processed."
^DD(39.3,"B","EMBOSSER TYPE",1)=""
^DD(39.3,"B","NAME",.01)=""
^DD(39.3,"B","NUMBER OF CARDS EMBOSSED",2)=""
^DD(39.3,"B","TYPE OF THIS EMBOSSER DEVICE",1)="1"
^DD(39.3,"GL",0,1,.01)=""
^DD(39.3,"GL",0,2,1)=""
^DD(39.3,"GL",1,0,2)=""
^DD(39.3,"IX",.01)=""
^DD(39.3,"RQ",.01)=""
^DD(39.3,"SB",39.31,2)=""
^DD(39.31,0)="NUMBER OF CARDS EMBOSSED SUB-FIELD^NL^3^5"
^DD(39.31,0,"NM","NUMBER OF CARDS EMBOSSED")=""
^DD(39.31,0,"UP")="39.3"
^DD(39.31,.001,0)="DATE^DI^^ ^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(39.31,.001,.1)="DATE OF EMBOSSING"
^DD(39.31,.001,10)="SYSTEM GENERATED"
^DD(39.31,.001,21,0)="^^4^4^2851008^^"
^DD(39.31,.001,21,1,0)="This field is used by the system to keep track of each date that cards"
^DD(39.31,.001,21,2,0)="have been embossed by a certain embossing device.  Information is kept"
^DD(39.31,.001,21,3,0)="by the system about the data cards embossed and may be retrieved by"
^DD(39.31,.001,21,4,0)="using the date in this field as a basis for database searches."
^DD(39.31,.001,"DT")="2850712"
^DD(39.31,.01,0)="NUMBER OF CARDS^MNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(39.31,.01,.1)="NUMBER OF CARDS EMBOSSED"
^DD(39.31,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(39.31,.01,10)="SYSTEM GENERATED"
^DD(39.31,.01,21,0)="^^4^4^2851008^^^^"
^DD(39.31,.01,21,1,0)="This field is used by the system to keep track of the number of cards"
^DD(39.31,.01,21,2,0)="embossed on a certain embossing device.  This field can be used as a"
^DD(39.31,.01,21,3,0)="basis for database searches.  (i.e. How many cards were embossed on "
^DD(39.31,.01,21,4,0)="Device 1 on October 1, 1985?)"
^DD(39.31,.01,"DT")="2901214"
^DD(39.31,1,0)="NUMBER OF SOFT ERRORS^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(39.31,1,.1)="NUMBER OF SOFTWARE ERRORS"
^DD(39.31,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(39.31,1,10)="SYSTEM GENERATED"
^DD(39.31,1,21,0)="^^5^5^2851008^^^^"
^DD(39.31,1,21,1,0)="This field is used by the system to keep track of how many software"
^DD(39.31,1,21,2,0)="errors have occurred that are related to a certain embossing device. "
^DD(39.31,1,21,3,0)="This field can be used as a basis for database searches.  (i.e.  How"
^DD(39.31,1,21,4,0)="many software errors have occurred that are related to Device 1 on "
^DD(39.31,1,21,5,0)="October 1, 1985?)"
^DD(39.31,1,"DT")="2901214"
^DD(39.31,2,0)="NUMBER OF HARD ERRORS^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(39.31,2,.1)="NUMBER OF HARDWARE ERRORS"
^DD(39.31,2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(39.31,2,10)="SYSTEM GENERATED"
^DD(39.31,2,21,0)="^^6^6^2851029^^^^"
^DD(39.31,2,21,1,0)="This field is used by the system to keep track of how many card related"
^DD(39.31,2,21,2,0)="errors have occurred on a certain embossing device.  For example, this"
^DD(39.31,2,21,3,0)="field will be incremented if a card jams."
^DD(39.31,2,21,4,0)=" "
^DD(39.31,2,21,5,0)="This field can be used as a basis for database searches.  For example,"
^DD(39.31,2,21,6,0)="How many hard errors occured on Device 1 on October 1, 1985?"
^DD(39.31,2,"DT")="2901214"
^DD(39.31,3,0)="NUMBER OF UNKNOWN TYPE ERRORS^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(39.31,3,.1)="NUMBER OF UNKNOWN TYPE ERRORS THAT OCCURRED"
^DD(39.31,3,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(39.31,3,10)="SYSTEM GENERATED"
^DD(39.31,3,21,0)="^^6^6^2851008^^^"
^DD(39.31,3,21,1,0)="This field is used by the system to keep track of how many unknown type"
^DD(39.31,3,21,2,0)="errors have occurred on a certain device.  If the system cannot determine"
^DD(39.31,3,21,3,0)="if an error is hardware or software related, the system will consider"
^DD(39.31,3,21,4,0)="it an unknown type error.  This field can be used as a basis for"
^DD(39.31,3,21,5,0)="database searches.  (i.e.  How many unknown type errors have occurred on"
^DD(39.31,3,21,6,0)="Device 1 on October 1, 1985?)"
^DD(39.31,3,"DT")="2901214"
^DD(39.31,"B","DATE",.001)=""
^DD(39.31,"B","DATE OF EMBOSSING",.001)="1"
^DD(39.31,"B","NUMBER OF CARDS",.01)=""
^DD(39.31,"B","NUMBER OF CARDS EMBOSSED",.01)="1"
^DD(39.31,"B","NUMBER OF HARD ERRORS",2)=""
^DD(39.31,"B","NUMBER OF HARDWARE ERRORS",2)="1"
^DD(39.31,"B","NUMBER OF SOFT ERRORS",1)=""
^DD(39.31,"B","NUMBER OF SOFTWARE ERRORS",1)="1"
^DD(39.31,"B","NUMBER OF UNKNOWN TYPE ERRORS",3)=""
^DD(39.31,"GL",0,1,.01)=""
^DD(39.31,"GL",0,2,1)=""
^DD(39.31,"GL",0,3,2)=""
^DD(39.31,"GL",0,4,3)=""
^DD(39.4,0)="FIELD^^.08^8"
^DD(39.4,0,"DDA")="N"
^DD(39.4,0,"DT")="2960816"
^DD(39.4,0,"IX","AC",39.4,.07)=""
^DD(39.4,0,"IX","B",39.4,.01)=""
^DD(39.4,0,"NM","ADT/HL7 TRANSMISSION")=""
^DD(39.4,0,"VR")="5.3"
^DD(39.4,0,"VRPK")="DG"
^DD(39.4,.01,0)="MESSAGE ID^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(39.4,.01,1,0)="^.1"
^DD(39.4,.01,1,1,0)="39.4^B"
^DD(39.4,.01,1,1,1)="S ^VAT(39.4,""B"",$E(X,1,30),DA)="""""
^DD(39.4,.01,1,1,2)="K ^VAT(39.4,""B"",$E(X,1,30),DA)"
^DD(39.4,.01,3)="Answer must be 1-20 characters in length."
^DD(39.4,.01,21,0)="^^1^1^2960814^"
^DD(39.4,.01,21,1,0)="The unique ID for the HL7 message"
^DD(39.4,.01,"DT")="2960814"
^DD(39.4,.02,0)="TRANSMISSION DATE/TIME^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(39.4,.02,21,0)="^^1^1^2960816^^"
^DD(39.4,.02,21,1,0)="This field contains the date/time that the message was generated"
^DD(39.4,.02,"DT")="2960816"
^DD(39.4,.03,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(39.4,.03,21,0)="^^1^1^2960814^"
^DD(39.4,.03,21,1,0)="The name of the patient for which this transmission occurred"
^DD(39.4,.03,"DT")="2960814"
^DD(39.4,.04,0)="TRANSMITTED BY^P200'^VA(200,^0;4^Q"
^DD(39.4,.04,21,0)="^^2^2^2960814^"
^DD(39.4,.04,21,1,0)="This field is used to indicate which person caused the transmission to be"
^DD(39.4,.04,21,2,0)="sent."
^DD(39.4,.04,"DT")="2960814"
^DD(39.4,.05,0)="DHCP OPTION^P19'^DIC(19,^0;5^Q"
^DD(39.4,.05,21,0)="^^1^1^2960930^"
^DD(39.4,.05,21,1,0)="This field will contain the option from which the transaction was invoked."
^DD(39.4,.05,"DT")="2960814"
^DD(39.4,.06,0)="SENDING APPLICATION^P771'^HL(771,^0;6^Q"
^DD(39.4,.06,21,0)="^^1^1^2960814^"
^DD(39.4,.06,21,1,0)="This field contain the application which generated the transmission."
^DD(39.4,.06,"DT")="2960814"
^DD(39.4,.07,0)="STATUS^S^0:TRANSMITTED;1:REJECT ACK;^0;7^Q"
^DD(39.4,.07,1,0)="^.1"
^DD(39.4,.07,1,1,0)="39.4^AC^MUMPS"
^DD(39.4,.07,1,1,1)="I X=1 S ^VAT(39.4,""AC"",0,DA)="""""
^DD(39.4,.07,1,1,2)="I X=1 K ^VAT(39.4,""AC"",0,DA)"
^DD(39.4,.07,1,1,"%D",0)="^^2^2^2960816^"
^DD(39.4,.07,1,1,"%D",1,0)="This cross reference will contain only those records for which a negative"
^DD(39.4,.07,1,1,"%D",2,0)="acknowledgement was received."
^DD(39.4,.07,1,1,"DT")="2960816"
^DD(39.4,.07,21,0)="^^2^2^2960816^"
^DD(39.4,.07,21,1,0)="This field will contain a 0 if the record has been transmitted but not yet"
^DD(39.4,.07,21,2,0)="acknowledged.  It will contain a 1 if a negative acknowledgement is returned"
^DD(39.4,.07,"DT")="2960816"
^DD(39.4,.08,0)="REJECT REASON^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(39.4,.08,3)="Answer must be 1-80 characters in length."
^DD(39.4,.08,21,0)="^^1^1^2960816^^^"
^DD(39.4,.08,21,1,0)="This field will contain a message explaining why the transmission was rejected."
^DD(39.4,.08,"DT")="2960816"
^DD(39.4,"B","DHCP OPTION",.05)=""
^DD(39.4,"B","MESSAGE ID",.01)=""
^DD(39.4,"B","PATIENT",.03)=""
^DD(39.4,"B","REJECT REASON",.08)=""
^DD(39.4,"B","SENDING APPLICATION",.06)=""
^DD(39.4,"B","STATUS",.07)=""
^DD(39.4,"B","TRANSMISSION DATE/TIME",.02)=""
^DD(39.4,"B","TRANSMITTED BY",.04)=""
^DD(39.4,"GL",0,1,.01)=""
^DD(39.4,"GL",0,2,.02)=""
^DD(39.4,"GL",0,3,.03)=""
^DD(39.4,"GL",0,4,.04)=""
^DD(39.4,"GL",0,5,.05)=""
^DD(39.4,"GL",0,6,.06)=""
^DD(39.4,"GL",0,7,.07)=""
^DD(39.4,"GL",0,8,.08)=""
^DD(39.4,"IX",.01)=""
^DD(39.4,"IX",.07)=""
^DD(39.4,"RQ",.01)=""
^DD(39.6,0)="FIELD^^.05^5"
^DD(39.6,0,"DDA")="N"
^DD(39.6,0,"DT")="3040211"
^DD(39.6,0,"IX","B",39.6,.01)=""
^DD(39.6,0,"NM","VIC REQUEST")=""
^DD(39.6,0,"PT",39.7,.02)=""
^DD(39.6,0,"VR")="5.3"
^DD(39.6,0,"VRPK")="DG"
^DD(39.6,.01,0)="NCMD CARD ID^RF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(39.6,.01,1,0)="^.1"
^DD(39.6,.01,1,1,0)="39.6^B"
^DD(39.6,.01,1,1,1)="S ^DGQE(39.6,""B"",$E(X,1,30),DA)="""""
^DD(39.6,.01,1,1,2)="K ^DGQE(39.6,""B"",$E(X,1,30),DA)"
^DD(39.6,.01,3)="Answer must be 1-60 characters in length."
^DD(39.6,.01,21,0)="^^7^7^3040204^"
^DD(39.6,.01,21,1,0)="This field contains the Veteran ID Card (VIC) Card ID that is assigned"
^DD(39.6,.01,21,2,0)="when a VIC request is stored to the National Card Management Directory.  "
^DD(39.6,.01,21,3,0)="The VIC Picture Image Capture Software sets this value through an RPC call"
^DD(39.6,.01,21,4,0)="after successfully submitting a VIC request to the NCMD."
^DD(39.6,.01,21,5,0)="                                 "
^DD(39.6,.01,21,6,0)="Card ID format: "
^DD(39.6,.01,21,7,0)="  patient SSN_""-""_patient lastname_""-""_NCMD number"
^DD(39.6,.01,"DT")="3031229"
^DD(39.6,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(39.6,.02,1,0)="^.1^^0"
^DD(39.6,.02,3)="Enter the patient with a missing national ICN or Enrollment Status."
^DD(39.6,.02,21,0)="^^2^2^3040205^"
^DD(39.6,.02,21,1,0)="This field contains the patient that is missing a national ICN or has a "
^DD(39.6,.02,21,2,0)="pending Enrollment Status."
^DD(39.6,.02,"DT")="3040205"
^DD(39.6,.03,0)="CARD PRINT RELEASE STATUS^RS^H:HOLD;P:PRINT;C:CANCEL;I:INELIGIBLE;^0;3^Q"
^DD(39.6,.03,3)="Enter ""H"" for HOLD, ""P"" for PRINT, ""I"" for INELGIBLE, or ""C"" for CANCEL"
^DD(39.6,.03,21,0)="^^3^3^3040211^"
^DD(39.6,.03,21,1,0)="This field contains the VIC request status as a set of codes.  ""H""old "
^DD(39.6,.03,21,2,0)="status requests are periodically checked to determine if the status can "
^DD(39.6,.03,21,3,0)="be modified to either ""P""rint, ""I""neligible, or ""C""ancel."
^DD(39.6,.03,"DT")="3040211"
^DD(39.6,.04,0)="REQUEST DATE/TIME^RD^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(39.6,.04,3)="Enter the Date and Time that a VIC request is entered."
^DD(39.6,.04,21,0)="^^3^3^3031229^"
^DD(39.6,.04,21,1,0)="This field contains the date and time that a VIC request was successfully "
^DD(39.6,.04,21,2,0)="submitted from the VIC Image Capture Workstation to the National Card "
^DD(39.6,.04,21,3,0)="Management Directory."
^DD(39.6,.04,"DT")="3031230"
^DD(39.6,.05,0)="TRANSMISSION REQUIRED?^R*S^Y:YES;N:NO;^0;5^Q"
^DD(39.6,.05,3)="Enter YES or NO."
^DD(39.6,.05,12)="YES cannot be selected when the CARD PRINT RELEASE STATUS is ""HOLD""."
^DD(39.6,.05,12.1)="S DIC(""S"")=""I Y=""""N""""!($P(^DGQE(39.6,DA,0),U,3)'=""""H"""")"""
^DD(39.6,.05,21,0)="^.001^2^2^3040226^^"
^DD(39.6,.05,21,1,0)="This field indicates whether or not the VIC request is to be transmitted "
^DD(39.6,.05,21,2,0)="from VistA to the NCMD."
^DD(39.6,.05,"DT")="3031231"
^DD(39.6,"B","CARD PRINT RELEASE STATUS",.03)=""
^DD(39.6,"B","NCMD CARD ID",.01)=""
^DD(39.6,"B","PATIENT",.02)=""
^DD(39.6,"B","REQUEST DATE/TIME",.04)=""
^DD(39.6,"B","TRANSMISSION REQUIRED?",.05)=""
^DD(39.6,"GL",0,1,.01)=""
^DD(39.6,"GL",0,2,.02)=""
^DD(39.6,"GL",0,3,.03)=""
^DD(39.6,"GL",0,4,.04)=""
^DD(39.6,"GL",0,5,.05)=""
^DD(39.6,"IX",.01)=""
^DD(39.6,"RQ",.01)=""
^DD(39.6,"RQ",.02)=""
^DD(39.6,"RQ",.03)=""
^DD(39.6,"RQ",.04)=""
^DD(39.6,"RQ",.05)=""
^DD(39.7,0)="FIELD^^.05^5"
^DD(39.7,0,"DT")="3031229"
^DD(39.7,0,"IX","B",39.7,.01)=""
^DD(39.7,0,"NM","VIC HL7 TRANSMISSION LOG")=""
^DD(39.7,0,"VR")="5.3"
^DD(39.7,0,"VRPK")="DG"
^DD(39.7,.01,0)="MESSAGE CONTROL ID^RF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(39.7,.01,1,0)="^.1"
^DD(39.7,.01,1,1,0)="39.7^B"
^DD(39.7,.01,1,1,1)="S ^DGQE(39.7,""B"",$E(X,1,30),DA)="""""
^DD(39.7,.01,1,1,2)="K ^DGQE(39.7,""B"",$E(X,1,30),DA)"
^DD(39.7,.01,3)="Answer must be 1-20 characters in length."
^DD(39.7,.01,21,0)="^.001^2^2^3031229^^"
^DD(39.7,.01,21,1,0)="This field contains the HL7 Message ID of the transmitted General "
^DD(39.7,.01,21,2,0)="Order (ORM~O01) message."
^DD(39.7,.01,"DT")="3031229"
^DD(39.7,.02,0)="VIC REQUEST^RP39.6'^DGQE(39.6,^0;2^Q"
^DD(39.7,.02,3)="Enter the corresponding VIC REQUEST for this HL7 transmission."
^DD(39.7,.02,21,0)="^^2^2^3040205^"
^DD(39.7,.02,21,1,0)="This field contains the VIC request that generated the General Order "
^DD(39.7,.02,21,2,0)="(ORM~O01) HL7 message transmitted to the NCMD."
^DD(39.7,.02,"DT")="3031229"
^DD(39.7,.03,0)="TRANSMITTED DATE/TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(39.7,.03,3)="Enter the date and time that the HL7 message is transmitted."
^DD(39.7,.03,21,0)="^^2^2^3031229^"
^DD(39.7,.03,21,1,0)="This field contains the date and time that the General Order (ORM~O01) HL7"
^DD(39.7,.03,21,2,0)="message is transmitted."
^DD(39.7,.03,"DT")="3031229"
^DD(39.7,.04,0)="STATUS^RS^T:TRANSMITTED;A:ACCEPTED;RJ:REJECTED;RT:RETRANSMITTED;^0;4^Q"
^DD(39.7,.04,3)="Enter the transmission status (""T"", ""A"", ""RJ"", or ""RT"")."
^DD(39.7,.04,21,0)="^^1^1^3031229^"
^DD(39.7,.04,21,1,0)="This field contains the status of the HL7 transmission as a set of codes."
^DD(39.7,.04,"DT")="3040102"
^DD(39.7,.05,0)="ACK RECEIVED DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(39.7,.05,3)="Enter the date and time of the received General Orders Response."
^DD(39.7,.05,21,0)="^^2^2^3031229^"
^DD(39.7,.05,21,1,0)="This field contains the date and time that a General Order Response "
^DD(39.7,.05,21,2,0)="(ORR~O02) HL7 message was received acknowledging the transmission."
^DD(39.7,.05,"DT")="3031229"
^DD(39.7,"B","ACK RECEIVED DATE/TIME",.05)=""
^DD(39.7,"B","MESSAGE CONTROL ID",.01)=""
^DD(39.7,"B","STATUS",.04)=""
^DD(39.7,"B","TRANSMITTED DATE/TIME",.03)=""
^DD(39.7,"B","VIC REQUEST",.02)=""
^DD(39.7,"GL",0,1,.01)=""
^DD(39.7,"GL",0,2,.02)=""
^DD(39.7,"GL",0,3,.03)=""
^DD(39.7,"GL",0,4,.04)=""
^DD(39.7,"GL",0,5,.05)=""
^DD(39.7,"IX",.01)=""
^DD(39.7,"RQ",.01)=""
^DD(39.7,"RQ",.02)=""
^DD(39.7,"RQ",.03)=""
^DD(39.7,"RQ",.04)=""
^DD(40.1,0)="FIELD^^1^2"
^DD(40.1,0,"DDA")="N"
^DD(40.1,0,"DT")="2940330"
^DD(40.1,0,"IX","AREL",40.11,21)=""
^DD(40.1,0,"IX","ASUS",40.11,20)=""
^DD(40.1,0,"IX","ASUS1",40.11,21)=""
^DD(40.1,0,"IX","AVD",40.11,.01)=""
^DD(40.1,0,"IX","B",40.1,.01)=""
^DD(40.1,0,"NM","OPC")=""
^DD(40.1,0,"VR")="5.3"
^DD(40.1,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X Q"
^DD(40.1,.01,1,0)="^.1"
^DD(40.1,.01,1,1,0)="40.1^B"
^DD(40.1,.01,1,1,1)="S ^SDASF(""B"",$E(X,1,30),DA)="""""
^DD(40.1,.01,1,1,2)="K ^SDASF(""B"",$E(X,1,30),DA)"
^DD(40.1,.01,3)=""
^DD(40.1,.01,21,0)="^^4^4^2920721^^"
^DD(40.1,.01,21,1,0)="Enter the applicant's name in 'Last,First Middle' format between 3-30"
^DD(40.1,.01,21,2,0)="characters.  Do not use numerics or lowercase alphabetic characters."
^DD(40.1,.01,21,3,0)="With the exception of the comma, period, space, hyphen, dash and"
^DD(40.1,.01,21,4,0)="apostrophe punctuation characters should be avoided."
^DD(40.1,.01,"DT")="2870527"
^DD(40.1,1,0)="VISIT DATE^40.11DA^^1;0"
^DD(40.1,1,21,0)="^^2^2^2940330^^^^"
^DD(40.1,1,21,1,0)="This field is a multiple containing information about the Visit"
^DD(40.1,1,21,2,0)="Date of a particular patient."
^DD(40.1,"B","NAME",.01)=""
^DD(40.1,"B","VISIT DATE",1)=""
^DD(40.1,"GL",0,1,.01)=""
^DD(40.1,"GL",1,0,1)=""
^DD(40.1,"IX",.01)=""
^DD(40.1,"RQ",.01)=""
^DD(40.1,"SB",40.11,1)=""
^DD(40.11,0)="VISIT DATE SUB-FIELD^NL^21^25"
^DD(40.11,0,"DT")="2940330"
^DD(40.11,0,"NM","VISIT DATE")=""
^DD(40.11,0,"UP")="40.1"
^DD(40.11,.01,0)="VISIT DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(40.11,.01,1,0)="^.1"
^DD(40.11,.01,1,1,0)="40.1^AVD^MUMPS"
^DD(40.11,.01,1,1,1)="S ^SDASF(""AVD"",$E(X,1,30),DA(1))="""""
^DD(40.11,.01,1,1,2)="K ^SDASF(""AVD"",$E(X,1,30),DA(1))"
^DD(40.11,.01,21,0)="^^1^1^2920721^^"
^DD(40.11,.01,21,1,0)="This field contains the date of the outpatient appointment for a patient."
^DD(40.11,.01,"DT")="2870401"
^DD(40.11,.02,0)="SEX^RF^^0;6^K:$L(X)>1!($L(X)<1) X"
^DD(40.11,.02,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(40.11,.02,21,0)="^^1^1^2920721^^"
^DD(40.11,.02,21,1,0)="This field contains 'M' if this applicant is a male, or 'F' if female."
^DD(40.11,.03,0)="BIRTH YEAR^RF^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(40.11,.03,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(40.11,.03,21,0)="^^1^1^2920721^"
^DD(40.11,.03,21,1,0)="This field contains the year of birth of the patient, e.g. 43 for 1943."
^DD(40.11,.09,0)="SSN^RF^^0;3^K:$L(X)>9!($L(X)<9) X"
^DD(40.11,.09,3)="ANSWER MUST BE 9 CHARACTERS IN LENGTH"
^DD(40.11,.09,21,0)="^^2^2^2920721^^^"
^DD(40.11,.09,21,1,0)="This field contains the applicants social security number as nine digits,"
^DD(40.11,.09,21,2,0)="i.e., 123456789.  "
^DD(40.11,.116,0)="ZIP CODE^RF^^0;5^K:$L(X)>5!($L(X)<5) X"
^DD(40.11,.116,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(40.11,.116,21,0)="^^2^2^2920721^^"
^DD(40.11,.116,21,1,0)="This field contains the zip code [5 numerics] for the city in which this "
^DD(40.11,.116,21,2,0)="applicant resides."
^DD(40.11,.16,0)="TRANSMITTED PATIENT NAME^F^^0;16^K:$L(X)>14!($L(X)<14) X"
^DD(40.11,.16,3)="Answer must be 14 characters in length."
^DD(40.11,.16,21,0)="9^^9^9^2920721^"
^DD(40.11,.16,21,1,0)="This field contains the patient's name as it appears in the"
^DD(40.11,.16,21,2,0)="transmitted record. The format used is the same as that used"
^DD(40.11,.16,21,3,0)="for PTF transmission."
^DD(40.11,.16,21,4,0)=" "
^DD(40.11,.16,21,5,0)="        Characters 1-12     last name"
^DD(40.11,.16,21,6,0)="                     13     first name initial"
^DD(40.11,.16,21,7,0)="                     14     middle name initial"
^DD(40.11,.16,21,8,0)=" "
^DD(40.11,.16,21,9,0)="Each segment is padded with blanks."
^DD(40.11,.16,"DT")="2920424"
^DD(40.11,.323,0)="PERIOD OF SERVICE^RF^^0;8^K:$L(X)>2!($L(X)<1) X"
^DD(40.11,.323,3)="Answer must be 1-2 characters in length."
^DD(40.11,.323,21,0)="^^2^2^2920721^"
^DD(40.11,.323,21,1,0)="This field contains the same period of service that has been designated"
^DD(40.11,.323,21,2,0)="for this patient in the patient file."
^DD(40.11,.323,"DT")="2920422"
^DD(40.11,.361,0)="VETERAN ELIGIBILITY CODE^RF^^0;9^K:$L(X)>1!($L(X)<1) X"
^DD(40.11,.361,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(40.11,.361,21,0)="^^7^7^2920721^^"
^DD(40.11,.361,21,1,0)="If the eligibility is SC>50% it is converted prior to storage in this "
^DD(40.11,.361,21,2,0)="file as follows:"
^DD(40.11,.361,21,3,0)="0=0%"
^DD(40.11,.361,21,4,0)="9=10"
^DD(40.11,.361,21,5,0)="8=20"
^DD(40.11,.361,21,6,0)="7=30"
^DD(40.11,.361,21,7,0)="3=40"
^DD(40.11,.3611,0)="NON-VETERAN ELIGIBILTY CODE^RF^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(40.11,.3611,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(40.11,.3611,21,0)="^^2^2^2920721^"
^DD(40.11,.3611,21,1,0)="This field contains the eligibility code for a non-veteran patient.  If"
^DD(40.11,.3611,21,2,0)="the patient is a veteran, this field will be empty."
^DD(40.11,.525,0)="POW^RF^^0;7^K:$L(X)>1!($L(X)<1) X"
^DD(40.11,.525,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(40.11,.525,21,0)="^^2^2^2920721^^"
^DD(40.11,.525,21,1,0)="If this is a veteran applicant this field will contain a '1' if s/he was "
^DD(40.11,.525,21,2,0)="confined as a prisoner of war, '0' if not.  "
^DD(40.11,2,0)="PURPOSE OF VISIT^F^^0;11^K:$L(X)>1!($L(X)<1) X"
^DD(40.11,2,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(40.11,2,21,0)="^^2^2^2920721^"
^DD(40.11,2,21,1,0)="This field contains the purpose of visit for the specific visit."
^DD(40.11,2,21,2,0)="1 = C&P, 2 = 10/10, 3 = Scheduled, 4 = Unscheduled"
^DD(40.11,3,0)="LOCATION OF VISIT^RF^^0;12^K:$L(X)>1!($L(X)<1) X"
^DD(40.11,3,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(40.11,3,21,0)="^^3^3^2930208^^"
^DD(40.11,3,21,1,0)="This field contains the location of visit for a specific outpatient"
^DD(40.11,3,21,2,0)="appointment."
^DD(40.11,3,21,3,0)="1 = this facility, 6 = other facility"
^DD(40.11,4,0)="CLINIC STOPS^F^^0;13^K:$L(X)>135!($L(X)<1) X"
^DD(40.11,4,3)="Answer must be 1-135 characters in length."
^DD(40.11,4,21,0)="^^2^2^2920721^"
^DD(40.11,4,21,1,0)="This field contains the consoldated clinic stop codes for all appointments,"
^DD(40.11,4,21,2,0)="add/edits, and registrations for a single visit date."
^DD(40.11,4,"DT")="2930323"
^DD(40.11,5,0)="SPECIAL SURVEY BLOCKS^RF^^0;14^K:$L(X)>10!($L(X)<10) X"
^DD(40.11,5,3)="ANSWER MUST BE 10 CHARACTERS IN LENGTH"
^DD(40.11,5,21,0)="3^^7^7^2930522^^"
^DD(40.11,5,21,1,0)="This field contains the special survey dispostion for a patient for the"
^DD(40.11,5,21,2,0)="specified visit date.  It contains three numeric, either a '0' if the"
^DD(40.11,5,21,3,0)="patient has been not been exposed or a '1' if s/he has been."
^DD(40.11,5,21,4,0)=" "
^DD(40.11,5,21,5,0)="First column - Vietnam Service Claimed"
^DD(40.11,5,21,6,0)="Second column - Agent Orange Exposure Claimed"
^DD(40.11,5,21,7,0)="Third column - Ionizing Radiation Exposure Claimed"
^DD(40.11,6,0)="*SPECIAL SERVICES BLOCKS^RF^^0;15^K:$L(X)>12!($L(X)<12) X"
^DD(40.11,6,3)="ANSWER MUST BE 12 CHARACTERS IN LENGTH"
^DD(40.11,7,0)="FACILITY NUMBER^RF^^0;2^K:$L(X)>5!($L(X)<5) X"
^DD(40.11,7,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(40.11,7,21,0)="^^1^1^2930522^^^^"
^DD(40.11,7,21,1,0)="This field contains the station number and any suffix applicable."
^DD(40.11,7,"DT")="2870129"
^DD(40.11,8,0)="MEANS TEST INDICATOR^RF^^MT;1^K:$L(X)>2!($L(X)<2) X"
^DD(40.11,8,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(40.11,8,21,0)="^^8^8^2920721^"
^DD(40.11,8,21,1,0)="This field contains the means test indicator for the veteran that applies"
^DD(40.11,8,21,2,0)="to the specific visit."
^DD(40.11,8,21,3,0)=" "
^DD(40.11,8,21,4,0)="AS - SC Category A or Special Category"
^DD(40.11,8,21,5,0)="AN - Category A, not SC or Speical Category"
^DD(40.11,8,21,6,0)="CO - Category C"
^DD(40.11,8,21,7,0)="NO - Non-Veteran"
^DD(40.11,8,21,8,0)="XO - Means Test Not Applicable"
^DD(40.11,8,"DT")="2880513"
^DD(40.11,9,0)="DEPENDENTS^RF^^MT;2^K:$L(X)>2!($L(X)<2) X"
^DD(40.11,9,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(40.11,9,21,0)="^^2^2^2920721^"
^DD(40.11,9,21,1,0)="This field contains the number of dependents for the veteran.  It will"
^DD(40.11,9,21,2,0)="contain 'XX' if it is not applicable."
^DD(40.11,9,"DT")="2880513"
^DD(40.11,9.5,0)="MEANS TEST INCOME^F^^MT;3^K:$L(X)>6!($L(X)<6) X"
^DD(40.11,9.5,3)="Answer must be 6 characters in length."
^DD(40.11,9.5,4)="W !,""Use leading zero's as space holders."""
^DD(40.11,9.5,21,0)="^^3^3^2920721^^^"
^DD(40.11,9.5,21,1,0)="This field holds the means test income - if applicable to patient - for"
^DD(40.11,9.5,21,2,0)="visit dates beginning in FY 92 or so indicated in the OPC MT INCOME DATE"
^DD(40.11,9.5,21,3,0)="field in the MAS PARAMETERS file."
^DD(40.11,9.5,23,0)="^^3^3^2910705^^"
^DD(40.11,9.5,23,1,0)="Income determined by passing visit date in X and calling INC^DGPTUTL1."
^DD(40.11,9.5,23,2,0)="The Y output variable is padded with leading zero's, as length of field"
^DD(40.11,9.5,23,3,0)="must be six numerics.  (MTI^SDOPC2)"
^DD(40.11,9.5,"DT")="2910621"
^DD(40.11,10,0)="AMBULATORY PROCEDURE BLOCK^F^^AP;1^K:$L(X)>228!($L(X)<12) X"
^DD(40.11,10,3)="Answer must be 12-228 characters in length."
^DD(40.11,10,21,0)="^^2^2^2930323^^"
^DD(40.11,10,21,1,0)="This field contains the ambulatory procedure codes (numbers) related to"
^DD(40.11,10,21,2,0)="a special survey stop code add/edit."
^DD(40.11,10,23,0)="^^1^1^2930323^"
^DD(40.11,10,23,1,0)=" "
^DD(40.11,10,"DT")="2930323"
^DD(40.11,15,0)="APPOINTMENT TYPE^P409.1'^SD(409.1,^AT;1^Q"
^DD(40.11,15,21,0)="^^2^2^2920721^"
^DD(40.11,15,21,1,0)="This field contains the appointment type for the visit.  It is used to"
^DD(40.11,15,21,2,0)="determine the means test indicator, and billable appointments."
^DD(40.11,15,"DT")="2890319"
^DD(40.11,17,0)="FISCAL YEAR^F^^0;17^K:$L(X)>2!($L(X)<2) X"
^DD(40.11,17,3)="Answer must be 2 characters in length."
^DD(40.11,17,"DT")="2930406"
^DD(40.11,18,0)="PSEUDO SSN^F^^0;18^K:$L(X)>1!($L(X)<1) X"
^DD(40.11,18,3)="Answer must be 1 character in length."
^DD(40.11,18,"DT")="2940330"
^DD(40.11,20,0)="SUSPENDED DATE^D^^SUS;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(40.11,20,1,0)="^.1"
^DD(40.11,20,1,1,0)="40.1^ASUS^MUMPS"
^DD(40.11,20,1,1,1)="S SDX=$S($D(^SDASF(DA(1),1,DA,""SUS"")):+^(""SUS""),1:0) S:SDX ^SDASF(""ASUS"",X,DA(1),DA)="""" K SDX"
^DD(40.11,20,1,1,2)="S SDX=$S($D(^SDASF(DA(1),1,DA,""SUS"")):+^(""SUS""),1:0) K:SDX ^SDASF(""ASUS"",X,DA(1),DA),SDX"
^DD(40.11,20,21,0)="^^3^3^2920721^^"
^DD(40.11,20,21,1,0)="This field contains a date.  During generation if an error was found, it"
^DD(40.11,20,21,2,0)="places the record in the error file.   When transmission occurs it places "
^DD(40.11,20,21,3,0)="the record in a suspense status by placing a date in this field."
^DD(40.11,20,"DT")="2860327"
^DD(40.11,21,0)="RELEASE DATE^D^^SUS;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(40.11,21,1,0)="^.1"
^DD(40.11,21,1,1,0)="40.1^AREL^MUMPS"
^DD(40.11,21,1,1,1)="S ^SDASF(""AREL"",X,DA(1),DA)="""""
^DD(40.11,21,1,1,2)="K ^SDASF(""AREL"",X,DA(1),DA)"
^DD(40.11,21,1,2,0)="40.1^ASUS1^MUMPS"
^DD(40.11,21,1,2,1)="S SDX=$S($D(^SDASF(DA(1),1,DA,""SUS"")):+^(""SUS""),1:0) K:SDX ^SDASF(""ASUS"",SDX,DA(1),DA),SDX"
^DD(40.11,21,1,2,2)="S SDX=$S($D(^SDASF(DA(1),1,DA,""SUS"")):+^(""SUS""),1:0) S:SDX ^SDASF(""ASUS"",SDX,DA(1),DA)="""" K SDX"
^DD(40.11,21,21,0)="^^3^3^2920721^^^"
^DD(40.11,21,21,1,0)="If during OPC generation an error was encountered, it places the record"
^DD(40.11,21,21,2,0)="in suspense.  When the error is corrected it places a release date"
^DD(40.11,21,21,3,0)="in this field indicating it now can be transmitted."
^DD(40.11,21,"DT")="2860327"
^DD(40.11,"B","*SPECIAL SERVICES BLOCKS",6)=""
^DD(40.11,"B","AMBULATORY PROCEDURE BLOCK",10)=""
^DD(40.11,"B","APPOINTMENT TYPE",15)=""
^DD(40.11,"B","BIRTH YEAR",.03)=""
^DD(40.11,"B","CLINIC STOPS",4)=""
^DD(40.11,"B","DEPENDENTS",9)=""
^DD(40.11,"B","FACILITY NUMBER",7)=""
^DD(40.11,"B","FISCAL YEAR",17)=""
^DD(40.11,"B","LOCATION OF VISIT",3)=""
^DD(40.11,"B","MEANS TEST INCOME",9.5)=""
^DD(40.11,"B","MEANS TEST INDICATOR",8)=""
^DD(40.11,"B","NON-VETERAN ELIGIBILTY CODE",.3611)=""
^DD(40.11,"B","PERIOD OF SERVICE",.323)=""
^DD(40.11,"B","POW",.525)=""
^DD(40.11,"B","PSEUDO SSN",18)=""
^DD(40.11,"B","PURPOSE OF VISIT",2)=""
^DD(40.11,"B","RELEASE DATE",21)=""
^DD(40.11,"B","SEX",.02)=""
^DD(40.11,"B","SPECIAL SURVEY BLOCKS",5)=""
^DD(40.11,"B","SSN",.09)=""
^DD(40.11,"B","SUSPENDED DATE",20)=""
^DD(40.11,"B","TRANSMITTED PATIENT NAME",.16)=""
^DD(40.11,"B","VETERAN ELIGIBILITY CODE",.361)=""
^DD(40.11,"B","VISIT DATE",.01)=""
^DD(40.11,"B","ZIP CODE",.116)=""
^DD(40.11,"GL",0,1,.01)=""
^DD(40.11,"GL",0,2,7)=""
^DD(40.11,"GL",0,3,.09)=""
^DD(40.11,"GL",0,4,.03)=""
^DD(40.11,"GL",0,5,.116)=""
^DD(40.11,"GL",0,6,.02)=""
^DD(40.11,"GL",0,7,.525)=""
^DD(40.11,"GL",0,8,.323)=""
^DD(40.11,"GL",0,9,.361)=""
^DD(40.11,"GL",0,10,.3611)=""
^DD(40.11,"GL",0,11,2)=""
^DD(40.11,"GL",0,12,3)=""
^DD(40.11,"GL",0,13,4)=""
^DD(40.11,"GL",0,14,5)=""
^DD(40.11,"GL",0,15,6)=""
^DD(40.11,"GL",0,16,.16)=""
^DD(40.11,"GL",0,17,17)=""
^DD(40.11,"GL",0,18,18)=""
^DD(40.11,"GL","AP",1,10)=""
^DD(40.11,"GL","AT",1,15)=""
^DD(40.11,"GL","MT",1,8)=""
^DD(40.11,"GL","MT",2,9)=""
^DD(40.11,"GL","MT",3,9.5)=""
^DD(40.11,"GL","SUS",1,20)=""
^DD(40.11,"GL","SUS",2,21)=""
^DD(40.11,"IX",.01)=""
^DD(40.11,"IX",20)=""
^DD(40.11,"IX",21)=""
^DD(40.11,"RQ",.01)=""
^DD(40.11,"RQ",.02)=""
^DD(40.11,"RQ",.03)=""
^DD(40.11,"RQ",.09)=""
^DD(40.11,"RQ",.116)=""
^DD(40.11,"RQ",.323)=""
^DD(40.11,"RQ",.361)=""
^DD(40.11,"RQ",.3611)=""
^DD(40.11,"RQ",.525)=""
^DD(40.11,"RQ",3)=""
^DD(40.11,"RQ",5)=""
^DD(40.11,"RQ",6)=""
^DD(40.11,"RQ",7)=""
^DD(40.11,"RQ",8)=""
^DD(40.11,"RQ",9)=""
^DD(40.15,0)="FIELD^^2^5"
^DD(40.15,0,"IX","AF",40.15,.02)=""
^DD(40.15,0,"IX","B",40.15,.01)=""
^DD(40.15,0,"NM","OPC ERRORS")=""
^DD(40.15,0,"VR")="5.3"
^DD(40.15,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(40.15,.01,1,0)="^.1"
^DD(40.15,.01,1,1,0)="40.15^B"
^DD(40.15,.01,1,1,1)="S ^SDASE(""B"",$E(X,1,30),DA)="""""
^DD(40.15,.01,1,1,2)="K ^SDASE(""B"",$E(X,1,30),DA)"
^DD(40.15,.01,3)=""
^DD(40.15,.01,21,0)="^^1^1^2920722^"
^DD(40.15,.01,21,1,0)="This field contains the pointer value of the patient file."
^DD(40.15,.01,"DT")="2840105"
^DD(40.15,.02,0)="FACILITY^P40.8'^DG(40.8,^0;2^Q"
^DD(40.15,.02,1,0)="^.1"
^DD(40.15,.02,1,1,0)="40.15^AF"
^DD(40.15,.02,1,1,1)="S ^SDASE(""AF"",$E(X,1,30),DA)="""""
^DD(40.15,.02,1,1,2)="K ^SDASE(""AF"",$E(X,1,30),DA)"
^DD(40.15,.02,21,0)="^^1^1^2920722^"
^DD(40.15,.02,21,1,0)="This field contains the pointer value of the Medical Center Division."
^DD(40.15,.02,"DT")="2880517"
^DD(40.15,.09,0)="SSN^CJ9^^ ; ^X ^DD(40.15,.09,9.2) S X=$P(Y(40.15,.09,101),U,9) S D0=Y(40.15,.09,2)"
^DD(40.15,.09,9)="^"
^DD(40.15,.09,9.01)="2^.09;40.15^.01"
^DD(40.15,.09,9.1)="NAME:SSN"
^DD(40.15,.09,9.2)="S Y(40.15,.09,2)=$S($D(D0):D0,1:""""),Y(40.15,.09,1)=$S($D(^SDASE(D0,0)):^(0),1:""""),D0=$P(Y(40.15,.09,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(40.15,.09,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(40.15,.09,21,0)="^^5^5^2930127^"
^DD(40.15,.09,21,1,0)="This field stores the 9 digit social security number of the patient"
^DD(40.15,.09,21,2,0)="who has been identified as having missing data and requires editing"
^DD(40.15,.09,21,3,0)="the OPC ERROR in order for the workload to be transmitted to the"
^DD(40.15,.09,21,4,0)="Austin DPC."
^DD(40.15,.09,21,5,0)="|"
^DD(40.15,1,0)="FIELD NAME^40.16A^^1;0"
^DD(40.15,1,21,0)="^^1^1^2930127^"
^DD(40.15,1,21,1,0)="This contains the name of the field that needs to be corrected."
^DD(40.15,2,0)="VISIT DATE MESSAGE^40.152A^^MSG;0"
^DD(40.15,2,21,0)="^^1^1^2930127^"
^DD(40.15,2,21,1,0)="This field contains the error message related to the visit date."
^DD(40.15,"B","FACILITY",.02)=""
^DD(40.15,"B","FIELD NAME",1)=""
^DD(40.15,"B","NAME",.01)=""
^DD(40.15,"B","SSN",.09)=""
^DD(40.15,"B","VISIT DATE MESSAGE",2)=""
^DD(40.15,"GL",0,1,.01)=""
^DD(40.15,"GL",0,2,.02)=""
^DD(40.15,"GL",1,0,1)=""
^DD(40.15,"GL","MSG",0,2)=""
^DD(40.15,"IX",.01)=""
^DD(40.15,"IX",.02)=""
^DD(40.15,"RQ",.01)=""
^DD(40.15,"SB",40.152,2)=""
^DD(40.15,"SB",40.16,1)=""
^DD(40.152,0)="VISIT DATE MESSAGE SUB-FIELD^^2^3"
^DD(40.152,0,"IX","B",40.152,.01)=""
^DD(40.152,0,"NM","VISIT DATE MESSAGE")=""
^DD(40.152,0,"UP")="40.15"
^DD(40.152,.001,0)="DATE^D^^ ^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(40.152,.001,21,0)="^^1^1^2930522^^^"
^DD(40.152,.001,21,1,0)="This field contains the visit date."
^DD(40.152,.001,"DT")="2880511"
^DD(40.152,.01,0)="VISIT DATE MESSAGE^F^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(40.152,.01,1,0)="^.1"
^DD(40.152,.01,1,1,0)="40.152^B"
^DD(40.152,.01,1,1,1)="S ^SDASE(DA(1),""MSG"",""B"",$E(X,1,30),DA)="""""
^DD(40.152,.01,1,1,2)="K ^SDASE(DA(1),""MSG"",""B"",$E(X,1,30),DA)"
^DD(40.152,.01,3)="ANSWER MUST BE 3-80 CHARACTERS IN LENGTH"
^DD(40.152,.01,21,0)="^^1^1^2930522^^^"
^DD(40.152,.01,21,1,0)="This field contains the error message related to the visit date."
^DD(40.152,.01,"DT")="2880517"
^DD(40.152,2,0)="DIVISION^P40.8'^DG(40.8,^0;2^Q"
^DD(40.152,2,21,0)="^^1^1^2920722^"
^DD(40.152,2,21,1,0)="This field contains the pointer value of the Medical Center Division."
^DD(40.152,2,"DT")="2880517"
^DD(40.152,"B","DATE",.001)=""
^DD(40.152,"B","DIVISION",2)=""
^DD(40.152,"B","VISIT DATE MESSAGE",.01)=""
^DD(40.152,"GL",0,1,.01)=""
^DD(40.152,"GL",0,2,2)=""
^DD(40.152,"IX",.01)=""
^DD(40.16,0)="FIELD NAME SUB-FIELD^NL^4^5"
^DD(40.16,0,"IX","AB",40.16,3)=""
^DD(40.16,0,"NM","FIELD NAME")=""
^DD(40.16,0,"UP")="40.15"
^DD(40.16,.01,0)="FIELD NAME^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(40.16,.01,1,0)="^.1^^0"
^DD(40.16,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(40.16,.01,21,0)="^^1^1^2930127^^"
^DD(40.16,.01,21,1,0)="This contains the name of the field that needs to be corrected."
^DD(40.16,.01,"DT")="2880915"
^DD(40.16,1,0)="PATIENT FILE FIELD NUMBER^NJ16,8^^0;2^K:+X'=X!(X>9999999)!(X<.0000001)!(X?.E1"".""9N.N) X"
^DD(40.16,1,3)="TYPE A NUMBER BETWEEN .0000001 AND 9999999"
^DD(40.16,1,21,0)="^^2^2^2920722^"
^DD(40.16,1,21,1,0)="This field contains the number of the field within the patient file that"
^DD(40.16,1,21,2,0)="needs to be corrected."
^DD(40.16,2,0)="SAMPLE FILE PIECE NUMBER^NJ2,0^^0;3^K:+X'=X!(X>25)!(X<1)!(X?.E1"".""1N.N) X"
^DD(40.16,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 25"
^DD(40.16,2,21,0)="^^2^2^2920722^"
^DD(40.16,2,21,1,0)="This field contains the number of the field in the OPC file that needs"
^DD(40.16,2,21,2,0)="to be corrected."
^DD(40.16,2,"DT")="2840105"
^DD(40.16,3,0)="SPECIFIC DATE APPLIED^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(40.16,3,1,0)="^.1"
^DD(40.16,3,1,1,0)="40.16^AB^MUMPS"
^DD(40.16,3,1,1,1)="S ^SDASE(DA(1),""AB"",X,$P(^SDASE(DA(1),1,DA,0),U),DA)="""""
^DD(40.16,3,1,1,2)="K ^SDASE(DA(1),""AB"",X,$P(^SDASE(DA(1),1,DA,0),U),DA)"
^DD(40.16,3,21,0)="^^1^1^2920722^"
^DD(40.16,3,21,1,0)="This field contains the date the error was located and placed in this file."
^DD(40.16,3,"DT")="2880921"
^DD(40.16,4,0)="DIVISION^P40.8'^DG(40.8,^0;5^Q"
^DD(40.16,4,1,0)="^.1^^0"
^DD(40.16,4,21,0)="^^1^1^2920722^"
^DD(40.16,4,21,1,0)="This field contains the pointer value of the Medical Center Division."
^DD(40.16,4,"DT")="2880919"
^DD(40.16,"B","DIVISION",4)=""
^DD(40.16,"B","FIELD NAME",.01)=""
^DD(40.16,"B","PATIENT FILE FIELD NUMBER",1)=""
^DD(40.16,"B","SAMPLE FILE PIECE NUMBER",2)=""
^DD(40.16,"B","SPECIFIC DATE APPLIED",3)=""
^DD(40.16,"GL",0,1,.01)=""
^DD(40.16,"GL",0,2,1)=""
^DD(40.16,"GL",0,3,2)=""
^DD(40.16,"GL",0,4,3)=""
^DD(40.16,"GL",0,5,4)=""
^DD(40.16,"IX",3)=""
^DD(40.5,0)="FIELD^^2^2"
^DD(40.5,0,"DDA")="N"
^DD(40.5,0,"ID",2)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(40.5,0,"IX","B",40.5,.01)=""
^DD(40.5,0,"NM","HOLIDAY")=""
^DD(40.5,0,"PT",133.027,.01)=""
^DD(40.5,0,"VR")="8.0"
^DD(40.5,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(40.5,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(40.5,.01,1,0)="^.1"
^DD(40.5,.01,1,1,0)="40.5^B"
^DD(40.5,.01,1,1,1)="S @(DIC_""""""B"""",X,DA)="""""""""")"
^DD(40.5,.01,1,1,2)="K @(DIC_""""""B"""",X,DA)"")"
^DD(40.5,.01,3)="XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER"
^DD(40.5,.01,21,0)="^^1^1^2920518^^"
^DD(40.5,.01,21,1,0)="The date for the observance of the holiday."
^DD(40.5,.01,"DT")="2890627"
^DD(40.5,2,0)="NAME^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(40.5,2,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(40.5,2,21,0)="^^1^1^2920518^^"
^DD(40.5,2,21,1,0)="Name of the holiday."
^DD(40.5,"B","DATE",.01)=""
^DD(40.5,"B","NAME",2)=""
^DD(40.5,"GL",0,1,.01)=""
^DD(40.5,"GL",0,2,2)=""
^DD(40.5,"IX",.01)=""
^DD(40.5,"RQ",.01)=""
^DD(40.7,0)="FIELD^^6^7"
^DD(40.7,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(40.7,0,"IX","B",40.7,.01)=""
^DD(40.7,0,"IX","C",40.7,1)=""
^DD(40.7,0,"NM","CLINIC STOP")=""
^DD(40.7,0,"PT",40.7,3)=""
^DD(40.7,0,"PT",44,8)=""
^DD(40.7,0,"PT",44,8.1)=""
^DD(40.7,0,"PT",44,2503)=""
^DD(40.7,0,"PT",44,2503.1)=""
^DD(40.7,0,"PT",69.9,611)=""
^DD(40.7,0,"PT",71.5,.01)=""
^DD(40.7,0,"PT",79.1,22)=""
^DD(40.7,0,"PT",123.5688,.01)=""
^DD(40.7,0,"PT",352.3,.01)=""
^DD(40.7,0,"PT",375,1.18)=""
^DD(40.7,0,"PT",375,1.41)=""
^DD(40.7,0,"PT",409.3,13.4)=""
^DD(40.7,0,"PT",409.3,13.5)=""
^DD(40.7,0,"PT",409.31,.01)=""
^DD(40.7,0,"PT",409.51,.01)=""
^DD(40.7,0,"PT",409.68,.03)=""
^DD(40.7,0,"PT",721,27)=""
^DD(40.7,0,"PT",724,9)=""
^DD(40.7,0,"PT",810.111,.01)=""
^DD(40.7,0,"PT",810.9001,.01)=""
^DD(40.7,0,"PT",810.90011,.01)=""
^DD(40.7,0,"PT",991.817,.01)=""
^DD(40.7,0,"PT",8925,1203)=""
^DD(40.7,0,"PT",8925,1206)=""
^DD(40.7,0,"PT",9000010,.08)=""
^DD(40.7,0,"VR")="5.3"
^DD(40.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(40.7,.01,1,0)="^.1"
^DD(40.7,.01,1,1,0)="40.7^B"
^DD(40.7,.01,1,1,1)="S ^DIC(40.7,""B"",$E(X,1,30),DA)="""""
^DD(40.7,.01,1,1,2)="K ^DIC(40.7,""B"",$E(X,1,30),DA)"
^DD(40.7,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(40.7,.01,21,0)="^^1^1^2920722^"
^DD(40.7,.01,21,1,0)="This field contains the name of the clinic stop code."
^DD(40.7,.01,"DEL",1,0)="I 1 W !,""CLINIC STOPS CANNOT BE DELETED!!"",*7"
^DD(40.7,.01,"DT")="2881024"
^DD(40.7,1,0)="AMIS REPORTING STOP CODE^RNJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(40.7,1,1,0)="^.1"
^DD(40.7,1,1,1,0)="40.7^C"
^DD(40.7,1,1,1,1)="S ^DIC(40.7,""C"",$E(X,1,30),DA)="""""
^DD(40.7,1,1,1,2)="K ^DIC(40.7,""C"",$E(X,1,30),DA)"
^DD(40.7,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(40.7,1,21,0)="^^2^2^2920722^"
^DD(40.7,1,21,1,0)="This field contains the number related to the stop code that is used when"
^DD(40.7,1,21,2,0)="generating the OPC file.  This number is what is transmitted."
^DD(40.7,1,"DT")="2870415"
^DD(40.7,2,0)="INACTIVE DATE^DI^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(40.7,2,3)=""
^DD(40.7,2,21,0)="^^1^1^2920722^"
^DD(40.7,2,21,1,0)="This field contains a date of when a Clinic Stop code has been inactivated."
^DD(40.7,2,"DT")="3051130"
^DD(40.7,3,0)="CONVERT TO STOP CODE^*P40.7'^DIC(40.7,^0;4^S DIC(""S"")=""I $P(^(0),U,2)>100"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(40.7,3,1,0)="^.1^^0"
^DD(40.7,3,12)="CLINIC STOP POINTED TO MUST BE GREATER THAN 100"
^DD(40.7,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)>100"""
^DD(40.7,3,21,0)="^^2^2^2920722^"
^DD(40.7,3,21,1,0)="This field contains a pointer value to the new Clinic Stop codes that"
^DD(40.7,3,21,2,0)="have a three number AMIS REPORTING STOP CODE."
^DD(40.7,3,"DT")="2870514"
^DD(40.7,4,0)="COST DISTRIBUTION CENTER^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(40.7,4,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(40.7,4,21,0)="^^2^2^2920722^"
^DD(40.7,4,21,1,0)="This file contains a number related to a cost distribution center.  This"
^DD(40.7,4,21,2,0)="is related to the RAM."
^DD(40.7,4,"DT")="2890329"
^DD(40.7,5,0)="RESTRICTION TYPE^S^P:Primary;S:Secondary;E:Either;^0;6^Q"
^DD(40.7,5,.1)="Restriction Type"
^DD(40.7,5,3)="Enter a P, S or E."
^DD(40.7,5,21,0)="^.001^2^2^3030811^^^"
^DD(40.7,5,21,1,0)="This field describes a Stop Code restriction type.  Valid entries are:-"
^DD(40.7,5,21,2,0)="     P - Primary    S - Secondary    E - Either"
^DD(40.7,5,"DT")="3030707"
^DD(40.7,6,0)="RESTRICTION DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(40.7,6,.1)="Restriction Date"
^DD(40.7,6,3)="Enter date the Stop Code became restricted."
^DD(40.7,6,21,0)="^.001^3^3^3030811^^^"
^DD(40.7,6,21,1,0)="This field contains the date the Stop Code became restricted.  When the "
^DD(40.7,6,21,2,0)="'Restriction Type' field has a value of 'P' or 'S' then a 'Restriction Date'"
^DD(40.7,6,21,3,0)="should be associated with it."
^DD(40.7,6,"DT")="3030707"
^DD(40.7,"B","AMIS REPORTING STOP CODE",1)=""
^DD(40.7,"B","CONVERT TO STOP CODE",3)=""
^DD(40.7,"B","COST DISTRIBUTION CENTER",4)=""
^DD(40.7,"B","INACTIVE DATE",2)=""
^DD(40.7,"B","NAME",.01)=""
^DD(40.7,"B","RESTRICTION DATE",6)=""
^DD(40.7,"B","RESTRICTION TYPE",5)=""
^DD(40.7,"B","Restriction Date",6)="1"
^DD(40.7,"B","Restriction Type",5)="1"
^DD(40.7,"GL",0,1,.01)=""
^DD(40.7,"GL",0,2,1)=""
^DD(40.7,"GL",0,3,2)=""
^DD(40.7,"GL",0,4,3)=""
^DD(40.7,"GL",0,5,4)=""
^DD(40.7,"GL",0,6,5)=""
^DD(40.7,"GL",0,7,6)=""
^DD(40.7,"IX",.01)=""
^DD(40.7,"IX",1)=""
^DD(40.7,"RQ",.01)=""
^DD(40.7,"RQ",1)=""
^DD(40.8,0)="FIELD^^900.01^40"
^DD(40.8,0,"DDA")="N"
^DD(40.8,0,"DT")="2950201"
^DD(40.8,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(40.8,0,"IX","AD",40.8,.07)=""
^DD(40.8,0,"IX","ADV",40.8,.07)=""
^DD(40.8,0,"IX","B",40.8,.01)=""
^DD(40.8,0,"IX","C",40.8,1)=""
^DD(40.8,0,"IX","D",40.806,.01)=""
^DD(40.8,0,"NM","MEDICAL CENTER DIVISION")=""
^DD(40.8,0,"PT",2.101,3)=""
^DD(40.8,0,"PT",40.15,.02)=""
^DD(40.8,0,"PT",40.152,2)=""
^DD(40.8,0,"PT",40.16,4)=""
^DD(40.8,0,"PT",41.1,12)=""
^DD(40.8,0,"PT",41.42,.1)=""
^DD(40.8,0,"PT",41.43,5)=""
^DD(40.8,0,"PT",42,.015)=""
^DD(40.8,0,"PT",42.5,.01)=""
^DD(40.8,0,"PT",42.61,.01)=""
^DD(40.8,0,"PT",42.702,.01)=""
^DD(40.8,0,"PT",43,12)=""
^DD(40.8,0,"PT",44,3.5)=""
^DD(40.8,0,"PT",59.5,.02)=""
^DD(40.8,0,"PT",59.79001,.02)=""
^DD(40.8,0,"PT",59.79002,.02)=""
^DD(40.8,0,"PT",59.79003,.02)=""
^DD(40.8,0,"PT",154.012,.01)=""
^DD(40.8,0,"PT",154.9101,1)=""
^DD(40.8,0,"PT",349.161,.01)=""
^DD(40.8,0,"PT",350.5,.02)=""
^DD(40.8,0,"PT",350.9,1.25)=""
^DD(40.8,0,"PT",355.92,.05)=""
^DD(40.8,0,"PT",355.95,.04)=""
^DD(40.8,0,"PT",357.9911,.01)=""
^DD(40.8,0,"PT",363.3111,.01)=""
^DD(40.8,0,"PT",366.141,.15)=""
^DD(40.8,0,"PT",375,13)=""
^DD(40.8,0,"PT",389.9,.03)=""
^DD(40.8,0,"PT",391.11,.01)=""
^DD(40.8,0,"PT",392,11)=""
^DD(40.8,0,"PT",392.1001,.01)=""
^DD(40.8,0,"PT",393,.06)=""
^DD(40.8,0,"PT",395.5,9)=""
^DD(40.8,0,"PT",396,4.6)=""
^DD(40.8,0,"PT",396,5.6)=""
^DD(40.8,0,"PT",396,6.6)=""
^DD(40.8,0,"PT",396,7.6)=""
^DD(40.8,0,"PT",396,9.6)=""
^DD(40.8,0,"PT",396,11.6)=""
^DD(40.8,0,"PT",396,13.6)=""
^DD(40.8,0,"PT",396,15.6)=""
^DD(40.8,0,"PT",396,17.6)=""
^DD(40.8,0,"PT",396,18.6)=""
^DD(40.8,0,"PT",396,20.6)=""
^DD(40.8,0,"PT",396,29)=""
^DD(40.8,0,"PT",396.13,.01)=""
^DD(40.8,0,"PT",396.14,.01)=""
^DD(40.8,0,"PT",396.15,.01)=""
^DD(40.8,0,"PT",396.3,24)=""
^DD(40.8,0,"PT",399,.22)=""
^DD(40.8,0,"PT",399.0304,5)=""
^DD(40.8,0,"PT",399.042,.07)=""
^DD(40.8,0,"PT",409.48,.12)=""
^DD(40.8,0,"PT",409.5,3)=""
^DD(40.8,0,"PT",409.68,.11)=""
^DD(40.8,0,"PT",409.77,.05)=""
^DD(40.8,0,"PT",409.96,.01)=""
^DD(40.8,0,"PT",727.3,.01)=""
^DD(40.8,0,"PT",731.03,1)=""
^DD(40.8,0,"PT",731.04,.01)=""
^DD(40.8,0,"PT",740.02,.01)=""
^DD(40.8,0,"PT",910.2,.08)=""
^DD(40.8,0,"PT",910.8,.05)=""
^DD(40.8,0,"PT",912,.07)=""
^DD(40.8,0,"PT",912.31,.01)=""
^DD(40.8,0,"PT",914,.1)=""
^DD(40.8,0,"PT",916,.5)=""
^DD(40.8,0,"PT",8925.94,.01)=""
^DD(40.8,0,"PT",8925.952,.01)=""
^DD(40.8,0,"PT",509850.6,60)=""
^DD(40.8,0,"PT",509850.75,.01)=""
^DD(40.8,0,"PT",509850.83,.01)=""
^DD(40.8,0,"VR")="5.3"
^DD(40.8,.001,0)="NUM^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(40.8,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(40.8,.001,21,0)="^^2^2^2911222^"
^DD(40.8,.001,21,1,0)="This field contains the internal entry number of the division as determined"
^DD(40.8,.001,21,2,0)="by VA FileMan."
^DD(40.8,.001,"DT")="2860721"
^DD(40.8,.01,0)="NAME^RF^^0;1^K:$L(X)>35!($L(X)<3) X"
^DD(40.8,.01,1,0)="^.1"
^DD(40.8,.01,1,1,0)="40.8^B"
^DD(40.8,.01,1,1,1)="S ^DG(40.8,""B"",$E(X,1,30),DA)="""""
^DD(40.8,.01,1,1,2)="K ^DG(40.8,""B"",$E(X,1,30),DA)"
^DD(40.8,.01,3)="ANSWER MUST BE 3-35 CHARACTERS IN LENGTH"
^DD(40.8,.01,21,0)="^^2^2^2930401^^"
^DD(40.8,.01,21,1,0)="Enter in this field the name of a division at your facility.  It may be"
^DD(40.8,.01,21,2,0)="the main building, a satelite clinic, a domiciliary, or a nursing home."
^DD(40.8,.01,"DT")="2860721"
^DD(40.8,.07,0)="INSTITUTION FILE POINTER^R*P4'X^DIC(4,^0;7^D ^DIC S X=+Y Q:$P(^DG(40.8,DA,0),U,7)=+Y  K:Y<0 X I $D(X),$D(^DG(40.8,""AD"",X)) W !,""Enter a unique pointer."" K X"
^DD(40.8,.07,1,0)="^.1"
^DD(40.8,.07,1,1,0)="40.8^ADV^MUMPS"
^DD(40.8,.07,1,1,1)="S ^DG(40.8,""ADV"",DA)=X"
^DD(40.8,.07,1,1,2)="K ^DG(40.8,""ADV"",DA)"
^DD(40.8,.07,1,2,0)="40.8^AD"
^DD(40.8,.07,1,2,1)="S ^DG(40.8,""AD"",$E(X,1,30),DA)="""""
^DD(40.8,.07,1,2,2)="K ^DG(40.8,""AD"",$E(X,1,30),DA)"
^DD(40.8,.07,3)="Enter the institution in file #4 to which this corresponds."
^DD(40.8,.07,4)="W !,""Each entry in the Medical Center Division file should point to a unique entry in the Institution file."""
^DD(40.8,.07,12)="ONLY SITES WITH APPROPRIATE STATION NUMBER"
^DD(40.8,.07,12.1)="S DIC(""S"")=""I +$$GET1^DIQ(4,+Y,99)"""
^DD(40.8,.07,21,0)="^.001^3^3^3030624^^^^"
^DD(40.8,.07,21,1,0)="Enter the entry in the institution file that corresponds to this division."
^DD(40.8,.07,21,2,0)="It is IMPERATIVE that you respond to this prompt properly as this affects"
^DD(40.8,.07,21,3,0)="transmission of data to Austin as well as many other statistical reports."
^DD(40.8,.07,"DT")="3050328"
^DD(40.8,.08,0)="PRINT WRISTBANDS^S^Y:YES;N:NO;^0;8^Q"
^DD(40.8,.08,3)="Enter whether you want wristbands printed at this division."
^DD(40.8,.08,21,0)="^^2^2^2950201^"
^DD(40.8,.08,21,1,0)="This field determines whether the patient's wristbands are printed at this"
^DD(40.8,.08,21,2,0)="division."
^DD(40.8,.08,"DT")="2950201"
^DD(40.8,1,0)="FACILITY NUMBER^RF^^0;2^K:$L(X)>7!($L(X)<3) X"
^DD(40.8,1,1,0)="^.1"
^DD(40.8,1,1,1,0)="40.8^C"
^DD(40.8,1,1,1,1)="S ^DG(40.8,""C"",$E(X,1,30),DA)="""""
^DD(40.8,1,1,1,2)="K ^DG(40.8,""C"",$E(X,1,30),DA)"
^DD(40.8,1,3)="Answer must be 3-7 characters in length."
^DD(40.8,1,21,0)="^^3^3^2930421^^^"
^DD(40.8,1,21,1,0)="Enter the number of the facility that this division is affiliated with."
^DD(40.8,1,21,2,0)="This should be the 3 digit facility number the site is assigned by"
^DD(40.8,1,21,3,0)="Central Office officials.  It may also include a suffix."
^DD(40.8,1,"DT")="2930708"
^DD(40.8,2,0)="EMPLOYEE HEALTH COUNTS^40.801DA^^1;0"
^DD(40.8,2,21,0)="^^2^2^2911222^"
^DD(40.8,2,21,1,0)="This multiple contains the number of employee health visits to this"
^DD(40.8,2,21,2,0)="division broken down by month/year."
^DD(40.8,3,0)="OUTPATIENT ONLY^SX^1:OUTPATIENT ONLY;^0;3^F I=0:0 S I=$N(^DIC(42,I)) Q:I'>0  I $P($S($D(^(I,0)):^(0),1:0),U,11)=DA K X W !,""Ward has this designated"",! Q"
^DD(40.8,3,3)="Enter 1 if this Division does not have any wards"
^DD(40.8,3,21,0)="^^2^2^2911222^"
^DD(40.8,3,21,1,0)="Enter yes if this division has only outpatient medical services (no"
^DD(40.8,3,21,2,0)="inpatient wards)."
^DD(40.8,3,"DT")="2860522"
^DD(40.8,4,0)="PRINT 'AA'<96' ON G&L^S^0:NO;1:YES;^0;4^Q"
^DD(40.8,4,3)="Enter '1' if you want the pass transfers to appear on the gains and losses"
^DD(40.8,4,21,0)="^^3^3^2920130^^"
^DD(40.8,4,21,1,0)="Enter YES to display AA<96 (pass) transfers on the gains and losses sheet."
^DD(40.8,4,21,2,0)="Respond NO if these transfers should not be listed.  The counts will be"
^DD(40.8,4,21,3,0)="included on the bed status report regardless of your response here."
^DD(40.8,4,"DT")="2860528"
^DD(40.8,5,0)="PRINT 'AA' ON G&L^S^0:NO;1:YES;^0;5^Q"
^DD(40.8,5,3)="Enter '1' if you want the authorized absence transfers to appear on the gains and losses"
^DD(40.8,5,21,0)="^^4^4^2920130^^"
^DD(40.8,5,21,1,0)="Enter YES if you would like authorized absence transfers of more than 96"
^DD(40.8,5,21,2,0)="hours to appear on the gains and losses sheet.  Answer NO otherwise."
^DD(40.8,5,21,3,0)="Regardless of the response here, these figures will be calculated into"
^DD(40.8,5,21,4,0)="the bed status report."
^DD(40.8,6,0)="NHCU/DOM/HOSP G&L^S^0:COMBINED;1:SEPARATE;^0;6^Q"
^DD(40.8,6,3)="Enter '0' if you want to print the NHCU and DOM G&L combined together, '1' to put them on separate pages"
^DD(40.8,6,21,0)="^^4^4^2920130^^"
^DD(40.8,6,21,1,0)="Respond YES if the gains and losses sheet should combine the movements"
^DD(40.8,6,21,2,0)="which occur in the nursing home, hospital, and dom on a single sheet for"
^DD(40.8,6,21,3,0)="this division.  Answer no if movements for these three types of care"
^DD(40.8,6,21,4,0)="should be on different sheets."
^DD(40.8,6,"DT")="2930330"
^DD(40.8,7,0)="DEFAULT 1010 PRINTER^FX^^DEV;1^S L=X,X=$P(X,"";"",1),DIC=3.5,DIC(0)=""QMEZ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=$P(Y(0),U,1)_$S(L["";"":"";""_$P(L,"";"",2,99),1:"""") S DIC=$S($D(DIE):DIE,1:DIC) K L"
^DD(40.8,7,3)="Enter device where 10 10's will be printed"
^DD(40.8,7,4)="S DIC=3.5,DIC(0)=""EM"",X=""?"" D ^DIC S DIC=DIE"
^DD(40.8,7,21,0)="^^3^3^2911222^"
^DD(40.8,7,21,1,0)="Enter the printer which the 1010, 1010I, and 1010F outputs will display"
^DD(40.8,7,21,2,0)="on if no other printer is selected.  The reports will only print to this"
^DD(40.8,7,21,3,0)="printer for registrations at this division."
^DD(40.8,7,"DT")="2860709"
^DD(40.8,8,0)="DEFAULT DRUG PROFILE PRINTER^FX^^DEV;2^S L=X,X=$P(X,"";"",1),DIC=3.5,DIC(0)=""QZME"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=$P(Y(0),U,1)_$S(L["";"":"";""_$P(L,"";"",2,99),1:"""") S DIC=$S($D(DIE):DIE,1:DIC) K L"
^DD(40.8,8,3)="Enter device where Drug Profiles will be printed"
^DD(40.8,8,4)="S DIC=3.5,DIC(0)=""EM"",X=""?"" D ^DIC S DIC=DIE"
^DD(40.8,8,21,0)="^^3^3^2911222^"
^DD(40.8,8,21,1,0)="Enter the printer on which the pharmacy drug profile will display if no"
^DD(40.8,8,21,2,0)="other printer is selected.  The drug profile will only display to this"
^DD(40.8,8,21,3,0)="printer for registrations entered at this division."
^DD(40.8,8,"DT")="2860709"
^DD(40.8,9,0)="DEFAULT ROUTING SLIP PRINTER^FX^^DEV;3^S L=X,X=$P(X,"";"",1),DIC=3.5,DIC(0)=""QMEZ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=$P(Y(0),U,1)_$S(L["";"":"";""_$P(L,"";"",2,99),1:"""") S DIC=$S($D(DIE):DIE,1:DIC) K L"
^DD(40.8,9,3)="Enter device where Routing Slips will be printed"
^DD(40.8,9,4)="S DIC=3.5,DIC(0)=""EM"",X=""?"" D ^DIC S DIC=DIE"
^DD(40.8,9,21,0)="^^3^3^2911222^"
^DD(40.8,9,21,1,0)="Enter the printer on which the routing slip will appear if no other printer"
^DD(40.8,9,21,2,0)="is selected.  The routing slip will only display to this printer for"
^DD(40.8,9,21,3,0)="registrations entered at this division."
^DD(40.8,9,"DT")="2860709"
^DD(40.8,9.1,0)="DIVISION PTF PRINTER^FX^^DEV;4^S L=X,X=$P(X,"";"",1),DIC=3.5,DIC(0)=""QMEZ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=$P(Y(0),U,1)_$S(L["";"":"";""_$P(L,"";"",2,99),1:"""") S DIC=$S($D(DIE):DIE,1:DIC) K L"
^DD(40.8,9.1,3)="Enter device where MIS messages will be printed"
^DD(40.8,9.1,4)="S DIC=3.5,X=""??"",DIC(0)=""Q"" D ^DIC S DIC=$S($D(DIE):DIE,1:DIC)"
^DD(40.8,9.1,21,0)="^^4^4^2870729^"
^DD(40.8,9.1,21,1,0)="This is the printer on which you want all PTF messages to appear"
^DD(40.8,9.1,21,2,0)="for this division.  It overrides the printer defined in the"
^DD(40.8,9.1,21,3,0)="DEFAULT PTF MESSAGE PRINTER prompt located in the ADT PARAMETER"
^DD(40.8,9.1,21,4,0)="file."
^DD(40.8,9.1,"DT")="2861112"
^DD(40.8,10,0)="CENSUS DATE^40.802ID^^CEN;0"
^DD(40.8,10,21,0)="^^3^3^2920130^^^^"
^DD(40.8,10,21,1,0)="This multiple field contains data on inpatient census as broken "
^DD(40.8,10,21,2,0)="down by date.  This data is compiled when the gains and losses "
^DD(40.8,10,21,3,0)="and bed status reports are run."
^DD(40.8,26.01,0)="PRF ASSIGNMENT OWNERSHIP^*S^1:ENABLED;0:DISABLED;^PRF;1^Q"
^DD(40.8,26.01,3)="Enter 1 to enable this division as a patient record flag assignment owner; enter 0 to disable this division as a patient record flag assignment owner."
^DD(40.8,26.01,12)="Cannot disable this medical center division if active assignments are associated with the division."
^DD(40.8,26.01,12.1)="S DIC(""S"")=""I $$SCRNDIV^DGPFDD(DA,+Y)"""
^DD(40.8,26.01,21,0)="^.001^4^4^3050623^^^^"
^DD(40.8,26.01,21,1,0)="This field contains the indicator of whether or not this medical center "
^DD(40.8,26.01,21,2,0)="division has been designated as a patient record flag assignment owner."
^DD(40.8,26.01,21,3,0)="Data in this field should not be added or edited except through the use"
^DD(40.8,26.01,21,4,0)="of the Patient Record Flags software that is part of Registration."
^DD(40.8,26.01,"DT")="3050622"
^DD(40.8,26.02,0)="PRF OWNERSHIP EDITED^D^^PRF;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(40.8,26.02,3)="Enter the date and time the PRF Assignment Ownership indicator is edited."
^DD(40.8,26.02,21,0)="^.001^6^6^3050628^^^^"
^DD(40.8,26.02,21,1,0)="This field is used as part of the audit trail for the enabling/disabling"
^DD(40.8,26.02,21,2,0)="of medical center divisions as patient record flag assignment owners.  This"
^DD(40.8,26.02,21,3,0)="field will contain the date/time that the PRF ASSIGNMENT OWNERSHIP"
^DD(40.8,26.02,21,4,0)="indicator was edited."
^DD(40.8,26.02,21,5,0)="Data in this field should not be added or edited except through the use"
^DD(40.8,26.02,21,6,0)="of the Patient Record Flags software that is part of Registration."
^DD(40.8,26.02,"DT")="3050628"
^DD(40.8,26.03,0)="PRF OWNERSHIP EDITED BY^P200'^VA(200,^PRF;3^Q"
^DD(40.8,26.03,3)="Enter the user who is editing the PRF Assignment Ownership indicator."
^DD(40.8,26.03,21,0)="^.001^6^6^3050628^^^^"
^DD(40.8,26.03,21,1,0)="This field is used as part of the audit trail for the enabling/disabling"
^DD(40.8,26.03,21,2,0)="of medical center divisions as patient record flag assignment owners.  This"
^DD(40.8,26.03,21,3,0)="field will contain the user responsible for editing the PRF ASSIGNMENT"
^DD(40.8,26.03,21,4,0)="OWNERSHIP indicator."
^DD(40.8,26.03,21,5,0)="Data in this field should not be added or edited except through the use"
^DD(40.8,26.03,21,6,0)="of the Patient Record Flags software that is part of Registration."
^DD(40.8,26.03,"DT")="3050628"
^DD(40.8,30.01,0)="ADDRESS LOCATION ON LETTERS^S^1:BOTTOM;0:TOP;^LTR;1^Q"
^DD(40.8,30.01,21,0)="^^2^2^2911222^"
^DD(40.8,30.01,21,1,0)="Enter the location (top or bottom) where the address should appear for"
^DD(40.8,30.01,21,2,0)="letters generated for appointments or other activities at this division."
^DD(40.8,30.01,"DT")="2890109"
^DD(40.8,30.02,0)="OP LAB TEST START TIME^FX^^LTR;2^K:$L(X)>4!($L(X)<4)!'(X?4N)!($E(X,3,4)>59)!(X>2400) X"
^DD(40.8,30.02,3)="Answer with MILITARY time only."
^DD(40.8,30.02,21,0)="^^5^5^2911222^"
^DD(40.8,30.02,21,1,0)="Enter the time in the morning at which lab tests begin.  This is used by"
^DD(40.8,30.02,21,2,0)="the auto-rebook functionality to prevent lab test being scheduled too"
^DD(40.8,30.02,21,3,0)="early.  For example, if a patient has an appointment at 2pm with lab at"
^DD(40.8,30.02,21,4,0)="11pm and the appointment is cancelled and autorebooked for 8am, the lab"
^DD(40.8,30.02,21,5,0)="would have been scheduled for 5am.  This will prevent this from occurring."
^DD(40.8,30.02,"DT")="2920505"
^DD(40.8,30.03,0)="OP EKG START TIME^FX^^LTR;3^K:$L(X)>4!($L(X)<4)!'(X?4N)!(X>2400)!($E(X,3,4)>59) X"
^DD(40.8,30.03,3)="Answer with MILITARY time only."
^DD(40.8,30.03,21,0)="^^5^5^2911222^"
^DD(40.8,30.03,21,1,0)="Enter the time in the morning at which ekg tests begin.  This is used by"
^DD(40.8,30.03,21,2,0)="the auto-rebook functionality to prevent ekg test being scheduled too"
^DD(40.8,30.03,21,3,0)="early.  For example, if a patient has an appointment at 2pm with ekg at"
^DD(40.8,30.03,21,4,0)="11pm and the appointment is cancelled and auto-rebooked for 8am, the ekg"
^DD(40.8,30.03,21,5,0)="would have been scheduled for 5am.  This will prevent this from occurring."
^DD(40.8,30.03,"DT")="2920505"
^DD(40.8,30.04,0)="OP X-RAY START TIME^FX^^LTR;4^K:$L(X)>4!($L(X)<4)!'(X?4N)!(X>2400)!($E(X,3,4)>59) X"
^DD(40.8,30.04,3)="Answer with MILITARY time only."
^DD(40.8,30.04,21,0)="^^6^6^2911222^"
^DD(40.8,30.04,21,1,0)="Enter the time in the morning at which x-ray tests begin.  This is used by"
^DD(40.8,30.04,21,2,0)="the auto-rebook functionality to prevent x-ray test being scheduled too"
^DD(40.8,30.04,21,3,0)="early.  For example, if a patient has an appointment at 2pm with x-ray at"
^DD(40.8,30.04,21,4,0)="11pm and the appointment is cancelled and auto-rebooked for 8am, the"
^DD(40.8,30.04,21,5,0)="x-ray would have been scheduled for 5am.  This will prevent this from"
^DD(40.8,30.04,21,6,0)="occurring."
^DD(40.8,30.04,"DT")="2920505"
^DD(40.8,35.01,0)="DISPLAY MEANS TEST REQUIRED^S^Y:YES;N:NO;^MT;1^Q"
^DD(40.8,35.01,3)="Enter whether you want to display Means Test Required message on patient lookups "
^DD(40.8,35.01,21,0)="^^1^1^2991227^^^^"
^DD(40.8,35.01,21,1,0)="This field determines whether a Means Test Required message is displayed on patient lookups at this division"
^DD(40.8,35.01,"DT")="2991208"
^DD(40.8,35.02,0)="MEANS TEST TEXT^FX^^MT;2^K:$L(X)>80!($L(X)<3) X"
^DD(40.8,35.02,3)="Enter text to be displayed, such as where to report,etc. "
^DD(40.8,35.02,21,0)="^^3^3^2991129^^"
^DD(40.8,35.02,21,1,0)="If you have answered 'Yes' to the Means Test Required prompt, you can"
^DD(40.8,35.02,21,2,0)="enter text here to be displayed upon patient lookup, such as where to"
^DD(40.8,35.02,21,3,0)="report to complete the Means Test, etc. "
^DD(40.8,35.02,"DT")="3000110"
^DD(40.8,35.03,0)="DISPLAY MEANS TEST REQ IF GUI^S^Y:YES;N:NO;^MT;3^Q"
^DD(40.8,35.03,3)="Enter whether you want to display Means Test Required message on GUI patient lookups "
^DD(40.8,35.03,21,0)="^^1^1^2991227^^^^"
^DD(40.8,35.03,21,1,0)="This field determines whether a Means Test Required message is displayed on patient GUI lookups"
^DD(40.8,35.03,"DT")="2991202"
^DD(40.8,40,0)="OP VISIT DATE^40.808D^^OP;0"
^DD(40.8,40,21,0)="^^2^2^2930522^^^^"
^DD(40.8,40,21,1,0)="This field is a multiple containing the OP visit date, planned OP"
^DD(40.8,40,21,2,0)="visits (CUM) and actual OP visits (CUM).  "
^DD(40.8,50,0)="TREATING SPECIALTY^40.806P^^TS;0"
^DD(40.8,50,21,0)="^^2^2^2941004^^^^"
^DD(40.8,50,21,1,0)="This multiple contains data as it is used in the"
^DD(40.8,50,21,2,0)="Treating Specialty Report."
^DD(40.8,50,"DT")="2941004"
^DD(40.8,100.01,0)="TRACK INCOMPLETE SUMMARIES?^RS^1:YES;0:NO;^DT;1^Q"
^DD(40.8,100.01,3)="Are you tracking delinquent summaries at this division?"
^DD(40.8,100.01,21,0)="^^1^1^2930713^^^^"
^DD(40.8,100.01,21,1,0)="Is this division using the MAS summary tracking package?"
^DD(40.8,100.01,"DT")="2910813"
^DD(40.8,100.02,0)="DEFAULT PRIMARY PHYSICIAN^RS^P:PRIMARY CARE PHYSICIAN;A:ATTENDING PHYSICIAN;^DT;2^Q"
^DD(40.8,100.02,3)="Enter the physician responsible for dictating the report"
^DD(40.8,100.02,21,0)="^^6^6^2920421^^^^"
^DD(40.8,100.02,21,1,0)="Enter 'P' if the PRIMARY CARE PHYSICIAN is responsible for this summary or"
^DD(40.8,100.02,21,2,0)="op report or 'A' if the ATTENDING PHYSICIAN is responsible."
^DD(40.8,100.02,21,3,0)="If, for example, you choose ATTENDING PHYSICIAN, the ATTENDING PHYSICIAN"
^DD(40.8,100.02,21,4,0)="of record in bed control, when the summary or OP report is created,"
^DD(40.8,100.02,21,5,0)="will be the default. You may, however, edit the PHYSICIAN RESPONSIBLE"
^DD(40.8,100.02,21,6,0)="at any time."
^DD(40.8,100.02,"DT")="2920421"
^DD(40.8,100.03,0)="ARE REPORTS REVIEWED?^RS^1:YES;0:NO;^DT;3^Q"
^DD(40.8,100.03,3)="Does this division require that summaries are reviewed?"
^DD(40.8,100.03,21,0)="^^2^2^2910813^^"
^DD(40.8,100.03,21,1,0)="If this division requires a second physician to review the summary, respond"
^DD(40.8,100.03,21,2,0)="YES, otherwise respond NO."
^DD(40.8,100.03,"DT")="2910207"
^DD(40.8,100.04,0)="DEFAULT REVIEWING PHYSICIAN^RS^P:PRIMARY CARE PHYSICIAN;A:ATTENDING PHYSICIAN;^DT;4^Q"
^DD(40.8,100.04,3)="Enter the type of physician responsible for reviewing the summary."
^DD(40.8,100.04,21,0)="^^4^4^2910813^^^^"
^DD(40.8,100.04,21,1,0)="If summaries require review, enter the PRIMARY or ATTENDING"
^DD(40.8,100.04,21,2,0)="physician responsible.  If, for example, you choose ATTENDING PHYSICIAN,"
^DD(40.8,100.04,21,3,0)="the ATTENDING PHYSICIAN of record in bed control, when the summary or"
^DD(40.8,100.04,21,4,0)="OP report is created, will be the default."
^DD(40.8,100.04,"DT")="2910207"
^DD(40.8,100.05,0)="TRACK OUTPATIENT OP REPORTS?^RS^1:YES;0:NO;^DT;5^Q"
^DD(40.8,100.05,3)="Do you want to allow entry of outpatient op reports into the tracking system?"
^DD(40.8,100.05,21,0)="^^2^2^2910813^^^^"
^DD(40.8,100.05,21,1,0)="If you want to track outpatient op reports at this division, respond YES."
^DD(40.8,100.05,21,2,0)="Otherwise, respond NO."
^DD(40.8,100.05,"DT")="2910207"
^DD(40.8,100.06,0)="DAYS FOR DICTATION^RNJ2,0^^DT;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.8,100.06,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(40.8,100.06,21,0)="^^2^2^2910813^^^^"
^DD(40.8,100.06,21,1,0)="Enter the number of days the physician has to dictate a summary before it"
^DD(40.8,100.06,21,2,0)="is considered incomplete."
^DD(40.8,100.06,"DT")="2910620"
^DD(40.8,100.07,0)="DAYS FOR SIGNATURE^RNJ2,0^^DT;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.8,100.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(40.8,100.07,21,0)="^^2^2^2910813^^^"
^DD(40.8,100.07,21,1,0)="Enter the number of days from the date of transcription the physician has"
^DD(40.8,100.07,21,2,0)="in order to sign the summary or op report."
^DD(40.8,100.07,"DT")="2910620"
^DD(40.8,100.08,0)="DAYS FOR REVIEW^NJ2,0^^DT;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.8,100.08,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(40.8,100.08,21,0)="^^2^2^2910813^^^"
^DD(40.8,100.08,21,1,0)="Enter the number of days the reviewing physician has to review the report"
^DD(40.8,100.08,21,2,0)="once it has been signed."
^DD(40.8,100.08,"DT")="2910620"
^DD(40.8,100.09,0)="INCOMPLETE SUMMARIES MESSAGE^F^^DT;9^K:$L(X)>99!($L(X)<1) X"
^DD(40.8,100.09,3)="Answer must be 1-99 characters in length."
^DD(40.8,100.09,21,0)="^^2^2^2920213^^^^"
^DD(40.8,100.09,21,1,0)="This field contains the message that the facility wants displayed"
^DD(40.8,100.09,21,2,0)="at the end of each page for each type of report."
^DD(40.8,100.09,"DT")="2910813"
^DD(40.8,100.1,0)="DEFAULT PHYS. FOR SIGNATURE^RS^P:PRIMARY CARE PHYSICIAN;A:ATTENDING PHYSICIAN;^DT;10^Q"
^DD(40.8,100.1,21,0)="^^5^5^2930714^^^^"
^DD(40.8,100.1,21,1,0)="This is a new field in file 40.8 the MEDICAL CENTER DIVISION"
^DD(40.8,100.1,21,2,0)="file.  This field will be asked in the Set Up IRT Parameters"
^DD(40.8,100.1,21,3,0)="option and will be used to store the default of the physician"
^DD(40.8,100.1,21,4,0)="who will be responsible for the signature of a deficiency.  It"
^DD(40.8,100.1,21,5,0)="will be either the Primary or the Attending physician."
^DD(40.8,100.1,"DT")="2930211"
^DD(40.8,100.2,0)="STD. DEFIC. FOR SHORT FORMS?^RS^1:YES;0:N;^DT;11^Q"
^DD(40.8,100.2,3)="Entering 'Yes' will cause the IRT Background Job to create standard deficiencies for short forms."
^DD(40.8,100.2,21,0)="^^4^4^2930713^^"
^DD(40.8,100.2,21,1,0)="By entering yes in this field,  the IRT Backgroud Job will create standard"
^DD(40.8,100.2,21,2,0)="deficiencies for short form discharges ( discharged less than 48 hours"
^DD(40.8,100.2,21,3,0)="after admission).  If you enter no in this field the standard deficiencies"
^DD(40.8,100.2,21,4,0)="will not be created for short forms in the IRT Background Job."
^DD(40.8,100.2,"DT")="2930713"
^DD(40.8,100.3,0)="DEFAULT MEDICAL RECORD TYPE^P195.2'^DIC(195.2,^DT;12^Q"
^DD(40.8,100.3,3)="Enter the Division's default record type for Medical records."
^DD(40.8,100.3,21,0)="^^3^3^3011022^"
^DD(40.8,100.3,21,1,0)="Incomplete Records Tracking will use this entry as the default Medical"
^DD(40.8,100.3,21,2,0)="record type for Division when pulling patient information.  If blank,"
^DD(40.8,100.3,21,3,0)="MEDICAL RECORD will be default value."
^DD(40.8,100.3,"DT")="3011022"
^DD(40.8,900.01,0)="RAI SUBSCRIPTION NUMBER^P774'^HLS(774,^RAI;1^Q"
^DD(40.8,900.01,3)="Enter the HL7 subscription registy number"
^DD(40.8,900.01,21,0)="^^6^6^2991102^"
^DD(40.8,900.01,21,1,0)="This field points to the subscribing RAI/MDS COTS system subscription"
^DD(40.8,900.01,21,2,0)="registry for patient updates.  This subscription control number is "
^DD(40.8,900.01,21,3,0)="specific to this division.  Do not change the control number once set"
^DD(40.8,900.01,21,4,0)="up as this will prevent the COTS system from being updated by VistA."
^DD(40.8,900.01,21,5,0)="Use only documented API calls to create or retrieve the subscription"
^DD(40.8,900.01,21,6,0)="control number."
^DD(40.8,900.01,"DT")="2991102"
^DD(40.8,"B","ADDRESS LOCATION ON LETTERS",30.01)=""
^DD(40.8,"B","ARE REPORTS REVIEWED?",100.03)=""
^DD(40.8,"B","CENSUS DATE",10)=""
^DD(40.8,"B","DAYS FOR DICTATION",100.06)=""
^DD(40.8,"B","DAYS FOR REVIEW",100.08)=""
^DD(40.8,"B","DAYS FOR SIGNATURE",100.07)=""
^DD(40.8,"B","DEFAULT 1010 PRINTER",7)=""
^DD(40.8,"B","DEFAULT DRUG PROFILE PRINTER",8)=""
^DD(40.8,"B","DEFAULT MEDICAL RECORD TYPE",100.3)=""
^DD(40.8,"B","DEFAULT PHYS. FOR SIGNATURE",100.1)=""
^DD(40.8,"B","DEFAULT PRIMARY PHYSICIAN",100.02)=""
^DD(40.8,"B","DEFAULT REVIEWING PHYSICIAN",100.04)=""
^DD(40.8,"B","DEFAULT ROUTING SLIP PRINTER",9)=""
^DD(40.8,"B","DISPLAY MEANS TEST REQ IF GUI",35.03)=""
^DD(40.8,"B","DISPLAY MEANS TEST REQUIRED",35.01)=""
^DD(40.8,"B","DIVISION PTF PRINTER",9.1)=""
^DD(40.8,"B","EMPLOYEE HEALTH COUNTS",2)=""
^DD(40.8,"B","FACILITY NUMBER",1)=""
^DD(40.8,"B","INCOMPLETE SUMMARIES MESSAGE",100.09)=""
^DD(40.8,"B","INSTITUTION FILE POINTER",.07)=""
^DD(40.8,"B","MEANS TEST TEXT",35.02)=""
^DD(40.8,"B","NAME",.01)=""
^DD(40.8,"B","NHCU/DOM/HOSP G&L",6)=""
^DD(40.8,"B","NUM",.001)=""
^DD(40.8,"B","OP EKG START TIME",30.03)=""
^DD(40.8,"B","OP LAB TEST START TIME",30.02)=""
^DD(40.8,"B","OP VISIT DATE",40)=""
^DD(40.8,"B","OP X-RAY START TIME",30.04)=""
^DD(40.8,"B","OUTPATIENT ONLY",3)=""
^DD(40.8,"B","PRF ASSIGNMENT OWNERSHIP",26.01)=""
^DD(40.8,"B","PRF OWNERSHIP EDITED",26.02)=""
^DD(40.8,"B","PRF OWNERSHIP EDITED BY",26.03)=""
^DD(40.8,"B","PRINT 'AA' ON G&L",5)=""
^DD(40.8,"B","PRINT 'AA'<96' ON G&L",4)=""
^DD(40.8,"B","PRINT WRISTBANDS",.08)=""
^DD(40.8,"B","RAI SUBSCRIPTION NUMBER",900.01)=""
^DD(40.8,"B","STD. DEFIC. FOR SHORT FORMS?",100.2)=""
^DD(40.8,"B","TRACK INCOMPLETE SUMMARIES?",100.01)=""
^DD(40.8,"B","TRACK OUTPATIENT OP REPORTS?",100.05)=""
^DD(40.8,"B","TREATING SPECIALTY",50)=""
^DD(40.8,"GL",0,1,.01)=""
^DD(40.8,"GL",0,2,1)=""
^DD(40.8,"GL",0,3,3)=""
^DD(40.8,"GL",0,4,4)=""
^DD(40.8,"GL",0,5,5)=""
^DD(40.8,"GL",0,6,6)=""
^DD(40.8,"GL",0,7,.07)=""
^DD(40.8,"GL",0,8,.08)=""
^DD(40.8,"GL",1,0,2)=""
^DD(40.8,"GL","CEN",0,10)=""
^DD(40.8,"GL","DEV",1,7)=""
^DD(40.8,"GL","DEV",2,8)=""
^DD(40.8,"GL","DEV",3,9)=""
^DD(40.8,"GL","DEV",4,9.1)=""
^DD(40.8,"GL","DT",1,100.01)=""
^DD(40.8,"GL","DT",2,100.02)=""
^DD(40.8,"GL","DT",3,100.03)=""
^DD(40.8,"GL","DT",4,100.04)=""
^DD(40.8,"GL","DT",5,100.05)=""
^DD(40.8,"GL","DT",6,100.06)=""
^DD(40.8,"GL","DT",7,100.07)=""
^DD(40.8,"GL","DT",8,100.08)=""
^DD(40.8,"GL","DT",9,100.09)=""
^DD(40.8,"GL","DT",10,100.1)=""
^DD(40.8,"GL","DT",11,100.2)=""
^DD(40.8,"GL","DT",12,100.3)=""
^DD(40.8,"GL","LTR",1,30.01)=""
^DD(40.8,"GL","LTR",2,30.02)=""
^DD(40.8,"GL","LTR",3,30.03)=""
^DD(40.8,"GL","LTR",4,30.04)=""
^DD(40.8,"GL","MT",1,35.01)=""
^DD(40.8,"GL","MT",2,35.02)=""
^DD(40.8,"GL","MT",3,35.03)=""
^DD(40.8,"GL","OP",0,40)=""
^DD(40.8,"GL","PRF",1,26.01)=""
^DD(40.8,"GL","PRF",2,26.02)=""
^DD(40.8,"GL","PRF",3,26.03)=""
^DD(40.8,"GL","RAI",1,900.01)=""
^DD(40.8,"GL","TS",0,50)=""
^DD(40.8,"IX",.01)=""
^DD(40.8,"IX",.07)=""
^DD(40.8,"IX",1)=""
^DD(40.8,"RQ",.01)=""
^DD(40.8,"RQ",.07)=""
^DD(40.8,"RQ",1)=""
^DD(40.8,"RQ",100.01)=""
^DD(40.8,"RQ",100.02)=""
^DD(40.8,"RQ",100.03)=""
^DD(40.8,"RQ",100.04)=""
^DD(40.8,"RQ",100.05)=""
^DD(40.8,"RQ",100.06)=""
^DD(40.8,"RQ",100.07)=""
^DD(40.8,"RQ",100.1)=""
^DD(40.8,"RQ",100.2)=""
^DD(40.8,"SB",40.801,2)=""
^DD(40.8,"SB",40.802,10)=""
^DD(40.8,"SB",40.806,50)=""
^DD(40.8,"SB",40.808,40)=""
^DD(40.801,0)="EMPLOYEE HEALTH COUNTS SUB-FIELD^NL^1^2"
^DD(40.801,0,"NM","EMPLOYEE HEALTH COUNTS")=""
^DD(40.801,0,"UP")="40.8"
^DD(40.801,.01,0)="MONTH/YEAR^DX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(40.801,.01,21,0)="^^1^1^2911222^"
^DD(40.801,.01,21,1,0)="Enter the year for which employee health visits are to be tracked."
^DD(40.801,.01,"DT")="2840221"
^DD(40.801,1,0)="TOTAL^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.801,1,21,0)="^^2^2^2911222^"
^DD(40.801,1,21,1,0)="Enter the total number of employee health visits to this division during"
^DD(40.801,1,21,2,0)="this month."
^DD(40.801,"B","MONTH/YEAR",.01)=""
^DD(40.801,"B","TOTAL",1)=""
^DD(40.801,"GL",0,1,.01)=""
^DD(40.801,"GL",0,2,1)=""
^DD(40.802,0)="CENSUS DATE SUB-FIELD^NL^20^19"
^DD(40.802,0,"ID",4)="W:$D(^(0)) ""   "",$P(^(0),U,5)"
^DD(40.802,0,"NM","CENSUS DATE")=""
^DD(40.802,0,"UP")="40.8"
^DD(40.802,.01,0)="CENSUS DATE^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(40.802,.01,3)="Enter the date you wish to enter or edit the census for."
^DD(40.802,.01,"DT")="2840615"
^DD(40.802,1,0)="CUM PLANNED NH ADC^NJ4,0^^0;2^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2999"
^DD(40.802,1,21,0)="^^2^2^2920130^"
^DD(40.802,1,21,1,0)="This sub-field of the Census Date contains the Cumulative Planned "
^DD(40.802,1,21,2,0)="Nursing Home Average Daily Census (ADC).  "
^DD(40.802,1,"DT")="2840615"
^DD(40.802,1.25,0)="CUM PLANNED DOM ADC^NJ7,2^^0;10^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(40.802,1.25,3)="Enter the cumulative planned domicillary ADC, 0-2999."
^DD(40.802,1.25,21,0)="^^2^2^2920130^"
^DD(40.802,1.25,21,1,0)="This sub-field of the Census Date contains the Cumulative Planned "
^DD(40.802,1.25,21,2,0)="Domicillary Average Daily Census (ADC)."
^DD(40.802,1.25,"DT")="2840815"
^DD(40.802,1.5,0)="AVG DOM CENSUS FY TO DATE^NJ4,0^^0;9^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,1.5,3)="Enter the average census for the domicillary, fiscal year to date, 0-2999."
^DD(40.802,1.5,21,0)="^^2^2^2920130^"
^DD(40.802,1.5,21,1,0)="This sub-field of the Census Date contains the Average Domicillary "
^DD(40.802,1.5,21,2,0)="Census for the current fiscal year to date."
^DD(40.802,1.5,"DT")="2840615"
^DD(40.802,2,0)="MONTHLY PLANNED ADC^NJ4,0^^0;3^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2999"
^DD(40.802,2,21,0)="^^2^2^2920130^"
^DD(40.802,2,21,1,0)="This sub-field of the Census Date contains the Monthly Planned Average "
^DD(40.802,2,21,2,0)="Daily Census (ADC)."
^DD(40.802,2,"DT")="2840615"
^DD(40.802,2.25,0)="MONTHLY PLANNED NH ADC^NJ7,2^^0;11^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(40.802,2.25,3)="Enter the monthly planned nursing home ADC, 0-2999."
^DD(40.802,2.25,21,0)="^^2^2^2920130^"
^DD(40.802,2.25,21,1,0)="This sub-field of the Census Date contains the Monthly Planned Nursing "
^DD(40.802,2.25,21,2,0)="Home Average Daily Census (ADC)."
^DD(40.802,2.25,"DT")="2840815"
^DD(40.802,2.5,0)="MONTHLY PLANNED DOM ADC^NJ7,2^^0;12^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(40.802,2.5,3)="Enter the monthly planned domicillary ADC, 0-2999."
^DD(40.802,2.5,21,0)="^^2^2^2920130^"
^DD(40.802,2.5,21,1,0)="This sub-field of the Census Date contains the Monthly Planned "
^DD(40.802,2.5,21,2,0)="Domicillary Average Daily Census (ADC)."
^DD(40.802,2.5,"DT")="2840815"
^DD(40.802,3,0)="CUM PLANNED ADC^NJ7,2^^0;4^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(40.802,3,3)="Enter the cumulative planned ADC for the medical center, 0-2999."
^DD(40.802,3,21,0)="^^2^2^2920130^"
^DD(40.802,3,21,1,0)="This sub-field of the Census Date contains the Cumulative Planned "
^DD(40.802,3,21,2,0)="Average Daily Census (ADC) for this medical center."
^DD(40.802,3,"DT")="2840815"
^DD(40.802,4,0)="*DIALYSIS PATIENTS^NJ4,0^^0;5^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,4,3)="Enter the number of dialysis patient's selected for the current date."
^DD(40.802,4,21,0)="^^2^2^2920130^"
^DD(40.802,4,21,1,0)="This sub-field of the Census Date contains the number of "
^DD(40.802,4,21,2,0)="Dialysis Patients for this census date."
^DD(40.802,4,"DT")="2920130"
^DD(40.802,5,0)="CENSUS^NJ4,0^^0;6^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2999"
^DD(40.802,5,21,0)="^^2^2^2920130^"
^DD(40.802,5,21,1,0)="This sub-field of the Census Date contains the Census figures "
^DD(40.802,5,21,2,0)="for the medical center."
^DD(40.802,5,"DT")="2840615"
^DD(40.802,6,0)="AVG CENSUS FY TO DATE^NJ14,9^^0;7^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(40.802,6,3)="Enter the average census for the medical center, fiscal year to date."
^DD(40.802,6,21,0)="^^2^2^2920130^"
^DD(40.802,6,21,1,0)="This sub-field of the Census Date contains the Average Census "
^DD(40.802,6,21,2,0)="Fiscal Year to date.  "
^DD(40.802,6,"DT")="2840815"
^DD(40.802,8,0)="AVG NH CENSUS FY TO DATE^NJ14,9^^0;8^K:+X'=X!(X>2999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(40.802,8,3)="Enter the average census for the nursing home, fiscal year to date, 0-2999."
^DD(40.802,8,21,0)="^^2^2^2920130^^"
^DD(40.802,8,21,1,0)="This sub-field of the Census Date contains the Average "
^DD(40.802,8,21,2,0)="Nursing Home Census Fiscal Year to date."
^DD(40.802,8,"DT")="2840815"
^DD(40.802,9,0)="*CUMULATIVE DIALYSIS PATIENTS^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,9,3)="Enter the cumulative number of dialysis patients, 0-9999."
^DD(40.802,9,21,0)="^^2^2^2920130^"
^DD(40.802,9,21,1,0)="This sub-field of the Census Date contains the Cumulative "
^DD(40.802,9,21,2,0)="Dialysis Patients fiscal year to date."
^DD(40.802,9,"DT")="2920130"
^DD(40.802,10,0)="WAIT LIST - 65 AND OVER^NJ6,0^^1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,10,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(40.802,10,21,0)="^^2^2^2920130^"
^DD(40.802,10,21,1,0)="This sub-field of the Census Date contains the number of patients "
^DD(40.802,10,21,2,0)="on the Waiting List that are 65 years old and over."
^DD(40.802,10,"DT")="2850103"
^DD(40.802,11,0)="WAIT LIST - VIET NAM ERA^NJ6,0^^1;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(40.802,11,21,0)="^^2^2^2920130^"
^DD(40.802,11,21,1,0)="This sub-field of the Census Date contains the number of patients "
^DD(40.802,11,21,2,0)="on the Waiting List that are Vietnam Era."
^DD(40.802,12,0)="*BED OCCUPANTS - 65 AND OVER^NJ6,0^^1;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(40.802,13,0)="*BED OCCUPANTS - VIET NAM ERA^NJ6,0^^1;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.802,13,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(40.802,14,0)="WAIT LIST BEDSECTION^40.805SA^^2;0"
^DD(40.802,14,21,0)="^^2^2^2920130^"
^DD(40.802,14,21,1,0)="This sub-field of the Census Date multiple is a mutiple that adds "
^DD(40.802,14,21,2,0)="new entries without asking, inpatient AMISs use this information.ient A"
^DD(40.802,20,0)="CORRECTIONS TO PREVIOUS G&L'S^40.804^^A;0"
^DD(40.802,20,21,0)="^^3^3^2920130^"
^DD(40.802,20,21,1,0)="This sub-field of the Census Date multiple is a word-processing field and "
^DD(40.802,20,21,2,0)="contains the corrections to previous G&L's and is printed at the bottom "
^DD(40.802,20,21,3,0)="Census Date Gains and Losses Sheet (G&L)."
^DD(40.802,"B","*BED OCCUPANTS - 65 AND OVER",12)=""
^DD(40.802,"B","*BED OCCUPANTS - VIET NAM ERA",13)=""
^DD(40.802,"B","*CUMULATIVE DIALYSIS PATIENTS",9)=""
^DD(40.802,"B","*DIALYSIS PATIENTS",4)=""
^DD(40.802,"B","AVG CENSUS FY TO DATE",6)=""
^DD(40.802,"B","AVG DOM CENSUS FY TO DATE",1.5)=""
^DD(40.802,"B","AVG NH CENSUS FY TO DATE",8)=""
^DD(40.802,"B","CENSUS",5)=""
^DD(40.802,"B","CENSUS DATE",.01)=""
^DD(40.802,"B","CORRECTIONS TO PREVIOUS G&L'S",20)=""
^DD(40.802,"B","CUM PLANNED ADC",3)=""
^DD(40.802,"B","CUM PLANNED DOM ADC",1.25)=""
^DD(40.802,"B","CUM PLANNED NH ADC",1)=""
^DD(40.802,"B","MONTHLY PLANNED ADC",2)=""
^DD(40.802,"B","MONTHLY PLANNED DOM ADC",2.5)=""
^DD(40.802,"B","MONTHLY PLANNED NH ADC",2.25)=""
^DD(40.802,"B","WAIT LIST - 65 AND OVER",10)=""
^DD(40.802,"B","WAIT LIST - VIET NAM ERA",11)=""
^DD(40.802,"B","WAIT LIST BEDSECTION",14)=""
^DD(40.802,"GL",0,1,.01)=""
^DD(40.802,"GL",0,2,1)=""
^DD(40.802,"GL",0,3,2)=""
^DD(40.802,"GL",0,4,3)=""
^DD(40.802,"GL",0,5,4)=""
^DD(40.802,"GL",0,6,5)=""
^DD(40.802,"GL",0,7,6)=""
^DD(40.802,"GL",0,8,8)=""
^DD(40.802,"GL",0,9,1.5)=""
^DD(40.802,"GL",0,10,1.25)=""
^DD(40.802,"GL",0,11,2.25)=""
^DD(40.802,"GL",0,12,2.5)=""
^DD(40.802,"GL",0,13,9)=""
^DD(40.802,"GL",1,1,10)=""
^DD(40.802,"GL",1,2,11)=""
^DD(40.802,"GL",1,3,12)=""
^DD(40.802,"GL",1,4,13)=""
^DD(40.802,"GL",2,0,14)=""
^DD(40.802,"GL","A",0,20)=""
^DD(40.802,"SB",40.804,20)=""
^DD(40.802,"SB",40.805,14)=""
^DD(40.804,0)="CORRECTIONS TO PREVIOUS G&L'S SUB-FIELD^NL^.01^1"
^DD(40.804,0,"NM","CORRECTIONS TO PREVIOUS G&L'S")=""
^DD(40.804,0,"UP")="40.802"
^DD(40.804,.01,0)="CORRECTIONS TO PREVIOUS G&L'S^W^^0;1^Q"
^DD(40.804,.01,"DT")="2841112"
^DD(40.804,"B","CORRECTIONS TO PREVIOUS G&L'S",.01)=""
^DD(40.804,"GL",0,1,.01)=""
^DD(40.805,0)="WAIT LIST BEDSECTION SUB-FIELD^NL^.04^4"
^DD(40.805,0,"NM","WAIT LIST BEDSECTION")=""
^DD(40.805,0,"UP")="40.802"
^DD(40.805,.01,0)="WAIT LIST BEDSECTION^MSX^334:PSYCHIATRY;335:INTERMEDIATE;336:MEDICINE;337:NEUROLOGY;338:REHAB MEDICINE;339:BLIND REHAB;340:SPINAL CORD INJURY;341:SURGERY;345:NHCU;^0;1^S:$D(X) DINUM=X"
^DD(40.805,.01,21,0)="^^2^2^2920130^^"
^DD(40.805,.01,21,1,0)="This sub-field of the Waiting List Bedsection of the Census Date Multiple "
^DD(40.805,.01,21,2,0)="is a set of code and is by inpatient AMISs."
^DD(40.805,.01,"DT")="2850104"
^DD(40.805,.02,0)="WAIT LIST IN HOSPITAL^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.805,.02,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(40.805,.02,21,0)="^^2^2^2920130^^"
^DD(40.805,.02,21,1,0)="This sub-field of the Waiting List Bedsection of the Census Date Multiple"
^DD(40.805,.02,21,2,0)="is the number of patients on the waiting list for this bedsection."
^DD(40.805,.02,"DT")="2850104"
^DD(40.805,.03,0)="WAIT LIST NOT IN HOSPITAL^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.805,.03,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(40.805,.03,21,0)="^^3^3^2920130^"
^DD(40.805,.03,21,1,0)="This sub-field of the Waiting List Bedsection of the Census Date Multiple "
^DD(40.805,.03,21,2,0)="is the number of patients on the waiting list for this bedsection not "
^DD(40.805,.03,21,3,0)="in the hospital."
^DD(40.805,.04,0)="WAIT LIST - SERVICE CONNECTED^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.805,.04,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(40.805,.04,21,0)="^^3^3^2920130^"
^DD(40.805,.04,21,1,0)="This sub-field of the Waiting List Bedsection of the Census Date Multiple "
^DD(40.805,.04,21,2,0)="is the number of patients on the waiting list for this bedsection who are "
^DD(40.805,.04,21,3,0)="service connected.  "
^DD(40.805,.04,"DT")="2850104"
^DD(40.805,"B","WAIT LIST - SERVICE CONNECTED",.04)=""
^DD(40.805,"B","WAIT LIST BEDSECTION",.01)=""
^DD(40.805,"B","WAIT LIST IN HOSPITAL",.02)=""
^DD(40.805,"B","WAIT LIST NOT IN HOSPITAL",.03)=""
^DD(40.805,"GL",0,1,.01)=""
^DD(40.805,"GL",0,2,.02)=""
^DD(40.805,"GL",0,3,.03)=""
^DD(40.805,"GL",0,4,.04)=""
^DD(40.806,0)="TREATING SPECIALTY SUB-FIELD^^10^5"
^DD(40.806,0,"DT")="2940930"
^DD(40.806,0,"IX","ATS",40.806,.04)=""
^DD(40.806,0,"IX","B",40.806,.01)=""
^DD(40.806,0,"NM","TREATING SPECIALTY")=""
^DD(40.806,0,"UP")="40.8"
^DD(40.806,.01,0)="TREATING SPECIALTY^MP45.7'X^DIC(45.7,^0;1^I $D(X) S DINUM=+X"
^DD(40.806,.01,1,0)="^.1"
^DD(40.806,.01,1,1,0)="40.806^B"
^DD(40.806,.01,1,1,1)="S ^DG(40.8,DA(1),""TS"",""B"",$E(X,1,30),DA)="""""
^DD(40.806,.01,1,1,2)="K ^DG(40.8,DA(1),""TS"",""B"",$E(X,1,30),DA)"
^DD(40.806,.01,1,2,0)="40.8^D"
^DD(40.806,.01,1,2,1)="S ^DG(40.8,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(40.806,.01,1,2,2)="K ^DG(40.8,""D"",$E(X,1,30),DA(1),DA)"
^DD(40.806,.01,1,2,"DT")="2930406"
^DD(40.806,.01,3)="Answer with the CENSUS Treating Specialty."
^DD(40.806,.01,21,0)="^^2^2^2930728^^^^"
^DD(40.806,.01,21,1,0)="This sub-field of the Treating Specialty multiple is a multiple and "
^DD(40.806,.01,21,2,0)="a pointer to the Facility Treating Speciality File (#45.7)"
^DD(40.806,.01,"DT")="2930406"
^DD(40.806,.02,0)="NUMBER OF BEDS^NJ3,0^^0;2^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.806,.02,3)="Type a Number between 0 and 500, 0 Decimal Digits"
^DD(40.806,.02,21,0)="^^1^1^2930728^^^"
^DD(40.806,.02,21,1,0)="This sub-field of the Treating Specialty multiple is the number of beds."
^DD(40.806,.02,"DT")="2890218"
^DD(40.806,.03,0)="BEGINNING TSR PATIENTS^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.806,.03,3)="Type a Number between 0 and 99999, 0 Decimal Digits * Enter the number of patients for this Treating Specialty on the TSR Initialization Date "
^DD(40.806,.03,21,0)="^^2^2^2930728^"
^DD(40.806,.03,21,1,0)="This sub-field of the Treating Specialty multiple is used to initialize"
^DD(40.806,.03,21,2,0)="the number of patients for the TSR."
^DD(40.806,.03,"DT")="2930128"
^DD(40.806,.04,0)="TSR ORDER^NJ8,2^^0;4^K:+X'=X!(X>99999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(40.806,.04,1,0)="^.1"
^DD(40.806,.04,1,1,0)="40.806^ATS^MUMPS"
^DD(40.806,.04,1,1,1)="S ^DG(40.8,""ATS"",DA(1),$E(X,1,30),DA)="""""
^DD(40.806,.04,1,1,2)="K ^DG(40.8,""ATS"",DA(1),$E(X,1,30),DA)"
^DD(40.806,.04,1,1,"%D",0)="^^2^2^2940901^^"
^DD(40.806,.04,1,1,"%D",1,0)="This Cross Reference is used to print out the Treating Specialty Report "
^DD(40.806,.04,1,1,"%D",2,0)="in the print order specified by this field for each division."
^DD(40.806,.04,1,1,"DT")="2930128"
^DD(40.806,.04,3)="Type a Number between .01 and 99999, 2 Decimal Digits.  This will be used to determine the order in which treating specialties will print on the TSR."
^DD(40.806,.04,21,0)="^^5^5^2941006^^^^"
^DD(40.806,.04,21,1,0)="This sub-field of the Treating Specialty multiple will be used in the"
^DD(40.806,.04,21,2,0)="print display order of the Treating Specialty Report by division."
^DD(40.806,.04,21,3,0)="This field entry must be unique and greater than 0 for a treating"
^DD(40.806,.04,21,4,0)="specialty to appear on the TSR.  If the treating specialty should not be"
^DD(40.806,.04,21,5,0)="printed on the TSR, the value in this field should be deleted."
^DD(40.806,.04,"DT")="2930128"
^DD(40.806,10,0)="CENSUS DATE^40.807D^^C;0"
^DD(40.806,10,21,0)="^^2^2^2931005^^^^"
^DD(40.806,10,21,1,0)="This sub-field of the Treating Specialty multiple is a multiple "
^DD(40.806,10,21,2,0)="that contains the data for the Treating Speciality G&L/BSR."
^DD(40.806,"B","BEGINNING TSR PATIENTS",.03)=""
^DD(40.806,"B","CENSUS DATE",10)=""
^DD(40.806,"B","NUMBER OF BEDS",.02)=""
^DD(40.806,"B","TREATING SPECIALTY",.01)=""
^DD(40.806,"B","TSR ORDER",.04)=""
^DD(40.806,"GL",0,1,.01)=""
^DD(40.806,"GL",0,2,.02)=""
^DD(40.806,"GL",0,3,.03)=""
^DD(40.806,"GL",0,4,.04)=""
^DD(40.806,"GL","C",0,10)=""
^DD(40.806,"IX",.01)=""
^DD(40.806,"IX",.04)=""
^DD(40.806,"SB",40.807,10)=""
^DD(40.807,0)="CENSUS DATE SUB-FIELD^^11^37"
^DD(40.807,0,"DT")="2940930"
^DD(40.807,0,"IX","B",40.807,.01)=""
^DD(40.807,0,"NM","CENSUS DATE")=""
^DD(40.807,0,"UP")="40.806"
^DD(40.807,.01,0)="CENSUS DATE^MRDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2871001>X) X I $D(X) S DINUM=X"
^DD(40.807,.01,1,0)="^.1"
^DD(40.807,.01,1,1,0)="40.807^B"
^DD(40.807,.01,1,1,1)="S ^DG(40.8,DA(2),""TS"",DA(1),""C"",""B"",$E(X,1,30),DA)="""""
^DD(40.807,.01,1,1,2)="K ^DG(40.8,DA(2),""TS"",DA(1),""C"",""B"",$E(X,1,30),DA)"
^DD(40.807,.01,3)="TYPE A DATE BETWEEN 10/1/1987 AND 9/30/2099"
^DD(40.807,.01,21,0)="^^3^3^2930412^^^"
^DD(40.807,.01,21,1,0)="This sub-field of the Census Date multiple contains the inverse date for"
^DD(40.807,.01,21,2,0)="for informtaion stored for this treating specialty on a specific "
^DD(40.807,.01,21,3,0)="census date."
^DD(40.807,.01,"DT")="2890218"
^DD(40.807,.02,0)="PATIENTS REMAINING^RNJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.02,3)="Type a number between 0 and 99999 with 0 decimal digits indicating the number of patients remaining in this treating specialty at the end of this census date."
^DD(40.807,.02,21,0)="^^2^2^2941006^^^^"
^DD(40.807,.02,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,.02,21,2,0)="patients remaining in this treating specialty on this census date."
^DD(40.807,.02,"DT")="2940930"
^DD(40.807,.03,0)="PATIENT DAYS OF CARE [CUM]^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.03,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.03,21,0)="^^3^3^2920130^^^"
^DD(40.807,.03,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.03,21,2,0)="Patient Days of Care in this treating specialty from the "
^DD(40.807,.03,21,3,0)="beginning of the fiscal year to date."
^DD(40.807,.03,"DT")="2930128"
^DD(40.807,.04,0)="OPERATING BEDS [CUM]^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.04,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.04,21,0)="^^3^3^2920130^^"
^DD(40.807,.04,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.04,21,2,0)="Operating Beds in this treating specialty from the beginning of the "
^DD(40.807,.04,21,3,0)="fiscal year to date."
^DD(40.807,.04,"DT")="2890218"
^DD(40.807,.05,0)="DISCHARGE-TOTAL [CUM]^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.05,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.05,21,0)="^^3^3^2920130^^"
^DD(40.807,.05,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.05,21,2,0)="Discharges in this treating specialty from the beginning of the "
^DD(40.807,.05,21,3,0)="fiscal year to date."
^DD(40.807,.05,"DT")="2890218"
^DD(40.807,.06,0)="IWT LOSSES [CUM]^NJ7,0^^0;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.06,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.06,21,0)="^^3^3^2920130^^"
^DD(40.807,.06,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.06,21,2,0)="Inter Ward Transfers (IWT) for this treating speciality from the "
^DD(40.807,.06,21,3,0)="beginning of the fiscal year to date."
^DD(40.807,.06,"DT")="2890218"
^DD(40.807,.07,0)="PATIENTS REMAINING [CUM]^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.07,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.07,21,0)="^^3^3^2920130^^"
^DD(40.807,.07,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative  "
^DD(40.807,.07,21,2,0)="Patient's Remaining for this treating specialty from the beginning "
^DD(40.807,.07,21,3,0)="of the fiscal year to date."
^DD(40.807,.07,"DT")="2930714"
^DD(40.807,.08,0)="XRF TO OTHER TS [CUM]^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.08,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.08,21,0)="^^3^3^2920130^^"
^DD(40.807,.08,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.08,21,2,0)="Transfers to Other Treating Speciality (XFR TO OTHER TS) for this "
^DD(40.807,.08,21,3,0)="treating specialty from the beginning of the fiscal year to date."
^DD(40.807,.08,"DT")="2890218"
^DD(40.807,.09,0)="PASS DAYS [CUM]^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.09,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(40.807,.09,21,0)="^^3^3^2920130^^"
^DD(40.807,.09,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.09,21,2,0)="days of Authorized Absence <96 hours (PASS) for this treating specialty "
^DD(40.807,.09,21,3,0)="for this fiscal year to date."
^DD(40.807,.09,"DT")="2890218"
^DD(40.807,.1,0)="AUTHORIZED ABSENCE DAYS [CUM]^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(40.807,.1,21,0)="^^3^3^2920130^"
^DD(40.807,.1,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.1,21,2,0)="days of Authorized Absence (AA) for this treating specialty for this "
^DD(40.807,.1,21,3,0)="fiscal year to date."
^DD(40.807,.1,"DT")="2890218"
^DD(40.807,.11,0)="UNAUTH. ABSENCE DAYS [CUM]^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.11,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(40.807,.11,21,0)="^^3^3^2920130^"
^DD(40.807,.11,21,1,0)="This sub-field of theCensus Date multiple contains the Cumulative "
^DD(40.807,.11,21,2,0)="number of days of Unauthorized Absence Days for this treating specialty "
^DD(40.807,.11,21,3,0)="for this fiscal year to date."
^DD(40.807,.11,"DT")="2890218"
^DD(40.807,.13,0)="TRANSFER-IN ADMITS [CUM]^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.13,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(40.807,.13,21,0)="^^3^3^2920130^"
^DD(40.807,.13,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.13,21,2,0)="number of admissioos with movement type of Transfer In for this "
^DD(40.807,.13,21,3,0)="treating specialty for this fiscal year to date."
^DD(40.807,.13,"DT")="2890218"
^DD(40.807,.14,0)="TRANSFER-OUT DISCHARGES [CUM]^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.14,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(40.807,.14,21,0)="^^3^3^2920130^"
^DD(40.807,.14,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.14,21,2,0)="number of Discharges with the movement type of Transfer Out for this "
^DD(40.807,.14,21,3,0)="treating specialty for this fiscal year to date."
^DD(40.807,.14,"DT")="2890218"
^DD(40.807,.15,0)="DEATHS [CUM]^NJ5,0^^0;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.15,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.15,21,0)="^^3^3^2920130^^"
^DD(40.807,.15,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.15,21,2,0)="number of movement type of Death for this treating specialty for this "
^DD(40.807,.15,21,3,0)="fiscal year to date."
^DD(40.807,.15,"DT")="2890218"
^DD(40.807,.16,0)="OPT/NSC DISCHARGES [CUM]^NJ7,0^^0;16^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.16,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.16,21,0)="^^3^3^2920130^"
^DD(40.807,.16,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.16,21,2,0)="number of movement type of OPT/NSC Discharges for this treating "
^DD(40.807,.16,21,3,0)="specialty for this fiscal year to date."
^DD(40.807,.16,"DT")="2890218"
^DD(40.807,.17,0)="ADMISSIONS-OTHER [CUM]^NJ7,0^^0;17^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.17,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.17,21,0)="^^3^3^2920130^"
^DD(40.807,.17,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.17,21,2,0)="number of Admissions (Other) for this treating specialty for this "
^DD(40.807,.17,21,3,0)="fiscal year to date."
^DD(40.807,.17,"DT")="2890218"
^DD(40.807,.18,0)="ADM AFTER REHOSP>30DAYS [CUM]^NJ5,0^^0;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.18,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.18,21,0)="^^3^3^2920130^"
^DD(40.807,.18,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.18,21,2,0)="number of Admission after Rehospitalization > 30 days for this "
^DD(40.807,.18,21,3,0)="treating specialty for this fiscal year to date."
^DD(40.807,.18,"DT")="2890218"
^DD(40.807,.19,0)="RETURN FROM ASIH [CUM]^NJ5,0^^0;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.19,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.19,21,0)="^^3^3^2920130^"
^DD(40.807,.19,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.19,21,2,0)="number of return from ASIH (FROM ASIH) for this treating specialty "
^DD(40.807,.19,21,3,0)="for this fiscal year to date."
^DD(40.807,.19,"DT")="2890218"
^DD(40.807,.2,0)="SENT TO ASIH [CUM]^NJ5,0^^0;20^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.2,21,0)="^^3^3^2920130^^"
^DD(40.807,.2,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.2,21,2,0)="transfer To ASIH (send to ASIH) for this treating specialty for the"
^DD(40.807,.2,21,3,0)="fiscal year to date."
^DD(40.807,.2,"DT")="2890218"
^DD(40.807,.21,0)="DISCH WHILE ASIH [CUM]^NJ5,0^^0;21^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.21,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.21,21,0)="^^3^3^2920130^"
^DD(40.807,.21,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.21,21,2,0)="number of Discharges While ASIH for this treating specialty for "
^DD(40.807,.21,21,3,0)="this fiscal year to date."
^DD(40.807,.21,"DT")="2890218"
^DD(40.807,.22,0)="DIED WHILE ASIH [CUM]^NJ5,0^^0;22^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.22,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.22,21,0)="^^3^3^2920130^"
^DD(40.807,.22,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.22,21,2,0)="number of Discharges Of Died While ASIH for this treating specialty  "
^DD(40.807,.22,21,3,0)="for this fiscal year to date."
^DD(40.807,.22,"DT")="2890218"
^DD(40.807,.23,0)="XFR FROM OTHER TS [CUM]^NJ7,0^^0;23^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.23,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.23,21,0)="^^3^3^2920130^^"
^DD(40.807,.23,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.23,21,2,0)="number of Transfers From Other Treating Specialty (XFR FROM OTHER TS) "
^DD(40.807,.23,21,3,0)="for this treating specialty for this fiscal year to date."
^DD(40.807,.23,"DT")="2890218"
^DD(40.807,.24,0)="LOSSES-TOTAL [CUM]^NJ7,0^^0;24^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.24,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(40.807,.24,21,0)="^^3^3^2920130^"
^DD(40.807,.24,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.24,21,2,0)="Totals of Losses (from transfers and discharges) for this treating "
^DD(40.807,.24,21,3,0)="specialty for this fiscal year to date."
^DD(40.807,.24,"DT")="2890218"
^DD(40.807,.25,0)="TO PASS [CUM]^NJ5,0^^0;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.25,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.25,21,0)="^^3^3^2920130^"
^DD(40.807,.25,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.25,21,2,0)="number of To Pass (AA<96) for this treating specailty for this "
^DD(40.807,.25,21,3,0)="fiscal year to date."
^DD(40.807,.25,"DT")="2890218"
^DD(40.807,.26,0)="TO AA [CUM]^NJ5,0^^0;26^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.26,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.26,21,0)="^^3^3^2920130^^"
^DD(40.807,.26,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.26,21,2,0)="number of TO AA (Authorized Absence) to this treating specialty for "
^DD(40.807,.26,21,3,0)="this fiscal year to date."
^DD(40.807,.26,"DT")="2890218"
^DD(40.807,.27,0)="TO UA [CUM]^NJ5,0^^0;27^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.27,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.27,21,0)="^^3^3^2920130^"
^DD(40.807,.27,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.27,21,2,0)="number of TO UA (Unauthorized Absence) to this treating specialty for "
^DD(40.807,.27,21,3,0)="this fiscal year to date."
^DD(40.807,.28,0)="GAINS-TOTAL [CUM]^NJ5,0^^0;28^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.28,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.28,21,0)="^^3^3^2920130^"
^DD(40.807,.28,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.28,21,2,0)="Gains Total (from admissions and transfers) for this treating specialty "
^DD(40.807,.28,21,3,0)="for this fiscal year to date."
^DD(40.807,.29,0)="IWT GAINS [CUM]^NJ5,0^^0;29^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,.29,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,.29,21,0)="^^3^3^2920130^"
^DD(40.807,.29,21,1,0)="This sub-field of the Census Date multiple contains the Cumulative "
^DD(40.807,.29,21,2,0)="Inter Ward Transfers (IWT) Gains for this treating specialty for "
^DD(40.807,.29,21,3,0)="this fiscl year to date."
^DD(40.807,1,0)="FEMALES REMAINING^NJ5,0^^1;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,1,21,0)="^^3^3^2940901^^^^"
^DD(40.807,1,21,1,0)="This sub-field of the Census Date multiple contains the number of  "
^DD(40.807,1,21,2,0)="Female Patients Remaining at the end of the census day (not cumulative) "
^DD(40.807,1,21,3,0)="for this treating specailty.  "
^DD(40.807,1,"DT")="2940901"
^DD(40.807,2,0)="OPERATING BEDS^NJ5,0^^1;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,2,21,0)="^^3^3^2920130^"
^DD(40.807,2,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,2,21,2,0)="Operating Beds at the end of the census day (not Cumulative) "
^DD(40.807,2,21,3,0)="for this treating specailty."
^DD(40.807,3,0)="PATIENTS OVER 65 REMAINING^NJ5,0^^1;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,3,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,3,21,0)="^^3^3^2920130^^"
^DD(40.807,3,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,3,21,2,0)="Patients Over 65 (65 years old or greater) Remaining at the end of "
^DD(40.807,3,21,3,0)="the census day (not cumulative) for this treating specialty."
^DD(40.807,3,"DT")="2930714"
^DD(40.807,4,0)="VIETNAM ERA VETS REMAINING^NJ5,0^^1;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,4,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,4,21,0)="^^3^3^2920130^^^"
^DD(40.807,4,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,4,21,2,0)="Patients whose period of service indicated Vietnam Era at the end "
^DD(40.807,4,21,3,0)="of the census day (not cumulative) for this treating specialty."
^DD(40.807,4,"DT")="2930714"
^DD(40.807,5,0)="PASS PATIENTS REMAINING^NJ5,0^^1;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,5,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,5,21,0)="^^3^3^2920130^"
^DD(40.807,5,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,5,21,2,0)="Patient on Pass (AA<96) Remaining at the end of the census day "
^DD(40.807,5,21,3,0)="(not cumulative) for this treating specialty."
^DD(40.807,5,"DT")="2930714"
^DD(40.807,6,0)="AA PATIENTS REMAINING^NJ5,0^^1;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,6,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,6,21,0)="^^3^3^2920130^^"
^DD(40.807,6,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,6,21,2,0)="AA (Authorized Absence) Patient's Remaining at the end of the "
^DD(40.807,6,21,3,0)="census day (not cumulative) for this treating specialty."
^DD(40.807,6,"DT")="2930714"
^DD(40.807,7,0)="UA PATIENTS REMAINING^NJ5,0^^1;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,7,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,7,21,0)="^^3^3^2920130^"
^DD(40.807,7,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,7,21,2,0)="UA (Unauthorized Absence) Patient's Remaining at the end of the "
^DD(40.807,7,21,3,0)="census day (not cumulative) for this treating specialty."
^DD(40.807,7,"DT")="2930714"
^DD(40.807,8,0)="ASIH PATIENTS REMAINING^NJ5,0^^1;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,8,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,8,21,0)="^^3^3^2920130^"
^DD(40.807,8,21,1,0)="This sub-field of the Census Date multiple contains the number of "
^DD(40.807,8,21,2,0)="ASIH (Absent Sick In Hospital) Patient's Remaining at the end of "
^DD(40.807,8,21,3,0)="the census day (not cumulative for this treating specialty."
^DD(40.807,8,"DT")="2930714"
^DD(40.807,11,0)="ONE DAY DISCHARGES^NJ5,0^^1;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.807,11,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(40.807,11,21,0)="^^4^4^2920130^"
^DD(40.807,11,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(40.807,11,21,2,0)="One Date Discharges (patients who were discharged with admission "
^DD(40.807,11,21,3,0)="on the same day) at end end of the census day (not cumulative) "
^DD(40.807,11,21,4,0)="for this treating specialty."
^DD(40.807,11,"DT")="2890218"
^DD(40.807,"B","AA PATIENTS REMAINING",6)=""
^DD(40.807,"B","ADM AFTER REHOSP>30DAYS [CUM]",.18)=""
^DD(40.807,"B","ADMISSIONS-OTHER [CUM]",.17)=""
^DD(40.807,"B","ASIH PATIENTS REMAINING",8)=""
^DD(40.807,"B","AUTHORIZED ABSENCE DAYS [CUM]",.1)=""
^DD(40.807,"B","CENSUS DATE",.01)=""
^DD(40.807,"B","DEATHS [CUM]",.15)=""
^DD(40.807,"B","DIED WHILE ASIH [CUM]",.22)=""
^DD(40.807,"B","DISCH WHILE ASIH [CUM]",.21)=""
^DD(40.807,"B","DISCHARGE-TOTAL [CUM]",.05)=""
^DD(40.807,"B","FEMALES REMAINING",1)=""
^DD(40.807,"B","GAINS-TOTAL [CUM]",.28)=""
^DD(40.807,"B","IWT GAINS [CUM]",.29)=""
^DD(40.807,"B","IWT LOSSES [CUM]",.06)=""
^DD(40.807,"B","LOSSES-TOTAL [CUM]",.24)=""
^DD(40.807,"B","ONE DAY DISCHARGES",11)=""
^DD(40.807,"B","OPERATING BEDS",2)=""
^DD(40.807,"B","OPERATING BEDS [CUM]",.04)=""
^DD(40.807,"B","OPT/NSC DISCHARGES [CUM]",.16)=""
^DD(40.807,"B","PASS DAYS [CUM]",.09)=""
^DD(40.807,"B","PASS PATIENTS REMAINING",5)=""
^DD(40.807,"B","PATIENT DAYS OF CARE [CUM]",.03)=""
^DD(40.807,"B","PATIENTS OVER 65 REMAINING",3)=""
^DD(40.807,"B","PATIENTS REMAINING",.02)=""
^DD(40.807,"B","PATIENTS REMAINING [CUM]",.07)=""
^DD(40.807,"B","RETURN FROM ASIH [CUM]",.19)=""
^DD(40.807,"B","SENT TO ASIH [CUM]",.2)=""
^DD(40.807,"B","TO AA [CUM]",.26)=""
^DD(40.807,"B","TO PASS [CUM]",.25)=""
^DD(40.807,"B","TO UA [CUM]",.27)=""
^DD(40.807,"B","TRANSFER-IN ADMITS [CUM]",.13)=""
^DD(40.807,"B","TRANSFER-OUT DISCHARGES [CUM]",.14)=""
^DD(40.807,"B","UA PATIENTS REMAINING",7)=""
^DD(40.807,"B","UNAUTH. ABSENCE DAYS [CUM]",.11)=""
^DD(40.807,"B","VIETNAM ERA VETS REMAINING",4)=""
^DD(40.807,"B","XFR FROM OTHER TS [CUM]",.23)=""
^DD(40.807,"B","XRF TO OTHER TS [CUM]",.08)=""
^DD(40.807,"GL",0,1,.01)=""
^DD(40.807,"GL",0,2,.02)=""
^DD(40.807,"GL",0,3,.03)=""
^DD(40.807,"GL",0,4,.04)=""
^DD(40.807,"GL",0,5,.05)=""
^DD(40.807,"GL",0,6,.06)=""
^DD(40.807,"GL",0,7,.07)=""
^DD(40.807,"GL",0,8,.08)=""
^DD(40.807,"GL",0,9,.09)=""
^DD(40.807,"GL",0,10,.1)=""
^DD(40.807,"GL",0,11,.11)=""
^DD(40.807,"GL",0,13,.13)=""
^DD(40.807,"GL",0,14,.14)=""
^DD(40.807,"GL",0,15,.15)=""
^DD(40.807,"GL",0,16,.16)=""
^DD(40.807,"GL",0,17,.17)=""
^DD(40.807,"GL",0,18,.18)=""
^DD(40.807,"GL",0,19,.19)=""
^DD(40.807,"GL",0,20,.2)=""
^DD(40.807,"GL",0,21,.21)=""
^DD(40.807,"GL",0,22,.22)=""
^DD(40.807,"GL",0,23,.23)=""
^DD(40.807,"GL",0,24,.24)=""
^DD(40.807,"GL",0,25,.25)=""
^DD(40.807,"GL",0,26,.26)=""
^DD(40.807,"GL",0,27,.27)=""
^DD(40.807,"GL",0,28,.28)=""
^DD(40.807,"GL",0,29,.29)=""
^DD(40.807,"GL",1,1,1)=""
^DD(40.807,"GL",1,2,2)=""
^DD(40.807,"GL",1,3,3)=""
^DD(40.807,"GL",1,4,4)=""
^DD(40.807,"GL",1,5,5)=""
^DD(40.807,"GL",1,6,6)=""
^DD(40.807,"GL",1,7,7)=""
^DD(40.807,"GL",1,8,8)=""
^DD(40.807,"GL",1,11,11)=""
^DD(40.807,"IX",.01)=""
^DD(40.807,"RQ",.01)=""
^DD(40.807,"RQ",.02)=""
^DD(40.808,0)="OP VISIT DATE SUB-FIELD^^.03^3"
^DD(40.808,0,"IX","B",40.808,.01)=""
^DD(40.808,0,"NM","OP VISIT DATE")=""
^DD(40.808,0,"UP")="40.8"
^DD(40.808,.01,0)="OP VISIT DATE^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X"
^DD(40.808,.01,1,0)="^.1"
^DD(40.808,.01,1,1,0)="40.808^B"
^DD(40.808,.01,1,1,1)="S ^DG(40.8,DA(1),""OP"",""B"",$E(X,1,30),DA)="""""
^DD(40.808,.01,1,1,2)="K ^DG(40.8,DA(1),""OP"",""B"",$E(X,1,30),DA)"
^DD(40.808,.01,3)="Enter the date for which you wish to enter OP vists."
^DD(40.808,.01,21,0)="^^4^4^2921224^^"
^DD(40.808,.01,21,1,0)="This is a date/time field (FM function) and represents the date/time"
^DD(40.808,.01,21,2,0)="of a specifie outpatient visit date/time associated with the medical"
^DD(40.808,.01,21,3,0)="center."
^DD(40.808,.01,21,4,0)="|"
^DD(40.808,.01,"DT")="2890309"
^DD(40.808,.02,0)="PLANNED OP VISITS [CUM]^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.808,.02,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(40.808,.02,21,0)="^^2^2^2930522^^^^"
^DD(40.808,.02,21,1,0)="This field contains the number of planned cumulative outpatient"
^DD(40.808,.02,21,2,0)="visits for a given medical center as defined by top management."
^DD(40.808,.02,"DT")="2890309"
^DD(40.808,.03,0)="ACTUAL OP VISITS [CUM]^NJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(40.808,.03,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(40.808,.03,21,0)="^^2^2^2930522^^^"
^DD(40.808,.03,21,1,0)="This field contains the actual number of cumulative outpatient"
^DD(40.808,.03,21,2,0)="visits for a medical center in a given fiscal year."
^DD(40.808,"B","ACTUAL OP VISITS [CUM]",.03)=""
^DD(40.808,"B","OP VISIT DATE",.01)=""
^DD(40.808,"B","PLANNED OP VISITS [CUM]",.02)=""
^DD(40.808,"GL",0,1,.01)=""
^DD(40.808,"GL",0,2,.02)=""
^DD(40.808,"GL",0,3,.03)=""
^DD(40.808,"IX",.01)=""
^DD(40.9,0)="FIELD^^1^2"
^DD(40.9,0,"DDA")="N"
^DD(40.9,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(40.9,0,"IX","B",40.9,.01)=""
^DD(40.9,0,"IX","C",40.9,1)=""
^DD(40.9,0,"NM","LOCATION TYPE")=""
^DD(40.9,0,"PT",44,2.1)=""
^DD(40.9,0,"PT",44.101,.01)=""
^DD(40.9,0,"PT",727.82,7)=""
^DD(40.9,0,"PT",727.821,7)=""
^DD(40.9,0,"PT",727.822,7)=""
^DD(40.9,0,"PT",727.823,7)=""
^DD(40.9,0,"VR")="5.3"
^DD(40.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(40.9,.01,1,0)="^.1"
^DD(40.9,.01,1,1,0)="40.9^B"
^DD(40.9,.01,1,1,1)="S ^DIC(40.9,""B"",$E(X,1,30),DA)="""""
^DD(40.9,.01,1,1,2)="K ^DIC(40.9,""B"",$E(X,1,30),DA)"
^DD(40.9,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(40.9,.01,21,0)="^^1^1^2911222^"
^DD(40.9,.01,21,1,0)="Enter the name of the location type."
^DD(40.9,1,0)="DESIGNATION^RFX^^0;2^K:X[""""""""!($A(X)=45)!($D(^DIC(40.9,""C"",$E(X,1,30)))) X I $D(X) K:$L(X)>2!($L(X)<1)!'(X?1A!(X?2A)) X"
^DD(40.9,1,1,0)="^.1"
^DD(40.9,1,1,1,0)="40.9^C"
^DD(40.9,1,1,1,1)="S ^DIC(40.9,""C"",$E(X,1,30),DA)="""""
^DD(40.9,1,1,1,2)="K ^DIC(40.9,""C"",$E(X,1,30),DA)"
^DD(40.9,1,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(40.9,1,21,0)="^^2^2^2911222^"
^DD(40.9,1,21,1,0)="Enter a unique designation for each location type.  No two may have the"
^DD(40.9,1,21,2,0)="designation.  Must contains 1-2 characters."
^DD(40.9,"B","DESIGNATION",1)=""
^DD(40.9,"B","NAME",.01)=""
^DD(40.9,"GL",0,1,.01)=""
^DD(40.9,"GL",0,2,1)=""
^DD(40.9,"IX",.01)=""
^DD(40.9,"IX",1)=""
^DD(40.9,"RQ",.01)=""
^DD(40.9,"RQ",1)=""
^DD(41.1,0)="FIELD^^17^17"
^DD(41.1,0,"DT")="2950728"
^DD(41.1,0,"ID",2)="W:$D(^(""0"")) ""  Sch. Adm. Date "",$E($P(^(""0""),U,2),4,5)_""-""_$E($P(^(""0""),U,2),6,7)_""-""_$E($P(^(""0""),U,2),2,3)"
^DD(41.1,0,"IX","AMVT",41.1,17)=""
^DD(41.1,0,"IX","ARSV",41.1,8)=""
^DD(41.1,0,"IX","B",41.1,.01)=""
^DD(41.1,0,"IX","C",41.1,2)=""
^DD(41.1,0,"NM","SCHEDULED ADMISSION")=""
^DD(41.1,0,"PT",356,.32)=""
^DD(41.1,0,"VR")="5.3"
^DD(41.1,.01,0)="PATIENT^RP2'XI^DPT(^0;1^Q"
^DD(41.1,.01,1,0)="^.1"
^DD(41.1,.01,1,1,0)="41.1^B"
^DD(41.1,.01,1,1,1)="S ^DGS(41.1,""B"",$E(X,1,30),DA)="""""
^DD(41.1,.01,1,1,2)="K ^DGS(41.1,""B"",$E(X,1,30),DA)"
^DD(41.1,.01,3)=""
^DD(41.1,.01,21,0)="^^2^2^2911222^"
^DD(41.1,.01,21,1,0)="Enter the name of the patient that is scheduled for a future admission at"
^DD(41.1,.01,21,2,0)="this facility."
^DD(41.1,.01,"DT")="2870505"
^DD(41.1,2,0)="RESERVATION DATE/TIME^RDX^^0;2^S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(41.1,2,1,0)="^.1"
^DD(41.1,2,1,1,0)="41.1^C"
^DD(41.1,2,1,1,1)="S ^DGS(41.1,""C"",$E(X,1,30),DA)="""""
^DD(41.1,2,1,1,2)="K ^DGS(41.1,""C"",$E(X,1,30),DA)"
^DD(41.1,2,21,0)="^^2^2^2911222^"
^DD(41.1,2,21,1,0)="Enter the date/time this patient is scheduled to appear at your facility"
^DD(41.1,2,21,2,0)="for this admission."
^DD(41.1,2,"DT")="2870506"
^DD(41.1,3,0)="LENGTH OF STAY EXPECTED^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.1,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.1,3,21,0)="^^2^2^2911222^"
^DD(41.1,3,21,1,0)="Enter the length of time it is expected this patient will have to remain"
^DD(41.1,3,21,2,0)="at your facility until inpatient treatment is complete."
^DD(41.1,4,0)="ADMITTING DIAGNOSIS^RF^^0;4^K:$L(X)>30!($L(X)<2) X"
^DD(41.1,4,3)="Answer must be 2-30 characters in length."
^DD(41.1,4,21,0)="^^2^2^2911222^"
^DD(41.1,4,21,1,0)="Enter the diagnosis of the illness or injury for which this patient will"
^DD(41.1,4,21,2,0)="be treated."
^DD(41.1,4,"DT")="2910509"
^DD(41.1,5,0)="PROVIDER^R*P200'^VA(200,^0;5^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(41.1,5,3)="Allow only active providers."
^DD(41.1,5,4)="D HELP^DGPMDD(DA,DT)"
^DD(41.1,5,12)="Only select active providers"
^DD(41.1,5,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"""
^DD(41.1,5,21,0)="^^1^1^2930330^^^^"
^DD(41.1,5,21,1,0)="Enter the name of the provider who has ordered this admission."
^DD(41.1,5,"DT")="2941207"
^DD(41.1,6,0)="SURGERY^S^Y:YES;N:NO;^0;6^Q"
^DD(41.1,6,21,0)="^^2^2^2911222^"
^DD(41.1,6,21,1,0)="Answer YES if surgery will be required as part of the treatement this"
^DD(41.1,6,21,2,0)="patient is scheduled for."
^DD(41.1,7,0)="OPT/NSC STATUS^S^1:YES;0:NO;^0;7^Q"
^DD(41.1,7,21,0)="^^2^2^2911222^"
^DD(41.1,7,21,1,0)="Enter yes if this patient will be admitted under the movement type OPT-NSC."
^DD(41.1,7,21,2,0)="Otherwise, answer no."
^DD(41.1,8,0)="WARD^R*P42'^DIC(42,^0;8^S DIC(""S"")=""I $S($D(^(""""I"""")):^(""""I"""")="""""""",1:1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(41.1,8,1,0)="^.1^^-1"
^DD(41.1,8,1,1,0)="41.1^ARSV"
^DD(41.1,8,1,1,1)="S ^DGS(41.1,""ARSV"",$E(X,1,30),DA)="""""
^DD(41.1,8,1,1,2)="K ^DGS(41.1,""ARSV"",$E(X,1,30),DA)"
^DD(41.1,8,1,2,0)="^^TRIGGER^41.1^12"
^DD(41.1,8,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(41.1,8,1,2,1.1) X ^DD(41.1,8,1,2,1.4)"
^DD(41.1,8,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=X,D0=DIU S:'$D(^DG(40.8,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0)"
^DD(41.1,8,1,2,1.4)="S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(41.1,8,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(41.1,8,1,2,2.4)"
^DD(41.1,8,1,2,2.4)="S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=41.1,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(41.1,8,1,2,"CREATE VALUE")="WARD:DIVISION:NUMBER"
^DD(41.1,8,1,2,"DELETE VALUE")="@"
^DD(41.1,8,1,2,"DT")="2991102"
^DD(41.1,8,1,2,"FIELD")="DIVISION"
^DD(41.1,8,5,1,0)="41.1^10^1"
^DD(41.1,8,12)="Only select active wards."
^DD(41.1,8,12.1)="S DIC(""S"")=""I $S($D(^(""""I"""")):^(""""I"""")="""""""",1:1)"""
^DD(41.1,8,21,0)="^.001^1^1^3030805^^"
^DD(41.1,8,21,1,0)="Enter the name of the ward this patient will be admitted to."
^DD(41.1,8,"DT")="2991102"
^DD(41.1,9,0)="TREATING SPECIALTY^R*P45.7'^DIC(45.7,^0;9^S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(41.1,9,3)="Enter treating specialty.  This must be an active treating specialty."
^DD(41.1,9,5,1,0)="41.1^10^2"
^DD(41.1,9,12)="Allows only active treating specialties."
^DD(41.1,9,12.1)="S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGS(41.1,DA,0)),U,2))"""
^DD(41.1,9,21,0)="^^2^2^2911222^"
^DD(41.1,9,21,1,0)="Enter the name of the treating specialty under which this patient will"
^DD(41.1,9,21,2,0)="be treated."
^DD(41.1,9,"DT")="2950728"
^DD(41.1,10,0)="WARD OR TREATING SPECIALTY^RS^W:WARD;T:TREATING SPECIALTY;^0;10^Q"
^DD(41.1,10,1,0)="^.1^^-1"
^DD(41.1,10,1,1,0)="^^TRIGGER^41.1^8"
^DD(41.1,10,1,1,1)="X ^DD(41.1,10,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(41.1,10,1,1,1.4)"
^DD(41.1,10,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=""WARD"""
^DD(41.1,10,1,1,1.4)="S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=41.1,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(41.1,10,1,1,2)="Q"
^DD(41.1,10,1,1,"CREATE CONDITION")="WARD OR TREATING SPECIALTY'=""WARD"""
^DD(41.1,10,1,1,"CREATE VALUE")="@"
^DD(41.1,10,1,1,"DELETE VALUE")="NO EFFECT"
^DD(41.1,10,1,1,"DT")="3000417"
^DD(41.1,10,1,1,"FIELD")="WARD"
^DD(41.1,10,1,2,0)="^^TRIGGER^41.1^9"
^DD(41.1,10,1,2,1)="X ^DD(41.1,10,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGS(41.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(41.1,10,1,2,1.4)"
^DD(41.1,10,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(41.1,10,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=""TREATING SPECIALTY"""
^DD(41.1,10,1,2,1.4)="S DIH=$S($D(^DGS(41.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=41.1,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(41.1,10,1,2,2)="Q"
^DD(41.1,10,1,2,"CREATE CONDITION")="WARD OR TREATING SPECIALTY'=""TREATING SPECIALTY"""
^DD(41.1,10,1,2,"CREATE VALUE")="@"
^DD(41.1,10,1,2,"DELETE VALUE")="NO EFFECT"
^DD(41.1,10,1,2,"DT")="3000417"
^DD(41.1,10,1,2,"FIELD")="TREATING SPECIALTY"
^DD(41.1,10,21,0)="^^3^3^2911222^"
^DD(41.1,10,21,1,0)="Respond W if this patient is being scheduled for an admission to a"
^DD(41.1,10,21,2,0)="particular ward or T if the sheduled admission is for a particular"
^DD(41.1,10,21,3,0)="treating specialty."
^DD(41.1,10,"DT")="3000417"
^DD(41.1,11,0)="PERSON SCHEDULING ADMIT^P200'^VA(200,^0;11^Q"
^DD(41.1,11,21,0)="^^1^1^2911222^"
^DD(41.1,11,21,1,0)="The name of the user entering the scheduled admission will be stored here."
^DD(41.1,11,"DT")="2901006"
^DD(41.1,12,0)="DIVISION^*P40.8'^DG(40.8,^0;12^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(41.1,12,5,1,0)="41.1^8^2"
^DD(41.1,12,12)="Not Outpatient Divisions"
^DD(41.1,12,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(41.1,12,21,0)="^^1^1^2911222^"
^DD(41.1,12,21,1,0)="Enter the name of the division to which this patient should report."
^DD(41.1,12,"DT")="2860603"
^DD(41.1,13,0)="DATE/TIME CANCELLED^D^^0;13^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(41.1,13,21,0)="^^2^2^2911222^"
^DD(41.1,13,21,1,0)="If this scheduled admission was cancelled, enter the date/time it was"
^DD(41.1,13,21,2,0)="cancelled."
^DD(41.1,13,"DT")="2870506"
^DD(41.1,14,0)="CANCELLED BY^P200'^VA(200,^0;14^Q"
^DD(41.1,14,21,0)="^^2^2^2911222^"
^DD(41.1,14,21,1,0)="If this scheduled admission was cancelled, this field will contain the"
^DD(41.1,14,21,2,0)="name of the user that cancelled it."
^DD(41.1,14,"DT")="2901006"
^DD(41.1,15,0)="REASON CANCELLED^S^1:EXPIRED;2:OVERDUE;3:REFUSED ADMISSION;4:NO AVAILABLE BEDS;5:OTHER;^0;15^Q"
^DD(41.1,15,21,0)="^^2^2^2911222^"
^DD(41.1,15,21,1,0)="Choose from the available list the reason this scheduled admission was"
^DD(41.1,15,21,2,0)="cancelled."
^DD(41.1,15,"DT")="2870507"
^DD(41.1,16,0)="WAS PATIENT NOTIFIED^S^0:YES;1:NO;2:NOT APPLICABLE;^0;16^Q"
^DD(41.1,16,21,0)="^^2^2^2911222^"
^DD(41.1,16,21,1,0)="If the scheduled admission was cancelled, enter YES here if the patient"
^DD(41.1,16,21,2,0)="was notified of the cancellation.  Otherwise answer NO."
^DD(41.1,16,"DT")="2870731"
^DD(41.1,17,0)="ADMITTED^*P405'^DGPM(^0;17^S DIC(""S"")=""I $P(^(0),""""^"""",2)=1,($P(^(0),""""^"""",3)=+^DGS(41.1,DA,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(41.1,17,1,0)="^.1"
^DD(41.1,17,1,1,0)="41.1^AMVT"
^DD(41.1,17,1,1,1)="S ^DGS(41.1,""AMVT"",$E(X,1,30),DA)="""""
^DD(41.1,17,1,1,2)="K ^DGS(41.1,""AMVT"",$E(X,1,30),DA)"
^DD(41.1,17,3)="If the patient was actually admitted, enter the admission movement"
^DD(41.1,17,12)="Must be an admission movement and for the same patient"
^DD(41.1,17,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=1,($P(^(0),""""^"""",3)=+^DGS(41.1,DA,0))"""
^DD(41.1,17,21,0)="^^3^3^2901121^"
^DD(41.1,17,21,1,0)="This field will contain the admission entry in the PATIENT MOVEMENT file."
^DD(41.1,17,21,2,0)="If this field is not filled in, the patient was not admitted for this"
^DD(41.1,17,21,3,0)="scheduled admission."
^DD(41.1,17,"DT")="2901123"
^DD(41.1,"B","ADMITTED",17)=""
^DD(41.1,"B","ADMITTING DIAGNOSIS",4)=""
^DD(41.1,"B","CANCELLED BY",14)=""
^DD(41.1,"B","DATE/TIME CANCELLED",13)=""
^DD(41.1,"B","DIVISION",12)=""
^DD(41.1,"B","LENGTH OF STAY EXPECTED",3)=""
^DD(41.1,"B","OPT/NSC STATUS",7)=""
^DD(41.1,"B","PATIENT",.01)=""
^DD(41.1,"B","PERSON SCHEDULING ADMIT",11)=""
^DD(41.1,"B","PROVIDER",5)=""
^DD(41.1,"B","REASON CANCELLED",15)=""
^DD(41.1,"B","RESERVATION DATE/TIME",2)=""
^DD(41.1,"B","SURGERY",6)=""
^DD(41.1,"B","TREATING SPECIALTY",9)=""
^DD(41.1,"B","WARD",8)=""
^DD(41.1,"B","WARD OR TREATING SPECIALTY",10)=""
^DD(41.1,"B","WAS PATIENT NOTIFIED",16)=""
^DD(41.1,"GL",0,1,.01)=""
^DD(41.1,"GL",0,2,2)=""
^DD(41.1,"GL",0,3,3)=""
^DD(41.1,"GL",0,4,4)=""
^DD(41.1,"GL",0,5,5)=""
^DD(41.1,"GL",0,6,6)=""
^DD(41.1,"GL",0,7,7)=""
^DD(41.1,"GL",0,8,8)=""
^DD(41.1,"GL",0,9,9)=""
^DD(41.1,"GL",0,10,10)=""
^DD(41.1,"GL",0,11,11)=""
^DD(41.1,"GL",0,12,12)=""
^DD(41.1,"GL",0,13,13)=""
^DD(41.1,"GL",0,14,14)=""
^DD(41.1,"GL",0,15,15)=""
^DD(41.1,"GL",0,16,16)=""
^DD(41.1,"GL",0,17,17)=""
^DD(41.1,"IX",.01)=""
^DD(41.1,"IX",2)=""
^DD(41.1,"IX",8)=""
^DD(41.1,"IX",10)=""
^DD(41.1,"IX",17)=""
^DD(41.1,"RQ",.01)=""
^DD(41.1,"RQ",2)=""
^DD(41.1,"RQ",4)=""
^DD(41.1,"RQ",5)=""
^DD(41.1,"RQ",8)=""
^DD(41.1,"RQ",9)=""
^DD(41.1,"RQ",10)=""
^DD(41.41,0)="FIELD^^2^3"
^DD(41.41,0,"DDA")="N"
^DD(41.41,0,"DT")="2970212"
^DD(41.41,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(41.41,0,"IX","ADC",41.41,.01)=""
^DD(41.41,0,"IX","ADC1",41.41,1)=""
^DD(41.41,0,"IX","B",41.41,.01)=""
^DD(41.41,0,"NM","PRE-REGISTRATION AUDIT")=""
^DD(41.41,0,"VR")="5.3"
^DD(41.41,0,"VRPK")="DG"
^DD(41.41,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(41.41,.01,1,0)="^.1"
^DD(41.41,.01,1,1,0)="41.41^B"
^DD(41.41,.01,1,1,1)="S ^DGS(41.41,""B"",$E(X,1,30),DA)="""""
^DD(41.41,.01,1,1,2)="K ^DGS(41.41,""B"",$E(X,1,30),DA)"
^DD(41.41,.01,1,2,0)="41.41^ADC^MUMPS"
^DD(41.41,.01,1,2,1)="N DG1 S DG1=$P($G(^DGS(41.41,DA,0)),""^"",2) I DG1 S ^DGS(41.41,""ADC"",X,DG1,DA)="""""
^DD(41.41,.01,1,2,2)="N DG1 S DG1=$P($G(^DGS(41.41,DA,0)),""^"",2) I DG1 K ^DGS(41.41,""ADC"",X,DG1,DA)"
^DD(41.41,.01,1,2,"%D",0)="^^1^1^2961216^^"
^DD(41.41,.01,1,2,"%D",1,0)="Cross-reference by patient and date"
^DD(41.41,.01,1,2,"DT")="2961216"
^DD(41.41,.01,3)="Enter patient name in 'Last,First Middle' format [3-30 characters]."
^DD(41.41,.01,21,0)="^^1^1^2961209^^^"
^DD(41.41,.01,21,1,0)="Pointer to the patient entry in the PATIENT FILE, #2."
^DD(41.41,.01,"DT")="2961216"
^DD(41.41,1,0)="DATE CHANGED^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(41.41,1,1,0)="^.1"
^DD(41.41,1,1,1,0)="41.41^ADC1^MUMPS"
^DD(41.41,1,1,1,1)="N DG2 S DG2=$P($G(^DGS(41.41,DA,0)),""^"") I DG2 S ^DGS(41.41,""ADC"",DG2,X,DA)="""""
^DD(41.41,1,1,1,2)="N DG2 S DG2=$P($G(^DGS(41.41,DA,0)),""^"") I DG2 K ^DGS(41.41,""ADC"",DG2,X,DA)"
^DD(41.41,1,1,1,"%D",0)="^^1^1^2961216^^"
^DD(41.41,1,1,1,"%D",1,0)="Cross-reference by patient and date"
^DD(41.41,1,1,1,"DT")="2961216"
^DD(41.41,1,3)="Enter date and time registration data was changed."
^DD(41.41,1,21,0)="^^5^5^2970212^^^"
^DD(41.41,1,21,1,0)="This is the date and time the patient file registration information was"
^DD(41.41,1,21,2,0)="changed as a result of the pre-registration process.  After editing a"
^DD(41.41,1,21,3,0)="patients demographic data, the user will be asked if they want to"
^DD(41.41,1,21,4,0)="Date/Stamp the pre-registration.  If they answer 'Yes', this field will be"
^DD(41.41,1,21,5,0)="completed.  If they answer 'No', no entry will be made in this file."
^DD(41.41,1,"DT")="2970212"
^DD(41.41,2,0)="USER^RP200'^VA(200,^0;3^Q"
^DD(41.41,2,3)="Enter the user making the pre-registration change."
^DD(41.41,2,21,0)="^^3^3^2961209^"
^DD(41.41,2,21,1,0)="User making the change to the patients registration information through"
^DD(41.41,2,21,2,0)="the pre-registration option.  This is a pointer to the NEW PERSON"
^DD(41.41,2,21,3,0)="File, #200."
^DD(41.41,2,"DT")="2961209"
^DD(41.41,"B","DATE CHANGED",1)=""
^DD(41.41,"B","PATIENT",.01)=""
^DD(41.41,"B","USER",2)=""
^DD(41.41,"GL",0,1,.01)=""
^DD(41.41,"GL",0,2,1)=""
^DD(41.41,"GL",0,3,2)=""
^DD(41.41,"IX",.01)=""
^DD(41.41,"IX",1)=""
^DD(41.41,"RQ",.01)=""
^DD(41.41,"RQ",1)=""
^DD(41.41,"RQ",2)=""
^DD(41.42,0)="FIELD^^7^9"
^DD(41.42,0,"DDA")="N"
^DD(41.42,0,"DT")="2970123"
^DD(41.42,0,"IX","B",41.42,.01)=""
^DD(41.42,0,"IX","C",41.42,.1)=""
^DD(41.42,0,"NM","PRE-REGISTRATION CALL LIST")=""
^DD(41.42,0,"VR")="5.3"
^DD(41.42,0,"VRPK")="DG"
^DD(41.42,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(41.42,.01,1,0)="^.1"
^DD(41.42,.01,1,1,0)="41.42^B"
^DD(41.42,.01,1,1,1)="S ^DGS(41.42,""B"",$E(X,1,30),DA)="""""
^DD(41.42,.01,1,1,2)="K ^DGS(41.42,""B"",$E(X,1,30),DA)"
^DD(41.42,.01,3)="Enter patient name in 'Last,First Middle' format"
^DD(41.42,.01,21,0)="^^1^1^2961209^"
^DD(41.42,.01,21,1,0)="Patient to call for pre-registration.  Pointer to the PATIENT FILE, #2."
^DD(41.42,.01,"DT")="2961209"
^DD(41.42,.1,0)="DIVISION^P40.8'^DG(40.8,^0;2^Q"
^DD(41.42,.1,1,0)="^.1"
^DD(41.42,.1,1,1,0)="41.42^C"
^DD(41.42,.1,1,1,1)="S ^DGS(41.42,""C"",$E(X,1,30),DA)="""""
^DD(41.42,.1,1,1,2)="K ^DGS(41.42,""C"",$E(X,1,30),DA)"
^DD(41.42,.1,1,1,"%D",0)="^^1^1^2961217^"
^DD(41.42,.1,1,1,"%D",1,0)="Cross-ref by division"
^DD(41.42,.1,1,1,"DT")="2961217"
^DD(41.42,.1,3)="Enter the Division the patient has an appointment in."
^DD(41.42,.1,21,0)="^^1^1^2970107^"
^DD(41.42,.1,21,1,0)="This is the Division the APPT CLINIC, Field #5, is associated with."
^DD(41.42,.1,"DT")="2961217"
^DD(41.42,1,0)="SSN^F^^1;2^K:$L(X)>14!($L(X)<3) X"
^DD(41.42,1,3)="Enter as First initial of Lastname and last four of SSN"
^DD(41.42,1,21,0)="^^3^3^2970107^"
^DD(41.42,1,21,1,0)="This field is the first initial of the patients last name and the last"
^DD(41.42,1,21,2,0)="four of the patients SSN.  This field will normally be filled in by a"
^DD(41.42,1,21,3,0)="background job.  Entry appears in a List Manager screen."
^DD(41.42,1,"DT")="2970107"
^DD(41.42,2,0)="PHONE^RF^^1;3^K:$L(X)>30!($L(X)<3) X"
^DD(41.42,2,3)="Enter the patients residence phone, or emergency contact phone."
^DD(41.42,2,21,0)="^^5^5^2970107^"
^DD(41.42,2,21,1,0)="Telephone number at which patient will be called for the pre-registration"
^DD(41.42,2,21,2,0)="process. If the patients has a residence phone number, the residence"
^DD(41.42,2,21,3,0)="number is loaded.  If there is no residence number on file, then the"
^DD(41.42,2,21,4,0)="patients Emergency Phone number is loaded.  If there is no emergency phone"
^DD(41.42,2,21,5,0)="number, then tbe string 'NO PHONE' is entered."
^DD(41.42,2,23,0)="^^2^2^2970107^^"
^DD(41.42,2,23,1,0)="This field should be filled in by the background job that purges and "
^DD(41.42,2,23,2,0)="adds new entries to this file."
^DD(41.42,2,"DT")="2961209"
^DD(41.42,3,0)="LAST UPDATED^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(41.42,3,3)="Enter the date the patient was last called."
^DD(41.42,3,21,0)="^^3^3^2961216^^^^"
^DD(41.42,3,21,1,0)="Date/time field showing the date and time the last attempt was made to "
^DD(41.42,3,21,2,0)="call this patient.  This field is loaded from the PRE_REGISTRATION"
^DD(41.42,3,21,3,0)="CALL LOG File, #41.43."
^DD(41.42,3,"DT")="2961216"
^DD(41.42,4,0)="CALLED^S^Y:YES;N:NO;^0;6^Q"
^DD(41.42,4,3)="Enter 'Y' if the patient was called, otherwise enter 'N'."
^DD(41.42,4,21,0)="^^4^4^2961209^"
^DD(41.42,4,21,1,0)="Indicates whether the patient was called or not.  When 'Y'es, the"
^DD(41.42,4,21,2,0)="patient has been called and his information updtaed.  If 'N'o, then"
^DD(41.42,4,21,3,0)="either the patient has not been reached, or he has been called, but"
^DD(41.42,4,21,4,0)="his information was not updated."
^DD(41.42,4,"DT")="2961209"
^DD(41.42,5,0)="APPT CLINIC^*P44'^SC(^0;7^S DIC(""S"")=""I $P($G(^SC(Y,0)),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(41.42,5,3)="Enter the clinic the patients appointment is in."
^DD(41.42,5,12)="HOSPITAL LOCATION Type must = 'C' for clinic."
^DD(41.42,5,12.1)="S DIC(""S"")=""I $P($G(^SC(Y,0)),U,3)=""""C"""""""
^DD(41.42,5,21,0)="^^2^2^2970107^^^^"
^DD(41.42,5,21,1,0)="Pointer to the HOSPITAL LOCATION File, #44.  This is the clinic"
^DD(41.42,5,21,2,0)="the patients appointment is in."
^DD(41.42,5,23,0)="^^2^2^2970107^^^^"
^DD(41.42,5,23,1,0)="This entry is screened so only hospital location types of 'C' are"
^DD(41.42,5,23,2,0)="allowed."
^DD(41.42,5,"DT")="2970107"
^DD(41.42,6,0)="APPT DATE/TIME^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(41.42,6,3)="Enter date and time of patients appointment."
^DD(41.42,6,21,0)="^^2^2^2970123^^^^"
^DD(41.42,6,21,1,0)="The date and time of the patients appointment for the clinic specified"
^DD(41.42,6,21,2,0)="in field #5."
^DD(41.42,6,"DT")="2970123"
^DD(41.42,7,0)="MEDICAL SERVICE^S^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;R:REHAB MEDICINE;N:NEUROLOGY;0:NONE;^1;1^Q"
^DD(41.42,7,3)="Select the appropriate service from the list below."
^DD(41.42,7,21,0)="^^8^8^2970107^"
^DD(41.42,7,21,1,0)="This field mirrors the set of codes in the SERVICE Field, #9, of the"
^DD(41.42,7,21,2,0)="HOSPITAL LOCATION File, #44.  These are:"
^DD(41.42,7,21,3,0)=" M:MEDICINE"
^DD(41.42,7,21,4,0)=" S:SURGERY "
^DD(41.42,7,21,5,0)=" P:PSYCHIATRY"
^DD(41.42,7,21,6,0)=" R:REHAB MEDICINE"
^DD(41.42,7,21,7,0)=" N:NEUROLOGY"
^DD(41.42,7,21,8,0)=" 0:NONE"
^DD(41.42,7,"DT")="2970107"
^DD(41.42,"B","APPT CLINIC",5)=""
^DD(41.42,"B","APPT DATE/TIME",6)=""
^DD(41.42,"B","CALLED",4)=""
^DD(41.42,"B","DIVISION",.1)=""
^DD(41.42,"B","LAST UPDATED",3)=""
^DD(41.42,"B","MEDICAL SERVICE",7)=""
^DD(41.42,"B","PATIENT",.01)=""
^DD(41.42,"B","PHONE",2)=""
^DD(41.42,"B","SSN",1)=""
^DD(41.42,"GL",0,1,.01)=""
^DD(41.42,"GL",0,2,.1)=""
^DD(41.42,"GL",0,5,3)=""
^DD(41.42,"GL",0,6,4)=""
^DD(41.42,"GL",0,7,5)=""
^DD(41.42,"GL",0,8,6)=""
^DD(41.42,"GL",1,1,7)=""
^DD(41.42,"GL",1,2,1)=""
^DD(41.42,"GL",1,3,2)=""
^DD(41.42,"IX",.01)=""
^DD(41.42,"IX",.1)=""
^DD(41.42,"RQ",.01)=""
^DD(41.42,"RQ",2)=""
^DD(41.43,0)="FIELD^^5^6"
^DD(41.43,0,"DDA")="N"
^DD(41.43,0,"DT")="2970401"
^DD(41.43,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(41.43,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(41.43,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(41.43,0,"IX","B",41.43,.01)=""
^DD(41.43,0,"IX","C",41.43,1)=""
^DD(41.43,0,"NM","PRE-REGISTRATION CALL LOG")=""
^DD(41.43,0,"VR")="5.3"
^DD(41.43,0,"VRPK")="DG"
^DD(41.43,.01,0)="DATE CALLED^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(41.43,.01,1,0)="^.1"
^DD(41.43,.01,1,1,0)="41.43^B"
^DD(41.43,.01,1,1,1)="S ^DGS(41.43,""B"",$E(X,1,30),DA)="""""
^DD(41.43,.01,1,1,2)="K ^DGS(41.43,""B"",$E(X,1,30),DA)"
^DD(41.43,.01,3)="Enter the date the call attempt was made to the patient."
^DD(41.43,.01,21,0)="^^1^1^2961230^"
^DD(41.43,.01,21,1,0)="Date and time an attempt was made to call the patient."
^DD(41.43,.01,"DT")="2961230"
^DD(41.43,1,0)="PATIENT NAME^RP2'^DPT(^0;2^Q"
^DD(41.43,1,1,0)="^.1"
^DD(41.43,1,1,1,0)="41.43^C"
^DD(41.43,1,1,1,1)="S ^DGS(41.43,""C"",$E(X,1,30),DA)="""""
^DD(41.43,1,1,1,2)="K ^DGS(41.43,""C"",$E(X,1,30),DA)"
^DD(41.43,1,1,1,"DT")="2961230"
^DD(41.43,1,3)="Select patient using 'Lastname,Firstname' format"
^DD(41.43,1,21,0)="^^1^1^2961230^"
^DD(41.43,1,21,1,0)="Ponter to the PATIENT FILE, #2."
^DD(41.43,1,"DT")="2961230"
^DD(41.43,2,0)="USER^P200'^VA(200,^0;3^Q"
^DD(41.43,2,3)="Enter name of the user entering this record."
^DD(41.43,2,21,0)="^^1^1^2961230^"
^DD(41.43,2,21,1,0)="User Entering/editing this record."
^DD(41.43,2,"DT")="2961230"
^DD(41.43,3,0)="STATUS^RS^B:BUSY;C:CONNECTED;D:DEATH;K:CALL BACK;M:LEFT CALLBACK MESSAGE;N:NO ANSWER;P:NO PHONE;T:DON'T CALL;U:UNCOOPERATIVE;V:PREVIOUSLY UPDATED;W:WRONG NUMBER;X:CHANGE INFORMATION;^0;4^Q"
^DD(41.43,3,3)="Enter the status of the call attempt from the list."
^DD(41.43,3,21,0)="^^2^2^2970401^^^^"
^DD(41.43,3,21,1,0)="Set of codes describing the possible results of an attempt to call "
^DD(41.43,3,21,2,0)="the patient."
^DD(41.43,3,"DT")="2970401"
^DD(41.43,4,0)="COMMENTS^41.434^^1;0"
^DD(41.43,5,0)="DIVISION^P40.8'^DG(40.8,^0;5^Q"
^DD(41.43,5,"DT")="2970102"
^DD(41.43,"B","COMMENTS",4)=""
^DD(41.43,"B","DATE CALLED",.01)=""
^DD(41.43,"B","DIVISION",5)=""
^DD(41.43,"B","PATIENT NAME",1)=""
^DD(41.43,"B","STATUS",3)=""
^DD(41.43,"B","USER",2)=""
^DD(41.43,"GL",0,1,.01)=""
^DD(41.43,"GL",0,2,1)=""
^DD(41.43,"GL",0,3,2)=""
^DD(41.43,"GL",0,4,3)=""
^DD(41.43,"GL",0,5,5)=""
^DD(41.43,"GL",1,0,4)=""
^DD(41.43,"IX",.01)=""
^DD(41.43,"IX",1)=""
^DD(41.43,"RQ",.01)=""
^DD(41.43,"RQ",1)=""
^DD(41.43,"RQ",3)=""
^DD(41.43,"SB",41.434,4)=""
^DD(41.434,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(41.434,0,"DT")="2961230"
^DD(41.434,0,"NM","COMMENTS")=""
^DD(41.434,0,"UP")="41.43"
^DD(41.434,.01,0)="COMMENTS^W^^0;1^Q"
^DD(41.434,.01,3)="Comments describing the call attempt."
^DD(41.434,.01,"DT")="2961230"
^DD(41.434,"B","COMMENTS",.01)=""
^DD(41.434,"GL",0,1,.01)=""
^DD(41.9,0)="FIELD^^1^2"
^DD(41.9,0,"DT")="2910415"
^DD(41.9,0,"IX","B",41.9,.01)=""
^DD(41.9,0,"NM","CENSUS")=""
^DD(41.9,0,"VR")="5.3"
^DD(41.9,.01,0)="NAME^RP42'X^DIC(42,^0;1^S DINUM=X"
^DD(41.9,.01,1,0)="^.1"
^DD(41.9,.01,1,1,0)="41.9^B"
^DD(41.9,.01,1,1,1)="S ^DG(41.9,""B"",$E(X,1,30),DA)="""""
^DD(41.9,.01,1,1,2)="K ^DG(41.9,""B"",$E(X,1,30),DA)"
^DD(41.9,.01,3)=""
^DD(41.9,.01,8.5)="^"
^DD(41.9,.01,21,0)="^^2^2^2920128^^^^"
^DD(41.9,.01,21,1,0)="This field points to the Ward Location File (#42) and contains the IFN "
^DD(41.9,.01,21,2,0)="for that ward."
^DD(41.9,1,0)="CENSUS^41.91DA^^C;0"
^DD(41.9,1,21,0)="^^3^3^2980311^^^^"
^DD(41.9,1,21,1,0)="This multiple contains all census data as compiled by the G&L and Bed"
^DD(41.9,1,21,2,0)="Status Reports.  This data is used by the inpatient AMIS reports and"
^DD(41.9,1,21,3,0)="MUST not be altered in any way."
^DD(41.9,"B","CENSUS",1)=""
^DD(41.9,"B","NAME",.01)=""
^DD(41.9,"GL",0,1,.01)=""
^DD(41.9,"GL","C",0,1)=""
^DD(41.9,"IX",.01)=""
^DD(41.9,"RQ",.01)=""
^DD(41.9,"SB",41.91,1)=""
^DD(41.91,0)="CENSUS SUB-FIELD^NL!^111^51"
^DD(41.91,0,"DT")="2910415"
^DD(41.91,0,"NM","CENSUS")=""
^DD(41.91,0,"UP")="41.9"
^DD(41.91,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<99999)!(X?.E1"".""1N.N) X"
^DD(41.91,.001,3)="TYPE A WHOLE NUMBER BETWEEN 99999 AND 99999999"
^DD(41.91,.001,21,0)="^^2^2^2920128^^"
^DD(41.91,.001,21,1,0)="This sub-field of the Census field multiple is the .001 and contains a "
^DD(41.91,.001,21,2,0)="whole number between 99999 and 99999999."
^DD(41.91,.01,0)="CENSUS DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y,DINUM=X K:Y<1!(Y>DT) X,DINUM"
^DD(41.91,.01,21,0)="^^2^2^2920128^^^"
^DD(41.91,.01,21,1,0)="This sub-field of the Census field multiple contains the inverse date "
^DD(41.91,.01,21,2,0)="for information stored for this ward on a specific Census Date."
^DD(41.91,.91,0)="FISCAL YEAR DATE^CJ3,0^^ ; ^X ^DD(41.91,.91,9.2) S X1=X,X2=$E(X1,1,3)_""1001"" S:+$E(X1,4,5)<10 X2=X2-10000 D D^%DTC S X=X+1 S X=$J(X,0,0)"
^DD(41.91,.91,9)="^"
^DD(41.91,.91,9.01)="41.91^.01"
^DD(41.91,.91,9.1)="DGFYD(#.01)"
^DD(41.91,.91,9.2)="S Y(41.91,.91,1)=$S($D(^DG(41.9,D0,""C"",D1,0)):^(0),1:"""") S X=$P(Y(41.91,.91,1),U,1)"
^DD(41.91,.91,21,0)="^^1^1^2920128^"
^DD(41.91,.91,21,1,0)="This sub-field of the Census field multiple is a computed fiscal year date."
^DD(41.91,.91,"DT")="2860918"
^DD(41.91,.92,0)="ADC FYTD^CJ5,0^^ ; ^X $P(^DD(41.91,.91,0),U,5,99) S Y(41.91,.92,2)=X S Y(41.91,.92,1)=$S($D(^DG(41.9,D0,""C"",D1,0)):^(0),1:"""") S X=$P(Y(41.91,.92,1),U,3),X=$S(Y(41.91,.92,2):X/Y(41.91,.92,2),1:""*******"") S X=$J(X,0,0)"
^DD(41.91,.92,9)="^"
^DD(41.91,.92,9.01)="41.91^.91;41.91^2"
^DD(41.91,.92,9.02)="S X=S(""41.91^2""),X=$S(S(""41.91^.91""):X/S(""41.91^.91""),1:""*******"") S Y=X"
^DD(41.91,.92,9.1)="#2/#.91"
^DD(41.91,.92,21,0)="^^2^2^2920128^"
^DD(41.91,.92,21,1,0)="This sub-field of the Census field multiple is a computed Average Daily "
^DD(41.91,.92,21,2,0)="Census (ADC) for the Fiscal Year to Date (FYTD)."
^DD(41.91,.92,"DT")="2860918"
^DD(41.91,.93,0)="DAYS IN MONTH^CJ3,0^^ ; ^S X1=+$E(D1,4,5),X=$P(""31^28^31^30^31^30^31^31^30^31^30^31"",U,X1),X3=+$E(D1,1,3)+1700,X2=(X3#4=0&(X3#100'=0))!(X3#100=0&(X3#400=0)) S:+X1=2&(X2) X=29 S X=$J(X,0,0)"
^DD(41.91,.93,9)="^"
^DD(41.91,.93,9.01)=""
^DD(41.91,.93,9.1)="S X1=+$E(D1,4,5),X=$P(""31^28^31^30^31^30^31^31^30^31^30^31"",U,X1),X3=+$E(D1,1,3)+1700,X2=(X3#4=0&(X3#100'=0))!(X3#100=0&(X3#400=0)) S:+X1=2&(X2) X=29 S X=$J(X,0,0)"
^DD(41.91,.93,21,0)="^^1^1^2980311^^^^"
^DD(41.91,.93,21,1,0)="This sub-field of the Census field multiple is the computed Days in Month."
^DD(41.91,.93,23,0)="^^2^2^2980311^^^^"
^DD(41.91,.93,23,1,0)="This sub-field was modified through the utility option to bring the "
^DD(41.91,.93,23,2,0)="computation into year 2000 compliance for leap year calculations."
^DD(41.91,.93,"DT")="2980311"
^DD(41.91,.94,0)="MONTH^CJ2,0^^ ; ^S X=3+$E(D1,4,5),X=$S(X>12:X-12,1:X)"
^DD(41.91,.94,9)="^"
^DD(41.91,.94,9.01)=""
^DD(41.91,.94,9.1)="S X=3+$E(D1,4,5),X=$S(X>12:X-12,1:X)"
^DD(41.91,.94,21,0)="^^1^1^2920128^"
^DD(41.91,.94,21,1,0)="This sub-field of the Census field multiple is the computed Month."
^DD(41.91,.94,"DT")="2860115"
^DD(41.91,.95,0)="DAY IN MONTH^CJ2,0^^ ; ^S X=+$E(D1,6,7)"
^DD(41.91,.95,9)="^"
^DD(41.91,.95,9.01)=""
^DD(41.91,.95,9.1)="S X=+$E(D1,6,7)"
^DD(41.91,.95,21,0)="^^1^1^2920128^"
^DD(41.91,.95,21,1,0)="This sub-field of the Census field multiple is the computed Day in Month. "
^DD(41.91,.95,"DT")="2860115"
^DD(41.91,.96,0)="MONTHS IN FY^CJ2,0^^ ; ^X ^DD(41.91,.96,9.2) S X=X+Y(41.91,.96,3) S X=$J(X,0,0)"
^DD(41.91,.96,9)="^"
^DD(41.91,.96,9.01)="41.91^.94;41.91^.93;41.91^.95"
^DD(41.91,.96,9.1)="#.95/#.93+#.94"
^DD(41.91,.96,9.2)="X $P(^DD(41.91,.93,0),U,5,99) S Y(41.91,.96,2)=X X $P(^DD(41.91,.94,0),U,5,99) S Y(41.91,.96,3)=X X $P(^DD(41.91,.95,0),U,5,99) S Y(41.91,.96,1)=X S X=Y(41.91,.96,1),X=$S(Y(41.91,.96,2):X/Y(41.91,.96,2),1:""*******"")"
^DD(41.91,.96,21,0)="^^2^2^2920128^"
^DD(41.91,.96,21,1,0)="This sub-field of the Census field multiple is computed and contains the "
^DD(41.91,.96,21,2,0)="Months in Fiscal Year."
^DD(41.91,.96,"DT")="2860918"
^DD(41.91,.97,0)="FY TO DATE^CJ3,0^^ ; ^X ^DD(41.91,.97,9.2) S X=$P(Y(41.91,.97,1),U,24),X=$S(Y(41.91,.97,2):X/Y(41.91,.97,2),1:""*******""),X=$S(Y(41.91,.97,3):X/Y(41.91,.97,3),1:""*******"")*100 S X=$J(X,0,0)"
^DD(41.91,.97,9)="^"
^DD(41.91,.97,9.01)="41.91^.92;41.91^.96;41.91^24"
^DD(41.91,.97,9.1)="((CUM LOSSES/#.96))/ADC FYTD*100"
^DD(41.91,.97,9.2)="X $P(^DD(41.91,.92,0),U,5,99) S Y(41.91,.97,3)=X X $P(^DD(41.91,.96,0),U,5,99) S Y(41.91,.97,2)=X S Y(41.91,.97,1)=$S($D(^DG(41.9,D0,""C"",D1,0)):^(0),1:"""")"
^DD(41.91,.97,21,0)="^^2^2^2920128^"
^DD(41.91,.97,21,1,0)="This sub-field of the Census field multiple is computed and contains "
^DD(41.91,.97,21,2,0)="(Cum Losses/Months in FY)/ADC FYTD*100  and always is a whole number."
^DD(41.91,.97,"DT")="2860918"
^DD(41.91,1,0)="PATIENTS REMAINING^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,1,21,0)="^^2^2^2920128^^^"
^DD(41.91,1,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,1,21,2,0)="patients remaining in this ward at end of census day."
^DD(41.91,1,"DT")="2841119"
^DD(41.91,2,0)="CUM PATIENT DAYS OF CARE^NJ6,0^^0;3^K:+X'=X!(X>199999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,2,3)="Enter the total number of cumulative patient days FYTD, not including pass days. The entry must be betweed 0 and 199,999"
^DD(41.91,2,11,0)="^.2LAP"
^DD(41.91,2,21,0)="^^3^3^2931130^^^^"
^DD(41.91,2,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,2,21,2,0)="Cumulative Patient Days of Care in this ward from beginning"
^DD(41.91,2,21,3,0)="of fiscal year to today."
^DD(41.91,3,0)="CUM BED^NJ6,0^^0;4^K:+X'=X!(X>199999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,3,3)="Enter the cumulative bed days (operating beds--used for occupancy rate) FYTD, between 0 and 199,999."
^DD(41.91,3,21,0)="^^2^2^2920128^^^^"
^DD(41.91,3,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,3,21,2,0)="Cumulative Beds in this ward from the beginning of fiscal year."
^DD(41.91,4,0)="PCT BED UTILIZATION^CJ6,2^^ ; ^S Y(41.91,4,1)=$S($D(^DG(41.9,D0,""C"",D1,0)):^(0),1:"""") S X=$P(Y(41.91,4,1),U,3),X=$S($P(Y(41.91,4,1),U,4):X/$P(Y(41.91,4,1),U,4),1:""*******"")*100"
^DD(41.91,4,9)="^"
^DD(41.91,4,9.01)="41.91^3;41.91^2"
^DD(41.91,4,9.1)="#2/#3*100"
^DD(41.91,4,21,0)="^^1^1^2850821^^"
^DD(41.91,4,21,1,0)="Cum Count divided by Cum Beds"
^DD(41.91,4,"DT")="2860918"
^DD(41.91,5,0)="CUM DISCHARGES^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,5,.1)="CUMULATIVE DISCHARGES"
^DD(41.91,5,3)="Enter the cumulative discharges for the current fiscal year, between 0 and 9,999,999."
^DD(41.91,5,21,0)="^^3^3^2920128^^^^"
^DD(41.91,5,21,1,0)="The sub-field of the Census field multiple contains the "
^DD(41.91,5,21,2,0)="Cumulative Discharges from beginning of the current fiscal year "
^DD(41.91,5,21,3,0)="for this ward location.  "
^DD(41.91,6,0)="CUM INTER XFERS^NJ7,0^^0;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,6,.1)="CUMULATIVE INTERWARD TRANSFERS"
^DD(41.91,6,3)="Enter the cumulative interward transfers for the current fiscal year, between 0 and 9,999,999."
^DD(41.91,6,21,0)="^^3^3^2930904^^^^"
^DD(41.91,6,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,6,21,2,0)="Cumulative Interward Transfers Out for the current fiscal year "
^DD(41.91,6,21,3,0)="for this ward location."
^DD(41.91,7,0)="CUM PAT REMAIN^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,7,.1)="CUMULATIVE PATIENTS REMAINING"
^DD(41.91,7,3)="Enter the cumulative patients remaining for the current fiscal year, between 0 and 99,999,999."
^DD(41.91,7,21,0)="^^15^15^2920128^^^^"
^DD(41.91,7,21,1,0)="This sub-field of the Census multiple field contains the "
^DD(41.91,7,21,2,0)="Cumulative Patients remaining fiscal year to date for "
^DD(41.91,7,21,3,0)="this ward location."
^DD(41.91,7,21,4,0)="   "
^DD(41.91,7,21,5,0)="Patients remaining equals:"
^DD(41.91,7,21,6,0)="   "
^DD(41.91,7,21,7,0)="    Yesterday's COUNT"
^DD(41.91,7,21,8,0)="   "
^DD(41.91,7,21,9,0)="        +  (Plus)"
^DD(41.91,7,21,10,0)="   "
^DD(41.91,7,21,11,0)="    Todays GAINS (Admissions and Transfers)"
^DD(41.91,7,21,12,0)="   "
^DD(41.91,7,21,13,0)="        -  (Minus)"
^DD(41.91,7,21,14,0)="   "
^DD(41.91,7,21,15,0)="    Todays LOSSES  (Discharges and Transfers)"
^DD(41.91,8,0)="CUM INTSERV XFERS^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,8,.1)="CUMULATIVE INTERSERVICE TRANSFERS"
^DD(41.91,8,3)="Enter the cumulative interservice transfers (bedsection changes) for the current fiscal year, between 0 and 99999999."
^DD(41.91,8,21,0)="^^3^3^2930904^^^^"
^DD(41.91,8,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,8,21,2,0)="Cumulative Interservice (Bedsection Changes) for the current "
^DD(41.91,8,21,3,0)="fiscal year for this ward location."
^DD(41.91,9,0)="CUM PASS DAYS^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,9,.1)="CUMULATIVE PASS DAYS"
^DD(41.91,9,3)="Enter the cumulative number of pass days for this ward, between 0 and 9,999,999."
^DD(41.91,9,21,0)="^^3^3^2920128^^^^"
^DD(41.91,9,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,9,21,2,0)="Cumulative days of Authorized Absence <96 hours fiscal year to date "
^DD(41.91,9,21,3,0)="for this ward location."
^DD(41.91,9,"DT")="2831211"
^DD(41.91,10,0)="CUM ABO DAYS^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,10,.1)="CUMULATIVE ABSENT BED OCCUPIED DAYS"
^DD(41.91,10,3)="Enter the cumulative number of authorized absence days for the current fiscal year, between 0 and 9,999,999."
^DD(41.91,10,21,0)="^^3^3^2920128^^^^"
^DD(41.91,10,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,10,21,2,0)="Cumulative Absent Bed Occupied Days (Authorized Absence) "
^DD(41.91,10,21,3,0)="fiscal year to date for this ward location.  "
^DD(41.91,10,"DT")="2831211"
^DD(41.91,11,0)="CUM UA DAYS^NJ9,0^^0;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,11,.1)="CUMULATIVE UNAUTHORIZED ABSENCE DAYS"
^DD(41.91,11,3)="Enter the cumulative number of days of unauthorized absence, fiscal year to date, for this ward location."
^DD(41.91,11,21,0)="^^3^3^2920128^^^^"
^DD(41.91,11,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,11,21,2,0)="Cumulative Unauthorized Absence Days fiscal year to date for this "
^DD(41.91,11,21,3,0)="ward location."
^DD(41.91,11,"DT")="2840208"
^DD(41.91,12,0)="*CUM 1 DAY DIALYSIS PATIENTS^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,12,.1)="CUMULATIVE INPATIENT HEMODIALYSIS DAYS"
^DD(41.91,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(41.91,12,21,0)="^^3^3^2920128^^^^"
^DD(41.91,12,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,12,21,2,0)="Cumulative Dialysis Patients (only for dialysis ward)"
^DD(41.91,12,21,3,0)="for fiscal year to date for this ward location."
^DD(41.91,12,"DT")="2920130"
^DD(41.91,13,0)="CUM ADMIS FROM XFER IN^NJ9,0^^0;13^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,13,.1)="CUMULATIVE ADMISSIONS FROM 'TRANSFER IN' STATUS"
^DD(41.91,13,3)="Enter the cumulative number of admissions which were transfers in from other VA facilities or facilities under VA auspices, fiscal year to date."
^DD(41.91,13,21,0)="^^3^3^2920128^^^^"
^DD(41.91,13,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,13,21,2,0)="Cumulative Admissions with movement type Tranfer In"
^DD(41.91,13,21,3,0)="for fiscal year to date for this ward location."
^DD(41.91,13,"DT")="2840208"
^DD(41.91,14,0)="CUM DISCH TO  XFER OUT^NJ9,0^^0;14^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,14,.1)="CUMULATIVE DISCHARGES TO 'TRANSFER OUT' STATUS"
^DD(41.91,14,3)="Enter the cumulative number of discharges with the status of transfer out, fiscal year to date."
^DD(41.91,14,21,0)="^^3^3^2920128^^^^"
^DD(41.91,14,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,14,21,2,0)="Cumulative Discharges with movement type Transfer Out"
^DD(41.91,14,21,3,0)="for this fiscal year to date for this ward location.  "
^DD(41.91,14,"DT")="2840208"
^DD(41.91,15,0)="CUM DISCHARGES TO DEATH^NJ9,0^^0;15^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,15,3)="Enter the cumulative number of discharges to status of death, fiscal year to date."
^DD(41.91,15,21,0)="1^^3^3^2920128^"
^DD(41.91,15,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,15,21,2,0)="Cumulative Discharges with movement type of Death for "
^DD(41.91,15,21,3,0)="this fiscal year for this ward location.  "
^DD(41.91,15,"DT")="2840208"
^DD(41.91,16,0)="CUM DISCH TO 'OPT/NSC'^NJ9,0^^0;16^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,16,3)="Enter the cumulative discharges with the status of 'OPT/NSC', fiscal year to date. Does not include one day dialysis patients."
^DD(41.91,16,21,0)="^^3^3^2920128^^^"
^DD(41.91,16,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,16,21,2,0)="Cumulative Discharges with movement type OPT/NSC"
^DD(41.91,16,21,3,0)="for this fiscal year for this ward location.  "
^DD(41.91,16,"DT")="2840208"
^DD(41.91,17,0)="CUM ADMISSIONS^NJ9,0^^0;17^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,17,3)="Enter the total number of cumulative admissions for this ward location as required by AMIS."
^DD(41.91,17,21,0)="^^2^2^2920128^^^"
^DD(41.91,17,21,1,0)="This sub-field of the Census field multiple contains the "
^DD(41.91,17,21,2,0)="Cumulative Admissions for this fiscal year for this ward loation."
^DD(41.91,17,"DT")="2840214"
^DD(41.91,18,0)="ADM AFTER REHOSP >30DAYS^NJ6,0^^0;18^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,18,3)="Enter the total number of patient's admitted to this ward location (pertains only to Dom or NHCU) that were hospitalized >30 days."
^DD(41.91,18,21,0)="^^3^3^2920128^^"
^DD(41.91,18,21,1,0)="This sub-field of the Census field multiple contains the number "
^DD(41.91,18,21,2,0)="of admission (pertains only to Dom or NHCU) that were hospitalized "
^DD(41.91,18,21,3,0)="more than 30 days for this fiscal year for this ward location."
^DD(41.91,18,"DT")="2840214"
^DD(41.91,19,0)="FROM ASIH^NJ6,0^^0;19^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,19,3)="Enter the total number of patients readmitted from ASIH status."
^DD(41.91,19,21,0)="^^3^3^2920128^^^^"
^DD(41.91,19,21,1,0)="This sub-field of the Census field multiple contains the number "
^DD(41.91,19,21,2,0)="of Cumulative transfers from Absent Sick In Hospital (From ASIH)"
^DD(41.91,19,21,3,0)="for this fiscal year for this ward location."
^DD(41.91,19,"DT")="2840214"
^DD(41.91,20,0)="TO ASIH^NJ6,0^^0;20^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,20,3)="Enter the total number of patients transfered to ASIH (only applies to Dom or NHCU)."
^DD(41.91,20,21,0)="^^3^3^2920128^^^^"
^DD(41.91,20,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,20,21,2,0)="Cumulative transfers or discharges from Absent Sick In Hospital (TO ASIH) "
^DD(41.91,20,21,3,0)="for this fiscal year for this ward location.  "
^DD(41.91,20,"DT")="2840214"
^DD(41.91,21,0)="DISCHARGE WHILE ASIH^NJ6,0^^0;21^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,21,3)="Enter the total number of patients that were discharged from the hospital while on ASIH status from this ward. (Only applies to Dom and NHCU)"
^DD(41.91,21,21,0)="^^3^3^2920128^^"
^DD(41.91,21,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,21,21,2,0)="Cummulative discharges (NHCU or DOM) while Absent Sick In Hospital"
^DD(41.91,21,21,3,0)="for this fiscal yar for this ward location."
^DD(41.91,21,"DT")="2840214"
^DD(41.91,22,0)="DIED WHILE ASIH^NJ6,0^^0;22^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,22,3)="Enter the total number of patients who died in the hospital while on ASIH status from this ward. (Applies only to Dom and NHCU)"
^DD(41.91,22,21,0)="^^3^3^2920129^^^^"
^DD(41.91,22,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,22,21,2,0)="Cumulative Deaths (recorded in NHCU or DOM) while patient was Absent"
^DD(41.91,22,21,3,0)="Sick In  Hospital for this fiscal year for this ward location."
^DD(41.91,22,"DT")="2840214"
^DD(41.91,23,0)="CUM INTSERV XFERS IN^NJ9,0^^0;23^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,23,3)="Enter the total number of cumulative interservice transfers into this bedsection, 0-999,999."
^DD(41.91,23,21,0)="3"
^DD(41.91,23,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,23,21,2,0)="Cumulative Interservice Transfers into this bedsection for this "
^DD(41.91,23,21,3,0)="fiscal year for this ward location.  "
^DD(41.91,23,"DT")="2840216"
^DD(41.91,24,0)="CUM LOSSES^NJ5,0^^0;24^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,24,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(41.91,24,21,0)="^^3^3^2920129^^^"
^DD(41.91,24,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,24,21,2,0)="Cumulative Losses (from transfers and discharges)"
^DD(41.91,24,21,3,0)="for this fiscal year for this ward location."
^DD(41.91,24,"DT")="2841025"
^DD(41.91,25,0)="CUM MONTHLY PAT DAYS^NJ5,0^^0;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,25,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(41.91,25,21,0)="^^4^4^2920129^^^"
^DD(41.91,25,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,25,21,2,0)="Cumulative (from beginning of Month) Patient Days of Care"
^DD(41.91,25,21,3,0)="for this month (from the beginning of current month) "
^DD(41.91,25,21,4,0)="for this ward location.  "
^DD(41.91,25,"DT")="2841026"
^DD(41.91,26,0)="CUM AUTHORIZED ABSENCE^NJ4,0^^0;26^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,26,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(41.91,26,21,0)="^^3^3^2920129^^^"
^DD(41.91,26,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,26,21,2,0)="Cumulative Transfers To Authorized Absence (not days)"
^DD(41.91,26,21,3,0)="for this fiscal year for this ward location."
^DD(41.91,26,"DT")="2850909"
^DD(41.91,27,0)="CUM UNAUTHORIZED ABSENCES^NJ4,0^^0;27^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,27,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(41.91,27,21,0)="^^3^3^2920129^^^"
^DD(41.91,27,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,27,21,2,0)="Cumulative Transfers To Unauthorized Absence (not days)"
^DD(41.91,27,21,3,0)="for this fiscal year for this ward location.  "
^DD(41.91,28,0)="GAINS-TOTAL [CUM]^NJ5,0^^0;28^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,28,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(41.91,28,21,0)="^^3^3^2920129^^"
^DD(41.91,28,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,28,21,2,0)="Cumulative Gains Totals (from admissions and transfers)"
^DD(41.91,28,21,3,0)="for this fiscal year for this ward location.  "
^DD(41.91,28,"DT")="2900415"
^DD(41.91,29,0)="IWT GAINS [CUM]^NJ5,0^^0;29^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,29,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(41.91,29,21,0)="^^3^3^2920129^^"
^DD(41.91,29,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,29,21,2,0)="Cumulative Inter-Ward-Transfers for this fiscal year "
^DD(41.91,29,21,3,0)="for this ward location."
^DD(41.91,29,"DT")="2900415"
^DD(41.91,30,0)="CUM BEDS OUT-OF-SERVICE^NJ6,0^^0;30^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,30,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(41.91,30,21,0)="^^3^3^2920129^^"
^DD(41.91,30,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,30,21,2,0)="Cumulative Beds Out-Of-Service for this fiscal year for this "
^DD(41.91,30,21,3,0)="ward location."
^DD(41.91,30,"DT")="2910415"
^DD(41.91,31,0)="CUM DAYS WARD OUT-OF-SERVICE^NJ3,0^^0;31^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,31,3)="Type a Number between 0 and 366, 0 Decimal Digits"
^DD(41.91,31,21,0)="^^3^3^2920129^"
^DD(41.91,31,21,1,0)="This sub-field of the Census field mutiple contains the number of "
^DD(41.91,31,21,2,0)="Cumulative Days Ward Out-Of-Service for this fiscal year for this "
^DD(41.91,31,21,3,0)="ward location."
^DD(41.91,31,"DT")="2910415"
^DD(41.91,101,0)="FEMALE PATIENTS REMAINING^NJ3,0^^1;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,101,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,101,21,0)="^^3^3^2920129^^^"
^DD(41.91,101,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,101,21,2,0)="Female Patients Remaining at end of census day (not cumulative)"
^DD(41.91,101,21,3,0)="for this ward location."
^DD(41.91,101,"DT")="2850104"
^DD(41.91,102,0)="OPERATING BEDS^NJ3,0^^1;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,102,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,102,21,0)="^^3^3^2920129^^^"
^DD(41.91,102,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,102,21,2,0)="Operating Beds at end of census day (not cumulative)"
^DD(41.91,102,21,3,0)="for this ward location.  "
^DD(41.91,103,0)="BED OCCUPANTS- 65 AND OVER^NJ3,0^^1;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,103,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,103,21,0)="^^3^3^2920129^^"
^DD(41.91,103,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,103,21,2,0)="Bed Occupants who were 65 Years Old or Over at the end of census day "
^DD(41.91,103,21,3,0)="(not cumulative) for this ward location.  "
^DD(41.91,103,"DT")="2850822"
^DD(41.91,104,0)="BED OCCUPANTS- VIETNAM ERA^NJ3,0^^1;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,104,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,104,21,0)="^^3^3^2920129^^^^"
^DD(41.91,104,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,104,21,2,0)="Bed Occupants whose period of service indicated Vietnam Era at the "
^DD(41.91,104,21,3,0)="end of the census day (not cumulative) for this ward location.  "
^DD(41.91,105,0)="PATIENTS ON AA<96^NJ3,0^^1;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,105,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,105,21,0)="^^3^3^2920129^^^^"
^DD(41.91,105,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,105,21,2,0)="Patients on Pass (AA<96) at the end of the census day (not cumulative)"
^DD(41.91,105,21,3,0)="for this ward location."
^DD(41.91,105,"DT")="2850822"
^DD(41.91,106,0)="PATIENTS ON AUTHORIZED ABSENCE^NJ3,0^^1;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,106,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,106,21,0)="^^3^3^2920129^^"
^DD(41.91,106,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,106,21,2,0)="Patients on Authorized Absence (AA) at the end of the census day "
^DD(41.91,106,21,3,0)="(not cumulative) for this ward location."
^DD(41.91,107,0)="UNAUTHORIZED ABSENCE^NJ3,0^^1;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,107,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,107,21,0)="^^3^3^2920129^^"
^DD(41.91,107,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,107,21,2,0)="Patients on Unauthorized Absence (UA) at the end of the census day "
^DD(41.91,107,21,3,0)="(not cumulative) for this ward location."
^DD(41.91,108,0)="ASIH^NJ3,0^^1;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,108,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,108,21,0)="^^3^3^2920129^^"
^DD(41.91,108,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,108,21,2,0)="Patients Absent Sick In Hospital (ASIH) at the end of the census day "
^DD(41.91,108,21,3,0)="(not cumulative) for this ward location."
^DD(41.91,109,0)="BEDS OUT OF SERVICE^NJ4,0^^1;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,109,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(41.91,109,21,0)="^^3^3^2920129^^^"
^DD(41.91,109,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,109,21,2,0)="Beds Out Of Service at the end of the census day (not cumulative) "
^DD(41.91,109,21,3,0)="for this ward location."
^DD(41.91,109,"DT")="2850906"
^DD(41.91,110,0)="AUTHORIZED BEDS^NJ4,0^^1;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,110,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(41.91,110,21,0)="^^3^3^2920129^^"
^DD(41.91,110,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,110,21,2,0)="Authorized Beds at the end of the census day (not cumulative) "
^DD(41.91,110,21,3,0)="for this ward location."
^DD(41.91,111,0)="ONE DAY DISCHARGES^NJ3,0^^1;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(41.91,111,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(41.91,111,21,0)="^^4^4^2920129^^"
^DD(41.91,111,21,1,0)="This sub-field of the Census field multiple contains the number of "
^DD(41.91,111,21,2,0)="One Day Discharges (patients who were discharged with admission on "
^DD(41.91,111,21,3,0)="the same day) at the end of the census day (not cumulative) "
^DD(41.91,111,21,4,0)="for this ward location."
^DD(41.91,111,"DT")="2851009"
^DD(41.91,"B","*CUM 1 DAY DIALYSIS PATIENTS",12)=""
^DD(41.91,"B","ADC FYTD",.92)=""
^DD(41.91,"B","ADM AFTER REHOSP >30DAYS",18)=""
^DD(41.91,"B","ASIH",108)=""
^DD(41.91,"B","AUTHORIZED BEDS",110)=""
^DD(41.91,"B","BED OCCUPANTS- 65 AND OVER",103)=""
^DD(41.91,"B","BED OCCUPANTS- VIETNAM ERA",104)=""
^DD(41.91,"B","BEDS OUT OF SERVICE",109)=""
^DD(41.91,"B","CENSUS DATE",.01)=""
^DD(41.91,"B","CUM ABO DAYS",10)=""
^DD(41.91,"B","CUM ADMIS FROM XFER IN",13)=""
^DD(41.91,"B","CUM ADMISSIONS",17)=""
^DD(41.91,"B","CUM AUTHORIZED ABSENCE",26)=""
^DD(41.91,"B","CUM BED",3)=""
^DD(41.91,"B","CUM BEDS OUT-OF-SERVICE",30)=""
^DD(41.91,"B","CUM DAYS WARD OUT-OF-SERVICE",31)=""
^DD(41.91,"B","CUM DISCH TO  XFER OUT",14)=""
^DD(41.91,"B","CUM DISCH TO 'OPT/NSC'",16)=""
^DD(41.91,"B","CUM DISCHARGES",5)=""
^DD(41.91,"B","CUM DISCHARGES TO DEATH",15)=""
^DD(41.91,"B","CUM INTER XFERS",6)=""
^DD(41.91,"B","CUM INTSERV XFERS",8)=""
^DD(41.91,"B","CUM INTSERV XFERS IN",23)=""
^DD(41.91,"B","CUM LOSSES",24)=""
^DD(41.91,"B","CUM MONTHLY PAT DAYS",25)=""
^DD(41.91,"B","CUM PASS DAYS",9)=""
^DD(41.91,"B","CUM PAT REMAIN",7)=""
^DD(41.91,"B","CUM PATIENT DAYS OF CARE",2)=""
^DD(41.91,"B","CUM UA DAYS",11)=""
^DD(41.91,"B","CUM UNAUTHORIZED ABSENCES",27)=""
^DD(41.91,"B","CUMULATIVE DISCHARGES",5)="1"
^DD(41.91,"B","CUMULATIVE INTERWARD TRANSFERS",6)="1"
^DD(41.91,"B","CUMULATIVE PASS DAYS",9)="1"
^DD(41.91,"B","CUMULATIVE PATIENTS REMAINING",7)="1"
^DD(41.91,"B","DAY IN MONTH",.95)=""
^DD(41.91,"B","DAYS IN MONTH",.93)=""
^DD(41.91,"B","DIED WHILE ASIH",22)=""
^DD(41.91,"B","DISCHARGE WHILE ASIH",21)=""
^DD(41.91,"B","FEMALE PATIENTS REMAINING",101)=""
^DD(41.91,"B","FISCAL YEAR DATE",.91)=""
^DD(41.91,"B","FROM ASIH",19)=""
^DD(41.91,"B","FY TO DATE",.97)=""
^DD(41.91,"B","GAINS-TOTAL [CUM]",28)=""
^DD(41.91,"B","IWT GAINS [CUM]",29)=""
^DD(41.91,"B","MONTH",.94)=""
^DD(41.91,"B","MONTHS IN FY",.96)=""
^DD(41.91,"B","NUMBER",.001)=""
^DD(41.91,"B","ONE DAY DISCHARGES",111)=""
^DD(41.91,"B","OPERATING BEDS",102)=""
^DD(41.91,"B","PATIENTS ON AA<96",105)=""
^DD(41.91,"B","PATIENTS ON AUTHORIZED ABSENCE",106)=""
^DD(41.91,"B","PATIENTS REMAINING",1)=""
^DD(41.91,"B","PCT BED UTILIZATION",4)=""
^DD(41.91,"B","TO ASIH",20)=""
^DD(41.91,"B","UNAUTHORIZED ABSENCE",107)=""
^DD(41.91,"GL",0,1,.01)=""
^DD(41.91,"GL",0,2,1)=""
^DD(41.91,"GL",0,3,2)=""
^DD(41.91,"GL",0,4,3)=""
^DD(41.91,"GL",0,5,5)=""
^DD(41.91,"GL",0,6,6)=""
^DD(41.91,"GL",0,7,7)=""
^DD(41.91,"GL",0,8,8)=""
^DD(41.91,"GL",0,9,9)=""
^DD(41.91,"GL",0,10,10)=""
^DD(41.91,"GL",0,11,11)=""
^DD(41.91,"GL",0,12,12)=""
^DD(41.91,"GL",0,13,13)=""
^DD(41.91,"GL",0,14,14)=""
^DD(41.91,"GL",0,15,15)=""
^DD(41.91,"GL",0,16,16)=""
^DD(41.91,"GL",0,17,17)=""
^DD(41.91,"GL",0,18,18)=""
^DD(41.91,"GL",0,19,19)=""
^DD(41.91,"GL",0,20,20)=""
^DD(41.91,"GL",0,21,21)=""
^DD(41.91,"GL",0,22,22)=""
^DD(41.91,"GL",0,23,23)=""
^DD(41.91,"GL",0,24,24)=""
^DD(41.91,"GL",0,25,25)=""
^DD(41.91,"GL",0,26,26)=""
^DD(41.91,"GL",0,27,27)=""
^DD(41.91,"GL",0,28,28)=""
^DD(41.91,"GL",0,29,29)=""
^DD(41.91,"GL",0,30,30)=""
^DD(41.91,"GL",0,31,31)=""
^DD(41.91,"GL",1,1,101)=""
^DD(41.91,"GL",1,2,102)=""
^DD(41.91,"GL",1,3,103)=""
^DD(41.91,"GL",1,4,104)=""
^DD(41.91,"GL",1,5,105)=""
^DD(41.91,"GL",1,6,106)=""
^DD(41.91,"GL",1,7,107)=""
^DD(41.91,"GL",1,8,108)=""
^DD(41.91,"GL",1,9,109)=""
^DD(41.91,"GL",1,10,110)=""
^DD(41.91,"GL",1,11,111)=""
^DD(42,0)="FIELD^^1491^25"
^DD(42,0,"DDA")="N"
^DD(42,0,"DT")="2950201"
^DD(42,0,"ID",44)="W """""
^DD(42,0,"ID",400)="N D0,X S D0=+Y D WIN^DGPMDDCF I X W ?40,""   *** INACTIVE ***"""
^DD(42,0,"IX","AGL",42,400)=""
^DD(42,0,"IX","AINV",42.08,.01)=""
^DD(42,0,"IX","AWU",42,.01)=""
^DD(42,0,"IX","B",42,.01)=""
^DD(42,0,"IX","C",42.01,.01)=""
^DD(42,0,"IX","D",42,.03)=""
^DD(42,0,"IX","E",42,1491)=""
^DD(42,0,"NM","WARD LOCATION")=""
^DD(42,0,"PT",41.1,8)=""
^DD(42,0,"PT",41.9,.01)=""
^DD(42,0,"PT",43,3)=""
^DD(42,0,"PT",44,42)=""
^DD(42,0,"PT",45.0535,6)=""
^DD(42,0,"PT",45.85,.06)=""
^DD(42,0,"PT",45.9,70)=""
^DD(42,0,"PT",46.12,.01)=""
^DD(42,0,"PT",50.802,5)=""
^DD(42,0,"PT",50.804,.01)=""
^DD(42,0,"PT",50.804,4)=""
^DD(42,0,"PT",50.804,8)=""
^DD(42,0,"PT",50.806,4)=""
^DD(42,0,"PT",50.808,.01)=""
^DD(42,0,"PT",51.01,.01)=""
^DD(42,0,"PT",51.11,.01)=""
^DD(42,0,"PT",53.1,50)=""
^DD(42,0,"PT",53.1,52)=""
^DD(42,0,"PT",53.66,.01)=""
^DD(42,0,"PT",53.68,.12)=""
^DD(42,0,"PT",53.78,.09)=""
^DD(42,0,"PT",55.01,9)=""
^DD(42,0,"PT",55.06,9)=""
^DD(42,0,"PT",55.06,68)=""
^DD(42,0,"PT",55.0611,.07)=""
^DD(42,0,"PT",57.51,.01)=""
^DD(42,0,"PT",57.61,.01)=""
^DD(42,0,"PT",57.7,.01)=""
^DD(42,0,"PT",58.26,.01)=""
^DD(42,0,"PT",58.800115,.01)=""
^DD(42,0,"PT",58.842,.01)=""
^DD(42,0,"PT",59.6,.01)=""
^DD(42,0,"PT",59.701,.01)=""
^DD(42,0,"PT",59.722,.01)=""
^DD(42,0,"PT",59.7221,.01)=""
^DD(42,0,"PT",70.03,6)=""
^DD(42,0,"PT",74.4,6)=""
^DD(42,0,"PT",100.213,.01)=""
^DD(42,0,"PT",100.241,.01)=""
^DD(42,0,"PT",100.25,7)=""
^DD(42,0,"PT",100.511,.01)=""
^DD(42,0,"PT",119.6,102)=""
^DD(42,0,"PT",119.63,.01)=""
^DD(42,0,"PT",123.54,.01)=""
^DD(42,0,"PT",195.9,.01)=""
^DD(42,0,"PT",211.41,.01)=""
^DD(42,0,"PT",404.56,.02)=""
^DD(42,0,"PT",405,.06)=""
^DD(42,0,"PT",405.41,.01)=""
^DD(42,0,"PT",617,1)=""
^DD(42,0,"PT",618,.01)=""
^DD(42,0,"PT",618.2,.5)=""
^DD(42,0,"PT",618.4,20)=""
^DD(42,0,"PT",650.11,.01)=""
^DD(42,0,"PT",664.1,12)=""
^DD(42,0,"PT",727.4,.01)=""
^DD(42,0,"PT",728.904,5)=""
^DD(42,0,"VR")="5.3"
^DD(42,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(42,.01,1,0)="^.1"
^DD(42,.01,1,1,0)="42^B"
^DD(42,.01,1,1,1)="S ^DIC(42,""B"",$E(X,1,30),DA)="""""
^DD(42,.01,1,1,2)="K ^DIC(42,""B"",$E(X,1,30),DA)"
^DD(42,.01,1,1,"DT")="2950302"
^DD(42,.01,1,2,0)="42^AWU^MUMPS"
^DD(42,.01,1,2,1)="Q"
^DD(42,.01,1,2,2)="S %=$P(^DIC(42,DA,0),""^"",1) F J=""ACN"",""CN"" F I=0:0 S I=$N(^DPT(J,X,I)) Q:I'>0  S DGWU=^DPT(J,X,I) K ^DPT(J,X,I) K:J=""CN"" ^DGPM(J,X,DGWU) I %]"""" S ^DPT(J,%,I)=DGWU S:J=""CN"" ^DGPM(J,%,DGWU)="""" K DGWU I $D(^DPT(I,.1)),^(.1)=X S ^(.1)=%"
^DD(42,.01,1,3,0)="^^TRIGGER^44^.01"
^DD(42,.01,1,3,1)="X ^DD(42,.01,1,3,1.3) I X S X=DIV X ^DD(42,.01,1,3,9.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(42,.01,1,3,1.4)"
^DD(42,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIC(42,D0,44)):^(44),1:"""") S X=$P(Y(1),U,1)'=DIV"
^DD(42,.01,1,3,1.4)="S DIH=$S($D(^SC(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(0)=DIV_$S(%]"""":U_%,1:""""),DIH=44,DIG=.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(42,.01,1,3,2)="Q"
^DD(42,.01,1,3,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DIC(42,D0,44)):^(44),1:""""),D0=$P(Y(1),U,1) S:'$D(^SC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SC(D0,0)):^(0),1:"""")"
^DD(42,.01,1,3,"CREATE CONDITION")="HOSPITAL LOCATION FILE'=NAME"
^DD(42,.01,1,3,"CREATE VALUE")="NAME"
^DD(42,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(42,.01,1,3,"FIELD")="HOSPITAL LOCATION:NAME"
^DD(42,.01,1,4,0)="^^TRIGGER^46.11^.02"
^DD(42,.01,1,4,1)="Q"
^DD(42,.01,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(42,.01,1,4,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=X X ^DD(42,.01,1,4,2.4)"
^DD(42,.01,1,4,2.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=46.11,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(42,.01,1,4,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMFL"",X=""""""""_X_"""""""" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(42,.01,1,4,"%D",0)="^^5^5^2991103^^"
^DD(42,.01,1,4,"%D",1,0)="Trigger Ward name prior to change to the RAI MDS MONITOR file whenever"
^DD(42,.01,1,4,"%D",2,0)="the Ward name is changed or added."
^DD(42,.01,1,4,"%D",3,0)="The trigger cross-reference has a condition whereby it should only"
^DD(42,.01,1,4,"%D",4,0)="occur if the MAS Parameter file, field CREATE MFU FOR RAI MDS (#391.7014)"
^DD(42,.01,1,4,"%D",5,0)="is equal to a ""1""."
^DD(42,.01,1,4,"CREATE VALUE")="NO EFFECT"
^DD(42,.01,1,4,"DELETE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(42,.01,1,4,"DELETE VALUE")="OLD NAME"
^DD(42,.01,1,4,"DIC")="LOOKUP"
^DD(42,.01,1,4,"DT")="2991018"
^DD(42,.01,1,4,"FIELD")="NAME:RAI MDS MONITOR:#.02"
^DD(42,.01,1,5,0)="^^TRIGGER^46.11^.03"
^DD(42,.01,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(42,.01,1,5,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=42 X ^DD(42,.01,1,5,1.4)"
^DD(42,.01,1,5,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,3)=DIV,DIH=46.11,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(42,.01,1,5,2)="Q"
^DD(42,.01,1,5,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMFL"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(42,.01,1,5,"%D",0)="^^4^4^2991103^^"
^DD(42,.01,1,5,"%D",1,0)="Trigger the Ward file number (#42) into the RAI MDS MONITOR file"
^DD(42,.01,1,5,"%D",2,0)="whenever a ward name is changed or added."
^DD(42,.01,1,5,"%D",3,0)="This trigger is also conditional and will only occur if the CREATE MFU FOR"
^DD(42,.01,1,5,"%D",4,0)="RAI MDS field (#391.7014) in the MAS PARAMETER file (#43) is equal to ""1""."
^DD(42,.01,1,5,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(42,.01,1,5,"CREATE VALUE")="S X=42"
^DD(42,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(42,.01,1,5,"DIC")="LOOKUP"
^DD(42,.01,1,5,"DT")="2991018"
^DD(42,.01,1,5,"FIELD")="NAME:RAI MDS MONITOR:#.03"
^DD(42,.01,1,6,0)="^^TRIGGER^46.11^.04"
^DD(42,.01,1,6,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(42,.01,1,6,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DA X ^DD(42,.01,1,6,1.4)"
^DD(42,.01,1,6,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,4)=DIV,DIH=46.11,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(42,.01,1,6,2)="Q"
^DD(42,.01,1,6,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DIC(42,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(42,.01,1,6,"%D",0)="^^6^6^2991103^^"
^DD(42,.01,1,6,"%D",1,0)="Trigger the internal entry number of the Ward entry that was changed"
^DD(42,.01,1,6,"%D",2,0)="or added into the RAI MDS MONITOR file."
^DD(42,.01,1,6,"%D",3,0)="There is a conditional trigger event.  It will only occur if the CREATE"
^DD(42,.01,1,6,"%D",4,0)="MFU FOR RAI MDS field (#391.7014) in the MAS PARAMETER File (#43) is "
^DD(42,.01,1,6,"%D",5,0)="equal to a ""1"".  The IEN is used in the creation of the MFU and is "
^DD(42,.01,1,6,"%D",6,0)="part of the identifier for the receiving system."
^DD(42,.01,1,6,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(42,.01,1,6,"CREATE VALUE")="S X=DA"
^DD(42,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(42,.01,1,6,"DIC")="LOOKUP"
^DD(42,.01,1,6,"DT")="2991018"
^DD(42,.01,1,6,"FIELD")="NAME:RAI MDS MONITOR:#.04"
^DD(42,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(42,.01,5,1,0)="44^.01^2"
^DD(42,.01,21,0)="^^6^6^2930701^^^^"
^DD(42,.01,21,1,0)="Enter in this field the name of the ward location as selectable using"
^DD(42,.01,21,2,0)="bed control options in MAS.  Mixing ward names that are pure"
^DD(42,.01,21,3,0)="numbers (4,5,6...) with ward names that are alphabetic (A,B,C...) or"
^DD(42,.01,21,4,0)=" with ward names that combine numbers with"
^DD(42,.01,21,5,0)="alphas (4A, 4B, 5C...) may yield unexpected results when printing "
^DD(42,.01,21,6,0)="output sorted by ward."
^DD(42,.01,"DEL",1,0)="I 1 W *7,*7,!,""Wards cannot be deleted!!!!"""
^DD(42,.01,"DT")="2991018"
^DD(42,.015,0)="DIVISION^*P40.8'^DG(40.8,^0;11^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(42,.015,3)="Enter the institution that this ward is in if you are a multifacility hospital."
^DD(42,.015,12)="Only inpatient Divisions"
^DD(42,.015,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(42,.015,21,0)="^^1^1^2911222^"
^DD(42,.015,21,1,0)="Enter the division at which this ward is located."
^DD(42,.015,"DT")="2860522"
^DD(42,.017,0)="SPECIALTY^R*P42.4'X^DIC(42.4,^0;12^S DIC(""S"")=""I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(42,.017,3)="Enter this ward's PTF bedsection.  This must be an active treating specialty."
^DD(42,.017,12)="Allows only active treating specialties."
^DD(42,.017,12.1)="S DIC(""S"")=""I $G(Y)=80!$$ACTIVE^DGACT(42.4,Y)"""
^DD(42,.017,21,0)="^^4^4^3070117^"
^DD(42,.017,21,1,0)="Enter the PTF specialty that this ward is assign to.  The specialty"
^DD(42,.017,21,2,0)="and its MPCR number will be transmitted to Austin as part of the N501"
^DD(42,.017,21,3,0)="and N535 transactions.  This information is sent in the physcial"
^DD(42,.017,21,4,0)="specialty and physcial MPCR elements of those transactions."
^DD(42,.017,"DT")="3060307"
^DD(42,.02,0)="BEDSECTION^RF^^0;2^K:$L(X)>10!($L(X)<2) X"
^DD(42,.02,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(42,.02,21,0)="^^1^1^2920128^^"
^DD(42,.02,21,1,0)="Enter 2-10 characters describing the bedsection of this ward."
^DD(42,.03,0)="SERVICE^RSX^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILIARY;B:BLIND REHAB;NC:NON-COUNT;^0;3^Q"
^DD(42,.03,1,0)="^.1^^0"
^DD(42,.03,1,1,0)="42^D"
^DD(42,.03,1,1,1)="S ^DIC(42,""D"",X,DA)="""""
^DD(42,.03,1,1,2)="K ^DIC(42,""D"",X,DA)"
^DD(42,.03,3)="Enter the appropriate AMIS service for this ward location."
^DD(42,.03,21,0)="^^3^3^2911222^"
^DD(42,.03,21,1,0)="Enter the service of the ward.  Choose from the available list.  This"
^DD(42,.03,21,2,0)="service is used by various MAS reports to determine how inpatient stays"
^DD(42,.03,21,3,0)="on this ward should be counted.  This should be answered carefully."
^DD(42,.03,"DT")="2900424"
^DD(42,.035,0)="RAI/MDS WARD^S^1:Yes;0:No;^0;16^Q"
^DD(42,.035,1,0)="^.1^^0"
^DD(42,.035,3)="Enter 'YES' if this ward is required to send patient information to the RAI/MDS system"
^DD(42,.035,21,0)="^^3^3^3000308^^^^"
^DD(42,.035,21,1,0)="This field provides a parameter to determine whether HL7 messages should "
^DD(42,.035,21,2,0)="be generated and sent for patients in this ward to the RAI/MDS COTS"
^DD(42,.035,21,3,0)="system."
^DD(42,.035,"DT")="2991118"
^DD(42,.04,0)="PRINT WARD ON WRISTBAND^S^Y:YES;N:NO;^0;4^Q"
^DD(42,.04,3)="Enter NO if you do not wish to have the ward location printed on the patient's wristband."
^DD(42,.04,21,0)="^^2^2^2950201^"
^DD(42,.04,21,1,0)="This field determines if the ward location is printed on the patient's"
^DD(42,.04,21,2,0)="wristband.  If it is answered 'NO', it will not print, otherwise it will."
^DD(42,.04,"DT")="2950201"
^DD(42,.07,0)="FY TARGET^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42,.07,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(42,.07,21,0)="^^2^2^2911222^"
^DD(42,.07,21,1,0)="Enter the target number of patients to be deen during a particular fiscal"
^DD(42,.07,21,2,0)="year."
^DD(42,.09,0)="SERIOUSLY ILL^S^1:INCLUDE ON SERIOUSLY ILL LIST;^0;14^Q"
^DD(42,.09,3)="Enter 1 if patients entering this ward should be placed on the seriously ill list "
^DD(42,.09,21,0)="^^3^3^2911222^"
^DD(42,.09,21,1,0)="If patients seen on this ward are typically seriously ill, enter yes here."
^DD(42,.09,21,2,0)="When admitting or transferring patients to this ward their status will be"
^DD(42,.09,21,3,0)="changed to seriously ill (unless the users chooses otherwise)."
^DD(42,.09,"DT")="2850329"
^DD(42,.1,0)="TERMINAL^NJ3,0^^0;10^K:+X'=X!(X>142)!(X<64)!(X?.E1"".""1N.N) X"
^DD(42,.1,3)="THE DEVICE NUMBER ($I) FOR REPORTS ON PATIENTS ON THIS WARD"
^DD(42,.1,21,0)="^^2^2^2911222^"
^DD(42,.1,21,1,0)="Enter the device number ($I value) on which inpatient reports for this"
^DD(42,.1,21,2,0)="ward should print."
^DD(42,.15,0)="PRIMARY LOCATION^F^^0;15^K:$L(X)>7!($L(X)<2) X"
^DD(42,.15,3)="Answer with 2-7 characters and group wards together to create a 'MINI' Bed Status Report.  If left blank it will appear as 'UNKNOWN' under the TOTALS BY PRIMARY WARD LOCATION section of the BSR."
^DD(42,.15,21,0)="^^4^4^2911222^^^^"
^DD(42,.15,21,1,0)="If this field is left blank, the primary location on the Bed Status Report "
^DD(42,.15,21,2,0)="will be 'UNKNOWN'.  You may group different wards together for a 'mini'"
^DD(42,.15,21,3,0)="Bed Status Report, examples of what you might want to group are wards "
^DD(42,.15,21,4,0)="in the same physical location or wards of the same treating specialty, etc."
^DD(42,.15,"DT")="2900415"
^DD(42,.17,0)="INTERMEDIATE MEDICINE - LTC^*S^1:Yes;0:No;^0;17^Q"
^DD(42,.17,3)="Answer 'Yes' if this is IMC long term care ward.  "
^DD(42,.17,12)="Only allows flagging wards having a service of Intermediate Medicine"
^DD(42,.17,12.1)="S DIC(""S"")=""I $D(X) K:$P(^DIC(42,DA,0),U,3)'=""""I"""" X"""
^DD(42,.17,21,0)="^^10^10^3020227^"
^DD(42,.17,21,1,0)="Intermediate Medicine Service can provide both acute care and long term"
^DD(42,.17,21,2,0)="care.  The long term care wards must utilize the RAI/MDS tool.  Therefore,"
^DD(42,.17,21,3,0)="this field is needed to distinguish between the acute care and long term"
^DD(42,.17,21,4,0)="care wards.  This field only applies to those wards that have a service of"
^DD(42,.17,21,5,0)="""INTERMEDIATE MED"".  When this field contains a ""1"" representing ""Yes"","
^DD(42,.17,21,6,0)="the business rules that apply to a nursing home patient will be followed"
^DD(42,.17,21,7,0)="for patients in this ward.  For example, a patient in this ward requiring"
^DD(42,.17,21,8,0)="acute care will need to be sent Absent Sick In Hospital (ASIH) for no"
^DD(42,.17,21,9,0)="longer than 30 days.  Patient will be discharged from this ward if he"
^DD(42,.17,21,10,0)="exceeds the 30 day timeframe."
^DD(42,.17,"DT")="3020227"
^DD(42,.2,0)="CURRENTLY OUT-OF-SERVICE?^CJ8^^ ; ^D WIN^DGPMDDCF"
^DD(42,.2,9)="^"
^DD(42,.2,9.01)=""
^DD(42,.2,9.1)="D WIN^DGPMDDCF"
^DD(42,.2,21,0)="^^2^2^2911222^^"
^DD(42,.2,21,1,0)="This is a computed field to determine whether this ward is currently out"
^DD(42,.2,21,2,0)="of service.  A 1 will be returned if it is, otherwise, 0 will be returned."
^DD(42,.2,"DT")="2911222"
^DD(42,.21,0)="BEDS OUT-OF-SERVICE^CJ8,0^^ ; ^D BOS^DGPMDDCF"
^DD(42,.21,9)="^"
^DD(42,.21,9.01)=""
^DD(42,.21,9.1)="D BOS^DGPMDDCF"
^DD(42,.21,21,0)="^^2^2^2920128^^"
^DD(42,.21,21,1,0)="This computed field will display the number of beds on this ward that are"
^DD(42,.21,21,2,0)="currently listed as out-of-service."
^DD(42,.22,0)="AUTHORIZED BEDS^CJ8,0^^ ; ^D AUTH^DGPMDDCF"
^DD(42,.22,9)="^"
^DD(42,.22,9.01)=""
^DD(42,.22,9.1)="D AUTH^DGPMDDCF"
^DD(42,.22,21,0)="^^2^2^2920128^^"
^DD(42,.22,21,1,0)="This computed field will display the number of beds that are currently"
^DD(42,.22,21,2,0)="authorized by CO to be utilized on this ward."
^DD(42,.23,0)="OPERATING BEDS^CJ8,0^^ ; ^D OPER^DGPMDDCF"
^DD(42,.23,9)="^"
^DD(42,.23,9.01)=""
^DD(42,.23,9.1)="D OPER^DGPMDDCF"
^DD(42,.23,21,0)="^^3^3^2920128^^"
^DD(42,.23,21,1,0)="This computed field will display the number of operating beds currently"
^DD(42,.23,21,2,0)="existing on this ward.  Operating beds = Authorized beds - Out-of-service"
^DD(42,.23,21,3,0)="beds."
^DD(42,1,0)="SYNONYM^42.01A^^.01;0"
^DD(42,1,21,0)="^^3^3^2911222^"
^DD(42,1,21,1,0)="This multiple contains all alternate names by which this ward location is"
^DD(42,1,21,2,0)="known.  At any WARD LOCATION prompt, either the name of the ward or one"
^DD(42,1,21,3,0)="of the synonyms can be entered."
^DD(42,44,0)="HOSPITAL LOCATION FILE POINTER^RP44X^SC(^44;1^I $D(^SC(+X,42)),+^(42),+^(42)'=DA W !?20,""This Hospital location points to "",$P(^DIC(42,+^SC(+X,42),0),""^"",1) K X"
^DD(42,44,1,0)="^.1"
^DD(42,44,1,1,0)="^^TRIGGER^44^42"
^DD(42,44,1,1,1)="X ^DD(42,44,1,1,1.3) I X S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SC(D0,42)):^(42),1:"""") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y X ^DD(42,44,1,1,1.1) X ^DD(42,44,1,1,1.4)"
^DD(42,44,1,1,1.1)="S X=DIV S X=$S('$D(D0):"""",D0<0:"""",1:D0),X=X"
^DD(42,44,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(42,44,1,1,69.2) S X=X S Y=X,X=Y(1),X=X S X=X'=Y S D0=I(0,0)"
^DD(42,44,1,1,1.4)="S DIH=$S($D(^SC(DIV(0),42)):^(42),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(42)=DIV_$S(%]"""":U_%,1:""""),DIH=44,DIG=42 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(42,44,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SC(D0,42)):^(42),1:"""") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y S X="""" X ^DD(42,44,1,1,2.4)"
^DD(42,44,1,1,2.4)="S DIH=$S($D(^SC(DIV(0),42)):^(42),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(42)=DIV_$S(%]"""":U_%,1:""""),DIH=44,DIG=42 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(42,44,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:"""") S X=$S('$D(D0):"""",D0<0:"""",1:D0),Y(1)=X,D0=Y(0) S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,42)):^(42),1:"""") S X=$P(Y(101),U,1)"
^DD(42,44,1,1,"CREATE CONDITION")="NUMBER'=INTERNAL(HOSPITAL LOCATION FILE:WARD LOCATION FILE POINTER)"
^DD(42,44,1,1,"CREATE VALUE")="INTERNAL(NUMBER)"
^DD(42,44,1,1,"DELETE VALUE")="@"
^DD(42,44,1,1,"FIELD")="HOSPITAL LOCATION FILE POINTER:WARD LOCATION FILE POINTER"
^DD(42,44,5,1,0)="44^42^1"
^DD(42,44,21,0)="^^3^3^2911222^"
^DD(42,44,21,1,0)="Enter the entry in the hospital location which this ward is associated"
^DD(42,44,21,2,0)="with.  This is defined automatically when setting up a ward through the"
^DD(42,44,21,3,0)="'Ward Definition' option.  It MUST NOT BE EDITED!!"
^DD(42,44,"DT")="2860129"
^DD(42,100,0)="AUTHORIZED BEDS DATE^42.09D^^AUTH;0"
^DD(42,100,21,0)="^^4^4^2911222^"
^DD(42,100,21,1,0)="This multiple contains a history of the number of CO-authorized beds for"
^DD(42,100,21,2,0)="this ward broken down by date.  Each time a new number is assigned, the"
^DD(42,100,21,3,0)="date and the number of beds must be entered here.  This data is utilized"
^DD(42,100,21,4,0)="by the gains and lossed and bed status reports."
^DD(42,200,0)="OUT-OF-SERVICE DATE^42.08D^^OOS;0"
^DD(42,200,21,0)="^^3^3^2911222^"
^DD(42,200,21,1,0)="This multiple contains data on when a ward was placed out-of-service and"
^DD(42,200,21,2,0)="returned to service.  This multiple also contains information on the number"
^DD(42,200,21,3,0)="of beds that are placed out-of-service at any given time."
^DD(42,400,0)="G&L ORDER^NJ9,3X^^ORDER;1^K:+X'=X!(X>99999)!(X<.01)!(X?.E1"".""4N.N)!($D(^DIC(42,""AGL"",X))&($O(^DIC(42,""AGL"",X,0))'=DA)) X"
^DD(42,400,1,0)="^.1"
^DD(42,400,1,1,0)="42^AGL"
^DD(42,400,1,1,1)="S ^DIC(42,""AGL"",$E(X,1,30),DA)="""""
^DD(42,400,1,1,2)="K ^DIC(42,""AGL"",$E(X,1,30),DA)"
^DD(42,400,3)="TYPE A UNIQUE NUMBER BETWEEN .01 AND 99999"
^DD(42,400,21,0)="^^6^6^2950517^^^^"
^DD(42,400,21,1,0)="This field indicates the G&L Order that this Ward will print and"
^DD(42,400,21,2,0)="subsequently, the Totals on the Bed Status Report, (e.g. Ward with"
^DD(42,400,21,3,0)="a G&L Order of 1.5 would be placed after a Ward with a G&L Order of"
^DD(42,400,21,4,0)="1.49 or earlier and would be before a Ward with a G&L Order of 1.51"
^DD(42,400,21,5,0)="or greater). This G&L Order placement has a direct impact on the way"
^DD(42,400,21,6,0)="the totals calculate on the Bed Status Report."
^DD(42,400,"DT")="2950517"
^DD(42,401,0)="TOTALS^42.05^^1;0"
^DD(42,401,21,0)="^^3^3^2920127^^"
^DD(42,401,21,1,0)="This field is a multiple and is directly related to the G&L Order field.  "
^DD(42,401,21,2,0)="The information contained in this multiple is utilized on the Bed Status "
^DD(42,401,21,3,0)="Report."
^DD(42,804,0)="G&L HEADER^F^^HEADER;E1,89^K:$L(X)>89!($L(X)<1) X"
^DD(42,804,3)="ANSWER MUST BE 1-89 CHARACTERS IN LENGTH"
^DD(42,804,21,0)="^^2^2^2920127^"
^DD(42,804,21,1,0)="This field is free text (1 to 89 characters in length) and contains the "
^DD(42,804,21,2,0)="name that you want to print for this ward on the Bed Status Report."
^DD(42,1490,0)="*ACUITY CLASS^CX^^ ; ^S X=$P(^DIC(42,D0,0),U,2),X=$S(X[""CU"":1,X[""GA"":2,1:3)"
^DD(42,1490,9)="^"
^DD(42,1490,9.1)="NAME+LO"
^DD(42,1490,"DT")="2920123"
^DD(42,1491,0)="*NSERV^RS^1:MED;2:SUR;3:ICU;4:PSY;^0;7^Q"
^DD(42,1491,1,0)="^.1"
^DD(42,1491,1,1,0)="42^E"
^DD(42,1491,1,1,1)="S ^DIC(42,""E"",X,DA)="""""
^DD(42,1491,1,1,2)="K ^DIC(42,""E"",X,DA)"
^DD(42,1491,21,0)="^^1^1^2911222^"
^DD(42,1491,21,1,0)="Enter the nursing service associated with this ward."
^DD(42,1491,"DT")="2920123"
^DD(42,"B","*ACUITY CLASS",1490)=""
^DD(42,"B","*NSERV",1491)=""
^DD(42,"B","AUTHORIZED BEDS",.22)=""
^DD(42,"B","AUTHORIZED BEDS DATE",100)=""
^DD(42,"B","BEDS OUT-OF-SERVICE",.21)=""
^DD(42,"B","BEDSECTION",.02)=""
^DD(42,"B","CURRENTLY OUT-OF-SERVICE?",.2)=""
^DD(42,"B","DIVISION",.015)=""
^DD(42,"B","FY TARGET",.07)=""
^DD(42,"B","G&L HEADER",804)=""
^DD(42,"B","G&L ORDER",400)=""
^DD(42,"B","HOSPITAL LOCATION FILE POINTER",44)=""
^DD(42,"B","INTERMEDIATE MEDICINE - LTC",.17)=""
^DD(42,"B","NAME",.01)=""
^DD(42,"B","OPERATING BEDS",.23)=""
^DD(42,"B","OUT-OF-SERVICE DATE",200)=""
^DD(42,"B","PRIMARY LOCATION",.15)=""
^DD(42,"B","PRINT WARD ON WRISTBAND",.04)=""
^DD(42,"B","RAI/MDS WARD",.035)=""
^DD(42,"B","SERIOUSLY ILL",.09)=""
^DD(42,"B","SERVICE",.03)=""
^DD(42,"B","SPECIALTY",.017)=""
^DD(42,"B","SYNONYM",1)=""
^DD(42,"B","TERMINAL",.1)=""
^DD(42,"B","TOTALS",401)=""
^DD(42,"GL",0,1,.01)=""
^DD(42,"GL",0,2,.02)=""
^DD(42,"GL",0,3,.03)=""
^DD(42,"GL",0,4,.04)=""
^DD(42,"GL",0,7,1491)=""
^DD(42,"GL",0,9,.07)=""
^DD(42,"GL",0,10,.1)=""
^DD(42,"GL",0,11,.015)=""
^DD(42,"GL",0,12,.017)=""
^DD(42,"GL",0,14,.09)=""
^DD(42,"GL",0,15,.15)=""
^DD(42,"GL",0,16,.035)=""
^DD(42,"GL",0,17,.17)=""
^DD(42,"GL",.01,0,1)=""
^DD(42,"GL",1,0,401)=""
^DD(42,"GL",44,1,44)=""
^DD(42,"GL","AUTH",0,100)=""
^DD(42,"GL","HEADER","E1,89",804)=""
^DD(42,"GL","OOS",0,200)=""
^DD(42,"GL","ORDER",1,400)=""
^DD(42,"IX",.01)=""
^DD(42,"IX",.03)=""
^DD(42,"IX",44)=""
^DD(42,"IX",400)=""
^DD(42,"IX",1491)=""
^DD(42,"RQ",.01)=""
^DD(42,"RQ",.017)=""
^DD(42,"RQ",.02)=""
^DD(42,"RQ",.03)=""
^DD(42,"RQ",44)=""
^DD(42,"RQ",1491)=""
^DD(42,"SB",42.01,1)=""
^DD(42,"SB",42.05,401)=""
^DD(42,"SB",42.08,200)=""
^DD(42,"SB",42.09,100)=""
^DD(42.01,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(42.01,0,"NM","SYNONYM")=""
^DD(42.01,0,"UP")="42"
^DD(42.01,.01,0)="SYNONYM^F^^0;1^K:X[""""""""!(X'?.ANP) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(42.01,.01,1,0)="^.1"
^DD(42.01,.01,1,1,0)="42^C"
^DD(42.01,.01,1,1,1)="S ^DIC(42,""C"",X,DA(1))="""""
^DD(42.01,.01,1,1,2)="K ^DIC(42,""C"",X,DA(1))"
^DD(42.01,.01,3)="MAXIMUM SYNONYM LENGTH: 30, MINIMUM LENGTH: 2"
^DD(42.01,.01,21,0)="^^1^1^2911222^"
^DD(42.01,.01,21,1,0)="Enter an alternate name by which this ward is known."
^DD(42.01,.01,"DT")="2840627"
^DD(42.01,"B","SYNONYM",.01)=""
^DD(42.01,"GL",0,1,.01)=""
^DD(42.01,"IX",.01)=""
^DD(42.05,0)="TOTALS SUB-FIELD^NL^4^7"
^DD(42.05,0,"NM","TOTALS")=""
^DD(42.05,0,"UP")="42"
^DD(42.05,.001,0)="LEVEL^NJ1,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(42.05,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(42.05,.001,21,0)="^^6^6^2920127^^"
^DD(42.05,.001,21,1,0)="This sub-field of the Totals multiple is the .001 and contains the IFN "
^DD(42.05,.001,21,2,0)="place holder for this multiple.  This numeric can be a whole number "
^DD(42.05,.001,21,3,0)="between 1 and 9.  The first level is the first sub-totaling that is done,  "
^DD(42.05,.001,21,4,0)="the second level is the second sub-totaling (this includes the previous "
^DD(42.05,.001,21,5,0)="level one) this level sub-totaling can be repeated back to the previously "
^DD(42.05,.001,21,6,0)="equal level and can contain a grand total with 9 sub-total levels."
^DD(42.05,.01,0)="TOTALS^MF^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(42.05,.01,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(42.05,.01,"DT")="2860703"
^DD(42.05,1,0)="TARGET^NJ4,0^^0;2^K:+X'=X!(X>1400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.05,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1400"
^DD(42.05,1,21,0)="^^3^3^2920127^"
^DD(42.05,1,21,1,0)="This field contains the planned Average Daily Census (ADC) "
^DD(42.05,1,21,2,0)="that is printed on the Average Daily Census Section of the "
^DD(42.05,1,21,3,0)="Bed Status Report."
^DD(42.05,2,0)="ADC CUM^NJ6,1^^0;3^K:+X'=X!(X>1400)!(X<0)!(X?.E1"".""2N.N) X"
^DD(42.05,2,3)="TYPE A NUMBER BETWEEN 0 AND 1400"
^DD(42.05,2,21,0)="^^3^3^2920127^^"
^DD(42.05,2,21,1,0)="This field contains the actual Average Daily Census (ADC)  "
^DD(42.05,2,21,2,0)="that is printed on the Average Daily Census Section of the "
^DD(42.05,2,21,3,0)="Bed Status Report."
^DD(42.05,2.5,0)="PRINT IN CUMULATIVE TOTALS^S^0:NO;1:YES;^0;4^Q"
^DD(42.05,2.5,3)="Enter '1' if you want this level of totals to be used in the cumulative totals, '0' if you do not."
^DD(42.05,2.5,21,0)="^^3^3^2920127^^"
^DD(42.05,2.5,21,1,0)="This field is a set of codes '0' for no and '1' for yes, it is used "
^DD(42.05,2.5,21,2,0)="to indicate whether you want this level (totals) to be used in "
^DD(42.05,2.5,21,3,0)="the Cumulative Totals Section of the Bed Status Report."
^DD(42.05,2.5,"DT")="2840109"
^DD(42.05,3,0)="PLAN CUM DISCH MONTH^42.07SAI^^PD;0"
^DD(42.05,3,21,0)="^^1^1^2920127^"
^DD(42.05,3,21,1,0)="This field is a multiple that adds new entry without asking."
^DD(42.05,4,0)="CUM TITLE^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(42.05,4,3)="Enter the title you wish to appear for the cumulative totals."
^DD(42.05,4,21,0)="^^3^3^2920127^"
^DD(42.05,4,21,1,0)="This field is free text (1 to 20 characters in length) and is the title "
^DD(42.05,4,21,2,0)="you want to print for the Cumulative Totals Section of the Bed Status "
^DD(42.05,4,21,3,0)="Report."
^DD(42.05,4,"DT")="2830429"
^DD(42.05,"B","ADC CUM",2)=""
^DD(42.05,"B","CUM TITLE",4)=""
^DD(42.05,"B","LEVEL",.001)=""
^DD(42.05,"B","PLAN CUM DISCH MONTH",3)=""
^DD(42.05,"B","PRINT IN CUMULATIVE TOTALS",2.5)=""
^DD(42.05,"B","TARGET",1)=""
^DD(42.05,"B","TOTALS",.01)=""
^DD(42.05,"GL",0,1,.01)=""
^DD(42.05,"GL",0,2,1)=""
^DD(42.05,"GL",0,3,2)=""
^DD(42.05,"GL",0,4,2.5)=""
^DD(42.05,"GL",0,5,4)=""
^DD(42.05,"GL","PD",0,3)=""
^DD(42.05,"SB",42.07,3)=""
^DD(42.07,0)="PLAN CUM DISCH MONTH SUB-FIELD^NL^1^2"
^DD(42.07,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(42.07,0,"NM","PLAN CUM DISCH MONTH")=""
^DD(42.07,0,"UP")="42.05"
^DD(42.07,.01,0)="PLAN CUM DISCH MONTH^MS^1:OCT;2:NOV;3:DEC;4:JAN;5:FEB;6:MAR;7:APR;8:MAY;9:JUN;10:JUL;11:AUG;12:SEP;^0;1^Q"
^DD(42.07,.01,3)="Enter the month for which you would like to enter the planned cumulative discharges."
^DD(42.07,.01,21,0)="^^3^3^2920127^"
^DD(42.07,.01,21,1,0)="This sub-field of the multiple 'Plan Cum Disch Month' field is also  "
^DD(42.07,.01,21,2,0)="a multiple and contains a set of codes for the month for which "
^DD(42.07,.01,21,3,0)="you would like to enter the planned cumulative discharges."
^DD(42.07,.01,"DT")="2831208"
^DD(42.07,1,0)="PLANNED DISCHARGES FOR MONTH^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.07,1,3)="Enter the number of discharges planned for the month selected, 0-9999."
^DD(42.07,1,21,0)="^^2^2^2920127^"
^DD(42.07,1,21,1,0)="This sub-field of the multiple 'Plan Cum Disch Month' field contains "
^DD(42.07,1,21,2,0)="the number of discharges planned for the month selected from 0 to 9999."
^DD(42.07,1,"DT")="2831208"
^DD(42.07,"B","PLAN CUM DISCH MONTH",.01)=""
^DD(42.07,"B","PLANNED DISCHARGES FOR MONTH",1)=""
^DD(42.07,"GL",0,1,.01)=""
^DD(42.07,"GL",0,2,1)=""
^DD(42.08,0)="OUT-OF-SERVICE DATE SUB-FIELD^^.11^11"
^DD(42.08,0,"IX","B",42.08,.01)=""
^DD(42.08,0,"NM","OUT-OF-SERVICE DATE")=""
^DD(42.08,0,"UP")="42"
^DD(42.08,.01,0)="OUT-OF-SERVICE DATE(S)^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2871001>X) X I $D(X) D WOOS^DGPMDDOS I $D(X)"
^DD(42.08,.01,1,0)="^.1"
^DD(42.08,.01,1,1,0)="42.08^B"
^DD(42.08,.01,1,1,1)="S ^DIC(42,DA(1),""OOS"",""B"",$E(X,1,30),DA)="""""
^DD(42.08,.01,1,1,2)="K ^DIC(42,DA(1),""OOS"",""B"",$E(X,1,30),DA)"
^DD(42.08,.01,1,2,0)="42^AINV^MUMPS"
^DD(42.08,.01,1,2,1)="S ^DIC(42,DA(1),""OOS"",""AINV"",9999999-X,DA)="""""
^DD(42.08,.01,1,2,2)="K ^DIC(42,DA(1),""OOS"",""AINV"",9999999-X,DA)"
^DD(42.08,.01,3)="TYPE A DATE BETWEEN 10/1/1987 AND 9/30/2099.  Enter a date on which there was NO activity on the ward."
^DD(42.08,.01,21,0)="^^3^3^2911222^^^^"
^DD(42.08,.01,21,1,0)="Enter the first full day for which this ward was placed out of service."
^DD(42.08,.01,21,2,0)="Enter the date only (no time) and do not include a day which has any"
^DD(42.08,.01,21,3,0)="inpatient activity as this would affect the gains and losses sheet."
^DD(42.08,.01,"DT")="2900629"
^DD(42.08,.02,0)="REASON^RP405.5'^DG(405.5,^0;2^Q"
^DD(42.08,.02,3)="Enter the reason this ward is being placed out-of-service."
^DD(42.08,.02,21,0)="^^3^3^2911222^^"
^DD(42.08,.02,21,1,0)="Enter the reason this ward (or part of a ward) was placed out of service."
^DD(42.08,.02,21,2,0)="This is a pointer to the MAS OUT-OF-SERVICE file.  These reasons are"
^DD(42.08,.02,21,3,0)="determined by MAS VACO."
^DD(42.08,.02,"DT")="2890212"
^DD(42.08,.03,0)="COMMENT^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(42.08,.03,3)="If you wish, you may enter a comment [3-30 characters] which further explains why this ward is out-of-service.  For example, for a construction project you might enter the project number."
^DD(42.08,.03,21,0)="^^3^3^2911222^"
^DD(42.08,.03,21,1,0)="If, when placing an entire ward or part of a ward out of service, you"
^DD(42.08,.03,21,2,0)="wish to enter additional information as to the reason, it may be entered"
^DD(42.08,.03,21,3,0)="here."
^DD(42.08,.03,"DT")="2901010"
^DD(42.08,.04,0)="RETURN TO SERVICE DATE^DX^^0;4^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2871001>X) X I $D(X) D WRTS^DGPMDDOS"
^DD(42.08,.04,1,0)="^.1^^0"
^DD(42.08,.04,3)="TYPE A DATE BETWEEN 10/1/1987 AND 9/30/2099"
^DD(42.08,.04,21,0)="^^3^3^2911222^^^^"
^DD(42.08,.04,21,1,0)="Enter date that this ward was returned or expected to return to service."
^DD(42.08,.04,21,2,0)="If the return to service date is unknown or this bed is being placed"
^DD(42.08,.04,21,3,0)="out-of-service indefinately, leave this field blank."
^DD(42.08,.04,"DT")="2900626"
^DD(42.08,.05,0)="OOS DISPLAY END DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2871001>X) X"
^DD(42.08,.05,3)="TYPE A DATE BETWEEN 10/1/1987 AND 9/30/2099"
^DD(42.08,.05,21,0)="^^2^2^2911222^^"
^DD(42.08,.05,21,1,0)="Enter here the date on which this ward should cease to appear on the"
^DD(42.08,.05,21,2,0)="G&L or bed status report."
^DD(42.08,.06,0)="IS ENTIRE WARD OUT OF SERVICE?^S^0:NO;1:YES;^0;6^Q"
^DD(42.08,.06,1,0)="^.1"
^DD(42.08,.06,1,1,0)="^^TRIGGER^42.08^.11"
^DD(42.08,.06,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=$S(X:1,1:0) I X S X=DIV S Y(1)=$S($D(^DIC(42,D0,""OOS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(42.08,.06,1,1,1.4)"
^DD(42.08,.06,1,1,1.4)="S DIH=$S($D(^DIC(42,DIV(0),""OOS"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=42.08,DIG=.11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(42.08,.06,1,1,2)="Q"
^DD(42.08,.06,1,1,"CREATE CONDITION")="S X=$S(X:1,1:0)"
^DD(42.08,.06,1,1,"CREATE VALUE")="@"
^DD(42.08,.06,1,1,"DELETE VALUE")="NO EFFECT"
^DD(42.08,.06,1,1,"FIELD")="NUM"
^DD(42.08,.06,21,0)="^^2^2^2911222^"
^DD(42.08,.06,21,1,0)="Enter YES here if the entire ward has been placed out-of-service.  If only"
^DD(42.08,.06,21,2,0)="a certain number of beds is being placed out-of-service, enter NO here."
^DD(42.08,.06,"DT")="2901106"
^DD(42.08,.07,0)="DISPLAY OOS ON G&L^S^1:YES;0:NO;^0;7^Q"
^DD(42.08,.07,3)="Should the fact this ward is OOS be shown on the G&L along with the reason?"
^DD(42.08,.07,21,0)="^^2^2^2911222^"
^DD(42.08,.07,21,1,0)="If you would like to have this out-of-service period display on the G&L,"
^DD(42.08,.07,21,2,0)="answer YES.  Otherwise, answer NO."
^DD(42.08,.08,0)="SHOW ON BED STATUS REPORT^S^1:YES;0:NO;^0;8^Q"
^DD(42.08,.08,3)="Do you want this ward to continue to appear on the Bed Status Report in its usual position even if OOS?"
^DD(42.08,.08,21,0)="^^2^2^2911222^"
^DD(42.08,.08,21,1,0)="If you would like this out-of-service period to appear on the bed status"
^DD(42.08,.08,21,2,0)="report, answer YES.  Otherwise, answer NO."
^DD(42.08,.09,0)="INCLUDE STAT'S ON BED STATUS^S^1:YES;0:NO;^0;9^Q"
^DD(42.08,.09,3)="Do you want the statistical values to be included on the Bed Status Report even if the ward itself is no longer displayed?"
^DD(42.08,.09,21,0)="^^3^3^2911222^"
^DD(42.08,.09,21,1,0)="If you would like the statistics for this out-of-service period to be"
^DD(42.08,.09,21,2,0)="calculated into the bed status report, respond YES here.  Otherwise,"
^DD(42.08,.09,21,3,0)="respond NO."
^DD(42.08,.1,0)="BED STATUS DISPLAY END DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2871001>X) X"
^DD(42.08,.1,3)="Enter the date you want this ward to stop appearing on the Bed Status Report.  If none is selected it will automatically stop appearing upon commencement of the next fiscal year."
^DD(42.08,.1,21,0)="^^2^2^2920212^^"
^DD(42.08,.1,21,1,0)="Enter the date on which you would like this out-of-service period to"
^DD(42.08,.1,21,2,0)="cease to display on the bed status report."
^DD(42.08,.1,"DT")="2890212"
^DD(42.08,.11,0)="NUMBER BEDS OOS^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(42.08,.11,3)="Enter the number of beds out of service during this time period."
^DD(42.08,.11,5,1,0)="42.08^.06^1"
^DD(42.08,.11,21,0)="^^2^2^2920212^^"
^DD(42.08,.11,21,1,0)="If the entire ward is not placed out-of-service, enter the number of"
^DD(42.08,.11,21,2,0)="individual beds being placed out-of-service."
^DD(42.08,.11,"DT")="2901105"
^DD(42.08,"B","BED STATUS DISPLAY END DATE",.1)=""
^DD(42.08,"B","COMMENT",.03)=""
^DD(42.08,"B","DISPLAY OOS ON G&L",.07)=""
^DD(42.08,"B","INCLUDE STAT'S ON BED STATUS",.09)=""
^DD(42.08,"B","IS ENTIRE WARD OUT OF SERVICE?",.06)=""
^DD(42.08,"B","NUMBER BEDS OOS",.11)=""
^DD(42.08,"B","OOS DISPLAY END DATE",.05)=""
^DD(42.08,"B","OUT-OF-SERVICE DATE(S)",.01)=""
^DD(42.08,"B","REASON",.02)=""
^DD(42.08,"B","RETURN TO SERVICE DATE",.04)=""
^DD(42.08,"B","SHOW ON BED STATUS REPORT",.08)=""
^DD(42.08,"GL",0,1,.01)=""
^DD(42.08,"GL",0,2,.02)=""
^DD(42.08,"GL",0,3,.03)=""
^DD(42.08,"GL",0,4,.04)=""
^DD(42.08,"GL",0,5,.05)=""
^DD(42.08,"GL",0,6,.06)=""
^DD(42.08,"GL",0,7,.07)=""
^DD(42.08,"GL",0,8,.08)=""
^DD(42.08,"GL",0,9,.09)=""
^DD(42.08,"GL",0,10,.1)=""
^DD(42.08,"GL",0,11,.11)=""
^DD(42.08,"IX",.01)=""
^DD(42.08,"IX",.06)=""
^DD(42.08,"RQ",.02)=""
^DD(42.09,0)="AUTHORIZED BEDS DATE SUB-FIELD^^2^2"
^DD(42.09,0,"IX","AINV",42.09,.01)=""
^DD(42.09,0,"IX","B",42.09,.01)=""
^DD(42.09,0,"NM","AUTHORIZED BEDS DATE")=""
^DD(42.09,0,"UP")="42"
^DD(42.09,.01,0)="AUTHORIZED BEDS DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2801001>X) X"
^DD(42.09,.01,1,0)="^.1"
^DD(42.09,.01,1,1,0)="42.09^B"
^DD(42.09,.01,1,1,1)="S ^DIC(42,DA(1),""AUTH"",""B"",$E(X,1,30),DA)="""""
^DD(42.09,.01,1,1,2)="K ^DIC(42,DA(1),""AUTH"",""B"",$E(X,1,30),DA)"
^DD(42.09,.01,1,2,0)="42.09^AINV^MUMPS"
^DD(42.09,.01,1,2,1)="S ^DIC(42,DA(1),""AUTH"",""AINV"",9999999-X,DA)="""""
^DD(42.09,.01,1,2,2)="K ^DIC(42,DA(1),""AUTH"",""AINV"",9999999-X,DA)"
^DD(42.09,.01,3)="TYPE A DATE BETWEEN 10/1/1980 AND 9/30/2099"
^DD(42.09,.01,21,0)="^^2^2^2911222^"
^DD(42.09,.01,21,1,0)="Enter the date on which these authorized beds were assigned.  This"
^DD(42.09,.01,21,2,0)="assignment comes from VA Central Office."
^DD(42.09,.01,"DT")="2900702"
^DD(42.09,2,0)="NUMBER OF AUTHORIZED BEDS^RNJ3,0^^0;2^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.09,2,3)="Type a Number between 0 and 500, 0 Decimal Digits"
^DD(42.09,2,21,0)="^^2^2^2911222^"
^DD(42.09,2,21,1,0)="Enter in this field the number of beds this ward is authorized.  This"
^DD(42.09,2,21,2,0)="data is used by the G&L and bed status reports."
^DD(42.09,2,"DT")="2900626"
^DD(42.09,"B","AUTHORIZED BEDS DATE",.01)=""
^DD(42.09,"B","NUMBER OF AUTHORIZED BEDS",2)=""
^DD(42.09,"GL",0,1,.01)=""
^DD(42.09,"GL",0,2,2)=""
^DD(42.09,"IX",.01)=""
^DD(42.09,"RQ",.01)=""
^DD(42.09,"RQ",2)=""
^DD(42.4,0)="FIELD^^10^9"
^DD(42.4,0,"DDA")="N"
^DD(42.4,0,"DT")="2950803"
^DD(42.4,0,"IX","B",42.4,.01)=""
^DD(42.4,0,"IX","C",42.4,7)=""
^DD(42.4,0,"NM","SPECIALTY")=""
^DD(42.4,0,"PT",42,.017)=""
^DD(42.4,0,"PT",45,71)=""
^DD(42.4,0,"PT",45.02,2)=""
^DD(42.4,0,"PT",45.05,1)=""
^DD(42.4,0,"PT",45.0535,2)=""
^DD(42.4,0,"PT",45.7,1)=""
^DD(42.4,0,"PT",58.27,.01)=""
^DD(42.4,0,"PT",58.81,105)=""
^DD(42.4,0,"PT",70.03,19)=""
^DD(42.4,0,"PT",130,454)=""
^DD(42.4,0,"PT",618,4.2)=""
^DD(42.4,0,"PT",727.804,12)=""
^DD(42.4,0,"PT",727.806,47)=""
^DD(42.4,0,"PT",727.814,18)=""
^DD(42.4,0,"PT",727.816,10)=""
^DD(42.4,0,"PT",727.82,28)=""
^DD(42.4,0,"PT",727.821,15)=""
^DD(42.4,0,"PT",727.822,15)=""
^DD(42.4,0,"PT",727.831,.01)=""
^DD(42.4,0,"VR")="5.3"
^DD(42.4,.001,0)="NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(42.4,.001,3)="Type a Number between 1 and 9999999999"
^DD(42.4,.001,21,0)="^.001^1^1^3070328^^"
^DD(42.4,.001,21,1,0)="This field contains the IFN of the SPECIALTY record."
^DD(42.4,.001,"DT")="3070328"
^DD(42.4,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(42.4,.01,1)=""
^DD(42.4,.01,1,0)="^.1"
^DD(42.4,.01,1,1,0)="42.4^B"
^DD(42.4,.01,1,1,1)="S ^DIC(42.4,""B"",$E(X,1,30),DA)="""""
^DD(42.4,.01,1,1,2)="K ^DIC(42.4,""B"",$E(X,1,30),DA)"
^DD(42.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(42.4,.01,21,0)="^^4^4^2920120^^"
^DD(42.4,.01,21,1,0)="This field contains the name of the specialties allowable for selection"
^DD(42.4,.01,21,2,0)="through PTF.  All  FACILITY TREATING SPECIALTIES must relate to one"
^DD(42.4,.01,21,3,0)="of the entries in this file.  This file is maintained by the MAS package"
^DD(42.4,.01,21,4,0)="and should not be altered in any way."
^DD(42.4,.01,"DT")="2931008"
^DD(42.4,1,0)="PRINT NAME^F^^0;2^K:$L(X)>15!($L(X)<2) X"
^DD(42.4,1,3)="Enter the name you want to appear on the Bedsection report, 1-15 characters."
^DD(42.4,1,21,0)="^^3^3^2920120^"
^DD(42.4,1,21,1,0)="This field will contain an abbreviated name of this specialty.  This"
^DD(42.4,1,21,2,0)="print name will be printed on outputs where the full name of the specialty"
^DD(42.4,1,21,3,0)="would not fit."
^DD(42.4,3,0)="SERVICE^RS^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILIARY;B:BLIND REHAB;RE:RESPITE CARE;^0;3^Q"
^DD(42.4,3,21,0)="^^2^2^2920120^"
^DD(42.4,3,21,1,0)="This field contains the name of the service that this specialty is"
^DD(42.4,3,21,2,0)="related to.  Choose from the available choices."
^DD(42.4,3,"DT")="2870129"
^DD(42.4,4,0)="ASK PSYCHIATRIC QUESTIONS?^S^1:YES;0:NO;^0;4^Q"
^DD(42.4,4,3)="Enter 'Yes' or 'No'."
^DD(42.4,4,21,0)="^^2^2^2950810^"
^DD(42.4,4,21,1,0)="This field will be checked in PTF to determine if psychiatric axis"
^DD(42.4,4,21,2,0)="questions will be asked for this treating specialty."
^DD(42.4,4,"DT")="2950810"
^DD(42.4,5,0)="BILLING RATE BEDSECTION^*P399.1'X^DGCR(399.1,^0;5^S DIC(""S"")=""I $P(^(0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S X=$E($P(^DGCR(399.1,X,0),U),1,30)"
^DD(42.4,5,3)="Enter the Bedsection that represents the rates that patients will be billed for when receiving care in this Med/Specialty Bedsection."
^DD(42.4,5,12)="Billing Bedsections Only!"
^DD(42.4,5,12.1)="S DIC(""S"")=""I $P(^(0),U,5)"""
^DD(42.4,5,21,0)="^^2^2^2920120^^"
^DD(42.4,5,21,1,0)="Enter the bedsection representing the rate at which a patient in this"
^DD(42.4,5,21,2,0)="bedsection would be billed at."
^DD(42.4,5,"DT")="2900504"
^DD(42.4,6,0)="MPCR ACCOUNT^NJ7,2^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(42.4,6,3)="Type a Number between 0 and 9999, 2 Decimal Digits"
^DD(42.4,6,21,0)="^^4^4^3070327^"
^DD(42.4,6,21,1,0)="This field contains the Monthly Program Cost Account number that is"
^DD(42.4,6,21,2,0)="associated with the treating specialty assigned to any given ward. The "
^DD(42.4,6,21,3,0)="MPCR account number is used for workload purposes."
^DD(42.4,6,21,4,0)="|"
^DD(42.4,6,"DT")="3070327"
^DD(42.4,7,0)="PTF CODE^RF^^0;7^K:$L(X)>2!($L(X)<1) X"
^DD(42.4,7,1,0)="^.1"
^DD(42.4,7,1,1,0)="42.4^C"
^DD(42.4,7,1,1,1)="S ^DIC(42.4,""C"",$E(X,1,30),DA)="""""
^DD(42.4,7,1,1,2)="K ^DIC(42.4,""C"",$E(X,1,30),DA)"
^DD(42.4,7,1,1,"DT")="3070320"
^DD(42.4,7,3)="Answer must be 1-2 characters in length."
^DD(42.4,7,21,0)="^.001^4^4^3070328^^^^"
^DD(42.4,7,21,1,0)="This field contains the PTF code for this entry.  It is created by the MAS"
^DD(42.4,7,21,2,0)="module and VA Fileman.  Editing of data in this file or additions/deletions"
^DD(42.4,7,21,3,0)="to this file will have negative impact on the operations of the PTF software"
^DD(42.4,7,21,4,0)="module."
^DD(42.4,7,"DT")="3070328"
^DD(42.4,10,0)="EFFECTIVE DATE^42.41D^^E;0"
^DD(42.4,"B","ASK PSYCHIATRIC QUESTIONS?",4)=""
^DD(42.4,"B","BILLING RATE BEDSECTION",5)=""
^DD(42.4,"B","EFFECTIVE DATE",10)=""
^DD(42.4,"B","MPCR ACCOUNT",6)=""
^DD(42.4,"B","NAME",.01)=""
^DD(42.4,"B","NUMBER",.001)=""
^DD(42.4,"B","PRINT NAME",1)=""
^DD(42.4,"B","PTF CODE",7)=""
^DD(42.4,"B","SERVICE",3)=""
^DD(42.4,"GL",0,1,.01)=""
^DD(42.4,"GL",0,2,1)=""
^DD(42.4,"GL",0,3,3)=""
^DD(42.4,"GL",0,4,4)=""
^DD(42.4,"GL",0,5,5)=""
^DD(42.4,"GL",0,6,6)=""
^DD(42.4,"GL",0,7,7)=""
^DD(42.4,"GL","E",0,10)=""
^DD(42.4,"IX",.01)=""
^DD(42.4,"IX",7)=""
^DD(42.4,"RQ",.01)=""
^DD(42.4,"RQ",3)=""
^DD(42.4,"RQ",7)=""
^DD(42.4,"SB",42.41,10)=""
^DD(42.41,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(42.41,0,"DT")="2950727"
^DD(42.41,0,"IX","ADATE",42.41,.01)=""
^DD(42.41,0,"IX","B",42.41,.01)=""
^DD(42.41,0,"NM","EFFECTIVE DATE")=""
^DD(42.41,0,"UP")="42.4"
^DD(42.41,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(42.41,.01,1,0)="^.1"
^DD(42.41,.01,1,1,0)="42.41^B"
^DD(42.41,.01,1,1,1)="S ^DIC(42.4,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(42.41,.01,1,1,2)="K ^DIC(42.4,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(42.41,.01,1,2,0)="42.41^ADATE^MUMPS"
^DD(42.41,.01,1,2,1)="S ^DIC(42.4,DA(1),""E"",""ADATE"",-X,DA)="""""
^DD(42.41,.01,1,2,2)="K ^DIC(42.4,DA(1),""E"",""ADATE"",-X,DA)"
^DD(42.41,.01,1,2,"%D",0)="^^1^1^2950728^"
^DD(42.41,.01,1,2,"%D",1,0)="This cross reference is used to look up active on reverse date."
^DD(42.41,.01,1,2,"DT")="2950728"
^DD(42.41,.01,3)="Enter the effective date for this treating specialty."
^DD(42.41,.01,21,0)="^^1^1^2950727^^"
^DD(42.41,.01,21,1,0)="This multiple holds the effective date(s) for the Treating Specialties."
^DD(42.41,.01,23,0)="^^1^1^2950727^"
^DD(42.41,.01,23,1,0)=" "
^DD(42.41,.01,"DEL",1,0)="I '$O(^DIC(42.4,DA(1),""E"",$O(^DIC(42.4,DA(1),""E"",0)))) W !,*7,""There has to be an effective date for this treating specialty!   """
^DD(42.41,.01,"DT")="2950728"
^DD(42.41,.02,0)="ACTIVE?^S^0:NO;1:YES;^0;2^Q"
^DD(42.41,.02,3)="Enter 'Yes' or 'No'"
^DD(42.41,.02,21,0)="^^1^1^2950810^"
^DD(42.41,.02,21,1,0)="This field is an active/inactive flag for the treating specialty."
^DD(42.41,.02,"DT")="2950810"
^DD(42.41,"B","ACTIVE?",.02)=""
^DD(42.41,"B","EFFECTIVE DATE",.01)=""
^DD(42.41,"GL",0,1,.01)=""
^DD(42.41,"GL",0,2,.02)=""
^DD(42.41,"IX",.01)=""
^DD(42.41,"RQ",.01)=""
^DD(42.5,0)="FIELD^^10^2"
^DD(42.5,0,"DT")="2950728"
^DD(42.5,0,"IX","B",42.5,.01)=""
^DD(42.5,0,"IX","C",42.51,.01)=""
^DD(42.5,0,"NM","WAIT LIST")=""
^DD(42.5,0,"VR")="5.3"
^DD(42.5,.01,0)="DIVISION^R*P40.8'^DG(40.8,^0;1^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(42.5,.01,1,0)="^.1"
^DD(42.5,.01,1,1,0)="42.5^B"
^DD(42.5,.01,1,1,1)="S ^DGWAIT(""B"",$E(X,1,30),DA)="""""
^DD(42.5,.01,1,1,2)="K ^DGWAIT(""B"",$E(X,1,30),DA)"
^DD(42.5,.01,3)=""
^DD(42.5,.01,12)="Not Outpatient Divisions"
^DD(42.5,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(42.5,.01,21,0)="^^1^1^2911224^"
^DD(42.5,.01,21,1,0)="Enter the division for which there is a waiting list established."
^DD(42.5,.01,"DT")="2860603"
^DD(42.5,10,0)="PATIENT^42.51IPA^^P;0"
^DD(42.5,10,21,0)="^^3^3^2930522^^^"
^DD(42.5,10,21,1,0)="This multiple contains data about patients on a waiting list for this"
^DD(42.5,10,21,2,0)="division.  Information includes the patient's name, the type of waiting"
^DD(42.5,10,21,3,0)="list, and when they were entered on the waiting list."
^DD(42.5,"B","DIVISION",.01)=""
^DD(42.5,"B","PATIENT",10)=""
^DD(42.5,"GL",0,1,.01)=""
^DD(42.5,"GL","P",0,10)=""
^DD(42.5,"IX",.01)=""
^DD(42.5,"RQ",.01)=""
^DD(42.5,"SB",42.51,10)=""
^DD(42.51,0)="PATIENT SUB-FIELD^NL^13^14"
^DD(42.51,0,"DT")="2950728"
^DD(42.51,0,"ID",2)="W:$D(^(0)) ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(42.51,0,"IX","B",42.51,.01)=""
^DD(42.51,0,"NM","PATIENT")=""
^DD(42.51,0,"UP")="42.5"
^DD(42.51,.01,0)="PATIENT^MRP2'XI^DPT(^0;1^Q"
^DD(42.51,.01,1,0)="^.1"
^DD(42.51,.01,1,1,0)="42.5^C"
^DD(42.51,.01,1,1,1)="S ^DGWAIT(""C"",$E(X,1,30),DA(1),DA)="""""
^DD(42.51,.01,1,1,2)="K ^DGWAIT(""C"",$E(X,1,30),DA(1),DA)"
^DD(42.51,.01,1,2,0)="42.51^B"
^DD(42.51,.01,1,2,1)="S ^DGWAIT(DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(42.51,.01,1,2,2)="K ^DGWAIT(DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(42.51,.01,3)="Enter the patient name or number you want to put on to this waiting list.  Once entered, the name can not be edited, only deleted.  To delete the entry, use the 'Delete Waiting List Entry' option."
^DD(42.51,.01,21,0)="^^2^2^2911224^"
^DD(42.51,.01,21,1,0)="Enter the name of the patient who you would like to put on the waiting"
^DD(42.51,.01,21,2,0)="list."
^DD(42.51,.01,"DT")="2890607"
^DD(42.51,1,0)="BEDSECTION APPLYING TO^RS^334:PSYCHIATRY;335:INTERMEDIATE;336:MEDICINE;337:NEUROLOGY;338:REHAB MEDICINE;339:BLIND REHAB;340:SPINAL CORD INJURY;341:SURGERY;345:NHCU;^0;5^Q"
^DD(42.51,1,3)="Enter the bedsection this patient is applying for care to."
^DD(42.51,1,21,0)="^^1^1^2930522^"
^DD(42.51,1,21,1,0)="This field contains the bed-section the patient is appying to for care."
^DD(42.51,1,"DT")="2841026"
^DD(42.51,1.5,0)="TREATING SPECIALTY^*P45.7'^DIC(45.7,^0;10^S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGWAIT(DA(1),""""P"""",DA,0)),U,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(42.51,1.5,3)="Enter treating specialty.  This must be an active treating specialty."
^DD(42.51,1.5,12)="Allows only active treating specialties."
^DD(42.51,1.5,12.1)="S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGWAIT(DA(1),""""P"""",DA,0)),U,2))"""
^DD(42.51,1.5,21,0)="^^2^2^2911224^"
^DD(42.51,1.5,21,1,0)="Enter the treating specialty for which this patient is waiting to receive"
^DD(42.51,1.5,21,2,0)="care."
^DD(42.51,1.5,"DT")="2950728"
^DD(42.51,2,0)="DATE/TIME OF APPLICATION^RD^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(42.51,2,3)="Enter the date/time the patient was logged into the wait list."
^DD(42.51,2,21,0)="^^1^1^2911224^"
^DD(42.51,2,21,1,0)="Enter the date/time the patient was entered on the waiting list."
^DD(42.51,2,"DT")="2870729"
^DD(42.51,3,0)="SERVICE CONNECTED^S^0:NO;1:YES;^0;3^Q"
^DD(42.51,3,3)="Enter 'Y' if the patient is service connected, 'N' if he is not."
^DD(42.51,3,21,0)="^^1^1^2911224^"
^DD(42.51,3,21,1,0)="Is the patient that is being placed on the waiting list service connected?"
^DD(42.51,3.5,0)="IN ANOTHER HOSPITAL^S^0:NO;1:YES;^0;6^Q"
^DD(42.51,3.5,3)="Enter 'Y' if the patient is in a hospital not under VA authorization, 'N' if not."
^DD(42.51,3.5,21,0)="^^1^1^2911224^"
^DD(42.51,3.5,21,1,0)="Is the patient on the waiting list currently at another hospital?"
^DD(42.51,3.5,"DT")="2840212"
^DD(42.51,3.6,0)="VA FACILITY^S^1:YES;0:NO;^0;7^Q"
^DD(42.51,3.6,3)="Enter 'Y' if the facility the patient is in is part of the VA, 'N' if not."
^DD(42.51,3.6,21,0)="^^2^2^2911224^"
^DD(42.51,3.6,21,1,0)="Enter yes if the patient is currently at a VA facility.  Otherwise, respond"
^DD(42.51,3.6,21,2,0)="no."
^DD(42.51,3.6,"DT")="2840227"
^DD(42.51,3.7,0)="HOSPITAL NAME^F^^0;8^K:$L(X)>40!($L(X)<3) X"
^DD(42.51,3.7,3)="Enter the facility name, 3-40 characters."
^DD(42.51,3.7,21,0)="^^2^2^2911224^"
^DD(42.51,3.7,21,1,0)="If the patient is currently at another hospital (either VA or non-VA),"
^DD(42.51,3.7,21,2,0)="enter the name of that hospital here."
^DD(42.51,3.7,"DT")="2840227"
^DD(42.51,4,0)="ACTION^S^0:PENDING;1:ACCEPTED;2:NOT ACCEPTED;^0;4^Q"
^DD(42.51,4,3)="Enter the action taken on this application."
^DD(42.51,4,21,0)="^^2^2^2911224^"
^DD(42.51,4,21,1,0)="Enter the current status of this patient on the waiting list (pending,"
^DD(42.51,4,21,2,0)="accepted, or not accepted)."
^DD(42.51,4,"DT")="2840227"
^DD(42.51,5,0)="PRIORITY GROUPING^R*P42.55'X^DIC(42.55,^0;9^X ^DD(42.51,5,9.3) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(42.51,5,3)=""
^DD(42.51,5,9.3)="S DIC(""S"")=""S DGZ=+$P(^(0),U,6),DGPG=$P(^(0),U,5) I $P(^(0),U,10),$S(DGPG=$P(^DGWAIT(DA(1),""""P"""",DA,0),U,12):1,DGPG=""""a"""":1,1:0) K DGPG S DGZ1=$P(^DGWAIT(DA(1),""""P"""",DA,0),U,3),DGZ1=$S(DGZ1=1:2,1:1) I $S('DGZ:1,DGZ=DGZ1:1,1:0)"""
^DD(42.51,5,12)="Active Grouping for HOSPITAL or NHCU!"
^DD(42.51,5,12.1)="S DIC(""S"")=""S DGZ=+$P(^(0),U,6) I $P(^(0),U,10),$P(^(0),U,5)=$P(^DGWAIT(DA(1),""""P"""",DA,0),U,12) S DFN=$P(^DGWAIT(DA(1),""""P"""",DA,0),U,2) I $S('DGZ:1,'$D(^DPT(DFN,.36)):0,+$P(^(0),U,1)+1=DGZ:1,1:0)"""
^DD(42.51,5,21,0)="^^2^2^2911224^"
^DD(42.51,5,21,1,0)="Enter the priority assigned to this patient on the waiting list.  This"
^DD(42.51,5,21,2,0)="is based on the patient's service connected status among other factors."
^DD(42.51,5,"DT")="2870731"
^DD(42.51,10,0)="COMMENTS^42.52^^C;0"
^DD(42.51,10,21,0)="^^2^2^2911224^"
^DD(42.51,10,21,1,0)="This is a word processing fields where you may enter comments about this"
^DD(42.51,10,21,2,0)="patient's status on the waiting list."
^DD(42.51,11,0)="DATE ADMITTED^D^^ADM;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(42.51,11,21,0)="^^2^2^2911224^"
^DD(42.51,11,21,1,0)="If the patient was admitted from the waiting list, enter the date the"
^DD(42.51,11,21,2,0)="patient was admitted."
^DD(42.51,11,"DT")="2841220"
^DD(42.51,12,0)="HOSPITAL/NHCU APPLICATION^RS^h:HOSPITAL;n:NURSING HOME;^0;12^Q"
^DD(42.51,12,21,0)="^^3^3^2911224^"
^DD(42.51,12,21,1,0)="If this patient is being placed on the waiting list for hospital care,"
^DD(42.51,12,21,2,0)="enter H.  If the patient is being placed on the waiting list for the"
^DD(42.51,12,21,3,0)="nursing home, enter N."
^DD(42.51,12,"DT")="2870731"
^DD(42.51,13,0)="CATEGORY OF NEED^S^g:GENERAL;u:URGENT;^0;13^Q"
^DD(42.51,13,21,0)="^^2^2^2920120^^"
^DD(42.51,13,21,1,0)="Enter U if this patient requires urgent medical attention and should be"
^DD(42.51,13,21,2,0)="admitted from the waiting list as soon as possible.  Otherwise, enter G."
^DD(42.51,13,"DT")="2870731"
^DD(42.51,"B","ACTION",4)=""
^DD(42.51,"B","BEDSECTION APPLYING TO",1)=""
^DD(42.51,"B","CATEGORY OF NEED",13)=""
^DD(42.51,"B","COMMENTS",10)=""
^DD(42.51,"B","DATE ADMITTED",11)=""
^DD(42.51,"B","DATE/TIME OF APPLICATION",2)=""
^DD(42.51,"B","HOSPITAL NAME",3.7)=""
^DD(42.51,"B","HOSPITAL/NHCU APPLICATION",12)=""
^DD(42.51,"B","IN ANOTHER HOSPITAL",3.5)=""
^DD(42.51,"B","PATIENT",.01)=""
^DD(42.51,"B","PRIORITY GROUPING",5)=""
^DD(42.51,"B","SERVICE CONNECTED",3)=""
^DD(42.51,"B","TREATING SPECIALTY",1.5)=""
^DD(42.51,"B","VA FACILITY",3.6)=""
^DD(42.51,"GL",0,1,.01)=""
^DD(42.51,"GL",0,2,2)=""
^DD(42.51,"GL",0,3,3)=""
^DD(42.51,"GL",0,4,4)=""
^DD(42.51,"GL",0,5,1)=""
^DD(42.51,"GL",0,6,3.5)=""
^DD(42.51,"GL",0,7,3.6)=""
^DD(42.51,"GL",0,8,3.7)=""
^DD(42.51,"GL",0,9,5)=""
^DD(42.51,"GL",0,10,1.5)=""
^DD(42.51,"GL",0,12,12)=""
^DD(42.51,"GL",0,13,13)=""
^DD(42.51,"GL","ADM",1,11)=""
^DD(42.51,"GL","C",0,10)=""
^DD(42.51,"IX",.01)=""
^DD(42.51,"RQ",.01)=""
^DD(42.51,"RQ",1)=""
^DD(42.51,"RQ",2)=""
^DD(42.51,"RQ",5)=""
^DD(42.51,"RQ",12)=""
^DD(42.51,"SB",42.52,10)=""
^DD(42.52,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(42.52,0,"NM","COMMENTS")=""
^DD(42.52,0,"UP")="42.51"
^DD(42.52,.01,0)="COMMENTS^W^^0;1^Q"
^DD(42.52,.01,3)="Enter any pertinent comments on this application."
^DD(42.52,.01,21,0)="^^2^2^2911224^"
^DD(42.52,.01,21,1,0)="Enter a word processing comment about the patient and his/her status"
^DD(42.52,.01,21,2,0)="on the waiting list."
^DD(42.52,"B","COMMENTS",.01)=""
^DD(42.52,"GL",0,1,.01)=""
^DD(42.55,0)="FIELD^^50^7"
^DD(42.55,0,"DDA")="N"
^DD(42.55,0,"ID",1)="W:$D(^(""0"")) ?30,$P(^(""0""),U,2)"
^DD(42.55,0,"IX","B",42.55,.01)=""
^DD(42.55,0,"IX","C",42.56,.01)=""
^DD(42.55,0,"NM","PRIORITY GROUPING")=""
^DD(42.55,0,"PT",42.51,5)=""
^DD(42.55,0,"VR")="5.3"
^DD(42.55,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(42.55,.001,3)="Type a Number between 1 and 100"
^DD(42.55,.001,21,0)="^^4^4^2920120^^"
^DD(42.55,.001,21,1,0)="This is the internal entry number of the priority group as determined by"
^DD(42.55,.001,21,2,0)="VA FileMan.  This internal number may be utilized by the MAS package to"
^DD(42.55,.001,21,3,0)="determine programming flow.  These entries should NOT be edited nor should"
^DD(42.55,.001,21,4,0)="any entries be added or removed."
^DD(42.55,.001,"DT")="2870729"
^DD(42.55,.01,0)="NAME^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(42.55,.01,1,0)="^.1"
^DD(42.55,.01,1,1,0)="42.55^B"
^DD(42.55,.01,1,1,1)="S ^DIC(42.55,""B"",$E(X,1,30),DA)="""""
^DD(42.55,.01,1,1,2)="K ^DIC(42.55,""B"",$E(X,1,30),DA)"
^DD(42.55,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(42.55,.01,21,0)="^^3^3^2911224^"
^DD(42.55,.01,21,1,0)="Enter the name of the priority group.  This data is distributed by the"
^DD(42.55,.01,21,2,0)="MAS package under the direction of MAS VACO and must not be altered in"
^DD(42.55,.01,21,3,0)="any way."
^DD(42.55,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(42.55,1,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(42.55,1,21,0)="^^2^2^2911224^"
^DD(42.55,1,21,1,0)="This field contains a brief description about the priority grouping.  This"
^DD(42.55,1,21,2,0)="data is distributed by the MAS package and should not be altered."
^DD(42.55,1,"DT")="2870729"
^DD(42.55,5,0)="TYPE OF CARE^RS^h:HOSPITAL;n:NURSING HOME;o:OUTPATIENT;a:ALL;^0;5^Q"
^DD(42.55,5,3)="Enter the type of care with which this priority can be assigned."
^DD(42.55,5,21,0)="^^2^2^2911224^"
^DD(42.55,5,21,1,0)="Enter the type of care whether it be for inpatient (hospital or nursing"
^DD(42.55,5,21,2,0)="home) or outpatient."
^DD(42.55,5,"DT")="2870729"
^DD(42.55,6,0)="SC/NSC^RS^0:SC OR NSC;1:NSC;2:SC;^0;6^Q"
^DD(42.55,6,21,0)="^^2^2^2920120^^"
^DD(42.55,6,21,1,0)="Enter whether this priority grouping is for an SC or NSC vet.  This data"
^DD(42.55,6,21,2,0)="is distributed by the MAS package and MUST NOT be altered."
^DD(42.55,6,"DT")="2870731"
^DD(42.55,10,0)="ACTIVE^RS^1:YES;0:NO;^0;10^Q"
^DD(42.55,10,3)="Can this priority be used?"
^DD(42.55,10,21,0)="^^2^2^2911224^^"
^DD(42.55,10,21,1,0)="If this priority grouping is currently active, enter yes.  Otherwise,"
^DD(42.55,10,21,2,0)="answer no."
^DD(42.55,10,"DT")="2870729"
^DD(42.55,50,0)="SYNONYM^42.56^^S;0"
^DD(42.55,50,21,0)="^^3^3^2911224^"
^DD(42.55,50,21,1,0)="This multiple contains alternate names by which this priority grouping"
^DD(42.55,50,21,2,0)="can be referenced.  If a user enters either the name or one of these"
^DD(42.55,50,21,3,0)="synonyms, this priority group will be selected."
^DD(42.55,"B","ACTIVE",10)=""
^DD(42.55,"B","DESCRIPTION",1)=""
^DD(42.55,"B","NAME",.01)=""
^DD(42.55,"B","NUMBER",.001)=""
^DD(42.55,"B","SC/NSC",6)=""
^DD(42.55,"B","SYNONYM",50)=""
^DD(42.55,"B","TYPE OF CARE",5)=""
^DD(42.55,"GL",0,1,.01)=""
^DD(42.55,"GL",0,2,1)=""
^DD(42.55,"GL",0,5,5)=""
^DD(42.55,"GL",0,6,6)=""
^DD(42.55,"GL",0,10,10)=""
^DD(42.55,"GL","S",0,50)=""
^DD(42.55,"IX",.01)=""
^DD(42.55,"RQ",.01)=""
^DD(42.55,"RQ",5)=""
^DD(42.55,"RQ",6)=""
^DD(42.55,"RQ",10)=""
^DD(42.55,"SB",42.56,50)=""
^DD(42.56,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(42.56,0,"NM","SYNONYM")=""
^DD(42.56,0,"UP")="42.55"
^DD(42.56,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(42.56,.01,1,0)="^.1"
^DD(42.56,.01,1,1,0)="42.55^C"
^DD(42.56,.01,1,1,1)="S ^DIC(42.55,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(42.56,.01,1,1,2)="K ^DIC(42.55,""C"",$E(X,1,30),DA(1),DA)"
^DD(42.56,.01,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(42.56,.01,21,0)="^^1^1^2911224^"
^DD(42.56,.01,21,1,0)="Enter another name by which this priority group is known."
^DD(42.56,.01,"DT")="2870731"
^DD(42.56,"B","SYNONYM",.01)=""
^DD(42.56,"GL",0,1,.01)=""
^DD(42.56,"IX",.01)=""
^DD(42.6,0)="FIELD^^10^2"
^DD(42.6,0,"IX","ALST",42.6,.01)=""
^DD(42.6,0,"IX","B",42.6,.01)=""
^DD(42.6,0,"NM","AMIS 334-341")=""
^DD(42.6,0,"VR")="5.3"
^DD(42.6,.01,0)="AMIS MONTH/YEAR^RDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) X $S($E(X,6,7)'=""00"":""K X W !,""""Do not specify day of month"""""",X>DT:""K X W !,""""Must be a past date"""""",1:"""") I $D(X) S DINUM=X"
^DD(42.6,.01,1,0)="^.1"
^DD(42.6,.01,1,1,0)="42.6^B"
^DD(42.6,.01,1,1,1)="S ^DGAM(334,""B"",$E(X,1,30),DA)="""""
^DD(42.6,.01,1,1,2)="K ^DGAM(334,""B"",$E(X,1,30),DA)"
^DD(42.6,.01,1,2,0)="42.6^ALST^MUMPS"
^DD(42.6,.01,1,2,1)="K ^DGAM(334,""ALST"") X ""S DG1=X F %=X:0 S %=$N(^DGAM(334,%)) Q:%'>0  S DG1=%"" S ^DGAM(334,""ALST"",DG1)="""" K DG1"
^DD(42.6,.01,1,2,2)="K ^DGAM(334,""ALST"") X ""S DG1=0 F %=0:0 S %=$N(^DGAM(334,%)) Q:%'>0  S:%'=DA DG1=%"" S:DG1 ^DGAM(334,""ALST"",DG1)="""" K DG1"
^DD(42.6,.01,3)="Month and year of report"
^DD(42.6,.01,21,0)="^^5^5^2930522^^^"
^DD(42.6,.01,21,1,0)="AMIS Month/Year indicates the month and year that the AMIS report"
^DD(42.6,.01,21,2,0)="is being generated for.  Inpatient AMIS reports cannot be generated"
^DD(42.6,.01,21,3,0)="prior to the End Of Month, and therefore will always have a set"
^DD(42.6,.01,21,4,0)="Month/Year indicator."
^DD(42.6,.01,21,5,0)="|"
^DD(42.6,.01,"DT")="2901016"
^DD(42.6,10,0)="SEGMENT^42.6001SA^^SE;0"
^DD(42.6,10,21,0)="^^4^4^2920211^^^^"
^DD(42.6,10,21,1,0)="The 'Segment' is the AMIS Segment number assigned to a particular"
^DD(42.6,10,21,2,0)="report based on VA Manual MP6, Part VI, Supp. 1.2.  In the case of"
^DD(42.6,10,21,3,0)="this file, the AMIS Segment numbers are 334 through 341 series,"
^DD(42.6,10,21,4,0)="and are for inpatient data collection activities."
^DD(42.6,"B","AMIS MONTH/YEAR",.01)=""
^DD(42.6,"B","SEGMENT",10)=""
^DD(42.6,"GL",0,1,.01)=""
^DD(42.6,"GL","SE",0,10)=""
^DD(42.6,"IX",.01)=""
^DD(42.6,"RQ",.01)=""
^DD(42.6,"SB",42.6001,10)=""
^DD(42.6001,0)="SEGMENT SUB-FIELD^NL^10^3"
^DD(42.6001,0,"NM","SEGMENT")=""
^DD(42.6001,0,"UP")="42.6"
^DD(42.6001,.01,0)="SEGMENT^MSX^334:PSYCHIATRY;335:INTERMEDIATE;336:MEDICINE;337:NEUROLOGY;338:REHAB MEDICINE;339:BLIND REHAB;340:SPINAL CORD INJURY;341:SURGERY;^0;1^S DINUM=X"
^DD(42.6001,.01,3)=""
^DD(42.6001,.01,21,0)="^^5^5^2930522^^^"
^DD(42.6001,.01,21,1,0)="The 'Segment' is the AMIS Segment number assigned to a particular"
^DD(42.6001,.01,21,2,0)="report based on VA Manual MP6, Part VI, Supp. No. 1.2.  In the case"
^DD(42.6001,.01,21,3,0)="of this file, the AMIS Segment numbers are 334 through 341 series,"
^DD(42.6001,.01,21,4,0)="and are for inpatient data collection activities."
^DD(42.6001,.01,21,5,0)="|"
^DD(42.6001,.01,23,0)="^^2^2^2920211^"
^DD(42.6001,.01,23,1,0)="See description."
^DD(42.6001,.01,23,2,0)="|"
^DD(42.6001,.01,"DT")="2841018"
^DD(42.6001,2,0)="BALANCE FLAG^S^1:SEGMENT IN BALANCE;0:SEGMENT OUT OF BALANCE;^0;2^Q"
^DD(42.6001,2,21,0)="^^7^7^2920211^^"
^DD(42.6001,2,21,1,0)="The balance flag is not currently being utilized in calulating the"
^DD(42.6001,2,21,2,0)="figures for the AMIS reports.  The balance flag, however is to insure"
^DD(42.6001,2,21,3,0)="that the AMIS figures 'balance' at the End Of Month.  For example,"
^DD(42.6001,2,21,4,0)="The 'Patients Remaining EOM' from the prior month's AMIS report, plus"
^DD(42.6001,2,21,5,0)="all new admissions/gains, subtract all discharges/losses should equal"
^DD(42.6001,2,21,6,0)="the 'Patients Remaining EOM' on the current AMIS report."
^DD(42.6001,2,21,7,0)="|"
^DD(42.6001,2,23,0)="^^9^9^2920211^^"
^DD(42.6001,2,23,1,0)="The balance flag is set when the AMIS report is in or out of balance."
^DD(42.6001,2,23,2,0)="For instance, the figure in field ""Patients Remaining End Of Month"""
^DD(42.6001,2,23,3,0)="from the previous month's report + all current admissions/gains -"
^DD(42.6001,2,23,4,0)="all current discharges/losses = current month's ""Patients Remaining"
^DD(42.6001,2,23,5,0)="End Of Month"".  This field is a set of codes where '1' represents"
^DD(42.6001,2,23,6,0)="'Segment In Balance' and '0' indicates 'Segment Out of Balance'."
^DD(42.6001,2,23,7,0)="|"
^DD(42.6001,2,23,8,0)="|"
^DD(42.6001,2,23,9,0)="|"
^DD(42.6001,2,"DT")="2901126"
^DD(42.6001,10,0)="DIVISION^42.61PA^^D;0"
^DD(42.6001,"B","BALANCE FLAG",2)=""
^DD(42.6001,"B","DIVISION",10)=""
^DD(42.6001,"B","SEGMENT",.01)=""
^DD(42.6001,"GL",0,1,.01)=""
^DD(42.6001,"GL",0,2,2)=""
^DD(42.6001,"GL","D",0,10)=""
^DD(42.6001,"SB",42.61,10)=""
^DD(42.61,0)="DIVISION SUB-FIELD^NL^52^24"
^DD(42.61,0,"NM","DIVISION")=""
^DD(42.61,0,"UP")="42.6001"
^DD(42.61,.01,0)="DIVISION^RMP40.8'X^DG(40.8,^0;1^S DINUM=X"
^DD(42.61,.01,3)=""
^DD(42.61,.01,21,0)="^^1^1^2930522^^"
^DD(42.61,.01,21,1,0)="Division or facility/medical center AMIS is being reported for."
^DD(42.61,.01,"DT")="2841126"
^DD(42.61,2,0)="TOTAL ADMISSIONS^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,2,3)="Enter the total admissions to this bedsection, excluding transfers in from other VA facilities."
^DD(42.61,2,21,0)="^^3^3^2930522^^^"
^DD(42.61,2,21,1,0)="Total number of admissions (Direct, From OPT/NSC, From"
^DD(42.61,2,21,2,0)="OPT/SC, From Authorized/Unauthorized Absence) a medical center"
^DD(42.61,2,21,3,0)="receives during the reporting month."
^DD(42.61,3,0)="TRANSFERS IN^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,3,3)="Enter the transfers in from other VA hospitals or patients in hospitals under VA authorization."
^DD(42.61,3,21,0)="^^2^2^2930522^^"
^DD(42.61,3,21,1,0)="Total number of transfers in from other VA/Non-VA facilities a medical"
^DD(42.61,3,21,2,0)="center receives during the reporting month."
^DD(42.61,4,0)="CHANGES IN BEDSECTION(+)^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,4,3)="Enter the total patients moved into this bedsection from other hospital bedsections."
^DD(42.61,4,21,0)="^^3^3^2920211^^"
^DD(42.61,4,21,1,0)="Number of patients transferred in to one Service from another as an "
^DD(42.61,4,21,2,0)="interward transfer.  For example, a transfer from a medical ward to a"
^DD(42.61,4,21,3,0)="surgical ward would be +1 change in bedsection for the surgical ward."
^DD(42.61,5,0)="DEATHS, BO AND ABO^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,5,3)="Enter the total number of deaths in this bedsection, BO and ABO."
^DD(42.61,5,21,0)="^^2^2^2920211^"
^DD(42.61,5,21,1,0)="Number of deaths occurring in a medical center, both BO (bed occupants)"
^DD(42.61,5,21,2,0)="and ABO (absent bed occupants)."
^DD(42.61,6,0)="DISCHARGE TO OPT/NSC^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,6,3)="Enter the total number of patients discharged from this bedsection to OPT/NSC status."
^DD(42.61,6,21,0)="^^3^3^2920211^"
^DD(42.61,6,21,1,0)="Number of patients discharged from the medical center who are to"
^DD(42.61,6,21,2,0)="be followed in an outpatient clinic for a non service connected"
^DD(42.61,6,21,3,0)="condition as part of post hospital care during the reporting month."
^DD(42.61,7,0)="DISCHARGES NOT OPT/NSC^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,7,3)="Enter the total number of patients discharged to other than OPT/NSC status."
^DD(42.61,7,21,0)="^^3^3^2920211^^"
^DD(42.61,7,21,1,0)="Number of patients  discharged from the medical center other than"
^DD(42.61,7,21,2,0)="those discharged to OPT/NSC (Irregular, Regular, to OPT/SC) during"
^DD(42.61,7,21,3,0)="the reporting month."
^DD(42.61,8,0)="TRANSFER OUT^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,8,3)="Enter the total number of patients transfered out of this bedsection to other VA facilities or hospitals under VA authorization."
^DD(42.61,8,21,0)="^^3^3^2920211^"
^DD(42.61,8,21,1,0)="Number of patients discharged from the medical center as a transfer"
^DD(42.61,8,21,2,0)="out to a VA or Non-VA facility during the reporting month (same level"
^DD(42.61,8,21,3,0)="of care)."
^DD(42.61,9,0)="CHANGES IN BEDSECTION(-)^NJ9,0^^0;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,9,3)="Enter the total number of patients moved from this bedsection to other bedsections in this medical center."
^DD(42.61,9,21,0)="^^4^4^2920211^"
^DD(42.61,9,21,1,0)="Number of interward transfers from one service to another during the"
^DD(42.61,9,21,2,0)="reporting month.  For example, an interward transfer from Medical"
^DD(42.61,9,21,3,0)="Service to Surgical Service would be a -1 change in bedsection for"
^DD(42.61,9,21,4,0)="Medical Service."
^DD(42.61,10,0)="BED OCCUPANTS EOM^NJ9,0^^0;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,10,3)="Enter the total number of patients which are in bed occupant status as of midnight on the last day of the month."
^DD(42.61,10,21,0)="^^2^2^2930522^^"
^DD(42.61,10,21,1,0)="Number of patients remaining as bed occupants at the End of the Month"
^DD(42.61,10,21,2,0)="for the reporting month on any particular Service."
^DD(42.61,11,0)="ABSENT BED OCCUPANT EOM^NJ9,0^^0;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,11,3)="Enter the total number of patients which are in absent bed occupant status from this bedsection as of midnight on the last day of the month."
^DD(42.61,11,21,0)="^^4^4^2920211^^"
^DD(42.61,11,21,1,0)="Number of patients remaining on the roles of the medical center at"
^DD(42.61,11,21,2,0)="the end of the reporting month, but not physically in a bed.  For"
^DD(42.61,11,21,3,0)="instance, a patient on AA<96 hrs. whose absence extends past the"
^DD(42.61,11,21,4,0)="last day of the reporting month."
^DD(42.61,12,0)="PATIENT DAYS OF CARE^NJ9,0^^0;12^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,12,3)="Enter the total number of patient days of care for this bedsection. For Amis 334 this field is Patient days of care for patients with stays 1-45 days."
^DD(42.61,12,21,0)="^^3^3^2920211^^"
^DD(42.61,12,21,1,0)="This field is the Patient Days of Care by bedsection. For Amis"
^DD(42.61,12,21,2,0)="334 only Patient Days of Care for stays of 1-45 days are kept in"
^DD(42.61,12,21,3,0)="this field"
^DD(42.61,13,0)="DAYS OF AUTH ABSENCE <96HRS^NJ9,0^^0;13^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,13,3)="Enter the total number of days of authorized absence less than 96 hours for this bedsection."
^DD(42.61,13,21,0)="^^2^2^2920211^"
^DD(42.61,13,21,1,0)="Number of days a patient is on Authorized Absence for a period not"
^DD(42.61,13,21,2,0)="exceeding 96 hours."
^DD(42.61,14,0)="*WAIT LIST IN HOSPITAL^NJ9,0^^0;14^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,14,3)="Enter the total number of patients in the wait list for non-service connected conditions, who were in hospitals not under VA authorization, as of midnight of the last day of the month."
^DD(42.61,15,0)="*WAIT LIST NOT IN HOSPITAL^NJ9,0^^0;15^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,15,3)="Enter the total number of patients in the wait list for non-service connected conditions, who are not known to be in a hospital."
^DD(42.61,16,0)="*WAIT LIST SERVICE CONNECTED^NJ9,0^^0;16^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,16,3)="Enter the total number of patients on the wait listt for service connected conditions as of midnight of the last day of the month."
^DD(42.61,17,0)="SCHEDULED ADMIS OPT/NSC STATUS^NJ9,0^^0;17^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,17,3)="Enter the total number of patients who were scheduled for admission to this bedsection as of midnght on the last day of the month who were on OPT/NSC status."
^DD(42.61,17,21,0)="^^2^2^2920211^"
^DD(42.61,17,21,1,0)="Number of Scheduled Admissions for patients who are being brought"
^DD(42.61,17,21,2,0)="in the hospital from the OPT/NSC program."
^DD(42.61,18,0)="OPERATING BEDS EOM^NJ4,0^^0;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,18,3)="Enter the total number of operating beds for this bedsection as of midnight of the last day of the month."
^DD(42.61,18,21,0)="^^2^2^2920211^"
^DD(42.61,18,21,1,0)="Number of operating beds, or beds that are available for use on any"
^DD(42.61,18,21,2,0)="particular Service at the End of the Month for reporting month."
^DD(42.61,19,0)="FEMALE PATIENTS REMAINING EOM^NJ4,0^^0;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,19,3)="Enter the total number of female patients remaining in this bedsection as of midnight of the last day of the month."
^DD(42.61,19,21,0)="^^2^2^2920211^"
^DD(42.61,19,21,1,0)="Number of female patients remaining in the hospital at the end of"
^DD(42.61,19,21,2,0)="the reporting month."
^DD(42.61,20,0)="1 DAY HEMODIALYSIS INPATIENTS^NJ6,0^^0;20^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,20,3)="Enter the total number of 1 day hemodialysis inpatients for this bedsection."
^DD(42.61,20,21,0)="^^2^2^2920211^"
^DD(42.61,20,21,1,0)="Number of hemodialysis inpatient one-day stays.  Usually hemodialysis"
^DD(42.61,20,21,2,0)="treatment (one) is considered a one-day stay on an inpatient status."
^DD(42.61,21,0)="PATIENT DAYS OF CARE ( >45)^NJ3,0^^0;24^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.61,21,3)="Only for Amis 334 Patient Days of Care for patients of stays more than 45 days."
^DD(42.61,21,21,0)="^^3^3^2920211^"
^DD(42.61,21,21,1,0)="Number of patient days of care on Psychiatry Service only for"
^DD(42.61,21,21,2,0)="patients who have been hospitalized for a period greater than"
^DD(42.61,21,21,3,0)="45 days for the reporting month."
^DD(42.61,21,"DT")="2850109"
^DD(42.61,50,0)="DATE EOM STATS RUN^D^^0;21^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(42.61,50,21,0)="^^2^2^2920211^"
^DD(42.61,50,21,1,0)="Date/Time the AMIS statistical reports are generated for reporting"
^DD(42.61,50,21,2,0)="month."
^DD(42.61,50,"DT")="2840403"
^DD(42.61,51,0)="DATE LAST RECALCULATED^D^^0;22^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(42.61,51,21,0)="^^2^2^2920211^"
^DD(42.61,51,21,1,0)="Date the AMIS reports were last re-generated and patients remaining"
^DD(42.61,51,21,2,0)="figure was recalculated for a prior reporting month."
^DD(42.61,51,"DT")="2840403"
^DD(42.61,52,0)="USER^P200'^VA(200,^0;23^Q"
^DD(42.61,52,3)=""
^DD(42.61,52,21,0)="^^2^2^2920211^"
^DD(42.61,52,21,1,0)="User from the New Person file who last ran/generated the AMIS reports"
^DD(42.61,52,21,2,0)="for reporting month(s)."
^DD(42.61,52,"DT")="2901017"
^DD(42.61,"B","*WAIT LIST IN HOSPITAL",14)=""
^DD(42.61,"B","*WAIT LIST NOT IN HOSPITAL",15)=""
^DD(42.61,"B","*WAIT LIST SERVICE CONNECTED",16)=""
^DD(42.61,"B","1 DAY HEMODIALYSIS INPATIENTS",20)=""
^DD(42.61,"B","ABSENT BED OCCUPANT EOM",11)=""
^DD(42.61,"B","BED OCCUPANTS EOM",10)=""
^DD(42.61,"B","CHANGES IN BEDSECTION(+)",4)=""
^DD(42.61,"B","CHANGES IN BEDSECTION(-)",9)=""
^DD(42.61,"B","DATE EOM STATS RUN",50)=""
^DD(42.61,"B","DATE LAST RECALCULATED",51)=""
^DD(42.61,"B","DAYS OF AUTH ABSENCE <96HRS",13)=""
^DD(42.61,"B","DEATHS, BO AND ABO",5)=""
^DD(42.61,"B","DISCHARGE TO OPT/NSC",6)=""
^DD(42.61,"B","DISCHARGES NOT OPT/NSC",7)=""
^DD(42.61,"B","DIVISION",.01)=""
^DD(42.61,"B","FEMALE PATIENTS REMAINING EOM",19)=""
^DD(42.61,"B","OPERATING BEDS EOM",18)=""
^DD(42.61,"B","PATIENT DAYS OF CARE",12)=""
^DD(42.61,"B","PATIENT DAYS OF CARE ( >45)",21)=""
^DD(42.61,"B","SCHEDULED ADMIS OPT/NSC STATUS",17)=""
^DD(42.61,"B","TOTAL ADMISSIONS",2)=""
^DD(42.61,"B","TRANSFER OUT",8)=""
^DD(42.61,"B","TRANSFERS IN",3)=""
^DD(42.61,"B","USER",52)=""
^DD(42.61,"GL",0,1,.01)=""
^DD(42.61,"GL",0,2,2)=""
^DD(42.61,"GL",0,3,3)=""
^DD(42.61,"GL",0,4,4)=""
^DD(42.61,"GL",0,5,5)=""
^DD(42.61,"GL",0,6,6)=""
^DD(42.61,"GL",0,7,7)=""
^DD(42.61,"GL",0,8,8)=""
^DD(42.61,"GL",0,9,9)=""
^DD(42.61,"GL",0,10,10)=""
^DD(42.61,"GL",0,11,11)=""
^DD(42.61,"GL",0,12,12)=""
^DD(42.61,"GL",0,13,13)=""
^DD(42.61,"GL",0,14,14)=""
^DD(42.61,"GL",0,15,15)=""
^DD(42.61,"GL",0,16,16)=""
^DD(42.61,"GL",0,17,17)=""
^DD(42.61,"GL",0,18,18)=""
^DD(42.61,"GL",0,19,19)=""
^DD(42.61,"GL",0,20,20)=""
^DD(42.61,"GL",0,21,50)=""
^DD(42.61,"GL",0,22,51)=""
^DD(42.61,"GL",0,23,52)=""
^DD(42.61,"GL",0,24,21)=""
^DD(42.61,"RQ",.01)=""
^DD(42.7,0)="FIELD^^10^2"
^DD(42.7,0,"IX","ALST",42.7,.01)=""
^DD(42.7,0,"IX","B",42.7,.01)=""
^DD(42.7,0,"NM","AMIS 345&346")=""
^DD(42.7,0,"VR")="5.3"
^DD(42.7,.01,0)="MONTH/YR^RDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) X $S($E(X,6,7)'=""00"":""K X W !,""""Do not enter day of month"""""",X>DT:""K X W !,""""Must be in past"""""",1:"""") I $D(X) S DINUM=X"
^DD(42.7,.01,1,0)="^.1"
^DD(42.7,.01,1,1,0)="42.7^B"
^DD(42.7,.01,1,1,1)="S ^DGAM(345,""B"",$E(X,1,30),DA)="""""
^DD(42.7,.01,1,1,2)="K ^DGAM(345,""B"",$E(X,1,30),DA)"
^DD(42.7,.01,1,2,0)="42.7^ALST^MUMPS"
^DD(42.7,.01,1,2,1)="K ^DGAM(345,""ALST"") X ""S DG1=X F %=X:0 S %=$N(^DGAM(345,%)) Q:%'>0  S DG1=%"" S ^DGAM(345,""ALST"",DG1)="""" K DG1"
^DD(42.7,.01,1,2,2)="K ^DGAM(345,""ALST"") X ""S DG1=0 F %=0:0 S %=$N(^DGAM(345,%)) Q:%'>0  S:%'=DA DG1=%"" S:DG1 ^DGAM(345,""ALST"",DG1)="""" K DG1"
^DD(42.7,.01,3)=""
^DD(42.7,.01,21,0)="^^3^3^2920211^"
^DD(42.7,.01,21,1,0)="Month and year the AMIS 345 and AMIS 346 (NHCU and DOM) reports"
^DD(42.7,.01,21,2,0)="have been generated for.  These reports cannot be generated until"
^DD(42.7,.01,21,3,0)="after the last day of reporting cycle."
^DD(42.7,.01,"DT")="2851024"
^DD(42.7,10,0)="SEGMENT^42.701SA^^SE;0"
^DD(42.7,10,21,0)="^^3^3^2920211^"
^DD(42.7,10,21,1,0)="Segment number is the number of the AMIS assigned per VA Manual"
^DD(42.7,10,21,2,0)="MP6, Part VI, Supp. 1.2.  AMIS 345 is for NHCU statistics and"
^DD(42.7,10,21,3,0)="AMIS 346 is for Domiciliary statistics."
^DD(42.7,"B","MONTH/YR",.01)=""
^DD(42.7,"B","SEGMENT",10)=""
^DD(42.7,"GL",0,1,.01)=""
^DD(42.7,"GL","SE",0,10)=""
^DD(42.7,"IX",.01)=""
^DD(42.7,"RQ",.01)=""
^DD(42.7,"SB",42.701,10)=""
^DD(42.701,0)="SEGMENT SUB-FIELD^NL^10^3"
^DD(42.701,0,"NM","SEGMENT")=""
^DD(42.701,0,"UP")="42.7"
^DD(42.701,.01,0)="SEGMENT^MSX^345:VA NURSING HOME;346:VA DOMICILIARY;^0;1^S DINUM=X"
^DD(42.701,.01,3)=""
^DD(42.701,.01,21,0)="^^3^3^2920211^"
^DD(42.701,.01,21,1,0)="Segment number is the number of the AMIS assigned per VA Manual"
^DD(42.701,.01,21,2,0)="MP6, Part VI, Supp. 1.2.  AMIS 345 is for NHCU statistics and"
^DD(42.701,.01,21,3,0)="AMIS 346 is for Domiciliary statistics."
^DD(42.701,.01,"DT")="2841018"
^DD(42.701,2,0)="BALANCE FLAG^S^1:SEGMENT IN BALANCE;0:SEGMENT OUT OF BALANCE;^0;2^Q"
^DD(42.701,2,21,0)="^^1^1^2930522^"
^DD(42.701,2,21,1,0)="This field will indicate if a segment is in/out of balance."
^DD(42.701,2,"DT")="2901126"
^DD(42.701,10,0)="DIVISION^42.702PA^^D;0"
^DD(42.701,10,21,0)="^^1^1^2930522^"
^DD(42.701,10,21,1,0)="Division or facility/medical center AMIS is being reported for."
^DD(42.701,"B","BALANCE FLAG",2)=""
^DD(42.701,"B","DIVISION",10)=""
^DD(42.701,"B","SEGMENT",.01)=""
^DD(42.701,"GL",0,1,.01)=""
^DD(42.701,"GL",0,2,2)=""
^DD(42.701,"GL","D",0,10)=""
^DD(42.701,"SB",42.702,10)=""
^DD(42.702,0)="DIVISION SUB-FIELD^NL^99.1^22"
^DD(42.702,0,"NM","DIVISION")=""
^DD(42.702,0,"UP")="42.701"
^DD(42.702,.01,0)="DIVISION^MP40.8'X^DG(40.8,^0;1^S DINUM=X"
^DD(42.702,.01,1,0)="^.1^^0"
^DD(42.702,.01,3)=""
^DD(42.702,.01,21,0)="^^1^1^2920211^"
^DD(42.702,.01,21,1,0)="Division for which the AMIS 345 and 346 are being generated. "
^DD(42.702,.01,"DT")="2850822"
^DD(42.702,2,0)="ADMIS AFTER REHOSP >30 DAYS^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,2,3)="Enter the number of patients readmitted to this facility who were in the hospital >30 days. Do not include ASIH patients."
^DD(42.702,2,21,0)="^^3^3^2920211^"
^DD(42.702,2,21,1,0)="Number of admissions to the NHCU/DOM after being rehospitalized "
^DD(42.702,2,21,2,0)="at the medical center for a period exceeding 30 days for reporting"
^DD(42.702,2,21,3,0)="cycle."
^DD(42.702,2,"DT")="2840227"
^DD(42.702,3,0)="ADMISSIONS--ALL OTHERS ^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,3,3)="Enter the number of admissions to this facility, not included in the rehospitalization category."
^DD(42.702,3,21,0)="^^2^2^2930522^^"
^DD(42.702,3,21,1,0)="All other admissions to the NHCU/DOM receiving during reporting cycle"
^DD(42.702,3,21,2,0)="other than ADMIS AFTER REHOSP >30 DAYS."
^DD(42.702,3,"DT")="2840227"
^DD(42.702,4,0)="TRANSFERS IN SIMILAR FACIL^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,4,3)="Enter the number of patients admitted from another VA facility providing the same type of care."
^DD(42.702,4,21,0)="^^2^2^2920211^"
^DD(42.702,4,21,1,0)="All patients received as transfers in from similar facility (i.e."
^DD(42.702,4,21,2,0)="either a DOM or NHCU for reporting cycle."
^DD(42.702,4,"DT")="2840227"
^DD(42.702,5,0)="FROM ASIH^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,5,3)="Enter the number of patient's admitted from ASIH status."
^DD(42.702,5,21,0)="^^2^2^2920211^"
^DD(42.702,5,21,1,0)="Patients received back in the NHCU/DOM from Absent Sick in Hospital"
^DD(42.702,5,21,2,0)="during reporting cycle."
^DD(42.702,5,"DT")="2840227"
^DD(42.702,6,0)="DISCHARGES^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,6,3)="Enter the number of patient's discharged from this facility."
^DD(42.702,6,21,0)="^^1^1^2920211^"
^DD(42.702,6,21,1,0)="Discharges from NHCU/DOM during reporting cycle."
^DD(42.702,6,"DT")="2840227"
^DD(42.702,7,0)="DEATHS^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,7,3)="Enter the number of patients who died while in this facility, but not ASIH."
^DD(42.702,7,21,0)="^^2^2^2920211^"
^DD(42.702,7,21,1,0)="Number of deaths occurring in the NHCU/DOM during the reporting"
^DD(42.702,7,21,2,0)="cycle."
^DD(42.702,7,"DT")="2840227"
^DD(42.702,8,0)="TRANSFERS OUT-SIMILAR FACIL^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,8,3)="enter the number of patients who were transfered out  to another VA facility providing the same type of care."
^DD(42.702,8,21,0)="^^2^2^2920211^"
^DD(42.702,8,21,1,0)="Patients transferred out from NHCU/DOM to a similar facility (i.e."
^DD(42.702,8,21,2,0)="either a DOM or NHCU)."
^DD(42.702,8,"DT")="2840227"
^DD(42.702,9,0)="TO ASIH^NJ9,0^^0;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,9,3)="Enter the number of patients who were transfered to another VA facility not providing the same type of care."
^DD(42.702,9,21,0)="^^2^2^2920211^"
^DD(42.702,9,21,1,0)="Patients transferred To Absent Sick in Hospital from NHCU/DOM during"
^DD(42.702,9,21,2,0)="the reporting cycle."
^DD(42.702,9,"DT")="2840227"
^DD(42.702,10,0)="BED OCCUPANT^NJ9,0^^0;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,10,3)="Enter the total number of patient's who were in bed occupant status at midnight of the last day of the year and month selected."
^DD(42.702,10,21,0)="^^2^2^2920211^"
^DD(42.702,10,21,1,0)="Patient who is physically in a bed in a NHCU/DOM at any time during"
^DD(42.702,10,21,2,0)="reporting cycle."
^DD(42.702,10,"DT")="2840227"
^DD(42.702,11,0)="ABSENT BED OCCUPANTS^NJ9,0^^0;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,11,3)="Enter the total number of patient's who were in absent bed occupant status as of midnight on the year and month selected."
^DD(42.702,11,21,0)="^^4^4^2920211^"
^DD(42.702,11,21,1,0)="Patients who are still on the roles of the NHCU/DOM, but are not"
^DD(42.702,11,21,2,0)="physically in a bed.  For example, a patient who is on Authorized"
^DD(42.702,11,21,3,0)="Absence for a period of less than 96 hours and his/her leave extends"
^DD(42.702,11,21,4,0)="past the last day of the month for the reporting cycle."
^DD(42.702,11,"DT")="2840227"
^DD(42.702,12,0)="ASIH^NJ9,0^^0;12^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,12,3)="Enter the total number of patient's who were on Absent Sick In Hospital status as of midnight of the last day of the year and month selected."
^DD(42.702,12,21,0)="^^2^2^2930522^^"
^DD(42.702,12,21,1,0)="Patients who are Absent Sick in Hospital from NHCU/DOM at end of"
^DD(42.702,12,21,2,0)="reporting cycle."
^DD(42.702,12,"DT")="2840227"
^DD(42.702,13,0)="FEMALE BED OCCUPANTS REMAINING^NJ9,0^^0;13^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,13,3)="Enter the number of female bed occupants as of midnight of the last day of the year and month selected."
^DD(42.702,13,21,0)="^^2^2^2920211^"
^DD(42.702,13,21,1,0)="Number of female patients remaining as bed occupants at the end of"
^DD(42.702,13,21,2,0)="the reporting cycle."
^DD(42.702,13,"DT")="2840227"
^DD(42.702,14,0)="DISCHARGES-ASIH^NJ9,0^^0;14^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,14,3)="Ente the total number of patient's who were discharged while on ASIH status from this facility."
^DD(42.702,14,21,0)="^^3^3^2920211^"
^DD(42.702,14,21,1,0)="Number of discharges while Absent Sick in Hospital.  If a patient is"
^DD(42.702,14,21,2,0)="hospitalized for a period greater than 30 days, he/she is discharged"
^DD(42.702,14,21,3,0)="from the NHCU/DOM as a non-loss."
^DD(42.702,14,"DT")="2840227"
^DD(42.702,15,0)="DIED-ASIH^NJ9,0^^0;15^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,15,3)="Enter the total number of patient's who died while on ASIH stauts from this facility."
^DD(42.702,15,21,0)="^^1^1^2920211^"
^DD(42.702,15,21,1,0)="Number of deaths while Absent Sick in Hospital from NHCU/DOM."
^DD(42.702,15,"DT")="2840227"
^DD(42.702,16,0)="PATIENT DAYS OF CARE^NJ9,0^^0;16^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,16,3)="Enter the total number of patient days of care for the year and month selected for this facility."
^DD(42.702,16,21,0)="^^2^2^2920211^"
^DD(42.702,16,21,1,0)="Patient days of care in NHCU/DOM at end of reporting cycle.  Number"
^DD(42.702,16,21,2,0)="of patients remaining at the EOM + any discharges."
^DD(42.702,16,"DT")="2840227"
^DD(42.702,17,0)="DAYS OF AUTH ABS <96HRS.^NJ9,0^^0;17^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,17,3)="Enter the total number of pass days for patients in this facility."
^DD(42.702,17,21,0)="^^2^2^2920211^"
^DD(42.702,17,21,1,0)="Number of days of authorized absence not exceeding a period of"
^DD(42.702,17,21,2,0)="96 hours for patients cumulatively for reporting cycle."
^DD(42.702,17,"DT")="2840227"
^DD(42.702,18,0)="OPERATING BEDS EOM^NJ9,0^^0;18^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,18,3)="Enter the total number of operating beds for this facility as of midnight of the last day of the year and month selected."
^DD(42.702,18,21,0)="^^2^2^2920211^"
^DD(42.702,18,21,1,0)="Number of operating or available beds for use at the End of the"
^DD(42.702,18,21,2,0)="Month for reporting cycle."
^DD(42.702,19,0)="*WAITING LIST EOM (SC)^NJ6,0^^0;19^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,19,3)="Enter the total number of patient's on the waiting list as of midnight of the last day of the year and month selected."
^DD(42.702,19,"DT")="2840227"
^DD(42.702,20,0)="*WAITING LIST EOM (NSC)^NJ2,0^^0;22^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(42.702,20,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(42.702,20,"DT")="2860625"
^DD(42.702,99,0)="DATE LAST RECALCULATED^D^^0;20^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(42.702,99,21,0)="^^2^2^2920211^"
^DD(42.702,99,21,1,0)="Date/time user last generated the AMIS 345 or 346 and/or recalculated"
^DD(42.702,99,21,2,0)="patients remaining for either current or prior reporting cycle."
^DD(42.702,99,"DT")="2860709"
^DD(42.702,99.1,0)="USER^P200'^VA(200,^0;21^Q"
^DD(42.702,99.1,21,0)="^^1^1^2920211^"
^DD(42.702,99.1,21,1,0)="User who last generated AMIS reports."
^DD(42.702,99.1,"DT")="2901017"
^DD(42.702,"B","*WAITING LIST EOM (NSC)",20)=""
^DD(42.702,"B","*WAITING LIST EOM (SC)",19)=""
^DD(42.702,"B","ABSENT BED OCCUPANTS",11)=""
^DD(42.702,"B","ADMIS AFTER REHOSP >30 DAYS",2)=""
^DD(42.702,"B","ADMISSIONS--ALL OTHERS ",3)=""
^DD(42.702,"B","ASIH",12)=""
^DD(42.702,"B","BED OCCUPANT",10)=""
^DD(42.702,"B","DATE LAST RECALCULATED",99)=""
^DD(42.702,"B","DAYS OF AUTH ABS <96HRS.",17)=""
^DD(42.702,"B","DEATHS",7)=""
^DD(42.702,"B","DIED-ASIH",15)=""
^DD(42.702,"B","DISCHARGES",6)=""
^DD(42.702,"B","DISCHARGES-ASIH",14)=""
^DD(42.702,"B","DIVISION",.01)=""
^DD(42.702,"B","FEMALE BED OCCUPANTS REMAINING",13)=""
^DD(42.702,"B","FROM ASIH",5)=""
^DD(42.702,"B","OPERATING BEDS EOM",18)=""
^DD(42.702,"B","PATIENT DAYS OF CARE",16)=""
^DD(42.702,"B","TO ASIH",9)=""
^DD(42.702,"B","TRANSFERS IN SIMILAR FACIL",4)=""
^DD(42.702,"B","TRANSFERS OUT-SIMILAR FACIL",8)=""
^DD(42.702,"B","USER",99.1)=""
^DD(42.702,"GL",0,1,.01)=""
^DD(42.702,"GL",0,2,2)=""
^DD(42.702,"GL",0,3,3)=""
^DD(42.702,"GL",0,4,4)=""
^DD(42.702,"GL",0,5,5)=""
^DD(42.702,"GL",0,6,6)=""
^DD(42.702,"GL",0,7,7)=""
^DD(42.702,"GL",0,8,8)=""
^DD(42.702,"GL",0,9,9)=""
^DD(42.702,"GL",0,10,10)=""
^DD(42.702,"GL",0,11,11)=""
^DD(42.702,"GL",0,12,12)=""
^DD(42.702,"GL",0,13,13)=""
^DD(42.702,"GL",0,14,14)=""
^DD(42.702,"GL",0,15,15)=""
^DD(42.702,"GL",0,16,16)=""
^DD(42.702,"GL",0,17,17)=""
^DD(42.702,"GL",0,18,18)=""
^DD(42.702,"GL",0,19,19)=""
^DD(42.702,"GL",0,20,99)=""
^DD(42.702,"GL",0,21,99.1)=""
^DD(42.702,"GL",0,22,20)=""
^DD(43,0)="FIELD^^1203^157"
^DD(43,0,"DDA")="N"
^DD(43,0,"DT")="2940504"
^DD(43,0,"IX","B",43,.01)=""
^DD(43,0,"NM","MAS PARAMETERS")=""
^DD(43,0,"VR")="5.3"
^DD(43,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 1"
^DD(43,.001,21,0)="^^3^3^2920212^"
^DD(43,.001,21,1,0)="There is only one 'number' in the MAS Parameters File at this time,"
^DD(43,.001,21,2,0)="and that is the number 'one' denoting there is only on MAS Parameter."
^DD(43,.001,21,3,0)="The labels are subfields of this one parameter."
^DD(43,.001,"DT")="2860527"
^DD(43,.01,0)="ONE^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(43,.01,.1)=""
^DD(43,.01,1,0)="^.1"
^DD(43,.01,1,1,0)="43^B"
^DD(43,.01,1,1,1)="S ^DG(43,""B"",$E(X,1,30),DA)="""""
^DD(43,.01,1,1,2)="K ^DG(43,""B"",$E(X,1,30),DA)"
^DD(43,.01,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1"
^DD(43,.01,12)="TEST FOR ACTIVE TRANSFERS"
^DD(43,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)"""
^DD(43,.01,12.2)="I $P(^(0),""^"",3)"
^DD(43,.01,21,0)="^^2^2^2920212^"
^DD(43,.01,21,1,0)="'One' designates the 'one' MAS Parameter.  There can only be one"
^DD(43,.01,21,2,0)="set of parameters."
^DD(43,.01,"DT")="2860415"
^DD(43,3,0)="HEMODIALYSIS WARD^*P42'^DIC(42,^0;4^S DIC(""S"")=""I $P(^(0),U,3)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(43,3,3)=""
^DD(43,3,4)=""
^DD(43,3,12)="Ward must be in Medical Service"
^DD(43,3,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""M"""""""
^DD(43,3,21,0)="^^1^1^2920212^"
^DD(43,3,21,1,0)="Does your facility have a Hemodialysis Ward?"
^DD(43,3,"DT")="2840413"
^DD(43,4,0)="SYSTEM TIMEOUT^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<10)!(X?.E1"".""1N.N) X"
^DD(43,4,3)="Enter the amount of time you want to allow the data entry clerk to answer the questions.  The lowest the amount of time can be is 10 seconds.  If you want no timeout, enter 99999."
^DD(43,4,21,0)="^^2^2^2920211^"
^DD(43,4,21,1,0)="Enter number of seconds to wait for user to respond to prompts"
^DD(43,4,21,2,0)="(at least 10 seconds).  Enter 99999 if you wish no system timeout."
^DD(43,4,"DT")="2831203"
^DD(43,5.5,0)="DAYS TO MAINTAIN G&L CORR^NJ3,0^^0;29^K:+X'=X!(X>365)!(X<14)!(X?.E1"".""1N.N) X"
^DD(43,5.5,3)="Type the number of days to maintain the G&L correction log (14-365). Leave blank if you want to maintain the complete file"
^DD(43,5.5,21,0)="^^4^4^2941006^^^"
^DD(43,5.5,21,1,0)="Enter the number of days you want to save G&L corrections in the system"
^DD(43,5.5,21,2,0)="(between 14 and 365); corrections older than this number are deleted by"
^DD(43,5.5,21,3,0)="the system when G&L Auto-Recalculation runs.  Leave blank if you wish to"
^DD(43,5.5,21,4,0)="maintain the complete file.  Up to 90 days is recommended."
^DD(43,5.5,"DT")="2860110"
^DD(43,6,0)="TIME FOR LATE DISPOSITION^RNJ3,0^^0;7^K:+X'=X!(X>240)!(X<0)!(X?.E1"".""1N.N) X"
^DD(43,6,3)="Enter the number of hours that is allowed to elapse before a disposition is considered to be late, between 0 and 240."
^DD(43,6,21,0)="^^2^2^2920211^"
^DD(43,6,21,1,0)="Enter the number of hours you want an active registration to remain"
^DD(43,6,21,2,0)="open before the disposition is considered late (between 0 and 240)."
^DD(43,6,"DT")="2831209"
^DD(43,7,0)="SUPPLEMENTAL 10/10^S^1:DO NOT PRINT WITH 10 10;0:PRINT WITH 10 10;^0;8^Q"
^DD(43,7,3)="Enter 1 if you do NOT want supplemental 10 10 printed with 10 10"
^DD(43,7,21,0)="^^1^1^2920211^"
^DD(43,7,21,1,0)="Do you wish Supplemental 10-10 to be printed wtih 10-10?"
^DD(43,7,"DT")="2860625"
^DD(43,8,0)="PRINT DRUG PROFILES WITH 10-10^S^0:NO;1:YES;^0;17^Q"
^DD(43,8,3)="If you have selected a free-form 10-10 and would like to be asked to print drug profiles as well, enter a YES here."
^DD(43,8,21,0)="^^2^2^2930527^^"
^DD(43,8,21,1,0)="Do you wish to have printing of drug profiles prompted with 10-10"
^DD(43,8,21,2,0)="printing?"
^DD(43,8,"DT")="2840217"
^DD(43,9,0)="DEFAULT PTF MESSAGE PRINTER^FX^^0;19^S L=X,X=$P(X,"";"",1),DIC=3.5,DIC(0)=""EQ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=X_$S(L["";"":"";""_$P(L,"";"",2,99),1:"""") S DIC=DIE K L"
^DD(43,9,3)="Enter the device number to print MAS PTF messages on."
^DD(43,9,4)="S DIC=3.5,DIC(0)=""E"",X=""?"" D ^DIC S DIC=DIE"
^DD(43,9,21,0)="^^5^5^2920211^^"
^DD(43,9,21,1,0)="If you answered YES to the 'PRINT PTF MESSAGES?' prompt select the"
^DD(43,9,21,2,0)="default device to which these message should print.  This device"
^DD(43,9,21,3,0)="will be used in cases where a specific device is not entered for"
^DD(43,9,21,4,0)="the individual facility/division using the 'DEVICE SELECTION'"
^DD(43,9,21,5,0)="option of the SYSTEM DEFINITION MENU."
^DD(43,9,"DT")="2860127"
^DD(43,9.5,0)="PRINT PTF MESSAGES?^S^0:NO;1:YES;^0;31^Q"
^DD(43,9.5,21,0)="^^4^4^2920211^^"
^DD(43,9.5,21,1,0)="Enter '1' if you wish to print PTF messages upon admission, change of"
^DD(43,9.5,21,2,0)="treating specialty or deletion of admission, treating specialty transfer,"
^DD(43,9.5,21,3,0)="discharge or 501 movement.  Enter '0' if you DO NOT wish PTF messages to"
^DD(43,9.5,21,4,0)="print."
^DD(43,9.5,"DT")="2870408"
^DD(43,9.6,0)="AUTOMATIC PTF MESSAGES?^S^0:NO;1:YES;^0;40^Q"
^DD(43,9.6,21,0)="^^5^5^2920211^^^"
^DD(43,9.6,21,1,0)="This field indicates whether the site wants to automatically"
^DD(43,9.6,21,2,0)="generate PTF messages as part of normal ADT processing."
^DD(43,9.6,21,3,0)=" "
^DD(43,9.6,21,4,0)="If 'YES' than entries into the PTF MESSAGE file will occur."
^DD(43,9.6,21,5,0)="If 'NO' than no PTF messages will be generated during ADT activities."
^DD(43,9.6,"DT")="2900319"
^DD(43,10,0)="EARLIEST DATE FOR G&L^D^^GL;1^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2901001>X) X"
^DD(43,10,3)="TYPE A DATE BETWEEN 10/1/1990 AND 9/30/2099"
^DD(43,10,21,0)="^^2^2^2930510^^"
^DD(43,10,21,1,0)="Enter the earliest date for G&L to be run on.  The day previous to"
^DD(43,10,21,2,0)="this will be used for ward bed status data initialization."
^DD(43,10,"DT")="2930510"
^DD(43,11,0)="MULTIDIVISION MED CENTER?^RS^0:NO;1:YES;^GL;2^Q"
^DD(43,11,3)="Enter '1' if this is a multidivision medical center, '0' if it is not."
^DD(43,11,21,0)="^^1^1^2920211^"
^DD(43,11,21,1,0)="Is your facility multi-divisional?"
^DD(43,11,"DT")="2831121"
^DD(43,12,0)="MEDICAL CENTER NAME^RP40.8^DG(40.8,^GL;3^Q"
^DD(43,12,3)="Enter the primary medical center number for your medical center."
^DD(43,12,21,0)="^^1^1^2920211^"
^DD(43,12,21,1,0)="Enter name of primary facility for which you are defining parameters."
^DD(43,12,"DT")="2860606"
^DD(43,13,0)="AFFILIATED^RS^0:NO;1:YES;2:INTERMEDIATE;^GL;4^Q"
^DD(43,13,3)="Enter 'Y' if your medical center is associated with a teaching facility, 'N' if it is not, 'I' if Intermediate"
^DD(43,13,21,0)="^^1^1^2920211^"
^DD(43,13,21,1,0)="Is your facility affiliated with a teaching facility?"
^DD(43,13,"DT")="2851211"
^DD(43,14,0)="*HONEYWELL SITE^S^Y:YES;N:NO;^H;1^Q"
^DD(43,14,.1)="HONEYWELL SITE"
^DD(43,14,3)="Enter 'Y' is you have been running ADT/S and Lab on a Honeywell and plan to transmit data back to it until Lab is available on DHCP."
^DD(43,14,21,0)="^^3^3^2930208^^"
^DD(43,14,21,1,0)="This field is currently unused by the MAS package and will be deleted in"
^DD(43,14,21,2,0)="a future release of MAS.  It was previously used to determine whether the"
^DD(43,14,21,3,0)="honeywell software should be utilized or not."
^DD(43,14,"DT")="2911203"
^DD(43,15,0)="NURSING HOME WARDS?^S^0:NO;1:YES;^0;20^Q"
^DD(43,15,3)="Enter 'Y' if you medical center will contain nursing home wards, 'N' if not."
^DD(43,15,21,0)="^^1^1^2920211^^"
^DD(43,15,21,1,0)="Does your site have nursing home wards?"
^DD(43,15,"DT")="2840815"
^DD(43,16,0)="DOMICILIARY WARDS?^S^0:NO;1:YES;^0;21^Q"
^DD(43,16,3)="Enter 'Y' if your medical center will contain domiciliary wards, 'N' if not."
^DD(43,16,21,0)="^^1^1^2920611^^"
^DD(43,16,21,1,0)="Does your medical center have domiciliary wards?"
^DD(43,16,"DT")="2840815"
^DD(43,17,0)="USE HINQ INQUIRY?^S^1:YES;0:NO;^0;27^Q"
^DD(43,17,3)="Enter yes if you want HINQ prompt on registration."
^DD(43,17,21,0)="^^1^1^2920211^^^"
^DD(43,17,21,1,0)="Determines if HINQ inquiry can be made on registration."
^DD(43,17,"DT")="2851025"
^DD(43,18,0)="EMBOSSERS ON-LINE^S^1:YES;0:NO;^0;28^Q"
^DD(43,18,3)="Enter Yes if Embossers are on-line, No if they are not."
^DD(43,18,21,0)="^^2^2^2920211^"
^DD(43,18,21,1,0)="Do you wish to have embossing of data card prompted during registration"
^DD(43,18,21,2,0)="options?"
^DD(43,18,"DT")="2851120"
^DD(43,19,0)="USE CLOSEST PRINTER^S^1:YES;0:NO;^0;30^Q"
^DD(43,19,3)="Enter 'Y' if you want to use closest printer as default 10 10,routing slip and pharmacy profile printers."
^DD(43,19,21,0)="^^2^2^2920211^"
^DD(43,19,21,1,0)="Do you wish closest printer to be default for 10-10s, routing slips"
^DD(43,19,21,2,0)="and pharmacy profiles?"
^DD(43,19,"DT")="2860224"
^DD(43,25,0)="DEFAULT CODE SHEET PRINTER^FX^^0;25^S L=X,X=$P(X,"";"",1),DIC=3.5,DIC(0)=""QMEZ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=$P(Y(0),U,1)_$S(L["";"":"";""_$P(L,"";"",2,99),1:"""") S DIC=$S($D(DIE):DIE,1:DIC) K L"
^DD(43,25,3)="Enter the device number to print MAS AMIS Code Sheets when generating AMIS segments 334-341, 345&346 and 401-420."
^DD(43,25,4)="S DIC=3.5,DIC(0)=""EM"",X=""?"" D ^DIC S DIC=DIE"
^DD(43,25,21,0)="^^3^3^2920211^^^^"
^DD(43,25,21,1,0)="If a 'Default Code Sheet Printer' is defined, AMIS code sheets can"
^DD(43,25,21,2,0)="be generated when AMIS(s) are generated. The Code Sheets created"
^DD(43,25,21,3,0)="will be printed on the default printer."
^DD(43,25,"DT")="2910325"
^DD(43,32,0)="VIEW CHECK OUT INFO DEFAULT^RS^0:NO;1:YES;^0;32^Q"
^DD(43,32,21,0)="^^5^5^2980330^^^^"
^DD(43,32,21,1,0)="During the editing of a disposition, should the user default answer be"
^DD(43,32,21,2,0)="'Yes' or 'No' to the following prompt:"
^DD(43,32,21,3,0)=""
^DD(43,32,21,4,0)="    'Do you wish to see the check out screen?'"
^DD(43,32,21,5,0)=""
^DD(43,32,22)=""
^DD(43,32,"DT")="2980330"
^DD(43,33,0)="DAYS TO MAINTAIN SENSITIVITY^NJ3,0^^0;33^K:+X'=X!(X>365)!(X<30)!(X?.E1"".""1N.N) X"
^DD(43,33,3)="Type a Number between 30 and 365, 0 Decimal Digits"
^DD(43,33,21,0)="^^2^2^2920211^^"
^DD(43,33,21,1,0)="Enter number of days for which sensitivity data must be maintained"
^DD(43,33,21,2,0)="on line before purging is permitted."
^DD(43,33,"DT")="2870817"
^DD(43,34,0)="SHOW STATUS SCREEN^RS^0:NO;1:YES;^0;34^Q"
^DD(43,34,21,0)="^^2^2^2920211^"
^DD(43,34,21,1,0)="Do you want the MAS Status Screen to be displayed to users upon"
^DD(43,34,21,2,0)="entering the ADT Menu?"
^DD(43,34,"DT")="2880314"
^DD(43,37,0)="CONSISTENCY CHECKER ON?^S^0:NO;1:YES;^0;37^Q"
^DD(43,37,3)="For those options which access the patient file consistency checker do you want it executed or no."
^DD(43,37,21,0)="^^4^4^2920211^"
^DD(43,37,21,1,0)="Do you wish to turn on the automatic Consistency Checker?  If YES,"
^DD(43,37,21,2,0)="data will be checked in accordance with parameters set through the"
^DD(43,37,21,3,0)="Determine Consistencies to Check/Don't Check option of the Consistency"
^DD(43,37,21,4,0)="Supervisor Menu."
^DD(43,37,"DT")="2880829"
^DD(43,38,0)="ABBREVIATED PATIENT INQUIRY?^S^1:YES;0:NO;^0;38^Q"
^DD(43,38,3)="Enter YES if you want an abbreviated Patient Inquiry versus the detailed one."
^DD(43,38,21,0)="^^6^6^2920211^"
^DD(43,38,21,1,0)="Do you wish an abbreviated patient inquiry to be displayed through"
^DD(43,38,21,2,0)="the Patient Inquiry Option?  An abbreviated inquiry will include the"
^DD(43,38,21,3,0)="following:  name, SSN, date of birth, address, temporary address,"
^DD(43,38,21,4,0)="means test status, eligibility status, admission and appointment"
^DD(43,38,21,5,0)="enrollment information.  Items such as religion, claim number and"
^DD(43,38,21,6,0)="period of service will be excluded."
^DD(43,38,"DT")="2880929"
^DD(43,39,0)="ASK DEVICE IN REGISTRATION^S^1:YES;0:NO;^0;39^Q"
^DD(43,39,21,0)="^^4^4^2920211^^"
^DD(43,39,21,1,0)="Answering YES will force the DEVICE: prompt at the beginning of registration"
^DD(43,39,21,2,0)="the first time through and will set the 1010, routing sheet, and profile"
^DD(43,39,21,3,0)="printer to this device.  This takes precedence over all devices defined"
^DD(43,39,21,4,0)="as default printers or closet printer."
^DD(43,39,"DT")="2890908"
^DD(43,41,0)="RUN CO-PAY SOFTWARE?^RS^1:YES;0:NO;^0;41^Q"
^DD(43,41,.1)="CO-PAY SOFTWARE ON?"
^DD(43,41,3)="This should be 'YES' unless directed to turn off Co-Pay software."
^DD(43,41,9)="^"
^DD(43,41,21,0)="^^2^2^2930527^^^"
^DD(43,41,21,1,0)="This will prevent the Co-Pay menus and routines from being invoked by the "
^DD(43,41,21,2,0)="Registration software."
^DD(43,41,23,0)="^^1^1^2930527^^"
^DD(43,41,23,1,0)="If this is set to 'NO', Co-Pay related calls will not be invoked."
^DD(43,41,"DT")="2930208"
^DD(43,42,0)="PRINT HEALTH SUMMARY?^S^0:NO;1:YES;^0;42^Q"
^DD(43,42,3)="If you have selected a free-form 10-10 and would like to be asked to print a Health Summary as well, enter a YES here."
^DD(43,42,21,0)="^^5^5^2930811^^^"
^DD(43,42,21,1,0)="By answering 'YES' the user will be prompted to print a Health Summary"
^DD(43,42,21,2,0)="at the end of the Registration process and during the "
^DD(43,42,21,3,0)="10/10 Print without New Registration option.  NOTE: Unless HEALTH SUMMARY"
^DD(43,42,21,4,0)="v2.5 patch #3 (or higher) has been loaded the user will not be prompted"
^DD(43,42,21,5,0)="to print a Health Summary."
^DD(43,42,"DT")="2930527"
^DD(43,43,0)="DEFAULT HEALTH SUMMARY^P142'^GMT(142,^0;43^Q"
^DD(43,43,3)="Indicate the default prompt for Health Summary prints in Registration."
^DD(43,43,21,0)="^^3^3^2930811^^^"
^DD(43,43,21,1,0)="When the user is prompted to print a Health Summary type in Registration,"
^DD(43,43,21,2,0)="this field contains the default.  NOTE: Unless the MAS PARAMETER,"
^DD(43,43,21,3,0)="'PRINT HEALTH SUMMARY?', has been answered 'YES', this has no effect."
^DD(43,43,"DT")="2930527"
^DD(43,44,0)="CHOICE OF DRUG PROFILE TYPE?^S^1:YES;0:NO;^0;44^Q"
^DD(43,44,3)="If YES is entered for the PRINT DRUG PROFILES WITH 10-10 field, answering YES to this field will offer the user a choice between the Action and Informational Drug Profiles."
^DD(43,44,21,0)="^^5^5^2930811^^^"
^DD(43,44,21,1,0)="If YES is entered for the PRINT DRUG PROFILES WITH 10-10 field,"
^DD(43,44,21,2,0)="answering YES to this field will offer the user a choice between the Action"
^DD(43,44,21,3,0)="and Informational Drug Profiles.  Note: Unless the"
^DD(43,44,21,4,0)="PRINT DRUG PROFILES WITH 10-10 has been answered 'YES', this field"
^DD(43,44,21,5,0)="will have no effect."
^DD(43,44,23,0)="^^2^2^2930811^^^"
^DD(43,44,23,1,0)="If this is not answered, the software functions as if NO had been"
^DD(43,44,23,2,0)="answered."
^DD(43,44,"DT")="2930527"
^DD(43,45,0)="DEFAULT TYPE OF DRUG PROFILE^S^A:ACTION;I:INFORMATIONAL;^0;45^Q"
^DD(43,45,3)="If PRINT DRUG PROFILES WITH 10-10 is YES, this field defines the Drug Profile to print (or the default if CHOICE OF DRUG PROFILE TYPE? is YES)."
^DD(43,45,21,0)="^^5^5^2930527^^"
^DD(43,45,21,1,0)="This field is irrelevant unless the PRINT DRUG PROFILES WITH 10-10 field"
^DD(43,45,21,2,0)="has been answered 'YES'. If the user has a choice of Drug Profiles (when"
^DD(43,45,21,3,0)="CHOICE OF DRUG PROFILE TYPE? is YES) this field defines the default.  If"
^DD(43,45,21,4,0)="the user does not have a choice of Drug Profiles, this field defines the"
^DD(43,45,21,5,0)="type of Drug Profile (Action or Informational)."
^DD(43,45,23,0)="^^5^5^2930527^^"
^DD(43,45,23,1,0)="This field is irrelevant unless the PRINT DRUG PROFILES WITH 10-10 field"
^DD(43,45,23,2,0)="has been answered 'YES'. If the user has a choice of Drug Profiles (when"
^DD(43,45,23,3,0)="CHOICE OF DRUG PROFILE TYPE? is YES) this field defines the default.  If"
^DD(43,45,23,4,0)="the user does not have a choice of Drug Profiles, this field defines the"
^DD(43,45,23,5,0)="type of Drug Profile (Action or Informational)."
^DD(43,45,"DT")="2930527"
^DD(43,46,0)="DAYS TO UPDATE MEDICAID^NJ3,0^^0;46^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,46,3)="Type a number between 1 & 999 for the maximum number of days without updating Medicaid (without causing an inconsistency)."
^DD(43,46,21,0)="^^2^2^2930714^^"
^DD(43,46,21,1,0)="After this number of days without updating the DATE MEDICAID LAST ASKED"
^DD(43,46,21,2,0)="field an inconsistency will be created.  The default is 365 days."
^DD(43,46,"DT")="2930714"
^DD(43,47,0)="PRINT ENCOUNTER FORM AT REG.^S^0:NO;1:YES;^0;47^Q"
^DD(43,47,21,0)="^^3^3^2960403^^^^"
^DD(43,47,21,1,0)="Answering ""YES"" will have the prompt Print Encounter Form be"
^DD(43,47,21,2,0)="asked at Registration.  If the encounter form is said to be "
^DD(43,47,21,3,0)="printed,  the clinic(s) to print the encounter forms will be asked."
^DD(43,47,23,0)="^^1^1^2960403^^^^"
^DD(43,47,23,1,0)=" "
^DD(43,47,"DT")="2960205"
^DD(43,48,0)="DEFAULT EF PRINTER^FX^^0;48^S L=X,X=$P(X,"";"",1),DIC=3.5,DIC(0)=""QMEZ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=$P(Y(0),U,1)_$S(L["";"":"";""_$P(L,"";"",2,99),1:"""") S DIC=$S($D(DIE):DIE,1:DIC) K L"
^DD(43,48,3)="Answer must be 1-30 characters in length."
^DD(43,48,4)="S DIC=3.5,DIC(0)=""EM"",X=""?"" D ^DIC S DIC=DIE"
^DD(43,48,21,0)="^^3^3^2960403^^^^"
^DD(43,48,21,1,0)="This field contains the name of the default"
^DD(43,48,21,2,0)="printer that will print encounter forms at"
^DD(43,48,21,3,0)="registration."
^DD(43,48,23,0)="^^5^5^2960403^^^^"
^DD(43,48,23,1,0)=" "
^DD(43,48,23,2,0)=" "
^DD(43,48,23,3,0)=" "
^DD(43,48,23,4,0)=" "
^DD(43,48,23,5,0)=" "
^DD(43,48,"DT")="2960122"
^DD(43,50,0)="G&L STARTED^D^^GLS;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(43,50,21,0)="^^2^2^2920212^"
^DD(43,50,21,1,0)="The date/time the Gains and Losses Sheet was started by a user"
^DD(43,50,21,2,0)="through the ADT Outputs menu option."
^DD(43,50,"DT")="2850819"
^DD(43,52,0)="RECALC STARTED^D^^GLS;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(43,52,21,0)="^^2^2^2920212^"
^DD(43,52,21,1,0)="The date/time G&L recalculation was started.  A user would recalc"
^DD(43,52,21,2,0)="a G&L for past dates normally."
^DD(43,52,"DT")="2850830"
^DD(43,53,0)="RECALC UP TO^D^^GLS;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(43,53,3)=""
^DD(43,53,21,0)="^^1^1^2850830^"
^DD(43,53,21,1,0)="Date G&L recalculation has reached cleared when recalc is finished."
^DD(43,53,"DT")="2850830"
^DD(43,54,0)="ZTSK(RECALC)^NJ10,0^^GLS;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(43,54,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(43,54,21,0)="^^1^1^2940921^^^^"
^DD(43,54,21,1,0)="The task number of the G&L recalculation job running."
^DD(43,54,"DT")="2940930"
^DD(43,55,0)="SCHEDULED(RECALC)^D^^GLS;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(43,55,21,0)="^^3^3^2920212^"
^DD(43,55,21,1,0)="The date/time the G&L recalculation is scheduled to run.  It is"
^DD(43,55,21,2,0)="a nightly background job usually set to run sometime after midnight"
^DD(43,55,21,3,0)="each day."
^DD(43,55,"DT")="2851017"
^DD(43,56,0)="CPU(RECALC)^F^^GLS;6^K:$L(X)>4!($L(X)<1) X"
^DD(43,56,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(43,56,21,0)="^^1^1^2851024^"
^DD(43,56,21,1,0)="CPU recalc was started from"
^DD(43,56,"DT")="2851024"
^DD(43,57,0)="AUTO RECALC LAST STARTED^D^^GLS;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(43,57,21,0)="^^1^1^2930318^^"
^DD(43,57,21,1,0)="The date/time that Auto Recalc was last started for the G&L stats."
^DD(43,57,"DT")="2930318"
^DD(43,58,0)="CPU(AUTO RECALC)^F^^GLS;8^K:$L(X)>4!($L(X)<1) X"
^DD(43,58,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(43,58,21,0)="^^1^1^2851024^"
^DD(43,58,21,1,0)="CPU which last ran auto recalc"
^DD(43,58,"DT")="2851024"
^DD(43,59,0)="AUTO RECALC FINISHED^D^^GLS;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,59,3)="This is the Date/Time the G&L Auto Recalc finished running."
^DD(43,59,"DT")="2930312"
^DD(43,60,0)="AUTO RECALC BACK TO^D^^GLS;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(43,60,3)="When the G&L Auto Recalc last ran this is the date it went back to for recalculation of the stats."
^DD(43,60,21,0)="^^2^2^2930811^"
^DD(43,60,21,1,0)="When the G&L Auto Recalc last ran, this is the date it went back"
^DD(43,60,21,2,0)="to for recalculation of the stats."
^DD(43,60,"DT")="2930312"
^DD(43,61,0)="G&L LAST RUN^D^^GLS;11^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(43,61,21,0)="^^1^1^2930511^^"
^DD(43,61,21,1,0)="Time G&L was run last."
^DD(43,61,"DT")="2851024"
^DD(43,70,0)="REGISTRATION TEMPLATE (LOCAL)^*P.402'^DIE(^0;35^S DIC(""S"")=""I $P(^(0),""""^"""",4)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(43,70,3)="Select name of template you want to appear at end of each registration (optional)."
^DD(43,70,12)="SELECT TEMPLATES FROM FILE 2 (PATIENT) ONLY!"
^DD(43,70,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)=2"""
^DD(43,70,21,0)="^^7^7^2920211^"
^DD(43,70,21,1,0)="A site may need to capture certain registration data in a format other"
^DD(43,70,21,2,0)="than that of the distributed registration screens.  It may do so by"
^DD(43,70,21,3,0)="creating a local registration screen (through a FileMan template)"
^DD(43,70,21,4,0)="specifying that data in the PATIENT file they wish to capture.  The"
^DD(43,70,21,5,0)="template name should be specified at this prompt.  This screen will"
^DD(43,70,21,6,0)="then be prompted during the registration or load/edit process at the"
^DD(43,70,21,7,0)="end of the other registration screens."
^DD(43,70,"DT")="2880722"
^DD(43,76,0)="USE HIGH INTENSITY ON SCREENS?^S^1:YES;0:NO;^0;36^Q"
^DD(43,76,3)="Should reverse video be used for those options in MAS which allow it?"
^DD(43,76,21,0)="^^8^8^2920211^"
^DD(43,76,21,1,0)="Should high intensity be used for those options in MAS which allow it?"
^DD(43,76,21,2,0)="This feature works in conjunction with the Registration and MCCR"
^DD(43,76,21,3,0)="screens to signify to users that data which may/may not be edited."
^DD(43,76,21,4,0)="Under certain circumstances some screens or individual data groups"
^DD(43,76,21,5,0)="may only be edited by selected users.  When this feature is turned on,"
^DD(43,76,21,6,0)="those screens and/or data group numbers which a specific user may edit"
^DD(43,76,21,7,0)="will be 'highlighted' on their terminal but not 'highlighted' to"
^DD(43,76,21,8,0)="those users who may not edit the screens/data groups."
^DD(43,76,"DT")="2880628"
^DD(43,77,0)="EXCLUDE WHICH TERMINAL TYPES?^43.077PA^^TERM;0"
^DD(43,77,21,0)="^^6^6^2920212^^"
^DD(43,77,21,1,0)="If the USE HIGH INTENSITY ON SCREENS field has been set to YES, you"
^DD(43,77,21,2,0)="may wish to exclude it from being used on certain terminal types."
^DD(43,77,21,3,0)="If so, at this prompt you should specify the terminal type(s) which"
^DD(43,77,21,4,0)="should not use high intensity.  This field allows you to specify"
^DD(43,77,21,5,0)="multiple terminal types.  You will be returned to it repeatedly until"
^DD(43,77,21,6,0)="no more entries are made."
^DD(43,80,0)="CONSISTENCY PURGE STARTED^D^^CON;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,80,21,0)="^^1^1^2870527^"
^DD(43,80,21,1,0)="The date the purging of the INCONSISTENT DATA file was started."
^DD(43,80,"DT")="2870312"
^DD(43,81,0)="CONSISTENCY PURGE LAST RAN^D^^CON;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,81,3)=""
^DD(43,81,21,0)="^^1^1^2870527^"
^DD(43,81,21,1,0)="The date the INCONSISTENT DATA purge last completed."
^DD(43,82,0)="CONSISTENCY REBUILD STARTED^D^^CON;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,82,3)=""
^DD(43,82,21,0)="^^1^1^2870527^"
^DD(43,82,21,1,0)="The date the INCONSISTENT DATA file was started rebuilding."
^DD(43,83,0)="CONSISTENCY REBUILD LAST RAN^D^^CON;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,83,3)=""
^DD(43,83,21,0)="^^1^1^2870527^"
^DD(43,83,21,1,0)="The date the INCONSISTENT DATA file last completed rebuilding."
^DD(43,84,0)="CONSISTENCY UPDATE STARTED^D^^CON;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,84,3)=""
^DD(43,84,21,0)="^^2^2^2870527^"
^DD(43,84,21,1,0)="The date updating of existing data in the INCONSISTENT DATA"
^DD(43,84,21,2,0)="file was last started."
^DD(43,85,0)="CONSISTENCY UPDATE LAST RAN^D^^CON;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,85,3)=""
^DD(43,85,21,0)="^^2^2^2870527^"
^DD(43,85,21,1,0)="The date updating of existing data in the INCONSISTENT DATA"
^DD(43,85,21,2,0)="file last completed running."
^DD(43,86,0)="OVERDUE ABSENCE SEARCH DATE^RD^^CON;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,86,21,0)="^^4^4^2920212^"
^DD(43,86,21,1,0)="Date the overdue absence list was run.  An overdue absence list"
^DD(43,86,21,2,0)="produces those veterans who have been placed on either AA<96 hrs."
^DD(43,86,21,3,0)="or AA and have not returned on the date entered as their return"
^DD(43,86,21,4,0)="date."
^DD(43,86,"DT")="2870527"
^DD(43,90,0)="PROVIDER CONVERSION^43.02A^^PCON;0"
^DD(43,90,21,0)="^^2^2^2930728^^^^"
^DD(43,90,21,1,0)="This Multiple will contain parameters used for the conversion of MAS"
^DD(43,90,21,2,0)="files from file 3, 6, and 16 to file 200."
^DD(43,91,0)="PROVIDER CONVERSION LOG^43.091^^PCL;0"
^DD(43,91,21,0)="^^3^3^2930728^^"
^DD(43,91,21,1,0)="This field contains a list of all entries that failed to be       "
^DD(43,91,21,2,0)="converted during the Provider Conversion. The contents of this"
^DD(43,91,21,3,0)="field will be used to generate a Mailman message at the end of the"
^DD(43,91,23,0)="^^5^5^2930728^^"
^DD(43,91,23,1,0)="This field will not be deleted until the end of the conversion process."
^DD(43,91,23,2,0)="So, if the conversion is re-started then entries will be appended to"
^DD(43,91,23,3,0)="the text in this message. The assumption is that the field is empty "
^DD(43,91,23,4,0)="at the time the conversion is started so that if the conversion is"
^DD(43,91,23,5,0)="re-started it is appended to valid data."
^DD(43,205,0)="SCHEDULING VERSION^NJ5,2^^SCLR;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(43,205,3)="TYPE A NUMBER BETWEEN 0 AND 99"
^DD(43,205,21,0)="^^2^2^2920212^"
^DD(43,205,21,1,0)="This is the Version number of the currently loaded Scheduling DHCP"
^DD(43,205,21,2,0)="software."
^DD(43,205,"DT")="2860918"
^DD(43,210,0)="SCHEDULING ARCHIVE DATE^43.05DA^^SDAR;0"
^DD(43,210,21,0)="^^2^2^2870115^^"
^DD(43,210,21,1,0)="This field contains the dates, status, and summary information for the"
^DD(43,210,21,2,0)="Scheduling archive process."
^DD(43,212,0)="APPT SEARCH THRESHOLD^NJ2,0^^SCLR;12^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,212,3)="Type the number of days between 1 and 30."
^DD(43,212,21,0)="^^14^14^2920522^^^^"
^DD(43,212,21,1,0)="Enter the number of days in the past that the 'Appointment"
^DD(43,212,21,2,0)="Management' option should initially search for appointments."
^DD(43,212,21,3,0)=" "
^DD(43,212,21,4,0)="When the user selects a patient, this parameter will"
^DD(43,212,21,5,0)="automatically be used to search that many days in the past"
^DD(43,212,21,6,0)="for appointments."
^DD(43,212,21,7,0)=" "
^DD(43,212,21,8,0)="When a clinic is selected, this number will be used to"
^DD(43,212,21,9,0)="calculate the default beginning date.  The user is "
^DD(43,212,21,10,0)="prompted for a beginning and ending date when a clinic"
^DD(43,212,21,11,0)="is selected."
^DD(43,212,21,12,0)=" "
^DD(43,212,21,13,0)="If this field is not entered, then the system will use"
^DD(43,212,21,14,0)="2 days."
^DD(43,212,"DT")="2911024"
^DD(43,213,0)="PATIENT OR CLINIC^V^^SCLR;13^Q"
^DD(43,213,21,0)="^^5^5^2920226^^^"
^DD(43,213,21,1,0)="This field definition is used by the 'Appointment Management'"
^DD(43,213,21,2,0)="option.  The option obtains a patient or clinic when using"
^DD(43,213,21,3,0)="the FileMan Reader.  This field is specified in the Reader call."
^DD(43,213,21,4,0)=" "
^DD(43,213,21,5,0)="No data needs to be set in this field."
^DD(43,213,"DT")="2920131"
^DD(43,213,"V",0)="^.12P^2^2"
^DD(43,213,"V",1,0)="2^Patient^1^P^y^n"
^DD(43,213,"V",1,1)="S DIC(""S"")="""" D RT^SDAMEX K DIC(""S"")"
^DD(43,213,"V",1,2)="Used to check if input is a RT barcode."
^DD(43,213,"V",2,0)="44^Clinic^2^C^y^n"
^DD(43,213,"V",2,1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""",'$G(^(""""OOS""""))"""
^DD(43,213,"V",2,2)="Only clinics which are not occasion of service clinics allowed."
^DD(43,213,"V","B",2,1)=""
^DD(43,213,"V","B",44,2)=""
^DD(43,213,"V","M","Clinic",2)=""
^DD(43,213,"V","M","Patient",1)=""
^DD(43,213,"V","O",1,1)=""
^DD(43,213,"V","O",2,2)=""
^DD(43,213,"V","P","C",2)=""
^DD(43,213,"V","P","P",1)=""
^DD(43,215,0)="APPT. UPDATE MAIL GROUP^P3.8'^XMB(3.8,^SCLR;15^Q"
^DD(43,215,3)="Select the name of the Mail Group which should be notified whenever the Appointment Status Update job has been completed."
^DD(43,215,21,0)="^^2^2^2920413^"
^DD(43,215,21,1,0)="This is the name of the Mail Group which should be notified"
^DD(43,215,21,2,0)="whenever the Appointment Status Update job has been completed."
^DD(43,215,"DT")="2920319"
^DD(43,216,0)="NPCDB MAIL GROUP^P3.8'^XMB(3.8,^SCLR;16^Q"
^DD(43,216,3)="Select the name of the Mail Group which should be notified whenever the generation of the NPCDB update has been completed."
^DD(43,216,21,0)="^^2^2^2980327^^^^"
^DD(43,216,21,1,0)="This is the name of the Mail Group which should be notified"
^DD(43,216,21,2,0)="whenever the nightly NPCDB job has been completed."
^DD(43,216,"DT")="2980327"
^DD(43,217,0)="LATE ACTIVITY MAIL GROUP^P3.8'^XMB(3.8,^SCLR;17^Q"
^DD(43,217,21,0)="^^9^9^2980420^^^^"
^DD(43,217,21,1,0)="This is the name of the Mail Group which should be notified"
^DD(43,217,21,2,0)="whenever there is late entry/edit of NPCDB related information."
^DD(43,217,21,3,0)=" "
^DD(43,217,21,4,0)="'Late entry' is defined as information entered after the workload"
^DD(43,217,21,5,0)="close out date has passed."
^DD(43,217,21,6,0)=" "
^DD(43,217,21,7,0)="For example, if an appointment is made after the close out date"
^DD(43,217,21,8,0)="has passed for the appointment date then the members of this mail"
^DD(43,217,21,9,0)="group will receive a message."
^DD(43,217,"DT")="2920413"
^DD(43,223,0)="DATE CHECK OUT REQUIRED^RDX^^SCLR;23^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),X>2931001 K X"
^DD(43,223,3)="Enter the date that the site must start checking out appointments."
^DD(43,223,21,0)="^^6^6^2930802^"
^DD(43,223,21,1,0)="This field indicates the date the site must start checking out appointments,"
^DD(43,223,21,2,0)="stop code additions (add/edits) and registrations (1010 and unscheduled)."
^DD(43,223,21,3,0)="Once v5.3 is released then this date will be Oct. 1, 1993."
^DD(43,223,21,4,0)=" "
^DD(43,223,21,5,0)="However, for alpha and beta testing, this date needs to be set"
^DD(43,223,21,6,0)="before 10/1/93."
^DD(43,223,"DT")="2930325"
^DD(43,224,0)="ALLOW UP-ARROW OUT OF CLASS.^S^0:NO;1:YES;^SCLR;24^Q"
^DD(43,224,.1)="ALLOW UP-ARROW OUT OF CLASSIFICATION"
^DD(43,224,21,0)="^^5^5^2930615^^"
^DD(43,224,21,1,0)="Enter 'YES' to allow users to up-arrow out of the classification"
^DD(43,224,21,2,0)="questions.  The classification questions are required for workload credit."
^DD(43,224,21,3,0)="Allowing the user to exit without answering these questions could result"
^DD(43,224,21,4,0)="in additional work at a later time to track down the record and determine"
^DD(43,224,21,5,0)="the answer to these questions."
^DD(43,224,"DT")="2930601"
^DD(43,226,0)="API ERRORS MAIL GROUP^P3.8'^XMB(3.8,^SCLR;26^Q"
^DD(43,226,3)="Enter the Mail Group that will receive notification messages from the Scheduling API."
^DD(43,226,21,0)="^^5^5^2940504^^"
^DD(43,226,21,1,0)="This field is used to indicate which Mail Group should receive"
^DD(43,226,21,2,0)="any notifications produced by the Outpatient API."
^DD(43,226,21,3,0)=""
^DD(43,226,21,4,0)="Field 'API NOTIFICATIONS TO PROCESS (#227)' indicates the type"
^DD(43,226,21,5,0)="of notifications should result in a MailMan message."
^DD(43,226,"DT")="2940504"
^DD(43,227,0)="API NOTIFICATIONS TO PROCESS^S^E:ERRORS ONLY;WE:WARNINGS & ERRORS;N:NONE;^SCLR;27^Q"
^DD(43,227,3)="Enter the type of notification messages the Scheduling API should process."
^DD(43,227,21,0)="^^29^29^2950810^"
^DD(43,227,21,1,0)="This field indicates which notification messages from the Outpatient"
^DD(43,227,21,2,0)="API should be sent to the appropriate Mail Group. The Mail Group is"
^DD(43,227,21,3,0)="specified in the 'API ERROR MAIL GROUP (#226)' field."
^DD(43,227,21,4,0)=" "
^DD(43,227,21,5,0)="Possible answers are the following:"
^DD(43,227,21,6,0)="                       ERRORS - send just error notifications"
^DD(43,227,21,7,0)="            WARNINGS & ERRORS - send warning and error notifications"
^DD(43,227,21,8,0)="                         NONE - do not send any notifications"
^DD(43,227,21,9,0)=" "
^DD(43,227,21,10,0)="Error Definition:"
^DD(43,227,21,11,0)="-----------------"
^DD(43,227,21,12,0)="Before an event is processed, the data passed to the API"
^DD(43,227,21,13,0)="is analyzed. If any problems are found that cause the"
^DD(43,227,21,14,0)="event processing not to occur then the problem is reported"
^DD(43,227,21,15,0)="back to the calling application as 'errors'."
^DD(43,227,21,16,0)=" "
^DD(43,227,21,17,0)="An example of an 'error' would be an invalid DFN number"
^DD(43,227,21,18,0)="for a patient."
^DD(43,227,21,19,0)=" "
^DD(43,227,21,20,0)=" "
^DD(43,227,21,21,0)="Warning Definition:"
^DD(43,227,21,22,0)="-------------------"
^DD(43,227,21,23,0)="During the processing of an event, certain data passed to the"
^DD(43,227,21,24,0)="API can be found to be inappropriate or inaccurate but was not"
^DD(43,227,21,25,0)="crucial to the processing of the event. These types of problems"
^DD(43,227,21,26,0)="are reported back to the calling application as 'warnings'."
^DD(43,227,21,27,0)=" "
^DD(43,227,21,28,0)="An example of a 'warning' would be Agent Orange(AO) exposure"
^DD(43,227,21,29,0)="information passed for an encounter that did not require AO information."
^DD(43,227,"DT")="2940504"
^DD(43,250,0)="MEANS TEST DATA^43.03D^^MT;0"
^DD(43,250,21,0)="^^4^4^2920330^"
^DD(43,250,21,1,0)="Enter in this field the year of the means test income category"
^DD(43,250,21,2,0)="thresholds, property threshold and child income exclusion.  These"
^DD(43,250,21,3,0)="figures are released annually.  They are effective on January"
^DD(43,250,21,4,0)="1st and are applied to the previous year income."
^DD(43,251,0)="*CARE COSTS^43.01D^^MT1;0"
^DD(43,251,21,0)="^^5^5^2920302^^^"
^DD(43,251,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43,251,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43,251,21,3,0)=" "
^DD(43,251,21,4,0)="Costs by treating Service charged by the VA for care received at"
^DD(43,251,21,5,0)="a VA facility."
^DD(43,251,"DT")="2920302"
^DD(43,300,0)="FISCAL YEAR^43.06D^^FY;0"
^DD(43,300,21,0)="^^2^2^2980211^^^^"
^DD(43,300,21,1,0)="Fiscal Year that inpatient and outpatient costs at a VA facility"
^DD(43,300,21,2,0)="are in effect."
^DD(43,391.701,0)="CURRENT PIVOT ENTRY^RNJ9,0^^HL7;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(43,391.701,3)="This is the current entry number in the ADT/HL7 Pivot file.  Only the application should edit this field. Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(43,391.701,9)="^"
^DD(43,391.701,21,0)="^^2^2^2950629^^"
^DD(43,391.701,21,1,0)="This is the current entry number in the ADT/HL7 Pivot file.  Only the"
^DD(43,391.701,21,2,0)=" application should edit this field."
^DD(43,391.701,"DT")="2950512"
^DD(43,391.7012,0)="SEND PIMS HL7 V2.2 MESSAGES^S^1:SEND;0:STOP;^HL7;2^Q"
^DD(43,391.7012,21,0)="^^3^3^2970612^"
^DD(43,391.7012,21,1,0)="This field tells the software whether to stop sending the PIMS HL7"
^DD(43,391.7012,21,2,0)="messages.  If set to 0 or stop no PIMS HL7 messages will be fired from"
^DD(43,391.7012,21,3,0)="the event drivers, DDs, or registration options."
^DD(43,391.7012,"DT")="2970618"
^DD(43,391.7013,0)="SEND PIMS HL7 V2.3 MESSAGES^S^1:SEND;0:STOP;2:SUSPEND;^HL7;3^Q"
^DD(43,391.7013,21,0)="^^3^3^2970924^^"
^DD(43,391.7013,21,1,0)="This field tells the software whether to stop sending the PIMS HL7"
^DD(43,391.7013,21,2,0)="v2.3 messages.  If set to 0 or stop no PIMS HL7 v2.3 messages will be"
^DD(43,391.7013,21,3,0)="fired from the event drivers, DDs, or registration options."
^DD(43,391.7013,"DT")="2970924"
^DD(43,391.7014,0)="CREATE MFU FOR RAI MDS^S^1:YES;^HL7;4^Q"
^DD(43,391.7014,"DT")="2990924"
^DD(43,391.702,0)="PIVOT FILE DAYS TO RETAIN^NJ3,0^^HL7;6^K:+X'=X!(X>999)!(X<30)!(X?.E1"".""1N.N) X"
^DD(43,391.702,3)="Type a Number between 30 and 999, 0 Decimal Digits"
^DD(43,391.702,21,0)="^.001^12^12^3051005^^"
^DD(43,391.702,21,1,0)="The number of days worth of data to retain in"
^DD(43,391.702,21,2,0)="the ADT/HL7 PIVOT file (#391.71) when the "
^DD(43,391.702,21,3,0)="Purge PIMS HL7 PIVOT File option [VAFH PIVOT"
^DD(43,391.702,21,4,0)="PURGE] is run."
^DD(43,391.702,21,5,0)="                                 "
^DD(43,391.702,21,6,0)="Example: If this field is set to 100, then"
^DD(43,391.702,21,7,0)="entries in file #391.71 which are older "
^DD(43,391.702,21,8,0)="than TODAY-100 days will be purged."
^DD(43,391.702,21,9,0)="                                 "
^DD(43,391.702,21,10,0)="If nothing is entered in this field, then "
^DD(43,391.702,21,11,0)="a default value of 547 days will be used."
^DD(43,391.702,21,12,0)="(547 days is approximately 18 months.)"
^DD(43,391.702,"DT")="3051005"
^DD(43,391.705,0)="RAI INTEGRATED SITE^S^0:NOT INTEGRATED;1:INTEGRATED, SINGLE DB;2:INTEGRATED, MULTIPLE DB;^HL7;5^Q"
^DD(43,391.705,3)="SPECIFY THE LEVEL OF INTEGRATION FOR RAI/MDS COTS DATABASE"
^DD(43,391.705,21,0)="^^3^3^2991012^^"
^DD(43,391.705,21,1,0)="This field will indicate whether the site has integrated it's RAI/MDS COTS"
^DD(43,391.705,21,2,0)="databases or not and to what level.  If the field is null, then the site"
^DD(43,391.705,21,3,0)="has not integrated."
^DD(43,391.705,"DT")="2991012"
^DD(43,401,0)="IRT BACKGROUND JOB LAST RUN^D^^IRT;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(43,401,21,0)="^^2^2^2930511^"
^DD(43,401,21,1,0)="This field contains the date/time of the last run of the"
^DD(43,401,21,2,0)="IRT Background Job."
^DD(43,401,"DT")="2930511"
^DD(43,500,0)="DEATH GROUP^P3.8'^XMB(3.8,^NOT;1^Q"
^DD(43,500,21,0)="^^3^3^2930712^^^"
^DD(43,500,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,500,21,2,0)="a patient expires.  If no mailgroup is selected no bulletin will"
^DD(43,500,21,3,0)="be generated."
^DD(43,500,"DT")="2870522"
^DD(43,501,0)="NEW PATIENT GROUP^P3.8'^XMB(3.8,^NOT;2^Q"
^DD(43,501,3)=""
^DD(43,501,21,0)="^^3^3^2930712^^^"
^DD(43,501,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,501,21,2,0)="a new patient is added to the patient file.  If no mailgroup is"
^DD(43,501,21,3,0)="selected no bulletin will be generated."
^DD(43,502,0)="NAME CHANGE GROUP^P3.8'^XMB(3.8,^NOT;3^Q"
^DD(43,502,3)=""
^DD(43,502,21,0)="^^3^3^2870527^"
^DD(43,502,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,502,21,2,0)="the spelling of an existing patients name is changed.  If no mailgroup"
^DD(43,502,21,3,0)="is selected no bulletin will be generated."
^DD(43,503,0)="SSN CHANGE GROUP^P3.8'^XMB(3.8,^NOT;4^Q"
^DD(43,503,3)=""
^DD(43,503,21,0)="^^3^3^2870527^"
^DD(43,503,21,1,0)="Select the name of the mailgroup which should be notified whenever the"
^DD(43,503,21,2,0)="social security number of an existing patient is changed.  If no"
^DD(43,503,21,3,0)="mailgroup is selected no bulletin will be generated."
^DD(43,504,0)="UNVERIFIED ADMIT GROUP^P3.8'^XMB(3.8,^NOT;5^Q"
^DD(43,504,3)=""
^DD(43,504,21,0)="^^6^6^2940920^^"
^DD(43,504,21,1,0)="Select the name of the mailgroup to be notified along with the user,"
^DD(43,504,21,2,0)="whenever a veteran is admitted for whom eligibility has not been verified,"
^DD(43,504,21,3,0)="or for patients admitted with verified eligibility who have either future"
^DD(43,504,21,4,0)="scheduled admissions or waiting list entries."
^DD(43,504,21,5,0)=" "
^DD(43,504,21,6,0)="If no mailgroup is selected no bulletin will be generated."
^DD(43,505,0)="INCONSISTENCY EDIT GROUP^P3.8'^XMB(3.8,^NOT;6^Q"
^DD(43,505,21,0)="^^5^5^2870527^"
^DD(43,505,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,505,21,2,0)="inconsistencies are found in a patients database that can not be"
^DD(43,505,21,3,0)="corrected by the user because of edit restrictions, i.e., not"
^DD(43,505,21,4,0)="holding the 'DG ELIGIBILITY' security key for verified data.  If"
^DD(43,505,21,5,0)="no mailgroup is selected no bulletin will be generated."
^DD(43,505,"DT")="2870522"
^DD(43,506,0)="NON-VETERAN ADMIT GROUP^P3.8'^XMB(3.8,^NOT;7^Q"
^DD(43,506,21,0)="^^3^3^2870527^"
^DD(43,506,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,506,21,2,0)="a non-veteran is admitted to the facility.  If no mailgroup is"
^DD(43,506,21,3,0)="selected no bulletin will be generated."
^DD(43,506,"DT")="2870522"
^DD(43,507,0)="OVERDUE ABSENCES GROUP^P3.8'^XMB(3.8,^NOT;8^Q"
^DD(43,507,21,0)="^^4^4^2870820^^"
^DD(43,507,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,507,21,2,0)="the G&L is run and the user elects to search for patients who are"
^DD(43,507,21,3,0)="overdue from returning from Authorized/Unauthorized absence and pass."
^DD(43,507,21,4,0)="If no mailgroup is select no bulletin will be generated."
^DD(43,507,"DT")="2870527"
^DD(43,508,0)="PATIENT DELETED GROUP^P3.8'^XMB(3.8,^NOT;9^Q"
^DD(43,508,21,0)="^^3^3^2870820^"
^DD(43,508,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,508,21,2,0)="a patient is DELETED from the database (PATIENT file).  If no"
^DD(43,508,21,3,0)="local mailgroup is selected no bulletin will be generated."
^DD(43,508,"DT")="2870528"
^DD(43,509,0)="SENSITIVE REC ACCESSED GROUP^P3.8'^XMB(3.8,^NOT;10^Q"
^DD(43,509,21,0)="^^3^3^2870820^"
^DD(43,509,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,509,21,2,0)="a sensitive record is accessed.  If no mailgroup is selected no"
^DD(43,509,21,3,0)="notification will be made however the access will still be recorded."
^DD(43,509,"DT")="2870605"
^DD(43,510,0)="SENSITIVITY REMOVED GROUP^P3.8'^XMB(3.8,^NOT;11^Q"
^DD(43,510,21,0)="^^4^4^2870820^"
^DD(43,510,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,510,21,2,0)="the status of a previously identified sensitive record is changed"
^DD(43,510,21,3,0)="to non-sensitive.  If no mailgroup is selected no notification will"
^DD(43,510,21,4,0)="be made."
^DD(43,510,"DT")="2870605"
^DD(43,511,0)="AUTO RECALC GROUP^P3.8'^XMB(3.8,^NOT;12^Q"
^DD(43,511,3)="Select the name of the mailgroup which should be notified whenever the G&L auto recalc starts and finishes.  If no mailgroup is selected no bulletin will be generated."
^DD(43,511,"DT")="2930312"
^DD(43,512,0)="MEANS TEST REQUIRED GROUP^P3.8'^XMB(3.8,^NOT;13^Q"
^DD(43,512,3)="Enter the name of a mail group."
^DD(43,512,21,0)="^^2^2^2930712^^"
^DD(43,512,21,1,0)="Enter the name of the mail group that will receive the message stating"
^DD(43,512,21,2,0)="a means test is required when an appointment is made."
^DD(43,512,"DT")="2930426"
^DD(43,513,0)="IRT SHORT FORM LIST GROUP^P3.8'^XMB(3.8,^NOT;14^Q"
^DD(43,513,21,0)="^^5^5^2930728^^^"
^DD(43,513,21,1,0)="Select the name of the mailgroup which should be notified whenever"
^DD(43,513,21,2,0)="the IRT Background Job is run, options: (IRT Update Std. Deficiencies and"
^DD(43,513,21,3,0)="IRT Update Std. Def. Background Job), to receive a list of patients that"
^DD(43,513,21,4,0)="have been discharged less than 48 hours from their admission (Short Form).."
^DD(43,513,21,5,0)="If no mailgroup is selected no bulletin will be generated."
^DD(43,513,"DT")="2930712"
^DD(43,600,0)="AMIS 420 STARTED^D^^AMIS;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,600,21,0)="^^1^1^2920212^^"
^DD(43,600,21,1,0)="Date/time generation was started for the AMIS 420."
^DD(43,600,"DT")="2880202"
^DD(43,601,0)="AMIS 420 LAST COMPLETED^D^^AMIS;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,601,3)=""
^DD(43,601,21,0)="^^1^1^2920212^"
^DD(43,601,21,1,0)="Date/time AMIS 420 generation was last completed."
^DD(43,602,0)="AMIS 420 TASK NUMBER^RNJ7,0^^AMIS;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,602,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(43,602,21,0)="^^1^1^2920212^"
^DD(43,602,21,1,0)="System task number assigned to the job for the AMIS 420 generation."
^DD(43,602,"DT")="2880202"
^DD(43,603,0)="AMIS 420 STARTED BY^RP200'^VA(200,^AMIS;4^Q"
^DD(43,603,21,0)="^^1^1^2920212^"
^DD(43,603,21,1,0)="Person/user that ran the generation for the AMIS 420."
^DD(43,603,"DT")="2901017"
^DD(43,604,0)="AMIS 420 RUNNING^RS^0:NO;1:YES;^AMIS;5^Q"
^DD(43,604,21,0)="^^1^1^2920212^^"
^DD(43,604,21,1,0)="Date/time the AMIS 420 is currently running."
^DD(43,604,"DT")="2880202"
^DD(43,605,0)="PERIOD CHECKED^RF^^AMIS;6^K:$L(X)>40!($L(X)<1) X"
^DD(43,605,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(43,605,21,0)="^^1^1^2920212^"
^DD(43,605,21,1,0)="Month and year the MAS Parameters file was checked/edited."
^DD(43,605,"DT")="2880203"
^DD(43,700,0)="RUG BACKGROUND JOB LAST RUN^RD^^RUG;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(43,700,3)="Enter date and time background job was last completed"
^DD(43,700,21,0)="^^2^2^2920212^"
^DD(43,700,21,1,0)="Date/time Resource Utilization Grouper (RUG) background job was"
^DD(43,700,21,2,0)="last run."
^DD(43,700,"DT")="2880108"
^DD(43,701,0)="RUG17 CONVERSION DATE^D^^RUG;2^S %DT=""EX"" D ^%DT S X=Y K:2891002<X!(2881002>X) X"
^DD(43,701,3)="TYPE A DATE BETWEEN 10/2/1988 AND 10/2/1989"
^DD(43,701,21,0)="^^1^1^2920212^"
^DD(43,701,21,1,0)="Date the RUGs were converted to RUG17 methodology."
^DD(43,701,"DT")="2881215"
^DD(43,720,0)="BT CERTIFYING OFFICIAL^P200'^VA(200,^BT;1^Q"
^DD(43,720,3)="Enter the name you want printed on form 70-3542d, if blank the user's name will be printed instead followed by DESIGNEE OF CERTIFYING OFFICIAL.."
^DD(43,720,21,0)="^^4^4^3011001^"
^DD(43,720,21,1,0)="This will be used to print on the 70-3542d form, if the site decides that"
^DD(43,720,21,2,0)="they want to have a set name printed all the time.  If it is left blank then"
^DD(43,720,21,3,0)="the user's name, followed by DESIGNEE OF CERTIFYING OFFICIAL will be"
^DD(43,720,21,4,0)="printed instead of the set name of the certifying official."
^DD(43,720,"DT")="2901017"
^DD(43,721,0)="BT OTHER EXPENSES ASKED^RS^0:NO;1:YES;^BT;2^Q"
^DD(43,721,3)="Enter NO if you do not want the questions ""MEALS & LODGING"" or ""FERRY, BRIDGES, ETC"" questions asked in the Beneficiary Travel Claim Enter/Edit Option."
^DD(43,721,21,0)="^^3^3^2890512^^"
^DD(43,721,21,1,0)="This field will be used to determine whether the ""MEALS & LODGING"" and"
^DD(43,721,21,2,0)="""FERRY, BRIDGES, ETC."" questions are asked in the Beneficiary Travel"
^DD(43,721,21,3,0)="Claim Enter/Edit Option."
^DD(43,721,"DT")="2890512"
^DD(43,722,0)="USE TEMPORARY ADDRESS^S^0:NO;1:YES;^BT;3^Q"
^DD(43,722,21,0)="^^2^2^2920211^"
^DD(43,722,21,1,0)="Do you want the patient's temporary address to be used on scheduling"
^DD(43,722,21,2,0)="letters if one is provided in the PATIENT file?"
^DD(43,722,"DT")="2881228"
^DD(43,723,0)="COREFLS ACTIVE^SXI^1:YES;0:NO;^BT;4^N DGBTX S DGBTX=X S X=""CSLVQ"" X ^%ZOSF(""TEST"") W:'$T ""   ** COREFLS Package CSL V1.0 not installed. **"" S:'$T X=0 S:$T X=DGBTX Q"
^DD(43,723,3)="Enter 'Yes' if using the coreFLS system for vendors."
^DD(43,723,10)=""
^DD(43,723,21,0)="^.001^2^2^3021209^^^^"
^DD(43,723,21,1,0)="This entry determines whether the Bene Travel package prompts for coreFLS"
^DD(43,723,21,2,0)="vendor (ACTIVE - YES) or FMS vendor (ACTIVE - NO)."
^DD(43,723,"DT")="3040818"
^DD(43,800,0)="ROUTINE^43.07^^ROU;0"
^DD(43,800,21,0)="^^1^1^2920212^"
^DD(43,800,21,1,0)="A list of all routines distributed with the MAS DHCP software package."
^DD(43,900,0)="*NAME OF UB82 SIGNER^F^^UB82;1^K:$L(X)>20!($L(X)<2) X"
^DD(43,900,3)="Enter the name of the person responsible for signing this bill as it should appear on the bill from 2-20 characters."
^DD(43,900,21,0)="^^2^2^2920206^"
^DD(43,900,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,900,21,2,0)="with the next release after MAS 5.2."
^DD(43,900,"DT")="2920206"
^DD(43,901,0)="*TITLE OF UB82 SIGNER^F^^UB82;2^K:$L(X)>20!($L(X)<2) X"
^DD(43,901,3)="Enter the title of the person responsible for signing this bill as it should appear on the bill from 2-20 characters."
^DD(43,901,21,0)="^^2^2^2920206^"
^DD(43,901,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,901,21,2,0)="with the next release after MAS 5.2."
^DD(43,901,"DT")="2920206"
^DD(43,902,0)="*CAN REVIEWER AUTHORIZE?^S^0:NO;1:YES;^UB82;3^Q"
^DD(43,902,21,0)="^^2^2^2920206^"
^DD(43,902,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,902,21,2,0)="with the next release after MAS 5.2."
^DD(43,902,"DT")="2920206"
^DD(43,903,0)="*REMARK TO APPEAR ON EACH UB82^F^^UB82;4^K:$L(X)>39!($L(X)<2) X"
^DD(43,903,3)="Enter any facility specific remarks which you would like to print on every UB-82 bill from 2-39 characters.  This field is optional."
^DD(43,903,21,0)="^^2^2^2920206^"
^DD(43,903,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,903,21,2,0)="with the next release after MAS 5.2."
^DD(43,903,"DT")="2920206"
^DD(43,904,0)="*FEDERAL TAX NUMBER^RF^^UB82;5^K:$L(X)>10!($L(X)<10)!'(X?2N1""-""7N) X"
^DD(43,904,3)="Enter the federal tax number for your facility in NN-NNNNNNN format."
^DD(43,904,21,0)="^^2^2^2920206^"
^DD(43,904,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,904,21,2,0)="with the next release after MAS 5.2."
^DD(43,904,"DT")="2920206"
^DD(43,905,0)="*BLUE CROSS/SHIELD PROVIDER #^RF^^UB82;6^K:$L(X)>13!($L(X)<3)!'(X?.ANP) X"
^DD(43,905,3)="Enter the 3-13 character BC/BS Provider Number which will be the default for all billing episodes at this facility."
^DD(43,905,21,0)="^^2^2^2920206^"
^DD(43,905,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,905,21,2,0)="with the next release after MAS 5.2."
^DD(43,905,"DT")="2920206"
^DD(43,906,0)="*UB82 CANCELLATION MAILGROUP^P3.8'^XMB(3.8,^UB82;7^Q"
^DD(43,906,3)="Enter the mail group you want notified whenever a UB-82 is cancelled.  If none is entered no mailman notification will be made."
^DD(43,906,21,0)="^^2^2^2920206^"
^DD(43,906,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,906,21,2,0)="with the next release after MAS 5.2."
^DD(43,906,"DT")="2920206"
^DD(43,907,0)="*BILLING SUPERVISOR NAME^RP200'^VA(200,^UB82;8^Q"
^DD(43,907,21,0)="^^2^2^2920206^"
^DD(43,907,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,907,21,2,0)="with the next release after MAS 5.2."
^DD(43,907,"DT")="2920206"
^DD(43,908,0)="*UB82 DISAPPROVED MAILGROUP^P3.8'^XMB(3.8,^UB82;9^Q"
^DD(43,908,3)="When a UB-82 is disapproved the supervisor and initiator of the bill will be notified.  If you want additional people notified create a mailgroup and specify it here."
^DD(43,908,21,0)="^^2^2^2920206^"
^DD(43,908,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,908,21,2,0)="with the next release after MAS 5.2."
^DD(43,908,"DT")="2920206"
^DD(43,909,0)="*PRINT '001' FOR TOTAL CHARGES^S^0:NO;1:YES;^UB82;10^Q"
^DD(43,909,21,0)="^^2^2^2920206^"
^DD(43,909,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,909,21,2,0)="with the next release after MAS 5.2."
^DD(43,909,"DT")="2920206"
^DD(43,910,0)="*CAN INITIATOR REVIEW?^S^0:NO;1:YES;^UB82;11^Q"
^DD(43,910,3)="Enter 1 or 'YES' if the person who initiates/enters a billing record is also able to review that record."
^DD(43,910,21,0)="^^2^2^2920206^"
^DD(43,910,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,910,21,2,0)="with the next release after MAS 5.2."
^DD(43,910,"DT")="2920206"
^DD(43,911,0)="*AGENT CASHIER MAIL SYMBOL^F^^UB82-1;1^K:$L(X)>25!($L(X)<1) X"
^DD(43,911,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(43,911,21,0)="^^2^2^2920206^"
^DD(43,911,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,911,21,2,0)="with the next release after MAS 5.2."
^DD(43,911,"DT")="2920206"
^DD(43,912,0)="*AGENT CASHIER STREET ADDRESS^F^^UB82-1;2^K:$L(X)>25!($L(X)<1) X"
^DD(43,912,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(43,912,21,0)="^^2^2^2920206^"
^DD(43,912,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,912,21,2,0)="with the next release after MAS 5.2."
^DD(43,912,"DT")="2920206"
^DD(43,913,0)="*AGENT CASHIER CITY^F^^UB82-1;3^K:$L(X)>15!($L(X)<1)!'(X?1.ANP) X"
^DD(43,913,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(43,913,21,0)="^^2^2^2920206^"
^DD(43,913,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,913,21,2,0)="with the next release after MAS 5.2."
^DD(43,913,"DT")="2920206"
^DD(43,914,0)="*AGENT CASHIER STATE^P5'^DIC(5,^UB82-1;4^Q"
^DD(43,914,21,0)="^^2^2^2920206^"
^DD(43,914,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,914,21,2,0)="with the next release after MAS 5.2."
^DD(43,914,"DT")="2920206"
^DD(43,915,0)="*AGENT CASHIER ZIP CODE^F^^UB82-1;5^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(43,915,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(43,915,21,0)="^^2^2^2920206^"
^DD(43,915,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,915,21,2,0)="with the next release after MAS 5.2."
^DD(43,915,"DT")="2920206"
^DD(43,916,0)="*AGENT CASHIER PHONE NUMBER^F^^UB82-1;6^K:$L(X)>25!($L(X)<4) X"
^DD(43,916,3)="ANSWER MUST BE 4-25 CHARACTERS IN LENGTH"
^DD(43,916,21,0)="^^2^2^2920206^"
^DD(43,916,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,916,21,2,0)="with the next release after MAS 5.2."
^DD(43,916,"DT")="2920206"
^DD(43,917,0)="*UB-82 INITIALIZATION NUMBER^RFX^^UB82;12^K:$L(X)>4!($L(X)<4)!'(X?.N)!('+X) X"
^DD(43,917,.1)="UB-82 INITIALIZATION NUMBER"
^DD(43,917,3)="ENTER THE FOUR DIGIT NUMBER (0001-9999) WITH WHICH TO COMMENCE ASSIGNMENT OF UB-82 BILL NUMBERS."
^DD(43,917,21,0)="^^1^1^2920206^^^"
^DD(43,917,21,1,0)="This field is no longer used in determining bill numbers."
^DD(43,917,"DT")="2920206"
^DD(43,918,0)="*UB-82 BILL NUMBER ASSIGNMENT^F^^UB82;13^K:$L(X)>30!($L(X)<1) X"
^DD(43,918,3)="This field is used during bill creation so only one user at a time can create a new bill."
^DD(43,918,21,0)="^^1^1^2920206^^^"
^DD(43,918,21,1,0)="Obsolete field no longer used."
^DD(43,918,"DT")="2920206"
^DD(43,919,0)="*MAS SERVICE POINTER^RP49'^DIC(49,^UB82;14^Q"
^DD(43,919,21,0)="^^2^2^2920206^"
^DD(43,919,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,919,21,2,0)="with the next release after MAS 5.2."
^DD(43,919,"DT")="2920206"
^DD(43,920,0)="*CANCELLATION REMARK FOR FISCA^RF^^UB82-1;7^K:$L(X)>75!($L(X)<3)!'(X?1A.E) X"
^DD(43,920,3)="Enter the 3-75 character remark (reason for cancellation) which will be sent to Fiscal Service every time a bill is cancelled in MAS."
^DD(43,920,21,0)="^^2^2^2920206^^^^"
^DD(43,920,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,920,21,2,0)="with the next release after MAS 5.2."
^DD(43,920,"DT")="2920206"
^DD(43,921,0)="*CAN CLERK ENTER NON-PTF CODES^S^0:NO;1:YES;^UB82;15^Q"
^DD(43,921,3)="Enter '1' or 'Yes' if diagnosis and procedure codes not found in the PTF record may be entered by the billing clerk into a billing record."
^DD(43,921,21,0)="^^6^6^2920302^^^^"
^DD(43,921,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,921,21,2,0)="with the next release of MAS after 5.2."
^DD(43,921,21,3,0)=" "
^DD(43,921,21,4,0)="Answering Yes to this parameter will also allow billing clerks to enter"
^DD(43,921,21,5,0)="CPT and HCPCS codes into the billing record as well as ICD Diagnosis and"
^DD(43,921,21,6,0)="Procedure codes that are not in the corresponding PTF record."
^DD(43,921,"DT")="2920302"
^DD(43,922,0)="*ASK HINQ IN MCCR^S^1:YES;0:NO;^UB82;16^Q"
^DD(43,922,21,0)="^^2^2^2920206^^^"
^DD(43,922,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,922,21,2,0)="with the next release after MAS 5.2."
^DD(43,922,"DT")="2920206"
^DD(43,923,0)="*USE OP CPT SCREEN^S^1:YES;0:NO;^UB82;17^Q"
^DD(43,923,21,0)="^^2^2^2920206^^"
^DD(43,923,21,1,0)="This field has been moved to the IB SITE PARAMETER file.  To be deleted"
^DD(43,923,21,2,0)="with the next release after MAS 5.2."
^DD(43,923,"DT")="2920206"
^DD(43,926,0)="*LAST MEANS TEST CONVERTED^NJ10,0I^^MTC;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,926,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(43,926,21,0)="^^3^3^2920203^^"
^DD(43,926,21,1,0)="Restartable entry point for means test conversion; last patient converted"
^DD(43,926,21,2,0)=" This is a temporary field used during the means test conversion, only."
^DD(43,926,21,3,0)=" Field will be deleted in the following release, MAS 5.3."
^DD(43,926,"DT")="2920203"
^DD(43,927,0)="*DATE MT CONVERSION STARTED^DI^^MTC;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(43,927,21,0)="^^3^3^2920203^^"
^DD(43,927,21,1,0)="Date means test conversion started."
^DD(43,927,21,2,0)=" This is a temporary field used during the means test conversion, only."
^DD(43,927,21,3,0)=" Field will be deleted in the following release, MAS 5.3."
^DD(43,927,"DT")="2920203"
^DD(43,928,0)="*DATE MT CONVERSION COMPLETED^DI^^MTC;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(43,928,21,0)="^^3^3^2920203^"
^DD(43,928,21,1,0)="Date means test conversion completed."
^DD(43,928,21,2,0)=" This is a temporary field used during  the means test conversion, only."
^DD(43,928,21,3,0)=" Field will be deleted in the following release, MAS 5.3."
^DD(43,928,"DT")="2920203"
^DD(43,999,0)="VERSION^NJ6,2^^VERSION;1^K:+X'=X!(X>999)!(X<3.3)!(X?.E1"".""3N.N) X"
^DD(43,999,3)="TYPE A NUMBER BETWEEN 3.3 AND 999"
^DD(43,999,21,0)="^^2^2^2920212^"
^DD(43,999,21,1,0)="The version number assigned to the MAS software package currently"
^DD(43,999,21,2,0)="installed in the system."
^DD(43,999,"DT")="2860527"
^DD(43,1000.01,0)="G&L INITIALIZATION DATE^RD^^G;1^S %DT=""EX"" D ^%DT S X=Y K:3990930<X!(2901001>X) X"
^DD(43,1000.01,3)="TYPE A DATE BETWEEN 10/1/1990 AND 9/30/2099"
^DD(43,1000.01,21,0)="^^4^4^2930510^^^"
^DD(43,1000.01,21,1,0)="Please enter the date on which you wish to initialize your "
^DD(43,1000.01,21,2,0)="Gains & Losses Sheet and Bed Status Report.  The date selected "
^DD(43,1000.01,21,3,0)="must be on or after October 1, 1990. Bed Status statistics will "
^DD(43,1000.01,21,4,0)="be calculated from this date only."
^DD(43,1000.01,"DT")="2930510"
^DD(43,1000.02,0)="SSN FORMAT^RS^1:WHOLE SSN;6:LAST FOUR;^G;2^Q"
^DD(43,1000.02,21,0)="^^4^4^2910618^^^^"
^DD(43,1000.02,21,1,0)="The Gains & Losses Sheet allows printing only the last four "
^DD(43,1000.02,21,2,0)="numbers of the patient's Social Security Number or the entire "
^DD(43,1000.02,21,3,0)="number.  Please determine how you'd like this number to appear "
^DD(43,1000.02,21,4,0)="on your G&L.  "
^DD(43,1000.02,"DT")="2890201"
^DD(43,1000.03,0)="MEANS TEST DISPLAY^RS^1:YES;0:NO;^G;3^Q"
^DD(43,1000.03,21,0)="^^4^4^2901107^^"
^DD(43,1000.03,21,1,0)="This G&L is designed to display current Means Test Status "
^DD(43,1000.03,21,2,0)="(where applicable) if you wish.  Simply respond YES to this "
^DD(43,1000.03,21,3,0)="prompt in order to display this data on your daily Gains "
^DD(43,1000.03,21,4,0)="and Losses Sheet."
^DD(43,1000.03,"DT")="2890201"
^DD(43,1000.04,0)="PATIENT'S TREATING SPECIALTY^RS^1:SHOW;0:DON'T SHOW;^G;4^Q"
^DD(43,1000.04,21,0)="^^5^5^2930420^^^^"
^DD(43,1000.04,21,1,0)="The This field is used for the purpose of determining whether "
^DD(43,1000.04,21,2,0)="or not you wish for the exact Treating Specialty to which a "
^DD(43,1000.04,21,3,0)="patient is assigned to display on the G&L whenever a movement "
^DD(43,1000.04,21,4,0)="is displayed.  The information will appear immediately to the "
^DD(43,1000.04,21,5,0)="right of the assigned ward location.  "
^DD(43,1000.04,"DT")="2890201"
^DD(43,1000.05,0)="TWO/THREE COLUMN DISPLAY^RS^2:TWO;3:THREE;^G;5^Q"
^DD(43,1000.05,21,0)="^^5^5^2901107^^"
^DD(43,1000.05,21,1,0)="Please select whether you wish the patient listing (G&L) "
^DD(43,1000.05,21,2,0)="to display names in a two or three column format.  Certain "
^DD(43,1000.05,21,3,0)="transaction types, i.e., Transfers in/out, will always appear"
^DD(43,1000.05,21,4,0)="as a single column output regardless, however, this feature "
^DD(43,1000.05,21,5,0)="may reduce the amount of paper required to generate this listing."
^DD(43,1000.05,"DT")="2890201"
^DD(43,1000.06,0)="SHOW NON-MOVEMENTS ON G&L^RS^1:YES;0:NO;^G;6^Q"
^DD(43,1000.06,21,0)="^^2^2^2901107^^"
^DD(43,1000.06,21,1,0)="Answer YES should you wish for non-movements, i.e., Treating "
^DD(43,1000.06,21,2,0)="Specialty Change to appear on the G&L otherwise answer NO."
^DD(43,1000.06,"DT")="2890205"
^DD(43,1000.07,0)="RECALCULATE FROM^RDX^^G;7^S %DT=""EX"",%DT(0)=$S($D(^DG(43,DA,""G"")):+^(""G""),1:2901001) D ^%DT K %DT(0) S X=Y K:3990930<X!(2901001>X) X"
^DD(43,1000.07,3)="Enter the earliest date for which recalculation can be run.  Date must be on or after the G&L INITIALIZATION DATE."
^DD(43,1000.07,21,0)="^^9^9^2930510^^^^"
^DD(43,1000.07,21,1,0)="Please enter the date from which you wish to recalculate totals"
^DD(43,1000.07,21,2,0)="which must be on or after the G&L Initialization Date.  The "
^DD(43,1000.07,21,3,0)="purpose of this parameter is to allow you the flexibility "
^DD(43,1000.07,21,4,0)="to maintain an ""old"" initialization date without the worry "
^DD(43,1000.07,21,5,0)="that a correction entered say, for five years ago, "
^DD(43,1000.07,21,6,0)="cause a recalculation process to commence which may take "
^DD(43,1000.07,21,7,0)="days to complete.  It is strongly suggested that recalculation "
^DD(43,1000.07,21,8,0)="always be accomplished for, at a minumum, the current fiscal "
^DD(43,1000.07,21,9,0)="reporting year."
^DD(43,1000.07,"DT")="2930510"
^DD(43,1000.08,0)="COUNT VIETNAM VETS REMAINING^RS^1:YES;0:NO;^G;8^Q"
^DD(43,1000.08,21,0)="^^5^5^2901107^^"
^DD(43,1000.08,21,1,0)="Answer YES if you wish to calculate vietnam era veteran's remaining "
^DD(43,1000.08,21,2,0)="at the end of each day.  If you choose to do so the length "
^DD(43,1000.08,21,3,0)="of processing time may be increased up to 20 minutes per day.  "
^DD(43,1000.08,21,4,0)="Please note that this information is no longer reported "
^DD(43,1000.08,21,5,0)="on any AMIS Segment."
^DD(43,1000.08,"DT")="2890207"
^DD(43,1000.09,0)="COUNT OVER 65'S REMAINING^RS^1:YES;0:NO;^G;9^Q"
^DD(43,1000.09,3)=""
^DD(43,1000.09,21,0)="^^6^6^2901107^^"
^DD(43,1000.09,21,1,0)="Answer YES to the following prompt if you wish to calculate "
^DD(43,1000.09,21,2,0)="patient's over 65 years in age remaining at the end of each "
^DD(43,1000.09,21,3,0)="census date.  If you choose to do so processing time for "
^DD(43,1000.09,21,4,0)="recalculation may be increased up to 30 minutes per date."
^DD(43,1000.09,21,5,0)="Please note that this information is no longer reported "
^DD(43,1000.09,21,6,0)="on any AMIS Segment."
^DD(43,1000.1,0)="DEFAULT TREATING SPECIALTY^R*P45.7'^DIC(45.7,^G;10^S:$D(DGPME) DIC(0)=DIC(0)_""L"" S DIC(""S"")=""I 1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(43,1000.1,12)="Allows laygo if field is edited during v5 conversion"
^DD(43,1000.1,12.1)="S:$D(DGPME) DIC(0)=DIC(0)_""L"" S DIC(""S"")=""I 1"""
^DD(43,1000.1,21,0)="^^8^8^2930527^^^"
^DD(43,1000.1,21,1,0)="Once the system starts collecting Treating Specialty statistics it "
^DD(43,1000.1,21,2,0)="will be necessary to capture those data where a Treating "
^DD(43,1000.1,21,3,0)="Specialty may not have been assigned to a particular patient.  "
^DD(43,1000.1,21,4,0)=" "
^DD(43,1000.1,21,5,0)="Please respond to to this field with the DEFAULT"
^DD(43,1000.1,21,6,0)="Treating Specialty to which you want these statistical data "
^DD(43,1000.1,21,7,0)="associated.  Perhaps one might want to create a Treating "
^DD(43,1000.1,21,8,0)="Specialty called UNKNOWN, UNDEFINED, etc., and utilize this."
^DD(43,1000.1,"DT")="2901107"
^DD(43,1000.11,0)="TSR INITIALIZATION DATE^D^^G;11^S %DT=""EX"" D ^%DT S X=Y K:3991001<X!(2921001>X) X"
^DD(43,1000.11,3)="TYPE A DATE BETWEEN 10/1/1992 AND 10/1/2099"
^DD(43,1000.11,21,0)="^^4^4^2930128^"
^DD(43,1000.11,21,1,0)="Enter the date on which you wish to initialize your Treating Specialty "
^DD(43,1000.11,21,2,0)="Report.  The date selected must be on or after October 1, 1992.  "
^DD(43,1000.11,21,3,0)="The Treating Specialty Report census statistics will be calculated "
^DD(43,1000.11,21,4,0)="from this date."
^DD(43,1000.11,"DT")="2930128"
^DD(43,1100.01,0)="PRE-REGISTRATION SORT^S^P:PATIENT NAME;S:MEDICAL SERVICE;^DGPRE;1^Q"
^DD(43,1100.01,3)="Enter default method for sorting entries in the call list."
^DD(43,1100.01,21,0)="^^1^1^2970108^^^^"
^DD(43,1100.01,21,1,0)="This entry determines the sort order of the call list display"
^DD(43,1100.01,"DT")="2970108"
^DD(43,1100.02,0)="DAYS BETWEEN CALLS^NJ4,0^^DGPRE;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,1100.02,3)="Enter the number of days between when the patient was last called and he can be called again."
^DD(43,1100.02,21,0)="^^5^5^2970109^^"
^DD(43,1100.02,21,1,0)="This field will be used to determine how many days from the latest"
^DD(43,1100.02,21,2,0)="DATE CHANGED Field, #1, in PRE-REGISTRATION AUDIT File, #41.41, before the"
^DD(43,1100.02,21,3,0)="patient will be added to the call list again.  If the patient has another"
^DD(43,1100.02,21,4,0)="appointment within x number of days of the date in the DATE CHANGED field,"
^DD(43,1100.02,21,5,0)="he will not be added."
^DD(43,1100.02,"DT")="2961213"
^DD(43,1100.03,0)="BACKGROUND JOB FUNCTION^S^D:DELETE ALL ENTRIES;P:DELETE CALLED PATIENTS;DA:DELETE ENTRIES AND ADD NEW;PA:DELETE CALLED PATIENTS AND ADD NEW;AO:ADD NEW ENTRIES ONLY;N:NOTHING;^DGPRE;3^Q"
^DD(43,1100.03,3)="Enter the function the background job is to do when run."
^DD(43,1100.03,21,0)="^^5^5^2970401^"
^DD(43,1100.03,21,1,0)="Preregistration nightly background job. This field determines which"
^DD(43,1100.03,21,2,0)="actions the background job performs when run.  Delete removes all entries"
^DD(43,1100.03,21,3,0)="from the call list.  Purge removes only the called patients from the call"
^DD(43,1100.03,21,4,0)="list.  Nothing tells the background job to leave the call list alone. Add,"
^DD(43,1100.03,21,5,0)="just adds entries to the call list, without removing any."
^DD(43,1100.03,"DT")="2970401"
^DD(43,1100.04,0)="DAYS TO MAINTAIN LOG^NJ4,0^^DGPRE;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,1100.04,3)="Enter the number of days to maintain entries in the Call Log. (Call Attempts)"
^DD(43,1100.04,21,0)="^^3^3^2970114^^^^"
^DD(43,1100.04,21,1,0)="This field is the number of days to maintain entries in the"
^DD(43,1100.04,21,2,0)="PRE-REGISTRATION CALL LOG File, #41.43.  All entries before this limit will"
^DD(43,1100.04,21,3,0)="be purged."
^DD(43,1100.04,"DT")="2970109"
^DD(43,1100.05,0)="DAYS TO PULL APPOINTMENT^NJ4,0^^DGPRE;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43,1100.05,3)="Enter the number of days in advance to pull appointments for."
^DD(43,1100.05,21,0)="^^2^2^2970109^^^"
^DD(43,1100.05,21,1,0)="This field sets the number of days in advance to look for appointments"
^DD(43,1100.05,21,2,0)="to pull patients for."
^DD(43,1100.05,"DT")="2970109"
^DD(43,1100.06,0)="RUN FOR WEEKEND^S^1:YES;0:NO;^DGPRE;6^Q"
^DD(43,1100.06,3)="Enter 'Y'es if background job should run on weekends, 'N'o if not."
^DD(43,1100.06,21,0)="^^1^1^2970114^^^"
^DD(43,1100.06,21,1,0)="If this field is 'Y'es, then the background job will run and add on weekends."
^DD(43,1100.06,"DT")="2970114"
^DD(43,1110,0)="CLINIC EXCLUSION^43.04P^^DGPREC;0"
^DD(43,1110,12)="Screen out all hospital locations EXCEPT clinics"
^DD(43,1110,12.1)="S DIC(""S"")=""I $P($G(^SC(Y,0)),U,3)=""""C"""""""
^DD(43,1120,0)="ELIGIBILITY EXCLUSION^43.08P^^DGPREE;0"
^DD(43,1201,0)="RESTRICT PATIENT RECORD ACCESS^S^1:YES;0:NO;^REC;1^Q"
^DD(43,1201,3)="Enter a 1 to restrict user access to their own PATIENT (#2) file record or a 0 to not restrict access."
^DD(43,1201,21,0)="^^3^3^2990104^^"
^DD(43,1201,21,1,0)="If this parameter is set to 1 and the user does not hold the DG RECORD"
^DD(43,1201,21,2,0)="ACCESS security key, they will not be allowed to access their own PATIENT"
^DD(43,1201,21,3,0)="(#2) file record."
^DD(43,1201,"DT")="2990104"
^DD(43,1202,0)="PURPLE HEART SORT^S^A:ASCENDING;D:DESCENDING;^PH;1^Q"
^DD(43,1202,21,0)="^^4^4^3000908^"
^DD(43,1202,21,1,0)="This field should be edited if the local site wants the daily tasked"
^DD(43,1202,21,2,0)="Purple Heart Status Report to be sorted in 'A'scending order by the number"
^DD(43,1202,21,3,0)="of days since the last status update.  By default, the report will sort by"
^DD(43,1202,21,4,0)="descending order."
^DD(43,1202,"DT")="3000908"
^DD(43,1203,0)="NET WORTH CALCULATION^S^0:NO;1:YES;^GMT;1^Q"
^DD(43,1203,21,0)="^.001^5^5^3020822^^^"
^DD(43,1203,21,1,0)="This field is used as a flag to indicate the method to use in determining "
^DD(43,1203,21,2,0)="the veteran's net worth.  If the Net Worth Calculation = ""YES"" then net "
^DD(43,1203,21,3,0)="worth is equal to the veteran's assets minus debts.  If the Net Worth "
^DD(43,1203,21,4,0)="Calculation = ""NO"" then net worth is equal to assets plus income minus "
^DD(43,1203,21,5,0)="debts."
^DD(43,1203,"DT")="3020805"
^DD(43,"B","*AGENT CASHIER CITY",913)=""
^DD(43,"B","*AGENT CASHIER MAIL SYMBOL",911)=""
^DD(43,"B","*AGENT CASHIER PHONE NUMBER",916)=""
^DD(43,"B","*AGENT CASHIER STATE",914)=""
^DD(43,"B","*AGENT CASHIER STREET ADDRESS",912)=""
^DD(43,"B","*AGENT CASHIER ZIP CODE",915)=""
^DD(43,"B","*ASK HINQ IN MCCR",922)=""
^DD(43,"B","*BILLING SUPERVISOR NAME",907)=""
^DD(43,"B","*BLUE CROSS/SHIELD PROVIDER #",905)=""
^DD(43,"B","*CAN CLERK ENTER NON-PTF CODES",921)=""
^DD(43,"B","*CAN INITIATOR REVIEW?",910)=""
^DD(43,"B","*CAN REVIEWER AUTHORIZE?",902)=""
^DD(43,"B","*CANCELLATION REMARK FOR FISCA",920)=""
^DD(43,"B","*CARE COSTS",251)=""
^DD(43,"B","*DATE MT CONVERSION COMPLETED",928)=""
^DD(43,"B","*DATE MT CONVERSION STARTED",927)=""
^DD(43,"B","*FEDERAL TAX NUMBER",904)=""
^DD(43,"B","*HONEYWELL SITE",14)=""
^DD(43,"B","*LAST MEANS TEST CONVERTED",926)=""
^DD(43,"B","*MAS SERVICE POINTER",919)=""
^DD(43,"B","*NAME OF UB82 SIGNER",900)=""
^DD(43,"B","*PRINT '001' FOR TOTAL CHARGES",909)=""
^DD(43,"B","*REMARK TO APPEAR ON EACH UB82",903)=""
^DD(43,"B","*TITLE OF UB82 SIGNER",901)=""
^DD(43,"B","*UB-82 BILL NUMBER ASSIGNMENT",918)=""
^DD(43,"B","*UB-82 INITIALIZATION NUMBER",917)=""
^DD(43,"B","*UB82 CANCELLATION MAILGROUP",906)=""
^DD(43,"B","*UB82 DISAPPROVED MAILGROUP",908)=""
^DD(43,"B","*USE OP CPT SCREEN",923)=""
^DD(43,"B","ABBREVIATED PATIENT INQUIRY?",38)=""
^DD(43,"B","AFFILIATED",13)=""
^DD(43,"B","ALLOW UP-ARROW OUT OF CLASS.",224)=""
^DD(43,"B","AMIS 420 LAST COMPLETED",601)=""
^DD(43,"B","AMIS 420 RUNNING",604)=""
^DD(43,"B","AMIS 420 STARTED",600)=""
^DD(43,"B","AMIS 420 STARTED BY",603)=""
^DD(43,"B","AMIS 420 TASK NUMBER",602)=""
^DD(43,"B","API ERRORS MAIL GROUP",226)=""
^DD(43,"B","API NOTIFICATIONS TO PROCESS",227)=""
^DD(43,"B","APPT SEARCH THRESHOLD",212)=""
^DD(43,"B","APPT. UPDATE MAIL GROUP",215)=""
^DD(43,"B","ASK DEVICE IN REGISTRATION",39)=""
^DD(43,"B","AUTO RECALC BACK TO",60)=""
^DD(43,"B","AUTO RECALC FINISHED",59)=""
^DD(43,"B","AUTO RECALC GROUP",511)=""
^DD(43,"B","AUTO RECALC LAST STARTED",57)=""
^DD(43,"B","AUTOMATIC PTF MESSAGES?",9.6)=""
^DD(43,"B","BACKGROUND JOB FUNCTION",1100.03)=""
^DD(43,"B","BT CERTIFYING OFFICIAL",720)=""
^DD(43,"B","BT OTHER EXPENSES ASKED",721)=""
^DD(43,"B","CHOICE OF DRUG PROFILE TYPE?",44)=""
^DD(43,"B","CLINIC EXCLUSION",1110)=""
^DD(43,"B","CO-PAY SOFTWARE ON?",41)="1"
^DD(43,"B","CONSISTENCY CHECKER ON?",37)=""
^DD(43,"B","CONSISTENCY PURGE LAST RAN",81)=""
^DD(43,"B","CONSISTENCY PURGE STARTED",80)=""
^DD(43,"B","CONSISTENCY REBUILD LAST RAN",83)=""
^DD(43,"B","CONSISTENCY REBUILD STARTED",82)=""
^DD(43,"B","CONSISTENCY UPDATE LAST RAN",85)=""
^DD(43,"B","CONSISTENCY UPDATE STARTED",84)=""
^DD(43,"B","COREFLS ACTIVE",723)=""
^DD(43,"B","COUNT OVER 65'S REMAINING",1000.09)=""
^DD(43,"B","COUNT VIETNAM VETS REMAINING",1000.08)=""
^DD(43,"B","CPU(AUTO RECALC)",58)=""
^DD(43,"B","CPU(RECALC)",56)=""
^DD(43,"B","CREATE MFU FOR RAI MDS",391.7014)=""
^DD(43,"B","CURRENT PIVOT ENTRY",391.701)=""
^DD(43,"B","DATE CHECK OUT REQUIRED",223)=""
^DD(43,"B","DAYS BETWEEN CALLS",1100.02)=""
^DD(43,"B","DAYS TO MAINTAIN G&L CORR",5.5)=""
^DD(43,"B","DAYS TO MAINTAIN LOG",1100.04)=""
^DD(43,"B","DAYS TO MAINTAIN SENSITIVITY",33)=""
^DD(43,"B","DAYS TO PULL APPOINTMENT",1100.05)=""
^DD(43,"B","DAYS TO UPDATE MEDICAID",46)=""
^DD(43,"B","DEATH GROUP",500)=""
^DD(43,"B","DEFAULT CODE SHEET PRINTER",25)=""
^DD(43,"B","DEFAULT EF PRINTER",48)=""
^DD(43,"B","DEFAULT HEALTH SUMMARY",43)=""
^DD(43,"B","DEFAULT PTF MESSAGE PRINTER",9)=""
^DD(43,"B","DEFAULT TREATING SPECIALTY",1000.1)=""
^DD(43,"B","DEFAULT TYPE OF DRUG PROFILE",45)=""
^DD(43,"B","DOMICILIARY WARDS?",16)=""
^DD(43,"B","EARLIEST DATE FOR G&L",10)=""
^DD(43,"B","ELIGIBILITY EXCLUSION",1120)=""
^DD(43,"B","EMBOSSERS ON-LINE",18)=""
^DD(43,"B","EXCLUDE WHICH TERMINAL TYPES?",77)=""
^DD(43,"B","FISCAL YEAR",300)=""
^DD(43,"B","G&L INITIALIZATION DATE",1000.01)=""
^DD(43,"B","G&L LAST RUN",61)=""
^DD(43,"B","G&L STARTED",50)=""
^DD(43,"B","HEMODIALYSIS WARD",3)=""
^DD(43,"B","HONEYWELL SITE",14)="1"
^DD(43,"B","INCONSISTENCY EDIT GROUP",505)=""
^DD(43,"B","IRT BACKGROUND JOB LAST RUN",401)=""
^DD(43,"B","IRT SHORT FORM LIST GROUP",513)=""
^DD(43,"B","LATE ACTIVITY MAIL GROUP",217)=""
^DD(43,"B","MEANS TEST DATA",250)=""
^DD(43,"B","MEANS TEST DISPLAY",1000.03)=""
^DD(43,"B","MEANS TEST REQUIRED GROUP",512)=""
^DD(43,"B","MEDICAL CENTER NAME",12)=""
^DD(43,"B","MULTIDIVISION MED CENTER?",11)=""
^DD(43,"B","NAME CHANGE GROUP",502)=""
^DD(43,"B","NET WORTH CALCULATION",1203)=""
^DD(43,"B","NEW PATIENT GROUP",501)=""
^DD(43,"B","NON-VETERAN ADMIT GROUP",506)=""
^DD(43,"B","NPCDB MAIL GROUP",216)=""
^DD(43,"B","NUMBER",.001)=""
^DD(43,"B","NURSING HOME WARDS?",15)=""
^DD(43,"B","ONE",.01)=""
^DD(43,"B","OVERDUE ABSENCE SEARCH DATE",86)=""
^DD(43,"B","OVERDUE ABSENCES GROUP",507)=""
^DD(43,"B","PATIENT DELETED GROUP",508)=""
^DD(43,"B","PATIENT OR CLINIC",213)=""
^DD(43,"B","PATIENT'S TREATING SPECIALTY",1000.04)=""
^DD(43,"B","PERIOD CHECKED",605)=""
^DD(43,"B","PIVOT FILE DAYS TO RETAIN",391.702)=""
^DD(43,"B","PRE-REGISTRATION SORT",1100.01)=""
^DD(43,"B","PRINT DRUG PROFILES WITH 10-10",8)=""
^DD(43,"B","PRINT ENCOUNTER FORM AT REG.",47)=""
^DD(43,"B","PRINT HEALTH SUMMARY?",42)=""
^DD(43,"B","PRINT PTF MESSAGES?",9.5)=""
^DD(43,"B","PROVIDER CONVERSION",90)=""
^DD(43,"B","PROVIDER CONVERSION LOG",91)=""
^DD(43,"B","PURPLE HEART SORT",1202)=""
^DD(43,"B","RAI INTEGRATED SITE",391.705)=""
^DD(43,"B","RECALC STARTED",52)=""
^DD(43,"B","RECALC UP TO",53)=""
^DD(43,"B","RECALCULATE FROM",1000.07)=""
^DD(43,"B","REGISTRATION TEMPLATE (LOCAL)",70)=""
^DD(43,"B","RESTRICT PATIENT RECORD ACCESS",1201)=""
^DD(43,"B","ROUTINE",800)=""
^DD(43,"B","RUG BACKGROUND JOB LAST RUN",700)=""
^DD(43,"B","RUG17 CONVERSION DATE",701)=""
^DD(43,"B","RUN CO-PAY SOFTWARE?",41)=""
^DD(43,"B","RUN FOR WEEKEND",1100.06)=""
^DD(43,"B","SCHEDULED(RECALC)",55)=""
^DD(43,"B","SCHEDULING ARCHIVE DATE",210)=""
^DD(43,"B","SCHEDULING VERSION",205)=""
^DD(43,"B","SEND PIMS HL7 V2.2 MESSAGES",391.7012)=""
^DD(43,"B","SEND PIMS HL7 V2.3 MESSAGES",391.7013)=""
^DD(43,"B","SENSITIVE REC ACCESSED GROUP",509)=""
^DD(43,"B","SENSITIVITY REMOVED GROUP",510)=""
^DD(43,"B","SHOW NON-MOVEMENTS ON G&L",1000.06)=""
^DD(43,"B","SHOW STATUS SCREEN",34)=""
^DD(43,"B","SSN CHANGE GROUP",503)=""
^DD(43,"B","SSN FORMAT",1000.02)=""
^DD(43,"B","SUPPLEMENTAL 10/10",7)=""
^DD(43,"B","SYSTEM TIMEOUT",4)=""
^DD(43,"B","TIME FOR LATE DISPOSITION",6)=""
^DD(43,"B","TSR INITIALIZATION DATE",1000.11)=""
^DD(43,"B","TWO/THREE COLUMN DISPLAY",1000.05)=""
^DD(43,"B","UB-82 INITIALIZATION NUMBER",917)="1"
^DD(43,"B","UNVERIFIED ADMIT GROUP",504)=""
^DD(43,"B","USE CLOSEST PRINTER",19)=""
^DD(43,"B","USE HIGH INTENSITY ON SCREENS?",76)=""
^DD(43,"B","USE HINQ INQUIRY?",17)=""
^DD(43,"B","USE TEMPORARY ADDRESS",722)=""
^DD(43,"B","VERSION",999)=""
^DD(43,"B","VIEW CHECK OUT INFO DEFAULT",32)=""
^DD(43,"B","ZTSK(RECALC)",54)=""
^DD(43,"GL",0,1,.01)=""
^DD(43,"GL",0,4,3)=""
^DD(43,"GL",0,5,4)=""
^DD(43,"GL",0,7,6)=""
^DD(43,"GL",0,8,7)=""
^DD(43,"GL",0,17,8)=""
^DD(43,"GL",0,19,9)=""
^DD(43,"GL",0,20,15)=""
^DD(43,"GL",0,21,16)=""
^DD(43,"GL",0,25,25)=""
^DD(43,"GL",0,27,17)=""
^DD(43,"GL",0,28,18)=""
^DD(43,"GL",0,29,5.5)=""
^DD(43,"GL",0,30,19)=""
^DD(43,"GL",0,31,9.5)=""
^DD(43,"GL",0,32,32)=""
^DD(43,"GL",0,33,33)=""
^DD(43,"GL",0,34,34)=""
^DD(43,"GL",0,35,70)=""
^DD(43,"GL",0,36,76)=""
^DD(43,"GL",0,37,37)=""
^DD(43,"GL",0,38,38)=""
^DD(43,"GL",0,39,39)=""
^DD(43,"GL",0,40,9.6)=""
^DD(43,"GL",0,41,41)=""
^DD(43,"GL",0,42,42)=""
^DD(43,"GL",0,43,43)=""
^DD(43,"GL",0,44,44)=""
^DD(43,"GL",0,45,45)=""
^DD(43,"GL",0,46,46)=""
^DD(43,"GL",0,47,47)=""
^DD(43,"GL",0,48,48)=""
^DD(43,"GL","AMIS",1,600)=""
^DD(43,"GL","AMIS",2,601)=""
^DD(43,"GL","AMIS",3,602)=""
^DD(43,"GL","AMIS",4,603)=""
^DD(43,"GL","AMIS",5,604)=""
^DD(43,"GL","AMIS",6,605)=""
^DD(43,"GL","BT",1,720)=""
^DD(43,"GL","BT",2,721)=""
^DD(43,"GL","BT",3,722)=""
^DD(43,"GL","BT",4,723)=""
^DD(43,"GL","CON",1,80)=""
^DD(43,"GL","CON",2,81)=""
^DD(43,"GL","CON",3,82)=""
^DD(43,"GL","CON",4,83)=""
^DD(43,"GL","CON",5,84)=""
^DD(43,"GL","CON",6,85)=""
^DD(43,"GL","CON",7,86)=""
^DD(43,"GL","DGPRE",1,1100.01)=""
^DD(43,"GL","DGPRE",2,1100.02)=""
^DD(43,"GL","DGPRE",3,1100.03)=""
^DD(43,"GL","DGPRE",4,1100.04)=""
^DD(43,"GL","DGPRE",5,1100.05)=""
^DD(43,"GL","DGPRE",6,1100.06)=""
^DD(43,"GL","DGPREC",0,1110)=""
^DD(43,"GL","DGPREE",0,1120)=""
^DD(43,"GL","FY",0,300)=""
^DD(43,"GL","G",1,1000.01)=""
^DD(43,"GL","G",2,1000.02)=""
^DD(43,"GL","G",3,1000.03)=""
^DD(43,"GL","G",4,1000.04)=""
^DD(43,"GL","G",5,1000.05)=""
^DD(43,"GL","G",6,1000.06)=""
^DD(43,"GL","G",7,1000.07)=""
^DD(43,"GL","G",8,1000.08)=""
^DD(43,"GL","G",9,1000.09)=""
^DD(43,"GL","G",10,1000.1)=""
^DD(43,"GL","G",11,1000.11)=""
^DD(43,"GL","GL",1,10)=""
^DD(43,"GL","GL",2,11)=""
^DD(43,"GL","GL",3,12)=""
^DD(43,"GL","GL",4,13)=""
^DD(43,"GL","GLS",1,50)=""
^DD(43,"GL","GLS",2,52)=""
^DD(43,"GL","GLS",3,53)=""
^DD(43,"GL","GLS",4,54)=""
^DD(43,"GL","GLS",5,55)=""
^DD(43,"GL","GLS",6,56)=""
^DD(43,"GL","GLS",7,57)=""
^DD(43,"GL","GLS",8,58)=""
^DD(43,"GL","GLS",9,59)=""
^DD(43,"GL","GLS",10,60)=""
^DD(43,"GL","GLS",11,61)=""
^DD(43,"GL","GMT",1,1203)=""
^DD(43,"GL","H",1,14)=""
^DD(43,"GL","HL7",1,391.701)=""
^DD(43,"GL","HL7",2,391.7012)=""
^DD(43,"GL","HL7",3,391.7013)=""
^DD(43,"GL","HL7",4,391.7014)=""
^DD(43,"GL","HL7",5,391.705)=""
^DD(43,"GL","HL7",6,391.702)=""
^DD(43,"GL","IRT",1,401)=""
^DD(43,"GL","MT",0,250)=""
^DD(43,"GL","MT1",0,251)=""
^DD(43,"GL","MTC",1,926)=""
^DD(43,"GL","MTC",2,927)=""
^DD(43,"GL","MTC",3,928)=""
^DD(43,"GL","NOT",1,500)=""
^DD(43,"GL","NOT",2,501)=""
^DD(43,"GL","NOT",3,502)=""
^DD(43,"GL","NOT",4,503)=""
^DD(43,"GL","NOT",5,504)=""
^DD(43,"GL","NOT",6,505)=""
^DD(43,"GL","NOT",7,506)=""
^DD(43,"GL","NOT",8,507)=""
^DD(43,"GL","NOT",9,508)=""
^DD(43,"GL","NOT",10,509)=""
^DD(43,"GL","NOT",11,510)=""
^DD(43,"GL","NOT",12,511)=""
^DD(43,"GL","NOT",13,512)=""
^DD(43,"GL","NOT",14,513)=""
^DD(43,"GL","PCL",0,91)=""
^DD(43,"GL","PCON",0,90)=""
^DD(43,"GL","PH",1,1202)=""
^DD(43,"GL","REC",1,1201)=""
^DD(43,"GL","ROU",0,800)=""
^DD(43,"GL","RUG",1,700)=""
^DD(43,"GL","RUG",2,701)=""
^DD(43,"GL","SCLR",5,205)=""
^DD(43,"GL","SCLR",12,212)=""
^DD(43,"GL","SCLR",13,213)=""
^DD(43,"GL","SCLR",15,215)=""
^DD(43,"GL","SCLR",16,216)=""
^DD(43,"GL","SCLR",17,217)=""
^DD(43,"GL","SCLR",23,223)=""
^DD(43,"GL","SCLR",24,224)=""
^DD(43,"GL","SCLR",26,226)=""
^DD(43,"GL","SCLR",27,227)=""
^DD(43,"GL","SDAR",0,210)=""
^DD(43,"GL","TERM",0,77)=""
^DD(43,"GL","UB82",1,900)=""
^DD(43,"GL","UB82",2,901)=""
^DD(43,"GL","UB82",3,902)=""
^DD(43,"GL","UB82",4,903)=""
^DD(43,"GL","UB82",5,904)=""
^DD(43,"GL","UB82",6,905)=""
^DD(43,"GL","UB82",7,906)=""
^DD(43,"GL","UB82",8,907)=""
^DD(43,"GL","UB82",9,908)=""
^DD(43,"GL","UB82",10,909)=""
^DD(43,"GL","UB82",11,910)=""
^DD(43,"GL","UB82",12,917)=""
^DD(43,"GL","UB82",13,918)=""
^DD(43,"GL","UB82",14,919)=""
^DD(43,"GL","UB82",15,921)=""
^DD(43,"GL","UB82",16,922)=""
^DD(43,"GL","UB82",17,923)=""
^DD(43,"GL","UB82-1",1,911)=""
^DD(43,"GL","UB82-1",2,912)=""
^DD(43,"GL","UB82-1",3,913)=""
^DD(43,"GL","UB82-1",4,914)=""
^DD(43,"GL","UB82-1",5,915)=""
^DD(43,"GL","UB82-1",6,916)=""
^DD(43,"GL","UB82-1",7,920)=""
^DD(43,"GL","VERSION",1,999)=""
^DD(43,"IX",.01)=""
^DD(43,"RQ",.01)=""
^DD(43,"RQ",6)=""
^DD(43,"RQ",11)=""
^DD(43,"RQ",12)=""
^DD(43,"RQ",13)=""
^DD(43,"RQ",32)=""
^DD(43,"RQ",34)=""
^DD(43,"RQ",41)=""
^DD(43,"RQ",86)=""
^DD(43,"RQ",223)=""
^DD(43,"RQ",391.701)=""
^DD(43,"RQ",602)=""
^DD(43,"RQ",603)=""
^DD(43,"RQ",604)=""
^DD(43,"RQ",605)=""
^DD(43,"RQ",700)=""
^DD(43,"RQ",721)=""
^DD(43,"RQ",904)=""
^DD(43,"RQ",905)=""
^DD(43,"RQ",907)=""
^DD(43,"RQ",917)=""
^DD(43,"RQ",919)=""
^DD(43,"RQ",920)=""
^DD(43,"RQ",1000.01)=""
^DD(43,"RQ",1000.02)=""
^DD(43,"RQ",1000.03)=""
^DD(43,"RQ",1000.04)=""
^DD(43,"RQ",1000.05)=""
^DD(43,"RQ",1000.06)=""
^DD(43,"RQ",1000.07)=""
^DD(43,"RQ",1000.08)=""
^DD(43,"RQ",1000.09)=""
^DD(43,"RQ",1000.1)=""
^DD(43,"SB",43.01,251)=""
^DD(43,"SB",43.02,90)=""
^DD(43,"SB",43.03,250)=""
^DD(43,"SB",43.04,1110)=""
^DD(43,"SB",43.05,210)=""
^DD(43,"SB",43.06,300)=""
^DD(43,"SB",43.07,800)=""
^DD(43,"SB",43.077,77)=""
^DD(43,"SB",43.08,1120)=""
^DD(43,"SB",43.091,91)=""
^DD(43.01,0)="*CARE COSTS SUB-FIELD^^12^12"
^DD(43.01,0,"IX","AB",43.01,.01)=""
^DD(43.01,0,"IX","AC",43.01,7)=""
^DD(43.01,0,"NM","*CARE COSTS")=""
^DD(43.01,0,"UP")="43"
^DD(43.01,.01,0)="*EFFECTIVE DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X I $D(^DG(43,DA(1),""MT1"",""AB"",$E(X,1,5))) K:$N(^($E(X,1,5),0))'=DA X,DINUM"
^DD(43.01,.01,1,0)="^.1"
^DD(43.01,.01,1,1,0)="43.01^AB^MUMPS"
^DD(43.01,.01,1,1,1)="S ^DG(43,DA(1),""MT1"",""AB"",$E(X,1,5),DA)="""""
^DD(43.01,.01,1,1,2)="K ^DG(43,DA(1),""MT1"",""AB"",$E(X,1,5))"
^DD(43.01,.01,3)="Enter Effective date of VA care costs"
^DD(43.01,.01,21,0)="^^4^4^2920302^^"
^DD(43.01,.01,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,.01,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,.01,21,3,0)=" "
^DD(43.01,.01,21,4,0)="Effective date of the treating Service charges"
^DD(43.01,.01,"DT")="2920302"
^DD(43.01,2,0)="*OPT FEE^NJ7,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,2,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,2,21,0)="^^4^4^2920302^^"
^DD(43.01,2,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,2,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,2,21,3,0)=" "
^DD(43.01,2,21,4,0)="Charge for an outpatient visit at a VA facility."
^DD(43.01,2,"DT")="2920302"
^DD(43.01,3,0)="*MEDICINE (1 DAY)^NJ7,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,3,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,3,21,0)="^^4^4^2920302^^"
^DD(43.01,3,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,3,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,3,21,3,0)=" "
^DD(43.01,3,21,4,0)="Charge for a one-day stay on a Medicine ward at a VA facility."
^DD(43.01,3,"DT")="2920302"
^DD(43.01,4,0)="*SURGERY (1 DAY)^NJ7,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,4,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,4,21,0)="^^4^4^2920302^^"
^DD(43.01,4,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,4,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,4,21,3,0)=" "
^DD(43.01,4,21,4,0)="Charge for a one-day stay on a Surgical ward at a VA facility."
^DD(43.01,4,"DT")="2920302"
^DD(43.01,5,0)="*SPINAL CORD INJURY (1 DAY)^NJ7,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,5,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,5,21,0)="^^5^5^2920302^^"
^DD(43.01,5,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,5,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,5,21,3,0)=" "
^DD(43.01,5,21,4,0)="Charge for a one-day stay on a Spinal Cord Injury ward at a VA"
^DD(43.01,5,21,5,0)="facility."
^DD(43.01,5,"DT")="2920302"
^DD(43.01,6,0)="*PSYCHIATRY (1 DAY)^NJ7,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,6,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,6,21,0)="^^4^4^2920302^^"
^DD(43.01,6,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,6,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,6,21,3,0)=" "
^DD(43.01,6,21,4,0)="Charge for a one-day stay on a Psychiatry ward at a VA facility."
^DD(43.01,6,"DT")="2920302"
^DD(43.01,7,0)="*VA NHCU (1 DAY)^NJ7,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,7,1,0)="^.1"
^DD(43.01,7,1,1,0)="43.01^AC^MUMPS"
^DD(43.01,7,1,1,1)="Q"
^DD(43.01,7,1,1,2)="Q"
^DD(43.01,7,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,7,21,0)="^^4^4^2920302^^"
^DD(43.01,7,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,7,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,7,21,3,0)=" "
^DD(43.01,7,21,4,0)="Charge for a one-day stay in a VA Nursing Home Care Unit."
^DD(43.01,7,"DT")="2920302"
^DD(43.01,8,0)="*INTERMEDIATE CARE (1 DAY)^NJ7,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,8,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,8,21,0)="^^5^5^2920302^^"
^DD(43.01,8,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,8,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,8,21,3,0)=" "
^DD(43.01,8,21,4,0)="Charge for a one-day stay in an Intermediate Care ward at a VA"
^DD(43.01,8,21,5,0)="facility."
^DD(43.01,8,"DT")="2920302"
^DD(43.01,9,0)="*REHAB MEDICINE^NJ7,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,9,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,9,21,0)="^^5^5^2920302^^"
^DD(43.01,9,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,9,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,9,21,3,0)=" "
^DD(43.01,9,21,4,0)="Charge for a one-day stay in a Rehabilitation Medicine ward at a"
^DD(43.01,9,21,5,0)="VA facility."
^DD(43.01,9,"DT")="2920302"
^DD(43.01,10,0)="*BLIND REHAB^NJ7,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,10,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,10,21,0)="^^5^5^2920302^^"
^DD(43.01,10,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,10,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,10,21,3,0)=" "
^DD(43.01,10,21,4,0)="Charge for a one-day stay in a Blind Rehabilitation ward at a VA"
^DD(43.01,10,21,5,0)="facility."
^DD(43.01,10,"DT")="2920302"
^DD(43.01,11,0)="*NEUROLOGY^NJ7,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,11,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,11,21,0)="^^4^4^2920302^^"
^DD(43.01,11,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,11,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,11,21,3,0)=" "
^DD(43.01,11,21,4,0)="Charge for a one-day stay on a Neurology ward at a VA facility."
^DD(43.01,11,"DT")="2920302"
^DD(43.01,12,0)="*ALCOHOL & DRUG TREATMENT^NJ7,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.01,12,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.01,12,21,0)="^^5^5^2920302^^"
^DD(43.01,12,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.01,12,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.01,12,21,3,0)=" "
^DD(43.01,12,21,4,0)="Charge for a hospital stay in an Alcohol & Drug Treatment program"
^DD(43.01,12,21,5,0)="at a VA facility."
^DD(43.01,12,"DT")="2920302"
^DD(43.01,"B","*ALCOHOL & DRUG TREATMENT",12)=""
^DD(43.01,"B","*BLIND REHAB",10)=""
^DD(43.01,"B","*EFFECTIVE DATE",.01)=""
^DD(43.01,"B","*INTERMEDIATE CARE (1 DAY)",8)=""
^DD(43.01,"B","*MEDICINE (1 DAY)",3)=""
^DD(43.01,"B","*NEUROLOGY",11)=""
^DD(43.01,"B","*OPT FEE",2)=""
^DD(43.01,"B","*PSYCHIATRY (1 DAY)",6)=""
^DD(43.01,"B","*REHAB MEDICINE",9)=""
^DD(43.01,"B","*SPINAL CORD INJURY (1 DAY)",5)=""
^DD(43.01,"B","*SURGERY (1 DAY)",4)=""
^DD(43.01,"B","*VA NHCU (1 DAY)",7)=""
^DD(43.01,"GL",0,1,.01)=""
^DD(43.01,"GL",0,2,2)=""
^DD(43.01,"GL",0,3,3)=""
^DD(43.01,"GL",0,4,4)=""
^DD(43.01,"GL",0,5,5)=""
^DD(43.01,"GL",0,6,6)=""
^DD(43.01,"GL",0,7,7)=""
^DD(43.01,"GL",0,8,8)=""
^DD(43.01,"GL",0,9,9)=""
^DD(43.01,"GL",0,10,10)=""
^DD(43.01,"GL",0,11,11)=""
^DD(43.01,"GL",0,12,12)=""
^DD(43.01,"IX",.01)=""
^DD(43.01,"IX",7)=""
^DD(43.02,0)="PROVIDER CONVERSION SUB-FIELD^^.1^10"
^DD(43.02,0,"DT")="2930119"
^DD(43.02,0,"IX","B",43.02,.01)=""
^DD(43.02,0,"NM","PROVIDER CONVERSION")=""
^DD(43.02,0,"UP")="43"
^DD(43.02,.01,0)="PROVIDER CONVERSION^NJ5,1^^0;1^K:+X'=X!(X>405)!(X<2)!(X?.E1"".""2N.N) X"
^DD(43.02,.01,1,0)="^.1"
^DD(43.02,.01,1,1,0)="43.02^B"
^DD(43.02,.01,1,1,1)="S ^DG(43,DA(1),""PCON"",""B"",$E(X,1,30),DA)="""""
^DD(43.02,.01,1,1,2)="K ^DG(43,DA(1),""PCON"",""B"",$E(X,1,30),DA)"
^DD(43.02,.01,3)="Type a Number between 2 and 405, 1 Decimal Digit"
^DD(43.02,.01,21,0)="^^1^1^2930728^"
^DD(43.02,.01,21,1,0)="The data in this field indicates which file is being processed."
^DD(43.02,.01,"DT")="2930113"
^DD(43.02,.02,0)="START TIME^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(43.02,.02,21,0)="^^1^1^2930728^"
^DD(43.02,.02,21,1,0)="The date/time in this field indicates the start time for the conversion."
^DD(43.02,.02,"DT")="2930113"
^DD(43.02,.03,0)="END TIME^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(43.02,.03,21,0)="^^2^2^2930728^"
^DD(43.02,.03,21,1,0)="The date/time in this field indicates the completion time for the provider"
^DD(43.02,.03,21,2,0)="conversion."
^DD(43.02,.03,"DT")="2930113"
^DD(43.02,.04,0)="CURRENT ENTRY^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(43.02,.04,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(43.02,.04,21,0)="^^1^1^2930728^"
^DD(43.02,.04,21,1,0)="The field contains the IFN of the current entry being processed."
^DD(43.02,.04,"DT")="2930113"
^DD(43.02,.05,0)="NODE^F^^0;5^K:$L(X)>5!($L(X)<1) X"
^DD(43.02,.05,3)="Answer must be 1-5 characters in length."
^DD(43.02,.05,21,0)="^^2^2^2930728^"
^DD(43.02,.05,21,1,0)="The data in this field indicates on which node the data that requires"
^DD(43.02,.05,21,2,0)="conversion can be found."
^DD(43.02,.05,23,0)="^^1^1^2930728^"
^DD(43.02,.05,23,1,0)=" "
^DD(43.02,.05,"DT")="2930119"
^DD(43.02,.06,0)="FILE CONVERTED^S^Y:YES;N:NO;^0;6^Q"
^DD(43.02,.06,21,0)="^^1^1^2930728^"
^DD(43.02,.06,21,1,0)="The field indicates if the file has been converted."
^DD(43.02,.06,"DT")="2930113"
^DD(43.02,.07,0)="TOTAL ENTRIES CONVERTED^NJ10,0^^0;7^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(43.02,.07,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(43.02,.07,21,0)="^^2^2^2930728^"
^DD(43.02,.07,21,1,0)="The field contains the total number of entries converted during"
^DD(43.02,.07,21,2,0)="the provider conversion."
^DD(43.02,.07,"DT")="2930113"
^DD(43.02,.08,0)="MULITPLE ENTRY^F^^0;8^K:$L(X)>5!($L(X)<1) X"
^DD(43.02,.08,3)="Answer must be 1-5 characters in length."
^DD(43.02,.08,21,0)="^^1^1^2930728^"
^DD(43.02,.08,21,1,0)="This field is used to identify which multiple entry is being converted."
^DD(43.02,.08,"DT")="2930119"
^DD(43.02,.09,0)="SEQUENCE^NJ4,0^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(43.02,.09,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(43.02,.09,21,0)="^^1^1^2930728^"
^DD(43.02,.09,21,1,0)="This field is used to identify the current record being processed."
^DD(43.02,.09,"DT")="2930119"
^DD(43.02,.1,0)="PRE CONVERSION POINTER^F^^0;10^K:$L(X)>20!($L(X)<1) X"
^DD(43.02,.1,3)="Answer must be 1-20 characters in length."
^DD(43.02,.1,21,0)="^^1^1^2930728^"
^DD(43.02,.1,21,1,0)="The data in this field is the pointer value prior to the conversion."
^DD(43.02,.1,"DT")="2930119"
^DD(43.02,"B","CURRENT ENTRY",.04)=""
^DD(43.02,"B","END TIME",.03)=""
^DD(43.02,"B","FILE CONVERTED",.06)=""
^DD(43.02,"B","MULITPLE ENTRY",.08)=""
^DD(43.02,"B","NODE",.05)=""
^DD(43.02,"B","PRE CONVERSION POINTER",.1)=""
^DD(43.02,"B","PROVIDER CONVERSION",.01)=""
^DD(43.02,"B","SEQUENCE",.09)=""
^DD(43.02,"B","START TIME",.02)=""
^DD(43.02,"B","TOTAL ENTRIES CONVERTED",.07)=""
^DD(43.02,"GL",0,1,.01)=""
^DD(43.02,"GL",0,2,.02)=""
^DD(43.02,"GL",0,3,.03)=""
^DD(43.02,"GL",0,4,.04)=""
^DD(43.02,"GL",0,5,.05)=""
^DD(43.02,"GL",0,6,.06)=""
^DD(43.02,"GL",0,7,.07)=""
^DD(43.02,"GL",0,8,.08)=""
^DD(43.02,"GL",0,9,.09)=""
^DD(43.02,"GL",0,10,.1)=""
^DD(43.02,"IX",.01)=""
^DD(43.03,0)="MEANS TEST DATA SUB-FIELD^^17^17"
^DD(43.03,0,"DT")="2920330"
^DD(43.03,0,"NM","MEANS TEST DATA")=""
^DD(43.03,0,"UP")="43"
^DD(43.03,.01,0)="MEANS TEST DATA^DXI^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,3)_""0000"",DINUM=X"
^DD(43.03,.01,3)="Enter in this field the year of the means test income category thresholds, property threshold and child income exclusion."
^DD(43.03,.01,21,0)="^^4^4^2920330^^^"
^DD(43.03,.01,21,1,0)="Enter in this field the year of the means test income category"
^DD(43.03,.01,21,2,0)="thresholds, property threshold and child income exclusion.  These"
^DD(43.03,.01,21,3,0)="figures are released annually.  They are effective on January"
^DD(43.03,.01,21,4,0)="1st and are applied to the previous year income."
^DD(43.03,.01,"DT")="3071207"
^DD(43.03,2,0)="MT COPAY EXEMPT VET INCOME^NJ8,2I^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.03,2,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.03,2,21,0)="^^4^4^3030228^"
^DD(43.03,2,21,1,0)="Enter in this field the threshold for MT COPAY EXEMPT.  This amount"
^DD(43.03,2,21,2,0)="represents the income level for the previous calendar year.  This"
^DD(43.03,2,21,3,0)="amount plus any additional amounts for dependents represents the"
^DD(43.03,2,21,4,0)="income level under which the veteran will be placed in MT COPAY EXEMPT."
^DD(43.03,2,"DT")="3071207"
^DD(43.03,3,0)="MT COPAY EXEMPT 1ST DEP INCOME^NJ8,2I^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.03,3,.1)=""
^DD(43.03,3,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.03,3,21,0)="^.001^3^3^3030228^^^^"
^DD(43.03,3,21,1,0)="Enter in this field the first dependent income increment.  This"
^DD(43.03,3,21,2,0)="amount represents the additional amount of income for the first"
^DD(43.03,3,21,3,0)="dependent for this category."
^DD(43.03,3,"DT")="3071207"
^DD(43.03,4,0)="MT COPAY EXEMPT INCOME PER DEP^NJ8,2I^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.03,4,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.03,4,21,0)="^.001^3^3^3030228^^^^"
^DD(43.03,4,21,1,0)="Enter in this field the income increment for each dependent"
^DD(43.03,4,21,2,0)="after the first.  This amount represents the additional amount"
^DD(43.03,4,21,3,0)="of income for each dependent after the first for this category."
^DD(43.03,4,"DT")="3071207"
^DD(43.03,5,0)="CAT B VET INCOME^NJ8,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.03,5,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.03,5,21,0)="^^4^4^2920330^^"
^DD(43.03,5,21,1,0)="Enter in this field the threshold for Category B.  This amount"
^DD(43.03,5,21,2,0)="represents the income level for the previous calendar year.  This"
^DD(43.03,5,21,3,0)="amount plus any additional amounts for dependents represents the"
^DD(43.03,5,21,4,0)="income level under which the veteran will be placed in Catefory B."
^DD(43.03,5,"DT")="2920330"
^DD(43.03,6,0)="CAT B FIRST DEPENDENT INCOME^NJ8,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.03,6,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.03,6,21,0)="^^3^3^2920330^^^"
^DD(43.03,6,21,1,0)="Enter in this field the first dependent income increment.  This"
^DD(43.03,6,21,2,0)="amount represents the additional amount of income for the first"
^DD(43.03,6,21,3,0)="dependent for this category."
^DD(43.03,6,"DT")="2920330"
^DD(43.03,7,0)="CAT B INCOME PER DEPENDENT^NJ8,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.03,7,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.03,7,21,0)="^^3^3^2920330^^"
^DD(43.03,7,21,1,0)="Enter in this field the income increment for each dependent"
^DD(43.03,7,21,2,0)="after the first.  This amount represents the additional amount"
^DD(43.03,7,21,3,0)="of income for each dependent after the first for this category."
^DD(43.03,7,"DT")="2920212"
^DD(43.03,8,0)="THRESHOLD PROPERTY^NJ9,2I^^0;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(43.03,8,3)="Enter Property Amount over which patient would be considered Category C"
^DD(43.03,8,21,0)="^^7^7^2920330^^^"
^DD(43.03,8,21,1,0)="Enter in this field the property threshold.  This amount represents"
^DD(43.03,8,21,2,0)="the property threshold for the previous celendar year.  If the"
^DD(43.03,8,21,3,0)="veteran's total income plus total net worth exceeds the property"
^DD(43.03,8,21,4,0)="threshold, the case can be sent to adjudication.  In adjudication"
^DD(43.03,8,21,5,0)="the case is reviewed for Category C consideration.  Note, this only"
^DD(43.03,8,21,6,0)="applies to veteran's whose income places them in a 'mandatory' category"
^DD(43.03,8,21,7,0)="of care."
^DD(43.03,8,"DT")="3071207"
^DD(43.03,9,0)="*MEDICARE DEDUCTIBLE^NJ7,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,9,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.03,9,21,0)="^^5^5^2920302^^"
^DD(43.03,9,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,9,21,2,0)="deleted with the next release of MAS after 5.2. "
^DD(43.03,9,21,3,0)="Dollar amount Medicare allows for a deductible for eligible"
^DD(43.03,9,21,4,0)="beneficiaries.  VA charges are based on this deductible for veterans"
^DD(43.03,9,21,5,0)="falling into Category C."
^DD(43.03,9,"DT")="2920302"
^DD(43.03,10,0)="*OUTPATIENT FEE^NJ7,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,10,3)="Amount that CAT C patient has to pay for outpatient visit"
^DD(43.03,10,21,0)="^^4^4^2920302^^^"
^DD(43.03,10,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,10,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.03,10,21,3,0)=" "
^DD(43.03,10,21,4,0)="Charge for an outpatient visit to a VA facility."
^DD(43.03,10,"DT")="2920302"
^DD(43.03,11,0)="*MEDICINE (1 DAY)^NJ7,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,11,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.03,11,21,0)="^^4^4^2920302^^"
^DD(43.03,11,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,11,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.03,11,21,3,0)=" "
^DD(43.03,11,21,4,0)="Charge for a one-day stay on a Medicine ward at a VA facility."
^DD(43.03,11,"DT")="2920302"
^DD(43.03,12,0)="*SURGERY (1 DAY)^NJ7,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,12,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.03,12,21,0)="^^4^4^2920302^^"
^DD(43.03,12,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,12,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.03,12,21,3,0)=" "
^DD(43.03,12,21,4,0)="Charge for a one-day stay on a Surgical ward at a VA facility."
^DD(43.03,12,"DT")="2920302"
^DD(43.03,13,0)="*SPINAL CORD INJURY (1 DAY)^NJ7,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,13,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.03,13,21,0)="^^5^5^2920302^^"
^DD(43.03,13,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,13,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.03,13,21,3,0)=" "
^DD(43.03,13,21,4,0)="Charge for a one-day stay on a Spinal Cord Injury ward at a VA"
^DD(43.03,13,21,5,0)="facility."
^DD(43.03,13,"DT")="2920302"
^DD(43.03,14,0)="*PSYCHIATRY (1 DAY)^NJ7,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,14,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.03,14,21,0)="^^4^4^2920302^^"
^DD(43.03,14,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,14,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.03,14,21,3,0)=" "
^DD(43.03,14,21,4,0)="Charge for a one-day stay on a Psychiatry ward at a VA facility."
^DD(43.03,14,"DT")="2920302"
^DD(43.03,15,0)="*VA NHCU(1 DAY)^NJ7,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,15,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.03,15,21,0)="^^5^5^2920302^^"
^DD(43.03,15,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,15,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.03,15,21,3,0)=" "
^DD(43.03,15,21,4,0)="Charge for a one-day stay in a Nursing Home Care Unit at a VA"
^DD(43.03,15,21,5,0)="facility."
^DD(43.03,15,"DT")="2920302"
^DD(43.03,16,0)="*DOM (1 DAY)^NJ7,2^^0;16^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<0) X"
^DD(43.03,16,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(43.03,16,21,0)="^^4^4^2920302^^"
^DD(43.03,16,21,1,0)="This data is now stored in Integrated Billing.  This field to be"
^DD(43.03,16,21,2,0)="deleted with the next release of MAS after 5.2."
^DD(43.03,16,21,3,0)=" "
^DD(43.03,16,21,4,0)="Charge for a one-day stay in a Domiciliary ward at a VA facility."
^DD(43.03,16,"DT")="2920302"
^DD(43.03,17,0)="CHILD INCOME EXCLUSION^NJ8,2I^^0;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.03,17,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.03,17,21,0)="^^3^3^2920330^"
^DD(43.03,17,21,1,0)="Enter in this field the child income exclusion.  This amount"
^DD(43.03,17,21,2,0)="represents the income exclusion for each child for the previous"
^DD(43.03,17,21,3,0)="calendar year."
^DD(43.03,17,"DT")="3071207"
^DD(43.03,"B","*DOM (1 DAY)",16)=""
^DD(43.03,"B","*MEDICARE DEDUCTIBLE",9)=""
^DD(43.03,"B","*MEDICINE (1 DAY)",11)=""
^DD(43.03,"B","*OUTPATIENT FEE",10)=""
^DD(43.03,"B","*PSYCHIATRY (1 DAY)",14)=""
^DD(43.03,"B","*SPINAL CORD INJURY (1 DAY)",13)=""
^DD(43.03,"B","*SURGERY (1 DAY)",12)=""
^DD(43.03,"B","*VA NHCU(1 DAY)",15)=""
^DD(43.03,"B","CAT B FIRST DEPENDENT INCOME",6)=""
^DD(43.03,"B","CAT B INCOME PER DEPENDENT",7)=""
^DD(43.03,"B","CAT B VET INCOME",5)=""
^DD(43.03,"B","CHILD INCOME EXCLUSION",17)=""
^DD(43.03,"B","MEANS TEST DATA",.01)=""
^DD(43.03,"B","MT COPAY EXEMPT 1ST DEP INCOME",3)=""
^DD(43.03,"B","MT COPAY EXEMPT INCOME PER DEP",4)=""
^DD(43.03,"B","MT COPAY EXEMPT VET INCOME",2)=""
^DD(43.03,"B","THRESHOLD PROPERTY",8)=""
^DD(43.03,"GL",0,1,.01)=""
^DD(43.03,"GL",0,2,2)=""
^DD(43.03,"GL",0,3,3)=""
^DD(43.03,"GL",0,4,4)=""
^DD(43.03,"GL",0,5,5)=""
^DD(43.03,"GL",0,6,6)=""
^DD(43.03,"GL",0,7,7)=""
^DD(43.03,"GL",0,8,8)=""
^DD(43.03,"GL",0,9,9)=""
^DD(43.03,"GL",0,10,10)=""
^DD(43.03,"GL",0,11,11)=""
^DD(43.03,"GL",0,12,12)=""
^DD(43.03,"GL",0,13,13)=""
^DD(43.03,"GL",0,14,14)=""
^DD(43.03,"GL",0,15,15)=""
^DD(43.03,"GL",0,16,16)=""
^DD(43.03,"GL",0,17,17)=""
^DD(43.04,0)="CLINIC EXCLUSION SUB-FIELD^^.01^1"
^DD(43.04,0,"DT")="2961213"
^DD(43.04,0,"IX","B",43.04,.01)=""
^DD(43.04,0,"NM","CLINIC EXCLUSION")=""
^DD(43.04,0,"UP")="43"
^DD(43.04,.01,0)="CLINIC EXCLUSION^MP44'^SC(^0;1^Q"
^DD(43.04,.01,1,0)="^.1"
^DD(43.04,.01,1,1,0)="43.04^B"
^DD(43.04,.01,1,1,1)="S ^DG(43,DA(1),""DGPREC"",""B"",$E(X,1,30),DA)="""""
^DD(43.04,.01,1,1,2)="K ^DG(43,DA(1),""DGPREC"",""B"",$E(X,1,30),DA)"
^DD(43.04,.01,3)="Enter the names of clinics which will be excluded when looking for new entries to add to the call list"
^DD(43.04,.01,21,0)="^^2^2^2961213^^"
^DD(43.04,.01,21,1,0)="Clinics in this list will be not be check for patient appointments when"
^DD(43.04,.01,21,2,0)="adding new patient entries to the call list."
^DD(43.04,.01,"DT")="2961213"
^DD(43.04,"B","CLINIC EXCLUSION",.01)=""
^DD(43.04,"GL",0,1,.01)=""
^DD(43.04,"IX",.01)=""
^DD(43.05,0)="SCHEDULING ARCHIVE DATE SUB-FIELD^^6^7"
^DD(43.05,0,"IX","ASDAR",43.05,.01)=""
^DD(43.05,0,"NM","SCHEDULING ARCHIVE DATE")=""
^DD(43.05,0,"UP")="43"
^DD(43.05,.01,0)="SCHEDULING ARCHIVE DATE^DX^^0;1^S %DT=""EXT"" D ^%DT S X=+Y K:Y<1 X"
^DD(43.05,.01,1,0)="^.1"
^DD(43.05,.01,1,1,0)="43.05^ASDAR^MUMPS"
^DD(43.05,.01,1,1,1)="S ^DG(43,DA(1),""SDAR"",""B"",9999999-X,DA)="""""
^DD(43.05,.01,1,1,2)="K ^DG(43,DA(1),""SDAR"",""B"",9999999-X,DA)"
^DD(43.05,.01,"DT")="2870115"
^DD(43.05,1,0)="CURRENT STATUS MESSAGE^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(43.05,1,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(43.05,1,21,0)="^^2^2^2870115^"
^DD(43.05,1,21,1,0)="This message may be displayed to inform the user of the status of the"
^DD(43.05,1,21,2,0)="scheduling archive process associated with the archive date."
^DD(43.05,1,"DT")="2870105"
^DD(43.05,2,0)="CURRENT STATUS FLAG^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^DD(43.05,2,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(43.05,2,21,0)="^^26^26^2870126^^^^"
^DD(43.05,2,21,1,0)="This is the status of the current step of the scheduling archive process and"
^DD(43.05,2,21,2,0)="controls which steps of the archive process are valid to run at any point:"
^DD(43.05,2,21,3,0)=" "
^DD(43.05,2,21,4,0)=" 0 = No archive has yet been done"
^DD(43.05,2,21,5,0)="      * Archive extract step may be run *"
^DD(43.05,2,21,6,0)=" 1 = Archive extract has been started"
^DD(43.05,2,21,7,0)=" 2 = Scheduling extract step is complete"
^DD(43.05,2,21,8,0)="      * Archive extract step may be re-run *"
^DD(43.05,2,21,9,0)="      * Copy data to tape step may be run *"
^DD(43.05,2,21,10,0)=" 3 = Copy to tape has been started"
^DD(43.05,2,21,11,0)=" 4 = Copy to tape is complete"
^DD(43.05,2,21,12,0)="      * Copy to tape step may be re-run *"
^DD(43.05,2,21,13,0)="      * Archive extract step may be re-run *"
^DD(43.05,2,21,14,0)="      * Compare of tape for validity step may be run *"
^DD(43.05,2,21,15,0)=" 5 = Compare of data for validity of tape has been started"
^DD(43.05,2,21,16,0)=" 6 = Compare of data for validity of tape is complete"
^DD(43.05,2,21,17,0)="      * Compare of data for validity step may be re-run *"
^DD(43.05,2,21,18,0)="      * Copy to tape step may be re-run *"
^DD(43.05,2,21,19,0)="      * Archive extract step may be re-run *"
^DD(43.05,2,21,20,0)="      * Deletion of archived data and the archive file on disk may be run *"
^DD(43.05,2,21,21,0)=" 7 = Deletion of archived data and the archive file on disk has been started"
^DD(43.05,2,21,22,0)=" 8 = Deletion of archived data and archive file on disk is complete"
^DD(43.05,2,21,23,0)="     (This completes the archive process)"
^DD(43.05,2,21,24,0)="      * Deletion of archived data and archive file on disk may be re-run *"
^DD(43.05,2,21,25,0)="           (If any data still exists)"
^DD(43.05,2,21,26,0)="      * Scheduling extract step may be run *"
^DD(43.05,2,"DT")="2870105"
^DD(43.05,3,0)="BEGIN DATE OF ARCHIVE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(43.05,3,21,0)="^^2^2^2870115^"
^DD(43.05,3,21,1,0)="This is the date chosen as the earliest date for which the data should"
^DD(43.05,3,21,2,0)="be archived for this execution of the archive process."
^DD(43.05,3,"DT")="2870105"
^DD(43.05,4,0)="END DATE OF ARCHIVE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(43.05,4,3)=""
^DD(43.05,4,21,0)="^^2^2^2870115^"
^DD(43.05,4,21,1,0)="This is the date chosen as the latest date for which the data should be"
^DD(43.05,4,21,2,0)="archived for this execution of the archive process."
^DD(43.05,5,0)="TAPE #^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(43.05,5,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(43.05,5,21,0)="^^2^2^2870123^^"
^DD(43.05,5,21,1,0)="This is the tape # or #'s  used to hold the archived data for this execution"
^DD(43.05,5,21,2,0)="of the archive process."
^DD(43.05,5,"DT")="2870123"
^DD(43.05,6,0)="# OF RECORDS ARCHIVED^F^^0;7^K:$L(X)>70!($L(X)<1) X"
^DD(43.05,6,3)="ANSWER MUST BE 1-70 CHARACTERS IN LENGTH"
^DD(43.05,6,21,0)="^^2^2^2870123^^"
^DD(43.05,6,21,1,0)="This field contains the total # of each type of record archived for this"
^DD(43.05,6,21,2,0)="execution of the archive process."
^DD(43.05,6,"DT")="2870123"
^DD(43.05,"B","# OF RECORDS ARCHIVED",6)=""
^DD(43.05,"B","BEGIN DATE OF ARCHIVE",3)=""
^DD(43.05,"B","CURRENT STATUS FLAG",2)=""
^DD(43.05,"B","CURRENT STATUS MESSAGE",1)=""
^DD(43.05,"B","END DATE OF ARCHIVE",4)=""
^DD(43.05,"B","SCHEDULING ARCHIVE DATE",.01)=""
^DD(43.05,"B","TAPE #",5)=""
^DD(43.05,"GL",0,1,.01)=""
^DD(43.05,"GL",0,2,1)=""
^DD(43.05,"GL",0,3,2)=""
^DD(43.05,"GL",0,4,3)=""
^DD(43.05,"GL",0,5,4)=""
^DD(43.05,"GL",0,6,5)=""
^DD(43.05,"GL",0,7,6)=""
^DD(43.05,"IX",.01)=""
^DD(43.06,0)="FISCAL YEAR SUB-FIELD^^4^5"
^DD(43.06,0,"NM","FISCAL YEAR")=""
^DD(43.06,0,"UP")="43"
^DD(43.06,.01,0)="FISCAL YEAR^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,3)_""0000"",DINUM=X"
^DD(43.06,.01,3)="Enter Fiscal Year for data entry, 2 or 4 digits (e.g.: 97 or 1997)"
^DD(43.06,.01,21,0)="^^2^2^2980211^^^^"
^DD(43.06,.01,21,1,0)="Fiscal Year that specific inpatient and outpatient costs at a VA"
^DD(43.06,.01,21,2,0)="facility are in effect."
^DD(43.06,.01,"DT")="2980211"
^DD(43.06,1,0)="$ PER WWU^NJ8,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X"
^DD(43.06,1,3)="Enter the dollars that you are going to receive per weighted work unit, 0-99999.99."
^DD(43.06,1,21,0)="^^1^1^2920212^"
^DD(43.06,1,21,1,0)="Dollar amount per each Weighted Work Unit."
^DD(43.06,1,"DT")="2870202"
^DD(43.06,2,0)="COST FOR 1 DAY LOS^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(43.06,2,3)="Enter the value assigned to one day length of stay."
^DD(43.06,2,21,0)="^^1^1^2920212^"
^DD(43.06,2,21,1,0)="Charge/cost for a one day length of stay in a VA hospital."
^DD(43.06,2,"DT")="2870202"
^DD(43.06,3,0)="CENSUS PER DIEM COST^NJ9,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(43.06,3,3)="Enter the value assigned to per diem cost for census patients."
^DD(43.06,3,21,0)="^^1^1^2920212^"
^DD(43.06,3,21,1,0)="The value assigned to per diem (per day) cost for census patients."
^DD(43.06,3,"DT")="2870202"
^DD(43.06,4,0)="HIGH OUTLIER COST PER DAY^NJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(43.06,4,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(43.06,4,21,0)="^^3^3^2920212^^^"
^DD(43.06,4,21,1,0)="Value assigned to a high outlier or hospital stay beyond the"
^DD(43.06,4,21,2,0)="expected number of days for a specific condition based on national"
^DD(43.06,4,21,3,0)="statistics for a period of one day."
^DD(43.06,4,"DT")="2870211"
^DD(43.06,"B","$ PER WWU",1)=""
^DD(43.06,"B","CENSUS PER DIEM COST",3)=""
^DD(43.06,"B","COST FOR 1 DAY LOS",2)=""
^DD(43.06,"B","FISCAL YEAR",.01)=""
^DD(43.06,"B","HIGH OUTLIER COST PER DAY",4)=""
^DD(43.06,"GL",0,1,.01)=""
^DD(43.06,"GL",0,2,1)=""
^DD(43.06,"GL",0,3,2)=""
^DD(43.06,"GL",0,4,3)=""
^DD(43.06,"GL",0,5,4)=""
^DD(43.07,0)="ROUTINE SUB-FIELD^^2^2"
^DD(43.07,0,"IX","B",43.07,.01)=""
^DD(43.07,0,"NM","ROUTINE")=""
^DD(43.07,0,"UP")="43"
^DD(43.07,.01,0)="ROUTINE^MRF^^0;1^K:$L(X)>15!($L(X)<2) X"
^DD(43.07,.01,1,0)="^.1"
^DD(43.07,.01,1,1,0)="43.07^B"
^DD(43.07,.01,1,1,1)="S ^DG(43,DA(1),""ROU"",""B"",$E(X,1,30),DA)="""""
^DD(43.07,.01,1,1,2)="K ^DG(43,DA(1),""ROU"",""B"",$E(X,1,30),DA)"
^DD(43.07,.01,3)="ANSWER MUST BE 2-15 CHARACTERS IN LENGTH"
^DD(43.07,.01,21,0)="^^1^1^2920212^"
^DD(43.07,.01,21,1,0)="A list of all routines distributed with the MAS DHCP software package."
^DD(43.07,.01,"DT")="2890327"
^DD(43.07,2,0)="DISTRIBUTED SIZE^RF^^0;2^K:$L(X)>30!($L(X)<2)!'(X?.N) X"
^DD(43.07,2,3)="SIZE OF ROUTINE WHEN DISTRIBUTED FOR USE IN RUNNING INTEGRITY CHECKER"
^DD(43.07,2,21,0)="^^2^2^2920212^"
^DD(43.07,2,21,1,0)="Size of each routine when distributed for use by running integrity"
^DD(43.07,2,21,2,0)="checker value."
^DD(43.07,2,"DT")="2870717"
^DD(43.07,"B","DISTRIBUTED SIZE",2)=""
^DD(43.07,"B","ROUTINE",.01)=""
^DD(43.07,"GL",0,1,.01)=""
^DD(43.07,"GL",0,2,2)=""
^DD(43.07,"IX",.01)=""
^DD(43.07,"RQ",.01)=""
^DD(43.07,"RQ",2)=""
^DD(43.077,0)="EXCLUDE WHICH TERMINAL TYPES? SUB-FIELD^^.01^1"
^DD(43.077,0,"IX","B",43.077,.01)=""
^DD(43.077,0,"NM","EXCLUDE WHICH TERMINAL TYPES?")=""
^DD(43.077,0,"UP")="43"
^DD(43.077,.01,0)="EXCLUDE WHICH TERMINAL TYPES?^MP3.2'X^%ZIS(2,^0;1^I $D(X) S DINUM=X"
^DD(43.077,.01,1,0)="^.1"
^DD(43.077,.01,1,1,0)="43.077^B"
^DD(43.077,.01,1,1,1)="S ^DG(43,DA(1),""TERM"",""B"",$E(X,1,30),DA)="""""
^DD(43.077,.01,1,1,2)="K ^DG(43,DA(1),""TERM"",""B"",$E(X,1,30),DA)"
^DD(43.077,.01,3)="Enter the terminal types for which high intensity will not be used even if turned on for MAS options."
^DD(43.077,.01,21,0)="^^6^6^2920212^"
^DD(43.077,.01,21,1,0)="If the USE HIGH INTENSITY ON SCREENS field has been set to YES, you"
^DD(43.077,.01,21,2,0)="may wish to exclude it from being used on certain terminal types."
^DD(43.077,.01,21,3,0)="If so, at this prompt you should specify the terminal types(s) which"
^DD(43.077,.01,21,4,0)="should not use high intensity.  This field allows you to specify"
^DD(43.077,.01,21,5,0)="multiple terminal types.  You will be returned to it repeatedly until"
^DD(43.077,.01,21,6,0)="no more entries are made."
^DD(43.077,.01,"DT")="2880711"
^DD(43.077,"B","EXCLUDE WHICH TERMINAL TYPES?",.01)=""
^DD(43.077,"GL",0,1,.01)=""
^DD(43.077,"IX",.01)=""
^DD(43.08,0)="ELIGIBILITY EXCLUSION SUB-FIELD^^.01^1"
^DD(43.08,0,"DT")="2961213"
^DD(43.08,0,"IX","B",43.08,.01)=""
^DD(43.08,0,"NM","ELIGIBILITY EXCLUSION")=""
^DD(43.08,0,"UP")="43"
^DD(43.08,.01,0)="ELIGIBILITY EXCLUSION^MP8'^DIC(8,^0;1^Q"
^DD(43.08,.01,1,0)="^.1"
^DD(43.08,.01,1,1,0)="43.08^B"
^DD(43.08,.01,1,1,1)="S ^DG(43,DA(1),""DGPREE"",""B"",$E(X,1,30),DA)="""""
^DD(43.08,.01,1,1,2)="K ^DG(43,DA(1),""DGPREE"",""B"",$E(X,1,30),DA)"
^DD(43.08,.01,3)="Enter eligibilities that are not to be added to the call list."
^DD(43.08,.01,21,0)="^^2^2^2970416^^^"
^DD(43.08,.01,21,1,0)="Patients with these eligibility's will not be added to the call list"
^DD(43.08,.01,21,2,0)="when new patient entries are being added."
^DD(43.08,.01,"DT")="2961213"
^DD(43.08,"B","ELIGIBILITY EXCLUSION",.01)=""
^DD(43.08,"GL",0,1,.01)=""
^DD(43.08,"IX",.01)=""
^DD(43.091,0)="PROVIDER CONVERSION LOG SUB-FIELD^^.01^1"
^DD(43.091,0,"DT")="2930128"
^DD(43.091,0,"NM","PROVIDER CONVERSION LOG")=""
^DD(43.091,0,"UP")="43"
^DD(43.091,.01,0)="PROVIDER CONVERSION LOG^WL^^0;1^Q"
^DD(43.091,.01,"DT")="2930128"
^DD(43.091,"B","PROVIDER CONVERSION LOG",.01)=""
^DD(43.091,"GL",0,1,.01)=""
^DD(43.1,0)="FIELD^^100^22"
^DD(43.1,0,"DDA")="N"
^DD(43.1,0,"IX","B",43.1,.01)=""
^DD(43.1,0,"NM","MAS EVENT RATES")=""
^DD(43.1,0,"VR")="5.3"
^DD(43.1,.01,0)="DATE^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999.9999-X"
^DD(43.1,.01,1,0)="^.1"
^DD(43.1,.01,1,1,0)="43.1^B"
^DD(43.1,.01,1,1,1)="S ^DG(43.1,""B"",$E(X,1,30),DA)="""""
^DD(43.1,.01,1,1,2)="K ^DG(43.1,""B"",$E(X,1,30),DA)"
^DD(43.1,.01,3)=""
^DD(43.1,.01,21,0)="^^1^1^2920212^"
^DD(43.1,.01,21,1,0)="Date the listed outpatient and inpatient rates are effective."
^DD(43.1,10.01,0)="OPT FEE^NJ7,2^^MT;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.01,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.01,21,0)="^^1^1^2920212^"
^DD(43.1,10.01,21,1,0)="Charge for an outpatient visit at a VA facility."
^DD(43.1,10.02,0)="MEDICINE (1-DAY)^NJ7,2^^MT;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.02,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.02,21,0)="^^1^1^2920212^"
^DD(43.1,10.02,21,1,0)="Charge for a one-day stay on a Medicine ward at a VA facility."
^DD(43.1,10.03,0)="SURGERY (1-DAY)^NJ7,2^^MT;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.03,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.03,21,0)="^^1^1^2920212^"
^DD(43.1,10.03,21,1,0)="Charge for a one-day stay on a Surgical ward at a VA facility."
^DD(43.1,10.04,0)="SPINAL CORD INJURY (1-DAY)^NJ7,2^^MT;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.04,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.04,21,0)="^^2^2^2920212^"
^DD(43.1,10.04,21,1,0)="Charge for a one-day stay on a Spinal Cord Injury ward at a VA"
^DD(43.1,10.04,21,2,0)="facility."
^DD(43.1,10.05,0)="PSYCHIATRY (1-DAY)^NJ7,2^^MT;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.05,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.05,21,0)="^^1^1^2930611^^"
^DD(43.1,10.05,21,1,0)="Charge for a one-day stay on a Psychiatry ward at a VA facility."
^DD(43.1,10.06,0)="VA NHCU (1-DAY)^NJ7,2^^MT;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.06,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.06,21,0)="^^1^1^2920212^"
^DD(43.1,10.06,21,1,0)="Charge for a one-day stay in a VA Nursing Home Care Unit."
^DD(43.1,10.07,0)="INTERMEDIATE CARE (1-DAY)^NJ7,2^^MT;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.07,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.07,21,0)="^^2^2^2920212^"
^DD(43.1,10.07,21,1,0)="Charge for a one-day stay on an Intermediate Care ward at a VA"
^DD(43.1,10.07,21,2,0)="facility."
^DD(43.1,10.08,0)="REHAB. MEDICINE (1-DAY)^NJ7,2^^MT;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.08,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.08,21,0)="^^2^2^2920212^"
^DD(43.1,10.08,21,1,0)="Charge for a one-day stay on a Rehabilitation Medicine ward at a"
^DD(43.1,10.08,21,2,0)="VA facility."
^DD(43.1,10.09,0)="BLIND REHAB (1-DAY)^NJ7,2^^MT;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.09,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.09,21,0)="^^2^2^2920212^"
^DD(43.1,10.09,21,1,0)="Charge for a one-day stay on a Blind Rehabilitation ward at a VA"
^DD(43.1,10.09,21,2,0)="facility."
^DD(43.1,10.1,0)="NEUROLOGY (1-DAY)^NJ7,2^^MT;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.1,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.1,21,0)="^^1^1^2920212^"
^DD(43.1,10.1,21,1,0)="Charge for a one-day stay on a Neurology ward at a VA facility."
^DD(43.1,10.11,0)="ALCOHOL/DRUG TREATMENT (1-DAY)^NJ7,2^^MT;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(43.1,10.11,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(43.1,10.11,21,0)="^^2^2^2920212^"
^DD(43.1,10.11,21,1,0)="Charge for a one-day stay on an Alcohol and Drug Treatment ward at"
^DD(43.1,10.11,21,2,0)="a VA facility."
^DD(43.1,20.01,0)="$ PER WWU^NJ5,2^^PT;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99)!(X<0) X"
^DD(43.1,20.01,3)="Type a Dollar Amount between 0 and 99, 2 Decimal Digits"
^DD(43.1,20.01,21,0)="^^1^1^2920212^"
^DD(43.1,20.01,21,1,0)="Dollar amount per Weighted Work Unit."
^DD(43.1,20.02,0)="COST FOR 1-DAY LOS^NJ9,2^^PT;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(43.1,20.02,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(43.1,20.02,21,0)="^^1^1^2920212^"
^DD(43.1,20.02,21,1,0)="Charge/cost for a one-day length of stay in a VA facility."
^DD(43.1,20.03,0)="CENSUS PER DIEM COST^NJ9,2^^PT;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(43.1,20.03,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(43.1,20.03,21,0)="^^1^1^2920212^"
^DD(43.1,20.03,21,1,0)="The value assigned to per diem cost for census patients."
^DD(43.1,20.04,0)="HIGH OUTLIER COST PER DAY^NJ9,2^^PT;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(43.1,20.04,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(43.1,20.04,21,0)="^^3^3^2920212^"
^DD(43.1,20.04,21,1,0)="Value assigned to a high outlier or hospital stay beyond the"
^DD(43.1,20.04,21,2,0)="expected number of days for a specific condition based on national"
^DD(43.1,20.04,21,3,0)="statistics for a period of one day."
^DD(43.1,30.01,0)="DEDUCTIBLE/VISIT^RNJ5,2^^BT;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99)!(X<0) X"
^DD(43.1,30.01,3)="Type a Dollar Amount between 0 and 99, 2 Decimal Digits"
^DD(43.1,30.01,21,0)="^^2^2^2920212^"
^DD(43.1,30.01,21,1,0)="Dollar amount deductible allowed for each outpatient visit at a VA"
^DD(43.1,30.01,21,2,0)="facility."
^DD(43.1,30.01,"DT")="2890711"
^DD(43.1,30.02,0)="DEDUCTIBLE/MONTH^RNJ5,2^^BT;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99)!(X<0) X"
^DD(43.1,30.02,3)="Type a Dollar Amount between 0 and 99, 2 Decimal Digits"
^DD(43.1,30.02,21,0)="^^2^2^2920212^"
^DD(43.1,30.02,21,1,0)="Dollar amount deductible allowed for  outpatient visits per month"
^DD(43.1,30.02,21,2,0)="at a "
^DD(43.1,30.02,"DT")="2890511"
^DD(43.1,30.03,0)="MILEAGE RATE^RNJ4,2X^^BT;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".3N!(X>1)!(X<0) X"
^DD(43.1,30.03,3)="Type a Dollar Amount between 0 and 1, 3 Decimal Digits"
^DD(43.1,30.03,21,0)="^^3^3^2920212^^"
^DD(43.1,30.03,21,1,0)="Mileage rate (dollar amount) allowed per mile for eligible veterans to"
^DD(43.1,30.03,21,2,0)="travel to and/or from a VA hospital for scheduled clinic visits"
^DD(43.1,30.03,21,3,0)="and scheduled hospital admissions or discharges to home."
^DD(43.1,30.03,"DT")="3080115"
^DD(43.1,30.04,0)="FISCAL SYMBOLS^F^^BT;4^K:$L(X)>40!($L(X)<1) X"
^DD(43.1,30.04,3)="Answer must be 1-40 characters in length."
^DD(43.1,30.04,21,0)="^^3^3^2920212^"
^DD(43.1,30.04,21,1,0)="Fiscal appropriation numbers assigned to travel vouchers given"
^DD(43.1,30.04,21,2,0)="to eligible veterans for payment of travel expenses to and from"
^DD(43.1,30.04,21,3,0)="a VA facility."
^DD(43.1,30.04,"DT")="2890223"
^DD(43.1,30.05,0)="C&P REVIEW VISIT MILEAGE RATE^RNJ4,2X^^BT;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".3N!(X>1)!(X<0) X"
^DD(43.1,30.05,3)="Type a Dollar Amount between 0 and 1, 3 Decimal Digits"
^DD(43.1,30.05,21,0)="^^4^4^3080115^"
^DD(43.1,30.05,21,1,0)="Compensation and Pension review visit mileage rate allowed for"
^DD(43.1,30.05,21,2,0)="eligible veterans.  The mileage rate for a C&P visit as opposed to"
^DD(43.1,30.05,21,3,0)="a regularly scheduled outpatient visit can be a higher rate as the"
^DD(43.1,30.05,21,4,0)="DVB requests the exam and not the patient."
^DD(43.1,30.05,"DT")="3080115"
^DD(43.1,100,0)="MONETARY AWARD(S)^43.12PA^^MA;0"
^DD(43.1,100,21,0)="^^3^3^2920212^"
^DD(43.1,100,21,1,0)="Monetary awards granted eligible veterans by the Department of"
^DD(43.1,100,21,2,0)="Veterans Benefits for non service connected disabilities (VA"
^DD(43.1,100,21,3,0)="Pension)."
^DD(43.1,"B","$ PER WWU",20.01)=""
^DD(43.1,"B","ALCOHOL/DRUG TREATMENT (1-DAY)",10.11)=""
^DD(43.1,"B","BLIND REHAB (1-DAY)",10.09)=""
^DD(43.1,"B","C&P REVIEW VISIT MILEAGE RATE",30.05)=""
^DD(43.1,"B","CENSUS PER DIEM COST",20.03)=""
^DD(43.1,"B","COST FOR 1-DAY LOS",20.02)=""
^DD(43.1,"B","DATE",.01)=""
^DD(43.1,"B","DEDUCTIBLE/MONTH",30.02)=""
^DD(43.1,"B","DEDUCTIBLE/VISIT",30.01)=""
^DD(43.1,"B","FISCAL SYMBOLS",30.04)=""
^DD(43.1,"B","HIGH OUTLIER COST PER DAY",20.04)=""
^DD(43.1,"B","INTERMEDIATE CARE (1-DAY)",10.07)=""
^DD(43.1,"B","MEDICINE (1-DAY)",10.02)=""
^DD(43.1,"B","MILEAGE RATE",30.03)=""
^DD(43.1,"B","MONETARY AWARD(S)",100)=""
^DD(43.1,"B","NEUROLOGY (1-DAY)",10.1)=""
^DD(43.1,"B","OPT FEE",10.01)=""
^DD(43.1,"B","PSYCHIATRY (1-DAY)",10.05)=""
^DD(43.1,"B","REHAB. MEDICINE (1-DAY)",10.08)=""
^DD(43.1,"B","SPINAL CORD INJURY (1-DAY)",10.04)=""
^DD(43.1,"B","SURGERY (1-DAY)",10.03)=""
^DD(43.1,"B","VA NHCU (1-DAY)",10.06)=""
^DD(43.1,"GL",0,1,.01)=""
^DD(43.1,"GL","BT",1,30.01)=""
^DD(43.1,"GL","BT",2,30.02)=""
^DD(43.1,"GL","BT",3,30.03)=""
^DD(43.1,"GL","BT",4,30.04)=""
^DD(43.1,"GL","BT",5,30.05)=""
^DD(43.1,"GL","MA",0,100)=""
^DD(43.1,"GL","MT",1,10.01)=""
^DD(43.1,"GL","MT",2,10.02)=""
^DD(43.1,"GL","MT",3,10.03)=""
^DD(43.1,"GL","MT",4,10.04)=""
^DD(43.1,"GL","MT",5,10.05)=""
^DD(43.1,"GL","MT",6,10.06)=""
^DD(43.1,"GL","MT",7,10.07)=""
^DD(43.1,"GL","MT",8,10.08)=""
^DD(43.1,"GL","MT",9,10.09)=""
^DD(43.1,"GL","MT",10,10.1)=""
^DD(43.1,"GL","MT",11,10.11)=""
^DD(43.1,"GL","PT",1,20.01)=""
^DD(43.1,"GL","PT",2,20.02)=""
^DD(43.1,"GL","PT",3,20.03)=""
^DD(43.1,"GL","PT",4,20.04)=""
^DD(43.1,"IX",.01)=""
^DD(43.1,"RQ",.01)=""
^DD(43.1,"RQ",30.01)=""
^DD(43.1,"RQ",30.02)=""
^DD(43.1,"RQ",30.03)=""
^DD(43.1,"RQ",30.05)=""
^DD(43.1,"SB",43.12,100)=""
^DD(43.11,0)="FIELD^^.01^2"
^DD(43.11,0,"IX","B",43.11,.01)=""
^DD(43.11,0,"NM","MAS AWARD")=""
^DD(43.11,0,"PT",43.12,.01)=""
^DD(43.11,0,"VR")="5.3"
^DD(43.11,.001,0)="NUMBER^NJ2,0I^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43.11,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(43.11,.001,21,0)="^^5^5^2920211^"
^DD(43.11,.001,21,1,0)="The 'number' is the internal reference number automatically assigned"
^DD(43.11,.001,21,2,0)="to the next entry into the file.  For example, there are currently"
^DD(43.11,.001,21,3,0)="12 entries, with the entry of another MAS Award, the number would be"
^DD(43.11,.001,21,4,0)="'13'."
^DD(43.11,.001,21,5,0)="|"
^DD(43.11,.001,23,0)="^^5^5^2920211^"
^DD(43.11,.001,23,1,0)="The 'number' is the internal reference number automatically assigned"
^DD(43.11,.001,23,2,0)="to the next entry into the file.  For example, there are currently"
^DD(43.11,.001,23,3,0)="12 entires, with the entry of another MAS Award, the number would be"
^DD(43.11,.001,23,4,0)="'13'."
^DD(43.11,.001,23,5,0)="|"
^DD(43.11,.001,"DT")="2890209"
^DD(43.11,.01,0)="TYPE^RFI^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(43.11,.01,1,0)="^.1"
^DD(43.11,.01,1,1,0)="43.11^B"
^DD(43.11,.01,1,1,1)="S ^DG(43.11,""B"",$E(X,1,30),DA)="""""
^DD(43.11,.01,1,1,2)="K ^DG(43.11,""B"",$E(X,1,30),DA)"
^DD(43.11,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(43.11,.01,21,0)="^^6^6^2920211^^"
^DD(43.11,.01,21,1,0)="Service connected disabilities are rated at a percentage in increments"
^DD(43.11,.01,21,2,0)="of 10, ranging from 0% to 100% based on the degree of disability the"
^DD(43.11,.01,21,3,0)="veteran has as a result of an injury sustained while on active duty."
^DD(43.11,.01,21,4,0)="These percentages are adjudicated only by the Department of Veterans"
^DD(43.11,.01,21,5,0)="Benefits following examination.  The 'Type' is the rate of service"
^DD(43.11,.01,21,6,0)="connected disability incurred by the veteran/patient."
^DD(43.11,.01,23,0)="^^2^2^2920211^"
^DD(43.11,.01,23,1,0)="Service connected disabilities based on percentage in increments of"
^DD(43.11,.01,23,2,0)="10, ranging from 0% to 100%.  "
^DD(43.11,.01,"DT")="2890209"
^DD(43.11,"B","NUMBER",.001)=""
^DD(43.11,"B","TYPE",.01)=""
^DD(43.11,"GL",0,1,.01)=""
^DD(43.11,"IX",.01)=""
^DD(43.11,"RQ",.01)=""
^DD(43.12,0)="MONETARY AWARD(S) SUB-FIELD^^8^8"
^DD(43.12,0,"IX","B",43.12,.01)=""
^DD(43.12,0,"NM","MONETARY AWARD(S)")=""
^DD(43.12,0,"UP")="43.1"
^DD(43.12,.01,0)="MONETARY AWARD(S)^P43.11'X^DG(43.11,^0;1^I $D(X) S DINUM=X"
^DD(43.12,.01,1,0)="^.1"
^DD(43.12,.01,1,1,0)="43.12^B"
^DD(43.12,.01,1,1,1)="S ^DG(43.1,DA(1),""MA"",""B"",$E(X,1,30),DA)="""""
^DD(43.12,.01,1,1,2)="K ^DG(43.1,DA(1),""MA"",""B"",$E(X,1,30),DA)"
^DD(43.12,.01,21,0)="^^3^3^2920212^"
^DD(43.12,.01,21,1,0)="Monetary awards granted eligible veterans by the Department of"
^DD(43.12,.01,21,2,0)="Veterans Benefits for non service connected disabilities (VA"
^DD(43.12,.01,21,3,0)="Pension)."
^DD(43.12,.01,"DT")="2890114"
^DD(43.12,2,0)="BASIC AMOUNT-NO DEPENDENT^NJ8,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.12,2,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.12,2,21,0)="^^1^1^2920212^"
^DD(43.12,2,21,1,0)="Basic dollar amount allowed eligible veterans for an NSC VA Pension."
^DD(43.12,2,"DT")="2890223"
^DD(43.12,3,0)="ONE DEPENDENT AMOUNT^NJ8,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.12,3,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.12,3,21,0)="^^2^2^2920212^^"
^DD(43.12,3,21,1,0)="Dollar amount allowed eligible veterans for an NSC VA "
^DD(43.12,3,21,2,0)="Pension with one dependent."
^DD(43.12,3,"DT")="2890223"
^DD(43.12,4,0)="TWO DEPENDENT AMOUNT^NJ8,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.12,4,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.12,4,21,0)="^^2^2^2920212^^"
^DD(43.12,4,21,1,0)="Dollar amount allowed eligible veterans for an NSC VA"
^DD(43.12,4,21,2,0)="Pension with two dependents."
^DD(43.12,4,"DT")="2890223"
^DD(43.12,5,0)="THREE DEPENDENT AMOUNT^NJ8,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.12,5,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.12,5,21,0)="^^2^2^2920212^^"
^DD(43.12,5,21,1,0)="Dollar amount allowed eligible veterans for an NSC VA Pension with"
^DD(43.12,5,21,2,0)="three dependents."
^DD(43.12,5,"DT")="2890223"
^DD(43.12,6,0)="FOUR DEPENDENT AMOUNT^NJ8,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.12,6,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.12,6,21,0)="^^2^2^2920212^"
^DD(43.12,6,21,1,0)="Dollar amount allowed eligible veterans for an NSC VA Pension with"
^DD(43.12,6,21,2,0)="four dependents."
^DD(43.12,6,"DT")="2890223"
^DD(43.12,7,0)="FIVE DEPENDENT AMOUNT^NJ8,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.12,7,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.12,7,21,0)="^^2^2^2920212^"
^DD(43.12,7,21,1,0)="Dollar amount allowed eligible veterans for an NSC VA Pension with"
^DD(43.12,7,21,2,0)="five dependents."
^DD(43.12,7,"DT")="2890223"
^DD(43.12,8,0)="EACH ADDITIONAL DEPENDENT AMT^NJ8,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99000)!(X<0) X"
^DD(43.12,8,3)="Type a Dollar Amount between 0 and 99000, 2 Decimal Digits"
^DD(43.12,8,21,0)="^^2^2^2920212^"
^DD(43.12,8,21,1,0)="Dollar amount allowed eligible veterans for an NSC VA Pension with"
^DD(43.12,8,21,2,0)="any number of dependents over five."
^DD(43.12,8,"DT")="2890223"
^DD(43.12,"B","BASIC AMOUNT-NO DEPENDENT",2)=""
^DD(43.12,"B","EACH ADDITIONAL DEPENDENT AMT",8)=""
^DD(43.12,"B","FIVE DEPENDENT AMOUNT",7)=""
^DD(43.12,"B","FOUR DEPENDENT AMOUNT",6)=""
^DD(43.12,"B","MONETARY AWARD(S)",.01)=""
^DD(43.12,"B","ONE DEPENDENT AMOUNT",3)=""
^DD(43.12,"B","THREE DEPENDENT AMOUNT",5)=""
^DD(43.12,"B","TWO DEPENDENT AMOUNT",4)=""
^DD(43.12,"GL",0,1,.01)=""
^DD(43.12,"GL",0,2,2)=""
^DD(43.12,"GL",0,3,3)=""
^DD(43.12,"GL",0,4,4)=""
^DD(43.12,"GL",0,5,5)=""
^DD(43.12,"GL",0,6,6)=""
^DD(43.12,"GL",0,7,7)=""
^DD(43.12,"GL",0,8,8)=""
^DD(43.12,"IX",.01)=""
^DD(43.4,0)="FIELD^NL^6^7"
^DD(43.4,0,"DT")="2940808"
^DD(43.4,0,"ID","WRITE")="W ?50,$P(^(""0""),U,3)"
^DD(43.4,0,"IX","AEDR",43.4,6)=""
^DD(43.4,0,"IX","B",43.4,.01)=""
^DD(43.4,0,"IX","C",43.4,1)=""
^DD(43.4,0,"IX","D",43.4,2)=""
^DD(43.4,0,"NM","VA ADMITTING REGULATION")=""
^DD(43.4,0,"PT",35.1,.01)=""
^DD(43.4,0,"PT",162.4,5)=""
^DD(43.4,0,"PT",405,.12)=""
^DD(43.4,0,"VR")="5.3"
^DD(43.4,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43.4,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(43.4,.001,21,0)="^^2^2^2920211^"
^DD(43.4,.001,21,1,0)="The number is the internal reference number assigned by the system"
^DD(43.4,.001,21,2,0)="as each new entry is added to the file."
^DD(43.4,.001,"DT")="2870521"
^DD(43.4,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(43.4,.01,1,0)="^.1"
^DD(43.4,.01,1,1,0)="43.4^B"
^DD(43.4,.01,1,1,1)="S ^DIC(43.4,""B"",$E(X,1,30),DA)="""""
^DD(43.4,.01,1,1,2)="K ^DIC(43.4,""B"",$E(X,1,30),DA)"
^DD(43.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(43.4,.01,21,0)="^^7^7^2920211^"
^DD(43.4,.01,21,1,0)="The name of the VA Admitting Regulation is derived from the United"
^DD(43.4,.01,21,2,0)="States Code of Federal Regulations, Title 38.  These admitting"
^DD(43.4,.01,21,3,0)="regulations are utilized to determine a veteran's type of status at"
^DD(43.4,.01,21,4,0)="the time of admission to any VA facility.  For example, 'Humanitarian"
^DD(43.4,.01,21,5,0)="Non-Vet' is the admission of a person who is a non-veteran and is being"
^DD(43.4,.01,21,6,0)="treated as an emergency until his/her condition has stablized to the"
^DD(43.4,.01,21,7,0)="point of being able to transfer to a public facility."
^DD(43.4,1,0)="*REGULATION #^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<3) X"
^DD(43.4,1,1,0)="^.1^^0"
^DD(43.4,1,1,1,0)="43.4^C"
^DD(43.4,1,1,1,1)="S ^DIC(43.4,""C"",$E(X,1,30),DA)="""""
^DD(43.4,1,1,1,2)="K ^DIC(43.4,""C"",$E(X,1,30),DA)"
^DD(43.4,1,3)="ANSWER MUST BE 3-6 CHARACTERS IN LENGTH"
^DD(43.4,1,"DT")="2860929"
^DD(43.4,2,0)="CFR #^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X"
^DD(43.4,2,1,0)="^.1"
^DD(43.4,2,1,1,0)="43.4^D"
^DD(43.4,2,1,1,1)="S ^DIC(43.4,""D"",$E(X,1,30),DA)="""""
^DD(43.4,2,1,1,2)="K ^DIC(43.4,""D"",$E(X,1,30),DA)"
^DD(43.4,2,3)="Answer must be 2-25 characters in length."
^DD(43.4,2,21,0)="^^3^3^2920211^"
^DD(43.4,2,21,1,0)="The CFR# is the Code of Federal Regulations number assigned to each of"
^DD(43.4,2,21,2,0)="the types of admission regulations, derived from Title 38.  This number"
^DD(43.4,2,21,3,0)="cannot be manipulated or any 'local' ones added to this file."
^DD(43.4,2,"DT")="2900220"
^DD(43.4,4,0)="ACTIVE^S^0:ACTIVE;1:INACTIVE;^0;4^Q"
^DD(43.4,4,1,0)="^.1^^0"
^DD(43.4,4,3)="Enter if this admitting regulation should not be used"
^DD(43.4,4,21,0)="^^5^5^2920211^"
^DD(43.4,4,21,1,0)="This field is defined as a set of codes, '0' standing for ACTIVE and"
^DD(43.4,4,21,2,0)="'1' standing for INACTIVE.  When a VA Admitting Regulation Code has"
^DD(43.4,4,21,3,0)="been either inactivated or activated as a result of changed legislation"
^DD(43.4,4,21,4,0)="effecting the Federal Code of Regulations, Title 38, this field will"
^DD(43.4,4,21,5,0)="be noted accordingly."
^DD(43.4,4,"DT")="2860929"
^DD(43.4,5,0)="NURSING HOME^S^1:USE FOR NH;^0;5^Q"
^DD(43.4,5,21,0)="^^3^3^2920211^"
^DD(43.4,5,21,1,0)="Nursing Home is a specialized code that is utilized to identify"
^DD(43.4,5,21,2,0)="veterans who are admitted to a VA Nursing Home Care Unit.  This field,"
^DD(43.4,5,21,3,0)="although available is not currently in use."
^DD(43.4,5,"DT")="2860929"
^DD(43.4,6,0)="EDR CODE^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(43.4,6,1,0)="^.1"
^DD(43.4,6,1,1,0)="43.4^AEDR"
^DD(43.4,6,1,1,1)="S ^DIC(43.4,""AEDR"",$E(X,1,30),DA)="""""
^DD(43.4,6,1,1,2)="K ^DIC(43.4,""AEDR"",$E(X,1,30),DA)"
^DD(43.4,6,1,1,"%D",0)="^^2^2^2940831^^"
^DD(43.4,6,1,1,"%D",1,0)="This cross-reference was added to allow quick referencing when an EDR"
^DD(43.4,6,1,1,"%D",2,0)="code is sent to the site."
^DD(43.4,6,1,1,"DT")="2940831"
^DD(43.4,6,3)="Answer with corresponding EDR code."
^DD(43.4,6,21,0)="^^3^3^2940808^"
^DD(43.4,6,21,1,0)="This is the code that is transferred to BDC indicating the admitting"
^DD(43.4,6,21,2,0)="regulation.  The code and related regulation are defined in the HL7"
^DD(43.4,6,21,3,0)="VA defined table VA10."
^DD(43.4,6,"DT")="2940831"
^DD(43.4,"B","*REGULATION #",1)=""
^DD(43.4,"B","ACTIVE",4)=""
^DD(43.4,"B","CFR #",2)=""
^DD(43.4,"B","EDR CODE",6)=""
^DD(43.4,"B","NAME",.01)=""
^DD(43.4,"B","NUMBER",.001)=""
^DD(43.4,"B","NURSING HOME",5)=""
^DD(43.4,"GL",0,1,.01)=""
^DD(43.4,"GL",0,2,1)=""
^DD(43.4,"GL",0,3,2)=""
^DD(43.4,"GL",0,4,4)=""
^DD(43.4,"GL",0,5,5)=""
^DD(43.4,"GL",0,6,6)=""
^DD(43.4,"IX",.01)=""
^DD(43.4,"IX",1)=""
^DD(43.4,"IX",2)=""
^DD(43.4,"IX",6)=""
^DD(43.4,"RQ",.01)=""
^DD(43.5,0)="FIELD^^10^10"
^DD(43.5,0,"DT")="2930423"
^DD(43.5,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(43.61,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(43.61,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(43.5,0,"ID",.05)="W:$D(^(0)) ""   "",$S($D(^DPT(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(43.5,0,"ID",.06)="W:$D(^(0)) ""   "",$E($P(^(0),U,6),4,5)_""-""_$E($P(^(0),U,6),6,7)_""-""_$E($P(^(0),U,6),2,3)"
^DD(43.5,0,"IX","AGL",43.5,.08)=""
^DD(43.5,0,"IX","B",43.5,.01)=""
^DD(43.5,0,"IX","C",43.5,.05)=""
^DD(43.5,0,"NM","G&L CORRECTIONS")=""
^DD(43.5,0,"VR")="5.3"
^DD(43.5,.01,0)="DATE OF CHANGE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(43.5,.01,1,0)="^.1^^-1"
^DD(43.5,.01,1,1,0)="43.5^B"
^DD(43.5,.01,1,1,1)="S ^DGS(43.5,""B"",$E(X,1,30),DA)="""""
^DD(43.5,.01,1,1,2)="K ^DGS(43.5,""B"",$E(X,1,30),DA)"
^DD(43.5,.01,3)=""
^DD(43.5,.01,21,0)="^^1^1^2920108^^"
^DD(43.5,.01,21,1,0)="The change was made to the patient movement on this date."
^DD(43.5,.01,"DT")="2850821"
^DD(43.5,.02,0)="TYPE OF CHANGE^P43.61'^DG(43.61,^0;2^Q"
^DD(43.5,.02,3)="Select the type of change that best fits from the G&L Type of Change File."
^DD(43.5,.02,21,0)="^^3^3^2930423^^^"
^DD(43.5,.02,21,1,0)="The type of change (e.g. admission/discharge/transfer, treating specialty "
^DD(43.5,.02,21,2,0)="entered/deleted/edited or changes to the ward or movement type) "
^DD(43.5,.02,21,3,0)="made to patient movement."
^DD(43.5,.02,"DT")="2930423"
^DD(43.5,.03,0)="OLD VALUE^F^^0;3^K:$L(X)>32!($L(X)<1) X"
^DD(43.5,.03,3)="ANSWER MUST BE 1-32 CHARACTERS IN LENGTH"
^DD(43.5,.03,21,0)="^^2^2^2920108^^"
^DD(43.5,.03,21,1,0)="This field contains the old value prior to change made to the patient "
^DD(43.5,.03,21,2,0)="movement. "
^DD(43.5,.03,"DT")="2850107"
^DD(43.5,.04,0)="NEW VALUE^F^^0;4^K:$L(X)>32!($L(X)<1) X"
^DD(43.5,.04,3)="ANSWER MUST BE 1-32 CHARACTERS IN LENGTH"
^DD(43.5,.04,21,0)="^^2^2^2920108^"
^DD(43.5,.04,21,1,0)="This field contains the new value after the change was made to the patient "
^DD(43.5,.04,21,2,0)="movement."
^DD(43.5,.05,0)="PATIENT^P2'^DPT(^0;5^Q"
^DD(43.5,.05,1,0)="^.1"
^DD(43.5,.05,1,1,0)="43.5^C"
^DD(43.5,.05,1,1,1)="S ^DGS(43.5,""C"",$E(X,1,30),DA)="""""
^DD(43.5,.05,1,1,2)="K ^DGS(43.5,""C"",$E(X,1,30),DA)"
^DD(43.5,.05,21,0)="^^1^1^2920211^^"
^DD(43.5,.05,21,1,0)="This field contains the IFN for the patient involved."
^DD(43.5,.05,"DT")="2850108"
^DD(43.5,.06,0)="ADMISSION THIS APPLIES TO^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(43.5,.06,1,0)="^.1^^0"
^DD(43.5,.06,3)=""
^DD(43.5,.06,21,0)="^^1^1^2920108^"
^DD(43.5,.06,21,1,0)="This field contains the admission date/time that changes relates to."
^DD(43.5,.06,"DT")="2850912"
^DD(43.5,.07,0)="ENTRY PERSON^P200'^VA(200,^0;7^Q"
^DD(43.5,.07,21,0)="^^2^2^2920108^"
^DD(43.5,.07,21,1,0)="This field contains the IFN of the person who made the change to the "
^DD(43.5,.07,21,2,0)="patient movement."
^DD(43.5,.07,"DT")="2901017"
^DD(43.5,.08,0)="EARLIEST DATE TO CORRECT^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(43.5,.08,1,0)="^.1"
^DD(43.5,.08,1,1,0)="43.5^AGL"
^DD(43.5,.08,1,1,1)="S ^DGS(43.5,""AGL"",$E(X,1,30),DA)="""""
^DD(43.5,.08,1,1,2)="K ^DGS(43.5,""AGL"",$E(X,1,30),DA)"
^DD(43.5,.08,21,0)="^^2^2^2920108^"
^DD(43.5,.08,21,1,0)="This field contains the earliest date needed for recalc of the G&L/BSR "
^DD(43.5,.08,21,2,0)="based on the change made to this patient movement."
^DD(43.5,.08,"DT")="2850913"
^DD(43.5,.09,0)="TRANSFER DATE^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(43.5,.09,3)=""
^DD(43.5,.09,21,0)="^^1^1^2920108^"
^DD(43.5,.09,21,1,0)="This field contains the transfer date change made to this patient movement."
^DD(43.5,.09,"DT")="2860326"
^DD(43.5,10,0)="RECALCULATION DATE^D^^10;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(43.5,10,1,0)="^.1^^0"
^DD(43.5,10,21,0)="^^2^2^2920108^"
^DD(43.5,10,21,1,0)="This field contains the date recalculation was done for this change to the "
^DD(43.5,10,21,2,0)="patient movement."
^DD(43.5,10,"DT")="2850912"
^DD(43.5,"B","ADMISSION THIS APPLIES TO",.06)=""
^DD(43.5,"B","DATE OF CHANGE",.01)=""
^DD(43.5,"B","EARLIEST DATE TO CORRECT",.08)=""
^DD(43.5,"B","ENTRY PERSON",.07)=""
^DD(43.5,"B","NEW VALUE",.04)=""
^DD(43.5,"B","OLD VALUE",.03)=""
^DD(43.5,"B","PATIENT",.05)=""
^DD(43.5,"B","RECALCULATION DATE",10)=""
^DD(43.5,"B","TRANSFER DATE",.09)=""
^DD(43.5,"B","TYPE OF CHANGE",.02)=""
^DD(43.5,"GL",0,1,.01)=""
^DD(43.5,"GL",0,2,.02)=""
^DD(43.5,"GL",0,3,.03)=""
^DD(43.5,"GL",0,4,.04)=""
^DD(43.5,"GL",0,5,.05)=""
^DD(43.5,"GL",0,6,.06)=""
^DD(43.5,"GL",0,7,.07)=""
^DD(43.5,"GL",0,8,.08)=""
^DD(43.5,"GL",0,9,.09)=""
^DD(43.5,"GL",10,1,10)=""
^DD(43.5,"IX",.01)=""
^DD(43.5,"IX",.05)=""
^DD(43.5,"IX",.08)=""
^DD(43.5,"RQ",.01)=""
^DD(43.61,0)="FIELD^^.01^1"
^DD(43.61,0,"DDA")="N"
^DD(43.61,0,"DT")="2930423"
^DD(43.61,0,"IX","B",43.61,.01)=""
^DD(43.61,0,"NM","G&L TYPE OF CHANGE")=""
^DD(43.61,0,"PT",43.5,.02)=""
^DD(43.61,0,"VR")="5.3"
^DD(43.61,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(43.61,.01,1,0)="^.1"
^DD(43.61,.01,1,1,0)="43.61^B"
^DD(43.61,.01,1,1,1)="S ^DG(43.61,""B"",$E(X,1,30),DA)="""""
^DD(43.61,.01,1,1,2)="K ^DG(43.61,""B"",$E(X,1,30),DA)"
^DD(43.61,.01,3)="Answer must be 3-30 characters in length."
^DD(43.61,.01,21,0)="^^1^1^2930423^"
^DD(43.61,.01,21,1,0)="This contains the type of change made to the patient movement."
^DD(43.61,.01,"DT")="2930423"
^DD(43.61,"B","NAME",.01)=""
^DD(43.61,"GL",0,1,.01)=""
^DD(43.61,"IX",.01)=""
^DD(43.61,"RQ",.01)=""
^DD(43.7,0)="FIELD^^8^9"
^DD(43.7,0,"IX","AI",43.7,2)=""
^DD(43.7,0,"IX","B",43.7,.01)=""
^DD(43.7,0,"NM","ADT TEMPLATE")=""
^DD(43.7,0,"VR")="5.3"
^DD(43.7,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(43.7,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(43.7,.001,21,0)="^^2^2^2920211^"
^DD(43.7,.001,21,1,0)="Internal Reference number assigned to each template automatically"
^DD(43.7,.001,21,2,0)="as each new one is entered into the file."
^DD(43.7,.001,"DT")="2870520"
^DD(43.7,.01,0)="ADT OPTION NAME^RFXI^^0;1^K:'$D(DGTEMPE) X I $D(X) S DIC(0)=""E"",DIC=""^DIC(19,"",DIC(""S"")=""I $E($P(^(0),""""^"""",1),1,2)=""""DG"""""" D ^DIC S DIC=DIE S X=$S(Y>0:$P(^DIC(19,+Y,0),""^"",2),1:"""") I $L(X)<3!($L(X)>50) W !?5,""DG option in OPTION file!"",*7 K X"
^DD(43.7,.01,1,0)="^.1"
^DD(43.7,.01,1,1,0)="43.7^B"
^DD(43.7,.01,1,1,1)="S ^DG(43.7,""B"",$E(X,1,30),DA)="""""
^DD(43.7,.01,1,1,2)="K ^DG(43.7,""B"",$E(X,1,30),DA)"
^DD(43.7,.01,3)="Select a DG option which is located in the OPTION file."
^DD(43.7,.01,12)="SELECT 'DG' NAMESPACED OPTIONS ONLY!"
^DD(43.7,.01,12.1)="S DIC(""S"")=""I $E($P(^(0),""""^"""",1),1,2)=""""DG"""""""
^DD(43.7,.01,21,0)="^^3^3^2920211^"
^DD(43.7,.01,21,1,0)="The ADT OPTION NAME is the name given to the user menu option in"
^DD(43.7,.01,21,2,0)="the Admission Discharge Transfer DHCP application software to perform"
^DD(43.7,.01,21,3,0)="certain functions or display/print reports."
^DD(43.7,.01,"DT")="2881001"
^DD(43.7,2,0)="IDENTIFIER^RNJ4,0IX^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) K:'$D(DGTEMPE) X"
^DD(43.7,2,1,0)="^.1"
^DD(43.7,2,1,1,0)="43.7^AI"
^DD(43.7,2,1,1,1)="S ^DG(43.7,""AI"",$E(X,1,30),DA)="""""
^DD(43.7,2,1,1,2)="K ^DG(43.7,""AI"",$E(X,1,30),DA)"
^DD(43.7,2,3)=""
^DD(43.7,2,12)="SELECT 'DG' NAMESPACED ROUTINES ONLY!"
^DD(43.7,2,12.1)="S DIC(""S"")=""I $E($P(^(0),""""^"""",1),1,2)=""""DG"""""""
^DD(43.7,2,21,0)="^^3^3^2920211^"
^DD(43.7,2,21,1,0)="The identifier is the same number as the internal reference number,"
^DD(43.7,2,21,2,0)="automatically assigned to the entry as each new one is entered into"
^DD(43.7,2,21,3,0)="the file."
^DD(43.7,2,"DT")="2881001"
^DD(43.7,3,0)="TEMPLATE FILE^RNJ6,2IX^^0;3^K:+X'=X!(X>999.99)!(X<1)!(X?.E1"".""3N.N) X I $D(X) K:'$D(DGTEMPE) X"
^DD(43.7,3,3)=""
^DD(43.7,3,21,0)="^^3^3^2920211^"
^DD(43.7,3,21,1,0)="The template file is the File number that a particular template has"
^DD(43.7,3,21,2,0)="been created in.  For example, the 'Female Inpatient List' is located"
^DD(43.7,3,21,3,0)="in the Patient File, or File 2.00."
^DD(43.7,3,"DT")="2881001"
^DD(43.7,4,0)="TEMPLATE TYPE^RSXI^E:EDIT;P:PRINT;S:SORT;^0;4^K:'$D(DGTEMPE) X I $D(X),$P(^DG(43.7,+DA,0),""^"",2)']"""" K X W !?4,""'ROUTINE' must be specified before selecting type!"",*7 Q"
^DD(43.7,4,1,0)="^.1^^0"
^DD(43.7,4,21,0)="^^14^14^2920211^^^^"
^DD(43.7,4,21,1,0)="This designates what type of fileman template is utilized to perform"
^DD(43.7,4,21,2,0)="functions or displays/outputs through the ADT DHCP application software."
^DD(43.7,4,21,3,0)="The forms of templates are as follows:"
^DD(43.7,4,21,4,0)="      INPUT - requires user input into the software to enter or edit"
^DD(43.7,4,21,5,0)="              current information."
^DD(43.7,4,21,6,0)="     OUTPUT - In most cases, the user designates a date range or other"
^DD(43.7,4,21,7,0)="              range to print, and an output is sent to a designated"
^DD(43.7,4,21,8,0)="              printer."
^DD(43.7,4,21,9,0)="       SORT - A sort template is created through fileman and allows the"
^DD(43.7,4,21,10,0)="              user to search for information based on various demon-"
^DD(43.7,4,21,11,0)="              inators, i.e. sort for all inpatients by ward and within"
^DD(43.7,4,21,12,0)="              ward, sort by room-bed number.  This will give a listing"
^DD(43.7,4,21,13,0)="              of all inpatients, listed by ward and notes what room-bed"
^DD(43.7,4,21,14,0)="              they are occupying."
^DD(43.7,4,"DT")="2881001"
^DD(43.7,5,0)="EDIT TEMPLATE NAME^R*P.402'X^DIE(^0;5^K:'$D(DGEDIT) X I $D(X) S DIC(""S"")=""I $P(^(0),""""^"""",4)=$P(^DG(43.7,DA,0),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$P(^DG(43.7,+DA,0),""^"",4)'=""E"" W !?4,""NOT AN 'INPUT' TEMPLATE!!"" K X"
^DD(43.7,5,1,0)="^.1^^0"
^DD(43.7,5,3)=""
^DD(43.7,5,12)="ONLY TEMPLATES WITHIN SPECIFIED FILE!"
^DD(43.7,5,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)=$P(^DG(43.7,DA,0),""""^"""",3)"""
^DD(43.7,5,21,0)="^^7^7^2920211^^^"
^DD(43.7,5,21,1,0)="Allows a user through fileman, to edit, change or add new names or"
^DD(43.7,5,21,2,0)="types of entries in any particular file based on that user's fileman"
^DD(43.7,5,21,3,0)="access."
^DD(43.7,5,21,4,0)="The name given to a template that has more than two edits or changes"
^DD(43.7,5,21,5,0)="is the template name.  The user can at a later date call up this"
^DD(43.7,5,21,6,0)="template and make the same edits/changes as designated earlier without"
^DD(43.7,5,21,7,0)="having to re-enter the variables.  The name is user specific."
^DD(43.7,5,"DT")="2881001"
^DD(43.7,6,0)="PRINT TEMPLATE NAME^R*P.4'X^DIPT(^0;6^K:'$D(DGEDIT) X I $D(X) S DIC(""S"")=""I $P(^(0),""""^"""",4)=$P(^DG(43.7,DA,0),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$P(^DG(43.7,+DA,0),""^"",4)'=""P"" W !?4,""NOT A 'PRINT' TEMPLATE!!"" K X"
^DD(43.7,6,1,0)="^.1^^0"
^DD(43.7,6,12)="TEMPLATES FROM SPECIFIED FILE ONLY!"
^DD(43.7,6,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)=$P(^DG(43.7,DA,0),""""^"""",3)"""
^DD(43.7,6,21,0)="^^4^4^2920211^^"
^DD(43.7,6,21,1,0)="Print template name is the name given to a print template that "
^DD(43.7,6,21,2,0)="includes a range of fields from any particular file to print in a"
^DD(43.7,6,21,3,0)="specified format for later use without having to re-enter the same"
^DD(43.7,6,21,4,0)="variables each time it is required.  The name is user specific."
^DD(43.7,6,"DT")="2881001"
^DD(43.7,7,0)="SORT TEMPLATE NAME^R*P.401'X^DIBT(^0;7^K:'$D(DGEDIT) X I $D(X) S DIC(""S"")=""I $P(^(0),""""^"""",4)=$P(^DG(43.7,DA,0),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$P(^DG(43.7,+DA,0),""^"",4)'=""S"" W !?4,""NOT A 'SORT' TEMPLATE!!"" K X"
^DD(43.7,7,12)="TEMPLATES FROM SPECIFIED FILE ONLY!"
^DD(43.7,7,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)=$P(^DG(43.7,DA,0),""""^"""",3)"""
^DD(43.7,7,21,0)="^^3^3^2920211^"
^DD(43.7,7,21,1,0)="Sort template name is the name (user specific) given to a set of"
^DD(43.7,7,21,2,0)="variables for information searching that can be used at a later date"
^DD(43.7,7,21,3,0)="without having to re-enter the same variables each time it is required."
^DD(43.7,7,"DT")="2881001"
^DD(43.7,8,0)="DISTRIBUTED TEMPLATE NAME^RFIX^^0;8^K:$L(X)>30!($L(X)<3) X I $D(X) K:'$D(DGTEMPE) X"
^DD(43.7,8,3)=""
^DD(43.7,8,21,0)="^^3^3^2920211^"
^DD(43.7,8,21,1,0)="The distributed template name is the name assigned (by developer) to"
^DD(43.7,8,21,2,0)="any given input, sort or print template that is included in the "
^DD(43.7,8,21,3,0)="national release of any DHCP software package."
^DD(43.7,8,"DT")="2881001"
^DD(43.7,"B","ADT OPTION NAME",.01)=""
^DD(43.7,"B","DISTRIBUTED TEMPLATE NAME",8)=""
^DD(43.7,"B","EDIT TEMPLATE NAME",5)=""
^DD(43.7,"B","IDENTIFIER",2)=""
^DD(43.7,"B","NUMBER",.001)=""
^DD(43.7,"B","PRINT TEMPLATE NAME",6)=""
^DD(43.7,"B","SORT TEMPLATE NAME",7)=""
^DD(43.7,"B","TEMPLATE FILE",3)=""
^DD(43.7,"B","TEMPLATE TYPE",4)=""
^DD(43.7,"GL",0,1,.01)=""
^DD(43.7,"GL",0,2,2)=""
^DD(43.7,"GL",0,3,3)=""
^DD(43.7,"GL",0,4,4)=""
^DD(43.7,"GL",0,5,5)=""
^DD(43.7,"GL",0,6,6)=""
^DD(43.7,"GL",0,7,7)=""
^DD(43.7,"GL",0,8,8)=""
^DD(43.7,"IX",.01)=""
^DD(43.7,"IX",2)=""
^DD(43.7,"RQ",.01)=""
^DD(43.7,"RQ",2)=""
^DD(43.7,"RQ",3)=""
^DD(43.7,"RQ",4)=""
^DD(43.7,"RQ",5)=""
^DD(43.7,"RQ",6)=""
^DD(43.7,"RQ",7)=""
^DD(43.7,"RQ",8)=""
^DD(44,0)="FIELD^^2801^91"
^DD(44,0,"DDA")="N"
^DD(44,0,"DT")="2960329"
^DD(44,0,"ID",2)="W """""
^DD(44,0,"ID",2.1)="W """""
^DD(44,0,"ID","WRITE")="I $P(^(0),U,3)=""C"" N SCMSG S SCMSG=""   ""_$$PRDEF^SDCO31(+Y) D EN^DDIOL(SCMSG,"""",""?5"")"
^DD(44,0,"IX","AC",44,2.1)=""
^DD(44,0,"IX","AD",44,.01)=""
^DD(44,0,"IX","ADDX",44.11,.02)=""
^DD(44,0,"IX","ADPR",44.1,.02)=""
^DD(44,0,"IX","AE",44,2802)=""
^DD(44,0,"IX","AHST1",44.003,688)=""
^DD(44,0,"IX","ALTA",44,2511)=""
^DD(44,0,"IX","ALTC",44,2510)=""
^DD(44,0,"IX","ALTN",44,2508)=""
^DD(44,0,"IX","ALTP",44,2509)=""
^DD(44,0,"IX","AOOS",44,50.01)=""
^DD(44,0,"IX","ARAD",44.003,10)=""
^DD(44,0,"IX","ASCRPW",44,31)=""
^DD(44,0,"IX","ATEAM",44,.01)=""
^DD(44,0,"IX","AWAS1",44.003,688)=""
^DD(44,0,"IX","B",44,.01)=""
^DD(44,0,"IX","C",44,1)=""
^DD(44,0,"IX","D",44.40457,.02)=""
^DD(44,0,"NM","HOSPITAL LOCATION")=""
^DD(44,0,"PT",2.001,.01)=""
^DD(44,0,"PT",2.98,.01)=""
^DD(44,0,"PT",2.98,18)=""
^DD(44,0,"PT",4.03,.02)=""
^DD(44,0,"PT",41.42,5)=""
^DD(44,0,"PT",42,44)=""
^DD(44,0,"PT",43,213)=""
^DD(44,0,"PT",43.04,.01)=""
^DD(44,0,"PT",44,4)=""
^DD(44,0,"PT",44,1916)=""
^DD(44,0,"PT",44,2009)=""
^DD(44,0,"PT",44,2010)=""
^DD(44,0,"PT",45.06,.05)=""
^DD(44,0,"PT",50.9008,.01)=""
^DD(44,0,"PT",51.153,.01)=""
^DD(44,0,"PT",51.17,.01)=""
^DD(44,0,"PT",52,5)=""
^DD(44,0,"PT",52.41,1.1)=""
^DD(44,0,"PT",53.1,113)=""
^DD(44,0,"PT",53.46,.01)=""
^DD(44,0,"PT",55.01,136)=""
^DD(44,0,"PT",55.05,13)=""
^DD(44,0,"PT",55.06,130)=""
^DD(44,0,"PT",57.81,.01)=""
^DD(44,0,"PT",58.1,7)=""
^DD(44,0,"PT",58.14,.01)=""
^DD(44,0,"PT",59,1007)=""
^DD(44,0,"PT",59.81,.01)=""
^DD(44,0,"PT",62.4871,.01)=""
^DD(44,0,"PT",63.04,.111)=""
^DD(44,0,"PT",63.05,.111)=""
^DD(44,0,"PT",64.03,14)=""
^DD(44,0,"PT",64.1111,20)=""
^DD(44,0,"PT",64.57,.01)=""
^DD(44,0,"PT",64.6,.01)=""
^DD(44,0,"PT",68,.8)=""
^DD(44,0,"PT",68.02,94)=""
^DD(44,0,"PT",69.01,8)=""
^DD(44,0,"PT",69.01,23)=""
^DD(44,0,"PT",69.11,11)=""
^DD(44,0,"PT",69.9,.8)=""
^DD(44,0,"PT",69.9004,.01)=""
^DD(44,0,"PT",69.99,.01)=""
^DD(44,0,"PT",70.03,8)=""
^DD(44,0,"PT",70.03,22)=""
^DD(44,0,"PT",74.4,8)=""
^DD(44,0,"PT",75.1,22)=""
^DD(44,0,"PT",79.1,.01)=""
^DD(44,0,"PT",100,6)=""
^DD(44,0,"PT",100.213,.01)=""
^DD(44,0,"PT",100.241,.01)=""
^DD(44,0,"PT",100.5,9)=""
^DD(44,0,"PT",100.62,2)=""
^DD(44,0,"PT",100.62,4)=""
^DD(44,0,"PT",100.99011,.01)=""
^DD(44,0,"PT",100.9925,.01)=""
^DD(44,0,"PT",115.7,4)=""
^DD(44,0,"PT",115.701,1)=""
^DD(44,0,"PT",119.6,102)=""
^DD(44,0,"PT",119.64,.01)=""
^DD(44,0,"PT",120.5,.05)=""
^DD(44,0,"PT",123,.04)=""
^DD(44,0,"PT",123,2)=""
^DD(44,0,"PT",123.54,.01)=""
^DD(44,0,"PT",123.56,.01)=""
^DD(44,0,"PT",125,.03)=""
^DD(44,0,"PT",126.01,7)=""
^DD(44,0,"PT",126.02,6)=""
^DD(44,0,"PT",126.03,7)=""
^DD(44,0,"PT",126.313,4)=""
^DD(44,0,"PT",126.316,3)=""
^DD(44,0,"PT",130,.021)=""
^DD(44,0,"PT",130,119)=""
^DD(44,0,"PT",131.7,.01)=""
^DD(44,0,"PT",133,42)=""
^DD(44,0,"PT",137.45,2)=""
^DD(44,0,"PT",142.2,.01)=""
^DD(44,0,"PT",183,.01)=""
^DD(44,0,"PT",195.9,.01)=""
^DD(44,0,"PT",195.9,2)=""
^DD(44,0,"PT",211.4,.01)=""
^DD(44,0,"PT",211.8,.01)=""
^DD(44,0,"PT",217.04,.01)=""
^DD(44,0,"PT",352.4,.01)=""
^DD(44,0,"PT",357.9501,.01)=""
^DD(44,0,"PT",357.96,.1)=""
^DD(44,0,"PT",357.9901,.01)=""
^DD(44,0,"PT",373,6.16)=""
^DD(44,0,"PT",375,1.03)=""
^DD(44,0,"PT",393,.05)=""
^DD(44,0,"PT",396.115,.01)=""
^DD(44,0,"PT",399.0304,6)=""
^DD(44,0,"PT",404.56,.02)=""
^DD(44,0,"PT",404.57,.09)=""
^DD(44,0,"PT",404.575,.01)=""
^DD(44,0,"PT",404.91,902)=""
^DD(44,0,"PT",404.95,40)=""
^DD(44,0,"PT",404.9503,.01)=""
^DD(44,0,"PT",409.3,13.2)=""
^DD(44,0,"PT",409.32,.01)=""
^DD(44,0,"PT",409.51,3)=""
^DD(44,0,"PT",409.55,.03)=""
^DD(44,0,"PT",409.68,.04)=""
^DD(44,0,"PT",409.69,9)=""
^DD(44,0,"PT",409.77,.04)=""
^DD(44,0,"PT",409.95,.01)=""
^DD(44,0,"PT",601.84,13)=""
^DD(44,0,"PT",615.2,.04)=""
^DD(44,0,"PT",631.6,.01)=""
^DD(44,0,"PT",632,2)=""
^DD(44,0,"PT",634.2,6)=""
^DD(44,0,"PT",650.119,.01)=""
^DD(44,0,"PT",663.4,8)=""
^DD(44,0,"PT",669.9,52)=""
^DD(44,0,"PT",669.922,.01)=""
^DD(44,0,"PT",691,40)=""
^DD(44,0,"PT",691.1,5)=""
^DD(44,0,"PT",691.5,18)=""
^DD(44,0,"PT",691.6,17)=""
^DD(44,0,"PT",691.7,69)=""
^DD(44,0,"PT",691.8,18)=""
^DD(44,0,"PT",694,3)=""
^DD(44,0,"PT",699,8)=""
^DD(44,0,"PT",699,9)=""
^DD(44,0,"PT",700,9)=""
^DD(44,0,"PT",702.01,.05)=""
^DD(44,0,"PT",720.3,55)=""
^DD(44,0,"PT",721,26)=""
^DD(44,0,"PT",727.802,27)=""
^DD(44,0,"PT",727.804,52)=""
^DD(44,0,"PT",727.808,14)=""
^DD(44,0,"PT",727.808,20)=""
^DD(44,0,"PT",727.809,11)=""
^DD(44,0,"PT",727.814,12)=""
^DD(44,0,"PT",727.816,18)=""
^DD(44,0,"PT",727.819,11)=""
^DD(44,0,"PT",727.82,27)=""
^DD(44,0,"PT",727.821,14)=""
^DD(44,0,"PT",727.821,20)=""
^DD(44,0,"PT",727.822,14)=""
^DD(44,0,"PT",727.827,11)=""
^DD(44,0,"PT",728.113,13)=""
^DD(44,0,"PT",728.44,.01)=""
^DD(44,0,"PT",740.01,.01)=""
^DD(44,0,"PT",741,4)=""
^DD(44,0,"PT",741.026,.01)=""
^DD(44,0,"PT",742,.06)=""
^DD(44,0,"PT",745.1,14)=""
^DD(44,0,"PT",790.08,.11)=""
^DD(44,0,"PT",790.1,.11)=""
^DD(44,0,"PT",810.11,.01)=""
^DD(44,0,"PT",810.944,.01)=""
^DD(44,0,"PT",815,201)=""
^DD(44,0,"PT",815.0401,.01)=""
^DD(44,0,"PT",815.0801,.01)=""
^DD(44,0,"PT",2005,101)=""
^DD(44,0,"PT",2005.1,101)=""
^DD(44,0,"PT",2006.04,2)=""
^DD(44,0,"PT",2006.58314,.01)=""
^DD(44,0,"PT",8925,1205)=""
^DD(44,0,"PT",8925,1211)=""
^DD(44,0,"PT",8925.5,1.07)=""
^DD(44,0,"PT",8925.5,1.08)=""
^DD(44,0,"PT",8925.93,.01)=""
^DD(44,0,"PT",8926,.02)=""
^DD(44,0,"PT",8926.01,.02)=""
^DD(44,0,"PT",8989.5,.01)=""
^DD(44,0,"PT",509850.6,2.6)=""
^DD(44,0,"PT",509850.81,.01)=""
^DD(44,0,"PT",509850.831,.01)=""
^DD(44,0,"PT",509850.9,.04)=""
^DD(44,0,"PT",9000010,.22)=""
^DD(44,0,"PT",9000011,1.08)=""
^DD(44,0,"VR")="5.3"
^DD(44,0,"VRPK")="SD"
^DD(44,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(44,.01,1,0)="^.1"
^DD(44,.01,1,1,0)="44^B"
^DD(44,.01,1,1,1)="S ^SC(""B"",$E(X,1,30),DA)="""""
^DD(44,.01,1,1,2)="K ^SC(""B"",$E(X,1,30),DA)"
^DD(44,.01,1,2,0)="^^TRIGGER^42^.01"
^DD(44,.01,1,2,1)="X ^DD(44,.01,1,2,1.3) I X S X=DIV X ^DD(44,.01,1,2,89.2) S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(44,.01,1,2,1.4)"
^DD(44,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^SC(D0,42)):^(42),1:"""") S X=Y(0)'=$S('$D(^DIC(42,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DD(44,.01,1,2,1.4)="S DIH=$S($D(^DIC(42,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(0)=DIV_$S(%]"""":U_%,1:""""),DIH=42,DIG=.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44,.01,1,2,2)="Q"
^DD(44,.01,1,2,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SC(D0,42)):^(42),1:""""),D0=$P(Y(1),U,1) S:'$D(^DIC(42,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(42,D0,0)):^(0),1:"""")"
^DD(44,.01,1,2,"CREATE CONDITION")="NAME'=WARD LOCATION FILE POINTER"
^DD(44,.01,1,2,"CREATE VALUE")="NAME"
^DD(44,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(44,.01,1,2,"FIELD")="WARD LOCATION FILE POINTER:NAME"
^DD(44,.01,1,3,0)="44^ATEAM^MUMPS"
^DD(44,.01,1,3,1)="Q"
^DD(44,.01,1,3,2)="Q"
^DD(44,.01,1,3,"%D",0)="^^7^7^2960402^"
^DD(44,.01,1,3,"%D",1,0)="The 'TEAM' cross reference of this file is created & modified through"
^DD(44,.01,1,3,"%D",2,0)="changes to the ASSOCIATED CLINIC (#.09) Field of the TEAM POSITION (#404.57)"
^DD(44,.01,1,3,"%D",3,0)="File and the NAME (#.01) Field of the TEAM (#404.51) File.  This results"
^DD(44,.01,1,3,"%D",4,0)="in a whole-file cross-reference with which a clinic can be looked-up"
^DD(44,.01,1,3,"%D",5,0)="for a team that has a team position with an associated clinic.  The"
^DD(44,.01,1,3,"%D",6,0)="'ATEAM' cross-reference does not do anything - it is here for"
^DD(44,.01,1,3,"%D",7,0)="documentation purposes."
^DD(44,.01,1,3,"DT")="2960402"
^DD(44,.01,1,10,0)="44^AD^MUMPS"
^DD(44,.01,1,10,1)="Q"
^DD(44,.01,1,10,2)="S RTPL=X,X=""RTP6"" X ^%ZOSF(""TEST"") S X=RTPL K RTPL I $T D ^RTP6"
^DD(44,.01,1,12,0)="^^TRIGGER^403.12^.01"
^DD(44,.01,1,12,1)="X ^DD(44,.01,1,12,1.3) I X S X=DIV X ^DD(44,.01,1,12,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(44,.01,1,12,1.4)"
^DD(44,.01,1,12,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^SC(D0,0)):^(0),1:"""") S X=Y(0)'=$S('$D(^SCRS(403.12,+$P(Y(1),U,29),0)):"""",1:$P(^(0),U,1))"
^DD(44,.01,1,12,1.4)="S DIH=$S($D(^SCRS(403.12,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,1)=DIV,DIH=403.12,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(44,.01,1,12,2)="Q"
^DD(44,.01,1,12,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SC(D0,0)):^(0),1:""""),D0=$P(Y(1),U,29) S:'$D(^SCRS(403.12,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^SCRS(403.12,D0,0)):^(0),1:"""")"
^DD(44,.01,1,12,"%D",0)="^^2^2^2950606^"
^DD(44,.01,1,12,"%D",1,0)="This trigger cross-reference is used to update the Name field (#.01) of the"
^DD(44,.01,1,12,"%D",2,0)="Clinic Services Resource file (#403.12)."
^DD(44,.01,1,12,"CREATE CONDITION")="NAME'=CLINIC SERVICES RESOURCE"
^DD(44,.01,1,12,"CREATE VALUE")="NAME"
^DD(44,.01,1,12,"DELETE VALUE")="NO EFFECT"
^DD(44,.01,1,12,"DT")="2950322"
^DD(44,.01,1,12,"FIELD")="CLINIC SERVICES RESOURCE:NAME"
^DD(44,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(44,.01,5,1,0)="42^.01^3"
^DD(44,.01,7.5)="S:X?1""%"".N1""$"" X=$TR(X,""%$"",""`"")"
^DD(44,.01,21,0)="^^2^2^2920212^"
^DD(44,.01,21,1,0)="Name given by user to any ward, clinic, fileroom, operating room"
^DD(44,.01,21,2,0)="or other location within a VA facility."
^DD(44,.01,"DEL",.01,0)="I $P(^SC(D0,0),""^"",3)[""C"" W !,*7,""No deletion of clinics allowed - you must inactivate them!!!"""
^DD(44,.01,"DEL",1900,0)="I $N(^SC(DA,""S"",DT))+1 W !?10,*7,""FUTURE APP'TS IN CLINIC!"""
^DD(44,.01,"DT")="2960402"
^DD(44,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X"
^DD(44,1,1,0)="^.1"
^DD(44,1,1,1,0)="44^C"
^DD(44,1,1,1,1)="S ^SC(""C"",$E(X,1,30),DA)="""""
^DD(44,1,1,1,2)="K ^SC(""C"",$E(X,1,30),DA)"
^DD(44,1,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(44,1,21,0)="^^2^2^2920212^"
^DD(44,1,21,1,0)="Abbreviation given by user to any ward, clinic, fileroom, operating"
^DD(44,1,21,2,0)="room or other location associated with the NAME."
^DD(44,1,"DT")="2830401"
^DD(44,2,0)="TYPE^RSX^C:CLINIC;M:MODULE;W:WARD;Z:OTHER LOCATION;N:NON-CLINIC STOP;F:FILE AREA;I:IMAGING;OR:OPERATING ROOM;^0;3^K:'$D(^DIC(40.9,""C"",X)) X I $D(X) S SDX=$N(^DIC(40.9,""C"",X,0)) K:SDX'>0 X K SDX"
^DD(44,2,.1)=""
^DD(44,2,1,0)="^.1"
^DD(44,2,1,1,0)="^^TRIGGER^44^2.1"
^DD(44,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(44,2,1,1,1.1) X ^DD(44,2,1,1,1.4)"
^DD(44,2,1,1,1.1)="S X=DIV S SDX=$N(^DIC(40.9,""C"",X,0)) S:SDX'>0 SDX=0 S X=$S('SDX:"""",$D(^DIC(40.9,+SDX,0)):+SDX,1:"""") K SDX"
^DD(44,2,1,1,1.4)="S DIH=$S($D(^SC(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,21,99))  S DIH=DIH_U"" S %=$P(DIH,U,23,999),DIU=$P(DIH,U,22),^(0)=$P(DIH,U,1,21)_U_DIV_$S(%]"""":U_%,1:""""),DIH=44,DIG=2.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44,2,1,1,2)="Q"
^DD(44,2,1,1,"CREATE VALUE")="S SDX=$N(^DIC(40.9,""C"",X,0)) S:SDX'>0 SDX=0 S X=$S('SDX:"""",$D(^DIC(40.9,+SDX,0)):+SDX,1:"""") K SDX"
^DD(44,2,1,1,"DELETE VALUE")="NO EFFECT"
^DD(44,2,1,1,"FIELD")="TYPE E"
^DD(44,2,21,0)="^^2^2^2920212^"
^DD(44,2,21,1,0)="Type of location assigned to entries into this file, i.e. Ward,"
^DD(44,2,21,2,0)="Clinic, Fileroom, Operating Room, Other."
^DD(44,2,"DT")="2880114"
^DD(44,2.1,0)="TYPE EXTENSION^RP40.9'X^DIC(40.9,^0;22^I $P(^SC(DA,0),""^"",3)'[""Z"",$D(^DIC(40.9,+X,0)),$P(^(0),""^"",2)]"""",$P(^SC(DA,0),""^"",3)'=$P(^DIC(40.9,+X,0),""^"",2) K X"
^DD(44,2.1,1,0)="^.1^^-1"
^DD(44,2.1,1,1,0)="44^AC^MUMPS"
^DD(44,2.1,1,1,1)="I $D(^DIC(40.9,+X,0)),$P(^(0),""^"",2)]"""" S ^SC(""AC"",$P(^(0),""^"",2),DA)="""""
^DD(44,2.1,1,1,2)="I $D(^DIC(40.9,+X,0)),$P(^(0),""^"",2)]"""" K ^SC(""AC"",$P(^(0),""^"",2),DA)"
^DD(44,2.1,4)="I $P(^SC(DA,0),""^"",3)'[""Z"" S DIC(""S"")=""I $P(^DIC(40.9,Y,0),""""^"""",2)=$P(^SC(DA,0),""""^"""",3)"""
^DD(44,2.1,5,1,0)="44^2^1"
^DD(44,2.1,21,0)="^^3^3^2920212^"
^DD(44,2.1,21,1,0)="Type extension of a location assigned to entries into this file"
^DD(44,2.1,21,2,0)="to insure user is not allowed to use a previously designated"
^DD(44,2.1,21,3,0)="Ward Location as a Clinic Location for example."
^DD(44,2.1,"DT")="2860731"
^DD(44,3,0)="INSTITUTION^P4'^DIC(4,^0;4^Q"
^DD(44,3,21,0)="^^2^2^2920212^"
^DD(44,3,21,1,0)="Institution name assigned to each entry in this file to identify"
^DD(44,3,21,2,0)="where the specific location is."
^DD(44,3.5,0)="DIVISION^P40.8'^DG(40.8,^0;15^Q"
^DD(44,3.5,21,0)="^^3^3^2920212^"
^DD(44,3.5,21,1,0)="Division name assigned to each entry in this file to identify"
^DD(44,3.5,21,2,0)="wehre the specific location is.  There can be multiple divisions"
^DD(44,3.5,21,3,0)="assigned to an Institution, but only one division per location."
^DD(44,3.5,"DT")="2840202"
^DD(44,4,0)="MODULE^P44^SC(^0;5^Q"
^DD(44,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(44,4,21,0)="^^1^1^2920212^"
^DD(44,4,21,1,0)="Module or name of hospital location."
^DD(44,5,0)="DEFAULT DEVICE^F^^99;2^K:$L(X)>3!($L(X)<2) X"
^DD(44,5,3)="ANSWER MUST BE 2-3 CHARACTERS IN LENGTH"
^DD(44,5,21,0)="^^2^2^2920922^^"
^DD(44,5,21,1,0)="Default device to which information should print for a specific"
^DD(44,5,21,2,0)="location.  This field is not currently being utilized."
^DD(44,6,0)="DISPOSITION ACTION^S^0:NONE;1:APPOINTMENT REC REQ;2:SCHEDULING;^0;10^Q"
^DD(44,6,21,0)="^^2^2^2920212^"
^DD(44,6,21,1,0)="A disposition action associated with specific location, i.e."
^DD(44,6,21,2,0)="'0'= none; '1'=appointment record request; '2'=scheduling."
^DD(44,7,0)="VISIT LOCATION^F^^0;6^K:$L(X)>4!($L(X)<1) X"
^DD(44,7,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(44,7,21,0)="^^1^1^2920212^"
^DD(44,7,21,1,0)="Location of visit for specified entry."
^DD(44,8,0)="STOP CODE NUMBER^R*P40.7'X^DIC(40.7,^0;7^S DIC(""S"")=""I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""""PE""""[$P(^(0),U,6),$S('$P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,8,1,0)="^.1^^0"
^DD(44,8,3)=""
^DD(44,8,12)="Inactive stop codes are invalid.  Stop code 900 can not be used for a clinic.  Stop code must have a restriction type of ""Primary"" or ""Either"" and not have a future restriction date."
^DD(44,8,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""""PE""""[$P(^(0),U,6),$S('$P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)"""
^DD(44,8,21,0)="^.001^3^3^3040506^^^^"
^DD(44,8,21,1,0)="Three digit stop code number assigned to specific location.  Each"
^DD(44,8,21,2,0)="stop code number represents a type of care or Service/treating"
^DD(44,8,21,3,0)="specialty (clinics only)."
^DD(44,8,"DT")="3050112"
^DD(44,8.1,0)="PRV. YEAR STOP CODE^P40.7'IX^DIC(40.7,^OC;1^K:X X"
^DD(44,8.1,3)="PREVIOUS YEAR STOP CODE"
^DD(44,8.1,9)="^"
^DD(44,8.1,21,0)="^^2^2^2920212^"
^DD(44,8.1,21,1,0)="Previous year's three digit stop code number that was assigned to"
^DD(44,8.1,21,2,0)="specific location (clinics only)."
^DD(44,8.1,"DT")="2880801"
^DD(44,9,0)="SERVICE^RS^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;R:REHAB MEDICINE;N:NEUROLOGY;0:NONE;^0;8^Q"
^DD(44,9,21,0)="^^2^2^2920212^"
^DD(44,9,21,1,0)="Service assigned to specific location, i.e. Medicine, Surgery,"
^DD(44,9,21,2,0)="Psychiatry, etc."
^DD(44,9,"DT")="2831222"
^DD(44,9.5,0)="TREATING SPECIALTY^RP45.7'^DIC(45.7,^0;20^Q"
^DD(44,9.5,21,0)="^^3^3^2920212^"
^DD(44,9.5,21,1,0)="Treating specialty assigned a specific location, i.e. neurosurgery,"
^DD(44,9.5,21,2,0)="alcohol/drug rehabilitation, dermatology (specialties within"
^DD(44,9.5,21,3,0)="Services usually)."
^DD(44,9.5,"DT")="2860228"
^DD(44,10,0)="PHYSICAL LOCATION^F^^0;11^K:$L(X)>25!($L(X)<1) X"
^DD(44,10,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(44,10,21,0)="^^2^2^2920212^"
^DD(44,10,21,1,0)="Physical location of a specific ward or clinic, etc., i.e."
^DD(44,10,21,2,0)="3rd floor,  Wing A."
^DD(44,10,"DT")="2831108"
^DD(44,11,0)="*OKC A^F^^.901;1^K:$L(X)>3!($L(X)<1) X"
^DD(44,11,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(44,11,"DT")="2840208"
^DD(44,12,0)="*OKC B^F^^.901;2^K:$L(X)>3!($L(X)<1) X"
^DD(44,12,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(44,13,0)="SYNONYM^44.01A^^.01;0"
^DD(44,13,21,0)="^^1^1^2921224^^^"
^DD(44,13,21,1,0)="Synonym or shortened name associated with a specific location."
^DD(44,14,0)="SPECIAL AMIS STOP^S^10:MENTAL HYGEINE;11:DAY TREATMENT;12:DAY HOSPITAL;13:DRUG DEPENDANCE;14:ALCOHOL TREATMENT;15:EMERGENCY UNIT;16:EMPLOYEE HEALTH;^0;12^Q"
^DD(44,14,21,0)="^^2^2^2920212^"
^DD(44,14,21,1,0)="Special AMIS stop associated with a specific location based on"
^DD(44,14,21,2,0)="the Service assigned."
^DD(44,15,0)="CATEGORY OF VISIT^F^^0;9^K:$L(X)>3!($L(X)<1) X"
^DD(44,15,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(44,15,21,0)="^^1^1^2920212^"
^DD(44,15,21,1,0)="Category of visit associated with a specific location."
^DD(44,16,0)="DEFAULT PROVIDER^*P200'^VA(200,^0;13^S DIC(""S"")=""I $$SCREEN^SDUTL2(Y,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,16,4)="D HELP^SDUTL2(DT)"
^DD(44,16,12)="Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS."
^DD(44,16,12.1)="S DIC(""S"")=""I $$SCREEN^SDUTL2(Y,DT)"""
^DD(44,16,21,0)="^^1^1^2961029^^^^"
^DD(44,16,21,1,0)="Default provider or physician that is assigned to specific clinic."
^DD(44,16,"DT")="2961029"
^DD(44,19,0)="PROHIBITED TERMINAL^44.02^^9;0"
^DD(44,19,21,0)="^^1^1^2920212^"
^DD(44,19,21,1,0)="Terminals that cannot be utilized from specific location."
^DD(44,23,0)="AGENCY^P4.11'^DIC(4.11,^0;23^Q"
^DD(44,23,21,0)="^^2^2^2920212^"
^DD(44,23,21,1,0)="Agency associated with specific location, i.e. Veterans Affairs,"
^DD(44,23,21,2,0)="Department of Defense, etc."
^DD(44,23,"DT")="2900104"
^DD(44,24,0)="ASK FOR CHECK IN/OUT TIME^S^0:NO;1:YES;^0;24^Q"
^DD(44,24,21,0)="^^15^15^2950605^^^^"
^DD(44,24,21,1,0)="When checking in/out a patient for an appointment, should the"
^DD(44,24,21,2,0)="user be prompted for date and time?"
^DD(44,24,21,3,0)=" "
^DD(44,24,21,4,0)="If this field is set to 'YES', the user will be prompted"
^DD(44,24,21,5,0)="for the date and time.  The current date and time will be the"
^DD(44,24,21,6,0)="default."
^DD(44,24,21,7,0)=" "
^DD(44,24,21,8,0)="If this field is set to 'NO' or is not entered, the user will"
^DD(44,24,21,9,0)="not be prompted and the current date and time will automatically"
^DD(44,24,21,10,0)="be entered."
^DD(44,24,21,11,0)=" "
^DD(44,24,21,12,0)="If an appointment is scheduled retroactively then the system"
^DD(44,24,21,13,0)="will use the date and time of the appointment as the check"
^DD(44,24,21,14,0)="in/out time.  This date/time will either be entered automatically or"
^DD(44,24,21,15,0)="used as a default, depending upon how this parameter is set."
^DD(44,24,"DT")="2930311"
^DD(44,29,0)="CLINIC SERVICES RESOURCE^P403.12'I^SCRS(403.12,^0;29^Q"
^DD(44,29,21,0)="^^1^1^2950605^"
^DD(44,29,21,1,0)="This field is used to associate the clinic with a Clinic Services Resource."
^DD(44,29,"DT")="2950605"
^DD(44,30,0)="WORKLOAD VALIDATION AT CHK OUT^S^1:YES;0:NO;^0;30^Q"
^DD(44,30,21,0)="^^5^5^2971021^^^"
^DD(44,30,21,1,0)="Yes or 1 will result in a validation being performed on each checked out"
^DD(44,30,21,2,0)="encounter for this clinic.  No or zero will stop the validation of the"
^DD(44,30,21,3,0)="encounters as they are checked out for this clinic.  This validation is"
^DD(44,30,21,4,0)="to help ensure that the workload data is acceptable to the Austin"
^DD(44,30,21,5,0)="National Patient Care Database."
^DD(44,30,"DT")="2970715"
^DD(44,31,0)="CLINIC GROUP (REPORTS)^*P409.67'^SD(409.67,^0;31^S DIC(""S"")=""I $D(^SD(409.67,Y,1,""""B"""",1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,31,1,0)="^.1"
^DD(44,31,1,1,0)="44^ASCRPW"
^DD(44,31,1,1,1)="S ^SC(""ASCRPW"",$E(X,1,30),DA)="""""
^DD(44,31,1,1,2)="K ^SC(""ASCRPW"",$E(X,1,30),DA)"
^DD(44,31,1,1,"DT")="2971221"
^DD(44,31,3)="Specify the CLINIC GROUP that will be used to group clinic reports."
^DD(44,31,12)="Allows only the selection of CLINIC GROUP records that have a TYPE of 'REPORT'."
^DD(44,31,12.1)="S DIC(""S"")=""I $D(^SD(409.67,Y,1,""""B"""",1))"""
^DD(44,31,"DT")="2971221"
^DD(44,42,0)="WARD LOCATION FILE POINTER^P42X^DIC(42,^42;1^I $D(^DIC(42,+X,44)),+^(44),+^(44)'=DA W !?20,""This Ward location points to "",$P(^SC(+^DIC(42,+X,44),0),""^"",1) K X"
^DD(44,42,1,0)="^.1"
^DD(44,42,1,1,0)="^^TRIGGER^42^44"
^DD(44,42,1,1,1)="X ^DD(44,42,1,1,1.3) I X S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(42,D0,44)):^(44),1:"""") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y X ^DD(44,42,1,1,1.1) X ^DD(44,42,1,1,1.4)"
^DD(44,42,1,1,1.1)="S X=DIV S X=$S('$D(D0):"""",D0<0:"""",1:D0)"
^DD(44,42,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(44,42,1,1,69.2) S X=X S Y=X,X=Y(1),X=X S X=X'=Y S D0=I(0,0)"
^DD(44,42,1,1,1.4)="S DIH=$S($D(^DIC(42,DIV(0),44)):^(44),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(44)=DIV_$S(%]"""":U_%,1:""""),DIH=42,DIG=44 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44,42,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(42,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DIC(42,D0,44)):^(44),1:"""") S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S DIU=X K Y S X="""" X ^DD(44,42,1,1,2.4)"
^DD(44,42,1,1,2.4)="S DIH=$S($D(^DIC(42,DIV(0),44)):^(44),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(44)=DIV_$S(%]"""":U_%,1:""""),DIH=42,DIG=44 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44,42,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:"""") S X=$S('$D(D0):"""",D0<0:"""",1:D0),Y(1)=X,D0=Y(0) S:'$D(^DIC(42,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(42,D0,44)):^(44),1:"""") S X=$P(Y(101),U,1)"
^DD(44,42,1,1,"CREATE CONDITION")="NUMBER'=INTERNAL(WARD LOCATION FILE POINTER:HOSPITAL LOCATION FILE POINTER)"
^DD(44,42,1,1,"CREATE VALUE")="NUMBER"
^DD(44,42,1,1,"DELETE VALUE")="@"
^DD(44,42,1,1,"FIELD")="WARD LOCATION FILE POINTER:HOSPITAL LOCATION FILE POINTER"
^DD(44,42,5,1,0)="42^44^1"
^DD(44,42,21,0)="^^2^2^2920212^"
^DD(44,42,21,1,0)="If location is a ward, this is the file pointer to the Ward"
^DD(44,42,21,2,0)="Location File, File 42 in which this location is also stored."
^DD(44,42,"DT")="2860129"
^DD(44,50.01,0)="OCCASION OF SERVICE CLINIC?^S^1:YES;0:NO;^OOS;1^Q"
^DD(44,50.01,1,0)="^.1"
^DD(44,50.01,1,1,0)="44^AOOS"
^DD(44,50.01,1,1,1)="S ^SC(""AOOS"",$E(X,1,30),DA)="""""
^DD(44,50.01,1,1,2)="K ^SC(""AOOS"",$E(X,1,30),DA)"
^DD(44,50.01,1,1,3)="This cross-reference stores only occasion of service clinics"
^DD(44,50.01,1,1,"%D",0)="^^3^3^2961009^"
^DD(44,50.01,1,1,"%D",1,0)="This cross-reference will show those clinics which are flagged as"
^DD(44,50.01,1,1,"%D",2,0)="occasions of service.  These clinics are not editable through scheduling"
^DD(44,50.01,1,1,"%D",3,0)="software.  They are created with APIs contained the routine SCDXUAPI."
^DD(44,50.01,1,1,"DT")="2961009"
^DD(44,50.01,3)="Do not edit...this is controlled by a scheduling API call."
^DD(44,50.01,9)="^"
^DD(44,50.01,21,0)="^^5^5^2961008^"
^DD(44,50.01,21,1,0)="This field is non-editable.  It is created automatically by a scheduling"
^DD(44,50.01,21,2,0)="API and must NOT be edited by the site.  It designates clinic locations"
^DD(44,50.01,21,3,0)="added by ancillary packages for occasions of service.  These clinics can"
^DD(44,50.01,21,4,0)="not be edited through Scheduling options.  They can only be altered using"
^DD(44,50.01,21,5,0)="the API."
^DD(44,50.01,"DT")="2961009"
^DD(44,50.02,0)="OOS CALLING PACKAGE^P9.4'^DIC(9.4,^OOS;2^Q"
^DD(44,50.02,3)="This is the package which created this occasion of service location"
^DD(44,50.02,9)="^"
^DD(44,50.02,21,0)="^^3^3^2961016^"
^DD(44,50.02,21,1,0)="This field stores the package which created the occasion of service"
^DD(44,50.02,21,2,0)="location.  This field should NOT be altered by the site.  It is uneditable"
^DD(44,50.02,21,3,0)="through FileMan."
^DD(44,50.02,"DT")="2961016"
^DD(44,99,0)="TELEPHONE^F^^99;1^K:$L(X)>13!($L(X)<3) X"
^DD(44,99,3)="ANSWER MUST BE 3-13 CHARACTERS IN LENGTH"
^DD(44,99,21,0)="^^1^1^2920212^"
^DD(44,99,21,1,0)="Telephone number for specific location."
^DD(44,99,"DT")="2840322"
^DD(44,101,0)="ASSOCIATED LOCATION TYPES^44.101P^^LOC;0"
^DD(44,1900,0)="APPOINTMENT^44.001DA^^S;0"
^DD(44,1900,9)="^"
^DD(44,1900,21,0)="^^3^3^2920212^"
^DD(44,1900,21,1,0)="Appointment multiple stores all data related to outpatient visits"
^DD(44,1900,21,2,0)="including basic demographic data on a patient, appointment data,"
^DD(44,1900,21,3,0)="lab, x-ray and EKG appointment dates/times."
^DD(44,1901,0)="CANCEL DATE/TIME BEGIN^44.05D^^SDCAN;0"
^DD(44,1901,21,0)="^^1^1^2920212^"
^DD(44,1901,21,1,0)="Cancellation date/time beginning for a clinic."
^DD(44,1906,0)="CHART CHECK^44.006DA^^C;0"
^DD(44,1906,21,0)="^^1^1^2920212^^"
^DD(44,1906,21,1,0)="Does user want the chart checked for availability for this clinic."
^DD(44,1910,0)="SPECIAL INSTRUCTIONS^44.03A^^SI;0"
^DD(44,1910,21,0)="^^2^2^2920212^"
^DD(44,1910,21,1,0)="Special instructions (free text) entered by clerk at time of making"
^DD(44,1910,21,2,0)="the appointment."
^DD(44,1912,0)="LENGTH OF APP'T^RNJ2,0X^^SL;1^K:+X'=X!(X>240)!(X<10)!(X?.E1"".""1N.N)!($S('(X#10):0,'(X#15):0,1:1)) X I $D(X) S SDLA=X I $D(^SC(DA,""SL"")),+$P(^(""SL""),U,6) S SDZ0=$P(^(""SL""),U,6),SDZ1=60\SDZ0 I X#SDZ1 D LAPPT^SDUTL"
^DD(44,1912,3)="TYPE A WHOLE NUMBER BETWEEN 10 AND 240 -- MUST BE A MULTIPLE OF 10 OR 15"
^DD(44,1912,21,0)="^^1^1^2920212^"
^DD(44,1912,21,1,0)="Length of appointment designated for clinic."
^DD(44,1912,"DT")="2860219"
^DD(44,1913,0)="VARIABLE APP'NTMENT LENGTH^S^V:YES, VARIABLE LENGTH;^SL;2^Q"
^DD(44,1913,21,0)="^^3^3^2920212^"
^DD(44,1913,21,1,0)="Does the clinic have variable appointment lengths?  Can, if length"
^DD(44,1913,21,2,0)="of appointment is 10 minutes, user make longer appointments in"
^DD(44,1913,21,3,0)="increments of 10 at time of making appointment?"
^DD(44,1914,0)="HOUR CLINIC DISPLAY BEGINS^NJ2,0^^SL;3^K:+X'=X!(X>16)!(X<0)!(X?.E1"".""1N.N) X"
^DD(44,1914,3)="(0-16), IF OTHER THAN 8AM"
^DD(44,1914,21,0)="^^1^1^2920212^"
^DD(44,1914,21,1,0)="The hour clinic will begin displaying availability (i.e. 8AM)."
^DD(44,1915,0)="HOLD SC SLOTS UNTIL # OF DAYS^NJ3,0^^SL;4^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(44,1915,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 365"
^DD(44,1915,21,0)="^^3^3^2920212^"
^DD(44,1915,21,1,0)="Should service connected slots be held open for a set number of"
^DD(44,1915,21,2,0)="days?  Service connected veterans have priority over NSC veterans"
^DD(44,1915,21,3,0)="when scheduling appointments."
^DD(44,1916,0)="PRINCIPAL CLINIC^*P44'^SC(^SL;5^S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""",'$G(^(""""OOS""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,1916,3)=""
^DD(44,1916,4)="W !,""IF ENROLLMENT IN THIS CLINIC IS EQUIVALENT TO ENROLLMENT IN A LARGER ONE,"",!,""ENTER THAT LARGER CLINIC'S NAME"",!"
^DD(44,1916,12)="PRINCIPAL CLINIC MUST BE A CLINIC"
^DD(44,1916,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""",'$G(^(""""OOS""""))"""
^DD(44,1916,21,0)="^^1^1^2961203^^"
^DD(44,1916,21,1,0)="Principal clinic or main clinic assigned to a specific location."
^DD(44,1916,"DT")="2961203"
^DD(44,1917,0)="DISPLAY INCREMENTS PER HOUR^RSX^1:60-MIN ;2:30-MIN ;4:15-MIN ;3:20-MIN ;6:10-MIN ;^SL;6^S ZSI=$S(X=1!(X=2)!(X=3)!(X=4)!(X=6):60/X,1:0),SDLA=$S('$D(^SC(DA,""SL"")):0,1:+^(""SL"")) K:('SDLA)!('ZSI) SDLA,ZSI,X Q:'$D(X)  I SDLA#ZSI>0 X ^DD(44,1917,9.2) Q"
^DD(44,1917,3)="THIS FIELD ***SHOULD NOT BE EDITED*** ONCE AVAILABILITY HAS BEEN CREATED!!"
^DD(44,1917,9.2)="I SDLA#ZSI>0 W !,""INCREMENTS PER HOUR INCONSISTENT WITH "",SDLA,""-MINUTE APPOINTMENT LENGTH"" K X,ZSI,SDLA Q"
^DD(44,1917,21,0)="^^4^4^2890524^"
^DD(44,1917,21,1,0)="     This field SHOULD NOT BE EDITED when patterns have been established"
^DD(44,1917,21,2,0)="using another increment per hour. Editing this field will cause "
^DD(44,1917,21,3,0)="existing patterns to be erroneous and scheduling conflicts may also occur "
^DD(44,1917,21,4,0)="if the increments are changed."
^DD(44,1917,"DT")="2890524"
^DD(44,1918,0)="OVERBOOKS/DAY MAXIMUM^RNJ4,0^^SL;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(44,1918,3)="ENTER THE NUMBER OF ALLOWABLE OVERBOOKS PER DAY.  IF OVERBOOKS ARE NOT ALLOWED, ENTER ZERO."
^DD(44,1918,21,0)="^^2^2^2890129^"
^DD(44,1918,21,1,0)="Number of allowable overbooks per day.  If overbooks are not allowed, the"
^DD(44,1918,21,2,0)="number should be set to zero."
^DD(44,1918,"DT")="2890129"
^DD(44,1918.5,0)="SCHEDULE ON HOLIDAYS?^S^Y:YES;^SL;8^Q"
^DD(44,1918.5,3)="RESPOND YES IF SCHEDULING IS ALLOWED FOR THIS CLINIC ON ALL HOLIDAYS"
^DD(44,1918.5,21,0)="^^2^2^2920212^"
^DD(44,1918.5,21,1,0)="Should the user be able to schedule appointments on holiday's for"
^DD(44,1918.5,21,2,0)="specific location?"
^DD(44,1918.5,"DT")="2860317"
^DD(44,1919,0)="COPIES^NJ2,0^^0;14^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(44,1919,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(44,1919,21,0)="^^2^2^2920212^"
^DD(44,1919,21,1,0)="How many copies of appointment lists should be generated for this"
^DD(44,1919,21,2,0)="clinic?"
^DD(44,1920,0)="AVAILABILITY^44.002DA^^T;0"
^DD(44,1920,21,0)="^^1^1^2920212^"
^DD(44,1920,21,1,0)="Multiple that stores clinic availability information."
^DD(44,1920.9,0)="AVAILABILITY FLAG^D^^STT;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(44,1920.9,21,0)="^^1^1^2920212^^"
^DD(44,1920.9,21,1,0)="Date/time set up for clinic availability."
^DD(44,1921,0)="PATTERN^44.005DA^^ST;0"
^DD(44,1921,9)="^"
^DD(44,1921,21,0)="^^1^1^2920212^"
^DD(44,1921,21,1,0)="Pattern for clinic availability information."
^DD(44,1921.5,0)="SPECIAL PATTERN^44.0002DA^^OST;0"
^DD(44,1921.5,9)="^"
^DD(44,1921.5,21,0)="^^2^2^2920212^"
^DD(44,1921.5,21,1,0)="Special pattern information (storage of previous clinic patterns"
^DD(44,1921.5,21,2,0)="and current one)."
^DD(44,1922,0)="SUNDAY TEMPLATE^44.06A^^T0;0"
^DD(44,1922,9)="^"
^DD(44,1922,21,0)="^^3^3^2860801^^^"
^DD(44,1922,21,1,0)="This field contains the patterns and limit dates applicable to scheduling"
^DD(44,1922,21,2,0)="appointments on Sundays.  These fields are overridden by patterns entered"
^DD(44,1922,21,3,0)="for a specific (Sunday) date and stored on the ""OST"" nodes."
^DD(44,1922,"DEL",.01,0)="I '$D(SDSCHED) W !,""ZZZ"",!,*7,""You cannot delete this field using fileman!!!"""
^DD(44,1923,0)="MONDAY TEMPLATE^44.07A^^T1;0"
^DD(44,1923,9)="^"
^DD(44,1923,21,0)="^^3^3^2860801^^"
^DD(44,1923,21,1,0)="This field contains the patterns and limit dates applicable to scheduling"
^DD(44,1923,21,2,0)="appointments on Mondays.  These fields are overridden by patterns entered"
^DD(44,1923,21,3,0)="for a specific (Monday) date and stored on the ""OST"" nodes."
^DD(44,1923,"DEL",.01,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44,1924,0)="TUESDAY TEMPLATE^44.08A^^T2;0"
^DD(44,1924,9)="^"
^DD(44,1924,21,0)="^^3^3^2920212^^^^"
^DD(44,1924,21,1,0)="This field contains the patterns and limit dates applicable to scheduling"
^DD(44,1924,21,2,0)="appointments on Tuesdays.  These fields are overridden by patterns entered"
^DD(44,1924,21,3,0)="for a specific (Tuesday) date and stored on the ""OST"" nodes."
^DD(44,1924,"DEL",.01,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44,1925,0)="WEDNESDAY TEMPLATE^44.09A^^T3;0"
^DD(44,1925,9)="^"
^DD(44,1925,21,0)="^^3^3^2920212^^^"
^DD(44,1925,21,1,0)="This field contains the patterns and limit dates applicable to scheduling"
^DD(44,1925,21,2,0)="appointments on Wednesdays.  These fields are overridden by patterns entered"
^DD(44,1925,21,3,0)="for a specific (Wednesday) date and stored on the ""OST"" nodes."
^DD(44,1925,"DEL",.01,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44,1926,0)="THURSDAY TEMPLATE^44.008A^^T4;0"
^DD(44,1926,9)="^"
^DD(44,1926,21,0)="^^3^3^2860801^^"
^DD(44,1926,21,1,0)="This field contains the patterns and limit dates applicable to scheduling"
^DD(44,1926,21,2,0)="appointments on Thursdays.  These fields are overridden by patterns entered"
^DD(44,1926,21,3,0)="for a specific (Thursday) date and stored on the ""OST"" nodes."
^DD(44,1926,"DEL",.01,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44,1927,0)="FRIDAY TEMPLATE^44.009A^^T5;0"
^DD(44,1927,9)="^"
^DD(44,1927,21,0)="^^3^3^2920212^^^"
^DD(44,1927,21,1,0)="This field contains the patterns and limit dates applicable to scheduling"
^DD(44,1927,21,2,0)="appointments on Fridays.  These fields are overridden by patterns entered"
^DD(44,1927,21,3,0)="for a specific (Friday) date and stored on the ""OST"" nodes."
^DD(44,1927,"DEL",.01,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44,1928,0)="SATURDAY TEMPLATE^44.0001A^^T6;0"
^DD(44,1928,9)="^"
^DD(44,1928,21,0)="^^3^3^2920212^^^"
^DD(44,1928,21,1,0)="This field contains the patterns and limit dates applicable to scheduling"
^DD(44,1928,21,2,0)="appointments on Saturdays.  These fields are overridden by patterns entered"
^DD(44,1928,21,3,0)="for a specific (Saturday) date and stored on the ""OST"" nodes."
^DD(44,1928,"DEL",.01,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44,2000,0)="REQUIRE X-RAY FILMS?^S^Y:YES;^RAD;1^Q"
^DD(44,2000,21,0)="^^1^1^2920212^"
^DD(44,2000,21,1,0)="Will x-ray films be required for patients scheduled in this clinic?"
^DD(44,2000,"DT")="2830916"
^DD(44,2000.5,0)="REQUIRE ACTION PROFILES?^RS^0:YES;1:NO;^PS;1^Q"
^DD(44,2000.5,21,0)="^^2^2^2920212^"
^DD(44,2000.5,21,1,0)="Will pharmacy action profiles be required for patients scheduled in"
^DD(44,2000.5,21,2,0)="this clinic?"
^DD(44,2000.5,"DT")="2860722"
^DD(44,2001,0)="ALLOWABLE CONSECUTIVE NO-SHOWS^RNJ3,0^^SDP;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(44,2001,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(44,2001,20,0)="^.3LA"
^DD(44,2001,21,0)="^^2^2^2901004^^^^"
^DD(44,2001,21,1,0)="This is the number of times in a row that a patient can be a no-show in"
^DD(44,2001,21,2,0)="a clinic before he/she is flagged for possible discharge from the clinic."
^DD(44,2001,"DT")="2831216"
^DD(44,2002,0)="MAX # DAYS FOR FUTURE BOOKING^RNJ3,0^^SDP;2^K:+X'=X!(X>999)!(X<11)!(X?.E1"".""1N.N) X"
^DD(44,2002,3)="TYPE A WHOLE NUMBER BETWEEN 11 AND 999"
^DD(44,2002,21,0)="^^2^2^2920212^"
^DD(44,2002,21,1,0)="Maximum number of days that can be available when clerk searching"
^DD(44,2002,21,2,0)="for open clinic slots in the future."
^DD(44,2002,"DT")="2831216"
^DD(44,2003,0)="START TIME FOR AUTO REBOOK^NJ2,0X^^SDP;3^K:+X'=X!(X>16)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SC(DA,""SL"")) I X<$S('$P(^(""SL""),""^"",3):8,1:$P(^(""SL""),""^"",3)) W !,*7,""MUST NOT BE EARLIER THAN CLINIC START TIME"" K X"
^DD(44,2003,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 16, ONLY IF REBOOKING IS NOT TO BEGIN AT EARLIEST TIME"
^DD(44,2003,21,0)="^^5^5^2920212^"
^DD(44,2003,21,1,0)="Start time (hour of day) that should be searched for when user"
^DD(44,2003,21,2,0)="auto rebooking an appointment.  For example, if the clinic regularly"
^DD(44,2003,21,3,0)="starts at 8am, user may wish to set this parameter to 9am so that"
^DD(44,2003,21,4,0)="the next available slot at 9am or later will be stuffed with new"
^DD(44,2003,21,5,0)="appointment."
^DD(44,2003,"DT")="2861008"
^DD(44,2004,0)="COLLATERAL VISITS? (Y OR N)^RS^Y:YES;N:NO;^0;16^Q"
^DD(44,2004,21,0)="^^1^1^2920212^"
^DD(44,2004,21,1,0)="Are collateral visits allowed to this clinic? Yes or No"
^DD(44,2004,"DT")="2840228"
^DD(44,2005,0)="MAX # DAYS FOR AUTO-REBOOK^RNJ3,0^^SDP;4^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(44,2005,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 365"
^DD(44,2005,21,0)="^^6^6^2920212^"
^DD(44,2005,21,1,0)="Maximum number of days the system can be set to search up to when"
^DD(44,2005,21,2,0)="auto rebooking appointments.  For instance, if an appointment to"
^DD(44,2005,21,3,0)="this clinic is cancelled and the latest time that should be allowed"
^DD(44,2005,21,4,0)="for rescheduling is a period of two weeks (set parameter), then"
^DD(44,2005,21,5,0)="auto rebook function will quit after searching a two week period in"
^DD(44,2005,21,6,0)="future for available slots."
^DD(44,2005,"DT")="2840307"
^DD(44,2006,0)="*RECORD TRACKING COMMUNICATION^S^M:MESSAGE;N:NOTICE;^R;1^Q"
^DD(44,2006,"DT")="2840611"
^DD(44,2007,0)="*COMMUNICATION FORMAT^P44.8'^DIC(44.8,^R;2^Q"
^DD(44,2007,"DT")="2840612"
^DD(44,2008,0)="*RECORD REQUEST DEVICE^F^^R;3^K:$L(X)>20!($L(X)<2) X"
^DD(44,2008,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(44,2008,"DT")="2840611"
^DD(44,2009,0)="*RT AT HOME RETREIVER^P44'^SC(^R;4^Q"
^DD(44,2009,"DT")="2840611"
^DD(44,2010,0)="*RT NOT AT HOME RETREIVER^P44'^SC(^R;5^Q"
^DD(44,2010,"DT")="2840611"
^DD(44,2011,0)="*RECORD REQUEST PRIORITY^NJ2,0^^DT;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(44,2011,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(44,2011,"DT")="2840611"
^DD(44,2012,0)="*RECORD APPOINTMENT STATUS^S^1:ASK APPOINTMENT DATE;0:DON'T ASK APPOINTMENT DATE;^DT;2^Q"
^DD(44,2012,"DT")="2840611"
^DD(44,2500,0)="PROHIBIT ACCESS TO CLINIC?^S^Y:YES;^SDPROT;1^Q"
^DD(44,2500,21,0)="^^1^1^2920212^"
^DD(44,2500,21,1,0)="Should only privileged users have access to book to this clinic?"
^DD(44,2500,"DT")="2840612"
^DD(44,2501,0)="PRIVILEGED USER^44.04PA^^SDPRIV;0"
^DD(44,2501,21,0)="^^4^4^2920212^^"
^DD(44,2501,21,1,0)="Privileged users set up to have access to book to clinic."
^DD(44,2501,21,2,0)="Once one privileged user is entered into this multiple, no other"
^DD(44,2501,21,3,0)="user will have access to book to the clinic.  Each individual who"
^DD(44,2501,21,4,0)="should have access to clinic must be entered one at a time."
^DD(44,2502,0)="NON-COUNT CLINIC? (Y OR N)^RS^Y:YES;N:NO;^0;17^Q"
^DD(44,2502,1,0)="^.1"
^DD(44,2502,1,1,0)="^^TRIGGER^44^2502.5"
^DD(44,2502,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="""" X ^DD(44,2502,1,1,1.4)"
^DD(44,2502,1,1,1.4)="S DIH=$S($D(^SC(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,20,99))  S DIH=DIH_U"" S %=$P(DIH,U,22,999),DIU=$P(DIH,U,21),^(0)=$P(DIH,U,1,20)_U_DIV_$S(%]"""":U_%,1:""""),DIH=44,DIG=2502.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44,2502,1,1,2)="Q"
^DD(44,2502,1,1,"CREATE VALUE")="@"
^DD(44,2502,1,1,"DELETE VALUE")="NO EFFECT"
^DD(44,2502,1,1,"FIELD")="INCL"
^DD(44,2502,3)="If appointments to this clinic should not impact MAS AMIS statistics, answer 'Y'."
^DD(44,2502,21,0)="^^2^2^2920212^"
^DD(44,2502,21,1,0)="Is this clinic to be a non-count clinic for workload purposes? OR"
^DD(44,2502,21,2,0)="Are visits to this clinic to be included in workload statistics?"
^DD(44,2502,"DT")="2840802"
^DD(44,2502.5,0)="INCLUDE ON FILE ROOM LISTS?^S^0:NO;1:YES;^0;21^Q"
^DD(44,2502.5,5,1,0)="44^2502^1"
^DD(44,2502.5,21,0)="^^2^2^2861001^"
^DD(44,2502.5,21,1,0)="This field should contain a Yes if this is a non-count clinic that should"
^DD(44,2502.5,21,2,0)="be included on the file room lists."
^DD(44,2502.5,"DT")="2861001"
^DD(44,2503,0)="CREDIT STOP CODE^*P40.7'X^DIC(40.7,^0;18^S DIC(""S"")=""I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""""SE""""[$P(^(0),U,6),$S('$P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,2503,1,0)="^.1^^0"
^DD(44,2503,3)="Enter the Stop Code which should be credited for an appointment to this clinic (only if Code different than the one assigned to this clinic)."
^DD(44,2503,12)="Inactive stop codes are invalid.  Stop code 900 can not be used for a clinic.  Stop code must have a restriction type of ""Secondary"" or ""Either"" and not have a future restriction date."
^DD(44,2503,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0),""""SE""""[$P(^(0),U,6),$S('$P(^(0),U,7):1,$P(^(0),U,7)'>DT:1,1:0)"""
^DD(44,2503,21,0)="^^3^3^2860801^"
^DD(44,2503,21,1,0)="Appointments to this clinic will receive this stop code credit in addition"
^DD(44,2503,21,2,0)="to the 'normal' stop code credit if a stop code different from the 'normal'"
^DD(44,2503,21,3,0)="stop code for this clinic is entered here."
^DD(44,2503,"DT")="3040506"
^DD(44,2503.1,0)="PRV. YEAR CREDIT STOP CODE^P40.7'IX^DIC(40.7,^OC;2^K:X X"
^DD(44,2503.1,9)="^"
^DD(44,2503.1,21,0)="^^1^1^2920212^"
^DD(44,2503.1,21,1,0)="Previous year's credit stop code assigned to clinic."
^DD(44,2503.1,"DT")="2880801"
^DD(44,2504,0)="CLINIC MEETS AT THIS FACILITY?^RS^Y:YES;N:NO;^0;19^Q"
^DD(44,2504,21,0)="^^1^1^2920212^"
^DD(44,2504,21,1,0)="Does clinic meet at designated facility?"
^DD(44,2504,"DT")="2840919"
^DD(44,2505,0)="INACTIVATE DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(44,2505,3)="This date will be the date from which this clinic is considered inactive"
^DD(44,2505,21,0)="^^1^1^2920212^"
^DD(44,2505,21,1,0)="Date clinic was inactivated."
^DD(44,2505,"DT")="2850424"
^DD(44,2506,0)="REACTIVATE DATE^D^^I;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(44,2506,3)="This date will be the date from which this clinic is considered active again.  It must have been previously inactivated. "
^DD(44,2506,21,0)="^^1^1^2920212^"
^DD(44,2506,21,1,0)="Date clinic was reactivated."
^DD(44,2507,0)="DEFAULT APPOINTMENT TYPE^*P409.1'^SD(409.1,^AT;1^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,2507,12)="Choose from active appointment types."
^DD(44,2507,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(44,2507,21,0)="^^2^2^2920212^"
^DD(44,2507,21,1,0)="The default or usual appointment type to be associated with this"
^DD(44,2507,21,2,0)="clinic."
^DD(44,2507,"DT")="2880405"
^DD(44,2508,0)="NO SHOW LETTER^*P407.5'^VA(407.5,^LTR;1^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""N"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,2508,1,0)="^.1"
^DD(44,2508,1,1,0)="44^ALTN"
^DD(44,2508,1,1,1)="S ^SC(""ALTN"",$E(X,1,30),DA)="""""
^DD(44,2508,1,1,2)="K ^SC(""ALTN"",$E(X,1,30),DA)"
^DD(44,2508,12)="LETTER MUST BE NO-SHOW TYPE"
^DD(44,2508,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""N"""""""
^DD(44,2508,21,0)="^^3^3^2920212^"
^DD(44,2508,21,1,0)="Enter the no-show letter to be associated with this clinic, so if"
^DD(44,2508,21,2,0)="patient does not show for appointment, this specific no-show letter"
^DD(44,2508,21,3,0)="will print as opposed to the generic no-show letter."
^DD(44,2508,"DT")="2900927"
^DD(44,2509,0)="PRE-APPOINTMENT LETTER^*P407.5'^VA(407.5,^LTR;2^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,2509,1,0)="^.1"
^DD(44,2509,1,1,0)="44^ALTP"
^DD(44,2509,1,1,1)="S ^SC(""ALTP"",$E(X,1,30),DA)="""""
^DD(44,2509,1,1,2)="K ^SC(""ALTP"",$E(X,1,30),DA)"
^DD(44,2509,12)="LETTER MUST BE PRE-APPOINTMENT TYPE"
^DD(44,2509,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""P"""""""
^DD(44,2509,21,0)="^^3^3^2920212^"
^DD(44,2509,21,1,0)="Enter the pre-appointment letter to be associated with this clinic,"
^DD(44,2509,21,2,0)="so if letters are generated, this specific pre-appointment letter"
^DD(44,2509,21,3,0)="will print as opposed to the generic pre-appointment letter."
^DD(44,2509,"DT")="2900927"
^DD(44,2510,0)="CLINIC CANCELLATION LETTER^*P407.5'^VA(407.5,^LTR;3^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,2510,1,0)="^.1"
^DD(44,2510,1,1,0)="44^ALTC"
^DD(44,2510,1,1,1)="S ^SC(""ALTC"",$E(X,1,30),DA)="""""
^DD(44,2510,1,1,2)="K ^SC(""ALTC"",$E(X,1,30),DA)"
^DD(44,2510,12)="LETTER MUST BE CLINIC CANCELLATION TYPE"
^DD(44,2510,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""C"""""""
^DD(44,2510,21,0)="^^3^3^2920212^"
^DD(44,2510,21,1,0)="Enter the clinic cancellation letter to be associated with this clinic,"
^DD(44,2510,21,2,0)="so if clinic is cancelled, this letter will print as opposed to"
^DD(44,2510,21,3,0)="generic clinic cancellation letter."
^DD(44,2510,"DT")="2900927"
^DD(44,2511,0)="APPT. CANCELLATION LETTER^*P407.5'^VA(407.5,^LTR;4^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44,2511,1,0)="^.1"
^DD(44,2511,1,1,0)="44^ALTA"
^DD(44,2511,1,1,1)="S ^SC(""ALTA"",$E(X,1,30),DA)="""""
^DD(44,2511,1,1,2)="K ^SC(""ALTA"",$E(X,1,30),DA)"
^DD(44,2511,12)="LETTER MUST BE PATIENT CANCELLATION TYPE"
^DD(44,2511,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""A"""""""
^DD(44,2511,21,0)="^^3^3^2920212^"
^DD(44,2511,21,1,0)="Enter appointment cancellation letter to be associated with this clinic,"
^DD(44,2511,21,2,0)="so if veteran cancels appointment, this letter will print as opposed"
^DD(44,2511,21,3,0)="to generic appointment cancellation letter."
^DD(44,2511,"DT")="2900927"
^DD(44,2600,0)="PROVIDER^44.1P^^PR;0"
^DD(44,2600,21,0)="^^4^4^2961029^^^^"
^DD(44,2600,21,1,0)="Enter in this field the providers associated with this clinic.  These"
^DD(44,2600,21,2,0)="providers will then be displayed when updating the provider through"
^DD(44,2600,21,3,0)="Appointment Management or Check Out to assist the user in entering"
^DD(44,2600,21,4,0)="the correct provider."
^DD(44,2700,0)="DIAGNOSIS^44.11P^^DX;0"
^DD(44,2700,21,0)="^^4^4^2930615^^"
^DD(44,2700,21,1,0)="Enter in this field the diagnoses associated with this clinic.  These"
^DD(44,2700,21,2,0)="diagnoses will then be displayed when updating the diagnosis through"
^DD(44,2700,21,3,0)="Appointment Management or Check Out to assist the user in entering"
^DD(44,2700,21,4,0)="the correct diagnosis."
^DD(44,2800,0)="TEAM POSITIONS^44.40457PA^^PCMM;0"
^DD(44,2800,12)="This ensures that only clinics that are 'associated"
^DD(44,2800,12.1)="S DIC(""S"")=""I $D(^SC(Y))#2"""
^DD(44,2800,21,0)="^^2^2^2960329^^^^"
^DD(44,2800,21,1,0)="This contains one or more team positions that have this clinic as"
^DD(44,2800,21,2,0)="an 'ASSOCIATE CLINIC' - defined in the TEAM POSITION (#404.57) File."
^DD(44,2801,0)="DEFAULT TO PC PRACTITIONER?^S^1:YES;0:NO;^PC;1^Q"
^DD(44,2801,3)="Should PC Practitioner be default if no default provider?"
^DD(44,2801,21,0)="^^3^3^2960329^"
^DD(44,2801,21,1,0)="This only is relevant if there is no default provider.  If so, if"
^DD(44,2801,21,2,0)="there is a current primary care practitioner for the patient - it will"
^DD(44,2801,21,3,0)="be provided as the default provider."
^DD(44,2801,"DT")="2960329"
^DD(44,2802,0)="ADMINISTER INPATIENT MEDS?^S^1:YES;^0;25^Q"
^DD(44,2802,1,0)="^.1"
^DD(44,2802,1,1,0)="44^AE"
^DD(44,2802,1,1,1)="S ^SC(""AE"",$E(X,1,30),DA)="""""
^DD(44,2802,1,1,2)="K ^SC(""AE"",$E(X,1,30),DA)"
^DD(44,2802,1,1,"DT")="3030418"
^DD(44,2802,3)="Respond YES only if the clinic is authorized to dispense inpatient medications to outpatients."
^DD(44,2802,21,0)="^.001^2^2^3030429^^^^"
^DD(44,2802,21,1,0)="This field should contain a YES only if the clinic location is"
^DD(44,2802,21,2,0)="authorized to dispense inpatient medications to outpatients."
^DD(44,2802,"DT")="3030424"
^DD(44,22900,0)="AUTOFINISH RX SITE^P59'^PS(59,^AFRXSITE;1^Q"
^DD(44,22900,3)="Enter outpatient site this location is associated with."
^DD(44,22900,21,0)="^^3^3^3070502^"
^DD(44,22900,21,1,0)="This field is a pointer to File#59, Outpatient Site, that this hospital "
^DD(44,22900,21,2,0)="location is associated with.  If this field is not set autofinishing of "
^DD(44,22900,21,3,0)="Rx's for this hospital location will not take place."
^DD(44,22900,"DT")="3070502"
^DD(44,22901,0)="AUTOFINISH CLINIC PRINTER^P3.5'^%ZIS(1,^AFRXCLINPRNT;1^Q"
^DD(44,22901,3)="Enter printer where autofinished Rx's for this clinic will be printed."
^DD(44,22901,21,0)="^^1^1^3070502^"
^DD(44,22901,21,1,0)="Printer where autofinished Rx's will print for a particular clinic."
^DD(44,22901,"DT")="3070502"
^DD(44,"B","*COMMUNICATION FORMAT",2007)=""
^DD(44,"B","*OKC A",11)=""
^DD(44,"B","*OKC B",12)=""
^DD(44,"B","*RECORD APPOINTMENT STATUS",2012)=""
^DD(44,"B","*RECORD REQUEST DEVICE",2008)=""
^DD(44,"B","*RECORD REQUEST PRIORITY",2011)=""
^DD(44,"B","*RECORD TRACKING COMMUNICATION",2006)=""
^DD(44,"B","*RT AT HOME RETREIVER",2009)=""
^DD(44,"B","*RT NOT AT HOME RETREIVER",2010)=""
^DD(44,"B","ABBREVIATION",1)=""
^DD(44,"B","ADMINISTER INPATIENT MEDS?",2802)=""
^DD(44,"B","AGENCY",23)=""
^DD(44,"B","ALLOWABLE CONSECUTIVE NO-SHOWS",2001)=""
^DD(44,"B","APPOINTMENT",1900)=""
^DD(44,"B","APPT. CANCELLATION LETTER",2511)=""
^DD(44,"B","ASK FOR CHECK IN/OUT TIME",24)=""
^DD(44,"B","ASSOCIATED LOCATION TYPES",101)=""
^DD(44,"B","AUTOFINISH CLINIC PRINTER",22901)=""
^DD(44,"B","AUTOFINISH RX SITE",22900)=""
^DD(44,"B","AVAILABILITY",1920)=""
^DD(44,"B","AVAILABILITY FLAG",1920.9)=""
^DD(44,"B","CANCEL DATE/TIME BEGIN",1901)=""
^DD(44,"B","CATEGORY OF VISIT",15)=""
^DD(44,"B","CHART CHECK",1906)=""
^DD(44,"B","CLINIC CANCELLATION LETTER",2510)=""
^DD(44,"B","CLINIC GROUP (REPORTS)",31)=""
^DD(44,"B","CLINIC MEETS AT THIS FACILITY?",2504)=""
^DD(44,"B","CLINIC SERVICES RESOURCE",29)=""
^DD(44,"B","COLLATERAL VISITS? (Y OR N)",2004)=""
^DD(44,"B","COPIES",1919)=""
^DD(44,"B","CREDIT STOP CODE",2503)=""
^DD(44,"B","DEFAULT APPOINTMENT TYPE",2507)=""
^DD(44,"B","DEFAULT DEVICE",5)=""
^DD(44,"B","DEFAULT PROVIDER",16)=""
^DD(44,"B","DEFAULT TO PC PRACTITIONER?",2801)=""
^DD(44,"B","DIAGNOSIS",2700)=""
^DD(44,"B","DISPLAY INCREMENTS PER HOUR",1917)=""
^DD(44,"B","DISPOSITION ACTION",6)=""
^DD(44,"B","DIVISION",3.5)=""
^DD(44,"B","FRIDAY TEMPLATE",1927)=""
^DD(44,"B","HOLD SC SLOTS UNTIL # OF DAYS",1915)=""
^DD(44,"B","HOUR CLINIC DISPLAY BEGINS",1914)=""
^DD(44,"B","INACTIVATE DATE",2505)=""
^DD(44,"B","INCLUDE ON FILE ROOM LISTS?",2502.5)=""
^DD(44,"B","INSTITUTION",3)=""
^DD(44,"B","LENGTH OF APP'T",1912)=""
^DD(44,"B","MAX # DAYS FOR AUTO-REBOOK",2005)=""
^DD(44,"B","MAX # DAYS FOR FUTURE BOOKING",2002)=""
^DD(44,"B","MODULE",4)=""
^DD(44,"B","MONDAY TEMPLATE",1923)=""
^DD(44,"B","NAME",.01)=""
^DD(44,"B","NO SHOW LETTER",2508)=""
^DD(44,"B","NON-COUNT CLINIC? (Y OR N)",2502)=""
^DD(44,"B","OCCASION OF SERVICE CLINIC?",50.01)=""
^DD(44,"B","OOS CALLING PACKAGE",50.02)=""
^DD(44,"B","OVERBOOKS/DAY MAXIMUM",1918)=""
^DD(44,"B","PATTERN",1921)=""
^DD(44,"B","PHYSICAL LOCATION",10)=""
^DD(44,"B","PRE-APPOINTMENT LETTER",2509)=""
^DD(44,"B","PRINCIPAL CLINIC",1916)=""
^DD(44,"B","PRIVILEGED USER",2501)=""
^DD(44,"B","PROHIBIT ACCESS TO CLINIC?",2500)=""
^DD(44,"B","PROHIBITED TERMINAL",19)=""
^DD(44,"B","PROVIDER",2600)=""
^DD(44,"B","PRV. YEAR CREDIT STOP CODE",2503.1)=""
^DD(44,"B","PRV. YEAR STOP CODE",8.1)=""
^DD(44,"B","REACTIVATE DATE",2506)=""
^DD(44,"B","REQUIRE ACTION PROFILES?",2000.5)=""
^DD(44,"B","REQUIRE X-RAY FILMS?",2000)=""
^DD(44,"B","SATURDAY TEMPLATE",1928)=""
^DD(44,"B","SCHEDULE ON HOLIDAYS?",1918.5)=""
^DD(44,"B","SERVICE",9)=""
^DD(44,"B","SPECIAL AMIS STOP",14)=""
^DD(44,"B","SPECIAL INSTRUCTIONS",1910)=""
^DD(44,"B","SPECIAL PATTERN",1921.5)=""
^DD(44,"B","START TIME FOR AUTO REBOOK",2003)=""
^DD(44,"B","STOP CODE NUMBER",8)=""
^DD(44,"B","SUNDAY TEMPLATE",1922)=""
^DD(44,"B","SYNONYM",13)=""
^DD(44,"B","TEAM POSITIONS",2800)=""
^DD(44,"B","TELEPHONE",99)=""
^DD(44,"B","THURSDAY TEMPLATE",1926)=""
^DD(44,"B","TREATING SPECIALTY",9.5)=""
^DD(44,"B","TUESDAY TEMPLATE",1924)=""
^DD(44,"B","TYPE",2)=""
^DD(44,"B","TYPE EXTENSION",2.1)=""
^DD(44,"B","VARIABLE APP'NTMENT LENGTH",1913)=""
^DD(44,"B","VISIT LOCATION",7)=""
^DD(44,"B","WARD LOCATION FILE POINTER",42)=""
^DD(44,"B","WEDNESDAY TEMPLATE",1925)=""
^DD(44,"B","WORKLOAD VALIDATION AT CHK OUT",30)=""
^DD(44,"GL",0,1,.01)=""
^DD(44,"GL",0,2,1)=""
^DD(44,"GL",0,3,2)=""
^DD(44,"GL",0,4,3)=""
^DD(44,"GL",0,5,4)=""
^DD(44,"GL",0,6,7)=""
^DD(44,"GL",0,7,8)=""
^DD(44,"GL",0,8,9)=""
^DD(44,"GL",0,9,15)=""
^DD(44,"GL",0,10,6)=""
^DD(44,"GL",0,11,10)=""
^DD(44,"GL",0,12,14)=""
^DD(44,"GL",0,13,16)=""
^DD(44,"GL",0,14,1919)=""
^DD(44,"GL",0,15,3.5)=""
^DD(44,"GL",0,16,2004)=""
^DD(44,"GL",0,17,2502)=""
^DD(44,"GL",0,18,2503)=""
^DD(44,"GL",0,19,2504)=""
^DD(44,"GL",0,20,9.5)=""
^DD(44,"GL",0,21,2502.5)=""
^DD(44,"GL",0,22,2.1)=""
^DD(44,"GL",0,23,23)=""
^DD(44,"GL",0,24,24)=""
^DD(44,"GL",0,25,2802)=""
^DD(44,"GL",0,29,29)=""
^DD(44,"GL",0,30,30)=""
^DD(44,"GL",0,31,31)=""
^DD(44,"GL",.01,0,13)=""
^DD(44,"GL",.901,1,11)=""
^DD(44,"GL",.901,2,12)=""
^DD(44,"GL",9,0,19)=""
^DD(44,"GL",42,1,42)=""
^DD(44,"GL",99,1,99)=""
^DD(44,"GL",99,2,5)=""
^DD(44,"GL","AFRXCLINPRNT",1,22901)=""
^DD(44,"GL","AFRXSITE",1,22900)=""
^DD(44,"GL","AT",1,2507)=""
^DD(44,"GL","C",0,1906)=""
^DD(44,"GL","DT",1,2011)=""
^DD(44,"GL","DT",2,2012)=""
^DD(44,"GL","DX",0,2700)=""
^DD(44,"GL","I",1,2505)=""
^DD(44,"GL","I",2,2506)=""
^DD(44,"GL","LOC",0,101)=""
^DD(44,"GL","LTR",1,2508)=""
^DD(44,"GL","LTR",2,2509)=""
^DD(44,"GL","LTR",3,2510)=""
^DD(44,"GL","LTR",4,2511)=""
^DD(44,"GL","OC",1,8.1)=""
^DD(44,"GL","OC",2,2503.1)=""
^DD(44,"GL","OOS",1,50.01)=""
^DD(44,"GL","OOS",2,50.02)=""
^DD(44,"GL","OST",0,1921.5)=""
^DD(44,"GL","PC",1,2801)=""
^DD(44,"GL","PCMM",0,2800)=""
^DD(44,"GL","PR",0,2600)=""
^DD(44,"GL","PS",1,2000.5)=""
^DD(44,"GL","R",1,2006)=""
^DD(44,"GL","R",2,2007)=""
^DD(44,"GL","R",3,2008)=""
^DD(44,"GL","R",4,2009)=""
^DD(44,"GL","R",5,2010)=""
^DD(44,"GL","RAD",1,2000)=""
^DD(44,"GL","S",0,1900)=""
^DD(44,"GL","SDCAN",0,1901)=""
^DD(44,"GL","SDP",1,2001)=""
^DD(44,"GL","SDP",2,2002)=""
^DD(44,"GL","SDP",3,2003)=""
^DD(44,"GL","SDP",4,2005)=""
^DD(44,"GL","SDPRIV",0,2501)=""
^DD(44,"GL","SDPROT",1,2500)=""
^DD(44,"GL","SI",0,1910)=""
^DD(44,"GL","SL",1,1912)=""
^DD(44,"GL","SL",2,1913)=""
^DD(44,"GL","SL",3,1914)=""
^DD(44,"GL","SL",4,1915)=""
^DD(44,"GL","SL",5,1916)=""
^DD(44,"GL","SL",6,1917)=""
^DD(44,"GL","SL",7,1918)=""
^DD(44,"GL","SL",8,1918.5)=""
^DD(44,"GL","ST",0,1921)=""
^DD(44,"GL","STT",1,1920.9)=""
^DD(44,"GL","T",0,1920)=""
^DD(44,"GL","T0",0,1922)=""
^DD(44,"GL","T1",0,1923)=""
^DD(44,"GL","T2",0,1924)=""
^DD(44,"GL","T3",0,1925)=""
^DD(44,"GL","T4",0,1926)=""
^DD(44,"GL","T5",0,1927)=""
^DD(44,"GL","T6",0,1928)=""
^DD(44,"IX",.01)=""
^DD(44,"IX",1)=""
^DD(44,"IX",2)=""
^DD(44,"IX",2.1)=""
^DD(44,"IX",31)=""
^DD(44,"IX",42)=""
^DD(44,"IX",50.01)=""
^DD(44,"IX",2502)=""
^DD(44,"IX",2508)=""
^DD(44,"IX",2509)=""
^DD(44,"IX",2510)=""
^DD(44,"IX",2511)=""
^DD(44,"IX",2802)=""
^DD(44,"RQ",.01)=""
^DD(44,"RQ",2)=""
^DD(44,"RQ",2.1)=""
^DD(44,"RQ",8)=""
^DD(44,"RQ",9)=""
^DD(44,"RQ",9.5)=""
^DD(44,"RQ",1912)=""
^DD(44,"RQ",1917)=""
^DD(44,"RQ",1918)=""
^DD(44,"RQ",2000.5)=""
^DD(44,"RQ",2001)=""
^DD(44,"RQ",2002)=""
^DD(44,"RQ",2004)=""
^DD(44,"RQ",2005)=""
^DD(44,"RQ",2502)=""
^DD(44,"RQ",2504)=""
^DD(44,"SB",44.0001,1928)=""
^DD(44,"SB",44.0002,1921.5)=""
^DD(44,"SB",44.001,1900)=""
^DD(44,"SB",44.002,1920)=""
^DD(44,"SB",44.005,1921)=""
^DD(44,"SB",44.006,1906)=""
^DD(44,"SB",44.008,1926)=""
^DD(44,"SB",44.009,1927)=""
^DD(44,"SB",44.01,13)=""
^DD(44,"SB",44.02,19)=""
^DD(44,"SB",44.03,1910)=""
^DD(44,"SB",44.04,2501)=""
^DD(44,"SB",44.05,1901)=""
^DD(44,"SB",44.06,1922)=""
^DD(44,"SB",44.07,1923)=""
^DD(44,"SB",44.08,1924)=""
^DD(44,"SB",44.09,1925)=""
^DD(44,"SB",44.1,2600)=""
^DD(44,"SB",44.101,101)=""
^DD(44,"SB",44.11,2700)=""
^DD(44,"SB",44.40457,2800)=""
^DD(44.0001,0)="SATURDAY TEMPLATE SUB-FIELD^^1^2"
^DD(44.0001,0,"NM","SATURDAY TEMPLATE")=""
^DD(44.0001,0,"UP")="44"
^DD(44.0001,.01,0)="LIMIT DATE^NJ7,0X^^0;1^W:'$D(SDSCHED) *7,!,""No editting of this field allowed through fileman"" K:'$D(SDSCHED) X I $D(X) S %DT=""EX"",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X"
^DD(44.0001,.01,3)="ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER"
^DD(44.0001,.01,21,0)="^^5^5^2860801^^^"
^DD(44.0001,.01,21,1,0)="The pattern stored at this date is applicable for Saturdays from the previous"
^DD(44.0001,.01,21,2,0)="entry's date up to but not including this date.  If there is no previous"
^DD(44.0001,.01,21,3,0)="entry date, this date is the first Saturday when appointments may be made to"
^DD(44.0001,.01,21,4,0)="this clinic.  If the date equals 9999999, this pattern is effective"
^DD(44.0001,.01,21,5,0)="indefinitely for Saturdays from the previous entry date."
^DD(44.0001,.01,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.0001,.01,"DT")="2860801"
^DD(44.0001,1,0)="MASTER PATTERN^F^^1;E1,80^K:$L(X)>80!($L(X)<3)!'(X?.E1""["".E!(X="""")) X"
^DD(44.0001,1,3)="ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH"
^DD(44.0001,1,21,0)="^^1^1^2920212^"
^DD(44.0001,1,21,1,0)="Master pattern set up for clinic for saturdays."
^DD(44.0001,1,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.0001,1,"DT")="2860801"
^DD(44.0001,"B","LIMIT DATE",.01)=""
^DD(44.0001,"B","MASTER PATTERN",1)=""
^DD(44.0001,"GL",0,1,.01)=""
^DD(44.0001,"GL",1,"E1,80",1)=""
^DD(44.0002,0)="SPECIAL PATTERN SUB-FIELD^^1^2"
^DD(44.0002,0,"NM","SPECIAL PATTERN")=""
^DD(44.0002,0,"UP")="44"
^DD(44.0002,.01,0)="PATTERN DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(44.0002,.01,3)=""
^DD(44.0002,.01,21,0)="^^1^1^2920212^"
^DD(44.0002,.01,21,1,0)="Date a particular pattern was established by user."
^DD(44.0002,.01,"DT")="2860801"
^DD(44.0002,1,0)="ORIGINAL AVAILABILITY^F^^1;E1,90^K:$L(X)>90!($L(X)<2)!'(X?.E1""["".E!(X="""")) X"
^DD(44.0002,1,3)="ANSWER MUST BE 2-90 CHARACTERS IN LENGTH"
^DD(44.0002,1,21,0)="^^1^1^2920212^"
^DD(44.0002,1,21,1,0)="First or original availability pattern set up for a clinic."
^DD(44.0002,1,"DT")="2860801"
^DD(44.0002,"B","ORIGINAL AVAILABILITY",1)=""
^DD(44.0002,"B","PATTERN DATE",.01)=""
^DD(44.0002,"GL",0,1,.01)=""
^DD(44.0002,"GL",1,"E1,90",1)=""
^DD(44.001,0)="APPOINTMENT SUB-FIELD^NL^1400^3"
^DD(44.001,0,"DT")="2930504"
^DD(44.001,0,"IX","ANT",44.003,309)=""
^DD(44.001,0,"NM","APPOINTMENT")=""
^DD(44.001,0,"UP")="44"
^DD(44.001,.01,0)="APPOINTMENT DATE/TIME^MDX^^0;1^I X K X W !,""This node may not be set through fileman!!"" I $D(X) S %DT=""ETX"" D ^%DT S X=Y,DINUM=Y K:DT+20000<X!(DT>X) X,DINUM"
^DD(44.001,.01,1,0)="^.1^^0"
^DD(44.001,.01,3)="TYPE A DATE BETWEEN DT AND DT+2000"
^DD(44.001,.01,21,0)="^^1^1^2920212^"
^DD(44.001,.01,21,1,0)="Date/time of a veteran's appointment to an outpatient clinic."
^DD(44.001,.01,"DT")="2860801"
^DD(44.001,2,0)="PATIENT^44.003PA^^1;0"
^DD(44.001,2,21,0)="^^1^1^2920212^"
^DD(44.001,2,21,1,0)="Patient for whom this data relates."
^DD(44.001,1400,0)="MESSAGE^F^^MES;1^K:$L(X)>80!($L(X)<2) X"
^DD(44.001,1400,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(44.001,1400,21,0)="^^3^3^2920212^"
^DD(44.001,1400,21,1,0)="Message generated when clerk attempting to make appointment and"
^DD(44.001,1400,21,2,0)="patient has appointment same day in another or same clinic to"
^DD(44.001,1400,21,3,0)="alert them of same."
^DD(44.001,"B","APPOINTMENT DATE/TIME",.01)=""
^DD(44.001,"B","MESSAGE",1400)=""
^DD(44.001,"B","PATIENT",2)=""
^DD(44.001,"GL",0,1,.01)=""
^DD(44.001,"GL",1,0,2)=""
^DD(44.001,"GL","MES",1,1400)=""
^DD(44.001,"SB",44.003,2)=""
^DD(44.002,0)="AVAILABILITY SUB-FIELD^NL^4^4"
^DD(44.002,0,"NM","AVAILABILITY")=""
^DD(44.002,0,"UP")="44"
^DD(44.002,.01,0)="AVAILABILITY^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=Y K:Y<DT!(Y-10000>DT) X,DINUM"
^DD(44.002,.01,3)="NOT LESS THAN TODAY OR GREATER THAN 1 YEAR FROM NOW"
^DD(44.002,.01,21,0)="^^1^1^2920212^"
^DD(44.002,.01,21,1,0)="Clinic availability information."
^DD(44.002,2,0)="SCHEDULE TIME^44.004A^^2;0"
^DD(44.002,2,21,0)="^^1^1^2920212^^"
^DD(44.002,2,21,1,0)="Time slots or pattern scheduled for a specific clinic."
^DD(44.002,3,0)="DAY OF WEEK^CJ15^^ ; ^S Y(44.002,3,1)=$S($D(^SC(D0,""T"",D1,0)):^(0),1:"""") S X=$P(Y(44.002,3,1),U,1) D DW^%DTC S X=X"
^DD(44.002,3,9)="^"
^DD(44.002,3,9.01)="44.002^.01"
^DD(44.002,3,9.1)="DAYOFWEEK(AVAILABILITY)"
^DD(44.002,3,21,0)="^^1^1^2920212^"
^DD(44.002,3,21,1,0)="Day(s) of week clinic is scheduled to meet."
^DD(44.002,4,0)="NUMBEROFDAY^CJ1^^ ; ^S Y(44.002,4,1)=$S($D(^SC(D0,""T"",D1,0)):^(0),1:"""") S X=$P(Y(44.002,4,1),U,1) D H^%DTC S X=%Y S X=X"
^DD(44.002,4,9)="^"
^DD(44.002,4,9.01)="44.002^.01"
^DD(44.002,4,9.1)="SDNUMBEROFDAY(AVAILABILITY)"
^DD(44.002,4,21,0)="^^1^1^2920212^"
^DD(44.002,4,21,1,0)="Number of days per week clinic is scheduled to meet."
^DD(44.002,4,"DT")="2840417"
^DD(44.002,"B","AVAILABILITY",.01)=""
^DD(44.002,"B","DAY OF WEEK",3)=""
^DD(44.002,"B","NUMBEROFDAY",4)=""
^DD(44.002,"B","SCHEDULE TIME",2)=""
^DD(44.002,"GL",0,1,.01)=""
^DD(44.002,"GL",2,0,2)=""
^DD(44.002,"SB",44.004,2)=""
^DD(44.003,0)="PATIENT SUB-FIELD^NL^999^32"
^DD(44.003,0,"DT")="2930504"
^DD(44.003,0,"IX","ANT1",44.003,303)=""
^DD(44.003,0,"IX","ASDPSD",44.003,.01)=""
^DD(44.003,0,"NM","PATIENT")=""
^DD(44.003,0,"UP")="44.001"
^DD(44.003,.01,0)="PATIENT^MP2'^DPT(^0;1^Q"
^DD(44.003,.01,1,0)="^.1"
^DD(44.003,.01,1,1,0)="44.003^ASDPSD^MUMPS"
^DD(44.003,.01,1,1,1)="S SC=DA(2),DFN=X,SD=DA(1) D EN1^SDM3 K SC,SD"
^DD(44.003,.01,1,1,2)="D EN1K^SDM3 K SDY,SDIV"
^DD(44.003,.01,21,0)="^^1^1^2920212^"
^DD(44.003,.01,21,1,0)="Patient for whom appointment data relates."
^DD(44.003,.01,"DT")="2860730"
^DD(44.003,.09,0)="SSN^CJ9^^ ; ^X ^DD(44.003,.09,9.2) S X=$P(Y(.09,101),U,9) S D0=Y(.09,2)"
^DD(44.003,.09,9)="^"
^DD(44.003,.09,9.01)="2^.09;44.003^.01"
^DD(44.003,.09,9.1)="PATIENT:SSN"
^DD(44.003,.09,9.2)="S Y(.09,2)=$S($D(D0):D0,1:""""),Y(.09,1)=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),D0=$P(Y(.09,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(.09,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(44.003,.09,21,0)="^^2^2^2920212^"
^DD(44.003,.09,21,1,0)="Social Security number of the patient for whom appointment data"
^DD(44.003,.09,21,2,0)="relates."
^DD(44.003,.099,0)="TERMINAL DIGITS^CJ4^^ ; ^X $P(^DD(44.003,.09,0),U,5,99) S Y(.099,1)=X S X=Y(.099,1),Y(.099,2)=X S X=6,Y(.099,3)=X S X=9,X=$E(Y(.099,2),Y(.099,3),X)"
^DD(44.003,.099,9)="^"
^DD(44.003,.099,9.01)="44.003^.09"
^DD(44.003,.099,9.1)="$E(SSN,6,9)"
^DD(44.003,.099,21,0)="^^1^1^2920212^^"
^DD(44.003,.099,21,1,0)="Computed field which determines the last four digits of the SSN."
^DD(44.003,.11,0)="STREET^CJ30^^ ; ^X ^DD(44.003,.11,9.2) S X=$P(Y(.11,101),U,1) S D0=Y(.11,2)"
^DD(44.003,.11,9)="^"
^DD(44.003,.11,9.01)="2^.111;44.003^.01"
^DD(44.003,.11,9.1)="PATIENT:STREET ADDRESS"
^DD(44.003,.11,9.2)="S Y(.11,2)=$S($D(D0):D0,1:""""),Y(.11,1)=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),D0=$P(Y(.11,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(.11,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(44.003,.11,21,0)="^^1^1^2920212^"
^DD(44.003,.11,21,1,0)="First line street address of the patient."
^DD(44.003,1,0)="LENGTH OF APP'T^NJ3,0^^0;2^K:+X'=X!(X>120)!(X<5)!(X?.E1"".""1N.N) X"
^DD(44.003,1,3)="TYPE A WHOLE NUMBER BETWEEN 5 AND 120"
^DD(44.003,1,21,0)="^^1^1^2920212^"
^DD(44.003,1,21,1,0)="Length of appointment in minutes (i.e. 15-60)."
^DD(44.003,1.6,0)="ENROLLMENT CODE^CJ8^^ ; ^S I=$S($D(^SC(D0,""SL"")):+$P(^(""SL""),U,5),1:0),X="""",Y=+^(""S"",D1,1,D2,0) X ""F %=0:0 S %=$N(^DPT(Y,""""DE"""",%)) Q:'$D(^(%,0))  I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,3) Q"""
^DD(44.003,1.6,9)="^"
^DD(44.003,1.6,9.01)=""
^DD(44.003,1.6,9.1)="S I=$S($D(^SC(D0,""SL"")):+$P(^(""SL""),U,5),1:0),X="""",Y=+^(""S"",D1,1,D2,0) X ""F %=0:0 S %=$N(^DPT(Y,""""DE"""",%)) Q:'$D(^(%,0))  I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,3) Q"""
^DD(44.003,1.6,21,0)="^^1^1^2920212^^"
^DD(44.003,1.6,21,1,0)="Computed enrollment code assigned a patient for outpatient care."
^DD(44.003,1.7,0)="ENROLLMENT DATE^CD8^^ ; ^S I=$S($D(^SC(D0,""SL"")):+$P(^(""SL""),U,5),1:0),X="""",Y=+^(""S"",D1,1,D2,0) X ""F %=0:0 S %=$N(^DPT(Y,""""DE"""",%)) Q:'$D(^(%,0))  I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,2) Q"""
^DD(44.003,1.7,9)="^"
^DD(44.003,1.7,9.01)=""
^DD(44.003,1.7,9.1)="S I=$S($D(^SC(D0,""SL"")):+$P(^(""SL""),U,5),1:0),X="""",Y=+^(""S"",D1,1,D2,0) X ""F %=0:0 S %=$N(^DPT(Y,""""DE"""",%)) Q:'$D(^(%,0))  I +^(0)=Y&Y!(+^(0)=D0) S X=$P(^(0),U,2) Q"""
^DD(44.003,1.7,21,0)="^^1^1^2920212^"
^DD(44.003,1.7,21,1,0)="Date patient was enrolled in a clinic."
^DD(44.003,2,0)="XRAY^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(44.003,2,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(44.003,2,21,0)="^^1^1^2920212^^"
^DD(44.003,2,21,1,0)="X-ray  ordered in association with an appointment."
^DD(44.003,3,0)="OTHER^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(44.003,3,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(44.003,3,21,0)="^^1^1^2920212^"
^DD(44.003,3,21,1,0)="Any other tests ordered in association with an appointment"
^DD(44.003,4,0)="WARD LOC^F^^0;5^K:$L(X)>25!($L(X)<1) X"
^DD(44.003,4,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(44.003,4,21,0)="^^1^1^2920212^"
^DD(44.003,4,21,1,0)="Ward location of patient if an inpatient at the time of appointment."
^DD(44.003,5,0)="STATUS^CJ8X^^ ; ^S Y(5,1)=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:"""") S X=$P(Y(5,1),U,5) X ""F Y=0:0 S Y=$N(^DPT(+Y(5,1),""""DE"""",Y)),X=$S(X]"""""""":X,'$D(^(Y,0)):X,^(0)-D0:X,1:$P(^(0),U,3)) Q:Y'>0"" K Y"
^DD(44.003,5,9)="^"
^DD(44.003,5,9.01)="44.003^4"
^DD(44.003,5,9.1)="WARD LOC_0"
^DD(44.003,5,21,0)="^^1^1^2920212^"
^DD(44.003,5,21,1,0)="Status of appointment, i.e. scheduled, unscheduled, cancelled, etc."
^DD(44.003,5,"DT")="2830401"
^DD(44.003,6,0)="OTHER, TRAVEL^CJ30^^ ; ^S Y(6,1)=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:"""") S X=$P(Y(6,1),U,3)_""  ""_$P(Y(6,1),U,4)"
^DD(44.003,6,9)="^"
^DD(44.003,6,9.01)="44.003^3;44.003^2"
^DD(44.003,6,9.1)="XRAY_""  ""_OTHER"
^DD(44.003,6,21,0)="^^1^1^2920212^"
^DD(44.003,6,21,1,0)="Other information, i.e. travel in association with this appointment."
^DD(44.003,7,0)="DATA ENTRY CLERK^P200'^VA(200,^0;6^Q"
^DD(44.003,7,3)=""
^DD(44.003,7,21,0)="^^1^1^2920212^"
^DD(44.003,7,21,1,0)="Clerk who entered the appointment."
^DD(44.003,7,"DT")="2901017"
^DD(44.003,8,0)="DATE APPOINTMENT MADE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(44.003,8,1,0)="^.1^^0"
^DD(44.003,8,21,0)="^^1^1^2920212^"
^DD(44.003,8,21,1,0)="Date/time appointment was placed into the package."
^DD(44.003,8,"DT")="2920409"
^DD(44.003,9,0)="OVERBOOK^S^O:OVERBOOK;^OB;1^Q"
^DD(44.003,9,21,0)="^^2^2^2920212^"
^DD(44.003,9,21,1,0)="Was this appointment an overbook, or scheduled over the maximum number"
^DD(44.003,9,21,2,0)="of appointments allowed for that day/slot."
^DD(44.003,10,0)="PRIOR X-RAY RESULTS TO CLINIC?^S^Y:YES;^0;8^Q"
^DD(44.003,10,1,0)="^.1"
^DD(44.003,10,1,1,0)="44^ARAD^MUMPS"
^DD(44.003,10,1,1,1)="S:X[""Y"" ^SC(""ARAD"",DA(2),DA(1),DA)="""""
^DD(44.003,10,1,1,2)="K ^SC(""ARAD"",DA(2),DA(1),DA)"
^DD(44.003,10,3)="Enter a ""Y"" if the patient's prior x-ray results should be sent to the clinic on the day of the patient's appointment."
^DD(44.003,10,21,0)="^^2^2^2960507^^"
^DD(44.003,10,21,1,0)="Are prior x-ray results required to be sent to clinic at time of"
^DD(44.003,10,21,2,0)="appointment?"
^DD(44.003,10,"DT")="2860801"
^DD(44.003,10.5,0)="CURRENT ELIGIBILITY CODE^CJ10^^ ; ^X ^DD(44.003,10.5,9.2) S Y(44.003,10.5,101)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=$S('$D(^DIC(8,+$P(Y(44.003,10.5,101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=Y(44.003,10.5,2)"
^DD(44.003,10.5,9)="^"
^DD(44.003,10.5,9.01)="2^.361;44.003^.01"
^DD(44.003,10.5,9.1)="PATIENT:ELIGIBILITY"
^DD(44.003,10.5,9.2)="S Y(44.003,10.5,2)=$S($D(D0):D0,1:""""),Y(44.003,10.5,1)=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),D0=$P(Y(44.003,10.5,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(44.003,10.5,21,0)="^^2^2^2920706^^"
^DD(44.003,10.5,21,1,0)="Patient's current eligibility code as assigned in the Registration"
^DD(44.003,10.5,21,2,0)="portion of ADT."
^DD(44.003,11,0)="COLLATERAL^CJ10^^ ; ^X ^DD(44.003,11,9.2) S X=$S(Y(44.003,11,2):Y(44.003,11,3),Y(44.003,11,4):X)"
^DD(44.003,11,9)="^"
^DD(44.003,11,9.01)="44.003^10.5"
^DD(44.003,11,9.1)="$S(#10.5[""COLLATERAL"":""COLLATERAL"",1:"""")"
^DD(44.003,11,9.2)="X $P(^DD(44.003,10.5,0),U,5,99) S Y(44.003,11,1)=X S X=Y(44.003,11,1)[""COLLATERAL"",Y(44.003,11,2)=X S X=""COLLATERAL"",Y(44.003,11,3)=X S X=1,Y(44.003,11,4)=X S X="""""
^DD(44.003,11,21,0)="^^1^1^2920212^"
^DD(44.003,11,21,1,0)="Is this appointment for a collateral of a veteran?"
^DD(44.003,12,0)="LAB TIME^CJ8^^ ; ^S X=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),Y=$P(X,""^"",1) I X]"""" S X=$S($P(^DPT(Y,""S"",D1,0),""^"",3)]"""":$P(^(0),""^"",3),1:"""") Q:X=""""  X ^DD(""FUNC"",2,1)"
^DD(44.003,12,9)="^"
^DD(44.003,12,9.01)=""
^DD(44.003,12,9.1)="S X=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),Y=$P(X,""^"",1) I X]"""" S X=$S($P(^DPT(Y,""S"",D1,0),""^"",3)]"""":$P(^(0),""^"",3),1:"""") Q:X=""""  X ^DD(""FUNC"",2,1)"
^DD(44.003,12,21,0)="^^1^1^2920212^"
^DD(44.003,12,21,1,0)="Date/time lab work scheduled."
^DD(44.003,13,0)="XRAY TIME^CJ8^^ ; ^S X=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),Y=$P(X,""^"",1) I X]"""" S X=$S($P(^DPT(Y,""S"",D1,0),""^"",4)]"""":$P(^(0),""^"",4),1:"""") Q:X=""""  X ^DD(""FUNC"",2,1)"
^DD(44.003,13,9)="^"
^DD(44.003,13,9.01)=""
^DD(44.003,13,9.1)="S X=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),Y=$P(X,""^"",1) I X]"""" S X=$S($P(^DPT(Y,""S"",D1,0),""^"",4)]"""":$P(^(0),""^"",4),1:"""") Q:X=""""  X ^DD(""FUNC"",2,1)"
^DD(44.003,13,21,0)="^^1^1^2920212^"
^DD(44.003,13,21,1,0)="Date/time x-ray scheduled."
^DD(44.003,14,0)="EKG TIME^CJ8^^ ; ^S X=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),Y=$P(X,""^"",1) I X]"""" S X=$S($P(^DPT(Y,""S"",D1,0),""^"",5)]"""":$P(^(0),""^"",5),1:"""") Q:X=""""  X ^DD(""FUNC"",2,1)"
^DD(44.003,14,9)="^"
^DD(44.003,14,9.01)=""
^DD(44.003,14,9.1)="S X=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:""""),Y=$P(X,""^"",1) I X]"""" S X=$S($P(^DPT(Y,""S"",D1,0),""^"",5)]"""":$P(^(0),""^"",5),1:"""") Q:X=""""  X ^DD(""FUNC"",2,1)"
^DD(44.003,14,21,0)="^^1^1^2920212^"
^DD(44.003,14,21,1,0)="Date/time EKG procedure scheduled."
^DD(44.003,30,0)="ELIGIBILITY OF VISIT^*P8'X^DIC(8,^0;10^S DIC(""S"")=""I '$P(^(0),""""^"""",7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44.003,30,3)=""
^DD(44.003,30,5,1,0)="44.003^303^3"
^DD(44.003,30,5,2,0)="44.003^309^3"
^DD(44.003,30,12)="The eligibility code entered here must be non-veteran"
^DD(44.003,30,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",5)=""""N"""""""
^DD(44.003,30,21,0)="^^4^4^2920706^^^^"
^DD(44.003,30,21,1,0)="This field was previously called NON-VETERAN VISIT ELIGIBILITY.  It now"
^DD(44.003,30,21,2,0)="contains the eligibility being used at the time of the appointment.  If"
^DD(44.003,30,21,3,0)="a patient has Other Entitled Eligibilities (replaces Dual Status), the"
^DD(44.003,30,21,4,0)="appointment options will prompt for eligibility and be set here."
^DD(44.003,30,23,0)="^^3^3^2920706^^"
^DD(44.003,30,23,1,0)="This field is automatically filled in when the CHECKED-IN"
^DD(44.003,30,23,2,0)="field(#309) is entered.  However, this will only occur if the"
^DD(44.003,30,23,3,0)="the field is blank."
^DD(44.003,30,"DT")="2890115"
^DD(44.003,200,0)="PARENT RECORD REQUEST #^*P190.1'^RTV(190.1,^RTR;1^S DIC(""S"")=""I $D(DA),$D(DA(1)),$D(DA(2)),$D(^RT(+^(0),0)),$P(^(0),U)=+^SC(DA(2),""""S"""",DA(1),1,DA,0)_"""";DPT("""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44.003,200,12)="Allows only requests that belong to the current patient."
^DD(44.003,200,12.1)="S DIC(""S"")=""I $D(DA),$D(DA(1)),$D(DA(2)),$D(^RT(+^(0),0)),$P(^(0),U)=+^SC(DA(2),""""S"""",DA(1),1,DA,0)_"""";DPT("""""""
^DD(44.003,200,21,0)="^^17^17^2860917^^"
^DD(44.003,200,21,1,0)="This field contains the request number from the record tracking system."
^DD(44.003,200,21,2,0)="It will only have a request number if the clinic requires records"
^DD(44.003,200,21,3,0)="for an appointment and if the site is utilitizing the record tracking"
^DD(44.003,200,21,4,0)="module."
^DD(44.003,200,21,5,0)=" "
^DD(44.003,200,21,6,0)="The request number represents the 'parent' request for records. This"
^DD(44.003,200,21,7,0)="parent request may then, in turn, indicate that more than one record "
^DD(44.003,200,21,8,0)="request is associated with this appointment. For example, if the patient's"
^DD(44.003,200,21,9,0)="medical record has two volumes then there maybe a request issued for each"
^DD(44.003,200,21,10,0)="volume."
^DD(44.003,200,21,11,0)=" "
^DD(44.003,200,21,12,0)="The request for volume 1 maybe the initial(parent) request and the"
^DD(44.003,200,21,13,0)="request for the second volume would have volumes 1's request as its"
^DD(44.003,200,21,14,0)="parent."
^DD(44.003,200,21,15,0)=" "
^DD(44.003,200,21,16,0)="Also, requests for x-ray film folders, dental records etc. maybe linked"
^DD(44.003,200,21,17,0)="to this parent request."
^DD(44.003,200,"DT")="2860917"
^DD(44.003,302,0)="CHECK IN USER^P200'^VA(200,^C;2^Q"
^DD(44.003,302,5,1,0)="44.003^309^1"
^DD(44.003,302,9)="^"
^DD(44.003,302,21,0)="^^3^3^2920303^^"
^DD(44.003,302,21,1,0)="This field contains the user who checked in the patient"
^DD(44.003,302,21,2,0)="for the appointment.  It is automatically filled in when the"
^DD(44.003,302,21,3,0)="CHECKED-IN field(#309) is entered."
^DD(44.003,302,"DT")="2911031"
^DD(44.003,303,0)="CHECKED OUT^DX^^C;3^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),+$G(^SC(DA(2),""S"",DA(1),1,DA,""C"")),X<^(""C"") K X"
^DD(44.003,303,1,0)="^.1"
^DD(44.003,303,1,1,0)="^^TRIGGER^44.003^304"
^DD(44.003,303,1,1,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(44.003,303,1,1,1.4)"
^DD(44.003,303,1,1,1.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,4)=DIV,DIH=44.003,DIG=304 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,303,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(44.003,303,1,1,2.4)"
^DD(44.003,303,1,1,2.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,4)=DIV,DIH=44.003,DIG=304 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,303,1,1,"CREATE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,303,1,1,"CREATE VALUE")="S X=DUZ"
^DD(44.003,303,1,1,"DELETE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,303,1,1,"DELETE VALUE")="@"
^DD(44.003,303,1,1,"DT")="2930722"
^DD(44.003,303,1,1,"FIELD")="CHECK OUT USER"
^DD(44.003,303,1,2,0)="^^TRIGGER^44.003^306"
^DD(44.003,303,1,2,1)="X ^DD(44.003,303,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(44.003,303,1,2,1.1) X ^DD(44.003,303,1,2,1.4)"
^DD(44.003,303,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(44.003,303,1,2,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,303,1,2,1.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,6)=DIV,DIH=44.003,DIG=306 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,303,1,2,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(44.003,303,1,2,2.4)"
^DD(44.003,303,1,2,2.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,6)=DIV,DIH=44.003,DIG=306 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,303,1,2,"%D",0)="^^1^1^2930723^"
^DD(44.003,303,1,2,"%D",1,0)="This trigger records when the check out date/time was entered into the system."
^DD(44.003,303,1,2,"%D",2,0)="into the system."
^DD(44.003,303,1,2,"CREATE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,303,1,2,"CREATE VALUE")="NOW"
^DD(44.003,303,1,2,"DELETE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,303,1,2,"DELETE VALUE")="@"
^DD(44.003,303,1,2,"DT")="2930722"
^DD(44.003,303,1,2,"FIELD")="#306"
^DD(44.003,303,1,3,0)="^^TRIGGER^44.003^30"
^DD(44.003,303,1,3,1)="X ^DD(44.003,303,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(44.003,303,1,3,1.1) X ^DD(44.003,303,1,3,1.4)"
^DD(44.003,303,1,3,1.1)="S X=DIV S X=$S($D(^DPT(+^SC(DA(2),""S"",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"""",$P(^(0),U,4)=6:"""",1:X)"
^DD(44.003,303,1,3,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^SC(DA(2),""S"",DA(1),1,DA,0),U,10)="""")"
^DD(44.003,303,1,3,1.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=44.003,DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,303,1,3,2)="Q"
^DD(44.003,303,1,3,"%D",0)="^^7^7^2930311^"
^DD(44.003,303,1,3,"%D",1,0)="This trigger will stuff the patient's PRIMARY ELIGIBILITY CODE into"
^DD(44.003,303,1,3,"%D",2,0)="the ELIGIBILITY OF VISIT field when the appointment is checked out."
^DD(44.003,303,1,3,"%D",3,0)=" "
^DD(44.003,303,1,3,"%D",4,0)="The only exceptions are the following:"
^DD(44.003,303,1,3,"%D",5,0)=" "
^DD(44.003,303,1,3,"%D",6,0)="         o if the ELIGIBILITY OF VISIT filed is already filled in"
^DD(44.003,303,1,3,"%D",7,0)="         o if the PRIMARY ELIGIBILITY CODE is DOM"
^DD(44.003,303,1,3,"CREATE CONDITION")="S X=($P(^SC(DA(2),""S"",DA(1),1,DA,0),U,10)="""")"
^DD(44.003,303,1,3,"CREATE VALUE")="S X=$S($D(^DPT(+^SC(DA(2),""S"",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"""",$P(^(0),U,4)=6:"""",1:X)"
^DD(44.003,303,1,3,"DELETE VALUE")="NO EFFECT"
^DD(44.003,303,1,3,"DT")="2930311"
^DD(44.003,303,1,3,"FIELD")="ELIGIBILITY OF VISIT"
^DD(44.003,303,1,4,0)="44.003^ANT1^MUMPS"
^DD(44.003,303,1,4,1)="D CO^SDM1A(DA(2),DA(1),DA,""SET"")"
^DD(44.003,303,1,4,2)="D CO^SDM1A(DA(2),DA(1),DA,""KILL"")"
^DD(44.003,303,1,4,"%D",0)="^^2^2^2930311^"
^DD(44.003,303,1,4,"%D",1,0)="This MUMPS cross reference updates the appointment status field"
^DD(44.003,303,1,4,"%D",2,0)="in the patient file."
^DD(44.003,303,1,4,"DT")="2930311"
^DD(44.003,303,3)="Enter the date the patient was checked out. The date must be after the check in date."
^DD(44.003,303,21,0)="^^2^2^2911031^"
^DD(44.003,303,21,1,0)="This field contains the date and time the patient was checked out"
^DD(44.003,303,21,2,0)="of the appointment."
^DD(44.003,303,"DT")="3010226"
^DD(44.003,304,0)="CHECK OUT USER^P200'^VA(200,^C;4^Q"
^DD(44.003,304,5,1,0)="44.003^303^1"
^DD(44.003,304,9)="^"
^DD(44.003,304,21,0)="^^3^3^2920303^^^"
^DD(44.003,304,21,1,0)="This field contains the user who checked out the patient"
^DD(44.003,304,21,2,0)="for the appointment.  It is automatically entered when the"
^DD(44.003,304,21,3,0)="CHECKED OUT field(#303) is entered."
^DD(44.003,304,"DT")="2911031"
^DD(44.003,305,0)="CHECK IN ENTERED^D^^C;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(44.003,305,5,1,0)="44.003^309^4"
^DD(44.003,305,9)="^"
^DD(44.003,305,21,0)="^^3^3^2920303^^^"
^DD(44.003,305,21,1,0)="Date and time that the 'check in' was entered into the system."
^DD(44.003,305,21,2,0)="This field is automatically filled in when the CHECKED-IN(#309) field"
^DD(44.003,305,21,3,0)="is entered."
^DD(44.003,305,"DT")="2920226"
^DD(44.003,306,0)="CHECK OUT ENTERED^D^^C;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(44.003,306,5,1,0)="44.003^303^2"
^DD(44.003,306,9)="^"
^DD(44.003,306,21,0)="^^3^3^2920303^^^^"
^DD(44.003,306,21,1,0)="Date and time that the 'check out' was entered into the system."
^DD(44.003,306,21,2,0)="This field is automatically filled in when the CHECKED-OUT(#303) field"
^DD(44.003,306,21,3,0)="is entered."
^DD(44.003,306,"DT")="2920226"
^DD(44.003,309,0)="CHECKED-IN^DX^^C;1^S %DT=""ETXR"",%DT(0)=$S($P($G(^SC(DA(2),""S"",DA(1),1,DA,""C"")),U,3):-$P(^(""C""),U,3),1:""-NOW"") D ^%DT K %DT S X=Y K:Y<1 X"
^DD(44.003,309,1,0)="^.1"
^DD(44.003,309,1,1,0)="^^TRIGGER^44.003^302"
^DD(44.003,309,1,1,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(44.003,309,1,1,1.4)"
^DD(44.003,309,1,1,1.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,2)=DIV,DIH=44.003,DIG=302 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,309,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(44.003,309,1,1,2.4)"
^DD(44.003,309,1,1,2.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,2)=DIV,DIH=44.003,DIG=302 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,309,1,1,"CREATE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,309,1,1,"CREATE VALUE")="S X=DUZ"
^DD(44.003,309,1,1,"DELETE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,309,1,1,"DELETE VALUE")="@"
^DD(44.003,309,1,1,"DT")="2930722"
^DD(44.003,309,1,1,"FIELD")="#302"
^DD(44.003,309,1,2,0)="44.001^ANT^MUMPS"
^DD(44.003,309,1,2,1)="D CI^SDM1A(DA(2),DA(1),DA,""SET"")"
^DD(44.003,309,1,2,2)="D CI^SDM1A(DA(2),DA(1),DA,""KILL"")"
^DD(44.003,309,1,2,"%D",0)="^^2^2^2911129^"
^DD(44.003,309,1,2,"%D",1,0)="This MUMPS cross reference updates the appointment status field"
^DD(44.003,309,1,2,"%D",2,0)="in the patient file."
^DD(44.003,309,1,2,"DT")="2911129"
^DD(44.003,309,1,3,0)="^^TRIGGER^44.003^30"
^DD(44.003,309,1,3,1)="X ^DD(44.003,309,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(44.003,309,1,3,1.1) X ^DD(44.003,309,1,3,1.4)"
^DD(44.003,309,1,3,1.1)="S X=DIV S X=$S($D(^DPT(+^SC(DA(2),""S"",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"""",$P(^(0),U,4)=6:"""",1:X)"
^DD(44.003,309,1,3,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=($P(^SC(DA(2),""S"",DA(1),1,DA,0),U,10)="""")"
^DD(44.003,309,1,3,1.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=44.003,DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,309,1,3,2)="Q"
^DD(44.003,309,1,3,"%D",0)="^^6^6^2911219^"
^DD(44.003,309,1,3,"%D",1,0)="This trigger will stuff the patient's PRIMARY ELIGIBILITY CODE into"
^DD(44.003,309,1,3,"%D",2,0)="the ELIGIBILITY OF VISIT field when the appointment is checked in."
^DD(44.003,309,1,3,"%D",3,0)=" "
^DD(44.003,309,1,3,"%D",4,0)="The only exceptions are the following:"
^DD(44.003,309,1,3,"%D",5,0)="        o if the ELIGIBILITY OF VISIT filed is already filled in"
^DD(44.003,309,1,3,"%D",6,0)="        o if the PRIMARY ELIGIBILITY CODE is DOM"
^DD(44.003,309,1,3,"CREATE CONDITION")="S X=($P(^SC(DA(2),""S"",DA(1),1,DA,0),U,10)="""")"
^DD(44.003,309,1,3,"CREATE VALUE")="S X=$S($D(^DPT(+^SC(DA(2),""S"",DA(1),1,DA,0),.36)):+^(.36),1:0),X=$S('$D(^DIC(8,X,0)):"""",$P(^(0),U,4)=6:"""",1:X)"
^DD(44.003,309,1,3,"DELETE VALUE")="NO EFFECT"
^DD(44.003,309,1,3,"DT")="2911219"
^DD(44.003,309,1,3,"FIELD")="ELIGIBILITY OF VISIT"
^DD(44.003,309,1,4,0)="^^TRIGGER^44.003^305"
^DD(44.003,309,1,4,1)="X ^DD(44.003,309,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(44.003,309,1,4,1.1) X ^DD(44.003,309,1,4,1.4)"
^DD(44.003,309,1,4,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(44.003,309,1,4,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,309,1,4,1.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,5)=DIV,DIH=44.003,DIG=305 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,309,1,4,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S X=$S('$D(DIU(0)):1,1:0) I X S X=DIV S Y(1)=$S($D(^SC(D0,""S"",D1,1,D2,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(44.003,309,1,4,2.4)"
^DD(44.003,309,1,4,2.4)="S DIH=$S($D(^SC(DIV(0),""S"",DIV(1),1,DIV(2),""C"")):^(""C""),1:""""),DIV=X S $P(^(""C""),U,5)=DIV,DIH=44.003,DIG=305 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(44.003,309,1,4,"%D",0)="^^1^1^2930723^"
^DD(44.003,309,1,4,"%D",1,0)="This trigger records when the check in date/time was entered into the system."
^DD(44.003,309,1,4,"%D",2,0)="into the system."
^DD(44.003,309,1,4,"CREATE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,309,1,4,"CREATE VALUE")="NOW"
^DD(44.003,309,1,4,"DELETE CONDITION")="S X=$S('$D(DIU(0)):1,1:0)"
^DD(44.003,309,1,4,"DELETE VALUE")="@"
^DD(44.003,309,1,4,"DT")="2930722"
^DD(44.003,309,1,4,"FIELD")="#305"
^DD(44.003,309,3)="Enter a date/time before the check-out date, if one exists."
^DD(44.003,309,21,0)="^^2^2^2920212^^"
^DD(44.003,309,21,1,0)="This field contains the date and time the patient was checked in"
^DD(44.003,309,21,2,0)="for the appointment."
^DD(44.003,309,"DT")="3010226"
^DD(44.003,310,0)="APPOINTMENT CANCELLED?^S^C:CANCELLED;^0;9^Q"
^DD(44.003,310,21,0)="^^1^1^2920212^"
^DD(44.003,310,21,1,0)="Was appointment cancelled?"
^DD(44.003,310,"DT")="2841025"
^DD(44.003,688,0)="CONSULT LINK^P123'^GMR(123,^CONS;1^Q"
^DD(44.003,688,1,0)="^.1^^-1"
^DD(44.003,688,1,1,0)="44^AWAS1"
^DD(44.003,688,1,1,1)="S ^SC(""AWAS1"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(44.003,688,1,1,2)="K ^SC(""AWAS1"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(44.003,688,1,1,"%D",0)="^^1^1^3060313^"
^DD(44.003,688,1,1,"%D",1,0)="This is used as a backward pointer."
^DD(44.003,688,1,1,"DT")="3060313"
^DD(44.003,688,1,2,0)="44^AHST1^MUMPS"
^DD(44.003,688,1,2,1)="Q:$G(SDSEED)  S XX=X,%DT=""ST"",X=""NOW"" D ^%DT S X=XX,^SC(""AHST1"",$E(X,1,30),Y,DA(2),DA(1),DA)="""""
^DD(44.003,688,1,2,2)="Q"
^DD(44.003,688,1,2,"%D",0)="^.101^1^1^3060524^^"
^DD(44.003,688,1,2,"%D",1,0)="This x-ref is used to track historical data."
^DD(44.003,688,1,2,"DT")="3060524"
^DD(44.003,688,3)="Enter the consult associated with this appointment."
^DD(44.003,688,21,0)="^.001^1^1^3060313^^"
^DD(44.003,688,21,1,0)="This field links the appointment to a consult."
^DD(44.003,688,"DT")="3060524"
^DD(44.003,999,0)="DUPLICATE APP'TS SAME DAY^CJ8^^ ; ^S X="""",Y=+^SC(D0,""S"",D1,1,0) F %=D1\1:0 S %=$N(^DPT(Y,""S"",%)) Q:%'>0  I %-D1,$D(^(%,0)),^(0)'[""C"" S X=X+1"
^DD(44.003,999,9)="^"
^DD(44.003,999,9.01)=""
^DD(44.003,999,9.1)="S X="""",Y=+^SC(D0,""S"",D1,1,0) F %=D1\1:0 S %=$N(^DPT(Y,""S"",%)) Q:%'>0  I %-D1,$D(^(%,0)),^(0)'[""C"" S X=X+1"
^DD(44.003,999,21,0)="^^1^1^2920212^"
^DD(44.003,999,21,1,0)="Did the patient have duplicate appointments on the same day?"
^DD(44.003,"B","APPOINTMENT CANCELLED?",310)=""
^DD(44.003,"B","CHECK IN ENTERED",305)=""
^DD(44.003,"B","CHECK IN USER",302)=""
^DD(44.003,"B","CHECK OUT ENTERED",306)=""
^DD(44.003,"B","CHECK OUT USER",304)=""
^DD(44.003,"B","CHECKED OUT",303)=""
^DD(44.003,"B","CHECKED-IN",309)=""
^DD(44.003,"B","COLLATERAL",11)=""
^DD(44.003,"B","CONSULT LINK",688)=""
^DD(44.003,"B","CURRENT ELIGIBILITY CODE",10.5)=""
^DD(44.003,"B","DATA ENTRY CLERK",7)=""
^DD(44.003,"B","DATE APPOINTMENT MADE",8)=""
^DD(44.003,"B","DUPLICATE APP'TS SAME DAY",999)=""
^DD(44.003,"B","EKG TIME",14)=""
^DD(44.003,"B","ELIGIBILITY OF VISIT",30)=""
^DD(44.003,"B","ENROLLMENT CODE",1.6)=""
^DD(44.003,"B","ENROLLMENT DATE",1.7)=""
^DD(44.003,"B","LAB TIME",12)=""
^DD(44.003,"B","LENGTH OF APP'T",1)=""
^DD(44.003,"B","OTHER",3)=""
^DD(44.003,"B","OTHER, TRAVEL",6)=""
^DD(44.003,"B","OVERBOOK",9)=""
^DD(44.003,"B","PARENT RECORD REQUEST #",200)=""
^DD(44.003,"B","PATIENT",.01)=""
^DD(44.003,"B","PRIOR X-RAY RESULTS TO CLINIC?",10)=""
^DD(44.003,"B","SSN",.09)=""
^DD(44.003,"B","STATUS",5)=""
^DD(44.003,"B","STREET",.11)=""
^DD(44.003,"B","TERMINAL DIGITS",.099)=""
^DD(44.003,"B","WARD LOC",4)=""
^DD(44.003,"B","XRAY",2)=""
^DD(44.003,"B","XRAY TIME",13)=""
^DD(44.003,"GL",0,1,.01)=""
^DD(44.003,"GL",0,2,1)=""
^DD(44.003,"GL",0,3,2)=""
^DD(44.003,"GL",0,4,3)=""
^DD(44.003,"GL",0,5,4)=""
^DD(44.003,"GL",0,6,7)=""
^DD(44.003,"GL",0,7,8)=""
^DD(44.003,"GL",0,8,10)=""
^DD(44.003,"GL",0,9,310)=""
^DD(44.003,"GL",0,10,30)=""
^DD(44.003,"GL","C",1,309)=""
^DD(44.003,"GL","C",2,302)=""
^DD(44.003,"GL","C",3,303)=""
^DD(44.003,"GL","C",4,304)=""
^DD(44.003,"GL","C",5,305)=""
^DD(44.003,"GL","C",6,306)=""
^DD(44.003,"GL","CONS",1,688)=""
^DD(44.003,"GL","OB",1,9)=""
^DD(44.003,"GL","RTR",1,200)=""
^DD(44.003,"IX",.01)=""
^DD(44.003,"IX",10)=""
^DD(44.003,"IX",303)=""
^DD(44.003,"IX",309)=""
^DD(44.003,"IX",688)=""
^DD(44.004,0)="SCHEDULE TIME SUB-FIELD^NL^1^2"
^DD(44.004,0,"NM","SCHEDULE TIME")=""
^DD(44.004,0,"UP")="44.002"
^DD(44.004,.01,0)="SCHEDULE TIME^MFX^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4N&(X<1700)&(X>700)&(X#100<60)) X"
^DD(44.004,.01,3)="ANSWER MUST BE 4 CHARACTERS IN LENGTH"
^DD(44.004,.01,21,0)="^^1^1^2920212^^"
^DD(44.004,.01,21,1,0)="Time slots or pattern scheduled for a specific clinic."
^DD(44.004,1,0)="NUMBER OF PATIENTS^NJ2,0^^0;2^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(44.004,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(44.004,1,21,0)="^^1^1^2920212^"
^DD(44.004,1,21,1,0)="Number of patients allowed to be booked for time slots."
^DD(44.004,"B","NUMBER OF PATIENTS",1)=""
^DD(44.004,"B","SCHEDULE TIME",.01)=""
^DD(44.004,"GL",0,1,.01)=""
^DD(44.004,"GL",0,2,1)=""
^DD(44.005,0)="PATTERN SUB-FIELD^NL^3^4"
^DD(44.005,0,"NM","PATTERN")=""
^DD(44.005,0,"UP")="44"
^DD(44.005,.01,0)="PATTERN DATE^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(44.005,.01,21,0)="^^1^1^2920212^^^"
^DD(44.005,.01,21,1,0)="Date/time this particular clinic pattern was set up by user."
^DD(44.005,1,0)="CURRENT AVAILABILITY^F^^1;E1,90^K:$L(X)>90!($L(X)<2) X"
^DD(44.005,1,3)="ANSWER MUST BE 2-90 CHARACTERS IN LENGTH"
^DD(44.005,1,21,0)="^^2^2^2920212^"
^DD(44.005,1,21,1,0)="Current clinic availability.  What slots are and are not available"
^DD(44.005,1,21,2,0)="for specified clinic days."
^DD(44.005,1,"DT")="2860801"
^DD(44.005,2,0)="MAINTENANCE^CJ8X^^ ; ^S Y(2,1)=$S($D(^SC(D0,""ST"",D1,1)):^(1),1:"""") S X=$E(Y(2,1),1,70),X=$S(X[""*"":1,X[""$"":1,X[""A"":1,X[""B"":1,1:"""")"
^DD(44.005,2,9)="^"
^DD(44.005,2,9.01)="44.005^1"
^DD(44.005,2,9.1)="#1"
^DD(44.005,2,21,0)="^^2^2^2920212^"
^DD(44.005,2,21,1,0)="Computed to update when slots are taken/restored when reviewing"
^DD(44.005,2,21,2,0)="clinic pattern availability."
^DD(44.005,3,0)="SPECIAL AVAILABILITY FLAG^DX^^9;1^Q"
^DD(44.005,3,21,0)="^^3^3^2890425^^^"
^DD(44.005,3,21,1,0)="This node's existence indicates there is a 'special' availability set up"
^DD(44.005,3,21,2,0)="for this date and the master pattern for this date should be taken from"
^DD(44.005,3,21,3,0)="the ""OST"" node with the same date, not the ""T0""-""T6"" master pattern nodes."
^DD(44.005,3,"DT")="2860801"
^DD(44.005,"B","CURRENT AVAILABILITY",1)=""
^DD(44.005,"B","MAINTENANCE",2)=""
^DD(44.005,"B","PATTERN DATE",.01)=""
^DD(44.005,"B","SPECIAL AVAILABILITY FLAG",3)=""
^DD(44.005,"GL",0,1,.01)=""
^DD(44.005,"GL",1,"E1,90",1)=""
^DD(44.005,"GL",9,1,3)=""
^DD(44.006,0)="CHART CHECK SUB-FIELD^NL^2^2"
^DD(44.006,0,"NM","CHART CHECK")=""
^DD(44.006,0,"UP")="44"
^DD(44.006,.01,0)="DATE^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=Y K:X<DT X,DINUM"
^DD(44.006,.01,21,0)="^^1^1^2920212^"
^DD(44.006,.01,21,1,0)="Date chart was checked for availability for this appointment."
^DD(44.006,2,0)="PATIENT^44.007PA^^1;0"
^DD(44.006,2,21,0)="^^1^1^2920212^"
^DD(44.006,2,21,1,0)="Patient associated with appointment data."
^DD(44.006,"B","DATE",.01)=""
^DD(44.006,"B","PATIENT",2)=""
^DD(44.006,"GL",0,1,.01)=""
^DD(44.006,"GL",1,0,2)=""
^DD(44.006,"SB",44.007,2)=""
^DD(44.007,0)="PATIENT SUB-FIELD^NL^.01^1"
^DD(44.007,0,"NM","PATIENT")=""
^DD(44.007,0,"UP")="44.006"
^DD(44.007,.01,0)="PATIENT^MP2'^DPT(^0;1^Q"
^DD(44.007,.01,21,0)="^^1^1^2920212^"
^DD(44.007,.01,21,1,0)="Patient associated wtih appointment data."
^DD(44.007,"B","PATIENT",.01)=""
^DD(44.007,"GL",0,1,.01)=""
^DD(44.008,0)="THURSDAY TEMPLATE SUB-FIELD^^1^2"
^DD(44.008,0,"NM","THURSDAY TEMPLATE")=""
^DD(44.008,0,"UP")="44"
^DD(44.008,.01,0)="LIMIT DATE^NJ7,0X^^0;1^W:'$D(SDSCHED) *7,!,""No editting of this field allowed through fileman"" K:'$D(SDSCHED) X I $D(X) S %DT=""EX"",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X"
^DD(44.008,.01,3)="ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER"
^DD(44.008,.01,21,0)="^^5^5^2860801^^^"
^DD(44.008,.01,21,1,0)="The pattern stored at this date is applicable for Thursdays from the previous"
^DD(44.008,.01,21,2,0)="entry's date up to but not including this date.  If there is no previous"
^DD(44.008,.01,21,3,0)="entry date, this date is the first Thursday when appointments may be made to"
^DD(44.008,.01,21,4,0)="this clinic.  If the date equals 9999999, this pattern is effective"
^DD(44.008,.01,21,5,0)="indefinitely for Thursdays from the previous entry date."
^DD(44.008,.01,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.008,.01,"DT")="2860801"
^DD(44.008,1,0)="MASTER PATTERN^F^^1;E1,80^K:$L(X)>80!($L(X)<3)!'(X?.E1""["".E) X"
^DD(44.008,1,3)="ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH"
^DD(44.008,1,21,0)="^^1^1^2920212^"
^DD(44.008,1,21,1,0)="Master pattern set up for clinic for thursdays."
^DD(44.008,1,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.008,1,"DT")="2860801"
^DD(44.008,"B","LIMIT DATE",.01)=""
^DD(44.008,"B","MASTER PATTERN",1)=""
^DD(44.008,"GL",0,1,.01)=""
^DD(44.008,"GL",1,"E1,80",1)=""
^DD(44.009,0)="FRIDAY TEMPLATE SUB-FIELD^^1^2"
^DD(44.009,0,"NM","FRIDAY TEMPLATE")=""
^DD(44.009,0,"UP")="44"
^DD(44.009,.01,0)="LIMIT DATE^NJ7,0X^^0;1^W:'$D(SDSCHED) *7,!,""No editting of this field allowed through fileman"" K:'$D(SDSCHED) X I $D(X) S %DT=""EX"",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X"
^DD(44.009,.01,3)="ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER"
^DD(44.009,.01,21,0)="^^5^5^2860801^^^"
^DD(44.009,.01,21,1,0)="The pattern stored at this date is applicable for Fridays from the previous"
^DD(44.009,.01,21,2,0)="entry's date up to but not including this date.  If there is no previous"
^DD(44.009,.01,21,3,0)="entry date, this date is the first Friday when appointments may be made to"
^DD(44.009,.01,21,4,0)="this clinic.  If the date equals 9999999, this pattern is effective"
^DD(44.009,.01,21,5,0)="indefinitely for Fridays from the previous entry date."
^DD(44.009,.01,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.009,.01,"DT")="2860801"
^DD(44.009,1,0)="MASTER PATTERN^F^^1;E1,80^K:$L(X)>80!($L(X)<3)!'(X?.E1""["".E!(X="""")) X"
^DD(44.009,1,3)="ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH"
^DD(44.009,1,21,0)="^^1^1^2920212^"
^DD(44.009,1,21,1,0)="Master pattern set up for clinic for fridays."
^DD(44.009,1,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.009,1,"DT")="2860801"
^DD(44.009,"B","LIMIT DATE",.01)=""
^DD(44.009,"B","MASTER PATTERN",1)=""
^DD(44.009,"GL",0,1,.01)=""
^DD(44.009,"GL",1,"E1,80",1)=""
^DD(44.01,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(44.01,0,"NM","SYNONYM")=""
^DD(44.01,0,"UP")="44"
^DD(44.01,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(44.01,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(44.01,.01,21,0)="^^1^1^2921224^^"
^DD(44.01,.01,21,1,0)="Synonym or shortened name associated with a specific location."
^DD(44.01,"B","SYNONYM",.01)=""
^DD(44.01,"GL",0,1,.01)=""
^DD(44.02,0)="PROHIBITED TERMINAL SUB-FIELD^NL^.01^1"
^DD(44.02,0,"NM","PROHIBITED TERMINAL")=""
^DD(44.02,0,"UP")="44"
^DD(44.02,.01,0)="PROHIBITED TERMINAL^MF^^0;1^K:$L(X)>3!($L(X)<2) X"
^DD(44.02,.01,3)="ANSWER MUST BE 2-3 CHARACTERS IN LENGTH"
^DD(44.02,.01,21,0)="^^1^1^2920212^"
^DD(44.02,.01,21,1,0)="Terminal that cannot be utilized from a specific location."
^DD(44.02,"B","PROHIBITED TERMINAL",.01)=""
^DD(44.02,"GL",0,1,.01)=""
^DD(44.03,0)="SPECIAL INSTRUCTIONS SUB-FIELD^NL^.01^1"
^DD(44.03,0,"NM","SPECIAL INSTRUCTIONS")=""
^DD(44.03,0,"UP")="44"
^DD(44.03,.01,0)="SPECIAL INSTRUCTIONS^F^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(44.03,.01,3)=""
^DD(44.03,.01,21,0)="^^2^2^2920212^"
^DD(44.03,.01,21,1,0)="Special instructions (free text) entered by clerk at time of making"
^DD(44.03,.01,21,2,0)="the appointment."
^DD(44.03,.01,"DT")="2840124"
^DD(44.03,"B","SPECIAL INSTRUCTIONS",.01)=""
^DD(44.03,"GL",0,1,.01)=""
^DD(44.04,0)="PRIVILEGED USER SUB-FIELD^NL^.01^1"
^DD(44.04,0,"NM","PRIVILEGED USER")=""
^DD(44.04,0,"UP")="44"
^DD(44.04,.01,0)="PRIVILEGED USER^MP200'X^VA(200,^0;1^S DINUM=X"
^DD(44.04,.01,21,0)="^^1^1^2920212^"
^DD(44.04,.01,21,1,0)="Privileged users set up to have access to book to clinic."
^DD(44.04,.01,"DT")="2901020"
^DD(44.04,"B","PRIVILEGED USER",.01)=""
^DD(44.04,"GL",0,1,.01)=""
^DD(44.05,0)="CANCEL DATE/TIME BEGIN SUB-FIELD^NL^1^2"
^DD(44.05,0,"NM","CANCEL DATE/TIME BEGIN")=""
^DD(44.05,0,"UP")="44"
^DD(44.05,.01,0)="CANCEL DATE/TIME BEGIN^DX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(44.05,.01,21,0)="^^1^1^2920212^^"
^DD(44.05,.01,21,1,0)="Date/time a clinic started cancellation period."
^DD(44.05,.01,"DT")="2850208"
^DD(44.05,1,0)="CANCEL ENDING TIME^FX^^0;2^K:$L(X)>4!($L(X)<4)!'(X?4N&(X<2000)&(X>600)&(X#100<60)) X"
^DD(44.05,1,3)="ANSWER MUST BE 4 CHARACTERS IN LENGTH"
^DD(44.05,1,21,0)="^^1^1^2920212^"
^DD(44.05,1,21,1,0)="Date/time a clinic ended cancellation period."
^DD(44.05,1,"DT")="2850208"
^DD(44.05,"B","CANCEL DATE/TIME BEGIN",.01)=""
^DD(44.05,"B","CANCEL ENDING TIME",1)=""
^DD(44.05,"GL",0,1,.01)=""
^DD(44.05,"GL",0,2,1)=""
^DD(44.06,0)="SUNDAY TEMPLATE SUB-FIELD^^1^2"
^DD(44.06,0,"NM","SUNDAY TEMPLATE")=""
^DD(44.06,0,"UP")="44"
^DD(44.06,.01,0)="LIMIT DATE^NJ7,0X^^0;1^W:'$D(SDSCHED) *7,!,""No editting of this field allowed through fileman"" K:'$D(SDSCHED) X I $D(X) S %DT=""EX"",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X"
^DD(44.06,.01,1,0)="^.1^^0"
^DD(44.06,.01,3)="ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER"
^DD(44.06,.01,21,0)="^^5^5^2860801^^^^"
^DD(44.06,.01,21,1,0)="The pattern stored at this date is applicable for Sundays from the previous"
^DD(44.06,.01,21,2,0)="entry's date up to but not including this date.  If there is no previous"
^DD(44.06,.01,21,3,0)="entry date, this date is the first Sunday when appointments may be made to"
^DD(44.06,.01,21,4,0)="this clinic.  If the date equals 9999999, this pattern is effective"
^DD(44.06,.01,21,5,0)="indefinitely for Sundays from the previous entry date."
^DD(44.06,.01,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.06,.01,"DT")="2860801"
^DD(44.06,1,0)="MASTER PATTERN^F^^1;E1,80^K:$L(X)>80!($L(X)<3)!'(X?.E1""["".E!(X="""")) X"
^DD(44.06,1,3)="ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH"
^DD(44.06,1,21,0)="^^2^2^2920212^^"
^DD(44.06,1,21,1,0)="Master pattern set up by user on specified date for Sundays.  All patterns"
^DD(44.06,1,21,2,0)="stored."
^DD(44.06,1,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.06,1,"DT")="2860801"
^DD(44.06,"B","LIMIT DATE",.01)=""
^DD(44.06,"B","MASTER PATTERN",1)=""
^DD(44.06,"GL",0,1,.01)=""
^DD(44.06,"GL",1,"E1,80",1)=""
^DD(44.07,0)="MONDAY TEMPLATE SUB-FIELD^^1^2"
^DD(44.07,0,"NM","MONDAY TEMPLATE")=""
^DD(44.07,0,"UP")="44"
^DD(44.07,.01,0)="LIMIT DATE^NJ7,0X^^0;1^W:'$D(SDSCHED) *7,!,""No editting of this field allowed through fileman"" K:'$D(SDSCHED) X I $D(X) S %DT=""EX"",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X"
^DD(44.07,.01,3)="ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER"
^DD(44.07,.01,21,0)="^^5^5^2860801^^^^"
^DD(44.07,.01,21,1,0)="The pattern stored at this date is applicable for Mondays from the previous"
^DD(44.07,.01,21,2,0)="entry's date up to but not including this date.  If there is no previous"
^DD(44.07,.01,21,3,0)="entry date, this date is the first Monday when appointments may be made to"
^DD(44.07,.01,21,4,0)="this clinic.  If the date equals 9999999, this pattern is effective"
^DD(44.07,.01,21,5,0)="indefinitely for Mondays from the previous entry date."
^DD(44.07,.01,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.07,.01,"DT")="2860801"
^DD(44.07,1,0)="MASTER PATTERN^F^^1;E1,80^K:$L(X)>80!($L(X)<3)!'(X?.E1""["".E!(X="""")) X"
^DD(44.07,1,3)="ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH"
^DD(44.07,1,21,0)="^^1^1^2920212^"
^DD(44.07,1,21,1,0)="Master pattern set up by user for clinic for Mondays."
^DD(44.07,1,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.07,1,"DT")="2860801"
^DD(44.07,"B","LIMIT DATE",.01)=""
^DD(44.07,"B","MASTER PATTERN",1)=""
^DD(44.07,"GL",0,1,.01)=""
^DD(44.07,"GL",1,"E1,80",1)=""
^DD(44.08,0)="TUESDAY TEMPLATE SUB-FIELD^^1^2"
^DD(44.08,0,"NM","TUESDAY TEMPLATE")=""
^DD(44.08,0,"UP")="44"
^DD(44.08,.01,0)="LIMIT DATE^NJ7,0X^^0;1^W:'$D(SDSCHED) *7,!,""No editting of this field allowed through fileman"" K:'$D(SDSCHED) X I $D(X) S %DT=""EX"",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X"
^DD(44.08,.01,3)="ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER"
^DD(44.08,.01,21,0)="^^5^5^2860801^^^^"
^DD(44.08,.01,21,1,0)="The pattern stored at this date is applicable for Tuesdays from the previous"
^DD(44.08,.01,21,2,0)="entry's date up to but not including this date.  If there is no previous"
^DD(44.08,.01,21,3,0)="entry date, this date is the first Tuesday when appointments may be made to"
^DD(44.08,.01,21,4,0)="this clinic.  If the date equals 9999999, this pattern is effective"
^DD(44.08,.01,21,5,0)="indefinitely for Tuesdays from the previous entry date."
^DD(44.08,.01,"DT")="2860801"
^DD(44.08,1,0)="MASTER PATTERN^F^^1;E1,80^K:$L(X)>80!($L(X)<3)!'(X?.E1""["".E!(X="""")) X"
^DD(44.08,1,3)="ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH"
^DD(44.08,1,21,0)="^^1^1^2920212^"
^DD(44.08,1,21,1,0)="Master Pattern set up for clinic for Tuesdays."
^DD(44.08,1,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.08,1,"DT")="2860801"
^DD(44.08,"B","LIMIT DATE",.01)=""
^DD(44.08,"B","MASTER PATTERN",1)=""
^DD(44.08,"GL",0,1,.01)=""
^DD(44.08,"GL",1,"E1,80",1)=""
^DD(44.09,0)="WEDNESDAY TEMPLATE SUB-FIELD^^1^2"
^DD(44.09,0,"NM","WEDNESDAY TEMPLATE")=""
^DD(44.09,0,"UP")="44"
^DD(44.09,.01,0)="LIMIT DATE^NJ7,0X^^0;1^W:'$D(SDSCHED) *7,!,""No editting of this field allowed through fileman"" K:'$D(SDSCHED) X I $D(X) S %DT=""EX"",Y=X D:X'=9999999 ^%DT S X=$S(X=9999999:X,1:Y) K:Y<1 X I $D(X) S DINUM=X"
^DD(44.09,.01,3)="ENTER A DATE OR 9999999 TO INDICATE THE PATTERN IS IN EFFECT FOREVER"
^DD(44.09,.01,21,0)="^^5^5^2860801^^^"
^DD(44.09,.01,21,1,0)="The pattern stored at this date is applicable for Wednesdays from the previous"
^DD(44.09,.01,21,2,0)="entry's date up to but not including this date.  If there is no previous"
^DD(44.09,.01,21,3,0)="entry date, this date is the first Wednesday when appointments may be made to"
^DD(44.09,.01,21,4,0)="this clinic.  If the date equals 9999999, this pattern is effective"
^DD(44.09,.01,21,5,0)="indefinitely for Wednesdays from the previous entry date."
^DD(44.09,.01,"DT")="2860801"
^DD(44.09,1,0)="MASTER PATTERN^F^^1;1^K:$L(X)>80!($L(X)<3)!'(X?.E1""["".E!(X="""")) X"
^DD(44.09,1,3)="ANSWER MUST BE 3 TO 80 CHARACTERS IN LENGTH"
^DD(44.09,1,21,0)="^^1^1^2920212^"
^DD(44.09,1,21,1,0)="Master pattern set up for clinic for wednesdays."
^DD(44.09,1,"DEL",1,0)="I '$D(SDSCHED) W !,*7,""You cannot delete this field using fileman!!!"""
^DD(44.09,1,"DT")="2860801"
^DD(44.09,"B","LIMIT DATE",.01)=""
^DD(44.09,"B","MASTER PATTERN",1)=""
^DD(44.09,"GL",0,1,.01)=""
^DD(44.09,"GL",1,1,1)=""
^DD(44.1,0)="PROVIDER SUB-FIELD^^.02^2"
^DD(44.1,0,"DT")="2930129"
^DD(44.1,0,"IX","B",44.1,.01)=""
^DD(44.1,0,"NM","PROVIDER")=""
^DD(44.1,0,"UP")="44"
^DD(44.1,.01,0)="PROVIDER^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $$SCREEN^SDUTL2(Y,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44.1,.01,1,0)="^.1"
^DD(44.1,.01,1,1,0)="44.1^B"
^DD(44.1,.01,1,1,1)="S ^SC(DA(1),""PR"",""B"",$E(X,1,30),DA)="""""
^DD(44.1,.01,1,1,2)="K ^SC(DA(1),""PR"",""B"",$E(X,1,30),DA)"
^DD(44.1,.01,3)=""
^DD(44.1,.01,4)="D HELP^SDUTL2(DT)"
^DD(44.1,.01,12)="Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS."
^DD(44.1,.01,12.1)="S DIC(""S"")=""I $$SCREEN^SDUTL2(Y,DT)"""
^DD(44.1,.01,21,0)="^^4^4^2961029^^^^"
^DD(44.1,.01,21,1,0)="Enter in this field the providers associated with this clinic.  These"
^DD(44.1,.01,21,2,0)="providers will then be displayed when updating the provider through"
^DD(44.1,.01,21,3,0)="Appointment Management or Check Out to assist the user in entering"
^DD(44.1,.01,21,4,0)="the correct provider."
^DD(44.1,.01,"DT")="2961029"
^DD(44.1,.02,0)="DEFAULT PROVIDER^SX^0:NO;1:YES;^0;2^I X,$D(^SC(""ADPR"",DA(1))),'$D(^(DA(1),DA)) W !?5,""A default provider has already been assigned for this clinic."" K X"
^DD(44.1,.02,1,0)="^.1"
^DD(44.1,.02,1,1,0)="44^ADPR^MUMPS"
^DD(44.1,.02,1,1,1)="S:X ^SC(""ADPR"",DA(1),DA)="""""
^DD(44.1,.02,1,1,2)="K ^SC(""ADPR"",DA(1),DA)"
^DD(44.1,.02,1,1,"DT")="2930223"
^DD(44.1,.02,21,0)="^^2^2^2930615^^"
^DD(44.1,.02,21,1,0)="Enter 'YES' in this field if the provider is the default for this"
^DD(44.1,.02,21,2,0)="clinic.  Otherwise, enter 'NO'."
^DD(44.1,.02,"DT")="2930326"
^DD(44.1,"B","DEFAULT PROVIDER",.02)=""
^DD(44.1,"B","PROVIDER",.01)=""
^DD(44.1,"GL",0,1,.01)=""
^DD(44.1,"GL",0,2,.02)=""
^DD(44.1,"IX",.01)=""
^DD(44.1,"IX",.02)=""
^DD(44.101,0)="ASSOCIATED LOCATION TYPES SUB-FIELD^^.01^1"
^DD(44.101,0,"DT")="2941201"
^DD(44.101,0,"IX","B",44.101,.01)=""
^DD(44.101,0,"NM","ASSOCIATED LOCATION TYPES")=""
^DD(44.101,0,"UP")="44"
^DD(44.101,.01,0)="ASSOCIATED LOCATION TYPES^MP40.9'^DIC(40.9,^0;1^Q"
^DD(44.101,.01,1,0)="^.1"
^DD(44.101,.01,1,1,0)="44.101^B"
^DD(44.101,.01,1,1,1)="S ^SC(DA(1),""LOC"",""B"",$E(X,1,30),DA)="""""
^DD(44.101,.01,1,1,2)="K ^SC(DA(1),""LOC"",""B"",$E(X,1,30),DA)"
^DD(44.101,.01,"DT")="2941201"
^DD(44.101,"B","ASSOCIATED LOCATION TYPES",.01)=""
^DD(44.101,"GL",0,1,.01)=""
^DD(44.101,"IX",.01)=""
^DD(44.11,0)="DIAGNOSIS SUB-FIELD^^.02^2"
^DD(44.11,0,"DT")="2930223"
^DD(44.11,0,"IX","B",44.11,.01)=""
^DD(44.11,0,"NM","DIAGNOSIS")=""
^DD(44.11,0,"UP")="44"
^DD(44.11,.01,0)="DIAGNOSIS^M*P80'^ICD9(^0;1^S DIC(""S"")=""I '$P(^(0),U,9)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44.11,.01,1,0)="^.1"
^DD(44.11,.01,1,1,0)="44.11^B"
^DD(44.11,.01,1,1,1)="S ^SC(DA(1),""DX"",""B"",$E(X,1,30),DA)="""""
^DD(44.11,.01,1,1,2)="K ^SC(DA(1),""DX"",""B"",$E(X,1,30),DA)"
^DD(44.11,.01,12)="Diagnosis must be active."
^DD(44.11,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,9)"""
^DD(44.11,.01,21,0)="^^4^4^2930615^^^"
^DD(44.11,.01,21,1,0)="Enter in this field the diagnoses associated with this clinic.  These"
^DD(44.11,.01,21,2,0)="diagnoses will then be displayed when updating the diagnosis through"
^DD(44.11,.01,21,3,0)="Appointment Management or Check Out to assist the user in entering"
^DD(44.11,.01,21,4,0)="the correct diagnosis."
^DD(44.11,.01,"DT")="2930129"
^DD(44.11,.02,0)="DEFAULT DIAGNOSIS^SX^0:NO;1:YES;^0;2^I X,$D(^SC(""ADDX"",DA(1))),'$D(^(DA(1),DA)) W !?5,""A default diagnosis has already been assigned for this clinic."" K X"
^DD(44.11,.02,1,0)="^.1"
^DD(44.11,.02,1,1,0)="44^ADDX^MUMPS"
^DD(44.11,.02,1,1,1)="S:X ^SC(""ADDX"",DA(1),DA)="""""
^DD(44.11,.02,1,1,2)="K ^SC(""ADDX"",DA(1),DA)"
^DD(44.11,.02,1,1,"DT")="2930223"
^DD(44.11,.02,21,0)="^^2^2^2930615^^^^"
^DD(44.11,.02,21,1,0)="Enter 'YES' in this field if the diagnosis is the default for this"
^DD(44.11,.02,21,2,0)="clinic.  Otherwise, enter 'NO'."
^DD(44.11,.02,"DT")="2930326"
^DD(44.11,"B","DEFAULT DIAGNOSIS",.02)=""
^DD(44.11,"B","DIAGNOSIS",.01)=""
^DD(44.11,"GL",0,1,.01)=""
^DD(44.11,"GL",0,2,.02)=""
^DD(44.11,"IX",.01)=""
^DD(44.11,"IX",.02)=""
^DD(44.3,0)="FIELD^^1^2"
^DD(44.3,0,"DDA")="N"
^DD(44.3,0,"DT")="3020325"
^DD(44.3,0,"IX","B",44.3,.01)=""
^DD(44.3,0,"NM","SDAM DATA MAP")=""
^DD(44.3,0,"VR")="5.3"
^DD(44.3,0,"VRPK")="SD"
^DD(44.3,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(44.3,.01,1,0)="^.1"
^DD(44.3,.01,1,1,0)="44.3^B"
^DD(44.3,.01,1,1,1)="S ^SDAM(44.3,""B"",$E(X,1,30),DA)="""""
^DD(44.3,.01,1,1,2)="K ^SDAM(44.3,""B"",$E(X,1,30),DA)"
^DD(44.3,.01,3)="Answer must be 3-50 characters in length."
^DD(44.3,.01,21,0)="^^1^1^3020405^"
^DD(44.3,.01,21,1,0)="The field is the formal name of the mapped item."
^DD(44.3,.01,"DT")="3020325"
^DD(44.3,1,0)="VISTA CODE^RK^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(44.3,1,3)="This is Standard MUMPS code."
^DD(44.3,1,9)="@"
^DD(44.3,1,21,0)="^.001^1^1^3020405^^^"
^DD(44.3,1,21,1,0)="This is the executable 'M' code that retrieves the data."
^DD(44.3,1,"DT")="3020325"
^DD(44.3,"B","NAME",.01)=""
^DD(44.3,"B","VISTA CODE",1)=""
^DD(44.3,"GL",0,1,.01)=""
^DD(44.3,"GL",1,"E1,245",1)=""
^DD(44.3,"IX",.01)=""
^DD(44.3,"RQ",.01)=""
^DD(44.3,"RQ",1)=""
^DD(44.40457,0)="TEAM POSITIONS SUB-FIELD^^.02^2"
^DD(44.40457,0,"DT")="2960329"
^DD(44.40457,0,"IX","B",44.40457,.01)=""
^DD(44.40457,0,"NM","TEAM POSITIONS")=""
^DD(44.40457,0,"UP")="44"
^DD(44.40457,.01,0)="TEAM POSITIONS^*P404.57'^SCTM(404.57,^0;1^S DIC(""S"")=""I $P($G(^(0)),U,9)=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44.40457,.01,1,0)="^.1"
^DD(44.40457,.01,1,1,0)="44.40457^B"
^DD(44.40457,.01,1,1,1)="S ^SC(DA(1),""PCMM"",""B"",$E(X,1,30),DA)="""""
^DD(44.40457,.01,1,1,2)="K ^SC(DA(1),""PCMM"",""B"",$E(X,1,30),DA)"
^DD(44.40457,.01,3)="This should not be edited via FileMan"
^DD(44.40457,.01,12)="ASDF"
^DD(44.40457,.01,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,9)=DA"""
^DD(44.40457,.01,21,0)="^^2^2^2960329^^^^"
^DD(44.40457,.01,21,1,0)="This is populated via a trigger on the ASSOCIATED CLINIC (#.09) Field"
^DD(44.40457,.01,21,2,0)="of the TEAM POSITION (#404.57) File."
^DD(44.40457,.01,"DT")="2960329"
^DD(44.40457,.02,0)="TEAM^*P404.51'^SCTM(404.51,^0;2^S DIC(""S"")=""I $P($G(^SCTM(404.57,+$G(^SC(+$G(DA(1)),""""PCMM"""",+$G(DA),0)),0)),U,2)=Y"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(44.40457,.02,1,0)="^.1"
^DD(44.40457,.02,1,1,0)="44^D"
^DD(44.40457,.02,1,1,1)="S ^SC(""D"",$E(X,1,30),DA(1),DA)="""""
^DD(44.40457,.02,1,1,2)="K ^SC(""D"",$E(X,1,30),DA(1),DA)"
^DD(44.40457,.02,1,1,"DT")="2960329"
^DD(44.40457,.02,3)="ASDF"
^DD(44.40457,.02,12)="ASDF"
^DD(44.40457,.02,12.1)="S DIC(""S"")=""I $P($G(^SCTM(404.57,+$G(^SC(+$G(DA(1)),""""PCMM"""",+$G(DA),0)),0)),U,2)=Y"""
^DD(44.40457,.02,23,0)="^^1^1^2960329^^"
^DD(44.40457,.02,23,1,0)=" "
^DD(44.40457,.02,"DT")="2960329"
^DD(44.40457,"B","TEAM",.02)=""
^DD(44.40457,"B","TEAM POSITIONS",.01)=""
^DD(44.40457,"GL",0,1,.01)=""
^DD(44.40457,"GL",0,2,.02)=""
^DD(44.40457,"IX",.01)=""
^DD(44.40457,"IX",.02)=""
^DD(45,0)="FIELD^^535^84"
^DD(45,0,"DDA")="N"
^DD(45,0,"DIK")="DGPTXX"
^DD(45,0,"DIKOLD")="DGPTXX"
^DD(45,0,"DT")="2950802"
^DD(45,0,"ID",2)="W """""
^DD(45,0,"ID","WR")="D WR^DGPTF"
^DD(45,0,"IX","AAD",45,2)=""
^DD(45,0,"IX","AADA",45,2)=""
^DD(45,0,"IX","AADA1",45,70)=""
^DD(45,0,"IX","AC",45,70)=""
^DD(45,0,"IX","ACENSUS",45,12)=""
^DD(45,0,"IX","AD",45,71)=""
^DD(45,0,"IX","ADGRU7818",45,79.18)=""
^DD(45,0,"IX","ADGRU79",45,79)=""
^DD(45,0,"IX","ADGRU7916",45,79.16)=""
^DD(45,0,"IX","ADGRU7917",45,79.17)=""
^DD(45,0,"IX","ADGRU7919",45,79.19)=""
^DD(45,0,"IX","ADGRU79201",45,79.201)=""
^DD(45,0,"IX","ADGRU7921",45,79.21)=""
^DD(45,0,"IX","ADGRU7922",45,79.22)=""
^DD(45,0,"IX","ADGRU7923",45,79.23)=""
^DD(45,0,"IX","ADGRU7924",45,79.24)=""
^DD(45,0,"IX","ADGRU79241",45,79.241)=""
^DD(45,0,"IX","ADGRU79242",45,79.242)=""
^DD(45,0,"IX","ADGRU79243",45,79.243)=""
^DD(45,0,"IX","ADGRU79244",45,79.244)=""
^DD(45,0,"IX","ADGRU80",45,80)=""
^DD(45,0,"IX","ADS",45,70)=""
^DD(45,0,"IX","AE",45,23)=""
^DD(45,0,"IX","AF",45,2)=""
^DD(45,0,"IX","AFEE",45,4)=""
^DD(45,0,"IX","AFEE1",45,2)=""
^DD(45,0,"IX","AMT",45,10)=""
^DD(45,0,"IX","AP",45,45.01)=""
^DD(45,0,"IX","AP",45,45.02)=""
^DD(45,0,"IX","AP",45,45.03)=""
^DD(45,0,"IX","AP",45,45.04)=""
^DD(45,0,"IX","AP",45,45.05)=""
^DD(45,0,"IX","AS",45,6)=""
^DD(45,0,"IX","B",45,.01)=""
^DD(45,0,"NM","PTF")=""
^DD(45,0,"PT",45,12)=""
^DD(45,0,"PT",45.831,.01)=""
^DD(45,0,"PT",45.84,.01)=""
^DD(45,0,"PT",45.85,.12)=""
^DD(45,0,"PT",46,.16)=""
^DD(45,0,"PT",46.1,1)=""
^DD(45,0,"PT",69.514,.01)=""
^DD(45,0,"PT",351.61,1.07)=""
^DD(45,0,"PT",399,.08)=""
^DD(45,0,"PT",405,.16)=""
^DD(45,0,"VR")="5.3"
^DD(45,.001,0)="NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999"
^DD(45,.001,21,0)="^^1^1^2920212^^"
^DD(45,.001,21,1,0)="This field contains the IFN of the PTF record."
^DD(45,.001,"DT")="2850115"
^DD(45,.01,0)="PATIENT^RP2'XI^DPT(^0;1^S DGNEWP=X"
^DD(45,.01,1,0)="^.1^^-1"
^DD(45,.01,1,1,0)="45^B"
^DD(45,.01,1,1,1)="S ^DGPT(""B"",$E(X,1,30),DA)="""""
^DD(45,.01,1,1,2)="K ^DGPT(""B"",$E(X,1,30),DA)"
^DD(45,.01,3)="Enter the patient to enter PTF data for."
^DD(45,.01,21,0)="^^2^2^2940307^"
^DD(45,.01,21,1,0)="This field contains a pointer to the patient file (#2). This is the"
^DD(45,.01,21,2,0)="patient that the PTF data has been entered for."
^DD(45,.01,"DEL",1,0)="I $D(^DGP(45.84,DA)) W *7,!,""CANNOT DELETE - CLOSED OUT"""
^DD(45,.01,"DT")="2901001"
^DD(45,2,0)="ADMISSION DATE^RDX^^0;2^S %DT=""ETXP"" D ^%DT S X=Y K:Y<1 X I $D(X) D ADM^DGPTF K %"
^DD(45,2,1,0)="^.1"
^DD(45,2,1,1,0)="45^AAD^MUMPS"
^DD(45,2,1,1,1)="S L=+^DGPT(DA,0) I L>0 S ^DGPT(""AAD"",L,X,DA)="""""
^DD(45,2,1,1,2)="S L=+^DGPT(DA,0) I L>0 K ^DGPT(""AAD"",L,X,DA)"
^DD(45,2,1,2,0)="45^AF"
^DD(45,2,1,2,1)="S ^DGPT(""AF"",$E(X,1,30),DA)="""""
^DD(45,2,1,2,2)="K ^DGPT(""AF"",$E(X,1,30),DA)"
^DD(45,2,1,3,0)="45^AADA^MUMPS"
^DD(45,2,1,3,1)="S L=$S($D(^DGPT(DA,70)):+^(70),1:0) I L'?7N.E S ^DGPT(""AADA"",X,DA)="""""
^DD(45,2,1,3,2)="K ^DGPT(""AADA"",X,DA)"
^DD(45,2,1,4,0)="45^AFEE1^MUMPS"
^DD(45,2,1,4,1)="I $P(^DGPT(DA,0),U,4),$P(^(0),U) S ^DGPT(""AFEE"",$P(^DGPT(DA,0),U),$E(X,1,30),DA)="""""
^DD(45,2,1,4,2)="I $P(^DGPT(DA,0),U,4),$P(^(0),U) K ^DGPT(""AFEE"",$P(^DGPT(DA,0),U),$E(X,1,30),DA)"
^DD(45,2,3)="Enter the Admission Date. If this is not fee basis admission must match patient Admission Date."
^DD(45,2,4)="Q"
^DD(45,2,21,0)="^^1^1^2920212^^"
^DD(45,2,21,1,0)="This is the date of admission described by the PTF record."
^DD(45,2,"DT")="2980203"
^DD(45,2.1,0)="INTERNAL ADMISSION #^CJ9,0^^ ; ^S X=$O(^DGPM(""APTF"",D0,0))"
^DD(45,2.1,9)="^"
^DD(45,2.1,9.01)=""
^DD(45,2.1,9.1)="S X=$O(^DGPM(""APTF"",D0,0))"
^DD(45,2.1,21,0)="^^1^1^2920212^"
^DD(45,2.1,21,1,0)="IFN assigned to the admission date/time for this particular record."
^DD(45,2.1,"DT")="2900302"
^DD(45,2.2,0)="WARD AT DISCHARGE^CJ30^^ ; ^D PTF^DGPMUTL(D0)"
^DD(45,2.2,9)="^"
^DD(45,2.2,9.01)=""
^DD(45,2.2,9.1)="D PTF^DGPMUTL(D0)"
^DD(45,2.2,9.2)="X $P(^DD(45,2.1,0),U,5,99) S Y(45,2.2,1)=X S X=Y(45,2.2,1)"
^DD(45,2.2,21,0)="^^1^1^2920212^^"
^DD(45,2.2,21,1,0)="This field contains the ward at the time of discharge."
^DD(45,2.2,"DT")="2910521"
^DD(45,3,0)="FACILITY^RNJ3,0X^^0;3^S DIC=""^DIC(4,"",DIC(0)=""M"" D ^DIC S X=$S($D(^DIC(4,+Y,99)):+^(99),1:"""") K:Y'>0 X"
^DD(45,3,3)="ENTER FACILITY NUMBER"
^DD(45,3,4)="S DIC(0)=""M"",DIC=""^DIC(4,"" D ^DIC"
^DD(45,3,21,0)="^^1^1^2920212^"
^DD(45,3,21,1,0)="Facility from which this veteran was discharged."
^DD(45,3,"DT")="2890426"
^DD(45,4,0)="FEE BASIS^S^1:FEE BASIS;^0;4^Q"
^DD(45,4,1,0)="^.1"
^DD(45,4,1,1,0)="45^AFEE^MUMPS"
^DD(45,4,1,1,1)="I $P(^DGPT(DA,0),U),$P(^(0),U,2) S ^DGPT(""AFEE"",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)="""""
^DD(45,4,1,1,2)="I $P(^DGPT(DA,0),U),$P(^(0),U,2) K ^DGPT(""AFEE"",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)"
^DD(45,4,3)="Enter 'F' if this is a fee basis entry."
^DD(45,4,21,0)="^^2^2^2920212^^"
^DD(45,4,21,1,0)="This field indicated if the PTF record is a FEE basis record. A '1' in this"
^DD(45,4,21,2,0)="field indicates a FEE basis record."
^DD(45,4,"DT")="2900104"
^DD(45,5,0)="SUFFIX^FX^^0;5^D UP^DGHELP S DIC=""^DIC(45.81,"",DIC(0)=""EFC"",D=""D1"" D IX^DIC S DIC=$S($D(DIE):DIE,1:DIC) I Y'>0!(X="" "")!('$$ACTIVE^DGPTDD($G(X),+Y,+$G(PTF))) K X"
^DD(45,5,.1)=" "
^DD(45,5,1,0)="^.1"
^DD(45,5,1,1,0)="^^TRIGGER^45^20"
^DD(45,5,1,1,1)="Q"
^DD(45,5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,101)):^(101),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DGPT(DIV(0),101)):^(101),1:""""),DIV=X S $P(^(101),U,1)=DIV,DIH=45,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(45,5,1,1,"CREATE VALUE")="NO EFFECT"
^DD(45,5,1,1,"DELETE VALUE")="@"
^DD(45,5,1,1,"FIELD")="SOURCE OF ADMISSION"
^DD(45,5,3)="Enter the active suffix of this medical center if not included in the facility number."
^DD(45,5,4)="D ACTLST^DGPTDD(+$G(PTF))"
^DD(45,5,21,0)="^^2^2^2950718^^^^"
^DD(45,5,21,1,0)="This field contains the suffix of the medical center if not indicated in"
^DD(45,5,21,2,0)="the facility number."
^DD(45,5,"DT")="2950718"
^DD(45,6,0)="STATUS^S^0:Open;1:Closed;2:Released;3:Transmitted;^0;6^Q"
^DD(45,6,1,0)="^.1"
^DD(45,6,1,1,0)="45^AS"
^DD(45,6,1,1,1)="S ^DGPT(""AS"",$E(X,1,30),DA)="""""
^DD(45,6,1,1,2)="K ^DGPT(""AS"",$E(X,1,30),DA)"
^DD(45,6,3)="Enter the current status of this patient's record."
^DD(45,6,5,1,0)="45.831^.01^2"
^DD(45,6,5,2,0)="45.84^.01^2"
^DD(45,6,21,0)="^^1^1^2920212^^"
^DD(45,6,21,1,0)="This field indicates the current status of the PTF record."
^DD(45,6,"DT")="2850510"
^DD(45,7,0)="CLOSED OUT BY^P200'^VA(200,^0;7^Q"
^DD(45,7,3)="Enter the person who closed out this PTF record."
^DD(45,7,21,0)="^^2^2^2920212^^"
^DD(45,7,21,1,0)="This field contains a pointer to the New Person File. The field indicates"
^DD(45,7,21,2,0)="who closed out the PTF record."
^DD(45,7,"DT")="2900310"
^DD(45,7.1,0)="CLOSE OUT FILE^P45.84'^DGP(45.84,^0;9^Q"
^DD(45,7.1,9)="^"
^DD(45,7.1,21,0)="^^1^1^2920212^"
^DD(45,7.1,21,1,0)="File reference containing all PTF records that have been closed out."
^DD(45,7.1,"DT")="2850208"
^DD(45,7.2,0)="CLOSE OUT DATE^DC^^ ; ^X ^DD(45,7.2,9.2) S X=$P(Y(45,7.2,101),U,2) S D0=Y(45,7.2,2)"
^DD(45,7.2,9)="^"
^DD(45,7.2,9.01)="45.84^2;45^7.1"
^DD(45,7.2,9.1)="CLOSE OUT FILE:CLOSE OUT DATE"
^DD(45,7.2,9.2)="S Y(45,7.2,2)=$S($D(D0):D0,1:""""),Y(45,7.2,1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(Y(45,7.2,1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S Y(45,7.2,101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DD(45,7.2,21,0)="^^1^1^2920212^^"
^DD(45,7.2,21,1,0)="This field contains the date the PTF record was closed out."
^DD(45,7.3,0)="RELEASE DATE^DC^^ ; ^X ^DD(45,7.3,9.2) S X=$P(Y(45,7.3,101),U,4) S D0=Y(45,7.3,2)"
^DD(45,7.3,9)="^"
^DD(45,7.3,9.01)="45.84^4;45^7.1"
^DD(45,7.3,9.1)="CLOSE OUT FILE:RELEASE DATE"
^DD(45,7.3,9.2)="S Y(45,7.3,2)=$S($D(D0):D0,1:""""),Y(45,7.3,1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(Y(45,7.3,1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S Y(45,7.3,101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"""")"
^DD(45,7.3,21,0)="^^1^1^2981203^^^"
^DD(45,7.3,21,1,0)="This field contains the date the PTF record was released."
^DD(45,7.4,0)="TRANSMISSION DATE^DCJ8,0X^^ ; ^S X=$S($D(^DGP(45.83,""C"",D0)):$O(^DGP(45.83,""C"",D0,0)),1:""""),X=$S($D(^DGP(45.83,+X,""P"",D0,0)):$P(^(0),U,2),1:"""")"
^DD(45,7.4,9)="^"
^DD(45,7.4,9.01)=""
^DD(45,7.4,9.1)="S X=$S($D(^DGP(45.83,""C"",D0)):$O(^DGP(45.83,""C"",D0,0)),1:""""),X=$S($D(^DGP(45.83,+X,""P"",D0,0)):$P(^(0),U,2),1:"""")"
^DD(45,7.4,21,0)="^^1^1^2920212^^"
^DD(45,7.4,21,1,0)="This field contains the date the PTF record was transmitted."
^DD(45,7.4,"DT")="3060519"
^DD(45,8,0)="FIRST CLOSED OUT AT^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(45,8,3)="Enter the date PTF record was first closed."
^DD(45,8,21,0)="^^1^1^2920212^^"
^DD(45,8,21,1,0)="This field contains the date the PTF record was first closed out."
^DD(45,8,"DT")="2841119"
^DD(45,9,0)="DRG^CJ8X^^ ; ^Q:'$D(^DGPT(D0,0))  S %PTF=1,DRG=$S($D(^DGP(45.84,D0,0)):$P(^(0),U,6),1:""""),(ICDCAL,DGCPT)="""",DFN=+^DGPT(D0,0),PTF=D0,ZTA=D0 D EN1^DGPTFD:'DRG S X=DRG,DRGCAL=$S($D(^ICD(+X,0)):^(0),1:"""") K ZTA,DZ,DGCPT"
^DD(45,9,9)="^"
^DD(45,9,9.01)=""
^DD(45,9,9.1)="S DZ=$S($D(DA):DA,$D(D0):D0,1:"""") Q:DZ=""""  S %PTF=1,DRG="""",ICDCAL="""",DFN=+^DGPT(DZ,0),PTF=D0,ZTA=D0 D EN1^DGPTFD S DA=ZTA,X=DRG K ZTA,DZ"
^DD(45,9,21,0)="^^2^2^2920212^^"
^DD(45,9,21,1,0)="This field contains the DGR for the espisode of care described by the "
^DD(45,9,21,2,0)="PTF record."
^DD(45,9,"DT")="2890721"
^DD(45,10,0)="MEANS TEST INDICATOR^RS^AS:SERVICE CONNECTED;AN:NSC MT COPAY EXEMPT;B:CAT B;C:MT COPAY REQUIRED;N:NON VET;X:NOT APPLICABLE;U:NOT DONE/COMPLETED;G:GMT COPAY REQUIRED;^0;10^Q"
^DD(45,10,1,0)="^.1"
^DD(45,10,1,1,0)="45^AMT"
^DD(45,10,1,1,1)="S ^DGPT(""AMT"",$E(X,1,30),DA)="""""
^DD(45,10,1,1,2)="K ^DGPT(""AMT"",$E(X,1,30),DA)"
^DD(45,10,3)="Enter Means Test indicator"
^DD(45,10,21,0)="^.001^1^1^3020812^^^^"
^DD(45,10,21,1,0)="This field contains the Means Test Indicator."
^DD(45,10,"DT")="3020812"
^DD(45,11,0)="TYPE OF RECORD^RS^1:PTF;2:CENSUS;^0;11^Q"
^DD(45,11,5,1,0)="45^13^1"
^DD(45,11,21,0)="^^8^8^2900824^^"
^DD(45,11,21,1,0)="This field indicates what type of record this is represents. As of"
^DD(45,11,21,2,0)="8/90 there are only two types, PTF and census."
^DD(45,11,21,3,0)=" "
^DD(45,11,21,4,0)="It is important to note that before MAS v4.7 this field did not"
^DD(45,11,21,5,0)="exist and all records were PTF records.  If sites have developed"
^DD(45,11,21,6,0)="reports, they will need to screen on this field for the PTF"
^DD(45,11,21,7,0)="record.  (A PTF record has an internal value of 1 and a census"
^DD(45,11,21,8,0)="record has a value of 2.)"
^DD(45,11,"DT")="2900418"
^DD(45,12,0)="CORRESPONDING PTF RECORD^*P45'^DGPT(^0;12^S DIC(""S"")=""I $P(^(0),U,11)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,12,1,0)="^.1"
^DD(45,12,1,1,0)="45^ACENSUS"
^DD(45,12,1,1,1)="S ^DGPT(""ACENSUS"",$E(X,1,30),DA)="""""
^DD(45,12,1,1,2)="K ^DGPT(""ACENSUS"",$E(X,1,30),DA)"
^DD(45,12,12)="Allows only PTF record."
^DD(45,12,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=1"""
^DD(45,12,21,0)="^^5^5^2900823^^"
^DD(45,12,21,1,0)="This field is only filled in for census type of records.  It points"
^DD(45,12,21,2,0)="to the PTF record that was used to create the census record."
^DD(45,12,21,3,0)=" "
^DD(45,12,21,4,0)="A census record is an extract of information from the parent PTF"
^DD(45,12,21,5,0)="record for activities that occurred during the census time period."
^DD(45,12,"DT")="2900411"
^DD(45,13,0)="CENSUS DATE^P45.86'^DG(45.86,^0;13^Q"
^DD(45,13,1,0)="^.1"
^DD(45,13,1,1,0)="^^TRIGGER^45^11"
^DD(45,13,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=2 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR"
^DD(45,13,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR"
^DD(45,13,1,1,"CREATE VALUE")="S X=2"
^DD(45,13,1,1,"DELETE VALUE")="S X=1"
^DD(45,13,1,1,"FIELD")="TYPE OF RECORD"
^DD(45,13,3)=""
^DD(45,13,21,0)="^^2^2^2900823^"
^DD(45,13,21,1,0)="This field is only filled in for census records and it points back to"
^DD(45,13,21,2,0)="a PTF CENSUS DATE file entry."
^DD(45,13,"DT")="2900418"
^DD(45,20,0)="SOURCE OF ADMISSION^*P45.1'^DIC(45.1,^101;1^S DIC(""S"")=""S DGER=0 D SA^DGPTFJ K DGSU0,DGSU1 I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,20,3)="Enter the source of admission from the available entries."
^DD(45,20,5,1,0)="45^5^1"
^DD(45,20,12)="Note: 3E only valid with active Psych Med Center suffix, 4E only valid with active VA Domiciliary suffix, 5D only valid with active VA Nursing Home suffix. (4E and 5D require Transferring Suffix entry also)"
^DD(45,20,12.1)="S DIC(""S"")=""S DGER=0 D SA^DGPTFJ K DGSU0,DGSU1 I 'DGER"""
^DD(45,20,21,0)="^^3^3^2950718^^^"
^DD(45,20,21,1,0)="This field contains the source of admission of the veteran, or"
^DD(45,20,21,2,0)="where he was admitted to the hospital from, i.e. community, other"
^DD(45,20,21,3,0)="facility, etc."
^DD(45,20,"DT")="2900328"
^DD(45,20.1,0)="ADMITTING ELIGIBILITY^P8'^DIC(8,^101;8^Q"
^DD(45,20.1,3)="Please enter the Admitting Eligibility."
^DD(45,20.1,21,0)="^^2^2^2970131^^"
^DD(45,20.1,21,1,0)="This field contains the Admitting Eligibility associated with this inpatient"
^DD(45,20.1,21,2,0)="stay."
^DD(45,20.1,"DT")="2970131"
^DD(45,21,0)="*TRANSFERING FACILITY^P45.2'^DGTF(^101;2^Q"
^DD(45,21,3)="Enter the from which this patient was transfered."
^DD(45,21,21,0)="^^1^1^2850322^"
^DD(45,21,21,1,0)="Old version no longer used"
^DD(45,21,"DT")="2840226"
^DD(45,21.1,0)="TRANSFERRING FACILITY^NJ3,0X^^101;5^S DIC=""^DIC(4,"",DIC(0)=""ME"" D ^DIC S X=$S($D(^DIC(4,+Y,99)):$E(^(99),1,3),1:"""") K:Y'>0 X"
^DD(45,21.1,3)="ENTER FACILITY NUMBER"
^DD(45,21.1,4)="S DIC(0)=""ME"",DIC=""^DIC(4,"" D ^DIC"
^DD(45,21.1,21,0)="^^2^2^3000121^^"
^DD(45,21.1,21,1,0)="Facility number of the facility that the veteran was transferred to"
^DD(45,21.1,21,2,0)="the hospital from."
^DD(45,21.1,"DT")="3000121"
^DD(45,21.2,0)="TRANSFERRING SUFFIX^FX^^101;6^D UP^DGHELP S DIC(0)=""ECF"",DIC=""^DIC(45.81,"",D=""D1"" D IX^DIC S DIC=$S($D(DIE):DIE,1:DIC) I +Y'>0!(X="" "") K X"
^DD(45,21.2,3)="Enter the suffix (if applicable) assigned to the facility the patient was transferred from."
^DD(45,21.2,4)="S DIZ=$Y+10,DIC=""^DIC(45.81,"",DIC(0)=""E"",D=""D1"",X=""??"" D IX^DIC S DIC=DIE"
^DD(45,21.2,21,0)="^^2^2^2950620^^"
^DD(45,21.2,21,1,0)="The suffix assigned to the facility (if applicable) the veteran was"
^DD(45,21.2,21,2,0)="transferred to the hospital from, i.e. 9AA = Nursing Home."
^DD(45,21.2,"DT")="2950607"
^DD(45,22,0)="SOURCE OF PAYMENT^S^1:CONTRACT-PUBLIC&PRIV;2:SHARING;3:CONTRACT-MILT&FED AGENCY;4:PAID UNAUTH;^101;3^Q"
^DD(45,22,3)="Enter the source of payment for this patient for non-VA hospitals only."
^DD(45,22,21,0)="^^2^2^2920212^^"
^DD(45,22,21,1,0)="The field contains the source of payment for this patient for Non-VA"
^DD(45,22,21,2,0)="hospitals only."
^DD(45,22,"DT")="2840222"
^DD(45,23,0)="CATEGORY OF BENEFICIARY^P45.82'X^DIC(45.82,^101;4^D CAT1^DGINP"
^DD(45,23,1,0)="^.1"
^DD(45,23,1,1,0)="45^AE^MUMPS"
^DD(45,23,1,1,1)="S %=+^DGPT(DA,0) I %>0 S %C=$S($D(^DPT(%,.3)):^(.3),1:"""")_""^^^^^^^^^^"",^(.3)=$P(%C,U,1,9)_U_X_U_$P(%C,U,11,99),^DPT(""ACB"",X,%)="""" K ^DPT(""ACB"",+$P(%C,U,10),%),%,%C"
^DD(45,23,1,1,2)="S %=+^DGPT(DA,0) I $D(^DPT(%,.3)) S %C=$P(^(.3),U,10) I %C S ^(.3)=$P(^(.3),U,1,9)_U_U_$P(^(.3),U,11,99) K ^DPT(""ACB"",%C,%),%,%C"
^DD(45,23,3)="Enter the category of beneficiary of this patient."
^DD(45,23,21,0)="^^3^3^2910603^^^"
^DD(45,23,21,1,0)="Category of beneficiary. This field through cross reference sets"
^DD(45,23,21,2,0)="Category of beneficiary field in patient file which is used for"
^DD(45,23,21,3,0)="Amis 358"
^DD(45,23,"DT")="2910503"
^DD(45,30,0)="CPT RECORD DATE/TIME^45.06D^^C;0"
^DD(45,30,"DT")="3041124"
^DD(45,40,0)="401^45.01D^^S;0"
^DD(45,40,21,0)="^^2^2^2920212^"
^DD(45,40,21,1,0)="Multiple containing information on the PTF 401 screen relating to"
^DD(45,40,21,2,0)="surgical procedures and operations."
^DD(45,45.01,0)="PROCEDURE 1^*P80.1'X^ICD0(^401P;1^K K S DIC(""S"")=""S DGI=1 D EN2^DGPTFJC I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,45.01,1,0)="^.1"
^DD(45,45.01,1,1,0)="45^AP^MUMPS"
^DD(45,45.01,1,1,1)="S ^DGPT(DA,""AP"",X)="""""
^DD(45,45.01,1,1,2)="K ^DGPT(DA,""AP"",X)"
^DD(45,45.01,3)="Enter the first procedure for this episode of care."
^DD(45,45.01,12)="NOT INACTIVE CODES"
^DD(45,45.01,12.1)="S DIC(""S"")=""S DGI=1 D EN2^DGPTFJC I 'DGER"""
^DD(45,45.01,21,0)="^^2^2^2920212^"
^DD(45,45.01,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45,45.01,21,2,0)="indicating a procedure performed during this episode of care."
^DD(45,45.01,"DT")="2860709"
^DD(45,45.02,0)="PROCEDURE 2^*P80.1'X^ICD0(^401P;2^K K S DIC(""S"")=""S DGI=2 D EN2^DGPTFJC I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,45.02,1,0)="^.1"
^DD(45,45.02,1,1,0)="45^AP^MUMPS"
^DD(45,45.02,1,1,1)="S ^DGPT(DA,""AP"",X)="""""
^DD(45,45.02,1,1,2)="K ^DGPT(DA,""AP"",X)"
^DD(45,45.02,3)="Enter the 2nd procedure for this patient's current episode of care."
^DD(45,45.02,12)="Not inactive code."
^DD(45,45.02,12.1)="S DIC(""S"")=""S DGI=2 D EN2^DGPTFJC I 'DGER"""
^DD(45,45.02,21,0)="^^3^3^2920212^"
^DD(45,45.02,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45,45.02,21,2,0)="indicating an operation or procedure performed during this episode of"
^DD(45,45.02,21,3,0)="care."
^DD(45,45.02,"DT")="2860709"
^DD(45,45.03,0)="PROCEDURE 3^*P80.1'X^ICD0(^401P;3^K K S DIC(""S"")=""S DGI=3 D EN2^DGPTFJC I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,45.03,1,0)="^.1"
^DD(45,45.03,1,1,0)="45^AP^MUMPS"
^DD(45,45.03,1,1,1)="S ^DGPT(DA,""AP"",X)="""""
^DD(45,45.03,1,1,2)="K ^DGPT(DA,""AP"",X)"
^DD(45,45.03,3)="Enter the 3rd procedure performed on this patient during this episode of care."
^DD(45,45.03,12)="Not inactive codes"
^DD(45,45.03,12.1)="S DIC(""S"")=""S DGI=3 D EN2^DGPTFJC I 'DGER"""
^DD(45,45.03,21,0)="^^2^2^2920212^"
^DD(45,45.03,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45,45.03,21,2,0)="indicating a procedure performed during this episode of care."
^DD(45,45.03,"DT")="2860709"
^DD(45,45.04,0)="PROCEDURE 4^*P80.1'X^ICD0(^401P;4^K K S DIC(""S"")=""S DGI=4 D EN2^DGPTFJC I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,45.04,1,0)="^.1"
^DD(45,45.04,1,1,0)="45^AP^MUMPS"
^DD(45,45.04,1,1,1)="S ^DGPT(DA,""AP"",X)="""""
^DD(45,45.04,1,1,2)="K ^DGPT(DA,""AP"",X)"
^DD(45,45.04,3)="Enter the 4th procedure that was performed on the patient during his current episode of care."
^DD(45,45.04,12)="Not inactive codes"
^DD(45,45.04,12.1)="S DIC(""S"")=""S DGI=4 D EN2^DGPTFJC I 'DGER"""
^DD(45,45.04,21,0)="^^2^2^2920212^"
^DD(45,45.04,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45,45.04,21,2,0)="indicating a procedure performed during this episode of care."
^DD(45,45.04,"DT")="2860709"
^DD(45,45.05,0)="PROCEDURE 5^*P80.1'X^ICD0(^401P;5^K K S DIC(""S"")=""S DGI=5 D EN2^DGPTFJC I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,45.05,1,0)="^.1"
^DD(45,45.05,1,1,0)="45^AP^MUMPS"
^DD(45,45.05,1,1,1)="S ^DGPT(DA,""AP"",X)="""""
^DD(45,45.05,1,1,2)="K ^DGPT(DA,""AP"",X)"
^DD(45,45.05,3)="Enter the 5th procedure for the patient's current episode of care."
^DD(45,45.05,12)="Not inactive codes"
^DD(45,45.05,12.1)="S DIC(""S"")=""S DGI=5 D EN2^DGPTFJC I 'DGER"""
^DD(45,45.05,21,0)="^^2^2^2920212^"
^DD(45,45.05,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45,45.05,21,2,0)="indicating a procedure performed during this episode of care."
^DD(45,45.05,"DT")="2860709"
^DD(45,50,0)="501^45.02AI^^M;0"
^DD(45,50,21,0)="^^1^1^2950831^^^^"
^DD(45,50,21,1,0)="501 movements"
^DD(45,50,23,0)="^^1^1^2950831^^^^"
^DD(45,50,23,1,0)=" "
^DD(45,50,"DT")="2910628"
^DD(45,60,0)="601^45.05D^^P;0"
^DD(45,60,21,0)="^^1^1^2920212^"
^DD(45,60,21,1,0)="601 movements."
^DD(45,70,0)="DISCHARGE DATE^DX^^70;1^S %DT=""ETXP"" D ^%DT S X=Y K:Y<1 X I $D(X) K:X<$P(^DGPT(DA,0),U,2) X I '$D(X) W *7,!,""Not before admission"""
^DD(45,70,.1)="DISCHARGE/CENSUS DATE"
^DD(45,70,1,0)="^.1"
^DD(45,70,1,1,0)="45^ADS"
^DD(45,70,1,1,1)="S ^DGPT(""ADS"",$E(X,1,30),DA)="""""
^DD(45,70,1,1,2)="K ^DGPT(""ADS"",$E(X,1,30),DA)"
^DD(45,70,1,2,0)="45^AC^MUMPS"
^DD(45,70,1,2,1)="S %=$S($D(^DGPT(DA,""M"",1,0)):^(0),1:""""),%D=+$P(%,U,10),^(0)=$P(%_""^^^^^^^^^^"",U,1,9)_U_X_U_$P(%,U,11,99),^DGPT(DA,""M"",""AM"",X,1)="""" K:%D'=X ^DGPT(DA,""M"",""AM"",%D,1) K %,%D"
^DD(45,70,1,2,2)="S %=$S($D(^DGPT(DA,""M"",1,0)):^(0),1:""""),%D=+$P(%,U,10),^(0)=$P(%_""^^^^^^^^^^"",U,1,9)_U_X_U_$P(%,U,11,99) K ^DGPT(DA,""M"",""AM"",%D,1),%,%D"
^DD(45,70,1,3,0)="45^AADA1^MUMPS"
^DD(45,70,1,3,1)="S L=$P(^DGPT(DA,0),""^"",2) I L?7N.E K ^DGPT(""AADA"",L,DA)"
^DD(45,70,1,3,2)="S L=$P(^DGPT(DA,0),""^"",2) I L?7N.E,$G(DIK)'=""^DGPT("" S ^DGPT(""AADA"",L,DA)="""""
^DD(45,70,3)="Enter the date this patient was dispositioned from the medical center."
^DD(45,70,21,0)="^^2^2^2981203^^^"
^DD(45,70,21,1,0)="For census records, this field holds the census date associated with the"
^DD(45,70,21,2,0)="record, not the admission's discharge date."
^DD(45,70,"DT")="2861212"
^DD(45,71,0)="DISCHARGE SPECIALTY^*P42.4'X^DIC(42.4,^70;2^S DIC(""S"")=""I $G(^DGPT(DA,70)),$$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA,70),U))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,71,1,0)="^.1"
^DD(45,71,1,1,0)="45^AD^MUMPS"
^DD(45,71,1,1,1)="I $D(^DGPT(DA,""M"",1,0)) S $P(^(0),U,2)=X,$P(^DGPT(DA,""M"",1,0),U,16)=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"""")"
^DD(45,71,1,1,2)="I $D(^DGPT(DA,""M"",1,0)) S $P(^(0),U,2)="""",$P(^(0),U,16)="""""
^DD(45,71,3)="Enter the bedsection this patient was discharged from.  This must be an active treating specialty.  You must have a discharge date to enter a discharge specialty."
^DD(45,71,12)="Allows only active treating specialties."
^DD(45,71,12.1)="S DIC(""S"")=""I $G(^DGPT(DA,70)),$$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA,70),U))"""
^DD(45,71,21,0)="^^1^1^2950831^^^^"
^DD(45,71,21,1,0)="This field contains the bedsection this patient was discharged from."
^DD(45,71,"DT")="2960116"
^DD(45,72,0)="TYPE OF DISPOSITION^S^1:REGULAR;2:NBC OR WHILE ASIH;3:EXPIRATION 6 MONTH LIMIT;4:IRREGULAR;5:TRANSFER;6:DEATH WITH AUTOPSY;7:DEATH WITHOUT AUTOPSY;^70;3^Q"
^DD(45,72,3)="Enter the type of disposition for this patient for this episode of care."
^DD(45,72,21,0)="^^2^2^2920212^^"
^DD(45,72,21,1,0)="This field contains the type of disposition for this patient for this "
^DD(45,72,21,2,0)="episode of care."
^DD(45,72,"DT")="2910819"
^DD(45,72.1,0)="DISCHARGE STATUS^S^1:BED OCCUPANT;2:ON PASS;3:ON LEAVE;4:ASIH;^70;14^Q"
^DD(45,72.1,21,0)="^^2^2^2920212^^"
^DD(45,72.1,21,1,0)="This field contains the discharge status for the patient during this"
^DD(45,72.1,21,2,0)="episode of care."
^DD(45,72.1,"DT")="2860721"
^DD(45,73,0)="OUTPATIENT TREATMENT^S^1:YES;3:NO;^70;4^Q"
^DD(45,73,3)="Enter '1' if the patient was discharged to outpatient treatment, '3' if not."
^DD(45,73,21,0)="^^2^2^2920212^"
^DD(45,73,21,1,0)="This field indicates if the veteran was referred for outpatient"
^DD(45,73,21,2,0)="treatment following an episode of hospital care."
^DD(45,73,"DT")="2840223"
^DD(45,74,0)="VA AUSPICES^S^1:YES;2:NO;^70;5^Q"
^DD(45,74,21,0)="^^2^2^2950620^"
^DD(45,74,21,1,0)="If outpatient care indicated, is it under VA auspices?  Is the VA"
^DD(45,74,21,2,0)="paying for this care or is the veteran being seen at a VA facility?"
^DD(45,74,"DT")="2850408"
^DD(45,75,0)="PLACE OF DISPOSITION^P45.6'^DIC(45.6,^70;6^Q"
^DD(45,75,21,0)="^^1^1^2920212^"
^DD(45,75,21,1,0)="Enter place of disposition..where is the veteran being discharged to?"
^DD(45,75,"DT")="2840224"
^DD(45,76,0)="*RECEIVING FACILITY^P45.2'^DGTF(^70;7^Q"
^DD(45,76,3)="Enter the location of the facility receiving this patient."
^DD(45,76,21,0)="^^1^1^2850226^"
^DD(45,76,21,1,0)="Discontinued after version 3.3"
^DD(45,76,"DT")="2840224"
^DD(45,76.1,0)="RECEIVING FACILITY^NJ3,0X^^70;12^S DIC=""^DIC(4,"",DIC(0)=""ME"" D ^DIC S DIC=$S($D(DIE):DIE,1:DIC) S X=$S($D(^DIC(4,+Y,99)):$E(^(99),1,3),1:"""") K:Y'>0 X"
^DD(45,76.1,3)="Enter Facility Number"
^DD(45,76.1,4)="S DIC(0)=""ME"",DIC=""^DIC(4,"" D ^DIC"
^DD(45,76.1,21,0)="^^2^2^3000120^^"
^DD(45,76.1,21,1,0)="Facility number of the facility that the veteran is being transferred"
^DD(45,76.1,21,2,0)="to from hospital."
^DD(45,76.1,"DT")="3000120"
^DD(45,76.2,0)="RECEIVING SUFFIX^FX^^70;13^D UP^DGHELP S DIC(0)=""EFC"",DIC=""^DIC(45.81,"",D=""D1"" D IX^DIC S DIC=DIE I +Y'>0!(X="" "") K X"
^DD(45,76.2,3)="Enter the suffix of this medical center if not included in the facility number."
^DD(45,76.2,4)="S DIZ=$Y+10,DIC=""^DIC(45.81,"",DIC(0)=""E"",D=""D1"",X=""??"" D IX^DIC S DIC=DIE"
^DD(45,76.2,21,0)="^^1^1^2920212^"
^DD(45,76.2,21,1,0)="Suffix of receiving facility, i.e. 9AA for nursing home."
^DD(45,76.2,"DT")="2950705"
^DD(45,77,0)="ASIH DAYS^NJ6,0^^70;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45,77,3)="Enter the number of days the patient was ASIH if stay was not in a hospital."
^DD(45,77,21,0)="^^2^2^2920212^"
^DD(45,77,21,1,0)="Number of days patient was Absent Sick in Hospital during this "
^DD(45,77,21,2,0)="episode of care (pertains to NHCU/DOM patients only)."
^DD(45,77,"DT")="2840224"
^DD(45,78,0)="C&P STATUS^S^1:COMP/SC COND >10%;2:NON-COMP/SC COND<10%;3:COMP/SC (+10%) NO MED CARE;4:NON-COMP(-10%) SC NO MED CARE-VA PENSION;5:VA PENSION-NO SC COND;6:NON-COMP(-10%) SC NO MED CARE NO PENSION;7:NO PENSION-NO SC;8:NON-VET;^70;9^Q"
^DD(45,78,3)="Enter the C&P status for this patient's visit."
^DD(45,78,21,0)="^^1^1^2920212^"
^DD(45,78,21,1,0)="Compensation and Pension status (synoymous with eligibility)."
^DD(45,78,"DT")="2840224"
^DD(45,79,0)="PRINCIPAL DIAGNOSIS^*P80'X^ICD9(^70;10^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=1 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79,1,0)="^.1^^-1"
^DD(45,79,1,992,0)="45^ADGRU79^MUMPS"
^DD(45,79,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79,1,992,"DT")="3040409"
^DD(45,79,3)="Enter the ICD diagnosis responsible for the patient's greatest length of stay."
^DD(45,79,4)="Q"
^DD(45,79,12)="For DRG calculation"
^DD(45,79,12.1)="S DIC(""S"")=""S DGI=1 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79,21,0)="^.001^2^2^3040218^^^^"
^DD(45,79,21,1,0)="This field contains the diagnosis responsible for the patient's"
^DD(45,79,21,2,0)="greatest length of stay."
^DD(45,79,"DT")="3051123"
^DD(45,79.1,0)="PROVIDER^*P200'^VA(200,^70;15^S DIC(""S"")=""S DG1=0 X ^DD(45,79.1,9.2) I DG1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.1,9.2)="S DFN=+^DGPT(DA,0),%=+$O(^DGPM(""APTF"",DA,0)) S:%'>0 DG1=1 X:'DG1 ^DD(45,79.1,9.3)"
^DD(45,79.1,9.3)="F I=0:0 S I=$O(^DGPM(""CA"",%,I)) Q:'I  I $D(^DGPM(I,0)),$P(^(0),U,8)=+Y S DG1=1 Q"
^DD(45,79.1,12)="Same as in treating specialties"
^DD(45,79.1,12.1)="S DIC(""S"")=""S DG1=0 X ^DD(45,79.1,9.2) I DG1"""
^DD(45,79.1,21,0)="^^1^1^2930330^^^^"
^DD(45,79.1,21,1,0)="The primary physician responsible for this patient's episode of care."
^DD(45,79.1,"DT")="2930126"
^DD(45,79.16,0)="SECONDARY DIAGNOSIS 1^*P80`X^ICD9(^70;16^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=2 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.16,1,0)="^.1"
^DD(45,79.16,1,992,0)="45^ADGRU7916^MUMPS"
^DD(45,79.16,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.16,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.16,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.16,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.16,1,992,"DT")="3040409"
^DD(45,79.16,12)="Active Codes"
^DD(45,79.16,12.1)="S DIC(""S"")=""S DGI=2 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.16,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.16,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.16,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.16,"DT")="3050830"
^DD(45,79.17,0)="SECONDARY DIAGNOSIS 2^*P80'X^ICD9(^70;17^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=3 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.17,1,0)="^.1"
^DD(45,79.17,1,992,0)="45^ADGRU7917^MUMPS"
^DD(45,79.17,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.17,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.17,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.17,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.17,1,992,"DT")="3040409"
^DD(45,79.17,3)=""
^DD(45,79.17,12)="Active Codes"
^DD(45,79.17,12.1)="S DIC(""S"")=""S DGI=3 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.17,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.17,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.17,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.17,"DT")="3050811"
^DD(45,79.18,0)="SECONDARY DIAGNOSIS 3^*P80'X^ICD9(^70;18^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=4 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.18,1,0)="^.1"
^DD(45,79.18,1,992,0)="45^ADGRU7818^MUMPS"
^DD(45,79.18,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.18,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.18,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.18,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.18,1,992,"DT")="3040409"
^DD(45,79.18,3)=""
^DD(45,79.18,12)="Active Codes"
^DD(45,79.18,12.1)="S DIC(""S"")=""S DGI=4 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.18,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.18,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.18,21,2,0)="care. This diagnosis is used in the caluculation of the DRG."
^DD(45,79.18,"DT")="3050811"
^DD(45,79.19,0)="SECONDARY DIAGNOSIS 4^*P80'X^ICD9(^70;19^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=5 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.19,1,0)="^.1"
^DD(45,79.19,1,992,0)="45^ADGRU7919^MUMPS"
^DD(45,79.19,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.19,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.19,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.19,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.19,1,992,"DT")="3040409"
^DD(45,79.19,3)=""
^DD(45,79.19,12)="Active Codes"
^DD(45,79.19,12.1)="S DIC(""S"")=""S DGI=5 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.19,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.19,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.19,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.19,"DT")="3050811"
^DD(45,79.2,0)="PROVIDER SSN^CJ10^^ ; ^X ^DD(45,79.2,9.2) S X=$P(Y(45,79.2,101),U,9) S D0=Y(45,79.2,80)"
^DD(45,79.2,9)="^"
^DD(45,79.2,9.01)="200^9;45^79.1"
^DD(45,79.2,9.1)="PROVIDER:SSN"
^DD(45,79.2,9.2)="S Y(45,79.2,80)=$S($D(D0):D0,1:""""),Y(45,79.2,1)=$S($D(^DGPT(D0,70)):^(70),1:""""),D0=$P(Y(45,79.2,1),U,15) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(45,79.2,101)=$S($D(^VA(200,D0,1)):^(1),1:"""")"
^DD(45,79.2,21,0)="^^1^1^2930717^^^^"
^DD(45,79.2,21,1,0)="Social Security number of primary care physician."
^DD(45,79.2,"DT")="2930717"
^DD(45,79.201,0)="SECONDARY DIAGNOSIS 5^*P80'X^ICD9(^70;20^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=6 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.201,1,0)="^.1"
^DD(45,79.201,1,992,0)="45^ADGRU79201^MUMPS"
^DD(45,79.201,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.201,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.201,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.201,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.201,1,992,"DT")="3040409"
^DD(45,79.201,3)=""
^DD(45,79.201,12)="Active Codes"
^DD(45,79.201,12.1)="S DIC(""S"")=""S DGI=6 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.201,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.201,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.201,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.201,"DT")="3050811"
^DD(45,79.21,0)="SECONDARY DIAGNOSIS 6^*P80'X^ICD9(^70;21^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=7 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.21,1,0)="^.1"
^DD(45,79.21,1,992,0)="45^ADGRU7921^MUMPS"
^DD(45,79.21,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.21,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.21,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.21,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.21,1,992,"DT")="3040409"
^DD(45,79.21,3)=""
^DD(45,79.21,12)="Active Codes"
^DD(45,79.21,12.1)="S DIC(""S"")=""S DGI=7 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.21,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.21,21,1,0)="This field conatins a diagnosis for the patient during this episode of"
^DD(45,79.21,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.21,"DT")="3050811"
^DD(45,79.22,0)="SECONDARY DIAGNOSIS 7^*P80'X^ICD9(^70;22^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=8 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.22,1,0)="^.1"
^DD(45,79.22,1,992,0)="45^ADGRU7922^MUMPS"
^DD(45,79.22,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.22,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.22,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.22,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.22,1,992,"DT")="3040409"
^DD(45,79.22,3)=""
^DD(45,79.22,12)="Active Codes"
^DD(45,79.22,12.1)="S DIC(""S"")=""S DGI=8 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.22,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.22,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.22,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.22,"DT")="3050811"
^DD(45,79.23,0)="SECONDARY DIAGNOSIS 8^*P80'X^ICD9(^70;23^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=9 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.23,1,0)="^.1"
^DD(45,79.23,1,992,0)="45^ADGRU7923^MUMPS"
^DD(45,79.23,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.23,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.23,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.23,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.23,1,992,"DT")="3040409"
^DD(45,79.23,3)=""
^DD(45,79.23,12)="Active Codes"
^DD(45,79.23,12.1)="S DIC(""S"")=""S DGI=9 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.23,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.23,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.23,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.23,"DT")="3050811"
^DD(45,79.24,0)="SECONDARY DIAGNOSIS 9^*P80'X^ICD9(^70;24^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=10 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.24,1,0)="^.1"
^DD(45,79.24,1,992,0)="45^ADGRU7924^MUMPS"
^DD(45,79.24,1,992,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.24,1,992,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.24,1,992,"%D",0)="^.101^1^1^3040409^^^^"
^DD(45,79.24,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.24,1,992,"DT")="3040409"
^DD(45,79.24,3)=""
^DD(45,79.24,12)="Active Codes"
^DD(45,79.24,12.1)="S DIC(""S"")=""S DGI=10 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.24,21,0)="^.001^2^2^3040115^^^^"
^DD(45,79.24,21,1,0)="This field contains a diagnosis for the patient during this episode of"
^DD(45,79.24,21,2,0)="care. This diagnosis is used in the calculation of the DRG."
^DD(45,79.24,"DT")="3050811"
^DD(45,79.241,0)="SECONDARY DIAGNOSIS 10^*P80'X^ICD9(^71;1^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=11 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.241,1,0)="^.1"
^DD(45,79.241,1,1,0)="45^ADGRU79241^MUMPS"
^DD(45,79.241,1,1,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.241,1,1,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.241,1,1,"%D",0)="^.101^1^1^3050324^^^"
^DD(45,79.241,1,1,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.241,1,1,"DT")="3050324"
^DD(45,79.241,12)="Valid Code"
^DD(45,79.241,12.1)="S DIC(""S"")=""S DGI=11 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.241,21,0)="^.001^1^1^3040115^^^^"
^DD(45,79.241,21,1,0)="This field contains a diagnosis for the patient during this episode of care."
^DD(45,79.241,"DT")="3050811"
^DD(45,79.242,0)="SECONDARY DIAGNOSIS 11^*P80'X^ICD9(^71;2^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=12 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.242,1,0)="^.1"
^DD(45,79.242,1,1,0)="45^ADGRU79242^MUMPS"
^DD(45,79.242,1,1,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.242,1,1,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.242,1,1,"%D",0)="^^1^1^3050324^"
^DD(45,79.242,1,1,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.242,1,1,"DT")="3050324"
^DD(45,79.242,12)="Valid Code"
^DD(45,79.242,12.1)="S DIC(""S"")=""S DGI=12 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.242,21,0)="^.001^1^1^3040115^^^^"
^DD(45,79.242,21,1,0)="This field contains a diagnosis for the patient during this episode of care."
^DD(45,79.242,"DT")="3050811"
^DD(45,79.243,0)="SECONDARY DIAGNOSIS 12^*P80'X^ICD9(^71;3^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""S DGI=13 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,79.243,1,0)="^.1"
^DD(45,79.243,1,1,0)="45^ADGRU79243^MUMPS"
^DD(45,79.243,1,1,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.243,1,1,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.243,1,1,"%D",0)="^^1^1^3050324^"
^DD(45,79.243,1,1,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.243,1,1,"DT")="3050324"
^DD(45,79.243,12)="Valid Entries"
^DD(45,79.243,12.1)="S DIC(""S"")=""S DGI=13 D EN3^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,79.243,21,0)="^.001^1^1^3040115^^^^"
^DD(45,79.243,21,1,0)="This field contains a diagnosis for the patient during this episode of care."
^DD(45,79.243,"DT")="3050811"
^DD(45,79.244,0)="SECONDARY DIAGNOSIS 13^P80'X^ICD9(^71;4^D ICDEN^DGPTF5"
^DD(45,79.244,1,0)="^.1"
^DD(45,79.244,1,1,0)="45^ADGRU79244^MUMPS"
^DD(45,79.244,1,1,1)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.244,1,1,2)="N DG1 S DG1=$P(^DGPT(DA,0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,79.244,1,1,"%D",0)="^^1^1^3050324^"
^DD(45,79.244,1,1,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,79.244,1,1,"DT")="3050324"
^DD(45,79.244,"DT")="3050727"
^DD(45,79.25,0)="TREATED FOR SC CONDITION^S^1:YES;2:NO;^70;25^Q"
^DD(45,79.25,3)="The Patient care must be SC related"
^DD(45,79.25,"DT")="2930322"
^DD(45,79.26,0)="TREATED FOR AO CONDITION^SX^Y:YES;N:NO;^70;26^S DGFLAG=1 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG"
^DD(45,79.26,3)="The Patient must have Agent Orange exposure indicated!"
^DD(45,79.26,"DT")="2930323"
^DD(45,79.27,0)="TREATED FOR IR CONDITION^SX^Y:YES;N:NO;^70;27^S DGFLAG=2 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG"
^DD(45,79.27,3)="The Patient must have Ionizing Radiation exposure indicated!"
^DD(45,79.27,"DT")="2930323"
^DD(45,79.28,0)="EXPOSED TO ENVIR CONTAMINANTS^SX^Y:YES;N:NO;^70;28^S DGFLAG=3 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG"
^DD(45,79.28,3)="The patient must have Environmental Contaminants exposure!"
^DD(45,79.28,"DT")="2930323"
^DD(45,79.29,0)="TREATMENT FOR MST^S^Y:YES;N:NO;^70;29^Q"
^DD(45,79.29,21,0)="^^1^1^2980618^^"
^DD(45,79.29,21,1,0)="Was the treatment related to Military Sexual Trauma."
^DD(45,79.29,"DT")="2980618"
^DD(45,79.3,0)="TREATMENT FOR HEAD/NECK CA^S^Y:YES;N:NO;^70;30^Q"
^DD(45,79.3,21,0)="^^1^1^3010731^"
^DD(45,79.3,21,1,0)="Was the treatment related to Head and/or Neck Cancer."
^DD(45,79.3,"DT")="3010731"
^DD(45,79.31,0)="POTENTIALLY RELATED TO COMBAT^S^Y:YES;N:NO;^70;31^Q"
^DD(45,79.31,21,0)="^^6^6^3031110^"
^DD(45,79.31,21,1,0)="Indicate if inpatient stay at this location may be related to military"
^DD(45,79.31,21,2,0)="service in combat and not from cause other than military service in combat"
^DD(45,79.31,21,3,0)="operations (congenital, developmental, pre-service existing conditions, or"
^DD(45,79.31,21,4,0)="conditions having specific and well-established etiology that began after"
^DD(45,79.31,21,5,0)="military combat service, i.e. bone fractures occuring after separation date,"
^DD(45,79.31,21,6,0)="common colds, etc).  This information is copied from the movement records."
^DD(45,79.31,"DT")="3031110"
^DD(45,80,0)="PRINCIPAL DIAGNOSIS pre 1986^*P80'X^ICD9(^70;11^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""I '$P(^ICD9(+Y,0),U,9)"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45,80,1,0)="^.1"
^DD(45,80,1,992,0)="45^ADGRU80^MUMPS"
^DD(45,80,1,992,1)="N DG1 S DG1=$P(^(0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,80,1,992,2)="N DG1 S DG1=$P(^(0),""^"",1) N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  D:(+DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45,80,1,992,"%D",0)="^^1^1^2991006^^^^"
^DD(45,80,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45,80,1,992,"DT")="2991006"
^DD(45,80,3)="Enter the diagnosis responsible for the patient being admitted to the medical center."
^DD(45,80,4)=""
^DD(45,80,12)="NOT AN INACTIVATED CODE"
^DD(45,80,12.1)="S DIC(""S"")=""I '$P(^ICD9(+Y,0),U,9)"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45,80,21,0)="^.001^3^3^3040723^^^^"
^DD(45,80,21,1,0)="This field contains the diagnosis responsible for the patient being"
^DD(45,80,21,2,0)="admitted to the medical center. This field is not used in the calculation"
^DD(45,80,21,3,0)="of the DRG.  This field is no longer used."
^DD(45,80,"DT")="3050811"
^DD(45,99,0)="TERMINAL DIGIT^CJ9,0^^ ; ^X ^DD(45,99,9.2) S X=Y(45,99,101) S D0=I(0,0)"
^DD(45,99,9)="^"
^DD(45,99,9.01)="2^.0901;45^.01"
^DD(45,99,9.1)="PATIENT:TERMINAL DIGIT"
^DD(45,99,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(45,99,1)=$S($D(^DGPT(D0,0)):^(0),1:""""),D0=$P(Y(45,99,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.0901,0),U,5,99) S Y(45,99,101)=X"
^DD(45,99,21,0)="^^1^1^2920212^"
^DD(45,99,21,1,0)="Computed field to determine the last four digits of the SSN"
^DD(45,99,"DT")="2850718"
^DD(45,100,0)="CODING CLERK^45.03PA^^1;0"
^DD(45,100,9)="^"
^DD(45,100,21,0)="^^2^2^2920212^"
^DD(45,100,21,1,0)="Multiple contains information on the coding clerk who worked on"
^DD(45,100,21,2,0)="the PTF record for this episode of care."
^DD(45,101.07,0)="INCOME^NJ6,0^^101;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45,101.07,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(45,101.07,21,0)="^^3^3^2920114^^"
^DD(45,101.07,21,1,0)="This field contains the patient's income as reported for the MEANS TEST"
^DD(45,101.07,21,2,0)="if applicable or the income is calculated from fields in the PATIENT"
^DD(45,101.07,21,3,0)="file (#2)."
^DD(45,101.07,"DT")="2910603"
^DD(45,200,0)="CENSUS YEAR^45.04DA^^CEN;0"
^DD(45,200,21,0)="^^1^1^2920212^"
^DD(45,200,21,1,0)="Multiple containing information on the census year"
^DD(45,300.01,0)="KIDNEY SOURCE^SX^1:Live Donor;2:Cadaver;^300;1^S DGFLAG=1 D 401^DGPTSC01 K:DGER X K DGFLAG,DGER"
^DD(45,300.01,3)=""
^DD(45,300.01,21,0)="^.001^1^1^3061024^^^^"
^DD(45,300.01,21,1,0)="This field will indicate where the transplanted organ was received from."
^DD(45,300.01,23,0)="^.001^12^12^3061024^^"
^DD(45,300.01,23,1,0)="The process for loading this field consist of the "
^DD(45,300.01,23,2,0)="following steps:"
^DD(45,300.01,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45,300.01,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45,300.01,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45,300.01,23,6,0)="additional information. The PTF EXPANDED CODE FILE "
^DD(45,300.01,23,7,0)="contains all ICD's that require special processing."
^DD(45,300.01,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45,300.01,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45,300.01,23,10,0)="are required to complete the data entry for a particular"
^DD(45,300.01,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45,300.01,23,12,0)="additional information."
^DD(45,300.01,"DT")="2910515"
^DD(45,300.02,0)="SUICIDE/SELF INFLICT INDICATOR^SX^1:Attempted Suicide;2:Accomplished Suicide;3:Self Inflicted Injury;^300;2^S DGFLAG=2 D 701^DGPTSC01 K:DGER X K DGER,DGFLAG"
^DD(45,300.02,3)=""
^DD(45,300.02,21,0)="^^1^1^2930305^^^^"
^DD(45,300.02,21,1,0)="This field will indicated if a suicide was attempted or accomplished."
^DD(45,300.02,23,0)="^^12^12^2930305^^^^"
^DD(45,300.02,23,1,0)="The process for loading this field consist of the "
^DD(45,300.02,23,2,0)="following steps:"
^DD(45,300.02,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45,300.02,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45,300.02,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45,300.02,23,6,0)="additional information. The PTF EXPANDED CODE FILE "
^DD(45,300.02,23,7,0)="contains all ICD's that require special processing."
^DD(45,300.02,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45,300.02,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45,300.02,23,10,0)="are required to complete the data entry for a particular"
^DD(45,300.02,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45,300.02,23,12,0)="additional information."
^DD(45,300.02,"DT")="2930305"
^DD(45,300.03,0)="LEGIONNAIRE'S DISEASE^SX^1:Yes;2:No;^300;3^S DGFLAG=3 D 701^DGPTSC01 K:DGER X K DGER,DGFLAG"
^DD(45,300.03,3)=""
^DD(45,300.03,21,0)="^^1^1^2910816^^"
^DD(45,300.03,21,1,0)="This field will indicated the patient was treated for Legionnaire's Disease."
^DD(45,300.03,23,0)="^^12^12^2910816^^"
^DD(45,300.03,23,1,0)="The process for loading this field consist of the "
^DD(45,300.03,23,2,0)="following steps:"
^DD(45,300.03,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45,300.03,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45,300.03,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45,300.03,23,6,0)="additional information. The PTF EXPANDED CODE FILE "
^DD(45,300.03,23,7,0)="contains all ICD's that require special processing."
^DD(45,300.03,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45,300.03,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45,300.03,23,10,0)="are required to complete the data entry for a particular"
^DD(45,300.03,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45,300.03,23,12,0)="additional information."
^DD(45,300.03,"DT")="2910816"
^DD(45,300.04,0)="SUBSTANCE ABUSE^P45.61'X^DIC(45.61,^300;4^S DGFLAG=4 D 701^DGPTSC01 K:DGER X K DGFLAG,DGER"
^DD(45,300.04,3)=""
^DD(45,300.04,21,0)="^^1^1^2910506^^^^"
^DD(45,300.04,21,1,0)="Select type of substance abused by the patient."
^DD(45,300.04,23,0)="^^12^12^2910506^"
^DD(45,300.04,23,1,0)="The process for loading this field consist of the "
^DD(45,300.04,23,2,0)="following steps:"
^DD(45,300.04,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45,300.04,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45,300.04,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45,300.04,23,6,0)="additional information. The PTF EXPANDED CODE FILE "
^DD(45,300.04,23,7,0)="contains all ICD's that require special processing."
^DD(45,300.04,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45,300.04,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45,300.04,23,10,0)="are required to complete the data entry for a particular"
^DD(45,300.04,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45,300.04,23,12,0)="additional information."
^DD(45,300.04,"DT")="2910515"
^DD(45,300.05,0)="PSYCHIATRY CLASS. SEVERITY^SX^0:INADEQUATE INFORMATION OR NO CHANGE IN CONDITION;1:NONE;2:MILD;3:MODERATE;4:SEVERE;5:EXTREME;6:CATASTROPHIC;^300;5^S DGFLAG=5 D 701^DGPTSC01 K:DGER X K DGFLAG,DGER"
^DD(45,300.05,3)=""
^DD(45,300.05,21,0)="^^3^3^2910725^^^^"
^DD(45,300.05,21,1,0)="Enter a one-digit rating from 0 (inadequate information/unchanged)"
^DD(45,300.05,21,2,0)="through 6 (catastrophic)."
^DD(45,300.05,21,3,0)="This field contains a rating indicating maximal stress."
^DD(45,300.05,23,0)="^^12^12^2910725^^^^"
^DD(45,300.05,23,1,0)="The process for loading this field consist of the "
^DD(45,300.05,23,2,0)="following steps:"
^DD(45,300.05,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45,300.05,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45,300.05,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45,300.05,23,6,0)="additional information. The PTF EXPANDED CODE FILE "
^DD(45,300.05,23,7,0)="contains all ICD's that require special processing."
^DD(45,300.05,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45,300.05,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45,300.05,23,10,0)="are required to complete the data entry for a particular"
^DD(45,300.05,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45,300.05,23,12,0)="additional information."
^DD(45,300.05,"DT")="2910515"
^DD(45,300.06,0)="CURRENT FUNCTIONAL ASSESSMENT^NJ2,0X^^300;6^S DGFLAG=6 D 701^DGPTSC01 S:DGER X="""" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45,300.06,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(45,300.06,21,0)="^^35^35^2970926^^^^"
^DD(45,300.06,21,1,0)="CODE         TERMINOLOGY"
^DD(45,300.06,21,2,0)=" "
^DD(45,300.06,21,3,0)="90 TO 81     ABSENT OR MINIMAL SYMPTOMS"
^DD(45,300.06,21,4,0)=" "
^DD(45,300.06,21,5,0)="80 TO 71     IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND"
^DD(45,300.06,21,6,0)="             EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS"
^DD(45,300.06,21,7,0)=" "
^DD(45,300.06,21,8,0)="70 TO 61     SOME MILD SYMPTOMS OR SOME DIFFICULTY IN"
^DD(45,300.06,21,9,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45,300.06,21,10,0)=" "
^DD(45,300.06,21,11,0)="60 TO 51     MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN"
^DD(45,300.06,21,12,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45,300.06,21,13,0)=" "
^DD(45,300.06,21,14,0)="50 TO 41     SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN"
^DD(45,300.06,21,15,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45,300.06,21,16,0)=" "
^DD(45,300.06,21,17,0)="40 TO 31     SOME IMPAIRMENT IN REALITY TESTING OR"
^DD(45,300.06,21,18,0)="             COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL"
^DD(45,300.06,21,19,0)="             AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,"
^DD(45,300.06,21,20,0)="             JUDGEMENT, THINKING OR MOOD"
^DD(45,300.06,21,21,0)=" "
^DD(45,300.06,21,22,0)="30 TO 21     SOME DANGER OR HURTING SELF OR OTHER OR"
^DD(45,300.06,21,23,0)="             OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE"
^DD(45,300.06,21,24,0)="             OR GROSS IMPAIRMENT IN COMMUNICATION OR"
^DD(45,300.06,21,25,0)="             JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST"
^DD(45,300.06,21,26,0)="             ALL AREAS"
^DD(45,300.06,21,27,0)=" "
^DD(45,300.06,21,28,0)="20 TO 11     SOME DANGER OF HURTING SELF OR OTHERS OR"
^DD(45,300.06,21,29,0)="             OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL"
^DD(45,300.06,21,30,0)="             HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION"
^DD(45,300.06,21,31,0)=" "
^DD(45,300.06,21,32,0)="10 TO 1      PERSISTENT DANGER OF SEVERELY HURTING SELF OR"
^DD(45,300.06,21,33,0)="             OTHERS OR PERSISTENT INABILITY TO MAINTAIN"
^DD(45,300.06,21,34,0)="             MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL"
^DD(45,300.06,21,35,0)="             ACT WITH CLEAR EXPECTATIONS OF DEATH"
^DD(45,300.06,23,0)="^^12^12^2970926^^"
^DD(45,300.06,23,1,0)="The process for loading this field consist of the "
^DD(45,300.06,23,2,0)="following steps:"
^DD(45,300.06,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45,300.06,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45,300.06,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45,300.06,23,6,0)="additional information. The PTF EXPANDED CODE FILE "
^DD(45,300.06,23,7,0)="contains all ICD's that require special processing."
^DD(45,300.06,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45,300.06,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45,300.06,23,10,0)="are required to complete the data entry for a particular"
^DD(45,300.06,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45,300.06,23,12,0)="additional information."
^DD(45,300.06,"DT")="2970926"
^DD(45,300.07,0)="HIGH LEVEL PSYCH CLASS^NJ2,0X^^300;7^S DGFLAG=7 D 701^DGPTSC01 S:DGER X="""" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45,300.07,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(45,300.07,21,0)="^^35^35^2970926^^^"
^DD(45,300.07,21,1,0)="CODE         TERMINOLOGY"
^DD(45,300.07,21,2,0)=" "
^DD(45,300.07,21,3,0)="90 TO 81     ABSENT OR MINIMAL SYMPTOMS"
^DD(45,300.07,21,4,0)=" "
^DD(45,300.07,21,5,0)="80 TO 71     IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND"
^DD(45,300.07,21,6,0)="             EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS"
^DD(45,300.07,21,7,0)=" "
^DD(45,300.07,21,8,0)="70 TO 61     SOME MILD SYMPTOMS OR SOME DIFFICULTY IN"
^DD(45,300.07,21,9,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45,300.07,21,10,0)=" "
^DD(45,300.07,21,11,0)="60 TO 51     MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN"
^DD(45,300.07,21,12,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45,300.07,21,13,0)=" "
^DD(45,300.07,21,14,0)="50 TO 41     SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN"
^DD(45,300.07,21,15,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45,300.07,21,16,0)=" "
^DD(45,300.07,21,17,0)="40 TO 31     SOME IMPAIRMENT IN REALITY TESTING OR"
^DD(45,300.07,21,18,0)="             COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL"
^DD(45,300.07,21,19,0)="             AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,"
^DD(45,300.07,21,20,0)="             JUDGEMENT, THINKING OR MOOD"
^DD(45,300.07,21,21,0)=" "
^DD(45,300.07,21,22,0)="30 TO 21     SOME DANGER OF HURTING SELF OR OTHERS OR"
^DD(45,300.07,21,23,0)="             OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE"
^DD(45,300.07,21,24,0)="             OR GROSS IMPAIRMENT IN COMMUNICATION OR"
^DD(45,300.07,21,25,0)="             JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST"
^DD(45,300.07,21,26,0)="             ALL AREAS"
^DD(45,300.07,21,27,0)=" "
^DD(45,300.07,21,28,0)="20 TO 11     SOME DANGER OF HURTING SELF OR OTHERS OR"
^DD(45,300.07,21,29,0)="             OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL"
^DD(45,300.07,21,30,0)="             HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION"
^DD(45,300.07,21,31,0)=" "
^DD(45,300.07,21,32,0)="10 TO 1      PERSISTENT DANGER OF SEVERELY HURTING SELF OR"
^DD(45,300.07,21,33,0)="             OTHERS OR PERSISTENT INABILITY TO MAINTAIN"
^DD(45,300.07,21,34,0)="             MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL"
^DD(45,300.07,21,35,0)="             ACT WITH CLEAR EXPECTATIONS OF DEATH"
^DD(45,300.07,23,0)="^^12^12^2970926^^"
^DD(45,300.07,23,1,0)="The process for loading this field consist of the "
^DD(45,300.07,23,2,0)="following steps:"
^DD(45,300.07,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45,300.07,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45,300.07,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45,300.07,23,6,0)="additional information. The PTF EXPANDED CODE FILE "
^DD(45,300.07,23,7,0)="contains all ICD's that require special processing."
^DD(45,300.07,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45,300.07,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45,300.07,23,10,0)="are required to complete the data entry for a particular"
^DD(45,300.07,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45,300.07,23,12,0)="additional information."
^DD(45,300.07,"DT")="2970926"
^DD(45,535,0)="535^45.0535I^^535;0"
^DD(45,535,21,0)="^^5^5^2920115^^"
^DD(45,535,21,1,0)="This multiple contains all the ward specialty movements of a patient"
^DD(45,535,21,2,0)="that occur during the admission."
^DD(45,535,21,3,0)=" "
^DD(45,535,21,4,0)="If a patient changed wards but the specialty of the two wards are the"
^DD(45,535,21,5,0)="same then no entry in this multiple is created."
^DD(45,"B",401,40)=""
^DD(45,"B",501,50)=""
^DD(45,"B",535,535)=""
^DD(45,"B",601,60)=""
^DD(45,"B"," ",5)="1"
^DD(45,"B","*RECEIVING FACILITY",76)=""
^DD(45,"B","*TRANSFERING FACILITY",21)=""
^DD(45,"B","ADMISSION DATE",2)=""
^DD(45,"B","ADMITTING ELIGIBILITY",20.1)=""
^DD(45,"B","ASIH DAYS",77)=""
^DD(45,"B","C&P STATUS",78)=""
^DD(45,"B","CATEGORY OF BENEFICIARY",23)=""
^DD(45,"B","CENSUS DATE",13)=""
^DD(45,"B","CENSUS YEAR",200)=""
^DD(45,"B","CLOSE OUT DATE",7.2)=""
^DD(45,"B","CLOSE OUT FILE",7.1)=""
^DD(45,"B","CLOSED OUT BY",7)=""
^DD(45,"B","CODING CLERK",100)=""
^DD(45,"B","CORRESPONDING PTF RECORD",12)=""
^DD(45,"B","CPT RECORD DATE/TIME",30)=""
^DD(45,"B","CURRENT FUNCTIONAL ASSESSMENT",300.06)=""
^DD(45,"B","DISCHARGE DATE",70)=""
^DD(45,"B","DISCHARGE SPECIALTY",71)=""
^DD(45,"B","DISCHARGE STATUS",72.1)=""
^DD(45,"B","DISCHARGE/CENSUS DATE",70)="1"
^DD(45,"B","DRG",9)=""
^DD(45,"B","EXPOSED TO ENVIR CONTAMINANTS",79.28)=""
^DD(45,"B","FACILITY",3)=""
^DD(45,"B","FEE BASIS",4)=""
^DD(45,"B","FIRST CLOSED OUT AT",8)=""
^DD(45,"B","HIGH LEVEL PSYCH CLASS",300.07)=""
^DD(45,"B","INCOME",101.07)=""
^DD(45,"B","INTERNAL ADMISSION #",2.1)=""
^DD(45,"B","KIDNEY SOURCE",300.01)=""
^DD(45,"B","LEGIONNAIRE'S DISEASE",300.03)=""
^DD(45,"B","MEANS TEST INDICATOR",10)=""
^DD(45,"B","NUMBER",.001)=""
^DD(45,"B","OUTPATIENT TREATMENT",73)=""
^DD(45,"B","PATIENT",.01)=""
^DD(45,"B","PLACE OF DISPOSITION",75)=""
^DD(45,"B","POTENTIALLY RELATED TO COMBAT",79.31)=""
^DD(45,"B","PRINCIPAL DIAGNOSIS",79)=""
^DD(45,"B","PRINCIPAL DIAGNOSIS pre 1986",80)=""
^DD(45,"B","PROCEDURE 1",45.01)=""
^DD(45,"B","PROCEDURE 2",45.02)=""
^DD(45,"B","PROCEDURE 3",45.03)=""
^DD(45,"B","PROCEDURE 4",45.04)=""
^DD(45,"B","PROCEDURE 5",45.05)=""
^DD(45,"B","PROVIDER",79.1)=""
^DD(45,"B","PROVIDER SSN",79.2)=""
^DD(45,"B","PSYCHIATRY CLASS. SEVERITY",300.05)=""
^DD(45,"B","RECEIVING FACILITY",76.1)=""
^DD(45,"B","RECEIVING SUFFIX",76.2)=""
^DD(45,"B","RELEASE DATE",7.3)=""
^DD(45,"B","SECONDARY DIAGNOSIS 1",79.16)=""
^DD(45,"B","SECONDARY DIAGNOSIS 10",79.241)=""
^DD(45,"B","SECONDARY DIAGNOSIS 11",79.242)=""
^DD(45,"B","SECONDARY DIAGNOSIS 12",79.243)=""
^DD(45,"B","SECONDARY DIAGNOSIS 13",79.244)=""
^DD(45,"B","SECONDARY DIAGNOSIS 2",79.17)=""
^DD(45,"B","SECONDARY DIAGNOSIS 3",79.18)=""
^DD(45,"B","SECONDARY DIAGNOSIS 4",79.19)=""
^DD(45,"B","SECONDARY DIAGNOSIS 5",79.201)=""
^DD(45,"B","SECONDARY DIAGNOSIS 6",79.21)=""
^DD(45,"B","SECONDARY DIAGNOSIS 7",79.22)=""
^DD(45,"B","SECONDARY DIAGNOSIS 8",79.23)=""
^DD(45,"B","SECONDARY DIAGNOSIS 9",79.24)=""
^DD(45,"B","SOURCE OF ADMISSION",20)=""
^DD(45,"B","SOURCE OF PAYMENT",22)=""
^DD(45,"B","STATUS",6)=""
^DD(45,"B","SUBSTANCE ABUSE",300.04)=""
^DD(45,"B","SUFFIX",5)=""
^DD(45,"B","SUICIDE/SELF INFLICT INDICATOR",300.02)=""
^DD(45,"B","TERMINAL DIGIT",99)=""
^DD(45,"B","TRANSFERRING FACILITY",21.1)=""
^DD(45,"B","TRANSFERRING SUFFIX",21.2)=""
^DD(45,"B","TRANSMISSION DATE",7.4)=""
^DD(45,"B","TREATED FOR AO CONDITION",79.26)=""
^DD(45,"B","TREATED FOR IR CONDITION",79.27)=""
^DD(45,"B","TREATED FOR SC CONDITION",79.25)=""
^DD(45,"B","TREATMENT FOR HEAD/NECK CA",79.3)=""
^DD(45,"B","TREATMENT FOR MST",79.29)=""
^DD(45,"B","TYPE OF DISPOSITION",72)=""
^DD(45,"B","TYPE OF RECORD",11)=""
^DD(45,"B","VA AUSPICES",74)=""
^DD(45,"B","WARD AT DISCHARGE",2.2)=""
^DD(45,"GL",0,1,.01)=""
^DD(45,"GL",0,2,2)=""
^DD(45,"GL",0,3,3)=""
^DD(45,"GL",0,4,4)=""
^DD(45,"GL",0,5,5)=""
^DD(45,"GL",0,6,6)=""
^DD(45,"GL",0,7,7)=""
^DD(45,"GL",0,8,8)=""
^DD(45,"GL",0,9,7.1)=""
^DD(45,"GL",0,10,10)=""
^DD(45,"GL",0,11,11)=""
^DD(45,"GL",0,12,12)=""
^DD(45,"GL",0,13,13)=""
^DD(45,"GL",1,0,100)=""
^DD(45,"GL",70,1,70)=""
^DD(45,"GL",70,2,71)=""
^DD(45,"GL",70,3,72)=""
^DD(45,"GL",70,4,73)=""
^DD(45,"GL",70,5,74)=""
^DD(45,"GL",70,6,75)=""
^DD(45,"GL",70,7,76)=""
^DD(45,"GL",70,8,77)=""
^DD(45,"GL",70,9,78)=""
^DD(45,"GL",70,10,79)=""
^DD(45,"GL",70,11,80)=""
^DD(45,"GL",70,12,76.1)=""
^DD(45,"GL",70,13,76.2)=""
^DD(45,"GL",70,14,72.1)=""
^DD(45,"GL",70,15,79.1)=""
^DD(45,"GL",70,16,79.16)=""
^DD(45,"GL",70,17,79.17)=""
^DD(45,"GL",70,18,79.18)=""
^DD(45,"GL",70,19,79.19)=""
^DD(45,"GL",70,20,79.201)=""
^DD(45,"GL",70,21,79.21)=""
^DD(45,"GL",70,22,79.22)=""
^DD(45,"GL",70,23,79.23)=""
^DD(45,"GL",70,24,79.24)=""
^DD(45,"GL",70,25,79.25)=""
^DD(45,"GL",70,26,79.26)=""
^DD(45,"GL",70,27,79.27)=""
^DD(45,"GL",70,28,79.28)=""
^DD(45,"GL",70,29,79.29)=""
^DD(45,"GL",70,30,79.3)=""
^DD(45,"GL",70,31,79.31)=""
^DD(45,"GL",71,1,79.241)=""
^DD(45,"GL",71,2,79.242)=""
^DD(45,"GL",71,3,79.243)=""
^DD(45,"GL",71,4,79.244)=""
^DD(45,"GL",101,1,20)=""
^DD(45,"GL",101,2,21)=""
^DD(45,"GL",101,3,22)=""
^DD(45,"GL",101,4,23)=""
^DD(45,"GL",101,5,21.1)=""
^DD(45,"GL",101,6,21.2)=""
^DD(45,"GL",101,7,101.07)=""
^DD(45,"GL",101,8,20.1)=""
^DD(45,"GL",300,1,300.01)=""
^DD(45,"GL",300,2,300.02)=""
^DD(45,"GL",300,3,300.03)=""
^DD(45,"GL",300,4,300.04)=""
^DD(45,"GL",300,5,300.05)=""
^DD(45,"GL",300,6,300.06)=""
^DD(45,"GL",300,7,300.07)=""
^DD(45,"GL",535,0,535)=""
^DD(45,"GL","401P",1,45.01)=""
^DD(45,"GL","401P",2,45.02)=""
^DD(45,"GL","401P",3,45.03)=""
^DD(45,"GL","401P",4,45.04)=""
^DD(45,"GL","401P",5,45.05)=""
^DD(45,"GL","C",0,30)=""
^DD(45,"GL","CEN",0,200)=""
^DD(45,"GL","M",0,50)=""
^DD(45,"GL","P",0,60)=""
^DD(45,"GL","S",0,40)=""
^DD(45,"IX",.01)=""
^DD(45,"IX",2)=""
^DD(45,"IX",4)=""
^DD(45,"IX",5)=""
^DD(45,"IX",6)=""
^DD(45,"IX",10)=""
^DD(45,"IX",12)=""
^DD(45,"IX",13)=""
^DD(45,"IX",23)=""
^DD(45,"IX",45.01)=""
^DD(45,"IX",45.02)=""
^DD(45,"IX",45.03)=""
^DD(45,"IX",45.04)=""
^DD(45,"IX",45.05)=""
^DD(45,"IX",70)=""
^DD(45,"IX",71)=""
^DD(45,"IX",79)=""
^DD(45,"IX",79.16)=""
^DD(45,"IX",79.17)=""
^DD(45,"IX",79.18)=""
^DD(45,"IX",79.19)=""
^DD(45,"IX",79.201)=""
^DD(45,"IX",79.21)=""
^DD(45,"IX",79.22)=""
^DD(45,"IX",79.23)=""
^DD(45,"IX",79.24)=""
^DD(45,"IX",79.241)=""
^DD(45,"IX",79.242)=""
^DD(45,"IX",79.243)=""
^DD(45,"IX",79.244)=""
^DD(45,"IX",80)=""
^DD(45,"RQ",.01)=""
^DD(45,"RQ",2)=""
^DD(45,"RQ",3)=""
^DD(45,"RQ",10)=""
^DD(45,"RQ",11)=""
^DD(45,"SB",45.01,40)=""
^DD(45,"SB",45.02,50)=""
^DD(45,"SB",45.03,100)=""
^DD(45,"SB",45.04,200)=""
^DD(45,"SB",45.05,60)=""
^DD(45,"SB",45.0535,535)=""
^DD(45,"SB",45.06,30)=""
^DD(45.01,0)="401 SUB-FIELD^NL^300.01^12"
^DD(45.01,0,"DIK")="DGPTXX"
^DD(45.01,0,"IX","AO",45.01,8)=""
^DD(45.01,0,"IX","AO",45.01,9)=""
^DD(45.01,0,"IX","AO",45.01,10)=""
^DD(45.01,0,"IX","AO",45.01,11)=""
^DD(45.01,0,"IX","AO",45.01,12)=""
^DD(45.01,0,"NM",401)=""
^DD(45.01,0,"UP")="45"
^DD(45.01,.01,0)="SURGERY/PROCEDURE DATE^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=+Y K:Y<1 X I $D(X) X $S(X<$P(^DGPT(DA(1),0),U,2):""W !,""""Not before admission"""" K X"",X>($S($D(^(70)):$S(+^(70):+^(70),1:9999999),1:9999999)):""W !,""""Not after discharge"""" K X"",1:"""")"
^DD(45.01,.01,3)="Enter the date of the surgery or procedure to enter PTF data for."
^DD(45.01,.01,21,0)="^^1^1^2920212^"
^DD(45.01,.01,21,1,0)="Date/time surgery or procedure was performed."
^DD(45.01,.01,"DT")="2850812"
^DD(45.01,3,0)="SURGICAL SPECIALTY^RP45.3'^DIC(45.3,^0;3^Q"
^DD(45.01,3,3)="Enter the surgical specialty from the available list."
^DD(45.01,3,21,0)="^^1^1^2920212^^"
^DD(45.01,3,21,1,0)="This field contains the surgical specialty for this espisode of care."
^DD(45.01,3,"DT")="2840223"
^DD(45.01,4,0)="CATEGORY OF CHIEF SURG^S^V:VA TEAM;M:MIXED VA&NON-VA;N:NON VA;1:STAFF,FT;2:STAFF, PT;3:CONSULTANT;4:ATTENDING;5:FEE BASIS;6:RESIDENT;7:OTHER(INCLUDES INTERNS);^0;4^Q"
^DD(45.01,4,3)="Enter the category of the chief surgeon from the available list."
^DD(45.01,4,21,0)="^^2^2^2920212^^"
^DD(45.01,4,21,1,0)="This field indicates the category of the chief surgeon. The choices are"
^DD(45.01,4,21,2,0)="defined as a set of codes."
^DD(45.01,4,"DT")="2840223"
^DD(45.01,5,0)="CATEGORY OF FIRST ASSISTANT^S^1:STAFF, FT;2:STAFF, PT;3:CONSULTANT;4:ATTENDING;5:FEE BASIS;6:RESIDENT;7:OTHER (INCLUDES INTERN);8:NO ASSISTANT;^0;5^Q"
^DD(45.01,5,3)="Enter the category of the first assistant from the available list."
^DD(45.01,5,21,0)="^^1^1^2920212^^"
^DD(45.01,5,21,1,0)="This field indicates the category of the first assistant."
^DD(45.01,5,"DT")="2840223"
^DD(45.01,6,0)="PRINCIPAL ANESTHETIC TECHNIQUE^S^0:NONE;1:INHALATION(OPEN DROP);2:INHALATION(CIRCLE ABSORBER);3:INTRAVENOUS;4:INFILTRATION;5:FIELD BLOCK;6:NERVE BLOCK;7:SPINAL;8:EPIDURAL;9:TOPICAL;R:RECTAL;X:OTHER;^0;6^Q"
^DD(45.01,6,21,0)="^^2^2^2920212^^"
^DD(45.01,6,21,1,0)="This field indicates the principal anesthetic technique used during"
^DD(45.01,6,21,2,0)="the operation/procedure."
^DD(45.01,6,"DT")="2840223"
^DD(45.01,7,0)="SOURCE OF PAYMENT^S^1:CONTRACT;2:SHARING;^0;7^Q"
^DD(45.01,7,3)="Enter the source of payment for patient's operated on in a non VA facility, and returned to a VA facility within a 24-hr period."
^DD(45.01,7,21,0)="^^2^2^2920212^^"
^DD(45.01,7,21,1,0)="This field indicates the source of payment for patients operated on"
^DD(45.01,7,21,2,0)="in a Non-VA facility and returned to a VA facility within a 24-hr period."
^DD(45.01,7,"DT")="2840223"
^DD(45.01,8,0)="OPERATION CODE 1^*P80.1'^ICD0(^0;8^S DIC(""S"")=""S DGI=8,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.01,8,1,0)="^.1"
^DD(45.01,8,1,1,0)="45.01^AO"
^DD(45.01,8,1,1,1)="S ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)="""""
^DD(45.01,8,1,1,2)="K ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)"
^DD(45.01,8,3)=""
^DD(45.01,8,12)="first Operation Code for this 401 transaction"
^DD(45.01,8,12.1)="S DIC(""S"")=""S DGI=8,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.01,8,21,0)="^^2^2^2920212^^^^"
^DD(45.01,8,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.01,8,21,2,0)="indicating an operation or procedure performed during this episode of care."
^DD(45.01,8,"DT")="2880211"
^DD(45.01,9,0)="OPERATION CODE 2^*P80.1'^ICD0(^0;9^S DIC(""S"")=""S DGI=9,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.01,9,1,0)="^.1"
^DD(45.01,9,1,1,0)="45.01^AO"
^DD(45.01,9,1,1,1)="S ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)="""""
^DD(45.01,9,1,1,2)="K ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)"
^DD(45.01,9,3)=""
^DD(45.01,9,12)="second Operation Code for this 401 transaction"
^DD(45.01,9,12.1)="S DIC(""S"")=""S DGI=9,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.01,9,21,0)="^^2^2^2920212^^"
^DD(45.01,9,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.01,9,21,2,0)="indicating an operation of procedure performed during this episode of care."
^DD(45.01,9,"DT")="2880211"
^DD(45.01,10,0)="OPERATION CODE 3^*P80.1'^ICD0(^0;10^S DIC(""S"")=""S DGI=10,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.01,10,1,0)="^.1"
^DD(45.01,10,1,1,0)="45.01^AO"
^DD(45.01,10,1,1,1)="S ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)="""""
^DD(45.01,10,1,1,2)="K ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)"
^DD(45.01,10,3)=""
^DD(45.01,10,12)="third Operation Code for this 401 transaction"
^DD(45.01,10,12.1)="S DIC(""S"")=""S DGI=10,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.01,10,21,0)="^^2^2^2920212^^"
^DD(45.01,10,21,1,0)="This field conatins a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.01,10,21,2,0)="indicating an operation or procedure performed during this episode of care."
^DD(45.01,10,"DT")="2880211"
^DD(45.01,11,0)="OPERATION CODE 4^*P80.1'^ICD0(^0;11^S DIC(""S"")=""S DGI=11,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.01,11,1,0)="^.1"
^DD(45.01,11,1,1,0)="45.01^AO"
^DD(45.01,11,1,1,1)="S ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)="""""
^DD(45.01,11,1,1,2)="K ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)"
^DD(45.01,11,3)=""
^DD(45.01,11,12)="fourth Operation Code for this 401 transaction"
^DD(45.01,11,12.1)="S DIC(""S"")=""S DGI=11,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.01,11,21,0)="^^2^2^2920212^^"
^DD(45.01,11,21,1,0)="This field conatins a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.01,11,21,2,0)="indicating an operation or procedure performed during this episode of care."
^DD(45.01,11,"DT")="2880211"
^DD(45.01,12,0)="OPERATION CODE 5^*P80.1'^ICD0(^0;12^S DIC(""S"")=""S DGI=12,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.01,12,1,0)="^.1"
^DD(45.01,12,1,1,0)="45.01^AO"
^DD(45.01,12,1,1,1)="S ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)="""""
^DD(45.01,12,1,1,2)="K ^DGPT(DA(1),""S"",""AO"",$E(X,1,30),DA)"
^DD(45.01,12,3)=""
^DD(45.01,12,12)="fifth Operation Code for this 401 transaction"
^DD(45.01,12,12.1)="S DIC(""S"")=""S DGI=12,DGCR=""""AO"""",DGSB=""""S"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.01,12,21,0)="^^2^2^2920212^^^"
^DD(45.01,12,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.01,12,21,2,0)="indicating an operation or procedure performed during this episode of care."
^DD(45.01,12,"DT")="2880211"
^DD(45.01,300.01,0)="KIDNEY SOURCE^SX^1:Live Donor;2:Cadaver;^300;1^S DGFLAG=1 D 401^DGPTSC01 K:DGER X K DGER,DGFLAG"
^DD(45.01,300.01,3)=""
^DD(45.01,300.01,21,0)="^.001^1^1^3061024^^^^"
^DD(45.01,300.01,21,1,0)="This field will indicate where the transplant organ was received from."
^DD(45.01,300.01,23,0)="^.001^12^12^3061024^^"
^DD(45.01,300.01,23,1,0)="The process for loading this field consist of the "
^DD(45.01,300.01,23,2,0)="following steps:"
^DD(45.01,300.01,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45.01,300.01,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45.01,300.01,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45.01,300.01,23,6,0)="additional information. The PTF EXPANDED CODE FILE (45.89)"
^DD(45.01,300.01,23,7,0)="contains all ICD's that require special processing."
^DD(45.01,300.01,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45.01,300.01,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45.01,300.01,23,10,0)="are required to complete the data entry for a particular"
^DD(45.01,300.01,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45.01,300.01,23,12,0)="additional information."
^DD(45.01,300.01,"DT")="2910515"
^DD(45.01,"B","CATEGORY OF CHIEF SURG",4)=""
^DD(45.01,"B","CATEGORY OF FIRST ASSISTANT",5)=""
^DD(45.01,"B","KIDNEY SOURCE",300.01)=""
^DD(45.01,"B","OPERATION CODE 1",8)=""
^DD(45.01,"B","OPERATION CODE 2",9)=""
^DD(45.01,"B","OPERATION CODE 3",10)=""
^DD(45.01,"B","OPERATION CODE 4",11)=""
^DD(45.01,"B","OPERATION CODE 5",12)=""
^DD(45.01,"B","PRINCIPAL ANESTHETIC TECHNIQUE",6)=""
^DD(45.01,"B","SOURCE OF PAYMENT",7)=""
^DD(45.01,"B","SURGERY/PROCEDURE DATE",.01)=""
^DD(45.01,"B","SURGICAL SPECIALTY",3)=""
^DD(45.01,"GL",0,1,.01)=""
^DD(45.01,"GL",0,3,3)=""
^DD(45.01,"GL",0,4,4)=""
^DD(45.01,"GL",0,5,5)=""
^DD(45.01,"GL",0,6,6)=""
^DD(45.01,"GL",0,7,7)=""
^DD(45.01,"GL",0,8,8)=""
^DD(45.01,"GL",0,9,9)=""
^DD(45.01,"GL",0,10,10)=""
^DD(45.01,"GL",0,11,11)=""
^DD(45.01,"GL",0,12,12)=""
^DD(45.01,"GL",300,1,300.01)=""
^DD(45.01,"IX",8)=""
^DD(45.01,"IX",9)=""
^DD(45.01,"IX",10)=""
^DD(45.01,"IX",11)=""
^DD(45.01,"IX",12)=""
^DD(45.01,"RQ",3)=""
^DD(45.02,0)="501 SUB-FIELD^NL^300.07^36"
^DD(45.02,0,"DIK")="DGPTXX"
^DD(45.02,0,"DT")="2950802"
^DD(45.02,0,"ID",10)="W:$D(^(0)) ""   "",$E($P(^(0),U,10),4,5)_""-""_$E($P(^(0),U,10),6,7)_""-""_$E($P(^(0),U,10),2,3)"
^DD(45.02,0,"ID",17)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(45.02,17,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,17)_"""":"""",2),$C(59),1)"")"
^DD(45.02,0,"IX","AC",45.02,5)=""
^DD(45.02,0,"IX","AC",45.02,6)=""
^DD(45.02,0,"IX","AC",45.02,7)=""
^DD(45.02,0,"IX","AC",45.02,8)=""
^DD(45.02,0,"IX","AC",45.02,9)=""
^DD(45.02,0,"IX","AC",45.02,11)=""
^DD(45.02,0,"IX","AC",45.02,12)=""
^DD(45.02,0,"IX","AC",45.02,13)=""
^DD(45.02,0,"IX","AC",45.02,14)=""
^DD(45.02,0,"IX","AC",45.02,15)=""
^DD(45.02,0,"IX","ADGRU11",45.02,11)=""
^DD(45.02,0,"IX","ADGRU12",45.02,12)=""
^DD(45.02,0,"IX","ADGRU13",45.02,13)=""
^DD(45.02,0,"IX","ADGRU14",45.02,14)=""
^DD(45.02,0,"IX","ADGRU15",45.02,15)=""
^DD(45.02,0,"IX","ADGRU5",45.02,5)=""
^DD(45.02,0,"IX","ADGRU6",45.02,6)=""
^DD(45.02,0,"IX","ADGRU7",45.02,7)=""
^DD(45.02,0,"IX","ADGRU8",45.02,8)=""
^DD(45.02,0,"IX","ADGRU9",45.02,9)=""
^DD(45.02,0,"IX","AM",45.02,10)=""
^DD(45.02,0,"NM",501)=""
^DD(45.02,0,"UP")="45"
^DD(45.02,.01,0)="MOVEMENT RECORD^MNJ6,1X^^0;1^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""2N.N) X I $D(X) S DINUM=X"
^DD(45.02,.01,1,0)="^.1^^0"
^DD(45.02,.01,3)="Enter the movement record number for this movement, between 1 and 1000"
^DD(45.02,.01,21,0)="^^1^1^2920113^"
^DD(45.02,.01,21,1,0)="This field contains the movement number for this episode of care."
^DD(45.02,.01,"DEL",.01,0)="I DA=1 W *7,!,""Cannot delete discharge movement"""
^DD(45.02,.01,"DT")="2841119"
^DD(45.02,2,0)="LOSING SPECIALTY^*P42.4'X^DIC(42.4,^0;2^S DIC(""S"")=""I $G(DA)=1!($$ACTIVE^DGACT(42.4,+Y,$S($P(^DGPT(DA(1),""""M"""",DA,0),U,10):$P(^(0),U,10),1:$P(^DGPT(DA(1),0),U,2))))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,2,1,0)="^.1"
^DD(45.02,2,1,1,0)="^^TRIGGER^45.02^16"
^DD(45.02,2,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,""M"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(45.02,2,1,1,1.1) X ^DD(45.02,2,1,1,1.4)"
^DD(45.02,2,1,1,1.1)="S X=DIV S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"""")"
^DD(45.02,2,1,1,1.4)="S DIH=$S($D(^DGPT(DIV(0),""M"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.02,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,""M"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" X ^DD(45.02,2,1,1,2.4)"
^DD(45.02,2,1,1,2.4)="S DIH=$S($D(^DGPT(DIV(0),""M"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.02,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.02,2,1,1,"CREATE VALUE")="S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"""")"
^DD(45.02,2,1,1,"DELETE VALUE")="@"
^DD(45.02,2,1,1,"FIELD")="SPECIALTY CDR"
^DD(45.02,2,3)="Enter the losing bedsection for this movement.  This must be an active treating specialty."
^DD(45.02,2,12)="Allows only active treating specialties."
^DD(45.02,2,12.1)="S DIC(""S"")=""I $G(DA)=1!($$ACTIVE^DGACT(42.4,+Y,$S($P(^DGPT(DA(1),""""M"""",DA,0),U,10):$P(^(0),U,10),1:$P(^DGPT(DA(1),0),U,2))))"""
^DD(45.02,2,21,0)="^^1^1^2950831^^^"
^DD(45.02,2,21,1,0)="This field contains the losing bedsection for this movement."
^DD(45.02,2,"DT")="3060814"
^DD(45.02,3,0)="LEAVE DAYS^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.02,3,3)="Enter the total number of days this patient was on leave (authorized absence) from his stay in this bedsection."
^DD(45.02,3,21,0)="^^2^2^2920212^^"
^DD(45.02,3,21,1,0)="This field contains the total number of days this patient was on leave"
^DD(45.02,3,21,2,0)="(authorized absence) from his stay in this bedsection."
^DD(45.02,3,"DT")="2840223"
^DD(45.02,4,0)="PASS DAYS^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.02,4,3)="Enter the total number of days this patient was on pass (Authorized absence <96 hrs) from this bedsection during his stay."
^DD(45.02,4,21,0)="^^2^2^2920212^^"
^DD(45.02,4,21,1,0)="This field contains the total number of days this patient was on pass"
^DD(45.02,4,21,2,0)="(authorized absence <92 hrs) from his bedsection during his stay."
^DD(45.02,4,"DT")="2840223"
^DD(45.02,5,0)="ICD 1^*P80'X^ICD9(^0;5^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=5 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,5,1,0)="^.1"
^DD(45.02,5,1,1,0)="45.02^AC"
^DD(45.02,5,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,5,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,5,1,992,0)="45.02^ADGRU5^MUMPS"
^DD(45.02,5,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,5,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,5,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,5,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,5,1,992,"DT")="2991006"
^DD(45.02,5,3)="Enter the diagnosis that was responsible for the patient's greatest length of stay in this bedsection."
^DD(45.02,5,12)="Only active diagnoses that have not been selected for this movement."
^DD(45.02,5,12.1)="S DIC(""S"")=""S DGI=5 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,5,21,0)="^^2^2^2920212^^^"
^DD(45.02,5,21,1,0)="This field contains the diagnosis responsible for the greatest length"
^DD(45.02,5,21,2,0)="of stay in this bedsection."
^DD(45.02,5,"DT")="3050830"
^DD(45.02,6,0)="ICD 2^*P80'X^ICD9(^0;6^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=6 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,6,1,0)="^.1"
^DD(45.02,6,1,1,0)="45.02^AC"
^DD(45.02,6,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,6,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,6,1,992,0)="45.02^ADGRU6^MUMPS"
^DD(45.02,6,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,6,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,6,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,6,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,6,1,992,"DT")="2991006"
^DD(45.02,6,3)="Enter the second diagnosis for this patient's stay in the bedsection."
^DD(45.02,6,12)="Only active diagnoses that have not yet been selected for this movement"
^DD(45.02,6,12.1)="S DIC(""S"")=""S DGI=6 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,6,21,0)="^^1^1^2920212^^^^"
^DD(45.02,6,21,1,0)="This field contains a diagnosis for the patient's stay in this bedsection."
^DD(45.02,6,"DT")="3050811"
^DD(45.02,7,0)="ICD 3^*P80'X^ICD9(^0;7^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=7 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,7,1,0)="^.1"
^DD(45.02,7,1,1,0)="45.02^AC"
^DD(45.02,7,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,7,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,7,1,992,0)="45.02^ADGRU7^MUMPS"
^DD(45.02,7,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,7,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,7,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,7,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,7,1,992,"DT")="2991006"
^DD(45.02,7,3)="Enter the third ICD diagnosis for this patient's length of stay in the losing bedsection."
^DD(45.02,7,12)="Only active diagnoses that have not yet been selected for this movement."
^DD(45.02,7,12.1)="S DIC(""S"")=""S DGI=7 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,7,21,0)="^^1^1^2920212^^^^"
^DD(45.02,7,21,1,0)="This field contains a diagnosis for the patient's stay in this bedsection."
^DD(45.02,7,"DT")="3050811"
^DD(45.02,8,0)="ICD 4^*P80'X^ICD9(^0;8^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=8 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,8,1,0)="^.1"
^DD(45.02,8,1,1,0)="45.02^AC"
^DD(45.02,8,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,8,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,8,1,992,0)="45.02^ADGRU8^MUMPS"
^DD(45.02,8,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,8,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,8,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,8,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,8,1,992,"DT")="2991006"
^DD(45.02,8,3)="Enter the fourth diagnosis responsible for this patient's length of stay in the medical center."
^DD(45.02,8,12)="Only active diagnoses that have not yet been selected for this movement"
^DD(45.02,8,12.1)="S DIC(""S"")=""S DGI=8 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,8,21,0)="^^1^1^2920212^^^^"
^DD(45.02,8,21,1,0)="This field contains a diagnosis for the patient's stay in this bedsection."
^DD(45.02,8,"DT")="3050811"
^DD(45.02,9,0)="ICD 5^*P80'X^ICD9(^0;9^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=9 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,9,1,0)="^.1"
^DD(45.02,9,1,1,0)="45.02^AC"
^DD(45.02,9,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,9,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,9,1,992,0)="45.02^ADGRU9^MUMPS"
^DD(45.02,9,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,9,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,9,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,9,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,9,1,992,"DT")="2991006"
^DD(45.02,9,3)="Enter the fifth diagnosis responsible for this patient's length of stay in this medical center."
^DD(45.02,9,12)="only active diagnoses that have not yet been selected for this movement."
^DD(45.02,9,12.1)="S DIC(""S"")=""S DGI=9 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,9,21,0)="^^1^1^2920212^^^^"
^DD(45.02,9,21,1,0)="This field contains a diagnosis for the patient's stay in this bedsection."
^DD(45.02,9,"DT")="3050811"
^DD(45.02,10,0)="MOVEMENT DATE^RDX^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) X $S(X<$P(^DGPT(DA(1),0),U,2):""W !,""""Not before admission"""" K X"",X>($S($D(^(70)):$S(+^(70):+^(70),1:9999999),1:9999999)):""W !,""""Not after discharge"""" K X"",1:"""")"
^DD(45.02,10,1,0)="^.1"
^DD(45.02,10,1,1,0)="45.02^AM"
^DD(45.02,10,1,1,1)="S ^DGPT(DA(1),""M"",""AM"",$E(X,1,30),DA)="""""
^DD(45.02,10,1,1,2)="K ^DGPT(DA(1),""M"",""AM"",$E(X,1,30),DA)"
^DD(45.02,10,3)="Enter the date/time of movement for this patients episode of care."
^DD(45.02,10,21,0)="^^1^1^2920212^^^"
^DD(45.02,10,21,1,0)="This field contains the date/time of the movement for this episode of care."
^DD(45.02,10,"DT")="2841224"
^DD(45.02,11,0)="ICD 6^*P80'X^ICD9(^0;11^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=11 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,11,1,0)="^.1"
^DD(45.02,11,1,1,0)="45.02^AC"
^DD(45.02,11,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,11,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,11,1,992,0)="45.02^ADGRU11^MUMPS"
^DD(45.02,11,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,11,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,11,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,11,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,11,1,992,"DT")="2991006"
^DD(45.02,11,3)="Enter the sixth diagnosis for this patient's discharge movement"
^DD(45.02,11,12)="Only active diagnoses that have not yet been selected for this movement."
^DD(45.02,11,12.1)="S DIC(""S"")=""S DGI=11 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,11,21,0)="^^1^1^2920212^^^"
^DD(45.02,11,21,1,0)="This field contains a diagnosis for the patient's stay in this bedsection."
^DD(45.02,11,"DT")="3050811"
^DD(45.02,12,0)="ICD 7^*P80'X^ICD9(^0;12^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=12 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,12,1,0)="^.1"
^DD(45.02,12,1,1,0)="45.02^AC"
^DD(45.02,12,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,12,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,12,1,992,0)="45.02^ADGRU12^MUMPS"
^DD(45.02,12,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,12,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,12,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,12,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,12,1,992,"DT")="2991006"
^DD(45.02,12,3)="Enter the seventh diagnosis responsible for this patient's length of stay in this medical center."
^DD(45.02,12,12)="Only active diagnoses that have not yet been selected for this movement."
^DD(45.02,12,12.1)="S DIC(""S"")=""S DGI=12 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,12,21,0)="^^1^1^2920212^^^"
^DD(45.02,12,21,1,0)="This field contains a diagnosis for the patient's stay in this bedsection."
^DD(45.02,12,"DT")="3050811"
^DD(45.02,13,0)="ICD 8^*P80'X^ICD9(^0;13^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=13 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,13,1,0)="^.1"
^DD(45.02,13,1,1,0)="45.02^AC"
^DD(45.02,13,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,13,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,13,1,992,0)="45.02^ADGRU13^MUMPS"
^DD(45.02,13,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,13,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,13,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,13,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,13,1,992,"DT")="2991006"
^DD(45.02,13,3)="Enter the eighth diagnosis responsible for this patient's length of stay in this medical center."
^DD(45.02,13,12)="Only active diagnoses that have not yet been selected for this movement"
^DD(45.02,13,12.1)="S DIC(""S"")=""S DGI=13 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,13,21,0)="^^1^1^2920212^^"
^DD(45.02,13,21,1,0)="This field contains a diagnosis for the patient's stay in this bedsection."
^DD(45.02,13,"DT")="3050811"
^DD(45.02,14,0)="ICD 9^*P80'X^ICD9(^0;14^D ICDEN^DGPTF5 Q:X=""""  W !,""DIC(0)="",DIC(0) K K S DIC(""S"")=""S DGI=14 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,14,1,0)="^.1"
^DD(45.02,14,1,1,0)="45.02^AC"
^DD(45.02,14,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,14,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,14,1,992,0)="45.02^ADGRU14^MUMPS"
^DD(45.02,14,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,14,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,14,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,14,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,14,1,992,"DT")="2991006"
^DD(45.02,14,3)="Enter the ninth diagnosis responsible for this patient's length of stay in this medical center."
^DD(45.02,14,12)="Only active diagnoses that have not yet been selected for this movement."
^DD(45.02,14,12.1)="S DIC(""S"")=""S DGI=14 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,14,21,0)="^^1^1^2920212^^"
^DD(45.02,14,21,1,0)="This field contains diagnosis for the patients's stay in this bedsection."
^DD(45.02,14,"DT")="3050811"
^DD(45.02,15,0)="ICD 10^*P80'X^ICD9(^0;15^D ICDEN^DGPTF5 Q:X=""""  K K S DIC(""S"")=""S DGI=15 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,15,1,0)="^.1"
^DD(45.02,15,1,1,0)="45.02^AC"
^DD(45.02,15,1,1,1)="S ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)="""""
^DD(45.02,15,1,1,2)="K ^DGPT(DA(1),""M"",""AC"",$E(X,1,30),DA)"
^DD(45.02,15,1,992,0)="45.02^ADGRU15^MUMPS"
^DD(45.02,15,1,992,1)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,15,1,992,2)="N X S X=""DGRUDD01"" X ^%ZOSF(""TEST"") Q:'$T  N DG1 S DG1=+$P(^DGPT(DA(1),0),""^"",1) D:(DG1>0) ADGRU^DGRUDD01(DG1)"
^DD(45.02,15,1,992,"%D",0)="^^1^1^2991006^"
^DD(45.02,15,1,992,"%D",1,0)="Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes"
^DD(45.02,15,1,992,"DT")="2991006"
^DD(45.02,15,3)="Enter the tenth diagnosis responsible for this patient's length of stay in this medical center."
^DD(45.02,15,12)="Only active diagnoses that have not yet been selected for this movement"
^DD(45.02,15,12.1)="S DIC(""S"")=""S DGI=15 D EN^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(45.02,15,21,0)="^^1^1^2920212^^"
^DD(45.02,15,21,1,0)="This field contains a diagnosis for the patients's stay in this bedsection."
^DD(45.02,15,"DT")="3050811"
^DD(45.02,16,0)="SPECIALTY CDR^NJ7,2^^0;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(45.02,16,3)="Type a Number between 0 and 9999, 2 Decimal Digits"
^DD(45.02,16,5,1,0)="45.02^2^1"
^DD(45.02,16,9)="^"
^DD(45.02,16,21,0)="^^2^2^2920114^^"
^DD(45.02,16,21,1,0)="This field contains the CDR for the specialty for which the"
^DD(45.02,16,21,2,0)="patient was being treated."
^DD(45.02,16,"DT")="2900522"
^DD(45.02,17,0)="TRANSMIT FLAG^S^n:NO, DO NOT TRANSMIT;y:YES, TRANSMIT;^0;17^Q"
^DD(45.02,17,21,0)="^^6^6^2900823^^"
^DD(45.02,17,21,1,0)="This flag can be set to stop transmission of a 501 during"
^DD(45.02,17,21,2,0)="PTF and census transmission.  This flag is only used when there"
^DD(45.02,17,21,3,0)="are more than 25 PTF movements.  Austin can only accept 25 or"
^DD(45.02,17,21,4,0)="less."
^DD(45.02,17,21,5,0)=" "
^DD(45.02,17,21,6,0)="If no data is in this field then transmission does occur."
^DD(45.02,17,"DT")="2900613"
^DD(45.02,18,0)="TREATED FOR SC CONDITION^S^1:YES;2:NO;^0;18^Q"
^DD(45.02,18,21,0)="^^1^1^2910701^^^^"
^DD(45.02,18,21,1,0)="This field indicates if patient care was related to a SC disability."
^DD(45.02,18,"DT")="2910628"
^DD(45.02,20,0)="TRANSFER DRG^P80.2'^ICD(^P;1^Q"
^DD(45.02,20,3)="DRG IS STORED WHEN THERE IS A SERVICE TRANSFER"
^DD(45.02,20,21,0)="^^1^1^2920212^^"
^DD(45.02,20,21,1,0)="This field contains the DRG if there was a service transfer."
^DD(45.02,20,"DT")="2861209"
^DD(45.02,21,0)="LOSING SERVICE^F^^P;2^K:$L(X)>30!($L(X)<1) X"
^DD(45.02,21,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(45.02,21,21,0)="^^1^1^2920212^^^"
^DD(45.02,21,21,1,0)="This field contains the losing service for this episode of care."
^DD(45.02,21,"DT")="2861211"
^DD(45.02,22,0)="TRANSFER DATE^D^^P;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(45.02,22,21,0)="^^1^1^2920212^^"
^DD(45.02,22,21,1,0)="This field contain the transfer date into this service."
^DD(45.02,22,"DT")="2870227"
^DD(45.02,23,0)="LOS IN SERVICE^NJ5,0^^P;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.02,23,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(45.02,23,21,0)="^^1^1^2920212^^"
^DD(45.02,23,21,1,0)="This field contains the total length of stay for the patient."
^DD(45.02,23,"DT")="2861231"
^DD(45.02,24,0)="PROVIDER^*P200'^VA(200,^P;5^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.02,24,4)="D HELP^DGPMDD(DA,DT)"
^DD(45.02,24,12)="Only Allow Active Providers."
^DD(45.02,24,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"""
^DD(45.02,24,21,0)="^^1^1^2950209^^^^"
^DD(45.02,24,21,1,0)="This field contains the provider for this episode of care for the patient."
^DD(45.02,24,"DT")="2941207"
^DD(45.02,25,0)="CUMULATIVE LOS^NJ6,0^^P;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.02,25,3)="TOTAL LENGTH OF STAY MINUS PASS AND LEAVE DAYS"
^DD(45.02,25,21,0)="^^1^1^2920212^^"
^DD(45.02,25,21,1,0)="This field contains the total length of stay minus pass and leave days."
^DD(45.02,25,"DT")="2870506"
^DD(45.02,26,0)="TREATED FOR AO CONDITION^SX^Y:YES;N:NO;^0;26^S DGFLAG=1 D 501^DGPTSPQ K:DGER X K DGER,DGFLAG"
^DD(45.02,26,3)="The Patient must have Agent Orange exposure indicated!"
^DD(45.02,26,21,0)="^^2^2^2930506^^"
^DD(45.02,26,21,1,0)="This field indicates if the patient care was related to Agent Orange"
^DD(45.02,26,21,2,0)="exposure."
^DD(45.02,26,"DT")="2930323"
^DD(45.02,27,0)="TREATED FOR IR CONDITION^SX^Y:YES;N:NO;^0;27^S DGFLAG=2 D 501^DGPTSPQ K:DGER X K DGER,DGFLAG"
^DD(45.02,27,3)="The Patient must have Ionizing Radiation exposure indicated!"
^DD(45.02,27,"DT")="2930323"
^DD(45.02,28,0)="EXPOSED TO ENVIR CONTAMINANTS^SX^Y:YES;N:NO;^0;28^S DGFLAG=3 D 501^DGPTSPQ K:DGER X K DGER,DGFLAG"
^DD(45.02,28,3)="The patient must have Environmental Contaminants exposure!"
^DD(45.02,28,"DT")="2930323"
^DD(45.02,29,0)="TREATMENT FOR MST^S^Y:YES;N:NO;^0;29^Q"
^DD(45.02,29,21,0)="^^1^1^2980618^^"
^DD(45.02,29,21,1,0)="Identifies whether treatment was for Military Sexual Trauma."
^DD(45.02,29,"DT")="2980618"
^DD(45.02,30,0)="TREATMENT FOR HEAD/NECK CA^S^Y:YES;N:NO;^0;30^Q"
^DD(45.02,30,21,0)="^^1^1^3010731^"
^DD(45.02,30,21,1,0)="Identifies whether treatment was for Head and/or Neck Cancer."
^DD(45.02,30,"DT")="3010731"
^DD(45.02,31,0)="POTENTIALLY RELATED TO COMBAT^S^Y:YES;N:NO;^0;31^Q"
^DD(45.02,31,3)="Care is potentially related to military combat."
^DD(45.02,31,21,0)="^^7^7^3031209^"
^DD(45.02,31,21,1,0)="Indicate if the inpatient stay at this location is related to military"
^DD(45.02,31,21,2,0)="service in combat and not from cause other than military service in"
^DD(45.02,31,21,3,0)="combat operations (congenital, developmental, pre-service existing"
^DD(45.02,31,21,4,0)="conditions, or conditions having specific and well-established etiology"
^DD(45.02,31,21,5,0)="that began after military combat service, i.e., bone fractures occurring"
^DD(45.02,31,21,6,0)="after separation date, commond colds, etc).  This information can only be"
^DD(45.02,31,21,7,0)="entered if the patient has CV status in Registration."
^DD(45.02,31,"DT")="3031209"
^DD(45.02,300.02,0)="SUICIDE/SELF INFLICT INDICATOR^SX^1:Attempted Suicide;2:Accomplished Suicide;3:Self Inflicted Injury;^300;2^S DGFLAG=2 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG Q"
^DD(45.02,300.02,3)=""
^DD(45.02,300.02,21,0)="^^2^2^2930305^^^^"
^DD(45.02,300.02,21,1,0)="This field will indicate if the suicide was attempted or accomplished"
^DD(45.02,300.02,21,2,0)="or if a self inflicted injury occurred."
^DD(45.02,300.02,23,0)="^^12^12^2930305^^^"
^DD(45.02,300.02,23,1,0)="The process for loading this field consist of the "
^DD(45.02,300.02,23,2,0)="following steps:"
^DD(45.02,300.02,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45.02,300.02,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45.02,300.02,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45.02,300.02,23,6,0)="additional information. The PTF EXPANDED CODE FILE (45.89)"
^DD(45.02,300.02,23,7,0)="contains all ICD's that require special processing."
^DD(45.02,300.02,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45.02,300.02,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45.02,300.02,23,10,0)="are required to complete the data entry for a particular"
^DD(45.02,300.02,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45.02,300.02,23,12,0)="additional information."
^DD(45.02,300.02,"DT")="2930305"
^DD(45.02,300.03,0)="LEGIONNAIRE'S DISEASE^SX^1:Yes;2:No;^300;3^S DGFLAG=3 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG Q"
^DD(45.02,300.03,3)=""
^DD(45.02,300.03,21,0)="^^2^2^2910507^^"
^DD(45.02,300.03,21,1,0)="This field will indicated if the patient was treated for Legionnaire's"
^DD(45.02,300.03,21,2,0)="Disease."
^DD(45.02,300.03,23,0)="^^12^12^2910507^"
^DD(45.02,300.03,23,1,0)="The process for loading this field consist of the "
^DD(45.02,300.03,23,2,0)="following steps:"
^DD(45.02,300.03,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45.02,300.03,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45.02,300.03,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45.02,300.03,23,6,0)="additional information. The PTF EXPANDED CODE FILE (45.89)"
^DD(45.02,300.03,23,7,0)="contains all ICD's that require special processing."
^DD(45.02,300.03,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45.02,300.03,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45.02,300.03,23,10,0)="are required to complete the data entry for a particular"
^DD(45.02,300.03,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45.02,300.03,23,12,0)="additional information."
^DD(45.02,300.03,"DT")="2910515"
^DD(45.02,300.04,0)="SUBSTANCE ABUSE^P45.61'X^DIC(45.61,^300;4^S DGFLAG=4 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG"
^DD(45.02,300.04,3)=""
^DD(45.02,300.04,21,0)="^^1^1^2910507^^"
^DD(45.02,300.04,21,1,0)="Select type of substance abused by the patient."
^DD(45.02,300.04,23,0)="^^12^12^2910507^"
^DD(45.02,300.04,23,1,0)="The process for loading this field consist of the "
^DD(45.02,300.04,23,2,0)="following steps:"
^DD(45.02,300.04,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45.02,300.04,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45.02,300.04,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45.02,300.04,23,6,0)="additional information. The PTF EXPANDED CODE FILE (45.89)"
^DD(45.02,300.04,23,7,0)="contains all ICD's that require special processing."
^DD(45.02,300.04,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45.02,300.04,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45.02,300.04,23,10,0)="are required to complete the data entry for a particular"
^DD(45.02,300.04,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45.02,300.04,23,12,0)="additional information."
^DD(45.02,300.04,"DT")="2910515"
^DD(45.02,300.05,0)="PSYCHIATRY CLASS. SEVERITY^SX^0:INADEQUATE INFO OR NO CHANGE;1:NONE;2:MILD;3:MODERATE;4:SEVERE;5:EXTREME;6:CATASTROPHIC;^300;5^S DGFLAG=5 D 501^DGPTSC01 K:DGER X K DGER,DGFLAG"
^DD(45.02,300.05,3)=""
^DD(45.02,300.05,21,0)="^^1^1^2910731^^^^"
^DD(45.02,300.05,21,1,0)="This field is an overall rating indicating maximal stress."
^DD(45.02,300.05,23,0)="^^12^12^2910725^^^^"
^DD(45.02,300.05,23,1,0)="The process for loading this field consist of the "
^DD(45.02,300.05,23,2,0)="following steps:"
^DD(45.02,300.05,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45.02,300.05,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45.02,300.05,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45.02,300.05,23,6,0)="additional information. The PTF EXPANDED CODE FILE (45.89)"
^DD(45.02,300.05,23,7,0)="contains all ICD's that require special processing."
^DD(45.02,300.05,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45.02,300.05,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45.02,300.05,23,10,0)="are required to complete the data entry for a particular"
^DD(45.02,300.05,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45.02,300.05,23,12,0)="additional information."
^DD(45.02,300.05,"DT")="2910515"
^DD(45.02,300.06,0)="CURRENT PSYCH CLASS ASSESS^NJ2,0X^^300;6^S DGFLAG=6 D 501^DGPTSC01 S:DGER X="""" K DGFLAG,DGER K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.02,300.06,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(45.02,300.06,21,0)="^^35^35^2970911^^^^"
^DD(45.02,300.06,21,1,0)="CODE        TERMINOLOGY"
^DD(45.02,300.06,21,2,0)=" "
^DD(45.02,300.06,21,3,0)="90 TO 81    ABSENT OR MINIMAL SYMPTOMS"
^DD(45.02,300.06,21,4,0)=" "
^DD(45.02,300.06,21,5,0)="80 TO 71    IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND"
^DD(45.02,300.06,21,6,0)="            EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS"
^DD(45.02,300.06,21,7,0)=" "
^DD(45.02,300.06,21,8,0)="70 TO 61    SOME MILD SYMPTOMS OR SOME DIFFICULTY IN"
^DD(45.02,300.06,21,9,0)="            SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45.02,300.06,21,10,0)=" "
^DD(45.02,300.06,21,11,0)="60 TO 51    MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN"
^DD(45.02,300.06,21,12,0)="            SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45.02,300.06,21,13,0)=" "
^DD(45.02,300.06,21,14,0)="50 TO 41    SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN"
^DD(45.02,300.06,21,15,0)="            SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45.02,300.06,21,16,0)=" "
^DD(45.02,300.06,21,17,0)="40 TO 31    SOME IMPAIRMENT IN REALITY TESTING OR"
^DD(45.02,300.06,21,18,0)="            COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL"
^DD(45.02,300.06,21,19,0)="            AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,"
^DD(45.02,300.06,21,20,0)="            JUDGEMENT, THINKING OR MOOD"
^DD(45.02,300.06,21,21,0)=" "
^DD(45.02,300.06,21,22,0)="30 TO 21    SOME DANGER OF HURTING SELF OR OTHERS OR"
^DD(45.02,300.06,21,23,0)="            OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE"
^DD(45.02,300.06,21,24,0)="            OR GROSS IMPAIRMENT IN COMMUNICATION OR"
^DD(45.02,300.06,21,25,0)="            JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST"
^DD(45.02,300.06,21,26,0)="            ALL AREAS"
^DD(45.02,300.06,21,27,0)=" "
^DD(45.02,300.06,21,28,0)="20 TO 11    SOME DANGER OF HURTING SELF OR OTHERS OR"
^DD(45.02,300.06,21,29,0)="            OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL"
^DD(45.02,300.06,21,30,0)="            HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION"
^DD(45.02,300.06,21,31,0)=" "
^DD(45.02,300.06,21,32,0)="10 TO 1     PERSISTENT DANGER OF SEVERELY HURTING SELF OR"
^DD(45.02,300.06,21,33,0)="            OTHERS OR PERSISTENT INABILITY TO MAINTAIN"
^DD(45.02,300.06,21,34,0)="            MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL"
^DD(45.02,300.06,21,35,0)="            ACT WITH CLEAR EXPECTATIONS OF DEATH"
^DD(45.02,300.06,23,0)="^^12^12^2970911^^^^"
^DD(45.02,300.06,23,1,0)="The process for loading this field consist of the "
^DD(45.02,300.06,23,2,0)="following steps:"
^DD(45.02,300.06,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45.02,300.06,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45.02,300.06,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45.02,300.06,23,6,0)="additional information. The PTF EXPANDED CODE FILE (45.89)"
^DD(45.02,300.06,23,7,0)="contains all ICD's that require special processing."
^DD(45.02,300.06,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45.02,300.06,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45.02,300.06,23,10,0)="are required to complete the data entry for a particular"
^DD(45.02,300.06,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45.02,300.06,23,12,0)="additional information."
^DD(45.02,300.06,"DT")="2970911"
^DD(45.02,300.07,0)="HIGH LEVEL PSYCH CLASS^NJ2,0X^^300;7^S DGFLAG=7 D 501^DGPTSC01 S:DGER X="""" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.02,300.07,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(45.02,300.07,21,0)="^^35^35^2970911^^^"
^DD(45.02,300.07,21,1,0)="CODE         TERMINOLOGY"
^DD(45.02,300.07,21,2,0)=" "
^DD(45.02,300.07,21,3,0)="90 TO 81     ABSENT OR MINIMAL SYMPTOMS"
^DD(45.02,300.07,21,4,0)=" "
^DD(45.02,300.07,21,5,0)="80 TO 71     IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND"
^DD(45.02,300.07,21,6,0)="             EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS"
^DD(45.02,300.07,21,7,0)=" "
^DD(45.02,300.07,21,8,0)="70 TO 61     SOME MILD SYMPTOMS OR SOME DIFFICULTY IN"
^DD(45.02,300.07,21,9,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45.02,300.07,21,10,0)=" "
^DD(45.02,300.07,21,11,0)="60 TO 51     MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN"
^DD(45.02,300.07,21,12,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45.02,300.07,21,13,0)=" "
^DD(45.02,300.07,21,14,0)="50 TO 41     SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN"
^DD(45.02,300.07,21,15,0)="             SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING"
^DD(45.02,300.07,21,16,0)=" "
^DD(45.02,300.07,21,17,0)="40 TO 31     SOME IMPAIRMENT IN REALITY TESTING OR"
^DD(45.02,300.07,21,18,0)="             COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL"
^DD(45.02,300.07,21,19,0)="             AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,"
^DD(45.02,300.07,21,20,0)="             JUDGEMENT, THINKING OR MOOD"
^DD(45.02,300.07,21,21,0)=" "
^DD(45.02,300.07,21,22,0)="30 TO 21     SOME DANGER OF HURTING SELF OR OTHERS OR"
^DD(45.02,300.07,21,23,0)="             OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE"
^DD(45.02,300.07,21,24,0)="             OR GROSS IMPAIRMENT IN COMMUNICATION OR"
^DD(45.02,300.07,21,25,0)="             JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST"
^DD(45.02,300.07,21,26,0)="             ALL AREAS"
^DD(45.02,300.07,21,27,0)=" "
^DD(45.02,300.07,21,28,0)="20 TO 11     SOME DANGER OR HURTING SELF OR OTHERS OR"
^DD(45.02,300.07,21,29,0)="             OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL"
^DD(45.02,300.07,21,30,0)="             HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION"
^DD(45.02,300.07,21,31,0)=" "
^DD(45.02,300.07,21,32,0)="10 TO 1      PERSISTENT DANGER OF SEVERELY HURTING SELF OR"
^DD(45.02,300.07,21,33,0)="             OTHERS OR PERSISTENT INABILITY TO MAINTAIN"
^DD(45.02,300.07,21,34,0)="             MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL"
^DD(45.02,300.07,21,35,0)="             ACT WITH CLEAR EXPECTATIONS OF DEATH"
^DD(45.02,300.07,23,0)="^^12^12^2970911^^"
^DD(45.02,300.07,23,1,0)="The process for loading this field consist of the "
^DD(45.02,300.07,23,2,0)="following steps:"
^DD(45.02,300.07,23,3,0)="1) Load the DGPTIT array with the ICD codes from "
^DD(45.02,300.07,23,4,0)="the PTF <401>, <501> or the <701> screen."
^DD(45.02,300.07,23,5,0)="2) Scan the DGPTIT array for codes that require "
^DD(45.02,300.07,23,6,0)="additional information. The PTF EXPANDED CODE FILE (45.89)"
^DD(45.02,300.07,23,7,0)="contains all ICD's that require special processing."
^DD(45.02,300.07,23,8,0)="If a match is made an entry is made in the DGBPC array."
^DD(45.02,300.07,23,9,0)="3) If the DGBPC array exist then additional questions"
^DD(45.02,300.07,23,10,0)="are required to complete the data entry for a particular"
^DD(45.02,300.07,23,11,0)="ICD. This flag is then used to prompt the user for any"
^DD(45.02,300.07,23,12,0)="additional information."
^DD(45.02,300.07,"DT")="2970911"
^DD(45.02,"B","CUMULATIVE LOS",25)=""
^DD(45.02,"B","CURRENT PSYCH CLASS ASSESS",300.06)=""
^DD(45.02,"B","EXPOSED TO ENVIR CONTAMINANTS",28)=""
^DD(45.02,"B","HIGH LEVEL PSYCH CLASS",300.07)=""
^DD(45.02,"B","ICD 1",5)=""
^DD(45.02,"B","ICD 10",15)=""
^DD(45.02,"B","ICD 2",6)=""
^DD(45.02,"B","ICD 3",7)=""
^DD(45.02,"B","ICD 4",8)=""
^DD(45.02,"B","ICD 5",9)=""
^DD(45.02,"B","ICD 6",11)=""
^DD(45.02,"B","ICD 7",12)=""
^DD(45.02,"B","ICD 8",13)=""
^DD(45.02,"B","ICD 9",14)=""
^DD(45.02,"B","LEAVE DAYS",3)=""
^DD(45.02,"B","LEGIONNAIRE'S DISEASE",300.03)=""
^DD(45.02,"B","LOS IN SERVICE",23)=""
^DD(45.02,"B","LOSING SERVICE",21)=""
^DD(45.02,"B","LOSING SPECIALTY",2)=""
^DD(45.02,"B","MOVEMENT DATE",10)=""
^DD(45.02,"B","MOVEMENT RECORD",.01)=""
^DD(45.02,"B","PASS DAYS",4)=""
^DD(45.02,"B","POTENTIALLY RELATED TO COMBAT",31)=""
^DD(45.02,"B","PROVIDER",24)=""
^DD(45.02,"B","PSYCHIATRY CLASS. SEVERITY",300.05)=""
^DD(45.02,"B","SPECIALTY CDR",16)=""
^DD(45.02,"B","SUBSTANCE ABUSE",300.04)=""
^DD(45.02,"B","SUICIDE/SELF INFLICT INDICATOR",300.02)=""
^DD(45.02,"B","TRANSFER DATE",22)=""
^DD(45.02,"B","TRANSFER DRG",20)=""
^DD(45.02,"B","TRANSMIT FLAG",17)=""
^DD(45.02,"B","TREATED FOR AO CONDITION",26)=""
^DD(45.02,"B","TREATED FOR IR CONDITION",27)=""
^DD(45.02,"B","TREATED FOR SC CONDITION",18)=""
^DD(45.02,"B","TREATMENT FOR HEAD/NECK CA",30)=""
^DD(45.02,"B","TREATMENT FOR MST",29)=""
^DD(45.02,"GL",0,1,.01)=""
^DD(45.02,"GL",0,2,2)=""
^DD(45.02,"GL",0,3,3)=""
^DD(45.02,"GL",0,4,4)=""
^DD(45.02,"GL",0,5,5)=""
^DD(45.02,"GL",0,6,6)=""
^DD(45.02,"GL",0,7,7)=""
^DD(45.02,"GL",0,8,8)=""
^DD(45.02,"GL",0,9,9)=""
^DD(45.02,"GL",0,10,10)=""
^DD(45.02,"GL",0,11,11)=""
^DD(45.02,"GL",0,12,12)=""
^DD(45.02,"GL",0,13,13)=""
^DD(45.02,"GL",0,14,14)=""
^DD(45.02,"GL",0,15,15)=""
^DD(45.02,"GL",0,16,16)=""
^DD(45.02,"GL",0,17,17)=""
^DD(45.02,"GL",0,18,18)=""
^DD(45.02,"GL",0,26,26)=""
^DD(45.02,"GL",0,27,27)=""
^DD(45.02,"GL",0,28,28)=""
^DD(45.02,"GL",0,29,29)=""
^DD(45.02,"GL",0,30,30)=""
^DD(45.02,"GL",0,31,31)=""
^DD(45.02,"GL",300,2,300.02)=""
^DD(45.02,"GL",300,3,300.03)=""
^DD(45.02,"GL",300,4,300.04)=""
^DD(45.02,"GL",300,5,300.05)=""
^DD(45.02,"GL",300,6,300.06)=""
^DD(45.02,"GL",300,7,300.07)=""
^DD(45.02,"GL","P",1,20)=""
^DD(45.02,"GL","P",2,21)=""
^DD(45.02,"GL","P",3,22)=""
^DD(45.02,"GL","P",4,23)=""
^DD(45.02,"GL","P",5,24)=""
^DD(45.02,"GL","P",6,25)=""
^DD(45.02,"IX",2)=""
^DD(45.02,"IX",5)=""
^DD(45.02,"IX",6)=""
^DD(45.02,"IX",7)=""
^DD(45.02,"IX",8)=""
^DD(45.02,"IX",9)=""
^DD(45.02,"IX",10)=""
^DD(45.02,"IX",11)=""
^DD(45.02,"IX",12)=""
^DD(45.02,"IX",13)=""
^DD(45.02,"IX",14)=""
^DD(45.02,"IX",15)=""
^DD(45.02,"RQ",10)=""
^DD(45.03,0)="CODING CLERK SUB-FIELD^NL^.01^1"
^DD(45.03,0,"NM","CODING CLERK")=""
^DD(45.03,0,"UP")="45"
^DD(45.03,.01,0)="CODING CLERK^P200'^VA(200,^0;1^Q"
^DD(45.03,.01,21,0)="^^2^2^2920212^"
^DD(45.03,.01,21,1,0)="Coding clerk who worked on the PTF record for this episode of care"
^DD(45.03,.01,21,2,0)="(closing it out)."
^DD(45.03,.01,"DT")="2900922"
^DD(45.03,"B","CODING CLERK",.01)=""
^DD(45.03,"GL",0,1,.01)=""
^DD(45.04,0)="CENSUS YEAR SUB-FIELD^NL^3^3"
^DD(45.04,0,"NM","CENSUS YEAR")=""
^DD(45.04,0,"UP")="45"
^DD(45.04,.01,0)="CENSUS YEAR^DX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:+$E(X,4,5) X I $D(X) S DINUM=X"
^DD(45.04,.01,21,0)="^^1^1^2920212^"
^DD(45.04,.01,21,1,0)="Fiscal Year that the patient census was conducted."
^DD(45.04,.01,"DT")="2851105"
^DD(45.04,2,0)="DATE TRANSMITTED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.04,2,21,0)="^^1^1^2920212^"
^DD(45.04,2,21,1,0)="Date/time the census record for an episode of care was transmitted."
^DD(45.04,2,"DT")="2851105"
^DD(45.04,3,0)="MESSAGE^P3.9'^XMB(3.9,^0;3^Q"
^DD(45.04,3,21,0)="^^2^2^2920212^"
^DD(45.04,3,21,1,0)="E-mail message received by transmitting clerk that record was indeed"
^DD(45.04,3,21,2,0)="transmitted."
^DD(45.04,3,"DT")="2851106"
^DD(45.04,"B","CENSUS YEAR",.01)=""
^DD(45.04,"B","DATE TRANSMITTED",2)=""
^DD(45.04,"B","MESSAGE",3)=""
^DD(45.04,"GL",0,1,.01)=""
^DD(45.04,"GL",0,2,2)=""
^DD(45.04,"GL",0,3,3)=""
^DD(45.05,0)="601 SUB-FIELD^^8^9"
^DD(45.05,0,"DIK")="DGPTXX"
^DD(45.05,0,"DT")="2950731"
^DD(45.05,0,"IX","AP1",45.05,4)=""
^DD(45.05,0,"IX","AP2",45.05,5)=""
^DD(45.05,0,"IX","AP3",45.05,6)=""
^DD(45.05,0,"IX","AP4",45.05,7)=""
^DD(45.05,0,"IX","AP5",45.05,8)=""
^DD(45.05,0,"NM",601)=""
^DD(45.05,0,"UP")="45"
^DD(45.05,.01,0)="PROCEDURE DATE^MDX^^0;1^S %DT=""ET"" D ^%DT S X=+Y K:+Y<1 X I $D(X) X $S(X<$P(^DGPT(DA(1),0),U,2):""W !,""""Not before Admission"""" K X"",X>($S($D(^(70)):$S(+^(70):+^(70),1:9999999),1:9999999)):""W !,""""Not after discharge"""" K X"",1:""S X=X"")"
^DD(45.05,.01,3)="Enter a date after the admission date/time and before the discharge date/time."
^DD(45.05,.01,21,0)="^^1^1^2880615^^^^"
^DD(45.05,.01,21,1,0)="Enter the date of the procedure."
^DD(45.05,.01,"DT")="2901210"
^DD(45.05,1,0)="SPECIALTY^*P42.4'^DIC(42.4,^0;2^S DIC(""S"")=""I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),""""P"""",DA,0),U))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.05,1,3)="Enter treating specialty.  This must be an active treating specialty."
^DD(45.05,1,12)="Allows only active treating specialties."
^DD(45.05,1,12.1)="S DIC(""S"")=""I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),""""P"""",DA,0),U))"""
^DD(45.05,1,21,0)="^^1^1^2920212^"
^DD(45.05,1,21,1,0)="Treating specialty for which this 601 movement was associated."
^DD(45.05,1,"DT")="2950731"
^DD(45.05,2,0)="DIALYSIS TYPE^P45.4'^DG(45.4,^0;3^Q"
^DD(45.05,2,1,0)="^.1^^0"
^DD(45.05,2,21,0)="^^2^2^2920212^"
^DD(45.05,2,21,1,0)="If applicable, the PTF designated dialysis type of care received"
^DD(45.05,2,21,2,0)="during this episode of care."
^DD(45.05,2,"DT")="2901019"
^DD(45.05,3,0)="NUMBER OF DIALYSIS TREATMENTS^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.05,3,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(45.05,3,21,0)="^.001^2^2^3070222^^^^"
^DD(45.05,3,21,1,0)="Total number of dialysis treatments received during this episode of"
^DD(45.05,3,21,2,0)="care."
^DD(45.05,3,"DT")="3070215"
^DD(45.05,4,0)="PROCEDURE CODE 1^*P80.1'^ICD0(^0;5^S DIC(""S"")=""S DGI=5,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.05,4,1,0)="^.1"
^DD(45.05,4,1,1,0)="45.05^AP1^MUMPS"
^DD(45.05,4,1,1,1)="S ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)="""""
^DD(45.05,4,1,1,2)="K ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)"
^DD(45.05,4,12)="first Procedure Code for this 601 transaction"
^DD(45.05,4,12.1)="S DIC(""S"")=""S DGI=5,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.05,4,21,0)="^^2^2^2920212^"
^DD(45.05,4,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.05,4,21,2,0)="indicating a procedure was performed during this episode of care."
^DD(45.05,4,"DT")="2880211"
^DD(45.05,5,0)="PROCEDURE CODE 2^*P80.1'^ICD0(^0;6^S DIC(""S"")=""S DGI=6,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.05,5,1,0)="^.1"
^DD(45.05,5,1,1,0)="45.05^AP2^MUMPS"
^DD(45.05,5,1,1,1)="S ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)="""""
^DD(45.05,5,1,1,2)="K ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)"
^DD(45.05,5,12)="second Procedure Code for this 601 transaction"
^DD(45.05,5,12.1)="S DIC(""S"")=""S DGI=6,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.05,5,21,0)="^^2^2^2920212^"
^DD(45.05,5,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.05,5,21,2,0)="indicating a procedure was performed during this episode of care."
^DD(45.05,5,"DT")="2880211"
^DD(45.05,6,0)="PROCEDURE CODE 3^*P80.1'^ICD0(^0;7^S DIC(""S"")=""S DGI=7,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.05,6,1,0)="^.1"
^DD(45.05,6,1,1,0)="45.05^AP3^MUMPS"
^DD(45.05,6,1,1,1)="S ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)="""""
^DD(45.05,6,1,1,2)="K ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)"
^DD(45.05,6,12)="third Procedure Code for this 601 transaction"
^DD(45.05,6,12.1)="S DIC(""S"")=""S DGI=7,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.05,6,21,0)="^^2^2^2920212^"
^DD(45.05,6,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.05,6,21,2,0)="indicating a procedure was performed during this episode of care."
^DD(45.05,6,"DT")="2880211"
^DD(45.05,7,0)="PROCEDURE CODE 4^*P80.1'^ICD0(^0;8^S DIC(""S"")=""S DGI=8,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.05,7,1,0)="^.1"
^DD(45.05,7,1,1,0)="45.05^AP4^MUMPS"
^DD(45.05,7,1,1,1)="S ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)="""""
^DD(45.05,7,1,1,2)="K ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)"
^DD(45.05,7,12)="fourth Procedure Code for this 601 transaction"
^DD(45.05,7,12.1)="S DIC(""S"")=""S DGI=8,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.05,7,21,0)="^^2^2^2920212^^"
^DD(45.05,7,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.05,7,21,2,0)="indicating a procedure was performed during this episode of care."
^DD(45.05,7,"DT")="2880211"
^DD(45.05,8,0)="PROCEDURE CODE 5^*P80.1'^ICD0(^0;9^S DIC(""S"")=""S DGI=9,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.05,8,1,0)="^.1"
^DD(45.05,8,1,1,0)="45.05^AP5^MUMPS"
^DD(45.05,8,1,1,1)="S ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)="""""
^DD(45.05,8,1,1,2)="K ^DGPT(DA(1),""P"",""AP6"",$E(X,1,30),DA)"
^DD(45.05,8,12)="fifth Procedure Code for this 601 transaction"
^DD(45.05,8,12.1)="S DIC(""S"")=""S DGI=9,DGCR=""""AP6"""",DGSB=""""P"""" D EN1^DGPTFJC K DGI,DGCR,DGSB,K I 'DGER"""
^DD(45.05,8,21,0)="^^2^2^2920212^"
^DD(45.05,8,21,1,0)="This field contains a pointer to the ICD OPERATION/PROCEDURE File (#80.1)"
^DD(45.05,8,21,2,0)="indicating a procedure was performed during this episode of care."
^DD(45.05,8,"DT")="2880211"
^DD(45.05,"B","DIALYSIS TYPE",2)=""
^DD(45.05,"B","NUMBER OF DIALYSIS TREATMENTS",3)=""
^DD(45.05,"B","PROCEDURE CODE 1",4)=""
^DD(45.05,"B","PROCEDURE CODE 2",5)=""
^DD(45.05,"B","PROCEDURE CODE 3",6)=""
^DD(45.05,"B","PROCEDURE CODE 4",7)=""
^DD(45.05,"B","PROCEDURE CODE 5",8)=""
^DD(45.05,"B","PROCEDURE DATE",.01)=""
^DD(45.05,"B","SPECIALTY",1)=""
^DD(45.05,"GL",0,1,.01)=""
^DD(45.05,"GL",0,2,1)=""
^DD(45.05,"GL",0,3,2)=""
^DD(45.05,"GL",0,4,3)=""
^DD(45.05,"GL",0,5,4)=""
^DD(45.05,"GL",0,6,5)=""
^DD(45.05,"GL",0,7,6)=""
^DD(45.05,"GL",0,8,7)=""
^DD(45.05,"GL",0,9,8)=""
^DD(45.05,"IX",4)=""
^DD(45.05,"IX",5)=""
^DD(45.05,"IX",6)=""
^DD(45.05,"IX",7)=""
^DD(45.05,"IX",8)=""
^DD(45.0535,0)="535 SUB-FIELD^^17^9"
^DD(45.0535,0,"DIK")="DGPTXX"
^DD(45.0535,0,"DT")="2950731"
^DD(45.0535,0,"ID",10)="W ""   "",$E($P(^(0),U,10),4,5)_""-""_$E($P(^(0),U,10),6,7)_""-""_$E($P(^(0),U,10),2,3)"
^DD(45.0535,0,"ID",17)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(45.0535,17,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,17)_"""":"""",2),$C(59),1)"")"
^DD(45.0535,0,"IX","ADC",45.0535,7)=""
^DD(45.0535,0,"IX","AM",45.0535,10)=""
^DD(45.0535,0,"NM",535)=""
^DD(45.0535,0,"UP")="45"
^DD(45.0535,.01,0)="PHYSICAL MOVEMENT^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.0535,.01,1,0)="^.1^^0"
^DD(45.0535,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(45.0535,.01,21,0)="^^1^1^2900823^"
^DD(45.0535,.01,21,1,0)="Computed generated movement number(1,2,3, etc.)"
^DD(45.0535,.01,"DT")="2900503"
^DD(45.0535,2,0)="LOSING WARD SPECIALTY^*P42.4'^DIC(42.4,^0;2^S DIC(""S"")=""I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),535,DA,0),U,10))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.0535,2,1,0)="^.1"
^DD(45.0535,2,1,1,0)="^^TRIGGER^45.0535^16"
^DD(45.0535,2,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,535,D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(45.0535,2,1,1,1.1) X ^DD(45.0535,2,1,1,1.4)"
^DD(45.0535,2,1,1,1.1)="S X=DIV S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"""")"
^DD(45.0535,2,1,1,1.4)="S DIH=$S($D(^DGPT(DIV(0),535,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.0535,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.0535,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGPT(D0,535,D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" X ^DD(45.0535,2,1,1,2.4)"
^DD(45.0535,2,1,1,2.4)="S DIH=$S($D(^DGPT(DIV(0),535,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=45.0535,DIG=16 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.0535,2,1,1,"CREATE VALUE")="S X=$S($D(^DIC(42.4,X,0)):$P(^(0),U,6),1:"""")"
^DD(45.0535,2,1,1,"DELETE VALUE")="@"
^DD(45.0535,2,1,1,"FIELD")="LOSING WARD CDR"
^DD(45.0535,2,12)="Allows only active treating specialties."
^DD(45.0535,2,12.1)="S DIC(""S"")=""I $$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA(1),535,DA,0),U,10))"""
^DD(45.0535,2,21,0)="^^1^1^2950901^^"
^DD(45.0535,2,21,1,0)="Specialty of the ward losing the patient."
^DD(45.0535,2,"DT")="2950731"
^DD(45.0535,3,0)="LEAVE DAYS^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.0535,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(45.0535,3,21,0)="^^1^1^2900823^"
^DD(45.0535,3,21,1,0)="Number of leave days accumulated during movement."
^DD(45.0535,3,"DT")="2900503"
^DD(45.0535,4,0)="PASS DAYS^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.0535,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(45.0535,4,21,0)="^^1^1^2900823^"
^DD(45.0535,4,21,1,0)="Number of pass days accumulated during movement."
^DD(45.0535,4,"DT")="2900504"
^DD(45.0535,6,0)="LOSING WARD^P42'^DIC(42,^0;6^Q"
^DD(45.0535,6,21,0)="^^1^1^2900823^"
^DD(45.0535,6,21,1,0)="Name of the losing ward."
^DD(45.0535,6,"DT")="2900508"
^DD(45.0535,7,0)="DISCHARGE MOVEMENT^S^0:NO;1:YES;^0;7^Q"
^DD(45.0535,7,1,0)="^.1"
^DD(45.0535,7,1,1,0)="45.0535^ADC"
^DD(45.0535,7,1,1,1)="S ^DGPT(DA(1),535,""ADC"",$E(X,1,30),DA)="""""
^DD(45.0535,7,1,1,2)="K ^DGPT(DA(1),535,""ADC"",$E(X,1,30),DA)"
^DD(45.0535,7,21,0)="^^2^2^2900823^"
^DD(45.0535,7,21,1,0)="This field indicates whether this movement is the final movement"
^DD(45.0535,7,21,2,0)="(ie. discharge) for the admission."
^DD(45.0535,7,"DT")="2900516"
^DD(45.0535,10,0)="MOVEMENT DATE^D^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.0535,10,1,0)="^.1"
^DD(45.0535,10,1,1,0)="45.0535^AM"
^DD(45.0535,10,1,1,1)="S ^DGPT(DA(1),535,""AM"",$E(X,1,30),DA)="""""
^DD(45.0535,10,1,1,2)="K ^DGPT(DA(1),535,""AM"",$E(X,1,30),DA)"
^DD(45.0535,10,21,0)="^^1^1^2900823^^"
^DD(45.0535,10,21,1,0)="This field holds the date and time of the movement."
^DD(45.0535,10,"DT")="2900515"
^DD(45.0535,16,0)="LOSING WARD CDR^NJ7,2^^0;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(45.0535,16,3)="Type a Number between 0 and 9999, 2 Decimal Digits"
^DD(45.0535,16,5,1,0)="45.0535^2^1"
^DD(45.0535,16,9)="^"
^DD(45.0535,16,21,0)="^^1^1^2900823^"
^DD(45.0535,16,21,1,0)="This field contains the CDR number for the losing ward."
^DD(45.0535,16,"DT")="2900522"
^DD(45.0535,17,0)="TRANSMIT FLAG^S^n:NO, DO NOT TRANSMIT;y:YES, TRANSMIT;^0;17^Q"
^DD(45.0535,17,21,0)="^^6^6^2900613^"
^DD(45.0535,17,21,1,0)="This flag can be set to stop transmission of a 535 during"
^DD(45.0535,17,21,2,0)="PTF and census transmission.  This flag is only used when there"
^DD(45.0535,17,21,3,0)="are more than 25 535 movements.  Austin can only accept 25 or"
^DD(45.0535,17,21,4,0)="less."
^DD(45.0535,17,21,5,0)=" "
^DD(45.0535,17,21,6,0)="If no data is in this field then transmission does occur."
^DD(45.0535,17,"DT")="2900613"
^DD(45.0535,"B","DISCHARGE MOVEMENT",7)=""
^DD(45.0535,"B","LEAVE DAYS",3)=""
^DD(45.0535,"B","LOSING WARD",6)=""
^DD(45.0535,"B","LOSING WARD CDR",16)=""
^DD(45.0535,"B","LOSING WARD SPECIALTY",2)=""
^DD(45.0535,"B","MOVEMENT DATE",10)=""
^DD(45.0535,"B","PASS DAYS",4)=""
^DD(45.0535,"B","PHYSICAL MOVEMENT",.01)=""
^DD(45.0535,"B","TRANSMIT FLAG",17)=""
^DD(45.0535,"GL",0,1,.01)=""
^DD(45.0535,"GL",0,2,2)=""
^DD(45.0535,"GL",0,3,3)=""
^DD(45.0535,"GL",0,4,4)=""
^DD(45.0535,"GL",0,6,6)=""
^DD(45.0535,"GL",0,7,7)=""
^DD(45.0535,"GL",0,10,10)=""
^DD(45.0535,"GL",0,16,16)=""
^DD(45.0535,"GL",0,17,17)=""
^DD(45.0535,"IX",2)=""
^DD(45.0535,"IX",7)=""
^DD(45.0535,"IX",10)=""
^DD(45.06,0)="CPT RECORD DATE/TIME SUB-FIELD^^.09^8"
^DD(45.06,0,"DIK")="DGPTXX"
^DD(45.06,0,"DT")="3040219"
^DD(45.06,0,"IX","AC",45.06,.06)=""
^DD(45.06,0,"IX","B",45.06,.01)=""
^DD(45.06,0,"NM","CPT RECORD DATE/TIME")=""
^DD(45.06,0,"UP")="45"
^DD(45.06,.01,0)="CPT RECORD DATE/TIME^RDX^^0;1^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT D DATE^DGPTUTL1:$D(X)"
^DD(45.06,.01,1,0)="^.1^^-1"
^DD(45.06,.01,1,1,0)="45.06^B"
^DD(45.06,.01,1,1,1)="S ^DGPT(DA(1),""C"",""B"",$E(X,1,30),DA)="""""
^DD(45.06,.01,1,1,2)="K ^DGPT(DA(1),""C"",""B"",$E(X,1,30),DA)"
^DD(45.06,.01,3)="Enter the date and time the professional service was performed."
^DD(45.06,.01,"DT")="3050629"
^DD(45.06,.02,0)="REFERRING OR ORDERING PROVIDER^*P200'X^VA(200,^0;2^S IENS=DA_"",""_DA(1)_"","",CPTDT=$$GET1^DIQ(45.06,IENS,.01,""I"") S DIC(""S"")=""I $$ACTIVPRV^PXAPI(Y,CPTDT)"" D ^DIC K DIC,IENS,CPTDT S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.06,.02,3)="Enter the name of the provider referring or ordering the service or item"
^DD(45.06,.02,12)="Only Allow Active Providers"
^DD(45.06,.02,12.1)="S DIC(""S"")=""I $$ACTIVPRV^PXAPI(Y,CPTDT)"""
^DD(45.06,.02,"DT")="3050330"
^DD(45.06,.03,0)="RENDERING PROVIDER^R*P200'X^VA(200,^0;3^S IENS=DA_"",""_DA(1)_"","",CPTDT=$$GET1^DIQ(45.06,IENS,.01,""I"") S DIC(""S"")=""I $$ACTIVPRV^PXAPI(Y,CPTDT)"" D ^DIC K DIC,IENS,CPTDT S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.06,.03,3)="Enter the name of the provider performing the procedure."
^DD(45.06,.03,12)="Only Allow Active Providers."
^DD(45.06,.03,12.1)="S DIC(""S"")=""I $$ACTIVPRV^PXAPI(Y,CPTDT)"""
^DD(45.06,.03,"DT")="3050330"
^DD(45.06,.04,0)="PRIMARY DIAGNOSIS^RP80'X^ICD9(^0;4^W !!!,""DONNA"" D ICDEN^DGPTF5"
^DD(45.06,.04,3)="Enter the Primary Diagnosis for this Professional Service."
^DD(45.06,.04,21,0)="^^2^2^3030725^"
^DD(45.06,.04,21,1,0)="Enter the Diagnosis that should appear first in box 21 of the HCFA 1500"
^DD(45.06,.04,21,2,0)="insurance form."
^DD(45.06,.04,"DT")="3051129"
^DD(45.06,.05,0)="RENDERING LOCATION^R*P44'^SC(^0;5^S DIC(""S"")=""I $P($G(^SC(Y,0)),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.06,.05,3)="Enter the location to be used in box 32 on the HCFA 1500."
^DD(45.06,.05,12)="LOCATION MUST HAVE A STOP CODE"
^DD(45.06,.05,12.1)="S DIC(""S"")=""I $P($G(^SC(Y,0)),U,7)"""
^DD(45.06,.05,21,0)="^.001^2^2^3050609^^^"
^DD(45.06,.05,21,1,0)="Enter the location in file 44 where services were furnished.  The name of"
^DD(45.06,.05,21,2,0)="the facility and address must be entered in file 4 and pointed to by file 44."
^DD(45.06,.05,"DT")="3050609"
^DD(45.06,.06,0)="VISIT NUMBER^P9000010'^AUPNVSIT(^0;6^Q"
^DD(45.06,.06,1,0)="^.1"
^DD(45.06,.06,1,1,0)="45.06^AC^MUMPS"
^DD(45.06,.06,1,1,1)="D ADD^AUPNVSIT"
^DD(45.06,.06,1,1,2)="D SUB^AUPNVSIT"
^DD(45.06,.06,1,1,"DT")="3050609"
^DD(45.06,.06,3)="The VISIT NUMBER is returned from the PXAPI."
^DD(45.06,.06,21,0)="^.001^2^2^3041118^^"
^DD(45.06,.06,21,1,0)="This is a pointer to the Visit File (9000010) in PCE.  A visit will be"
^DD(45.06,.06,21,2,0)="generated for each CPT procedure entry."
^DD(45.06,.06,"DT")="3050609"
^DD(45.06,.07,0)="DATA TO PCE FLAG^S^0:NOT SENT;1:SENT TO PCE;^0;7^Q"
^DD(45.06,.07,3)="Indicates that the data in PCE agrees with PTF 801 screen data."
^DD(45.06,.07,21,0)="^.001^3^3^3041118^^"
^DD(45.06,.07,21,1,0)="Set by the PTF system to indiacte if the data in the PTF 810"
^DD(45.06,.07,21,2,0)="screen has been sent to the PCE system.  It is reset to 0 if"
^DD(45.06,.07,21,3,0)="the data is edited, after the data in PCE is deleted."
^DD(45.06,.07,"DT")="3050629"
^DD(45.06,.09,0)="DELETE FLAG^S^0:Valid subfile record;1:All CPT Transactions have been deleted;^0;9^Q"
^DD(45.06,.09,21,0)="^.001^2^2^3041230^^"
^DD(45.06,.09,21,1,0)="This field flags deleted records so they do not appear on the"
^DD(45.06,.09,21,2,0)="801 Screens Not Sent to PCE report."
^DD(45.06,.09,23,0)="^^2^2^3041230^"
^DD(45.06,.09,23,1,0)="This field is set by DGPTFM2 when all the CPT procedure records in a"
^DD(45.06,.09,23,2,0)="subfile entry have been logically deleted."
^DD(45.06,.09,"DT")="3050629"
^DD(45.06,"B","CPT RECORD DATE/TIME",.01)=""
^DD(45.06,"B","DATA TO PCE FLAG",.07)=""
^DD(45.06,"B","DELETE FLAG",.09)=""
^DD(45.06,"B","PRIMARY DIAGNOSIS",.04)=""
^DD(45.06,"B","REFERRING OR ORDERING PROVIDER",.02)=""
^DD(45.06,"B","RENDERING LOCATION",.05)=""
^DD(45.06,"B","RENDERING PROVIDER",.03)=""
^DD(45.06,"B","VISIT NUMBER",.06)=""
^DD(45.06,"GL",0,1,.01)=""
^DD(45.06,"GL",0,2,.02)=""
^DD(45.06,"GL",0,3,.03)=""
^DD(45.06,"GL",0,4,.04)=""
^DD(45.06,"GL",0,5,.05)=""
^DD(45.06,"GL",0,6,.06)=""
^DD(45.06,"GL",0,7,.07)=""
^DD(45.06,"GL",0,9,.09)=""
^DD(45.06,"IX",.01)=""
^DD(45.06,"IX",.06)=""
^DD(45.06,"RQ",.01)=""
^DD(45.06,"RQ",.03)=""
^DD(45.06,"RQ",.04)=""
^DD(45.06,"RQ",.05)=""
^DD(45.1,0)="FIELD^^11^7"
^DD(45.1,0,"DT")="2910528"
^DD(45.1,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(45.1,0,"ID",11)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(45.1,11,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,11)_"""":"""",2),$C(59),1)"")"
^DD(45.1,0,"IX","B",45.1,.01)=""
^DD(45.1,0,"IX","C",45.1,2)=""
^DD(45.1,0,"NM","SOURCE OF ADMISSION")=""
^DD(45.1,0,"PT",45,20)=""
^DD(45.1,0,"VR")="5.3"
^DD(45.1,.01,0)="PTF CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X?1N1U) X"
^DD(45.1,.01,1,0)="^.1"
^DD(45.1,.01,1,1,0)="45.1^B"
^DD(45.1,.01,1,1,1)="S ^DIC(45.1,""B"",$E(X,1,30),DA)="""""
^DD(45.1,.01,1,1,2)="K ^DIC(45.1,""B"",$E(X,1,30),DA)"
^DD(45.1,.01,3)="Enter the PTF code for the source of admission as 1 numeric and 1 alphanumeric, '6A'."
^DD(45.1,.01,21,0)="^^2^2^2920212^^"
^DD(45.1,.01,21,1,0)="This field contains the source of admission for a PTF entry. This is a two"
^DD(45.1,.01,21,2,0)="character code in the format of one letter followed by an alpha."
^DD(45.1,.01,"DT")="2840222"
^DD(45.1,2,0)="NAME^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(45.1,2,1,0)="^.1"
^DD(45.1,2,1,1,0)="45.1^C"
^DD(45.1,2,1,1,1)="S ^DIC(45.1,""C"",$E(X,1,30),DA)="""""
^DD(45.1,2,1,1,2)="K ^DIC(45.1,""C"",$E(X,1,30),DA)"
^DD(45.1,2,3)="Enter the name of this admission type, 3-50 characters."
^DD(45.1,2,21,0)="^^1^1^2920212^^"
^DD(45.1,2,21,1,0)="This field contains the full name of the source of admission."
^DD(45.1,2,"DT")="2840322"
^DD(45.1,2.5,0)="PRINT NAME^F^^0;5^K:$L(X)>25!($L(X)<3) X"
^DD(45.1,2.5,3)="Enter the print name, 2-25 characters,"
^DD(45.1,2.5,21,0)="^^2^2^2920212^^"
^DD(45.1,2.5,21,1,0)="This field contains the name of the source of admission as it would"
^DD(45.1,2.5,21,2,0)="appear on print-outs or displays."
^DD(45.1,2.5,"DT")="2840226"
^DD(45.1,3,0)="ADMIT TYPE^R*P405.2'^DG(405.2,^0;3^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.1,3,3)="Enter the admission type for this source of admission."
^DD(45.1,3,12)="Allow only admission movement types."
^DD(45.1,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(45.1,3,21,0)="^^1^1^2920212^^"
^DD(45.1,3,21,1,0)="This field contains the admission type for this source of admission."
^DD(45.1,3,"DT")="2900315"
^DD(45.1,4,0)="MEANS TEST X FLAG^S^0:NO;1:YES;^0;4^Q"
^DD(45.1,4,21,0)="^^2^2^2900307^^"
^DD(45.1,4,21,1,0)="Enter 'YES' if this source of admission should have the"
^DD(45.1,4,21,2,0)="means test category of X associated with it for PTF records."
^DD(45.1,4,"DT")="2900216"
^DD(45.1,10,0)="STATION TYPE^45.11PA^^ST;0"
^DD(45.1,10,21,0)="^^1^1^2920212^"
^DD(45.1,10,21,1,0)="Station type (i.e. VA facility, military facility, etc.)"
^DD(45.1,11,0)="PLACE OF ADMISSION^RS^1:HOSPITAL;2:NHCU;3:DOMICILIARY;4:MILITARY HOSPITAL;5:CNH;^0;11^Q"
^DD(45.1,11,21,0)="^^7^7^2910514^^^^"
^DD(45.1,11,21,1,0)="This field indicates where the admission took place.  There"
^DD(45.1,11,21,2,0)="are five possible places:"
^DD(45.1,11,21,3,0)="          nursing home "
^DD(45.1,11,21,4,0)="          domiciliary"
^DD(45.1,11,21,5,0)="          hospital"
^DD(45.1,11,21,6,0)="          military hospital"
^DD(45.1,11,21,7,0)="          community nursing home"
^DD(45.1,11,"DT")="2910528"
^DD(45.1,"B","ADMIT TYPE",3)=""
^DD(45.1,"B","MEANS TEST X FLAG",4)=""
^DD(45.1,"B","NAME",2)=""
^DD(45.1,"B","PLACE OF ADMISSION",11)=""
^DD(45.1,"B","PRINT NAME",2.5)=""
^DD(45.1,"B","PTF CODE",.01)=""
^DD(45.1,"B","STATION TYPE",10)=""
^DD(45.1,"GL",0,1,.01)=""
^DD(45.1,"GL",0,2,2)=""
^DD(45.1,"GL",0,3,3)=""
^DD(45.1,"GL",0,4,4)=""
^DD(45.1,"GL",0,5,2.5)=""
^DD(45.1,"GL",0,11,11)=""
^DD(45.1,"GL","ST",0,10)=""
^DD(45.1,"IX",.01)=""
^DD(45.1,"IX",2)=""
^DD(45.1,"RQ",.01)=""
^DD(45.1,"RQ",2)=""
^DD(45.1,"RQ",3)=""
^DD(45.1,"RQ",11)=""
^DD(45.1,"SB",45.11,10)=""
^DD(45.11,0)="STATION TYPE SUB-FIELD^NL^.01^1"
^DD(45.11,0,"NM","STATION TYPE")=""
^DD(45.11,0,"UP")="45.1"
^DD(45.11,.01,0)="STATION TYPE^MP45.81'X^DIC(45.81,^0;1^S DINUM=X"
^DD(45.11,.01,3)="Enter the station types that are allowed to use this source of admission for their PTF screens."
^DD(45.11,.01,21,0)="^^2^2^2920212^^"
^DD(45.11,.01,21,1,0)="This field contains station types that are allowed with this source"
^DD(45.11,.01,21,2,0)="of admission."
^DD(45.11,.01,"DT")="2840322"
^DD(45.11,"B","STATION TYPE",.01)=""
^DD(45.11,"GL",0,1,.01)=""
^DD(45.2,0)="FIELD^^6^7"
^DD(45.2,0,"ID",3)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(45.2,0,"ID",4)="W:$D(^(""0"")) $S($D(^DIC(5,+$P(^(""0""),U,4),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(45.2,0,"IX","B",45.2,.01)=""
^DD(45.2,0,"IX","C",45.2,3)=""
^DD(45.2,0,"NM","PTF TRANSFERRING FACILITY")=""
^DD(45.2,0,"PT",45,21)=""
^DD(45.2,0,"PT",45,76)=""
^DD(45.2,0,"VR")="5.3"
^DD(45.2,.01,0)="STATION NUMBER^RF^^0;1^K:$L(X)>6!($L(X)<3)!'(X?3N.NU) X"
^DD(45.2,.01,1,0)="^.1"
^DD(45.2,.01,1,1,0)="45.2^B"
^DD(45.2,.01,1,1,1)="S ^DGTF(""B"",$E(X,1,30),DA)="""""
^DD(45.2,.01,1,1,2)="K ^DGTF(""B"",$E(X,1,30),DA)"
^DD(45.2,.01,3)="Enter the station number, 3-6 numerics, beginning with the number and ending with the suffix."
^DD(45.2,.01,21,0)="^^2^2^2920212^"
^DD(45.2,.01,21,1,0)="The three digit number assigned to the station number associated"
^DD(45.2,.01,21,2,0)="with this PTF record."
^DD(45.2,.01,"DT")="2840223"
^DD(45.2,1,0)="STATION TYPE^F^^0;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(45.2,1,3)="Enter the station type."
^DD(45.2,1,21,0)="^^1^1^2920212^^"
^DD(45.2,1,21,1,0)="This field contains the station type."
^DD(45.2,1,"DT")="2840321"
^DD(45.2,2,0)="STATION ID^RF^^0;2^K:$L(X)>4!($L(X)<3) X"
^DD(45.2,2,3)="Enter the station ID, 3-4 characters."
^DD(45.2,2,21,0)="^^1^1^2920212^"
^DD(45.2,2,21,1,0)="Station number ID associated with this station."
^DD(45.2,2,"DT")="2840223"
^DD(45.2,3,0)="NAME^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>32!($L(X)<3) X"
^DD(45.2,3,1,0)="^.1"
^DD(45.2,3,1,1,0)="45.2^C"
^DD(45.2,3,1,1,1)="S ^DGTF(""C"",$E(X,1,30),DA)="""""
^DD(45.2,3,1,1,2)="K ^DGTF(""C"",$E(X,1,30),DA)"
^DD(45.2,3,3)="Enter the station name, 3-32 characters."
^DD(45.2,3,21,0)="^^2^2^2920212^^"
^DD(45.2,3,21,1,0)="This field contains the station name. The station name must be between"
^DD(45.2,3,21,2,0)="3-32 characters."
^DD(45.2,3,"DT")="2840228"
^DD(45.2,4,0)="STATE^RP5'^DIC(5,^0;4^Q"
^DD(45.2,4,3)="Enter the state for this station."
^DD(45.2,4,21,0)="^^2^2^2920212^^"
^DD(45.2,4,21,1,0)="This field contains the state where the station is located. This is a"
^DD(45.2,4,21,2,0)="pointer to the state file."
^DD(45.2,4,"DT")="2840223"
^DD(45.2,5,0)="DISTRICT^RF^^0;5^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(45.2,5,3)="Enter the district for this station number."
^DD(45.2,5,21,0)="^^1^1^2920212^^"
^DD(45.2,5,21,1,0)="This field contains the district for this station number."
^DD(45.2,5,"DT")="2840223"
^DD(45.2,6,0)="COUNTY^F^^0;6^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(45.2,6,3)="Enter the county code, 3 characters in length."
^DD(45.2,6,21,0)="^^2^2^2920212^^"
^DD(45.2,6,21,1,0)="This field contains the county code for this station. The entry must"
^DD(45.2,6,21,2,0)="be three characters in length."
^DD(45.2,6,"DT")="2840321"
^DD(45.2,"B","COUNTY",6)=""
^DD(45.2,"B","DISTRICT",5)=""
^DD(45.2,"B","NAME",3)=""
^DD(45.2,"B","STATE",4)=""
^DD(45.2,"B","STATION ID",2)=""
^DD(45.2,"B","STATION NUMBER",.01)=""
^DD(45.2,"B","STATION TYPE",1)=""
^DD(45.2,"GL",0,1,.01)=""
^DD(45.2,"GL",0,2,2)=""
^DD(45.2,"GL",0,3,3)=""
^DD(45.2,"GL",0,4,4)=""
^DD(45.2,"GL",0,5,5)=""
^DD(45.2,"GL",0,6,6)=""
^DD(45.2,"GL",0,7,1)=""
^DD(45.2,"IX",.01)=""
^DD(45.2,"IX",3)=""
^DD(45.2,"RQ",.01)=""
^DD(45.2,"RQ",2)=""
^DD(45.2,"RQ",3)=""
^DD(45.2,"RQ",4)=""
^DD(45.2,"RQ",5)=""
^DD(45.3,0)="FIELD^^1^2"
^DD(45.3,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(45.3,0,"IX","B",45.3,.01)=""
^DD(45.3,0,"IX","C",45.3,1)=""
^DD(45.3,0,"NM","SURGICAL SPECIALTY")=""
^DD(45.3,0,"PT",45.01,3)=""
^DD(45.3,0,"PT",137.45,1)=""
^DD(45.3,0,"PT",375,14.02)=""
^DD(45.3,0,"VR")="5.3"
^DD(45.3,.01,0)="CODE^RNJ2,0X^^0;1^K:+X'=X!(((X>62)!(X<48))&(X'=78))!(X?.E1"".""1N.N) X"
^DD(45.3,.01,1,0)="^.1"
^DD(45.3,.01,1,1,0)="45.3^B"
^DD(45.3,.01,1,1,1)="S ^DIC(45.3,""B"",$E(X,1,30),DA)="""""
^DD(45.3,.01,1,1,2)="K ^DIC(45.3,""B"",$E(X,1,30),DA)"
^DD(45.3,.01,3)="Type a Number between 48 and 62, or 78"
^DD(45.3,.01,21,0)="^^2^2^3070730^"
^DD(45.3,.01,21,1,0)="This field contains the code for the surgical specialty. The code is a"
^DD(45.3,.01,21,2,0)="number between 48 and 62, or 78."
^DD(45.3,.01,"DT")="3070730"
^DD(45.3,1,0)="SPECIALTY^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X"
^DD(45.3,1,1,0)="^.1"
^DD(45.3,1,1,1,0)="45.3^C"
^DD(45.3,1,1,1,1)="S ^DIC(45.3,""C"",$E(X,1,30),DA)="""""
^DD(45.3,1,1,1,2)="K ^DIC(45.3,""C"",$E(X,1,30),DA)"
^DD(45.3,1,3)="Enter the surgical specialty, 3-40 characters."
^DD(45.3,1,21,0)="^^2^2^2930611^^^"
^DD(45.3,1,21,1,0)="This field contain the description of the surgical specialty. The field"
^DD(45.3,1,21,2,0)="contains between 3 and 40 characters."
^DD(45.3,1,"DT")="2840223"
^DD(45.3,"B","CODE",.01)=""
^DD(45.3,"B","SPECIALTY",1)=""
^DD(45.3,"GL",0,1,.01)=""
^DD(45.3,"GL",0,2,1)=""
^DD(45.3,"IX",.01)=""
^DD(45.3,"IX",1)=""
^DD(45.3,"RQ",.01)=""
^DD(45.3,"RQ",1)=""
^DD(45.4,0)="FIELD^^1^3"
^DD(45.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(45.4,0,"IX","B",45.4,.01)=""
^DD(45.4,0,"IX","C",45.4,1)=""
^DD(45.4,0,"NM","PTF DIALYSIS TYPE")=""
^DD(45.4,0,"PT",45.05,2)=""
^DD(45.4,0,"VR")="5.3"
^DD(45.4,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.4,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(45.4,.001,21,0)="^^1^1^2920214^"
^DD(45.4,.001,21,1,0)="Contains IFN for PTF Dialysis Type entries into  this file."
^DD(45.4,.001,"DT")="2870515"
^DD(45.4,.01,0)="DIALYSIS TYPE DESCRIPTION^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>99!($L(X)<3) X"
^DD(45.4,.01,1,0)="^.1^^-1"
^DD(45.4,.01,1,1,0)="45.4^B"
^DD(45.4,.01,1,1,1)="S ^DG(45.4,""B"",$E(X,1,30),DA)="""""
^DD(45.4,.01,1,1,2)="K ^DG(45.4,""B"",$E(X,1,30),DA)"
^DD(45.4,.01,3)="ANSWER MUST BE 3-99 CHARACTERS IN LENGTH"
^DD(45.4,.01,21,0)="^^1^1^2930611^^"
^DD(45.4,.01,21,1,0)="Contains the description of the Dialysis Type specified."
^DD(45.4,1,0)="DIALYSIS CODE NUMBER^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.4,1,1,0)="^.1"
^DD(45.4,1,1,1,0)="45.4^C"
^DD(45.4,1,1,1,1)="S ^DG(45.4,""C"",$E(X,1,30),DA)="""""
^DD(45.4,1,1,1,2)="K ^DG(45.4,""C"",$E(X,1,30),DA)"
^DD(45.4,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(45.4,1,21,0)="^^2^2^2930611^^"
^DD(45.4,1,21,1,0)="The dialysis code number utilized in the PTF record with associated"
^DD(45.4,1,21,2,0)="episodes of dialysis treatment."
^DD(45.4,"B","DIALYSIS CODE NUMBER",1)=""
^DD(45.4,"B","DIALYSIS TYPE DESCRIPTION",.01)=""
^DD(45.4,"B","NUMBER",.001)=""
^DD(45.4,"GL",0,1,.01)=""
^DD(45.4,"GL",0,2,1)=""
^DD(45.4,"IX",.01)=""
^DD(45.4,"IX",1)=""
^DD(45.4,"RQ",.01)=""
^DD(45.5,0)="FIELD^^10^6"
^DD(45.5,0,"ID",1)="W ""   "",$S($D(^DPT(+$P(^(""0""),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(45.5,0,"ID",3)="S L=$P(^(0),U,4)_""00000"" W ?50,$E(L,4,5)_""-""_$E(L,6,7)_""-""_$E(L,2,3),"" @ "",$E(L,9,10),"":"",$E(L,11,12)"
^DD(45.5,0,"IX","B",45.5,.01)=""
^DD(45.5,0,"IX","PT",45.5,1)=""
^DD(45.5,0,"NM","PTF MESSAGE")=""
^DD(45.5,0,"VR")="5.3"
^DD(45.5,.01,0)="NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.5,.01,1,0)="^.1"
^DD(45.5,.01,1,1,0)="45.5^B"
^DD(45.5,.01,1,1,1)="S ^DGM(""B"",$E(X,1,30),DA)="""""
^DD(45.5,.01,1,1,2)="K ^DGM(""B"",$E(X,1,30),DA)"
^DD(45.5,.01,3)="Enter the message number, 1-999,999,999."
^DD(45.5,.01,21,0)="^^2^2^2920214^^"
^DD(45.5,.01,21,1,0)="This field contains the message number. The message number corresponds"
^DD(45.5,.01,21,2,0)="to the entry number in the file."
^DD(45.5,.01,"DT")="2840328"
^DD(45.5,1,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(45.5,1,1,0)="^.1"
^DD(45.5,1,1,1,0)="45.5^PT"
^DD(45.5,1,1,1,1)="S ^DGM(""PT"",$E(X,1,30),DA)="""""
^DD(45.5,1,1,1,2)="K ^DGM(""PT"",$E(X,1,30),DA)"
^DD(45.5,1,3)="Enter the patient you want to enter a PTF message number for."
^DD(45.5,1,21,0)="^^2^2^2920214^^"
^DD(45.5,1,21,1,0)="This is a pointer to the patient, in the Ptaient File (#2), for whom"
^DD(45.5,1,21,2,0)="the message is for."
^DD(45.5,1,"DT")="2840327"
^DD(45.5,2,0)="ENTRY CLERK^P200'^VA(200,^0;3^Q"
^DD(45.5,2,3)="Enter the person who logged this message into the system."
^DD(45.5,2,21,0)="^^2^2^2920214^^"
^DD(45.5,2,21,1,0)="This field contains a pointer to the New Person File (#200) indicating"
^DD(45.5,2,21,2,0)="which clerk logged this message into the system."
^DD(45.5,2,"DT")="2900310"
^DD(45.5,3,0)="ENTRY DATE/TIME^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(45.5,3,3)="Enter the date and time this message was entered into the computer."
^DD(45.5,3,21,0)="^^2^2^2920214^^"
^DD(45.5,3,21,1,0)="This field contains the date/time this message was entered into the"
^DD(45.5,3,21,2,0)="system."
^DD(45.5,3,"DT")="2840221"
^DD(45.5,4,0)="PRINT DATE/TIME^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.5,4,3)="Enter the date and time this message was first printed in MAS."
^DD(45.5,4,21,0)="^^2^2^2920214^^"
^DD(45.5,4,21,1,0)="This field contains the date/time this message was first printed"
^DD(45.5,4,21,2,0)="in MAS."
^DD(45.5,4,"DT")="2840221"
^DD(45.5,10,0)="MESSAGE^45.51^^M;0"
^DD(45.5,10,21,0)="^^3^3^2920214^^"
^DD(45.5,10,21,1,0)="This field contains the PTF Message for the patient. Messages are"
^DD(45.5,10,21,2,0)="created for the patient by DHCP and can be entered through the "
^DD(45.5,10,21,3,0)="'Enter PTF Message' option."
^DD(45.5,"B","ENTRY CLERK",2)=""
^DD(45.5,"B","ENTRY DATE/TIME",3)=""
^DD(45.5,"B","MESSAGE",10)=""
^DD(45.5,"B","NUMBER",.01)=""
^DD(45.5,"B","PATIENT",1)=""
^DD(45.5,"B","PRINT DATE/TIME",4)=""
^DD(45.5,"GL",0,1,.01)=""
^DD(45.5,"GL",0,2,1)=""
^DD(45.5,"GL",0,3,2)=""
^DD(45.5,"GL",0,4,3)=""
^DD(45.5,"GL",0,5,4)=""
^DD(45.5,"GL","M",0,10)=""
^DD(45.5,"IX",.01)=""
^DD(45.5,"IX",1)=""
^DD(45.5,"RQ",.01)=""
^DD(45.5,"RQ",1)=""
^DD(45.5,"SB",45.51,10)=""
^DD(45.51,0)="MESSAGE SUB-FIELD^NL^.01^1"
^DD(45.51,0,"NM","MESSAGE")=""
^DD(45.51,0,"UP")="45.5"
^DD(45.51,.01,0)="MESSAGE^W^^0;1^Q"
^DD(45.51,.01,1,0)="^.1^^0"
^DD(45.51,.01,3)="Enter the message you wish to send to MAS."
^DD(45.51,.01,"DT")="2840820"
^DD(45.51,"B","MESSAGE",.01)=""
^DD(45.51,"GL",0,1,.01)=""
^DD(45.6,0)="FIELD^^3^3"
^DD(45.6,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(45.6,0,"IX","B",45.6,.01)=""
^DD(45.6,0,"IX","C",45.6,2)=""
^DD(45.6,0,"NM","PLACE OF DISPOSITION")=""
^DD(45.6,0,"PT",45,75)=""
^DD(45.6,0,"VR")="5.3"
^DD(45.6,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(45.6,.01,1,0)="^.1"
^DD(45.6,.01,1,1,0)="45.6^B"
^DD(45.6,.01,1,1,1)="S ^DIC(45.6,""B"",$E(X,1,30),DA)="""""
^DD(45.6,.01,1,1,2)="K ^DIC(45.6,""B"",$E(X,1,30),DA)"
^DD(45.6,.01,3)="Enter the name of the place of disposition, 3-40 characters."
^DD(45.6,.01,21,0)="^^2^2^2920214^^"
^DD(45.6,.01,21,1,0)="This field contains the name of the place of disposition. A valid name"
^DD(45.6,.01,21,2,0)="consist of '3' to '40' characters."
^DD(45.6,.01,"DT")="2840224"
^DD(45.6,2,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1N!(X?1U)) X"
^DD(45.6,2,1,0)="^.1"
^DD(45.6,2,1,1,0)="45.6^C"
^DD(45.6,2,1,1,1)="S ^DIC(45.6,""C"",$E(X,1,30),DA)="""""
^DD(45.6,2,1,1,2)="K ^DIC(45.6,""C"",$E(X,1,30),DA)"
^DD(45.6,2,3)="Enter the PTF code corresponding to this place of disposition."
^DD(45.6,2,21,0)="^^1^1^2920214^^"
^DD(45.6,2,21,1,0)="This is a '1' character code corresponding to the place of disposition."
^DD(45.6,2,"DT")="2840809"
^DD(45.6,3,0)="TYPE OF CARE^S^A:OUTPATIENT TREATMENT;B:HOSPITAL CARE;C:NURSING CARE;^0;3^Q"
^DD(45.6,3,3)="Enter the type of care this place of disposition will provide."
^DD(45.6,3,21,0)="^^3^3^2920214^^"
^DD(45.6,3,21,1,0)="This field indicates the type of care this place of disposition will"
^DD(45.6,3,21,2,0)="provide. Currently there are three types of care 'A' for outpatient"
^DD(45.6,3,21,3,0)="treatment, 'B' for hospital care and 'C' for nursing care."
^DD(45.6,3,"DT")="2840224"
^DD(45.6,"B","CODE",2)=""
^DD(45.6,"B","NAME",.01)=""
^DD(45.6,"B","TYPE OF CARE",3)=""
^DD(45.6,"GL",0,1,.01)=""
^DD(45.6,"GL",0,2,2)=""
^DD(45.6,"GL",0,3,3)=""
^DD(45.6,"IX",.01)=""
^DD(45.6,"IX",2)=""
^DD(45.6,"RQ",.01)=""
^DD(45.6,"RQ",2)=""
^DD(45.61,0)="FIELD^^.03^3"
^DD(45.61,0,"DDA")="N"
^DD(45.61,0,"DT")="2910617"
^DD(45.61,0,"IX","B",45.61,.01)=""
^DD(45.61,0,"NM","PTF ABUSED SUBSTANCE")=""
^DD(45.61,0,"PT",45,300.04)=""
^DD(45.61,0,"PT",45.02,300.04)=""
^DD(45.61,0,"PT",45.89,.04)=""
^DD(45.61,0,"VR")="5.3"
^DD(45.61,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(45.61,.01,1,0)="^.1"
^DD(45.61,.01,1,1,0)="45.61^B"
^DD(45.61,.01,1,1,1)="S ^DIC(45.61,""B"",$E(X,1,30),DA)="""""
^DD(45.61,.01,1,1,2)="K ^DIC(45.61,""B"",$E(X,1,30),DA)"
^DD(45.61,.01,3)="Answer must be 3-30 characters in length."
^DD(45.61,.01,21,0)="^^1^1^2910617^"
^DD(45.61,.01,21,1,0)="This field contains the name of the substance abused."
^DD(45.61,.01,"DT")="2910617"
^DD(45.61,.02,0)="CODE^F^^0;2^K:$L(X)>4!($L(X)<4) X"
^DD(45.61,.02,3)="Answer must be 4 characters in length."
^DD(45.61,.02,21,0)="^^2^2^2910617^"
^DD(45.61,.02,21,1,0)="This field contains the code used in the creation of the PTF record"
^DD(45.61,.02,21,2,0)="for transmission to Austin. This is a four character code."
^DD(45.61,.03,0)="INACTIVE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(45.61,.03,21,0)="^^1^1^2910617^"
^DD(45.61,.03,21,1,0)="This field contains the date after which this entry is inactive."
^DD(45.61,"B","CODE",.02)=""
^DD(45.61,"B","INACTIVE DATE",.03)=""
^DD(45.61,"B","NAME",.01)=""
^DD(45.61,"GL",0,1,.01)=""
^DD(45.61,"GL",0,2,.02)=""
^DD(45.61,"GL",0,3,.03)=""
^DD(45.61,"IX",.01)=""
^DD(45.61,"RQ",.01)=""
^DD(45.62,0)="FIELD^^100^12"
^DD(45.62,0,"DDA")="N"
^DD(45.62,0,"DT")="2930405"
^DD(45.62,0,"IX","B",45.62,.01)=""
^DD(45.62,0,"IX","C",45.62,.03)=""
^DD(45.62,0,"IX","D",45.62,.06)=""
^DD(45.62,0,"NM","PTF ARCHIVE/PURGE HISTORY FILE")=""
^DD(45.62,0,"VR")="5.3"
^DD(45.62,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(45.62,.01,1,0)="^.1"
^DD(45.62,.01,1,1,0)="45.62^B"
^DD(45.62,.01,1,1,1)="S ^DGP(45.62,""B"",$E(X,1,30),DA)="""""
^DD(45.62,.01,1,1,2)="K ^DGP(45.62,""B"",$E(X,1,30),DA)"
^DD(45.62,.01,3)="Answer must be 3-30 characters in length."
^DD(45.62,.01,21,0)="^^3^3^2930405^^"
^DD(45.62,.01,21,1,0)="This field contains the name of the Archive/Purge Template. The name"
^DD(45.62,.01,21,2,0)="is automatically generated by the option based on the month/year selected"
^DD(45.62,.01,21,3,0)="for the A/P process. "
^DD(45.62,.01,"DT")="2930426"
^DD(45.62,.02,0)="ARCHIVE USER^P200'^VA(200,^0;2^Q"
^DD(45.62,.02,21,0)="^^2^2^2930428^^"
^DD(45.62,.02,21,1,0)="This field contains a pointer to the New Person File (#200) for the"
^DD(45.62,.02,21,2,0)="person who performed the Archive of the PTF data."
^DD(45.62,.02,"DT")="2920914"
^DD(45.62,.03,0)="ARCHIVE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(45.62,.03,1,0)="^.1"
^DD(45.62,.03,1,1,0)="45.62^C"
^DD(45.62,.03,1,1,1)="S ^DGP(45.62,""C"",$E(X,1,30),DA)="""""
^DD(45.62,.03,1,1,2)="K ^DGP(45.62,""C"",$E(X,1,30),DA)"
^DD(45.62,.03,1,1,"DT")="2920914"
^DD(45.62,.03,21,0)="^^2^2^2930405^"
^DD(45.62,.03,21,1,0)="This field contains the date/time the Archive was performed. This field"
^DD(45.62,.03,21,2,0)="is updated by the Archive option."
^DD(45.62,.03,"DT")="2920914"
^DD(45.62,.04,0)="ARCHIVE STATUS^S^1:ARCHIVED;0:NOT ARCHIVED;^0;4^Q"
^DD(45.62,.04,21,0)="^^1^1^2930405^"
^DD(45.62,.04,21,1,0)="This field indicates if the PTF data selected has been archived."
^DD(45.62,.04,"DT")="2920914"
^DD(45.62,.05,0)="PURGE USER^P200'^VA(200,^0;5^Q"
^DD(45.62,.05,21,0)="^^2^2^2930428^^"
^DD(45.62,.05,21,1,0)="This field contains a pointer to the New Person File (#200) for the"
^DD(45.62,.05,21,2,0)="person who performed the Purge of the PTF data."
^DD(45.62,.05,"DT")="2920914"
^DD(45.62,.06,0)="PURGE DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(45.62,.06,1,0)="^.1"
^DD(45.62,.06,1,1,0)="45.62^D"
^DD(45.62,.06,1,1,1)="S ^DGP(45.62,""D"",$E(X,1,30),DA)="""""
^DD(45.62,.06,1,1,2)="K ^DGP(45.62,""D"",$E(X,1,30),DA)"
^DD(45.62,.06,1,1,"DT")="2920914"
^DD(45.62,.06,21,0)="^^2^2^2930405^"
^DD(45.62,.06,21,1,0)="This field contains the date/time the Purge was performed. This field"
^DD(45.62,.06,21,2,0)="is updated by the Purge option."
^DD(45.62,.06,"DT")="2920914"
^DD(45.62,.07,0)="PURGE STATUS^S^1:PURGE DATA;0:NOT PURGED;^0;7^Q"
^DD(45.62,.07,21,0)="^^1^1^2930405^"
^DD(45.62,.07,21,1,0)="This field indicates if the PTF data selected has been purged."
^DD(45.62,.07,"DT")="2920914"
^DD(45.62,.08,0)="SEARCH TEMPLATE^P.401'^DIBT(^0;8^Q"
^DD(45.62,.08,21,0)="^^5^5^2930428^^"
^DD(45.62,.08,21,1,0)="This field contains a pointer to the Sort Template file (#.401). The"
^DD(45.62,.08,21,2,0)="sort template contains the entries selected for the PTF A/P process. Through"
^DD(45.62,.08,21,3,0)="the A/P options, the sort template is edited so that only the entries"
^DD(45.62,.08,21,4,0)="that should be Archived/Purged for the date range selected will be"
^DD(45.62,.08,21,5,0)="contained in the sort template."
^DD(45.62,.08,"DT")="2920914"
^DD(45.62,.09,0)="# OF RECORDS^NJ11,0^^0;9^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.62,.09,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(45.62,.09,21,0)="^^3^3^2930428^^"
^DD(45.62,.09,21,1,0)="This field contains the total number of PTF records that will be processed"
^DD(45.62,.09,21,2,0)="through the Archive/Purge option for the date range selected. This number"
^DD(45.62,.09,21,3,0)="will be updated by the A/P options as the A/P template is edited."
^DD(45.62,.09,"DT")="2930405"
^DD(45.62,.1,0)="START DATE^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(45.62,.1,21,0)="^^2^2^2930405^"
^DD(45.62,.1,21,1,0)="This field contains the Start Date for the date range to Archive/Purge"
^DD(45.62,.1,21,2,0)="PTF records."
^DD(45.62,.1,"DT")="2930405"
^DD(45.62,.11,0)="END DATE^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(45.62,.11,21,0)="^^2^2^2930405^"
^DD(45.62,.11,21,1,0)="This field contains the End Date for the date range to Archive/Purge"
^DD(45.62,.11,21,2,0)="PTF records. "
^DD(45.62,.11,"DT")="2930405"
^DD(45.62,100,0)="ARCHIVE/PURGE DATA^45.63^^100;0"
^DD(45.62,100,21,0)="^^2^2^2921020^"
^DD(45.62,100,21,1,0)="This field will contain the Archive/Purge data. The data should be"
^DD(45.62,100,21,2,0)="writen to a sequential device for storage."
^DD(45.62,"B","# OF RECORDS",.09)=""
^DD(45.62,"B","ARCHIVE DATE",.03)=""
^DD(45.62,"B","ARCHIVE STATUS",.04)=""
^DD(45.62,"B","ARCHIVE USER",.02)=""
^DD(45.62,"B","ARCHIVE/PURGE DATA",100)=""
^DD(45.62,"B","END DATE",.11)=""
^DD(45.62,"B","NAME",.01)=""
^DD(45.62,"B","PURGE DATE",.06)=""
^DD(45.62,"B","PURGE STATUS",.07)=""
^DD(45.62,"B","PURGE USER",.05)=""
^DD(45.62,"B","SEARCH TEMPLATE",.08)=""
^DD(45.62,"B","START DATE",.1)=""
^DD(45.62,"GL",0,1,.01)=""
^DD(45.62,"GL",0,2,.02)=""
^DD(45.62,"GL",0,3,.03)=""
^DD(45.62,"GL",0,4,.04)=""
^DD(45.62,"GL",0,5,.05)=""
^DD(45.62,"GL",0,6,.06)=""
^DD(45.62,"GL",0,7,.07)=""
^DD(45.62,"GL",0,8,.08)=""
^DD(45.62,"GL",0,9,.09)=""
^DD(45.62,"GL",0,10,.1)=""
^DD(45.62,"GL",0,11,.11)=""
^DD(45.62,"GL",100,0,100)=""
^DD(45.62,"IX",.01)=""
^DD(45.62,"IX",.03)=""
^DD(45.62,"IX",.06)=""
^DD(45.62,"RQ",.01)=""
^DD(45.62,"SB",45.63,100)=""
^DD(45.63,0)="ARCHIVE/PURGE DATA SUB-FIELD^^.01^1"
^DD(45.63,0,"DT")="2921020"
^DD(45.63,0,"NM","ARCHIVE/PURGE DATA")=""
^DD(45.63,0,"UP")="45.62"
^DD(45.63,.01,0)="ARCHIVE/PURGE DATA^WL^^0;1^Q"
^DD(45.63,.01,3)="This field contains data from the PTF A/P process."
^DD(45.63,.01,"DT")="2921020"
^DD(45.63,"B","ARCHIVE/PURGE DATA",.01)=""
^DD(45.63,"GL",0,1,.01)=""
^DD(45.64,0)="FIELD^^.03^3"
^DD(45.64,0,"DT")="2921208"
^DD(45.64,0,"IX","B",45.64,.01)=""
^DD(45.64,0,"NM","PTF AUSTIN ERROR CODES")=""
^DD(45.64,0,"VR")="5.3"
^DD(45.64,.01,0)="CODE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(45.64,.01,.1)="ERROR CODE"
^DD(45.64,.01,1,0)="^.1"
^DD(45.64,.01,1,1,0)="45.64^B"
^DD(45.64,.01,1,1,1)="S ^DGP(45.64,""B"",$E(X,1,30),DA)="""""
^DD(45.64,.01,1,1,2)="K ^DGP(45.64,""B"",$E(X,1,30),DA)"
^DD(45.64,.01,3)="Answer must be 3-30 characters in length."
^DD(45.64,.01,21,0)="^^2^2^2921208^"
^DD(45.64,.01,21,1,0)="This field contains the PTF Austin Error Codes. Each code begins with"
^DD(45.64,.01,21,2,0)="a digit cooresponding to the record that the error occured in."
^DD(45.64,.01,"DT")="2921208"
^DD(45.64,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>70!($L(X)<3) X"
^DD(45.64,.02,3)="Answer must be 3-70 characters in length."
^DD(45.64,.02,"DT")="2921208"
^DD(45.64,.03,0)="POSITION^NJ2,0^^0;3^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.64,.03,3)="Type a Number between 1 and 30, 0 Decimal Digits"
^DD(45.64,.03,"DT")="2921208"
^DD(45.64,"B","CODE",.01)=""
^DD(45.64,"B","DESCRIPTION",.02)=""
^DD(45.64,"B","ERROR CODE",.01)="1"
^DD(45.64,"B","POSITION",.03)=""
^DD(45.64,"GL",0,1,.01)=""
^DD(45.64,"GL",0,2,.02)=""
^DD(45.64,"GL",0,3,.03)=""
^DD(45.64,"IX",.01)=""
^DD(45.64,"RQ",.01)=""
^DD(45.68,0)="FIELD^^10^2"
^DD(45.68,0,"DDA")="N"
^DD(45.68,0,"IX","B",45.68,.01)=""
^DD(45.68,0,"NM","FACILITY SUFFIX")=""
^DD(45.68,0,"PT",45.813,.01)=""
^DD(45.68,.01,0)="SUFFIX^RF^^0;1^K:$L(X)>3!($L(X)<2)!'(X'?1P.E) X"
^DD(45.68,.01,1,0)="^.1"
^DD(45.68,.01,1,1,0)="45.68^B"
^DD(45.68,.01,1,1,1)="S ^DIC(45.68,""B"",$E(X,1,30),DA)="""""
^DD(45.68,.01,1,1,2)="K ^DIC(45.68,""B"",$E(X,1,30),DA)"
^DD(45.68,.01,3)="Answer must be 2-3 characters in length."
^DD(45.68,.01,21,0)="^^1^1^2950623^"
^DD(45.68,.01,21,1,0)="This field contains the facility suffix."
^DD(45.68,.01,"DT")="2950524"
^DD(45.68,10,0)="EFFECTIVE DATE^45.69D^^E;0"
^DD(45.68,10,21,0)="^^2^2^2950623^"
^DD(45.68,10,21,1,0)="The effective date multiple contains the effective date(s) and"
^DD(45.68,10,21,2,0)="active/inactive flag(s) for each facility suffix. "
^DD(45.68,"B","EFFECTIVE DATE",10)=""
^DD(45.68,"B","SUFFIX",.01)=""
^DD(45.68,"GL",0,1,.01)=""
^DD(45.68,"GL","E",0,10)=""
^DD(45.68,"IX",.01)=""
^DD(45.68,"RQ",.01)=""
^DD(45.68,"SB",45.69,10)=""
^DD(45.69,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(45.69,0,"IX","AEFF",45.69,.01)=""
^DD(45.69,0,"IX","B",45.69,.01)=""
^DD(45.69,0,"NM","EFFECTIVE DATE")=""
^DD(45.69,0,"UP")="45.68"
^DD(45.69,.01,0)="EFFECTIVE DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.69,.01,1,0)="^.1"
^DD(45.69,.01,1,1,0)="45.69^B"
^DD(45.69,.01,1,1,1)="S ^DIC(45.68,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(45.69,.01,1,1,2)="K ^DIC(45.68,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(45.69,.01,1,3,0)="45.69^AEFF^MUMPS"
^DD(45.69,.01,1,3,1)="S ^DIC(45.68,DA(1),""E"",""AEFF"",-X,DA)="""""
^DD(45.69,.01,1,3,2)="K ^DIC(45.68,DA(1),""E"",""AEFF"",-X,DA)"
^DD(45.69,.01,1,3,"DT")="2950530"
^DD(45.69,.01,3)="Enter date suffix became active/inactive."
^DD(45.69,.01,"DEL",1,0)="I '$O(^DIC(45.68,DA(1),""E"",$O(^DIC(45.68,DA(1),""E"",0)))) W !,*7,""There has to be an effective date for this suffix!   """
^DD(45.69,.01,"DT")="2950713"
^DD(45.69,.02,0)="ACTIVE?^RS^1:YES;0:NO;^0;2^Q"
^DD(45.69,.02,3)="Enter 'Yes' if suffix is active or 'No' if suffix is inactive."
^DD(45.69,.02,"DT")="2950524"
^DD(45.69,"B","ACTIVE?",.02)=""
^DD(45.69,"B","EFFECTIVE DATE",.01)=""
^DD(45.69,"GL",0,1,.01)=""
^DD(45.69,"GL",0,2,.02)=""
^DD(45.69,"IX",.01)=""
^DD(45.69,"RQ",.01)=""
^DD(45.69,"RQ",.02)=""
^DD(45.7,0)="FIELD^^100^6"
^DD(45.7,0,"DDA")="N"
^DD(45.7,0,"DT")="2950804"
^DD(45.7,0,"ID",1)="W:$D(^(""0"")) ""   "",$S($D(^DIC(42.4,+$P(^(""0""),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(45.7,0,"ID",99)="W ""   "",$P(^(0),U,3)"
^DD(45.7,0,"IX","AHN",45.7,99)=""
^DD(45.7,0,"IX","ASPEC",45.7,1)=""
^DD(45.7,0,"IX","ATR",45.7,2)=""
^DD(45.7,0,"IX","B",45.7,.01)=""
^DD(45.7,0,"NM","FACILITY TREATING SPECIALTY")=""
^DD(45.7,0,"PT",2,.103)=""
^DD(45.7,0,"PT",40.806,.01)=""
^DD(45.7,0,"PT",41.1,9)=""
^DD(45.7,0,"PT",42.51,1.5)=""
^DD(45.7,0,"PT",43,1000.1)=""
^DD(45.7,0,"PT",44,9.5)=""
^DD(45.7,0,"PT",63,14.6)=""
^DD(45.7,0,"PT",63.084,2.3)=""
^DD(45.7,0,"PT",64.03,9)=""
^DD(45.7,0,"PT",64.1111,16)=""
^DD(45.7,0,"PT",65,6.7)=""
^DD(45.7,0,"PT",65.02,.07)=""
^DD(45.7,0,"PT",68.02,6.6)=""
^DD(45.7,0,"PT",69.9,607)=""
^DD(45.7,0,"PT",100,11)=""
^DD(45.7,0,"PT",100.213,.01)=""
^DD(45.7,0,"PT",100.241,.01)=""
^DD(45.7,0,"PT",100.25,6)=""
^DD(45.7,0,"PT",100.51,.01)=""
^DD(45.7,0,"PT",100.64,.01)=""
^DD(45.7,0,"PT",100.641,.01)=""
^DD(45.7,0,"PT",123.5,123.06)=""
^DD(45.7,0,"PT",183,.01)=""
^DD(45.7,0,"PT",195.9,172)=""
^DD(45.7,0,"PT",356.1,.07)=""
^DD(45.7,0,"PT",393,.07)=""
^DD(45.7,0,"PT",404.56,.02)=""
^DD(45.7,0,"PT",405,.09)=""
^DD(45.7,0,"PT",618,4.1)=""
^DD(45.7,0,"PT",664.1,12.3)=""
^DD(45.7,0,"PT",702.01,.02)=""
^DD(45.7,0,"PT",741,6)=""
^DD(45.7,0,"PT",741.9,.01)=""
^DD(45.7,0,"PT",742,.07)=""
^DD(45.7,0,"PT",8925,1402)=""
^DD(45.7,0,"VR")="5.3"
^DD(45.7,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(45.7,.01,1,0)="^.1"
^DD(45.7,.01,1,1,0)="45.7^B"
^DD(45.7,.01,1,1,1)="S ^DIC(45.7,""B"",$E(X,1,30),DA)="""""
^DD(45.7,.01,1,1,2)="K ^DIC(45.7,""B"",$E(X,1,30),DA)"
^DD(45.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(45.7,.01,21,0)="^^2^2^2920214^"
^DD(45.7,.01,21,1,0)="Contains the name of the facility treating specialty.  Types of"
^DD(45.7,.01,21,2,0)="treating specialties may vary between facilities."
^DD(45.7,.01,"DEL",1,0)="I $D(X)"
^DD(45.7,.01,"DT")="2840820"
^DD(45.7,1,0)="SPECIALTY^R*P42.4'^DIC(42.4,^0;2^S DIC(""S"")=""I $$ACTIVE^DGACT(42.4,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.7,1,1,0)="^.1"
^DD(45.7,1,1,1,0)="45.7^ASPEC"
^DD(45.7,1,1,1,1)="S ^DIC(45.7,""ASPEC"",$E(X,1,30),DA)="""""
^DD(45.7,1,1,1,2)="K ^DIC(45.7,""ASPEC"",$E(X,1,30),DA)"
^DD(45.7,1,1,1,"%D",0)="^^1^1^2950810^"
^DD(45.7,1,1,1,"%D",1,0)="This cross reference will sort facility treating specialty by specialty."
^DD(45.7,1,1,1,"DT")="2950810"
^DD(45.7,1,3)="Enter the PTF bedsection associated with this specialty."
^DD(45.7,1,12)="Allows only active treating specialties."
^DD(45.7,1,12.1)="S DIC(""S"")=""I $$ACTIVE^DGACT(42.4,+Y)"""
^DD(45.7,1,21,0)="^.001^2^2^3070402^^^^"
^DD(45.7,1,21,1,0)="This field contains the treating specialty name as entered by"
^DD(45.7,1,21,2,0)="facility or distributed with software.  Pointer to  Specialty File"
^DD(45.7,1,"DT")="3070402"
^DD(45.7,2,0)="SERVICE^P49'^DIC(49,^0;4^Q"
^DD(45.7,2,1,0)="^.1"
^DD(45.7,2,1,1,0)="45.7^ATR"
^DD(45.7,2,1,1,1)="S ^DIC(45.7,""ATR"",$E(X,1,30),DA)="""""
^DD(45.7,2,1,1,2)="K ^DIC(45.7,""ATR"",$E(X,1,30),DA)"
^DD(45.7,2,21,0)="^^1^1^2920214^"
^DD(45.7,2,21,1,0)="This field contains the associated Service of the treating specialty."
^DD(45.7,2,"DT")="2841129"
^DD(45.7,10,0)="PROVIDERS^45.701P^^PRO;0"
^DD(45.7,10,21,0)="^^1^1^2920214^"
^DD(45.7,10,21,1,0)="Primary care physicians associated with treating specialty."
^DD(45.7,99,0)="ABBREVIATION^F^^0;3^K:$L(X)>5!($L(X)<1) X"
^DD(45.7,99,1,0)="^.1"
^DD(45.7,99,1,1,0)="45.7^AHN"
^DD(45.7,99,1,1,1)="S ^DIC(45.7,""AHN"",$E(X,1,30),DA)="""""
^DD(45.7,99,1,1,2)="K ^DIC(45.7,""AHN"",$E(X,1,30),DA)"
^DD(45.7,99,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(45.7,99,21,0)="^^6^6^2910813^^^"
^DD(45.7,99,21,1,0)="Formerly honeywell code may now assume other uses."
^DD(45.7,99,21,2,0)="Enter an abbreviation (1-5 characters) to be used when "
^DD(45.7,99,21,3,0)="Patients Treating Specialty is to be displayed on the G&L."
^DD(45.7,99,21,4,0)="If there is nothing entered here the first five characters "
^DD(45.7,99,21,5,0)="of the name for this facility treating specialty will appear "
^DD(45.7,99,21,6,0)="on the G&L."
^DD(45.7,99,"DT")="2860214"
^DD(45.7,100,0)="EFFECTIVE DATE^45.702D^^E;0"
^DD(45.7,"B","ABBREVIATION",99)=""
^DD(45.7,"B","EFFECTIVE DATE",100)=""
^DD(45.7,"B","NAME",.01)=""
^DD(45.7,"B","PROVIDERS",10)=""
^DD(45.7,"B","SERVICE",2)=""
^DD(45.7,"B","SPECIALTY",1)=""
^DD(45.7,"GL",0,1,.01)=""
^DD(45.7,"GL",0,2,1)=""
^DD(45.7,"GL",0,3,99)=""
^DD(45.7,"GL",0,4,2)=""
^DD(45.7,"GL","E",0,100)=""
^DD(45.7,"GL","PRO",0,10)=""
^DD(45.7,"IX",.01)=""
^DD(45.7,"IX",1)=""
^DD(45.7,"IX",2)=""
^DD(45.7,"IX",99)=""
^DD(45.7,"RQ",.01)=""
^DD(45.7,"RQ",1)=""
^DD(45.7,"SB",45.701,10)=""
^DD(45.7,"SB",45.702,100)=""
^DD(45.701,0)="PROVIDERS SUB-FIELD^NL^.01^1"
^DD(45.701,0,"DT")="2941207"
^DD(45.701,0,"NM","PROVIDERS")=""
^DD(45.701,0,"UP")="45.7"
^DD(45.701,.01,0)="PROVIDERS^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.701,.01,3)="Enter the providers associated with this treating specialty."
^DD(45.701,.01,4)="D HELP^DGPMDD(DA,DT)"
^DD(45.701,.01,12)="Allows only active physicians"
^DD(45.701,.01,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,DT)"""
^DD(45.701,.01,21,0)="^^2^2^2930413^^"
^DD(45.701,.01,21,1,0)="Primary care physicians associated/assigned to various treating"
^DD(45.701,.01,21,2,0)="specialties."
^DD(45.701,.01,"DT")="2941207"
^DD(45.701,"B","PROVIDERS",.01)=""
^DD(45.701,"GL",0,1,.01)=""
^DD(45.702,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(45.702,0,"DT")="2950727"
^DD(45.702,0,"IX","ADATE",45.702,.01)=""
^DD(45.702,0,"IX","B",45.702,.01)=""
^DD(45.702,0,"NM","EFFECTIVE DATE")=""
^DD(45.702,0,"UP")="45.7"
^DD(45.702,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.702,.01,1,0)="^.1"
^DD(45.702,.01,1,1,0)="45.702^B"
^DD(45.702,.01,1,1,1)="S ^DIC(45.7,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(45.702,.01,1,1,2)="K ^DIC(45.7,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(45.702,.01,1,2,0)="45.702^ADATE^MUMPS"
^DD(45.702,.01,1,2,1)="S ^DIC(45.7,DA(1),""E"",""ADATE"",-X,DA)="""""
^DD(45.702,.01,1,2,2)="K ^DIC(45.7,DA(1),""E"",""ADATE"",-X,DA)"
^DD(45.702,.01,1,2,"%D",0)="^^1^1^2950728^"
^DD(45.702,.01,1,2,"%D",1,0)="This cross reference is used to look up active on reverse date."
^DD(45.702,.01,1,2,"DT")="2950728"
^DD(45.702,.01,3)="Enter the effective date for this facility treating specialty."
^DD(45.702,.01,21,0)="^^3^3^2950727^^"
^DD(45.702,.01,21,1,0)="This multiple holds the effective date(s) for the Facility Treating"
^DD(45.702,.01,21,2,0)="Specialties"
^DD(45.702,.01,21,3,0)=" "
^DD(45.702,.01,"DEL",1,0)="I '$O(^DIC(45.7,DA(1),""E"",$O(^DIC(45.7,DA(1),""E"",0)))) W !,*7,""There has to be an effective date for this treating specialty!   """
^DD(45.702,.01,"DT")="2950728"
^DD(45.702,.02,0)="ACTIVE?^S^0:NO;1:YES;^0;2^Q"
^DD(45.702,.02,3)="Enter 'Yes' or 'No'."
^DD(45.702,.02,21,0)="^^2^2^2950810^"
^DD(45.702,.02,21,1,0)="This field will be an active/inactive flag for the facility treating"
^DD(45.702,.02,21,2,0)="specialty."
^DD(45.702,.02,"DT")="2950810"
^DD(45.702,"B","ACTIVE?",.02)=""
^DD(45.702,"B","EFFECTIVE DATE",.01)=""
^DD(45.702,"GL",0,1,.01)=""
^DD(45.702,"GL",0,2,.02)=""
^DD(45.702,"IX",.01)=""
^DD(45.702,"RQ",.01)=""
^DD(45.81,0)="FIELD^^50^4"
^DD(45.81,0,"DDA")="N"
^DD(45.81,0,"DT")="2950620"
^DD(45.81,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(45.81,0,"IX","B",45.81,.01)=""
^DD(45.81,0,"IX","C",45.81,2)=""
^DD(45.81,0,"IX","D",45.811,.01)=""
^DD(45.81,0,"IX","D1",45.813,.01)=""
^DD(45.81,0,"NM","STATION TYPE")=""
^DD(45.81,0,"PT",45.11,.01)=""
^DD(45.81,0,"PT",45.821,.01)=""
^DD(45.81,0,"VR")="5.3"
^DD(45.81,.01,0)="NUMBER^RNJ2,0X^^0;1^K:+X'=X!(X>99)!(X<10)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(45.81,.01,1,0)="^.1"
^DD(45.81,.01,1,1,0)="45.81^B"
^DD(45.81,.01,1,1,1)="S ^DIC(45.81,""B"",$E(X,1,30),DA)="""""
^DD(45.81,.01,1,1,2)="K ^DIC(45.81,""B"",$E(X,1,30),DA)"
^DD(45.81,.01,3)="Enter the number of the station type between 10 and 99."
^DD(45.81,.01,21,0)="^^2^2^2920214^^^^"
^DD(45.81,.01,21,1,0)="This field contains a station type. Valid station type are numbers"
^DD(45.81,.01,21,2,0)="between '10' and '99'."
^DD(45.81,.01,"DT")="2900522"
^DD(45.81,2,0)="NAME^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(45.81,2,1,0)="^.1"
^DD(45.81,2,1,1,0)="45.81^C"
^DD(45.81,2,1,1,1)="S ^DIC(45.81,""C"",$E(X,1,30),DA)="""""
^DD(45.81,2,1,1,2)="K ^DIC(45.81,""C"",$E(X,1,30),DA)"
^DD(45.81,2,3)="Enter the station type name, 3-40 characters."
^DD(45.81,2,21,0)="^^1^1^2920214^^"
^DD(45.81,2,21,1,0)="This field contains the station type name."
^DD(45.81,10,0)="*SUFFIXES^45.811^^SU;0"
^DD(45.81,10,21,0)="^^8^8^2950623^"
^DD(45.81,10,21,1,0)="This multiple is no longer in use and has been starred for deletion."
^DD(45.81,10,21,2,0)="It will be removed in a future release of the PIMS (MAS) package."
^DD(45.81,10,21,3,0)="Previously, this multiple contained the suffixes assigned to various"
^DD(45.81,10,21,4,0)="stations or facilities.  It has been replaced by the Suffix Ptr field"
^DD(45.81,10,21,5,0)="(#.01) of the Suffix Ptr multiple (#45.813) which is a pointer to the"
^DD(45.81,10,21,6,0)="Facility Suffix file (#45.68).  The Facility Suffix file is a table"
^DD(45.81,10,21,7,0)="file which contains the suffixes, effective date(s), and"
^DD(45.81,10,21,8,0)="active/inactive flag(s)."
^DD(45.81,10,"DT")="2950623"
^DD(45.81,50,0)="SUFFIX PTR^45.813P^^S;0"
^DD(45.81,"B","*SUFFIXES",10)=""
^DD(45.81,"B","NAME",2)=""
^DD(45.81,"B","NUMBER",.01)=""
^DD(45.81,"B","SUFFIX PTR",50)=""
^DD(45.81,"GL",0,1,.01)=""
^DD(45.81,"GL",0,2,2)=""
^DD(45.81,"GL","S",0,50)=""
^DD(45.81,"GL","SU",0,10)=""
^DD(45.81,"IX",.01)=""
^DD(45.81,"IX",2)=""
^DD(45.81,"RQ",.01)=""
^DD(45.81,"SB",45.811,10)=""
^DD(45.81,"SB",45.813,50)=""
^DD(45.811,0)="*SUFFIXES SUB-FIELD^NL^.01^1"
^DD(45.811,0,"NM","*SUFFIXES")=""
^DD(45.811,0,"UP")="45.81"
^DD(45.811,.01,0)="SUFFIXES^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(45.811,.01,1,0)="^.1"
^DD(45.811,.01,1,1,0)="45.81^D"
^DD(45.811,.01,1,1,1)="S ^DIC(45.81,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(45.811,.01,1,1,2)="K ^DIC(45.81,""D"",$E(X,1,30),DA(1),DA)"
^DD(45.811,.01,3)="Enter the allowable suffixes for this station type, 1-3 characters."
^DD(45.811,.01,21,0)="^^2^2^2920214^"
^DD(45.811,.01,21,1,0)="This sub-field contains the suffixes assigned to various stations"
^DD(45.811,.01,21,2,0)="or facilities."
^DD(45.811,"B","SUFFIXES",.01)=""
^DD(45.811,"GL",0,1,.01)=""
^DD(45.811,"IX",.01)=""
^DD(45.813,0)="SUFFIX PTR SUB-FIELD^^.01^1"
^DD(45.813,0,"DT")="2950620"
^DD(45.813,0,"IX","B",45.813,.01)=""
^DD(45.813,0,"NM","SUFFIX PTR")=""
^DD(45.813,0,"UP")="45.81"
^DD(45.813,.01,0)="SUFFIX PTR^RP45.68'^DIC(45.68,^0;1^Q"
^DD(45.813,.01,1,0)="^.1"
^DD(45.813,.01,1,1,0)="45.813^B"
^DD(45.813,.01,1,1,1)="S ^DIC(45.81,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(45.813,.01,1,1,2)="K ^DIC(45.81,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(45.813,.01,1,2,0)="45.81^D1^MUMPS"
^DD(45.813,.01,1,2,1)="S ^DIC(45.81,""D1"",$P($G(^DIC(45.68,X,0)),U),DA(1),DA)="""""
^DD(45.813,.01,1,2,2)="K ^DIC(45.81,""D1"",$P($G(^DIC(45.68,X,0)),U),DA(1),DA)"
^DD(45.813,.01,1,2,"DT")="2950620"
^DD(45.813,.01,21,0)="^^2^2^2950620^^^^"
^DD(45.813,.01,21,1,0)="This field points to the Facility Suffix file which contains the suffix,"
^DD(45.813,.01,21,2,0)="effective date, and active/inactive flag."
^DD(45.813,.01,"DT")="2950620"
^DD(45.813,"B","SUFFIX PTR",.01)=""
^DD(45.813,"GL",0,1,.01)=""
^DD(45.813,"IX",.01)=""
^DD(45.813,"RQ",.01)=""
^DD(45.82,0)="FIELD^^10^7"
^DD(45.82,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(45.82,0,"IX","B",45.82,.01)=""
^DD(45.82,0,"IX","C",45.82,2)=""
^DD(45.82,0,"NM","CATEGORY OF BENEFICIARY")=""
^DD(45.82,0,"PT",2,.31)=""
^DD(45.82,0,"PT",45,23)=""
^DD(45.82,0,"VR")="5.3"
^DD(45.82,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(45.82,.01,1,0)="^.1"
^DD(45.82,.01,1,1,0)="45.82^B"
^DD(45.82,.01,1,1,1)="S ^DIC(45.82,""B"",$E(X,1,30),DA)="""""
^DD(45.82,.01,1,1,2)="K ^DIC(45.82,""B"",$E(X,1,30),DA)"
^DD(45.82,.01,3)="Enter the code to be used for this category of benificiary, 1 character."
^DD(45.82,.01,21,0)="^^2^2^2920214^^"
^DD(45.82,.01,21,1,0)="This field contains a '1' character code representing the Category"
^DD(45.82,.01,21,2,0)="of Beneficiary."
^DD(45.82,2,0)="INTERPRETATION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<2) X"
^DD(45.82,2,1,0)="^.1"
^DD(45.82,2,1,1,0)="45.82^C"
^DD(45.82,2,1,1,1)="S ^DIC(45.82,""C"",$E(X,1,30),DA)="""""
^DD(45.82,2,1,1,2)="K ^DIC(45.82,""C"",$E(X,1,30),DA)"
^DD(45.82,2,3)="Enter the interpretation of the code of the category of beneficiary, 2-40 characters."
^DD(45.82,2,21,0)="^^2^2^2920214^^"
^DD(45.82,2,21,1,0)="This field contains the interpretation of the '1' character code"
^DD(45.82,2,21,2,0)="contained in the (.01) field."
^DD(45.82,3,0)="EARLIEST DATE OF ADMISSION^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.82,3,3)="Enter the earliest date of admission that is allowed for this category of beneficiary."
^DD(45.82,3,21,0)="^^3^3^2920214^^^"
^DD(45.82,3,21,1,0)="This field contains the earlist date of admission for this Category"
^DD(45.82,3,21,2,0)="of Beneficiary. This field is used for validating entries in PTF"
^DD(45.82,3,21,3,0)="and ADT."
^DD(45.82,4,0)="EARLIEST DATE OF BIRTH^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(45.82,4,3)="Enter the earliest date of birth that is allowed for this category of beneficiary."
^DD(45.82,4,21,0)="^^2^2^2920214^^"
^DD(45.82,4,21,1,0)="This field contains the earlist date of birth allowed for this"
^DD(45.82,4,21,2,0)="Category of Beneficiary."
^DD(45.82,5,0)="LATEST DATE OF BIRTH^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(45.82,5,3)="Enter the latest date of birth that is allowed for this category of beneficiary."
^DD(45.82,5,21,0)="^^2^2^2920214^^^"
^DD(45.82,5,21,1,0)="This field contains the last date of birth allowed for this Category"
^DD(45.82,5,21,2,0)="of Beneficary."
^DD(45.82,6,0)="EARLIEST AGE^NJ3,0^^0;6^K:+X'=X!(X>130)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.82,6,3)="Enter the earliest age that is allowed for this category of benificiary."
^DD(45.82,6,21,0)="^^2^2^2920214^^"
^DD(45.82,6,21,1,0)="This field contains the earliest age that is allowed for this Category"
^DD(45.82,6,21,2,0)="of Beneficiary."
^DD(45.82,10,0)="STATION TYPE^45.821PA^^ST;0"
^DD(45.82,10,21,0)="^^1^1^2920214^"
^DD(45.82,10,21,1,0)="This multiple contains station types assigned to specified admission."
^DD(45.82,"B","CODE",.01)=""
^DD(45.82,"B","EARLIEST AGE",6)=""
^DD(45.82,"B","EARLIEST DATE OF ADMISSION",3)=""
^DD(45.82,"B","EARLIEST DATE OF BIRTH",4)=""
^DD(45.82,"B","INTERPRETATION",2)=""
^DD(45.82,"B","LATEST DATE OF BIRTH",5)=""
^DD(45.82,"B","STATION TYPE",10)=""
^DD(45.82,"GL",0,1,.01)=""
^DD(45.82,"GL",0,2,2)=""
^DD(45.82,"GL",0,3,3)=""
^DD(45.82,"GL",0,4,4)=""
^DD(45.82,"GL",0,5,5)=""
^DD(45.82,"GL",0,6,6)=""
^DD(45.82,"GL","ST",0,10)=""
^DD(45.82,"IX",.01)=""
^DD(45.82,"IX",2)=""
^DD(45.82,"RQ",.01)=""
^DD(45.82,"RQ",2)=""
^DD(45.82,"SB",45.821,10)=""
^DD(45.821,0)="STATION TYPE SUB-FIELD^NL^.01^1"
^DD(45.821,0,"NM","STATION TYPE")=""
^DD(45.821,0,"UP")="45.82"
^DD(45.821,.01,0)="STATION TYPE^MP45.81X^DIC(45.81,^0;1^S DINUM=X"
^DD(45.821,.01,3)="Enter the station types that are allowed to have this category of beneficiary."
^DD(45.821,.01,21,0)="^^2^2^2920214^^"
^DD(45.821,.01,21,1,0)="This field contains the station types that are allowed with this type"
^DD(45.821,.01,21,2,0)="of Category of Beneficiary."
^DD(45.821,"B","STATION TYPE",.01)=""
^DD(45.821,"GL",0,1,.01)=""
^DD(45.83,0)="FIELD^^10^3"
^DD(45.83,0,"IX","ANT",45.83,.01)=""
^DD(45.83,0,"IX","ANT1",45.83,1)=""
^DD(45.83,0,"IX","AP",45.831,1)=""
^DD(45.83,0,"IX","B",45.83,.01)=""
^DD(45.83,0,"IX","C",45.831,.01)=""
^DD(45.83,0,"NM","PTF RELEASE")=""
^DD(45.83,0,"VR")="5.3"
^DD(45.83,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(45.83,.01,1,0)="^.1"
^DD(45.83,.01,1,1,0)="45.83^B"
^DD(45.83,.01,1,1,1)="S ^DGP(45.83,""B"",$E(X,1,30),DA)="""""
^DD(45.83,.01,1,1,2)="K ^DGP(45.83,""B"",$E(X,1,30),DA)"
^DD(45.83,.01,1,2,0)="45.83^ANT"
^DD(45.83,.01,1,2,1)="S ^DGP(45.83,""ANT"",$E(X,1,30),DA)="""""
^DD(45.83,.01,1,2,2)="K ^DGP(45.83,""ANT"",$E(X,1,30),DA)"
^DD(45.83,.01,3)="Enter the date PTF records are entered into the system for transmission to Austin."
^DD(45.83,.01,21,0)="^^2^2^2920214^^"
^DD(45.83,.01,21,1,0)="This field contains the date the PTF records are entered into the system"
^DD(45.83,.01,21,2,0)="for transmission to Austin."
^DD(45.83,.01,"DT")="2860108"
^DD(45.83,1,0)="TRANSMISSION DATE^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.83,1,1,0)="^.1"
^DD(45.83,1,1,1,0)="45.83^ANT1^MUMPS"
^DD(45.83,1,1,1,1)="K ^DGP(45.83,""ANT"",DA)"
^DD(45.83,1,1,1,2)="S ^DGP(45.83,""ANT"",DA,DA)="""""
^DD(45.83,1,3)="Enter the date and time the PTF records were transmitted to Austin."
^DD(45.83,1,21,0)="^^2^2^2920214^^"
^DD(45.83,1,21,1,0)="This field contains the date/time the PTF records were transmitted"
^DD(45.83,1,21,2,0)="to Austin."
^DD(45.83,1,"DT")="2860108"
^DD(45.83,10,0)="PTF RECORD^45.831PI^^P;0"
^DD(45.83,10,12)="TO EXECUTE INPUT SYNTAX"
^DD(45.83,10,12.1)="S DIC(""S"")=""I 1"""
^DD(45.83,10,21,0)="^^1^1^2920214^"
^DD(45.83,10,21,1,0)="This multiple contains the associated PTF record with this release."
^DD(45.83,"B","DATE",.01)=""
^DD(45.83,"B","PTF RECORD",10)=""
^DD(45.83,"B","TRANSMISSION DATE",1)=""
^DD(45.83,"GL",0,1,.01)=""
^DD(45.83,"GL",0,2,1)=""
^DD(45.83,"GL","P",0,10)=""
^DD(45.83,"IX",.01)=""
^DD(45.83,"IX",1)=""
^DD(45.83,"RQ",.01)=""
^DD(45.83,"SB",45.831,10)=""
^DD(45.831,0)="PTF RECORD SUB-FIELD^NL^2^3"
^DD(45.831,0,"IX","AC",45.831,.01)=""
^DD(45.831,0,"IX","AEDR",45.831,1)=""
^DD(45.831,0,"NM","PTF RECORD")=""
^DD(45.831,0,"UP")="45.83"
^DD(45.831,.01,0)="RECORD^*P45'X^DGPT(^0;1^S DIC(""S"")=""I $D(^DGP(45.84,+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(45.831,.01,1,0)="^.1^^-1"
^DD(45.831,.01,1,1,0)="45.83^C"
^DD(45.831,.01,1,1,1)="S ^DGP(45.83,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(45.831,.01,1,1,2)="K ^DGP(45.83,""C"",$E(X,1,30),DA(1),DA)"
^DD(45.831,.01,1,2,0)="^^TRIGGER^45^6"
^DD(45.831,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(45.831,.01,1,2,9.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,6)_"":"",2),$C(59),1) S D0=Y(1) S DIU=X K Y S X=DIV S X=""2"" X ^DD(45.831,.01,1,2,1.4)"
^DD(45.831,.01,1,2,1.4)="S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=45,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.831,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(45.831,.01,1,2,9.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,6)_"":"",2),$C(59),1) S D0=Y(1) S DIU=X K Y S X=DIV S X=""1"" X ^DD(45.831,.01,1,2,2.4)"
^DD(45.831,.01,1,2,2.4)="S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=45,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.831,.01,1,2,9.2)="S Y(1)=$S($D(D0):D0,1:""""),D0=X S:'$D(^DGPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(102)=$C(59)_$S($D(^DD(45,6,0)):$P(^(0),U,3),1:""""),Y(101)=$S($D(^DGPT(D0,0)):^(0),1:"""")"
^DD(45.831,.01,1,2,"CREATE VALUE")="""2"""
^DD(45.831,.01,1,2,"DELETE VALUE")="""1"""
^DD(45.831,.01,1,2,"FIELD")="PTF:STATUS"
^DD(45.831,.01,1,3,0)="45.831^AC^MUMPS"
^DD(45.831,.01,1,3,1)="Q"
^DD(45.831,.01,1,3,2)="S:$D(^DGP(45.84,X,0)) ^(0)=$P(^(0)_""^^^"",U,1,3)_""^^""_$P(^(0),U,5,99)"
^DD(45.831,.01,3)="Enter the PTF records you wish to transmit to Austin for the date specified."
^DD(45.831,.01,12)="Only records that have been closed out"
^DD(45.831,.01,12.1)="S DIC(""S"")=""I $D(^DGP(45.84,+Y))"""
^DD(45.831,.01,21,0)="^^4^4^2920214^^"
^DD(45.831,.01,21,1,0)="This field contains the PTF record that you wish to transmit to Austin for"
^DD(45.831,.01,21,2,0)="a specified date. This entry is DINUMed with the PTF record contained in"
^DD(45.831,.01,21,3,0)="the PTF File (#45). Only records that have been closed can be chosen for"
^DD(45.831,.01,21,4,0)="transmission to Austin."
^DD(45.831,.01,"DT")="2850425"
^DD(45.831,1,0)="DATE TRANSMITTED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.831,1,1,0)="^.1^^-1"
^DD(45.831,1,1,1,0)="45.83^AP"
^DD(45.831,1,1,1,1)="S ^DGP(45.83,""AP"",$E(X,1,30),DA(1),DA)="""""
^DD(45.831,1,1,1,2)="K ^DGP(45.83,""AP"",$E(X,1,30),DA(1),DA)"
^DD(45.831,1,1,2,0)="45.831^AEDR^MUMPS"
^DD(45.831,1,1,2,1)="Q"
^DD(45.831,1,1,2,2)="Q"
^DD(45.831,1,1,2,"%D",0)="^^2^2^2980224^"
^DD(45.831,1,1,2,"%D",1,0)="The functionality of this cross-reference has been removed with the"
^DD(45.831,1,1,2,"%D",2,0)="shutdown of EVENT DRIVEN REPORTING (EDR)."
^DD(45.831,1,1,2,"DT")="2980224"
^DD(45.831,1,21,0)="^^1^1^2920214^^"
^DD(45.831,1,21,1,0)="This field contains the date the PTF record was transmitted to Austin."
^DD(45.831,1,"DT")="2980224"
^DD(45.831,2,0)="MESSAGE^P3.9'^XMB(3.9,^0;3^Q"
^DD(45.831,2,21,0)="^^2^2^2920214^^"
^DD(45.831,2,21,1,0)="This field contains a pointer to the message in which this PTF record"
^DD(45.831,2,21,2,0)="was transmitted to Austin."
^DD(45.831,2,"DT")="2850429"
^DD(45.831,"B","DATE TRANSMITTED",1)=""
^DD(45.831,"B","MESSAGE",2)=""
^DD(45.831,"B","RECORD",.01)=""
^DD(45.831,"GL",0,1,.01)=""
^DD(45.831,"GL",0,2,1)=""
^DD(45.831,"GL",0,3,2)=""
^DD(45.831,"IX",.01)=""
^DD(45.831,"IX",1)=""
^DD(45.84,0)="FIELD^^16^15"
^DD(45.84,0,"DT")="2910521"
^DD(45.84,0,"ID",.01)="I $D(^DGPT(+Y,0)) W ""  "",$P(^DPT(+^DGPT(+Y,0),0),U,9) I $D(^DGP(45.84,+Y,0))"
^DD(45.84,0,"ID",1)="I $D(^DGPT(+Y,0)) W ""  "",""Admitted: "",$E($P(^DGPT(+Y,0),U,2),4,5)_""-""_$E($P(^(""0""),U,2),6,7)_""-""_$E($P(^(""0""),U,2),2,3) S %=^DGP(45.84,+Y,0) K %"
^DD(45.84,0,"IX","AC",45.84,2)=""
^DD(45.84,0,"IX","AD",45.84,.01)=""
^DD(45.84,0,"IX","AE",45.84,3)=""
^DD(45.84,0,"IX","AF",45.84,5)=""
^DD(45.84,0,"IX","B",45.84,.01)=""
^DD(45.84,0,"NM","PTF CLOSE OUT")=""
^DD(45.84,0,"PT",45,7.1)=""
^DD(45.84,0,"VR")="5.3"
^DD(45.84,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.84,.001,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999"
^DD(45.84,.001,21,0)="^^1^1^2920214^"
^DD(45.84,.001,21,1,0)="This field contains the IFN of associated file entry."
^DD(45.84,.001,"DT")="2841120"
^DD(45.84,.01,0)="PTF RECORD^RP45'X^DGPT(^0;1^S DINUM=X"
^DD(45.84,.01,1,0)="^.1"
^DD(45.84,.01,1,1,0)="45.84^B"
^DD(45.84,.01,1,1,1)="S ^DGP(45.84,""B"",$E(X,1,30),DA)="""""
^DD(45.84,.01,1,1,2)="K ^DGP(45.84,""B"",$E(X,1,30),DA)"
^DD(45.84,.01,1,2,0)="^^TRIGGER^45^6"
^DD(45.84,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(45.84,.01,1,2,9.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,6)_"":"",2),$C(59),1) S D0=Y(1) S DIU=X K Y S X=DIV S X=""1"" X ^DD(45.84,.01,1,2,1.4)"
^DD(45.84,.01,1,2,1.4)="S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=45,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.84,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(45.84,.01,1,2,9.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,6)_"":"",2),$C(59),1) S D0=Y(1) S DIU=X K Y S X=DIV S X=""0"" X ^DD(45.84,.01,1,2,2.4)"
^DD(45.84,.01,1,2,2.4)="S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=45,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.84,.01,1,2,9.2)="S Y(1)=$S($D(D0):D0,1:""""),D0=X S:'$D(^DGPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(102)=$C(59)_$S($D(^DD(45,6,0)):$P(^(0),U,3),1:""""),Y(101)=$S($D(^DGPT(D0,0)):^(0),1:"""")"
^DD(45.84,.01,1,2,"CREATE VALUE")="""1"""
^DD(45.84,.01,1,2,"DELETE VALUE")="""0"""
^DD(45.84,.01,1,2,"FIELD")="PTF:STATUS"
^DD(45.84,.01,1,3,0)="45.84^AD^MUMPS"
^DD(45.84,.01,1,3,1)="S $P(^DGPT(DA,0),U,9)=DA"
^DD(45.84,.01,1,3,2)="S $P(^DGPT(DA,0),U,9)="""""
^DD(45.84,.01,3)=""
^DD(45.84,.01,4)=""
^DD(45.84,.01,12)="TO EXECUTE INPUT SYNTAX"
^DD(45.84,.01,12.1)="S DIC(""S"")=""I 1"""
^DD(45.84,.01,21,0)="^^2^2^2920214^^"
^DD(45.84,.01,21,1,0)="This field contains a pointer to the PTF record that has been closed"
^DD(45.84,.01,21,2,0)="out. This entry is DINUMed with the PTF File (#45)."
^DD(45.84,.01,"DEL",1,0)="I $D(^DGP(45.83,""C"",DA)) W *7,!,""CANNOT REOPEN - ALREADY RELEASED"""
^DD(45.84,.01,"DT")="2850208"
^DD(45.84,1,0)="ADMISSION DATE^DC^^ ; ^X ^DD(45.84,1,9.2) S X=$P(Y(45.84,1,101),U,2) S D0=Y(45.84,1,2)"
^DD(45.84,1,9)="^"
^DD(45.84,1,9.01)="45^2;45.84^.01"
^DD(45.84,1,9.1)="PTF:ADMISSION DATE"
^DD(45.84,1,9.2)="S Y(45.84,1,2)=$S($D(D0):D0,1:""""),Y(45.84,1,1)=$S($D(^DGP(45.84,D0,0)):^(0),1:""""),D0=$P(Y(45.84,1,1),U,1) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(45.84,1,101)=$S($D(^DGPT(D0,0)):^(0),1:"""")"
^DD(45.84,1,21,0)="^^1^1^2920214^^"
^DD(45.84,1,21,1,0)="This is the admission date as it appears in the PTF record in file (#45)."
^DD(45.84,2,0)="CLOSE OUT DATE^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.84,2,1,0)="^.1"
^DD(45.84,2,1,1,0)="45.84^AC"
^DD(45.84,2,1,1,1)="S ^DGP(45.84,""AC"",$E(X,1,30),DA)="""""
^DD(45.84,2,1,1,2)="K ^DGP(45.84,""AC"",$E(X,1,30),DA)"
^DD(45.84,2,3)="Enter the date and time this record was closed out by the coding clerks."
^DD(45.84,2,21,0)="^^2^2^2920214^^"
^DD(45.84,2,21,1,0)="This field contains the date/time this record was closed out by the "
^DD(45.84,2,21,2,0)="coding clerks."
^DD(45.84,2,"DT")="2841221"
^DD(45.84,3,0)="LAST CLOSED OUT BY^P200'^VA(200,^0;3^Q"
^DD(45.84,3,1,0)="^.1"
^DD(45.84,3,1,1,0)="45.84^AE^MUMPS"
^DD(45.84,3,1,1,1)="S:'$D(^DGPT(DA,1,0)) ^(0)=""^45.03PA^1^1"" S ^DGPT(DA,1,1,0)=X"
^DD(45.84,3,1,1,2)="K ^DGPT(DA,1,1,0)"
^DD(45.84,3,3)="Enter the person who closed out this PTF record."
^DD(45.84,3,21,0)="^^2^2^2920214^^"
^DD(45.84,3,21,1,0)="This field contains a pointer to file (#200) that indicates which"
^DD(45.84,3,21,2,0)="clerk closed out this PTF record."
^DD(45.84,3,"DT")="2900310"
^DD(45.84,4,0)="RELEASE DATE^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.84,4,1,0)="^.1^^0"
^DD(45.84,4,3)="Enter the date and time this record was released."
^DD(45.84,4,21,0)="^^2^2^2920214^^"
^DD(45.84,4,21,1,0)="This field contains the date/time that the PTF record was released"
^DD(45.84,4,21,2,0)="for transmission to Austin."
^DD(45.84,4,"DT")="2841221"
^DD(45.84,5,0)="RELEASED BY^P200'^VA(200,^0;5^Q"
^DD(45.84,5,1,0)="^.1"
^DD(45.84,5,1,1,0)="45.84^AF^MUMPS"
^DD(45.84,5,1,1,1)="S:'$D(^DGPT(DA,1,0)) ^(0)=""^45.03^1^1"" S ^DGPT(DA,1,2,0)=X"
^DD(45.84,5,1,1,2)="K ^DGPT(DA,1,2,0)"
^DD(45.84,5,3)="Enter the person who released this record for transmission to Austin."
^DD(45.84,5,21,0)="^^2^2^2920214^^"
^DD(45.84,5,21,1,0)="This field contains a pointer to file (#200) indicating which clerk"
^DD(45.84,5,21,2,0)="released the PTF record for transmission to Austin."
^DD(45.84,5,"DT")="2900310"
^DD(45.84,6,0)="DRG^P80.2'^ICD(^0;6^Q"
^DD(45.84,6,21,0)="^^2^2^2920214^^^^"
^DD(45.84,6,21,1,0)="This field contains a pointer to the DRG File (#80.2) which is the"
^DD(45.84,6,21,2,0)="DRG at the time of close out for this patient."
^DD(45.84,6,"DT")="2861106"
^DD(45.84,10,0)="STORED(0)^F^^10;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(45.84,10,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(45.84,10,21,0)="^^4^4^2920214^^"
^DD(45.84,10,21,1,0)="This field contains the (0) node of the patient's record at the time"
^DD(45.84,10,21,2,0)="the PTF record was closed out. The information contained in this node is"
^DD(45.84,10,21,3,0)="demographic information about the patient. For a complete description of"
^DD(45.84,10,21,4,0)="the contents of this field refer to the Patient File (#2)."
^DD(45.84,10,"DT")="2850314"
^DD(45.84,11,0)="STORED(.11)^F^^.11;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(45.84,11,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(45.84,11,21,0)="^^4^4^2920214^^^"
^DD(45.84,11,21,1,0)="This field contains the (.11) node of the patient's record at the of"
^DD(45.84,11,21,2,0)="close out. The patients current address is contained in this node. For a"
^DD(45.84,11,21,3,0)="complete description of the contents of this field refer to the Patient"
^DD(45.84,11,21,4,0)="File (#2)."
^DD(45.84,11,"DT")="2850314"
^DD(45.84,12,0)="STORED(.52)^F^^.52;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(45.84,12,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(45.84,12,21,0)="^^4^4^2920214^^"
^DD(45.84,12,21,1,0)="This field contains the (.52) node of the patient's record at the time of"
^DD(45.84,12,21,2,0)="close out. The information contained in this node includes POW"
^DD(45.84,12,21,3,0)="information. For a complete description of the contents of this field"
^DD(45.84,12,21,4,0)="refer to the Patient File (#2)."
^DD(45.84,12,"DT")="2850314"
^DD(45.84,13,0)="STORED(.321)^F^^.321;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(45.84,13,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(45.84,13,21,0)="^^4^4^2920214^^"
^DD(45.84,13,21,1,0)="This field contains the (.321) node of the patient's record at the time"
^DD(45.84,13,21,2,0)="of close out. The following information is contained in the (.321) node:"
^DD(45.84,13,21,3,0)="Agent Orange,  Radiation and Vietnam Service information. For a complete"
^DD(45.84,13,21,4,0)="description of the (.321) node refer to the Patient File (#2)."
^DD(45.84,13,"DT")="2850314"
^DD(45.84,14,0)="STORED(.32)^F^^.32;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(45.84,14,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(45.84,14,21,0)="^^4^4^2920214^^"
^DD(45.84,14,21,1,0)="This field contains the (.32) node of the patient's record at the time of"
^DD(45.84,14,21,2,0)="close out. Information about the patients' military service is stored in"
^DD(45.84,14,21,3,0)="this node. For a complete description of the (.32) node refer to the"
^DD(45.84,14,21,4,0)="Patient File (#2)."
^DD(45.84,14,"DT")="2850314"
^DD(45.84,15,0)="STORED(57)^F^^57;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(45.84,15,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(45.84,15,21,0)="^^4^4^2920214^^^"
^DD(45.84,15,21,1,0)="This field contains the (.56) node of the patient's record at the time"
^DD(45.84,15,21,2,0)="of close out. This node contains information relating to spinal cord"
^DD(45.84,15,21,3,0)="injury. For a complete description of the (.56) node refer to the Patient"
^DD(45.84,15,21,4,0)="File (#2)."
^DD(45.84,16,0)="STORED(.3)^F^^.3;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(45.84,16,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(45.84,16,21,0)="^^4^4^2920214^^"
^DD(45.84,16,21,1,0)="This field contains the (.3) node of the patient's record at the time of"
^DD(45.84,16,21,2,0)="close out. This node contains information about monetary benefits"
^DD(45.84,16,21,3,0)="recieved by the patients. For a complete description of the (.3) node"
^DD(45.84,16,21,4,0)="refer to the Patient File (#2)."
^DD(45.84,16,22)="6"
^DD(45.84,16,"DT")="2910521"
^DD(45.84,"B","ADMISSION DATE",1)=""
^DD(45.84,"B","CLOSE OUT DATE",2)=""
^DD(45.84,"B","DRG",6)=""
^DD(45.84,"B","LAST CLOSED OUT BY",3)=""
^DD(45.84,"B","NUMBER",.001)=""
^DD(45.84,"B","PTF RECORD",.01)=""
^DD(45.84,"B","RELEASE DATE",4)=""
^DD(45.84,"B","RELEASED BY",5)=""
^DD(45.84,"B","STORED(.11)",11)=""
^DD(45.84,"B","STORED(.3)",16)=""
^DD(45.84,"B","STORED(.32)",14)=""
^DD(45.84,"B","STORED(.321)",13)=""
^DD(45.84,"B","STORED(.52)",12)=""
^DD(45.84,"B","STORED(0)",10)=""
^DD(45.84,"B","STORED(57)",15)=""
^DD(45.84,"GL",0,1,.01)=""
^DD(45.84,"GL",0,2,2)=""
^DD(45.84,"GL",0,3,3)=""
^DD(45.84,"GL",0,4,4)=""
^DD(45.84,"GL",0,5,5)=""
^DD(45.84,"GL",0,6,6)=""
^DD(45.84,"GL",.11,"E1,245",11)=""
^DD(45.84,"GL",.3,"E1,245",16)=""
^DD(45.84,"GL",.32,"E1,245",14)=""
^DD(45.84,"GL",.321,"E1,245",13)=""
^DD(45.84,"GL",.52,"E1,245",12)=""
^DD(45.84,"GL",10,"E1,245",10)=""
^DD(45.84,"GL",57,"E1,245",15)=""
^DD(45.84,"IX",.01)=""
^DD(45.84,"IX",2)=""
^DD(45.84,"IX",3)=""
^DD(45.84,"IX",5)=""
^DD(45.84,"RQ",.01)=""
^DD(45.84,"RQ",2)=""
^DD(45.85,0)="FIELD^^103^9"
^DD(45.85,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(45.86,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(45.86,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(45.85,0,"IX","ACENSUS",45.85,.04)=""
^DD(45.85,0,"IX","B",45.85,.01)=""
^DD(45.85,0,"IX","PTF",45.85,.12)=""
^DD(45.85,0,"NM","CENSUS WORKFILE")=""
^DD(45.85,0,"VR")="5.3"
^DD(45.85,.01,0)="NAME^RP2^DPT(^0;1^Q"
^DD(45.85,.01,1,0)="^.1"
^DD(45.85,.01,1,1,0)="45.85^B"
^DD(45.85,.01,1,1,1)="S ^DG(45.85,""B"",$E(X,1,30),DA)="""""
^DD(45.85,.01,1,1,2)="K ^DG(45.85,""B"",$E(X,1,30),DA)"
^DD(45.85,.01,3)=""
^DD(45.85,.01,21,0)="^^1^1^2920214^^"
^DD(45.85,.01,21,1,0)="This field contains the name of the inpatient."
^DD(45.85,.02,0)="ADMISSION DATE^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.85,.02,21,0)="^^2^2^2920214^^^^"
^DD(45.85,.02,21,1,0)="This field contains the admission date and time associated with this"
^DD(45.85,.02,21,2,0)="workfile entry."
^DD(45.85,.03,0)="ADMISSION ENTRY^P405'^DGPM(^0;3^Q"
^DD(45.85,.03,3)=""
^DD(45.85,.03,21,0)="^^3^3^2920214^^"
^DD(45.85,.03,21,1,0)="This field contains the internal entry number to the patient's"
^DD(45.85,.03,21,2,0)="admission multiple.  This number represent the admission entry"
^DD(45.85,.03,21,3,0)="that caused this workfile entry to be created."
^DD(45.85,.03,"DT")="2901019"
^DD(45.85,.04,0)="CENSUS DATE^P45.86'^DG(45.86,^0;4^Q"
^DD(45.85,.04,1,0)="^.1"
^DD(45.85,.04,1,1,0)="45.85^ACENSUS"
^DD(45.85,.04,1,1,1)="S ^DG(45.85,""ACENSUS"",$E(X,1,30),DA)="""""
^DD(45.85,.04,1,1,2)="K ^DG(45.85,""ACENSUS"",$E(X,1,30),DA)"
^DD(45.85,.04,3)=""
^DD(45.85,.04,21,0)="^^10^10^2920214^^^^"
^DD(45.85,.04,21,1,0)="This field contains the CENSUS DATE that the workfile entry"
^DD(45.85,.04,21,2,0)="is associated."
^DD(45.85,.04,21,3,0)=" "
^DD(45.85,.04,21,4,0)="Note that an admission can be associated with more than one"
^DD(45.85,.04,21,5,0)="census record but each workfile entry is associated with only"
^DD(45.85,.04,21,6,0)="one census record."
^DD(45.85,.04,21,7,0)=" "
^DD(45.85,.04,21,8,0)="As an example, a patient who was a continuous inpatient from"
^DD(45.85,.04,21,9,0)="8/1/91 to 11/1/92 would have census records for the 9/30/91"
^DD(45.85,.04,21,10,0)="and 9/30/92 censuses. This admission would have two workfile entries."
^DD(45.85,.04,"DT")="2900412"
^DD(45.85,.05,0)="DISCHARGE DATE^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.85,.05,21,0)="^^2^2^2900612^^^"
^DD(45.85,.05,21,1,0)="This field contains the discharge date and time associated with this"
^DD(45.85,.05,21,2,0)="workfile entry."
^DD(45.85,.06,0)="WARD ON CENSUS DATE^P42'^DIC(42,^0;6^Q"
^DD(45.85,.06,21,0)="^^2^2^2911224^^^"
^DD(45.85,.06,21,1,0)="This field contains the ward that the patient was on as of"
^DD(45.85,.06,21,2,0)="11:59 of the CENSUS DATE."
^DD(45.85,.12,0)="PTF NUMBER^*P45'^DGPT(^0;12^S DIC(""S"")=""I $P(^(0),U,11)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.85,.12,1,0)="^.1"
^DD(45.85,.12,1,1,0)="45.85^PTF"
^DD(45.85,.12,1,1,1)="S ^DG(45.85,""PTF"",$E(X,1,30),DA)="""""
^DD(45.85,.12,1,1,2)="K ^DG(45.85,""PTF"",$E(X,1,30),DA)"
^DD(45.85,.12,12)="Only PTF records allowed."
^DD(45.85,.12,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=1"""
^DD(45.85,.12,21,0)="^^2^2^2900612^"
^DD(45.85,.12,21,1,0)="This field contains the PTF record that is assoicated with this"
^DD(45.85,.12,21,2,0)="workfile entry."
^DD(45.85,.12,"DT")="2900518"
^DD(45.85,101,0)="CENSUS STATUS^CJ6^^ ; ^D STATUS^DGPTCO1"
^DD(45.85,101,9)="^"
^DD(45.85,101,9.01)=""
^DD(45.85,101,9.1)="D STATUS^DGPTCO1"
^DD(45.85,101,21,0)="^^7^7^2900810^^^^"
^DD(45.85,101,21,1,0)="This computed field will display/print the census status"
^DD(45.85,101,21,2,0)="associated with the admission and CENSUS DATE for this workfile entry."
^DD(45.85,101,21,3,0)=" "
^DD(45.85,101,21,4,0)="Possible statuses are:   Open"
^DD(45.85,101,21,5,0)="                         Closed"
^DD(45.85,101,21,6,0)="                         Released"
^DD(45.85,101,21,7,0)="                         Transmitted"
^DD(45.85,103,0)="CENSUS RECORD NUMBER^CJ8^^ ; ^D CREC^DGPTCO1"
^DD(45.85,103,9)="^"
^DD(45.85,103,9.01)=""
^DD(45.85,103,9.1)="D CREC^DGPTCO1"
^DD(45.85,103,21,0)="^^3^3^2911224^^^^"
^DD(45.85,103,21,1,0)="This computed field displays/prints the census record number "
^DD(45.85,103,21,2,0)="associated with the admission and CENSUS DATE for this workfile"
^DD(45.85,103,21,3,0)="entry."
^DD(45.85,103,"DT")="2900515"
^DD(45.85,"B","ADMISSION DATE",.02)=""
^DD(45.85,"B","ADMISSION ENTRY",.03)=""
^DD(45.85,"B","CENSUS DATE",.04)=""
^DD(45.85,"B","CENSUS RECORD NUMBER",103)=""
^DD(45.85,"B","CENSUS STATUS",101)=""
^DD(45.85,"B","DISCHARGE DATE",.05)=""
^DD(45.85,"B","NAME",.01)=""
^DD(45.85,"B","PTF NUMBER",.12)=""
^DD(45.85,"B","WARD ON CENSUS DATE",.06)=""
^DD(45.85,"GL",0,1,.01)=""
^DD(45.85,"GL",0,2,.02)=""
^DD(45.85,"GL",0,3,.03)=""
^DD(45.85,"GL",0,4,.04)=""
^DD(45.85,"GL",0,5,.05)=""
^DD(45.85,"GL",0,6,.06)=""
^DD(45.85,"GL",0,12,.12)=""
^DD(45.85,"IX",.01)=""
^DD(45.85,"IX",.04)=""
^DD(45.85,"IX",.12)=""
^DD(45.85,"RQ",.01)=""
^DD(45.86,0)="FIELD^^.06^6"
^DD(45.86,0,"DDA")="N"
^DD(45.86,0,"IX","AC",45.86,.04)=""
^DD(45.86,0,"IX","B",45.86,.01)=""
^DD(45.86,0,"NM","PTF CENSUS DATE")=""
^DD(45.86,0,"PT",45,13)=""
^DD(45.86,0,"PT",45.85,.04)=""
^DD(45.86,0,"VR")="5.3"
^DD(45.86,.01,0)="DATE^RDX^^0;1^S %DT(0)=-3010630,%DT=""EX"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(45.86,.01,1,0)="^.1"
^DD(45.86,.01,1,1,0)="45.86^B"
^DD(45.86,.01,1,1,1)="S ^DG(45.86,""B"",$E(X,1,30),DA)="""""
^DD(45.86,.01,1,1,2)="K ^DG(45.86,""B"",$E(X,1,30),DA)"
^DD(45.86,.01,3)=" "
^DD(45.86,.01,21,0)="^.001^12^12^3001129^^"
^DD(45.86,.01,21,1,0)="This field contains the census date as established by VACO."
^DD(45.86,.01,21,2,0)=" "
^DD(45.86,.01,21,3,0)="It is used in various census options and reports.  Its"
^DD(45.86,.01,21,4,0)="most important use is to determine who needs census"
^DD(45.86,.01,21,5,0)="transactions sent to Austin.  All inpatients as of 11:59pm"
^DD(45.86,.01,21,6,0)="of the census date are listed in the Census Status Report"
^DD(45.86,.01,21,7,0)="as needing a transaction."
^DD(45.86,.01,21,8,0)=" "
^DD(45.86,.01,21,9,0)="This date is usually the last date of the quarter, such as 12/31/2000."
^DD(45.86,.01,21,10,0)=" "
^DD(45.86,.01,21,11,0)="Please note, you are not allowed to enter a census date "
^DD(45.86,.01,21,12,0)="greater then the last day of the quarter."
^DD(45.86,.01,"DEL",1,0)="I 1 W !?5,""You cannot delete a PTF CENSUS DATE entry"""
^DD(45.86,.01,"DT")="3010515"
^DD(45.86,.02,0)="CLOSEOUT DATE^DX^^0;2^S %DT=""EX"",%DT(0)=+^DG(45.86,DA,0) D ^%DT K %DT S X=Y K:Y<1 X"
^DD(45.86,.02,21,0)="^^6^6^2950823^^^^"
^DD(45.86,.02,21,1,0)="This field contains the last date census transactions can be"
^DD(45.86,.02,21,2,0)="transmitted to Austin.  This date is determined by VACO and"
^DD(45.86,.02,21,3,0)="should only be changed as directed by VACO."
^DD(45.86,.02,21,4,0)=" "
^DD(45.86,.02,21,5,0)="Once this CLOSEOUT DATE has passed, census transactions"
^DD(45.86,.02,21,6,0)="for this census date are not allowed to be sent by the software."
^DD(45.86,.02,"DT")="2950823"
^DD(45.86,.03,0)="OK TO XMIT PTF TRANSACTIONS^DX^^0;3^S %DT=""EX"",%DT(0)=+^DG(45.86,DA,0) D ^%DT K %DT S X=Y K:Y<1 X"
^DD(45.86,.03,3)=""
^DD(45.86,.03,21,0)="^^17^17^2950823^^^^"
^DD(45.86,.03,21,1,0)="This field contains the date PTF records can be transmitted for"
^DD(45.86,.03,21,2,0)="patients who also have census records for this census year."
^DD(45.86,.03,21,3,0)=" "
^DD(45.86,.03,21,4,0)="Note: Discharges that have admission dates after the census date"
^DD(45.86,.03,21,5,0)="      are not affected by this parameter.  PTF records for these"
^DD(45.86,.03,21,6,0)="      admissions can be transmitted in the usual manner."
^DD(45.86,.03,21,7,0)=" "
^DD(45.86,.03,21,8,0)="This date is determined by VACO and should only be changed"
^DD(45.86,.03,21,9,0)="as directed by VACO."
^DD(45.86,.03,21,10,0)=" "
^DD(45.86,.03,21,11,0)="If PTF transactions are transmitted to Austin before this"
^DD(45.86,.03,21,12,0)="date, the PTF transaction would overlay census transactions"
^DD(45.86,.03,21,13,0)="for the admission."
^DD(45.86,.03,21,14,0)=" "
^DD(45.86,.03,21,15,0)="It is possible to close and release PTF transactions. However, the"
^DD(45.86,.03,21,16,0)="software will not allow the transmission of these PTF"
^DD(45.86,.03,21,17,0)="transactions before this OK TO XMIT PTF TRANSACTIONS date."
^DD(45.86,.03,"DT")="2900414"
^DD(45.86,.04,0)="CURRENTLY ACTIVE?^SX^0:NO;1:YES;^0;4^I $D(X),X,$O(^DG(45.86,""AC"",1,0)),DA'=$O(^(0)) K X W !,""Census Date '"",$S($D(^DG(45.86,$O(^(0)),0)):$E(^(0),4,5)_""/""_$E(^(0),6,7)_""/""_$E(^(0),2,3),1:""??""),""' is already active"""
^DD(45.86,.04,1,0)="^.1"
^DD(45.86,.04,1,1,0)="45.86^AC"
^DD(45.86,.04,1,1,1)="S ^DG(45.86,""AC"",$E(X,1,30),DA)="""""
^DD(45.86,.04,1,1,2)="K ^DG(45.86,""AC"",$E(X,1,30),DA)"
^DD(45.86,.04,21,0)="^^9^9^2950823^^^^"
^DD(45.86,.04,21,1,0)="This field indicates if this census date entry is the currently"
^DD(45.86,.04,21,2,0)="active census.  There can only be one census date active at"
^DD(45.86,.04,21,3,0)="any one point in time.  It is possible not to have any census"
^DD(45.86,.04,21,4,0)="date active."
^DD(45.86,.04,21,5,0)=" "
^DD(45.86,.04,21,6,0)="The software enforces this 'only one active' rule."
^DD(45.86,.04,21,7,0)="If a user attempts to have more than one census date active, "
^DD(45.86,.04,21,8,0)="s/he will get an error message indicating the census date that"
^DD(45.86,.04,21,9,0)="is currently active."
^DD(45.86,.04,"DT")="2900415"
^DD(45.86,.05,0)="CENSUS PERIOD START DATE^RDX^^0;5^S %DT=""EX"",%DT(0)=-^DG(45.86,DA,0) D ^%DT K %DT S X=Y K:Y<1 X"
^DD(45.86,.05,21,0)="^^11^11^2950823^^^^"
^DD(45.86,.05,21,1,0)="This field contains the first date of the census period.  All"
^DD(45.86,.05,21,2,0)="specialty movements and procedures that occurred for the inpatient"
^DD(45.86,.05,21,3,0)="from this date, CENSUS PERIOD START DATE, to the census date"
^DD(45.86,.05,21,4,0)="should be reported to Austin for the census."
^DD(45.86,.05,21,5,0)=" "
^DD(45.86,.05,21,6,0)="The software uses this date when creating the census record"
^DD(45.86,.05,21,7,0)="from the PTF record.  Only those movements and procedures that"
^DD(45.86,.05,21,8,0)="occurred during that time frame are copied."
^DD(45.86,.05,21,9,0)=" "
^DD(45.86,.05,21,10,0)="This date is usually the first day of a Fiscal Year, such as 10/1/94"
^DD(45.86,.05,21,11,0)="for the 9/30/95 census."
^DD(45.86,.05,"DT")="2900416"
^DD(45.86,.06,0)="WORKFILE LAST UPDATED^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(45.86,.06,9)="^"
^DD(45.86,.06,21,0)="^^4^4^2950823^^^^"
^DD(45.86,.06,21,1,0)="This field contains the date that the census workfile was last"
^DD(45.86,.06,21,2,0)="updated for this particular PTF census date entry."
^DD(45.86,.06,21,3,0)=" "
^DD(45.86,.06,21,4,0)="The 'Regenerate Census Workfile' option updates this field."
^DD(45.86,.06,"DT")="2900430"
^DD(45.86,"B","CENSUS PERIOD START DATE",.05)=""
^DD(45.86,"B","CLOSEOUT DATE",.02)=""
^DD(45.86,"B","CURRENTLY ACTIVE?",.04)=""
^DD(45.86,"B","DATE",.01)=""
^DD(45.86,"B","OK TO XMIT PTF TRANSACTIONS",.03)=""
^DD(45.86,"B","WORKFILE LAST UPDATED",.06)=""
^DD(45.86,"GL",0,1,.01)=""
^DD(45.86,"GL",0,2,.02)=""
^DD(45.86,"GL",0,3,.03)=""
^DD(45.86,"GL",0,4,.04)=""
^DD(45.86,"GL",0,5,.05)=""
^DD(45.86,"GL",0,6,.06)=""
^DD(45.86,"IX",.01)=""
^DD(45.86,"IX",.04)=""
^DD(45.86,"RQ",.01)=""
^DD(45.86,"RQ",.05)=""
^DD(45.87,0)="FIELD^^.1^10"
^DD(45.87,0,"DT")="2940919"
^DD(45.87,0,"IX","B",45.87,.01)=""
^DD(45.87,0,"NM","PTF TRANSACTION REQUEST LOG")=""
^DD(45.87,0,"VR")="5.3"
^DD(45.87,.01,0)="DATE INITIATED^MRD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(45.87,.01,1,0)="^.1"
^DD(45.87,.01,1,1,0)="45.87^B"
^DD(45.87,.01,1,1,1)="S ^DGP(45.87,""B"",$E(X,1,30),DA)="""""
^DD(45.87,.01,1,1,2)="K ^DGP(45.87,""B"",$E(X,1,30),DA)"
^DD(45.87,.01,3)=""
^DD(45.87,.01,21,0)="^^2^2^2910301^^"
^DD(45.87,.01,21,1,0)="This field contains the date and time the user initially submitted the"
^DD(45.87,.01,21,2,0)="transaction."
^DD(45.87,.02,0)="USER^P200'^VA(200,^0;2^Q"
^DD(45.87,.02,21,0)="^^1^1^2910301^^"
^DD(45.87,.02,21,1,0)="This field contains the user name who submitted the transaction."
^DD(45.87,.02,"DT")="2910301"
^DD(45.87,.03,0)="MAIL MSG #^P3.9'O^XMB(3.9,^0;3^Q"
^DD(45.87,.03,2)="S Y(0)=Y S Y=+Y"
^DD(45.87,.03,2.1)="S Y=+Y"
^DD(45.87,.03,21,0)="^^2^2^2910723^^^^"
^DD(45.87,.03,21,1,0)="This field contains the Mailman message number which "
^DD(45.87,.03,21,2,0)="contains the transaction that was sent to Austin."
^DD(45.87,.03,21,3,0)="that was sent to Austin."
^DD(45.87,.03,"DT")="2910301"
^DD(45.87,.04,0)="BLOCK^F^^0;4^K:$L(X)>4!($L(X)<4) X"
^DD(45.87,.04,3)="Answer must be 4 characters in length."
^DD(45.87,.04,21,0)="^^5^5^2910301^"
^DD(45.87,.04,21,1,0)="This field contains the transaction type for the request."
^DD(45.87,.04,21,2,0)="For example, it can contain the following:"
^DD(45.87,.04,21,3,0)="            o  N099 for PTF record deletion"
^DD(45.87,.04,21,4,0)="            o  N150 for RPO of a specific admission at a VAMC"
^DD(45.87,.04,21,5,0)="            o  N151 for RPO of all admissions at a VAMC"
^DD(45.87,.04,"DT")="2910213"
^DD(45.87,.05,0)="SSN^F^^0;5^K:$L(X)>10!($L(X)<9)!'(X?0.1""P""9N) X"
^DD(45.87,.05,3)="SSN must be in the form 123456789 or P123456789."
^DD(45.87,.05,5,1,0)="45.87^.09^1"
^DD(45.87,.05,21,0)="^^2^2^2910225^^^"
^DD(45.87,.05,21,1,0)="Enter the Social Security Number(SSN) of the patient for which"
^DD(45.87,.05,21,2,0)="you desire information."
^DD(45.87,.05,"DT")="2910213"
^DD(45.87,.06,0)="ADMISSION DATE/TIME^MD^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(45.87,.06,3)="DATE/TIME of Patient Admission."
^DD(45.87,.06,21,0)="^^1^1^2910301^^^^"
^DD(45.87,.06,21,1,0)="Enter the date/time of an admission for the patient(SSN) selected."
^DD(45.87,.06,"DT")="2910222"
^DD(45.87,.07,0)="ADMITTING FACILITY/SUFFIX^FX^^0;7^S:$L(X)<6 X=X_$E(""   "",1,6-$L(X)) K:$L(X)>6!($L(X)<3)!'(X?3N.3NA.3"" "") X"
^DD(45.87,.07,3)="Answer must be 3-digit facility number, followed immediately by OPTIONAL 1-3 character suffix."
^DD(45.87,.07,5,1,0)="45.87^.1^1"
^DD(45.87,.07,21,0)="^^4^4^2940919^^^^"
^DD(45.87,.07,21,1,0)="This field contains the facility number and suffix of the VAMC"
^DD(45.87,.07,21,2,0)="that has admitted the patient in the past."
^DD(45.87,.07,21,3,0)=" "
^DD(45.87,.07,21,4,0)="This field is filled in by the user when sending a N150 transaction."
^DD(45.87,.07,"DT")="2940919"
^DD(45.87,.08,0)="REQUESTING FACILITY/SUFFIX^FX^^0;8^S:$L(X)<6 X=X_$E(""   "",1,6-$L(X)) K:$L(X)>6!($L(X)<3)!'(X?3N.3NA.3"" "") X"
^DD(45.87,.08,3)="Answer must be 3-digit facility number, followed immediately by OPTIONAL 1-3 character suffix."
^DD(45.87,.08,21,0)="^^2^2^2941103^^^^"
^DD(45.87,.08,21,1,0)="This field contains the facility number and the suffix of the VAMC"
^DD(45.87,.08,21,2,0)="requesting information."
^DD(45.87,.08,"DT")="2940919"
^DD(45.87,.09,0)="PATIENT^P2'^DPT(^0;9^Q"
^DD(45.87,.09,1,0)="^.1"
^DD(45.87,.09,1,1,0)="^^TRIGGER^45.87^.05"
^DD(45.87,.09,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(45.87,.09,1,1,1.1) X ^DD(45.87,.09,1,1,1.4)"
^DD(45.87,.09,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0)"
^DD(45.87,.09,1,1,1.4)="S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=45.87,DIG=.05 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.87,.09,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(45.87,.09,1,1,2.4)"
^DD(45.87,.09,1,1,2.4)="S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=45.87,DIG=.05 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.87,.09,1,1,"CREATE VALUE")=".09:#.09"
^DD(45.87,.09,1,1,"DELETE VALUE")="@"
^DD(45.87,.09,1,1,"FIELD")="#.05"
^DD(45.87,.09,21,0)="^^7^7^2910301^^^"
^DD(45.87,.09,21,1,0)="This field contains the patient associated with the transaction submitted."
^DD(45.87,.09,21,2,0)="However, it is not required.  If filled in then the SSN field will"
^DD(45.87,.09,21,3,0)="automatically be updated with the patient's SSN, as it appears in the"
^DD(45.87,.09,21,4,0)="PATIENT file."
^DD(45.87,.09,21,5,0)=" "
^DD(45.87,.09,21,6,0)="If the user has an SSN of a patient not in the site's PATIENT"
^DD(45.87,.09,21,7,0)="file, the user can enter that SSN directly into the SSN field."
^DD(45.87,.09,"DT")="2910221"
^DD(45.87,.1,0)="ADMITTING INSTITUTION^P4'^DIC(4,^0;10^Q"
^DD(45.87,.1,1,0)="^.1"
^DD(45.87,.1,1,1,0)="^^TRIGGER^45.87^.07"
^DD(45.87,.1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(45.87,.1,1,1,1.1) X ^DD(45.87,.1,1,1,1.4)"
^DD(45.87,.1,1,1,1.1)="S X=DIV X ^DD(45.87,.1,1,1,49.2) S Y(104)=X S X=6,X=$E(Y(103),Y(104),X) S D0=I(0,0)"
^DD(45.87,.1,1,1,1.4)="S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=45.87,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.87,.1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGP(45.87,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(45.87,.1,1,1,2.4)"
^DD(45.87,.1,1,1,2.4)="S DIH=$S($D(^DGP(45.87,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=45.87,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.87,.1,1,1,49.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(102)=$S($D(^DIC(4,D0,99)):^(99),1:""""),Y(101)=X S X=$P(Y(102),U,1)_""      "",Y(103)=X S X=1"
^DD(45.87,.1,1,1,"CREATE VALUE")=".1:$E(#99_""      "",1,6)"
^DD(45.87,.1,1,1,"DELETE VALUE")="@"
^DD(45.87,.1,1,1,"FIELD")="#.07"
^DD(45.87,.1,21,0)="^^5^5^2910709^^^"
^DD(45.87,.1,21,1,0)="This field allows the user to select the VAMC from which admission"
^DD(45.87,.1,21,2,0)="information is desired.  This field is optional but if filled in,"
^DD(45.87,.1,21,3,0)="the VAMC's station number, as it appears in the INSTITUTION file,"
^DD(45.87,.1,21,4,0)="will be stuffed into the ADMITTING FACILITY/SUFFIX field as a"
^DD(45.87,.1,21,5,0)="default."
^DD(45.87,.1,"DT")="2910221"
^DD(45.87,"B","ADMISSION DATE/TIME",.06)=""
^DD(45.87,"B","ADMITTING FACILITY/SUFFIX",.07)=""
^DD(45.87,"B","ADMITTING INSTITUTION",.1)=""
^DD(45.87,"B","BLOCK",.04)=""
^DD(45.87,"B","DATE INITIATED",.01)=""
^DD(45.87,"B","MAIL MSG #",.03)=""
^DD(45.87,"B","PATIENT",.09)=""
^DD(45.87,"B","REQUESTING FACILITY/SUFFIX",.08)=""
^DD(45.87,"B","SSN",.05)=""
^DD(45.87,"B","USER",.02)=""
^DD(45.87,"GL",0,1,.01)=""
^DD(45.87,"GL",0,2,.02)=""
^DD(45.87,"GL",0,3,.03)=""
^DD(45.87,"GL",0,4,.04)=""
^DD(45.87,"GL",0,5,.05)=""
^DD(45.87,"GL",0,6,.06)=""
^DD(45.87,"GL",0,7,.07)=""
^DD(45.87,"GL",0,8,.08)=""
^DD(45.87,"GL",0,9,.09)=""
^DD(45.87,"GL",0,10,.1)=""
^DD(45.87,"IX",.01)=""
^DD(45.87,"IX",.09)=""
^DD(45.87,"IX",.1)=""
^DD(45.87,"RQ",.01)=""
^DD(45.88,0)="FIELD^^.03^3"
^DD(45.88,0,"DDA")="N"
^DD(45.88,0,"DT")="2910515"
^DD(45.88,0,"IX","B",45.88,.01)=""
^DD(45.88,0,"NM","PTF EXPANDED CODE CATEGORY")=""
^DD(45.88,0,"PT",45.89,.01)=""
^DD(45.88,0,"VR")="5.3"
^DD(45.88,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(45.88,.01,1,0)="^.1"
^DD(45.88,.01,1,1,0)="45.88^B"
^DD(45.88,.01,1,1,1)="S ^DIC(45.88,""B"",$E(X,1,30),DA)="""""
^DD(45.88,.01,1,1,2)="K ^DIC(45.88,""B"",$E(X,1,30),DA)"
^DD(45.88,.01,3)="Answer must be 3-30 characters in length."
^DD(45.88,.01,21,0)="^^2^2^2910506^^"
^DD(45.88,.01,21,1,0)="This field contains the name of the category this item can be found"
^DD(45.88,.01,21,2,0)="under."
^DD(45.88,.01,"DT")="2930311"
^DD(45.88,.02,0)="FLAG^FI^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(45.88,.02,3)="Answer must be 1-10 characters in length."
^DD(45.88,.02,21,0)="^^2^2^2910515^^"
^DD(45.88,.02,21,1,0)="The flag field will indicated which additional questions should be asked"
^DD(45.88,.02,21,2,0)="during PTF processing."
^DD(45.88,.02,23,0)="^^2^2^2910515^^"
^DD(45.88,.02,23,1,0)="This field is used by many input templates to trigger an additional PTF"
^DD(45.88,.02,23,2,0)="question to be asked."
^DD(45.88,.02,"DT")="2930311"
^DD(45.88,.03,0)="INACTIVE DATE^DI^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(45.88,.03,21,0)="^^1^1^2910506^"
^DD(45.88,.03,21,1,0)="This field contains the date after which this entry is no longer valid."
^DD(45.88,.03,"DT")="2930311"
^DD(45.88,"B","FLAG",.02)=""
^DD(45.88,"B","INACTIVE DATE",.03)=""
^DD(45.88,"B","NAME",.01)=""
^DD(45.88,"GL",0,1,.01)=""
^DD(45.88,"GL",0,2,.02)=""
^DD(45.88,"GL",0,3,.03)=""
^DD(45.88,"IX",.01)=""
^DD(45.88,"RQ",.01)=""
^DD(45.89,0)="FIELD^^200^5"
^DD(45.89,0,"DDA")="N"
^DD(45.89,0,"DT")="2910729"
^DD(45.89,0,"ID",.02)="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,2),1:"""") D NAME^DICM2 W ""   "",DINAME,@(""$E(""_DIC_""Y,0),0)"")"
^DD(45.89,0,"IX","ASPL",45.89,.02)=""
^DD(45.89,0,"IX","B",45.89,.01)=""
^DD(45.89,0,"NM","PTF EXPANDED CODE")=""
^DD(45.89,0,"VR")="5.3"
^DD(45.89,.01,0)="CATEGORY^RP45.88'I^DIC(45.88,^0;1^Q"
^DD(45.89,.01,1,0)="^.1"
^DD(45.89,.01,1,1,0)="45.89^B"
^DD(45.89,.01,1,1,1)="S ^DIC(45.89,""B"",$E(X,1,30),DA)="""""
^DD(45.89,.01,1,1,2)="K ^DIC(45.89,""B"",$E(X,1,30),DA)"
^DD(45.89,.01,3)=""
^DD(45.89,.01,21,0)="^^3^3^2910607^^^^"
^DD(45.89,.01,21,1,0)="This fields points to PTF Expanded Code Category File."
^DD(45.89,.01,21,2,0)="Here the flags can be fould that indicate which additional "
^DD(45.89,.01,21,3,0)="questions should be asked."
^DD(45.89,.01,"DT")="2930311"
^DD(45.89,.02,0)="DIAGNOSIS/PROCEDURE CODE^VI^^0;2^Q"
^DD(45.89,.02,1,0)="^.1^^-1"
^DD(45.89,.02,1,1,0)="45.89^ASPL"
^DD(45.89,.02,1,1,1)="S ^DIC(45.89,""ASPL"",$E(X,1,30),DA)="""""
^DD(45.89,.02,1,1,2)="K ^DIC(45.89,""ASPL"",$E(X,1,30),DA)"
^DD(45.89,.02,21,0)="^^1^1^2910506^"
^DD(45.89,.02,21,1,0)="This field contains the ICD code that requires additional processing."
^DD(45.89,.02,"DT")="2930311"
^DD(45.89,.02,"V",0)="^.12P^2^2"
^DD(45.89,.02,"V",1,0)="80^DIAGNOSIS^1^D^^n"
^DD(45.89,.02,"V",2,0)="80.1^PROCEDURE^2^P^^n"
^DD(45.89,.02,"V","B",80,1)=""
^DD(45.89,.02,"V","B",80.1,2)=""
^DD(45.89,.02,"V","M","DIAGNOSIS",1)=""
^DD(45.89,.02,"V","M","PROCEDURE",2)=""
^DD(45.89,.02,"V","O",1,1)=""
^DD(45.89,.02,"V","O",2,2)=""
^DD(45.89,.02,"V","P","D",1)=""
^DD(45.89,.02,"V","P","P",2)=""
^DD(45.89,.03,0)="INACTIVE DATE^DI^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(45.89,.03,21,0)="^^1^1^2910506^"
^DD(45.89,.03,21,1,0)="This field contains the date after which this expanded code is NOT valid."
^DD(45.89,.03,"DT")="2930311"
^DD(45.89,.04,0)="ABUSED SUBSTANCE DEFAULT^P45.61'I^DIC(45.61,^0;4^Q"
^DD(45.89,.04,21,0)="^^3^3^2930127^^"
^DD(45.89,.04,21,1,0)="This field is a pointer to the PTF Abused Substance File and contains"
^DD(45.89,.04,21,2,0)="the default abused substance that is related to a specific PTF"
^DD(45.89,.04,21,3,0)="expanded code."
^DD(45.89,.04,"DT")="2910816"
^DD(45.89,200,0)="NAME^CJ50^^ ; ^S X=$P(^DIC(45.89,D0,0),U,2),X=$S($D(@(""^""_$P(X,$C(59),2)_+X_"",0)"")):$P(^(0),U,$S($P(X,$C(59),2)[""ICD9"":3,1:4)),1:"""")"
^DD(45.89,200,9)="^"
^DD(45.89,200,9.01)=""
^DD(45.89,200,9.1)="S X=$P(^DIC(45.89,D0,0),U,2),X=$S($D(@(""^""_$P(X,$C(59),2)_+X_"",0)"")):$P(^(0),U,$S($P(X,$C(59),2)[""ICD9"":3,1:4)),1:"""")"
^DD(45.89,200,21,0)="^^1^1^2910725^^"
^DD(45.89,200,21,1,0)="This field will contain the name of the diagnosis."
^DD(45.89,"B","ABUSED SUBSTANCE DEFAULT",.04)=""
^DD(45.89,"B","CATEGORY",.01)=""
^DD(45.89,"B","DIAGNOSIS/PROCEDURE CODE",.02)=""
^DD(45.89,"B","INACTIVE DATE",.03)=""
^DD(45.89,"B","NAME",200)=""
^DD(45.89,"GL",0,1,.01)=""
^DD(45.89,"GL",0,2,.02)=""
^DD(45.89,"GL",0,3,.03)=""
^DD(45.89,"GL",0,4,.04)=""
^DD(45.89,"IX",.01)=""
^DD(45.89,"IX",.02)=""
^DD(45.89,"RQ",.01)=""
^DD(45.9,0)="FIELD^^84^78"
^DD(45.9,0,"DDA")="N"
^DD(45.9,0,"ID",2)="W """""
^DD(45.9,0,"ID",6)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(45.9,6,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,6)_"""":"""",2),$C(59),1)"")"
^DD(45.9,0,"ID","WR")="D WR^DGRUGC"
^DD(45.9,0,"IX","AA",45.9,2)=""
^DD(45.9,0,"IX","AC",45.9,7)=""
^DD(45.9,0,"IX","AD",45.9,2)=""
^DD(45.9,0,"IX","AP",45.9,2)=""
^DD(45.9,0,"IX","AR",45.9,71)=""
^DD(45.9,0,"IX","AS",45.9,80)=""
^DD(45.9,0,"IX","AT",45.9,7)=""
^DD(45.9,0,"IX","B",45.9,.01)=""
^DD(45.9,0,"IX","T",45.9,83)=""
^DD(45.9,0,"NM","PAF")=""
^DD(45.9,0,"VR")="5.3"
^DD(45.9,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(45.9,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(45.9,.001,21,0)="^^1^1^2920214^^"
^DD(45.9,.001,21,1,0)="This field contains an internal entry number as created by VA FileMan."
^DD(45.9,.001,"DT")="2870324"
^DD(45.9,.01,0)="NAME^R*P2'I^DPT(^0;1^S DIC(""S"")=""I $D(DFN),DFN=Y"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(45.9,.01,1,0)="^.1"
^DD(45.9,.01,1,1,0)="45.9^B"
^DD(45.9,.01,1,1,1)="S ^DG(45.9,""B"",$E(X,1,30),DA)="""""
^DD(45.9,.01,1,1,2)="K ^DG(45.9,""B"",$E(X,1,30),DA)"
^DD(45.9,.01,3)=""
^DD(45.9,.01,12)="<<<NO EDITING>>>"
^DD(45.9,.01,12.1)="S DIC(""S"")=""I $D(DFN),DFN=Y"""
^DD(45.9,.01,21,0)="^^2^2^2920214^^"
^DD(45.9,.01,21,1,0)="This field contains the name of the long-term care patient for which this"
^DD(45.9,.01,21,2,0)="assessment was completed."
^DD(45.9,.01,"DT")="2880422"
^DD(45.9,2,0)="ASSESSMENT DATE^RDX^^0;2^S %DT=""EXP"",%DT(0)=""-0"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D ASD^DGRUGC1 K %"
^DD(45.9,2,1,0)="^.1"
^DD(45.9,2,1,1,0)="45.9^AD^MUMPS"
^DD(45.9,2,1,1,1)="S L=+^DG(45.9,DA,0) I L>0 S ^DG(45.9,""AD"",L,X,DA)="""""
^DD(45.9,2,1,1,2)="S L=+^DG(45.9,DA,0) I L>0 K ^DG(45.9,""AD"",L,X,DA)"
^DD(45.9,2,1,2,0)="45.9^AA"
^DD(45.9,2,1,2,1)="S ^DG(45.9,""AA"",$E(X,1,30),DA)="""""
^DD(45.9,2,1,2,2)="K ^DG(45.9,""AA"",$E(X,1,30),DA)"
^DD(45.9,2,1,3,0)="45.9^AP^MUMPS"
^DD(45.9,2,1,3,1)="S L=$P(^DG(45.9,DA,0),""^"",6) I L>0 S ^DG(45.9,""AP"",L,X,DA)="""""
^DD(45.9,2,1,3,2)="S L=$P(^DG(45.9,DA,0),""^"",6) I L>0 K ^DG(45.9,""AP"",L,X,DA)"
^DD(45.9,2,3)=""
^DD(45.9,2,21,0)="^^4^4^2920102^^^^"
^DD(45.9,2,21,1,0)=" "
^DD(45.9,2,21,2,0)="Enter the month,day and year the assessment is completed."
^DD(45.9,2,21,3,0)="The date must be after the date of admission/transfer in."
^DD(45.9,2,21,4,0)=" "
^DD(45.9,2,"DT")="2890301"
^DD(45.9,3,0)="SSN^RF^^0;3^K:$L(X)>9!($L(X)<9) X"
^DD(45.9,3,3)="ANSWER MUST BE 9 CHARACTERS IN LENGTH"
^DD(45.9,3,21,0)="^^3^3^2920214^^^"
^DD(45.9,3,21,1,0)="This field contains the patient's SSN.  This data is added automatically"
^DD(45.9,3,21,2,0)="when the patient assessment is created either through a RUG background job"
^DD(45.9,3,21,3,0)="or through the 'Create a PAI' option."
^DD(45.9,3,"DT")="2861114"
^DD(45.9,4,0)="SEX^S^M:MALE;F:FEMALE;^0;4^Q"
^DD(45.9,4,21,0)="^^3^3^2920214^^"
^DD(45.9,4,21,1,0)="This field contains the patient's sex.  This data is added automatically"
^DD(45.9,4,21,2,0)="when the patient assessment record is created either through a RUG"
^DD(45.9,4,21,3,0)="background job or the 'Create a PAI' option."
^DD(45.9,5,0)="YEAR OF BIRTH^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<1800)!(X?.E1"".""1N.N) X"
^DD(45.9,5,3)="Enter the patient's 4-digit Year of Birth."
^DD(45.9,5,21,0)="^^3^3^2980310^^^^"
^DD(45.9,5,21,1,0)="This field contains the year in which this patient was born.  This data is"
^DD(45.9,5,21,2,0)="added automatically when the patient's assessment record is created either"
^DD(45.9,5,21,3,0)="through a RUG background job or the 'Create a PAI' menu option."
^DD(45.9,5,"DT")="2980309"
^DD(45.9,6,0)="ASSESSMENT PURPOSE^RSI^1:ADMISSION/TRANSFER;2:SEMI-ANNUAL CENSUS;3:CONTRACT NURSING HOME;^0;6^Q"
^DD(45.9,6,1,0)="^.1^^0"
^DD(45.9,6,21,0)="^^9^9^2960416^^^^"
^DD(45.9,6,21,1,0)=" "
^DD(45.9,6,21,2,0)="Enter ""1"" if the assessment is being completed within approximately one"
^DD(45.9,6,21,3,0)="week after admission/transfer into the intermediate medicine or nursing"
^DD(45.9,6,21,4,0)="home care unit. Enter ""2"" if the assessment is completed on patients in"
^DD(45.9,6,21,5,0)="bed as of a semi-annual survey date. If semi-annual assessment date"
^DD(45.9,6,21,6,0)="coincides with the day on which an admission/transfer assessment would"
^DD(45.9,6,21,7,0)="have been done, record ""2"" as the purpose."
^DD(45.9,6,21,8,0)="Enter ""3"" if the assessment is for a Contract Nursing Home"
^DD(45.9,6,21,9,0)="patient."
^DD(45.9,6,"DT")="2960416"
^DD(45.9,7,0)="DATE OF ADMISSION/TRANSFER IN^D^^0;7^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(45.9,7,1,0)="^.1"
^DD(45.9,7,1,1,0)="45.9^AT^MUMPS"
^DD(45.9,7,1,1,1)="S L=$P(^DG(45.9,DA,0),""^"",6),DFN=+^DG(45.9,DA,0) I L S ^DG(45.9,""AT"",L,X,DFN,DA)="""""
^DD(45.9,7,1,1,2)="S L=$P(^DG(45.9,DA,0),""^"",6),DFN=+^DG(45.9,DA,0) I L K ^DG(45.9,""AT"",L,X,DFN,DA)"
^DD(45.9,7,1,2,0)="45.9^AC"
^DD(45.9,7,1,2,1)="S ^DG(45.9,""AC"",$E(X,1,30),DA)="""""
^DD(45.9,7,1,2,2)="K ^DG(45.9,""AC"",$E(X,1,30),DA)"
^DD(45.9,7,21,0)="^^5^5^2920214^^"
^DD(45.9,7,21,1,0)="This field will contain the date/time this patient was either admitted to"
^DD(45.9,7,21,2,0)="or transferred to a ward whose service is either intermediate care (I) or"
^DD(45.9,7,21,3,0)="nursing home care (NHCU).  This date must be selected from the choices"
^DD(45.9,7,21,4,0)="given under the 'Create a PAI' option.  It may also be created automatically"
^DD(45.9,7,21,5,0)="by one of the RUG background jobs (the nightly job or the semi-annual job)."
^DD(45.9,7,"DT")="2870313"
^DD(45.9,8,0)="MEDICAL CENTER^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(45.9,8,3)="TYPE A WHOLE NUMBER BETWEEN 100 AND 999"
^DD(45.9,8,21,0)="^^2^2^2920214^^"
^DD(45.9,8,21,1,0)="This field contains the facility's number (3 digit number) and is"
^DD(45.9,8,21,2,0)="transmitted to Austin to indicate which facility transmitted the data."
^DD(45.9,9,0)="BED SECTION^S^I:INTERMEDIATE MEDICINE;N:NHCU;^0;9^Q"
^DD(45.9,9,21,0)="^^3^3^2920214^^"
^DD(45.9,9,21,1,0)="This field contains the bedsection under which this patient was treated."
^DD(45.9,9,21,2,0)="Only patients residing on wards with a service of Intermediate care or"
^DD(45.9,9,21,3,0)="Nursing home care are eligible to have a PAF form completed."
^DD(45.9,10,0)="TRACHEOSTOMY CARE/SUCTIONING^S^2:YES;1:NO;^0;10^Q"
^DD(45.9,10,21,0)="^^9^9^2911030^^^^"
^DD(45.9,10,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,10,21,2,0)="     DEFINITION                          SPECIFIC"
^DD(45.9,10,21,3,0)="                                         FREQUENCY       EXCLUSIONS"
^DD(45.9,10,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,10,21,5,0)="Care for a tracheostomy, including       Daily           Self-care patients"
^DD(45.9,10,21,6,0)="suctioning. Exclude any self-care"
^DD(45.9,10,21,7,0)="patients who do not need daily staff"
^DD(45.9,10,21,8,0)="help."
^DD(45.9,10,21,9,0)=" "
^DD(45.9,10,"DT")="2870513"
^DD(45.9,11,0)="SUCTIONING-GENERAL(DAILY)^S^2:YES;1:NO;^0;11^Q"
^DD(45.9,11,21,0)="^^8^8^2870513^^^"
^DD(45.9,11,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,11,21,2,0)="        DEFINITION                       SPECIFIC"
^DD(45.9,11,21,3,0)="                                         FREQUENCY         EXCLUSIONS"
^DD(45.9,11,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,11,21,5,0)="Nasal or oral techniques for clearing    Daily          Any tracheostomy"
^DD(45.9,11,21,6,0)="away fluid or secretions. May be for                    suctioning"
^DD(45.9,11,21,7,0)="a respiratory problem."
^DD(45.9,11,21,8,0)=" "
^DD(45.9,11,"DT")="2870513"
^DD(45.9,12,0)="OXYGEN(DAILY)^S^2:YES;1:NO;^0;12^Q"
^DD(45.9,12,21,0)="^^10^10^2870513^^^"
^DD(45.9,12,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,12,21,2,0)="      DEFINITION                        SPECIFIC          "
^DD(45.9,12,21,3,0)="                                        FREQUENCY         EXCLUSIONS"
^DD(45.9,12,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,12,21,5,0)="Administration of oxygen by nasal       Daily          Inhalators,oxygen in"
^DD(45.9,12,21,6,0)="catheter,mask (nasal or oronasal),                     room,but not in use"
^DD(45.9,12,21,7,0)="funnel/cone or oxygen tent for"
^DD(45.9,12,21,8,0)="conditions resulting from oxygen"
^DD(45.9,12,21,9,0)="deficiency."
^DD(45.9,12,21,10,0)=" "
^DD(45.9,12,"DT")="2870513"
^DD(45.9,13,0)="RESPIRATORY CARE^S^2:YES;1:NO;^0;13^Q"
^DD(45.9,13,21,0)="^^11^11^2870513^^^"
^DD(45.9,13,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,13,21,2,0)="        DEFINITION                               SPECIFIC"
^DD(45.9,13,21,3,0)="                                                 FREQUENCY      EXCLUSIONS"
^DD(45.9,13,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,13,21,5,0)="Care for any portion of the respiratory           Daily         Suctioning"
^DD(45.9,13,21,6,0)="tract,especially the lungs. This care may"
^DD(45.9,13,21,7,0)="include one or more of the following:"
^DD(45.9,13,21,8,0)="percussion or cupping,postural drainage,"
^DD(45.9,13,21,9,0)="positive pressure machine,possibly "
^DD(45.9,13,21,10,0)="oxygen to administer drugs,etc."
^DD(45.9,13,21,11,0)=" "
^DD(45.9,13,"DT")="2870513"
^DD(45.9,14,0)="TUBE FEEDING^S^2:YES;1:NO;^0;14^Q"
^DD(45.9,14,21,0)="^^9^9^2881109^^^^"
^DD(45.9,14,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,14,21,2,0)="       DEFINITION                         SPECIFIC"
^DD(45.9,14,21,3,0)="                                          FREQUENCY        EXCLUSIONS"
^DD(45.9,14,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,14,21,5,0)="Primary food intake by means of a tube    None             None.Includes"
^DD(45.9,14,21,6,0)="specifically, nasogastric, nasoduodenal,                   gastrostomy"
^DD(45.9,14,21,7,0)="nasojejunal, esophagostomy, jejunostomy,"
^DD(45.9,14,21,8,0)="or gastrostomy."
^DD(45.9,14,21,9,0)=" "
^DD(45.9,14,"DT")="2870513"
^DD(45.9,15,0)="PARENTERAL FEEDING^S^2:YES;1:NO;^0;15^Q"
^DD(45.9,15,21,0)="^^9^9^2870513^^^"
^DD(45.9,15,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,15,21,2,0)="         DEFINITION                         SPECIFIC"
^DD(45.9,15,21,3,0)="                                            FREQUENCY      EXCLUSIONS"
^DD(45.9,15,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,15,21,5,0)="Intravenous or subcutaneous route for       None           None.Gastrostomy"
^DD(45.9,15,21,6,0)="the administration of fluids used to                       not applicable."
^DD(45.9,15,21,7,0)="maintain fluid,nutritional intake,"
^DD(45.9,15,21,8,0)="electrolyte balance."
^DD(45.9,15,21,9,0)=" "
^DD(45.9,15,"DT")="2870513"
^DD(45.9,16,0)="WOUND CARE^S^2:YES;1:NO;^0;16^Q"
^DD(45.9,16,21,0)="^^8^8^2870513^^^"
^DD(45.9,16,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,16,21,2,0)="         DEFINITION                    SPECIFIC"
^DD(45.9,16,21,3,0)="                                       FREQUENCY             EXCLUSIONS"
^DD(45.9,16,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,16,21,5,0)="Subcutaneous lesion(s) resulting       Care must be          Decubiti"
^DD(45.9,16,21,6,0)="from surgery,trauma or open            needed for at         Stasis ulcers"
^DD(45.9,16,21,7,0)="cancerous ulcers.                      least 3 consecutive   Skin tears"
^DD(45.9,16,21,8,0)="                                       weeks.                Feeding tubes"
^DD(45.9,16,"DT")="2870513"
^DD(45.9,17,0)="CHEMOTHERAPY^S^2:YES;1:NO;^0;17^Q"
^DD(45.9,17,21,0)="^^8^8^2870513^^^"
^DD(45.9,17,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,17,21,2,0)="      DEFINITION                          SPECIFIC"
^DD(45.9,17,21,3,0)="                                          FREQUENCY          EXCLUSIONS"
^DD(45.9,17,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,17,21,5,0)="Treatment of carcinoma through IV         None               None"
^DD(45.9,17,21,6,0)="and/or oral chemical agents,as "
^DD(45.9,17,21,7,0)="ordered by a physician."
^DD(45.9,17,21,8,0)=" "
^DD(45.9,17,"DT")="2870513"
^DD(45.9,18,0)="TRANSFUSIONS^S^2:YES;1:NO;^0;18^Q"
^DD(45.9,18,21,0)="^^7^7^2870513^^^"
^DD(45.9,18,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,18,21,2,0)="        DEFINITION                            SPECIFIC"
^DD(45.9,18,21,3,0)="                                              FREQUENCY          EXCLUSIONS"
^DD(45.9,18,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,18,21,5,0)="Introduction of whole blood or blood"
^DD(45.9,18,21,6,0)="components directly into the blood stream.     None                None"
^DD(45.9,18,21,7,0)=" "
^DD(45.9,18,"DT")="2870513"
^DD(45.9,19,0)="DIALYSIS/APHORESIS^S^2:YES;1:NO;^0;19^Q"
^DD(45.9,19,21,0)="^^12^12^2870513^^^"
^DD(45.9,19,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,19,21,2,0)="          DEFINITION                         SPECIFIC"
^DD(45.9,19,21,3,0)="                                             FREQUENCY         EXCLUSIONS"
^DD(45.9,19,21,4,0)="---------------------------------------------------------------------------"
^DD(45.9,19,21,5,0)="The process of removing impurities from      None               None"
^DD(45.9,19,21,6,0)="the blood of persons who have renal "
^DD(45.9,19,21,7,0)="disease. Include within this definition"
^DD(45.9,19,21,8,0)="patients receiving aphoresis,that is, any"
^DD(45.9,19,21,9,0)="of the processes used to separate blood"
^DD(45.9,19,21,10,0)="components in order to remove known or"
^DD(45.9,19,21,11,0)="suspected pathogenic elements."
^DD(45.9,19,21,12,0)=" "
^DD(45.9,19,"DT")="2870513"
^DD(45.9,20,0)="RADIATION THERAPY^S^2:YES;1:NO;^0;20^Q"
^DD(45.9,20,21,0)="^^7^7^2870513^^^"
^DD(45.9,20,21,1,0)="---------------------------------------------------------------------------"
^DD(45.9,20,21,2,0)="           DEFINITION                    SPECIFIC"
^DD(45.9,20,21,3,0)="                                         FREQUENCY             EXCLUSIONS"
^DD(45.9,20,21,4,0)="--------------------------------------------------------------------------"
^DD(45.9,20,21,5,0)="Treatment of carcinoma by means of       None                  None"
^DD(45.9,20,21,6,0)="ionizing radiation."
^DD(45.9,20,21,7,0)=" "
^DD(45.9,20,"DT")="2870513"
^DD(45.9,21,0)="TUBE FEEDING ROUTE^S^1:1> N/A - NOT TUBE FED;2:2> NASOGASTRIC;3:3> NASODUODENAL;4:4> NASOJEJUNAL;5:5> ESOPHAGOSTOMY;6:6> JEJUNOSTOMY;7:7> GASTROSTOMY;^0;21^Q"
^DD(45.9,21,21,0)="^^12^12^2881025^^^"
^DD(45.9,21,21,1,0)="Definition:     Tube Feeding Routes -"
^DD(45.9,21,21,2,0)="Nasogastric   - Transnasal route ending in the stomach."
^DD(45.9,21,21,3,0)="Nasoduodenal  - Transnasal route ending in the duodenum (the first part of"
^DD(45.9,21,21,4,0)="                the small intestine)."
^DD(45.9,21,21,5,0)="Nasojejunal   - Transnasal route ending in the jejunum (the second part of"
^DD(45.9,21,21,6,0)="                the small intestine)."
^DD(45.9,21,21,7,0)="Esophagostomy - The feeding tube is passed through a surgically-created"
^DD(45.9,21,21,8,0)="                opening in the lower neck region ending in the stomach."
^DD(45.9,21,21,9,0)="Jejunostomy   - The feeding tube passes through a surgically-created "
^DD(45.9,21,21,10,0)="                opening in the abdominal region into the jejunum."
^DD(45.9,21,21,11,0)="Gastrostomy   - The feeding tube passes through a surgically-created "
^DD(45.9,21,21,12,0)="                opening in the abdominal region into the stomach."
^DD(45.9,21,"DT")="2881030"
^DD(45.9,22,0)="RESERVED1^S^2:YES;1:NO;^0;22^Q"
^DD(45.9,22,21,0)="^^2^2^2920214^^"
^DD(45.9,22,21,1,0)="This field is reserved for future use.  It is left blank to mimic the actual"
^DD(45.9,22,21,2,0)="Long Term Care Patient Assessment Instrument (VA form 10-0064a)."
^DD(45.9,22,"DT")="2870513"
^DD(45.9,23,0)="DECUBITUS LEVEL^S^0:NO REDDENED SKIN;1:REDDENED SKIN,POTENTIAL BREAKDOWN;2:SUPERFICIAL LAYER OF BROKEN OR BLISTERED SKIN;3:SUBCUTANEOUS SKIN BROKEN DOWN;4:NECROTIC BREAKDOWN;5:AT LEVEL 4,DOES NOT FULFILL QUALIFIERS;^0;23^Q"
^DD(45.9,23,21,0)="^^10^10^2861031^^"
^DD(45.9,23,21,1,0)="For a patient to be coded as level 4, documentation by a licensed clinician"
^DD(45.9,23,21,2,0)="(e.g.,physician,podiatrist,R.N.) must exist which describes the following"
^DD(45.9,23,21,3,0)="three components:"
^DD(45.9,23,21,4,0)="   1. a description of the patient's decubitus"
^DD(45.9,23,21,5,0)="   2. the active treatment plan"
^DD(45.9,23,21,6,0)="   3. circumstances or medical condition which led to the decubitus. (An"
^DD(45.9,23,21,7,0)="      exception to this documentation can be made for newly admitted"
^DD(45.9,23,21,8,0)="      patients whose decubitus developed before admission and involved"
^DD(45.9,23,21,9,0)="      unknown causes or circumstances.)"
^DD(45.9,23,21,10,0)=" "
^DD(45.9,24,0)="COMATOSE^S^2:YES;1:NO;^0;24^Q"
^DD(45.9,24,21,0)="^^3^3^2920214^^^"
^DD(45.9,24,21,1,0)="This field contains a yes/no response whether or not the patient is"
^DD(45.9,24,21,2,0)="comatose.  This data should be obtained from a nurse on the ward where"
^DD(45.9,24,21,3,0)="this patient resides."
^DD(45.9,24,"DT")="2870513"
^DD(45.9,25,0)="DEHYDRATION^S^2:YES;1:NO;^0;25^Q"
^DD(45.9,25,21,0)="^^3^3^2920214^^"
^DD(45.9,25,21,1,0)="If this patient suffers from dehydration, enter a YES in this field."
^DD(45.9,25,21,2,0)="Otherwise, respond NO.  This data should be obtained from a nurse on the"
^DD(45.9,25,21,3,0)="ward where this patient resides."
^DD(45.9,25,"DT")="2870513"
^DD(45.9,26,0)="INTERNAL BLEEDING^S^2:YES;1:NO;^0;26^Q"
^DD(45.9,26,21,0)="^^3^3^2920214^^"
^DD(45.9,26,21,1,0)="If this patient suffers from internal bleeding, enter a YES in this field."
^DD(45.9,26,21,2,0)="Otherwise, respond NO.  This data should be obtained from a nurse on the"
^DD(45.9,26,21,3,0)="ward where this patient resides (or resided)."
^DD(45.9,26,"DT")="2870513"
^DD(45.9,27,0)="STASIS ULCER^S^2:YES;1:NO;^0;27^Q"
^DD(45.9,27,21,0)="^^1^1^2870513^^^"
^DD(45.9,27,21,1,0)="Open lesion, usually in lower extremities, caused by decreased blood flow from chronic venous insufficiency."
^DD(45.9,27,"DT")="2870513"
^DD(45.9,28,0)="TERMINALLY ILL^S^2:YES;1:NO;^0;28^Q"
^DD(45.9,28,21,0)="^^3^3^2920214^^"
^DD(45.9,28,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,28,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,28,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,28,"DT")="2870513"
^DD(45.9,29,0)="RESERVE2^S^2:YES;1:NO;^0;29^Q"
^DD(45.9,29,21,0)="^^3^3^2920214^^"
^DD(45.9,29,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,29,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,29,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,29,"DT")="2870513"
^DD(45.9,30,0)="RESERVE3^S^2:YES;1:NO;^0;30^Q"
^DD(45.9,30,21,0)="^^3^3^2920214^^"
^DD(45.9,30,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,30,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,30,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,30,"DT")="2870513"
^DD(45.9,31,0)="RESERVE4^S^2:YES;1:NO;^0;31^Q"
^DD(45.9,31,21,0)="^^3^3^2920214^^"
^DD(45.9,31,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,31,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,31,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,31,"DT")="2870513"
^DD(45.9,32,0)="QUADRIPLEGIA^S^2:YES;1:NO;^0;32^Q"
^DD(45.9,32,21,0)="^^3^3^2890530^^^^"
^DD(45.9,32,21,1,0)="Includes both complete and incomplete paralysis of all limbs. (ICD-9-CM"
^DD(45.9,32,21,2,0)="344.0) Does not include paraplegia or any other forms of paralysis."
^DD(45.9,32,21,3,0)=" "
^DD(45.9,32,"DT")="2870513"
^DD(45.9,33,0)="MULTIPLE SCLEROSIS^S^2:YES;1:NO;^0;33^Q"
^DD(45.9,33,21,0)="^^3^3^2870513^^^"
^DD(45.9,33,21,1,0)="(ICD-9-CM 340) Does not include any other diseases of the central nervous"
^DD(45.9,33,21,2,0)="system."
^DD(45.9,33,21,3,0)=" "
^DD(45.9,33,"DT")="2870513"
^DD(45.9,34,0)="URINARY TRACT INFECTION^S^2:YES;1:NO;^0;34^Q"
^DD(45.9,34,21,0)="^^2^2^2870513^^^"
^DD(45.9,34,21,1,0)="Site of infection does not have to be specified. (ICD-9-CM 599.0)"
^DD(45.9,34,21,2,0)=" "
^DD(45.9,34,"DT")="2870513"
^DD(45.9,35,0)="HEMIPLEGIA^S^2:YES;1:NO;^0;35^Q"
^DD(45.9,35,21,0)="^^3^3^2870717^^^^"
^DD(45.9,35,21,1,0)="Includes both complete and incomplete paralysis of one side of the body"
^DD(45.9,35,21,2,0)="regardless of cause. (ICD-9-CM 342.9)"
^DD(45.9,35,21,3,0)=" "
^DD(45.9,35,"DT")="2870513"
^DD(45.9,36,0)="RESERVE5^S^2:YES;1:NO;^0;36^Q"
^DD(45.9,36,21,0)="^^3^3^2920214^^"
^DD(45.9,36,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,36,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,36,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,36,"DT")="2870513"
^DD(45.9,37,0)="RESERVE6^S^2:YES;1:NO;^0;37^Q"
^DD(45.9,37,10)=""
^DD(45.9,37,21,0)="^^3^3^2920214^^"
^DD(45.9,37,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,37,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,37,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,37,"DT")="2870513"
^DD(45.9,38,0)="RESERVE7^S^2:YES;1:NO;^0;38^Q"
^DD(45.9,38,21,0)="^^3^3^2920214^^"
^DD(45.9,38,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,38,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,38,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,38,"DT")="2870513"
^DD(45.9,39,0)="RESERVE8^S^2:YES;1:NO;^0;39^Q"
^DD(45.9,39,21,0)="^^3^3^2920214^^"
^DD(45.9,39,21,1,0)="This field has been left unused to follow numbering guidelines on the"
^DD(45.9,39,21,2,0)="RUG-II PAF form.  Should VACO MAS or another RUG contact require that"
^DD(45.9,39,21,3,0)="fields be added to the form, this field may be used."
^DD(45.9,39,"DT")="2870513"
^DD(45.9,40,0)="EATING^S^1:1> FEEDS SELF;2:2> INTERMITTENT SUPERVISION;3:3> CONTINUED HELP;4:4> HAND FED;5:5> TUBE FED;^0;40^Q"
^DD(45.9,40,21,0)="^^2^2^2920214^^"
^DD(45.9,40,21,1,0)="Enter the code which best represents the method under which this patient"
^DD(45.9,40,21,2,0)="receives nutritional intake."
^DD(45.9,40,"DT")="2870420"
^DD(45.9,41,0)="MOBILITY^S^1:1> WALKS,NO SUPERVISION;2:2> WALKS,INTERMITTENT SUPERVISION;3:3> WALKS,CONSTANT SUPERVISION;4:4> WHEELS,NO SUPERVISION;5:5> WHEELED;^0;41^Q"
^DD(45.9,41,21,0)="^^2^2^2920214^^^"
^DD(45.9,41,21,1,0)="Enter the code which best represents the method under which this patient"
^DD(45.9,41,21,2,0)="is transported (or transports himself) from place to place."
^DD(45.9,41,"DT")="2870420"
^DD(45.9,42,0)="TRANSFER^S^1:1> NO SUPERVISION;2:2> INTERMITTENT SUPERVISION;3:3> ASSISTANCE OF 1 PERSON;4:4> ASSISTANCE OF 2 PEOPLE;5:5> CANNOT GET OUT OF BED;^0;42^Q"
^DD(45.9,42,21,0)="^^1^1^2920214^^"
^DD(45.9,42,21,1,0)="Enter the code which best represents how this patient is moved."
^DD(45.9,42,"DT")="2870420"
^DD(45.9,43,0)="TOILETING^S^1:1> NO SUPERVISION;2:2> INTERMITTENT SUPERVISION;3:3> CONTINENT,REQUIRES SUPERVISION;4:4> INCONTINENT,NOT TAKEN TO TOILET;5:5> INCONTINENT,TAKEN TO TOILET;^0;43^Q"
^DD(45.9,43,21,0)="^^2^2^2920214^^"
^DD(45.9,43,21,1,0)="Enter the code which best represents the manner in which this patient"
^DD(45.9,43,21,2,0)="transported to and from the toilet."
^DD(45.9,43,"DT")="2870420"
^DD(45.9,44,0)="VERBAL DISRUPTION^S^1:1> NONE IN PAST 4 WEEKS;2:2> 1-3 TIMES IN PAST 4 WEEKS;3:3> SHORT LIVED AT LEAST ONCE A WEEK;4:4> UNPREDICTABLE;5:5> AT LEVEL 4,DOES NOT FULFILL QUALIFIERS;^0;44^Q"
^DD(45.9,44,21,0)="^^3^3^2920214^^"
^DD(45.9,44,21,1,0)="Choose from the available choices, the item that best describes this"
^DD(45.9,44,21,2,0)="patient's verbal disruption.  Verbal disruption is considered yelling,"
^DD(45.9,44,21,3,0)="baiting, threatening, etc."
^DD(45.9,44,"DT")="2870420"
^DD(45.9,45,0)="PHYSICAL AGGRESSION^S^1:1> NONE IN PAST 4 WEEKS;2:2> UNPREDICTABLE IN PAST 4 WEEKS;3:3> PREDICTABLE DURING SPECIFIC ROUTINES;4:4> UNPREDICTABLE,AT LEAST ONCE A WEEK;5:5> AT LEVEL 4,DOES NOT FULFILL QUALIFIERS;^0;45^Q"
^DD(45.9,45,21,0)="^^5^5^2920214^^"
^DD(45.9,45,21,1,0)="Enter from the available choices, the item that best describes the amount"
^DD(45.9,45,21,2,0)="of physical agression behavior this patient exibits.  Physical agression"
^DD(45.9,45,21,3,0)="is described as assertive or combative behavior to self or others with"
^DD(45.9,45,21,4,0)="the possibiltity of injury.  Examples include hits self, throws objects,"
^DD(45.9,45,21,5,0)="punches, and makes dangerous maneuvers with a wheelchair."
^DD(45.9,45,"DT")="2870420"
^DD(45.9,46,0)="DISRUPTIVE BEHAVIOR^S^1:1> NONE IN PAST 4 WEEKS;2:2> NOT DISRUPTIVE TO OTHERS;3:3> DISRUPTIVE IN PAST 4 WEEKS;4:4> AT LEAST ONCE A WEEK;5:5> AT LEVEL 4,DOES NOT FULFILL QUALIFIERS;^0;46^Q"
^DD(45.9,46,21,0)="^^7^7^2920120^"
^DD(45.9,46,21,1,0)="Enter from the available choices, the item that best describes the amount"
^DD(45.9,46,21,2,0)="of disruptive behavior this patient exibits.  This would include"
^DD(45.9,46,21,3,0)="disruptive, infantile, or socially inappropriate behavior and can be"
^DD(45.9,46,21,4,0)="described as childish, repetitive or antisocial physical behavior which"
^DD(45.9,46,21,5,0)="creates disruption with others.  Examples include constantly undressing"
^DD(45.9,46,21,6,0)="self, stealing, smearing feces, and sexually displaying oneself to others."
^DD(45.9,46,21,7,0)="Exclude verbal actions and read choices for other exclusions."
^DD(45.9,46,"DT")="2870420"
^DD(45.9,47,0)="HALLUCINATIONS^S^1:NO;2:YES;3:YES,BUT DOES NOT FULFILL THE QUALIFIERS;^0;47^Q"
^DD(45.9,47,21,0)="^^5^5^2920120^"
^DD(45.9,47,21,1,0)="Enter from the available choices the item that best describes the patient's"
^DD(45.9,47,21,2,0)="hallucinations (or lack thereof).  Hallucinations are described as visual,"
^DD(45.9,47,21,3,0)="auditory, or tactile perceptions that have no basis in external reality."
^DD(45.9,47,21,4,0)="In order to be recorded her, the hallucinations must be experienced at least"
^DD(45.9,47,21,5,0)="once per week during the past four weeks."
^DD(45.9,47,"DT")="2910217"
^DD(45.9,48,0)="PHYSICAL THERAPY LEVEL^S^1:1> DOES NOT RECEIVE;2:2> MAINTENANCE PROGRAM;3:3> RESTORATIVE PROGRAM;4:4> NON-QUALIFYING PROGRAM;^0;48^Q"
^DD(45.9,48,1,0)="^.1^^0"
^DD(45.9,48,21,0)="^^13^13^2920120^"
^DD(45.9,48,21,1,0)="Enter the appropriate code denoting the level of physical therapy that"
^DD(45.9,48,21,2,0)="this patient receives.  The following are the choices available:"
^DD(45.9,48,21,3,0)=" "
^DD(45.9,48,21,4,0)=" DOES NOT RECEIVE:  patient does not receive physical therapy"
^DD(45.9,48,21,5,0)=" MAINTENANCE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,48,21,6,0)="                       physical therapy to help stabilize or slow"
^DD(45.9,48,21,7,0)="                       functional deteriorization."
^DD(45.9,48,21,8,0)=" RESTORATIVE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,48,21,9,0)="                       physical therapy for four or more consecutive"
^DD(45.9,48,21,10,0)="                       weeks with a restorative goal."
^DD(45.9,48,21,11,0)=" NON-QUALIFYING PROGRAM:  patient requires and receives restorative"
^DD(45.9,48,21,12,0)="                          therapy, but does not meet the qualifiers"
^DD(45.9,48,21,13,0)="                          stated in the instructions."
^DD(45.9,48,"DT")="2880216"
^DD(45.9,49,0)="PT DAYS PER WEEK^NJ1,0^^0;49^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.9,49,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 7"
^DD(45.9,49,21,0)="^^3^3^2920120^^"
^DD(45.9,49,21,1,0)="Enter the number of days a week (0-7) that this patient receives physical"
^DD(45.9,49,21,2,0)="therapy.  Enter 0 if this patient does not receive physical therapy"
^DD(45.9,49,21,3,0)="(pysical theraphy level was listed as 1)."
^DD(45.9,49.5,0)="PT HOURS/MINUTES PER WEEK^NJ4,0X^^0;63^K:+X'=X!(X>5059)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D HM^DGRUGC1"
^DD(45.9,49.5,3)="Type a Number between 0 and 5059, 0 Decimal Digits"
^DD(45.9,49.5,4)=""
^DD(45.9,49.5,21,0)="^^4^4^2881026^^^^"
^DD(45.9,49.5,21,1,0)="Enter a number 0 through 5059 in the format HHMM.  For example, if the "
^DD(45.9,49.5,21,2,0)="patient has received 3 hours and 30 minutes of therapy per week, enter 330."
^DD(45.9,49.5,21,3,0)="Enter 30 if the patient received only 30 minutes per week.  Leading zeros "
^DD(45.9,49.5,21,4,0)="should be left off."
^DD(45.9,49.5,"DT")="2881130"
^DD(45.9,50,0)="OCCUPATIONAL THERAPY LEVEL^S^1:1> DOES NOT RECEIVE;2:2> MAINTENANCE PROGRAM;3:3> RESTORATIVE PROGRAM;4:4> NON-QUALIFYING PROGRAM;^0;50^Q"
^DD(45.9,50,21,0)="^^13^13^2920120^"
^DD(45.9,50,21,1,0)="Enter the appropriate code denoting the level of occupational therapy that"
^DD(45.9,50,21,2,0)="this patient receives.  The following are the choices available:"
^DD(45.9,50,21,3,0)=" "
^DD(45.9,50,21,4,0)=" DOES NOT RECEIVE:  patient does not receive occupational therapy."
^DD(45.9,50,21,5,0)=" MAINTENANCE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,50,21,6,0)="                       occupational therapy to help stabilize or slow"
^DD(45.9,50,21,7,0)="                       functional deteriorization."
^DD(45.9,50,21,8,0)=" RESTORATIVE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,50,21,9,0)="                       occupational therapy for four or more consecutive"
^DD(45.9,50,21,10,0)="                       weeks with a restorative goal."
^DD(45.9,50,21,11,0)=" NON-QUALIFYING PROGRAM:  patient requires and receives restorative"
^DD(45.9,50,21,12,0)="                          therapy, but does not meet the qualifiers"
^DD(45.9,50,21,13,0)="                          stated in the instructions."
^DD(45.9,50,"DT")="2870420"
^DD(45.9,51,0)="OT DAYS PER WEEK^NJ1,0^^0;51^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.9,51,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 7"
^DD(45.9,51,21,0)="^^3^3^2920120^^"
^DD(45.9,51,21,1,0)="Enter the number of days a week (0-7) this patient receives occupational"
^DD(45.9,51,21,2,0)="therapy.  Enter 0 if this patient does not receive occupational therapy"
^DD(45.9,51,21,3,0)="(occupational therapy level was listed as 1)."
^DD(45.9,51.5,0)="OT HOURS/MINUTES PER WEEK^NJ4,0X^^0;64^K:+X'=X!(X>5059)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D HM^DGRUGC1"
^DD(45.9,51.5,3)="Type a Number between 0 and 5059, 0 Decimal Digits"
^DD(45.9,51.5,21,0)="^^4^4^2881026^^^^"
^DD(45.9,51.5,21,1,0)="Enter a number 0 through 5059 in the format HHMM.  For example, if the "
^DD(45.9,51.5,21,2,0)="patient has received 3 hours and 30 minutes of therapy per week, enter 330."
^DD(45.9,51.5,21,3,0)="Enter 30 if the patient received only 30 minutes per week.  Leading zeros"
^DD(45.9,51.5,21,4,0)="should be left off."
^DD(45.9,51.5,"DT")="2881130"
^DD(45.9,52,0)="CORRECTIVE THERAPY LEVEL^S^1:1> DOES NOT RECEIVE;2:2> MAINTENANCE PROGRAM;3:3> RESTORATIVE PROGRAM;4:4> NON-QUALIFYING PROGRAM;^0;52^Q"
^DD(45.9,52,21,0)="^^13^13^2920120^"
^DD(45.9,52,21,1,0)="Enter the appropriate code denoting the level of corrective therapy that"
^DD(45.9,52,21,2,0)="this patient receives.  The following are the choices available:"
^DD(45.9,52,21,3,0)=" "
^DD(45.9,52,21,4,0)=" DOES NOT RECEIVE:  patient does not receive corrective therapy."
^DD(45.9,52,21,5,0)=" MAINTENANCE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,52,21,6,0)="                       corrective therapy to help stabilize or slow"
^DD(45.9,52,21,7,0)="                       functional deteriorization."
^DD(45.9,52,21,8,0)=" RESTORATIVE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,52,21,9,0)="                       corrective therapy for four or more consecutive"
^DD(45.9,52,21,10,0)="                       weeks with a restorative goal."
^DD(45.9,52,21,11,0)=" NON-QUALIFYING PROGRAM:  patient requires and receives restorative"
^DD(45.9,52,21,12,0)="                          therapy, but does not meet the qualifiers"
^DD(45.9,52,21,13,0)="                          stated in the instructions."
^DD(45.9,52,"DT")="2870420"
^DD(45.9,53,0)="CT DAYS PER WEEK^NJ1,0^^0;53^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.9,53,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 7"
^DD(45.9,53,21,0)="^^3^3^2920120^^"
^DD(45.9,53,21,1,0)="Enter the number of days a week (0-7) that this patient receives corrective"
^DD(45.9,53,21,2,0)="therapy.  Enter 0 if this patient does not receive corrective therapy"
^DD(45.9,53,21,3,0)="(corrective therapy level was listed as 1)."
^DD(45.9,53.5,0)="CT HOURS/MINUTES PER WEEK^NJ4,0X^^0;65^K:+X'=X!(X>5059)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D HM^DGRUGC1"
^DD(45.9,53.5,3)="Type a Number between 0 and 5059, 0 Decimal Digits"
^DD(45.9,53.5,21,0)="^^4^4^2881026^^^"
^DD(45.9,53.5,21,1,0)="Enter a number 0 through 5059 in the format HHMM.  For example, if the "
^DD(45.9,53.5,21,2,0)="patient has received 3 hours and 30 minutes of therapy per week, enter 330."
^DD(45.9,53.5,21,3,0)="Enter 30 if the patient received only 30 minutes per week.  Leading zeros"
^DD(45.9,53.5,21,4,0)="should be left off."
^DD(45.9,53.5,"DT")="2881130"
^DD(45.9,54,0)="MANUAL ARTS THERAPY LEVEL^S^1:1> DOES NOT RECEIVE;2:2> MAINTENANCE PROGRAM;3:3> RESTORATIVE PROGRAM;4:4> NON-QUALIFYING PROGRAM;^0;54^Q"
^DD(45.9,54,21,0)="^^13^13^2920120^"
^DD(45.9,54,21,1,0)="Enter the appropriate code denoting the level of manual arts therapy that"
^DD(45.9,54,21,2,0)="this patient receives.  The following are the choices available:"
^DD(45.9,54,21,3,0)=" "
^DD(45.9,54,21,4,0)=" DOES NOT RECEIVE:  patient does not receive manual arts therapy."
^DD(45.9,54,21,5,0)=" MAINTENANCE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,54,21,6,0)="                       manual arts therapy to help stabilize or slow"
^DD(45.9,54,21,7,0)="                       functional deteriorization."
^DD(45.9,54,21,8,0)=" RESTORATIVE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,54,21,9,0)="                       manual arts therapy for four or more consecutive"
^DD(45.9,54,21,10,0)="                       weeks with a restorative goal."
^DD(45.9,54,21,11,0)=" NON-QUALIFYING PROGRAM:  patient requires and receives restorative"
^DD(45.9,54,21,12,0)="                          therapy, but does not meet the qualifiers"
^DD(45.9,54,21,13,0)="                          stated in the instructions."
^DD(45.9,54,"DT")="2870420"
^DD(45.9,55,0)="MAT DAYS PER WEEK^NJ1,0^^0;55^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.9,55,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 7"
^DD(45.9,55,21,0)="^^3^3^2920120^"
^DD(45.9,55,21,1,0)="Enter the number of days a week (0-7) that this patient receives manual arts"
^DD(45.9,55,21,2,0)="therapy.  Enter 0 if this patient does not receive manual arts therapy"
^DD(45.9,55,21,3,0)="(manual arts therapy level was listed as 1)."
^DD(45.9,55.5,0)="MAT HOURS/MINUTES PER WEEK^NJ4,0X^^0;66^K:+X'=X!(X>5059)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D HM^DGRUGC1"
^DD(45.9,55.5,3)="Type a Number between 0 and 5059, 0 Decimal Digits"
^DD(45.9,55.5,21,0)="^^4^4^2881026^^^^"
^DD(45.9,55.5,21,1,0)="Enter a number 0 through 5059 in the format HHMM.  For example, if the"
^DD(45.9,55.5,21,2,0)="patient has received 3 hours and 30 minutes of therapy per week, enter 330."
^DD(45.9,55.5,21,3,0)="Enter 30 if the patient received only 30 minutes per week.  Leading zeros"
^DD(45.9,55.5,21,4,0)="should be left off."
^DD(45.9,55.5,"DT")="2881130"
^DD(45.9,56,0)="EDUCATIONAL THERAPY LEVEL^S^1:1> DOES NOT RECEIVE;2:2> MAINTENANCE PROGRAM;3:3> RESTORATIVE PROGRAM;4:4> NON-QUALIFYING PROGRAM;^0;56^Q"
^DD(45.9,56,21,0)="^^13^13^2920120^"
^DD(45.9,56,21,1,0)="Enter the appropriate code denoting the level of educational therapy that"
^DD(45.9,56,21,2,0)="this patient receives.  The following are the choices available:"
^DD(45.9,56,21,3,0)=" "
^DD(45.9,56,21,4,0)=" DOES NOT RECEIVE:  patient does not receive educational therapy."
^DD(45.9,56,21,5,0)=" MAINTENANCE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,56,21,6,0)="                       educational therapy to help stabilize or slow"
^DD(45.9,56,21,7,0)="                       functional deteriorization."
^DD(45.9,56,21,8,0)=" RESTORATIVE PROGRAM:  patient requires and is currently receiving"
^DD(45.9,56,21,9,0)="                       educational therapy for four or more consecutive"
^DD(45.9,56,21,10,0)="                       weeks with a restorative goal."
^DD(45.9,56,21,11,0)=" NON-QUALIFYING PROGRAM:  patient requires and receives restorative"
^DD(45.9,56,21,12,0)="                          therapy, but does not meet the qualifiers"
^DD(45.9,56,21,13,0)="                          stated in the instructions."
^DD(45.9,56,"DT")="2870420"
^DD(45.9,57,0)="ET DAYS PER WEEK^NJ1,0^^0;57^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.9,57,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 7"
^DD(45.9,57,21,0)="^^3^3^2920120^"
^DD(45.9,57,21,1,0)="Enter the number of days a week (0-7) that this patient receives educational"
^DD(45.9,57,21,2,0)="therapy.  Enter 0 if this patient does not receive educational therapy"
^DD(45.9,57,21,3,0)="(educational therapy level was listed as 1)."
^DD(45.9,57.5,0)="ET HOURS/MINUTES PER WEEK^NJ4,0X^^0;67^K:+X'=X!(X>5059)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D HM^DGRUGC1"
^DD(45.9,57.5,3)="Type a Number between 0 and 5059, 0 Decimal Digits"
^DD(45.9,57.5,21,0)="^^4^4^2881130^^^^"
^DD(45.9,57.5,21,1,0)="Enter a number 0 through 5059 in the format HHMM.  For example, if the "
^DD(45.9,57.5,21,2,0)="patient has received 3 hours and 30 minutes of therapy per week, enter 330."
^DD(45.9,57.5,21,3,0)="Enter 30 if the patient received only 30 minutes per week.  Leading zeros "
^DD(45.9,57.5,21,4,0)="should be left off."
^DD(45.9,57.5,"DT")="2881130"
^DD(45.9,58,0)="CHRONIC VENTILATOR DEP. (CVD)^S^2:YES;1:NO;^0;58^Q"
^DD(45.9,58,21,0)="^^15^15^2881030^^^^"
^DD(45.9,58,21,1,0)="Definition:  Chronic ventilator dependent - Patient is, or in the past six"
^DD(45.9,58,21,2,0)="months has been, dependent upon mechanical respiratory support to sustain"
^DD(45.9,58,21,3,0)="life.  The definition of 'mechanical' includes either negative or positive"
^DD(45.9,58,21,4,0)="pressure ventilators, rocking beds, or pneumobelts."
^DD(45.9,58,21,5,0)=" "
^DD(45.9,58,21,6,0)="Specific Frequency:  Patients who are currently being supported by a "
^DD(45.9,58,21,7,0)="mechanical respirator must have been supported for at least 6 hours a day "
^DD(45.9,58,21,8,0)="for each of the past 30 days.  This question should also be answered 'yes'"
^DD(45.9,58,21,9,0)="for any patient who is not now being supported by a mechanical respirator"
^DD(45.9,58,21,10,0)="because of successful weaning attempts but who had been supported for at"
^DD(45.9,58,21,11,0)="least 6 hours a day in any 5 of the last 6 months."
^DD(45.9,58,21,12,0)=" "
^DD(45.9,58,21,13,0)="Exclusions:  Any patient not meeting either of the specific frequency"
^DD(45.9,58,21,14,0)="requirements.  The term 'mechanical' excludes phrenic nerve pacemakers"
^DD(45.9,58,21,15,0)="used to generate breathing through diaphragm pacemaking."
^DD(45.9,58,"DT")="2881030"
^DD(45.9,59,0)="TIME SINCE BECOMING CVD^S^1:1> N/A - NOT CVD;2:2> LESS THAN 2 MONTHS;3:3> 2 TO 6 MONTHS;4:4> 6 TO 36 MONTHS;5:5> MORE THAN 36 MONTHS;^0;59^Q"
^DD(45.9,59,21,0)="^^2^2^2881022^"
^DD(45.9,59,21,1,0)="Enter a number 1 through 5 specifying the length of time since the "
^DD(45.9,59,21,2,0)="patient has become CVD."
^DD(45.9,59,"DT")="2881030"
^DD(45.9,60,0)="WEANING ATTEMPT FREQUENCY^S^1:1> N/A - NOT CVD;2:2> NO ATTEMPTS IN THE PAST SIX MONTHS;3:3> DAILY ATTEMPTS;4:4> WEEKLY ATTEMPTS;5:5> MONTHLY ATTEMPTS;^0;60^Q"
^DD(45.9,60,21,0)="^^2^2^2881025^^"
^DD(45.9,60,21,1,0)="Enter a number 1 through 5 corresponding to the frequency of weaning "
^DD(45.9,60,21,2,0)="attempts for this patient."
^DD(45.9,60,"DT")="2881030"
^DD(45.9,61,0)="IS PNP>-20CM AND VC>15ML^S^1:1> N/A - NOT CVD;2:2> NO;3:3> YES;4:4> NOT MEASURED IN THE LAST 2 MONTHS;^0;61^Q"
^DD(45.9,61,21,0)="^^2^2^2881026^^"
^DD(45.9,61,21,1,0)="Is peak negative pressure more than -20 cm H2O and vital capacity greater"
^DD(45.9,61,21,2,0)="than 15 ml/kg based on the most recent measurement?"
^DD(45.9,61,"DT")="2881030"
^DD(45.9,62,0)="CAUSE FOR RESPIRATORY FAILURE^S^1:1> N/A - NOT CVD;2:2> COPD;3:3> AMYOTROPHIC LATERAL SCLEROSIS;4:4> STROKE/HEAD INJURY;5:5> SPINAL CORD INJURY;6:6> KYPHOSCOLIOSIS;7:7> 2 OR MORE OF THE ABOVE;8:8> NONE OF THE ABOVE;9:9> UNKNOWN;^0;62^Q"
^DD(45.9,62,21,0)="^^2^2^2881026^^"
^DD(45.9,62,21,1,0)="Enter primary cause (diagnosis) for the respiratory failure."
^DD(45.9,62,21,2,0)="Note:  COPD is chronic obstructive pulmonary disease."
^DD(45.9,62,"DT")="2881030"
^DD(45.9,70,0)="LOCATION^V^^R;1^Q"
^DD(45.9,70,3)=""
^DD(45.9,70,21,0)="^^4^4^2960626^^^^"
^DD(45.9,70,21,1,0)="Enter the location where this patient was when this patient assessment "
^DD(45.9,70,21,2,0)="instrument was completed.  If a ward is selected, it must have a service"
^DD(45.9,70,21,3,0)="or either Intermediate medicine or nursing home care.  If a CNH is "
^DD(45.9,70,21,4,0)="selected, it must be an active CNH vendor."
^DD(45.9,70,"DT")="2960417"
^DD(45.9,70,"V",0)="^.12P^2^2"
^DD(45.9,70,"V",1,0)="42^LOCATION^1^W^y^n"
^DD(45.9,70,"V",1,1)="S DIC(""S"")=""I '$D(DGCNH),$P(^(0),U,3)]"""""""",""""NHI""""[$P(^(0),U,3)"""
^DD(45.9,70,"V",1,2)="Only choose wards whose service is intermediate medicine or nursing home care."
^DD(45.9,70,"V",2,0)="161.2^LOCATION^2^CNH^y^n"
^DD(45.9,70,"V",2,1)="S DIC(""S"")=""I $$SCREEN^DGRUGU1()"""
^DD(45.9,70,"V",2,2)="Only choose an active CNH vendor."
^DD(45.9,70,"V","B",42,1)=""
^DD(45.9,70,"V","B",161.2,2)=""
^DD(45.9,70,"V","M","LOCATION",1)=""
^DD(45.9,70,"V","M","LOCATION",2)=""
^DD(45.9,70,"V","O",1,1)=""
^DD(45.9,70,"V","O",2,2)=""
^DD(45.9,70,"V","P","CNH",2)=""
^DD(45.9,70,"V","P","W",1)=""
^DD(45.9,71,0)="RUG-II GROUP^P45.91'^DG(45.91,^R;2^Q"
^DD(45.9,71,1,0)="^.1"
^DD(45.9,71,1,1,0)="45.9^AR^MUMPS"
^DD(45.9,71,1,1,1)="S R=$P(^DG(45.9,DA,0),""^"",6),R1=$P(^(0),""^"",2) I R,R1 S ^DG(45.9,""AR"",X,R,R1,DA)="""""
^DD(45.9,71,1,1,2)="S R=$P(^DG(45.9,DA,0),""^"",6),R1=$P(^(0),""^"",2) I R,R1 K ^DG(45.9,""AR"",X,R,R1,DA)"
^DD(45.9,71,3)=""
^DD(45.9,71,9)="^"
^DD(45.9,71,21,0)="^^5^5^2920120^"
^DD(45.9,71,21,1,0)="Enter the RUG-II group (1-17) that this patient was categorized into."
^DD(45.9,71,21,2,0)="This field is completed by the RUG-II software based on the responses"
^DD(45.9,71,21,3,0)="to all of the assessment questions.  It should not be altered in any"
^DD(45.9,71,21,4,0)="way.  Any changes should be made through the appropriate RUG-II menu"
^DD(45.9,71,21,5,0)="options."
^DD(45.9,71,"DT")="2870314"
^DD(45.9,72,0)="ADL SUM^NJ2,0^^R;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.9,72,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 10"
^DD(45.9,72,9)="^"
^DD(45.9,72,21,0)="^^7^7^2920120^"
^DD(45.9,72,21,1,0)="The ADL sum is the sum of the numeric codes given for the eating,"
^DD(45.9,72,21,2,0)="toileting, and transfer questions.  This sum is computed automatically"
^DD(45.9,72,21,3,0)="by the RUG-II software and should not be altered.  Any changes should"
^DD(45.9,72,21,4,0)="be made through the appropriate RUG-II menu option.  The ADL sum, along"
^DD(45.9,72,21,5,0)="with responses to various questions in the patient assessment instrument,"
^DD(45.9,72,21,6,0)="is used to compute the RUG-II group under which this patient will be"
^DD(45.9,72,21,7,0)="placed."
^DD(45.9,72,"DT")="2861104"
^DD(45.9,73,0)="DATE EDITED^45.9001DA^^U;0"
^DD(45.9,73,9)="^"
^DD(45.9,73,21,0)="^^2^2^2920120^"
^DD(45.9,73,21,1,0)="This multiple stores the user and dates on which this patient assessment"
^DD(45.9,73,21,2,0)="instrument was edited."
^DD(45.9,74,0)="CATEGORY^S^1:HEAVY REHABILITATION;2:SPECIAL CARE;3:CLINICAL COMPLEX;4:BEHAVIORAL;5:PHYSICAL;^R;4^Q"
^DD(45.9,74,9)="^"
^DD(45.9,74,21,0)="^^4^4^2920120^"
^DD(45.9,74,21,1,0)="This field stores the category under which this patient assessment"
^DD(45.9,74,21,2,0)="instrument has been grouped.  The category is determined automatically"
^DD(45.9,74,21,3,0)="by the RUG-II module based on responses to various questions on the"
^DD(45.9,74,21,4,0)="assessment form.  This field should NOT be altered in any way."
^DD(45.9,74,"DT")="2870309"
^DD(45.9,80,0)="RECORD STATUS^SX^1:COMPLETED;2:CLOSED;3:RELEASE;4:TRANSMITTED;0:OPEN;5:INCOMPLETE;^C;1^Q"
^DD(45.9,80,1,0)="^.1"
^DD(45.9,80,1,1,0)="45.9^AS"
^DD(45.9,80,1,1,1)="S ^DG(45.9,""AS"",$E(X,1,30),DA)="""""
^DD(45.9,80,1,1,2)="K ^DG(45.9,""AS"",$E(X,1,30),DA)"
^DD(45.9,80,1,2,0)="^^TRIGGER^45.9^84"
^DD(45.9,80,1,2,1)="Q"
^DD(45.9,80,1,2,1.4)="S DIH=$S($D(^DG(45.9,DIV(0),""C"")):^(""C""),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(""C"")=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=45.9,DIG=84 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.9,80,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DG(45.9,DA,""C"")):0,$P(^(""C""),U)'=0:0,X=2:1,1:0) I X S X=DIV S Y(1)=$S($D(^DG(45.9,D0,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(45.9,80,1,2,2.4)"
^DD(45.9,80,1,2,2.4)="S DIH=$S($D(^DG(45.9,DIV(0),""C"")):^(""C""),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(""C"")=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=45.9,DIG=84 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(45.9,80,1,2,"CREATE CONDITION")="S X=$S('$D(RMOFLG):0,X=0:1,1:0)"
^DD(45.9,80,1,2,"CREATE VALUE")="NO EFFECT"
^DD(45.9,80,1,2,"DELETE CONDITION")="S X=$S('$D(^DG(45.9,DA,""C"")):0,$P(^(""C""),U)'=0:0,X=2:1,1:0)"
^DD(45.9,80,1,2,"DELETE VALUE")="S X=DUZ"
^DD(45.9,80,1,2,"FIELD")="REO"
^DD(45.9,80,21,0)="^^5^5^2920120^"
^DD(45.9,80,21,1,0)="Enter the code that best respresents the status of this record.  Statuses"
^DD(45.9,80,21,2,0)="are updated automatically by the RUG-II module and should not be altered"
^DD(45.9,80,21,3,0)="except through options on the RUG-II menu.  Altering this data could have"
^DD(45.9,80,21,4,0)="negative impacts on the performance of the RUG software including rejections"
^DD(45.9,80,21,5,0)="of records transmitted to Austin."
^DD(45.9,80,"DT")="2870314"
^DD(45.9,81,0)="CLOSE OUT DATE^D^^C;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(45.9,81,21,0)="^^4^4^2920120^"
^DD(45.9,81,21,1,0)="Enter the date this record was closed.  This is the date on which the"
^DD(45.9,81,21,2,0)="user chose to close the record after all assessment questions were"
^DD(45.9,81,21,3,0)="answered correctly.  This field is updated automatically by the RUG-II"
^DD(45.9,81,21,4,0)="software and should not be altered."
^DD(45.9,81,"DT")="2861105"
^DD(45.9,82,0)="CLOSED OUT BY^P200'^VA(200,^C;3^Q"
^DD(45.9,82,21,0)="^^4^4^2920120^"
^DD(45.9,82,21,1,0)="This field stores the name of the person who chose to complete this"
^DD(45.9,82,21,2,0)="assessment once all questions on the patient assessment instrument"
^DD(45.9,82,21,3,0)="were answered appropriately.  This field is updated automatically by"
^DD(45.9,82,21,4,0)="the RUG-II software and should not be altered."
^DD(45.9,82,"DT")="2901006"
^DD(45.9,83,0)="TRANSMISSION DATE^D^^C;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(45.9,83,1,0)="^.1"
^DD(45.9,83,1,1,0)="45.9^T"
^DD(45.9,83,1,1,1)="S ^DG(45.9,""T"",$E(X,1,30),DA)="""""
^DD(45.9,83,1,1,2)="K ^DG(45.9,""T"",$E(X,1,30),DA)"
^DD(45.9,83,21,0)="^^3^3^2920120^"
^DD(45.9,83,21,1,0)="If this patient assessment instrument has been transmitted, this field"
^DD(45.9,83,21,2,0)="will indicate the date this record was transmitted to Austin.  The"
^DD(45.9,83,21,3,0)="transmission software will automatically update this field."
^DD(45.9,83,"DT")="2861117"
^DD(45.9,84,0)="REOPENED BY^P200'^VA(200,^C;5^Q"
^DD(45.9,84,5,1,0)="45.9^80^2"
^DD(45.9,84,21,0)="^^4^4^2920120^"
^DD(45.9,84,21,1,0)="If this record required reopening after it was closed, this field will"
^DD(45.9,84,21,2,0)="contain the name of the individual that reopened the record.  Records"
^DD(45.9,84,21,3,0)="which have already been transmitted and need changing may also be"
^DD(45.9,84,21,4,0)="reopened."
^DD(45.9,84,"DT")="2901006"
^DD(45.9,"B","ADL SUM",72)=""
^DD(45.9,"B","ASSESSMENT DATE",2)=""
^DD(45.9,"B","ASSESSMENT PURPOSE",6)=""
^DD(45.9,"B","BED SECTION",9)=""
^DD(45.9,"B","CATEGORY",74)=""
^DD(45.9,"B","CAUSE FOR RESPIRATORY FAILURE",62)=""
^DD(45.9,"B","CHEMOTHERAPY",17)=""
^DD(45.9,"B","CHRONIC VENTILATOR DEP. (CVD)",58)=""
^DD(45.9,"B","CLOSE OUT DATE",81)=""
^DD(45.9,"B","CLOSED OUT BY",82)=""
^DD(45.9,"B","COMATOSE",24)=""
^DD(45.9,"B","CORRECTIVE THERAPY LEVEL",52)=""
^DD(45.9,"B","CT DAYS PER WEEK",53)=""
^DD(45.9,"B","CT HOURS/MINUTES PER WEEK",53.5)=""
^DD(45.9,"B","DATE EDITED",73)=""
^DD(45.9,"B","DATE OF ADMISSION/TRANSFER IN",7)=""
^DD(45.9,"B","DECUBITUS LEVEL",23)=""
^DD(45.9,"B","DEHYDRATION",25)=""
^DD(45.9,"B","DIALYSIS/APHORESIS",19)=""
^DD(45.9,"B","DISRUPTIVE BEHAVIOR",46)=""
^DD(45.9,"B","EATING",40)=""
^DD(45.9,"B","EDUCATIONAL THERAPY LEVEL",56)=""
^DD(45.9,"B","ET DAYS PER WEEK",57)=""
^DD(45.9,"B","ET HOURS/MINUTES PER WEEK",57.5)=""
^DD(45.9,"B","HALLUCINATIONS",47)=""
^DD(45.9,"B","HEMIPLEGIA",35)=""
^DD(45.9,"B","INTERNAL BLEEDING",26)=""
^DD(45.9,"B","IS PNP>-20CM AND VC>15ML",61)=""
^DD(45.9,"B","LOCATION",70)=""
^DD(45.9,"B","MANUAL ARTS THERAPY LEVEL",54)=""
^DD(45.9,"B","MAT DAYS PER WEEK",55)=""
^DD(45.9,"B","MAT HOURS/MINUTES PER WEEK",55.5)=""
^DD(45.9,"B","MEDICAL CENTER",8)=""
^DD(45.9,"B","MOBILITY",41)=""
^DD(45.9,"B","MULTIPLE SCLEROSIS",33)=""
^DD(45.9,"B","NAME",.01)=""
^DD(45.9,"B","NUMBER",.001)=""
^DD(45.9,"B","OCCUPATIONAL THERAPY LEVEL",50)=""
^DD(45.9,"B","OT DAYS PER WEEK",51)=""
^DD(45.9,"B","OT HOURS/MINUTES PER WEEK",51.5)=""
^DD(45.9,"B","OXYGEN(DAILY)",12)=""
^DD(45.9,"B","PARENTERAL FEEDING",15)=""
^DD(45.9,"B","PHYSICAL AGGRESSION",45)=""
^DD(45.9,"B","PHYSICAL THERAPY LEVEL",48)=""
^DD(45.9,"B","PT DAYS PER WEEK",49)=""
^DD(45.9,"B","PT HOURS/MINUTES PER WEEK",49.5)=""
^DD(45.9,"B","QUADRIPLEGIA",32)=""
^DD(45.9,"B","RADIATION THERAPY",20)=""
^DD(45.9,"B","RECORD STATUS",80)=""
^DD(45.9,"B","REOPENED BY",84)=""
^DD(45.9,"B","RESERVE2",29)=""
^DD(45.9,"B","RESERVE3",30)=""
^DD(45.9,"B","RESERVE4",31)=""
^DD(45.9,"B","RESERVE5",36)=""
^DD(45.9,"B","RESERVE6",37)=""
^DD(45.9,"B","RESERVE7",38)=""
^DD(45.9,"B","RESERVE8",39)=""
^DD(45.9,"B","RESERVED1",22)=""
^DD(45.9,"B","RESPIRATORY CARE",13)=""
^DD(45.9,"B","RUG-II GROUP",71)=""
^DD(45.9,"B","SEX",4)=""
^DD(45.9,"B","SSN",3)=""
^DD(45.9,"B","STASIS ULCER",27)=""
^DD(45.9,"B","SUCTIONING-GENERAL(DAILY)",11)=""
^DD(45.9,"B","TERMINALLY ILL",28)=""
^DD(45.9,"B","TIME SINCE BECOMING CVD",59)=""
^DD(45.9,"B","TOILETING",43)=""
^DD(45.9,"B","TRACHEOSTOMY CARE/SUCTIONING",10)=""
^DD(45.9,"B","TRANSFER",42)=""
^DD(45.9,"B","TRANSFUSIONS",18)=""
^DD(45.9,"B","TRANSMISSION DATE",83)=""
^DD(45.9,"B","TUBE FEEDING",14)=""
^DD(45.9,"B","TUBE FEEDING ROUTE",21)=""
^DD(45.9,"B","URINARY TRACT INFECTION",34)=""
^DD(45.9,"B","VERBAL DISRUPTION",44)=""
^DD(45.9,"B","WEANING ATTEMPT FREQUENCY",60)=""
^DD(45.9,"B","WOUND CARE",16)=""
^DD(45.9,"B","YEAR OF BIRTH",5)=""
^DD(45.9,"GL",0,1,.01)=""
^DD(45.9,"GL",0,2,2)=""
^DD(45.9,"GL",0,3,3)=""
^DD(45.9,"GL",0,4,4)=""
^DD(45.9,"GL",0,5,5)=""
^DD(45.9,"GL",0,6,6)=""
^DD(45.9,"GL",0,7,7)=""
^DD(45.9,"GL",0,8,8)=""
^DD(45.9,"GL",0,9,9)=""
^DD(45.9,"GL",0,10,10)=""
^DD(45.9,"GL",0,11,11)=""
^DD(45.9,"GL",0,12,12)=""
^DD(45.9,"GL",0,13,13)=""
^DD(45.9,"GL",0,14,14)=""
^DD(45.9,"GL",0,15,15)=""
^DD(45.9,"GL",0,16,16)=""
^DD(45.9,"GL",0,17,17)=""
^DD(45.9,"GL",0,18,18)=""
^DD(45.9,"GL",0,19,19)=""
^DD(45.9,"GL",0,20,20)=""
^DD(45.9,"GL",0,21,21)=""
^DD(45.9,"GL",0,22,22)=""
^DD(45.9,"GL",0,23,23)=""
^DD(45.9,"GL",0,24,24)=""
^DD(45.9,"GL",0,25,25)=""
^DD(45.9,"GL",0,26,26)=""
^DD(45.9,"GL",0,27,27)=""
^DD(45.9,"GL",0,28,28)=""
^DD(45.9,"GL",0,29,29)=""
^DD(45.9,"GL",0,30,30)=""
^DD(45.9,"GL",0,31,31)=""
^DD(45.9,"GL",0,32,32)=""
^DD(45.9,"GL",0,33,33)=""
^DD(45.9,"GL",0,34,34)=""
^DD(45.9,"GL",0,35,35)=""
^DD(45.9,"GL",0,36,36)=""
^DD(45.9,"GL",0,37,37)=""
^DD(45.9,"GL",0,38,38)=""
^DD(45.9,"GL",0,39,39)=""
^DD(45.9,"GL",0,40,40)=""
^DD(45.9,"GL",0,41,41)=""
^DD(45.9,"GL",0,42,42)=""
^DD(45.9,"GL",0,43,43)=""
^DD(45.9,"GL",0,44,44)=""
^DD(45.9,"GL",0,45,45)=""
^DD(45.9,"GL",0,46,46)=""
^DD(45.9,"GL",0,47,47)=""
^DD(45.9,"GL",0,48,48)=""
^DD(45.9,"GL",0,49,49)=""
^DD(45.9,"GL",0,50,50)=""
^DD(45.9,"GL",0,51,51)=""
^DD(45.9,"GL",0,52,52)=""
^DD(45.9,"GL",0,53,53)=""
^DD(45.9,"GL",0,54,54)=""
^DD(45.9,"GL",0,55,55)=""
^DD(45.9,"GL",0,56,56)=""
^DD(45.9,"GL",0,57,57)=""
^DD(45.9,"GL",0,58,58)=""
^DD(45.9,"GL",0,59,59)=""
^DD(45.9,"GL",0,60,60)=""
^DD(45.9,"GL",0,61,61)=""
^DD(45.9,"GL",0,62,62)=""
^DD(45.9,"GL",0,63,49.5)=""
^DD(45.9,"GL",0,64,51.5)=""
^DD(45.9,"GL",0,65,53.5)=""
^DD(45.9,"GL",0,66,55.5)=""
^DD(45.9,"GL",0,67,57.5)=""
^DD(45.9,"GL","C",1,80)=""
^DD(45.9,"GL","C",2,81)=""
^DD(45.9,"GL","C",3,82)=""
^DD(45.9,"GL","C",4,83)=""
^DD(45.9,"GL","C",5,84)=""
^DD(45.9,"GL","R",1,70)=""
^DD(45.9,"GL","R",2,71)=""
^DD(45.9,"GL","R",3,72)=""
^DD(45.9,"GL","R",4,74)=""
^DD(45.9,"GL","U",0,73)=""
^DD(45.9,"IX",.01)=""
^DD(45.9,"IX",2)=""
^DD(45.9,"IX",7)=""
^DD(45.9,"IX",71)=""
^DD(45.9,"IX",80)=""
^DD(45.9,"IX",83)=""
^DD(45.9,"RQ",.01)=""
^DD(45.9,"RQ",2)=""
^DD(45.9,"RQ",3)=""
^DD(45.9,"RQ",6)=""
^DD(45.9,"SB",45.9001,73)=""
^DD(45.9001,0)="DATE EDITED SUB-FIELD^^1^2"
^DD(45.9001,0,"NM","DATE EDITED")=""
^DD(45.9001,0,"UP")="45.9"
^DD(45.9001,.01,0)="DATE EDITED^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(45.9001,.01,1,0)="^.1^^0"
^DD(45.9001,.01,3)=""
^DD(45.9001,.01,21,0)="^^1^1^2920120^"
^DD(45.9001,.01,21,1,0)="Enter the date this patient assessment instrument was edited."
^DD(45.9001,.01,"DT")="2861104"
^DD(45.9001,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(45.9001,1,3)=""
^DD(45.9001,1,21,0)="^^1^1^2920120^"
^DD(45.9001,1,21,1,0)="Enter the name of the user that edited this patient assessment instrument."
^DD(45.9001,1,"DT")="2901006"
^DD(45.9001,"B","DATE EDITED",.01)=""
^DD(45.9001,"B","USER",1)=""
^DD(45.9001,"GL",0,1,.01)=""
^DD(45.9001,"GL",0,2,1)=""
^DD(45.91,0)="FIELD^^1^3"
^DD(45.91,0,"IX","B",45.91,.01)=""
^DD(45.91,0,"NM","RUG-II")=""
^DD(45.91,0,"PT",45.9,71)=""
^DD(45.91,0,"VR")="5.3"
^DD(45.91,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(45.91,.001,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(45.91,.001,21,0)="^^5^5^2920214^^^"
^DD(45.91,.001,21,1,0)="This number is created automatically by VA FileMan.  It should not"
^DD(45.91,.001,21,2,0)="be altered in any way.  Adding, editing, or removing entries from"
^DD(45.91,.001,21,3,0)="this file could have severe and negative impacts on the operation of"
^DD(45.91,.001,21,4,0)="the RUG-II software and could cause losses in reimbursement for long"
^DD(45.91,.001,21,5,0)="term care."
^DD(45.91,.001,"DT")="2870217"
^DD(45.91,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(45.91,.01,1,0)="^.1"
^DD(45.91,.01,1,1,0)="45.91^B"
^DD(45.91,.01,1,1,1)="S ^DG(45.91,""B"",$E(X,1,30),DA)="""""
^DD(45.91,.01,1,1,2)="K ^DG(45.91,""B"",$E(X,1,30),DA)"
^DD(45.91,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(45.91,.01,21,0)="^^5^5^2920214^^"
^DD(45.91,.01,21,1,0)="This field contain the name of the RUG-II group (1-17).  These groups"
^DD(45.91,.01,21,2,0)="are maintained by the MAS module with direction from MAS VACO and the"
^DD(45.91,.01,21,3,0)="Austin DPC.  Altering of these entries (or adding or removing entries)"
^DD(45.91,.01,21,4,0)="will have a severe and negative impact on operations of the RUG-II software"
^DD(45.91,.01,21,5,0)="at your medical center.  Impacts may include losses of reimbursement."
^DD(45.91,1,0)="FISCAL YEAR^45.9101DA^^FY;0"
^DD(45.91,1,21,0)="^^3^3^2980309^^^^"
^DD(45.91,1,21,1,0)="This multiple contains data on the number of weighted work units appied to"
^DD(45.91,1,21,2,0)="this RUG-II group each fiscal year.  This data is supplied by the Boston"
^DD(45.91,1,21,3,0)="DPC."
^DD(45.91,"B","FISCAL YEAR",1)=""
^DD(45.91,"B","NAME",.01)=""
^DD(45.91,"B","NUMBER",.001)=""
^DD(45.91,"GL",0,1,.01)=""
^DD(45.91,"GL","FY",0,1)=""
^DD(45.91,"IX",.01)=""
^DD(45.91,"RQ",.01)=""
^DD(45.91,"SB",45.9101,1)=""
^DD(45.9101,0)="FISCAL YEAR SUB-FIELD^^1^2"
^DD(45.9101,0,"NM","FISCAL YEAR")=""
^DD(45.9101,0,"UP")="45.91"
^DD(45.9101,.01,0)="FISCAL YEAR^DX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,3)_""0000"",DINUM=X"
^DD(45.9101,.01,3)="Enter a 4-digit fiscal year."
^DD(45.9101,.01,21,0)="^^4^4^2980309^^^^"
^DD(45.9101,.01,21,1,0)="Enter the fiscal year for which the weighted work units are being"
^DD(45.9101,.01,21,2,0)="applied for this RUG-II group.  The answer should be only a year (no"
^DD(45.9101,.01,21,3,0)="month or date).  Entries should only be added or edited with direction"
^DD(45.9101,.01,21,4,0)="from the Austin DPC."
^DD(45.9101,.01,"DT")="2980309"
^DD(45.9101,1,0)="WWU^NJ7,2^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(45.9101,1,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(45.9101,1,21,0)="^^3^3^2920214^^"
^DD(45.9101,1,21,1,0)="Enter the number of weighted work units applied to this RUG-II group"
^DD(45.9101,1,21,2,0)="during this fiscal year.  This data is supplied by the Austin DPC on"
^DD(45.9101,1,21,3,0)="a yearly basis and should not be altered without their direction."
^DD(45.9101,"B","FISCAL YEAR",.01)=""
^DD(45.9101,"B","WWU",1)=""
^DD(45.9101,"GL",0,1,.01)=""
^DD(45.9101,"GL",0,2,1)=""
^DD(46,0)="FIELDS ^^1^24"
^DD(46,0,"DDA")="N"
^DD(46,0,"DT")="3070425"
^DD(46,0,"IX","B",46,.01)=""
^DD(46,0,"IX","C",46,.16)=""
^DD(46,0,"NM","INPATIENT CPT CODE")=""
^DD(46,0,"VR")="5.3"
^DD(46,0,"VRPK")="DG"
^DD(46,.01,0)="CPT CODE^R*P81'^ICPT(^0;1^S DIC(""S"")=""D EN6^DGPTFJC I 'DGER"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(46,.01,1,0)="^.1"
^DD(46,.01,1,1,0)="46^B"
^DD(46,.01,1,1,1)="S ^DGCPT(46,""B"",$E(X,1,30),DA)="""""
^DD(46,.01,1,1,2)="K ^DGCPT(46,""B"",$E(X,1,30),DA)"
^DD(46,.01,1,2,0)="^^TRIGGER^46^.02"
^DD(46,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="""" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=46,DIG=.02 D ^DICR"
^DD(46,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X="""" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=46,DIG=.02 D ^DICR"
^DD(46,.01,1,2,"CREATE VALUE")="S X=""@"""
^DD(46,.01,1,2,"DELETE VALUE")="S X=""@"""
^DD(46,.01,1,2,"DT")="3050603"
^DD(46,.01,1,2,"FIELD")="CPT MODIFIER 1"
^DD(46,.01,1,3,0)="^^TRIGGER^46^.03"
^DD(46,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=46,DIG=.03 D ^DICR"
^DD(46,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCPT(46,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^DGCPT(46,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=46,DIG=.03 D ^DICR"
^DD(46,.01,1,3,"CREATE VALUE")="S X="""""
^DD(46,.01,1,3,"DELETE VALUE")="S X="""""
^DD(46,.01,1,3,"DT")="3050603"
^DD(46,.01,1,3,"FIELD")="CPT MODIFIER 2"
^DD(46,.01,3)="Enter the procedure, services or supplies using CPT or HCPCS"
^DD(46,.01,12)="Allow only active CPT procedures"
^DD(46,.01,12.1)="S DIC(""S"")=""D EN6^DGPTFJC I 'DGER"""
^DD(46,.01,21,0)="^^5^5^3070430^"
^DD(46,.01,21,1,0)="This is the procedure, services, or supplies used for the patient.  It is"
^DD(46,.01,21,2,0)="using the Healthcare Common Procedure Coding System (HCPCS) or Common"
^DD(46,.01,21,3,0)="Procedure Terminology (CPT) code.  This value appears on the CMS 1500 in"
^DD(46,.01,21,4,0)="box 24d. The values in this field will be provided to the billing package"
^DD(46,.01,21,5,0)="when the record is closed."
^DD(46,.01,"DEL",1,0)="W *7,!,""USE DELETE OPTION TO DO LOGICAL DELETE"""
^DD(46,.01,"DT")="3070430"
^DD(46,.02,0)="CPT MODIFIER 1^*P81.3'^DIC(81.3,^0;2^S DIC(""S"")=""I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""""I"""",DGPRD)>0,$P(^DGCPT(46,DA,0),U,3)'=Y"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.02,3)="Indicates that a service or procedure has been altered, but code unchanged."
^DD(46,.02,5,1,0)="46^.01^2"
^DD(46,.02,12)="ALLOW ONLY MODIFIERS VALID FOR THIS CPT"
^DD(46,.02,12.1)="S DIC(""S"")=""I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""""I"""",DGPRD)>0,$P(^DGCPT(46,DA,0),U,3)'=Y"""
^DD(46,.02,21,0)="^.001^2^2^3050331^^^^"
^DD(46,.02,21,1,0)="Used to indicate that a service or procedure has been altered by some "
^DD(46,.02,21,2,0)="specific circumstance but without changing the definition or code."
^DD(46,.02,"DT")="3050331"
^DD(46,.03,0)="CPT MODIFIER 2^*P81.3'^DIC(81.3,^0;3 ^S DIC(""S"")=""I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""""I"""",DGPRD)>0,$P(^DGCPT(46,DA,0),U,2)'=Y"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.03,3)="Indicates that a service or procedure has been altered, but code UNCHANGED."
^DD(46,.03,5,1,0)="46^.01^3"
^DD(46,.03,12)="ALLOW ONLY MODIFIERS VALID FOR THIS CPT"
^DD(46,.03,12.1)="S DIC(""S"")=""I $$MODP^ICPTMOD($P(^DGCPT(46,DA,0),U),Y,""""I"""",DGPRD)>0,$P(^DGCPT(46,DA,0),U,2)'=Y"""
^DD(46,.03,21,0)="^.001^2^2^3050331^^^^"
^DD(46,.03,21,1,0)="Used to indicate that a service or procedure has been altered by some"
^DD(46,.03,21,2,0)="specific circumstance but not changed definition or code."
^DD(46,.03,"DT")="3050331"
^DD(46,.04,0)="PRIMARY DIAGNOSIS^*P80X^ICD9(^0;4^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.04,3)="The primary diagnosis associated with the procedure performed on the CMS 1500."
^DD(46,.04,12)="Allow only active Diagnosis codes."
^DD(46,.04,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.04,21,0)="^^4^4^3070425^^"
^DD(46,.04,21,1,0)="The diagnosis code most directly related to the procedure code performed for "
^DD(46,.04,21,2,0)="this professional service.  This field must be entered for each CPT code"
^DD(46,.04,21,3,0)="entered.  It appears in box 21 on the CMS-1500 and is associated with a"
^DD(46,.04,21,4,0)="procedure in box 24e."
^DD(46,.04,"DT")="3070425"
^DD(46,.05,0)="SECONDARY DIAGNOSIS 1^*P80'X^ICD9(^0;5^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.05,3)="A secondary diagnosis associated with the procedure performed on the CMS 1500."
^DD(46,.05,12)="Allow only active diagnosis codes."
^DD(46,.05,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.05,21,0)="^^3^3^3070425^^^"
^DD(46,.05,21,1,0)="A secondary diagnosis related to the procedure performed for this "
^DD(46,.05,21,2,0)="professional service.  This field is optional.  It appears in box 21 on "
^DD(46,.05,21,3,0)="the CMS-1500 and is associated with a procedure in box 24e."
^DD(46,.05,"DT")="3070425"
^DD(46,.06,0)="SECONDARY DIAGNOSIS 2^*P80'X^ICD9(^0;6^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.06,3)="A secondary diagnosis associated with the procedure performed on the CMS 1500."
^DD(46,.06,12)="Allow only active diagnosis codes."
^DD(46,.06,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.06,21,0)="^^3^3^3070425^^"
^DD(46,.06,21,1,0)="A secondary diagnosis related to the procedure performed for this "
^DD(46,.06,21,2,0)="professional service.  This field is optional.  It appears in box 21 on "
^DD(46,.06,21,3,0)="the CMS-1500 and is associated with a procedure in box 24e."
^DD(46,.06,"DT")="3070425"
^DD(46,.07,0)="SECONDARY DIAGNOSIS 3^*P80'X^ICD9(^0;7^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.07,3)="A secondary diagnosis associated with the procedure performed on the CMS 1500."
^DD(46,.07,12)="Allow only active diagnosis codes."
^DD(46,.07,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.07,21,0)="^^3^3^3070425^"
^DD(46,.07,21,1,0)="A secondary diagnosis related to the procedure performed for this "
^DD(46,.07,21,2,0)="professional service.  This field is optional.  It appears in box 21 on "
^DD(46,.07,21,3,0)="the CMS-1500 and is associated with a procedure in box 24e."
^DD(46,.07,"DT")="3070425"
^DD(46,.08,0)="TREATED FOR SC CONDITION^RS^1:YES;0:NO;^0;8^Q"
^DD(46,.08,3)="The patient care must be Service Connected."
^DD(46,.08,21,0)="^.001^4^4^3031016^^^^"
^DD(46,.08,21,1,0)="Enter 'Y' if this applicant is service connected and the professional"
^DD(46,.08,21,2,0)="service is related to that service connection.  Otherwise enter 'N'.  This"
^DD(46,.08,21,3,0)="field can only be entered if the service connection information was entered"
^DD(46,.08,21,4,0)="in registration.  See field .301 in file 2."
^DD(46,.08,"DT")="3030527"
^DD(46,.09,0)="TREATED FOR AO CONDITION^RS^1:YES;0:NO;^0;9^Q"
^DD(46,.09,3)="The Patient must have Agent Orange exposure indicated!"
^DD(46,.09,21,0)="^^4^4^3030605^"
^DD(46,.09,21,1,0)="The Agent Orange questions must be answered yes in registration"
^DD(46,.09,21,2,0)="before this field can be entered.  Enter 'Y' if this procedure is related"
^DD(46,.09,21,3,0)="to Agent Orange exposure based on the related diagnosis.  See field .32102"
^DD(46,.09,21,4,0)="in file 2."
^DD(46,.09,"DT")="3030527"
^DD(46,.1,0)="TREATED FOR IR CONDITION^RS^1:YES;0:NO;^0;10^Q"
^DD(46,.1,3)="The Patient must have Ionizing Radiation exposure indicated!"
^DD(46,.1,21,0)="^^4^4^3030605^"
^DD(46,.1,21,1,0)="Enter 'Y' if the procedure performed is related to exposure to ionizing"
^DD(46,.1,21,2,0)=".  Enter 'N' if the procedure performed is unrelated to ionizing radiation."
^DD(46,.1,21,3,0)="The ionizing radiation information must be entered in registration"
^DD(46,.1,21,4,0)="before it can be entered here.  See field .32111 in file 2."
^DD(46,.1,"DT")="3030527"
^DD(46,.11,0)="EXPOSED TO ENVIR CONTAMINANTS^RS^1:YES;0:NO;^0;11^Q"
^DD(46,.11,3)="The Patient must have Environment Contaminants exposure!"
^DD(46,.11,21,0)="^.001^4^4^3030605^^"
^DD(46,.11,21,1,0)="Enter 'Y' if the procedure performed is related to exposure to environmental"
^DD(46,.11,21,2,0)="contamination.  Enter 'N' if the procedure performed is unrelated to"
^DD(46,.11,21,3,0)="environmental contamination.  This information must be entered in"
^DD(46,.11,21,4,0)="Registration before it can be entered here.  See field .322013 in file 2."
^DD(46,.11,"DT")="3030527"
^DD(46,.12,0)="TREATMENT FOR MST^RS^1:YES;0:NO;^0;12^Q"
^DD(46,.12,3)="Was the treatment related to Military Sexual Trauma."
^DD(46,.12,21,0)="^^3^3^3030605^"
^DD(46,.12,21,1,0)="Enter 'Y' if the procedure performed is related to military sexual trauma."
^DD(46,.12,21,2,0)="Enter 'N' if the procedure performed is unrelated to military sexual"
^DD(46,.12,21,3,0)="trauma.  This information must be entered in registration first."
^DD(46,.12,"DT")="3030527"
^DD(46,.13,0)="TREATMENT FOR HEAD/NECK CA^RS^1:YES;0:NO;^0;13^Q"
^DD(46,.13,3)="Was the treatment related to Head and/or Neck Cancer."
^DD(46,.13,21,0)="^.001^3^3^3040218^^"
^DD(46,.13,21,1,0)="Enter 'Y' if this procedure is related to treatment for head/neck cancer."
^DD(46,.13,21,2,0)="Enter 'N' is the procedure is unrelated to the patient's head/neck"
^DD(46,.13,21,3,0)="cancer."
^DD(46,.13,"DT")="3030527"
^DD(46,.131,0)="COMBAT VET^S^Y:YES;N:NO;^0;19^Q"
^DD(46,.131,3)="Care is potentially related to military combat."
^DD(46,.131,21,0)="^^7^7^3040224^"
^DD(46,.131,21,1,0)="Indiacte if the inpatient stay at this location is related to military"
^DD(46,.131,21,2,0)="service in combat and not from cause other than military"
^DD(46,.131,21,3,0)="service in combat operations (congenital, developmental, pre-service"
^DD(46,.131,21,4,0)="existing conditions, or conditions having specific and well-established"
^DD(46,.131,21,5,0)="etiology that began after military combat service, i.e., bone"
^DD(46,.131,21,6,0)="fractures occuring after separation date, comon colds, ect).  This"
^DD(46,.131,21,7,0)="information can only be entered if the patient has CV status in Registration."
^DD(46,.131,"DT")="3040224"
^DD(46,.14,0)="CPT RECORD DATE/TIME^RD^^1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(46,.14,3)="Date and time the professional service occurred."
^DD(46,.14,21,0)="^^2^2^3030528^"
^DD(46,.14,21,1,0)="The date and time the professional service was performed.  May not be exact."
^DD(46,.14,21,2,0)="Must be unique."
^DD(46,.14,"DT")="3040122"
^DD(46,.16,0)="PTF^RP45'^DGPT(^1;3^Q"
^DD(46,.16,1,0)="^.1"
^DD(46,.16,1,1,0)="46^C"
^DD(46,.16,1,1,1)="S ^DGCPT(46,""C"",$E(X,1,30),DA)="""""
^DD(46,.16,1,1,2)="K ^DGCPT(46,""C"",$E(X,1,30),DA)"
^DD(46,.16,1,1,"DT")="3030513"
^DD(46,.16,3)="Enter the inpatient episode to enter professional service for."
^DD(46,.16,21,0)="^^1^1^3030528^"
^DD(46,.16,21,1,0)="Pointer to the inpatient record in the PTF file (45)."
^DD(46,.16,"DT")="3030513"
^DD(46,.17,0)="SOURCE^F^^1;4^K:$L(X)>30!($L(X)<3) X"
^DD(46,.17,3)="ENTER THE PACKAGE WHICH PROVIDED THE DATA."
^DD(46,.17,21,0)="^^2^2^3030923^"
^DD(46,.17,21,1,0)="SOURCE is a string of text (3-30 character) identifying the source of the"
^DD(46,.17,21,2,0)="data or Examples of  SOURCE are:  ""LAB  DATA"". ""RADIOLOGY DATA""."
^DD(46,.17,"DT")="3030917"
^DD(46,.18,0)="USER^P200'^VA(200,^1;2^Q"
^DD(46,.18,3)="ENTER THE USER WHO LAST EDITED THIS ENTRY."
^DD(46,.18,21,0)="^^2^2^3030923^"
^DD(46,.18,21,1,0)="User who is responsible for add/edit/delete action on the encounter. Pointer"
^DD(46,.18,21,2,0)="to the New Person file (200)."
^DD(46,.18,"DT")="3030917"
^DD(46,.2,0)="QUANTITY^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(46,.2,3)="Enter a number between 1 and 99 indicating how many times this procedure was done."
^DD(46,.2,21,0)="^^2^2^3030619^"
^DD(46,.2,21,1,0)="This is the number of times this procedure was done to the patient for"
^DD(46,.2,21,2,0)="one professional service."
^DD(46,.2,"DT")="3030619"
^DD(46,.21,0)="SECONDARY DIAGNOSIS 4^*P80'X^ICD9(^0;15^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.21,3)="A secondary diagnosis associated with the procedure performed on the CMS 1500."
^DD(46,.21,12)="Allow only active diagnosis codes."
^DD(46,.21,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.21,21,0)="^^3^3^3070430^"
^DD(46,.21,21,1,0)="A secondary diagnosis related to the procedure performed for this"
^DD(46,.21,21,2,0)="professional service. This field is optional. It appears in box 21 on"
^DD(46,.21,21,3,0)="the CMS-1500 and is associated with a procedure in box 24e."
^DD(46,.21,"DT")="3070430"
^DD(46,.22,0)="SECONDARY DIAGNOSIS 5^*P80'X^ICD9(^0;16^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.22,3)="A secondary diagnosis associated with the procedure performed on the CMS 1500."
^DD(46,.22,12)="Allow only active diagnosis codes."
^DD(46,.22,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.22,21,0)="^^3^3^3070425^"
^DD(46,.22,21,1,0)="A secondary diagnosis related to the procedure performed for this"
^DD(46,.22,21,2,0)="professional service. This field is optional. It appears in box 21 on"
^DD(46,.22,21,3,0)="the CMS-1500 and is associated with a procedure in box 24e."
^DD(46,.22,"DT")="3070425"
^DD(46,.23,0)="SECONDARY DIAGNOSIS 6^*P80'X^ICD9(^0;17^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.23,12)="Allow only active diagnosis codes."
^DD(46,.23,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.23,21,0)="^^3^3^3070425^"
^DD(46,.23,21,1,0)="A secondary diagnosis related to the procedure performed for this"
^DD(46,.23,21,2,0)="professional service. This field is optional. It appears in box 21 on"
^DD(46,.23,21,3,0)="the CMS-1500 and is associated with a procedure in box 24e."
^DD(46,.23,"DT")="3070425"
^DD(46,.24,0)="SECONDARY DIAGNOSIS 7^*P80'X^ICD9(^0;18^D ICDEN^DGPTF5 Q:X=""""  S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46,.24,12)="Allow only active diagnosis codes."
^DD(46,.24,12.1)="S DIC(""S"")=""D EN5^DGPTFJC I 'DGER"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(46,.24,21,0)="^^3^3^3070425^"
^DD(46,.24,21,1,0)="A secondary diagnosis related to the procedure performed for this"
^DD(46,.24,21,2,0)="professional service. This field is optional. It appears in box 21 on"
^DD(46,.24,21,3,0)="the CMS-1500 and is associated with a procedure in box 24e."
^DD(46,.24,"DT")="3070425"
^DD(46,1,0)="DELETE DATE^D^^9;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(46,1,3)="Enter the date that the CPT code was deleted from the professional service."
^DD(46,1,"DT")="3030620"
^DD(46,"B","COMBAT VET",.131)=""
^DD(46,"B","CPT CODE",.01)=""
^DD(46,"B","CPT MODIFIER 1",.02)=""
^DD(46,"B","CPT MODIFIER 2",.03)=""
^DD(46,"B","CPT RECORD DATE/TIME",.14)=""
^DD(46,"B","DELETE DATE",1)=""
^DD(46,"B","EXPOSED TO ENVIR CONTAMINANTS",.11)=""
^DD(46,"B","PRIMARY DIAGNOSIS",.04)=""
^DD(46,"B","PTF",.16)=""
^DD(46,"B","QUANTITY",.2)=""
^DD(46,"B","SECONDARY DIAGNOSIS 1",.05)=""
^DD(46,"B","SECONDARY DIAGNOSIS 2",.06)=""
^DD(46,"B","SECONDARY DIAGNOSIS 3",.07)=""
^DD(46,"B","SECONDARY DIAGNOSIS 4",.21)=""
^DD(46,"B","SECONDARY DIAGNOSIS 5",.22)=""
^DD(46,"B","SECONDARY DIAGNOSIS 6",.23)=""
^DD(46,"B","SECONDARY DIAGNOSIS 7",.24)=""
^DD(46,"B","SOURCE",.17)=""
^DD(46,"B","TREATED FOR AO CONDITION",.09)=""
^DD(46,"B","TREATED FOR IR CONDITION",.1)=""
^DD(46,"B","TREATED FOR SC CONDITION",.08)=""
^DD(46,"B","TREATMENT FOR HEAD/NECK CA",.13)=""
^DD(46,"B","TREATMENT FOR MST",.12)=""
^DD(46,"B","USER",.18)=""
^DD(46,"GL",0,1,.01)=""
^DD(46,"GL",0,2,.02)=""
^DD(46,"GL",0,4,.04)=""
^DD(46,"GL",0,5,.05)=""
^DD(46,"GL",0,6,.06)=""
^DD(46,"GL",0,7,.07)=""
^DD(46,"GL",0,8,.08)=""
^DD(46,"GL",0,9,.09)=""
^DD(46,"GL",0,10,.1)=""
^DD(46,"GL",0,11,.11)=""
^DD(46,"GL",0,12,.12)=""
^DD(46,"GL",0,13,.13)=""
^DD(46,"GL",0,14,.2)=""
^DD(46,"GL",0,15,.21)=""
^DD(46,"GL",0,16,.22)=""
^DD(46,"GL",0,17,.23)=""
^DD(46,"GL",0,18,.24)=""
^DD(46,"GL",0,19,.131)=""
^DD(46,"GL",0,"3 ",.03)=""
^DD(46,"GL",1,1,.14)=""
^DD(46,"GL",1,2,.18)=""
^DD(46,"GL",1,3,.16)=""
^DD(46,"GL",1,4,.17)=""
^DD(46,"GL",9,1,1)=""
^DD(46,"IX",.01)=""
^DD(46,"IX",.16)=""
^DD(46,"RQ",.01)=""
^DD(46,"RQ",.08)=""
^DD(46,"RQ",.09)=""
^DD(46,"RQ",.1)=""
^DD(46,"RQ",.11)=""
^DD(46,"RQ",.12)=""
^DD(46,"RQ",.13)=""
^DD(46,"RQ",.14)=""
^DD(46,"RQ",.16)=""
^DD(46.1,0)="FIELD^^9^12"
^DD(46.1,0,"DT")="3040102"
^DD(46.1,0,"IX","B",46.1,.01)=""
^DD(46.1,0,"IX","C",46.1,1)=""
^DD(46.1,0,"NM","INPATIENT POV")=""
^DD(46.1,0,"VR")="5.3"
^DD(46.1,0,"VRPK")="DG"
^DD(46.1,.01,0)="DIAGNOSIS^RP80'^ICD9(^0;1^Q"
^DD(46.1,.01,1,0)="^.1"
^DD(46.1,.01,1,1,0)="46.1^B"
^DD(46.1,.01,1,1,1)="S ^DGICD9(46.1,""B"",$E(X,1,30),DA)="""""
^DD(46.1,.01,1,1,2)="K ^DGICD9(46.1,""B"",$E(X,1,30),DA)"
^DD(46.1,.01,3)="Enter a diagnosis related to this inpatient stay."
^DD(46.1,.01,21,0)="^^1^1^3030625^"
^DD(46.1,.01,21,1,0)="A diagnosis related to the inpatient stay."
^DD(46.1,.01,"DT")="3030625"
^DD(46.1,.02,0)="TREATED FOR SC CONDITION^RS^1:YES;0:NO;^0;2^Q"
^DD(46.1,.02,3)="The diagnosis must be service related."
^DD(46.1,.02,21,0)="^.001^4^4^3031016^^^^"
^DD(46.1,.02,21,1,0)="Enter 'Y' if this applicant is service connected and this diagnosis is "
^DD(46.1,.02,21,2,0)="related to the service connection.  Otherwise enter 'N'.  This field"
^DD(46.1,.02,21,3,0)="can only be entered if the service connection information was entered"
^DD(46.1,.02,21,4,0)="in registration.  See field .301 in file 2."
^DD(46.1,.02,"DT")="3031014"
^DD(46.1,.03,0)="TREATED FOR AO CONDITION^RS^1:YES;0:NO;^0;3^Q"
^DD(46.1,.03,3)="The diagnosis must be related to Agent Orange exposure."
^DD(46.1,.03,21,0)="^.001^3^3^3031014^^"
^DD(46.1,.03,21,1,0)="The Agent Orange questions must be answered yes in registration before this"
^DD(46.1,.03,21,2,0)="field can be entered.  Enter 'Y' is this diagnosis is related to Agent "
^DD(46.1,.03,21,3,0)="Orange exposure.  See field .32102 in file 2."
^DD(46.1,.03,"DT")="3031014"
^DD(46.1,.04,0)="TREATMENT FOR IR CONDITION^RS^1:YES;0:NO;^0;4^Q"
^DD(46.1,.04,3)="This diagnosis must be related to Ionizing Radiation."
^DD(46.1,.04,21,0)="^^4^4^3030625^"
^DD(46.1,.04,21,1,0)="Enter 'Y' if the diagnosis is related to exposure to ionizing radiation."
^DD(46.1,.04,21,2,0)="Enter 'N' if this diagnosis is unrelated to ionizing radiation."
^DD(46.1,.04,21,3,0)="The ionizing radiation must be entered in registration before it can be"
^DD(46.1,.04,21,4,0)="entered here.  See field .32111 in file 2."
^DD(46.1,.04,"DT")="3031014"
^DD(46.1,.05,0)="EXPOSURE TO ENVIR CONTAMINANTS^RS^1:YES;0:NO;^0;5^Q"
^DD(46.1,.05,3)="This diagnosis must be related to Environmental Contaminates."
^DD(46.1,.05,21,0)="^^4^4^3030625^"
^DD(46.1,.05,21,1,0)="Enter 'Y' if the diagnosis is related to environmental contamination."
^DD(46.1,.05,21,2,0)="Enter 'N' if the diagnosis is unrelated to environmental contamination."
^DD(46.1,.05,21,3,0)="This information must be entered in Registration before it can be entered"
^DD(46.1,.05,21,4,0)="here.  See field .322013 in file 2."
^DD(46.1,.05,"DT")="3031014"
^DD(46.1,.06,0)="TREATMENT FOR MST^RS^1:YES;0:NO;^0;6^Q"
^DD(46.1,.06,3)="Was the diagnosis related to Military Sexual Trauma?"
^DD(46.1,.06,21,0)="^^3^3^3030625^"
^DD(46.1,.06,21,1,0)="Enter 'Y' if the diagnosis is related to military sexual trauma.  Enter 'N'"
^DD(46.1,.06,21,2,0)="if the diagnosis is unrelated to military sexual trauma.  This information"
^DD(46.1,.06,21,3,0)="must be entered in registration first."
^DD(46.1,.06,"DT")="3031014"
^DD(46.1,.07,0)="TREATMENT FOR HEAD/NECK CA^RS^1:YES;0:NO;^0;7^Q"
^DD(46.1,.07,3)="Was the treatment related to Head and/or Neck Cancer."
^DD(46.1,.07,21,0)="^^2^2^3030625^"
^DD(46.1,.07,21,1,0)="Enter 'Y' if this diagnosis is related to head/neck cancer.  Enter 'N'"
^DD(46.1,.07,21,2,0)="if the diagnosis is unrelated to the patient's head/neck cancer."
^DD(46.1,.07,"DT")="3031014"
^DD(46.1,.08,0)="COMBAT VET^S^1:YES;0:NO;^0;8^Q"
^DD(46.1,.08,3)="Care is potentially related to military combat."
^DD(46.1,.08,21,0)="^.001^7^7^3040218^^^^"
^DD(46.1,.08,21,1,0)="Indicate if the inpatient stay at this location is related to military"
^DD(46.1,.08,21,2,0)="service in combat and not from cause other than military"
^DD(46.1,.08,21,3,0)="service in combat operations (congenital, developmental, pre-service"
^DD(46.1,.08,21,4,0)="existing conditions, or conditions having specific and well-established"
^DD(46.1,.08,21,5,0)="etiology that began after military combat service, i.e., bone"
^DD(46.1,.08,21,6,0)="fractures occuring after separation date, common colds, etc).  This"
^DD(46.1,.08,21,7,0)="information can only be entered if the patient has CV status in Registration."
^DD(46.1,.08,"DT")="3060519"
^DD(46.1,1,0)="PTF^P45'^DGPT(^1;1^Q"
^DD(46.1,1,1,0)="^.1"
^DD(46.1,1,1,1,0)="46.1^C"
^DD(46.1,1,1,1,1)="S ^DGICD9(46.1,""C"",$E(X,1,30),DA)="""""
^DD(46.1,1,1,1,2)="K ^DGICD9(46.1,""C"",$E(X,1,30),DA)"
^DD(46.1,1,1,1,"%D",0)="^^1^1^3030709^"
^DD(46.1,1,1,1,"%D",1,0)="This crossreference ties the diagnosis file to the PTF file."
^DD(46.1,1,1,1,"DT")="3030709"
^DD(46.1,1,3)="Enter the inpatient episode that the diagnosis is for."
^DD(46.1,1,21,0)="^^1^1^3030709^"
^DD(46.1,1,21,1,0)="This connects the file to the PTF file."
^DD(46.1,1,"DT")="3030709"
^DD(46.1,1.1,0)="SOURCE^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(46.1,1.1,3)="ENTER THE PACKAGE WHICH PROVIDED THIS DATA."
^DD(46.1,1.1,21,0)="^.001^2^2^3031106^^"
^DD(46.1,1.1,21,1,0)="SOURCE is a string of text (3-30 character) identifying the source of the"
^DD(46.1,1.1,21,2,0)="data. Examples of  SOURCE are:  ""LAB  DATA"" or ""RADIOLOGY DATA""."
^DD(46.1,1.1,"DT")="3030917"
^DD(46.1,1.2,0)="USER^P200'^VA(200,^1;3^Q"
^DD(46.1,1.2,3)="ENTER THE PERSON WHO LAST CHANGED THIS DATA."
^DD(46.1,1.2,21,0)="^.001^2^2^3031106^^"
^DD(46.1,1.2,21,1,0)="User who is responsible for add/edit/delete action on the encounter. Pointer"
^DD(46.1,1.2,21,2,0)="to the New Person file (200)."
^DD(46.1,1.2,"DT")="3030917"
^DD(46.1,9,0)="DELETE DATE^D^^9;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(46.1,9,3)="Enter the date the diagnosis was deleted."
^DD(46.1,9,"DT")="3030710"
^DD(46.1,"B","COMBAT VET",.08)=""
^DD(46.1,"B","DELETE DATE",9)=""
^DD(46.1,"B","DIAGNOSIS",.01)=""
^DD(46.1,"B","EXPOSURE TO ENVIR CONTAMINANTS",.05)=""
^DD(46.1,"B","PTF",1)=""
^DD(46.1,"B","SOURCE",1.1)=""
^DD(46.1,"B","TREATED FOR AO CONDITION",.03)=""
^DD(46.1,"B","TREATED FOR SC CONDITION",.02)=""
^DD(46.1,"B","TREATMENT FOR HEAD/NECK CA",.07)=""
^DD(46.1,"B","TREATMENT FOR IR CONDITION",.04)=""
^DD(46.1,"B","TREATMENT FOR MST",.06)=""
^DD(46.1,"B","USER",1.2)=""
^DD(46.1,"GL",0,1,.01)=""
^DD(46.1,"GL",0,2,.02)=""
^DD(46.1,"GL",0,3,.03)=""
^DD(46.1,"GL",0,4,.04)=""
^DD(46.1,"GL",0,5,.05)=""
^DD(46.1,"GL",0,6,.06)=""
^DD(46.1,"GL",0,7,.07)=""
^DD(46.1,"GL",0,8,.08)=""
^DD(46.1,"GL",1,1,1)=""
^DD(46.1,"GL",1,2,1.1)=""
^DD(46.1,"GL",1,3,1.2)=""
^DD(46.1,"GL",9,1,9)=""
^DD(46.1,"IX",.01)=""
^DD(46.1,"IX",1)=""
^DD(46.1,"RQ",.01)=""
^DD(46.1,"RQ",.02)=""
^DD(46.1,"RQ",.03)=""
^DD(46.1,"RQ",.04)=""
^DD(46.1,"RQ",.05)=""
^DD(46.1,"RQ",.06)=""
^DD(46.1,"RQ",.07)=""
^DD(46.11,0)="FIELD^^.04^4"
^DD(46.11,0,"DDA")="N"
^DD(46.11,0,"DT")="2991018"
^DD(46.11,0,"IX","AC",46.11,.03)=""
^DD(46.11,0,"IX","B",46.11,.01)=""
^DD(46.11,0,"NM","RAI MDS MONITOR")=""
^DD(46.11,0,"VR")="5.3"
^DD(46.11,0,"VRPK")="DG"
^DD(46.11,.01,0)="NEW NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(46.11,.01,1,0)="^.1"
^DD(46.11,.01,1,1,0)="46.11^B"
^DD(46.11,.01,1,1,1)="S ^DGRU(46.11,""B"",$E(X,1,30),DA)="""""
^DD(46.11,.01,1,1,2)="K ^DGRU(46.11,""B"",$E(X,1,30),DA)"
^DD(46.11,.01,3)="Answer must be 3-45 characters in length."
^DD(46.11,.01,21,0)="^^4^4^2991102^^"
^DD(46.11,.01,21,1,0)="The contents of the #.01 field of the Master file entry relates to, after"
^DD(46.11,.01,21,2,0)="the edit/add is completed."
^DD(46.11,.01,21,3,0)="For example, an Insurance Company name was changed from ""USBS"" to"
^DD(46.11,.01,21,4,0)="""USBS INC."".  This field will contain ""USBS INC.""."
^DD(46.11,.01,23,0)="^^3^3^2991102^"
^DD(46.11,.01,23,1,0)="This field is triggered from the Master File being changed.  A new"
^DD(46.11,.01,23,2,0)="entry is forced whenever the Name field of the Master Files being"
^DD(46.11,.01,23,3,0)="monitored is changed or added."
^DD(46.11,.01,"DT")="2991018"
^DD(46.11,.02,0)="OLD DATA^F^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(46.11,.02,3)="Answer must be 3-45 characters in length."
^DD(46.11,.02,5,1,0)="200^.01^11"
^DD(46.11,.02,5,2,0)="405.4^.01^4"
^DD(46.11,.02,5,3,0)="42^.01^4"
^DD(46.11,.02,21,0)="^^6^6^2991102^^"
^DD(46.11,.02,21,1,0)="Contents of the #.01 field of the Master File this entry relates to, before"
^DD(46.11,.02,21,2,0)="the data was edited/added."
^DD(46.11,.02,21,3,0)="For example, if the name of an Insurance company is changed from ""USBS"""
^DD(46.11,.02,21,4,0)="to ""USBS INC."", this field will contain ""USBS"".  It is used in the"
^DD(46.11,.02,21,5,0)="Master File Update (MFU) HL7 message as the identifier.  If a new "
^DD(46.11,.02,21,6,0)="Insurance company is added, this field is left blank."
^DD(46.11,.02,23,0)="^^3^3^2991102^"
^DD(46.11,.02,23,1,0)="The data for this field is triggered by the Master File which is being"
^DD(46.11,.02,23,2,0)="changed.  This field is used in the Master File Update HL7 (MFU) message"
^DD(46.11,.02,23,3,0)="as the identifier for the entry to be changed on the receiving side."
^DD(46.11,.02,"DT")="2991018"
^DD(46.11,.03,0)="FILE NUMBER^RNJ11,3^^0;3^K:+X'=X!(X>9999999.999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(46.11,.03,1,0)="^.1"
^DD(46.11,.03,1,1,0)="46.11^AC"
^DD(46.11,.03,1,1,1)="S ^DGRU(46.11,""AC"",$E(X,1,30),DA)="""""
^DD(46.11,.03,1,1,2)="K ^DGRU(46.11,""AC"",$E(X,1,30),DA)"
^DD(46.11,.03,1,1,"%D",0)="^^1^1^2991018^"
^DD(46.11,.03,1,1,"%D",1,0)="Index of entries by Master File number."
^DD(46.11,.03,1,1,"DT")="2991018"
^DD(46.11,.03,3)="Type a Number between 1 and 9999999.999, 3 Decimal Digits"
^DD(46.11,.03,5,1,0)="200^.01^12"
^DD(46.11,.03,5,2,0)="200^53.5^2"
^DD(46.11,.03,5,3,0)="405.4^.01^5"
^DD(46.11,.03,5,4,0)="42^.01^5"
^DD(46.11,.03,21,0)="^^6^6^2991102^^"
^DD(46.11,.03,21,1,0)="The file number of the Master File this change relates too."
^DD(46.11,.03,21,2,0)="This field is triggered by the Master File being changed.  The file"
^DD(46.11,.03,21,3,0)="number is used to destinguish what type of Master File Update will be"
^DD(46.11,.03,21,4,0)="created.  For example, if this field contains 200 (New Person file), "
^DD(46.11,.03,21,5,0)="a ""STAFF"" type MFU will be created.  If this were to contain 42 (Ward"
^DD(46.11,.03,21,6,0)="Location file), a ""LOCATION"" type MFU would be created."
^DD(46.11,.03,23,0)="^^2^2^2991102^"
^DD(46.11,.03,23,1,0)="This field is triggered from the Master File being changed.  It is used "
^DD(46.11,.03,23,2,0)="to determine what type of Master File Update needs to be created."
^DD(46.11,.03,"DT")="2991018"
^DD(46.11,.04,0)="INTERNAL ENTRY NUMBER^RNJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(46.11,.04,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(46.11,.04,5,1,0)="200^.01^13"
^DD(46.11,.04,5,2,0)="200^53.5^3"
^DD(46.11,.04,5,3,0)="405.4^.01^6"
^DD(46.11,.04,5,4,0)="42^.01^6"
^DD(46.11,.04,21,0)="^^3^3^2991102^^"
^DD(46.11,.04,21,1,0)="The internal entry number of the entry which was modified or added."
^DD(46.11,.04,21,2,0)="This field is triggered by the Master File being changed and is used"
^DD(46.11,.04,21,3,0)="as the first part of the identifier in the MFU HL7 message."
^DD(46.11,.04,23,0)="^^4^4^2991102^"
^DD(46.11,.04,23,1,0)="This field is triggered by the Master File being changed.  This data"
^DD(46.11,.04,23,2,0)="is needed as part of the table entry identifier, which directs the"
^DD(46.11,.04,23,3,0)="receiving system as to which Master File Entry this transaction"
^DD(46.11,.04,23,4,0)="relates too.  This data is the value of the Fileman variable DA."
^DD(46.11,.04,"DT")="2991018"
^DD(46.11,"B","FILE NUMBER",.03)=""
^DD(46.11,"B","INTERNAL ENTRY NUMBER",.04)=""
^DD(46.11,"B","NEW NAME",.01)=""
^DD(46.11,"B","OLD DATA",.02)=""
^DD(46.11,"GL",0,1,.01)=""
^DD(46.11,"GL",0,2,.02)=""
^DD(46.11,"GL",0,3,.03)=""
^DD(46.11,"GL",0,4,.04)=""
^DD(46.11,"IX",.01)=""
^DD(46.11,"IX",.03)=""
^DD(46.11,"RQ",.01)=""
^DD(46.11,"RQ",.03)=""
^DD(46.11,"RQ",.04)=""
^DD(46.12,0)="FIELD^^.02^2"
^DD(46.12,0,"DDA")="N"
^DD(46.12,0,"DT")="2991206"
^DD(46.12,0,"IX","AC",46.12,.02)=""
^DD(46.12,0,"IX","B",46.12,.01)=""
^DD(46.12,0,"NM","RAI MDS WARD TRANSLATION")=""
^DD(46.12,0,"VR")="5.3"
^DD(46.12,0,"VRPK")="DG"
^DD(46.12,.01,0)="VISTA WARD NAME^R*P42'^DIC(42,^0;1^S DIC(""S"")=""I $P(^(0),U,16)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(46.12,.01,1,0)="^.1"
^DD(46.12,.01,1,1,0)="46.12^B"
^DD(46.12,.01,1,1,1)="S ^DGRU(46.12,""B"",$E(X,1,30),DA)="""""
^DD(46.12,.01,1,1,2)="K ^DGRU(46.12,""B"",$E(X,1,30),DA)"
^DD(46.12,.01,3)=""
^DD(46.12,.01,12)="Only allow selection of wards flagged as RAI/MDS wards"
^DD(46.12,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,16)=1"""
^DD(46.12,.01,21,0)="^^3^3^3000104^"
^DD(46.12,.01,21,1,0)="The name of the Vista Ward Location which requires translation to a "
^DD(46.12,.01,21,2,0)="different name on the Accu-Max system.  The name must be a ward name"
^DD(46.12,.01,21,3,0)="already in the Vista Ward Location file (#42)."
^DD(46.12,.01,23,0)="^^2^2^3000104^"
^DD(46.12,.01,23,1,0)="Pointer to the Ward Location file which requires translation on Accu-Max"
^DD(46.12,.01,23,2,0)="system because the name exceeds 15 characters."
^DD(46.12,.01,"DT")="2991221"
^DD(46.12,.02,0)="COTS WARD NAME^RF^^0;2^K:$L(X)>15!($L(X)<2) X"
^DD(46.12,.02,1,0)="^.1"
^DD(46.12,.02,1,1,0)="46.12^AC"
^DD(46.12,.02,1,1,1)="S ^DGRU(46.12,""AC"",$E(X,1,30),DA)="""""
^DD(46.12,.02,1,1,2)="K ^DGRU(46.12,""AC"",$E(X,1,30),DA)"
^DD(46.12,.02,1,1,"%D",0)="^^2^2^3000211^"
^DD(46.12,.02,1,1,"%D",1,0)="This cross reference is for looking up the VistA ward location from the "
^DD(46.12,.02,1,1,"%D",2,0)="translated ward location."
^DD(46.12,.02,1,1,"DT")="3000211"
^DD(46.12,.02,3)="Answer must be 2-15 characters in length."
^DD(46.12,.02,21,0)="^^2^2^3000104^^"
^DD(46.12,.02,21,1,0)="The name of the ward on the Accu-Max system which represents the Vista "
^DD(46.12,.02,21,2,0)="ward selected.  "
^DD(46.12,.02,23,0)="^^1^1^3000104^"
^DD(46.12,.02,23,1,0)="Free text field 2 - 15 characters."
^DD(46.12,.02,"DT")="3000211"
^DD(46.12,"B","COTS WARD NAME",.02)=""
^DD(46.12,"B","VISTA WARD NAME",.01)=""
^DD(46.12,"GL",0,1,.01)=""
^DD(46.12,"GL",0,2,.02)=""
^DD(46.12,"IX",.01)=""
^DD(46.12,"IX",.02)=""
^DD(46.12,"RQ",.01)=""
^DD(46.12,"RQ",.02)=""
^DD(46.13,0)="FIELD^^.02^2"
^DD(46.13,0,"DDA")="N"
^DD(46.13,0,"DT")="2991206"
^DD(46.13,0,"IX","B",46.13,.01)=""
^DD(46.13,0,"NM","RAI MDS ROOM-BED TRANSLATION")=""
^DD(46.13,0,"VR")="5.3"
^DD(46.13,0,"VRPK")="DG"
^DD(46.13,.01,0)="VISTA ROOM-BED NAME^RP405.4'^DG(405.4,^0;1^Q"
^DD(46.13,.01,1,0)="^.1"
^DD(46.13,.01,1,1,0)="46.13^B"
^DD(46.13,.01,1,1,1)="S ^DGRU(46.13,""B"",$E(X,1,30),DA)="""""
^DD(46.13,.01,1,1,2)="K ^DGRU(46.13,""B"",$E(X,1,30),DA)"
^DD(46.13,.01,3)=""
^DD(46.13,.01,21,0)="^^6^6^3000104^"
^DD(46.13,.01,21,1,0)="Enter the name of the Vista Room-bed which requires translation.  "
^DD(46.13,.01,21,2,0)="Translation may be necessary if Room-Bed does not meet the Accu-Max"
^DD(46.13,.01,21,3,0)="criteria.  Room limited from 1-5 characters, Bed limited to 1-2"
^DD(46.13,.01,21,4,0)="characters.  For example, Vista Room-Bed name ""WYC200-100"" would"
^DD(46.13,.01,21,5,0)="require translation because the Room is 6 characters and the Bed is 3"
^DD(46.13,.01,21,6,0)="characters."
^DD(46.13,.01,23,0)="^^1^1^3000104^"
^DD(46.13,.01,23,1,0)="Pointer to the Room-Bed file (#405.4)."
^DD(46.13,.01,"DT")="2991221"
^DD(46.13,.02,0)="COTS ROOM-BED NAME^RF^^0;2^K:$L(X)>8!($L(X)<3)!'(X?.5UN1""-"".2UN) X"
^DD(46.13,.02,3)="Answer must be 3-8 characters in length."
^DD(46.13,.02,21,0)="^^3^3^3000104^"
^DD(46.13,.02,21,1,0)="Name of the Room-Bed which will be on the Accu-Max system representing"
^DD(46.13,.02,21,2,0)="this Vista Room-Bed.  For example, ""YC200-10"".  Must be in the format"
^DD(46.13,.02,21,3,0)="RRRRR-BB where R = Room and B = Bed."
^DD(46.13,.02,23,0)="^^1^1^3000104^"
^DD(46.13,.02,23,1,0)="Free text 2-8 characters."
^DD(46.13,.02,"DT")="2991206"
^DD(46.13,"B","COTS ROOM-BED NAME",.02)=""
^DD(46.13,"B","VISTA ROOM-BED NAME",.01)=""
^DD(46.13,"GL",0,1,.01)=""
^DD(46.13,"GL",0,2,.02)=""
^DD(46.13,"IX",.01)=""
^DD(46.13,"RQ",.01)=""
^DD(46.13,"RQ",.02)=""
^DD(46.14,0)="FIELD^^.02^2"
^DD(46.14,0,"DDA")="N"
^DD(46.14,0,"DT")="3001024"
^DD(46.14,0,"IX","AC",46.15,.04)=""
^DD(46.14,0,"IX","B",46.14,.01)=""
^DD(46.14,0,"NM","RAI MDS ASIH PATIENT")=""
^DD(46.14,0,"VR")="5.3"
^DD(46.14,0,"VRPK")="DG"
^DD(46.14,.01,0)="NAME^RP2'X^DPT(^0;1^I $D(X) S DINUM=X"
^DD(46.14,.01,1,0)="^.1"
^DD(46.14,.01,1,1,0)="46.14^B"
^DD(46.14,.01,1,1,1)="S ^DGRU(46.14,""B"",$E(X,1,30),DA)="""""
^DD(46.14,.01,1,1,2)="K ^DGRU(46.14,""B"",$E(X,1,30),DA)"
^DD(46.14,.01,3)=""
^DD(46.14,.01,21,0)="^^1^1^3001227^"
^DD(46.14,.01,21,1,0)="The name of the patient in the format last name,first name."
^DD(46.14,.01,"DT")="3001011"
^DD(46.14,.02,0)="TO ASIH DATE/TIME^46.15D^^1;0"
^DD(46.14,"B","NAME",.01)=""
^DD(46.14,"B","TO ASIH DATE/TIME",.02)=""
^DD(46.14,"GL",0,1,.01)=""
^DD(46.14,"GL",1,0,.02)=""
^DD(46.14,"IX",.01)=""
^DD(46.14,"RQ",.01)=""
^DD(46.14,"SB",46.15,.02)=""
^DD(46.15,0)="TO ASIH DATE/TIME SUB-FIELD^^.04^3"
^DD(46.15,0,"DT")="3001024"
^DD(46.15,0,"IX","B",46.15,.01)=""
^DD(46.15,0,"NM","TO ASIH DATE/TIME")=""
^DD(46.15,0,"UP")="46.14"
^DD(46.15,.01,0)="TO ASIH DATE/TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(46.15,.01,1,0)="^.1"
^DD(46.15,.01,1,1,0)="46.15^B"
^DD(46.15,.01,1,1,1)="S ^DGRU(46.14,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(46.15,.01,1,1,2)="K ^DGRU(46.14,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(46.15,.01,21,0)="^^1^1^3001023^"
^DD(46.15,.01,21,1,0)="Date/Time patient went ASIH."
^DD(46.15,.01,"DT")="3001023"
^DD(46.15,.02,0)="DATE/TIME RETURNED FROM ASIH^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(46.15,.02,21,0)="^^1^1^3001023^"
^DD(46.15,.02,21,1,0)="The date/time the patient returned to the long term care ward from ASIH."
^DD(46.15,.02,"DT")="3001023"
^DD(46.15,.04,0)="ASIH STATUS^RS^A:ACTIVE ASIH;I:INACTIVE ASIH;^0;4^Q"
^DD(46.15,.04,1,0)="^.1"
^DD(46.15,.04,1,1,0)="46.14^AC^MUMPS"
^DD(46.15,.04,1,1,1)="S ^DGRU(46.14,""AC"",DA(1),$E(X,1,30),DA)="""""
^DD(46.15,.04,1,1,2)="K ^DGRU(46.14,""AC"",DA(1),$E(X,1,30),DA)"
^DD(46.15,.04,1,1,"%D",0)="^^1^1^3001122^"
^DD(46.15,.04,1,1,"%D",1,0)="Sorts by DFN and Status."
^DD(46.15,.04,1,1,"DT")="3001122"
^DD(46.15,.04,21,0)="^^2^2^3001024^"
^DD(46.15,.04,21,1,0)="Indicates whether this entry is related to a patient who is an"
^DD(46.15,.04,21,2,0)="active ASIH patient."
^DD(46.15,.04,"DT")="3001122"
^DD(46.15,"B","ASIH STATUS",.04)=""
^DD(46.15,"B","DATE/TIME RETURNED FROM ASIH",.02)=""
^DD(46.15,"B","TO ASIH DATE/TIME",.01)=""
^DD(46.15,"GL",0,1,.01)=""
^DD(46.15,"GL",0,2,.02)=""
^DD(46.15,"GL",0,4,.04)=""
^DD(46.15,"IX",.01)=""
^DD(46.15,"IX",.04)=""
^DD(46.15,"RQ",.01)=""
^DD(46.15,"RQ",.04)=""
^DD(47,0)="FIELD^^10^3"
^DD(47,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(47,0,"IX","B",47,.01)=""
^DD(47,0,"NM","MAS FORMS AND SCREENS")=""
^DD(47,0,"VR")="5.3"
^DD(47,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(47,.01,1,0)="^.1"
^DD(47,.01,1,1,0)="47^B"
^DD(47,.01,1,1,1)="S ^DIC(47,""B"",$E(X,1,30),DA)="""""
^DD(47,.01,1,1,2)="K ^DIC(47,""B"",$E(X,1,30),DA)"
^DD(47,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(47,.01,21,0)="^^6^6^2920211^"
^DD(47,.01,21,1,0)="This is the name given to any form or screen that is utilized within"
^DD(47,.01,21,2,0)="the MAS DHCP software package.  For example, 'DG1010-1' designates"
^DD(47,.01,21,3,0)="the VA Form 10-10, ""Application for Medical Benefits"", first page"
^DD(47,.01,21,4,0)="which is printed at the end of a Registration containing demographic,"
^DD(47,.01,21,5,0)="NOK, Service Data, and other pertinent data collected on a veteran"
^DD(47,.01,21,6,0)="applying for care."
^DD(47,2,0)="DESCRIPTION^F^^0;2^K:$L(X)>25!($L(X)<3) X"
^DD(47,2,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(47,2,21,0)="^^7^7^2920211^"
^DD(47,2,21,1,0)="This is the description of the chosen form or screen utilized within"
^DD(47,2,21,2,0)="the MAS DHCP software package.  For example, 'DG1010-1' designates"
^DD(47,2,21,3,0)="the namespace for the ADT module (DG) and the VA Form number (1010)"
^DD(47,2,21,4,0)="and -1 indicates the first page of the form.  This is the VA Form"
^DD(47,2,21,5,0)="10-10, ""Application for Medical Benefits"" which is printed at the"
^DD(47,2,21,6,0)="end of a Registration containing demographic, NOK, Service Data,"
^DD(47,2,21,7,0)="and other pertinent data collected on a veteran applying for care."
^DD(47,10,0)="TEXT^47.01^^1;0"
^DD(47,10,21,0)="^^3^3^2920211^"
^DD(47,10,21,1,0)="The text is a word-processing field (free text with ability to place"
^DD(47,10,21,2,0)="in specified format) that shows the actual text or contents of the"
^DD(47,10,21,3,0)="chosen form or screen."
^DD(47,"B","DESCRIPTION",2)=""
^DD(47,"B","NAME",.01)=""
^DD(47,"B","TEXT",10)=""
^DD(47,"GL",0,1,.01)=""
^DD(47,"GL",0,2,2)=""
^DD(47,"GL",1,0,10)=""
^DD(47,"IX",.01)=""
^DD(47,"RQ",.01)=""
^DD(47,"SB",47.01,10)=""
^DD(47.01,0)="TEXT SUB-FIELD^^.01^1"
^DD(47.01,0,"NM","TEXT")=""
^DD(47.01,0,"UP")="47"
^DD(47.01,.01,0)="TEXT^WL^^0;1^Q"
^DD(47.01,.01,3)="Enter Text"
^DD(47.01,.01,"DT")="2860717"
^DD(47.01,"B","TEXT",.01)=""
^DD(47.01,"GL",0,1,.01)=""
^DD(48,0)="FIELD^^150^49"
^DD(48,0,"DT")="2920612"
^DD(48,0,"IX","AR",48,7)=""
^DD(48,0,"IX","B",48,.01)=""
^DD(48,0,"IX","C",48.02,.02)=""
^DD(48,0,"IX","D",48.016,.02)=""
^DD(48,0,"IX","E",48.04,.02)=""
^DD(48,0,"IX","F",48.06,.02)=""
^DD(48,0,"NM","MAS RELEASE NOTES")=""
^DD(48,0,"PT",48.08,.02)=""
^DD(48,0,"VR")="5.3"
^DD(48,.01,0)="VERSION NUMBER^RFX^^0;1^K:$S($L(X)>6:1,$L(X)<1:1,'+$E(X):1,1:0) X I $D(X) S DINUM=X"
^DD(48,.01,1,0)="^.1"
^DD(48,.01,1,1,0)="48^B"
^DD(48,.01,1,1,1)="S ^DG(48,""B"",$E(X,1,30),DA)="""""
^DD(48,.01,1,1,2)="K ^DG(48,""B"",$E(X,1,30),DA)"
^DD(48,.01,3)="ENTER ADT VERSION NUMBER"
^DD(48,.01,21,0)="^^1^1^2881223^^^"
^DD(48,.01,21,1,0)="This is the MAS Version number being distributed."
^DD(48,.01,"DT")="2880625"
^DD(48,2,0)="NOTIFICATION MESSAGE SENT^RD^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,2,21,0)="^^1^1^2870820^"
^DD(48,2,21,1,0)="If a message was sent to the ISC the date last sent."
^DD(48,2,"DT")="2870603"
^DD(48,3,0)="TRANSMISSION METHOD^RS^L:LETTER;M:MAILMAN MESSAGE;^0;3^Q"
^DD(48,3,21,0)="^^1^1^2870820^"
^DD(48,3,21,1,0)="Was notification made via LETTER or MAILMAN message."
^DD(48,3,"DT")="2870604"
^DD(48,4,0)="SCHEDULING RELEASE TOO^RS^1:YES;0:NO;^0;4^Q"
^DD(48,4,21,0)="^^1^1^2870820^"
^DD(48,4,21,1,0)="Was the scheduling package released with this version."
^DD(48,4,"DT")="2870605"
^DD(48,5,0)="SCHEDULING VERSION^NJ8,4^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""5N.N) X"
^DD(48,5,3)="TYPE A NUMBER BETWEEN 1 AND 999"
^DD(48,5,21,0)="^^2^2^2870820^"
^DD(48,5,21,1,0)="If a scheduling release was included with this installation"
^DD(48,5,21,2,0)="what was the version number?"
^DD(48,5,"DT")="2870605"
^DD(48,6,0)="VERSION REQUIRED TO INSTALL^RNJ8,4^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""5N.N) X"
^DD(48,6,3)="TYPE A NUMBER BETWEEN 1 AND 999"
^DD(48,6,21,0)="^^1^1^2870820^"
^DD(48,6,21,1,0)="What version of MAS is required in order to install this version."
^DD(48,6,"DT")="2870605"
^DD(48,7,0)="RELEASE DATE^RD^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(48,7,1,0)="^.1"
^DD(48,7,1,1,0)="48^AR^MUMPS"
^DD(48,7,1,1,1)="S ^DG(48,""AR"",9999999-X,DA)="""""
^DD(48,7,1,1,2)="K ^DG(48,""AR"",9999999-X,DA)"
^DD(48,7,21,0)="^^1^1^2870820^"
^DD(48,7,21,1,0)="Date of this release from the Albany ISC."
^DD(48,7,"DT")="2870605"
^DD(48,10,0)="OPENING COMMENTS^48.01^^C;0"
^DD(48,10,21,0)="^^3^3^2920212^"
^DD(48,10,21,1,0)="Opending comments word-processing field to explain briefly what"
^DD(48,10,21,2,0)="version of MAS Release Notes are for and any outstanding issues"
^DD(48,10,21,3,0)="involved."
^DD(48,15,0)="NEW OPTIONS^48.02A^^NO;0"
^DD(48,15,21,0)="^^2^2^2920212^"
^DD(48,15,21,1,0)="This multiple contains all new MAS menu options associated with"
^DD(48,15,21,2,0)="the Version noted."
^DD(48,16,0)="NEW SECURITY KEYS^48.016A^^NK;0"
^DD(48,16,21,0)="^^2^2^2920212^"
^DD(48,16,21,1,0)="A multiple containing any new Security Keys associated with"
^DD(48,16,21,2,0)="Version number noted."
^DD(48,17,0)="NEW MAIL GROUPS^48.017A^^MG;0"
^DD(48,17,21,0)="^^2^2^2920212^"
^DD(48,17,21,1,0)="Multiple containing any new mail groups associated with Version"
^DD(48,17,21,2,0)="number noted."
^DD(48,20,0)="CHANGED OPTIONS^48.04A^^CO;0"
^DD(48,20,21,0)="^^2^2^2920212^"
^DD(48,20,21,1,0)="Multiple containing any changed menu options associated with"
^DD(48,20,21,2,0)="Version number noted."
^DD(48,25,0)="DELETED OPTIONS^48.06A^^DO;0"
^DD(48,25,21,0)="^^2^2^2921224^^^"
^DD(48,25,21,1,0)="Multiple containing any deleted menu options associated with"
^DD(48,25,21,2,0)="Version number noted."
^DD(48,30,0)="NEW ROUTINES^48.07^^NR;0"
^DD(48,30,21,0)="^^2^2^2920212^"
^DD(48,30,21,1,0)="Multiple containing any new routines associated with Version number"
^DD(48,30,21,2,0)="noted."
^DD(48,35,0)="OBSOLETE ROUTINE^48.08^^DR;0"
^DD(48,35,21,0)="^^2^2^2920212^"
^DD(48,35,21,1,0)="Multiple containing any obsolete routines that will be deleted"
^DD(48,35,21,2,0)="as a result of changes in the current release."
^DD(48,40,0)="SUGGEST MAPPING FOR ROUTINES^48.09^^M;0"
^DD(48,40,21,0)="^^2^2^2920212^"
^DD(48,40,21,1,0)="Multiple containing routines that it is recommended/suggested to"
^DD(48,40,21,2,0)="map."
^DD(48,41,0)="JOURNALLING RECOMMENDATIONS^48.041^^J;0"
^DD(48,41,21,0)="^^2^2^2920212^"
^DD(48,41,21,1,0)="Multiple containing information of journalling recommendations/"
^DD(48,41,21,2,0)="instructions associated with current release."
^DD(48,45,0)="FILE (DD) CHANGES^48.045^^F;0"
^DD(48,45,21,0)="^^3^3^2920212^"
^DD(48,45,21,1,0)="Word processing field explaining and MAS File Data Dictionary"
^DD(48,45,21,2,0)="changes that have occurred as a result of changes associated with"
^DD(48,45,21,3,0)="the current release."
^DD(48,46,0)="PTF COMMENTS^48.046^^P;0"
^DD(48,46,21,0)="^^3^3^2920212^"
^DD(48,46,21,1,0)="Word processing field containing comments/instructions/special"
^DD(48,46,21,2,0)="items of interest/new legislation, etc. associated with the "
^DD(48,46,21,3,0)="Patient Treatment File (PTF) portion of the MAS software."
^DD(48,47,0)="RUG COMMENTS^48.047^^RU;0"
^DD(48,47,21,0)="^^3^3^2920212^"
^DD(48,47,21,1,0)="Word processing field containing comments/instructions/special"
^DD(48,47,21,2,0)="items of interest/new legislation, etc. associated with the Resource"
^DD(48,47,21,3,0)="Utilization Grouper (RUG) portion of the MAS software."
^DD(48,48,0)="LOOKUP COMMENTS^48.048^^L;0"
^DD(48,48,21,0)="^^2^2^2920212^"
^DD(48,48,21,1,0)="Word processing field containing comments/instructions/related"
^DD(48,48,21,2,0)="changes, etc. to the Patient (^DPT) look up."
^DD(48,49,0)="BILLING COMMENTS^48.049^^BILL;0"
^DD(48,49,21,0)="^^5^5^2920212^"
^DD(48,49,21,1,0)="Word processing field containing comments/instructions/special"
^DD(48,49,21,2,0)="items of interest/new legislation, etc. associated with the"
^DD(48,49,21,3,0)="Billing portion of the MAS software.  In a future release, all"
^DD(48,49,21,4,0)="billing options, etc. will be transferred to the Integrated Billing"
^DD(48,49,21,5,0)="package."
^DD(48,49.5,0)="SCHEDULING COMMENTS^48.0495^^SCH;0"
^DD(48,49.5,21,0)="^^3^3^2920212^"
^DD(48,49.5,21,1,0)="Word processing field containing comments/instructions/special"
^DD(48,49.5,21,2,0)="items of interest/new legislation, etc. associated with the"
^DD(48,49.5,21,3,0)="Scheduling portion of the MAS software."
^DD(48,49.7,0)="DISC. WORKLOAD COMMENTS^48.0497^^DW;0"
^DD(48,49.7,21,0)="^^3^3^2920212^"
^DD(48,49.7,21,1,0)="This field will be *'d for deletion in the MAS V5.2 release."
^DD(48,49.7,21,2,0)="Discretionary workload reports/options, etc. are not longer required"
^DD(48,49.7,21,3,0)="by VACO for use in the field."
^DD(48,49.8,0)="IRT COMMENTS^48.13^^49.8;0"
^DD(48,49.8,21,0)="^^3^3^2930127^^"
^DD(48,49.8,21,1,0)="This is a word-processing field that contains comments on new"
^DD(48,49.8,21,2,0)="or changed functionality or special notes on the Incomplete Record"
^DD(48,49.8,21,3,0)="Tracking Menu in the MAS package with new releases."
^DD(48,50,0)="CLOSING COMMENTS^48.1^^C1;0"
^DD(48,50,21,0)="^^3^3^2920212^"
^DD(48,50,21,1,0)="Word processing containing any closing comments (summary) of any"
^DD(48,50,21,2,0)="outstanding issues/new functionality, etc. related to the current"
^DD(48,50,21,3,0)="release."
^DD(48,100,0)="DG PRE-INIT START^RD^^R;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,100,21,0)="^^1^1^2920212^"
^DD(48,100,21,1,0)="Date/time the DG namespaced pre-initialization started."
^DD(48,101,0)="DG INIT START^RD^^R;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,101,3)=""
^DD(48,101,21,0)="^^1^1^2920212^"
^DD(48,101,21,1,0)="Date/time the DG namespaced intialization started."
^DD(48,102,0)="DG POST-INIT START^RD^^R;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,102,3)=""
^DD(48,102,21,0)="^^1^1^2920212^"
^DD(48,102,21,1,0)="Date/time the DG namespaced post-intialization started."
^DD(48,103,0)="DG INIT END^RD^^R;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,103,3)=""
^DD(48,103,21,0)="^^1^1^2920212^"
^DD(48,103,21,1,0)="Date/time the DG namespaced intialization ended."
^DD(48,104,0)="DPT PRE-INIT START^RD^^R;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,104,3)=""
^DD(48,104,21,0)="^^1^1^2920212^"
^DD(48,104,21,1,0)="Date/time the DPT pre-initialization started."
^DD(48,105,0)="DPT INIT START^RD^^R;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,105,3)=""
^DD(48,105,21,0)="^^1^1^2920212^"
^DD(48,105,21,1,0)="Date/time the DPT intialization started"
^DD(48,106,0)="DPT POST-INIT START^RD^^R;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,106,3)=""
^DD(48,106,21,0)="^^1^1^2920212^"
^DD(48,106,21,1,0)="Date/time the DPT post-initialization started."
^DD(48,107,0)="DPT INIT END^RD^^R;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,107,3)=""
^DD(48,107,21,0)="^^1^1^2920212^"
^DD(48,107,21,1,0)="Date/time the DPT initialization ended."
^DD(48,108,0)="SD PRE-INIT START^RD^^R;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,108,21,0)="^^1^1^2920212^"
^DD(48,108,21,1,0)="Date/time the SD namespaced pre-initialization started."
^DD(48,108,"DT")="2870605"
^DD(48,109,0)="SD INIT START^RD^^R;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,109,3)=""
^DD(48,109,21,0)="^^1^1^2920212^"
^DD(48,109,21,1,0)="Date/time SD namespaced initialization started"
^DD(48,110,0)="SD POST-INIT START^RD^^R;11^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,110,3)=""
^DD(48,110,21,0)="^^1^1^2920212^"
^DD(48,110,21,1,0)="Date/time SD post-initialization started."
^DD(48,111,0)="SD INIT END^RD^^R;12^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,111,3)=""
^DD(48,111,21,0)="^^1^1^2920212^"
^DD(48,111,21,1,0)="Date/time the SD initialization ended."
^DD(48,115,0)="SPECIAL JOB STARTED^RD^^R;16^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,115,21,0)="^^2^2^2920212^"
^DD(48,115,21,1,0)="Date/time any special job was started.  This may not be related to"
^DD(48,115,21,2,0)="all releases, just special cases."
^DD(48,115,"DT")="2870618"
^DD(48,116,0)="SPECIAL JOB ENDED^RD^^R;17^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(48,116,3)=""
^DD(48,116,21,0)="^^2^2^2920212^"
^DD(48,116,21,1,0)="Date/time any special job ended.  This may not be related to all"
^DD(48,116,21,2,0)="releases, just special cases."
^DD(48,117,0)="SPECIAL JOB2 DONE^RS^0:NO;1:YES;^R;18^Q"
^DD(48,117,21,0)="^^1^1^2920212^"
^DD(48,117,21,1,0)="Date/time a second special job was completed."
^DD(48,117,"DT")="2870803"
^DD(48,120,0)="MAY I INCLUDE YOUR FILE SIZES?^RS^1:YES;0:NO;^S;1^Q"
^DD(48,120,21,0)="^^2^2^2920212^"
^DD(48,120,21,1,0)="Does user wish to have program include the sizes of their files"
^DD(48,120,21,2,0)="in the output received as a result of running initializations?"
^DD(48,121,0)="DOCUMENTATION QUALITY^RS^0:NONE INCLUDED;1:POOR;2:FAIR;3:GOOD;4:VERY GOOD;5:EXCELLENT;^S;2^Q"
^DD(48,121,21,0)="^^3^3^2920212^"
^DD(48,121,21,1,0)="User enters the range of quality they felt the documentation"
^DD(48,121,21,2,0)="sent with the package release fell into (i.e. poor, fair, good,"
^DD(48,121,21,3,0)="etc.)"
^DD(48,122,0)="INSTALLATION GUIDE^RS^1:POOR;2:FAIR;3:GOOD;4:VERY GOOD;5:EXCELLENT;^S;3^Q"
^DD(48,122,21,0)="^^2^2^2920212^"
^DD(48,122,21,1,0)="Quality of the installation guide received with the release,"
^DD(48,122,21,2,0)="i.e. good, poor, fair, etc."
^DD(48,123,0)="RELEASE NOTES^RS^1:POOR;2:FAIR;3:GOOD;4:VERY GOOD;5:EXCELLENT;^S;4^Q"
^DD(48,123,3)=""
^DD(48,123,21,0)="^^2^2^2920212^"
^DD(48,123,21,1,0)="Quality of the release notes received with the release, i.e. good,"
^DD(48,123,21,2,0)="poor, fair, etc."
^DD(48,124,0)="INITIALIZATION SATISFACTION^RS^1:POOR;2:FAIR;3:GOOD;4:VERY GOOD;5:EXCELLENT;^S;5^Q"
^DD(48,124,3)=""
^DD(48,124,21,0)="^^4^4^2920212^"
^DD(48,124,21,1,0)="How was the quality of the initialization as related to IRM."
^DD(48,124,21,2,0)="Was it poor?, fair?, etc.  Did the initialization run smoothly?"
^DD(48,124,21,3,0)="Were there major problems encountered?  Items that may effect"
^DD(48,124,21,4,0)="the quality of the initialization quality."
^DD(48,125,0)="USER SATISFACTION^RS^1:POOR;2:FAIR;3:GOOD;4:VERY GOOD;5:EXCELLENT;^S;6^Q"
^DD(48,125,3)=""
^DD(48,125,21,0)="^^3^3^2920212^"
^DD(48,125,21,1,0)="The quality of user satisfaction.  How did the users react to the"
^DD(48,125,21,2,0)="installation/results of updated software?  Were they pleased?"
^DD(48,125,21,3,0)="Did they find many items they felt uncomfortable with? etc."
^DD(48,126,0)="OVERALL SATISFACTION^RS^1:POOR;2:FAIR;3:GOOD;4:VERY GOOD;5:EXCELLENT;^S;7^Q"
^DD(48,126,3)=""
^DD(48,126,21,0)="^^2^2^2920212^"
^DD(48,126,21,1,0)="Rank the overall satisfaction of the release, including all"
^DD(48,126,21,2,0)="documentation, initializations, functionality, etc."
^DD(48,150,0)="USER COMMENTS/SUGGESTIONS^48.12^^UC;0"
^DD(48,150,21,0)="^^3^3^2920212^"
^DD(48,150,21,1,0)="Word processing field for users to express their concerns, comments,"
^DD(48,150,21,2,0)="findings, reactions to the release as a whole.  Any recommendations"
^DD(48,150,21,3,0)="they may have, etc."
^DD(48,"B","BILLING COMMENTS",49)=""
^DD(48,"B","CHANGED OPTIONS",20)=""
^DD(48,"B","CLOSING COMMENTS",50)=""
^DD(48,"B","DELETED OPTIONS",25)=""
^DD(48,"B","DG INIT END",103)=""
^DD(48,"B","DG INIT START",101)=""
^DD(48,"B","DG POST-INIT START",102)=""
^DD(48,"B","DG PRE-INIT START",100)=""
^DD(48,"B","DISC. WORKLOAD COMMENTS",49.7)=""
^DD(48,"B","DOCUMENTATION QUALITY",121)=""
^DD(48,"B","DPT INIT END",107)=""
^DD(48,"B","DPT INIT START",105)=""
^DD(48,"B","DPT POST-INIT START",106)=""
^DD(48,"B","DPT PRE-INIT START",104)=""
^DD(48,"B","FILE (DD) CHANGES",45)=""
^DD(48,"B","INITIALIZATION SATISFACTION",124)=""
^DD(48,"B","INSTALLATION GUIDE",122)=""
^DD(48,"B","IRT COMMENTS",49.8)=""
^DD(48,"B","JOURNALLING RECOMMENDATIONS",41)=""
^DD(48,"B","LOOKUP COMMENTS",48)=""
^DD(48,"B","MAY I INCLUDE YOUR FILE SIZES?",120)=""
^DD(48,"B","NEW MAIL GROUPS",17)=""
^DD(48,"B","NEW OPTIONS",15)=""
^DD(48,"B","NEW ROUTINES",30)=""
^DD(48,"B","NEW SECURITY KEYS",16)=""
^DD(48,"B","NOTIFICATION MESSAGE SENT",2)=""
^DD(48,"B","OBSOLETE ROUTINE",35)=""
^DD(48,"B","OPENING COMMENTS",10)=""
^DD(48,"B","OVERALL SATISFACTION",126)=""
^DD(48,"B","PTF COMMENTS",46)=""
^DD(48,"B","RELEASE DATE",7)=""
^DD(48,"B","RELEASE NOTES",123)=""
^DD(48,"B","RUG COMMENTS",47)=""
^DD(48,"B","SCHEDULING COMMENTS",49.5)=""
^DD(48,"B","SCHEDULING RELEASE TOO",4)=""
^DD(48,"B","SCHEDULING VERSION",5)=""
^DD(48,"B","SD INIT END",111)=""
^DD(48,"B","SD INIT START",109)=""
^DD(48,"B","SD POST-INIT START",110)=""
^DD(48,"B","SD PRE-INIT START",108)=""
^DD(48,"B","SPECIAL JOB ENDED",116)=""
^DD(48,"B","SPECIAL JOB STARTED",115)=""
^DD(48,"B","SPECIAL JOB2 DONE",117)=""
^DD(48,"B","SUGGEST MAPPING FOR ROUTINES",40)=""
^DD(48,"B","TRANSMISSION METHOD",3)=""
^DD(48,"B","USER COMMENTS/SUGGESTIONS",150)=""
^DD(48,"B","USER SATISFACTION",125)=""
^DD(48,"B","VERSION NUMBER",.01)=""
^DD(48,"B","VERSION REQUIRED TO INSTALL",6)=""
^DD(48,"GL",0,1,.01)=""
^DD(48,"GL",0,2,2)=""
^DD(48,"GL",0,3,3)=""
^DD(48,"GL",0,4,4)=""
^DD(48,"GL",0,5,5)=""
^DD(48,"GL",0,6,6)=""
^DD(48,"GL",0,7,7)=""
^DD(48,"GL",49.8,0,49.8)=""
^DD(48,"GL","BILL",0,49)=""
^DD(48,"GL","C",0,10)=""
^DD(48,"GL","C1",0,50)=""
^DD(48,"GL","CO",0,20)=""
^DD(48,"GL","DO",0,25)=""
^DD(48,"GL","DR",0,35)=""
^DD(48,"GL","DW",0,49.7)=""
^DD(48,"GL","F",0,45)=""
^DD(48,"GL","J",0,41)=""
^DD(48,"GL","L",0,48)=""
^DD(48,"GL","M",0,40)=""
^DD(48,"GL","MG",0,17)=""
^DD(48,"GL","NK",0,16)=""
^DD(48,"GL","NO",0,15)=""
^DD(48,"GL","NR",0,30)=""
^DD(48,"GL","P",0,46)=""
^DD(48,"GL","R",1,100)=""
^DD(48,"GL","R",2,101)=""
^DD(48,"GL","R",3,102)=""
^DD(48,"GL","R",4,103)=""
^DD(48,"GL","R",5,104)=""
^DD(48,"GL","R",6,105)=""
^DD(48,"GL","R",7,106)=""
^DD(48,"GL","R",8,107)=""
^DD(48,"GL","R",9,108)=""
^DD(48,"GL","R",10,109)=""
^DD(48,"GL","R",11,110)=""
^DD(48,"GL","R",12,111)=""
^DD(48,"GL","R",16,115)=""
^DD(48,"GL","R",17,116)=""
^DD(48,"GL","R",18,117)=""
^DD(48,"GL","RU",0,47)=""
^DD(48,"GL","S",1,120)=""
^DD(48,"GL","S",2,121)=""
^DD(48,"GL","S",3,122)=""
^DD(48,"GL","S",4,123)=""
^DD(48,"GL","S",5,124)=""
^DD(48,"GL","S",6,125)=""
^DD(48,"GL","S",7,126)=""
^DD(48,"GL","SCH",0,49.5)=""
^DD(48,"GL","UC",0,150)=""
^DD(48,"IX",.01)=""
^DD(48,"IX",7)=""
^DD(48,"RQ",.01)=""
^DD(48,"RQ",2)=""
^DD(48,"RQ",3)=""
^DD(48,"RQ",4)=""
^DD(48,"RQ",6)=""
^DD(48,"RQ",7)=""
^DD(48,"RQ",100)=""
^DD(48,"RQ",101)=""
^DD(48,"RQ",102)=""
^DD(48,"RQ",103)=""
^DD(48,"RQ",104)=""
^DD(48,"RQ",105)=""
^DD(48,"RQ",106)=""
^DD(48,"RQ",107)=""
^DD(48,"RQ",108)=""
^DD(48,"RQ",109)=""
^DD(48,"RQ",110)=""
^DD(48,"RQ",111)=""
^DD(48,"RQ",115)=""
^DD(48,"RQ",116)=""
^DD(48,"RQ",117)=""
^DD(48,"RQ",120)=""
^DD(48,"RQ",121)=""
^DD(48,"RQ",122)=""
^DD(48,"RQ",123)=""
^DD(48,"RQ",124)=""
^DD(48,"RQ",125)=""
^DD(48,"RQ",126)=""
^DD(48,"SB",48.01,10)=""
^DD(48,"SB",48.016,16)=""
^DD(48,"SB",48.017,17)=""
^DD(48,"SB",48.02,15)=""
^DD(48,"SB",48.04,20)=""
^DD(48,"SB",48.041,41)=""
^DD(48,"SB",48.045,45)=""
^DD(48,"SB",48.046,46)=""
^DD(48,"SB",48.047,47)=""
^DD(48,"SB",48.048,48)=""
^DD(48,"SB",48.049,49)=""
^DD(48,"SB",48.0495,49.5)=""
^DD(48,"SB",48.0497,49.7)=""
^DD(48,"SB",48.06,25)=""
^DD(48,"SB",48.07,30)=""
^DD(48,"SB",48.08,35)=""
^DD(48,"SB",48.09,40)=""
^DD(48,"SB",48.1,50)=""
^DD(48,"SB",48.12,150)=""
^DD(48,"SB",48.13,49.8)=""
^DD(48.01,0)="OPENING COMMENTS SUB-FIELD^^.01^1"
^DD(48.01,0,"NM","OPENING COMMENTS")=""
^DD(48.01,0,"UP")="48"
^DD(48.01,.01,0)="OPENING COMMENTS^W^^0;1^Q"
^DD(48.01,"B","OPENING COMMENTS",.01)=""
^DD(48.01,"GL",0,1,.01)=""
^DD(48.016,0)="NEW SECURITY KEYS SUB-FIELD^^1^3"
^DD(48.016,0,"IX","B",48.016,.01)=""
^DD(48.016,0,"NM","NEW SECURITY KEYS")=""
^DD(48.016,0,"UP")="48"
^DD(48.016,.01,0)="NEW SECURITY KEYS^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(48.016,.01,1,0)="^.1"
^DD(48.016,.01,1,1,0)="48.016^B"
^DD(48.016,.01,1,1,1)="S ^DG(48,DA(1),""NK"",""B"",$E(X,1,30),DA)="""""
^DD(48.016,.01,1,1,2)="K ^DG(48,DA(1),""NK"",""B"",$E(X,1,30),DA)"
^DD(48.016,.01,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(48.016,.01,21,0)="^^2^2^2920212^"
^DD(48.016,.01,21,1,0)="Contains any new Security Keys associated wtih Version number"
^DD(48.016,.01,21,2,0)="noted."
^DD(48.016,.01,"DT")="2870825"
^DD(48.016,.02,0)="PACKAGE^RP48.5^DG(48.5,^0;2^Q"
^DD(48.016,.02,1,0)="^.1"
^DD(48.016,.02,1,1,0)="48^D"
^DD(48.016,.02,1,1,1)="S ^DG(48,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(48.016,.02,1,1,2)="K ^DG(48,""D"",$E(X,1,30),DA(1),DA)"
^DD(48.016,.02,3)=""
^DD(48.016,.02,21,0)="^^2^2^2920212^"
^DD(48.016,.02,21,1,0)="Package associated with any new Security Keys for Version number"
^DD(48.016,.02,21,2,0)="noted, i.e. ADT, Scheduling, IRT, etc."
^DD(48.016,.02,"DT")="2890823"
^DD(48.016,1,0)="COMMENTS^48.161^^C;0"
^DD(48.016,1,21,0)="^^2^2^2920212^"
^DD(48.016,1,21,1,0)="Word processing field to describe new Security Key and any special"
^DD(48.016,1,21,2,0)="notes/concerns."
^DD(48.016,"B","COMMENTS",1)=""
^DD(48.016,"B","NEW SECURITY KEYS",.01)=""
^DD(48.016,"B","PACKAGE",.02)=""
^DD(48.016,"GL",0,1,.01)=""
^DD(48.016,"GL",0,2,.02)=""
^DD(48.016,"GL","C",0,1)=""
^DD(48.016,"IX",.01)=""
^DD(48.016,"IX",.02)=""
^DD(48.016,"RQ",.02)=""
^DD(48.016,"SB",48.161,1)=""
^DD(48.017,0)="NEW MAIL GROUPS SUB-FIELD^^1^2"
^DD(48.017,0,"IX","B",48.017,.01)=""
^DD(48.017,0,"NM","NEW MAIL GROUPS")=""
^DD(48.017,0,"UP")="48"
^DD(48.017,.01,0)="NEW MAIL GROUPS^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(48.017,.01,1,0)="^.1"
^DD(48.017,.01,1,1,0)="48.017^B"
^DD(48.017,.01,1,1,1)="S ^DG(48,DA(1),""MG"",""B"",$E(X,1,30),DA)="""""
^DD(48.017,.01,1,1,2)="K ^DG(48,DA(1),""MG"",""B"",$E(X,1,30),DA)"
^DD(48.017,.01,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(48.017,.01,21,0)="^^1^1^2920212^"
^DD(48.017,.01,21,1,0)="New mail groups associated with Version number noted."
^DD(48.017,.01,"DT")="2870825"
^DD(48.017,1,0)="COMMENTS^48.171^^C;0"
^DD(48.017,1,21,0)="^^2^2^2920212^"
^DD(48.017,1,21,1,0)="Word processing field to describe new mail group with instructions"
^DD(48.017,1,21,2,0)="for set up if appropriate and special items of interest."
^DD(48.017,"B","COMMENTS",1)=""
^DD(48.017,"B","NEW MAIL GROUPS",.01)=""
^DD(48.017,"GL",0,1,.01)=""
^DD(48.017,"GL","C",0,1)=""
^DD(48.017,"IX",.01)=""
^DD(48.017,"SB",48.171,1)=""
^DD(48.02,0)="NEW OPTIONS SUB-FIELD^^1^3"
^DD(48.02,0,"IX","B",48.02,.01)=""
^DD(48.02,0,"NM","NEW OPTIONS")=""
^DD(48.02,0,"UP")="48"
^DD(48.02,.01,0)="NEW OPTIONS^MF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(48.02,.01,1,0)="^.1"
^DD(48.02,.01,1,1,0)="48.02^B"
^DD(48.02,.01,1,1,1)="S ^DG(48,DA(1),""NO"",""B"",$E(X,1,30),DA)="""""
^DD(48.02,.01,1,1,2)="K ^DG(48,DA(1),""NO"",""B"",$E(X,1,30),DA)"
^DD(48.02,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(48.02,.01,21,0)="^^1^1^2920212^"
^DD(48.02,.01,21,1,0)="All new MAS menu options associated with the Version noted."
^DD(48.02,.02,0)="PACKAGE^RP48.5^DG(48.5,^0;2^Q"
^DD(48.02,.02,1,0)="^.1"
^DD(48.02,.02,1,1,0)="48^C"
^DD(48.02,.02,1,1,1)="S ^DG(48,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(48.02,.02,1,1,2)="K ^DG(48,""C"",$E(X,1,30),DA(1),DA)"
^DD(48.02,.02,3)=""
^DD(48.02,.02,21,0)="^^2^2^2920212^"
^DD(48.02,.02,21,1,0)="The associated package for each new menu option, i.e. scheduling,"
^DD(48.02,.02,21,2,0)="ADT, IRT, etc."
^DD(48.02,.02,"DT")="2890823"
^DD(48.02,1,0)="COMMENTS^48.11^^C;0"
^DD(48.02,1,21,0)="^^1^1^2920212^^"
^DD(48.02,1,21,1,0)="Any comments/special concerns associated with a new menu option."
^DD(48.02,"B","COMMENTS",1)=""
^DD(48.02,"B","NEW OPTIONS",.01)=""
^DD(48.02,"B","PACKAGE",.02)=""
^DD(48.02,"GL",0,1,.01)=""
^DD(48.02,"GL",0,2,.02)=""
^DD(48.02,"GL","C",0,1)=""
^DD(48.02,"IX",.01)=""
^DD(48.02,"IX",.02)=""
^DD(48.02,"RQ",.02)=""
^DD(48.02,"SB",48.11,1)=""
^DD(48.04,0)="CHANGED OPTIONS SUB-FIELD^^1^4"
^DD(48.04,0,"DT")="2910701"
^DD(48.04,0,"IX","B",48.04,.01)=""
^DD(48.04,0,"NM","CHANGED OPTIONS")=""
^DD(48.04,0,"UP")="48"
^DD(48.04,.01,0)="CHANGED OPTIONS^MF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(48.04,.01,1,0)="^.1"
^DD(48.04,.01,1,1,0)="48.04^B"
^DD(48.04,.01,1,1,1)="S ^DG(48,DA(1),""CO"",""B"",$E(X,1,30),DA)="""""
^DD(48.04,.01,1,1,2)="K ^DG(48,DA(1),""CO"",""B"",$E(X,1,30),DA)"
^DD(48.04,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(48.04,.01,21,0)="^^1^1^2920212^"
^DD(48.04,.01,21,1,0)="Any changed menu options associated with Version number noted."
^DD(48.04,.02,0)="PACKAGE^RP48.5^DG(48.5,^0;2^Q"
^DD(48.04,.02,1,0)="^.1"
^DD(48.04,.02,1,1,0)="48^E"
^DD(48.04,.02,1,1,1)="S ^DG(48,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(48.04,.02,1,1,2)="K ^DG(48,""E"",$E(X,1,30),DA(1),DA)"
^DD(48.04,.02,3)=""
^DD(48.04,.02,21,0)="^^2^2^2920212^"
^DD(48.04,.02,21,1,0)="Package associated with any changed menu options, i.e. IRT, ADT,"
^DD(48.04,.02,21,2,0)="Scheduling, etc."
^DD(48.04,.02,"DT")="2890823"
^DD(48.04,.03,0)="FIX FOR BUG?^S^1:YES;0:NO;^0;3^Q"
^DD(48.04,.03,3)="Is this change a fix to a bug from a prior version?"
^DD(48.04,.03,21,0)="^^2^2^2910701^"
^DD(48.04,.03,21,1,0)="This field will be 'YES' if the change made was a fix to a bug that was"
^DD(48.04,.03,21,2,0)="introduced in a prior release."
^DD(48.04,.03,"DT")="2910701"
^DD(48.04,1,0)="COMMENTS^48.05^^C;0"
^DD(48.04,1,21,0)="^^2^2^2920212^"
^DD(48.04,1,21,1,0)="Word processing field to describe any changed menu options or"
^DD(48.04,1,21,2,0)="special items of interest."
^DD(48.04,"B","CHANGED OPTIONS",.01)=""
^DD(48.04,"B","COMMENTS",1)=""
^DD(48.04,"B","FIX FOR BUG?",.03)=""
^DD(48.04,"B","PACKAGE",.02)=""
^DD(48.04,"GL",0,1,.01)=""
^DD(48.04,"GL",0,2,.02)=""
^DD(48.04,"GL",0,3,.03)=""
^DD(48.04,"GL","C",0,1)=""
^DD(48.04,"IX",.01)=""
^DD(48.04,"IX",.02)=""
^DD(48.04,"RQ",.02)=""
^DD(48.04,"SB",48.05,1)=""
^DD(48.041,0)="JOURNALLING RECOMMENDATIONS SUB-FIELD^^.01^1"
^DD(48.041,0,"IX","B",48.041,.01)=""
^DD(48.041,0,"NM","JOURNALLING RECOMMENDATIONS")=""
^DD(48.041,0,"UP")="48"
^DD(48.041,.01,0)="JOURNALLING RECOMMENDATIONS^MF^^0;1^K:$L(X)>8!($L(X)<2) X"
^DD(48.041,.01,1,0)="^.1"
^DD(48.041,.01,1,1,0)="48.041^B"
^DD(48.041,.01,1,1,1)="S ^DG(48,DA(1),""J"",""B"",$E(X,1,30),DA)="""""
^DD(48.041,.01,1,1,2)="K ^DG(48,DA(1),""J"",""B"",$E(X,1,30),DA)"
^DD(48.041,.01,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(48.041,.01,21,0)="^^2^2^2920212^"
^DD(48.041,.01,21,1,0)="Information concerning journalling recommendations/instructions"
^DD(48.041,.01,21,2,0)="associated with current release."
^DD(48.041,.01,"DT")="2890419"
^DD(48.041,"B","JOURNALLING RECOMMENDATIONS",.01)=""
^DD(48.041,"GL",0,1,.01)=""
^DD(48.041,"IX",.01)=""
^DD(48.045,0)="FILE (DD) CHANGES SUB-FIELD^^.01^1"
^DD(48.045,0,"NM","FILE (DD) CHANGES")=""
^DD(48.045,0,"UP")="48"
^DD(48.045,.01,0)="FILE (DD) CHANGES^W^^0;1^Q"
^DD(48.045,.01,"DT")="2870619"
^DD(48.045,"B","FILE (DD) CHANGES",.01)=""
^DD(48.045,"GL",0,1,.01)=""
^DD(48.046,0)="PTF COMMENTS SUB-FIELD^^.01^1"
^DD(48.046,0,"NM","PTF COMMENTS")=""
^DD(48.046,0,"UP")="48"
^DD(48.046,.01,0)="PTF COMMENTS^W^^0;1^Q"
^DD(48.046,.01,"DT")="2870619"
^DD(48.046,"B","PTF COMMENTS",.01)=""
^DD(48.046,"GL",0,1,.01)=""
^DD(48.047,0)="RUG COMMENTS SUB-FIELD^^.01^1"
^DD(48.047,0,"NM","RUG COMMENTS")=""
^DD(48.047,0,"UP")="48"
^DD(48.047,.01,0)="RUG COMMENTS^W^^0;1^Q"
^DD(48.047,.01,"DT")="2870619"
^DD(48.047,"B","RUG COMMENTS",.01)=""
^DD(48.047,"GL",0,1,.01)=""
^DD(48.048,0)="LOOKUP COMMENTS SUB-FIELD^^.01^1"
^DD(48.048,0,"NM","LOOKUP COMMENTS")=""
^DD(48.048,0,"UP")="48"
^DD(48.048,.01,0)="LOOKUP COMMENTS^W^^0;1^Q"
^DD(48.048,.01,"DT")="2870622"
^DD(48.048,"B","LOOKUP COMMENTS",.01)=""
^DD(48.048,"GL",0,1,.01)=""
^DD(48.049,0)="BILLING COMMENTS SUB-FIELD^^.01^1"
^DD(48.049,0,"NM","BILLING COMMENTS")=""
^DD(48.049,0,"UP")="48"
^DD(48.049,.01,0)="BILLING COMMENTS^W^^0;1^Q"
^DD(48.049,.01,"DT")="2880725"
^DD(48.049,"B","BILLING COMMENTS",.01)=""
^DD(48.049,"GL",0,1,.01)=""
^DD(48.0495,0)="SCHEDULING COMMENTS SUB-FIELD^^.01^1"
^DD(48.0495,0,"NM","SCHEDULING COMMENTS")=""
^DD(48.0495,0,"UP")="48"
^DD(48.0495,.01,0)="SCHEDULING COMMENTS^W^^0;1^Q"
^DD(48.0495,.01,"DT")="2890419"
^DD(48.0495,"B","SCHEDULING COMMENTS",.01)=""
^DD(48.0495,"GL",0,1,.01)=""
^DD(48.0497,0)="DISC. WORKLOAD COMMENTS SUB-FIELD^^.01^1"
^DD(48.0497,0,"NM","DISC. WORKLOAD COMMENTS")=""
^DD(48.0497,0,"UP")="48"
^DD(48.0497,.01,0)="DISC. WORKLOAD COMMENTS^W^^0;1^Q"
^DD(48.0497,.01,"DT")="2890624"
^DD(48.0497,"B","DISC. WORKLOAD COMMENTS",.01)=""
^DD(48.0497,"GL",0,1,.01)=""
^DD(48.05,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(48.05,0,"NM","COMMENTS")=""
^DD(48.05,0,"UP")="48.04"
^DD(48.05,.01,0)="COMMENTS^W^^0;1^Q"
^DD(48.05,"B","COMMENTS",.01)=""
^DD(48.05,"GL",0,1,.01)=""
^DD(48.06,0)="DELETED OPTIONS SUB-FIELD^^.06^6"
^DD(48.06,0,"DT")="2920612"
^DD(48.06,0,"IX","B",48.06,.01)=""
^DD(48.06,0,"IX","C",48.06,.03)=""
^DD(48.06,0,"NM","DELETED OPTIONS")=""
^DD(48.06,0,"UP")="48"
^DD(48.06,.01,0)="DELETED OPTIONS^MFX^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(48.06,.01,1,0)="^.1"
^DD(48.06,.01,1,1,0)="48.06^B"
^DD(48.06,.01,1,1,1)="S ^DG(48,DA(1),""DO"",""B"",$E(X,1,30),DA)="""""
^DD(48.06,.01,1,1,2)="K ^DG(48,DA(1),""DO"",""B"",$E(X,1,30),DA)"
^DD(48.06,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(48.06,.01,4)=""
^DD(48.06,.01,21,0)="^^1^1^2920212^"
^DD(48.06,.01,21,1,0)="Any deleted menu options associated with a particular MAS release."
^DD(48.06,.01,"DT")="2930722"
^DD(48.06,.02,0)="PACKAGE^RP48.5^DG(48.5,^0;2^Q"
^DD(48.06,.02,1,0)="^.1"
^DD(48.06,.02,1,1,0)="48^F"
^DD(48.06,.02,1,1,1)="S ^DG(48,""F"",$E(X,1,30),DA(1),DA)="""""
^DD(48.06,.02,1,1,2)="K ^DG(48,""F"",$E(X,1,30),DA(1),DA)"
^DD(48.06,.02,3)=""
^DD(48.06,.02,21,0)="^^2^2^2920212^"
^DD(48.06,.02,21,1,0)="Package associated with any deleted menu options, i.e. IRT, ADT,"
^DD(48.06,.02,21,2,0)="Scheduling, etc."
^DD(48.06,.02,"DT")="2890823"
^DD(48.06,.03,0)="OPTION NAME^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3) X"
^DD(48.06,.03,1,0)="^.1"
^DD(48.06,.03,1,1,0)="48.06^C"
^DD(48.06,.03,1,1,1)="S ^DG(48,DA(1),""DO"",""C"",$E(X,1,30),DA)="""""
^DD(48.06,.03,1,1,2)="K ^DG(48,DA(1),""DO"",""C"",$E(X,1,30),DA)"
^DD(48.06,.03,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(48.06,.03,21,0)="^^1^1^2920212^"
^DD(48.06,.03,21,1,0)="The option NAME that is to be deleted with associated Version number."
^DD(48.06,.03,"DT")="2880812"
^DD(48.06,.04,0)="REPOINT?^S^1:YES;0:NO;^0;4^Q"
^DD(48.06,.04,21,0)="^^2^2^2920212^"
^DD(48.06,.04,21,1,0)="In deleting a menu option is it necessary to repoint to a new"
^DD(48.06,.04,21,2,0)="option or not?"
^DD(48.06,.04,"DT")="2880812"
^DD(48.06,.05,0)="REPOINT TO OPTION^F^^0;5^K:$L(X)>45!($L(X)<3) X"
^DD(48.06,.05,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(48.06,.05,21,0)="^^2^2^2920212^"
^DD(48.06,.05,21,1,0)="If sub-field .04 is answered ""YES"", enter the menu option to"
^DD(48.06,.05,21,2,0)="repoint to here."
^DD(48.06,.05,"DT")="2880812"
^DD(48.06,.06,0)="DESCRIPTION^48.14^^1;0"
^DD(48.06,.06,21,0)="^^3^3^2930127^^"
^DD(48.06,.06,21,1,0)="The description field is a word-processing field that is utilized"
^DD(48.06,.06,21,2,0)="to describe what the functionality of an option is."
^DD(48.06,.06,21,3,0)="|"
^DD(48.06,"B","DELETED OPTIONS",.01)=""
^DD(48.06,"B","DESCRIPTION",.06)=""
^DD(48.06,"B","OPTION NAME",.03)=""
^DD(48.06,"B","PACKAGE",.02)=""
^DD(48.06,"B","REPOINT TO OPTION",.05)=""
^DD(48.06,"B","REPOINT?",.04)=""
^DD(48.06,"GL",0,1,.01)=""
^DD(48.06,"GL",0,2,.02)=""
^DD(48.06,"GL",0,3,.03)=""
^DD(48.06,"GL",0,4,.04)=""
^DD(48.06,"GL",0,5,.05)=""
^DD(48.06,"GL",1,0,.06)=""
^DD(48.06,"IX",.01)=""
^DD(48.06,"IX",.02)=""
^DD(48.06,"IX",.03)=""
^DD(48.06,"RQ",.02)=""
^DD(48.06,"RQ",.03)=""
^DD(48.06,"SB",48.14,.06)=""
^DD(48.07,0)="NEW ROUTINES SUB-FIELD^^.01^1"
^DD(48.07,0,"IX","B",48.07,.01)=""
^DD(48.07,0,"NM","NEW ROUTINES")=""
^DD(48.07,0,"UP")="48"
^DD(48.07,.01,0)="NEW ROUTINES^MF^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(48.07,.01,1,0)="^.1"
^DD(48.07,.01,1,1,0)="48.07^B"
^DD(48.07,.01,1,1,1)="S ^DG(48,DA(1),""NR"",""B"",$E(X,1,30),DA)="""""
^DD(48.07,.01,1,1,2)="K ^DG(48,DA(1),""NR"",""B"",$E(X,1,30),DA)"
^DD(48.07,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(48.07,.01,21,0)="^^1^1^2920212^"
^DD(48.07,.01,21,1,0)="List any new routines associated with current release."
^DD(48.07,"B","NEW ROUTINES",.01)=""
^DD(48.07,"GL",0,1,.01)=""
^DD(48.07,"IX",.01)=""
^DD(48.08,0)="OBSOLETE ROUTINE SUB-FIELD^^.02^2"
^DD(48.08,0,"IX","B",48.08,.01)=""
^DD(48.08,0,"NM","OBSOLETE ROUTINE")=""
^DD(48.08,0,"UP")="48"
^DD(48.08,.01,0)="OBSOLETE ROUTINE^MFX^^0;1^K:$L(X)>15!($L(X)<2)!(X[""*"") X"
^DD(48.08,.01,1,0)="^.1"
^DD(48.08,.01,1,1,0)="48.08^B"
^DD(48.08,.01,1,1,1)="S ^DG(48,DA(1),""DR"",""B"",$E(X,1,30),DA)="""""
^DD(48.08,.01,1,1,2)="K ^DG(48,DA(1),""DR"",""B"",$E(X,1,30),DA)"
^DD(48.08,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH.  NO ASTERISKS ALLOWED."
^DD(48.08,.01,21,0)="^^2^2^2920212^"
^DD(48.08,.01,21,1,0)="Any obsolete routine that will be deleted (not released) as a result"
^DD(48.08,.01,21,2,0)="of changes in the associated Version number."
^DD(48.08,.01,"DT")="2890821"
^DD(48.08,.02,0)="OBSOLETE WITH VERSION#^RP48'^DG(48,^0;2^Q"
^DD(48.08,.02,21,0)="^^2^2^2920212^^"
^DD(48.08,.02,21,1,0)="The Version # that the obsolete routines will be deleted and not"
^DD(48.08,.02,21,2,0)="longer released with the MAS software."
^DD(48.08,.02,"DT")="2880725"
^DD(48.08,"B","OBSOLETE ROUTINE",.01)=""
^DD(48.08,"B","OBSOLETE WITH VERSION#",.02)=""
^DD(48.08,"GL",0,1,.01)=""
^DD(48.08,"GL",0,2,.02)=""
^DD(48.08,"IX",.01)=""
^DD(48.08,"RQ",.02)=""
^DD(48.09,0)="SUGGEST MAPPING FOR ROUTINES SUB-FIELD^^.01^1"
^DD(48.09,0,"IX","B",48.09,.01)=""
^DD(48.09,0,"NM","SUGGEST MAPPING FOR ROUTINES")=""
^DD(48.09,0,"UP")="48"
^DD(48.09,.01,0)="SUGGEST MAPPING FOR ROUTINES^MF^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(48.09,.01,1,0)="^.1"
^DD(48.09,.01,1,1,0)="48.09^B"
^DD(48.09,.01,1,1,1)="S ^DG(48,DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(48.09,.01,1,1,2)="K ^DG(48,DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(48.09,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(48.09,.01,21,0)="^^1^1^2920212^"
^DD(48.09,.01,21,1,0)="Routines that are suggested/recommended for mapping."
^DD(48.09,"B","SUGGEST MAPPING FOR ROUTINES",.01)=""
^DD(48.09,"GL",0,1,.01)=""
^DD(48.09,"IX",.01)=""
^DD(48.1,0)="CLOSING COMMENTS SUB-FIELD^^.01^1"
^DD(48.1,0,"NM","CLOSING COMMENTS")=""
^DD(48.1,0,"UP")="48"
^DD(48.1,.01,0)="CLOSING COMMENTS^W^^0;1^Q"
^DD(48.1,"B","CLOSING COMMENTS",.01)=""
^DD(48.1,"GL",0,1,.01)=""
^DD(48.11,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(48.11,0,"NM","COMMENTS")=""
^DD(48.11,0,"UP")="48.02"
^DD(48.11,.01,0)="COMMENTS^W^^0;1^Q"
^DD(48.11,"B","COMMENTS",.01)=""
^DD(48.11,"GL",0,1,.01)=""
^DD(48.12,0)="USER COMMENTS/SUGGESTIONS SUB-FIELD^^.01^1"
^DD(48.12,0,"NM","USER COMMENTS/SUGGESTIONS")=""
^DD(48.12,0,"UP")="48"
^DD(48.12,.01,0)="USER COMMENTS/SUGGESTIONS^W^^0;1^Q"
^DD(48.12,"B","USER COMMENTS/SUGGESTIONS",.01)=""
^DD(48.12,"GL",0,1,.01)=""
^DD(48.13,0)="IRT COMMENTS SUB-FIELD^^.01^1"
^DD(48.13,0,"DT")="2920121"
^DD(48.13,0,"NM","IRT COMMENTS")=""
^DD(48.13,0,"UP")="48"
^DD(48.13,.01,0)="IRT COMMENTS^W^^0;1^Q"
^DD(48.13,.01,.1)="IRT Comments"
^DD(48.13,.01,3)="Enter any comments that concern the IRT package."
^DD(48.13,.01,21,0)="^^2^2^2920121^^"
^DD(48.13,.01,21,1,0)="All comments in this field have to do with the"
^DD(48.13,.01,21,2,0)="IRT package."
^DD(48.13,.01,23,0)="^^2^2^2920121^^"
^DD(48.13,.01,23,1,0)="All comments in this field have to do with the "
^DD(48.13,.01,23,2,0)="IRT package."
^DD(48.13,.01,"DT")="2920121"
^DD(48.13,"B","IRT COMMENTS",.01)=""
^DD(48.13,"B","IRT Comments",.01)="1"
^DD(48.13,"GL",0,1,.01)=""
^DD(48.14,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(48.14,0,"DT")="2920612"
^DD(48.14,0,"NM","DESCRIPTION")=""
^DD(48.14,0,"UP")="48.06"
^DD(48.14,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(48.14,.01,"DT")="2920612"
^DD(48.14,"B","DESCRIPTION",.01)=""
^DD(48.14,"GL",0,1,.01)=""
^DD(48.161,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(48.161,0,"NM","COMMENTS")=""
^DD(48.161,0,"UP")="48.016"
^DD(48.161,.01,0)="COMMENTS^W^^0;1^Q"
^DD(48.161,.01,"DT")="2870825"
^DD(48.161,"B","COMMENTS",.01)=""
^DD(48.161,"GL",0,1,.01)=""
^DD(48.171,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(48.171,0,"NM","COMMENTS")=""
^DD(48.171,0,"UP")="48.017"
^DD(48.171,.01,0)="COMMENTS^W^^0;1^Q"
^DD(48.171,.01,"DT")="2870825"
^DD(48.171,"B","COMMENTS",.01)=""
^DD(48.171,"GL",0,1,.01)=""
^DD(48.5,0)="FIELD^^.01^2"
^DD(48.5,0,"IX","B",48.5,.01)=""
^DD(48.5,0,"NM","MAS MODULE")=""
^DD(48.5,0,"PT",48.016,.02)=""
^DD(48.5,0,"PT",48.02,.02)=""
^DD(48.5,0,"PT",48.04,.02)=""
^DD(48.5,0,"PT",48.06,.02)=""
^DD(48.5,0,"VR")="5.3"
^DD(48.5,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(48.5,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(48.5,.001,21,0)="^^2^2^2920211^"
^DD(48.5,.001,21,1,0)="The internal reference number assigned to any particular entry"
^DD(48.5,.001,21,2,0)="automatically as each new one is entered into the file."
^DD(48.5,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<2)!'(X'?1P.E) X"
^DD(48.5,.01,1,0)="^.1"
^DD(48.5,.01,1,1,0)="48.5^B"
^DD(48.5,.01,1,1,1)="S ^DG(48.5,""B"",$E(X,1,30),DA)="""""
^DD(48.5,.01,1,1,2)="K ^DG(48.5,""B"",$E(X,1,30),DA)"
^DD(48.5,.01,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(48.5,.01,21,0)="^^4^4^2920211^"
^DD(48.5,.01,21,1,0)="The name of the MAS (Medical Administration Service) module or section"
^DD(48.5,.01,21,2,0)="of the software.  For example ADT = Admission/Discharge/Transfer"
^DD(48.5,.01,21,3,0)="                              IRT = Incomplete Record Tracking"
^DD(48.5,.01,21,4,0)="These modules are distributed with the nationally released software."
^DD(48.5,"B","NAME",.01)=""
^DD(48.5,"B","NUMBER",.001)=""
^DD(48.5,"GL",0,1,.01)=""
^DD(48.5,"IX",.01)=""
^DD(48.5,"RQ",.01)=""
^DD(49,0)="FIELD^NL^16000^18"
^DD(49,0,"DDA")="N"
^DD(49,0,"DT")="2930202"
^DD(49,0,"ID",1.5)="W ""   "",$P(^(0),U,8)"
^DD(49,0,"ID",1.6)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(49,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(49,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(49,0,"IX","A1",49,730)=""
^DD(49,0,"IX","A2",49,730)=""
^DD(49,0,"IX","AC",49,10)=""
^DD(49,0,"IX","ACHLD",49,1.6)=""
^DD(49,0,"IX","AD",49,10)=""
^DD(49,0,"IX","AE",49,16000)=""
^DD(49,0,"IX","B",49,.01)=""
^DD(49,0,"IX","C",49,1)=""
^DD(49,0,"IX","D",49,1.5)=""
^DD(49,0,"IX","E",49,9)=""
^DD(49,0,"IX","F",49,1.7)=""
^DD(49,0,"NM","SERVICE/SECTION")=""
^DD(49,0,"PT",43,919)=""
^DD(49,0,"PT",45.7,2)=""
^DD(49,0,"PT",49,1.6)=""
^DD(49,0,"PT",59,1003)=""
^DD(49,0,"PT",70.03,7)=""
^DD(49,0,"PT",123.5,123.07)=""
^DD(49,0,"PT",183,.01)=""
^DD(49,0,"PT",195.1,2)=""
^DD(49,0,"PT",200,29)=""
^DD(49,0,"PT",217,2)=""
^DD(49,0,"PT",217.1,2)=""
^DD(49,0,"PT",350.1,.04)=""
^DD(49,0,"PT",350.9,1.14)=""
^DD(49,0,"PT",404.51,.06)=""
^DD(49,0,"PT",410,6.3)=""
^DD(49,0,"PT",413,2)=""
^DD(49,0,"PT",413.1,2)=""
^DD(49,0,"PT",420.01,.5)=""
^DD(49,0,"PT",421.51,.01)=""
^DD(49,0,"PT",430,101)=""
^DD(49,0,"PT",442,5.2)=""
^DD(49,0,"PT",443.6,5.2)=""
^DD(49,0,"PT",444,9)=""
^DD(49,0,"PT",445.011,.01)=""
^DD(49,0,"PT",452.4,2)=""
^DD(49,0,"PT",455.5,21)=""
^DD(49,0,"PT",680.4,.02)=""
^DD(49,0,"PT",721,4)=""
^DD(49,0,"PT",724,1)=""
^DD(49,0,"PT",727.814,13)=""
^DD(49,0,"PT",741,5)=""
^DD(49,0,"PT",741.01,.03)=""
^DD(49,0,"PT",741.024,.02)=""
^DD(49,0,"PT",741.025,.02)=""
^DD(49,0,"PT",741.026,.02)=""
^DD(49,0,"PT",743,1)=""
^DD(49,0,"PT",745.1211,.01)=""
^DD(49,0,"PT",910,.05)=""
^DD(49,0,"PT",2006.82,7)=""
^DD(49,0,"PT",2260,86)=""
^DD(49,0,"PT",6914,21)=""
^DD(49,0,"PT",6914.1,.5)=""
^DD(49,0,"PT",6920,23)=""
^DD(49,0,"PT",6926,.4)=""
^DD(49,0,"PT",6928,1.5)=""
^DD(49,0,"PT",8925,1404)=""
^DD(49,0,"PT",8989.5,.01)=""
^DD(49,0,"PT",9000011,1.06)=""
^DD(49,0,"VR")="8.0"
^DD(49,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(49,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(49,.01,1,0)="^.1"
^DD(49,.01,1,1,0)="49^B"
^DD(49,.01,1,1,1)="S ^DIC(49,""B"",$E(X,1,30),DA)="""""
^DD(49,.01,1,1,2)="K ^DIC(49,""B"",$E(X,1,30),DA)"
^DD(49,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(49,.01,21,0)="^^1^1^2910114^"
^DD(49,.01,21,1,0)="Enter Service or Section name."
^DD(49,.01,"DT")="2901214"
^DD(49,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<2) X"
^DD(49,1,1,0)="^.1"
^DD(49,1,1,1,0)="49^C"
^DD(49,1,1,1,1)="S ^DIC(49,""C"",$E(X,1,30),DA)="""""
^DD(49,1,1,1,2)="K ^DIC(49,""C"",$E(X,1,30),DA)"
^DD(49,1,3)="ANSWER MUST BE 2-5 CHARACTERS IN LENGTH"
^DD(49,1,21,0)="^^1^1^2910722^"
^DD(49,1,21,1,0)="This field contains the accepted abbreviation for this service or section."
^DD(49,1,"DT")="2850522"
^DD(49,1.3,0)="DESCRIPTION^49.06^^1;0"
^DD(49,1.3,21,0)="^^2^2^2910722^"
^DD(49,1.3,21,1,0)="This field contains a brief description or the mission of this service"
^DD(49,1.3,21,2,0)="or section."
^DD(49,1.5,0)="MAIL SYMBOL^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X"
^DD(49,1.5,1,0)="^.1"
^DD(49,1.5,1,1,0)="49^D"
^DD(49,1.5,1,1,1)="S ^DIC(49,""D"",$E(X,1,30),DA)="""""
^DD(49,1.5,1,1,2)="K ^DIC(49,""D"",$E(X,1,30),DA)"
^DD(49,1.5,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(49,1.5,21,0)="^^2^2^2910722^^"
^DD(49,1.5,21,1,0)="This field contains the accepted mail routing symbol for the service"
^DD(49,1.5,21,2,0)="or section."
^DD(49,1.5,"DT")="2860906"
^DD(49,1.6,0)="PARENT SERVICE^P49'^DIC(49,^0;4^Q"
^DD(49,1.6,1,0)="^.1"
^DD(49,1.6,1,1,0)="49^ACHLD"
^DD(49,1.6,1,1,1)="S ^DIC(49,""ACHLD"",$E(X,1,30),DA)="""""
^DD(49,1.6,1,1,2)="K ^DIC(49,""ACHLD"",$E(X,1,30),DA)"
^DD(49,1.6,1,1,"%D",0)="^^2^2^2930426^"
^DD(49,1.6,1,1,"%D",1,0)="If a selected  service is a 'parent' service, then all subordinate"
^DD(49,1.6,1,1,"%D",2,0)="services may be retrieved as well upon selection via this cross-reference."
^DD(49,1.6,1,1,"DT")="2930426"
^DD(49,1.6,3)="Type the name of the service or section which is 'parent' to this section.  If this is an MIS Costing Section w/in medicine of surgery, type the MIS 'sub-specialty' admin sectn to which this belongs."
^DD(49,1.6,21,0)="^^2^2^2910722^"
^DD(49,1.6,21,1,0)="This field contains a pointer to the name of the service or section which"
^DD(49,1.6,21,2,0)="is ""parent"" to this section."
^DD(49,1.6,"DT")="2860906"
^DD(49,1.7,0)="TYPE OF SERVICE^S^C:PATIENT CARE;A:ADMINISTRATIVE;^0;9^Q"
^DD(49,1.7,1,0)="^.1"
^DD(49,1.7,1,1,0)="49^F"
^DD(49,1.7,1,1,1)="S ^DIC(49,""F"",$E(X,1,30),DA)="""""
^DD(49,1.7,1,1,2)="K ^DIC(49,""F"",$E(X,1,30),DA)"
^DD(49,1.7,1,1,"DT")="2930504"
^DD(49,1.7,3)="Enter C if this is a clinical service, providing direct patient care; if this service is primarily administrative, enter A."
^DD(49,1.7,21,0)="^^2^2^2940208^^"
^DD(49,1.7,21,1,0)="This flag indicates the type of each entry in this file.  Services or"
^DD(49,1.7,21,2,0)="sub-services may be marked as Administrative or for Patient Care."
^DD(49,1.7,21,3,0)="or for Patient Care."
^DD(49,1.7,"DT")="2930504"
^DD(49,2,0)="CHIEF^P200'^VA(200,^0;3^Q"
^DD(49,2,3)=""
^DD(49,2,21,0)="^^2^2^2910722^"
^DD(49,2,21,1,0)="This field contains a pointer to the name of the chief of this service"
^DD(49,2,21,2,0)="or section."
^DD(49,2,"DT")="2950331"
^DD(49,3,0)="CHIEF PHONE^49.04A^^PH;0"
^DD(49,3,21,0)="^^2^2^2910722^^^"
^DD(49,3,21,1,0)="This field contains the telephone number(s) for the chief of this service ."
^DD(49,3,21,2,0)="or section."
^DD(49,4,0)="ASST CHIEF^P200'^VA(200,^0;5^Q"
^DD(49,4,3)=""
^DD(49,4,21,0)="^^2^2^2910722^^"
^DD(49,4,21,1,0)="This field contains a pointer to the name of the assistant chief of this"
^DD(49,4,21,2,0)="service or section."
^DD(49,4,"DT")="2950331"
^DD(49,5,0)="ASST CHIEF PHONE^49.05A^^APH;0"
^DD(49,5,21,0)="^^2^2^2910722^"
^DD(49,5,21,1,0)="This field contains the telephone number(s) for the assistant chief of"
^DD(49,5,21,2,0)="this service or section."
^DD(49,6,0)="LOCATION^F^^0;7^K:$L(X)>15!($L(X)<2) X"
^DD(49,6,3)="ANSWER MUST BE 2-15 CHARACTERS IN LENGTH"
^DD(49,6,21,0)="^^2^2^2910722^"
^DD(49,6,21,1,0)="This field contains the physical location of this service or section"
^DD(49,6,21,2,0)="(i.e., room number)."
^DD(49,9,0)="MIS COSTING CODE^F^^2;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<3)!'(X?2A3N) X"
^DD(49,9,1,0)="^.1"
^DD(49,9,1,1,0)="49^E"
^DD(49,9,1,1,1)="S ^DIC(49,""E"",$E(X,1,30),DA)="""""
^DD(49,9,1,1,2)="K ^DIC(49,""E"",$E(X,1,30),DA)"
^DD(49,9,3)="ANSWER MUST BE 3-5 CHARACTERS IN LENGTH.  2 ALPHA CHARS FOLLOWED BY 1 TO 3 NUMERIC CHARS.  THIS FIELD SHOULD CONTAIN DATA ONLY IF THIS SECTION IS A MANAGEMENT INFORMATION  COST ACCOUNTING SECTION."
^DD(49,9,21,0)="^^2^2^2910722^"
^DD(49,9,21,1,0)="This field contains the Management Information Cost Accounting code"
^DD(49,9,21,2,0)="for this service or section."
^DD(49,9,"DT")="2870225"
^DD(49,10,0)="COST CENTER^FX^^2;2^K:X[""""""""!($A(X)=45) X I $D(X) S DIC=""^PRCD(420.1,"",DIC(0)=""QEMZ"" D ^DIC S:Y>0 X=$E($P(Y(0),U,1),1,30) K DIC K:Y<0 X"
^DD(49,10,1,0)="^.1"
^DD(49,10,1,1,0)="49^AC"
^DD(49,10,1,1,1)="S ^DIC(49,""AC"",$E(X,1,30),DA)="""""
^DD(49,10,1,1,2)="K ^DIC(49,""AC"",$E(X,1,30),DA)"
^DD(49,10,1,2,0)="49^AD^MUMPS"
^DD(49,10,1,2,1)="S ^DIC(49,""AD"",+X,DA)="""""
^DD(49,10,1,2,2)="K ^DIC(49,""AD"",+X,DA)"
^DD(49,10,1,2,"%D",0)="^^5^5^2950202^"
^DD(49,10,1,2,"%D",1,0)="This cross-reference represents the numeric value of cost"
^DD(49,10,1,2,"%D",2,0)="centers.  Leading zeros will be removed in setting this"
^DD(49,10,1,2,"%D",3,0)="cross-reference."
^DD(49,10,1,2,"%D",4,0)="The reference is ^DIC(49,""AD"",COST CENTER,DA)="""""
^DD(49,10,1,2,"%D",5,0)=""
^DD(49,10,3)="ANSWER MUST BE A 6-DIGIT COST CENTER # OR NAME.  IT MUST BE ONE OF THOSE DEFINED IN THE IFCAP COST CENTER FILE # 420.1.  THIS ONLY APPLIES TO MANAGEMENT INFORMATION SYSTEM COSTING SECTIONS."
^DD(49,10,4)="S DIC=""^PRCD(420.1,"",DIC(0)=""QEM"",X=""?"" D ^DIC K DIC"
^DD(49,10,21,0)="^^3^3^2941227^^"
^DD(49,10,21,1,0)="This field contains the cost center name for this service section."
^DD(49,10,21,2,0)="The cost center must be defined in the IFCAP Cost Center File"
^DD(49,10,21,3,0)="420.1."
^DD(49,10,"DT")="2881012"
^DD(49,11,0)="TYPE OF COSTING SECTION^S^A:ADMINISTRATIVE;S:SUB-SPECIALTY ADMINISTRATIVE;O:OFF-STATION;N:NON-ADMINISTRATIVE;^2;3^Q"
^DD(49,11,3)="TYPE 'A', 'S', 'O', 'N', OR LEAVE BLANK TO IMPLY 'N'.  THIS ONLY APPLIES TO MANAGEMENT INFORMATION SYSTEM COSTING SECTIONS.  IF THIS IS NOT AN MIS SECTION, LEAVE BLANK."
^DD(49,11,21,0)="^^2^2^2910722^"
^DD(49,11,21,1,0)="This field contains the type of management information cost accounting"
^DD(49,11,21,2,0)="section for this service or section."
^DD(49,11,"DT")="2870225"
^DD(49,12,0)="AMBULATORY CARE FLAG^S^Y:AMBULATORY CARE;N:NOT AMBULATORY CARE;^2;4^Q"
^DD(49,12,3)="TYPE 'Y', 'N', OR LEAVE BLANK TO IMPLY 'N'.  THIS ONLY APPLIES TO MANAGEMENT INFORMATION SYSTEM COSTING SECTIONS WHICH ARE IN THE MEDICINE COST CENTER.  IT WILL IDENTIFY AMBULATORY CARE SECTIONS."
^DD(49,12,21,0)="^^2^2^2910722^"
^DD(49,12,21,1,0)="This field contains the ambulatory care flag.  Yes or No for this"
^DD(49,12,21,2,0)="sertice or section."
^DD(49,12,"DT")="2870225"
^DD(49,13,0)="DATE CLOSED^49.07D^^3;0"
^DD(49,13,21,0)="^^1^1^2910722^"
^DD(49,13,21,1,0)="This field contains date(s) when this service or section closed."
^DD(49,730,0)="NATIONAL SERVICE^*P730'^ECC(730,^730;1^S DIC(""S"")=""I $P(^(0),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(49,730,1,0)="^.1"
^DD(49,730,1,1,0)="49^A1"
^DD(49,730,1,1,1)="S ^DIC(49,""A1"",$E(X,1,30),DA)="""""
^DD(49,730,1,1,2)="K ^DIC(49,""A1"",$E(X,1,30),DA)"
^DD(49,730,1,2,0)="49^A2^MUMPS"
^DD(49,730,1,2,1)="S ^DIC(49,""A2"",DA,X)="""""
^DD(49,730,1,2,2)="K ^DIC(49,""A2"",DA,X)"
^DD(49,730,1,2,"%D",0)="^^4^4^2950202^"
^DD(49,730,1,2,"%D",1,0)="This cross-reference represents a pointer to the"
^DD(49,730,1,2,"%D",2,0)="NATIONAL SERVICE file (#730)."
^DD(49,730,1,2,"%D",3,0)="The reference is ^DIC(49,""AD"",DA,NATIONAL SERVICE)="""""
^DD(49,730,1,2,"%D",4,0)=""
^DD(49,730,3)="Choose the nationally recognized service that this service matches."
^DD(49,730,12)="Allow only locally active services"
^DD(49,730,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)"""
^DD(49,730,21,0)="^^3^3^2901202^^"
^DD(49,730,21,1,0)="This field is a pointer to the National Service File #730, and is"
^DD(49,730,21,2,0)="used to link the locally built 'Service/Section' file to the"
^DD(49,730,21,3,0)="standardized list of nationally recognized services."
^DD(49,730,"DT")="2901116"
^DD(49,16000,0)="COORDINATOR (IRM)^P200'^VA(200,^16000;1^Q"
^DD(49,16000,1,0)="^.1"
^DD(49,16000,1,1,0)="49^AE"
^DD(49,16000,1,1,1)="S ^DIC(49,""AE"",$E(X,1,30),DA)="""""
^DD(49,16000,1,1,2)="K ^DIC(49,""AE"",$E(X,1,30),DA)"
^DD(49,16000,1,1,3)="BUILT BY DBA MERGE UTILITY"
^DD(49,16000,1,1,"DT")="2941205"
^DD(49,16000,21,0)="^^2^2^2920224^"
^DD(49,16000,21,1,0)="This field is used by kernel to link a NEW PERSON entry through the"
^DD(49,16000,21,2,0)="service/section pointer back to a New Person entry for access help."
^DD(49,16000,"DT")="2941205"
^DD(49,"B","ABBREVIATION",1)=""
^DD(49,"B","AMBULATORY CARE FLAG",12)=""
^DD(49,"B","ASST CHIEF",4)=""
^DD(49,"B","ASST CHIEF PHONE",5)=""
^DD(49,"B","CHIEF",2)=""
^DD(49,"B","CHIEF PHONE",3)=""
^DD(49,"B","COORDINATOR (IRM)",16000)=""
^DD(49,"B","COST CENTER",10)=""
^DD(49,"B","DATE CLOSED",13)=""
^DD(49,"B","DESCRIPTION",1.3)=""
^DD(49,"B","LOCATION",6)=""
^DD(49,"B","MAIL SYMBOL",1.5)=""
^DD(49,"B","MIS COSTING CODE",9)=""
^DD(49,"B","NAME",.01)=""
^DD(49,"B","NATIONAL SERVICE",730)=""
^DD(49,"B","PARENT SERVICE",1.6)=""
^DD(49,"B","TYPE OF COSTING SECTION",11)=""
^DD(49,"B","TYPE OF SERVICE",1.7)=""
^DD(49,"GL",0,1,.01)=""
^DD(49,"GL",0,2,1)=""
^DD(49,"GL",0,3,2)=""
^DD(49,"GL",0,4,1.6)=""
^DD(49,"GL",0,5,4)=""
^DD(49,"GL",0,7,6)=""
^DD(49,"GL",0,8,1.5)=""
^DD(49,"GL",0,9,1.7)=""
^DD(49,"GL",1,0,1.3)=""
^DD(49,"GL",2,1,9)=""
^DD(49,"GL",2,2,10)=""
^DD(49,"GL",2,3,11)=""
^DD(49,"GL",2,4,12)=""
^DD(49,"GL",3,0,13)=""
^DD(49,"GL",730,1,730)=""
^DD(49,"GL",16000,1,16000)=""
^DD(49,"GL","APH",0,5)=""
^DD(49,"GL","PH",0,3)=""
^DD(49,"IX",.01)=""
^DD(49,"IX",1)=""
^DD(49,"IX",1.5)=""
^DD(49,"IX",1.6)=""
^DD(49,"IX",1.7)=""
^DD(49,"IX",9)=""
^DD(49,"IX",10)=""
^DD(49,"IX",730)=""
^DD(49,"IX",16000)=""
^DD(49,"RQ",.01)=""
^DD(49,"SB",49.04,3)=""
^DD(49,"SB",49.05,5)=""
^DD(49,"SB",49.06,1.3)=""
^DD(49,"SB",49.07,13)=""
^DD(49.04,0)="CHIEF PHONE SUB-FIELD^NL^.01^1"
^DD(49.04,0,"NM","CHIEF PHONE")=""
^DD(49.04,0,"UP")="49"
^DD(49.04,.01,0)="CHIEF PHONE^MF^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(49.04,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(49.04,.01,21,0)="^^2^2^2910722^"
^DD(49.04,.01,21,1,0)="This field contains a telephone number for the  chief of this"
^DD(49.04,.01,21,2,0)="service or section."
^DD(49.04,"B","CHIEF PHONE",.01)=""
^DD(49.04,"GL",0,1,.01)=""
^DD(49.05,0)="ASST CHIEF PHONE SUB-FIELD^NL^.01^1"
^DD(49.05,0,"NM","ASST CHIEF PHONE")=""
^DD(49.05,0,"UP")="49"
^DD(49.05,.01,0)="ASST CHIEF PHONE^MF^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(49.05,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(49.05,.01,21,0)="^^2^2^2910722^"
^DD(49.05,.01,21,1,0)="This field contains a telephone number for the assistant chie of this"
^DD(49.05,.01,21,2,0)="service or section."
^DD(49.05,"B","ASST CHIEF PHONE",.01)=""
^DD(49.05,"GL",0,1,.01)=""
^DD(49.06,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(49.06,0,"NM","DESCRIPTION")=""
^DD(49.06,0,"UP")="49"
^DD(49.06,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(49.06,.01,"DT")="2870225"
^DD(49.06,"B","DESCRIPTION",.01)=""
^DD(49.06,"GL",0,1,.01)=""
^DD(49.07,0)="DATE CLOSED SUB-FIELD^^1^2"
^DD(49.07,0,"NM","DATE CLOSED")=""
^DD(49.07,0,"UP")="49"
^DD(49.07,.01,0)="DATE CLOSED^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=X K:Y<1 X,DINUM"
^DD(49.07,.01,3)="THIS SUB-FILE IS USED TO STORE HISTORICAL INFORMATION ABOUT SECTIONS THAT ARE CLOSED AND THEN RE-OPENED.  TYPE THE DATE THAT THIS SECTION WAS CLOSED."
^DD(49.07,.01,21,0)="^^2^2^2910722^"
^DD(49.07,.01,21,1,0)="This field contains a date/time when this service or section closed for"
^DD(49.07,.01,21,2,0)="hospital use."
^DD(49.07,.01,"DT")="2870225"
^DD(49.07,1,0)="DATE RE-OPENED^DX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S PRMLCDTE=$P(^DIC(49,D0,3,D1,0),U,1) K:X'>PRMLCDTE X K PRMLCDTE"
^DD(49.07,1,3)="TYPE THE DATE THIS SECTION WAS RE-OPENED AFTER IT WAS CLOSED."
^DD(49.07,1,21,0)="^^2^2^2910722^"
^DD(49.07,1,21,1,0)="This field contains a date/time when this closed service or section"
^DD(49.07,1,21,2,0)="was reopened for hospital use."
^DD(49.07,1,"DT")="2870225"
^DD(49.07,"B","DATE CLOSED",.01)=""
^DD(49.07,"B","DATE RE-OPENED",1)=""
^DD(49.07,"GL",0,1,.01)=""
^DD(49.07,"GL",0,2,1)=""
^DD(50,0)="FIELD^NL^623008^81"
^DD(50,0,"DDA")="N"
^DD(50,0,"DT")="3010904"
^DD(50,0,"ID",2)="W """""
^DD(50,0,"ID",6)="W """""
^DD(50,0,"ID",25)="S %I=Y,Y=$S('$D(^(""ND"")):"""",$D(^PS(50.605,+$P(^(""ND""),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50.605,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(50,0,"ID",51)="W:$P(^(0),""^"",9) ""   N/F"""
^DD(50,0,"ID",100)="W:$D(^(""I"")) ""   "",$E($P(^(""I""),U,1),4,5)_""-""_$E($P(^(""I""),U,1),6,7)_""-""_$E($P(^(""I""),U,1),2,3)"
^DD(50,0,"ID",101)="W:$P(^(0),""^"",10)]"""" ""   "",$P(^(0),U,10),$C(7)"
^DD(50,0,"ID",102)="W:$D(^(2)) ""   "",$P(^(2),U,2)"
^DD(50,0,"IX","AB",50.0441,.01)=""
^DD(50,0,"IX","AC",50,.01)=""
^DD(50,0,"IX","AC",50,2)=""
^DD(50,0,"IX","ACLOZ",50,17.5)=""
^DD(50,0,"IX","AD",50,100)=""
^DD(50,0,"IX","AE",50,2.1)=""
^DD(50,0,"IX","AEXP",50,17.1)=""
^DD(50,0,"IX","AF",50,3)=""
^DD(50,0,"IX","AFA",50.065,.01)=""
^DD(50,0,"IX","AG",50,213)=""
^DD(50,0,"IX","AH",50,901)=""
^DD(50,0,"IX","AI",50,100)=""
^DD(50,0,"IX","AIU",50,63)=""
^DD(50,0,"IX","AIUU",50,.01)=""
^DD(50,0,"IX","AJ",50,51)=""
^DD(50,0,"IX","AK",50,.01)=""
^DD(50,0,"IX","AND",50,20)=""
^DD(50,0,"IX","AOCC",50,2)=""
^DD(50,0,"IX","AP",50,64)=""
^DD(50,0,"IX","APC",50,64)=""
^DD(50,0,"IX","APCC",50,2)=""
^DD(50,0,"IX","APN",50,64)=""
^DD(50,0,"IX","APN1",50,20)=""
^DD(50,0,"IX","APN2",50,22)=""
^DD(50,0,"IX","AQ",50,213)=""
^DD(50,0,"IX","AQ1",50,27)=""
^DD(50,0,"IX","AQ2",50,28)=""
^DD(50,0,"IX","AR",50,100)=""
^DD(50,0,"IX","ASP",50,2.1)=""
^DD(50,0,"IX","AUDAP",50,.01)=""
^DD(50,0,"IX","AVSN",50.1,400)=""
^DD(50,0,"IX","B",50,.01)=""
^DD(50,0,"IX","C",50.1,.01)=""
^DD(50,0,"IX","DTXT",50.037,.01)=""
^DD(50,0,"IX","IU",50,63)=""
^DD(50,0,"IX","NDC",50,31)=""
^DD(50,0,"IX","VAC",50,25)=""
^DD(50,0,"IX","VAPN",50,21)=""
^DD(50,0,"IX","XATC",50,212.2)=""
^DD(50,0,"NM","DRUG")=""
^DD(50,0,"PT",50,62.05)=""
^DD(50,0,"PT",50,905)=""
^DD(50,0,"PT",50.065,.01)=""
^DD(50,0,"PT",50.07301,.01)=""
^DD(50,0,"PT",50.0731,2)=""
^DD(50,0,"PT",50.21,1)=""
^DD(50,0,"PT",50.9002,.01)=""
^DD(50,0,"PT",50.9003,.01)=""
^DD(50,0,"PT",50.9007,.01)=""
^DD(50,0,"PT",52,6)=""
^DD(50,0,"PT",52.41,11)=""
^DD(50,0,"PT",52.6,1)=""
^DD(50,0,"PT",52.7,1)=""
^DD(50,0,"PT",53.1,24)=""
^DD(50,0,"PT",53.11,.01)=""
^DD(50,0,"PT",53.2102,.01)=""
^DD(50,0,"PT",53.23,.01)=""
^DD(50,0,"PT",53.4502,.01)=""
^DD(50,0,"PT",53.68,.13)=""
^DD(50,0,"PT",53.78,.07)=""
^DD(50,0,"PT",53.795,.01)=""
^DD(50,0,"PT",55.05,1)=""
^DD(50,0,"PT",55.06,24)=""
^DD(50,0,"PT",55.0611,.02)=""
^DD(50,0,"PT",55.07,.01)=""
^DD(50,0,"PT",57.63,.01)=""
^DD(50,0,"PT",58.11,.01)=""
^DD(50,0,"PT",58.3,.01)=""
^DD(50,0,"PT",58.52,.01)=""
^DD(50,0,"PT",58.8001,.01)=""
^DD(50,0,"PT",58.81,4)=""
^DD(50,0,"PT",58.81125,1)=""
^DD(50,0,"PT",58.85,3)=""
^DD(50,0,"PT",58.86,1)=""
^DD(50,0,"PT",58.86,19)=""
^DD(50,0,"PT",58.87,4)=""
^DD(50,0,"PT",59,.52)=""
^DD(50,0,"PT",59.7,10.1)=""
^DD(50,0,"PT",59.7,70)=""
^DD(50,0,"PT",70.15,.01)=""
^DD(50,0,"PT",70.21,.01)=""
^DD(50,0,"PT",71.055,.01)=""
^DD(50,0,"PT",71.08,.01)=""
^DD(50,0,"PT",71.9,5)=""
^DD(50,0,"PT",100.1,.01)=""
^DD(50,0,"PT",120.8,1)=""
^DD(50,0,"PT",130.33,.01)=""
^DD(50,0,"PT",130.47,.01)=""
^DD(50,0,"PT",130.48,.01)=""
^DD(50,0,"PT",162.11,9)=""
^DD(50,0,"PT",351.61,4.01)=""
^DD(50,0,"PT",362.4,.04)=""
^DD(50,0,"PT",615.23,.01)=""
^DD(50,0,"PT",695,.01)=""
^DD(50,0,"PT",699.53,.01)=""
^DD(50,0,"PT",699.74,.01)=""
^DD(50,0,"PT",727.809,62)=""
^DD(50,0,"PT",727.819,67)=""
^DD(50,0,"PT",728.113,3)=""
^DD(50,0,"PT",728.904,3)=""
^DD(50,0,"PT",798.129,.01)=""
^DD(50,0,"PT",801.43,.02)=""
^DD(50,0,"PT",810.31,.04)=""
^DD(50,0,"PT",810.32,.01)=""
^DD(50,0,"PT",811.52,.01)=""
^DD(50,0,"PT",811.902,.01)=""
^DD(50,0,"PT",9009032.4,.05)=""
^DD(50,0,"VR")="1.0"
^DD(50,0,"VRPK")="PSS"
^DD(50,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50,.001,.1)=""
^DD(50,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(50,.001,20,0)="^.3LA^1^1"
^DD(50,.001,20,1,0)="PS"
^DD(50,.001,21,0)="^^1^1^2930316^"
^DD(50,.001,21,1,0)="This field contains the internal record number of the drug.  "
^DD(50,.01,0)="GENERIC NAME^RFXa^^0;1^D ^PSSGENM"
^DD(50,.01,1,0)="^.1"
^DD(50,.01,1,1,0)="50^B"
^DD(50,.01,1,1,1)="S ^PSDRUG(""B"",$E(X,1,40),DA)="""""
^DD(50,.01,1,1,2)="K ^PSDRUG(""B"",$E(X,1,40),DA)"
^DD(50,.01,1,2,0)="50^AC^MUMPS"
^DD(50,.01,1,2,1)="Q"
^DD(50,.01,1,2,2)="F PSI=1:1 I '$D(^PSDRUG(DA,900,PSI)) S ^PSDRUG(DA,900,PSI,0)=X_""^""_DT Q"
^DD(50,.01,1,2,3)="Do Not Delete!"
^DD(50,.01,1,2,"%D",0)="^^2^2^2970925^^"
^DD(50,.01,1,2,"%D",1,0)="This xref is used to update the Old Names field (#900)."
^DD(50,.01,1,2,"%D",2,0)="It is in the form of: ^PSDRUG(DA,900,IEN,0)"
^DD(50,.01,1,2,"DT")="2940223"
^DD(50,.01,1,3,0)="50^AUDAP^MUMPS"
^DD(50,.01,1,3,1)="I '$D(PSGINITF) S ^PSDRUG(""AUDAP"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(50,.01,1,3,1.1)="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$P(Y(1),U,1) S XMB(1)=X"
^DD(50,.01,1,3,1.2)="S X=Y(0) S Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_"":"",2),$C(59),1) S XMB(2)=X"
^DD(50,.01,1,3,1.3)="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) S XMB(3)=X"
^DD(50,.01,1,3,1.4)="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$P(Y(1),U,10) S XMB(4)=X"
^DD(50,.01,1,3,2)="Q"
^DD(50,.01,1,3,2.2)="S X=Y(0) S Y(2)=$C(59)_$S($D(^DD(50,51,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_"":"",2),$C(59),1) S XMB(2)=X"
^DD(50,.01,1,3,2.3)="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$S('$D(^PS(50.5,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1)) S XMB(3)=X"
^DD(50,.01,1,3,2.4)="S X=Y(0) S Y(1)=$S($D(^PSDRUG(D0,0)):^(0),1:"""") S X=$P(Y(1),U,10) S XMB(4)=X"
^DD(50,.01,1,3,3)="Used by the Unit Dose/Inpatient Medications packages."
^DD(50,.01,1,3,"%D",0)="^^5^5^2970926^^"
^DD(50,.01,1,3,"%D",1,0)="This is used by the post-init process of the Unit Dose/Inpatient Medication"
^DD(50,.01,1,3,"%D",2,0)="packages' inits. If this is not set, the post-init process will mark every"
^DD(50,.01,1,3,"%D",3,0)="entry for use with Inpatient Medications package through the APPLICATION"
^DD(50,.01,1,3,"%D",4,0)="PACKAGES' USE field."
^DD(50,.01,1,3,"%D",5,0)="In the form of: ^PSDRUG(""AUDAP"")"
^DD(50,.01,1,3,"CREATE PARAMETER #1")="GENERIC NAME"
^DD(50,.01,1,3,"CREATE PARAMETER #2")="NON-FORMULARY"
^DD(50,.01,1,3,"CREATE PARAMETER #3")="CLASSIFICATION"
^DD(50,.01,1,3,"CREATE PARAMETER #4")="MESSAGE"
^DD(50,.01,1,3,"CREATE VALUE")="PSZDRUGCHANGE"
^DD(50,.01,1,3,"DELETE PARAMETER #1")="OLD GENERIC NAME"
^DD(50,.01,1,3,"DELETE PARAMETER #2")="NON-FORMULARY"
^DD(50,.01,1,3,"DELETE PARAMETER #3")="CLASSIFICATION"
^DD(50,.01,1,3,"DELETE PARAMETER #4")="MESSAGE"
^DD(50,.01,1,3,"DELETE VALUE")="PSZDRUGCHANGE"
^DD(50,.01,1,4,0)="50^AIUU^MUMPS"
^DD(50,.01,1,4,1)="I $D(X),$P($G(^PSDRUG(DA,2)),""^"",3)]"""" F Y(2)=1:1:$L($P(^PSDRUG(DA,2),""^"",3)) S ^PSDRUG(""AIU""_$E($P(^PSDRUG(DA,2),""^"",3),Y(2)),X,DA)="""""
^DD(50,.01,1,4,2)="I $D(X),$P($G(^PSDRUG(DA,2)),""^"",3)]"""" F Y(2)=1:1:$L($P(^PSDRUG(DA,2),""^"",3)) K ^PSDRUG(""AIU""_$E($P(^PSDRUG(DA,2),""^"",3),Y(2)),X,DA)"
^DD(50,.01,1,4,3)="This xref is used to update the 'AIU' xref."
^DD(50,.01,1,4,"%D",0)="^^2^2^2970925^^^^"
^DD(50,.01,1,4,"%D",1,0)="This xref is used to keep the AIU xref in sync when the drug name is edited."
^DD(50,.01,1,4,"%D",2,0)="It is in the form of: ^PSDRUG(""AIU""_$P(^PSDRUG(DA,2),""^"",3),Y(2),DA)"
^DD(50,.01,1,4,"%D",3,0)="edited."
^DD(50,.01,1,4,"DT")="2940630"
^DD(50,.01,1,5,0)="50^AK^MUMPS"
^DD(50,.01,1,5,1)="Q"
^DD(50,.01,1,5,2)="Q"
^DD(50,.01,1,5,"%D",0)="^.101^8^8^3001019^^^^"
^DD(50,.01,1,5,"%D",1,0)="This cross reference is a place holder. A cross reference is being set in"
^DD(50,.01,1,5,"%D",2,0)="the form of ^PSDRUG(""A526"",Dispense Drug IEN,IV Additive IEN)="""". This is"
^DD(50,.01,1,5,"%D",3,0)="being set from the Generic Drug field (#1) of the IV ADDITIVES file (#52.6)."
^DD(50,.01,1,5,"%D",4,0)="Another cross reference is being set in the form of ^PSDRUG(""A527"",Dispense"
^DD(50,.01,1,5,"%D",5,0)="Drug IEN, IV Solution IEN)="""". This is being set from the Generic Drug"
^DD(50,.01,1,5,"%D",6,0)="field (#1) of the IV SOLUTIONS file (#52.7). This data will be used to"
^DD(50,.01,1,5,"%D",7,0)="maintain the Pharmacy Orderable Items when changes are made in other files"
^DD(50,.01,1,5,"%D",8,0)="that point to the PHARMACY ORDERABLE ITEM file (#50.7)."
^DD(50,.01,1,5,"DT")="3001019"
^DD(50,.01,3)="Answer must be 1-40 characters in length. GENERIC NAME cannot be edited if entry marked for CMOP."
^DD(50,.01,20,0)="^.3LA^^0"
^DD(50,.01,20,1,0)="PH"
^DD(50,.01,20,2,0)="PS"
^DD(50,.01,21,0)="^^3^3^2980407^^^^"
^DD(50,.01,21,1,0)="This is the generic name of the drug. In addition, if this entry is marked"
^DD(50,.01,21,2,0)="for CMOP transmission, the generic name cannot be edited unless it is"
^DD(50,.01,21,3,0)="UNmarked for CMOP transmission first."
^DD(50,.01,22)=""
^DD(50,.01,"AUDIT")="y"
^DD(50,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED!"","""",""!?10"")"
^DD(50,.01,"DEL",100,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED!"","""",""!?10"")"
^DD(50,.01,"DT")="3001019"
^DD(50,1,0)="AHFS NUMBER^CJ8X^^ ; ^S X=$P(^PSDRUG(D0,0),U,2),X=$J(X/100,7,2),X=$E(X,1,2)_"":""_$E(X,3,7)"
^DD(50,1,9)="^"
^DD(50,1,9.1)="S X=$P(^PSDRUG(D0,0),U,2)"
^DD(50,2,0)="VA CLASSIFICATION^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)<1!($L(X)>5) X I $D(X) K:$S($D(^PSDRUG(DA,""ND"")):+^(""ND""),1:0) X W:'$D(X) ""   Uneditable"" Q:'$D(X)  S DIC=""^PS(50.605,"",DIC(0)=""EQM"" D ^DIC K:Y<0 X S:Y>0 X=$P(Y,""^"",2)"
^DD(50,2,1,0)="^.1^^-1"
^DD(50,2,1,1,0)="50^AC^MUMPS"
^DD(50,2,1,1,1)="S X=$O(^PS(50.605,""B"",X,0)),$P(^PSDRUG(DA,""ND""),""^"",6)=X,^PSDRUG(""VAC"",X,DA)="""""
^DD(50,2,1,1,2)="I $D(^PSDRUG(DA,""ND"")) S X=+$P(^PSDRUG(DA,""ND""),""^"",6) K:$P(^PSDRUG(DA,""ND""),""^"",2)="""" ^PSDRUG(""VAC"",X,DA) K:$P(^PSDRUG(DA,""ND""),""^"",2)="""" ^PSDRUG(DA,""ND"")"
^DD(50,2,1,1,3)="SPECIAL CROSS-REFERENCE - DO NOT DELETE."
^DD(50,2,1,1,"%D",0)="^.101^4^4^3001020^^^^"
^DD(50,2,1,1,"%D",1,0)="This cross-reference stores the resolved pointer value from Field 25"
^DD(50,2,1,1,"%D",2,0)="(NATIONAL DRUG CLASS) which points to File 50.605. The kill logic is"
^DD(50,2,1,1,"%D",3,0)="only executed if the entry is not matched to NDF. It is in the form of:"
^DD(50,2,1,1,"%D",4,0)="^PSDRUG(""VAC"",X,DA)"
^DD(50,2,1,1,"DT")="3001020"
^DD(50,2,1,2,0)="50^APCC^MUMPS"
^DD(50,2,1,2,1)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",6) S:X(1) ^PSDRUG(""APC"",X(1),X,DA)="""""
^DD(50,2,1,2,2)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",6) K:X(1) ^PSDRUG(""APC"",X(1),X,DA)"
^DD(50,2,1,2,3)="Do not Delete!"
^DD(50,2,1,2,"%D",0)="^.101^2^2^3000504^^^^"
^DD(50,2,1,2,"%D",1,0)="  This cross reference is used as a link between Primary Drug and VA Class."
^DD(50,2,1,2,"%D",2,0)="  It is in the form of: ^PSDRUG(""APC"",X(1),X,DA)"
^DD(50,2,1,2,"DT")="2990505"
^DD(50,2,1,3,0)="50^AOCC^MUMPS"
^DD(50,2,1,3,1)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",1) S:X(1) ^PSDRUG(""AOC"",X(1),X,DA)="""""
^DD(50,2,1,3,2)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",1) K:X(1) ^PSDRUG(""AOC"",X(1),X,DA)"
^DD(50,2,1,3,3)="Do not Delete!"
^DD(50,2,1,3,"%D",0)="^^6^6^2990714^^^^"
^DD(50,2,1,3,"%D",1,0)=" This cross reference is used as a link between Pharmacy Orderable Item"
^DD(50,2,1,3,"%D",2,0)=" and VA Classification. Cross-reference created: ^PSDRUG(""AOC"",X(1),X,DA)"
^DD(50,2,1,3,"%D",3,0)=" "
^DD(50,2,1,3,"%D",4,0)="  X(1) => Orderable Item (IEN)"
^DD(50,2,1,3,"%D",5,0)="     X => VA Classification"
^DD(50,2,1,3,"%D",6,0)="    DA => Dispense Drug (IEN)"
^DD(50,2,1,3,"DT")="2990511"
^DD(50,2,3)="Enter the VA Classification."
^DD(50,2,4)="S DIC=""^PS(50.605,"",DIC(0)=""EQM"" D ^DIC"
^DD(50,2,5,1,0)="50^25^2"
^DD(50,2,20,0)="^.3LA^2^1"
^DD(50,2,20,1,0)="PH"
^DD(50,2,20,2,0)="PS"
^DD(50,2,21,0)="^.001^1^1^3011011^^^^"
^DD(50,2,21,1,0)="  This is the VA classification for this drug."
^DD(50,2,22)=""
^DD(50,2,23,0)="^.001^1^1^3011011^^^^"
^DD(50,2,23,1,0)="free text"
^DD(50,2,"DEL",2,0)="I $D(^PSDRUG(DA,""ND"")),+(""ND"") D EN^DDIOL(""Deletions are not allowed"")"
^DD(50,2,"DT")="3001020"
^DD(50,2.1,0)="PHARMACY ORDERABLE ITEM^P50.7X^PS(50.7,^2;1^I $D(X) N ND S ND=$G(^PSDRUG(DA,""ND"")) I +ND,+$P(ND,""^"",3),+$$PSJDF^PSNAPIS(0,$P(ND,""^"",3))'=$P(^PS(50.7,X,0),""^"",2) K X"
^DD(50,2.1,1,0)="^.1"
^DD(50,2.1,1,1,0)="50^ASP"
^DD(50,2.1,1,1,1)="S ^PSDRUG(""ASP"",$E(X,1,30),DA)="""""
^DD(50,2.1,1,1,2)="K ^PSDRUG(""ASP"",$E(X,1,30),DA)"
^DD(50,2.1,1,1,3)="Do not delete"
^DD(50,2.1,1,1,"%D",0)="^^1^1^2970925^^"
^DD(50,2.1,1,1,"%D",1,0)="Cross-reference to PHARMACY ORDERABLE ITEM file #50.7."
^DD(50,2.1,1,1,"DT")="2940818"
^DD(50,2.1,1,2,0)="50^AE^MUMPS"
^DD(50,2.1,1,2,1)="D SET1^PSSPOID1"
^DD(50,2.1,1,2,2)="D KILL1^PSSPOID1"
^DD(50,2.1,1,2,3)="(Do Not Delete)"
^DD(50,2.1,1,2,"%D",0)="^^19^19^3001026^"
^DD(50,2.1,1,2,"%D",1,0)="This cross reference is used to update the Pharmacy Orderable Item pointer"
^DD(50,2.1,1,2,"%D",2,0)="field (#15) in the IV ADDITIVES file (#52.6) and the Pharmacy Orderable"
^DD(50,2.1,1,2,"%D",3,0)="Item pointer field (#9) in the IV SOLUTIONS file (#52.7), for IV Additives"
^DD(50,2.1,1,2,"%D",4,0)="and IV Solutions that are matched to this Drug by the Generic Drug pointer"
^DD(50,2.1,1,2,"%D",5,0)="field (#1) in each of these files. Pharmacy Orderable Item pointers in"
^DD(50,2.1,1,2,"%D",6,0)="these two files must be the same as the Pharmacy Orderable Item pointer"
^DD(50,2.1,1,2,"%D",7,0)="for the Drug that the IV Additive or IV Solution is matched to. This cross"
^DD(50,2.1,1,2,"%D",8,0)="reference is also used to keep the Pharmacy Orderable Item entries in the"
^DD(50,2.1,1,2,"%D",9,0)="PHARMACY ORDERABLE ITEM file (#50.7) up to date with current information,"
^DD(50,2.1,1,2,"%D",10,0)="based on all active Drugs, IV Additives, and IV Solutions that are matched"
^DD(50,2.1,1,2,"%D",11,0)="to the Pharmacy Orderable Item. This information includes Inactivation"
^DD(50,2.1,1,2,"%D",12,0)="Date status, Non-Formulary status, Supply status, and Usage status. This"
^DD(50,2.1,1,2,"%D",13,0)="information is also sent to CPRS (Computerized Patient Record System) by"
^DD(50,2.1,1,2,"%D",14,0)="using the ""PS MFSEND OR"" protocol to update the corresponding Orderable"
^DD(50,2.1,1,2,"%D",15,0)="Item entry in the ORDERABLE ITEMS file (#101.43). The cross references"
^DD(50,2.1,1,2,"%D",16,0)="that are set and killed are:"
^DD(50,2.1,1,2,"%D",17,0)="^PS(50.7,""A50"",Pharmacy Orderable Item IEN,Dispense Drug IEN)="""","
^DD(50,2.1,1,2,"%D",18,0)="^PS(52.6,""AOI"",Pharmacy Orderable Item IEN,IV Additive IEN)="""","
^DD(50,2.1,1,2,"%D",19,0)="^PS(52.7,""AOI"",Pharmacy Orderable Item IEN,IV Solution IEN)=""""."
^DD(50,2.1,1,2,"DT")="3001018"
^DD(50,2.1,3)="Enter a PHARMACY ORDERABLE ITEM to tie this drug to."
^DD(50,2.1,20,0)="^.3LA^1^1"
^DD(50,2.1,20,1,0)="PSO"
^DD(50,2.1,21,0)="^^1^1^2941104^^"
^DD(50,2.1,21,1,0)="Name used by ORDER ENTRY/RESULTS REPORTING."
^DD(50,2.1,23,0)="^^1^1^2941104^^"
^DD(50,2.1,23,1,0)="Points to file #50.7."
^DD(50,2.1,"DT")="3001018"
^DD(50,3,0)="DEA, SPECIAL HDLG^FX^^0;3^K:$L(X)>6!($L(X)<1)!'(X?.N.U) X D EDIT^PSSDDUT2:$D(X)"
^DD(50,3,1,0)="^.1"
^DD(50,3,1,1,0)="50^AF^MUMPS"
^DD(50,3,1,1,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),""^"") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50,3,1,1,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),""^"") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50,3,1,1,3)="(Do Not Delete)"
^DD(50,3,1,1,"%D",0)="^^8^8^3001026^"
^DD(50,3,1,1,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(50,3,1,1,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(50,3,1,1,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(50,3,1,1,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(50,3,1,1,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(50,3,1,1,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(50,3,1,1,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(50,3,1,1,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(50,3,1,1,"DT")="3001017"
^DD(50,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(50,3,4)="D:X=""?"" DEA^PSSDDUT2 D:X?2.""?"" DEATBL^PSSDDUT2"
^DD(50,3,20,0)="^.3LA^1^1"
^DD(50,3,20,1,0)="PH"
^DD(50,3,20,2,0)="PSO"
^DD(50,3,21,0)="^^1^1^2970626^^^"
^DD(50,3,21,1,0)="This field is used to show the DEA Special Handling ."
^DD(50,3,23,0)="^^1^1^3070426^^^"
^DD(50,3,23,1,0)="free text"
^DD(50,3,"DT")="3070501"
^DD(50,4,0)="MAXIMUM DOSE PER DAY^NJ5,1^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(50,4,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(50,4,20,0)="^.3LA^1^1"
^DD(50,4,20,1,0)="PS"
^DD(50,4,21,0)="^^1^1^2921123^^"
^DD(50,4,21,1,0)="This field is used as a standard maximum dosage."
^DD(50,4,23,0)="^^1^1^2921110^"
^DD(50,4,23,1,0)="numeric"
^DD(50,4,"DT")="2891018"
^DD(50,5,0)="STANDARD SIG^FX^^0;5^K:$L(X)>60!($L(X)<2) X D:$D(X) SIG^PSSDDUT2 D:$D(X) EN^DDIOL(""  ""_""(""_$G(SIG)_"" )"","""",""?0"") K Z0,Z1,SIG"
^DD(50,5,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(50,5,4)="S DIC=51,DIC(0)=""Q"" D ^DIC S DIC=DIE"
^DD(50,5,9.2)=""
^DD(50,5,9.3)=""
^DD(50,5,20,0)="^.3LA^1^1"
^DD(50,5,20,1,0)="PS"
^DD(50,5,21,0)="^^1^1^2921123^^"
^DD(50,5,21,1,0)="This field is used as a standard default for medication instructions."
^DD(50,5,23,0)="^^1^1^2921123^^"
^DD(50,5,23,1,0)="free text"
^DD(50,5,"DT")="2970626"
^DD(50,6,0)="FSN^F^^0;6^K:$L(X)>20!($L(X)<5) X"
^DD(50,6,.1)="FEDERAL STOCK NUMBER"
^DD(50,6,3)="Answer must be 5-20 characters in length."
^DD(50,6,20,0)="^.3LA^1^1"
^DD(50,6,20,1,0)="PS"
^DD(50,6,20,2,0)="PS"
^DD(50,6,21,0)="^^1^1^2901026^^"
^DD(50,6,21,1,0)="  This is the federal stock number of this drug."
^DD(50,8,0)="WARNING LABEL^FX^^0;8^K:$L(X)>25!($L(X)<1)!'(X?.NP) X D:$D(X) DRUGW^PSSDDUT2 K Z0,Z1"
^DD(50,8,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(50,8,4)="S DIC=54,DIC(0)=""Q"" D ^DIC S DIC=DIE"
^DD(50,8,9.2)="F Z0=1:1 Q:$P(X,"","",Z0,99)=""""  S Z1=$P(X,"","",Z0) W:$D(^PS(54,Z1,0)) ?35,$P(^(0),U,1),! I '$D(^(0)) W ?35,""NO SUCH WARNING LABEL"" K X Q"
^DD(50,8,20,0)="^.3LA^1^1"
^DD(50,8,20,1,0)="PS"
^DD(50,8,21,0)="^^2^2^2990326^^^^"
^DD(50,8,21,1,0)="This field is used to indicate if a warning should be printed with the"
^DD(50,8,21,2,0)="selection of this drug."
^DD(50,8,"DT")="2990317"
^DD(50,8.1,0)="NEW WARNING LABEL LIST^FX^^WARN;1^K:$L(X)>30!($L(X)<1) X D VALID^PSSWRNE"
^DD(50,8.1,3)="Enter comma-delimited list of warnings from old and new files, following new file entries with an ""N""."
^DD(50,8.1,21,0)="^^2^2^3040409^"
^DD(50,8.1,21,1,0)="Enter a comma-delimited list of warning numbers from old and new warning "
^DD(50,8.1,21,2,0)="files, following new file entries with an ""N""."
^DD(50,8.1,23,0)="^^8^8^3040409^"
^DD(50,8.1,23,1,0)="If it is desired to use some warning labels from both the old RX CONSULT "
^DD(50,8.1,23,2,0)="file (#54) and the new WARNING LABEL-ENGLISH (#50.625) or WARNING "
^DD(50,8.1,23,3,0)="LABEL-SPANISH (#50.626) file, a comma delimited list with entries from "
^DD(50,8.1,23,4,0)="both files can be entered. Entries from the new warning label file must "
^DD(50,8.1,23,5,0)="be followed with an ""N"".  e.g. 22,5N,128N will print local warning number "
^DD(50,8.1,23,6,0)="22 from the RX CONSULT file (#54) followed by warnings 5 and 128 from the "
^DD(50,8.1,23,7,0)="new warning file (English or Spanish) when the PHARMACY SYSTEM file "
^DD(50,8.1,23,8,0)="(#59.7) WARNING LABEL SOURCE field (#16) is set to ""N"" for new."
^DD(50,8.1,"DT")="3040524"
^DD(50,8.2,0)="GENDER SPECIFIC LBLS ON ALL RX^S^Y:YES;N:NO;^WARN;2^Q"
^DD(50,8.2,3)="If a new warning is specific to one gender, set this field to ""N"" to print the warning only for patients of that gender."
^DD(50,8.2,21,0)="^^4^4^3041118^"
^DD(50,8.2,21,1,0)="If this field contains ""N"", warning labels that are marked with a SPECIFIC"
^DD(50,8.2,21,2,0)="TO GENDER value of ""M"" for Male or ""F"" for Female will only print for this"
^DD(50,8.2,21,3,0)="drug when the patient is that specific gender. If this field is null or "
^DD(50,8.2,21,4,0)="contains a ""Y"", then the warning will print for both genders."
^DD(50,8.2,23,0)="^^5^5^3041118^"
^DD(50,8.2,23,1,0)="If this field is answered ""N"", the SPECIFIC TO GENDER FIELD (#2) of the"
^DD(50,8.2,23,2,0)="WARNING LABEL-ENGLISH file (#50.625) or the WARNING LABEL-SPANISH file"
^DD(50,8.2,23,3,0)="(#50.626) will be examined and this warning will not print if the gender"
^DD(50,8.2,23,4,0)="is not the same as what the warning is specific for. If this field"
^DD(50,8.2,23,5,0)="contains a ""Y"" or is null, then the warning will print for both genders."
^DD(50,8.2,"DT")="3041118"
^DD(50,9,0)="SYNONYM^50.1A^^1;0"
^DD(50,9,20,0)="^.3LA^1^1"
^DD(50,9,20,1,0)="PH"
^DD(50,9,21,0)="^.001^5^5^3000524^^^^"
^DD(50,9,21,1,0)="This multiple contains the Synonym, NDC Code, Intended Use, VSN, Order "
^DD(50,9,21,2,0)="Unit, Price per Order Unit, Dispense Units per Order Unit, Price per "
^DD(50,9,21,3,0)="Dispense Unit, and Vendor fields. It is used for a quick code for look "
^DD(50,9,21,4,0)="ups or to locate NDCs to increment the drug's inventory when orders "
^DD(50,9,21,5,0)="are received."
^DD(50,11,0)="REORDER LEVEL^NJ4,0^^660;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(50,11,20,0)="^.3LA^1^1"
^DD(50,11,20,1,0)="PS"
^DD(50,11,21,0)="^^1^1^2921123^"
^DD(50,11,21,1,0)="This field is used to indicate the reorder level for this drug."
^DD(50,11,23,0)="^^1^1^2921123^"
^DD(50,11,23,1,0)="numeric"
^DD(50,12,0)="ORDER UNIT^P51.5'^DIC(51.5,^660;2^Q"
^DD(50,12,1,0)="^.1^^0"
^DD(50,12,3)="Enter the order unit for this drug."
^DD(50,12,20,0)="^.3LA^1^1"
^DD(50,12,20,1,0)="PS"
^DD(50,12,20,2,0)="PS"
^DD(50,12,21,0)="^^1^1^2901024^"
^DD(50,12,21,1,0)="  This is the order unit for this drug."
^DD(50,12,"AUDIT")=""
^DD(50,12,"DT")="2901110"
^DD(50,13,0)="PRICE PER ORDER UNIT^NJ7,2X^^660;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0)!(X?.E1"".""3.N) X"
^DD(50,13,.1)=""
^DD(50,13,1,0)="^.1^^-1"
^DD(50,13,1,1,0)="^^TRIGGER^50^16"
^DD(50,13,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,5)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(50,13,1,1,1.1) X ^DD(50,13,1,1,1.4)"
^DD(50,13,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=DIV,X=$S($P(Y(1),U,5):X/$P(Y(1),U,5),1:""*******""),Y(2)=X S X=1,Y(3)=X S X=4,X=$J(Y(2),Y(3),X)"
^DD(50,13,1,1,1.4)="S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(50,13,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y S X=DIV S X="""" X ^DD(50,13,1,1,2.4)"
^DD(50,13,1,1,2.4)="S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(50,13,1,1,"CREATE CONDITION")="#15>0"
^DD(50,13,1,1,"CREATE VALUE")="$J(#13/#15,1,4)"
^DD(50,13,1,1,"DELETE VALUE")="@"
^DD(50,13,1,1,"FIELD")="#16"
^DD(50,13,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits."
^DD(50,13,20,0)="^.3LA^1^1"
^DD(50,13,20,1,0)="PS"
^DD(50,13,21,0)="^^1^1^3060407^^"
^DD(50,13,21,1,0)="  This is the price per order unit for this drug."
^DD(50,13,"AUDIT")=""
^DD(50,13,"DT")="3060407"
^DD(50,14,0)="NORMAL AMOUNT TO ORDER^NJ3,0^^660;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50,14,3)="Type a whole Number between 0 and 999, 0 Decimal Digits."
^DD(50,14,20,0)="^.3LA^1^1"
^DD(50,14,20,1,0)="PS"
^DD(50,14,21,0)="^^1^1^2901024^"
^DD(50,14,21,1,0)="  This is the normal amount to order for this drug."
^DD(50,14,"DT")="2830307"
^DD(50,14.5,0)="DISPENSE UNIT^Fa^^660;8^K:$L(X)>10!($L(X)<1) X"
^DD(50,14.5,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(50,14.5,20,0)="^.3LA^1^1"
^DD(50,14.5,20,1,0)="PS"
^DD(50,14.5,21,0)="^^1^1^2901024^"
^DD(50,14.5,21,1,0)="  This is the dispense unit for this drug."
^DD(50,14.5,"AUDIT")="y"
^DD(50,14.5,"DEL",550,0)="N X S X=""PSXREF"" X ^%ZOSF(""TEST"") I $T D DISPUNIT^PSXREF"
^DD(50,14.5,"DT")="2940613"
^DD(50,15,0)="DISPENSE UNITS PER ORDER UNIT^NJ10,4^^660;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""5.N) X"
^DD(50,15,1,0)="^.1^^-1"
^DD(50,15,1,1,0)="^^TRIGGER^50^16"
^DD(50,15,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)>0 I X S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(50,15,1,1,1.1) X ^DD(50,15,1,1,1.4)"
^DD(50,15,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,3),X=$S(DIV:X/DIV,1:""*******""),Y(2)=X S X=1,Y(3)=X S X=4,X=$J(Y(2),Y(3),X)"
^DD(50,15,1,1,1.4)="S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(50,15,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y S X=DIV S X="""" X ^DD(50,15,1,1,2.4)"
^DD(50,15,1,1,2.4)="S DIH=$S($D(^PSDRUG(DIV(0),660)):^(660),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),^(660)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=50,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(50,15,1,1,"%D",0)="^^1^1^3000214^^"
^DD(50,15,1,1,"%D",1,0)=" "
^DD(50,15,1,1,"CREATE CONDITION")="#15>0"
^DD(50,15,1,1,"CREATE VALUE")="$J(#13/#15,1,4)"
^DD(50,15,1,1,"DELETE VALUE")="@"
^DD(50,15,1,1,"FIELD")="#16"
^DD(50,15,3)="Type a number between 1 and 99999, 4 Decimal Digits"
^DD(50,15,20,0)="^.3LA^1^1"
^DD(50,15,20,1,0)="PS"
^DD(50,15,21,0)="^^1^1^3000215^^^^"
^DD(50,15,21,1,0)="  This is the dispense units per order unit for this drug."
^DD(50,15,23,0)="^^1^1^3000215^"
^DD(50,15,23,1,0)=" "
^DD(50,15,"AUDIT")=""
^DD(50,15,"DT")="3001026"
^DD(50,16,0)="PRICE PER DISPENSE UNIT^NJ8,4^^660;6^K:+X'=X!(X>222)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50,16,.1)=""
^DD(50,16,1,0)="^.1^^0"
^DD(50,16,3)="Type a Number between 0 and 222, 4 Decimal Digits"
^DD(50,16,5,1,0)="50^13^1"
^DD(50,16,5,2,0)="50^15^1"
^DD(50,16,9)="@"
^DD(50,16,20,0)="^.3LA^1^1"
^DD(50,16,20,1,0)="PS"
^DD(50,16,21,0)="^^1^1^2940709^^^"
^DD(50,16,21,1,0)="  This is the price per dispense unit for this drug."
^DD(50,16,90)="^"
^DD(50,16,"DT")="2920716"
^DD(50,17,0)="SOURCE OF SUPPLY^F^^660;7^K:$L(X)>2!($L(X)<1)!'(X?1N.U) X"
^DD(50,17,3)=""
^DD(50,17,4)="D P^PSSDDUT2"
^DD(50,17,20,0)="^.3LA^1^1"
^DD(50,17,20,1,0)="PH"
^DD(50,17,20,2,0)="PS"
^DD(50,17,21,0)="^^2^2^2970626^^^^"
^DD(50,17,21,1,0)="This field is used to indicate the source of the supply for this medication/"
^DD(50,17,21,2,0)="supply."
^DD(50,17,23,0)="^^1^1^2970626^^^^"
^DD(50,17,23,1,0)="free text"
^DD(50,17,"DT")="2870729"
^DD(50,17.1,0)="EXPIRATION DATE^D^^660;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50,17.1,1,0)="^.1"
^DD(50,17.1,1,1,0)="50^AEXP"
^DD(50,17.1,1,1,1)="S ^PSDRUG(""AEXP"",$E(X,1,30),DA)="""""
^DD(50,17.1,1,1,2)="K ^PSDRUG(""AEXP"",$E(X,1,30),DA)"
^DD(50,17.1,1,1,"%D",0)="^.101^2^2^3030123^^^"
^DD(50,17.1,1,1,"%D",1,0)="This cross reference is used to index expiration date of the current drug"
^DD(50,17.1,1,1,"%D",2,0)="supply."
^DD(50,17.1,1,1,"DT")="2920303"
^DD(50,17.1,3)="Enter date that the current supply expires."
^DD(50,17.1,20,0)="^.3LA^1^1"
^DD(50,17.1,20,1,0)="PS"
^DD(50,17.1,21,0)="^.001^2^2^3030123^^^"
^DD(50,17.1,21,1,0)="This field is used to show the expiration date of the current supply of"
^DD(50,17.1,21,2,0)="available drugs."
^DD(50,17.1,"DT")="2920303"
^DD(50,17.2,0)="LAB TEST MONITOR^P60'X^LAB(60,^CLOZ;1^Q"
^DD(50,17.2,3)="Answer must be the lab test number or name."
^DD(50,17.2,21,0)="^^2^2^2931103^^^^"
^DD(50,17.2,21,1,0)="This is the lab test results which should be checked before this drug "
^DD(50,17.2,21,2,0)="is dispensed."
^DD(50,17.2,"DEL",17.2,0)="I $P($G(^PSDRUG(DA,""CLOZ1"")),""^"")=""PSOCLO1"" D CLOZ^PSSDDUT2"
^DD(50,17.2,"DT")="2931029"
^DD(50,17.3,0)="MONITOR MAX DAYS^NJ3,0X^^CLOZ;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50,17.3,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(50,17.3,21,0)="^^2^2^2931028^^^^"
^DD(50,17.3,21,1,0)="This is the number of days during which the results of the lab test are"
^DD(50,17.3,21,2,0)="of interest when dispensing this drug."
^DD(50,17.3,"DEL",17.3,0)="I $P($G(^PSDRUG(DA,""CLOZ1"")),""^"")=""PSOCLO1"" D CLOZ^PSSDDUT2"
^DD(50,17.3,"DT")="2931029"
^DD(50,17.4,0)="SPECIMEN TYPE^P61'X^LAB(61,^CLOZ;3^Q"
^DD(50,17.4,3)="Answer with the topography field number or name."
^DD(50,17.4,21,0)="^^1^1^2931028^^^"
^DD(50,17.4,21,1,0)="This is the specimen type on which the lab test should be run."
^DD(50,17.4,"DEL",17.4,0)="I $P($G(^PSDRUG(DA,""CLOZ1"")),""^"")=""PSOCLO1"" D CLOZ^PSSDDUT2"
^DD(50,17.4,"DT")="2931029"
^DD(50,17.5,0)="MONITOR ROUTINE^F^^CLOZ1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<3) X"
^DD(50,17.5,1,0)="^.1"
^DD(50,17.5,1,1,0)="50^ACLOZ^MUMPS"
^DD(50,17.5,1,1,1)="S:X=""PSOCLO1"" ^PSDRUG(""ACLOZ"",DA)="""""
^DD(50,17.5,1,1,2)="K ^PSDRUG(""ACLOZ"",DA)"
^DD(50,17.5,1,1,3)="DO NOT DELETE !"
^DD(50,17.5,1,1,"%D",0)="^.101^3^3^3030123^^^^"
^DD(50,17.5,1,1,"%D",1,0)="This cross reference is used for quick lookups on drugs identified as drugs"
^DD(50,17.5,1,1,"%D",2,0)="used in the Clozapine study."
^DD(50,17.5,1,1,"%D",3,0)="It is in the form of: ^PSDRUG(""ACLOZ"",DA)"
^DD(50,17.5,1,1,"DT")="2930201"
^DD(50,17.5,3)="Answer must be 3-8 characters in length."
^DD(50,17.5,21,0)="^^2^2^2930104^^"
^DD(50,17.5,21,1,0)="This is the name of the routine which is called to do all necessary"
^DD(50,17.5,21,2,0)="checking on lab test results before dispensing this drug."
^DD(50,17.5,"DT")="2930201"
^DD(50,17.6,0)="LAB MONITOR MARK^S^1:YES;^CLOZ1;2^Q"
^DD(50,17.6,21,0)="^^1^1^2970425^"
^DD(50,17.6,21,1,0)="This field is set to ""1"" if the drug is marked for Lab Monitor purposes."
^DD(50,17.6,"DT")="2970425"
^DD(50,17.7,0)="CLOZAPINE LAB TEST^50.02P^^CLOZ2;0"
^DD(50,18,0)="INV ORDER UNITS^CJ8,2^^ ; ^S Y(18,2)=$S($D(^PSDRUG(D0,660)):^(660),1:""""),Y(18,1)=$S($D(^(660.1)):^(660.1),1:"""") S X=$P(Y(18,1),U,1),X=$S($P(Y(18,2),U,5):X/$P(Y(18,2),U,5),1:""*******"") S X=$J(X,0,2)"
^DD(50,18,9)="^"
^DD(50,18,9.1)="#50/#15"
^DD(50,18,20,0)="^.3LA^1^1"
^DD(50,18,20,1,0)="PS"
^DD(50,18,21,0)="^^1^1^2901024^"
^DD(50,18,21,1,0)="  This is the inventory order units for this drug."
^DD(50,20,0)="NATIONAL DRUG FILE ENTRY^P50.6^PSNDF(50.6,^ND;1^Q"
^DD(50,20,1,0)="^.1^^0"
^DD(50,20,1,1,0)="50^APN1^MUMPS"
^DD(50,20,1,1,1)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",6) I X(1) S X(2)=$P($G(^(""ND"")),""^"",3) I X(2)]"""" S ^PSDRUG(""APN"",X(1),X_""A""_X(2),DA)="""""
^DD(50,20,1,1,2)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",6) I X(1) S X(2)=$P($G(^(""ND"")),""^"",3) I X(2)]"""" K ^PSDRUG(""APN"",X(1),X_""A""_X(2),DA)"
^DD(50,20,1,1,3)="Needed by Inpatient Medications."
^DD(50,20,1,1,"%D",0)="^^2^2^2910807^"
^DD(50,20,1,1,"%D",1,0)="  Used by Inpatient Medications as a gateway from Primary Drug to National"
^DD(50,20,1,1,"%D",2,0)="Drug File."
^DD(50,20,1,1,"%D",3,0)="It is in the form of: ^PSDRUG(""AND"",$E(X,1,30),DA)"
^DD(50,20,1,1,"DT")="2910807"
^DD(50,20,1,2,0)="50^AND"
^DD(50,20,1,2,1)="S ^PSDRUG(""AND"",$E(X,1,30),DA)="""""
^DD(50,20,1,2,2)="K ^PSDRUG(""AND"",$E(X,1,30),DA)"
^DD(50,20,1,2,"%D",0)="^^1^1^3000202^"
^DD(50,20,1,2,"%D",1,0)=" "
^DD(50,20,1,2,"DT")="2950104"
^DD(50,20,3)="Enter the corresponding National Drug File entry."
^DD(50,20,8.5)="^"
^DD(50,20,9)="^"
^DD(50,20,20,0)="^.3LA^1^1"
^DD(50,20,20,1,0)="PSN"
^DD(50,20,21,0)="^.001^1^1^3000517^^^^"
^DD(50,20,21,1,0)="This is the pointer to the National Drug file (^PSNDF)."
^DD(50,20,23,0)="^^1^1^3000517^"
^DD(50,20,23,1,0)=" "
^DD(50,20,"DT")="3000215"
^DD(50,21,0)="VA PRODUCT NAME^F^^ND;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>70!($L(X)<1) X"
^DD(50,21,1,0)="^.1"
^DD(50,21,1,1,0)="50^VAPN"
^DD(50,21,1,1,1)="S ^PSDRUG(""VAPN"",$E(X,1,30),DA)="""""
^DD(50,21,1,1,2)="K ^PSDRUG(""VAPN"",$E(X,1,30),DA)"
^DD(50,21,1,1,"DT")="2930730"
^DD(50,21,3)="Answer must be 1-70 characters in length."
^DD(50,21,8.5)="^"
^DD(50,21,9)="^"
^DD(50,21,20,0)="^.3LA^1^1"
^DD(50,21,20,1,0)="PSN"
^DD(50,21,21,0)="^^1^1^2901030^^"
^DD(50,21,21,1,0)="This is the VA Product Name matched to in the National Drug file."
^DD(50,21,"DT")="2930730"
^DD(50,22,0)="PSNDF VA PRODUCT NAME ENTRY^P50.68O^PSNDF(50.68,^ND;3^Q"
^DD(50,22,1,0)="^.1^^0"
^DD(50,22,1,1,0)="50^APN2^MUMPS"
^DD(50,22,1,1,1)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",6) I X(1) S X(2)=$P($G(^(""ND"")),""^"") I X(2)]"""" S ^PSDRUG(""APN"",X(1),X(2)_""A""_X,DA)="""""
^DD(50,22,1,1,2)="S X(1)=$P($G(^PSDRUG(DA,2)),""^"",6) I X(1) S X(2)=$P($G(^(""ND"")),""^"") I X(2)]"""" K ^PSDRUG(""APN"",X(1),X(2)_""A""_X,DA)"
^DD(50,22,1,1,3)="Needed by Inpatient Medications"
^DD(50,22,1,1,"%D",0)="^^2^2^2910807^"
^DD(50,22,1,1,"%D",1,0)="  Used by Inpatient Medications as a gateway from Primary Drug to National"
^DD(50,22,1,1,"%D",2,0)="Drug File."
^DD(50,22,1,1,"DT")="2910807"
^DD(50,22,2)="S Y(0)=Y D FORM^PSNOUT"
^DD(50,22,2.1)="D FORM^PSNOUT"
^DD(50,22,3)=""
^DD(50,22,8.5)="^"
^DD(50,22,9)="^"
^DD(50,22,20,0)="^.3LA^1^1"
^DD(50,22,20,1,0)="PSN"
^DD(50,22,21,0)="^^1^1^2980919^^"
^DD(50,22,21,1,0)="This is the pointer to the VA Product file in the National Drug File package."
^DD(50,22,"DT")="2980919"
^DD(50,23,0)="PACKAGE SIZE^P50.609^PS(50.609,^ND;4^Q"
^DD(50,23,3)="Enter a package size for this drug."
^DD(50,23,8.5)="^"
^DD(50,23,9)="^"
^DD(50,23,20,0)="^.3LA^1^1"
^DD(50,23,20,1,0)="PSN"
^DD(50,23,21,0)="^^1^1^2901030^^^^"
^DD(50,23,21,1,0)="This is the pointer to the Package Size file."
^DD(50,23,"DT")="2871209"
^DD(50,24,0)="PACKAGE TYPE^P50.608^PS(50.608,^ND;5^Q"
^DD(50,24,3)="Enter a package type for this drug."
^DD(50,24,8.5)="^"
^DD(50,24,9)="^"
^DD(50,24,20,0)="^.3LA^1^1"
^DD(50,24,20,1,0)="PSN"
^DD(50,24,21,0)="^^1^1^2901030^^^"
^DD(50,24,21,1,0)="This is the pointer to the Package Type file."
^DD(50,24,"DT")="2871209"
^DD(50,25,0)="NATIONAL DRUG CLASS^P50.605'^PS(50.605,^ND;6^Q"
^DD(50,25,.1)="VA DRUG CLASS POINTER"
^DD(50,25,1,0)="^.1"
^DD(50,25,1,1,0)="50^VAC"
^DD(50,25,1,1,1)="S ^PSDRUG(""VAC"",$E(X,1,30),DA)="""""
^DD(50,25,1,1,2)="K ^PSDRUG(""VAC"",$E(X,1,30),DA)"
^DD(50,25,1,1,3)="DO NOT DELETE"
^DD(50,25,1,1,"%D",0)="^^2^2^2930224^"
^DD(50,25,1,1,"%D",1,0)="This cross-reference stores the pointer to the VA Drug Class file. This is"
^DD(50,25,1,1,"%D",2,0)="used for look-up purposes."
^DD(50,25,1,1,"DT")="2920323"
^DD(50,25,1,2,0)="^^TRIGGER^50^2"
^DD(50,25,1,2,1)="S X=$P(^PS(50.605,X,0),U),DIU=$S($D(^PSDRUG(DA,0)):$P(^(0),U,2),1:"""") I X'=DIU S $P(^(0),U,2)=X I $O(^DD(50,2,1,0)) K DIV,Y S DIV=X,(D0,DIV(0))=DA,DIH=50,DIG=2 D ^DICR"
^DD(50,25,1,2,2)="S DIU=$S($D(^PSDRUG(DA,0)):$P(^(0),U,2),1:"""") I DIU]"""" S $P(^(0),U,2)="""" I $O(^DD(50,2,1,0)) K DIV,Y S (DIV,X)="""",(D0,DIV(0))=DA,DIH=50,DIG=2 D ^DICR"
^DD(50,25,1,2,3)="SPECIAL TRIGGER - DO NOT DELETE."
^DD(50,25,1,2,"CREATE CONDITION")="S (DIV,X)=$P(^PS(50.605,X,0),""^"")"
^DD(50,25,1,2,"CREATE VALUE")="VA DRUG CLASS"
^DD(50,25,1,2,"DELETE VALUE")="@"
^DD(50,25,1,2,"FIELD")="#2"
^DD(50,25,3)="Enter a VA Drug Class for this drug."
^DD(50,25,5,1,0)="50^2^1"
^DD(50,25,8.5)="^"
^DD(50,25,9)="^"
^DD(50,25,20,0)="^.3LA^2^2"
^DD(50,25,20,1,0)="PSN"
^DD(50,25,20,2,0)="PS"
^DD(50,25,21,0)="^^1^1^2901220^^^^"
^DD(50,25,21,1,0)="This is the pointer to the VA Drug Class file."
^DD(50,25,"DT")="2920323"
^DD(50,26,0)="VA DRUG CLASS CODE^CJ40^^ ; ^X ^DD(50,26,9.3) S:X]"""" X=$P(X,U)_""  ""_$P(X,U,2) S D0=Y(50,26,80)"
^DD(50,26,9)="^"
^DD(50,26,9.01)="50^2;50^25"
^DD(50,26,9.1)="NATIONAL DRUG CLASS_""  ""_NATIONAL DRUG CLASS:CLASSIF"
^DD(50,26,9.2)="S Y(50,26,80)=$S($D(D0):D0,1:""""),Y(50,26,3)=$S($D(^PSDRUG(D0,0)):^(0),1:""""),Y(50,26,1)=$S($D(^(""ND"")):^(""ND""),1:"""")"
^DD(50,26,9.3)="X ^DD(50,26,9.2) S X=$S('$D(^PS(50.605,+$P(Y(50,26,1),U,6),0)):"""",1:^(0)) S:'$D(^PS(50.605,+D0,0)) D0=-1"
^DD(50,26,20,0)="^.3LA^1^1"
^DD(50,26,20,1,0)="PSN"
^DD(50,26,21,0)="^^1^1^2901026^"
^DD(50,26,21,1,0)="This is the VA Drug Class Code along with the description of that class."
^DD(50,26,"DT")="2890110"
^DD(50,27,0)="CMOP ID^F^^ND;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(50,27,.1)="OLD PSNDF"
^DD(50,27,1,0)="^.1"
^DD(50,27,1,1,0)="50^AQ1"
^DD(50,27,1,1,1)="S ^PSDRUG(""AQ1"",$E(X,1,30),DA)="""""
^DD(50,27,1,1,2)="K ^PSDRUG(""AQ1"",$E(X,1,30),DA)"
^DD(50,27,1,1,3)="DO NOT DELETE"
^DD(50,27,1,1,"%D",0)="^^1^1^2940421^"
^DD(50,27,1,1,"%D",1,0)="This cross-reference contains the CMOP ID."
^DD(50,27,1,1,"DT")="2940421"
^DD(50,27,3)="Answer must be 1-5 characters in length."
^DD(50,27,8.5)="^"
^DD(50,27,9)="^"
^DD(50,27,20,0)="^.3LA^1^1"
^DD(50,27,20,1,0)="PSN"
^DD(50,27,21,0)="^^1^1^2940421^^"
^DD(50,27,21,1,0)="This field contains the VA CMOP National Identifier from NDF."
^DD(50,27,"DT")="2940421"
^DD(50,28,0)="OP EXTERNAL DISPENSE^S^1:YES;0:NO;^6;1^Q"
^DD(50,28,1,0)="^.1"
^DD(50,28,1,1,0)="50^AQ2^MUMPS"
^DD(50,28,1,1,1)="S:X=1 ^PSDRUG(""AQ2"",DA)="""""
^DD(50,28,1,1,2)="K ^PSDRUG(""AQ2"",DA)"
^DD(50,28,1,1,3)="DO NOT DELETE"
^DD(50,28,1,1,"%D",0)="^^4^4^2970925^^"
^DD(50,28,1,1,"%D",1,0)="This cross-reference is present if the drug file entry is matched to NDF,"
^DD(50,28,1,1,"%D",2,0)="has a CMOP ID, and has been marked to send to an external interface"
^DD(50,28,1,1,"%D",3,0)="dispensing machine."
^DD(50,28,1,1,"%D",4,0)="It is in the form of: ^PSDRUG(""AQ2"",DA)"
^DD(50,28,1,1,"DT")="2970313"
^DD(50,28,8.5)="^"
^DD(50,28,9)="^"
^DD(50,28,21,0)="^^2^2^2970313^"
^DD(50,28,21,1,0)="Indicates if this drug may be dispensed to an external interface dispensing"
^DD(50,28,21,2,0)="machine."
^DD(50,28,23,0)="^^1^1^2970313^"
^DD(50,28,23,1,0)="Set of codes."
^DD(50,28,"DT")="2970313"
^DD(50,29,0)="NATIONAL FORMULARY INDICATOR^S^1:YES;0:NO;^ND;11^Q"
^DD(50,29,3)="Enter a '1' if this drug is to be on the National Formulary or a '0' if this drug is not on the National Formulary."
^DD(50,29,8.5)="^"
^DD(50,29,9)="^"
^DD(50,29,21,0)="^^4^4^2990907^"
^DD(50,29,21,1,0)="This field will be used to determine whether this drug is on the National"
^DD(50,29,21,2,0)="Formulary. Data will be maintained at the national level. This field will"
^DD(50,29,21,3,0)="be populated during the NDF matching process. The data cannot be edited at"
^DD(50,29,21,4,0)="the local level."
^DD(50,29,"DT")="2990907"
^DD(50,31,0)="NDC^FX^^2;4^K:$L(X)>20!($L(X)<5)!'((X?4N1""-""4N1""-""2N)!(X?5N1""-""3N1""-""2N)!(X?5N1""-""4N1""-""1N)!(X?5N1""-""4N1""-""2N)!(X?6N1""-""4N1""-""2N)) X"
^DD(50,31,1,0)="^.1"
^DD(50,31,1,1,0)="50^NDC^MUMPS"
^DD(50,31,1,1,1)="S ^PSDRUG(""NDC"",$$RJ^XLFSTR($P(X,""-""),6,0)_$$RJ^XLFSTR($P(X,""-"",2),4,0)_$$RJ^XLFSTR($P(X,""-"",3),2,0),DA)="""""
^DD(50,31,1,1,2)="K ^PSDRUG(""NDC"",$$RJ^XLFSTR($P(X,""-""),6,0)_$$RJ^XLFSTR($P(X,""-"",2),4,0)_$$RJ^XLFSTR($P(X,""-"",3),2,0),DA)"
^DD(50,31,1,1,3)="DO NOT DELETE!//"
^DD(50,31,1,1,"%D",0)="^^4^4^2970926^^"
^DD(50,31,1,1,"%D",1,0)="This cross-reference is used as a lookup by DSS (Decision Support"
^DD(50,31,1,1,"%D",2,0)="System) software. The format of the cross-reference is intended to"
^DD(50,31,1,1,"%D",3,0)="match the format of the DSS feeder keys used for DSS pharmacy extracts."
^DD(50,31,1,1,"%D",4,0)="In the form of: ^PSDRUG(""NDC"",12 Digit NDC(no ""-""),DA)"
^DD(50,31,1,1,"DT")="2960809"
^DD(50,31,3)="Answer with dashes in correct NDC format ( e.g., 4-4-2, 5-3-2, 5-4-1, 5-4-2, or 6-4-2)."
^DD(50,31,20,0)="^.3LA^1^1"
^DD(50,31,20,1,0)="PS"
^DD(50,31,21,0)="^^1^1^2930608^^^"
^DD(50,31,21,1,0)="This is the National Drug Code for this drug."
^DD(50,31,"DT")="2960809"
^DD(50,32,0)="NDC BY OUTPATIENT SITE^50.032P^^NDCOP;0"
^DD(50,37,0)="DRUG TEXT ENTRY^50.037P^^9;0"
^DD(50,40,0)="ACTION PROFILE MESSAGE (OP)^F^^PSO;1^K:$L(X)>120!($L(X)<1) X"
^DD(50,40,3)="Answer must be 1-120 characters in length."
^DD(50,40,20,0)="^.3LA^1^1"
^DD(50,40,20,1,0)="PSO"
^DD(50,40,21,0)="^^2^2^2960423^^"
^DD(50,40,21,1,0)="This message will be printed on the Outpatient action profile along"
^DD(50,40,21,2,0)="with the other information for each prescription for this drug."
^DD(50,40,23,0)="^^1^1^2960423^"
^DD(50,40,23,1,0)="free text."
^DD(50,40,"DT")="2960423"
^DD(50,50,0)="CURRENT INVENTORY^NJ8,0X^^660.1;1^K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"".""1.N) X"
^DD(50,50,3)="Enter Current Inventory Level."
^DD(50,50,20,0)="^.3LA^1^1"
^DD(50,50,20,1,0)="PS"
^DD(50,50,21,0)="^.001^1^1^3001030^^^^"
^DD(50,50,21,1,0)="This field contains the current number of the drug in stock."
^DD(50,50,"DT")="3001030"
^DD(50,51,0)="LOCAL NON-FORMULARY^SX^1:N/F;^0;9^I X,$O(^PSDRUG(""AFA"",DA,0)) D NONF^PSSDDUT2"
^DD(50,51,1,0)="^.1"
^DD(50,51,1,1,0)="50^AJ^MUMPS"
^DD(50,51,1,1,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),""^"") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50,51,1,1,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),""^"") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50,51,1,1,"%D",0)="^^8^8^3001026^"
^DD(50,51,1,1,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(50,51,1,1,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(50,51,1,1,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(50,51,1,1,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(50,51,1,1,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(50,51,1,1,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(50,51,1,1,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(50,51,1,1,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(50,51,1,1,"DT")="3001017"
^DD(50,51,3)="Enter a '1' if this is not to appear on the formulary list."
^DD(50,51,20,0)="^.3LA^1^1"
^DD(50,51,20,1,0)="PS"
^DD(50,51,21,0)="^^1^1^2990907^^^^"
^DD(50,51,21,1,0)="  This is used to designate the drug as non-formulary."
^DD(50,51,"DT")="3001017"
^DD(50,52,0)="VISN NON-FORMULARY^S^1:V-N/F;^0;11^Q"
^DD(50,52,3)="Enter a '1' if this item is not to appear on the VISN formulary."
^DD(50,52,21,0)="^.001^1^1^3000229^^^"
^DD(50,52,21,1,0)="This field will designate a drug that is not on the VISN Formulary."
^DD(50,52,"DT")="2990907"
^DD(50,62.01,0)="DAY (nD) or DOSE (nL) LIMIT^FX^^8;1^K:$S('X:1,X?1.2N1""D"":0,1:X'?1.2N1""L"") X"
^DD(50,62.01,.1)="ENTER NUMBER OF DAYS A UNIT DOSE ORDER (WITH THIS DRUG) WILL LAST"
^DD(50,62.01,3)="Type a whole Number between 0 and 99, 0 Decimal Digits, followed by either a 'D' (for NUMBER OF DAYS) or an 'L' (for DOSE LIMIT)."
^DD(50,62.01,20,0)="^.3LA^1^1"
^DD(50,62.01,20,1,0)="PSJU"
^DD(50,62.01,21,0)="^^6^6^2910305^^^^"
^DD(50,62.01,21,1,0)="  This is mainly for NARCOTICS and ANTIBIOTICS.  If a number is found here"
^DD(50,62.01,21,2,0)="when this medication is selected for a UNIT DOSE order, that number will be"
^DD(50,62.01,21,3,0)="used to calculate the DEFAULT value for the STOP DATE/TIME prompt in the"
^DD(50,62.01,21,4,0)="entry of that order.  If the number entered is followed by a ""D"", that"
^DD(50,62.01,21,5,0)="number of days will be added to the START DATE.  If the number is followed"
^DD(50,62.01,21,6,0)="by an ""L"", that number will be used to calculate the DOSE LIMIT."
^DD(50,62.01,"DT")="2860924"
^DD(50,62.02,0)="UNIT DOSE MED ROUTE^*P51.2'^PS(51.2,^8;2^S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ORAL"""",$P(^(0),""""^"""",4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50,62.02,.1)="STANDARD UNIT DOSE MEDICATION ROUTE"
^DD(50,62.02,3)="Enter the most common MED ROUTE associated with this medication."
^DD(50,62.02,12)="ONLY MED ROUTES MARKED FOR USE BY ALL PACKAGES ARE SELECTABLE."
^DD(50,62.02,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ORAL"""",$P(^(0),""""^"""",4)"""
^DD(50,62.02,20,0)="^.3LA^1^1"
^DD(50,62.02,20,1,0)="PSJU"
^DD(50,62.02,21,0)="^^5^5^2940714^^^^"
^DD(50,62.02,21,1,0)="  If data is found here when this medication is selected for a UNIT DOSE"
^DD(50,62.02,21,2,0)="order, that data will be used as the DEFAULT value for the MED ROUTE prompt"
^DD(50,62.02,21,3,0)="in ORDER ENTRY.  Please note that ORAL is not selectable as a MED ROUTE"
^DD(50,62.02,21,4,0)="here, since it is the standard default value in order entry."
^DD(50,62.02,21,5,0)=" "
^DD(50,62.02,21,6,0)="here, since it is the standard default value in order entry."
^DD(50,62.02,"DT")="2861229"
^DD(50,62.03,0)="UNIT DOSE SCHEDULE TYPE^S^OC:ON CALL;O:ONE TIME;P:PRN;R:FILL on REQUEST;^8;3^Q"
^DD(50,62.03,.1)="STANDARD UNIT DOSE SCHEDULE TYPE"
^DD(50,62.03,3)="Enter the most common SCHEDULE TYPE associated with this medication."
^DD(50,62.03,20,0)="^.3LA^1^1"
^DD(50,62.03,20,1,0)="PSJU"
^DD(50,62.03,21,0)="^^5^5^2910314^^^^"
^DD(50,62.03,21,1,0)="  If data is found here when this medication is selected for a UNIT DOSE "
^DD(50,62.03,21,2,0)="order, that data will be used as the DEFAULT value for the SCHEDULE TYPE "
^DD(50,62.03,21,3,0)="prompt in ORDER ENTRY."
^DD(50,62.03,21,4,0)="  Please note that you will NOT find CONTINUOUS as a SCHEDULE TYPE here,"
^DD(50,62.03,21,5,0)="since it is the standard default in order entry."
^DD(50,62.03,"DT")="2861229"
^DD(50,62.04,0)="UNIT DOSE SCHEDULE^FX^^8;4^K:X[""""""""!($A(X)=45)!($L(X,"" "")>2)!($L(X)>70)!($L(X)<1) X D:$D(X)#2 SCH^PSSDDUT I $D(X)#2,'PSGS0Y,PSGS0XT D EN^DDIOL(""  Every ""_PSGS0XT_"" minutes"","""",""?0"")"
^DD(50,62.04,.1)="STANDARD UNIT DOSE SCHEDULE"
^DD(50,62.04,3)="Enter the most common SCHEDULE associated with this medication."
^DD(50,62.04,20,0)="^.3LA^1^1"
^DD(50,62.04,20,1,0)="PSJU"
^DD(50,62.04,21,0)="^^3^3^2910305^^^^"
^DD(50,62.04,21,1,0)="  If a schedule is found here when this medication is selected for a"
^DD(50,62.04,21,2,0)="UNIT DOSE order, that schedule will be used as a default value for the"
^DD(50,62.04,21,3,0)="SCHEDULE prompt in order entry."
^DD(50,62.04,"DT")="2970626"
^DD(50,62.05,0)="CORRESPONDING OUTPATIENT DRUG^*P50'^PSDRUG(^8;5^S DIC(""S"")=""I $D(^(2)),$P(^(2),""""^"""",3)[""""O"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50,62.05,3)="Enter an Outpatient medication that corresponds to this Unit Dose medication."
^DD(50,62.05,12)="ONLY DRUGS MARKED AS OUTPATIENT DRUGS ARE SELECTABLE."
^DD(50,62.05,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),""""^"""",3)[""""O"""""""
^DD(50,62.05,20,0)="^.3LA^1^1"
^DD(50,62.05,20,1,0)="PSJU"
^DD(50,62.05,21,0)="^^2^2^2910305^^^"
^DD(50,62.05,21,1,0)="  This is used by the Unit Dose Medications package in such things as the"
^DD(50,62.05,21,2,0)="Authorized Absence/Discharge Orders form."
^DD(50,62.05,"DT")="2901024"
^DD(50,63,0)="APPLICATION PACKAGES' USE^FI^^2;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>90!($L(X)<1) X"
^DD(50,63,1,0)="^.1"
^DD(50,63,1,1,0)="50^IU"
^DD(50,63,1,1,1)="S ^PSDRUG(""IU"",X,DA)="""""
^DD(50,63,1,1,2)="K ^PSDRUG(""IU"",X,DA)"
^DD(50,63,1,2,0)="50^AIU^MUMPS"
^DD(50,63,1,2,1)="S Y(1)=$P(^PSDRUG(DA,0),""^"") I Y(1)]"""" F Y(2)=1:1:$L(X) S ^PSDRUG(""AIU""_$E(X,Y(2)),Y(1),DA)="""""
^DD(50,63,1,2,2)="S Y(1)=$P(^PSDRUG(DA,0),""^"") I Y(1)]"""" F Y(2)=1:1:$L(X) K ^PSDRUG(""AIU""_$E(X,Y(2)),Y(1),DA)"
^DD(50,63,1,2,3)="Do Not Delete"
^DD(50,63,1,2,"%D",0)="^^2^2^2970926^^"
^DD(50,63,1,2,"%D",1,0)="Sets application package use field (63) cross-ref."
^DD(50,63,1,2,"%D",2,0)="In the form of: ^PSDRUG(""AIU""_$E(X,Y(2),Y(1),DA)"
^DD(50,63,3)="Answer must be 1-90 characters in length."
^DD(50,63,8.5)="^"
^DD(50,63,9)="^"
^DD(50,63,20,0)="^.3LA^1^1"
^DD(50,63,20,1,0)="PS"
^DD(50,63,21,0)="^^3^3^2950211^^^^"
^DD(50,63,21,1,0)="This field is free text, but contains the codes of the DHCP packages"
^DD(50,63,21,2,0)="that consider this drug part of its formulary.  This field is set through"
^DD(50,63,21,3,0)="the routine ^PSGIU, and NOT through VA FileMan."
^DD(50,63,21,4,0)=" "
^DD(50,63,21,5,0)="NOTES: Uneditable through VA FileMan."
^DD(50,63,"DT")="2901221"
^DD(50,64,0)="*PRIMARY DRUG^P50.3'^PS(50.3,^2;6^Q"
^DD(50,64,1,0)="^.1"
^DD(50,64,1,1,0)="50^AP"
^DD(50,64,1,1,1)="S ^PSDRUG(""AP"",X,DA)="""""
^DD(50,64,1,1,2)="K ^PSDRUG(""AP"",X,DA)"
^DD(50,64,1,1,3)="Needed by Unit Dose Medications order entry."
^DD(50,64,1,1,"DT")="2910830"
^DD(50,64,1,2,0)="50^APC^MUMPS"
^DD(50,64,1,2,1)="S X(1)=$P($G(^PSDRUG(DA,0)),""^"",2) S:X(1)]"""" ^PSDRUG(""APC"",X,X(1),DA)="""""
^DD(50,64,1,2,2)="S X(1)=$P($G(^PSDRUG(DA,0)),""^"",2) K:X(1)]"""" ^PSDRUG(""APC"",X,X(1),DA)"
^DD(50,64,1,2,3)="This is needed by Unit Dose Medications to do class checking."
^DD(50,64,1,2,"%D",0)="^^3^3^2970926^^^"
^DD(50,64,1,2,"%D",1,0)="  This allows the Unit Dose Medications package to do class checking for"
^DD(50,64,1,2,"%D",2,0)="drugs designated as primary drugs."
^DD(50,64,1,2,"%D",3,0)="In the form of: ^PSDRUG(""APC"",PRIMARY DRUG ptr.,VA Class Code,DA)"
^DD(50,64,1,2,"DT")="2910806"
^DD(50,64,1,3,0)="50^APN^MUMPS"
^DD(50,64,1,3,1)="S X(1)=$G(^PSDRUG(DA,""ND"")) I $P(X(1),""^"")]"""",$P(X(1),""^"",3)]"""" S ^PSDRUG(""APN"",X,$P(X(1),""^"")_""A""_$P(X(1),""^"",3),DA)="""""
^DD(50,64,1,3,2)="S X(1)=$G(^PSDRUG(DA,""ND"")) I $P(X(1),""^"")]"""",$P(X(1),""^"",3)]"""" K ^PSDRUG(""APN"",X,$P(X(1),""^"")_""A""_$P(X(1),""^"",3),DA)"
^DD(50,64,1,3,3)="Needed by Inpatient Medications as a gateway from Primary to National Drug File."
^DD(50,64,1,3,"%D",0)="^^3^3^2970926^^"
^DD(50,64,1,3,"%D",1,0)="  This is used by the Inpatient Medications package as a gateway from"
^DD(50,64,1,3,"%D",2,0)="Primary Drug to the National Drug File."
^DD(50,64,1,3,"%D",3,0)="In the form of: ^PSDRUG(""APN"",PRIMARY DRUG ptr.,P(1) of ""ND"" node_A_P(3) of ""ND"" node,DA)"
^DD(50,64,1,3,"DT")="2910806"
^DD(50,64,1,4,0)="^^TRIGGER^52.6^16"
^DD(50,64,1,4,1)="K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.6,16,1,0)) X ^DD(50,64,1,4,1.1) K PSJ,PSJ1,PSJ2,PSJ3"
^DD(50,64,1,4,1.1)="F PSJ3=0:0 S PSJ3=$O(^PS(52.6,""AC"",PSJ1,PSJ3)) Q:'PSJ3  I $D(^PS(52.6,PSJ3,0)) S DIU=$P(^(0),""^"",12) I DIU'=PSJ S $P(^(0),""^"",12)=PSJ I PSJ2 S DIV=PSJ,(D0,DIV(0))=PSJ3,DIH=52.6,DIG=16 D ^DICR"
^DD(50,64,1,4,2)="K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.6,16,1,0)) X ^DD(50,64,1,4,2.1) K PSJ,PSJ1,PSJ2,PSJ3"
^DD(50,64,1,4,2.1)="F PSJ3=0:0 S PSJ3=$O(^PS(52.6,""AC"",PSJ1,PSJ3)) Q:'PSJ3  I $D(^PS(52.6,PSJ3,0)) S DIU=$P(^(0),""^"",12) I DIU]"""" S $P(^(0),""^"",12)="""" I PSJ2 S DIV="""",(D0,DIV(0))=PSJ3,DIH=52.6,DIG=16 D ^DICR"
^DD(50,64,1,4,3)="Needed to update the PRIMARY DRUG field in the IV ADDITIVES file."
^DD(50,64,1,4,"%D",0)="^^2^2^2911008^"
^DD(50,64,1,4,"%D",1,0)="  This trigger is needed to update the PRIMARY DRUG field in the IV "
^DD(50,64,1,4,"%D",2,0)="ADDITIVES file for all additives that point to this GENERIC DRUG."
^DD(50,64,1,4,"CREATE VALUE")="X"
^DD(50,64,1,4,"DELETE VALUE")="@"
^DD(50,64,1,4,"DT")="2911008"
^DD(50,64,1,4,"FIELD")="GENERIC NAME:IV ADDITIVES:PRIMARY DRUG"
^DD(50,64,1,5,0)="^^TRIGGER^52.7^16"
^DD(50,64,1,5,1)="K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.7,16,1,0)) X ^DD(50,64,1,5,1.1) K PSJ,PSJ1,PSJ2,PSJ3"
^DD(50,64,1,5,1.1)="F PSJ3=0:0 S PSJ3=$O(^PS(52.7,""AC"",PSJ1,PSJ3)) Q:'PSJ3  I $D(^PS(52.7,PSJ3,0)) S DIU=$P(^(0),""^"",12) I DIU'=PSJ S $P(^(0),""^"",12)=PSJ I PSJ2 S DIV=PSJ,(D0,DIV(0))=PSJ3,DIH=52.7,DIG=16 D ^DICR"
^DD(50,64,1,5,2)="K DIV S PSJ=X,PSJ1=DA,PSJ2=$O(^DD(52.7,16,1,0)) X ^DD(50,64,1,5,2.1) K PSJ,PSJ1,PSJ2,PSJ3"
^DD(50,64,1,5,2.1)="F PSJ3=0:0 S PSJ3=$O(^PS(52.7,""AC"",PSJ1,PSJ3)) Q:'PSJ3  I $D(^PS(52.7,PSJ3,0)) S DIU=$P(^(0),""^"",12) I DIU]"""" S $P(^(0),""^"",12)="""" I PSJ2 S DIV="""",(D0,DIV(0))=PSJ3,DIH=52.7,DIG=16 D ^DICR"
^DD(50,64,1,5,3)="Needed to update the PRIMARY DRUG field in the IV SOLUTIONS file."
^DD(50,64,1,5,"%D",0)="^^2^2^2911008^"
^DD(50,64,1,5,"%D",1,0)="  This trigger is needed to update the PRIMARY DRUG field in the IV "
^DD(50,64,1,5,"%D",2,0)="SOLUTIONS file for all additives that point to this GENERIC DRUG."
^DD(50,64,1,5,"CREATE VALUE")="X"
^DD(50,64,1,5,"DELETE VALUE")="@"
^DD(50,64,1,5,"DT")="2911008"
^DD(50,64,1,5,"FIELD")="GENERIC NAME:IV SOLUTIONS:PRIMARY DRUG"
^DD(50,64,3)="Enter a primary drug for this drug."
^DD(50,64,20,0)="^.3LA^1^1"
^DD(50,64,20,1,0)="PS"
^DD(50,64,21,0)="^^2^2^2940804^^"
^DD(50,64,21,1,0)="  This is the corresponding Primary Drug for this dispense drug.  A primary"
^DD(50,64,21,2,0)="drug does not have a dosage associated with it."
^DD(50,64,23,0)="^^4^4^2940804^^"
^DD(50,64,23,1,0)="  This is the corresponding primary drug for this dispense drug.  The"
^DD(50,64,23,2,0)="primary drug will show on the profiles and other reports.  (This dispense"
^DD(50,64,23,3,0)="drug shows on the expanded view of the order.)  This is also used to find"
^DD(50,64,23,4,0)="the primary drug of an order when a dispense drug is selected."
^DD(50,64,"DT")="2950228"
^DD(50,65,0)="FORMULARY ALTERNATIVE^50.065P^^65;0"
^DD(50,65,3)="Enter a formulary drug that may be used as an alternative to this non-formulary drug."
^DD(50,65,12)="Alternative must be a formulary item."
^DD(50,65,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",9)"""
^DD(50,65,20,0)="^.3LA^1^1"
^DD(50,65,20,1,0)="PS"
^DD(50,65,20,2,0)="PSJ"
^DD(50,65,21,0)="^^3^3^2910728^^"
^DD(50,65,21,1,0)="  This is a formulary alternative to this non-formulary drug.  Any formulary"
^DD(50,65,21,2,0)="alternatives are shown to non-pharmacists whenever they attempt to order a"
^DD(50,65,21,3,0)="non-formulary drug."
^DD(50,81,0)="DAW CODE^NJ2,0X^^EPH;1^D INPUT^PSSDAWUT"
^DD(50,81,3)="Dispensed As Written code. This information is used for NCPDP electronic claim transmission to third party payers (insurance companies)."
^DD(50,81,4)="D HLP^PSSDAWUT"
^DD(50,81,21,0)="^.001^1^1^3051109^^^^"
^DD(50,81,21,1,0)="Dispensed As Written code. This information is used for NCPDP electronic claim transmission to third party payers (insurance companies)."
^DD(50,81,"DT")="3051108"
^DD(50,82,0)="NCPDP DISPENSE UNIT^RSX^EA:EACH;GM:GRAMS;ML:MILLILITERS;^EPH;2^D NCINIT^PSSDDUT2"
^DD(50,82,3)="Enter EA for EACH, GM for GRAMS or ML for MILLILITERS."
^DD(50,82,21,0)="^^5^5^3070606^"
^DD(50,82,21,1,0)="The NCPDP QUANTITY MULTIPLIER field and this field are used to determine"
^DD(50,82,21,2,0)="metric quantity for electronic 3rd Party billing purposes.  "
^DD(50,82,21,3,0)=" "
^DD(50,82,21,4,0)="This field indicates the NCPDP standard billing Unit of Measure (EA -"
^DD(50,82,21,5,0)="EACH; GM - GRAMS; ML - MILLILITERS).  "
^DD(50,82,23,0)="^.001^1^1^3070606^^^^"
^DD(50,82,23,1,0)="This field was initially populated by patch PSS*1*127."
^DD(50,82,"DT")="3070518"
^DD(50,83,0)="NCPDP QUANTITY MULTIPLIER^RNJ9,3X^^EPH;3^K:+X'=X!(X>99999.999)!(X<.001)!(X?.E1"".""4N.N) X D NCPDPQM^PSSDDUT2"
^DD(50,83,3)="Type a Number between 0.001 and 99999.999, 3 Decimal Digits"
^DD(50,83,4)="D EN^PSSNCPDP"
^DD(50,83,21,0)="^.001^6^6^3070529^^^^"
^DD(50,83,21,1,0)="The NCPDP DISPENSE UNIT field and this field are used to determine "
^DD(50,83,21,2,0)="metric quantity for electronic 3rd Party billing purposes."
^DD(50,83,21,3,0)=" "
^DD(50,83,21,4,0)="This field contains the number that will be multiplied by the quantity"
^DD(50,83,21,5,0)="in the prescription in order to determine the correct quantity to "
^DD(50,83,21,6,0)="electronically bill 3rd party insurance companies."
^DD(50,83,23,0)="^.001^1^1^3070529^^^^"
^DD(50,83,23,1,0)="This field was initially populated by patch PSS*1*127."
^DD(50,83,"DT")="3070518"
^DD(50,100,0)="INACTIVE DATE^D^^I;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(50,100,1,0)="^.1^^-1"
^DD(50,100,1,1,0)="50^AI^MUMPS"
^DD(50,100,1,1,1)="S ^PSDRUG(DA,""I"")=X"
^DD(50,100,1,1,2)="K ^PSDRUG(DA,""I"")"
^DD(50,100,1,1,3)="Do Not Delete"
^DD(50,100,1,1,"%D",0)="^.101^3^3^3010131^^^^"
^DD(50,100,1,1,"%D",1,0)="This cross-reference insures that the ""I"" node is killed when the inactive"
^DD(50,100,1,1,"%D",2,0)="date is deleted."
^DD(50,100,1,1,"%D",3,0)="In the form of: ^PSDRUG(DA,""I"")"
^DD(50,100,1,2,0)="50^AR^MUMPS"
^DD(50,100,1,2,1)="Q"
^DD(50,100,1,2,2)="; I '$D(DIU(0)) S X=""PSNOUT"" X ^%ZOSF(""TEST"") I  D REACT^PSNOUT"
^DD(50,100,1,2,"%D",0)="^.101^4^4^3010131^^^^"
^DD(50,100,1,2,"%D",1,0)="This cross-reference calls up the NDF matching process when the entry"
^DD(50,100,1,2,"%D",2,0)="is reactivated to insure that it is matched."
^DD(50,100,1,2,"%D",3,0)="In the form of: ^PSDRUG(DA,""ND"")"
^DD(50,100,1,2,"%D",4,0)="No longer used at this time."
^DD(50,100,1,3,0)="50^AD^MUMPS"
^DD(50,100,1,3,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),""^"") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50,100,1,3,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PSDRUG(DA,2)),""^"") Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50,100,1,3,3)="Do Not Delete"
^DD(50,100,1,3,"%D",0)="^^8^8^3001026^"
^DD(50,100,1,3,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(50,100,1,3,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(50,100,1,3,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(50,100,1,3,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(50,100,1,3,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(50,100,1,3,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(50,100,1,3,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(50,100,1,3,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(50,100,1,3,"DT")="3001017"
^DD(50,100,3)="Enter the date the drug became inactive."
^DD(50,100,20,0)="^.3LA^1^1"
^DD(50,100,20,1,0)="PS"
^DD(50,100,21,0)="^.001^1^1^3010131^^"
^DD(50,100,21,1,0)="This is the date the drug is inactive."
^DD(50,100,"DT")="3001017"
^DD(50,101,0)="MESSAGE^F^^0;10^K:$L(X)>68!($L(X)<1) X"
^DD(50,101,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(50,101,20,0)="^.3LA^1^1"
^DD(50,101,20,1,0)="PS"
^DD(50,101,21,0)="^^3^3^2921123^^^"
^DD(50,101,21,1,0)="Message displayed whenever drug is selected for RX.  Commonly used to"
^DD(50,101,21,2,0)="warn about restrictions to certain services, doctors, etc.  This is"
^DD(50,101,21,3,0)="purely a passive informational free text field."
^DD(50,101,"DT")="2840521"
^DD(50,102,0)="RESTRICTION^F^^2;2^K:$L(X)>13!($L(X)<13) X"
^DD(50,102,3)="ENTER THE LITERAL ""RESTRICTED TO"""
^DD(50,102,20,0)="^.3LA^1^1"
^DD(50,102,20,1,0)="PS"
^DD(50,102,21,0)="^^1^1^2901024^"
^DD(50,102,21,1,0)="  This is any restrictions that may apply to this drug."
^DD(50,102,"DT")="2891027"
^DD(50,212,0)="ATC CANISTER^50.0212P^^212;0"
^DD(50,212,20,0)="^.3LA^1^1"
^DD(50,212,20,1,0)="PSJU"
^DD(50,212,21,0)="^.001^3^3^3000525^^^^"
^DD(50,212,21,1,0)="  This is the ATC dispensing machine canister number(s) for this"
^DD(50,212,21,2,0)="drug by ward group.  If a ward group does not have a canister number, the"
^DD(50,212,21,3,0)="pick lists for the ward group will not send this drug to the ATC."
^DD(50,212.1,0)="*ATC CANISTER^NJ3,0^^8.5;1^K:+X'=X!(X>212)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50,212.1,.1)="ATC CANISTER (OLD)"
^DD(50,212.1,3)="Enter a Number between 1 and 212, 0 Decimal Digits."
^DD(50,212.1,20,0)="^.3LA^1^1"
^DD(50,212.1,20,1,0)="PSJU"
^DD(50,212.1,21,0)="^^3^3^2901220^^^^"
^DD(50,212.1,21,1,0)="  This should be the number of the canister from the Baxter ATC 212 dispensing"
^DD(50,212.1,21,2,0)="machine that contains this drug.  If no number is entered here, the Unit"
^DD(50,212.1,21,3,0)="Dose package will assume that this drug is NOT currently in the ATC."
^DD(50,212.1,"DT")="2871006"
^DD(50,212.2,0)="ATC MNEMONIC^F^^8.5;2^K:$L(X)>15!($L(X)<1)!'(X'?1.N) X"
^DD(50,212.2,1,0)="^.1^^-1"
^DD(50,212.2,1,1,0)="50^XATC"
^DD(50,212.2,1,1,1)="S ^PSDRUG(""XATC"",$E(X,1,30),DA)="""""
^DD(50,212.2,1,1,2)="K ^PSDRUG(""XATC"",$E(X,1,30),DA)"
^DD(50,212.2,3)="Answer must be 1-15 characters in length"
^DD(50,212.2,4)="D ATC^PSSDDUT2"
^DD(50,212.2,20,0)="^.3LA^1^1"
^DD(50,212.2,20,1,0)="PSJU"
^DD(50,212.2,21,0)="^^5^5^3000525^"
^DD(50,212.2,21,1,0)="  This is the link between the Unit Dose package and the ATC dispensing"
^DD(50,212.2,21,2,0)="machine.  The data here is sent to the ATC, and therefore MUST match the"
^DD(50,212.2,21,3,0)="mnemonic entered for this same drug in the ATC.  If the mnemonic entered"
^DD(50,212.2,21,4,0)="here does not match a mnemonic within the ATC, any pick list with this"
^DD(50,212.2,21,5,0)="mnemonic sent to the ATC will not complete."
^DD(50,212.2,"DT")="3000525"
^DD(50,213,0)="CMOP DISPENSE^S^0:NO;1:YES;^3;1^Q"
^DD(50,213,1,0)="^.1"
^DD(50,213,1,1,0)="50^AQ^MUMPS"
^DD(50,213,1,1,1)="S:X=1 ^PSDRUG(""AQ"",DA)="""""
^DD(50,213,1,1,2)="K ^PSDRUG(""AQ"",DA)"
^DD(50,213,1,1,3)="Do Not Delete"
^DD(50,213,1,1,"%D",0)="^^3^3^2970926^^"
^DD(50,213,1,1,"%D",1,0)="This cross reference is present if the drug file entry has been marked to "
^DD(50,213,1,1,"%D",2,0)="send to the Consolidated Mail Outpatient Pharmacy (CMOP) system."
^DD(50,213,1,1,"%D",3,0)="In the form of: ^PSDRUG(""AQ"",DA)"
^DD(50,213,1,1,"DT")="2930806"
^DD(50,213,1,2,0)="50^AG^MUMPS"
^DD(50,213,1,2,1)="S TMP=X N X S X=""PSXREF"" X ^%ZOSF(""TEST"") Q:'$T  S X=TMP K TMP D ACT^PSXREF"
^DD(50,213,1,2,2)="Q"
^DD(50,213,1,2,3)="DO NOT DELETE"
^DD(50,213,1,2,"%D",0)="^^3^3^2970926^^^^"
^DD(50,213,1,2,"%D",1,0)="This cross reference sets the appropriate data in the Activity Log multiple"
^DD(50,213,1,2,"%D",2,0)="to audit editing of this field."
^DD(50,213,1,2,"%D",3,0)="In the form of: ^PSDRUG(DA,4,IEN,0)"
^DD(50,213,1,2,"DT")="2950501"
^DD(50,213,3)=""
^DD(50,213,8.5)="^"
^DD(50,213,9)="^"
^DD(50,213,21,0)="^^2^2^2950209^^^^"
^DD(50,213,21,1,0)="Indicates if this drug may be dispensed from the Consolidated Mail"
^DD(50,213,21,2,0)="Outpatient Pharmacy System."
^DD(50,213,23,0)="^^1^1^2950209^^^"
^DD(50,213,23,1,0)="Set of codes"
^DD(50,213,"AUDIT")="n"
^DD(50,213,"DT")="2950501"
^DD(50,214,0)="ACTIVITY LOG^50.0214DA^^4;0"
^DD(50,214,21,0)="^^2^2^2950404^^"
^DD(50,214,21,1,0)="Date the activity occurred."
^DD(50,214,21,2,0)=" "
^DD(50,214,23,0)="^^1^1^2930810^"
^DD(50,214,23,1,0)="Date (Multiply asked)"
^DD(50,215,0)="QUANTITY DISPENSE MESSAGE^FX^^5;1^K:($L(X)>68)!($L(X)<1) X"
^DD(50,215,3)="Answer must be 1-68 characters in length."
^DD(50,215,21,0)="^^3^3^2970806^^^"
^DD(50,215,21,1,0)="This is a free text description used by pharmacy personnel to indicate"
^DD(50,215,21,2,0)="which quantities for the drug/item are stocked by the Outpatient Pharmacy"
^DD(50,215,21,3,0)="system for this facility."
^DD(50,215,23,0)="^^1^1^2970806^^^"
^DD(50,215,23,1,0)="Free text"
^DD(50,215,"DT")="2940131"
^DD(50,300,0)="INPATIENT PHARMACY LOCATION^F^^PSG;1^K:$L(X)>12!($L(X)<1) X"
^DD(50,300,3)="Answer must be 1-12 characters in length."
^DD(50,300,20,0)="^.3LA^2^2"
^DD(50,300,20,1,0)="PSGW"
^DD(50,300,21,0)="^^3^3^2901030^^^^"
^DD(50,300,21,1,0)="Enter from 1 to 3 location codes, each separated by commas, that define the"
^DD(50,300,21,2,0)="location of this item in the inpatient pharmacy storage.  This will be used"
^DD(50,300,21,3,0)="to sort Automatic Replenishment reports for easier location of items."
^DD(50,300,"DT")="2840621"
^DD(50,301,0)="AR/WS AMIS CATEGORY^S^0:Field 03 or 04 - Doses by Type;1:Field 06 or 07 - Units of Issue;2:Field 17 - Fluids and Admin Sets;3:Field 22 - Blood Products;^PSG;2^Q"
^DD(50,301,3)="Enter the category that this drug is to be classified as for AMIS statistics in Automatic Replenishment/Ward Stock."
^DD(50,301,20,0)="^.3LA^1^1"
^DD(50,301,20,1,0)="PSGW"
^DD(50,301,21,0)="^^2^2^2901030^"
^DD(50,301,21,1,0)="This refers to the category that this drug is to be classified as for AMIS "
^DD(50,301,21,2,0)="statistics in Automatic Replenishment/Ward Stock."
^DD(50,301,"DT")="2881213"
^DD(50,302,0)="AR/WS AMIS CONVERSION NUMBER^NJ4,0^^PSG;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50,302,3)="Enter a whole number between 1 and 9999, 0 Decimal Digits."
^DD(50,302,20,0)="^.3LA^1^1"
^DD(50,302,20,1,0)="PSGW"
^DD(50,302,21,0)="^^8^8^2910221^^^^"
^DD(50,302,21,1,0)="This number reflects the number of doses/units contained in the dispensed"
^DD(50,302,21,2,0)="drug for Automatic Replenishment/Ward Stock AMIS statistics."
^DD(50,302,21,3,0)="For example:  For a 20cc vial, the quantity dispensed is 1, and"
^DD(50,302,21,4,0)="              the conversion number is 20."
^DD(50,302,21,5,0)="              For 5 oz. antacid, the quantity dispensed is 1, and"
^DD(50,302,21,6,0)="              the conversion number is 1."
^DD(50,302,21,7,0)="              For a bottle of 100 aspirin, the quantity dispensed is 1,"
^DD(50,302,21,8,0)="              and the conversion number is 100."
^DD(50,302,"DT")="2870501"
^DD(50,400,0)="SERVICE CODE^NJ6,0^^PFS;1^K:+X'=X!(X>699999)!(X<600001)!(X?.E1"".""1N.N) X"
^DD(50,400,3)="This is required for external billing purposes only. Answer must be between 600001-699999."
^DD(50,400,21,0)="^^2^2^3060309^"
^DD(50,400,21,1,0)="The Charge Description Master (CDM) Change Control board assigns value"
^DD(50,400,21,2,0)="for this field. The value should be a number between 600001-699999. "
^DD(50,400,23,0)="^.001^9^9^3060309^^^"
^DD(50,400,23,1,0)="This field was introduced as part of the Patient Financial Services System"
^DD(50,400,23,2,0)="(PFSS) project, to implement a new COTS billing system. Pharmacy "
^DD(50,400,23,3,0)="application will maintain a CDM/Service Code for every dispensed item. It"
^DD(50,400,23,4,0)="requires that every prescription charge transaction passed to the external"
^DD(50,400,23,5,0)="billing system to pass a service code. If the drug is not matched to NDF"
^DD(50,400,23,6,0)="or the Service Code field in the VA PRODUCT file #50.68 is undefined, this"
^DD(50,400,23,7,0)="field will be prompted during DRUG ENTER/EDIT [PSS DRUG ENTER/EDIT]"
^DD(50,400,23,8,0)="option. In the event the drug is matched later to a NDF entry, previously"
^DD(50,400,23,9,0)="defined Service Code will be retained."
^DD(50,400,"DT")="3050518"
^DD(50,441,0)="IFCAP ITEM NUMBER^50.0441P^^441;0"
^DD(50,441,21,0)="^^1^1^2921117^^^^"
^DD(50,441,21,1,0)="To provide a direct link between the DRUG file and the ITEM MASTER file."
^DD(50,441,23,0)="^^2^2^2921117^^^"
^DD(50,441,23,1,0)="To connect the DRUG file (#50) to the ITEM MASTER file (#441)."
^DD(50,441,23,2,0)="This may be a one-to-many relationship."
^DD(50,441,"DT")="2920317"
^DD(50,900,0)="OLD NAMES^50.01A^^900;0"
^DD(50,901,0)="STRENGTH^NJ13,4X^^DOS;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""5N.N)!('$P($G(^PSDRUG(DA,""DOS"")),""^"",2)) X"
^DD(50,901,1,0)="^.1"
^DD(50,901,1,1,0)="50^AH^MUMPS"
^DD(50,901,1,1,1)="D SETS^PSSDOSED"
^DD(50,901,1,1,2)="D KILLS^PSSDOSED"
^DD(50,901,1,1,"%D",0)="^.101^3^3^3000328^^^"
^DD(50,901,1,1,"%D",1,0)="This cross reference is used to update all the Possible Dosages for this"
^DD(50,901,1,1,"%D",2,0)="drug. It sets piece 2 of ^PSDRUG(DA(1),""DOS1"",DA,0)= Strength times (*)"
^DD(50,901,1,1,"%D",3,0)="Dispense Units Per Dose."
^DD(50,901,1,1,"DT")="3000312"
^DD(50,901,3)="This field is a numeric value representing the single dose of medication supplied by this product."
^DD(50,901,21,0)="^.001^2^2^3000328^^^"
^DD(50,901,21,1,0)="This field is a numeric value representing the single dose of medication"
^DD(50,901,21,2,0)="supplied by this product."
^DD(50,901,"DT")="3000312"
^DD(50,902,0)="UNIT^P50.607'I^PS(50.607,^DOS;2^Q"
^DD(50,902,3)="Unit of measure. Pointer to the Drug Units File #50.607."
^DD(50,902,8.5)="^"
^DD(50,902,9)="^"
^DD(50,902,21,0)="^.001^1^1^3000327^^^"
^DD(50,902,21,1,0)="Unit of measure. Pointer to the Drug Units File #50.607."
^DD(50,902,"DT")="3000313"
^DD(50,903,0)="POSSIBLE DOSAGES^50.0903I^^DOS1;0"
^DD(50,903,21,0)="^.001^5^5^3010320^^^"
^DD(50,903,21,1,0)="This multiple contains the dispense units per dose, dose and package"
^DD(50,903,21,2,0)="fields. Possible Dosages can be created only for drugs that meet the"
^DD(50,903,21,3,0)="specified criteria based on the VA Product File match. Possible Dosages"
^DD(50,903,21,4,0)="are numeric. If a drug cannot have Possible Dosages based on the criteria"
^DD(50,903,21,5,0)="not being met, then Local Possible Dosages should be created for the drug."
^DD(50,903,"DT")="3000306"
^DD(50,904,0)="LOCAL POSSIBLE DOSAGE^50.0904I^^DOS2;0"
^DD(50,904,21,0)="^.001^4^4^3000425^^^"
^DD(50,904,21,1,0)="This multiple contains the local possible dose and package. If a drug does"
^DD(50,904,21,2,0)="not have Possible Dosages because it does not meet the specified criteria"
^DD(50,904,21,3,0)="based on the VA Product File match, then Local Possible Dosages should be"
^DD(50,904,21,4,0)="created."
^DD(50,905,0)="CORRESPONDING INPATIENT DRUG^P50'X^PSDRUG(^8;6^K:$P($G(^PSDRUG(X,2)),""^"",3)'[""I""&($P($G(^PSDRUG(X,2)),""^"",3)'[""U"") X"
^DD(50,905,3)="Enter the appropriate corresponding Inpatient Medications drug. Only drugs marked for Unit Dose or IV are selectable."
^DD(50,905,21,0)="^.001^3^3^3000406^^^^"
^DD(50,905,21,1,0)="This field will be used when transferring orders from Outpatient Pharmacy"
^DD(50,905,21,2,0)="to Inpatient Medications. Only drugs marked for Inpatient Medications can"
^DD(50,905,21,3,0)="be selected."
^DD(50,905,"DT")="3000403"
^DD(50,623002,0)="*LAB TEST MONITOR^P60'^LAB(60,^623002;1^Q"
^DD(50,623002,21,0)="^^2^2^2930104^^^"
^DD(50,623002,21,1,0)="This is the lab test results of which should be checked before"
^DD(50,623002,21,2,0)="this drug is dispensed."
^DD(50,623002,"DT")="2921105"
^DD(50,623003,0)="*MONITOR MAX DAYS^NJ3,0^^623002;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50,623003,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(50,623003,21,0)="^^2^2^2930104^^^"
^DD(50,623003,21,1,0)="This is the number of days during which the results of the lab"
^DD(50,623003,21,2,0)="tests are of interest when dispensing this drug."
^DD(50,623003,"DT")="2921105"
^DD(50,623004,0)="*SPECIMEN TYPE^P61'^LAB(61,^623002;3^Q"
^DD(50,623004,21,0)="^^1^1^2930104^^^"
^DD(50,623004,21,1,0)="This is the specimen type on which the lab test should be run."
^DD(50,623004,"DT")="2921105"
^DD(50,623008,0)="*MONITOR ROUTINE^F^^623008;1^K:$L(X)>8!($L(X)<3) X"
^DD(50,623008,3)="Answer must be 3-8 characters in length."
^DD(50,623008,21,0)="^^2^2^2930104^^^"
^DD(50,623008,21,1,0)="This is the name of the routine which is called to do all necessary"
^DD(50,623008,21,2,0)="checking on lab test results before dispensing this drug."
^DD(50,623008,"DT")="2921105"
^DD(50,"AUDIT",.01)=""
^DD(50,"AUDIT",14.5)=""
^DD(50,"B","*ATC CANISTER",212.1)=""
^DD(50,"B","*LAB TEST MONITOR",623002)=""
^DD(50,"B","*MONITOR MAX DAYS",623003)=""
^DD(50,"B","*MONITOR ROUTINE",623008)=""
^DD(50,"B","*PRIMARY DRUG",64)=""
^DD(50,"B","*SPECIMEN TYPE",623004)=""
^DD(50,"B","ACTION PROFILE MESSAGE (OP)",40)=""
^DD(50,"B","ACTIVITY LOG",214)=""
^DD(50,"B","AHFS NUMBER",1)=""
^DD(50,"B","APPLICATION PACKAGES' USE",63)=""
^DD(50,"B","AR/WS AMIS CATEGORY",301)=""
^DD(50,"B","AR/WS AMIS CONVERSION NUMBER",302)=""
^DD(50,"B","ATC CANISTER",212)=""
^DD(50,"B","ATC CANISTER (OLD)",212.1)="1"
^DD(50,"B","ATC MNEMONIC",212.2)=""
^DD(50,"B","CLOZAPINE LAB TEST",17.7)=""
^DD(50,"B","CMOP DISPENSE",213)=""
^DD(50,"B","CMOP ID",27)=""
^DD(50,"B","CORRESPONDING INPATIENT DRUG",905)=""
^DD(50,"B","CORRESPONDING OUTPATIENT DRUG",62.05)=""
^DD(50,"B","CURRENT INVENTORY",50)=""
^DD(50,"B","DAW CODE",81)=""
^DD(50,"B","DAY (nD) or DOSE (nL) LIMIT",62.01)=""
^DD(50,"B","DEA, SPECIAL HDLG",3)=""
^DD(50,"B","DISPENSE UNIT",14.5)=""
^DD(50,"B","DISPENSE UNITS PER ORDER UNIT",15)=""
^DD(50,"B","DRUG TEXT ENTRY",37)=""
^DD(50,"B","EXPIRATION DATE",17.1)=""
^DD(50,"B","FEDERAL STOCK NUMBER",6)="1"
^DD(50,"B","FORMULARY ALTERNATIVE",65)=""
^DD(50,"B","FSN",6)=""
^DD(50,"B","GENDER SPECIFIC LBLS ON ALL RX",8.2)=""
^DD(50,"B","GENERIC NAME",.01)=""
^DD(50,"B","IFCAP ITEM NUMBER",441)=""
^DD(50,"B","INACTIVE DATE",100)=""
^DD(50,"B","INPATIENT PHARMACY LOCATION",300)=""
^DD(50,"B","INV ORDER UNITS",18)=""
^DD(50,"B","LAB MONITOR MARK",17.6)=""
^DD(50,"B","LAB TEST MONITOR",17.2)=""
^DD(50,"B","LOCAL NON-FORMULARY",51)=""
^DD(50,"B","LOCAL POSSIBLE DOSAGE",904)=""
^DD(50,"B","MAXIMUM DOSE PER DAY",4)=""
^DD(50,"B","MESSAGE",101)=""
^DD(50,"B","MONITOR MAX DAYS",17.3)=""
^DD(50,"B","MONITOR ROUTINE",17.5)=""
^DD(50,"B","NATIONAL DRUG CLASS",25)=""
^DD(50,"B","NATIONAL DRUG FILE ENTRY",20)=""
^DD(50,"B","NATIONAL FORMULARY INDICATOR",29)=""
^DD(50,"B","NCPDP DISPENSE UNIT",82)=""
^DD(50,"B","NCPDP QUANTITY MULTIPLIER",83)=""
^DD(50,"B","NDC",31)=""
^DD(50,"B","NDC BY OUTPATIENT SITE",32)=""
^DD(50,"B","NEW WARNING LABEL LIST",8.1)=""
^DD(50,"B","NORMAL AMOUNT TO ORDER",14)=""
^DD(50,"B","NUMBER",.001)=""
^DD(50,"B","OLD NAMES",900)=""
^DD(50,"B","OLD PSNDF",27)="1"
^DD(50,"B","OP EXTERNAL DISPENSE",28)=""
^DD(50,"B","ORDER UNIT",12)=""
^DD(50,"B","PACKAGE SIZE",23)=""
^DD(50,"B","PACKAGE TYPE",24)=""
^DD(50,"B","PHARMACY ORDERABLE ITEM",2.1)=""
^DD(50,"B","POSSIBLE DOSAGES",903)=""
^DD(50,"B","PRICE PER DISPENSE UNIT",16)=""
^DD(50,"B","PRICE PER ORDER UNIT",13)=""
^DD(50,"B","PSNDF VA PRODUCT NAME ENTRY",22)=""
^DD(50,"B","QUANTITY DISPENSE MESSAGE",215)=""
^DD(50,"B","REORDER LEVEL",11)=""
^DD(50,"B","RESTRICTION",102)=""
^DD(50,"B","SERVICE CODE",400)=""
^DD(50,"B","SOURCE OF SUPPLY",17)=""
^DD(50,"B","SPECIMEN TYPE",17.4)=""
^DD(50,"B","STANDARD SIG",5)=""
^DD(50,"B","STANDARD UNIT DOSE SCHEDULE",62.04)="1"
^DD(50,"B","STRENGTH",901)=""
^DD(50,"B","SYNONYM",9)=""
^DD(50,"B","UNIT",902)=""
^DD(50,"B","UNIT DOSE MED ROUTE",62.02)=""
^DD(50,"B","UNIT DOSE SCHEDULE",62.04)=""
^DD(50,"B","UNIT DOSE SCHEDULE TYPE",62.03)=""
^DD(50,"B","VA CLASSIFICATION",2)=""
^DD(50,"B","VA DRUG CLASS CODE",26)=""
^DD(50,"B","VA DRUG CLASS POINTER",25)="1"
^DD(50,"B","VA PRODUCT NAME",21)=""
^DD(50,"B","VISN NON-FORMULARY",52)=""
^DD(50,"B","WARNING LABEL",8)=""
^DD(50,"GL",0,1,.01)=""
^DD(50,"GL",0,2,2)=""
^DD(50,"GL",0,3,3)=""
^DD(50,"GL",0,4,4)=""
^DD(50,"GL",0,5,5)=""
^DD(50,"GL",0,6,6)=""
^DD(50,"GL",0,8,8)=""
^DD(50,"GL",0,9,51)=""
^DD(50,"GL",0,10,101)=""
^DD(50,"GL",0,11,52)=""
^DD(50,"GL",1,0,9)=""
^DD(50,"GL",2,1,2.1)=""
^DD(50,"GL",2,2,102)=""
^DD(50,"GL",2,3,63)=""
^DD(50,"GL",2,4,31)=""
^DD(50,"GL",2,6,64)=""
^DD(50,"GL",3,1,213)=""
^DD(50,"GL",4,0,214)=""
^DD(50,"GL",5,1,215)=""
^DD(50,"GL",6,1,28)=""
^DD(50,"GL",8,1,62.01)=""
^DD(50,"GL",8,2,62.02)=""
^DD(50,"GL",8,3,62.03)=""
^DD(50,"GL",8,4,62.04)=""
^DD(50,"GL",8,5,62.05)=""
^DD(50,"GL",8,6,905)=""
^DD(50,"GL",8.5,1,212.1)=""
^DD(50,"GL",8.5,2,212.2)=""
^DD(50,"GL",9,0,37)=""
^DD(50,"GL",65,0,65)=""
^DD(50,"GL",212,0,212)=""
^DD(50,"GL",441,0,441)=""
^DD(50,"GL",660,1,11)=""
^DD(50,"GL",660,2,12)=""
^DD(50,"GL",660,3,13)=""
^DD(50,"GL",660,4,14)=""
^DD(50,"GL",660,5,15)=""
^DD(50,"GL",660,6,16)=""
^DD(50,"GL",660,7,17)=""
^DD(50,"GL",660,8,14.5)=""
^DD(50,"GL",660,9,17.1)=""
^DD(50,"GL",660.1,1,50)=""
^DD(50,"GL",900,0,900)=""
^DD(50,"GL",623002,1,623002)=""
^DD(50,"GL",623002,2,623003)=""
^DD(50,"GL",623002,3,623004)=""
^DD(50,"GL",623008,1,623008)=""
^DD(50,"GL","CLOZ",1,17.2)=""
^DD(50,"GL","CLOZ",2,17.3)=""
^DD(50,"GL","CLOZ",3,17.4)=""
^DD(50,"GL","CLOZ1",1,17.5)=""
^DD(50,"GL","CLOZ1",2,17.6)=""
^DD(50,"GL","CLOZ2",0,17.7)=""
^DD(50,"GL","DOS",1,901)=""
^DD(50,"GL","DOS",2,902)=""
^DD(50,"GL","DOS1",0,903)=""
^DD(50,"GL","DOS2",0,904)=""
^DD(50,"GL","EPH",1,81)=""
^DD(50,"GL","EPH",2,82)=""
^DD(50,"GL","EPH",3,83)=""
^DD(50,"GL","I",1,100)=""
^DD(50,"GL","ND",1,20)=""
^DD(50,"GL","ND",2,21)=""
^DD(50,"GL","ND",3,22)=""
^DD(50,"GL","ND",4,23)=""
^DD(50,"GL","ND",5,24)=""
^DD(50,"GL","ND",6,25)=""
^DD(50,"GL","ND",10,27)=""
^DD(50,"GL","ND",11,29)=""
^DD(50,"GL","NDCOP",0,32)=""
^DD(50,"GL","PFS",1,400)=""
^DD(50,"GL","PSG",1,300)=""
^DD(50,"GL","PSG",2,301)=""
^DD(50,"GL","PSG",3,302)=""
^DD(50,"GL","PSO",1,40)=""
^DD(50,"GL","WARN",1,8.1)=""
^DD(50,"GL","WARN",2,8.2)=""
^DD(50,"GR","PH",.01,1)=""
^DD(50,"GR","PH",2,1)=""
^DD(50,"GR","PH",3,1)=""
^DD(50,"GR","PH",9,1)=""
^DD(50,"GR","PH",17,1)=""
^DD(50,"GR","PS",.001,1)=""
^DD(50,"GR","PS",.01,2)=""
^DD(50,"GR","PS",2,2)=""
^DD(50,"GR","PS",4,1)=""
^DD(50,"GR","PS",5,1)=""
^DD(50,"GR","PS",6,1)=""
^DD(50,"GR","PS",6,2)=""
^DD(50,"GR","PS",8,1)=""
^DD(50,"GR","PS",11,1)=""
^DD(50,"GR","PS",12,1)=""
^DD(50,"GR","PS",12,2)=""
^DD(50,"GR","PS",13,1)=""
^DD(50,"GR","PS",14,1)=""
^DD(50,"GR","PS",14.5,1)=""
^DD(50,"GR","PS",15,1)=""
^DD(50,"GR","PS",16,1)=""
^DD(50,"GR","PS",17,2)=""
^DD(50,"GR","PS",17.1,1)=""
^DD(50,"GR","PS",18,1)=""
^DD(50,"GR","PS",25,2)=""
^DD(50,"GR","PS",31,1)=""
^DD(50,"GR","PS",50,1)=""
^DD(50,"GR","PS",51,1)=""
^DD(50,"GR","PS",63,1)=""
^DD(50,"GR","PS",64,1)=""
^DD(50,"GR","PS",65,1)=""
^DD(50,"GR","PS",100,1)=""
^DD(50,"GR","PS",101,1)=""
^DD(50,"GR","PS",102,1)=""
^DD(50,"GR","PSGW",300,1)=""
^DD(50,"GR","PSGW",301,1)=""
^DD(50,"GR","PSGW",302,1)=""
^DD(50,"GR","PSJ",65,2)=""
^DD(50,"GR","PSJU",62.01,1)=""
^DD(50,"GR","PSJU",62.02,1)=""
^DD(50,"GR","PSJU",62.03,1)=""
^DD(50,"GR","PSJU",62.04,1)=""
^DD(50,"GR","PSJU",62.05,1)=""
^DD(50,"GR","PSJU",212,1)=""
^DD(50,"GR","PSJU",212.1,1)=""
^DD(50,"GR","PSJU",212.2,1)=""
^DD(50,"GR","PSN",20,1)=""
^DD(50,"GR","PSN",21,1)=""
^DD(50,"GR","PSN",22,1)=""
^DD(50,"GR","PSN",23,1)=""
^DD(50,"GR","PSN",24,1)=""
^DD(50,"GR","PSN",25,1)=""
^DD(50,"GR","PSN",26,1)=""
^DD(50,"GR","PSN",27,1)=""
^DD(50,"GR","PSO",2.1,1)=""
^DD(50,"GR","PSO",3,2)=""
^DD(50,"GR","PSO",40,1)=""
^DD(50,"IX",.01)=""
^DD(50,"IX",2)=""
^DD(50,"IX",2.1)=""
^DD(50,"IX",3)=""
^DD(50,"IX",13)=""
^DD(50,"IX",15)=""
^DD(50,"IX",17.1)=""
^DD(50,"IX",17.5)=""
^DD(50,"IX",20)=""
^DD(50,"IX",21)=""
^DD(50,"IX",22)=""
^DD(50,"IX",25)=""
^DD(50,"IX",27)=""
^DD(50,"IX",28)=""
^DD(50,"IX",31)=""
^DD(50,"IX",51)=""
^DD(50,"IX",63)=""
^DD(50,"IX",64)=""
^DD(50,"IX",100)=""
^DD(50,"IX",212.2)=""
^DD(50,"IX",213)=""
^DD(50,"IX",901)=""
^DD(50,"RQ",.01)=""
^DD(50,"RQ",82)=""
^DD(50,"RQ",83)=""
^DD(50,"SB",50.01,900)=""
^DD(50,"SB",50.02,17.7)=""
^DD(50,"SB",50.0212,212)=""
^DD(50,"SB",50.0214,214)=""
^DD(50,"SB",50.032,32)=""
^DD(50,"SB",50.037,37)=""
^DD(50,"SB",50.0441,441)=""
^DD(50,"SB",50.065,65)=""
^DD(50,"SB",50.0903,903)=""
^DD(50,"SB",50.0904,904)=""
^DD(50,"SB",50.1,9)=""
^DD(50.01,0)="OLD NAMES SUB-FIELD^NL^.02^2"
^DD(50.01,0,"NM","OLD NAMES")=""
^DD(50.01,0,"UP")="50"
^DD(50.01,.01,0)="OLD NAMES^FI^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(50.01,.01,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(50.01,.01,"DT")="2850325"
^DD(50.01,.02,0)="DATE CHANGED^RD^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(50.01,.02,"DT")="2850325"
^DD(50.01,"B","DATE CHANGED",.02)=""
^DD(50.01,"B","OLD NAMES",.01)=""
^DD(50.01,"GL",0,1,.01)=""
^DD(50.01,"GL",0,2,.02)=""
^DD(50.01,"RQ",.02)=""
^DD(50.02,0)="CLOZAPINE LAB TEST SUB-FIELD^^3^4"
^DD(50.02,0,"DT")="2981119"
^DD(50.02,0,"NM","CLOZAPINE LAB TEST")=""
^DD(50.02,0,"UP")="50"
^DD(50.02,.01,0)="LAB TEST MONITOR^MP60'^LAB(60,^0;1^Q"
^DD(50.02,.01,1,0)="^.1^^0"
^DD(50.02,.01,3)="Answer must be the lab test name."
^DD(50.02,.01,20,0)="^.3LA^1^1"
^DD(50.02,.01,20,1,0)="PSO"
^DD(50.02,.01,21,0)="^^1^1^2981215^^^^"
^DD(50.02,.01,21,1,0)="This field is used to hold the lab test for Clozapine medication dispensing."
^DD(50.02,.01,23,0)="^^1^1^2981215^^^^"
^DD(50.02,.01,23,1,0)="pointer to file 60"
^DD(50.02,.01,"DT")="2981119"
^DD(50.02,1,0)="MONITOR MAX DAYS^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.02,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(50.02,1,20,0)="^.3LA^1^1"
^DD(50.02,1,20,1,0)="PSO"
^DD(50.02,1,21,0)="^^1^1^2981119^^"
^DD(50.02,1,21,1,0)="This field is the number of days in the past to go to check for lab values."
^DD(50.02,1,23,0)="^^1^1^2981119^"
^DD(50.02,1,23,1,0)="number."
^DD(50.02,1,"DT")="2981119"
^DD(50.02,2,0)="SPECIMEN TYPE^P61'^LAB(61,^0;3^Q"
^DD(50.02,2,3)="Answer with the topography field name."
^DD(50.02,2,20,0)="^.3LA^1^1"
^DD(50.02,2,20,1,0)="PSO"
^DD(50.02,2,21,0)="^^1^1^2981119^^"
^DD(50.02,2,21,1,0)="This is the specimen type used for Clozapine dispensing."
^DD(50.02,2,23,0)="^^1^1^2981119^^"
^DD(50.02,2,23,1,0)="pointer to file 61."
^DD(50.02,2,"DT")="2981119"
^DD(50.02,3,0)="TYPE OF TEST^RS^1:WBC;2:ANC;^0;4^Q"
^DD(50.02,3,3)="Enter Type test."
^DD(50.02,3,20,0)="^.3LA^1^1"
^DD(50.02,3,20,1,0)="PSO"
^DD(50.02,3,21,0)="^^1^1^2981119^^"
^DD(50.02,3,21,1,0)="This set of codes will be used to determine which test is being entered."
^DD(50.02,3,23,0)="^^1^1^2981119^"
^DD(50.02,3,23,1,0)="set of codes"
^DD(50.02,3,"DT")="2981119"
^DD(50.02,"B","LAB TEST MONITOR",.01)=""
^DD(50.02,"B","MONITOR MAX DAYS",1)=""
^DD(50.02,"B","SPECIMEN TYPE",2)=""
^DD(50.02,"B","TYPE OF TEST",3)=""
^DD(50.02,"GL",0,1,.01)=""
^DD(50.02,"GL",0,2,1)=""
^DD(50.02,"GL",0,3,2)=""
^DD(50.02,"GL",0,4,3)=""
^DD(50.02,"GR","PSO",.01,1)=""
^DD(50.02,"GR","PSO",1,1)=""
^DD(50.02,"GR","PSO",2,1)=""
^DD(50.02,"GR","PSO",3,1)=""
^DD(50.02,"RQ",3)=""
^DD(50.0212,0)="ATC CANISTER SUB-FIELD^^1^2"
^DD(50.0212,0,"IX","AC",50.0212,1)=""
^DD(50.0212,0,"IX","B",50.0212,.01)=""
^DD(50.0212,0,"NM","ATC CANISTER")=""
^DD(50.0212,0,"UP")="50"
^DD(50.0212,.01,0)="WARD GROUP FOR ATC CANISTER^M*P57.5'^PS(57.5,^0;1^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.0212,.01,1,0)="^.1^^-1"
^DD(50.0212,.01,1,1,0)="50.0212^B"
^DD(50.0212,.01,1,1,1)="S ^PSDRUG(DA(1),212,""B"",$E(X,1,30),DA)="""""
^DD(50.0212,.01,1,1,2)="K ^PSDRUG(DA(1),212,""B"",$E(X,1,30),DA)"
^DD(50.0212,.01,3)="Enter a Pharmacy ward group for which pick lists will be sent to the ATC."
^DD(50.0212,.01,12)="ONLY PHARMACY WARD GROUPS ARE SELECTABLE."
^DD(50.0212,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""P"""""""
^DD(50.0212,.01,20,0)="^.3LA^1^1"
^DD(50.0212,.01,20,1,0)="PSJU"
^DD(50.0212,.01,21,0)="^.001^2^2^3000525^^^^"
^DD(50.0212,.01,21,1,0)="  This is a ward group that has pick lists for this drug to be sent to the"
^DD(50.0212,.01,21,2,0)="ATC dispensing machine."
^DD(50.0212,.01,"DT")="2901111"
^DD(50.0212,1,0)="ATC CANISTER^NJ3,0X^^0;2^K:+X'=X!(X>800)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.0212,1,.1)=""
^DD(50.0212,1,1,0)="^.1"
^DD(50.0212,1,1,1,0)="50.0212^AC^MUMPS"
^DD(50.0212,1,1,1,1)="S ^PSDRUG(DA(1),212,""AC"",+^PSDRUG(DA(1),212,DA,0),X,DA)="""""
^DD(50.0212,1,1,1,2)="K ^PSDRUG(DA(1),212,""AC"",+^PSDRUG(DA(1),212,DA,0),X,DA)"
^DD(50.0212,1,1,1,"%D",0)="^^2^2^2970926^^"
^DD(50.0212,1,1,1,"%D",1,0)="Sets ATC Canister sub-field ATC Canister (1) cross-ref."
^DD(50.0212,1,1,1,"%D",2,0)="In the form of: ^PSDRUG(DA(1),212,""AC"",+^PSDRUG(DA(1),212,DA,0),X,DA)"
^DD(50.0212,1,3)="Type a number between 1 and 800, 0 Decimal Digits. Use numbers 213-500 only if your site is using the ATC Profile, and numbers 213-800 if your site is using either the FDS 330 or the FDS 520 machine."
^DD(50.0212,1,20,0)="^.3LA^1^1"
^DD(50.0212,1,20,1,0)="PSJU"
^DD(50.0212,1,21,0)="^.001^4^4^3000427^^^^"
^DD(50.0212,1,21,1,0)="  This should be the number of the canister from the Baxter ATC "
^DD(50.0212,1,21,2,0)="dispensing machine that contains this drug.  If no number is entered "
^DD(50.0212,1,21,3,0)="here, the Unit Dose package will assume that this drug is NOT currently "
^DD(50.0212,1,21,4,0)="in the ATC."
^DD(50.0212,1,"DT")="3000519"
^DD(50.0212,"B","ATC CANISTER",1)=""
^DD(50.0212,"B","WARD GROUP FOR ATC CANISTER",.01)=""
^DD(50.0212,"GL",0,1,.01)=""
^DD(50.0212,"GL",0,2,1)=""
^DD(50.0212,"GR","PSJU",.01,1)=""
^DD(50.0212,"GR","PSJU",1,1)=""
^DD(50.0212,"IX",.01)=""
^DD(50.0212,"IX",1)=""
^DD(50.0214,0)="ACTIVITY LOG SUB-FIELD^^5^6"
^DD(50.0214,0,"DT")="2930806"
^DD(50.0214,0,"IX","B",50.0214,.01)=""
^DD(50.0214,0,"NM","ACTIVITY LOG")=""
^DD(50.0214,0,"UP")="50"
^DD(50.0214,.01,0)="ACTIVITY LOG^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(50.0214,.01,1,0)="^.1"
^DD(50.0214,.01,1,1,0)="50.0214^B"
^DD(50.0214,.01,1,1,1)="S ^PSDRUG(DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(50.0214,.01,1,1,2)="K ^PSDRUG(DA(1),4,""B"",$E(X,1,30),DA)"
^DD(50.0214,.01,21,0)="^^2^2^2950404^^^"
^DD(50.0214,.01,21,1,0)="Date the activity occurred."
^DD(50.0214,.01,21,2,0)=" "
^DD(50.0214,.01,23,0)="^^1^1^2930810^^"
^DD(50.0214,.01,23,1,0)="Date (Multiply asked)"
^DD(50.0214,.01,"DT")="2930806"
^DD(50.0214,1,0)="REASON^S^E:EDIT;^0;2^Q"
^DD(50.0214,1,3)="Enter code to indicate the activity taking place for this entry."
^DD(50.0214,1,21,0)="^^2^2^2950404^"
^DD(50.0214,1,21,1,0)="The activity responsible for this entry."
^DD(50.0214,1,21,2,0)=" "
^DD(50.0214,1,"DT")="2930806"
^DD(50.0214,2,0)="INITIATOR OF ACTIVITY^P200'^VA(200,^0;3^Q"
^DD(50.0214,2,3)="Enter the name of the person initiating the activity."
^DD(50.0214,2,21,0)="^^2^2^2950404^"
^DD(50.0214,2,21,1,0)="Pointer to the New Person file. The person initiating this activity."
^DD(50.0214,2,21,2,0)=" "
^DD(50.0214,2,"DT")="2930806"
^DD(50.0214,3,0)="FIELD EDITED^F^^0;4^K:$L(X)>25!($L(X)<3) X"
^DD(50.0214,3,3)="Answer must be 3-25 characters in length."
^DD(50.0214,3,21,0)="^^2^2^2950404^"
^DD(50.0214,3,21,1,0)="The free text name of the field that is being edited."
^DD(50.0214,3,21,2,0)=" "
^DD(50.0214,3,"DT")="2930806"
^DD(50.0214,4,0)="NEW VALUE^F^^0;5^K:$L(X)>25!($L(X)<3) X"
^DD(50.0214,4,3)="Answer must be 3-25 characters in length."
^DD(50.0214,4,21,0)="^^2^2^2950404^"
^DD(50.0214,4,21,1,0)="The new value of the field being edited."
^DD(50.0214,4,21,2,0)=" "
^DD(50.0214,4,"DT")="2930806"
^DD(50.0214,5,0)="NDF UPDATE^F^^0;6^K:$L(X)>25!($L(X)<3) X"
^DD(50.0214,5,3)="Answer must be 3-25 characters in length."
^DD(50.0214,5,8.5)="^"
^DD(50.0214,5,9)="^"
^DD(50.0214,5,21,0)="^.001^2^2^3010123^^"
^DD(50.0214,5,21,1,0)="This field will be set to the text 'NDF Update' if this change was made"
^DD(50.0214,5,21,2,0)="by an NDF Data Update patch."
^DD(50.0214,5,23,0)="^^2^2^3010123^"
^DD(50.0214,5,23,1,0)="Hard set to 'NDF Update' by the post-install routine of an NDF Data Update"
^DD(50.0214,5,23,2,0)="patch."
^DD(50.0214,5,"DT")="3010123"
^DD(50.0214,"B","ACTIVITY LOG",.01)=""
^DD(50.0214,"B","FIELD EDITED",3)=""
^DD(50.0214,"B","INITIATOR OF ACTIVITY",2)=""
^DD(50.0214,"B","NDF UPDATE",5)=""
^DD(50.0214,"B","NEW VALUE",4)=""
^DD(50.0214,"B","REASON",1)=""
^DD(50.0214,"GL",0,1,.01)=""
^DD(50.0214,"GL",0,2,1)=""
^DD(50.0214,"GL",0,3,2)=""
^DD(50.0214,"GL",0,4,3)=""
^DD(50.0214,"GL",0,5,4)=""
^DD(50.0214,"GL",0,6,5)=""
^DD(50.0214,"IX",.01)=""
^DD(50.032,0)="NDC BY OUTPATIENT SITE SUB-FIELD^^2^3"
^DD(50.032,0,"DIK")="PSOXR"
^DD(50.032,0,"DT")="3041015"
^DD(50.032,0,"IX","B",50.032,.01)=""
^DD(50.032,0,"NM","NDC BY OUTPATIENT SITE")=""
^DD(50.032,0,"UP")="50"
^DD(50.032,.01,0)="OUTPATIENT SITE^P59'^PS(59,^0;1^Q"
^DD(50.032,.01,1,0)="^.1"
^DD(50.032,.01,1,1,0)="50.032^B"
^DD(50.032,.01,1,1,1)="S ^PSDRUG(DA(1),""NDCOP"",""B"",$E(X,1,30),DA)="""""
^DD(50.032,.01,1,1,2)="K ^PSDRUG(DA(1),""NDCOP"",""B"",$E(X,1,30),DA)"
^DD(50.032,.01,"DT")="3041015"
^DD(50.032,1,0)="LAST LOCAL NDC^F^^0;2^K:$L(X)>15!($L(X)<5) X"
^DD(50.032,1,3)="Answer must be 5-15 characters in length"
^DD(50.032,1,21,0)="^^5^5^3041015^^"
^DD(50.032,1,21,1,0)="This field contains the last NDC number dispensed from a window fill"
^DD(50.032,1,21,2,0)="for this drug by a specific Division. It is used to present a default"
^DD(50.032,1,21,3,0)="NDC number to the  finishing pharmacist.  They may use this number or"
^DD(50.032,1,21,4,0)="enter a different one  based on the NDC number on the bottle they are"
^DD(50.032,1,21,5,0)="filling the prescription."
^DD(50.032,1,"DT")="3041015"
^DD(50.032,2,0)="LAST CMOP NDC^F^^0;3^K:$L(X)>15!($L(X)<5) X"
^DD(50.032,2,3)="Answer must be 5-15 characters in length"
^DD(50.032,2,21,0)="^^3^3^3041015^"
^DD(50.032,2,21,1,0)="This field contains the last NDC number dispensed by a CMOP Center for"
^DD(50.032,2,21,2,0)="this drug for a specific division. It is to as a default NDC Number for"
^DD(50.032,2,21,3,0)="the next CMOP prescription for the same drug and division. "
^DD(50.032,2,"DT")="3041015"
^DD(50.032,"B","LAST CMOP NDC",2)=""
^DD(50.032,"B","LAST LOCAL NDC",1)=""
^DD(50.032,"B","OUTPATIENT SITE",.01)=""
^DD(50.032,"GL",0,1,.01)=""
^DD(50.032,"GL",0,2,1)=""
^DD(50.032,"GL",0,3,2)=""
^DD(50.032,"IX",.01)=""
^DD(50.037,0)="DRUG TEXT ENTRY SUB-FIELD^^.01^1"
^DD(50.037,0,"DT")="3000901"
^DD(50.037,0,"IX","B",50.037,.01)=""
^DD(50.037,0,"NM","DRUG TEXT ENTRY")=""
^DD(50.037,0,"UP")="50"
^DD(50.037,.01,0)="DRUG TEXT ENTRY^M*P51.7'^PS(51.7,^0;1^S DIC(""S"")=""N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""""^"""",2) I $S('ZC:1,1:ZC>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.037,.01,1,0)="^.1"
^DD(50.037,.01,1,1,0)="50.037^B"
^DD(50.037,.01,1,1,1)="S ^PSDRUG(DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(50.037,.01,1,1,2)="K ^PSDRUG(DA(1),9,""B"",$E(X,1,30),DA)"
^DD(50.037,.01,1,2,0)="50^DTXT"
^DD(50.037,.01,1,2,1)="S ^PSDRUG(""DTXT"",$E(X,1,30),DA(1),DA)="""""
^DD(50.037,.01,1,2,2)="K ^PSDRUG(""DTXT"",$E(X,1,30),DA(1),DA)"
^DD(50.037,.01,1,2,3)="Do Not Delete"
^DD(50.037,.01,1,2,"%D",0)="^^1^1^3011107^"
^DD(50.037,.01,1,2,"%D",1,0)="This cross-reference is used to lookup entries linked to a Drug Text entry."
^DD(50.037,.01,1,2,"DT")="3011107"
^DD(50.037,.01,3)="This field is used to associate a drug entry with text entries in the DRUG TEXT file (#51.7)."
^DD(50.037,.01,12)="This is used to screen out inactive entries."
^DD(50.037,.01,12.1)="S DIC(""S"")=""N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""""^"""",2) I $S('ZC:1,1:ZC>DT)"""
^DD(50.037,.01,21,0)="^.001^2^2^3000901^^^^"
^DD(50.037,.01,21,1,0)="This field points to various drug text entries located in the DRUG TEXT"
^DD(50.037,.01,21,2,0)="file (#51.7)."
^DD(50.037,.01,"DT")="3000901"
^DD(50.037,"B","DRUG TEXT ENTRY",.01)=""
^DD(50.037,"GL",0,1,.01)=""
^DD(50.037,"IX",.01)=""
^DD(50.0441,0)="IFCAP ITEM NUMBER SUB-FIELD^^.01^1"
^DD(50.0441,0,"DT")="2920330"
^DD(50.0441,0,"IX","B",50.0441,.01)=""
^DD(50.0441,0,"NM","IFCAP ITEM NUMBER")=""
^DD(50.0441,0,"UP")="50"
^DD(50.0441,.01,0)="ITEM NUMBER^M*P441'X^PRC(441,^0;1^D:$G(DA) FI^PSSAUTL S DIC(""S"")=""I $E($G(^(3)),1)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.0441,.01,1,0)="^.1"
^DD(50.0441,.01,1,1,0)="50.0441^B"
^DD(50.0441,.01,1,1,1)="S ^PSDRUG(DA(1),441,""B"",$E(X,1,30),DA)="""""
^DD(50.0441,.01,1,1,2)="K ^PSDRUG(DA(1),441,""B"",$E(X,1,30),DA)"
^DD(50.0441,.01,1,2,0)="50^AB"
^DD(50.0441,.01,1,2,1)="S ^PSDRUG(""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(50.0441,.01,1,2,2)="K ^PSDRUG(""AB"",$E(X,1,30),DA(1),DA)"
^DD(50.0441,.01,1,2,"%D",0)="^^1^1^2921123^^"
^DD(50.0441,.01,1,2,"%D",1,0)="To locate drug by ITEM MASTER file number."
^DD(50.0441,.01,1,2,"DT")="2920318"
^DD(50.0441,.01,3)="Enter ITEM MASTER Number or short description."
^DD(50.0441,.01,12)="Cannot select Inactive items."
^DD(50.0441,.01,12.1)="S DIC(""S"")=""I $E($G(^(3)),1)'=1"""
^DD(50.0441,.01,21,0)="^^3^3^2921117^^^^"
^DD(50.0441,.01,21,1,0)="This field contains any or all items in the ITEM MASTER file that relate to"
^DD(50.0441,.01,21,2,0)="this drug.  This relationship will enable automated receiving from the IFCAP"
^DD(50.0441,.01,21,3,0)="Inventory module."
^DD(50.0441,.01,23,0)="^^2^2^2921117^^^^"
^DD(50.0441,.01,23,1,0)="With the ""AB"" cross reference this multiple will be used when"
^DD(50.0441,.01,23,2,0)="PRCP routines pass receiving data to PSA routines."
^DD(50.0441,.01,"DT")="2920731"
^DD(50.0441,.01,"LAYGO",1,0)="N PSA S PSA=$O(^PSDRUG(""AB"",+X,0)) S:PSA=DA PSA=$O(^(DA)) W:$G(PSA) $C(7),!!,$P($G(^PSDRUG(+$O(^PSDRUG(""AB"",+X,0)),0)),U),"" is already linked to"",!!,""Item #"",X,""  "",$$DESCR^PRCPUX1(0,X) I '$G(PSA)"
^DD(50.0441,"B","ITEM NUMBER",.01)=""
^DD(50.0441,"GL",0,1,.01)=""
^DD(50.0441,"IX",.01)=""
^DD(50.065,0)="FORMULARY ALTERNATIVE SUB-FIELD^^.01^1"
^DD(50.065,0,"DT")="2910728"
^DD(50.065,0,"IX","B",50.065,.01)=""
^DD(50.065,0,"NM","FORMULARY ALTERNATIVE")=""
^DD(50.065,0,"UP")="50"
^DD(50.065,.01,0)="FORMULARY ALTERNATIVE^M*P50'^PSDRUG(^0;1^S DIC(""S"")=""I '$P(^(0),""""^"""",9) S X(1)=$G(^(""""I"""")) I $S('X(1):1,1:X(1)>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.065,.01,1,0)="^.1"
^DD(50.065,.01,1,1,0)="50.065^B"
^DD(50.065,.01,1,1,1)="S ^PSDRUG(DA(1),65,""B"",$E(X,1,30),DA)="""""
^DD(50.065,.01,1,1,2)="K ^PSDRUG(DA(1),65,""B"",$E(X,1,30),DA)"
^DD(50.065,.01,1,2,0)="50^AFA^MUMPS"
^DD(50.065,.01,1,2,1)="S ^PSDRUG(""AFA"",X,DA(1))="""""
^DD(50.065,.01,1,2,2)="K ^PSDRUG(""AFA"",X,DA(1))"
^DD(50.065,.01,1,2,3)="Referenced when editing the NON-FORMULARY field."
^DD(50.065,.01,1,2,"%D",0)="^^3^3^2970926^^^"
^DD(50.065,.01,1,2,"%D",1,0)="  Used by the NON-FORMULARY field.  A drug cannot be made non-formulary if"
^DD(50.065,.01,1,2,"%D",2,0)="it is a formulary alternative for another drug."
^DD(50.065,.01,1,2,"%D",3,0)="In the form of: ^PSDRUG(""AFA"",Formulary Alternative ptr.,DA)"
^DD(50.065,.01,1,2,"DT")="2910728"
^DD(50.065,.01,3)="ENTER A FORMULARY DRUG AS AN ALTERNATIVE TO THIS N0N-FORMULARY DRUG."
^DD(50.065,.01,4)="D NFH^PSSDDUT2"
^DD(50.065,.01,12)="Alternative must be formulary and active."
^DD(50.065,.01,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",9) S X(1)=$G(^(""""I"""")) I $S('X(1):1,1:X(1)>DT)"""
^DD(50.065,.01,20,0)="^.3LA^1^1"
^DD(50.065,.01,20,1,0)="PSJ"
^DD(50.065,.01,20,2,0)="psj"
^DD(50.065,.01,21,0)="^^3^3^2910904^^^"
^DD(50.065,.01,21,1,0)="  This is a formulary alternative for this non-formulary drug.  Any"
^DD(50.065,.01,21,2,0)="formulary alternatives entered are shown to non-pharmacists whenever"
^DD(50.065,.01,21,3,0)="they attempt to order this non-formulary drug."
^DD(50.065,.01,"DT")="2910728"
^DD(50.065,"B","FORMULARY ALTERNATIVE",.01)=""
^DD(50.065,"GL",0,1,.01)=""
^DD(50.065,"GR","PSJ",.01,1)=""
^DD(50.065,"GR","psj",.01,2)=""
^DD(50.065,"IX",.01)=""
^DD(50.073,0)="FIELD^^20^8"
^DD(50.073,0,"DDA")="N"
^DD(50.073,0,"DT")="2921214"
^DD(50.073,0,"IX","AD",50.07301,.01)=""
^DD(50.073,0,"IX","B",50.073,.01)=""
^DD(50.073,0,"NM","DUE QUESTIONNAIRE")=""
^DD(50.073,0,"PT",50.0731,1)=""
^DD(50.073,0,"VR")="7.0"
^DD(50.073,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(50.073,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(50.073,.01,1,0)="^.1"
^DD(50.073,.01,1,1,0)="50.073^B"
^DD(50.073,.01,1,1,1)="S ^PS(50.073,""B"",$E(X,1,30),DA)="""""
^DD(50.073,.01,1,1,2)="K ^PS(50.073,""B"",$E(X,1,30),DA)"
^DD(50.073,.01,3)="Answer must be 3-30 characters in length."
^DD(50.073,.01,21,0)="^^1^1^2901002^"
^DD(50.073,.01,21,1,0)="The name of a DUE QUESTIONNAIRE."
^DD(50.073,.01,22)=" "
^DD(50.073,.01,"DEL",1,0)="I $D(^PS(50.0731,""Q"",DA))"
^DD(50.073,.01,"DT")="2900801"
^DD(50.073,1,0)="ACTIVE FOR PROFILES^S^1:YES;0:NO;^0;2^Q"
^DD(50.073,1,3)="Answer YES to automatically print the DUE QUESTIONNAIRE on the Action Profile."
^DD(50.073,1,21,0)="^^2^2^2901002^"
^DD(50.073,1,21,1,0)="Determines whether a DUE ANSWER SHEET prints automatically on Action"
^DD(50.073,1,21,2,0)="Profiles."
^DD(50.073,1,"DT")="2900825"
^DD(50.073,2,0)="ACTIVE STUDY^S^0:NO;1:YES;^0;3^Q"
^DD(50.073,2,3)="Only active DUE QUESTIONNAIREs will print on the Action Profile.  This field is used primarily for searching and sorting."
^DD(50.073,2,21,0)="^^2^2^2901018^^^^"
^DD(50.073,2,21,1,0)="Allows the user to designate Active and Inactive DUE QUESTIONNAIREs.  Only "
^DD(50.073,2,21,2,0)="active studies are printed on Action Profiles."
^DD(50.073,2,"DT")="2900801"
^DD(50.073,3,0)="LOCKED^SI^0:NO;1:YES;^0;4^Q"
^DD(50.073,3,3)="If this field is YES, the Question content of this DUE QUESTIONNAIRE is uneditable."
^DD(50.073,3,21,0)="^^2^2^2901010^^"
^DD(50.073,3,21,1,0)="This field will be set to YES when an DUE ANSWER SHEET has been generated"
^DD(50.073,3,21,2,0)="for this DUE QUESTIONNAIRE.  Disallows editing of the questions when Locked."
^DD(50.073,3,"DT")="2900828"
^DD(50.073,4,0)="NARRATIVE^50.07303^^N;0"
^DD(50.073,4,21,0)="^^2^2^2901011^^"
^DD(50.073,4,21,1,0)="The Narrative will print on all DUE ANSWER SHEETS generated for this"
^DD(50.073,4,21,2,0)="DUE QUESTIONNAIRE."
^DD(50.073,5,0)="DIVISION/SITE^50.735P^^3;0"
^DD(50.073,5,21,0)="^^2^2^2971211^^^^"
^DD(50.073,5,21,1,0)="This sub-file is used to indicate which outpatient division(s) are related"
^DD(50.073,5,21,2,0)="to this DUE questionnaire."
^DD(50.073,5,23,0)="^^1^1^2971211^^^^"
^DD(50.073,5,23,1,0)="multiple."
^DD(50.073,10,0)="DRUG^50.07301P^^1;0"
^DD(50.073,10,21,0)="^^1^1^2971211^^"
^DD(50.073,10,21,1,0)="This sub-file is used to enter drugs associated with the DUE Questionnaire."
^DD(50.073,20,0)="QUESTION^50.07302IA^^2;0"
^DD(50.073,20,21,0)="^^1^1^2971211^^^"
^DD(50.073,20,21,1,0)="This sub-file is used to enter text associated with DUE Questionnaire."
^DD(50.073,"B","ACTIVE FOR PROFILES",1)=""
^DD(50.073,"B","ACTIVE STUDY",2)=""
^DD(50.073,"B","DIVISION/SITE",5)=""
^DD(50.073,"B","DRUG",10)=""
^DD(50.073,"B","LOCKED",3)=""
^DD(50.073,"B","NAME",.01)=""
^DD(50.073,"B","NARRATIVE",4)=""
^DD(50.073,"B","QUESTION",20)=""
^DD(50.073,"GL",0,1,.01)=""
^DD(50.073,"GL",0,2,1)=""
^DD(50.073,"GL",0,3,2)=""
^DD(50.073,"GL",0,4,3)=""
^DD(50.073,"GL",1,0,10)=""
^DD(50.073,"GL",2,0,20)=""
^DD(50.073,"GL",3,0,5)=""
^DD(50.073,"GL","N",0,4)=""
^DD(50.073,"IX",.01)=""
^DD(50.073,"RQ",.01)=""
^DD(50.073,"SB",50.07301,10)=""
^DD(50.073,"SB",50.07302,20)=""
^DD(50.073,"SB",50.07303,4)=""
^DD(50.073,"SB",50.735,5)=""
^DD(50.07301,0)="DRUG SUB-FIELD^^.01^1"
^DD(50.07301,0,"IX","B",50.07301,.01)=""
^DD(50.07301,0,"NM","DRUG")=""
^DD(50.07301,0,"UP")="50.073"
^DD(50.07301,.01,0)="DRUG^MP50'^PSDRUG(^0;1^Q"
^DD(50.07301,.01,1,0)="^.1"
^DD(50.07301,.01,1,1,0)="50.07301^B"
^DD(50.07301,.01,1,1,1)="S ^PS(50.073,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.07301,.01,1,1,2)="K ^PS(50.073,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.07301,.01,1,2,0)="50.073^AD"
^DD(50.07301,.01,1,2,1)="S ^PS(50.073,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(50.07301,.01,1,2,2)="K ^PS(50.073,""AD"",$E(X,1,30),DA(1),DA)"
^DD(50.07301,.01,3)="A Drug must be entered here for this DUE QUESTIONNAIRE to be printed on the Action Profile."
^DD(50.07301,.01,21,0)="^^3^3^2971211^^^"
^DD(50.07301,.01,21,1,0)="This multiple field contains all drugs associated with this DUE"
^DD(50.07301,.01,21,2,0)="QUESTIONNAIRE.  Drugs in this field are checked against Drugs in"
^DD(50.07301,.01,21,3,0)="a patient's Action Profile when printing DUEs on Action Profiles."
^DD(50.07301,.01,"DT")="2900828"
^DD(50.07301,"B","DRUG",.01)=""
^DD(50.07301,"GL",0,1,.01)=""
^DD(50.07301,"IX",.01)=""
^DD(50.07302,0)="QUESTION SUB-FIELD^^1^2"
^DD(50.07302,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PS(50.0732,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50.0732,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(50.07302,0,"IX","B",50.07302,.01)=""
^DD(50.07302,0,"NM","QUESTION")=""
^DD(50.07302,0,"UP")="50.073"
^DD(50.07302,.01,0)="QUESTION NUMBER^MNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X I $P(^PS(50.073,DA(1),0),""^"",4) K X W *7,!?5,""NO EDITING AFTER QUESTIONNAIRE HAS BEEN ANSWERED"""
^DD(50.07302,.01,1,0)="^.1"
^DD(50.07302,.01,1,1,0)="50.07302^B"
^DD(50.07302,.01,1,1,1)="S ^PS(50.073,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(50.07302,.01,1,1,2)="K ^PS(50.073,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(50.07302,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits. ENTER THE NUMBER YOU WANT DISPLAYED TO THE LEFT OF THE QUESTION."
^DD(50.07302,.01,4)=""
^DD(50.07302,.01,21,0)="^^1^1^2971211^^^"
^DD(50.07302,.01,21,1,0)="The question number for the Question Text."
^DD(50.07302,.01,"DEL",1,0)="I $D(^PS(50.0731,""Q"",DA(1)))"
^DD(50.07302,.01,"DT")="2900828"
^DD(50.07302,1,0)="QUESTION TEXT^P50.0732X^PS(50.0732,^0;2^I $P(^PS(50.073,DA(1),0),""^"",4) K X W *7,!?5,""NO EDITING AFTER QUESTIONNAIRE HAS BEEN ANSWERED"""
^DD(50.07302,1,21,0)="^^1^1^2971211^^"
^DD(50.07302,1,21,1,0)="The text of a question on this DUE QUESTIONNAIRE."
^DD(50.07302,1,"DT")="2900828"
^DD(50.07302,"B","QUESTION NUMBER",.01)=""
^DD(50.07302,"B","QUESTION TEXT",1)=""
^DD(50.07302,"GL",0,1,.01)=""
^DD(50.07302,"GL",0,2,1)=""
^DD(50.07302,"IX",.01)=""
^DD(50.07303,0)="NARRATIVE SUB-FIELD^^.01^1"
^DD(50.07303,0,"NM","NARRATIVE")=""
^DD(50.07303,0,"UP")="50.073"
^DD(50.07303,.01,0)="NARRATIVE^W^^0;1^Q"
^DD(50.07303,.01,3)="ENTER A NARRATIVE TO BE DISPLAYED WHEN THIS QUESTIONNAIRE'S ANSWER SHEET IS PRINTED."
^DD(50.07303,.01,21,0)="^^2^2^2901011^^"
^DD(50.07303,.01,21,1,0)="The Narrative will print on all DUE ANSWER SHEETS generated"
^DD(50.07303,.01,21,2,0)="for this Questionnaire."
^DD(50.07303,.01,"DT")="2900826"
^DD(50.07303,"B","NARRATIVE",.01)=""
^DD(50.07303,"GL",0,1,.01)=""
^DD(50.0731,0)="FIELD^^20^12"
^DD(50.0731,0,"DDA")="N"
^DD(50.0731,0,"DT")="2930226"
^DD(50.0731,0,"IX","B",50.0731,.01)=""
^DD(50.0731,0,"IX","D",50.0731,2)=""
^DD(50.0731,0,"IX","P",50.0731,4)=""
^DD(50.0731,0,"IX","Q",50.0731,1)=""
^DD(50.0731,0,"NM","DUE ANSWER SHEET")=""
^DD(50.0731,0,"VR")="7.0"
^DD(50.0731,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(50.0731,.01,0)="SEQUENCE NUMBER^RNJ8,0X^^0;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(50.0731,.01,1,0)="^.1"
^DD(50.0731,.01,1,1,0)="50.0731^B"
^DD(50.0731,.01,1,1,1)="S ^PS(50.0731,""B"",$E(X,1,30),DA)="""""
^DD(50.0731,.01,1,1,2)="K ^PS(50.0731,""B"",$E(X,1,30),DA)"
^DD(50.0731,.01,3)="Type a Number between 0 and 99999999, 0 Decimal Digits . THIS IS THE UNIQUE NUMBER USED TO IDENTIFY THIS DUE ANSWER SHEET."
^DD(50.0731,.01,7.5)="K:DIC(0)[""L"" X"
^DD(50.0731,.01,21,0)="^^2^2^2970903^^^"
^DD(50.0731,.01,21,1,0)="A Number which distinctly identifies a DUE ANSWER SHEET.  Automatically"
^DD(50.0731,.01,21,2,0)="generated when a new DUE ANSWER SHEET is created."
^DD(50.0731,.01,"DT")="2930323"
^DD(50.0731,1,0)="QUESTIONNAIRE^P50.073'^PS(50.073,^0;2^Q"
^DD(50.0731,1,1,0)="^.1"
^DD(50.0731,1,1,1,0)="50.0731^Q"
^DD(50.0731,1,1,1,1)="S ^PS(50.0731,""Q"",$E(X,1,30),DA)="""""
^DD(50.0731,1,1,1,2)="K ^PS(50.0731,""Q"",$E(X,1,30),DA)"
^DD(50.0731,1,3)="Enter the DUE QUESTIONNAIRE that should be related to this DUE ANSWER SHEET."
^DD(50.0731,1,21,0)="^^1^1^2970903^^^"
^DD(50.0731,1,21,1,0)="The DUE QUESTIONNAIRE from which this DUE ANSWER SHEET was generated."
^DD(50.0731,1,"DT")="2900815"
^DD(50.0731,2,0)="DRUG^P50'^PSDRUG(^0;3^Q"
^DD(50.0731,2,1,0)="^.1"
^DD(50.0731,2,1,1,0)="50.0731^D"
^DD(50.0731,2,1,1,1)="S ^PS(50.0731,""D"",$E(X,1,30),DA)="""""
^DD(50.0731,2,1,1,2)="K ^PS(50.0731,""D"",$E(X,1,30),DA)"
^DD(50.0731,2,3)="This is the drug requiring this DUE study."
^DD(50.0731,2,21,0)="^^1^1^2901002^"
^DD(50.0731,2,21,1,0)="The Drug for which this DUE ANSWER SHEET was generated."
^DD(50.0731,2,"DT")="2900815"
^DD(50.0731,3,0)="RX #^P52'^PSRX(^0;4^Q"
^DD(50.0731,3,3)="The RX number for the order requiring this DUE study."
^DD(50.0731,3,21,0)="^^1^1^2901002^"
^DD(50.0731,3,21,1,0)="The Prescription number for which this DUE ANSWER SHEET was generated."
^DD(50.0731,3,"DT")="2900801"
^DD(50.0731,4,0)="PROVIDER^*P200'^VA(200,^0;5^S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.0731,4,1,0)="^.1"
^DD(50.0731,4,1,1,0)="50.0731^P"
^DD(50.0731,4,1,1,1)="S ^PS(50.0731,""P"",$E(X,1,30),DA)="""""
^DD(50.0731,4,1,1,2)="K ^PS(50.0731,""P"",$E(X,1,30),DA)"
^DD(50.0731,4,3)="The provider who completed this DUE ANSWER SHEET."
^DD(50.0731,4,12)="Only valid providers are to be selected."
^DD(50.0731,4,12.1)="S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"""
^DD(50.0731,4,21,0)="^^1^1^2901002^"
^DD(50.0731,4,21,1,0)="The Provider answering this DUE ANSWER SHEET."
^DD(50.0731,4,"DT")="2930226"
^DD(50.0731,5,0)="CREATED BY^P200'^VA(200,^0;6^Q"
^DD(50.0731,5,3)="User entering this DUE ANSWER SHEET."
^DD(50.0731,5,21,0)="^^2^2^2901018^^"
^DD(50.0731,5,21,1,0)="The user who generated this DUE ANSWER SHEET.  This field will be null"
^DD(50.0731,5,21,2,0)="if the DUE ANSWER SHEET was generated from an Action Profile."
^DD(50.0731,5,"DT")="2930226"
^DD(50.0731,6,0)="DATE/TIME CREATED^MD^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.0731,6,3)="Time this DUE ANSWER SHEET was answered."
^DD(50.0731,6,21,0)="^^1^1^2901002^"
^DD(50.0731,6,21,1,0)="The Date and Time this DUE ANSWER SHEET was generated."
^DD(50.0731,6,"DT")="2900904"
^DD(50.0731,7,0)="PATIENT^P2'^DPT(^0;8^Q"
^DD(50.0731,7,3)="Patient receiving the drug."
^DD(50.0731,7,21,0)="^^2^2^2901002^"
^DD(50.0731,7,21,1,0)="The patient receiving the Drug for which this DUE ANSWER SHEET was"
^DD(50.0731,7,21,2,0)="generated."
^DD(50.0731,7,"DT")="2900808"
^DD(50.0731,8,0)="SECTION^P50.0733^PS(50.0733,^0;9^Q"
^DD(50.0731,8,3)="Use this field for grouping this DUE ANSWER SHEET, e.g. providers, clinic, services, etc."
^DD(50.0731,8,21,0)="^^2^2^2901002^"
^DD(50.0731,8,21,1,0)="The Section related to this DUE ANSWER SHEET.  This field should be used to"
^DD(50.0731,8,21,2,0)="group DUE ANSWER SHEETs into groups, e.g. Clinics, Services, Divisions, etc."
^DD(50.0731,8,"DT")="2900817"
^DD(50.0731,9,0)="LAST EDITED BY^P200'^VA(200,^0;10^Q"
^DD(50.0731,9,3)="The user last editing this DUE ANSWER SHEET."
^DD(50.0731,9,21,0)="^^1^1^2901002^"
^DD(50.0731,9,21,1,0)="The last User to edit this DUE ANSWER SHEET."
^DD(50.0731,9,"DT")="2930226"
^DD(50.0731,10,0)="SITE/DIVISION^P59'^PS(59,^0;11^Q"
^DD(50.0731,10,3)="Pointer to site/division in Outpatient Site file."
^DD(50.0731,10,21,0)="^^2^2^2921005^"
^DD(50.0731,10,21,1,0)="This field is used to sort and print the responses to the DUE ANSWER SHEETS "
^DD(50.0731,10,21,2,0)="site/division."
^DD(50.0731,10,"DT")="2921005"
^DD(50.0731,20,0)="QUESTION^50.07311AI^^1;0"
^DD(50.0731,20,21,0)="^^1^1^2920127^"
^DD(50.0731,20,21,1,0)="This sub-file is used to enter the text associated with the DUE Questionnaire."
^DD(50.0731,"B","CREATED BY",5)=""
^DD(50.0731,"B","DATE/TIME CREATED",6)=""
^DD(50.0731,"B","DRUG",2)=""
^DD(50.0731,"B","LAST EDITED BY",9)=""
^DD(50.0731,"B","PATIENT",7)=""
^DD(50.0731,"B","PROVIDER",4)=""
^DD(50.0731,"B","QUESTION",20)=""
^DD(50.0731,"B","QUESTIONNAIRE",1)=""
^DD(50.0731,"B","RX #",3)=""
^DD(50.0731,"B","SECTION",8)=""
^DD(50.0731,"B","SEQUENCE NUMBER",.01)=""
^DD(50.0731,"B","SITE/DIVISION",10)=""
^DD(50.0731,"GL",0,1,.01)=""
^DD(50.0731,"GL",0,2,1)=""
^DD(50.0731,"GL",0,3,2)=""
^DD(50.0731,"GL",0,4,3)=""
^DD(50.0731,"GL",0,5,4)=""
^DD(50.0731,"GL",0,6,5)=""
^DD(50.0731,"GL",0,7,6)=""
^DD(50.0731,"GL",0,8,7)=""
^DD(50.0731,"GL",0,9,8)=""
^DD(50.0731,"GL",0,10,9)=""
^DD(50.0731,"GL",0,11,10)=""
^DD(50.0731,"GL",1,0,20)=""
^DD(50.0731,"IX",.01)=""
^DD(50.0731,"IX",1)=""
^DD(50.0731,"IX",2)=""
^DD(50.0731,"IX",4)=""
^DD(50.0731,"RQ",.01)=""
^DD(50.0731,"SB",50.07311,20)=""
^DD(50.07311,0)="QUESTION SUB-FIELD^^2^3"
^DD(50.07311,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PS(50.0732,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50.0732,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(50.07311,0,"IX","B",50.07311,.01)=""
^DD(50.07311,0,"NM","QUESTION")=""
^DD(50.07311,0,"QUES")="QUES2^PSODUE"
^DD(50.07311,0,"UP")="50.0731"
^DD(50.07311,.01,0)="QUESTION NUMBER^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.07311,.01,1,0)="^.1"
^DD(50.07311,.01,1,1,0)="50.07311^B"
^DD(50.07311,.01,1,1,1)="S ^PS(50.0731,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.07311,.01,1,1,2)="K ^PS(50.0731,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.07311,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(50.07311,.01,21,0)="^^1^1^2901002^"
^DD(50.07311,.01,21,1,0)="The Question Number to be used for the Question Text."
^DD(50.07311,.01,"DT")="2900801"
^DD(50.07311,1,0)="QUESTION TEXT^P50.0732^PS(50.0732,^0;2^Q"
^DD(50.07311,1,21,0)="^^1^1^2901002^"
^DD(50.07311,1,21,1,0)="The text of the question."
^DD(50.07311,1,"DT")="2900801"
^DD(50.07311,2,0)="ANSWER^F^^1;1^K:X["""""""" X I $D(X) K:$L(X)>245!($L(X)<1) X"
^DD(50.07311,2,1,0)="^.1^^0"
^DD(50.07311,2,3)="Answer must be 1-245 characters in length. THIS FIELD IS NOT ACTUALLY FREE TEXT SINCE THE INPUT IS FURTHER RESTRICTED BY THE TYPE OF ANSWER REQUIRED IN THE DUE QUESTION FILE."
^DD(50.07311,2,21,0)="^^1^1^2901002^"
^DD(50.07311,2,21,1,0)="The Provider's response to the Question Text."
^DD(50.07311,2,"DT")="2900808"
^DD(50.07311,"B","ANSWER",2)=""
^DD(50.07311,"B","QUESTION NUMBER",.01)=""
^DD(50.07311,"B","QUESTION TEXT",1)=""
^DD(50.07311,"GL",0,1,.01)=""
^DD(50.07311,"GL",0,2,1)=""
^DD(50.07311,"GL",1,1,2)=""
^DD(50.07311,"IX",.01)=""
^DD(50.0732,0)="FIELD^^6^7"
^DD(50.0732,0,"IX","B",50.0732,.01)=""
^DD(50.0732,0,"NM","DUE QUESTION")=""
^DD(50.0732,0,"PT",50.07302,1)=""
^DD(50.0732,0,"PT",50.07311,1)=""
^DD(50.0732,0,"VR")="7.0"
^DD(50.0732,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(50.0732,.01,0)="TEXT^RFX^^0;1^K:$L(X)>145!($L(X)<3)!'(X'?1P.E) X S PSRC=DA S:$G(PSODUEL) PSRC=+Y I $D(X),Y'=-1,$P(^PS(50.0732,DA,0),""^"",7),X'=$P(^PS(50.0732,PSRC,0),""^"") D EN^DDIOL(""NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!"","""",""$C(7),!?5"") K X,PSRC"
^DD(50.0732,.01,1,0)="^.1"
^DD(50.0732,.01,1,1,0)="50.0732^B"
^DD(50.0732,.01,1,1,1)="S ^PS(50.0732,""B"",$E(X,1,30),DA)="""""
^DD(50.0732,.01,1,1,2)="K ^PS(50.0732,""B"",$E(X,1,30),DA)"
^DD(50.0732,.01,3)="Answer must be 3-145 characters in length. ENTER A FREE TEXT QUESTION TO BE USED ON A DUE QUESTIONNAIRE.  THIS DATA MAY BE CREATED AND EDITED FROM THE DUE QUESTIONNAIRE FILE."
^DD(50.0732,.01,4)="D DUE1^PSOHELP4"
^DD(50.0732,.01,21,0)="^^1^1^2970903^^^^"
^DD(50.0732,.01,21,1,0)="Question to be used in the DUE QUESTIONNAIRE file."
^DD(50.0732,.01,"DT")="2940519"
^DD(50.0732,1,0)="TYPE OF ANSWER REQUIRED^SX^1:YES/NO/UNKNOWN;2:FREE TEXT;3:NUMERIC;^0;2^I $P(^PS(50.0732,DA,0),""^"",7) K X D EN^DDIOL(""NO EDITING AFTER QUESTION HAS BEEN ANSWERED IN A QUESTIONNAIRE!"","""",""$C(7),!?5"")"
^DD(50.0732,1,3)="This field is used to limit the type of response allowed when entering data into a DUE QUESTIONNAIRE."
^DD(50.0732,1,21,0)="^^8^8^2901012^^"
^DD(50.0732,1,21,1,0)="Limits the type of Answer allowed.  "
^DD(50.0732,1,21,2,0)="   1. YES/NO/UNKNOWN"
^DD(50.0732,1,21,3,0)="   2. FREE TEXT"
^DD(50.0732,1,21,4,0)="   3. NUMERIC"
^DD(50.0732,1,21,5,0)=" "
^DD(50.0732,1,21,6,0)="This field logically defines the Answer field, however, VA FileMan will"
^DD(50.0732,1,21,7,0)="treat the Answer field as it is defined in the Data Dictionary, i.e."
^DD(50.0732,1,21,8,0)="Free Text with a max length of 245 characters."
^DD(50.0732,1,21,9,0)=" "
^DD(50.0732,1,"DT")="2900822"
^DD(50.0732,2,0)="LOWER LIMIT FOR NUMERICS^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"".""1N.N) X"
^DD(50.0732,2,3)="Type a Number between -99999999 and 99999999, 0 Decimal Digits. THIS WILL BE THE LOWEST NUMBER ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET."
^DD(50.0732,2,21,0)="^^1^1^2901004^^"
^DD(50.0732,2,21,1,0)="The smallest number allowed for an Answer to this Question."
^DD(50.0732,2,"DT")="2900904"
^DD(50.0732,3,0)="UPPER LIMIT FOR NUMERICS^NJ13,4X^^0;4^K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"".""1N.N) X"
^DD(50.0732,3,3)="Type a Number between -99999999 and 99999999, 0 Decimal Digits. THIS IS THE HIGHEST NUMBER ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET."
^DD(50.0732,3,21,0)="^^1^1^2901004^"
^DD(50.0732,3,21,1,0)="The largest number allowed for an Answer to this Question."
^DD(50.0732,3,"DT")="2900801"
^DD(50.0732,4,0)="FRACTIONAL DIGITS^NJ1,0^^0;5^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.0732,4,3)="Type a Number between 0 and 5, 0 Decimal Digits. THIS IS THE MAX NUMBER OF FRACTIONAL DIGITS ALLOWED WHEN ANSWERING THIS QUESTION ON A DUE ANSWER SHEET."
^DD(50.0732,4,21,0)="^^1^1^2901004^^"
^DD(50.0732,4,21,1,0)="The number of fractional digits allowed for an Answer to this Question."
^DD(50.0732,4,"DT")="2900801"
^DD(50.0732,5,0)="FREE TEXT LENGTH^NJ3,0^^0;6^K:+X'=X!(X>245)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.0732,5,3)="Type a Number between 1 and 245, 0 Decimal Digits. THIS IS THE MAX LENGTH ANSWER ALLOWED FOR THIS QUESTION WHEN ANSWERING A DUE ANSWER SHEET"
^DD(50.0732,5,21,0)="^^1^1^2901010^^^"
^DD(50.0732,5,21,1,0)="The number of characters allowed for an Answer to this Question."
^DD(50.0732,5,22)=""
^DD(50.0732,5,"DT")="2900801"
^DD(50.0732,6,0)="LOCKED^SI^0:NO;1:YES;^0;7^Q"
^DD(50.0732,6,3)="If yes this field prohibits editing the text of this question."
^DD(50.0732,6,21,0)="^^2^2^2901004^"
^DD(50.0732,6,21,1,0)="Used to prevent changes to the  Question text once an DUE ANSWER SHEET has been"
^DD(50.0732,6,21,2,0)="printed."
^DD(50.0732,6,"DT")="2900828"
^DD(50.0732,"B","FRACTIONAL DIGITS",4)=""
^DD(50.0732,"B","FREE TEXT LENGTH",5)=""
^DD(50.0732,"B","LOCKED",6)=""
^DD(50.0732,"B","LOWER LIMIT FOR NUMERICS",2)=""
^DD(50.0732,"B","TEXT",.01)=""
^DD(50.0732,"B","TYPE OF ANSWER REQUIRED",1)=""
^DD(50.0732,"B","UPPER LIMIT FOR NUMERICS",3)=""
^DD(50.0732,"GL",0,1,.01)=""
^DD(50.0732,"GL",0,2,1)=""
^DD(50.0732,"GL",0,3,2)=""
^DD(50.0732,"GL",0,4,3)=""
^DD(50.0732,"GL",0,5,4)=""
^DD(50.0732,"GL",0,6,5)=""
^DD(50.0732,"GL",0,7,6)=""
^DD(50.0732,"IX",.01)=""
^DD(50.0732,"RQ",.01)=""
^DD(50.0733,0)="FIELD^^10^2"
^DD(50.0733,0,"DT")="2930226"
^DD(50.0733,0,"IX","B",50.0733,.01)=""
^DD(50.0733,0,"NM","DUE SECTION")=""
^DD(50.0733,0,"PT",50.0731,8)=""
^DD(50.0733,0,"VR")="7.0"
^DD(50.0733,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(50.0733,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(50.0733,.01,1,0)="^.1"
^DD(50.0733,.01,1,1,0)="50.0733^B"
^DD(50.0733,.01,1,1,1)="S ^PS(50.0733,""B"",$E(X,1,30),DA)="""""
^DD(50.0733,.01,1,1,2)="K ^PS(50.0733,""B"",$E(X,1,30),DA)"
^DD(50.0733,.01,3)="Answer must be 3-30 characters in length.  Use this file to separate DUE ANSWER SHEETS into subgroups, e.g. Providers, Services, Clinics, etc."
^DD(50.0733,.01,21,0)="^^1^1^2901004^"
^DD(50.0733,.01,21,1,0)="The Free Text name of this DUE SECTION."
^DD(50.0733,.01,"DT")="2900904"
^DD(50.0733,10,0)="PROVIDER^50.07331P^^10;0"
^DD(50.0733,10,21,0)="^^1^1^2930226^^"
^DD(50.0733,10,21,1,0)="A provider associated with this DUE SECTION."
^DD(50.0733,"B","NAME",.01)=""
^DD(50.0733,"B","PROVIDER",10)=""
^DD(50.0733,"GL",0,1,.01)=""
^DD(50.0733,"GL",10,0,10)=""
^DD(50.0733,"IX",.01)=""
^DD(50.0733,"RQ",.01)=""
^DD(50.0733,"SB",50.07331,10)=""
^DD(50.07331,0)="PROVIDER SUB-FIELD^^.01^1"
^DD(50.07331,0,"DT")="2930226"
^DD(50.07331,0,"IX","B",50.07331,.01)=""
^DD(50.07331,0,"NM","PROVIDER")=""
^DD(50.07331,0,"UP")="50.0733"
^DD(50.07331,.01,0)="PROVIDER^M*P200'^VA(200,^0;1^S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P((X(1),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.07331,.01,1,0)="^.1"
^DD(50.07331,.01,1,1,0)="50.07331^B"
^DD(50.07331,.01,1,1,1)="S ^PS(50.0733,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(50.07331,.01,1,1,2)="K ^PS(50.0733,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(50.07331,.01,3)="Enter a Provider associated with this DUE SECTION."
^DD(50.07331,.01,12)="Only valid providers are to be selected."
^DD(50.07331,.01,12.1)="S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"""
^DD(50.07331,.01,21,0)="^^2^2^2901010^"
^DD(50.07331,.01,21,1,0)="This multiple field should contain a list of Providers associated with"
^DD(50.07331,.01,21,2,0)="this DUE SECTION."
^DD(50.07331,.01,"DT")="2930226"
^DD(50.07331,"B","PROVIDER",.01)=""
^DD(50.07331,"GL",0,1,.01)=""
^DD(50.07331,"IX",.01)=""
^DD(50.0903,0)="POSSIBLE DOSAGES SUB-FIELD^^3^4"
^DD(50.0903,0,"DT")="3000306"
^DD(50.0903,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(50.0903,0,"IX","AC",50.0903,.01)=""
^DD(50.0903,0,"IX","B",50.0903,.01)=""
^DD(50.0903,0,"NM","POSSIBLE DOSAGES")=""
^DD(50.0903,0,"UP")="50"
^DD(50.0903,.01,0)="DISPENSE UNITS PER DOSE^MNJ13,4X^^0;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""5N.N)!('$P($G(^PSDRUG(DA(1),""DOS"")),""^"",2)) X"
^DD(50.0903,.01,1,0)="^.1"
^DD(50.0903,.01,1,1,0)="50.0903^B"
^DD(50.0903,.01,1,1,1)="S ^PSDRUG(DA(1),""DOS1"",""B"",$E(X,1,30),DA)="""""
^DD(50.0903,.01,1,1,2)="K ^PSDRUG(DA(1),""DOS1"",""B"",$E(X,1,30),DA)"
^DD(50.0903,.01,1,2,0)="50.0903^AC^MUMPS"
^DD(50.0903,.01,1,2,1)="D SET^PSSDOSED"
^DD(50.0903,.01,1,2,2)="D KILL^PSSDOSED"
^DD(50.0903,.01,1,2,"%D",0)="^.101^3^3^3000328^^"
^DD(50.0903,.01,1,2,"%D",1,0)="This cross reference is used to update the Dose field for this Dispense"
^DD(50.0903,.01,1,2,"%D",2,0)="Units Per Dose entry. It sets piece 2 of ^PSDRUG(DA(1),""DOS1"",DA,0)="
^DD(50.0903,.01,1,2,"%D",3,0)="Strength times (*) Dispense Units Per Dose."
^DD(50.0903,.01,1,2,"DT")="3000309"
^DD(50.0903,.01,3)="Type a Number between 0 and 99999999, 4 Decimal Digits"
^DD(50.0903,.01,21,0)="^^3^3^3010320^"
^DD(50.0903,.01,21,1,0)="This numeric entry shall be used with the strength to compute the dose."
^DD(50.0903,.01,21,2,0)="Only drugs that meet the specified criteria based on the VA Product File"
^DD(50.0903,.01,21,3,0)="match can have Possible Dosages."
^DD(50.0903,.01,"DT")="3010424"
^DD(50.0903,1,0)="DOSE^NJ15,4I^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.0903,1,3)="Type a Number between 0 and 9999999999, 4 Decimal Digits"
^DD(50.0903,1,21,0)="^.001^2^2^3000425^^^"
^DD(50.0903,1,21,1,0)="The value in this field shall be computed by multiplying the Dispense Units"
^DD(50.0903,1,21,2,0)="Per Dose by the Strength."
^DD(50.0903,1,"DT")="3000313"
^DD(50.0903,2,0)="PACKAGE^FX^^0;3^D IO^PSSDOSED"
^DD(50.0903,2,3)="Enter an 'I' for Inpatient, 'O' for Outpatient, 'IO' for both."
^DD(50.0903,2,21,0)="^.001^4^4^3000329^^^^"
^DD(50.0903,2,21,1,0)="This field will allow a dose to be marked for Inpatient Medications and/or"
^DD(50.0903,2,21,2,0)="Outpatient Pharmacy package use. It will allow a package to be marked only"
^DD(50.0903,2,21,3,0)="if the combination of Dose Form and Unit from the National Drug File"
^DD(50.0903,2,21,4,0)="match is marked as convertible in the Dosage Form (#50.606) file."
^DD(50.0903,2,"DT")="3000312"
^DD(50.0903,3,0)="BCMA UNITS PER DOSE^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.0903,3,3)="Type a Number between 1 and 9999, 0 Decimal Digits. If there is a number entered, it will be used as a default for the Units Per Dose field within the Unit Dose order."
^DD(50.0903,3,21,0)="^^5^5^3010205^"
^DD(50.0903,3,21,1,0)="This field represents the BCMA UNITS PER DOSE, which is associated with"
^DD(50.0903,3,21,2,0)="the Dosage for Inpatient Medication orders. This field will be used to"
^DD(50.0903,3,21,3,0)="populate the Units Per Dose field that designates the number of Dispense"
^DD(50.0903,3,21,4,0)="Drug units required to deliver a needed Dosage through the BCMA"
^DD(50.0903,3,21,5,0)="application."
^DD(50.0903,3,"DT")="3010205"
^DD(50.0903,"B","BCMA UNITS PER DOSE",3)=""
^DD(50.0903,"B","DISPENSE UNITS PER DOSE",.01)=""
^DD(50.0903,"B","DOSE",1)=""
^DD(50.0903,"B","PACKAGE",2)=""
^DD(50.0903,"GL",0,1,.01)=""
^DD(50.0903,"GL",0,2,1)=""
^DD(50.0903,"GL",0,3,2)=""
^DD(50.0903,"GL",0,4,3)=""
^DD(50.0903,"IX",.01)=""
^DD(50.0904,0)="LOCAL POSSIBLE DOSAGE SUB-FIELD^^3^4"
^DD(50.0904,0,"DT")="3010904"
^DD(50.0904,0,"IX","B",50.0904,.01)=""
^DD(50.0904,0,"NM","LOCAL POSSIBLE DOSAGE")=""
^DD(50.0904,0,"UP")="50"
^DD(50.0904,.01,0)="LOCAL POSSIBLE DOSAGE^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(50.0904,.01,1,0)="^.1"
^DD(50.0904,.01,1,1,0)="50.0904^B"
^DD(50.0904,.01,1,1,1)="S ^PSDRUG(DA(1),""DOS2"",""B"",$E(X,1,30),DA)="""""
^DD(50.0904,.01,1,1,2)="K ^PSDRUG(DA(1),""DOS2"",""B"",$E(X,1,30),DA)"
^DD(50.0904,.01,3)="Answer must be 1-60 characters in length."
^DD(50.0904,.01,21,0)="^^7^7^3000425^"
^DD(50.0904,.01,21,1,0)="This field represents the Dosage selections that will display in CPRS"
^DD(50.0904,.01,21,2,0)="for this drug when the Pharmacy Orderable Item that this drug is matched"
^DD(50.0904,.01,21,3,0)="to is selected. These dosages will be presented for selection only if"
^DD(50.0904,.01,21,4,0)="there are no Possible Dosages available for the Pharmacy type of order"
^DD(50.0904,.01,21,5,0)="being entered. Local Possible Dosages should be created when a drug does"
^DD(50.0904,.01,21,6,0)="not have any Possible Dosages. The Possible Dosages can only be created"
^DD(50.0904,.01,21,7,0)="when the VA Product File match of the drug meet specified criteria."
^DD(50.0904,.01,"DT")="3000324"
^DD(50.0904,1,0)="PACKAGE^S^I:Inpatient;O:Outpatient;IO:Both;OI:Both;^0;2^Q"
^DD(50.0904,1,3)="Enter an 'I' for Inpatient, 'O' for Outpatient, 'IO' or 'OI' for both."
^DD(50.0904,1,21,0)="^^2^2^3000425^"
^DD(50.0904,1,21,1,0)="This field will allow a dose to be marked for Inpatient Medications and/or"
^DD(50.0904,1,21,2,0)="Outpatient Pharmacy package use."
^DD(50.0904,1,"DT")="3000425"
^DD(50.0904,2,0)="BCMA UNITS PER DOSE^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.0904,2,3)="Type a Number between 1 and 9999, 0 Decimal Digits. If there is a number entered, it will be used as a default for the Units Per Dose field within the Unit Dose order."
^DD(50.0904,2,21,0)="^^5^5^3010205^"
^DD(50.0904,2,21,1,0)="This field represents the BCMA UNITS PER DOSE, which is associated with"
^DD(50.0904,2,21,2,0)="the Dosage for Inpatient Medication orders. This field will be used to"
^DD(50.0904,2,21,3,0)="populate the Units Per Dose field that designates the number of Dispense"
^DD(50.0904,2,21,4,0)="Drug units required to deliver a needed Dosage through the BCMA"
^DD(50.0904,2,21,5,0)="application."
^DD(50.0904,2,"DT")="3010205"
^DD(50.0904,3,0)="OTHER LANGUAGE DOSAGE NAME^F^^0;4^K:$L(X)>60!($L(X)<1) X"
^DD(50.0904,3,3)="Answer must be 1-60 characters in length."
^DD(50.0904,3,20,0)="^.3LA^1^1"
^DD(50.0904,3,20,1,0)="PSO"
^DD(50.0904,3,21,0)="^.001^1^1^3020916^^^^"
^DD(50.0904,3,21,1,0)="This field is used to store local possible dosage in another language."
^DD(50.0904,3,23,0)="^.001^1^1^3020916^^^^"
^DD(50.0904,3,23,1,0)="free text."
^DD(50.0904,3,"DT")="3020916"
^DD(50.0904,"B","BCMA UNITS PER DOSE",2)=""
^DD(50.0904,"B","LOCAL POSSIBLE DOSAGE",.01)=""
^DD(50.0904,"B","OTHER LANGUAGE DOSAGE NAME",3)=""
^DD(50.0904,"B","PACKAGE",1)=""
^DD(50.0904,"GL",0,1,.01)=""
^DD(50.0904,"GL",0,2,1)=""
^DD(50.0904,"GL",0,3,2)=""
^DD(50.0904,"GL",0,4,3)=""
^DD(50.0904,"GR","PSO",3,1)=""
^DD(50.0904,"IX",.01)=""
^DD(50.1,0)="SYNONYM SUB-FIELD^NL^405^9"
^DD(50.1,0,"DT")="2960503"
^DD(50.1,0,"NM","SYNONYM")=""
^DD(50.1,0,"UP")="50"
^DD(50.1,.01,0)="SYNONYM^MFX^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(50.1,.01,.1)="TRADE NAME"
^DD(50.1,.01,1,0)="^.1"
^DD(50.1,.01,1,1,0)="50^C"
^DD(50.1,.01,1,1,1)="S ^PSDRUG(""C"",$E(X,1,40),DA(1),DA)="""""
^DD(50.1,.01,1,1,2)="K ^PSDRUG(""C"",$E(X,1,40),DA(1),DA)"
^DD(50.1,.01,1,1,3)="Do not Delete."
^DD(50.1,.01,1,1,"%D",0)="^.101^2^2^3000505^^^"
^DD(50.1,.01,1,1,"%D",1,0)="This field is used as a quick code for lookups. It is also used to locate "
^DD(50.1,.01,1,1,"%D",2,0)="NDCs to increment the drug's inventory when orders are received."
^DD(50.1,.01,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(50.1,.01,21,0)="^^9^9^3000524^"
^DD(50.1,.01,21,1,0)="This field is used as a quick code for look ups or to locate"
^DD(50.1,.01,21,2,0)="NDCs so the drug's inventory can be incremented when orders "
^DD(50.1,.01,21,3,0)="are received."
^DD(50.1,.01,21,4,0)=" "
^DD(50.1,.01,21,5,0)="Entries in this field will be restricted.  These restrictions will:"
^DD(50.1,.01,21,6,0)="   - Prohibit any entry that is all numeric and less than 6 characters."
^DD(50.1,.01,21,7,0)="   - Convert any entry which matches the NDC-Expiration Date provided by"
^DD(50.1,.01,21,8,0)="     the Robot Rx software. The input transform will strip the leading ""3"""
^DD(50.1,.01,21,9,0)="     and the expiration date from the barcoded NDC."
^DD(50.1,.01,23,0)="^.001^1^1^3000524^^^^"
^DD(50.1,.01,23,1,0)="free text."
^DD(50.1,.01,"DT")="3030917"
^DD(50.1,1,0)="INTENDED USE^S^0:TRADE NAME;1:QUICK CODE;D:DRUG ACCOUNTABILITY;C:CONTROLLED SUBSTANCES;^0;3^Q"
^DD(50.1,1,3)="Enter the intended use of the synonym."
^DD(50.1,1,21,0)="^^8^8^2960503^^^"
^DD(50.1,1,21,1,0)="If you designate a synonym as a quick code, then it will not appear on the"
^DD(50.1,1,21,2,0)="formulary listing for distribution in the hospital.  If it is designated as"
^DD(50.1,1,21,3,0)="a trade name, then it will appear on the listing.  This field does not"
^DD(50.1,1,21,4,0)="affect the ability to look-up a drug by quick code or trade name."
^DD(50.1,1,21,5,0)=" "
^DD(50.1,1,21,6,0)="If the intended use is for Controlled Substances or Drug Accountability,"
^DD(50.1,1,21,7,0)="the synonym is used to locate NDCs so the drug's inventory can be "
^DD(50.1,1,21,8,0)="incremented when orders are received."
^DD(50.1,1,"DT")="2960503"
^DD(50.1,2,0)="NDC CODE^F^^0;2^K:$L(X)>20!($L(X)<5) X"
^DD(50.1,2,.1)=""
^DD(50.1,2,3)="ANSWER MUST BE 5-20 CHARACTERS IN LENGTH"
^DD(50.1,2,21,0)="^^1^1^2960503^^"
^DD(50.1,2,21,1,0)="This field will contain the national drug code."
^DD(50.1,2,23,0)="^^1^1^2960503^^"
^DD(50.1,2,23,1,0)="free text"
^DD(50.1,2,"DT")="2960503"
^DD(50.1,400,0)="VSN^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(50.1,400,.1)="Vendor Stock Number"
^DD(50.1,400,1,0)="^.1"
^DD(50.1,400,1,1,0)="50^AVSN"
^DD(50.1,400,1,1,1)="S ^PSDRUG(""AVSN"",$E(X,1,30),DA(1),DA)="""""
^DD(50.1,400,1,1,2)="K ^PSDRUG(""AVSN"",$E(X,1,30),DA(1),DA)"
^DD(50.1,400,1,1,3)="Do not delete."
^DD(50.1,400,1,1,"%D",0)="^^2^2^2960503^^"
^DD(50.1,400,1,1,"%D",1,0)="This cross-reference stores the vendor's stock number of the drug. It is"
^DD(50.1,400,1,1,"%D",2,0)="used by Drug Accountability and Controlled Substances packages."
^DD(50.1,400,1,1,"DT")="2960503"
^DD(50.1,400,3)="Enter the vendor's stock number corresponding to the NDC."
^DD(50.1,400,21,0)="^^1^1^2960503^^^^"
^DD(50.1,400,21,1,0)="This is the vendor's stock number for the NDC."
^DD(50.1,400,"DT")="2960503"
^DD(50.1,401,0)="ORDER UNIT^P51.5'^DIC(51.5,^0;5^Q"
^DD(50.1,401,.1)="Order Unit"
^DD(50.1,401,3)="Enter the NDC's packaging unit."
^DD(50.1,401,21,0)="^^1^1^2960503^^^^"
^DD(50.1,401,21,1,0)="This is the NDC's unit of order."
^DD(50.1,401,23,0)="^^1^1^2960503^^^^"
^DD(50.1,401,23,1,0)="The Order Unit field points to the ORDER UNIT file (#51.5)."
^DD(50.1,401,"DT")="2960503"
^DD(50.1,402,0)="PRICE PER ORDER UNIT^NJ10,3^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(50.1,402,.1)="Price per Order Unit"
^DD(50.1,402,3)="Enter the cost to purchase one order unit."
^DD(50.1,402,21,0)="^^1^1^2960503^^^^"
^DD(50.1,402,21,1,0)="This is the price for one unit of order."
^DD(50.1,402,"DT")="2960503"
^DD(50.1,403,0)="DISPENSE UNITS PER ORDER UNIT^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.1,403,.1)="Dispense Units per Order Unit"
^DD(50.1,403,3)="Enter the number of dispense units in one order unit."
^DD(50.1,403,21,0)="^^1^1^2960503^^^"
^DD(50.1,403,21,1,0)="This is the number of dispense units in one order unit."
^DD(50.1,403,"DT")="2960503"
^DD(50.1,404,0)="PRICE PER DISPENSE UNIT^NJ10,3^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(50.1,404,.1)="Price per Dispense Unit"
^DD(50.1,404,3)="Enter the cost of one dispense unit."
^DD(50.1,404,21,0)="^^1^1^2960503^^^^"
^DD(50.1,404,21,1,0)="This is the cost of one dispense unit."
^DD(50.1,404,"DT")="2960503"
^DD(50.1,405,0)="VENDOR^F^^0;9^K:$L(X)>35!($L(X)<1) X"
^DD(50.1,405,.1)="Vendor"
^DD(50.1,405,3)="Enter the vendor's name."
^DD(50.1,405,21,0)="^^1^1^2960503^^^"
^DD(50.1,405,21,1,0)="This is the name of the vendor from which the drug was purchased."
^DD(50.1,405,"DT")="2960503"
^DD(50.1,"B","DISPENSE UNITS PER ORDER UNIT",403)=""
^DD(50.1,"B","Dispense Units per Order Unit",403)="1"
^DD(50.1,"B","INTENDED USE",1)=""
^DD(50.1,"B","NDC CODE",2)=""
^DD(50.1,"B","ORDER UNIT",401)=""
^DD(50.1,"B","Order Unit",401)="1"
^DD(50.1,"B","PRICE PER DISPENSE UNIT",404)=""
^DD(50.1,"B","PRICE PER ORDER UNIT",402)=""
^DD(50.1,"B","Price per Dispense Unit",404)="1"
^DD(50.1,"B","Price per Order Unit",402)="1"
^DD(50.1,"B","SYNONYM",.01)=""
^DD(50.1,"B","TRADE NAME",.01)="1"
^DD(50.1,"B","VENDOR",405)=""
^DD(50.1,"B","VSN",400)=""
^DD(50.1,"B","Vendor",405)="1"
^DD(50.1,"B","Vendor Stock Number",400)="1"
^DD(50.1,"GL",0,1,.01)=""
^DD(50.1,"GL",0,2,2)=""
^DD(50.1,"GL",0,3,1)=""
^DD(50.1,"GL",0,4,400)=""
^DD(50.1,"GL",0,5,401)=""
^DD(50.1,"GL",0,6,402)=""
^DD(50.1,"GL",0,7,403)=""
^DD(50.1,"GL",0,8,404)=""
^DD(50.1,"GL",0,9,405)=""
^DD(50.1,"IX",.01)=""
^DD(50.1,"IX",400)=""
^DD(50.2,0)="FIELD^^1^2"
^DD(50.2,0,"DDA")="N"
^DD(50.2,0,"IX","AD",50.21,1)=""
^DD(50.2,0,"IX","B",50.2,.01)=""
^DD(50.2,0,"NM","IV CATEGORY")=""
^DD(50.2,0,"VR")="5.0"
^DD(50.2,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(50.2,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(50.2,.01,1,0)="^.1"
^DD(50.2,.01,1,1,0)="50.2^B"
^DD(50.2,.01,1,1,1)="S ^PS(50.2,""B"",$E(X,1,30),DA)="""""
^DD(50.2,.01,1,1,2)="K ^PS(50.2,""B"",$E(X,1,30),DA)"
^DD(50.2,.01,3)="Answer must be 1-40 characters in length."
^DD(50.2,.01,20,0)="^.3LA^1^1"
^DD(50.2,.01,20,1,0)="PSJI"
^DD(50.2,.01,21,0)="^^1^1^2910305^^"
^DD(50.2,.01,21,1,0)="  Enter the name of the IV CATEGORY."
^DD(50.2,.01,22)=""
^DD(50.2,1,0)="IV DRUG^50.21IV^^1;0"
^DD(50.2,1,20,0)="^.3LA^1^1"
^DD(50.2,1,20,1,0)="PSJI"
^DD(50.2,1,21,0)="^^1^1^2910305^^"
^DD(50.2,1,21,1,0)="  This multiple contains the drugs which are members of this category."
^DD(50.2,1,21,2,0)="the drugs which make up this category."
^DD(50.2,"B","IV DRUG",1)=""
^DD(50.2,"B","NAME",.01)=""
^DD(50.2,"GL",0,1,.01)=""
^DD(50.2,"GL",1,0,1)=""
^DD(50.2,"GR","PSJI",.01,1)=""
^DD(50.2,"GR","PSJI",1,1)=""
^DD(50.2,"IX",.01)=""
^DD(50.2,"RQ",.01)=""
^DD(50.2,"SB",50.21,1)=""
^DD(50.21,0)="IV DRUG SUB-FIELD^^1^2"
^DD(50.21,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSDRUG(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(50.21,0,"IX","B",50.21,.01)=""
^DD(50.21,0,"NM","IV DRUG")=""
^DD(50.21,0,"UP")="50.2"
^DD(50.21,.01,0)="IV DRUG^MV^^0;1^Q"
^DD(50.21,.01,1,0)="^.1"
^DD(50.21,.01,1,1,0)="50.21^B"
^DD(50.21,.01,1,1,1)="S ^PS(50.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.21,.01,1,1,2)="K ^PS(50.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.21,.01,1,1,3)="Required Index for Variable Pointer"
^DD(50.21,.01,1,2,0)="^^TRIGGER^50.21^1"
^DD(50.21,.01,1,2,1)="S X=$S($D(@(""^""_$P(X,"";"",2)_+X_"",0)"")):$P(^(0),""^"",2),1:""""),DIU=$S($D(^PS(50.2,DA(1),1,DA,0)):$P(^(0),""^"",2),1:"""") I X'=DIU S $P(^(0),""^"",2)=X I $O(^DD(50.21,1,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=X,DIH=50.21,DIG=1 D ^DICR"
^DD(50.21,.01,1,2,2)="S X="""",DIU=$S($D(^PS(50.2,DA(1),1,DA,0)):$P(^(0),""^"",2),1:"""") I DIU]"""" S $P(^(0),""^"",2)=X I $O(^DD(50.21,1,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=X,DIH=50.21,DIG=1 D ^DICR"
^DD(50.21,.01,1,2,3)="DON'T DELETE - HOMEGROWN EXTENDED TRIGGER FOR A VP - CML3"
^DD(50.21,.01,1,2,"%D",0)="^^1^2920831^"
^DD(50.21,.01,1,2,"%D",1,0)="Triggers data into sub-field (1)."
^DD(50.21,.01,1,2,"CREATE VALUE")="IV DRUG:GENERIC DRUG"
^DD(50.21,.01,1,2,"DELETE VALUE")="@"
^DD(50.21,.01,1,2,"FIELD")="GENERIC DRUG"
^DD(50.21,.01,20,0)="^.3LA^1^1"
^DD(50.21,.01,20,1,0)="PSJI"
^DD(50.21,.01,21,0)="^^3^3^2910305^"
^DD(50.21,.01,21,1,0)="  This is the IV drug which is a member of this category.  It is a pointer"
^DD(50.21,.01,21,2,0)="to either the IV SOLUTIONS file (52.7) or the IV ADDITIVES file (52.6),"
^DD(50.21,.01,21,3,0)="depending on the drug selected."
^DD(50.21,.01,"V",0)="^.12P^2^2"
^DD(50.21,.01,"V",1,0)="52.6^IV ADDITIVES^1^A^y^n"
^DD(50.21,.01,"V",1,1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)"""
^DD(50.21,.01,"V",1,2)="Entry must have a corresponding Generic Drug"
^DD(50.21,.01,"V",2,0)="52.7^IV SOLUTIONS^2^S^y^n"
^DD(50.21,.01,"V",2,1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)"""
^DD(50.21,.01,"V",2,2)="Entry must have a corresponding Generic Drug"
^DD(50.21,.01,"V","B",52.6,1)=""
^DD(50.21,.01,"V","B",52.7,2)=""
^DD(50.21,.01,"V","M","IV ADDITIVES",1)=""
^DD(50.21,.01,"V","M","IV SOLUTIONS",2)=""
^DD(50.21,.01,"V","O",1,1)=""
^DD(50.21,.01,"V","O",2,2)=""
^DD(50.21,.01,"V","P","A",1)=""
^DD(50.21,.01,"V","P","S",2)=""
^DD(50.21,1,0)="GENERIC DRUG^RP50'I^PSDRUG(^0;2^Q"
^DD(50.21,1,1,0)="^.1"
^DD(50.21,1,1,1,0)="50.2^AD^MUMPS"
^DD(50.21,1,1,1,1)="S ^PS(50.2,""AD"",DA(1),X)="""""
^DD(50.21,1,1,1,2)="K ^PS(50.2,""AD"",DA(1),X)"
^DD(50.21,1,1,1,"%D",0)="^^2^2^2971211^"
^DD(50.21,1,1,1,"%D",1,0)=" Cross-reference by: IV Drug, Generic Drug."
^DD(50.21,1,1,1,"%D",2,0)=" S ^PS(50.2,""AD"",IV DRUG,GENERIC DRUG)="""""
^DD(50.21,1,5,1,0)="50.21^.01^2"
^DD(50.21,1,20,0)="^.3LA^1^1"
^DD(50.21,1,20,1,0)="PSJI"
^DD(50.21,1,21,0)="^^2^2^2910305^"
^DD(50.21,1,21,1,0)="  This is the generic name of the IV drug, and is a pointer to the DRUG"
^DD(50.21,1,21,2,0)="file (50)."
^DD(50.21,1,"DT")="2890502"
^DD(50.21,"B","GENERIC DRUG",1)=""
^DD(50.21,"B","IV DRUG",.01)=""
^DD(50.21,"GL",0,1,.01)=""
^DD(50.21,"GL",0,2,1)=""
^DD(50.21,"GR","PSJI",.01,1)=""
^DD(50.21,"GR","PSJI",1,1)=""
^DD(50.21,"IX",.01)=""
^DD(50.21,"IX",1)=""
^DD(50.21,"RQ",1)=""
^DD(50.3,0)="FIELD^^2^5"
^DD(50.3,0,"DDA")="N"
^DD(50.3,0,"DT")="2920826"
^DD(50.3,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(50.3,0,"IX","AIU",50.31,.01)=""
^DD(50.3,0,"IX","B",50.3,.01)=""
^DD(50.3,0,"IX","C",50.32,.01)=""
^DD(50.3,0,"NM","PRIMARY DRUG")=""
^DD(50.3,0,"PT",50,64)=""
^DD(50.3,0,"PT",50.311,.01)=""
^DD(50.3,0,"PT",52.6,16)=""
^DD(50.3,0,"PT",52.7,16)=""
^DD(50.3,0,"PT",53.1,101)=""
^DD(50.3,0,"PT",53.21,.01)=""
^DD(50.3,0,"PT",53.52,.03)=""
^DD(50.3,0,"PT",55.01,117)=""
^DD(50.3,0,"PT",55.06,101)=""
^DD(50.3,0,"PT",57.1,3)=""
^DD(50.3,.01,0)="NAME^RXF^^0;1^K:$S($L(X)>40:1,$L(X)<3:1,X?1P.E:1,X?2""z"".E:1,1:$D(^PS(50.3,""B"",X))) X"
^DD(50.3,.01,1,0)="^.1"
^DD(50.3,.01,1,1,0)="50.3^B"
^DD(50.3,.01,1,1,1)="S ^PS(50.3,""B"",X,DA)="""""
^DD(50.3,.01,1,1,2)="K ^PS(50.3,""B"",X,DA)"
^DD(50.3,.01,3)="Answer must be 3-40 characters in length."
^DD(50.3,.01,20,0)="^.3LA^1^1"
^DD(50.3,.01,20,1,0)="PS"
^DD(50.3,.01,21,0)="^^3^3^2920826^^^"
^DD(50.3,.01,21,1,0)="  This is the name of a drug used by this site.  Primary drug is used to"
^DD(50.3,.01,21,2,0)="allow order entry to be easier for non-pharmacy personnel and for display."
^DD(50.3,.01,21,3,0)="THIS NAME MUST BE NAME ONLY, WITH NO DOSAGE."
^DD(50.3,.01,23,0)="^^3^3^2920826^^^"
^DD(50.3,.01,23,1,0)="  This is used in order entry by non-pharmacy personnel, for display"
^DD(50.3,.01,23,2,0)="purposes, and by other packages, when it is inappropriate for the dosage of"
^DD(50.3,.01,23,3,0)="the order to be part of the drug name."
^DD(50.3,.01,"DEL",1,0)="I 1 W !!,""Primary Drug entries cannot be deleted."""
^DD(50.3,.01,"DT")="2920826"
^DD(50.3,.02,0)="DEA, SPECIAL HANDLING^FX^^0;2^K:$L(X)>6!($L(X)<1)!(X'?.N.U) X D:$D(X) EDIT^PSJDEA"
^DD(50.3,.02,3)="Answer must be 1-6 characters in length."
^DD(50.3,.02,4)="D ^PSJDEA"
^DD(50.3,.02,20,0)="^.3LA^1^1"
^DD(50.3,.02,20,1,0)="PS"
^DD(50.3,.02,21,0)="^^2^2^2911001^"
^DD(50.3,.02,21,1,0)="  This is used to designate any special handling that may apply to this"
^DD(50.3,.02,21,2,0)="primary drug."
^DD(50.3,.02,23,0)="^^2^2^2911001^"
^DD(50.3,.02,23,1,0)="  This is checked by various functions of the Pharmacy/Medications"
^DD(50.3,.02,23,2,0)="packages."
^DD(50.3,.02,"DT")="2911001"
^DD(50.3,.03,0)="MESSAGE^F^^0;3^K:$L(X)>68!($L(X)<1) X"
^DD(50.3,.03,3)="Answer must be 1-68 characters in length."
^DD(50.3,.03,20,0)="^.3LA^1^1"
^DD(50.3,.03,20,1,0)="PS"
^DD(50.3,.03,21,0)="^^3^3^2920316^"
^DD(50.3,.03,21,1,0)="  This is any information that the pharmacy wants to convey to users who"
^DD(50.3,.03,21,2,0)="select this drug.  Common messages include restrictions that may have been"
^DD(50.3,.03,21,3,0)="placed on the drug."
^DD(50.3,.03,23,0)="^^2^2^2920316^"
^DD(50.3,.03,23,1,0)="  This allows the pharmacy to convey any information about the drug to"
^DD(50.3,.03,23,2,0)="users who select the drug.  This is an identifier."
^DD(50.3,.03,"DT")="2920319"
^DD(50.3,1,0)="APPLICATION^50.31O^^1;0"
^DD(50.3,1,2)="S Y(0)=Y S Y=$O(^PS(50.35,""C"",Y,0)) S:Y Y=$P($G(^PS(50.35,Y,0)),""^"") S:Y="""" Y=Y(0)"
^DD(50.3,1,2.1)="S Y=$O(^PS(50.35,""C"",Y,0)) S:Y Y=$P($G(^PS(50.35,Y,0)),""^"") S:Y="""" Y=Y(0)"
^DD(50.3,1,20,0)="^.3LA^1^1"
^DD(50.3,1,20,1,0)="PS"
^DD(50.3,1,21,0)="^^4^4^2930427^^^"
^DD(50.3,1,21,1,0)="  This is the [DHCP] applications that may make use of this primary drug."
^DD(50.3,1,21,2,0)="This can be used by the applications as a screen, and allows the"
^DD(50.3,1,21,3,0)="applications to edit information about the drug that is specific to the"
^DD(50.3,1,21,4,0)="application."
^DD(50.3,1,"DT")="2910818"
^DD(50.3,2,0)="SYNONYM^50.32^^2;0"
^DD(50.3,2,20,0)="^.3LA^1^1"
^DD(50.3,2,20,1,0)="PS"
^DD(50.3,2,21,0)="^^3^3^2940726^^^"
^DD(50.3,2,21,1,0)="  This allows alternate names, such as trade names, to be entered for"
^DD(50.3,2,21,2,0)="primary drugs, allowing primary drugs to be selected by the alternate "
^DD(50.3,2,21,3,0)="names."
^DD(50.3,2,23,0)="^^3^3^2940726^^"
^DD(50.3,2,23,1,0)="  This allows users to provide alternate names for the entries in this"
^DD(50.3,2,23,2,0)="file.  Users can then select entries from this file by these alternate"
^DD(50.3,2,23,3,0)="names through a regular 'C' cross-reference."
^DD(50.3,"B","APPLICATION",1)=""
^DD(50.3,"B","DEA, SPECIAL HANDLING",.02)=""
^DD(50.3,"B","MESSAGE",.03)=""
^DD(50.3,"B","NAME",.01)=""
^DD(50.3,"B","SYNONYM",2)=""
^DD(50.3,"GL",0,1,.01)=""
^DD(50.3,"GL",0,2,.02)=""
^DD(50.3,"GL",0,3,.03)=""
^DD(50.3,"GL",1,0,1)=""
^DD(50.3,"GL",2,0,2)=""
^DD(50.3,"GR","PS",.01,1)=""
^DD(50.3,"GR","PS",.02,1)=""
^DD(50.3,"GR","PS",.03,1)=""
^DD(50.3,"GR","PS",1,1)=""
^DD(50.3,"GR","PS",2,1)=""
^DD(50.3,"IX",.01)=""
^DD(50.3,"RQ",.01)=""
^DD(50.3,"SB",50.31,1)=""
^DD(50.3,"SB",50.32,2)=""
^DD(50.31,0)="APPLICATION SUB-FIELD^^1^8"
^DD(50.31,0,"DT")="2920224"
^DD(50.31,0,"IX","AFI",50.31,.01)=""
^DD(50.31,0,"IX","AFIF",50.31,.02)=""
^DD(50.31,0,"IX","AFII",50.31,.03)=""
^DD(50.31,0,"IX","B",50.31,.01)=""
^DD(50.31,0,"NM","APPLICATION")=""
^DD(50.31,0,"UP")="50.3"
^DD(50.31,.01,0)="APPLICATION^MFXO^^0;1^D ENALU^PSJUTL"
^DD(50.31,.01,1,0)="^.1"
^DD(50.31,.01,1,1,0)="50.31^B"
^DD(50.31,.01,1,1,1)="S ^PS(50.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.31,.01,1,1,2)="K ^PS(50.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.31,.01,1,2,0)="50.31^AFI^MUMPS"
^DD(50.31,.01,1,2,1)="S X(1)=$G(^PS(50.3,DA(1),1,DA,0)),^PS(50.3,DA(1),1,""AFI"",X)='$P(X(1),""^"",2)_$S($P(X(1),""^"",3):""^""_$P(X(1),""^"",3),1:"""")"
^DD(50.31,.01,1,2,2)="K ^PS(50.3,DA(1),1,""AFI"",X)"
^DD(50.31,.01,1,2,3)="Needed to know if non-formulary or inactive."
^DD(50.31,.01,1,2,"%D",0)="^^1^1^2910819^"
^DD(50.31,.01,1,2,"%D",1,0)="  Provides a quicker check for non-formulary and/or inactive."
^DD(50.31,.01,1,2,"DT")="2910819"
^DD(50.31,.01,1,3,0)="50.3^AIU^MUMPS"
^DD(50.31,.01,1,3,1)="S X(1)=$P($G(^PS(50.3,DA(1),0)),""^"") I X(1)]"""" S ^PS(50.3,""AIU""_X,X(1),DA(1))="""""
^DD(50.31,.01,1,3,2)="S X(1)=$P($G(^PS(50.3,DA(1),0)),""^"") I X(1)]"""" K ^PS(50.3,""AIU""_X,X(1),DA(1))"
^DD(50.31,.01,1,3,3)="Needed to select drugs by application."
^DD(50.31,.01,1,3,"%D",0)="^^2^2^2910819^"
^DD(50.31,.01,1,3,"%D",1,0)="  Used to allow the application to easily select only those drugs marked for"
^DD(50.31,.01,1,3,"%D",2,0)="the application."
^DD(50.31,.01,1,3,"DT")="2910819"
^DD(50.31,.01,2)="S Y(0)=Y S Y=$O(^PS(50.35,""C"",Y,0)) S:Y Y=$P($G(^PS(50.35,Y,0)),""^"") S:Y="""" Y=Y(0)"
^DD(50.31,.01,2.1)="S Y=$O(^PS(50.35,""C"",Y,0)) S:Y Y=$P($G(^PS(50.35,Y,0)),""^"") S:Y="""" Y=Y(0)"
^DD(50.31,.01,3)="Select an application for which this drug will be dispensed."
^DD(50.31,.01,4)="D ENAQ^PSJUTL"
^DD(50.31,.01,21,0)="^^2^2^2911126^"
^DD(50.31,.01,21,1,0)="  This is an application (computer package) that would be using entries in"
^DD(50.31,.01,21,2,0)="this file."
^DD(50.31,.01,"DT")="2910823"
^DD(50.31,.02,0)="NON-FORMULARY^S^1:N/F;^0;2^Q"
^DD(50.31,.02,1,0)="^.1"
^DD(50.31,.02,1,1,0)="50.31^AFIF^MUMPS"
^DD(50.31,.02,1,1,1)="S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),""^"")]"""" S $P(^PS(50.3,DA(1),1,""AFI"",$P(X(1),""^"")),""^"")="""""
^DD(50.31,.02,1,1,2)="S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),""^"")]"""" S $P(^PS(50.3,DA(1),1,""AFI"",$P(X(1),""^"")),""^"")=1"
^DD(50.31,.02,1,1,3)="Needed to know if non-formulary."
^DD(50.31,.02,1,1,"%D",0)="^^1^1^2910819^"
^DD(50.31,.02,1,1,"%D",1,0)="  Used to quickly know if non-formulary."
^DD(50.31,.02,1,1,"DT")="2910819"
^DD(50.31,.02,3)="Enter a '1' if this is not to appear on the formulary list."
^DD(50.31,.02,20,0)="^.3LA^1^1"
^DD(50.31,.02,20,1,0)="PS"
^DD(50.31,.02,21,0)="^^1^1^2930427^^"
^DD(50.31,.02,21,1,0)="  This is used to designate the drug as non-formulary."
^DD(50.31,.02,"DT")="2911030"
^DD(50.31,.03,0)="INACTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.31,.03,1,0)="^.1"
^DD(50.31,.03,1,1,0)="50.31^AFII^MUMPS"
^DD(50.31,.03,1,1,1)="S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),""^"")]"""" S $P(^PS(50.3,DA(1),1,""AFI"",$P(X(1),""^"")),""^"",2)=X"
^DD(50.31,.03,1,1,2)="S X(1)=$G(^PS(50.3,DA(1),1,DA,0)) I $P(X(1),""^"")]"""" S $P(^PS(50.3,DA(1),1,""AFI"",$P(X(1),""^"")),""^"",2)="""""
^DD(50.31,.03,1,1,3)="Needed to know if inactive."
^DD(50.31,.03,1,1,"%D",0)="^^1^1^2910819^"
^DD(50.31,.03,1,1,"%D",1,0)="  Used to quickly know if inactive."
^DD(50.31,.03,1,1,"DT")="2910819"
^DD(50.31,.03,3)="Enter a date this drug is to be inactive."
^DD(50.31,.03,20,0)="^.3LA^1^1"
^DD(50.31,.03,20,1,0)="PS"
^DD(50.31,.03,21,0)="^^1^1^2911107^^"
^DD(50.31,.03,21,1,0)="  This is the date this drug is inactive."
^DD(50.31,.03,"DT")="2910819"
^DD(50.31,.05,0)="DAY (nD) or DOSE (nL) LIMIT^FX^^0;5^K:$S('X:1,X?1.2N1""D"":0,1:X'?1.2N1""L"") X"
^DD(50.31,.05,.1)=""
^DD(50.31,.05,3)="Type a whole Number between 0 and 99, 0 Decimal Digits, followed by either a 'D' (for NUMBER OF DAYS) or an 'L' (for DOSE LIMIT)."
^DD(50.31,.05,20,0)="^.3LA^1^1"
^DD(50.31,.05,20,1,0)="PS"
^DD(50.31,.05,21,0)="^^6^6^2910815^^^^"
^DD(50.31,.05,21,1,0)="  If found when this drug is ordered, this is used to calculate a DEFAULT"
^DD(50.31,.05,21,2,0)="value for the STOP DATE prompt of the order.  If the number entered here is"
^DD(50.31,.05,21,3,0)="followed by a ""D"", that NUMBER OF DAYS will be added to the START DATE to"
^DD(50.31,.05,21,4,0)="calculate the STOP DATE.  If the number entered is followed by an ""L"", the"
^DD(50.31,.05,21,5,0)="number is used as the NUMBER OF DOSES to calculate the stop date."
^DD(50.31,.05,21,6,0)="  This is best used for NARCOTICS and ANTIBIOTICS."
^DD(50.31,.05,"DT")="2910815"
^DD(50.31,.06,0)="MED ROUTE^*P51.2'^PS(51.2,^0;6^S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ORAL"""",$P(^(0),""""^"""",4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.31,.06,.1)=""
^DD(50.31,.06,3)="Enter the most common MED ROUTE associated with this medication."
^DD(50.31,.06,12)="ONLY MED ROUTES MARKED FOR USE BY ALL PACKAGES ARE SELECTABLE."
^DD(50.31,.06,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ORAL"""",$P(^(0),""""^"""",4)"""
^DD(50.31,.06,20,0)="^.3LA^1^1"
^DD(50.31,.06,20,1,0)="PS"
^DD(50.31,.06,21,0)="^^2^2^2910818^^^^"
^DD(50.31,.06,21,1,0)="  If a MED ROUTE is entered here, that med route is used as a DEFAULT value"
^DD(50.31,.06,21,2,0)="during order entry when this drug is selected."
^DD(50.31,.06,"DT")="2910818"
^DD(50.31,.07,0)="SCHEDULE TYPE^S^OC:ON CALL;O:ONE TIME;P:PRN;R:FILL on REQUEST;^0;7^Q"
^DD(50.31,.07,.1)=""
^DD(50.31,.07,3)="Enter the most common SCHEDULE TYPE associated with this medication."
^DD(50.31,.07,20,0)="^.3LA^1^1"
^DD(50.31,.07,20,1,0)="PS"
^DD(50.31,.07,21,0)="^^2^2^2940726^^^^"
^DD(50.31,.07,21,1,0)="  If a SCHEDULE TYPE is entered here, it is used as a DEFAULT value in "
^DD(50.31,.07,21,2,0)="order entry when this drug is selected."
^DD(50.31,.07,"DT")="2910818"
^DD(50.31,.08,0)="SCHEDULE^FX^^0;8^K:X[""""""""!($A(X)=45)!($L(X,"" "")>2)!($L(X)>70)!($L(X)<1) X D:$D(X)#2 EN^PSGS0 I $D(X)#2,'PSGS0Y,PSGS0XT W ""  Every "",PSGS0XT,"" minutes"""
^DD(50.31,.08,.1)=""
^DD(50.31,.08,3)="Enter the most common SCHEDULE associated with this medication."
^DD(50.31,.08,20,0)="^.3LA^1^1"
^DD(50.31,.08,20,1,0)="PS"
^DD(50.31,.08,21,0)="^^2^2^2910818^^^^"
^DD(50.31,.08,21,1,0)="  If a SCHEDULE is entered here, it will be used as a DEFAULT value during"
^DD(50.31,.08,21,2,0)="order entry when this drug is selected."
^DD(50.31,.08,"DT")="2910818"
^DD(50.31,1,0)="FORMULARY ALTERNATIVE^50.311P^^1;0"
^DD(50.31,1,20,0)="^.3LA^1^1"
^DD(50.31,1,20,1,0)="PS"
^DD(50.31,1,21,0)="^^1^1^2930427^^"
^DD(50.31,1,21,1,0)="  These are formulary alternatives to this non-formulary primary drug."
^DD(50.31,"B","APPLICATION",.01)=""
^DD(50.31,"B","DAY (nD) or DOSE (nL) LIMIT",.05)=""
^DD(50.31,"B","FORMULARY ALTERNATIVE",1)=""
^DD(50.31,"B","INACTIVE DATE",.03)=""
^DD(50.31,"B","MED ROUTE",.06)=""
^DD(50.31,"B","NON-FORMULARY",.02)=""
^DD(50.31,"B","SCHEDULE",.08)=""
^DD(50.31,"B","SCHEDULE TYPE",.07)=""
^DD(50.31,"GL",0,1,.01)=""
^DD(50.31,"GL",0,2,.02)=""
^DD(50.31,"GL",0,3,.03)=""
^DD(50.31,"GL",0,5,.05)=""
^DD(50.31,"GL",0,6,.06)=""
^DD(50.31,"GL",0,7,.07)=""
^DD(50.31,"GL",0,8,.08)=""
^DD(50.31,"GL",1,0,1)=""
^DD(50.31,"GR","PS",.02,1)=""
^DD(50.31,"GR","PS",.03,1)=""
^DD(50.31,"GR","PS",.05,1)=""
^DD(50.31,"GR","PS",.06,1)=""
^DD(50.31,"GR","PS",.07,1)=""
^DD(50.31,"GR","PS",.08,1)=""
^DD(50.31,"GR","PS",1,1)=""
^DD(50.31,"IX",.01)=""
^DD(50.31,"IX",.02)=""
^DD(50.31,"IX",.03)=""
^DD(50.31,"SB",50.311,1)=""
^DD(50.311,0)="FORMULARY ALTERNATIVE SUB-FIELD^^.01^1"
^DD(50.311,0,"DT")="2920224"
^DD(50.311,0,"IX","B",50.311,.01)=""
^DD(50.311,0,"NM","FORMULARY ALTERNATIVE")=""
^DD(50.311,0,"UP")="50.31"
^DD(50.311,.01,0)="FORMULARY ALTERNATIVE^M*P50.3'X^PS(50.3,^0;1^S DIC(""S"")=$P($G(^PS(50.3,D0,1,D1,0)),""^""),DIC(""S"")=$S(DIC(""S"")]"""":""I +Y'=""_D0_"",$G(^PS(50.3,+Y,1,""""AFI"""",""""""_DIC(""S"")_""""""))"",1:""I 0"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.311,.01,1,0)="^.1"
^DD(50.311,.01,1,1,0)="50.311^B"
^DD(50.311,.01,1,1,1)="S ^PS(50.3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.311,.01,1,1,2)="K ^PS(50.3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.311,.01,3)="Enter a formulary drug that may be used as an alternative to this non-formulary drug."
^DD(50.311,.01,12)="Alternative must be a formulary item and be marked for this application."
^DD(50.311,.01,12.1)="S DIC(""S"")=$P($G(^PS(50.3,D0,1,D1,0)),""^""),DIC(""S"")=$S(DIC(""S"")]"""":""I +Y'=""_D0_"",$G(^PS(50.3,+Y,1,""""AFI"""",""""""_DIC(""S"")_""""""))"",1:""I 0"")"
^DD(50.311,.01,20,0)="^.3LA^1^1"
^DD(50.311,.01,20,1,0)="PS"
^DD(50.311,.01,21,0)="^^3^3^2930427^^^^"
^DD(50.311,.01,21,1,0)="  This is a formulary alternative to this non-formulary drug.  Any "
^DD(50.311,.01,21,2,0)="formulary alternatives entered here are shown to non-pharmacists"
^DD(50.311,.01,21,3,0)="whenever they attempt to order this non-formulary drug."
^DD(50.311,.01,"DT")="2930427"
^DD(50.311,"B","FORMULARY ALTERNATIVE",.01)=""
^DD(50.311,"GL",0,1,.01)=""
^DD(50.311,"GR","PS",.01,1)=""
^DD(50.311,"IX",.01)=""
^DD(50.32,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(50.32,0,"DT")="2920315"
^DD(50.32,0,"IX","B",50.32,.01)=""
^DD(50.32,0,"NM","SYNONYM")=""
^DD(50.32,0,"UP")="50.3"
^DD(50.32,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(50.32,.01,1,0)="^.1"
^DD(50.32,.01,1,1,0)="50.32^B"
^DD(50.32,.01,1,1,1)="S ^PS(50.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(50.32,.01,1,1,2)="K ^PS(50.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(50.32,.01,1,2,0)="50.3^C"
^DD(50.32,.01,1,2,1)="S ^PS(50.3,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(50.32,.01,1,2,2)="K ^PS(50.3,""C"",$E(X,1,30),DA(1),DA)"
^DD(50.32,.01,1,2,3)="Used for look-up."
^DD(50.32,.01,1,2,"%D",0)="^^1^1^2920315^"
^DD(50.32,.01,1,2,"%D",1,0)="  This allows users to select file entries by their synonym(s)."
^DD(50.32,.01,1,2,"DT")="2920315"
^DD(50.32,.01,3)="Answer must be 1-30 characters in length."
^DD(50.32,.01,21,0)="^^3^3^2940726^^"
^DD(50.32,.01,21,1,0)="  This allows alternate names, such as trade names, to be entered for"
^DD(50.32,.01,21,2,0)="primary drugs, allowing primary drugs to be selected by the alternate "
^DD(50.32,.01,21,3,0)="names."
^DD(50.32,.01,23,0)="^^3^3^2940726^^"
^DD(50.32,.01,23,1,0)="  This allows users to provide alternate names for the entries in this"
^DD(50.32,.01,23,2,0)="file.  Users can then select entries from this file by these alternate"
^DD(50.32,.01,23,3,0)="names through a regular 'C' cross-reference."
^DD(50.32,.01,"DT")="2920315"
^DD(50.32,"B","SYNONYM",.01)=""
^DD(50.32,"GL",0,1,.01)=""
^DD(50.32,"IX",.01)=""
^DD(50.35,0)="FIELD^^.02^2"
^DD(50.35,0,"DDA")="N"
^DD(50.35,0,"DT")="2910819"
^DD(50.35,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(50.35,0,"IX","B",50.35,.01)=""
^DD(50.35,0,"IX","C",50.35,.02)=""
^DD(50.35,0,"NM","DRUG APPLICATION")=""
^DD(50.35,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<2)!'(X'?1P.E) X"
^DD(50.35,.01,1,0)="^.1"
^DD(50.35,.01,1,1,0)="50.35^B"
^DD(50.35,.01,1,1,1)="S ^PS(50.35,""B"",$E(X,1,30),DA)="""""
^DD(50.35,.01,1,1,2)="K ^PS(50.35,""B"",$E(X,1,30),DA)"
^DD(50.35,.01,3)="Enter the name of an application that will be using entries in the Primary Drug file."
^DD(50.35,.01,20,0)="^.3LA^1^1"
^DD(50.35,.01,20,1,0)="PS"
^DD(50.35,.01,21,0)="^^2^2^2911220^^"
^DD(50.35,.01,21,1,0)="  This is an application that may make use of the entries within the Primary"
^DD(50.35,.01,21,2,0)="Drug file."
^DD(50.35,.01,23,0)="^^2^2^2911220^"
^DD(50.35,.01,23,1,0)="  If an application (DHCP package) would like to use entries within the"
^DD(50.35,.01,23,2,0)="Primary Drug file, it must first have an entry in this file."
^DD(50.35,.01,"DT")="2910819"
^DD(50.35,.02,0)="CODE^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X I $D(X) S X(1)=$O(^PS(53.35,""C"",X,0)) I X(1) S X(2)=$P($G(^PS(50.35,X(1),0)),""^"") S:X(2)="""" X(2)=X(1) K X W !,""THIS CODE IS ALREADY USED BY "",X(2)"
^DD(50.35,.02,1,0)="^.1"
^DD(50.35,.02,1,1,0)="50.35^C"
^DD(50.35,.02,1,1,1)="S ^PS(50.35,""C"",$E(X,1,30),DA)="""""
^DD(50.35,.02,1,1,2)="K ^PS(50.35,""C"",$E(X,1,30),DA)"
^DD(50.35,.02,1,1,3)="USED FOR LOOK-UP."
^DD(50.35,.02,1,1,"DT")="2910819"
^DD(50.35,.02,3)="Answer must be 1 character in length."
^DD(50.35,.02,20,0)="^.3LA^1^1"
^DD(50.35,.02,20,1,0)="PS"
^DD(50.35,.02,21,0)="^^2^2^2910819^"
^DD(50.35,.02,21,1,0)="  This is the code for this application.  This code is stored with the drugs"
^DD(50.35,.02,21,2,0)="associated with this application."
^DD(50.35,.02,"DT")="2911220"
^DD(50.35,"B","CODE",.02)=""
^DD(50.35,"B","NAME",.01)=""
^DD(50.35,"GL",0,1,.01)=""
^DD(50.35,"GL",0,2,.02)=""
^DD(50.35,"GR","PS",.01,1)=""
^DD(50.35,"GR","PS",.02,1)=""
^DD(50.35,"IX",.01)=""
^DD(50.35,"IX",.02)=""
^DD(50.35,"RQ",.01)=""
^DD(50.4,0)="FIELD^^1^2"
^DD(50.4,0,"ID",1)="W:$D(^(0)) ""   "","""" S %=$C(59)_$S($D(^DD(50.4,1,0)):$P(^(0),U,3),1:"""") W @(""$E(""_DIC_""Y,0),0)""),$P($P(%,$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)"
^DD(50.4,0,"IX","B",50.4,.01)=""
^DD(50.4,0,"NM","DRUG ELECTROLYTES")=""
^DD(50.4,0,"PT",52.62,.01)=""
^DD(50.4,0,"PT",52.702,.01)=""
^DD(50.4,0,"VR")="1.0"
^DD(50.4,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(50.4,.01,0)="NAME^RF^^0;1^K:$L(X)>32!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(50.4,.01,1,0)="^.1"
^DD(50.4,.01,1,1,0)="50.4^B"
^DD(50.4,.01,1,1,1)="S ^PS(50.4,""B"",$E(X,1,30),DA)="""""
^DD(50.4,.01,1,1,2)="K ^PS(50.4,""B"",$E(X,1,30),DA)"
^DD(50.4,.01,3)="Answer must be 3-32 characters in length."
^DD(50.4,.01,20,0)="^.3LA^1^1"
^DD(50.4,.01,20,1,0)="PSJI"
^DD(50.4,.01,21,0)="^^1^1^2940720^^^^"
^DD(50.4,.01,21,1,0)="  This is the name of the anion/cation (e.g., SODIUM, POTASSIUM, etc.)."
^DD(50.4,.01,"DT")="2851210"
^DD(50.4,1,0)="CONCENTRATION UNITS^RS^1:MEQ/ML;2:MCG/ML;3:MG/ML;4:MM/ML;5:UNITS/ML;6:IU/ML;^0;2^Q"
^DD(50.4,1,3)=""
^DD(50.4,1,20,0)="^.3LA^1^1"
^DD(50.4,1,20,1,0)="PSJI"
^DD(50.4,1,21,0)="^^1^1^2910305^^"
^DD(50.4,1,21,1,0)="  Enter the concentration unit in which this electrolyte drug is dispensed. "
^DD(50.4,1,"DT")="2860305"
^DD(50.4,"B","CONCENTRATION UNITS",1)=""
^DD(50.4,"B","NAME",.01)=""
^DD(50.4,"GL",0,1,.01)=""
^DD(50.4,"GL",0,2,1)=""
^DD(50.4,"GR","PSJI",.01,1)=""
^DD(50.4,"GR","PSJI",1,1)=""
^DD(50.4,"IX",.01)=""
^DD(50.4,"RQ",.01)=""
^DD(50.4,"RQ",1)=""
^DD(50.416,0)="FIELD^^99.991^7"
^DD(50.416,0,"DDA")="N"
^DD(50.416,0,"DT")="3050511"
^DD(50.416,0,"IX","APD",50.4161,.01)=""
^DD(50.416,0,"IX","APS",50.416,.01)=""
^DD(50.416,0,"IX","APS",50.416,2)=""
^DD(50.416,0,"IX","AVUID",50.416,99.99)=""
^DD(50.416,0,"IX","B",50.416,.01)=""
^DD(50.416,0,"IX","P",50.416,.01)=""
^DD(50.416,0,"IX","P",50.416,2)=""
^DD(50.416,0,"NM","DRUG INGREDIENTS")=""
^DD(50.416,0,"PT",50.416,2)=""
^DD(50.416,0,"PT",50.6814,.01)=""
^DD(50.416,0,"PT",56,1)=""
^DD(50.416,0,"PT",56,2)=""
^DD(50.416,0,"PT",120.8,1)=""
^DD(50.416,0,"PT",120.802,.01)=""
^DD(50.416,0,"PT",120.824,.01)=""
^DD(50.416,0,"VR")="4.0"
^DD(50.416,0,"VRPK")="PSN"
^DD(50.416,.01,0)="NAME^RFaX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E)!($E(X,$L(X))="" "") X K:$G(^(""VUID"")) X"
^DD(50.416,.01,1,0)="^.1"
^DD(50.416,.01,1,1,0)="50.416^B"
^DD(50.416,.01,1,1,1)="S ^PS(50.416,""B"",$E(X,1,64),DA)="""""
^DD(50.416,.01,1,1,2)="K ^PS(50.416,""B"",$E(X,1,64),DA)"
^DD(50.416,.01,1,2,0)="50.416^P"
^DD(50.416,.01,1,2,1)="Q"
^DD(50.416,.01,1,2,2)="Q"
^DD(50.416,.01,1,2,"%D",0)="^^1^1^3050720^"
^DD(50.416,.01,1,2,"%D",1,0)=" "
^DD(50.416,.01,1,2,"DT")="3050720"
^DD(50.416,.01,1,3,0)="50.416^APS^MUMPS"
^DD(50.416,.01,1,3,1)="I $P(^PS(50.416,DA,0),""^"",2)]"""" S ^PS(50.416,""APS"",$P(^PS(50.416,DA,0),""^"",2),DA)="""""
^DD(50.416,.01,1,3,2)="I $P(^PS(50.416,DA,0),""^"",2)]"""" K ^PS(50.416,""APS"",$P(^PS(50.416,DA,0),""^"",2),DA)"
^DD(50.416,.01,1,3,3)="DO NOT DELETE-used for drug interactions"
^DD(50.416,.01,1,3,"%D",0)="^^3^3^2920430^^^^"
^DD(50.416,.01,1,3,"%D",1,0)="This cross-reference is used in Outpatient Pharmacy for drug-drug"
^DD(50.416,.01,1,3,"%D",2,0)="interactions. It stores the secondary ingredients with their Primary"
^DD(50.416,.01,1,3,"%D",3,0)="Ingredient."
^DD(50.416,.01,1,3,"DT")="2920430"
^DD(50.416,.01,3)="Answer must be 3-64 characters in length."
^DD(50.416,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries Must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(50.416,.01,8.5)="^"
^DD(50.416,.01,9)="^"
^DD(50.416,.01,21,0)="^.001^1^1^3050927^^^^"
^DD(50.416,.01,21,1,0)="This is the drug ingredient name."
^DD(50.416,.01,23,0)="^^1^1^3050927^"
^DD(50.416,.01,23,1,0)=" "
^DD(50.416,.01,"AUDIT")="y"
^DD(50.416,.01,"DEL",1,0)="I $G(^PS(50.416,DA,""VUID""))"
^DD(50.416,.01,"DT")="3051020"
^DD(50.416,.01,"LAYGO",.01,0)="D:'$D(PSNDF) EN^DDIOL(""ADDITIONS ARE NOT ALLOWED"") I $D(PSNDF)"
^DD(50.416,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(50.416,1,0)="DRUG IDENTIFIER^50.4161A^^1;0"
^DD(50.416,1,8.5)="^"
^DD(50.416,1,9)="^"
^DD(50.416,1,21,0)="^^2^2^2981013^^^"
^DD(50.416,1,21,1,0)="This field contains products from the National Drug file which contain"
^DD(50.416,1,21,2,0)="this ingredient."
^DD(50.416,1,23,0)="^^3^3^2981013^^^"
^DD(50.416,1,23,1,0)="The first number is the entry number to the National Drug file separated"
^DD(50.416,1,23,2,0)="with an """"A"""". The second number is the particular product which contains"
^DD(50.416,1,23,3,0)="this ingredient in the National Drug file."
^DD(50.416,1,"DT")="2970114"
^DD(50.416,2,0)="PRIMARY INGREDIENT^P50.416a^PS(50.416,^0;2^Q"
^DD(50.416,2,1,0)="^.1"
^DD(50.416,2,1,1,0)="50.416^APS"
^DD(50.416,2,1,1,1)="S ^PS(50.416,""APS"",$E(X,1,30),DA)="""""
^DD(50.416,2,1,1,2)="K ^PS(50.416,""APS"",$E(X,1,30),DA)"
^DD(50.416,2,1,1,"%D",0)="^^1^1^3010808^"
^DD(50.416,2,1,1,"%D",1,0)="This cross reference is used to screen on primary ingredients."
^DD(50.416,2,1,1,"DT")="3010808"
^DD(50.416,2,1,2,0)="50.416^P"
^DD(50.416,2,1,2,1)="Q"
^DD(50.416,2,1,2,2)="Q"
^DD(50.416,2,1,2,"DT")="3050720"
^DD(50.416,2,8.5)="^"
^DD(50.416,2,9)="^"
^DD(50.416,2,21,0)="^.001^1^1^3000225^^^^"
^DD(50.416,2,21,1,0)="This is the primary ingredient."
^DD(50.416,2,"AUDIT")="y"
^DD(50.416,2,"DT")="3050720"
^DD(50.416,3,0)="INACTIVATION DATE^D^^2;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.416,3,9)="^"
^DD(50.416,3,21,0)="^^1^1^2981101^"
^DD(50.416,3,21,1,0)="This is the date when this drug ingredient was made inactive."
^DD(50.416,3,"DT")="2981101"
^DD(50.416,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(50.416,99.98,1,0)="^.1^^0"
^DD(50.416,99.98,9)="^"
^DD(50.416,99.98,21,0)="^^1^1^3050309^"
^DD(50.416,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a Term/Concept."
^DD(50.416,99.98,"DT")="3050511"
^DD(50.416,99.99,0)="VUID^RFX^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(50.416,99.99,1,0)="^.1"
^DD(50.416,99.99,1,1,0)="50.416^AVUID"
^DD(50.416,99.99,1,1,1)="S ^PS(50.416,""AVUID"",$E(X,1,30),DA)="""""
^DD(50.416,99.99,1,1,2)="K ^PS(50.416,""AVUID"",$E(X,1,30),DA)"
^DD(50.416,99.99,1,1,3)="XXX--CAN'T BE ALTERED EXCEPT PROGRAMMER"
^DD(50.416,99.99,1,1,"%D",0)="^^1^1^3050309^"
^DD(50.416,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(50.416,99.99,1,1,"DT")="3050309"
^DD(50.416,99.99,3)="Answer must be 1-20 characters in length."
^DD(50.416,99.99,9)="^"
^DD(50.416,99.99,21,0)="^.001^1^1^3060203^^^"
^DD(50.416,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide."
^DD(50.416,99.99,"AUDIT")="n"
^DD(50.416,99.99,"DT")="3060208"
^DD(50.416,99.991,0)="EFFECTIVE DATE/TIME^50.4169DA^^TERMSTATUS;0"
^DD(50.416,99.991,21,0)="^^1^1^3050511^"
^DD(50.416,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(50.416,"AUDIT",.01)=""
^DD(50.416,"AUDIT",2)=""
^DD(50.416,"B","DRUG IDENTIFIER",1)=""
^DD(50.416,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(50.416,"B","INACTIVATION DATE",3)=""
^DD(50.416,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(50.416,"B","NAME",.01)=""
^DD(50.416,"B","PRIMARY INGREDIENT",2)=""
^DD(50.416,"B","VUID",99.99)=""
^DD(50.416,"GL",0,1,.01)=""
^DD(50.416,"GL",0,2,2)=""
^DD(50.416,"GL",1,0,1)=""
^DD(50.416,"GL",2,1,3)=""
^DD(50.416,"GL","TERMSTATUS",0,99.991)=""
^DD(50.416,"GL","VUID",1,99.99)=""
^DD(50.416,"GL","VUID",2,99.98)=""
^DD(50.416,"IX",.01)=""
^DD(50.416,"IX",2)=""
^DD(50.416,"IX",99.99)=""
^DD(50.416,"RQ",.01)=""
^DD(50.416,"RQ",99.98)=""
^DD(50.416,"RQ",99.99)=""
^DD(50.416,"SB",50.4161,1)=""
^DD(50.416,"SB",50.4169,99.991)=""
^DD(50.4161,0)="DRUG IDENTIFIER SUB-FIELD^^.01^1"
^DD(50.4161,0,"IX","B",50.4161,.01)=""
^DD(50.4161,0,"NM","DRUG IDENTIFIER")=""
^DD(50.4161,0,"UP")="50.416"
^DD(50.4161,.01,0)="DRUG IDENTIFIER^FIa^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X?1.N1""A""1.N) X"
^DD(50.4161,.01,1,0)="^.1"
^DD(50.4161,.01,1,1,0)="50.4161^B"
^DD(50.4161,.01,1,1,1)="S ^PS(50.416,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.4161,.01,1,1,2)="K ^PS(50.416,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.4161,.01,1,2,0)="50.416^APD^MUMPS"
^DD(50.4161,.01,1,2,1)="S ^PS(50.416,""APD"",X,$S(+$P(^PS(50.416,DA(1),0),""^"",2):+$P(^(0),""^"",2),1:DA(1)))="""""
^DD(50.4161,.01,1,2,2)="K ^PS(50.416,""APD"",X,$S(+$P(^PS(50.416,DA(1),0),""^"",2):+$P(^(0),""^"",2),1:DA(1)))"
^DD(50.4161,.01,1,2,3)="DO NOT DELETE."
^DD(50.4161,.01,1,2,"%D",0)="^^3^3^2981014^^^"
^DD(50.4161,.01,1,2,"%D",1,0)="This cross-reference stores the drug identifier for look-up purposes."
^DD(50.4161,.01,1,2,"%D",2,0)="Cross-reference by VA Products containing Ingredient."
^DD(50.4161,.01,1,2,"%D",3,0)="In the form of: ^PS(50.416,""APD"",Drug Identifier,DA)"
^DD(50.4161,.01,3)="Answer must be 3-30 characters in length."
^DD(50.4161,.01,21,0)="^^1^1^2930218^"
^DD(50.4161,.01,21,1,0)="This is the drug identifier."
^DD(50.4161,.01,"AUDIT")="y"
^DD(50.4161,.01,"DT")="2900424"
^DD(50.4161,"AUDIT",.01)=""
^DD(50.4161,"B","DRUG IDENTIFIER",.01)=""
^DD(50.4161,"GL",0,1,.01)=""
^DD(50.4161,"IX",.01)=""
^DD(50.4169,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(50.4169,0,"DT")="3050511"
^DD(50.4169,0,"IX","B",50.4169,.01)=""
^DD(50.4169,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(50.4169,0,"UP")="50.416"
^DD(50.4169,.01,0)="EFFECTIVE DATE/TIME^RDXI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.4169,.01,1,0)="^.1"
^DD(50.4169,.01,1,1,0)="50.4169^B"
^DD(50.4169,.01,1,1,1)="S ^PS(50.416,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(50.4169,.01,1,1,2)="K ^PS(50.416,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(50.4169,.01,9)="^"
^DD(50.4169,.01,21,0)="^^1^1^3050511^"
^DD(50.4169,.01,21,1,0)="This is the date/time when the Status of the reference term was established."
^DD(50.4169,.01,"DT")="3050511"
^DD(50.4169,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(50.4169,.02,9)="^"
^DD(50.4169,.02,21,0)="^^2^2^3050511^"
^DD(50.4169,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If the term 'ACTIVE', then the term will be accessible by end-users to document a particular  patient event. If 'INACTIVE', then the term will only be accessible by the application"
^DD(50.4169,.02,21,2,0)="to display legacy data."
^DD(50.4169,.02,"DT")="3050511"
^DD(50.4169,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(50.4169,"B","STATUS",.02)=""
^DD(50.4169,"GL",0,1,.01)=""
^DD(50.4169,"GL",0,2,.02)=""
^DD(50.4169,"IX",.01)=""
^DD(50.4169,"RQ",.01)=""
^DD(50.4169,"RQ",.02)=""
^DD(50.6,0)="FIELD^^99.991^6"
^DD(50.6,0,"DDA")="N"
^DD(50.6,0,"DT")="3050511"
^DD(50.6,0,"IX","AC",50.6,1)=""
^DD(50.6,0,"IX","APRO",50.6,.01)=""
^DD(50.6,0,"IX","AVUID",50.6,99.99)=""
^DD(50.6,0,"IX","B",50.6,.01)=""
^DD(50.6,0,"NM","VA GENERIC")=""
^DD(50.6,0,"PT",50,20)=""
^DD(50.6,0,"PT",50.612,.01)=""
^DD(50.6,0,"PT",50.68,.05)=""
^DD(50.6,0,"PT",120.8,1)=""
^DD(50.6,0,"PT",799.51,.04)=""
^DD(50.6,0,"PT",810.31,.04)=""
^DD(50.6,0,"PT",810.32,.01)=""
^DD(50.6,0,"PT",811.52,.01)=""
^DD(50.6,0,"PT",811.902,.01)=""
^DD(50.6,0,"VR")="4.0"
^DD(50.6,0,"VRPK")="PSN"
^DD(50.6,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.6,.001,3)="Type a whole number between 1 and 99999999."
^DD(50.6,.001,21,0)="^^1^1^2910130^"
^DD(50.6,.001,21,1,0)="This is the National Drug number."
^DD(50.6,.001,"DT")="2870410"
^DD(50.6,.01,0)="NAME^RFa^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(50.6,.01,1,0)="^.1"
^DD(50.6,.01,1,1,0)="50.6^B"
^DD(50.6,.01,1,1,1)="S ^PSNDF(50.6,""B"",$E(X,1,64),DA)="""""
^DD(50.6,.01,1,1,2)="K ^PSNDF(50.6,""B"",$E(X,1,64),DA)"
^DD(50.6,.01,1,2,0)="50.6^APRO^MUMPS"
^DD(50.6,.01,1,2,1)="Q"
^DD(50.6,.01,1,2,2)="Q"
^DD(50.6,.01,1,2,"%D",0)="^^4^4^2981014^^^"
^DD(50.6,.01,1,2,"%D",1,0)="This cross reference is a place holder.  The cross reference is set from"
^DD(50.6,.01,1,2,"%D",2,0)="the VA GENERIC NAME field (#.05) of the VA PRODUCT file (#50.68)"
^DD(50.6,.01,1,2,"%D",3,0)="Cross-reference by VA Generic and associated VA Products."
^DD(50.6,.01,1,2,"%D",4,0)="In the form of: ^PSNDF(50.6,""APRO"",VA PRODUCT file DA,VA GENERIC file DA)"
^DD(50.6,.01,1,2,"DT")="2980423"
^DD(50.6,.01,3)="Answer must be 3-64 characters in length."
^DD(50.6,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries Must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(50.6,.01,8.5)="^"
^DD(50.6,.01,9)="^"
^DD(50.6,.01,21,0)="^^1^1^2980423^"
^DD(50.6,.01,21,1,0)="The VA Generic name for this entry."
^DD(50.6,.01,"AUDIT")="y"
^DD(50.6,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED"")"
^DD(50.6,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(50.6,.01,"DT")="2980423"
^DD(50.6,.01,"LAYGO",.01,0)="D:'$D(XPDGREF) EN^DDIOL(""ADDITIONS ARE NOT ALLOWED"") I $D(XPDGREF)"
^DD(50.6,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(50.6,1,0)="INACTIVATION DATE^Da^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.6,1,1,0)="^.1"
^DD(50.6,1,1,1,0)="50.6^AC^MUMPS"
^DD(50.6,1,1,1,1)="D GENER^PSNXREF"
^DD(50.6,1,1,1,2)="D KGENER^PSNXREF"
^DD(50.6,1,1,1,"%D",0)="^^3^3^2981014^^^"
^DD(50.6,1,1,1,"%D",1,0)="This cross reference updates the inactivation date for all products"
^DD(50.6,1,1,1,"%D",2,0)="associated with this product."
^DD(50.6,1,1,1,"%D",3,0)="In the form of: ^PSNDF(50.67,DA,0),""^"",7)"
^DD(50.6,1,1,1,"DT")="2980603"
^DD(50.6,1,9)="^"
^DD(50.6,1,21,0)="^^1^1^2980423^^"
^DD(50.6,1,21,1,0)="The date when this VA GENERIC ITEM was made inactive."
^DD(50.6,1,23,0)="^^2^2^2980423^"
^DD(50.6,1,23,1,0)="An entry in this field triggers entries into the inactivation date"
^DD(50.6,1,23,2,0)="field of entries in the VA PRODUCT file and the NDC/UPN file."
^DD(50.6,1,"AUDIT")="y"
^DD(50.6,1,"DT")="2980603"
^DD(50.6,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(50.6,99.98,1,0)="^.1^^0"
^DD(50.6,99.98,9)="^"
^DD(50.6,99.98,21,0)="^^1^1^3050309^"
^DD(50.6,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a Term/Concept."
^DD(50.6,99.98,"DT")="3050511"
^DD(50.6,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(50.6,99.99,1,0)="^.1"
^DD(50.6,99.99,1,1,0)="50.6^AVUID"
^DD(50.6,99.99,1,1,1)="S ^PSNDF(50.6,""AVUID"",$E(X,1,30),DA)="""""
^DD(50.6,99.99,1,1,2)="K ^PSNDF(50.6,""AVUID"",$E(X,1,30),DA)"
^DD(50.6,99.99,1,1,3)="XXX-CAN'T BE ALTERED EXCEPT PROGRAMMER"
^DD(50.6,99.99,1,1,"%D",0)="^^1^1^3050309^"
^DD(50.6,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(50.6,99.99,1,1,"DT")="3050309"
^DD(50.6,99.99,3)="Answer must be 1-20 characters in length."
^DD(50.6,99.99,9)="^"
^DD(50.6,99.99,21,0)="^.001^1^1^3050412^^"
^DD(50.6,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide."
^DD(50.6,99.99,"DT")="3050511"
^DD(50.6,99.991,0)="EFFECTIVE DATE TIME^50.6009DA^^TERMSTATUS;0"
^DD(50.6,99.991,21,0)="^^1^1^3050511^"
^DD(50.6,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(50.6,"AUDIT",.01)=""
^DD(50.6,"AUDIT",1)=""
^DD(50.6,"B","EFFECTIVE DATE TIME",99.991)=""
^DD(50.6,"B","INACTIVATION DATE",1)=""
^DD(50.6,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(50.6,"B","NAME",.01)=""
^DD(50.6,"B","NUMBER",.001)=""
^DD(50.6,"B","VUID",99.99)=""
^DD(50.6,"GL",0,1,.01)=""
^DD(50.6,"GL",0,2,1)=""
^DD(50.6,"GL","TERMSTATUS",0,99.991)=""
^DD(50.6,"GL","VUID",1,99.99)=""
^DD(50.6,"GL","VUID",2,99.98)=""
^DD(50.6,"IX",.01)=""
^DD(50.6,"IX",1)=""
^DD(50.6,"IX",99.99)=""
^DD(50.6,"RQ",.01)=""
^DD(50.6,"RQ",99.98)=""
^DD(50.6,"RQ",99.99)=""
^DD(50.6,"SB",50.6009,99.991)=""
^DD(50.6009,0)="EFFECTIVE DATE TIME SUB-FIELD^^.02^2"
^DD(50.6009,0,"DT")="3050511"
^DD(50.6009,0,"IX","B",50.6009,.01)=""
^DD(50.6009,0,"NM","EFFECTIVE DATE TIME")=""
^DD(50.6009,0,"UP")="50.6"
^DD(50.6009,.01,0)="EFFECTIVE DATE TIME^RDXI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.6009,.01,1,0)="^.1"
^DD(50.6009,.01,1,1,0)="50.6009^B"
^DD(50.6009,.01,1,1,1)="S ^PSNDF(50.6,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(50.6009,.01,1,1,2)="K ^PSNDF(50.6,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(50.6009,.01,9)="^"
^DD(50.6009,.01,21,0)="^.001^1^1^3050511^^"
^DD(50.6009,.01,21,1,0)="This is the date/time when the Status of the reference term was established."
^DD(50.6009,.01,"DT")="3050511"
^DD(50.6009,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(50.6009,.02,9)="^"
^DD(50.6009,.02,21,0)="^^2^2^3050511^"
^DD(50.6009,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If the term 'ACTIVE', then the term will be accessible by end-users to document a particular  patient event. If 'INACTIVE', then the term will only be accessible by the application"
^DD(50.6009,.02,21,2,0)="to display legacy data."
^DD(50.6009,.02,"DT")="3050511"
^DD(50.6009,"B","EFFECTIVE DATE TIME",.01)=""
^DD(50.6009,"B","STATUS",.02)=""
^DD(50.6009,"GL",0,1,.01)=""
^DD(50.6009,"GL",0,2,.02)=""
^DD(50.6009,"IX",.01)=""
^DD(50.6009,"RQ",.01)=""
^DD(50.6009,"RQ",.02)=""
^DD(50.605,0)="FIELD^^99.991^8"
^DD(50.605,0,"DDA")="N"
^DD(50.605,0,"DT")="3050511"
^DD(50.605,0,"ID",1)="D EN^DDIOL(""   ""_$P(^(0),U,2))"
^DD(50.605,0,"IX","AVUID",50.605,99.99)=""
^DD(50.605,0,"IX","B",50.605,.01)=""
^DD(50.605,0,"IX","C",50.605,1)=""
^DD(50.605,0,"NM","VA DRUG CLASS")=""
^DD(50.605,0,"PT",50,25)=""
^DD(50.605,0,"PT",50.605,2)=""
^DD(50.605,0,"PT",50.68,15)=""
^DD(50.605,0,"PT",50.6816,.01)=""
^DD(50.605,0,"PT",119.985,.01)=""
^DD(50.605,0,"PT",120.8,1)=""
^DD(50.605,0,"PT",120.803,.01)=""
^DD(50.605,0,"PT",120.8205,.01)=""
^DD(50.605,0,"PT",798.6,.01)=""
^DD(50.605,0,"PT",810.31,.04)=""
^DD(50.605,0,"PT",810.32,.01)=""
^DD(50.605,0,"PT",811.52,.01)=""
^DD(50.605,0,"PT",811.902,.01)=""
^DD(50.605,0,"VR")="4.0"
^DD(50.605,0,"VRPK")="PSN"
^DD(50.605,.01,0)="CODE^RFa^^0;1^K:$L(X)>5!($L(X)<5)!'(X?2A3N)!(X'?.ANP) X"
^DD(50.605,.01,.1)="CLASSIFICATION CODE"
^DD(50.605,.01,1,0)="^.1"
^DD(50.605,.01,1,1,0)="50.605^B"
^DD(50.605,.01,1,1,1)="S ^PS(50.605,""B"",$E(X,1,30),DA)="""""
^DD(50.605,.01,1,1,2)="K ^PS(50.605,""B"",$E(X,1,30),DA)"
^DD(50.605,.01,3)="Enter the classification number (i.e. AH000, GH351)."
^DD(50.605,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries Must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(50.605,.01,8.5)="^"
^DD(50.605,.01,9)="^"
^DD(50.605,.01,21,0)="^^1^1^2910130^"
^DD(50.605,.01,21,1,0)="This is the five alphanumeric character code of the classification."
^DD(50.605,.01,"AUDIT")="y"
^DD(50.605,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(50.605,.01,"DT")="2961121"
^DD(50.605,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(50.605,1,0)="CLASSIFICATION^Fa^^0;2^K:$L(X)>64!($L(X)<1) X"
^DD(50.605,1,1,0)="^.1"
^DD(50.605,1,1,1,0)="50.605^C^MUMPS"
^DD(50.605,1,1,1,1)="S ^PS(50.605,""C"",$E(X,1,64),DA)="""""
^DD(50.605,1,1,1,2)="K ^PS(50.605,""C"",$E(X,1,64),DA)"
^DD(50.605,1,1,1,"%D",0)="^^2^2^2981014^^^^"
^DD(50.605,1,1,1,"%D",1,0)="This cross-reference stores the classification name."
^DD(50.605,1,1,1,"%D",2,0)="In the form of: ^PS(50.605,""C"",Classification,DA)"
^DD(50.605,1,1,1,"DT")="2930224"
^DD(50.605,1,3)="Enter the description of this classification."
^DD(50.605,1,8.5)="^"
^DD(50.605,1,9)="^"
^DD(50.605,1,21,0)="^^1^1^2961121^^"
^DD(50.605,1,21,1,0)="This is the name of the classification."
^DD(50.605,1,"AUDIT")="y"
^DD(50.605,1,"DT")="2961121"
^DD(50.605,2,0)="PARENT CLASS^P50.605'a^PS(50.605,^0;3^Q"
^DD(50.605,2,8.5)="^"
^DD(50.605,2,9)="^"
^DD(50.605,2,21,0)="^^1^1^2910130^"
^DD(50.605,2,21,1,0)="This is the parent class."
^DD(50.605,2,"AUDIT")="y"
^DD(50.605,2,"DT")="2961121"
^DD(50.605,3,0)="TYPE^Sa^0:MAJOR;1:MINOR;2:SUB-CLASS;^0;4^Q"
^DD(50.605,3,8.5)="^"
^DD(50.605,3,9)="^"
^DD(50.605,3,21,0)="^^1^1^2961112^^"
^DD(50.605,3,21,1,0)="This is the type of the classification."
^DD(50.605,3,"AUDIT")="y"
^DD(50.605,3,"DT")="2961121"
^DD(50.605,4,0)="DESCRIPTION^50.615^^1;0"
^DD(50.605,4,8.5)="^"
^DD(50.605,4,9)="^"
^DD(50.605,4,21,0)="^^1^1^2911205^^^"
^DD(50.605,4,21,1,0)="This is a description of the classification."
^DD(50.605,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(50.605,99.98,1,0)="^.1^^0"
^DD(50.605,99.98,9)="^"
^DD(50.605,99.98,21,0)="^^1^1^3050309^"
^DD(50.605,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a Term/Concept."
^DD(50.605,99.98,"DT")="3050511"
^DD(50.605,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(50.605,99.99,1,0)="^.1"
^DD(50.605,99.99,1,1,0)="50.605^AVUID"
^DD(50.605,99.99,1,1,1)="S ^PS(50.605,""AVUID"",$E(X,1,30),DA)="""""
^DD(50.605,99.99,1,1,2)="K ^PS(50.605,""AVUID"",$E(X,1,30),DA)"
^DD(50.605,99.99,1,1,3)="XXX--CAN'T BE ALTERED EXCEPT PROGRAMMER"
^DD(50.605,99.99,1,1,"%D",0)="^^1^1^3050309^"
^DD(50.605,99.99,1,1,"%D",1,0)="This cross reference is by VUID."
^DD(50.605,99.99,1,1,"DT")="3050309"
^DD(50.605,99.99,3)="Answer must be 1-20 characters in length."
^DD(50.605,99.99,9)="^"
^DD(50.605,99.99,21,0)="^.001^1^1^3050412^^"
^DD(50.605,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide."
^DD(50.605,99.99,"DT")="3050511"
^DD(50.605,99.991,0)="EFFECTIVE DATE/TIME^50.60509DA^^TERMSTATUS;0"
^DD(50.605,99.991,21,0)="^^1^1^3050511^"
^DD(50.605,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(50.605,"AUDIT",.01)=""
^DD(50.605,"AUDIT",1)=""
^DD(50.605,"AUDIT",2)=""
^DD(50.605,"AUDIT",3)=""
^DD(50.605,"B","CLASSIFICATION",1)=""
^DD(50.605,"B","CLASSIFICATION CODE",.01)="1"
^DD(50.605,"B","CODE",.01)=""
^DD(50.605,"B","DESCRIPTION",4)=""
^DD(50.605,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(50.605,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(50.605,"B","PARENT CLASS",2)=""
^DD(50.605,"B","TYPE",3)=""
^DD(50.605,"B","VUID",99.99)=""
^DD(50.605,"GL",0,1,.01)=""
^DD(50.605,"GL",0,2,1)=""
^DD(50.605,"GL",0,3,2)=""
^DD(50.605,"GL",0,4,3)=""
^DD(50.605,"GL",1,0,4)=""
^DD(50.605,"GL","TERMSTATUS",0,99.991)=""
^DD(50.605,"GL","VUID",1,99.99)=""
^DD(50.605,"GL","VUID",2,99.98)=""
^DD(50.605,"IX",.01)=""
^DD(50.605,"IX",1)=""
^DD(50.605,"IX",99.99)=""
^DD(50.605,"RQ",.01)=""
^DD(50.605,"RQ",99.98)=""
^DD(50.605,"RQ",99.99)=""
^DD(50.605,"SB",50.60509,99.991)=""
^DD(50.605,"SB",50.615,4)=""
^DD(50.60509,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(50.60509,0,"DT")="3050511"
^DD(50.60509,0,"IX","B",50.60509,.01)=""
^DD(50.60509,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(50.60509,0,"UP")="50.605"
^DD(50.60509,.01,0)="EFFECTIVE DATE/TIME^RDXI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.60509,.01,1,0)="^.1"
^DD(50.60509,.01,1,1,0)="50.60509^B"
^DD(50.60509,.01,1,1,1)="S ^PS(50.605,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(50.60509,.01,1,1,2)="K ^PS(50.605,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(50.60509,.01,9)="^"
^DD(50.60509,.01,21,0)="^^1^1^3050511^"
^DD(50.60509,.01,21,1,0)="This is the date/time when the Status of the term was established."
^DD(50.60509,.01,"DT")="3050511"
^DD(50.60509,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(50.60509,.02,9)="^"
^DD(50.60509,.02,21,0)="^^2^2^3050511^"
^DD(50.60509,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If the term 'ACTIVE', then the term will be accessible by end-users to document a particular  patient event. If 'INACTIVE', then the term will only be accessible by the application"
^DD(50.60509,.02,21,2,0)="to display legacy data."
^DD(50.60509,.02,"DT")="3050511"
^DD(50.60509,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(50.60509,"B","STATUS",.02)=""
^DD(50.60509,"GL",0,1,.01)=""
^DD(50.60509,"GL",0,2,.02)=""
^DD(50.60509,"IX",.01)=""
^DD(50.60509,"RQ",.01)=""
^DD(50.60509,"RQ",.02)=""
^DD(50.606,0)="FIELD^^10^11"
^DD(50.606,0,"DDA")="N"
^DD(50.606,0,"DT")="2970114"
^DD(50.606,0,"IX","ACON",50.6068,.01)=""
^DD(50.606,0,"IX","ACON1",50.6068,1)=""
^DD(50.606,0,"IX","ADUP",50.6069,1)=""
^DD(50.606,0,"IX","ADUP1",50.6069,.01)=""
^DD(50.606,0,"IX","B",50.606,.01)=""
^DD(50.606,0,"NM","DOSAGE FORM")=""
^DD(50.606,0,"PT",50.68,1)=""
^DD(50.606,0,"PT",50.7,.02)=""
^DD(50.606,0,"VR")="1.0"
^DD(50.606,0,"VRPK")="PSS"
^DD(50.606,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(50.606,.01,1,0)="^.1"
^DD(50.606,.01,1,1,0)="50.606^B"
^DD(50.606,.01,1,1,1)="S ^PS(50.606,""B"",$E(X,1,30),DA)="""""
^DD(50.606,.01,1,1,2)="K ^PS(50.606,""B"",$E(X,1,30),DA)"
^DD(50.606,.01,3)="Answer must be 3-30 characters in length, not numeric or starting with punctuation."
^DD(50.606,.01,8.5)="^"
^DD(50.606,.01,9)="^"
^DD(50.606,.01,21,0)="^^1^1^2970624^^"
^DD(50.606,.01,21,1,0)="This is the dosage form."
^DD(50.606,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED"")"
^DD(50.606,.01,"DT")="2890726"
^DD(50.606,.01,"LAYGO",.01,0)="D:'$D(XPDGREF) EN^DDIOL(""ADDITIONS ARE NOT ALLOWED"") I $D(XPDGREF)"
^DD(50.606,1,0)="MED ROUTE FOR DOSAGE FORM^50.6061P^^MR;0"
^DD(50.606,1,"DT")="2960717"
^DD(50.606,3,0)="VERB^F^^MISC;1^K:$L(X)>20!($L(X)<1) X"
^DD(50.606,3,3)="Enter a verb that is to be used when building the order text in CPRS for Outpatient orders, and when building the Sig in Outpatient Pharmacy. Answer must be 1 to 20 characters."
^DD(50.606,3,21,0)="^^5^5^3010321^"
^DD(50.606,3,21,1,0)="The verb is used by both the Outpatient Pharmacy package and CPRS. CPRS"
^DD(50.606,3,21,2,0)="uses the verb as the first word when building the order text of an"
^DD(50.606,3,21,3,0)="Outpatient order entered through CPRS. Outpatient Pharmacy uses the verb"
^DD(50.606,3,21,4,0)="as the first word when building the Sig for orders entered through CPRS"
^DD(50.606,3,21,5,0)="and through the Outpatient Pharmacy package."
^DD(50.606,3,"DT")="2950222"
^DD(50.606,3.1,0)="OTHER LANGUAGE VERB^F^^MISC1;1^K:$L(X)>20!($L(X)<1) X"
^DD(50.606,3.1,3)="Answer must be 1-20 characters in length."
^DD(50.606,3.1,21,0)="^.001^1^1^3020916^^^^"
^DD(50.606,3.1,21,1,0)="This field is used to store the verb in another language."
^DD(50.606,3.1,23,0)="^.001^1^1^3020916^^^^"
^DD(50.606,3.1,23,1,0)="Free text."
^DD(50.606,3.1,"DT")="3020916"
^DD(50.606,5,0)="PREPOSITION^F^^MISC;3^K:$L(X)>20!($L(X)<1) X"
^DD(50.606,5,3)="Enter a preposition that is to be used when building the order text in CPRS for Outpatient orders, and when building the Sig in Outpatient Pharmacy. Answer must be 1 to 20 characters."
^DD(50.606,5,21,0)="^^6^6^3010321^"
^DD(50.606,5,21,1,0)="The preposition is used by both the Outpatient Pharmacy package and CPRS."
^DD(50.606,5,21,2,0)="CPRS uses the preposition to precede the Outpatient expansion of the"
^DD(50.606,5,21,3,0)="Medication Route when building the order text of an Outpatient order"
^DD(50.606,5,21,4,0)="entered through CPRS. Outpatient Pharmacy uses the preposition to precede"
^DD(50.606,5,21,5,0)="the Outpatient expansion of the Medication Route when building the Sig for"
^DD(50.606,5,21,6,0)="orders entered through CPRS and through the Outpatient Pharmacy package."
^DD(50.606,5,"DT")="2950222"
^DD(50.606,5.1,0)="OTHER LANGUAGE PREPOSITION^F^^MISC1;2^K:$L(X)>20!($L(X)<1) X"
^DD(50.606,5.1,3)="Answer must be 1-20 characters in length."
^DD(50.606,5.1,21,0)="^.001^1^1^3020916^^^^"
^DD(50.606,5.1,21,1,0)="This field is used to store the preposition in another language."
^DD(50.606,5.1,23,0)="^.001^1^1^3020916^^^^"
^DD(50.606,5.1,23,1,0)="Free text."
^DD(50.606,5.1,"DT")="3020916"
^DD(50.606,6,0)="NOUN^50.6066^^NOUN;0"
^DD(50.606,7,0)="INACTIVATION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(50.606,7,3)="Enter the date the dosage form was inactivated."
^DD(50.606,7,21,0)="^^1^1^2981119^"
^DD(50.606,7,21,1,0)="This is the date that the dosage form was inactivated."
^DD(50.606,7,"DT")="2981119"
^DD(50.606,8,0)="UNITS^50.6068P^^UNIT;0"
^DD(50.606,8,21,0)="^.001^1^1^3010425^^^^"
^DD(50.606,8,21,1,0)="This multiple contains the units and package fields."
^DD(50.606,9,0)="DISPENSE UNITS PER DOSE^50.6069^^DUPD;0"
^DD(50.606,9,21,0)="^.001^1^1^3010425^^^^"
^DD(50.606,9,21,1,0)="This multiple contains the dispense units per dose and package fields."
^DD(50.606,10,0)="CONJUNCTION^F^^MISC;4^K:$L(X)>20!($L(X)<1) X"
^DD(50.606,10,3)="Answer must be 1-20 characters in length."
^DD(50.606,10,21,0)="^.001^6^6^3000329^^^^"
^DD(50.606,10,21,1,0)="If there is data in this field, it will become part of the Dosage selection"
^DD(50.606,10,21,2,0)="display in CPRS for Local Possible Dosages, for Dispense Drugs matched to"
^DD(50.606,10,21,3,0)="a Pharmacy Orderable Item with this Dose Form. It will connect the Local"
^DD(50.606,10,21,4,0)="Possible Dosage with the Strength and Units. For example, a Local"
^DD(50.606,10,21,5,0)="Possible Dosage of '2 drop(s) 0.5%' becomes '2 drop(s) of 0.5%' by adding"
^DD(50.606,10,21,6,0)="the word 'of' as the conjunction for the Dosage Form."
^DD(50.606,10,"DT")="3000328"
^DD(50.606,"B","CONJUNCTION",10)=""
^DD(50.606,"B","DISPENSE UNITS PER DOSE",9)=""
^DD(50.606,"B","INACTIVATION DATE",7)=""
^DD(50.606,"B","MED ROUTE FOR DOSAGE FORM",1)=""
^DD(50.606,"B","NAME",.01)=""
^DD(50.606,"B","NOUN",6)=""
^DD(50.606,"B","OTHER LANGUAGE PREPOSITION",5.1)=""
^DD(50.606,"B","OTHER LANGUAGE VERB",3.1)=""
^DD(50.606,"B","PREPOSITION",5)=""
^DD(50.606,"B","UNITS",8)=""
^DD(50.606,"B","VERB",3)=""
^DD(50.606,"GL",0,1,.01)=""
^DD(50.606,"GL",0,2,7)=""
^DD(50.606,"GL","DUPD",0,9)=""
^DD(50.606,"GL","MISC",1,3)=""
^DD(50.606,"GL","MISC",3,5)=""
^DD(50.606,"GL","MISC",4,10)=""
^DD(50.606,"GL","MISC1",1,3.1)=""
^DD(50.606,"GL","MISC1",2,5.1)=""
^DD(50.606,"GL","MR",0,1)=""
^DD(50.606,"GL","NOUN",0,6)=""
^DD(50.606,"GL","UNIT",0,8)=""
^DD(50.606,"IX",.01)=""
^DD(50.606,"RQ",.01)=""
^DD(50.606,"SB",50.6061,1)=""
^DD(50.606,"SB",50.6066,6)=""
^DD(50.606,"SB",50.6068,8)=""
^DD(50.606,"SB",50.6069,9)=""
^DD(50.6061,0)="MED ROUTE FOR DOSAGE FORM SUB-FIELD^^.01^1"
^DD(50.6061,0,"DT")="2950208"
^DD(50.6061,0,"IX","B",50.6061,.01)=""
^DD(50.6061,0,"NM","MED ROUTE FOR DOSAGE FORM")=""
^DD(50.6061,0,"UP")="50.606"
^DD(50.6061,.01,0)="MED ROUTE FOR DOSAGE FORM^M*P51.2^PS(51.2,^0;1^S DIC(""S"")=""I $P(^(0),U,4)'=0"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(50.6061,.01,1,0)="^.1^^-1"
^DD(50.6061,.01,1,1,0)="50.6061^B"
^DD(50.6061,.01,1,1,1)="S ^PS(50.606,DA(1),""MR"",""B"",$E(X,1,30),DA)="""""
^DD(50.6061,.01,1,1,2)="K ^PS(50.606,DA(1),""MR"",""B"",$E(X,1,30),DA)"
^DD(50.6061,.01,12)="Screen prevents selection of any NDF-Only Med Route."
^DD(50.6061,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)'=0"""
^DD(50.6061,.01,21,0)="^^1^1^2950213^^"
^DD(50.6061,.01,21,1,0)="This is a route of administration for a medication."
^DD(50.6061,.01,23,0)="^^1^1^2950213^^"
^DD(50.6061,.01,23,1,0)="The medication routes that associate with a dosage form."
^DD(50.6061,.01,"DT")="3020213"
^DD(50.6061,"B","MED ROUTE FOR DOSAGE FORM",.01)=""
^DD(50.6061,"GL",0,1,.01)=""
^DD(50.6061,"IX",.01)=""
^DD(50.6066,0)="NOUN SUB-FIELD^^3^3"
^DD(50.6066,0,"DT")="2970114"
^DD(50.6066,0,"IX","B",50.6066,.01)=""
^DD(50.6066,0,"NM","NOUN")=""
^DD(50.6066,0,"UP")="50.606"
^DD(50.6066,.01,0)="NOUN^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(50.6066,.01,1,0)="^.1"
^DD(50.6066,.01,1,1,0)="50.6066^B"
^DD(50.6066,.01,1,1,1)="S ^PS(50.606,DA(1),""NOUN"",""B"",$E(X,1,30),DA)="""""
^DD(50.6066,.01,1,1,2)="K ^PS(50.606,DA(1),""NOUN"",""B"",$E(X,1,30),DA)"
^DD(50.6066,.01,3)="Answer must be 1-30 characters in length."
^DD(50.6066,.01,21,0)="^^5^5^3000425^"
^DD(50.6066,.01,21,1,0)="These are the nouns that are associated with this Dosage form. It will"
^DD(50.6066,.01,21,2,0)="be used by Outpatient Pharmacy to build a Sig for an OE/RR order."
^DD(50.6066,.01,21,3,0)="It will also be used for building local possible doses as part of the"
^DD(50.6066,.01,21,4,0)="pharmacy ordering enhancements for both Outpatient Pharmacy and Inpatient"
^DD(50.6066,.01,21,5,0)="Medications."
^DD(50.6066,.01,"DT")="3000304"
^DD(50.6066,1,0)="PACKAGE^S^I:Inpatient;O:Outpatient;IO:Both;OI:Both;^0;2^Q"
^DD(50.6066,1,3)="Enter 'I' for Inpatient, 'O' for Outpatient, 'IO' or 'OI' for both."
^DD(50.6066,1,21,0)="^^2^2^3000425^"
^DD(50.6066,1,21,1,0)="This field will allow a noun to be marked for Inpatient Medications and/or"
^DD(50.6066,1,21,2,0)="Outpatient Pharmacy package use."
^DD(50.6066,1,"DT")="3000425"
^DD(50.6066,3,0)="OTHER LANGUAGE NOUN^F^^1;1^K:$L(X)>50!($L(X)<1) X"
^DD(50.6066,3,3)="Answer must be 1-50 characters in length."
^DD(50.6066,3,21,0)="^.001^1^1^3020916^^^^"
^DD(50.6066,3,21,1,0)="This field is used to store the noun in another language."
^DD(50.6066,3,23,0)="^.001^1^1^3020916^^^^"
^DD(50.6066,3,23,1,0)="Free text."
^DD(50.6066,3,"DT")="3020916"
^DD(50.6066,"B","NOUN",.01)=""
^DD(50.6066,"B","OTHER LANGUAGE NOUN",3)=""
^DD(50.6066,"B","PACKAGE",1)=""
^DD(50.6066,"GL",0,1,.01)=""
^DD(50.6066,"GL",0,2,1)=""
^DD(50.6066,"GL",1,1,3)=""
^DD(50.6066,"IX",.01)=""
^DD(50.6068,0)="UNITS SUB-FIELD^^1^2"
^DD(50.6068,0,"DT")="3000425"
^DD(50.6068,0,"IX","B",50.6068,.01)=""
^DD(50.6068,0,"NM","UNITS")=""
^DD(50.6068,0,"UP")="50.606"
^DD(50.6068,.01,0)="UNITS^MP50.607'Ia^PS(50.607,^0;1^Q"
^DD(50.6068,.01,1,0)="^.1"
^DD(50.6068,.01,1,1,0)="50.6068^B"
^DD(50.6068,.01,1,1,1)="S ^PS(50.606,DA(1),""UNIT"",""B"",$E(X,1,30),DA)="""""
^DD(50.6068,.01,1,1,2)="K ^PS(50.606,DA(1),""UNIT"",""B"",$E(X,1,30),DA)"
^DD(50.6068,.01,1,2,0)="50.606^ACON^MUMPS"
^DD(50.6068,.01,1,2,1)="N PSSAP,PSSAPL S PSSAP=$P($G(^PS(50.606,DA(1),""UNIT"",DA,0)),""^"",2) I PSSAP'="""" F PSSAPL=1:1:$L(PSSAP) S ^PS(50.606,""ACON""_$E(PSSAP,PSSAPL),DA(1),+$G(X))="""""
^DD(50.6068,.01,1,2,2)="N PSSAPX,PSSAPXL S PSSAPX=$P($G(^PS(50.606,DA(1),""UNIT"",DA,0)),""^"",2) I PSSAPX'="""" F PSSAPXL=1:1:$L(PSSAPX) K ^PS(50.606,""ACON""_$E(PSSAPX,PSSAPXL),DA(1),+$G(X))"
^DD(50.6068,.01,1,2,"%D",0)="^.101^3^3^3000229^^^^"
^DD(50.6068,.01,1,2,"%D",1,0)="This cross reference is used for identifying Dose Form/Unit combinations"
^DD(50.6068,.01,1,2,"%D",2,0)="for possible dose conversions. It sets the global ^PS(50.606,""ACON(I or O)"","
^DD(50.6068,.01,1,2,"%D",3,0)="Dose Form, Unit)=""""."
^DD(50.6068,.01,1,2,"DT")="3000229"
^DD(50.6068,.01,3)="Enter the Unit associated with this Dosage Form."
^DD(50.6068,.01,21,0)="^.001^1^1^3000328^^"
^DD(50.6068,.01,21,1,0)="Unit of measure. Pointer to the Drug Units File #50.607."
^DD(50.6068,.01,"AUDIT")="y"
^DD(50.6068,.01,"DEL",1,0)="I '$D(XPDGREF) D EN^DDIOL("" DELETIONS ARE NOT ALLOWED"")"
^DD(50.6068,.01,"DT")="3000616"
^DD(50.6068,.01,"LAYGO",1,0)="D:'$D(XPDGREF) EN^DDIOL("" NEW ENTRIES ARE NOT ALLOWED"") I $D(XPDGREF)"
^DD(50.6068,1,0)="PACKAGE^SIa^I:Inpatient;O:Outpatient;IO:Both;OI:Both;^0;2^Q"
^DD(50.6068,1,1,0)="^.1"
^DD(50.6068,1,1,1,0)="50.606^ACON1^MUMPS"
^DD(50.6068,1,1,1,1)="N PSSAU F PSSAU=1:1:$L(X) S ^PS(50.606,""ACON""_$E(X,PSSAU),DA(1),+$P($G(^PS(50.606,DA(1),""UNIT"",DA,0)),""^""))="""""
^DD(50.6068,1,1,1,2)="N PSSAUP F PSSAUP=1:1:$L(X) K ^PS(50.606,""ACON""_$E(X,PSSAUP),DA(1),+$P($G(^PS(50.606,DA(1),""UNIT"",DA,0)),""^""))"
^DD(50.6068,1,1,1,"%D",0)="^^3^3^3000425^"
^DD(50.6068,1,1,1,"%D",1,0)="This cross reference is used for identifying Dose Form/Unit combinations"
^DD(50.6068,1,1,1,"%D",2,0)="for possible dose conversions. It sets the global ^PS(50.606,""ACON(I or"
^DD(50.6068,1,1,1,"%D",3,0)="O)"",Dose Form, Unit)=""""."
^DD(50.6068,1,1,1,"DT")="3000425"
^DD(50.6068,1,3)="Enter an 'I' for Inpatient, 'O' for Outpatient, 'IO' or 'OI' for both."
^DD(50.6068,1,8.5)="^"
^DD(50.6068,1,9)="^"
^DD(50.6068,1,21,0)="^.001^2^2^3010425^^"
^DD(50.6068,1,21,1,0)="This field will designate for which package (Inpatient or Outpatient)"
^DD(50.6068,1,21,2,0)="Possible Dosages are convertible."
^DD(50.6068,1,"AUDIT")="y"
^DD(50.6068,1,"DT")="3000616"
^DD(50.6068,"AUDIT",.01)=""
^DD(50.6068,"AUDIT",1)=""
^DD(50.6068,"B","PACKAGE",1)=""
^DD(50.6068,"B","UNITS",.01)=""
^DD(50.6068,"GL",0,1,.01)=""
^DD(50.6068,"GL",0,2,1)=""
^DD(50.6068,"IX",.01)=""
^DD(50.6068,"IX",1)=""
^DD(50.6069,0)="DISPENSE UNITS PER DOSE SUB-FIELD^^1^2"
^DD(50.6069,0,"DT")="3000425"
^DD(50.6069,0,"IX","B",50.6069,.01)=""
^DD(50.6069,0,"NM","DISPENSE UNITS PER DOSE")=""
^DD(50.6069,0,"UP")="50.606"
^DD(50.6069,.01,0)="DISPENSE UNITS PER DOSE^MNJ14,4Ia^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.6069,.01,1,0)="^.1"
^DD(50.6069,.01,1,1,0)="50.6069^B"
^DD(50.6069,.01,1,1,1)="S ^PS(50.606,DA(1),""DUPD"",""B"",$E(X,1,30),DA)="""""
^DD(50.6069,.01,1,1,2)="K ^PS(50.606,DA(1),""DUPD"",""B"",$E(X,1,30),DA)"
^DD(50.6069,.01,1,2,0)="50.606^ADUP1^MUMPS"
^DD(50.6069,.01,1,2,1)="N PSSDUP,PSSDUPL S PSSDUP=$P($G(^PS(50.606,DA(1),""DUPD"",DA,0)),""^"",2) I PSSDUP'="""" F PSSDUPL=1:1:$L(PSSDUP) S ^PS(50.606,""ADUP""_$E(PSSDUP,PSSDUPL),DA(1),$G(X))="""""
^DD(50.6069,.01,1,2,2)="N PSSDXP,PSSDXPL S PSSDXP=$P($G(^PS(50.606,DA(1),""DUPD"",DA,0)),""^"",2) I PSSDXP'="""" F PSSDXPL=1:1:$L(PSSDXP) K ^PS(50.606,""ADUP""_$E(PSSDXP,PSSDXPL),DA(1),$G(X))"
^DD(50.6069,.01,1,2,"%D",0)="^.101^2^2^3000328^^^"
^DD(50.6069,.01,1,2,"%D",1,0)="This cross reference is used to compute possible doses. It sets the"
^DD(50.6069,.01,1,2,"%D",2,0)="global ^PS(50.606,""ADUP_I or O""),Dose Form,Dispense Units Per Dose)=""""."
^DD(50.6069,.01,1,2,"DT")="3000302"
^DD(50.6069,.01,3)="Type a Number between 0 and 999999999, 4 Decimal Digits"
^DD(50.6069,.01,21,0)="^.001^3^3^3010425^^^^"
^DD(50.6069,.01,21,1,0)="The value in this field shall be used to populate dispense units per"
^DD(50.6069,.01,21,2,0)="dose fields in the Possible Dosages and Local Possible Dosages sub files"
^DD(50.6069,.01,21,3,0)="in the Drug File."
^DD(50.6069,.01,"AUDIT")="y"
^DD(50.6069,.01,"DEL",1,0)="I '$D(XPDGREF) D EN^DDIOL("" DELETIONS ARE NOT ALLOWED"")"
^DD(50.6069,.01,"DT")="3010206"
^DD(50.6069,.01,"LAYGO",1,0)="D:'$D(XPDGREF) EN^DDIOL("" NEW ENTRIES ARE NOT ALLOWED"") I $D(XPDGREF)"
^DD(50.6069,1,0)="PACKAGE^SIa^I:Inpatient;O:Outpatient;IO:Both;OI:Both;^0;2^Q"
^DD(50.6069,1,1,0)="^.1"
^DD(50.6069,1,1,1,0)="50.606^ADUP^MUMPS"
^DD(50.6069,1,1,1,1)="N PSSDP F PSSDP=1:1:$L(X) S ^PS(50.606,""ADUP""_$E(X,PSSDP),DA(1),$P($G(^PS(50.606,DA(1),""DUPD"",DA,0)),""^""))="""""
^DD(50.6069,1,1,1,2)="N PSSDPK F PSSDPK=1:1:$L(X) K ^PS(50.606,""ADUP""_$E(X,PSSDPK),DA(1),$P($G(^PS(50.606,DA(1),""DUPD"",DA,0)),""^""))"
^DD(50.6069,1,1,1,"%D",0)="^^2^2^3000425^"
^DD(50.6069,1,1,1,"%D",1,0)="This cross reference is used for Dosage conversion. It sets the global"
^DD(50.6069,1,1,1,"%D",2,0)="^PS(50.606,""ADUP_I or O""),Dose Form,DIspense Units per Dose)=""""."
^DD(50.6069,1,1,1,"DT")="3000425"
^DD(50.6069,1,3)="Enter an 'I' for Inpatient, 'O' for Outpatient, 'IO' or 'OI' for both."
^DD(50.6069,1,8.5)="^"
^DD(50.6069,1,9)="^"
^DD(50.6069,1,21,0)="^.001^2^2^3000425^^"
^DD(50.6069,1,21,1,0)="This field will allow a dispense units per dose to be marked for Inpatient"
^DD(50.6069,1,21,2,0)="Medications and/or Outpatient Pharmacy package use."
^DD(50.6069,1,"AUDIT")="y"
^DD(50.6069,1,"DT")="3000510"
^DD(50.6069,"AUDIT",.01)=""
^DD(50.6069,"AUDIT",1)=""
^DD(50.6069,"B","DISPENSE UNITS PER DOSE",.01)=""
^DD(50.6069,"B","PACKAGE",1)=""
^DD(50.6069,"GL",0,1,.01)=""
^DD(50.6069,"GL",0,2,1)=""
^DD(50.6069,"IX",.01)=""
^DD(50.6069,"IX",1)=""
^DD(50.607,0)="FIELD^^1^2"
^DD(50.607,0,"DDA")="N"
^DD(50.607,0,"IX","B",50.607,.01)=""
^DD(50.607,0,"NM","DRUG UNITS")=""
^DD(50.607,0,"PT",50,902)=""
^DD(50.607,0,"PT",50.6068,.01)=""
^DD(50.607,0,"PT",50.68,3)=""
^DD(50.607,0,"PT",50.6814,2)=""
^DD(50.607,0,"PT",52.0113,2)=""
^DD(50.607,0,"PT",52.413,11)=""
^DD(50.607,0,"VR")="4.0"
^DD(50.607,0,"VRPK")="PSN"
^DD(50.607,.01,0)="NAME^RF^^0;1^K:$L(X)>75!($L(X)<1) X"
^DD(50.607,.01,1,0)="^.1"
^DD(50.607,.01,1,1,0)="50.607^B"
^DD(50.607,.01,1,1,1)="S ^PS(50.607,""B"",$E(X,1,30),DA)="""""
^DD(50.607,.01,1,1,2)="K ^PS(50.607,""B"",$E(X,1,30),DA)"
^DD(50.607,.01,3)="Answer must be 1-75 characters in length."
^DD(50.607,.01,8.5)="^"
^DD(50.607,.01,9)="^"
^DD(50.607,.01,21,0)="^^1^1^2910130^"
^DD(50.607,.01,21,1,0)="This is the drug unit of measure."
^DD(50.607,.01,"DT")="2871216"
^DD(50.607,1,0)="INACTIVATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.607,1,21,0)="^^1^1^2981101^"
^DD(50.607,1,21,1,0)="This is the date when this drug unit was made inactive."
^DD(50.607,1,"DT")="2981101"
^DD(50.607,"B","INACTIVATION DATE",1)=""
^DD(50.607,"B","NAME",.01)=""
^DD(50.607,"GL",0,1,.01)=""
^DD(50.607,"GL",0,2,1)=""
^DD(50.607,"IX",.01)=""
^DD(50.607,"RQ",.01)=""
^DD(50.608,0)="FIELD^^1^2"
^DD(50.608,0,"DDA")="N"
^DD(50.608,0,"IX","B",50.608,.01)=""
^DD(50.608,0,"NM","PACKAGE TYPE")=""
^DD(50.608,0,"PT",50,24)=""
^DD(50.608,0,"PT",50.612,6)=""
^DD(50.608,0,"PT",50.67,9)=""
^DD(50.608,0,"VR")="4.0"
^DD(50.608,0,"VRPK")="PSN"
^DD(50.608,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(50.608,.01,1,0)="^.1"
^DD(50.608,.01,1,1,0)="50.608^B"
^DD(50.608,.01,1,1,1)="S ^PS(50.608,""B"",$E(X,1,30),DA)="""""
^DD(50.608,.01,1,1,2)="K ^PS(50.608,""B"",$E(X,1,30),DA)"
^DD(50.608,.01,3)="Answer must be 1-40 characters in length."
^DD(50.608,.01,8.5)="^"
^DD(50.608,.01,9)="^"
^DD(50.608,.01,21,0)="^^1^1^2910130^"
^DD(50.608,.01,21,1,0)="This is the package type."
^DD(50.608,.01,"DT")="2880218"
^DD(50.608,1,0)="INACTIVATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.608,1,21,0)="^^1^1^2981101^"
^DD(50.608,1,21,1,0)="This is the date when this package type was made inactive."
^DD(50.608,1,"DT")="2981101"
^DD(50.608,"B","INACTIVATION DATE",1)=""
^DD(50.608,"B","NAME",.01)=""
^DD(50.608,"GL",0,1,.01)=""
^DD(50.608,"GL",0,2,1)=""
^DD(50.608,"IX",.01)=""
^DD(50.608,"RQ",.01)=""
^DD(50.609,0)="FIELD^^1^2"
^DD(50.609,0,"DDA")="N"
^DD(50.609,0,"IX","B",50.609,.01)=""
^DD(50.609,0,"NM","PACKAGE SIZE")=""
^DD(50.609,0,"PT",50,23)=""
^DD(50.609,0,"PT",50.612,4)=""
^DD(50.609,0,"PT",50.67,8)=""
^DD(50.609,0,"VR")="4.0"
^DD(50.609,0,"VRPK")="PSN"
^DD(50.609,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(50.609,.01,1,0)="^.1"
^DD(50.609,.01,1,1,0)="50.609^B"
^DD(50.609,.01,1,1,1)="S ^PS(50.609,""B"",$E(X,1,30),DA)="""""
^DD(50.609,.01,1,1,2)="K ^PS(50.609,""B"",$E(X,1,30),DA)"
^DD(50.609,.01,3)="Answer must be 1-30 characters in length."
^DD(50.609,.01,8.5)="^"
^DD(50.609,.01,9)="^"
^DD(50.609,.01,21,0)="^^1^1^2910130^"
^DD(50.609,.01,21,1,0)="This is the package size."
^DD(50.609,.01,"DT")="2871214"
^DD(50.609,1,0)="INACTIVATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.609,1,21,0)="^^1^1^2981101^"
^DD(50.609,1,21,1,0)="This is the date when this package size was made inactive."
^DD(50.609,1,"DT")="2981101"
^DD(50.609,"B","INACTIVATION DATE",1)=""
^DD(50.609,"B","NAME",.01)=""
^DD(50.609,"GL",0,1,.01)=""
^DD(50.609,"GL",0,2,1)=""
^DD(50.609,"IX",.01)=""
^DD(50.609,"RQ",.01)=""
^DD(50.612,0)="FIELD^^12^12"
^DD(50.612,0,"DDA")="N"
^DD(50.612,0,"DT")="2980920"
^DD(50.612,0,"IX","B",50.612,.01)=""
^DD(50.612,0,"IX","C",50.612,10)=""
^DD(50.612,0,"IX","D",50.612,11)=""
^DD(50.612,0,"IX","E",50.612,12)=""
^DD(50.612,0,"NM","NATIONAL DRUG TRANSLATION")=""
^DD(50.612,0,"VR")="4.0"
^DD(50.612,0,"VRPK")="PSN"
^DD(50.612,.001,0)="PSDRUG DA^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.612,.001,3)="Type a whole number between 1 and 999999999."
^DD(50.612,.001,21,0)="^^1^1^2980920^^^^"
^DD(50.612,.001,21,1,0)="Pointer to ^PSDRUG file (#50)."
^DD(50.612,.001,"DT")="2860821"
^DD(50.612,.01,0)="PSNDF DA^RP50.6^PSNDF(50.6,^0;1^Q"
^DD(50.612,.01,1,0)="^.1^^0"
^DD(50.612,.01,1,1,0)="50.612^B"
^DD(50.612,.01,1,1,1)="S ^PSTRAN(""B"",$E(X,1,30),DA)="""""
^DD(50.612,.01,1,1,2)="K ^PSTRAN(""B"",$E(X,1,30),DA)"
^DD(50.612,.01,3)=""
^DD(50.612,.01,8.5)="^"
^DD(50.612,.01,9)="^"
^DD(50.612,.01,21,0)="^^1^1^2980920^^^^"
^DD(50.612,.01,21,1,0)="Pointer to ^PSNDF file (#50.6)."
^DD(50.612,.01,"DT")="2980920"
^DD(50.612,1,0)="VA PRODUCT NAME DA^P50.68^PSNDF(50.68,^0;2^Q"
^DD(50.612,1,3)=""
^DD(50.612,1,8.5)="^"
^DD(50.612,1,9)="^"
^DD(50.612,1,21,0)="^^1^1^2980920^^^^"
^DD(50.612,1,21,1,0)="Pointer to VA PRODUCT file (#50.68)."
^DD(50.612,1,"DT")="2980920"
^DD(50.612,2,0)="VA CLASS^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.612,2,3)="Type a whole number between 1 and 999."
^DD(50.612,2,8.5)="^"
^DD(50.612,2,9)="^"
^DD(50.612,2,21,0)="^^1^1^2890726^^^"
^DD(50.612,2,21,1,0)="Pointer to VA Drug Class file (#50.605)."
^DD(50.612,2,"DT")="2860821"
^DD(50.612,4,0)="PACKAGE SIZE PTR^P50.609^PS(50.609,^0;5^Q"
^DD(50.612,4,3)=""
^DD(50.612,4,8.5)="^"
^DD(50.612,4,9)="^"
^DD(50.612,4,21,0)="^^1^1^2980920^^^^"
^DD(50.612,4,21,1,0)="Pointer to Package Size file (#50.609)."
^DD(50.612,4,"DT")="2871208"
^DD(50.612,6,0)="PACKAGE TYPE PTR^P50.608^PS(50.608,^0;7^Q"
^DD(50.612,6,3)=""
^DD(50.612,6,8.5)="^"
^DD(50.612,6,9)="^"
^DD(50.612,6,21,0)="^^1^1^2890726^^^"
^DD(50.612,6,21,1,0)="Pointer to Package Type file (#50.608)."
^DD(50.612,6,"DT")="2871208"
^DD(50.612,7,0)="DUZ #^P200'^VA(200,^0;8^Q"
^DD(50.612,7,3)=""
^DD(50.612,7,8.5)="^"
^DD(50.612,7,9)="^"
^DD(50.612,7,21,0)="^^1^1^2920325^^^^"
^DD(50.612,7,21,1,0)="User number of person entering (matching) data."
^DD(50.612,7,"DT")="2920325"
^DD(50.612,8,0)="VERIFY FLAG^F^^0;9^K:$L(X)>1!($L(X)<1) X"
^DD(50.612,8,3)="Answer must be 1 character in length."
^DD(50.612,8,8.5)="^"
^DD(50.612,8,9)="^"
^DD(50.612,8,21,0)="^^1^1^2890726^^^^"
^DD(50.612,8,21,1,0)="Flag to indicate that the data has been verified."
^DD(50.612,8,"DT")="2861006"
^DD(50.612,9,0)="DUZ OF VERIFIER^P200'^VA(200,^0;10^Q"
^DD(50.612,9,3)=""
^DD(50.612,9,8.5)="^"
^DD(50.612,9,9)="^"
^DD(50.612,9,21,0)="^^1^1^2920325^^^^"
^DD(50.612,9,21,1,0)="User number of person doing the verifying."
^DD(50.612,9,"DT")="2920325"
^DD(50.612,10,0)="END^NJ6,0I^^END;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.612,10,1,0)="^.1"
^DD(50.612,10,1,1,0)="50.612^C^MUMPS"
^DD(50.612,10,1,1,1)="S $P(^PSNTRAN(""END""),""^"",1)=X"
^DD(50.612,10,1,1,2)="S $P(^PSNTRAN(""END""),""^"",1)="""""
^DD(50.612,10,1,1,"%D",0)="^^3^3^2981014^^"
^DD(50.612,10,1,1,"%D",1,0)="This cross-reference stores the last entry matched in option ""Match"
^DD(50.612,10,1,1,"%D",2,0)="Local Drug File With National File""."
^DD(50.612,10,1,1,"%D",3,0)="In the form of: ^PSNTRAN(""END"")=PSDRUG DA"
^DD(50.612,10,3)="Type a whole number between 0 and 999999."
^DD(50.612,10,8.5)="^"
^DD(50.612,10,9)="^"
^DD(50.612,10,21,0)="^^3^3^2930218^^^^"
^DD(50.612,10,21,1,0)="Stores internal number of file #50 in which the matching process concluded"
^DD(50.612,10,21,2,0)="previously. This allows the user to start up where they left off in the"
^DD(50.612,10,21,3,0)="matching process using option - (Match Local Drug File With National File)."
^DD(50.612,10,21,4,0)=" "
^DD(50.612,10,"DT")="2871123"
^DD(50.612,11,0)="LAST UNMATCHED DRUG CLASSED^F^^END;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(50.612,11,1,0)="^.1"
^DD(50.612,11,1,1,0)="50.612^D^MUMPS"
^DD(50.612,11,1,1,1)="S $P(^PSNTRAN(""END""),""^"",3)=X"
^DD(50.612,11,1,1,2)="S $P(^PSNTRAN(""END""),""^"",3)="""""
^DD(50.612,11,1,1,"%D",0)="^^3^3^2981014^^"
^DD(50.612,11,1,1,"%D",1,0)="This cross-reference stores the name of the last entry classed by option"
^DD(50.612,11,1,1,"%D",2,0)="""Allow Unmatched Drugs To Be Classed""."
^DD(50.612,11,1,1,"%D",3,0)="In the form of: ^PSNTRAN(""END"")=^^PSDRUG DA"
^DD(50.612,11,3)="Answer must be 1-40 characters in length."
^DD(50.612,11,8.5)="^"
^DD(50.612,11,9)="^"
^DD(50.612,11,21,0)="^^3^3^2890726^^^^"
^DD(50.612,11,21,1,0)="Stores the name of the last unmatched drug classed by option -"
^DD(50.612,11,21,2,0)="(Allow Unmatched Drugs To Be Classed). This allows the user to start up"
^DD(50.612,11,21,3,0)="where they left off."
^DD(50.612,11,"DT")="2871123"
^DD(50.612,12,0)="LAST SUPPLY ITEM RE-CLASSED^F^^END;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(50.612,12,1,0)="^.1"
^DD(50.612,12,1,1,0)="50.612^E^MUMPS"
^DD(50.612,12,1,1,1)="S $P(^PSNTRAN(""END""),""^"",5)=X"
^DD(50.612,12,1,1,2)="S $P(^PSNTRAN(""END""),""^"",5)="""""
^DD(50.612,12,1,1,"%D",0)="^^3^3^2981014^^"
^DD(50.612,12,1,1,"%D",1,0)="This cross-reference stores the name of the last entry classed by option"
^DD(50.612,12,1,1,"%D",2,0)="""Re-Class Supply Items""."
^DD(50.612,12,1,1,"%D",3,0)="In the form of: ^PSNTRAN(""END"")=^^^^PSDRUG DA"
^DD(50.612,12,3)="Answer must be 1-40 characters in length."
^DD(50.612,12,8.5)="^"
^DD(50.612,12,9)="^"
^DD(50.612,12,21,0)="^^2^2^2890726^^"
^DD(50.612,12,21,1,0)="Stores the name of the last supply item re-classed by option - (Re-Class"
^DD(50.612,12,21,2,0)="Supply Items). This allows the user to start up where they left off."
^DD(50.612,12,"DT")="2890712"
^DD(50.612,"B","DUZ #",7)=""
^DD(50.612,"B","DUZ OF VERIFIER",9)=""
^DD(50.612,"B","END",10)=""
^DD(50.612,"B","LAST SUPPLY ITEM RE-CLASSED",12)=""
^DD(50.612,"B","LAST UNMATCHED DRUG CLASSED",11)=""
^DD(50.612,"B","PACKAGE SIZE PTR",4)=""
^DD(50.612,"B","PACKAGE TYPE PTR",6)=""
^DD(50.612,"B","PSDRUG DA",.001)=""
^DD(50.612,"B","PSNDF DA",.01)=""
^DD(50.612,"B","VA CLASS",2)=""
^DD(50.612,"B","VA PRODUCT NAME DA",1)=""
^DD(50.612,"B","VERIFY FLAG",8)=""
^DD(50.612,"GL",0,1,.01)=""
^DD(50.612,"GL",0,2,1)=""
^DD(50.612,"GL",0,3,2)=""
^DD(50.612,"GL",0,5,4)=""
^DD(50.612,"GL",0,7,6)=""
^DD(50.612,"GL",0,8,7)=""
^DD(50.612,"GL",0,9,8)=""
^DD(50.612,"GL",0,10,9)=""
^DD(50.612,"GL","END",1,10)=""
^DD(50.612,"GL","END",3,11)=""
^DD(50.612,"GL","END",5,12)=""
^DD(50.612,"IX",.01)=""
^DD(50.612,"IX",10)=""
^DD(50.612,"IX",11)=""
^DD(50.612,"IX",12)=""
^DD(50.612,"RQ",.01)=""
^DD(50.615,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(50.615,0,"NM","DESCRIPTION")=""
^DD(50.615,0,"UP")="50.605"
^DD(50.615,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(50.615,.01,21,0)="^^1^1^2961121^^^^"
^DD(50.615,.01,21,1,0)="This is a description of the classification."
^DD(50.615,"B","DESCRIPTION",.01)=""
^DD(50.615,"GL",0,1,.01)=""
^DD(50.621,0)="FIELD^^15^16"
^DD(50.621,0,"DDA")="N"
^DD(50.621,0,"DT")="3020207"
^DD(50.621,0,"IX","B",50.621,.01)=""
^DD(50.621,0,"NM","PMI-ENGLISH")=""
^DD(50.621,0,"VR")="4.0"
^DD(50.621,0,"VRPK")="PSN"
^DD(50.621,.01,0)="TITLE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(50.621,.01,1,0)="^.1"
^DD(50.621,.01,1,1,0)="50.621^B"
^DD(50.621,.01,1,1,1)="S ^PS(50.621,""B"",$E(X,1,30),DA)="""""
^DD(50.621,.01,1,1,2)="K ^PS(50.621,""B"",$E(X,1,30),DA)"
^DD(50.621,.01,3)="Answer must be 3-30 characters in length."
^DD(50.621,.01,8.5)="^"
^DD(50.621,.01,9)="^"
^DD(50.621,.01,"DT")="3020207"
^DD(50.621,1,0)="COMMON BRAND NAMES^50.6211^^C;0"
^DD(50.621,1,8.5)="^"
^DD(50.621,1,9)="^"
^DD(50.621,2,0)="BLANK LINE^50.6212^^B;0"
^DD(50.621,2,8.5)="^"
^DD(50.621,2,9)="^"
^DD(50.621,3,0)="PHONETICS^50.6213^^F;0"
^DD(50.621,3,8.5)="^"
^DD(50.621,3,9)="^"
^DD(50.621,4,0)="HOW TO TAKE^50.6214^^H;0"
^DD(50.621,4,8.5)="^"
^DD(50.621,4,9)="^"
^DD(50.621,5,0)="USES^50.6215^^U;0"
^DD(50.621,5,8.5)="^"
^DD(50.621,5,9)="^"
^DD(50.621,6,0)="SIDE EFFECTS^50.6216^^S;0"
^DD(50.621,6,8.5)="^"
^DD(50.621,6,9)="^"
^DD(50.621,7,0)="WARNINGS^50.6217^^W;0"
^DD(50.621,7,8.5)="^"
^DD(50.621,7,9)="^"
^DD(50.621,8,0)="OVERDOSE^50.6218^^O;0"
^DD(50.621,8,8.5)="^"
^DD(50.621,8,9)="^"
^DD(50.621,9,0)="MISSED DOSE^50.6219^^D;0"
^DD(50.621,9,8.5)="^"
^DD(50.621,9,9)="^"
^DD(50.621,10,0)="DRUG INTERACTIONS^50.631^^I;0"
^DD(50.621,10,8.5)="^"
^DD(50.621,10,9)="^"
^DD(50.621,11,0)="PRECAUTIONS^50.62111^^P;0"
^DD(50.621,11,8.5)="^"
^DD(50.621,11,9)="^"
^DD(50.621,12,0)="STORAGE^50.62112^^R;0"
^DD(50.621,12,8.5)="^"
^DD(50.621,12,9)="^"
^DD(50.621,13,0)="MEDIC ALERT^50.62113^^M;0"
^DD(50.621,13,8.5)="^"
^DD(50.621,13,9)="^"
^DD(50.621,14,0)="NOTES^50.62114^^N;0"
^DD(50.621,14,8.5)="^"
^DD(50.621,14,9)="^"
^DD(50.621,15,0)="DISCLAIMER^50.62115^^Z;0"
^DD(50.621,15,8.5)="^"
^DD(50.621,15,9)="^"
^DD(50.621,"B","BLANK LINE",2)=""
^DD(50.621,"B","COMMON BRAND NAMES",1)=""
^DD(50.621,"B","DISCLAIMER",15)=""
^DD(50.621,"B","DRUG INTERACTIONS",10)=""
^DD(50.621,"B","HOW TO TAKE",4)=""
^DD(50.621,"B","MEDIC ALERT",13)=""
^DD(50.621,"B","MISSED DOSE",9)=""
^DD(50.621,"B","NOTES",14)=""
^DD(50.621,"B","OVERDOSE",8)=""
^DD(50.621,"B","PHONETICS",3)=""
^DD(50.621,"B","PRECAUTIONS",11)=""
^DD(50.621,"B","SIDE EFFECTS",6)=""
^DD(50.621,"B","STORAGE",12)=""
^DD(50.621,"B","TITLE",.01)=""
^DD(50.621,"B","USES",5)=""
^DD(50.621,"B","WARNINGS",7)=""
^DD(50.621,"GL",0,1,.01)=""
^DD(50.621,"GL","B",0,2)=""
^DD(50.621,"GL","C",0,1)=""
^DD(50.621,"GL","D",0,9)=""
^DD(50.621,"GL","F",0,3)=""
^DD(50.621,"GL","H",0,4)=""
^DD(50.621,"GL","I",0,10)=""
^DD(50.621,"GL","M",0,13)=""
^DD(50.621,"GL","N",0,14)=""
^DD(50.621,"GL","O",0,8)=""
^DD(50.621,"GL","P",0,11)=""
^DD(50.621,"GL","R",0,12)=""
^DD(50.621,"GL","S",0,6)=""
^DD(50.621,"GL","U",0,5)=""
^DD(50.621,"GL","W",0,7)=""
^DD(50.621,"GL","Z",0,15)=""
^DD(50.621,"IX",.01)=""
^DD(50.621,"RQ",.01)=""
^DD(50.621,"SB",50.6211,1)=""
^DD(50.621,"SB",50.62111,11)=""
^DD(50.621,"SB",50.62112,12)=""
^DD(50.621,"SB",50.62113,13)=""
^DD(50.621,"SB",50.62114,14)=""
^DD(50.621,"SB",50.62115,15)=""
^DD(50.621,"SB",50.6212,2)=""
^DD(50.621,"SB",50.6213,3)=""
^DD(50.621,"SB",50.6214,4)=""
^DD(50.621,"SB",50.6215,5)=""
^DD(50.621,"SB",50.6216,6)=""
^DD(50.621,"SB",50.6217,7)=""
^DD(50.621,"SB",50.6218,8)=""
^DD(50.621,"SB",50.6219,9)=""
^DD(50.621,"SB",50.631,10)=""
^DD(50.6211,0)="COMMON BRAND NAMES SUB-FIELD^^.01^1"
^DD(50.6211,0,"DT")="3020207"
^DD(50.6211,0,"NM","COMMON BRAND NAMES")=""
^DD(50.6211,0,"UP")="50.621"
^DD(50.6211,.01,0)="COMMON BRAND NAMES^W^^0;1^Q"
^DD(50.6211,.01,21,0)="^^1^1^3020207^"
^DD(50.6211,.01,21,1,0)="This field contains common brand names."
^DD(50.6211,.01,"DT")="3020207"
^DD(50.6211,"B","COMMON BRAND NAMES",.01)=""
^DD(50.6211,"GL",0,1,.01)=""
^DD(50.62111,0)="PRECAUTIONS SUB-FIELD^^.01^1"
^DD(50.62111,0,"DT")="3020207"
^DD(50.62111,0,"NM","PRECAUTIONS")=""
^DD(50.62111,0,"UP")="50.621"
^DD(50.62111,.01,0)="PRECAUTIONS^W^^0;1^Q"
^DD(50.62111,.01,21,0)="^^1^1^3020207^"
^DD(50.62111,.01,21,1,0)="This field contains precautions information."
^DD(50.62111,.01,"DT")="3020207"
^DD(50.62111,"B","PRECAUTIONS",.01)=""
^DD(50.62111,"GL",0,1,.01)=""
^DD(50.62112,0)="STORAGE SUB-FIELD^^.01^1"
^DD(50.62112,0,"DT")="3020207"
^DD(50.62112,0,"NM","STORAGE")=""
^DD(50.62112,0,"UP")="50.621"
^DD(50.62112,.01,0)="STORAGE^W^^0;1^Q"
^DD(50.62112,.01,21,0)="^^1^1^3020207^"
^DD(50.62112,.01,21,1,0)="This field contains storage information."
^DD(50.62112,.01,"DT")="3020207"
^DD(50.62112,"B","STORAGE",.01)=""
^DD(50.62112,"GL",0,1,.01)=""
^DD(50.62113,0)="MEDIC ALERT SUB-FIELD^^.01^1"
^DD(50.62113,0,"DT")="3020207"
^DD(50.62113,0,"NM","MEDIC ALERT")=""
^DD(50.62113,0,"UP")="50.621"
^DD(50.62113,.01,0)="MEDIC ALERT^W^^0;1^Q"
^DD(50.62113,.01,21,0)="^^1^1^3020207^"
^DD(50.62113,.01,21,1,0)="This field contains medic alert information."
^DD(50.62113,.01,"DT")="3020207"
^DD(50.62113,"B","MEDIC ALERT",.01)=""
^DD(50.62113,"GL",0,1,.01)=""
^DD(50.62114,0)="NOTES SUB-FIELD^^.01^1"
^DD(50.62114,0,"DT")="3020207"
^DD(50.62114,0,"NM","NOTES")=""
^DD(50.62114,0,"UP")="50.621"
^DD(50.62114,.01,0)="NOTES^W^^0;1^Q"
^DD(50.62114,.01,21,0)="^^1^1^3020207^"
^DD(50.62114,.01,21,1,0)="This field contains notes information."
^DD(50.62114,.01,"DT")="3020207"
^DD(50.62114,"B","NOTES",.01)=""
^DD(50.62114,"GL",0,1,.01)=""
^DD(50.62115,0)="DISCLAIMER SUB-FIELD^^.01^1"
^DD(50.62115,0,"DT")="3020207"
^DD(50.62115,0,"NM","DISCLAIMER")=""
^DD(50.62115,0,"UP")="50.621"
^DD(50.62115,.01,0)="DISCLAIMER^W^^0;1^Q"
^DD(50.62115,.01,21,0)="^^1^1^3020207^"
^DD(50.62115,.01,21,1,0)="This field contains disclaimer information."
^DD(50.62115,.01,"DT")="3020207"
^DD(50.62115,"B","DISCLAIMER",.01)=""
^DD(50.62115,"GL",0,1,.01)=""
^DD(50.6212,0)="BLANK LINE SUB-FIELD^^.01^1"
^DD(50.6212,0,"DT")="3020207"
^DD(50.6212,0,"NM","BLANK LINE")=""
^DD(50.6212,0,"UP")="50.621"
^DD(50.6212,.01,0)="BLANK LINE^W^^0;1^Q"
^DD(50.6212,.01,21,0)="^^1^1^3020207^"
^DD(50.6212,.01,21,1,0)="This field contains a blank line as a text separator."
^DD(50.6212,.01,"DT")="3020207"
^DD(50.6212,"B","BLANK LINE",.01)=""
^DD(50.6212,"GL",0,1,.01)=""
^DD(50.6213,0)="PHONETICS SUB-FIELD^^.01^1"
^DD(50.6213,0,"DT")="3020207"
^DD(50.6213,0,"NM","PHONETICS")=""
^DD(50.6213,0,"UP")="50.621"
^DD(50.6213,.01,0)="PHONETICS^W^^0;1^Q"
^DD(50.6213,.01,21,0)="^^1^1^3020207^"
^DD(50.6213,.01,21,1,0)="This field contain phonetic pronunciations."
^DD(50.6213,.01,"DT")="3020207"
^DD(50.6213,"B","PHONETICS",.01)=""
^DD(50.6213,"GL",0,1,.01)=""
^DD(50.6214,0)="HOW TO TAKE SUB-FIELD^^.01^1"
^DD(50.6214,0,"DT")="3020207"
^DD(50.6214,0,"NM","HOW TO TAKE")=""
^DD(50.6214,0,"UP")="50.621"
^DD(50.6214,.01,0)="HOW TO TAKE^W^^0;1^Q"
^DD(50.6214,.01,21,0)="^^1^1^3020207^"
^DD(50.6214,.01,21,1,0)="This field contains how to take information."
^DD(50.6214,.01,"DT")="3020207"
^DD(50.6214,"B","HOW TO TAKE",.01)=""
^DD(50.6214,"GL",0,1,.01)=""
^DD(50.6215,0)="USES SUB-FIELD^^.01^1"
^DD(50.6215,0,"DT")="3020207"
^DD(50.6215,0,"NM","USES")=""
^DD(50.6215,0,"UP")="50.621"
^DD(50.6215,.01,0)="USES^W^^0;1^Q"
^DD(50.6215,.01,21,0)="^^1^1^3020207^"
^DD(50.6215,.01,21,1,0)="This field contains Uses information."
^DD(50.6215,.01,"DT")="3020207"
^DD(50.6215,"B","USES",.01)=""
^DD(50.6215,"GL",0,1,.01)=""
^DD(50.6216,0)="SIDE EFFECTS SUB-FIELD^^.01^1"
^DD(50.6216,0,"DT")="3020207"
^DD(50.6216,0,"NM","SIDE EFFECTS")=""
^DD(50.6216,0,"UP")="50.621"
^DD(50.6216,.01,0)="SIDE EFFECTS^W^^0;1^Q"
^DD(50.6216,.01,21,0)="^^1^1^3020207^"
^DD(50.6216,.01,21,1,0)="This field contains side effects information."
^DD(50.6216,.01,"DT")="3020207"
^DD(50.6216,"B","SIDE EFFECTS",.01)=""
^DD(50.6216,"GL",0,1,.01)=""
^DD(50.6217,0)="WARNINGS SUB-FIELD^^.01^1"
^DD(50.6217,0,"DT")="3020207"
^DD(50.6217,0,"NM","WARNINGS")=""
^DD(50.6217,0,"UP")="50.621"
^DD(50.6217,.01,0)="WARNINGS^W^^0;1^Q"
^DD(50.6217,.01,21,0)="^^1^1^3020207^"
^DD(50.6217,.01,21,1,0)="This field contains warnings information."
^DD(50.6217,.01,"DT")="3020207"
^DD(50.6217,"B","WARNINGS",.01)=""
^DD(50.6217,"GL",0,1,.01)=""
^DD(50.6218,0)="OVERDOSE SUB-FIELD^^.01^1"
^DD(50.6218,0,"DT")="3020207"
^DD(50.6218,0,"NM","OVERDOSE")=""
^DD(50.6218,0,"UP")="50.621"
^DD(50.6218,.01,0)="OVERDOSE^W^^0;1^Q"
^DD(50.6218,.01,21,0)="^^1^1^3020207^"
^DD(50.6218,.01,21,1,0)="This field contains overdose information."
^DD(50.6218,.01,"DT")="3020207"
^DD(50.6218,"B","OVERDOSE",.01)=""
^DD(50.6218,"GL",0,1,.01)=""
^DD(50.6219,0)="MISSED DOSE SUB-FIELD^^.01^1"
^DD(50.6219,0,"DT")="3020207"
^DD(50.6219,0,"NM","MISSED DOSE")=""
^DD(50.6219,0,"UP")="50.621"
^DD(50.6219,.01,0)="MISSED DOSE^W^^0;1^Q"
^DD(50.6219,.01,21,0)="^^1^1^3020207^"
^DD(50.6219,.01,21,1,0)="This field contains missed dose information."
^DD(50.6219,.01,"DT")="3020207"
^DD(50.6219,"B","MISSED DOSE",.01)=""
^DD(50.6219,"GL",0,1,.01)=""
^DD(50.622,0)="FIELD^^15^16"
^DD(50.622,0,"DDA")="N"
^DD(50.622,0,"IX","B",50.622,.01)=""
^DD(50.622,0,"NM","PMI-SPANISH")=""
^DD(50.622,0,"VR")="4.0"
^DD(50.622,0,"VRPK")="PSN"
^DD(50.622,.01,0)="TITLE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(50.622,.01,1,0)="^.1"
^DD(50.622,.01,1,1,0)="50.622^B"
^DD(50.622,.01,1,1,1)="S ^PS(50.622,""B"",$E(X,1,30),DA)="""""
^DD(50.622,.01,1,1,2)="K ^PS(50.622,""B"",$E(X,1,30),DA)"
^DD(50.622,.01,3)="Answer must be 3-30 characters in length."
^DD(50.622,.01,8.5)="^"
^DD(50.622,.01,9)="^"
^DD(50.622,.01,"DT")="3020207"
^DD(50.622,1,0)="COMMON BRAND NAMES^50.6221^^C;0"
^DD(50.622,1,8.5)="^"
^DD(50.622,1,9)="^"
^DD(50.622,2,0)="BLANK LINE^50.6222^^B;0"
^DD(50.622,2,8.5)="^"
^DD(50.622,2,9)="^"
^DD(50.622,3,0)="PHONETICS^50.6223^^F;0"
^DD(50.622,3,8.5)="^"
^DD(50.622,3,9)="^"
^DD(50.622,4,0)="HOW TO TAKE^50.6224^^H;0"
^DD(50.622,4,8.5)="^"
^DD(50.622,4,9)="^"
^DD(50.622,5,0)="USES^50.6225^^U;0"
^DD(50.622,5,8.5)="^"
^DD(50.622,5,9)="^"
^DD(50.622,6,0)="SIDE EFFECTS^50.6226^^S;0"
^DD(50.622,6,8.5)="^"
^DD(50.622,6,9)="^"
^DD(50.622,7,0)="WARNINGS^50.6227^^W;0"
^DD(50.622,7,8.5)="^"
^DD(50.622,7,9)="^"
^DD(50.622,8,0)="OVERDOSE^50.6228^^O;0"
^DD(50.622,8,8.5)="^"
^DD(50.622,8,9)="^"
^DD(50.622,9,0)="MISSED DOSE^50.6229^^D;0"
^DD(50.622,9,8.5)="^"
^DD(50.622,9,9)="^"
^DD(50.622,10,0)="DRUG INTERACTIONS^50.632^^I;0"
^DD(50.622,10,8.5)="^"
^DD(50.622,10,9)="^"
^DD(50.622,11,0)="PRECAUTIONS^50.62211^^P;0"
^DD(50.622,11,8.5)="^"
^DD(50.622,11,9)="^"
^DD(50.622,12,0)="STORAGE^50.62212^^R;0"
^DD(50.622,12,8.5)="^"
^DD(50.622,12,9)="^"
^DD(50.622,13,0)="MEDIC ALERT^50.62213^^M;0"
^DD(50.622,13,8.5)="^"
^DD(50.622,13,9)="^"
^DD(50.622,14,0)="NOTES^50.62214^^N;0"
^DD(50.622,14,8.5)="^"
^DD(50.622,14,9)="^"
^DD(50.622,15,0)="DISCLAIMER^50.62215^^Z;0"
^DD(50.622,15,8.5)="^"
^DD(50.622,15,9)="^"
^DD(50.622,"B","BLANK LINE",2)=""
^DD(50.622,"B","COMMON BRAND NAMES",1)=""
^DD(50.622,"B","DISCLAIMER",15)=""
^DD(50.622,"B","DRUG INTERACTIONS",10)=""
^DD(50.622,"B","HOW TO TAKE",4)=""
^DD(50.622,"B","MEDIC ALERT",13)=""
^DD(50.622,"B","MISSED DOSE",9)=""
^DD(50.622,"B","NOTES",14)=""
^DD(50.622,"B","OVERDOSE",8)=""
^DD(50.622,"B","PHONETICS",3)=""
^DD(50.622,"B","PRECAUTIONS",11)=""
^DD(50.622,"B","SIDE EFFECTS",6)=""
^DD(50.622,"B","STORAGE",12)=""
^DD(50.622,"B","TITLE",.01)=""
^DD(50.622,"B","USES",5)=""
^DD(50.622,"B","WARNINGS",7)=""
^DD(50.622,"GL",0,1,.01)=""
^DD(50.622,"GL","B",0,2)=""
^DD(50.622,"GL","C",0,1)=""
^DD(50.622,"GL","D",0,9)=""
^DD(50.622,"GL","F",0,3)=""
^DD(50.622,"GL","H",0,4)=""
^DD(50.622,"GL","I",0,10)=""
^DD(50.622,"GL","M",0,13)=""
^DD(50.622,"GL","N",0,14)=""
^DD(50.622,"GL","O",0,8)=""
^DD(50.622,"GL","P",0,11)=""
^DD(50.622,"GL","R",0,12)=""
^DD(50.622,"GL","S",0,6)=""
^DD(50.622,"GL","U",0,5)=""
^DD(50.622,"GL","W",0,7)=""
^DD(50.622,"GL","Z",0,15)=""
^DD(50.622,"IX",.01)=""
^DD(50.622,"RQ",.01)=""
^DD(50.622,"SB",50.6221,1)=""
^DD(50.622,"SB",50.62211,11)=""
^DD(50.622,"SB",50.62212,12)=""
^DD(50.622,"SB",50.62213,13)=""
^DD(50.622,"SB",50.62214,14)=""
^DD(50.622,"SB",50.62215,15)=""
^DD(50.622,"SB",50.6222,2)=""
^DD(50.622,"SB",50.6223,3)=""
^DD(50.622,"SB",50.6224,4)=""
^DD(50.622,"SB",50.6225,5)=""
^DD(50.622,"SB",50.6226,6)=""
^DD(50.622,"SB",50.6227,7)=""
^DD(50.622,"SB",50.6228,8)=""
^DD(50.622,"SB",50.6229,9)=""
^DD(50.622,"SB",50.632,10)=""
^DD(50.6221,0)="COMMON BRAND NAMES SUB-FIELD^^.01^1"
^DD(50.6221,0,"NM","COMMON BRAND NAMES")=""
^DD(50.6221,0,"UP")="50.622"
^DD(50.6221,.01,0)="COMMON BRAND NAMES^W^^0;1^Q"
^DD(50.6221,.01,21,0)="^^1^1^3020207^"
^DD(50.6221,.01,21,1,0)="This field contains common brand names."
^DD(50.6221,.01,"DT")="3020207"
^DD(50.6221,"B","COMMON BRAND NAMES",.01)=""
^DD(50.6221,"GL",0,1,.01)=""
^DD(50.62211,0)="PRECAUTIONS SUB-FIELD^^.01^1"
^DD(50.62211,0,"NM","PRECAUTIONS")=""
^DD(50.62211,0,"UP")="50.622"
^DD(50.62211,.01,0)="PRECAUTIONS^W^^0;1^Q"
^DD(50.62211,.01,21,0)="^^1^1^3020207^"
^DD(50.62211,.01,21,1,0)="This field contains precautions information."
^DD(50.62211,.01,"DT")="3020207"
^DD(50.62211,"B","PRECAUTIONS",.01)=""
^DD(50.62211,"GL",0,1,.01)=""
^DD(50.62212,0)="STORAGE SUB-FIELD^^.01^1"
^DD(50.62212,0,"NM","STORAGE")=""
^DD(50.62212,0,"UP")="50.622"
^DD(50.62212,.01,0)="STORAGE^W^^0;1^Q"
^DD(50.62212,.01,21,0)="^^1^1^3020207^"
^DD(50.62212,.01,21,1,0)="This field contains storage information."
^DD(50.62212,.01,"DT")="3020207"
^DD(50.62212,"B","STORAGE",.01)=""
^DD(50.62212,"GL",0,1,.01)=""
^DD(50.62213,0)="MEDIC ALERT SUB-FIELD^^.01^1"
^DD(50.62213,0,"NM","MEDIC ALERT")=""
^DD(50.62213,0,"UP")="50.622"
^DD(50.62213,.01,0)="MEDIC ALERT^W^^0;1^Q"
^DD(50.62213,.01,21,0)="^^1^1^3020207^"
^DD(50.62213,.01,21,1,0)="This field contains medic alert information."
^DD(50.62213,.01,"DT")="3020207"
^DD(50.62213,"B","MEDIC ALERT",.01)=""
^DD(50.62213,"GL",0,1,.01)=""
^DD(50.62214,0)="NOTES SUB-FIELD^^.01^1"
^DD(50.62214,0,"NM","NOTES")=""
^DD(50.62214,0,"UP")="50.622"
^DD(50.62214,.01,0)="NOTES^W^^0;1^Q"
^DD(50.62214,.01,21,0)="^^1^1^3020207^"
^DD(50.62214,.01,21,1,0)="This field contains notes information."
^DD(50.62214,.01,"DT")="3020207"
^DD(50.62214,"B","NOTES",.01)=""
^DD(50.62214,"GL",0,1,.01)=""
^DD(50.62215,0)="DISCLAIMER SUB-FIELD^^.01^1"
^DD(50.62215,0,"NM","DISCLAIMER")=""
^DD(50.62215,0,"UP")="50.622"
^DD(50.62215,.01,0)="DISCLAIMER^W^^0;1^Q"
^DD(50.62215,.01,21,0)="^^1^1^3020207^"
^DD(50.62215,.01,21,1,0)="This field contains disclaimer information."
^DD(50.62215,.01,"DT")="3020207"
^DD(50.62215,"B","DISCLAIMER",.01)=""
^DD(50.62215,"GL",0,1,.01)=""
^DD(50.6222,0)="BLANK LINE SUB-FIELD^^.01^1"
^DD(50.6222,0,"NM","BLANK LINE")=""
^DD(50.6222,0,"UP")="50.622"
^DD(50.6222,.01,0)="BLANK LINE^W^^0;1^Q"
^DD(50.6222,.01,21,0)="^^1^1^3020207^"
^DD(50.6222,.01,21,1,0)="This field contains a blank line as a text separator."
^DD(50.6222,.01,"DT")="3020207"
^DD(50.6222,"B","BLANK LINE",.01)=""
^DD(50.6222,"GL",0,1,.01)=""
^DD(50.6223,0)="PHONETICS SUB-FIELD^^.01^1"
^DD(50.6223,0,"NM","PHONETICS")=""
^DD(50.6223,0,"UP")="50.622"
^DD(50.6223,.01,0)="PHONETICS^W^^0;1^Q"
^DD(50.6223,.01,21,0)="^^1^1^3020207^"
^DD(50.6223,.01,21,1,0)="This field contain phonetic pronunciations."
^DD(50.6223,.01,"DT")="3020207"
^DD(50.6223,"B","PHONETICS",.01)=""
^DD(50.6223,"GL",0,1,.01)=""
^DD(50.6224,0)="HOW TO TAKE SUB-FIELD^^.01^1"
^DD(50.6224,0,"NM","HOW TO TAKE")=""
^DD(50.6224,0,"UP")="50.622"
^DD(50.6224,.01,0)="HOW TO TAKE^W^^0;1^Q"
^DD(50.6224,.01,21,0)="^^1^1^3020207^"
^DD(50.6224,.01,21,1,0)="This field contains how to take information."
^DD(50.6224,.01,"DT")="3020207"
^DD(50.6224,"B","HOW TO TAKE",.01)=""
^DD(50.6224,"GL",0,1,.01)=""
^DD(50.6225,0)="USES SUB-FIELD^^.01^1"
^DD(50.6225,0,"NM","USES")=""
^DD(50.6225,0,"UP")="50.622"
^DD(50.6225,.01,0)="USES^W^^0;1^Q"
^DD(50.6225,.01,21,0)="^^1^1^3020207^"
^DD(50.6225,.01,21,1,0)="This field contains Uses information."
^DD(50.6225,.01,"DT")="3020207"
^DD(50.6225,"B","USES",.01)=""
^DD(50.6225,"GL",0,1,.01)=""
^DD(50.6226,0)="SIDE EFFECTS SUB-FIELD^^.01^1"
^DD(50.6226,0,"NM","SIDE EFFECTS")=""
^DD(50.6226,0,"UP")="50.622"
^DD(50.6226,.01,0)="SIDE EFFECTS^W^^0;1^Q"
^DD(50.6226,.01,21,0)="^^1^1^3020207^"
^DD(50.6226,.01,21,1,0)="This field contains side effects information."
^DD(50.6226,.01,"DT")="3020207"
^DD(50.6226,"B","SIDE EFFECTS",.01)=""
^DD(50.6226,"GL",0,1,.01)=""
^DD(50.6227,0)="WARNINGS SUB-FIELD^^.01^1"
^DD(50.6227,0,"NM","WARNINGS")=""
^DD(50.6227,0,"UP")="50.622"
^DD(50.6227,.01,0)="WARNINGS^W^^0;1^Q"
^DD(50.6227,.01,21,0)="^^1^1^3020207^"
^DD(50.6227,.01,21,1,0)="This field contains warnings information."
^DD(50.6227,.01,"DT")="3020207"
^DD(50.6227,"B","WARNINGS",.01)=""
^DD(50.6227,"GL",0,1,.01)=""
^DD(50.6228,0)="OVERDOSE SUB-FIELD^^.01^1"
^DD(50.6228,0,"NM","OVERDOSE")=""
^DD(50.6228,0,"UP")="50.622"
^DD(50.6228,.01,0)="OVERDOSE^W^^0;1^Q"
^DD(50.6228,.01,21,0)="^^1^1^3020207^"
^DD(50.6228,.01,21,1,0)="This field contains overdose information."
^DD(50.6228,.01,"DT")="3020207"
^DD(50.6228,"B","OVERDOSE",.01)=""
^DD(50.6228,"GL",0,1,.01)=""
^DD(50.6229,0)="MISSED DOSE SUB-FIELD^^.01^1"
^DD(50.6229,0,"NM","MISSED DOSE")=""
^DD(50.6229,0,"UP")="50.622"
^DD(50.6229,.01,0)="MISSED DOSE^W^^0;1^Q"
^DD(50.6229,.01,21,0)="^^1^1^3020207^"
^DD(50.6229,.01,21,1,0)="This field contains missed dose information."
^DD(50.6229,.01,"DT")="3020207"
^DD(50.6229,"B","MISSED DOSE",.01)=""
^DD(50.6229,"GL",0,1,.01)=""
^DD(50.623,0)="FIELD^^1^2"
^DD(50.623,0,"DDA")="N"
^DD(50.623,0,"DT")="3020219"
^DD(50.623,0,"IX","B",50.623,.01)=""
^DD(50.623,0,"NM","PMI MAP-ENGLISH")=""
^DD(50.623,0,"VR")="4.0"
^DD(50.623,0,"VRPK")="PSN"
^DD(50.623,.01,0)="GCNSEQNO^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.623,.01,1,0)="^.1"
^DD(50.623,.01,1,1,0)="50.623^B"
^DD(50.623,.01,1,1,1)="S ^PS(50.623,""B"",$E(X,1,30),DA)="""""
^DD(50.623,.01,1,1,2)="K ^PS(50.623,""B"",$E(X,1,30),DA)"
^DD(50.623,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(50.623,.01,8.5)="^"
^DD(50.623,.01,9)="^"
^DD(50.623,.01,21,0)="^.001^1^1^3020326^^"
^DD(50.623,.01,21,1,0)="This field contains the GCNSEQNO."
^DD(50.623,.01,"DT")="3020326"
^DD(50.623,1,0)="ENGLISH PMI ENTRY^RNJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.623,1,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(50.623,1,8.5)="^"
^DD(50.623,1,9)="^"
^DD(50.623,1,21,0)="^^1^1^3020219^"
^DD(50.623,1,21,1,0)="This is the entry number in the PMI-ENGLISH file."
^DD(50.623,1,"DT")="3020219"
^DD(50.623,"B","ENGLISH PMI ENTRY",1)=""
^DD(50.623,"B","GCNSEQNO",.01)=""
^DD(50.623,"GL",0,1,.01)=""
^DD(50.623,"GL",0,2,1)=""
^DD(50.623,"IX",.01)=""
^DD(50.623,"RQ",.01)=""
^DD(50.623,"RQ",1)=""
^DD(50.624,0)="FIELD^^1^2"
^DD(50.624,0,"DDA")="N"
^DD(50.624,0,"IX","B",50.624,.01)=""
^DD(50.624,0,"NM","PMI MAP-SPANISH")=""
^DD(50.624,0,"VR")="4.0"
^DD(50.624,0,"VRPK")="PSN"
^DD(50.624,.01,0)="GCNSEQNO^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.624,.01,1,0)="^.1"
^DD(50.624,.01,1,1,0)="50.624^B"
^DD(50.624,.01,1,1,1)="S ^PS(50.624,""B"",$E(X,1,30),DA)="""""
^DD(50.624,.01,1,1,2)="K ^PS(50.624,""B"",$E(X,1,30),DA)"
^DD(50.624,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(50.624,.01,8.5)="^"
^DD(50.624,.01,9)="^"
^DD(50.624,.01,21,0)="^.001^1^1^3020326^^^"
^DD(50.624,.01,21,1,0)="This field contains the GCNSEQNO."
^DD(50.624,.01,"DT")="3020326"
^DD(50.624,1,0)="SPANISH PMI ENTRY^RNJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.624,1,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(50.624,1,8.5)="^"
^DD(50.624,1,9)="^"
^DD(50.624,1,21,0)="^.001^1^1^3020219^^"
^DD(50.624,1,21,1,0)="This is the entry number in the PMI-SPANISH file."
^DD(50.624,1,"DT")="3020219"
^DD(50.624,"B","GCNSEQNO",.01)=""
^DD(50.624,"B","SPANISH PMI ENTRY",1)=""
^DD(50.624,"GL",0,1,.01)=""
^DD(50.624,"GL",0,2,1)=""
^DD(50.624,"IX",.01)=""
^DD(50.624,"RQ",.01)=""
^DD(50.624,"RQ",1)=""
^DD(50.625,0)="FIELD^^2^3"
^DD(50.625,0,"DDA")="N"
^DD(50.625,0,"DT")="3020213"
^DD(50.625,0,"IX","B",50.625,.01)=""
^DD(50.625,0,"NM","WARNING LABEL-ENGLISH")=""
^DD(50.625,0,"VR")="4.0"
^DD(50.625,0,"VRPK")="PSN"
^DD(50.625,.01,0)="NUMBER^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.625,.01,1,0)="^.1"
^DD(50.625,.01,1,1,0)="50.625^B"
^DD(50.625,.01,1,1,1)="S ^PS(50.625,""B"",$E(X,1,30),DA)="""""
^DD(50.625,.01,1,1,2)="K ^PS(50.625,""B"",$E(X,1,30),DA)"
^DD(50.625,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(50.625,.01,8.5)="^"
^DD(50.625,.01,9)="^"
^DD(50.625,.01,21,0)="^.001^1^1^3020213^^"
^DD(50.625,.01,21,1,0)="This field contains the Record number."
^DD(50.625,.01,"DT")="3020213"
^DD(50.625,1,0)="WARNING LABEL TEXT^50.6251^^1;0"
^DD(50.625,1,8.5)="^"
^DD(50.625,1,9)="^"
^DD(50.625,2,0)="SPECIFIC TO GENDER^S^F:FEMALE;M:MALE;^2;1^Q"
^DD(50.625,2,3)="""F"" MEANS THIS WARNING APPLIES ONLY TO FEMALES ""M"" - MALES"
^DD(50.625,2,21,0)="^^3^3^3040525^^"
^DD(50.625,2,21,1,0)="If this warning is applicable to only one sex, its value will be ""F"" for "
^DD(50.625,2,21,2,0)="female or ""M"" for male. This field will be populated during data updates "
^DD(50.625,2,21,3,0)="from First Data Bank for each warning that is gender-specific."
^DD(50.625,2,23,0)="^^3^3^3040525^^"
^DD(50.625,2,23,1,0)="This field indicates this warning is specific to one gender. It will "
^DD(50.625,2,23,2,0)="contain an ""F"" if this warning only applies for females, and ""M"" if it "
^DD(50.625,2,23,3,0)="only applies for males."
^DD(50.625,2,"DT")="3040525"
^DD(50.625,"B","NUMBER",.01)=""
^DD(50.625,"B","SPECIFIC TO GENDER",2)=""
^DD(50.625,"B","WARNING LABEL TEXT",1)=""
^DD(50.625,"GL",0,1,.01)=""
^DD(50.625,"GL",1,0,1)=""
^DD(50.625,"GL",2,1,2)=""
^DD(50.625,"IX",.01)=""
^DD(50.625,"RQ",.01)=""
^DD(50.625,"SB",50.6251,1)=""
^DD(50.6251,0)="WARNING LABEL TEXT SUB-FIELD^^.01^1"
^DD(50.6251,0,"DT")="3020213"
^DD(50.6251,0,"NM","WARNING LABEL TEXT")=""
^DD(50.6251,0,"UP")="50.625"
^DD(50.6251,.01,0)="WARNING LABEL TEXT^W^^0;1^Q"
^DD(50.6251,.01,21,0)="^^1^1^3020213^"
^DD(50.6251,.01,21,1,0)="This field contains English Warning Label text."
^DD(50.6251,.01,"DT")="3020213"
^DD(50.6251,"B","WARNING LABEL TEXT",.01)=""
^DD(50.6251,"GL",0,1,.01)=""
^DD(50.626,0)="FIELD^^2^3"
^DD(50.626,0,"DDA")="N"
^DD(50.626,0,"DT")="3020213"
^DD(50.626,0,"IX","B",50.626,.01)=""
^DD(50.626,0,"NM","WARNING LABEL-SPANISH")=""
^DD(50.626,0,"VR")="4.0"
^DD(50.626,0,"VRPK")="PSN"
^DD(50.626,.01,0)="NUMBER^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.626,.01,1,0)="^.1"
^DD(50.626,.01,1,1,0)="50.626^B"
^DD(50.626,.01,1,1,1)="S ^PS(50.626,""B"",$E(X,1,30),DA)="""""
^DD(50.626,.01,1,1,2)="K ^PS(50.626,""B"",$E(X,1,30),DA)"
^DD(50.626,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(50.626,.01,8.5)="^"
^DD(50.626,.01,9)="^"
^DD(50.626,.01,21,0)="^.001^1^1^3020213^^"
^DD(50.626,.01,21,1,0)="This field contains the Record number."
^DD(50.626,.01,"DT")="3020213"
^DD(50.626,1,0)="SPANISH WARNING LABEL TEXT^50.6261^^1;0"
^DD(50.626,1,8.5)="^"
^DD(50.626,1,9)="^"
^DD(50.626,2,0)="SPECIFIC TO GENDER^S^F:FEMALE;M:MALE;^2;1^Q"
^DD(50.626,2,3)="""F"" MEANS THIS WARNING APPLIES ONLY TO FEMALES ""M"" - MALES"
^DD(50.626,2,21,0)="^^3^3^3040208^"
^DD(50.626,2,21,1,0)="If this warning is applicable to only one sex, its value will be ""F"" for "
^DD(50.626,2,21,2,0)="female or ""M"" for male. This field will be populated during data updates "
^DD(50.626,2,21,3,0)="from First Data Bank for each warning that is gender-specific."
^DD(50.626,2,23,0)="^^3^3^3040208^"
^DD(50.626,2,23,1,0)="This field indicates this warning is specific to one gender. It will "
^DD(50.626,2,23,2,0)="contain an ""F"" if this warning only applies for females or ""M"" if it only "
^DD(50.626,2,23,3,0)="applies for males."
^DD(50.626,2,"DT")="3040208"
^DD(50.626,"B","NUMBER",.01)=""
^DD(50.626,"B","SPANISH WARNING LABEL TEXT",1)=""
^DD(50.626,"B","SPECIFIC TO GENDER",2)=""
^DD(50.626,"GL",0,1,.01)=""
^DD(50.626,"GL",1,0,1)=""
^DD(50.626,"GL",2,1,2)=""
^DD(50.626,"IX",.01)=""
^DD(50.626,"RQ",.01)=""
^DD(50.626,"SB",50.6261,1)=""
^DD(50.6261,0)="SPANISH WARNING LABEL TEXT SUB-FIELD^^.01^1"
^DD(50.6261,0,"DT")="3020213"
^DD(50.6261,0,"NM","SPANISH WARNING LABEL TEXT")=""
^DD(50.6261,0,"UP")="50.626"
^DD(50.6261,.01,0)="SPANISH WARNING LABEL TEXT^W^^0;1^Q"
^DD(50.6261,.01,21,0)="^^1^1^3020213^"
^DD(50.6261,.01,21,1,0)="This field contains Spanish Warning Label text."
^DD(50.6261,.01,"DT")="3020213"
^DD(50.6261,"B","SPANISH WARNING LABEL TEXT",.01)=""
^DD(50.6261,"GL",0,1,.01)=""
^DD(50.627,0)="FIELD^^2^3"
^DD(50.627,0,"DDA")="N"
^DD(50.627,0,"DT")="3020213"
^DD(50.627,0,"IX","B",50.627,.01)=""
^DD(50.627,0,"NM","WARNING LABEL MAP")=""
^DD(50.627,0,"VR")="4.0"
^DD(50.627,0,"VRPK")="PSN"
^DD(50.627,.01,0)="GCNSEQNO^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.627,.01,1,0)="^.1"
^DD(50.627,.01,1,1,0)="50.627^B"
^DD(50.627,.01,1,1,1)="S ^PS(50.627,""B"",$E(X,1,30),DA)="""""
^DD(50.627,.01,1,1,2)="K ^PS(50.627,""B"",$E(X,1,30),DA)"
^DD(50.627,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(50.627,.01,8.5)="^"
^DD(50.627,.01,9)="^"
^DD(50.627,.01,21,0)="^.001^1^1^3020326^^^"
^DD(50.627,.01,21,1,0)="This field contain the GCNSEQNO."
^DD(50.627,.01,"DT")="3020326"
^DD(50.627,1,0)="NUMBER^RNJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.627,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(50.627,1,8.5)="^"
^DD(50.627,1,9)="^"
^DD(50.627,1,21,0)="^.001^1^1^3020213^^"
^DD(50.627,1,21,1,0)="This field contains the English/Spanish Warning Label file entry."
^DD(50.627,1,"DT")="3020213"
^DD(50.627,2,0)="PRIORITY^RNJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.627,2,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(50.627,2,8.5)="^"
^DD(50.627,2,9)="^"
^DD(50.627,2,21,0)="^^1^1^3020213^"
^DD(50.627,2,21,1,0)="This field contains the priority number in which a Warning Label is to be printed or displayed."
^DD(50.627,2,"DT")="3020213"
^DD(50.627,"B","GCNSEQNO",.01)=""
^DD(50.627,"B","NUMBER",1)=""
^DD(50.627,"B","PRIORITY",2)=""
^DD(50.627,"GL",0,1,.01)=""
^DD(50.627,"GL",0,2,1)=""
^DD(50.627,"GL",0,3,2)=""
^DD(50.627,"IX",.01)=""
^DD(50.627,"RQ",.01)=""
^DD(50.627,"RQ",1)=""
^DD(50.627,"RQ",2)=""
^DD(50.631,0)="DRUG INTERACTIONS SUB-FIELD^^.01^1"
^DD(50.631,0,"DT")="3020207"
^DD(50.631,0,"NM","DRUG INTERACTIONS")=""
^DD(50.631,0,"UP")="50.621"
^DD(50.631,.01,0)="DRUG INTERACTIONS^W^^0;1^Q"
^DD(50.631,.01,21,0)="^^1^1^3020207^"
^DD(50.631,.01,21,1,0)="This field contains drug interaction information."
^DD(50.631,.01,"DT")="3020207"
^DD(50.631,"B","DRUG INTERACTIONS",.01)=""
^DD(50.631,"GL",0,1,.01)=""
^DD(50.632,0)="DRUG INTERACTIONS SUB-FIELD^^.01^1"
^DD(50.632,0,"NM","DRUG INTERACTIONS")=""
^DD(50.632,0,"UP")="50.622"
^DD(50.632,.01,0)="DRUG INTERACTIONS^W^^0;1^Q"
^DD(50.632,.01,21,0)="^^1^1^3020207^"
^DD(50.632,.01,21,1,0)="This field contains drug interaction information."
^DD(50.632,.01,"DT")="3020207"
^DD(50.632,"B","DRUG INTERACTIONS",.01)=""
^DD(50.632,"GL",0,1,.01)=""
^DD(50.64,0)="FIELD^^1^2"
^DD(50.64,0,"DDA")="N"
^DD(50.64,0,"DT")="2980424"
^DD(50.64,0,"IX","B",50.64,.01)=""
^DD(50.64,0,"NM","VA DISPENSE UNIT")=""
^DD(50.64,0,"PT",50.68,8)=""
^DD(50.64,0,"VR")="4.0"
^DD(50.64,0,"VRPK")="PSN"
^DD(50.64,.01,0)="NAME^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(50.64,.01,1,0)="^.1"
^DD(50.64,.01,1,1,0)="50.64^B"
^DD(50.64,.01,1,1,1)="S ^PSNDF(50.64,""B"",$E(X,1,30),DA)="""""
^DD(50.64,.01,1,1,2)="K ^PSNDF(50.64,""B"",$E(X,1,30),DA)"
^DD(50.64,.01,3)="Answer must be 1-10 characters in length."
^DD(50.64,.01,21,0)="^^1^1^2980424^"
^DD(50.64,.01,21,1,0)="This is the VA Dispense Unit name."
^DD(50.64,.01,"DT")="2980424"
^DD(50.64,1,0)="INACTIVATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.64,1,21,0)="^^1^1^2980424^"
^DD(50.64,1,21,1,0)="This is the date when this unit was inactivated."
^DD(50.64,1,"DT")="2980424"
^DD(50.64,"B","INACTIVATION DATE",1)=""
^DD(50.64,"B","NAME",.01)=""
^DD(50.64,"GL",0,1,.01)=""
^DD(50.64,"GL",0,2,1)=""
^DD(50.64,"IX",.01)=""
^DD(50.64,"RQ",.01)=""
^DD(50.67,0)="FIELD^^12^13"
^DD(50.67,0,"DDA")="N"
^DD(50.67,0,"DT")="2980604"
^DD(50.67,0,"IX","ANDC",50.67,5)=""
^DD(50.67,0,"IX","NDC",50.67,1)=""
^DD(50.67,0,"IX","T",50.67,4)=""
^DD(50.67,0,"IX","UPN",50.67,2)=""
^DD(50.67,0,"NM","NDC/UPN")=""
^DD(50.67,0,"VR")="4.0"
^DD(50.67,0,"VRPK")="PSN"
^DD(50.67,.01,0)="SEQUENCE NUMBER^RNJ9,0aX^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(50.67,.01,1,0)="^.1^^0"
^DD(50.67,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(50.67,.01,8.5)="^"
^DD(50.67,.01,9)="^"
^DD(50.67,.01,"AUDIT")="y"
^DD(50.67,.01,"DT")="2980604"
^DD(50.67,1,0)="NDC^Fa^^0;2^K:$L(X)>12!($L(X)<12) X"
^DD(50.67,1,1,0)="^.1"
^DD(50.67,1,1,1,0)="50.67^NDC"
^DD(50.67,1,1,1,1)="S ^PSNDF(50.67,""NDC"",$E(X,1,30),DA)="""""
^DD(50.67,1,1,1,2)="K ^PSNDF(50.67,""NDC"",$E(X,1,30),DA)"
^DD(50.67,1,1,1,"%D",0)="^^1^1^2980604^^"
^DD(50.67,1,1,1,"%D",1,0)="Regular cross reference for lookup."
^DD(50.67,1,1,1,"DT")="2980516"
^DD(50.67,1,3)="Answer must be 12 characters in length."
^DD(50.67,1,8.5)="^"
^DD(50.67,1,9)="^"
^DD(50.67,1,21,0)="^^1^1^2980501^^"
^DD(50.67,1,21,1,0)="This is the 12 character NDC (National Drug Code) for this item."
^DD(50.67,1,"AUDIT")="y"
^DD(50.67,1,"DT")="2980516"
^DD(50.67,2,0)="UPN^Fa^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(50.67,2,1,0)="^.1"
^DD(50.67,2,1,1,0)="50.67^UPN"
^DD(50.67,2,1,1,1)="S ^PSNDF(50.67,""UPN"",$E(X,1,30),DA)="""""
^DD(50.67,2,1,1,2)="K ^PSNDF(50.67,""UPN"",$E(X,1,30),DA)"
^DD(50.67,2,1,1,"%D",0)="^^1^1^2980604^^"
^DD(50.67,2,1,1,"%D",1,0)="Regular cross reference for lookup."
^DD(50.67,2,1,1,"DT")="2980516"
^DD(50.67,2,3)="Answer must be 1-40 characters in length."
^DD(50.67,2,8.5)="^"
^DD(50.67,2,9)="^"
^DD(50.67,2,21,0)="^^1^1^2980706^^^"
^DD(50.67,2,21,1,0)="This is the UPN (Universal Product Number) for this item."
^DD(50.67,2,"AUDIT")="y"
^DD(50.67,2,"DT")="2980604"
^DD(50.67,3,0)="MANUFACTURER^P55.95'a^PS(55.95,^0;4^Q"
^DD(50.67,3,8.5)="^"
^DD(50.67,3,9)="^"
^DD(50.67,3,21,0)="^^1^1^2990616^^"
^DD(50.67,3,21,1,0)="This is the manufacturer of this item."
^DD(50.67,3,"AUDIT")="y"
^DD(50.67,3,"DT")="2990616"
^DD(50.67,4,0)="TRADE NAME^Fa^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(50.67,4,1,0)="^.1"
^DD(50.67,4,1,1,0)="50.67^T"
^DD(50.67,4,1,1,1)="S ^PSNDF(50.67,""T"",X,DA)="""""
^DD(50.67,4,1,1,2)="K ^PSNDF(50.67,""T"",X,DA)"
^DD(50.67,4,1,1,"DT")="2980520"
^DD(50.67,4,3)="Answer must be 1-50 characters in length."
^DD(50.67,4,8.5)="^"
^DD(50.67,4,9)="^"
^DD(50.67,4,21,0)="^^1^1^2980423^^"
^DD(50.67,4,21,1,0)="This is the trade name of this item."
^DD(50.67,4,"AUDIT")="y"
^DD(50.67,4,"DT")="2980520"
^DD(50.67,5,0)="VA PRODUCT NAME^P50.68'a^PSNDF(50.68,^0;6^Q"
^DD(50.67,5,1,0)="^.1"
^DD(50.67,5,1,1,0)="50.67^ANDC^MUMPS"
^DD(50.67,5,1,1,1)="S ^PSNDF(50.68,""ANDC"",X,DA)="""""
^DD(50.67,5,1,1,2)="K ^PSNDF(50.68,""ANDC"",X,DA)"
^DD(50.67,5,1,1,"%D",0)="^^2^2^2981014^^^^"
^DD(50.67,5,1,1,"%D",1,0)="This cross reference sets a cross reference in the VA PRODUCT file (#50.68)."
^DD(50.67,5,1,1,"%D",2,0)="In the form of: ^PSNDF(50.68,""ANDC"",VA PRODUCT file DA,NDC/UPN file DA)"
^DD(50.67,5,1,1,"DT")="2980428"
^DD(50.67,5,8.5)="^"
^DD(50.67,5,9)="^"
^DD(50.67,5,21,0)="^^1^1^2980423^"
^DD(50.67,5,21,1,0)="This is the VA Product associated with this item."
^DD(50.67,5,"AUDIT")="y"
^DD(50.67,5,"DT")="2980428"
^DD(50.67,6,0)="ROUTE OF ADMINISTRATION^50.676A^^1;0"
^DD(50.67,6,8.5)="^"
^DD(50.67,6,9)="^"
^DD(50.67,7,0)="INACTIVATION DATE^Da^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.67,7,8.5)="^"
^DD(50.67,7,9)="^"
^DD(50.67,7,21,0)="^^1^1^2981013^^^"
^DD(50.67,7,21,1,0)="This is the date when this item was made inactive."
^DD(50.67,7,23,0)="^^2^2^2981013^^^^"
^DD(50.67,7,23,1,0)="This field will be triggered by an entry of an inactivation date for"
^DD(50.67,7,23,2,0)="the corresponding VA product."
^DD(50.67,7,"AUDIT")="y"
^DD(50.67,7,"DT")="2980423"
^DD(50.67,8,0)="PACKAGE SIZE^P50.609'a^PS(50.609,^0;8^Q"
^DD(50.67,8,8.5)="^"
^DD(50.67,8,9)="^"
^DD(50.67,8,21,0)="^^1^1^2980423^"
^DD(50.67,8,21,1,0)="This is the package size."
^DD(50.67,8,"AUDIT")="y"
^DD(50.67,8,"DT")="2980423"
^DD(50.67,9,0)="PACKAGE TYPE^P50.608'a^PS(50.608,^0;9^Q"
^DD(50.67,9,8.5)="^"
^DD(50.67,9,9)="^"
^DD(50.67,9,21,0)="^^1^1^2980423^"
^DD(50.67,9,21,1,0)="This is the package type."
^DD(50.67,9,"AUDIT")="y"
^DD(50.67,9,"DT")="2980423"
^DD(50.67,10,0)="OTX/RX INDICATOR^Sa^O:Over the counter;R:Prescription;^0;10^Q"
^DD(50.67,10,8.5)="^"
^DD(50.67,10,9)="^"
^DD(50.67,10,"AUDIT")="y"
^DD(50.67,10,"DT")="2980423"
^DD(50.67,11,0)="PREVIOUS NDC^50.6711A^^2;0"
^DD(50.67,11,8.5)="^"
^DD(50.67,11,9)="^"
^DD(50.67,12,0)="PREVIOUS UPN^50.6712A^^3;0"
^DD(50.67,12,8.5)="^"
^DD(50.67,12,9)="^"
^DD(50.67,"AUDIT",.01)=""
^DD(50.67,"AUDIT",1)=""
^DD(50.67,"AUDIT",2)=""
^DD(50.67,"AUDIT",3)=""
^DD(50.67,"AUDIT",4)=""
^DD(50.67,"AUDIT",5)=""
^DD(50.67,"AUDIT",7)=""
^DD(50.67,"AUDIT",8)=""
^DD(50.67,"AUDIT",9)=""
^DD(50.67,"AUDIT",10)=""
^DD(50.67,"B","INACTIVATION DATE",7)=""
^DD(50.67,"B","MANUFACTURER",3)=""
^DD(50.67,"B","NDC",1)=""
^DD(50.67,"B","OTX/RX INDICATOR",10)=""
^DD(50.67,"B","PACKAGE SIZE",8)=""
^DD(50.67,"B","PACKAGE TYPE",9)=""
^DD(50.67,"B","PREVIOUS NDC",11)=""
^DD(50.67,"B","PREVIOUS UPN",12)=""
^DD(50.67,"B","ROUTE OF ADMINISTRATION",6)=""
^DD(50.67,"B","SEQUENCE NUMBER",.01)=""
^DD(50.67,"B","TRADE NAME",4)=""
^DD(50.67,"B","UPN",2)=""
^DD(50.67,"B","VA PRODUCT NAME",5)=""
^DD(50.67,"GL",0,1,.01)=""
^DD(50.67,"GL",0,2,1)=""
^DD(50.67,"GL",0,3,2)=""
^DD(50.67,"GL",0,4,3)=""
^DD(50.67,"GL",0,5,4)=""
^DD(50.67,"GL",0,6,5)=""
^DD(50.67,"GL",0,7,7)=""
^DD(50.67,"GL",0,8,8)=""
^DD(50.67,"GL",0,9,9)=""
^DD(50.67,"GL",0,10,10)=""
^DD(50.67,"GL",1,0,6)=""
^DD(50.67,"GL",2,0,11)=""
^DD(50.67,"GL",3,0,12)=""
^DD(50.67,"IX",1)=""
^DD(50.67,"IX",2)=""
^DD(50.67,"IX",4)=""
^DD(50.67,"IX",5)=""
^DD(50.67,"RQ",.01)=""
^DD(50.67,"SB",50.6711,11)=""
^DD(50.67,"SB",50.6712,12)=""
^DD(50.67,"SB",50.676,6)=""
^DD(50.6711,0)="PREVIOUS NDC SUB-FIELD^^.01^1"
^DD(50.6711,0,"DT")="2980423"
^DD(50.6711,0,"IX","B",50.6711,.01)=""
^DD(50.6711,0,"NM","PREVIOUS NDC")=""
^DD(50.6711,0,"UP")="50.67"
^DD(50.6711,.01,0)="PREVIOUS NDC^Fa^^0;1^K:$L(X)>12!($L(X)<1) X"
^DD(50.6711,.01,1,0)="^.1"
^DD(50.6711,.01,1,1,0)="50.6711^B"
^DD(50.6711,.01,1,1,1)="S ^PSNDF(50.67,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(50.6711,.01,1,1,2)="K ^PSNDF(50.67,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(50.6711,.01,3)="Answer must be 1-12 characters in length."
^DD(50.6711,.01,"AUDIT")="y"
^DD(50.6711,.01,"DT")="2980423"
^DD(50.6711,"AUDIT",.01)=""
^DD(50.6711,"B","PREVIOUS NDC",.01)=""
^DD(50.6711,"GL",0,1,.01)=""
^DD(50.6711,"IX",.01)=""
^DD(50.6712,0)="PREVIOUS UPN SUB-FIELD^^.01^1"
^DD(50.6712,0,"DT")="2980423"
^DD(50.6712,0,"IX","B",50.6712,.01)=""
^DD(50.6712,0,"NM","PREVIOUS UPN")=""
^DD(50.6712,0,"UP")="50.67"
^DD(50.6712,.01,0)="PREVIOUS UPN^Fa^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(50.6712,.01,1,0)="^.1"
^DD(50.6712,.01,1,1,0)="50.6712^B"
^DD(50.6712,.01,1,1,1)="S ^PSNDF(50.67,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(50.6712,.01,1,1,2)="K ^PSNDF(50.67,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(50.6712,.01,3)="Answer must be 1-40 characters in length."
^DD(50.6712,.01,"AUDIT")="y"
^DD(50.6712,.01,"DT")="2980423"
^DD(50.6712,"AUDIT",.01)=""
^DD(50.6712,"B","PREVIOUS UPN",.01)=""
^DD(50.6712,"GL",0,1,.01)=""
^DD(50.6712,"IX",.01)=""
^DD(50.676,0)="ROUTE OF ADMINISTRATION SUB-FIELD^^.01^1"
^DD(50.676,0,"DT")="2980423"
^DD(50.676,0,"NM","ROUTE OF ADMINISTRATION")=""
^DD(50.676,0,"UP")="50.67"
^DD(50.676,.01,0)="ROUTE OF ADMINISTRATION^FaX^^0;1^K:$L(X)>40!($L(X)<1) X Q:'$D(X)  S DIC=""^PS(51.2,"",DIC(0)=""QEM"" D ^DIC K:Y<0 X S:Y>0 X=$P(Y,""^"",2)"
^DD(50.676,.01,1,0)="^.1^^0"
^DD(50.676,.01,3)="Answer must be 1-40 characters in length."
^DD(50.676,.01,"AUDIT")="y"
^DD(50.676,.01,"DT")="2981106"
^DD(50.676,"AUDIT",.01)=""
^DD(50.676,"B","ROUTE OF ADMINISTRATION",.01)=""
^DD(50.676,"GL",0,1,.01)=""
^DD(50.68,0)="FIELD^^99.991^32"
^DD(50.68,0,"DDA")="N"
^DD(50.68,0,"DT")="3050511"
^DD(50.68,0,"IX","AC",50.68,21)=""
^DD(50.68,0,"IX","AD",50.68,.05)=""
^DD(50.68,0,"IX","ANDC",50.68,.01)=""
^DD(50.68,0,"IX","APRO",50.68,.05)=""
^DD(50.68,0,"IX","AVUID",50.68,99.99)=""
^DD(50.68,0,"IX","B",50.68,.01)=""
^DD(50.68,0,"IX","C",50.68,6)=""
^DD(50.68,0,"NM","VA PRODUCT")=""
^DD(50.68,0,"PT",50,22)=""
^DD(50.68,0,"PT",50.612,1)=""
^DD(50.68,0,"PT",50.67,5)=""
^DD(50.68,0,"VR")="4.0"
^DD(50.68,0,"VRPK")="PSN"
^DD(50.68,.01,0)="NAME^RFa^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(50.68,.01,1,0)="^.1^^-1"
^DD(50.68,.01,1,1,0)="50.68^B"
^DD(50.68,.01,1,1,1)="S ^PSNDF(50.68,""B"",$E(X,1,64),DA)="""""
^DD(50.68,.01,1,1,2)="K ^PSNDF(50.68,""B"",$E(X,1,64),DA)"
^DD(50.68,.01,1,2,0)="50.68^ANDC^MUMPS"
^DD(50.68,.01,1,2,1)="Q"
^DD(50.68,.01,1,2,2)="Q"
^DD(50.68,.01,1,2,"%D",0)="^^3^3^2981014^^^"
^DD(50.68,.01,1,2,"%D",1,0)="This cross reference is a place holder.  The cross reference is set from"
^DD(50.68,.01,1,2,"%D",2,0)="the VA PRODUCT NAME field (#5) of the NDC/UPN file (#50.67)."
^DD(50.68,.01,1,2,"%D",3,0)="In the form of: ^PSNDF(50.68,""ANDC"",VA PRODUCT file DA,NDC/UPN file DA)"
^DD(50.68,.01,1,2,"DT")="2980428"
^DD(50.68,.01,3)="Answer must be 3-64 characters in length."
^DD(50.68,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries Must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(50.68,.01,8.5)="^"
^DD(50.68,.01,9)="^"
^DD(50.68,.01,"AUDIT")="y"
^DD(50.68,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(50.68,.01,"DT")="3031119"
^DD(50.68,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(50.68,.05,0)="VA GENERIC NAME^P50.6'a^PSNDF(50.6,^0;2^Q"
^DD(50.68,.05,1,0)="^.1"
^DD(50.68,.05,1,1,0)="50.68^APRO^MUMPS"
^DD(50.68,.05,1,1,1)="S ^PSNDF(50.6,""APRO"",X,DA)="""""
^DD(50.68,.05,1,1,2)="K ^PSNDF(50.6,""APRO"",X,DA)"
^DD(50.68,.05,1,1,"%D",0)="^^1^1^2980423^^"
^DD(50.68,.05,1,1,"%D",1,0)="This cross reference set a cross reference in the VA GENERIC file (#50.6)."
^DD(50.68,.05,1,1,"%D",2,0)="In the form of: ^PSNDF(50.6,""APRO"",VA PRODUCT file DA,VA GENERIC file DA)"
^DD(50.68,.05,1,1,"DT")="2980423"
^DD(50.68,.05,1,2,0)="50.68^AD^MUMPS"
^DD(50.68,.05,1,2,1)="D ING2^PSNXREF"
^DD(50.68,.05,1,2,2)="D KING2^PSNXREF"
^DD(50.68,.05,1,2,"%D",0)="^^3^3^2981118^"
^DD(50.68,.05,1,2,"%D",1,0)="This cross reference updates the drug identifier multiple in the"
^DD(50.68,.05,1,2,"%D",2,0)="drug ingredients file and the APD cross reference in the drug"
^DD(50.68,.05,1,2,"%D",3,0)="interactions file."
^DD(50.68,.05,1,2,"DT")="2981118"
^DD(50.68,.05,8.5)="^"
^DD(50.68,.05,9)="^"
^DD(50.68,.05,21,0)="^^1^1^2980423^"
^DD(50.68,.05,21,1,0)="VA GENERIC NAME"
^DD(50.68,.05,"AUDIT")="y"
^DD(50.68,.05,"DT")="2981118"
^DD(50.68,1,0)="DOSAGE FORM^P50.606'a^PS(50.606,^0;3^Q"
^DD(50.68,1,8.5)="^"
^DD(50.68,1,9)="^"
^DD(50.68,1,21,0)="^^1^1^2980423^"
^DD(50.68,1,21,1,0)="This is the dose form."
^DD(50.68,1,"AUDIT")="y"
^DD(50.68,1,"DT")="2980423"
^DD(50.68,2,0)="STRENGTH^Fa^^0;4^K:$L(X)>45!($L(X)<1) X"
^DD(50.68,2,3)="Answer must be 1-45 characters in length."
^DD(50.68,2,8.5)="^"
^DD(50.68,2,9)="^"
^DD(50.68,2,21,0)="^^1^1^2980423^"
^DD(50.68,2,21,1,0)="This is the strength."
^DD(50.68,2,"AUDIT")="y"
^DD(50.68,2,"DT")="2980423"
^DD(50.68,3,0)="UNITS^P50.607'a^PS(50.607,^0;5^Q"
^DD(50.68,3,8.5)="^"
^DD(50.68,3,9)="^"
^DD(50.68,3,21,0)="^.001^1^1^3010620^^"
^DD(50.68,3,21,1,0)="This is the unit of measure."
^DD(50.68,3,"AUDIT")="y"
^DD(50.68,3,"DT")="2980423"
^DD(50.68,4,0)="NATIONAL FORMULARY NAME^Fa^^0;6^K:$L(X)>94!($L(X)<1) X"
^DD(50.68,4,1,0)="^.1^^0"
^DD(50.68,4,3)="Answer must be 1-94 characters in length."
^DD(50.68,4,8.5)="^"
^DD(50.68,4,9)="^"
^DD(50.68,4,21,0)="^.001^2^2^3030408^^"
^DD(50.68,4,21,1,0)="This is the National Formulary Name for this product.  In most cases"
^DD(50.68,4,21,2,0)="it will be comprised of the VA Generic Name and Dosage Form."
^DD(50.68,4,"AUDIT")="y"
^DD(50.68,4,"DT")="2980423"
^DD(50.68,5,0)="VA PRINT NAME^Fa^^1;1^K:$L(X)>40!($L(X)<1) X"
^DD(50.68,5,3)="Answer must be 1-40 characters in length."
^DD(50.68,5,8.5)="^"
^DD(50.68,5,9)="^"
^DD(50.68,5,21,0)="^^1^1^2980423^"
^DD(50.68,5,21,1,0)="This is the VA Print Name."
^DD(50.68,5,"AUDIT")="y"
^DD(50.68,5,"DT")="2980423"
^DD(50.68,6,0)="VA PRODUCT IDENTIFIER^Fa^^1;2^K:$L(X)>5!($L(X)<1) X"
^DD(50.68,6,1,0)="^.1"
^DD(50.68,6,1,1,0)="50.68^C"
^DD(50.68,6,1,1,1)="S ^PSNDF(50.68,""C"",$E(X,1,30),DA)="""""
^DD(50.68,6,1,1,2)="K ^PSNDF(50.68,""C"",$E(X,1,30),DA)"
^DD(50.68,6,1,1,"DT")="2980915"
^DD(50.68,6,3)="Answer must be 1-5 characters in length."
^DD(50.68,6,8.5)="^"
^DD(50.68,6,9)="^"
^DD(50.68,6,21,0)="^^1^1^2980423^"
^DD(50.68,6,21,1,0)="This is the VA Product Identifier."
^DD(50.68,6,"AUDIT")="y"
^DD(50.68,6,"DT")="2980915"
^DD(50.68,7,0)="TRANSMIT TO CMOP^Sa^1:YES;0:NO;^1;3^Q"
^DD(50.68,7,8.5)="^"
^DD(50.68,7,9)="^"
^DD(50.68,7,21,0)="^^1^1^2980423^"
^DD(50.68,7,21,1,0)="This flag is used for CMOP purposes."
^DD(50.68,7,"AUDIT")="y"
^DD(50.68,7,"DT")="2980423"
^DD(50.68,8,0)="VA DISPENSE UNIT^P50.64a^PSNDF(50.64,^1;4^Q"
^DD(50.68,8,3)=""
^DD(50.68,8,8.5)="^"
^DD(50.68,8,9)="^"
^DD(50.68,8,21,0)="^^1^1^2980605^^^"
^DD(50.68,8,21,1,0)="This is the VA Dispense Unit."
^DD(50.68,8,"AUDIT")="y"
^DD(50.68,8,"DT")="2980424"
^DD(50.68,11,0)="GCNSEQNO^NJ9,0^^1;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.68,11,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(50.68,11,8.5)="^"
^DD(50.68,11,9)="^"
^DD(50.68,11,21,0)="^.001^3^3^3020918^^^^"
^DD(50.68,11,21,1,0)="This contains the GCNSEQNO code, which relates to mapping PMIs and"
^DD(50.68,11,21,2,0)="Warning Labels. Entries in this field are accomplished by the NDF Data"
^DD(50.68,11,21,3,0)="Manager mapping functions and shall not be edited."
^DD(50.68,11,"AUDIT")="n"
^DD(50.68,11,"DT")="3020918"
^DD(50.68,12,0)="PREVIOUS GCNSEQNO^NJ9,0^^1;6^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.68,12,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(50.68,12,8.5)="^"
^DD(50.68,12,9)="^"
^DD(50.68,12,21,0)="^.001^3^3^3020910^^^^"
^DD(50.68,12,21,1,0)="This field contains the PREVIOUS GCNSEQNO code, which relates to mapping to"
^DD(50.68,12,21,2,0)="PMIs and Warning Labels. Entries in this field are accomplished by the NDF"
^DD(50.68,12,21,3,0)="Data Manager mapping functions and shall not be edited."
^DD(50.68,12,"AUDIT")="n"
^DD(50.68,12,"DT")="3020910"
^DD(50.68,13,0)="NDC LINK TO GCNSEQNO^F^^1;7^K:$L(X)>12!($L(X)<1) X"
^DD(50.68,13,3)="Answer must be 1-12 characters in length."
^DD(50.68,13,8.5)="^"
^DD(50.68,13,9)="^"
^DD(50.68,13,21,0)="^.001^3^3^3020910^^^"
^DD(50.68,13,21,1,0)="This field contains the NDC used to link to GCNSEQNO. Entries in this field"
^DD(50.68,13,21,2,0)="are accomplished by the NDF Data Manager mapping functions and shall not be"
^DD(50.68,13,21,3,0)="edited."
^DD(50.68,13,"AUDIT")="n"
^DD(50.68,13,"DT")="3020805"
^DD(50.68,14,0)="ACTIVE INGREDIENTS^50.6814P^^2;0"
^DD(50.68,14,8.5)="^"
^DD(50.68,14,9)="^"
^DD(50.68,15,0)="PRIMARY VA DRUG CLASS^P50.605'a^PS(50.605,^3;1^Q"
^DD(50.68,15,8.5)="^"
^DD(50.68,15,9)="^"
^DD(50.68,15,21,0)="^^1^1^2980424^"
^DD(50.68,15,21,1,0)="This is the primary VA classification for this product."
^DD(50.68,15,"AUDIT")="y"
^DD(50.68,15,"DT")="2980424"
^DD(50.68,16,0)="SECONDARY VA DRUG CLASS^50.6816P^^4;0"
^DD(50.68,16,8.5)="^"
^DD(50.68,16,9)="^"
^DD(50.68,17,0)="NATIONAL FORMULARY INDICATOR^Sa^1:YES;0:NO;^5;1^Q"
^DD(50.68,17,8.5)="^"
^DD(50.68,17,9)="^"
^DD(50.68,17,21,0)="^^1^1^2980730^^"
^DD(50.68,17,21,1,0)="This field denoted whether this product is on the National Formulary."
^DD(50.68,17,"AUDIT")="y"
^DD(50.68,17,"DT")="2980424"
^DD(50.68,18,0)="NATIONAL FORMULARY RESTRICTION^50.6818^^6;0"
^DD(50.68,18,8.5)="^"
^DD(50.68,18,9)="^"
^DD(50.68,19,0)="CS FEDERAL SCHEDULE^Sa^0:Unscheduled;1:Schedule I;2:Schedule II;2n:Schedule II Non-Narcotics;3:Schedule III;3n:Schedule III Non-Narcotics;4:Schedule IV;5:Schedule V;^7;1^Q"
^DD(50.68,19,8.5)="^"
^DD(50.68,19,9)="^"
^DD(50.68,19,21,0)="^.001^1^1^3020805^^^^"
^DD(50.68,19,21,1,0)="This is the Federal Schedule for controlled substances."
^DD(50.68,19,"AUDIT")="y"
^DD(50.68,19,"DT")="3020805"
^DD(50.68,20,0)="SINGLE/MULTI SOURCE PRODUCT^Sa^M:Multisource;S:Single source;^7;2^Q"
^DD(50.68,20,8.5)="^"
^DD(50.68,20,9)="^"
^DD(50.68,20,21,0)="^^2^2^2980424^^"
^DD(50.68,20,21,1,0)="This indicates whether the product is available from a single source"
^DD(50.68,20,21,2,0)="or from multiple sources."
^DD(50.68,20,"AUDIT")="y"
^DD(50.68,20,"DT")="2980424"
^DD(50.68,21,0)="INACTIVATION DATE^Da^^7;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.68,21,1,0)="^.1^^-1"
^DD(50.68,21,1,1,0)="50.68^AC^MUMPS"
^DD(50.68,21,1,1,1)="D PROD^PSNXREF"
^DD(50.68,21,1,1,2)="D KPROD^PSNXREF"
^DD(50.68,21,1,1,"%D",0)="^.101^3^3^3050302^^^^"
^DD(50.68,21,1,1,"%D",1,0)="This cross reference updates the inactivation date for all NDC/UPNs"
^DD(50.68,21,1,1,"%D",2,0)="associated with this product."
^DD(50.68,21,1,1,"%D",3,0)="In the form of: ^PSNDF(50.67,DA,0),""^"",7)"
^DD(50.68,21,1,1,"DT")="2980603"
^DD(50.68,21,8.5)="^"
^DD(50.68,21,9)="^"
^DD(50.68,21,21,0)="^.001^1^1^3050302^^"
^DD(50.68,21,21,1,0)="This is the date when this product was inactivated."
^DD(50.68,21,23,0)="^.001^3^3^3050302^^"
^DD(50.68,21,23,1,0)="This field may be triggered by the corresponding field in the"
^DD(50.68,21,23,2,0)="VA GENERIC file and will trigger the corresponding field in the"
^DD(50.68,21,23,3,0)="NDC/UPN file."
^DD(50.68,21,"AUDIT")="y"
^DD(50.68,21,"DT")="3050630"
^DD(50.68,23,0)="EXCLUDE DRG-DRG INTERACTION CK^Sa^1:YES;^8;1^Q"
^DD(50.68,23,3)="ANSWER 1 FOR ""YES"" OTHERWISE LEAVE BLANK."
^DD(50.68,23,8.5)="^"
^DD(50.68,23,9)="^"
^DD(50.68,23,21,0)="^.001^1^1^3030430^^"
^DD(50.68,23,21,1,0)="This field contains a flag which is set to 1 when no Drug-Drug Interactions are to be performed during Order Checking."
^DD(50.68,23,"AUDIT")="y"
^DD(50.68,23,"DT")="3030429"
^DD(50.68,25,0)="MAX SINGLE DOSE^NJ13,4a^^7;4^K:+X'=X!(X>10000000)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.68,25,3)="Type a Number between 0 and 10000000, 4 Decimal Digits"
^DD(50.68,25,8.5)="^"
^DD(50.68,25,9)="^"
^DD(50.68,25,21,0)="^^1^1^2981013^^^^"
^DD(50.68,25,21,1,0)="This is the maximum amount of the drug to be administered as a single dose."
^DD(50.68,25,"AUDIT")="y"
^DD(50.68,25,"DT")="2980424"
^DD(50.68,26,0)="MIN SINGLE DOSE^NJ13,4a^^7;5^K:+X'=X!(X>10000000)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.68,26,3)="Type a Number between 0 and 10000000, 4 Decimal Digits"
^DD(50.68,26,8.5)="^"
^DD(50.68,26,9)="^"
^DD(50.68,26,21,0)="^^1^1^2980424^"
^DD(50.68,26,21,1,0)="This is the minimum amount of the drug to be administered as a single dose."
^DD(50.68,26,"AUDIT")="y"
^DD(50.68,26,"DT")="2980424"
^DD(50.68,27,0)="MAX DAILY DOSE^NJ13,4a^^7;6^K:+X'=X!(X>10000000)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.68,27,3)="Type a Number between 0 and 10000000, 4 Decimal Digits"
^DD(50.68,27,8.5)="^"
^DD(50.68,27,9)="^"
^DD(50.68,27,21,0)="^^1^1^2980424^"
^DD(50.68,27,21,1,0)="This is the maximum amount of the drug to be administered daily."
^DD(50.68,27,"AUDIT")="y"
^DD(50.68,27,"DT")="2980424"
^DD(50.68,28,0)="MIN DAILY DOSE^NJ13,4a^^7;7^K:+X'=X!(X>10000000)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.68,28,3)="Type a Number between 0 and 10000000, 4 Decimal Digits"
^DD(50.68,28,8.5)="^"
^DD(50.68,28,9)="^"
^DD(50.68,28,21,0)="^^1^1^2980424^"
^DD(50.68,28,21,1,0)="This is  the minimum amount of the drug to be administered daily."
^DD(50.68,28,"AUDIT")="y"
^DD(50.68,28,"DT")="2980424"
^DD(50.68,29,0)="MAX CUMULATIVE DOSE^NJ13,4a^^7;8^K:+X'=X!(X>10000000)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.68,29,3)="Type a Number between 0 and 10000000, 4 Decimal Digits"
^DD(50.68,29,8.5)="^"
^DD(50.68,29,9)="^"
^DD(50.68,29,21,0)="^^1^1^2980424^"
^DD(50.68,29,21,1,0)="This is the maximum cumulative amount of the drug to be administered."
^DD(50.68,29,"AUDIT")="y"
^DD(50.68,29,"DT")="2980424"
^DD(50.68,30,0)="DSS NUMBER^NJ6,0a^^7;9^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.68,30,3)="Type a Number between 1 and 100000, 0 Decimal Digits"
^DD(50.68,30,8.5)="^"
^DD(50.68,30,9)="^"
^DD(50.68,30,21,0)="^^2^2^2980424^"
^DD(50.68,30,21,1,0)="Used to identify VA product entries sent to DSS,  This field holds"
^DD(50.68,30,21,2,0)="the original VA Product entry number used by DSS."
^DD(50.68,30,"AUDIT")="y"
^DD(50.68,30,"DT")="2980424"
^DD(50.68,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(50.68,99.98,1,0)="^.1^^0"
^DD(50.68,99.98,9)="^"
^DD(50.68,99.98,21,0)="^.001^1^1^3050511^^^^"
^DD(50.68,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a Term/Concept."
^DD(50.68,99.98,"DT")="3050511"
^DD(50.68,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(50.68,99.99,1,0)="^.1"
^DD(50.68,99.99,1,1,0)="50.68^AVUID"
^DD(50.68,99.99,1,1,1)="S ^PSNDF(50.68,""AVUID"",$E(X,1,30),DA)="""""
^DD(50.68,99.99,1,1,2)="K ^PSNDF(50.68,""AVUID"",$E(X,1,30),DA)"
^DD(50.68,99.99,1,1,3)="XXX--CAN'T BE ALTERED EXCEPT PROGRAMMER"
^DD(50.68,99.99,1,1,"%D",0)="^^1^1^3050228^"
^DD(50.68,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(50.68,99.99,1,1,"DT")="3050228"
^DD(50.68,99.99,3)="Answer must be 1-20 characters in length."
^DD(50.68,99.99,9)="^"
^DD(50.68,99.99,21,0)="^.001^1^1^3050511^^^"
^DD(50.68,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference terms VHA wide."
^DD(50.68,99.99,"DT")="3050511"
^DD(50.68,99.991,0)="EFFECTIVE DATE/TIME^50.6899DA^^TERMSTATUS;0"
^DD(50.68,99.991,21,0)="^.001^1^1^3050511^^"
^DD(50.68,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(50.68,2000,0)="SERVICE CODE^NJ6,0a^^PFS;1^K:+X'=X!(X>699999)!(X<600001)!(X?.E1"".""1N.N) X"
^DD(50.68,2000,3)="Type a Number between 600001 and 699999, 0 Decimal Digits"
^DD(50.68,2000,21,0)="^.001^2^2^3050614^^^^"
^DD(50.68,2000,21,1,0)="This field contains a Charge Description Master (CDM) Change Control board"
^DD(50.68,2000,21,2,0)="assigned Service Code. The value should be a number between 600001-699999."
^DD(50.68,2000,23,0)="^.001^8^8^3050614^^"
^DD(50.68,2000,23,1,0)="This field was introduced as part of the Patient Financial Services System"
^DD(50.68,2000,23,2,0)="(PFSS) project, to implement a new COTS billing system. It requires that"
^DD(50.68,2000,23,3,0)="every pharmacy item passed to the external billing system to have a"
^DD(50.68,2000,23,4,0)="Service Code assigned within the range 600001-699999. Pharmacy application"
^DD(50.68,2000,23,5,0)="will maintain a CDM/Service Code for every dispensed item. As an initial"
^DD(50.68,2000,23,6,0)="step this field was populated by taking the IEN from the VA PRODUCT file"
^DD(50.68,2000,23,7,0)="(#50.68), padding it with zeroes as needed and placing a ""6"" on the front"
^DD(50.68,2000,23,8,0)="to make up a six digit number."
^DD(50.68,2000,"AUDIT")="y"
^DD(50.68,2000,"DT")="3050614"
^DD(50.68,"AUDIT",.01)=""
^DD(50.68,"AUDIT",.05)=""
^DD(50.68,"AUDIT",1)=""
^DD(50.68,"AUDIT",2)=""
^DD(50.68,"AUDIT",3)=""
^DD(50.68,"AUDIT",4)=""
^DD(50.68,"AUDIT",5)=""
^DD(50.68,"AUDIT",6)=""
^DD(50.68,"AUDIT",7)=""
^DD(50.68,"AUDIT",8)=""
^DD(50.68,"AUDIT",15)=""
^DD(50.68,"AUDIT",17)=""
^DD(50.68,"AUDIT",19)=""
^DD(50.68,"AUDIT",20)=""
^DD(50.68,"AUDIT",21)=""
^DD(50.68,"AUDIT",23)=""
^DD(50.68,"AUDIT",25)=""
^DD(50.68,"AUDIT",26)=""
^DD(50.68,"AUDIT",27)=""
^DD(50.68,"AUDIT",28)=""
^DD(50.68,"AUDIT",29)=""
^DD(50.68,"AUDIT",30)=""
^DD(50.68,"AUDIT",2000)=""
^DD(50.68,"B","ACTIVE INGREDIENTS",14)=""
^DD(50.68,"B","CS FEDERAL SCHEDULE",19)=""
^DD(50.68,"B","DOSAGE FORM",1)=""
^DD(50.68,"B","DSS NUMBER",30)=""
^DD(50.68,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(50.68,"B","EXCLUDE DRG-DRG INTERACTION CK",23)=""
^DD(50.68,"B","GCNSEQNO",11)=""
^DD(50.68,"B","INACTIVATION DATE",21)=""
^DD(50.68,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(50.68,"B","MAX CUMULATIVE DOSE",29)=""
^DD(50.68,"B","MAX DAILY DOSE",27)=""
^DD(50.68,"B","MAX SINGLE DOSE",25)=""
^DD(50.68,"B","MIN DAILY DOSE",28)=""
^DD(50.68,"B","MIN SINGLE DOSE",26)=""
^DD(50.68,"B","NAME",.01)=""
^DD(50.68,"B","NATIONAL FORMULARY INDICATOR",17)=""
^DD(50.68,"B","NATIONAL FORMULARY NAME",4)=""
^DD(50.68,"B","NATIONAL FORMULARY RESTRICTION",18)=""
^DD(50.68,"B","NDC LINK TO GCNSEQNO",13)=""
^DD(50.68,"B","PREVIOUS GCNSEQNO",12)=""
^DD(50.68,"B","PRIMARY VA DRUG CLASS",15)=""
^DD(50.68,"B","SECONDARY VA DRUG CLASS",16)=""
^DD(50.68,"B","SERVICE CODE",2000)=""
^DD(50.68,"B","SINGLE/MULTI SOURCE PRODUCT",20)=""
^DD(50.68,"B","STRENGTH",2)=""
^DD(50.68,"B","TRANSMIT TO CMOP",7)=""
^DD(50.68,"B","UNITS",3)=""
^DD(50.68,"B","VA DISPENSE UNIT",8)=""
^DD(50.68,"B","VA GENERIC NAME",.05)=""
^DD(50.68,"B","VA PRINT NAME",5)=""
^DD(50.68,"B","VA PRODUCT IDENTIFIER",6)=""
^DD(50.68,"B","VUID",99.99)=""
^DD(50.68,"GL",0,1,.01)=""
^DD(50.68,"GL",0,2,.05)=""
^DD(50.68,"GL",0,3,1)=""
^DD(50.68,"GL",0,4,2)=""
^DD(50.68,"GL",0,5,3)=""
^DD(50.68,"GL",0,6,4)=""
^DD(50.68,"GL",1,1,5)=""
^DD(50.68,"GL",1,2,6)=""
^DD(50.68,"GL",1,3,7)=""
^DD(50.68,"GL",1,4,8)=""
^DD(50.68,"GL",1,5,11)=""
^DD(50.68,"GL",1,6,12)=""
^DD(50.68,"GL",1,7,13)=""
^DD(50.68,"GL",2,0,14)=""
^DD(50.68,"GL",3,1,15)=""
^DD(50.68,"GL",4,0,16)=""
^DD(50.68,"GL",5,1,17)=""
^DD(50.68,"GL",6,0,18)=""
^DD(50.68,"GL",7,1,19)=""
^DD(50.68,"GL",7,2,20)=""
^DD(50.68,"GL",7,3,21)=""
^DD(50.68,"GL",7,4,25)=""
^DD(50.68,"GL",7,5,26)=""
^DD(50.68,"GL",7,6,27)=""
^DD(50.68,"GL",7,7,28)=""
^DD(50.68,"GL",7,8,29)=""
^DD(50.68,"GL",7,9,30)=""
^DD(50.68,"GL",8,1,23)=""
^DD(50.68,"GL","PFS",1,2000)=""
^DD(50.68,"GL","TERMSTATUS",0,99.991)=""
^DD(50.68,"GL","VUID",1,99.99)=""
^DD(50.68,"GL","VUID",2,99.98)=""
^DD(50.68,"IX",.01)=""
^DD(50.68,"IX",.05)=""
^DD(50.68,"IX",6)=""
^DD(50.68,"IX",21)=""
^DD(50.68,"IX",99.99)=""
^DD(50.68,"RQ",.01)=""
^DD(50.68,"RQ",99.98)=""
^DD(50.68,"RQ",99.99)=""
^DD(50.68,"SB",50.6814,14)=""
^DD(50.68,"SB",50.6816,16)=""
^DD(50.68,"SB",50.6818,18)=""
^DD(50.68,"SB",50.6899,99.991)=""
^DD(50.6814,0)="ACTIVE INGREDIENTS SUB-FIELD^^2^3"
^DD(50.6814,0,"DT")="2980424"
^DD(50.6814,0,"IX","AC",50.6814,.01)=""
^DD(50.6814,0,"NM","ACTIVE INGREDIENTS")=""
^DD(50.6814,0,"UP")="50.68"
^DD(50.6814,.01,0)="ACTIVE INGREDIENTS^P50.416'Xa^PS(50.416,^0;1^S DINUM=X"
^DD(50.6814,.01,1,0)="^.1"
^DD(50.6814,.01,1,1,0)="50.6814^AC^MUMPS"
^DD(50.6814,.01,1,1,1)="D ING^PSNXREF"
^DD(50.6814,.01,1,1,2)="D KING^PSNXREF"
^DD(50.6814,.01,1,1,"%D",0)="^^2^2^2981201^^^"
^DD(50.6814,.01,1,1,"%D",1,0)="This cross reference updates the drug identifier multiple in the drug"
^DD(50.6814,.01,1,1,"%D",2,0)="ingredients file."
^DD(50.6814,.01,1,1,"DT")="2980611"
^DD(50.6814,.01,21,0)="^^1^1^2981201^^^^"
^DD(50.6814,.01,21,1,0)="This is a pointer to the drug ingredients file."
^DD(50.6814,.01,"AUDIT")="y"
^DD(50.6814,.01,"DT")="2980611"
^DD(50.6814,1,0)="STRENGTH^Fa^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(50.6814,1,3)="Answer must be 1-45 characters in length."
^DD(50.6814,1,21,0)="^.001^1^1^3031205^^"
^DD(50.6814,1,21,1,0)="This is the strength of the ingredient."
^DD(50.6814,1,"AUDIT")="y"
^DD(50.6814,1,"DT")="2980424"
^DD(50.6814,2,0)="UNITS^P50.607'a^PS(50.607,^0;3^Q"
^DD(50.6814,2,21,0)="^^1^1^2980424^"
^DD(50.6814,2,21,1,0)="This is the unit of measure."
^DD(50.6814,2,"AUDIT")="y"
^DD(50.6814,2,"DT")="2980424"
^DD(50.6814,"AUDIT",.01)=""
^DD(50.6814,"AUDIT",1)=""
^DD(50.6814,"AUDIT",2)=""
^DD(50.6814,"B","ACTIVE INGREDIENTS",.01)=""
^DD(50.6814,"B","STRENGTH",1)=""
^DD(50.6814,"B","UNITS",2)=""
^DD(50.6814,"GL",0,1,.01)=""
^DD(50.6814,"GL",0,2,1)=""
^DD(50.6814,"GL",0,3,2)=""
^DD(50.6814,"IX",.01)=""
^DD(50.6816,0)="SECONDARY VA DRUG CLASS SUB-FIELD^^.01^1"
^DD(50.6816,0,"DT")="2980903"
^DD(50.6816,0,"NM","SECONDARY VA DRUG CLASS")=""
^DD(50.6816,0,"UP")="50.68"
^DD(50.6816,.01,0)="SECONDARY VA DRUG CLASS^MP50.605'aX^PS(50.605,^0;1^S DINUM=X"
^DD(50.6816,.01,1,0)="^.1^^0"
^DD(50.6816,.01,21,0)="^^1^1^2980904^^^"
^DD(50.6816,.01,21,1,0)="This is the secondary VA drug class multiple."
^DD(50.6816,.01,"AUDIT")="y"
^DD(50.6816,.01,"DT")="2980903"
^DD(50.6816,"AUDIT",.01)=""
^DD(50.6816,"B","SECONDARY VA DRUG CLASS",.01)=""
^DD(50.6816,"GL",0,1,.01)=""
^DD(50.6818,0)="NATIONAL FORMULARY RESTRICTION SUB-FIELD^^.01^1"
^DD(50.6818,0,"DT")="2980424"
^DD(50.6818,0,"NM","NATIONAL FORMULARY RESTRICTION")=""
^DD(50.6818,0,"UP")="50.68"
^DD(50.6818,.01,0)="NATIONAL FORMULARY RESTRICTION^W^^0;1^Q"
^DD(50.6818,.01,21,0)="^^1^1^2980424^"
^DD(50.6818,.01,21,1,0)="This is the national formulary restriction placed on this product."
^DD(50.6818,.01,"DT")="2980424"
^DD(50.6818,"B","NATIONAL FORMULARY RESTRICTION",.01)=""
^DD(50.6818,"GL",0,1,.01)=""
^DD(50.6899,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(50.6899,0,"DT")="3050511"
^DD(50.6899,0,"IX","B",50.6899,.01)=""
^DD(50.6899,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(50.6899,0,"UP")="50.68"
^DD(50.6899,.01,0)="EFFECTIVE DATE/TIME^RDIX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.6899,.01,1,0)="^.1"
^DD(50.6899,.01,1,1,0)="50.6899^B"
^DD(50.6899,.01,1,1,1)="S ^PSNDF(50.68,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(50.6899,.01,1,1,2)="K ^PSNDF(50.68,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(50.6899,.01,9)="^"
^DD(50.6899,.01,21,0)="^.001^1^1^3050511^^^^"
^DD(50.6899,.01,21,1,0)="This is the date/time when the Status of the reference term was established."
^DD(50.6899,.01,"DT")="3050511"
^DD(50.6899,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(50.6899,.02,9)="^"
^DD(50.6899,.02,21,0)="^.001^2^2^3050511^^"
^DD(50.6899,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If the term'ACTIVE', then the term will be accessible by end-users to document a particular patient event. If 'INACTIVE', then the term will only be accessible by the application"
^DD(50.6899,.02,21,2,0)="to display legacy data."
^DD(50.6899,.02,"DT")="3050511"
^DD(50.6899,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(50.6899,"B","STATUS",.02)=""
^DD(50.6899,"GL",0,1,.01)=""
^DD(50.6899,"GL",0,2,.02)=""
^DD(50.6899,"IX",.01)=""
^DD(50.6899,"RQ",.01)=""
^DD(50.6899,"RQ",.02)=""
^DD(50.7,0)="FIELD^^8^15"
^DD(50.7,0,"DT")="2970514"
^DD(50.7,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PS(50.606,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50.606,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(50.7,0,"ID",.04)="W ""   "",$$FMTE^DILIBF($P(^(0),U,4),6)"
^DD(50.7,0,"IX","A50",50.7,.01)=""
^DD(50.7,0,"IX","AC",50.7,.04)=""
^DD(50.7,0,"IX","AIV",50.7,.03)=""
^DD(50.7,0,"IX","AL",50.76,.01)=""
^DD(50.7,0,"IX","ASP1",50.7,.01)=""
^DD(50.7,0,"IX","ASP2",50.7,.02)=""
^DD(50.7,0,"IX","B",50.7,.01)=""
^DD(50.7,0,"IX","C",50.72,.01)=""
^DD(50.7,0,"IX","DTXT",50.76,.01)=""
^DD(50.7,0,"NM","PHARMACY ORDERABLE ITEM")=""
^DD(50.7,0,"PT",50,2.1)=""
^DD(50.7,0,"PT",52,39.2)=""
^DD(50.7,0,"PT",52.41,8)=""
^DD(50.7,0,"PT",52.6,15)=""
^DD(50.7,0,"PT",52.7,9)=""
^DD(50.7,0,"PT",53.1,108)=""
^DD(50.7,0,"PT",53.22,.01)=""
^DD(50.7,0,"PT",53.52,.06)=""
^DD(50.7,0,"PT",53.79,.08)=""
^DD(50.7,0,"PT",55.01,130)=""
^DD(50.7,0,"PT",55.05,.01)=""
^DD(50.7,0,"PT",55.06,108)=""
^DD(50.7,0,"VR")="1.0"
^DD(50.7,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(50.7,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45)!('$G(PSEDITNM)) X I $D(X) K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X?2""z"".E) X"
^DD(50.7,.01,1,0)="^.1"
^DD(50.7,.01,1,1,0)="50.7^B^MUMPS"
^DD(50.7,.01,1,1,1)="S ^PS(50.7,""B"",$E(X,1,40),DA)="""""
^DD(50.7,.01,1,1,2)="K ^PS(50.7,""B"",$E(X,1,40),DA)"
^DD(50.7,.01,1,1,"%D",0)="^^2^2^2970926^^^"
^DD(50.7,.01,1,1,"%D",1,0)="Cross-reference on PHARMACY ORDERABLE ITEM file NAME field."
^DD(50.7,.01,1,1,"%D",2,0)="In the form of: ^PS(50.7,""B"",$E(X,1,40),DA)"
^DD(50.7,.01,1,1,"DT")="2950504"
^DD(50.7,.01,1,2,0)="50.7^ASP1^MUMPS"
^DD(50.7,.01,1,2,1)="S:$P($G(^PS(50.7,DA,0)),""^"",2)'="""" ^PS(50.7,""ADF"",X,$P($G(^PS(50.7,DA,0)),""^"",2),DA)="""""
^DD(50.7,.01,1,2,2)="K:$P($G(^PS(50.7,DA,0)),""^"",2)'="""" ^PS(50.7,""ADF"",X,$P($G(^PS(50.7,DA,0)),""^"",2),DA)"
^DD(50.7,.01,1,2,3)="Do Not Delete"
^DD(50.7,.01,1,2,"%D",0)="^^2^2^2970926^^^^"
^DD(50.7,.01,1,2,"%D",1,0)="Cross-reference by name, dosage form pointer."
^DD(50.7,.01,1,2,"%D",2,0)="In the form of: ^PS(50.7,""ADF"",Name,Dosage Form ptr.,DA)"
^DD(50.7,.01,1,2,"DT")="2940826"
^DD(50.7,.01,1,3,0)="50.7^A50^MUMPS"
^DD(50.7,.01,1,3,1)="Q"
^DD(50.7,.01,1,3,2)="Q"
^DD(50.7,.01,1,3,"%D",0)="^.101^6^6^3001020^^^^"
^DD(50.7,.01,1,3,"%D",1,0)="This cross reference is a place holder. A cross reference is being set in"
^DD(50.7,.01,1,3,"%D",2,0)="the form of ^PS(50.7,""A50"",Pharmacy Orderable Item IEN,Dispense Drug IEN)="
^DD(50.7,.01,1,3,"%D",3,0)=""""". This is being set from the Pharmacy Orderable Item field (#2.1) of the"
^DD(50.7,.01,1,3,"%D",4,0)="DRUG file (#50). This data will be used to maintain the Pharmacy Orderable"
^DD(50.7,.01,1,3,"%D",5,0)="Items when changes are made in other files that point to the PHARMACY"
^DD(50.7,.01,1,3,"%D",6,0)="ORDERABLE ITEM file (#50.7)."
^DD(50.7,.01,1,3,"DT")="3001018"
^DD(50.7,.01,3)="Answer must be 3-40 characters in length."
^DD(50.7,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED"")"
^DD(50.7,.01,"DT")="3001018"
^DD(50.7,.02,0)="DOSAGE FORM^RP50.606'I^PS(50.606,^0;2^Q"
^DD(50.7,.02,1,0)="^.1"
^DD(50.7,.02,1,1,0)="50.7^ASP2^MUMPS"
^DD(50.7,.02,1,1,1)="S ^PS(50.7,""ADF"",$P($G(^PS(50.7,DA,0)),""^""),X,DA)="""""
^DD(50.7,.02,1,1,2)="K ^PS(50.7,""ADF"",$P($G(^PS(50.7,DA,0)),""^""),X,DA)"
^DD(50.7,.02,1,1,3)="Do Not Delete"
^DD(50.7,.02,1,1,"%D",0)="^^2^2^2970926^^^"
^DD(50.7,.02,1,1,"%D",1,0)="Cross-reference by name, dosage form pointer."
^DD(50.7,.02,1,1,"%D",2,0)="In the form of: ^PS(50.7,""ADF"",Name,Dosage Form ptr.,DA)"
^DD(50.7,.02,1,1,"DT")="2940826"
^DD(50.7,.02,3)=""
^DD(50.7,.02,"DT")="2960403"
^DD(50.7,.03,0)="IV FLAG^SI^1:IV;^0;3^Q"
^DD(50.7,.03,1,0)="^.1"
^DD(50.7,.03,1,1,0)="50.7^AIV"
^DD(50.7,.03,1,1,1)="S ^PS(50.7,""AIV"",$E(X,1,30),DA)="""""
^DD(50.7,.03,1,1,2)="K ^PS(50.7,""AIV"",$E(X,1,30),DA)"
^DD(50.7,.03,1,1,"%D",0)="^^1^1^2960520^^"
^DD(50.7,.03,1,1,"%D",1,0)="Cross-reference on IV FLAG field, which indicates that an Orderable Item was created from the IV ADDITIVE or SOLUTION file."
^DD(50.7,.03,1,1,"DT")="2950216"
^DD(50.7,.03,3)="Enter '1' if this item is created from an IV additive or solution."
^DD(50.7,.03,21,0)="^^2^2^2950214^"
^DD(50.7,.03,21,1,0)="This field indicates PHARMACY ORDERABLE ITEMs that are related to IV"
^DD(50.7,.03,21,2,0)="additives or solutions."
^DD(50.7,.03,23,0)="^^2^2^2950214^"
^DD(50.7,.03,23,1,0)="This field is used to indicate that a site-selectable indicator of "
^DD(50.7,.03,23,2,0)="type IV is to be included in the PHARMACY ORDERABLE ITEM."
^DD(50.7,.03,"DT")="2960403"
^DD(50.7,.04,0)="INACTIVE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.7,.04,1,0)="^.1"
^DD(50.7,.04,1,1,0)="50.7^AC^MUMPS"
^DD(50.7,.04,1,1,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=DA,PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50.7,.04,1,1,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=DA,PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(50.7,.04,1,1,3)="Do Not Delete"
^DD(50.7,.04,1,1,"%D",0)="^^8^8^3001026^"
^DD(50.7,.04,1,1,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(50.7,.04,1,1,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(50.7,.04,1,1,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(50.7,.04,1,1,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(50.7,.04,1,1,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(50.7,.04,1,1,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(50.7,.04,1,1,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(50.7,.04,1,1,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(50.7,.04,1,1,"DT")="3001017"
^DD(50.7,.04,3)="Enter the date this orderable item became inactive."
^DD(50.7,.04,"DT")="3001017"
^DD(50.7,.05,0)="DAY (nD) or DOSE (nL) LIMIT^FX^^0;5^K:$S('X:1,X?1.2N1""D"":0,1:X'?1.2N1""L"") X"
^DD(50.7,.05,3)="Type a whole number between 0 and 99, 0 decimal digits, followed by either a ""D"" (for NUMBER OF DAYS) or an ""L"" (for DOSE LIMIT)."
^DD(50.7,.05,20,0)="^.3LA^2^2"
^DD(50.7,.05,20,1,0)="ps"
^DD(50.7,.05,20,2,0)="PS"
^DD(50.7,.05,21,0)="^^2^2^2960708^^^^"
^DD(50.7,.05,21,1,0)="If found when this drug is ordered, this is used to calculate a DEFAULT vale for the STOP DATE prompt of the order.  If the number entered here is followed by a ""D"", that NUMBER OF DAYS will be added to the START DATE to calculate the STOP DATE."
^DD(50.7,.05,21,2,0)="If the number entered is followed by an ""L"", the number is used as the NUMBER OF DOSES to calculate the STOP DATE.  This is best used for NARCOTICS and ANTIBIOTICS."
^DD(50.7,.05,"DT")="2960708"
^DD(50.7,.06,0)="MED ROUTE^*P51.2'^PS(51.2,^0;6^S DIC(""S"")=""I $P(^(0),""""^"""",4)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(50.7,.06,3)="Enter the most common MED ROUTE associated with this medication."
^DD(50.7,.06,12)="ONLY MED ROUTES MARKED FOR USE BY ALL PACKAGES ARE SELECTABLE."
^DD(50.7,.06,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)"""
^DD(50.7,.06,20,0)="^.3LA^1^1"
^DD(50.7,.06,20,1,0)="PS"
^DD(50.7,.06,21,0)="^^1^1^2950614^^^^"
^DD(50.7,.06,21,1,0)="If a MED ROUTE is entered here, that med route is used as a DEFAULT value during order entry when this drug is selected."
^DD(50.7,.06,"DT")="3060830"
^DD(50.7,.07,0)="SCHEDULE TYPE^S^OC:ON CALL;O:ONE TIME;P:PRN;R:FILL ON REQUEST;^0;7^Q"
^DD(50.7,.07,3)="Enter the most common SCHEDULE TYPE associated with this medication."
^DD(50.7,.07,21,0)="^^1^1^2950614^"
^DD(50.7,.07,21,1,0)="If a SCHEDULE TYPE is entered here, it is used as a DEFAULT value in order entry when this drug is selected."
^DD(50.7,.07,"DT")="2950614"
^DD(50.7,.08,0)="SCHEDULE^FX^^0;8^D EN1^PSSOUTSC"
^DD(50.7,.08,3)="Enter the most common SCHEDULE associated with this medication."
^DD(50.7,.08,21,0)="^^5^5^3010301^"
^DD(50.7,.08,21,1,0)="If a Schedule is entered here, it will be used as a default value in"
^DD(50.7,.08,21,2,0)="Computerized Patient Record System (CPRS) at the Schedule prompt for"
^DD(50.7,.08,21,3,0)="medication orders. When the order is placed in CPRS, the default will"
^DD(50.7,.08,21,4,0)="display only if the value meets the criteria for the package for which the"
^DD(50.7,.08,21,5,0)="order is being placed, Inpatient Medications or Outpatient Pharmacy."
^DD(50.7,.08,"DT")="3010226"
^DD(50.7,.09,0)="SUPPLY^SI^1:SUPPLY;^0;9^Q"
^DD(50.7,.09,21,0)="^^2^2^2960403^"
^DD(50.7,.09,21,1,0)="This field is used to indicate whether or not the Orderable Item is a"
^DD(50.7,.09,21,2,0)="supply, 1 indicating a supply."
^DD(50.7,.09,"DT")="2960403"
^DD(50.7,2,0)="SYNONYM^50.72^^2;0"
^DD(50.7,5,0)="FORMULARY STATUS^SI^1:N/F;^0;12^Q"
^DD(50.7,5,3)="Enter a '1' if this orderable item is not on the formulary list."
^DD(50.7,5,8.5)="^"
^DD(50.7,5,9)="^"
^DD(50.7,5,21,0)="^^6^6^3010427^"
^DD(50.7,5,21,1,0)="This field will designate the formulary status of the orderable item. The"
^DD(50.7,5,21,2,0)="non-formulary status will be displayed to the provider next to the"
^DD(50.7,5,21,3,0)="selectable list of orderable item(s) during CPRS order entry (List Manager"
^DD(50.7,5,21,4,0)="and GUI). This field is not editable. It is controlled by the software. An"
^DD(50.7,5,21,5,0)="Orderable Item will only be marked as non-formulary if there are no active"
^DD(50.7,5,21,6,0)="Dispense Drugs matched to the item that are formulary drugs."
^DD(50.7,5,"DT")="3000901"
^DD(50.7,6,0)="OI-DRUG TEXT ENTRY^50.76P^^1;0"
^DD(50.7,7,0)="PATIENT INSTRUCTIONS^FX^^INS;1^K:$L(X)>240!($L(X)<1) X D:$D(X) HELP^PSSUTLA2"
^DD(50.7,7,3)="Answer must be 1-240 characters in length."
^DD(50.7,7,21,0)="^^9^9^3001216^"
^DD(50.7,7,21,1,0)="The text in this field shall be presented as a default for the Patient"
^DD(50.7,7,21,2,0)="Instructions prompt in the Outpatient Pharmacy package when entering"
^DD(50.7,7,21,3,0)="orders, if the Dispense Drug selected is matched to this Pharmacy"
^DD(50.7,7,21,4,0)="Orderable Item. This text will also be presented during the Outpatient"
^DD(50.7,7,21,5,0)="Medication order entry process through Computerized Patient Record System"
^DD(50.7,7,21,6,0)="(CPRS), and the CPRS user can then determine whether or not these"
^DD(50.7,7,21,7,0)="Instructions should be part of the order. For all words entered in this"
^DD(50.7,7,21,8,0)="field, the software will check for expansions for each word in the"
^DD(50.7,7,21,9,0)="Medication Instruction (#51) file, and expand the word accordingly."
^DD(50.7,7,"DT")="3010110"
^DD(50.7,7.1,0)="OTHER LANGUAGE INSTRUCTIONS^F^^INS1;1^K:$L(X)>240!($L(X)<1) X"
^DD(50.7,7.1,3)="Answer must be 1-240 characters in length."
^DD(50.7,7.1,20,0)="^.3LA^1^1"
^DD(50.7,7.1,20,1,0)="PSO"
^DD(50.7,7.1,21,0)="^.001^1^1^3030123^^^^"
^DD(50.7,7.1,21,1,0)="This field is used to store patient instructions in another language."
^DD(50.7,7.1,23,0)="^.001^1^1^3030123^^^^"
^DD(50.7,7.1,23,1,0)="Free text."
^DD(50.7,7.1,"DT")="3020916"
^DD(50.7,8,0)="NON-VA MED^SI^1:YES;^0;10^Q"
^DD(50.7,8,21,0)="^.001^7^7^3030910^^"
^DD(50.7,8,21,1,0)="This field indicates whether the Orderable Item"
^DD(50.7,8,21,2,0)="is marked as Non-VA Med or not. It is"
^DD(50.7,8,21,3,0)="controlled by software and is not manually"
^DD(50.7,8,21,4,0)="editable. An Orderable Item will only be marked"
^DD(50.7,8,21,5,0)="as Non-VA Med if there is at least one active"
^DD(50.7,8,21,6,0)="Dispense Drug matched to the item that is"
^DD(50.7,8,21,7,0)="marked as Non-VA Med."
^DD(50.7,8,"DT")="3030910"
^DD(50.7,"B","DAY (nD) or DOSE (nL) LIMIT",.05)=""
^DD(50.7,"B","DOSAGE FORM",.02)=""
^DD(50.7,"B","FORMULARY STATUS",5)=""
^DD(50.7,"B","INACTIVE DATE",.04)=""
^DD(50.7,"B","IV FLAG",.03)=""
^DD(50.7,"B","MED ROUTE",.06)=""
^DD(50.7,"B","NAME",.01)=""
^DD(50.7,"B","NON-VA MED",8)=""
^DD(50.7,"B","OI-DRUG TEXT ENTRY",6)=""
^DD(50.7,"B","OTHER LANGUAGE INSTRUCTIONS",7.1)=""
^DD(50.7,"B","PATIENT INSTRUCTIONS",7)=""
^DD(50.7,"B","SCHEDULE",.08)=""
^DD(50.7,"B","SCHEDULE TYPE",.07)=""
^DD(50.7,"B","SUPPLY",.09)=""
^DD(50.7,"B","SYNONYM",2)=""
^DD(50.7,"GL",0,1,.01)=""
^DD(50.7,"GL",0,2,.02)=""
^DD(50.7,"GL",0,3,.03)=""
^DD(50.7,"GL",0,4,.04)=""
^DD(50.7,"GL",0,5,.05)=""
^DD(50.7,"GL",0,6,.06)=""
^DD(50.7,"GL",0,7,.07)=""
^DD(50.7,"GL",0,8,.08)=""
^DD(50.7,"GL",0,9,.09)=""
^DD(50.7,"GL",0,10,8)=""
^DD(50.7,"GL",0,12,5)=""
^DD(50.7,"GL",1,0,6)=""
^DD(50.7,"GL",2,0,2)=""
^DD(50.7,"GL","INS",1,7)=""
^DD(50.7,"GL","INS1",1,7.1)=""
^DD(50.7,"GR","PS",.05,2)=""
^DD(50.7,"GR","PS",.06,1)=""
^DD(50.7,"GR","PSO",7.1,1)=""
^DD(50.7,"GR","ps",.05,1)=""
^DD(50.7,"IX",.01)=""
^DD(50.7,"IX",.02)=""
^DD(50.7,"IX",.03)=""
^DD(50.7,"IX",.04)=""
^DD(50.7,"RQ",.01)=""
^DD(50.7,"RQ",.02)=""
^DD(50.7,"SB",50.72,2)=""
^DD(50.7,"SB",50.76,6)=""
^DD(50.72,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(50.72,0,"DT")="2950215"
^DD(50.72,0,"IX","AC",50.72,.01)=""
^DD(50.72,0,"IX","B",50.72,.01)=""
^DD(50.72,0,"NM","SYNONYM")=""
^DD(50.72,0,"UP")="50.7"
^DD(50.72,.01,0)="SYNONYM^MFX^^0;1^S X=$$TRIM^XLFSTR(X,,"" "") K:$L(X)>30!($L(X)<1) X"
^DD(50.72,.01,1,0)="^.1"
^DD(50.72,.01,1,1,0)="50.72^B"
^DD(50.72,.01,1,1,1)="S ^PS(50.7,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(50.72,.01,1,1,2)="K ^PS(50.7,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(50.72,.01,1,2,0)="50.72^AC^MUMPS"
^DD(50.72,.01,1,2,1)="I '$D(DIU(0)),'$G(PSCREATE) N PSSTEST S PSSTEST=DA(1),PSSCROSS=1,ZTIO="""",ZTDTH=$H,ZTDESC=""Orderable Item Update"",ZTRTN=""EN1^PSSPOIDT"",ZTSAVE(""PSSCROSS"")="""",ZTSAVE(""PSSTEST"")="""" D ^%ZTLOAD K PSSCROSS Q"
^DD(50.72,.01,1,2,2)="I '$D(DIU(0)),'$G(PSCREATE) N PSSTEST S PSSTEST=DA(1),PSSCROSS=1,ZTIO="""",ZTDTH=$H,ZTDESC=""Orderable Item Update"",ZTRTN=""EN1^PSSPOIDT"",ZTSAVE(""PSSCROSS"")="""",ZTSAVE(""PSSTEST"")="""" D ^%ZTLOAD K PSSCROSS Q"
^DD(50.72,.01,1,2,3)="Do Not Delete"
^DD(50.72,.01,1,2,"%D",0)="^^2^2^2970926^^^^"
^DD(50.72,.01,1,2,"%D",1,0)="This is used to keep the Orderable Item up to date."
^DD(50.72,.01,1,2,"%D",2,0)="In the form of: ^PS(50.7,DA,0)"
^DD(50.72,.01,1,2,"DT")="2960520"
^DD(50.72,.01,1,3,0)="50.7^C"
^DD(50.72,.01,1,3,1)="S ^PS(50.7,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(50.72,.01,1,3,2)="K ^PS(50.7,""C"",$E(X,1,30),DA(1),DA)"
^DD(50.72,.01,1,3,"DT")="2960806"
^DD(50.72,.01,3)="Answer must be 1-30 characters in length."
^DD(50.72,.01,"DT")="3070731"
^DD(50.72,"B","SYNONYM",.01)=""
^DD(50.72,"GL",0,1,.01)=""
^DD(50.72,"IX",.01)=""
^DD(50.735,0)="DIVISION/SITE SUB-FIELD^^.01^1"
^DD(50.735,0,"DT")="2921214"
^DD(50.735,0,"IX","B",50.735,.01)=""
^DD(50.735,0,"NM","DIVISION/SITE")=""
^DD(50.735,0,"UP")="50.073"
^DD(50.735,.01,0)="DIVISION/SITE^MRP59'^PS(59,^0;1^Q"
^DD(50.735,.01,1,0)="^.1"
^DD(50.735,.01,1,1,0)="50.735^B"
^DD(50.735,.01,1,1,1)="S ^PS(50.073,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(50.735,.01,1,1,2)="K ^PS(50.073,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(50.735,.01,3)="Enter outpatient division(s) related to this DUE questionnaire."
^DD(50.735,.01,21,0)="^^2^2^2971211^^^"
^DD(50.735,.01,21,1,0)="This field is used to indicate which division is related to this DUE"
^DD(50.735,.01,21,2,0)="questionnaire."
^DD(50.735,.01,23,0)="^^1^1^2971211^^^"
^DD(50.735,.01,23,1,0)="pointer"
^DD(50.735,.01,"DT")="2921214"
^DD(50.735,"B","DIVISION/SITE",.01)=""
^DD(50.735,"GL",0,1,.01)=""
^DD(50.735,"IX",.01)=""
^DD(50.735,"RQ",.01)=""
^DD(50.76,0)="OI-DRUG TEXT ENTRY SUB-FIELD^^.01^1"
^DD(50.76,0,"DT")="2990921"
^DD(50.76,0,"IX","B",50.76,.01)=""
^DD(50.76,0,"NM","OI-DRUG TEXT ENTRY")=""
^DD(50.76,0,"UP")="50.7"
^DD(50.76,.01,0)="OI-DRUG TEXT ENTRY^M*P51.7'^PS(51.7,^0;1^S DIC(""S"")=""N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""""^"""",2) I $S('ZC:1,1:ZC>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(50.76,.01,1,0)="^.1"
^DD(50.76,.01,1,1,0)="50.76^B"
^DD(50.76,.01,1,1,1)="S ^PS(50.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.76,.01,1,1,2)="K ^PS(50.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.76,.01,1,2,0)="50.7^DTXT"
^DD(50.76,.01,1,2,1)="S ^PS(50.7,""DTXT"",$E(X,1,30),DA(1),DA)="""""
^DD(50.76,.01,1,2,2)="K ^PS(50.7,""DTXT"",$E(X,1,30),DA(1),DA)"
^DD(50.76,.01,1,2,3)="Do Not Delete"
^DD(50.76,.01,1,2,"%D",0)="^^1^1^3011107^"
^DD(50.76,.01,1,2,"%D",1,0)="This is used to lookup Drug Text entries linked to Orderable Item."
^DD(50.76,.01,1,2,"DT")="3011107"
^DD(50.76,.01,1,3,0)="50.7^AL^MUMPS"
^DD(50.76,.01,1,3,1)="D ASKSYN^PSSPOIMP"
^DD(50.76,.01,1,3,2)="I"
^DD(50.76,.01,1,3,"DT")="3050818"
^DD(50.76,.01,3)="This field is used to associate entries from the DRUG TEXT File (#51.7) with Pharmacy Orderable Items. This information will be seen in CPRS and Pharmacy during the medication order entry process."
^DD(50.76,.01,12)="Only active entries may be selected."
^DD(50.76,.01,12.1)="S DIC(""S"")=""N ZC S ZC=$P($G(^PS(51.7,+Y,0)),""""^"""",2) I $S('ZC:1,1:ZC>DT)"""
^DD(50.76,.01,21,0)="^.001^7^7^3010320^^"
^DD(50.76,.01,21,1,0)="This is a pointer to the DRUG TEXT File (#51.7). This file contains such"
^DD(50.76,.01,21,2,0)="information as drug restrictions, guidelines and protocols to help assure"
^DD(50.76,.01,21,3,0)="that medications are being used according to formulary specifications."
^DD(50.76,.01,21,4,0)="This information will be seen in CPRS and Pharmacy, when a medication"
^DD(50.76,.01,21,5,0)="order is placed for the Pharmacy Orderable Item. New entries to the DRUG"
^DD(50.76,.01,21,6,0)="TEXT File (#51.7) must be made through the Drug Text Enter/Edit [PSS EDIT"
^DD(50.76,.01,21,7,0)="TEXT] option."
^DD(50.76,.01,"DT")="3050818"
^DD(50.76,"B","OI-DRUG TEXT ENTRY",.01)=""
^DD(50.76,"GL",0,1,.01)=""
^DD(50.76,"IX",.01)=""
^DD(50.8,0)="FIELD^^2^4"
^DD(50.8,0,"DDA")="N"
^DD(50.8,0,"IX","AC",50.805,.01)=""
^DD(50.8,0,"IX","AIVC",50.8,.01)=""
^DD(50.8,0,"NM","IV STATS")=""
^DD(50.8,0,"VR")="5.0"
^DD(50.8,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(50.8,.01,0)="IV ROOM^RP59.5'X^PS(59.5,^0;1^S DINUM=X"
^DD(50.8,.01,1,0)="^.1"
^DD(50.8,.01,1,1,0)="50.8^AIVC^MUMPS"
^DD(50.8,.01,1,1,1)="S ^PS(50.8,""AIVC"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(50.8,.01,1,1,2)="Q"
^DD(50.8,.01,1,1,"%D",0)="^^2^2^2971211^"
^DD(50.8,.01,1,1,"%D",1,0)="Sets cross-ref equal to UD Stats/200 conversion date."
^DD(50.8,.01,1,1,"%D",2,0)="S ^PS(50.8,""AIVC"")=VERSION NUMBER LAST INITS RUN"
^DD(50.8,.01,3)=""
^DD(50.8,.01,20,0)="^.3LA^1^1"
^DD(50.8,.01,20,1,0)="PSJI"
^DD(50.8,.01,21,0)="^^1^1^2910305^^^^"
^DD(50.8,.01,21,1,0)="Looks at the IV Room file."
^DD(50.8,.01,"DT")="2880525"
^DD(50.8,.2,0)="LAST COMPILATION^D^^.2;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(50.8,.2,21,0)="^^5^5^2940714^^^^"
^DD(50.8,.2,21,1,0)="  This is the date when the IV STATS file was last successfully compiled."
^DD(50.8,.2,21,2,0)="When an IV cost report is run, this date is displayed on the user's"
^DD(50.8,.2,21,3,0)="screen.  If the last compilation date is more than one day in the past,"
^DD(50.8,.2,21,4,0)="a message is printed warning the user that the cost data may not be "
^DD(50.8,.2,21,5,0)="accurate."
^DD(50.8,.2,"DT")="2900402"
^DD(50.8,1,0)="PATIENT^50.801P^^1;0"
^DD(50.8,1,20,0)="^.3LA^1^1"
^DD(50.8,1,20,1,0)="PSJI"
^DD(50.8,1,21,0)="^^2^2^2901212^^^"
^DD(50.8,1,21,1,0)="Identifies patients which have statistical information in the IV STATS"
^DD(50.8,1,21,2,0)="file (50.8)."
^DD(50.8,1,22)=""
^DD(50.8,2,0)="DATE^50.803D^^2;0"
^DD(50.8,2,20,0)="^.3LA^1^1"
^DD(50.8,2,20,1,0)="PSJI"
^DD(50.8,2,21,0)="^^1^1^2910305^^"
^DD(50.8,2,21,1,0)="  Date of order (the statistics file stores the entries in date order)."
^DD(50.8,2,21,2,0)="the IV package."
^DD(50.8,"B","DATE",2)=""
^DD(50.8,"B","IV ROOM",.01)=""
^DD(50.8,"B","LAST COMPILATION",.2)=""
^DD(50.8,"B","PATIENT",1)=""
^DD(50.8,"GL",0,1,.01)=""
^DD(50.8,"GL",.2,1,.2)=""
^DD(50.8,"GL",1,0,1)=""
^DD(50.8,"GL",2,0,2)=""
^DD(50.8,"GR","PSJI",.01,1)=""
^DD(50.8,"GR","PSJI",1,1)=""
^DD(50.8,"GR","PSJI",2,1)=""
^DD(50.8,"IX",.01)=""
^DD(50.8,"RQ",.01)=""
^DD(50.8,"SB",50.801,1)=""
^DD(50.8,"SB",50.803,2)=""
^DD(50.801,0)="PATIENT SUB-FIELD^^1^2"
^DD(50.801,0,"NM","PATIENT")=""
^DD(50.801,0,"UP")="50.8"
^DD(50.801,.01,0)="PATIENT^MP2'X^DPT(^0;1^D EN^DDIOL("" ... This field CANNOT and SHOULD NOT be edited using FileMan !!"") K X"
^DD(50.801,.01,1,0)="^.1^^0"
^DD(50.801,.01,20,0)="^.3LA^1^1"
^DD(50.801,.01,20,1,0)="PSJI"
^DD(50.801,.01,21,0)="^^8^8^2910305^^^^"
^DD(50.801,.01,21,1,0)="  This field is the holding file for IV STATS that are to be counted."
^DD(50.801,.01,21,2,0)="When a COUNTED IV label is run, this field is updated by the computer."
^DD(50.801,.01,21,3,0)="Pertinent information about the 'COUNTED IV LABEL' is saved and will"
^DD(50.801,.01,21,4,0)="be compiled later by a job that is automatically queued to run at"
^DD(50.801,.01,21,5,0)="1 AM in the morning.  All IV STATS can be compiled immediately by"
^DD(50.801,.01,21,6,0)="running the 'COMPILE IV STATS' option in the supervisor menu.  The"
^DD(50.801,.01,21,7,0)="'COMPILE IV STATS' option should not be used regularly, since it"
^DD(50.801,.01,21,8,0)="is very CPU intensive and is automatically run each day."
^DD(50.801,.01,"DT")="2860619"
^DD(50.801,1,0)="TRANSACTION NUMBER^50.802^^1;0"
^DD(50.801,1,20,0)="^.3LA^1^1"
^DD(50.801,1,20,1,0)="PSJI"
^DD(50.801,1,21,0)="^^2^2^2910312^^^^"
^DD(50.801,1,21,1,0)="This number is the transaction number in ""hold"" status until stats are"
^DD(50.801,1,21,2,0)="compiled."
^DD(50.801,"B","PATIENT",.01)=""
^DD(50.801,"B","TRANSACTION NUMBER",1)=""
^DD(50.801,"GL",0,1,.01)=""
^DD(50.801,"GL",1,0,1)=""
^DD(50.801,"GR","PSJI",.01,1)=""
^DD(50.801,"GR","PSJI",1,1)=""
^DD(50.801,"SB",50.802,1)=""
^DD(50.802,0)="TRANSACTION NUMBER SUB-FIELD^^6^7"
^DD(50.802,0,"NM","TRANSACTION NUMBER")=""
^DD(50.802,0,"UP")="50.801"
^DD(50.802,.01,0)="TRANSACTION NUMBER^MNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(50.802,.01,3)="Type a whole number between 1 and 9999999."
^DD(50.802,.01,20,0)="^.3LA^1^1"
^DD(50.802,.01,20,1,0)="PSJI"
^DD(50.802,.01,21,0)="^^2^2^2910305^^^"
^DD(50.802,.01,21,1,0)="  This number is the transaction number in ""hold"" status until stats are "
^DD(50.802,.01,21,2,0)="compiled."
^DD(50.802,1,0)="ORDER NUMBER^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(50.802,1,3)="Type a whole number between 1 and 9999999."
^DD(50.802,1,20,0)="^.3LA^1^1"
^DD(50.802,1,20,1,0)="PSJI"
^DD(50.802,1,21,0)="^^1^1^2910305^^"
^DD(50.802,1,21,1,0)="  Order Number for the order on ""hold"""
^DD(50.802,2,0)="STATUS^S^1:DISPENSED;2:RETURNED;3:DESTROYED;4:CANCELED;^0;3^Q"
^DD(50.802,2,20,0)="^.3LA^1^1"
^DD(50.802,2,20,1,0)="PSJI"
^DD(50.802,2,21,0)="^^2^2^2910513^^^^"
^DD(50.802,2,21,1,0)="  Status of the order on ""hold"",1 for Dispensed, 2 for returned and"
^DD(50.802,2,21,2,0)="3 for destroyed, 4 for canceled."
^DD(50.802,2,"DT")="2890704"
^DD(50.802,3,0)="DATE OF TRANSACTION^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.802,3,3)=""
^DD(50.802,3,20,0)="^.3LA^1^1"
^DD(50.802,3,20,1,0)="PSJI"
^DD(50.802,3,21,0)="^^1^1^2910305^^"
^DD(50.802,3,21,1,0)="  The date of the transaction in ""hold""."
^DD(50.802,3,"DT")="2860619"
^DD(50.802,4,0)="NUMBER OF ORDERS^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.802,4,3)="Type a whole number between 0 and 9999999."
^DD(50.802,4,20,0)="^.3LA^1^1"
^DD(50.802,4,20,1,0)="PSJI"
^DD(50.802,4,21,0)="^^1^1^2910513^^^"
^DD(50.802,4,21,1,0)="  Number of orders on ""hold"" status."
^DD(50.802,5,0)="WARD^P42'^DIC(42,^0;6^Q"
^DD(50.802,5,20,0)="^.3LA^1^1"
^DD(50.802,5,20,1,0)="PSJI"
^DD(50.802,5,21,0)="^^1^1^2910305^"
^DD(50.802,5,21,1,0)="  Identifies the ward associated with this transaction."
^DD(50.802,5,22)=""
^DD(50.802,5,"DT")="2880415"
^DD(50.802,6,0)="DRUG WITH NO COST^FX^^0;7^K:$L(X)>15!($L(X)<6)!'(X?.E1"";"".E) X"
^DD(50.802,6,3)="Answer must be 6-15 characters in length."
^DD(50.802,6,20,0)="^.3LA^1^1"
^DD(50.802,6,20,1,0)="PSJI"
^DD(50.802,6,21,0)="^^7^7^2910305^^^^"
^DD(50.802,6,21,1,0)="  When compiling IV Statistics, if an order is found which contains a drug "
^DD(50.802,6,21,2,0)="that has no cost data entered, the file number (either 52.6 or 52.7) and "
^DD(50.802,6,21,3,0)="the print name of that drug is placed in this field. A mail message is then "
^DD(50.802,6,21,4,0)="sent to all users holding the ""PSJI MGR"" security key (excluding IRM staff),"
^DD(50.802,6,21,5,0)="identifying the drug missing cost data, and whether it is an additive or a "
^DD(50.802,6,21,6,0)="solution.  The dispensing information is not added to the statistics file "
^DD(50.802,6,21,7,0)="until the cost has been entered."
^DD(50.802,6,"DT")="2890104"
^DD(50.802,"B","DATE OF TRANSACTION",3)=""
^DD(50.802,"B","DRUG WITH NO COST",6)=""
^DD(50.802,"B","NUMBER OF ORDERS",4)=""
^DD(50.802,"B","ORDER NUMBER",1)=""
^DD(50.802,"B","STATUS",2)=""
^DD(50.802,"B","TRANSACTION NUMBER",.01)=""
^DD(50.802,"B","WARD",5)=""
^DD(50.802,"GL",0,1,.01)=""
^DD(50.802,"GL",0,2,1)=""
^DD(50.802,"GL",0,3,2)=""
^DD(50.802,"GL",0,4,3)=""
^DD(50.802,"GL",0,5,4)=""
^DD(50.802,"GL",0,6,5)=""
^DD(50.802,"GL",0,7,6)=""
^DD(50.802,"GR","PSJI",.01,1)=""
^DD(50.802,"GR","PSJI",1,1)=""
^DD(50.802,"GR","PSJI",2,1)=""
^DD(50.802,"GR","PSJI",3,1)=""
^DD(50.802,"GR","PSJI",4,1)=""
^DD(50.802,"GR","PSJI",5,1)=""
^DD(50.802,"GR","PSJI",6,1)=""
^DD(50.803,0)="DATE SUB-FIELD^^2^3"
^DD(50.803,0,"IX","B",50.805,.01)=""
^DD(50.803,0,"NM","DATE")=""
^DD(50.803,0,"UP")="50.8"
^DD(50.803,.01,0)="DATE^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(50.803,.01,1,0)="^.1^^0"
^DD(50.803,.01,20,0)="^.3LA^1^1"
^DD(50.803,.01,20,1,0)="PSJI"
^DD(50.803,.01,21,0)="^^1^1^2910305^^^^"
^DD(50.803,.01,21,1,0)="  Date of order (the statistics file stores the entries in date order)."
^DD(50.803,.01,"DT")="2860625"
^DD(50.803,1,0)="WARD^50.804P^^1;0"
^DD(50.803,1,20,0)="^.3LA^1^1"
^DD(50.803,1,20,1,0)="PSJI"
^DD(50.803,1,21,0)="^^2^2^2890628^^^^"
^DD(50.803,1,21,1,0)=" Ward for which statistics have been gathered (looks at Ward Location "
^DD(50.803,1,21,2,0)="File (#42)"
^DD(50.803,2,0)="IV DRUG^50.805A^^2;0"
^DD(50.803,2,20,0)="^.3LA^1^1"
^DD(50.803,2,20,1,0)="PSJI"
^DD(50.803,2,21,0)="^^1^1^2940621^^^^"
^DD(50.803,2,21,1,0)="IV drug administered."
^DD(50.803,"B","DATE",.01)=""
^DD(50.803,"B","IV DRUG",2)=""
^DD(50.803,"B","WARD",1)=""
^DD(50.803,"GL",0,1,.01)=""
^DD(50.803,"GL",1,0,1)=""
^DD(50.803,"GL",2,0,2)=""
^DD(50.803,"GR","PSJI",.01,1)=""
^DD(50.803,"GR","PSJI",1,1)=""
^DD(50.803,"GR","PSJI",2,1)=""
^DD(50.803,"SB",50.804,1)=""
^DD(50.803,"SB",50.805,2)=""
^DD(50.804,0)="WARD SUB-FIELD^^22^23"
^DD(50.804,0,"NM","WARD")=""
^DD(50.804,0,"UP")="50.803"
^DD(50.804,.01,0)="WARD^MP42'OX^DIC(42,^0;1^S DINUM=X"
^DD(50.804,.01,1,0)="^.1^^0"
^DD(50.804,.01,2)="S Y(0)=Y S Y=$S(Y="""":""*** Unknown Ward ***"",Y=.5:""Outpatient IV"",$D(^DIC(42,Y,0)):$P(^(0),""^""),1:""*** Undefined Ward"")"
^DD(50.804,.01,2.1)="S Y=$S(Y="""":""*** Unknown Ward ***"",Y=.5:""Outpatient IV"",$D(^DIC(42,Y,0)):$P(^(0),""^""),1:""*** Undefined Ward"")"
^DD(50.804,.01,20,0)="^.3LA^1^1"
^DD(50.804,.01,20,1,0)="PSJI"
^DD(50.804,.01,21,0)="^^2^2^2910305^^^^"
^DD(50.804,.01,21,1,0)="  Ward for which statistics have been gathered (looks at ward location"
^DD(50.804,.01,21,2,0)="file (#42)."
^DD(50.804,1,0)="IVPB DISPENSED^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,1,3)="Type a whole number between 0 and 9999999."
^DD(50.804,1,20,0)="^.3LA^1^1"
^DD(50.804,1,20,1,0)="PSJI"
^DD(50.804,1,21,0)="^^1^1^2910305^^^"
^DD(50.804,1,21,1,0)="  IV Piggybacks dispensed for this ward."
^DD(50.804,1,"DT")="2870417"
^DD(50.804,2,0)="LVP DISPENSED^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,2,3)="Type a whole number between 0 and 9999999."
^DD(50.804,2,20,0)="^.3LA^1^1"
^DD(50.804,2,20,1,0)="PSJI"
^DD(50.804,2,21,0)="^^1^1^2910305^^^"
^DD(50.804,2,21,1,0)="  Large Volume Admixtures administered for this ward."
^DD(50.804,2,"DT")="2870417"
^DD(50.804,3,0)="HYPERAL DISPENSED^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,3,3)="Type a whole number between 0 and 9999999."
^DD(50.804,3,20,0)="^.3LA^1^1"
^DD(50.804,3,20,1,0)="PSJI"
^DD(50.804,3,21,0)="^^1^1^2910305^^^"
^DD(50.804,3,21,1,0)="  Hyperals administered for this ward."
^DD(50.804,3,"DT")="2870417"
^DD(50.804,4,0)="WARD RETURNS^P42'^DIC(42,^R;1^Q"
^DD(50.804,4,3)=""
^DD(50.804,4,20,0)="^.3LA^1^1"
^DD(50.804,4,20,1,0)="PSJI"
^DD(50.804,4,21,0)="^^2^2^2901001^^^^"
^DD(50.804,4,21,1,0)="Ward for which IV products were returned. Pointer to WARD LOCATION "
^DD(50.804,4,21,2,0)="file (42)."
^DD(50.804,4,"DT")="2880201"
^DD(50.804,5,0)="WARD RETURNS (IVPB)^NJ6,0^^R;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(50.804,5,20,0)="^.3LA^1^1"
^DD(50.804,5,20,1,0)="PSJI"
^DD(50.804,5,21,0)="^^2^2^2910305^^"
^DD(50.804,5,21,1,0)="  Ward for which IV IVPBs (IV Piggybacks) returned for the specified ward "
^DD(50.804,5,21,2,0)="and date."
^DD(50.804,5,"DT")="2880201"
^DD(50.804,6,0)="WARD RETURNS (LVP)^NJ6,0^^R;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.804,6,20,0)="^.3LA^1^1"
^DD(50.804,6,20,1,0)="PSJI"
^DD(50.804,6,21,0)="^^2^2^2910305^"
^DD(50.804,6,21,1,0)="  This is the number of LVPs (Large Volume Parenterals) returned for the "
^DD(50.804,6,21,2,0)="specified ward and date."
^DD(50.804,6,"DT")="2880201"
^DD(50.804,7,0)="WARD RETURNS (HYPERAL)^NJ6,0^^R;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,7,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.804,7,20,0)="^.3LA^1^1"
^DD(50.804,7,20,1,0)="PSJI"
^DD(50.804,7,21,0)="^^1^1^2910305^"
^DD(50.804,7,21,1,0)="  This is the number of Hyperals returned for the specified ward and date."
^DD(50.804,7,"DT")="2880201"
^DD(50.804,8,0)="WARD DESTROYED^P42'^DIC(42,^D;1^Q"
^DD(50.804,8,20,0)="^.3LA^1^1"
^DD(50.804,8,20,1,0)="PSJI"
^DD(50.804,8,21,0)="^^1^1^2910305^"
^DD(50.804,8,21,1,0)="  Ward for which IV products were destroyed."
^DD(50.804,8,21,2,0)="file (42)."
^DD(50.804,8,"DT")="2880201"
^DD(50.804,9,0)="WARD DESTROYED (IVPB)^NJ6,0^^D;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.804,9,20,0)="^.3LA^1^1"
^DD(50.804,9,20,1,0)="PSJI"
^DD(50.804,9,21,0)="^^2^2^2910305^"
^DD(50.804,9,21,1,0)="  This is the number of IVPBs (IV piggybacks) destroyed for the specified"
^DD(50.804,9,21,2,0)="ward and date."
^DD(50.804,9,"DT")="2880201"
^DD(50.804,10,0)="WARD DESTROYED (LVP)^NJ6,0^^D;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,10,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.804,10,20,0)="^.3LA^1^1"
^DD(50.804,10,20,1,0)="PSJI"
^DD(50.804,10,21,0)="^^2^2^2910305^"
^DD(50.804,10,21,1,0)="  This is the number of LVPs (large volume parenterals) destroyed for the"
^DD(50.804,10,21,2,0)="specified ward and date."
^DD(50.804,10,"DT")="2880201"
^DD(50.804,11,0)="WARD DESTROYED (HYPERAL)^NJ6,0^^D;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,11,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.804,11,20,0)="^.3LA^2^2"
^DD(50.804,11,20,1,0)="PSJIO"
^DD(50.804,11,20,2,0)="PSJI"
^DD(50.804,11,21,0)="^^1^1^2910305^"
^DD(50.804,11,21,1,0)="  This is the number of hyperals returned for the specified ward and date."
^DD(50.804,11,"DT")="2880201"
^DD(50.804,12,0)="SYRINGE DISPENSED^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,12,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,12,20,0)="^.3LA^1^1"
^DD(50.804,12,20,1,0)="PSJI"
^DD(50.804,12,21,0)="^^1^1^2910305^^"
^DD(50.804,12,21,1,0)="  This is the number of syringes dispensed for the specified ward and date."
^DD(50.804,12,"DT")="2890627"
^DD(50.804,13,0)="CHEMOTHERAPY DISPENSED^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,13,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,13,20,0)="^.3LA^1^1"
^DD(50.804,13,20,1,0)="PSJI"
^DD(50.804,13,21,0)="^^2^2^2910305^"
^DD(50.804,13,21,1,0)="  This is the number of chemotherapy IVs dispensed for the specified ward"
^DD(50.804,13,21,2,0)="and date."
^DD(50.804,13,"DT")="2890627"
^DD(50.804,14,0)="WARD RETURNS (CHEMO)^NJ5,0^^R;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,14,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,14,20,0)="^.3LA^1^1"
^DD(50.804,14,20,1,0)="PSJI"
^DD(50.804,14,21,0)="^^2^2^2910305^"
^DD(50.804,14,21,1,0)="  This is the number of chemotherapy IVs returned for the specified ward"
^DD(50.804,14,21,2,0)="and date."
^DD(50.804,14,"DT")="2890627"
^DD(50.804,15,0)="WARD RETURNS (SYRINGE)^NJ5,0^^R;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,15,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,15,20,0)="^.3LA^1^1"
^DD(50.804,15,20,1,0)=" "
^DD(50.804,15,21,0)="^^2^2^2910305^"
^DD(50.804,15,21,1,0)="  This is the number of syringe IVs returned for the specified ward and "
^DD(50.804,15,21,2,0)="date."
^DD(50.804,15,"DT")="2890627"
^DD(50.804,16,0)="WARD DESTROYED (SYRINGE)^NJ5,0^^D;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,16,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,16,20,0)="^.3LA^1^1"
^DD(50.804,16,20,1,0)="PSJI"
^DD(50.804,16,21,0)="^^2^2^2910305^"
^DD(50.804,16,21,1,0)="  This is the number of syringe IVs which were destroyed for the specified"
^DD(50.804,16,21,2,0)="ward and date."
^DD(50.804,16,"DT")="2890627"
^DD(50.804,17,0)="WARD DESTROYED (CHEMO)^NJ5,0^^D;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,17,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,17,20,0)="^.3LA^1^1"
^DD(50.804,17,20,1,0)="PSJI"
^DD(50.804,17,21,0)="^^2^2^2910305^"
^DD(50.804,17,21,1,0)="  This is the number of chemotherapy IVs returned for the specified ward"
^DD(50.804,17,21,2,0)="and date."
^DD(50.804,17,"DT")="2890627"
^DD(50.804,18,0)="WARD CANCELED (IVPB)^NJ5,0^^C;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,18,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,18,20,0)="^.3LA^1^1"
^DD(50.804,18,20,1,0)="PSJI"
^DD(50.804,18,21,0)="^^2^2^2901001^"
^DD(50.804,18,21,1,0)="This is the number of IVPBs (IV piggybacks) which were canceled for the"
^DD(50.804,18,21,2,0)="specified ward and date."
^DD(50.804,18,"DT")="2890627"
^DD(50.804,19,0)="WARD CANCELED (LVP)^NJ5,0^^C;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,19,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,19,20,0)="^.3LA^1^1"
^DD(50.804,19,20,1,0)="PSJI"
^DD(50.804,19,21,0)="^^2^2^2910305^"
^DD(50.804,19,21,1,0)="  This is the number of LVPs (large volume parenterals) which were cancelled"
^DD(50.804,19,21,2,0)="for the specified ward and date."
^DD(50.804,19,"DT")="2890627"
^DD(50.804,20,0)="WARD CANCELED (HYPERAL)^NJ5,0^^C;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,20,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,20,20,0)="^.3LA^1^1"
^DD(50.804,20,20,1,0)="PSJI"
^DD(50.804,20,21,0)="^^2^2^2910305^"
^DD(50.804,20,21,1,0)="  This is the number of hyperals which were cancelled for the specified"
^DD(50.804,20,21,2,0)="ward and date."
^DD(50.804,20,"DT")="2890627"
^DD(50.804,21,0)="WARD CANCELED (SYRINGE)^NJ6,0^^C;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,21,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.804,21,20,0)="^.3LA^1^1"
^DD(50.804,21,20,1,0)="PSJI"
^DD(50.804,21,21,0)="^^2^2^2910305^^"
^DD(50.804,21,21,1,0)="  This is the number of syringe IVs which were cancelled for the specified"
^DD(50.804,21,21,2,0)="ward and date."
^DD(50.804,21,"DT")="2890627"
^DD(50.804,22,0)="WARD CANCELED (CHEMO)^NJ5,0^^C;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.804,22,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.804,22,20,0)="^.3LA^1^1"
^DD(50.804,22,20,1,0)="PSJI"
^DD(50.804,22,21,0)="^^2^2^2910305^"
^DD(50.804,22,21,1,0)="  This is the number of chemotherapy IVs which were cancelled for the"
^DD(50.804,22,21,2,0)="specified ward and shift."
^DD(50.804,22,"DT")="2890627"
^DD(50.804,"B","CHEMOTHERAPY DISPENSED",13)=""
^DD(50.804,"B","HYPERAL DISPENSED",3)=""
^DD(50.804,"B","IVPB DISPENSED",1)=""
^DD(50.804,"B","LVP DISPENSED",2)=""
^DD(50.804,"B","SYRINGE DISPENSED",12)=""
^DD(50.804,"B","WARD",.01)=""
^DD(50.804,"B","WARD CANCELED (CHEMO)",22)=""
^DD(50.804,"B","WARD CANCELED (HYPERAL)",20)=""
^DD(50.804,"B","WARD CANCELED (IVPB)",18)=""
^DD(50.804,"B","WARD CANCELED (LVP)",19)=""
^DD(50.804,"B","WARD CANCELED (SYRINGE)",21)=""
^DD(50.804,"B","WARD DESTROYED",8)=""
^DD(50.804,"B","WARD DESTROYED (CHEMO)",17)=""
^DD(50.804,"B","WARD DESTROYED (HYPERAL)",11)=""
^DD(50.804,"B","WARD DESTROYED (IVPB)",9)=""
^DD(50.804,"B","WARD DESTROYED (LVP)",10)=""
^DD(50.804,"B","WARD DESTROYED (SYRINGE)",16)=""
^DD(50.804,"B","WARD RETURNS",4)=""
^DD(50.804,"B","WARD RETURNS (CHEMO)",14)=""
^DD(50.804,"B","WARD RETURNS (HYPERAL)",7)=""
^DD(50.804,"B","WARD RETURNS (IVPB)",5)=""
^DD(50.804,"B","WARD RETURNS (LVP)",6)=""
^DD(50.804,"B","WARD RETURNS (SYRINGE)",15)=""
^DD(50.804,"GL",0,1,.01)=""
^DD(50.804,"GL",0,2,1)=""
^DD(50.804,"GL",0,3,2)=""
^DD(50.804,"GL",0,4,3)=""
^DD(50.804,"GL",0,5,13)=""
^DD(50.804,"GL",0,6,12)=""
^DD(50.804,"GL","C",2,18)=""
^DD(50.804,"GL","C",3,19)=""
^DD(50.804,"GL","C",4,20)=""
^DD(50.804,"GL","C",5,22)=""
^DD(50.804,"GL","C",6,21)=""
^DD(50.804,"GL","D",1,8)=""
^DD(50.804,"GL","D",2,9)=""
^DD(50.804,"GL","D",3,10)=""
^DD(50.804,"GL","D",4,11)=""
^DD(50.804,"GL","D",5,17)=""
^DD(50.804,"GL","D",6,16)=""
^DD(50.804,"GL","R",1,4)=""
^DD(50.804,"GL","R",2,5)=""
^DD(50.804,"GL","R",3,6)=""
^DD(50.804,"GL","R",4,7)=""
^DD(50.804,"GL","R",5,14)=""
^DD(50.804,"GL","R",6,15)=""
^DD(50.804,"GR"," ",15,1)=""
^DD(50.804,"GR","PSJI",.01,1)=""
^DD(50.804,"GR","PSJI",1,1)=""
^DD(50.804,"GR","PSJI",2,1)=""
^DD(50.804,"GR","PSJI",3,1)=""
^DD(50.804,"GR","PSJI",4,1)=""
^DD(50.804,"GR","PSJI",5,1)=""
^DD(50.804,"GR","PSJI",6,1)=""
^DD(50.804,"GR","PSJI",7,1)=""
^DD(50.804,"GR","PSJI",8,1)=""
^DD(50.804,"GR","PSJI",9,1)=""
^DD(50.804,"GR","PSJI",10,1)=""
^DD(50.804,"GR","PSJI",11,2)=""
^DD(50.804,"GR","PSJI",12,1)=""
^DD(50.804,"GR","PSJI",13,1)=""
^DD(50.804,"GR","PSJI",14,1)=""
^DD(50.804,"GR","PSJI",16,1)=""
^DD(50.804,"GR","PSJI",17,1)=""
^DD(50.804,"GR","PSJI",18,1)=""
^DD(50.804,"GR","PSJI",19,1)=""
^DD(50.804,"GR","PSJI",20,1)=""
^DD(50.804,"GR","PSJI",21,1)=""
^DD(50.804,"GR","PSJI",22,1)=""
^DD(50.804,"GR","PSJIO",11,1)=""
^DD(50.805,0)="IV DRUG SUB-FIELD^^14^15"
^DD(50.805,0,"NM","IV DRUG")=""
^DD(50.805,0,"UP")="50.803"
^DD(50.805,.01,0)="IV DRUG^FX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) D EN^DDIOL("" ... This field CANNOT be edited using FileMan !!"") K X"
^DD(50.805,.01,1,0)="^.1"
^DD(50.805,.01,1,1,0)="50.803^B"
^DD(50.805,.01,1,1,1)="S ^PS(50.8,DA(2),2,""B"",$E(X,1,30),DA(1),DA)="""""
^DD(50.805,.01,1,1,2)="K ^PS(50.8,DA(2),2,""B"",$E(X,1,30),DA(1),DA)"
^DD(50.805,.01,1,2,0)="50.8^AC^MUMPS"
^DD(50.805,.01,1,2,1)="I '$D(PSIVV),$D(^PS(50.8)) D ^PSIVXREF Q"
^DD(50.805,.01,1,2,2)="Q"
^DD(50.805,.01,1,2,"%D",0)="^^2^2^2971211^"
^DD(50.805,.01,1,2,"%D",1,0)=" Cross-reference by: IV ROOM, DATE, IV DRUG."
^DD(50.805,.01,1,2,"%D",2,0)=" S ^PS(50.8,IV ROOM,2,DATE,2,""AC"",FILE(52.6 or 52.7),IV DRUG ien,IV DRUG)="""""
^DD(50.805,.01,3)="Not editable through VA FileMan."
^DD(50.805,.01,20,0)="^.3LA^1^1"
^DD(50.805,.01,20,1,0)="PSJI"
^DD(50.805,.01,21,0)="^^1^1^2940621^^^^"
^DD(50.805,.01,21,1,0)="  IV drug administered."
^DD(50.805,.01,"DT")="2880217"
^DD(50.805,1,0)="DISPENSED UNITS (IV DRUG)^NJ10,2^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.805,1,3)="Type a number between 0 and 9999999."
^DD(50.805,1,20,0)="^.3LA^1^1"
^DD(50.805,1,20,1,0)="PSJI"
^DD(50.805,1,21,0)="^^1^1^2910305^^"
^DD(50.805,1,21,1,0)="  Number of units dispensed for this drug."
^DD(50.805,2,0)="RETURNED UNITS (IV DRUG)^NJ10,2^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.805,2,3)="Type a whole number between 0 and 9999999."
^DD(50.805,2,20,0)="^.3LA^1^1"
^DD(50.805,2,20,1,0)="PSJI"
^DD(50.805,2,21,0)="^^1^1^2910305^^"
^DD(50.805,2,21,1,0)="  Number of units returned for this drug."
^DD(50.805,3,0)="DESTROYED UNITS (IV DRUG)^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.805,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(50.805,3,20,0)="^.3LA^1^1"
^DD(50.805,3,20,1,0)="PSJI"
^DD(50.805,3,21,0)="^^2^2^2910305^^^^"
^DD(50.805,3,21,1,0)="  This is the number of units destroyed from this ward of the selected drug"
^DD(50.805,3,21,2,0)="on this date."
^DD(50.805,3,"DT")="2910215"
^DD(50.805,4,0)="AVERAGE DRUG COST PER UNIT^NJ11,3^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(50.805,4,3)="Type a number between 0 and 9999999."
^DD(50.805,4,20,0)="^.3LA^1^1"
^DD(50.805,4,20,1,0)="PSJI"
^DD(50.805,4,21,0)="^^2^2^2910305^^^"
^DD(50.805,4,21,1,0)="  Average cost of drug per unit.  This information is taken from the"
^DD(50.805,4,21,2,0)="additive or solution file (whichever is appropriate)."
^DD(50.805,5,0)="DRUG UNIT^RS^1:ML;2:LITER;3:MCG;4:MG;5:GM;6:UNITS;7:IU;8:MEQ;9:MM;10:MU;11:THOUU;12:MG-PE;13:NANOGRAM;^0;6^Q"
^DD(50.805,5,20,0)="^.3LA^1^1"
^DD(50.805,5,20,1,0)="PSJI"
^DD(50.805,5,21,0)="^.001^1^1^3050718^^^^"
^DD(50.805,5,21,1,0)="  Unit of measure. This is used in calculating cost of drug.  "
^DD(50.805,5,"DT")="3050630"
^DD(50.805,6,0)="TYPE^RS^52.6:IV ADDITVE;52.7:IV SOLUTION;^0;7^Q"
^DD(50.805,6,20,0)="^.3LA^1^1"
^DD(50.805,6,20,1,0)="PSJI"
^DD(50.805,6,21,0)="^^1^1^2910305^^^^"
^DD(50.805,6,21,1,0)="  Indicates whether drug is additive or solution."
^DD(50.805,7,0)="DISPENSING OCCURRENCES^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.805,7,3)="Type a whole number between 0 and 9999999."
^DD(50.805,7,20,0)="^.3LA^1^1"
^DD(50.805,7,20,1,0)="PSJI"
^DD(50.805,7,21,0)="^^1^1^2910305^^"
^DD(50.805,7,21,1,0)="  Number of times drug was dispensed (or number of bags hung)."
^DD(50.805,8,0)="PATIENT^50.806P^^1;0"
^DD(50.805,8,20,0)="^.3LA^1^1"
^DD(50.805,8,20,1,0)="PSJI"
^DD(50.805,8,21,0)="^^3^3^2901002^^"
^DD(50.805,8,21,1,0)="These fields specify how many units of the IV drug were dispensed,"
^DD(50.805,8,21,2,0)="returned, canceled, or destroyed, for each patient who was to receive"
^DD(50.805,8,21,3,0)="this drug."
^DD(50.805,9,0)="PROVIDER^50.807P^^2;0"
^DD(50.805,9,20,0)="^.3LA^1^1"
^DD(50.805,9,20,1,0)="PSJI"
^DD(50.805,9,21,0)="^^3^3^2910708^^^"
^DD(50.805,9,21,1,0)="These fields specify how many units of the IV drug selected were"
^DD(50.805,9,21,2,0)="dispensed, returned, canceled, or destroyed, for each physician"
^DD(50.805,9,21,3,0)="prescribing this drug."
^DD(50.805,10,0)="WARD^50.808P^^3;0"
^DD(50.805,10,20,0)="^.3LA^1^1"
^DD(50.805,10,20,1,0)="PSJI"
^DD(50.805,10,21,0)="^^3^3^2940621^^"
^DD(50.805,10,21,1,0)="These fields specify how many units of the selected IV drug were dispensed,"
^DD(50.805,10,21,2,0)="returned, canceled, or destroyed, for each ward housing patients who were"
^DD(50.805,10,21,3,0)="to receive this drug."
^DD(50.805,11,0)="RETURNED OCCURRENCES^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.805,11,3)="Type a Number between 0 and 9999999, 0 Decimal Digits."
^DD(50.805,11,20,0)="^.3LA^1^1"
^DD(50.805,11,20,1,0)="PSJI"
^DD(50.805,11,21,0)="^^2^2^2910305^"
^DD(50.805,11,21,1,0)="  This is the number of times an order for the specified drug was destroyed"
^DD(50.805,11,21,2,0)="on the selected date."
^DD(50.805,11,"DT")="2890109"
^DD(50.805,12,0)="DESTROYED OCCURRENCES^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.805,12,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.805,12,20,0)="^.3LA^1^1"
^DD(50.805,12,20,1,0)="PSJI"
^DD(50.805,12,21,0)="^^2^2^2910305^"
^DD(50.805,12,21,1,0)="  This is the number of times an order for the specified drug was destroyed"
^DD(50.805,12,21,2,0)="on the selected date."
^DD(50.805,12,"DT")="2890109"
^DD(50.805,13,0)="CANCELLED OCCURRENCES^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.805,13,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.805,13,20,0)="^.3LA^1^1"
^DD(50.805,13,20,1,0)="PSJI"
^DD(50.805,13,21,0)="^^2^2^2910305^"
^DD(50.805,13,21,1,0)="  This is the number of times an order for the specified drug was cancelled"
^DD(50.805,13,21,2,0)="on the selected date."
^DD(50.805,13,"DT")="2890628"
^DD(50.805,14,0)="CANCELLED UNITS (IV DRUG)^NJ5,0^^0;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.805,14,3)="Type a Number between 0 and 99999, 0 Decimal Digits."
^DD(50.805,14,20,0)="^.3LA^1^1"
^DD(50.805,14,20,1,0)="PSJI"
^DD(50.805,14,21,0)="^^2^2^2940621^^"
^DD(50.805,14,21,1,0)="  This is the number of units of an IV drug which were cancelled on the"
^DD(50.805,14,21,2,0)="date selected."
^DD(50.805,14,"DT")="2890628"
^DD(50.805,"B","AVERAGE DRUG COST PER UNIT",4)=""
^DD(50.805,"B","CANCELLED OCCURRENCES",13)=""
^DD(50.805,"B","CANCELLED UNITS (IV DRUG)",14)=""
^DD(50.805,"B","DESTROYED OCCURRENCES",12)=""
^DD(50.805,"B","DESTROYED UNITS (IV DRUG)",3)=""
^DD(50.805,"B","DISPENSED UNITS (IV DRUG)",1)=""
^DD(50.805,"B","DISPENSING OCCURRENCES",7)=""
^DD(50.805,"B","DRUG UNIT",5)=""
^DD(50.805,"B","IV DRUG",.01)=""
^DD(50.805,"B","PATIENT",8)=""
^DD(50.805,"B","PROVIDER",9)=""
^DD(50.805,"B","RETURNED OCCURRENCES",11)=""
^DD(50.805,"B","RETURNED UNITS (IV DRUG)",2)=""
^DD(50.805,"B","TYPE",6)=""
^DD(50.805,"B","WARD",10)=""
^DD(50.805,"GL",0,1,.01)=""
^DD(50.805,"GL",0,2,1)=""
^DD(50.805,"GL",0,3,2)=""
^DD(50.805,"GL",0,4,3)=""
^DD(50.805,"GL",0,5,4)=""
^DD(50.805,"GL",0,6,5)=""
^DD(50.805,"GL",0,7,6)=""
^DD(50.805,"GL",0,8,7)=""
^DD(50.805,"GL",0,9,11)=""
^DD(50.805,"GL",0,10,12)=""
^DD(50.805,"GL",0,11,13)=""
^DD(50.805,"GL",0,12,14)=""
^DD(50.805,"GL",1,0,8)=""
^DD(50.805,"GL",2,0,9)=""
^DD(50.805,"GL",3,0,10)=""
^DD(50.805,"GR","PSJI",.01,1)=""
^DD(50.805,"GR","PSJI",1,1)=""
^DD(50.805,"GR","PSJI",2,1)=""
^DD(50.805,"GR","PSJI",3,1)=""
^DD(50.805,"GR","PSJI",4,1)=""
^DD(50.805,"GR","PSJI",5,1)=""
^DD(50.805,"GR","PSJI",6,1)=""
^DD(50.805,"GR","PSJI",7,1)=""
^DD(50.805,"GR","PSJI",8,1)=""
^DD(50.805,"GR","PSJI",9,1)=""
^DD(50.805,"GR","PSJI",10,1)=""
^DD(50.805,"GR","PSJI",11,1)=""
^DD(50.805,"GR","PSJI",12,1)=""
^DD(50.805,"GR","PSJI",13,1)=""
^DD(50.805,"GR","PSJI",14,1)=""
^DD(50.805,"IX",.01)=""
^DD(50.805,"RQ",5)=""
^DD(50.805,"RQ",6)=""
^DD(50.805,"SB",50.806,8)=""
^DD(50.805,"SB",50.807,9)=""
^DD(50.805,"SB",50.808,10)=""
^DD(50.806,0)="PATIENT SUB-FIELD^^5^6"
^DD(50.806,0,"NM","PATIENT")=""
^DD(50.806,0,"UP")="50.805"
^DD(50.806,.01,0)="PATIENT^MP2'X^DPT(^0;1^S DINUM=X"
^DD(50.806,.01,1,0)="^.1^^0"
^DD(50.806,.01,20,0)="^.3LA^1^1"
^DD(50.806,.01,20,1,0)="PSJI"
^DD(50.806,.01,21,0)="^^1^1^2910305^^^^"
^DD(50.806,.01,21,1,0)=" Patient to whom IV was administered."
^DD(50.806,1,0)="DISPENSED UNITS (PATIENT)^NJ10,2^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.806,1,3)="Type a whole number between 0 and 9999999."
^DD(50.806,1,20,0)="^.3LA^1^1"
^DD(50.806,1,20,1,0)="PSJI"
^DD(50.806,1,21,0)="^^1^1^2871007^^"
^DD(50.806,1,21,1,0)="Number of units patient was administered"
^DD(50.806,2,0)="RETURNED UNITS (PATIENT)^NJ10,2^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.806,2,3)="Type a number between 0 and 9999999."
^DD(50.806,2,20,0)="^.3LA^1^1"
^DD(50.806,2,20,1,0)="PSJI"
^DD(50.806,2,21,0)="^^1^1^2910305^^^^"
^DD(50.806,2,21,1,0)="  Units returned to Pharmacy and not administered to patient."
^DD(50.806,3,0)="DESTROYED UNITS (PATIENT)^NJ10,2^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.806,3,3)="Type a number between 0 and 9999999."
^DD(50.806,3,20,0)="^.3LA^1^1"
^DD(50.806,3,20,1,0)="PSJI"
^DD(50.806,3,21,0)="^^1^1^2910305^^^"
^DD(50.806,3,21,1,0)="  Units destroyed by pharmacy and not administered to patient."
^DD(50.806,4,0)="WARD PTR^P42'^DIC(42,^0;5^Q"
^DD(50.806,4,20,0)="^.3LA^1^1"
^DD(50.806,4,20,1,0)="PSJI"
^DD(50.806,4,21,0)="^^1^1^2910305^^^^"
^DD(50.806,4,21,1,0)="  Ward in which IV drug was administered."
^DD(50.806,4,"DT")="2871005"
^DD(50.806,5,0)="CANCELED UNITS (PATIENT)^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.806,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.806,5,20,0)="^.3LA^1^1"
^DD(50.806,5,20,1,0)="PSJI"
^DD(50.806,5,21,0)="^^2^2^2910305^^"
^DD(50.806,5,21,1,0)="  This is the number of units of the IV drug for this patient which were"
^DD(50.806,5,21,2,0)="cancelled on the selected date."
^DD(50.806,5,"DT")="2890628"
^DD(50.806,"B","CANCELED UNITS (PATIENT)",5)=""
^DD(50.806,"B","DESTROYED UNITS (PATIENT)",3)=""
^DD(50.806,"B","DISPENSED UNITS (PATIENT)",1)=""
^DD(50.806,"B","PATIENT",.01)=""
^DD(50.806,"B","RETURNED UNITS (PATIENT)",2)=""
^DD(50.806,"B","WARD PTR",4)=""
^DD(50.806,"GL",0,1,.01)=""
^DD(50.806,"GL",0,2,1)=""
^DD(50.806,"GL",0,3,2)=""
^DD(50.806,"GL",0,4,3)=""
^DD(50.806,"GL",0,5,4)=""
^DD(50.806,"GL",0,6,5)=""
^DD(50.806,"GR","PSJI",.01,1)=""
^DD(50.806,"GR","PSJI",1,1)=""
^DD(50.806,"GR","PSJI",2,1)=""
^DD(50.806,"GR","PSJI",3,1)=""
^DD(50.806,"GR","PSJI",4,1)=""
^DD(50.806,"GR","PSJI",5,1)=""
^DD(50.807,0)="PROVIDER SUB-FIELD^^4^5"
^DD(50.807,0,"NM","PROVIDER")=""
^DD(50.807,0,"UP")="50.805"
^DD(50.807,.01,0)="PROVIDER^MP200'X^VA(200,^0;1^S DINUM=X"
^DD(50.807,.01,1,0)="^.1^^0"
^DD(50.807,.01,20,0)="^.3LA^1^1"
^DD(50.807,.01,20,1,0)="PSJI"
^DD(50.807,.01,21,0)="^^1^1^2910708^^^^"
^DD(50.807,.01,21,1,0)="  Person who authorized the IV order."
^DD(50.807,.01,23,0)="^^1^1^2910708^^^^"
^DD(50.807,.01,23,1,0)=" Pointer to NEW PERSON file (200)."
^DD(50.807,.01,"DT")="2910708"
^DD(50.807,1,0)="DISPENSED UNITS (PROVIDER)^NJ10,2^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.807,1,3)="Type a number between 0 and 9999999."
^DD(50.807,1,20,0)="^.3LA^1^1"
^DD(50.807,1,20,1,0)="PSJI"
^DD(50.807,1,21,0)="^^1^1^2910305^^^"
^DD(50.807,1,21,1,0)="  Number of units dispensed for provider's order."
^DD(50.807,2,0)="RETURNED UNITS (PROVIDER)^NJ9,2^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.807,2,3)="Type a Number between 0 and 999999, 2 Decimal Digits."
^DD(50.807,2,20,0)="^.3LA^1^1"
^DD(50.807,2,20,1,0)="PSJI"
^DD(50.807,2,21,0)="^^1^1^2910305^^"
^DD(50.807,2,21,1,0)="  Units returned to the Pharmacy and not administered to the patient."
^DD(50.807,2,"DT")="2871005"
^DD(50.807,3,0)="DESTROYED UNITS (PROVIDER)^NJ8,2^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.807,3,3)="Type a Number between 0 and 99999, 2 Decimal Digits."
^DD(50.807,3,20,0)="^.3LA^1^1"
^DD(50.807,3,20,1,0)="PSJI"
^DD(50.807,3,21,0)="^^2^2^2871007^"
^DD(50.807,3,21,1,0)="Number of units destroyed by the pharmacy and not administered to the"
^DD(50.807,3,21,2,0)=" patient"
^DD(50.807,3,"DT")="2871005"
^DD(50.807,4,0)="CANCELED UNITS (PROVIDER)^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.807,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.807,4,20,0)="^.3LA^1^1"
^DD(50.807,4,20,1,0)="PSJI"
^DD(50.807,4,21,0)="^^2^2^2910305^"
^DD(50.807,4,21,1,0)="  This is the number of units of the IV drug which were cancelled for the"
^DD(50.807,4,21,2,0)="specified provider on the selected date."
^DD(50.807,4,"DT")="2890628"
^DD(50.807,"B","CANCELED UNITS (PROVIDER)",4)=""
^DD(50.807,"B","DESTROYED UNITS (PROVIDER)",3)=""
^DD(50.807,"B","DISPENSED UNITS (PROVIDER)",1)=""
^DD(50.807,"B","PROVIDER",.01)=""
^DD(50.807,"B","RETURNED UNITS (PROVIDER)",2)=""
^DD(50.807,"GL",0,1,.01)=""
^DD(50.807,"GL",0,2,1)=""
^DD(50.807,"GL",0,3,2)=""
^DD(50.807,"GL",0,4,3)=""
^DD(50.807,"GL",0,5,4)=""
^DD(50.807,"GR","PSJI",.01,1)=""
^DD(50.807,"GR","PSJI",1,1)=""
^DD(50.807,"GR","PSJI",2,1)=""
^DD(50.807,"GR","PSJI",3,1)=""
^DD(50.807,"GR","PSJI",4,1)=""
^DD(50.808,0)="WARD SUB-FIELD^^5^6"
^DD(50.808,0,"NM","WARD")=""
^DD(50.808,0,"UP")="50.805"
^DD(50.808,.01,0)="WARD^MP42'OX^DIC(42,^0;1^S DINUM=X"
^DD(50.808,.01,1,0)="^.1^^0"
^DD(50.808,.01,2)="S Y(0)=Y S Y=$S(Y="""":""*** Unknown Ward ***"",Y=.5:""Outpatient IV"",$D(^DIC(42,Y,0)):$P(^(0),""^""),1:""*** Undefined Ward"")"
^DD(50.808,.01,2.1)="S Y=$S(Y="""":""*** Unknown Ward ***"",Y=.5:""Outpatient IV"",$D(^DIC(42,Y,0)):$P(^(0),""^""),1:""*** Undefined Ward"")"
^DD(50.808,.01,20,0)="^.3LA^1^1"
^DD(50.808,.01,20,1,0)="PSJI"
^DD(50.808,.01,21,0)="^^1^1^2910305^^"
^DD(50.808,.01,21,1,0)="  Ward in which IV drug was administered."
^DD(50.808,1,0)="TYPE^50.809SA^^1;0"
^DD(50.808,1,20,0)="^.3LA^1^1"
^DD(50.808,1,20,1,0)="PSJI"
^DD(50.808,1,21,0)="^^2^2^2901002^^"
^DD(50.808,1,21,1,0)="This contains information concerning each type of IV ordered for"
^DD(50.808,1,21,2,0)="the selected ward, IV drug, and date."
^DD(50.808,2,0)="DISPENSED UNITS (WARD)^NJ9,2^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.808,2,3)="Type a Number between 0 and 999999, 2 Decimal Digits."
^DD(50.808,2,20,0)="^.3LA^1^1"
^DD(50.808,2,20,1,0)="PSJI"
^DD(50.808,2,21,0)="^^1^1^2910305^^^^"
^DD(50.808,2,21,1,0)="  Units dispensed for this ward."
^DD(50.808,2,"DT")="2871005"
^DD(50.808,3,0)="RETURNED UNITS (WARD)^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.808,3,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.808,3,20,0)="^.3LA^1^1"
^DD(50.808,3,20,1,0)="PSJI"
^DD(50.808,3,21,0)="^^2^2^2910305^"
^DD(50.808,3,21,1,0)="  This is the number of units of the specified drug returned from the"
^DD(50.808,3,21,2,0)="selected ward on this date."
^DD(50.808,3,"DT")="2890628"
^DD(50.808,4,0)="DESTROYED UNITS (WARD)^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.808,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.808,4,20,0)="^.3LA^1^1"
^DD(50.808,4,20,1,0)="PSJI"
^DD(50.808,4,21,0)="^^2^2^2910305^"
^DD(50.808,4,21,1,0)="  This is the number of units destroyed for this ward and drug on the"
^DD(50.808,4,21,2,0)="selected date."
^DD(50.808,4,"DT")="2890628"
^DD(50.808,5,0)="CANCELED UNITS^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.808,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.808,5,20,0)="^.3LA^1^1"
^DD(50.808,5,20,1,0)="PSJI"
^DD(50.808,5,21,0)="^^2^2^2940621^^"
^DD(50.808,5,21,1,0)="  This is the number of units cancelled for this ward and drug on the "
^DD(50.808,5,21,2,0)="selected date."
^DD(50.808,5,"DT")="2890628"
^DD(50.808,"B","CANCELED UNITS",5)=""
^DD(50.808,"B","DESTROYED UNITS (WARD)",4)=""
^DD(50.808,"B","DISPENSED UNITS (WARD)",2)=""
^DD(50.808,"B","RETURNED UNITS (WARD)",3)=""
^DD(50.808,"B","TYPE",1)=""
^DD(50.808,"B","WARD",.01)=""
^DD(50.808,"GL",0,1,.01)=""
^DD(50.808,"GL",0,2,2)=""
^DD(50.808,"GL",0,3,3)=""
^DD(50.808,"GL",0,4,4)=""
^DD(50.808,"GL",0,5,5)=""
^DD(50.808,"GL",1,0,1)=""
^DD(50.808,"GR","PSJI",.01,1)=""
^DD(50.808,"GR","PSJI",1,1)=""
^DD(50.808,"GR","PSJI",2,1)=""
^DD(50.808,"GR","PSJI",3,1)=""
^DD(50.808,"GR","PSJI",4,1)=""
^DD(50.808,"GR","PSJI",5,1)=""
^DD(50.808,"SB",50.809,1)=""
^DD(50.809,0)="TYPE SUB-FIELD^^8^9"
^DD(50.809,0,"IX","B",50.809,.01)=""
^DD(50.809,0,"NM","TYPE")=""
^DD(50.809,0,"UP")="50.808"
^DD(50.809,.01,0)="TYPE^S^P:PIGGYBACK;H:HYPERAL;A:ADMIXTURE;S:SYRINGE;C:CHEMOTHERAPY;^0;1^Q"
^DD(50.809,.01,1,0)="^.1"
^DD(50.809,.01,1,1,0)="50.809^B"
^DD(50.809,.01,1,1,1)="S ^PS(50.8,DA(4),2,DA(3),2,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(50.809,.01,1,1,2)="K ^PS(50.8,DA(4),2,DA(3),2,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(50.809,.01,3)=""
^DD(50.809,.01,20,0)="^.3LA^1^1"
^DD(50.809,.01,20,1,0)="PSJI"
^DD(50.809,.01,21,0)="^^2^2^2910305^^^"
^DD(50.809,.01,21,1,0)="  Type of IV administered: 'P' for  piggyback, 'H' for hyperal and 'A' for "
^DD(50.809,.01,21,2,0)="admixture 'S' for syringe, 'C' for chemotherapy."
^DD(50.809,.01,"DT")="2901218"
^DD(50.809,1,0)="DISPENSED UNITS^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,1,3)="Type a whole number between 0 and 9999999."
^DD(50.809,1,20,0)="^.3LA^1^1"
^DD(50.809,1,20,1,0)="PSJI"
^DD(50.809,1,21,0)="^^1^1^2910305^^"
^DD(50.809,1,21,1,0)="  Units dispensed for this type IV."
^DD(50.809,1,"DT")="2870417"
^DD(50.809,2,0)="RETURNED UNITS^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,2,3)="Type a whole number between 0 and 9999999."
^DD(50.809,2,20,0)="^.3LA^1^1"
^DD(50.809,2,20,1,0)="PSJI"
^DD(50.809,2,21,0)="^^2^2^2910305^^^"
^DD(50.809,2,21,1,0)="  Units for this type IV returned to pharmacy and not administered to the"
^DD(50.809,2,21,2,0)="patient."
^DD(50.809,2,"DT")="2870417"
^DD(50.809,3,0)="DESTROYED UNITS^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,3,3)="Type a whole number between 0 and 9999999."
^DD(50.809,3,20,0)="^.3LA^1^1"
^DD(50.809,3,20,1,0)="PSJI"
^DD(50.809,3,21,0)="^^2^2^2910305^^"
^DD(50.809,3,21,1,0)="  Units for this type IV destroyed by the Pharmacy and not administered"
^DD(50.809,3,21,2,0)="to the patient."
^DD(50.809,3,"DT")="2870417"
^DD(50.809,4,0)="DISPENSING OCCURRENCES^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.809,4,20,0)="^.3LA^1^1"
^DD(50.809,4,20,1,0)="PSJI"
^DD(50.809,4,21,0)="^^2^2^2910305^"
^DD(50.809,4,21,1,0)="  This is the number of times this type of IV was dispensed for the ward,"
^DD(50.809,4,21,2,0)="drug, and date selected."
^DD(50.809,4,"DT")="2890425"
^DD(50.809,5,0)="RETURNED OCCURRENCES^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.809,5,20,0)="^.3LA^1^1"
^DD(50.809,5,20,1,0)="PSJI"
^DD(50.809,5,21,0)="^^2^2^2910305^"
^DD(50.809,5,21,1,0)="  This is the number of times this type of IV was returned for the ward,"
^DD(50.809,5,21,2,0)="drug, and date selected."
^DD(50.809,5,"DT")="2890425"
^DD(50.809,6,0)="DESTROYED OCCURRENCES^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.809,6,20,0)="^.3LA^1^1"
^DD(50.809,6,20,1,0)="PSJI"
^DD(50.809,6,21,0)="^^2^2^2910305^"
^DD(50.809,6,21,1,0)="  This is the number of times this type of IV was destroyed for the ward,"
^DD(50.809,6,21,2,0)="drug, and date selected."
^DD(50.809,6,"DT")="2890425"
^DD(50.809,7,0)="CANCELLED UNITS^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,7,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.809,7,20,0)="^.3LA^1^1"
^DD(50.809,7,20,1,0)="PSJI"
^DD(50.809,7,21,0)="^^2^2^2940621^^^"
^DD(50.809,7,21,1,0)="  This is the number of units of this type which were cancelled for the"
^DD(50.809,7,21,2,0)="ward, drug, and date selected."
^DD(50.809,7,"DT")="2940621"
^DD(50.809,8,0)="CANCELLED OCCURRENCES^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.809,8,3)="Type a Number between 0 and 999999, 0 Decimal Digits."
^DD(50.809,8,20,0)="^.3LA^1^1"
^DD(50.809,8,20,1,0)="PSJI"
^DD(50.809,8,21,0)="^^2^2^2910305^"
^DD(50.809,8,21,1,0)="  This is the number of times an order of this type was cancelled for the"
^DD(50.809,8,21,2,0)="ward, drug, and date selected."
^DD(50.809,8,"DT")="2890628"
^DD(50.809,"B","CANCELLED OCCURRENCES",8)=""
^DD(50.809,"B","CANCELLED UNITS",7)=""
^DD(50.809,"B","DESTROYED OCCURRENCES",6)=""
^DD(50.809,"B","DESTROYED UNITS",3)=""
^DD(50.809,"B","DISPENSED UNITS",1)=""
^DD(50.809,"B","DISPENSING OCCURRENCES",4)=""
^DD(50.809,"B","RETURNED OCCURRENCES",5)=""
^DD(50.809,"B","RETURNED UNITS",2)=""
^DD(50.809,"B","TYPE",.01)=""
^DD(50.809,"GL",0,1,.01)=""
^DD(50.809,"GL",0,2,1)=""
^DD(50.809,"GL",0,3,2)=""
^DD(50.809,"GL",0,4,3)=""
^DD(50.809,"GL",0,5,7)=""
^DD(50.809,"GL",0,8,4)=""
^DD(50.809,"GL",0,9,5)=""
^DD(50.809,"GL",0,10,6)=""
^DD(50.809,"GL",0,11,8)=""
^DD(50.809,"GR","PSJI",.01,1)=""
^DD(50.809,"GR","PSJI",1,1)=""
^DD(50.809,"GR","PSJI",2,1)=""
^DD(50.809,"GR","PSJI",3,1)=""
^DD(50.809,"GR","PSJI",4,1)=""
^DD(50.809,"GR","PSJI",5,1)=""
^DD(50.809,"GR","PSJI",6,1)=""
^DD(50.809,"GR","PSJI",7,1)=""
^DD(50.809,"GR","PSJI",8,1)=""
^DD(50.809,"IX",.01)=""
^DD(50.9,0)="FIELD^^6^20"
^DD(50.9,0,"DDA")="Y"
^DD(50.9,0,"DT")="2930323"
^DD(50.9,0,"IX","B",50.9,.01)=""
^DD(50.9,0,"NM","DRUG COST")=""
^DD(50.9,0,"VR")="7.0"
^DD(50.9,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(50.9,.01,0)="FILLED DATE^RDXI^^0;1^S %DT=""E"" D ^%DT S X=Y K:(Y<1)!(+$E(Y,6,7)'=0)!(+$E(Y,4,5)=0) X S:$D(X) DINUM=X"
^DD(50.9,.01,1,0)="^.1"
^DD(50.9,.01,1,1,0)="50.9^B"
^DD(50.9,.01,1,1,1)="S ^PSCST(""B"",$E(X,1,30),DA)="""""
^DD(50.9,.01,1,1,2)="K ^PSCST(""B"",$E(X,1,30),DA)"
^DD(50.9,.01,3)="Enter the date the prescription was filled."
^DD(50.9,.01,21,0)="^^1^1^2930316^^^^"
^DD(50.9,.01,21,1,0)="This field is used to enter the date that the prescription was filled."
^DD(50.9,.01,"DT")="2840228"
^DD(50.9,.02,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9,.02,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,.02,21,0)="^^3^3^2930316^^^^"
^DD(50.9,.02,21,1,0)="Respond with the total number of prescriptions filled on the specified"
^DD(50.9,.02,21,2,0)="date."
^DD(50.9,.02,21,3,0)="-- Should not include any refills --"
^DD(50.9,.03,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9,.03,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,.03,21,0)="^^2^2^2920124^^^^"
^DD(50.9,.03,21,1,0)="Respond with the total number of refills for the"
^DD(50.9,.03,21,2,0)="specified date."
^DD(50.9,.035,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9,.035,1)=$S($D(^PSCST(D0,0)):^(0),1:"""") S X=$P(Y(50.9,.035,1),U,2)+$P(Y(50.9,.035,1),U,3) S X=$J(X,0,0)"
^DD(50.9,.035,9)="^"
^DD(50.9,.035,9.01)="50.9^.03;50.9^.02"
^DD(50.9,.035,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9,.035,21,0)="^^1^1^2920124^^^"
^DD(50.9,.035,21,1,0)="Respond by adding all new fills with all refills."
^DD(50.9,.04,0)="TOTAL COST^NJ11,4I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(50.9,.04,3)="Type a Number between 0 and 999999, 4 Decimal Digits"
^DD(50.9,.04,21,0)="^^1^1^2920124^^^^"
^DD(50.9,.04,21,1,0)="Respond by entering the total dollar cost of prescriptions."
^DD(50.9,.04,"DT")="2930323"
^DD(50.9,.045,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9,.035,0),U,5,99) S Y(50.9,.045,2)=X S Y(50.9,.045,1)=$S($D(^PSCST(D0,0)):^(0),1:"""") S X=$P(Y(50.9,.045,1),U,4),X=$S(Y(50.9,.045,2):X/Y(50.9,.045,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9,.045,9)="^"
^DD(50.9,.045,9.01)="50.9^.035;50.9^.04"
^DD(50.9,.045,9.02)="S X=S(""50.9^.04""),X=$S(S(""50.9^.035""):X/S(""50.9^.035""),1:""*******"") S Y=X"
^DD(50.9,.045,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9,.045,21,0)="^^2^2^2920124^^"
^DD(50.9,.045,21,1,0)="Average prescription cost is found by dividing total prescription"
^DD(50.9,.045,21,2,0)="cost by total number of prescriptions filled."
^DD(50.9,.05,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9,.05,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,.05,21,0)="1^^1^1^2930405^^^^"
^DD(50.9,.05,21,1,0)="Respond by entering the actual number of pills dispensed."
^DD(50.9,.055,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.9,.035,0),U,5,99) S Y(50.9,.055,2)=X S Y(50.9,.055,1)=$S($D(^PSCST(D0,0)):^(0),1:"""") S X=$P(Y(50.9,.055,1),U,5),X=$S(Y(50.9,.055,2):X/Y(50.9,.055,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9,.055,9)="^"
^DD(50.9,.055,9.01)="50.9^.035;50.9^.05"
^DD(50.9,.055,9.02)="S X=S(""50.9^.05""),X=$S(S(""50.9^.035""):X/S(""50.9^.035""),1:""*******"") S Y=X"
^DD(50.9,.055,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9,.055,21,0)="2^^2^2^2930405^^"
^DD(50.9,.055,21,1,0)="Divide the total number of pills dispensed by the total "
^DD(50.9,.055,21,2,0)="number of prescriptions to find the average quantity dispensed."
^DD(50.9,.055,22)=" "
^DD(50.9,.06,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9,.06,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,.06,21,0)="^^1^1^2920124^^^^"
^DD(50.9,.06,21,1,0)="Respond with the number of prescriptions distributed by mail."
^DD(50.9,.07,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9,.07,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,.07,21,0)="^^1^1^2920124^^^^"
^DD(50.9,.07,21,1,0)="Respond with the number of prescriptions distributed on site."
^DD(50.9,.07,22)=" "
^DD(50.9,.11,0)="COMPILE DATE^DI^^1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(50.9,.11,3)="Enter the date the proceeding data was gathered."
^DD(50.9,.11,21,0)="^^1^1^2930316^^^"
^DD(50.9,.11,21,1,0)="Enter the date that the proceeding data was gathered."
^DD(50.9,.12,0)="REQUESTS^NJ6,0I^^1;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9,.12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,.12,21,0)="^^1^1^2920123^^"
^DD(50.9,.12,21,1,0)="Enter the number of different patients seen per day."
^DD(50.9,.12,22)="6"
^DD(50.9,.125,0)="AVE COST/REQUEST^CJ10,2^^ ; ^S Y(50.9,.125,1)=$S($D(^PSCST(D0,0)):^(0),1:""""),Y(50.9,.125,2)=$S($D(^(1)):^(1),1:"""") S X=$P(Y(50.9,.125,1),U,4),X=$S($P(Y(50.9,.125,2),U,2):X/$P(Y(50.9,.125,2),U,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9,.125,9)="^"
^DD(50.9,.125,9.01)="50.9^.12;50.9^.04"
^DD(50.9,.125,9.02)="S X=S(""50.9^.04""),X=$S(S(""50.9^.12""):X/S(""50.9^.12""),1:""*******"") S Y=X"
^DD(50.9,.125,9.1)="TOTAL COST/REQUESTS"
^DD(50.9,.125,21,0)="^^1^1^2920124^^^^"
^DD(50.9,.125,21,1,0)="Enter the total cost divided by the number of patients for that day."
^DD(50.9,.125,22)=" "
^DD(50.9,.126,0)="AVE FILLS/REQUEST^CJ10,2^^ ; ^X $P(^DD(50.9,.035,0),U,5,99) S Y(50.9,.126,1)=X S Y(50.9,.126,2)=$S($D(^PSCST(D0,1)):^(1),1:"""") S X=Y(50.9,.126,1),X=$S($P(Y(50.9,.126,2),U,2):X/$P(Y(50.9,.126,2),U,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9,.126,9)="^"
^DD(50.9,.126,9.01)="50.9^.12;50.9^.035"
^DD(50.9,.126,9.02)="S X=S(""50.9^.035""),X=$S(S(""50.9^.12""):X/S(""50.9^.12""),1:""*******"") S Y=X"
^DD(50.9,.126,9.1)="TOTAL FILLS/REQUESTS"
^DD(50.9,.126,21,0)="2^^2^2^2920124^"
^DD(50.9,.126,21,1,0)="To find the average fill, divide the total fills by the number "
^DD(50.9,.126,21,2,0)="of patients for a given day."
^DD(50.9,1,0)="PHYSICIAN DATA^50.9001PA^^P;0"
^DD(50.9,1,21,0)="^^2^2^2930405^^^^"
^DD(50.9,1,21,1,0)="This sub-file is used to store prescription costs as it relates to the "
^DD(50.9,1,21,2,0)="prescribing physician."
^DD(50.9,2,0)="DRUG DATA^50.9003PA^^D;0"
^DD(50.9,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,2,21,0)="^^1^1^2971023^^^^"
^DD(50.9,2,21,1,0)="This sub-file is used to store costs of drugs dispensed."
^DD(50.9,2,"DT")="2840228"
^DD(50.9,3,0)="PATIENT STATUS DATA^50.9005PA^^PS;0"
^DD(50.9,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9,3,21,0)="^^2^2^2971023^^^^"
^DD(50.9,3,21,1,0)="This sub-file is used to store drug costs associated with the clinical "
^DD(50.9,3,21,2,0)="status of the patient."
^DD(50.9,3,"DT")="2840228"
^DD(50.9,4,0)="CLINIC DATA^50.9008P^^S;0"
^DD(50.9,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9,4,21,0)="^^1^1^2930317^^^^"
^DD(50.9,4,21,1,0)="This sub-file is used to store drug cost data associated with clinics."
^DD(50.9,4,"DT")="2840228"
^DD(50.9,5,0)="CLASS DATA^50.9009PA^^C;0"
^DD(50.9,5,21,0)="^^1^1^2971023^^^"
^DD(50.9,5,21,1,0)="This sub-file is used to store drug cost data associated with drug class."
^DD(50.9,6,0)="DIVISION DATA^50.9006PA^^V;0"
^DD(50.9,6,21,0)="^^2^2^2971023^^^^"
^DD(50.9,6,21,1,0)="This sub-file is used to store drug costs associated with divisions"
^DD(50.9,6,21,2,0)="within pharmacy."
^DD(50.9,"B","# ORG FILLS",.02)=""
^DD(50.9,"B","# REFILLS",.03)=""
^DD(50.9,"B","AVE COST/FILL",.045)=""
^DD(50.9,"B","AVE COST/REQUEST",.125)=""
^DD(50.9,"B","AVE FILLS/REQUEST",.126)=""
^DD(50.9,"B","AVE QTY DISPENSED/FILL",.055)=""
^DD(50.9,"B","CLASS DATA",5)=""
^DD(50.9,"B","CLINIC DATA",4)=""
^DD(50.9,"B","COMPILE DATE",.11)=""
^DD(50.9,"B","DIVISION DATA",6)=""
^DD(50.9,"B","DRUG DATA",2)=""
^DD(50.9,"B","FILLED DATE",.01)=""
^DD(50.9,"B","MAILS",.06)=""
^DD(50.9,"B","PATIENT STATUS DATA",3)=""
^DD(50.9,"B","PHYSICIAN DATA",1)=""
^DD(50.9,"B","REQUESTS",.12)=""
^DD(50.9,"B","TOTAL COST",.04)=""
^DD(50.9,"B","TOTAL FILLS",.035)=""
^DD(50.9,"B","TOTAL QTY DISPENSED",.05)=""
^DD(50.9,"B","WINDOWS",.07)=""
^DD(50.9,"GL",0,1,.01)=""
^DD(50.9,"GL",0,2,.02)=""
^DD(50.9,"GL",0,3,.03)=""
^DD(50.9,"GL",0,4,.04)=""
^DD(50.9,"GL",0,5,.05)=""
^DD(50.9,"GL",0,6,.06)=""
^DD(50.9,"GL",0,7,.07)=""
^DD(50.9,"GL",1,1,.11)=""
^DD(50.9,"GL",1,2,.12)=""
^DD(50.9,"GL","C",0,5)=""
^DD(50.9,"GL","D",0,2)=""
^DD(50.9,"GL","P",0,1)=""
^DD(50.9,"GL","PS",0,3)=""
^DD(50.9,"GL","S",0,4)=""
^DD(50.9,"GL","V",0,6)=""
^DD(50.9,"IX",.01)=""
^DD(50.9,"RQ",.01)=""
^DD(50.9,"SB",50.9001,1)=""
^DD(50.9,"SB",50.9003,2)=""
^DD(50.9,"SB",50.9005,3)=""
^DD(50.9,"SB",50.9006,6)=""
^DD(50.9,"SB",50.9008,4)=""
^DD(50.9,"SB",50.9009,5)=""
^DD(50.9001,0)="PHYSICIAN DATA SUB-FIELD^NL^7^11"
^DD(50.9001,0,"NM","PHYSICIAN DATA")=""
^DD(50.9001,0,"UP")="50.9"
^DD(50.9001,.01,0)="PHYSICIAN^P200'IX^VA(200,^0;1^S DINUM=X Q"
^DD(50.9001,.01,3)="Enter the name of the physician."
^DD(50.9001,.01,21,0)="^^1^1^2930405^^^^"
^DD(50.9001,.01,21,1,0)="This field is used to enter the name of the physician."
^DD(50.9001,1,0)="DRUG^50.9002PA^^D;0"
^DD(50.9001,1,21,0)="^^1^1^2930317^^^^"
^DD(50.9001,1,21,1,0)="This sub-file is used to show cost by drug under individual providers."
^DD(50.9001,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9001,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9001,2,21,0)="^^3^3^2930316^^^"
^DD(50.9001,2,21,1,0)="This field is used for the total number of prescriptions filled on the "
^DD(50.9001,2,21,2,0)="specified date."
^DD(50.9001,2,21,3,0)="--Should not include any refills--"
^DD(50.9001,2,23,0)="^^1^1^2930316^^^"
^DD(50.9001,2,23,1,0)="numeric"
^DD(50.9001,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9001,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9001,3,21,0)="^^1^1^2930316^^"
^DD(50.9001,3,21,1,0)="Respond with the total number of refills for the specified date."
^DD(50.9001,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9001,3.5,1)=$S($D(^PSCST(D0,""P"",D1,0)):^(0),1:"""") S X=$P(Y(50.9001,3.5,1),U,2)+$P(Y(50.9001,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9001,3.5,9)="^"
^DD(50.9001,3.5,9.01)="50.9001^3;50.9001^2"
^DD(50.9001,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9001,3.5,21,0)="^^2^2^2930316^^"
^DD(50.9001,3.5,21,1,0)="This field is used to compute the total number of fills.  The total fills"
^DD(50.9001,3.5,21,2,0)="are fills plus refils."
^DD(50.9001,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9001,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9001,4,21,0)="^^2^2^2930316^^"
^DD(50.9001,4,21,1,0)="Respond by entering the actual number of pills dispensed for that "
^DD(50.9001,4,21,2,0)="particular day."
^DD(50.9001,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9001,3.5,0),U,5,99) S Y(50.9001,4.5,2)=X S Y(50.9001,4.5,1)=$S($D(^PSCST(D0,""P"",D1,0)):^(0),1:"""") S X=$P(Y(50.9001,4.5,1),U,4),X=$S(Y(50.9001,4.5,2):X/Y(50.9001,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9001,4.5,9)="^"
^DD(50.9001,4.5,9.01)="50.9001^3.5;50.9001^4"
^DD(50.9001,4.5,9.02)="S X=S(""50.9001^4""),X=$S(S(""50.9001^3.5""):X/S(""50.9001^3.5""),1:""*******"") S Y=X"
^DD(50.9001,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9001,4.5,21,0)="^^1^1^2930104^"
^DD(50.9001,4.5,21,1,0)="This field computes the average of medication dispensed."
^DD(50.9001,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9001,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9001,5,21,0)="2^^2^2^2930405^^"
^DD(50.9001,5,21,1,0)="This field is used to indicate the total quantity of medication"
^DD(50.9001,5,21,2,0)="dispensed."
^DD(50.9001,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.9001,3.5,0),U,5,99) S Y(50.9001,5.5,2)=X S Y(50.9001,5.5,1)=$S($D(^PSCST(D0,""P"",D1,0)):^(0),1:"""") S X=$P(Y(50.9001,5.5,1),U,5),X=$S(Y(50.9001,5.5,2):X/Y(50.9001,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9001,5.5,9)="^"
^DD(50.9001,5.5,9.01)="50.9001^3.5;50.9001^5"
^DD(50.9001,5.5,9.02)="S X=S(""50.9001^5""),X=$S(S(""50.9001^3.5""):X/S(""50.9001^3.5""),1:""*******"") S Y=X"
^DD(50.9001,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9001,5.5,21,0)="^^2^2^2930405^^^^"
^DD(50.9001,5.5,21,1,0)="Divide the total number of pills dispensed by the total number of "
^DD(50.9001,5.5,21,2,0)="prescriptions to find the average quantity dispensed."
^DD(50.9001,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9001,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9001,6,21,0)="^^1^1^2930316^^^^"
^DD(50.9001,6,21,1,0)="Enter the number of prescriptions distributed by mail."
^DD(50.9001,6,22)=" "
^DD(50.9001,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9001,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9001,7,21,0)="^^1^1^2930316^^"
^DD(50.9001,7,21,1,0)="Respond with the number of prescriptions distributed on site."
^DD(50.9001,"B","# ORG FILLS",2)=""
^DD(50.9001,"B","# REFILLS",3)=""
^DD(50.9001,"B","AVE COST/FILL",4.5)=""
^DD(50.9001,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.9001,"B","DRUG",1)=""
^DD(50.9001,"B","MAILS",6)=""
^DD(50.9001,"B","PHYSICIAN",.01)=""
^DD(50.9001,"B","TOTAL COST",4)=""
^DD(50.9001,"B","TOTAL FILLS",3.5)=""
^DD(50.9001,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9001,"B","WINDOWS",7)=""
^DD(50.9001,"GL",0,1,.01)=""
^DD(50.9001,"GL",0,2,2)=""
^DD(50.9001,"GL",0,3,3)=""
^DD(50.9001,"GL",0,4,4)=""
^DD(50.9001,"GL",0,5,5)=""
^DD(50.9001,"GL",0,6,6)=""
^DD(50.9001,"GL",0,7,7)=""
^DD(50.9001,"GL","D",0,1)=""
^DD(50.9001,"SB",50.9002,1)=""
^DD(50.9002,0)="DRUG SUB-FIELD^NL^7^10"
^DD(50.9002,0,"NM","DRUG")=""
^DD(50.9002,0,"UP")="50.9001"
^DD(50.9002,.01,0)="DRUG^P50'IX^PSDRUG(^0;1^S DINUM=X Q"
^DD(50.9002,.01,3)="Enter the name of the dispensed drug."
^DD(50.9002,.01,21,0)="^^1^1^2930317^^^"
^DD(50.9002,.01,21,1,0)="This field is used to indicate the drug dispensed."
^DD(50.9002,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9002,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9002,2,21,0)="^^3^3^2920123^^"
^DD(50.9002,2,21,1,0)="Respond with the total number of prescriptions filled "
^DD(50.9002,2,21,2,0)="on the specific date."
^DD(50.9002,2,21,3,0)="         --Should not include any refills--"
^DD(50.9002,2,22)=" "
^DD(50.9002,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9002,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9002,3,21,0)="^^2^2^2920123^"
^DD(50.9002,3,21,1,0)="Respond with the total number of refills for the"
^DD(50.9002,3,21,2,0)="specified date."
^DD(50.9002,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9002,3.5,1)=$S($D(^PSCST(D0,""P"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9002,3.5,1),U,2)+$P(Y(50.9002,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9002,3.5,9)="^"
^DD(50.9002,3.5,9.01)="50.9002^3;50.9002^2"
^DD(50.9002,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9002,3.5,21,0)="^^1^1^2930104^^"
^DD(50.9002,3.5,21,1,0)="Respond by adding all new fills with all refills."
^DD(50.9002,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9002,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9002,4,21,0)="^^1^1^2920123^"
^DD(50.9002,4,21,1,0)="Respond by entering the total dollar cost of prescriptions."
^DD(50.9002,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9002,3.5,0),U,5,99) S Y(50.9002,4.5,2)=X S Y(50.9002,4.5,1)=$S($D(^PSCST(D0,""P"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9002,4.5,1),U,4),X=$S(Y(50.9002,4.5,2):X/Y(50.9002,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9002,4.5,9)="^"
^DD(50.9002,4.5,9.01)="50.9002^3.5;50.9002^4"
^DD(50.9002,4.5,9.02)="S X=S(""50.9002^4""),X=$S(S(""50.9002^3.5""):X/S(""50.9002^3.5""),1:""*******"") S Y=X"
^DD(50.9002,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9002,4.5,21,0)="^^2^2^2920123^"
^DD(50.9002,4.5,21,1,0)="Average prescription cost is found by dividing total prescription"
^DD(50.9002,4.5,21,2,0)="cost by total number of prescriptions filled."
^DD(50.9002,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9002,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9002,5,21,0)="^^2^2^2920123^"
^DD(50.9002,5,21,1,0)="Respond by entering the actual number of pills dispensed"
^DD(50.9002,5,21,2,0)="for that particular day."
^DD(50.9002,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.9002,3.5,0),U,5,99) S Y(50.9002,5.5,2)=X S Y(50.9002,5.5,1)=$S($D(^PSCST(D0,""P"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9002,5.5,1),U,5),X=$S(Y(50.9002,5.5,2):X/Y(50.9002,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9002,5.5,9)="^"
^DD(50.9002,5.5,9.01)="50.9002^3.5;50.9002^5"
^DD(50.9002,5.5,9.02)="S X=S(""50.9002^5""),X=$S(S(""50.9002^3.5""):X/S(""50.9002^3.5""),1:""*******"") S Y=X"
^DD(50.9002,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9002,5.5,21,0)="^^1^1^2930104^"
^DD(50.9002,5.5,21,1,0)="This field is used to inidcate the average quantity dispensed per fill."
^DD(50.9002,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9002,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9002,6,21,0)="^^1^1^2920123^"
^DD(50.9002,6,21,1,0)="Respond with the number of prescriptions distributed by mail."
^DD(50.9002,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9002,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9002,7,21,0)="^^1^1^2920123^"
^DD(50.9002,7,21,1,0)="Respond with the number of prescriptions distributed on site."
^DD(50.9002,"B","# ORG FILLS",2)=""
^DD(50.9002,"B","# REFILLS",3)=""
^DD(50.9002,"B","AVE COST/FILL",4.5)=""
^DD(50.9002,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.9002,"B","DRUG",.01)=""
^DD(50.9002,"B","MAILS",6)=""
^DD(50.9002,"B","TOTAL COST",4)=""
^DD(50.9002,"B","TOTAL FILLS",3.5)=""
^DD(50.9002,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9002,"B","WINDOWS",7)=""
^DD(50.9002,"GL",0,1,.01)=""
^DD(50.9002,"GL",0,2,2)=""
^DD(50.9002,"GL",0,3,3)=""
^DD(50.9002,"GL",0,4,4)=""
^DD(50.9002,"GL",0,5,5)=""
^DD(50.9002,"GL",0,6,6)=""
^DD(50.9002,"GL",0,7,7)=""
^DD(50.9003,0)="DRUG DATA SUB-FIELD^NL^7^11"
^DD(50.9003,0,"NM","DRUG DATA")=""
^DD(50.9003,0,"UP")="50.9"
^DD(50.9003,.01,0)="DRUG^P50'IX^PSDRUG(^0;1^S DINUM=X Q"
^DD(50.9003,.01,3)="Enter the name of the prescribed drug."
^DD(50.9003,.01,21,0)="^^1^1^2930317^^^^"
^DD(50.9003,.01,21,1,0)="Enter the name of the prescribed drug."
^DD(50.9003,.01,22)=""
^DD(50.9003,1,0)="PHYSICIAN^50.9004PA^^P;0"
^DD(50.9003,1,21,0)="^^1^1^2971023^^^^"
^DD(50.9003,1,21,1,0)="This sub-file is used to store drug cost by provider."
^DD(50.9003,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9003,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9003,2,21,0)="^^3^3^2920127^^"
^DD(50.9003,2,21,1,0)="Respond with the total number of prescriptions filled"
^DD(50.9003,2,21,2,0)="on the specified date."
^DD(50.9003,2,21,3,0)="         --Should not include any refills--"
^DD(50.9003,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9003,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9003,3,21,0)="^^1^1^2930316^^^^"
^DD(50.9003,3,21,1,0)="Respond with the total number of refills for the specified date."
^DD(50.9003,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9003,3.5,1)=$S($D(^PSCST(D0,""D"",D1,0)):^(0),1:"""") S X=$P(Y(50.9003,3.5,1),U,2)+$P(Y(50.9003,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9003,3.5,9)="^"
^DD(50.9003,3.5,9.01)="50.9003^3;50.9003^2"
^DD(50.9003,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9003,3.5,21,0)="^^1^1^2920124^"
^DD(50.9003,3.5,21,1,0)="Respond by adding all new fills with all refills."
^DD(50.9003,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9003,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9003,4,21,0)="^^1^1^2920124^^^"
^DD(50.9003,4,21,1,0)="Respond by entering the total dollar cost of prescriptions."
^DD(50.9003,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9003,3.5,0),U,5,99) S Y(50.9003,4.5,2)=X S Y(50.9003,4.5,1)=$S($D(^PSCST(D0,""D"",D1,0)):^(0),1:"""") S X=$P(Y(50.9003,4.5,1),U,4),X=$S(Y(50.9003,4.5,2):X/Y(50.9003,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9003,4.5,9)="^"
^DD(50.9003,4.5,9.01)="50.9003^3.5;50.9003^4"
^DD(50.9003,4.5,9.02)="S X=S(""50.9003^4""),X=$S(S(""50.9003^3.5""):X/S(""50.9003^3.5""),1:""*******"") S Y=X"
^DD(50.9003,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9003,4.5,21,0)="^^2^2^2920124^"
^DD(50.9003,4.5,21,1,0)="Average prescription cost is found by dividing total prescription"
^DD(50.9003,4.5,21,2,0)="cost by total number of prescriptions filled."
^DD(50.9003,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9003,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9003,5,21,0)="^^2^2^2930405^^^^"
^DD(50.9003,5,21,1,0)="Respond by entering the actual number of pills dispensed"
^DD(50.9003,5,21,2,0)="for that particular day."
^DD(50.9003,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.9003,3.5,0),U,5,99) S Y(50.9003,5.5,2)=X S Y(50.9003,5.5,1)=$S($D(^PSCST(D0,""D"",D1,0)):^(0),1:"""") S X=$P(Y(50.9003,5.5,1),U,5),X=$S(Y(50.9003,5.5,2):X/Y(50.9003,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9003,5.5,9)="^"
^DD(50.9003,5.5,9.01)="50.9003^3.5;50.9003^5"
^DD(50.9003,5.5,9.02)="S X=S(""50.9003^5""),X=$S(S(""50.9003^3.5""):X/S(""50.9003^3.5""),1:""*******"") S Y=X"
^DD(50.9003,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9003,5.5,21,0)="2^^2^2^2920128^^"
^DD(50.9003,5.5,21,1,0)="Divide the total number of pills dispensed by the total"
^DD(50.9003,5.5,21,2,0)="number of prescriptions to find the average quantity dispensed."
^DD(50.9003,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9003,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9003,6,21,0)="^^1^1^2921117^^"
^DD(50.9003,6,21,1,0)="This field is used to show the number of prescriptions distributed by mail."
^DD(50.9003,6,23,0)="^^1^1^2921117^"
^DD(50.9003,6,23,1,0)="numeric"
^DD(50.9003,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9003,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9003,7,21,0)="^^1^1^2921117^^^^"
^DD(50.9003,7,21,1,0)="This field is used to show the number of prescriptions distributed on site."
^DD(50.9003,7,23,0)="^^1^1^2921117^"
^DD(50.9003,7,23,1,0)="numeric"
^DD(50.9003,"B","# ORG FILLS",2)=""
^DD(50.9003,"B","# REFILLS",3)=""
^DD(50.9003,"B","AVE COST/FILL",4.5)=""
^DD(50.9003,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.9003,"B","DRUG",.01)=""
^DD(50.9003,"B","MAILS",6)=""
^DD(50.9003,"B","PHYSICIAN",1)=""
^DD(50.9003,"B","TOTAL COST",4)=""
^DD(50.9003,"B","TOTAL FILLS",3.5)=""
^DD(50.9003,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9003,"B","WINDOWS",7)=""
^DD(50.9003,"GL",0,1,.01)=""
^DD(50.9003,"GL",0,2,2)=""
^DD(50.9003,"GL",0,3,3)=""
^DD(50.9003,"GL",0,4,4)=""
^DD(50.9003,"GL",0,5,5)=""
^DD(50.9003,"GL",0,6,6)=""
^DD(50.9003,"GL",0,7,7)=""
^DD(50.9003,"GL","P",0,1)=""
^DD(50.9003,"SB",50.9004,1)=""
^DD(50.9004,0)="PHYSICIAN SUB-FIELD^NL^7^10"
^DD(50.9004,0,"NM","PHYSICIAN")=""
^DD(50.9004,0,"UP")="50.9003"
^DD(50.9004,.01,0)="PHYSICIAN^P200'IX^VA(200,^0;1^S DINUM=X Q"
^DD(50.9004,.01,21,0)="^^1^1^2930104^"
^DD(50.9004,.01,21,1,0)="This field is used to indicate the proviver cost sorted by drug dispensed."
^DD(50.9004,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9004,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9004,2,21,0)="^^3^3^2930317^^"
^DD(50.9004,2,21,1,0)="Respond with the total number of prescriptions filled on the"
^DD(50.9004,2,21,2,0)="specified date."
^DD(50.9004,2,21,3,0)="             --Should not include any refills--"
^DD(50.9004,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9004,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9004,3,21,0)="^^2^2^2920123^"
^DD(50.9004,3,21,1,0)="Respond with the total number of refills for the "
^DD(50.9004,3,21,2,0)="specified date."
^DD(50.9004,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9004,3.5,1)=$S($D(^PSCST(D0,""D"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(50.9004,3.5,1),U,2)+$P(Y(50.9004,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9004,3.5,9)="^"
^DD(50.9004,3.5,9.01)="50.9004^3;50.9004^2"
^DD(50.9004,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9004,3.5,21,0)="^^1^1^2920123^"
^DD(50.9004,3.5,21,1,0)="Respond by adding all new fills with all refills."
^DD(50.9004,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9004,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9004,4,21,0)="^^1^1^2920123^"
^DD(50.9004,4,21,1,0)="Respond by entering the total dollar cost of prescriptions."
^DD(50.9004,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9004,3.5,0),U,5,99) S Y(50.9004,4.5,2)=X S Y(50.9004,4.5,1)=$S($D(^PSCST(D0,""D"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(50.9004,4.5,1),U,4),X=$S(Y(50.9004,4.5,2):X/Y(50.9004,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9004,4.5,9)="^"
^DD(50.9004,4.5,9.01)="50.9004^3.5;50.9004^4"
^DD(50.9004,4.5,9.02)="S X=S(""50.9004^4""),X=$S(S(""50.9004^3.5""):X/S(""50.9004^3.5""),1:""*******"") S Y=X"
^DD(50.9004,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9004,4.5,21,0)="^^2^2^2920123^"
^DD(50.9004,4.5,21,1,0)="Average prescription cost is found by dividing total prescription"
^DD(50.9004,4.5,21,2,0)="cost by total number of prescriptions filled."
^DD(50.9004,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9004,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9004,5,21,0)="^^1^1^2920123^"
^DD(50.9004,5,21,1,0)="Respond by entering the total dollar cost of prescriptions."
^DD(50.9004,5.5,0)="AVE QTY DISPENSED^CJ10,0^^ ; ^X $P(^DD(50.9004,3.5,0),U,5,99) S Y(50.9004,5.5,2)=X S Y(50.9004,5.5,1)=$S($D(^PSCST(D0,""D"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(50.9004,5.5,1),U,5),X=$S(Y(50.9004,5.5,2):X/Y(50.9004,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9004,5.5,9)="^"
^DD(50.9004,5.5,9.01)="50.9004^3.5;50.9004^5"
^DD(50.9004,5.5,9.02)="S X=S(""50.9004^5""),X=$S(S(""50.9004^3.5""):X/S(""50.9004^3.5""),1:""*******"") S Y=X"
^DD(50.9004,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9004,5.5,21,0)="^^2^2^2930104^^"
^DD(50.9004,5.5,21,1,0)="This filed is used to compute the average quantity dispensed for this provider"
^DD(50.9004,5.5,21,2,0)="sorted by drug."
^DD(50.9004,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9004,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9004,6,21,0)="^^1^1^2971023^^^"
^DD(50.9004,6,21,1,0)="This field is used to indicate the number of prescriptions dispensed by mail."
^DD(50.9004,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9004,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9004,7,21,0)="^^2^2^2930104^"
^DD(50.9004,7,21,1,0)="This field is used to indicate the number of prescriptions dispensed at"
^DD(50.9004,7,21,2,0)="the window."
^DD(50.9004,"B","# ORG FILLS",2)=""
^DD(50.9004,"B","# REFILLS",3)=""
^DD(50.9004,"B","AVE COST/FILL",4.5)=""
^DD(50.9004,"B","AVE QTY DISPENSED",5.5)=""
^DD(50.9004,"B","MAILS",6)=""
^DD(50.9004,"B","PHYSICIAN",.01)=""
^DD(50.9004,"B","TOTAL COST",4)=""
^DD(50.9004,"B","TOTAL FILLS",3.5)=""
^DD(50.9004,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9004,"B","WINDOWS",7)=""
^DD(50.9004,"GL",0,1,.01)=""
^DD(50.9004,"GL",0,2,2)=""
^DD(50.9004,"GL",0,3,3)=""
^DD(50.9004,"GL",0,4,4)=""
^DD(50.9004,"GL",0,5,5)=""
^DD(50.9004,"GL",0,6,6)=""
^DD(50.9004,"GL",0,7,7)=""
^DD(50.9005,0)="PATIENT STATUS DATA SUB-FIELD^NL^100^11"
^DD(50.9005,0,"NM","PATIENT STATUS DATA")=""
^DD(50.9005,0,"UP")="50.9"
^DD(50.9005,.01,0)="PATIENT STATUS^P53'IX^PS(53,^0;1^S DINUM=X Q"
^DD(50.9005,.01,3)="Enter the prescription status of the patient."
^DD(50.9005,.01,21,0)="^^1^1^2930316^^^^"
^DD(50.9005,.01,21,1,0)="This field is used to show the status of the patient."
^DD(50.9005,.01,22)=""
^DD(50.9005,.01,23,0)="^^1^1^2930316^^"
^DD(50.9005,.01,23,1,0)="pointer"
^DD(50.9005,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9005,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9005,2,21,0)="^^3^3^2920124^^^"
^DD(50.9005,2,21,1,0)="Respond with the total number of prescriptions filled"
^DD(50.9005,2,21,2,0)="on the specified date."
^DD(50.9005,2,21,3,0)="         --Should not include any refills--"
^DD(50.9005,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9005,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9005,3,21,0)="2"
^DD(50.9005,3,21,1,0)="Respond with the total number of refills for the "
^DD(50.9005,3,21,2,0)="specified date."
^DD(50.9005,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9005,3.5,1)=$S($D(^PSCST(D0,""PS"",D1,0)):^(0),1:"""") S X=$P(Y(50.9005,3.5,1),U,2)+$P(Y(50.9005,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9005,3.5,9)="^"
^DD(50.9005,3.5,9.01)="50.9005^3;50.9005^2"
^DD(50.9005,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9005,3.5,21,0)="^^1^1^2920124^"
^DD(50.9005,3.5,21,1,0)="Respond by adding all new fills to all refills."
^DD(50.9005,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9005,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9005,4,21,0)="^^1^1^2920124^"
^DD(50.9005,4,21,1,0)="Respond by entering the dollar cost of prescriptions."
^DD(50.9005,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9005,3.5,0),U,5,99) S Y(50.9005,4.5,2)=X S Y(50.9005,4.5,1)=$S($D(^PSCST(D0,""PS"",D1,0)):^(0),1:"""") S X=$P(Y(50.9005,4.5,1),U,4),X=$S(Y(50.9005,4.5,2):X/Y(50.9005,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9005,4.5,9)="^"
^DD(50.9005,4.5,9.01)="50.9005^3.5;50.9005^4"
^DD(50.9005,4.5,9.02)="S X=S(""50.9005^4""),X=$S(S(""50.9005^3.5""):X/S(""50.9005^3.5""),1:""*******"") S Y=X"
^DD(50.9005,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9005,4.5,21,0)="^^2^2^2920124^"
^DD(50.9005,4.5,21,1,0)="Average prescription cost is found by dividing total prescription"
^DD(50.9005,4.5,21,2,0)="cost by total number of prescriptions filled."
^DD(50.9005,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9005,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9005,5,21,0)="^^1^1^2920124^"
^DD(50.9005,5,21,1,0)="Respond by entering the actual number of pills dispensed."
^DD(50.9005,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.9005,3.5,0),U,5,99) S Y(50.9005,5.5,2)=X S Y(50.9005,5.5,1)=$S($D(^PSCST(D0,""PS"",D1,0)):^(0),1:"""") S X=$P(Y(50.9005,5.5,1),U,5),X=$S(Y(50.9005,5.5,2):X/Y(50.9005,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9005,5.5,9)="^"
^DD(50.9005,5.5,9.01)="50.9005^3.5;50.9005^5"
^DD(50.9005,5.5,9.02)="S X=S(""50.9005^5""),X=$S(S(""50.9005^3.5""):X/S(""50.9005^3.5""),1:""*******"") S Y=X"
^DD(50.9005,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9005,5.5,21,0)="^^1^1^2930104^"
^DD(50.9005,5.5,21,1,0)="This field is used to compute the average quantity dispensed per fill/"
^DD(50.9005,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9005,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9005,6,21,0)="^^1^1^2930316^^"
^DD(50.9005,6,21,1,0)="Respond with the number of prescriptions distributed by mail."
^DD(50.9005,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9005,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9005,7,21,0)="^^1^1^2930317^^^^"
^DD(50.9005,7,21,1,0)="Respond with the number of prescriptions distributed on site."
^DD(50.9005,7,22)=" "
^DD(50.9005,100,0)="AMIS GROUP^CJ10^^ ; ^X ^DD(50.9005,100,9.3) S X=$P($P(Y(50.9005,100,102),$C(59)_$P(Y(50.9005,100,101),U,6)_"":"",2),$C(59),1) S D0=Y(50.9005,100,2)"
^DD(50.9005,100,9)="^"
^DD(50.9005,100,9.01)="53^6;50.9005^.01"
^DD(50.9005,100,9.1)=".01:6"
^DD(50.9005,100,9.2)="S Y(50.9005,100,2)=$S($D(D0):D0,1:""""),Y(50.9005,100,1)=$S($D(^PSCST(D0,""PS"",D1,0)):^(0),1:""""),D0=$P(Y(50.9005,100,1),U,1) S:'$D(^DIC(53,+D0,0)) D0=-1"
^DD(50.9005,100,9.3)="X ^DD(50.9005,100,9.2) S Y(50.9005,100,102)=$C(59)_$S($D(^DD(53,6,0)):$P(^(0),U,3),1:""""),Y(50.9005,100,101)=$S($D(^DIC(53,D0,0)):^(0),1:"""")"
^DD(50.9005,100,21,0)="^^1^1^2971023^"
^DD(50.9005,100,21,1,0)="Contains Amis group data."
^DD(50.9005,"B","# ORG FILLS",2)=""
^DD(50.9005,"B","# REFILLS",3)=""
^DD(50.9005,"B","AMIS GROUP",100)=""
^DD(50.9005,"B","AVE COST/FILL",4.5)=""
^DD(50.9005,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.9005,"B","MAILS",6)=""
^DD(50.9005,"B","PATIENT STATUS",.01)=""
^DD(50.9005,"B","TOTAL COST",4)=""
^DD(50.9005,"B","TOTAL FILLS",3.5)=""
^DD(50.9005,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9005,"B","WINDOWS",7)=""
^DD(50.9005,"GL",0,1,.01)=""
^DD(50.9005,"GL",0,2,2)=""
^DD(50.9005,"GL",0,3,3)=""
^DD(50.9005,"GL",0,4,4)=""
^DD(50.9005,"GL",0,5,5)=""
^DD(50.9005,"GL",0,6,6)=""
^DD(50.9005,"GL",0,7,7)=""
^DD(50.9006,0)="DIVISION DATA SUB-FIELD^NL^7^21"
^DD(50.9006,0,"NM","DIVISION DATA")=""
^DD(50.9006,0,"UP")="50.9"
^DD(50.9006,.01,0)="DIVISION^P59'XI^PS(59,^0;1^S DINUM=X Q"
^DD(50.9006,.01,3)="Enter the division number within pharmacy."
^DD(50.9006,.01,21,0)="^^1^1^2930317^^^^"
^DD(50.9006,.01,21,1,0)="This field is used to indicate the division within pharmacy."
^DD(50.9006,.01,"DT")="2840229"
^DD(50.9006,.02,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,.02,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,.02,21,0)="^^1^1^2930104^"
^DD(50.9006,.02,21,1,0)="This field is used to indicate the number of original fills for a division."
^DD(50.9006,.02,"DT")="2840229"
^DD(50.9006,.03,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,.03,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,.03,21,0)="^^2^2^2930104^"
^DD(50.9006,.03,21,1,0)="This field is used to indicate the number of refills for a division within"
^DD(50.9006,.03,21,2,0)="pharmacy."
^DD(50.9006,.03,"DT")="2840229"
^DD(50.9006,.035,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9006,.035,1)=$S($D(^PSCST(D0,""V"",D1,0)):^(0),1:"""") S X=$P(Y(50.9006,.035,1),U,2)+$P(Y(50.9006,.035,1),U,3) S X=$J(X,0,0)"
^DD(50.9006,.035,9)="^"
^DD(50.9006,.035,9.01)="50.9006^.03;50.9006^.02"
^DD(50.9006,.035,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9006,.035,21,0)="^^1^1^2930104^"
^DD(50.9006,.035,21,1,0)="This field is used to indicate the total number of fills (fills+refills)."
^DD(50.9006,.04,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9006,.04,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,.04,21,0)="^^1^1^2930104^"
^DD(50.9006,.04,21,1,0)="This field is used to indicate the total cost per division by patient status."
^DD(50.9006,.04,"DT")="2840229"
^DD(50.9006,.045,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9006,.035,0),U,5,99) S Y(50.9006,.045,2)=X S Y(50.9006,.045,1)=$S($D(^PSCST(D0,""V"",D1,0)):^(0),1:"""") S X=$P(Y(50.9006,.045,1),U,4),X=$S(Y(50.9006,.045,2):X/Y(50.9006,.045,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9006,.045,9)="^"
^DD(50.9006,.045,9.01)="50.9006^.035;50.9006^.04"
^DD(50.9006,.045,9.02)="S X=S(""50.9006^.04""),X=$S(S(""50.9006^.035""):X/S(""50.9006^.035""),1:""*******"") S Y=X"
^DD(50.9006,.045,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9006,.045,21,0)="^^1^1^2930104^"
^DD(50.9006,.045,21,1,0)="This field is used to indicate the average cost per fill."
^DD(50.9006,.05,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,.05,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,.05,21,0)="^^2^2^2930104^^"
^DD(50.9006,.05,21,1,0)="This field is used to indicate the total quantity dispensed per"
^DD(50.9006,.05,21,2,0)="prescription."
^DD(50.9006,.05,"DT")="2840229"
^DD(50.9006,.055,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.9006,.035,0),U,5,99) S Y(50.9006,.055,2)=X S Y(50.9006,.055,1)=$S($D(^PSCST(D0,""V"",D1,0)):^(0),1:"""") S X=$P(Y(50.9006,.055,1),U,5),X=$S(Y(50.9006,.055,2):X/Y(50.9006,.055,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9006,.055,9)="^"
^DD(50.9006,.055,9.01)="50.9006^.035;50.9006^.05"
^DD(50.9006,.055,9.02)="S X=S(""50.9006^.05""),X=$S(S(""50.9006^.035""):X/S(""50.9006^.035""),1:""*******"") S Y=X"
^DD(50.9006,.055,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9006,.055,21,0)="^^1^1^2930104^"
^DD(50.9006,.055,21,1,0)="This field is used to indicate the average quantity dispensed per fill."
^DD(50.9006,.06,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,.06,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,.06,21,0)="^^2^2^2930104^"
^DD(50.9006,.06,21,1,0)="This field is used to indicate the number of prescriptions dispensed by"
^DD(50.9006,.06,21,2,0)="mail sorted by patient status."
^DD(50.9006,.06,"DT")="2840229"
^DD(50.9006,.07,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,.07,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,.07,21,0)="^^2^2^2930104^"
^DD(50.9006,.07,21,1,0)="This field is used to indicate the number of prescription dispensed by"
^DD(50.9006,.07,21,2,0)="mail sorted by patient status."
^DD(50.9006,.07,"DT")="2840229"
^DD(50.9006,.08,0)="REQUESTS^NJ8,0^^0;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,.08,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(50.9006,.08,21,0)="^^2^2^2990630^^"
^DD(50.9006,.08,21,1,0)="These are the number of unique patients seen for the day associated with"
^DD(50.9006,.08,21,2,0)="divisions within pharmacy."
^DD(50.9006,.08,"DT")="2990622"
^DD(50.9006,1,0)="PHYSICIAN DATA^50.901PA^^P;0"
^DD(50.9006,1,21,0)="^^1^1^2971023^^^^"
^DD(50.9006,1,21,1,0)="This sub-file contains fill data for physicians."
^DD(50.9006,2,0)="DRUG DATA^50.9007PA^^D;0"
^DD(50.9006,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,2,21,0)="^^1^1^2930405^^^^"
^DD(50.9006,2,21,1,0)="Enter the name of drug prescribed."
^DD(50.9006,2,22)=""
^DD(50.9006,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,3,21,0)="^^2^2^2920124^^"
^DD(50.9006,3,21,1,0)="Respond with the total number of refills for the"
^DD(50.9006,3,21,2,0)="specified date."
^DD(50.9006,3,22)=" "
^DD(50.9006,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9006,3.5,1)=$S($D(^PSCST(D0,""PS"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9006,3.5,1),U,2)+$P(Y(50.9006,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9006,3.5,9)="^"
^DD(50.9006,3.5,9.01)="50.9006^3;50.9006^2"
^DD(50.9006,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9006,3.5,21,0)="^^1^1^2920124^"
^DD(50.9006,3.5,21,1,0)="Respond by adding all new fills with all refills."
^DD(50.9006,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9006,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,4,21,0)="^^1^1^2920124^"
^DD(50.9006,4,21,1,0)="Respond by entering the total dollar cost of precriptions."
^DD(50.9006,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9006,3.5,0),U,5,99) S Y(50.9006,4.5,2)=X S Y(50.9006,4.5,1)=$S($D(^PSCST(D0,""PS"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9006,4.5,1),U,4),X=$S(Y(50.9006,4.5,2):X/Y(50.9006,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9006,4.5,9)="^"
^DD(50.9006,4.5,9.01)="50.9006^3.5;50.9006^4"
^DD(50.9006,4.5,9.02)="S X=S(""50.9006^4""),X=$S(S(""50.9006^3.5""):X/S(""50.9006^3.5""),1:""*******"") S Y=X"
^DD(50.9006,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9006,4.5,21,0)="^^2^2^2920124^"
^DD(50.9006,4.5,21,1,0)="Average prescription cost is found by dividing total prescription"
^DD(50.9006,4.5,21,2,0)="costs by total number of prescriptions filled."
^DD(50.9006,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,5,21,0)="^^1^1^2930405^^^"
^DD(50.9006,5,21,1,0)="Respond by entering the actual number of pills dispensed."
^DD(50.9006,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.9006,3.5,0),U,5,99) S Y(50.9006,5.5,2)=X S Y(50.9006,5.5,1)=$S($D(^PSCST(D0,""PS"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9006,5.5,1),U,5),X=$S(Y(50.9006,5.5,2):X/Y(50.9006,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9006,5.5,9)="^"
^DD(50.9006,5.5,9.01)="50.9006^3.5;50.9006^5"
^DD(50.9006,5.5,9.02)="S X=S(""50.9006^5""),X=$S(S(""50.9006^3.5""):X/S(""50.9006^3.5""),1:""*******"") S Y=X"
^DD(50.9006,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9006,5.5,21,0)="^^1^1^2930405^^"
^DD(50.9006,5.5,21,1,0)="This field is used to indicate the average quantity dispensed per fill."
^DD(50.9006,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,6,21,0)="^^1^1^2920124^"
^DD(50.9006,6,21,1,0)="Respond with the number of prescriptions distributed by mail."
^DD(50.9006,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9006,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9006,7,21,0)="^^1^1^2920124^"
^DD(50.9006,7,21,1,0)="Respond with the number of prescriptions distributed on site."
^DD(50.9006,"B","# ORG FILLS",.02)=""
^DD(50.9006,"B","# REFILLS",.03)=""
^DD(50.9006,"B","# REFILLS",3)=""
^DD(50.9006,"B","AVE COST/FILL",.045)=""
^DD(50.9006,"B","AVE COST/FILL",4.5)=""
^DD(50.9006,"B","AVE QTY DISPENSED/FILL",.055)=""
^DD(50.9006,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.9006,"B","DIVISION",.01)=""
^DD(50.9006,"B","DRUG DATA",2)=""
^DD(50.9006,"B","MAILS",.06)=""
^DD(50.9006,"B","MAILS",6)=""
^DD(50.9006,"B","PHYSICIAN DATA",1)=""
^DD(50.9006,"B","REQUESTS",.08)=""
^DD(50.9006,"B","TOTAL COST",.04)=""
^DD(50.9006,"B","TOTAL COST",4)=""
^DD(50.9006,"B","TOTAL FILLS",.035)=""
^DD(50.9006,"B","TOTAL FILLS",3.5)=""
^DD(50.9006,"B","TOTAL QTY DISPENSED",.05)=""
^DD(50.9006,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9006,"B","WINDOWS",.07)=""
^DD(50.9006,"B","WINDOWS",7)=""
^DD(50.9006,"GL",0,1,.01)=""
^DD(50.9006,"GL",0,2,.02)=""
^DD(50.9006,"GL",0,3,.03)=""
^DD(50.9006,"GL",0,3,3)=""
^DD(50.9006,"GL",0,4,.04)=""
^DD(50.9006,"GL",0,4,4)=""
^DD(50.9006,"GL",0,5,.05)=""
^DD(50.9006,"GL",0,5,5)=""
^DD(50.9006,"GL",0,6,.06)=""
^DD(50.9006,"GL",0,6,6)=""
^DD(50.9006,"GL",0,7,.07)=""
^DD(50.9006,"GL",0,7,7)=""
^DD(50.9006,"GL",0,8,.08)=""
^DD(50.9006,"GL","D",0,2)=""
^DD(50.9006,"GL","P",0,1)=""
^DD(50.9006,"SB",50.9007,2)=""
^DD(50.9006,"SB",50.901,1)=""
^DD(50.9007,0)="DRUG DATA SUB-FIELD^NL^7^10"
^DD(50.9007,0,"NM","DRUG DATA")=""
^DD(50.9007,0,"UP")="50.9006"
^DD(50.9007,.01,0)="DRUG^P50'XI^PSDRUG(^0;1^S DINUM=X Q"
^DD(50.9007,.01,21,0)="^^2^2^2930104^"
^DD(50.9007,.01,21,1,0)="This field is used to indicate the drug dispensed within division sorted"
^DD(50.9007,.01,21,2,0)="by patient status."
^DD(50.9007,.01,"DT")="2840229"
^DD(50.9007,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9007,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9007,2,21,0)="^^3^3^2920124^^"
^DD(50.9007,2,21,1,0)="Respond with the total number of prescriptions filled"
^DD(50.9007,2,21,2,0)="on the specified date."
^DD(50.9007,2,21,3,0)="         --SHOULD NOT INCLUDE ANY REFILLS--"
^DD(50.9007,2,22)=" "
^DD(50.9007,2,"DT")="2840229"
^DD(50.9007,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9007,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9007,3,21,0)="^^2^2^2930405^^"
^DD(50.9007,3,21,1,0)="This field is used to indicate the number of refills sorted by patient"
^DD(50.9007,3,21,2,0)="status."
^DD(50.9007,3,"DT")="2840229"
^DD(50.9007,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9007,3.5,1)=$S($D(^PSCST(D0,""V"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9007,3.5,1),U,2)+$P(Y(50.9007,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9007,3.5,9)="^"
^DD(50.9007,3.5,9.01)="50.9007^3;50.9007^2"
^DD(50.9007,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9007,3.5,21,0)="^^1^1^2930104^"
^DD(50.9007,3.5,21,1,0)="This field is used to indicate the total number of fills."
^DD(50.9007,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9007,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9007,4,21,0)="^^2^2^2930104^"
^DD(50.9007,4,21,1,0)="This field is used to indicate the total cost of medication dispensed within"
^DD(50.9007,4,21,2,0)="division sorted by patient status."
^DD(50.9007,4,"DT")="2840229"
^DD(50.9007,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9007,3.5,0),U,5,99) S Y(50.9007,4.5,2)=X S Y(50.9007,4.5,1)=$S($D(^PSCST(D0,""V"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9007,4.5,1),U,4),X=$S(Y(50.9007,4.5,2):X/Y(50.9007,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9007,4.5,9)="^"
^DD(50.9007,4.5,9.01)="50.9007^3.5;50.9007^4"
^DD(50.9007,4.5,9.02)="S X=S(""50.9007^4""),X=$S(S(""50.9007^3.5""):X/S(""50.9007^3.5""),1:""*******"") S Y=X"
^DD(50.9007,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9007,4.5,21,0)="^^2^2^2930104^"
^DD(50.9007,4.5,21,1,0)="This field is used to indicate the average cost per fill within division"
^DD(50.9007,4.5,21,2,0)="sorted by patient status."
^DD(50.9007,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9007,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9007,5,21,0)="^^2^2^2930405^^"
^DD(50.9007,5,21,1,0)="This field is used to indicate the total quantity dispensed within division"
^DD(50.9007,5,21,2,0)="sorted by patient status."
^DD(50.9007,5,"DT")="2840229"
^DD(50.9007,5.5,0)="AVE QTY DISPENSED^CJ10,0^^ ; ^X $P(^DD(50.9007,3.5,0),U,5,99) S Y(50.9007,5.5,2)=X S Y(50.9007,5.5,1)=$S($D(^PSCST(D0,""V"",D1,""D"",D2,0)):^(0),1:"""") S X=$P(Y(50.9007,5.5,1),U,5),X=$S(Y(50.9007,5.5,2):X/Y(50.9007,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.9007,5.5,9)="^"
^DD(50.9007,5.5,9.01)="50.9007^3.5;50.9007^5"
^DD(50.9007,5.5,9.02)="S X=S(""50.9007^5""),X=$S(S(""50.9007^3.5""):X/S(""50.9007^3.5""),1:""*******"") S Y=X"
^DD(50.9007,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9007,5.5,21,0)="^^2^2^2930104^"
^DD(50.9007,5.5,21,1,0)="This field is used to indicate the average quantity dispensed within division"
^DD(50.9007,5.5,21,2,0)="sorted by patient status."
^DD(50.9007,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9007,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9007,6,21,0)="^^2^2^2930104^"
^DD(50.9007,6,21,1,0)="This field is used to indicate the number of prescriptions dispensed by"
^DD(50.9007,6,21,2,0)="mail sorted by patient status."
^DD(50.9007,6,"DT")="2840229"
^DD(50.9007,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9007,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9007,7,21,0)="^^2^2^2930104^"
^DD(50.9007,7,21,1,0)="This field is used to indicate the number of prescriptions dispensed by window"
^DD(50.9007,7,21,2,0)="wthin division sorted by patient status."
^DD(50.9007,7,"DT")="2840229"
^DD(50.9007,"B","# ORG FILLS",2)=""
^DD(50.9007,"B","# REFILLS",3)=""
^DD(50.9007,"B","AVE COST/FILL",4.5)=""
^DD(50.9007,"B","AVE QTY DISPENSED",5.5)=""
^DD(50.9007,"B","DRUG",.01)=""
^DD(50.9007,"B","MAILS",6)=""
^DD(50.9007,"B","TOTAL COST",4)=""
^DD(50.9007,"B","TOTAL FILLS",3.5)=""
^DD(50.9007,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9007,"B","WINDOWS",7)=""
^DD(50.9007,"GL",0,1,.01)=""
^DD(50.9007,"GL",0,2,2)=""
^DD(50.9007,"GL",0,3,3)=""
^DD(50.9007,"GL",0,4,4)=""
^DD(50.9007,"GL",0,5,5)=""
^DD(50.9007,"GL",0,6,6)=""
^DD(50.9007,"GL",0,7,7)=""
^DD(50.9008,0)="CLINIC DATA SUB-FIELD^NL^7^10"
^DD(50.9008,0,"NM","CLINIC DATA")=""
^DD(50.9008,0,"UP")="50.9"
^DD(50.9008,.01,0)="CLINIC^MP44'XI^SC(^0;1^S DINUM=X Q"
^DD(50.9008,.01,3)="Enter the name of the outpatient clinic."
^DD(50.9008,.01,21,0)="^^1^1^2930317^^^^"
^DD(50.9008,.01,21,1,0)="Enter the name of the outpatient clinic."
^DD(50.9008,.01,"DT")="2831017"
^DD(50.9008,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9008,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9008,2,21,0)="^^3^3^2920124^"
^DD(50.9008,2,21,1,0)="Respond with the total number of prescriptions filled "
^DD(50.9008,2,21,2,0)="on the specified date."
^DD(50.9008,2,21,3,0)="         --SHOULD NOT INCLUDE REFILLS--"
^DD(50.9008,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9008,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9008,3,21,0)="^^2^2^2920124^"
^DD(50.9008,3,21,1,0)="Respond with the total number of refills on the "
^DD(50.9008,3,21,2,0)="specified date."
^DD(50.9008,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9008,3.5,1)=$S($D(^PSCST(D0,""S"",D1,0)):^(0),1:"""") S X=$P(Y(50.9008,3.5,1),U,2)+$P(Y(50.9008,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9008,3.5,9)="^"
^DD(50.9008,3.5,9.01)="50.9008^3;50.9008^2"
^DD(50.9008,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9008,3.5,21,0)="^^1^1^2920124^"
^DD(50.9008,3.5,21,1,0)="Respond by adding all new fills with all refills."
^DD(50.9008,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9008,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9008,4,21,0)="^^1^1^2920124^"
^DD(50.9008,4,21,1,0)="Respond by entering the total dollar cost of prescriptions."
^DD(50.9008,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9008,3.5,0),U,5,99) S Y(50.9008,4.5,2)=X S Y(50.9008,4.5,1)=$S($D(^PSCST(D0,""S"",D1,0)):^(0),1:"""") S X=$P(Y(50.9008,4.5,1),U,4),X=$S(Y(50.9008,4.5,2):X/Y(50.9008,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9008,4.5,9)="^"
^DD(50.9008,4.5,9.01)="50.9008^3.5;50.9008^4"
^DD(50.9008,4.5,9.02)="S X=S(""50.9008^4""),X=$S(S(""50.9008^3.5""):X/S(""50.9008^3.5""),1:""*******"") S Y=X"
^DD(50.9008,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9008,4.5,21,0)="^^2^2^2920124^"
^DD(50.9008,4.5,21,1,0)="Average prescription cost is found by dividing total prescription"
^DD(50.9008,4.5,21,2,0)="costs by total number of prescriptions filled."
^DD(50.9008,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9008,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9008,5,21,0)="^^2^2^2920124^"
^DD(50.9008,5,21,1,0)="Respond by entering the actual number of pills dispensed"
^DD(50.9008,5,21,2,0)="for that particular day."
^DD(50.9008,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,2^^ ; ^X $P(^DD(50.9008,3.5,0),U,5,99) S Y(50.9008,5.5,2)=X S Y(50.9008,5.5,1)=$S($D(^PSCST(D0,""S"",D1,0)):^(0),1:"""") S X=$P(Y(50.9008,5.5,1),U,5),X=$S(Y(50.9008,5.5,2):X/Y(50.9008,5.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9008,5.5,9)="^"
^DD(50.9008,5.5,9.01)="50.9008^3.5;50.9008^5"
^DD(50.9008,5.5,9.02)="S X=S(""50.9008^5""),X=$S(S(""50.9008^3.5""):X/S(""50.9008^3.5""),1:""*******"") S Y=X"
^DD(50.9008,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9008,5.5,21,0)="^^1^1^2930104^"
^DD(50.9008,5.5,21,1,0)="This field is used to indicate the average quantity dispensed per fill."
^DD(50.9008,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9008,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9008,6,21,0)="^^1^1^2920124^^"
^DD(50.9008,6,21,1,0)="Respond with the number of prescriptions distributed by mail."
^DD(50.9008,6,22)=" "
^DD(50.9008,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9008,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9008,7,21,0)="^^1^1^2920124^"
^DD(50.9008,7,21,1,0)="Respond with the number of prescriptions distributed on site."
^DD(50.9008,"B","# ORG FILLS",2)=""
^DD(50.9008,"B","# REFILLS",3)=""
^DD(50.9008,"B","AVE COST/FILL",4.5)=""
^DD(50.9008,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.9008,"B","CLINIC",.01)=""
^DD(50.9008,"B","MAILS",6)=""
^DD(50.9008,"B","TOTAL COST",4)=""
^DD(50.9008,"B","TOTAL FILLS",3.5)=""
^DD(50.9008,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9008,"B","WINDOWS",7)=""
^DD(50.9008,"GL",0,1,.01)=""
^DD(50.9008,"GL",0,2,2)=""
^DD(50.9008,"GL",0,3,3)=""
^DD(50.9008,"GL",0,4,4)=""
^DD(50.9008,"GL",0,5,5)=""
^DD(50.9008,"GL",0,6,6)=""
^DD(50.9008,"GL",0,7,7)=""
^DD(50.9009,0)="CLASS DATA SUB-FIELD^NL^7^10"
^DD(50.9009,0,"NM","CLASS DATA")=""
^DD(50.9009,0,"UP")="50.9"
^DD(50.9009,.01,0)="CLASS^P50.5'IX^PS(50.5,^0;1^S DINUM=X Q"
^DD(50.9009,.01,21,0)="^^1^1^2971023^^"
^DD(50.9009,.01,21,1,0)="This field contains the drug classification."
^DD(50.9009,.01,"DT")="2840229"
^DD(50.9009,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9009,2,21,0)="^^2^2^2971023^"
^DD(50.9009,2,21,1,0)="Total number of prescriptions filled on the specified date, not including"
^DD(50.9009,2,21,2,0)="refills."
^DD(50.9009,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9009,3,21,0)="^^1^1^2971023^"
^DD(50.9009,3,21,1,0)="Total number of refills for the specified date."
^DD(50.9009,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.9009,3.5,1)=$S($D(^PS(50.9,D0,""C"",D1,0)):^(0),1:"""") S X=$P(Y(50.9009,3.5,1),U,2)+$P(Y(50.9009,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.9009,3.5,9)="^"
^DD(50.9009,3.5,9.01)="50.9009^3;50.9009^2"
^DD(50.9009,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.9009,3.5,21,0)="^^1^1^2971023^"
^DD(50.9009,3.5,21,1,0)="Total fills for the specified date."
^DD(50.9009,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9009,4,21,0)="^^1^1^2971023^"
^DD(50.9009,4,21,1,0)="Total dollar cost of the prescriptions."
^DD(50.9009,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.9009,3.5,0),U,5,99) S Y(50.9009,4.5,2)=X S Y(50.9009,4.5,1)=$S($D(^PS(50.9,D0,""C"",D1,0)):^(0),1:"""") S X=$P(Y(50.9009,4.5,1),U,4),X=$S(Y(50.9009,4.5,2):X/Y(50.9009,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9009,4.5,9)="^"
^DD(50.9009,4.5,9.01)="50.9009^3.5;50.9009^4"
^DD(50.9009,4.5,9.02)="S X=S(""50.9009^4""),X=$S(S(""50.9009^3.5""):X/S(""50.9009^3.5""),1:""*******"") S Y=X"
^DD(50.9009,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.9009,4.5,21,0)="^^1^1^2971023^"
^DD(50.9009,4.5,21,1,0)="Average cost/fill of the prescriptions."
^DD(50.9009,5,0)="TOTAL QTY DISPENSED^NJ9,2I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.9009,5,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.9009,5,21,0)="^^1^1^2971023^"
^DD(50.9009,5,21,1,0)="Actual amount of medication dispensed that day."
^DD(50.9009,5,"DT")="2840228"
^DD(50.9009,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,2^^ ; ^X $P(^DD(50.9009,3.5,0),U,5,99) S Y(50.9009,5.5,2)=X S Y(50.9009,5.5,1)=$S($D(^PS(50.9,D0,""C"",D1,0)):^(0),1:"""") S X=$P(Y(50.9009,5.5,1),U,5),X=$S(Y(50.9009,5.5,2):X/Y(50.9009,5.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.9009,5.5,9)="^"
^DD(50.9009,5.5,9.01)="50.9009^3.5;50.9009^5"
^DD(50.9009,5.5,9.02)="S X=S(""50.9009^5""),X=$S(S(""50.9009^3.5""):X/S(""50.9009^3.5""),1:""*******"") S Y=X"
^DD(50.9009,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.9009,5.5,21,0)="^^1^1^2971023^"
^DD(50.9009,5.5,21,1,0)="Average quantity per fill for that day."
^DD(50.9009,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9009,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9009,6,21,0)="^^1^1^2971023^"
^DD(50.9009,6,21,1,0)="Number of prescriptions distributed by mail."
^DD(50.9009,6,"DT")="2840228"
^DD(50.9009,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.9009,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.9009,7,21,0)="^^1^1^2971023^"
^DD(50.9009,7,21,1,0)="Number of prescriptions distributed by window."
^DD(50.9009,7,"DT")="2840228"
^DD(50.9009,"B","# ORG FILLS",2)=""
^DD(50.9009,"B","# REFILLS",3)=""
^DD(50.9009,"B","AVE COST/FILL",4.5)=""
^DD(50.9009,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.9009,"B","CLASS",.01)=""
^DD(50.9009,"B","MAILS",6)=""
^DD(50.9009,"B","TOTAL COST",4)=""
^DD(50.9009,"B","TOTAL FILLS",3.5)=""
^DD(50.9009,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.9009,"B","WINDOWS",7)=""
^DD(50.9009,"GL",0,1,.01)=""
^DD(50.9009,"GL",0,2,2)=""
^DD(50.9009,"GL",0,3,3)=""
^DD(50.9009,"GL",0,4,4)=""
^DD(50.9009,"GL",0,5,5)=""
^DD(50.9009,"GL",0,6,6)=""
^DD(50.9009,"GL",0,7,7)=""
^DD(50.901,0)="PHYSICIAN DATA SUB-FIELD^NL^7^10"
^DD(50.901,0,"NM","PHYSICIAN DATA")=""
^DD(50.901,0,"UP")="50.9006"
^DD(50.901,.01,0)="PHYSICIAN^P200'XI^VA(200,^0;1^S DINUM=X Q"
^DD(50.901,.01,21,0)="^^1^1^2930317^^"
^DD(50.901,.01,21,1,0)="This field is used to indicate the provider."
^DD(50.901,.01,"DT")="2840229"
^DD(50.901,2,0)="# ORG FILLS^NJ6,0I^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.901,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.901,2,21,0)="^^1^1^2930104^"
^DD(50.901,2,21,1,0)="This field is used to indicate the number of original fills."
^DD(50.901,2,"DT")="2840229"
^DD(50.901,3,0)="# REFILLS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.901,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.901,3,21,0)="^^1^1^2930104^"
^DD(50.901,3,21,1,0)="This field is used to indicate The number of refills."
^DD(50.901,3,"DT")="2840229"
^DD(50.901,3.5,0)="TOTAL FILLS^CJ10,0^^ ; ^S Y(50.901,3.5,1)=$S($D(^PSCST(D0,""V"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(50.901,3.5,1),U,2)+$P(Y(50.901,3.5,1),U,3) S X=$J(X,0,0)"
^DD(50.901,3.5,9)="^"
^DD(50.901,3.5,9.01)="50.901^3;50.901^2"
^DD(50.901,3.5,9.1)="# ORG FILLS+# REFILLS"
^DD(50.901,3.5,21,0)="^^1^1^2930104^"
^DD(50.901,3.5,21,1,0)="This field is used to indicate the total number of fills (org. fills+refills)."
^DD(50.901,4,0)="TOTAL COST^NJ9,2I^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(50.901,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(50.901,4,21,0)="^^1^1^2930104^"
^DD(50.901,4,21,1,0)="This field is used to indicate total cost."
^DD(50.901,4,"DT")="2840229"
^DD(50.901,4.5,0)="AVE COST/FILL^CJ10,2^^ ; ^X $P(^DD(50.901,3.5,0),U,5,99) S Y(50.901,4.5,2)=X S Y(50.901,4.5,1)=$S($D(^PSCST(D0,""V"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(50.901,4.5,1),U,4),X=$S(Y(50.901,4.5,2):X/Y(50.901,4.5,2),1:""*******"") S X=$J(X,0,2)"
^DD(50.901,4.5,9)="^"
^DD(50.901,4.5,9.01)="50.901^3.5;50.901^4"
^DD(50.901,4.5,9.02)="S X=S(""50.901^4""),X=$S(S(""50.901^3.5""):X/S(""50.901^3.5""),1:""*******"") S Y=X"
^DD(50.901,4.5,9.1)="TOTAL COST/TOTAL FILLS"
^DD(50.901,4.5,21,0)="^^1^1^2930104^"
^DD(50.901,4.5,21,1,0)="This field is used to indicate the average cost per fill."
^DD(50.901,5,0)="TOTAL QTY DISPENSED^NJ6,0I^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.901,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.901,5,21,0)="^^1^1^2930405^^"
^DD(50.901,5,21,1,0)="This field is used to indicate the total quantity dispensed."
^DD(50.901,5,"DT")="2840229"
^DD(50.901,5.5,0)="AVE QTY DISPENSED/FILL^CJ10,0^^ ; ^X $P(^DD(50.901,3.5,0),U,5,99) S Y(50.901,5.5,2)=X S Y(50.901,5.5,1)=$S($D(^PSCST(D0,""V"",D1,""P"",D2,0)):^(0),1:"""") S X=$P(Y(50.901,5.5,1),U,5),X=$S(Y(50.901,5.5,2):X/Y(50.901,5.5,2),1:""*******"") S X=$J(X,0,0)"
^DD(50.901,5.5,9)="^"
^DD(50.901,5.5,9.01)="50.901^3.5;50.901^5"
^DD(50.901,5.5,9.02)="S X=S(""50.901^5""),X=$S(S(""50.901^3.5""):X/S(""50.901^3.5""),1:""*******"") S Y=X"
^DD(50.901,5.5,9.1)="TOTAL QTY DISPENSED/TOTAL FILLS"
^DD(50.901,5.5,21,0)="^^1^1^2930405^^"
^DD(50.901,5.5,21,1,0)="This field is used to indicate the average quantity dispensed per fill."
^DD(50.901,6,0)="MAILS^NJ6,0I^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.901,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.901,6,21,0)="^^1^1^2971023^^^"
^DD(50.901,6,21,1,0)="This field indicates the number of prescriptions dispensed by mail."
^DD(50.901,6,"DT")="2840229"
^DD(50.901,7,0)="WINDOWS^NJ6,0I^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(50.901,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(50.901,7,21,0)="^^2^2^2930104^"
^DD(50.901,7,21,1,0)="This field is used to indicate the number of prescriptions dispensed by"
^DD(50.901,7,21,2,0)="window."
^DD(50.901,7,"DT")="2840229"
^DD(50.901,"B","# ORG FILLS",2)=""
^DD(50.901,"B","# REFILLS",3)=""
^DD(50.901,"B","AVE COST/FILL",4.5)=""
^DD(50.901,"B","AVE QTY DISPENSED/FILL",5.5)=""
^DD(50.901,"B","MAILS",6)=""
^DD(50.901,"B","PHYSICIAN",.01)=""
^DD(50.901,"B","TOTAL COST",4)=""
^DD(50.901,"B","TOTAL FILLS",3.5)=""
^DD(50.901,"B","TOTAL QTY DISPENSED",5)=""
^DD(50.901,"B","WINDOWS",7)=""
^DD(50.901,"GL",0,1,.01)=""
^DD(50.901,"GL",0,2,2)=""
^DD(50.901,"GL",0,3,3)=""
^DD(50.901,"GL",0,4,4)=""
^DD(50.901,"GL",0,5,5)=""
^DD(50.901,"GL",0,6,6)=""
^DD(50.901,"GL",0,7,7)=""
^DD(51,0)="FIELD^NL^31^13"
^DD(51,0,"DDA")="Y"
^DD(51,0,"DT")="2950131"
^DD(51,0,"ID",1)="W ?12,$P(^(""0""),U,2)"
^DD(51,0,"IX","A",51,.01)=""
^DD(51,0,"IX","AB",51,1)=""
^DD(51,0,"IX","AC",51,9)=""
^DD(51,0,"IX","AD",51,.5)=""
^DD(51,0,"IX","AE",51,.5)=""
^DD(51,0,"IX","AI",51,30)=""
^DD(51,0,"IX","AIN",51,.01)=""
^DD(51,0,"IX","B",51,.01)=""
^DD(51,0,"NM","MEDICATION INSTRUCTION")=""
^DD(51,0,"VR")="1.0"
^DD(51,0,"VRPK")="PSS"
^DD(51,.01,0)="NAME^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>9!($L(X)<1)!'(X?.ANP) X"
^DD(51,.01,1,0)="^.1"
^DD(51,.01,1,1,0)="51^B"
^DD(51,.01,1,1,1)="S ^PS(51,""B"",X,DA)="""""
^DD(51,.01,1,1,2)="K ^PS(51,""B"",X,DA)"
^DD(51,.01,1,2,0)="51^AIN^MUMPS"
^DD(51,.01,1,2,1)="I $P(^PS(51,DA,0),""^"",4) S ^PS(51,""AI"",X,DA)="""""
^DD(51,.01,1,2,2)="I $P(^PS(51,DA,0),""^"",4) K ^PS(51,""AI"",X,DA)"
^DD(51,.01,1,2,"%D",0)="^^2^2^2970926^^"
^DD(51,.01,1,2,"%D",1,0)="Sets intended use cross-ref."
^DD(51,.01,1,2,"%D",2,0)="In the form of: ^PS(51,""AI"",X,DA)"
^DD(51,.01,1,3,0)="51^A^MUMPS"
^DD(51,.01,1,3,1)="S X1=^PS(51,DA,0),%=$P(X1,""^"",1) I %'="""" S ^PS(51,""A"",%)=$P(X1,""^"",2)_""^""_$S($D(^PS(51,DA,9)):^(9),1:"""")"
^DD(51,.01,1,3,2)="K ^PS(51,""A"",X)"
^DD(51,.01,1,3,"%D",0)="^.101^3^3^3001010^^^^"
^DD(51,.01,1,3,"%D",1,0)="This cross reference uses the drug name to obtain the drug's expanded"
^DD(51,.01,1,3,"%D",2,0)="name and plural."
^DD(51,.01,1,3,"%D",3,0)="In the form of: ^PS(51,""A"",$P(^PS(51,DA,0),""^"",1))"
^DD(51,.01,1,3,"DT")="3001010"
^DD(51,.01,3)="Answer must be 1-9 characters in length."
^DD(51,.01,20,0)="^.3LA^1^1"
^DD(51,.01,20,1,0)="PS"
^DD(51,.01,21,0)="^.001^3^3^3060329^^^^"
^DD(51,.01,21,1,0)="  For inpatient pharmacy use, you may enter one of the following standard"
^DD(51,.01,21,2,0)="times or you may use a non-standard schedule when appropriate.  For"
^DD(51,.01,21,3,0)="example,  Q36H  or Q17H."
^DD(51,.01,"DT")="3060403"
^DD(51,.5,0)="SYNONYM^FX^^0;3^K:$L(X)>9!($L(X)<1)!($D(^PS(51,""B"",X))) X"
^DD(51,.5,1,0)="^.1"
^DD(51,.5,1,1,0)="51^AE^MUMPS"
^DD(51,.5,1,1,1)="S:'$D(^PS(51,""B"",$E(X,1,9),DA)) ^(DA)=1"
^DD(51,.5,1,1,2)="I $D(^PS(51,""B"",$E(X,1,9),DA)),^(DA) K ^(DA)"
^DD(51,.5,1,1,3)="Do not delete."
^DD(51,.5,1,1,"%D",0)="^^2^2^2970926^^^^"
^DD(51,.5,1,1,"%D",1,0)="This xref is used to indicate synonyms"
^DD(51,.5,1,1,"%D",2,0)="In the form of: ^PS(51,""B"",$E(X,1,9),DA)"
^DD(51,.5,1,1,"DT")="2950410"
^DD(51,.5,1,2,0)="51^AD^MUMPS"
^DD(51,.5,1,2,1)="S X1=^PS(51,DA,0) I X'="""" S ^PS(51,""A"",X)=$P(X1,""^"",2)_""^""_$S($D(^PS(51,DA,9)):^(9),1:"""")"
^DD(51,.5,1,2,2)="K ^PS(51,""A"",X)"
^DD(51,.5,1,2,"%D",0)="^^3^3^2970926^^^"
^DD(51,.5,1,2,"%D",1,0)="This cross reference uses the drug synonym to obtain the drug expanded"
^DD(51,.5,1,2,"%D",2,0)="name and plural."
^DD(51,.5,1,2,"%D",3,0)="In the form of: ^PS(51,""A"",X)"
^DD(51,.5,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(51,.5,20,0)="^.3LA^1^1"
^DD(51,.5,20,1,0)="PSO"
^DD(51,.5,21,0)="^^1^1^2930402^^^^"
^DD(51,.5,21,1,0)="This field is used to indicate the synonym if applicable."
^DD(51,.5,23,0)="^^1^1^2930402^^^"
^DD(51,.5,23,1,0)="free text"
^DD(51,.5,"DT")="2950410"
^DD(51,1,0)="EXPANSION^RF^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(51,1,1,0)="^.1"
^DD(51,1,1,1,0)="51^AB^MUMPS"
^DD(51,1,1,1,1)="S X1=^PS(51,DA,0),%=$P(X1,""^"",1) I %'="""" S ^PS(51,""A"",%)=$P(X1,""^"",2)_""^""_$S($D(^PS(51,DA,9)):^(9),1:"""")"
^DD(51,1,1,1,2)="S X1=^PS(51,DA,0),%=$P(X1,""^"",1) I %'="""" K ^PS(51,""A"",%)"
^DD(51,1,1,1,"%D",0)="^^3^3^2970926^^"
^DD(51,1,1,1,"%D",1,0)="This cross reference uses the drug name to obtain the drug expanded"
^DD(51,1,1,1,"%D",2,0)="name and plural."
^DD(51,1,1,1,"%D",3,0)="In the form of: ^PS(51,""A"",$P(^PS(51,DA,0),""^"",1))"
^DD(51,1,3)="Answer must be 2-50 characters in length."
^DD(51,1,20,0)="^.3LA^1^1"
^DD(51,1,20,1,0)="PS"
^DD(51,1,21,0)="^^2^2^2921117^^^"
^DD(51,1,21,1,0)="  This is the full explanation of the instruction and will print on"
^DD(51,1,21,2,0)="some reports."
^DD(51,1,23,0)="^^1^1^2921117^"
^DD(51,1,23,1,0)="free text"
^DD(51,1,"DT")="2860726"
^DD(51,1.1,0)="OTHER LANGUAGE EXPANSION^F^^4;1^K:$L(X)>100!($L(X)<2) X"
^DD(51,1.1,3)="Answer must be 2-100 characters in length."
^DD(51,1.1,20,0)="^.3LA^1^1"
^DD(51,1.1,20,1,0)="PSO"
^DD(51,1.1,21,0)="^.001^1^1^3020916^^^^"
^DD(51,1.1,21,1,0)="This field is used to store the expansion in another language."
^DD(51,1.1,23,0)="^.001^1^1^3020916^^^^"
^DD(51,1.1,23,1,0)="Free text."
^DD(51,1.1,"DT")="3020916"
^DD(51,2,0)="MED ROUTE^P51.2'^PS(51.2,^0;5^Q"
^DD(51,2,"DT")="2950131"
^DD(51,3,0)="SCHEDULE^FX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X,"" "")>3!($L(X)>20)!($L(X)<2) X"
^DD(51,3,3)="Enter the appropriate schedule to associate with this Medication Instruction."
^DD(51,3,4)="D ENSH^PSSDDUT"
^DD(51,3,21,0)="^^6^6^3010501^"
^DD(51,3,21,1,0)="This is the Schedule that is associated with the Medication Instruction."
^DD(51,3,21,2,0)="Prior to the Pharmacy Ordering Enhancements project, this field was used"
^DD(51,3,21,3,0)="to associate schedules with Outpatient prescriptions, by running each word"
^DD(51,3,21,4,0)="of the Sig through the Medication Instruction file to look for an"
^DD(51,3,21,5,0)="associated Schedule. The field is currently not being used by the Pharmacy"
^DD(51,3,21,6,0)="software."
^DD(51,3,"DT")="3010501"
^DD(51,4,0)="INSTRUCTIONS^F^^0;7^K:$L(X)>75!($L(X)<10) X"
^DD(51,4,3)="Answer must be 10-75 characters in length."
^DD(51,4,"DT")="2950131"
^DD(51,5,0)="ADDITIONAL INSTRUCTION^F^^3;1^K:$L(X)>100!($L(X)<10) X"
^DD(51,5,3)="Answer must be 10-100 characters in length."
^DD(51,5,"DT")="2950131"
^DD(51,9,0)="PLURAL^F^^9;1^K:$L(X)>25!($L(X)<1)!'(X?.A) X"
^DD(51,9,.5)=""
^DD(51,9,1)=""
^DD(51,9,1,0)="^.1"
^DD(51,9,1,1,0)="51^AC^MUMPS"
^DD(51,9,1,1,1)="S X1=^PS(51,DA,0),%=$P(X1,""^"",1) I %'="""" S ^PS(51,""A"",%)=$P(X1,""^"",2)_""^""_$S($D(^PS(51,DA,9)):^(9),1:"""")"
^DD(51,9,1,1,2)="S X1=^PS(51,DA,0),%=$P(X1,""^"",1) I %'="""" K ^PS(51,""A"",%)"
^DD(51,9,1,1,"%D",0)="^^3^3^2970926^^"
^DD(51,9,1,1,"%D",1,0)="This cross reference uses the drug name to obtain the drug expanded name"
^DD(51,9,1,1,"%D",2,0)="and plural."
^DD(51,9,1,1,"%D",3,0)="In the form of: ^PS(51,""A"",$P(^PS(51,DA,0),""^"",1))"
^DD(51,9,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(51,9,20,0)="^.3LA^1^1"
^DD(51,9,20,1,0)="PSO"
^DD(51,9,21,0)="^^1^1^2930104^^"
^DD(51,9,21,1,0)="This field is used to indicate if there's a plural name for this instruction."
^DD(51,9,23,0)="^^1^1^2921229^"
^DD(51,9,23,1,0)="free text"
^DD(51,9,"DT")="2860726"
^DD(51,10,0)="DEFAULT ADMIN TIMES^FX^^1;1^K:$L(X)>40!($L(X)<1) X I $D(X) F I=1:1:$L(X) I $E(X,I)'?1N&($E(X,I)'?1""-"") K X Q"
^DD(51,10,3)="Enter up to 40 character in the form 3-9-15-21.  Be sure to use a 24-hour clock."
^DD(51,10,20,0)="^.3LA^1^1"
^DD(51,10,20,1,0)="PS"
^DD(51,10,21,0)="^^1^1^2930104^"
^DD(51,10,21,1,0)="This field is used to indicate a default admin time if applicable."
^DD(51,10,"DT")="2831128"
^DD(51,20,0)="WARD^51.01P^^2;0"
^DD(51,20,20,0)="^.3LA^1^1"
^DD(51,20,20,1,0)="PS"
^DD(51,20,21,0)="^^2^2^2930104^"
^DD(51,20,21,1,0)="This sub file is used to indicate any wards associated with a medication"
^DD(51,20,21,2,0)="instruction."
^DD(51,30,0)="INTENDED USE^RS^0:OUTPATIENT ONLY;1:IN & OUTPATIENT;2:INPATIENT ONLY;^0;4^Q"
^DD(51,30,1,0)="^.1"
^DD(51,30,1,1,0)="51^AI^MUMPS"
^DD(51,30,1,1,1)="I X S ^PS(51,""AI"",$P(^PS(51,DA,0),""^""),DA)="""""
^DD(51,30,1,1,2)="I X K ^PS(51,""AI"",$P(^PS(51,DA,0),""^""),DA)"
^DD(51,30,1,1,"%D",0)="^^2^2^2970926^"
^DD(51,30,1,1,"%D",1,0)="Sets intended use cross-ref for this file."
^DD(51,30,1,1,"%D",2,0)="In the form of: ^PS(51,""AI"",$P(^PS(51,DA,0),""^"",1))"
^DD(51,30,20,0)="^.3LA^1^1"
^DD(51,30,20,1,0)="PS"
^DD(51,30,21,0)="^^5^5^2910305^^^^"
^DD(51,30,21,1,0)="  This controls the users' view of this file.  If the entry is marked as"
^DD(51,30,21,2,0)="OUTPATIENT ONLY (0), then only the Outpatient package will use it as a"
^DD(51,30,21,3,0)="valid abbreviation.  If marked INPATIENT ONLY (2), then only the Inpatient"
^DD(51,30,21,4,0)="package will use the entry as a valid abbreviation.  The entry may be"
^DD(51,30,21,5,0)="marked as Inpatient and Outpatient (1)."
^DD(51,30,"DT")="2870615"
^DD(51,31,0)="FREQUENCY (IN MINUTES)^NJ6,0^^0;8^K:+X'=X!(X>129600)!(X<0)!(X?.E1"".""1N.N) X"
^DD(51,31,3)="Type a Number between 0 and 129600, 0 Decimal Digits"
^DD(51,31,21,0)="^^5^5^3000513^"
^DD(51,31,21,1,0)="This is the number of minutes between each time that the action should"
^DD(51,31,21,2,0)="take place. This field will be used to calculate defaults for Quantity and"
^DD(51,31,21,3,0)="Days Supply in the Outpatient Pharmacy Package. It will also be used to"
^DD(51,31,21,4,0)="calculate defaults for the fields in the pharmacy dialog in Computerized"
^DD(51,31,21,5,0)="Patient Record System (CPRS)."
^DD(51,31,"DT")="3000513"
^DD(51,"B","ADDITIONAL INSTRUCTION",5)=""
^DD(51,"B","DEFAULT ADMIN TIMES",10)=""
^DD(51,"B","EXPANSION",1)=""
^DD(51,"B","FREQUENCY (IN MINUTES)",31)=""
^DD(51,"B","INSTRUCTIONS",4)=""
^DD(51,"B","INTENDED USE",30)=""
^DD(51,"B","MED ROUTE",2)=""
^DD(51,"B","NAME",.01)=""
^DD(51,"B","OTHER LANGUAGE EXPANSION",1.1)=""
^DD(51,"B","PLURAL",9)=""
^DD(51,"B","SCHEDULE",3)=""
^DD(51,"B","SYNONYM",.5)=""
^DD(51,"B","WARD",20)=""
^DD(51,"GL",0,1,.01)=""
^DD(51,"GL",0,2,1)=""
^DD(51,"GL",0,3,.5)=""
^DD(51,"GL",0,4,30)=""
^DD(51,"GL",0,5,2)=""
^DD(51,"GL",0,6,3)=""
^DD(51,"GL",0,7,4)=""
^DD(51,"GL",0,8,31)=""
^DD(51,"GL",1,1,10)=""
^DD(51,"GL",2,0,20)=""
^DD(51,"GL",3,1,5)=""
^DD(51,"GL",4,1,1.1)=""
^DD(51,"GL",9,1,9)=""
^DD(51,"GR","PS",.01,1)=""
^DD(51,"GR","PS",1,1)=""
^DD(51,"GR","PS",10,1)=""
^DD(51,"GR","PS",20,1)=""
^DD(51,"GR","PS",30,1)=""
^DD(51,"GR","PSO",.5,1)=""
^DD(51,"GR","PSO",1.1,1)=""
^DD(51,"GR","PSO",9,1)=""
^DD(51,"IX",.01)=""
^DD(51,"IX",.5)=""
^DD(51,"IX",1)=""
^DD(51,"IX",9)=""
^DD(51,"IX",30)=""
^DD(51,"RQ",.01)=""
^DD(51,"RQ",1)=""
^DD(51,"RQ",30)=""
^DD(51,"SB",51.01,20)=""
^DD(51.01,0)="WARD SUB-FIELD^NL^.02^2"
^DD(51.01,0,"NM","WARD")=""
^DD(51.01,0,"UP")="51"
^DD(51.01,.01,0)="WARD^MP42'X^DIC(42,^0;1^I $D(X) S DINUM=X"
^DD(51.01,.01,20,0)="^.3LA^1^1"
^DD(51.01,.01,20,1,0)="PS"
^DD(51.01,.01,21,0)="^^2^2^2930104^"
^DD(51.01,.01,21,1,0)="This field is ued to indicate any wards associated with a medication"
^DD(51.01,.01,21,2,0)="instruction."
^DD(51.01,.01,"DT")="2831128"
^DD(51.01,.02,0)="DEFAULT ADMIN TIMES^FX^^0;2^K:$L(X)>40!($L(X)<1) X I $D(X) F I=1:1:$L(X) I $E(X,1)'?1N&($E(X,1)'?1""-"") K X Q"
^DD(51.01,.02,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH, E.G., 0300-0900-1500-2100"
^DD(51.01,.02,20,0)="^.3LA^1^1"
^DD(51.01,.02,20,1,0)="PS"
^DD(51.01,.02,21,0)="^^1^1^2930104^"
^DD(51.01,.02,21,1,0)="This field is used to indicate a default admin time if applicable."
^DD(51.01,.02,"DT")="2831128"
^DD(51.01,"B","DEFAULT ADMIN TIMES",.02)=""
^DD(51.01,"B","WARD",.01)=""
^DD(51.01,"GL",0,1,.01)=""
^DD(51.01,"GL",0,2,.02)=""
^DD(51.01,"GR","PS",.01,1)=""
^DD(51.01,"GR","PS",.02,1)=""
^DD(51.1,0)="FIELD^^8.1^11"
^DD(51.1,0,"DDA")="N"
^DD(51.1,0,"DT")="2950222"
^DD(51.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(51.1,0,"ID",4)="W """""
^DD(51.1,0,"IX","AC",51.1,4)=""
^DD(51.1,0,"IX","ACC",51.1,.01)=""
^DD(51.1,0,"IX","ADHL",51.1,.01)=""
^DD(51.1,0,"IX","AHL",51.1,4)=""
^DD(51.1,0,"IX","AP",51.1,4)=""
^DD(51.1,0,"IX","APP",51.1,.01)=""
^DD(51.1,0,"IX","AUWD",51.1,.01)=""
^DD(51.1,0,"IX","B",51.1,.01)=""
^DD(51.1,0,"NM","ADMINISTRATION SCHEDULE")=""
^DD(51.1,0,"PT",53.22,8)=""
^DD(51.1,0,"VR")="1.0"
^DD(51.1,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(51.1,.01,0)="NAME^RFX^^0;1^D ENPSJ^PSSJSV Q:'$D(X)  K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X,"" "")>3!($L(X)>20)!($L(X)<2) X"
^DD(51.1,.01,1,0)="^.1"
^DD(51.1,.01,1,1,0)="51.1^B"
^DD(51.1,.01,1,1,1)="S ^PS(51.1,""B"",$E(X,1,30),DA)="""""
^DD(51.1,.01,1,1,2)="K ^PS(51.1,""B"",$E(X,1,30),DA)"
^DD(51.1,.01,1,2,0)="51.1^AUWD^MUMPS"
^DD(51.1,.01,1,2,1)="S ^PS(51.1,""AUWD"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(51.1,.01,1,2,2)="Q"
^DD(51.1,.01,1,2,"%D",0)="^^3^3^2970926^^^"
^DD(51.1,.01,1,2,"%D",1,0)="Used by the Unit Dose inits to determine if a conversion process needs to"
^DD(51.1,.01,1,2,"%D",2,0)="be run on this file."
^DD(51.1,.01,1,2,"%D",3,0)="In the form of: ^PS(51.1,""AUWD"")"
^DD(51.1,.01,1,3,0)="51.1^ACC^MUMPS"
^DD(51.1,.01,1,3,1)="I $D(^PS(51.1,DA,0)),$P(^(0),""^"",4)]"""" S ^PS(51.1,""AC"",$P(^(0),""^"",4),X,DA)="""""
^DD(51.1,.01,1,3,2)="I $D(^PS(51.1,DA,0)),$P(^(0),""^"",4)]"""" K ^PS(51.1,""AC"",$P(^(0),""^"",4),X,DA)"
^DD(51.1,.01,1,3,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.1,.01,1,3,"%D",0)="^^2^2^2970926^^"
^DD(51.1,.01,1,3,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups."
^DD(51.1,.01,1,3,"%D",2,0)="In the form of: ^PS(51.1,""AC"",$P(^(0),""^"",4),X,DA)"
^DD(51.1,.01,1,4,0)="51.1^APP^MUMPS"
^DD(51.1,.01,1,4,1)="I $D(^PS(51.1,DA,0)),$P(^(0),""^"",4)]"""" S ^PS(51.1,""AP""_$P(^(0),""^"",4),X,DA)="""""
^DD(51.1,.01,1,4,2)="I $D(^PS(51.1,DA,0)),$P(^(0),""^"",4)]"""" K ^PS(51.1,""AP""_$P(^(0),""^"",4),X,DA)"
^DD(51.1,.01,1,4,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.1,.01,1,4,"%D",0)="^^2^2^2970926^^"
^DD(51.1,.01,1,4,"%D",1,0)="Used by the schedule processor to do package specific look-ups."
^DD(51.1,.01,1,4,"%D",2,0)="In the form of: ^PS(51.1,""AP""_$P(^(0),""^"",4),X,DA)"
^DD(51.1,.01,1,5,0)="51.1^ADHL^MUMPS"
^DD(51.1,.01,1,5,1)="S PSJHLDA(+DA)=""MUP"""
^DD(51.1,.01,1,5,2)="S PSJHLDA(+DA)=""MDL"""
^DD(51.1,.01,1,5,"%D",0)="^^2^2^2970926^^^"
^DD(51.1,.01,1,5,"%D",1,0)="Use to update Administration Schedule to OE/RR Schedule file."
^DD(51.1,.01,1,5,"%D",2,0)="In the form of: PSJHLDA(+DA)"
^DD(51.1,.01,1,5,"DT")="2950224"
^DD(51.1,.01,1,6,0)="^^TRIGGER^51.1^5"
^DD(51.1,.01,1,6,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)[""PRN"" I X S X=DIV S Y(1)=$S($D(^PS(51.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""P"" X ^DD(51.1,.01,1,6,1.4)"
^DD(51.1,.01,1,6,1.4)="S DIH=$G(^PS(51.1,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=51.1,DIG=5 D ^DICR"
^DD(51.1,.01,1,6,2)="Q"
^DD(51.1,.01,1,6,"CREATE CONDITION")="NAME[""PRN"""
^DD(51.1,.01,1,6,"CREATE VALUE")="""P"""
^DD(51.1,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(51.1,.01,1,6,"DT")="3070108"
^DD(51.1,.01,1,6,"FIELD")="TYPE"
^DD(51.1,.01,1,7,0)="^^TRIGGER^51.1^5"
^DD(51.1,.01,1,7,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(51.1,.01,1,7,69.2) S X=X[""P"",Y=X,X=Y(1),X=X&Y I X S X=DIV S Y(1)=$S($D(^PS(51.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(51.1,.01,1,7,1.4)"
^DD(51.1,.01,1,7,1.4)="S DIH=$G(^PS(51.1,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=51.1,DIG=5 D ^DICR"
^DD(51.1,.01,1,7,2)="Q"
^DD(51.1,.01,1,7,69.2)="S Y(3)=$C(59)_$P($G(^DD(51.1,5,0)),U,3),Y(2)=$S($D(^PS(51.1,D0,0)):^(0),1:"""") S X=Y(0)'[""PRN"",Y(1)=$G(X) S X=$P($P(Y(3),$C(59)_$P(Y(2),U,5)_"":"",2),$C(59))"
^DD(51.1,.01,1,7,"CREATE CONDITION")="NAME'[""PRN""&(TYPE[""P"")"
^DD(51.1,.01,1,7,"CREATE VALUE")=""""""
^DD(51.1,.01,1,7,"DELETE VALUE")="NO EFFECT"
^DD(51.1,.01,1,7,"DT")="3070108"
^DD(51.1,.01,1,7,"FIELD")="TYPE"
^DD(51.1,.01,3)="Answer must be 2-20 characters in length."
^DD(51.1,.01,20,0)="^.3LA^1^1"
^DD(51.1,.01,20,1,0)="PSJ"
^DD(51.1,.01,21,0)="^.001^3^3^3060330^^^^"
^DD(51.1,.01,21,1,0)="  This a common abbreviation for a schedule.  A schedule is the frequency"
^DD(51.1,.01,21,2,0)="for which an action is to take place, such as every eight hours ('Q8H') or"
^DD(51.1,.01,21,3,0)="every other day ('QOD')."
^DD(51.1,.01,"DT")="3070108"
^DD(51.1,1,0)="STANDARD ADMINISTRATION TIMES^FX^^0;2^D ENCHK^PSSJSV"
^DD(51.1,1,3)="ENTER A TIME OF DAY, OR A SET OF TIMES, 2 TO 119 CHARACTERS IN LENGTH."
^DD(51.1,1,4)="D ADTM^PSSDDUT2"
^DD(51.1,1,20,0)="^.3LA^1^1"
^DD(51.1,1,20,1,0)="PSJ"
^DD(51.1,1,21,0)="^^5^5^2970626^^^^"
^DD(51.1,1,21,1,0)="  These are the times of day, for this schedule, that the action should"
^DD(51.1,1,21,2,0)="take place.  Use military time (24 hour clock) when entering the times,"
^DD(51.1,1,21,3,0)="separating each time with a '-'.  Be sure that the times are in ascending"
^DD(51.1,1,21,4,0)="order, i.e., 06-14-22 or 0600-1400-2200.  All times must be the same"
^DD(51.1,1,21,5,0)="length, either 2 or 4 digits."
^DD(51.1,1,"DT")="2890830"
^DD(51.1,2,0)="FREQUENCY (IN MINUTES)^NJ6,0^^0;3^K:+X'=X!(X>129600)!(X<1)!(X?.E1"".""1N.N) X"
^DD(51.1,2,3)="Type a Number between 1 and 129600, 0 Decimal Digits"
^DD(51.1,2,20,0)="^.3LA^1^1"
^DD(51.1,2,20,1,0)="PSJ"
^DD(51.1,2,21,0)="^.001^2^2^3040917^^^^"
^DD(51.1,2,21,1,0)="  The number of minutes between each time that the action should take"
^DD(51.1,2,21,2,0)="place."
^DD(51.1,2,23,0)="^.001^2^2^3040917^^^^"
^DD(51.1,2,23,1,0)=" "
^DD(51.1,2,23,2,0)=" "
^DD(51.1,2,"DT")="3040917"
^DD(51.1,2.5,0)="MAX DAYS FOR ORDERS^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(51.1,2.5,3)="Enter maximum number of days (1-999) continuous orders will last for this administration schedule.  (NOT USED BY PHARMACY SOFTWARE.)"
^DD(51.1,2.5,"DT")="2920717"
^DD(51.1,3,0)="WARD^51.11P^^1;0"
^DD(51.1,3,20,0)="^.3LA^1^1"
^DD(51.1,3,20,1,0)="PSJ"
^DD(51.1,3,21,0)="^^2^2^2920514^^"
^DD(51.1,3,21,1,0)="  This allows the site to enter information pertaining to a schedule on"
^DD(51.1,3,21,2,0)="ward by ward basis.  The wards used are from the WARD LOCATION file."
^DD(51.1,3,23,0)="^^5^5^2920514^^^^"
^DD(51.1,3,23,1,0)="  This allows the site to enter certain information (e.g. admin times) about"
^DD(51.1,3,23,2,0)="the schedule specifically by ward.  The wards point to the WARD LOCATION"
^DD(51.1,3,23,3,0)="(#42) file.  In processing, the ward is determined by the ward on which the"
^DD(51.1,3,23,4,0)="patient is shown to reside.  This is used mainly by the Unit Dose"
^DD(51.1,3,23,5,0)="Medications package which is only concerned with inpatients."
^DD(51.1,4,0)="PACKAGE PREFIX^RFX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$S(X["""""""":1,$A(X)=45:1,$L(X)>4:1,$L(X)<1:1,X'?.ANP:1,1:'$D(^DIC(9.4,""C"",X))) X"
^DD(51.1,4,1,0)="^.1"
^DD(51.1,4,1,1,0)="51.1^AHL^MUMPS"
^DD(51.1,4,1,1,1)="S PSJHLDA(+DA)=""MUP"""
^DD(51.1,4,1,1,2)="S PSJHLDA(+DA)=""MDL"""
^DD(51.1,4,1,1,"%D",0)="^^2^2^2970926^^"
^DD(51.1,4,1,1,"%D",1,0)="Use to update Administration Schedule to OE/RR Schedule file."
^DD(51.1,4,1,1,"%D",2,0)="In the form of: PSJHLDA(+DA)"
^DD(51.1,4,1,1,"DT")="2950223"
^DD(51.1,4,1,2,0)="51.1^AC^MUMPS"
^DD(51.1,4,1,2,1)="I $D(^PS(51.1,DA,0)),$P(^(0),""^"")]"""" S ^PS(51.1,""AC"",X,$P(^(0),""^""),DA)="""""
^DD(51.1,4,1,2,2)="I $D(^PS(51.1,DA,0)),$P(^(0),""^"")]"""" K ^PS(51.1,""AC"",X,$P(^(0),""^""),DA)"
^DD(51.1,4,1,2,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.1,4,1,2,"%D",0)="^^2^2^2970926^^"
^DD(51.1,4,1,2,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups."
^DD(51.1,4,1,2,"%D",2,0)="In the form of: ^PS(51.1,""AC"",X,$P(^(0),""^""),DA)"
^DD(51.1,4,1,3,0)="51.1^AP^MUMPS"
^DD(51.1,4,1,3,1)="S ^PS(51.1,""AP""_X,$P(^PS(51.1,DA,0),""^""),DA)="""""
^DD(51.1,4,1,3,2)="K ^PS(51.1,""AP""_X,$P(^PS(51.1,DA,0),""^""),DA)"
^DD(51.1,4,1,3,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.1,4,1,3,"%D",0)="^^2^2^2970926^^"
^DD(51.1,4,1,3,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups."
^DD(51.1,4,1,3,"%D",2,0)="In the form of: ^PS(51.1,""AP""_X,$P(^PS(51.1,DA,0),""^""),DA)"
^DD(51.1,4,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH."
^DD(51.1,4,4)="D EN^DDIOL(""ENTER PREFIX OF PACKAGE THAT WILL BE USING THIS SCHEDULE."","""",""!"")"
^DD(51.1,4,20,0)="^.3LA^1^1"
^DD(51.1,4,20,1,0)="PS"
^DD(51.1,4,21,0)="^^5^5^2970616^^^^"
^DD(51.1,4,21,1,0)="  This is the package prefix (as found in file 9.4) for the package that"
^DD(51.1,4,21,2,0)="will be the primary user of this schedule.  This is used primary as a"
^DD(51.1,4,21,3,0)="screen to allow various packages to enter and edit their own set of"
^DD(51.1,4,21,4,0)="schedules.  This is NOT to be set through the VA FileMan, but only through"
^DD(51.1,4,21,5,0)="the designated utility."
^DD(51.1,4,"DT")="2950223"
^DD(51.1,5,0)="TYPE OF SCHEDULE^*SX^C:CONTINUOUS;D:DAY OF THE WEEK;DR:DAY OF THE WEEK-RANGE;O:ONE-TIME;R:RANGE;S:SHIFT;OC:ON CALL;P:PRN;^0;5^D ENPSJT^PSSJSV Q:'$D(X)"
^DD(51.1,5,3)="ENTER TYPE OF SCHEDULE."
^DD(51.1,5,4)="D ENSTH^PSSDDUT"
^DD(51.1,5,5,1,0)="51.1^.01^6"
^DD(51.1,5,5,2,0)="51.1^.01^7"
^DD(51.1,5,12)="CHECK PACKAGE"
^DD(51.1,5,12.1)="S DIC(""S"")=""I $S($P(^PS(51.1,DA,0),""""^"""",4)="""""""":0,$P(^(0),""""^"""",4)'=""""PSJ"""":1,Y=""""DR"""":0,1:""""RS""""'[Y)"""
^DD(51.1,5,20,0)="^.3LA^1^1"
^DD(51.1,5,20,1,0)="PSJ"
^DD(51.1,5,21,0)="^.001^2^2^3051007^^^^"
^DD(51.1,5,21,1,0)="  This is the type of schedule.  The type of schedule determines how the"
^DD(51.1,5,21,2,0)="schedule will be processed."
^DD(51.1,5,"DT")="3070108"
^DD(51.1,6,0)="STANDARD SHIFTS^FX^^0;6^D ENSHV^PSSJSV"
^DD(51.1,6,3)="Answer must be 1-11 characters in length."
^DD(51.1,6,20,0)="^.3LA^1^1"
^DD(51.1,6,20,1,0)="PSJ"
^DD(51.1,6,21,0)="^^2^2^2940621^^^^"
^DD(51.1,6,21,1,0)="  This is the standard shift (or shifts) which pertain to this schedule.  If"
^DD(51.1,6,21,2,0)="there is more than one shift, separate them with dashes (i.e., 'M-E')."
^DD(51.1,6,"DT")="2891112"
^DD(51.1,7,0)="HOSPITAL LOCATION^51.17P^^2;0"
^DD(51.1,7,20,0)="^.3LA^1^1"
^DD(51.1,7,20,1,0)="PSJ"
^DD(51.1,7,21,0)="^^3^3^2920514^^"
^DD(51.1,7,21,1,0)="  This allows the site to enter information pertaining to a schedule on"
^DD(51.1,7,21,2,0)="hospital location by hospital location basis.  The wards used are from the"
^DD(51.1,7,21,3,0)="HOSPITAL LOCATION file."
^DD(51.1,7,23,0)="^^4^4^2920514^^"
^DD(51.1,7,23,1,0)="  This allows the site to enter certain information (e.g. admin times) about"
^DD(51.1,7,23,2,0)="the schedule specifically by hospital location.  The wards point to the"
^DD(51.1,7,23,3,0)="HOSPITAL LOCATION (#42) file.  In processing, the hospital location is"
^DD(51.1,7,23,4,0)="determined by the ward on which the patient is shown to reside."
^DD(51.1,8,0)="OUTPATIENT EXPANSION^F^^0;8^K:$L(X)>50!($L(X)<2) X"
^DD(51.1,8,3)="Answer must be 2-50 characters in length."
^DD(51.1,8,21,0)="^^1^1^2950222^"
^DD(51.1,8,21,1,0)="This is the expansion for this Administration Schedule to be use in the Outpatient Pharmacy."
^DD(51.1,8,"DT")="2950222"
^DD(51.1,8.1,0)="OTHER LANGUAGE EXPANSION^F^^3;1^K:$L(X)>50!($L(X)<2) X"
^DD(51.1,8.1,3)="Answer must be 2-50 characters in length."
^DD(51.1,8.1,20,0)="^.3LA^1^1"
^DD(51.1,8.1,20,1,0)="PSO"
^DD(51.1,8.1,21,0)="^.001^1^1^3020916^^^"
^DD(51.1,8.1,21,1,0)="This field is used to store the other language expansion."
^DD(51.1,8.1,23,0)="^.001^1^1^3020916^^^"
^DD(51.1,8.1,23,1,0)="Free text."
^DD(51.1,8.1,"DT")="3020916"
^DD(51.1,"B","FREQUENCY (IN MINUTES)",2)=""
^DD(51.1,"B","HOSPITAL LOCATION",7)=""
^DD(51.1,"B","MAX DAYS FOR ORDERS",2.5)=""
^DD(51.1,"B","NAME",.01)=""
^DD(51.1,"B","OTHER LANGUAGE EXPANSION",8.1)=""
^DD(51.1,"B","OUTPATIENT EXPANSION",8)=""
^DD(51.1,"B","PACKAGE PREFIX",4)=""
^DD(51.1,"B","STANDARD ADMINISTRATION TIMES",1)=""
^DD(51.1,"B","STANDARD SHIFTS",6)=""
^DD(51.1,"B","TYPE OF SCHEDULE",5)=""
^DD(51.1,"B","WARD",3)=""
^DD(51.1,"GL",0,1,.01)=""
^DD(51.1,"GL",0,2,1)=""
^DD(51.1,"GL",0,3,2)=""
^DD(51.1,"GL",0,4,4)=""
^DD(51.1,"GL",0,5,5)=""
^DD(51.1,"GL",0,6,6)=""
^DD(51.1,"GL",0,7,2.5)=""
^DD(51.1,"GL",0,8,8)=""
^DD(51.1,"GL",1,0,3)=""
^DD(51.1,"GL",2,0,7)=""
^DD(51.1,"GL",3,1,8.1)=""
^DD(51.1,"GR","PS",4,1)=""
^DD(51.1,"GR","PSJ",.01,1)=""
^DD(51.1,"GR","PSJ",1,1)=""
^DD(51.1,"GR","PSJ",2,1)=""
^DD(51.1,"GR","PSJ",3,1)=""
^DD(51.1,"GR","PSJ",5,1)=""
^DD(51.1,"GR","PSJ",6,1)=""
^DD(51.1,"GR","PSJ",7,1)=""
^DD(51.1,"GR","PSO",8.1,1)=""
^DD(51.1,"IX",.01)=""
^DD(51.1,"IX",4)=""
^DD(51.1,"RQ",.01)=""
^DD(51.1,"RQ",4)=""
^DD(51.1,"SB",51.11,3)=""
^DD(51.1,"SB",51.17,7)=""
^DD(51.11,0)="WARD SUB-FIELD^NL^1^2"
^DD(51.11,0,"NM","WARD")=""
^DD(51.11,0,"UP")="51.1"
^DD(51.11,.01,0)="WARD^MP42'X^DIC(42,^0;1^S:$D(X)#2 DINUM=X"
^DD(51.11,.01,20,0)="^.3LA^1^1"
^DD(51.11,.01,20,1,0)="PSJ"
^DD(51.11,.01,21,0)="^^2^2^2910305^^^^"
^DD(51.11,.01,21,1,0)="  Ward for which a special set of administration times for this schedule"
^DD(51.11,.01,21,2,0)="pertain."
^DD(51.11,.01,"DT")="2900416"
^DD(51.11,1,0)="WARD ADMINISTRATION TIMES^FX^^0;2^D ENCHK^PSSGS0"
^DD(51.11,1,3)="ENTER A TIME OF DAY, OR A SET OF TIMES, 2 TO 119 CHARACTERS IN LENGTH."
^DD(51.11,1,4)="D ADTM^PSSDDUT2"
^DD(51.11,1,20,0)="^.3LA^1^1"
^DD(51.11,1,20,1,0)="PSJ"
^DD(51.11,1,21,0)="^^5^5^2910305^^^^"
^DD(51.11,1,21,1,0)="  This is the times of the day, for this schedule and especially for this"
^DD(51.11,1,21,2,0)="ward, that the action should take place.  Use military time (24 hour clock)"
^DD(51.11,1,21,3,0)="when entering the times, separating each time with a '-'.  Be sure that"
^DD(51.11,1,21,4,0)="the times are in ascending order, i.e. 06-14-22 or 0600-1400-2200.  All"
^DD(51.11,1,21,5,0)="times must be the same length, either 2 or 4 digits."
^DD(51.11,1,"DT")="2890908"
^DD(51.11,"B","WARD",.01)=""
^DD(51.11,"B","WARD ADMINISTRATION TIMES",1)=""
^DD(51.11,"GL",0,1,.01)=""
^DD(51.11,"GL",0,2,1)=""
^DD(51.11,"GR","PSJ",.01,1)=""
^DD(51.11,"GR","PSJ",1,1)=""
^DD(51.15,0)="FIELD^^4^5"
^DD(51.15,0,"IX","AC",51.15,4)=""
^DD(51.15,0,"IX","ACC",51.15,.01)=""
^DD(51.15,0,"IX","ACP",51.15,1)=""
^DD(51.15,0,"IX","AP",51.15,4)=""
^DD(51.15,0,"IX","APP",51.15,.01)=""
^DD(51.15,0,"IX","B",51.15,.01)=""
^DD(51.15,0,"IX","C",51.15,1)=""
^DD(51.15,0,"NM","ADMINISTRATION SHIFT")=""
^DD(51.15,0,"VR")="5.0"
^DD(51.15,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(51.15,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(51.15,.01,1,0)="^.1"
^DD(51.15,.01,1,1,0)="51.15^B"
^DD(51.15,.01,1,1,1)="S ^PS(51.15,""B"",$E(X,1,30),DA)="""""
^DD(51.15,.01,1,1,2)="K ^PS(51.15,""B"",$E(X,1,30),DA)"
^DD(51.15,.01,1,2,0)="51.15^ACC^MUMPS"
^DD(51.15,.01,1,2,1)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"",4)]"""" S ^PS(51.15,""AC"",$P(^(0),""^"",4),X,DA)="""""
^DD(51.15,.01,1,2,2)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"",4)]"""" K ^PS(51.15,""AC"",$P(^(0),""^"",4),X,DA)"
^DD(51.15,.01,1,2,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.15,.01,1,2,"%D",0)="^^2^2^2971211^"
^DD(51.15,.01,1,2,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups."
^DD(51.15,.01,1,2,"%D",2,0)="S ^PS(51.15,""AC"",PACKAGE,NAME,IEN)="""""
^DD(51.15,.01,1,3,0)="51.15^APP^MUMPS"
^DD(51.15,.01,1,3,1)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"",4)]"""" S ^PS(51.15,""AP""_$P(^(0),""^"",4),X,DA)="""""
^DD(51.15,.01,1,3,2)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"",4)]"""" K ^PS(51.15,""AP""_$P(^(0),""^"",4),X,DA)"
^DD(51.15,.01,1,3,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.15,.01,1,3,"%D",0)="^^2^2^2971211^"
^DD(51.15,.01,1,3,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups."
^DD(51.15,.01,1,3,"%D",2,0)="S ^PS(51.15,""AP""_PACKAGE,NAME,IEN)="""""
^DD(51.15,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(51.15,.01,21,0)="^^1^1^2910305^"
^DD(51.15,.01,21,1,0)="  This is an arbitrary name for a shift, such as 'MORNING'."
^DD(51.15,1,0)="ABBREVIATION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X"
^DD(51.15,1,1,0)="^.1"
^DD(51.15,1,1,1,0)="51.15^C"
^DD(51.15,1,1,1,1)="S ^PS(51.15,""C"",$E(X,1,30),DA)="""""
^DD(51.15,1,1,1,2)="K ^PS(51.15,""C"",$E(X,1,30),DA)"
^DD(51.15,1,1,2,0)="51.15^ACP^MUMPS"
^DD(51.15,1,1,2,1)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"",4)]"""" S ^PS(51.15,""ACP"",$P(^(0),""^"",4),X,DA)="""""
^DD(51.15,1,1,2,2)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"",4)]"""" K ^PS(51.15,""ACP"",$P(^(0),""^"",4),X,DA)"
^DD(51.15,1,1,2,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.15,1,1,2,"%D",0)="^^3^3^2971211^"
^DD(51.15,1,1,2,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups by"
^DD(51.15,1,1,2,"%D",2,0)="abbreviation."
^DD(51.15,1,1,2,"%D",3,0)="S ^PS(51.15,""AP""_PACKAGE,NAME,IEN)="""""
^DD(51.15,1,3)="Answer must be 1 character in length."
^DD(51.15,1,21,0)="^^1^1^2910305^"
^DD(51.15,1,21,1,0)="  This is a one character code for the shift, such as 'M' for 'MORNING'."
^DD(51.15,1,"DT")="2891112"
^DD(51.15,2,0)="STANDARD START/STOP TIMES^FX^^0;3^D ENVSST^PSJSV"
^DD(51.15,2,3)="Answer must be 5 or 9 characters in length, a set of two times of the day separated by a dash."
^DD(51.15,2,21,0)="^^4^4^2910305^"
^DD(51.15,2,21,1,0)="  This is two times of the day that define the shift by designating the "
^DD(51.15,2,21,2,0)="range over which an action is to take place.  The two times must be in"
^DD(51.15,2,21,3,0)="military format and must both be either two or four characters, and be"
^DD(51.15,2,21,4,0)="separated by a dash, such as '09-13' or '0900-1300'."
^DD(51.15,2,"DT")="2891125"
^DD(51.15,3,0)="HOSPITAL LOCATION^51.153P^^1;0"
^DD(51.15,3,20,0)="^.3LA^1^1"
^DD(51.15,3,20,1,0)="PSJ"
^DD(51.15,3,21,0)="^^3^3^2940621^^^^"
^DD(51.15,3,21,1,0)="  This allows the site to enter information pertaining to a shift on a"
^DD(51.15,3,21,2,0)="hospital location by hospital location basis.  The wards used are from the"
^DD(51.15,3,21,3,0)="HOSPITAL LOCATION file."
^DD(51.15,3,23,0)="^^4^4^2940621^^^^"
^DD(51.15,3,23,1,0)="  This allows the site to enter certain information (e.g., start/stop times)"
^DD(51.15,3,23,2,0)="about the shift specifically by hospital location.  The hospital location"
^DD(51.15,3,23,3,0)="point to the HOSPITAL LOCATION (#42) file.  In processing, the hospital"
^DD(51.15,3,23,4,0)="location is determined by the ward on which the patient is shown to reside."
^DD(51.15,4,0)="PACKAGE^RFX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$S(X["""""""":1,$A(X)=45:1,$L(X)>4:1,$L(X)<1:1,X'?.ANP:1,1:0) X I $D(X) N DIC S DIC(0)=""OX"",DIC=9.4,D=""C"" D IX^DIC K:(+Y'>0) X"
^DD(51.15,4,1,0)="^.1"
^DD(51.15,4,1,1,0)="51.15^AC^MUMPS"
^DD(51.15,4,1,1,1)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"")]"""" S ^PS(51.15,""AC"",X,$P(^(0),""^""),DA)="""""
^DD(51.15,4,1,1,2)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"")]"""" K ^PS(51.15,""AC"",X,$P(^(0),""^""),DA)"
^DD(51.15,4,1,1,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.15,4,1,1,"%D",0)="^^2^2^2971211^"
^DD(51.15,4,1,1,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups."
^DD(51.15,4,1,1,"%D",2,0)="S ^PS(51.15,""AC"",PACKAGE,NAME,IEN)="""""
^DD(51.15,4,1,2,0)="51.15^AP^MUMPS"
^DD(51.15,4,1,2,1)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"")]"""" S ^PS(51.15,""AP""_X,$P(^(0),""^""),DA)="""""
^DD(51.15,4,1,2,2)="I $D(^PS(51.15,DA,0)),$P(^(0),""^"")]"""" K ^PS(51.15,""AP""_X,$P(^(0),""^""),DA)"
^DD(51.15,4,1,2,3)="USED BY SCHEDULE PROCESSOR"
^DD(51.15,4,1,2,"%D",0)="^^2^2^2971211^"
^DD(51.15,4,1,2,"%D",1,0)="Used by the Schedule Processor to do package specific look-ups."
^DD(51.15,4,1,2,"%D",2,0)="S ^PS(51.15,""AP""_PACKAGE,NAME,IEN)="""""
^DD(51.15,4,3)="Answer must be 1-4 characters in length."
^DD(51.15,4,4)="D EN^DDIOL(""ENTER PREFIX OF PACKAGE THAT WILL BE USING THIS SHIFT."","""",""!"")"
^DD(51.15,4,10)=""
^DD(51.15,4,20,0)="^.3LA^1^1"
^DD(51.15,4,20,1,0)="PSJ"
^DD(51.15,4,21,0)="^^5^5^2980107^^^^"
^DD(51.15,4,21,1,0)="  This is the package prefix (as found in the Package file (9.4)) for the"
^DD(51.15,4,21,2,0)="package that will be the primary user of this shift.  This is used"
^DD(51.15,4,21,3,0)="primarily as a screen to allow various packages to enter and edit their"
^DD(51.15,4,21,4,0)="own set of shifts.  This is NOT to be set through the VA FileMan, but"
^DD(51.15,4,21,5,0)="only through the designated utilities."
^DD(51.15,4,"DT")="2980107"
^DD(51.15,"B","ABBREVIATION",1)=""
^DD(51.15,"B","HOSPITAL LOCATION",3)=""
^DD(51.15,"B","NAME",.01)=""
^DD(51.15,"B","PACKAGE",4)=""
^DD(51.15,"B","STANDARD START/STOP TIMES",2)=""
^DD(51.15,"GL",0,1,.01)=""
^DD(51.15,"GL",0,2,1)=""
^DD(51.15,"GL",0,3,2)=""
^DD(51.15,"GL",0,4,4)=""
^DD(51.15,"GL",1,0,3)=""
^DD(51.15,"GR","PSJ",3,1)=""
^DD(51.15,"GR","PSJ",4,1)=""
^DD(51.15,"IX",.01)=""
^DD(51.15,"IX",1)=""
^DD(51.15,"IX",4)=""
^DD(51.15,"RQ",.01)=""
^DD(51.15,"RQ",1)=""
^DD(51.15,"RQ",4)=""
^DD(51.15,"SB",51.153,3)=""
^DD(51.153,0)="HOSPITAL LOCATION SUB-FIELD^^1^2"
^DD(51.153,0,"IX","B",51.153,.01)=""
^DD(51.153,0,"NM","HOSPITAL LOCATION")=""
^DD(51.153,0,"UP")="51.15"
^DD(51.153,.01,0)="HOSPITAL LOCATION^M*P44'X^SC(^0;1^S:$D(PSJSHLS) DIC(""S"")=PSJSHLS D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(51.153,.01,1,0)="^.1"
^DD(51.153,.01,1,1,0)="51.153^B"
^DD(51.153,.01,1,1,1)="S ^PS(51.15,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(51.153,.01,1,1,2)="K ^PS(51.15,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(51.153,.01,3)="Enter a hospital location for which a special set of start/stop times pertain."
^DD(51.153,.01,12)=""
^DD(51.153,.01,12.1)="S:$D(PSJSHLS) DIC(""S"")=PSJSHLS"
^DD(51.153,.01,21,0)="^^2^2^2910305^^"
^DD(51.153,.01,21,1,0)="  An area of the hospital that may need to designate set of start/stop "
^DD(51.153,.01,21,2,0)="times for the shift that is different than the standard start/stop times."
^DD(51.153,.01,"DT")="2900313"
^DD(51.153,1,0)="START/STOP TIMES^FX^^0;2^D ENVSST^PSJSV"
^DD(51.153,1,3)="Answer must be 5-9 characters in length, a set of two times of the day separated by a dash."
^DD(51.153,1,21,0)="^^5^5^2910305^"
^DD(51.153,1,21,1,0)="  This is two times of the day, particular to this hospital location, that"
^DD(51.153,1,21,2,0)="define the shift by designating the range over which an action is to take"
^DD(51.153,1,21,3,0)="place.  The two times must be in military format and must both be either"
^DD(51.153,1,21,4,0)="two or four characters, and be separated by a dash, such as '09-13' or "
^DD(51.153,1,21,5,0)="'0900-1300'."
^DD(51.153,1,"DT")="2891125"
^DD(51.153,"B","HOSPITAL LOCATION",.01)=""
^DD(51.153,"B","START/STOP TIMES",1)=""
^DD(51.153,"GL",0,1,.01)=""
^DD(51.153,"GL",0,2,1)=""
^DD(51.153,"IX",.01)=""
^DD(51.17,0)="HOSPITAL LOCATION SUB-FIELD^^2^3"
^DD(51.17,0,"IX","B",51.17,.01)=""
^DD(51.17,0,"NM","HOSPITAL LOCATION")=""
^DD(51.17,0,"UP")="51.1"
^DD(51.17,.01,0)="HOSPITAL LOCATION^MP44'X^SC(^0;1^S:$D(X) DINUM=X"
^DD(51.17,.01,1,0)="^.1"
^DD(51.17,.01,1,1,0)="51.17^B"
^DD(51.17,.01,1,1,1)="S ^PS(51.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(51.17,.01,1,1,2)="K ^PS(51.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(51.17,.01,3)="Enter a hospital location for which a specific set of times or shifts pertain."
^DD(51.17,.01,21,0)="^^2^2^2940621^^"
^DD(51.17,.01,21,1,0)="  This is the hospital location for which this administration schedule is"
^DD(51.17,.01,21,2,0)="applicable."
^DD(51.17,.01,"DT")="2891120"
^DD(51.17,1,0)="ADMINISTRATION TIMES^FX^^0;2^D ENCHK^PSSJSV"
^DD(51.17,1,3)="ENTER A TIME OF DAY, OR A SET OF TIMES, 2 TO 119 CHARACTERS IN LENGTH."
^DD(51.17,1,4)="D ADTM^PSSDDUT2"
^DD(51.17,1,21,0)="^^5^5^2910305^^^"
^DD(51.17,1,21,1,0)="  This is a set administration times for this schedule that are specific"
^DD(51.17,1,21,2,0)="to this hospital location.  This used whenever an area of the medical  "
^DD(51.17,1,21,3,0)="center uses a set of administration times for this schedule that is "
^DD(51.17,1,21,4,0)="different than the standard set of administration times entered for this "
^DD(51.17,1,21,5,0)="schedule."
^DD(51.17,1,"DT")="2891117"
^DD(51.17,2,0)="SHIFTS^FX^^0;3^D ENSHV^PSSJSV"
^DD(51.17,2,3)="Answer must be 1-11 characters in length."
^DD(51.17,2,21,0)="^^6^6^2910305^^^"
^DD(51.17,2,21,1,0)="  This is a set of shifts for this schedule that are specific to this"
^DD(51.17,2,21,2,0)="hospital location.  If there is more than one shift, they must be separated"
^DD(51.17,2,21,3,0)="by dashes (i.e. 'M-E')."
^DD(51.17,2,21,4,0)="  This is used whenever an area of the medical center uses a set of shifts"
^DD(51.17,2,21,5,0)="for this schedule that is different than the standard set of shifts entered"
^DD(51.17,2,21,6,0)="for this schedule."
^DD(51.17,2,"DT")="2891120"
^DD(51.17,"B","ADMINISTRATION TIMES",1)=""
^DD(51.17,"B","HOSPITAL LOCATION",.01)=""
^DD(51.17,"B","SHIFTS",2)=""
^DD(51.17,"GL",0,1,.01)=""
^DD(51.17,"GL",0,2,1)=""
^DD(51.17,"GL",0,3,2)=""
^DD(51.17,"IX",.01)=""
^DD(51.2,0)="FIELD^^6^9"
^DD(51.2,0,"DDA")="N"
^DD(51.2,0,"DT")="2950222"
^DD(51.2,0,"ID",1)="D:$D(^(0)) EN^DDIOL($P(^(0),U,3),"""",""?$X+4"")"
^DD(51.2,0,"IX","AUDC",51.2,.01)=""
^DD(51.2,0,"IX","B",51.2,.01)=""
^DD(51.2,0,"IX","C",51.2,1)=""
^DD(51.2,0,"NM","MEDICATION ROUTES")=""
^DD(51.2,0,"PT",50,62.02)=""
^DD(51.2,0,"PT",50.31,.06)=""
^DD(51.2,0,"PT",50.6061,.01)=""
^DD(51.2,0,"PT",50.7,.06)=""
^DD(51.2,0,"PT",51,2)=""
^DD(51.2,0,"PT",52.0113,6)=""
^DD(51.2,0,"PT",52.037,.01)=""
^DD(51.2,0,"PT",52.41,16)=""
^DD(51.2,0,"PT",52.413,10)=""
^DD(51.2,0,"PT",52.61,7)=""
^DD(51.2,0,"PT",53.1,3)=""
^DD(51.2,0,"PT",53.21,6)=""
^DD(51.2,0,"PT",53.22,6)=""
^DD(51.2,0,"PT",55.01,119)=""
^DD(51.2,0,"PT",55.01,132)=""
^DD(51.2,0,"PT",55.06,3)=""
^DD(51.2,0,"PT",57.1,4)=""
^DD(51.2,0,"VR")="3.18"
^DD(51.2,0,"VRPK")="PSN"
^DD(51.2,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(51.2,.01,1,0)="^.1"
^DD(51.2,.01,1,1,0)="51.2^B"
^DD(51.2,.01,1,1,1)="S ^PS(51.2,""B"",$E(X,1,30),DA)="""""
^DD(51.2,.01,1,1,2)="K ^PS(51.2,""B"",$E(X,1,30),DA)"
^DD(51.2,.01,1,2,0)="51.2^AUDC^MUMPS"
^DD(51.2,.01,1,2,1)="I '$D(PSGINITF) S ^PS(51.2,""AUDC"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(51.2,.01,1,2,2)="Q"
^DD(51.2,.01,1,2,"%D",0)="^^3^3^2981014^^^"
^DD(51.2,.01,1,2,"%D",1,0)="Used by Unit Dose post-inits to determine if a conversion needs to be run on"
^DD(51.2,.01,1,2,"%D",2,0)="this file."
^DD(51.2,.01,1,2,"%D",3,0)="In the form of: ^PS(51.2,""AUDC"")"
^DD(51.2,.01,3)="Answer must be 3-45 characters in length."
^DD(51.2,.01,8.5)="^"
^DD(51.2,.01,20,0)="^.3LA^1^1"
^DD(51.2,.01,20,1,0)="PS"
^DD(51.2,.01,21,0)="^^1^1^2910130^^"
^DD(51.2,.01,21,1,0)="This is a route of administration for a medication."
^DD(51.2,.01,21,2,0)="a patient."
^DD(51.2,.01,23,0)="^^1^1^2911105^"
^DD(51.2,.01,23,1,0)="This is used to show how a medication is to be administered to patient."
^DD(51.2,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED!"","""",""!?10"")"
^DD(51.2,.01,"DT")="2870210"
^DD(51.2,1,0)="ABBREVIATION^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(51.2,1,1,0)="^.1"
^DD(51.2,1,1,1,0)="51.2^C"
^DD(51.2,1,1,1,1)="S ^PS(51.2,""C"",$E(X,1,30),DA)="""""
^DD(51.2,1,1,1,2)="K ^PS(51.2,""C"",$E(X,1,30),DA)"
^DD(51.2,1,1,1,"%D",0)="^^1^1^2911204^"
^DD(51.2,1,1,1,"%D",1,0)="This cross-reference stores the abbreviation for the medication route."
^DD(51.2,1,3)="Answer must be 1-15 characters in length."
^DD(51.2,1,4)="D EN^DDIOL(""IT WILL MOST LIKELY BE THE LATIN ABBREVIATION."")"
^DD(51.2,1,20,0)="^.3LA^2^2"
^DD(51.2,1,20,1,0)="ps"
^DD(51.2,1,20,2,0)="PS"
^DD(51.2,1,21,0)="^^3^3^2910130^^^^"
^DD(51.2,1,21,1,0)="This is an abbreviation for the medication route"
^DD(51.2,1,21,2,0)="entered.  If an abbreviation is found for a medication route, the"
^DD(51.2,1,21,3,0)="abbreviation will be used on various reports."
^DD(51.2,1,21,4,0)="the Latin form of the medication route name. In most cases, medication"
^DD(51.2,1,21,5,0)="routes can be selected by abbreviation."
^DD(51.2,1,"DT")="2870210"
^DD(51.2,3,0)="PACKAGE USE^S^0:NATIONAL DRUG FILE ONLY;1:ALL PACKAGES;^0;4^Q"
^DD(51.2,3,20,0)="^.3LA^1^1"
^DD(51.2,3,20,1,0)="PS"
^DD(51.2,3,21,0)="^^3^3^2910130^^^^"
^DD(51.2,3,21,1,0)="  The National Drug File uses far more Med Routes than need to"
^DD(51.2,3,21,2,0)="be selected by Inpatient personnel.  This field is used to screen"
^DD(51.2,3,21,3,0)="out Med Routes not needed by the Inpatient packages."
^DD(51.2,3,21,4,0)="med route is for use only by the National Drug File."
^DD(51.2,3,23,0)="^^4^4^2911105^"
^DD(51.2,3,23,1,0)="Medication routes are used by various Pharmacy packages, including the"
^DD(51.2,3,23,2,0)="National Drug File (NDF). The NDF package uses far more med routes than"
^DD(51.2,3,23,3,0)="are needed by other Pharmacy packages. This is used by the other Pharmacy"
^DD(51.2,3,23,4,0)="packages to screen out the med routes that are used only by NDF."
^DD(51.2,3,"DT")="2870309"
^DD(51.2,4,0)="OUTPATIENT EXPANSION^F^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(51.2,4,3)="Answer must be 2-50 characters in length."
^DD(51.2,4,21,0)="^^1^1^2950222^"
^DD(51.2,4,21,1,0)="This is the Medication route's expansion to be use in the Outpatient Pharmacy."
^DD(51.2,4,21,2,0)="Pharmacy."
^DD(51.2,4,"DT")="2950222"
^DD(51.2,4.1,0)="OTHER LANGUAGE EXPANSION^F^^0;7^K:$L(X)>50!($L(X)<2) X"
^DD(51.2,4.1,3)="Answer must be 2-50 characters in length."
^DD(51.2,4.1,20,0)="^.3LA^1^1"
^DD(51.2,4.1,20,1,0)="PSO"
^DD(51.2,4.1,21,0)="^.001^1^1^3020916^^^^"
^DD(51.2,4.1,21,1,0)="This field is used to store the other language expansion."
^DD(51.2,4.1,23,0)="^.001^1^1^3020916^^^^"
^DD(51.2,4.1,23,1,0)="Free text."
^DD(51.2,4.1,"DT")="3020916"
^DD(51.2,5,0)="INACTIVATION DATE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(51.2,5,3)="Enter the date the medication route was inactivated."
^DD(51.2,5,21,0)="^^1^1^2981119^"
^DD(51.2,5,21,1,0)="This is the date that the medication route was inactivated."
^DD(51.2,5,"DT")="2981119"
^DD(51.2,6,0)="IV FLAG^S^0:NO;1:YES;^0;6^Q"
^DD(51.2,6,3)="Enter a '1' for Yes."
^DD(51.2,6,21,0)="^.001^3^3^3000329^^^^"
^DD(51.2,6,21,1,0)="This field shall designate IV medication routes. This will help determine"
^DD(51.2,6,21,2,0)="how Inpatient Medication orders entered through CPRS will be finished"
^DD(51.2,6,21,3,0)="in the Pharmacy package."
^DD(51.2,6,"DT")="3000228"
^DD(51.2,8,0)="PROMPT FOR INJ. SITE IN BCMA^S^0:NO;1:YES;^0;8^Q"
^DD(51.2,8,3)="Enter YES if you wish a prompt for injection site to appear in BCMA."
^DD(51.2,8,21,0)="^^2^2^3070111^"
^DD(51.2,8,21,1,0)="The purpose of this field is to provide a way to indicate that a"
^DD(51.2,8,21,2,0)="medication route needs to have a prompt for injection site in BCMA."
^DD(51.2,8,"DT")="3070119"
^DD(51.2,9,0)="DSPLY ON IVP/IVPB TAB IN BCMA?^S^0:NO;1:YES;^0;9^Q"
^DD(51.2,9,3)="Enter YES if orders with this Med Route should display on the IVP/IVPB tab in BCMA."
^DD(51.2,9,"DT")="3070518"
^DD(51.2,"B","ABBREVIATION",1)=""
^DD(51.2,"B","DSPLY ON IVP/IVPB TAB IN BCMA?",9)=""
^DD(51.2,"B","INACTIVATION DATE",5)=""
^DD(51.2,"B","IV FLAG",6)=""
^DD(51.2,"B","NAME",.01)=""
^DD(51.2,"B","OTHER LANGUAGE EXPANSION",4.1)=""
^DD(51.2,"B","OUTPATIENT EXPANSION",4)=""
^DD(51.2,"B","PACKAGE USE",3)=""
^DD(51.2,"B","PROMPT FOR INJ. SITE IN BCMA",8)=""
^DD(51.2,"GL",0,1,.01)=""
^DD(51.2,"GL",0,2,4)=""
^DD(51.2,"GL",0,3,1)=""
^DD(51.2,"GL",0,4,3)=""
^DD(51.2,"GL",0,5,5)=""
^DD(51.2,"GL",0,6,6)=""
^DD(51.2,"GL",0,7,4.1)=""
^DD(51.2,"GL",0,8,8)=""
^DD(51.2,"GL",0,9,9)=""
^DD(51.2,"GR","PS",.01,1)=""
^DD(51.2,"GR","PS",1,2)=""
^DD(51.2,"GR","PS",3,1)=""
^DD(51.2,"GR","PSO",4.1,1)=""
^DD(51.2,"GR","ps",1,1)=""
^DD(51.2,"IX",.01)=""
^DD(51.2,"IX",1)=""
^DD(51.2,"RQ",.01)=""
^DD(51.5,0)="FIELD^NL^.02^2"
^DD(51.5,0,"DDA")="Y"
^DD(51.5,0,"ID",.02)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(51.5,0,"IX","B",51.5,.01)=""
^DD(51.5,0,"IX","C",51.5,.02)=""
^DD(51.5,0,"NM","ORDER UNIT")=""
^DD(51.5,0,"PT",50,12)=""
^DD(51.5,0,"PT",50.1,401)=""
^DD(51.5,0,"PT",58.81125,3)=""
^DD(51.5,0,"PT",58.8122,1)=""
^DD(51.5,0,"VR")="1.0"
^DD(51.5,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(51.5,.01,0)="ABBREVIATION^RF^^0;1^K:$L(X)>3!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(51.5,.01,1,0)="^.1"
^DD(51.5,.01,1,1,0)="51.5^B"
^DD(51.5,.01,1,1,1)="S ^DIC(51.5,""B"",$E(X,1,30),DA)="""""
^DD(51.5,.01,1,1,2)="K ^DIC(51.5,""B"",$E(X,1,30),DA)"
^DD(51.5,.01,3)="ANSWER MUST BE 2-3 CHARACTERS IN LENGTH"
^DD(51.5,.01,21,0)="^^1^1^2920127^^"
^DD(51.5,.01,21,1,0)="This field is used to enter an abbreviated order unit name."
^DD(51.5,.02,0)="EXPANSION^F^^0;2^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(51.5,.02,1,0)="^.1"
^DD(51.5,.02,1,1,0)="51.5^C"
^DD(51.5,.02,1,1,1)="S ^DIC(51.5,""C"",$E(X,1,30),DA)="""""
^DD(51.5,.02,1,1,2)="K ^DIC(51.5,""C"",$E(X,1,30),DA)"
^DD(51.5,.02,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(51.5,.02,21,0)="^^1^1^2920127^^"
^DD(51.5,.02,21,1,0)="This field is used to enter an expanded order unit name."
^DD(51.5,"B","ABBREVIATION",.01)=""
^DD(51.5,"B","EXPANSION",.02)=""
^DD(51.5,"GL",0,1,.01)=""
^DD(51.5,"GL",0,2,.02)=""
^DD(51.5,"IX",.01)=""
^DD(51.5,"IX",.02)=""
^DD(51.5,"RQ",.01)=""
^DD(51.7,0)="FIELD^^3^4"
^DD(51.7,0,"DDA")="N"
^DD(51.7,0,"DT")="2990906"
^DD(51.7,0,"IX","B",51.7,.01)=""
^DD(51.7,0,"IX","C",51.71,.01)=""
^DD(51.7,0,"NM","DRUG TEXT")=""
^DD(51.7,0,"PT",50.037,.01)=""
^DD(51.7,0,"PT",50.76,.01)=""
^DD(51.7,0,"VR")="1.0"
^DD(51.7,0,"VRPK")="PSS"
^DD(51.7,.01,0)="NAME^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(51.7,.01,1,0)="^.1"
^DD(51.7,.01,1,1,0)="51.7^B"
^DD(51.7,.01,1,1,1)="S ^PS(51.7,""B"",$E(X,1,30),DA)="""""
^DD(51.7,.01,1,1,2)="K ^PS(51.7,""B"",$E(X,1,30),DA)"
^DD(51.7,.01,3)="Answer must be 1-40 characters in length."
^DD(51.7,.01,20,0)="^.3LA^1^1"
^DD(51.7,.01,20,1,0)="PS"
^DD(51.7,.01,21,0)="^^1^1^2990906^^"
^DD(51.7,.01,21,1,0)="This field will hold a short description of the text entry."
^DD(51.7,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED!"","""",""!?10"")"
^DD(51.7,.01,"DT")="2990910"
^DD(51.7,.01,"LAYGO",.01,0)="N ZZZ S ZZZ=$D(PSSNFI) D:'ZZZ EN^DDIOL(""ADDITIONS MUST BE MADE THROUGH THE PDM 'Drug Text Enter/Edit' option"") I ZZZ"
^DD(51.7,1,0)="SYNONYM^51.71^^1;0"
^DD(51.7,2,0)="INACTIVATION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(51.7,2,3)="Enter the date the drug text entry became inactive."
^DD(51.7,2,21,0)="^^4^4^2990906^"
^DD(51.7,2,21,1,0)="This field will hold an inactivation date of the drug text entry. If an"
^DD(51.7,2,21,2,0)="inactivation date is present, this drug text entry will not be selectable"
^DD(51.7,2,21,3,0)="for a pharmacy orderable item or a drug file entry. It will be used as a"
^DD(51.7,2,21,4,0)="screen for any lookups, displays, or reports."
^DD(51.7,2,"DT")="2990906"
^DD(51.7,3,0)="TEXT^51.73^^2;0"
^DD(51.7,"B","INACTIVATION DATE",2)=""
^DD(51.7,"B","NAME",.01)=""
^DD(51.7,"B","SYNONYM",1)=""
^DD(51.7,"B","TEXT",3)=""
^DD(51.7,"GL",0,1,.01)=""
^DD(51.7,"GL",0,2,2)=""
^DD(51.7,"GL",1,0,1)=""
^DD(51.7,"GL",2,0,3)=""
^DD(51.7,"GR","PS",.01,1)=""
^DD(51.7,"IX",.01)=""
^DD(51.7,"RQ",.01)=""
^DD(51.7,"SB",51.71,1)=""
^DD(51.7,"SB",51.73,3)=""
^DD(51.71,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(51.71,0,"DT")="2990906"
^DD(51.71,0,"IX","B",51.71,.01)=""
^DD(51.71,0,"NM","SYNONYM")=""
^DD(51.71,0,"UP")="51.7"
^DD(51.71,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(51.71,.01,1,0)="^.1"
^DD(51.71,.01,1,1,0)="51.71^B"
^DD(51.71,.01,1,1,1)="S ^PS(51.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(51.71,.01,1,1,2)="K ^PS(51.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(51.71,.01,1,2,0)="51.7^C"
^DD(51.71,.01,1,2,1)="S ^PS(51.7,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(51.71,.01,1,2,2)="K ^PS(51.7,""C"",$E(X,1,30),DA(1),DA)"
^DD(51.71,.01,1,2,3)="DO NOT DELETE"
^DD(51.71,.01,1,2,"%D",0)="^^1^1^3000127^"
^DD(51.71,.01,1,2,"%D",1,0)="This cross-reference on the synonym is used for looking up entries in the DRUG TEXT file (#51.7)."
^DD(51.71,.01,1,2,"DT")="3000127"
^DD(51.71,.01,3)="Answer must be 1-40 characters in length."
^DD(51.71,.01,21,0)="^^1^1^3000209^^"
^DD(51.71,.01,21,1,0)="This field will be used to allow quick lookup for the drug text defined."
^DD(51.71,.01,"DT")="3000127"
^DD(51.71,"B","SYNONYM",.01)=""
^DD(51.71,"GL",0,1,.01)=""
^DD(51.71,"IX",.01)=""
^DD(51.73,0)="TEXT SUB-FIELD^^.01^1"
^DD(51.73,0,"DT")="2990906"
^DD(51.73,0,"NM","TEXT")=""
^DD(51.73,0,"UP")="51.7"
^DD(51.73,.01,0)="TEXT^W^^0;1^Q"
^DD(51.73,.01,3)="Enter text which should contain drug information, restrictions, guidelines, or any other data that may apply to the drug."
^DD(51.73,.01,21,0)="^^3^3^2990909^^"
^DD(51.73,.01,21,1,0)="This field will hold drug information, restrictions, guidelines and other"
^DD(51.73,.01,21,2,0)="data that may apply to the drug. This will be used on displays and reports"
^DD(51.73,.01,21,3,0)="in backdoor pharmacy (OP & IPM), PDM, and NDF."
^DD(51.73,.01,"DT")="2990906"
^DD(51.73,"B","TEXT",.01)=""
^DD(51.73,"GL",0,1,.01)=""
^DD(52,0)="FIELD^NL^521011^111"
^DD(52,0,"DDA")="Y"
^DD(52,0,"DIK")="PSOXZA"
^DD(52,0,"DIKOLD")="PSOXZA"
^DD(52,0,"DT")="2971104"
^DD(52,0,"ID",1)="W """""
^DD(52,0,"ID",2)="W """""
^DD(52,0,"ID",6)="W:$D(^(0)) ""   ""_$S($D(^PSDRUG(+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:"""")_$E(^PSRX(+Y,0),0)_$S($P($G(^PSRX(+Y,""STA"")),U)=13:""  ***MARKED FOR DELETION***"",1:"""")"
^DD(52,0,"ID",108)="W:$D(^(""D"")) ""   "",$P(^(""D""),U,3)"
^DD(52,0,"IX","AC",52,1)=""
^DD(52,0,"IX","ACP",52,22)=""
^DD(52,0,"IX","ACP1",52,2)=""
^DD(52,0,"IX","ACP2",52,31)=""
^DD(52,0,"IX","ACP3",52,11)=""
^DD(52,0,"IX","ACP4",52.1,2)=""
^DD(52,0,"IX","AD",52,22)=""
^DD(52,0,"IX","AD",52.1,.01)=""
^DD(52,0,"IX","ADL",52,22)=""
^DD(52,0,"IX","ADL1",52,6)=""
^DD(52,0,"IX","ADP",52.2,.01)=""
^DD(52,0,"IX","AE",52,22)=""
^DD(52,0,"IX","AF",52,6)=""
^DD(52,0,"IX","AFDT",52,38.3)=""
^DD(52,0,"IX","AG",52,26)=""
^DD(52,0,"IX","AH",52,99)=""
^DD(52,0,"IX","AI",52,26)=""
^DD(52,0,"IX","AJ",52,32.1)=""
^DD(52,0,"IX","AJ1",52.1,14)=""
^DD(52,0,"IX","AK",52,26.1)=""
^DD(52,0,"IX","AL",52,31)=""
^DD(52,0,"IX","AL1",52.1,17)=""
^DD(52,0,"IX","AM",52.2,8)=""
^DD(52,0,"IX","AN",52.2,5)=""
^DD(52,0,"IX","ANCO",52,109)=""
^DD(52,0,"IX","AO",52,39.4)=""
^DD(52,0,"IX","AP",52,20)=""
^DD(52,0,"IX","APL",52,39.3)=""
^DD(52,0,"IX","APSOD",52,2)=""
^DD(52,0,"IX","AQ",52,39.5)=""
^DD(52,0,"IX","AR",52,22)=""
^DD(52,0,"IX","AR",52.01,3)=""
^DD(52,0,"IX","AS",52.01,3)=""
^DD(52,0,"IX","B",52,.01)=""
^DD(52,0,"IX","C",52,2)=""
^DD(52,0,"IX","E",52.052311,.01)=""
^DD(52,0,"NM","PRESCRIPTION")=""
^DD(52,0,"PT",50.0731,3)=""
^DD(52,0,"PT",52,39.4)=""
^DD(52,0,"PT",52,39.5)=""
^DD(52,0,"PT",52.1112,.01)=""
^DD(52,0,"PT",52.4,.01)=""
^DD(52,0,"PT",52.4,3)=""
^DD(52,0,"PT",52.5,.01)=""
^DD(52,0,"PT",52.51,.01)=""
^DD(52,0,"PT",52.52,1)=""
^DD(52,0,"PT",52.8,.01)=""
^DD(52,0,"PT",52.9002,.01)=""
^DD(52,0,"PT",55.03,.01)=""
^DD(52,0,"PT",58.800118,18)=""
^DD(52,0,"PT",58.81,60)=""
^DD(52,0,"PT",356,.08)=""
^DD(52,0,"PT",362.4,.05)=""
^DD(52,0,"PT",366.141,.201)=""
^DD(52,0,"PT",366.141,.212)=""
^DD(52,0,"PT",550.1101,.01)=""
^DD(52,0,"PT",550.215,.01)=""
^DD(52,0,"PT",9002313.0201,.05)=""
^DD(52,0,"PT",9002313.57,1.11)=""
^DD(52,0,"PT",9002313.59,1.11)=""
^DD(52,0,"VR")="7.0"
^DD(52,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52,.01,0)="RX #^RF^^0;1^K:$L(X)>11!($L(X)<1) X"
^DD(52,.01,1,0)="^.1^^-1"
^DD(52,.01,1,1,0)="52^B"
^DD(52,.01,1,1,1)="S ^PSRX(""B"",$E(X,1,30),DA)="""""
^DD(52,.01,1,1,2)="K ^PSRX(""B"",$E(X,1,30),DA)"
^DD(52,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(52,.01,4)="D RXHLP^PSOHELP4"
^DD(52,.01,7.5)=""
^DD(52,.01,20,0)="^.3LA^1^1"
^DD(52,.01,20,1,0)="PSO"
^DD(52,.01,21,0)="^^1^1^2971022^^^^"
^DD(52,.01,21,1,0)="This is the prescription number."
^DD(52,.01,"DEL",1,0)="I 1 D EN^DDIOL(""DELETE THROUGH PACKAGE ONLY!"","""",""$C(7),!?5"")"
^DD(52,.01,"DEL",52,0)="S X1=$S($D(^PSRX(D0,2)):$P(^(2),""^"",6),1:0) S:'X1 RX0=^(0),J=D0 D ^PSOEXDT:'X1 I DT'>$P(^(2),U,6),$O(^PSRX(DA,1,0)) D EN^DDIOL(""CANNOT DELETE PRESCRIPTIONS WITH REFILLS."","""",""$C(7),!?5"")"
^DD(52,.01,"DT")="2901126"
^DD(52,1,0)="ISSUE DATE^RDX^^0;13^D CID^PSOUTL S X=Y K:Y<1 X"
^DD(52,1,1,0)="^.1^^-1"
^DD(52,1,1,1,0)="52^AC"
^DD(52,1,1,1,1)="S ^PSRX(""AC"",$E(X,1,30),DA)="""""
^DD(52,1,1,1,2)="K ^PSRX(""AC"",$E(X,1,30),DA)"
^DD(52,1,1,1,3)="Do Not Delete!"
^DD(52,1,1,1,"%D",0)="^.101^1^1^3030425^^"
^DD(52,1,1,1,"%D",1,0)="This xref is used to index file by Issue Date."
^DD(52,1,1,1,"DT")="2940517"
^DD(52,1,2)="I $G(^PSRX(""AC"",$E(X,1,30),DA))="""""
^DD(52,1,4)="D CIDH^PSOUTL"
^DD(52,1,21,0)="1^^1^1^2970902^^^^"
^DD(52,1,21,1,0)="Date when doctor wrote prescription."
^DD(52,1,23,0)="^^1^1^2970902^^^^"
^DD(52,1,23,1,0)="(Required) Date."
^DD(52,1,"DT")="3030425"
^DD(52,2,0)="PATIENT^RP2X^DPT(^0;2^I $D(X) D PAT^PSOHELP"
^DD(52,2,1,0)="^.1"
^DD(52,2,1,1,0)="52^C^MUMPS"
^DD(52,2,1,1,1)="S:$P($G(^PSRX(DA,0)),""^"",11)=""W""&($P($G(^(2)),""^"",2))&('$P($G(^(2)),""^"",13))&('$P($G(^(2)),""^"",15))&(+$G(^(""IB""))) ^PSRX(""ACP"",X,$P(^PSRX(DA,2),""^"",2),0,DA)="""""
^DD(52,2,1,1,2)="K:$P($G(^PSRX(DA,0)),""^"",11)=""W""&($P($G(^(2)),""^"",2))&('$P($G(^(2)),""^"",13))&('$P($G(^(2)),""^"",15))&(+$G(^(""IB""))) ^PSRX(""ACP"",X,$P(^PSRX(DA,2),""^"",2),0,DA)"
^DD(52,2,1,1,3)="Do Not Delete!"
^DD(52,2,1,1,"%D",0)="^^3^3^2971022^^^^"
^DD(52,2,1,1,"%D",1,0)="This cross reference is used to index copay fills that have not been"
^DD(52,2,1,1,"%D",2,0)="billed through the IB package. It sets the global"
^DD(52,2,1,1,"%D",3,0)="^PSRX(""ACP"",Patient,Fill Date,0,DA)=""""."
^DD(52,2,1,1,"DT")="2930729"
^DD(52,2,1,2,0)="52^ACP1^MUMPS"
^DD(52,2,1,2,1)="I +$G(^PSRX(DA,""IB"")) F RFN=0:0 S RFN=$O(^PSRX(DA,1,RFN)) Q:'RFN  S:$P($G(^PSRX(DA,1,RFN,0)),""^"")&($P($G(^(0)),""^"",2)=""W"")&('$P($G(^(0)),""^"",16))&('$P($G(^(0)),""^"",18))&('$G(^(""IB""))) ^PSRX(""ACP"",X,$P(^PSRX(DA,1,RFN,0),""^""),RFN,DA)="""""
^DD(52,2,1,2,2)="I +$G(^PSRX(DA,""IB"")) F RFN=0:0 S RFN=$O(^PSRX(DA,1,RFN)) Q:'RFN  K:$P($G(^PSRX(DA,1,RFN,0)),""^"")&('$P($G(^(0)),""^"",16))&('$P($G(^(0)),""^"",18))&($G(^(""IB""))) ^PSRX(""ACP"",X,$P(^PSRX(DA,1,RFN,0),""^""),RFN,DA)"
^DD(52,2,1,2,3)="Do Not Delete!"
^DD(52,2,1,2,"%D",0)="^^3^3^2971022^^^^"
^DD(52,2,1,2,"%D",1,0)="This xref is used to index copay refills that have not been billed through"
^DD(52,2,1,2,"%D",2,0)="the IB package. It sets the global"
^DD(52,2,1,2,"%D",3,0)="^PSRX(""ACP"",Patient,Refill Date,Refill number,DA)=""""."
^DD(52,2,1,2,"DT")="2930810"
^DD(52,2,1,3,0)="52^APSOD^MUMPS"
^DD(52,2,1,3,1)="S:$G(PSODEATH) ^PSRX(""APSOD"",X,DA)="""""
^DD(52,2,1,3,2)="K:$G(PSODEATH) ^PSRX(""APSOD"",X,DA)"
^DD(52,2,1,3,3)="Do not delete."
^DD(52,2,1,3,"%D",0)="^.101^4^4^3020515^^"
^DD(52,2,1,3,"%D",1,0)="This xref will be set only when a Rx is discontinued because a date of"
^DD(52,2,1,3,"%D",2,0)="death was entered. This xref will be set by the APSOD xref of the"
^DD(52,2,1,3,"%D",3,0)="Date of death field in file #2. ^PSRX(""APSOD"",patient pointer,da)"
^DD(52,2,1,3,"%D",4,0)="Set by routine PSOCAN3."
^DD(52,2,1,3,"DT")="3020515"
^DD(52,2,21,0)="^^1^1^2930405^^"
^DD(52,2,21,1,0)="The patient receiving treatment."
^DD(52,2,23,0)="^^1^1^2930405^^"
^DD(52,2,23,1,0)="(Required) Pointer to Patient File (#2)"
^DD(52,2,"DT")="3020515"
^DD(52,3,0)="PATIENT STATUS^RP53'X^PS(53,^0;3^D:$D(X) STATDAY^PSOUTLA"
^DD(52,3,1,0)="^.1^^0"
^DD(52,3,3)=""
^DD(52,3,21,0)="^^2^2^2921117^^"
^DD(52,3,21,1,0)="This field is used to show the status of the patient at the time the "
^DD(52,3,21,2,0)="medication was filled."
^DD(52,3,23,0)="^^1^1^2920114^"
^DD(52,3,23,1,0)="Pointer to RX Patient Status File (#53)."
^DD(52,3,"DT")="2940825"
^DD(52,4,0)="PROVIDER^R'*P200XI^VA(200,^0;4^S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"" D ^DIC K DIC,X(1) S DIC=DIE,X=+Y K:Y<0 X"
^DD(52,4,3)="Enter the name of a Provider."
^DD(52,4,12)="Only valid providers are to be selected."
^DD(52,4,12.1)="S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"""
^DD(52,4,21,0)="^^1^1^2920610^^^^"
^DD(52,4,21,1,0)="Doctor who wrote the prescription."
^DD(52,4,23,0)="^^1^1^2920610^^^^"
^DD(52,4,23,1,0)="(Required) Pointer to New Person File (#200)"
^DD(52,4,"DT")="2960405"
^DD(52,5,0)="CLINIC^*P44'^SC(^0;5^S DIC(""S"")=""I '$P($G(^(""""SL"""")),""""^"""",5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52,5,3)=""
^DD(52,5,4)="S DIC=44,DIC(0)=""M"",DIC(""S"")=""I '$P($G(^(""""SL"""")),""""^"""",5)"" D ^DIC"
^DD(52,5,12)="Only primary clinics are allowed."
^DD(52,5,12.1)="S DIC(""S"")=""I '$P($G(^(""""SL"""")),""""^"""",5)"""
^DD(52,5,21,0)="^.001^1^1^3010629^^^^"
^DD(52,5,21,1,0)="Clinic where treatment was given and prescription was written."
^DD(52,5,23,0)="^.001^1^1^3010629^^^^"
^DD(52,5,23,1,0)="Pointer to Hospital Location File (#44)"
^DD(52,5,"DT")="3010629"
^DD(52,6,0)="DRUG^R*P50'X^PSDRUG(^0;6^S DIC(""S"")=""I $S('$D(^PSDRUG(Y,""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0),$S('$D(^PSDRUG(Y,2)):1,$P(^(2),""""^"""",3)'[""""O"""":0,1:1)"" I $D(X) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D INP526^PSOFUNC"
^DD(52,6,1,0)="^.1"
^DD(52,6,1,1,0)="52^ADL1^MUMPS"
^DD(52,6,1,1,1)="I X,$P(^PSRX(DA,2),""^"",2) S ^PSRX(""ADL"",$P(^PSRX(DA,2),""^"",2),X,DA)="""""
^DD(52,6,1,1,2)="I X,$P(^PSRX(DA,2),""^"",2) K ^PSRX(""ADL"",$P(^PSRX(DA,2),""^"",2),X,DA)"
^DD(52,6,1,1,3)="Please do not delete."
^DD(52,6,1,1,"%D",0)="^^6^6^2980928^^^^"
^DD(52,6,1,1,"%D",1,0)="This xref will be used to index Rxs by filldate and drug pointer. This xref"
^DD(52,6,1,1,"%D",2,0)="will be used to find Rxs with drug whose price have changed in the Drug "
^DD(52,6,1,1,"%D",3,0)="file (#50) and needs updating in this file."
^DD(52,6,1,1,"%D",4,0)=" "
^DD(52,6,1,1,"%D",5,0)="Cross reference will look like the following:"
^DD(52,6,1,1,"%D",6,0)=" ^PSRX(""ADL"",FILLDATE,DRUG POINTER,DA)="""""
^DD(52,6,1,1,"DT")="2980928"
^DD(52,6,1,2,0)="52^AF^MUMPS"
^DD(52,6,1,2,1)="S:'$D(PSOPAR) PSOPAR=$S($D(^PS(59,$O(^PS(59,0)),1)):^(1),1:"""") S P(7)=$P(^PSRX(DA,0),U,8),P(5)=$P(^PSRX(DA,0),U,6),P(2)=$P(^(0),U,3) D MAX^PSOHELP K P(2),P(7),P(5) S:$P(^PSRX(DA,0),U,9)="""" $P(^(0),U,9)=MAX K MIN,MAX,REF"
^DD(52,6,1,2,2)="Q"
^DD(52,6,1,2,3)="Do not delete."
^DD(52,6,1,2,"%D",0)="^^2^2^2971022^^^^"
^DD(52,6,1,2,"%D",1,0)="Determines maximum number of refill allowed. It sets piece 9 of ^PSRX(DA,0)="
^DD(52,6,1,2,"%D",2,0)="maximum number of refills allowed."
^DD(52,6,1,2,"DT")="2930323"
^DD(52,6,3)=""
^DD(52,6,12)="inactive drugs and those not marked for outpatient are not allowed"
^DD(52,6,12.1)="S DIC(""S"")=""I $S('$D(^PSDRUG(Y,""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0),$S('$D(^PSDRUG(Y,2)):1,$P(^(2),""""^"""",3)'[""""O"""":0,1:1)"""
^DD(52,6,20,0)="^.3LA^1^1"
^DD(52,6,20,1,0)="PS"
^DD(52,6,21,0)="^^1^1^2980928^^^^"
^DD(52,6,21,1,0)="The actual medication."
^DD(52,6,23,0)="^^1^1^2980928^^^^"
^DD(52,6,23,1,0)="(Required) Pointer to Drug File (#50)"
^DD(52,6,"DT")="2980928"
^DD(52,6.5,0)="TRADE NAME^F^^TN;1^K:$L(X)>32!($L(X)<1)!'(X'?1."" "")!(X?1N.N) X"
^DD(52,6.5,3)="ANSWER MUST BE 1-32 CHARACTERS IN LENGTH, MUST NOT BE BLANK, AND CONTAIN AT LEAST ONE NON-NUMERIC CHARACTER."
^DD(52,6.5,21,0)="^.001^2^2^3070925^^^^"
^DD(52,6.5,21,1,0)="Free Text that, if it exists, will replace the DRUG name on the RX"
^DD(52,6.5,21,2,0)="label."
^DD(52,6.5,"DT")="2880706"
^DD(52,7,0)="QTY^RNJ12,2X^^0;7^K:(+X'>0)!(+X>99999999)!(X'?.8N.1""."".2N)!($L(X)>11) X D:$D(X) QTY^PSOHELP"
^DD(52,7,1,0)="^.1^^0"
^DD(52,7,3)=""
^DD(52,7,4)="D HELP^PSOHELP"
^DD(52,7,21,0)="^^1^1^2991109^^^^"
^DD(52,7,21,1,0)="This field is used to show the amount of medication that was dispensed."
^DD(52,7,23,0)="^^6^6^3071130^"
^DD(52,7,23,1,0)="This field allows numeric entries only, both for CMOP prescriptions"
^DD(52,7,23,2,0)="and non-CMOP prescriptions. It requires a number between .01 and"
^DD(52,7,23,3,0)="99999999, with a maximum of 2 fractional decimal places."
^DD(52,7,23,4,0)=" "
^DD(52,7,23,5,0)="NOTE: QTY values that were on file prior to patch PSO*7*29 (released "
^DD(52,7,23,6,0)="2/17/00) may contain alpha characters."
^DD(52,7,"DT")="3071130"
^DD(52,8,0)="DAYS SUPPLY^RNJ2,0X^^0;8^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X D:$G(X) DAYS^PSOHELP1"
^DD(52,8,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(52,8,21,0)="^^3^3^2951107^^^^"
^DD(52,8,21,1,0)="Enter a whole number between 1 and 90.  The maximum upper limit is 90,"
^DD(52,8,21,2,0)="but may be lower based on the maximum specified for this patient status."
^DD(52,8,21,3,0)="This parameter is defined in the RX PATIENT STATUS file."
^DD(52,8,23,0)="^^1^1^2951107^^^^"
^DD(52,8,23,1,0)="Numeric."
^DD(52,8,"DT")="2951017"
^DD(52,9,0)="# OF REFILLS^RNX^^0;9^D REF^PSOHELP"
^DD(52,9,3)="Enter number of refills for this RX, if refillable."
^DD(52,9,4)="S EXH=1 D MAX^PSOHELP K EXH"
^DD(52,9,21,0)="^^1^1^2930115^^"
^DD(52,9,21,1,0)="The number of refills allowed per prescription."
^DD(52,9,23,0)="^^1^1^2930115^^"
^DD(52,9,23,1,0)="(Required) Number."
^DD(52,9,"DT")="2940816"
^DD(52,10,0)="SIG^RFXI^^SIG;1^K:$L(X)>200!($L(X)<1) X D:$D(X) SIG^PSOHELP D:$D(X) EN^DDIOL("" (""_$E(INS1,2,9999999)_"")"")"
^DD(52,10,3)="Enter medication instructions for this prescription."
^DD(52,10,4)="S DIC=51,DIC(0)=""Q"",DIC(""S"")=""I $P(^(0),""""^"""",4)<2"" D ^DIC S DIC=52 K DIC(""S"")"
^DD(52,10,21,0)="^^3^3^2970225^^^"
^DD(52,10,21,1,0)="Enter the medication instruction for this prescription. Entries should be "
^DD(52,10,21,2,0)="no longer than 200 total characters, including spaces, with no one set of "
^DD(52,10,21,3,0)="characters longer than 32 characters in length."
^DD(52,10,"DT")="3010822"
^DD(52,10.1,0)="OERR SIG^SI^1:YES;0:NO;^SIG;2^Q"
^DD(52,10.1,21,0)="^^3^3^2950621^^^"
^DD(52,10.1,21,1,0)="This field is used to determined if the original medication instructions"
^DD(52,10.1,21,2,0)="was accepted.  This field for all Rxs entered prior v7 will be null or"
^DD(52,10.1,21,3,0)="no.  This field is uneditable."
^DD(52,10.1,23,0)="^^1^1^2950621^^^"
^DD(52,10.1,23,1,0)="set of codes."
^DD(52,10.1,"DT")="2950227"
^DD(52,10.2,0)="SIG1^52.04A^^SIG1;0"
^DD(52,10.3,0)="ORDER CONVERTED^S^1:ORDER CONVERTED;2:EXPIRATION TO CPRS;^0;19^Q"
^DD(52,10.3,3)="This field is set automatically at conversion and order expiration."
^DD(52,10.3,21,0)="^^2^2^2970804^^^"
^DD(52,10.3,21,1,0)="This field is used to indicate V7 order conversion complete to OERR."
^DD(52,10.3,21,2,0)="It's also used to indicate the updating of CPRS on expiration of the order."
^DD(52,10.3,"DT")="2970804"
^DD(52,10.6,0)="COPIES^RNJ2,0^^0;18^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52,10.6,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(52,10.6,21,0)="^^1^1^2920115^"
^DD(52,10.6,21,1,0)="The number of copies made of the label for the prescription."
^DD(52,10.6,23,0)="^^1^1^2920115^"
^DD(52,10.6,23,1,0)="Number."
^DD(52,10.6,"DT")="2940820"
^DD(52,11,0)="MAIL/WINDOW^RS^M:MAIL;W:WINDOW;^0;11^Q"
^DD(52,11,1,0)="^.1"
^DD(52,11,1,1,0)="52^ACP3^MUMPS"
^DD(52,11,1,1,1)="S:X=""W""&($P(^PSRX(DA,0),""^"",2))&($P($G(^(2)),""^"",2))&('$P($G(^(2)),""^"",13))&('$P($G(^(2)),""^"",15))&(+$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA,0),""^"",2),$P(^(2),""^"",2),0,DA)="""""
^DD(52,11,1,1,2)="K:X=""W""&($P(^PSRX(DA,0),""^"",2))&($P($G(^(2)),""^"",2))&('$P($G(^(2)),""^"",13))&('$P($G(^(2)),""^"",15))&(+$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA,0),""^"",2),$P(^(2),""^"",2),0,DA)"
^DD(52,11,1,1,3)="Do not Delete!"
^DD(52,11,1,1,"%D",0)="^^3^3^2971022^^^^"
^DD(52,11,1,1,"%D",1,0)="This cross reference is used to update the ACP xref if the routing should"
^DD(52,11,1,1,"%D",2,0)="changed. It sets the global"
^DD(52,11,1,1,"%D",3,0)="^PSRX(""ACP"",Patient,Fill Date,0,DA)=""""."
^DD(52,11,1,1,"DT")="2930802"
^DD(52,11,21,0)="^^2^2^2920127^^"
^DD(52,11,21,1,0)="Indicates if the medication will be picked up or mailed "
^DD(52,11,21,2,0)="to the patient."
^DD(52,11,23,0)="^^1^1^2920127^^"
^DD(52,11,23,1,0)="Set 'M' for Mail, 'W' for Window."
^DD(52,11,"DT")="2940727"
^DD(52,12,0)="REMARKS^FX^^3;7^K:$L(X)>75!($L(X)<1) X"
^DD(52,12,3)="ANSWER MUST BE 1-75 CHARACTERS IN LENGTH"
^DD(52,12,21,0)="^^1^1^2920421^^"
^DD(52,12,21,1,0)="Any additional comments."
^DD(52,12,23,0)="^^1^1^2920421^^"
^DD(52,12,23,1,0)="Free Text."
^DD(52,12,"DT")="2970722"
^DD(52,16,0)="ENTERED BY^RP200'^VA(200,^0;16^Q"
^DD(52,16,3)="Enter the name of the person who requested the medication."
^DD(52,16,20,0)="^.3LA^1^1"
^DD(52,16,20,1,0)="PS"
^DD(52,16,21,0)="^^1^1^2950215^^^^"
^DD(52,16,21,1,0)="This field will show who requested the rx."
^DD(52,16,23,0)="^^1^1^2950215^^^^"
^DD(52,16,23,1,0)="Pointer to New Person file (#200)."
^DD(52,16,"DT")="2950215"
^DD(52,17,0)="UNIT PRICE OF DRUG^RNJ9,4^^0;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(52,17,3)="Type a Number between 0 and 9999, 4 Decimal Digits"
^DD(52,17,21,0)="^.001^1^1^3001004^^^^"
^DD(52,17,21,1,0)="Price per dispense unit."
^DD(52,17,23,0)="^.001^4^4^3001004^^^^"
^DD(52,17,23,1,0)="This is the price per dispense unit (per ML/MG etc.) that is calculated"
^DD(52,17,23,2,0)="when entering the price per order unit, e.g. Price per order unit (bottle)"
^DD(52,17,23,3,0)="=$0.49, dispense unit is ML & the bottle has 1000ML. Price per dispense"
^DD(52,17,23,4,0)="unit = $(0.49/1000) = $0.00049 = $0.0005 (rounded to the 4th decimal)."
^DD(52,17,"DT")="3001004"
^DD(52,20,0)="DIVISION^RP59'^PS(59,^2;9^Q"
^DD(52,20,1,0)="^.1"
^DD(52,20,1,1,0)="52^AP^MUMPS"
^DD(52,20,1,1,1)="D SAS^PSOSUTL"
^DD(52,20,1,1,2)="D KAS^PSOSUTL"
^DD(52,20,1,1,"%D",0)="^.101^7^7^3040302^^^^"
^DD(52,20,1,1,"%D",1,0)="This is used to maintain the AS x-ref in Suspense. It sets piece 6 of"
^DD(52,20,1,1,"%D",2,0)="^PS(52.5,DA,0)=Division. For a non-CMOP prescription, it can also set the"
^DD(52,20,1,1,"%D",3,0)="global ^PS(52.5,""AS"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52,20,1,1,"%D",4,0)="For a CMOP prescription it can set the global"
^DD(52,20,1,1,"%D",5,0)="^PS(52.5,""APR"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52,20,1,1,"%D",6,0)="For a CMOP prescription division edit it can set the global"
^DD(52,20,1,1,"%D",7,0)="^PS(52.5,""CMP"",Cmop Activity,Rx CMOP Type,Division,Suspense Date,DFN,DA)=""""."
^DD(52,20,1,1,"DT")="2950515"
^DD(52,20,3)=""
^DD(52,20,21,0)="^^2^2^2920427^^"
^DD(52,20,21,1,0)="Tells which Outpatient Pharmacy Division filled"
^DD(52,20,21,2,0)="the prescription."
^DD(52,20,23,0)="^^1^1^2920427^^"
^DD(52,20,23,1,0)="Pointer to Pharmacy Site File (#59)"
^DD(52,20,"DT")="2950515"
^DD(52,21,0)="LOGIN DATE^RD^^2;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(52,21,1,0)="^.1^^0"
^DD(52,21,21,0)="^^1^1^2930114^^"
^DD(52,21,21,1,0)="The date the prescription was entered."
^DD(52,21,23,0)="^^1^1^2930114^^^"
^DD(52,21,23,1,0)="(Required) Date/Time."
^DD(52,21,"DT")="2930114"
^DD(52,22,0)="FILL DATE^DX^^2;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$D(^PSRX(DA,0)),X<$P(^(0),U,13) D EN^DDIOL(""FILL DATE CANNOT BE BEFORE ISSUE DATE"","""",""!?5"") K X"
^DD(52,22,1,0)="^.1"
^DD(52,22,1,1,0)="52^AD^MUMPS"
^DD(52,22,1,1,1)="S ^PSRX(""AD"",X,DA,0)="""""
^DD(52,22,1,1,2)="K ^PSRX(""AD"",X,DA,0)"
^DD(52,22,1,1,"%D",0)="^^2^2^2971022^^^^"
^DD(52,22,1,1,"%D",1,0)="This cross reference lists the fill date and the internal entry number."
^DD(52,22,1,1,"%D",2,0)="It sets the global ^PSRX(""AD"",Fill Date,DA,0)=""""."
^DD(52,22,1,2,0)="52^AE^MUMPS"
^DD(52,22,1,2,1)="I '$O(^PSRX(DA,1,0)) S $P(^PSRX(DA,3),""^"")=X"
^DD(52,22,1,2,2)="Q"
^DD(52,22,1,2,"%D",0)="^^2^2^2971022^^^"
^DD(52,22,1,2,"%D",1,0)="This xref is used to update last dispense date field (#101)."
^DD(52,22,1,2,"%D",2,0)="It sets piece 1 of ^PSRX(DA,3)=Fill date."
^DD(52,22,1,2,"DT")="2920417"
^DD(52,22,1,3,0)="52^ACP^MUMPS"
^DD(52,22,1,3,1)="S:$P($G(^PSRX(DA,0)),""^"",2)&($P($G(^(0)),""^"",11)=""W"")&('$P($G(^(2)),""^"",13))&('$P($G(^(2)),""^"",15))&(+$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA,0),""^"",2),X,0,DA)="""""
^DD(52,22,1,3,2)="K:$P($G(^PSRX(DA,0)),""^"",2)&($P($G(^(0)),""^"",11)=""W"")&('$P($G(^(2)),""^"",13))&('$P($G(^(2)),""^"",15))&('+$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA,0),""^"",2),X,0,DA)"
^DD(52,22,1,3,3)="Do Not Delete!"
^DD(52,22,1,3,"%D",0)="^^3^3^2971022^^^^"
^DD(52,22,1,3,"%D",1,0)="This cross reference is used to index copay fills that have not been billed"
^DD(52,22,1,3,"%D",2,0)="through the IB package. It sets the global"
^DD(52,22,1,3,"%D",3,0)="^PSRX(""ACP"",Patient,Fill Date,0,DA)=""""."
^DD(52,22,1,3,"DT")="2930729"
^DD(52,22,1,4,0)="52^AR^MUMPS"
^DD(52,22,1,4,1)="D SUSFDS^PSOUTLA"
^DD(52,22,1,4,2)="D SUSFDK^PSOUTLA"
^DD(52,22,1,4,"%D",0)="^^3^3^2980106^^"
^DD(52,22,1,4,"%D",1,0)="This cross reference is used to the the suspense date up to date if the"
^DD(52,22,1,4,"%D",2,0)="Rx is in suspense. It sets piece 2 of ^PS(52.5,DA,0)=Fill Date, sets"
^DD(52,22,1,4,"%D",3,0)="^PS(52.5,""C"",Fill Date,DA)="""", and ^PS(52.5,""AC"",Patient,Fill Date,DA)=""""."
^DD(52,22,1,4,"DT")="2980106"
^DD(52,22,1,5,0)="52^ADL^MUMPS"
^DD(52,22,1,5,1)="I X,$P(^PSRX(DA,0),""^"",6) S ^PSRX(""ADL"",X,$P(^PSRX(DA,0),""^"",6),DA)="""""
^DD(52,22,1,5,2)="I X,$P(^PSRX(DA,0),""^"",6) K ^PSRX(""ADL"",X,$P(^PSRX(DA,0),""^"",6),DA)"
^DD(52,22,1,5,3)="Please do not delete."
^DD(52,22,1,5,"%D",0)="^^6^6^2980928^^^^"
^DD(52,22,1,5,"%D",1,0)="This xref will be used to index Rxs by filldate and drug pointer. This xref"
^DD(52,22,1,5,"%D",2,0)="will be used to find Rxs with drug whose price have changed in the Drug"
^DD(52,22,1,5,"%D",3,0)="file (#50) and needs updating in this file.  "
^DD(52,22,1,5,"%D",4,0)=" "
^DD(52,22,1,5,"%D",5,0)="Cross reference will look like the following: "
^DD(52,22,1,5,"%D",6,0)=" ^PSRX(""ADL"",FILLDATE,DRUG POINTER,DA)="""" "
^DD(52,22,1,5,"DT")="2980928"
^DD(52,22,4)="I $P($G(^PSRX(DA,2)),""^"",6) S X=$P(^PSRX(DA,2),""^"",6),%DT=""X"" D ^%DT X ^DD(""DD"") D EN^DDIOL(""Fill Date must be less than or equal to ""_Y,"""",""!"") S %DT(0)=-$P(^PSRX(DA,2),""^"",6)"
^DD(52,22,21,0)="^^1^1^2970903^^^^"
^DD(52,22,21,1,0)="The date the prescription was filled."
^DD(52,22,23,0)="^^1^1^2970903^^^^"
^DD(52,22,23,1,0)="Date."
^DD(52,22,"DT")="2980928"
^DD(52,23,0)="PHARMACIST^R*P200'^VA(200,^2;3^S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52,23,12)="Only select a user with a pharmacist's key."
^DD(52,23,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"""
^DD(52,23,21,0)="^^2^2^2930406^^^^"
^DD(52,23,21,1,0)="This field is used to identify the pharmacist that filled the medication"
^DD(52,23,21,2,0)="request."
^DD(52,23,23,0)="^^1^1^2930406^^^^"
^DD(52,23,23,1,0)="(Required) Pointer to New Person File (#200)."
^DD(52,23,"DT")="2930126"
^DD(52,24,0)="LOT #^F^^2;4^K:$L(X)>55!($L(X)<1) X"
^DD(52,24,3)="Answer must be 1-55 characters in length."
^DD(52,24,21,0)="^.001^2^2^3040602^^^^"
^DD(52,24,21,1,0)="The vendor code for this product.  It is required to be on"
^DD(52,24,21,2,0)="the label if the medication is sent to a nursing home."
^DD(52,24,23,0)="^.001^1^1^3040602^^^^"
^DD(52,24,23,1,0)="Free Text."
^DD(52,24,"DT")="3040602"
^DD(52,25,0)="DISPENSED DATE^RD^^2;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,25,1,0)="^.1^^0"
^DD(52,25,3)="Enter date medication was dispensed."
^DD(52,25,21,0)="^^1^1^2921030^^^^"
^DD(52,25,21,1,0)="This field will be used to show the actual date the medication was dispensed."
^DD(52,25,23,0)="^^1^1^2921030^^^^"
^DD(52,25,23,1,0)="date."
^DD(52,25,"DT")="2921030"
^DD(52,26,0)="EXPIRATION DATE^D^^2;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,26,.1)=""
^DD(52,26,1,0)="^.1"
^DD(52,26,1,1,0)="52^AG"
^DD(52,26,1,1,1)="S ^PSRX(""AG"",$E(X,1,30),DA)="""""
^DD(52,26,1,1,2)="K ^PSRX(""AG"",$E(X,1,30),DA)"
^DD(52,26,1,1,3)="DO NOT DELETE !"
^DD(52,26,1,1,"%D",0)="^^2^2^2950922^^^^"
^DD(52,26,1,1,"%D",1,0)="This cross refrence is used to index the file by the Expiration Date of"
^DD(52,26,1,1,"%D",2,0)="the RX."
^DD(52,26,1,1,"DT")="2920311"
^DD(52,26,1,2,0)="52^AI^MUMPS"
^DD(52,26,1,2,1)="S:$P($G(^PSRX(DA,""STA"")),""^"")'=12 ^PS(55,$P($G(^PSRX(DA,0)),""^"",2),""P"",""A"",X,DA)="""""
^DD(52,26,1,2,2)="K:$P($G(^PSRX(DA,""STA"")),""^"")'=12 ^PS(55,$P($G(^PSRX(DA,0)),""^"",2),""P"",""A"",X,DA)"
^DD(52,26,1,2,3)="DO NOT DELETE !"
^DD(52,26,1,2,"%D",0)="^^3^3^2971022^^^^"
^DD(52,26,1,2,"%D",1,0)="This xref is used to keep the pharmacy patient file ""P"",""A"" xref in sync"
^DD(52,26,1,2,"%D",2,0)="with the expiration date. It sets the global"
^DD(52,26,1,2,"%D",3,0)="^PS(55,Patient,""P"",""A"",Expiration Date,DA)=""""."
^DD(52,26,1,2,"DT")="2950810"
^DD(52,26,3)="This date is the date on which the prescription is no longer fillable."
^DD(52,26,21,0)="^^2^2^2930316^^^^"
^DD(52,26,21,1,0)="The date the medication expires.  This is required to be put"
^DD(52,26,21,2,0)="on the labels of medication sent to a nursing home."
^DD(52,26,23,0)="^^1^1^2930316^^^^"
^DD(52,26,23,1,0)="Date."
^DD(52,26,"DT")="2950810"
^DD(52,26.1,0)="CANCEL DATE^DX^^3;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X K:$P(^(0),""^"",15)'=12 X"
^DD(52,26.1,1,0)="^.1"
^DD(52,26.1,1,1,0)="52^AK^MUMPS"
^DD(52,26.1,1,1,1)="I $P($G(^PSRX(DA,""STA"")),""^"")=12 S ^PS(55,+$P(^PSRX(DA,0),""^"",2),""P"",""A"",X,DA)="""" K ^PS(55,+$P(^PSRX(DA,0),""^"",2),""P"",""A"",$P($G(^PSRX(DA,2)),""^"",6),DA)"
^DD(52,26.1,1,1,2)="S ^PS(55,$P(^PSRX(DA,0),""^"",2),""P"",""A"",$P(^PSRX(DA,2),""^"",6),DA)="""" K ^PS(55,$P(^PSRX(DA,0),""^"",2),""P"",""A"",X,DA)"
^DD(52,26.1,1,1,3)="DO NOT DELETE !"
^DD(52,26.1,1,1,"%D",0)="^^3^3^2971022^^^^"
^DD(52,26.1,1,1,"%D",1,0)="This xref is used to update the ""P"",""A"" xref in file 55 when prescriptions"
^DD(52,26.1,1,1,"%D",2,0)="are cancelled, or the cancel date is edited using fileman. It sets the"
^DD(52,26.1,1,1,"%D",3,0)="global ^PS(55,Patient,""P"",""A"",Cancel Date,DA)=""""."
^DD(52,26.1,1,1,"DT")="2950810"
^DD(52,26.1,3)="Enter the date this medication is no longer active for dispensing."
^DD(52,26.1,20,0)="^.3LA^1^1"
^DD(52,26.1,20,1,0)="PSO"
^DD(52,26.1,21,0)="^^1^1^2930525^^^"
^DD(52,26.1,21,1,0)="This date is used to indicate when the medication was cancelled. "
^DD(52,26.1,23,0)="^^1^1^2930520^^^"
^DD(52,26.1,23,1,0)="Date.  This field will only accept input if the status is cancelled."
^DD(52,26.1,"DT")="2950810"
^DD(52,27,0)="NDC^F^^2;7^K:$L(X)>13!($L(X)<5) X"
^DD(52,27,3)="Answer must be 5-13 characters in length."
^DD(52,27,21,0)="^^1^1^2930316^^"
^DD(52,27,21,1,0)="This field is used for the National Drug Code."
^DD(52,27,"DT")="2920414"
^DD(52,28,0)="MANUFACTURER^F^^2;8^K:$L(X)>50!($L(X)<5) X"
^DD(52,28,3)="Answer must be 5-50 characters in length."
^DD(52,28,21,0)="^^1^1^2920127^"
^DD(52,28,21,1,0)="This field is used to enter the manufacturer of the drug issued."
^DD(52,28,"DT")="2920414"
^DD(52,29,0)="DRUG EXPIRATION DATE^D^^2;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,29,3)="Enter date the medication expires in the package/bottle from the manufacturer."
^DD(52,29,20,0)="^.3LA^1^1"
^DD(52,29,20,1,0)="PSO"
^DD(52,29,21,0)="^.001^3^3^3040205^^^^"
^DD(52,29,21,1,0)="This date is used to show the expiration date of the medication.  The date"
^DD(52,29,21,2,0)="reflects the manufacturer's expiration date, not the date the Rx can"
^DD(52,29,21,3,0)="no longer be filled."
^DD(52,29,23,0)="^.001^1^1^3040205^^^^"
^DD(52,29,23,1,0)="date"
^DD(52,29,"DT")="3040205"
^DD(52,30,0)="GENERIC PROVIDER^F^^2;12^K:$L(X)>35!($L(X)<3) X"
^DD(52,30,3)="Answer must be 3-35 characters in length."
^DD(52,30,21,0)="^^2^2^2920414^^^^"
^DD(52,30,21,1,0)="This field is used to to show a generic provider.  A generic provider is a"
^DD(52,30,21,2,0)="provider of care to the patient outside of the VA."
^DD(52,30,23,0)="^^1^1^2920414^"
^DD(52,30,23,1,0)="FREE TEXT."
^DD(52,30,"DT")="2920414"
^DD(52,31,0)="RELEASED DATE/TIME^D^^2;13^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,31,1,0)="^.1"
^DD(52,31,1,1,0)="52^AL^MUMPS"
^DD(52,31,1,1,1)="S ^PSRX(""AL"",X,DA,0)="""""
^DD(52,31,1,1,2)="K ^PSRX(""AL"",X,DA,0)"
^DD(52,31,1,1,3)="This xref should not be deleted.  It is used by the Drug Accountability software(v2)."
^DD(52,31,1,1,"%D",0)="^^2^2^2971022^^^"
^DD(52,31,1,1,"%D",1,0)="This xref creates a 'AL' index for the release date. It sets the global"
^DD(52,31,1,1,"%D",2,0)="^PSRX(""AL"",Released Date/Time,DA,0)=""""."
^DD(52,31,1,1,"DT")="2930708"
^DD(52,31,1,2,0)="52^ACP2^MUMPS"
^DD(52,31,1,2,1)="K:$P(^PSRX(DA,0),""^"",2)&($P($G(^(2)),""^"",2))&('$P($G(^(2)),""^"",15))&($G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA,0),""^"",2),$P(^(2),""^"",2),0,DA)"
^DD(52,31,1,2,2)="S:$P(^PSRX(DA,0),""^"",2)&($P(^(0),""^"",11)=""W"")&($P($G(^(2)),""^"",2))&('$P($G(^(2)),""^"",15))&(+$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA,0),""^"",2),$P(^(2),""^"",2),0,DA)="""""
^DD(52,31,1,2,3)="Do Not Delete!"
^DD(52,31,1,2,"%D",0)="^^2^2^2971022^^^"
^DD(52,31,1,2,"%D",1,0)="This cross reference is used to remove the 'ACP' xref once a Rx is released."
^DD(52,31,1,2,"%D",2,0)="It can set the global ^PSRX(""ACP"",Patient,Fill Date,0,DA)=""""."
^DD(52,31,1,2,"DT")="2930803"
^DD(52,31,3)="Enter the date/time the medication was released."
^DD(52,31,21,0)="^^4^4^2950731^^^^"
^DD(52,31,21,1,0)="This field is used to show the actual date and time the medication was"
^DD(52,31,21,2,0)="released for inventory purposes and copay billing if applicable."
^DD(52,31,21,3,0)=" "
^DD(52,31,21,4,0)=" "
^DD(52,31,23,0)="^^1^1^2950731^^"
^DD(52,31,23,1,0)="date."
^DD(52,31,"DT")="2930803"
^DD(52,32,0)="LABEL DATE/TIME^52.032DA^^L;0"
^DD(52,32,3)="Enter date/time when and if medication was returned to inventory due not being icked up or mailed to the patient."
^DD(52,32,21,0)="^^2^2^2930316^^^^"
^DD(52,32,21,1,0)="This sub-file is used to indicate when labels are printed for this"
^DD(52,32,21,2,0)="prescription."
^DD(52,32,"DT")="2920305"
^DD(52,32.1,0)="RETURNED TO STOCK^D^^2;15^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,32.1,1,0)="^.1"
^DD(52,32.1,1,1,0)="52^AJ^MUMPS"
^DD(52,32.1,1,1,1)="S ^PSRX(""AJ"",X,DA,0)="""""
^DD(52,32.1,1,1,2)="K ^PSRX(""AJ"",X,DA,0)"
^DD(52,32.1,1,1,3)="This xref should not be deleted. It is used by the Drug Accountability software (v2)."
^DD(52,32.1,1,1,"%D",0)="^^2^2^2971022^^^"
^DD(52,32.1,1,1,"%D",1,0)="The xref creates a 'AJ' index for the returned to stock date. It sets the"
^DD(52,32.1,1,1,"%D",2,0)="global ^PSRX(""AJ"",Return to Stock,DA,0)=""""."
^DD(52,32.1,1,1,"DT")="2930708"
^DD(52,32.1,3)="Enter date/time when and if medication was returned to inventory due to not being picked up or mailed to the patient."
^DD(52,32.1,21,0)="^^2^2^2930316^^^"
^DD(52,32.1,21,1,0)="This field is used to show when and if the medication was returned to stock"
^DD(52,32.1,21,2,0)="because the patient did not pick up the meds or it was not mailed."
^DD(52,32.1,"DT")="2930708"
^DD(52,32.2,0)="REPRINT^S^1:REPRINTED;^2;14^Q"
^DD(52,32.2,3)="Not set directly by Fileman"
^DD(52,32.2,21,0)="^^3^3^2941123^"
^DD(52,32.2,21,1,0)="This field is used to determined if the original fill was reprinted after"
^DD(52,32.2,21,2,0)="being returned to stock.  If fill was returned to stock and reprinted"
^DD(52,32.2,21,3,0)="this fill will be re-released."
^DD(52,32.2,23,0)="^^1^1^2941123^"
^DD(52,32.2,23,1,0)="set of codes."
^DD(52,32.2,"DT")="2941123"
^DD(52,32.3,0)="BINGO WAIT TIME^NJ4,0^^2;16^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52,32.3,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(52,32.3,21,0)="^^2^2^2970227^"
^DD(52,32.3,21,1,0)="This field reflects, in minutes, the total wait time for bingo board"
^DD(52,32.3,21,2,0)="purposes."
^DD(52,32.3,"DT")="2970227"
^DD(52,33,0)="SEVERITY^FX^^DRI;1^K:$L(X)>30!($L(X)<1)!('$G(PSODI)) X"
^DD(52,33,3)="Answer must be 1-30 characters in length."
^DD(52,33,20,0)="^.3LA^1^1"
^DD(52,33,20,1,0)="PSO"
^DD(52,33,21,0)="^^5^5^2951017^^^"
^DD(52,33,21,1,0)="This field is used to store the significant drug interactions encountered"
^DD(52,33,21,2,0)="by technicians during new/renew order entry.  The data will be stored in"
^DD(52,33,21,3,0)="the form of a string, i.e., 23,43,201.  Each number will represent the "
^DD(52,33,21,4,0)="drug/drug interaction found in file #56.  Data is not added directly"
^DD(52,33,21,5,0)="by FileMan."
^DD(52,33,23,0)="^^1^1^2951017^^^"
^DD(52,33,23,1,0)="free text."
^DD(52,33,"DT")="2930405"
^DD(52,34,0)="AFFECTED MEDICATION^FX^^DRI;2^K:$L(X)>120!($L(X)<1)!('$G(PSODI)) X"
^DD(52,34,3)="Answer must be 1-120 characters in length."
^DD(52,34,20,0)="^.3LA^1^1"
^DD(52,34,20,1,0)="PSO"
^DD(52,34,21,0)="^^2^2^2951017^^^^"
^DD(52,34,21,1,0)="This field is used to store the active medication pointer values that is"
^DD(52,34,21,2,0)="considered to be drug interactions."
^DD(52,34,23,0)="^^1^1^2951017^^^"
^DD(52,34,23,1,0)="free text"
^DD(52,34,"DT")="2930405"
^DD(52,34.1,0)="DRUG ALLERGY INDICATION^S^1:YES;^3;6^Q"
^DD(52,34.1,3)="This data is not entered directly with FileMan."
^DD(52,34.1,21,0)="^^1^1^2951213^"
^DD(52,34.1,21,1,0)="This field is used to indicate if a drug allergy event occured."
^DD(52,34.1,"DT")="2951213"
^DD(52,34.11,0)="DRUG ALLERGY INGREDIENTS^52.03A^^DAI;0"
^DD(52,34.11,21,0)="^^2^2^2951213^"
^DD(52,34.11,21,1,0)="This sub-file is used to store drug ingredients of a possible drug allergy"
^DD(52,34.11,21,2,0)="and/or an adverse reaction to the medication dispensed in a Rx."
^DD(52,34.11,23,0)="^^1^1^2951213^"
^DD(52,34.11,23,1,0)="sub-file/multiple"
^DD(52,35,0)="METHOD OF PICK-UP^F^^MP;1^K:$L(X)>60!($L(X)<2) X"
^DD(52,35,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(52,35,21,0)="^^3^3^2841129^^^"
^DD(52,35,21,1,0)="Enter any special instructions that should appear on mailing address"
^DD(52,35,21,2,0)="portion of the label, specifing where, or when the RX(s) should be "
^DD(52,35,21,3,0)="picked up."
^DD(52,35,"DT")="2841022"
^DD(52,36,0)="ARCHIVED^S^1:ARCHIVED;^ARC;1^Q"
^DD(52,36,3)="This field should only be set if the Rx has been archived in Pharmacy."
^DD(52,36,21,0)="^^4^4^2970828^^^^"
^DD(52,36,21,1,0)="This field is used to indicate if the Rx has been archived.  Once the"
^DD(52,36,21,2,0)="Rx is marked to be archived and then actually saved to the archived device"
^DD(52,36,21,3,0)="should this field be populated.  This will later be used to determine if"
^DD(52,36,21,4,0)="the Rx can be purged."
^DD(52,36,"DT")="2970828"
^DD(52,37,0)="MEDICATION ROUTES^52.037PA^^MEDR;0"
^DD(52,37,20,0)="^.3LA^1^1"
^DD(52,37,20,1,0)="PSO"
^DD(52,37,21,0)="^^2^2^2951211^"
^DD(52,37,21,1,0)="This subfile contains possible medication routes from OERR, from"
^DD(52,37,21,2,0)="the Medication Instructions (SIG) or both."
^DD(52,37,23,0)="^^1^1^2951211^"
^DD(52,37,23,1,0)="pointer"
^DD(52,37.1,0)="SCHEDULES^52.038A^^SCH;0"
^DD(52,37.1,21,0)="^^2^2^2970225^^^"
^DD(52,37.1,21,1,0)="This sub-file contains possible schedules from OERR, Medication Instructions"
^DD(52,37.1,21,2,0)="or both."
^DD(52,37.1,23,0)="^^1^1^2970225^^^"
^DD(52,37.1,23,1,0)="free text.  "
^DD(52,38,0)="FINISHING PERSON^P200'^VA(200,^OR1;5^Q"
^DD(52,38,3)="Data not entered directly with FM."
^DD(52,38,21,0)="^^1^1^2970818^^"
^DD(52,38,21,1,0)="This field is used to indicate the person who finished the order in Pharmacy."
^DD(52,38,23,0)="^^1^1^2970818^"
^DD(52,38,23,1,0)="poniter."
^DD(52,38,"DT")="2970818"
^DD(52,38.1,0)="FILLING PERSON^P200'^VA(200,^OR1;6^Q"
^DD(52,38.1,3)="Data not entered directly with FM."
^DD(52,38.1,21,0)="^^2^2^3040211^"
^DD(52,38.1,21,1,0)="The name of the pharmacist who scanned the barcode before filling the"
^DD(52,38.1,21,2,0)="medication request."
^DD(52,38.1,23,0)="^^1^1^3040211^"
^DD(52,38.1,23,1,0)="pointer"
^DD(52,38.1,"DT")="3040205"
^DD(52,38.2,0)="CHECKING PHARMACIST^P200'^VA(200,^OR1;7^Q"
^DD(52,38.2,3)="Data not entered directly with FM."
^DD(52,38.2,21,0)="^^1^1^3040211^"
^DD(52,38.2,21,1,0)="The name of the pharmacist that checked the medication request."
^DD(52,38.2,23,0)="^^1^1^3040211^"
^DD(52,38.2,23,1,0)="pointer"
^DD(52,38.2,"DT")="3040205"
^DD(52,38.3,0)="FINISH DATE/TIME^D^^OR1;8^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(52,38.3,1,0)="^.1"
^DD(52,38.3,1,1,0)="52^AFDT"
^DD(52,38.3,1,1,1)="S ^PSRX(""AFDT"",$E(X,1,30),DA)="""""
^DD(52,38.3,1,1,2)="K ^PSRX(""AFDT"",$E(X,1,30),DA)"
^DD(52,38.3,1,1,"DT")="3070205"
^DD(52,38.3,3)="(No range limit on date)"
^DD(52,38.3,21,0)="^^1^1^3070205^"
^DD(52,38.3,21,1,0)="Date/time prescription is finished."
^DD(52,38.3,23,0)="^^1^1^3070205^"
^DD(52,38.3,23,1,0)="Date/time prescription is finished."
^DD(52,38.3,"DT")="3070205"
^DD(52,39,0)="PROVIDER COMMENTS^52.039^^PRC;0"
^DD(52,39,21,0)="^^2^2^2971022^"
^DD(52,39,21,1,0)="This field stores any provider comments that are passed to Pharmacy from"
^DD(52,39,21,2,0)="CPRS."
^DD(52,39.1,0)="PHARMACY INSTRUCTIONS^52.02^^PI;0"
^DD(52,39.1,21,0)="^^1^1^2971022^"
^DD(52,39.1,21,1,0)="This field contains Pharmacy Instructions passed to Pharmacy from CPRS."
^DD(52,39.2,0)="PHARMACY ORDERABLE ITEM^P50.7'^PS(50.7,^OR1;1^Q"
^DD(52,39.2,3)="This data should not be entered by using File Manager."
^DD(52,39.2,21,0)="^^5^5^2971215^^^"
^DD(52,39.2,21,1,0)="This is the Pharmacy Orderable Item associated with the drug."
^DD(52,39.2,21,2,0)="This data should not be entered by using File Manager.  If the Rx does not"
^DD(52,39.2,21,3,0)="have a Pharmacy Orderable Item entered check the drug for the RX.  If the"
^DD(52,39.2,21,4,0)="drug is missing an orderable item match the drug not the Rx.  Only matching"
^DD(52,39.2,21,5,0)="the Rx will cause problems when renewing the Rx."
^DD(52,39.2,23,0)="^^1^1^2971215^"
^DD(52,39.2,23,1,0)="pointer."
^DD(52,39.2,"DT")="2950515"
^DD(52,39.3,0)="PLACER ORDER #^NJ10,0^^OR1;2^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52,39.3,1,0)="^.1"
^DD(52,39.3,1,1,0)="52^APL"
^DD(52,39.3,1,1,1)="S ^PSRX(""APL"",$E(X,1,30),DA)="""""
^DD(52,39.3,1,1,2)="K ^PSRX(""APL"",$E(X,1,30),DA)"
^DD(52,39.3,1,1,3)="Do Not Delete!"
^DD(52,39.3,1,1,"%D",0)="^^2^2^2960417^"
^DD(52,39.3,1,1,"%D",1,0)="This xref is used to index the Rx by oerr's placer number.  this is"
^DD(52,39.3,1,1,"%D",2,0)="the pointer to oerr's orders file."
^DD(52,39.3,1,1,"DT")="2960417"
^DD(52,39.3,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(52,39.3,21,0)="^^1^1^2971022^"
^DD(52,39.3,21,1,0)="This is the CPRS entry number for this order."
^DD(52,39.3,"DT")="2960417"
^DD(52,39.4,0)="PREVIOUS ORDER #^P52'^PSRX(^OR1;3^Q"
^DD(52,39.4,1,0)="^.1"
^DD(52,39.4,1,1,0)="52^AO"
^DD(52,39.4,1,1,1)="S ^PSRX(""AO"",$E(X,1,30),DA)="""""
^DD(52,39.4,1,1,2)="K ^PSRX(""AO"",$E(X,1,30),DA)"
^DD(52,39.4,1,1,3)="Do not delete"
^DD(52,39.4,1,1,"DT")="2960728"
^DD(52,39.4,21,0)="^^1^1^2960728^"
^DD(52,39.4,21,1,0)="This field is used to indicate rx number renewed from"
^DD(52,39.4,"DT")="2960728"
^DD(52,39.5,0)="FORWARD ORDER #^P52'^PSRX(^OR1;4^Q"
^DD(52,39.5,1,0)="^.1"
^DD(52,39.5,1,1,0)="52^AQ"
^DD(52,39.5,1,1,1)="S ^PSRX(""AQ"",$E(X,1,30),DA)="""""
^DD(52,39.5,1,1,2)="K ^PSRX(""AQ"",$E(X,1,30),DA)"
^DD(52,39.5,1,1,3)="do not delete."
^DD(52,39.5,1,1,"DT")="2960728"
^DD(52,39.5,21,0)="^^1^1^2970421^"
^DD(52,39.5,21,1,0)="This field is used to stored the pointer to the rx that was renewed."
^DD(52,39.5,"DT")="2960728"
^DD(52,40,0)="ACTIVITY LOG^52.3DA^^A;0"
^DD(52,40,9)="^"
^DD(52,40,21,0)="^.001^1^1^3010117^^^^"
^DD(52,40,21,1,0)="Activity Log."
^DD(52,40,23,0)="^.001^1^1^3010117^^^^"
^DD(52,40,23,1,0)="Date.  Multiple #52.3 (Add new entry without asking)."
^DD(52,40,"DT")="2930324"
^DD(52,41,0)="WAS THE PATIENT COUNSELED^S^1:YES;0:NO;^PC;1^Q"
^DD(52,41,3)="If patient was counseled about this Rx enter Yes."
^DD(52,41,21,0)="^^2^2^2971022^"
^DD(52,41,21,1,0)="This field indicates whether or not the patient received counseling"
^DD(52,41,21,2,0)="about the prescription."
^DD(52,41,"DT")="2950502"
^DD(52,42,0)="WAS COUNSELING UNDERSTOOD^S^1:YES;0:NO;^PC;2^Q"
^DD(52,42,3)="If patient understood counseling received enter 'Yes'."
^DD(52,42,21,0)="^^2^2^2971022^"
^DD(52,42,21,1,0)="This field indicates whether or not the patient understood the counseling"
^DD(52,42,21,2,0)="on the prescription, if the patient was counseled."
^DD(52,42,"DT")="2950502"
^DD(52,52,0)="REFILL^52.1D^^1;0"
^DD(52,52,2)=""
^DD(52,52,3)=""
^DD(52,52,4)=""
^DD(52,52,7)=""
^DD(52,52,10)="VAF 10-2577"
^DD(52,52,21,0)="^^1^1^2970402^^^^"
^DD(52,52,21,1,0)="This is the date the prescription is refilled."
^DD(52,52,23,0)="^^1^1^2970402^^^^"
^DD(52,52,23,1,0)="Date Multiple #52.1 (Add new entry without asking)."
^DD(52,52,"DT")="2911011"
^DD(52,52.25,0)="REJECT INFO^52.25A^^REJ;0"
^DD(52,52.25,9)="^"
^DD(52,60,0)="PARTIAL DATE^52.2D^^P;0"
^DD(52,60,21,0)="^^1^1^2970227^^^^"
^DD(52,60,21,1,0)="This sub-file is used to store data on partial prescriptions filled."
^DD(52,60,23,0)="^^1^1^2970227^^^^"
^DD(52,60,23,1,0)="DATE."
^DD(52,81,0)="DAW CODE^FX^^EPH;1^D INPUT^PSSDAWUT"
^DD(52,81,3)=""
^DD(52,81,4)="D HLP^PSSDAWUT"
^DD(52,81,21,0)="^.001^1^1^3051019^^^^"
^DD(52,81,21,1,0)="Dispensed As Written code. This information is used for electronic claim transmission to third party payers (insurance companies)."
^DD(52,81,"DT")="3050627"
^DD(52,82,0)="RE-TRANSMIT FLAG^S^1:YES;^EPH;2^Q"
^DD(52,82,21,0)="^^1^1^3051019^"
^DD(52,82,21,1,0)="This field is used to indicate that a claim should be electronically re-transmitted to the 3rd party insurance. It will be primarily used by CMOP and local mail prescriptions."
^DD(52,82,"DT")="3051019"
^DD(52,99,0)="HOLD REASON^RS^1:INSUFFICIENT QTY IN STOCK;2:DRUG-DRUG INTERACTION;3:PATIENT REACTION;4:PHYSICIAN TO BE CONTACTED;5:ALLERGY REACTIONS;6:DRUG REACTION;7:BAD ADDRESS;8:PER PATIENT REQUEST;99:OTHER--SEE COMMENTS;^H;1^Q"
^DD(52,99,1,0)="^.1^^-1"
^DD(52,99,1,1,0)="52^AH"
^DD(52,99,1,1,1)="S ^PSRX(""AH"",$E(X,1,30),DA)="""""
^DD(52,99,1,1,2)="K ^PSRX(""AH"",$E(X,1,30),DA)"
^DD(52,99,3)="Enter reason medication is placed in a 'Hold' status."
^DD(52,99,21,0)="^^1^1^3060524^^^"
^DD(52,99,21,1,0)="This field tells why the prescription was put on hold."
^DD(52,99,23,0)="^^1^1^3060524^"
^DD(52,99,23,1,0)="Enter reason medication is being placed in a 'Hold' status."
^DD(52,99,"DT")="3060524"
^DD(52,99.1,0)="HOLD COMMENTS^RF^^H;2^K:$L(X)>100!($L(X)<10) X"
^DD(52,99.1,3)="Enter brief comments on why medication was placed on 'Hold'.  Answer must be 10-100 characters in length."
^DD(52,99.1,20,0)="^.3LA^1^1"
^DD(52,99.1,20,1,0)="PSO"
^DD(52,99.1,21,0)="^^2^2^2920506^^"
^DD(52,99.1,21,1,0)="This field is used to enter brief comments on why the medication was placed"
^DD(52,99.1,21,2,0)="on 'Hold' status."
^DD(52,99.1,23,0)="^^1^1^2920506^^"
^DD(52,99.1,23,1,0)="Free text."
^DD(52,99.1,"DT")="2920506"
^DD(52,99.2,0)="HOLD DATE^RD^^H;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,99.2,3)="Enter date that medication was placed in a 'Hold' status."
^DD(52,99.2,21,0)="^^2^2^2970402^^^"
^DD(52,99.2,21,1,0)="This field is used to indicate the date that a prescription was placed on"
^DD(52,99.2,21,2,0)="hold."
^DD(52,99.2,"DT")="2920513"
^DD(52,100,0)="STATUS^RS^0:ACTIVE;1:NON-VERIFIED;2:REFILL;3:HOLD;4:DRUG INTERACTIONS;5:SUSPENDED;10:DONE;11:EXPIRED;12:DISCONTINUED;13:DELETED;14:DISCONTINUED BY PROVIDER;15:DISCONTINUED (EDIT);16:PROVIDER HOLD;^STA;1^Q"
^DD(52,100,21,0)="^^1^1^2970219^^^"
^DD(52,100,21,1,0)="This field represents the current status of the prescription."
^DD(52,100,23,0)="^^1^1^2970219^^"
^DD(52,100,23,1,0)="set of codes."
^DD(52,100,"DT")="2971104"
^DD(52,101,0)="LAST DISPENSED DATE^D^^3;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,101,3)="Enter date that he presciption was last filled."
^DD(52,101,21,0)="^^1^1^2920305^^"
^DD(52,101,21,1,0)="This field contains the last fill date."
^DD(52,101,23,0)="^^1^1^2920305^^"
^DD(52,101,23,1,0)="Date."
^DD(52,101,"DT")="2920305"
^DD(52,102,0)="NEXT POSSIBLE FILL^D^^3;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,102,3)=""
^DD(52,102,21,0)="^^1^1^2921120^^"
^DD(52,102,21,1,0)="This field contains the next possible fill date."
^DD(52,102,23,0)="^^1^1^2921120^^"
^DD(52,102,23,1,0)="Date."
^DD(52,102,"DT")="2921120"
^DD(52,102.1,0)="PRIOR FILL DATE^D^^3;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,102.1,3)="Data is not entered through file manager."
^DD(52,102.1,20,0)="^.3LA^1^1"
^DD(52,102.1,20,1,0)="PSO"
^DD(52,102.1,21,0)="^^3^3^2930316^^"
^DD(52,102.1,21,1,0)="This field is used to indicate the last date the prescription was filled."
^DD(52,102.1,21,2,0)="The dates in this field will be the date of the last renew from a"
^DD(52,102.1,21,3,0)="previous rx, and any subsequent fills."
^DD(52,102.1,23,0)="^^1^1^2930316^^"
^DD(52,102.1,23,1,0)="date."
^DD(52,102.1,"DT")="2930125"
^DD(52,102.2,0)="PENDING NEXT POSSIBLE FILLDATE^D^^3;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,102.2,21,0)="^^3^3^2961227^"
^DD(52,102.2,21,1,0)="This field is to contain the next possible filldate if the Rx was "
^DD(52,102.2,21,2,0)="discontinued prior to the original label printing.  If the Rx is reinstated"
^DD(52,102.2,21,3,0)="this date will be restored to field 102 (next possbile filldate)."
^DD(52,102.2,"DT")="2961227"
^DD(52,103,0)="NEW DRUG^F^^DRG;1^K:$L(X)>30!($L(X)<1) X"
^DD(52,103,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(52,103,21,0)="^^1^1^2920127^"
^DD(52,103,21,1,0)="This field is used to enter a new drug."
^DD(52,103,"DT")="2850914"
^DD(52,104,0)="VERIFYING PHARMACIST^*P200'I^VA(200,^2;10^S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52,104,3)="Enter name of pharmacist that is verifing the prescription."
^DD(52,104,12)="Only valid verifying pharmacist are to be selected."
^DD(52,104,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"""
^DD(52,104,21,0)="^^1^1^2930126^^^"
^DD(52,104,21,1,0)="This field is used to show the pharmacist that verified the prescription"
^DD(52,104,"DT")="2930126"
^DD(52,105,0)="COPAY TRANSACTION TYPE^P350.1'I^IBE(350.1,^IB;1^Q"
^DD(52,105,8.5)="^"
^DD(52,105,9)="^"
^DD(52,105,21,0)="^^2^2^2910422^"
^DD(52,105,21,1,0)="This field contains the internal entry number of the pointer to the"
^DD(52,105,21,2,0)="IB Action Type file (#350.1)."
^DD(52,105,"DT")="2910417"
^DD(52,106,0)="IB NUMBER^P350'I^IB(^IB;2^Q"
^DD(52,106,8.5)="^"
^DD(52,106,9)="^"
^DD(52,106,21,0)="^^2^2^2910422^"
^DD(52,106,21,1,0)="This field contains the internal entry number of the pointer to the "
^DD(52,106,21,2,0)="Integrated Billing Action file (#350)."
^DD(52,106,"DT")="2910417"
^DD(52,106.5,0)="COPAY TYPE AUDIT^FI^^IB;3^K:$L(X)>1!($L(X)<1) X"
^DD(52,106.5,3)="Answer must be 1 character in length."
^DD(52,106.5,21,0)="^^2^2^2961211^^^"
^DD(52,106.5,21,1,0)="This field serves as an audit of the original copay status. It is not"
^DD(52,106.5,21,2,0)="changed or reset if the orignal status is changed."
^DD(52,106.5,"DT")="2961211"
^DD(52,106.6,0)="COPAY EXCEEDING CAP^P354.71'^IBAM(354.71,^IB;4^Q"
^DD(52,106.6,3)="This field contains the internal entry number of the pointer to the IB COPAY TRANSACTIONS FILE (#354.71)"
^DD(52,106.6,21,0)="^^3^3^3010904^"
^DD(52,106.6,21,1,0)="This field contains the internal entry number of the pointer to the IB"
^DD(52,106.6,21,2,0)="COPAY TRANSACTIONS file (#354.71).  There will only be data in this field"
^DD(52,106.6,21,3,0)="if this Rx's copay exceeded the annual copay cap."
^DD(52,106.6,23,0)="^^3^3^3010904^"
^DD(52,106.6,23,1,0)="This field contains the internal entry number of the pointer to the IB"
^DD(52,106.6,23,2,0)="COPAY TRANSACTIONS file (#354.71).  There will only be data in this field"
^DD(52,106.6,23,3,0)="if this Rx's copay exceeded the annual copay cap."
^DD(52,106.6,"DT")="3010904"
^DD(52,107,0)="COPAY ACTIVITY LOG^52.0107DA^^COPAY;0"
^DD(52,107,"DT")="3010716"
^DD(52,108,0)="DELETION COMMENTS^RF^^D;1^K:$L(X)>100!($L(X)<5) X"
^DD(52,108,3)="Answer must be 5-100 characters in length."
^DD(52,108,21,0)="^^2^2^2970902^^"
^DD(52,108,21,1,0)="This field is used to enter comments on why a prescription was marked as"
^DD(52,108,21,2,0)="deleted."
^DD(52,108,23,0)="^^1^1^2970902^^"
^DD(52,108,23,1,0)="required."
^DD(52,108,"DT")="2901115"
^DD(52,109,0)="COSIGNING PHYSICIAN^*P200'^VA(200,^3;3^S DIC(""S"")=""I $D(^(""""PS"""")),$P(^(""""PS""""),""""^""""),'$P(^(""""PS""""),""""^"""",7),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52,109,1,0)="^.1"
^DD(52,109,1,1,0)="52^ANCO^MUMPS"
^DD(52,109,1,1,1)="K ^PSRX(""ANCO"",DA)"
^DD(52,109,1,1,2)="I $D(^VA(200,+$P(^PSRX(DA,0),""^"",4),""PS"")),$P(^(""PS""),""^"",7) S ^PSRX(""ANCO"",DA)="""""
^DD(52,109,1,1,3)="Do not delete."
^DD(52,109,1,1,"%D",0)="^^2^2^2971022^^^"
^DD(52,109,1,1,"%D",1,0)="This cross reference lists the internal record number if the physician"
^DD(52,109,1,1,"%D",2,0)="requires a cosigning physician. It sets the global ^PSRX(""ANCO"",DA)=""""."
^DD(52,109,1,1,"DT")="2930323"
^DD(52,109,12)="Select an active provider who does not require a cosigner."
^DD(52,109,12.1)="S DIC(""S"")=""I $D(^(""""PS"""")),$P(^(""""PS""""),""""^""""),'$P(^(""""PS""""),""""^"""",7),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)'<DT)"""
^DD(52,109,21,0)="^^3^3^2921117^^^^"
^DD(52,109,21,1,0)="This field identifies the cosigning physician for prescriptions written by"
^DD(52,109,21,2,0)="a provider for whom a counter signature is required, for example a nurse"
^DD(52,109,21,3,0)="practitioner."
^DD(52,109,23,0)="^^1^1^2921117^"
^DD(52,109,23,1,0)="pointer"
^DD(52,109,"DT")="2930323"
^DD(52,110,0)="TYPE OF RX^NJ2,0X^^TYPE;1^K X"
^DD(52,110,3)="Data is not entered directly with FileMan."
^DD(52,110,20,0)="^.3LA^1^1"
^DD(52,110,20,1,0)="pso"
^DD(52,110,21,0)="^^3^3^2920610^^^^"
^DD(52,110,21,1,0)="This field is used to indicate if the rx dispensed is a partial or normal"
^DD(52,110,21,2,0)="process rx.  If partial medication was dispensed this will be equal to the "
^DD(52,110,21,3,0)="entry number else the field will be equal to zero."
^DD(52,110,23,0)="^^1^1^2920610^^"
^DD(52,110,23,1,0)="number"
^DD(52,110,"DT")="2920610"
^DD(52,111,0)="POE RX^S^1:YES;^POE;1^Q"
^DD(52,111,3)="This field will be set for all prescriptions, this includes prescriptions entered before installation of PSO*7*46."
^DD(52,111,21,0)="^.001^4^4^3010627^^^^"
^DD(52,111,21,1,0)="This field shall be set whenever a new/renew prescription is entered after"
^DD(52,111,21,2,0)="the Pharmacy Ordering Enhancements software for Outpatient Pharmacy has been"
^DD(52,111,21,3,0)="installed."
^DD(52,111,21,4,0)="This field will set to 1 for all pre-POE Rxs during the install of PSO*7*46."
^DD(52,111,23,0)="^.001^1^1^3010627^^^^"
^DD(52,111,23,1,0)="set of codes."
^DD(52,111,"DT")="3000506"
^DD(52,112,0)="ORIGINAL QTY^NJ11,2^^3;9^K:+X'=X!(X>99999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(52,112,3)="This field allows numeric entries only, both for CMOP Rxs and non-CMOP Rxs.  It requires a number between .01 and 99999999, a maximum of 2 fractional decimals."
^DD(52,112,21,0)="^.001^2^2^3000506^^^"
^DD(52,112,21,1,0)="This field will hold the quantity that was filled for the original fill"
^DD(52,112,21,2,0)="of the Rx."
^DD(52,112,23,0)="^^1^1^3000506^"
^DD(52,112,23,1,0)="numeric."
^DD(52,112,"DT")="3000506"
^DD(52,113,0)="MEDICATION INSTRUCTIONS^52.0113^^6;0"
^DD(52,113,21,0)="^.001^2^2^3010801^^^^"
^DD(52,113,21,1,0)="This sub-file will contain the dispense units per dosage ordered, dosage"
^DD(52,113,21,2,0)="ordered, units, noun, duration and conjunction fields."
^DD(52,113,23,0)="^.001^1^1^3010801^^^^"
^DD(52,113,23,1,0)="sub-file."
^DD(52,113,"DT")="3000506"
^DD(52,114,0)="PATIENT INSTRUCTIONS^F^^INS;1^K:$L(X)>240!($L(X)<1) X"
^DD(52,114,3)="Enter patient instructions.  Answer must be 1-240 characters in length."
^DD(52,114,21,0)="^^3^3^3000511^"
^DD(52,114,21,1,0)="The text in this field shall be used for the Patient Instructions in the"
^DD(52,114,21,2,0)="Outpatient Pharmacy package when entering orders, if the Dispense Drug"
^DD(52,114,21,3,0)="selected is matched to a Pharmacy Orderable Item with patient instructions."
^DD(52,114,23,0)="^^1^1^3000511^"
^DD(52,114,23,1,0)="free text."
^DD(52,114,"DT")="3000511"
^DD(52,114.1,0)="OTHER PATIENT INSTRUCTIONS^F^^INSS;1^K:$L(X)>245!($L(X)<1) X"
^DD(52,114.1,3)="Enter Other Patient Instructions. Answer must be 1-245 characters in length."
^DD(52,114.1,20,0)="^.3LA^1^1"
^DD(52,114.1,20,1,0)="PSO"
^DD(52,114.1,21,0)="^.001^2^2^3021009^^^"
^DD(52,114.1,21,1,0)="This field will be used to store the Other Language Patient Instructions"
^DD(52,114.1,21,2,0)="when added."
^DD(52,114.1,23,0)="^.001^1^1^3021009^^"
^DD(52,114.1,23,1,0)="free text."
^DD(52,114.1,"DT")="3021009"
^DD(52,115,0)="EXPANDED PATIENT INSTRUCTIONS^52.0115^^INS1;0"
^DD(52,116,0)="SERVICE CONNECTED^S^0:NO;1:YES;^IBQ;1^Q"
^DD(52,116,3)="Enter 'Yes' if this prescription is for a Service Connected condition."
^DD(52,116,21,0)="^.001^9^9^3010817^^"
^DD(52,116,21,1,0)="During Outpatient Pharmacy order entry, a pharmacist may be asked if the"
^DD(52,116,21,2,0)="medication being prescribed is for a service connected condition. This"
^DD(52,116,21,3,0)="field will store the pharmacist's response to this question. The value in"
^DD(52,116,21,4,0)="this field will be used to evaluate whether or not a copay should be"
^DD(52,116,21,5,0)="applied to the prescription. This value will also be used as a default"
^DD(52,116,21,6,0)="should this question be raised again during the life of the prescription"
^DD(52,116,21,7,0)="when a prescription fill is being released, or as the default for the"
^DD(52,116,21,8,0)="question upon renewal of the prescription through CPRS or Outpatient"
^DD(52,116,21,9,0)="Pharmacy."
^DD(52,116,"DT")="3010814"
^DD(52,117,0)="MILITARY SEXUAL TRAUMA^S^0:NO;1:YES;^IBQ;2^Q"
^DD(52,117,3)="Enter 'Yes' if this prescription is being used for treatment of Military Sexual Trauma."
^DD(52,117,21,0)="^^10^10^3010817^"
^DD(52,117,21,1,0)="During Outpatient Pharmacy order entry, if a veteran has been identified"
^DD(52,117,21,2,0)="as having been treated for Military Sexual Trauma, the pharmacist may be"
^DD(52,117,21,3,0)="asked to identify whether or not the medication prescribed is being used"
^DD(52,117,21,4,0)="to treat a condition related to Military Sexual Trauma. This field will"
^DD(52,117,21,5,0)="store the pharmacist's response to this question. The value in this field"
^DD(52,117,21,6,0)="will be used to evaluate whether or not a copay should be applied to the"
^DD(52,117,21,7,0)="prescription. This value will also be used as a default should this"
^DD(52,117,21,8,0)="question be raised again during the life of the prescription when a"
^DD(52,117,21,9,0)="prescription fill is being released, or as the default for the question"
^DD(52,117,21,10,0)="upon renewal of the prescription through CPRS or Outpatient Pharmacy."
^DD(52,117,"DT")="3010814"
^DD(52,118,0)="AGENT ORANGE EXPOSURE^S^0:NO;1:YES;^IBQ;3^Q"
^DD(52,118,3)="Enter 'Yes' if this prescription is being used for treatment of Vietnam-Era herbicide exposure."
^DD(52,118,21,0)="^.001^11^11^3010817^^"
^DD(52,118,21,1,0)="During Outpatient Pharmacy order entry, if a veteran has been identified"
^DD(52,118,21,2,0)="as having been exposed to Agent Orange during Vietnam service, the"
^DD(52,118,21,3,0)="pharmacist may be asked to identify whether or not the medication"
^DD(52,118,21,4,0)="prescribed is being used to treat a condition due to this exposure. This"
^DD(52,118,21,5,0)="field will store the pharmacist's response to this question. The value in"
^DD(52,118,21,6,0)="this field will be used to evaluate whether or not a copay should be"
^DD(52,118,21,7,0)="applied to the prescription. This value will also be used as a default"
^DD(52,118,21,8,0)="should this question be raised again during the life of the prescription"
^DD(52,118,21,9,0)="when a prescription fill is being released, or as the default for the"
^DD(52,118,21,10,0)="question upon renewal of the prescription through CPRS or Outpatient"
^DD(52,118,21,11,0)="Pharmacy."
^DD(52,118,"DT")="3011023"
^DD(52,119,0)="IONIZING RADIATION EXPOSURE^S^0:NO;1:YES;^IBQ;4^Q"
^DD(52,119,3)="Enter 'Yes' if this prescription is being used to treat a condition due to ionizing radiation exposure during military service."
^DD(52,119,21,0)="^.001^11^11^3011022^^"
^DD(52,119,21,1,0)="During Outpatient Pharmacy order entry, if a veteran has been identified"
^DD(52,119,21,2,0)="as having been exposed to ionizing radiation during military service, the"
^DD(52,119,21,3,0)="pharmacist may be asked to identify whether or not the medication"
^DD(52,119,21,4,0)="prescribed is being used to treat a condition due to this exposure. This"
^DD(52,119,21,5,0)="field will store the pharmacist's response to this question. The value in"
^DD(52,119,21,6,0)="this field will be used to evaluate whether or not a copay should be"
^DD(52,119,21,7,0)="applied to the prescription. This value will also be used as a default"
^DD(52,119,21,8,0)="should this question be raised again during the life of the prescription"
^DD(52,119,21,9,0)="when a prescription fill is being released, or as the default for the"
^DD(52,119,21,10,0)="question upon renewal of the prescription through CPRS or Outpatient"
^DD(52,119,21,11,0)="Pharmacy."
^DD(52,119,"DT")="3011023"
^DD(52,120,0)="ENVIRONMENTAL CONTAMINANT^S^0:NO;1:YES;^IBQ;5^Q"
^DD(52,120,3)="Enter 'Yes' if this prescription is being used to treat a condition due to environmental contaminant exposure during the Persian Gulf War."
^DD(52,120,21,0)="^.001^11^11^3011023^^"
^DD(52,120,21,1,0)="During Outpatient Pharmacy order entry, if a veteran has been identified"
^DD(52,120,21,2,0)="as having been exposed to environmental contaminant exposure during the"
^DD(52,120,21,3,0)="Persian Gulf War, the pharmacist may be asked to identify whether or not"
^DD(52,120,21,4,0)="the medication prescribed is being used to treat a condition due to this"
^DD(52,120,21,5,0)="exposure. This field will store the pharmacist's response to this"
^DD(52,120,21,6,0)="question. The value in this field will be used to evaluate whether or not"
^DD(52,120,21,7,0)="a copay should be applied to the prescription. This value will also be"
^DD(52,120,21,8,0)="used as a default should this question be raised again during the life of"
^DD(52,120,21,9,0)="the prescription when a prescription fill is being released, or as the"
^DD(52,120,21,10,0)="default for the question upon renewal of the prescription through CPRS or"
^DD(52,120,21,11,0)="Outpatient Pharmacy."
^DD(52,120,"DT")="3011023"
^DD(52,120.01,0)="DDSTATUS^F^^DDSTA;1^K:$L(X)>10!($L(X)<1) X"
^DD(52,120.01,3)="Answer must be 1-10 characters in length."
^DD(52,120.01,21,0)="^.001^2^2^3020809^^^^"
^DD(52,120.01,21,1,0)="This field will hold the status of the prescription at the time a date of"
^DD(52,120.01,21,2,0)="death was entered."
^DD(52,120.01,23,0)="^.001^1^1^3020809^^^^"
^DD(52,120.01,23,1,0)="free text."
^DD(52,120.01,"DT")="3020513"
^DD(52,120.02,0)="DATE OF DEATH HISTORY^F^^DDSTA;2^K:$L(X)>235!($L(X)<1) X"
^DD(52,120.02,3)="Answer must be 1-235 characters in length."
^DD(52,120.02,21,0)="^.001^4^4^3020809^^^^"
^DD(52,120.02,21,1,0)="This field will be used to take a snapshot of the Rx at the time it was"
^DD(52,120.02,21,2,0)="discontinued due to a date of death being entered for the patient."
^DD(52,120.02,21,3,0)="This data will be used to restore the Rx to the state before the date of"
^DD(52,120.02,21,4,0)="death was entered."
^DD(52,120.02,23,0)="^.001^1^1^3020809^^^"
^DD(52,120.02,23,1,0)="free text."
^DD(52,120.02,"DT")="3020513"
^DD(52,121,0)="HEAD AND/OR NECK CANCER^S^0:NO;1:YES;^IBQ;6^Q"
^DD(52,121,3)="Enter 'Yes' if this prescription is being used to treat Head and/or Neck Cancer due to nose or throat radium treatments while in the military."
^DD(52,121,21,0)="^^11^11^3011108^"
^DD(52,121,21,1,0)="During Outpatient Pharmacy order entry, if a veteran has been identified"
^DD(52,121,21,2,0)="as having been treated for Head and/or Neck Cancer due to nose or throat"
^DD(52,121,21,3,0)="radium treatments while in the military, the pharmacist may be asked to"
^DD(52,121,21,4,0)="identify whether or not the medication prescribed is being used to treat"
^DD(52,121,21,5,0)="this condition. This field will store the pharmacist's response to this"
^DD(52,121,21,6,0)="question. The value in this field will be used to evaluate whether or not"
^DD(52,121,21,7,0)="a copay should be applied to the prescription. This value will also be"
^DD(52,121,21,8,0)="used as a default should this question be raised again during the life of"
^DD(52,121,21,9,0)="the prescription when a prescription fill is being released, or as the"
^DD(52,121,21,10,0)="default for the question upon renewal of the prescription through CPRS or"
^DD(52,121,21,11,0)="Outpatient Pharmacy."
^DD(52,121,"DT")="3011023"
^DD(52,122,0)="COMBAT VETERAN^S^0:NO;1:YES;^IBQ;7^Q"
^DD(52,122,3)="Enter 'Yes' if this prescription is being used to treat a condition related to Combat Services."
^DD(52,122,21,0)="^^7^7^3031211^"
^DD(52,122,21,1,0)="During Outpatient Pharmacy order entry, a pharmacist may be asked if the "
^DD(52,122,21,2,0)="medication being prescribed is for a condition related to Combat Services "
^DD(52,122,21,3,0)="while in the military. This field will store the pharmacist's response to"
^DD(52,122,21,4,0)="this question. The value in this field will be used to evaluate whether or"
^DD(52,122,21,5,0)="not a copay should be applied to the prescription. This value will also be"
^DD(52,122,21,6,0)="used as a default should this question be raised again during the life of"
^DD(52,122,21,7,0)="the prescription."
^DD(52,122,"DT")="3031211"
^DD(52,123,0)="EXTERNAL PLACER ORDER NUMBER^FI^^EXT;1^K:$L(X)>30!($L(X)<1) X"
^DD(52,123,1,0)="^.1^^0"
^DD(52,123,3)="Answer must be 1-30 characters in length."
^DD(52,123,21,0)="^.001^3^3^3020716^^^"
^DD(52,123,21,1,0)="This field represents the external system order number of this order. This"
^DD(52,123,21,2,0)="field will only be populated if this order was originally received from an"
^DD(52,123,21,3,0)="external system into Vista."
^DD(52,123,"DT")="3020805"
^DD(52,124,0)="EXTERNAL APPLICATION^FI^^EXT;2^K:$L(X)>60!($L(X)<1) X"
^DD(52,124,3)="Answer must be 1-60 characters in length."
^DD(52,124,21,0)="^^2^2^3020805^"
^DD(52,124,21,1,0)="This field represents the name of the external system from where the "
^DD(52,124,21,2,0)="external order was received."
^DD(52,124,"DT")="3020805"
^DD(52,125,0)="PFSS ACCOUNT REFERENCE^P375'IX^IBBAA(375,^PFS;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52,125,8.5)="^"
^DD(52,125,9)="^"
^DD(52,125,21,0)="^.001^3^3^3050518^^^"
^DD(52,125,21,1,0)="This is a reference number to an external medical billing system Account "
^DD(52,125,21,2,0)="Number for the purposes of uniquely identifying prescription charges for "
^DD(52,125,21,3,0)="1st or 3rd party billing."
^DD(52,125,23,0)="^^5^5^3050518^"
^DD(52,125,23,1,0)="This field was introduced as part of the Patient Financial Services System"
^DD(52,125,23,2,0)="(PFSS) project to implement a new COTS billing system. It requires that"
^DD(52,125,23,3,0)="every prescription fill passed to the external billing system to attach a"
^DD(52,125,23,4,0)="unique account/visit number. The IBB API GETACCT^IBBAPI provides this data"
^DD(52,125,23,5,0)="and is stored during prescription order creation as part of the data."
^DD(52,125,"DT")="3050812"
^DD(52,126,0)="PFSS CHARGE ID^NJ8,0^^PFS;2^K:+X'=X!(X>99999999)!(X<90000000)!(X?.E1"".""1.N) X"
^DD(52,126,3)="Type a number between 90000000 and 99999999, 0 Decimal Digits"
^DD(52,126,8.5)="^"
^DD(52,126,9)="^"
^DD(52,126,21,0)="^^2^2^3050516^^"
^DD(52,126,21,1,0)="This is another unique identifier required when prescription charge "
^DD(52,126,21,2,0)="messages are passed to the external billing system."
^DD(52,126,23,0)="^^5^5^3050518^"
^DD(52,126,23,1,0)="This field was introduced as part of the Patient Financial Services System"
^DD(52,126,23,2,0)="(PFSS) project to implement a new COTS billing system. It requires that"
^DD(52,126,23,3,0)="every prescription charge transaction passed to the external billing"
^DD(52,126,23,4,0)="system to attach a unique charge identifier. The IBB API GETCHGID^IBBAPI"
^DD(52,126,23,5,0)="provides this data."
^DD(52,126,"DT")="3050518"
^DD(52,127,0)="LAST DISPENSED DATE HOLDER^D^^3;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,127,21,0)="^^1^1^3060713^"
^DD(52,127,21,1,0)="This field is a holder for the last dispensed date."
^DD(52,127,"DT")="3060713"
^DD(52,201,0)="TPB RX^S^1:YES;0:NO;^TPB;1^Q"
^DD(52,201,3)="Enter 'Yes' is this prescription is part of the Transitional Pharmacy Benefit project."
^DD(52,201,21,0)="^.001^3^3^3031216^^"
^DD(52,201,21,1,0)="If this field is set to 'Yes', that indicates that this prescription has "
^DD(52,201,21,2,0)="been created as part of the Transitional Pharmacy Benefit project. This "
^DD(52,201,21,3,0)="field is controlled by the software."
^DD(52,201,"DT")="3031216"
^DD(52,301,0)="CLOZAPINE DOSAGE (MG/DAY)^NJ4,0^^SAND;1^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52,301,3)="Type a Number between 0 and 3000, 0 Decimal Digits"
^DD(52,301,21,0)="^^2^2^2910821^^"
^DD(52,301,21,1,0)="This is the total daily dosage of clozapine if this prescription is"
^DD(52,301,21,2,0)="for the drug clozapine.  This is used only for clozapine."
^DD(52,301,"DT")="2910816"
^DD(52,302,0)="WBC RESULTS^NJ9,3^^SAND;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4.N) X"
^DD(52,302,3)="Type a number between 0 and 99999, 3 Decimal Digits"
^DD(52,302,21,0)="^^2^2^3060718^^"
^DD(52,302,21,1,0)="This is the results of the WBC test which was used to authorize the"
^DD(52,302,21,2,0)="clozapine prescription. This will exist only for clozapine prescriptions."
^DD(52,302,23,0)="^^2^2^3060718^"
^DD(52,302,23,1,0)="This is provided by the Mental Health API $$CL^YSCLTST2(DFN) patch "
^DD(52,302,23,2,0)="YS*5.01*90 as Mental Health monitor the Clozapine patient."
^DD(52,302,"DT")="3060718"
^DD(52,303,0)="DATE OF WBC TEST^D^^SAND;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52,303,21,0)="^^2^2^2930713^^"
^DD(52,303,21,1,0)="This is the date of the WBC test which authorized the clozapine"
^DD(52,303,21,2,0)="prescription.  It is used only for clozapine prescriptions."
^DD(52,303,"DT")="2920901"
^DD(52,304,0)="ANC RESULTS^NJ9,3^^SAND;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4.N) X"
^DD(52,304,3)="Type a number between 0 and 99999, 3 Decimal Digits"
^DD(52,304,21,0)="^^2^2^3060718^^"
^DD(52,304,21,1,0)="This is the results of the ANC test that was used to authorize the"
^DD(52,304,21,2,0)="clozapine prescription. This will exist only for clozapine prescriptions."
^DD(52,304,23,0)="^^2^2^3060718^"
^DD(52,304,23,1,0)="This is provided by the Mental Health API $$CL^YSCLTST2(DFN) patch"
^DD(52,304,23,2,0)="YS*5.01*90 as Mental Health monitor the Clozapine patient."
^DD(52,304,"DT")="3060718"
^DD(52,310,0)="SIGNATURE STATUS^S^1:YES;0:NO;^PKI;1^Q"
^DD(52,310,3)="Data not entered directly with file manager."
^DD(52,310,21,0)="^.001^1^1^3020814^^"
^DD(52,310,21,1,0)="Digital Signature status indicator."
^DD(52,310,23,0)="^^3^3^3020814^"
^DD(52,310,23,1,0)="This field will be used to indicate the digital signature status of an"
^DD(52,310,23,2,0)="order. A value of '1' will indicate that the original order was digitally"
^DD(52,310,23,3,0)="signed."
^DD(52,310,"DT")="3020809"
^DD(52,400,0)="CMOP EVENT^52.01PA^^4;0"
^DD(52,400,23,0)="^^1^1^2960621^^^^"
^DD(52,400,23,1,0)="Pointer to the CMOP Transmission file #550.2."
^DD(52,400,"DT")="2940616"
^DD(52,401,0)="LOT/EXP^52.0401A^^5;0"
^DD(52,52311,0)="ICD DIAGNOSIS^52.052311P^^ICD;0"
^DD(52,52311,"DT")="3040401"
^DD(52,521011,0)="HOSPITAL COVERAGE^BCJ8^^ ; ^S X=$S('$D(^PSRX(D0,0)):0,$P(^PSRX(D0,0),""^"",2)="""":0,$D(^DPT($P(^PSRX(D0,0),""^"",2),4)):$P(^(4),""^"",5),1:0)"
^DD(52,521011,9)="^"
^DD(52,521011,9.01)=""
^DD(52,521011,9.1)="S X=$S('$D(^PSRX(D0,0)):0,$P(^PSRX(D0,0),""^"",2)="""":0,$D(^DPT($P(^PSRX(D0,0),""^"",2),4)):$P(^(4),""^"",5),1:0)"
^DD(52,521011,21,0)="^^1^1^2930316^^"
^DD(52,521011,21,1,0)="This field is used to compute hospital coverage from MAS."
^DD(52,521011,"DT")="2900609"
^DD(52,"B","# OF REFILLS",9)=""
^DD(52,"B","ACTIVITY LOG",40)=""
^DD(52,"B","AFFECTED MEDICATION",34)=""
^DD(52,"B","AGENT ORANGE EXPOSURE",118)=""
^DD(52,"B","ANC RESULTS",304)=""
^DD(52,"B","ARCHIVED",36)=""
^DD(52,"B","BINGO WAIT TIME",32.3)=""
^DD(52,"B","CANCEL DATE",26.1)=""
^DD(52,"B","CHECKING PHARMACIST",38.2)=""
^DD(52,"B","CLINIC",5)=""
^DD(52,"B","CLOZAPINE DOSAGE (MG/DAY)",301)=""
^DD(52,"B","CMOP EVENT",400)=""
^DD(52,"B","COMBAT VETERAN",122)=""
^DD(52,"B","COPAY ACTIVITY LOG",107)=""
^DD(52,"B","COPAY EXCEEDING CAP",106.6)=""
^DD(52,"B","COPAY TRANSACTION TYPE",105)=""
^DD(52,"B","COPAY TYPE AUDIT",106.5)=""
^DD(52,"B","COPIES",10.6)=""
^DD(52,"B","COSIGNING PHYSICIAN",109)=""
^DD(52,"B","DATE OF DEATH HISTORY",120.02)=""
^DD(52,"B","DATE OF WBC TEST",303)=""
^DD(52,"B","DAW CODE",81)=""
^DD(52,"B","DAYS SUPPLY",8)=""
^DD(52,"B","DDSTATUS",120.01)=""
^DD(52,"B","DELETION COMMENTS",108)=""
^DD(52,"B","DISPENSED DATE",25)=""
^DD(52,"B","DIVISION",20)=""
^DD(52,"B","DRUG",6)=""
^DD(52,"B","DRUG ALLERGY INDICATION",34.1)=""
^DD(52,"B","DRUG ALLERGY INGREDIENTS",34.11)=""
^DD(52,"B","DRUG EXPIRATION DATE",29)=""
^DD(52,"B","ENTERED BY",16)=""
^DD(52,"B","ENVIRONMENTAL CONTAMINANT",120)=""
^DD(52,"B","EXPANDED PATIENT INSTRUCTIONS",115)=""
^DD(52,"B","EXPIRATION DATE",26)=""
^DD(52,"B","EXTERNAL APPLICATION",124)=""
^DD(52,"B","EXTERNAL PLACER ORDER NUMBER",123)=""
^DD(52,"B","FILL DATE",22)=""
^DD(52,"B","FILLING PERSON",38.1)=""
^DD(52,"B","FINISH DATE/TIME",38.3)=""
^DD(52,"B","FINISHING PERSON",38)=""
^DD(52,"B","FORWARD ORDER #",39.5)=""
^DD(52,"B","GENERIC PROVIDER",30)=""
^DD(52,"B","HEAD AND/OR NECK CANCER",121)=""
^DD(52,"B","HOLD COMMENTS",99.1)=""
^DD(52,"B","HOLD DATE",99.2)=""
^DD(52,"B","HOLD REASON",99)=""
^DD(52,"B","HOSPITAL COVERAGE",521011)=""
^DD(52,"B","IB NUMBER",106)=""
^DD(52,"B","ICD DIAGNOSIS",52311)=""
^DD(52,"B","IONIZING RADIATION EXPOSURE",119)=""
^DD(52,"B","ISSUE DATE",1)=""
^DD(52,"B","LABEL DATE/TIME",32)=""
^DD(52,"B","LAST DISPENSED DATE",101)=""
^DD(52,"B","LAST DISPENSED DATE HOLDER",127)=""
^DD(52,"B","LOGIN DATE",21)=""
^DD(52,"B","LOT #",24)=""
^DD(52,"B","LOT/EXP",401)=""
^DD(52,"B","MAIL/WINDOW",11)=""
^DD(52,"B","MANUFACTURER",28)=""
^DD(52,"B","MEDICATION INSTRUCTIONS",113)=""
^DD(52,"B","MEDICATION ROUTES",37)=""
^DD(52,"B","METHOD OF PICK-UP",35)=""
^DD(52,"B","MILITARY SEXUAL TRAUMA",117)=""
^DD(52,"B","NDC",27)=""
^DD(52,"B","NEW DRUG",103)=""
^DD(52,"B","NEXT POSSIBLE FILL",102)=""
^DD(52,"B","OERR SIG",10.1)=""
^DD(52,"B","ORDER CONVERTED",10.3)=""
^DD(52,"B","ORIGINAL QTY",112)=""
^DD(52,"B","OTHER PATIENT INSTRUCTIONS",114.1)=""
^DD(52,"B","PARTIAL DATE",60)=""
^DD(52,"B","PATIENT",2)=""
^DD(52,"B","PATIENT INSTRUCTIONS",114)=""
^DD(52,"B","PATIENT STATUS",3)=""
^DD(52,"B","PENDING NEXT POSSIBLE FILLDATE",102.2)=""
^DD(52,"B","PFSS ACCOUNT REFERENCE",125)=""
^DD(52,"B","PFSS CHARGE ID",126)=""
^DD(52,"B","PHARMACIST",23)=""
^DD(52,"B","PHARMACY INSTRUCTIONS",39.1)=""
^DD(52,"B","PHARMACY ORDERABLE ITEM",39.2)=""
^DD(52,"B","PLACER ORDER #",39.3)=""
^DD(52,"B","POE RX",111)=""
^DD(52,"B","PREVIOUS ORDER #",39.4)=""
^DD(52,"B","PRIOR FILL DATE",102.1)=""
^DD(52,"B","PROVIDER",4)=""
^DD(52,"B","PROVIDER COMMENTS",39)=""
^DD(52,"B","QTY",7)=""
^DD(52,"B","RE-TRANSMIT FLAG",82)=""
^DD(52,"B","REFILL",52)=""
^DD(52,"B","REJECT INFO",52.25)=""
^DD(52,"B","RELEASED DATE/TIME",31)=""
^DD(52,"B","REMARKS",12)=""
^DD(52,"B","REPRINT",32.2)=""
^DD(52,"B","RETURNED TO STOCK",32.1)=""
^DD(52,"B","RX #",.01)=""
^DD(52,"B","SCHEDULES",37.1)=""
^DD(52,"B","SERVICE CONNECTED",116)=""
^DD(52,"B","SEVERITY",33)=""
^DD(52,"B","SIG",10)=""
^DD(52,"B","SIG1",10.2)=""
^DD(52,"B","SIGNATURE STATUS",310)=""
^DD(52,"B","STATUS",100)=""
^DD(52,"B","TPB RX",201)=""
^DD(52,"B","TRADE NAME",6.5)=""
^DD(52,"B","TYPE OF RX",110)=""
^DD(52,"B","UNIT PRICE OF DRUG",17)=""
^DD(52,"B","VERIFYING PHARMACIST",104)=""
^DD(52,"B","WAS COUNSELING UNDERSTOOD",42)=""
^DD(52,"B","WAS THE PATIENT COUNSELED",41)=""
^DD(52,"B","WBC RESULTS",302)=""
^DD(52,"GL",0,1,.01)=""
^DD(52,"GL",0,2,2)=""
^DD(52,"GL",0,3,3)=""
^DD(52,"GL",0,4,4)=""
^DD(52,"GL",0,5,5)=""
^DD(52,"GL",0,6,6)=""
^DD(52,"GL",0,7,7)=""
^DD(52,"GL",0,8,8)=""
^DD(52,"GL",0,9,9)=""
^DD(52,"GL",0,11,11)=""
^DD(52,"GL",0,13,1)=""
^DD(52,"GL",0,16,16)=""
^DD(52,"GL",0,17,17)=""
^DD(52,"GL",0,18,10.6)=""
^DD(52,"GL",0,19,10.3)=""
^DD(52,"GL",1,0,52)=""
^DD(52,"GL",2,1,21)=""
^DD(52,"GL",2,2,22)=""
^DD(52,"GL",2,3,23)=""
^DD(52,"GL",2,4,24)=""
^DD(52,"GL",2,5,25)=""
^DD(52,"GL",2,6,26)=""
^DD(52,"GL",2,7,27)=""
^DD(52,"GL",2,8,28)=""
^DD(52,"GL",2,9,20)=""
^DD(52,"GL",2,10,104)=""
^DD(52,"GL",2,11,29)=""
^DD(52,"GL",2,12,30)=""
^DD(52,"GL",2,13,31)=""
^DD(52,"GL",2,14,32.2)=""
^DD(52,"GL",2,15,32.1)=""
^DD(52,"GL",2,16,32.3)=""
^DD(52,"GL",3,1,101)=""
^DD(52,"GL",3,2,102)=""
^DD(52,"GL",3,3,109)=""
^DD(52,"GL",3,4,102.1)=""
^DD(52,"GL",3,5,26.1)=""
^DD(52,"GL",3,6,34.1)=""
^DD(52,"GL",3,7,12)=""
^DD(52,"GL",3,8,102.2)=""
^DD(52,"GL",3,9,112)=""
^DD(52,"GL",3,10,127)=""
^DD(52,"GL",4,0,400)=""
^DD(52,"GL",5,0,401)=""
^DD(52,"GL",6,0,113)=""
^DD(52,"GL","A",0,40)=""
^DD(52,"GL","ARC",1,36)=""
^DD(52,"GL","COPAY",0,107)=""
^DD(52,"GL","D",1,108)=""
^DD(52,"GL","DAI",0,34.11)=""
^DD(52,"GL","DDSTA",1,120.01)=""
^DD(52,"GL","DDSTA",2,120.02)=""
^DD(52,"GL","DRG",1,103)=""
^DD(52,"GL","DRI",1,33)=""
^DD(52,"GL","DRI",2,34)=""
^DD(52,"GL","EPH",1,81)=""
^DD(52,"GL","EPH",2,82)=""
^DD(52,"GL","EXT",1,123)=""
^DD(52,"GL","EXT",2,124)=""
^DD(52,"GL","H",1,99)=""
^DD(52,"GL","H",2,99.1)=""
^DD(52,"GL","H",3,99.2)=""
^DD(52,"GL","IB",1,105)=""
^DD(52,"GL","IB",2,106)=""
^DD(52,"GL","IB",3,106.5)=""
^DD(52,"GL","IB",4,106.6)=""
^DD(52,"GL","IBQ",1,116)=""
^DD(52,"GL","IBQ",2,117)=""
^DD(52,"GL","IBQ",3,118)=""
^DD(52,"GL","IBQ",4,119)=""
^DD(52,"GL","IBQ",5,120)=""
^DD(52,"GL","IBQ",6,121)=""
^DD(52,"GL","IBQ",7,122)=""
^DD(52,"GL","ICD",0,52311)=""
^DD(52,"GL","INS",1,114)=""
^DD(52,"GL","INS1",0,115)=""
^DD(52,"GL","INSS",1,114.1)=""
^DD(52,"GL","L",0,32)=""
^DD(52,"GL","MEDR",0,37)=""
^DD(52,"GL","MP",1,35)=""
^DD(52,"GL","OR1",1,39.2)=""
^DD(52,"GL","OR1",2,39.3)=""
^DD(52,"GL","OR1",3,39.4)=""
^DD(52,"GL","OR1",4,39.5)=""
^DD(52,"GL","OR1",5,38)=""
^DD(52,"GL","OR1",6,38.1)=""
^DD(52,"GL","OR1",7,38.2)=""
^DD(52,"GL","OR1",8,38.3)=""
^DD(52,"GL","P",0,60)=""
^DD(52,"GL","PC",1,41)=""
^DD(52,"GL","PC",2,42)=""
^DD(52,"GL","PFS",1,125)=""
^DD(52,"GL","PFS",2,126)=""
^DD(52,"GL","PI",0,39.1)=""
^DD(52,"GL","PKI",1,310)=""
^DD(52,"GL","POE",1,111)=""
^DD(52,"GL","PRC",0,39)=""
^DD(52,"GL","REJ",0,52.25)=""
^DD(52,"GL","SAND",1,301)=""
^DD(52,"GL","SAND",2,302)=""
^DD(52,"GL","SAND",3,303)=""
^DD(52,"GL","SAND",4,304)=""
^DD(52,"GL","SCH",0,37.1)=""
^DD(52,"GL","SIG",1,10)=""
^DD(52,"GL","SIG",2,10.1)=""
^DD(52,"GL","SIG1",0,10.2)=""
^DD(52,"GL","STA",1,100)=""
^DD(52,"GL","TN",1,6.5)=""
^DD(52,"GL","TPB",1,201)=""
^DD(52,"GL","TYPE",1,110)=""
^DD(52,"GR","PS",6,1)=""
^DD(52,"GR","PS",16,1)=""
^DD(52,"GR","PSO",.01,1)=""
^DD(52,"GR","PSO",26.1,1)=""
^DD(52,"GR","PSO",29,1)=""
^DD(52,"GR","PSO",33,1)=""
^DD(52,"GR","PSO",34,1)=""
^DD(52,"GR","PSO",37,1)=""
^DD(52,"GR","PSO",99.1,1)=""
^DD(52,"GR","PSO",102.1,1)=""
^DD(52,"GR","PSO",114.1,1)=""
^DD(52,"GR","pso",110,1)=""
^DD(52,"IX",.01)=""
^DD(52,"IX",1)=""
^DD(52,"IX",2)=""
^DD(52,"IX",6)=""
^DD(52,"IX",11)=""
^DD(52,"IX",20)=""
^DD(52,"IX",22)=""
^DD(52,"IX",26)=""
^DD(52,"IX",26.1)=""
^DD(52,"IX",31)=""
^DD(52,"IX",32.1)=""
^DD(52,"IX",38.3)=""
^DD(52,"IX",39.3)=""
^DD(52,"IX",39.4)=""
^DD(52,"IX",39.5)=""
^DD(52,"IX",99)=""
^DD(52,"IX",109)=""
^DD(52,"RQ",.01)=""
^DD(52,"RQ",1)=""
^DD(52,"RQ",2)=""
^DD(52,"RQ",3)=""
^DD(52,"RQ",4)=""
^DD(52,"RQ",6)=""
^DD(52,"RQ",7)=""
^DD(52,"RQ",8)=""
^DD(52,"RQ",9)=""
^DD(52,"RQ",10)=""
^DD(52,"RQ",10.6)=""
^DD(52,"RQ",11)=""
^DD(52,"RQ",16)=""
^DD(52,"RQ",17)=""
^DD(52,"RQ",20)=""
^DD(52,"RQ",21)=""
^DD(52,"RQ",23)=""
^DD(52,"RQ",25)=""
^DD(52,"RQ",99)=""
^DD(52,"RQ",99.1)=""
^DD(52,"RQ",99.2)=""
^DD(52,"RQ",100)=""
^DD(52,"RQ",108)=""
^DD(52,"SB",52.01,400)=""
^DD(52,"SB",52.0107,107)=""
^DD(52,"SB",52.0113,113)=""
^DD(52,"SB",52.0115,115)=""
^DD(52,"SB",52.02,39.1)=""
^DD(52,"SB",52.03,34.11)=""
^DD(52,"SB",52.032,32)=""
^DD(52,"SB",52.037,37)=""
^DD(52,"SB",52.038,37.1)=""
^DD(52,"SB",52.039,39)=""
^DD(52,"SB",52.04,10.2)=""
^DD(52,"SB",52.0401,401)=""
^DD(52,"SB",52.052311,52311)=""
^DD(52,"SB",52.1,52)=""
^DD(52,"SB",52.2,60)=""
^DD(52,"SB",52.25,52.25)=""
^DD(52,"SB",52.3,40)=""
^DD(52.01,0)="CMOP EVENT SUB-FIELD^^11^12"
^DD(52.01,0,"DIK")="PSOXZA"
^DD(52.01,0,"DT")="2960621"
^DD(52.01,0,"IX","A",52.01,3)=""
^DD(52.01,0,"IX","B",52.01,.01)=""
^DD(52.01,0,"NM","CMOP EVENT")=""
^DD(52.01,0,"UP")="52"
^DD(52.01,.01,0)="TRANSMISSION NUMBER^P550.2'^PSX(550.2,^0;1^Q"
^DD(52.01,.01,1,0)="^.1"
^DD(52.01,.01,1,1,0)="52.01^B"
^DD(52.01,.01,1,1,1)="S ^PSRX(DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(52.01,.01,1,1,2)="K ^PSRX(DA(1),4,""B"",$E(X,1,30),DA)"
^DD(52.01,.01,21,0)="^^3^3^2950404^^^^"
^DD(52.01,.01,21,1,0)=" "
^DD(52.01,.01,21,2,0)="This the number of the transmission which contained this prescription."
^DD(52.01,.01,21,3,0)="  "
^DD(52.01,.01,23,0)="^^1^1^2940915^^"
^DD(52.01,.01,23,1,0)="Pointer to the CMOP Transmission file #550.2."
^DD(52.01,.01,"DT")="2940915"
^DD(52.01,1,0)="SEQUENCE #^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.01,1,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(52.01,1,21,0)="^^3^3^2950404^^^"
^DD(52.01,1,21,1,0)=" "
^DD(52.01,1,21,2,0)="This is the message number of the Rx when it was transmitted to the CMOP."
^DD(52.01,1,21,3,0)=" "
^DD(52.01,1,"DT")="2930701"
^DD(52.01,2,0)="RX INDICATOR^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.01,2,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(52.01,2,21,0)="^^4^4^2950404^^^"
^DD(52.01,2,21,1,0)=" "
^DD(52.01,2,21,2,0)="This is the fill number of the Rx.  A '0' indicates that it was an"
^DD(52.01,2,21,3,0)="original fill."
^DD(52.01,2,21,4,0)="  "
^DD(52.01,2,"DT")="2930701"
^DD(52.01,3,0)="STATUS^S^0:TRANSMITTED;1:DISPENSED;2:RETRANSMITTED;3:NOT DISPENSED;^0;4^Q"
^DD(52.01,3,1,0)="^.1^^-1"
^DD(52.01,3,1,1,0)="52.01^A^MUMPS"
^DD(52.01,3,1,1,1)="K:X'=0 ^PSRX(DA(1),4,""A"",$P(^PSRX(DA(1),4,DA,0),""^"",3),DA) S:X=0 ^PSRX(DA(1),4,""A"",$P(^PSRX(DA(1),4,DA,0),""^"",3),DA)="""""
^DD(52.01,3,1,1,2)="K ^PSRX(DA(1),4,""A"",$P(^PSRX(DA(1),4,DA,0),""^"",3),DA)"
^DD(52.01,3,1,1,"%D",0)="^^2^2^2930728^^"
^DD(52.01,3,1,1,"%D",1,0)=" "
^DD(52.01,3,1,1,"%D",2,0)="Used to file Vendor Data in the appropriate Event multiple."
^DD(52.01,3,1,1,"DT")="2930728"
^DD(52.01,3,1,2,0)="52^AR^MUMPS"
^DD(52.01,3,1,2,1)="I X=1 N X S X=""PSXREF"" X ^%ZOSF(""TEST"") Q:'$T  S X=1 D AR^PSXREF"
^DD(52.01,3,1,2,2)="Q"
^DD(52.01,3,1,2,"%D",0)="^^3^3^2950501^^^"
^DD(52.01,3,1,2,"%D",1,0)=" "
^DD(52.01,3,1,2,"%D",2,0)="This cross reference is set when the fill for an Rx is released by the"
^DD(52.01,3,1,2,"%D",3,0)="CMOP."
^DD(52.01,3,1,2,"DT")="2950501"
^DD(52.01,3,1,3,0)="52^AS^MUMPS"
^DD(52.01,3,1,3,1)="I X=0 N X S X=""PSXREF"" X ^%ZOSF(""TEST"") Q:'$T  S X=0 D AS^PSXREF"
^DD(52.01,3,1,3,2)="S TMP=X N X S X=""PSXREF"" X ^%ZOSF(""TEST"") Q:'$T  S X=TMP D ASKILL^PSXREF"
^DD(52.01,3,1,3,"%D",0)="^^1^1^2960506^^^^"
^DD(52.01,3,1,3,"%D",1,0)="This cross reference is set when the Rx is transmitted to the CMOP. Format is transmission date/time,DA(1),DA."
^DD(52.01,3,1,3,"DT")="2950501"
^DD(52.01,3,21,0)="^^8^8^2960506^^"
^DD(52.01,3,21,1,0)="The current status of the prescription fill for the Consolidated Mail"
^DD(52.01,3,21,2,0)="Outpatient Pharmacy.  A status of Transmitted means that the Rx has been"
^DD(52.01,3,21,3,0)="transmitted to the CMOP for processing.  A status of Dispensed means that"
^DD(52.01,3,21,4,0)="the Rx has been filled and mailed by the CMOP.  A status of Retransmitted"
^DD(52.01,3,21,5,0)="means that the original transmission with this Rx had to be retransmitted"
^DD(52.01,3,21,6,0)="to the CMOP.  A status of Not Dispensed means that the vendor system was"
^DD(52.01,3,21,7,0)="not able to fill the Rx.  If the status is Not Dispensed, the reason will"
^DD(52.01,3,21,8,0)="be in the Reason field."
^DD(52.01,3,23,0)="^^1^1^2960506^^^"
^DD(52.01,3,23,1,0)="Set of codes "
^DD(52.01,3,"DT")="2960612"
^DD(52.01,4,0)="NDC RECEIVED^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(52.01,4,1,0)="^.1^^0"
^DD(52.01,4,3)="Answer must be 1-20 characters in length."
^DD(52.01,4,21,0)="^.001^1^1^3030808^^"
^DD(52.01,4,21,1,0)="The National Drug Code (NDC) returned for this prescription."
^DD(52.01,4,"DT")="3050607"
^DD(52.01,5,0)="CANCELLED DATE/TIME^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(52.01,5,21,0)="^^4^4^2950404^^^"
^DD(52.01,5,21,1,0)=" "
^DD(52.01,5,21,2,0)="This is the date and time the Rx was cancelled at the CMOP.  If cancelled,"
^DD(52.01,5,21,3,0)="the Rx was not filled."
^DD(52.01,5,21,4,0)=" "
^DD(52.01,5,"DT")="2930728"
^DD(52.01,6,0)="RESUBMIT STATUS^S^Y:YES;N:NO;^0;6^Q"
^DD(52.01,6,21,0)="^^3^3^2960621^"
^DD(52.01,6,21,1,0)="This field is used to track whether this fill has been resubmitted to the"
^DD(52.01,6,21,2,0)="CMOP.  If the field contains ""yes"" then the fill has been resubmitted and"
^DD(52.01,6,21,3,0)="cannot be resubmitted again."
^DD(52.01,6,"DT")="2960621"
^DD(52.01,8,0)="CANCELLED REASON^F^^1;1^K:$L(X)>40!($L(X)<3) X"
^DD(52.01,8,3)="Answer must be 3-40 characters in length."
^DD(52.01,8,21,0)="^^3^3^2960422^^^^"
^DD(52.01,8,21,1,0)=" "
^DD(52.01,8,21,2,0)="This is the free text reason the Rx was not filled at the CMOP."
^DD(52.01,8,21,3,0)="  "
^DD(52.01,8,"DT")="2950705"
^DD(52.01,9,0)="DATE SHIPPED^D^^1;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(52.01,9,3)="DATE/TIME Rx shipped from the vendor."
^DD(52.01,9,21,0)="^^1^1^2950705^"
^DD(52.01,9,21,1,0)="The date/time the prescription was shipped to the patient from the CMOP."
^DD(52.01,9,"DT")="2950705"
^DD(52.01,10,0)="CARRIER^F^^1;3^K:$L(X)>40!($L(X)<3) X"
^DD(52.01,10,3)="Answer must be 3-40 characters in length."
^DD(52.01,10,21,0)="^^1^1^2950705^"
^DD(52.01,10,21,1,0)="The carrier responsible for shipping the prescription to the patient."
^DD(52.01,10,"DT")="2950705"
^DD(52.01,11,0)="PACKAGE ID^F^^1;4^K:$L(X)>40!($L(X)<3) X"
^DD(52.01,11,3)="Answer must be 3-40 characters in length."
^DD(52.01,11,21,0)="^^2^2^2950705^"
^DD(52.01,11,21,1,0)="A unique identification code assigned by the non-DHCP system for tracking"
^DD(52.01,11,21,2,0)="the  prescription shipment."
^DD(52.01,11,"DT")="2950705"
^DD(52.01,12,0)="NDC SENT^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(52.01,12,3)="Answer must be 1-20 characters in length"
^DD(52.01,12,21,0)="^^1^1^3050323^"
^DD(52.01,12,21,1,0)="The National Drug Code (NDC) sent for this prescription."
^DD(52.01,12,"DT")="3050323"
^DD(52.01,"B","CANCELLED DATE/TIME",5)=""
^DD(52.01,"B","CANCELLED REASON",8)=""
^DD(52.01,"B","CARRIER",10)=""
^DD(52.01,"B","DATE SHIPPED",9)=""
^DD(52.01,"B","NDC RECEIVED",4)=""
^DD(52.01,"B","NDC SENT",12)=""
^DD(52.01,"B","PACKAGE ID",11)=""
^DD(52.01,"B","RESUBMIT STATUS",6)=""
^DD(52.01,"B","RX INDICATOR",2)=""
^DD(52.01,"B","SEQUENCE #",1)=""
^DD(52.01,"B","STATUS",3)=""
^DD(52.01,"B","TRANSMISSION NUMBER",.01)=""
^DD(52.01,"GL",0,1,.01)=""
^DD(52.01,"GL",0,2,1)=""
^DD(52.01,"GL",0,3,2)=""
^DD(52.01,"GL",0,4,3)=""
^DD(52.01,"GL",0,5,5)=""
^DD(52.01,"GL",0,6,6)=""
^DD(52.01,"GL",0,8,4)=""
^DD(52.01,"GL",0,9,12)=""
^DD(52.01,"GL",1,1,8)=""
^DD(52.01,"GL",1,2,9)=""
^DD(52.01,"GL",1,3,10)=""
^DD(52.01,"GL",1,4,11)=""
^DD(52.01,"IX",.01)=""
^DD(52.01,"IX",3)=""
^DD(52.0107,0)="COPAY ACTIVITY LOG SUB-FIELD^^6^7"
^DD(52.0107,0,"DT")="3011017"
^DD(52.0107,0,"NM","COPAY ACTIVITY LOG")=""
^DD(52.0107,0,"UP")="52"
^DD(52.0107,.01,0)="COPAY ACTIVITY LOG^MD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:X<1 X"
^DD(52.0107,.01,1,0)="^.1^^0"
^DD(52.0107,.01,3)="Enter the date the Activity occurred (No range limit on date)."
^DD(52.0107,.01,21,0)="^^1^1^3010829^"
^DD(52.0107,.01,21,1,0)="This is the date when activity occurred."
^DD(52.0107,.01,23,0)="^^1^1^3010829^"
^DD(52.0107,.01,23,1,0)="Date (Multiply asked)"
^DD(52.0107,.01,"DT")="3010830"
^DD(52.0107,1,0)="REASON^S^A:ANNUAL CAP REACHED;R:RESET COPAY STATUS;I:IB-INITIATED CHARGE;C:REMOVE COPAY CHARGE;E:RX EDIT;^0;2^Q"
^DD(52.0107,1,3)="Enter code to indicate copay activity taking place for this prescription."
^DD(52.0107,1,21,0)="^^8^8^3011017^"
^DD(52.0107,1,21,1,0)="What was done to cause the copay activity to occur.  'A' will indicate"
^DD(52.0107,1,21,2,0)="that the Annual Copay Cap was reached for a patient when"
^DD(52.0107,1,21,3,0)="this prescription was released.  'R' will indicate that the prescription's"
^DD(52.0107,1,21,4,0)="copay status was reset due to a patient eligibility, copay exemption"
^DD(52.0107,1,21,5,0)="status change, etc.  'I' will indicate that a copay change was initiated"
^DD(52.0107,1,21,6,0)="by the Integrated Billing application and not through the release"
^DD(52.0107,1,21,7,0)="function. 'C' is for cancellation of existing copay charges. 'E' is copay"
^DD(52.0107,1,21,8,0)="edited, e.g. the Days Supply is changed."
^DD(52.0107,1,23,0)="^^8^8^3011017^"
^DD(52.0107,1,23,1,0)="What was done to cause the copay activity to occur.  'A' will indicate"
^DD(52.0107,1,23,2,0)="that the Annual Copay Cap was reached for a patient when"
^DD(52.0107,1,23,3,0)="this prescription was released.  'R' will indicate that the prescription's"
^DD(52.0107,1,23,4,0)="copay status was reset due to a patient eligibility, copay exemption"
^DD(52.0107,1,23,5,0)="status change, etc.  'I' will indicate that a copay change was initiated"
^DD(52.0107,1,23,6,0)="by the Integrated Billing application and not through the release"
^DD(52.0107,1,23,7,0)="function. 'C' is for cancellation of existing copay charges. 'E' is copay"
^DD(52.0107,1,23,8,0)="edited, e.g. the Days Supply is changed."
^DD(52.0107,1,"DT")="3011017"
^DD(52.0107,2,0)="INITIATOR OF COPAY ACTIVITY^P200'^VA(200,^0;3^Q"
^DD(52.0107,2,21,0)="^^1^1^3010829^"
^DD(52.0107,2,21,1,0)="The name of the person responsible for the copay activity."
^DD(52.0107,2,"DT")="3010829"
^DD(52.0107,3,0)="RX REFERENCE^NJ2,0^^0;4^K:+X'=X!(X>11)!(X<0)!(X?.E1"".""1.N) X"
^DD(52.0107,3,3)="Type a number between 0 and 11, 0 Decimal Digits"
^DD(52.0107,3,21,0)="^^3^3^3010829^"
^DD(52.0107,3,21,1,0)="This field is used to indicate which fill corresponds to the"
^DD(52.0107,3,21,2,0)="copay activity."
^DD(52.0107,3,21,3,0)="."
^DD(52.0107,3,23,0)="^^1^1^3010829^"
^DD(52.0107,3,23,1,0)="0 indicates the original fill and 1-11 indicates refills."
^DD(52.0107,3,"DT")="3010829"
^DD(52.0107,4,0)="COMMENT^F^^0;5^K:$L(X)>75!($L(X)<1) X"
^DD(52.0107,4,3)="Answer must be 1-75 characters in length"
^DD(52.0107,4,21,0)="^^2^2^3010829^"
^DD(52.0107,4,21,1,0)="Additional information will be entered here to detail why the copay"
^DD(52.0107,4,21,2,0)="activity occurred."
^DD(52.0107,4,"DT")="3010829"
^DD(52.0107,5,0)="OLD VALUE^F^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(52.0107,5,3)="Answer must be 1-25 characters in length"
^DD(52.0107,5,21,0)="^^2^2^3010829^"
^DD(52.0107,5,21,1,0)="This field is used to show the old copay status value for the prescription"
^DD(52.0107,5,21,2,0)="if the reason for the copay activity is set to 'R' 'Reset Copay Status'."
^DD(52.0107,5,23,0)="^^2^2^3010829^"
^DD(52.0107,5,23,1,0)="Enter the old Rx copay status value.  Answer must be 1-25 characters in"
^DD(52.0107,5,23,2,0)="length."
^DD(52.0107,5,"DT")="3010829"
^DD(52.0107,6,0)="NEW VALUE^F^^0;7^K:$L(X)>25!($L(X)<1) X"
^DD(52.0107,6,3)="Answer must be 1-25 characters in length"
^DD(52.0107,6,21,0)="^^2^2^3010829^"
^DD(52.0107,6,21,1,0)="This field is used to show the new copay status value for the prescription"
^DD(52.0107,6,21,2,0)="if the reason for the copay activity is set to 'R' 'Reset Copay Status'."
^DD(52.0107,6,23,0)="^^2^2^3010829^"
^DD(52.0107,6,23,1,0)="Enter the new Rx copay status value.  Answer must be 1-25 characters in"
^DD(52.0107,6,23,2,0)="length."
^DD(52.0107,6,"DT")="3010829"
^DD(52.0107,"B","COMMENT",4)=""
^DD(52.0107,"B","COPAY ACTIVITY LOG",.01)=""
^DD(52.0107,"B","INITIATOR OF COPAY ACTIVITY",2)=""
^DD(52.0107,"B","NEW VALUE",6)=""
^DD(52.0107,"B","OLD VALUE",5)=""
^DD(52.0107,"B","REASON",1)=""
^DD(52.0107,"B","RX REFERENCE",3)=""
^DD(52.0107,"GL",0,1,.01)=""
^DD(52.0107,"GL",0,2,1)=""
^DD(52.0107,"GL",0,3,2)=""
^DD(52.0107,"GL",0,4,3)=""
^DD(52.0107,"GL",0,5,4)=""
^DD(52.0107,"GL",0,6,5)=""
^DD(52.0107,"GL",0,7,6)=""
^DD(52.0113,0)="MEDICATION INSTRUCTIONS SUB-FIELD^^9^10"
^DD(52.0113,0,"DT")="3010627"
^DD(52.0113,0,"NM","MEDICATION INSTRUCTIONS")=""
^DD(52.0113,0,"UP")="52"
^DD(52.0113,.01,0)="DOSAGE ORDERED^MRFI^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(52.0113,.01,.1)=""
^DD(52.0113,.01,1,0)="^.1^^0"
^DD(52.0113,.01,3)="Answer must be 1-80 characters in length."
^DD(52.0113,.01,21,0)="^.001^1^1^3000608^^^^"
^DD(52.0113,.01,21,1,0)="This is a single dose of medication the patient will receive for this Rx order."
^DD(52.0113,.01,23,0)="^.001^1^1^3000608^^^^"
^DD(52.0113,.01,23,1,0)="free text."
^DD(52.0113,.01,"DT")="3010730"
^DD(52.0113,1,0)="DISPENSE UNITS PER DOSE^NJ11,2I^^0;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(52.0113,1,.1)="Dispense Units Per Dosage Ordered"
^DD(52.0113,1,3)="Type a Number between 0 and 99999999, 2 Decimal Digits"
^DD(52.0113,1,21,0)="^.001^2^2^3010627^^^^"
^DD(52.0113,1,21,1,0)="This is the number of Units (tablets, capsules, etc.) to be dispensed"
^DD(52.0113,1,21,2,0)="as a dose for this order."
^DD(52.0113,1,23,0)="^.001^1^1^3010627^^^^"
^DD(52.0113,1,23,1,0)="numeric."
^DD(52.0113,1,"DT")="3010730"
^DD(52.0113,2,0)="UNITS^P50.607'I^PS(50.607,^0;3^Q"
^DD(52.0113,2,3)="Enter the unit associated with dosage ordered."
^DD(52.0113,2,21,0)="^^1^1^3000506^"
^DD(52.0113,2,21,1,0)="Unit of measure.  Pointer to the Drug Units file (50.607)."
^DD(52.0113,2,23,0)="^^1^1^3000506^"
^DD(52.0113,2,23,1,0)="pointer to file 50.607."
^DD(52.0113,2,"DT")="3010730"
^DD(52.0113,3,0)="NOUN^FI^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(52.0113,3,3)="Answer must be 1-30 characters in length."
^DD(52.0113,3,21,0)="^.001^3^3^3000511^^"
^DD(52.0113,3,21,1,0)="These are the nouns that are associated with this Dosage form.  It will be"
^DD(52.0113,3,21,2,0)="used by the Outpatient Pharmacy software to build a SIG for an OE/RR"
^DD(52.0113,3,21,3,0)="order."
^DD(52.0113,3,"DT")="3010730"
^DD(52.0113,4,0)="DURATION^FXI^^0;5^D DUR^PSOFSIG"
^DD(52.0113,4,1,0)="^.1^^0"
^DD(52.0113,4,3)="This is the length of time a medication should be given. Enter a numeric value followed by a 'M' for Minutes, 'H' for Hours, 'D' for Days, 'W' for Weeks, 'L' for Months.  THIS IS NOT DAYS SUPPLY!"
^DD(52.0113,4,21,0)="^.001^6^6^3010801^^^"
^DD(52.0113,4,21,1,0)="This is the length of time that a medication order should be given. If you"
^DD(52.0113,4,21,2,0)="enter a numeric value, Days will be assumed. You may also enter a numeric"
^DD(52.0113,4,21,3,0)="value followed by a letter. The letters can be entered as 'M' for Minutes,"
^DD(52.0113,4,21,4,0)="'H' for Hours, 'D' for Days, 'W' for Weeks, 'L' for Months."
^DD(52.0113,4,21,5,0)=" "
^DD(52.0113,4,21,6,0)="THIS IS NOT DAYS SUPPLY!"
^DD(52.0113,4,"DT")="3010801"
^DD(52.0113,5,0)="CONJUNCTION^SI^A:AND;T:THEN;X:EXCEPT;^0;6^Q"
^DD(52.0113,5,3)="A code should only be entered if a complex order is being entered."
^DD(52.0113,5,21,0)="^.001^2^2^3010627^^^^"
^DD(52.0113,5,21,1,0)="This code is used to help build a Possible Sig for a complex medication"
^DD(52.0113,5,21,2,0)="dose.  This code usually expands to an ""and"", a ""then"", or an ""except""."
^DD(52.0113,5,23,0)="^.001^1^1^3010627^^^"
^DD(52.0113,5,23,1,0)="set of codes."
^DD(52.0113,5,"DT")="3010730"
^DD(52.0113,6,0)="ROUTE^P51.2'I^PS(51.2,^0;7^Q"
^DD(52.0113,6,3)="Enter how medication is to be administered."
^DD(52.0113,6,21,0)="^.001^1^1^3001103^^^^"
^DD(52.0113,6,21,1,0)="This is how the medication is taken, applied, or used."
^DD(52.0113,6,23,0)="^.001^1^1^3001103^^^"
^DD(52.0113,6,23,1,0)="pointer to file 51.2."
^DD(52.0113,6,"DT")="3010730"
^DD(52.0113,7,0)="SCHEDULE^RFI^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(52.0113,7,3)="Answer must be 1-20 characters in length."
^DD(52.0113,7,21,0)="^.001^1^1^3010730^^^^"
^DD(52.0113,7,21,1,0)="This field is used to tell the patient how often the medication is to be used."
^DD(52.0113,7,23,0)="^.001^1^1^3010730^^^^"
^DD(52.0113,7,23,1,0)="free text."
^DD(52.0113,7,"DT")="3010730"
^DD(52.0113,8,0)="VERB^FI^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(52.0113,8,3)="Answer must be 1-20 characters in length."
^DD(52.0113,8,21,0)="^^1^1^3000816^"
^DD(52.0113,8,21,1,0)="This verb will be used to describe how the medication will be taken/used."
^DD(52.0113,8,"DT")="3010730"
^DD(52.0113,9,0)="OTHER LANGUAGE DOSAGE^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(52.0113,9,3)="Answer must be 1-80 characters in length."
^DD(52.0113,9,21,0)="^.001^3^3^3030418^^^"
^DD(52.0113,9,21,1,0)="This is a single dose of medication the patient will receive for this Rx"
^DD(52.0113,9,21,2,0)="order.  Data should be entered into the field when the patient has another"
^DD(52.0113,9,21,3,0)="language preference and there is a free-text of a local dosage entered."
^DD(52.0113,9,"DT")="3030331"
^DD(52.0113,"B","CONJUNCTION",5)=""
^DD(52.0113,"B","DISPENSE UNITS PER DOSE",1)=""
^DD(52.0113,"B","DOSAGE ORDERED",.01)=""
^DD(52.0113,"B","DURATION",4)=""
^DD(52.0113,"B","NOUN",3)=""
^DD(52.0113,"B","OTHER LANGUAGE DOSAGE",9)=""
^DD(52.0113,"B","ROUTE",6)=""
^DD(52.0113,"B","SCHEDULE",7)=""
^DD(52.0113,"B","UNITS",2)=""
^DD(52.0113,"B","VERB",8)=""
^DD(52.0113,"GL",0,1,.01)=""
^DD(52.0113,"GL",0,2,1)=""
^DD(52.0113,"GL",0,3,2)=""
^DD(52.0113,"GL",0,4,3)=""
^DD(52.0113,"GL",0,5,4)=""
^DD(52.0113,"GL",0,6,5)=""
^DD(52.0113,"GL",0,7,6)=""
^DD(52.0113,"GL",0,8,7)=""
^DD(52.0113,"GL",0,9,8)=""
^DD(52.0113,"GL",1,1,9)=""
^DD(52.0113,"RQ",.01)=""
^DD(52.0113,"RQ",7)=""
^DD(52.0115,0)="EXPANDED PATIENT INSTRUCTIONS SUB-FIELD^^.01^1"
^DD(52.0115,0,"DT")="3010208"
^DD(52.0115,0,"NM","EXPANDED PATIENT INSTRUCTIONS")=""
^DD(52.0115,0,"UP")="52"
^DD(52.0115,.01,0)="EXPANDED PATIENT INSTRUCTIONS^W^^0;1^Q"
^DD(52.0115,.01,21,0)="^.001^3^3^3010208^^^"
^DD(52.0115,.01,21,1,0)="This field will store the expanded patient instructions that are stored"
^DD(52.0115,.01,21,2,0)="in the patient instruction field (#114) or the expanded patient instructions"
^DD(52.0115,.01,21,3,0)="from CPRS."
^DD(52.0115,.01,23,0)="^^1^1^3010208^"
^DD(52.0115,.01,23,1,0)="wp"
^DD(52.0115,.01,"DT")="3010208"
^DD(52.0115,"B","EXPANDED PATIENT INSTRUCTIONS",.01)=""
^DD(52.0115,"GL",0,1,.01)=""
^DD(52.02,0)="PHARMACY INSTRUCTIONS SUB-FIELD^^.01^1"
^DD(52.02,0,"DT")="2950530"
^DD(52.02,0,"NM","PHARMACY INSTRUCTIONS")=""
^DD(52.02,0,"UP")="52"
^DD(52.02,.01,0)="PHARMACY INSTRUCTIONS^W^^0;1^Q"
^DD(52.02,.01,"DT")="2950530"
^DD(52.02,"B","PHARMACY INSTRUCTIONS",.01)=""
^DD(52.02,"GL",0,1,.01)=""
^DD(52.03,0)="DRUG ALLERGY INGREDIENTS SUB-FIELD^^.01^1"
^DD(52.03,0,"DT")="2951213"
^DD(52.03,0,"NM","DRUG ALLERGY INGREDIENTS")=""
^DD(52.03,0,"UP")="52"
^DD(52.03,.01,0)="INGREDIENTS^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(52.03,.01,1,0)="^.1^^0"
^DD(52.03,.01,3)="Data is not entered directly using FileMan."
^DD(52.03,.01,21,0)="^^2^2^2951213^"
^DD(52.03,.01,21,1,0)="This field is used to store igredients of a possible drug allergy/adverse"
^DD(52.03,.01,21,2,0)="reaction to a medication."
^DD(52.03,.01,23,0)="^^1^1^2951213^"
^DD(52.03,.01,23,1,0)="free text."
^DD(52.03,.01,"DT")="2951213"
^DD(52.03,"B","INGREDIENTS",.01)=""
^DD(52.03,"GL",0,1,.01)=""
^DD(52.032,0)="LABEL DATE/TIME SUB-FIELD^^5^6"
^DD(52.032,0,"DT")="2960731"
^DD(52.032,0,"NM","LABEL DATE/TIME")=""
^DD(52.032,0,"UP")="52"
^DD(52.032,.01,0)="LABEL DATE/TIME^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.032,.01,1,0)="^.1^^0"
^DD(52.032,.01,3)="Enter the date and time the label was printed."
^DD(52.032,.01,21,0)="^^1^1^2930316^^^^"
^DD(52.032,.01,21,1,0)="This field is used to track when the label was printed for this RX."
^DD(52.032,.01,23,0)="^^1^1^2930316^^^^"
^DD(52.032,.01,23,1,0)="Date/Time label was printed."
^DD(52.032,.01,"DT")="2900320"
^DD(52.032,1,0)="RX REFERENCE^NJ2,0O^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.032,1,2)="S Y(0)=Y S Y=$S(Y:""REFILL #""_Y,1:""ORIGINAL"")"
^DD(52.032,1,2.1)="S Y=$S(Y:""REFILL #""_Y,1:""ORIGINAL"")"
^DD(52.032,1,3)="Enter 0 for the original fill or the refill number."
^DD(52.032,1,21,0)="^^1^1^2930316^^^^"
^DD(52.032,1,21,1,0)="This field is used to indicate the prescription fill number."
^DD(52.032,1,"DT")="2900320"
^DD(52.032,2,0)="LABEL COMMENT^F^^0;3^K:$L(X)>75!($L(X)<10) X"
^DD(52.032,2,3)="Answer must be 10-75 characters in length."
^DD(52.032,2,21,0)="^^1^1^2930104^"
^DD(52.032,2,21,1,0)="This field is used for comments about the printed label."
^DD(52.032,2,"DT")="2920429"
^DD(52.032,3,0)="PRINTED BY^RP200'^VA(200,^0;4^Q"
^DD(52.032,3,3)="Enter name of person who printed the label."
^DD(52.032,3,21,0)="^^1^1^2930316^^^"
^DD(52.032,3,21,1,0)="This field is used to show the person who printed the medication label."
^DD(52.032,3,23,0)="^^1^1^2930316^^^"
^DD(52.032,3,23,1,0)="pointer to #200."
^DD(52.032,3,"DT")="2920519"
^DD(52.032,4,0)="WARNING LABEL TYPE^S^1:DRUG INTERACTION;2:DRUG ALLERGY;^0;5^Q"
^DD(52.032,4,21,0)="^^2^2^2960307^"
^DD(52.032,4,21,1,0)="This field describes the type drug warning that printed.  This field"
^DD(52.032,4,21,2,0)="will be populated only if a drug warning label is printed."
^DD(52.032,4,"DT")="2960307"
^DD(52.032,5,0)="DEVICE^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(52.032,5,3)="Answer must be 1-40 characters in length."
^DD(52.032,5,21,0)="^^1^1^2960731^"
^DD(52.032,5,21,1,0)="This filed is used to show which printer the label printed on."
^DD(52.032,5,"DT")="2960731"
^DD(52.032,"B","DEVICE",5)=""
^DD(52.032,"B","LABEL COMMENT",2)=""
^DD(52.032,"B","LABEL DATE/TIME",.01)=""
^DD(52.032,"B","PRINTED BY",3)=""
^DD(52.032,"B","RX REFERENCE",1)=""
^DD(52.032,"B","WARNING LABEL TYPE",4)=""
^DD(52.032,"GL",0,1,.01)=""
^DD(52.032,"GL",0,2,1)=""
^DD(52.032,"GL",0,3,2)=""
^DD(52.032,"GL",0,4,3)=""
^DD(52.032,"GL",0,5,4)=""
^DD(52.032,"GL",0,6,5)=""
^DD(52.032,"RQ",3)=""
^DD(52.037,0)="MEDICATION ROUTES SUB-FIELD^^.01^1"
^DD(52.037,0,"DT")="2951211"
^DD(52.037,0,"NM","MEDICATION ROUTES")=""
^DD(52.037,0,"UP")="52"
^DD(52.037,.01,0)="MEDICATION ROUTES^P51.2'^PS(51.2,^0;1^Q"
^DD(52.037,.01,1,0)="^.1^^0"
^DD(52.037,.01,3)="Data is not enter directly by using File Manager."
^DD(52.037,.01,20,0)="^.3LA^1^1"
^DD(52.037,.01,20,1,0)="PSO"
^DD(52.037,.01,21,0)="^^1^1^2951211^"
^DD(52.037,.01,21,1,0)="This field contain possible medication routes. "
^DD(52.037,.01,23,0)="^^1^1^2951211^"
^DD(52.037,.01,23,1,0)="pointer"
^DD(52.037,.01,"DT")="2960417"
^DD(52.037,"B","MEDICATION ROUTES",.01)=""
^DD(52.037,"GL",0,1,.01)=""
^DD(52.037,"GR","PSO",.01,1)=""
^DD(52.038,0)="SCHEDULES SUB-FIELD^^.01^1"
^DD(52.038,0,"DT")="2951211"
^DD(52.038,0,"NM","SCHEDULES")=""
^DD(52.038,0,"UP")="52"
^DD(52.038,.01,0)="SCHEDULES^F^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(52.038,.01,1,0)="^.1^^0"
^DD(52.038,.01,3)="Data is not entered directly using FileMan."
^DD(52.038,.01,20,0)="^.3LA^1^1"
^DD(52.038,.01,20,1,0)="PSO"
^DD(52.038,.01,21,0)="^^2^2^2970225^^^^"
^DD(52.038,.01,21,1,0)="This field contains possible shedules from OERR, Medication Instruction"
^DD(52.038,.01,21,2,0)="or both."
^DD(52.038,.01,23,0)="^^1^1^2970225^^^"
^DD(52.038,.01,23,1,0)="free text."
^DD(52.038,.01,"DT")="2960417"
^DD(52.038,"B","SCHEDULES",.01)=""
^DD(52.038,"GL",0,1,.01)=""
^DD(52.038,"GR","PSO",.01,1)=""
^DD(52.039,0)="PROVIDER COMMENTS SUB-FIELD^^.01^1"
^DD(52.039,0,"DT")="2950530"
^DD(52.039,0,"NM","PROVIDER COMMENTS")=""
^DD(52.039,0,"UP")="52"
^DD(52.039,.01,0)="PROVIDER COMMENTS^W^^0;1^Q"
^DD(52.039,.01,"DT")="2950530"
^DD(52.039,"B","PROVIDER COMMENTS",.01)=""
^DD(52.039,"GL",0,1,.01)=""
^DD(52.04,0)="SIG1 SUB-FIELD^^1^2"
^DD(52.04,0,"DT")="2951102"
^DD(52.04,0,"NM","SIG1")=""
^DD(52.04,0,"UP")="52"
^DD(52.04,.01,0)="SIG1^FI^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(52.04,.01,1,0)="^.1^^0"
^DD(52.04,.01,3)="Answer must be 1-200 characters in length."
^DD(52.04,.01,21,0)="^^1^1^2951102^"
^DD(52.04,.01,21,1,0)="This holds a Sig from OERR."
^DD(52.04,.01,"DT")="3010730"
^DD(52.04,1,0)="SIG1^FI^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(52.04,1,"DT")="3010730"
^DD(52.04,"B","SIG1",.01)=""
^DD(52.04,"B","SIG1",1)=""
^DD(52.04,"GL",0,1,.01)=""
^DD(52.04,"GL",0,1,1)=""
^DD(52.0401,0)="LOT/EXP SUB-FIELD^^2^3"
^DD(52.0401,0,"DT")="2930415"
^DD(52.0401,0,"NM","LOT/EXP")=""
^DD(52.0401,0,"UP")="52"
^DD(52.0401,.01,0)="LOT/EXP^F^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(52.0401,.01,1,0)="^.1^^0"
^DD(52.0401,.01,3)="Answer must be 1-40 characters in length."
^DD(52.0401,.01,21,0)="^^1^1^2930913^"
^DD(52.0401,.01,21,1,0)="The lot number used to fill this prescription."
^DD(52.0401,.01,"DT")="2930512"
^DD(52.0401,1,0)="EXPIRATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.0401,1,21,0)="^^1^1^2930913^"
^DD(52.0401,1,21,1,0)="The expiration date of the lot number for this prescription."
^DD(52.0401,1,"DT")="2930415"
^DD(52.0401,2,0)="RX INDICATOR^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.0401,2,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(52.0401,2,21,0)="^^1^1^2930913^"
^DD(52.0401,2,21,1,0)="The fill number for this prescription. A '0' indicates the original fill."
^DD(52.0401,2,"DT")="2930415"
^DD(52.0401,"B","EXPIRATION DATE",1)=""
^DD(52.0401,"B","LOT/EXP",.01)=""
^DD(52.0401,"B","RX INDICATOR",2)=""
^DD(52.0401,"GL",0,1,.01)=""
^DD(52.0401,"GL",0,2,1)=""
^DD(52.0401,"GL",0,3,2)=""
^DD(52.052311,0)="ICD DIAGNOSIS SUB-FIELD^^7^8"
^DD(52.052311,0,"DIK")="PSOXZA"
^DD(52.052311,0,"DT")="3030916"
^DD(52.052311,0,"IX","B",52.052311,.01)=""
^DD(52.052311,0,"NM","ICD DIAGNOSIS")=""
^DD(52.052311,0,"UP")="52"
^DD(52.052311,.01,0)="ICD DIAGNOSIS^MP80^ICD9(^0;1^Q"
^DD(52.052311,.01,1,0)="^.1"
^DD(52.052311,.01,1,1,0)="52.052311^B"
^DD(52.052311,.01,1,1,1)="S ^PSRX(DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(52.052311,.01,1,1,2)="K ^PSRX(DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(52.052311,.01,1,2,0)="52^E"
^DD(52.052311,.01,1,2,1)="S ^PSRX(""E"",$E(X,1,30),DA(1),DA)="""""
^DD(52.052311,.01,1,2,2)="K ^PSRX(""E"",$E(X,1,30),DA(1),DA)"
^DD(52.052311,.01,1,2,"DT")="3031015"
^DD(52.052311,.01,3)="Enter a pointer to file #80"
^DD(52.052311,.01,21,0)="^.001^2^2^3031015^^"
^DD(52.052311,.01,21,1,0)="Diagnoses (up to nine) assigned for this prescription by the Ordering "
^DD(52.052311,.01,21,2,0)="Provider."
^DD(52.052311,.01,"DT")="3031015"
^DD(52.052311,1,0)="AGENT ORANGE^S^0:NO;1:YES;^0;2^Q"
^DD(52.052311,1,3)="ENTER YES OR NO."
^DD(52.052311,1,21,0)="^.001^2^2^3050322^^"
^DD(52.052311,1,21,1,0)="This field is used to direclty identify the corresponding ICD-9 code in the .01"
^DD(52.052311,1,21,2,0)="field as related to Agent Orange for 3rd party billing."
^DD(52.052311,1,"DT")="3040130"
^DD(52.052311,2,0)="IONIZING RADIATION^S^0:NO;1:YES;^0;3^Q"
^DD(52.052311,2,3)="Enter NO for YES."
^DD(52.052311,2,21,0)="^^2^2^3040130^"
^DD(52.052311,2,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the  "
^DD(52.052311,2,21,2,0)=".01 field as IONIZING RADIATION related for 3rd party billing."
^DD(52.052311,2,"DT")="3040130"
^DD(52.052311,3,0)="SERVICE CONNECTION^S^0:NO;1:YES;^0;4^Q"
^DD(52.052311,3,3)="ENTER YES OR NO."
^DD(52.052311,3,21,0)="^^2^2^3040130^"
^DD(52.052311,3,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.052311,3,21,2,0)=".01 field as related to Service Connection for 3rd Party Billing."
^DD(52.052311,3,"DT")="3040130"
^DD(52.052311,4,0)="ENVIRONMENTAL CONTAMINANTS^S^0:NO;1:YES;^0;5^Q"
^DD(52.052311,4,3)="ENTER YES OR NO."
^DD(52.052311,4,21,0)="^.001^2^2^3040129^^"
^DD(52.052311,4,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.052311,4,21,2,0)=".01 field as related to Environmental Contaminants for 3rd Party Billing."
^DD(52.052311,4,"DT")="3040129"
^DD(52.052311,5,0)="MILITARY SEXUAL TRAUMA^S^0:NO;1:YES;^0;6^Q"
^DD(52.052311,5,3)="ENTER YES OR NO."
^DD(52.052311,5,21,0)="^.001^2^2^3040129^^"
^DD(52.052311,5,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.052311,5,21,2,0)=".01 field as related to Military Sexual Trauma for 3rd Party Billing."
^DD(52.052311,5,"DT")="3040129"
^DD(52.052311,6,0)="HEAD AND/OR NECK CANCER^S^0:NO;1:YES;^0;7^Q"
^DD(52.052311,6,3)="ENTER YES OR NO."
^DD(52.052311,6,21,0)="^.001^2^2^3040129^^"
^DD(52.052311,6,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.052311,6,21,2,0)=".01 field as related to Head and/or Neck Cancer for 3rd Party Billing."
^DD(52.052311,6,"DT")="3040129"
^DD(52.052311,7,0)="COMBAT VETERAN^S^0:NO;1:YES;^0;8^Q"
^DD(52.052311,7,3)="ENTER YES OR NO."
^DD(52.052311,7,21,0)="^.001^2^2^3040129^^^"
^DD(52.052311,7,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.052311,7,21,2,0)=".01 field as related to Combat Veteran for 3rd Party Billing."
^DD(52.052311,7,"DT")="3040129"
^DD(52.052311,"B","AGENT ORANGE",1)=""
^DD(52.052311,"B","COMBAT VETERAN",7)=""
^DD(52.052311,"B","ENVIRONMENTAL CONTAMINANTS",4)=""
^DD(52.052311,"B","HEAD AND/OR NECK CANCER",6)=""
^DD(52.052311,"B","ICD DIAGNOSIS",.01)=""
^DD(52.052311,"B","IONIZING RADIATION",2)=""
^DD(52.052311,"B","MILITARY SEXUAL TRAUMA",5)=""
^DD(52.052311,"B","SERVICE CONNECTION",3)=""
^DD(52.052311,"GL",0,1,.01)=""
^DD(52.052311,"GL",0,2,1)=""
^DD(52.052311,"GL",0,3,2)=""
^DD(52.052311,"GL",0,4,3)=""
^DD(52.052311,"GL",0,5,4)=""
^DD(52.052311,"GL",0,6,5)=""
^DD(52.052311,"GL",0,7,6)=""
^DD(52.052311,"GL",0,8,7)=""
^DD(52.052311,"IX",.01)=""
^DD(52.1,0)="REFILL SUB-FIELD^NL^20^28"
^DD(52.1,0,"DIK")="PSOXZA"
^DD(52.1,0,"DT")="2970227"
^DD(52.1,0,"IX","AB",52.1,.01)=""
^DD(52.1,0,"IX","AC",52.1,.01)=""
^DD(52.1,0,"IX","ACP",52.1,.01)=""
^DD(52.1,0,"IX","ACP1",52.1,17)=""
^DD(52.1,0,"IX","AD",52.1,.01)=""
^DD(52.1,0,"IX","AE",52.1,.01)=""
^DD(52.1,0,"IX","AF",52.1,8)=""
^DD(52.1,0,"IX","B",52.1,.01)=""
^DD(52.1,0,"NM","REFILL")=""
^DD(52.1,0,"UP")="52"
^DD(52.1,.01,0)="REFILL DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.1,.01,1,0)="^.1"
^DD(52.1,.01,1,1,0)="52.1^B"
^DD(52.1,.01,1,1,1)="S ^PSRX(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(52.1,.01,1,1,2)="K ^PSRX(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(52.1,.01,1,2,0)="52^AD"
^DD(52.1,.01,1,2,1)="S ^PSRX(""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(52.1,.01,1,2,2)="K ^PSRX(""AD"",$E(X,1,30),DA(1),DA)"
^DD(52.1,.01,1,3,0)="52.1^AC^MUMPS"
^DD(52.1,.01,1,3,1)="I '$O(^PSRX(DA(1),1,0)) S $P(^PSRX(DA(1),3),""^"")=X"
^DD(52.1,.01,1,3,2)="F IK=DA-1:-1 S:IK<1 $P(^(3),""^"")=$P(^PSRX(DA(1),2),""^"",2) Q:IK<1  I $D(^PSRX(DA(1),1,IK,0)) S $P(^PSRX(DA(1),3),""^"")=+^(0) Q"
^DD(52.1,.01,1,3,"%D",0)="^^2^2^2971029^^^^"
^DD(52.1,.01,1,3,"%D",1,0)="This cross reference sets the Last Dispensed Date field with the refill"
^DD(52.1,.01,1,3,"%D",2,0)="date. It sets piece 1 of ^PSRX(DA,3)=Refill Date."
^DD(52.1,.01,1,4,0)="52.1^AB^MUMPS"
^DD(52.1,.01,1,4,1)="D S52^PSOUTL"
^DD(52.1,.01,1,4,2)="D K52^PSOUTL"
^DD(52.1,.01,1,4,3)="DO NOT DELETE."
^DD(52.1,.01,1,4,"%D",0)="^^3^3^2971029^^^^"
^DD(52.1,.01,1,4,"%D",1,0)="This cross reference kills the SUSPENSE File record and cross references"
^DD(52.1,.01,1,4,"%D",2,0)="the SUSPENSE File. It sets piece 2 of ^PS(52.5,DA,0)=Refill Date,"
^DD(52.1,.01,1,4,"%D",3,0)="^PS(52.5,""C"",Refill Date,DA)="""",^PS(52.5,""AC"",Patient,Refill Date,DA)=""""."
^DD(52.1,.01,1,4,"DT")="2930115"
^DD(52.1,.01,1,5,0)="52.1^AE^MUMPS"
^DD(52.1,.01,1,5,1)="D SPR^PSOUTL"
^DD(52.1,.01,1,5,2)="D KPR^PSOUTL"
^DD(52.1,.01,1,5,"%D",0)="^^2^2^2971029^^^^"
^DD(52.1,.01,1,5,"%D",1,0)="This cross reference updates the Prior Fill Date field."
^DD(52.1,.01,1,5,"%D",2,0)="It sets piece 4 of ^PSRX(DA,3)=Fill Date."
^DD(52.1,.01,1,5,"DT")="2930129"
^DD(52.1,.01,1,6,0)="52.1^ACP^MUMPS"
^DD(52.1,.01,1,6,1)="I +$G(^PSRX(DA(1),""IB"")) S:$P($G(^PSRX(DA(1),0)),""^"",2)&($P($G(^PSRX(DA(1),1,DA,0)),""^"",2)=""W"")&('$P($G(^(0)),""^"",16))&('$P($G(^(0)),""^"",18))&('$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA(1),0),""^"",2),X,DA,DA(1))="""""
^DD(52.1,.01,1,6,2)="I +$G(^PSRX(DA(1),""IB"")) K:$P($G(^PSRX(DA(1),0)),""^"",2)&($P($G(^PSRX(DA(1),1,DA,0)),""^"",2)=""W"")&('$P($G(^(0)),""^"",16))&('$P($G(^(0)),""^"",18))&('$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA(1),0),""^"",2),X,DA,DA(1))"
^DD(52.1,.01,1,6,3)="Do Not Delete!"
^DD(52.1,.01,1,6,"%D",0)="^^3^3^2971216^^^^"
^DD(52.1,.01,1,6,"%D",1,0)="This cross reference is used to index copay refills that have not"
^DD(52.1,.01,1,6,"%D",2,0)="been billed through the IB package. It sets the global"
^DD(52.1,.01,1,6,"%D",3,0)="^PSRX(""ACP"",Patient,Refill Date,Refill Number,DA)=""""."
^DD(52.1,.01,1,6,"DT")="2930730"
^DD(52.1,.01,3)="Enter Date of refill"
^DD(52.1,.01,4)="I $P($G(^PSRX(DA,2)),""^"",6) S X=$P(^PSRX(DA,2),""^"",6),%DT=""X"" D ^%DT X ^DD(""DD"") W !,""Refill Date must be less than or equal to ""_Y S %DT(0)=-$P(^PSRX(DA,2),""^"",6)"
^DD(52.1,.01,9.2)="S Z0=0,Z1=+$P(^PSRX(DA(1),0),U,9),Z2=$P(^(0),U,13),I=0 F  S I=$O(^PSRX(DA(1),1,I)) Q:'I  Q:+^(I,0)=X  S Z0=Z0+1 S:+^(0)>Z2 Z2=+^(0)"
^DD(52.1,.01,9.3)="S (XS,X1)=X,X2=Z2 D ^%DTC K:X<20 X,XS W:'$D(XS) ""   LESS THAN 20 DAYS."" I $D(XS) S X2=+$P(^PSRX(DA(1),0),U,13),X1=XS D ^%DTC K:X>185 XS,X W:'$D(XS) ""  MORE THAN 180 DAYS."""
^DD(52.1,.01,21,0)="^^1^1^2970402^^^^"
^DD(52.1,.01,21,1,0)="This is the date the prescription is refilled."
^DD(52.1,.01,22)=""
^DD(52.1,.01,23,0)="^^1^1^2970402^^^^"
^DD(52.1,.01,23,1,0)="Date."
^DD(52.1,.01,"DEL",1,0)="D WARN^PSOCPC I $T"
^DD(52.1,.01,"DEL",2,0)="D WARN^PSOUTL"
^DD(52.1,.01,"DT")="2930730"
^DD(52.1,1,0)="QTY^RNJ12,2X^^0;4^K:(+X'>0)!(+X>99999999)!(X'?.8N.1""."".2N)!($L(X)>11) X D:$D(X) QTY^PSOHELP"
^DD(52.1,1,1,0)="^.1^^0"
^DD(52.1,1,3)=""
^DD(52.1,1,4)="D HELP^PSOHELP"
^DD(52.1,1,23,0)="^^6^6^3071130^"
^DD(52.1,1,23,1,0)="This field allows numeric entries only, both for CMOP prescriptions"
^DD(52.1,1,23,2,0)="and non-CMOP prescriptions. It requires a number between .01 and"
^DD(52.1,1,23,3,0)="99999999, with a maximum of 2 fractional decimal places."
^DD(52.1,1,23,4,0)=" "
^DD(52.1,1,23,5,0)="NOTE: QTY values that were on file prior to patch PSO*7*29 (released "
^DD(52.1,1,23,6,0)="2/17/00) may contain alpha characters."
^DD(52.1,1,"DT")="3071130"
^DD(52.1,1.1,0)="DAYS SUPPLY^RNJ2,0X^^0;10^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X D:$G(X) DAYS1^PSOHELP1"
^DD(52.1,1.1,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(52.1,1.1,21,0)="^^1^1^2940815^^"
^DD(52.1,1.1,21,1,0)="This field is used to show days of supply of refill."
^DD(52.1,1.1,"DT")="2940815"
^DD(52.1,1.2,0)="CURRENT UNIT PRICE OF DRUG^NJ9,4^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(52.1,1.2,3)="Type a Number between 0 and 9999, 4 Decimal Digits"
^DD(52.1,1.2,9)="^"
^DD(52.1,1.2,21,0)="^.001^2^2^3001004^^^^"
^DD(52.1,1.2,21,1,0)="This field is used to show the current unit cost of the drug at time"
^DD(52.1,1.2,21,2,0)="of refill."
^DD(52.1,1.2,23,0)="^.001^1^1^3001004^^"
^DD(52.1,1.2,23,1,0)="This is the price per dispense unit (per ML/MG) at the time of fill."
^DD(52.1,1.2,"DT")="3001004"
^DD(52.1,2,0)="MAIL/WINDOW^RS^M:MAIL;W:WINDOW;^0;2^Q"
^DD(52.1,2,1,0)="^.1"
^DD(52.1,2,1,1,0)="52^ACP4^MUMPS"
^DD(52.1,2,1,1,1)="I X=""W"",+$G(^PSRX(DA(1),""IB"")) S:$P($G(^PSRX(DA(1),0)),""^"",2)&('$P($G(^PSRX(DA(1),1,DA,0)),""^"",16))&('$P($G(^(0)),""^"",18))&('$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA(1),0),""^"",2),$P(^PSRX(DA(1),1,DA,0),""^""),DA,DA(1))="""""
^DD(52.1,2,1,1,2)="I X=""W"",+$G(^PSRX(DA(1),""IB"")) K:$P($G(^PSRX(DA(1),0)),""^"",2)&('$P($G(^PSRX(DA(1),1,DA,0)),""^"",16))&('$P($G(^(0)),""^"",18))&('$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA(1),0),""^"",2),+$P($G(^PSRX(DA(1),1,DA,0)),""^""),DA,DA(1))"
^DD(52.1,2,1,1,3)="Do Not Delete!"
^DD(52.1,2,1,1,"%D",0)="^^3^3^2971022^^^^"
^DD(52.1,2,1,1,"%D",1,0)="This cross reference is used to update the 'ACP' xref if the routing"
^DD(52.1,2,1,1,"%D",2,0)="should be edited. It sets the global"
^DD(52.1,2,1,1,"%D",3,0)="^PSRX(""ACP"",Patient,Refill Date,Refill Number,DA)=""""."
^DD(52.1,2,1,1,"DT")="2930803"
^DD(52.1,2,3)=""
^DD(52.1,2,21,0)="^^2^2^2920115^^"
^DD(52.1,2,21,1,0)="This field contains 'M' if the refill is to be mailed to the patient and"
^DD(52.1,2,21,2,0)="'W' if the refill is to be picked up at the pharmacy window."
^DD(52.1,2,23,0)="^^1^1^2920115^"
^DD(52.1,2,23,1,0)="(Required) Set 'M' for Mail, 'W' for Window."
^DD(52.1,2,"DT")="2930803"
^DD(52.1,3,0)="REMARKS^F^^0;3^K:$L(X)>60!($L(X)<2) X"
^DD(52.1,3,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(52.1,3,21,0)="^^1^1^2920115^^"
^DD(52.1,3,21,1,0)="This field contains comments as deemed necessary by the pharmacy staff."
^DD(52.1,3,23,0)="^^1^1^2920115^"
^DD(52.1,3,23,1,0)="Free Text."
^DD(52.1,4,0)="PHARMACIST NAME^*P200'^VA(200,^0;5^S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52.1,4,12)="Only select a user who has a pharmacist key."
^DD(52.1,4,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"""
^DD(52.1,4,21,0)="^^1^1^2920316^^^"
^DD(52.1,4,21,1,0)="This field contains the name of the pharmacist responsible for this Rx."
^DD(52.1,4,23,0)="^^1^1^2920316^^"
^DD(52.1,4,23,1,0)="Pointer to New Person File (#200)."
^DD(52.1,4,"DT")="2930126"
^DD(52.1,5,0)="LOT #^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(52.1,5,3)="Answer must be 1-20 characters in length."
^DD(52.1,5,21,0)="^.001^1^1^3040602^^^^"
^DD(52.1,5,21,1,0)="This field contains the lot # of the prescription."
^DD(52.1,5,23,0)="^.001^1^1^3040602^^^^"
^DD(52.1,5,23,1,0)="Free Text."
^DD(52.1,5,"DT")="3040527"
^DD(52.1,6,0)="CLERK CODE^RP200'^VA(200,^0;7^Q"
^DD(52.1,6,3)=""
^DD(52.1,6,21,0)="^^1^1^2930405^^^^"
^DD(52.1,6,21,1,0)="This field contains the NEW PERSON File entry number of the clerk."
^DD(52.1,6,23,0)="^^1^1^2930405^^^"
^DD(52.1,6,23,1,0)="(Required) pointer to #200"
^DD(52.1,6,"DT")="2920414"
^DD(52.1,7,0)="LOGIN DATE^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.1,7,21,0)="^^1^1^2920115^^^"
^DD(52.1,7,21,1,0)="This is the date the refill request was entered."
^DD(52.1,7,23,0)="^^1^1^2920115^"
^DD(52.1,7,23,1,0)="Date."
^DD(52.1,8,0)="DIVISION^RP59'^PS(59,^0;9^Q"
^DD(52.1,8,1,0)="^.1"
^DD(52.1,8,1,1,0)="52.1^AF^MUMPS"
^DD(52.1,8,1,1,1)="D SAS1^PSOSUTL"
^DD(52.1,8,1,1,2)="D KAS1^PSOSUTL"
^DD(52.1,8,1,1,"%D",0)="^^5^5^2971022^^^"
^DD(52.1,8,1,1,"%D",1,0)="This is used to maintain the AS cross reference in Suspense."
^DD(52.1,8,1,1,"%D",2,0)="It sets piece 6 of ^PS(52.5,DA,0)=Division. For a non-CMOP prescription,"
^DD(52.1,8,1,1,"%D",3,0)="it can set ^PS(52.5,""AS"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.1,8,1,1,"%D",4,0)="For a CMOP prescription, it can set"
^DD(52.1,8,1,1,"%D",5,0)="^PS(52.5,""APR"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.1,8,1,1,"DT")="2950515"
^DD(52.1,8,3)=""
^DD(52.1,8,21,0)="^^1^1^2940820^^^^"
^DD(52.1,8,21,1,0)="This field contains the Pharmacy Division associated with this Rx."
^DD(52.1,8,23,0)="^^1^1^2920115^"
^DD(52.1,8,23,1,0)="Pointer to Pharmacy Site File (#59)"
^DD(52.1,8,"DT")="2940727"
^DD(52.1,9,0)="IB NUMBER^P350'^IB(^IB;1^Q"
^DD(52.1,9,8.5)="^"
^DD(52.1,9,9)="^"
^DD(52.1,9,21,0)="^^2^2^2911008^^"
^DD(52.1,9,21,1,0)="This field contains the internal entry number of the pointer to the "
^DD(52.1,9,21,2,0)="Integrated Billing Action file (#350)."
^DD(52.1,9,"DT")="2910301"
^DD(52.1,9.1,0)="COPAY EXCEEDING CAP^P354.71'^IBAM(354.71,^IB;2^Q"
^DD(52.1,9.1,3)="This field contains the internal entry number of the IB COPAY TRANSACTIONS file (#354.71)"
^DD(52.1,9.1,21,0)="^^3^3^3010904^"
^DD(52.1,9.1,21,1,0)="This field contains the internal entry number of the pointer to the IB"
^DD(52.1,9.1,21,2,0)="COPAY TRANSACTIONS file (#354.71).  There will only be data in this field"
^DD(52.1,9.1,21,3,0)="if this Rx's copay exceeded the annual copay cap."
^DD(52.1,9.1,23,0)="^^3^3^3010904^"
^DD(52.1,9.1,23,1,0)="This field contains the internal entry number of the pointer to the IB"
^DD(52.1,9.1,23,2,0)="COPAY TRANSACTIONS file (#354.71).  There will only be data in this field"
^DD(52.1,9.1,23,3,0)="if this Rx's copay exceeded the annual copay cap."
^DD(52.1,9.1,"DT")="3010904"
^DD(52.1,10.1,0)="DISPENSED DATE^RD^^0;19^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.1,10.1,3)="Enter date and time medication was placed into packaging."
^DD(52.1,10.1,21,0)="^^1^1^2920305^"
^DD(52.1,10.1,21,1,0)="This field is used to show date/time the medication was placed into packaging."
^DD(52.1,10.1,"DT")="2920414"
^DD(52.1,11,0)="NDC^F^^1;3^K:$L(X)>13!($L(X)<5) X"
^DD(52.1,11,3)="Answer must be 5-13 characters in length."
^DD(52.1,11,21,0)="^^1^1^2990826^"
^DD(52.1,11,21,1,0)="This field is used for the National Drug Code for the issued drug."
^DD(52.1,11,"DT")="2990826"
^DD(52.1,12,0)="MANUFACTURER^F^^0;14^K:$L(X)>50!($L(X)<3) X"
^DD(52.1,12,3)="Answer must be 3-50 characters in length."
^DD(52.1,12,21,0)="^^1^1^2920127^^"
^DD(52.1,12,21,1,0)="This field is used to show the manufacturer of the drug issued."
^DD(52.1,12,"DT")="2920414"
^DD(52.1,13,0)="DRUG EXPIRATION DATE^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.1,13,3)="Enter date the medication expires for this refill."
^DD(52.1,13,20,0)="^.3LA^2^2"
^DD(52.1,13,20,1,0)="IHS"
^DD(52.1,13,20,2,0)="PSO"
^DD(52.1,13,21,0)="^.001^2^2^3040205^^^^"
^DD(52.1,13,21,1,0)="This field is used to show the date that the medication expires for this"
^DD(52.1,13,21,2,0)="refill."
^DD(52.1,13,23,0)="^.001^1^1^3040205^^^"
^DD(52.1,13,23,1,0)="date"
^DD(52.1,13,"DT")="3040205"
^DD(52.1,14,0)="RETURNED TO STOCK^D^^0;16^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.1,14,1,0)="^.1"
^DD(52.1,14,1,1,0)="52^AJ1^MUMPS"
^DD(52.1,14,1,1,1)="S ^PSRX(""AJ"",$E(X,1,30),DA(1),DA)="""""
^DD(52.1,14,1,1,2)="K ^PSRX(""AJ"",$E(X,1,30),DA(1),DA)"
^DD(52.1,14,1,1,3)="This xref should not be deleted.  It is used by the Drug Accountability software (v2)."
^DD(52.1,14,1,1,"%D",0)="^^2^2^2971022^^^^"
^DD(52.1,14,1,1,"%D",1,0)="This xref creates a 'AJ' index on the returned to stock field. It sets the"
^DD(52.1,14,1,1,"%D",2,0)="global ^PSRX(""AJ"",Return to Stock,DA(1),DA)=""""."
^DD(52.1,14,1,1,"DT")="2930708"
^DD(52.1,14,3)="Enter date/time the medication was returned to inventory due to the prescription not being pickup or mailed."
^DD(52.1,14,21,0)="^^3^3^2930709^^^^"
^DD(52.1,14,21,1,0)="This field is used to indicate when and if the medication was returned to"
^DD(52.1,14,21,2,0)="inventory due to the prescription not being picked up or mailed to the"
^DD(52.1,14,21,3,0)="patient."
^DD(52.1,14,23,0)="^^1^1^2930709^^^"
^DD(52.1,14,23,1,0)="date/time."
^DD(52.1,14,"DT")="2930709"
^DD(52.1,15,0)="PROVIDER^R*P200X'I^VA(200,^0;17^S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52.1,15,3)="Enter provider that is currently seeing the patient."
^DD(52.1,15,12)="Only valid providers are to be selected."
^DD(52.1,15,12.1)="S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"""
^DD(52.1,15,21,0)="^^1^1^2920317^^^^"
^DD(52.1,15,21,1,0)="This field is used to show the current provider seeing the patient."
^DD(52.1,15,23,0)="^^1^1^2920317^^^^"
^DD(52.1,15,23,1,0)="Pointer to file 200."
^DD(52.1,15,"DT")="2960405"
^DD(52.1,16,0)="GENERIC PROVIDER^F^^1;1^K:$L(X)>45!($L(X)<10) X"
^DD(52.1,16,3)="Answer must be 10-45 characters in length."
^DD(52.1,16,21,0)="^^1^1^2920305^"
^DD(52.1,16,21,1,0)="This field is used to show a provider outside of the medical center."
^DD(52.1,16,"DT")="2920305"
^DD(52.1,17,0)="RELEASED DATE/TIME^D^^0;18^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.1,17,1,0)="^.1"
^DD(52.1,17,1,1,0)="52^AL1^MUMPS"
^DD(52.1,17,1,1,1)="S ^PSRX(""AL"",$E(X,1,30),DA(1),DA)="""""
^DD(52.1,17,1,1,2)="K ^PSRX(""AL"",$E(X,1,30),DA(1),DA)"
^DD(52.1,17,1,1,3)="This xref should not be deleted.  It is used by the Drug Accountability software (v2)."
^DD(52.1,17,1,1,"%D",0)="^^2^2^2971022^^^^"
^DD(52.1,17,1,1,"%D",1,0)="The xref creates a 'AL"" index on the release date/time field. It sets the"
^DD(52.1,17,1,1,"%D",2,0)="global ^PSRX(""AL"",Released Date/Time,DA(1),DA)=""""."
^DD(52.1,17,1,1,"DT")="2930708"
^DD(52.1,17,1,2,0)="52.1^ACP1^MUMPS"
^DD(52.1,17,1,2,1)="I +$G(^PSRX(DA(1),""IB"")) K:$P($G(^PSRX(DA(1),1,DA,0)),""^"")&($P($G(^(0)),""^"",18)) ^PSRX(""ACP"",$P(^PSRX(DA(1),0),""^"",2),$P(^PSRX(DA(1),1,DA,0),""^""),DA,DA(1))"
^DD(52.1,17,1,2,2)="I $P($G(^PSRX(DA(1),0)),""^"",2),+$G(^(""IB"")) S:$P($G(^PSRX(DA(1),1,DA,0)),""^"")&($P($G(^(0)),""^"",2)=""W"")&('$P($G(^(0)),""^"",16))&('$G(^(""IB""))) ^PSRX(""ACP"",$P(^PSRX(DA(1),0),""^"",2),$P(^PSRX(DA(1),1,DA,0),""^""),DA,DA(1))="""""
^DD(52.1,17,1,2,3)="Do Not Delete!"
^DD(52.1,17,1,2,"%D",0)="^^3^3^2971022^^^^"
^DD(52.1,17,1,2,"%D",1,0)="This cross reference is used to remove the ""ACP"" xref once the Rx is"
^DD(52.1,17,1,2,"%D",2,0)="released and copay charges have been billed. It sets the global"
^DD(52.1,17,1,2,"%D",3,0)="^PSRX(""ACP"",Patient,Refill Date,DA(1),DA)=""""."
^DD(52.1,17,1,2,"DT")="2930730"
^DD(52.1,17,3)="Enter date/time medication was released."
^DD(52.1,17,21,0)="^^4^4^2930709^^^^"
^DD(52.1,17,21,1,0)="This field is used to show the date/time the medication was released for"
^DD(52.1,17,21,2,0)="inventory purposes and copay billing if applicable."
^DD(52.1,17,21,3,0)=" "
^DD(52.1,17,21,4,0)=" "
^DD(52.1,17,23,0)="^^1^1^2930709^"
^DD(52.1,17,23,1,0)="date/time."
^DD(52.1,17,"DT")="2930730"
^DD(52.1,18,0)="BINGO WAIT TIME^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.1,18,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(52.1,18,21,0)="^^2^2^2970227^"
^DD(52.1,18,21,1,0)="This field specifies, in minutes, the total wait time for bingo board"
^DD(52.1,18,21,2,0)="purposes."
^DD(52.1,18,"DT")="2970227"
^DD(52.1,19,0)="FILLING PERSON^P200'^VA(200,^1;4^Q"
^DD(52.1,19,3)="Data not entered directly with FM."
^DD(52.1,19,21,0)="^^2^2^3040211^"
^DD(52.1,19,21,1,0)="The name of the person who scanned the barcode before refilling the"
^DD(52.1,19,21,2,0)="medication request."
^DD(52.1,19,23,0)="^^1^1^3040211^"
^DD(52.1,19,23,1,0)="pointer"
^DD(52.1,19,"DT")="3040205"
^DD(52.1,20,0)="CHECKING PHARMACIST^P200'^VA(200,^1;5^Q"
^DD(52.1,20,3)="Data not entered directly with FM."
^DD(52.1,20,21,0)="^^1^1^3040211^"
^DD(52.1,20,21,1,0)="The name of the pharmacist that checked the medication refill request."
^DD(52.1,20,23,0)="^^1^1^3040211^"
^DD(52.1,20,23,1,0)="pointer"
^DD(52.1,20,"DT")="3040205"
^DD(52.1,21,0)="PFSS ACCOUNT REFERENCE^P375'I^IBBAA(375,^PFS;1^Q"
^DD(52.1,21,8.5)="^"
^DD(52.1,21,9)="^"
^DD(52.1,21,21,0)="^^3^3^3050517^^"
^DD(52.1,21,21,1,0)="This is a reference number to an external medical billing system Account "
^DD(52.1,21,21,2,0)="Number for the purposes of uniquely identifying prescription charges for "
^DD(52.1,21,21,3,0)="1st or 3rd party billing."
^DD(52.1,21,23,0)="^^6^6^3050518^"
^DD(52.1,21,23,1,0)="This field was introduced as part of the Patient Financial Services "
^DD(52.1,21,23,2,0)="System (PFSS) project to implement a new COTS billing system. It requires"
^DD(52.1,21,23,3,0)="that every prescription fill passed to the external billing system to"
^DD(52.1,21,23,4,0)="attach a unique account/visit number. The IBB API GETACCT^IBBAPI provides"
^DD(52.1,21,23,5,0)="this data and is stored during prescription order creation as part of the"
^DD(52.1,21,23,6,0)="data."
^DD(52.1,21,"DT")="3050518"
^DD(52.1,22,0)="PFSS CHARGE ID^NJ8,0^^PFS;2^K:+X'=X!(X>99999999)!(X<90000000)!(X?.E1"".""1.N) X"
^DD(52.1,22,3)="Type a number between 90000000 and 99999999, 0 Decimal Digits"
^DD(52.1,22,8.5)="^"
^DD(52.1,22,9)="^"
^DD(52.1,22,21,0)="^^2^2^3050516^"
^DD(52.1,22,21,1,0)="This is another unique identifier required when prescription charge "
^DD(52.1,22,21,2,0)="messages are passed to the external billing system."
^DD(52.1,22,23,0)="^^5^5^3050518^"
^DD(52.1,22,23,1,0)="This field was introduced as part of the Patient Financial Services System"
^DD(52.1,22,23,2,0)="(PFSS) project to implement a new COTS billing system. It requires that"
^DD(52.1,22,23,3,0)="every prescription charge transaction passed to the external billing"
^DD(52.1,22,23,4,0)="system to attach a unique charge identifier. The IBB API GETCHGID^IBBAPI"
^DD(52.1,22,23,5,0)="provides this data."
^DD(52.1,22,"DT")="3050518"
^DD(52.1,81,0)="DAW CODE^FX^^EPH;1^D INPUT^PSSDAWUT"
^DD(52.1,81,3)=""
^DD(52.1,81,4)="D HLP^PSSDAWUT"
^DD(52.1,81,21,0)="^.001^1^1^3051019^^^^"
^DD(52.1,81,21,1,0)="Dispensed As Written code. This information is used for NCPDP electronic claim transmission to third party payers (insurance companies)."
^DD(52.1,81,"DT")="3050627"
^DD(52.1,82,0)="RE-TRANSMIT FLAG^S^1:YES;^EPH;2^Q"
^DD(52.1,82,21,0)="^^1^1^3051019^"
^DD(52.1,82,21,1,0)="This field is used to indicate that a claim should be electronically re-transmitted to the 3rd party insurance. It will be primarily used by CMOP and local mail prescriptions."
^DD(52.1,82,"DT")="3051019"
^DD(52.1,"B","BINGO WAIT TIME",18)=""
^DD(52.1,"B","CHECKING PHARMACIST",20)=""
^DD(52.1,"B","CLERK CODE",6)=""
^DD(52.1,"B","COPAY EXCEEDING CAP",9.1)=""
^DD(52.1,"B","CURRENT UNIT PRICE OF DRUG",1.2)=""
^DD(52.1,"B","DAW CODE",81)=""
^DD(52.1,"B","DAYS SUPPLY",1.1)=""
^DD(52.1,"B","DISPENSED DATE",10.1)=""
^DD(52.1,"B","DIVISION",8)=""
^DD(52.1,"B","DRUG EXPIRATION DATE",13)=""
^DD(52.1,"B","FILLING PERSON",19)=""
^DD(52.1,"B","GENERIC PROVIDER",16)=""
^DD(52.1,"B","IB NUMBER",9)=""
^DD(52.1,"B","LOGIN DATE",7)=""
^DD(52.1,"B","LOT #",5)=""
^DD(52.1,"B","MAIL/WINDOW",2)=""
^DD(52.1,"B","MANUFACTURER",12)=""
^DD(52.1,"B","NDC",11)=""
^DD(52.1,"B","PFSS ACCOUNT REFERENCE",21)=""
^DD(52.1,"B","PFSS CHARGE ID",22)=""
^DD(52.1,"B","PHARMACIST NAME",4)=""
^DD(52.1,"B","PROVIDER",15)=""
^DD(52.1,"B","QTY",1)=""
^DD(52.1,"B","RE-TRANSMIT FLAG",82)=""
^DD(52.1,"B","REFILL DATE",.01)=""
^DD(52.1,"B","RELEASED DATE/TIME",17)=""
^DD(52.1,"B","REMARKS",3)=""
^DD(52.1,"B","RETURNED TO STOCK",14)=""
^DD(52.1,"GL",0,1,.01)=""
^DD(52.1,"GL",0,2,2)=""
^DD(52.1,"GL",0,3,3)=""
^DD(52.1,"GL",0,4,1)=""
^DD(52.1,"GL",0,5,4)=""
^DD(52.1,"GL",0,6,5)=""
^DD(52.1,"GL",0,7,6)=""
^DD(52.1,"GL",0,8,7)=""
^DD(52.1,"GL",0,9,8)=""
^DD(52.1,"GL",0,10,1.1)=""
^DD(52.1,"GL",0,11,1.2)=""
^DD(52.1,"GL",0,14,12)=""
^DD(52.1,"GL",0,15,13)=""
^DD(52.1,"GL",0,16,14)=""
^DD(52.1,"GL",0,17,15)=""
^DD(52.1,"GL",0,18,17)=""
^DD(52.1,"GL",0,19,10.1)=""
^DD(52.1,"GL",1,1,16)=""
^DD(52.1,"GL",1,2,18)=""
^DD(52.1,"GL",1,3,11)=""
^DD(52.1,"GL",1,4,19)=""
^DD(52.1,"GL",1,5,20)=""
^DD(52.1,"GL","EPH",1,81)=""
^DD(52.1,"GL","EPH",2,82)=""
^DD(52.1,"GL","IB",1,9)=""
^DD(52.1,"GL","IB",2,9.1)=""
^DD(52.1,"GL","PFS",1,21)=""
^DD(52.1,"GL","PFS",2,22)=""
^DD(52.1,"GR","IHS",13,1)=""
^DD(52.1,"GR","PSO",13,2)=""
^DD(52.1,"IX",.01)=""
^DD(52.1,"IX",2)=""
^DD(52.1,"IX",8)=""
^DD(52.1,"IX",14)=""
^DD(52.1,"IX",17)=""
^DD(52.1,"RQ",1)=""
^DD(52.1,"RQ",1.1)=""
^DD(52.1,"RQ",2)=""
^DD(52.1,"RQ",6)=""
^DD(52.1,"RQ",8)=""
^DD(52.1,"RQ",10.1)=""
^DD(52.1,"RQ",15)=""
^DD(52.11,0)="FIELD^^13^14"
^DD(52.11,0,"DDA")="Y"
^DD(52.11,0,"DT")="2970722"
^DD(52.11,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(52.11,0,"ID",9)="W:$D(^(1)) ""   "",$P(^(1),U,2)"
^DD(52.11,0,"ID",10)="W:$D(^(1)) ""   "",$P(^(1),U,3)"
^DD(52.11,0,"ID",11)="W:$D(^(1)) ""   "",$P(^(1),U,4)"
^DD(52.11,0,"IX","AD",52.11,2)=""
^DD(52.11,0,"IX","ANAM",52.11,6)=""
^DD(52.11,0,"IX","ANAMK",52.11,7)=""
^DD(52.11,0,"IX","ATIC",52.11,6)=""
^DD(52.11,0,"IX","B",52.11,.01)=""
^DD(52.11,0,"IX","BA",52.11,8)=""
^DD(52.11,0,"IX","BI",52.11,10)=""
^DD(52.11,0,"IX","C",52.11,1)=""
^DD(52.11,0,"NM","PATIENT NOTIFICATION (Rx READY)")=""
^DD(52.11,0,"VR")="7.0"
^DD(52.11,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.11,.01,0)="PATIENT^RP2'X^DPT(^0;1^Q"
^DD(52.11,.01,.1)="Patient Name"
^DD(52.11,.01,1,0)="^.1"
^DD(52.11,.01,1,1,0)="52.11^B"
^DD(52.11,.01,1,1,1)="S ^PS(52.11,""B"",$E(X,1,30),DA)="""""
^DD(52.11,.01,1,1,2)="K ^PS(52.11,""B"",$E(X,1,30),DA)"
^DD(52.11,.01,3)=""
^DD(52.11,.01,21,0)="^^1^1^2950517^^^^"
^DD(52.11,.01,21,1,0)="The patient's name whose prescription is to be displayed."
^DD(52.11,.01,23,0)="^^2^2^2950517^^^^"
^DD(52.11,.01,23,1,0)="This field points to the patient file, and only allows entry of patients"
^DD(52.11,.01,23,2,0)="whose names already exist in the patient file."
^DD(52.11,.01,"DT")="2950517"
^DD(52.11,1,0)="TICKET #^RNJ5,0^^0;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.11,1,.1)="Ticket Number"
^DD(52.11,1,1,0)="^.1"
^DD(52.11,1,1,1,0)="52.11^C"
^DD(52.11,1,1,1,1)="S ^PS(52.11,""C"",$E(X,1,30),DA)="""""
^DD(52.11,1,1,1,2)="K ^PS(52.11,""C"",$E(X,1,30),DA)"
^DD(52.11,1,1,1,"%D",0)="^^1^1^2930225^"
^DD(52.11,1,1,1,"%D",1,0)="Cross references by ticket number"
^DD(52.11,1,1,1,"DT")="2930225"
^DD(52.11,1,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(52.11,1,21,0)="^^3^3^2950829^^^^"
^DD(52.11,1,21,1,0)="If the pharmacy is using receipt type tickets to identify patients"
^DD(52.11,1,21,2,0)="whose prescriptions are ready, this field holds the ticket number."
^DD(52.11,1,21,3,0)="Otherwise, it is blank."
^DD(52.11,1,23,0)="^^1^1^2950829^^^"
^DD(52.11,1,23,1,0)="Ticket Number"
^DD(52.11,1,"DT")="2940909"
^DD(52.11,2,0)="DISPLAY GROUP^RP59.3'^PS(59.3,^0;3^Q"
^DD(52.11,2,.1)="VIDEO DISPLAY GROUP"
^DD(52.11,2,1,0)="^.1"
^DD(52.11,2,1,1,0)="52.11^AD"
^DD(52.11,2,1,1,1)="S ^PS(52.11,""AD"",$E(X,1,30),DA)="""""
^DD(52.11,2,1,1,2)="K ^PS(52.11,""AD"",$E(X,1,30),DA)"
^DD(52.11,2,1,1,3)="Do not delete."
^DD(52.11,2,1,1,"%D",0)="^^1^1^2930407^"
^DD(52.11,2,1,1,"%D",1,0)="This xref is used to determine if the display group has an entry."
^DD(52.11,2,1,1,"DT")="2930407"
^DD(52.11,2,21,0)="^^2^2^2920811^^"
^DD(52.11,2,21,1,0)="The group of terminals which will display the information that"
^DD(52.11,2,21,2,0)="prescriptions for this patient are ready"
^DD(52.11,2,23,0)="^^2^2^2920811^"
^DD(52.11,2,23,1,0)="This is a pointer to file 59.3 which contains the information relevant"
^DD(52.11,2,23,2,0)="to the display groups."
^DD(52.11,2,"DT")="2930407"
^DD(52.11,3,0)="DIVISION^RP59'^PS(59,^0;4^Q"
^DD(52.11,3,.1)="PHARMACY DIVISION"
^DD(52.11,3,21,0)="^^2^2^2921005^^^^"
^DD(52.11,3,21,1,0)="This field, pointing to file 59, allows accumulation of statistical data"
^DD(52.11,3,21,2,0)="based on Divisional prescription input."
^DD(52.11,3,23,0)="^^1^1^2921005^^^^"
^DD(52.11,3,23,1,0)="Pointer to file 59. "
^DD(52.11,3,"DT")="2930201"
^DD(52.11,4,0)="LOGIN DATE^DX^^0;5^K X"
^DD(52.11,4,.1)="DATE RX ENTERED INTO BINGO SYSTEM."
^DD(52.11,4,1,0)="^.1^^0"
^DD(52.11,4,3)=""
^DD(52.11,4,21,0)="^^1^1^2920811^^^"
^DD(52.11,4,21,1,0)="File Manager date and time at which prescriptions were entered"
^DD(52.11,4,23,0)="^^1^1^2920811^"
^DD(52.11,4,23,1,0)="Automatic entry to create a chronological record of Prescription entry."
^DD(52.11,4,"DT")="2960528"
^DD(52.11,5,0)="TIME IN^NJ5,0X^^0;6^K X"
^DD(52.11,5,3)="Type a Number between 0 and 86400, 0 Decimal Digits"
^DD(52.11,5,21,0)="^^1^1^2920811^^"
^DD(52.11,5,21,1,0)="Second piece of $H at the time the prescription is entered"
^DD(52.11,5,23,0)="^^1^1^2920811^"
^DD(52.11,5,23,1,0)="Automatically ""stuffed"" by ^PSOBINGO program.  Used for statistical shredout"
^DD(52.11,5,"DT")="2930201"
^DD(52.11,6,0)="TIME READY (HHMM)^NJ5,0^^0;7^K:+X'=X!(X>86400)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.11,6,.1)="Time Ready (HHMM)"
^DD(52.11,6,1,0)="^.1"
^DD(52.11,6,1,1,0)="52.11^ANAM^MUMPS"
^DD(52.11,6,1,1,1)="S ^PS(52.11,""ANAM"",+$P(^PS(52.11,DA,0),""^"",3),$P(^(1),""^"",3)_$P(^(1),""^"",4)_"" ""_$P(^DPT(+$P(^PS(52.11,DA,0),""^""),0),""^""),DA)="""""
^DD(52.11,6,1,1,2)="K ^PS(52.11,""ANAM"",+$P(^PS(52.11,DA,0),""^"",3),$P(^(1),""^"",3)_$P(^(1),""^"",4)_"" ""_$P(^DPT(+$P(^PS(52.11,DA,0),""^""),0),""^""),DA)"
^DD(52.11,6,1,1,"%D",0)="^.101^3^3^3001219^^^^"
^DD(52.11,6,1,1,"%D",1,0)="This xref lists the display group, patient name, then internal entry number."
^DD(52.11,6,1,1,"%D",2,0)="It sets the global ^PS(52.11,""ANAM"",Display Group,Hierarcy_MulitRx_"" ""_"
^DD(52.11,6,1,1,"%D",3,0)="Patient Name,DA)=""""."
^DD(52.11,6,1,1,"DT")="2930318"
^DD(52.11,6,1,2,0)="52.11^ATIC^MUMPS"
^DD(52.11,6,1,2,1)="D ATICSET^PSOBINGO"
^DD(52.11,6,1,2,2)="D ATICKIL^PSOBINGO"
^DD(52.11,6,1,2,"%D",0)="^.101^2^2^3060213^^^^"
^DD(52.11,6,1,2,"%D",1,0)="This Xref lists the display group, ticket #, then internal entry number."
^DD(52.11,6,1,2,"%D",2,0)="It sets the global ^PS(52.11,""ATIC"",Display Group,Ticket,DA)=""""."
^DD(52.11,6,1,2,"DT")="3060118"
^DD(52.11,6,3)="Type a Number between 1 and 86400, 0 Decimal Digits"
^DD(52.11,6,21,0)="^^1^1^2930201^"
^DD(52.11,6,21,1,0)="Second piece of $H at the time the Rx is ready."
^DD(52.11,6,23,0)="^^1^1^2930201^"
^DD(52.11,6,23,1,0)="This field is ""stuffed"" by routine PSOBINGO when Rx is ready."
^DD(52.11,6,"DT")="3060118"
^DD(52.11,7,0)="PICKED UP^S^0:NOT PICKED UP;1:PICKED UP;^0;8^Q"
^DD(52.11,7,1,0)="^.1"
^DD(52.11,7,1,1,0)="52.11^ANAMK^MUMPS"
^DD(52.11,7,1,1,1)="S ^PS(52.11,""ANAMK"",DA,+$P(^PS(52.11,DA,0),""^"",3),$P(^PS(52.11,DA,0),""^""))="""""
^DD(52.11,7,1,1,2)="K ^PS(52.11,""ANAMK"",DA,+$P(^PS(52.11,DA,0),""^"",3),$P(^PS(52.11,DA,0),""^""))"
^DD(52.11,7,1,1,"%D",0)="^^4^4^2971023^^^"
^DD(52.11,7,1,1,"%D",1,0)="This cross reference, when present, indicate that the order has been"
^DD(52.11,7,1,1,"%D",2,0)="picked up. It is the internal entry number followed by the division, and"
^DD(52.11,7,1,1,"%D",3,0)="the patient IEN. It sets the global"
^DD(52.11,7,1,1,"%D",4,0)="^PS(52.11,""ANAMK"",DA,Display Group,Patient)=""""."
^DD(52.11,7,1,1,"DT")="2970303"
^DD(52.11,7,21,0)="^^2^2^2970303^"
^DD(52.11,7,21,1,0)="This field is a set of codes that logs whether or not the order has been"
^DD(52.11,7,21,2,0)="picked up."
^DD(52.11,7,"DT")="2970303"
^DD(52.11,8,0)="NAME^FX^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X"
^DD(52.11,8,1,0)="^.1"
^DD(52.11,8,1,1,0)="52.11^BA^MUMPS"
^DD(52.11,8,1,1,1)="S ^PS(52.11,""BA"",$E(X,1,30),DA,$P(^DPT($P(^PS(52.11,DA,0),U),0),U,9))="""""
^DD(52.11,8,1,1,2)="K ^PS(52.11,""BA"",$E(X,1,30),DA,$P(^DPT($P(^PS(52.11,DA,0),U),0),U,9))"
^DD(52.11,8,1,1,"%D",0)="^^2^2^2971023^^^"
^DD(52.11,8,1,1,"%D",1,0)="The ""BA"" Xref is to be used to ID and label duplicate name entries."
^DD(52.11,8,1,1,"%D",2,0)="It sets the global ^PS(52.11,""BA"",Name,DA,SSN)=""""."
^DD(52.11,8,1,1,"DT")="2960516"
^DD(52.11,8,3)="Answer must be 3-40 characters in length."
^DD(52.11,8,21,0)="^^1^1^2971023^"
^DD(52.11,8,21,1,0)="This is the name of the patient."
^DD(52.11,8,"DT")="2960528"
^DD(52.11,9,0)="SSAN^NJ9,0^^1;2^K:+X'=X!(X>999999999)!(X<111111111)!(X?.E1"".""1N.N) X"
^DD(52.11,9,3)="Type a Number between 111111111 and 999999999, 0 Decimal Digits"
^DD(52.11,9,21,0)="^^1^1^2971023^"
^DD(52.11,9,21,1,0)="This is the SSN of the patient."
^DD(52.11,9,"DT")="2930225"
^DD(52.11,10,0)="HIERARCY^NJ3,0^^1;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.11,10,1,0)="^.1"
^DD(52.11,10,1,1,0)="52.11^BI^MUMPS"
^DD(52.11,10,1,1,1)="S ^PS(52.11,""BI"",$P(^PS(52.11,DA,0),U),$P(^PS(52.11,DA,1),U,3),DA)="""""
^DD(52.11,10,1,1,2)="K ^PS(52.11,""BI"",$P(^PS(52.11,DA,0),U),$P(^PS(52.11,DA,1),U,3),DA)"
^DD(52.11,10,1,1,"%D",0)="^^2^2^2971023^^^^"
^DD(52.11,10,1,1,"%D",1,0)="This is to track those patients with the same first name. It sets the"
^DD(52.11,10,1,1,"%D",2,0)="global ^PS(52.11,""BI"",Patient,Display Group,DA)=""""."
^DD(52.11,10,1,1,"DT")="2930301"
^DD(52.11,10,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(52.11,10,21,0)="^^1^1^2930225^^"
^DD(52.11,10,21,1,0)="This field is engaged if there are more than one patients with the same name entered in the system"
^DD(52.11,10,23,0)="^^1^1^2930225^^"
^DD(52.11,10,23,1,0)="This field will be """" or 1 for the first patient with the common name and is not ""stuffed"" until the second occurence."
^DD(52.11,10,"DT")="2930301"
^DD(52.11,11,0)="MULTIRX^F^^1;4^K:$L(X)>1!($L(X)<1) X"
^DD(52.11,11,3)="Answer must be 1 character in length."
^DD(52.11,11,21,0)="^^1^1^2960702^^^"
^DD(52.11,11,21,1,0)="Contains the total separate Rx orders the patient has requested, ie; An order at 10AM and a separate one at 12PM.  To distinguish statistically they must be computed separately."
^DD(52.11,11,23,0)="^^1^1^2960702^^^"
^DD(52.11,11,23,1,0)="This number reflects the number of orders the patient has submitted. 0 or 1 is the first order because 1 will not be present unless there are >1 orders."
^DD(52.11,11,"DT")="2930225"
^DD(52.11,12,0)="PRESCRIPTION(S)^52.1112PA^^2;0"
^DD(52.11,12,21,0)="^^1^1^2971023^"
^DD(52.11,12,21,1,0)="This multiple holds the prescription information."
^DD(52.11,13,0)="SUSPENSE DIVISION^S^0:Non-Suspense entry;1:Suspense entry;^0;9^Q"
^DD(52.11,13,3)=""
^DD(52.11,13,21,0)="^^2^2^2960806^"
^DD(52.11,13,21,1,0)="This Set of Codes field serves as a flag where '0' means a Non-Suspense"
^DD(52.11,13,21,2,0)="entry and '1' means Suspense entry."
^DD(52.11,13,23,0)="^^1^1^2960806^"
^DD(52.11,13,23,1,0)="Set of Codes: Non-Suspense Entry=0; Suspense Entry=1"
^DD(52.11,13,"DT")="2960806"
^DD(52.11,"B","DISPLAY GROUP",2)=""
^DD(52.11,"B","DIVISION",3)=""
^DD(52.11,"B","HIERARCY",10)=""
^DD(52.11,"B","LOGIN DATE",4)=""
^DD(52.11,"B","MULTIRX",11)=""
^DD(52.11,"B","NAME",8)=""
^DD(52.11,"B","PATIENT",.01)=""
^DD(52.11,"B","PHARMACY DIVISION",3)="1"
^DD(52.11,"B","PICKED UP",7)=""
^DD(52.11,"B","PRESCRIPTION(S)",12)=""
^DD(52.11,"B","Patient Name",.01)="1"
^DD(52.11,"B","SSAN",9)=""
^DD(52.11,"B","SUSPENSE DIVISION",13)=""
^DD(52.11,"B","TICKET #",1)=""
^DD(52.11,"B","TIME IN",5)=""
^DD(52.11,"B","TIME READY (HHMM)",6)=""
^DD(52.11,"B","Ticket Number",1)="1"
^DD(52.11,"B","Time Ready (HHMM)",6)="1"
^DD(52.11,"B","VIDEO DISPLAY GROUP",2)="1"
^DD(52.11,"GL",0,1,.01)=""
^DD(52.11,"GL",0,2,1)=""
^DD(52.11,"GL",0,3,2)=""
^DD(52.11,"GL",0,4,3)=""
^DD(52.11,"GL",0,5,4)=""
^DD(52.11,"GL",0,6,5)=""
^DD(52.11,"GL",0,7,6)=""
^DD(52.11,"GL",0,8,7)=""
^DD(52.11,"GL",0,9,13)=""
^DD(52.11,"GL",1,1,8)=""
^DD(52.11,"GL",1,2,9)=""
^DD(52.11,"GL",1,3,10)=""
^DD(52.11,"GL",1,4,11)=""
^DD(52.11,"GL",2,0,12)=""
^DD(52.11,"IX",.01)=""
^DD(52.11,"IX",1)=""
^DD(52.11,"IX",2)=""
^DD(52.11,"IX",6)=""
^DD(52.11,"IX",7)=""
^DD(52.11,"IX",8)=""
^DD(52.11,"IX",10)=""
^DD(52.11,"RQ",.01)=""
^DD(52.11,"RQ",1)=""
^DD(52.11,"RQ",2)=""
^DD(52.11,"RQ",3)=""
^DD(52.11,"SB",52.1112,12)=""
^DD(52.1112,0)="PRESCRIPTION(S) SUB-FIELD^^3^4"
^DD(52.1112,0,"DT")="2970722"
^DD(52.1112,0,"IX","B",52.1112,.01)=""
^DD(52.1112,0,"NM","PRESCRIPTION(S)")=""
^DD(52.1112,0,"UP")="52.11"
^DD(52.1112,.01,0)="PRESCRIPTION(S)^RP52'^PSRX(^0;1^Q"
^DD(52.1112,.01,1,0)="^.1"
^DD(52.1112,.01,1,1,0)="52.1112^B"
^DD(52.1112,.01,1,1,1)="S ^PS(52.11,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(52.1112,.01,1,1,2)="K ^PS(52.11,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(52.1112,.01,21,0)="^^1^1^2970722^"
^DD(52.1112,.01,21,1,0)="This field holds the prescription number(s)."
^DD(52.1112,.01,"DT")="2970722"
^DD(52.1112,1,0)="FILL TYPE^S^F:REGULAR FILL;P:PARTIAL FILL;^0;2^Q"
^DD(52.1112,1,21,0)="^^1^1^2970722^"
^DD(52.1112,1,21,1,0)="This field specifies regular or partial fill for the Rx."
^DD(52.1112,1,"DT")="2970722"
^DD(52.1112,2,0)="FILL NUMBER^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.1112,2,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(52.1112,2,21,0)="^^1^1^2970722^"
^DD(52.1112,2,21,1,0)="This field specifies which field number is associated with the Rx."
^DD(52.1112,2,"DT")="2970722"
^DD(52.1112,3,0)="WAIT TIME^NJ5,0^^0;4^K:+X'=X!(X>86400)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.1112,3,3)="Type a Number between 1 and 86400, 0 Decimal Digits"
^DD(52.1112,3,21,0)="^^1^1^2970722^"
^DD(52.1112,3,21,1,0)="This field contains the total wait time in minutes for the Rx."
^DD(52.1112,3,"DT")="2970722"
^DD(52.1112,"B","FILL NUMBER",2)=""
^DD(52.1112,"B","FILL TYPE",1)=""
^DD(52.1112,"B","PRESCRIPTION(S)",.01)=""
^DD(52.1112,"B","WAIT TIME",3)=""
^DD(52.1112,"GL",0,1,.01)=""
^DD(52.1112,"GL",0,2,1)=""
^DD(52.1112,"GL",0,3,2)=""
^DD(52.1112,"GL",0,4,3)=""
^DD(52.1112,"IX",.01)=""
^DD(52.1112,"RQ",.01)=""
^DD(52.2,0)="PARTIAL DATE SUB-FIELD^NL^12^22"
^DD(52.2,0,"DIK")="PSOXZA"
^DD(52.2,0,"DT")="2970227"
^DD(52.2,0,"IX","AC",52.2,.09)=""
^DD(52.2,0,"IX","APAR",52.2,.01)=""
^DD(52.2,0,"NM","PARTIAL DATE")=""
^DD(52.2,0,"UP")="52"
^DD(52.2,.01,0)="PARTIAL DATE^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.2,.01,1,0)="^.1"
^DD(52.2,.01,1,1,0)="52^ADP"
^DD(52.2,.01,1,1,1)="S ^PSRX(""ADP"",$E(X,1,7),DA(1),DA)="""""
^DD(52.2,.01,1,1,2)="K ^PSRX(""ADP"",$E(X,1,7),DA(1),DA)"
^DD(52.2,.01,1,1,"DT")="2940107"
^DD(52.2,.01,1,2,0)="52.2^APAR^MUMPS"
^DD(52.2,.01,1,2,1)="Q"
^DD(52.2,.01,1,2,2)="D:'$G(PSOSUSPA) PARKILL^PSOUTLA"
^DD(52.2,.01,1,2,3)="DO NOT DELETE"
^DD(52.2,.01,1,2,"%D",0)="^^4^4^2971022^^^^"
^DD(52.2,.01,1,2,"%D",1,0)="This xref is used to indicate when a partial fill is deleted. It can set"
^DD(52.2,.01,1,2,"%D",2,0)="the global ^PSRX(DA(1),""A"",0)=Activity log sub-header information. It can"
^DD(52.2,.01,1,2,"%D",3,0)="also set the global ^PSRX(DA(1),""A"",Activity entry,0)=Activity Log"
^DD(52.2,.01,1,2,"%D",4,0)="information."
^DD(52.2,.01,1,2,"DT")="2950620"
^DD(52.2,.01,4)="I $P($G(^PSRX(DA,2)),""^"",6) S X=$P(^PSRX(DA,2),""^"",6),%DT=""X"" D ^%DT X ^DD(""DD"") W !,""Partial Date must be less than or equal to ""_Y S %DT(0)=-$P(^PSRX(DA,2),""^"",6)"
^DD(52.2,.01,21,0)="^^1^1^2951107^^^^"
^DD(52.2,.01,21,1,0)="This is the date the partial was made."
^DD(52.2,.01,23,0)="^^1^1^2951107^^^^"
^DD(52.2,.01,23,1,0)="Date"
^DD(52.2,.01,"DEL",1,0)="D WARN1^PSOUTL"
^DD(52.2,.01,"DT")="2950620"
^DD(52.2,.02,0)="MAIL/WINDOW^RS^M:MAIL;W:WINDOW;^0;2^Q"
^DD(52.2,.02,21,0)="^^2^2^2920115^"
^DD(52.2,.02,21,1,0)="This field tells whether the medication was picked up "
^DD(52.2,.02,21,2,0)="or mailed to the patient."
^DD(52.2,.02,23,0)="^^1^1^2920115^"
^DD(52.2,.02,23,1,0)="(Required) Set 'M' for Mail, 'W' for Window."
^DD(52.2,.02,"DT")="2820903"
^DD(52.2,.03,0)="REMARKS^RF^^0;3^K:$L(X)>60!($L(X)<2) X"
^DD(52.2,.03,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(52.2,.03,21,0)="^^1^1^2920115^"
^DD(52.2,.03,21,1,0)="These are any additional comments."
^DD(52.2,.03,23,0)="^^1^1^2920115^"
^DD(52.2,.03,23,1,0)="(Required) Free Text."
^DD(52.2,.03,"DT")="2820827"
^DD(52.2,.04,0)="QTY^RNJ12,2X^^0;4^K:(+X'>0)!(+X>99999999)!(X'?.8N.1""."".2N)!($L(X)>11) X I $D(X),X>$P(^PSRX(DA(1),0),U,7) D EN^DDIOL(""QTY CANNOT BE GREATER THAN THE ORIGINAL QTY OF ""_$P($G(^(0)),U,7)) K X"
^DD(52.2,.04,3)="Type a number between .01 and 99999999. Two fractional decimal places are allowed, with no alpha characters. The total length of the entry cannot exceed 11 characters."
^DD(52.2,.04,21,0)="^^1^1^2991109^^^^"
^DD(52.2,.04,21,1,0)="This field is used to show the amount of medication that was dispensed."
^DD(52.2,.04,23,0)="^^6^6^3071130^"
^DD(52.2,.04,23,1,0)="This field allows numeric entries only, both for CMOP prescriptions"
^DD(52.2,.04,23,2,0)="and non-CMOP prescriptions. It requires a number between .01 and"
^DD(52.2,.04,23,3,0)="99999999, with a maximum of 2 fractional decimal places."
^DD(52.2,.04,23,4,0)=" "
^DD(52.2,.04,23,5,0)="NOTE: QTY values that were on file prior to patch PSO*7*29 (released "
^DD(52.2,.04,23,6,0)="2/17/00) may contain alpha characters."
^DD(52.2,.04,"DT")="3071130"
^DD(52.2,.041,0)="DAYS SUPPLY^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.2,.041,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(52.2,.041,21,0)="^^1^1^2920127^"
^DD(52.2,.041,21,1,0)="This field is used to indicate the days of supply for partial RX fill."
^DD(52.2,.041,"DT")="2920127"
^DD(52.2,.042,0)="CURRENT UNIT PRICE OF DRUG^NJ9,4^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(52.2,.042,3)="Type a Number between 0 and 9999, 4 Decimal Digits"
^DD(52.2,.042,9)="^"
^DD(52.2,.042,21,0)="^.001^1^1^3001004^^^^"
^DD(52.2,.042,21,1,0)="This field is used to show current unit cost of the drug at time of fill."
^DD(52.2,.042,23,0)="^.001^1^1^3001004^^"
^DD(52.2,.042,23,1,0)="This is the price per dispense unit (per ML/MG) at the time of fill."
^DD(52.2,.042,"DT")="3001004"
^DD(52.2,.05,0)="PHARMACIST NAME^R*P200'^VA(200,^0;5^S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52.2,.05,3)="Enter name of the pharmacist entering the parital rx."
^DD(52.2,.05,12)="Only select a user who has a pharmacist key."
^DD(52.2,.05,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"""
^DD(52.2,.05,21,0)="^^1^1^2950717^^^"
^DD(52.2,.05,21,1,0)="This is the name of the pharmacist."
^DD(52.2,.05,23,0)="^^1^1^2950717^^^"
^DD(52.2,.05,23,1,0)="Pointer to New Person File (#200).  required"
^DD(52.2,.05,"DT")="2950717"
^DD(52.2,.06,0)="LOT #^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(52.2,.06,3)="Answer must be 1-20 characters in length."
^DD(52.2,.06,21,0)="^.001^1^1^3040602^^^^"
^DD(52.2,.06,21,1,0)="This field shows the vendor's lot number."
^DD(52.2,.06,23,0)="^.001^1^1^3040602^^^^"
^DD(52.2,.06,23,1,0)="Free Text."
^DD(52.2,.06,"DT")="3040527"
^DD(52.2,.07,0)="CLERK CODE^RP200'^VA(200,^0;7^Q"
^DD(52.2,.07,3)=""
^DD(52.2,.07,21,0)="^^2^2^2920414^^^"
^DD(52.2,.07,21,1,0)="This is the user number of the clerk that "
^DD(52.2,.07,21,2,0)="keyed in the prescription."
^DD(52.2,.07,23,0)="^^1^1^2920414^^^"
^DD(52.2,.07,23,1,0)="(Required) Poniter to #200"
^DD(52.2,.07,"DT")="2920414"
^DD(52.2,.08,0)="LOGIN DATE^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.2,.08,21,0)="^^1^1^2920115^"
^DD(52.2,.08,21,1,0)="This is the date that the prescription was entered."
^DD(52.2,.08,23,0)="^^1^1^2920115^"
^DD(52.2,.08,23,1,0)="Date."
^DD(52.2,.09,0)="DIVISION^P59'^PS(59,^0;9^Q"
^DD(52.2,.09,1,0)="^.1"
^DD(52.2,.09,1,1,0)="52.2^AC^MUMPS"
^DD(52.2,.09,1,1,1)="D SAS2^PSOSUTL"
^DD(52.2,.09,1,1,2)="D KAS2^PSOSUTL"
^DD(52.2,.09,1,1,"%D",0)="^^5^5^2971022^^^"
^DD(52.2,.09,1,1,"%D",1,0)="This is used to maintain the AC x-ref in Suspense. It sets piece 6 of"
^DD(52.2,.09,1,1,"%D",2,0)="^PS(52.5,DA,0)=Division. For a non-CMOP Rx, it sets"
^DD(52.2,.09,1,1,"%D",3,0)="^PS(52.5,""AS"",Print Date,Printed By,Division,Sequence,DA)="""". For a CMOP"
^DD(52.2,.09,1,1,"%D",4,0)="prescription, it sets ^PS(52.5,""APR"",Print Date,Printed By,Division,"
^DD(52.2,.09,1,1,"%D",5,0)="Sequence,DA)=""""."
^DD(52.2,.09,1,1,"DT")="2950516"
^DD(52.2,.09,3)="Enter division where partial rx is entered."
^DD(52.2,.09,21,0)="^^1^1^2920428^^"
^DD(52.2,.09,21,1,0)="This field contains the Pharmacy Division associated with this RX."
^DD(52.2,.09,23,0)="^^1^1^2920428^^"
^DD(52.2,.09,23,1,0)="Pointer to Outpatient Site File (#59)"
^DD(52.2,.09,"DT")="2950516"
^DD(52.2,1,0)="NDC^F^^0;12^K:$L(X)>13!($L(X)<3) X"
^DD(52.2,1,3)="Answer must be 3-13 characters in length."
^DD(52.2,1,21,0)="^^1^1^2930405^^"
^DD(52.2,1,21,1,0)="This field is used to show the National Drug Code of the drug issued."
^DD(52.2,1,"DT")="2920414"
^DD(52.2,2,0)="MANUFACTURER^F^^1;1^K:$L(X)>50!($L(X)<3) X"
^DD(52.2,2,3)="Answer must be 3-50 characters in length."
^DD(52.2,2,21,0)="^^2^2^2920414^"
^DD(52.2,2,21,1,0)="This field is used to store the name of the manufacturer of the drug"
^DD(52.2,2,21,2,0)="being dispensed."
^DD(52.2,2,23,0)="^^1^1^2920414^"
^DD(52.2,2,23,1,0)="free text."
^DD(52.2,2,"DT")="2920414"
^DD(52.2,5,0)="RETURNED TO STOCK^D^^0;16^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.2,5,1,0)="^.1"
^DD(52.2,5,1,1,0)="52^AN"
^DD(52.2,5,1,1,1)="S ^PSRX(""AN"",$E(X,1,30),DA(1),DA)="""""
^DD(52.2,5,1,1,2)="K ^PSRX(""AN"",$E(X,1,30),DA(1),DA)"
^DD(52.2,5,1,1,3)="This xref should not be deleted.  It is used by the Drug Accountability software (v2)."
^DD(52.2,5,1,1,"%D",0)="^^2^2^2930709^"
^DD(52.2,5,1,1,"%D",1,0)="This xref creates a 'AN' index on the returned to stock date."
^DD(52.2,5,1,1,"%D",2,0)=" "
^DD(52.2,5,1,1,"DT")="2930708"
^DD(52.2,5,3)="Enter date the partial prescription was returned to stock."
^DD(52.2,5,21,0)="^^2^2^2930709^^^^"
^DD(52.2,5,21,1,0)="This field is used to show when and if the medication in the prescription "
^DD(52.2,5,21,2,0)="was returned to inventory due to not being picked up or mailed."
^DD(52.2,5,23,0)="^^1^1^2930709^^^"
^DD(52.2,5,23,1,0)="date"
^DD(52.2,5,"DT")="2930709"
^DD(52.2,6,0)="PROVIDER^R*P200X'^VA(200,^0;17^S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52.2,6,3)="Enter name of provider that is currently seeing the patient."
^DD(52.2,6,12)="Only valid providers are selected."
^DD(52.2,6,12.1)="S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"""
^DD(52.2,6,21,0)="^^1^1^2920317^^^^"
^DD(52.2,6,21,1,0)="This field is used to show the provider that is currently seeing the patient."
^DD(52.2,6,23,0)="^^1^1^2920317^^"
^DD(52.2,6,23,1,0)="Pointer to file 200."
^DD(52.2,6,"DT")="2961023"
^DD(52.2,7,0)="GENERIC PROVIDER^F^^0;18^K:$L(X)>45!($L(X)<10) X"
^DD(52.2,7,3)="Answer must be 10-45 characters in length."
^DD(52.2,7,21,0)="^^2^2^2920305^"
^DD(52.2,7,21,1,0)="This field is used to show if there is a provider outside of the medical"
^DD(52.2,7,21,2,0)="center providing care to the patient."
^DD(52.2,7,"DT")="2920305"
^DD(52.2,7.5,0)="DISPENSED DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.2,7.5,21,0)="^^2^2^2930104^"
^DD(52.2,7.5,21,1,0)="This field is used to indicate the date the partial medication was"
^DD(52.2,7.5,21,2,0)="dispensed."
^DD(52.2,7.5,"DT")="2920610"
^DD(52.2,8,0)="RELEASED DATE/TIME^D^^0;19^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.2,8,1,0)="^.1"
^DD(52.2,8,1,1,0)="52^AM"
^DD(52.2,8,1,1,1)="S ^PSRX(""AM"",$E(X,1,30),DA(1),DA)="""""
^DD(52.2,8,1,1,2)="K ^PSRX(""AM"",$E(X,1,30),DA(1),DA)"
^DD(52.2,8,1,1,3)="This xref should not be deleted.  It is used by the Drug Accountability software (v2)."
^DD(52.2,8,1,1,"%D",0)="^^1^1^2930709^"
^DD(52.2,8,1,1,"%D",1,0)="This xref creates a 'AM' index on the release date."
^DD(52.2,8,1,1,"DT")="2930708"
^DD(52.2,8,3)="Enter date/time the medication was released."
^DD(52.2,8,21,0)="^^1^1^2930709^^^^"
^DD(52.2,8,21,1,0)="This field is used to show the date the medication was released."
^DD(52.2,8,23,0)="^^1^1^2930709^^^"
^DD(52.2,8,23,1,0)="date/time."
^DD(52.2,8,"DT")="2930709"
^DD(52.2,9,0)="BINGO WAIT TIME^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.2,9,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(52.2,9,21,0)="^^2^2^2970227^"
^DD(52.2,9,21,1,0)="This field specifies, in minutes, the total wait time for bingo board"
^DD(52.2,9,21,2,0)="purposes."
^DD(52.2,9,"DT")="2970227"
^DD(52.2,10,0)="FILLING PERSON^P200'^VA(200,^1;3^Q"
^DD(52.2,10,3)="Data not entered directly with FM."
^DD(52.2,10,21,0)="^^2^2^3040211^"
^DD(52.2,10,21,1,0)="The name of the person who scanned the barcode before dispensing a partial"
^DD(52.2,10,21,2,0)="medication request."
^DD(52.2,10,23,0)="^^1^1^3040211^"
^DD(52.2,10,23,1,0)="pointer"
^DD(52.2,10,"DT")="3040205"
^DD(52.2,11,0)="CHECKING PHARMACIST^P200'^VA(200,^1;4^Q"
^DD(52.2,11,3)="Data not entered directly with FM."
^DD(52.2,11,21,0)="^^1^1^3040211^"
^DD(52.2,11,21,1,0)="The name of the pharmacist that checked the partial medication request."
^DD(52.2,11,23,0)="^^1^1^3040211^"
^DD(52.2,11,23,1,0)="pointer"
^DD(52.2,11,"DT")="3040205"
^DD(52.2,12,0)="DRUG EXPIRATION DATE^D^^1;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.2,12,3)="Enter date the medication expires for this partial."
^DD(52.2,12,21,0)="^^2^2^3040205^"
^DD(52.2,12,21,1,0)="This field is used to show the date that the medication expires for this"
^DD(52.2,12,21,2,0)="partial fill."
^DD(52.2,12,"DT")="3040205"
^DD(52.2,"B","BINGO WAIT TIME",9)=""
^DD(52.2,"B","CHECKING PHARMACIST",11)=""
^DD(52.2,"B","CLERK CODE",.07)=""
^DD(52.2,"B","CURRENT UNIT PRICE OF DRUG",.042)=""
^DD(52.2,"B","DAYS SUPPLY",.041)=""
^DD(52.2,"B","DISPENSED DATE",7.5)=""
^DD(52.2,"B","DIVISION",.09)=""
^DD(52.2,"B","DRUG EXPIRATION DATE",12)=""
^DD(52.2,"B","FILLING PERSON",10)=""
^DD(52.2,"B","GENERIC PROVIDER",7)=""
^DD(52.2,"B","LOGIN DATE",.08)=""
^DD(52.2,"B","LOT #",.06)=""
^DD(52.2,"B","MAIL/WINDOW",.02)=""
^DD(52.2,"B","MANUFACTURER",2)=""
^DD(52.2,"B","NDC",1)=""
^DD(52.2,"B","PARTIAL DATE",.01)=""
^DD(52.2,"B","PHARMACIST NAME",.05)=""
^DD(52.2,"B","PROVIDER",6)=""
^DD(52.2,"B","QTY",.04)=""
^DD(52.2,"B","RELEASED DATE/TIME",8)=""
^DD(52.2,"B","REMARKS",.03)=""
^DD(52.2,"B","RETURNED TO STOCK",5)=""
^DD(52.2,"GL",0,1,.01)=""
^DD(52.2,"GL",0,2,.02)=""
^DD(52.2,"GL",0,3,.03)=""
^DD(52.2,"GL",0,4,.04)=""
^DD(52.2,"GL",0,5,.05)=""
^DD(52.2,"GL",0,6,.06)=""
^DD(52.2,"GL",0,7,.07)=""
^DD(52.2,"GL",0,8,.08)=""
^DD(52.2,"GL",0,9,.09)=""
^DD(52.2,"GL",0,10,.041)=""
^DD(52.2,"GL",0,11,.042)=""
^DD(52.2,"GL",0,12,1)=""
^DD(52.2,"GL",0,13,7.5)=""
^DD(52.2,"GL",0,16,5)=""
^DD(52.2,"GL",0,17,6)=""
^DD(52.2,"GL",0,18,7)=""
^DD(52.2,"GL",0,19,8)=""
^DD(52.2,"GL",1,1,2)=""
^DD(52.2,"GL",1,2,9)=""
^DD(52.2,"GL",1,3,10)=""
^DD(52.2,"GL",1,4,11)=""
^DD(52.2,"GL",1,5,12)=""
^DD(52.2,"IX",.01)=""
^DD(52.2,"IX",.09)=""
^DD(52.2,"IX",5)=""
^DD(52.2,"IX",8)=""
^DD(52.2,"RQ",.02)=""
^DD(52.2,"RQ",.03)=""
^DD(52.2,"RQ",.04)=""
^DD(52.2,"RQ",.05)=""
^DD(52.2,"RQ",.07)=""
^DD(52.2,"RQ",6)=""
^DD(52.25,0)="REJECT INFO SUB-FIELD^^23^28"
^DD(52.25,0,"DIK")="PSOXZA"
^DD(52.25,0,"DT")="3051114"
^DD(52.25,0,"IX","B",52.25,.01)=""
^DD(52.25,0,"NM","REJECT INFO")=""
^DD(52.25,0,"UP")="52"
^DD(52.25,.01,0)="NCPDP REJECT CODE^RFX^^0;1^K:$L(X)>4!($L(X)<1) X S DIC(0)=""QM"",DIC=""^BPSF(9002313.93,"" D ^DIC S X=$P(Y,U,2) K:Y<0 X"
^DD(52.25,.01,1,0)="^.1"
^DD(52.25,.01,1,1,0)="52.25^B"
^DD(52.25,.01,1,1,1)="S ^PSRX(DA(1),""REJ"",""B"",$E(X,1,30),DA)="""""
^DD(52.25,.01,1,1,2)="K ^PSRX(DA(1),""REJ"",""B"",$E(X,1,30),DA)"
^DD(52.25,.01,3)="Answer must be 1-4 characters in length."
^DD(52.25,.01,21,0)="^.001^1^1^3050629^^"
^DD(52.25,.01,21,1,0)="NCPDP Reject Code that indicates the reason for the claim rejection for this prescription."
^DD(52.25,.01,23,0)="^.001^1^1^3050629^^^"
^DD(52.25,.01,23,1,0)="Although this fields does not point to the BPS NCPDP REJECT CODES file (#9002313.93), the value should have a corresponding entry in that file."
^DD(52.25,.01,"DT")="3050629"
^DD(52.25,1,0)="DATE/TIME DETECTED^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(52.25,1,3)="Date/time when the reject was detected by Outpatient Pharmacy or CMOP."
^DD(52.25,1,21,0)="^^1^1^3050616^"
^DD(52.25,1,21,1,0)="Date/Time when the reject was detected by Outpatient Pharmacy."
^DD(52.25,1,"DT")="3051213"
^DD(52.25,2,0)="PAYER MESSAGE^F^^1;1^K:$L(X)>140!($L(X)<1) X"
^DD(52.25,2,3)="Answer must be 1-140 characters in length"
^DD(52.25,2,21,0)="^.001^1^1^3050616^^^^"
^DD(52.25,2,21,1,0)="Message from the 3r party payer regarding the rejection of the claim."
^DD(52.25,2,"DT")="3050616"
^DD(52.25,3,0)="REASON^F^^1;2^K:$L(X)>100!($L(X)<1) X"
^DD(52.25,3,3)="Answer must be 1-100 characters in length"
^DD(52.25,3,21,0)="^^1^1^3050616^"
^DD(52.25,3,21,1,0)="Reason why the claim is being rejected by the 3rd party payer."
^DD(52.25,3,"DT")="3050419"
^DD(52.25,4,0)="PHARMACIST^P200'^VA(200,^0;3^Q"
^DD(52.25,4,3)="Pharmacist using the Outpatient Pharmacy appliction when the REJECT was detected."
^DD(52.25,4,21,0)="^^1^1^3050616^"
^DD(52.25,4,21,1,0)="Pharmacist using the application when the reject was detected."
^DD(52.25,4,"DT")="3050419"
^DD(52.25,5,0)="FILL NUMBER^NJ2,0^^0;4^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""1.N) X"
^DD(52.25,5,3)="Type a number between 0 and 12, 0 Decimal Digits"
^DD(52.25,5,21,0)="^^1^1^3050616^"
^DD(52.25,5,21,1,0)="This field is used to indicate which fill the reject is related to."
^DD(52.25,5,"DT")="3050419"
^DD(52.25,6,0)="GROUP NAME^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^DD(52.25,6,3)="Answer must be 1-30 characters in length"
^DD(52.25,6,21,0)="^^1^1^3050616^"
^DD(52.25,6,21,1,0)="This is the patient's insurance group name."
^DD(52.25,6,"DT")="3050616"
^DD(52.25,7,0)="PLAN CONTACT^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(52.25,7,3)="Answer must be 1-30 characters in length"
^DD(52.25,7,21,0)="^^1^1^3050616^"
^DD(52.25,7,21,1,0)="This is the patient's insurance company contact information."
^DD(52.25,7,"DT")="3050616"
^DD(52.25,8,0)="PLAN PREVIOUS FILL DATE^D^^2;3^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(52.25,8,3)="(No range limit on date)"
^DD(52.25,8,21,0)="^^1^1^3050616^"
^DD(52.25,8,21,1,0)="In case of a REFILL TOO SOON reject (#79) and the payer returns the last date the prescription was filled, it will be stored on this field."
^DD(52.25,8,"DT")="3050502"
^DD(52.25,9,0)="STATUS^S^0:OPEN/UNRESOLVED;1:CLOSED/RESOLVED;^0;5^Q"
^DD(52.25,9,3)="Status of the REJECT. The null value is the same as 0 (zero)."
^DD(52.25,9,21,0)="^^1^1^3050616^"
^DD(52.25,9,21,1,0)="This field indicates whether the reject is OPEN/UNRESOLVED or CLOSED/RESOLVED."
^DD(52.25,9,"DT")="3050419"
^DD(52.25,10,0)="CLOSED DATE/TIME^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(52.25,10,3)="Date/time the Third Party Reject was closed (resolved) by the user."
^DD(52.25,10,21,0)="^^1^1^3050616^"
^DD(52.25,10,21,1,0)="Date/Time when the reject was marked CLOSED/RESOLVED."
^DD(52.25,10,"DT")="3050419"
^DD(52.25,11,0)="CLOSED BY^P200'^VA(200,^0;7^Q"
^DD(52.25,11,3)="User responsible for closing (resolving) the Third Party Reject."
^DD(52.25,11,21,0)="^^1^1^3050616^"
^DD(52.25,11,21,1,0)="User responsible for marking the reject CLOSED/RESOLVED."
^DD(52.25,11,"DT")="3050419"
^DD(52.25,12,0)="CLOSE REASON^S^1:CLAIM RE-SUBMITTED;2:RX ON HOLD;3:RX SUSPENDED;4:RX RETURNED TO STOCK;5:RX DELETED;6:IGNORED - NO RESUBMISSION;7:RX DISCONTINUED;8:RX EDITED;99:OTHER;^0;8^Q"
^DD(52.25,12,21,0)="^^1^1^3050616^"
^DD(52.25,12,21,1,0)="This field indicates the reason for marking the reject CLOSED/RESOLVED."
^DD(52.25,12,"DT")="3050708"
^DD(52.25,13,0)="CLOSE COMMENTS^F^^3;1^K:$L(X)>100!($L(X)<1) X"
^DD(52.25,13,3)="Answer must be 1-100 characters in length"
^DD(52.25,13,21,0)="^^1^1^3050616^"
^DD(52.25,13,21,1,0)="User entered comments."
^DD(52.25,13,"DT")="3050419"
^DD(52.25,14,0)="REASON FOR SERVICE CODE^F^^0;9^K:$L(X)>4!($L(X)<1) X"
^DD(52.25,14,3)="Answer must be 1-4 characters in length"
^DD(52.25,14,21,0)="^^1^1^3050616^"
^DD(52.25,14,21,1,0)="NCPDP field indicating the resason for service code. See NCPDP REASON FOR SERVICE CODE file (#9002313.23) for possible values."
^DD(52.25,14,"DT")="3050518"
^DD(52.25,15,0)="PROFESSIONAL SERVICE CODE^F^^0;10^K:$L(X)>4!($L(X)<1) X"
^DD(52.25,15,3)="Answer must be 1-4 characters in length"
^DD(52.25,15,21,0)="^.001^1^1^3050616^^"
^DD(52.25,15,21,1,0)="NCPDP field indicating the professional service code. See NCPDP PROFESSIONAL SERVICE CODE file (#9002313.21) for possible values."
^DD(52.25,15,"DT")="3050518"
^DD(52.25,16,0)="RESPONSE ID^NJ10,0^^0;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(52.25,16,3)="Type a number between 0 and 9999999999, 0 Decimal Digits"
^DD(52.25,16,21,0)="^^1^1^3050616^"
^DD(52.25,16,21,1,0)="This field is used to make sure the reject is recorded only once."
^DD(52.25,16,"DT")="3050512"
^DD(52.25,17,0)="OTHER REJECTS^F^^0;12^K:$L(X)>15!($L(X)<1) X"
^DD(52.25,17,3)="Answer must be 1-15 characters in length"
^DD(52.25,17,21,0)="^^1^1^3050616^"
^DD(52.25,17,21,1,0)="List of other reject codes that were returned at the same time."
^DD(52.25,17,"DT")="3050425"
^DD(52.25,18,0)="DUR TEXT^F^^4;1^K:$L(X)>100!($L(X)<1) X"
^DD(52.25,18,3)="Answer must be 1-100 characters in length"
^DD(52.25,18,21,0)="^^1^1^3050616^"
^DD(52.25,18,21,1,0)="In case of a DUR reject (#88) the 3rd party payer returns an explanation of the DUR (Drug Usability Review)."
^DD(52.25,18,"DT")="3050429"
^DD(52.25,19,0)="RESULT OF SERVICE CODE^F^^0;13^K:$L(X)>4!($L(X)<1) X"
^DD(52.25,19,3)="Answer must be 1-4 characters in length"
^DD(52.25,19,21,0)="^^1^1^3050616^"
^DD(52.25,19,21,1,0)="NCPDP field indicating the result of service code. See NCPDP RESULT OF SERVICE CODE file (#9002313.22) for possible values."
^DD(52.25,19,"DT")="3050518"
^DD(52.25,20,0)="INSURANCE NAME^F^^2;4^K:$L(X)>30!($L(X)<1) X"
^DD(52.25,20,3)="Answer must be 1-30 characters in length"
^DD(52.25,20,21,0)="^^1^1^3050616^"
^DD(52.25,20,21,1,0)="Patient's insurance company name."
^DD(52.25,20,"DT")="3050616"
^DD(52.25,21,0)="GROUP NUMBER^F^^2;5^K:$L(X)>30!($L(X)<1) X"
^DD(52.25,21,3)="Answer must be 1-30 characters in length"
^DD(52.25,21,21,0)="^^1^1^3050616^"
^DD(52.25,21,21,1,0)="Patient's insurance group number."
^DD(52.25,21,"DT")="3050616"
^DD(52.25,22,0)="CARDHOLDER ID^F^^2;6^K:$L(X)>20!($L(X)<1) X"
^DD(52.25,22,3)="Answer must be 1-20 characters in length"
^DD(52.25,22,21,0)="^.001^1^1^3050616^^"
^DD(52.25,22,21,1,0)="ID number assigned to Cardholder/Subscriber."
^DD(52.25,22,"DT")="3050616"
^DD(52.25,23,0)="RE-OPENED^S^1:YES;^0;14^Q"
^DD(52.25,23,21,0)="^^1^1^3051114^"
^DD(52.25,23,21,1,0)="This flag indicates that the user has manually re-opened another reject and this one was created."
^DD(52.25,23,23,0)="^^1^1^3051114^"
^DD(52.25,23,23,1,0)="In order to identify the original reject, use the RESPONSED ID field. It should match with the RESPONSED ID from the re-opened reject."
^DD(52.25,23,"DT")="3051114"
^DD(52.25,24,0)="CLARIFICATION CODE^S^0:NOT SPECIFIED;1:NO OVERRIDE;2:OTHER OVERRIDE;3:VACATION SUPPLY;4:LOST PRESCRIPTION;5:THERAPY CHANGE;6:STARTER DOSE;7:MEDICALLY NECESSARY;8:PROCESS COMPOUND;9:ENCOUNTERS;99:OTHER;^0;15^Q"
^DD(52.25,24,"DT")="3061108"
^DD(52.25,25,0)="PRIOR AUTHORIZATION TYPE^S^0:NOT SPECIFIED;1:PRIOR AUTHORIZATION;2:MEDICAL CERTIFICATION;3:EPSDT;4:EXEMPTION FROM COPAY;5:EXEMPTION FROM RX LIMITS;6:FAMILY PLANNING INDICATOR;7:AFDC;8:PAYER DEFINED EXEMPTION;^0;16^Q"
^DD(52.25,25,4)=""
^DD(52.25,25,21,0)="^^1^1^3070216^"
^DD(52.25,25,21,1,0)="NCPDP Prior Authorization Type."
^DD(52.25,25,"DT")="3070312"
^DD(52.25,26,0)="PRIOR AUTHORIZATION NUMBER^NJ12,0^^0;17^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(52.25,26,3)="Type a number between 0 and 999999999999, 0 Decimal Digits"
^DD(52.25,26,21,0)="^.001^1^1^3070508^^^"
^DD(52.25,26,21,1,0)="NCPDP Prior Authorization Number. This field may be left blank if the claim does not require a number."
^DD(52.25,26,"DT")="3070221"
^DD(52.25,51,0)="COMMENTS^52.2551DA^^COM;0"
^DD(52.25,"B","CARDHOLDER ID",22)=""
^DD(52.25,"B","CLARIFICATION CODE",24)=""
^DD(52.25,"B","CLOSE COMMENTS",13)=""
^DD(52.25,"B","CLOSE REASON",12)=""
^DD(52.25,"B","CLOSED BY",11)=""
^DD(52.25,"B","CLOSED DATE/TIME",10)=""
^DD(52.25,"B","COMMENTS",51)=""
^DD(52.25,"B","DATE/TIME DETECTED",1)=""
^DD(52.25,"B","DUR TEXT",18)=""
^DD(52.25,"B","FILL NUMBER",5)=""
^DD(52.25,"B","GROUP NAME",6)=""
^DD(52.25,"B","GROUP NUMBER",21)=""
^DD(52.25,"B","INSURANCE NAME",20)=""
^DD(52.25,"B","NCPDP REJECT CODE",.01)=""
^DD(52.25,"B","OTHER REJECTS",17)=""
^DD(52.25,"B","PAYER MESSAGE",2)=""
^DD(52.25,"B","PHARMACIST",4)=""
^DD(52.25,"B","PLAN CONTACT",7)=""
^DD(52.25,"B","PLAN PREVIOUS FILL DATE",8)=""
^DD(52.25,"B","PRIOR AUTHORIZATION NUMBER",26)=""
^DD(52.25,"B","PRIOR AUTHORIZATION TYPE",25)=""
^DD(52.25,"B","PROFESSIONAL SERVICE CODE",15)=""
^DD(52.25,"B","RE-OPENED",23)=""
^DD(52.25,"B","REASON",3)=""
^DD(52.25,"B","REASON FOR SERVICE CODE",14)=""
^DD(52.25,"B","RESPONSE ID",16)=""
^DD(52.25,"B","RESULT OF SERVICE CODE",19)=""
^DD(52.25,"B","STATUS",9)=""
^DD(52.25,"GL",0,1,.01)=""
^DD(52.25,"GL",0,2,1)=""
^DD(52.25,"GL",0,3,4)=""
^DD(52.25,"GL",0,4,5)=""
^DD(52.25,"GL",0,5,9)=""
^DD(52.25,"GL",0,6,10)=""
^DD(52.25,"GL",0,7,11)=""
^DD(52.25,"GL",0,8,12)=""
^DD(52.25,"GL",0,9,14)=""
^DD(52.25,"GL",0,10,15)=""
^DD(52.25,"GL",0,11,16)=""
^DD(52.25,"GL",0,12,17)=""
^DD(52.25,"GL",0,13,19)=""
^DD(52.25,"GL",0,14,23)=""
^DD(52.25,"GL",0,15,24)=""
^DD(52.25,"GL",0,16,25)=""
^DD(52.25,"GL",0,17,26)=""
^DD(52.25,"GL",1,1,2)=""
^DD(52.25,"GL",1,2,3)=""
^DD(52.25,"GL",2,1,6)=""
^DD(52.25,"GL",2,2,7)=""
^DD(52.25,"GL",2,3,8)=""
^DD(52.25,"GL",2,4,20)=""
^DD(52.25,"GL",2,5,21)=""
^DD(52.25,"GL",2,6,22)=""
^DD(52.25,"GL",3,1,13)=""
^DD(52.25,"GL",4,1,18)=""
^DD(52.25,"GL","COM",0,51)=""
^DD(52.25,"IX",.01)=""
^DD(52.25,"RQ",.01)=""
^DD(52.25,"SB",52.2551,51)=""
^DD(52.2551,0)="COMMENTS SUB-FIELD^^2^3"
^DD(52.2551,0,"DIK")="PSOXZA"
^DD(52.2551,0,"DT")="3061103"
^DD(52.2551,0,"IX","B",52.2551,.01)=""
^DD(52.2551,0,"NM","COMMENTS")=""
^DD(52.2551,0,"UP")="52.25"
^DD(52.2551,.01,0)="DATE/TIME^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(52.2551,.01,1,0)="^.1"
^DD(52.2551,.01,1,1,0)="52.2551^B"
^DD(52.2551,.01,1,1,1)="S ^PSRX(DA(2),""REJ"",DA(1),""COM"",""B"",$E(X,1,30),DA)="""""
^DD(52.2551,.01,1,1,2)="K ^PSRX(DA(2),""REJ"",DA(1),""COM"",""B"",$E(X,1,30),DA)"
^DD(52.2551,.01,3)="(No range limit on date)"
^DD(52.2551,.01,21,0)="^.001^1^1^3061102^^"
^DD(52.2551,.01,21,1,0)="Reject comment"
^DD(52.2551,.01,23,0)="^^1^1^3061102^"
^DD(52.2551,.01,23,1,0)="Date and Time"
^DD(52.2551,.01,"DT")="3061103"
^DD(52.2551,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(52.2551,1,3)="Enter the user who makes the comment."
^DD(52.2551,1,21,0)="^^1^1^3061102^"
^DD(52.2551,1,21,1,0)="The user who makes the comment."
^DD(52.2551,1,"DT")="3061102"
^DD(52.2551,2,0)="COMMENTS^F^^0;3^K:$L(X)>150!($L(X)<1) X"
^DD(52.2551,2,3)="Answer must be 1-150 characters in length."
^DD(52.2551,2,21,0)="^^1^1^3061102^"
^DD(52.2551,2,21,1,0)="Reject comment."
^DD(52.2551,2,"DT")="3061103"
^DD(52.2551,"B","COMMENTS",2)=""
^DD(52.2551,"B","DATE/TIME",.01)=""
^DD(52.2551,"B","USER",1)=""
^DD(52.2551,"GL",0,1,.01)=""
^DD(52.2551,"GL",0,2,1)=""
^DD(52.2551,"GL",0,3,2)=""
^DD(52.2551,"IX",.01)=""
^DD(52.3,0)="ACTIVITY LOG SUB-FIELD^NL^4^9"
^DD(52.3,0,"DT")="3010205"
^DD(52.3,0,"NM","ACTIVITY LOG")=""
^DD(52.3,0,"UP")="52"
^DD(52.3,.01,0)="ACTIVITY LOG^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.3,.01,1,0)="^.1^^0"
^DD(52.3,.01,21,0)="^.001^1^1^3000607^^^"
^DD(52.3,.01,21,1,0)="Date when activity occured."
^DD(52.3,.01,23,0)="^.001^1^1^3000607^^^"
^DD(52.3,.01,23,1,0)="Date (Multiply asked)."
^DD(52.3,.01,"DT")="2920428"
^DD(52.3,.02,0)="REASON^S^H:HOLD;U:UNHOLD;C:DISCONTINUED;E:EDIT;L:RENEWED;P:PARTIAL;R:REINSTATE;W:REPRINT;S:SUSPENDED;I:RETURNED;V:INTERVENTION;D:DELETED;A:DRUG INTERACTION;B:PROCESSED;X:INTERFACE;G:PATIENT INST;K:PKI/DEA;N:DISPENSE COMPLETION;M:ECME;^0;2^Q"
^DD(52.3,.02,3)="Enter code to indicate the activity taking place for this prescription."
^DD(52.3,.02,21,0)="^.001^1^1^3050621^^^^"
^DD(52.3,.02,21,1,0)="What was done that caused activity to happen."
^DD(52.3,.02,23,0)="^.001^9^9^3050621^^^^"
^DD(52.3,.02,23,1,0)="Set 'H' for Hold, 'U' for Unhold, 'C' for Discontinued, 'E' for Edit,"
^DD(52.3,.02,23,2,0)="'L' for Lost, 'P' for Partial, 'R' for Reinstate, 'W' for Reprint,"
^DD(52.3,.02,23,3,0)="'S' for Suspended, 'I' for Returned to Stock, 'V' for Intervention"
^DD(52.3,.02,23,4,0)="'D' for Deleted, 'A' for Pending due to drug interactions, 'B' for Unpending."
^DD(52.3,.02,23,5,0)="X will stand for External Interface, 'G' will indicate if patient"
^DD(52.3,.02,23,6,0)="instructions was added when the order was received from CPRS. 'K' for "
^DD(52.3,.02,23,7,0)="PKI Certificate regarding digitally signed orders, introduced for the"
^DD(52.3,.02,23,8,0)="PKI/DEA project, 'N' will indicate that an Rx was dispensed by an external"
^DD(52.3,.02,23,9,0)="interface. 'M' indicates an ECME activity (3rd Party Billing)."
^DD(52.3,.02,"DT")="3050621"
^DD(52.3,.03,0)="INITIATOR OF ACTIVITY^P200'^VA(200,^0;3^Q"
^DD(52.3,.03,3)=""
^DD(52.3,.03,21,0)="^^1^1^2960903^^^^"
^DD(52.3,.03,21,1,0)="The name of the person entering an activity is entered."
^DD(52.3,.03,23,0)="^^1^1^2960903^^^^"
^DD(52.3,.03,23,1,0)="With the release of v7 this field will no longer require data."
^DD(52.3,.03,"DT")="2960903"
^DD(52.3,.04,0)="RX REFERENCE^NJ2,0OI^^0;4^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.3,.04,2)="S Y(0)=Y S Y=$S(Y=6:""PARTIAL"",Y>0&(Y<6):""REFILL #""_Y,Y>6:""REFILL #""_(Y-1),1:""ORIGINAL"")"
^DD(52.3,.04,2.1)="S Y=$S(Y=6:""PARTIAL"",Y>0&(Y<6):""REFILL #""_Y,Y>6:""REFILL #""_(Y-1),1:""ORIGINAL"")"
^DD(52.3,.04,3)="Type a Number between 0 and 12, 0 Decimal Digits"
^DD(52.3,.04,21,0)="^^1^1^2940815^^^^"
^DD(52.3,.04,21,1,0)="This field is used to indicate which fill the activity took place."
^DD(52.3,.04,23,0)="^^4^4^2940815^^^^"
^DD(52.3,.04,23,1,0)="0 indicates the Original fill, 1-5 is for refills, 6 for partial, and"
^DD(52.3,.04,23,2,0)="7-12 indicates refill."
^DD(52.3,.04,23,3,0)=" "
^DD(52.3,.04,23,4,0)=" "
^DD(52.3,.04,"DT")="2940817"
^DD(52.3,.05,0)="COMMENT^RF^^0;5^K:$L(X)>75!($L(X)<1) X"
^DD(52.3,.05,3)="ANSWER MUST BE 1-75 CHARACTERS IN LENGTH"
^DD(52.3,.05,21,0)="^^1^1^2920115^"
^DD(52.3,.05,21,1,0)="Any additional comments."
^DD(52.3,.05,23,0)="^^1^1^2920115^"
^DD(52.3,.05,23,1,0)="(Required) Free Text."
^DD(52.3,.05,"DT")="2820901"
^DD(52.3,1,0)="FIELD EDITED^F^^1;1^K:$L(X)>25!($L(X)<5) X"
^DD(52.3,1,3)="Enter the name of the field that was edited.  Answer must be 5-25 characters in length."
^DD(52.3,1,21,0)="^^2^2^2920305^"
^DD(52.3,1,21,1,0)="This field is used to indicate any editing to a data field of a presciption."
^DD(52.3,1,21,2,0)="This field will contain the name of the field edited."
^DD(52.3,1,"DT")="2920305"
^DD(52.3,2,0)="OLD VALUE^F^^1;2^K:$L(X)>25!($L(X)<1) X"
^DD(52.3,2,3)="Enter the old value of the edited field of the RX.  Answer must be 1-25 characters in length."
^DD(52.3,2,21,0)="^^1^1^2930316^^"
^DD(52.3,2,21,1,0)="This field is used to show the old value of an edited field."
^DD(52.3,2,"DT")="2920305"
^DD(52.3,3,0)="NEW VALUE^F^^1;3^K:$L(X)>25!($L(X)<1) X"
^DD(52.3,3,3)="Enter the new value of the edited field of the RX.  Answer must be 1-25 characters in length."
^DD(52.3,3,21,0)="^^1^1^2920305^"
^DD(52.3,3,21,1,0)="This field is ued to show the new value of an edited field of a RX."
^DD(52.3,4,0)="OTHER COMMENTS^52.34A^^2;0"
^DD(52.3,"B","ACTIVITY LOG",.01)=""
^DD(52.3,"B","COMMENT",.05)=""
^DD(52.3,"B","FIELD EDITED",1)=""
^DD(52.3,"B","INITIATOR OF ACTIVITY",.03)=""
^DD(52.3,"B","NEW VALUE",3)=""
^DD(52.3,"B","OLD VALUE",2)=""
^DD(52.3,"B","OTHER COMMENTS",4)=""
^DD(52.3,"B","REASON",.02)=""
^DD(52.3,"B","RX REFERENCE",.04)=""
^DD(52.3,"GL",0,1,.01)=""
^DD(52.3,"GL",0,2,.02)=""
^DD(52.3,"GL",0,3,.03)=""
^DD(52.3,"GL",0,4,.04)=""
^DD(52.3,"GL",0,5,.05)=""
^DD(52.3,"GL",1,1,1)=""
^DD(52.3,"GL",1,2,2)=""
^DD(52.3,"GL",1,3,3)=""
^DD(52.3,"GL",2,0,4)=""
^DD(52.3,"RQ",.05)=""
^DD(52.3,"SB",52.34,4)=""
^DD(52.34,0)="OTHER COMMENTS SUB-FIELD^^.01^1"
^DD(52.34,0,"DT")="3000607"
^DD(52.34,0,"NM","OTHER COMMENTS")=""
^DD(52.34,0,"UP")="52.3"
^DD(52.34,.01,0)="OTHER COMMENTS^F^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(52.34,.01,1,0)="^.1^^0"
^DD(52.34,.01,3)="Answer must be 1-200 characters in length."
^DD(52.34,.01,21,0)="^^2^2^3000607^"
^DD(52.34,.01,21,1,0)="This field will be used to store original front door medication instructions"
^DD(52.34,.01,21,2,0)="for Pre-POE Rxs."
^DD(52.34,.01,"DT")="3000607"
^DD(52.34,"B","OTHER COMMENTS",.01)=""
^DD(52.34,"GL",0,1,.01)=""
^DD(52.4,0)="FIELD^^7.2^10"
^DD(52.4,0,"DDA")="N"
^DD(52.4,0,"DT")="2920629"
^DD(52.4,0,"IX","ADI",52.4,7)=""
^DD(52.4,0,"IX","B",52.4,.01)=""
^DD(52.4,0,"IX","C",52.4,1)=""
^DD(52.4,0,"IX","D",52.4,2)=""
^DD(52.4,0,"IX","LD",52.4,4)=""
^DD(52.4,0,"NM","RX VERIFY")=""
^DD(52.4,0,"VR")="7.0"
^DD(52.4,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.4,.01,0)="RX#^RP52'X^PSRX(^0;1^S DINUM=X Q"
^DD(52.4,.01,1,0)="^.1^^-1"
^DD(52.4,.01,1,1,0)="52.4^B"
^DD(52.4,.01,1,1,1)="S ^PS(52.4,""B"",$E(X,1,30),DA)="""""
^DD(52.4,.01,1,1,2)="K ^PS(52.4,""B"",$E(X,1,30),DA)"
^DD(52.4,.01,1,1,3)="Do not delete."
^DD(52.4,.01,1,1,"%D",0)="^^1^1^2930323^^"
^DD(52.4,.01,1,1,"%D",1,0)="This cross reference lists the Rx# then interal entry number."
^DD(52.4,.01,3)="Prescription number of Non-Verified script"
^DD(52.4,.01,21,0)="^^1^1^2930405^^^^"
^DD(52.4,.01,21,1,0)="This refers back to the prescription number within the PRESCRIPTION file."
^DD(52.4,.01,"DT")="2920612"
^DD(52.4,1,0)="PATIENT NAME^P2'^DPT(^0;2^Q"
^DD(52.4,1,1,0)="^.1^^-1"
^DD(52.4,1,1,1,0)="52.4^C"
^DD(52.4,1,1,1,1)="S ^PS(52.4,""C"",$E(X,1,30),DA)="""""
^DD(52.4,1,1,1,2)="K ^PS(52.4,""C"",$E(X,1,30),DA)"
^DD(52.4,1,3)="Enter name of patient."
^DD(52.4,1,21,0)="^^1^1^2930405^^^^"
^DD(52.4,1,21,1,0)="This field is used to store the patient's name."
^DD(52.4,1,23,0)="^^1^1^2930405^^^"
^DD(52.4,1,23,1,0)="pointer."
^DD(52.4,1,"DT")="2930311"
^DD(52.4,2,0)="CLERK^P200'^VA(200,^0;3^Q"
^DD(52.4,2,1,0)="^.1^^-1"
^DD(52.4,2,1,1,0)="52.4^D"
^DD(52.4,2,1,1,1)="S ^PS(52.4,""D"",$E(X,1,30),DA)="""""
^DD(52.4,2,1,1,2)="K ^PS(52.4,""D"",$E(X,1,30),DA)"
^DD(52.4,2,21,0)="1^^1^1^2920612^^^^"
^DD(52.4,2,21,1,0)="Respond by entering the name of the clerk who entered the prescription."
^DD(52.4,2,"DT")="2920629"
^DD(52.4,3,0)="RENEWED FROM RX#^P52'^PSRX(^0;4^Q"
^DD(52.4,3,3)="Enter the prescription number FROM which the prescription was renewed."
^DD(52.4,3,21,0)="^^1^1^2930316^^^"
^DD(52.4,3,21,1,0)="This field is used to enter the Rx number from which the Rx was renewed."
^DD(52.4,4,0)="LOGIN DATE^RD^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(52.4,4,1,0)="^.1"
^DD(52.4,4,1,1,0)="52.4^LD"
^DD(52.4,4,1,1,1)="S ^PS(52.4,""LD"",$E(X,1,30),DA)="""""
^DD(52.4,4,1,1,2)="K ^PS(52.4,""LD"",$E(X,1,30),DA)"
^DD(52.4,4,21,0)="^^1^1^2920127^^"
^DD(52.4,4,21,1,0)="This field is used to enter the date when the data was entered."
^DD(52.4,4,"DT")="2860418"
^DD(52.4,5,0)="PSORXD0^FI^^0;6^K:$L(X)>35!($L(X)<1) X"
^DD(52.4,5,3)="ANSWER MUST BE 1-35 CHARACTERS IN LENGTH"
^DD(52.4,5,21,0)="^^1^1^2920130^"
^DD(52.4,5,21,1,0)="This field is currently not in use."
^DD(52.4,5,"DT")="2861021"
^DD(52.4,6,0)="PSORXEXP^FI^^0;7^K:$L(X)>12!($L(X)<1) X"
^DD(52.4,6,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(52.4,6,21,0)="^^1^1^2920130^"
^DD(52.4,6,21,1,0)="This field is currently not in use."
^DD(52.4,6,"DT")="2861021"
^DD(52.4,7,0)="DRUG INTERACTION^SX^1:YES;0:NO;^0;8^K:'$G(PSODI) X"
^DD(52.4,7,1,0)="^.1"
^DD(52.4,7,1,1,0)="52.4^ADI^MUMPS"
^DD(52.4,7,1,1,1)="S:X=1 ^PS(52.4,""ADI"",DA,X)="""""
^DD(52.4,7,1,1,2)="K:X=1 ^PS(52.4,""ADI"",DA,X)"
^DD(52.4,7,1,1,3)="do not delete!!"
^DD(52.4,7,1,1,"%D",0)="^^2^2^2971022^^^^"
^DD(52.4,7,1,1,"%D",1,0)="This cross reference is to be use to index medication that has drug/drug"
^DD(52.4,7,1,1,"%D",2,0)="interactions. It sets the global ^PS(52.4,""ADI"",DA,Drug Interaction)=""""."
^DD(52.4,7,1,1,"DT")="2920629"
^DD(52.4,7,3)="Data not entered directly with file manager."
^DD(52.4,7,20,0)="^.3LA^1^1"
^DD(52.4,7,20,1,0)="PSO"
^DD(52.4,7,21,0)="^^3^3^2930316^^^"
^DD(52.4,7,21,1,0)="This field will be used to indicate if a drug/drug interaction was"
^DD(52.4,7,21,2,0)="encountered from new order entry or editing of a drug in an active"
^DD(52.4,7,21,3,0)="Rx."
^DD(52.4,7,23,0)="^^1^1^2930316^^^"
^DD(52.4,7,23,1,0)="set of codes."
^DD(52.4,7,"DT")="2920629"
^DD(52.4,7.1,0)="SEVERITY^FX^^0;9^K:$L(X)>30!($L(X)<1)!('$G(PSODI)) X"
^DD(52.4,7.1,3)="Answer must be 1-30 characters in length."
^DD(52.4,7.1,20,0)="^.3LA^1^1"
^DD(52.4,7.1,20,1,0)="PSO"
^DD(52.4,7.1,21,0)="^^4^4^2930316^^^"
^DD(52.4,7.1,21,1,0)="This field is used to store the pointer values of the interactions"
^DD(52.4,7.1,21,2,0)="encountered.  Data is stored in the form of a string, i.e., 23,43,56."
^DD(52.4,7.1,21,3,0)="Each number will represent the drug/drug interaction found in file #56."
^DD(52.4,7.1,21,4,0)="Data is not added directly with file manager."
^DD(52.4,7.1,23,0)="^^1^1^2930316^^"
^DD(52.4,7.1,23,1,0)="free text."
^DD(52.4,7.1,"DT")="2920629"
^DD(52.4,7.2,0)="AFFECTED MEDICATION^FX^^0;10^K:$L(X)>120!($L(X)<1)!('$G(PSODI)) X"
^DD(52.4,7.2,3)="Answer must be 1-120 characters in length."
^DD(52.4,7.2,20,0)="^.3LA^1^1"
^DD(52.4,7.2,20,1,0)="PSO"
^DD(52.4,7.2,21,0)="^^2^2^2921210^^^"
^DD(52.4,7.2,21,1,0)="This field is used to store the active medication pointer numbers"
^DD(52.4,7.2,21,2,0)="that are considered to be a drug interaction."
^DD(52.4,7.2,23,0)="^^1^1^2921210^^^"
^DD(52.4,7.2,23,1,0)="free text."
^DD(52.4,7.2,"DT")="2920629"
^DD(52.4,"B","AFFECTED MEDICATION",7.2)=""
^DD(52.4,"B","CLERK",2)=""
^DD(52.4,"B","DRUG INTERACTION",7)=""
^DD(52.4,"B","LOGIN DATE",4)=""
^DD(52.4,"B","PATIENT NAME",1)=""
^DD(52.4,"B","PSORXD0",5)=""
^DD(52.4,"B","PSORXEXP",6)=""
^DD(52.4,"B","RENEWED FROM RX#",3)=""
^DD(52.4,"B","RX#",.01)=""
^DD(52.4,"B","SEVERITY",7.1)=""
^DD(52.4,"GL",0,1,.01)=""
^DD(52.4,"GL",0,2,1)=""
^DD(52.4,"GL",0,3,2)=""
^DD(52.4,"GL",0,4,3)=""
^DD(52.4,"GL",0,5,4)=""
^DD(52.4,"GL",0,6,5)=""
^DD(52.4,"GL",0,7,6)=""
^DD(52.4,"GL",0,8,7)=""
^DD(52.4,"GL",0,9,7.1)=""
^DD(52.4,"GL",0,10,7.2)=""
^DD(52.4,"GR","PSO",7,1)=""
^DD(52.4,"GR","PSO",7.1,1)=""
^DD(52.4,"GR","PSO",7.2,1)=""
^DD(52.4,"IX",.01)=""
^DD(52.4,"IX",1)=""
^DD(52.4,"IX",2)=""
^DD(52.4,"IX",4)=""
^DD(52.4,"IX",7)=""
^DD(52.4,"RQ",.01)=""
^DD(52.4,"RQ",4)=""
^DD(52.41,0)="FIELD^^311^46"
^DD(52.41,0,"DDA")="N"
^DD(52.41,0,"DT")="2971121"
^DD(52.41,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(52.41,0,"IX","AC",52.41,19)=""
^DD(52.41,0,"IX","AD",52.41,15)=""
^DD(52.41,0,"IX","AE",52.41,100)=""
^DD(52.41,0,"IX","AF",52.41,1.1)=""
^DD(52.41,0,"IX","AG",52.41,15)=""
^DD(52.41,0,"IX","AOR",52.41,2)=""
^DD(52.41,0,"IX","AOR1",52.41,100)=""
^DD(52.41,0,"IX","AP",52.41,25)=""
^DD(52.41,0,"IX","APSOD",52.41,1)=""
^DD(52.41,0,"IX","AQ",52.41,22.1)=""
^DD(52.41,0,"IX","ARF",52.41,21)=""
^DD(52.41,0,"IX","B",52.41,.01)=""
^DD(52.41,0,"IX","HL",52.41,1.1)=""
^DD(52.41,0,"IX","HLP",52.41,1.1)=""
^DD(52.41,0,"IX","P",52.41,1)=""
^DD(52.41,0,"IX","PN",52.41,1)=""
^DD(52.41,0,"NM","PENDING OUTPATIENT ORDERS")=""
^DD(52.41,0,"VR")="7.0"
^DD(52.41,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.41,.01,0)="PLACER NUMBER^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(52.41,.01,1,0)="^.1"
^DD(52.41,.01,1,1,0)="52.41^B"
^DD(52.41,.01,1,1,1)="S ^PS(52.41,""B"",$E(X,1,30),DA)="""""
^DD(52.41,.01,1,1,2)="K ^PS(52.41,""B"",$E(X,1,30),DA)"
^DD(52.41,.01,3)="Answer must be 1-30 characters in length."
^DD(52.41,.01,20,0)="^.3LA^1^1"
^DD(52.41,.01,20,1,0)="PSO"
^DD(52.41,.01,21,0)="^.001^7^7^3020716^^"
^DD(52.41,.01,21,1,0)="This field contains the internal number of the order from the ORDER file"
^DD(52.41,.01,21,2,0)="(#100), representing the corresponding Computerized Patient Record System "
^DD(52.41,.01,21,3,0)="(CPRS) order to this pending Outpatient Pharmacy order. This field also "
^DD(52.41,.01,21,4,0)="acts as a temporary holding place for any external system order number,"
^DD(52.41,.01,21,5,0)="for orders received from any external system. An external system order"
^DD(52.41,.01,21,6,0)="number will only be stored here temporarily, until the CPRS order number"
^DD(52.41,.01,21,7,0)="is received to replace the external system order number."
^DD(52.41,.01,23,0)="^.001^7^7^3020716^^"
^DD(52.41,.01,23,1,0)="This field holds either the Computerized Patient Record System (CPRS)"
^DD(52.41,.01,23,2,0)="order number, or an external system order number. If this field is"
^DD(52.41,.01,23,3,0)="populated with an external system order number, it will only be populated"
^DD(52.41,.01,23,4,0)="with that number temporarily, because as soon as that order is received,"
^DD(52.41,.01,23,5,0)="the order is then sent to CPRS, and CPRS will return to Pharmacy a CPRS"
^DD(52.41,.01,23,6,0)="order number, and that number will then replace the external system order"
^DD(52.41,.01,23,7,0)="number."
^DD(52.41,.01,"DT")="3020716"
^DD(52.41,1,0)="PATIENT^RP2'I^DPT(^0;2^Q"
^DD(52.41,1,1,0)="^.1"
^DD(52.41,1,1,1,0)="52.41^P"
^DD(52.41,1,1,1,1)="S ^PS(52.41,""P"",$E(X,1,30),DA)="""""
^DD(52.41,1,1,1,2)="K ^PS(52.41,""P"",$E(X,1,30),DA)"
^DD(52.41,1,1,1,3)="Do not delete."
^DD(52.41,1,1,1,"DT")="2950110"
^DD(52.41,1,1,2,0)="52.41^PN^MUMPS"
^DD(52.41,1,1,2,1)="S ^PS(52.41,""PN"",$P(^DPT($P(^PS(52.41,DA,0),""^"",2),0),""^""),DA)="""""
^DD(52.41,1,1,2,2)="K ^PS(52.41,""PN"",$P(^DPT($P(^PS(52.41,DA,0),""^"",2),0),""^""),DA)"
^DD(52.41,1,1,2,3)="Do Not delete."
^DD(52.41,1,1,2,"%D",0)="^^2^2^2971022^^^^"
^DD(52.41,1,1,2,"%D",1,0)="This xref is used to index file by patient's name."
^DD(52.41,1,1,2,"%D",2,0)="It sets the global ^PS(52.41,""PN"",Patient Name,DA)=""""."
^DD(52.41,1,1,2,"DT")="2950112"
^DD(52.41,1,1,3,0)="52.41^APSOD^MUMPS"
^DD(52.41,1,1,3,1)="S:$G(PSODEATH) ^PS(52.41,""APSOD"",X,DA)="""""
^DD(52.41,1,1,3,2)="K:$G(PSODEATH) ^PS(52.41,""APSOD"",X,DA)"
^DD(52.41,1,1,3,3)="Do not delete."
^DD(52.41,1,1,3,"%D",0)="^^3^3^3020515^"
^DD(52.41,1,1,3,"%D",1,0)="This xref will be set only when a date of death is entered. This xref will"
^DD(52.41,1,1,3,"%D",2,0)="allow pending orders to be reinstated if a date of death is entered in"
^DD(52.41,1,1,3,"%D",3,0)="error. ^PS(52.41,""APSOD"",patient pointer,da)"
^DD(52.41,1,1,3,"DT")="3020515"
^DD(52.41,1,3)=""
^DD(52.41,1,21,0)="^^1^1^2971021^^^^"
^DD(52.41,1,21,1,0)="This is the pointer to the Patient file."
^DD(52.41,1,"DT")="3020515"
^DD(52.41,1.1,0)="PATIENT LOCATION^P44'^SC(^0;13^Q"
^DD(52.41,1.1,1,0)="^.1"
^DD(52.41,1.1,1,1,0)="52.41^HL"
^DD(52.41,1.1,1,1,1)="S ^PS(52.41,""HL"",$E(X,1,30),DA)="""""
^DD(52.41,1.1,1,1,2)="K ^PS(52.41,""HL"",$E(X,1,30),DA)"
^DD(52.41,1.1,1,1,3)="Do not Delete."
^DD(52.41,1.1,1,1,"DT")="2950111"
^DD(52.41,1.1,1,2,0)="52.41^HLP^MUMPS"
^DD(52.41,1.1,1,2,1)="S ^PS(52.41,""HLP"",X,$P(^PS(52.41,DA,0),""^"",2),DA)="""""
^DD(52.41,1.1,1,2,2)="K ^PS(52.41,""HLP"",X,$P(^PS(52.41,DA,0),""^"",2),DA)"
^DD(52.41,1.1,1,2,3)="Do not delete"
^DD(52.41,1.1,1,2,"%D",0)="^^2^2^2971022^^"
^DD(52.41,1.1,1,2,"%D",1,0)="This cross reference is used to sort Pending orders by Clinic/Patient."
^DD(52.41,1.1,1,2,"%D",2,0)="It sets the global ^PS(52.41,""HLP"",Patient Location,Patient Pointer,DA)=""""."
^DD(52.41,1.1,1,2,"DT")="2950112"
^DD(52.41,1.1,1,3,0)="52.41^AF^MUMPS"
^DD(52.41,1.1,1,3,1)="I $P(^PS(52.41,DA,0),""^"",3)=""NW""!($P(^(0),""^"",3)=""RNW"")!($P(^(0),""^"",3)=""RF""),$P(^(0),""^"",12) S ^PS(52.41,""ACL"",X,$P(^PS(52.41,DA,0),""^"",12),DA)="""""
^DD(52.41,1.1,1,3,2)="I $P(^PS(52.41,DA,0),""^"",12) K ^PS(52.41,""ACL"",X,$P(^PS(52.41,DA,0),""^"",12),DA)"
^DD(52.41,1.1,1,3,"%D",0)="^^4^4^2981106^^^^"
^DD(52.41,1.1,1,3,"%D",1,0)="This cross reference is used to index Pending Orders by Patient Location"
^DD(52.41,1.1,1,3,"%D",2,0)="and by Login date/time, to allow orders to be finished in a first in/first"
^DD(52.41,1.1,1,3,"%D",3,0)="out order by Clinic. This cross reference sets the global"
^DD(52.41,1.1,1,3,"%D",4,0)="^PS(52.41,""ACL"",PATIENT LOCATION,LOGIN DATE,DA)=""""."
^DD(52.41,1.1,1,3,"DT")="2981106"
^DD(52.41,1.1,21,0)="^^1^1^2971021^"
^DD(52.41,1.1,21,1,0)="This is the pointer to the Hospital Location file."
^DD(52.41,1.1,"DT")="2981106"
^DD(52.41,2,0)="ORDER TYPE^RS^NW:NEW ORDER;HD:HOLD;RNW:RENEW;DE:DISCONTINUED (EDIT);DC:DISCONTINUED;RF:REFILL REQUEST;^0;3^Q"
^DD(52.41,2,1,0)="^.1^^-1"
^DD(52.41,2,1,1,0)="52.41^AOR^MUMPS"
^DD(52.41,2,1,1,1)="I X=""NW""!(X=""RNW"")!(X=""RF""),$P($G(^PS(52.41,DA,""INI"")),""^"") S ^PS(52.41,""AOR"",$P(^PS(52.41,DA,0),""^"",2),$P(^(""INI""),""^""),DA)="""""
^DD(52.41,2,1,1,2)="I $P($G(^PS(52.41,DA,""INI"")),""^"") K ^PS(52.41,""AOR"",$P(^PS(52.41,DA,0),""^"",2),$P(^(""INI""),""^""),DA)"
^DD(52.41,2,1,1,3)="do not delete."
^DD(52.41,2,1,1,"%D",0)="^^2^2^2971121^^^^"
^DD(52.41,2,1,1,"%D",1,0)="This xref is used to process pending orders. It sets the global"
^DD(52.41,2,1,1,"%D",2,0)="^PS(52.41,""AOR"",Patient Pointer,Related Institution,DA)=""""."
^DD(52.41,2,1,1,"DT")="2971121"
^DD(52.41,2,20,0)="^.3LA^1^1"
^DD(52.41,2,20,1,0)="PSO"
^DD(52.41,2,21,0)="^^1^1^2971121^^^"
^DD(52.41,2,21,1,0)="This field describes the status of the Pending order."
^DD(52.41,2,23,0)="^^1^1^2971121^"
^DD(52.41,2,23,1,0)="set of codes."
^DD(52.41,2,"DT")="2971121"
^DD(52.41,3,0)="QUANTITY TIMING SUB-FILE^52.413A^^1;0"
^DD(52.41,3,20,0)="^.3LA^1^1"
^DD(52.41,3,20,1,0)="PSO"
^DD(52.41,3,21,0)="^^3^3^2971021^^^^"
^DD(52.41,3,21,1,0)="This sub-file is used to store the quantity timing field from the ORC"
^DD(52.41,3,21,2,0)="segment from CPRS. The components are used to build a Possible Sig for"
^DD(52.41,3,21,3,0)="the finish process in Pharmacy."
^DD(52.41,3,23,0)="^^1^1^2971021^^^^"
^DD(52.41,3,23,1,0)="sub-file or multiple."
^DD(52.41,3,"DT")="2971021"
^DD(52.41,4,0)="ENTERED BY^RP200'^VA(200,^0;4^Q"
^DD(52.41,4,21,0)="^^2^2^2971021^^"
^DD(52.41,4,21,1,0)="This is the person who entered the order in CPRS, pointer to the New"
^DD(52.41,4,21,2,0)="Person file."
^DD(52.41,4,"DT")="2950109"
^DD(52.41,5,0)="PROVIDER^RP200'^VA(200,^0;5^Q"
^DD(52.41,5,21,0)="^^1^1^2971021^"
^DD(52.41,5,21,1,0)="This is the provider for the order, pointer to the New Person file."
^DD(52.41,5,"DT")="2950208"
^DD(52.41,6,0)="EFFECTIVE DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.41,6,21,0)="^^1^1^2971021^"
^DD(52.41,6,21,1,0)="This is the date the order goes into effect."
^DD(52.41,6,"DT")="2950109"
^DD(52.41,7,0)="NATURE OF ORDER^S^W:WRITTEN;P:TELEPHONE;V:VERBAL;E:PROVIDER ENTERED;^0;7^Q"
^DD(52.41,7,3)=""
^DD(52.41,7,21,0)="^^1^1^2971021^"
^DD(52.41,7,21,1,0)="This is the Nature of the order, as it is entered through CPRS."
^DD(52.41,7,"DT")="2950222"
^DD(52.41,8,0)="PHARMACY ORDERABLE ITEM^P50.7'^PS(50.7,^0;8^Q"
^DD(52.41,8,21,0)="^^2^2^2971021^"
^DD(52.41,8,21,1,0)="This is the Pharmacy Orderable Item for the order, as entered through"
^DD(52.41,8,21,2,0)="CPRS. "
^DD(52.41,8,"DT")="2950112"
^DD(52.41,9,0)="PROVIDER COMMENTS^52.419^^2;0"
^DD(52.41,9,21,0)="^^2^2^2971021^"
^DD(52.41,9,21,1,0)="This field contains any Provider comments that may have been entered"
^DD(52.41,9,21,2,0)="through CPRS."
^DD(52.41,10,0)="PHARMACY INSTRUCTIONS^52.42^^3;0"
^DD(52.41,10,21,0)="^^2^2^2971021^"
^DD(52.41,10,21,1,0)="This field contains any special instructions for the Pharmacist, as"
^DD(52.41,10,21,2,0)="entered through CPRS."
^DD(52.41,11,0)="DRUG^P50'^PSDRUG(^0;9^Q"
^DD(52.41,11,21,0)="^^3^3^2971021^"
^DD(52.41,11,21,1,0)="This is the pointer to the Drug file entry that is associated with the"
^DD(52.41,11,21,2,0)="Pharmacy Orderable Item. Not all orders will have a Drug when received"
^DD(52.41,11,21,3,0)="from CPRS, but upon finishing the order, a Drug must be entered."
^DD(52.41,11,"DT")="2950109"
^DD(52.41,12,0)="QTY^NJ11,2X^^0;10^K:(+X'>0)!(+X>99999999)!(X'?.8N.1""."".2N."" "".A)!($L(X)>12) X D:$D(X) QTY^PSOHELP"
^DD(52.41,12,3)="Type a Number between 1 and 99999999, 2 Decimal Digits"
^DD(52.41,12,21,0)="^^1^1^2971021^"
^DD(52.41,12,21,1,0)="This shows the amount of the medication to be dispensed."
^DD(52.41,12,"DT")="2951113"
^DD(52.41,13,0)="# OF REFILLS^NJ2,0^^0;11^K:+X'=X!(X>11)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.41,13,3)="Type a Number between 1 and 11, 0 Decimal Digits"
^DD(52.41,13,21,0)="^^1^1^2971021^"
^DD(52.41,13,21,1,0)="The number of refills allowed for this order."
^DD(52.41,13,"DT")="2950109"
^DD(52.41,15,0)="LOGIN DATE^D^^0;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.41,15,1,0)="^.1^^-1"
^DD(52.41,15,1,1,0)="52.41^AD^MUMPS"
^DD(52.41,15,1,1,1)="I $P(^PS(52.41,DA,0),""^"",3)=""NW""!($P(^(0),""^"",3)=""RNW"")!($P(^(0),""^"",3)=""RF"") S ^PS(52.41,""AD"",X,$P(^PS(52.41,DA,""INI""),""^""),DA)="""""
^DD(52.41,15,1,1,2)="K ^PS(52.41,""AD"",X,$P(^PS(52.41,DA,""INI""),""^""),DA)"
^DD(52.41,15,1,1,3)="Do not delete!"
^DD(52.41,15,1,1,"%D",0)="^.101^2^2^3030423^^^^"
^DD(52.41,15,1,1,"%D",1,0)="This MUMPS cross reference is used to index entries by the login date."
^DD(52.41,15,1,1,"%D",2,0)="This xref sets: ^PS(52.41,""AD"",LOGIN DATE,RELATED INSTITUTION,DA)="""""
^DD(52.41,15,1,1,"DT")="2980219"
^DD(52.41,15,1,2,0)="52.41^AG^MUMPS"
^DD(52.41,15,1,2,1)="I $P(^PS(52.41,DA,0),""^"",3)=""NW""!($P(^(0),""^"",3)=""RNW"")!($P(^(0),""^"",3)=""RF""),$P(^(0),""^"",13) S ^PS(52.41,""ACL"",$P(^PS(52.41,DA,0),""^"",13),X,DA)="""""
^DD(52.41,15,1,2,2)="I $P(^PS(52.41,DA,0),""^"",13) K ^PS(52.41,""ACL"",$P(^PS(52.41,DA,0),""^"",13),X,DA)"
^DD(52.41,15,1,2,"%D",0)="^^4^4^2981106^^^^"
^DD(52.41,15,1,2,"%D",1,0)="This cross reference is used to index Pending Orders by Patient Location"
^DD(52.41,15,1,2,"%D",2,0)="and by Login date/time, to allow orders to be finished in a first in/first"
^DD(52.41,15,1,2,"%D",3,0)="out order by Clinic. This cross reference sets the global"
^DD(52.41,15,1,2,"%D",4,0)="^PS(52.41,""ACL"",PATIENT LOCATION,LOGIN DATE,DA)=""""."
^DD(52.41,15,1,2,"DT")="2981106"
^DD(52.41,15,21,0)="^^1^1^2971021^"
^DD(52.41,15,21,1,0)="This is the date that the order was received from CPRS."
^DD(52.41,15,"DT")="3030430"
^DD(52.41,16,0)="MED ROUTE^P51.2'^PS(51.2,^0;15^Q"
^DD(52.41,16,3)=""
^DD(52.41,16,21,0)="^^1^1^2971021^"
^DD(52.41,16,21,1,0)="This is the Med Route that the medication is to be administered by."
^DD(52.41,16,"DT")="2950209"
^DD(52.41,17,0)="SERVICE CONNECTED^F^^0;16^K:$L(X)>10!($L(X)<1) X"
^DD(52.41,17,3)="Answer must be 1-10 characters in length."
^DD(52.41,17,21,0)="^^2^2^2971021^"
^DD(52.41,17,21,1,0)="This indicates whether the order is for a service connected or non-service"
^DD(52.41,17,21,2,0)="connected condition."
^DD(52.41,17,"DT")="2950112"
^DD(52.41,18,0)="ORDERS CHECKS^52.4118A^^OBX;0"
^DD(52.41,18,21,0)="^^1^1^2971021^"
^DD(52.41,18,21,1,0)="This is a multiple for the order checks passed to Pharmacy from CPRS."
^DD(52.41,19,0)="PICKUP ROUTING^S^M:MAIL;W:WINDOW;C:ADMINISTERED IN CLINIC;^0;17^Q"
^DD(52.41,19,.1)="Mail/Window/Administered in Clinic"
^DD(52.41,19,1,0)="^.1"
^DD(52.41,19,1,1,0)="52.41^AC^MUMPS"
^DD(52.41,19,1,1,1)="S ^PS(52.41,""AC"",$P(^PS(52.41,DA,0),""^"",2),X,DA)="""""
^DD(52.41,19,1,1,2)="K ^PS(52.41,""AC"",$P(^PS(52.41,DA,0),""^"",2),X,DA)"
^DD(52.41,19,1,1,3)="Do Not Delete!"
^DD(52.41,19,1,1,"%D",0)="^^2^2^2971022^^^^"
^DD(52.41,19,1,1,"%D",1,0)="This xref is used to index entries by patient and by routing. It sets the"
^DD(52.41,19,1,1,"%D",2,0)="global ^PS(52.41,""AC"",Patient Pointer,Pickup Routing,DA)=""""."
^DD(52.41,19,1,1,"DT")="2950210"
^DD(52.41,19,21,0)="^^1^1^2971021^"
^DD(52.41,19,21,1,0)="This is how the medication is to be given to the patient."
^DD(52.41,19,23,0)="^^1^1^2971021^^"
^DD(52.41,19,23,1,0)="set of codes"
^DD(52.41,19,"DT")="2970521"
^DD(52.41,21,0)="Rx REFILL REQUEST^NJ12,0^^0;19^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.41,21,1,0)="^.1"
^DD(52.41,21,1,1,0)="52.41^ARF"
^DD(52.41,21,1,1,1)="S ^PS(52.41,""ARF"",$E(X,1,30),DA)="""""
^DD(52.41,21,1,1,2)="K ^PS(52.41,""ARF"",$E(X,1,30),DA)"
^DD(52.41,21,1,1,3)="do not delete."
^DD(52.41,21,1,1,"%D",0)="^^1^1^2971121^"
^DD(52.41,21,1,1,"%D",1,0)="This xref is used to index pending refill request."
^DD(52.41,21,1,1,"DT")="2971121"
^DD(52.41,21,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(52.41,21,21,0)="^^1^1^2971121^^"
^DD(52.41,21,21,1,0)="This field will be used to indicate the Rx number for refill request from CPRS."
^DD(52.41,21,23,0)="^^1^1^2971121^"
^DD(52.41,21,23,1,0)="number"
^DD(52.41,21,"DT")="2971121"
^DD(52.41,22,0)="REASON ORDER CREATED^S^N:NEW;R:RENEWAL;E:EDIT;F:REFILL;^0;20^Q"
^DD(52.41,22,3)=""
^DD(52.41,22,21,0)="^^1^1^2971121^^"
^DD(52.41,22,21,1,0)="This shows why the order was created in CPRS."
^DD(52.41,22,23,0)="^^1^1^2971121^"
^DD(52.41,22,23,1,0)="set of codes"
^DD(52.41,22,"DT")="2971121"
^DD(52.41,22.1,0)="PREVIOUS ORDER #^NJ10,0^^0;21^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.41,22.1,1,0)="^.1"
^DD(52.41,22.1,1,1,0)="52.41^AQ^MUMPS"
^DD(52.41,22.1,1,1,1)="S:$P(^PS(52.41,DA,0),""^"",3)=""RNW"" ^PS(52.41,""AQ"",X,DA)="""""
^DD(52.41,22.1,1,1,2)="K ^PS(52.41,""AQ"",X,DA)"
^DD(52.41,22.1,1,1,3)="Do not delete!"
^DD(52.41,22.1,1,1,"%D",0)="^^2^2^2971022^^^"
^DD(52.41,22.1,1,1,"%D",1,0)="This xref is used to index renewal orders. It sets the global"
^DD(52.41,22.1,1,1,"%D",2,0)="^PS(52.41,""AQ"",Previous Order #,DA)=""""."
^DD(52.41,22.1,1,1,"DT")="2970422"
^DD(52.41,22.1,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(52.41,22.1,21,0)="^^1^1^2971021^^"
^DD(52.41,22.1,21,1,0)="This field will store the pointer value to the Rx that is being Renewed."
^DD(52.41,22.1,23,0)="^^1^1^2971021^^"
^DD(52.41,22.1,23,1,0)="numeric."
^DD(52.41,22.1,"DT")="2970422"
^DD(52.41,23,0)="COMMENTS^F^^4;1^K:$L(X)>150!($L(X)<1) X"
^DD(52.41,23,3)="Answer must be 1-150 characters in length."
^DD(52.41,23,21,0)="^^1^1^2971021^"
^DD(52.41,23,21,1,0)="This field contains any comments associated with the order."
^DD(52.41,23,"DT")="2950211"
^DD(52.41,24,0)="DISPENSING INSTRUCTIONS^52.4124A^^SIG;0"
^DD(52.41,24,21,0)="^^1^1^2971021^"
^DD(52.41,24,21,1,0)="Dispensing instruction for the medication."
^DD(52.41,24,"DT")="2950224"
^DD(52.41,25,0)="PRIORITY^S^S:STAT;E:EMERGENCY;R:ROUTINE;^0;14^Q"
^DD(52.41,25,1,0)="^.1"
^DD(52.41,25,1,1,0)="52.41^AP^MUMPS"
^DD(52.41,25,1,1,1)="S ^PS(52.41,""AP"",$P(^PS(52.41,DA,0),""^"",2),X,DA)="""""
^DD(52.41,25,1,1,2)="K ^PS(52.41,""AP"",$P(^PS(52.41,DA,0),""^"",2),X,DA)"
^DD(52.41,25,1,1,3)="Do not Delete"
^DD(52.41,25,1,1,"%D",0)="^^2^2^2971022^^^"
^DD(52.41,25,1,1,"%D",1,0)="This cross reference is used to index entries by priority. It sets the"
^DD(52.41,25,1,1,"%D",2,0)="global ^PS(52.41,""AP"",Patient Pointer,Priority,DA)=""""."
^DD(52.41,25,1,1,"DT")="2950320"
^DD(52.41,25,21,0)="^^1^1^2971021^"
^DD(52.41,25,21,1,0)="This field is used to indicate the urgency of the order."
^DD(52.41,25,"DT")="2950320"
^DD(52.41,26,0)="POSSIBLE FILLDATE^D^^0;18^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(52.41,26,21,0)="^^2^2^2961218^^"
^DD(52.41,26,21,1,0)="This field will be used to display the effective date of a discharge med or"
^DD(52.41,26,21,2,0)="pass med."
^DD(52.41,26,"DT")="2961218"
^DD(52.41,100,0)="RELATED INSTITUTION^RP4'^DIC(4,^INI;1^Q"
^DD(52.41,100,1,0)="^.1"
^DD(52.41,100,1,1,0)="52.41^AOR1^MUMPS"
^DD(52.41,100,1,1,1)="S:$P(^PS(52.41,DA,0),""^"",3)=""NW""!($P(^(0),""^"",3)=""RNW"")!($P(^(0),""^"",3)=""RF"") ^PS(52.41,""AOR"",$P(^PS(52.41,DA,0),""^"",2),X,DA)="""""
^DD(52.41,100,1,1,2)="K ^PS(52.41,""AOR"",$P(^PS(52.41,DA,0),""^"",2),X,DA)"
^DD(52.41,100,1,1,3)="Do not delete."
^DD(52.41,100,1,1,"%D",0)="^^2^2^2971124^^^^"
^DD(52.41,100,1,1,"%D",1,0)="This cross is used when processing pending orders. It sets the global"
^DD(52.41,100,1,1,"%D",2,0)="^PS(52.41,""AOR"",Patient Pointer,Related Institution,DA)=""""."
^DD(52.41,100,1,1,"DT")="2971124"
^DD(52.41,100,1,2,0)="52.41^AE^MUMPS"
^DD(52.41,100,1,2,1)="I $P(^PS(52.41,DA,0),""^"",3)=""NW""!($P(^(0),""^"",3)=""RNW"")!($P(^(0),""^"",3)=""RF"") S ^PS(52.41,""AD"",$P(^PS(52.41,DA,0),""^"",12),X,DA)="""""
^DD(52.41,100,1,2,2)="K ^PS(52.41,""AD"",$P(^PS(52.41,DA,0),""^"",12),X,DA)"
^DD(52.41,100,1,2,"%D",0)="^^3^3^2980609^^^^"
^DD(52.41,100,1,2,"%D",1,0)="This MUMPS cross reference is used to index entries by the Related"
^DD(52.41,100,1,2,"%D",2,0)="Institution and Login Date fields, for finishing CPRS orders."
^DD(52.41,100,1,2,"%D",3,0)="This xref sets: ^PS(52.41,""AD"",LOGIN DATE,RELATED INSTITUTION,DA)=""""."
^DD(52.41,100,1,2,"DT")="2980609"
^DD(52.41,100,21,0)="^^1^1^2971023^^"
^DD(52.41,100,21,1,0)="This is the Institution that the order was issued from."
^DD(52.41,100,"DT")="2980609"
^DD(52.41,101,0)="DAYS SUPPLY^NJ2,0^^0;22^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.41,101,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(52.41,101,21,0)="^^3^3^3000606^"
^DD(52.41,101,21,1,0)="Enter a whole number between 1 and 90. The maximum upper limit is 90, but"
^DD(52.41,101,21,2,0)="may be lower based on the maximum specified for this patient status. This"
^DD(52.41,101,21,3,0)="parameter is defined in the RX PATIENT STATUS File (#53)."
^DD(52.41,101,"DT")="3000606"
^DD(52.41,102,0)="FLAG^S^1:Flagged;^0;23^Q"
^DD(52.41,102,3)="Enter '1' to mark this order as flagged."
^DD(52.41,102,21,0)="^^2^2^3000606^"
^DD(52.41,102,21,1,0)="This field shall designate whether or not a prescription has been flagged"
^DD(52.41,102,21,2,0)="for follow up with a provider."
^DD(52.41,102,"DT")="3000606"
^DD(52.41,103,0)="PRE-POE ORDER^S^1:YES;^POE;1^Q"
^DD(52.41,103,21,0)="^^2^2^3000803^^"
^DD(52.41,103,21,1,0)="This field will be used to identify pending orders entered before the"
^DD(52.41,103,21,2,0)="installation of the Pharmacy Order Enhancement patch.  PSO*7*46."
^DD(52.41,103,23,0)="^^1^1^3000803^"
^DD(52.41,103,23,1,0)="set of codes."
^DD(52.41,103,"DT")="3000803"
^DD(52.41,104,0)="PATIENT INSTRUCTIONS^F^^INS;1^K:$L(X)>240!($L(X)<1) X"
^DD(52.41,104,3)="Enter patient instructions.  Answer must be 1-240 characters in length."
^DD(52.41,104,21,0)="^.001^3^3^3001102^^"
^DD(52.41,104,21,1,0)="The text in this field shall be used for the Patient Instructions in the"
^DD(52.41,104,21,2,0)="Outpatient Pharmacy package when entering orders, if the Dispense Drug"
^DD(52.41,104,21,3,0)="selected is matched to a Pharmacy Orderable Item with patient instructions."
^DD(52.41,104,23,0)="^^1^1^3001102^"
^DD(52.41,104,23,1,0)="free text."
^DD(52.41,104,"DT")="3001102"
^DD(52.41,104.1,0)="PATIENT INSTRUCTIONS FLAG^S^1:YES;0:NO;^INS;2^Q"
^DD(52.41,104.1,3)="Enter 1 for yes, 0 for no."
^DD(52.41,104.1,21,0)="^.001^2^2^3010117^^"
^DD(52.41,104.1,21,1,0)="This field will be used to indicate for the provider wanted the patient"
^DD(52.41,104.1,21,2,0)="instructions included in the SIG."
^DD(52.41,104.1,23,0)="^^1^1^3010117^"
^DD(52.41,104.1,23,1,0)="set of codes."
^DD(52.41,104.1,"DT")="3010117"
^DD(52.41,105,0)="EXPANDED PATIENT INSTRUCTIONS^52.41105^^INS1;0"
^DD(52.41,106,0)="MILITARY SEXUAL TRAUMA^S^0:NO;1:YES;^IBQ;1^Q"
^DD(52.41,106,3)="'Enter 'Yes' if this prescription is being used for treatment of Military Sexual Trauma."
^DD(52.41,106,21,0)="^^8^8^3010817^"
^DD(52.41,106,21,1,0)="During CPRS order entry, if a veteran has been identified as having been"
^DD(52.41,106,21,2,0)="treated for Military Sexual Trauma, the clinician will be asked to"
^DD(52.41,106,21,3,0)="identify whether or not the outpatient medication order being prescribed"
^DD(52.41,106,21,4,0)="is being used to treat a condition related to Military Sexual Trauma. This"
^DD(52.41,106,21,5,0)="field will store the response that was entered for this question. This"
^DD(52.41,106,21,6,0)="value will be used as the default value for the same prompt presented to"
^DD(52.41,106,21,7,0)="the pharmacist when finishing the medication order that was entered"
^DD(52.41,106,21,8,0)="through CPRS."
^DD(52.41,106,"DT")="3010814"
^DD(52.41,107,0)="AGENT ORANGE EXPOSURE^S^0:NO;1:YES;^IBQ;2^Q"
^DD(52.41,107,3)="Enter 'Yes' if this prescription is being used to treat a condition due to Agent Orange exposure during Vietnam service."
^DD(52.41,107,21,0)="^^8^8^3010817^"
^DD(52.41,107,21,1,0)="During CPRS order entry, if a veteran has been identified as having been"
^DD(52.41,107,21,2,0)="exposed to Agent Orange during Vietnam service, the clinician will be"
^DD(52.41,107,21,3,0)="asked to identify whether or not the outpatient medication order"
^DD(52.41,107,21,4,0)="prescribed is being used to treat a condition due to this exposure. This"
^DD(52.41,107,21,5,0)="field will store the response that was entered for this question. This"
^DD(52.41,107,21,6,0)="value will be used as the default value for the same prompt presented to"
^DD(52.41,107,21,7,0)="the pharmacist when finishing the medication order that was entered"
^DD(52.41,107,21,8,0)="through CPRS."
^DD(52.41,107,"DT")="3011023"
^DD(52.41,108,0)="IONIZING RADIATION EXPOSURE^S^0:NO;1:YES;^IBQ;3^Q"
^DD(52.41,108,3)="Enter 'Yes' if this prescription is being used to treat a condition due to ionizing radiation exposure during military service."
^DD(52.41,108,21,0)="^^8^8^3010817^"
^DD(52.41,108,21,1,0)="During CPRS order entry, if a veteran has been identified as having been"
^DD(52.41,108,21,2,0)="exposed to ionizing radiation during military service, the clinician will"
^DD(52.41,108,21,3,0)="be asked to identify whether or not the outpatient medication order"
^DD(52.41,108,21,4,0)="prescribed is being used to treat a condition due to this exposure. This"
^DD(52.41,108,21,5,0)="field will store the response that was entered for this question. This"
^DD(52.41,108,21,6,0)="value will be used as the default value for the same prompt presented to"
^DD(52.41,108,21,7,0)="the pharmacist when finishing the medication order that was entered"
^DD(52.41,108,21,8,0)="through CPRS."
^DD(52.41,108,"DT")="3011023"
^DD(52.41,109,0)="ENVIRONMENTAL CONTAMINANT^S^0:NO;1:YES;^IBQ;4^Q"
^DD(52.41,109,3)="Enter 'Yes' if this prescription is being used to treat a condition due to environmental contaminant exposure during the Persian Gulf War."
^DD(52.41,109,21,0)="^^8^8^3010817^"
^DD(52.41,109,21,1,0)="During CPRS order entry, if a veteran has been identified as having been"
^DD(52.41,109,21,2,0)="exposed to environmental contaminant exposure during the Persian Gulf War,"
^DD(52.41,109,21,3,0)="the clinician will be asked to identify whether or not the outpatient"
^DD(52.41,109,21,4,0)="medication order prescribed is being used to treat a condition due to this"
^DD(52.41,109,21,5,0)="exposure. This field will store the response that was entered for this"
^DD(52.41,109,21,6,0)="question. This value will be used as the default value for the same prompt"
^DD(52.41,109,21,7,0)="presented to the pharmacist when finishing the medication order that was"
^DD(52.41,109,21,8,0)="entered through CPRS."
^DD(52.41,109,"DT")="3011023"
^DD(52.41,110,0)="HEAD AND/OR NECK CANCER^S^0:NO;1:YES;^IBQ;5^Q"
^DD(52.41,110,3)="Enter 'Yes' if this prescription is being used to treat Head and/or Neck Cancer due to nose or throat radium treatments while in the military."
^DD(52.41,110,21,0)="^^8^8^3011108^"
^DD(52.41,110,21,1,0)="During CPRS order entry, if a veteran has been identified as having been"
^DD(52.41,110,21,2,0)="treated for Head and/or Neck Cancer due to nose or throat radium"
^DD(52.41,110,21,3,0)="treatments while in the military, the clinician will be asked to identify"
^DD(52.41,110,21,4,0)="whether or not the outpatient medication order prescribed is being used to"
^DD(52.41,110,21,5,0)="treat this condition. This field will store the response that was entered"
^DD(52.41,110,21,6,0)="for this question. This value will be used as the default value for the"
^DD(52.41,110,21,7,0)="same prompt presented to the pharmacist when finishing the medication"
^DD(52.41,110,21,8,0)="order that was entered through CPRS."
^DD(52.41,110,"DT")="3011023"
^DD(52.41,110.1,0)="COMBAT VETERAN^S^0:NO;1:YES;^IBQ;6^Q"
^DD(52.41,110.1,3)="Enter 'Yes' if this prescription is being used to treat a condition related to Combat Services."
^DD(52.41,110.1,21,0)="^^8^8^3031212^"
^DD(52.41,110.1,21,1,0)="During CPRS order entry, if a veteran has been identified as having been "
^DD(52.41,110.1,21,2,0)="treated for a condition related to Combat Services, the clinician will be "
^DD(52.41,110.1,21,3,0)="asked to identify whether or not the outpatient medication order being"
^DD(52.41,110.1,21,4,0)="prescribed is being used to treat a condition related to Combat Services."
^DD(52.41,110.1,21,5,0)="This field will store the response that was entered for this question."
^DD(52.41,110.1,21,6,0)="This value will be used as the default value for the same prompt presented"
^DD(52.41,110.1,21,7,0)="to the pharmacist when finishing the medication order that was entered"
^DD(52.41,110.1,21,8,0)="through CPRS."
^DD(52.41,110.1,"DT")="3031212"
^DD(52.41,111,0)="DDSTATUS^F^^DDSTA;1^K:$L(X)>10!($L(X)<1) X"
^DD(52.41,111,3)="Answer must be 1-10 characters in length."
^DD(52.41,111,21,0)="^^2^2^3020516^"
^DD(52.41,111,21,1,0)="This field will hold the status of the pending order at the time a date of"
^DD(52.41,111,21,2,0)="death was entered."
^DD(52.41,111,"DT")="3020516"
^DD(52.41,114,0)="EXTERNAL PLACER ORDER NUMBER^FI^^EXT;1^K:$L(X)>30!($L(X)<1) X"
^DD(52.41,114,1,0)="^.1^^0"
^DD(52.41,114,3)="Answer must be 1-30 characters in length."
^DD(52.41,114,21,0)="^.001^3^3^3020716^^^"
^DD(52.41,114,21,1,0)="This field represents the external system order number of this order. This"
^DD(52.41,114,21,2,0)="field will only be populated if this order was originally received from an"
^DD(52.41,114,21,3,0)="external system into Vista."
^DD(52.41,114,"DT")="3020805"
^DD(52.41,115,0)="EXTERNAL SYSTEM ORDER REPLACED^SI^0:NO;1:YES;^EXT;2^Q"
^DD(52.41,115,21,0)="^.001^3^3^3020716^^"
^DD(52.41,115,21,1,0)="This field will be set to 1 by the software when an external system order"
^DD(52.41,115,21,2,0)="number is successfully replaced by a Computerized Patient Record System"
^DD(52.41,115,21,3,0)="(CPRS) order number."
^DD(52.41,115,23,0)="^^5^5^3020716^"
^DD(52.41,115,23,1,0)="When an order is received from an external system, it will be entered into"
^DD(52.41,115,23,2,0)="the PENDING OUTPATIENT ORDERS File (#52.41), and then immediately sent to"
^DD(52.41,115,23,3,0)="Computerized Patient Record System (CPRS). When a CPRS number is"
^DD(52.41,115,23,4,0)="successfully returned from CPRS, this field will be set to 1 by the"
^DD(52.41,115,23,5,0)="software, and then the order can be finished by Pharmacy."
^DD(52.41,115,"DT")="3020716"
^DD(52.41,116,0)="EXTERNAL APPLICATION^FI^^EXT;3^K:$L(X)>60!($L(X)<1) X"
^DD(52.41,116,3)="Answer must be 1-60 characters in length."
^DD(52.41,116,21,0)="^^2^2^3020805^"
^DD(52.41,116,21,1,0)="This field represents the name of the external system from where the "
^DD(52.41,116,21,2,0)="external order was received."
^DD(52.41,116,"DT")="3020805"
^DD(52.41,117,0)="SIGNATURE STATUS^S^1:YES;0:NO;^0;24^Q"
^DD(52.41,117,3)=" Data not entered directly with file manager."
^DD(52.41,117,21,0)="^.001^1^1^3020821^^^^"
^DD(52.41,117,21,1,0)="Digital Signature status indicator."
^DD(52.41,117,23,0)="^.001^3^3^3020821^^^"
^DD(52.41,117,23,1,0)="This field will be used to indicate the digital signature status of an "
^DD(52.41,117,23,2,0)="order. A value of 1 will indicate that the original order was digitally"
^DD(52.41,117,23,3,0)="signed."
^DD(52.41,117,"DT")="3020821"
^DD(52.41,311,0)="DIAGNOSIS^52.41311PA^^ICD;0"
^DD(52.41,311,21,0)="^^13^13^3040211^"
^DD(52.41,311,21,1,0)="This multiple is used to store up to eight ICD-9 codes per prescription"
^DD(52.41,311,21,2,0)="with the first always being the primary diagnosis code and subsequent ones"
^DD(52.41,311,21,3,0)="being secondary diagnosis codes.  Also stored in this multiple are all of"
^DD(52.41,311,21,4,0)="the Service Connection (SC) and Environmental Indicators (EI) that "
^DD(52.41,311,21,5,0)="directly relate to each ICD-9 code.  These SC/EI's are passed from CPRS in"
^DD(52.41,311,21,6,0)="this manner. This ICD-9/SC/EI relationship is necessary for 3rd Party"
^DD(52.41,311,21,7,0)="Billing."
^DD(52.41,311,21,8,0)=" "
^DD(52.41,311,21,9,0)="Current Copay functionality deals only with SC<50% and only stores EI's "
^DD(52.41,311,21,10,0)="when with this is true or not overridden in some way.  The new SC/EI "
^DD(52.41,311,21,11,0)="fields allow for Outpatient Pharmacy to know if a prescription is"
^DD(52.41,311,21,12,0)="SC 0-100%, to know all EI's that apply, and to know how"
^DD(52.41,311,21,13,0)="they relate to the ICD-9 code without affecting Copay functionality."
^DD(52.41,311,"DT")="3030923"
^DD(52.41,"B","# OF REFILLS",13)=""
^DD(52.41,"B","AGENT ORANGE EXPOSURE",107)=""
^DD(52.41,"B","COMBAT VETERAN",110.1)=""
^DD(52.41,"B","COMMENTS",23)=""
^DD(52.41,"B","DAYS SUPPLY",101)=""
^DD(52.41,"B","DDSTATUS",111)=""
^DD(52.41,"B","DIAGNOSIS",311)=""
^DD(52.41,"B","DISPENSING INSTRUCTIONS",24)=""
^DD(52.41,"B","DRUG",11)=""
^DD(52.41,"B","EFFECTIVE DATE",6)=""
^DD(52.41,"B","ENTERED BY",4)=""
^DD(52.41,"B","ENVIRONMENTAL CONTAMINANT",109)=""
^DD(52.41,"B","EXPANDED PATIENT INSTRUCTIONS",105)=""
^DD(52.41,"B","EXTERNAL APPLICATION",116)=""
^DD(52.41,"B","EXTERNAL PLACER ORDER NUMBER",114)=""
^DD(52.41,"B","EXTERNAL SYSTEM ORDER REPLACED",115)=""
^DD(52.41,"B","FLAG",102)=""
^DD(52.41,"B","HEAD AND/OR NECK CANCER",110)=""
^DD(52.41,"B","IONIZING RADIATION EXPOSURE",108)=""
^DD(52.41,"B","LOGIN DATE",15)=""
^DD(52.41,"B","MED ROUTE",16)=""
^DD(52.41,"B","MILITARY SEXUAL TRAUMA",106)=""
^DD(52.41,"B","NATURE OF ORDER",7)=""
^DD(52.41,"B","ORDER TYPE",2)=""
^DD(52.41,"B","ORDERS CHECKS",18)=""
^DD(52.41,"B","PATIENT",1)=""
^DD(52.41,"B","PATIENT INSTRUCTIONS",104)=""
^DD(52.41,"B","PATIENT INSTRUCTIONS FLAG",104.1)=""
^DD(52.41,"B","PATIENT LOCATION",1.1)=""
^DD(52.41,"B","PHARMACY INSTRUCTIONS",10)=""
^DD(52.41,"B","PHARMACY ORDERABLE ITEM",8)=""
^DD(52.41,"B","PICKUP ROUTING",19)=""
^DD(52.41,"B","PLACER NUMBER",.01)=""
^DD(52.41,"B","POSSIBLE FILLDATE",26)=""
^DD(52.41,"B","PRE-POE ORDER",103)=""
^DD(52.41,"B","PREVIOUS ORDER #",22.1)=""
^DD(52.41,"B","PRIORITY",25)=""
^DD(52.41,"B","PROVIDER",5)=""
^DD(52.41,"B","PROVIDER COMMENTS",9)=""
^DD(52.41,"B","QTY",12)=""
^DD(52.41,"B","QUANTITY TIMING SUB-FILE",3)=""
^DD(52.41,"B","REASON ORDER CREATED",22)=""
^DD(52.41,"B","RELATED INSTITUTION",100)=""
^DD(52.41,"B","Rx REFILL REQUEST",21)=""
^DD(52.41,"B","SERVICE CONNECTED",17)=""
^DD(52.41,"B","SIGNATURE STATUS",117)=""
^DD(52.41,"GL",0,1,.01)=""
^DD(52.41,"GL",0,2,1)=""
^DD(52.41,"GL",0,3,2)=""
^DD(52.41,"GL",0,4,4)=""
^DD(52.41,"GL",0,5,5)=""
^DD(52.41,"GL",0,6,6)=""
^DD(52.41,"GL",0,7,7)=""
^DD(52.41,"GL",0,8,8)=""
^DD(52.41,"GL",0,9,11)=""
^DD(52.41,"GL",0,10,12)=""
^DD(52.41,"GL",0,11,13)=""
^DD(52.41,"GL",0,12,15)=""
^DD(52.41,"GL",0,13,1.1)=""
^DD(52.41,"GL",0,14,25)=""
^DD(52.41,"GL",0,15,16)=""
^DD(52.41,"GL",0,16,17)=""
^DD(52.41,"GL",0,17,19)=""
^DD(52.41,"GL",0,18,26)=""
^DD(52.41,"GL",0,19,21)=""
^DD(52.41,"GL",0,20,22)=""
^DD(52.41,"GL",0,21,22.1)=""
^DD(52.41,"GL",0,22,101)=""
^DD(52.41,"GL",0,23,102)=""
^DD(52.41,"GL",0,24,117)=""
^DD(52.41,"GL",1,0,3)=""
^DD(52.41,"GL",2,0,9)=""
^DD(52.41,"GL",3,0,10)=""
^DD(52.41,"GL",4,1,23)=""
^DD(52.41,"GL","DDSTA",1,111)=""
^DD(52.41,"GL","EXT",1,114)=""
^DD(52.41,"GL","EXT",2,115)=""
^DD(52.41,"GL","EXT",3,116)=""
^DD(52.41,"GL","IBQ",1,106)=""
^DD(52.41,"GL","IBQ",2,107)=""
^DD(52.41,"GL","IBQ",3,108)=""
^DD(52.41,"GL","IBQ",4,109)=""
^DD(52.41,"GL","IBQ",5,110)=""
^DD(52.41,"GL","IBQ",6,110.1)=""
^DD(52.41,"GL","ICD",0,311)=""
^DD(52.41,"GL","INI",1,100)=""
^DD(52.41,"GL","INS",1,104)=""
^DD(52.41,"GL","INS",2,104.1)=""
^DD(52.41,"GL","INS1",0,105)=""
^DD(52.41,"GL","OBX",0,18)=""
^DD(52.41,"GL","POE",1,103)=""
^DD(52.41,"GL","SIG",0,24)=""
^DD(52.41,"GR","PSO",.01,1)=""
^DD(52.41,"GR","PSO",2,1)=""
^DD(52.41,"GR","PSO",3,1)=""
^DD(52.41,"IX",.01)=""
^DD(52.41,"IX",1)=""
^DD(52.41,"IX",1.1)=""
^DD(52.41,"IX",2)=""
^DD(52.41,"IX",15)=""
^DD(52.41,"IX",19)=""
^DD(52.41,"IX",21)=""
^DD(52.41,"IX",22.1)=""
^DD(52.41,"IX",25)=""
^DD(52.41,"IX",100)=""
^DD(52.41,"RQ",.01)=""
^DD(52.41,"RQ",1)=""
^DD(52.41,"RQ",2)=""
^DD(52.41,"RQ",4)=""
^DD(52.41,"RQ",5)=""
^DD(52.41,"RQ",100)=""
^DD(52.41,"SB",52.41105,105)=""
^DD(52.41,"SB",52.4118,18)=""
^DD(52.41,"SB",52.4124,24)=""
^DD(52.41,"SB",52.413,3)=""
^DD(52.41,"SB",52.41311,311)=""
^DD(52.41,"SB",52.419,9)=""
^DD(52.41,"SB",52.42,10)=""
^DD(52.41105,0)="EXPANDED PATIENT INSTRUCTIONS SUB-FIELD^^.01^1"
^DD(52.41105,0,"DT")="3010208"
^DD(52.41105,0,"NM","EXPANDED PATIENT INSTRUCTIONS")=""
^DD(52.41105,0,"UP")="52.41"
^DD(52.41105,.01,0)="EXPANDED PATIENT INSTRUCTIONS^W^^0;1^Q"
^DD(52.41105,.01,21,0)="^^3^3^3010208^"
^DD(52.41105,.01,21,1,0)="This field will store the expanded patient instructions that are stored in"
^DD(52.41105,.01,21,2,0)="the patient instruction field (#114) or the expanded patient instructions"
^DD(52.41105,.01,21,3,0)="from CPRS."
^DD(52.41105,.01,"DT")="3010208"
^DD(52.41105,"B","EXPANDED PATIENT INSTRUCTIONS",.01)=""
^DD(52.41105,"GL",0,1,.01)=""
^DD(52.4118,0)="ORDERS CHECKS SUB-FIELD^^2^3"
^DD(52.4118,0,"DT")="2960516"
^DD(52.4118,0,"NM","ORDERS CHECKS")=""
^DD(52.4118,0,"UP")="52.41"
^DD(52.4118,.01,0)="ORDER CHECK NARRATIVE^F^^0;1^K:$L(X)>245!($L(X)<1) X"
^DD(52.4118,.01,1,0)="^.1^^0"
^DD(52.4118,.01,3)="Answer must be 1-245 characters in length."
^DD(52.4118,.01,21,0)="^^1^1^2971021^"
^DD(52.4118,.01,21,1,0)="This is the text which describes the order check."
^DD(52.4118,.01,"DT")="2960418"
^DD(52.4118,1,0)="OVERRIDING PROVIDER^F^^1;1^K:$L(X)>45!($L(X)<1) X"
^DD(52.4118,1,3)="Answer must be 1-45 characters in length."
^DD(52.4118,1,21,0)="^^1^1^2971021^"
^DD(52.4118,1,21,1,0)="This is the Provider that has seen the order check in the CPRS package."
^DD(52.4118,1,"DT")="2950306"
^DD(52.4118,2,0)="OVERRIDING REASON^52.41182^^2;0"
^DD(52.4118,2,21,0)="^^1^1^2971021^"
^DD(52.4118,2,21,1,0)="This is the reason given by the Provider to override the order check."
^DD(52.4118,"B","ORDER CHECK NARRATIVE",.01)=""
^DD(52.4118,"B","OVERRIDING PROVIDER",1)=""
^DD(52.4118,"B","OVERRIDING REASON",2)=""
^DD(52.4118,"GL",0,1,.01)=""
^DD(52.4118,"GL",1,1,1)=""
^DD(52.4118,"GL",2,0,2)=""
^DD(52.4118,"SB",52.41182,2)=""
^DD(52.41182,0)="OVERRIDING REASON SUB-FIELD^^.01^1"
^DD(52.41182,0,"DT")="2960516"
^DD(52.41182,0,"NM","OVERRIDING REASON")=""
^DD(52.41182,0,"UP")="52.4118"
^DD(52.41182,.01,0)="OVERRIDING REASON^W^^0;1^Q"
^DD(52.41182,.01,"DT")="2960516"
^DD(52.41182,"B","OVERRIDING REASON",.01)=""
^DD(52.41182,"GL",0,1,.01)=""
^DD(52.4124,0)="DISPENSING INSTRUCTIONS SUB-FIELD^^.01^1"
^DD(52.4124,0,"DT")="2950227"
^DD(52.4124,0,"NM","DISPENSING INSTRUCTIONS")=""
^DD(52.4124,0,"UP")="52.41"
^DD(52.4124,.01,0)="DISPENSING INSTRUCTIONS^MF^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(52.4124,.01,1,0)="^.1^^0"
^DD(52.4124,.01,3)="Answer must be 1-200 characters in length."
^DD(52.4124,.01,21,0)="^^2^2^2971021^"
^DD(52.4124,.01,21,1,0)="This is the possible Sig that is created based upon the information from"
^DD(52.4124,.01,21,2,0)="the Quantity Timing fields of this order."
^DD(52.4124,.01,"DT")="2960418"
^DD(52.4124,"B","DISPENSING INSTRUCTIONS",.01)=""
^DD(52.4124,"GL",0,1,.01)=""
^DD(52.413,0)="QUANTITY TIMING SUB-FILE SUB-FIELD^^13^13"
^DD(52.413,0,"DT")="2950222"
^DD(52.413,0,"NM","QUANTITY TIMING SUB-FILE")=""
^DD(52.413,0,"UP")="52.41"
^DD(52.413,.01,0)="QUANTITY/FORM^F^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(52.413,.01,1,0)="^.1^^0"
^DD(52.413,.01,3)="Answer must be 1-200 characters in length."
^DD(52.413,.01,20,0)="^.3LA^1^1"
^DD(52.413,.01,20,1,0)="PSO"
^DD(52.413,.01,21,0)="^^2^2^2971021^^^"
^DD(52.413,.01,21,1,0)="This fields usually contains the amount to be given as entered through CPRS."
^DD(52.413,.01,21,2,0)="It can also possibly contain the Dose Form of the medication."
^DD(52.413,.01,"DT")="2960418"
^DD(52.413,1,0)="SCHEDULE^F^^1;1^K:$L(X)>20!($L(X)<1) X"
^DD(52.413,1,1,0)="^.1^^0"
^DD(52.413,1,3)="Answer must be 1-20 characters in length."
^DD(52.413,1,21,0)="^.001^1^1^3010205^^"
^DD(52.413,1,21,1,0)="This is the schedule for the medication, as entered through CPRS."
^DD(52.413,1,"DT")="3010205"
^DD(52.413,2,0)="DURATION^F^^1;2^K:$L(X)>40!($L(X)<1) X"
^DD(52.413,2,3)="Answer must be 1-40 characters in length."
^DD(52.413,2,21,0)="^^2^2^2971021^"
^DD(52.413,2,21,1,0)="This is the duration that the medication is to be given for, as entered"
^DD(52.413,2,21,2,0)="through CPRS."
^DD(52.413,2,"DT")="2950221"
^DD(52.413,3,0)="START DATE/TIME^D^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.413,3,21,0)="^^1^1^2971021^"
^DD(52.413,3,21,1,0)="This is the start date/time of the medication."
^DD(52.413,3,"DT")="2950221"
^DD(52.413,4,0)="END DATE/TIME^D^^1;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.413,4,3)=""
^DD(52.413,4,21,0)="^^1^1^2971021^"
^DD(52.413,4,21,1,0)="This is the end date/time of the medication."
^DD(52.413,4,"DT")="2950221"
^DD(52.413,6,0)="CONJUNCTION^S^S:THEN;A:AND;X:EXCEPT;^1;6^Q"
^DD(52.413,6,21,0)="^.001^3^3^3010702^^^^"
^DD(52.413,6,21,1,0)="This is a code passed to Pharmacy from CPRS to help build a Possible Sig"
^DD(52.413,6,21,2,0)="for a complex medication dose. This code usually expands to an ""and"", "
^DD(52.413,6,21,3,0)="a ""then"", or an ""except""."
^DD(52.413,6,23,0)="^.001^1^1^3010702^^^"
^DD(52.413,6,23,1,0)="set of codes."
^DD(52.413,6,"DT")="3010702"
^DD(52.413,7,0)="SEQUENCING^F^^1;7^K:$L(X)>30!($L(X)<1) X"
^DD(52.413,7,3)="Answer must be 1-30 characters in length."
^DD(52.413,7,21,0)="^^2^2^2971021^"
^DD(52.413,7,21,1,0)="This field contains any special sequencing instructions for the"
^DD(52.413,7,21,2,0)="medication."
^DD(52.413,7,"DT")="2950221"
^DD(52.413,8,0)="DOSAGE ORDERED^F^^2;1^K:$L(X)>122!($L(X)<1) X"
^DD(52.413,8,3)="Enter the amount of medication the patient will receive for this prescription order. Answer must be 1-122 characters in length."
^DD(52.413,8,21,0)="^.001^2^2^3010412^^"
^DD(52.413,8,21,1,0)="This is a single dose of medication the patient will receive for this"
^DD(52.413,8,21,2,0)="prescription order."
^DD(52.413,8,"DT")="3010412"
^DD(52.413,9,0)="DISPENSE UNITS PER DOSE^NJ11,2^^2;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(52.413,9,3)="Type a Number between 0 and 99999999, 2 Decimal Digits"
^DD(52.413,9,21,0)="^.001^2^2^3010627^^^^"
^DD(52.413,9,21,1,0)="This field represents the number of dispense units the patient will"
^DD(52.413,9,21,2,0)="receive for a single dose of the medication."
^DD(52.413,9,23,0)="^.001^1^1^3010627^^^"
^DD(52.413,9,23,1,0)="number"
^DD(52.413,9,"DT")="3001120"
^DD(52.413,10,0)="MED ROUTE^P51.2'^PS(51.2,^1;8^Q"
^DD(52.413,10,3)="Enter the Med Route that the medication is to be administered by."
^DD(52.413,10,21,0)="^^1^1^3000606^"
^DD(52.413,10,21,1,0)="This is the Med Route that the medication is to be administered by."
^DD(52.413,10,"DT")="3000606"
^DD(52.413,11,0)="UNITS^P50.607'^PS(50.607,^1;9^Q"
^DD(52.413,11,3)="Enter the unit associated with the Dosage ordered."
^DD(52.413,11,21,0)="^.001^2^2^3000925^^"
^DD(52.413,11,21,1,0)="This is the unit of measure associated with the Dosage ordered. It is a"
^DD(52.413,11,21,2,0)="pointer to the DRUG UNITS File (#50.607)."
^DD(52.413,11,"DT")="3000606"
^DD(52.413,12,0)="NOUN^F^^1;5^K:$L(X)>30!($L(X)<1) X"
^DD(52.413,12,3)="Answer must be 1-30 characters in length."
^DD(52.413,12,21,0)="^.001^3^3^3000925^^"
^DD(52.413,12,21,1,0)="This is the noun that is associated with this dosing sequence for this"
^DD(52.413,12,21,2,0)="pending order. It will be used to build the Possible SIG for orders that"
^DD(52.413,12,21,3,0)="are entered through CPRS."
^DD(52.413,12,"DT")="3000710"
^DD(52.413,13,0)="VERB^F^^1;10^K:$L(X)>20!($L(X)<1) X"
^DD(52.413,13,3)="Answer must be 1-20 characters in length."
^DD(52.413,13,21,0)="^.001^1^1^3000816^^"
^DD(52.413,13,21,1,0)="This verb will be used to describe how the medication is taken/used."
^DD(52.413,13,"DT")="3000816"
^DD(52.413,"B","CONJUNCTION",6)=""
^DD(52.413,"B","DISPENSE UNITS PER DOSE",9)=""
^DD(52.413,"B","DOSAGE ORDERED",8)=""
^DD(52.413,"B","DURATION",2)=""
^DD(52.413,"B","END DATE/TIME",4)=""
^DD(52.413,"B","MED ROUTE",10)=""
^DD(52.413,"B","NOUN",12)=""
^DD(52.413,"B","QUANTITY/FORM",.01)=""
^DD(52.413,"B","SCHEDULE",1)=""
^DD(52.413,"B","SEQUENCING",7)=""
^DD(52.413,"B","START DATE/TIME",3)=""
^DD(52.413,"B","UNITS",11)=""
^DD(52.413,"B","VERB",13)=""
^DD(52.413,"GL",0,1,.01)=""
^DD(52.413,"GL",1,1,1)=""
^DD(52.413,"GL",1,2,2)=""
^DD(52.413,"GL",1,3,3)=""
^DD(52.413,"GL",1,4,4)=""
^DD(52.413,"GL",1,5,12)=""
^DD(52.413,"GL",1,6,6)=""
^DD(52.413,"GL",1,7,7)=""
^DD(52.413,"GL",1,8,10)=""
^DD(52.413,"GL",1,9,11)=""
^DD(52.413,"GL",1,10,13)=""
^DD(52.413,"GL",2,1,8)=""
^DD(52.413,"GL",2,2,9)=""
^DD(52.413,"GR","PSO",.01,1)=""
^DD(52.41311,0)="DIAGNOSIS SUB-FIELD^^7^8"
^DD(52.41311,0,"DT")="3040130"
^DD(52.41311,0,"IX","B",52.41311,.01)=""
^DD(52.41311,0,"NM","DIAGNOSIS")=""
^DD(52.41311,0,"UP")="52.41"
^DD(52.41311,.01,0)="DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(52.41311,.01,1,0)="^.1"
^DD(52.41311,.01,1,1,0)="52.41311^B"
^DD(52.41311,.01,1,1,1)="S ^PS(52.41,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(52.41311,.01,1,1,2)="K ^PS(52.41,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(52.41311,.01,3)="Enter a valid ICD-9 code, partial ICD-9 code, or partial name."
^DD(52.41311,.01,21,0)="^^3^3^3040127^"
^DD(52.41311,.01,21,1,0)="This multiple field will store 8 diagnosis codes.  The first code is "
^DD(52.41311,.01,21,2,0)="considered the primary diagnosis and the last seven are secondary "
^DD(52.41311,.01,21,3,0)="diagnosis codes."
^DD(52.41311,.01,"DT")="3040127"
^DD(52.41311,1,0)="AGENT ORANGE^S^0:NO;1:YES;^0;2^Q"
^DD(52.41311,1,3)="ENTER YES OR NO."
^DD(52.41311,1,21,0)="^^2^2^3040130^"
^DD(52.41311,1,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.41311,1,21,2,0)=".01 field as related to Agent Orange for 3rd Party Billing."
^DD(52.41311,1,"DT")="3040130"
^DD(52.41311,2,0)="IONIZING RADIATION^S^0:NO;1:YES;^0;3^Q"
^DD(52.41311,2,3)="ENTER YES OR NO."
^DD(52.41311,2,21,0)="^^2^2^3040130^"
^DD(52.41311,2,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.41311,2,21,2,0)=".01 field as related to Ionizing Radiation for 3rd Party Billing."
^DD(52.41311,2,"DT")="3040130"
^DD(52.41311,3,0)="SERVICE CONNECTION^S^0:NO;1:YES;^0;4^Q"
^DD(52.41311,3,3)="ENTER YES OR NO."
^DD(52.41311,3,21,0)="^^2^2^3040130^"
^DD(52.41311,3,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.41311,3,21,2,0)=".01 field as related to Service Connection for 3rd Party Billing."
^DD(52.41311,3,"DT")="3040130"
^DD(52.41311,4,0)="ENVIRONMENTAL CONTAMINANTS^S^0:NO;1:YES;^0;5^Q"
^DD(52.41311,4,3)="ENTER YES OR NO."
^DD(52.41311,4,21,0)="^^2^2^3040129^"
^DD(52.41311,4,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.41311,4,21,2,0)=".01 field as related to Environmental Contaminants for 3rd Party Billing."
^DD(52.41311,4,"DT")="3040129"
^DD(52.41311,5,0)="MILITARY SEXUAL TRAUMA^S^0:NO;1:YES;^0;6^Q"
^DD(52.41311,5,3)="ENTER YES OR NO."
^DD(52.41311,5,21,0)="^^2^2^3040129^"
^DD(52.41311,5,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.41311,5,21,2,0)=".01 field as releated to Military Sexual Trauma for 3rd Party Billing."
^DD(52.41311,5,"DT")="3040129"
^DD(52.41311,6,0)="HEAD AND/OR NECK CANCER^S^0:NO;1:YES;^0;7^Q"
^DD(52.41311,6,3)="ENTER YES OR NO."
^DD(52.41311,6,21,0)="^^2^2^3040129^"
^DD(52.41311,6,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.41311,6,21,2,0)=".01 field as related to Head and/or Neck Cancer for 3rd Party Billing."
^DD(52.41311,6,"DT")="3040129"
^DD(52.41311,7,0)="COMBAT VETERAN^S^0:NO;1:YES;^0;8^Q"
^DD(52.41311,7,3)="ENTER YES OR NO."
^DD(52.41311,7,21,0)="^^2^2^3040129^"
^DD(52.41311,7,21,1,0)="This field is used to directly identify the corresponding ICD-9 code in the"
^DD(52.41311,7,21,2,0)=".01 field as related to Combat Veteran for 3rd Party Billing."
^DD(52.41311,7,"DT")="3040129"
^DD(52.41311,"B","AGENT ORANGE",1)=""
^DD(52.41311,"B","COMBAT VETERAN",7)=""
^DD(52.41311,"B","DIAGNOSIS",.01)=""
^DD(52.41311,"B","ENVIRONMENTAL CONTAMINANTS",4)=""
^DD(52.41311,"B","HEAD AND/OR NECK CANCER",6)=""
^DD(52.41311,"B","IONIZING RADIATION",2)=""
^DD(52.41311,"B","MILITARY SEXUAL TRAUMA",5)=""
^DD(52.41311,"B","SERVICE CONNECTION",3)=""
^DD(52.41311,"GL",0,1,.01)=""
^DD(52.41311,"GL",0,2,1)=""
^DD(52.41311,"GL",0,3,2)=""
^DD(52.41311,"GL",0,4,3)=""
^DD(52.41311,"GL",0,5,4)=""
^DD(52.41311,"GL",0,6,5)=""
^DD(52.41311,"GL",0,7,6)=""
^DD(52.41311,"GL",0,8,7)=""
^DD(52.41311,"IX",.01)=""
^DD(52.419,0)="PROVIDER COMMENTS SUB-FIELD^^.01^1"
^DD(52.419,0,"DT")="2950530"
^DD(52.419,0,"NM","PROVIDER COMMENTS")=""
^DD(52.419,0,"UP")="52.41"
^DD(52.419,.01,0)="PROVIDER COMMENTS^W^^0;1^Q"
^DD(52.419,.01,"DT")="2950530"
^DD(52.419,"B","PROVIDER COMMENTS",.01)=""
^DD(52.419,"GL",0,1,.01)=""
^DD(52.42,0)="PHARMACY INSTRUCTIONS SUB-FIELD^^.01^1"
^DD(52.42,0,"DT")="2950530"
^DD(52.42,0,"NM","PHARMACY INSTRUCTIONS")=""
^DD(52.42,0,"UP")="52.41"
^DD(52.42,.01,0)="PHARMACY INSTRUCTIONS^W^^0;1^Q"
^DD(52.42,.01,"DT")="2950530"
^DD(52.42,"B","PHARMACY INSTRUCTIONS",.01)=""
^DD(52.42,"GL",0,1,.01)=""
^DD(52.43,0)="FIELD^^9^11"
^DD(52.43,0,"DDA")="N"
^DD(52.43,0,"DT")="3050202"
^DD(52.43,0,"IX","AD",52.43,5)=""
^DD(52.43,0,"NM","PRESCRIPTION REFILL REQUEST")=""
^DD(52.43,0,"VR")="7.0"
^DD(52.43,0,"VRPK")="PSO"
^DD(52.43,.01,0)="PATIENT ICN^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(52.43,.01,1,0)="^.1^^0"
^DD(52.43,.01,3)="Type a number between 1 and 999999999999, 0 Decimal Digits"
^DD(52.43,.01,21,0)="^^2^2^3030207^"
^DD(52.43,.01,21,1,0)="This is a machine-to-machine identifier for a patient. The number may "
^DD(52.43,.01,21,2,0)="only be edited by MPI/PD."
^DD(52.43,.01,"DT")="3050416"
^DD(52.43,2,0)="PATIENT SSN^F^^0;2^K:$L(X)>9!($L(X)<1) X"
^DD(52.43,2,3)="Answer must be 1-9 characters in length"
^DD(52.43,2,21,0)="^^3^3^3030207^"
^DD(52.43,2,21,1,0)="This is the social security number associated with this patient. In "
^DD(52.43,2,21,2,0)="combination with the Integration Control Number, it is used to validate "
^DD(52.43,2,21,3,0)="the patient's identification."
^DD(52.43,2,"DT")="3050416"
^DD(52.43,3,0)="RX #^F^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(52.43,3,3)="Answer must be 1-25 characters in length"
^DD(52.43,3,21,0)="^^2^2^3030207^"
^DD(52.43,3,21,1,0)="This is the external representation of the prescription number for the"
^DD(52.43,3,21,2,0)="refill to be processed."
^DD(52.43,3,"DT")="3050416"
^DD(52.43,4,0)="INSTITUTION^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(52.43,4,3)="Answer must be 1-10 characters in length"
^DD(52.43,4,21,0)="^^2^2^3030207^"
^DD(52.43,4,21,1,0)="The VA facility or institution that will be processing the refill for "
^DD(52.43,4,21,2,0)="this prescription."
^DD(52.43,4,"DT")="3030207"
^DD(52.43,5,0)="DATE PROCESSED^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:3020101>X X"
^DD(52.43,5,1,0)="^.1"
^DD(52.43,5,1,1,0)="52.43^AD^MUMPS"
^DD(52.43,5,1,1,1)="S ^PS(52.43,""AD"",X,DA)="""""
^DD(52.43,5,1,1,2)="K ^PS(52.43,""AD"",X,DA)"
^DD(52.43,5,1,1,"DT")="3070615"
^DD(52.43,5,3)="TYPE A DATE NOT EARLIER THAN JAN 01, 2002"
^DD(52.43,5,21,0)="^^1^1^3030207^"
^DD(52.43,5,21,1,0)="This is the date the pharmacy processed the refill request."
^DD(52.43,5,"DT")="3070615"
^DD(52.43,6,0)="RESULT^S^0:NOT PROCESSED;1:FILLED;2:NOT FILLED;^0;6^Q"
^DD(52.43,6,21,0)="^^2^2^3030207^"
^DD(52.43,6,21,1,0)="The result of the pharmacy staff processing the refill request. The "
^DD(52.43,6,21,2,0)="result may be either FILLED or NOT FILLED."
^DD(52.43,6,"DT")="3030207"
^DD(52.43,7,0)="MHEV UPDATE^S^0:NO;1:YES;^0;7^Q"
^DD(52.43,7,21,0)="^^2^2^3030210^"
^DD(52.43,7,21,1,0)="Indicates whether or not a status update for this refill request has been "
^DD(52.43,7,21,2,0)="sent to the My HealtheVet system."
^DD(52.43,7,"DT")="3030210"
^DD(52.43,8,0)="PRESCRIPTION IEN^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(52.43,8,3)="This is the internal entry number from 52."
^DD(52.43,8,21,0)="^^2^2^3030207^"
^DD(52.43,8,21,1,0)="This is the internal entry number of the prescription associated with "
^DD(52.43,8,21,2,0)="this refill request."
^DD(52.43,8,"DT")="3050203"
^DD(52.43,9,0)="PATIENT^RP2'^DPT(^0;9^Q"
^DD(52.43,9,21,0)="^^1^1^3050202^"
^DD(52.43,9,21,1,0)="The patient receiving treatment."
^DD(52.43,9,23,0)="^^1^1^3050202^"
^DD(52.43,9,23,1,0)="(Required) Pointer to Patient File (#2)."
^DD(52.43,9,"DT")="3050203"
^DD(52.43,10,0)="REMARKS^F^^0;10^K:$L(X)>60!($L(X)<1) X"
^DD(52.43,10,3)="Answer must be 1-60 characters in length"
^DD(52.43,10,21,0)="^^2^2^3070828^"
^DD(52.43,10,21,1,0)="Refill # and suspended date if processed or the reason why it was not"
^DD(52.43,10,21,2,0)="processed."
^DD(52.43,10,"DT")="3070828"
^DD(52.43,11,0)="LOGIN DATE^DX^^0;11^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(52.43,11,3)="(No range limit on date)"
^DD(52.43,11,21,0)="^^1^1^3070615^"
^DD(52.43,11,21,1,0)="This is the date MyHealtheVet placed the refill request."
^DD(52.43,11,"DT")="3070615"
^DD(52.43,"B","DATE PROCESSED",5)=""
^DD(52.43,"B","INSTITUTION",4)=""
^DD(52.43,"B","LOGIN DATE",11)=""
^DD(52.43,"B","MHEV UPDATE",7)=""
^DD(52.43,"B","PATIENT",9)=""
^DD(52.43,"B","PATIENT ICN",.01)=""
^DD(52.43,"B","PATIENT SSN",2)=""
^DD(52.43,"B","PRESCRIPTION IEN",8)=""
^DD(52.43,"B","REMARKS",10)=""
^DD(52.43,"B","RESULT",6)=""
^DD(52.43,"B","RX #",3)=""
^DD(52.43,"GL",0,1,.01)=""
^DD(52.43,"GL",0,2,2)=""
^DD(52.43,"GL",0,3,3)=""
^DD(52.43,"GL",0,4,4)=""
^DD(52.43,"GL",0,5,5)=""
^DD(52.43,"GL",0,6,6)=""
^DD(52.43,"GL",0,7,7)=""
^DD(52.43,"GL",0,8,8)=""
^DD(52.43,"GL",0,9,9)=""
^DD(52.43,"GL",0,10,10)=""
^DD(52.43,"GL",0,11,11)=""
^DD(52.43,"IX",5)=""
^DD(52.43,"RQ",.01)=""
^DD(52.43,"RQ",9)=""
^DD(52.5,0)="FIELD^NL^9^15"
^DD(52.5,0,"DDA")="Y"
^DD(52.5,0,"DT")="2970617"
^DD(52.5,0,"ID",.02)="W:$D(^(""0"")) ""   "",$E($P(^(""0""),U,2),4,5)_""-""_$E($P(^(""0""),U,2),6,7)_""-""_$E($P(^(""0""),U,2),2,3)"
^DD(52.5,0,"ID",.03)="W:$D(^(""0"")) ""   "",$S($D(^DPT(+$P(^(""0""),U,3),0))#2:$P(^(0),U,1),1:""""),$E(^PS(52.5,Y,0),0)"
^DD(52.5,0,"IX","AC",52.5,2)=""
^DD(52.5,0,"IX","AD",52.5,.02)=""
^DD(52.5,0,"IX","ADL",52.5,2)=""
^DD(52.5,0,"IX","ADV",52.5,.06)=""
^DD(52.5,0,"IX","AE",52.5,.03)=""
^DD(52.5,0,"IX","AF",52.5,.03)=""
^DD(52.5,0,"IX","AF",52.5,3)=""
^DD(52.5,0,"IX","AG",52.5,3)=""
^DD(52.5,0,"IX","AH",52.5,5)=""
^DD(52.5,0,"IX","AJ",52.5,.01)=""
^DD(52.5,0,"IX","AL",52.5,3)=""
^DD(52.5,0,"IX","AO",52.5,.06)=""
^DD(52.5,0,"IX","AQ",52.5,3)=""
^DD(52.5,0,"IX","AS",52.5,4)=""
^DD(52.5,0,"IX","AW",52.5,7)=""
^DD(52.5,0,"IX","AX",52.5,3)=""
^DD(52.5,0,"IX","B",52.5,.01)=""
^DD(52.5,0,"IX","C",52.5,.02)=""
^DD(52.5,0,"IX","D",52.5,.03)=""
^DD(52.5,0,"NM","RX SUSPENSE")=""
^DD(52.5,0,"VR")="7.0"
^DD(52.5,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.5,.01,0)="RX #^RP52^PSRX(^0;1^Q"
^DD(52.5,.01,1,0)="^.1"
^DD(52.5,.01,1,1,0)="52.5^B"
^DD(52.5,.01,1,1,1)="S ^PS(52.5,""B"",$E(X,1,30),DA)="""""
^DD(52.5,.01,1,1,2)="K ^PS(52.5,""B"",$E(X,1,30),DA)"
^DD(52.5,.01,1,2,0)="52.5^AJ^MUMPS"
^DD(52.5,.01,1,2,1)="D SET^PSOSUTL"
^DD(52.5,.01,1,2,2)="D KILL^PSOSUTL"
^DD(52.5,.01,1,2,"%D",0)="^^3^3^2971030^^^^"
^DD(52.5,.01,1,2,"%D",1,0)="This cross-reference is used to set the DEA Special Handling field."
^DD(52.5,.01,1,2,"%D",2,0)="It sets piece 10 of ^PS(52.5,DA,0) to the DEA Special Handling field of"
^DD(52.5,.01,1,2,"%D",3,0)="the drug."
^DD(52.5,.01,1,2,"DT")="2950428"
^DD(52.5,.01,3)=""
^DD(52.5,.01,21,0)="^^1^1^2971021^^^^"
^DD(52.5,.01,21,1,0)="This field is the pointer to the Prescription File (#52)."
^DD(52.5,.01,"DT")="2950428"
^DD(52.5,.02,0)="SUSPENSE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.5,.02,1,0)="^.1"
^DD(52.5,.02,1,1,0)="52.5^C"
^DD(52.5,.02,1,1,1)="S ^PS(52.5,""C"",$E(X,1,30),DA)="""""
^DD(52.5,.02,1,1,2)="K ^PS(52.5,""C"",$E(X,1,30),DA)"
^DD(52.5,.02,1,2,0)="52.5^AD^MUMPS"
^DD(52.5,.02,1,2,1)="K:+$G(^(""P""))=1 ^PS(52.5,""AC"",+$P(^PS(52.5,DA,0),""^"",3),X,DA) S:+$G(^PS(52.5,DA,""P""))'=1&($P($G(^PS(52.5,DA,0)),""^"",3))&($P($G(^PS(52.5,DA,0)),""^"",7)="""") ^PS(52.5,""AC"",$P(^PS(52.5,DA,0),""^"",3),X,DA)="""""
^DD(52.5,.02,1,2,2)="K ^PS(52.5,""AC"",+$P(^PS(52.5,DA,0),""^"",3),X,DA)"
^DD(52.5,.02,1,2,"%D",0)="^^2^2^2971022^^^^"
^DD(52.5,.02,1,2,"%D",1,0)="If the suspense date is changed, the ""AC"" cross-reference is updated."
^DD(52.5,.02,1,2,"%D",2,0)="It set the global ^PS(52.5,""AC"",Patient Pointer,Suspense Date,DA)=""""."
^DD(52.5,.02,1,2,"DT")="2950525"
^DD(52.5,.02,21,0)="^^2^2^2930126^^^^"
^DD(52.5,.02,21,1,0)="This field is used to indicate the date the prescription will be printed"
^DD(52.5,.02,21,2,0)="from the suspense file."
^DD(52.5,.02,"DT")="3021223"
^DD(52.5,.03,0)="PATIENT^RP2^DPT(^0;3^Q"
^DD(52.5,.03,1,0)="^.1"
^DD(52.5,.03,1,1,0)="52.5^D^MUMPS"
^DD(52.5,.03,1,1,1)="S:$D(^DPT(X,0)) ^PS(52.5,""D"",$P(^DPT(X,0),""^""),DA)="""""
^DD(52.5,.03,1,1,2)="K:$D(^DPT(X,0)) ^PS(52.5,""D"",$P(^DPT(X,0),""^""),DA)"
^DD(52.5,.03,1,1,"%D",0)="^^2^2^2971022^^^^"
^DD(52.5,.03,1,1,"%D",1,0)="This cross reference lists the patients in name order. It sets the global"
^DD(52.5,.03,1,1,"%D",2,0)="^PS(52.5,""D"",Patient name,DA)=""""."
^DD(52.5,.03,1,1,"DT")="2950603"
^DD(52.5,.03,1,2,0)="52.5^AE^MUMPS"
^DD(52.5,.03,1,2,1)="K:+$G(^(""P""))=1 ^PS(52.5,""AC"",X,+$P($G(^PS(52.5,DA,0)),""^"",2),DA) S:+$G(^PS(52.5,DA,""P""))'=1&($P($G(^PS(52.5,DA,0)),""^"",2))&($P($G(^PS(52.5,DA,0)),""^"",7)="""") ^PS(52.5,""AC"",X,+$P($G(^PS(52.5,DA,0)),""^"",2),DA)="""""
^DD(52.5,.03,1,2,2)="K ^PS(52.5,""AC"",X,+$P(^PS(52.5,DA,0),""^"",2),DA)"
^DD(52.5,.03,1,2,"%D",0)="^^2^2^2971022^^^^"
^DD(52.5,.03,1,2,"%D",1,0)="If the patient changes, the ""AC"" cross-reference will be changed. It sets"
^DD(52.5,.03,1,2,"%D",2,0)="the global ^PS(52.5,""AC"",Patient,Suspense Date,DA)=""""."
^DD(52.5,.03,1,2,"DT")="2950525"
^DD(52.5,.03,1,3,0)="52.5^AF"
^DD(52.5,.03,1,3,1)="S ^PS(52.5,""AF"",$E(X,1,30),DA)="""""
^DD(52.5,.03,1,3,2)="K ^PS(52.5,""AF"",$E(X,1,30),DA)"
^DD(52.5,.03,1,3,"%D",0)="^^1^1^2950328^"
^DD(52.5,.03,1,3,"%D",1,0)="This is a cross-reference on patient internal entry number."
^DD(52.5,.03,1,3,"DT")="2950328"
^DD(52.5,.03,3)=""
^DD(52.5,.03,21,0)="^^1^1^2920127^^^^"
^DD(52.5,.03,21,1,0)="Refers to whom the medication is prescribed for. "
^DD(52.5,.03,23,0)="^^2^2^2920117^"
^DD(52.5,.03,23,1,0)="This field contains the name of the patient for whom"
^DD(52.5,.03,23,2,0)="the prescription is written."
^DD(52.5,.03,"DT")="3021223"
^DD(52.5,.04,0)="TYPE^RS^M:MAIL;W:WINDOW;I:INPATIENT;^0;4^Q"
^DD(52.5,.04,21,0)="^^2^2^2950829^^^^"
^DD(52.5,.04,21,1,0)="`TYPE' refers to how the prescription is to be destributed."
^DD(52.5,.04,21,2,0)="Respond by indicating M for Mail, W for Window or I for Inpatient."
^DD(52.5,.04,23,0)="2^^3^3^2950829^^"
^DD(52.5,.04,23,1,0)="Indicate MAIL if prescription is to be mailed to patient,"
^DD(52.5,.04,23,2,0)="WINDOW if prescription is to be picked up at the site,"
^DD(52.5,.04,23,3,0)="INPATIENT for patients at the hospital."
^DD(52.5,.05,0)="PARTIAL^NJ1,0^^0;5^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.5,.05,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(52.5,.05,21,0)="^^2^2^2920127^^^^"
^DD(52.5,.05,21,1,0)="Respond with Y for YES or N for NO depending upon whether or not "
^DD(52.5,.05,21,2,0)="this is a partial or full prescription."
^DD(52.5,.05,"DT")="2920508"
^DD(52.5,.06,0)="DIVISION^P59'^PS(59,^0;6^Q"
^DD(52.5,.06,1,0)="^.1"
^DD(52.5,.06,1,1,0)="52.5^AO^MUMPS"
^DD(52.5,.06,1,1,1)="D SDIVAS^PSOSUTL1"
^DD(52.5,.06,1,1,2)="D KDIVAS^PSOSUTL1"
^DD(52.5,.06,1,1,"%D",0)="^^5^5^2971022^^^^"
^DD(52.5,.06,1,1,"%D",1,0)="This cross reference is used to maintain resetting and reprinting"
^DD(52.5,.06,1,1,"%D",2,0)="functionality. For non-CMOP prescriptions, it sets the global"
^DD(52.5,.06,1,1,"%D",3,0)="^PS(52.5,""AS"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,.06,1,1,"%D",4,0)="For CMOP prescriptions it sets the global"
^DD(52.5,.06,1,1,"%D",5,0)="^PS(52.5,""APR"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,.06,1,1,"DT")="2951211"
^DD(52.5,.06,1,2,0)="52.5^ADV^MUMPS"
^DD(52.5,.06,1,2,1)="D SDIV^PSOSUTL"
^DD(52.5,.06,1,2,2)="Q"
^DD(52.5,.06,1,2,"%D",0)="^^5^5^2971022^^^^"
^DD(52.5,.06,1,2,"%D",1,0)="This cross reference is used to keep File 52 Division updated if the"
^DD(52.5,.06,1,2,"%D",2,0)="Division for an Rx is changed in the Suspense File. For a partial Rx,"
^DD(52.5,.06,1,2,"%D",3,0)="it sets piece 9 of ^PSRX(DA(1),""P"",DA,0)=Division."
^DD(52.5,.06,1,2,"%D",4,0)="For an original Rx, it sets piece 9 of ^PSRX(DA,2)=Division."
^DD(52.5,.06,1,2,"%D",5,0)="For a refill, it sets piece 9 of ^PSRX(DA(1),1,DA,0)=Division."
^DD(52.5,.06,1,2,"DT")="2951019"
^DD(52.5,.06,3)="Enter division where medication is suspened."
^DD(52.5,.06,21,0)="^^2^2^2920508^^^"
^DD(52.5,.06,21,1,0)="This field is used to enter the division where the prescription was"
^DD(52.5,.06,21,2,0)="filled."
^DD(52.5,.06,23,0)="^^1^1^2920508^"
^DD(52.5,.06,23,1,0)="pointer"
^DD(52.5,.06,"DT")="3021223"
^DD(52.5,1,0)="DRUG^CJ30^^ ; ^S Y(1,2)=$S($D(D0):D0,1:""""),Y(1,1)=$S($D(^PS(52.5,D0,0)):^(0),1:""""),D0=$P(Y(1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(1,101)=$S($D(^PSRX(D0,0)):^(0),1:"""") S X=$S('$D(^PSDRUG(+$P(Y(1,101),U,6),0)):"""",1:$P(^(0),U,1)) S D0=Y(1,2)"
^DD(52.5,1,9)="^"
^DD(52.5,1,9.01)="0"
^DD(52.5,1,9.1)="RX #:DRUG"
^DD(52.5,1,21,0)="^^2^2^2920121^^^"
^DD(52.5,1,21,1,0)="`DRUG' refers to the name of the actual drug/supplies "
^DD(52.5,1,21,2,0)="specified by the prescription."
^DD(52.5,1,23,0)="^^2^2^2920121^^"
^DD(52.5,1,23,1,0)="Respond with the name of the drug/supplies stated in "
^DD(52.5,1,23,2,0)="the prescription."
^DD(52.5,1,"DT")="2830118"
^DD(52.5,2,0)="PRINTED^SI^0:NO;1:YES;^P;1^Q"
^DD(52.5,2,1,0)="^.1"
^DD(52.5,2,1,1,0)="52.5^AC^MUMPS"
^DD(52.5,2,1,1,1)="K:X=1 ^PS(52.5,""AC"",$P(^PS(52.5,DA,0),""^"",3),$P(^PS(52.5,DA,0),""^"",2),DA) S:X'=1&($P($G(^PS(52.5,DA,0)),""^"",7)="""") ^PS(52.5,""AC"",$P(^PS(52.5,DA,0),""^"",3),$P(^PS(52.5,DA,0),""^"",2),DA)="""""
^DD(52.5,2,1,1,2)="K ^PS(52.5,""AC"",$P(^PS(52.5,DA,0),""^"",3),$P(^(0),""^"",2),DA)"
^DD(52.5,2,1,1,"%D",0)="^^3^3^2971022^^^^"
^DD(52.5,2,1,1,"%D",1,0)="This cross reference is used to indicate which entries in the file have"
^DD(52.5,2,1,1,"%D",2,0)="not yet been printed. It sets the global"
^DD(52.5,2,1,1,"%D",3,0)="^PS(52.5,""AC"",Patient,Suspense Date,DA)=""""."
^DD(52.5,2,1,1,"DT")="2950525"
^DD(52.5,2,1,2,0)="52.5^ADL^MUMPS"
^DD(52.5,2,1,2,1)="D SADL^PSOSUTL1"
^DD(52.5,2,1,2,2)="D KADL^PSOSUTL1"
^DD(52.5,2,1,2,"%D",0)="^^2^2^2971022^^^^"
^DD(52.5,2,1,2,"%D",1,0)="This cross-reference is used for deletion of printed Rx's."
^DD(52.5,2,1,2,"%D",2,0)="It sets the global ^PS(52.5,""ADL"",Print Date,DA)=""""."
^DD(52.5,2,1,2,"DT")="2960110"
^DD(52.5,2,3)="Data should not be entered directly with file manager.  Please use option to enter data into this field."
^DD(52.5,2,21,0)="^^3^3^2950617^^^^"
^DD(52.5,2,21,1,0)="This field is used to indicate if the prescription was printed from"
^DD(52.5,2,21,2,0)="suspense.  '1' is used to indicate 'Yes' the prescription has printed,"
^DD(52.5,2,21,3,0)="'0' for 'No' the prescription has not printed."
^DD(52.5,2,21,4,0)="the suspened prescription has been reset to print again."
^DD(52.5,2,22)=""
^DD(52.5,2,23,0)="^^1^1^2950617^^^^"
^DD(52.5,2,23,1,0)="set of codes."
^DD(52.5,2,"DT")="2960110"
^DD(52.5,3,0)="CMOP INDICATOR^S^Q:QUEUED FOR TRANSMISSION;X:TRANSMISSION COMPLETED;L:LOADING FOR TRANSMISSION;P:PRINTED LOCALLY;^0;7^Q"
^DD(52.5,3,1,0)="^.1^^-1"
^DD(52.5,3,1,1,0)="52.5^AQ^MUMPS"
^DD(52.5,3,1,1,1)="S:X=""Q"" ^PS(52.5,""AQ"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)="""" K:X=""Q"" ^PS(52.5,""AC"",+$P(^PS(52.5,DA,0),""^"",3),+$P(^PS(52.5,DA,0),""^"",2),DA)"
^DD(52.5,3,1,1,2)="K ^PS(52.5,""AQ"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)"
^DD(52.5,3,1,1,"%D",0)="^^2^2^2930301^^^^"
^DD(52.5,3,1,1,"%D",1,0)="This cross reference indicates the prescription is 'Queued' for transmission"
^DD(52.5,3,1,1,"%D",2,0)="to a Consolidated Mail Outpatient Pharmacy system."
^DD(52.5,3,1,1,"DT")="2930301"
^DD(52.5,3,1,2,0)="52.5^AX^MUMPS"
^DD(52.5,3,1,2,1)="S:X=""X"" ^PS(52.5,""AX"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)="""" K:X=""X"" ^PS(52.5,""AC"",+$P(^PS(52.5,DA,0),""^"",3),+$P(^PS(52.5,DA,0),""^"",2),DA)"
^DD(52.5,3,1,2,2)="K ^PS(52.5,""AX"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)"
^DD(52.5,3,1,2,"%D",0)="^^2^2^2950530^^^^"
^DD(52.5,3,1,2,"%D",1,0)="This cross reference indicates the data has been 'Transmitted' to a"
^DD(52.5,3,1,2,"%D",2,0)="Consolidated Mail Outpatient system."
^DD(52.5,3,1,2,"DT")="2950530"
^DD(52.5,3,1,3,0)="52.5^AL^MUMPS"
^DD(52.5,3,1,3,1)="S:X=""L"" ^PS(52.5,""AL"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)="""" K:X=""L"" ^PS(52.5,""AC"",+$P(^PS(52.5,DA,0),""^"",3),+$P(^PS(52.5,DA,0),""^"",2),DA)"
^DD(52.5,3,1,3,2)="K ^PS(52.5,""AL"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)"
^DD(52.5,3,1,3,"%D",0)="^^2^2^2950530^^^^"
^DD(52.5,3,1,3,"%D",1,0)="This cross reference indicates the data is building for transmission"
^DD(52.5,3,1,3,"%D",2,0)="to a Consolidated Mail Outpatient system."
^DD(52.5,3,1,3,"DT")="2950530"
^DD(52.5,3,1,4,0)="52.5^AF^MUMPS"
^DD(52.5,3,1,4,1)="S:X=""P"" ^PS(52.5,""AP"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)="""" K:X=""P"" ^PS(52.5,""AC"",+$P(^PS(52.5,DA,0),""^"",3),+$P(^PS(52.5,DA,0),""^"",2),DA)"
^DD(52.5,3,1,4,2)="K ^PS(52.5,""AP"",$P(^PS(52.5,DA,0),""^"",2),$P(^PS(52.5,DA,0),""^"",3),DA)"
^DD(52.5,3,1,4,"%D",0)="^^1^1^2950530^^^^"
^DD(52.5,3,1,4,"%D",1,0)="This cross reference indicates a label was printed locally for this entry."
^DD(52.5,3,1,4,"DT")="2950530"
^DD(52.5,3,1,6,0)="52.5^AG^MUMPS"
^DD(52.5,3,1,6,1)="S:$G(X)=""P""!($G(X)=""Q"") ^PS(52.5,""AG"",+$P(^PS(52.5,DA,0),""^"",3),DA)="""" K:$G(X)=""Q""!($G(X)=""P"") ^PS(52.5,""AC"",+$P(^PS(52.5,DA,0),""^"",3),+$P(^PS(52.5,DA,0),""^"",2),DA)"
^DD(52.5,3,1,6,2)="K ^PS(52.5,""AG"",$P(^PS(52.5,DA,0),""^"",3),DA)"
^DD(52.5,3,1,6,"%D",0)="^^1^1^2960222^^^^"
^DD(52.5,3,1,6,"%D",1,0)="This cross reference is by DFN first and is set if the rx is flagged as 'Queued' or 'Printed'.  It is used to quickly locate records that fit either category."
^DD(52.5,3,1,6,"DT")="2960222"
^DD(52.5,3,21,0)="^^2^2^2950404^"
^DD(52.5,3,21,1,0)="This field indicates the current status of a Consolidated Mail Outpatient"
^DD(52.5,3,21,2,0)="Pharmacy prescription."
^DD(52.5,3,23,0)="^^1^1^2950404^"
^DD(52.5,3,23,1,0)="Set of codes."
^DD(52.5,3,"DT")="3021223"
^DD(52.5,4,0)="PRINT DATE^DXI^^0;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(52.5,4,1,0)="^.1"
^DD(52.5,4,1,1,0)="52.5^AS^MUMPS"
^DD(52.5,4,1,1,1)="D SPDTAS^PSOSUTL1"
^DD(52.5,4,1,1,2)="D KPDTAS^PSOSUTL1"
^DD(52.5,4,1,1,"%D",0)="^^8^8^2971022^^^^"
^DD(52.5,4,1,1,"%D",1,0)="This cross-reference is used for batching suspense prints, so different"
^DD(52.5,4,1,1,"%D",2,0)="batches within a day can be reset. This cross-reference also sets the"
^DD(52.5,4,1,1,"%D",3,0)="'APR' cross-reference. The 'APR' cross-reference will list CMOP Rx's by"
^DD(52.5,4,1,1,"%D",4,0)="batch for reseting. Only the 'AS' or the 'APR' will exist for an Rx."
^DD(52.5,4,1,1,"%D",5,0)="For non-CMOP prescriptions, it sets the global"
^DD(52.5,4,1,1,"%D",6,0)="^PS(52.5,""AS"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,4,1,1,"%D",7,0)="For CMOP prescriptions, it sets the global"
^DD(52.5,4,1,1,"%D",8,0)="^PS(52.5,""APR"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,4,1,1,"DT")="2951211"
^DD(52.5,4,3)="Data should not be entered with File Manager. This data is entered by the Outpatient package when the label is printed from suspense."
^DD(52.5,4,21,0)="^^1^1^2951211^^"
^DD(52.5,4,21,1,0)="This indicates the date/time that this entry was queued to print. It is entered by the Outpatient package at the time of label print."
^DD(52.5,4,"DT")="2951211"
^DD(52.5,5,0)="PRINTED BY^P200'I^VA(200,^0;9^Q"
^DD(52.5,5,1,0)="^.1"
^DD(52.5,5,1,1,0)="52.5^AH^MUMPS"
^DD(52.5,5,1,1,1)="D SPBYAS^PSOSUTL1"
^DD(52.5,5,1,1,2)="D KPBYAS^PSOSUTL1"
^DD(52.5,5,1,1,"%D",0)="^^10^10^2971031^^^^"
^DD(52.5,5,1,1,"%D",1,0)="This cross reference is used to set printed Rx's from suspense in a"
^DD(52.5,5,1,1,"%D",2,0)="batch,for resetting and reprinting capabilities. It is entered by the"
^DD(52.5,5,1,1,"%D",3,0)="Outpatient package at the time of label print from suspense. The 'APR'"
^DD(52.5,5,1,1,"%D",4,0)="cross-reference is also set to list the CMOP Rx's that were printed"
^DD(52.5,5,1,1,"%D",5,0)="locally. The 'APR' cross-reference is used for resetting CMOP Rx's by"
^DD(52.5,5,1,1,"%D",6,0)="batch. Only the 'AS"" or the 'APR' will exist for an Rx."
^DD(52.5,5,1,1,"%D",7,0)="For non-CMOP prescriptions, it sets the global"
^DD(52.5,5,1,1,"%D",8,0)="^PS(52.5,""AS"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,5,1,1,"%D",9,0)="For CMOP prescriptions, it sets the global"
^DD(52.5,5,1,1,"%D",10,0)="^PS(52.5,""APR"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,5,1,1,"DT")="2951211"
^DD(52.5,5,3)="Data should not be entered through FileMan. The Outpatient package will make the entry when the label for this entry prints from suspense."
^DD(52.5,5,21,0)="^^1^1^2951019^^"
^DD(52.5,5,21,1,0)="This indicates the user who queued this entry to print from suspense."
^DD(52.5,5,"DT")="2951211"
^DD(52.5,6,0)="DEA, SPECIAL HDLG^F^^0;10^K:$L(X)>6!($L(X)<1) X"
^DD(52.5,6,3)="Answer must be 1-6 characters in length."
^DD(52.5,6,21,0)="^^1^1^2950427^^"
^DD(52.5,6,21,1,0)="This is taken from the DRUG File(#50) and entered by the Outpatient Package when the entry goes into the suspense file."
^DD(52.5,6,"DT")="2950426"
^DD(52.5,7,0)="SEQUENCE^NJ6,0I^^0;11^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.5,7,1,0)="^.1"
^DD(52.5,7,1,1,0)="52.5^AW^MUMPS"
^DD(52.5,7,1,1,1)="D SSEQAS^PSOSUTL1"
^DD(52.5,7,1,1,2)="D KSEQAS^PSOSUTL1"
^DD(52.5,7,1,1,"%D",0)="^^8^8^2971022^^^"
^DD(52.5,7,1,1,"%D",1,0)="This cross reference is used to batch printed Rx's from suspense for"
^DD(52.5,7,1,1,"%D",2,0)="resetting and reprinting purposes. It is set by the Outpatient package at"
^DD(52.5,7,1,1,"%D",3,0)="the time of label print. The 'APR' cross-reference is also set to list the"
^DD(52.5,7,1,1,"%D",4,0)="CMOP Rx's that were printed locally. The 'APR' cross-reference is used to"
^DD(52.5,7,1,1,"%D",5,0)="reset CMOP Rx's. For non-CMOP prescriptions, it sets the global"
^DD(52.5,7,1,1,"%D",6,0)="^PS(52.5,""AS"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,7,1,1,"%D",7,0)="For CMOP prescriptions, it sets the global"
^DD(52.5,7,1,1,"%D",8,0)="^PS(52.5,""APR"",Print Date,Printed By,Division,Sequence,DA)=""""."
^DD(52.5,7,1,1,"DT")="2951211"
^DD(52.5,7,3)="This will be entered by the Outpatient Package, and is used for the Reset and Reprint functionality."
^DD(52.5,7,21,0)="^^1^1^2950426^^"
^DD(52.5,7,21,1,0)="This field is used by Outpatient for printing labels in the proper sequence when labels are Reset for Reprinting. This field should not be edited through FileMan."
^DD(52.5,7,"DT")="2951211"
^DD(52.5,8,0)="REPRINT^SI^1:YES;^0;12^Q"
^DD(52.5,8,3)="This indicates if the Rx is a suspended Reprint."
^DD(52.5,8,21,0)="^^2^2^2950622^"
^DD(52.5,8,21,1,0)="If set to Yes, it means the entry is a suspended reprint, either through"
^DD(52.5,8,21,2,0)="the Edit option or the Reprint option."
^DD(52.5,8,"DT")="2951020"
^DD(52.5,9,0)="FILL^NJ2,0^^0;13^K:+X'=X!(X>11)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.5,9,3)="Type a Number between 0 and 11, 0 Decimal Digits"
^DD(52.5,9,21,0)="^^1^1^2970617^"
^DD(52.5,9,21,1,0)="This field indicates the fill number for the Rx if the Rx is not a partial."
^DD(52.5,9,"DT")="2970617"
^DD(52.5,"B","CMOP INDICATOR",3)=""
^DD(52.5,"B","DEA, SPECIAL HDLG",6)=""
^DD(52.5,"B","DIVISION",.06)=""
^DD(52.5,"B","DRUG",1)=""
^DD(52.5,"B","FILL",9)=""
^DD(52.5,"B","PARTIAL",.05)=""
^DD(52.5,"B","PATIENT",.03)=""
^DD(52.5,"B","PRINT DATE",4)=""
^DD(52.5,"B","PRINTED",2)=""
^DD(52.5,"B","PRINTED BY",5)=""
^DD(52.5,"B","REPRINT",8)=""
^DD(52.5,"B","RX #",.01)=""
^DD(52.5,"B","SEQUENCE",7)=""
^DD(52.5,"B","SUSPENSE DATE",.02)=""
^DD(52.5,"B","TYPE",.04)=""
^DD(52.5,"GL",0,1,.01)=""
^DD(52.5,"GL",0,2,.02)=""
^DD(52.5,"GL",0,3,.03)=""
^DD(52.5,"GL",0,4,.04)=""
^DD(52.5,"GL",0,5,.05)=""
^DD(52.5,"GL",0,6,.06)=""
^DD(52.5,"GL",0,7,3)=""
^DD(52.5,"GL",0,8,4)=""
^DD(52.5,"GL",0,9,5)=""
^DD(52.5,"GL",0,10,6)=""
^DD(52.5,"GL",0,11,7)=""
^DD(52.5,"GL",0,12,8)=""
^DD(52.5,"GL",0,13,9)=""
^DD(52.5,"GL","P",1,2)=""
^DD(52.5,"IX",.01)=""
^DD(52.5,"IX",.02)=""
^DD(52.5,"IX",.03)=""
^DD(52.5,"IX",.06)=""
^DD(52.5,"IX",2)=""
^DD(52.5,"IX",3)=""
^DD(52.5,"IX",4)=""
^DD(52.5,"IX",5)=""
^DD(52.5,"IX",7)=""
^DD(52.5,"RQ",.01)=""
^DD(52.5,"RQ",.02)=""
^DD(52.5,"RQ",.03)=""
^DD(52.5,"RQ",.04)=""
^DD(52.51,0)="FIELD^^15^15"
^DD(52.51,0,"DDA")="N"
^DD(52.51,0,"DT")="2970212"
^DD(52.51,0,"IX","AC1",52.51,3)=""
^DD(52.51,0,"IX","AM",52.51,10)=""
^DD(52.51,0,"IX","AM1",52.51,15)=""
^DD(52.51,0,"IX","AS",52.51,3)=""
^DD(52.51,0,"IX","AS1",52.51,15)=""
^DD(52.51,0,"IX","AS2",52.51,4)=""
^DD(52.51,0,"IX","B",52.51,.01)=""
^DD(52.51,0,"NM","PHARMACY EXTERNAL INTERFACE")=""
^DD(52.51,0,"VR")="7.0"
^DD(52.51,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.51,.01,0)="RX #^RP52^PSRX(^0;1^Q"
^DD(52.51,.01,1,0)="^.1"
^DD(52.51,.01,1,1,0)="52.51^B"
^DD(52.51,.01,1,1,1)="S ^PS(52.51,""B"",$E(X,1,30),DA)="""""
^DD(52.51,.01,1,1,2)="K ^PS(52.51,""B"",$E(X,1,30),DA)"
^DD(52.51,.01,3)=""
^DD(52.51,.01,21,0)="^^1^1^2970206^"
^DD(52.51,.01,21,1,0)="This field is the pointer to the Prescription file."
^DD(52.51,.01,"DT")="2970206"
^DD(52.51,2,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(52.51,2,21,0)="^^1^1^2970206^"
^DD(52.51,2,21,1,0)="This field is the pointer to the Patient file."
^DD(52.51,2,"DT")="2970206"
^DD(52.51,3,0)="TRANSMISSION DATE/TIME^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(52.51,3,1,0)="^.1"
^DD(52.51,3,1,1,0)="52.51^AS^MUMPS"
^DD(52.51,3,1,1,1)="D SDATE^PSOEXREF"
^DD(52.51,3,1,1,2)="D KDATE^PSOEXREF"
^DD(52.51,3,1,1,"%D",0)="^^3^3^2971023^^^^"
^DD(52.51,3,1,1,"%D",1,0)="This cross reference is used to update the AS batch cross reference."
^DD(52.51,3,1,1,"%D",2,0)="It sets the global ^PS(52.51,""AS"",Transmission date/time,Division,"
^DD(52.51,3,1,1,"%D",3,0)="Person,DA)=""""."
^DD(52.51,3,1,1,"DT")="2970307"
^DD(52.51,3,1,2,0)="52.51^AC1"
^DD(52.51,3,1,2,1)="S ^PS(52.51,""AC1"",$E(X,1,30),DA)="""""
^DD(52.51,3,1,2,2)="K ^PS(52.51,""AC1"",$E(X,1,30),DA)"
^DD(52.51,3,1,2,"DT")="2970307"
^DD(52.51,3,21,0)="^^1^1^2970206^"
^DD(52.51,3,21,1,0)="This is the Date/Time of the transmission to the External Interface."
^DD(52.51,3,"DT")="2970307"
^DD(52.51,4,0)="PERSON^P200'^VA(200,^0;4^Q"
^DD(52.51,4,1,0)="^.1"
^DD(52.51,4,1,1,0)="52.51^AS2^MUMPS"
^DD(52.51,4,1,1,1)="D SPER^PSOEXREF"
^DD(52.51,4,1,1,2)="D KPER^PSOEXREF"
^DD(52.51,4,1,1,"%D",0)="^^3^3^2971023^^"
^DD(52.51,4,1,1,"%D",1,0)="This is used to keep the AS batch cross reference up to date."
^DD(52.51,4,1,1,"%D",2,0)="It sets the global ^PS(52.51,""AS"",Transmission date/time,Division,"
^DD(52.51,4,1,1,"%D",3,0)="Person,DA)=""""."
^DD(52.51,4,1,1,"DT")="2970307"
^DD(52.51,4,21,0)="^^1^1^2970206^^"
^DD(52.51,4,21,1,0)="This is the pointer to File 200."
^DD(52.51,4,"DT")="2970307"
^DD(52.51,5,0)="REPRINT^S^1:REPRINT;^0;5^Q"
^DD(52.51,5,21,0)="^^1^1^2970206^"
^DD(52.51,5,21,1,0)="This indicates whether the label was a Reprint."
^DD(52.51,5,"DT")="2970206"
^DD(52.51,6,0)="SITE PARAMETER^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(52.51,6,3)="Answer must be 1-30 characters in length."
^DD(52.51,6,21,0)="^^1^1^2971023^"
^DD(52.51,6,21,1,0)="Stores external interface site parameter."
^DD(52.51,6,"DT")="2970213"
^DD(52.51,7,0)="DISPENSE DEVICE^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(52.51,7,3)="Answer must be 1-30 characters in length."
^DD(52.51,7,21,0)="^^1^1^2970213^^"
^DD(52.51,7,21,1,0)="This is the name of the External Interface device."
^DD(52.51,7,"DT")="2970213"
^DD(52.51,8,0)="FILL TYPE^S^F:REGULAR FILL;P:PARTIAL FILL;^0;8^Q"
^DD(52.51,8,21,0)="^^1^1^2970206^"
^DD(52.51,8,21,1,0)="This indicates whether the Fill was a regular or partial fill."
^DD(52.51,8,"DT")="2970206"
^DD(52.51,9,0)="FILL NUMBER^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.51,9,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(52.51,9,21,0)="^^1^1^2970206^"
^DD(52.51,9,21,1,0)="This indicates which fill was being printed."
^DD(52.51,9,"DT")="2970206"
^DD(52.51,10,0)="MESSAGE SERVER ID^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(52.51,10,1,0)="^.1"
^DD(52.51,10,1,1,0)="52.51^AM^MUMPS"
^DD(52.51,10,1,1,1)="D SMES^PSOEXREF"
^DD(52.51,10,1,1,2)="D KMES^PSOEXREF"
^DD(52.51,10,1,1,"%D",0)="^^2^2^2971023^^"
^DD(52.51,10,1,1,"%D",1,0)="This maintains the Message Server ID/Division cross reference."
^DD(52.51,10,1,1,"%D",2,0)="It sets the global ^PS(52.51,""AM"",Message Server ID,Division,DA)=""""."
^DD(52.51,10,1,1,"DT")="2970307"
^DD(52.51,10,3)="Answer must be 1-30 characters in length."
^DD(52.51,10,21,0)="^^1^1^2970213^^^"
^DD(52.51,10,21,1,0)="This is the Message Server ID of the Transmission."
^DD(52.51,10,"DT")="2970307"
^DD(52.51,11,0)="CLIENT SERVER ID^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(52.51,11,3)="Answer must be 1-30 characters in length."
^DD(52.51,11,21,0)="^^1^1^2970213^^"
^DD(52.51,11,21,1,0)="This is the Client Server ID of the Transmission."
^DD(52.51,11,"DT")="2970213"
^DD(52.51,12,0)="ERROR CODE^F^^1;3^K:$L(X)>30!($L(X)<1) X"
^DD(52.51,12,3)="Answer must be 1-30 characters in length."
^DD(52.51,12,21,0)="^^1^1^2970206^"
^DD(52.51,12,21,1,0)="This is the Error Code for an Unsuccessful Transmission."
^DD(52.51,12,"DT")="2970206"
^DD(52.51,13,0)="COMMENTS^F^^1;4^K:$L(X)>50!($L(X)<1) X"
^DD(52.51,13,3)="Answer must be 1-50 characters in length."
^DD(52.51,13,21,0)="^^1^1^2970206^"
^DD(52.51,13,21,1,0)="These are Comments for a Transmission."
^DD(52.51,13,"DT")="2970206"
^DD(52.51,14,0)="TRANSMISSION STATUS^S^1:PROCESSING;2:PROCESSED;3:PROCESS FAILED;4:RESUBMISSION;^0;10^Q"
^DD(52.51,14,21,0)="^^1^1^2970210^^^^"
^DD(52.51,14,21,1,0)="This is the Status of the Transmission."
^DD(52.51,14,"DT")="2970210"
^DD(52.51,15,0)="DIVISION^P59'^PS(59,^0;11^Q"
^DD(52.51,15,1,0)="^.1"
^DD(52.51,15,1,1,0)="52.51^AS1^MUMPS"
^DD(52.51,15,1,1,1)="D SDIV^PSOEXREF"
^DD(52.51,15,1,1,2)="D KDIV^PSOEXREF"
^DD(52.51,15,1,1,"%D",0)="^^3^3^2971023^^^"
^DD(52.51,15,1,1,"%D",1,0)="This is used to keep the AS batch cross reference up to date."
^DD(52.51,15,1,1,"%D",2,0)="It sets the global ^PS(52.51,""AS"",Transmission date/time,Division,"
^DD(52.51,15,1,1,"%D",3,0)="Person,DA)=""""."
^DD(52.51,15,1,1,"DT")="2970307"
^DD(52.51,15,1,2,0)="52.51^AM1^MUMPS"
^DD(52.51,15,1,2,1)="D SDIVM^PSOEXREF"
^DD(52.51,15,1,2,2)="D KDIVM^PSOEXREF"
^DD(52.51,15,1,2,"%D",0)="^^2^2^2971023^^"
^DD(52.51,15,1,2,"%D",1,0)="This maintains the Message Server ID/Division cross reference."
^DD(52.51,15,1,2,"%D",2,0)="It sets the global ^PS(52.51,""AM"",Message Server ID,Division,DA)=""""."
^DD(52.51,15,1,2,"DT")="2970307"
^DD(52.51,15,21,0)="^^1^1^2970212^"
^DD(52.51,15,21,1,0)="This is the Division where the label information was submitted."
^DD(52.51,15,"DT")="2970307"
^DD(52.51,"B","CLIENT SERVER ID",11)=""
^DD(52.51,"B","COMMENTS",13)=""
^DD(52.51,"B","DISPENSE DEVICE",7)=""
^DD(52.51,"B","DIVISION",15)=""
^DD(52.51,"B","ERROR CODE",12)=""
^DD(52.51,"B","FILL NUMBER",9)=""
^DD(52.51,"B","FILL TYPE",8)=""
^DD(52.51,"B","MESSAGE SERVER ID",10)=""
^DD(52.51,"B","PATIENT",2)=""
^DD(52.51,"B","PERSON",4)=""
^DD(52.51,"B","REPRINT",5)=""
^DD(52.51,"B","RX #",.01)=""
^DD(52.51,"B","SITE PARAMETER",6)=""
^DD(52.51,"B","TRANSMISSION DATE/TIME",3)=""
^DD(52.51,"B","TRANSMISSION STATUS",14)=""
^DD(52.51,"GL",0,1,.01)=""
^DD(52.51,"GL",0,2,2)=""
^DD(52.51,"GL",0,3,3)=""
^DD(52.51,"GL",0,4,4)=""
^DD(52.51,"GL",0,5,5)=""
^DD(52.51,"GL",0,6,6)=""
^DD(52.51,"GL",0,7,7)=""
^DD(52.51,"GL",0,8,8)=""
^DD(52.51,"GL",0,9,9)=""
^DD(52.51,"GL",0,10,14)=""
^DD(52.51,"GL",0,11,15)=""
^DD(52.51,"GL",1,1,10)=""
^DD(52.51,"GL",1,2,11)=""
^DD(52.51,"GL",1,3,12)=""
^DD(52.51,"GL",1,4,13)=""
^DD(52.51,"IX",.01)=""
^DD(52.51,"IX",3)=""
^DD(52.51,"IX",4)=""
^DD(52.51,"IX",10)=""
^DD(52.51,"IX",15)=""
^DD(52.51,"RQ",.01)=""
^DD(52.51,"RQ",2)=""
^DD(52.52,0)="FIELD^^5^6"
^DD(52.52,0,"DDA")="N"
^DD(52.52,0,"DT")="2920903"
^DD(52.52,0,"IX","A",52.52,1)=""
^DD(52.52,0,"IX","B",52.52,.01)=""
^DD(52.52,0,"NM","CLOZAPINE PRESCRIPTION OVERRIDES")=""
^DD(52.52,0,"VR")="7.0"
^DD(52.52,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.52,.01,0)="DATE TIME^MRDI^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(52.52,.01,1,0)="^.1"
^DD(52.52,.01,1,1,0)="52.52^B"
^DD(52.52,.01,1,1,1)="S ^PS(52.52,""B"",$E(X,1,30),DA)="""""
^DD(52.52,.01,1,1,2)="K ^PS(52.52,""B"",$E(X,1,30),DA)"
^DD(52.52,.01,3)=""
^DD(52.52,.01,9)="^"
^DD(52.52,.01,21,0)="^^2^2^2910724^"
^DD(52.52,.01,21,1,0)="This is the date and time of the decision to override the"
^DD(52.52,.01,21,2,0)="prohibition on dispensing clozaril."
^DD(52.52,.01,"DT")="2900302"
^DD(52.52,1,0)="PRESCRIPTION NUMBER^RP52'I^PSRX(^0;2^Q"
^DD(52.52,1,1,0)="^.1"
^DD(52.52,1,1,1,0)="52.52^A"
^DD(52.52,1,1,1,1)="S ^PS(52.52,""A"",$E(X,1,30),DA)="""""
^DD(52.52,1,1,1,2)="K ^PS(52.52,""A"",$E(X,1,30),DA)"
^DD(52.52,1,9)="^"
^DD(52.52,1,21,0)="^^1^1^2910821^^"
^DD(52.52,1,21,1,0)="This is the prescription number of the clozapine prescription."
^DD(52.52,1,"DT")="2900306"
^DD(52.52,2,0)="USER ENTERING^RP200'I^VA(200,^0;3^Q"
^DD(52.52,2,9)="^"
^DD(52.52,2,21,0)="^^1^1^2910821^^"
^DD(52.52,2,21,1,0)="This is the user who entered the prescription."
^DD(52.52,2,"DT")="2920903"
^DD(52.52,3,0)="APPROVING TEAM MEMBER^RP200'I^VA(200,^0;4^Q"
^DD(52.52,3,9)="^"
^DD(52.52,3,21,0)="^^2^2^2920902^^^"
^DD(52.52,3,21,1,0)="This is the member of the clozapine treatment team who authorized"
^DD(52.52,3,21,2,0)="this prescription to be filled."
^DD(52.52,3,"DT")="2920902"
^DD(52.52,4,0)="REASON FOR OVERRIDE^RS^1:NO WBC IN LAST 7 DAYS;2:NO VERIFIED WBC;3:LAST WBC RESULT < 3500;4:3 SEQ. WBC DECREASE;5:LAST ANC RESULT < 2000;6:3 SEQ. ANC DECREASE ;7:NCCC AUTHORIZED;^0;5^Q"
^DD(52.52,4,8.5)="^"
^DD(52.52,4,9)="^"
^DD(52.52,4,21,0)="^.001^1^1^3060406^^"
^DD(52.52,4,21,1,0)="This is the reason that the prescription was allowed to be filled."
^DD(52.52,4,"DT")="3060406"
^DD(52.52,5,0)="COMMENTS^RFIX^^0;6^K:$L(X)>200!($L(X)<5)!(X?."" "") X"
^DD(52.52,5,3)="Enter comments describing the reason to override the lockout"
^DD(52.52,5,9)="^"
^DD(52.52,5,21,0)="^^1^1^2910821^^"
^DD(52.52,5,21,1,0)="This is any information about why the prescription was filled."
^DD(52.52,5,"DT")="2900302"
^DD(52.52,"B","APPROVING TEAM MEMBER",3)=""
^DD(52.52,"B","COMMENTS",5)=""
^DD(52.52,"B","DATE TIME",.01)=""
^DD(52.52,"B","PRESCRIPTION NUMBER",1)=""
^DD(52.52,"B","REASON FOR OVERRIDE",4)=""
^DD(52.52,"B","USER ENTERING",2)=""
^DD(52.52,"GL",0,1,.01)=""
^DD(52.52,"GL",0,2,1)=""
^DD(52.52,"GL",0,3,2)=""
^DD(52.52,"GL",0,4,3)=""
^DD(52.52,"GL",0,5,4)=""
^DD(52.52,"GL",0,6,5)=""
^DD(52.52,"IX",.01)=""
^DD(52.52,"IX",1)=""
^DD(52.52,"RQ",.01)=""
^DD(52.52,"RQ",1)=""
^DD(52.52,"RQ",2)=""
^DD(52.52,"RQ",3)=""
^DD(52.52,"RQ",4)=""
^DD(52.52,"RQ",5)=""
^DD(52.6,0)="FIELD^^17^18"
^DD(52.6,0,"DDA")="N"
^DD(52.6,0,"DIK")="PSSVX6"
^DD(52.6,0,"DIKOLD")="PSSVX6"
^DD(52.6,0,"DT")="2951102"
^DD(52.6,0,"ID",2)="W """""
^DD(52.6,0,"ID","WRITE")="W:$D(^PSDRUG(+$P(^PS(52.6,+Y,0),""^"",2),0)) !?15,$P(^(0),""^"",10) I $D(DD),DD F PSIV=0:0 S PSIV=$O(^PS(52.6,+Y,1,PSIV)) Q:'PSIV  W !?7,""- "",$P(^(PSIV,0),""^""),"" -"""
^DD(52.6,0,"IX","AAP",52.6,1)=""
^DD(52.6,0,"IX","AAP",52.7,1)=""
^DD(52.6,0,"IX","AC",52.6,1)=""
^DD(52.6,0,"IX","AD",52.6,1)=""
^DD(52.6,0,"IX","AE",52.6,12)=""
^DD(52.6,0,"IX","AF",52.6,17)=""
^DD(52.6,0,"IX","AOI",52.6,15)=""
^DD(52.6,0,"IX","APD",52.6,16)=""
^DD(52.6,0,"IX","B",52.6,.01)=""
^DD(52.6,0,"IX","C",52.61,.01)=""
^DD(52.6,0,"IX","D",52.63,.01)=""
^DD(52.6,0,"NM","IV ADDITIVES")=""
^DD(52.6,0,"PT",50.2,1)=""
^DD(52.6,0,"PT",50.21,.01)=""
^DD(52.6,0,"PT",53.157,.01)=""
^DD(52.6,0,"PT",53.686,.01)=""
^DD(52.6,0,"PT",53.796,.01)=""
^DD(52.6,0,"PT",55.02,.01)=""
^DD(52.6,0,"PT",55.1057,.01)=""
^DD(52.6,0,"PT",57.17,.01)=""
^DD(52.6,0,"VR")="1.0"
^DD(52.6,0,"VRPK")="PSS"
^DD(52.6,.01,0)="PRINT NAME^RX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(52.6,.01,.1)=" "
^DD(52.6,.01,1,0)="^.1^^-1"
^DD(52.6,.01,1,1,0)="52.6^B"
^DD(52.6,.01,1,1,1)="S ^PS(52.6,""B"",$E(X,1,30),DA)="""""
^DD(52.6,.01,1,1,2)="K ^PS(52.6,""B"",$E(X,1,30),DA)"
^DD(52.6,.01,3)="Name must be 3-30 characters, not numeric or starting with punctuation."
^DD(52.6,.01,4)=""
^DD(52.6,.01,8.5)="^"
^DD(52.6,.01,20,0)="^.3LA^1^1"
^DD(52.6,.01,20,1,0)="PSJI"
^DD(52.6,.01,21,0)="^^4^4^2940708^^^^"
^DD(52.6,.01,21,1,0)="This field should contain the print name of the 'GENERIC DRUG' (file #50)."
^DD(52.6,.01,21,2,0)="The print name entered here will be printed on the IV label, Ward list,"
^DD(52.6,.01,21,3,0)="Manufacturing list etc.  It should not contain strength, since strength"
^DD(52.6,.01,21,4,0)="is entered with each individual IV order."
^DD(52.6,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED"")"
^DD(52.6,.01,"DT")="2871214"
^DD(52.6,1,0)="GENERIC DRUG^R*P50'^PSDRUG(^0;2^S DIC(""S"")=""I '$P($G(^PSDRUG(+Y,2)),""""^"""",5)""_$S($D(DRUGEDIT):"""",1:"",$S('$G(^(""""I"""")):1,1:^(""""I"""")'<DT)"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52.6,1,1,0)="^.1"
^DD(52.6,1,1,1,0)="52.6^AC"
^DD(52.6,1,1,1,1)="S ^PS(52.6,""AC"",$E(X,1,30),DA)="""""
^DD(52.6,1,1,1,2)="K ^PS(52.6,""AC"",$E(X,1,30),DA)"
^DD(52.6,1,1,2,0)="52.6^AAP^MUMPS"
^DD(52.6,1,1,2,1)="I $P($G(^PSDRUG(X,2)),""^"",3)'[""I"" S PSIUDA=X,PSIUX=""I"" D ENS^PSSGIU"
^DD(52.6,1,1,2,2)="I '$D(^PS(52.7,""AC"",X)) S XX=$O(^PS(52.6,""AC"",X,0)) S:XX=DA XX=$O(^(XX)) I XX,$P($G(^PSDRUG(X,2)),""^"",3)[""I"" S PSIUDA=X,PSIUX=""I"" D END^PSSGIU"
^DD(52.6,1,1,2,3)="Updates the Application Package's Use field for the generic drug selected."
^DD(52.6,1,1,2,"%D",0)="^^3^3^2970926^^"
^DD(52.6,1,1,2,"%D",1,0)="  This is used to automatically update the Application Packages' use field"
^DD(52.6,1,1,2,"%D",2,0)="in the Drug file for the generic drug selected."
^DD(52.6,1,1,2,"%D",3,0)="In the form of: ^PS(52.6,""AC"",X,DA)"
^DD(52.6,1,1,2,"DT")="2910805"
^DD(52.6,1,1,3,0)="^^TRIGGER^52.6^16"
^DD(52.6,1,1,3,1)="K DIV S (DIV,X)=$P($G(^PSDRUG(X,2)),U,6) I DIV S DIU=$P($G(^PS(52.6,DA,0)),U,12) I DIV'=DIU S $P(^(0),U,12)=DIV I $O(^DD(52.6,16,1,0)) S (D0,DIV(0))=DA,DIH=52.6,DIG=16 D ^DICR"
^DD(52.6,1,1,3,2)="S DIU=$P($G(^PS(52.6,DA,0)),U,12) I DIU]"""" S $P(^(0),U,12)="""" I $O(^DD(52.6,16,1,0)) K DIV S (DIV,X)="""",(D0,DIV(0))=DA,DIH=52.6,DIG=16 D ^DICR"
^DD(52.6,1,1,3,3)="Needed to update the PRIMARY DRUG."
^DD(52.6,1,1,3,"%D",0)="^^4^4^2911126^^^^"
^DD(52.6,1,1,3,"%D",1,0)="  Used to update the PRIMARY DRUG field (16) when the additive's GENERIC"
^DD(52.6,1,1,3,"%D",2,0)="DRUG field (1) is changed. The primary drug field will only be updated if"
^DD(52.6,1,1,3,"%D",3,0)="the generic drug entered has been matched to a primary drug in the PRIMARY"
^DD(52.6,1,1,3,"%D",4,0)="DRUG file (50.3)."
^DD(52.6,1,1,3,"CREATE VALUE")="GENERIC DRUG:#64"
^DD(52.6,1,1,3,"DELETE VALUE")="@"
^DD(52.6,1,1,3,"DT")="2911002"
^DD(52.6,1,1,3,"FIELD")="PRIMARY DRUG"
^DD(52.6,1,1,4,0)="52.6^AD^MUMPS"
^DD(52.6,1,1,4,1)="D S526^PSSPOID1"
^DD(52.6,1,1,4,2)="D K526^PSSPOID1"
^DD(52.6,1,1,4,"%D",0)="^^13^13^3001026^"
^DD(52.6,1,1,4,"%D",1,0)="This cross reference is used to update the Pharmacy Orderable Item field"
^DD(52.6,1,1,4,"%D",2,0)="(#15) of the IV ADDITIVES file (#52.6). This cross reference is also used"
^DD(52.6,1,1,4,"%D",3,0)="to keep the Pharmacy Orderable Item entries in the PHARMACY ORDERABLE ITEM"
^DD(52.6,1,1,4,"%D",4,0)="file (#50.7) up to date with current information, based on all active"
^DD(52.6,1,1,4,"%D",5,0)="Drugs, IV Additives, and IV Solutions that are matched to the Pharmacy"
^DD(52.6,1,1,4,"%D",6,0)="Orderable Item. This information includes Inactivation Date status,"
^DD(52.6,1,1,4,"%D",7,0)="Non-Formulary status, Supply status, and Usage status. This information is"
^DD(52.6,1,1,4,"%D",8,0)="also sent to CPRS (Computerized Patient Record System) by using the ""PS"
^DD(52.6,1,1,4,"%D",9,0)="MFSEND OR"" protocol to update the corresponding Orderable Item entry in"
^DD(52.6,1,1,4,"%D",10,0)="the ORDERABLE ITEMS file (#101.43). The cross references that are set and"
^DD(52.6,1,1,4,"%D",11,0)="killed are:"
^DD(52.6,1,1,4,"%D",12,0)="^PSDRUG(""A526"",Dispense Drug IEN,IV Additive IEN)="""","
^DD(52.6,1,1,4,"%D",13,0)="^PS(52.6,""AOI"",Pharmacy Orderable Item IEN,IV Additive IEN)=""""."
^DD(52.6,1,1,4,"DT")="3001018"
^DD(52.6,1,12)="INACTIVE DRUGS ARE NOT SELECTABLE"
^DD(52.6,1,12.1)="S DIC(""S"")=""I '$P($G(^PSDRUG(+Y,2)),""""^"""",5)""_$S($D(DRUGEDIT):"""",1:"",$S('$G(^(""""I"""")):1,1:^(""""I"""")'<DT)"")"
^DD(52.6,1,20,0)="^.3LA^1^1"
^DD(52.6,1,20,1,0)="PSJI"
^DD(52.6,1,21,0)="^^2^2^2940708^^^^"
^DD(52.6,1,21,1,0)="  This field is the pointer from the IV ADDITIVES (52.6) to the DRUG file"
^DD(52.6,1,21,2,0)="(#50).  This can be considered a link between both files."
^DD(52.6,1,"DT")="3001018"
^DD(52.6,2,0)="DRUG UNIT^RS^1:ML;2:LITER;3:MCG;4:MG;5:GM;6:UNITS;7:IU;8:MEQ;9:MM;10:MU;11:THOUU;12:MG-PE;13:NANOGRAM;^0;3^Q"
^DD(52.6,2,1,0)="^.1^^0"
^DD(52.6,2,20,0)="^.3LA^1^1"
^DD(52.6,2,20,1,0)="PSJI"
^DD(52.6,2,21,0)="^.001^3^3^3050718^^^^"
^DD(52.6,2,21,1,0)="  You MUST enter a unit that this drug will be dispensed in most"
^DD(52.6,2,21,2,0)="frequently.  When entering or editing an additive, the user will be"
^DD(52.6,2,21,3,0)="forced to enter the strength using this unit."
^DD(52.6,2,"DT")="3050718"
^DD(52.6,3,0)="NUMBER OF DAYS FOR IV ORDER^NJ2,0^^0;4^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.6,3,3)="Type a whole number between 1 and 31."
^DD(52.6,3,20,0)="^.3LA^1^1"
^DD(52.6,3,20,1,0)="PSJI"
^DD(52.6,3,21,0)="^^8^8^2940714^^^^"
^DD(52.6,3,21,1,0)="  The number entered here will be used to calculate the stop DATE for"
^DD(52.6,3,21,2,0)="the IV order that uses this drug.  For example: If you entered this"
^DD(52.6,3,21,3,0)="drug in the IV order, the stop DATE default will be [Start date of"
^DD(52.6,3,21,4,0)="order + 'NUMBER OF DAYS FOR IV ORDER']."
^DD(52.6,3,21,5,0)="  NOTE: The IV PACKAGE will take the lesser of the 'LVP'S GOOD FOR HOW MANY"
^DD(52.6,3,21,6,0)="DAYS' site parameter and all additives 'NUMBER OF DAYS FOR IV ORDER'"
^DD(52.6,3,21,7,0)="field to calculate the stop date."
^DD(52.6,3,21,8,0)=" "
^DD(52.6,4,0)="USUAL IV SCHEDULE^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) D EN^PSIVSP S:$D(X) PSIVSC=Y"
^DD(52.6,4,3)="Answer must be 1-32 characters in length."
^DD(52.6,4,20,0)="^.3LA^1^1"
^DD(52.6,4,20,1,0)="PSJI"
^DD(52.6,4,21,0)="^^3^3^2940714^^^^"
^DD(52.6,4,21,1,0)="  Enter the schedule that is used most frequently for this drug.  If this"
^DD(52.6,4,21,2,0)="drug is used when entering IVPBs, this field will be shown as the default"
^DD(52.6,4,21,3,0)="answer to the 'SCHEDULE:' prompt during order entry."
^DD(52.6,4,"DT")="2910412"
^DD(52.6,5,0)="ADMINISTRATION TIMES^FX^^0;6^X $P(^DD(51.1,1,0),""^"",5,999) Q"
^DD(52.6,5,3)="Answer must be 2-119 characters in length."
^DD(52.6,5,20,0)="^.3LA^1^1"
^DD(52.6,5,20,1,0)="PSJI"
^DD(52.6,5,21,0)="^^3^3^2910412^^^^"
^DD(52.6,5,21,1,0)="  Enter the admin. times that this drug is given most frequently.  This"
^DD(52.6,5,21,2,0)="field will be shown as default for the 'ADMIN. TIMES: ' prompt during"
^DD(52.6,5,21,3,0)="order entry of IVPB's."
^DD(52.6,5,"DT")="2910412"
^DD(52.6,6,0)="QUICK CODE^52.61I^^1;0"
^DD(52.6,6,20,0)="^.3LA^1^1"
^DD(52.6,6,20,1,0)="PSJI"
^DD(52.6,6,21,0)="^^4^4^2940811^^^^"
^DD(52.6,6,21,1,0)="  Use of a quick code in the order entry process will automatically enter"
^DD(52.6,6,21,2,0)="that predefined information for that order.  As always, order review and"
^DD(52.6,6,21,3,0)="edit will be allowed for that order prior to the action prompt."
^DD(52.6,6,21,4,0)=" "
^DD(52.6,7,0)="AVERAGE DRUG COST PER UNIT^NJ17,9^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(52.6,7,1,0)="^.1^^0"
^DD(52.6,7,3)="Type a Number between 0 and 9999999, 9 Decimal Digits."
^DD(52.6,7,20,0)="^.3LA^1^1"
^DD(52.6,7,20,1,0)="PSJI"
^DD(52.6,7,21,0)="^^4^4^2910305^^^^"
^DD(52.6,7,21,1,0)="  Enter the average cost per UNIT for this drug.  When an IV LABEL"
^DD(52.6,7,21,2,0)="is printed, the IV PACKAGE will count the number of UNITS that was"
^DD(52.6,7,21,3,0)="dispensed and multiply it by this field to get 'TOTAL COST DISPENSED'"
^DD(52.6,7,21,4,0)="for this drug."
^DD(52.6,7,"DT")="2900406"
^DD(52.6,8,0)="ELECTROLYTES^52.62P^^2;0"
^DD(52.6,8,20,0)="^.3LA^1^1"
^DD(52.6,8,20,1,0)="PSJI"
^DD(52.6,8,21,0)="^^1^1^2920514^"
^DD(52.6,8,21,1,0)="  This contains information on the electrolytes that make up this additive."
^DD(52.6,9,0)="SYNONYM^52.63^^3;0"
^DD(52.6,9,20,0)="^.3LA^1^1"
^DD(52.6,9,20,1,0)="PSJI"
^DD(52.6,9,21,0)="^^1^1^2901003^^"
^DD(52.6,9,21,1,0)="These are other names by which this additive may be identified."
^DD(52.6,10,0)="DRUG INFORMATION^52.64^^4;0"
^DD(52.6,10,20,0)="^.3LA^1^1"
^DD(52.6,10,20,1,0)="PSJI"
^DD(52.6,10,21,0)="^^2^2^2910305^^^"
^DD(52.6,10,21,1,0)="  You may enter an information for this drug.  This field is displayed"
^DD(52.6,10,21,2,0)="under the 'DRUG INQUIRY' option of the IV PACKAGE."
^DD(52.6,11,0)="*STATUS^SX^1:ACTIVE;0:NOT ACTIVE;^0;8^Q"
^DD(52.6,11,1,0)="^.1^^0"
^DD(52.6,11,20,0)="^.3LA^1^1"
^DD(52.6,11,20,1,0)="PSJI"
^DD(52.6,11,21,0)="^^4^4^2910305^^^^"
^DD(52.6,11,21,1,0)="  This field is no longer used and was replaced by the 'INACTIVATION DATE'"
^DD(52.6,11,21,2,0)="field.  The date of inactivation is stored on the 'I' node of the drug"
^DD(52.6,11,21,3,0)="file."
^DD(52.6,11,21,4,0)=" "
^DD(52.6,11,"DT")="2880706"
^DD(52.6,12,0)="INACTIVATION DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.6,12,1,0)="^.1"
^DD(52.6,12,1,1,0)="52.6^AE^MUMPS"
^DD(52.6,12,1,1,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.6,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.6,12,1,1,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.6,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.6,12,1,1,3)="Do Not Delete"
^DD(52.6,12,1,1,"%D",0)="^^8^8^3001026^"
^DD(52.6,12,1,1,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(52.6,12,1,1,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(52.6,12,1,1,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(52.6,12,1,1,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(52.6,12,1,1,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(52.6,12,1,1,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(52.6,12,1,1,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(52.6,12,1,1,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(52.6,12,1,1,"DT")="3001017"
^DD(52.6,12,20,0)="^.3LA^1^1"
^DD(52.6,12,20,1,0)="PSJI"
^DD(52.6,12,21,0)="^^4^4^2910305^^^"
^DD(52.6,12,21,1,0)="  This field is used to inactivate a drug.  An IV drug should NEVER be"
^DD(52.6,12,21,2,0)="deleted from a file since some IV ORDERS may still be using it.  Enter"
^DD(52.6,12,21,3,0)="the date the drug should be inactivated.  Once the date of inactivation"
^DD(52.6,12,21,4,0)="arrives, the drug will no longer be a valid choice for IV ADDITIVES."
^DD(52.6,12,"DT")="3001017"
^DD(52.6,13,0)="CONCENTRATION^FX^^0;10^K:X'=+X!(X>99999)!(X<0)!(X?.E1"".""3N.N) X I $D(X) S PSIVX=X,Y=^DD(52.6,2,0),X=$P(^PS(52.6,D0,0),""^"",3) D ENC^PSIV D EN^DDIOL("" ""_X_""/ML"","""",""?0"") S X=PSIVX_"" ""_X_""/ML"" K PSIVX"
^DD(52.6,13,3)="Type a number between 0 and 99999 (no more than 2 decimal digits, and no trailing 0's are allowed)."
^DD(52.6,13,20,0)="^.3LA^1^1"
^DD(52.6,13,20,1,0)="PSJI"
^DD(52.6,13,21,0)="^^9^9^2970616^^^^"
^DD(52.6,13,21,1,0)="  This field will represent the 'DRUG UNIT' field ratio to MLs. This field,"
^DD(52.6,13,21,2,0)="along with electrolytes, will be used during hyperal label generation ONLY."
^DD(52.6,13,21,3,0)="This field makes it possible to figure out the exact volume of the hyperal"
^DD(52.6,13,21,4,0)="order and also the 'true' strength of each electrolyte."
^DD(52.6,13,21,5,0)="For example: If your ADDITIVE DRUG is SODIUM CHLORIDE and SODIUM CHLORIDE"
^DD(52.6,13,21,6,0)="             is dispensed in MEQs.  You might enter '2' for this field."
^DD(52.6,13,21,7,0)="             This will represent 2 MEQ/ML.  During order entry, if"
^DD(52.6,13,21,8,0)="             the strength of this additive is 40 MEQs, the total volume"
^DD(52.6,13,21,9,0)="             of the order will increase by 20 ML (40/2)."
^DD(52.6,13,"DT")="2970626"
^DD(52.6,14,0)="MESSAGE^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(52.6,14,3)="Answer must be 1-30 characters in length."
^DD(52.6,14,20,0)="^.3LA^1^1"
^DD(52.6,14,20,1,0)="PSJI"
^DD(52.6,14,21,0)="^^2^2^2910305^^^"
^DD(52.6,14,21,1,0)="  Enter message pertaining to selected additive, i.e. additive may cause"
^DD(52.6,14,21,2,0)="harmful reactions, additive is about to expire, etc."
^DD(52.6,14,"DT")="2871231"
^DD(52.6,15,0)="PHARMACY ORDERABLE ITEM^P50.7'XI^PS(50.7,^0;11^Q"
^DD(52.6,15,1,0)="^.1^^-1"
^DD(52.6,15,1,1,0)="52.6^AOI"
^DD(52.6,15,1,1,1)="S ^PS(52.6,""AOI"",$E(X,1,30),DA)="""""
^DD(52.6,15,1,1,2)="K ^PS(52.6,""AOI"",$E(X,1,30),DA)"
^DD(52.6,15,1,1,"DT")="2941109"
^DD(52.6,15,3)=""
^DD(52.6,15,8.5)="^"
^DD(52.6,15,9)="^"
^DD(52.6,15,21,0)="^^6^6^3010427^"
^DD(52.6,15,21,1,0)="This field is a pointer to the PHARMACY ORDERABLE ITEM (#50.7) File. This"
^DD(52.6,15,21,2,0)="field is not editable. It is controlled by the software. Every IV Additive"
^DD(52.6,15,21,3,0)="has a Generic Drug pointer to the DRUG (#50) File, and every Drug entry"
^DD(52.6,15,21,4,0)="has a pointer to the PHARMACY ORDERABLE ITEM (#50.7) File. The software"
^DD(52.6,15,21,5,0)="will automatically keep this field updated with the Pharmacy Orderable"
^DD(52.6,15,21,6,0)="Item that the Generic Drug points to."
^DD(52.6,15,23,0)="^.001^1^1^3010427^^^"
^DD(52.6,15,23,1,0)="This field is a pointer the Pharmacy Orderable Item (#50.7) File."
^DD(52.6,15,"DT")="3001017"
^DD(52.6,16,0)="*PRIMARY DRUG^RP50.3'^PS(50.3,^0;12^Q"
^DD(52.6,16,1,0)="^.1"
^DD(52.6,16,1,1,0)="52.6^APD"
^DD(52.6,16,1,1,1)="S ^PS(52.6,""APD"",$E(X,1,30),DA)="""""
^DD(52.6,16,1,1,2)="K ^PS(52.6,""APD"",$E(X,1,30),DA)"
^DD(52.6,16,1,1,"%D",0)="^^2^2^2920123^"
^DD(52.6,16,1,1,"%D",1,0)="  Used to check if an additive is linked to an order's primary drug if"
^DD(52.6,16,1,1,"%D",2,0)="the order is a ""non-fluid"" type."
^DD(52.6,16,1,1,"DT")="2920123"
^DD(52.6,16,5,1,0)="50^64^4"
^DD(52.6,16,5,2,0)="52.6^1^3"
^DD(52.6,16,21,0)="^^2^2^2920511^^"
^DD(52.6,16,21,1,0)="  Links the additive in the IV ADDITIVES file (52.6) to a primary drug"
^DD(52.6,16,21,2,0)="in the PRIMARY DRUG file (50.3)."
^DD(52.6,16,23,0)="^^2^2^2920511^^"
^DD(52.6,16,23,1,0)="  When the GENERIC DRUG field is edited, the primary drug linked to the"
^DD(52.6,16,23,2,0)="generic drug entered for the additive is triggered into this field."
^DD(52.6,16,"DT")="2960125"
^DD(52.6,17,0)="USED IN IV FLUID ORDER ENTRY^S^1:YES;0:NO;^0;13^Q"
^DD(52.6,17,1,0)="^.1"
^DD(52.6,17,1,1,0)="52.6^AF^MUMPS"
^DD(52.6,17,1,1,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.6,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.6,17,1,1,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.6,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.6,17,1,1,"%D",0)="^^8^8^3001026^"
^DD(52.6,17,1,1,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(52.6,17,1,1,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(52.6,17,1,1,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(52.6,17,1,1,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(52.6,17,1,1,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(52.6,17,1,1,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(52.6,17,1,1,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(52.6,17,1,1,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(52.6,17,1,1,"DT")="3001017"
^DD(52.6,17,21,0)="^^3^3^2940413^^^^"
^DD(52.6,17,21,1,0)="Allows pharmacy to limit the additives available in IV Fluid order entry. "
^DD(52.6,17,21,2,0)="Only additives marked as ""yes"" to USED IN IV FLUID ORDER ENTRY may be "
^DD(52.6,17,21,3,0)="selected in IV Fluid order entry through OE/RR."
^DD(52.6,17,22)=""
^DD(52.6,17,23,0)="^^1^1^2940413^^^^"
^DD(52.6,17,23,1,0)="Used to limit additive selection in IV Fluid order entry through OE/RR."
^DD(52.6,17,"DT")="3001017"
^DD(52.6,"B"," ",.01)="1"
^DD(52.6,"B","*PRIMARY DRUG",16)=""
^DD(52.6,"B","*STATUS",11)=""
^DD(52.6,"B","ADMINISTRATION TIMES",5)=""
^DD(52.6,"B","AVERAGE DRUG COST PER UNIT",7)=""
^DD(52.6,"B","CONCENTRATION",13)=""
^DD(52.6,"B","DRUG INFORMATION",10)=""
^DD(52.6,"B","DRUG UNIT",2)=""
^DD(52.6,"B","ELECTROLYTES",8)=""
^DD(52.6,"B","GENERIC DRUG",1)=""
^DD(52.6,"B","INACTIVATION DATE",12)=""
^DD(52.6,"B","MESSAGE",14)=""
^DD(52.6,"B","NUMBER OF DAYS FOR IV ORDER",3)=""
^DD(52.6,"B","PHARMACY ORDERABLE ITEM",15)=""
^DD(52.6,"B","PRINT NAME",.01)=""
^DD(52.6,"B","QUICK CODE",6)=""
^DD(52.6,"B","SYNONYM",9)=""
^DD(52.6,"B","USED IN IV FLUID ORDER ENTRY",17)=""
^DD(52.6,"B","USUAL IV SCHEDULE",4)=""
^DD(52.6,"GL",0,1,.01)=""
^DD(52.6,"GL",0,2,1)=""
^DD(52.6,"GL",0,3,2)=""
^DD(52.6,"GL",0,4,3)=""
^DD(52.6,"GL",0,5,4)=""
^DD(52.6,"GL",0,6,5)=""
^DD(52.6,"GL",0,7,7)=""
^DD(52.6,"GL",0,8,11)=""
^DD(52.6,"GL",0,9,14)=""
^DD(52.6,"GL",0,10,13)=""
^DD(52.6,"GL",0,11,15)=""
^DD(52.6,"GL",0,12,16)=""
^DD(52.6,"GL",0,13,17)=""
^DD(52.6,"GL",1,0,6)=""
^DD(52.6,"GL",2,0,8)=""
^DD(52.6,"GL",3,0,9)=""
^DD(52.6,"GL",4,0,10)=""
^DD(52.6,"GL","I",1,12)=""
^DD(52.6,"GR","PSJI",.01,1)=""
^DD(52.6,"GR","PSJI",1,1)=""
^DD(52.6,"GR","PSJI",2,1)=""
^DD(52.6,"GR","PSJI",3,1)=""
^DD(52.6,"GR","PSJI",4,1)=""
^DD(52.6,"GR","PSJI",5,1)=""
^DD(52.6,"GR","PSJI",6,1)=""
^DD(52.6,"GR","PSJI",7,1)=""
^DD(52.6,"GR","PSJI",8,1)=""
^DD(52.6,"GR","PSJI",9,1)=""
^DD(52.6,"GR","PSJI",10,1)=""
^DD(52.6,"GR","PSJI",11,1)=""
^DD(52.6,"GR","PSJI",12,1)=""
^DD(52.6,"GR","PSJI",13,1)=""
^DD(52.6,"GR","PSJI",14,1)=""
^DD(52.6,"IX",.01)=""
^DD(52.6,"IX",1)=""
^DD(52.6,"IX",12)=""
^DD(52.6,"IX",15)=""
^DD(52.6,"IX",16)=""
^DD(52.6,"IX",17)=""
^DD(52.6,"RQ",.01)=""
^DD(52.6,"RQ",1)=""
^DD(52.6,"RQ",2)=""
^DD(52.6,"RQ",16)=""
^DD(52.6,"SB",52.61,6)=""
^DD(52.6,"SB",52.62,8)=""
^DD(52.6,"SB",52.63,9)=""
^DD(52.6,"SB",52.64,10)=""
^DD(52.61,0)="QUICK CODE SUB-FIELD^NL^7^8"
^DD(52.61,0,"DIK")="PSSVX6"
^DD(52.61,0,"DT")="2911121"
^DD(52.61,0,"NM","QUICK CODE")=""
^DD(52.61,0,"UP")="52.6"
^DD(52.61,.01,0)="QUICK CODE^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1)!($D(^PS(52.6,""C"",X))) X"
^DD(52.61,.01,1,0)="^.1"
^DD(52.61,.01,1,1,0)="52.6^C"
^DD(52.61,.01,1,1,1)="S ^PS(52.6,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(52.61,.01,1,1,2)="K ^PS(52.6,""C"",$E(X,1,30),DA(1),DA)"
^DD(52.61,.01,3)="Answer must be 1-10 characters in length."
^DD(52.61,.01,20,0)="^.3LA^1^1"
^DD(52.61,.01,20,1,0)="PSJI"
^DD(52.61,.01,21,0)="^^4^4^2940811^^^^"
^DD(52.61,.01,21,1,0)="  Use of a quick code in the order entry process will automatically enter"
^DD(52.61,.01,21,2,0)="that predefined information for that order.  As always, order review and"
^DD(52.61,.01,21,3,0)="edit will be allowed for that order prior to the action prompt."
^DD(52.61,.01,21,4,0)=" "
^DD(52.61,.01,"DT")="2860328"
^DD(52.61,1,0)="STRENGTH^FX^^0;2^K:X'?.6N.""."".8N!(X<0) X I $D(X) S X=X_"" ""_$$ENU^PSIVUTL(DA(1)) D STRTH^PSSDDUT2"
^DD(52.61,1,3)="Enter the number of units (defined by this drug) for strength."
^DD(52.61,1,20,0)="^.3LA^1^1"
^DD(52.61,1,20,1,0)="PSJI"
^DD(52.61,1,21,0)="^^2^2^2940714^^^^"
^DD(52.61,1,21,1,0)="  Enter the strength for this quick code.  This will be the strength"
^DD(52.61,1,21,2,0)="of this drug when this quick code is used during order entry."
^DD(52.61,1,"DT")="2900112"
^DD(52.61,2,0)="USUAL INFUSION RATE^FX^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(52.61,2,3)="Enter a number or free text field that is the usual infusion rate."
^DD(52.61,2,20,0)="^.3LA^2^2"
^DD(52.61,2,20,1,0)="PSJIO"
^DD(52.61,2,20,2,0)="PSJI"
^DD(52.61,2,21,0)="^.001^12^12^3000419^^^^"
^DD(52.61,2,21,1,0)=" "
^DD(52.61,2,21,2,0)="  Enter the infusion rate for this quick code.  When this quick code is "
^DD(52.61,2,21,3,0)="entered, this field will be treated exactly like the user had entered it. "
^DD(52.61,2,21,4,0)="EXAMPLE: Enter '125' if you want the usual infusion rate to be '125 ml/hr'."
^DD(52.61,2,21,5,0)="         If you want the usual infusion rate to be TITRATE with one label"
^DD(52.61,2,21,6,0)="         per day, enter 'TITRATE@1'."
^DD(52.61,2,21,7,0)=" "
^DD(52.61,2,21,8,0)=" "
^DD(52.61,2,21,9,0)="Note:  If an administration time(s) is defined, the number of labels will"
^DD(52.61,2,21,10,0)="reflect the administration time(s) for the IVPB type orders."
^DD(52.61,2,21,11,0)="For example:  One administration time of 12:00 is specified.  The infusion"
^DD(52.61,2,21,12,0)="rate is entered as 125@3.  Only 1 label will print."
^DD(52.61,2,"DT")="2851230"
^DD(52.61,3,0)="OTHER PRINT INFO^F^^0;4^K:$L(X)>60!($L(X)<1) X"
^DD(52.61,3,3)="Answer must be 1-60 characters in length."
^DD(52.61,3,20,0)="^.3LA^1^1"
^DD(52.61,3,20,1,0)="PSJI"
^DD(52.61,3,21,0)="^^2^2^2940714^^^^"
^DD(52.61,3,21,1,0)="  This field is optional.  Any info that is entered here will be the"
^DD(52.61,3,21,2,0)=" 'OTHER PRINT INFO' of the IV ORDER."
^DD(52.61,3,"DT")="2860223"
^DD(52.61,4,0)="USUAL IV SCHEDULE^FX^^0;5^X $P(^DD(55.01,.09,0),""^"",5,999)"
^DD(52.61,4,3)="Answer must be 1-22 characters in length."
^DD(52.61,4,20,0)="^.3LA^1^1"
^DD(52.61,4,20,1,0)="PSJI"
^DD(52.61,4,21,0)="^^2^2^2910305^^^"
^DD(52.61,4,21,1,0)="  Enter the schedule that should be 'stuffed' into the schedule field"
^DD(52.61,4,21,2,0)="of the IV order using this quick code."
^DD(52.61,4,"DT")="2860223"
^DD(52.61,5,0)="ADMINISTRATION TIMES^FX^^0;6^X $P(^DD(51.1,1,0),""^"",5,999) Q"
^DD(52.61,5,3)="Answer must be 2-119 characters in length."
^DD(52.61,5,20,0)="^.3LA^1^1"
^DD(52.61,5,20,1,0)="PSJI"
^DD(52.61,5,21,0)="^^2^2^2910305^^^"
^DD(52.61,5,21,1,0)="  Enter the administration times that should be 'stuffed' into the"
^DD(52.61,5,21,2,0)="administration time field of the IV order using this quick code."
^DD(52.61,5,"DT")="2850923"
^DD(52.61,6,0)="USUAL IV SOLUTION^*P52.7'O^PS(52.7,^0;7^S DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52.61,6,2)="S Y(0)=Y S:Y Y=$P(^PS(52.7,Y,0),U)_"" ""_$P(^(0),U,3)"
^DD(52.61,6,2.1)="S:Y Y=$P(^PS(52.7,Y,0),U)_"" ""_$P(^(0),U,3)"
^DD(52.61,6,12)="Enter only active IV solutions"
^DD(52.61,6,12.1)="S DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"""
^DD(52.61,6,20,0)="^.3LA^1^1"
^DD(52.61,6,20,1,0)="PSJI"
^DD(52.61,6,21,0)="^^2^2^2970124^^^^"
^DD(52.61,6,21,1,0)="  Enter the 'SOLUTION' that will be entered into the order when this"
^DD(52.61,6,21,2,0)="quick code is chosen."
^DD(52.61,6,"DT")="2970210"
^DD(52.61,7,0)="MED ROUTE^RP51.2'^PS(51.2,^0;8^Q"
^DD(52.61,7,3)="Enter how this medication will be administered to the patient."
^DD(52.61,7,20,0)="^.3LA^1^1"
^DD(52.61,7,20,1,0)="psj"
^DD(52.61,7,21,0)="^^1^1^2911121^^"
^DD(52.61,7,21,1,0)="  This is how the medication will be administered to the patient."
^DD(52.61,7,23,0)="^^4^4^2911121^^"
^DD(52.61,7,23,1,0)="  This is required field for any IV order entered. If a corresponding "
^DD(52.61,7,23,2,0)="abbreviation if found for the route entered in the MEDICATION ROUTES file"
^DD(52.61,7,23,3,0)="(51.2), the abbreviation will be printed on the profiles and order entry"
^DD(52.61,7,23,4,0)="screens."
^DD(52.61,7,"DT")="2911121"
^DD(52.61,"B","ADMINISTRATION TIMES",5)=""
^DD(52.61,"B","MED ROUTE",7)=""
^DD(52.61,"B","OTHER PRINT INFO",3)=""
^DD(52.61,"B","QUICK CODE",.01)=""
^DD(52.61,"B","STRENGTH",1)=""
^DD(52.61,"B","USUAL INFUSION RATE",2)=""
^DD(52.61,"B","USUAL IV SCHEDULE",4)=""
^DD(52.61,"B","USUAL IV SOLUTION",6)=""
^DD(52.61,"GL",0,1,.01)=""
^DD(52.61,"GL",0,2,1)=""
^DD(52.61,"GL",0,3,2)=""
^DD(52.61,"GL",0,4,3)=""
^DD(52.61,"GL",0,5,4)=""
^DD(52.61,"GL",0,6,5)=""
^DD(52.61,"GL",0,7,6)=""
^DD(52.61,"GL",0,8,7)=""
^DD(52.61,"GR","PSJI",.01,1)=""
^DD(52.61,"GR","PSJI",1,1)=""
^DD(52.61,"GR","PSJI",2,2)=""
^DD(52.61,"GR","PSJI",3,1)=""
^DD(52.61,"GR","PSJI",4,1)=""
^DD(52.61,"GR","PSJI",5,1)=""
^DD(52.61,"GR","PSJI",6,1)=""
^DD(52.61,"GR","PSJIO",2,1)=""
^DD(52.61,"GR","psj",7,1)=""
^DD(52.61,"IX",.01)=""
^DD(52.61,"RQ",7)=""
^DD(52.62,0)="ELECTROYLTES SUB-FIELD^NL^1^2"
^DD(52.62,0,"ID","WRITE")="W ""   "",$P(^(0),""^"",2)"
^DD(52.62,0,"NM","ELECTROYLTES")=""
^DD(52.62,0,"UP")="52.6"
^DD(52.62,.01,0)="ELECTROLYTE^MP50.4'^PS(50.4,^0;1^Q"
^DD(52.62,.01,20,0)="^.3LA^1^1"
^DD(52.62,.01,20,1,0)="PSJI"
^DD(52.62,.01,21,0)="^^9^9^2920514^^^^"
^DD(52.62,.01,21,1,0)="  This field should contain the electrolytes that make up this additive."
^DD(52.62,.01,21,2,0)="If the additive drug is SODIUM CHLORIDE, it would be made up of two"
^DD(52.62,.01,21,3,0)="electrolytes which would be SODIUM and CHLORIDE.  This field is used"
^DD(52.62,.01,21,4,0)="during hyperal label generation ONLY.  The IV PACKAGE will break down"
^DD(52.62,.01,21,5,0)="each additive into individual electrolytes and add together electrolytes"
^DD(52.62,.01,21,6,0)="that are the same, thereby giving total SODIUM and CHLORIDE"
^DD(52.62,.01,21,7,0)="in the hyperal order.  If no electrolytes are entered here the"
^DD(52.62,.01,21,8,0)="IV PACKAGE will print the additive without breaking it down into"
^DD(52.62,.01,21,9,0)="electrolytes."
^DD(52.62,.01,"DT")="2850929"
^DD(52.62,1,0)="CONCENTRATION^RFX^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""5N.N) X I $D(X) S PSIVX=X,Y=^DD(50.4,1,0),X=$P(^PS(50.4,+^PS(52.6,DA(1),2,DA,0),0),""^"",2) D ENC^PSIV S X=PSIVX_"" ""_X K PSIVX D STRTH^PSSDDUT2"
^DD(52.62,1,3)="Type a number between 0 and 99999."
^DD(52.62,1,20,0)="^.3LA^1^1"
^DD(52.62,1,20,1,0)="PSJI"
^DD(52.62,1,21,0)="^^16^16^2920723^^^^"
^DD(52.62,1,21,1,0)="  This field is the ratio of MLs to electrolyte unit.  This field"
^DD(52.62,1,21,2,0)="makes it possible for the IV PACKAGE to calculate the true strength"
^DD(52.62,1,21,3,0)="for each electrolyte."
^DD(52.62,1,21,4,0)="For example:"
^DD(52.62,1,21,5,0)="   If the additive you are defining is SODIUM CHLORIDE with a"
^DD(52.62,1,21,6,0)=" concentration of 2 MEQ/ML with the following electrolytes:"
^DD(52.62,1,21,7,0)="              ELECTROLYTE            CONCENTRATION"
^DD(52.62,1,21,8,0)="              ===========            ============="
^DD(52.62,1,21,9,0)="              SODIUM                 3 MEQ/ML"
^DD(52.62,1,21,10,0)="              CHLORIDE               2 MEQ/ML"
^DD(52.62,1,21,11,0)=" "
^DD(52.62,1,21,12,0)="  If a hyperal order had SODIUM CHLORIDE 30 MEQ, the 'true' strength of"
^DD(52.62,1,21,13,0)="each electrolyte would be:"
^DD(52.62,1,21,14,0)="TOTAL VOLUME OF ADDITIVE IS: 15 ML (30 MEQ/(2 MEQ/ML))"
^DD(52.62,1,21,15,0)="SODIUM  : 45 MEQ (15 ML*3 MEQ/ML)"
^DD(52.62,1,21,16,0)="CHLORIDE: 30 MEQ (15 ML*2 MEQ/ML)"
^DD(52.62,1,"DT")="2860307"
^DD(52.62,"B","CONCENTRATION",1)=""
^DD(52.62,"B","ELECTROLYTE",.01)=""
^DD(52.62,"GL",0,1,.01)=""
^DD(52.62,"GL",0,2,1)=""
^DD(52.62,"GR","PSJI",.01,1)=""
^DD(52.62,"GR","PSJI",1,1)=""
^DD(52.62,"RQ",1)=""
^DD(52.63,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(52.63,0,"DIK")="PSSVX6"
^DD(52.63,0,"NM","SYNONYM")=""
^DD(52.63,0,"UP")="52.6"
^DD(52.63,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(52.63,.01,1,0)="^.1"
^DD(52.63,.01,1,1,0)="52.6^D"
^DD(52.63,.01,1,1,1)="S ^PS(52.6,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(52.63,.01,1,1,2)="K ^PS(52.6,""D"",$E(X,1,30),DA(1),DA)"
^DD(52.63,.01,3)="Answer must be 1-10 characters in length."
^DD(52.63,.01,20,0)="^.3LA^1^1"
^DD(52.63,.01,20,1,0)="PSJI"
^DD(52.63,.01,21,0)="^^3^3^2910305^^"
^DD(52.63,.01,21,1,0)="  You may enter a synonym for this drug.  At any 'Select IV ADDITIVES:'"
^DD(52.63,.01,21,2,0)="prompt, you will be able to enter the synonym for this drug, rather than"
^DD(52.63,.01,21,3,0)="the complete name."
^DD(52.63,.01,"DT")="2851017"
^DD(52.63,"B","SYNONYM",.01)=""
^DD(52.63,"GL",0,1,.01)=""
^DD(52.63,"GR","PSJI",.01,1)=""
^DD(52.63,"IX",.01)=""
^DD(52.64,0)="DRUG INFORMATION SUB-FIELD^NL^.01^1"
^DD(52.64,0,"NM","DRUG INFORMATION")=""
^DD(52.64,0,"UP")="52.6"
^DD(52.64,.01,0)="DRUG INFORMATION^W^^0;1^Q"
^DD(52.64,.01,20,0)="^.3LA^1^1"
^DD(52.64,.01,20,1,0)="PSJI"
^DD(52.64,.01,21,0)="^^4^4^2860128^"
^DD(52.64,.01,21,1,0)="You may enter any drug information for this drug.  This field is"
^DD(52.64,.01,21,2,0)="displayed under the 'DRUG INQUIRY' option of the IV PACKAGE.  This"
^DD(52.64,.01,21,3,0)="field can be used as a means of communication to inform other pharmacists, "
^DD(52.64,.01,21,4,0)="nurses etc. on the ward about critical IV DRUGS."
^DD(52.64,.01,"DT")="2851104"
^DD(52.64,"B","DRUG INFORMATION",.01)=""
^DD(52.64,"GL",0,1,.01)=""
^DD(52.64,"GR","PSJI",.01,1)=""
^DD(52.7,0)="FIELD^^17^12"
^DD(52.7,0,"DDA")="N"
^DD(52.7,0,"DT")="2951103"
^DD(52.7,0,"ID",.02)="W ""   "",$P(^(0),U,4)"
^DD(52.7,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(52.7,0,"ID","WRITE")="I $D(^PSDRUG(+$P(^PS(52.7,+Y,0),""^"",2),0)) W !?15,$P(^(0),""^"",10)"
^DD(52.7,0,"IX","AAP",52.7,1)=""
^DD(52.7,0,"IX","AC",52.7,1)=""
^DD(52.7,0,"IX","AD",52.7,1)=""
^DD(52.7,0,"IX","AE",52.7,8)=""
^DD(52.7,0,"IX","AF",52.7,17)=""
^DD(52.7,0,"IX","AOI",52.7,9)=""
^DD(52.7,0,"IX","APD",52.7,16)=""
^DD(52.7,0,"IX","B",52.7,.01)=""
^DD(52.7,0,"IX","D",52.703,.01)=""
^DD(52.7,0,"NM","IV SOLUTIONS")=""
^DD(52.7,0,"PT",50.2,1)=""
^DD(52.7,0,"PT",50.21,.01)=""
^DD(52.7,0,"PT",52.61,6)=""
^DD(52.7,0,"PT",53.158,.01)=""
^DD(52.7,0,"PT",53.687,.01)=""
^DD(52.7,0,"PT",53.797,.01)=""
^DD(52.7,0,"PT",55.1058,.01)=""
^DD(52.7,0,"PT",55.11,.01)=""
^DD(52.7,0,"PT",57.18,.01)=""
^DD(52.7,0,"VR")="1.0"
^DD(52.7,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(52.7,.01,0)="PRINT NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(52.7,.01,1,0)="^.1"
^DD(52.7,.01,1,1,0)="52.7^B"
^DD(52.7,.01,1,1,1)="S ^PS(52.7,""B"",$E(X,1,30),DA)="""""
^DD(52.7,.01,1,1,2)="K ^PS(52.7,""B"",$E(X,1,30),DA)"
^DD(52.7,.01,3)="Answer must be 3-30 characters in length."
^DD(52.7,.01,8.5)="^"
^DD(52.7,.01,20,0)="^.3LA^1^1"
^DD(52.7,.01,20,1,0)="PSJI"
^DD(52.7,.01,21,0)="^^4^4^2910305^^^^"
^DD(52.7,.01,21,1,0)="  This field should contain the print name of the solution.  The"
^DD(52.7,.01,21,2,0)="name that is entered here will be printed on the IV label, manufacturing"
^DD(52.7,.01,21,3,0)="list, ward list, etc.  The volume should NOT be part of the print name,"
^DD(52.7,.01,21,4,0)="since the volume of the IV ORDER will be printed next to the print name."
^DD(52.7,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED"")"
^DD(52.7,.01,"DT")="2900406"
^DD(52.7,.02,0)="PRINT NAME {2}^F^^0;4^K:$L(X)>24!($L(X)<3) X"
^DD(52.7,.02,3)="Answer must be 3-24 characters in length."
^DD(52.7,.02,20,0)="^.3LA^1^1"
^DD(52.7,.02,20,1,0)="PSJI"
^DD(52.7,.02,21,0)="^^2^2^2910305^^^"
^DD(52.7,.02,21,1,0)="  An additional print name can be added for each primary solution.  This"
^DD(52.7,.02,21,2,0)="field should only be used when the primary solution is a premix."
^DD(52.7,.02,"DT")="2851219"
^DD(52.7,1,0)="GENERIC DRUG^R*P50'^PSDRUG(^0;2^S DIC(""S"")=""I '$P($G(^PSDRUG(+Y,2)),""""^"""",5)""_$S($D(DRUGEDIT):"""",1:"",$S('$G(^(""""I"""")):1,1:^(""""I"""")'<DT)"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(52.7,1,1,0)="^.1"
^DD(52.7,1,1,1,0)="52.7^AC"
^DD(52.7,1,1,1,1)="S ^PS(52.7,""AC"",$E(X,1,30),DA)="""""
^DD(52.7,1,1,1,2)="K ^PS(52.7,""AC"",$E(X,1,30),DA)"
^DD(52.7,1,1,2,0)="52.6^AAP^MUMPS"
^DD(52.7,1,1,2,1)="I $P($G(^PSDRUG(X,2)),""^"",3)'[""I"" S PSIUDA=X,PSIUX=""I"" D ENS^PSSGIU K PSIUDA,PSIUX"
^DD(52.7,1,1,2,2)="I '$D(^PS(52.6,""AC"",X)) S XX=$O(^PS(52.7,""AC"",X,0)) S:XX=DA XX=$O(^(XX)) I XX,$P($G(^PSDRUG(X,2)),""^"",3)[""I"" S PSIUDA=X,PSIUX=""I"" D END^PSSGIU K PSIUDA,PSIUX"
^DD(52.7,1,1,2,3)="Updates the Application Package's Use field for the generic drug selected."
^DD(52.7,1,1,2,"%D",0)="^^3^3^2970926^^^"
^DD(52.7,1,1,2,"%D",1,0)="  This is used to automatically update the Application Packages' use field"
^DD(52.7,1,1,2,"%D",2,0)="in the Drug file for the generic drug selected."
^DD(52.7,1,1,2,"%D",3,0)="In the form of: ^PS(52.7,""AC"",X,DA)"
^DD(52.7,1,1,2,"DT")="2911126"
^DD(52.7,1,1,3,0)="^^TRIGGER^52.7^16"
^DD(52.7,1,1,3,1)="K DIV S (DIV,X)=$P($G(^PSDRUG(X,2)),""^"",6) I DIV S DIU=$P($G(^PS(52.7,DA,0)),""^"",12) I DIV'=DIU S $P(^(0),""^"",12)=DIV I $O(^DD(52.7,16,1,0)) S (D0,DIV(0))=DA,DIH=52.7,DIG=16 D ^DICR"
^DD(52.7,1,1,3,2)="S DIU=$P($G(^PS(52.7,DA,0)),""^"",12) I DIU]"""" S $P(^(0),""^"",12)="""" I $O(^DD(52.7,16,1,0)) K DIV S (DIV,X)="""",(D0,DIV(0))=DA,DIH=52.7,DIG=16 D ^DICR"
^DD(52.7,1,1,3,3)="Needed to update the PRIMARY DRUG field."
^DD(52.7,1,1,3,"%D",0)="^^4^4^2911126^"
^DD(52.7,1,1,3,"%D",1,0)="  Used to update the PRIMARY DRUG field (16) when the solution's GENERIC"
^DD(52.7,1,1,3,"%D",2,0)="DRUG field (1) is changed.  The primary drug field will only be updated if"
^DD(52.7,1,1,3,"%D",3,0)="the generic drug entered has been matched to a primary drug in the PRIMARY"
^DD(52.7,1,1,3,"%D",4,0)="DRUG file (50.3)."
^DD(52.7,1,1,3,"CREATE VALUE")="GENERIC DRUG:#64"
^DD(52.7,1,1,3,"DELETE VALUE")="@"
^DD(52.7,1,1,3,"DT")="2911002"
^DD(52.7,1,1,3,"FIELD")="PRIMARY DRUG"
^DD(52.7,1,1,4,0)="52.7^AD^MUMPS"
^DD(52.7,1,1,4,1)="D S527^PSSPOID1"
^DD(52.7,1,1,4,2)="D K527^PSSPOID1"
^DD(52.7,1,1,4,"%D",0)="^^13^13^3001026^"
^DD(52.7,1,1,4,"%D",1,0)="This cross reference is used to update the Pharmacy Orderable Item field"
^DD(52.7,1,1,4,"%D",2,0)="(#9) of the IV SOLUTIONS file (#52.7). This cross reference is also used"
^DD(52.7,1,1,4,"%D",3,0)="to keep the Pharmacy Orderable Item entries in the PHARMACY ORDERABLE ITEM"
^DD(52.7,1,1,4,"%D",4,0)="file (#50.7) up to date with current information, based on all active"
^DD(52.7,1,1,4,"%D",5,0)="Drugs, IV Additives, and IV Solutions that are matched to the Pharmacy"
^DD(52.7,1,1,4,"%D",6,0)="Orderable Item. This information includes Inactivation Date status,"
^DD(52.7,1,1,4,"%D",7,0)="Non-Formulary status, Supply status, and Usage status. This information is"
^DD(52.7,1,1,4,"%D",8,0)="also sent to CPRS (Computerized Patient Record System) by using the ""PS"
^DD(52.7,1,1,4,"%D",9,0)="MFSEND OR"" protocol to update the corresponding Orderable Item entry in"
^DD(52.7,1,1,4,"%D",10,0)="the ORDERABLE ITEMS file (#101.43). The cross references that are set and"
^DD(52.7,1,1,4,"%D",11,0)="killed are:"
^DD(52.7,1,1,4,"%D",12,0)="^PSDRUG(""A527"",Dispense Drug IEN,IV Solution IEN)="""","
^DD(52.7,1,1,4,"%D",13,0)="^PS(52.7,""AOI"",Pharmacy Orderable Item IEN,IV Solution IEN)=""""."
^DD(52.7,1,1,4,"DT")="3001018"
^DD(52.7,1,12)="INACTIVE DRUGS ARE NOT SELECTABLE"
^DD(52.7,1,12.1)="S DIC(""S"")=""I '$P($G(^PSDRUG(+Y,2)),""""^"""",5)""_$S($D(DRUGEDIT):"""",1:"",$S('$G(^(""""I"""")):1,1:^(""""I"""")'<DT)"")"
^DD(52.7,1,20,0)="^.3LA^1^1"
^DD(52.7,1,20,1,0)="PSJI"
^DD(52.7,1,21,0)="^^1^1^2911003^^^^"
^DD(52.7,1,21,1,0)="  This field will link the IV Solution file (#52.7) to the drug file (#50)."
^DD(52.7,1,"DT")="3001018"
^DD(52.7,2,0)="VOLUME^RFX^^0;3^K:X[""""""""!($A(X)=45)!(X'?.N0.1""."".N)!(X>9999)!(X<.01) X I $D(X) S X=X_"" ML"" D EN^DDIOL("" ML"","""",""?0"")"
^DD(52.7,2,1,0)="^.1^^0"
^DD(52.7,2,3)="Enter a number from 0.01-9999."
^DD(52.7,2,20,0)="^.3LA^1^1"
^DD(52.7,2,20,1,0)="PSJI"
^DD(52.7,2,21,0)="^^3^3^2981218^^^^"
^DD(52.7,2,21,1,0)="  The number entered here will represent the volume of this solution."
^DD(52.7,2,21,2,0)="When entering an IV order, this volume will be stuffed into the"
^DD(52.7,2,21,3,0)="volume field for that IV ORDER."
^DD(52.7,2,"DT")="3050624"
^DD(52.7,4,0)="ELECTROLYTES^52.702IP^^2;0"
^DD(52.7,4,20,0)="^.3LA^1^1"
^DD(52.7,4,20,1,0)="PSJI"
^DD(52.7,4,21,0)="^^1^1^2940714^^^"
^DD(52.7,4,21,1,0)="  This contains information on the electrolytes that make up this solution."
^DD(52.7,4,"DT")="2920117"
^DD(52.7,5,0)="SYNONYM^52.703^^3;0"
^DD(52.7,5,20,0)="^.3LA^1^1"
^DD(52.7,5,20,1,0)="PSJI"
^DD(52.7,5,21,0)="^^1^1^2901003^"
^DD(52.7,5,21,1,0)="These are other names by which a solution may be identified."
^DD(52.7,6,0)="DRUG INFORMATION^52.704^^4;0"
^DD(52.7,6,20,0)="^.3LA^1^1"
^DD(52.7,6,20,1,0)="PSJI"
^DD(52.7,6,21,0)="^^4^4^2940714^^^^"
^DD(52.7,6,21,1,0)="  Any data entered here will be shown under the 'DRUG INQUIRY' option"
^DD(52.7,6,21,2,0)="of the IV PACKAGE.  This field can be used as a means of communication"
^DD(52.7,6,21,3,0)="to other pharmacists or nurses on the wards to inform them about critical"
^DD(52.7,6,21,4,0)="IV DRUGS."
^DD(52.7,7,0)="AVERAGE DRUG COST^NJ17,9^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(52.7,7,3)="Type a Number between 0 and 9999999, 9 Decimal Digits."
^DD(52.7,7,20,0)="^.3LA^1^1"
^DD(52.7,7,20,1,0)="PSJI"
^DD(52.7,7,21,0)="4^^4^4^2970124^"
^DD(52.7,7,21,1,0)=" "
^DD(52.7,7,21,2,0)="  This is the average drug cost per ml for this IV solution."
^DD(52.7,7,21,3,0)=" "
^DD(52.7,7,21,4,0)=" "
^DD(52.7,7,"DT")="2890926"
^DD(52.7,8,0)="INACTIVATION DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.7,8,1,0)="^.1"
^DD(52.7,8,1,1,0)="52.7^AE^MUMPS"
^DD(52.7,8,1,1,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.7,8,1,1,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.7,8,1,1,3)="Do Not Delete"
^DD(52.7,8,1,1,"%D",0)="^^8^8^3001026^"
^DD(52.7,8,1,1,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(52.7,8,1,1,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(52.7,8,1,1,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(52.7,8,1,1,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(52.7,8,1,1,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(52.7,8,1,1,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(52.7,8,1,1,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(52.7,8,1,1,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(52.7,8,1,1,"DT")="3001017"
^DD(52.7,8,20,0)="^.3LA^1^1"
^DD(52.7,8,20,1,0)="PSJI"
^DD(52.7,8,21,0)="^^4^4^2910305^^^"
^DD(52.7,8,21,1,0)="  This field is used to inactivate a drug.  An IV drug should NEVER be"
^DD(52.7,8,21,2,0)="deleted from a file since some IV ORDERS may still be using it.  Enter"
^DD(52.7,8,21,3,0)="the date the drug should be inactivated.  Once the date of inactivation"
^DD(52.7,8,21,4,0)="arrives, the drug will no longer be a valid choice for IV SOLUTIONS."
^DD(52.7,8,"DT")="3001017"
^DD(52.7,9,0)="PHARMACY ORDERABLE ITEM^P50.7XI^PS(50.7,^0;11^Q"
^DD(52.7,9,1,0)="^.1^^-1"
^DD(52.7,9,1,1,0)="52.7^AOI"
^DD(52.7,9,1,1,1)="S ^PS(52.7,""AOI"",$E(X,1,30),DA)="""""
^DD(52.7,9,1,1,2)="K ^PS(52.7,""AOI"",$E(X,1,30),DA)"
^DD(52.7,9,1,1,"%D",0)="^.101^1^1^3001024^^"
^DD(52.7,9,1,1,"%D",1,0)="Cross-reference on PHARMACY ORDERABLE ITEM, field #50.7."
^DD(52.7,9,1,1,"DT")="2941122"
^DD(52.7,9,3)=""
^DD(52.7,9,8.5)="^"
^DD(52.7,9,9)="^"
^DD(52.7,9,12)="Only solutions with no data in the PRINT NAME {2} field may be selected."
^DD(52.7,9,12.1)="S DIC(""S"")=""I $P(^PS(52.7,DA,0),U,4)="""""""""""
^DD(52.7,9,21,0)="^^6^6^3010427^"
^DD(52.7,9,21,1,0)="This field is a pointer to the PHARMACY ORDERABLE ITEM (#50.7) File. This"
^DD(52.7,9,21,2,0)="field is not editable. It is controlled by the software. Every IV Solution"
^DD(52.7,9,21,3,0)="has a Generic Drug pointer to the DRUG (#50) File, and every Drug entry"
^DD(52.7,9,21,4,0)="has a pointer to the PHARMACY ORDERABLE ITEM (#50.7) File. The software"
^DD(52.7,9,21,5,0)="will automatically keep this field updated with the Pharmacy Orderable"
^DD(52.7,9,21,6,0)="Item that the Generic Drug points to."
^DD(52.7,9,23,0)="^.001^1^1^3010427^^"
^DD(52.7,9,23,1,0)="This field is a pointer the Pharmacy Orderable Item (#50.7) File."
^DD(52.7,9,"DT")="3001017"
^DD(52.7,16,0)="*PRIMARY DRUG^RP50.3'^PS(50.3,^0;12^Q"
^DD(52.7,16,1,0)="^.1"
^DD(52.7,16,1,1,0)="52.7^APD"
^DD(52.7,16,1,1,1)="S ^PS(52.7,""APD"",$E(X,1,30),DA)="""""
^DD(52.7,16,1,1,2)="K ^PS(52.7,""APD"",$E(X,1,30),DA)"
^DD(52.7,16,1,1,"%D",0)="^^2^2^2920123^"
^DD(52.7,16,1,1,"%D",1,0)="  Used to check if a solution is linked to an order's primary drug if"
^DD(52.7,16,1,1,"%D",2,0)="the order is a ""non-fluid"" type."
^DD(52.7,16,1,1,"DT")="2920123"
^DD(52.7,16,5,1,0)="50^64^5"
^DD(52.7,16,5,2,0)="52.7^1^3"
^DD(52.7,16,21,0)="^^2^2^2910930^^"
^DD(52.7,16,21,1,0)="  Links the solution in the IV SOLUTIONS file (52.7) to a primary drug"
^DD(52.7,16,21,2,0)="in the PRIMARY DRUG file (50.3)."
^DD(52.7,16,23,0)="^^2^2^2910930^^"
^DD(52.7,16,23,1,0)="  When the GENERIC DRUG field is edited, the primary drug linked to the"
^DD(52.7,16,23,2,0)="generic drug entered for the solution is triggered into this field."
^DD(52.7,16,"DT")="2960125"
^DD(52.7,17,0)="USED IN IV FLUID ORDER ENTRY^*S^1:YES;0:NO;^0;13^Q"
^DD(52.7,17,.1)=""
^DD(52.7,17,1,0)="^.1"
^DD(52.7,17,1,1,0)="52.7^AF^MUMPS"
^DD(52.7,17,1,1,1)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.7,17,1,1,2)="I '$D(DIU(0)) N PSSTEST S PSSTEST=$P($G(^PS(52.7,DA,0)),""^"",11) Q:'PSSTEST  S PSSCROSS=1 D EN1^PSSPOIDT K PSSCROSS Q"
^DD(52.7,17,1,1,"%D",0)="^^8^8^3001026^"
^DD(52.7,17,1,1,"%D",1,0)="This cross reference is used to keep the Pharmacy Orderable Item entry in"
^DD(52.7,17,1,1,"%D",2,0)="the PHARMACY ORDERABLE ITEM file (#50.7) up to date with current"
^DD(52.7,17,1,1,"%D",3,0)="information, based on all active Drugs, IV Additives, and IV Solutions"
^DD(52.7,17,1,1,"%D",4,0)="that are matched to the Pharmacy Orderable Item. This information includes"
^DD(52.7,17,1,1,"%D",5,0)="Inactivation Date status, Non-Formulary status, Supply status, and Usage"
^DD(52.7,17,1,1,"%D",6,0)="status. This information is also sent to CPRS (Computerized Patient Record"
^DD(52.7,17,1,1,"%D",7,0)="System) by using the ""PS MFSEND OR"" protocol to update the corresponding"
^DD(52.7,17,1,1,"%D",8,0)="Orderable Item entry in the ORDERABLE ITEMS file (#101.43)."
^DD(52.7,17,1,1,"DT")="3001017"
^DD(52.7,17,12)="Only solutions with no data in the PRINT NAME {2} field may be selected."
^DD(52.7,17,12.1)="S DIC(""S"")=""I $P(^PS(52.7,DA,0),U,4)="""""""""""
^DD(52.7,17,21,0)="^^3^3^2940714^^^^"
^DD(52.7,17,21,1,0)="Allows Pharmacy to limit the solutions available in IV Fluid order entry."
^DD(52.7,17,21,2,0)="Solutions having data in the PRINT NAME {2} field are assumed to be "
^DD(52.7,17,21,3,0)="multi-ingredient drugs, and are not selectable."
^DD(52.7,17,23,0)="^^1^1^2940714^^^"
^DD(52.7,17,23,1,0)="Limits solutions used in clinician IV Fluid order entry to single ingredient drugs only. Solutions with data in the PRINT NAME {2} field (.02) are now allowed to be marked."
^DD(52.7,17,"DT")="3001017"
^DD(52.7,"B","*PRIMARY DRUG",16)=""
^DD(52.7,"B","AVERAGE DRUG COST",7)=""
^DD(52.7,"B","DRUG INFORMATION",6)=""
^DD(52.7,"B","ELECTROLYTES",4)=""
^DD(52.7,"B","GENERIC DRUG",1)=""
^DD(52.7,"B","INACTIVATION DATE",8)=""
^DD(52.7,"B","PHARMACY ORDERABLE ITEM",9)=""
^DD(52.7,"B","PRINT NAME",.01)=""
^DD(52.7,"B","PRINT NAME {2}",.02)=""
^DD(52.7,"B","SYNONYM",5)=""
^DD(52.7,"B","USED IN IV FLUID ORDER ENTRY",17)=""
^DD(52.7,"B","VOLUME",2)=""
^DD(52.7,"GL",0,1,.01)=""
^DD(52.7,"GL",0,2,1)=""
^DD(52.7,"GL",0,3,2)=""
^DD(52.7,"GL",0,4,.02)=""
^DD(52.7,"GL",0,7,7)=""
^DD(52.7,"GL",0,11,9)=""
^DD(52.7,"GL",0,12,16)=""
^DD(52.7,"GL",0,13,17)=""
^DD(52.7,"GL",2,0,4)=""
^DD(52.7,"GL",3,0,5)=""
^DD(52.7,"GL",4,0,6)=""
^DD(52.7,"GL","I",1,8)=""
^DD(52.7,"GR","PSJI",.01,1)=""
^DD(52.7,"GR","PSJI",.02,1)=""
^DD(52.7,"GR","PSJI",1,1)=""
^DD(52.7,"GR","PSJI",2,1)=""
^DD(52.7,"GR","PSJI",4,1)=""
^DD(52.7,"GR","PSJI",5,1)=""
^DD(52.7,"GR","PSJI",6,1)=""
^DD(52.7,"GR","PSJI",7,1)=""
^DD(52.7,"GR","PSJI",8,1)=""
^DD(52.7,"IX",.01)=""
^DD(52.7,"IX",1)=""
^DD(52.7,"IX",8)=""
^DD(52.7,"IX",9)=""
^DD(52.7,"IX",16)=""
^DD(52.7,"IX",17)=""
^DD(52.7,"RQ",.01)=""
^DD(52.7,"RQ",1)=""
^DD(52.7,"RQ",2)=""
^DD(52.7,"RQ",16)=""
^DD(52.7,"SB",52.702,4)=""
^DD(52.7,"SB",52.703,5)=""
^DD(52.7,"SB",52.704,6)=""
^DD(52.702,0)="ELECTROLYTES SUB-FIELD^NL^1^2"
^DD(52.702,0,"NM","ELECTROLYTES")=""
^DD(52.702,0,"UP")="52.7"
^DD(52.702,.01,0)="ELECTROLYTES^MP50.4'^PS(50.4,^0;1^Q"
^DD(52.702,.01,20,0)="^.3LA^1^1"
^DD(52.702,.01,20,1,0)="PSJI"
^DD(52.702,.01,21,0)="^^9^9^2940714^^^^"
^DD(52.702,.01,21,1,0)="  This field should contain the electrolytes that make up this solution."
^DD(52.702,.01,21,2,0)="If the solution drug is AMINOSYN 8.5% W/ELECT, it would be made up of "
^DD(52.702,.01,21,3,0)="several electrolytes which might be SODIUM, POTASSIUM, CHLORIDE,"
^DD(52.702,.01,21,4,0)="MAGNESIUM, PHOSPHATE and ACETATE.  This field is used during hyperal"
^DD(52.702,.01,21,5,0)="label generation ONLY.  The IV PACKAGE will break down each solution into "
^DD(52.702,.01,21,6,0)="individual electrolytes and add together electrolytes that  are the same.  "
^DD(52.702,.01,21,7,0)="Thereby giving total SODIUM, POTASSIUM, CHLORIDE etc. in the hyperal "
^DD(52.702,.01,21,8,0)="order.  If no electrolytes are entered here the IV PACKAGE will print the "
^DD(52.702,.01,21,9,0)="solution without breaking it down into electrolytes."
^DD(52.702,.01,"DT")="2850929"
^DD(52.702,1,0)="CONCENTRATION^RFX^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""5N.N) X I $D(X) S PSIVX=X,Y=^DD(50.4,1,0),X=$P(^PS(50.4,+^PS(52.7,DA(1),2,DA,0),0),""^"",2) D ENC^PSIV S X=PSIVX_"" ""_X K PSIVX D STRTH^PSSDDUT2"
^DD(52.702,1,3)="Type a number between 0 and 99999."
^DD(52.702,1,20,0)="^.3LA^1^1"
^DD(52.702,1,20,1,0)="PSJI"
^DD(52.702,1,21,0)="^^23^23^2910305^^^^"
^DD(52.702,1,21,1,0)="  This field is the ratio of MLs to electrolyte unit.  This field makes"
^DD(52.702,1,21,2,0)="it possible for the IV PACKAGE to calculate the true strength for each"
^DD(52.702,1,21,3,0)="electrolyte."
^DD(52.702,1,21,4,0)="For example:"
^DD(52.702,1,21,5,0)="   If the solution you are defining is AMINOSYN 8.5% W/ELECT with the"
^DD(52.702,1,21,6,0)="following electrolytes."
^DD(52.702,1,21,7,0)="                 ELECTROLYTE                    CONCENTRATION"
^DD(52.702,1,21,8,0)="                 ===========                    ============="
^DD(52.702,1,21,9,0)="                 SODIUM                         .07  MEQ/ML"
^DD(52.702,1,21,10,0)="                 CHLORIDE                       .098 MEQ/ML"
^DD(52.702,1,21,11,0)="                 POTASSIUM                      .066 MEQ/ML"
^DD(52.702,1,21,12,0)="                 MAGNESIUM                      .01  MEQ/ML"
^DD(52.702,1,21,13,0)="                 ACETATE                        .142 MEQ/ML"
^DD(52.702,1,21,14,0)="                 PHOSPHATE                      .03  MM/ML"
^DD(52.702,1,21,15,0)=" "
^DD(52.702,1,21,16,0)="  If the hyperal order had AMINOSYN 8.5% W/ELECT 500 ML, the 'true'"
^DD(52.702,1,21,17,0)="strength of each electrolyte would be:"
^DD(52.702,1,21,18,0)="                 SODIUM    : 35 MEQ (500 ML*.07 MEQ/ML)"
^DD(52.702,1,21,19,0)="                 CHLORIDE  : 49 MEQ (500 ML*.098 MEQ/ML)"
^DD(52.702,1,21,20,0)="                 POTASSIUM : 33 MEQ (500 ML*.066 MEQ/ML)"
^DD(52.702,1,21,21,0)="                 MAGNESIUM :  5 MEQ (500 ML*.01 MEQ/ML)"
^DD(52.702,1,21,22,0)="                 ACETATE   : 71 MEQ (500 ML*.142 MEQ/ML)"
^DD(52.702,1,21,23,0)="                 PHOSPHATE : 15 MM  (500 ML*.03 MM/ML)"
^DD(52.702,1,"DT")="2860307"
^DD(52.702,"B","CONCENTRATION",1)=""
^DD(52.702,"B","ELECTROLYTES",.01)=""
^DD(52.702,"GL",0,1,.01)=""
^DD(52.702,"GL",0,2,1)=""
^DD(52.702,"GR","PSJI",.01,1)=""
^DD(52.702,"GR","PSJI",1,1)=""
^DD(52.702,"RQ",1)=""
^DD(52.703,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(52.703,0,"NM","SYNONYM")=""
^DD(52.703,0,"UP")="52.7"
^DD(52.703,.01,0)="SYNONYM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(52.703,.01,1,0)="^.1"
^DD(52.703,.01,1,1,0)="52.7^D"
^DD(52.703,.01,1,1,1)="S ^PS(52.7,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(52.703,.01,1,1,2)="K ^PS(52.7,""D"",$E(X,1,30),DA(1),DA)"
^DD(52.703,.01,3)="Answer must be 1-20 characters in length."
^DD(52.703,.01,20,0)="^.3LA^1^1"
^DD(52.703,.01,20,1,0)="PSJI"
^DD(52.703,.01,21,0)="^^3^3^2910305^"
^DD(52.703,.01,21,1,0)="  You may enter a synonym for this drug.  At any 'Select IV SOLUTIONS:'"
^DD(52.703,.01,21,2,0)="prompt, you will be able to enter the synonym for this drug, rather than"
^DD(52.703,.01,21,3,0)="the complete name."
^DD(52.703,.01,"DT")="2900129"
^DD(52.703,"B","SYNONYM",.01)=""
^DD(52.703,"GL",0,1,.01)=""
^DD(52.703,"GR","PSJI",.01,1)=""
^DD(52.703,"IX",.01)=""
^DD(52.704,0)="DRUG INFORMATION SUB-FIELD^NL^.01^1"
^DD(52.704,0,"NM","DRUG INFORMATION")=""
^DD(52.704,0,"UP")="52.7"
^DD(52.704,.01,0)="DRUG INFORMATION^W^^0;1^Q"
^DD(52.704,.01,20,0)="^.3LA^1^1"
^DD(52.704,.01,20,1,0)="PSJI"
^DD(52.704,.01,21,0)="^^3^3^2940708^^^^"
^DD(52.704,.01,21,1,0)="Any data entered in this field will be shown under the ""DRUG INQUIRY"""
^DD(52.704,.01,21,2,0)="option of the IV PACKAGE. It may be used as a means of passing along"
^DD(52.704,.01,21,3,0)="information regarding certain IV drugs to other pharmacists or nurses."
^DD(52.704,.01,"DT")="2851104"
^DD(52.704,"B","DRUG INFORMATION",.01)=""
^DD(52.704,"GL",0,1,.01)=""
^DD(52.704,"GR","PSJI",.01,1)=""
^DD(52.8,0)="FIELD^^1^2"
^DD(52.8,0,"DDA")="Y"
^DD(52.8,0,"IX","B",52.8,.01)=""
^DD(52.8,0,"IX","C",52.8,1)=""
^DD(52.8,0,"NM","PHARMACY ARCHIVE")=""
^DD(52.8,0,"VR")="7.0"
^DD(52.8,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.8,.01,0)="RX #^RP52'X^PSRX(^0;1^S DINUM=X Q"
^DD(52.8,.01,1,0)="^.1"
^DD(52.8,.01,1,1,0)="52.8^B^MUMPS"
^DD(52.8,.01,1,1,1)="S ^PSOARC(""B"",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA)="""""
^DD(52.8,.01,1,1,2)="K ^PSOARC(""B"",$P(^DPT($P(^PSRX(X,0),U,2),0),U,1),$P(^(0),U,9),DA)"
^DD(52.8,.01,1,1,"%D",0)="^^3^3^2971022^^"
^DD(52.8,.01,1,1,"%D",1,0)="This cross reference lists the patient name, patient social security number,"
^DD(52.8,.01,1,1,"%D",2,0)="then internal entry number. It sets the global"
^DD(52.8,.01,1,1,"%D",3,0)="^PSOARC(""B"",Patient Name,Patient SSN,DA)=""""."
^DD(52.8,.01,3)=""
^DD(52.8,.01,21,0)="^^1^1^2920127^^"
^DD(52.8,.01,21,1,0)="Pointer to the PRESCRIPTION file"
^DD(52.8,.01,"DT")="2860505"
^DD(52.8,1,0)="PATIENT #^RP2'^DPT(^0;2^Q"
^DD(52.8,1,1,0)="^.1^^0"
^DD(52.8,1,1,1,0)="52.8^C"
^DD(52.8,1,1,1,1)="S ^PSOARC(""C"",$E(X,1,30),DA)="""""
^DD(52.8,1,1,1,2)="K ^PSOARC(""C"",$E(X,1,30),DA)"
^DD(52.8,1,1,1,"%D",0)="^^1^1^2930323^^^^"
^DD(52.8,1,1,1,"%D",1,0)="This xref is used to index this file by patient."
^DD(52.8,1,21,0)="^^1^1^2930323^^^"
^DD(52.8,1,21,1,0)="This field is used for the name of the patient."
^DD(52.8,1,23,0)="^^1^1^2930323^"
^DD(52.8,1,23,1,0)="pointer"
^DD(52.8,1,"DT")="2860505"
^DD(52.8,"B","PATIENT #",1)=""
^DD(52.8,"B","RX #",.01)=""
^DD(52.8,"GL",0,1,.01)=""
^DD(52.8,"GL",0,2,1)=""
^DD(52.8,"IX",.01)=""
^DD(52.8,"IX",1)=""
^DD(52.8,"RQ",.01)=""
^DD(52.8,"RQ",1)=""
^DD(52.85,0)="FIELD^^51^8"
^DD(52.85,0,"DDA")="N"
^DD(52.85,0,"DT")="3070403"
^DD(52.85,0,"IX","B",52.85,.01)=""
^DD(52.85,0,"NM","EPHARMACY MEDICATION PROFILE PREFERENCES")=""
^DD(52.85,0,"VR")="7.0"
^DD(52.85,0,"VRPK")="PSO"
^DD(52.85,.01,0)="DIVISION^RP59'^PS(59,^0;1^Q"
^DD(52.85,.01,1,0)="^.1"
^DD(52.85,.01,1,1,0)="52.85^B"
^DD(52.85,.01,1,1,1)="S ^PS(52.85,""B"",$E(X,1,30),DA)="""""
^DD(52.85,.01,1,1,2)="K ^PS(52.85,""B"",$E(X,1,30),DA)"
^DD(52.85,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(52.85,.01,21,0)="^^1^1^3070403^"
^DD(52.85,.01,21,1,0)="This is the Pharmacy Division for which the division-specific Medication Profile preferences refer to.  "
^DD(52.85,.01,"DT")="3070403"
^DD(52.85,1,0)="EXP/CANCEL CUTOFF^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(52.85,1,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(52.85,1,21,0)="^^4^4^3070403^^"
^DD(52.85,1,21,1,0)="This is the default cutoff number of days for a expired or discontinued prescription to be displayed in the ePharmacy Medication Profile for the users logged into the Outpatient Pharmacy application under this Pharmacy Division. The number of"
^DD(52.85,1,21,2,0)="days count from the date the prescription was either expired or discontinued."
^DD(52.85,1,21,3,0)=" "
^DD(52.85,1,21,4,0)="Note: This parameter can be overridden by user specific preferences."
^DD(52.85,1,"DT")="3070403"
^DD(52.85,2,0)="SORT BY^S^RX:RX NUMBER;DR:DRUG NAME;ID:ISSUE DATE;LF:LAST FILL;^0;3^Q"
^DD(52.85,2,21,0)="^^3^3^3070403^^"
^DD(52.85,2,21,1,0)="This is the default 'SORT BY' column in the ePharmacy Medication Profile for the users logged into the Outpatient Pharmacy application under this Pharmacy Division."
^DD(52.85,2,21,2,0)=" "
^DD(52.85,2,21,3,0)="Note: This parameter can be overridden by user specific preferences.  "
^DD(52.85,2,"DT")="3070403"
^DD(52.85,3,0)="SORT ORDER^S^A:ASCENDING;D:DESCENDING;^0;4^Q"
^DD(52.85,3,21,0)="^^3^3^3070403^"
^DD(52.85,3,21,1,0)="This is the default sorting order (Ascending or Descending) column in the ePharmacy Medication Profile for the users logged into the Outpatient Pharmacy application under this Pharmacy Division.  "
^DD(52.85,3,21,2,0)=" "
^DD(52.85,3,21,3,0)="Note: This parameter can be overridden by user specific preferences.  "
^DD(52.85,3,"DT")="3070403"
^DD(52.85,4,0)="DISPLAY SIG^S^0:OFF;1:ON;^0;5^Q"
^DD(52.85,4,21,0)="^^4^4^3070403^^"
^DD(52.85,4,21,1,0)="This is the default value (ON/OFF) that determine whether the SIG will be displayed or not in the ePharmacy Medication Profile for the users logged into the Outpatient Pharmacy application under this Pharmacy Division. When 'ON', the SIG is"
^DD(52.85,4,21,2,0)="displayed in the line right below its respective prescription.  "
^DD(52.85,4,21,3,0)="  "
^DD(52.85,4,21,4,0)="Note: This parameter can be overridden by user specific preferences.  "
^DD(52.85,4,"DT")="3070403"
^DD(52.85,5,0)="GROUP BY STATUS^S^0:OFF;1:ON;^0;6^Q"
^DD(52.85,5,21,0)="^^4^4^3070403^^^"
^DD(52.85,5,21,1,0)="This is the default value (YES/NO) that determine whether the list of prescription should be group by status (Active, Discontinued, Hold, etc.) or not in the ePharmacy Medication Profile for the users logged into the Outpatient Pharmacy"
^DD(52.85,5,21,2,0)="application under this Pharmacy Division. When this parameter is set to 'NO', all the regular prescriptions (excludes: Non-VA Meds, Pending Orders and REFILL TOO SOON/DUR prescriptions) are listed under the 'CURRENT ORDERS' group. "
^DD(52.85,5,21,3,0)="                                  "
^DD(52.85,5,21,4,0)="Note: This parameter can be overridden by user specific preferences.  "
^DD(52.85,5,"DT")="3070403"
^DD(52.85,6,0)="DISPLAY ORDER COUNT^S^0:OFF;1:ON;^0;7^Q"
^DD(52.85,6,21,0)="^^4^4^3070403^^"
^DD(52.85,6,21,1,0)="This is the default value (YES/NO) that determine whether the count of prescriptions listed under a group (Active, Non-VA Meds, Pending Orders, etc.) should be displayed in the header of that group in the ePharmacy Medication Profile for the"
^DD(52.85,6,21,2,0)="users logged into the Outpatient Pharmacy application under this Pharmacy Division. "
^DD(52.85,6,21,3,0)="                                  "
^DD(52.85,6,21,4,0)="Note: This parameter can be overridden by user specific preferences. "
^DD(52.85,6,"DT")="3070403"
^DD(52.85,51,0)="USER^52.8551P^^USER;0"
^DD(52.85,51,21,0)="^^1^1^3070403^"
^DD(52.85,51,21,1,0)="This sub-file contains users and their specific preferences for the ePharmacy Medication Profile. The user-specific preferences in this sub-file override the division's as well as the 'Factory Default' preferences.  "
^DD(52.85,"B","DISPLAY ORDER COUNT",6)=""
^DD(52.85,"B","DISPLAY SIG",4)=""
^DD(52.85,"B","DIVISION",.01)=""
^DD(52.85,"B","EXP/CANCEL CUTOFF",1)=""
^DD(52.85,"B","GROUP BY STATUS",5)=""
^DD(52.85,"B","SORT BY",2)=""
^DD(52.85,"B","SORT ORDER",3)=""
^DD(52.85,"B","USER",51)=""
^DD(52.85,"GL",0,1,.01)=""
^DD(52.85,"GL",0,2,1)=""
^DD(52.85,"GL",0,3,2)=""
^DD(52.85,"GL",0,4,3)=""
^DD(52.85,"GL",0,5,4)=""
^DD(52.85,"GL",0,6,5)=""
^DD(52.85,"GL",0,7,6)=""
^DD(52.85,"GL","USER",0,51)=""
^DD(52.85,"IX",.01)=""
^DD(52.85,"RQ",.01)=""
^DD(52.85,"SB",52.8551,51)=""
^DD(52.8551,0)="USER SUB-FIELD^^6^7"
^DD(52.8551,0,"DT")="3070403"
^DD(52.8551,0,"IX","B",52.8551,.01)=""
^DD(52.8551,0,"NM","USER")=""
^DD(52.8551,0,"UP")="52.85"
^DD(52.8551,.01,0)="USER^P200'^VA(200,^0;1^Q"
^DD(52.8551,.01,1,0)="^.1"
^DD(52.8551,.01,1,1,0)="52.8551^B"
^DD(52.8551,.01,1,1,1)="S ^PS(52.85,DA(1),""USER"",""B"",$E(X,1,30),DA)="""""
^DD(52.8551,.01,1,1,2)="K ^PS(52.85,DA(1),""USER"",""B"",$E(X,1,30),DA)"
^DD(52.8551,.01,21,0)="^^1^1^3070403^^"
^DD(52.8551,.01,21,1,0)="This is the user for which the user-specific ePharmacy Medication Profile preferences refer to."
^DD(52.8551,.01,"DT")="3070403"
^DD(52.8551,1,0)="EXP/CANCEL CUTOFF^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(52.8551,1,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(52.8551,1,21,0)="^^1^1^3070403^"
^DD(52.8551,1,21,1,0)="This is the default cutoff number of days for a expired or discontinued prescription to be displayed in the ePharmacy Medication Profile for this user. The number of days count from the date the prescription was either expired or discontinued.  "
^DD(52.8551,1,"DT")="3070403"
^DD(52.8551,2,0)="SORT BY^S^RX:RX NUMBER;DR:DRUG NAME;ID:ISSUE DATE;LF:LAST FILL;^0;3^Q"
^DD(52.8551,2,21,0)="^^1^1^3070403^^"
^DD(52.8551,2,21,1,0)="This is the default 'SORT BY' column in the ePharmacy Medication Profile for this user.  "
^DD(52.8551,2,"DT")="3070403"
^DD(52.8551,3,0)="SORT ORDER^S^A:ASCENDING;D:DESCENDING;^0;4^Q"
^DD(52.8551,3,21,0)="^^1^1^3070403^"
^DD(52.8551,3,21,1,0)="This is the default sorting order (Ascending or Descending) column in the ePharmacy Medication Profile for this user.  "
^DD(52.8551,3,"DT")="3070403"
^DD(52.8551,4,0)="DISPLAY SIG^S^0:OFF;1:ON;^0;5^Q"
^DD(52.8551,4,21,0)="^^1^1^3070403^^^"
^DD(52.8551,4,21,1,0)="This is the default value (ON/OFF) that determine whether the SIG will be displayed or not in the ePharmacy Medication Profile for this user. When 'ON', the SIG is displayed in the line right below its respective prescription.  "
^DD(52.8551,4,"DT")="3070403"
^DD(52.8551,5,0)="GROUP BY STATUS^S^0:OFF;1:ON;^0;6^Q"
^DD(52.8551,5,21,0)="^^2^2^3070403^^"
^DD(52.8551,5,21,1,0)="This is the default value (YES/NO) that determine whether the list of prescription should be group by status (Active, Discontinued, Hold, etc.) or not in the ePharmacy Medication Profile for this user. When this parameter is set to 'NO', all the"
^DD(52.8551,5,21,2,0)="regular prescriptions (excludes: Non-VA Meds, Pending Orders and REFILL TOO SOON/DUR prescriptions) are listed under the 'CURRENT ORDERS' group. "
^DD(52.8551,5,"DT")="3070403"
^DD(52.8551,6,0)="DISPLAY ORDER COUNT^S^0:OFF;1:ON;^0;7^Q"
^DD(52.8551,6,21,0)="^^2^2^3070403^^^"
^DD(52.8551,6,21,1,0)="This is the default value (YES/NO) that determine whether the count of prescriptions listed under a group (Active, Non-VA Meds, Pending Orders, etc.) should be displayed in the header of that group in the ePharmacy Medication Profile for this"
^DD(52.8551,6,21,2,0)="user. "
^DD(52.8551,6,"DT")="3070403"
^DD(52.8551,"B","DISPLAY ORDER COUNT",6)=""
^DD(52.8551,"B","DISPLAY SIG",4)=""
^DD(52.8551,"B","EXP/CANCEL CUTOFF",1)=""
^DD(52.8551,"B","GROUP BY STATUS",5)=""
^DD(52.8551,"B","SORT BY",2)=""
^DD(52.8551,"B","SORT ORDER",3)=""
^DD(52.8551,"B","USER",.01)=""
^DD(52.8551,"GL",0,1,.01)=""
^DD(52.8551,"GL",0,2,1)=""
^DD(52.8551,"GL",0,3,2)=""
^DD(52.8551,"GL",0,4,3)=""
^DD(52.8551,"GL",0,5,4)=""
^DD(52.8551,"GL",0,6,5)=""
^DD(52.8551,"GL",0,7,6)=""
^DD(52.8551,"IX",.01)=""
^DD(52.9,0)="FIELD^^1^2"
^DD(52.9,0,"DDA")="Y"
^DD(52.9,0,"DT")="2970616"
^DD(52.9,0,"IX","B",52.9,.01)=""
^DD(52.9,0,"NM","PHARMACY PRINTED QUEUE")=""
^DD(52.9,0,"VR")="7.0"
^DD(52.9,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(52.9,.01,0)="FAILED DEVICE^P3.5'^%ZIS(1,^0;1^Q"
^DD(52.9,.01,.1)="FAILED OUTPUT DEVICE NUMBER OR NAME"
^DD(52.9,.01,1,0)="^.1"
^DD(52.9,.01,1,1,0)="52.9^B"
^DD(52.9,.01,1,1,1)="S ^PS(52.9,""B"",$E(X,1,30),DA)="""""
^DD(52.9,.01,1,1,2)="K ^PS(52.9,""B"",$E(X,1,30),DA)"
^DD(52.9,.01,3)="Enter the name or number of the failed output device."
^DD(52.9,.01,21,0)="^^1^1^2920122^^^^"
^DD(52.9,.01,21,1,0)="Name or number of the failed output device."
^DD(52.9,.01,"DT")="2850605"
^DD(52.9,1,0)="LABEL/PROFILE^52.9001IP^^1;0"
^DD(52.9,1,21,0)="^^1^1^2971022^^^^"
^DD(52.9,1,21,1,0)="This field is used to store the name of the Label/Profile."
^DD(52.9,"B","FAILED DEVICE",.01)=""
^DD(52.9,"B","LABEL/PROFILE",1)=""
^DD(52.9,"GL",0,1,.01)=""
^DD(52.9,"GL",1,0,1)=""
^DD(52.9,"IX",.01)=""
^DD(52.9,"SB",52.9001,1)=""
^DD(52.9001,0)="LABEL/PROFILE SUB-FIELD^NL^8^9"
^DD(52.9001,0,"DT")="2970616"
^DD(52.9001,0,"ID",1)="W:$D(^(0)) ""   "","""" S %=$C(59)_$S($D(^DD(52.9001,1,0)):$P(^(0),U,3),1:"""") W @(""$E(""_DIC_""Y,0),0)""),$P($P(%,$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)"
^DD(52.9001,0,"ID",2)="I $D(^(0)) S %Z=Y,Y=$P(^(0),U,3) X ^DD(""DD"") W ""   "",Y S Y=%Z"
^DD(52.9001,0,"IX","B",52.9001,.01)=""
^DD(52.9001,0,"IX","C",52.9002,.01)=""
^DD(52.9001,0,"NM","LABEL/PROFILE")=""
^DD(52.9001,0,"UP")="52.9"
^DD(52.9001,.01,0)="PATIENT NAME^MRP2^DPT(^0;1^Q"
^DD(52.9001,.01,1,0)="^.1"
^DD(52.9001,.01,1,1,0)="52.9001^B"
^DD(52.9001,.01,1,1,1)="S ^PS(52.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(52.9001,.01,1,1,2)="K ^PS(52.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(52.9001,.01,3)="Enter an RX number or Patient name to identify the last usable document printed."
^DD(52.9001,.01,21,0)="^^1^1^2930104^^^"
^DD(52.9001,.01,21,1,0)="This field is used to indicate the patient the output was for."
^DD(52.9001,.01,"DT")="2930104"
^DD(52.9001,1,0)="TYPE OUTPUT^RS^L:LABEL;P:PROFILE;^0;2^Q"
^DD(52.9001,1,21,0)="^^1^1^2930104^"
^DD(52.9001,1,21,1,0)="This field is used to indicate the type of output for this patient."
^DD(52.9001,1,23,0)="^^1^1^2930104^"
^DD(52.9001,1,23,1,0)="set of codes."
^DD(52.9001,1,"DT")="2930104"
^DD(52.9001,2,0)="INITIAL PRINT DATE & TIME^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(52.9001,2,21,0)="^^1^1^2930104^"
^DD(52.9001,2,21,1,0)="This field is used to indicate the date and time the output occurred."
^DD(52.9001,2,"DT")="2850401"
^DD(52.9001,3,0)="PARTIAL^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.9001,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(52.9001,3,20,0)="^.3LA^1^1"
^DD(52.9001,3,20,1,0)="PSO"
^DD(52.9001,3,21,0)="^^2^2^2941012^^"
^DD(52.9001,3,21,1,0)="This field is used to indicate which partial entry should print, if "
^DD(52.9001,3,21,2,0)="applicable."
^DD(52.9001,3,23,0)="^^1^1^2941012^"
^DD(52.9001,3,23,1,0)="number."
^DD(52.9001,3,"DT")="2941012"
^DD(52.9001,4,0)="COPIES^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.9001,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(52.9001,4,21,0)="^^1^1^2930104^"
^DD(52.9001,4,21,1,0)="This field is used to indicate the number of copies being printed."
^DD(52.9001,4,"DT")="2850401"
^DD(52.9001,5,0)="LEFT SIDE ONLY^S^0:NO;1:YES;^0;6^Q"
^DD(52.9001,5,20,0)="^.3LA^1^1"
^DD(52.9001,5,20,1,0)="PSO"
^DD(52.9001,5,21,0)="^^2^2^2941012^^^"
^DD(52.9001,5,21,1,0)="This field is used to determine if the left side of the fill document is to "
^DD(52.9001,5,21,2,0)="print."
^DD(52.9001,5,23,0)="^^1^1^2941012^"
^DD(52.9001,5,23,1,0)="set of codes."
^DD(52.9001,5,"DT")="2941012"
^DD(52.9001,6,0)="PSITE^RNJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.9001,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(52.9001,6,21,0)="^^1^1^2930104^"
^DD(52.9001,6,21,1,0)="This field is used to indicate the site the output was from."
^DD(52.9001,6,"DT")="2850401"
^DD(52.9001,7,0)="RXY^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(52.9001,7,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(52.9001,7,21,0)="^^1^1^2930104^"
^DD(52.9001,7,21,1,0)="NOT USED."
^DD(52.9001,7,"DT")="2850401"
^DD(52.9001,8,0)="RX #^52.9002P^^2;0"
^DD(52.9001,8,21,0)="^^1^1^2971022^"
^DD(52.9001,8,21,1,0)="This multiple holds the prescription information."
^DD(52.9001,"B","COPIES",4)=""
^DD(52.9001,"B","INITIAL PRINT DATE & TIME",2)=""
^DD(52.9001,"B","LEFT SIDE ONLY",5)=""
^DD(52.9001,"B","PARTIAL",3)=""
^DD(52.9001,"B","PATIENT NAME",.01)=""
^DD(52.9001,"B","PSITE",6)=""
^DD(52.9001,"B","RX #",8)=""
^DD(52.9001,"B","RXY",7)=""
^DD(52.9001,"B","TYPE OUTPUT",1)=""
^DD(52.9001,"GL",0,1,.01)=""
^DD(52.9001,"GL",0,2,1)=""
^DD(52.9001,"GL",0,3,2)=""
^DD(52.9001,"GL",0,4,3)=""
^DD(52.9001,"GL",0,5,4)=""
^DD(52.9001,"GL",0,6,5)=""
^DD(52.9001,"GL",0,7,6)=""
^DD(52.9001,"GL",1,1,7)=""
^DD(52.9001,"GL",2,0,8)=""
^DD(52.9001,"GR","PSO",3,1)=""
^DD(52.9001,"GR","PSO",5,1)=""
^DD(52.9001,"IX",.01)=""
^DD(52.9001,"RQ",.01)=""
^DD(52.9001,"RQ",1)=""
^DD(52.9001,"RQ",2)=""
^DD(52.9001,"RQ",6)=""
^DD(52.9001,"SB",52.9002,8)=""
^DD(52.9002,0)="RX # SUB-FIELD^NL^2^3"
^DD(52.9002,0,"DT")="2970616"
^DD(52.9002,0,"NM","RX #")=""
^DD(52.9002,0,"UP")="52.9001"
^DD(52.9002,.01,0)="RX #^MRP52^PSRX(^0;1^Q"
^DD(52.9002,.01,1,0)="^.1"
^DD(52.9002,.01,1,1,0)="52.9001^C"
^DD(52.9002,.01,1,1,1)="S ^PS(52.9,DA(2),1,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(52.9002,.01,1,1,2)="K ^PS(52.9,DA(2),1,""C"",$E(X,1,30),DA(1),DA)"
^DD(52.9002,.01,21,0)="^^1^1^2930104^"
^DD(52.9002,.01,21,1,0)="This field is used to indicate the prescriptions for the patient."
^DD(52.9002,.01,"DT")="2850401"
^DD(52.9002,1,0)="PARTIAL^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(52.9002,1,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(52.9002,1,21,0)="^^1^1^2950718^"
^DD(52.9002,1,21,1,0)="Indicates whether or not this label was a partial."
^DD(52.9002,1,"DT")="2950718"
^DD(52.9002,2,0)="FILL^NJ2,0^^0;3^K:+X'=X!(X>11)!(X<0)!(X?.E1"".""1N.N) X"
^DD(52.9002,2,3)="Type a Number between 0 and 11, 0 Decimal Digits"
^DD(52.9002,2,"DT")="2970616"
^DD(52.9002,"B","FILL",2)=""
^DD(52.9002,"B","PARTIAL",1)=""
^DD(52.9002,"B","RX #",.01)=""
^DD(52.9002,"GL",0,1,.01)=""
^DD(52.9002,"GL",0,2,1)=""
^DD(52.9002,"GL",0,3,2)=""
^DD(52.9002,"IX",.01)=""
^DD(52.9002,"RQ",.01)=""
^DD(52.91,0)="FIELD^^11^12"
^DD(52.91,0,"DDA")="N"
^DD(52.91,0,"DT")="3030821"
^DD(52.91,0,"IX","AD",52.91,2)=""
^DD(52.91,0,"IX","B",52.91,.01)=""
^DD(52.91,0,"NM","TPB ELIGIBILITY")=""
^DD(52.91,0,"VR")="7.0"
^DD(52.91,0,"VRPK")="PSO"
^DD(52.91,.01,0)="PATIENT^RP2'X^DPT(^0;1^S DINUM=X"
^DD(52.91,.01,1,0)="^.1"
^DD(52.91,.01,1,1,0)="52.91^B"
^DD(52.91,.01,1,1,1)="S ^PS(52.91,""B"",$E(X,1,30),DA)="""""
^DD(52.91,.01,1,1,2)="K ^PS(52.91,""B"",$E(X,1,30),DA)"
^DD(52.91,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(52.91,.01,21,0)="^.001^1^1^3030813^^"
^DD(52.91,.01,21,1,0)="This is the patient IEN who is eligible for this new service."
^DD(52.91,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Patient entries CANNOT be deleted."")"
^DD(52.91,.01,"DT")="3030807"
^DD(52.91,1,0)="DATE PHARMACY BENEFIT BEGAN^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(52.91,1,3)="(No range limit on date)"
^DD(52.91,1,21,0)="^^4^4^3030731^"
^DD(52.91,1,21,1,0)="This is the date the entry was made into the file during extraction either"
^DD(52.91,1,21,2,0)="from the EWL or from the Schedule Appointment set by the post-install "
^DD(52.91,1,21,3,0)="routine. Manual entry to this file is also allowed for eligible patient, "
^DD(52.91,1,21,4,0)="and it will be set to the current date."
^DD(52.91,1,23,0)="^^1^1^3030731^"
^DD(52.91,1,23,1,0)="Not editable."
^DD(52.91,1,"DT")="3030806"
^DD(52.91,2,0)="INACTIVATION OF BENEFIT DATE^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$D(^PS(52.91,DA,0)),X<$P(^(0),U,2) D EN^DDIOL(""INACTIVATION DATE CANNOT BE BEFORE DATE PHARMACY BENEFIT BEGAN"","""",""$C(7),!?5"") K X"
^DD(52.91,2,1,0)="^.1"
^DD(52.91,2,1,1,0)="52.91^AD^MUMPS"
^DD(52.91,2,1,1,1)="D RXPAT^PSOTPCAN"
^DD(52.91,2,1,1,2)="Q"
^DD(52.91,2,1,1,"%D",0)="^.101^4^4^3030829^^"
^DD(52.91,2,1,1,"%D",1,0)="This cross reference sets the RX Patient status in the PHARMACY PATIENT "
^DD(52.91,2,1,1,"%D",2,0)="file (#55) to null if this date entered is not a future date, and the RX "
^DD(52.91,2,1,1,"%D",3,0)="Patient Status is equal to ""NON-VA"". It sets the global: "
^DD(52.91,2,1,1,"%D",4,0)="^PS(55,DA,""PS"")=""""."
^DD(52.91,2,1,1,"DT")="3030829"
^DD(52.91,2,3)="(No range limit on date)"
^DD(52.91,2,21,0)="^^4^4^3030808^"
^DD(52.91,2,21,1,0)="This date can be set manually when the patient is no longer eligible for"
^DD(52.91,2,21,2,0)="this benefit; or when the Non-VA prescriptions are either Discontinued"
^DD(52.91,2,21,3,0)="or Expired; or set automatically due to a Date of Death entered in the"
^DD(52.91,2,21,4,0)="Patient file (#2). "
^DD(52.91,2,"DT")="3030829"
^DD(52.91,3,0)="INACTIVATION REASON CODE^*S^1:SEEN BY VA PROVIDER;2:NO/SHOW/CANCELLATION;3:PATIENT ENDED;4:NON-FORMULARY RX NOT ACCEPTED;5:PATIENT EXPIRED;6:ALL RX'S INACTIVE;7:EXCLUSION;8:PATIENT REFUSED APPT;9:PATIENT UNREACHABLE;10:PROGRAM ENDED;^0;4^Q"
^DD(52.91,3,12)="Only these codes are allowed for manual entry."
^DD(52.91,3,12.1)="S DIC(""S"")=""I Y'=7"""
^DD(52.91,3,21,0)="^.001^4^4^3051116^^^"
^DD(52.91,3,21,1,0)="This field contains a code representing the reason for inactivating a"
^DD(52.91,3,21,2,0)="patient for this benefit. EXCLUSION code 7, is hidden and not user "
^DD(52.91,3,21,3,0)="selectable. It is used by the post-install routine during initial"
^DD(52.91,3,21,4,0)="extraction."
^DD(52.91,3,"DT")="3051116"
^DD(52.91,4,0)="DESIRED APPOINTMENT DATE^DX^^0;5^S %DT=""EX"" D ^%DT S X=Y K:X<1 X I $D(X),$D(^PS(52.91,DA,0)),X<$P(^(0),U,2) D EN^DDIOL(""DESIRED APPOINTMENT DATE CANNOT BE BEFORE DATE PHARMACY BENEFIT BEGAN"","""",""$C(7),!?5"") K X"
^DD(52.91,4,3)="Enter the desired date for the appointment."
^DD(52.91,4,21,0)="^^1^1^3030731^"
^DD(52.91,4,21,1,0)="Set by the EWL/Scheduling extract and is obtained from Scheduling file."
^DD(52.91,4,23,0)="^^8^8^3030731^"
^DD(52.91,4,23,1,0)="Set by the EWL, DESIRED DATE OF APPOINTMENT field (#22) of the SD WAIT"
^DD(52.91,4,23,2,0)="LIST file (#409.3), piece 16 of the 0 node; or from Scheduling, the"
^DD(52.91,4,23,3,0)="DESIRED APPOINTMENT DATE field (#27) of the APPOINTMENT subfile (#1900)"
^DD(52.91,4,23,4,0)="of the PATIENT file (#2), piece 1 of the 1 node. If there is more than one"
^DD(52.91,4,23,5,0)="desired appointment in Scheduling then the one that is closest to the date"
^DD(52.91,4,23,6,0)="the extract was run is used."
^DD(52.91,4,23,7,0)=" "
^DD(52.91,4,23,8,0)="Not editable."
^DD(52.91,4,"DT")="3030806"
^DD(52.91,5,0)="WAIT TYPE^S^E:EWL;M:MANUAL;S:SCHEDULED APPOINTMENT;X:SCHEDULED APPOINTMENT & EWL;^0;6^Q"
^DD(52.91,5,3)="Select one Wait List Type."
^DD(52.91,5,21,0)="^.001^1^1^3030817^^^^"
^DD(52.91,5,21,1,0)="The type of wait the patient is assigned."
^DD(52.91,5,23,0)="^.001^1^1^3030817^^^"
^DD(52.91,5,23,1,0)="""M"" is set for manual entry. Not editable."
^DD(52.91,5,"DT")="3030817"
^DD(52.91,6,0)="STATION NUMBER^RF^^0;7^K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X"
^DD(52.91,6,3)="Answer must be 3-7 characters in length"
^DD(52.91,6,21,0)="^^1^1^3030731^"
^DD(52.91,6,21,1,0)="7 digit STATION NUMBER. First 3 digit station number plus any modifiers."
^DD(52.91,6,23,0)="^^3^3^3030731^"
^DD(52.91,6,23,1,0)="An attempt to obtain the clinic from the Patient file (#2) will be"
^DD(52.91,6,23,2,0)="performed in order to auto-populate the Station Number."
^DD(52.91,6,23,3,0)="Can be entered manually. It's a required field."
^DD(52.91,6,"DT")="3030806"
^DD(52.91,7,0)="INSTITUTION^RP4'^DIC(4,^0;8^Q"
^DD(52.91,7,1,0)="^.1^^0"
^DD(52.91,7,21,0)="^^2^2^3030807^"
^DD(52.91,7,21,1,0)="Is set by the EWL/Scheduling extract and is obtained from the Institution"
^DD(52.91,7,21,2,0)="File (#4, field .01)"
^DD(52.91,7,23,0)="^^3^3^3030807^"
^DD(52.91,7,23,1,0)="During manual entry, if this field is found null (due to timeout), then "
^DD(52.91,7,23,2,0)="the record will be marked as inactive and the INACTIVATION REASON"
^DD(52.91,7,23,3,0)="CODE will be set 3 (Patient Ended)."
^DD(52.91,7,"DT")="3030807"
^DD(52.91,8,0)="EXCLUSION REASON^S^1:ACTIVE RX;2:ACTUAL APPT. < 30 DAYS FROM DATE APPT. MADE;3:BOTH;^0;9^Q"
^DD(52.91,8,21,0)="^.001^1^1^3030817^^"
^DD(52.91,8,21,1,0)="Exclusion reason codes."
^DD(52.91,8,"DT")="3030817"
^DD(52.91,9,0)="PRIMARY CARE SCHEDULE APT DATE^D^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:X<1 X"
^DD(52.91,9,3)="(No range limit on date)"
^DD(52.91,9,21,0)="^^3^3^3030821^"
^DD(52.91,9,21,1,0)="This is the date that a primary care appointment was scheduled. This "
^DD(52.91,9,21,2,0)="field is populated only by the post-install routine during initial "
^DD(52.91,9,21,3,0)="extraction."
^DD(52.91,9,"DT")="3030821"
^DD(52.91,10,0)="RX #^F^^0;11^K:$L(X)>15!($L(X)<1) X"
^DD(52.91,10,3)="Answer must be 1-15 characters in length"
^DD(52.91,10,21,0)="^^2^2^3030807^"
^DD(52.91,10,21,1,0)="Rx# if found during the extraction that made the patient flagged as"
^DD(52.91,10,21,2,0)="excluded for this service."
^DD(52.91,10,"DT")="3030807"
^DD(52.91,11,0)="DATE LETTER PRINTED^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(52.91,11,3)="(No range limit on date)"
^DD(52.91,11,21,0)="^^1^1^3030807^"
^DD(52.91,11,21,1,0)="Date the letter was printed."
^DD(52.91,11,"DT")="3030807"
^DD(52.91,"B","DATE LETTER PRINTED",11)=""
^DD(52.91,"B","DATE PHARMACY BENEFIT BEGAN",1)=""
^DD(52.91,"B","DESIRED APPOINTMENT DATE",4)=""
^DD(52.91,"B","EXCLUSION REASON",8)=""
^DD(52.91,"B","INACTIVATION OF BENEFIT DATE",2)=""
^DD(52.91,"B","INACTIVATION REASON CODE",3)=""
^DD(52.91,"B","INSTITUTION",7)=""
^DD(52.91,"B","PATIENT",.01)=""
^DD(52.91,"B","PRIMARY CARE SCHEDULE APT DATE",9)=""
^DD(52.91,"B","RX #",10)=""
^DD(52.91,"B","STATION NUMBER",6)=""
^DD(52.91,"B","WAIT TYPE",5)=""
^DD(52.91,"GL",0,1,.01)=""
^DD(52.91,"GL",0,2,1)=""
^DD(52.91,"GL",0,3,2)=""
^DD(52.91,"GL",0,4,3)=""
^DD(52.91,"GL",0,5,4)=""
^DD(52.91,"GL",0,6,5)=""
^DD(52.91,"GL",0,7,6)=""
^DD(52.91,"GL",0,8,7)=""
^DD(52.91,"GL",0,9,8)=""
^DD(52.91,"GL",0,10,9)=""
^DD(52.91,"GL",0,11,10)=""
^DD(52.91,"GL",0,12,11)=""
^DD(52.91,"IX",.01)=""
^DD(52.91,"IX",2)=""
^DD(52.91,"RQ",.01)=""
^DD(52.91,"RQ",1)=""
^DD(52.91,"RQ",6)=""
^DD(52.91,"RQ",7)=""
^DD(52.92,0)="FIELD^^2.03^17"
^DD(52.92,0,"DDA")="N"
^DD(52.92,0,"DT")="3030818"
^DD(52.92,0,"IX","B",52.92,.01)=""
^DD(52.92,0,"NM","TPB INSTITUTION LETTERS")=""
^DD(52.92,0,"PT",52.92,.02)=""
^DD(52.92,0,"VR")="7.0"
^DD(52.92,0,"VRPK")="PSO"
^DD(52.92,.01,0)="INSTITUTION^RP4'X^DIC(4,^0;1^S DINUM=X"
^DD(52.92,.01,1,0)="^.1"
^DD(52.92,.01,1,1,0)="52.92^B"
^DD(52.92,.01,1,1,1)="S ^PS(52.92,""B"",$E(X,1,30),DA)="""""
^DD(52.92,.01,1,1,2)="K ^PS(52.92,""B"",$E(X,1,30),DA)"
^DD(52.92,.01,3)=""
^DD(52.92,.01,21,0)="^^1^1^3030725^"
^DD(52.92,.01,21,1,0)="Pointer to Instituion file #4, to be used for printing TPB letters."
^DD(52.92,.01,"DT")="3030728"
^DD(52.92,.02,0)="PARENT INSTITUTION^P52.92'^PS(52.92,^0;2^Q"
^DD(52.92,.02,21,0)="^^5^5^3030818^"
^DD(52.92,.02,21,1,0)="This field is to be used to re-map Instituions, like CBOCs, to a "
^DD(52.92,.02,21,2,0)="parent Institution for the purpose of providing a proper:"
^DD(52.92,.02,21,3,0)="           Letter Heading          "
^DD(52.92,.02,21,4,0)="           Local Pharmacy Phone Number(s)"
^DD(52.92,.02,21,5,0)="           Directors Signature Block"
^DD(52.92,.02,"DT")="3030818"
^DD(52.92,.03,0)="TPB CONTACT PHONE 1^F^^0;3^K:$L(X)>25!($L(X)<7) X"
^DD(52.92,.03,3)="Answer must be 7-25 characters in length."
^DD(52.92,.03,21,0)="^^2^2^3030807^"
^DD(52.92,.03,21,1,0)="This is the first phone number veterans are to call for more "
^DD(52.92,.03,21,2,0)="information regarding TPB."
^DD(52.92,.03,"DT")="3030807"
^DD(52.92,.04,0)="TPB CONTACT PHONE 2^F^^0;4^K:$L(X)>25!($L(X)<7) X"
^DD(52.92,.04,3)="Answer must be 7-25 characters in length."
^DD(52.92,.04,21,0)="^^2^2^3030807^"
^DD(52.92,.04,21,1,0)="This is the second phone number veterans are to call for more"
^DD(52.92,.04,21,2,0)="information regarding TPB."
^DD(52.92,.04,"DT")="3030807"
^DD(52.92,.05,0)="ADDRESS LINE 1^F^^0;5^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,.05,3)="Answer must be 1-40 characters in length"
^DD(52.92,.05,21,0)="^^1^1^3030728^"
^DD(52.92,.05,21,1,0)="ADDRESS LINE 1"
^DD(52.92,.05,"DT")="3030728"
^DD(52.92,.06,0)="ADDRESS LINE 2^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,.06,3)="Answer must be 1-40 characters in length"
^DD(52.92,.06,21,0)="^^1^1^3030728^"
^DD(52.92,.06,21,1,0)="ADDRESS LINE 2"
^DD(52.92,.06,"DT")="3030728"
^DD(52.92,.07,0)="CITY^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(52.92,.07,3)="Answer must be 1-30 characters in length"
^DD(52.92,.07,21,0)="^^1^1^3030728^"
^DD(52.92,.07,21,1,0)="CITY"
^DD(52.92,.07,"DT")="3030728"
^DD(52.92,.08,0)="ZIP CODE^F^^0;8^K:$L(X)>10!($L(X)<5) X"
^DD(52.92,.08,3)="Answer must be 5-10 characters in length"
^DD(52.92,.08,21,0)="^^1^1^3030821^"
^DD(52.92,.08,21,1,0)="ZIP CODE"
^DD(52.92,.08,"DT")="3030821"
^DD(52.92,.09,0)="STATE^P5'^DIC(5,^0;9^Q"
^DD(52.92,.09,21,0)="^^1^1^3030821^"
^DD(52.92,.09,21,1,0)="The state portion of the institution physical address."
^DD(52.92,.09,"DT")="3030821"
^DD(52.92,1.01,0)="ADDRESS LINE 1 (MAILING)^F^^1;1^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,1.01,3)="Answer must be 1-40 characters in length"
^DD(52.92,1.01,21,0)="^^1^1^3030807^"
^DD(52.92,1.01,21,1,0)="TPB Mailing Address line 1"
^DD(52.92,1.01,"DT")="3030807"
^DD(52.92,1.02,0)="ADDRESS LINE 2 (MAILING)^F^^1;2^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,1.02,3)="Answer must be 1-40 characters in length"
^DD(52.92,1.02,21,0)="^^1^1^3030807^"
^DD(52.92,1.02,21,1,0)="TPB Mailing Address line 2"
^DD(52.92,1.02,"DT")="3030807"
^DD(52.92,1.03,0)="CITY (MAILING)^F^^1;3^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,1.03,3)="Answer must be 1-40 characters in length"
^DD(52.92,1.03,21,0)="^^1^1^3030728^"
^DD(52.92,1.03,21,1,0)="CITY (MAILING)"
^DD(52.92,1.03,"DT")="3030728"
^DD(52.92,1.04,0)="STATE (MAILING)^P5'^DIC(5,^1;4^Q"
^DD(52.92,1.04,21,0)="^^2^2^3030807^"
^DD(52.92,1.04,21,1,0)="STATE"
^DD(52.92,1.04,21,2,0)="For both Physical Address & TPB Mailing Address"
^DD(52.92,1.04,"DT")="3030821"
^DD(52.92,1.05,0)="ZIP CODE (MAILING)^F^^1;5^K:$L(X)>10!($L(X)<5) X"
^DD(52.92,1.05,3)="Answer must be 5-10 characters in length"
^DD(52.92,1.05,21,0)="^^1^1^3030807^"
^DD(52.92,1.05,21,1,0)="TPB ZIP CODE for mailing."
^DD(52.92,1.05,"DT")="3030807"
^DD(52.92,2.01,0)="DIRECTORS SIG LINE 1^F^^2;1^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,2.01,3)="Answer must be 1-40 characters in length"
^DD(52.92,2.01,21,0)="^^1^1^3030807^"
^DD(52.92,2.01,21,1,0)="Director Sig Line 1, it is typically the director's name."
^DD(52.92,2.01,"DT")="3030807"
^DD(52.92,2.02,0)="DIRECTORS SIG LINE 2^F^^2;2^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,2.02,3)="Answer must be 1-40 characters in length"
^DD(52.92,2.02,21,0)="^^1^1^3030728^"
^DD(52.92,2.02,21,1,0)="DIRECTORS SIG LINE 2"
^DD(52.92,2.02,"DT")="3030728"
^DD(52.92,2.03,0)="DIRECTORS SIG LINE 3^F^^2;3^K:$L(X)>40!($L(X)<1) X"
^DD(52.92,2.03,3)="Answer must be 1-40 characters in length"
^DD(52.92,2.03,21,0)="^^1^1^3030728^"
^DD(52.92,2.03,21,1,0)="DIRECTORS SIG LINE 3"
^DD(52.92,2.03,"DT")="3030728"
^DD(52.92,"B","ADDRESS LINE 1",.05)=""
^DD(52.92,"B","ADDRESS LINE 1 (MAILING)",1.01)=""
^DD(52.92,"B","ADDRESS LINE 2",.06)=""
^DD(52.92,"B","ADDRESS LINE 2 (MAILING)",1.02)=""
^DD(52.92,"B","CITY",.07)=""
^DD(52.92,"B","CITY (MAILING)",1.03)=""
^DD(52.92,"B","DIRECTORS SIG LINE 1",2.01)=""
^DD(52.92,"B","DIRECTORS SIG LINE 2",2.02)=""
^DD(52.92,"B","DIRECTORS SIG LINE 3",2.03)=""
^DD(52.92,"B","INSTITUTION",.01)=""
^DD(52.92,"B","PARENT INSTITUTION",.02)=""
^DD(52.92,"B","STATE",.09)=""
^DD(52.92,"B","STATE (MAILING)",1.04)=""
^DD(52.92,"B","TPB CONTACT PHONE 1",.03)=""
^DD(52.92,"B","TPB CONTACT PHONE 2",.04)=""
^DD(52.92,"B","ZIP CODE",.08)=""
^DD(52.92,"B","ZIP CODE (MAILING)",1.05)=""
^DD(52.92,"GL",0,1,.01)=""
^DD(52.92,"GL",0,2,.02)=""
^DD(52.92,"GL",0,3,.03)=""
^DD(52.92,"GL",0,4,.04)=""
^DD(52.92,"GL",0,5,.05)=""
^DD(52.92,"GL",0,6,.06)=""
^DD(52.92,"GL",0,7,.07)=""
^DD(52.92,"GL",0,8,.08)=""
^DD(52.92,"GL",0,9,.09)=""
^DD(52.92,"GL",1,1,1.01)=""
^DD(52.92,"GL",1,2,1.02)=""
^DD(52.92,"GL",1,3,1.03)=""
^DD(52.92,"GL",1,4,1.04)=""
^DD(52.92,"GL",1,5,1.05)=""
^DD(52.92,"GL",2,1,2.01)=""
^DD(52.92,"GL",2,2,2.02)=""
^DD(52.92,"GL",2,3,2.03)=""
^DD(52.92,"IX",.01)=""
^DD(52.92,"RQ",.01)=""
^DD(53,0)="FIELD^NL^16^9"
^DD(53,0,"DDA")="N"
^DD(53,0,"DT")="2960821"
^DD(53,0,"IX","B",53,.01)=""
^DD(53,0,"IX","C",53,2)=""
^DD(53,0,"NM","RX PATIENT STATUS")=""
^DD(53,0,"PT",50.9005,.01)=""
^DD(53,0,"PT",52,3)=""
^DD(53,0,"PT",55,3)=""
^DD(53,0,"VR")="7.0"
^DD(53,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(53,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(53,.001,21,0)="^^1^1^2920121^^^^"
^DD(53,.001,21,1,0)="This field refers to the internal number within the file. "
^DD(53,.01,0)="NAME^RF^^0;1^K:$L(X)>25!X!($L(X)<1)!'(X'?1P.E) X"
^DD(53,.01,1,0)="^.1"
^DD(53,.01,1,1,0)="53^B"
^DD(53,.01,1,1,1)="S ^PS(53,""B"",$E(X,1,30),DA)="""""
^DD(53,.01,1,1,2)="K ^PS(53,""B"",$E(X,1,30),DA)"
^DD(53,.01,3)="Answer must be 1-25 characters in length."
^DD(53,.01,10)="VAF 10-2577"
^DD(53,.01,21,0)="^^1^1^2920121^^^^"
^DD(53,.01,21,1,0)="This field contains the PATIENT STATUS category associated with this Rx."
^DD(53,.01,"DT")="2911008"
^DD(53,2,0)="ABBR^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>11!($L(X)<1) X"
^DD(53,2,1,0)="^.1"
^DD(53,2,1,1,0)="53^C"
^DD(53,2,1,1,1)="S ^PS(53,""C"",$E(X,1,30),DA)="""""
^DD(53,2,1,1,2)="K ^PS(53,""C"",$E(X,1,30),DA)"
^DD(53,2,3)="ANSWER MUST BE 1-11 CHARACTERS IN LENGTH"
^DD(53,2,21,0)="^^1^1^2920121^^^"
^DD(53,2,21,1,0)="Respond with an abbreviation for the patient's status."
^DD(53,2,"DT")="2841005"
^DD(53,3,0)="DAYS SUPPLY^NJ2,0^^0;3^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 90"
^DD(53,3,21,0)="^^2^2^2920121^^^^"
^DD(53,3,21,1,0)="Respond with the maximum number of days a prescription "
^DD(53,3,21,2,0)="can be written for."
^DD(53,4,0)="REFILLS^NJ2,0^^0;4^K:+X'=X!(X>11)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53,4,2)=""
^DD(53,4,3)="Type a Number between 0 and 11, 0 Decimal Digits"
^DD(53,4,21,0)="^^2^2^2940801^^^^"
^DD(53,4,21,1,0)="Respond with the maximum number of refills allowed for "
^DD(53,4,21,2,0)="a particular prescription."
^DD(53,4,"DT")="2940801"
^DD(53,5,0)="RENEWABLE^S^1:YES;0:NO;^0;5^Q"
^DD(53,5,21,0)="^^2^2^2920121^^^"
^DD(53,5,21,1,0)="This field refers to whether or not a prescription is "
^DD(53,5,21,2,0)="renewable. Answer ""1"" to indicate ""Yes"", or ""0"" to indicate ""No""."
^DD(53,5,"DT")="2830616"
^DD(53,6,0)="SC/A&A/OTHER/INPATIENT/NVA^RS^1:SERVICE CONNECTED;2:A&A;3:OTHER;4:INPATIENT;5:NON-VA;^0;6^Q"
^DD(53,6,3)="ENTER THE CATEGORY IN WHICH THIS STATUS SHOULD BE COUNTED UNDER AMIS."
^DD(53,6,21,0)="^.001^2^2^3030727^^"
^DD(53,6,21,1,0)="Respond by entering the AMIS workload category for which"
^DD(53,6,21,2,0)="this prescription will count."
^DD(53,6,23,0)="^^2^2^3030727^"
^DD(53,6,23,1,0)="This field contains the AMIS workload category for which the"
^DD(53,6,23,2,0)="prescription will count."
^DD(53,6,"DT")="3030727"
^DD(53,15,0)="EXEMPT FROM COPAYMENT^S^0:NO;1:YES;^0;7^Q"
^DD(53,15,3)="Answer 'YES' if this Patient Status is exempt from any prescription copayment regardless of other factors.  Answer 'NO' otherwise."
^DD(53,15,21,0)="^^3^3^2911009^^^^"
^DD(53,15,21,1,0)="This field is meant to allow the site to screen RX copayments by RX Patient"
^DD(53,15,21,2,0)="Status, (e.g., Inpatient).  If this field is answered 'YES', any RX with"
^DD(53,15,21,3,0)="this Status will not be charged a copayment."
^DD(53,15,"DT")="2910510"
^DD(53,16,0)="EXEMPT FROM CHAMPUS BILLING^S^0:NO;1:YES;^0;8^Q"
^DD(53,16,3)="Answer YES if this Rx Patient status is to be exempt from Champus billing."
^DD(53,16,21,0)="^^1^1^2960821^"
^DD(53,16,21,1,0)="This field can be used to exempt an Rx Patient status from Champus billing."
^DD(53,16,"DT")="2960821"
^DD(53,"B","ABBR",2)=""
^DD(53,"B","DAYS SUPPLY",3)=""
^DD(53,"B","EXEMPT FROM CHAMPUS BILLING",16)=""
^DD(53,"B","EXEMPT FROM COPAYMENT",15)=""
^DD(53,"B","NAME",.01)=""
^DD(53,"B","NUMBER",.001)=""
^DD(53,"B","REFILLS",4)=""
^DD(53,"B","RENEWABLE",5)=""
^DD(53,"B","SC/A&A/OTHER/INPATIENT/NVA",6)=""
^DD(53,"GL",0,1,.01)=""
^DD(53,"GL",0,2,2)=""
^DD(53,"GL",0,3,3)=""
^DD(53,"GL",0,4,4)=""
^DD(53,"GL",0,5,5)=""
^DD(53,"GL",0,6,6)=""
^DD(53,"GL",0,7,15)=""
^DD(53,"GL",0,8,16)=""
^DD(53,"IX",.01)=""
^DD(53,"IX",2)=""
^DD(53,"RQ",.01)=""
^DD(53,"RQ",6)=""
^DD(53.1,0)="FIELD^^127^99"
^DD(53.1,0,"DDA")="N"
^DD(53.1,0,"DIK")="PSGXR3"
^DD(53.1,0,"DIKOLD")="PSGXR3"
^DD(53.1,0,"DT")="2960523"
^DD(53.1,0,"ID",3)="W:$D(^(0)) ""   "",$S($D(^PS(51.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(53.1,0,"ID",7)="W:$D(^(0)) ""   "","""" S %=$C(59)_$S($D(^DD(53.1,7,0)):$P(^(0),U,3),1:"""") W @(""$E(""_DIC_""Y,0),0)""),$P($P(%,$C(59)_$P(^(0),U,7)_"":"",2),$C(59),1)"
^DD(53.1,0,"IX","AAT",53.1,39)=""
^DD(53.1,0,"IX","ACX",53.1,125)=""
^DD(53.1,0,"IX","ADM",53.1,39)=""
^DD(53.1,0,"IX","AP",53.1,.5)=""
^DD(53.1,0,"IX","APD",53.1,101)=""
^DD(53.1,0,"IX","APR",53.1,1)=""
^DD(53.1,0,"IX","AS",53.1,28)=""
^DD(53.1,0,"IX","AV",53.1,16)=""
^DD(53.1,0,"IX","B",53.1,.01)=""
^DD(53.1,0,"NM","NON-VERIFIED ORDERS")=""
^DD(53.1,0,"PT",59.7,20.14)=""
^DD(53.1,0,"PT",59.7,20.404)=""
^DD(53.1,0,"VR")="5.0"
^DD(53.1,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.1,.01,0)="ORDER NUMBER^RNJ10,0^^0;1^K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.1,.01,1,0)="^.1^^-1"
^DD(53.1,.01,1,1,0)="53.1^B"
^DD(53.1,.01,1,1,1)="S ^PS(53.1,""B"",$E(X,1,30),DA)="""""
^DD(53.1,.01,1,1,2)="K ^PS(53.1,""B"",$E(X,1,30),DA)"
^DD(53.1,.01,3)="Type a whole number between 1 and 1000000000."
^DD(53.1,.01,20,0)="^.3LA^1^1"
^DD(53.1,.01,20,1,0)="PSJU"
^DD(53.1,.01,21,0)="^^1^1^2910305^^^^"
^DD(53.1,.01,21,1,0)="  This is a reference number for this order."
^DD(53.1,.01,"DT")="2850816"
^DD(53.1,.24,0)="PRIORITY^S^S:STAT;A:ASAP;R:ROUTINE;P:PREOP;T:TIMING CRITICAL;D:DONE;^.2;4^Q"
^DD(53.1,.24,3)="Enter a priority for processing the order, if desired."
^DD(53.1,.24,21,0)="^.001^1^1^3010829^^^"
^DD(53.1,.24,21,1,0)="This field contains the priority of the order that was received from OERR."
^DD(53.1,.24,"DT")="3010522"
^DD(53.1,.25,0)="NUMBER^NJ10,0^^0;18^K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.1,.25,3)="Type a whole number between 1 and 1000000000."
^DD(53.1,.25,20,0)="^.3LA^1^1"
^DD(53.1,.25,20,1,0)="PSJU"
^DD(53.1,.25,21,0)="^^1^1^2910305^^"
^DD(53.1,.25,21,1,0)="  (Not currently used.)"
^DD(53.1,.25,"DT")="2860120"
^DD(53.1,.5,0)="PATIENT NAME^RP2'^DPT(^0;15^Q"
^DD(53.1,.5,1,0)="^.1"
^DD(53.1,.5,1,1,0)="53.1^AP^MUMPS"
^DD(53.1,.5,1,1,1)="S XX=X,X=""PSGAXR"" X ^%ZOSF(""TEST"") I  S X=XX D ENNPS^PSGAXR"
^DD(53.1,.5,1,1,2)="S XX=X,X=""PSGAXR"" X ^%ZOSF(""TEST"") I  S X=XX D ENNPK^PSGAXR"
^DD(53.1,.5,1,1,3)="Used by Inpatient Meds to set several cross-references."
^DD(53.1,.5,1,1,"%D",0)="^.101^11^11^3041101^^^"
^DD(53.1,.5,1,1,"%D",1,0)="  This is used to set and kill the following cross-references:"
^DD(53.1,.5,1,1,"%D",2,0)=" ^PS(53.1,""AC"",patient,DA)="""""
^DD(53.1,.5,1,1,"%D",3,0)=" ^PS(53.1,""AOD"",patient,primary drug,DA)="""""
^DD(53.1,.5,1,1,"%D",4,0)=" ^PS(53.1,""AS"",status,patient,DA)="""""
^DD(53.1,.5,1,1,"%D",5,0)=" ^PS(53.1,""AV"",patient,DA)="""""
^DD(53.1,.5,1,1,"%D",6,0)=" ^PS(53.1,""C"",patient,DA)="""""
^DD(53.1,.5,1,1,"%D",7,0)=" "
^DD(53.1,.5,1,1,"%D",8,0)="  The AC and AOD x-refs are only set if the order has not been verified or"
^DD(53.1,.5,1,1,"%D",9,0)="discontinued."
^DD(53.1,.5,1,1,"%D",10,0)="  The AV x-ref is only set if the order has a pending status and was "
^DD(53.1,.5,1,1,"%D",11,0)="acknowledged by a nurse."
^DD(53.1,.5,3)=""
^DD(53.1,.5,20,0)="^.3LA^1^1"
^DD(53.1,.5,20,1,0)="PSJU"
^DD(53.1,.5,21,0)="^^1^1^2910305^^"
^DD(53.1,.5,21,1,0)="  This is the patient for which the medication has been ordered."
^DD(53.1,.5,"DT")="3040501"
^DD(53.1,1,0)="PROVIDER^R*P200'X^VA(200,^0;2^S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.1,1,1,0)="^.1"
^DD(53.1,1,1,1,0)="53.1^APR^MUMPS"
^DD(53.1,1,1,1,1)="I $P($G(^PS(53.1,DA,0)),""^"",15),$D(^PS(55,+$P(^(0),U,15),0)),$P($G(^(5.1)),""^"",2)'=X S $P(^(5.1),""^"",2)=X"
^DD(53.1,1,1,1,2)="Q"
^DD(53.1,1,1,1,"%D",0)="^^3^3^2971211^"
^DD(53.1,1,1,1,"%D",1,0)="  Updates the UD PROVIDER field of the PHARMACY PATIENT file.  This field"
^DD(53.1,1,1,1,"%D",2,0)="is used as a default value for Unit Dose order entry."
^DD(53.1,1,1,1,"%D",3,0)="S $P(^PS(55,DFN,5.1),""^"",2)=PROVIDER"
^DD(53.1,1,1,1,"DT")="2931102"
^DD(53.1,1,12)="Provider must be active and privileged to write medication orders."
^DD(53.1,1,12.1)="S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"""
^DD(53.1,1,20,0)="^.3LA^1^1"
^DD(53.1,1,20,1,0)="PSJU"
^DD(53.1,1,21,0)="^^1^1^2910305^^^"
^DD(53.1,1,21,1,0)="  This field should contain the prescribing physician's name."
^DD(53.1,1,"DT")="2931102"
^DD(53.1,2,0)="DISPENSE DRUG^53.11P^^1;0"
^DD(53.1,2,20,0)="^.3LA^1^1"
^DD(53.1,2,20,1,0)="PSJU"
^DD(53.1,2,21,0)="^^1^1^2970619^^^"
^DD(53.1,2,21,1,0)="  This is the medication ordered for the patient."
^DD(53.1,2,"DT")="2910717"
^DD(53.1,3,0)="MED ROUTE^R*P51.2'^PS(51.2,^0;3^S DIC(""S"")=""I $P(^PS(51.2,+Y,0),""""^"""",4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.1,3,3)="Enter how this medication will be administered to the patient."
^DD(53.1,3,12)=""
^DD(53.1,3,12.1)="S DIC(""S"")=""I $P(^PS(51.2,+Y,0),""""^"""",4)"""
^DD(53.1,3,20,0)="^.3LA^1^1"
^DD(53.1,3,20,1,0)="PSJU"
^DD(53.1,3,21,0)="^^3^3^2910305^^^^"
^DD(53.1,3,21,1,0)="  This is the route of administration for this medication.  (If a"
^DD(53.1,3,21,2,0)="corresponding abbreviation is found for this route in the MEDICATION"
^DD(53.1,3,21,3,0)="ROUTES file, this package will print that abbreviation on it's reports.)"
^DD(53.1,3,"DT")="2870309"
^DD(53.1,4,0)="TYPE^RS^U:UNIT DOSE;I:INPATIENT;F:FLUID;H:HYPERAL;^0;4^Q"
^DD(53.1,4,20,0)="^.3LA^1^1"
^DD(53.1,4,20,1,0)="PSJU"
^DD(53.1,4,21,0)="^^1^1^2910603^^^^"
^DD(53.1,4,21,1,0)="  This identifies the type of medication ordered."
^DD(53.1,4,"DT")="2910603"
^DD(53.1,5,0)="SELF MED^S^0:NO;1:YES;^0;5^Q"
^DD(53.1,5,1,0)="^.1^^-1"
^DD(53.1,5,1,1,0)="^^TRIGGER^53.1^6"
^DD(53.1,5,1,1,1)="I 'X S DIU=$S($D(^PS(53.1,DA,0)):$P(^(0),""^"",6),1:"""") I DIU]"""" S $P(^(0),""^"",6)="""" I $O(^DD(53.1,6,1,0)) K DIV S (DIV(0),D0)=DA,DIV="""",DIH=53.1,DIG=6 D ^DICR K DIV"
^DD(53.1,5,1,1,2)="S DIU=$S($D(^PS(53.1,DA,0)):$P(^(0),""^"",6),1:"""") I DIU S $P(^(0),""^"",6)="""" I $O(^DD(53.1,6,1,0)) K DIV S (DIV(0),D0)=DA,DIV="""",DIH=53.1,DIG=6 D ^DICR K DIV"
^DD(53.1,5,1,1,3)="Used by Inpatient Meds."
^DD(53.1,5,1,1,"%D",0)="^^2^2^2920617^"
^DD(53.1,5,1,1,"%D",1,0)="  Used to update HOSPITAL SUPPLIED SELF MED field to a value of 'NO'"
^DD(53.1,5,1,1,"%D",2,0)="when this field is changed from 'YES' to 'NO'."
^DD(53.1,5,1,1,"CREATE CONDITION")="I 'X"
^DD(53.1,5,1,1,"CREATE VALUE")="@"
^DD(53.1,5,1,1,"DELETE VALUE")="@"
^DD(53.1,5,1,1,"FIELD")="HOSPITAL SUPPLIED SELF MED"
^DD(53.1,5,3)="Enter a '1' (or 'YES') if this medication is to be self administered."
^DD(53.1,5,20,0)="^.3LA^1^1"
^DD(53.1,5,20,1,0)="PSJU"
^DD(53.1,5,21,0)="^^2^2^2910305^^^"
^DD(53.1,5,21,1,0)="  This should contain a `1' (or `YES') if this medication is to be"
^DD(53.1,5,21,2,0)="administered by the patient to himself."
^DD(53.1,5,"DT")="2860116"
^DD(53.1,6,0)="HOSPITAL SUPPLIED SELF MED^S^0:NO;1:YES;^0;6^Q"
^DD(53.1,6,3)="Enter 'Yes' (or a '1') if this SELF MED is to be supplied by the medical center's pharmacy."
^DD(53.1,6,5,1,0)="53.1^5^1"
^DD(53.1,6,20,0)="^.3LA^1^1"
^DD(53.1,6,20,1,0)="PSJU"
^DD(53.1,6,21,0)="^^5^5^2910305^^^^"
^DD(53.1,6,21,1,0)="  This should contain a `1' (or `YES') if this medication is to be a"
^DD(53.1,6,21,2,0)="`SELF MED' and this site's pharmacy is to supply the medication.  This"
^DD(53.1,6,21,3,0)="is only asked if the user enters `YES' (or `1') to the SELF MED prompt."
^DD(53.1,6,21,4,0)="If the SELF MED field is ever edited to show `NO' (or `0'), this is"
^DD(53.1,6,21,5,0)="automatically deleted."
^DD(53.1,6,"DT")="2850418"
^DD(53.1,7,0)="SCHEDULE TYPE^RS^O:ONE-TIME;P:PRN;C:CONTINUOUS;R:FILL on REQUEST;OC:ON CALL;^0;7^Q"
^DD(53.1,7,1,0)="^.1"
^DD(53.1,7,1,1,0)="^^TRIGGER^53.1^26"
^DD(53.1,7,1,1,1)="I X=""OC"" S DIU=$P($G(^PS(53.1,DA,2)),""^"") I DIU'=""ON CALL"" S $P(^(2),""^"")=""ON CALL"" I $O(^DD(53.1,26,1,0)) K DIV S (DIV(0),D0)=DA,DIV=""ON CALL"",DIH=53.1,DIG=26,(PSGS0XT,PSGS0Y)="""" D ^DICR K DIV"
^DD(53.1,7,1,1,2)="Q"
^DD(53.1,7,1,1,3)="Used by Inpatient Meds."
^DD(53.1,7,1,1,"%D",0)="^^3^3^2920617^"
^DD(53.1,7,1,1,"%D",1,0)="  If the SCHEDULE TYPE is entered as, or changed to, ""ON CALL"", the SCHEDULE"
^DD(53.1,7,1,1,"%D",2,0)="is changed to ""ON CALL"" (which will also delete the ADMIN TIMES and"
^DD(53.1,7,1,1,"%D",3,0)="FREQUENCY fields)."
^DD(53.1,7,1,1,"CREATE CONDITION")="I X=""OC"""
^DD(53.1,7,1,1,"CREATE VALUE")="@"
^DD(53.1,7,1,1,"DELETE VALUE")="NO EFFECT"
^DD(53.1,7,1,1,"FIELD")="SCHEDULE"
^DD(53.1,7,1,2,0)="^^TRIGGER^53.1^25"
^DD(53.1,7,1,2,1)="I X=""O"",$D(^PS(53.1,DA,2)),$P(^(2),""^"",2),$P(^(2),""^"",4),$P(^(2),""^"",2)'=$P(^(2),""^"",4) S DIU=$P(^(2),""^"",4),$P(^(2),""^"",4)=$P(^(2),""^"",2) I $O(^DD(53.1,25,1,0)) K DIV S DIV=$P(^PS(53.1,DA,2),""^"",2) X ^DD(53.1,7,1,2,1.4)"
^DD(53.1,7,1,2,1.4)="S (DIV(0),D0)=DA,DIH=53.1,DIG=25 D ^DICR K DIV W ""   ...This changes the STOP DATE/TIME..."""
^DD(53.1,7,1,2,2)="Q"
^DD(53.1,7,1,2,3)="Used by Inpatient Meds."
^DD(53.1,7,1,2,"%D",0)="^^2^2^2970613^^"
^DD(53.1,7,1,2,"%D",1,0)="  If the SCHEDULE TYPE is changed to ""ONE-TIME"", the STOP DATE/TIME is"
^DD(53.1,7,1,2,"%D",2,0)="changed to be the same as the START DATE/TIME."
^DD(53.1,7,1,2,"CREATE CONDITION")="I X=""O"""
^DD(53.1,7,1,2,"CREATE VALUE")="START DATE/TIME"
^DD(53.1,7,1,2,"DELETE VALUE")="NO EFFECT"
^DD(53.1,7,1,2,"FIELD")="STOP DATE/TIME"
^DD(53.1,7,3)="Enter the code (C, O, OC, P, or R) corresponding to the scheduling of this order."
^DD(53.1,7,4)="D SCHTP^PSJDDUT"
^DD(53.1,7,20,0)="^.3LA^1^1"
^DD(53.1,7,20,1,0)="PSJU"
^DD(53.1,7,21,0)="^^5^5^2970618^^^^"
^DD(53.1,7,21,1,0)="  This describes the type of schedule for the dispensing of the"
^DD(53.1,7,21,2,0)="medication(s) that make up the order."
^DD(53.1,7,21,3,0)="  PRE-OP orders are usually considered to be ON-CALL orders, and orders"
^DD(53.1,7,21,4,0)="dispensed as MUTLI-DOSE CONTAINERS are usually considered to be FILL ON"
^DD(53.1,7,21,5,0)="REQUEST orders."
^DD(53.1,7,23,0)="^^4^4^2970618^^^^"
^DD(53.1,7,23,1,0)="  This is used to determine how the order will be dispensed by the"
^DD(53.1,7,23,2,0)="pharmacy to the ward.  This is used mainly when the Unit Dose package"
^DD(53.1,7,23,3,0)="calculates the number of units or doses to be dispensed for a given"
^DD(53.1,7,23,4,0)="date/time range."
^DD(53.1,7,"DT")="2860530"
^DD(53.1,8,0)="SPECIAL INSTRUCTIONS^FX^^6;1^D CHKSI^PSJDDUT"
^DD(53.1,8,3)="Answer must be 1-180 characters in length."
^DD(53.1,8,4)="D SPCIN^PSJDDUT"
^DD(53.1,8,20,0)="^.3LA^1^1"
^DD(53.1,8,20,1,0)="PSJU"
^DD(53.1,8,21,0)="^^4^4^2970619^^^^"
^DD(53.1,8,21,1,0)="  This is any special instructions (using abbreviations whenever possible)"
^DD(53.1,8,21,2,0)="needed for this order.  This would include the physician's reason for"
^DD(53.1,8,21,3,0)="ordering a PRN.  The abbreviations and expansions from the MEDICATION"
^DD(53.1,8,21,4,0)="INSTRUCTIONS file are utilized."
^DD(53.1,8,"DT")="2970619"
^DD(53.1,9,0)="RENEWAL^S^1:YES;0:NO;^4;9^Q"
^DD(53.1,9,20,0)="^.3LA^1^1"
^DD(53.1,9,20,1,0)="PSJU"
^DD(53.1,9,21,0)="^^1^1^2871014^"
^DD(53.1,9,21,1,0)="  (Not currently used.)"
^DD(53.1,9,"DT")="2860124"
^DD(53.1,10,0)="START DATE/TIME^RDX^^2;2^D:X=""P"" STRDT^PSJDDUT I $D(X) S %DT=""ETX"" D ^%DT S X=Y K:Y<1!('$P(X,""."",2)) X"
^DD(53.1,10,1,0)="^.1^^0"
^DD(53.1,10,3)="Enter the date and time that the first dose is to be given.  "
^DD(53.1,10,4)="D EN^DDIOL(""  TIME IS REQUIRED."","""",""!"")"
^DD(53.1,10,20,0)="^.3LA^1^1"
^DD(53.1,10,20,1,0)="PSJU"
^DD(53.1,10,21,0)="^^6^6^2970613^^^^"
^DD(53.1,10,21,1,0)="  This is the date and time the order is to begin.  This package initially"
^DD(53.1,10,21,2,0)=" assigns the START DATE/TIME to the closest administration time or next"
^DD(53.1,10,21,3,0)=" admin. time or NOW depends on the value of the DEFAULT START DATE"
^DD(53.1,10,21,4,0)=" CALCULATION field in the INPATIENT WARD PARAMETERS file."
^DD(53.1,10,21,5,0)=" START DATE/TIME may not be entered prior to 7 days from the order's"
^DD(53.1,10,21,6,0)=" LOGIN DATE."
^DD(53.1,10,"DT")="2970619"
^DD(53.1,11,0)="DAY LIMIT^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.1,11,3)="Type a whole number between 1 and 99."
^DD(53.1,11,9)="^"
^DD(53.1,11,20,0)="^.3LA^1^1"
^DD(53.1,11,20,1,0)="PSJU"
^DD(53.1,11,21,0)="^^1^1^2910305^^^"
^DD(53.1,11,21,1,0)="  This is the number of days that this order will last."
^DD(53.1,11,"DT")="2850418"
^DD(53.1,12,0)="DOSE LIMIT^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.1,12,3)="Type a whole number between 1 and 99."
^DD(53.1,12,9)="^"
^DD(53.1,12,20,0)="^.3LA^1^1"
^DD(53.1,12,20,1,0)="PSJU"
^DD(53.1,12,21,0)="^^1^1^2910305^^^"
^DD(53.1,12,21,1,0)="  This is the number of times the medication is to be administered."
^DD(53.1,12,"DT")="2850418"
^DD(53.1,13,0)="*UNITS PER DOSE^NJ5,2OX^^0;12^S X=$S(X=""1/2"":.5,X=""1/4"":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"".""3.N) X"
^DD(53.1,13,.1)=""
^DD(53.1,13,2)="S Y(0)=Y S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.1,13,2.1)="S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.1,13,3)="Enter a number between 0 and 30 (will accept '1/2' or '1/4')."
^DD(53.1,13,4)="D UNPD^PSJDDUT"
^DD(53.1,13,20,0)="^.3LA^1^1"
^DD(53.1,13,20,1,0)="PSJU"
^DD(53.1,13,21,0)="^^2^2^2970619^^^^"
^DD(53.1,13,21,1,0)="  This is now for use only by the package.  Units per Dose is now associated"
^DD(53.1,13,21,2,0)="with each dispense drug."
^DD(53.1,13,23,0)="^^3^3^2970619^^^"
^DD(53.1,13,23,1,0)="  This is now for use only by the package for look-up purposes during order"
^DD(53.1,13,23,2,0)="entry.  Units per dose is now associated with each dispense drug.  See"
^DD(53.1,13,23,3,0)="Units per Dose (field #.02) within the Dispense Drug multiple (#53.11)."
^DD(53.1,13,"DT")="2921112"
^DD(53.1,14,0)="*PRE-EXCHANGE UNITS^NJ5,2^^5;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(53.1,14,3)="Type a Number between 0 and 99, 2 Decimal Digits."
^DD(53.1,14,20,0)="^.3LA^1^1"
^DD(53.1,14,20,1,0)="PSJU"
^DD(53.1,14,21,0)="^^2^2^2910305^^^^"
^DD(53.1,14,21,1,0)="  This is the number of actual units needed for this order until the next"
^DD(53.1,14,21,2,0)="cart exchange."
^DD(53.1,14,"DT")="2921112"
^DD(53.1,15,0)="RENEWAL USER^P200'^VA(200,^4;10^Q"
^DD(53.1,15,20,0)="^.3LA^1^1"
^DD(53.1,15,20,1,0)="PSJU"
^DD(53.1,15,21,0)="^^2^2^2910305^^^"
^DD(53.1,15,21,1,0)="  This is the user who renewed this order, or marked this order to be"
^DD(53.1,15,21,2,0)="renewed."
^DD(53.1,15,"DT")="2910708"
^DD(53.1,16,0)="VERIFYING NURSE^P200'^VA(200,^4;1^Q"
^DD(53.1,16,1,0)="^.1"
^DD(53.1,16,1,1,0)="53.1^AV^MUMPS"
^DD(53.1,16,1,1,1)="S XX=X,X=""PSGAXR"" X ^%ZOSF(""TEST"") I  S X=XX D ENNACK^PSGAXR"
^DD(53.1,16,1,1,2)="S XX=X,X=""PSGAXR"" X ^%ZOSF(""TEST"") I  S X=XX D ENNACKK^PSGAXR"
^DD(53.1,16,1,1,"%D",0)="^^3^3^2960522^^^^"
^DD(53.1,16,1,1,"%D",1,0)="If the order has a pending status and was acknowledged by a nurse, this "
^DD(53.1,16,1,1,"%D",2,0)="x-ref is set:"
^DD(53.1,16,1,1,"%D",3,0)=" ^PS(53.1,""AV"",patient,DA)="""""
^DD(53.1,16,1,1,"DT")="2960122"
^DD(53.1,16,20,0)="^.3LA^1^1"
^DD(53.1,16,20,1,0)="PSJU"
^DD(53.1,16,21,0)="^^1^1^2960522^^^^"
^DD(53.1,16,21,1,0)="  This is the nurse who verifies the order."
^DD(53.1,16,"DT")="2960122"
^DD(53.1,17,0)="DATE VERIFIED BY NURSE^D^^4;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,17,20,0)="^.3LA^1^1"
^DD(53.1,17,20,1,0)="PSJU"
^DD(53.1,17,21,0)="^^1^1^2910305^^"
^DD(53.1,17,21,1,0)="  This is the date the order was verified by the nurse."
^DD(53.1,17,"DT")="2850418"
^DD(53.1,18,0)="VERIFYING PHARMACIST^P200'^VA(200,^4;3^Q"
^DD(53.1,18,20,0)="^.3LA^1^1"
^DD(53.1,18,20,1,0)="PSJU"
^DD(53.1,18,21,0)="^^1^1^2910305^^^^"
^DD(53.1,18,21,1,0)="  This is the pharmacist who verified the order."
^DD(53.1,18,"DT")="2910708"
^DD(53.1,19,0)="DATE VERIFIED BY PHARMACIST^D^^4;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,19,20,0)="^.3LA^1^1"
^DD(53.1,19,20,1,0)="PSJU"
^DD(53.1,19,21,0)="^^1^1^2910305^^"
^DD(53.1,19,21,1,0)="  This is the date the order was verified by the pharmacist."
^DD(53.1,19,"DT")="2850418"
^DD(53.1,20,0)="PHYSICIAN^*P200'^VA(200,^4;5^S DIC(""S"")=""I $D(^(""""PS""""),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.1,20,12)="Provider must be active and privileged to write medciation orders."
^DD(53.1,20,12.1)="S DIC(""S"")=""I $D(^(""""PS""""),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"""
^DD(53.1,20,20,0)="^.3LA^1^1"
^DD(53.1,20,20,1,0)="PSJU"
^DD(53.1,20,21,0)="^^1^1^2910305^^"
^DD(53.1,20,21,1,0)="  This is the physician who signed off on the order."
^DD(53.1,20,"DT")="2910708"
^DD(53.1,21,0)="DATE VERIFIED BY PHYSICIAN^D^^4;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,21,20,0)="^.3LA^1^1"
^DD(53.1,21,20,1,0)="PSJU"
^DD(53.1,21,21,0)="^^1^1^2910305^^"
^DD(53.1,21,21,1,0)="  This is the date the physician signed off on the order."
^DD(53.1,21,"DT")="2850418"
^DD(53.1,22,0)="CLERK^P200'^VA(200,^4;7^Q"
^DD(53.1,22,20,0)="^.3LA^1^1"
^DD(53.1,22,20,1,0)="PSJU"
^DD(53.1,22,21,0)="^^1^1^2910305^^"
^DD(53.1,22,21,1,0)="  This is the user who entered the order."
^DD(53.1,22,"DT")="2910708"
^DD(53.1,23,0)="DATE ENTERED BY CLERK^D^^4;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,23,20,0)="^.3LA^1^1"
^DD(53.1,23,20,1,0)="PSJU"
^DD(53.1,23,21,0)="^^1^1^2910305^^"
^DD(53.1,23,21,1,0)="  This is the date (to the second) that the order was entered."
^DD(53.1,23,"DT")="2850418"
^DD(53.1,24,0)="SOLUTION^RP50'^PSDRUG(^0;17^Q"
^DD(53.1,24,3)=""
^DD(53.1,24,20,0)="^.3LA^1^1"
^DD(53.1,24,20,1,0)="PSJU"
^DD(53.1,24,21,0)="^^1^1^2910305^^"
^DD(53.1,24,21,1,0)="  (Not currently used.)"
^DD(53.1,24,"DT")="2850418"
^DD(53.1,25,0)="STOP DATE/TIME^RDX^^2;4^X:X=+X&X&$D(^PS(53.1,DA,2)) ""S PSGDL=X D EN^PSJDDUT"" S %DT=""ERTX"" D ^%DT S X=+Y K:Y'>0 X"
^DD(53.1,25,1,0)="^.1^^0"
^DD(53.1,25,3)="Enter the date and time that the last dose is to be given (and the order will expire)."
^DD(53.1,25,4)="D EN^PSJDDUT3(""STPDTHLP"")"
^DD(53.1,25,5,1,0)="53.1^7^2"
^DD(53.1,25,20,0)="^.3LA^1^1"
^DD(53.1,25,20,1,0)="PSJU"
^DD(53.1,25,21,0)="^^3^3^2970619^^^^"
^DD(53.1,25,21,1,0)="  This is the date and time the order will automatically expire.  This"
^DD(53.1,25,21,2,0)="package initially assigns a default STOP DATE/TIME, depending on the SITE"
^DD(53.1,25,21,3,0)="PARAMETERS."
^DD(53.1,25,"DT")="2970619"
^DD(53.1,26,0)="SCHEDULE^RFX^^2;1^D:'$D(PSGOES) SCH^PSJDDUT"
^DD(53.1,26,1,0)="^.1^^-1"
^DD(53.1,26,1,1,0)="^^TRIGGER^53.1^39"
^DD(53.1,26,1,1,1)="I '$D(DIU(0)),$D(PSGS0Y),PSGS0Y S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),""^"",5),1:"""") I DIU'=PSGS0Y S $P(^(2),""^"",5)=PSGS0Y I $O(^DD(53.1,39,1,0)) K DIV S (DIV(0),D0)=DA,DIV=PSGS0Y,DIH=53.1,DIG=39 D ^DICR K DIV"
^DD(53.1,26,1,1,2)="I '$D(DIU(0)),$D(PSGS0Y) S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),""^"",5),1:"""") I DIU]"""" S $P(^(2),""^"",5)="""" I $O(^DD(53.1,39,1,0)) K DIV S (DIV(0),D0)=DA,DIV="""",DIH=53.1,DIG=39 D ^DICR K DIV"
^DD(53.1,26,1,1,"%D",0)="^^1^1^2921016^"
^DD(53.1,26,1,1,"%D",1,0)="Triggers data into Admin. Times field."
^DD(53.1,26,1,1,"CREATE VALUE")="PSGS0Y"
^DD(53.1,26,1,1,"DELETE VALUE")="@"
^DD(53.1,26,1,1,"FIELD")="ADMIN TIMES"
^DD(53.1,26,1,2,0)="^^TRIGGER^53.1^41"
^DD(53.1,26,1,2,1)="I $D(PSGS0XT),PSGS0XT S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),""^"",6),1:"""") I DIU'=PSGS0XT S $P(^(2),""^"",6)=PSGS0XT I $O(^DD(53.1,41,1,0)) K DIV S (DIV(0),D0)=DA,DIV=PSGS0XT,DIH=53.1,DIG=41 D ^DICR K DIV"
^DD(53.1,26,1,2,2)="I $D(PSGS0XT) S DIU=$S($D(^PS(53.1,DA,2)):$P(^(2),""^"",6),1:"""") I DIU]"""" S $P(^(2),""^"",6)="""" I $O(^DD(53.1,41,1,0)) K DIV S (DIV(0),D0)=DA,DIV="""",DIH=53.1,DIG=41 D ^DICR K DIV"
^DD(53.1,26,1,2,"%D",0)="^^1^2920831^"
^DD(53.1,26,1,2,"%D",1,0)="Triggers data into Frequency (min.) field."
^DD(53.1,26,1,2,"CREATE VALUE")="PSGS0XT"
^DD(53.1,26,1,2,"DELETE VALUE")="@"
^DD(53.1,26,1,2,"FIELD")="FREQUENCY (in minutes)"
^DD(53.1,26,3)="Answer must be 1-70 characters in length and may contain only two spaces."
^DD(53.1,26,4)="D SCH3^PSJDDUT"
^DD(53.1,26,5,1,0)="53.1^7^1"
^DD(53.1,26,20,0)="^.3LA^1^1"
^DD(53.1,26,20,1,0)="PSJU"
^DD(53.1,26,21,0)="^^16^16^3000512^"
^DD(53.1,26,21,1,0)="  This is the frequency (ONLY) with which the doses are to be"
^DD(53.1,26,21,2,0)="administered.  Several forms of entry are acceptable, such as"
^DD(53.1,26,21,3,0)="Q6H, 09-12-15, STAT, QOD, and MO-WE-FR@AD (where MO-WE-FR are"
^DD(53.1,26,21,4,0)="days of the week, and AD is the admin times).  The schedule"
^DD(53.1,26,21,5,0)="will show on the MAR, labels, etc.  No more than TWO spaces"
^DD(53.1,26,21,6,0)="(Q3H 4, TID PC PRN, or Q4H PRN) in the schedule are acceptable."
^DD(53.1,26,21,7,0)="If the letters PRN are found as part of the schedule, no admin"
^DD(53.1,26,21,8,0)="times will print on the MAR or labels, and the PICK LIST will"
^DD(53.1,26,21,9,0)="always show a count of zero (0)."
^DD(53.1,26,21,10,0)="  Avoid using notation such as W/F (with food) or WM (with"
^DD(53.1,26,21,11,0)="meals)in the schedule as it may cause erroneous calculations."
^DD(53.1,26,21,12,0)="That information should be entered into the SPECIAL INSTRUCTIONS."
^DD(53.1,26,21,13,0)="  When using the MO-WE-FR@AD schedule, please remember that"
^DD(53.1,26,21,14,0)="this type of schedule will not work properly without the ""@"""
^DD(53.1,26,21,15,0)="character and at least one admin time, and that at least the"
^DD(53.1,26,21,16,0)="first two letters of each weekday entered is needed."
^DD(53.1,26,"DT")="2970619"
^DD(53.1,27,0)="ORDER DATE^RDX^^0;14^S %DT=""ET"" D ^%DT S X=Y K:Y<1!($P(X,""."",2)']"""") X"
^DD(53.1,27,3)="Enter Date/Time that order was written."
^DD(53.1,27,20,0)="^.3LA^1^1"
^DD(53.1,27,20,1,0)="PSJU"
^DD(53.1,27,21,0)="^^1^1^2910305^^"
^DD(53.1,27,21,1,0)="  This is the date the medication was ordered."
^DD(53.1,27,"DT")="2850430"
^DD(53.1,27.1,0)="LOG-IN DATE^RDI^^0;16^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,27.1,9)="^"
^DD(53.1,27.1,20,0)="^.3LA^1^1"
^DD(53.1,27.1,20,1,0)="PSJU"
^DD(53.1,27.1,21,0)="^^1^1^2910524^^^"
^DD(53.1,27.1,21,1,0)="  This is the date (to the second) the ordered was entered."
^DD(53.1,27.1,"DT")="2860724"
^DD(53.1,28,0)="STATUS^RS^A:ACTIVE;D:DISCONTINUED;I:INCOMPLETE;N:NON-VERIFIED;U:UNRELEASED;P:PENDING;DE:DISCONTINUED (EDIT);^0;9^Q"
^DD(53.1,28,.1)=""
^DD(53.1,28,1,0)="^.1"
^DD(53.1,28,1,1,0)="53.1^AS^MUMPS"
^DD(53.1,28,1,1,1)="S XX=X,X=""PSGAXR"" X ^%ZOSF(""TEST"") I  S X=XX D ENSS^PSGAXR"
^DD(53.1,28,1,1,2)="S XX=X,X=""PSGAXR"" X ^%ZOSF(""TEST"") I  S X=XX D ENSK^PSGAXR"
^DD(53.1,28,1,1,3)="NEEDED BY UNIT DOSE"
^DD(53.1,28,1,1,"%D",0)="^^13^13^2960523^^^"
^DD(53.1,28,1,1,"%D",1,0)="Sets the following x-refs:"
^DD(53.1,28,1,1,"%D",2,0)="^PS(53.1,""AS"",status,patient,DA)"
^DD(53.1,28,1,1,"%D",3,0)=" "
^DD(53.1,28,1,1,"%D",4,0)="If the status is not ACTIVE or a DISCONTINUED status, the following are"
^DD(53.1,28,1,1,"%D",5,0)="also set:"
^DD(53.1,28,1,1,"%D",6,0)="^PS(53.1,""AC"",patient,DA)"
^DD(53.1,28,1,1,"%D",7,0)="^PS(53.1,""AOD"",patient,primary drug,DA)"
^DD(53.1,28,1,1,"%D",8,0)=" "
^DD(53.1,28,1,1,"%D",9,0)="If the status is pending and order has been acknowledged by a nurse, the"
^DD(53.1,28,1,1,"%D",10,0)="following is also set:"
^DD(53.1,28,1,1,"%D",11,0)="^PS(53.1,""AV"",patient,DA)"
^DD(53.1,28,1,1,"%D",12,0)=" "
^DD(53.1,28,1,1,"%D",13,0)="These are used for certain look-ups."
^DD(53.1,28,20,0)="^.3LA^1^1"
^DD(53.1,28,20,1,0)="PSJU"
^DD(53.1,28,21,0)="^^1^1^2960122^^^^"
^DD(53.1,28,21,1,0)="  This is the status of the order."
^DD(53.1,28,"DT")="2920527"
^DD(53.1,29,0)="DATE RENEWAL MARKED^D^^4;11^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,29,20,0)="^.3LA^1^1"
^DD(53.1,29,20,1,0)="PSJU"
^DD(53.1,29,21,0)="^^1^1^2910305^^"
^DD(53.1,29,21,1,0)="  This is the date the order was marked to be renewed."
^DD(53.1,29,"DT")="2860124"
^DD(53.1,30,0)="MARKED CANCELLED^S^1:YES;0:NO;^4;12^Q"
^DD(53.1,30,20,0)="^.3LA^1^1"
^DD(53.1,30,20,1,0)="PSJU"
^DD(53.1,30,21,0)="^^2^2^2910305^^^"
^DD(53.1,30,21,1,0)="  This is an internal flag showing that the order has been marked to"
^DD(53.1,30,21,2,0)="be cancelled."
^DD(53.1,30,"DT")="2860124"
^DD(53.1,31,0)="MARKED CANCELLED USER^P200'^VA(200,^4;13^Q"
^DD(53.1,31,20,0)="^.3LA^1^1"
^DD(53.1,31,20,1,0)="PSJU"
^DD(53.1,31,21,0)="^^1^1^2910305^^^"
^DD(53.1,31,21,1,0)="  This is the user who marked the order to be cancelled."
^DD(53.1,31,"DT")="2910708"
^DD(53.1,32,0)="INACTIVE DATE/TIME^D^^2;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,32,20,0)="^.3LA^1^1"
^DD(53.1,32,20,1,0)="PSJU"
^DD(53.1,32,21,0)="^^2^2^2910305^^"
^DD(53.1,32,21,1,0)="  This is the original stop date of the order, and is updated when the"
^DD(53.1,32,21,2,0)="order is cancelled."
^DD(53.1,32,"DT")="2870506"
^DD(53.1,33,0)="DOSES CALLED FOR^NJ4,0^^5;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.1,33,3)="Type a whole number between 0 and 9999."
^DD(53.1,33,20,0)="^.3LA^1^1"
^DD(53.1,33,20,1,0)="PSJU"
^DD(53.1,33,21,0)="^^2^2^2910305^^"
^DD(53.1,33,21,1,0)="  This is the total amount of the medication to be dispensed as calculated"
^DD(53.1,33,21,2,0)="by the package."
^DD(53.1,33,"DT")="2850811"
^DD(53.1,34,0)="DOSES ACTUALLY DISPENSED^NJ4,0^^5;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.1,34,3)="Type a whole number between 0 and 9999."
^DD(53.1,34,20,0)="^.3LA^1^1"
^DD(53.1,34,20,1,0)="PSJU"
^DD(53.1,34,21,0)="^^2^2^2910305^^"
^DD(53.1,34,21,1,0)="  This is the amount of the medication actually dispensed as entered by"
^DD(53.1,34,21,2,0)="the pharmacist."
^DD(53.1,34,"DT")="2850811"
^DD(53.1,35,0)="RETURNS^NJ3,0^^5;5^K:+X'=X!(X>100)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(53.1,35,3)="Enter a whole number between -100 and 100."
^DD(53.1,35,4)="S Y1=$S('$D(^PS(53.1,DA,5)):0,1:$P(^(5),""^"",4)) D EN^DDIOL($S(Y1:Y1_""TOTAL"",1:""NO"")_"" DOSE""_$E(""S"",Y1'=1)_"" RETURNED, SO FAR."","""",""!"")"
^DD(53.1,35,20,0)="^.3LA^1^1"
^DD(53.1,35,20,1,0)="PSJU"
^DD(53.1,35,21,0)="^^2^2^2970613^^^^"
^DD(53.1,35,21,1,0)="  This is the number of doses returned of this medication from the patient's"
^DD(53.1,35,21,2,0)="cassette upon the termination of this order."
^DD(53.1,35,"DT")="2850811"
^DD(53.1,36,0)="TOTAL RETURNS^NJ4,0^^5;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.1,36,3)="Type a whole number between 0 and 9999."
^DD(53.1,36,20,0)="^.3LA^1^1"
^DD(53.1,36,20,1,0)="PSJU"
^DD(53.1,36,21,0)="^^1^1^2910305^^"
^DD(53.1,36,21,1,0)="  This is the total amount of returns for this order."
^DD(53.1,36,"DT")="2850811"
^DD(53.1,37,0)="TOTAL UNITS DISPENSED^CJ8,0^^ ; ^S Y(53.1,37,2)=$S($D(^PS(53.1,D0,0)):^(0),1:""""),Y(53.1,37,1)=$S($D(^(5)):^(5),1:"""") S X=$P(Y(53.1,37,1),U,3)+$P(Y(53.1,37,2),U,13)-$P(Y(53.1,37,1),U,4)"
^DD(53.1,37,9)="^"
^DD(53.1,37,9.01)="53.1^36;53.1^14;53.1^34"
^DD(53.1,37,9.1)="DOSES ACTUALLY DISPENSED+PRE-EXCHANGE NEEDS-TOTAL RETURNS"
^DD(53.1,37,20,0)="^.3LA^1^1"
^DD(53.1,37,20,1,0)="PSJU"
^DD(53.1,37,21,0)="^^2^2^2910305^^"
^DD(53.1,37,21,1,0)="  This is the total amount dispensed for this order, including PRE-EXCHANGE"
^DD(53.1,37,21,2,0)="NEEDS and EXTRA UNITS DISPENSED."
^DD(53.1,37,"DT")="2851111"
^DD(53.1,38,0)="DATE MARKED CANCELLED^D^^4;14^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,38,20,0)="^.3LA^1^1"
^DD(53.1,38,20,1,0)="PSJU"
^DD(53.1,38,21,0)="^^1^1^2910305^^^"
^DD(53.1,38,21,1,0)="  This is the date that the order was marked for cancellation."
^DD(53.1,38,"DT")="2860124"
^DD(53.1,39,0)="ADMIN TIMES^FX^^2;5^K:X[""""""""!($A(X)=45) X I $D(X) D ENCHK^PSGS0"
^DD(53.1,39,1,0)="^.1"
^DD(53.1,39,1,1,0)="53.1^AAT^MUMPS"
^DD(53.1,39,1,1,1)="S PSGS0Y=X"
^DD(53.1,39,1,1,2)="Q"
^DD(53.1,39,1,1,"%D",0)="^^3^3^2971211^^^^"
^DD(53.1,39,1,1,"%D",1,0)=" Used to ensure the variable PSGS0Y contains the admin times for the"
^DD(53.1,39,1,1,"%D",2,0)="order when the field is set using VA FileMan."
^DD(53.1,39,1,1,"%D",3,0)=" S PSGS0Y=ADMIN TIMES"
^DD(53.1,39,1,2,0)="53.1^ADM^MUMPS"
^DD(53.1,39,1,2,1)="I $D(^PS(53.1,DA,2)),$P(^(2),""^"")[""@"" S $P(^(2),""^"")=$P($P(^(2),""^""),""@"")_""@""_X"
^DD(53.1,39,1,2,2)="Q"
^DD(53.1,39,1,2,3)="NEEDED BY UNIT DOSE"
^DD(53.1,39,1,2,"%D",0)="^^3^3^2971211^"
^DD(53.1,39,1,2,"%D",1,0)="Used to update a DAY OF THE WEEK type schedule whenever the admin times are"
^DD(53.1,39,1,2,"%D",2,0)="changed."
^DD(53.1,39,1,2,"%D",3,0)="S $P(^PS(53.1,ORDER NUMBER,2),""^"")=$P(SCHEDULE,""@"",2)_@_ADMIN TIMES"
^DD(53.1,39,3)="Enter a set of administration times for this order."
^DD(53.1,39,4)="D EN^DDIOL(""EACH TIME MUST BE TWO DIGITS BETWEEN 01 AND 24.  THE TIMES MUST BE SEPARATED    WITH """"-""""'S AND BE IN ASCENDING ORDER."","""",""!"")"
^DD(53.1,39,5,1,0)="53.1^26^1"
^DD(53.1,39,20,0)="^.3LA^1^1"
^DD(53.1,39,20,1,0)="PSJU"
^DD(53.1,39,21,0)="^^1^1^2970613^^^^"
^DD(53.1,39,21,1,0)="  This is the set of administration times for this order."
^DD(53.1,39,"DEL",5,0)="I $D(^PS(53.1,DA,2)),$P(^(2),""^"")[""@"" D EN^DDIOL(""YOU CANNOT DELETE THE ADMIN TIMES FOR THIS TYPE OF SCHEDULE. "","""",""!?2"")"
^DD(53.1,39,"DEL",41,0)="I $D(^PS(53.1,DA,2)),$P(^(2),""^"",6)=""D"" D EN^DDIOL(""This is a 'DAY OF THE WEEK' schedule, and must have admin times."","""",""!"")"
^DD(53.1,39,"DT")="2880528"
^DD(53.1,40,0)="COMMENTS^53.12^^3;0"
^DD(53.1,40,20,0)="^.3LA^1^1"
^DD(53.1,40,20,1,0)="PSJU"
^DD(53.1,40,21,0)="^^1^1^2910305^^^"
^DD(53.1,40,21,1,0)="  This is any remarks needed for this order."
^DD(53.1,41,0)="FREQUENCY (in minutes)^F^^2;6^K:$L(X)>6!($L(X)<1) X"
^DD(53.1,41,3)="Answer must be 1-6 characters in length."
^DD(53.1,41,5,1,0)="53.1^26^2"
^DD(53.1,41,9)="^"
^DD(53.1,41,20,0)="^.3LA^1^1"
^DD(53.1,41,20,1,0)="PSJU"
^DD(53.1,41,21,0)="^^2^2^2910305^^^"
^DD(53.1,41,21,1,0)="  This is either a code or the number of minutes between the administration"
^DD(53.1,41,21,2,0)="times for the order."
^DD(53.1,41,"DT")="2900109"
^DD(53.1,42,0)="TRANSFER^S^1:YES;0:NO;^4;15^Q"
^DD(53.1,42,20,0)="^.3LA^1^1"
^DD(53.1,42,20,1,0)="PSJU"
^DD(53.1,42,21,0)="^^2^2^2910305^^"
^DD(53.1,42,21,1,0)="  This is an internal flag set if the order was cancelled due to the"
^DD(53.1,42,21,2,0)="patient being transferred."
^DD(53.1,42,"DT")="2860124"
^DD(53.1,43,0)="PV FLAG^S^1:YES;0:NO;^4;16^Q"
^DD(53.1,43,20,0)="^.3LA^1^1"
^DD(53.1,43,20,1,0)="PSJU"
^DD(53.1,43,21,0)="^^2^2^2910305^^"
^DD(53.1,43,21,1,0)="  This is an internal flag set if the order was ever verified by a"
^DD(53.1,43,21,2,0)="pharmacist."
^DD(53.1,43,"DT")="2860127"
^DD(53.1,44,0)="LABEL DATE^D^^7;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,44,3)="Enter the date the latest label was created for this order."
^DD(53.1,44,20,0)="^.3LA^1^1"
^DD(53.1,44,20,1,0)="PSJU"
^DD(53.1,44,21,0)="^^1^1^2910305^^"
^DD(53.1,44,21,1,0)="  This is the date the last label record was created for this order."
^DD(53.1,44,"DT")="2860407"
^DD(53.1,45,0)="LABEL REASON^S^D:DISCONTINUED;E:EDITED;N:NEW;DE:DISCONTINUED (EDIT);^7;2^Q"
^DD(53.1,45,3)="Enter the reason the latest label was created for this order."
^DD(53.1,45,20,0)="^.3LA^1^1"
^DD(53.1,45,20,1,0)="PSJU"
^DD(53.1,45,21,0)="^^2^2^2920831^^^^"
^DD(53.1,45,21,1,0)="  This is the last activity to take place on the order that created a"
^DD(53.1,45,21,2,0)="label record."
^DD(53.1,45,"DT")="2920831"
^DD(53.1,46,0)="NEW ORDER NO.^NJ9,0^^0;19^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.1,46,3)="Enter a whole number between 0 and 999999999"
^DD(53.1,46,20,0)="^.3LA^1^1"
^DD(53.1,46,20,1,0)="PSJU"
^DD(53.1,46,21,0)="^^3^3^2911112^^^^"
^DD(53.1,46,21,1,0)="  When an order is first made active, the new order number (from ^PS(55)) is"
^DD(53.1,46,21,2,0)="stored in this field."
^DD(53.1,46,21,3,0)="  (Not currently used.)"
^DD(53.1,46,"DT")="2860422"
^DD(53.1,47,0)="SIG^F^^6.5;1^K:$L(X)>180!($L(X)<1) X"
^DD(53.1,47,.1)="SIG "
^DD(53.1,47,3)="Answer must be 1-180 characters in length."
^DD(53.1,47,20,0)="^.3LA^1^1"
^DD(53.1,47,20,1,0)="PSJU"
^DD(53.1,47,21,0)="^^2^2^2910305^^^"
^DD(53.1,47,21,1,0)="  This is the provider's exact instructions for this order's medication"
^DD(53.1,47,21,2,0)="and its administration."
^DD(53.1,47,"DT")="2871022"
^DD(53.1,48,0)="PURGE FLAG^S^1:ORDER TO BE PURGED;^0;20^Q"
^DD(53.1,48,20,0)="^.3LA^1^1"
^DD(53.1,48,20,1,0)="PSJU"
^DD(53.1,48,21,0)="^^1^1^2910305^^"
^DD(53.1,48,21,1,0)="  This is an internal flag set when the order is due to be purged (deleted)."
^DD(53.1,48,"DT")="2870617"
^DD(53.1,49,0)="ORDERS FILE ENTRY^F^^0;21^K:$L(X)>30!($L(X)<1) X"
^DD(53.1,49,3)="Answer must be 1-30 characters in length."
^DD(53.1,49,20,0)="^.3LA^1^1"
^DD(53.1,49,20,1,0)="PSJU"
^DD(53.1,49,21,0)="^^2^2^2960129^^^^"
^DD(53.1,49,21,1,0)="  This is the pointer value of the corresponding entry in the Orders file"
^DD(53.1,49,21,2,0)="(100) when the order is entered through the OE/RR process."
^DD(53.1,49,"DT")="2960129"
^DD(53.1,50,0)="LAST WARD^P42'^DIC(42,^0;23^Q"
^DD(53.1,50,3)="SHOULD NOT BE ENTERED THROUGH VA FILEMAN."
^DD(53.1,50,20,0)="^.3LA^1^1"
^DD(53.1,50,20,1,0)="PSJU"
^DD(53.1,50,21,0)="^^5^5^2910305^^"
^DD(53.1,50,21,1,0)="  This is the last ward the patient was located when the order expired"
^DD(53.1,50,21,2,0)="or was discontinued.  This is automatically updated by the Unit Dose"
^DD(53.1,50,21,3,0)="package when the package finds that the patient is first admitted or"
^DD(53.1,50,21,4,0)="when the patient is found to have been transferred.  This allows any"
^DD(53.1,50,21,5,0)="returns that are entered to be credited to the correct ward."
^DD(53.1,50,"DT")="2880815"
^DD(53.1,51,0)="LABEL CREATOR^P200'^VA(200,^7;3^Q"
^DD(53.1,51,20,0)="^.3LA^1^1"
^DD(53.1,51,20,1,0)="PSJU"
^DD(53.1,51,21,0)="^^2^2^2910305^^^"
^DD(53.1,51,21,1,0)="  This is the user who took the action that created the label for this"
^DD(53.1,51,21,2,0)="order."
^DD(53.1,51,"DT")="2910708"
^DD(53.1,52,0)="WARD FOR AUTO-CANCEL LABEL^P42'^DIC(42,^7;4^Q"
^DD(53.1,52,20,0)="^.3LA^1^1"
^DD(53.1,52,20,1,0)="PSJU"
^DD(53.1,52,21,0)="^^2^2^2910305^^^"
^DD(53.1,52,21,1,0)="  This is the ward the patient was on before the transfer or discharge"
^DD(53.1,52,21,2,0)="that created the label occurred."
^DD(53.1,52,"DT")="2881101"
^DD(53.1,53,0)="IV TYPE^S^A:ADMIXTURE;C:CHEMOTHERAPY;H:HYPERAL;P:PIGGYBACK;S:SYRINGE;^8;1^Q"
^DD(53.1,53,21,0)="^^2^2^2910521^"
^DD(53.1,53,21,1,0)="  Type of IV - ""A"" for Admixture, ""C"" for Chemotherapy, ""H"" for Hyperal,"
^DD(53.1,53,21,2,0)="""P"" for Piggyback, and ""S"" for Syringe."
^DD(53.1,53,"DT")="2910521"
^DD(53.1,54,0)="CHEMOTHERAPY TYPE^RS^A:ADMIXTURE;P:PIGGYBACK;S:SYRINGE;^8;2^Q"
^DD(53.1,54,21,0)="^^4^4^2910521^"
^DD(53.1,54,21,1,0)="  A chemotherapy IV order may be one of three type: admixture, piggyback,"
^DD(53.1,54,21,2,0)="or syringe.  The type of chemotherapy IV must be identified as one of these"
^DD(53.1,54,21,3,0)="types, so the system will know what kinds of questions to ask in order to"
^DD(53.1,54,21,4,0)="properly complete this order."
^DD(53.1,54,"DT")="2910521"
^DD(53.1,55,0)="SYRINGE SIZE^F^^8;3^K:$L(X)>100!($L(X)<1) X"
^DD(53.1,55,3)="Answer must be 1-100 characters in length. Example: 25 cc's ..NOTE.. total volume of order should be less than syringe size."
^DD(53.1,55,20,0)="^.3LA^1^1"
^DD(53.1,55,20,1,0)="PSJI"
^DD(53.1,55,21,0)="^^1^1^2920117^^^"
^DD(53.1,55,21,1,0)="  Enter the size of the syringe which is to be used to administer this IV."
^DD(53.1,55,"DT")="3050511"
^DD(53.1,56,0)="INTERMITTENT SYRINGE^RS^1:YES;0:NO;^8;4^Q"
^DD(53.1,56,20,0)="^.3LA^1^1"
^DD(53.1,56,20,1,0)="PSJI"
^DD(53.1,56,21,0)="^^5^5^2910521^"
^DD(53.1,56,21,1,0)="  A syringe IV order may be continuous or intermittent.  If a syringe type"
^DD(53.1,56,21,2,0)="is continuous (not intermittent), the same order entry procedure will be"
^DD(53.1,56,21,3,0)="followed as if a hyperal or admixture is being entered.  If a syringe order"
^DD(53.1,56,21,4,0)="is to be intermittent, the same order entry method as the piggyback type"
^DD(53.1,56,21,5,0)="will be followed."
^DD(53.1,56,"DT")="2910521"
^DD(53.1,57,0)="ADDITIVE^53.157PA^^AD;0"
^DD(53.1,57,20,0)="^.3LA^1^1"
^DD(53.1,57,20,1,0)="PSJI"
^DD(53.1,57,21,0)="^^1^1^2910521^^"
^DD(53.1,57,21,1,0)="  The additive in the IV.  This looks at the IV ADDITIVES file (52.6)."
^DD(53.1,58,0)="SOLUTION^53.158PA^^SOL;0"
^DD(53.1,58,20,0)="^.3LA^1^1"
^DD(53.1,58,20,1,0)="PSJI"
^DD(53.1,58,21,0)="^^1^1^2981218^^^^"
^DD(53.1,58,21,1,0)="  Solution in the IV.  Points to the IV SOLUTIONS file (52.7)."
^DD(53.1,59,0)="INFUSION RATE^FX^^8;5^D ENI^PSJDDUT3"
^DD(53.1,59,3)="Answer must be 1-30 characters in length."
^DD(53.1,59,20,0)="^.3LA^1^1"
^DD(53.1,59,20,1,0)="PSJI"
^DD(53.1,59,21,0)="^.001^18^18^3000419^^^^"
^DD(53.1,59,21,1,0)="  The rate at which the IV is to be administered.  This value, in "
^DD(53.1,59,21,2,0)="conjunction with the total volume of the hyperal or the admixture type, is"
^DD(53.1,59,21,3,0)="used to determine the time covered by one bag; hence the system can predict"
^DD(53.1,59,21,4,0)="the bags needed during a specified time of coverage.  This field is free"
^DD(53.1,59,21,5,0)="text for IVPB's.  For LVP's you must enter a number that will represent the"
^DD(53.1,59,21,6,0)="infusion rate.  You may also specify the # of bags per day that will be "
^DD(53.1,59,21,7,0)="needed."
^DD(53.1,59,21,8,0)=" "
^DD(53.1,59,21,9,0)="  Example.  125 = 125 ml/hr (IV system will calculate bags needed per day)"
^DD(53.1,59,21,10,0)="          125@2 = 125 ml/hr with 2 labels per day"
^DD(53.1,59,21,11,0)="      TITRATE@1 = TITRATE with 1 label per day."
^DD(53.1,59,21,12,0)=" The format of this field is either a number only or"
^DD(53.1,59,21,13,0)=" [FREE TEXT@NUMBER OF LABELS PER DAY]."
^DD(53.1,59,21,14,0)=" "
^DD(53.1,59,21,15,0)="Note: If an administration time(s) is defined, the number of labels will"
^DD(53.1,59,21,16,0)="reflect the administration time(s) for the IVPB type orders."
^DD(53.1,59,21,17,0)="For example:  One administration time of 12:00 is specified.  The infusion"
^DD(53.1,59,21,18,0)="rate is entered as 125@3.  Only 1 label will print."
^DD(53.1,59,"DT")="2970619"
^DD(53.1,60,0)="SCHEDULE INTERVAL^NJ4,0^^8;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.1,60,3)="Type a Number between 0 and 9999."
^DD(53.1,60,20,0)="^.3LA^1^1"
^DD(53.1,60,20,1,0)="PSJI"
^DD(53.1,60,21,0)="^^1^1^2920511^^"
^DD(53.1,60,21,1,0)="  Interval (in minutes) between administrations of the IV order."
^DD(53.1,60,"DT")="2910524"
^DD(53.1,61,0)="ATZERO^S^1:PRINT PB'S ON DEMAND;^8;7^Q"
^DD(53.1,61,20,0)="^.3LA^1^1"
^DD(53.1,61,20,1,0)="PSJI"
^DD(53.1,61,21,0)="^^7^7^2910603^^"
^DD(53.1,61,21,1,0)="  If an IV order is intermittent and a schedule was entered in the form"
^DD(53.1,61,21,2,0)="SCHEDULE@0.  Notice there are no spaces in the input.  When a schedule is"
^DD(53.1,61,21,3,0)="entered in this form, this field is set to 1.  This causes the order to be"
^DD(53.1,61,21,4,0)="printed on the Ward and Manufacturing lists with 0 doses due.  Scheduled"
^DD(53.1,61,21,5,0)="labels for the order will not be printed unless the Ward list is updated"
^DD(53.1,61,21,6,0)="before printing scheduled labels.  This is a ""print on demand"" function"
^DD(53.1,61,21,7,0)="similar to entering INFUSION RATE@0 for continuous orders."
^DD(53.1,61,"DT")="2910603"
^DD(53.1,62,0)="IV ROOM^RP59.5'^PS(59.5,^8;8^Q"
^DD(53.1,62,20,0)="^.3LA^1^1"
^DD(53.1,62,20,1,0)="PSJI"
^DD(53.1,62,21,0)="^^1^1^2910730^^"
^DD(53.1,62,21,1,0)="IV room where IV bag was prepared for administration."
^DD(53.1,62,"DT")="2910730"
^DD(53.1,63,0)="REMARKS^F^^9;1^K:$L(X)>100!($L(X)<1) X"
^DD(53.1,63,3)="Answer must be 1-100 characters in length."
^DD(53.1,63,20,0)="^.3LA^1^1"
^DD(53.1,63,20,1,0)="PSJI"
^DD(53.1,63,21,0)="^^1^1^2910603^"
^DD(53.1,63,21,1,0)=" This is not displayed on IV labels, but is printed on some IV reports."
^DD(53.1,63,"DT")="2910603"
^DD(53.1,64,0)="OTHER PRINT INFO^FX^^9;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(53.1,64,3)="Answer must be 1-60 characters in length."
^DD(53.1,64,20,0)="^.3LA^1^1"
^DD(53.1,64,20,1,0)="PSJI"
^DD(53.1,64,21,0)="^^2^2^2910603^"
^DD(53.1,64,21,1,0)="  For use by Pharmacy to print additional information on IV labels and"
^DD(53.1,64,21,2,0)="reports."
^DD(53.1,64,"DT")="2910905"
^DD(53.1,66,0)="PROVIDER COMMENTS^53.1012^^12;0"
^DD(53.1,66,21,0)="^^3^3^2920219^^"
^DD(53.1,66,21,1,0)=" This is used to store any additional information the provider needs to"
^DD(53.1,66,21,2,0)="pass along to pharmacy or ward personnel when an order is entered "
^DD(53.1,66,21,3,0)="through OE/RR."
^DD(53.1,66,23,0)="^^3^3^2920219^"
^DD(53.1,66,23,1,0)="  This contains additional information entered for an order through OE/RR."
^DD(53.1,66,23,2,0)="Provider comments are displayed when the order is displayed using pharmacy"
^DD(53.1,66,23,3,0)="or OE/RR options, but may only be entered/edited through OE/RR."
^DD(53.1,68,0)="PREVIOUS ORDER NUMBER^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.1,68,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(53.1,68,20,0)="^.3LA^1^1"
^DD(53.1,68,20,1,0)="PSJ"
^DD(53.1,68,21,0)="^^2^2^2911004^"
^DD(53.1,68,21,1,0)="  When an order is created from an active order, the old number (from"
^DD(53.1,68,21,2,0)="^PS(55)) is stored in this field."
^DD(53.1,68,23,0)="^^5^5^2911004^"
^DD(53.1,68,23,1,0)="  This is used to take an action on a previous order when the new order"
^DD(53.1,68,23,2,0)="has been completed. For example, if an active order is renewed through"
^DD(53.1,68,23,3,0)="OE/RR, the old order remains active until the new one is completed by"
^DD(53.1,68,23,4,0)="Pharmacy. When the new order is completed, the stop date of the old order"
^DD(53.1,68,23,5,0)="is changed to the start date of the new order."
^DD(53.1,68,"DT")="2911004"
^DD(53.1,101,0)="*PRIMARY DRUG^P50.3'^PS(50.3,^.1;1^Q"
^DD(53.1,101,1,0)="^.1"
^DD(53.1,101,1,1,0)="53.1^APD^MUMPS"
^DD(53.1,101,1,1,1)="D ENNDS^PSGAXR"
^DD(53.1,101,1,1,2)="D ENNDK^PSGAXR"
^DD(53.1,101,1,1,3)="Needed to set up several x-refs."
^DD(53.1,101,1,1,"%D",0)="^^5^5^2911101^"
^DD(53.1,101,1,1,"%D",1,0)="  The cross reference is used to quickly set (or kill) the following cross-"
^DD(53.1,101,1,1,"%D",2,0)="references:"
^DD(53.1,101,1,1,"%D",3,0)="  ^PS(53.1,""D"",Primary Drug,DA)="""""
^DD(53.1,101,1,1,"%D",4,0)="  ^PS(53.1,""AOD"",Patient,Primary Drug,DA)=""""  only if the status is not 'A'"
^DD(53.1,101,1,1,"%D",5,0)="and not 'D'."
^DD(53.1,101,1,1,"DT")="2911101"
^DD(53.1,101,21,0)="^^4^4^2920511^^^"
^DD(53.1,101,21,1,0)="  This is the primary drug associated with the order. If the order is"
^DD(53.1,101,21,2,0)="a unit dose order all dispensed drugs entered must be matched to the"
^DD(53.1,101,21,3,0)="order's primary drug. If the order is an IV order at least one of the"
^DD(53.1,101,21,4,0)="additives or solutions entered must match the primary drug."
^DD(53.1,101,"DT")="2960201"
^DD(53.1,102,0)="*DOSAGE ORDERED^RF^^.1;2^K:$L(X)>20!($L(X)<1) X"
^DD(53.1,102,3)="Enter the amount of the drug the patient is to receive as a dose for this order, using 1-20 characters.  This is an amount, such as '20MG', and NOT the number of tablets."
^DD(53.1,102,20,0)="^.3LA^1^1"
^DD(53.1,102,20,1,0)="PSJ"
^DD(53.1,102,21,0)="^^3^3^2920514^"
^DD(53.1,102,21,1,0)="  This is the amount of the medication the patient is to receive as one"
^DD(53.1,102,21,2,0)="dose for this order.  This should be an amount with a unit of measure,"
^DD(53.1,102,21,3,0)="such '500MG' or '50CC'.  THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC."
^DD(53.1,102,"DT")="2960201"
^DD(53.1,103,0)="REASON ORDER CREATED^S^N:NEW;R:RENEWAL;E:EDIT;^0;24^Q"
^DD(53.1,103,20,0)="^.3LA^1^1"
^DD(53.1,103,20,1,0)="PSJ"
^DD(53.1,103,21,0)="^^1^1^2920514^^"
^DD(53.1,103,21,1,0)="  This is used to show the method used to create this order."
^DD(53.1,103,23,0)="^^2^2^2911112^"
^DD(53.1,103,23,1,0)="  This shows if the order was entered through new order entry, or was"
^DD(53.1,103,23,2,0)="created as a result of an edit or renewal of an existing order."
^DD(53.1,103,"DT")="2911112"
^DD(53.1,104,0)="PREVIOUS ORDER^F^^0;25^K:$L(X)>10!($L(X)<1) X"
^DD(53.1,104,20,0)="^.3LA^1^1"
^DD(53.1,104,20,1,0)="PSJ"
^DD(53.1,104,21,0)="^^2^2^2920514^^^^"
^DD(53.1,104,21,1,0)="  If an action is taken on an order that causes a new order to be created,"
^DD(53.1,104,21,2,0)="this will contain a code identifying the previous order."
^DD(53.1,104,23,0)="13^^11^11^2920512^^^^"
^DD(53.1,104,23,1,0)=" If the order was created as a result of an edit or renew, this field"
^DD(53.1,104,23,2,0)="will contain the order number of the previous order concatenated with"
^DD(53.1,104,23,3,0)="a letter that denotes the status of the order and the file in which"
^DD(53.1,104,23,4,0)="it is located. The letter concatenated to the order number will be"
^DD(53.1,104,23,5,0)="one of the following:"
^DD(53.1,104,23,6,0)=" "
^DD(53.1,104,23,7,0)="        U - Unreleased, in 53.1"
^DD(53.1,104,23,8,0)="        P - Pending, in 53.1"
^DD(53.1,104,23,9,0)="        N - Non-verified, in 53.1"
^DD(53.1,104,23,10,0)="        A - Active UD order, in 55"
^DD(53.1,104,23,11,0)="        V - Active IV order, in 55"
^DD(53.1,104,"DT")="2911112"
^DD(53.1,105,0)="FOLLOWING ORDER^F^^0;26^K:$L(X)>10!($L(X)<1) X"
^DD(53.1,105,20,0)="^.3LA^1^1"
^DD(53.1,105,20,1,0)="PSJ"
^DD(53.1,105,21,0)="^^2^2^2920514^^^^"
^DD(53.1,105,21,1,0)="  If an action is taken on an order that causes a new order to be created,"
^DD(53.1,105,21,2,0)="this will contain a code identifying the order created."
^DD(53.1,105,23,0)="^^10^10^2920512^^^^"
^DD(53.1,105,23,1,0)="  If an order is created because of an edit or renew, this field will"
^DD(53.1,105,23,2,0)="contain the order number of the following order, concatenated with"
^DD(53.1,105,23,3,0)="a letter that denotes the status of the order and the file in which"
^DD(53.1,105,23,4,0)="it is located. The letter concatenated to the order number will be"
^DD(53.1,105,23,5,0)="one of the following:"
^DD(53.1,105,23,6,0)="        U - Unreleased, in 53.1"
^DD(53.1,105,23,7,0)="        P - Pending, in 53.1"
^DD(53.1,105,23,8,0)="        N - Non-Verified, in 53.1"
^DD(53.1,105,23,9,0)="        A - Active UD order, in 55"
^DD(53.1,105,23,10,0)="        V - Active IV order, in 55"
^DD(53.1,105,"DT")="2911112"
^DD(53.1,106,0)="*NATURE OF ORDER^RS^W:WRITTEN;P:TELEPHONED;V:VERBAL;E:PROVIDER ENTERED;^.1;3^Q"
^DD(53.1,106,3)="Enter the method the provider used to relate the order to the service."
^DD(53.1,106,20,0)="^.3LA^1^1"
^DD(53.1,106,20,1,0)="PSJ"
^DD(53.1,106,21,0)="^^2^2^2920103^"
^DD(53.1,106,21,1,0)="  This is the method the provider used to communicate to the user to enter"
^DD(53.1,106,21,2,0)="(or take any other action) the order."
^DD(53.1,106,23,0)="^^4^4^2920103^"
^DD(53.1,106,23,1,0)="  This is the method the provider used to communicate the order to the user"
^DD(53.1,106,23,2,0)="who entered the order.  This is needed by the Order Entry/Results Reporting"
^DD(53.1,106,23,3,0)="package, and is only prompted for if Inpatient Medications has been turned"
^DD(53.1,106,23,4,0)="on for OE/RR by the site."
^DD(53.1,106,"DT")="2960201"
^DD(53.1,107,0)="REASON FOR FOLLOWING ORDER^S^E:EDIT;R:RENEWAL;^0;27^Q"
^DD(53.1,107,20,0)="^.3LA^1^1"
^DD(53.1,107,20,1,0)="PSJ"
^DD(53.1,107,21,0)="^^2^2^2920514^^^^"
^DD(53.1,107,21,1,0)="  If the order has been edited or renewed, this will contain the code "
^DD(53.1,107,21,2,0)="corresponding to the action taken."
^DD(53.1,107,23,0)="^^2^2^2920512^^^"
^DD(53.1,107,23,1,0)="  This will contain a ""E"" if the order was created due to and edit, or"
^DD(53.1,107,23,2,0)="a ""R"" if the order was created due to a renew."
^DD(53.1,107,"DT")="2920126"
^DD(53.1,108,0)="ORDERABLE ITEM^P50.7'^PS(50.7,^.2;1^Q"
^DD(53.1,108,21,0)="^^4^4^2950222^"
^DD(53.1,108,21,1,0)="This identifies the Orderable Item associated with the order. If the order"
^DD(53.1,108,21,2,0)="contains multiple dispense drugs, or a single dispense drug requiring"
^DD(53.1,108,21,3,0)="multiple units/dose, the Orderable Item and Dosage Ordered fields will be "
^DD(53.1,108,21,4,0)="displayed."
^DD(53.1,108,"DT")="2950222"
^DD(53.1,109,0)="DOSAGE ORDERED^F^^.2;2^K:$L(X)>60!($L(X)<1) X"
^DD(53.1,109,3)="Answer must be 1-60 characters in length."
^DD(53.1,109,21,0)="^.001^3^3^3010413^^"
^DD(53.1,109,21,1,0)="This is the amount of the medication the patient is to receive as one dose "
^DD(53.1,109,21,2,0)="for this order. This should be an amount with a unit of measure, such"
^DD(53.1,109,21,3,0)="as '500mg' or '50CC'. THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC."
^DD(53.1,109,"DT")="3010413"
^DD(53.1,110,0)="NATURE OF ORDER^S^W:WRITTEN;P:TELEPHONED;V:VERBAL;E:ELECTRONICALLY ENTERED;I:POLICY;S:SERVICE CORRECTION;D:DUPLICATE;^.2;3^Q"
^DD(53.1,110,3)="Enter the method the provider used to communicate the order to the service."
^DD(53.1,110,21,0)="^.001^2^2^3000224^^^^"
^DD(53.1,110,21,1,0)="This is the method the provider used to communicate the order to the user "
^DD(53.1,110,21,2,0)="to enter (or take any other action on) the order."
^DD(53.1,110,23,0)="^.001^2^2^3000224^^^^"
^DD(53.1,110,23,1,0)="This is the method the provider used to communicate the order to the user "
^DD(53.1,110,23,2,0)="who entered or took action on the order."
^DD(53.1,110,"DT")="3000224"
^DD(53.1,111,0)="INSTRUCTIONS^F^^.3;1^K:$L(X)>200!($L(X)<1) X"
^DD(53.1,111,3)="Answer must be 1-200 characters in length."
^DD(53.1,111,"DT")="2950222"
^DD(53.1,112,0)="ORDER CHECKS^53.1112A^^10;0"
^DD(53.1,113,0)="CLINIC^P44'^SC(^DSS;1^Q"
^DD(53.1,113,3)="Enter the name of the clinic where the patient was seen."
^DD(53.1,113,21,0)="^^1^1^2980923^^^"
^DD(53.1,113,21,1,0)="Entry must be a clinic.  Depending on the condition, INACTIVATE and REACTIVATE dates may exist."
^DD(53.1,113,"DT")="3040501"
^DD(53.1,114,0)="LAST RENEW^53.1114D^^14;0"
^DD(53.1,114,21,0)="^.001^1^1^3000225^^^"
^DD(53.1,114,21,1,0)="This multiple contains the data that relates to the renewal of an order."
^DD(53.1,114,23,0)="^.001^4^4^3000225^^^"
^DD(53.1,114,23,1,0)="Renewing an order will no longer create a new order.  This multiple will"
^DD(53.1,114,23,2,0)="be used to track the last time the order was renewed, who renewed the"
^DD(53.1,114,23,3,0)="order, the provider of the order prior to this renewal, and the stop"
^DD(53.1,114,23,4,0)="date/time prior to this renewal."
^DD(53.1,114,"DT")="3000222"
^DD(53.1,115,0)="REQUESTED START DATE/TIME^D^^2.5;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,115,3)="Enter the requested Start Date/Time for this order."
^DD(53.1,115,21,0)="^.001^1^1^3000229^^"
^DD(53.1,115,21,1,0)="This is the Date/Time the provider is requesting that this order start."
^DD(53.1,115,23,0)="^^1^1^3000229^"
^DD(53.1,115,23,1,0)="This is the Date/Time the provider is requesting that this order start."
^DD(53.1,115,"DT")="3000229"
^DD(53.1,116,0)="DURATION^F^^2.5;2^K:$L(X)>40!($L(X)<1) X"
^DD(53.1,116,3)="Answer must be 1-40 characters in length."
^DD(53.1,116,21,0)="^.001^2^2^3000419^^^"
^DD(53.1,116,21,1,0)="This is the length of time in days the provider requests that this order"
^DD(53.1,116,21,2,0)="last."
^DD(53.1,116,23,0)="^.001^2^2^3000419^^"
^DD(53.1,116,23,1,0)="This is the length of time in days the provider requests that this order"
^DD(53.1,116,23,2,0)="last."
^DD(53.1,116,"DT")="3000419"
^DD(53.1,117,0)="REQUESTED STOP DATE/TIME^D^^2.5;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1,117,3)="Enter the Date/Time that the provider requests this order stop."
^DD(53.1,117,21,0)="^^1^1^3000424^"
^DD(53.1,117,21,1,0)="This is the Date/Time the provider is requesting that this order stop."
^DD(53.1,117,"DT")="3000424"
^DD(53.1,118,0)="UD/IV PROMPT^S^1:YES;^0;13^Q"
^DD(53.1,118,3)="Enter a 1 if the user should be prompted to finish this order as IV or Unit Dose."
^DD(53.1,118,21,0)="^^3^3^3000424^"
^DD(53.1,118,21,1,0)="This field will be used during the finishing process to determine if the"
^DD(53.1,118,21,2,0)="user should be prompted whether they wish to finish the order as an IV or"
^DD(53.1,118,21,3,0)="Unit Dose order."
^DD(53.1,118,"DT")="3000424"
^DD(53.1,119,0)="ACTIVITY LOG^53.1119DA^^A;0"
^DD(53.1,119,21,0)="^^5^5^3000814^"
^DD(53.1,119,21,1,0)="This is a record of the actions that have taken place on the order.Actions"
^DD(53.1,119,21,2,0)="include EDIT, RENEWAL, CANCELLATION, and FINISH. Stored with the action is"
^DD(53.1,119,21,3,0)="the date and time the action took place and the user who took the action."
^DD(53.1,119,21,4,0)="If the action is an edit, the data in the field edited prior to the edit"
^DD(53.1,119,21,5,0)="is also stored."
^DD(53.1,120,0)="DOSE^NJ15,4^^.2;5^K:+X'=X!(X>9999999999)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(53.1,120,3)="Type a Number between .0001 and 9999999999, 4 Decimal Digits"
^DD(53.1,120,21,0)="^^3^3^3000608^"
^DD(53.1,120,21,1,0)="This is the numeric dosage for the order. It will be combined with the"
^DD(53.1,120,21,2,0)="UNIT field to show the dosage ordered.  For a dosage of 325MG, 325 would"
^DD(53.1,120,21,3,0)="be stored here."
^DD(53.1,120,"DT")="3000608"
^DD(53.1,121,0)="UNIT^F^^.2;6^K:$L(X)>75!($L(X)<1) X"
^DD(53.1,121,3)="Answer must be 1-75 characters in length."
^DD(53.1,121,21,0)="^^3^3^3000727^"
^DD(53.1,121,21,1,0)="This is the field which contains the unit for the numeric dosage.  The"
^DD(53.1,121,21,2,0)="combination of these two fields gives you the dosage ordered for this"
^DD(53.1,121,21,3,0)="order.  For a dosage of 325MG, MG would be stored here."
^DD(53.1,121,"DT")="3000727"
^DD(53.1,122,0)="SI FLAG^S^1:YES;^6;2^Q"
^DD(53.1,122,3)=" Enter 1 for yes."
^DD(53.1,122,21,0)="^.001^2^2^3020411^^^^"
^DD(53.1,122,21,1,0)="This flag controls whether the user administering this order in BCMA will"
^DD(53.1,122,21,2,0)="have the Special Instructions displayed in a pop-up box."
^DD(53.1,122,"DT")="3020411"
^DD(53.1,123,0)="OPI FLAG^S^1:YES;^9;3^Q"
^DD(53.1,123,3)="Enter a 1 for yes."
^DD(53.1,123,21,0)="^.001^2^2^3020411^^^^"
^DD(53.1,123,21,1,0)="This flag controls whether the user administering this order in BCMA"
^DD(53.1,123,21,2,0)="will have the Other Print Info displayed in a pop-up box."
^DD(53.1,123,"DT")="3020411"
^DD(53.1,124,0)="FLAGGED^S^0:NO;1:YES;^.2;7^Q"
^DD(53.1,124,3)="Enter YES if this order is being flagged for clarification"
^DD(53.1,124,21,0)="^^1^1^3020716^"
^DD(53.1,124,21,1,0)="This indicates that this order has been flagged for clarification."
^DD(53.1,124,"DT")="3020702"
^DD(53.1,125,0)="ORDERS FILE PARENT ORDER^P100'^OR(100,^.2;8^Q"
^DD(53.1,125,1,0)="^.1^^-1"
^DD(53.1,125,1,1,0)="53.1^ACX"
^DD(53.1,125,1,1,1)="S ^PS(53.1,""ACX"",$E(X,1,30),DA)="""""
^DD(53.1,125,1,1,2)="K ^PS(53.1,""ACX"",$E(X,1,30),DA)"
^DD(53.1,125,1,1,"%D",0)="^^5^5^3041213^"
^DD(53.1,125,1,1,"%D",1,0)="This cross reference is created each time a component of a complex order, "
^DD(53.1,125,1,1,"%D",2,0)="or child order, is received from CPRS."
^DD(53.1,125,1,1,"%D",3,0)="This cross reference will not be created for orders with a schedule of"
^DD(53.1,125,1,1,"%D",4,0)="NOW, effectively disassociating the NOW order from the other child orders"
^DD(53.1,125,1,1,"%D",5,0)="in the complex order."
^DD(53.1,125,1,1,"DT")="3030716"
^DD(53.1,125,3)="Enter the parent order, if this order is its child order."
^DD(53.1,125,21,0)="^^2^2^3041213^"
^DD(53.1,125,21,1,0)="This is the parent of a CPRS order that may have a parent/child"
^DD(53.1,125,21,2,0)="relationship in CPRS"
^DD(53.1,125,"AUDIT")=""
^DD(53.1,125,"DT")="3041213"
^DD(53.1,126,0)="APPOINTMENT DATE/TIME^D^^DSS;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(53.1,126,3)="Date and time of the appointment for this clinic location. "
^DD(53.1,126,21,0)="^^2^2^3030729^"
^DD(53.1,126,21,1,0)="This is the date and time of the appointment this order is being placed"
^DD(53.1,126,21,2,0)="for.  "
^DD(53.1,126,"DT")="3030729"
^DD(53.1,127,0)="REQUESTED IV LIMITATION^F^^2.5;4^K:$L(X)>6!($L(X)<1)!'(X?1.2A1.5N) X"
^DD(53.1,127,3)="Answer must be 1-6 characters in length."
^DD(53.1,127,21,0)="^^3^3^3041115^"
^DD(53.1,127,21,1,0)="This is the length of time to administer, or the total volume to "
^DD(53.1,127,21,2,0)="administer, for IV fluid orders. The value may be in ML or CC for"
^DD(53.1,127,21,3,0)="milliliters, L for liters, D for days, or H for hours."
^DD(53.1,127,"DT")="3041115"
^DD(53.1,129,0)="MOST RECENT FLAG COMMENT^F^^13;1^K:$L(X)>80!($L(X)<1) X"
^DD(53.1,129,3)="Answer must be 1-80 characters in length"
^DD(53.1,129,"DT")="3070730"
^DD(53.1,"B","*DOSAGE ORDERED",102)=""
^DD(53.1,"B","*NATURE OF ORDER",106)=""
^DD(53.1,"B","*PRE-EXCHANGE UNITS",14)=""
^DD(53.1,"B","*PRIMARY DRUG",101)=""
^DD(53.1,"B","*UNITS PER DOSE",13)=""
^DD(53.1,"B","ACTIVITY LOG",119)=""
^DD(53.1,"B","ADDITIVE",57)=""
^DD(53.1,"B","ADMIN TIMES",39)=""
^DD(53.1,"B","APPOINTMENT DATE/TIME",126)=""
^DD(53.1,"B","ATZERO",61)=""
^DD(53.1,"B","CHEMOTHERAPY TYPE",54)=""
^DD(53.1,"B","CLERK",22)=""
^DD(53.1,"B","CLINIC",113)=""
^DD(53.1,"B","COMMENTS",40)=""
^DD(53.1,"B","DATE ENTERED BY CLERK",23)=""
^DD(53.1,"B","DATE MARKED CANCELLED",38)=""
^DD(53.1,"B","DATE RENEWAL MARKED",29)=""
^DD(53.1,"B","DATE VERIFIED BY NURSE",17)=""
^DD(53.1,"B","DATE VERIFIED BY PHARMACIST",19)=""
^DD(53.1,"B","DATE VERIFIED BY PHYSICIAN",21)=""
^DD(53.1,"B","DAY LIMIT",11)=""
^DD(53.1,"B","DISPENSE DRUG",2)=""
^DD(53.1,"B","DOSAGE ORDERED",109)=""
^DD(53.1,"B","DOSE",120)=""
^DD(53.1,"B","DOSE LIMIT",12)=""
^DD(53.1,"B","DOSES ACTUALLY DISPENSED",34)=""
^DD(53.1,"B","DOSES CALLED FOR",33)=""
^DD(53.1,"B","DURATION",116)=""
^DD(53.1,"B","FLAGGED",124)=""
^DD(53.1,"B","FOLLOWING ORDER",105)=""
^DD(53.1,"B","FREQUENCY (in minutes)",41)=""
^DD(53.1,"B","HOSPITAL SUPPLIED SELF MED",6)=""
^DD(53.1,"B","INACTIVE DATE/TIME",32)=""
^DD(53.1,"B","INFUSION RATE",59)=""
^DD(53.1,"B","INSTRUCTIONS",111)=""
^DD(53.1,"B","INTERMITTENT SYRINGE",56)=""
^DD(53.1,"B","IV ROOM",62)=""
^DD(53.1,"B","IV TYPE",53)=""
^DD(53.1,"B","LABEL CREATOR",51)=""
^DD(53.1,"B","LABEL DATE",44)=""
^DD(53.1,"B","LABEL REASON",45)=""
^DD(53.1,"B","LAST RENEW",114)=""
^DD(53.1,"B","LAST WARD",50)=""
^DD(53.1,"B","LOG-IN DATE",27.1)=""
^DD(53.1,"B","MARKED CANCELLED",30)=""
^DD(53.1,"B","MARKED CANCELLED USER",31)=""
^DD(53.1,"B","MED ROUTE",3)=""
^DD(53.1,"B","MOST RECENT FLAG COMMENT",129)=""
^DD(53.1,"B","NATURE OF ORDER",110)=""
^DD(53.1,"B","NEW ORDER NO.",46)=""
^DD(53.1,"B","NUMBER",.25)=""
^DD(53.1,"B","OPI FLAG",123)=""
^DD(53.1,"B","ORDER CHECKS",112)=""
^DD(53.1,"B","ORDER DATE",27)=""
^DD(53.1,"B","ORDER NUMBER",.01)=""
^DD(53.1,"B","ORDERABLE ITEM",108)=""
^DD(53.1,"B","ORDERS FILE ENTRY",49)=""
^DD(53.1,"B","ORDERS FILE PARENT ORDER",125)=""
^DD(53.1,"B","OTHER PRINT INFO",64)=""
^DD(53.1,"B","PATIENT NAME",.5)=""
^DD(53.1,"B","PHYSICIAN",20)=""
^DD(53.1,"B","PREVIOUS ORDER",104)=""
^DD(53.1,"B","PREVIOUS ORDER NUMBER",68)=""
^DD(53.1,"B","PRIORITY",.24)=""
^DD(53.1,"B","PROVIDER",1)=""
^DD(53.1,"B","PROVIDER COMMENTS",66)=""
^DD(53.1,"B","PURGE FLAG",48)=""
^DD(53.1,"B","PV FLAG",43)=""
^DD(53.1,"B","REASON FOR FOLLOWING ORDER",107)=""
^DD(53.1,"B","REASON ORDER CREATED",103)=""
^DD(53.1,"B","REMARKS",63)=""
^DD(53.1,"B","RENEWAL",9)=""
^DD(53.1,"B","RENEWAL USER",15)=""
^DD(53.1,"B","REQUESTED IV LIMITATION",127)=""
^DD(53.1,"B","REQUESTED START DATE/TIME",115)=""
^DD(53.1,"B","REQUESTED STOP DATE/TIME",117)=""
^DD(53.1,"B","RETURNS",35)=""
^DD(53.1,"B","SCHEDULE",26)=""
^DD(53.1,"B","SCHEDULE INTERVAL",60)=""
^DD(53.1,"B","SCHEDULE TYPE",7)=""
^DD(53.1,"B","SELF MED",5)=""
^DD(53.1,"B","SI FLAG",122)=""
^DD(53.1,"B","SIG",47)=""
^DD(53.1,"B","SIG ",47)="1"
^DD(53.1,"B","SOLUTION",24)=""
^DD(53.1,"B","SOLUTION",58)=""
^DD(53.1,"B","SPECIAL INSTRUCTIONS",8)=""
^DD(53.1,"B","START DATE/TIME",10)=""
^DD(53.1,"B","STATUS",28)=""
^DD(53.1,"B","STOP DATE/TIME",25)=""
^DD(53.1,"B","SYRINGE SIZE",55)=""
^DD(53.1,"B","TOTAL RETURNS",36)=""
^DD(53.1,"B","TOTAL UNITS DISPENSED",37)=""
^DD(53.1,"B","TRANSFER",42)=""
^DD(53.1,"B","TYPE",4)=""
^DD(53.1,"B","UD/IV PROMPT",118)=""
^DD(53.1,"B","UNIT",121)=""
^DD(53.1,"B","VERIFYING NURSE",16)=""
^DD(53.1,"B","VERIFYING PHARMACIST",18)=""
^DD(53.1,"B","WARD FOR AUTO-CANCEL LABEL",52)=""
^DD(53.1,"GL",0,1,.01)=""
^DD(53.1,"GL",0,2,1)=""
^DD(53.1,"GL",0,3,3)=""
^DD(53.1,"GL",0,4,4)=""
^DD(53.1,"GL",0,5,5)=""
^DD(53.1,"GL",0,6,6)=""
^DD(53.1,"GL",0,7,7)=""
^DD(53.1,"GL",0,8,68)=""
^DD(53.1,"GL",0,9,28)=""
^DD(53.1,"GL",0,10,11)=""
^DD(53.1,"GL",0,11,12)=""
^DD(53.1,"GL",0,12,13)=""
^DD(53.1,"GL",0,13,118)=""
^DD(53.1,"GL",0,14,27)=""
^DD(53.1,"GL",0,15,.5)=""
^DD(53.1,"GL",0,16,27.1)=""
^DD(53.1,"GL",0,17,24)=""
^DD(53.1,"GL",0,18,.25)=""
^DD(53.1,"GL",0,19,46)=""
^DD(53.1,"GL",0,20,48)=""
^DD(53.1,"GL",0,21,49)=""
^DD(53.1,"GL",0,23,50)=""
^DD(53.1,"GL",0,24,103)=""
^DD(53.1,"GL",0,25,104)=""
^DD(53.1,"GL",0,26,105)=""
^DD(53.1,"GL",0,27,107)=""
^DD(53.1,"GL",.1,1,101)=""
^DD(53.1,"GL",.1,2,102)=""
^DD(53.1,"GL",.1,3,106)=""
^DD(53.1,"GL",.2,1,108)=""
^DD(53.1,"GL",.2,2,109)=""
^DD(53.1,"GL",.2,3,110)=""
^DD(53.1,"GL",.2,4,.24)=""
^DD(53.1,"GL",.2,5,120)=""
^DD(53.1,"GL",.2,6,121)=""
^DD(53.1,"GL",.2,7,124)=""
^DD(53.1,"GL",.2,8,125)=""
^DD(53.1,"GL",.3,1,111)=""
^DD(53.1,"GL",1,0,2)=""
^DD(53.1,"GL",2,1,26)=""
^DD(53.1,"GL",2,2,10)=""
^DD(53.1,"GL",2,3,32)=""
^DD(53.1,"GL",2,4,25)=""
^DD(53.1,"GL",2,5,39)=""
^DD(53.1,"GL",2,6,41)=""
^DD(53.1,"GL",2.5,1,115)=""
^DD(53.1,"GL",2.5,2,116)=""
^DD(53.1,"GL",2.5,3,117)=""
^DD(53.1,"GL",2.5,4,127)=""
^DD(53.1,"GL",3,0,40)=""
^DD(53.1,"GL",4,1,16)=""
^DD(53.1,"GL",4,2,17)=""
^DD(53.1,"GL",4,3,18)=""
^DD(53.1,"GL",4,4,19)=""
^DD(53.1,"GL",4,5,20)=""
^DD(53.1,"GL",4,6,21)=""
^DD(53.1,"GL",4,7,22)=""
^DD(53.1,"GL",4,8,23)=""
^DD(53.1,"GL",4,9,9)=""
^DD(53.1,"GL",4,10,15)=""
^DD(53.1,"GL",4,11,29)=""
^DD(53.1,"GL",4,12,30)=""
^DD(53.1,"GL",4,13,31)=""
^DD(53.1,"GL",4,14,38)=""
^DD(53.1,"GL",4,15,42)=""
^DD(53.1,"GL",4,16,43)=""
^DD(53.1,"GL",5,2,33)=""
^DD(53.1,"GL",5,3,34)=""
^DD(53.1,"GL",5,4,36)=""
^DD(53.1,"GL",5,5,35)=""
^DD(53.1,"GL",5,6,14)=""
^DD(53.1,"GL",6,1,8)=""
^DD(53.1,"GL",6,2,122)=""
^DD(53.1,"GL",6.5,1,47)=""
^DD(53.1,"GL",7,1,44)=""
^DD(53.1,"GL",7,2,45)=""
^DD(53.1,"GL",7,3,51)=""
^DD(53.1,"GL",7,4,52)=""
^DD(53.1,"GL",8,1,53)=""
^DD(53.1,"GL",8,2,54)=""
^DD(53.1,"GL",8,3,55)=""
^DD(53.1,"GL",8,4,56)=""
^DD(53.1,"GL",8,5,59)=""
^DD(53.1,"GL",8,6,60)=""
^DD(53.1,"GL",8,7,61)=""
^DD(53.1,"GL",8,8,62)=""
^DD(53.1,"GL",9,1,63)=""
^DD(53.1,"GL",9,2,64)=""
^DD(53.1,"GL",9,3,123)=""
^DD(53.1,"GL",10,0,112)=""
^DD(53.1,"GL",12,0,66)=""
^DD(53.1,"GL",13,1,129)=""
^DD(53.1,"GL",14,0,114)=""
^DD(53.1,"GL","A",0,119)=""
^DD(53.1,"GL","AD",0,57)=""
^DD(53.1,"GL","DSS",1,113)=""
^DD(53.1,"GL","DSS",2,126)=""
^DD(53.1,"GL","SOL",0,58)=""
^DD(53.1,"GR","PSJ",68,1)=""
^DD(53.1,"GR","PSJ",102,1)=""
^DD(53.1,"GR","PSJ",103,1)=""
^DD(53.1,"GR","PSJ",104,1)=""
^DD(53.1,"GR","PSJ",105,1)=""
^DD(53.1,"GR","PSJ",106,1)=""
^DD(53.1,"GR","PSJ",107,1)=""
^DD(53.1,"GR","PSJI",55,1)=""
^DD(53.1,"GR","PSJI",56,1)=""
^DD(53.1,"GR","PSJI",57,1)=""
^DD(53.1,"GR","PSJI",58,1)=""
^DD(53.1,"GR","PSJI",59,1)=""
^DD(53.1,"GR","PSJI",60,1)=""
^DD(53.1,"GR","PSJI",61,1)=""
^DD(53.1,"GR","PSJI",62,1)=""
^DD(53.1,"GR","PSJI",63,1)=""
^DD(53.1,"GR","PSJI",64,1)=""
^DD(53.1,"GR","PSJU",.01,1)=""
^DD(53.1,"GR","PSJU",.25,1)=""
^DD(53.1,"GR","PSJU",.5,1)=""
^DD(53.1,"GR","PSJU",1,1)=""
^DD(53.1,"GR","PSJU",2,1)=""
^DD(53.1,"GR","PSJU",3,1)=""
^DD(53.1,"GR","PSJU",4,1)=""
^DD(53.1,"GR","PSJU",5,1)=""
^DD(53.1,"GR","PSJU",6,1)=""
^DD(53.1,"GR","PSJU",7,1)=""
^DD(53.1,"GR","PSJU",8,1)=""
^DD(53.1,"GR","PSJU",9,1)=""
^DD(53.1,"GR","PSJU",10,1)=""
^DD(53.1,"GR","PSJU",11,1)=""
^DD(53.1,"GR","PSJU",12,1)=""
^DD(53.1,"GR","PSJU",13,1)=""
^DD(53.1,"GR","PSJU",14,1)=""
^DD(53.1,"GR","PSJU",15,1)=""
^DD(53.1,"GR","PSJU",16,1)=""
^DD(53.1,"GR","PSJU",17,1)=""
^DD(53.1,"GR","PSJU",18,1)=""
^DD(53.1,"GR","PSJU",19,1)=""
^DD(53.1,"GR","PSJU",20,1)=""
^DD(53.1,"GR","PSJU",21,1)=""
^DD(53.1,"GR","PSJU",22,1)=""
^DD(53.1,"GR","PSJU",23,1)=""
^DD(53.1,"GR","PSJU",24,1)=""
^DD(53.1,"GR","PSJU",25,1)=""
^DD(53.1,"GR","PSJU",26,1)=""
^DD(53.1,"GR","PSJU",27,1)=""
^DD(53.1,"GR","PSJU",27.1,1)=""
^DD(53.1,"GR","PSJU",28,1)=""
^DD(53.1,"GR","PSJU",29,1)=""
^DD(53.1,"GR","PSJU",30,1)=""
^DD(53.1,"GR","PSJU",31,1)=""
^DD(53.1,"GR","PSJU",32,1)=""
^DD(53.1,"GR","PSJU",33,1)=""
^DD(53.1,"GR","PSJU",34,1)=""
^DD(53.1,"GR","PSJU",35,1)=""
^DD(53.1,"GR","PSJU",36,1)=""
^DD(53.1,"GR","PSJU",37,1)=""
^DD(53.1,"GR","PSJU",38,1)=""
^DD(53.1,"GR","PSJU",39,1)=""
^DD(53.1,"GR","PSJU",40,1)=""
^DD(53.1,"GR","PSJU",41,1)=""
^DD(53.1,"GR","PSJU",42,1)=""
^DD(53.1,"GR","PSJU",43,1)=""
^DD(53.1,"GR","PSJU",44,1)=""
^DD(53.1,"GR","PSJU",45,1)=""
^DD(53.1,"GR","PSJU",46,1)=""
^DD(53.1,"GR","PSJU",47,1)=""
^DD(53.1,"GR","PSJU",48,1)=""
^DD(53.1,"GR","PSJU",49,1)=""
^DD(53.1,"GR","PSJU",50,1)=""
^DD(53.1,"GR","PSJU",51,1)=""
^DD(53.1,"GR","PSJU",52,1)=""
^DD(53.1,"IX",.01)=""
^DD(53.1,"IX",.5)=""
^DD(53.1,"IX",1)=""
^DD(53.1,"IX",5)=""
^DD(53.1,"IX",7)=""
^DD(53.1,"IX",16)=""
^DD(53.1,"IX",26)=""
^DD(53.1,"IX",28)=""
^DD(53.1,"IX",39)=""
^DD(53.1,"IX",101)=""
^DD(53.1,"IX",125)=""
^DD(53.1,"RQ",.01)=""
^DD(53.1,"RQ",.5)=""
^DD(53.1,"RQ",1)=""
^DD(53.1,"RQ",3)=""
^DD(53.1,"RQ",4)=""
^DD(53.1,"RQ",7)=""
^DD(53.1,"RQ",10)=""
^DD(53.1,"RQ",24)=""
^DD(53.1,"RQ",25)=""
^DD(53.1,"RQ",26)=""
^DD(53.1,"RQ",27)=""
^DD(53.1,"RQ",27.1)=""
^DD(53.1,"RQ",28)=""
^DD(53.1,"RQ",54)=""
^DD(53.1,"RQ",56)=""
^DD(53.1,"RQ",62)=""
^DD(53.1,"RQ",102)=""
^DD(53.1,"RQ",106)=""
^DD(53.1,"SB",53.1012,66)=""
^DD(53.1,"SB",53.11,2)=""
^DD(53.1,"SB",53.1112,112)=""
^DD(53.1,"SB",53.1114,114)=""
^DD(53.1,"SB",53.1119,119)=""
^DD(53.1,"SB",53.12,40)=""
^DD(53.1,"SB",53.157,57)=""
^DD(53.1,"SB",53.158,58)=""
^DD(53.1012,0)="PROVIDER COMMENTS SUB-FIELD^^.01^1"
^DD(53.1012,0,"DT")="2910715"
^DD(53.1012,0,"NM","PROVIDER COMMENTS")=""
^DD(53.1012,0,"UP")="53.1"
^DD(53.1012,.01,0)="PROVIDER COMMENTS^W^^0;1^Q"
^DD(53.1012,.01,21,0)="^^3^3^2920219^^"
^DD(53.1012,.01,21,1,0)="  This is used to store an additional information the provider needs to"
^DD(53.1012,.01,21,2,0)="pass along to pharmacy or ward personnel when an order is entered/edited"
^DD(53.1012,.01,21,3,0)="through OE/RR."
^DD(53.1012,.01,23,0)="^^3^3^2920219^"
^DD(53.1012,.01,23,1,0)="  This contains additional information entered for an order through OE/RR."
^DD(53.1012,.01,23,2,0)="Provider comments are displayed when the order is displayed using pharmacy"
^DD(53.1012,.01,23,3,0)="or OE/RR options, but may only be entered/edited through OE/RR."
^DD(53.1012,.01,"DT")="2910715"
^DD(53.1012,"B","PROVIDER COMMENTS",.01)=""
^DD(53.1012,"GL",0,1,.01)=""
^DD(53.11,0)="DISPENSE DRUG SUB-FIELD^NL^.03^3"
^DD(53.11,0,"DIK")="PSGXR3"
^DD(53.11,0,"DT")="2920426"
^DD(53.11,0,"IX","B",53.11,.01)=""
^DD(53.11,0,"IX","B",53.2102,.01)=""
^DD(53.11,0,"NM","DISPENSE DRUG")=""
^DD(53.11,0,"UP")="53.1"
^DD(53.11,.01,0)="DISPENSE DRUG^MR*P50'^PSDRUG(^0;1^S DIC(""S"")=""I $P($G(^PSDRUG(+Y,2)),""""^"""",6)=+$G(^PS(53.1,DA(1),.1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.11,.01,1,0)="^.1"
^DD(53.11,.01,1,1,0)="53.11^B"
^DD(53.11,.01,1,1,1)="S ^PS(53.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.11,.01,1,1,2)="K ^PS(53.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.11,.01,1,1,"DT")="2911101"
^DD(53.11,.01,3)="Enter a dispense drug for this order."
^DD(53.11,.01,4)="S X(1)=+$G(^PS(53.1,$S($D(DA(1)):DA(1),1:DA),.1)) I $P($G(^PS(50.3,X(1),0)),""^"")]"""" D EN^DDIOL(""     ""_$P(^(0),""^"")_"" is the drug for this order."")"
^DD(53.11,.01,12)="Only dispense drugs tied to this order's drug are selectable."
^DD(53.11,.01,12.1)="S DIC(""S"")=""I $P($G(^PSDRUG(+Y,2)),""""^"""",6)=+$G(^PS(53.1,DA(1),.1))"""
^DD(53.11,.01,20,0)="^.3LA^1^1"
^DD(53.11,.01,20,1,0)="PSJU"
^DD(53.11,.01,21,0)="^^2^2^2911114^^^^"
^DD(53.11,.01,21,1,0)="  This is the medication that will actually be dispensed for this order."
^DD(53.11,.01,21,2,0)="An order may have more than one dispense drug."
^DD(53.11,.01,23,0)="^^2^2^2911114^"
^DD(53.11,.01,23,1,0)="  This is an entry from the Drug file (50) that will actually be dispensed"
^DD(53.11,.01,23,2,0)="as part of the order.  An order can have multiple dispense drugs."
^DD(53.11,.01,"DT")="2911114"
^DD(53.11,.01,"LAYGO",1,0)="S X(1)=$D(^PS(53.1,DA,1,""B"",+X)) D:X(1) EN^DDIOL(""This dispense drug has already been entered for this order"") I 'X(1)"
^DD(53.11,.02,0)="UNITS PER DOSE^NJ5,2OX^^0;2^S:X?1.2N1""/""1.2N X=+$J(+X/$P(X,""/"",2),0,2) K:X'?.N.1""."".N!(X>30)!(X<0)!(X?.E1"".""5.N) X"
^DD(53.11,.02,1,0)="^.1^^0"
^DD(53.11,.02,2)="S Y(0)=Y S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.11,.02,2.1)="S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.11,.02,3)="Enter a number between 0 and 30, no more than 4 decimals (will accept fractions)."
^DD(53.11,.02,4)="D UNPD^PSJDDUT"
^DD(53.11,.02,20,0)="^.3LA^1^1"
^DD(53.11,.02,20,1,0)="PSJU"
^DD(53.11,.02,21,0)="^.001^10^10^3030220^^^^"
^DD(53.11,.02,21,1,0)="  This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a"
^DD(53.11,.02,21,2,0)="DOSE for this order.  The literals '1/2' and '1/4' may be entered.  If there"
^DD(53.11,.02,21,3,0)="is no entry, it is assumed to be ONE (1)."
^DD(53.11,.02,21,4,0)="                         ** PLEASE NOTE **"
^DD(53.11,.02,21,5,0)="  If a doctor prescribes 30 ml's of a medication that is usually dispensed"
^DD(53.11,.02,21,6,0)="and administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or"
^DD(53.11,.02,21,7,0)=".5), NOT 30 ml's.  (30 ml's would be entered into the DOSAGE ORDERED field.)"
^DD(53.11,.02,21,8,0)="  If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is"
^DD(53.11,.02,21,9,0)="suggested that the maximum amount be entered into this field and the amount"
^DD(53.11,.02,21,10,0)="ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS fields."
^DD(53.11,.02,"DT")="3030220"
^DD(53.11,.03,0)="INACTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.11,.03,3)="Enter the date that this drug will no longer be dispense for this order."
^DD(53.11,.03,20,0)="^.3LA^1^1"
^DD(53.11,.03,20,1,0)="PSJU"
^DD(53.11,.03,21,0)="^^2^2^2920426^"
^DD(53.11,.03,21,1,0)="  This is the date that this dispense drug will no longer be dispensed for"
^DD(53.11,.03,21,2,0)="this order.  Once an order becomes active, dispense drugs cannot be deleted."
^DD(53.11,.03,23,0)="^^2^2^2920426^"
^DD(53.11,.03,23,1,0)="  This is used by pharmacy when the dispense drug is no longer to be"
^DD(53.11,.03,23,2,0)="dispensed for the order."
^DD(53.11,.03,"DT")="2920426"
^DD(53.11,"B","DISPENSE DRUG",.01)=""
^DD(53.11,"B","INACTIVE DATE",.03)=""
^DD(53.11,"B","UNITS PER DOSE",.02)=""
^DD(53.11,"GL",0,1,.01)=""
^DD(53.11,"GL",0,2,.02)=""
^DD(53.11,"GL",0,3,.03)=""
^DD(53.11,"GR","PSJU",.01,1)=""
^DD(53.11,"GR","PSJU",.02,1)=""
^DD(53.11,"GR","PSJU",.03,1)=""
^DD(53.11,"IX",.01)=""
^DD(53.11,"RQ",.01)=""
^DD(53.1112,0)="ORDER CHECKS SUB-FIELD^^2^3"
^DD(53.1112,0,"DIK")="PSGXR3"
^DD(53.1112,0,"DT")="2960523"
^DD(53.1112,0,"IX","B",53.1112,.01)=""
^DD(53.1112,0,"NM","ORDER CHECKS")=""
^DD(53.1112,0,"UP")="53.1"
^DD(53.1112,.01,0)="ORDER CHECK NARRATIVE^F^^0;1^K:$L(X)>245!($L(X)<1) X"
^DD(53.1112,.01,.1)="Order Check Narrative"
^DD(53.1112,.01,1,0)="^.1"
^DD(53.1112,.01,1,1,0)="53.1112^B"
^DD(53.1112,.01,1,1,1)="S ^PS(53.1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(53.1112,.01,1,1,2)="K ^PS(53.1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(53.1112,.01,3)="Answer must be 1-245 characters in length."
^DD(53.1112,.01,21,0)="^^2^2^2960404^^"
^DD(53.1112,.01,21,1,0)="This field will contain the narrative portion of the OBX segment"
^DD(53.1112,.01,21,2,0)="sent from OE/RR when an order check occurs."
^DD(53.1112,.01,"DT")="2960404"
^DD(53.1112,1,0)="OVERRIDING PROVIDER^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(53.1112,1,3)="Answer must be 1-245 characters in length."
^DD(53.1112,1,21,0)="^^2^2^2960404^"
^DD(53.1112,1,21,1,0)="This field will contain the name of the provider who over-rode the"
^DD(53.1112,1,21,2,0)="order check.  It comes as a part of the OBX segment from OE/RR."
^DD(53.1112,1,"DT")="2960404"
^DD(53.1112,2,0)="OVERRIDING REASON^53.11122^^2;0"
^DD(53.1112,"B","ORDER CHECK NARRATIVE",.01)=""
^DD(53.1112,"B","OVERRIDING PROVIDER",1)=""
^DD(53.1112,"B","OVERRIDING REASON",2)=""
^DD(53.1112,"B","Order Check Narrative",.01)="1"
^DD(53.1112,"GL",0,1,.01)=""
^DD(53.1112,"GL",1,1,1)=""
^DD(53.1112,"GL",2,0,2)=""
^DD(53.1112,"IX",.01)=""
^DD(53.1112,"SB",53.11122,2)=""
^DD(53.11122,0)="OVERRIDING REASON SUB-FIELD^^.01^1"
^DD(53.11122,0,"DT")="2960523"
^DD(53.11122,0,"NM","OVERRIDING REASON")=""
^DD(53.11122,0,"UP")="53.1112"
^DD(53.11122,.01,0)="OVERRIDING REASON^W^^0;1^Q"
^DD(53.11122,.01,"DT")="2960523"
^DD(53.11122,"B","OVERRIDING REASON",.01)=""
^DD(53.11122,"GL",0,1,.01)=""
^DD(53.1114,0)="LAST RENEW SUB-FIELD^^3^4"
^DD(53.1114,0,"DIK")="PSGXR3"
^DD(53.1114,0,"DT")="3000222"
^DD(53.1114,0,"IX","B",53.1114,.01)=""
^DD(53.1114,0,"NM","LAST RENEW")=""
^DD(53.1114,0,"UP")="53.1"
^DD(53.1114,.01,0)="LAST RENEW^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1114,.01,.1)=""
^DD(53.1114,.01,1,0)="^.1"
^DD(53.1114,.01,1,1,0)="53.1114^B"
^DD(53.1114,.01,1,1,1)="S ^PS(53.1,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(53.1114,.01,1,1,2)="K ^PS(53.1,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(53.1114,.01,3)="Enter the Date/Time this order was last renewed."
^DD(53.1114,.01,21,0)="^.001^1^1^3000225^^"
^DD(53.1114,.01,21,1,0)="This is the date/time the order was renewed."
^DD(53.1114,.01,23,0)="^^1^1^3000225^"
^DD(53.1114,.01,23,1,0)="This is the date/time the order was renewed."
^DD(53.1114,.01,"DT")="3000224"
^DD(53.1114,1,0)="RENEWED BY^P200'^VA(200,^0;2^Q"
^DD(53.1114,1,.1)=""
^DD(53.1114,1,3)="Enter the name of the person renewing this order."
^DD(53.1114,1,21,0)="^^1^1^3000225^"
^DD(53.1114,1,21,1,0)="This is the person who renewed the order."
^DD(53.1114,1,23,0)="^.001^1^1^3000225^^"
^DD(53.1114,1,23,1,0)="This is the person who renewed the order."
^DD(53.1114,1,"DT")="3000224"
^DD(53.1114,2,0)="PREVIOUS PROVIDER^P200'^VA(200,^0;3^Q"
^DD(53.1114,2,.1)=""
^DD(53.1114,2,3)="Enter the name of the provider for the order you renewed."
^DD(53.1114,2,21,0)="^^1^1^3000225^"
^DD(53.1114,2,21,1,0)="This is the name of the provider responsible for the prior order."
^DD(53.1114,2,23,0)="^^1^1^3000225^"
^DD(53.1114,2,23,1,0)="This is the name of the provider responsible for the prior order."
^DD(53.1114,2,"DT")="3000224"
^DD(53.1114,3,0)="PREVIOUS STOP DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1114,3,.1)=""
^DD(53.1114,3,3)="Enter the Stop Date/Time of the previous order."
^DD(53.1114,3,21,0)="^^1^1^3000225^"
^DD(53.1114,3,21,1,0)="This is the stop date/time of the prior order."
^DD(53.1114,3,23,0)="^^1^1^3000225^"
^DD(53.1114,3,23,1,0)="This is the stop date/time of the prior order."
^DD(53.1114,3,"DT")="3000224"
^DD(53.1114,"B","LAST RENEW",.01)=""
^DD(53.1114,"B","PREVIOUS PROVIDER",2)=""
^DD(53.1114,"B","PREVIOUS STOP DATE/TIME",3)=""
^DD(53.1114,"B","RENEWED BY",1)=""
^DD(53.1114,"GL",0,1,.01)=""
^DD(53.1114,"GL",0,2,1)=""
^DD(53.1114,"GL",0,3,2)=""
^DD(53.1114,"GL",0,4,3)=""
^DD(53.1114,"IX",.01)=""
^DD(53.1119,0)="ACTIVITY LOG SUB-FIELD^^4^5"
^DD(53.1119,0,"DT")="3000427"
^DD(53.1119,0,"NM","ACTIVITY LOG")=""
^DD(53.1119,0,"UP")="53.1"
^DD(53.1119,.01,0)="DATE^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(53.1119,.01,1,0)="^.1^^0"
^DD(53.1119,.01,3)="Enter the Date/Time the activity took place."
^DD(53.1119,.01,21,0)="^.001^1^1^3000814^^^^"
^DD(53.1119,.01,21,1,0)="This is the date and time the activity took place."
^DD(53.1119,.01,"DT")="3000814"
^DD(53.1119,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(53.1119,1,1,0)="^.1^^0"
^DD(53.1119,1,3)="Enter the user taking the action."
^DD(53.1119,1,21,0)="^.001^1^1^3000814^^"
^DD(53.1119,1,21,1,0)="This is the user taking the action on the order."
^DD(53.1119,1,"DT")="3000814"
^DD(53.1119,2,0)="ACTION^RP53.3'^PS(53.3,^0;3^Q"
^DD(53.1119,2,1,0)="^.1^^0"
^DD(53.1119,2,3)="Enter the reason for this action being taken."
^DD(53.1119,2,21,0)="^.001^1^1^3000814^^^^"
^DD(53.1119,2,21,1,0)="This is the activity that has taken place on the order."
^DD(53.1119,2,"DT")="3000814"
^DD(53.1119,3,0)="FIELD^F^^0;4^K:$L(X)>52!($L(X)<1) X"
^DD(53.1119,3,1,0)="^.1^^0"
^DD(53.1119,3,3)="Answer must be 1-52 characters in length."
^DD(53.1119,3,21,0)="^.001^1^1^3020711^^^^"
^DD(53.1119,3,21,1,0)="This is the field that was changed due to the activity."
^DD(53.1119,3,"DT")="3020711"
^DD(53.1119,4,0)="OLD DATA^F^^0;5^K:$L(X)>170!($L(X)<1) X"
^DD(53.1119,4,1,0)="^.1^^0"
^DD(53.1119,4,3)="Answer must be 1-170 characters in length."
^DD(53.1119,4,21,0)="^.001^1^1^3000814^^"
^DD(53.1119,4,21,1,0)="This is the previous data that was in the field that was changed."
^DD(53.1119,4,"DT")="3000814"
^DD(53.1119,"B","ACTION",2)=""
^DD(53.1119,"B","DATE",.01)=""
^DD(53.1119,"B","FIELD",3)=""
^DD(53.1119,"B","OLD DATA",4)=""
^DD(53.1119,"B","USER",1)=""
^DD(53.1119,"GL",0,1,.01)=""
^DD(53.1119,"GL",0,2,1)=""
^DD(53.1119,"GL",0,3,2)=""
^DD(53.1119,"GL",0,4,3)=""
^DD(53.1119,"GL",0,5,4)=""
^DD(53.1119,"RQ",2)=""
^DD(53.12,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(53.12,0,"NM","COMMENTS")=""
^DD(53.12,0,"UP")="53.1"
^DD(53.12,.01,0)="COMMENTS^W^^0;1^Q"
^DD(53.12,.01,3)="Enter any incidental information about the order here.  This information only shows on an expanded view of an order."
^DD(53.12,.01,20,0)="^.3LA^1^1"
^DD(53.12,.01,20,1,0)="PSJU"
^DD(53.12,.01,21,0)="^^2^2^2860226^"
^DD(53.12,.01,21,1,0)="This is a word processing field that is purely informational.  This"
^DD(53.12,.01,21,2,0)="field only shows on the expanded view on a order."
^DD(53.12,.01,"DT")="2850821"
^DD(53.12,"B","COMMENTS",.01)=""
^DD(53.12,"GL",0,1,.01)=""
^DD(53.12,"GR","PSJU",.01,1)=""
^DD(53.157,0)="ADDITIVE SUB-FIELD^^2^3"
^DD(53.157,0,"DIK")="PSGXR3"
^DD(53.157,0,"DT")="2910521"
^DD(53.157,0,"IX","B",53.157,.01)=""
^DD(53.157,0,"NM","ADDITIVE")=""
^DD(53.157,0,"UP")="53.1"
^DD(53.157,.01,0)="ADDITIVE^M*P52.6'X^PS(52.6,^0;1^S PSIVX=X,DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.157,.01,1,0)="^.1"
^DD(53.157,.01,1,1,0)="53.157^B"
^DD(53.157,.01,1,1,1)="S ^PS(53.1,DA(1),""AD"",""B"",$E(X,1,30),DA)="""""
^DD(53.157,.01,1,1,2)="K ^PS(53.1,DA(1),""AD"",""B"",$E(X,1,30),DA)"
^DD(53.157,.01,12)="Choose an additive, an additive's synonym or an additives quick code."
^DD(53.157,.01,12.1)="S DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"""
^DD(53.157,.01,20,0)="^.3LA^1^1"
^DD(53.157,.01,20,1,0)="PSJI"
^DD(53.157,.01,21,0)="^^2^2^2910522^^^"
^DD(53.157,.01,21,1,0)="  The additive selected as part of the IV order.  This entry is a pointer "
^DD(53.157,.01,21,2,0)="to the ADDITIVES file (52.6)."
^DD(53.157,.01,"DT")="2910521"
^DD(53.157,1,0)="STRENGTH^RFX^^0;2^K:X'?.6N.""."".8N!(X<0) X I $D(X) S X=X_"" ""_$$ENU^PSIVUTL(DRG(1)) D EN^DDIOL(""  ""_$P(X,"" "",2)_"" "")"
^DD(53.157,1,3)=""
^DD(53.157,1,4)="D:X=""??"" ENTDRG^PSIVDRG D EN^DDIOL(""Enter the strength""_$S($$ENU^PSIVUTL(DRG(1))]"""":"" in ""_$$ENU^PSIVUTL(DRG(1))_""'s"",1:"""")_"". Enter only a number."")"
^DD(53.157,1,20,0)="^.3LA^1^1"
^DD(53.157,1,20,1,0)="PSJI"
^DD(53.157,1,21,0)="^^6^6^2920519^^^^"
^DD(53.157,1,21,1,0)=" ""STRENGTH"" is the amount of an additive to be used in the manufacturing"
^DD(53.157,1,21,2,0)="of the IV order. NOTE! You will be expected to use the strength units that"
^DD(53.157,1,21,3,0)="were previously defined within the IV ADDITIVE file (52.6) for each "
^DD(53.157,1,21,4,0)="additive. For example, if the DRUG UNITS field of the IV ADDITIVES file "
^DD(53.157,1,21,5,0)="specifies the units for ampicillin to be in grams, it would be incorrect "
^DD(53.157,1,21,6,0)="to enter 500 for a half-gram dose. Enter 0.5 instead."
^DD(53.157,1,"DT")="2910625"
^DD(53.157,2,0)="BOTTLE^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X F PSIV=1:1 Q:'$D(X)  Q:PSIV>$L(X,"","")  K:$P(X,"","",PSIV)'?1N.N X"
^DD(53.157,2,3)="Enter the bottle #'s that this additive will be in.  (Ex. '1' or '1,3' or      <return> for all bottles)"
^DD(53.157,2,20,0)="^.3LA^1^1"
^DD(53.157,2,20,1,0)="PSJI"
^DD(53.157,2,21,0)="^^1^1^2910521^^"
^DD(53.157,2,21,1,0)=" The bottle number(s) this additive will be included in for this IV order."
^DD(53.157,2,"DT")="2910521"
^DD(53.157,"B","ADDITIVE",.01)=""
^DD(53.157,"B","BOTTLE",2)=""
^DD(53.157,"B","STRENGTH",1)=""
^DD(53.157,"GL",0,1,.01)=""
^DD(53.157,"GL",0,2,1)=""
^DD(53.157,"GL",0,3,2)=""
^DD(53.157,"GR","PSJI",.01,1)=""
^DD(53.157,"GR","PSJI",1,1)=""
^DD(53.157,"GR","PSJI",2,1)=""
^DD(53.157,"IX",.01)=""
^DD(53.157,"RQ",1)=""
^DD(53.158,0)="SOLUTION SUB-FIELD^^1^2"
^DD(53.158,0,"DIK")="PSGXR3"
^DD(53.158,0,"DT")="2910523"
^DD(53.158,0,"IX","B",53.158,.01)=""
^DD(53.158,0,"NM","SOLUTION")=""
^DD(53.158,0,"UP")="53.1"
^DD(53.158,.01,0)="SOLUTION^*P52.7'X^PS(52.7,^0;1^S DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.158,.01,1,0)="^.1"
^DD(53.158,.01,1,1,0)="53.158^B"
^DD(53.158,.01,1,1,1)="S ^PS(53.1,DA(1),""SOL"",""B"",$E(X,1,30),DA)="""""
^DD(53.158,.01,1,1,2)="K ^PS(53.1,DA(1),""SOL"",""B"",$E(X,1,30),DA)"
^DD(53.158,.01,3)="Answer must be 1-120 characters in length."
^DD(53.158,.01,12)="Choose an active solution."
^DD(53.158,.01,12.1)="S DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"""
^DD(53.158,.01,20,0)="^.3LA^1^1"
^DD(53.158,.01,20,1,0)="PSJI"
^DD(53.158,.01,21,0)="^^1^1^2910523^^^^"
^DD(53.158,.01,21,1,0)="  The solution entered as part of the specified IV order."
^DD(53.158,.01,"DT")="2910523"
^DD(53.158,1,0)="VOLUME^RFX^^0;2^K:X[""""""""!($A(X)=45)!(X'=+X)!(X>9999)!(X<.01) X I $D(X) S X=X_"" ML"" D EN^DDIOL(""  ""_X)"
^DD(53.158,1,3)="Answer must be a number from .01-9999."
^DD(53.158,1,20,0)="^.3LA^1^1"
^DD(53.158,1,20,1,0)="PSJI"
^DD(53.158,1,21,0)="^^3^3^2981229^^^^"
^DD(53.158,1,21,1,0)="  The volume of this solution in MLs. Only numeric values may be entered"
^DD(53.158,1,21,2,0)="in this field.  The total volume of the IV order is sum of solution's"
^DD(53.158,1,21,3,0)="volumes."
^DD(53.158,1,"DT")="2910521"
^DD(53.158,"B","SOLUTION",.01)=""
^DD(53.158,"B","VOLUME",1)=""
^DD(53.158,"GL",0,1,.01)=""
^DD(53.158,"GL",0,2,1)=""
^DD(53.158,"GR","PSJI",.01,1)=""
^DD(53.158,"GR","PSJI",1,1)=""
^DD(53.158,"IX",.01)=""
^DD(53.158,"RQ",1)=""
^DD(53.2,0)="FIELD^^2^3"
^DD(53.2,0,"DDA")="N"
^DD(53.2,0,"DT")="2960808"
^DD(53.2,0,"IX","B",53.2,.01)=""
^DD(53.2,0,"NM","UNIT DOSE ORDER SET")=""
^DD(53.2,0,"VR")="5.0"
^DD(53.2,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(53.2,.01,1,0)="^.1"
^DD(53.2,.01,1,1,0)="53.2^B"
^DD(53.2,.01,1,1,1)="S ^PS(53.2,""B"",$E(X,1,30),DA)="""""
^DD(53.2,.01,1,1,2)="K ^PS(53.2,""B"",$E(X,1,30),DA)"
^DD(53.2,.01,3)="Name must be 3-30 characters, not numeric or starting with punctuation."
^DD(53.2,.01,20,0)="^.3LA^1^1"
^DD(53.2,.01,20,1,0)="PSJU"
^DD(53.2,.01,21,0)="^^2^2^2921118^^^"
^DD(53.2,.01,21,1,0)="  This is the name of the order set, used is the selection of an order set"
^DD(53.2,.01,21,2,0)="in the order entry process."
^DD(53.2,1,0)="*DRUG^53.21IP^^1;0"
^DD(53.2,1,20,0)="^.3LA^1^1"
^DD(53.2,1,20,1,0)="PSJU"
^DD(53.2,1,21,0)="^^1^1^2960730^^^^"
^DD(53.2,1,21,1,0)="  This is a set of orders for this order set."
^DD(53.2,1,23,0)="^^3^3^2960730^^^^"
^DD(53.2,1,23,1,0)="  This is a set of orders for this order set.  There is no limit to the"
^DD(53.2,1,23,2,0)="number of orders in an order set.  It is these orders that are entered for"
^DD(53.2,1,23,3,0)="the patient (through the routine PSGOES) when this order set is selected."
^DD(53.2,1,"DT")="2960730"
^DD(53.2,2,0)="ORDERABLE ITEM^53.22P^^2;0"
^DD(53.2,2,12)="Only active orderable items may be selected."
^DD(53.2,2,12.1)="S DIC(""S"")=""I $S('$P($G(^(0)),U,4):1,1:$P($G(^(0)),U,4)>DT)"""
^DD(53.2,2,20,0)="^.3LA^1^1"
^DD(53.2,2,20,1,0)="PSJU"
^DD(53.2,2,21,0)="^^2^2^2971211^^^^"
^DD(53.2,2,21,1,0)="This is the orderable item describing the drug to be administered in"
^DD(53.2,2,21,2,0)="this order."
^DD(53.2,"B","*DRUG",1)=""
^DD(53.2,"B","NAME",.01)=""
^DD(53.2,"B","ORDERABLE ITEM",2)=""
^DD(53.2,"GL",0,1,.01)=""
^DD(53.2,"GL",1,0,1)=""
^DD(53.2,"GL",2,0,2)=""
^DD(53.2,"GR","PSJU",.01,1)=""
^DD(53.2,"GR","PSJU",1,1)=""
^DD(53.2,"GR","PSJU",2,1)=""
^DD(53.2,"IX",.01)=""
^DD(53.2,"RQ",.01)=""
^DD(53.2,"SB",53.21,1)=""
^DD(53.2,"SB",53.22,2)=""
^DD(53.21,0)="*DRUG SUB-FIELD^^10^9"
^DD(53.21,0,"DT")="2960723"
^DD(53.21,0,"ID",6)="W """""
^DD(53.21,0,"ID",7)="W """""
^DD(53.21,0,"IX","B",53.21,.01)=""
^DD(53.21,0,"NM","*DRUG")=""
^DD(53.21,0,"UP")="53.2"
^DD(53.21,.01,0)="*DRUG^MR*P50.3'^PS(50.3,^0;1^S DIC(""S"")=""S X(1)=$G(^(1,""""AFI"""",""""U"""")) I X(1),$S('$P(X(1),""""^"""",2):1,1:$P(X(1),""""^"""",2)>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.21,.01,1,0)="^.1"
^DD(53.21,.01,1,1,0)="53.21^B"
^DD(53.21,.01,1,1,1)="S ^PS(53.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.21,.01,1,1,2)="K ^PS(53.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.21,.01,3)="Enter a drug for this order set.  Each drug chosen is an individual order within the order set."
^DD(53.21,.01,12)="Drugs must be active primary drugs marked for Unit Dose."
^DD(53.21,.01,12.1)="S DIC(""S"")=""S X(1)=$G(^(1,""""AFI"""",""""U"""")) I X(1),$S('$P(X(1),""""^"""",2):1,1:$P(X(1),""""^"""",2)>DT)"""
^DD(53.21,.01,20,0)="^.3LA^1^1"
^DD(53.21,.01,20,1,0)="PSJU"
^DD(53.21,.01,21,0)="^^2^2^2960730^^^^"
^DD(53.21,.01,21,1,0)="  This is a drug to be entered as a Unit Dose order when this order set"
^DD(53.21,.01,21,2,0)="is selected."
^DD(53.21,.01,23,0)="^^2^2^2960730^^^^"
^DD(53.21,.01,23,1,0)="  This is the primary drug of an order that is created when this order"
^DD(53.21,.01,23,2,0)="set is selected."
^DD(53.21,.01,"DT")="2960730"
^DD(53.21,2,0)="*DOSAGE ORDERED^RFX^^0;9^X:$E(X,$L(X))="""" ^DD(53.21,2,9.5) K:$L(X)>20!($L(X)<1)!(X=+X) X"
^DD(53.21,2,3)="Answer must be 1-20 characters in length."
^DD(53.21,2,4)=""
^DD(53.21,2,9.5)="F  S X=$E(X,1,$L(X)-1) Q:$E(X,$L(X))'="" """
^DD(53.21,2,20,0)="^.3LA^1^1"
^DD(53.21,2,20,1,0)="PSJU"
^DD(53.21,2,21,0)="^^3^3^2960730^^^^"
^DD(53.21,2,21,1,0)="  This is the total amount of the medication that is to be administered as"
^DD(53.21,2,21,2,0)="one dose, such as '500MG' or '100CC'.  This cannot be a number only.  The"
^DD(53.21,2,21,3,0)="type of unit (MG, CC, etc.) must be included.  This is required."
^DD(53.21,2,"DT")="2960730"
^DD(53.21,4,0)="*DAY (nD) OR DOSE (nL) LIMIT^FX^^0;2^K:+X>90!(+X<1)!(X'?1.2N1""D""&(X'?1.2N1""L"")) X"
^DD(53.21,4,3)="Answer must be a number followed by a 'D' (for DAY LIMIT), or a number followed by an 'L' (for DOSE LIMIT)."
^DD(53.21,4,20,0)="^.3LA^1^1"
^DD(53.21,4,20,1,0)="PSJU"
^DD(53.21,4,21,0)="^^4^4^2960730^^^^"
^DD(53.21,4,21,1,0)="  This should contain the length of the order with this drug either in DAYS"
^DD(53.21,4,21,2,0)="or DOSES (administered).  If the length is in DAYS, the number of days"
^DD(53.21,4,21,3,0)="entered must be followed by a D.  If the length is a DOSE LIMIT, the number"
^DD(53.21,4,21,4,0)="entered must be followed by an L."
^DD(53.21,4,"DT")="2960730"
^DD(53.21,5,0)="*START DAY AND TIME^DX^^0;11^K:X'?1""T+""1.2N1""@""1.4N X I $D(X) S %DT=""TXR"",Z=X D ^%DT K:Y<1 X S:Y>0 X=$P(Z,""@"")_""@""_$E(Y_""000"",9,12) W:Y>0 ""  ("",X,"")"" K Z"
^DD(53.21,5,3)="Enter the day and time after the order is selected that this order should start."
^DD(53.21,5,4)="W !,""DO NOT ENTER ANYTHING HERE IF THIS ORDER STARTS THE DAY ITS ORDERED."""
^DD(53.21,5,20,0)="^.3LA^1^1"
^DD(53.21,5,20,1,0)="PSJU"
^DD(53.21,5,21,0)="^^4^4^2960730^^^^"
^DD(53.21,5,21,1,0)="  If the order with this drug is not to start the day the order set is"
^DD(53.21,5,21,2,0)="selected, enter when the order is to start here.  Enter as a future date"
^DD(53.21,5,21,3,0)="and time in the form of ""T+...  This allows orders in an order set to be"
^DD(53.21,5,21,4,0)="staggered."
^DD(53.21,5,"DT")="2960730"
^DD(53.21,6,0)="*MED ROUTE^R*P51.2'^PS(51.2,^0;3^S DIC(""S"")=""I $P(^PS(51.2,+Y,0),""""^"""",4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.21,6,3)="Enter the route of administration for this drug."
^DD(53.21,6,12)="MUST BE MARKED FOR ALL PACKAGES"
^DD(53.21,6,12.1)="S DIC(""S"")=""I $P(^PS(51.2,+Y,0),""""^"""",4)"""
^DD(53.21,6,20,0)="^.3LA^1^1"
^DD(53.21,6,20,1,0)="PSJU"
^DD(53.21,6,21,0)="^^1^1^2960730^^^^"
^DD(53.21,6,21,1,0)="  This is the route of administration for this drug."
^DD(53.21,6,"DT")="2960730"
^DD(53.21,7,0)="*SCHEDULE TYPE^RS^C:CONTINUOUS;O:ONE TIME;OC:ON CALL;P:PRN;R:FILL on REQUEST;^0;4^Q"
^DD(53.21,7,3)="Enter the code (C, O, OC, P, R) corresponding to the scheduling of this order."
^DD(53.21,7,20,0)="^.3LA^1^1"
^DD(53.21,7,20,1,0)="PSJU"
^DD(53.21,7,21,0)="^^3^3^2960730^^^^"
^DD(53.21,7,21,1,0)="  This is the type of schedule for the administration of the drug.  Please"
^DD(53.21,7,21,2,0)="remember that PRE-OP orders fall under ON CALL, and that FILL on REQUEST"
^DD(53.21,7,21,3,0)="includes MULTI-DOSE containers."
^DD(53.21,7,"DT")="2960730"
^DD(53.21,8,0)="*SCHEDULE^RFX^^0;5^D EN^PSGS0 I $D(X)#2,'PSGS0Y,PSGS0XT W ""  Every "",PSGS0XT,"" minutes"""
^DD(53.21,8,3)="Answer must be 2-180 characters in length."
^DD(53.21,8,20,0)="^.3LA^1^1"
^DD(53.21,8,20,1,0)="PSJU"
^DD(53.21,8,21,0)="^^4^4^2960730^^^^"
^DD(53.21,8,21,1,0)="  This is the schedule for the administration of this medication.  Unless"
^DD(53.21,8,21,2,0)="the Schedule Type is ON CALL, this field is required, and the order will"
^DD(53.21,8,21,3,0)="NOT be entered if no data is found in this field. This field will be ignored"
^DD(53.21,8,21,4,0)="if the SCHEDULE TYPE is ON CALL (OC)."
^DD(53.21,8,"DT")="2960730"
^DD(53.21,9,0)="*SPECIAL INSTRUCTIONS^FX^^1;1^K:$L(X)>180!($L(X)<1) X D:$D(X) ^PSGSICHK"
^DD(53.21,9,3)="Answer must be 1-180 characters in length."
^DD(53.21,9,4)="W !,""IF ABBREVIATIONS ARE USED, THE TOTAL LENGTH OF THE EXPANDED INSTRUCTIONS ALSO   MAY NOT BE LONGER THAN 180 CHARACTERS."""
^DD(53.21,9,20,0)="^.3LA^1^1"
^DD(53.21,9,20,1,0)="PSJU"
^DD(53.21,9,21,0)="^^4^4^2960730^^^^"
^DD(53.21,9,21,1,0)="  Enter any special instructions (using abbreviations whenever possible)"
^DD(53.21,9,21,2,0)="needed for this order.  This would include the physician's reason for "
^DD(53.21,9,21,3,0)="ordering a PRN.  This field utilizes the abbreviations and expansions"
^DD(53.21,9,21,4,0)="from the MEDICATION INSTRUCTION file (#51)."
^DD(53.21,9,"DT")="2960730"
^DD(53.21,10,0)="*DISPENSE DRUG^53.2102P^^2;0"
^DD(53.21,10,20,0)="^.3LA^1^1"
^DD(53.21,10,20,1,0)="PSJ"
^DD(53.21,10,21,0)="^^2^2^2960730^^^^"
^DD(53.21,10,21,1,0)="  This is the medication(s), and related information, that will actually"
^DD(53.21,10,21,2,0)="be dispensed by pharmacy for this order."
^DD(53.21,10,"DT")="2960730"
^DD(53.21,"B","*DAY (nD) OR DOSE (nL) LIMIT",4)=""
^DD(53.21,"B","*DISPENSE DRUG",10)=""
^DD(53.21,"B","*DOSAGE ORDERED",2)=""
^DD(53.21,"B","*DRUG",.01)=""
^DD(53.21,"B","*MED ROUTE",6)=""
^DD(53.21,"B","*SCHEDULE",8)=""
^DD(53.21,"B","*SCHEDULE TYPE",7)=""
^DD(53.21,"B","*SPECIAL INSTRUCTIONS",9)=""
^DD(53.21,"B","*START DAY AND TIME",5)=""
^DD(53.21,"GL",0,1,.01)=""
^DD(53.21,"GL",0,2,4)=""
^DD(53.21,"GL",0,3,6)=""
^DD(53.21,"GL",0,4,7)=""
^DD(53.21,"GL",0,5,8)=""
^DD(53.21,"GL",0,9,2)=""
^DD(53.21,"GL",0,11,5)=""
^DD(53.21,"GL",1,1,9)=""
^DD(53.21,"GL",2,0,10)=""
^DD(53.21,"GR","PSJ",10,1)=""
^DD(53.21,"GR","PSJU",.01,1)=""
^DD(53.21,"GR","PSJU",2,1)=""
^DD(53.21,"GR","PSJU",4,1)=""
^DD(53.21,"GR","PSJU",5,1)=""
^DD(53.21,"GR","PSJU",6,1)=""
^DD(53.21,"GR","PSJU",7,1)=""
^DD(53.21,"GR","PSJU",8,1)=""
^DD(53.21,"GR","PSJU",9,1)=""
^DD(53.21,"IX",.01)=""
^DD(53.21,"RQ",.01)=""
^DD(53.21,"RQ",2)=""
^DD(53.21,"RQ",6)=""
^DD(53.21,"RQ",7)=""
^DD(53.21,"RQ",8)=""
^DD(53.21,"SB",53.2102,10)=""
^DD(53.2102,0)="*DISPENSE DRUG SUB-FIELD^^.02^2"
^DD(53.2102,0,"DT")="2920108"
^DD(53.2102,0,"IX","B",53.2102,.01)=""
^DD(53.2102,0,"NM","*DISPENSE DRUG")=""
^DD(53.2102,0,"UP")="53.21"
^DD(53.2102,.01,0)="*DISPENSE DRUG^MR*P50'^PSDRUG(^0;1^S DIC(""S"")=""I $P($G(^PSDRUG(+Y,2)),""""^"""",6)=+$G(^PS(53.2,$S($D(DA(2)):DA(2),1:DA(1)),1,$S($D(DA(2)):DA(1),1:DA),0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.2102,.01,1,0)="^.1"
^DD(53.2102,.01,1,1,0)="53.2102^B"
^DD(53.2102,.01,1,1,1)="S ^PS(53.2,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(53.2102,.01,1,1,2)="K ^PS(53.2,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(53.2102,.01,1,1,"DT")="2920108"
^DD(53.2102,.01,3)="Enter a dispense drug for this order."
^DD(53.2102,.01,4)="S X(1)=+$G(^PS(53.2,DA(1),1,DA,0)) I X(1) S X(1)=$P($G(^PS(50.3,X(1),0)),""^"") I X(1)]"""" W !?5,""("",X(1),"" is the drug for this order.)"" K DA(2)"
^DD(53.2102,.01,12)="Only dispense drugs tied to this order's primary drug are selectable."
^DD(53.2102,.01,12.1)="S DIC(""S"")=""I $P($G(^PSDRUG(+Y,2)),""""^"""",6)=+$G(^PS(53.2,$S($D(DA(2)):DA(2),1:DA(1)),1,$S($D(DA(2)):DA(1),1:DA),0))"""
^DD(53.2102,.01,20,0)="^.3LA^1^1"
^DD(53.2102,.01,20,1,0)="PSJU"
^DD(53.2102,.01,21,0)="^^2^2^2960730^^^^"
^DD(53.2102,.01,21,1,0)="  This is the medication that will actually be dispensed for this order."
^DD(53.2102,.01,21,2,0)="An order may have more than one dispense drug."
^DD(53.2102,.01,23,0)="^^2^2^2960730^^^^"
^DD(53.2102,.01,23,1,0)="  This is an entry from the Drug file (50) that will actually be dispensed"
^DD(53.2102,.01,23,2,0)="as part of the order.  An order can have multiple dispense drugs."
^DD(53.2102,.01,"DT")="2960730"
^DD(53.2102,.01,"LAYGO",1,0)="S X(1)=$D(^PS(53.2,$S($D(DA(2)):DA(2),1:DA(1)),1,$S($D(DA(2)):DA(1),1:DA),2,""B"",+X)) D:X(1) EN^DDIOL(""This dispense drug has already been entered for this order."") I 'X(1)"
^DD(53.2102,.02,0)="*UNITS PER DOSE^NJ5,2OX^^0;2^S X=$S(X=""1/2"":.5,X=""1/4"":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"".""3.N) X"
^DD(53.2102,.02,1,0)="^.1^^0"
^DD(53.2102,.02,2)="S Y(0)=Y S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.2102,.02,2.1)="S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.2102,.02,3)="Enter a number between 0 and 30 (will accept '1/2' or '1/4')."
^DD(53.2102,.02,4)="W !,""IF NO ENTRY (OR AN ENTRY OF `0') IS MADE, A ONE (1) WILL BE ASSUMED."""
^DD(53.2102,.02,20,0)="^.3LA^1^1"
^DD(53.2102,.02,20,1,0)="PSJU"
^DD(53.2102,.02,21,0)="^^10^10^2960730^^^^"
^DD(53.2102,.02,21,1,0)="  This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a"
^DD(53.2102,.02,21,2,0)="DOSE for this order.  The literals '1/2' and '1/4' may be entered.  If there"
^DD(53.2102,.02,21,3,0)="is no entry, it is assumed to be ONE (1)."
^DD(53.2102,.02,21,4,0)="                         ** PLEASE NOTE **"
^DD(53.2102,.02,21,5,0)="  If a doctor prescribes 30 ml's of a medication that is usually dispensed"
^DD(53.2102,.02,21,6,0)="and administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or"
^DD(53.2102,.02,21,7,0)=".5), NOT 30 ml's.  (30 ml's would be entered into the DOSAGE ORDERED field.)"
^DD(53.2102,.02,21,8,0)="  If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is"
^DD(53.2102,.02,21,9,0)="suggested that the maximum amount be entered into this field and the amount"
^DD(53.2102,.02,21,10,0)="ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS fields."
^DD(53.2102,.02,"DT")="2960730"
^DD(53.2102,"B","*DISPENSE DRUG",.01)=""
^DD(53.2102,"B","*UNITS PER DOSE",.02)=""
^DD(53.2102,"GL",0,1,.01)=""
^DD(53.2102,"GL",0,2,.02)=""
^DD(53.2102,"GR","PSJU",.01,1)=""
^DD(53.2102,"GR","PSJU",.02,1)=""
^DD(53.2102,"IX",.01)=""
^DD(53.2102,"RQ",.01)=""
^DD(53.22,0)="ORDERABLE ITEM SUB-FIELD^^10^9"
^DD(53.22,0,"DT")="2960808"
^DD(53.22,0,"IX","B",53.22,.01)=""
^DD(53.22,0,"NM","ORDERABLE ITEM")=""
^DD(53.22,0,"UP")="53.2"
^DD(53.22,.01,0)="ORDERABLE ITEM^MP50.7'X^PS(50.7,^0;1^S DIC(""S"")=""I $S('$P($G(^(0)),U,4):1,1:$P($G(^(0)),U,4)>DT)"""
^DD(53.22,.01,1,0)="^.1"
^DD(53.22,.01,1,1,0)="53.22^B"
^DD(53.22,.01,1,1,1)="S ^PS(53.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(53.22,.01,1,1,2)="K ^PS(53.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(53.22,.01,3)="Enter the orderable item to identify this medication. Each orderable item chosen is an individual order within the order set."
^DD(53.22,.01,20,0)="^.3LA^1^1"
^DD(53.22,.01,20,1,0)="PSJU"
^DD(53.22,.01,21,0)="^^1^1^2971211^^^^"
^DD(53.22,.01,21,1,0)="This is the orderable item for the medication order."
^DD(53.22,.01,"DT")="2971211"
^DD(53.22,2,0)="DOSAGE ORDERED^FX^^0;9^X:$E(X,$L(X))="""" ^DD(53.22,2,9.5) K:$L(X)>60!($L(X)<1) X"
^DD(53.22,2,3)="Answer must be 1-60 characters in length."
^DD(53.22,2,9.5)="F  S X=$E(X,1,$L(X)-1) Q:$E(X,$L(X))'="" """
^DD(53.22,2,20,0)="^.3LA^1^1"
^DD(53.22,2,20,1,0)="PSJU"
^DD(53.22,2,21,0)="^.001^4^4^3010417^^^^"
^DD(53.22,2,21,1,0)="This is the total amount of the medication that is to be administered"
^DD(53.22,2,21,2,0)="as one dose, such as '500MG' or '100CC'. This cannot be a number only."
^DD(53.22,2,21,3,0)="The type of unit (MG, CC, etc.) must be included."
^DD(53.22,2,21,4,0)=" "
^DD(53.22,2,"DT")="3010413"
^DD(53.22,4,0)="DAY (nD) OR DOSE (nL) LIMIT^FX^^0;2^K:$L(+X)>90!($L(+X)<1)!(X'?1.2N1""D""&(X'?1.2N1""L"")) X"
^DD(53.22,4,3)="Answer must be a number followed by a 'D"" (for DAY LIMIT), or a number followed by an 'L' (for DOSE LIMIT)."
^DD(53.22,4,20,0)="^.3LA^1^1"
^DD(53.22,4,20,1,0)="PSJU"
^DD(53.22,4,21,0)="^^4^4^2960725^^"
^DD(53.22,4,21,1,0)="This should contain the length of the order with this drug either in "
^DD(53.22,4,21,2,0)="DAYS or DOSES (administered). If the length is in DAYS, the number of days "
^DD(53.22,4,21,3,0)="entered mut be followed by a D. If the length is a DOSE LIMIT, the"
^DD(53.22,4,21,4,0)="number entered must be followed by an L."
^DD(53.22,4,"DT")="2960725"
^DD(53.22,5,0)="START DAY AND TIME^DX^^0;11^K:X'?1""T+""1.2N1""@""1.4N X I $D(X) S %DT=""TXR"",Z=X D ^%DT K:Y<1 X S:Y>0 X=$P(Z,""@"")_""@""_$E(Y_""000"",9,12) D:Y>0 EN^DDIOL(""  (""_X_"")"") K Z"
^DD(53.22,5,3)="Enter the day and time after the order is selected that this order should start."
^DD(53.22,5,20,0)="^.3LA^1^1"
^DD(53.22,5,20,1,0)="PSJU"
^DD(53.22,5,21,0)="^^3^3^2960725^"
^DD(53.22,5,21,1,0)="If the order with this drug is not to start the day the order set is"
^DD(53.22,5,21,2,0)="selected, enter when the order is to start here.  Enter as a future date"
^DD(53.22,5,21,3,0)="and time in the form of ""T+..."""
^DD(53.22,5,"DT")="2960725"
^DD(53.22,6,0)="MED ROUTE^R*P51.2'^PS(51.2,^0;3^S DIC(""S"")=""I $P(^PS(51.2,+Y,0),""""^"""",4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.22,6,3)="Enter the route of administration for this drug."
^DD(53.22,6,12)="MUST BE MARKED FOR ALL PACKAGES"
^DD(53.22,6,12.1)="S DIC(""S"")=""I $P(^PS(51.2,+Y,0),""""^"""",4)"""
^DD(53.22,6,21,0)="^^1^1^2960725^"
^DD(53.22,6,21,1,0)="This is the route of administration for this drug."
^DD(53.22,6,"DT")="2960725"
^DD(53.22,7,0)="SCHEDULE TYPE^RS^C:CONTINUOUS;O:ONE TIME;OC:ON CALL;P:PRN;R:FILL on REQUEST;^0;4^Q"
^DD(53.22,7,3)="Enter the code (C,O,OC,P,R) corresponding to the scheduling of this order."
^DD(53.22,7,20,0)="^.3LA^1^1"
^DD(53.22,7,20,1,0)="PSJU"
^DD(53.22,7,21,0)="^^1^1^2960725^^^"
^DD(53.22,7,21,1,0)="This is the type of schedule for the administration of the drug.  Please remember that PRE-OP orders fall under ON CALL, and that FILL on REQUEST includes MULTI-DOSE containers."
^DD(53.22,7,"DT")="2960725"
^DD(53.22,8,0)="SCHEDULE^P51.1'^PS(51.1,^0;5^Q"
^DD(53.22,8,3)="Enter the schedule for this orderable item."
^DD(53.22,8,20,0)="^.3LA^1^1"
^DD(53.22,8,20,1,0)="PSJU"
^DD(53.22,8,"DT")="3040302"
^DD(53.22,9,0)="SPECIAL INSTRUCTIONS^FX^^1;1^K:$L(X)>180!($L(X)<1) X D:$D(X) ^PSGSICHK"
^DD(53.22,9,3)="Answer must be 1-180 characters in length."
^DD(53.22,9,21,0)="^^4^4^2960725^"
^DD(53.22,9,21,1,0)="Enter any special instructions (using abbreviations whenever possible)"
^DD(53.22,9,21,2,0)="needed for this order.  This would include the physician's reason for"
^DD(53.22,9,21,3,0)="ordering a PRN. This field utilizes the abbreviations and expansions from"
^DD(53.22,9,21,4,0)="the MEDICATION INSTRUCTION file."
^DD(53.22,9,"DT")="2960731"
^DD(53.22,10,0)="DISPENSE DRUG^53.23P^^2;0"
^DD(53.22,10,20,0)="^.3LA^1^1"
^DD(53.22,10,20,1,0)="PSJU"
^DD(53.22,"B","DAY (nD) OR DOSE (nL) LIMIT",4)=""
^DD(53.22,"B","DISPENSE DRUG",10)=""
^DD(53.22,"B","DOSAGE ORDERED",2)=""
^DD(53.22,"B","MED ROUTE",6)=""
^DD(53.22,"B","ORDERABLE ITEM",.01)=""
^DD(53.22,"B","SCHEDULE",8)=""
^DD(53.22,"B","SCHEDULE TYPE",7)=""
^DD(53.22,"B","SPECIAL INSTRUCTIONS",9)=""
^DD(53.22,"B","START DAY AND TIME",5)=""
^DD(53.22,"GL",0,1,.01)=""
^DD(53.22,"GL",0,2,4)=""
^DD(53.22,"GL",0,3,6)=""
^DD(53.22,"GL",0,4,7)=""
^DD(53.22,"GL",0,5,8)=""
^DD(53.22,"GL",0,9,2)=""
^DD(53.22,"GL",0,11,5)=""
^DD(53.22,"GL",1,1,9)=""
^DD(53.22,"GL",2,0,10)=""
^DD(53.22,"GR","PSJU",.01,1)=""
^DD(53.22,"GR","PSJU",2,1)=""
^DD(53.22,"GR","PSJU",4,1)=""
^DD(53.22,"GR","PSJU",5,1)=""
^DD(53.22,"GR","PSJU",7,1)=""
^DD(53.22,"GR","PSJU",8,1)=""
^DD(53.22,"GR","PSJU",10,1)=""
^DD(53.22,"IX",.01)=""
^DD(53.22,"RQ",6)=""
^DD(53.22,"RQ",7)=""
^DD(53.22,"SB",53.23,10)=""
^DD(53.23,0)="DISPENSE DRUG SUB-FIELD^^.02^2"
^DD(53.23,0,"DT")="2960726"
^DD(53.23,0,"IX","B",53.23,.01)=""
^DD(53.23,0,"NM","DISPENSE DRUG")=""
^DD(53.23,0,"UP")="53.22"
^DD(53.23,.01,0)="DISPENSE DRUG^MR*P50'^PSDRUG(^0;1^S DIC(""S"")=""I $P($G(^PSDRUG(+Y,2)),""""^"""")=+$G(^PS(53.2,$S($D(DA(2)):DA(2),1:DA(1)),2,$S($D(DA(2)):DA(1),1:DA),0))&($P($G(^PSDRUG(+Y,2)),""""^"""",3)[""""U"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.23,.01,1,0)="^.1"
^DD(53.23,.01,1,1,0)="53.23^B"
^DD(53.23,.01,1,1,1)="S ^PS(53.2,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(53.23,.01,1,1,2)="K ^PS(53.2,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(53.23,.01,4)="S X(1)=+$G(^PS(53.2,DA(1),2,DA,0)) I X(1) S X(1)=$P($G(^PS(50.7,X(1),0)),""^"") I X(1)]"""" D EN^DDIOL(""(""_X(1)_"" is the drug for this order."") K DA(2)"
^DD(53.23,.01,10)=""
^DD(53.23,.01,12)="Only dispense drugs that are marked for Unit Dose use and that are tied to this order's ORDERABLE ITEM are selectable."
^DD(53.23,.01,12.1)="S DIC(""S"")=""I $P($G(^PSDRUG(+Y,2)),""""^"""")=+$G(^PS(53.2,$S($D(DA(2)):DA(2),1:DA(1)),2,$S($D(DA(2)):DA(1),1:DA),0))&($P($G(^PSDRUG(+Y,2)),""""^"""",3)[""""U"""")"""
^DD(53.23,.01,21,0)="^^2^2^2960809^^^^"
^DD(53.23,.01,21,1,0)="This is the medication(s), and related information, that will actually"
^DD(53.23,.01,21,2,0)="be dispensed by pharmacy for this order."
^DD(53.23,.01,"DT")="2960726"
^DD(53.23,.02,0)="UNITS PER DOSE^NJ5,2XO^^0;2^S X=$S(X=""1/2"":.5,X=""1/4"":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"".""3.N) X"
^DD(53.23,.02,2)="S Y(0)=Y S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.23,.02,2.1)="S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.23,.02,3)="Enter a number between 0 and 30 (will accept '1/2' or '1/4')"
^DD(53.23,.02,4)="D EN^DDIOL("" IF NO ENTRY (OR AN ENTRY OF '0') IS MADE, A ONE (1) WILL BE ASSUMED."")"
^DD(53.23,.02,21,0)="^^9^9^2960725^^"
^DD(53.23,.02,21,1,0)="This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a"
^DD(53.23,.02,21,2,0)="DOSE for this order.  The literals '1/2' and .   ** PLEASE NOTE ** If a"
^DD(53.23,.02,21,3,0)="doctor prescribes 30 ml's of a medication that is usually dispensed and"
^DD(53.23,.02,21,4,0)="administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or .5),"
^DD(53.23,.02,21,5,0)="NOT 30 ml's.(30 ml's would be entered into the DOSAGE ORDERED field.)If"
^DD(53.23,.02,21,6,0)="the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is"
^DD(53.23,.02,21,7,0)="suggested that the maximum amount be entered into this field and the"
^DD(53.23,.02,21,8,0)="amount ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS"
^DD(53.23,.02,21,9,0)="fields."
^DD(53.23,.02,"DT")="2960725"
^DD(53.23,"B","DISPENSE DRUG",.01)=""
^DD(53.23,"B","UNITS PER DOSE",.02)=""
^DD(53.23,"GL",0,1,.01)=""
^DD(53.23,"GL",0,2,.02)=""
^DD(53.23,"IX",.01)=""
^DD(53.23,"RQ",.01)=""
^DD(53.3,0)="FIELD^^1^2"
^DD(53.3,0,"DDA")="N"
^DD(53.3,0,"IX","C",53.3,1)=""
^DD(53.3,0,"NM","ACTIVITY LOG REASON")=""
^DD(53.3,0,"PT",53.1119,2)=""
^DD(53.3,0,"PT",55.09,2)=""
^DD(53.3,0,"VR")="5.0"
^DD(53.3,0,"VRPK")="PSJ"
^DD(53.3,.01,0)="REASON^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(53.3,.01,1,0)="^.1^^0"
^DD(53.3,.01,3)="Answer must be 1-60 characters in length."
^DD(53.3,.01,8.5)="^"
^DD(53.3,.01,9)="^"
^DD(53.3,.01,20,0)="^.3LA^1^1"
^DD(53.3,.01,20,1,0)="PSJU"
^DD(53.3,.01,21,0)="^^2^2^2910305^^^^"
^DD(53.3,.01,21,1,0)="  This is the reason for an activity that has taken placed on a verified"
^DD(53.3,.01,21,2,0)="Unit Dose order."
^DD(53.3,.01,"DT")="2870316"
^DD(53.3,1,0)="OLD CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(53.3,1,1,0)="^.1"
^DD(53.3,1,1,1,0)="53.3^C"
^DD(53.3,1,1,1,1)="S ^PS(53.3,""C"",$E(X,1,30),DA)="""""
^DD(53.3,1,1,1,2)="K ^PS(53.3,""C"",$E(X,1,30),DA)"
^DD(53.3,1,3)="Answer must be 1-10 characters in length."
^DD(53.3,1,8.5)="^"
^DD(53.3,1,9)="^"
^DD(53.3,1,20,0)="^.3LA^1^1"
^DD(53.3,1,20,1,0)="PSJU"
^DD(53.3,1,21,0)="^^1^1^2910305^^"
^DD(53.3,1,21,1,0)="  This is previous code used to look-up an entry in this file."
^DD(53.3,1,"DT")="2861218"
^DD(53.3,"B","OLD CODE",1)=""
^DD(53.3,"B","REASON",.01)=""
^DD(53.3,"GL",0,1,.01)=""
^DD(53.3,"GL",0,2,1)=""
^DD(53.3,"GR","PSJU",.01,1)=""
^DD(53.3,"GR","PSJU",1,1)=""
^DD(53.3,"IX",1)=""
^DD(53.3,"RQ",.01)=""
^DD(53.4,0)="FIELD^^2^3"
^DD(53.4,0,"DT")="2911226"
^DD(53.4,0,"IX","AUD",53.4,1)=""
^DD(53.4,0,"IX","B",53.4,.01)=""
^DD(53.4,0,"NM","PRE-EXCHANGE NEEDS")=""
^DD(53.4,0,"VR")="5.0"
^DD(53.4,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.4,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(53.4,.01,1,0)="^.1"
^DD(53.4,.01,1,1,0)="53.4^B"
^DD(53.4,.01,1,1,1)="S ^PS(53.4,""B"",$E(X,1,30),DA)="""""
^DD(53.4,.01,1,1,2)="K ^PS(53.4,""B"",$E(X,1,30),DA)"
^DD(53.4,.01,3)=""
^DD(53.4,.01,20,0)="^.3LA^1^1"
^DD(53.4,.01,20,1,0)="PSJU"
^DD(53.4,.01,21,0)="^^1^1^2910305^^"
^DD(53.4,.01,21,1,0)="  This is the user (pharmacist) who entered the pre-exchange needs."
^DD(53.4,.01,"DT")="2910708"
^DD(53.4,1,0)="DATE^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.4,1,1,0)="^.1"
^DD(53.4,1,1,1,0)="53.4^AUD^MUMPS"
^DD(53.4,1,1,1,1)="I ^PS(53.4,DA,0) S ^PS(53.4,""AUD"",+^(0),+X,DA)="""""
^DD(53.4,1,1,1,2)="I ^PS(53.4,DA,0) K ^PS(53.4,""AUD"",+^(0),+X,DA)"
^DD(53.4,1,1,1,3)="USED BY UNIT DOSE"
^DD(53.4,1,1,1,"%D",0)="^^3^3^2971211^"
^DD(53.4,1,1,1,"%D",1,0)="Used by Unit Dose to allow the data to be cleaned up in a timely manner,"
^DD(53.4,1,1,1,"%D",2,0)="but not too soon!"
^DD(53.4,1,1,1,"%D",3,0)="S ^PS(53.4,""AUD"",USER,DATE,IEN)="""""
^DD(53.4,1,20,0)="^.3LA^1^1"
^DD(53.4,1,20,1,0)="PSJU"
^DD(53.4,1,21,0)="^^2^2^2910305^^"
^DD(53.4,1,21,1,0)="  This is the date and time the first pre-exchange needs was entered for"
^DD(53.4,1,21,2,0)="a particular session of order entry or non-verified orders."
^DD(53.4,2,0)="PATIENT^53.401PA^^1;0"
^DD(53.4,2,20,0)="^.3LA^1^1"
^DD(53.4,2,20,1,0)="PSJU"
^DD(53.4,2,21,0)="^^2^2^2920514^"
^DD(53.4,2,21,1,0)="  This is the patient for whom the labels were created.  This also contains"
^DD(53.4,2,21,2,0)="the orders for which the labels were created."
^DD(53.4,"B","DATE",1)=""
^DD(53.4,"B","PATIENT",2)=""
^DD(53.4,"B","USER",.01)=""
^DD(53.4,"GL",0,1,.01)=""
^DD(53.4,"GL",0,2,1)=""
^DD(53.4,"GL",1,0,2)=""
^DD(53.4,"GR","PSJU",.01,1)=""
^DD(53.4,"GR","PSJU",1,1)=""
^DD(53.4,"GR","PSJU",2,1)=""
^DD(53.4,"IX",.01)=""
^DD(53.4,"IX",1)=""
^DD(53.4,"RQ",.01)=""
^DD(53.4,"RQ",1)=""
^DD(53.4,"SB",53.401,2)=""
^DD(53.401,0)="PATIENT SUB-FIELD^^1^2"
^DD(53.401,0,"DT")="2911226"
^DD(53.401,0,"NM","PATIENT")=""
^DD(53.401,0,"UP")="53.4"
^DD(53.401,.01,0)="PATIENT^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(53.401,.01,1,0)="^.1^^0"
^DD(53.401,.01,8.5)="^"
^DD(53.401,.01,9)="^"
^DD(53.401,.01,20,0)="^.3LA^1^1"
^DD(53.401,.01,20,1,0)="PSJU"
^DD(53.401,.01,21,0)="^^1^1^2910305^^"
^DD(53.401,.01,21,1,0)="  This is the patient for whom the pre-exchange needs were entered."
^DD(53.401,1,0)="ORDER NUMBER^53.4011A^^1;0"
^DD(53.401,1,8.5)="^"
^DD(53.401,1,9)="^"
^DD(53.401,1,20,0)="^.3LA^1^1"
^DD(53.401,1,20,1,0)="PSJU"
^DD(53.401,1,21,0)="^^1^1^2920514^"
^DD(53.401,1,21,1,0)="  This is the order for which the pre-exchange needs were entered."
^DD(53.401,1,23,0)="^^1^1^2920514^"
^DD(53.401,1,23,1,0)="  This refers to ^PS(55,PATIENT,5,ORDER NUMBER)."
^DD(53.401,"B","ORDER NUMBER",1)=""
^DD(53.401,"B","PATIENT",.01)=""
^DD(53.401,"GL",0,1,.01)=""
^DD(53.401,"GL",1,0,1)=""
^DD(53.401,"GR","PSJU",.01,1)=""
^DD(53.401,"GR","PSJU",1,1)=""
^DD(53.401,"RQ",.01)=""
^DD(53.401,"SB",53.4011,1)=""
^DD(53.4011,0)="ORDER NUMBER SUB-FIELD^^1^2"
^DD(53.4011,0,"DT")="2911226"
^DD(53.4011,0,"NM","ORDER NUMBER")=""
^DD(53.4011,0,"UP")="53.401"
^DD(53.4011,.01,0)="ORDER NUMBER^RNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(53.4011,.01,1,0)="^.1^^0"
^DD(53.4011,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.4011,.01,20,0)="^.3LA^1^1"
^DD(53.4011,.01,20,1,0)="PSJU"
^DD(53.4011,.01,21,0)="^^2^2^2910305^^"
^DD(53.4011,.01,21,1,0)="  This is the internal record number of the active Unit Dose order for"
^DD(53.4011,.01,21,2,0)="which the pre-exchange needs were entered."
^DD(53.4011,1,0)="DISPENSE DRUG^53.401101A^^1;0"
^DD(53.4011,1,20,0)="^.3LA^1^1"
^DD(53.4011,1,20,1,0)="psju"
^DD(53.4011,1,21,0)="^^1^1^2940621^^"
^DD(53.4011,1,21,1,0)=" This is the dispense drug for which pre-exchange needs have been entered."
^DD(53.4011,1,23,0)="^^1^1^2911226^"
^DD(53.4011,1,23,1,0)="  This is a 'pointer' to the dispense drug multiple of the Unit Dose order."
^DD(53.4011,"B","DISPENSE DRUG",1)=""
^DD(53.4011,"B","ORDER NUMBER",.01)=""
^DD(53.4011,"GL",0,1,.01)=""
^DD(53.4011,"GL",1,0,1)=""
^DD(53.4011,"GR","PSJU",.01,1)=""
^DD(53.4011,"GR","psju",1,1)=""
^DD(53.4011,"RQ",.01)=""
^DD(53.4011,"SB",53.401101,1)=""
^DD(53.401101,0)="DISPENSE DRUG SUB-FIELD^^.02^2"
^DD(53.401101,0,"DT")="2911226"
^DD(53.401101,0,"IX","B",53.401101,.01)=""
^DD(53.401101,0,"NM","DISPENSE DRUG")=""
^DD(53.401101,0,"UP")="53.4011"
^DD(53.401101,.01,0)="DISPENSE DRUG^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.401101,.01,1,0)="^.1"
^DD(53.401101,.01,1,1,0)="53.401101^B"
^DD(53.401101,.01,1,1,1)="S ^PS(53.4,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.401101,.01,1,1,2)="K ^PS(53.4,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.401101,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(53.401101,.01,20,0)="^.3LA^1^1"
^DD(53.401101,.01,20,1,0)="PSJU"
^DD(53.401101,.01,21,0)="^^1^1^2911226^"
^DD(53.401101,.01,21,1,0)="  This is the dispense drug for which pre-exchange needs has been entered."
^DD(53.401101,.01,23,0)="^^1^1^2911226^"
^DD(53.401101,.01,23,1,0)="  This is a 'pointer' to the dispense drug multiple of a Unit Dose order."
^DD(53.401101,.01,"DT")="2911226"
^DD(53.401101,.02,0)="PRE-EXCHANGE NEEDS^RNJ2,0^^0;2^K:+X'=X!(X>75)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.401101,.02,3)="Type a Number between 0 and 75, 0 Decimal Digits."
^DD(53.401101,.02,20,0)="^.3LA^1^1"
^DD(53.401101,.02,20,1,0)="PSJU"
^DD(53.401101,.02,21,0)="^^2^2^2910305^^"
^DD(53.401101,.02,21,1,0)="  This is the number of units entered as pre-exchange needs for this order"
^DD(53.401101,.02,21,2,0)="(medication)."
^DD(53.401101,"B","DISPENSE DRUG",.01)=""
^DD(53.401101,"B","PRE-EXCHANGE NEEDS",.02)=""
^DD(53.401101,"GL",0,1,.01)=""
^DD(53.401101,"GL",0,2,.02)=""
^DD(53.401101,"GR","PSJU",.01,1)=""
^DD(53.401101,"GR","PSJU",.02,1)=""
^DD(53.401101,"IX",.01)=""
^DD(53.401101,"RQ",.02)=""
^DD(53.41,0)="FIELD^^1^2"
^DD(53.41,0,"DDA")="N"
^DD(53.41,0,"DT")="2911023"
^DD(53.41,0,"NM","MAR LABELS")=""
^DD(53.41,0,"VR")="5.0"
^DD(53.41,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.41,.01,0)="TYPE OF LABEL^RSX^1:AUTO-DISCONTINUED;2:OTHER ACTION;3:AUTO-REINSTATED;^0;1^S:$D(X) DINUM=X"
^DD(53.41,.01,1,0)="^.1^^0"
^DD(53.41,.01,3)="NOT FOR USE THROUGH VA FILEMAN!"
^DD(53.41,.01,8.5)="^"
^DD(53.41,.01,9)="^"
^DD(53.41,.01,20,0)="^.3LA^1^1"
^DD(53.41,.01,20,1,0)="PSJU"
^DD(53.41,.01,21,0)="^^4^4^2940122^^^"
^DD(53.41,.01,21,1,0)="  This is the type of label.  A '1' indicates that the label was through"
^DD(53.41,.01,21,2,0)="the auto-discontinuing of the order.  A '2' indicates that the label was"
^DD(53.41,.01,21,3,0)="created through various other actions taken on the order. A '3' indicates "
^DD(53.41,.01,21,4,0)="that the label was created through the auto-reinstating of the order."
^DD(53.41,1,0)="USER OR WARD^53.4101A^^1;0"
^DD(53.41,1,8.5)="^"
^DD(53.41,1,9)="^"
^DD(53.41,1,20,0)="^.3LA^1^1"
^DD(53.41,1,20,1,0)="PSJU"
^DD(53.41,1,21,0)="^^3^3^2940621^^"
^DD(53.41,1,21,1,0)="  This contains information about Unit Dose labels created by actions taken"
^DD(53.41,1,21,2,0)="on Unit Dose orders, such as either the user who took the action or the"
^DD(53.41,1,21,3,0)="ward the patient was on when the label was created."
^DD(53.41,"B","TYPE OF LABEL",.01)=""
^DD(53.41,"B","USER OR WARD",1)=""
^DD(53.41,"GL",0,1,.01)=""
^DD(53.41,"GL",1,0,1)=""
^DD(53.41,"GR","PSJU",.01,1)=""
^DD(53.41,"GR","PSJU",1,1)=""
^DD(53.41,"RQ",.01)=""
^DD(53.41,"SB",53.4101,1)=""
^DD(53.4101,0)="USER OR WARD SUB-FIELD^^1^2"
^DD(53.4101,0,"DT")="2911023"
^DD(53.4101,0,"NM","USER OR WARD")=""
^DD(53.4101,0,"UP")="53.41"
^DD(53.4101,.01,0)="USER OR WARD^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(53.4101,.01,1,0)="^.1^^0"
^DD(53.4101,.01,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits."
^DD(53.4101,.01,8.5)="^"
^DD(53.4101,.01,9)="^"
^DD(53.4101,.01,20,0)="^.3LA^1^1"
^DD(53.4101,.01,20,1,0)="PSJU"
^DD(53.4101,.01,21,0)="^^5^5^2940621^^^^"
^DD(53.4101,.01,21,1,0)="  This is a number used to look at either the USER file or the WARD"
^DD(53.4101,.01,21,2,0)="LOCATION file, depending on the value of the TYPE OF LABEL field.  If"
^DD(53.4101,.01,21,3,0)="type of label is '1', the package will use this value to look in the"
^DD(53.4101,.01,21,4,0)="WARD LOCATION file.  If the type of label is '2', the package will use"
^DD(53.4101,.01,21,5,0)="this value to look in the NEW PERSON file."
^DD(53.4101,1,0)="PATIENT^53.4102PA^^1;0"
^DD(53.4101,1,8.5)="^"
^DD(53.4101,1,9)="^"
^DD(53.4101,1,20,0)="^.3LA^1^1"
^DD(53.4101,1,20,1,0)="PSJU"
^DD(53.4101,1,21,0)="^^1^1^2901211^^"
^DD(53.4101,1,21,1,0)="  This is the patient for whom the label was created."
^DD(53.4101,"B","PATIENT",1)=""
^DD(53.4101,"B","USER OR WARD",.01)=""
^DD(53.4101,"GL",0,1,.01)=""
^DD(53.4101,"GL",1,0,1)=""
^DD(53.4101,"GR","PSJU",.01,1)=""
^DD(53.4101,"GR","PSJU",1,1)=""
^DD(53.4101,"RQ",.01)=""
^DD(53.4101,"SB",53.4102,1)=""
^DD(53.4102,0)="PATIENT SUB-FIELD^^1^2"
^DD(53.4102,0,"DT")="2911023"
^DD(53.4102,0,"NM","PATIENT")=""
^DD(53.4102,0,"UP")="53.4101"
^DD(53.4102,.01,0)="PATIENT^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(53.4102,.01,1,0)="^.1^^0"
^DD(53.4102,.01,8.5)="^"
^DD(53.4102,.01,9)="^"
^DD(53.4102,.01,20,0)="^.3LA^1^1"
^DD(53.4102,.01,20,1,0)="PSJU"
^DD(53.4102,.01,21,0)="^^2^2^2910306^"
^DD(53.4102,.01,21,1,0)="  This is the patient for whom the orders existed that have labels to be"
^DD(53.4102,.01,21,2,0)="printed."
^DD(53.4102,1,0)="TYPE OF ORDER^53.4103SA^^1;0"
^DD(53.4102,1,8.5)="^"
^DD(53.4102,1,9)="^"
^DD(53.4102,1,20,0)="^.3LA^1^1"
^DD(53.4102,1,20,1,0)="PSJU"
^DD(53.4102,1,21,0)="^^5^5^2931110^^^"
^DD(53.4102,1,21,1,0)="  This is the type of the order for which the label was created.  If the "
^DD(53.4102,1,21,2,0)="type is '1', the order was a verified Unit Dose order and can be found in"
^DD(53.4102,1,21,3,0)="file 55 (55.06 sub-file).  If the type is '2', the order has yet to be "
^DD(53.4102,1,21,4,0)="verified and can be found in file 53.1. If the type is '3', the order is "
^DD(53.4102,1,21,5,0)="an IV and can be found in file 55 (55.01 sub-file)."
^DD(53.4102,"B","PATIENT",.01)=""
^DD(53.4102,"B","TYPE OF ORDER",1)=""
^DD(53.4102,"GL",0,1,.01)=""
^DD(53.4102,"GL",1,0,1)=""
^DD(53.4102,"GR","PSJU",.01,1)=""
^DD(53.4102,"GR","PSJU",1,1)=""
^DD(53.4102,"RQ",.01)=""
^DD(53.4102,"SB",53.4103,1)=""
^DD(53.4103,0)="TYPE OF ORDER SUB-FIELD^^1^2"
^DD(53.4103,0,"DT")="2911023"
^DD(53.4103,0,"NM","TYPE OF ORDER")=""
^DD(53.4103,0,"UP")="53.4102"
^DD(53.4103,.01,0)="TYPE OF ORDER^RSX^1:VERIFIED UNIT DOSE;2:NON-VERIFIED UNIT DOSE;3:IV;^0;1^S:$D(X) DINUM=X"
^DD(53.4103,.01,1,0)="^.1^^0"
^DD(53.4103,.01,8.5)="^"
^DD(53.4103,.01,9)="^"
^DD(53.4103,.01,20,0)="^.3LA^1^1"
^DD(53.4103,.01,20,1,0)="PSJU"
^DD(53.4103,.01,21,0)="^^5^5^2931110^^"
^DD(53.4103,.01,21,1,0)="  This is the type of the order for which the label was created.  If the "
^DD(53.4103,.01,21,2,0)="type is '1', the order was a verified Unit Dose order and can be found in"
^DD(53.4103,.01,21,3,0)="file 55 (55.06 sub-file).  If the type is '2', the order has yet to be "
^DD(53.4103,.01,21,4,0)="verified and can be found in file 53.1. If the type is '3', the order is "
^DD(53.4103,.01,21,5,0)="an IV and can be found in file 55 (55.01 sub-file)."
^DD(53.4103,1,0)="ORDER NUMBER^53.4104A^^1;0"
^DD(53.4103,1,8.5)="^"
^DD(53.4103,1,9)="^"
^DD(53.4103,1,20,0)="^.3LA^1^1"
^DD(53.4103,1,20,1,0)="PSJU"
^DD(53.4103,1,21,0)="^^2^2^2920514^"
^DD(53.4103,1,21,1,0)="  This is the internal record numbers of orders for which labels were"
^DD(53.4103,1,21,2,0)="created."
^DD(53.4103,"B","ORDER NUMBER",1)=""
^DD(53.4103,"B","TYPE OF ORDER",.01)=""
^DD(53.4103,"GL",0,1,.01)=""
^DD(53.4103,"GL",1,0,1)=""
^DD(53.4103,"GR","PSJU",.01,1)=""
^DD(53.4103,"GR","PSJU",1,1)=""
^DD(53.4103,"RQ",.01)=""
^DD(53.4103,"SB",53.4104,1)=""
^DD(53.4104,0)="ORDER NUMBER SUB-FIELD^^2^3"
^DD(53.4104,0,"DT")="2911023"
^DD(53.4104,0,"NM","ORDER NUMBER")=""
^DD(53.4104,0,"UP")="53.4103"
^DD(53.4104,.01,0)="ORDER NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(53.4104,.01,1,0)="^.1^^0"
^DD(53.4104,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits."
^DD(53.4104,.01,8.5)="^"
^DD(53.4104,.01,9)="^"
^DD(53.4104,.01,20,0)="^.3LA^1^1"
^DD(53.4104,.01,20,1,0)="PSJU"
^DD(53.4104,.01,21,0)="^^1^1^2910305^"
^DD(53.4104,.01,21,1,0)="  This is the order for which the label was created."
^DD(53.4104,1,0)="LABEL WARD^P59.6'^PS(59.6,^0;2^Q"
^DD(53.4104,1,20,0)="^.3LA^1^1"
^DD(53.4104,1,20,1,0)="PSJU"
^DD(53.4104,1,21,0)="^^2^2^2911023^^^"
^DD(53.4104,1,21,1,0)="  This is the ward the patient was assigned to when the label record was"
^DD(53.4104,1,21,2,0)="created."
^DD(53.4104,1,23,0)="^^3^3^2911023^"
^DD(53.4104,1,23,1,0)="  This is set by ENL^PSGVDS, to be the pointer to the INPATIENT WARD"
^DD(53.4104,1,23,2,0)="PARAMETER file (59.6).  This contains the data as to how long the label"
^DD(53.4104,1,23,3,0)="record will exist before being deleted by the nightly background job."
^DD(53.4104,1,"DT")="2911023"
^DD(53.4104,2,0)="DATE/TIME LABEL CREATED^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.4104,2,20,0)="^.3LA^1^1"
^DD(53.4104,2,20,1,0)="PSJU"
^DD(53.4104,2,21,0)="^^1^1^2910305^^"
^DD(53.4104,2,21,1,0)="  This is the date and time the label record was created."
^DD(53.4104,2,"DT")="2890323"
^DD(53.4104,"B","DATE/TIME LABEL CREATED",2)=""
^DD(53.4104,"B","LABEL WARD",1)=""
^DD(53.4104,"B","ORDER NUMBER",.01)=""
^DD(53.4104,"GL",0,1,.01)=""
^DD(53.4104,"GL",0,2,1)=""
^DD(53.4104,"GL",0,3,2)=""
^DD(53.4104,"GR","PSJU",.01,1)=""
^DD(53.4104,"GR","PSJU",1,1)=""
^DD(53.4104,"GR","PSJU",2,1)=""
^DD(53.4104,"RQ",.01)=""
^DD(53.42,0)="FIELD^^1^2"
^DD(53.42,0,"NM","INPATIENT BACKGROUND JOB")=""
^DD(53.42,0,"VR")="5.0"
^DD(53.42,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.42,.01,0)="START DATE/TIME^MRDX^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(53.42,.01,1,0)="^.1^^0"
^DD(53.42,.01,3)=""
^DD(53.42,.01,20,0)="^.3LA^1^1"
^DD(53.42,.01,20,1,0)="PSJU"
^DD(53.42,.01,21,0)="^^1^1^2910306^^"
^DD(53.42,.01,21,1,0)="  This is the date and time a background job was started."
^DD(53.42,.01,"DT")="2901212"
^DD(53.42,1,0)="FINISH DATE/TIME^MD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.42,1,20,0)="^.3LA^1^1"
^DD(53.42,1,20,1,0)="PSJU"
^DD(53.42,1,21,0)="^^1^1^2910306^^"
^DD(53.42,1,21,1,0)="  This is the date and time the background job was finished."
^DD(53.42,"B","FINISH DATE/TIME",1)=""
^DD(53.42,"B","START DATE/TIME",.01)=""
^DD(53.42,"GL",0,1,.01)=""
^DD(53.42,"GL",0,2,1)=""
^DD(53.42,"GR","PSJU",.01,1)=""
^DD(53.42,"GR","PSJU",1,1)=""
^DD(53.42,"RQ",.01)=""
^DD(53.43,0)="FIELD^^1^2"
^DD(53.43,0,"NM","MISCELLANEOUS REPORT FILE")=""
^DD(53.43,0,"VR")="5.0"
^DD(53.43,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.43,.01,0)="TYPE OF REPORT^RSX^1:PATIENT ORDER PURGE;^0;1^S DINUM=X"
^DD(53.43,.01,1,0)="^.1^^0"
^DD(53.43,.01,3)=""
^DD(53.43,.01,20,0)="^.3LA^1^1"
^DD(53.43,.01,20,1,0)="PSJU"
^DD(53.43,.01,21,0)="^^1^1^2910306^"
^DD(53.43,.01,21,1,0)="  This is the type of report that has data in this file."
^DD(53.43,1,0)="REPORT NUMBER^53.4301A^^1;0"
^DD(53.43,1,20,0)="^.3LA^1^1"
^DD(53.43,1,20,1,0)="PSJU"
^DD(53.43,1,21,0)="^^2^2^2910306^^"
^DD(53.43,1,21,1,0)="  This is a unique indentifier to separate the reports from each other"
^DD(53.43,1,21,2,0)="just in case more than one is running at the same time."
^DD(53.43,"B","REPORT NUMBER",1)=""
^DD(53.43,"B","TYPE OF REPORT",.01)=""
^DD(53.43,"GL",0,1,.01)=""
^DD(53.43,"GL",1,0,1)=""
^DD(53.43,"GR","PSJU",.01,1)=""
^DD(53.43,"GR","PSJU",1,1)=""
^DD(53.43,"RQ",.01)=""
^DD(53.43,"SB",53.4301,1)=""
^DD(53.4301,0)="REPORT NUMBER SUB-FIELD^^1^2"
^DD(53.4301,0,"NM","REPORT NUMBER")=""
^DD(53.4301,0,"UP")="53.43"
^DD(53.4301,.01,0)="REPORT NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.4301,.01,1,0)="^.1^^0"
^DD(53.4301,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(53.4301,.01,20,0)="^.3LA^1^1"
^DD(53.4301,.01,20,1,0)="PSJU"
^DD(53.4301,.01,21,0)="^^2^2^2910306^^"
^DD(53.4301,.01,21,1,0)="  This is a unique identifier to separate the reports from each other just"
^DD(53.4301,.01,21,2,0)="in case more than one is running at the same time."
^DD(53.4301,1,0)="PATIENT^53.43011PA^^1;0"
^DD(53.4301,1,20,0)="^.3LA^1^1"
^DD(53.4301,1,20,1,0)="PSJU"
^DD(53.4301,1,21,0)="^^1^1^2920610^"
^DD(53.4301,1,21,1,0)="  This identifies the patients for whom the data is being gathered."
^DD(53.4301,"B","PATIENT",1)=""
^DD(53.4301,"B","REPORT NUMBER",.01)=""
^DD(53.4301,"GL",0,1,.01)=""
^DD(53.4301,"GL",1,0,1)=""
^DD(53.4301,"GR","PSJU",.01,1)=""
^DD(53.4301,"GR","PSJU",1,1)=""
^DD(53.4301,"RQ",.01)=""
^DD(53.4301,"SB",53.43011,1)=""
^DD(53.43011,0)="PATIENT SUB-FIELD^^1^2"
^DD(53.43011,0,"NM","PATIENT")=""
^DD(53.43011,0,"UP")="53.4301"
^DD(53.43011,.01,0)="PATIENT^RP2'X^DPT(^0;1^S DINUM=X"
^DD(53.43011,.01,1,0)="^.1^^0"
^DD(53.43011,.01,20,0)="^.3LA^1^1"
^DD(53.43011,.01,20,1,0)="PSJU"
^DD(53.43011,.01,21,0)="^^1^1^2920610^^"
^DD(53.43011,.01,21,1,0)="  This is the patient for whom the data is being gathered."
^DD(53.43011,1,0)="UNIT DOSE ORDERS PURGED (#)^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.43011,1,3)="Type a Number between 0 and 999999999, 0 Decimal Digits."
^DD(53.43011,1,20,0)="^.3LA^1^1"
^DD(53.43011,1,20,1,0)="PSJU"
^DD(53.43011,1,21,0)="^^1^1^2910306^"
^DD(53.43011,1,21,1,0)="  This is the number of orders purged for this patient."
^DD(53.43011,"B","PATIENT",.01)=""
^DD(53.43011,"B","UNIT DOSE ORDERS PURGED (#)",1)=""
^DD(53.43011,"GL",0,1,.01)=""
^DD(53.43011,"GL",0,2,1)=""
^DD(53.43011,"GR","PSJU",.01,1)=""
^DD(53.43011,"GR","PSJU",1,1)=""
^DD(53.43011,"RQ",.01)=""
^DD(53.44,0)="FIELD^^1^2"
^DD(53.44,0,"DT")="2910708"
^DD(53.44,0,"NM","PHYSICIANS' ORDERS")=""
^DD(53.44,0,"VR")="5.0"
^DD(53.44,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.44,.01,0)="USER^RP200'X^VA(200,^0;1^S:$D(X) DINUM=X"
^DD(53.44,.01,.1)="PROVIDER"
^DD(53.44,.01,1,0)="^.1^^0"
^DD(53.44,.01,3)=""
^DD(53.44,.01,20,0)="^.3LA^1^1"
^DD(53.44,.01,20,1,0)="PSJU"
^DD(53.44,.01,21,0)="^^1^1^2910306^^^"
^DD(53.44,.01,21,1,0)="  This is the provider who directly entered orders."
^DD(53.44,.01,"DT")="2910708"
^DD(53.44,1,0)="PATIENT^53.4401P^^1;0"
^DD(53.44,1,20,0)="^.3LA^1^1"
^DD(53.44,1,20,1,0)="PSJU"
^DD(53.44,1,21,0)="^^1^1^2920514^"
^DD(53.44,1,21,1,0)="  This is the patients for whose orders a physician has taken action on."
^DD(53.44,"B","PATIENT",1)=""
^DD(53.44,"B","PROVIDER",.01)="1"
^DD(53.44,"B","USER",.01)=""
^DD(53.44,"GL",0,1,.01)=""
^DD(53.44,"GL",1,0,1)=""
^DD(53.44,"GR","PSJU",.01,1)=""
^DD(53.44,"GR","PSJU",1,1)=""
^DD(53.44,"RQ",.01)=""
^DD(53.44,"SB",53.4401,1)=""
^DD(53.4401,0)="PATIENT SUB-FIELD^^1^2"
^DD(53.4401,0,"NM","PATIENT")=""
^DD(53.4401,0,"UP")="53.44"
^DD(53.4401,.01,0)="PATIENT^MRP2'X^DPT(^0;1^S:$D(X) DINUM=X Q"
^DD(53.4401,.01,1,0)="^.1^^0"
^DD(53.4401,.01,20,0)="^.3LA^1^1"
^DD(53.4401,.01,20,1,0)="PSJU"
^DD(53.4401,.01,21,0)="^^1^1^2910306^^"
^DD(53.4401,.01,21,1,0)="  This the patient for whom the provider has entered orders."
^DD(53.4401,1,0)="ORDER^53.4402^^1;0"
^DD(53.4401,1,20,0)="^.3LA^1^1"
^DD(53.4401,1,20,1,0)="PSJU"
^DD(53.4401,1,21,0)="^^1^1^2920514^"
^DD(53.4401,1,21,1,0)="  This is the patient's order on which a physician has taken action."
^DD(53.4401,"B","ORDER",1)=""
^DD(53.4401,"B","PATIENT",.01)=""
^DD(53.4401,"GL",0,1,.01)=""
^DD(53.4401,"GL",1,0,1)=""
^DD(53.4401,"GR","PSJU",.01,1)=""
^DD(53.4401,"GR","PSJU",1,1)=""
^DD(53.4401,"RQ",.01)=""
^DD(53.4401,"SB",53.4402,1)=""
^DD(53.4402,0)="ORDER SUB-FIELD^^2^3"
^DD(53.4402,0,"IX","AA",53.4402,1)=""
^DD(53.4402,0,"IX","B",53.4402,.01)=""
^DD(53.4402,0,"NM","ORDER")=""
^DD(53.4402,0,"UP")="53.4401"
^DD(53.4402,.01,0)="ORDER^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>33!($L(X)<2)!'(X?1.N1.A) X"
^DD(53.4402,.01,1,0)="^.1"
^DD(53.4402,.01,1,1,0)="53.4402^B"
^DD(53.4402,.01,1,1,1)="S ^PS(53.44,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.4402,.01,1,1,2)="K ^PS(53.44,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.4402,.01,3)="Answer must be 2-33 characters in length."
^DD(53.4402,.01,20,0)="^.3LA^1^1"
^DD(53.4402,.01,20,1,0)="PSJU"
^DD(53.4402,.01,21,0)="^^1^1^2910306^^"
^DD(53.4402,.01,21,1,0)="  This is the order entered by the provider."
^DD(53.4402,.01,"DT")="2900427"
^DD(53.4402,1,0)="ACTION^S^W:NEW ORDER;C:CANCEL ORDER;R:RENEW ORDER;^0;2^Q"
^DD(53.4402,1,1,0)="^.1"
^DD(53.4402,1,1,1,0)="53.4402^AA"
^DD(53.4402,1,1,1,1)="S ^PS(53.44,DA(2),1,DA(1),1,""AA"",$E(X,1,30),DA)="""""
^DD(53.4402,1,1,1,2)="K ^PS(53.44,DA(2),1,DA(1),1,""AA"",$E(X,1,30),DA)"
^DD(53.4402,1,3)=""
^DD(53.4402,1,20,0)="^.3LA^1^1"
^DD(53.4402,1,20,1,0)="PSJU"
^DD(53.4402,1,21,0)="^^1^1^2910306^^"
^DD(53.4402,1,21,1,0)="  This is the action requested by the provider to take place on the order."
^DD(53.4402,1,21,2,0)="in the Pharmacy Patient file (55)."
^DD(53.4402,1,"DT")="2900501"
^DD(53.4402,2,0)="DATE/TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.4402,2,21,0)="^^1^1^2910306^"
^DD(53.4402,2,21,1,0)="  This is the date and time that the provider requested the action."
^DD(53.4402,2,"DT")="2900427"
^DD(53.4402,"B","ACTION",1)=""
^DD(53.4402,"B","DATE/TIME",2)=""
^DD(53.4402,"B","ORDER",.01)=""
^DD(53.4402,"GL",0,1,.01)=""
^DD(53.4402,"GL",0,2,1)=""
^DD(53.4402,"GL",0,3,2)=""
^DD(53.4402,"GR","PSJU",.01,1)=""
^DD(53.4402,"GR","PSJU",1,1)=""
^DD(53.4402,"IX",.01)=""
^DD(53.4402,"IX",1)=""
^DD(53.45,0)="FIELD^^4^16"
^DD(53.45,0,"DDA")="N"
^DD(53.45,0,"DT")="2960726"
^DD(53.45,0,"NM","INPATIENT USER PARAMETERS")=""
^DD(53.45,0,"VR")="5.0"
^DD(53.45,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.45,.01,0)="INPATIENT USER^RP200'^VA(200,^0;1^S DINUM=X"
^DD(53.45,.01,1,0)="^.1^^0"
^DD(53.45,.01,3)="Select an Inpatient user."
^DD(53.45,.01,20,0)="^.3LA^1^1"
^DD(53.45,.01,20,1,0)="PSJ"
^DD(53.45,.01,21,0)="^^1^1^2911025^"
^DD(53.45,.01,21,1,0)="  This is a user for whom the Inpatient Medications package can be tailored."
^DD(53.45,.01,"DT")="2921109"
^DD(53.45,.01,"LAYGO",1,0)="S X(1)=$D(^PS(53.45,""B"",$E(X,1,30))) S:X(1) X(2)=$P($G(^VA(200,+X,0)),""^"") S:$S(X(1):X(2)="""",1:0) X(2)=X D:X(1) EN^DDIOL(""But an entry for ""_X(2)_"" already exists!"") I 'X(1)"
^DD(53.45,.02,0)="MAY SELECT DISPENSE DRUGS^S^0:NO;1:YES;^0;2^Q"
^DD(53.45,.02,3)="Answer 'YES' if this user can select dispense drugs when entering orders."
^DD(53.45,.02,20,0)="^.3LA^1^1"
^DD(53.45,.02,20,1,0)="PSJ"
^DD(53.45,.02,21,0)="^^4^4^2970219^"
^DD(53.45,.02,21,1,0)="  Unless the user is a pharmacist, the user can be set up to allow Unit"
^DD(53.45,.02,21,2,0)="Dose orders to be entered by Orderable Item or Dispense Drug. If selection"
^DD(53.45,.02,21,3,0)="is by dispense drug the order's Orderable Item will be determined based on"
^DD(53.45,.02,21,4,0)="that dispense drug."
^DD(53.45,.02,23,0)="^^5^5^2970219^^"
^DD(53.45,.02,23,1,0)="  When entering new Unit Dose orders pharmacists select directly from the"
^DD(53.45,.02,23,2,0)="DRUG file (#50). The order's Orderable Item is determined from the"
^DD(53.45,.02,23,3,0)="Orderable Item assigned to the entry selected from the DRUG file (#50)."
^DD(53.45,.02,23,4,0)="Users who are not identified as pharmacists may only select from the"
^DD(53.45,.02,23,5,0)="PHARMACY ORDERABLE ITEM file (#50.7) unless this field is set to 'YES'."
^DD(53.45,.02,"DT")="2910820"
^DD(53.45,.03,0)="ALLOW USER TO RENEW ORDERS^S^1:YES;0:NO;^0;3^Q"
^DD(53.45,.03,3)="Answer 'YES' to allow this ward clerk (or pharmacy technician) to renew orders."
^DD(53.45,.03,20,0)="^.3LA^1^1"
^DD(53.45,.03,20,1,0)="PSJ"
^DD(53.45,.03,21,0)="^^3^3^2911127^^^^"
^DD(53.45,.03,21,1,0)="  If this is set to 'YES', this ward clerk/pharmacy technician may "
^DD(53.45,.03,21,2,0)="actually renew orders for patients on this ward. If this is set to 'NO' "
^DD(53.45,.03,21,3,0)="(or not set), this clerk/technician can only mark orders to be renewed. "
^DD(53.45,.03,23,0)="^^3^3^2911127^^^"
^DD(53.45,.03,23,1,0)="  For ward clerks and pharmacy technicians.  Used by the renewal routines to"
^DD(53.45,.03,23,2,0)="determine if the user can renew orders or only mark the orders to be renewed"
^DD(53.45,.03,23,3,0)="later by a nurse or pharmacist.  Can only be edited by a supervisor."
^DD(53.45,.03,"DT")="2920119"
^DD(53.45,.04,0)="ALLOW USER TO HOLD ORDERS^S^1:YES;0:NO;^0;4^Q"
^DD(53.45,.04,3)="Answer 'YES' to allow this ward clerk/pharmacy technician to hold/unhold orders."
^DD(53.45,.04,20,0)="^.3LA^1^1"
^DD(53.45,.04,20,1,0)="PSJ"
^DD(53.45,.04,21,0)="^^4^4^2911127^^^^"
^DD(53.45,.04,21,1,0)="  If this is set to 'YES', this ward clerk/pharmacy technician may actually"
^DD(53.45,.04,21,2,0)="place Inpatient orders on hold or take orders off of hold.  If this is set"
^DD(53.45,.04,21,3,0)="to 'NO' (or not set), this clerk/technician can only mark orders for "
^DD(53.45,.04,21,4,0)="hold/unhold, and only a pharmacist or nurse can hold/unhold the orders."
^DD(53.45,.04,23,0)="^^3^3^2911127^^^^"
^DD(53.45,.04,23,1,0)="  Used by the hold routines to determine if this ward clerk/pharmacy"
^DD(53.45,.04,23,2,0)="technician can actually place an order on hold or take an order off of"
^DD(53.45,.04,23,3,0)="hold.  Can only be set by a supervisor."
^DD(53.45,.04,"DT")="2920119"
^DD(53.45,.05,0)="ALLOW USER TO D/C ORDERS^S^1:YES;0:NO;^0;5^Q"
^DD(53.45,.05,3)="Answer 'YES' to allow this ward clerk/pharmacy technician to discontinue orders."
^DD(53.45,.05,20,0)="^.3LA^1^1"
^DD(53.45,.05,20,1,0)="PSJ"
^DD(53.45,.05,21,0)="^^3^3^2911127^^^^"
^DD(53.45,.05,21,1,0)="  If this is set to 'YES', this ward clerk/pharmacy technician may actually"
^DD(53.45,.05,21,2,0)="cancel patients' Inpatient orders.  If this is set to 'NO' (or not set),"
^DD(53.45,.05,21,3,0)="this clerk/technician can only mark orders to be cancelled by another user."
^DD(53.45,.05,23,0)="^^3^3^2911127^^^^"
^DD(53.45,.05,23,1,0)="  For ward clerks and pharmacy technicians.  Used by the cancel routines to"
^DD(53.45,.05,23,2,0)="determine if the user can cancel orders or only mark the orders to be"
^DD(53.45,.05,23,3,0)="canceled later by another user.  Can only be set by a supervisor."
^DD(53.45,.05,"DT")="2920709"
^DD(53.45,.06,0)="PRINT PROFILE IN ORDER ENTRY^S^1:YES;0:NO;^0;6^Q"
^DD(53.45,.06,.1)=""
^DD(53.45,.06,3)="Answer 'YES"" for the opportunity to print a profile after entering Unit Dose orders for a patient."
^DD(53.45,.06,20,0)="^.3LA^1^1"
^DD(53.45,.06,20,1,0)="PSJ"
^DD(53.45,.06,21,0)="^^2^2^2911127^^"
^DD(53.45,.06,21,1,0)="  If you answer 'YES' here, you will be given the opportunity to print a"
^DD(53.45,.06,21,2,0)="profile for a patient after entering Unit Dose orders for the patient."
^DD(53.45,.06,23,0)="^^3^3^2911127^"
^DD(53.45,.06,23,1,0)="  Used by the order entry routines to determine if the user should be"
^DD(53.45,.06,23,2,0)="given the opportunity to print a profile for a patient after entering"
^DD(53.45,.06,23,3,0)="orders for the patient.  Can be set by the user."
^DD(53.45,.06,"DT")="2911127"
^DD(53.45,.07,0)="*LABEL PRINTER^FX^^0;7^K:$L(X)>20!($L(X)<1) X I $G(X)]"""" D ENDLP^PSGSET"
^DD(53.45,.07,1)="20^30^40^50"
^DD(53.45,.07,3)="Select the device to which you want your labels to print."
^DD(53.45,.07,4)=""
^DD(53.45,.07,20,0)="^.3LA^1^1"
^DD(53.45,.07,20,1,0)="PSJ"
^DD(53.45,.07,21,0)="^^3^3^2980415^^^^"
^DD(53.45,.07,21,1,0)="  This is a device to which labels created by this user will print.  If a"
^DD(53.45,.07,21,2,0)="device is entered here, it will be used instead of any device selected for"
^DD(53.45,.07,21,3,0)="the ward or pharmacy to print label created by this user."
^DD(53.45,.07,23,0)="^^3^3^2980415^^^^"
^DD(53.45,.07,23,1,0)="  This is the device the user selects for label printing.  If the user does"
^DD(53.45,.07,23,2,0)="enter a device here, that device will be used instead any device selected"
^DD(53.45,.07,23,3,0)="for the ward or pharmacy.  This can be edited by the user."
^DD(53.45,.07,"DT")="2980515"
^DD(53.45,.08,0)="TYPE OF USER^S^3:PHARMACIST;2:PHARMACY TECHNICIAN;1:NURSE;0:WARD STAFF;^0;8^Q"
^DD(53.45,.08,3)="Is this user a Pharmacist, Nurse, Pharmacy Technician, or Ward Staff?"
^DD(53.45,.08,20,0)="^.3LA^1^1"
^DD(53.45,.08,20,1,0)="PSJ"
^DD(53.45,.08,21,0)="4"
^DD(53.45,.08,21,1,0)="  This is used to define what type of user this user is.  The type of"
^DD(53.45,.08,21,2,0)="user helps define what actions the user can or cannot take on Inpatient "
^DD(53.45,.08,21,3,0)="Medications orders.  If no entry is made here, the user is assumed to"
^DD(53.45,.08,21,4,0)="be WARD STAFF."
^DD(53.45,.08,23,0)="^^2^2^2911129^^"
^DD(53.45,.08,23,1,0)="  This allows the supervisor to define what type of user the site's users"
^DD(53.45,.08,23,2,0)="are to the package.  This is only editable by the supervisor."
^DD(53.45,.08,"DT")="2911129"
^DD(53.45,.09,0)="ALLOW AUTO-VERIFY FOR USER^S^1:YES;0:NO;^0;9^Q"
^DD(53.45,.09,3)="Answer 'YES' if verification can be automatic when this user enters orders."
^DD(53.45,.09,20,0)="^.3LA^1^1"
^DD(53.45,.09,20,1,0)="PSJ"
^DD(53.45,.09,21,0)="^^3^3^2911129^"
^DD(53.45,.09,21,1,0)="  This is used to determine if the user can enter Unit Dose orders as"
^DD(53.45,.09,21,2,0)="ACTIVE, allowing the user to skip the extra step of manually verifying"
^DD(53.45,.09,21,3,0)="those orders entered by this user."
^DD(53.45,.09,23,0)="^^3^3^2911129^"
^DD(53.45,.09,23,1,0)="  If this is set to 'YES' for a user that has been designated as a nurse"
^DD(53.45,.09,23,2,0)="or pharmacist, orders entered by this user will be transcribed as ACTIVE"
^DD(53.45,.09,23,3,0)="(by the routine PSGOETO).  This is editable only by the supervisor."
^DD(53.45,.09,"DT")="2911129"
^DD(53.45,.1,0)="USE WARD LABEL SETTINGS^S^1:YES;0:NO;^0;10^Q"
^DD(53.45,.1,3)="Answer 'YES' to have any labels created by your actions print on the printer designated for the ward instead of the printer designated for the pharmacy."
^DD(53.45,.1,20,0)="^.3LA^1^1"
^DD(53.45,.1,20,1,0)="PSJ"
^DD(53.45,.1,21,0)="^^6^6^2911205^^^^"
^DD(53.45,.1,21,1,0)="  This allows the pharmacist (or pharmacy technician) that may be working "
^DD(53.45,.1,21,2,0)="on the ward(s) to use the label settings defined for the ward(s) instead "
^DD(53.45,.1,21,3,0)="of the label setting defined for the pharmacy."
^DD(53.45,.1,21,4,0)="  PLEASE NOTE that if you have defined a LABEL PRINTER, that printer will"
^DD(53.45,.1,21,5,0)="always be used to print labels instead of either the ward or pharmacy label"
^DD(53.45,.1,21,6,0)="printer."
^DD(53.45,.1,23,0)="^^8^8^2911205^^^"
^DD(53.45,.1,23,1,0)="  This allows pharmacists and pharmacy technicians to use the label settings"
^DD(53.45,.1,23,2,0)="defined for the ward(s) instead of those label setting defined for th"
^DD(53.45,.1,23,3,0)="pharmacy.  This is most useful when the pharmacist or tech is working mostly"
^DD(53.45,.1,23,4,0)="on the wards.  This is editable by the user, but only those users designated"
^DD(53.45,.1,23,5,0)="as either a pharmacist or tech."
^DD(53.45,.1,23,6,0)="  PLEASE NOTE that if the user has defined a LABEL PRINTER (field #7), that"
^DD(53.45,.1,23,7,0)="printer is always used instead of either the ward label printer or the"
^DD(53.45,.1,23,8,0)="pharmacy printer."
^DD(53.45,.1,"DT")="2911205"
^DD(53.45,.11,0)="INPATIENT PROFILE ORDER SORT^S^0:MEDICATION NAME;1:START DATE OF ORDER;^0;11^Q"
^DD(53.45,.11,.1)=""
^DD(53.45,.11,3)="Enter how the Inpatient profile is to sort and show orders."
^DD(53.45,.11,20,0)="^.3LA^1^1"
^DD(53.45,.11,20,1,0)="PSJ"
^DD(53.45,.11,21,0)="^^8^8^2911203^^^"
^DD(53.45,.11,21,1,0)="  This is the sort order in which the Inpatient Profile will show"
^DD(53.45,.11,21,2,0)="inpatient orders.  Enter 'MEDICATION NAME' (or '0') to show the orders"
^DD(53.45,.11,21,3,0)="alphabetically by drug name.  Enter 'START DATE OF ORDER' (or '1') to show"
^DD(53.45,.11,21,4,0)="the orders chronologically by start date, with the most recent dates"
^DD(53.45,.11,21,5,0)="showing first."
^DD(53.45,.11,21,6,0)="  PLEASE NOTE - The profile will always first show orders by status"
^DD(53.45,.11,21,7,0)="(active, non-verified, and then non-active), and within status, schedule"
^DD(53.45,.11,21,8,0)="type (continuous, one-time, and then PRN)."
^DD(53.45,.11,23,0)="^^4^4^2911203^"
^DD(53.45,.11,23,1,0)="  This allows the user to define the order in which Inpatient Medications"
^DD(53.45,.11,23,2,0)="orders are shown on an Inpatient profile.  This is also used by the"
^DD(53.45,.11,23,3,0)="Inpatient profile shown in the LABEL PRINT/REPRINT option.  This is editable"
^DD(53.45,.11,23,4,0)="by the user."
^DD(53.45,.11,"DT")="2911203"
^DD(53.45,.12,0)="ORDER ENTRY PROCESS^S^0:REGULAR;1:ABBREVIATED;2:WARD;^0;12^Q"
^DD(53.45,.12,.1)=""
^DD(53.45,.12,3)="Enter the type of Unit Dose order entry to be used by this user."
^DD(53.45,.12,20,0)="^.3LA^1^1"
^DD(53.45,.12,20,1,0)="PSJU"
^DD(53.45,.12,21,0)="^^15^15^2920323^^^^"
^DD(53.45,.12,21,1,0)="  This is the type of order entry process to be used by this user.  The"
^DD(53.45,.12,21,2,0)="REGULAR order entry is the full set of prompts for the entry of an order,"
^DD(53.45,.12,21,3,0)="after which the user is shown a full view of the order and allowed to take "
^DD(53.45,.12,21,4,0)="immediate action on the order. The ABBREVIATED order entry gives the user "
^DD(53.45,.12,21,5,0)="fewer prompts for the entry of an order, after which the user is shown a "
^DD(53.45,.12,21,6,0)="full view of the order and is allowed to take immediate action on the order."
^DD(53.45,.12,21,7,0)="The WARD order entry gives the user the same prompts as the ABBREVIATED"
^DD(53.45,.12,21,8,0)="order entry, but then gives a brief view of the entered order and does"
^DD(53.45,.12,21,9,0)="not allow immediate action to be taken on the order.  No entry here is the "
^DD(53.45,.12,21,10,0)="same as selecting REGULAR order entry."
^DD(53.45,.12,21,11,0)=" "
^DD(53.45,.12,21,12,0)="  This does not affect the entering of Inpatient Medication orders through"
^DD(53.45,.12,21,13,0)="the Order Entry/Results Reporting (OE/RR) package.  This is only for the"
^DD(53.45,.12,21,14,0)="entering of Unit Dose orders through the Unit Dose Order Entry option and"
^DD(53.45,.12,21,15,0)="the Inpatient Order Entry option."
^DD(53.45,.12,23,0)="^^3^3^2920323^^"
^DD(53.45,.12,23,1,0)="  This is used by the Unit Dose order entry functionality to determine the"
^DD(53.45,.12,23,2,0)="order entry process to be given each user.  This is referenced in the routines"
^DD(53.45,.12,23,3,0)="PSGOE0 and PSJOE0.  This does not affect OE/RR."
^DD(53.45,.12,"DT")="2920125"
^DD(53.45,.13,0)="LABEL PRINTER POINTER^P3.5'^%ZIS(1,^0;13^Q"
^DD(53.45,.13,3)="Select the device to which labels created by this user will print."
^DD(53.45,.13,21,0)="^^3^3^2980408^^"
^DD(53.45,.13,21,1,0)="This is a device to which labels created by this user will print. If a"
^DD(53.45,.13,21,2,0)="device is entered here, it will be used instead of any device selected for"
^DD(53.45,.13,21,3,0)="the ward or pharmacy to print labels created by this user."
^DD(53.45,.13,23,0)="^^3^3^2980408^"
^DD(53.45,.13,23,1,0)="This is the device the user selects for label printing. If the user does"
^DD(53.45,.13,23,2,0)="enter a device here, that device will be used instead of any device"
^DD(53.45,.13,23,3,0)="selected for the ward or pharmacy. This can be edited by the user."
^DD(53.45,.13,"DT")="2980408"
^DD(53.45,1,0)="COMMENTS^53.4501^^1;0"
^DD(53.45,1,20,0)="^.3LA^1^1"
^DD(53.45,1,20,1,0)="PSJ"
^DD(53.45,1,21,0)="^^2^2^2920514^^"
^DD(53.45,1,21,1,0)="  These are any comments, notes, instructions, etc. that a user may enter"
^DD(53.45,1,21,2,0)="for an order."
^DD(53.45,1,23,0)="^^2^2^2920514^^"
^DD(53.45,1,23,1,0)="  Used by the Inpatient Medications package as temporary storage when"
^DD(53.45,1,23,2,0)="processing orders.  This should not be directly accessed by any user."
^DD(53.45,2,0)="DISPENSE DRUG^53.4502P^^2;0"
^DD(53.45,2,20,0)="^.3LA^1^1"
^DD(53.45,2,20,1,0)="PSJ"
^DD(53.45,2,21,0)="^.001^2^2^3051201^^^^"
^DD(53.45,2,21,1,0)="  This is the medication(s) that will actually be dispensed by the pharmacy"
^DD(53.45,2,21,2,0)="for the Unit Dose order."
^DD(53.45,2,23,0)="^.001^2^2^3051201^^^^"
^DD(53.45,2,23,1,0)="  Used by the Inpatient Medications package as temporary storage when"
^DD(53.45,2,23,2,0)="processing orders.  This should not be directly accessed by the user."
^DD(53.45,2,"DT")="2971209"
^DD(53.45,4,0)="PROVIDER COMMENTS^53.4504^^4;0"
^DD(53.45,4,20,0)="^.3LA^1^1"
^DD(53.45,4,20,1,0)="PSJ"
^DD(53.45,4,21,0)="^^2^2^2920113^^"
^DD(53.45,4,21,1,0)="  This is any comments about the order that the provider needs to pass"
^DD(53.45,4,21,2,0)="along to the pharmacy and/or ward personnel."
^DD(53.45,4,23,0)="^^4^4^2920113^^^"
^DD(53.45,4,23,1,0)="  This is used by the Inpatient Medications package as temporary storage"
^DD(53.45,4,23,2,0)="when processing orders to provide rudimentary transactional processing."
^DD(53.45,4,23,3,0)="Any data found here is deleted prior to each time this is used.  This"
^DD(53.45,4,23,4,0)="should not be directly edited."
^DD(53.45,"B","*LABEL PRINTER",.07)=""
^DD(53.45,"B","ALLOW AUTO-VERIFY FOR USER",.09)=""
^DD(53.45,"B","ALLOW USER TO D/C ORDERS",.05)=""
^DD(53.45,"B","ALLOW USER TO HOLD ORDERS",.04)=""
^DD(53.45,"B","ALLOW USER TO RENEW ORDERS",.03)=""
^DD(53.45,"B","COMMENTS",1)=""
^DD(53.45,"B","DISPENSE DRUG",2)=""
^DD(53.45,"B","INPATIENT PROFILE ORDER SORT",.11)=""
^DD(53.45,"B","INPATIENT USER",.01)=""
^DD(53.45,"B","LABEL PRINTER POINTER",.13)=""
^DD(53.45,"B","MAY SELECT DISPENSE DRUGS",.02)=""
^DD(53.45,"B","ORDER ENTRY PROCESS",.12)=""
^DD(53.45,"B","PRINT PROFILE IN ORDER ENTRY",.06)=""
^DD(53.45,"B","PROVIDER COMMENTS",4)=""
^DD(53.45,"B","TYPE OF USER",.08)=""
^DD(53.45,"B","USE WARD LABEL SETTINGS",.1)=""
^DD(53.45,"GL",0,1,.01)=""
^DD(53.45,"GL",0,2,.02)=""
^DD(53.45,"GL",0,3,.03)=""
^DD(53.45,"GL",0,4,.04)=""
^DD(53.45,"GL",0,5,.05)=""
^DD(53.45,"GL",0,6,.06)=""
^DD(53.45,"GL",0,7,.07)=""
^DD(53.45,"GL",0,8,.08)=""
^DD(53.45,"GL",0,9,.09)=""
^DD(53.45,"GL",0,10,.1)=""
^DD(53.45,"GL",0,11,.11)=""
^DD(53.45,"GL",0,12,.12)=""
^DD(53.45,"GL",0,13,.13)=""
^DD(53.45,"GL",1,0,1)=""
^DD(53.45,"GL",2,0,2)=""
^DD(53.45,"GL",4,0,4)=""
^DD(53.45,"GR","PSJ",.01,1)=""
^DD(53.45,"GR","PSJ",.02,1)=""
^DD(53.45,"GR","PSJ",.03,1)=""
^DD(53.45,"GR","PSJ",.04,1)=""
^DD(53.45,"GR","PSJ",.05,1)=""
^DD(53.45,"GR","PSJ",.06,1)=""
^DD(53.45,"GR","PSJ",.07,1)=""
^DD(53.45,"GR","PSJ",.08,1)=""
^DD(53.45,"GR","PSJ",.09,1)=""
^DD(53.45,"GR","PSJ",.1,1)=""
^DD(53.45,"GR","PSJ",.11,1)=""
^DD(53.45,"GR","PSJ",1,1)=""
^DD(53.45,"GR","PSJ",2,1)=""
^DD(53.45,"GR","PSJ",4,1)=""
^DD(53.45,"GR","PSJU",.12,1)=""
^DD(53.45,"RQ",.01)=""
^DD(53.45,"SB",53.4501,1)=""
^DD(53.45,"SB",53.4502,2)=""
^DD(53.45,"SB",53.4504,4)=""
^DD(53.4501,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(53.4501,0,"DT")="2910702"
^DD(53.4501,0,"NM","COMMENTS")=""
^DD(53.4501,0,"UP")="53.45"
^DD(53.4501,.01,0)="COMMENTS^W^^0;1^Q"
^DD(53.4501,.01,20,0)="^.3LA^1^1"
^DD(53.4501,.01,20,1,0)="PSJ"
^DD(53.4501,.01,21,0)="^^2^2^2920514^"
^DD(53.4501,.01,21,1,0)="  This is any comments, notes, instructions, etc. that a user may enter"
^DD(53.4501,.01,21,2,0)="for an order."
^DD(53.4501,.01,"DT")="2910702"
^DD(53.4501,"B","COMMENTS",.01)=""
^DD(53.4501,"GL",0,1,.01)=""
^DD(53.4501,"GR","PSJ",.01,1)=""
^DD(53.4502,0)="DISPENSE DRUG SUB-FIELD^^.03^3"
^DD(53.4502,0,"DT")="2960726"
^DD(53.4502,0,"IX","B",53.4502,.01)=""
^DD(53.4502,0,"NM","DISPENSE DRUG")=""
^DD(53.4502,0,"UP")="53.45"
^DD(53.4502,.01,0)="DISPENSE DRUG^M*P50'X^PSDRUG(^0;1^S DIC(""S"")=""I $P($G(^(2)),U,3)[""""U"""",$S('$G(PSGPDRG):1,1:PSGPDRG=+$G(^(2))) I (($G(^PSDRUG(+$G(Y),""""I""""))>(DT-1))!'$G(^PSDRUG(+$G(Y),""""I"""")))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(53.4502,.01,1,0)="^.1"
^DD(53.4502,.01,1,1,0)="53.4502^B"
^DD(53.4502,.01,1,1,1)="S ^PS(53.45,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(53.4502,.01,1,1,2)="K ^PS(53.45,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(53.4502,.01,4)="I $G(PSGPDRG) S X(1)=$G(PSGPDRGN) S:X(1)="""" X(1)=PSGPDRG S X(1)=""Only dispense drugs tied to the Orderable Item ""_X(1)_"" are selectable."" D EN^DDIOL("" "") F X(2)=1:1:$L(X(1),"" "") S X(3)=$P(X(1),"" "",X(2)) D:$L(X(3))+$X>78 EN^DDIOL("" ""_X(3))"
^DD(53.4502,.01,7.5)="S DIC(""S"")=""I 1"""
^DD(53.4502,.01,12)="Only dispense drugs marked for Unit Dose use."
^DD(53.4502,.01,12.1)="S DIC(""S"")=""I $P($G(^(2)),U,3)[""""U"""",$S('$G(PSGPDRG):1,1:PSGPDRG=+$G(^(2)))"""
^DD(53.4502,.01,20,0)="^.3LA^1^1"
^DD(53.4502,.01,20,1,0)="PSJ"
^DD(53.4502,.01,"DEL",1,0)="D:$G(PSGOEEND) EN^DDIOL(""Dispense Drugs for active orders cannot be deleted, but can be given an INACTIVE DATE."") I $G(PSJPNDRN)&$G(^PS(53.1,+$G(ON),1,+$G(DA),0)) D EN^DDIOL($P(PSJPNDRN,""^"",2))"
^DD(53.4502,.01,"DT")="2970402"
^DD(53.4502,.01,"LAYGO",1,0)="S X(1)=$D(^PS(53.45,DA,2,""B"",+X)) D:X(1) EN^DDIOL(""This dispense drug has already been entered for this order."") I 'X(1)"
^DD(53.4502,.02,0)="UNITS PER DOSE^NJ5,2OX^^0;2^S:X?1.2N1""/""1.2N X=+$J(+X/$P(X,""/"",2),0,2) K:X'?.N.1""."".N!(X>30)!(X<0)!(X?.E1"".""5.N) X"
^DD(53.4502,.02,.1)="UNITS PER DOSE"
^DD(53.4502,.02,2)="S Y(0)=Y S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.4502,.02,2.1)="S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(53.4502,.02,3)="Enter a number between 0 and 30, no more than 4 decimals (will accept fractions)."
^DD(53.4502,.02,4)="D EN^DDIOL(""ONE (1) UNIT PER DOSE WILL BE ASSUMED IF THERE IS NO ENTRY (OR AN ENTRY OF ZERO (0)) INTO THIS FIELD."")"
^DD(53.4502,.02,20,0)="^.3LA^1^1"
^DD(53.4502,.02,20,1,0)="PSJU"
^DD(53.4502,.02,21,0)="^^12^12^2971209^^^^"
^DD(53.4502,.02,21,1,0)="  This is the number of UNITS (tablets, capsules, etc.) to be dispensed"
^DD(53.4502,.02,21,2,0)="as a DOSE for this order.  The literals '1/2' and '1/4' may be entered."
^DD(53.4502,.02,21,3,0)="If there is no entry (or an entry of `0'), it is assumed to be ONE (1)."
^DD(53.4502,.02,21,4,0)="                          ** PLEASE NOTE **"
^DD(53.4502,.02,21,5,0)=" 1. If the provider prescribes 30 ml's of a medication that is usually"
^DD(53.4502,.02,21,6,0)="dispensed and administered as 60 ml's, the correct UNITS PER DOSE would"
^DD(53.4502,.02,21,7,0)="be `1/2' (or .5), NOT 30 ml's.  The correct entry of 30 ml's would be in"
^DD(53.4502,.02,21,8,0)="the DOSAGE ORDERED field."
^DD(53.4502,.02,21,9,0)=" 2. If the UNITS PER DOSE prescribed is a variable amount (1-2 tab.),"
^DD(53.4502,.02,21,10,0)="it is suggested that the maximum amount be entered and the actual amount"
^DD(53.4502,.02,21,11,0)="prescribed noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS"
^DD(53.4502,.02,21,12,0)="fields."
^DD(53.4502,.02,"DT")="3030220"
^DD(53.4502,.03,0)="INACTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.4502,.03,3)="Enter the date that this drug will no longer be dispense for this order."
^DD(53.4502,.03,20,0)="^.3LA^1^1"
^DD(53.4502,.03,20,1,0)="PSJU"
^DD(53.4502,.03,21,0)="^^2^2^2920426^"
^DD(53.4502,.03,21,1,0)="  This is the date that this dispense drug will no longer be dispensed for"
^DD(53.4502,.03,21,2,0)="this order.  Once an order becomes active, dispense drugs cannot be deleted."
^DD(53.4502,.03,23,0)="^^2^2^2920426^"
^DD(53.4502,.03,23,1,0)="  This is used by pharmacy when the dispense drug is no longer to be"
^DD(53.4502,.03,23,2,0)="dispensed for the order."
^DD(53.4502,.03,"DT")="2920426"
^DD(53.4502,"B","DISPENSE DRUG",.01)=""
^DD(53.4502,"B","INACTIVE DATE",.03)=""
^DD(53.4502,"B","UNITS PER DOSE",.02)="1"
^DD(53.4502,"GL",0,1,.01)=""
^DD(53.4502,"GL",0,2,.02)=""
^DD(53.4502,"GL",0,3,.03)=""
^DD(53.4502,"GR","PSJ",.01,1)=""
^DD(53.4502,"GR","PSJU",.02,1)=""
^DD(53.4502,"GR","PSJU",.03,1)=""
^DD(53.4502,"IX",.01)=""
^DD(53.4504,0)="PROVIDER COMMENTS SUB-FIELD^^.01^1"
^DD(53.4504,0,"DT")="2911114"
^DD(53.4504,0,"NM","PROVIDER COMMENTS")=""
^DD(53.4504,0,"UP")="53.45"
^DD(53.4504,.01,0)="PROVIDER COMMENTS^W^^0;1^Q"
^DD(53.4504,.01,4)="I $G(PSGORD),$G(PSGOEE)=""R"" D ENVPPC^PSGOER1"
^DD(53.4504,.01,20,0)="^.3LA^1^1"
^DD(53.4504,.01,20,1,0)="PSJ"
^DD(53.4504,.01,21,0)="^^2^2^2920117^^"
^DD(53.4504,.01,21,1,0)="  This is any comments about the order that the provider needs to pass"
^DD(53.4504,.01,21,2,0)="along to the pharmacy and ward personnel."
^DD(53.4504,.01,23,0)="^^2^2^2920117^^"
^DD(53.4504,.01,23,1,0)="  This is used by the Inpatient Medications package as temporary storage"
^DD(53.4504,.01,23,2,0)="when processing orders to allow for rudimentary transactional processing."
^DD(53.4504,.01,"DT")="2911114"
^DD(53.4504,"B","PROVIDER COMMENTS",.01)=""
^DD(53.4504,"GL",0,1,.01)=""
^DD(53.4504,"GR","PSJ",.01,1)=""
^DD(53.46,0)="FIELD^^3^4"
^DD(53.46,0,"DT")="3050111"
^DD(53.46,0,"IX","B",53.46,.01)=""
^DD(53.46,0,"NM","CLINIC DEFINITION")=""
^DD(53.46,0,"VR")="5.0"
^DD(53.46,0,"VRPK")="PSJ"
^DD(53.46,.01,0)="CLINIC^RP44'^SC(^0;1^Q"
^DD(53.46,.01,1,0)="^.1"
^DD(53.46,.01,1,1,0)="53.46^B"
^DD(53.46,.01,1,1,1)="S ^PS(53.46,""B"",$E(X,1,30),DA)="""""
^DD(53.46,.01,1,1,2)="K ^PS(53.46,""B"",$E(X,1,30),DA)"
^DD(53.46,.01,3)="Enter the hospital location (clinic) for which you want to define behavior for inpatient orders for outpatients."
^DD(53.46,.01,21,0)="^^3^3^3031029^"
^DD(53.46,.01,21,1,0)="This is the clinic for which the stop date calculations are being "
^DD(53.46,.01,21,2,0)="entered. The clinic should allow the ordering of Inpatient Medications "
^DD(53.46,.01,21,3,0)="for Outpatients."
^DD(53.46,.01,"DT")="3050111"
^DD(53.46,1,0)="NUMBER OF DAYS UNTIL STOP^NJ3,0^^0;2^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1.N) X"
^DD(53.46,1,3)="Type a number between 1 and 365, 0 Decimal Digits"
^DD(53.46,1,21,0)="^^2^2^3050111^^"
^DD(53.46,1,21,1,0)="This is the number of days to default the length of an order. Cannot "
^DD(53.46,1,21,2,0)="exceed 365 days."
^DD(53.46,1,"DT")="3050111"
^DD(53.46,2,0)="AUTO-DC IMO ORDERS^S^0:NO;1:YES;^0;3^Q"
^DD(53.46,2,3)="Enter YES to allow IMO orders to follow the standard patient movement definition. Enter NO to allow IMO orders to remain active."
^DD(53.46,2,21,0)="^^6^6^3050111^"
^DD(53.46,2,21,1,0)="This field gives the site the ability to define, by clinic, whether or "
^DD(53.46,2,21,2,0)="not inpatient orders for outpatients should be auto-dc'd on patient "
^DD(53.46,2,21,3,0)="movements. This field will only affect those orders where Inpatient "
^DD(53.46,2,21,4,0)="Medications V. 5.0 controls the discontinue action. If the patient "
^DD(53.46,2,21,5,0)="movement discontinue action is handled by any other package, this field "
^DD(53.46,2,21,6,0)="will have no effect."
^DD(53.46,2,"DT")="3050111"
^DD(53.46,3,0)="SEND TO BCMA?^S^0:NO;1:YES;^0;4^Q"
^DD(53.46,3,3)="Enter YES to make these orders available to BCMA, NO to prevent these orders from being sent to BCMA."
^DD(53.46,3,21,0)="^^3^3^3050111^"
^DD(53.46,3,21,1,0)="This field will determine if inpatient orders for outpatients in this "
^DD(53.46,3,21,2,0)="clinic will be made available to the Bar Code Medication Admnistration "
^DD(53.46,3,21,3,0)="package."
^DD(53.46,3,"DT")="3050111"
^DD(53.46,"B","AUTO-DC IMO ORDERS",2)=""
^DD(53.46,"B","CLINIC",.01)=""
^DD(53.46,"B","NUMBER OF DAYS UNTIL STOP",1)=""
^DD(53.46,"B","SEND TO BCMA?",3)=""
^DD(53.46,"GL",0,1,.01)=""
^DD(53.46,"GL",0,2,1)=""
^DD(53.46,"GL",0,3,2)=""
^DD(53.46,"GL",0,4,3)=""
^DD(53.46,"IX",.01)=""
^DD(53.46,"RQ",.01)=""
^DD(53.5,0)="FIELD^^1^14"
^DD(53.5,0,"DDA")="N"
^DD(53.5,0,"DT")="2960228"
^DD(53.5,0,"IX","A1",53.5,.02)=""
^DD(53.5,0,"IX","A2",53.5,.01)=""
^DD(53.5,0,"IX","AB1",53.5,.01)=""
^DD(53.5,0,"IX","AB1",53.5,.05)=""
^DD(53.5,0,"IX","AB2",53.5,.02)=""
^DD(53.5,0,"IX","AB3",53.5,.03)=""
^DD(53.5,0,"IX","AC",53.52,.06)=""
^DD(53.5,0,"IX","AC1",53.5,.01)=""
^DD(53.5,0,"IX","AC2",53.51,.01)=""
^DD(53.5,0,"IX","AC3",53.51,.02)=""
^DD(53.5,0,"IX","AC4",53.51,.03)=""
^DD(53.5,0,"IX","AC5",53.51,.04)=""
^DD(53.5,0,"IX","AC6",53.52,.02)=""
^DD(53.5,0,"IX","AC7",53.52,.03)=""
^DD(53.5,0,"IX","AC8",53.53,.01)=""
^DD(53.5,0,"IX","AF",53.5,.05)=""
^DD(53.5,0,"IX","AO1",53.5,.01)=""
^DD(53.5,0,"IX","AO2",53.5,.02)=""
^DD(53.5,0,"IX","AO3",53.5,.03)=""
^DD(53.5,0,"IX","AU",53.52,.06)=""
^DD(53.5,0,"IX","AU1",53.52,.05)=""
^DD(53.5,0,"IX","AU2",53.51,.01)=""
^DD(53.5,0,"IX","AU3",53.51,.02)=""
^DD(53.5,0,"IX","AU4",53.51,.03)=""
^DD(53.5,0,"IX","AU5",53.51,.04)=""
^DD(53.5,0,"IX","AU6",53.52,.02)=""
^DD(53.5,0,"IX","AU7",53.52,.03)=""
^DD(53.5,0,"IX","AU8",53.53,.01)=""
^DD(53.5,0,"IX","B",53.5,.01)=""
^DD(53.5,0,"IX","C",53.5,.05)=""
^DD(53.5,0,"NM","PICK LIST")=""
^DD(53.5,0,"PT",53.55,.01)=""
^DD(53.5,0,"VR")="5.0"
^DD(53.5,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(53.5,.01,0)="PICK LIST #^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.5,.01,.1)="PICK LIST NUMBER"
^DD(53.5,.01,1,0)="^.1^^-1"
^DD(53.5,.01,1,1,0)="53.5^B"
^DD(53.5,.01,1,1,1)="S ^PS(53.5,""B"",$E(X,1,30),DA)="""""
^DD(53.5,.01,1,1,2)="K ^PS(53.5,""B"",$E(X,1,30),DA)"
^DD(53.5,.01,1,1,"%D",0)="^^1^1^2940714^^^^"
^DD(53.5,.01,1,1,"%D",1,0)="Regular 'B' index of file by Pick List #."
^DD(53.5,.01,1,2,0)="53.5^AC1^MUMPS"
^DD(53.5,.01,1,2,1)="D EN535^PSGPLXR(DA,""S"",""AC"")"
^DD(53.5,.01,1,2,2)="D EN535^PSGPLXR(DA,""K"",""AC"")"
^DD(53.5,.01,1,2,"%D",0)="^^4^4^2940714^^^^"
^DD(53.5,.01,1,2,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.5,.01,1,2,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.5,.01,1,2,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and"
^DD(53.5,.01,1,2,"%D",4,0)="sending to the ATC dispensing machine by patient."
^DD(53.5,.01,1,2,"DT")="2930715"
^DD(53.5,.01,1,3,0)="53.5^AB1^MUMPS"
^DD(53.5,.01,1,3,1)="D ENABO^PSGPLXR(DA,""AB"",""S"")"
^DD(53.5,.01,1,3,2)="D ENABO^PSGPLXR(DA,""AB"",""K"")"
^DD(53.5,.01,1,3,"%D",0)="^^3^3^2940603^^^"
^DD(53.5,.01,1,3,"%D",1,0)="Cross-reference by Ward Group, start date for the coverage of the"
^DD(53.5,.01,1,3,"%D",2,0)="Pick List, Pick List #.  This cross-reference exists until a user"
^DD(53.5,.01,1,3,"%D",3,0)="files the Pick List away."
^DD(53.5,.01,1,3,"DT")="2930930"
^DD(53.5,.01,1,4,0)="53.5^AO1^MUMPS"
^DD(53.5,.01,1,4,1)="D ENABO^PSGPLXR(DA,""AO"",""S"")"
^DD(53.5,.01,1,4,2)="D ENABO^PSGPLXR(DA,""AO"",""K"")"
^DD(53.5,.01,1,4,"%D",0)="^^4^4^2960917^^^"
^DD(53.5,.01,1,4,"%D",1,0)="Cross-reference on Ward Group, start date for the coverage of the"
^DD(53.5,.01,1,4,"%D",2,0)="Pick List, and Pick List #.  This cross-reference is created when"
^DD(53.5,.01,1,4,"%D",3,0)="the Pick List is completely filed away, and deleted when the Pick"
^DD(53.5,.01,1,4,"%D",4,0)="List is purged."
^DD(53.5,.01,1,4,"DT")="2930708"
^DD(53.5,.01,1,5,0)="53.5^A2^MUMPS"
^DD(53.5,.01,1,5,1)="D ENA^PSGPLXR(DA,""S"")"
^DD(53.5,.01,1,5,2)="D ENA^PSGPLXR(DA,""K"")"
^DD(53.5,.01,1,5,"%D",0)="^^3^3^2940603^^"
^DD(53.5,.01,1,5,"%D",1,0)="Cross-reference on Ward Group, Pick List #.  This cross-reference is"
^DD(53.5,.01,1,5,"%D",2,0)="created when the user originally runs the Pick List, and exists until"
^DD(53.5,.01,1,5,"%D",3,0)="the Pick List is purged or deleted."
^DD(53.5,.01,1,5,"DT")="2930708"
^DD(53.5,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(53.5,.01,20,0)="^.3LA^1^1"
^DD(53.5,.01,20,1,0)="PSJ"
^DD(53.5,.01,21,0)="^^3^3^2930831^^^^"
^DD(53.5,.01,21,1,0)="PICK LIST NUMBER"
^DD(53.5,.01,21,2,0)="This is the IEN of the pick list, and is printed on the pick list for"
^DD(53.5,.01,21,3,0)="identification purposes."
^DD(53.5,.01,23,0)="^^3^3^2930831^^^^"
^DD(53.5,.01,23,1,0)="NUMERIC PICK LIST IDENTIFIER"
^DD(53.5,.01,23,2,0)="This is the IEN of the pick list, and may be used to identify the it for"
^DD(53.5,.01,23,3,0)="reprinting, entering units dispensed, etc."
^DD(53.5,.01,"DT")="2930930"
^DD(53.5,.02,0)="WARD GROUP^RP57.5'^PS(57.5,^0;2^Q"
^DD(53.5,.02,1,0)="^.1"
^DD(53.5,.02,1,1,0)="53.5^A1^MUMPS"
^DD(53.5,.02,1,1,1)="D ENA^PSGPLXR(DA,""S"")"
^DD(53.5,.02,1,1,2)="D ENA^PSGPLXR(DA,""K"")"
^DD(53.5,.02,1,1,"%D",0)="^^3^3^2940603^"
^DD(53.5,.02,1,1,"%D",1,0)="Cross-reference on Ward Group, Pick List #.  This cross-reference is"
^DD(53.5,.02,1,1,"%D",2,0)="created when the user originally runs the Pick List, and exists until"
^DD(53.5,.02,1,1,"%D",3,0)="the Pick List is purged or deleted."
^DD(53.5,.02,1,1,"DT")="2930708"
^DD(53.5,.02,1,2,0)="53.5^AB2^MUMPS"
^DD(53.5,.02,1,2,1)="D:'$P(^(0),U,5) ENABO^PSGPLXR(DA,""AB"",""S"")"
^DD(53.5,.02,1,2,2)="D ENABO^PSGPLXR(DA,""AB"",""K"")"
^DD(53.5,.02,1,2,"%D",0)="^^3^3^2940603^"
^DD(53.5,.02,1,2,"%D",1,0)="Cross-reference by Ward Group, start date for the coverage of the"
^DD(53.5,.02,1,2,"%D",2,0)="Pick List, Pick List #.  This cross-reference exists until a user"
^DD(53.5,.02,1,2,"%D",3,0)="files the Pick List away."
^DD(53.5,.02,1,2,"DT")="2930708"
^DD(53.5,.02,1,3,0)="53.5^AO2^MUMPS"
^DD(53.5,.02,1,3,1)="D:$P(^(0),U,5)=2 ENABO^PSGPLXR(DA,""AO"",""S"")"
^DD(53.5,.02,1,3,2)="D ENABO^PSGPLXR(DA,""AO"",""K"")"
^DD(53.5,.02,1,3,"%D",0)="^^4^4^2940603^"
^DD(53.5,.02,1,3,"%D",1,0)="Cross-reference on Ward Group, start date for the coverage of the"
^DD(53.5,.02,1,3,"%D",2,0)="Pick List, and Pick List #.  This cross-reference is created when"
^DD(53.5,.02,1,3,"%D",3,0)="the Pick List is completely filed away, and deleted when the Pick"
^DD(53.5,.02,1,3,"%D",4,0)="List is purged."
^DD(53.5,.02,1,3,"DT")="2930708"
^DD(53.5,.02,3)=""
^DD(53.5,.02,21,0)="^^1^1^2930831^"
^DD(53.5,.02,21,1,0)="This is the pharmacy ward group for which the pick list was run."
^DD(53.5,.02,"DT")="2930708"
^DD(53.5,.03,0)="START DATE/TIME^RD^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.5,.03,1,0)="^.1"
^DD(53.5,.03,1,1,0)="53.5^AB3^MUMPS"
^DD(53.5,.03,1,1,1)="D:'$P(^(0),U,5) ENABO^PSGPLXR(DA,""AB"",""S"")"
^DD(53.5,.03,1,1,2)="D ENABO^PSGPLXR(DA,""AB"",""K"")"
^DD(53.5,.03,1,1,"%D",0)="^^3^3^2940603^"
^DD(53.5,.03,1,1,"%D",1,0)="Cross-reference by Ward Group, start date for the coverage of the"
^DD(53.5,.03,1,1,"%D",2,0)="Pick List, Pick List #.  This cross-reference exists until a user"
^DD(53.5,.03,1,1,"%D",3,0)="files the Pick List away."
^DD(53.5,.03,1,1,"DT")="2930708"
^DD(53.5,.03,1,2,0)="53.5^AO3^MUMPS"
^DD(53.5,.03,1,2,1)="D:$P(^(0),U,5)=2 ENABO^PSGPLXR(DA,""AO"",""S"")"
^DD(53.5,.03,1,2,2)="D ENABO^PSGPLXR(DA,""AO"",""K"")"
^DD(53.5,.03,1,2,"%D",0)="^^4^4^2940603^"
^DD(53.5,.03,1,2,"%D",1,0)="Cross-reference on Ward Group, start date for the coverage of the"
^DD(53.5,.03,1,2,"%D",2,0)="Pick List, and Pick List #.  This cross-reference is created when"
^DD(53.5,.03,1,2,"%D",3,0)="the Pick List is completely filed away, and deleted when the Pick"
^DD(53.5,.03,1,2,"%D",4,0)="List is purged."
^DD(53.5,.03,1,2,"DT")="2930708"
^DD(53.5,.03,3)=""
^DD(53.5,.03,20,0)="^.3LA^1^1"
^DD(53.5,.03,20,1,0)="PSJ"
^DD(53.5,.03,21,0)="^^1^1^2930831^^"
^DD(53.5,.03,21,1,0)="This is the start date/time of the period of coverage for the pick list."
^DD(53.5,.03,23,0)="^^3^3^2930831^"
^DD(53.5,.03,23,1,0)="This is the start date/time of the period of coverage for the pick list."
^DD(53.5,.03,23,2,0)="When a pick list is run, the start date is calculated based on the stop dat"
^DD(53.5,.03,23,3,0)="date of the last pick list run for the selected ward group."
^DD(53.5,.03,"DT")="2930708"
^DD(53.5,.04,0)="STOP DATE/TIME^RD^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.5,.04,3)=""
^DD(53.5,.04,20,0)="^.3LA^1^1"
^DD(53.5,.04,20,1,0)="PSJ"
^DD(53.5,.04,21,0)="^^2^2^2930831^"
^DD(53.5,.04,21,1,0)="This is the stop date/time for the period of coverage for which the pick"
^DD(53.5,.04,21,2,0)="list was run."
^DD(53.5,.04,"DT")="2930616"
^DD(53.5,.05,0)="FILED AWAY FLAG^S^0:NOT YET FLAGGED TO BE FILED AWAY;1:FLAGGED TO BE FILED AWAY;2:FILED AWAY;^0;5^Q"
^DD(53.5,.05,1,0)="^.1"
^DD(53.5,.05,1,1,0)="53.5^AF^MUMPS"
^DD(53.5,.05,1,1,1)="S:X=1 ^PS(53.5,""AF"",DA)="""""
^DD(53.5,.05,1,1,2)="K ^PS(53.5,""AF"",DA)"
^DD(53.5,.05,1,1,"%D",0)="^^3^3^2940603^^"
^DD(53.5,.05,1,1,"%D",1,0)="This cross-reference on Pick List # is created when a user elects to file"
^DD(53.5,.05,1,1,"%D",2,0)="the Pick List away, and is deleted when the entire Pick List is completely"
^DD(53.5,.05,1,1,"%D",3,0)="filed away."
^DD(53.5,.05,1,1,"DT")="2931006"
^DD(53.5,.05,1,2,0)="53.5^AB1^MUMPS"
^DD(53.5,.05,1,2,1)="N PSJ S PSJ=^PS(53.5,DA,0) K:X>0 ^PS(53.5,""AB"",$P(PSJ,U,2),$P(PSJ,U,3),DA) S:'X ^PS(53.5,""AB"",+$P(PSJ,U,2),+$P(PSJ,U,3),DA)="""""
^DD(53.5,.05,1,2,2)="N PSJ S PSJ=^PS(53.5,DA,0) S:'X ^PS(53.5,""AB"",+$P(PSJ,U,2),+$P(PSJ,U,3),DA)="""""
^DD(53.5,.05,1,2,"%D",0)="^^3^3^2940603^^"
^DD(53.5,.05,1,2,"%D",1,0)="Cross-reference by Ward Group, start date for the coverage of the "
^DD(53.5,.05,1,2,"%D",2,0)="Pick List, Pick List #.  This cross-reference exists until a user"
^DD(53.5,.05,1,2,"%D",3,0)="files the Pick List away."
^DD(53.5,.05,1,2,"DT")="2931006"
^DD(53.5,.05,1,3,0)="53.5^C^MUMPS"
^DD(53.5,.05,1,3,1)="Q:X<2  N X S X=^PS(53.5,DA,0),^PS(53.5,""AO"",$P(X,U,2),$P(X,U,3),DA)="""""
^DD(53.5,.05,1,3,2)="Q"
^DD(53.5,.05,1,3,"%D",0)="^^3^3^2980123^^"
^DD(53.5,.05,1,3,"%D",1,0)=" Cross-reference on Ward Group, start date for the coverage of the Pick"
^DD(53.5,.05,1,3,"%D",2,0)="List, and Pick List #.  This cross-reference is created when the Pick List"
^DD(53.5,.05,1,3,"%D",3,0)="is completely filed away, and deleted when the Pick List is purged."
^DD(53.5,.05,1,3,"DT")="2980122"
^DD(53.5,.05,3)=""
^DD(53.5,.05,20,0)="^.3LA^1^1"
^DD(53.5,.05,20,1,0)="PSJU"
^DD(53.5,.05,21,0)="^^1^1^2980105^^"
^DD(53.5,.05,21,1,0)="This is an internal flag set when the pick list is filed away."
^DD(53.5,.05,"DT")="2980122"
^DD(53.5,.06,0)="ROOM-BED FLAG^S^0:SORT BY ROOM-BED;1:SORT BY BED-ROOM;^0;6^Q"
^DD(53.5,.06,3)=""
^DD(53.5,.06,21,0)="^^2^2^2931101^"
^DD(53.5,.06,21,1,0)="This is an internal flag set when the pick list is to sort by bed-room"
^DD(53.5,.06,21,2,0)="instead of room-bed."
^DD(53.5,.06,"DT")="2930616"
^DD(53.5,.07,0)="WARD SORT FLAG^S^0:SORTED BY ROOM-BED;1:NOT SORTED BY ROOM-BED;^0;7^Q"
^DD(53.5,.07,.1)=""
^DD(53.5,.07,3)=""
^DD(53.5,.07,21,0)="^^2^2^2940602^^"
^DD(53.5,.07,21,1,0)="This is an internal flag set when the pick list is NOT to sort by the"
^DD(53.5,.07,21,2,0)="patient's ward."
^DD(53.5,.07,"DT")="2930616"
^DD(53.5,.08,0)="ROOM-BED SORT FLAG^S^0:SORT BY ROOM-BED;1:NOT SORTED BY ROOM-BED;^0;8^Q"
^DD(53.5,.08,21,0)="^^2^2^2931101^^"
^DD(53.5,.08,21,1,0)="This is an internal flag set when the pick list is NOT to sort by the"
^DD(53.5,.08,21,2,0)="patient's room-bed."
^DD(53.5,.08,"DT")="2930622"
^DD(53.5,.09,0)="RUN COMPLETION DATE/TIME^D^^0;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(53.5,.09,21,0)="^^3^3^2931101^"
^DD(53.5,.09,21,1,0)="This is a flag that is set when the original run of the pick list has"
^DD(53.5,.09,21,2,0)="completed. It is a date and time to allow the package to know when the run"
^DD(53.5,.09,21,3,0)="completed."
^DD(53.5,.09,"DT")="2930623"
^DD(53.5,.11,0)="UPDATE COMPLETION DATE/TIME^D^^0;10^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(53.5,.11,21,0)="^^4^4^2931101^"
^DD(53.5,.11,21,1,0)="This is a flag that is set when an update for the pick list has started"
^DD(53.5,.11,21,2,0)="and reset when the update is completed. This is set to 1 when the update"
^DD(53.5,.11,21,3,0)="is started and to a date and time when the update has completed to allow "
^DD(53.5,.11,21,4,0)="the package to know when the update finished."
^DD(53.5,.11,"DT")="2930623"
^DD(53.5,.12,0)="RUN START DATE/TIME^D^^0;11^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(53.5,.12,21,0)="^^2^2^2931101^"
^DD(53.5,.12,21,1,0)="This is a flag that is set when the original run of the pick list is s"
^DD(53.5,.12,21,2,0)="to allow the package to know the date and time the run was started."
^DD(53.5,.12,"DT")="2930623"
^DD(53.5,.13,0)="DATE/TIME LAST SENT TO THE ATC^D^^0;12^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(53.5,.13,21,0)="^.001^3^3^3000601^^"
^DD(53.5,.13,21,1,0)="This is the date/time the pick list was last sent to ATC. If the"
^DD(53.5,.13,21,2,0)="site is running KERNEL version 6.5 or greater, this is automatically"
^DD(53.5,.13,21,3,0)="entered each time the pick list is sent."
^DD(53.5,.13,"DT")="2930623"
^DD(53.5,.14,0)="PRINT NON-ACTIVE ORDERS FIRST^S^1:YES;0:NO;^0;13^Q"
^DD(53.5,.14,3)="Answer 'YES' to have expired and dc'ed order print before active orders for each patient on the pick list."
^DD(53.5,.14,21,0)="^^6^6^2931101^"
^DD(53.5,.14,21,1,0)="For each patient, a pick list will print active orders and any orders that"
^DD(53.5,.14,21,2,0)="have expired or have been discontinued within 24 hours of the start date of"
^DD(53.5,.14,21,3,0)="the pick list. Normally, for each patient, the patient's active orders"
^DD(53.5,.14,21,4,0)="are printed first. This will allow pick lists run for this ward group"
^DD(53.5,.14,21,5,0)="to print each patient's expired and dc'ed orders first. This does not"
^DD(53.5,.14,21,6,0)="affect pick lists that have already been run."
^DD(53.5,.14,23,0)="^^5^5^2931101^"
^DD(53.5,.14,23,1,0)="This is used to determine the sort order of active vs. non-active orders"
^DD(53.5,.14,23,2,0)="for each patient within the pick list. If this is 'NO' (or not set), each"
^DD(53.5,.14,23,3,0)="patient's active orders will print first, as they always have. If this"
^DD(53.5,.14,23,4,0)="is set to 'YES', each patient's non-active orders (if any exist) will"
^DD(53.5,.14,23,5,0)="print first."
^DD(53.5,.14,"DT")="2930623"
^DD(53.5,1,0)="PATIENT^53.51PA^^1;0"
^DD(53.5,1,20,0)="^.3LA^1^1"
^DD(53.5,1,20,1,0)="psj"
^DD(53.5,1,21,0)="^^2^2^2931216^^^^"
^DD(53.5,1,21,1,0)="This multiple contains the patient specific data for each patient on the "
^DD(53.5,1,21,2,0)="pick list."
^DD(53.5,1,"DT")="2931216"
^DD(53.5,"B","DATE/TIME LAST SENT TO THE ATC",.13)=""
^DD(53.5,"B","FILED AWAY FLAG",.05)=""
^DD(53.5,"B","PATIENT",1)=""
^DD(53.5,"B","PICK LIST #",.01)=""
^DD(53.5,"B","PICK LIST NUMBER",.01)="1"
^DD(53.5,"B","PRINT NON-ACTIVE ORDERS FIRST",.14)=""
^DD(53.5,"B","ROOM-BED FLAG",.06)=""
^DD(53.5,"B","ROOM-BED SORT FLAG",.08)=""
^DD(53.5,"B","RUN COMPLETION DATE/TIME",.09)=""
^DD(53.5,"B","RUN START DATE/TIME",.12)=""
^DD(53.5,"B","START DATE/TIME",.03)=""
^DD(53.5,"B","STOP DATE/TIME",.04)=""
^DD(53.5,"B","UPDATE COMPLETION DATE/TIME",.11)=""
^DD(53.5,"B","WARD GROUP",.02)=""
^DD(53.5,"B","WARD SORT FLAG",.07)=""
^DD(53.5,"GL",0,1,.01)=""
^DD(53.5,"GL",0,2,.02)=""
^DD(53.5,"GL",0,3,.03)=""
^DD(53.5,"GL",0,4,.04)=""
^DD(53.5,"GL",0,5,.05)=""
^DD(53.5,"GL",0,6,.06)=""
^DD(53.5,"GL",0,7,.07)=""
^DD(53.5,"GL",0,8,.08)=""
^DD(53.5,"GL",0,9,.09)=""
^DD(53.5,"GL",0,10,.11)=""
^DD(53.5,"GL",0,11,.12)=""
^DD(53.5,"GL",0,12,.13)=""
^DD(53.5,"GL",0,13,.14)=""
^DD(53.5,"GL",1,0,1)=""
^DD(53.5,"GR","PSJ",.01,1)=""
^DD(53.5,"GR","PSJ",.03,1)=""
^DD(53.5,"GR","PSJ",.04,1)=""
^DD(53.5,"GR","PSJU",.05,1)=""
^DD(53.5,"GR","psj",1,1)=""
^DD(53.5,"IX",.01)=""
^DD(53.5,"IX",.02)=""
^DD(53.5,"IX",.03)=""
^DD(53.5,"IX",.05)=""
^DD(53.5,"RQ",.01)=""
^DD(53.5,"RQ",.02)=""
^DD(53.5,"RQ",.03)=""
^DD(53.5,"RQ",.04)=""
^DD(53.5,"SB",53.51,1)=""
^DD(53.51,0)="PATIENT SUB-FIELD^^1^6"
^DD(53.51,0,"DT")="2960228"
^DD(53.51,0,"IX","AU",53.51,.05)=""
^DD(53.51,0,"IX","B",53.51,.01)=""
^DD(53.51,0,"NM","PATIENT")=""
^DD(53.51,0,"UP")="53.5"
^DD(53.51,.01,0)="PATIENT^MRP2'X^PS(55,^0;1^S DINUM=X"
^DD(53.51,.01,1,0)="^.1"
^DD(53.51,.01,1,1,0)="53.51^B"
^DD(53.51,.01,1,1,1)="S ^PS(53.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.51,.01,1,1,2)="K ^PS(53.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.51,.01,1,1,"%D",0)="^^1^1^2940603^^"
^DD(53.51,.01,1,1,"%D",1,0)="Regular 'B' index of PATIENT sub-field."
^DD(53.51,.01,1,2,0)="53.5^AC2^MUMPS"
^DD(53.51,.01,1,2,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AC"")"
^DD(53.51,.01,1,2,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AC"",""PT"",X)"
^DD(53.51,.01,1,2,"%D",0)="^^4^4^2940714^^^"
^DD(53.51,.01,1,2,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.01,1,2,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.01,1,2,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and"
^DD(53.51,.01,1,2,"%D",4,0)="sending to the ATC dispensing machine by patient."
^DD(53.51,.01,1,2,"DT")="2940524"
^DD(53.51,.01,1,3,0)="53.5^AU2^MUMPS"
^DD(53.51,.01,1,3,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AU"")"
^DD(53.51,.01,1,3,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AU"")"
^DD(53.51,.01,1,3,"%D",0)="^^4^4^2940603^^"
^DD(53.51,.01,1,3,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.01,1,3,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.01,1,3,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.51,.01,1,3,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.51,.01,1,3,"DT")="2930803"
^DD(53.51,.01,21,0)="^^1^1^2931101^"
^DD(53.51,.01,21,1,0)="This is the patient for which the medications are to be dispensed for."
^DD(53.51,.01,"DT")="2940524"
^DD(53.51,.02,0)="ADMINISTERING TEAM^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(53.51,.02,1,0)="^.1"
^DD(53.51,.02,1,1,0)="53.5^AC3^MUMPS"
^DD(53.51,.02,1,1,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AC"")"
^DD(53.51,.02,1,1,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AC"",""AT"",X)"
^DD(53.51,.02,1,1,"%D",0)="^^4^4^2940603^"
^DD(53.51,.02,1,1,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.02,1,1,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.02,1,1,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and"
^DD(53.51,.02,1,1,"%D",4,0)="sending to the ATC dispensing machine by patient."
^DD(53.51,.02,1,1,"DT")="2940524"
^DD(53.51,.02,1,2,0)="53.5^AU3^MUMPS"
^DD(53.51,.02,1,2,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AU"")"
^DD(53.51,.02,1,2,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AU"")"
^DD(53.51,.02,1,2,"%D",0)="^^4^4^2940603^"
^DD(53.51,.02,1,2,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.02,1,2,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.02,1,2,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.51,.02,1,2,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.51,.02,1,2,"DT")="2930803"
^DD(53.51,.02,3)="Answer must be 1-30 characters in length."
^DD(53.51,.02,21,0)="^^1^1^2931101^"
^DD(53.51,.02,21,1,0)="This is the administering team for the room-bed the patient is assigned."
^DD(53.51,.02,"DT")="2940524"
^DD(53.51,.03,0)="WARD^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(53.51,.03,1,0)="^.1"
^DD(53.51,.03,1,1,0)="53.5^AC4^MUMPS"
^DD(53.51,.03,1,1,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AC"")"
^DD(53.51,.03,1,1,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AC"",""WD"",X)"
^DD(53.51,.03,1,1,"%D",0)="^^4^4^2940603^"
^DD(53.51,.03,1,1,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.03,1,1,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.03,1,1,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and"
^DD(53.51,.03,1,1,"%D",4,0)="sending to the ATC dispensing machine by patient."
^DD(53.51,.03,1,1,"DT")="2940524"
^DD(53.51,.03,1,2,0)="53.5^AU4^MUMPS"
^DD(53.51,.03,1,2,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AU"")"
^DD(53.51,.03,1,2,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AU"")"
^DD(53.51,.03,1,2,"%D",0)="^^4^4^2940603^"
^DD(53.51,.03,1,2,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.03,1,2,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.03,1,2,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.51,.03,1,2,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.51,.03,1,2,"DT")="2930803"
^DD(53.51,.03,3)="Answer must be 2-30 characters in length."
^DD(53.51,.03,20,0)="^.3LA^1^1"
^DD(53.51,.03,20,1,0)="PSJ"
^DD(53.51,.03,21,0)="^^1^1^2931101^"
^DD(53.51,.03,21,1,0)="This is the patient's ward location at the time the pick list is run."
^DD(53.51,.03,"DT")="2940524"
^DD(53.51,.04,0)="ROOM-BED^F^^0;4^K:$L(X)>15!($L(X)<3) X"
^DD(53.51,.04,1,0)="^.1"
^DD(53.51,.04,1,1,0)="53.5^AC5^MUMPS"
^DD(53.51,.04,1,1,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AC"")"
^DD(53.51,.04,1,1,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AC"",""RB"",X)"
^DD(53.51,.04,1,1,"%D",0)="^^4^4^2940603^"
^DD(53.51,.04,1,1,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.04,1,1,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.04,1,1,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and"
^DD(53.51,.04,1,1,"%D",4,0)="sending to the ATC dispensing machine by patient."
^DD(53.51,.04,1,1,"DT")="2940524"
^DD(53.51,.04,1,2,0)="53.5^AU5^MUMPS"
^DD(53.51,.04,1,2,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AU"")"
^DD(53.51,.04,1,2,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AU"")"
^DD(53.51,.04,1,2,"%D",0)="^^4^4^2940603^"
^DD(53.51,.04,1,2,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.04,1,2,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.04,1,2,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.51,.04,1,2,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.51,.04,1,2,"DT")="2930803"
^DD(53.51,.04,3)="Answer must be 3-15 characters in length."
^DD(53.51,.04,20,0)="^.3LA^1^1"
^DD(53.51,.04,20,1,0)="PSJ"
^DD(53.51,.04,21,0)="^^1^1^2931101^"
^DD(53.51,.04,21,1,0)="This is the room-bed where the patient is currently assigned."
^DD(53.51,.04,"DT")="2940524"
^DD(53.51,.05,0)="UPDATE^S^1:PATIENT HAS BEEN UPDATED;^0;5^Q"
^DD(53.51,.05,1,0)="^.1"
^DD(53.51,.05,1,1,0)="53.51^AU^MUMPS"
^DD(53.51,.05,1,1,1)="D EN5351^PSGPLXR(DA(1),DA,""S"",""AU"")"
^DD(53.51,.05,1,1,2)="D EN5351^PSGPLXR(DA(1),DA,""K"",""AU"")"
^DD(53.51,.05,1,1,"%D",0)="^^4^4^2940603^"
^DD(53.51,.05,1,1,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.51,.05,1,1,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.51,.05,1,1,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.51,.05,1,1,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.51,.05,1,1,"DT")="2931214"
^DD(53.51,.05,3)="""1"" if patient is on an updated Pick List."
^DD(53.51,.05,21,0)="^^2^2^2931214^"
^DD(53.51,.05,21,1,0)="This is an internal flag to identify patients who appeared on the most"
^DD(53.51,.05,21,2,0)="recent update of the Pick List."
^DD(53.51,.05,"DT")="2931214"
^DD(53.51,1,0)="ORDER^53.52A^^1;0"
^DD(53.51,1,21,0)="^^1^1^2931216^^^"
^DD(53.51,1,21,1,0)="This contains the order-specific information for the patient."
^DD(53.51,"B","ADMINISTERING TEAM",.02)=""
^DD(53.51,"B","ORDER",1)=""
^DD(53.51,"B","PATIENT",.01)=""
^DD(53.51,"B","ROOM-BED",.04)=""
^DD(53.51,"B","UPDATE",.05)=""
^DD(53.51,"B","WARD",.03)=""
^DD(53.51,"GL",0,1,.01)=""
^DD(53.51,"GL",0,2,.02)=""
^DD(53.51,"GL",0,3,.03)=""
^DD(53.51,"GL",0,4,.04)=""
^DD(53.51,"GL",0,5,.05)=""
^DD(53.51,"GL",1,0,1)=""
^DD(53.51,"GR","PSJ",.03,1)=""
^DD(53.51,"GR","PSJ",.04,1)=""
^DD(53.51,"IX",.01)=""
^DD(53.51,"IX",.02)=""
^DD(53.51,"IX",.03)=""
^DD(53.51,"IX",.04)=""
^DD(53.51,"IX",.05)=""
^DD(53.51,"RQ",.01)=""
^DD(53.51,"SB",53.52,1)=""
^DD(53.52,0)="ORDER SUB-FIELD^^1^7"
^DD(53.52,0,"DT")="2960228"
^DD(53.52,0,"IX","B",53.52,.01)=""
^DD(53.52,0,"NM","ORDER")=""
^DD(53.52,0,"UP")="53.51"
^DD(53.52,.01,0)="ORDER^MRF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(53.52,.01,1,0)="^.1"
^DD(53.52,.01,1,1,0)="53.52^B"
^DD(53.52,.01,1,1,1)="S ^PS(53.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.52,.01,1,1,2)="K ^PS(53.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.52,.01,1,1,"%D",0)="^^1^1^2940714^^"
^DD(53.52,.01,1,1,"%D",1,0)="Regular 'B' cross-reference of the ORDER sub-field."
^DD(53.52,.01,3)="Answer must be 1-30 characters in length."
^DD(53.52,.01,21,0)="^^1^1^2931101^"
^DD(53.52,.01,21,1,0)="This is the IEN of the order for the patient in the PHARMACY PATIENT file."
^DD(53.52,.01,"DT")="2930527"
^DD(53.52,.02,0)="SCHEDULE TYPE^S^C:CONTINUOUS;O:ONE TIME;P:PRN;R:FILL ON REQUEST;OC:ON CALL;Z:PRINT NON-ACTIVE ORDERS LAST;A:PRINT NON/ACTIVE ORDERS FIRST;^0;2^Q"
^DD(53.52,.02,1,0)="^.1"
^DD(53.52,.02,1,1,0)="53.5^AC6^MUMPS"
^DD(53.52,.02,1,1,1)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""S"",""AC"")"
^DD(53.52,.02,1,1,2)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""K"",""AC"",""ST"",X)"
^DD(53.52,.02,1,1,"%D",0)="^^4^4^2940603^^"
^DD(53.52,.02,1,1,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.52,.02,1,1,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.52,.02,1,1,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and"
^DD(53.52,.02,1,1,"%D",4,0)="sending to the ATC dispensing machine by patient."
^DD(53.52,.02,1,1,"DT")="2940524"
^DD(53.52,.02,1,2,0)="53.5^AU6^MUMPS"
^DD(53.52,.02,1,2,1)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""S"",""AU"")"
^DD(53.52,.02,1,2,2)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""K"",""AU"")"
^DD(53.52,.02,1,2,"%D",0)="^^4^4^2940603^"
^DD(53.52,.02,1,2,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.52,.02,1,2,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.52,.02,1,2,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.52,.02,1,2,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.52,.02,1,2,"DT")="2930803"
^DD(53.52,.02,3)="Enter the code (C,O,OC,P,or R) corresponding to the scheduling of this order."
^DD(53.52,.02,21,0)="^^4^4^2931101^^^^"
^DD(53.52,.02,21,1,0)="If the order is active, this will be a code corresponding to the schedule"
^DD(53.52,.02,21,2,0)="type of the order. If the order is non-active, this will be an 'A' or 'Z'"
^DD(53.52,.02,21,3,0)="depending on whether non-active orders are to be printed first or last"
^DD(53.52,.02,21,4,0)="on the pick list."
^DD(53.52,.02,23,0)="^^5^5^2931101^^^^"
^DD(53.52,.02,23,1,0)="CORRESPONDS TO SCHEDULE TYPE IN UNIT DOSE SUB-FILE"
^DD(53.52,.02,23,2,0)="If the order is active, this will be a code corresponding to the schedule"
^DD(53.52,.02,23,3,0)="type of the order. If the order is non-active, this will be an 'A' or 'Z'"
^DD(53.52,.02,23,4,0)="depending on whether non-active orders are to be printed first or last"
^DD(53.52,.02,23,5,0)="on the pick list."
^DD(53.52,.02,"DT")="2940524"
^DD(53.52,.03,0)="*PRIMARY DRUG^RP50.3'^PS(50.3,^0;3^Q"
^DD(53.52,.03,1,0)="^.1"
^DD(53.52,.03,1,1,0)="53.5^AC7^MUMPS"
^DD(53.52,.03,1,1,1)="Q"
^DD(53.52,.03,1,1,2)="Q"
^DD(53.52,.03,1,1,"%D",0)="^^7^7^2960228^^^"
^DD(53.52,.03,1,1,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.52,.03,1,1,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.52,.03,1,1,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used for printing the Pick List and"
^DD(53.52,.03,1,1,"%D",4,0)="sending to the ATC dispensing machine by patient."
^DD(53.52,.03,1,1,"%D",5,0)=" "
^DD(53.52,.03,1,1,"%D",6,0)="********NOTE**********"
^DD(53.52,.03,1,1,"%D",7,0)="This xref will no longer be used after Inpatient Medications 4.5."
^DD(53.52,.03,1,1,"DT")="2960228"
^DD(53.52,.03,1,2,0)="53.5^AU7^MUMPS"
^DD(53.52,.03,1,2,1)="Q"
^DD(53.52,.03,1,2,2)="Q"
^DD(53.52,.03,1,2,"%D",0)="^^7^7^2960228^^^"
^DD(53.52,.03,1,2,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.52,.03,1,2,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.52,.03,1,2,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.52,.03,1,2,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.52,.03,1,2,"%D",5,0)=" "
^DD(53.52,.03,1,2,"%D",6,0)="************NOTE************"
^DD(53.52,.03,1,2,"%D",7,0)="This xref will no longer be used after Inpatient Medications 4.5."
^DD(53.52,.03,1,2,"DT")="2960228"
^DD(53.52,.03,21,0)="^^1^1^2931101^"
^DD(53.52,.03,21,1,0)="This is the primary drug assigned to the order."
^DD(53.52,.03,23,0)="^^2^2^2931101^"
^DD(53.52,.03,23,1,0)="This is a pointer to the PRIMARY DRUG file corresponding to the primary"
^DD(53.52,.03,23,2,0)="drug assigned to the order."
^DD(53.52,.03,"DT")="2960228"
^DD(53.52,.04,0)="#TIMES TO BE ADMINISTERED^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(53.52,.04,3)="Answer must be 1-10 characters in length."
^DD(53.52,.04,20,0)="^.3LA^1^1"
^DD(53.52,.04,20,1,0)="PSJ"
^DD(53.52,.04,21,0)="^^2^2^2931101^"
^DD(53.52,.04,21,1,0)="This is the number of times the order is to be given during the duration "
^DD(53.52,.04,21,2,0)="of the pick list."
^DD(53.52,.04,"DT")="2930625"
^DD(53.52,.05,0)="UPDATE^S^1:ORDER HAS BEEN UPDATED;^0;5^Q"
^DD(53.52,.05,1,0)="^.1"
^DD(53.52,.05,1,1,0)="53.5^AU1^MUMPS"
^DD(53.52,.05,1,1,1)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""S"",""AU"")"
^DD(53.52,.05,1,1,2)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""K"",""AU"")"
^DD(53.52,.05,1,1,"%D",0)="^^4^4^2940603^^^"
^DD(53.52,.05,1,1,"%D",1,0)="Cross-reference by:  Pick List Number, Administering Team, Patient"
^DD(53.52,.05,1,1,"%D",2,0)="Ward, Patient Room/Bed, Patient Name^DFN, Schedule Type, Primary"
^DD(53.52,.05,1,1,"%D",3,0)="Drug^IEN, Dispense Drug^IEN.  Used to identify items that were"
^DD(53.52,.05,1,1,"%D",4,0)="updated since the Pick List was run or last updated, for printing."
^DD(53.52,.05,1,1,"DT")="2940602"
^DD(53.52,.05,21,0)="^^2^2^2931116^^"
^DD(53.52,.05,21,1,0)="This is an internal flag to identify orders that have been updated since "
^DD(53.52,.05,21,2,0)="the pick list was originally run."
^DD(53.52,.05,"DT")="2940602"
^DD(53.52,.06,0)="ORDERABLE ITEM^P50.7'^PS(50.7,^0;6^Q"
^DD(53.52,.06,1,0)="^.1"
^DD(53.52,.06,1,1,0)="53.5^AC^MUMPS"
^DD(53.52,.06,1,1,1)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""S"",""AC"")"
^DD(53.52,.06,1,1,2)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""K"",""AC"",""PD"",X)"
^DD(53.52,.06,1,1,"%D",0)="^^4^4^2960228^"
^DD(53.52,.06,1,1,"%D",1,0)="Xref by: PICK LIST #,ADMINISTERING TEAM,PATIENT WARD,PATIENT ROOM-BED,"
^DD(53.52,.06,1,1,"%D",2,0)="PATIENT NAME^DFN,SCHEDULE TYPE,ORDERABLE ITEM^IEN,DISPENSE DRUG^IEN."
^DD(53.52,.06,1,1,"%D",3,0)="Used for printing the Pick List and sending it the the ATC dispensing"
^DD(53.52,.06,1,1,"%D",4,0)="machine by patient."
^DD(53.52,.06,1,1,"DT")="2960228"
^DD(53.52,.06,1,2,0)="53.5^AU^MUMPS"
^DD(53.52,.06,1,2,1)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""S"",""AU"")"
^DD(53.52,.06,1,2,2)="D EN5352^PSGPLXR(DA(2),DA(1),DA,""K"",""AU"")"
^DD(53.52,.06,1,2,"%D",0)="^^4^4^2960228^"
^DD(53.52,.06,1,2,"%D",1,0)="Xref by: PICK LIST #,ADMINISTERING TEAM,PATIENT WARD,PATIENT ROOM-BED,"
^DD(53.52,.06,1,2,"%D",2,0)="PATIENT NAME^DFN,SCHEDULE TYPE,ORDERABLE ITEM^IEN,DISPENSE DRUG^IEN."
^DD(53.52,.06,1,2,"%D",3,0)="Used to identify items that were updated since the pick list was run or"
^DD(53.52,.06,1,2,"%D",4,0)="last updated, for printing."
^DD(53.52,.06,1,2,"DT")="2960228"
^DD(53.52,.06,21,0)="^^1^1^2960228^"
^DD(53.52,.06,21,1,0)="This is the Orderable item assigned to the order."
^DD(53.52,.06,23,0)="^^2^2^2960228^"
^DD(53.52,.06,23,1,0)="This is the pointer the the Orderable Item file (#50.7) corresponding to"
^DD(53.52,.06,23,2,0)="the Orderable Item assigned to the order."
^DD(53.52,.06,"DT")="2960228"
^DD(53.52,1,0)="DISPENSE DRUG^53.53A^^1;0"
^DD(53.52,1,21,0)="^^1^1^2931216^^"
^DD(53.52,1,21,1,0)="This contains the dispense drug information associated with the order."
^DD(53.52,"B","#TIMES TO BE ADMINISTERED",.04)=""
^DD(53.52,"B","*PRIMARY DRUG",.03)=""
^DD(53.52,"B","DISPENSE DRUG",1)=""
^DD(53.52,"B","ORDER",.01)=""
^DD(53.52,"B","ORDERABLE ITEM",.06)=""
^DD(53.52,"B","SCHEDULE TYPE",.02)=""
^DD(53.52,"B","UPDATE",.05)=""
^DD(53.52,"GL",0,1,.01)=""
^DD(53.52,"GL",0,2,.02)=""
^DD(53.52,"GL",0,3,.03)=""
^DD(53.52,"GL",0,4,.04)=""
^DD(53.52,"GL",0,5,.05)=""
^DD(53.52,"GL",0,6,.06)=""
^DD(53.52,"GL",1,0,1)=""
^DD(53.52,"GR","PSJ",.04,1)=""
^DD(53.52,"IX",.01)=""
^DD(53.52,"IX",.02)=""
^DD(53.52,"IX",.03)=""
^DD(53.52,"IX",.05)=""
^DD(53.52,"IX",.06)=""
^DD(53.52,"RQ",.01)=""
^DD(53.52,"RQ",.03)=""
^DD(53.52,"SB",53.53,1)=""
^DD(53.53,0)="DISPENSE DRUG SUB-FIELD^^.04^4"
^DD(53.53,0,"DT")="2931216"
^DD(53.53,0,"IX","B",53.53,.01)=""
^DD(53.53,0,"NM","DISPENSE DRUG")=""
^DD(53.53,0,"UP")="53.52"
^DD(53.53,.01,0)="DISPENSE DRUG^MNJ8,0^^0;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.53,.01,1,0)="^.1"
^DD(53.53,.01,1,1,0)="53.53^B"
^DD(53.53,.01,1,1,1)="S ^PS(53.5,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.53,.01,1,1,2)="K ^PS(53.5,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.53,.01,1,1,"%D",0)="^^1^1^2940603^"
^DD(53.53,.01,1,1,"%D",1,0)="Regular 'B' index of the DISPENSE DRUG sub-field."
^DD(53.53,.01,1,2,0)="53.5^AC8^MUMPS"
^DD(53.53,.01,1,2,1)="D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,""S"",""AC"")"
^DD(53.53,.01,1,2,2)="D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,""K"",""AC"",""PDD"",X)"
^DD(53.53,.01,1,2,"DT")="2940524"
^DD(53.53,.01,1,3,0)="53.5^AU8^MUMPS"
^DD(53.53,.01,1,3,1)="D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,""S"",""AU"")"
^DD(53.53,.01,1,3,2)="D EN5353^PSGPLXR(DA(3),DA(2),DA(1),DA,""K"",""AU"")"
^DD(53.53,.01,1,3,"DT")="2930803"
^DD(53.53,.01,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(53.53,.01,20,0)="^.3LA^1^1"
^DD(53.53,.01,20,1,0)="PSJ"
^DD(53.53,.01,21,0)="^^2^2^2931101^"
^DD(53.53,.01,21,1,0)="This is the dispense drug associated with the order at the time the pick "
^DD(53.53,.01,21,2,0)="list was run."
^DD(53.53,.01,"DT")="2940524"
^DD(53.53,.02,0)="#DOSES NEEDED/ADMINISTRATION^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(53.53,.02,3)="Answer must be 1-10 characters in length."
^DD(53.53,.02,21,0)="^^2^2^2931101^"
^DD(53.53,.02,21,1,0)="This is the number of doses needed of the dispense drug for one"
^DD(53.53,.02,21,2,0)="administration."
^DD(53.53,.02,"DT")="2930709"
^DD(53.53,.03,0)="#DOSES ACTUALLY DISPENSED^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.53,.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(53.53,.03,21,0)="^^3^3^2931101^"
^DD(53.53,.03,21,1,0)="This is the number of doses actually dispensed to the cart. This is entered"
^DD(53.53,.03,21,2,0)="through the Enter Units Dispensed option after the items on the pick list"
^DD(53.53,.03,21,3,0)="have been loaded on the cart."
^DD(53.53,.03,"DT")="2930527"
^DD(53.53,.04,0)="FILED AWAY FLAG^S^1:DISPENSE DRUG DATA FILED AWAY;^0;4^Q"
^DD(53.53,.04,21,0)="^^1^1^2931216^"
^DD(53.53,.04,21,1,0)="This field is set when dispense drug data has been filed away."
^DD(53.53,.04,"DT")="2931216"
^DD(53.53,"B","#DOSES ACTUALLY DISPENSED",.03)=""
^DD(53.53,"B","#DOSES NEEDED/ADMINISTRATION",.02)=""
^DD(53.53,"B","DISPENSE DRUG",.01)=""
^DD(53.53,"B","FILED AWAY FLAG",.04)=""
^DD(53.53,"GL",0,1,.01)=""
^DD(53.53,"GL",0,2,.02)=""
^DD(53.53,"GL",0,3,.03)=""
^DD(53.53,"GL",0,4,.04)=""
^DD(53.53,"GR","PSJ",.01,1)=""
^DD(53.53,"IX",.01)=""
^DD(53.55,0)="FIELD^^10^3"
^DD(53.55,0,"DDA")="N"
^DD(53.55,0,"NM","UNIT DOSE/ATC MEDS")=""
^DD(53.55,0,"VR")="5.0"
^DD(53.55,0,"VRPK")="PSJ"
^DD(53.55,.01,0)="PICK LIST^RP53.5'X^PS(53.5,^0;1^S:$D(X) DINUM=X"
^DD(53.55,.01,1,0)="^.1^^0"
^DD(53.55,.01,3)=""
^DD(53.55,.01,20,0)="^.3LA^1^1"
^DD(53.55,.01,20,1,0)="PSG"
^DD(53.55,.01,21,0)="^.001^2^2^3000601^^^^"
^DD(53.55,.01,21,1,0)="  This is the pick list from which the data for the ATC is"
^DD(53.55,.01,21,2,0)="obtained."
^DD(53.55,1,0)="LAST RECORD SENT^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.55,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(53.55,1,20,0)="^.3LA^1^1"
^DD(53.55,1,20,1,0)="PSG"
^DD(53.55,1,21,0)="^^2^2^3000601^"
^DD(53.55,1,21,1,0)="  This is the last data record (from the 'DATA RECORDS' sub-file) that was"
^DD(53.55,1,21,2,0)="accepted by the ATC."
^DD(53.55,10,0)="DATA RECORDS^53.56A^^1;0"
^DD(53.55,10,21,0)="^.001^1^1^3000601^^^^"
^DD(53.55,10,21,1,0)="  This is the actual data that is sent to the ATC."
^DD(53.55,"B","DATA RECORDS",10)=""
^DD(53.55,"B","LAST RECORD SENT",1)=""
^DD(53.55,"B","PICK LIST",.01)=""
^DD(53.55,"GL",0,1,.01)=""
^DD(53.55,"GL",0,2,1)=""
^DD(53.55,"GL",1,0,10)=""
^DD(53.55,"GR","PSG",.01,1)=""
^DD(53.55,"GR","PSG",1,1)=""
^DD(53.55,"RQ",.01)=""
^DD(53.55,"SB",53.56,10)=""
^DD(53.56,0)="DATA RECORDS SUB-FIELD^^.01^1"
^DD(53.56,0,"NM","DATA RECORDS")=""
^DD(53.56,0,"UP")="53.55"
^DD(53.56,.01,0)="DATA RECORDS^F^^0;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(53.56,.01,1,0)="^.1^^0"
^DD(53.56,.01,3)="Answer must be 1-245 characters in length."
^DD(53.56,.01,20,0)="^.3LA^1^1"
^DD(53.56,.01,20,1,0)="PSG"
^DD(53.56,.01,21,0)="^.001^1^1^3000601^^^^"
^DD(53.56,.01,21,1,0)="  This is the actual data that is sent to the ATC."
^DD(53.56,"B","DATA RECORDS",.01)=""
^DD(53.56,"GL",0,"E1,245",.01)=""
^DD(53.56,"GR","PSG",.01,1)=""
^DD(53.66,0)="FIELD^^.05^3"
^DD(53.66,0,"DDA")="N"
^DD(53.66,0,"DT")="3020426"
^DD(53.66,0,"IX","B",53.66,.01)=""
^DD(53.66,0,"NM","BCMA IV PARAMETERS")=""
^DD(53.66,0,"VR")="3.0"
^DD(53.66,0,"VRPK")="PSB"
^DD(53.66,.01,0)="WARD^RP42'^DIC(42,^0;1^Q"
^DD(53.66,.01,1,0)="^.1"
^DD(53.66,.01,1,1,0)="53.66^B"
^DD(53.66,.01,1,1,1)="S ^PSB(53.66,""B"",$E(X,1,30),DA)="""""
^DD(53.66,.01,1,1,2)="K ^PSB(53.66,""B"",$E(X,1,30),DA)"
^DD(53.66,.01,3)="ENTER A WARD FROM THE WARD LOCATION FILE"
^DD(53.66,.01,21,0)="^^1^1^3010831^"
^DD(53.66,.01,21,1,0)="The name of the ward that IV parameters are defined for."
^DD(53.66,.01,"DT")="3010831"
^DD(53.66,.03,0)="INSTITUTION^RP4'^DIC(4,^0;2^Q"
^DD(53.66,.03,21,0)="^^1^1^3010831^"
^DD(53.66,.03,21,1,0)="The institution that this ward is associated with."
^DD(53.66,.03,"DT")="3010831"
^DD(53.66,.05,0)="IV TYPE^53.67SA^^1;0"
^DD(53.66,.05,21,0)="^.001^1^1^3010918^^^^"
^DD(53.66,.05,21,1,0)="The IV type - Admixture; Chemotherapy; Hyperal; Piggyback; or Syringe."
^DD(53.66,"B","INSTITUTION",.03)=""
^DD(53.66,"B","IV TYPE",.05)=""
^DD(53.66,"B","WARD",.01)=""
^DD(53.66,"GL",0,1,.01)=""
^DD(53.66,"GL",0,2,.03)=""
^DD(53.66,"GL",1,0,.05)=""
^DD(53.66,"IX",.01)=""
^DD(53.66,"RQ",.01)=""
^DD(53.66,"RQ",.03)=""
^DD(53.66,"SB",53.67,.05)=""
^DD(53.67,0)="IV TYPE SUB-FIELD^^70^16"
^DD(53.67,0,"DT")="3020426"
^DD(53.67,0,"IX","B",53.67,.01)=""
^DD(53.67,0,"NM","IV TYPE")=""
^DD(53.67,0,"UP")="53.66"
^DD(53.67,.01,0)="IV TYPE^S^A:ADMIXTURE;C:CHEMOTHERAPY;H:HYPERAL;P:PIGGYBACK;S:SYRINGE;^0;1^Q"
^DD(53.67,.01,1,0)="^.1"
^DD(53.67,.01,1,1,0)="53.67^B"
^DD(53.67,.01,1,1,1)="S ^PSB(53.66,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.67,.01,1,1,2)="K ^PSB(53.66,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.67,.01,21,0)="^^1^1^3020426^"
^DD(53.67,.01,21,1,0)="Stores the IV parameter settings by IV Type."
^DD(53.67,.01,"DT")="3020426"
^DD(53.67,1,0)="ADDITIVE^S^W:WARNING;N:NO WARNING;I:INVALID;^0;2^Q"
^DD(53.67,1,21,0)="^.001^1^1^3010918^^"
^DD(53.67,1,21,1,0)="Stores the parameter setting when a change is made to an additive."
^DD(53.67,1,"DT")="3010831"
^DD(53.67,5,0)="STRENGTH^S^W:WARNING;N:NO WARNING;I:INVALID;^0;3^Q"
^DD(53.67,5,21,0)="^.001^1^1^3010918^^"
^DD(53.67,5,21,1,0)="Stores the parameter setting when a change is made to the strength."
^DD(53.67,5,"DT")="3010105"
^DD(53.67,10,0)="BOTTLE^S^W:WARNING;N:NO WARNING;I:INVALID;^0;4^Q"
^DD(53.67,10,21,0)="^.001^1^1^3010918^^"
^DD(53.67,10,21,1,0)="Stores the parameter setting when a change is made to the bottle."
^DD(53.67,10,"DT")="3010105"
^DD(53.67,15,0)="SOLUTION^S^W:WARNING;N:NO WARNING;I:INVALID;^0;5^Q"
^DD(53.67,15,21,0)="^.001^1^1^3010918^^"
^DD(53.67,15,21,1,0)="Stores the parameter setting when a change is made to the solution."
^DD(53.67,15,"DT")="3010105"
^DD(53.67,20,0)="VOLUME^S^W:WARNING;N:NO WARNING;I:INVALID;^0;6^Q"
^DD(53.67,20,21,0)="^.001^1^1^3010918^^"
^DD(53.67,20,21,1,0)="Stores the parameter setting when a change is made to the IV volume."
^DD(53.67,20,"DT")="3010105"
^DD(53.67,25,0)="INFUSION RATE^S^W:WARNING;N:NO WARNING;I:INVALID;^0;7^Q"
^DD(53.67,25,21,0)="^.001^1^1^3010918^^"
^DD(53.67,25,21,1,0)="Stores the parameter setting when a change is made to the infusion rate."
^DD(53.67,25,"DT")="3010105"
^DD(53.67,30,0)="MED ROUTE^S^W:WARNING;N:NO WARNING;I:INVALID;^0;8^Q"
^DD(53.67,30,21,0)="^.001^1^1^3010918^^"
^DD(53.67,30,21,1,0)="Stores the parameter setting when a change is made to the IV medication route."
^DD(53.67,30,"DT")="3010105"
^DD(53.67,35,0)="SCHEDULE^S^W:WARNING;N:NO WARNING;I:INVALID;^0;9^Q"
^DD(53.67,35,21,0)="^.001^1^1^3010918^^"
^DD(53.67,35,21,1,0)="Stores the parameter setting when a change is made to the IV schedule."
^DD(53.67,35,"DT")="3010105"
^DD(53.67,40,0)="ADMIN TIME^S^W:WARNING;N:NO WARNING;I:INVALID;^0;10^Q"
^DD(53.67,40,21,0)="^.001^1^1^3010918^^"
^DD(53.67,40,21,1,0)="Stores the parameter setting when a change is made to the IV administration time."
^DD(53.67,40,"DT")="3010105"
^DD(53.67,45,0)="REMARKS^S^W:WARNING;N:NO WARNING;I:INVALID;^0;11^Q"
^DD(53.67,45,21,0)="^.001^1^1^3010918^^"
^DD(53.67,45,21,1,0)="Stores the parameter setting when a change is made to the IV remarks."
^DD(53.67,45,"DT")="3010105"
^DD(53.67,50,0)="OTHER PRINT INFO^S^W:WARNING;N:NO WARNING;I:INVALID;^0;12^Q"
^DD(53.67,50,21,0)="^.001^1^1^3010918^^"
^DD(53.67,50,21,1,0)="Stores the parameter setting when a change is made to the IV other print information."
^DD(53.67,50,"DT")="3010105"
^DD(53.67,55,0)="PROVIDER^S^W:WARNING;N:NO WARNING;I:INVALID;^0;13^Q"
^DD(53.67,55,21,0)="^.001^1^1^3010918^^"
^DD(53.67,55,21,1,0)="Stores the parameter setting when a change is made to the IV provider."
^DD(53.67,55,"DT")="3010105"
^DD(53.67,60,0)="START DATE/TIME^S^W:WARNING;N:NO WARNING;I:INVALID;^0;14^Q"
^DD(53.67,60,21,0)="^.001^1^1^3010918^^^"
^DD(53.67,60,21,1,0)="Stores the parameter setting when a change is made to the IV start date and time."
^DD(53.67,60,23,0)="^.001^1^1^3010918^^"
^DD(53.67,60,23,1,0)=" "
^DD(53.67,60,"DT")="3010105"
^DD(53.67,65,0)="STOP DATE/TIME^S^W:WARNING;N:NO WARNING;I:INVALID;^0;15^Q"
^DD(53.67,65,21,0)="^.001^1^1^3010918^^"
^DD(53.67,65,21,1,0)="Stores the parameter setting when a change is made to the IV stop date and time."
^DD(53.67,65,"DT")="3010105"
^DD(53.67,70,0)="PROVIDER COMMENTS^S^W:WARNING;N:NO WARNING;I:INVALID;^0;16^Q"
^DD(53.67,70,21,0)="^.001^1^1^3010918^^"
^DD(53.67,70,21,1,0)="Stores the parameter setting when a change is made to the provider comments."
^DD(53.67,70,"DT")="3010105"
^DD(53.67,"B","ADDITIVE",1)=""
^DD(53.67,"B","ADMIN TIME",40)=""
^DD(53.67,"B","BOTTLE",10)=""
^DD(53.67,"B","INFUSION RATE",25)=""
^DD(53.67,"B","IV TYPE",.01)=""
^DD(53.67,"B","MED ROUTE",30)=""
^DD(53.67,"B","OTHER PRINT INFO",50)=""
^DD(53.67,"B","PROVIDER",55)=""
^DD(53.67,"B","PROVIDER COMMENTS",70)=""
^DD(53.67,"B","REMARKS",45)=""
^DD(53.67,"B","SCHEDULE",35)=""
^DD(53.67,"B","SOLUTION",15)=""
^DD(53.67,"B","START DATE/TIME",60)=""
^DD(53.67,"B","STOP DATE/TIME",65)=""
^DD(53.67,"B","STRENGTH",5)=""
^DD(53.67,"B","VOLUME",20)=""
^DD(53.67,"GL",0,1,.01)=""
^DD(53.67,"GL",0,2,1)=""
^DD(53.67,"GL",0,3,5)=""
^DD(53.67,"GL",0,4,10)=""
^DD(53.67,"GL",0,5,15)=""
^DD(53.67,"GL",0,6,20)=""
^DD(53.67,"GL",0,7,25)=""
^DD(53.67,"GL",0,8,30)=""
^DD(53.67,"GL",0,9,35)=""
^DD(53.67,"GL",0,10,40)=""
^DD(53.67,"GL",0,11,45)=""
^DD(53.67,"GL",0,12,50)=""
^DD(53.67,"GL",0,13,55)=""
^DD(53.67,"GL",0,14,60)=""
^DD(53.67,"GL",0,15,65)=""
^DD(53.67,"GL",0,16,70)=""
^DD(53.67,"IX",.01)=""
^DD(53.68,0)="FIELD^^.27^23"
^DD(53.68,0,"DDA")="N"
^DD(53.68,0,"DT")="3031030"
^DD(53.68,0,"IX","ADTE",53.68,.02)=""
^DD(53.68,0,"IX","AS",53.68,.07)=""
^DD(53.68,0,"IX","B",53.68,.01)=""
^DD(53.68,0,"NM","BCMA MISSING DOSE REQUEST")=""
^DD(53.68,0,"VR")="3.0"
^DD(53.68,0,"VRPK")="PSB"
^DD(53.68,.01,0)="REQUEST NUMBER^RF^^0;1^K:$L(X)>18!($L(X)<18) X"
^DD(53.68,.01,1,0)="^.1"
^DD(53.68,.01,1,1,0)="53.68^B"
^DD(53.68,.01,1,1,1)="S ^PSB(53.68,""B"",$E(X,1,30),DA)="""""
^DD(53.68,.01,1,1,2)="K ^PSB(53.68,""B"",$E(X,1,30),DA)"
^DD(53.68,.01,3)="Answer must be 18 characters in length."
^DD(53.68,.01,21,0)="^^2^2^2990805^"
^DD(53.68,.01,21,1,0)="Contains a system generated unique request number for each missing dose"
^DD(53.68,.01,21,2,0)="request entered."
^DD(53.68,.01,"DT")="2990313"
^DD(53.68,.02,0)="DATE/TIME ENTERED^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.68,.02,1,0)="^.1"
^DD(53.68,.02,1,1,0)="53.68^ADTE"
^DD(53.68,.02,1,1,1)="S ^PSB(53.68,""ADTE"",$E(X,1,30),DA)="""""
^DD(53.68,.02,1,1,2)="K ^PSB(53.68,""ADTE"",$E(X,1,30),DA)"
^DD(53.68,.02,1,1,"DT")="2990318"
^DD(53.68,.02,3)=""
^DD(53.68,.02,21,0)="^^1^1^2990731^^^^"
^DD(53.68,.02,21,1,0)="Automatically stuffed at record creation time with a value of NOW."
^DD(53.68,.02,"DT")="2990318"
^DD(53.68,.03,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(53.68,.03,21,0)="2^^2^2^2990731^"
^DD(53.68,.03,21,1,0)="Automatically stuffed at record creation time with the current value of"
^DD(53.68,.03,21,2,0)="DUZ."
^DD(53.68,.03,"DT")="2990313"
^DD(53.68,.04,0)="DIVISION^P4'^DIC(4,^0;4^Q"
^DD(53.68,.04,21,0)="^^2^2^2990731^^^"
^DD(53.68,.04,21,1,0)="Automatically stuffed at record creation time with the current value of"
^DD(53.68,.04,21,2,0)="DUZ(2)."
^DD(53.68,.04,"DT")="2990313"
^DD(53.68,.05,0)="SENT TO MAILGROUP^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(53.68,.05,3)="Answer must be 1-30 characters in length."
^DD(53.68,.05,21,0)="^^1^1^2990731^"
^DD(53.68,.05,21,1,0)="Once submitted this field contains the Mail group the request was sent to."
^DD(53.68,.05,"DT")="2990326"
^DD(53.68,.06,0)="PRINTED ON DEVICE^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(53.68,.06,3)="Answer must be 1-30 characters in length."
^DD(53.68,.06,21,0)="^^2^2^2990731^"
^DD(53.68,.06,21,1,0)="If printing is enabled this contains the printer that the request printed"
^DD(53.68,.06,21,2,0)="on."
^DD(53.68,.06,"DT")="2990326"
^DD(53.68,.07,0)="STATUS^S^0:CLOSED;1:UNRESOLVED;^0;7^Q"
^DD(53.68,.07,1,0)="^.1"
^DD(53.68,.07,1,1,0)="53.68^AS"
^DD(53.68,.07,1,1,1)="S ^PSB(53.68,""AS"",$E(X,1,30),DA)="""""
^DD(53.68,.07,1,1,2)="K ^PSB(53.68,""AS"",$E(X,1,30),DA)"
^DD(53.68,.07,1,1,"DT")="2990408"
^DD(53.68,.07,5,1,0)="53.68^.24^1"
^DD(53.68,.07,21,0)="^^1^1^2990731^"
^DD(53.68,.07,21,1,0)="Status of the request as Closed or Unresolved."
^DD(53.68,.07,"DT")="2990408"
^DD(53.68,.11,0)="PATIENT^P2'^DPT(^.1;1^Q"
^DD(53.68,.11,21,0)="^^1^1^2990731^"
^DD(53.68,.11,21,1,0)="Pointer to the PATIENT file (#2) of the patient missing the medication."
^DD(53.68,.11,"DT")="2990313"
^DD(53.68,.12,0)="WARD LOCATION^P42'^DIC(42,^.1;2^Q"
^DD(53.68,.12,21,0)="^^2^2^2990805^"
^DD(53.68,.12,21,1,0)="Pointer to the WARD LOCATION file (#42) with the selected ward for the"
^DD(53.68,.12,21,2,0)="report."
^DD(53.68,.12,"DT")="2990326"
^DD(53.68,.13,0)="DRUG REQUESTED^P50'X^PSDRUG(^.1;3^I ($P($G(^PSDRUG(X,2)),U,3)'[""U"")&($P($G(^PSDRUG(X,2)),U,3)'[""I"")!($G(^PSDRUG(X,""I""),DT)<DT) K X"
^DD(53.68,.13,3)="Drug must be active and a Unit Dose or IV med."
^DD(53.68,.13,21,0)="^.001^1^1^3000509^^"
^DD(53.68,.13,21,1,0)="Pointer to DRUG file (#50) with the medication needed."
^DD(53.68,.13,"DT")="3000508"
^DD(53.68,.14,0)="DOSE NEEDED^F^^.1;4^K:$L(X)>30!($L(X)<1) X"
^DD(53.68,.14,3)="Answer must be 1-30 characters in length."
^DD(53.68,.14,21,0)="^^1^1^2990731^"
^DD(53.68,.14,21,1,0)="Free text description of the dosage needed."
^DD(53.68,.14,"DT")="2990313"
^DD(53.68,.15,0)="REASON NEEDED^S^1:DROPPED;2:EMPTY PACKAGE;3:NOT AVAILABLE;4:WRONG DOSE/DRUG DELIVERED;5:PACKAGE CONTENTS DAMAGED;6:PACKAGE INTEGRITY DAMAGED;7:BARCODE/IEN ILLEGIBLE;^.1;5^Q"
^DD(53.68,.15,21,0)="^^1^1^2990731^"
^DD(53.68,.15,21,1,0)="Set of codes containing the reason a medication is missing."
^DD(53.68,.15,"DT")="3031030"
^DD(53.68,.16,0)="ADMINISTRATION DATE/TIME^D^^.1;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.68,.16,21,0)="^^1^1^2990731^"
^DD(53.68,.16,21,1,0)="Date/Time the medication is to be administered."
^DD(53.68,.16,"DT")="2990313"
^DD(53.68,.17,0)="NEEDED BY DATE/TIME^D^^.1;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.68,.17,3)=""
^DD(53.68,.17,21,0)="^.001^1^1^3020426^^^^"
^DD(53.68,.17,21,1,0)="Date/Time the medication will be needed to meet the next administration."
^DD(53.68,.17,"DT")="3020426"
^DD(53.68,.18,0)="ROOM/BED^P405.4'^DG(405.4,^.1;8^Q"
^DD(53.68,.18,21,0)="^^1^1^3000511^"
^DD(53.68,.18,21,1,0)="The room/bed of the patient when the request is entered."
^DD(53.68,.18,"DT")="3000511"
^DD(53.68,.19,0)="SCHEDULE^F^^.1;9^K:$L(X)>25!($L(X)<2) X"
^DD(53.68,.19,3)="Answer must be 2-25 characters in length."
^DD(53.68,.19,"DT")="3020426"
^DD(53.68,.21,0)="DOSE DELIVERED^S^0:NO;1:YES;^.2;1^Q"
^DD(53.68,.21,21,0)="^^1^1^2990731^"
^DD(53.68,.21,21,1,0)="Was a dose delivered to complete this missing med request. (y/n)"
^DD(53.68,.21,"DT")="2990313"
^DD(53.68,.22,0)="DOSE DELIVERED BY^P200'^VA(200,^.2;2^Q"
^DD(53.68,.22,21,0)="^^1^1^2990731^"
^DD(53.68,.22,21,1,0)="Pointer to NEW PERSON file (#200) with the user who resolved the request."
^DD(53.68,.22,"DT")="2990313"
^DD(53.68,.23,0)="DELIVERY TIME^D^^.2;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.68,.23,21,0)="^^1^1^2990731^"
^DD(53.68,.23,21,1,0)="Date/Time the medication was delivered/resolved."
^DD(53.68,.23,"DT")="2990313"
^DD(53.68,.24,0)="PHARMACY REASON NEEDED^S^1:WS/FILL ON REQUEST;2:FOUND IN DRAWER;3:PHARMACIST ERROR;4:EXPIRED/NO ORDER;5:ATC ERROR;6:NOT ENOUGH PRNS;7:TECHNICIAN ERROR;8:ON PRE-EXCHANGE/PICK LIST;9:PATIENT TRANSFERRED;10:NURSE ADMIN ERROR;^.2;4^Q"
^DD(53.68,.24,1,0)="^.1"
^DD(53.68,.24,1,1,0)="^^TRIGGER^53.68^.07"
^DD(53.68,.24,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.68,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""0"" X ^DD(53.68,.24,1,1,1.4)"
^DD(53.68,.24,1,1,1.4)="S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.68,.24,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.68,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(53.68,.24,1,1,2.4)"
^DD(53.68,.24,1,1,2.4)="S DIH=$S($D(^PSB(53.68,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=53.68,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.68,.24,1,1,"CREATE VALUE")="""0"""
^DD(53.68,.24,1,1,"DELETE VALUE")="""1"""
^DD(53.68,.24,1,1,"DT")="2990408"
^DD(53.68,.24,1,1,"FIELD")="STATUS"
^DD(53.68,.24,21,0)="^^1^1^2990731^"
^DD(53.68,.24,21,1,0)="Set of coded for resolution reason."
^DD(53.68,.24,"DT")="2990408"
^DD(53.68,.25,0)="UNIQUE ID^F^^.1;10^K:$L(X)>30!($L(X)<3) X"
^DD(53.68,.25,3)="Answer must be 3-30 characters in length."
^DD(53.68,.25,21,0)="^^2^2^3020428^"
^DD(53.68,.25,21,1,0)="This is the unique ID number of an IV bag, which is generated from "
^DD(53.68,.25,21,2,0)="Inpatient Medications."
^DD(53.68,.25,"DT")="3020428"
^DD(53.68,.26,0)="ADDITIVES^53.686PA^^.6;0"
^DD(53.68,.26,21,0)="^.001^1^1^3020426^^"
^DD(53.68,.26,21,1,0)="Pointer to the additives file. Filled in automatically with the ordered additives when a missing dose is submitted."
^DD(53.68,.27,0)="SOLUTIONS^53.687PA^^.7;0"
^DD(53.68,.27,21,0)="^^1^1^3020426^"
^DD(53.68,.27,21,1,0)="Pointer to the SOLUTIONS file. Filled in automatically with the ordered additives when a missing dose is submitted."
^DD(53.68,"B","ADDITIVES",.26)=""
^DD(53.68,"B","ADMINISTRATION DATE/TIME",.16)=""
^DD(53.68,"B","DATE/TIME ENTERED",.02)=""
^DD(53.68,"B","DELIVERY TIME",.23)=""
^DD(53.68,"B","DIVISION",.04)=""
^DD(53.68,"B","DOSE DELIVERED",.21)=""
^DD(53.68,"B","DOSE DELIVERED BY",.22)=""
^DD(53.68,"B","DOSE NEEDED",.14)=""
^DD(53.68,"B","DRUG REQUESTED",.13)=""
^DD(53.68,"B","ENTERED BY",.03)=""
^DD(53.68,"B","NEEDED BY DATE/TIME",.17)=""
^DD(53.68,"B","PATIENT",.11)=""
^DD(53.68,"B","PHARMACY REASON NEEDED",.24)=""
^DD(53.68,"B","PRINTED ON DEVICE",.06)=""
^DD(53.68,"B","REASON NEEDED",.15)=""
^DD(53.68,"B","REQUEST NUMBER",.01)=""
^DD(53.68,"B","ROOM/BED",.18)=""
^DD(53.68,"B","SCHEDULE",.19)=""
^DD(53.68,"B","SENT TO MAILGROUP",.05)=""
^DD(53.68,"B","SOLUTIONS",.27)=""
^DD(53.68,"B","STATUS",.07)=""
^DD(53.68,"B","UNIQUE ID",.25)=""
^DD(53.68,"B","WARD LOCATION",.12)=""
^DD(53.68,"GL",0,1,.01)=""
^DD(53.68,"GL",0,2,.02)=""
^DD(53.68,"GL",0,3,.03)=""
^DD(53.68,"GL",0,4,.04)=""
^DD(53.68,"GL",0,5,.05)=""
^DD(53.68,"GL",0,6,.06)=""
^DD(53.68,"GL",0,7,.07)=""
^DD(53.68,"GL",.1,1,.11)=""
^DD(53.68,"GL",.1,2,.12)=""
^DD(53.68,"GL",.1,3,.13)=""
^DD(53.68,"GL",.1,4,.14)=""
^DD(53.68,"GL",.1,5,.15)=""
^DD(53.68,"GL",.1,6,.16)=""
^DD(53.68,"GL",.1,7,.17)=""
^DD(53.68,"GL",.1,8,.18)=""
^DD(53.68,"GL",.1,9,.19)=""
^DD(53.68,"GL",.1,10,.25)=""
^DD(53.68,"GL",.2,1,.21)=""
^DD(53.68,"GL",.2,2,.22)=""
^DD(53.68,"GL",.2,3,.23)=""
^DD(53.68,"GL",.2,4,.24)=""
^DD(53.68,"GL",.6,0,.26)=""
^DD(53.68,"GL",.7,0,.27)=""
^DD(53.68,"IX",.01)=""
^DD(53.68,"IX",.02)=""
^DD(53.68,"IX",.07)=""
^DD(53.68,"IX",.24)=""
^DD(53.68,"RQ",.01)=""
^DD(53.68,"SB",53.686,.26)=""
^DD(53.68,"SB",53.687,.27)=""
^DD(53.686,0)="ADDITIVES SUB-FIELD^^.01^1"
^DD(53.686,0,"DT")="3010525"
^DD(53.686,0,"IX","B",53.686,.01)=""
^DD(53.686,0,"NM","ADDITIVES")=""
^DD(53.686,0,"UP")="53.68"
^DD(53.686,.01,0)="ADDITIVES^P52.6'^PS(52.6,^0;1^Q"
^DD(53.686,.01,1,0)="^.1"
^DD(53.686,.01,1,1,0)="53.686^B"
^DD(53.686,.01,1,1,1)="S ^PSB(53.68,DA(1),.6,""B"",$E(X,1,30),DA)="""""
^DD(53.686,.01,1,1,2)="K ^PSB(53.68,DA(1),.6,""B"",$E(X,1,30),DA)"
^DD(53.686,.01,21,0)="^.001^2^2^3020426^^"
^DD(53.686,.01,21,1,0)="Pointer to the additives file.  Filled in automatically with the ordered"
^DD(53.686,.01,21,2,0)="additives when a missing dose is submitted."
^DD(53.686,.01,"DT")="3020426"
^DD(53.686,"B","ADDITIVES",.01)=""
^DD(53.686,"GL",0,1,.01)=""
^DD(53.686,"IX",.01)=""
^DD(53.687,0)="SOLUTIONS SUB-FIELD^^.01^1"
^DD(53.687,0,"DT")="3010525"
^DD(53.687,0,"IX","B",53.687,.01)=""
^DD(53.687,0,"NM","SOLUTIONS")=""
^DD(53.687,0,"UP")="53.68"
^DD(53.687,.01,0)="SOLUTIONS^P52.7'^PS(52.7,^0;1^Q"
^DD(53.687,.01,1,0)="^.1"
^DD(53.687,.01,1,1,0)="53.687^B"
^DD(53.687,.01,1,1,1)="S ^PSB(53.68,DA(1),.7,""B"",$E(X,1,30),DA)="""""
^DD(53.687,.01,1,1,2)="K ^PSB(53.68,DA(1),.7,""B"",$E(X,1,30),DA)"
^DD(53.687,.01,21,0)="^^1^1^3020426^"
^DD(53.687,.01,21,1,0)="Pointer to the SOLUTIONS file. Filled in automatically with the ordered additives when a missing dose is submitted."
^DD(53.687,.01,"DT")="3010525"
^DD(53.687,"B","SOLUTIONS",.01)=""
^DD(53.687,"GL",0,1,.01)=""
^DD(53.687,"IX",.01)=""
^DD(53.69,0)="FIELD^^.51^42"
^DD(53.69,0,"DDA")="N"
^DD(53.69,0,"DT")="3031009"
^DD(53.69,0,"IX","B",53.69,.01)=""
^DD(53.69,0,"NM","BCMA REPORT REQUEST")=" "
^DD(53.69,0,"VR")="3.0"
^DD(53.69,0,"VRPK")="PSB"
^DD(53.69,.01,0)="REQUEST NUMBER^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(53.69,.01,.1)="Request Number"
^DD(53.69,.01,1,0)="^.1"
^DD(53.69,.01,1,1,0)="53.69^B"
^DD(53.69,.01,1,1,1)="S ^PSB(53.69,""B"",$E(X,1,30),DA)="""""
^DD(53.69,.01,1,1,2)="K ^PSB(53.69,""B"",$E(X,1,30),DA)"
^DD(53.69,.01,3)="Answer must be 3-30 characters in length."
^DD(53.69,.01,21,0)="^^1^1^2990731^^"
^DD(53.69,.01,21,1,0)="Unique identifier for the report request."
^DD(53.69,.01,"DT")="2990112"
^DD(53.69,.02,0)="DATE/TIME ENTERED^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.69,.02,.1)="Date/Time Entered"
^DD(53.69,.02,21,0)="^^1^1^2990731^^"
^DD(53.69,.02,21,1,0)="Automatically stuffed at record creation with a value of NOW."
^DD(53.69,.02,"DT")="2990313"
^DD(53.69,.03,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(53.69,.03,.1)="Entered By"
^DD(53.69,.03,21,0)="^.001^2^2^3010919^^^"
^DD(53.69,.03,21,1,0)="Automatically stuffed at record creation time with the current value for"
^DD(53.69,.03,21,2,0)="DUZ."
^DD(53.69,.03,"DT")="2990313"
^DD(53.69,.04,0)="DIVISION^P4'^DIC(4,^0;4^Q"
^DD(53.69,.04,.1)="Division"
^DD(53.69,.04,21,0)="^^2^2^2990731^^"
^DD(53.69,.04,21,1,0)="Automatically stuffed at record creation time with the current value for"
^DD(53.69,.04,21,2,0)="DUZ(2)."
^DD(53.69,.04,"DT")="2990313"
^DD(53.69,.05,0)="TYPE OF REQUEST^F^^0;5^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(53.69,.05,.1)="Type of Request"
^DD(53.69,.05,3)="Answer must be 2 characters in length"
^DD(53.69,.05,21,0)="^.001^28^28^3071026^^^"
^DD(53.69,.05,21,1,0)="Automatically stuffed at record creation with the type of report that is"
^DD(53.69,.05,21,2,0)="being requested.  Used to drive the report later on by appending the"
^DD(53.69,.05,21,3,0)="internal code to ""DQ^PSBO""_type for the routine reference to run.  (i.e."
^DD(53.69,.05,21,4,0)="ML for med log would call DQ^PSBOML to generate the report.) "
^DD(53.69,.05,21,5,0)="Report types DL = Due List"
^DD(53.69,.05,21,6,0)="             MH = Medication Admin History (MAH)"
^DD(53.69,.05,21,7,0)="             ML = Med Log"
^DD(53.69,.05,21,8,0)="             MM = Missed Medications"
^DD(53.69,.05,21,9,0)="             PE = PRN Effectiveness List"
^DD(53.69,.05,21,10,0)="             PM = Patient Medication History"
^DD(53.69,.05,21,11,0)="             WA = Ward Administration Times"
^DD(53.69,.05,21,12,0)="             MV = Medication Variance Log"
^DD(53.69,.05,21,13,0)="             BL = Bar Code Label"
^DD(53.69,.05,21,14,0)="             MD = Missing Dose Follow-up"
^DD(53.69,.05,21,15,0)="             AL = Allergy Report"
^DD(53.69,.05,21,16,0)="             PI = Patient Inquiry"
^DD(53.69,.05,21,17,0)="             DO = Display Order"
^DD(53.69,.05,21,18,0)="             VT = Vitals Cumulative"
^DD(53.69,.05,21,19,0)="             PF = Patient Record Flag"
^DD(53.69,.05,21,20,0)="             XA = Unknown Action Status Report"
^DD(53.69,.05,21,21,0)="             CE = BCMA Coversheet Expired Orders Report"
^DD(53.69,.05,21,22,0)="             CI = BCMA Coversheet IV Overview Report"
^DD(53.69,.05,21,23,0)="             CM = BCMA Coversheet Medication Overview Report"
^DD(53.69,.05,21,24,0)="             CP = BCMA Coversheet PRN Overview Report"
^DD(53.69,.05,21,25,0)="             IV = BCMA IV Bag Status Report"
^DD(53.69,.05,21,26,0)="             MT = BCMA Medication Therapy Report"
^DD(53.69,.05,21,27,0)="             BZ = Barcode Label Print"
^DD(53.69,.05,21,28,0)=""
^DD(53.69,.05,"DT")="3070612"
^DD(53.69,.06,0)="OUTPUT DEVICE^P3.5'^%ZIS(1,^0;6^Q"
^DD(53.69,.06,.1)="Output DEVICE"
^DD(53.69,.06,21,0)="^^4^4^2990731^^"
^DD(53.69,.06,21,1,0)="Pointer to the device file the user has selected."
^DD(53.69,.06,21,2,0)=" "
^DD(53.69,.06,21,3,0)="NOTE: A device containing 'BROWSER' will be sent directly to the device,"
^DD(53.69,.06,21,4,0)="all other devices will be submitted to Taskman."
^DD(53.69,.06,"DT")="2990317"
^DD(53.69,.07,0)="DEQUEUE TIME^D^^0;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.69,.07,.1)="Queue to Run At"
^DD(53.69,.07,21,0)="^^1^1^2990731^^"
^DD(53.69,.07,21,1,0)="Date/time the user would like the report to print."
^DD(53.69,.07,"DT")="2990313"
^DD(53.69,.08,0)="ZTSK^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(53.69,.08,.1)="Task Number"
^DD(53.69,.08,3)="Answer must be 1-20 characters in length."
^DD(53.69,.08,21,0)="^^2^2^2990805^"
^DD(53.69,.08,21,1,0)="Automatically stuffed when the print job starts for later tracking and"
^DD(53.69,.08,21,2,0)="trouble shooting."
^DD(53.69,.08,"DT")="2990313"
^DD(53.69,.09,0)="ORDER/ORDERABLE ITEM NUMBER^F^^0;9^K:$L(X)>15!($L(X)<1) X"
^DD(53.69,.09,3)="Answer must be 1-15 characters in length"
^DD(53.69,.09,21,0)="^^3^3^3010919^"
^DD(53.69,.09,21,1,0)="This field will contain either the Inpatient Medications order number"
^DD(53.69,.09,21,2,0)="for the ""Display Order"" request from the GUI or the orderable item number"
^DD(53.69,.09,21,3,0)="for a ""Med History"" request."
^DD(53.69,.09,23,0)="^.001^1^1^3010919^^^^"
^DD(53.69,.09,23,1,0)=" "
^DD(53.69,.09,"DT")="3010919"
^DD(53.69,.11,0)="SORT BY^S^P:Patient;W:Ward;^.1;1^Q"
^DD(53.69,.11,.1)="Sort by Pt or Ward"
^DD(53.69,.11,21,0)="^.001^1^1^3011119^^^"
^DD(53.69,.11,21,1,0)="Determines the type of report (W:An entire ward P:An individual patient)"
^DD(53.69,.11,"DT")="3011119"
^DD(53.69,.12,0)="PATIENT^P2'^DPT(^.1;2^Q"
^DD(53.69,.12,.1)="Patient"
^DD(53.69,.12,21,0)="^^2^2^2990731^^"
^DD(53.69,.12,21,1,0)="Pointer to the patient file with the selected patient for a Patient"
^DD(53.69,.12,21,2,0)="specific report."
^DD(53.69,.12,"DT")="2990701"
^DD(53.69,.121,0)="PATIENT SSN (C)^CJ9^^ ; ^X ^DD(53.69,.121,9.2) S Y(53.69,.121,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(53.69,.121,101),U,9) S D0=Y(53.69,.121,80)"
^DD(53.69,.121,9)="^"
^DD(53.69,.121,9.01)="2^.09;53.69^.12"
^DD(53.69,.121,9.1)="#.12:#.09"
^DD(53.69,.121,9.2)="S Y(53.69,.121,80)=$S($D(D0):D0,1:""""),Y(53.69,.121,1)=$S($D(^PSB(53.69,D0,.1)):^(.1),1:""""),D0=$P(Y(53.69,.121,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(53.69,.121,21,0)="^^1^1^2990731^"
^DD(53.69,.121,21,1,0)="Computed field to easily display Patients SSN."
^DD(53.69,.122,0)="PATIENT WARD LOCATION (C)^CJ15^^ ; ^X ^DD(53.69,.122,9.2) S Y(53.69,.122,101)=$S($D(^DPT(D0,.1)):^(.1),1:"""") S X=$E(Y(53.69,.122,101),1,30) S D0=Y(53.69,.122,80)"
^DD(53.69,.122,9)="^"
^DD(53.69,.122,9.01)="2^.1;53.69^.12"
^DD(53.69,.122,9.1)="#.12:#.1"
^DD(53.69,.122,9.2)="S Y(53.69,.122,80)=$S($D(D0):D0,1:""""),Y(53.69,.122,1)=$S($D(^PSB(53.69,D0,.1)):^(.1),1:""""),D0=$P(Y(53.69,.122,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(53.69,.122,21,0)="^^1^1^2990731^"
^DD(53.69,.122,21,1,0)="Computed field to easily display Patients Ward Location."
^DD(53.69,.13,0)="WARD^*P211.4'^NURSF(211.4,^.1;3^S DIC(""S"")=""I $P($G(^NURSF(211.4,+Y,1)),U,1)=""""A"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(53.69,.13,.1)="Ward"
^DD(53.69,.13,12)="Only active Nurse Location Entries Allowed"
^DD(53.69,.13,12.1)="S DIC(""S"")=""I $P($G(^NURSF(211.4,+Y,1)),U,1)=""""A"""""""
^DD(53.69,.13,21,0)="^^2^2^3031008^"
^DD(53.69,.13,21,1,0)="Pointer to the NURS LOCATION file for reports to be generated by ward"
^DD(53.69,.13,21,2,0)="instead of patient."
^DD(53.69,.13,"DT")="3031009"
^DD(53.69,.14,0)="TEAM^F^^.1;4^K:$L(X)>1!($L(X)<1) X"
^DD(53.69,.14,.1)="Team"
^DD(53.69,.14,3)="Answer must be 1 character in length."
^DD(53.69,.14,21,0)="^^1^1^2990731^^"
^DD(53.69,.14,21,1,0)="Not used at this time.  Future plans are to incorporate a medication team."
^DD(53.69,.14,"DT")="2990112"
^DD(53.69,.15,0)="SORT BY PATIENT OR BED^S^P:Patient;B:Room-Bed;^.1;5^Q"
^DD(53.69,.15,.1)="Sort by Pt or Room-Bed"
^DD(53.69,.15,21,0)="^^2^2^2990731^^"
^DD(53.69,.15,21,1,0)="Ward based reports are asked to sort either by patient name or room bed"
^DD(53.69,.15,21,2,0)="locations."
^DD(53.69,.15,"DT")="2990321"
^DD(53.69,.16,0)="START DATE^DX^^.1;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.69,.16,.1)="Report Start Date"
^DD(53.69,.16,21,0)="^.001^2^2^3010717^^^"
^DD(53.69,.16,21,1,0)="Fileman Date that the selected report is to start generating from.  No"
^DD(53.69,.16,21,2,0)="time is allowed in this field."
^DD(53.69,.16,"DT")="3020118"
^DD(53.69,.17,0)="START TIME^NJ6,4XO^^.1;7^D TIMEIN^PSBUTL"
^DD(53.69,.17,.1)="Report Start Time"
^DD(53.69,.17,2)="S Y(0)=Y S Y=$$TIMEOUT^PSBUTL(Y)"
^DD(53.69,.17,2.1)="S Y=$$TIMEOUT^PSBUTL(Y)"
^DD(53.69,.17,3)="Enter in the starting time (i.e. 8A or 0800)."
^DD(53.69,.17,21,0)="^^2^2^2990731^^"
^DD(53.69,.17,21,1,0)="Contains the decimal portion of an internal fileman date/time to specify"
^DD(53.69,.17,21,2,0)="the time that the report is to generate from."
^DD(53.69,.17,"DT")="2990112"
^DD(53.69,.18,0)="STOP DATE^DX^^.1;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.69,.18,.1)="Report Stop Date"
^DD(53.69,.18,21,0)="^^2^2^2990731^^"
^DD(53.69,.18,21,1,0)="Fileman Date that the selected report is to stop generating.  No"
^DD(53.69,.18,21,2,0)="time is allowed in this field."
^DD(53.69,.18,"DT")="3020118"
^DD(53.69,.19,0)="STOP TIME^NJ6,4XO^^.1;9^D TIMEIN^PSBUTL"
^DD(53.69,.19,.1)="Report Stop Time"
^DD(53.69,.19,2)="S Y(0)=Y S Y=$$TIMEOUT^PSBUTL(Y)"
^DD(53.69,.19,2.1)="S Y=$$TIMEOUT^PSBUTL(Y)"
^DD(53.69,.19,3)="Enter in the stop time (i.e. 8A or 0800)."
^DD(53.69,.19,21,0)="^^2^2^2990731^^"
^DD(53.69,.19,21,1,0)="Contains the decimal portion of an internal fileman date/time to specify"
^DD(53.69,.19,21,2,0)="the time that the report is to generate to."
^DD(53.69,.19,"DT")="2990112"
^DD(53.69,.21,0)="[DL] INCLUDE CONTINUOUS MEDS^S^0:No;1:Yes;^.2;1^Q"
^DD(53.69,.21,.1)="Include Continuous Meds"
^DD(53.69,.21,21,0)="^^2^2^2990731^^"
^DD(53.69,.21,21,1,0)="Yes/No question for the Due List to include continuous medications"
^DD(53.69,.21,21,2,0)="or not."
^DD(53.69,.21,"DT")="2990126"
^DD(53.69,.22,0)="[DL] INCLUDE PRN MEDS^S^0:No;1:Yes;^.2;2^Q"
^DD(53.69,.22,.1)="Include PRN Meds"
^DD(53.69,.22,3)=" "
^DD(53.69,.22,21,0)="^^2^2^2990731^^"
^DD(53.69,.22,21,1,0)="Yes/No question for the Due List to include PRN medications "
^DD(53.69,.22,21,2,0)="or not."
^DD(53.69,.22,"DT")="2990126"
^DD(53.69,.23,0)="[DL] INCLUDE ON-CALL MEDS^S^0:No;1:Yes;^.2;3^Q"
^DD(53.69,.23,.1)="Include On-Call Meds"
^DD(53.69,.23,3)=" "
^DD(53.69,.23,21,0)="^^2^2^2990731^^"
^DD(53.69,.23,21,1,0)="Yes/No question for the Due List to include On-Call medications "
^DD(53.69,.23,21,2,0)="or not."
^DD(53.69,.23,"DT")="2990126"
^DD(53.69,.24,0)="[DL] INCLUDE ONE-TIME MEDS^S^0:No;1:Yes;^.2;4^Q"
^DD(53.69,.24,.1)="Include One-Time Meds"
^DD(53.69,.24,3)=" "
^DD(53.69,.24,21,0)="^^2^2^2990731^^"
^DD(53.69,.24,21,1,0)="Yes/No question for the Due List to include One Time medications "
^DD(53.69,.24,21,2,0)="or not."
^DD(53.69,.24,"DT")="2990126"
^DD(53.69,.25,0)="[DL] INCLUDE BLANKS^S^0:No;1:Yes;^.2;5^Q"
^DD(53.69,.25,.1)="Include Order Blanks"
^DD(53.69,.25,3)=" "
^DD(53.69,.25,21,0)="^^2^2^2990731^^"
^DD(53.69,.25,21,1,0)="Yes/No question for the Due List to include blank addendums for newly"
^DD(53.69,.25,21,2,0)="ordered meds or not."
^DD(53.69,.25,"DT")="2990317"
^DD(53.69,.26,0)="[DL] INLCUDE IV MEDS^S^0:No;1:Yes;^.2;6^Q"
^DD(53.69,.26,21,0)="^^2^2^2990731^^"
^DD(53.69,.26,21,1,0)="Yes/No question for the Due List to include IV medications "
^DD(53.69,.26,21,2,0)="or not."
^DD(53.69,.26,"DT")="2990317"
^DD(53.69,.27,0)="[DL] INCLUDE UNIT DOSE MEDS^S^0:No;1:Yes;^.2;7^Q"
^DD(53.69,.27,3)=" "
^DD(53.69,.27,21,0)="^^2^2^2990731^^"
^DD(53.69,.27,21,1,0)="Yes/No question for the Due List to include Unit Dose medications "
^DD(53.69,.27,21,2,0)="or not."
^DD(53.69,.27,"DT")="2990317"
^DD(53.69,.28,0)="[ML] INCLUDE COMMENTS^S^1:Yes;0:No;^.2;8^Q"
^DD(53.69,.28,21,0)="^^2^2^2990731^^"
^DD(53.69,.28,21,1,0)="When printing the medication log, comments can be included for each med"
^DD(53.69,.28,21,2,0)="pass if this question is answered Yes."
^DD(53.69,.28,"DT")="2990331"
^DD(53.69,.29,0)="[ML] INCLUDE AUDITS^S^1:YES;0:NO;^.2;9^Q"
^DD(53.69,.29,3)=" "
^DD(53.69,.29,21,0)="^^2^2^2990805^"
^DD(53.69,.29,21,1,0)="When printing the medication log, audits can be included for each med"
^DD(53.69,.29,21,2,0)="pass if this question is answered Yes."
^DD(53.69,.29,"DT")="2990331"
^DD(53.69,.31,0)="[BL] DRUG^FXO^^.3;1^D INPTR^PSBOBL"
^DD(53.69,.31,.1)="Drug"
^DD(53.69,.31,2)="S Y(0)=Y S Y=$P(Y,""~"",1)"
^DD(53.69,.31,2.1)="S Y=$P(Y,""~"",1)"
^DD(53.69,.31,3)="Answer must be 1-40 characters in length."
^DD(53.69,.31,21,0)="^^2^2^2990731^^"
^DD(53.69,.31,21,1,0)="Stores the Name and IEN of the selected drug to print a bar code label"
^DD(53.69,.31,21,2,0)="for."
^DD(53.69,.31,"DT")="3021101"
^DD(53.69,.32,0)="[BL] LOT NUMBER^F^^.3;2^K:$L(X)>25!($L(X)<1) X"
^DD(53.69,.32,.1)="Lot Number"
^DD(53.69,.32,3)="Answer must be 1-25 characters in length."
^DD(53.69,.32,21,0)="^.001^1^1^3050609^^^"
^DD(53.69,.32,21,1,0)="Contains the lot number of the drug to print a bar code label for."
^DD(53.69,.32,"DT")="3050609"
^DD(53.69,.33,0)="[BL] EXPIRATION DATE^D^^.3;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(53.69,.33,.1)="Expiration Date"
^DD(53.69,.33,21,0)="^^1^1^2990731^^"
^DD(53.69,.33,21,1,0)="Contains the exp date of the drug to print a bar code label for."
^DD(53.69,.33,"DT")="2990318"
^DD(53.69,.34,0)="[BL] MANUFACTURER^F^^.3;4^K:$L(X)>10!($L(X)<1) X"
^DD(53.69,.34,.1)="Manufacturer"
^DD(53.69,.34,3)="Answer must be 1-10 characters in length."
^DD(53.69,.34,21,0)="^.001^1^1^3050609^^^"
^DD(53.69,.34,21,1,0)="Contains the manufacturer of the drug to print a bar code label for."
^DD(53.69,.34,"DT")="3050609"
^DD(53.69,.35,0)="[BL] QUANTITY^NJ7,2^^.3;5^K:+X'=X!(X>9999)!(X<.25)!(X?.E1"".""3N.N) X"
^DD(53.69,.35,.1)="Quantity"
^DD(53.69,.35,3)="Type a Number between .25 and 9999, 2 Decimal Digits"
^DD(53.69,.35,21,0)="^^1^1^2990731^^"
^DD(53.69,.35,21,1,0)="Contains the quantity of the drug to print a bar code label for."
^DD(53.69,.35,"DT")="2990318"
^DD(53.69,.36,0)="[BL] FILLED BY^F^^.3;6^K:$L(X)>5!($L(X)<2) X"
^DD(53.69,.36,.1)="Filled By"
^DD(53.69,.36,3)="Answer must be 2-5 characters in length."
^DD(53.69,.36,21,0)="^^1^1^2990731^^"
^DD(53.69,.36,21,1,0)="Contains the initials of the pharmacists filling the meds for this label."
^DD(53.69,.36,"DT")="2990326"
^DD(53.69,.37,0)="[BL] CHECKED BY^F^^.3;7^K:$L(X)>5!($L(X)<2) X"
^DD(53.69,.37,.1)="Checked By"
^DD(53.69,.37,3)="Answer must be 2-5 characters in length."
^DD(53.69,.37,21,0)="^^1^1^2990731^^"
^DD(53.69,.37,21,1,0)="Contains the initials of the pharmacists checking the meds for this label."
^DD(53.69,.37,"DT")="2990318"
^DD(53.69,.38,0)="[BL] NUMBER OF LABELS^NJ4,0^^.3;8^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.69,.38,.1)="Number of Labels"
^DD(53.69,.38,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(53.69,.38,21,0)="^^1^1^2990731^^"
^DD(53.69,.38,21,1,0)="Contains the number of labels the user is requesting to be printed."
^DD(53.69,.38,"DT")="2990318"
^DD(53.69,.39,0)="[BL] DOSAGE^F^^.3;9^K:$L(X)>22!($L(X)<1) X"
^DD(53.69,.39,3)="Answer must be 1-22 characters in length."
^DD(53.69,.39,21,0)="^.001^1^1^3060417^^^^"
^DD(53.69,.39,21,1,0)="Free text dosage to print on each label."
^DD(53.69,.39,"DT")="3060417"
^DD(53.69,.41,0)="[DL] INCLUDE FUTURE ORDERS^S^0:No;1:Yes;^.4;1^Q"
^DD(53.69,.41,21,0)="^^1^1^3011129^"
^DD(53.69,.41,21,1,0)="Yes/No question for the Due List to include future orders or not."
^DD(53.69,.41,"DT")="3011129"
^DD(53.69,.51,0)="REPORT REQUEST CONT.^S^VT:Vitals cumulative;^.5;1^Q"
^DD(53.69,.51,.1)="Report Request Cont."
^DD(53.69,.51,21,0)="^^6^6^3030801^"
^DD(53.69,.51,21,1,0)="This field will store additional report type requests."
^DD(53.69,.51,21,2,0)="Automatically stuffed at record creation with the type of report"
^DD(53.69,.51,21,3,0)="that is being requested.  Used to drive the report later on by"
^DD(53.69,.51,21,4,0)="appending the internal code to ""DQ^PSBO""_type for the routine"
^DD(53.69,.51,21,5,0)="reference to run. (i.e. VT for vitals cumulative would call DQ^PSBOVT to "
^DD(53.69,.51,21,6,0)="generate the report.)"
^DD(53.69,.51,"DT")="3030801"
^DD(53.69,.61,0)="CRITERIA^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(53.69,.61,3)="Answer must be 1-250 characters in length"
^DD(53.69,.61,21,0)="^^2^2^3070717^"
^DD(53.69,.61,21,1,0)="(Free Text)  Custom ""flags"" and ""parameters"" to support processing of the "
^DD(53.69,.61,21,2,0)="requested report."
^DD(53.69,.61,"DT")="3070717"
^DD(53.69,1,0)="INPUT LIST^53.692^^2;0"
^DD(53.69,1,21,0)="^^2^2^3070717^"
^DD(53.69,1,21,1,0)="(Multiple)  List of custom data items to be used when processing the"
^DD(53.69,1,21,2,0)="requested report."
^DD(53.69,"B","CRITERIA",.61)=""
^DD(53.69,"B","Checked By",.37)="1"
^DD(53.69,"B","DATE/TIME ENTERED",.02)=""
^DD(53.69,"B","DEQUEUE TIME",.07)=""
^DD(53.69,"B","DIVISION",.04)=""
^DD(53.69,"B","Date/Time Entered",.02)="1"
^DD(53.69,"B","Division",.04)="1"
^DD(53.69,"B","Drug",.31)="1"
^DD(53.69,"B","ENTERED BY",.03)=""
^DD(53.69,"B","Entered By",.03)="1"
^DD(53.69,"B","Expiration Date",.33)="1"
^DD(53.69,"B","Filled By",.36)="1"
^DD(53.69,"B","INPUT LIST",1)=""
^DD(53.69,"B","Include Continuous Meds",.21)="1"
^DD(53.69,"B","Include On-Call Meds",.23)="1"
^DD(53.69,"B","Include One-Time Meds",.24)="1"
^DD(53.69,"B","Include Order Blanks",.25)="1"
^DD(53.69,"B","Include PRN Meds",.22)="1"
^DD(53.69,"B","Lot Number",.32)="1"
^DD(53.69,"B","Manufacturer",.34)="1"
^DD(53.69,"B","Number of Labels",.38)="1"
^DD(53.69,"B","ORDER/ORDERABLE ITEM NUMBER",.09)=""
^DD(53.69,"B","OUTPUT DEVICE",.06)=""
^DD(53.69,"B","Output DEVICE",.06)="1"
^DD(53.69,"B","PATIENT",.12)=""
^DD(53.69,"B","PATIENT SSN (C)",.121)=""
^DD(53.69,"B","PATIENT WARD LOCATION (C)",.122)=""
^DD(53.69,"B","Patient",.12)="1"
^DD(53.69,"B","Quantity",.35)="1"
^DD(53.69,"B","Queue to Run At",.07)="1"
^DD(53.69,"B","REPORT REQUEST CONT.",.51)=""
^DD(53.69,"B","REQUEST NUMBER",.01)=""
^DD(53.69,"B","Report Request Cont.",.51)="1"
^DD(53.69,"B","Report Start Date",.16)="1"
^DD(53.69,"B","Report Start Time",.17)="1"
^DD(53.69,"B","Report Stop Date",.18)="1"
^DD(53.69,"B","Report Stop Time",.19)="1"
^DD(53.69,"B","Request Number",.01)="1"
^DD(53.69,"B","SORT BY",.11)=""
^DD(53.69,"B","SORT BY PATIENT OR BED",.15)=""
^DD(53.69,"B","START DATE",.16)=""
^DD(53.69,"B","START TIME",.17)=""
^DD(53.69,"B","STOP DATE",.18)=""
^DD(53.69,"B","STOP TIME",.19)=""
^DD(53.69,"B","Sort by Pt or Room-Bed",.15)="1"
^DD(53.69,"B","Sort by Pt or Ward",.11)="1"
^DD(53.69,"B","TEAM",.14)=""
^DD(53.69,"B","TYPE OF REQUEST",.05)=""
^DD(53.69,"B","Task Number",.08)="1"
^DD(53.69,"B","Team",.14)="1"
^DD(53.69,"B","Type of Request",.05)="1"
^DD(53.69,"B","WARD",.13)=""
^DD(53.69,"B","Ward",.13)="1"
^DD(53.69,"B","ZTSK",.08)=""
^DD(53.69,"B","[BL] CHECKED BY",.37)=""
^DD(53.69,"B","[BL] DOSAGE",.39)=""
^DD(53.69,"B","[BL] DRUG",.31)=""
^DD(53.69,"B","[BL] EXPIRATION DATE",.33)=""
^DD(53.69,"B","[BL] FILLED BY",.36)=""
^DD(53.69,"B","[BL] LOT NUMBER",.32)=""
^DD(53.69,"B","[BL] MANUFACTURER",.34)=""
^DD(53.69,"B","[BL] NUMBER OF LABELS",.38)=""
^DD(53.69,"B","[BL] QUANTITY",.35)=""
^DD(53.69,"B","[DL] INCLUDE BLANKS",.25)=""
^DD(53.69,"B","[DL] INCLUDE CONTINUOUS MEDS",.21)=""
^DD(53.69,"B","[DL] INCLUDE FUTURE ORDERS",.41)=""
^DD(53.69,"B","[DL] INCLUDE ON-CALL MEDS",.23)=""
^DD(53.69,"B","[DL] INCLUDE ONE-TIME MEDS",.24)=""
^DD(53.69,"B","[DL] INCLUDE PRN MEDS",.22)=""
^DD(53.69,"B","[DL] INCLUDE UNIT DOSE MEDS",.27)=""
^DD(53.69,"B","[DL] INLCUDE IV MEDS",.26)=""
^DD(53.69,"B","[ML] INCLUDE AUDITS",.29)=""
^DD(53.69,"B","[ML] INCLUDE COMMENTS",.28)=""
^DD(53.69,"GL",0,1,.01)=""
^DD(53.69,"GL",0,2,.02)=""
^DD(53.69,"GL",0,3,.03)=""
^DD(53.69,"GL",0,4,.04)=""
^DD(53.69,"GL",0,5,.05)=""
^DD(53.69,"GL",0,6,.06)=""
^DD(53.69,"GL",0,7,.07)=""
^DD(53.69,"GL",0,8,.08)=""
^DD(53.69,"GL",0,9,.09)=""
^DD(53.69,"GL",.1,1,.11)=""
^DD(53.69,"GL",.1,2,.12)=""
^DD(53.69,"GL",.1,3,.13)=""
^DD(53.69,"GL",.1,4,.14)=""
^DD(53.69,"GL",.1,5,.15)=""
^DD(53.69,"GL",.1,6,.16)=""
^DD(53.69,"GL",.1,7,.17)=""
^DD(53.69,"GL",.1,8,.18)=""
^DD(53.69,"GL",.1,9,.19)=""
^DD(53.69,"GL",.2,1,.21)=""
^DD(53.69,"GL",.2,2,.22)=""
^DD(53.69,"GL",.2,3,.23)=""
^DD(53.69,"GL",.2,4,.24)=""
^DD(53.69,"GL",.2,5,.25)=""
^DD(53.69,"GL",.2,6,.26)=""
^DD(53.69,"GL",.2,7,.27)=""
^DD(53.69,"GL",.2,8,.28)=""
^DD(53.69,"GL",.2,9,.29)=""
^DD(53.69,"GL",.3,1,.31)=""
^DD(53.69,"GL",.3,2,.32)=""
^DD(53.69,"GL",.3,3,.33)=""
^DD(53.69,"GL",.3,4,.34)=""
^DD(53.69,"GL",.3,5,.35)=""
^DD(53.69,"GL",.3,6,.36)=""
^DD(53.69,"GL",.3,7,.37)=""
^DD(53.69,"GL",.3,8,.38)=""
^DD(53.69,"GL",.3,9,.39)=""
^DD(53.69,"GL",.4,1,.41)=""
^DD(53.69,"GL",.5,1,.51)=""
^DD(53.69,"GL",1,1,.61)=""
^DD(53.69,"GL",2,0,1)=""
^DD(53.69,"IX",.01)=""
^DD(53.69,"RQ",.01)=""
^DD(53.69,"SB",53.692,1)=""
^DD(53.692,0)="INPUT LIST SUB-FIELD^^.01^1"
^DD(53.692,0,"DT")="3070717"
^DD(53.692,0,"IX","B",53.692,.01)=""
^DD(53.692,0,"NM","INPUT LIST")=""
^DD(53.692,0,"UP")="53.69"
^DD(53.692,.01,0)="INPUT LIST^MF^^0;1^K:$L(X)>90!($L(X)<1) X"
^DD(53.692,.01,1,0)="^.1"
^DD(53.692,.01,1,1,0)="53.692^B"
^DD(53.692,.01,1,1,1)="S ^PSB(53.69,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(53.692,.01,1,1,2)="K ^PSB(53.69,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(53.692,.01,3)="Answer must be 1-90 characters in length."
^DD(53.692,.01,"DT")="3070717"
^DD(53.692,"B","INPUT LIST",.01)=""
^DD(53.692,"GL",0,1,.01)=""
^DD(53.692,"IX",.01)=""
^DD(53.7,0)="FIELD^^9^10"
^DD(53.7,0,"DDA")="N"
^DD(53.7,0,"DT")="3030407"
^DD(53.7,0,"IX","AO",53.702,.01)=""
^DD(53.7,0,"IX","B",53.7,.01)=""
^DD(53.7,0,"IX","BS",53.7,1)=""
^DD(53.7,0,"IX","BS5",53.7,1)=""
^DD(53.7,0,"IX","SSN",53.7,1)=""
^DD(53.7,0,"NM","BCMA BACKUP DATA")=""
^DD(53.7,0,"VR")="2.0"
^DD(53.7,0,"VRPK")="PSB"
^DD(53.7,.01,0)="PATIENT NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(53.7,.01,1,0)="^.1"
^DD(53.7,.01,1,1,0)="53.7^B"
^DD(53.7,.01,1,1,1)="S ^ALPB(53.7,""B"",$E(X,1,30),DA)="""""
^DD(53.7,.01,1,1,2)="K ^ALPB(53.7,""B"",$E(X,1,30),DA)"
^DD(53.7,.01,3)="Answer must be 3-30 characters in length."
^DD(53.7,.01,"DT")="3030107"
^DD(53.7,1,0)="PATIENT SSN^F^^0;2^K:$L(X)>12!($L(X)<9) X"
^DD(53.7,1,1,0)="^.1"
^DD(53.7,1,1,1,0)="53.7^BS^MUMPS"
^DD(53.7,1,1,1,1)="S ^ALPB(53.7,""BS"",$E(X,6,9),DA)="""""
^DD(53.7,1,1,1,2)="K ^ALPB(53.7,""BS"",$E(X,6,9),DA)"
^DD(53.7,1,1,1,"%D",0)="^^2^2^3030107^"
^DD(53.7,1,1,1,"%D",1,0)="This cross references the record by last 4 digits of social security"
^DD(53.7,1,1,1,"%D",2,0)="number."
^DD(53.7,1,1,1,"DT")="3030107"
^DD(53.7,1,1,2,0)="53.7^BS5^MUMPS"
^DD(53.7,1,1,2,1)="S ^ALPB(53.7,""BS5"",$E($P(^ALPB(53.7,DA,0),""^"",1))_$E(X,6,9),DA)="""""
^DD(53.7,1,1,2,2)="K ^ALPB(53.7,""BS5"",$E($P(^ALPB(53.7,DA,0),""^"",1))_$E(X,6,9),DA)"
^DD(53.7,1,1,2,"%D",0)="^^2^2^3030107^"
^DD(53.7,1,1,2,"%D",1,0)="This cross references the record by first letter of last name+last four"
^DD(53.7,1,1,2,"%D",2,0)="digits of the social security number."
^DD(53.7,1,1,2,"DT")="3030107"
^DD(53.7,1,1,3,0)="53.7^SSN"
^DD(53.7,1,1,3,1)="S ^ALPB(53.7,""SSN"",$E(X,1,30),DA)="""""
^DD(53.7,1,1,3,2)="K ^ALPB(53.7,""SSN"",$E(X,1,30),DA)"
^DD(53.7,1,1,3,"%D",0)="^^2^2^3030107^"
^DD(53.7,1,1,3,"%D",1,0)="This cross references the record by the patient's full social security"
^DD(53.7,1,1,3,"%D",2,0)="number."
^DD(53.7,1,1,3,"DT")="3030107"
^DD(53.7,1,3)="Answer must be 9-12 characters in length."
^DD(53.7,1,21,0)="^^4^4^3030106^"
^DD(53.7,1,21,1,0)="This field contains the patient's social security number.  The expected"
^DD(53.7,1,21,2,0)="format is a 9-digit number.  However, the field is free text and will"
^DD(53.7,1,21,3,0)="accommodate a social security number passed with dashes and/or a 'P'"
^DD(53.7,1,21,4,0)="appended that designates a pseudo-SSN."
^DD(53.7,1,"DT")="3030107"
^DD(53.7,2,0)="PATIENT DOB^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(53.7,2,21,0)="^^1^1^3030106^"
^DD(53.7,2,21,1,0)="This field contains the patient's date of birth."
^DD(53.7,2,"DT")="3030320"
^DD(53.7,3,0)="PATIENT SEX^S^M:M;F:F;^0;4^Q"
^DD(53.7,3,21,0)="^^1^1^3030106^"
^DD(53.7,3,21,1,0)="This field contains the patient's gender: F for Female, M for Male"
^DD(53.7,3,"DT")="3030106"
^DD(53.7,4,0)="WARD^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(53.7,4,3)="Answer must be 1-10 characters in length."
^DD(53.7,4,21,0)="^^2^2^3030106^"
^DD(53.7,4,21,1,0)="This field contains the most recent ward on which the patient resides."
^DD(53.7,4,21,2,0)="This field is updated by the VistA server after patient movement events."
^DD(53.7,4,"DT")="3030107"
^DD(53.7,5,0)="ROOM^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(53.7,5,3)="Answer must be 1-10 characters in length."
^DD(53.7,5,21,0)="^^3^3^3030106^"
^DD(53.7,5,21,1,0)="This field contains the most recent room in which the patient resides."
^DD(53.7,5,21,2,0)="It is updated, along with ward, by the VistA server whenever patient"
^DD(53.7,5,21,3,0)="movement events occur."
^DD(53.7,5,"DT")="3030106"
^DD(53.7,6,0)="BED^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(53.7,6,3)="Answer must be 1-10 characters in length."
^DD(53.7,6,21,0)="^^3^3^3030106^"
^DD(53.7,6,21,1,0)="This field contains the most recent bed assignment for this patient."
^DD(53.7,6,21,2,0)="This field is updated, along with ward and/or room, by the VistA server"
^DD(53.7,6,21,3,0)="whenever a patient movement event occurs."
^DD(53.7,6,"DT")="3030106"
^DD(53.7,7,0)="RECORD LAST UPDATED^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.7,7,21,0)="^^3^3^3030106^"
^DD(53.7,7,21,1,0)="This field contains the date (and optionally the time) that this patient's"
^DD(53.7,7,21,2,0)="BCMA Backup System record was updated by the processing of an HL7"
^DD(53.7,7,21,3,0)="message."
^DD(53.7,7,"DT")="3030106"
^DD(53.7,8,0)="ALLERGIES^53.701A^^1;0"
^DD(53.7,9,0)="ORDER NUMBER^53.702A^^2;0"
^DD(53.7,"B","ALLERGIES",8)=""
^DD(53.7,"B","BED",6)=""
^DD(53.7,"B","ORDER NUMBER",9)=""
^DD(53.7,"B","PATIENT DOB",2)=""
^DD(53.7,"B","PATIENT NAME",.01)=""
^DD(53.7,"B","PATIENT SEX",3)=""
^DD(53.7,"B","PATIENT SSN",1)=""
^DD(53.7,"B","RECORD LAST UPDATED",7)=""
^DD(53.7,"B","ROOM",5)=""
^DD(53.7,"B","WARD",4)=""
^DD(53.7,"GL",0,1,.01)=""
^DD(53.7,"GL",0,2,1)=""
^DD(53.7,"GL",0,3,2)=""
^DD(53.7,"GL",0,4,3)=""
^DD(53.7,"GL",0,5,4)=""
^DD(53.7,"GL",0,6,5)=""
^DD(53.7,"GL",0,7,6)=""
^DD(53.7,"GL",0,8,7)=""
^DD(53.7,"GL",1,0,8)=""
^DD(53.7,"GL",2,0,9)=""
^DD(53.7,"IX",.01)=""
^DD(53.7,"IX",1)=""
^DD(53.7,"RQ",.01)=""
^DD(53.7,"SB",53.701,8)=""
^DD(53.7,"SB",53.702,9)=""
^DD(53.701,0)="ALLERGIES SUB-FIELD^^1^2"
^DD(53.701,0,"DT")="3030407"
^DD(53.701,0,"IX","B",53.701,.01)=""
^DD(53.701,0,"NM","ALLERGIES")=""
^DD(53.701,0,"UP")="53.7"
^DD(53.701,.01,0)="ALLERGY^NJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.701,.01,1,0)="^.1"
^DD(53.701,.01,1,1,0)="53.701^B"
^DD(53.701,.01,1,1,1)="S ^ALPB(53.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.701,.01,1,1,2)="K ^ALPB(53.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.701,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.701,.01,21,0)="^^2^2^3030106^"
^DD(53.701,.01,21,1,0)="This multiple field contains any patient allergies -- foods, medications,"
^DD(53.701,.01,21,2,0)="etc. -- as recorded on the VistA server."
^DD(53.701,.01,"DT")="3030407"
^DD(53.701,1,0)="ALLERGY NAME^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(53.701,1,3)="This is the name of the allergy"
^DD(53.701,1,21,0)="^^1^1^3030407^"
^DD(53.701,1,21,1,0)="This field contains the printable name of an allergy."
^DD(53.701,1,"DT")="3030407"
^DD(53.701,"B","ALLERGY",.01)=""
^DD(53.701,"B","ALLERGY NAME",1)=""
^DD(53.701,"GL",0,1,.01)=""
^DD(53.701,"GL",0,2,1)=""
^DD(53.701,"IX",.01)=""
^DD(53.702,0)="ORDER NUMBER SUB-FIELD^^13^21"
^DD(53.702,0,"DT")="3030321"
^DD(53.702,0,"IX","ACPRS",53.702,1)=""
^DD(53.702,0,"IX","B",53.702,.01)=""
^DD(53.702,0,"NM","ORDER NUMBER")=""
^DD(53.702,0,"UP")="53.7"
^DD(53.702,.01,0)="ORDER NUMBER^F^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(53.702,.01,1,0)="^.1"
^DD(53.702,.01,1,1,0)="53.702^B"
^DD(53.702,.01,1,1,1)="S ^ALPB(53.7,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(53.702,.01,1,1,2)="K ^ALPB(53.7,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(53.702,.01,1,2,0)="53.7^AO^MUMPS"
^DD(53.702,.01,1,2,1)="S ^ALPB(53.7,""AO"",DA(1),X,DA)="""""
^DD(53.702,.01,1,2,2)="K ^ALPB(53.7,""AO"",DA(1),X,DA)"
^DD(53.702,.01,1,2,"%D",0)="^^1^1^3030107^"
^DD(53.702,.01,1,2,"%D",1,0)="This cross references the record by order numbers."
^DD(53.702,.01,1,2,"DT")="3030107"
^DD(53.702,.01,3)="Answer must be 1-10 characters in length."
^DD(53.702,.01,21,0)="^^22^22^3030106^"
^DD(53.702,.01,21,1,0)="Order number can be in one of three forms.  All order numbers are numbers"
^DD(53.702,.01,21,2,0)="appended with a unique type identifier.  The expected formats include:"
^DD(53.702,.01,21,3,0)=" "
^DD(53.702,.01,21,4,0)="  nP : a 'P' indicates that the order is PENDING action by Pharmacy"
^DD(53.702,.01,21,5,0)="       Service.  (Given that the BCMA Backup System is designed to be"
^DD(53.702,.01,21,6,0)="       real-time, pending orders are transmitted and stored on the"
^DD(53.702,.01,21,7,0)="       BCMA Backup System workstation."
^DD(53.702,.01,21,8,0)=" "
^DD(53.702,.01,21,9,0)="  nU : a 'U' indicates that the order is for a UNIT DOSE medication."
^DD(53.702,.01,21,10,0)=" "
^DD(53.702,.01,21,11,0)="  nV : a 'V' indicates that the order is for INTRAVENOUS medication --"
^DD(53.702,.01,21,12,0)="       that is, IV solutions and additives."
^DD(53.702,.01,21,13,0)=" "
^DD(53.702,.01,21,14,0)="Order numbers are filed in this file with their respective alpha"
^DD(53.702,.01,21,15,0)="characters because unit dose and IV orders could have the same numeric"
^DD(53.702,.01,21,16,0)="portion of an order number."
^DD(53.702,.01,21,17,0)=" "
^DD(53.702,.01,21,18,0)="It also should be noted that 'P'ENDING order numbers are completely"
^DD(53.702,.01,21,19,0)="replaced once the order has been processed by Pharmacy on the VistA"
^DD(53.702,.01,21,20,0)="server.  Once Pharmacy processes the order, an actual order number"
^DD(53.702,.01,21,21,0)="(that is, one with either a 'U' or a 'V' appended to it) is generated"
^DD(53.702,.01,21,22,0)="and filed on the workstation."
^DD(53.702,.01,"DT")="3030107"
^DD(53.702,1,0)="CPRS ORDER NUMBER^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(53.702,1,1,0)="^.1"
^DD(53.702,1,1,1,0)="53.702^ACPRS"
^DD(53.702,1,1,1,1)="S ^ALPB(53.7,DA(1),2,""ACPRS"",$E(X,1,30),DA)="""""
^DD(53.702,1,1,1,2)="K ^ALPB(53.7,DA(1),2,""ACPRS"",$E(X,1,30),DA)"
^DD(53.702,1,1,1,"%D",0)="^^1^1^3030107^"
^DD(53.702,1,1,1,"%D",1,0)="This cross references the orders within this record by CPRS ORDER NUMBER."
^DD(53.702,1,1,1,"DT")="3030107"
^DD(53.702,1,3)="Answer must be 1-10 characters in length."
^DD(53.702,1,21,0)="^^7^7^3030106^"
^DD(53.702,1,21,1,0)="This field contains the Computerized Patient Record System (CPRS) order"
^DD(53.702,1,21,2,0)="number associated with this Pharmacy order.  This field is of particular"
^DD(53.702,1,21,3,0)="importance in the case of 'P'ending orders.  Whenever an order is"
^DD(53.702,1,21,4,0)="processed into a patient's BCMA Backup System record a check is made"
^DD(53.702,1,21,5,0)="whether the CPRS order is already on file, and further whether that"
^DD(53.702,1,21,6,0)="order on file is 'P'ending.  If so, the 'P'ending order record is"
^DD(53.702,1,21,7,0)="deleted and replaced by the data transmitted in the new HL7 message."
^DD(53.702,1,"DT")="3030107"
^DD(53.702,2,0)="ORDER STATUS^F^^0;3^K:$L(X)>45!($L(X)<1) X"
^DD(53.702,2,3)="Answer must be 1-45 characters in length."
^DD(53.702,2,21,0)="^^4^4^3030106^"
^DD(53.702,2,21,1,0)="Order status is filed exactly as transmitted from Pharmacy via the HL7"
^DD(53.702,2,21,2,0)="message.  It contains two parts delimited by a '~':  a 2-character code"
^DD(53.702,2,21,3,0)="and the code's description.  All BCMA Backup System outputs display"
^DD(53.702,2,21,4,0)="order status exactly as stored."
^DD(53.702,2,"DT")="3030106"
^DD(53.702,3,0)="DATE ORDER LAST UPDATED^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.702,3,21,0)="^^3^3^3030106^"
^DD(53.702,3,21,1,0)="This field contains the date and time this order's record on the BCMA"
^DD(53.702,3,21,2,0)="Backup System workstation was last updated by processing of any HL7"
^DD(53.702,3,21,3,0)="message."
^DD(53.702,3,"DT")="3030106"
^DD(53.702,4,0)="START DATE/TIME^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.702,4,21,0)="^^3^3^3030106^"
^DD(53.702,4,21,1,0)="This field contains the date and time that this order begins.  It is"
^DD(53.702,4,21,2,0)="possible that this date will not be 'today', but rather, some date/time"
^DD(53.702,4,21,3,0)="in the future."
^DD(53.702,4,"DT")="3030106"
^DD(53.702,4.1,0)="STOP DATE/TIME^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.702,4.1,21,0)="^^1^1^3030106^"
^DD(53.702,4.1,21,1,0)="This field contains the date and time when this order expires."
^DD(53.702,4.1,"DT")="3030106"
^DD(53.702,5,0)="PROVIDER^F^^2;1^K:$L(X)>30!($L(X)<3) X"
^DD(53.702,5,3)="Answer must be 3-30 characters in length."
^DD(53.702,5,21,0)="^^1^1^3030106^"
^DD(53.702,5,21,1,0)="This field contains the name of the provider who originated this order."
^DD(53.702,5,"DT")="3030106"
^DD(53.702,5.1,0)="RPH/ENTRY PERSON^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(53.702,5.1,3)="Answer must be 3-30 characters in length."
^DD(53.702,5.1,21,0)="^^2^2^3030106^"
^DD(53.702,5.1,21,1,0)="This field contains the name of pharmacist or pharmacy clerk who entered"
^DD(53.702,5.1,21,2,0)="this order or took the last action on this order."
^DD(53.702,5.1,"DT")="3030106"
^DD(53.702,5.2,0)="VERIFYING PERSON^F^^2;3^K:$L(X)>30!($L(X)<3) X"
^DD(53.702,5.2,3)="Answer must be 3-30 characters in length."
^DD(53.702,5.2,21,0)="^^2^2^3030106^"
^DD(53.702,5.2,21,1,0)="This field contains the name of the clinician, nurse or other staff who"
^DD(53.702,5.2,21,2,0)="verified this order."
^DD(53.702,5.2,"DT")="3030106"
^DD(53.702,6,0)="ORDER TYPE^S^P:PENDING;U:UNIT DOSE;V:IV;^3;1^Q"
^DD(53.702,6,21,0)="^^2^2^3030106^"
^DD(53.702,6,21,1,0)="This field contains a code indicating whether the order is 'P'ending,"
^DD(53.702,6,21,2,0)="for a 'U'nit Dose medication or for I'V' medication."
^DD(53.702,6,"DT")="3030106"
^DD(53.702,6.1,0)="MEDICATION TYPE^F^^3;2^K:$L(X)>15!($L(X)<1) X"
^DD(53.702,6.1,3)="Answer must be 1-15 characters in length."
^DD(53.702,6.1,21,0)="^^3^3^3030106^"
^DD(53.702,6.1,21,1,0)="This field contains a further identifier for the type of medication."
^DD(53.702,6.1,21,2,0)="Values in this field might be things like HYPERAL, PIGGYBACK, SYRINGE,"
^DD(53.702,6.1,21,3,0)="etc."
^DD(53.702,6.1,"DT")="3030106"
^DD(53.702,7,0)="DOSAGE^F^^4;1^K:$L(X)>20!($L(X)<1) X"
^DD(53.702,7,3)="Answer must be 1-20 characters in length."
^DD(53.702,7,21,0)="^^2^2^3030106^"
^DD(53.702,7,21,1,0)="This field contains the dosage information for the order.  For example,"
^DD(53.702,7,21,2,0)="it may contain values like 500MG, 1000ML, etc."
^DD(53.702,7,"DT")="3030106"
^DD(53.702,7.1,0)="ADMIN ROUTE^F^^4;2^K:$L(X)>45!($L(X)<1) X"
^DD(53.702,7.1,3)="Answer must be 1-45 characters in length."
^DD(53.702,7.1,21,0)="^^2^2^3030106^"
^DD(53.702,7.1,21,1,0)="This field contains the medication administration route.  For example,"
^DD(53.702,7.1,21,2,0)="ORAL, INHALATION, INTRAVENOUS, etc."
^DD(53.702,7.1,"DT")="3030106"
^DD(53.702,7.2,0)="ADMIN SCHEDULE^F^^4;3^K:$L(X)>20!($L(X)<1) X"
^DD(53.702,7.2,3)="Answer must be 1-20 characters in length."
^DD(53.702,7.2,21,0)="^^3^3^3030106^"
^DD(53.702,7.2,21,1,0)="This field contains the administration schedule for the ordered"
^DD(53.702,7.2,21,2,0)="medication(s).  The standard clinical code is generally found as a value"
^DD(53.702,7.2,21,3,0)="for this field.  For example, BID, Q6H, QHS, QD, etc."
^DD(53.702,7.2,"DT")="3030106"
^DD(53.702,7.3,0)="ADMIN TIMING^F^^4;4^K:$L(X)>120!($L(X)<1) X"
^DD(53.702,7.3,3)="Answer must be 1-120 characters in length."
^DD(53.702,7.3,21,0)="^^7^7^3030106^"
^DD(53.702,7.3,21,1,0)="The value in this field will contain a sequence of times (hours of the"
^DD(53.702,7.3,21,2,0)="day) when the medication is to be given.  For example, if the SCHEDULE"
^DD(53.702,7.3,21,3,0)="is Q6H (every six hours), the value in this field might be 0200-0800-"
^DD(53.702,7.3,21,4,0)="1400-2000.  The format of this timing is variable -- in the previous"
^DD(53.702,7.3,21,5,0)="example, the value may be 02-08-14-20.  Regardless of format, the hour"
^DD(53.702,7.3,21,6,0)="delimiter should be a dash (-).  Nevertheless, whatever is present in"
^DD(53.702,7.3,21,7,0)="the Pharmacy file and transmitted to the workstation is filed."
^DD(53.702,7.3,"DT")="3030106"
^DD(53.702,8,0)="SUPPLEMENTAL COMMENTS^53.7028^^5;0"
^DD(53.702,9,0)="OTHER PRINT INFO^F^^6;1^K:$L(X)>245!($L(X)<1) X"
^DD(53.702,9,3)="Answer must be 1-245 characters in length."
^DD(53.702,9,21,0)="^^4^4^3030106^"
^DD(53.702,9,21,1,0)="This supplemental free text field may contain further printable"
^DD(53.702,9,21,2,0)="information regarding this order.  Generally, however, all comments,"
^DD(53.702,9,21,3,0)="special instructions, other print information, etc. are contained in"
^DD(53.702,9,21,4,0)="the field SUPPLEMENTAL COMMENTS (#8)."
^DD(53.702,9,"DT")="3030106"
^DD(53.702,10,0)="DRUG^53.703A^^7;0"
^DD(53.702,10,21,0)="^^3^3^3030107^"
^DD(53.702,10,21,1,0)="This multiple field contains the names of medications associated with"
^DD(53.702,10,21,2,0)="this order.  Usually, this particular field contains unit dose"
^DD(53.702,10,21,3,0)="medications."
^DD(53.702,11,0)="ADDITIVE^53.70211A^^8;0"
^DD(53.702,11,21,0)="^^2^2^3030107^"
^DD(53.702,11,21,1,0)="This multiple field contains the names of any IV additives associated"
^DD(53.702,11,21,2,0)="with this order."
^DD(53.702,12,0)="SOLUTION^53.70212A^^9;0"
^DD(53.702,12,21,0)="^^2^2^3030107^"
^DD(53.702,12,21,1,0)="This multiple field contains the names of any IV solutions associated"
^DD(53.702,12,21,2,0)="with this order."
^DD(53.702,13,0)="MED LOG DATE/TIME^53.70213DA^^10;0"
^DD(53.702,13,21,0)="^^2^2^3030107^"
^DD(53.702,13,21,1,0)="The fields in this multiple contain information specific to BCMA"
^DD(53.702,13,21,2,0)="Medication Log entries from the VistA server."
^DD(53.702,"B","ADDITIVE",11)=""
^DD(53.702,"B","ADMIN ROUTE",7.1)=""
^DD(53.702,"B","ADMIN SCHEDULE",7.2)=""
^DD(53.702,"B","ADMIN TIMING",7.3)=""
^DD(53.702,"B","CPRS ORDER NUMBER",1)=""
^DD(53.702,"B","DATE ORDER LAST UPDATED",3)=""
^DD(53.702,"B","DOSAGE",7)=""
^DD(53.702,"B","DRUG",10)=""
^DD(53.702,"B","MED LOG DATE/TIME",13)=""
^DD(53.702,"B","MEDICATION TYPE",6.1)=""
^DD(53.702,"B","ORDER NUMBER",.01)=""
^DD(53.702,"B","ORDER STATUS",2)=""
^DD(53.702,"B","ORDER TYPE",6)=""
^DD(53.702,"B","OTHER PRINT INFO",9)=""
^DD(53.702,"B","PROVIDER",5)=""
^DD(53.702,"B","RPH/ENTRY PERSON",5.1)=""
^DD(53.702,"B","SOLUTION",12)=""
^DD(53.702,"B","START DATE/TIME",4)=""
^DD(53.702,"B","STOP DATE/TIME",4.1)=""
^DD(53.702,"B","SUPPLEMENTAL COMMENTS",8)=""
^DD(53.702,"B","VERIFYING PERSON",5.2)=""
^DD(53.702,"GL",0,1,.01)=""
^DD(53.702,"GL",0,2,1)=""
^DD(53.702,"GL",0,3,2)=""
^DD(53.702,"GL",0,4,3)=""
^DD(53.702,"GL",1,1,4)=""
^DD(53.702,"GL",1,2,4.1)=""
^DD(53.702,"GL",2,1,5)=""
^DD(53.702,"GL",2,2,5.1)=""
^DD(53.702,"GL",2,3,5.2)=""
^DD(53.702,"GL",3,1,6)=""
^DD(53.702,"GL",3,2,6.1)=""
^DD(53.702,"GL",4,1,7)=""
^DD(53.702,"GL",4,2,7.1)=""
^DD(53.702,"GL",4,3,7.2)=""
^DD(53.702,"GL",4,4,7.3)=""
^DD(53.702,"GL",5,0,8)=""
^DD(53.702,"GL",6,1,9)=""
^DD(53.702,"GL",7,0,10)=""
^DD(53.702,"GL",8,0,11)=""
^DD(53.702,"GL",9,0,12)=""
^DD(53.702,"GL",10,0,13)=""
^DD(53.702,"IX",.01)=""
^DD(53.702,"IX",1)=""
^DD(53.702,"SB",53.70211,11)=""
^DD(53.702,"SB",53.70212,12)=""
^DD(53.702,"SB",53.70213,13)=""
^DD(53.702,"SB",53.7028,8)=""
^DD(53.702,"SB",53.703,10)=""
^DD(53.70211,0)="ADDITIVE SUB-FIELD^^2^3"
^DD(53.70211,0,"DT")="3030107"
^DD(53.70211,0,"IX","B",53.70211,.01)=""
^DD(53.70211,0,"NM","ADDITIVE")=""
^DD(53.70211,0,"UP")="53.702"
^DD(53.70211,.01,0)="ADDITIVE^NJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.70211,.01,1,0)="^.1"
^DD(53.70211,.01,1,1,0)="53.70211^B"
^DD(53.70211,.01,1,1,1)="S ^ALPB(53.7,DA(2),2,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(53.70211,.01,1,1,2)="K ^ALPB(53.7,DA(2),2,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(53.70211,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.70211,.01,21,0)="^^3^3^3030107^"
^DD(53.70211,.01,21,1,0)="This field contains a number that represents the IV additive entry's"
^DD(53.70211,.01,21,2,0)="record number in the VistA server's IV ADDITIVES file.  It is used on"
^DD(53.70211,.01,21,3,0)="the workstation to prevent filing duplicate entries of IV additives."
^DD(53.70211,.01,"DT")="3030107"
^DD(53.70211,1,0)="ADDITIVE NAME^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(53.70211,1,3)="Answer must be 1-45 characters in length."
^DD(53.70211,1,21,0)="^^1^1^3030107^"
^DD(53.70211,1,21,1,0)="This field contains the descriptive name of the IV additive."
^DD(53.70211,1,"DT")="3030107"
^DD(53.70211,2,0)="UNITS^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(53.70211,2,3)="Answer must be 1-30 characters in length."
^DD(53.70211,2,21,0)="^^2^2^3030107^"
^DD(53.70211,2,21,1,0)="This field contains the description of the dispense units for this"
^DD(53.70211,2,21,2,0)="additive."
^DD(53.70211,2,"DT")="3030107"
^DD(53.70211,"B","ADDITIVE",.01)=""
^DD(53.70211,"B","ADDITIVE NAME",1)=""
^DD(53.70211,"B","UNITS",2)=""
^DD(53.70211,"GL",0,1,.01)=""
^DD(53.70211,"GL",0,2,1)=""
^DD(53.70211,"GL",0,3,2)=""
^DD(53.70211,"IX",.01)=""
^DD(53.70212,0)="SOLUTION SUB-FIELD^^2^3"
^DD(53.70212,0,"DT")="3030107"
^DD(53.70212,0,"IX","B",53.70212,.01)=""
^DD(53.70212,0,"NM","SOLUTION")=""
^DD(53.70212,0,"UP")="53.702"
^DD(53.70212,.01,0)="SOLUTION^NJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.70212,.01,1,0)="^.1"
^DD(53.70212,.01,1,1,0)="53.70212^B"
^DD(53.70212,.01,1,1,1)="S ^ALPB(53.7,DA(2),2,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(53.70212,.01,1,1,2)="K ^ALPB(53.7,DA(2),2,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(53.70212,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.70212,.01,21,0)="^^3^3^3030107^"
^DD(53.70212,.01,21,1,0)="This field contains a number that represents the IV solution's record"
^DD(53.70212,.01,21,2,0)="number in the VistA server's IV SOLUTIONS file.  It is used on the"
^DD(53.70212,.01,21,3,0)="workstation to prevent filing duplicate IV solutions."
^DD(53.70212,.01,"DT")="3030107"
^DD(53.70212,1,0)="SOLUTION NAME^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(53.70212,1,3)="Answer must be 1-45 characters in length."
^DD(53.70212,1,21,0)="^^1^1^3030107^"
^DD(53.70212,1,21,1,0)="This field contains the descriptive name of the IV solution."
^DD(53.70212,1,"DT")="3030107"
^DD(53.70212,2,0)="UNITS^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(53.70212,2,3)="Answer must be 1-30 characters in length."
^DD(53.70212,2,21,0)="^^2^2^3030107^"
^DD(53.70212,2,21,1,0)="This field contains the description of the dispense units for the IV"
^DD(53.70212,2,21,2,0)="solution."
^DD(53.70212,2,"DT")="3030107"
^DD(53.70212,"B","SOLUTION",.01)=""
^DD(53.70212,"B","SOLUTION NAME",1)=""
^DD(53.70212,"B","UNITS",2)=""
^DD(53.70212,"GL",0,1,.01)=""
^DD(53.70212,"GL",0,2,1)=""
^DD(53.70212,"GL",0,3,2)=""
^DD(53.70212,"IX",.01)=""
^DD(53.70213,0)="MED LOG DATE/TIME SUB-FIELD^^3^4"
^DD(53.70213,0,"DT")="3030321"
^DD(53.70213,0,"IX","AMLOG",53.70213,.01)=""
^DD(53.70213,0,"IX","B",53.70213,.01)=""
^DD(53.70213,0,"IX","C",53.70213,3)=""
^DD(53.70213,0,"IX","IMLOG",53.70213,.01)=""
^DD(53.70213,0,"NM","MED LOG DATE/TIME")=""
^DD(53.70213,0,"UP")="53.702"
^DD(53.70213,.01,0)="MED LOG DATE/TIME^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.70213,.01,1,0)="^.1^^-1"
^DD(53.70213,.01,1,1,0)="53.70213^B"
^DD(53.70213,.01,1,1,1)="S ^ALPB(53.7,DA(2),2,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(53.70213,.01,1,1,2)="K ^ALPB(53.7,DA(2),2,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(53.70213,.01,1,2,0)="53.70213^AMLOG^MUMPS"
^DD(53.70213,.01,1,2,1)="S ^ALPB(53.7,DA(2),""AMLOG"",X)="""""
^DD(53.70213,.01,1,2,2)="K ^ALPB(53.7,DA(2),""AMLOG"",X)"
^DD(53.70213,.01,1,2,"%D",0)="^.101^1^1^3031106^^^"
^DD(53.70213,.01,1,2,"%D",1,0)="This cross references orders by Med Log Date/Time."
^DD(53.70213,.01,1,2,"DT")="3030107"
^DD(53.70213,.01,1,3,0)="53.70213^IMLOG^MUMPS"
^DD(53.70213,.01,1,3,1)="S ^ALPB(53.7,DA(2),2,DA(1),10,""IMLOG"",(9999999-X),DA)="""""
^DD(53.70213,.01,1,3,2)="K ^ALPB(53.7,DA(2),2,DA(1),10,""IMLOG"",(9999999-X),DA)"
^DD(53.70213,.01,1,3,"%D",0)="^.101^1^1^3060413^^"
^DD(53.70213,.01,1,3,"%D",1,0)="An inverted date x-ref used for printing Med Log data in inverted order."
^DD(53.70213,.01,1,3,"DT")="3031106"
^DD(53.70213,.01,21,0)="^.001^2^2^3030107^^^"
^DD(53.70213,.01,21,1,0)="This date and time is that of the BCMA Medication Log entry on the"
^DD(53.70213,.01,21,2,0)="VistA server."
^DD(53.70213,.01,"DT")="3031217"
^DD(53.70213,1,0)="MED LOG ENTRY PERSON^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(53.70213,1,3)="Answer must be 1-30 characters in length."
^DD(53.70213,1,21,0)="^^3^3^3030107^"
^DD(53.70213,1,21,1,0)="This is the name of the person who made the BCMA Medication Log entry"
^DD(53.70213,1,21,2,0)="on the VistA server.  This person could be a nurse or other clinician"
^DD(53.70213,1,21,3,0)="who administered the medication ot the patient."
^DD(53.70213,1,"DT")="3030107"
^DD(53.70213,2,0)="MED LOG STATUS MESSAGE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(53.70213,2,3)="Answer must be 1-30 characters in length."
^DD(53.70213,2,21,0)="^^4^4^3030107^"
^DD(53.70213,2,21,1,0)="This is the message associated with the BCMA Medication Log entry on the"
^DD(53.70213,2,21,2,0)="VistA server.  Values in this field are in two parts delimited by a '~':"
^DD(53.70213,2,21,3,0)="code~code description.  Code descriptions can be values like GIVEN, HOLD,"
^DD(53.70213,2,21,4,0)="REFUSED, etc."
^DD(53.70213,2,"DT")="3030107"
^DD(53.70213,3,0)="MED LOG RECORD NUMBER^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(53.70213,3,1,0)="^.1"
^DD(53.70213,3,1,1,0)="53.70213^C"
^DD(53.70213,3,1,1,1)="S ^ALPB(53.7,DA(2),2,DA(1),10,""C"",$E(X,1,30),DA)="""""
^DD(53.70213,3,1,1,2)="K ^ALPB(53.7,DA(2),2,DA(1),10,""C"",$E(X,1,30),DA)"
^DD(53.70213,3,1,1,"DT")="3030321"
^DD(53.70213,3,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(53.70213,3,21,0)="^^2^2^3030321^"
^DD(53.70213,3,21,1,0)="This field contains the BCMA Medication Log record number that exists"
^DD(53.70213,3,21,2,0)="on the VistA server."
^DD(53.70213,3,"DT")="3030321"
^DD(53.70213,"B","MED LOG DATE/TIME",.01)=""
^DD(53.70213,"B","MED LOG ENTRY PERSON",1)=""
^DD(53.70213,"B","MED LOG RECORD NUMBER",3)=""
^DD(53.70213,"B","MED LOG STATUS MESSAGE",2)=""
^DD(53.70213,"GL",0,1,.01)=""
^DD(53.70213,"GL",0,2,1)=""
^DD(53.70213,"GL",0,3,2)=""
^DD(53.70213,"GL",0,4,3)=""
^DD(53.70213,"IX",.01)=""
^DD(53.70213,"IX",3)=""
^DD(53.7028,0)="SUPPLEMENTAL COMMENTS SUB-FIELD^^.01^1"
^DD(53.7028,0,"DT")="3030106"
^DD(53.7028,0,"NM","SUPPLEMENTAL COMMENTS")=""
^DD(53.7028,0,"UP")="53.702"
^DD(53.7028,.01,0)="SUPPLEMENTAL COMMENTS^W^^0;1^Q"
^DD(53.7028,.01,21,0)="^^2^2^3030106^"
^DD(53.7028,.01,21,1,0)="This field contains any and all special instructions, provider comments,"
^DD(53.7028,.01,21,2,0)="or other print information pertinent to this order."
^DD(53.7028,.01,"DT")="3030106"
^DD(53.7028,"B","SUPPLEMENTAL COMMENTS",.01)=""
^DD(53.7028,"GL",0,1,.01)=""
^DD(53.703,0)="DRUG SUB-FIELD^^1^2"
^DD(53.703,0,"DT")="3030107"
^DD(53.703,0,"IX","B",53.703,.01)=""
^DD(53.703,0,"NM","DRUG")=""
^DD(53.703,0,"UP")="53.702"
^DD(53.703,.01,0)="DRUG^NJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.703,.01,1,0)="^.1"
^DD(53.703,.01,1,1,0)="53.703^B"
^DD(53.703,.01,1,1,1)="S ^ALPB(53.7,DA(2),2,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(53.703,.01,1,1,2)="K ^ALPB(53.7,DA(2),2,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(53.703,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.703,.01,21,0)="^.001^3^3^3030107^^^^"
^DD(53.703,.01,21,1,0)="This .01 field contains a number that represents the record number of"
^DD(53.703,.01,21,2,0)="the drug in the VistA server's Drug file.  It is used in the workstation"
^DD(53.703,.01,21,3,0)="file to prevent the possibility of filing duplicate drug names."
^DD(53.703,.01,"DT")="3030106"
^DD(53.703,1,0)="DRUG NAME^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(53.703,1,3)="Answer must be 1-45 characters in length."
^DD(53.703,1,21,0)="^^1^1^3030107^"
^DD(53.703,1,21,1,0)="This field contains the descriptive name of the medication."
^DD(53.703,1,"DT")="3030107"
^DD(53.703,"B","DRUG",.01)=""
^DD(53.703,"B","DRUG NAME",1)=""
^DD(53.703,"GL",0,1,.01)=""
^DD(53.703,"GL",0,2,1)=""
^DD(53.703,"IX",.01)=""
^DD(53.71,0)="FIELD^^7^8"
^DD(53.71,0,"DDA")="N"
^DD(53.71,0,"DT")="3050406"
^DD(53.71,0,"IX","B",53.71,.01)=""
^DD(53.71,0,"IX","C",53.713,1)=""
^DD(53.71,0,"NM","BCMA BACKUP PARAMETERS")=""
^DD(53.71,0,"VR")="3.0"
^DD(53.71,0,"VRPK")="PSB"
^DD(53.71,.01,0)="PARAMETERS NAME^RFI^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(53.71,.01,1,0)="^.1"
^DD(53.71,.01,1,1,0)="53.71^B"
^DD(53.71,.01,1,1,1)="S ^ALPB(53.71,""B"",$E(X,1,30),DA)="""""
^DD(53.71,.01,1,1,2)="K ^ALPB(53.71,""B"",$E(X,1,30),DA)"
^DD(53.71,.01,3)="Answer must be 3 characters in length."
^DD(53.71,.01,21,0)="^.001^4^4^3030107^^"
^DD(53.71,.01,21,1,0)="The BCMA Backup System package is distributed with this field pre-defined"
^DD(53.71,.01,21,2,0)="with the value of ""ONE"".  Further, this field is set to UNEDITABLE.  Only"
^DD(53.71,.01,21,3,0)="the values inside this PARAMETERS file record should be edited.  DO NOT "
^DD(53.71,.01,21,4,0)="DELETE THIS PRE-DEFINED RECORD OR ADD NEW RECORDS."
^DD(53.71,.01,"DT")="3030107"
^DD(53.71,1,0)="DEFAULT DAYS FOR MAR^NJ1,0^^0;2^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.71,1,3)="Type a Number between 1 and 7, 0 Decimal Digits"
^DD(53.71,1,21,0)="^^16^16^3030107^"
^DD(53.71,1,21,1,0)="The number in this field indicates the default number of days for which"
^DD(53.71,1,21,2,0)="medication administration initial boxes are printed on the output forms.  "
^DD(53.71,1,21,3,0)="For example, if the number of days is 3, then the printed outputs will"
^DD(53.71,1,21,4,0)="contain initial boxes beside each printed order that will look like this:"
^DD(53.71,1,21,5,0)="                                 "
^DD(53.71,1,21,6,0)="      Admin DEC "
^DD(53.71,1,21,7,0)="      Times 01   02  03 "
^DD(53.71,1,21,8,0)="      0400 |___|___|___| "
^DD(53.71,1,21,9,0)="      0800 |___|___|___| "
^DD(53.71,1,21,10,0)="                                 "
^DD(53.71,1,21,11,0)="     (These ""initial boxes"" are printed so that staff can record"
^DD(53.71,1,21,12,0)="      medication administration at the prescribed times.)"
^DD(53.71,1,21,13,0)="                                 "
^DD(53.71,1,21,14,0)="The usual number of days is 3 and this file is distributed with this value"
^DD(53.71,1,21,15,0)="as a default (pre-defined).  If the value is deleted, the BCMA Backup "
^DD(53.71,1,21,16,0)="System software defaults to 3 days as well."
^DD(53.71,1,"DT")="3030107"
^DD(53.71,2,0)="DEFAULT MAR PRINTER^P3.5'^%ZIS(1,^0;3^Q"
^DD(53.71,2,21,0)="^^7^7^3030107^"
^DD(53.71,2,21,1,0)="This field will be used to designate a default printer for the printing of"
^DD(53.71,2,21,2,0)="Medication Administration Records (MAR)."
^DD(53.71,2,21,3,0)="                                 "
^DD(53.71,2,21,4,0)="If this field contains a device entry, it will be presented as the default"
^DD(53.71,2,21,5,0)="print location for the MARs in the Device handler calls in the BCMA MAR"
^DD(53.71,2,21,6,0)="print options. The user can either accept this default device, or select"
^DD(53.71,2,21,7,0)="another valid device from the Device file."
^DD(53.71,2,"DT")="3030107"
^DD(53.71,3,0)="ERROR LOG^53.713DA^^1;0"
^DD(53.71,3,21,0)="^^5^5^3030107^"
^DD(53.71,3,21,1,0)="This multiple field contains individual entries describing errors"
^DD(53.71,3,21,2,0)="encountered by the processing of HL7 messages and the filing of data in"
^DD(53.71,3,21,3,0)="the BCMA BACKUP DATA FILE (#53.7).  This field should not be edited using"
^DD(53.71,3,21,4,0)="File Manager. Display and deletion of individual errors in this field is"
^DD(53.71,3,21,5,0)="handled with the option ALPB ERROR LOG."
^DD(53.71,4,0)="DATA FILE LAST UPDATED^D^^2;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.71,4,21,0)="^^2^2^3030107^"
^DD(53.71,4,21,1,0)="This field contains the date and time that the BCMA BACKUP DATA file (53.7)"
^DD(53.71,4,21,2,0)="was last updated by the processing of any HL7 message."
^DD(53.71,4,"DT")="3030107"
^DD(53.71,5,0)="PURGE ORDER DAYS^NJ3,0^^2;2^K:+X'=X!(X>100)!(X<3)!(X?.E1"".""1.N) X"
^DD(53.71,5,1,0)="^.1^^0"
^DD(53.71,5,3)="Type a number between 3 and 100, 0 Decimal Digits"
^DD(53.71,5,21,0)="^^2^2^3031024^"
^DD(53.71,5,21,1,0)="The Purge utility defaults at 7 days of orders. You can change that by "
^DD(53.71,5,21,2,0)="entering a number here. The purge is based off the order stop date."
^DD(53.71,5,"DT")="3031024"
^DD(53.71,6,0)="PURGE PATIENT^NJ2,0^^2;3^K:+X'=X!(X>30)!(X<3)!(X?.E1"".""1.N) X"
^DD(53.71,6,3)="Type a number between 3 and 30, 0 Decimal Digits"
^DD(53.71,6,21,0)="^^2^2^3031024^"
^DD(53.71,6,21,1,0)="Enter the number of days to retain a patient record without activity or "
^DD(53.71,6,21,2,0)="orders."
^DD(53.71,6,"DT")="3031024"
^DD(53.71,7,0)="MED-LOG NUMBER^NJ2,0^^2;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.71,7,3)="Enter the number of previous Med Log entries to display."
^DD(53.71,7,21,0)="^^3^3^3050406^"
^DD(53.71,7,21,1,0)="The Med-Log number field determines the number of previous Med Log "
^DD(53.71,7,21,2,0)="entries that will be displayed on the BCMA Contingency Medical"
^DD(53.71,7,21,3,0)="Administration Report MAR."
^DD(53.71,7,"DT")="3050406"
^DD(53.71,"B","DATA FILE LAST UPDATED",4)=""
^DD(53.71,"B","DEFAULT DAYS FOR MAR",1)=""
^DD(53.71,"B","DEFAULT MAR PRINTER",2)=""
^DD(53.71,"B","ERROR LOG",3)=""
^DD(53.71,"B","MED-LOG NUMBER",7)=""
^DD(53.71,"B","PARAMETERS NAME",.01)=""
^DD(53.71,"B","PURGE ORDER DAYS",5)=""
^DD(53.71,"B","PURGE PATIENT",6)=""
^DD(53.71,"GL",0,1,.01)=""
^DD(53.71,"GL",0,2,1)=""
^DD(53.71,"GL",0,3,2)=""
^DD(53.71,"GL",1,0,3)=""
^DD(53.71,"GL",2,1,4)=""
^DD(53.71,"GL",2,2,5)=""
^DD(53.71,"GL",2,3,6)=""
^DD(53.71,"GL",2,4,7)=""
^DD(53.71,"IX",.01)=""
^DD(53.71,"RQ",.01)=""
^DD(53.71,"SB",53.713,3)=""
^DD(53.713,0)="ERROR LOG SUB-FIELD^^5^7"
^DD(53.713,0,"DT")="3030317"
^DD(53.713,0,"IX","B",53.713,.01)=""
^DD(53.713,0,"NM","ERROR LOG")=""
^DD(53.713,0,"UP")="53.71"
^DD(53.713,.01,0)="ERROR LOG^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.713,.01,1,0)="^.1"
^DD(53.713,.01,1,1,0)="53.713^B"
^DD(53.713,.01,1,1,1)="S ^ALPB(53.71,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(53.713,.01,1,1,2)="K ^ALPB(53.71,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(53.713,.01,21,0)="^.001^2^2^3030107^^"
^DD(53.713,.01,21,1,0)="This field contains the date and time when the error was logged into this"
^DD(53.713,.01,21,2,0)="file."
^DD(53.713,.01,"DT")="3030107"
^DD(53.713,1,0)="PATIENT RECORD NUMBER^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.713,1,1,0)="^.1"
^DD(53.713,1,1,1,0)="53.71^C"
^DD(53.713,1,1,1,1)="S ^ALPB(53.71,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(53.713,1,1,1,2)="K ^ALPB(53.71,""C"",$E(X,1,30),DA(1),DA)"
^DD(53.713,1,1,1,"%D",0)="^^1^1^3030107^"
^DD(53.713,1,1,1,"%D",1,0)="This cross references all error log records by patient record number."
^DD(53.713,1,1,1,"DT")="3030107"
^DD(53.713,1,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.713,1,21,0)="^^6^6^3030107^"
^DD(53.713,1,21,1,0)="The number in this field is the patient's record number in file 53.7.  The"
^DD(53.713,1,21,2,0)="field is not defined as a pointer to file 53.7 due to the dynamics of file"
^DD(53.713,1,21,3,0)="53.7.  The Error Log processing routine (ALPBELOG) handles the deletion of"
^DD(53.713,1,21,4,0)="entries in this file (53.71) when processing through errors.  If a patient"
^DD(53.713,1,21,5,0)="no longer has a record in file 53.7, then any entry for the patient"
^DD(53.713,1,21,6,0)="encountered in this file will be deleted."
^DD(53.713,1,"DT")="3030107"
^DD(53.713,2,0)="ORDER RECORD NUMBER^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.713,2,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.713,2,21,0)="^^2^2^3030107^"
^DD(53.713,2,21,1,0)="The number stored in this field is the Order Number sub-file record"
^DD(53.713,2,21,2,0)="number (IEN) in file 53.7."
^DD(53.713,2,"DT")="3030107"
^DD(53.713,3,0)="HL7 MESSAGE RECORD NUMBER^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.713,3,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(53.713,3,21,0)="^^2^2^3030107^"
^DD(53.713,3,21,1,0)="The number in this field is the record number in file 772 for the HL7"
^DD(53.713,3,21,2,0)="message that contains the segment for which this filing error was logged."
^DD(53.713,3,"DT")="3030107"
^DD(53.713,3.1,0)="HL7 SEGMENT OR MESSAGE^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(53.713,3.1,3)="Answer must be 1-15 characters in length."
^DD(53.713,3.1,21,0)="^^4^4^3030107^"
^DD(53.713,3.1,21,1,0)="This field can contain either the HL7 segment identifier (for example,"
^DD(53.713,3.1,21,2,0)="PID, PV1, RXE, etc.) -or- a code signifying some other kind of filing"
^DD(53.713,3.1,21,3,0)="error (for example ""NEWORD"" could be found in this field indicating an"
^DD(53.713,3.1,21,4,0)="error occurred while attempting to add the order into file 53.7)."
^DD(53.713,3.1,"DT")="3030107"
^DD(53.713,3.2,0)="HL7 SEGMENT DATA^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(53.713,3.2,3)="Answer must be 1-245 characters in length."
^DD(53.713,3.2,21,0)="^^2^2^3030107^"
^DD(53.713,3.2,21,1,0)="This field contains the actual HL7 segment data from the node in file"
^DD(53.713,3.2,21,2,0)="772 being processed at the time the filing error occurred."
^DD(53.713,3.2,"DT")="3030107"
^DD(53.713,5,0)="ERROR CODE^53.7135A^^2;0"
^DD(53.713,5,"DT")="3030317"
^DD(53.713,"B","ERROR CODE",5)=""
^DD(53.713,"B","ERROR LOG",.01)=""
^DD(53.713,"B","HL7 MESSAGE RECORD NUMBER",3)=""
^DD(53.713,"B","HL7 SEGMENT DATA",3.2)=""
^DD(53.713,"B","HL7 SEGMENT OR MESSAGE",3.1)=""
^DD(53.713,"B","ORDER RECORD NUMBER",2)=""
^DD(53.713,"B","PATIENT RECORD NUMBER",1)=""
^DD(53.713,"GL",0,1,.01)=""
^DD(53.713,"GL",0,2,1)=""
^DD(53.713,"GL",0,3,2)=""
^DD(53.713,"GL",0,4,3)=""
^DD(53.713,"GL",0,5,3.1)=""
^DD(53.713,"GL",1,1,3.2)=""
^DD(53.713,"GL",2,0,5)=""
^DD(53.713,"IX",.01)=""
^DD(53.713,"IX",1)=""
^DD(53.713,"SB",53.7135,5)=""
^DD(53.7135,0)="ERROR CODE SUB-FIELD^^1^2"
^DD(53.7135,0,"DT")="3030317"
^DD(53.7135,0,"IX","B",53.7135,.01)=""
^DD(53.7135,0,"NM","ERROR CODE")=""
^DD(53.7135,0,"UP")="53.713"
^DD(53.7135,.01,0)="ERROR CODE^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(53.7135,.01,1,0)="^.1"
^DD(53.7135,.01,1,1,0)="53.7135^B"
^DD(53.7135,.01,1,1,1)="S ^ALPB(53.71,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(53.7135,.01,1,1,2)="K ^ALPB(53.71,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(53.7135,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(53.7135,.01,21,0)="^^7^7^3030107^"
^DD(53.7135,.01,21,1,0)="The number in this field is usually equal to a File Manager error code.  "
^DD(53.7135,.01,21,2,0)="This code is generated/returned by File Manager when an error is generated"
^DD(53.7135,.01,21,3,0)="by data passed to the FMDBS calls used in the BCMA Backup System package."
^DD(53.7135,.01,21,4,0)="                                   "
^DD(53.7135,.01,21,5,0)="Note, however, that this field could also contain a code '999' which"
^DD(53.7135,.01,21,6,0)="indicates that some other type of filing error occurred. The ERROR TEXT"
^DD(53.7135,.01,21,7,0)="field will contain the explanation of the error."
^DD(53.7135,.01,"DT")="3030317"
^DD(53.7135,1,0)="ERROR TEXT^53.71351^^1;0"
^DD(53.7135,1,3)="Answer must be 1-80 characters in length."
^DD(53.7135,1,"DT")="3030107"
^DD(53.7135,"B","ERROR CODE",.01)=""
^DD(53.7135,"B","ERROR TEXT",1)=""
^DD(53.7135,"GL",0,1,.01)=""
^DD(53.7135,"GL",1,0,1)=""
^DD(53.7135,"IX",.01)=""
^DD(53.7135,"SB",53.71351,1)=""
^DD(53.71351,0)="ERROR TEXT SUB-FIELD^^.01^1"
^DD(53.71351,0,"DT")="3030317"
^DD(53.71351,0,"NM","ERROR TEXT")=""
^DD(53.71351,0,"UP")="53.7135"
^DD(53.71351,.01,0)="ERROR TEXT^W^^0;1^Q"
^DD(53.71351,.01,21,0)="^^3^3^3030317^"
^DD(53.71351,.01,21,1,0)="This field contains the text of the message describing the filing error.  "
^DD(53.71351,.01,21,2,0)="It can be the text generated from a File Manager DBS call or from some"
^DD(53.71351,.01,21,3,0)="other error processing mechanism in the BCMA Backup System package."
^DD(53.71351,.01,"DT")="3030317"
^DD(53.71351,"B","ERROR TEXT",.01)=""
^DD(53.71351,"GL",0,1,.01)=""
^DD(53.78,0)="FIELD^^.09^9"
^DD(53.78,0,"DDA")="N"
^DD(53.78,0,"DT")="2990428"
^DD(53.78,0,"IX","ADT",53.78,.04)=""
^DD(53.78,0,"IX","B",53.78,.01)=""
^DD(53.78,0,"NM","BCMA MEDICATION VARIANCE LOG")=""
^DD(53.78,0,"VR")="3.0"
^DD(53.78,0,"VRPK")="PSB"
^DD(53.78,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(53.78,.01,1,0)="^.1"
^DD(53.78,.01,1,1,0)="53.78^B"
^DD(53.78,.01,1,1,1)="S ^PSB(53.78,""B"",$E(X,1,30),DA)="""""
^DD(53.78,.01,1,1,2)="K ^PSB(53.78,""B"",$E(X,1,30),DA)"
^DD(53.78,.01,3)=""
^DD(53.78,.01,21,0)="^^1^1^2990731^^"
^DD(53.78,.01,21,1,0)="Pointer to the patient file (#2) of the patient in the variance log."
^DD(53.78,.01,"DT")="2990325"
^DD(53.78,.02,0)="ROOM AND BED^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(53.78,.02,3)="Answer must be 1-20 characters in length."
^DD(53.78,.02,21,0)="^^1^1^3020701^"
^DD(53.78,.02,21,1,0)="Room and bed location of the patient at the time of the variance."
^DD(53.78,.02,"DT")="3020701"
^DD(53.78,.03,0)="USER^P200'O^VA(200,^0;3^Q"
^DD(53.78,.03,2)="S Y(0)=Y S Y=$S($D(^XUSEC(""PSB MANAGER"",DUZ)):$P(^VA(200,Y,0),U),1:""<No Access>"")"
^DD(53.78,.03,2.1)="S Y=$S($D(^XUSEC(""PSB MANAGER"",DUZ)):$P(^VA(200,Y,0),U),1:""<No Access>"")"
^DD(53.78,.03,21,0)="^^1^1^2990731^^"
^DD(53.78,.03,21,1,0)="User passing meds during the variance."
^DD(53.78,.03,"DT")="2990328"
^DD(53.78,.04,0)="DATE/TIME OF OCCURRENCE^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.78,.04,1,0)="^.1"
^DD(53.78,.04,1,1,0)="53.78^ADT"
^DD(53.78,.04,1,1,1)="S ^PSB(53.78,""ADT"",$E(X,1,30),DA)="""""
^DD(53.78,.04,1,1,2)="K ^PSB(53.78,""ADT"",$E(X,1,30),DA)"
^DD(53.78,.04,1,1,"DT")="2990328"
^DD(53.78,.04,21,0)="^^1^1^2990731^^"
^DD(53.78,.04,21,1,0)="Date/time of the variance."
^DD(53.78,.04,"DT")="2990328"
^DD(53.78,.05,0)="EVENT^S^1:WRONG MED;2:EARLY/LATE DOSE;3:LATE PRN EFFECT;^0;5^Q"
^DD(53.78,.05,3)=""
^DD(53.78,.05,21,0)="^^1^1^2990731^^"
^DD(53.78,.05,21,1,0)="Set of codes describing the variance."
^DD(53.78,.05,"DT")="2990428"
^DD(53.78,.06,0)="ADMINISTRATION TIME VARIANCE^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"".""1N.N) X"
^DD(53.78,.06,3)="Type a Number between -999999999 and 999999999, 0 Decimal Digits"
^DD(53.78,.06,21,0)="^^2^2^2990731^^"
^DD(53.78,.06,21,1,0)="If the variance was an early or late event this field store the number of"
^DD(53.78,.06,21,2,0)="minutes early (<1) or minutes late (>1) of the event."
^DD(53.78,.06,"DT")="2990325"
^DD(53.78,.07,0)="DRUG SCANNED^P50'^PSDRUG(^0;7^Q"
^DD(53.78,.07,21,0)="^^2^2^2990731^^"
^DD(53.78,.07,21,1,0)="Pointer to the drug file of the medication that was scanned for this"
^DD(53.78,.07,21,2,0)="variance."
^DD(53.78,.07,"DT")="2990325"
^DD(53.78,.08,0)="MED LOG PTR^P53.79'^PSB(53.79,^0;8^Q"
^DD(53.78,.08,21,0)="^^1^1^2990731^^"
^DD(53.78,.08,21,1,0)="Pointer to the BCMA MEDICATION LOG (#53.79) for this event."
^DD(53.78,.08,"DT")="2990328"
^DD(53.78,.09,0)="WARD LOCATION^P42'^DIC(42,^0;9^Q"
^DD(53.78,.09,3)="Enter the ward where the patient is currently located."
^DD(53.78,.09,21,0)="^.001^1^1^3020703^^^^"
^DD(53.78,.09,21,1,0)="The ward location where the patient is located when a Medication Variance is logged."
^DD(53.78,.09,"DT")="3020703"
^DD(53.78,"B","ADMINISTRATION TIME VARIANCE",.06)=""
^DD(53.78,"B","DATE/TIME OF OCCURRENCE",.04)=""
^DD(53.78,"B","DRUG SCANNED",.07)=""
^DD(53.78,"B","EVENT",.05)=""
^DD(53.78,"B","MED LOG PTR",.08)=""
^DD(53.78,"B","PATIENT NAME",.01)=""
^DD(53.78,"B","ROOM AND BED",.02)=""
^DD(53.78,"B","USER",.03)=""
^DD(53.78,"B","WARD LOCATION",.09)=""
^DD(53.78,"GL",0,1,.01)=""
^DD(53.78,"GL",0,2,.02)=""
^DD(53.78,"GL",0,3,.03)=""
^DD(53.78,"GL",0,4,.04)=""
^DD(53.78,"GL",0,5,.05)=""
^DD(53.78,"GL",0,6,.06)=""
^DD(53.78,"GL",0,7,.07)=""
^DD(53.78,"GL",0,8,.08)=""
^DD(53.78,"GL",0,9,.09)=""
^DD(53.78,"IX",.01)=""
^DD(53.78,"IX",.04)=""
^DD(53.78,"RQ",.01)=""
^DD(53.79,0)="FIELD^^.9^28"
^DD(53.79,0,"DDA")="N"
^DD(53.79,0,"DT")="3031104"
^DD(53.79,0,"ID",.08)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PS(50.7,+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50.7,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(53.79,0,"ID",.11)="W:$D(^(.1)) ""   "",$P(^(.1),U,1)"
^DD(53.79,0,"IX","AADT",53.79,.06)=""
^DD(53.79,0,"IX","ACHKPRN",53.79,.25)=""
^DD(53.79,0,"IX","AEDT",53.79,.04)=""
^DD(53.79,0,"IX","AOIP",53.79,.08)=""
^DD(53.79,0,"IX","AOIP1",53.79,.06)=""
^DD(53.79,0,"IX","AORD2",53.79,.13)=""
^DD(53.79,0,"IX","APRN2",53.79,.12)=""
^DD(53.79,0,"IX","AU06",53.79,.06)=""
^DD(53.79,0,"IX","AU09",53.79,.09)=""
^DD(53.79,0,"IX","AU16",53.79,.16)=""
^DD(53.79,0,"IX","AU21",53.79,.21)=""
^DD(53.79,0,"IX","AU22",53.79,.22)=""
^DD(53.79,0,"IX","AVARCHK",53.79,.14)=""
^DD(53.79,0,"IX","B",53.79,.01)=""
^DD(53.79,0,"IX","E",53.796,.01)=""
^DD(53.79,0,"IX","F",53.797,.01)=""
^DD(53.79,0,"NM","BCMA MEDICATION LOG")=""
^DD(53.79,0,"PT",53.78,.08)=""
^DD(53.79,0,"VR")="3.0"
^DD(53.79,0,"VRPK")="PSB"
^DD(53.79,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(53.79,.01,1,0)="^.1^^-1"
^DD(53.79,.01,1,1,0)="53.79^B"
^DD(53.79,.01,1,1,1)="S ^PSB(53.79,""B"",$E(X,1,30),DA)="""""
^DD(53.79,.01,1,1,2)="K ^PSB(53.79,""B"",$E(X,1,30),DA)"
^DD(53.79,.01,3)=""
^DD(53.79,.01,21,0)="^^2^2^2990731^^^"
^DD(53.79,.01,21,1,0)="This field contains a pointer to the PATIENT File (#2) and is the patient"
^DD(53.79,.01,21,2,0)="that received the medication."
^DD(53.79,.01,"DT")="3030221"
^DD(53.79,.02,0)="PATIENT LOCATION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(53.79,.02,3)="Answer must be 1-50 characters in length."
^DD(53.79,.02,21,0)="^^2^2^2990731^^"
^DD(53.79,.02,21,1,0)="Free text room-bed and ward location of the patient at the time of the med"
^DD(53.79,.02,21,2,0)="pass."
^DD(53.79,.02,"DT")="2990319"
^DD(53.79,.03,0)="PATIENT DIVISION^RP4'^DIC(4,^0;3^Q"
^DD(53.79,.03,21,0)="^.001^1^1^3020306^^^^"
^DD(53.79,.03,21,1,0)="Division of the ward that this patient was on during the med pass."
^DD(53.79,.03,"DT")="2990313"
^DD(53.79,.04,0)="ENTERED DATE/TIME^RD^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.79,.04,1,0)="^.1"
^DD(53.79,.04,1,1,0)="53.79^AEDT^MUMPS"
^DD(53.79,.04,1,1,1)="S ^PSB(53.79,""AEDT"",$P(^PSB(53.79,DA,0),U),X,DA)="""""
^DD(53.79,.04,1,1,2)="K ^PSB(53.79,""AEDT"",$P(^PSB(53.79,DA,0),U),X,DA)"
^DD(53.79,.04,1,1,"%D",0)="^^3^3^2990731^"
^DD(53.79,.04,1,1,"%D",1,0)="Creates an entry by patient for date/time entries in the log were created."
^DD(53.79,.04,1,1,"%D",2,0)=" "
^DD(53.79,.04,1,1,"%D",3,0)="  ^PSB(53.79,""AEDT"",dfn,Entered Date/Time,DA)="""""
^DD(53.79,.04,1,1,"DT")="2990314"
^DD(53.79,.04,21,0)="^.001^1^1^3010411^^^"
^DD(53.79,.04,21,1,0)="Date and time the med pass was filed.  Defaults to NOW on record creation."
^DD(53.79,.04,"DT")="2990314"
^DD(53.79,.05,0)="ENTERED BY^RP200'^VA(200,^0;5^Q"
^DD(53.79,.05,1,0)="^.1^^0"
^DD(53.79,.05,21,0)="^^1^1^2990731^^"
^DD(53.79,.05,21,1,0)="Pointer to the NEW PERSON file (#200).  Contains the user passing meds."
^DD(53.79,.05,"DT")="3020426"
^DD(53.79,.06,0)="ACTION DATE/TIME^RD^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.79,.06,1,0)="^.1^^-1"
^DD(53.79,.06,1,1,0)="53.79^AADT^MUMPS"
^DD(53.79,.06,1,1,1)="S ^PSB(53.79,""AADT"",$P(^PSB(53.79,DA,0),U),X,DA)="""""
^DD(53.79,.06,1,1,2)="Q"
^DD(53.79,.06,1,1,"%D",0)="^.101^3^3^3020517^^^^"
^DD(53.79,.06,1,1,"%D",1,0)="Creates a cross reference by patient for administration times"
^DD(53.79,.06,1,1,"%D",2,0)=" "
^DD(53.79,.06,1,1,"%D",3,0)="  ^PSB(53.79,""AADT"",dfn,administration d/t,DA)="""""
^DD(53.79,.06,1,1,"DT")="3020429"
^DD(53.79,.06,1,2,0)="53.79^AOIP1^MUMPS^^^^^^G"
^DD(53.79,.06,1,2,1)="I $P(^PSB(53.79,DA,0),U,8) S ^PSB(53.79,""AOIP"",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,0),U,8),X,DA)="""""
^DD(53.79,.06,1,2,2)="I $P(^PSB(53.79,DA,0),U,8) K ^PSB(53.79,""AOIP"",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,0),U,8),X,DA)"
^DD(53.79,.06,1,2,"%D",0)="^.101^6^6^3020410^^"
^DD(53.79,.06,1,2,"%D",1,0)="Creates a cross reference by patient for orderable items and"
^DD(53.79,.06,1,2,"%D",2,0)="administration date/time"
^DD(53.79,.06,1,2,"%D",3,0)=" "
^DD(53.79,.06,1,2,"%D",4,0)="  ^PSB(53.79,""AOIP"",dfn,orderable item,administration d/t,DA)="""""
^DD(53.79,.06,1,2,"%D",5,0)=" "
^DD(53.79,.06,1,2,"%D",6,0)="Same as field ADMINISTRATION MEDICATION (#.08)"
^DD(53.79,.06,1,2,"DT")="2990427"
^DD(53.79,.06,1,4,0)="53.79^AU06^MUMPS"
^DD(53.79,.06,1,4,1)="D AUDIT^PSBUTL(DA,53.79,.06,X,""S"")"
^DD(53.79,.06,1,4,2)="D AUDIT^PSBUTL(DA,53.79,.06,X,""K"")"
^DD(53.79,.06,1,4,"%D",0)="^.101^1^1^3020412^^^^"
^DD(53.79,.06,1,4,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.79,.06,1,4,"DT")="2990409"
^DD(53.79,.06,1,8,0)="^^TRIGGER^53.79^.14"
^DD(53.79,.06,1,8,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^PSB(53.79,DA,.1)),U,2)=""C""&($P($G(^(.1)),U,3)]"""") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.06,1,8,1.1) X ^DD(53.79,.06,1,8,1.4)"
^DD(53.79,.06,1,8,1.1)="S X=DIV X ^DD(53.79,.06,1,8,49.2) S X1=Y(1) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(53.79,.06,1,8,1.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.06,1,8,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^PSB(53.79,DA,.1)),U,2)=""C""&($P($G(^(.1)),U,3)]"""") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(53.79,.06,1,8,2.4)"
^DD(53.79,.06,1,8,2.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.06,1,8,49.2)="S Y(2)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"""") S X=DIV,Y(1)=X S X=$P(Y(2),U,3)"
^DD(53.79,.06,1,8,"CREATE CONDITION")="I $P($G(^PSB(53.79,DA,.1)),U,2)=""C""&($P($G(^(.1)),U,3)]"""")"
^DD(53.79,.06,1,8,"CREATE VALUE")="MINUTES(#.06,#.13)"
^DD(53.79,.06,1,8,"DELETE CONDITION")="I $P($G(^PSB(53.79,DA,.1)),U,2)=""C""&($P($G(^(.1)),U,3)]"""")"
^DD(53.79,.06,1,8,"DELETE VALUE")="@"
^DD(53.79,.06,1,8,"DT")="2990314"
^DD(53.79,.06,1,8,"FIELD")="#.14"
^DD(53.79,.06,21,0)="^.001^1^1^3020711^^^^"
^DD(53.79,.06,21,1,0)="Fileman Date/Time containing the actual time the med was administered."
^DD(53.79,.06,"DT")="3030221"
^DD(53.79,.07,0)="ACTION BY^P200'^VA(200,^0;7^Q"
^DD(53.79,.07,21,0)="^^1^1^2990731^^"
^DD(53.79,.07,21,1,0)="Pointer to the NEW PERSON file (#200).  Contains the user passing meds."
^DD(53.79,.07,"DT")="3010411"
^DD(53.79,.08,0)="ADMINISTRATION MEDICATION^RP50.7'^PS(50.7,^0;8^Q"
^DD(53.79,.08,1,0)="^.1"
^DD(53.79,.08,1,1,0)="53.79^AOIP^MUMPS"
^DD(53.79,.08,1,1,1)="I $P(^PSB(53.79,DA,0),U,6) S ^PSB(53.79,""AOIP"",$P(^PSB(53.79,DA,0),U),X,+$P(^PSB(53.79,DA,0),U,6),DA)="""""
^DD(53.79,.08,1,1,2)="I $P(^PSB(53.79,DA,0),U,6) K ^PSB(53.79,""AOIP"",$P(^PSB(53.79,DA,0),U),X,+$P(^PSB(53.79,DA,0),U,6),DA)"
^DD(53.79,.08,1,1,"%D",0)="^.101^6^6^3020430^^"
^DD(53.79,.08,1,1,"%D",1,0)="Creates a cross reference by patient for orderable items and"
^DD(53.79,.08,1,1,"%D",2,0)="administration date/time"
^DD(53.79,.08,1,1,"%D",3,0)=" "
^DD(53.79,.08,1,1,"%D",4,0)="  ^PSB(53.79,""AOIP"",dfn,orderable item,administration d/t,DA)="""""
^DD(53.79,.08,1,1,"%D",5,0)=" "
^DD(53.79,.08,1,1,"%D",6,0)="Same as Field ADMINISTRATION DATE/TIME (#.06)"
^DD(53.79,.08,1,1,"DT")="2990427"
^DD(53.79,.08,21,0)="^^2^2^2990805^"
^DD(53.79,.08,21,1,0)="Pointer to ORDERABLE ITEM (#50.7) containing the medication entered for"
^DD(53.79,.08,21,2,0)="the order."
^DD(53.79,.08,"DT")="2990427"
^DD(53.79,.09,0)="ACTION STATUS^RS^G:GIVEN;H:HELD;R:REFUSED;N:NOT GIVEN;RM:REMOVED;I:INFUSING;S:STOPPED;C:COMPLETED;M:MISSING DOSE;^0;9^Q"
^DD(53.79,.09,1,0)="^.1^^0"
^DD(53.79,.09,1,2,0)="53.79^AU09^MUMPS"
^DD(53.79,.09,1,2,1)="D AUDIT^PSBUTL(DA,53.79,.09,X,""S"")"
^DD(53.79,.09,1,2,2)="D AUDIT^PSBUTL(DA,53.79,.09,X,""K"")"
^DD(53.79,.09,1,2,"%D",0)="^.101^1^1^3020425^^^"
^DD(53.79,.09,1,2,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.79,.09,1,2,"DT")="2990409"
^DD(53.79,.09,21,0)="^.001^1^1^3020226^^^^"
^DD(53.79,.09,21,1,0)="Status of administration (H:Held,R:Refused,G:Given,N:NOT GIVEN)"
^DD(53.79,.09,"DT")="3020226"
^DD(53.79,.11,0)="ORDER REFERENCE NUMBER^RF^^.1;1^K:$L(X)>15!($L(X)<1)!'(X?.N1""U""!(X?.N1""V"")!(X?.N1""P"")) X"
^DD(53.79,.11,1,0)="^.1^^0"
^DD(53.79,.11,3)="Answer must be 1-15 characters in length."
^DD(53.79,.11,21,0)="^^2^2^2990805^"
^DD(53.79,.11,21,1,0)="Contains the IEN to the actual order in PHARMACY PATIENT (#55) followed by"
^DD(53.79,.11,21,2,0)="a U for Unit Dose or V for IV"
^DD(53.79,.11,"DT")="3010509"
^DD(53.79,.12,0)="ORDER SCHEDULE^S^C:CONTINUOUS;P:PRN;O:ONE-TIME;OC:ON-CALL;^.1;2^Q"
^DD(53.79,.12,1,0)="^.1"
^DD(53.79,.12,1,1,0)="53.79^APRN2^MUMPS"
^DD(53.79,.12,1,1,1)="S:X=""P""&($P(^PSB(53.79,DA,0),U,4)) ^PSB(53.79,""APRN"",$P(^PSB(53.79,DA,0),U,1),$P(^PSB(53.79,DA,0),U,4),DA)="""""
^DD(53.79,.12,1,1,2)="K:X=""P""&($P(^PSB(53.79,DA,0),U,4)) ^PSB(53.79,""APRN"",$P(^PSB(53.79,DA,0),U,1),$P(^PSB(53.79,DA,0),U,4),DA)"
^DD(53.79,.12,1,1,"%D",0)="^^6^6^2990731^"
^DD(53.79,.12,1,1,"%D",1,0)="Creates an index for all PRN administered medications for recall with the"
^DD(53.79,.12,1,1,"%D",2,0)="PRN effectiveness options."
^DD(53.79,.12,1,1,"%D",3,0)=" "
^DD(53.79,.12,1,1,"%D",4,0)="  ^PSB(53.79,""APRN"",dfn,entered date/time,DA)="""""
^DD(53.79,.12,1,1,"%D",5,0)=" "
^DD(53.79,.12,1,1,"%D",6,0)="  NOTE: This is entered date/time (#.04), not administered date/time."
^DD(53.79,.12,1,1,"DT")="2990427"
^DD(53.79,.12,21,0)="^^1^1^2990805^"
^DD(53.79,.12,21,1,0)="Contains the schedule type of the order."
^DD(53.79,.12,"DT")="2990427"
^DD(53.79,.13,0)="SCHEDULED ADMINISTRATION TIME^D^^.1;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.79,.13,1,0)="^.1"
^DD(53.79,.13,1,1,0)="53.79^AORD2^MUMPS"
^DD(53.79,.13,1,1,1)="I $P($G(^PSB(53.79,DA,.1)),U,1)]"""" S ^PSB(53.79,""AORD"",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,.1),U),X,DA)="""""
^DD(53.79,.13,1,1,2)="I $P($G(^PSB(53.79,DA,.1)),U,1)]"""" K ^PSB(53.79,""AORD"",$P(^PSB(53.79,DA,0),U),$P(^PSB(53.79,DA,.1),U),X,DA)"
^DD(53.79,.13,1,1,"%D",0)="^^4^4^2990731^"
^DD(53.79,.13,1,1,"%D",1,0)="Creates an index by patient for Order reference number and administration"
^DD(53.79,.13,1,1,"%D",2,0)="time."
^DD(53.79,.13,1,1,"%D",3,0)=" "
^DD(53.79,.13,1,1,"%D",4,0)="  ^PSB(53.79,""AORD"",dfn,order reference,administration date/time,DA)="""""
^DD(53.79,.13,1,1,"DT")="2990427"
^DD(53.79,.13,1,8,0)="^^TRIGGER^53.79^.14"
^DD(53.79,.13,1,8,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)=""C"") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.13,1,8,1.1) X ^DD(53.79,.13,1,8,1.4)"
^DD(53.79,.13,1,8,1.1)="S X=DIV X ^DD(53.79,.13,1,8,49.2) S X1=Y(2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(53.79,.13,1,8,1.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.13,1,8,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)=""C"") I X S X=DIV S Y(1)=$S($D(^PSB(53.79,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(53.79,.13,1,8,2.4)"
^DD(53.79,.13,1,8,2.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.1)):^(.1),1:""""),DIV=X S $P(^(.1),U,4)=DIV,DIH=53.79,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.13,1,8,49.2)="S Y(1)=$S($D(^PSB(53.79,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),Y(2)=X S X=DIV"
^DD(53.79,.13,1,8,"CREATE CONDITION")="I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)=""C"")"
^DD(53.79,.13,1,8,"CREATE VALUE")="MINUTES(#.06,#.13)"
^DD(53.79,.13,1,8,"DELETE CONDITION")="I $P(^PSB(53.79,DA,0),U,6)&($P($G(^(.1)),U,2)=""C"")"
^DD(53.79,.13,1,8,"DELETE VALUE")="@"
^DD(53.79,.13,1,8,"FIELD")="#.14"
^DD(53.79,.13,21,0)="^^2^2^2990805^"
^DD(53.79,.13,21,1,0)="If a continuous order this field will contain the actual administration"
^DD(53.79,.13,21,2,0)="date and time the medication was ordered for."
^DD(53.79,.13,"DT")="3010411"
^DD(53.79,.14,0)="ORDER ADMINISTRATION VARIANCE^NJ5,0^^.1;4^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(53.79,.14,1,0)="^.1"
^DD(53.79,.14,1,1,0)="53.79^AVARCHK^MUMPS"
^DD(53.79,.14,1,1,1)="D CHECK^PSBVAR(+$G(^PSB(53.79,DA,0)),X,DA)"
^DD(53.79,.14,1,1,2)="Q"
^DD(53.79,.14,1,1,"%D",0)="^^3^3^2990731^"
^DD(53.79,.14,1,1,"%D",1,0)="This field is triggered by the administration date/time.  If this field is"
^DD(53.79,.14,1,1,"%D",2,0)="greater than or less than the allowable administration window times for"
^DD(53.79,.14,1,1,"%D",3,0)="this division a variance will be filed."
^DD(53.79,.14,1,1,"DT")="2990414"
^DD(53.79,.14,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(53.79,.14,5,1,0)="53.79^.06^8"
^DD(53.79,.14,5,2,0)="53.79^.13^8"
^DD(53.79,.14,9)="^"
^DD(53.79,.14,21,0)="^.001^2^2^3011018^^^"
^DD(53.79,.14,21,1,0)="If a continuous order this field contains the minutes early (<1) or Late"
^DD(53.79,.14,21,2,0)="(>1) that the medication was given."
^DD(53.79,.14,"DT")="2990414"
^DD(53.79,.15,0)="ORDER DOSAGE^F^^.1;5^K:$L(X)>60!($L(X)<1) X"
^DD(53.79,.15,3)="Answer must be 1-60 characters in length."
^DD(53.79,.15,21,0)="^^1^1^2990731^^"
^DD(53.79,.15,21,1,0)="Free text field containing the dosage from the original order."
^DD(53.79,.15,"DT")="2990409"
^DD(53.79,.16,0)="INJECTION SITE^F^^.1;6^K:$L(X)>30!($L(X)<1) X"
^DD(53.79,.16,1,0)="^.1"
^DD(53.79,.16,1,1,0)="53.79^AU16^MUMPS"
^DD(53.79,.16,1,1,1)="D AUDIT^PSBUTL(DA,53.79,.16,X,""S"")"
^DD(53.79,.16,1,1,2)="D AUDIT^PSBUTL(DA,53.79,.16,X,""K"")"
^DD(53.79,.16,1,1,"%D",0)="^.101^1^1^3010504^^"
^DD(53.79,.16,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.79,.16,1,1,"DT")="2990409"
^DD(53.79,.16,3)="Answer must be 1-30 characters in length."
^DD(53.79,.16,21,0)="^^2^2^2990805^"
^DD(53.79,.16,21,1,0)="Free text field containing the injection site of medication that are"
^DD(53.79,.16,21,2,0)="injected."
^DD(53.79,.16,"DT")="2990409"
^DD(53.79,.21,0)="PRN REASON^F^^.2;1^K:$L(X)>30!($L(X)<1) X"
^DD(53.79,.21,1,0)="^.1"
^DD(53.79,.21,1,1,0)="53.79^AU21^MUMPS"
^DD(53.79,.21,1,1,1)="D AUDIT^PSBUTL(DA,53.79,.21,X,""S"")"
^DD(53.79,.21,1,1,2)="D AUDIT^PSBUTL(DA,53.79,.21,X,""K"")"
^DD(53.79,.21,1,1,"%D",0)="^^1^1^2990731^"
^DD(53.79,.21,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.79,.21,1,1,"DT")="2990409"
^DD(53.79,.21,3)="Answer must be 1-30 characters in length."
^DD(53.79,.21,21,0)="^^1^1^2990731^^"
^DD(53.79,.21,21,1,0)="Free text field containing the PRN reason for a PRN med being given."
^DD(53.79,.21,"DT")="2990422"
^DD(53.79,.22,0)="PRN EFFECTIVENESS^F^^.2;2^K:$L(X)>150!($L(X)<1) X"
^DD(53.79,.22,1,0)="^.1"
^DD(53.79,.22,1,1,0)="^^TRIGGER^53.79^.24"
^DD(53.79,.22,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(53.79,.22,1,1,1.1) X ^DD(53.79,.22,1,1,1.4)"
^DD(53.79,.22,1,1,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(53.79,.22,1,1,1.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""""),DIV=X S $P(^(.2),U,4)=DIV,DIH=53.79,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.22,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(53.79,.22,1,1,2.4)"
^DD(53.79,.22,1,1,2.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""""),DIV=X S $P(^(.2),U,4)=DIV,DIH=53.79,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.22,1,1,"CREATE VALUE")="NOW"
^DD(53.79,.22,1,1,"DELETE VALUE")="@"
^DD(53.79,.22,1,1,"DT")="2990322"
^DD(53.79,.22,1,1,"FIELD")="PRN EFFECTIVENESS ENTERED AT"
^DD(53.79,.22,1,2,0)="^^TRIGGER^53.79^.23"
^DD(53.79,.22,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(53.79,.22,1,2,1.4)"
^DD(53.79,.22,1,2,1.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""""),DIV=X S $P(^(.2),U,3)=DIV,DIH=53.79,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.22,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(53.79,.22,1,2,2.4)"
^DD(53.79,.22,1,2,2.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""""),DIV=X S $P(^(.2),U,3)=DIV,DIH=53.79,DIG=.23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.22,1,2,"CREATE VALUE")="S X=DUZ"
^DD(53.79,.22,1,2,"DELETE VALUE")="@"
^DD(53.79,.22,1,2,"DT")="2990322"
^DD(53.79,.22,1,2,"FIELD")="PRN EFFECTIVENESS ENTERED BY"
^DD(53.79,.22,1,3,0)="53.79^AU22^MUMPS"
^DD(53.79,.22,1,3,1)="D AUDIT^PSBUTL(DA,53.79,.22,X,""S"")"
^DD(53.79,.22,1,3,2)="D AUDIT^PSBUTL(DA,53.79,.22,X,""K"")"
^DD(53.79,.22,1,3,"%D",0)="^^1^1^2990731^"
^DD(53.79,.22,1,3,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.79,.22,1,3,"DT")="2990409"
^DD(53.79,.22,3)="Answer must be 1-150 characters in length."
^DD(53.79,.22,21,0)="^^1^1^2990731^^"
^DD(53.79,.22,21,1,0)="Free text field containing the effectiveness of a PRN medication."
^DD(53.79,.22,"DT")="2990422"
^DD(53.79,.23,0)="PRN EFFECTIVENESS ENTERED BY^P200'^VA(200,^.2;3^Q"
^DD(53.79,.23,5,1,0)="53.79^.22^2"
^DD(53.79,.23,21,0)="^^2^2^2990731^^"
^DD(53.79,.23,21,1,0)="Pointer to file NEW PERSON (#200) with the IEN of the user logging the PRN"
^DD(53.79,.23,21,2,0)="effectiveness."
^DD(53.79,.23,"DT")="2990313"
^DD(53.79,.24,0)="PRN EFFECTIVENESS ENTERED AT^D^^.2;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.79,.24,1,0)="^.1"
^DD(53.79,.24,1,1,0)="^^TRIGGER^53.79^.25"
^DD(53.79,.24,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(53.79,.24,1,1,1.1) X ^DD(53.79,.24,1,1,1.4)"
^DD(53.79,.24,1,1,1.1)="S X=DIV X ^DD(53.79,.24,1,1,49.2) S X1=Y(1) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(53.79,.24,1,1,1.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""""),DIV=X S $P(^(.2),U,5)=DIV,DIH=53.79,DIG=.25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.24,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSB(53.79,D0,.2)):^(.2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(53.79,.24,1,1,2.4)"
^DD(53.79,.24,1,1,2.4)="S DIH=$S($D(^PSB(53.79,DIV(0),.2)):^(.2),1:""""),DIV=X S $P(^(.2),U,5)=DIV,DIH=53.79,DIG=.25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(53.79,.24,1,1,49.2)="S Y(2)=$S($D(^PSB(53.79,D0,0)):^(0),1:"""") S X=DIV,Y(1)=X S X=$P(Y(2),U,6)"
^DD(53.79,.24,1,1,"CREATE VALUE")="MINUTES(#.24,#.06)"
^DD(53.79,.24,1,1,"DELETE VALUE")="@"
^DD(53.79,.24,1,1,"DT")="2990324"
^DD(53.79,.24,1,1,"FIELD")="PRN EFFECTIVENESS MINUTES"
^DD(53.79,.24,5,1,0)="53.79^.22^1"
^DD(53.79,.24,21,0)="^^1^1^2990731^^"
^DD(53.79,.24,21,1,0)="Date/time the PRN effectiveness was charted."
^DD(53.79,.24,"DT")="2990324"
^DD(53.79,.25,0)="PRN EFFECTIVENESS MINUTES^NJ5,0^^.2;5^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(53.79,.25,1,0)="^.1"
^DD(53.79,.25,1,1,0)="53.79^ACHKPRN^MUMPS"
^DD(53.79,.25,1,1,1)="D CHKPRN^PSBVAR(+$G(^PSB(53.79,DA,0)),X,DA)"
^DD(53.79,.25,1,1,2)="Q"
^DD(53.79,.25,1,1,"%D",0)="^^3^3^2990731^"
^DD(53.79,.25,1,1,"%D",1,0)="This field is triggered by the PRN EFFECTIVENESS DATE/TIME field. If this"
^DD(53.79,.25,1,1,"%D",2,0)="field is greater than the allowable PRN EFFECTIVENESS window times for"
^DD(53.79,.25,1,1,"%D",3,0)="this division a variance will be filed."
^DD(53.79,.25,1,1,"DT")="2990428"
^DD(53.79,.25,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(53.79,.25,5,1,0)="53.79^.24^1"
^DD(53.79,.25,9)="^"
^DD(53.79,.25,21,0)="^^2^2^2990731^^"
^DD(53.79,.25,21,1,0)="Number of minutes from administration to the charting of PRN"
^DD(53.79,.25,21,2,0)="effectiveness."
^DD(53.79,.25,"DT")="2990428"
^DD(53.79,.26,0)="IV UNIQUE ID^F^^0;10^K:$L(X)>30!($L(X)<3) X"
^DD(53.79,.26,1,0)="^.1^^0"
^DD(53.79,.26,3)="Answer must be 3-30 characters in length"
^DD(53.79,.26,21,0)="^^2^2^3010919^"
^DD(53.79,.26,21,1,0)="This is the unique ID number of an IV bag, which is generated from"
^DD(53.79,.26,21,2,0)="Inpatient Medications."
^DD(53.79,.26,"DT")="3010919"
^DD(53.79,.27,0)="PRN REASON FLAG^NJ1,0^^0;12^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1.N) X"
^DD(53.79,.27,3)="Type a number between 0 and 1, 0 Decimal Digits"
^DD(53.79,.27,21,0)="^^3^3^3031104^^"
^DD(53.79,.27,21,1,0)="The PRN REASON FLAG field is to indicate whether the BCMA Med Log file"
^DD(53.79,.27,21,2,0)="entry is PRN activity and has an associated PRN REASON which has been set "
^DD(53.79,.27,21,3,0)="to require BCMA user attention or action."
^DD(53.79,.27,"DT")="3031104"
^DD(53.79,.3,0)="COMMENT^53.793^^.3;0"
^DD(53.79,.3,21,0)="^^1^1^2990805^"
^DD(53.79,.3,21,1,0)="Multiple containing the comments entered for each med pass."
^DD(53.79,.35,0)="INFUSION RATE^F^^0;11^K:$L(X)>47!($L(X)<1) X"
^DD(53.79,.35,3)="Answer must be 1-47 characters in length."
^DD(53.79,.35,21,0)="^.001^2^2^3030225^^"
^DD(53.79,.35,21,1,0)="This is the infusion rate for an IV bag, which is passed by Inpatient"
^DD(53.79,.35,21,2,0)="Medications."
^DD(53.79,.35,"DT")="3030225"
^DD(53.79,.5,0)="DISPENSE DRUG^53.795P^^.5;0"
^DD(53.79,.6,0)="ADDITIVES^53.796P^^.6;0"
^DD(53.79,.7,0)="SOLUTIONS^53.797P^^.7;0"
^DD(53.79,.9,0)="AUDIT LOG^53.799D^^.9;0"
^DD(53.79,"B","ACTION BY",.07)=""
^DD(53.79,"B","ACTION DATE/TIME",.06)=""
^DD(53.79,"B","ACTION STATUS",.09)=""
^DD(53.79,"B","ADDITIVES",.6)=""
^DD(53.79,"B","ADMINISTRATION MEDICATION",.08)=""
^DD(53.79,"B","AUDIT LOG",.9)=""
^DD(53.79,"B","COMMENT",.3)=""
^DD(53.79,"B","DISPENSE DRUG",.5)=""
^DD(53.79,"B","ENTERED BY",.05)=""
^DD(53.79,"B","ENTERED DATE/TIME",.04)=""
^DD(53.79,"B","INFUSION RATE",.35)=""
^DD(53.79,"B","INJECTION SITE",.16)=""
^DD(53.79,"B","IV UNIQUE ID",.26)=""
^DD(53.79,"B","ORDER ADMINISTRATION VARIANCE",.14)=""
^DD(53.79,"B","ORDER DOSAGE",.15)=""
^DD(53.79,"B","ORDER REFERENCE NUMBER",.11)=""
^DD(53.79,"B","ORDER SCHEDULE",.12)=""
^DD(53.79,"B","PATIENT DIVISION",.03)=""
^DD(53.79,"B","PATIENT LOCATION",.02)=""
^DD(53.79,"B","PATIENT NAME",.01)=""
^DD(53.79,"B","PRN EFFECTIVENESS",.22)=""
^DD(53.79,"B","PRN EFFECTIVENESS ENTERED AT",.24)=""
^DD(53.79,"B","PRN EFFECTIVENESS ENTERED BY",.23)=""
^DD(53.79,"B","PRN EFFECTIVENESS MINUTES",.25)=""
^DD(53.79,"B","PRN REASON",.21)=""
^DD(53.79,"B","PRN REASON FLAG",.27)=""
^DD(53.79,"B","SCHEDULED ADMINISTRATION TIME",.13)=""
^DD(53.79,"B","SOLUTIONS",.7)=""
^DD(53.79,"GL",0,1,.01)=""
^DD(53.79,"GL",0,2,.02)=""
^DD(53.79,"GL",0,3,.03)=""
^DD(53.79,"GL",0,4,.04)=""
^DD(53.79,"GL",0,5,.05)=""
^DD(53.79,"GL",0,6,.06)=""
^DD(53.79,"GL",0,7,.07)=""
^DD(53.79,"GL",0,8,.08)=""
^DD(53.79,"GL",0,9,.09)=""
^DD(53.79,"GL",0,10,.26)=""
^DD(53.79,"GL",0,11,.35)=""
^DD(53.79,"GL",0,12,.27)=""
^DD(53.79,"GL",.1,1,.11)=""
^DD(53.79,"GL",.1,2,.12)=""
^DD(53.79,"GL",.1,3,.13)=""
^DD(53.79,"GL",.1,4,.14)=""
^DD(53.79,"GL",.1,5,.15)=""
^DD(53.79,"GL",.1,6,.16)=""
^DD(53.79,"GL",.2,1,.21)=""
^DD(53.79,"GL",.2,2,.22)=""
^DD(53.79,"GL",.2,3,.23)=""
^DD(53.79,"GL",.2,4,.24)=""
^DD(53.79,"GL",.2,5,.25)=""
^DD(53.79,"GL",.3,0,.3)=""
^DD(53.79,"GL",.5,0,.5)=""
^DD(53.79,"GL",.6,0,.6)=""
^DD(53.79,"GL",.7,0,.7)=""
^DD(53.79,"GL",.9,0,.9)=""
^DD(53.79,"IX",.01)=""
^DD(53.79,"IX",.04)=""
^DD(53.79,"IX",.06)=""
^DD(53.79,"IX",.08)=""
^DD(53.79,"IX",.09)=""
^DD(53.79,"IX",.12)=""
^DD(53.79,"IX",.13)=""
^DD(53.79,"IX",.14)=""
^DD(53.79,"IX",.16)=""
^DD(53.79,"IX",.21)=""
^DD(53.79,"IX",.22)=""
^DD(53.79,"IX",.24)=""
^DD(53.79,"IX",.25)=""
^DD(53.79,"RQ",.01)=""
^DD(53.79,"RQ",.03)=""
^DD(53.79,"RQ",.04)=""
^DD(53.79,"RQ",.05)=""
^DD(53.79,"RQ",.06)=""
^DD(53.79,"RQ",.08)=""
^DD(53.79,"RQ",.09)=""
^DD(53.79,"RQ",.11)=""
^DD(53.79,"SB",53.793,.3)=""
^DD(53.79,"SB",53.795,.5)=""
^DD(53.79,"SB",53.796,.6)=""
^DD(53.79,"SB",53.797,.7)=""
^DD(53.79,"SB",53.799,.9)=""
^DD(53.793,0)="COMMENT SUB-FIELD^^.03^3"
^DD(53.793,0,"DT")="2990319"
^DD(53.793,0,"NM","COMMENT")=""
^DD(53.793,0,"UP")="53.79"
^DD(53.793,.01,0)="COMMENT^MF^^0;1^K:$L(X)>150!($L(X)<1) X"
^DD(53.793,.01,1,0)="^.1^^0"
^DD(53.793,.01,3)="Answer must be 1-150 characters in length."
^DD(53.793,.01,21,0)="^^1^1^2990731^"
^DD(53.793,.01,21,1,0)="Text of comment entered by the user."
^DD(53.793,.01,"DT")="2990323"
^DD(53.793,.02,0)="ENTERED BY^P200'^VA(200,^0;2^Q"
^DD(53.793,.02,21,0)="^^1^1^2990731^"
^DD(53.793,.02,21,1,0)="Pointer to the NEW PERSON file (#200) of the user making the comment."
^DD(53.793,.02,"DT")="2990319"
^DD(53.793,.03,0)="ENTERED DATE/TIME^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(53.793,.03,21,0)="^^1^1^2990731^"
^DD(53.793,.03,21,1,0)="Date/Time the comment was filed against this entry."
^DD(53.793,.03,"DT")="2990319"
^DD(53.793,"B","COMMENT",.01)=""
^DD(53.793,"B","ENTERED BY",.02)=""
^DD(53.793,"B","ENTERED DATE/TIME",.03)=""
^DD(53.793,"GL",0,1,.01)=""
^DD(53.793,"GL",0,2,.02)=""
^DD(53.793,"GL",0,3,.03)=""
^DD(53.795,0)="DISPENSE DRUG SUB-FIELD^^.04^4"
^DD(53.795,0,"DT")="3020605"
^DD(53.795,0,"IX","AU303",53.795,.03)=""
^DD(53.795,0,"IX","AU304",53.795,.04)=""
^DD(53.795,0,"IX","B",53.795,.01)=""
^DD(53.795,0,"NM","DISPENSE DRUG")=""
^DD(53.795,0,"UP")="53.79"
^DD(53.795,.01,0)="DISPENSE DRUG^MP50'^PSDRUG(^0;1^Q"
^DD(53.795,.01,1,0)="^.1"
^DD(53.795,.01,1,1,0)="53.795^B"
^DD(53.795,.01,1,1,1)="S ^PSB(53.79,DA(1),.5,""B"",$E(X,1,30),DA)="""""
^DD(53.795,.01,1,1,2)="K ^PSB(53.79,DA(1),.5,""B"",$E(X,1,30),DA)"
^DD(53.795,.01,21,0)="^.001^2^2^3020322^^^"
^DD(53.795,.01,21,1,0)="Pointer to the drug file.  Contains the actual medication scanned for this"
^DD(53.795,.01,21,2,0)="entry."
^DD(53.795,.01,"AUDIT")=""
^DD(53.795,.01,"DT")="2990313"
^DD(53.795,.02,0)="DOSES ORDERED^NJ7,4^^0;2^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""5N.N) X"
^DD(53.795,.02,3)="Type a Number between 0 and 50, 4 Decimal Digits"
^DD(53.795,.02,21,0)="^.001^1^1^3020605^^^^"
^DD(53.795,.02,21,1,0)="Number of units from the PHARMACY PATIENT file (#55)"
^DD(53.795,.02,"DT")="3020605"
^DD(53.795,.03,0)="DOSES GIVEN^NJ7,4^^0;3^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""5N.N) X"
^DD(53.795,.03,1,0)="^.1"
^DD(53.795,.03,1,1,0)="53.795^AU303^MUMPS"
^DD(53.795,.03,1,1,1)="D AUDIT^PSBUTL(DA(1),53.795,.03,X,""S"")"
^DD(53.795,.03,1,1,2)="D AUDIT^PSBUTL(DA(1),53.795,.03,X,""K"")"
^DD(53.795,.03,1,1,"%D",0)="^^1^1^2990731^"
^DD(53.795,.03,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.795,.03,1,1,"DT")="2990409"
^DD(53.795,.03,3)="Type a Number between 0 and 50, 4 Decimal Digits"
^DD(53.795,.03,21,0)="^.001^1^1^3020605^^^^"
^DD(53.795,.03,21,1,0)="Actual number of units given."
^DD(53.795,.03,"DT")="3020605"
^DD(53.795,.04,0)="UNIT OF ADMINISTRATION^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(53.795,.04,1,0)="^.1^^-1"
^DD(53.795,.04,1,1,0)="53.795^AU304^MUMPS"
^DD(53.795,.04,1,1,1)="D AUDIT^PSBUTL(DA(1),53.795,.04,X,""S"")"
^DD(53.795,.04,1,1,2)="D AUDIT^PSBUTL(DA(1),53.795,.04,X,""K"")"
^DD(53.795,.04,1,1,"%D",0)="^^1^1^2990731^"
^DD(53.795,.04,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.795,.04,1,1,"DT")="2990409"
^DD(53.795,.04,3)="Answer must be 1-40 characters in length."
^DD(53.795,.04,21,0)="^^1^1^2990731^"
^DD(53.795,.04,21,1,0)="Unit of administration (i.e. TABLET, ML, VIAL)"
^DD(53.795,.04,"DT")="3030313"
^DD(53.795,"B","DISPENSE DRUG",.01)=""
^DD(53.795,"B","DOSES GIVEN",.03)=""
^DD(53.795,"B","DOSES ORDERED",.02)=""
^DD(53.795,"B","UNIT OF ADMINISTRATION",.04)=""
^DD(53.795,"GL",0,1,.01)=""
^DD(53.795,"GL",0,2,.02)=""
^DD(53.795,"GL",0,3,.03)=""
^DD(53.795,"GL",0,4,.04)=""
^DD(53.795,"IX",.01)=""
^DD(53.795,"IX",.03)=""
^DD(53.795,"IX",.04)=""
^DD(53.796,0)="ADDITIVES SUB-FIELD^^.04^4"
^DD(53.796,0,"DT")="2990409"
^DD(53.796,0,"IX","AU603",53.796,.03)=""
^DD(53.796,0,"IX","AU604",53.796,.04)=""
^DD(53.796,0,"IX","B",53.796,.01)=""
^DD(53.796,0,"NM","ADDITIVES")=""
^DD(53.796,0,"UP")="53.79"
^DD(53.796,.01,0)="ADDITIVES^MP52.6'^PS(52.6,^0;1^Q"
^DD(53.796,.01,1,0)="^.1^^-1"
^DD(53.796,.01,1,1,0)="53.796^B"
^DD(53.796,.01,1,1,1)="S ^PSB(53.79,DA(1),.6,""B"",$E(X,1,30),DA)="""""
^DD(53.796,.01,1,1,2)="K ^PSB(53.79,DA(1),.6,""B"",$E(X,1,30),DA)"
^DD(53.796,.01,1,3,0)="53.79^E^MUMPS"
^DD(53.796,.01,1,3,1)="I $P(^PSB(53.79,DA,0),U,6) S ^PSB(53.79,""AOIP3"",$P(^PSB(53.79,DA(1),0),U),DA(1),X)="""""
^DD(53.796,.01,1,3,2)="I $P(^PSB(53.79,DA,0),U,6) K ^PSB(53.79,""AOIP3"",$P(^PSB(53.79,DA(1),0),U),DA(1),X)"
^DD(53.796,.01,1,3,"%D",0)="^.101^2^2^3031209^^^^"
^DD(53.796,.01,1,3,"%D",1,0)="CROSS REFERENCE for multiple ADDITIVES."
^DD(53.796,.01,1,3,"%D",2,0)="PSB(53.79,""AOIP3"",DFN,ORDERABLE IEN,ADDITIVE,)"
^DD(53.796,.01,1,3,"DT")="3030421"
^DD(53.796,.01,21,0)="^^2^2^2990731^"
^DD(53.796,.01,21,1,0)="Pointer to the additives file.  Filled in automatically with the ordered"
^DD(53.796,.01,21,2,0)="additives when marked as given."
^DD(53.796,.01,"DT")="3030520"
^DD(53.796,.02,0)="DOSE ORDERED^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(53.796,.02,3)="Answer must be 1-30 characters in length."
^DD(53.796,.02,21,0)="^^1^1^2990731^"
^DD(53.796,.02,21,1,0)="Dosage from the actual IV order."
^DD(53.796,.02,"DT")="2990409"
^DD(53.796,.03,0)="DOSE GIVEN^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(53.796,.03,1,0)="^.1"
^DD(53.796,.03,1,1,0)="53.796^AU603^MUMPS"
^DD(53.796,.03,1,1,1)="D AUDIT^PSBUTL(DA(1),53.796,.03,X,""S"")"
^DD(53.796,.03,1,1,2)="D AUDIT^PSBUTL(DA(1),53.796,.03,X,""K"")"
^DD(53.796,.03,1,1,"%D",0)="^^1^1^2990731^"
^DD(53.796,.03,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.796,.03,1,1,"DT")="2990409"
^DD(53.796,.03,3)="Answer must be 1-30 characters in length."
^DD(53.796,.03,21,0)="^^1^1^2990731^"
^DD(53.796,.03,21,1,0)="Actual dosing performed by administration clinician."
^DD(53.796,.03,"DT")="2990409"
^DD(53.796,.04,0)="UNIT OF ADMINISTRATION^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(53.796,.04,1,0)="^.1"
^DD(53.796,.04,1,1,0)="53.796^AU604^MUMPS"
^DD(53.796,.04,1,1,1)="D AUDIT^PSBUTL(DA(1),53.796,.04,X,""S"")"
^DD(53.796,.04,1,1,2)="D AUDIT^PSBUTL(DA(1),53.796,.04,X,""K"")"
^DD(53.796,.04,1,1,"%D",0)="^^1^1^2990731^"
^DD(53.796,.04,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.796,.04,1,1,"DT")="2990409"
^DD(53.796,.04,3)="Answer must be 1-20 characters in length."
^DD(53.796,.04,21,0)="^.001^1^1^3010531^^"
^DD(53.796,.04,21,1,0)="Unit of administration (i.e. ML)"
^DD(53.796,.04,"DT")="2990409"
^DD(53.796,"B","ADDITIVES",.01)=""
^DD(53.796,"B","DOSE GIVEN",.03)=""
^DD(53.796,"B","DOSE ORDERED",.02)=""
^DD(53.796,"B","UNIT OF ADMINISTRATION",.04)=""
^DD(53.796,"GL",0,1,.01)=""
^DD(53.796,"GL",0,2,.02)=""
^DD(53.796,"GL",0,3,.03)=""
^DD(53.796,"GL",0,4,.04)=""
^DD(53.796,"IX",.01)=""
^DD(53.796,"IX",.03)=""
^DD(53.796,"IX",.04)=""
^DD(53.797,0)="SOLUTIONS SUB-FIELD^^.04^4"
^DD(53.797,0,"DT")="2990409"
^DD(53.797,0,"IX","AU703",53.797,.03)=""
^DD(53.797,0,"IX","AU704",53.797,.04)=""
^DD(53.797,0,"IX","B",53.797,.01)=""
^DD(53.797,0,"NM","SOLUTIONS")=""
^DD(53.797,0,"UP")="53.79"
^DD(53.797,.01,0)="SOLUTIONS^MP52.7'^PS(52.7,^0;1^Q"
^DD(53.797,.01,1,0)="^.1"
^DD(53.797,.01,1,1,0)="53.797^B"
^DD(53.797,.01,1,1,1)="S ^PSB(53.79,DA(1),.7,""B"",$E(X,1,30),DA)="""""
^DD(53.797,.01,1,1,2)="K ^PSB(53.79,DA(1),.7,""B"",$E(X,1,30),DA)"
^DD(53.797,.01,1,2,0)="53.79^F^MUMPS"
^DD(53.797,.01,1,2,1)="I $P(^PSB(53.79,DA,0),U,6) S ^PSB(53.79,""AOIP4"",$P(^PSB(53.79,DA(1),0),U),DA(1),X)="""""
^DD(53.797,.01,1,2,2)="I $P(^PSB(53.79,DA,0),U,6) K ^PSB(53.79,""AOIP4"",$P(^PSB(53.79,DA(1),0),U),DA(1),X)"
^DD(53.797,.01,1,2,"%D",0)="^.101^2^2^3031209^^^^"
^DD(53.797,.01,1,2,"%D",1,0)="CROSS REFERENCE for multiple SOLUTIONS."
^DD(53.797,.01,1,2,"%D",2,0)="PSB(53.79,""AOIP4"",DFN,ORDERABLE IEN,SOLUTION)"
^DD(53.797,.01,1,2,"DT")="3030516"
^DD(53.797,.01,21,0)="^.001^1^1^3020426^^"
^DD(53.797,.01,21,1,0)="Pointer to the SOLUTIONS file."
^DD(53.797,.01,"DT")="3030516"
^DD(53.797,.02,0)="DOSE ORDERED^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(53.797,.02,3)="Answer must be 1-30 characters in length."
^DD(53.797,.02,21,0)="^^1^1^2990731^"
^DD(53.797,.02,21,1,0)="Dosage ordered from the IV Order."
^DD(53.797,.02,"DT")="2990409"
^DD(53.797,.03,0)="DOSES GIVEN^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(53.797,.03,1,0)="^.1"
^DD(53.797,.03,1,1,0)="53.797^AU703^MUMPS"
^DD(53.797,.03,1,1,1)="D AUDIT^PSBUTL(DA(1),53.797,.03,X,""S"")"
^DD(53.797,.03,1,1,2)="D AUDIT^PSBUTL(DA(1),53.797,.03,X,""K"")"
^DD(53.797,.03,1,1,"%D",0)="^^1^1^2990731^"
^DD(53.797,.03,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.797,.03,1,1,"DT")="2990409"
^DD(53.797,.03,3)="Answer must be 1-30 characters in length."
^DD(53.797,.03,21,0)="^^1^1^2990805^"
^DD(53.797,.03,21,1,0)="Actual amount of medication given."
^DD(53.797,.03,"DT")="2990409"
^DD(53.797,.04,0)="UNIT OF ADMINISTRATION^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(53.797,.04,1,0)="^.1"
^DD(53.797,.04,1,1,0)="53.797^AU704^MUMPS"
^DD(53.797,.04,1,1,1)="D AUDIT^PSBUTL(DA(1),53.797,.04,X,""S"")"
^DD(53.797,.04,1,1,2)="D AUDIT^PSBUTL(DA(1),53.797,.04,X,""K"")"
^DD(53.797,.04,1,1,"%D",0)="^^1^1^2990731^"
^DD(53.797,.04,1,1,"%D",1,0)="Creates an entry in this items audit log whenever changed or deleted."
^DD(53.797,.04,1,1,"DT")="2990409"
^DD(53.797,.04,3)="Answer must be 1-20 characters in length."
^DD(53.797,.04,21,0)="^^1^1^2990731^"
^DD(53.797,.04,21,1,0)="Unit of administration (i.e. ML)"
^DD(53.797,.04,"DT")="2990409"
^DD(53.797,"B","DOSE ORDERED",.02)=""
^DD(53.797,"B","DOSES GIVEN",.03)=""
^DD(53.797,"B","SOLUTIONS",.01)=""
^DD(53.797,"B","UNIT OF ADMINISTRATION",.04)=""
^DD(53.797,"GL",0,1,.01)=""
^DD(53.797,"GL",0,2,.02)=""
^DD(53.797,"GL",0,3,.03)=""
^DD(53.797,"GL",0,4,.04)=""
^DD(53.797,"IX",.01)=""
^DD(53.797,"IX",.03)=""
^DD(53.797,"IX",.04)=""
^DD(53.799,0)="AUDIT LOG SUB-FIELD^^.03^3"
^DD(53.799,0,"DT")="2990320"
^DD(53.799,0,"IX","B",53.799,.01)=""
^DD(53.799,0,"NM","AUDIT LOG")=""
^DD(53.799,0,"UP")="53.79"
^DD(53.799,.01,0)="AUDIT LOG^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(53.799,.01,1,0)="^.1"
^DD(53.799,.01,1,1,0)="53.799^B"
^DD(53.799,.01,1,1,1)="S ^PSB(53.79,DA(1),.9,""B"",$E(X,1,30),DA)="""""
^DD(53.799,.01,1,1,2)="K ^PSB(53.79,DA(1),.9,""B"",$E(X,1,30),DA)"
^DD(53.799,.01,21,0)="^^1^1^2990731^"
^DD(53.799,.01,21,1,0)="Date/time of audit being filed."
^DD(53.799,.01,"DT")="2990320"
^DD(53.799,.02,0)="USER^P200'^VA(200,^0;2^Q"
^DD(53.799,.02,21,0)="^^1^1^2990731^^"
^DD(53.799,.02,21,1,0)="Pointer to the user making the change."
^DD(53.799,.02,"DT")="2990320"
^DD(53.799,.03,0)="TEXT^F^^0;3^K:$L(X)>150!($L(X)<1) X"
^DD(53.799,.03,3)="Answer must be 1-150 characters in length."
^DD(53.799,.03,21,0)="^^1^1^2990731^^"
^DD(53.799,.03,21,1,0)="Description of the change made."
^DD(53.799,.03,"DT")="2990320"
^DD(53.799,"B","AUDIT LOG",.01)=""
^DD(53.799,"B","TEXT",.03)=""
^DD(53.799,"B","USER",.02)=""
^DD(53.799,"GL",0,1,.01)=""
^DD(53.799,"GL",0,2,.02)=""
^DD(53.799,"GL",0,3,.03)=""
^DD(53.799,"IX",.01)=""
^DD(54,0)="FIELD^NL^3^5"
^DD(54,0,"DDA")="Y"
^DD(54,0,"IX","B",54,.01)=""
^DD(54,0,"NM","RX CONSULT")=""
^DD(54,0,"VR")="1.0"
^DD(54,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(54,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(54,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 50"
^DD(54,.001,21,0)="^^1^1^2920127^"
^DD(54,.001,21,1,0)="This field contains the internal number within the file."
^DD(54,.01,0)="NAME^RF^^0;1^K:$L(X)>25!($L(X)<1)!'(X'?1P.E) X"
^DD(54,.01,1,0)="^.1"
^DD(54,.01,1,1,0)="54^B"
^DD(54,.01,1,1,1)="S ^PS(54,""B"",$E(X,1,30),DA)="""""
^DD(54,.01,1,1,2)="K ^PS(54,""B"",$E(X,1,30),DA)"
^DD(54,.01,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(54,.01,21,0)="^^2^2^2920127^^^"
^DD(54,.01,21,1,0)="Enter a brief description of any medical warnings associated"
^DD(54,.01,21,2,0)="with a particular drug."
^DD(54,.01,"DT")="2950620"
^DD(54,1,0)="TEXT^54.1A^^1;0"
^DD(54,1,21,0)="^^2^2^2930104^^^^"
^DD(54,1,21,1,0)="Respond to this field by entering an expanded description"
^DD(54,1,21,2,0)="of any medical warnings listed in the preceeding field."
^DD(54,2,0)="WARNING MAPPING^NJ6,0^^2;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(54,2,3)="Type a number between 0 and 999999, 0 Decimal Digits"
^DD(54,2,21,0)="^^2^2^3040512^^"
^DD(54,2,21,1,0)="This field contains the warning number from the new data source which "
^DD(54,2,21,2,0)="corresponds with this warning information."
^DD(54,2,23,0)="^^6^6^3040512^"
^DD(54,2,23,1,0)="This field contains the warning label number from the new WARNING "
^DD(54,2,23,2,0)="LABEL-ENGLISH file (#50.625) or WARNING LABEL-SPANISH file (#50.626) which"
^DD(54,2,23,3,0)="corresponds to the current RX CONSULT file (#54) entry.  Zero in this"
^DD(54,2,23,4,0)="field indicates the site does not wish to map this RX CONSULT file (#54)"
^DD(54,2,23,5,0)="entry to a new warning label. A null value in this field indicates there"
^DD(54,2,23,6,0)="is no corresponding warning with the new warning labels. "
^DD(54,2,"DT")="3040527"
^DD(54,3,0)="SPANISH TRANSLATION^F^^3;1^K:$L(X)>250!($L(X)<1) X"
^DD(54,3,3)="Answer must be 1-250 characters in length"
^DD(54,3,21,0)="^^3^3^3040522^"
^DD(54,3,21,1,0)="This field contains the Spanish translation for the old RX CONSULT file"
^DD(54,3,21,2,0)="warning label. When possible, warnings from the new WARNING LABEL-SPANISH"
^DD(54,3,21,3,0)="file should be used instead of adding new entries to this file."
^DD(54,3,23,0)="^^8^8^3040522^"
^DD(54,3,23,1,0)="This field contains the Spanish translation for the old RX CONSULT file"
^DD(54,3,23,2,0)="(#54) warning label. It will be initially populated only for the ""Do not"
^DD(54,3,23,3,0)="transfer"" warning label number 20. When possible, the new warning label"
^DD(54,3,23,4,0)="source should be used and the Spanish translation is available from the"
^DD(54,3,23,5,0)="WARNING LABEL-SPANISH file (#50.626). This file will be used when a"
^DD(54,3,23,6,0)="patient has a PMI language preference of Spanish and when the PHARMACY"
^DD(54,3,23,7,0)="SYSTEM file (#59.7) WARNING LABEL SOURCE field (#16) is set to ""N"" for"
^DD(54,3,23,8,0)="""NEW"".  "
^DD(54,3,"DT")="3040527"
^DD(54,"B","NAME",.01)=""
^DD(54,"B","NUMBER",.001)=""
^DD(54,"B","SPANISH TRANSLATION",3)=""
^DD(54,"B","TEXT",1)=""
^DD(54,"B","WARNING MAPPING",2)=""
^DD(54,"GL",0,1,.01)=""
^DD(54,"GL",1,0,1)=""
^DD(54,"GL",2,1,2)=""
^DD(54,"GL",3,1,3)=""
^DD(54,"IX",.01)=""
^DD(54,"RQ",.01)=""
^DD(54,"SB",54.1,1)=""
^DD(54.1,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(54.1,0,"NM","TEXT")=""
^DD(54.1,0,"UP")="54"
^DD(54.1,.01,0)="TEXT^MF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(54.1,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(54.1,.01,21,0)="^^2^2^2930104^"
^DD(54.1,.01,21,1,0)="This field is used to indicate an expaned description of any medical"
^DD(54.1,.01,21,2,0)="warnings."
^DD(54.1,.01,"DT")="2950620"
^DD(54.1,"B","TEXT",.01)=""
^DD(54.1,"GL",0,1,.01)=""
^DD(55,0)="FIELD^NL^108^51"
^DD(55,0,"DDA")="Y"
^DD(55,0,"DIK")="PSSJXR"
^DD(55,0,"DIKOLD")="PSSJXR"
^DD(55,0,"DT")="2971113"
^DD(55,0,"IX","ADC",55.01,100)=""
^DD(55,0,"IX","ADCDT",55.05,11)=""
^DD(55,0,"IX","ADIA",55,.04)=""
^DD(55,0,"IX","AIT",55.01,.03)=""
^DD(55,0,"IX","AIV",55.01,.03)=""
^DD(55,0,"IX","AIVS",55.01,.02)=""
^DD(55,0,"IX","ALCNVRT",55,.01)=""
^DD(55,0,"IX","ANIV",55.01,143)=""
^DD(55,0,"IX","ANV",55.06,51)=""
^DD(55,0,"IX","ANV2",55.06,.01)=""
^DD(55,0,"IX","ANVO",55.01,100)=""
^DD(55,0,"IX","APIV",55.01,142)=""
^DD(55,0,"IX","APV",55.06,50)=""
^DD(55,0,"IX","APV2",55.06,.01)=""
^DD(55,0,"IX","AQ",55.01,142)=""
^DD(55,0,"IX","ASAND",55,53)=""
^DD(55,0,"IX","ASAND1",55,53)=""
^DD(55,0,"IX","AUD",55.06,34)=""
^DD(55,0,"IX","AUDAPM",55,.01)=""
^DD(55,0,"IX","AUDDD",55,.01)=""
^DD(55,0,"IX","AUDDD",55.06,64)=""
^DD(55,0,"IX","AUDS",55.06,10)=""
^DD(55,0,"IX","AUE",55.06,.01)=""
^DD(55,0,"IX","B",55,.01)=""
^DD(55,0,"NM","PHARMACY PATIENT")=""
^DD(55,0,"PT",59.7,20.8)=""
^DD(55,0,"PT",59.7,30.2)=""
^DD(55,0,"VR")="1.0"
^DD(55,0,"VRPK")="PSS"
^DD(55,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55,.001,3)="Type a whole number between 0 and 9999999."
^DD(55,.001,20,0)="^.3LA^1^1"
^DD(55,.001,20,1,0)="PS"
^DD(55,.001,21,0)="^^1^1^2910306^^"
^DD(55,.001,21,1,0)="  This allows users to select entries by the internal number."
^DD(55,.001,"DT")="2841030"
^DD(55,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(55,.01,1,0)="^.1^^-1"
^DD(55,.01,1,1,0)="55^B"
^DD(55,.01,1,1,1)="S ^PS(55,""B"",$E(X,1,30),DA)="""""
^DD(55,.01,1,1,2)="K ^PS(55,""B"",$E(X,1,30),DA)"
^DD(55,.01,1,2,0)="55^ALCNVRT^MUMPS"
^DD(55,.01,1,2,1)="I '$D(PSGINITF) S ^PS(55,""ALCNVRT"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(55,.01,1,2,2)="Q"
^DD(55,.01,1,2,"%D",0)="^^3^3^2970926^^^^"
^DD(55,.01,1,2,"%D",1,0)="Used by the Inpatient post-inits to determine if a conversion needs to be"
^DD(55,.01,1,2,"%D",2,0)="run on this file."
^DD(55,.01,1,2,"%D",3,0)="In the form of: ^PS(55,""ALCNVRT"")"
^DD(55,.01,1,3,0)="55^AUDDD^MUMPS"
^DD(55,.01,1,3,1)="I '$D(PSGINITF) S ^PS(55,""AUDDD"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(55,.01,1,3,2)="Q"
^DD(55,.01,1,3,"%D",0)="^^3^3^2970926^^^"
^DD(55,.01,1,3,"%D",1,0)="Used by the Inpatient post-inits to determine if a conversion needs to be"
^DD(55,.01,1,3,"%D",2,0)="run on this file."
^DD(55,.01,1,3,"%D",3,0)="In the form of: ^PS(55,""AUDDD"")"
^DD(55,.01,1,4,0)="55^AUDAPM^MUMPS"
^DD(55,.01,1,4,1)="I '$D(PSGINITF) S ^PS(55,""AUDAPM"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(55,.01,1,4,2)="Q"
^DD(55,.01,1,4,"%D",0)="^^3^3^2970926^^"
^DD(55,.01,1,4,"%D",1,0)="Used by the Inpatient post-inits to determine if a conversion needs to be"
^DD(55,.01,1,4,"%D",2,0)="run on this file."
^DD(55,.01,1,4,"%D",3,0)="In the form of: ^PS(55,""AUDAPM"")"
^DD(55,.01,3)=""
^DD(55,.01,20,0)="^.3LA^1^1"
^DD(55,.01,20,1,0)="PS"
^DD(55,.01,21,0)="^^1^1^2940803^^^^"
^DD(55,.01,21,1,0)="  This is the name of a patient that has some type of pharmacy order."
^DD(55,.01,"DT")="2890308"
^DD(55,.02,0)="CAP^S^1:NON-SAFETY;0:SAFETY;^0;2^Q"
^DD(55,.02,3)="Enter 1 if the patient should be issued non-safety caps or 0 if safety caps should be issued."
^DD(55,.02,21,0)="^^1^1^2930316^^"
^DD(55,.02,21,1,0)="This field is used to indicate if safety caps are to be issued to patient."
^DD(55,.02,"DT")="2820906"
^DD(55,.03,0)="MAIL^S^0:REGULAR MAIL;1:CERTIFIED MAIL;2:DO NOT MAIL;3:LOCAL - REGULAR MAIL;4:LOCAL - CERTIFIED MAIL;^0;3^Q"
^DD(55,.03,.1)=""
^DD(55,.03,3)="Enter:  (0) Regular Mail (Can be CMOP)  (1) Certified Mail (Can be CMOP)  (2) DO NOT MAIL  (3) Local-Regular Mail  (4) Local-Certified Mail"
^DD(55,.03,21,0)="^^8^8^2970210^^"
^DD(55,.03,21,1,0)="This field is used to:"
^DD(55,.03,21,2,0)="A) Determine whether this patient's Rx's are to be sent to the CMOP, or"
^DD(55,.03,21,3,0)="retained for local distribution. If 2-4 are selected, none of this"
^DD(55,.03,21,4,0)="patient's Rx's will be transmitted to the CMOP."
^DD(55,.03,21,5,0)="B) Select what the mail priority is.  The CMOP choices are limited to (0)"
^DD(55,.03,21,6,0)="REGULAR and (1) CERTIFIED. Local mail may be designated (3) LOCAL -"
^DD(55,.03,21,7,0)="REGULAR or (4) LOCAL - CERTIFIED. The 'DO NOT MAIL' code (2) may be used"
^DD(55,.03,21,8,0)="to ensure that the patient's Rx's are not mailed."
^DD(55,.03,"DT")="2970210"
^DD(55,.04,0)="DIALYSIS PATIENT^S^0:NO;1:YES;^0;4^Q"
^DD(55,.04,1,0)="^.1"
^DD(55,.04,1,1,0)="55^ADIA"
^DD(55,.04,1,1,1)="S ^PS(55,""ADIA"",$E(X,1,30),DA)="""""
^DD(55,.04,1,1,2)="K ^PS(55,""ADIA"",$E(X,1,30),DA)"
^DD(55,.04,3)="Enter 0 if the patient is not in dialysis or a 1 if the patient is in dialysis."
^DD(55,.04,21,0)="^^1^1^2930316^^"
^DD(55,.04,21,1,0)="This field is used to indicate if the patient is in dialysis."
^DD(55,.05,0)="MAIL STATUS EXPIRATION DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,.05,3)="If a time limit is desired for the ""Do Not Mail"", ""Local - Regular Mail"" or ""Local - Certified Mail"" conditions found in the ""MAIL"" field, then enter the date here."
^DD(55,.05,21,0)="^^8^8^2970210^"
^DD(55,.05,21,1,0)="This field places a time limit on the 'Do Not Mail', 'Local - Regular"
^DD(55,.05,21,2,0)="Mail' and 'Local - Certified Mail' conditions in the 'MAIL' field."
^DD(55,.05,21,3,0)="If a date is placed in this field and the software detects that the date"
^DD(55,.05,21,4,0)="the Rx is processed is greater than the date in the field (past the"
^DD(55,.05,21,5,0)="expired date) a default value of 'Regular Mail' will be assumed for the"
^DD(55,.05,21,6,0)="'MAIL' field.  "
^DD(55,.05,21,7,0)="NOTE: The actual value of the 'MAIL' field will not be changed by the"
^DD(55,.05,21,8,0)="software, but can only be modified by a user editing the 'MAIL' field."
^DD(55,.05,"DT")="2970210"
^DD(55,.07,0)="FIRST SERVICE DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,.07,3)="Login date of first pharmacy service."
^DD(55,.07,21,0)="^^1^1^3011206^"
^DD(55,.07,21,1,0)="This is the login date of the first order for pharmacy services."
^DD(55,.07,"DT")="3011206"
^DD(55,.08,0)="ACTUAL/HISTORICAL FLAG^S^A:ACTUAL;H:HISTORICAL;^0;8^Q"
^DD(55,.08,3)="ACTUAL OR HISTORICAL FIRST SERVICE DATE"
^DD(55,.08,21,0)="^^4^4^3011206^"
^DD(55,.08,21,1,0)="The purpose of this field is to indicate whether the FIRST SERVICE DATE "
^DD(55,.08,21,2,0)="field was populated with actual or historical data.  Actual indicates the "
^DD(55,.08,21,3,0)="field was populated when the first pharmacy service was filed.  "
^DD(55,.08,21,4,0)="Historical indicates the field was populated by the conversion routine."
^DD(55,.08,"DT")="3011206"
^DD(55,1,0)="NARRATIVE^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(55,1,3)="Answer must be 1-250 characters in length."
^DD(55,1,20,0)="^.3LA^1^1"
^DD(55,1,20,1,0)="PS"
^DD(55,1,21,0)="^^1^1^2940315^^^"
^DD(55,1,21,1,0)="  This is notable information about the patient that pertains to pharmacy."
^DD(55,3,0)="PATIENT STATUS^P53'^PS(53,^PS;1^Q"
^DD(55,3,1,0)="^.1^^0"
^DD(55,3,3)="Enter the default patient status."
^DD(55,3,21,0)="^^1^1^2930316^^"
^DD(55,3,21,1,0)="This field is used to indicate a default patient status."
^DD(55,3,"DT")="2841218"
^DD(55,40,0)="COMMUNITY NURSING HOME^S^1:YES;^40;1^Q"
^DD(55,40,3)="Enter Y if this patient is in a community nursing home."
^DD(55,40,21,0)="^^2^2^2931124^^"
^DD(55,40,21,1,0)="This field is used to indicate if the patient resides within a community"
^DD(55,40,21,2,0)="nursing home."
^DD(55,40,"DT")="2891108"
^DD(55,40.1,0)="NURSING HOME CONTRACT^S^1:YES;^40;2^Q"
^DD(55,40.1,3)="Enter Y if this nursing home stay is covered by a contract."
^DD(55,40.1,21,0)="^^1^1^2930104^"
^DD(55,40.1,21,1,0)="This field is used to indicate if the patient has a nursing home contract."
^DD(55,40.1,"DT")="2891108"
^DD(55,40.2,0)="LAST DATE OF CONTRACT^D^^40;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,40.2,3)="Enter the date on which the contract expires."
^DD(55,40.2,21,0)="^^1^1^2930104^"
^DD(55,40.2,21,1,0)="This field is used to indicate the last date of the nursing home contract."
^DD(55,40.2,"DT")="2900402"
^DD(55,41,0)="RESPITE PATIENT START DATE^D^^40;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,41,3)="Enter the date on which this patient entered for respite treatment."
^DD(55,41,21,0)="^^1^1^2930104^^"
^DD(55,41,21,1,0)="This field is used to indicate the start date of respite care."
^DD(55,41,"DT")="2891108"
^DD(55,41.1,0)="RESPITE PATIENT END DATE^D^^40;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,41.1,3)="Enter the final date of respite treatment."
^DD(55,41.1,21,0)="^^1^1^2930104^"
^DD(55,41.1,21,1,0)="This field is used to indicate the end date of respite care."
^DD(55,41.1,"DT")="2891108"
^DD(55,50,0)="ACTIVE SCRIPTS^CJ2,0X^^ ; ^X ^DD(55,50,9.2) S Y(55,50,102)="""" X ""F D1=0:0 S D1=$N(^PS(55,D0,""""P"""",D1)) Q:D1'>0  X $P(^DD(55.03,3,0),U,5,99) S:X Y(55,50,102)=Y(55,50,102)+1"" S X=Y(55,50,102) S D1=Y(55,50,1) S X=$J(X,0,0)"
^DD(55,50,9)="^"
^DD(55,50,9.01)="55.03^3"
^DD(55,50,9.1)="COUNT(PRESCRIPTION PROFILE:ACTIVE)"
^DD(55,50,9.2)="S Y(55,50,1)=$S($D(D1):D1,1:"""")"
^DD(55,50,21,0)="^^1^1^2930104^"
^DD(55,50,21,1,0)="This field is used to indicate active prescriptions."
^DD(55,50,23,0)="^^1^1^2930104^"
^DD(55,50,23,1,0)="computed."
^DD(55,50,"DT")="2840428"
^DD(55,52,0)="PRESCRIPTION PROFILE^55.03P^^P;0"
^DD(55,52,20,0)="^.3LA^1^1"
^DD(55,52,20,1,0)="PSO"
^DD(55,52,21,0)="^^1^1^2990419^^^"
^DD(55,52,21,1,0)="This sub-file is used to indicate prescription history for this patient."
^DD(55,52.1,0)="RX UPDATE^S^0:Nothing updated;1:Data movement complete;2:Backfill complete;^0;6^Q"
^DD(55,52.1,3)="Data not entered directly with fileman."
^DD(55,52.1,21,0)="^^4^4^2970807^^"
^DD(55,52.1,21,1,0)="This field is used to indicate if the patient's medications have been"
^DD(55,52.1,21,2,0)="updated in the CPRS orders file."
^DD(55,52.1,21,3,0)="If the field is 0, nothing has been updated, 1 indicates the initial data"
^DD(55,52.1,21,4,0)="movement is complete, and 2 indicates the Backfill to CPRS is complete."
^DD(55,52.1,"DT")="2970807"
^DD(55,52.2,0)="NON-VA MEDS^55.05P^^NVA;0"
^DD(55,52.2,21,0)="^.001^2^2^3030609^^^^"
^DD(55,52.2,21,1,0)="This is the Non-VA Meds order multiple. It will be used to store the "
^DD(55,52.2,21,2,0)="Non-VA Med orders entered through the CPRS application."
^DD(55,52.2,23,0)="^.001^1^1^3030609^^^^"
^DD(55,52.2,23,1,0)="This multiple field (#52.2) contains the Non-VA Med orders."
^DD(55,52.2,"DT")="3030326"
^DD(55,53,0)="CLOZAPINE REGISTRATION NUMBER^FX^^SAND;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7)!'(X?2U5N) X"
^DD(55,53,1,0)="^.1"
^DD(55,53,1,1,0)="55^ASAND^MUMPS"
^DD(55,53,1,1,1)="S ^PS(55,""ASAND"",DA)="""""
^DD(55,53,1,1,2)="K ^PS(55,""ASAND"",DA)"
^DD(55,53,1,1,3)="This cross reference is essential for the national Clozapine reporting system.  DO NOT DELETE."
^DD(55,53,1,1,"%D",0)="^^3^3^2970926^^"
^DD(55,53,1,1,"%D",1,0)="This cross reference is used to select patients for whom data must be"
^DD(55,53,1,1,"%D",2,0)="extracted and sent to the national Clozapine data base."
^DD(55,53,1,1,"%D",3,0)="In the form of: ^PS(55,""ASAND"",DA)"
^DD(55,53,1,1,"DT")="2910627"
^DD(55,53,1,2,0)="55^ASAND1"
^DD(55,53,1,2,1)="S ^PS(55,""ASAND1"",$E(X,1,30),DA)="""""
^DD(55,53,1,2,2)="K ^PS(55,""ASAND1"",$E(X,1,30),DA)"
^DD(55,53,1,2,"DT")="2910731"
^DD(55,53,3)="Registration number is 2 letters followed by 5 numbers."
^DD(55,53,21,0)="^^1^1^2910814^^^^"
^DD(55,53,21,1,0)="This is the patient's authorization number assigned by national data base."
^DD(55,53,"DT")="2910814"
^DD(55,54,0)="CLOZAPINE STATUS^S^P:PRE-TREATMENT;A:ACTIVE TREATMENT;H:TREATMENT ON HOLD;D:DISCONTINUED;^SAND;2^Q"
^DD(55,54,3)="Enter the code for the patient's clozapine treatment status."
^DD(55,54,21,0)="^^1^1^2930316^^^^"
^DD(55,54,21,1,0)="This is the patient's clozapine treatment status."
^DD(55,54,"DT")="2910814"
^DD(55,55,0)="DATE OF LAST CLOZAPINE RX^D^^SAND;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,55,3)="Enter the date and time of the patient's last clozapine prescription."
^DD(55,55,21,0)="^^1^1^2930316^^^"
^DD(55,55,21,1,0)="This is the date of the patient's last clozapine prescription."
^DD(55,55,"DT")="2910814"
^DD(55,56,0)="DEMOGRAPHICS SENT^S^1:YES;0:NO;^SAND;4^Q"
^DD(55,56,3)="Enter 1 if the patient demographic data has been sent to the national database. Enter 0 if not."
^DD(55,56,21,0)="^^2^2^2930316^^^"
^DD(55,56,21,1,0)="This indicates whether patient demographic data has been sent to"
^DD(55,56,21,2,0)="the national database."
^DD(55,56,"DT")="2910807"
^DD(55,57,0)="RESPONSIBLE PROVIDER^*P200'^VA(200,^SAND;5^S DIC(""S"")=""I +$G(^VA(200,+Y,""""PS"""")),'$P(^(0),""""^"""",4)!($P(^(0),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(55,57,3)="Select a valid and active provider."
^DD(55,57,12)="Only valid providers are to be selected."
^DD(55,57,12.1)="S DIC(""S"")=""I +$G(^VA(200,+Y,""""PS"""")),'$P(^(0),""""^"""",4)!($P(^(0),""""^"""",4)'<DT)"""
^DD(55,57,21,0)="^^1^1^2930218^^^^"
^DD(55,57,21,1,0)="This is the physician responsible for the patient's clozaril treatment."
^DD(55,57,23,0)="^^1^1^2930218^^^"
^DD(55,57,23,1,0)="pointer"
^DD(55,57,"DT")="2930218"
^DD(55,58,0)="REGISTRATION DATE^D^^SAND;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,58,3)="Enter the date and time of registration."
^DD(55,58,21,0)="^^1^1^2930316^^^"
^DD(55,58,21,1,0)="This field is used to enter the date of registration."
^DD(55,58,"DT")="2910731"
^DD(55,62,0)="UNIT DOSE^55.06IA^^5;0"
^DD(55,62,11,0)="^.2LAP"
^DD(55,62,20,0)="^.3LA^1^1"
^DD(55,62,20,1,0)="PSJU"
^DD(55,62,21,0)="^^4^4^2970624^^^^"
^DD(55,62,21,1,0)="  This represents the 'top' of the UNIT DOSE SUB-FILE, where all of"
^DD(55,62,21,2,0)="a patient's active (and expired & dc'd) UNIT DOSE orders are kept."
^DD(55,62,21,3,0)="Although orders are initially entered into ^PS(53.1), the order is"
^DD(55,62,21,4,0)="transferred into this sub-file (^PSGOT) upon verification."
^DD(55,62,"DT")="2960726"
^DD(55,62.01,0)="UD DEFAULT STOP DATE/TIME^DX^^5.1;1^S %DT=""ETXRS"" D ^%DT S X=Y K:Y<1 X"
^DD(55,62.01,.1)="DEFAULT STOP DATE/TIME"
^DD(55,62.01,1)="DEFAULT STOP DATE/TIME"
^DD(55,62.01,3)="Enter a default stop date and time for orders entered for this patient."
^DD(55,62.01,4)="D EN^DDIOL(""NOT TO BE ENTERED INTO THROUGH FILEMAN!!"","""",""$C(7),$C(7),!"")"
^DD(55,62.01,8.5)="^"
^DD(55,62.01,9)="^"
^DD(55,62.01,20,0)="^.3LA^1^1"
^DD(55,62.01,20,1,0)="PSJU"
^DD(55,62.01,21,0)="^^4^4^2970616^^^^"
^DD(55,62.01,21,1,0)="  This is date used as a default value for the STOP DATE/TIME of Unit Dose"
^DD(55,62.01,21,2,0)="orders during the order entry and renewal processes, if the corresponding"
^DD(55,62.01,21,3,0)="site parameter is turned on.  The order entry and renewal processes will"
^DD(55,62.01,21,4,0)="sometimes change this date."
^DD(55,62.01,"DT")="3001020"
^DD(55,62.02,0)="UD PROVIDER^P200'^VA(200,^5.1;2^Q"
^DD(55,62.02,20,0)="^.3LA^1^1"
^DD(55,62.02,20,1,0)="PSJU"
^DD(55,62.02,21,0)="^^2^2^2910306^^^"
^DD(55,62.02,21,1,0)="  This is the latest provider for this patient, used as a default value"
^DD(55,62.02,21,2,0)="in order entry."
^DD(55,62.02,"DT")="2910708"
^DD(55,62.03,0)="UD LAST ADMISSION DATE^DX^^5.1;3^S %DT=""ETXS"" D ^%DT S X=Y K:Y<1 X"
^DD(55,62.03,20,0)="^.3LA^1^1"
^DD(55,62.03,20,1,0)="PSJ"
^DD(55,62.03,21,0)="^^1^1^2910306^^"
^DD(55,62.03,21,1,0)="  This is the last admission date for this patient."
^DD(55,62.03,"DT")="3001020"
^DD(55,62.04,0)="UD LAST TRANSFER DATE^DX^^5.1;4^S %DT=""ETXS"" D ^%DT S X=Y K:Y<1 X"
^DD(55,62.04,20,0)="^.3LA^1^1"
^DD(55,62.04,20,1,0)="PSJ"
^DD(55,62.04,21,0)="^^1^1^2910306^^"
^DD(55,62.04,21,1,0)="  This is the last transfer date for this patient."
^DD(55,62.04,"DT")="3001020"
^DD(55,62.05,0)="UD LAST DISCHARGE DATE^DX^^5.1;5^S %DT=""ETXS"" D ^%DT S X=Y K:Y<1 X"
^DD(55,62.05,20,0)="^.3LA^1^1"
^DD(55,62.05,20,1,0)="PSJ"
^DD(55,62.05,21,0)="^^1^1^2910306^^"
^DD(55,62.05,21,1,0)="  This is the last discharge date for this patient."
^DD(55,62.05,"DT")="3001020"
^DD(55,62.06,0)="UD EXP UP-DATE^D^^5.1;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(55,62.06,20,0)="^.3LA^1^1"
^DD(55,62.06,20,1,0)="PSJU"
^DD(55,62.06,21,0)="^^1^1^2910306^^"
^DD(55,62.06,21,1,0)="  This is a date used to update expired orders.  (Internal)"
^DD(55,62.06,"DT")="2860704"
^DD(55,62.07,0)="UD HOLD FLAG^S^0:ORDERS NOT ON HOLD;1:ORDERS ON HOLD;2:ORDERS AUTOMATICALLY PLACED ON HOLD;^5.1;7^Q"
^DD(55,62.07,20,0)="^.3LA^1^1"
^DD(55,62.07,20,1,0)="PSJU"
^DD(55,62.07,21,0)="^^2^2^2940228^^^^"
^DD(55,62.07,21,1,0)="  This is an internal flag set when all of the patient's orders have"
^DD(55,62.07,21,2,0)="been placed on hold."
^DD(55,62.07,21,3,0)="If '2', all of a patient's Unit Dose AND IV orders were placed on hold"
^DD(55,62.07,21,4,0)="automatically by the package."
^DD(55,62.07,"DT")="2940228"
^DD(55,62.08,0)="UD DISCHARGE FLAG^S^1:PATIENT HAS BEEN DISCHARGED;^5.1;8^Q"
^DD(55,62.08,20,0)="^.3LA^1^1"
^DD(55,62.08,20,1,0)="PSJ"
^DD(55,62.08,21,0)="^^3^3^2910306^^^^"
^DD(55,62.08,21,1,0)="  This is an internal flag set when a patient is first found to have been"
^DD(55,62.08,21,2,0)="discharged.  It is set so that Inpatient Meds does not try to cancel the"
^DD(55,62.08,21,3,0)="patient's orders every time the patient is accessed while discharged."
^DD(55,62.08,"DT")="2900701"
^DD(55,62.1,0)="COMMENTS^55.061^^5.2;0"
^DD(55,62.1,20,0)="^.3LA^1^1"
^DD(55,62.1,20,1,0)="PSJU"
^DD(55,62.1,21,0)="^^2^2^2910306^^^"
^DD(55,62.1,21,1,0)="  This is used for temporary storage of data by the Unit Dose package."
^DD(55,62.1,21,2,0)="The data is deleted before and after each use!"
^DD(55,62.11,0)="HOLD REASON^F^^5.1;10^K:$L(X)>30!($L(X)<1) X"
^DD(55,62.11,3)="Answer must be 1-30 characters in length."
^DD(55,62.11,4)="D EN^DDIOL(""Enter the reason this patient's order(s) are being placed on hold."","""",""!"")"
^DD(55,62.11,20,0)="^.3LA^1^1"
^DD(55,62.11,20,1,0)="PSJU"
^DD(55,62.11,21,0)="^^2^2^2970616^^^"
^DD(55,62.11,21,1,0)="  This is an explanation of why this patient's orders are being placed on"
^DD(55,62.11,21,2,0)="hold.  This explanation will show on the patient's Unit Dose profile."
^DD(55,62.11,"DT")="2890507"
^DD(55,62.16,0)="*LAST UD ORDER CONVERTED TO V4^F^^5.1;16^K:$L(X)>10!($L(X)<2) X"
^DD(55,62.16,3)="Answer must be 2-10 characters in length."
^DD(55,62.16,8.5)="^"
^DD(55,62.16,9)="^"
^DD(55,62.16,20,0)="^.3LA^1^1"
^DD(55,62.16,20,1,0)="PSG"
^DD(55,62.16,21,0)="^^4^4^2970805^^^^"
^DD(55,62.16,21,1,0)="  This is the last Unit Dose order converted for use with version 4 of the"
^DD(55,62.16,21,2,0)="Inpatient Medications package."
^DD(55,62.16,21,3,0)="THIS SHOULD NOT BE EDITED.  Editing could result in corrupted data and"
^DD(55,62.16,21,4,0)="possibly medication administration errors."
^DD(55,62.16,23,0)="^^4^4^2970805^^^^"
^DD(55,62.16,23,1,0)="  This is used and set by the post-init routine PSJIPST0.  It is used to"
^DD(55,62.16,23,2,0)="keep track of the patient's last Unit Dose order to be converted to the New"
^DD(55,62.16,23,3,0)="Person file and Primary Drug.  It is used to allow the Inpatient Medications"
^DD(55,62.16,23,4,0)="version 4 inits to be rerun if necessary."
^DD(55,62.16,"DT")="2970805"
^DD(55,62.2,0)="INPATIENT NARRATIVE^F^^5.3;1^K:$L(X)>250!($L(X)<1) X"
^DD(55,62.2,3)="Answer must be 1-250 characters in length."
^DD(55,62.2,21,0)="^^1^1^2971114^^"
^DD(55,62.2,21,1,0)="This field stores the Inpatient pharmacy narrative for the patient."
^DD(55,62.2,"DT")="2971114"
^DD(55,63,0)="*UD STOP DATE^D^^5.1;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(55,63,3)="NOT TO BE USED THROUGH FILEMAN"
^DD(55,63,4)="D EN^DDIOL(""NOT TO BE ENTERED INTO THROUGH FILEMAN!!"","""",""$C(7),$C(7),!"")"
^DD(55,63,8.5)="^"
^DD(55,63,9)="^"
^DD(55,63,21,0)="^^2^2^2970805^^^"
^DD(55,63,21,1,0)="This field is used by the UNIT DOSE PHARMACY package.  It is NOT"
^DD(55,63,21,2,0)="to be entered into anywhere else!"
^DD(55,63,"DT")="2961002"
^DD(55,99,0)="*NO. OF IV ORDERS^CJ3,0^^ ; ^X ^DD(55,99,9.2) S Y(55,99,102)="""" X ""F D1=0:0 S D1=$N(^PS(55,D0,""""IV"""",D1)) Q:D1'>0  S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" Y(55,99,102)=Y(55,99,102)+1"" S X=Y(55,99,102) S D1=Y(55,99,1) S X=$J(X,0,0)"
^DD(55,99,9)="^"
^DD(55,99,9.01)="55.01^.01"
^DD(55,99,9.1)="COUNT(IV)"
^DD(55,99,9.2)="S Y(55,99,1)=$S($D(D1):D1,1:"""")"
^DD(55,99,"DT")="2961002"
^DD(55,100,0)="IV^55.01^^IV;0"
^DD(55,100,20,0)="^.3LA^1^1"
^DD(55,100,20,1,0)="PSJI"
^DD(55,100,21,0)="^^4^4^2970808^^^^"
^DD(55,100,21,1,0)="This subfile contains IV order information for any given patient."
^DD(55,100,21,2,0)="A separate IV order file does not exist. This isn't the same design as "
^DD(55,100,21,3,0)="outpatient pharmacy -- which does contain a separate file for"
^DD(55,100,21,4,0)="prescriptions."
^DD(55,100,"DT")="2930623"
^DD(55,101,0)="ARCHIVE DATE^55.13DA^^ARC;0"
^DD(55,101,20,0)="^.3LA^1^1"
^DD(55,101,20,1,0)="PSO"
^DD(55,101,21,0)="^^1^1^2941208^^^"
^DD(55,101,21,1,0)="This sub file is used to indicate archived prescriptions."
^DD(55,102,0)="*LAST ADMISSION NUMBER^F^^IVD;1^K:$L(X)>30!($L(X)<1) X"
^DD(55,102,.1)="LAST ADMISSION NUMBER"
^DD(55,102,3)="Answer must be 1-30 characters in length."
^DD(55,102,20,0)="^.3LA^1^1"
^DD(55,102,20,1,0)="PSJI"
^DD(55,102,21,0)="^^6^6^2910306^^^^"
^DD(55,102,21,1,0)="  This field is updated by the IV PACKAGE every time action is taken on"
^DD(55,102,21,2,0)="this particular patient.  This piece will have two pieces of information"
^DD(55,102,21,3,0)="on it.  The first piece ('-' is the delimiter) is the current admissions"
^DD(55,102,21,4,0)="number, and the second piece is the discharge date for this admissions"
^DD(55,102,21,5,0)="number.  This field is used for determining whether or not to DC IV ORDERS"
^DD(55,102,21,6,0)="due to ADMISSIONS or DISCHARGE."
^DD(55,102,"DT")="2860318"
^DD(55,102.1,0)="*LAST SERVICE^S^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMIDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILLARY;B:BLIND REHAB;^IVD;2^Q"
^DD(55,102.1,.1)="LAST SERVICE"
^DD(55,102.1,3)=""
^DD(55,102.1,20,0)="^.3LA^1^1"
^DD(55,102.1,20,1,0)="PSJI"
^DD(55,102.1,21,0)="^^5^5^2910306^^^^"
^DD(55,102.1,21,1,0)="  This piece is updated by the IV PACKAGE every time this particular patient"
^DD(55,102.1,21,2,0)="has any 'IV ACTION'.  This piece represents the service of the last ward"
^DD(55,102.1,21,3,0)="that this patient was in.  It is a set of codes that was taken from the ADT"
^DD(55,102.1,21,4,0)="package.  This field is used to determine whether or not to DC IV ORDERS"
^DD(55,102.1,21,5,0)="due to SERVICE transfer."
^DD(55,102.1,"DT")="2860318"
^DD(55,102.2,0)="*LAST INTERWARD TRANSFER^NJ3,0^^IVD;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55,102.2,.1)="LAST INTERWARD TRANSFER"
^DD(55,102.2,3)="Type a whole number between 0 and 999."
^DD(55,102.2,20,0)="^.3LA^1^1"
^DD(55,102.2,20,1,0)="PSJI"
^DD(55,102.2,21,0)="^^4^4^2940621^^^^"
^DD(55,102.2,21,1,0)="  This field is updated by the IV PACKAGE every time this particular patient"
^DD(55,102.2,21,2,0)="has any 'IV ACTION'.  This field represents the last INTERWARD TRANSFER"
^DD(55,102.2,21,3,0)="NUMBER for the LAST ADMISSION NUMBER.  This field is used to determine"
^DD(55,102.2,21,4,0)="whether or not to DC IV ORDERS due to WARD TRANSFER."
^DD(55,102.2,21,5,0)="ORDERS due to SERVICE transfer."
^DD(55,102.2,"DT")="2860319"
^DD(55,103,0)="*LAST IV ORDER CONVERTED (4.0)^NJ9,0^^5.1;9^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(55,103,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(55,103,20,0)="^.3LA^1^1"
^DD(55,103,20,1,0)="PSJ"
^DD(55,103,21,0)="^^2^2^2970805^^"
^DD(55,103,21,1,0)="  This is the last IV order for a patient that had it's data converted to"
^DD(55,103,21,2,0)="the New Person file (200)."
^DD(55,103,23,0)="^^4^4^2970805^^"
^DD(55,103,23,1,0)="  This used and set by the routine PSJIPST1, which is run during the "
^DD(55,103,23,2,0)="post-init process to convert the Inpatient data from the Provider file (6)"
^DD(55,103,23,3,0)="to the New Person file (200). This is used to allow the conversion process"
^DD(55,103,23,4,0)="to restart where it left of if the conversion was previously aborted."
^DD(55,103,"DT")="2970805"
^DD(55,104,0)=" CONVERSION COMPLETED?^S^1:VERSION 5;2:POE;3:IV VERIFIED;^5.1;11^Q"
^DD(55,104,21,0)="^^5^5^3011026^"
^DD(55,104,21,1,0)="This field contains a 1 if the conversion to the patient's orders for"
^DD(55,104,21,2,0)="version 5.0 has  completed.  It contains a 2 if the conversion to the"
^DD(55,104,21,3,0)="patient's orders for Pharmacy Ordering Enhancement (POE) has completed.  "
^DD(55,104,21,4,0)="It contains a 3 if the patient's IV orders existed prior to BCMA V.2.0 "
^DD(55,104,21,5,0)="has updated the Verifying Pharmacist field."
^DD(55,104,"DT")="3011026"
^DD(55,105,0)="BCMA ID^55.0105A^^IVBCMA;0"
^DD(55,105,21,0)="^.001^1^1^3020418^^^"
^DD(55,105,21,1,0)="This is the unique barcode ID in the format DFN_""V""_ID# ex: 740V1."
^DD(55,106,0)="OTHER LANGUAGE PREFERENCE^S^1:YES;^LAN;1^Q"
^DD(55,106,3)="Answer only if patient has another language preference for printing on bottle labels."
^DD(55,106,20,0)="^.3LA^1^1"
^DD(55,106,20,1,0)="PSO"
^DD(55,106,21,0)="^.001^3^3^3030123^^^^"
^DD(55,106,21,1,0)="This field is used to identify patients who have another language preference"
^DD(55,106,21,2,0)="for printing medication instructions on bottle labels."
^DD(55,106,21,3,0)=" "
^DD(55,106,23,0)="^.001^1^1^3030123^^^"
^DD(55,106,23,1,0)="set of codes."
^DD(55,106,"DT")="3020930"
^DD(55,106.1,0)="PMI LANGUAGE PREFERENCE^S^1:ENGLISH;2:SPANISH;^LAN;2^Q"
^DD(55,106.1,21,0)="^^2^2^3021023^"
^DD(55,106.1,21,1,0)="This field will be used to determine the default language preference for"
^DD(55,106.1,21,2,0)="printing the PMI sheets at the CMOPs."
^DD(55,106.1,"DT")="3021023"
^DD(55,108,0)="SCRIPTALK ENROLLMENT ACTIVITY^55.0108DA^^SCTALK;0"
^DD(55,108,21,0)="^^2^2^3030603^"
^DD(55,108,21,1,0)="This multiple contains the history log information for ScripTalk "
^DD(55,108,21,2,0)="enrollment activities for a patient."
^DD(55,"B"," CONVERSION COMPLETED?",104)=""
^DD(55,"B","*LAST ADMISSION NUMBER",102)=""
^DD(55,"B","*LAST INTERWARD TRANSFER",102.2)=""
^DD(55,"B","*LAST IV ORDER CONVERTED (4.0)",103)=""
^DD(55,"B","*LAST SERVICE",102.1)=""
^DD(55,"B","*LAST UD ORDER CONVERTED TO V4",62.16)=""
^DD(55,"B","*NO. OF IV ORDERS",99)=""
^DD(55,"B","*UD STOP DATE",63)=""
^DD(55,"B","ACTIVE SCRIPTS",50)=""
^DD(55,"B","ACTUAL/HISTORICAL FLAG",.08)=""
^DD(55,"B","ARCHIVE DATE",101)=""
^DD(55,"B","BCMA ID",105)=""
^DD(55,"B","CAP",.02)=""
^DD(55,"B","CLOZAPINE REGISTRATION NUMBER",53)=""
^DD(55,"B","CLOZAPINE STATUS",54)=""
^DD(55,"B","COMMENTS",62.1)=""
^DD(55,"B","COMMUNITY NURSING HOME",40)=""
^DD(55,"B","DATE OF LAST CLOZAPINE RX",55)=""
^DD(55,"B","DEFAULT STOP DATE/TIME",62.01)="1"
^DD(55,"B","DEMOGRAPHICS SENT",56)=""
^DD(55,"B","DIALYSIS PATIENT",.04)=""
^DD(55,"B","FIRST SERVICE DATE",.07)=""
^DD(55,"B","HOLD REASON",62.11)=""
^DD(55,"B","INPATIENT NARRATIVE",62.2)=""
^DD(55,"B","IV",100)=""
^DD(55,"B","LAST ADMISSION NUMBER",102)="1"
^DD(55,"B","LAST DATE OF CONTRACT",40.2)=""
^DD(55,"B","LAST INTERWARD TRANSFER",102.2)="1"
^DD(55,"B","LAST SERVICE",102.1)="1"
^DD(55,"B","MAIL",.03)=""
^DD(55,"B","MAIL STATUS EXPIRATION DATE",.05)=""
^DD(55,"B","NAME",.01)=""
^DD(55,"B","NARRATIVE",1)=""
^DD(55,"B","NON-VA MEDS",52.2)=""
^DD(55,"B","NUMBER",.001)=""
^DD(55,"B","NURSING HOME CONTRACT",40.1)=""
^DD(55,"B","OTHER LANGUAGE PREFERENCE",106)=""
^DD(55,"B","PATIENT STATUS",3)=""
^DD(55,"B","PMI LANGUAGE PREFERENCE",106.1)=""
^DD(55,"B","PRESCRIPTION PROFILE",52)=""
^DD(55,"B","REGISTRATION DATE",58)=""
^DD(55,"B","RESPITE PATIENT END DATE",41.1)=""
^DD(55,"B","RESPITE PATIENT START DATE",41)=""
^DD(55,"B","RESPONSIBLE PROVIDER",57)=""
^DD(55,"B","RX UPDATE",52.1)=""
^DD(55,"B","SCRIPTALK ENROLLMENT ACTIVITY",108)=""
^DD(55,"B","UD DEFAULT STOP DATE/TIME",62.01)=""
^DD(55,"B","UD DISCHARGE FLAG",62.08)=""
^DD(55,"B","UD EXP UP-DATE",62.06)=""
^DD(55,"B","UD HOLD FLAG",62.07)=""
^DD(55,"B","UD LAST ADMISSION DATE",62.03)=""
^DD(55,"B","UD LAST DISCHARGE DATE",62.05)=""
^DD(55,"B","UD LAST TRANSFER DATE",62.04)=""
^DD(55,"B","UD PROVIDER",62.02)=""
^DD(55,"B","UNIT DOSE",62)=""
^DD(55,"GL",0,1,.01)=""
^DD(55,"GL",0,2,.02)=""
^DD(55,"GL",0,3,.03)=""
^DD(55,"GL",0,4,.04)=""
^DD(55,"GL",0,5,.05)=""
^DD(55,"GL",0,6,52.1)=""
^DD(55,"GL",0,7,.07)=""
^DD(55,"GL",0,8,.08)=""
^DD(55,"GL",1,1,1)=""
^DD(55,"GL",5,0,62)=""
^DD(55,"GL",5.1,1,62.01)=""
^DD(55,"GL",5.1,1,63)=""
^DD(55,"GL",5.1,2,62.02)=""
^DD(55,"GL",5.1,3,62.03)=""
^DD(55,"GL",5.1,4,62.04)=""
^DD(55,"GL",5.1,5,62.05)=""
^DD(55,"GL",5.1,6,62.06)=""
^DD(55,"GL",5.1,7,62.07)=""
^DD(55,"GL",5.1,8,62.08)=""
^DD(55,"GL",5.1,9,103)=""
^DD(55,"GL",5.1,10,62.11)=""
^DD(55,"GL",5.1,11,104)=""
^DD(55,"GL",5.1,16,62.16)=""
^DD(55,"GL",5.2,0,62.1)=""
^DD(55,"GL",5.3,1,62.2)=""
^DD(55,"GL",40,1,40)=""
^DD(55,"GL",40,2,40.1)=""
^DD(55,"GL",40,3,40.2)=""
^DD(55,"GL",40,4,41)=""
^DD(55,"GL",40,5,41.1)=""
^DD(55,"GL","ARC",0,101)=""
^DD(55,"GL","IV",0,100)=""
^DD(55,"GL","IVBCMA",0,105)=""
^DD(55,"GL","IVD",1,102)=""
^DD(55,"GL","IVD",2,102.1)=""
^DD(55,"GL","IVD",3,102.2)=""
^DD(55,"GL","LAN",1,106)=""
^DD(55,"GL","LAN",2,106.1)=""
^DD(55,"GL","NVA",0,52.2)=""
^DD(55,"GL","P",0,52)=""
^DD(55,"GL","PS",1,3)=""
^DD(55,"GL","SAND",1,53)=""
^DD(55,"GL","SAND",2,54)=""
^DD(55,"GL","SAND",3,55)=""
^DD(55,"GL","SAND",4,56)=""
^DD(55,"GL","SAND",5,57)=""
^DD(55,"GL","SAND",6,58)=""
^DD(55,"GL","SCTALK",0,108)=""
^DD(55,"GR","PS",.001,1)=""
^DD(55,"GR","PS",.01,1)=""
^DD(55,"GR","PS",1,1)=""
^DD(55,"GR","PSG",62.16,1)=""
^DD(55,"GR","PSJ",62.03,1)=""
^DD(55,"GR","PSJ",62.04,1)=""
^DD(55,"GR","PSJ",62.05,1)=""
^DD(55,"GR","PSJ",62.08,1)=""
^DD(55,"GR","PSJ",103,1)=""
^DD(55,"GR","PSJI",100,1)=""
^DD(55,"GR","PSJI",102,1)=""
^DD(55,"GR","PSJI",102.1,1)=""
^DD(55,"GR","PSJI",102.2,1)=""
^DD(55,"GR","PSJU",62,1)=""
^DD(55,"GR","PSJU",62.01,1)=""
^DD(55,"GR","PSJU",62.02,1)=""
^DD(55,"GR","PSJU",62.06,1)=""
^DD(55,"GR","PSJU",62.07,1)=""
^DD(55,"GR","PSJU",62.1,1)=""
^DD(55,"GR","PSJU",62.11,1)=""
^DD(55,"GR","PSO",52,1)=""
^DD(55,"GR","PSO",101,1)=""
^DD(55,"GR","PSO",106,1)=""
^DD(55,"IX",.01)=""
^DD(55,"IX",.04)=""
^DD(55,"IX",53)=""
^DD(55,"RQ",.01)=""
^DD(55,"SB",55.01,100)=""
^DD(55,"SB",55.0105,105)=""
^DD(55,"SB",55.0108,108)=""
^DD(55,"SB",55.03,52)=""
^DD(55,"SB",55.05,52.2)=""
^DD(55,"SB",55.06,62)=""
^DD(55,"SB",55.061,62.1)=""
^DD(55,"SB",55.13,101)=""
^DD(55.01,0)="IV SUB-FIELD^NL^152^72"
^DD(55.01,0,"DIK")="PSSJXR"
^DD(55.01,0,"DT")="2970808"
^DD(55.01,0,"IX","AC",55.01,.1)=""
^DD(55.01,0,"IX","AD",55.01,31)=""
^DD(55.01,0,"IX","AE",55.01,.02)=""
^DD(55.01,0,"IX","AF",55.01,.03)=""
^DD(55.01,0,"IX","AG",55.01,.04)=""
^DD(55.01,0,"IX","AH",55.01,.06)=""
^DD(55.01,0,"IX","AI",55.01,.08)=""
^DD(55.01,0,"IX","AIS",55.01,.03)=""
^DD(55.01,0,"IX","AJ",55.01,.09)=""
^DD(55.01,0,"IX","AK",55.01,.12)=""
^DD(55.01,0,"IX","AL",55.01,100)=""
^DD(55.01,0,"IX","AM",55.01,143)=""
^DD(55.01,0,"IX","AP",55.01,.06)=""
^DD(55.01,0,"IX","B",55.01,.01)=""
^DD(55.01,0,"NM","IV")=""
^DD(55.01,0,"UP")="55"
^DD(55.01,.01,0)="ORDER NUMBER^MRNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(55.01,.01,1,0)="^.1"
^DD(55.01,.01,1,1,0)="55.01^B"
^DD(55.01,.01,1,1,1)="S ^PS(55,DA(1),""IV"",""B"",$E(X,1,30),DA)="""""
^DD(55.01,.01,1,1,2)="K ^PS(55,DA(1),""IV"",""B"",$E(X,1,30),DA)"
^DD(55.01,.01,3)="Type a whole number between 1 and 9999999."
^DD(55.01,.01,20,0)="^.3LA^1^1"
^DD(55.01,.01,20,1,0)="PSJI"
^DD(55.01,.01,21,0)="^^1^1^2910306^^^"
^DD(55.01,.01,21,1,0)="Order Number for IV drugs administered to this patient."
^DD(55.01,.01,"DT")="2860729"
^DD(55.01,.02,0)="START DATE/TIME^RDX^^0;2^X:X=""P"" ""F X=0:0 S X=$O(^PS(55,DA(1),""""IV"""",X)) Q:'X  I $O(^(X))=DA W """"...RECALL"""" S X=$P(^(X,0),""""^"""",3) Q"" S:X=""STAT"" X=""NOW"" S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,.02,1,0)="^.1"
^DD(55.01,.02,1,1,0)="55.01^AE^MUMPS"
^DD(55.01,.02,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.02 D ENTO^PSIVAL"
^DD(55.01,.02,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.02 D ENFR^PSIVAL"
^DD(55.01,.02,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,.02,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,.02,1,2,0)="55^AIVS"
^DD(55.01,.02,1,2,1)="S ^PS(55,""AIVS"",$E(X,1,30),DA(1),DA)="""""
^DD(55.01,.02,1,2,2)="K ^PS(55,""AIVS"",$E(X,1,30),DA(1),DA)"
^DD(55.01,.02,1,2,"%D",0)="^^1^1^2931031^^^"
^DD(55.01,.02,1,2,"%D",1,0)="Identifies IV orders by the order's start date/time."
^DD(55.01,.02,1,2,"DT")="2931031"
^DD(55.01,.02,3)="Enter the start DATE and TIME for this order."
^DD(55.01,.02,20,0)="^.3LA^1^1"
^DD(55.01,.02,20,1,0)="PSJI"
^DD(55.01,.02,21,0)="^^6^6^2940714^^^^"
^DD(55.01,.02,21,1,0)=" This is the date and time the order is to begin. This package initially"
^DD(55.01,.02,21,2,0)="assigns the START DATE/TIME to the closest administration time or next"
^DD(55.01,.02,21,3,0)="admin. time or NOW depends on the value of the DEFAULT START DATE"
^DD(55.01,.02,21,4,0)="CALCULATION field in the WARD PARAMETERS file. START DATE/TIME may not "
^DD(55.01,.02,21,5,0)="be entered prior to 7 days from the order's LOGIN DATE."
^DD(55.01,.02,21,6,0)=" "
^DD(55.01,.02,"DT")="2931031"
^DD(55.01,.03,0)="STOP DATE/TIME^RDX^^0;3^S %DT=""ETX"" D:X'=+X ^%DT D:X=+X ENDL^PSSDDUT3 S X=Y K:Y<1!(Y'[""."") X"
^DD(55.01,.03,1,0)="^.1"
^DD(55.01,.03,1,1,0)="55^AIV"
^DD(55.01,.03,1,1,1)="S ^PS(55,""AIV"",+$E(X,1,30),DA(1),DA)="""""
^DD(55.01,.03,1,1,2)="K ^PS(55,""AIV"",+$E(X,1,30),DA(1),DA)"
^DD(55.01,.03,1,1,"%D",0)="^^1^1^2931031^"
^DD(55.01,.03,1,1,"%D",1,0)="Identifies IV orders by the order's stop date/time."
^DD(55.01,.03,1,2,0)="55.01^AF^MUMPS"
^DD(55.01,.03,1,2,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.03 D ENTO^PSIVAL"
^DD(55.01,.03,1,2,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.03 D ENFR^PSIVAL"
^DD(55.01,.03,1,2,"%D",0)="^^1^2920831^"
^DD(55.01,.03,1,2,"%D",1,0)="Used by IV Package."
^DD(55.01,.03,1,3,0)="55.01^AIS"
^DD(55.01,.03,1,3,1)="S ^PS(55,DA(1),""IV"",""AIS"",$E(X,1,30),DA)="""""
^DD(55.01,.03,1,3,2)="K ^PS(55,DA(1),""IV"",""AIS"",$E(X,1,30),DA)"
^DD(55.01,.03,1,4,0)="55^AIT^MUMPS"
^DD(55.01,.03,1,4,1)="I $P($G(^PS(55,DA(1),""IV"",DA,0)),U,4)]"""" S ^PS(55,DA(1),""IV"",""AIT"",$P(^(0),U,4),+X,DA)="""""
^DD(55.01,.03,1,4,2)="I $P($G(^PS(55,DA(1),""IV"",DA,0)),U,4)]"""" K ^PS(55,DA(1),""IV"",""AIT"",$P(^(0),U,4),+X,DA)"
^DD(55.01,.03,1,4,"%D",0)="4^^4^4^2930611^"
^DD(55.01,.03,1,4,"%D",1,0)="  Used by IV to gather orders.  X-refs are in the form of:  "
^DD(55.01,.03,1,4,"%D",2,0)="  ^PS(55,DA(1),""IV"",""AIT"",type,stop date/time,DA)  "
^DD(55.01,.03,1,4,"%D",3,0)=" "
^DD(55.01,.03,1,4,"%D",4,0)="  These are used primarily by the Med Due Worksheet and MAR."
^DD(55.01,.03,1,4,"DT")="2930610"
^DD(55.01,.03,3)=""
^DD(55.01,.03,20,0)="^.3LA^1^1"
^DD(55.01,.03,20,1,0)="PSJI"
^DD(55.01,.03,21,0)="^^1^1^2920512^^^^"
^DD(55.01,.03,21,1,0)="  This is the date and time the order is to end."
^DD(55.01,.03,"DT")="3040729"
^DD(55.01,.04,0)="TYPE^RS^A:ADMIXTURE;P:PIGGYBACK;H:HYPERAL;S:SYRINGE;C:CHEMOTHERAPY;^0;4^Q"
^DD(55.01,.04,1,0)="^.1"
^DD(55.01,.04,1,1,0)="55.01^AG^MUMPS"
^DD(55.01,.04,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.04 D ENTO^PSIVAL"
^DD(55.01,.04,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.04 D ENFR^PSIVAL"
^DD(55.01,.04,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,.04,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,.04,3)=""
^DD(55.01,.04,20,0)="^.3LA^1^1"
^DD(55.01,.04,20,1,0)="PSJI"
^DD(55.01,.04,21,0)="^^2^2^2910306^^^^"
^DD(55.01,.04,21,1,0)="  Type of IV - 'A' for Admixture, 'C' for chemotherapy, 'H' for Hyperal, 'P'"
^DD(55.01,.04,21,2,0)="for Piggyback, and 'S' for Syringe."
^DD(55.01,.04,"DT")="2890106"
^DD(55.01,.06,0)="PROVIDER^R*P200'^VA(200,^0;6^S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(55.01,.06,1,0)="^.1"
^DD(55.01,.06,1,1,0)="55.01^AH^MUMPS"
^DD(55.01,.06,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.06 D ENTO^PSIVAL"
^DD(55.01,.06,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.06 D ENFR^PSIVAL"
^DD(55.01,.06,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,.06,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,.06,1,2,0)="55.01^AP^MUMPS"
^DD(55.01,.06,1,2,1)="I '$D(DIU(0)),$S($D(^PS(55,DA(1),5.1)):$P(^(5.1),""^"",2)'=X,1:1) S $P(^(5.1),""^"",2)=X"
^DD(55.01,.06,1,2,2)="Q"
^DD(55.01,.06,1,2,"%D",0)="^^1^2920831^"
^DD(55.01,.06,1,2,"%D",1,0)="Used by IV Package."
^DD(55.01,.06,3)="(Entry required.)"
^DD(55.01,.06,12)="Inactive physician's are not allowed."
^DD(55.01,.06,12.1)="S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"""
^DD(55.01,.06,20,0)="^.3LA^1^1"
^DD(55.01,.06,20,1,0)="PSJI"
^DD(55.01,.06,21,0)="^^1^1^2910709^^^^"
^DD(55.01,.06,21,1,0)="  Person who authorized the prescription."
^DD(55.01,.06,23,0)="^^2^2^2910709^^^^"
^DD(55.01,.06,23,1,0)="  This is a pointer to the NEW PERSON File (200). The provider entered"
^DD(55.01,.06,23,2,0)="must be active and authorized to write medication orders."
^DD(55.01,.06,"DT")="2910730"
^DD(55.01,.08,0)="INFUSION RATE^FX^^0;8^D ENI^PSSDDUT3"
^DD(55.01,.08,1,0)="^.1"
^DD(55.01,.08,1,1,0)="55.01^AI^MUMPS"
^DD(55.01,.08,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.08 D ENTO^PSIVAL"
^DD(55.01,.08,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.08 D ENFR^PSIVAL"
^DD(55.01,.08,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,.08,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,.08,3)="Answer must be 1-30 characters in length."
^DD(55.01,.08,20,0)="^.3LA^1^1"
^DD(55.01,.08,20,1,0)="PSJI"
^DD(55.01,.08,21,0)="^.001^18^18^3000703^^^^"
^DD(55.01,.08,21,1,0)="  Enter the rate at which the infusion is to take place.  This value, in"
^DD(55.01,.08,21,2,0)="conjunction with the total volume of the hyperal or the admixture type, is"
^DD(55.01,.08,21,3,0)="used to determine the time covered by one bag; hence the system can"
^DD(55.01,.08,21,4,0)="predict the bags needed during a specified time of coverage. This field is"
^DD(55.01,.08,21,5,0)="free text for IVPB's.  For LVP's you must enter a number that will"
^DD(55.01,.08,21,6,0)="represent the infusion rate.  You may also specify the # of bags per day"
^DD(55.01,.08,21,7,0)="that will be needed."
^DD(55.01,.08,21,8,0)=" "
^DD(55.01,.08,21,9,0)=" Example: 125 = 125 ml/hr (IV system will calculate bags needed per day)"
^DD(55.01,.08,21,10,0)="        125@2 = 125 ml/hr with 2 labels per day"
^DD(55.01,.08,21,11,0)="    TITRATE@1 = TITRATE with 1 label per day"
^DD(55.01,.08,21,12,0)=" The format of this field is either a number only or"
^DD(55.01,.08,21,13,0)=" [FREE TEXT@NUMBER OF LABELS PER DAY]."
^DD(55.01,.08,21,14,0)=" "
^DD(55.01,.08,21,15,0)="Note:  If an administration time(s) is defined, the number of labels will"
^DD(55.01,.08,21,16,0)="reflect the administration time(s) for the IVPB type orders."
^DD(55.01,.08,21,17,0)="For example:  One administration time of 12:00 is specified.  The infusion"
^DD(55.01,.08,21,18,0)="rate is entered as 125@3.  Only 1 label will print."
^DD(55.01,.08,"DT")="2860218"
^DD(55.01,.09,0)="SCHEDULE^FXO^^0;9^K:X[""""""""!($A(X)=45)!($L(X,"" "")>3) X I $D(X) D EN^PSIVSP K:XT<0 X I $D(X) S PSIVSC=Y,$P(^PS(55,DA(1),""IV"",DA,0),U,15)=+XT"
^DD(55.01,.09,1,0)="^.1"
^DD(55.01,.09,1,1,0)="55.01^AJ^MUMPS"
^DD(55.01,.09,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.09 D ENTO^PSIVAL"
^DD(55.01,.09,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.09 D ENFR^PSIVAL"
^DD(55.01,.09,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,.09,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,.09,2)="S Y(0)=Y S Y=$S($P(^PS(55,D0,""IV"",D1,0),U,7):Y_""@0 labels a day."",1:Y)"
^DD(55.01,.09,2.1)="S Y=$S($P(^PS(55,D0,""IV"",D1,0),U,7):Y_""@0 labels a day."",1:Y)"
^DD(55.01,.09,3)="Answer must be 1-70 characters in length."
^DD(55.01,.09,4)=""
^DD(55.01,.09,20,0)="^.3LA^1^1"
^DD(55.01,.09,20,1,0)="PSJI"
^DD(55.01,.09,21,0)="^^9^9^3001121^"
^DD(55.01,.09,21,1,0)="  You may enter a standard schedule here or non-standard schedule.  If a"
^DD(55.01,.09,21,2,0)="standard schedule is entered, the doses will be given at the administration"
^DD(55.01,.09,21,3,0)="time(s). If a non-standard schedule is entered, and no administration"
^DD(55.01,.09,21,4,0)="times are entered, the doses will be given at time intervals past the start"
^DD(55.01,.09,21,5,0)="date/time of the IV order."
^DD(55.01,.09,21,6,0)="    TID = (09-17-21) doses will be given at admin. times."
^DD(55.01,.09,21,7,0)="    Q5H = (300 minutes) doses will be given every 300 minutes."
^DD(55.01,.09,21,8,0)="The format of this field is [SCHEDULEspaceFREETEXTspaceFREETEXT] and 1-70"
^DD(55.01,.09,21,9,0)="characters."
^DD(55.01,.09,"DT")="3000824"
^DD(55.01,.1,0)="REMARKS^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X"
^DD(55.01,.1,1,0)="^.1"
^DD(55.01,.1,1,1,0)="55.01^AC^MUMPS"
^DD(55.01,.1,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.1 D ENTO^PSIVAL"
^DD(55.01,.1,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.1 D ENFR^PSIVAL"
^DD(55.01,.1,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,.1,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,.1,3)="Answer must be 1-100 characters in length."
^DD(55.01,.1,20,0)="^.3LA^1^1"
^DD(55.01,.1,20,1,0)="PSJI"
^DD(55.01,.1,21,0)="^^2^2^2910306^^^^"
^DD(55.01,.1,21,1,0)="  This field is not shown on the IV labels, but is shown on some of the"
^DD(55.01,.1,21,2,0)="IV reports."
^DD(55.01,.1,"DT")="2851118"
^DD(55.01,.12,0)="ADMINISTRATION TIMES^FX^^0;11^K:X[""""""""!($A(X)=45) X I $D(X) X $P(^DD(51.1,1,0),""^"",5,999)"
^DD(55.01,.12,1,0)="^.1^^-1"
^DD(55.01,.12,1,1,0)="55.01^AK^MUMPS"
^DD(55.01,.12,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.12 D ENTO^PSIVAL"
^DD(55.01,.12,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=.12 D ENFR^PSIVAL"
^DD(55.01,.12,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,.12,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,.12,3)="Answer must be 1-64 characters in length, e.g., 03-09-15-21."
^DD(55.01,.12,20,0)="^.3LA^1^1"
^DD(55.01,.12,20,1,0)="PSJI"
^DD(55.01,.12,21,0)="^^7^7^2940714^^^^"
^DD(55.01,.12,21,1,0)="  Enter the times that this order will be given separated by a '-'.  The"
^DD(55.01,.12,21,2,0)="administration times have to be entered in ascending order.  Each "
^DD(55.01,.12,21,3,0)="administration time must be at least two characters long or four"
^DD(55.01,.12,21,4,0)="characters long.  Example: '03-07-11-15-19-23' or '0730-1130'.  "
^DD(55.01,.12,21,5,0)="Administration times are REQUIRED for STANDARD schedules but are NOT "
^DD(55.01,.12,21,6,0)="REQUIRED for NON-STANDARD schedules."
^DD(55.01,.12,21,7,0)=" "
^DD(55.01,.12,"DT")="2860326"
^DD(55.01,.15,0)="LAST FILL^D^^9;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,.15,20,0)="^.3LA^1^1"
^DD(55.01,.15,20,1,0)="PSJI"
^DD(55.01,.15,21,0)="^^1^1^2910306^^^"
^DD(55.01,.15,21,1,0)="  Last time the prescription was filled."
^DD(55.01,.15,"DT")="2850907"
^DD(55.01,.16,0)="LAST QTY FILLED^NJ3,0^^9;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.01,.16,3)="Type a whole number between 0 and 999."
^DD(55.01,.16,20,0)="^.3LA^1^1"
^DD(55.01,.16,20,1,0)="PSJI"
^DD(55.01,.16,21,0)="^^1^1^2910306^^^"
^DD(55.01,.16,21,1,0)="  Quantity of last filled prescription."
^DD(55.01,.16,"DT")="2851015"
^DD(55.01,.17,0)="SCHEDULE INTERVAL^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.01,.17,3)="Type a whole number between 0 and 9999."
^DD(55.01,.17,20,0)="^.3LA^1^1"
^DD(55.01,.17,20,1,0)="PSJI"
^DD(55.01,.17,21,0)="^^1^1^2910306^^"
^DD(55.01,.17,21,1,0)="  Interval between administrations of IV"
^DD(55.01,.17,"DT")="2851023"
^DD(55.01,.21,0)="LOGIN DATE/TIME^D^^2;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,.21,20,0)="^.3LA^1^1"
^DD(55.01,.21,20,1,0)="PSJI"
^DD(55.01,.21,21,0)="^^1^1^2920512^^^"
^DD(55.01,.21,21,1,0)="  This is the date and time the order was entered."
^DD(55.01,.22,0)="IV ROOM^RP59.5'^PS(59.5,^2;2^Q"
^DD(55.01,.22,3)=""
^DD(55.01,.22,20,0)="^.3LA^1^1"
^DD(55.01,.22,20,1,0)="PSJI"
^DD(55.01,.22,21,0)="^^1^1^2910730^^^^"
^DD(55.01,.22,21,1,0)="  IV room where IV was prepared for administration."
^DD(55.01,.22,"DT")="2910730"
^DD(55.01,.23,0)="*ENTRY CODE^F^^2;3^K:$L(X)>5!($L(X)<2)!'(X?.A) X"
^DD(55.01,.23,3)="Answer must be 2-5 characters in length."
^DD(55.01,.23,20,0)="^.3LA^1^1"
^DD(55.01,.23,20,1,0)="PSJI"
^DD(55.01,.23,21,0)="^^1^1^2920512^^^^"
^DD(55.01,.23,21,1,0)="  This is the user who entered the order into the system."
^DD(55.01,.23,"DT")="2971105"
^DD(55.01,.24,0)="CUMULATIVE DOSES^NJ3,0^^0;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.01,.24,3)="Type a whole number between 0 and 999."
^DD(55.01,.24,20,0)="^.3LA^1^1"
^DD(55.01,.24,20,1,0)="PSJI"
^DD(55.01,.24,21,0)="^^1^1^2910306^^"
^DD(55.01,.24,21,1,0)="  Cumulative doses of IV for patient."
^DD(55.01,.24,"DT")="2850521"
^DD(55.01,1,0)="ADDITIVE^55.02PA^^AD;0"
^DD(55.01,1,12)="Choose an additive or an additves quick code."
^DD(55.01,1,12.1)="S DIC(""S"")=""I 1 S DIC(""""W"""")=""""I 1 ENQUI^PSIV"""""""
^DD(55.01,1,20,0)="^.3LA^1^1"
^DD(55.01,1,20,1,0)="PSJI"
^DD(55.01,1,21,0)="^^1^1^2920514^^^^"
^DD(55.01,1,21,1,0)="The additive in the IV. This looks at the Additives File (52.6)"
^DD(55.01,3,0)="SOLUTION^55.11IPA^^SOL;0"
^DD(55.01,3,20,0)="^.3LA^1^1"
^DD(55.01,3,20,1,0)="PSJI"
^DD(55.01,3,21,0)="^^1^1^2910523^^^^"
^DD(55.01,3,21,1,0)="Solution in IV. Looks at the Solutions File (52.7)"
^DD(55.01,9,0)="ORIGINAL WARD^P42'^DIC(42,^2;10^Q"
^DD(55.01,9,20,0)="^.3LA^1^1"
^DD(55.01,9,20,1,0)="PSJI"
^DD(55.01,9,21,0)="^^1^1^2931211^"
^DD(55.01,9,21,1,0)="This is the ward where the patient was located when the order was created."
^DD(55.01,9,23,0)="^^5^5^2931211^"
^DD(55.01,9,23,1,0)=" This is used to determine if the admin times for the ward were used when "
^DD(55.01,9,23,2,0)="the order was created. If the patient is transferred and the order is then"
^DD(55.01,9,23,3,0)="renewed, the admin times of the new ward will be used for the renewal "
^DD(55.01,9,23,4,0)="order if the admin times of the previous ward were used in the original "
^DD(55.01,9,23,5,0)="order."
^DD(55.01,9,"DT")="2931211"
^DD(55.01,16,0)="VERIFYING NURSE^P200'^VA(200,^4;1^Q"
^DD(55.01,16,21,0)="^^2^2^2960112^"
^DD(55.01,16,21,1,0)="This is the nurse who acknowledged (through OE/RR) the order, or the lates"
^DD(55.01,16,21,2,0)="action taken on the order."
^DD(55.01,16,"DT")="2960112"
^DD(55.01,17,0)="DATE VERIFIED BY NURSE^D^^4;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,17,21,0)="^^1^1^2960112^"
^DD(55.01,17,21,1,0)="This is the date the order was acknowledged (through OE/RR) by the nurse."
^DD(55.01,17,"DT")="2960112"
^DD(55.01,31,0)="OTHER PRINT INFO^F^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(55.01,31,1,0)="^.1"
^DD(55.01,31,1,1,0)="55.01^AD^MUMPS"
^DD(55.01,31,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=31 D ENTO^PSIVAL"
^DD(55.01,31,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=31 D ENFR^PSIVAL"
^DD(55.01,31,1,1,"%D",0)="^^1^2920831^"
^DD(55.01,31,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,31,3)="Answer must be 1-60 characters in length."
^DD(55.01,31,20,0)="^.3LA^1^1"
^DD(55.01,31,20,1,0)="PSJI"
^DD(55.01,31,21,0)="^^2^2^2910306^^"
^DD(55.01,31,21,1,0)="  This field is very similar to the REMARKS field except that OTHER INFO"
^DD(55.01,31,21,2,0)="is shown on the label and the IV REPORTS."
^DD(55.01,31,"DT")="2851210"
^DD(55.01,40,0)="ACTIVITY LOG^55.04A^^A;0"
^DD(55.01,40,20,0)="^.3LA^1^1"
^DD(55.01,40,20,1,0)="PSJI"
^DD(55.01,40,21,0)="^^3^3^2970808^^^^"
^DD(55.01,40,21,1,0)="  This is used to record changes made to the IV order. Information "
^DD(55.01,40,21,2,0)="stored includes the date/time of the action, the user who took the"
^DD(55.01,40,21,3,0)="action, and any fields changed."
^DD(55.01,100,0)="STATUS^RS^A:ACTIVE;H:HOLD;R:RENEWED;D:DISCONTINUED;E:EXPIRED;P:PURGE;O:ON CALL;N:NON VERIFIED;^0;17^Q"
^DD(55.01,100,1,0)="^.1"
^DD(55.01,100,1,1,0)="55.01^AL^MUMPS"
^DD(55.01,100,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=100 D ENTO^PSIVAL"
^DD(55.01,100,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=100 D ENFR^PSIVAL"
^DD(55.01,100,1,1,"%D",0)="^^1^2920901^"
^DD(55.01,100,1,1,"%D",1,0)="Used by IV Package."
^DD(55.01,100,1,2,0)="55^ANVO^MUMPS"
^DD(55.01,100,1,2,1)="I $D(DIU(0)) S:X=""N"" ^PS(55,""ANVO"",DA(1),DA)="""""
^DD(55.01,100,1,2,2)="K:X'=""N"" ^PS(55,""ANVO"",DA(1),DA)"
^DD(55.01,100,1,2,"%D",0)="^^1^2920901^"
^DD(55.01,100,1,2,"%D",1,0)="Used by IV Package."
^DD(55.01,100,1,3,0)="55^ADC^MUMPS"
^DD(55.01,100,1,3,1)="S:X=""D""&($D(^PS(55,DA(1),""IV"",DA,""ADC""))) ^PS(55,""ADC"",^PS(55,DA(1),""IV"",DA,""ADC""),DA(1),DA)="""""
^DD(55.01,100,1,3,2)="K:X'=""D""&($D(^PS(55,DA(1),""IV"",DA,""ADC""))) ^PS(55,""ADC"",^PS(55,DA(1),""IV"",DA,""ADC""),DA(1),DA)"
^DD(55.01,100,1,3,3)="This is used by purging options and reports."
^DD(55.01,100,1,3,"%D",0)="^^2^2^2920205^"
^DD(55.01,100,1,3,"%D",1,0)="  This is used to identify DC'ed orders by date. Used by purging functions"
^DD(55.01,100,1,3,"%D",2,0)="and reports."
^DD(55.01,100,1,3,"DT")="2920205"
^DD(55.01,100,20,0)="^.3LA^1^1"
^DD(55.01,100,20,1,0)="PSJI"
^DD(55.01,100,21,0)="^^3^3^2940621^^^^"
^DD(55.01,100,21,1,0)="  Status of order. Enter one of following codes: A for active, H for hold,"
^DD(55.01,100,21,2,0)="R for renewed, D for discontinued, E for expired, P for purge, O for on "
^DD(55.01,100,21,3,0)="call, N for nonverified."
^DD(55.01,100,"DT")="2920722"
^DD(55.01,101,0)="*DOSAGE ORDERED^F^^4;1^K:$L(X)>15!($L(X)<1) X"
^DD(55.01,101,3)="Answer must be 1-15 characters in length."
^DD(55.01,101,20,0)="^.3LA^1^1"
^DD(55.01,101,20,1,0)="PSJI"
^DD(55.01,101,21,0)="^^1^1^2910306^"
^DD(55.01,101,21,1,0)="  This is the dosage prescribed by the physician."
^DD(55.01,101,"DT")="2911008"
^DD(55.01,102,0)="*IV ORDERED^F^^4;3^K:$L(X)>40!($L(X)<1) X"
^DD(55.01,102,3)="Answer must be 1-40 characters in length."
^DD(55.01,102,20,0)="^.3LA^1^1"
^DD(55.01,102,20,1,0)="PSJI"
^DD(55.01,102,21,0)="^^6^6^2910306^^^^"
^DD(55.01,102,21,1,0)="  This field is used only for orders entered through the OE/RR interface."
^DD(55.01,102,21,2,0)="If a hyperal is ordered, this field will contain ""HYPERAL IV ORDER"".  If"
^DD(55.01,102,21,3,0)="an admixture is ordered, it will contain the free text drug name entered, "
^DD(55.01,102,21,4,0)="and may be from 1 to 40 characters long.  If a piggyback is ordered it will "
^DD(55.01,102,21,5,0)="be null, as the drug entered will be an entry in the additives file, and "
^DD(55.01,102,21,6,0)="is stored in the ADDITIVES sub-file (55.02) for the order."
^DD(55.01,102,"DT")="2911008"
^DD(55.01,103,0)="*SPECIAL INSTRUCTIONS^F^^4;2^K:$L(X)>180!($L(X)<1) X"
^DD(55.01,103,3)="Answer must be 1-180 characters in length."
^DD(55.01,103,20,0)="^.3LA^1^1"
^DD(55.01,103,20,1,0)="PSJI"
^DD(55.01,103,21,0)="^^4^4^2940621^^^^"
^DD(55.01,103,21,1,0)="  This field contains any special instructions or messages appropriate for"
^DD(55.01,103,21,2,0)="this IV order.  This field may only be edited when entering an order through"
^DD(55.01,103,21,3,0)="the OE/RR package, and will only be displayed when viewing the order until"
^DD(55.01,103,21,4,0)="the order has been verified."
^DD(55.01,103,"DT")="2911008"
^DD(55.01,104,0)="WARD^NJ3,1X^^0;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""2N.N) X I $S($D(X)[0:0,X=.5:0,1:'$D(^DIC(42,+X,0))) K X"
^DD(55.01,104,3)="Type a Number between 0 and 999, 1 Decimal Digit."
^DD(55.01,104,20,0)="^.3LA^1^1"
^DD(55.01,104,20,1,0)="PSJI"
^DD(55.01,104,21,0)="^^2^2^2910306^^^^"
^DD(55.01,104,21,1,0)="  If the IV is not a outpatient IV, this field will be a pointer to the"
^DD(55.01,104,21,2,0)="ward file 42. If the IV is a outpatient IV, this field will contain a .5"
^DD(55.01,104,"DT")="2901115"
^DD(55.01,105,0)="TOTAL IV'S ADMINISTERED^NJ8,0^^9;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.01,105,3)="Type a Number between 0 and 99999999, 0 Decimal Digits."
^DD(55.01,105,20,0)="^.3LA^1^1"
^DD(55.01,105,20,1,0)="PSJI"
^DD(55.01,105,21,0)="^^2^2^2910306^"
^DD(55.01,105,21,1,0)="  This is the total number of doses of this IV order which have been"
^DD(55.01,105,21,2,0)="administered to the patient."
^DD(55.01,105,"DT")="2881202"
^DD(55.01,106,0)="CHEMOTHERAPY TYPE^RS^A:ADMIXTURE;P:PIGGYBACK;S:SYRINGE;^0;23^Q"
^DD(55.01,106,20,0)="^.3LA^1^1"
^DD(55.01,106,20,1,0)="PSJI"
^DD(55.01,106,21,0)="^^4^4^2910306^"
^DD(55.01,106,21,1,0)="  A chemotherapy IV order may be one of three types: admixture, piggyback,"
^DD(55.01,106,21,2,0)="or syringe.  The type of chemotherapy IV must be identified as one of these"
^DD(55.01,106,21,3,0)="types, so the system will know what kinds of questions to ask in order to"
^DD(55.01,106,21,4,0)="properly complete this order."
^DD(55.01,106,"DT")="2890106"
^DD(55.01,107,0)="SYRINGE SIZE^F^^2;4^K:$L(X)>100!($L(X)<1) X"
^DD(55.01,107,3)="Answer must be 1-100 characters in length.  Example: 25 cc's ..NOTE.. total volume of order should be less than syringe size."
^DD(55.01,107,20,0)="^.3LA^1^1"
^DD(55.01,107,20,1,0)="PSJI"
^DD(55.01,107,21,0)="^^1^1^2910306^"
^DD(55.01,107,21,1,0)="  Enter the size of the syringe which is to be used to administer this IV."
^DD(55.01,107,"DT")="2890103"
^DD(55.01,108,0)="INTERMITTENT SYRINGE^RS^1:YES;0:NO;^0;5^Q"
^DD(55.01,108,20,0)="^.3LA^1^1"
^DD(55.01,108,20,1,0)="PSJI"
^DD(55.01,108,21,0)="^^5^5^2910604^^"
^DD(55.01,108,21,1,0)="  A syringe IV order may be continuous or intermittent.  If a syringe type"
^DD(55.01,108,21,2,0)="is continuous (not intermittent), the same order entry procedure will be"
^DD(55.01,108,21,3,0)="followed as if a hyperal or admixture is being entered.  If a syringe order"
^DD(55.01,108,21,4,0)="is to be intermittent, the same order entry method as the piggback type"
^DD(55.01,108,21,5,0)="will be followed."
^DD(55.01,108,"DT")="2890310"
^DD(55.01,109,0)="DC DATE^D^^ADC;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,109,20,0)="^.3LA^1^1"
^DD(55.01,109,20,1,0)="PSJI"
^DD(55.01,109,21,0)="^^1^1^2940621^^"
^DD(55.01,109,21,1,0)="  This is the date the IV order selected was discontinued."
^DD(55.01,109,"DT")="2890322"
^DD(55.01,110,0)="ORDERS FILE ENTRY^F^^0;21^K:$L(X)>30!($L(X)<1) X"
^DD(55.01,110,3)="Answer must be 1-30 characters in length."
^DD(55.01,110,20,0)="^.3LA^1^1"
^DD(55.01,110,20,1,0)="PSJI"
^DD(55.01,110,21,0)="^^1^1^2960129^^"
^DD(55.01,110,21,1,0)="  This value matches this IV order to its entry in the Order file."
^DD(55.01,110,"DT")="3030717"
^DD(55.01,111,0)="LABEL TRACKING^55.1111A^^LAB;0"
^DD(55.01,111,21,0)="^^2^2^2910313^"
^DD(55.01,111,21,1,0)="  This contains IV label information pertaining to any label action taken"
^DD(55.01,111,21,2,0)="for an IV order."
^DD(55.01,112,0)="ATZERO^S^1:PRINT PB'S ON DEMAND;^0;7^Q"
^DD(55.01,112,21,0)="^^9^9^2910603^^^^"
^DD(55.01,112,21,1,0)="This field is a 1 or a null. It will be a 1 if the IV order is"
^DD(55.01,112,21,2,0)="intermittent and a schedule was entered in the form SCHEDULE@0."
^DD(55.01,112,21,3,0)="Notice the 'NO space' in the input. When I see a schedule entered"
^DD(55.01,112,21,4,0)="in this form, I set this field to one. A 1 means that the user wants"
^DD(55.01,112,21,5,0)="to see these order on the ward list and manufacturing list with"
^DD(55.01,112,21,6,0)="0 doses due. They will not get scheduled labels for these orders"
^DD(55.01,112,21,7,0)="unless they update the ward list first. They can get these labels"
^DD(55.01,112,21,8,0)="from individual order print. This is a 'print on demand function'"
^DD(55.01,112,21,9,0)="just like entering INFUSION RATE@0 for continuous orders."
^DD(55.01,112,"DT")="2900412"
^DD(55.01,113,0)="PREVIOUS ORDER^F^^2;5^K:$L(X)>10!($L(X)<1) X"
^DD(55.01,113,3)="Answer must be 1-10 characters in length."
^DD(55.01,113,21,0)="^^2^2^2920512^^^^"
^DD(55.01,113,21,1,0)="  If an action is taken on an order that causes a new order to be created,"
^DD(55.01,113,21,2,0)="this will contain a code identifying the previous order."
^DD(55.01,113,23,0)="^^13^13^2920512^^^^"
^DD(55.01,113,23,1,0)="  If this field contains a ""N"", it is a pointer to the NONVERIFIED ORDERS"
^DD(55.01,113,23,2,0)="file (53.1). If it contains a ""V"", it is a pointer to the PHARMACY PATIENT"
^DD(55.01,113,23,3,0)="file (55)."
^DD(55.01,113,23,4,0)="  If the order was created as a result of an edit or renew, this field"
^DD(55.01,113,23,5,0)="will contain the order number of the previous order, concatenated with"
^DD(55.01,113,23,6,0)="a letter that denotes the status of the order and the file in which"
^DD(55.01,113,23,7,0)="it is located. The letter concatenated to the order number will be"
^DD(55.01,113,23,8,0)="one of the following:"
^DD(55.01,113,23,9,0)="         U - Unreleased, in 53.1"
^DD(55.01,113,23,10,0)="         P - Pending, in 53.1"
^DD(55.01,113,23,11,0)="         N - Non-Verified, in 53.1"
^DD(55.01,113,23,12,0)="         A - Active UD order, in 55"
^DD(55.01,113,23,13,0)="         V - Active IV order, in 55"
^DD(55.01,113,"DT")="2910805"
^DD(55.01,114,0)="FOLLOWING ORDER^F^^2;6^K:$L(X)>10!($L(X)<1) X"
^DD(55.01,114,3)="Answer must be 1-10 characters in length."
^DD(55.01,114,21,0)="^^3^3^2920512^^^^"
^DD(55.01,114,21,1,0)="  If an action is taken on an order that causes a new order to be created,"
^DD(55.01,114,21,2,0)="this will contain a code identifying the status and location of the new"
^DD(55.01,114,21,3,0)="order."
^DD(55.01,114,23,0)="^^10^10^2920512^^^^"
^DD(55.01,114,23,1,0)="  If an order is created because of an edit or renew, this field will"
^DD(55.01,114,23,2,0)="contain the order number of the following order, concatenated with a"
^DD(55.01,114,23,3,0)="letter that denotes the status and location of the order created."
^DD(55.01,114,23,4,0)="The letter concatenated to the order number will be one of the"
^DD(55.01,114,23,5,0)="following:"
^DD(55.01,114,23,6,0)="           U - Unreleased, in 53.1"
^DD(55.01,114,23,7,0)="           P - Pending, in 53.1"
^DD(55.01,114,23,8,0)="           N - Non-verified, in 53.1"
^DD(55.01,114,23,9,0)="           A - Active UD order, in 55"
^DD(55.01,114,23,10,0)="           V - Active IV order, in 55"
^DD(55.01,114,"DT")="2920319"
^DD(55.01,115,0)="PROVIDER COMMENTS^55.1115^^5;0"
^DD(55.01,115,21,0)="^^2^2^2920219^"
^DD(55.01,115,21,1,0)="  This is any comments about the order that the provider needs to pass"
^DD(55.01,115,21,2,0)="along to the pharmacy and/or ward personnel."
^DD(55.01,116,0)="ORIGINAL STOP DATE^D^^2;7^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,116,21,0)="^^2^2^2920219^^"
^DD(55.01,116,21,1,0)="  When an action is taken on an order that causes the order's original"
^DD(55.01,116,21,2,0)="stop date to be changed, the original stop date is stored in this field."
^DD(55.01,116,23,0)="^^4^4^2920219^^"
^DD(55.01,116,23,1,0)="  This contains the stop date of the order when the order was originally"
^DD(55.01,116,23,2,0)="entered. When an active order is edited, renewed, or discontinued, the"
^DD(55.01,116,23,3,0)="original stop date is moved to this field before the change to the stop"
^DD(55.01,116,23,4,0)="the stop date field is changed."
^DD(55.01,116,"DT")="2910820"
^DD(55.01,117,0)="*PRIMARY DRUG^P50.3'^PS(50.3,^6;1^Q"
^DD(55.01,117,21,0)="^^5^5^2911008^"
^DD(55.01,117,21,1,0)=" Used to store the primary drug entered through OE/RR for Inpatient "
^DD(55.01,117,21,2,0)="Medication IV orders. If the order entered is an Inpatient Medication "
^DD(55.01,117,21,3,0)="IV order, the primary drug is taken from the first additive or solution "
^DD(55.01,117,21,4,0)="entered. The primary drug will be displayed for this order type on the"
^DD(55.01,117,21,5,0)="OE/RR Review Orders screen and other displays used by the clinician."
^DD(55.01,117,23,0)="^^3^3^2911008^"
^DD(55.01,117,23,1,0)="  Stores the primary drug for Inpatient Medication IV orders. If the order"
^DD(55.01,117,23,2,0)="is entered through OE/RR, at least one of the additives or solutions input"
^DD(55.01,117,23,3,0)="by pharmacy when completing the order must be linked to this primary drug."
^DD(55.01,117,"DT")="2960201"
^DD(55.01,118,0)="*DOSAGE ORDERED^F^^6;2^K:$L(X)>20!($L(X)<1) X"
^DD(55.01,118,3)="Answer must be 1-20 characters in length."
^DD(55.01,118,20,0)="^.3LA^1^1"
^DD(55.01,118,20,1,0)="PSJI"
^DD(55.01,118,21,0)="^^2^2^2911008^^"
^DD(55.01,118,21,1,0)="  This is the dosage ordered (strength) for the primary drug entered"
^DD(55.01,118,21,2,0)="for an Inpatient Medication IV order."
^DD(55.01,118,23,0)="^^4^4^2911008^^"
^DD(55.01,118,23,1,0)="  If the order is entered using Pharmacy options, the dosage ordered will"
^DD(55.01,118,23,2,0)="the strength entered for the additive used to get the primary drug for"
^DD(55.01,118,23,3,0)="the order. If the order is entered through the Inpatient Medications "
^DD(55.01,118,23,4,0)="protocol in OE/RR, this will be entered by the user."
^DD(55.01,118,"DT")="2960201"
^DD(55.01,119,0)="*MED ROUTE^P51.2'^PS(51.2,^6;3^Q"
^DD(55.01,119,3)="Enter how this medication will be administered to the patient."
^DD(55.01,119,21,0)="^^2^2^2911008^"
^DD(55.01,119,21,1,0)="  This is the route of administration for this order. This is not required"
^DD(55.01,119,21,2,0)="for IV Fluid orders."
^DD(55.01,119,"DT")="2960201"
^DD(55.01,120,0)="OERR HOLD FLAG^S^1:YES;^0;10^Q"
^DD(55.01,120,20,0)="^.3LA^1^1"
^DD(55.01,120,20,1,0)="PSJ"
^DD(55.01,120,21,0)="^^2^2^2911011^"
^DD(55.01,120,21,1,0)="  If an IV order is placed on hold using OE/RR options, the hold may only"
^DD(55.01,120,21,2,0)="be removed using OE/RR options."
^DD(55.01,120,23,0)="^^2^2^2911011^"
^DD(55.01,120,23,1,0)="  This flag is set when an order is placed on hold through OE/RR. If set,"
^DD(55.01,120,23,2,0)="the order may only be removed from hold through OE/RR."
^DD(55.01,120,"DT")="2911011"
^DD(55.01,121,0)="AUTO DC^S^1:YES;^0;12^Q"
^DD(55.01,121,20,0)="^.3LA^1^1"
^DD(55.01,121,20,1,0)="PSJ"
^DD(55.01,121,21,0)="^^4^4^2911205^^"
^DD(55.01,121,21,1,0)="  This is used to determine if an order was auto-discontinued due to a "
^DD(55.01,121,21,2,0)="patient movement. Only orders that were discontinued in this way may"
^DD(55.01,121,21,3,0)="be reinstated by pharmacy. When reinstated, the status will become"
^DD(55.01,121,21,4,0)="active, and the original stop date will be used."
^DD(55.01,121,23,0)="^^3^3^2911205^^"
^DD(55.01,121,23,1,0)="  This is set by the Inpatient Medications routines (PSJADT*) when an order"
^DD(55.01,121,23,2,0)="is discontinued because of a patient movement. Only orders discontinued in"
^DD(55.01,121,23,3,0)="This allows pharmacy to"
^DD(55.01,121,"DT")="2911205"
^DD(55.01,122,0)="REASON ORDER CREATED^S^N:NEW;R:RENEW;E:EDIT;^2;8^Q"
^DD(55.01,122,21,0)="^^1^1^2920511^^"
^DD(55.01,122,21,1,0)="  This is used to show the method used to create this order."
^DD(55.01,122,21,2,0)="what actions may be taken on the order."
^DD(55.01,122,23,0)="^^3^3^2920511^^"
^DD(55.01,122,23,1,0)="  This shows why the order was created. After an order has been edited or"
^DD(55.01,122,23,2,0)="renewed, the only actions allowed on the order are to discontinue, show"
^DD(55.01,122,23,3,0)="or view the activity log."
^DD(55.01,122,"DT")="2920323"
^DD(55.01,123,0)="REASON FOR FOLLOWING ORDER^S^N:NEW;E:EDIT;R:RENEW;^2;9^Q"
^DD(55.01,123,21,0)="^^2^2^2920319^"
^DD(55.01,123,21,1,0)="  This is used to determine the action taken which caused the creation of"
^DD(55.01,123,21,2,0)="the following order."
^DD(55.01,123,23,0)="^^4^4^2920319^"
^DD(55.01,123,23,1,0)="  This is used to determine the action taken which caused the creation of"
^DD(55.01,123,23,2,0)="the following order. After an order has been edited or renewed, the only"
^DD(55.01,123,23,3,0)="actions allowed are to discontinue, show, or view the order's activity"
^DD(55.01,123,23,4,0)="log."
^DD(55.01,123,"DT")="2920319"
^DD(55.01,128,0)="MAR LABEL DATE^D^^7;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,128,3)="Enter the date and time the latest MAR label for this order was created."
^DD(55.01,128,20,0)="^.3LA^1^1"
^DD(55.01,128,20,1,0)="PSJI"
^DD(55.01,128,21,0)="^^1^1^2931109^"
^DD(55.01,128,21,1,0)="This is the date and time the latest MAR label for this order was created."
^DD(55.01,128,23,0)="^^2^2^2931109^^^"
^DD(55.01,128,23,1,0)="This field is set when an MAR label is generated for the order because of "
^DD(55.01,128,23,2,0)="an action taken on the order."
^DD(55.01,128,"DT")="2931109"
^DD(55.01,129,0)="MAR LABEL REASON^S^E:EDITED;N:NEW;R:RENEWED;D:DISCONTINUED;DE:DISCONTINUED (EDIT);H1:ON HOLD;H0:OFF HOLD;RE:REINSTATED;^7;2^Q"
^DD(55.01,129,3)=" Enter the reason the latest MAR label for this order was created."
^DD(55.01,129,20,0)="^.3LA^1^1"
^DD(55.01,129,20,1,0)="PSJI"
^DD(55.01,129,21,0)="^^2^2^2940630^^^^"
^DD(55.01,129,21,1,0)="This is the last activity to take place on the order that created a label "
^DD(55.01,129,21,2,0)="record."
^DD(55.01,129,23,0)="^^2^2^2940630^^^^"
^DD(55.01,129,23,1,0)="This is set any time an action is taken on the order that causes an MAR"
^DD(55.01,129,23,2,0)="label to be generated."
^DD(55.01,129,"DT")="2940630"
^DD(55.01,130,0)="ORDERABLE ITEM^P50.7'^PS(50.7,^.2;1^Q"
^DD(55.01,130,20,0)="^.3LA^1^1"
^DD(55.01,130,20,1,0)="PSJI"
^DD(55.01,130,21,0)="^^4^4^2950222^^^"
^DD(55.01,130,21,1,0)="This is the Orderable Item associated with the order. If the order is"
^DD(55.01,130,21,2,0)="a unit dose order, all dispense drugs entered must be matched to the"
^DD(55.01,130,21,3,0)="order's primary drug. If the order is an IV, at lest one of the"
^DD(55.01,130,21,4,0)="additives or solutions entered must match the orderable item."
^DD(55.01,130,22)=""
^DD(55.01,130,"DT")="2950222"
^DD(55.01,131,0)="DOSAGE ORDERED^F^^.2;2^K:$L(X)>60!($L(X)<1) X"
^DD(55.01,131,3)="Enter the amount of the drug the patient is to receive as a dose for this order, using 1-60 characters. This is an amount, such as '20MG', and NOT the number of tablets."
^DD(55.01,131,20,0)="^.3LA^1^1"
^DD(55.01,131,20,1,0)="PSJI"
^DD(55.01,131,21,0)="^.001^3^3^3010417^^^^"
^DD(55.01,131,21,1,0)="This is the amount of the medication the patient is to receive as one dose"
^DD(55.01,131,21,2,0)="for this order. This should be an amount with a unit of measure, such as"
^DD(55.01,131,21,3,0)="'500MG' or '50cc'. THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC."
^DD(55.01,131,"DT")="3010417"
^DD(55.01,132,0)="MED ROUTE^P51.2'^PS(51.2,^.2;3^Q"
^DD(55.01,132,3)="Enter how this medication will be administered to the patient."
^DD(55.01,132,20,0)="^.3LA^1^1"
^DD(55.01,132,20,1,0)="PSJI"
^DD(55.01,132,21,0)="^^2^2^2950518^"
^DD(55.01,132,21,1,0)="This is the route of administration for this order. This is not required"
^DD(55.01,132,21,2,0)="for IV Fluid orders."
^DD(55.01,132,"DT")="2950518"
^DD(55.01,133,0)="INSTRUCTIONS^F^^.3;1^K:$L(X)>200!($L(X)<1) X"
^DD(55.01,133,3)="Answer must be 1-200 characters in length."
^DD(55.01,133,"DT")="2950222"
^DD(55.01,134,0)="PRIORITY^S^S:STAT;A:ASAP;R:ROUTINE;P:PREOP;T:TIMING CRITICAL;D:DONE;^.2;4^Q"
^DD(55.01,134,3)="Enter a priority for the processing of this order, if desired."
^DD(55.01,134,21,0)="^^1^1^3020418^"
^DD(55.01,134,21,1,0)="This field contains the priority of the order that was received from OERR."
^DD(55.01,134,"DT")="3010522"
^DD(55.01,135,0)="ENTRY BY^P200'^VA(200,^2;11^Q"
^DD(55.01,135,21,0)="^^1^1^2970722^"
^DD(55.01,135,21,1,0)="This field contains the pointer value for the person entered the IV order."
^DD(55.01,135,"DT")="2970722"
^DD(55.01,136,0)="CLINIC^*P44'^SC(^DSS;1^S DIC(""S"")=""D PSS13^PSSDDUT"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(55.01,136,12)="Entry must be a clinic.  Depending on the condition, INACTIVATE and REACTIVATE dates may exist."
^DD(55.01,136,12.1)="S DIC(""S"")=""D PSS13^PSSDDUT"""
^DD(55.01,136,"DT")="3040729"
^DD(55.01,137,0)="NATURE OF ORDER^S^W:WRITTEN;P:TELEPHONED;V:VERBAL;E:ELECTRONICALLY ENTERED;I:POLICY;S:SERVICE CORRECTION;D:DUPLICATE;^.2;5^Q"
^DD(55.01,137,3)="Enter the method the provider used to communicate the order to the service."
^DD(55.01,137,21,0)="^.001^2^2^3000823^^"
^DD(55.01,137,21,1,0)="This is the method the provider used to communicate the order to the user"
^DD(55.01,137,21,2,0)="to enter (or take any other action on) the order."
^DD(55.01,137,23,0)="^^2^2^3000823^"
^DD(55.01,137,23,1,0)="This is the method the provider used to communicate the order to the user"
^DD(55.01,137,23,2,0)="to enter (or take any other action on) the order."
^DD(55.01,137,"DT")="3000823"
^DD(55.01,138,0)="LAST RENEW^55.1138DA^^14;0"
^DD(55.01,139,0)="APPOINTMENT DATE/TIME^D^^DSS;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(55.01,139,3)="This is the date and time of the appointment this order is being placed for."
^DD(55.01,139,21,0)="^^1^1^3030516^"
^DD(55.01,139,21,1,0)="Date and time of the appointment for this clinic location."
^DD(55.01,139,"DT")="3030516"
^DD(55.01,140,0)="VERIFYING PHARMACIST^P200'^VA(200,^4;4^Q"
^DD(55.01,140,3)="Enter the pharmacist who verified the order."
^DD(55.01,140,21,0)="^^1^1^3010405^"
^DD(55.01,140,21,1,0)="This is the pharmacist who verified the order."
^DD(55.01,140,"DT")="3010405"
^DD(55.01,141,0)="DATE VERIFIED BY PHARMACIST^D^^4;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.01,141,3)="Enter the date/time this order was verified by the pharmacist."
^DD(55.01,141,21,0)="^^1^1^3010405^"
^DD(55.01,141,21,1,0)="This is the date/time the order was verified by the pharmacist."
^DD(55.01,141,"DT")="3010405"
^DD(55.01,142,0)="PV FLAG^S^1:YES;0:NO;^4;9^Q"
^DD(55.01,142,1,0)="^.1"
^DD(55.01,142,1,1,0)="55^AQ^MUMPS"
^DD(55.01,142,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=142 D ENTO^PSIVAL"
^DD(55.01,142,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=142 D ENFR^PSIVAL"
^DD(55.01,142,1,1,"%D",0)="^.101^1^1^3010405^^"
^DD(55.01,142,1,1,"%D",1,0)="This is used by the IV package to log any changes made to this field."
^DD(55.01,142,1,1,"DT")="3010405"
^DD(55.01,142,1,2,0)="55^APIV^MUMPS"
^DD(55.01,142,1,2,1)="K:X ^PS(55,""APIV"",DA(1),DA) S:'X ^PS(55,""APIV"",DA(1),DA)="""""
^DD(55.01,142,1,2,2)="K ^PS(55,""APIV"",DA(1),DA)"
^DD(55.01,142,1,2,"%D",0)="^^2^2^3010405^"
^DD(55.01,142,1,2,"%D",1,0)="This is used to identify orders that have not been verified by a"
^DD(55.01,142,1,2,"%D",2,0)="pharmacist."
^DD(55.01,142,1,2,"DT")="3010405"
^DD(55.01,142,21,0)="^^1^1^3010405^"
^DD(55.01,142,21,1,0)="This is an internal flag set whenever a pharmacist verifies the order."
^DD(55.01,142,"DT")="3010405"
^DD(55.01,143,0)="NV FLAG^S^1:YES;0:NO;^4;10^Q"
^DD(55.01,143,1,0)="^.1"
^DD(55.01,143,1,1,0)="55.01^AM^MUMPS"
^DD(55.01,143,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=143 D ENTO^PSIVAL"
^DD(55.01,143,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.01,PSIVF2=143 D ENFR^PSIVAL"
^DD(55.01,143,1,1,"%D",0)="^^1^1^3010405^"
^DD(55.01,143,1,1,"%D",1,0)="This is used by the IV package to log any changes made to this field."
^DD(55.01,143,1,1,"DT")="3010405"
^DD(55.01,143,1,2,0)="55^ANIV^MUMPS"
^DD(55.01,143,1,2,1)="K:X ^PS(55,""ANIV"",DA(1),DA) S:'X ^PS(55,""ANIV"",DA(1),DA)="""""
^DD(55.01,143,1,2,2)="K ^PS(55,""ANIV"",DA(1),DA)"
^DD(55.01,143,1,2,"%D",0)="^^1^1^3010405^"
^DD(55.01,143,1,2,"%D",1,0)="This is used to identify orders that have not been verified by a nurse."
^DD(55.01,143,1,2,"DT")="3010405"
^DD(55.01,143,21,0)="^^1^1^3010405^"
^DD(55.01,143,21,1,0)="This is an internal flag set whenever a nurse verifies the order."
^DD(55.01,143,"DT")="3010405"
^DD(55.01,144,0)="BCMA STATUS^S^I:INFUSING;S:STOP;H:HELD;R:REFUSED;C:COMPLETED;G:GIVEN;^9;4^Q"
^DD(55.01,144,3)="Enter the latest BCMA Status for this order."
^DD(55.01,144,21,0)="^^1^1^3010412^"
^DD(55.01,144,21,1,0)="This is the latest BCMA Status for this order."
^DD(55.01,144,"DT")="3010412"
^DD(55.01,145,0)="BCMAID^F^^9;5^K:$L(X)>50!($L(X)<1) X"
^DD(55.01,145,3)="Answer must be 1-50 characters in length."
^DD(55.01,145,21,0)="^^1^1^3010517^"
^DD(55.01,145,21,1,0)="This is the unique barcode ID in the format DFN_""V""_ID# ex: 740V1."
^DD(55.01,145,"DT")="3010517"
^DD(55.01,146,0)="SI/OPI FLAG^S^1:YES;^3;2^Q"
^DD(55.01,146,3)="Enter 1 for yes."
^DD(55.01,146,21,0)="^.001^2^2^3010522^^"
^DD(55.01,146,21,1,0)="This flag controls whether the user administering this order in BCMA will"
^DD(55.01,146,21,2,0)="have the Other Print Info displayed in a pop-up box."
^DD(55.01,146,"DT")="3010522"
^DD(55.01,147,0)="BCMA EXPIRED FLAG^S^0:NO;1:YES;^0;24^Q"
^DD(55.01,147,20,0)="^.3LA^1^1"
^DD(55.01,147,20,1,0)="PSJ"
^DD(55.01,147,21,0)="^.001^5^5^3010705^^"
^DD(55.01,147,21,1,0)="This is an internal flag to indicate the order was expired at the"
^DD(55.01,147,21,2,0)="request of the Bar Code Medication Administration (BCMA) package. If the"
^DD(55.01,147,21,3,0)="flag is set to 1, then BCMA requested Inpatient Medications expire the"
^DD(55.01,147,21,4,0)="order.  Only orders with the flag set to 1 can be reinstated by a BCMA"
^DD(55.01,147,21,5,0)="reinstate request."
^DD(55.01,147,"DT")="3010705"
^DD(55.01,148,0)="FLAGGED^S^0:NO;1:YES;^.2;7^Q"
^DD(55.01,148,3)="Enter YES if this order is being flagged for clarification"
^DD(55.01,148,21,0)="^^1^1^3020716^"
^DD(55.01,148,21,1,0)="This indicates that this order has been flagged for clarification."
^DD(55.01,148,"DT")="3020702"
^DD(55.01,149,0)="HOLD FLAG^S^0:OFF HOLD;1:ON HOLD;^4;18^Q"
^DD(55.01,149,21,0)="^^2^2^3020823^"
^DD(55.01,149,21,1,0)="This is a flag set to 1 whenever the order is placed on HOLD or 0 whenever"
^DD(55.01,149,21,2,0)="the order is removed from hold."
^DD(55.01,149,"DT")="3020823"
^DD(55.01,150,0)="ORDERS FILE PARENT ORDER^F^^.2;8^K:$L(X)>30!($L(X)<1) X"
^DD(55.01,150,3)="Enter the parent, if this order is its child."
^DD(55.01,150,21,0)="^.001^2^2^3030530^^^^"
^DD(55.01,150,21,1,0)="This is the parent of an order that may have a parent/child relationship "
^DD(55.01,150,21,2,0)="in CPRS."
^DD(55.01,150,"DT")="3030530"
^DD(55.01,151,0)="REQUESTED DURATION^F^^2.5;2^K:$L(X)>8!($L(X)<2) X"
^DD(55.01,151,3)="Answer must be 2-8 characters in length"
^DD(55.01,151,21,0)="^.001^12^12^3030530^^^"
^DD(55.01,151,21,1,0)="The duration of an order as requested by the ordering clinician in CPRS."
^DD(55.01,151,21,2,0)="The duration is stored as one of the following upper case letters followed"
^DD(55.01,151,21,3,0)="by an integer: "
^DD(55.01,151,21,4,0)=" "
^DD(55.01,151,21,5,0)=" L - Months"
^DD(55.01,151,21,6,0)=" W - Weeks"
^DD(55.01,151,21,7,0)=" D - Days"
^DD(55.01,151,21,8,0)=" H - Hours"
^DD(55.01,151,21,9,0)=" M - Minutes"
^DD(55.01,151,21,10,0)=" S - Seconds"
^DD(55.01,151,21,11,0)=" "
^DD(55.01,151,21,12,0)="Example: D6 = Six days. "
^DD(55.01,151,"DT")="3030521"
^DD(55.01,152,0)="REQUESTED IV LIMITATION^F^^2.5;4^K:$L(X)>7!($L(X)<2)!'(X?1.2A1.5N) X"
^DD(55.01,152,3)="Answer must be 2-7 characters in length."
^DD(55.01,152,21,0)="^^3^3^3041115^"
^DD(55.01,152,21,1,0)="This is the length of time to administer, or the total volume "
^DD(55.01,152,21,2,0)="to administer, for IV fluid orders. The value may be in ML or CC for"
^DD(55.01,152,21,3,0)="milliliters, L for liters, D for days, or H for hours."
^DD(55.01,152,"DT")="3041115"
^DD(55.01,"B","*DOSAGE ORDERED",101)=""
^DD(55.01,"B","*DOSAGE ORDERED",118)=""
^DD(55.01,"B","*ENTRY CODE",.23)=""
^DD(55.01,"B","*IV ORDERED",102)=""
^DD(55.01,"B","*MED ROUTE",119)=""
^DD(55.01,"B","*PRIMARY DRUG",117)=""
^DD(55.01,"B","*SPECIAL INSTRUCTIONS",103)=""
^DD(55.01,"B","ACTIVITY LOG",40)=""
^DD(55.01,"B","ADDITIVE",1)=""
^DD(55.01,"B","ADMINISTRATION TIMES",.12)=""
^DD(55.01,"B","APPOINTMENT DATE/TIME",139)=""
^DD(55.01,"B","ATZERO",112)=""
^DD(55.01,"B","AUTO DC",121)=""
^DD(55.01,"B","BCMA EXPIRED FLAG",147)=""
^DD(55.01,"B","BCMA STATUS",144)=""
^DD(55.01,"B","BCMAID",145)=""
^DD(55.01,"B","CHEMOTHERAPY TYPE",106)=""
^DD(55.01,"B","CLINIC",136)=""
^DD(55.01,"B","CUMULATIVE DOSES",.24)=""
^DD(55.01,"B","DATE VERIFIED BY NURSE",17)=""
^DD(55.01,"B","DATE VERIFIED BY PHARMACIST",141)=""
^DD(55.01,"B","DC DATE",109)=""
^DD(55.01,"B","DOSAGE ORDERED",131)=""
^DD(55.01,"B","ENTRY BY",135)=""
^DD(55.01,"B","FLAGGED",148)=""
^DD(55.01,"B","FOLLOWING ORDER",114)=""
^DD(55.01,"B","HOLD FLAG",149)=""
^DD(55.01,"B","INFUSION RATE",.08)=""
^DD(55.01,"B","INSTRUCTIONS",133)=""
^DD(55.01,"B","INTERMITTENT SYRINGE",108)=""
^DD(55.01,"B","IV ROOM",.22)=""
^DD(55.01,"B","LABEL TRACKING",111)=""
^DD(55.01,"B","LAST FILL",.15)=""
^DD(55.01,"B","LAST QTY FILLED",.16)=""
^DD(55.01,"B","LAST RENEW",138)=""
^DD(55.01,"B","LOGIN DATE/TIME",.21)=""
^DD(55.01,"B","MAR LABEL DATE",128)=""
^DD(55.01,"B","MAR LABEL REASON",129)=""
^DD(55.01,"B","MED ROUTE",132)=""
^DD(55.01,"B","NATURE OF ORDER",137)=""
^DD(55.01,"B","NV FLAG",143)=""
^DD(55.01,"B","OERR HOLD FLAG",120)=""
^DD(55.01,"B","ORDER NUMBER",.01)=""
^DD(55.01,"B","ORDERABLE ITEM",130)=""
^DD(55.01,"B","ORDERS FILE ENTRY",110)=""
^DD(55.01,"B","ORDERS FILE PARENT ORDER",150)=""
^DD(55.01,"B","ORIGINAL STOP DATE",116)=""
^DD(55.01,"B","ORIGINAL WARD",9)=""
^DD(55.01,"B","OTHER PRINT INFO",31)=""
^DD(55.01,"B","PREVIOUS ORDER",113)=""
^DD(55.01,"B","PRIORITY",134)=""
^DD(55.01,"B","PROVIDER",.06)=""
^DD(55.01,"B","PROVIDER COMMENTS",115)=""
^DD(55.01,"B","PV FLAG",142)=""
^DD(55.01,"B","REASON FOR FOLLOWING ORDER",123)=""
^DD(55.01,"B","REASON ORDER CREATED",122)=""
^DD(55.01,"B","REMARKS",.1)=""
^DD(55.01,"B","REQUESTED DURATION",151)=""
^DD(55.01,"B","REQUESTED IV LIMITATION",152)=""
^DD(55.01,"B","SCHEDULE",.09)=""
^DD(55.01,"B","SCHEDULE INTERVAL",.17)=""
^DD(55.01,"B","SI/OPI FLAG",146)=""
^DD(55.01,"B","SOLUTION",3)=""
^DD(55.01,"B","START DATE/TIME",.02)=""
^DD(55.01,"B","STATUS",100)=""
^DD(55.01,"B","STOP DATE/TIME",.03)=""
^DD(55.01,"B","SYRINGE SIZE",107)=""
^DD(55.01,"B","TOTAL IV'S ADMINISTERED",105)=""
^DD(55.01,"B","TYPE",.04)=""
^DD(55.01,"B","VERIFYING NURSE",16)=""
^DD(55.01,"B","VERIFYING PHARMACIST",140)=""
^DD(55.01,"B","WARD",104)=""
^DD(55.01,"GL",0,1,.01)=""
^DD(55.01,"GL",0,2,.02)=""
^DD(55.01,"GL",0,3,.03)=""
^DD(55.01,"GL",0,4,.04)=""
^DD(55.01,"GL",0,5,108)=""
^DD(55.01,"GL",0,6,.06)=""
^DD(55.01,"GL",0,7,112)=""
^DD(55.01,"GL",0,8,.08)=""
^DD(55.01,"GL",0,9,.09)=""
^DD(55.01,"GL",0,10,120)=""
^DD(55.01,"GL",0,11,.12)=""
^DD(55.01,"GL",0,12,121)=""
^DD(55.01,"GL",0,15,.17)=""
^DD(55.01,"GL",0,16,.24)=""
^DD(55.01,"GL",0,17,100)=""
^DD(55.01,"GL",0,21,110)=""
^DD(55.01,"GL",0,22,104)=""
^DD(55.01,"GL",0,23,106)=""
^DD(55.01,"GL",0,24,147)=""
^DD(55.01,"GL",.2,1,130)=""
^DD(55.01,"GL",.2,2,131)=""
^DD(55.01,"GL",.2,3,132)=""
^DD(55.01,"GL",.2,4,134)=""
^DD(55.01,"GL",.2,5,137)=""
^DD(55.01,"GL",.2,7,148)=""
^DD(55.01,"GL",.2,8,150)=""
^DD(55.01,"GL",.3,1,133)=""
^DD(55.01,"GL",1,1,.1)=""
^DD(55.01,"GL",2,1,.21)=""
^DD(55.01,"GL",2,2,.22)=""
^DD(55.01,"GL",2,3,.23)=""
^DD(55.01,"GL",2,4,107)=""
^DD(55.01,"GL",2,5,113)=""
^DD(55.01,"GL",2,6,114)=""
^DD(55.01,"GL",2,7,116)=""
^DD(55.01,"GL",2,8,122)=""
^DD(55.01,"GL",2,9,123)=""
^DD(55.01,"GL",2,10,9)=""
^DD(55.01,"GL",2,11,135)=""
^DD(55.01,"GL",2.5,2,151)=""
^DD(55.01,"GL",2.5,4,152)=""
^DD(55.01,"GL",3,1,31)=""
^DD(55.01,"GL",3,2,146)=""
^DD(55.01,"GL",4,1,16)=""
^DD(55.01,"GL",4,1,101)=""
^DD(55.01,"GL",4,2,17)=""
^DD(55.01,"GL",4,2,103)=""
^DD(55.01,"GL",4,3,102)=""
^DD(55.01,"GL",4,4,140)=""
^DD(55.01,"GL",4,5,141)=""
^DD(55.01,"GL",4,9,142)=""
^DD(55.01,"GL",4,10,143)=""
^DD(55.01,"GL",4,18,149)=""
^DD(55.01,"GL",5,0,115)=""
^DD(55.01,"GL",6,1,117)=""
^DD(55.01,"GL",6,2,118)=""
^DD(55.01,"GL",6,3,119)=""
^DD(55.01,"GL",7,1,128)=""
^DD(55.01,"GL",7,2,129)=""
^DD(55.01,"GL",9,1,.15)=""
^DD(55.01,"GL",9,2,.16)=""
^DD(55.01,"GL",9,3,105)=""
^DD(55.01,"GL",9,4,144)=""
^DD(55.01,"GL",9,5,145)=""
^DD(55.01,"GL",14,0,138)=""
^DD(55.01,"GL","A",0,40)=""
^DD(55.01,"GL","AD",0,1)=""
^DD(55.01,"GL","ADC",1,109)=""
^DD(55.01,"GL","DSS",1,136)=""
^DD(55.01,"GL","DSS",2,139)=""
^DD(55.01,"GL","LAB",0,111)=""
^DD(55.01,"GL","SOL",0,3)=""
^DD(55.01,"GR","PSJ",120,1)=""
^DD(55.01,"GR","PSJ",121,1)=""
^DD(55.01,"GR","PSJ",147,1)=""
^DD(55.01,"GR","PSJI",.01,1)=""
^DD(55.01,"GR","PSJI",.02,1)=""
^DD(55.01,"GR","PSJI",.03,1)=""
^DD(55.01,"GR","PSJI",.04,1)=""
^DD(55.01,"GR","PSJI",.06,1)=""
^DD(55.01,"GR","PSJI",.08,1)=""
^DD(55.01,"GR","PSJI",.09,1)=""
^DD(55.01,"GR","PSJI",.1,1)=""
^DD(55.01,"GR","PSJI",.12,1)=""
^DD(55.01,"GR","PSJI",.15,1)=""
^DD(55.01,"GR","PSJI",.16,1)=""
^DD(55.01,"GR","PSJI",.17,1)=""
^DD(55.01,"GR","PSJI",.21,1)=""
^DD(55.01,"GR","PSJI",.22,1)=""
^DD(55.01,"GR","PSJI",.23,1)=""
^DD(55.01,"GR","PSJI",.24,1)=""
^DD(55.01,"GR","PSJI",1,1)=""
^DD(55.01,"GR","PSJI",3,1)=""
^DD(55.01,"GR","PSJI",9,1)=""
^DD(55.01,"GR","PSJI",31,1)=""
^DD(55.01,"GR","PSJI",40,1)=""
^DD(55.01,"GR","PSJI",100,1)=""
^DD(55.01,"GR","PSJI",101,1)=""
^DD(55.01,"GR","PSJI",102,1)=""
^DD(55.01,"GR","PSJI",103,1)=""
^DD(55.01,"GR","PSJI",104,1)=""
^DD(55.01,"GR","PSJI",105,1)=""
^DD(55.01,"GR","PSJI",106,1)=""
^DD(55.01,"GR","PSJI",107,1)=""
^DD(55.01,"GR","PSJI",108,1)=""
^DD(55.01,"GR","PSJI",109,1)=""
^DD(55.01,"GR","PSJI",110,1)=""
^DD(55.01,"GR","PSJI",118,1)=""
^DD(55.01,"GR","PSJI",128,1)=""
^DD(55.01,"GR","PSJI",129,1)=""
^DD(55.01,"GR","PSJI",130,1)=""
^DD(55.01,"GR","PSJI",131,1)=""
^DD(55.01,"GR","PSJI",132,1)=""
^DD(55.01,"IX",.01)=""
^DD(55.01,"IX",.02)=""
^DD(55.01,"IX",.03)=""
^DD(55.01,"IX",.04)=""
^DD(55.01,"IX",.06)=""
^DD(55.01,"IX",.08)=""
^DD(55.01,"IX",.09)=""
^DD(55.01,"IX",.1)=""
^DD(55.01,"IX",.12)=""
^DD(55.01,"IX",31)=""
^DD(55.01,"IX",100)=""
^DD(55.01,"IX",142)=""
^DD(55.01,"IX",143)=""
^DD(55.01,"RQ",.01)=""
^DD(55.01,"RQ",.02)=""
^DD(55.01,"RQ",.03)=""
^DD(55.01,"RQ",.04)=""
^DD(55.01,"RQ",.06)=""
^DD(55.01,"RQ",.22)=""
^DD(55.01,"RQ",100)=""
^DD(55.01,"RQ",106)=""
^DD(55.01,"RQ",108)=""
^DD(55.01,"SB",55.02,1)=""
^DD(55.01,"SB",55.04,40)=""
^DD(55.01,"SB",55.11,3)=""
^DD(55.01,"SB",55.1111,111)=""
^DD(55.01,"SB",55.1115,115)=""
^DD(55.01,"SB",55.1138,138)=""
^DD(55.0105,0)="BCMA ID SUB-FIELD^^8^10"
^DD(55.0105,0,"DIK")="PSSJXR"
^DD(55.0105,0,"DT")="3010517"
^DD(55.0105,0,"IX","BCMA",55.0105,.02)=""
^DD(55.0105,0,"NM","BCMA ID")=""
^DD(55.0105,0,"UP")="55"
^DD(55.0105,.01,0)="BCMA ID^F^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(55.0105,.01,1,0)="^.1^^0"
^DD(55.0105,.01,3)="Answer must be 1-50 characters in length."
^DD(55.0105,.01,21,0)="^^1^1^3010517^"
^DD(55.0105,.01,21,1,0)="This is the unique barcode ID in the format DFN_""V""_ID# ex: 740V1."
^DD(55.0105,.01,"DT")="3010518"
^DD(55.0105,.02,0)="ON^NJ8,0^^0;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(55.0105,.02,1,0)="^.1"
^DD(55.0105,.02,1,1,0)="55.0105^BCMA^MUMPS"
^DD(55.0105,.02,1,1,1)="S ^PS(55,DA(1),""IV"",X,""BCMA"",DA)="""""
^DD(55.0105,.02,1,1,2)="K ^PS(55,DA(1),""IV"",X,""BCMA"",DA)"
^DD(55.0105,.02,1,1,"%D",0)="^^2^2^3010518^"
^DD(55.0105,.02,1,1,"%D",1,0)="This cross reference is used by the Inpatient Medications package to"
^DD(55.0105,.02,1,1,"%D",2,0)="look-up BCMA IDs for a given order."
^DD(55.0105,.02,1,1,"DT")="3010518"
^DD(55.0105,.02,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(55.0105,.02,21,0)="^.001^2^2^3010926^^"
^DD(55.0105,.02,21,1,0)="This is the order number for this patient that this BCMA ID is currently"
^DD(55.0105,.02,21,2,0)="associated with."
^DD(55.0105,.02,"DT")="3010518"
^DD(55.0105,1,0)="BCMA STATUS DATE/TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.0105,1,3)="Enter the Date/Time the action was taken on this lable in BCMA."
^DD(55.0105,1,21,0)="^.001^1^1^3010926^^"
^DD(55.0105,1,21,1,0)="This is the Date/Time the action was taken on this label in BCMA."
^DD(55.0105,1,"DT")="3010517"
^DD(55.0105,2,0)="BCMA STATUS^S^C:COMPLETED;G:GIVEN;H:HELD;M:MISSING;R:REFUSED;S:STOP;I:INFUSING;^0;4^Q"
^DD(55.0105,2,3)="Enter the BCMA Status for this label."
^DD(55.0105,2,21,0)="^^1^1^3010517^"
^DD(55.0105,2,21,1,0)="This is the BCMA Status assigned to this label by the BCMA software."
^DD(55.0105,2,"DT")="3010517"
^DD(55.0105,3,0)="USAGE COUNT^S^0:NO COUNT;1:COUNT;^0;5^Q"
^DD(55.0105,3,3)="Enter 1 if this label should be counted as usage, enter 0 if not."
^DD(55.0105,3,21,0)="^^2^2^3010517^"
^DD(55.0105,3,21,1,0)="This is a flag to tell whether or not this label should be counted as"
^DD(55.0105,3,21,2,0)="usage, 1 means count, 0 means no count."
^DD(55.0105,3,"DT")="3010517"
^DD(55.0105,4,0)="LABEL DATE^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.0105,4,3)="Enter the Date/Time this label was created."
^DD(55.0105,4,21,0)="^^1^1^3010517^"
^DD(55.0105,4,21,1,0)="This is the Date/Time this label was created."
^DD(55.0105,4,"DT")="3010517"
^DD(55.0105,5,0)="LABEL STATUS^S^RP:REPRINTED;RC:RECYCLED;CA:CANCELLED;DT:DESTROYED;^0;7^Q"
^DD(55.0105,5,3)="Enter the Inpatient Medications status for this label."
^DD(55.0105,5,21,0)="^^1^1^3010517^"
^DD(55.0105,5,21,1,0)="This is the status of this label in Inpatient Medications."
^DD(55.0105,5,"DT")="3010517"
^DD(55.0105,6,0)="BAG #^F^^0;8^K:$L(X)>12!($L(X)<4) X"
^DD(55.0105,6,3)="Answer must be 4-12 characters in length, and should be in the format 1[4], where 1 would be the first of 4 bags."
^DD(55.0105,6,21,0)="^^2^2^3010517^"
^DD(55.0105,6,21,1,0)="This identifies which bag of the total number of bags for the day this bag"
^DD(55.0105,6,21,2,0)="is.  Ex. 1[4] means 1 of 4 bags that will be used that day."
^DD(55.0105,6,"DT")="3010517"
^DD(55.0105,7,0)="ADDITIVE^55.1057PA^^AD;0"
^DD(55.0105,7,21,0)="^^2^2^3020418^"
^DD(55.0105,7,21,1,0)="This multiple contains the additives associated with this IV order in the "
^DD(55.0105,7,21,2,0)="form of pointers to the IV Additive file (#52.6)"
^DD(55.0105,8,0)="SOLUTION^55.1058PA^^SOL;0"
^DD(55.0105,8,21,0)="^^2^2^3020418^"
^DD(55.0105,8,21,1,0)="This multiple contains the solutions associated with this IV order in the "
^DD(55.0105,8,21,2,0)="form of pointers to the IV Solutions file (#52.7)"
^DD(55.0105,"B","ADDITIVE",7)=""
^DD(55.0105,"B","BAG #",6)=""
^DD(55.0105,"B","BCMA ID",.01)=""
^DD(55.0105,"B","BCMA STATUS",2)=""
^DD(55.0105,"B","BCMA STATUS DATE/TIME",1)=""
^DD(55.0105,"B","LABEL DATE",4)=""
^DD(55.0105,"B","LABEL STATUS",5)=""
^DD(55.0105,"B","ON",.02)=""
^DD(55.0105,"B","SOLUTION",8)=""
^DD(55.0105,"B","USAGE COUNT",3)=""
^DD(55.0105,"GL",0,1,.01)=""
^DD(55.0105,"GL",0,2,.02)=""
^DD(55.0105,"GL",0,3,1)=""
^DD(55.0105,"GL",0,4,2)=""
^DD(55.0105,"GL",0,5,3)=""
^DD(55.0105,"GL",0,6,4)=""
^DD(55.0105,"GL",0,7,5)=""
^DD(55.0105,"GL",0,8,6)=""
^DD(55.0105,"GL","AD",0,7)=""
^DD(55.0105,"GL","SOL",0,8)=""
^DD(55.0105,"IX",.02)=""
^DD(55.0105,"SB",55.1057,7)=""
^DD(55.0105,"SB",55.1058,8)=""
^DD(55.0108,0)="SCRIPTALK ENROLLMENT ACTIVITY SUB-FIELD^^3^4"
^DD(55.0108,0,"DIK")="PSSJXR"
^DD(55.0108,0,"DT")="3030603"
^DD(55.0108,0,"IX","ASTALK",55.0108,1)=""
^DD(55.0108,0,"NM","SCRIPTALK ENROLLMENT ACTIVITY")=""
^DD(55.0108,0,"UP")="55"
^DD(55.0108,.01,0)="SCRIPTALK ENROLLMENT ACTIVITY^MD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:X<1 X"
^DD(55.0108,.01,1,0)="^.1^^0"
^DD(55.0108,.01,3)="(No range limit on date)"
^DD(55.0108,.01,21,0)="^^2^2^3030603^"
^DD(55.0108,.01,21,1,0)="Date that the patient was enrolled or the enrollment was changed for this "
^DD(55.0108,.01,21,2,0)="patient."
^DD(55.0108,.01,"DT")="3030603"
^DD(55.0108,1,0)="SCRIPTALK PATIENT^S^1:YES;0:NO;^0;2^Q"
^DD(55.0108,1,1,0)="^.1"
^DD(55.0108,1,1,1,0)="55.0108^ASTALK^MUMPS"
^DD(55.0108,1,1,1,1)="S ^PS(55,""ASTALK"",DA(1))=X"
^DD(55.0108,1,1,1,2)="Q"
^DD(55.0108,1,1,1,"%D",0)="^.101^3^3^3030614^^^"
^DD(55.0108,1,1,1,"%D",1,0)="This cross-reference is used to keep the current values of the ScripTalk "
^DD(55.0108,1,1,1,"%D",2,0)="enrollment for patients who have been enrolled to receive ScripTalk "
^DD(55.0108,1,1,1,"%D",3,0)="""talking"" prescription labels."
^DD(55.0108,1,1,1,"DT")="3030614"
^DD(55.0108,1,3)="Answer is Yes if patient is enrolled for ScripTalk"
^DD(55.0108,1,21,0)="^^2^2^3030603^"
^DD(55.0108,1,21,1,0)="If the patient is enrolled for ScripTalk, the enrollment status is 1 "
^DD(55.0108,1,21,2,0)="(Yes)."
^DD(55.0108,1,"DT")="3030614"
^DD(55.0108,2,0)="INDICATION^S^B:BLIND VETERAN;L:LOW VISION;^0;3^Q"
^DD(55.0108,2,3)="Reason patient is marked as a ScripTalk patient - B=blind L=low vision"
^DD(55.0108,2,21,0)="^^2^2^3030603^"
^DD(55.0108,2,21,1,0)="This field contains the indication for being enrolled for ScripTalk. "
^DD(55.0108,2,21,2,0)="B=Blind veteran; L=low vision."
^DD(55.0108,2,"DT")="3030603"
^DD(55.0108,3,0)="USER^P200'^VA(200,^0;4^Q"
^DD(55.0108,3,3)="User who edited the ScripTalk entry for this patient."
^DD(55.0108,3,21,0)="^^2^2^3030603^"
^DD(55.0108,3,21,1,0)="This field contains the person who enrolled or updated the enrollment of "
^DD(55.0108,3,21,2,0)="a ScripTalk patient."
^DD(55.0108,3,"DT")="3030603"
^DD(55.0108,"B","INDICATION",2)=""
^DD(55.0108,"B","SCRIPTALK ENROLLMENT ACTIVITY",.01)=""
^DD(55.0108,"B","SCRIPTALK PATIENT",1)=""
^DD(55.0108,"B","USER",3)=""
^DD(55.0108,"GL",0,1,.01)=""
^DD(55.0108,"GL",0,2,1)=""
^DD(55.0108,"GL",0,3,2)=""
^DD(55.0108,"GL",0,4,3)=""
^DD(55.0108,"IX",1)=""
^DD(55.02,0)="ADDITIVE SUB-FIELD^NL^.03^3"
^DD(55.02,0,"DIK")="PSSJXR"
^DD(55.02,0,"IX","AC",55.02,.01)=""
^DD(55.02,0,"IX","AD",55.02,.02)=""
^DD(55.02,0,"IX","AE",55.02,.03)=""
^DD(55.02,0,"NM","ADDITIVE")=""
^DD(55.02,0,"UP")="55.01"
^DD(55.02,.01,0)="ADDITIVE^M*P52.6'X^PS(52.6,^0;1^S PSIVX=X,DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(55.02,.01,1,0)="^.1"
^DD(55.02,.01,1,1,0)="55.02^AC^MUMPS"
^DD(55.02,.01,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENTO^PSIVAL"
^DD(55.02,.01,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.01 D ENFR^PSIVAL"
^DD(55.02,.01,1,1,"%D",0)="^^1^2920901^"
^DD(55.02,.01,1,1,"%D",1,0)="Used by IV Package."
^DD(55.02,.01,4)="S DIC(""W"")=""I 1 D ENQUI^PSIV"""
^DD(55.02,.01,12)="Choose an additive, an additive's synonym, or an additive's quick code."
^DD(55.02,.01,12.1)="S PSIVX=X,DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"""
^DD(55.02,.01,20,0)="^.3LA^1^1"
^DD(55.02,.01,20,1,0)="PSJI"
^DD(55.02,.01,21,0)="^^2^2^2910306^"
^DD(55.02,.01,21,1,0)="  This is the additive which was selected as part of the IV order.  This"
^DD(55.02,.01,21,2,0)="entry is a pointer to the ADDITIVES file (52.6)."
^DD(55.02,.01,"DT")="2871123"
^DD(55.02,.02,0)="STRENGTH^RFX^^0;2^K:X'?.6N.""."".8N!(X<0) X I $D(X) D ENU^PSIV S X=X_"" ""_PSIVSTR W "" "",PSIVSTR"
^DD(55.02,.02,1,0)="^.1"
^DD(55.02,.02,1,1,0)="55.02^AD^MUMPS"
^DD(55.02,.02,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENTO^PSIVAL"
^DD(55.02,.02,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.02,PSIVF2=.02 D ENFR^PSIVAL"
^DD(55.02,.02,1,1,"%D",0)="^^1^2920901^"
^DD(55.02,.02,1,1,"%D",1,0)="Used by IV Package."
^DD(55.02,.02,3)=""
^DD(55.02,.02,4)="D:X=""??"" ENTDRG^PSIVDRG D ENU^PSIV W !,""Enter the strength""_$S($D(PSIVSTR):"" in ""_PSIVSTR_""'s"",1:"""")_"".  Enter only a number."",!"
^DD(55.02,.02,20,0)="^.3LA^1^1"
^DD(55.02,.02,20,1,0)="PSJI"
^DD(55.02,.02,21,0)="^^6^6^2920612^^^^"
^DD(55.02,.02,21,1,0)="  'STRENGTH' is the amount of an additive that is used in the manufacturing"
^DD(55.02,.02,21,2,0)="of the IV order.  NOTE!  You'll be expected to use the strength units"
^DD(55.02,.02,21,3,0)="that have been previously defined within the additive file (52.6) for each"
^DD(55.02,.02,21,4,0)="additive.  That is to say, if the additive file expects AMPICILLIN to be"
^DD(55.02,.02,21,5,0)="dispensed in 'GMS', it would not be correct for you to enter '500' for a"
^DD(55.02,.02,21,6,0)="half-gram dose -- enter 0.5 instead."
^DD(55.02,.02,"DT")="2900321"
^DD(55.02,.03,0)="BOTTLE^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X F PSIV=1:1 Q:'$D(X)  Q:PSIV>$L(X,"","")  K:$P(X,"","",PSIV)'?1N.N X"
^DD(55.02,.03,1,0)="^.1"
^DD(55.02,.03,1,1,0)="55.02^AE^MUMPS"
^DD(55.02,.03,1,1,1)="Q:$D(PSIVACT)  S PSIVF1=55.02,PSIVF2=.03 D ENTO^PSIVAL"
^DD(55.02,.03,1,1,2)="Q:$D(PSIVACT)  S PSIVF1=55.02,PSIVF2=.03 D ENFR^PSIVAL"
^DD(55.02,.03,1,1,"%D",0)="^^1^2920901^"
^DD(55.02,.03,1,1,"%D",1,0)="Used by IV Package."
^DD(55.02,.03,3)="Enter the bottle #'s that this additive will be in.  (Ex. '1' or '1,3' or       <return> for all bottles)"
^DD(55.02,.03,4)=""
^DD(55.02,.03,20,0)="^.3LA^1^1"
^DD(55.02,.03,20,1,0)="PSJI"
^DD(55.02,.03,21,0)="^^2^2^2910306^"
^DD(55.02,.03,21,1,0)="  Enter the bottle no.(s) in which this additive will be included in for"
^DD(55.02,.03,21,2,0)="this IV order."
^DD(55.02,.03,"DT")="2851118"
^DD(55.02,"B","ADDITIVE",.01)=""
^DD(55.02,"B","BOTTLE",.03)=""
^DD(55.02,"B","STRENGTH",.02)=""
^DD(55.02,"GL",0,1,.01)=""
^DD(55.02,"GL",0,2,.02)=""
^DD(55.02,"GL",0,3,.03)=""
^DD(55.02,"GR","PSJI",.01,1)=""
^DD(55.02,"GR","PSJI",.02,1)=""
^DD(55.02,"GR","PSJI",.03,1)=""
^DD(55.02,"IX",.01)=""
^DD(55.02,"IX",.02)=""
^DD(55.02,"IX",.03)=""
^DD(55.02,"RQ",.02)=""
^DD(55.03,0)="PRESCRIPTION PROFILE SUB-FIELD^NL^3^4"
^DD(55.03,0,"DIK")="PSSJXR"
^DD(55.03,0,"IX","A",55.03,.01)=""
^DD(55.03,0,"NM","PRESCRIPTION PROFILE")=""
^DD(55.03,0,"UP")="55"
^DD(55.03,.01,0)="PRESCRIPTION PROFILE^P52'^PSRX(^0;1^Q"
^DD(55.03,.01,1,0)="^.1"
^DD(55.03,.01,1,1,0)="55.03^A^MUMPS"
^DD(55.03,.01,1,1,1)="D SREF^PSOHELP1"
^DD(55.03,.01,1,1,2)="D KREF^PSOHELP1"
^DD(55.03,.01,1,1,3)="DO NOT DELETE!"
^DD(55.03,.01,1,1,"%D",0)="^^4^4^2970926^^^^"
^DD(55.03,.01,1,1,"%D",1,0)="This cross reference is used to index prescriptions by expiration or cancel"
^DD(55.03,.01,1,1,"%D",2,0)="date.  Expiration or Cancel date is the date all activity stops for this"
^DD(55.03,.01,1,1,"%D",3,0)="prescription."
^DD(55.03,.01,1,1,"%D",4,0)="In the form of: ^PS(55,DA(1),""P"",""A"",$P(^PSRX(X,2),""^"",6),X)"
^DD(55.03,.01,1,1,"DT")="2930519"
^DD(55.03,.01,20,0)="^.3LA^1^1"
^DD(55.03,.01,20,1,0)="PSO"
^DD(55.03,.01,21,0)="^^1^1^2941208^^"
^DD(55.03,.01,21,1,0)="This field is used to indicate prescription history."
^DD(55.03,.01,23,0)="^^1^1^2941208^^"
^DD(55.03,.01,23,1,0)="pointer."
^DD(55.03,.01,"DT")="2930519"
^DD(55.03,1,0)="DRUG^CJ32^^ ; ^X ^DD(55.03,1,9.2) S X=$S('$D(^PSDRUG(+$P(Y(55.03,1,101),U,6),0)):"""",1:$P(^(0),U,1)) S D0=Y(55.03,1,2)"
^DD(55.03,1,9)="^"
^DD(55.03,1,9.01)="52^6;55.03^.01"
^DD(55.03,1,9.1)=".01:DRUG"
^DD(55.03,1,9.2)="S Y(55.03,1,2)=$S($D(D0):D0,1:""""),Y(55.03,1,1)=$S($D(^PS(55,D0,""P"",D1,0)):^(0),1:""""),D0=$P(Y(55.03,1,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1 S Y(55.03,1,101)=$S($D(^PSRX(D0,0)):^(0),1:"""")"
^DD(55.03,1,20,0)="^.3LA^1^1"
^DD(55.03,1,20,1,0)="PSO"
^DD(55.03,1,21,0)="^^1^1^2941208^^"
^DD(55.03,1,21,1,0)="This field is used to indicate the medication for the prescription."
^DD(55.03,1,23,0)="^^1^1^2930104^"
^DD(55.03,1,23,1,0)="computed."
^DD(55.03,2,0)="STATUS^CJ9X^^ ; ^X ^DD(55.03,2,9.3) S D0=Y(55.03,2,2)"
^DD(55.03,2,9)="^"
^DD(55.03,2,9.01)="52^100;55.03^.01"
^DD(55.03,2,9.1)=".01:STATUS"
^DD(55.03,2,9.2)="S Y(55.03,2,2)=$S($D(D0):D0,1:""""),Y(55.03,2,1)=$S($D(^PS(55,D0,""P"",D1,0)):^(0),1:""""),D0=$P(Y(55.03,2,1),U,1) S:'$D(^PSRX(+D0,0)) D0=-1"
^DD(55.03,2,9.3)="X ^DD(55.03,2,9.2) S X=""UNKNOWN"" I D0>0 S J=+D0,RX0=^PSRX(J,0),RX2=$S($D(^(2)):^(2),1:"""") D STAT^PSOEXDT S X=ST"
^DD(55.03,2,20,0)="^.3LA^1^1"
^DD(55.03,2,20,1,0)="PSO"
^DD(55.03,2,21,0)="^^1^1^2941208^^"
^DD(55.03,2,21,1,0)="This field is used to indicate the status of the prescription."
^DD(55.03,2,23,0)="^^1^1^2930104^"
^DD(55.03,2,23,1,0)="computed."
^DD(55.03,3,0)="ACTIVE^BC^^ ; ^X ^DD(55.03,3,9.2) S X=X[""NON-VERIFIED"",Y=X,X=Y(55.03,3,3),X=X!Y,Y(55.03,3,4)=X S X=Y(55.03,3,1)[""SUSPEND"",Y=X,X=Y(55.03,3,4),X=X!Y"
^DD(55.03,3,9)="^"
^DD(55.03,3,9.01)="55.03^2"
^DD(55.03,3,9.1)="STATUS=""ACTIVE""!(STATUS=""HOLD"")!(STATUS[""NON-VERIFIED"")!(STATUS[""SUSPEND"")"
^DD(55.03,3,9.2)="X $P(^DD(55.03,2,0),U,5,99) S Y(55.03,3,1)=X S X=Y(55.03,3,1)=""ACTIVE"",Y(55.03,3,2)=X S X=Y(55.03,3,1)=""HOLD"",Y=X,X=Y(55.03,3,2),X=X!Y,Y(55.03,3,3)=X S X=Y(55.03,3,1)"
^DD(55.03,3,20,0)="^.3LA^1^1"
^DD(55.03,3,20,1,0)="PSO"
^DD(55.03,3,21,0)="^^2^2^2941208^^^^"
^DD(55.03,3,21,1,0)="The field is boolean in nature, that is, it's value is 1 if the"
^DD(55.03,3,21,2,0)="prescription is active, suspended, or on hold."
^DD(55.03,3,"DT")="2840428"
^DD(55.03,"B","ACTIVE",3)=""
^DD(55.03,"B","DRUG",1)=""
^DD(55.03,"B","PRESCRIPTION PROFILE",.01)=""
^DD(55.03,"B","STATUS",2)=""
^DD(55.03,"GL",0,1,.01)=""
^DD(55.03,"GR","PSO",.01,1)=""
^DD(55.03,"GR","PSO",1,1)=""
^DD(55.03,"GR","PSO",2,1)=""
^DD(55.03,"GR","PSO",3,1)=""
^DD(55.03,"IX",.01)=""
^DD(55.04,0)="ACTIVITY LOG SUB-FIELD^NL^1^7"
^DD(55.04,0,"DT")="2970808"
^DD(55.04,0,"NM","ACTIVITY LOG")=""
^DD(55.04,0,"UP")="55.01"
^DD(55.04,.01,0)="ACTIVITY LOG^NJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X?.E1"".""1N.N) X"
^DD(55.04,.01,3)="Type a whole number between 1 and 999999999."
^DD(55.04,.01,20,0)="^.3LA^1^1"
^DD(55.04,.01,20,1,0)="PSJI"
^DD(55.04,.01,21,0)="^^1^1^2920213^^^^"
^DD(55.04,.01,21,1,0)="  Log in IV activity."
^DD(55.04,.01,"DT")="2880222"
^DD(55.04,.02,0)="TYPE OF ACTIVITY^RSI^H:HOLD;D:DISCONTINUED;U:UNHOLD;E:EDIT;R:RENEW;I:REINSTATE;O:ON CALL;C:OFF CALL;V:VERIFY;F:COMPLETE;AI:AUTO REINSTATE;PNRD:PENDING/NON-VERIFIED RENEWAL DISCONTINUED;G:FLAGGED;UG:UNFLAGGED;^0;2^Q"
^DD(55.04,.02,20,0)="^.3LA^1^1"
^DD(55.04,.02,20,1,0)="PSJI"
^DD(55.04,.02,21,0)="^.001^5^5^3020722^^"
^DD(55.04,.02,21,1,0)="  Captures type of activity. Enter one of following set of codes:"
^DD(55.04,.02,21,2,0)="H for hold, D for Discontinue, U for Unhold, E for Edit, R for Renew, "
^DD(55.04,.02,21,3,0)="I for Reinstate, AI for auto reinstate, O for On Call, C for Off call, "
^DD(55.04,.02,21,4,0)="V for Verify, F for Complete, PNRD for Pending/Non-Verified Renewal"
^DD(55.04,.02,21,5,0)="Discontinued, G for Flagged, or UG for Unflagged."
^DD(55.04,.02,"DT")="3020703"
^DD(55.04,.03,0)="ENTRY CODE^FI^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(55.04,.03,3)="Answer must be 2-30 characters in length."
^DD(55.04,.03,20,0)="^.3LA^1^1"
^DD(55.04,.03,20,1,0)="PSJI"
^DD(55.04,.03,21,0)="^.001^2^2^3020418^^^^"
^DD(55.04,.03,21,1,0)="  This is the free text name from the user file of the person who"
^DD(55.04,.03,21,2,0)="performed the activity on this order."
^DD(55.04,.03,"DT")="3020418"
^DD(55.04,.04,0)="REASON FOR ACTIVITY^FI^^0;4^K:$L(X)>102!($L(X)<3) X"
^DD(55.04,.04,3)="Answer must be 3-102 characters in length."
^DD(55.04,.04,20,0)="^.3LA^1^1"
^DD(55.04,.04,20,1,0)="PSJI"
^DD(55.04,.04,21,0)="^.001^1^1^3020711^^^^"
^DD(55.04,.04,21,1,0)="  Reason for activity. This may be a message field."
^DD(55.04,.04,"DT")="3020711"
^DD(55.04,.05,0)="ACTIVITY DATE^DI^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.04,.05,20,0)="^.3LA^1^1"
^DD(55.04,.05,20,1,0)="PSJI"
^DD(55.04,.05,21,0)="^^1^1^2910306^"
^DD(55.04,.05,21,1,0)="  This is the date in which this action was taken."
^DD(55.04,.05,"DT")="2860321"
^DD(55.04,.06,0)="USER^P200'^VA(200,^0;6^Q"
^DD(55.04,.06,3)="This is the user who effected the activity."
^DD(55.04,.06,21,0)="^^1^1^3020418^"
^DD(55.04,.06,21,1,0)="This is the user who effected the activity."
^DD(55.04,.06,"DT")="3011217"
^DD(55.04,1,0)="FIELD CHANGED^55.15A^^1;0"
^DD(55.04,1,20,0)="^.3LA^1^1"
^DD(55.04,1,20,1,0)="PSJI"
^DD(55.04,1,21,0)="^^3^3^2920213^^^"
^DD(55.04,1,21,1,0)=" This is used to record the actual changes made to fields in  the IV order."
^DD(55.04,1,21,2,0)="Information stored includes the field name, it's old value, and it's new "
^DD(55.04,1,21,3,0)="value."
^DD(55.04,"B","ACTIVITY DATE",.05)=""
^DD(55.04,"B","ACTIVITY LOG",.01)=""
^DD(55.04,"B","ENTRY CODE",.03)=""
^DD(55.04,"B","FIELD CHANGED",1)=""
^DD(55.04,"B","REASON FOR ACTIVITY",.04)=""
^DD(55.04,"B","TYPE OF ACTIVITY",.02)=""
^DD(55.04,"B","USER",.06)=""
^DD(55.04,"GL",0,1,.01)=""
^DD(55.04,"GL",0,2,.02)=""
^DD(55.04,"GL",0,3,.03)=""
^DD(55.04,"GL",0,4,.04)=""
^DD(55.04,"GL",0,5,.05)=""
^DD(55.04,"GL",0,6,.06)=""
^DD(55.04,"GL",1,0,1)=""
^DD(55.04,"GR","PSJI",.01,1)=""
^DD(55.04,"GR","PSJI",.02,1)=""
^DD(55.04,"GR","PSJI",.03,1)=""
^DD(55.04,"GR","PSJI",.04,1)=""
^DD(55.04,"GR","PSJI",.05,1)=""
^DD(55.04,"GR","PSJI",1,1)=""
^DD(55.04,"RQ",.02)=""
^DD(55.04,"SB",55.15,1)=""
^DD(55.05,0)="NON-VA MEDS SUB-FIELD^^14^15"
^DD(55.05,0,"DIK")="PSSJXR"
^DD(55.05,0,"DT")="3040407"
^DD(55.05,0,"IX","APSOD",55.05,5)=""
^DD(55.05,0,"IX","B",55.05,.01)=""
^DD(55.05,0,"NM","NON-VA MEDS")=""
^DD(55.05,0,"UP")="55"
^DD(55.05,.01,0)="ORDERABLE ITEM^P50.7'^PS(50.7,^0;1^Q"
^DD(55.05,.01,1,0)="^.1"
^DD(55.05,.01,1,1,0)="55.05^B"
^DD(55.05,.01,1,1,1)="S ^PS(55,DA(1),""NVA"",""B"",$E(X,1,30),DA)="""""
^DD(55.05,.01,1,1,2)="K ^PS(55,DA(1),""NVA"",""B"",$E(X,1,30),DA)"
^DD(55.05,.01,21,0)="^^2^2^3030328^"
^DD(55.05,.01,21,1,0)="This is the orderable item that represents the Non-VA Med being taken by "
^DD(55.05,.01,21,2,0)="the patient."
^DD(55.05,.01,23,0)="^^1^1^3030328^"
^DD(55.05,.01,23,1,0)="This field points to the PHARMACY ORDERABLE ITEM (#50.7)."
^DD(55.05,.01,"DT")="3030328"
^DD(55.05,1,0)="DISPENSE DRUG^P50'^PSDRUG(^0;2^Q"
^DD(55.05,1,21,0)="^^2^2^3030328^"
^DD(55.05,1,21,1,0)="This is the dispense drug that represents the Non-VA Med being taken by "
^DD(55.05,1,21,2,0)="the patient."
^DD(55.05,1,23,0)="^^1^1^3030328^"
^DD(55.05,1,23,1,0)="This field is a pointer to the DRUG file (#50). "
^DD(55.05,1,"DT")="3030328"
^DD(55.05,2,0)="DOSAGE^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(55.05,2,3)="Answer must be 1-80 characters in length"
^DD(55.05,2,21,0)="^^1^1^3030328^"
^DD(55.05,2,21,1,0)="This is the dosage of the Non-VA Med being taken by the patient."
^DD(55.05,2,"DT")="3030328"
^DD(55.05,3,0)="MEDICATION ROUTE^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(55.05,3,3)="Answer must be 1-40 characters in length"
^DD(55.05,3,21,0)="^^1^1^3030328^"
^DD(55.05,3,21,1,0)="This is the route of the Non-VA Medication being taken by the patient."
^DD(55.05,3,"DT")="3050322"
^DD(55.05,4,0)="SCHEDULE^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(55.05,4,3)="Answer must be 1-50 characters in length."
^DD(55.05,4,21,0)="^.001^1^1^3040315^^"
^DD(55.05,4,21,1,0)="This is the schedule of the Non-VA Medication being taken by the patient."
^DD(55.05,4,"DT")="3040315"
^DD(55.05,5,0)="STATUS^S^1:DISCONTINUED;2:DATE OF DEATH ENTERED;^0;6^Q"
^DD(55.05,5,1,0)="^.1"
^DD(55.05,5,1,1,0)="55.05^APSOD^MUMPS"
^DD(55.05,5,1,1,1)="S:$G(PSODEATH) ^PS(55,DA(1),""NVA"",""APSOD"",DA)="""""
^DD(55.05,5,1,1,2)="K:$G(PSODEATH) ^PS(55,DA(1),""NVA"",""APSOD"",DA)"
^DD(55.05,5,1,1,3)="DO NOT DELETE."
^DD(55.05,5,1,1,"%D",0)="^.101^3^3^3031217^^"
^DD(55.05,5,1,1,"%D",1,0)="This xref will be set only when a Non-VA med is discontinued because "
^DD(55.05,5,1,1,"%D",2,0)="a death of detah was entered.  This xref will be used to reinstate order"
^DD(55.05,5,1,1,"%D",3,0)="if date of death is deleted. ^PS(55,dfn,""nva"",""apsod"",da)."
^DD(55.05,5,1,1,"DT")="3031217"
^DD(55.05,5,21,0)="^.001^1^1^3031217^^^"
^DD(55.05,5,21,1,0)="This is the status of the Non-VA Med order."
^DD(55.05,5,23,0)="^.001^1^1^3031217^^"
^DD(55.05,5,23,1,0)="set of codes"
^DD(55.05,5,"DT")="3031217"
^DD(55.05,6,0)="DISCONTINUED DATE^D^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:X<1 X"
^DD(55.05,6,3)="(No range limit on date)"
^DD(55.05,6,21,0)="^^1^1^3030328^"
^DD(55.05,6,21,1,0)="This is the date the patient stopped taking the Non-VA Medication."
^DD(55.05,6,"DT")="3030328"
^DD(55.05,7,0)="ORDER NUMBER^P100'^OR(100,^0;8^Q"
^DD(55.05,7,3)="This is the CPRS order number."
^DD(55.05,7,21,0)="^^1^1^3030328^"
^DD(55.05,7,21,1,0)="This is the CPRS order number."
^DD(55.05,7,"DT")="3030328"
^DD(55.05,8,0)="START DATE^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(55.05,8,3)="(No range limit on date)"
^DD(55.05,8,21,0)="^.001^1^1^3040407^^"
^DD(55.05,8,21,1,0)="This is the date the patient started taking the Non-VA Medication."
^DD(55.05,8,"DT")="3040407"
^DD(55.05,9,0)="ORDER CHECKS^55.051^^OCK;0"
^DD(55.05,10,0)="DISCLAIMER^55.052^^DSC;0"
^DD(55.05,10,21,0)="^^1^1^3030428^"
^DD(55.05,10,21,1,0)=" This is the multiple for the Non-VA Med Disclaimer (Statement/Explanation)."
^DD(55.05,11,0)="DOCUMENTED DATE^RD^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:X<1 X"
^DD(55.05,11,1,0)="^.1"
^DD(55.05,11,1,1,0)="55^ADCDT"
^DD(55.05,11,1,1,1)="S ^PS(55,""ADCDT"",$E(X,1,30),DA(1),DA)="""""
^DD(55.05,11,1,1,2)="K ^PS(55,""ADCDT"",$E(X,1,30),DA(1),DA)"
^DD(55.05,11,1,1,"DT")="3030326"
^DD(55.05,11,3)="(No range limit on date)"
^DD(55.05,11,21,0)="^^1^1^3030328^"
^DD(55.05,11,21,1,0)="This is the date the Non-VA Med order was entered to the system."
^DD(55.05,11,"DT")="3030328"
^DD(55.05,12,0)="DOCUMENTED BY^RP200'^VA(200,^0;11^Q"
^DD(55.05,12,21,0)="^^1^1^3030328^"
^DD(55.05,12,21,1,0)="This is the person responsible for documenting the Non-VA Med order."
^DD(55.05,12,"DT")="3030328"
^DD(55.05,13,0)="CLINIC^P44'^SC(^0;12^Q"
^DD(55.05,13,"DT")="3030325"
^DD(55.05,14,0)="COMMENTS^55.514^^1;0"
^DD(55.05,"B","CLINIC",13)=""
^DD(55.05,"B","COMMENTS",14)=""
^DD(55.05,"B","DISCLAIMER",10)=""
^DD(55.05,"B","DISCONTINUED DATE",6)=""
^DD(55.05,"B","DISPENSE DRUG",1)=""
^DD(55.05,"B","DOCUMENTED BY",12)=""
^DD(55.05,"B","DOCUMENTED DATE",11)=""
^DD(55.05,"B","DOSAGE",2)=""
^DD(55.05,"B","MEDICATION ROUTE",3)=""
^DD(55.05,"B","ORDER CHECKS",9)=""
^DD(55.05,"B","ORDER NUMBER",7)=""
^DD(55.05,"B","ORDERABLE ITEM",.01)=""
^DD(55.05,"B","SCHEDULE",4)=""
^DD(55.05,"B","START DATE",8)=""
^DD(55.05,"B","STATUS",5)=""
^DD(55.05,"GL",0,1,.01)=""
^DD(55.05,"GL",0,2,1)=""
^DD(55.05,"GL",0,3,2)=""
^DD(55.05,"GL",0,4,3)=""
^DD(55.05,"GL",0,5,4)=""
^DD(55.05,"GL",0,6,5)=""
^DD(55.05,"GL",0,7,6)=""
^DD(55.05,"GL",0,8,7)=""
^DD(55.05,"GL",0,9,8)=""
^DD(55.05,"GL",0,10,11)=""
^DD(55.05,"GL",0,11,12)=""
^DD(55.05,"GL",0,12,13)=""
^DD(55.05,"GL",1,0,14)=""
^DD(55.05,"GL","DSC",0,10)=""
^DD(55.05,"GL","OCK",0,9)=""
^DD(55.05,"IX",.01)=""
^DD(55.05,"IX",5)=""
^DD(55.05,"IX",11)=""
^DD(55.05,"RQ",11)=""
^DD(55.05,"RQ",12)=""
^DD(55.05,"SB",55.051,9)=""
^DD(55.05,"SB",55.052,10)=""
^DD(55.05,"SB",55.514,14)=""
^DD(55.051,0)="ORDER CHECKS SUB-FIELD^^2^3"
^DD(55.051,0,"DIK")="PSSJXR"
^DD(55.051,0,"DT")="3030710"
^DD(55.051,0,"IX","B",55.051,.01)=""
^DD(55.051,0,"NM","ORDER CHECKS")=""
^DD(55.051,0,"UP")="55.05"
^DD(55.051,.01,0)="ORDER CHECK NARRATIVE^F^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(55.051,.01,1,0)="^.1"
^DD(55.051,.01,1,1,0)="55.051^B"
^DD(55.051,.01,1,1,1)="S ^PS(55,DA(2),""NVA"",DA(1),""OCK"",""B"",$E(X,1,30),DA)="""""
^DD(55.051,.01,1,1,2)="K ^PS(55,DA(2),""NVA"",DA(1),""OCK"",""B"",$E(X,1,30),DA)"
^DD(55.051,.01,3)="Answer must be 1-200 characters in length."
^DD(55.051,.01,21,0)="^.001^1^1^3030710^^^^"
^DD(55.051,.01,21,1,0)="This is the narrative of the order check(s) for the Non-VA Med order."
^DD(55.051,.01,"DT")="3030710"
^DD(55.051,1,0)="OVERRIDING PROVIDER^P200'^VA(200,^0;2^Q"
^DD(55.051,1,3)=""
^DD(55.051,1,21,0)="^^1^1^3030710^"
^DD(55.051,1,21,1,0)="This is the provider responsible for overriding the order check."
^DD(55.051,1,"DT")="3030710"
^DD(55.051,2,0)="OVERRIDING REASON^55.0511^^OVR;0"
^DD(55.051,2,21,0)="^.001^1^1^3030414^^"
^DD(55.051,2,21,1,0)="This is the overriding reason description given by the Provider."
^DD(55.051,"B","ORDER CHECK NARRATIVE",.01)=""
^DD(55.051,"B","OVERRIDING PROVIDER",1)=""
^DD(55.051,"B","OVERRIDING REASON",2)=""
^DD(55.051,"GL",0,1,.01)=""
^DD(55.051,"GL",0,2,1)=""
^DD(55.051,"GL","OVR",0,2)=""
^DD(55.051,"IX",.01)=""
^DD(55.051,"SB",55.0511,2)=""
^DD(55.0511,0)="OVERRIDING REASON SUB-FIELD^^.01^1"
^DD(55.0511,0,"DT")="3030414"
^DD(55.0511,0,"NM","OVERRIDING REASON")=""
^DD(55.0511,0,"UP")="55.051"
^DD(55.0511,.01,0)="OVERRIDING REASON^W^^0;1^Q"
^DD(55.0511,.01,21,0)="^.001^1^1^3030414^^^"
^DD(55.0511,.01,21,1,0)="This is the overriding reason description given by the Provider."
^DD(55.0511,.01,"DT")="3030414"
^DD(55.0511,"B","OVERRIDING REASON",.01)=""
^DD(55.0511,"GL",0,1,.01)=""
^DD(55.052,0)="DISCLAIMER SUB-FIELD^^.01^1"
^DD(55.052,0,"DT")="3030418"
^DD(55.052,0,"NM","DISCLAIMER")=""
^DD(55.052,0,"UP")="55.05"
^DD(55.052,.01,0)="DISCLAIMER^W^^0;1^Q"
^DD(55.052,.01,21,0)="^.001^1^1^3030428^^"
^DD(55.052,.01,21,1,0)="This is the multiple for the Non-VA Med Disclaimer (Statement/Explanation)"
^DD(55.052,.01,"DT")="3030418"
^DD(55.052,"B","DISCLAIMER",.01)=""
^DD(55.052,"GL",0,1,.01)=""
^DD(55.06,0)="UNIT DOSE SUB-FIELD^NL^131^95"
^DD(55.06,0,"DIK")="PSSJXR"
^DD(55.06,0,"DT")="2960129"
^DD(55.06,0,"ID",3)="W ""   "",$S($D(^PS(51.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(55.06,0,"ID",7)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(55.06,7,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,7)_"""":"""",2),$C(59),1)"")"
^DD(55.06,0,"IX","ACR1",55.06,7)=""
^DD(55.06,0,"IX","ADM",55.06,41)=""
^DD(55.06,0,"IX","AL1",55.06,.01)=""
^DD(55.06,0,"IX","AL101",55.06,101)=""
^DD(55.06,0,"IX","AL102",55.06,102)=""
^DD(55.06,0,"IX","AL103",55.06,103)=""
^DD(55.06,0,"IX","AL104",55.06,104)=""
^DD(55.06,0,"IX","AL105",55.06,105)=""
^DD(55.06,0,"IX","AL106",55.06,106)=""
^DD(55.06,0,"IX","AL107",55.06,107)=""
^DD(55.06,0,"IX","AL11",55.06,11)=""
^DD(55.06,0,"IX","AL1101",55.0611,.01)=""
^DD(55.06,0,"IX","AL1102",55.0611,.02)=""
^DD(55.06,0,"IX","AL1103",55.0611,.03)=""
^DD(55.06,0,"IX","AL1104",55.0611,.04)=""
^DD(55.06,0,"IX","AL1105",55.0611,.05)=""
^DD(55.06,0,"IX","AL1106",55.0611,.06)=""
^DD(55.06,0,"IX","AL1107",55.0611,.07)=""
^DD(55.06,0,"IX","AL1108",55.0611,.08)=""
^DD(55.06,0,"IX","AL12",55.06,12)=""
^DD(55.06,0,"IX","AL13",55.06,13)=""
^DD(55.06,0,"IX","AL14",55.06,14)=""
^DD(55.06,0,"IX","AL15",55.06,16)=""
^DD(55.06,0,"IX","AL16",55.06,17)=""
^DD(55.06,0,"IX","AL17",55.06,18)=""
^DD(55.06,0,"IX","AL18",55.06,19)=""
^DD(55.06,0,"IX","AL19",55.06,20)=""
^DD(55.06,0,"IX","AL2",55.06,.5)=""
^DD(55.06,0,"IX","AL20",55.06,21)=""
^DD(55.06,0,"IX","AL21",55.06,22)=""
^DD(55.06,0,"IX","AL22",55.06,23)=""
^DD(55.06,0,"IX","AL23",55.06,24)=""
^DD(55.06,0,"IX","AL24",55.06,25)=""
^DD(55.06,0,"IX","AL26",55.06,27)=""
^DD(55.06,0,"IX","AL27",55.06,27.1)=""
^DD(55.06,0,"IX","AL28",55.06,28)=""
^DD(55.06,0,"IX","AL3",55.06,1)=""
^DD(55.06,0,"IX","AL4",55.06,3)=""
^DD(55.06,0,"IX","AL41",55.06,10)=""
^DD(55.06,0,"IX","AL43",55.06,26)=""
^DD(55.06,0,"IX","AL5",55.06,4)=""
^DD(55.06,0,"IX","AL51",55.06,32)=""
^DD(55.06,0,"IX","AL53",55.06,34)=""
^DD(55.06,0,"IX","AL54",55.06,36)=""
^DD(55.06,0,"IX","AL55",55.06,.25)=""
^DD(55.06,0,"IX","AL56",55.06,41)=""
^DD(55.06,0,"IX","AL57",55.06,42)=""
^DD(55.06,0,"IX","AL58",55.06,43)=""
^DD(55.06,0,"IX","AL59",55.06,44)=""
^DD(55.06,0,"IX","AL6",55.06,5)=""
^DD(55.06,0,"IX","AL60",55.06,45)=""
^DD(55.06,0,"IX","AL61",55.06,35)=""
^DD(55.06,0,"IX","AL62",55.06,49)=""
^DD(55.06,0,"IX","AL63",55.06,46)=""
^DD(55.06,0,"IX","AL64",55.06,47)=""
^DD(55.06,0,"IX","AL65",55.06,48)=""
^DD(55.06,0,"IX","AL66",55.06,50)=""
^DD(55.06,0,"IX","AL67",55.06,51)=""
^DD(55.06,0,"IX","AL68",55.06,52)=""
^DD(55.06,0,"IX","AL69",55.06,53)=""
^DD(55.06,0,"IX","AL7",55.06,6)=""
^DD(55.06,0,"IX","AL70",55.06,54)=""
^DD(55.06,0,"IX","AL701",55.07,.01)=""
^DD(55.06,0,"IX","AL702",55.07,.02)=""
^DD(55.06,0,"IX","AL705",55.07,.05)=""
^DD(55.06,0,"IX","AL706",55.07,.06)=""
^DD(55.06,0,"IX","AL707",55.07,.07)=""
^DD(55.06,0,"IX","AL709",55.07,.09)=""
^DD(55.06,0,"IX","AL71",55.06,56)=""
^DD(55.06,0,"IX","AL710",55.07,.1)=""
^DD(55.06,0,"IX","AL712",55.07,.12)=""
^DD(55.06,0,"IX","AL72",55.06,57)=""
^DD(55.06,0,"IX","AL73",55.06,58)=""
^DD(55.06,0,"IX","AL74",55.06,59)=""
^DD(55.06,0,"IX","AL75",55.06,60)=""
^DD(55.06,0,"IX","AL76",55.06,61)=""
^DD(55.06,0,"IX","AL77",55.06,62)=""
^DD(55.06,0,"IX","AL78",55.06,65)=""
^DD(55.06,0,"IX","AL79",55.06,64)=""
^DD(55.06,0,"IX","AL8",55.06,7)=""
^DD(55.06,0,"IX","AL80",55.06,66)=""
^DD(55.06,0,"IX","AL9",55.06,8)=""
^DD(55.06,0,"IX","AMSEXTRA",55.06,55)=""
^DD(55.06,0,"IX","AMSPREX",55.06,14)=""
^DD(55.06,0,"IX","AMSRET",55.06,38)=""
^DD(55.06,0,"IX","AMSRET",55.07,.08)=""
^DD(55.06,0,"IX","AOERRS",55.06,28)=""
^DD(55.06,0,"IX","APR",55.06,1)=""
^DD(55.06,0,"IX","ASD",55.06,34)=""
^DD(55.06,0,"IX","AVN",55.06,16)=""
^DD(55.06,0,"IX","AVP",55.06,18)=""
^DD(55.06,0,"IX","B",55.06,.01)=""
^DD(55.06,0,"IX","B",55.06,101)=""
^DD(55.06,0,"NM","UNIT DOSE")=""
^DD(55.06,0,"UP")="55"
^DD(55.06,.01,0)="ORDER NUMBER^RNJ10,0O^^0;1^K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(55.06,.01,1,0)="^.1^^-1"
^DD(55.06,.01,1,1,0)="55.06^AL1^MUMPS"
^DD(55.06,.01,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1))#2 KILL^PSGAL5:PSGAL(1)=X K PSGAL"
^DD(55.06,.01,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1)=X,PSGAL(""C"")=6000,PSGALFF=.01 D ^PSGAL5"
^DD(55.06,.01,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,.01,1,1,"%D",0)="^^1^1^2920725^^"
^DD(55.06,.01,1,1,"%D",1,0)="Used by Unit Dose to log any changes to this field."
^DD(55.06,.01,1,2,0)="55.06^B"
^DD(55.06,.01,1,2,1)="S ^PS(55,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(55.06,.01,1,2,2)="K ^PS(55,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(55.06,.01,1,3,0)="55^AUE^MUMPS"
^DD(55.06,.01,1,3,1)="I '$D(DIU(0)) S ^PS(55,""AUE"",DA(1),DA)="""""
^DD(55.06,.01,1,3,2)="I '$D(DIU(0)) K ^PS(55,""AUE"",DA(1),DA)"
^DD(55.06,.01,1,3,3)="This x-ref is a flag and will NOT always exist."
^DD(55.06,.01,1,3,"%D",0)="^^3^3^2920729^^"
^DD(55.06,.01,1,3,"%D",1,0)="Set when certain actions (edit, etc.) are taken on the order."
^DD(55.06,.01,1,3,"%D",2,0)="Allows other package functionality, such as the pick list update,"
^DD(55.06,.01,1,3,"%D",3,0)="to know that the order needs to be ""revisited""."
^DD(55.06,.01,1,5,0)="55^APV2^MUMPS"
^DD(55.06,.01,1,5,1)="Q"
^DD(55.06,.01,1,5,2)="K ^PS(55,""APV"",DA(1),DA)"
^DD(55.06,.01,1,5,3)="This is used to delete the APV xref when the order is deleted."
^DD(55.06,.01,1,5,"%D",0)="^^3^3^2960925^^"
^DD(55.06,.01,1,5,"%D",1,0)="This is used to delete the APV xref when the order is deleted. The APV xref "
^DD(55.06,.01,1,5,"%D",2,0)="is used by the Unit Dose package to identify orders that have been verified "
^DD(55.06,.01,1,5,"%D",3,0)="by a nurse but not a pharmacist."
^DD(55.06,.01,1,5,"DT")="2960917"
^DD(55.06,.01,1,7,0)="55^ANV2^MUMPS"
^DD(55.06,.01,1,7,1)="Q"
^DD(55.06,.01,1,7,2)="K ^PS(55,""ANV"",DA(1),DA)"
^DD(55.06,.01,1,7,3)="This is used to delete the ANV xref when the order is deleted."
^DD(55.06,.01,1,7,"%D",0)="^^3^3^2960925^^^"
^DD(55.06,.01,1,7,"%D",1,0)="This is used to delete the ANV xref when the order is deleted. The ANV xref"
^DD(55.06,.01,1,7,"%D",2,0)="is used by the Unit Dose package to identify orders that have been verified"
^DD(55.06,.01,1,7,"%D",3,0)="by a pharacist but not a nurse."
^DD(55.06,.01,1,7,"DT")="2960918"
^DD(55.06,.01,3)="Type a whole number between 1 and 1000000000."
^DD(55.06,.01,4)=""
^DD(55.06,.01,20,0)="^.3LA^1^1"
^DD(55.06,.01,20,1,0)="PSJU"
^DD(55.06,.01,21,0)="^^1^1^2970624^^^"
^DD(55.06,.01,21,1,0)="  This is the record number of the order."
^DD(55.06,.01,"DEL",1,0)="I '$D(PSGPO) S PSGAL(""C"")=20180 D ^PSGAL5 K PSGAL D EN^DDIOL(""YOU CANNOT DELETE A UNIT DOSE ORDER!"","""",""$C(7),!"")"
^DD(55.06,.01,"DT")="2960918"
^DD(55.06,.24,0)="PRIORITY^S^S:STAT;A:ASAP;R:ROUTINE;P:PREOP;T:TIMING CRITICAL;D:DONE;^.2;4^Q"
^DD(55.06,.24,3)="Enter a priority for the processing of this order, if desired."
^DD(55.06,.24,21,0)="^^1^1^3020418^"
^DD(55.06,.24,21,1,0)="This field contains the priority of the order that was received from OERR."
^DD(55.06,.24,"DT")="3010522"
^DD(55.06,.25,0)="ORIGINAL ORDER NUMBER^NJ10,0^^0;18^K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(55.06,.25,1,0)="^.1"
^DD(55.06,.25,1,1,0)="55.06^AL55^MUMPS"
^DD(55.06,.25,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(55)) KILL^PSGAL5:PSGAL(55)=X K PSGAL"
^DD(55.06,.25,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(55)=X,PSGAL(""C"")=6000,PSGALFF=.25 D ^PSGAL5"
^DD(55.06,.25,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,.25,1,1,"%D",0)="^^1^1^2920725^"
^DD(55.06,.25,1,1,"%D",1,0)="Used by Unit Dose to log any changes to this field."
^DD(55.06,.25,3)="Type a whole number between 1 and 1000000000."
^DD(55.06,.25,20,0)="^.3LA^1^1"
^DD(55.06,.25,20,1,0)="PSJU"
^DD(55.06,.25,21,0)="^^1^1^2910306^^"
^DD(55.06,.25,21,1,0)="  This is the original number of the order from file 53.1."
^DD(55.06,.25,"DT")="2860822"
^DD(55.06,.5,0)="PATIENT NAME^P2'^DPT(^0;15^Q"
^DD(55.06,.5,1,0)="^.1"
^DD(55.06,.5,1,1,0)="55.06^AL2^MUMPS"
^DD(55.06,.5,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(2))#2 KILL^PSGAL5:PSGAL(2)=X K PSGAL"
^DD(55.06,.5,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(2)=X,PSGAL(""C"")=6000,PSGALFF=.5 D ^PSGAL5"
^DD(55.06,.5,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,.5,1,1,"%D",0)="^^1^1^2920725^"
^DD(55.06,.5,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,.5,20,0)="^.3LA^1^1"
^DD(55.06,.5,20,1,0)="PSJU"
^DD(55.06,.5,21,0)="^^1^1^2910306^^"
^DD(55.06,.5,21,1,0)="  This is the patient for which the medication has been ordered."
^DD(55.06,.5,"DT")="2850313"
^DD(55.06,1,0)="PROVIDER^R*P200'^VA(200,^0;2^S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(55.06,1,1,0)="^.1"
^DD(55.06,1,1,1,0)="55.06^AL3^MUMPS"
^DD(55.06,1,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(3))#2 KILL^PSGAL5:PSGAL(3)=X K PSGAL"
^DD(55.06,1,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(3)=X,PSGAL(""C"")=6000,PSGALFF=1 D ^PSGAL5"
^DD(55.06,1,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,1,1,1,"%D",0)="^^1^1^2920725^"
^DD(55.06,1,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,1,1,2,0)="55.06^APR^MUMPS"
^DD(55.06,1,1,2,1)="I $S('$D(^PS(55,DA(1),5.1)):1,1:$P(^(5.1),""^"",2)'=X) S $P(^(5.1),""^"",2)=X"
^DD(55.06,1,1,2,2)="Q"
^DD(55.06,1,1,2,3)="UD PROVIDER update."
^DD(55.06,1,1,2,"%D",0)="^^3^3^2920725^"
^DD(55.06,1,1,2,"%D",1,0)="Used to update the UD PROVIDER field in the PHARMACY PATIENT file."
^DD(55.06,1,1,2,"%D",2,0)=" "
^DD(55.06,1,1,2,"%D",3,0)="(Probably should be someday changed to a trigger....)"
^DD(55.06,1,12)="Providers must be active and privileged to write medication orders."
^DD(55.06,1,12.1)="S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"""
^DD(55.06,1,20,0)="^.3LA^1^1"
^DD(55.06,1,20,1,0)="PSJU"
^DD(55.06,1,21,0)="^^1^1^2910306^^^^"
^DD(55.06,1,21,1,0)="  This is the prescribing physician's name."
^DD(55.06,1,"DT")="2910708"
^DD(55.06,2,0)="DISPENSE DRUG^55.07P^^1;0"
^DD(55.06,2,20,0)="^.3LA^1^1"
^DD(55.06,2,20,1,0)="PSJU"
^DD(55.06,2,21,0)="^^3^3^2990714^^^^"
^DD(55.06,2,21,1,0)="  This contains the dispense drug(s), and the related information, for this"
^DD(55.06,2,21,2,0)="order.  The dispense drug is the actual medication dispense by pharmacy for"
^DD(55.06,2,21,3,0)="the order.  Dispense drugs are obtained from the DRUG file (#50)."
^DD(55.06,2,"DT")="2911031"
^DD(55.06,3,0)="MED ROUTE^P51.2'^PS(51.2,^0;3^Q"
^DD(55.06,3,1,0)="^.1"
^DD(55.06,3,1,1,0)="55.06^AL4^MUMPS"
^DD(55.06,3,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(4))#2 KILL^PSGAL5:PSGAL(4)=X K PSGAL"
^DD(55.06,3,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(4)=X,PSGAL(""C"")=6000,PSGALFF=3 D ^PSGAL5"
^DD(55.06,3,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,3,1,1,"%D",0)="^^1^1^2920804^"
^DD(55.06,3,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,3,3)="Enter how this medication will be administered to the patient."
^DD(55.06,3,20,0)="^.3LA^1^1"
^DD(55.06,3,20,1,0)="PSJU"
^DD(55.06,3,21,0)="^^4^4^2910306^^^^"
^DD(55.06,3,21,1,0)="  This is the route of administration for this medication. If a "
^DD(55.06,3,21,2,0)="corresponding abbreviation is found for this route in the MEDICATION "
^DD(55.06,3,21,3,0)="ROUTES file, that abbreviation is printed on the various reports in this "
^DD(55.06,3,21,4,0)="package."
^DD(55.06,3,"DT")="2850313"
^DD(55.06,4,0)="TYPE^S^A:ADMIXTURE;C:CHEMOTHERAPY;P:PIGGYBACK;T:TPN;U:UNIT DOSE;^0;4^Q"
^DD(55.06,4,1,0)="^.1"
^DD(55.06,4,1,1,0)="55.06^AL5^MUMPS"
^DD(55.06,4,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(5))#2 KILL^PSGAL5:PSGAL(5)=X K PSGAL"
^DD(55.06,4,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(5)=X,PSGAL(""C"")=6000,PSGALFF=4 D ^PSGAL5"
^DD(55.06,4,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,4,1,1,"%D",0)="^^1^1^2920804^"
^DD(55.06,4,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,4,20,0)="^.3LA^1^1"
^DD(55.06,4,20,1,0)="PSJU"
^DD(55.06,4,21,0)="^^1^1^2910306^^"
^DD(55.06,4,21,1,0)="  This identifies the type of medication ordered."
^DD(55.06,4,"DT")="2850313"
^DD(55.06,5,0)="SELF MED^S^0:NO;1:YES;^0;5^Q"
^DD(55.06,5,1,0)="^.1"
^DD(55.06,5,1,1,0)="55.06^AL6^MUMPS"
^DD(55.06,5,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(6))#2 KILL^PSGAL5:PSGAL(6)=X K PSGAL"
^DD(55.06,5,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(6)=X,PSGAL(""C"")=6000,PSGALFF=5 D ^PSGAL5"
^DD(55.06,5,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,5,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,5,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,5,1,2,0)="^^TRIGGER^55.06^6"
^DD(55.06,5,1,2,1)="I 'X S DIU=$S($D(^PS(55,DA(1),5,DA,0)):$P(^(0),""^"",6),1:"""") I DIU S $P(^(0),""^"",6)="""" I $O(^DD(55.06,6,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="""",DIH=55.06,DIG=6 D ^DICR"
^DD(55.06,5,1,2,2)="S DIU=$S($D(^PS(55,DA(1),5,DA,0)):$P(^(0),""^"",6),1:"""") I DIU S $P(^(0),""^"",6)="""" I $O(^DD(55.06,6,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="""",DIH=55.06,DIG=6 D ^DICR"
^DD(55.06,5,1,2,"%D",0)="^^1^2920901^"
^DD(55.06,5,1,2,"%D",1,0)="Used to trigger data into field 6."
^DD(55.06,5,1,2,"CREATE CONDITION")="I 'X"
^DD(55.06,5,1,2,"CREATE VALUE")="@"
^DD(55.06,5,1,2,"DELETE VALUE")="@"
^DD(55.06,5,1,2,"FIELD")="HOSPITAL SUPPLIED SELF MED"
^DD(55.06,5,3)="Enter 'YES' (or '1') if this medication is to be self administered."
^DD(55.06,5,20,0)="^.3LA^1^1"
^DD(55.06,5,20,1,0)="PSJU"
^DD(55.06,5,21,0)="^^2^2^2910306^^^"
^DD(55.06,5,21,1,0)="  This should contain a `1' or (`YES') if this medication is to be"
^DD(55.06,5,21,2,0)="administered by the patient to himself."
^DD(55.06,5,"DT")="2860114"
^DD(55.06,6,0)="HOSPITAL SUPPLIED SELF MED^S^0:NO;1:YES;^0;6^Q"
^DD(55.06,6,1,0)="^.1"
^DD(55.06,6,1,1,0)="55.06^AL7^MUMPS"
^DD(55.06,6,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(7))#2 KILL^PSGAL5:PSGAL(7)=X K PSGAL"
^DD(55.06,6,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(7)=X,PSGAL(""C"")=6000,PSGALFF=6 D ^PSGAL5"
^DD(55.06,6,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,6,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,6,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,6,3)="Enter 'YES' (or '1') if this SELF MED is to be supplied by this medical center's pharmacy."
^DD(55.06,6,5,1,0)="55.06^5^2"
^DD(55.06,6,20,0)="^.3LA^1^1"
^DD(55.06,6,20,1,0)="PSJU"
^DD(55.06,6,21,0)="^^5^5^2910306^^^^"
^DD(55.06,6,21,1,0)="  This should contain a `1' (or `YES') if this medication is to be a"
^DD(55.06,6,21,2,0)="`SELF MED' and this site's pharmacy is to supply the medication.  This"
^DD(55.06,6,21,3,0)="is only asked if the user enters `YES' (or `1') to the SELF MED prompt."
^DD(55.06,6,21,4,0)="If the SELF MED prompt is ever edited to show `NO' (or `0'), this field is"
^DD(55.06,6,21,5,0)="automatically deleted."
^DD(55.06,6,"DT")="2850313"
^DD(55.06,7,0)="SCHEDULE TYPE^S^C:CONTINUOUS;O:ONE TIME;P:PRN;R:FILL ON REQUEST;OC:ON CALL;^0;7^Q"
^DD(55.06,7,1,0)="^.1^^-1"
^DD(55.06,7,1,1,0)="55.06^AL8^MUMPS"
^DD(55.06,7,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(8))#2 KILL^PSGAL5:PSGAL(8)=X K PSGAL"
^DD(55.06,7,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(8)=X,PSGAL(""C"")=6000,PSGALFF=7 D ^PSGAL5"
^DD(55.06,7,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,7,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,7,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,7,1,2,0)="55.06^ACR1^MUMPS"
^DD(55.06,7,1,2,1)="I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),""^"",4) S ^PS(55,DA(1),5,""AU"",X,+$P(^(2),""^"",4),DA)="""""
^DD(55.06,7,1,2,2)="I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),""^"",4) K ^PS(55,DA(1),5,""AU"",X,+$P(^(2),""^"",4),DA)"
^DD(55.06,7,1,2,3)="NEEDED BY UNIT DOSE"
^DD(55.06,7,1,2,"%D",0)="^^3^3^2920728^"
^DD(55.06,7,1,2,"%D",1,0)="Used by Unit Dose when gathering orders.  This x-ref is in the form of:"
^DD(55.06,7,1,2,"%D",2,0)="^PS(55,DA(1),5,""AU"",schedule type,stop date/time,DA)"
^DD(55.06,7,1,2,"%D",3,0)="Used mainly by the profiles."
^DD(55.06,7,3)="Enter the code (C, O, OC, P, or R) corresponding to the scheduling of this order."
^DD(55.06,7,4)="D SCHTP^PSSDDUT3"
^DD(55.06,7,20,0)="^.3LA^1^1"
^DD(55.06,7,20,1,0)="PSJU"
^DD(55.06,7,21,0)="^^5^5^2970624^^^^"
^DD(55.06,7,21,1,0)="  This describes the type of schedule for the dispensing of the"
^DD(55.06,7,21,2,0)="medication(s) that make up the order."
^DD(55.06,7,21,3,0)="  PRE-OP orders are usually considered to be ON-CALL orders, and orders"
^DD(55.06,7,21,4,0)="dispensed as MUTLI-DOSE CONTAINERS are usually considered to be FILL ON"
^DD(55.06,7,21,5,0)="REQUEST orders."
^DD(55.06,7,"DT")="2860225"
^DD(55.06,8,0)="SPECIAL INSTRUCTIONS^FX^^6;1^D CHKSI^PSSDDUT3"
^DD(55.06,8,1,0)="^.1"
^DD(55.06,8,1,1,0)="55.06^AL9^MUMPS"
^DD(55.06,8,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(9))#2 KILL^PSGAL5:PSGAL(9)=X K PSGAL"
^DD(55.06,8,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(9)=X,PSGAL(""C"")=6000,PSGALFF=8 D ^PSGAL5"
^DD(55.06,8,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,8,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,8,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,8,3)="Answer must be 1-180 characters in length."
^DD(55.06,8,4)="D SPCIN^PSSDDUT3"
^DD(55.06,8,20,0)="^.3LA^1^1"
^DD(55.06,8,20,1,0)="PSJU"
^DD(55.06,8,21,0)="^^4^4^2970624^^^^"
^DD(55.06,8,21,1,0)="  This is any special instructions (using abbreviations whenever possible)"
^DD(55.06,8,21,2,0)="needed for this order.  This would include the physician's reason for"
^DD(55.06,8,21,3,0)="ordering a PRN.  This field utilizes the abbreviations and expansions"
^DD(55.06,8,21,4,0)="from the MEDICATION INSTRUCTIONS file."
^DD(55.06,8,"DT")="2970626"
^DD(55.06,9,0)="ORIGINAL WARD^P42'^DIC(42,^2;10^Q"
^DD(55.06,9,3)=""
^DD(55.06,9,20,0)="^.3LA^1^1"
^DD(55.06,9,20,1,0)="PSJU"
^DD(55.06,9,21,0)="^^1^1^2931211^^"
^DD(55.06,9,21,1,0)="This is the ward where the patient was located when the order was created."
^DD(55.06,9,23,0)="^^5^5^2931211^^"
^DD(55.06,9,23,1,0)=" This is used to determine if the admin times for the ward were used when "
^DD(55.06,9,23,2,0)="the order was created. If the patient is transferred and the order is then"
^DD(55.06,9,23,3,0)="renewed, the admin times of the new ward will be used for the renewal "
^DD(55.06,9,23,4,0)="order if the admin times of the previous ward were used in the original "
^DD(55.06,9,23,5,0)="order."
^DD(55.06,9,"DT")="2931211"
^DD(55.06,10,0)="START DATE/TIME^RDX^^2;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1!('$P(Y,""."",2)) X"
^DD(55.06,10,1,0)="^.1"
^DD(55.06,10,1,1,0)="55.06^AL41^MUMPS"
^DD(55.06,10,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(41))#2 KILL^PSGAL5:PSGAL(41)=X K PSGAL"
^DD(55.06,10,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(41)=X,PSGAL(""C"")=6000,PSGALFF=10 D ^PSGAL5"
^DD(55.06,10,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,10,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,10,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,10,1,2,0)="55^AUDS"
^DD(55.06,10,1,2,1)="S ^PS(55,""AUDS"",$E(X,1,30),DA(1),DA)="""""
^DD(55.06,10,1,2,2)="K ^PS(55,""AUDS"",$E(X,1,30),DA(1),DA)"
^DD(55.06,10,1,2,"%D",0)="^^1^1^2931031^"
^DD(55.06,10,1,2,"%D",1,0)="Identifies verified Unit Dose orders by the order's start date/time."
^DD(55.06,10,1,2,"DT")="2931031"
^DD(55.06,10,3)="Enter the date and time that the first dose is to be given.  "
^DD(55.06,10,4)="D EN^DDIOL("" TIME IS REQUIRED."")"
^DD(55.06,10,9)="^"
^DD(55.06,10,20,0)="^.3LA^1^1"
^DD(55.06,10,20,1,0)="PSJU"
^DD(55.06,10,21,0)="^^6^6^2970624^^^^"
^DD(55.06,10,21,1,0)="  This is the date and time the order is to begin.  This package initially"
^DD(55.06,10,21,2,0)=" assigns the START DATE/TIME to the closest administration time or next"
^DD(55.06,10,21,3,0)=" admin. time or NOW depends on the value of the DEFAULT START DATE"
^DD(55.06,10,21,4,0)=" CALCULATION field in the INPATIENT WARD PARAMETERS. "
^DD(55.06,10,21,5,0)=" START DATE/TIME may not be entered prior to 7 days from the order's"
^DD(55.06,10,21,6,0)=" LOGIN DATE."
^DD(55.06,10,"DT")="2931031"
^DD(55.06,11,0)="DAY LIMIT^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(55.06,11,1,0)="^.1"
^DD(55.06,11,1,1,0)="55.06^AL11^MUMPS"
^DD(55.06,11,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(11))#2 KILL^PSGAL5:PSGAL(11)=X K PSGAL"
^DD(55.06,11,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(11)=X,PSGAL(""C"")=6000,PSGALFF=11 D ^PSGAL5"
^DD(55.06,11,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,11,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,11,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,11,3)="Type a whole number between 1 and 99."
^DD(55.06,11,20,0)="^.3LA^1^1"
^DD(55.06,11,20,1,0)="PSJU"
^DD(55.06,11,21,0)="^^1^1^2910306^^"
^DD(55.06,11,21,1,0)="  This is number of days this order is to last."
^DD(55.06,11,"DT")="2850313"
^DD(55.06,12,0)="DOSE LIMIT^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(55.06,12,1,0)="^.1"
^DD(55.06,12,1,1,0)="55.06^AL12^MUMPS"
^DD(55.06,12,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(12))#2 KILL^PSGAL5:PSGAL(12)=X K PSGAL"
^DD(55.06,12,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(12)=X,PSGAL(""C"")=6000,PSGALFF=12 D ^PSGAL5"
^DD(55.06,12,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,12,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,12,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,12,3)="Type a whole number between 1 and 99."
^DD(55.06,12,20,0)="^.3LA^1^1"
^DD(55.06,12,20,1,0)="PSJU"
^DD(55.06,12,21,0)="^^1^1^2910306^^"
^DD(55.06,12,21,1,0)="  This is the number of times the medication is to be administered."
^DD(55.06,12,"DT")="2850313"
^DD(55.06,13,0)="*UNITS PER DOSE^NJ5,2OX^^0;12^S X=$S(X=""1/2"":.5,X=""1/4"":.25,1:X) K:+X'=X!(X>30)!(X<0)!(X?.E1"".""3.N) X"
^DD(55.06,13,.1)="UNITS PER DOSE"
^DD(55.06,13,1,0)="^.1"
^DD(55.06,13,1,1,0)="55.06^AL13^MUMPS"
^DD(55.06,13,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(13))#2 KILL^PSGAL5:PSGAL(13)=X K PSGAL"
^DD(55.06,13,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(13)=X,PSGAL(""C"")=6000,PSGALFF=13 D ^PSGAL5"
^DD(55.06,13,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,13,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,13,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,13,2)="S Y(0)=Y S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(55.06,13,2.1)="S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(55.06,13,3)="Enter a number between 0 and 30 (will accept '1/2' or '1/4')."
^DD(55.06,13,4)="D EN^DDIOL(""IF NO ENTRY (OR AN ENTRY OF `0') IS MADE, A ONE (1) WILL BE ASSUMED."")"
^DD(55.06,13,20,0)="^.3LA^1^1"
^DD(55.06,13,20,1,0)="PSJU"
^DD(55.06,13,21,0)="^^10^10^2970624^^^^"
^DD(55.06,13,21,1,0)="  This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a"
^DD(55.06,13,21,2,0)="DOSE for this order.  The literals '1/2' and '1/4' may be entered.  If there"
^DD(55.06,13,21,3,0)="is no entry, it is assumed to be ONE (1)."
^DD(55.06,13,21,4,0)="                         ** PLEASE NOTE **"
^DD(55.06,13,21,5,0)="  If a doctor prescribes 30 ml's of a medication that is usually dispensed"
^DD(55.06,13,21,6,0)="and administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or"
^DD(55.06,13,21,7,0)=".5), NOT 30 ml's.  (30 ml's would be entered into the DOSAGE ORDERED field.)"
^DD(55.06,13,21,8,0)="  If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is"
^DD(55.06,13,21,9,0)="suggested that the maximum amount be entered into this field and the amount"
^DD(55.06,13,21,10,0)="ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS fields."
^DD(55.06,13,"DT")="2920513"
^DD(55.06,14,0)="*PRE-EXCHANGE UNITS^NJ5,2^^5;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(55.06,14,.1)="PRE-EXCHANGE UNITS"
^DD(55.06,14,1,0)="^.1"
^DD(55.06,14,1,1,0)="55.06^AL14^MUMPS"
^DD(55.06,14,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(14))#2 KILL^PSGAL5:PSGAL(14)=X K PSGAL"
^DD(55.06,14,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(14)=X,PSGAL(""C"")=6000,PSGALFF=14 D ^PSGAL5"
^DD(55.06,14,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,14,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,14,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,14,1,2,0)="55.06^AMSPREX^MUMPS"
^DD(55.06,14,1,2,1)="; I X S PSGAMSF=0 D ^PSGAMSA"
^DD(55.06,14,1,2,2)="Q"
^DD(55.06,14,1,2,"%D",0)="^^1^2920901^"
^DD(55.06,14,1,2,"%D",1,0)="No longer used."
^DD(55.06,14,1,3,0)="^^TRIGGER^55.06^63"
^DD(55.06,14,1,3,1)="I X S DIU=$S($D(^PS(55,DA(1),5,DA,5)):$P(^(5),""^"",9),1:0) S $P(^(5),""^"",9)=DIU+X I $O(^DD(55.06,63,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=DIU+X,DIH=55.06,DIG=63 D ^DICR"
^DD(55.06,14,1,3,2)="Q"
^DD(55.06,14,1,3,"%D",0)="^^1^2920901^"
^DD(55.06,14,1,3,"%D",1,0)="Used to trigger data into field 63."
^DD(55.06,14,1,3,"CREATE CONDITION")="IF PRE-EXCHANGE NEEDS"
^DD(55.06,14,1,3,"CREATE VALUE")="TOTAL PRE-EXCHANGE UNITS+PRE-EXCHANGE UNITS"
^DD(55.06,14,1,3,"DELETE VALUE")="NO EFFECT"
^DD(55.06,14,1,3,"FIELD")="TOTAL PRE-EXCHANGE UNITS"
^DD(55.06,14,3)="Type a Number between 0 and 99, 2 Decimal Digits."
^DD(55.06,14,4)=""
^DD(55.06,14,20,0)="^.3LA^1^1"
^DD(55.06,14,20,1,0)="PSJU"
^DD(55.06,14,21,0)="^^2^2^2910306^^^^"
^DD(55.06,14,21,1,0)="  This is the number of actual units required for this order until the"
^DD(55.06,14,21,2,0)="next cart exchange."
^DD(55.06,14,"DT")="2920513"
^DD(55.06,15,0)="COMMENTS^55.08^^3;0"
^DD(55.06,15,20,0)="^.3LA^1^1"
^DD(55.06,15,20,1,0)="PSJU"
^DD(55.06,15,21,0)="^^1^1^2920610^^^^"
^DD(55.06,15,21,1,0)="  This is any remarks or explanations needed for this order."
^DD(55.06,16,0)="VERIFYING NURSE^P200'^VA(200,^4;1^Q"
^DD(55.06,16,1,0)="^.1^^-1"
^DD(55.06,16,1,1,0)="55.06^AL15^MUMPS"
^DD(55.06,16,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(15))#2 KILL^PSGAL5:PSGAL(15)=X K PSGAL"
^DD(55.06,16,1,1,2)="I '$D(DIU(0)),X,'$D(PSGPO) S PSGAL(15)=X,PSGAL(""C"")=6000,PSGALFF=16 D ^PSGAL5"
^DD(55.06,16,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,16,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,16,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,16,1,2,0)="55.06^AVN^MUMPS"
^DD(55.06,16,1,2,1)="X:'$D(PSGNVF) ""S PSGAL(""""C"""")=""""VN"""" D ^PSGAL5"" K PSGNVF,PSGAL"
^DD(55.06,16,1,2,2)="S PSGNVF=1"
^DD(55.06,16,20,0)="^.3LA^1^1"
^DD(55.06,16,20,1,0)="PSJU"
^DD(55.06,16,21,0)="^^2^2^2910306^^"
^DD(55.06,16,21,1,0)="  This is the nurse who verified the order, or the latest action taken"
^DD(55.06,16,21,2,0)="on the order."
^DD(55.06,16,"DT")="2910708"
^DD(55.06,17,0)="DATE VERIFIED BY NURSE^D^^4;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,17,1,0)="^.1"
^DD(55.06,17,1,1,0)="55.06^AL16^MUMPS"
^DD(55.06,17,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(16))#2 KILL^PSGAL5:PSGAL(16)=X K PSGAL"
^DD(55.06,17,1,1,2)="I '$D(DIU(0)),X,'$D(PSGPO) S PSGAL(16)=X,PSGAL(""C"")=6000,PSGALFF=17 D ^PSGAL5"
^DD(55.06,17,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,17,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,17,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,17,20,0)="^.3LA^1^1"
^DD(55.06,17,20,1,0)="PSJU"
^DD(55.06,17,21,0)="^^1^1^2910306^^"
^DD(55.06,17,21,1,0)="  This is the date the order was verified by the nurse."
^DD(55.06,17,"DT")="2850313"
^DD(55.06,18,0)="VERIFYING PHARMACIST^P200'^VA(200,^4;3^Q"
^DD(55.06,18,1,0)="^.1^^-1"
^DD(55.06,18,1,1,0)="55.06^AL17^MUMPS"
^DD(55.06,18,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(17))#2 KILL^PSGAL5:PSGAL(17)=X K PSGAL"
^DD(55.06,18,1,1,2)="I X,'$D(DIU(0)),'$D(PSGPO) S PSGAL(17)=X,PSGAL(""C"")=6000,PSGALFF=18 D ^PSGAL5"
^DD(55.06,18,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,18,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,18,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,18,1,2,0)="55.06^AVP^MUMPS"
^DD(55.06,18,1,2,1)="X:'$D(PSGNVF) ""S PSGAL(""""C"""")=""""VP"""" D ^PSGAL5"" K PSGNVF,PSGAL"
^DD(55.06,18,1,2,2)="S PSGNVF=1"
^DD(55.06,18,3)=""
^DD(55.06,18,4)=""
^DD(55.06,18,20,0)="^.3LA^1^1"
^DD(55.06,18,20,1,0)="PSJU"
^DD(55.06,18,21,0)="^^1^1^2910306^^^"
^DD(55.06,18,21,1,0)="  This is the pharmacist who verified the order."
^DD(55.06,18,"DT")="2910708"
^DD(55.06,19,0)="DATE VERIFIED BY PHARMACIST^D^^4;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,19,1,0)="^.1"
^DD(55.06,19,1,1,0)="55.06^AL18^MUMPS"
^DD(55.06,19,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(18))#2 KILL^PSGAL5:PSGAL(18)=X K PSGAL"
^DD(55.06,19,1,1,2)="I X,'$D(DIU(0)),'$D(PSGPO) S PSGAL(18)=X,PSGAL(""C"")=6000,PSGALFF=19 D ^PSGAL5"
^DD(55.06,19,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,19,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,19,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,19,20,0)="^.3LA^1^1"
^DD(55.06,19,20,1,0)="PSJU"
^DD(55.06,19,21,0)="^^1^1^2910306^^"
^DD(55.06,19,21,1,0)="  This is the date the order was verified by the pharmacist."
^DD(55.06,19,"DT")="2850313"
^DD(55.06,20,0)="PHYSICIAN^*P200'^VA(200,^4;5^S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(55.06,20,1,0)="^.1"
^DD(55.06,20,1,1,0)="55.06^AL19^MUMPS"
^DD(55.06,20,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(19))#2 KILL^PSGAL5:PSGAL(19)=X K PSGAL"
^DD(55.06,20,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(19)=X,PSGAL(""C"")=6000,PSGALFF=20 D ^PSGAL5"
^DD(55.06,20,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,20,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,20,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,20,12)="Physician must be active and privileged to write medication orders."
^DD(55.06,20,12.1)="S DIC(""S"")=""I $D(^(""""PS"""")),^(""""PS""""),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)>DT)"""
^DD(55.06,20,20,0)="^.3LA^1^1"
^DD(55.06,20,20,1,0)="PSJU"
^DD(55.06,20,21,0)="^^1^1^2910708^^^^"
^DD(55.06,20,21,1,0)="  This is the physician who signed off on the order."
^DD(55.06,20,"DT")="2910708"
^DD(55.06,21,0)="DATE VERIFIED BY PHYSICIAN^D^^4;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,21,1,0)="^.1"
^DD(55.06,21,1,1,0)="55.06^AL20^MUMPS"
^DD(55.06,21,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(20))#2 KILL^PSGAL5:PSGAL(20)=X K PSGAL"
^DD(55.06,21,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(20)=X,PSGAL(""C"")=6000,PSGALFF=21 D ^PSGAL5"
^DD(55.06,21,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,21,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,21,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,21,20,0)="^.3LA^1^1"
^DD(55.06,21,20,1,0)="PSJU"
^DD(55.06,21,21,0)="^^1^1^2910306^^"
^DD(55.06,21,21,1,0)="  This is the date the physician signed off on the order."
^DD(55.06,21,"DT")="2850313"
^DD(55.06,22,0)="CLERK^P200'^VA(200,^4;7^Q"
^DD(55.06,22,1,0)="^.1"
^DD(55.06,22,1,1,0)="55.06^AL21^MUMPS"
^DD(55.06,22,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(21))#2 KILL^PSGAL5:PSGAL(21)=X K PSGAL"
^DD(55.06,22,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(21)=X,PSGAL(""C"")=6000,PSGALFF=22 D ^PSGAL5"
^DD(55.06,22,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,22,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,22,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,22,20,0)="^.3LA^1^1"
^DD(55.06,22,20,1,0)="PSJU"
^DD(55.06,22,21,0)="^^1^1^2910306^^"
^DD(55.06,22,21,1,0)="  (Not currently used.)"
^DD(55.06,22,"DT")="2910708"
^DD(55.06,23,0)="DATE ENTERED BY CLERK^D^^4;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,23,1,0)="^.1"
^DD(55.06,23,1,1,0)="55.06^AL22^MUMPS"
^DD(55.06,23,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(22))#2 KILL^PSGAL5:PSGAL(22)=X K PSGAL"
^DD(55.06,23,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(22)=X,PSGAL(""C"")=6000,PSGALFF=23 D ^PSGAL5"
^DD(55.06,23,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,23,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,23,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,23,20,0)="^.3LA^1^1"
^DD(55.06,23,20,1,0)="PSJU"
^DD(55.06,23,21,0)="^^1^1^2910306^^"
^DD(55.06,23,21,1,0)="  (Not currently used.)"
^DD(55.06,23,"DT")="2850313"
^DD(55.06,24,0)="*SOLUTION^P50'^PSDRUG(^0;17^Q"
^DD(55.06,24,.1)="SOLUTION"
^DD(55.06,24,1,0)="^.1"
^DD(55.06,24,1,1,0)="55.06^AL23^MUMPS"
^DD(55.06,24,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(23))#2 KILL^PSGAL5:PSGAL(23)=X K PSGAL"
^DD(55.06,24,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(23)=X,PSGAL(""C"")=6000,PSGALFF=24 D ^PSGAL5"
^DD(55.06,24,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,24,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,24,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,24,20,0)="^.3LA^1^1"
^DD(55.06,24,20,1,0)="PSJU"
^DD(55.06,24,21,0)="^^1^1^2910306^^"
^DD(55.06,24,21,1,0)="  (Not currently used.)"
^DD(55.06,24,"DT")="2920729"
^DD(55.06,25,0)="PREVIOUS STOP DATE/TIME^D^^2;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,25,1,0)="^.1^^-1"
^DD(55.06,25,1,1,0)="55.06^AL24^MUMPS"
^DD(55.06,25,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(24))#2 KILL^PSGAL5:PSGAL(24)=X K PSGAL"
^DD(55.06,25,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(24)=X,PSGAL(""C"")=6000,PSGALFF=25 D ^PSGAL5"
^DD(55.06,25,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,25,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,25,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,25,3)="Enter date and time that this order was to be stopped."
^DD(55.06,25,4)="D EN^DDIOL(""TIME IS REQUIRED."")"
^DD(55.06,25,20,0)="^.3LA^1^1"
^DD(55.06,25,20,1,0)="PSJU"
^DD(55.06,25,21,0)="^^2^2^2970624^^^"
^DD(55.06,25,21,1,0)="  This is used to store the original stop date when it is changed due"
^DD(55.06,25,21,2,0)="to the order being cancelled.  This allows the order to be reinstated."
^DD(55.06,25,"DT")="2860114"
^DD(55.06,26,0)="SCHEDULE^RFX^^2;1^D SCH^PSSDDUT"
^DD(55.06,26,1,0)="^.1"
^DD(55.06,26,1,1,0)="55.06^AL43^MUMPS"
^DD(55.06,26,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(43))#2 KILL^PSGAL5:PSGAL(43)=X K PSGAL"
^DD(55.06,26,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(43)=X,PSGAL(""C"")=6000,PSGALFF=26 D ^PSGAL5"
^DD(55.06,26,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,26,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,26,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,26,1,2,0)="^^TRIGGER^55.06^41"
^DD(55.06,26,1,2,1)="I '$D(DIU(0)),$D(PSGS0Y) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),""^"",5),1:"""") I DIU'=PSGS0Y S $P(^(2),""^"",5)=PSGS0Y I $O(^DD(55.06,41,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=PSGS0Y,DIH=55.06,DIG=41 D ^DICR"
^DD(55.06,26,1,2,2)="I '$D(DIU(0)),$D(PSGS0Y) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),""^"",5),1:"""") I DIU]"""" S $P(^(2),""^"",5)="""" I $O(^DD(55.06,41,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="""",DIH=55.06,DIG=41 D ^DICR"
^DD(55.06,26,1,2,"%D",0)="^^1^2920901^"
^DD(55.06,26,1,2,"%D",1,0)="Used to trigger data into field 41."
^DD(55.06,26,1,2,"CREATE VALUE")="PSGS0Y"
^DD(55.06,26,1,2,"DELETE VALUE")="@"
^DD(55.06,26,1,2,"FIELD")="ADMIN. TIMES"
^DD(55.06,26,1,3,0)="^^TRIGGER^55.06^42"
^DD(55.06,26,1,3,1)="I $D(PSGS0XT) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),""^"",6),1:"""") I DIU'=PSGS0XT S $P(^(2),""^"",6)=PSGS0XT I $O(^DD(55.06,42,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=PSGS0XT,DIH=55.06,DIG=42 D ^DICR"
^DD(55.06,26,1,3,2)="I $D(PSGS0XT) S DIU=$S($D(^PS(55,DA(1),5,DA,2)):$P(^(2),""^"",6),1:"""") I DIU]"""" S $P(^(2),""^"",6)="""" I $O(^DD(55.06,42,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV="""",DIH=55.06,DIG=42 D ^DICR"
^DD(55.06,26,1,3,"%D",0)="^^1^2920901^"
^DD(55.06,26,1,3,"%D",1,0)="Used to trigger data into field 42."
^DD(55.06,26,1,3,"CREATE VALUE")="PSGS0XT"
^DD(55.06,26,1,3,"DELETE VALUE")="@"
^DD(55.06,26,1,3,"FIELD")="FREQUENCY (in minutes)"
^DD(55.06,26,3)="Answer must be 1-70 characters in length and may contain only two spaces."
^DD(55.06,26,4)="D ENSH5^PSSDDUT"
^DD(55.06,26,9)="^"
^DD(55.06,26,20,0)="^.3LA^1^1"
^DD(55.06,26,20,1,0)="PSJU"
^DD(55.06,26,21,0)="^^13^13^3010625^"
^DD(55.06,26,21,1,0)="  This is the frequency (ONLY) by which the doses are to be administered."
^DD(55.06,26,21,2,0)="Several forms of entry are acceptable, such as Q6H, 09-12-15, STAT, QOD,"
^DD(55.06,26,21,3,0)="and MO-WE-FR@AD (where MO-WE-FR are days of the week, and AD is the admin"
^DD(55.06,26,21,4,0)="times.)  The schedule will show on the MAR, labels, etc.  No more than TWO"
^DD(55.06,26,21,5,0)="spaces (Q3H 4, TID PC PRN, or Q8H PRN) in the schedule is acceptable.  If"
^DD(55.06,26,21,6,0)="the letters PRN are found as part of the schedule, no admin times will"
^DD(55.06,26,21,7,0)="print on the MAR or labels, and the PICK LIST will always show a count of"
^DD(55.06,26,21,8,0)="zero (0). Avoid using notation such as W/F (with food) or WM (with meals)"
^DD(55.06,26,21,9,0)="in the schedule as it may cause erroneous calculations.  That information"
^DD(55.06,26,21,10,0)="should be entered into the SPECIAL INSTRUCTIONS. When using the"
^DD(55.06,26,21,11,0)="MO-WE-FR@AD schedule, please remember that this type of schedule will not"
^DD(55.06,26,21,12,0)="work properly without the ""@"" character and at least one admin. time, and"
^DD(55.06,26,21,13,0)="that at least the first two letters of each weekday entered is needed."
^DD(55.06,26,"DT")="2970626"
^DD(55.06,27,0)="ORDER DATE^D^^0;14^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,27,1,0)="^.1"
^DD(55.06,27,1,1,0)="55.06^AL26^MUMPS"
^DD(55.06,27,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(26))#2 KILL^PSGAL5:PSGAL(26)=X K PSGAL"
^DD(55.06,27,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(26)=X,PSGAL(""C"")=6000,PSGALFF=27 D ^PSGAL5"
^DD(55.06,27,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,27,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,27,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,27,3)="Enter the date and time that this order was entered into the computer."
^DD(55.06,27,4)="D EN^DDIOL(""TIME IS REQUIRED."")"
^DD(55.06,27,20,0)="^.3LA^1^1"
^DD(55.06,27,20,1,0)="PSJU"
^DD(55.06,27,21,0)="^^2^2^2970624^^^^"
^DD(55.06,27,21,1,0)="  This is the date the order was entered into the computer.  The package"
^DD(55.06,27,21,2,0)="enters this date automatically when the order is transcribed."
^DD(55.06,27,"DT")="2850313"
^DD(55.06,27.1,0)="LOG-IN DATE^D^^0;16^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,27.1,1,0)="^.1"
^DD(55.06,27.1,1,1,0)="55.06^AL27^MUMPS"
^DD(55.06,27.1,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(27))#2 KILL^PSGAL5:PSGAL(27)=X K PSGAL"
^DD(55.06,27.1,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(27)=X,PSGAL(""C"")=6000,PSGALFF=27.1 D ^PSGAL5"
^DD(55.06,27.1,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,27.1,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,27.1,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,27.1,20,0)="^.3LA^1^1"
^DD(55.06,27.1,20,1,0)="PSJU"
^DD(55.06,27.1,21,0)="^^1^1^2910306^^"
^DD(55.06,27.1,21,1,0)="  This is the date (to the second) the order was entered."
^DD(55.06,27.1,"DT")="2850313"
^DD(55.06,28,0)="STATUS^RS^A:ACTIVE;D:DISCONTINUED;E:EXPIRED;H:HOLD;R:RENEWED;RE:REINSTATED;DE:DISCONTINUED (EDIT);DR:DISCONTINUED (RENEWAL);^0;9^Q"
^DD(55.06,28,1,0)="^.1"
^DD(55.06,28,1,1,0)="55.06^AL28^MUMPS"
^DD(55.06,28,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(28))#2 KILL^PSGAL5:PSGAL(28)=X K PSGAL"
^DD(55.06,28,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(28)=X,PSGAL(""C"")=6000,PSGALFF=28 D ^PSGAL5"
^DD(55.06,28,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,28,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,28,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,28,1,2,0)="55.06^AOERRS^MUMPS"
^DD(55.06,28,1,2,1)="Q"
^DD(55.06,28,1,2,2)="Q"
^DD(55.06,28,1,2,3)="NEEDED BY UNIT DOSE"
^DD(55.06,28,1,2,"%D",0)="^^2^2^2920728^"
^DD(55.06,28,1,2,"%D",1,0)="Used by Unit Dose to update the order's corresponding order when the"
^DD(55.06,28,1,2,"%D",2,0)="STATUS is changed."
^DD(55.06,28,1,2,"DT")="2960523"
^DD(55.06,28,20,0)="^.3LA^1^1"
^DD(55.06,28,20,1,0)="PSJU"
^DD(55.06,28,21,0)="^^1^1^2910306^^"
^DD(55.06,28,21,1,0)="  This is the status of the order."
^DD(55.06,28,"DT")="2960523"
^DD(55.06,29,0)="ACTIVITY LOG^55.09DA^^9;0"
^DD(55.06,29,20,0)="^.3LA^1^1"
^DD(55.06,29,20,1,0)="PSJU"
^DD(55.06,29,21,0)="^^5^5^2920513^"
^DD(55.06,29,21,1,0)="  This is a record of the actions that have taken place on the order."
^DD(55.06,29,21,2,0)="Actions include EDIT, RENEWAL and CANCELLATION.  Stored with the action"
^DD(55.06,29,21,3,0)="is the date and time the action took place and the user who took the"
^DD(55.06,29,21,4,0)="action.  If the action is an edit, the data in the field edited prior"
^DD(55.06,29,21,5,0)="to the edit is also stored."
^DD(55.06,32,0)="*UNITS CALLED FOR^NJ4,0^^5;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.06,32,.1)="UNITS CALLED FOR"
^DD(55.06,32,1,0)="^.1"
^DD(55.06,32,1,1,0)="55.06^AL51^MUMPS"
^DD(55.06,32,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(51))#2 KILL^PSGAL5:PSGAL(51)=X K PSGAL"
^DD(55.06,32,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(51)=X,PSGAL(""C"")=6000,PSGALFF=32 D ^PSGAL5"
^DD(55.06,32,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,32,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,32,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,32,3)="Type a whole number between 0 and 9999."
^DD(55.06,32,20,0)="^.3LA^1^1"
^DD(55.06,32,20,1,0)="PSJU"
^DD(55.06,32,21,0)="^^2^2^2910306^^^"
^DD(55.06,32,21,1,0)="  This is the total number of units to be dispensed for this medication"
^DD(55.06,32,21,2,0)="as calculated by the package."
^DD(55.06,32,"DT")="2920128"
^DD(55.06,34,0)="STOP DATE/TIME^RDX^^2;4^X:X=+X&X&$D(^PS(55,DA(1),5,DA,2)) ""S PSGDL=X D EN2^PSSDDUT3"" S %DT=""ERTX"" D ^%DT S X=+Y K:Y'>0 X"
^DD(55.06,34,1,0)="^.1"
^DD(55.06,34,1,1,0)="55.06^ASD^MUMPS"
^DD(55.06,34,1,1,1)="S ^PS(55,DA(1),5,""AUS"",+X,DA)="""" I $P($G(^PS(55,DA(1),5,DA,0)),""^"",7)]"""" S ^PS(55,DA(1),5,""AU"",$P(^(0),""^"",7),+X,DA)="""""
^DD(55.06,34,1,1,2)="K ^PS(55,DA(1),5,""AUS"",+X,DA) I $P($G(^PS(55,DA(1),5,DA,0)),""^"",7)]"""" K ^PS(55,DA(1),5,""AU"",$P(^(0),""^"",7),+X,DA)"
^DD(55.06,34,1,1,3)="NEEDED BY UNIT DOSE"
^DD(55.06,34,1,1,"%D",0)="^^5^5^2920729^^^"
^DD(55.06,34,1,1,"%D",1,0)="Used by Unit Dose to gather orders.  X-refs are in the form of:"
^DD(55.06,34,1,1,"%D",2,0)="^PS(55,DA(1),""AU"",status,stop date/time,DA)"
^DD(55.06,34,1,1,"%D",3,0)="^PS(55,DA(1),""AUS"",stop date/time,DA)"
^DD(55.06,34,1,1,"%D",4,0)=" "
^DD(55.06,34,1,1,"%D",5,0)="These are used primarily by the profiles."
^DD(55.06,34,1,1,"DT")="2920729"
^DD(55.06,34,1,2,0)="55.06^AL53^MUMPS"
^DD(55.06,34,1,2,1)="I '$D(DIU(0)) D:$D(PSGAL(53))#2 KILL^PSGAL5:PSGAL(53)=X K PSGAL"
^DD(55.06,34,1,2,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(53)=X,PSGAL(""C"")=6000,PSGALFF=34 D ^PSGAL5"
^DD(55.06,34,1,2,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,34,1,2,"%D",0)="^^1^1^2920729^"
^DD(55.06,34,1,2,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,34,1,3,0)="55^AUD"
^DD(55.06,34,1,3,1)="S ^PS(55,""AUD"",$E(X,1,30),DA(1),DA)="""""
^DD(55.06,34,1,3,2)="K ^PS(55,""AUD"",$E(X,1,30),DA(1),DA)"
^DD(55.06,34,1,3,"%D",0)="^^1^1^2931031^"
^DD(55.06,34,1,3,"%D",1,0)="Identifies verified Unit Dose orders by the order's stop date/time."
^DD(55.06,34,1,3,"DT")="2931031"
^DD(55.06,34,3)="Enter the date and time that the last dose is to be given (and the order will expire)."
^DD(55.06,34,4)="D EN^DDIOL("" TIME IS REQUIRED."","""",""?0"")"
^DD(55.06,34,20,0)="^.3LA^1^1"
^DD(55.06,34,20,1,0)="PSJU"
^DD(55.06,34,21,0)="^^3^3^2970624^^^^"
^DD(55.06,34,21,1,0)="  This is the date and time the order will automatically expire.  This"
^DD(55.06,34,21,2,0)="package initially calculates a default stop date, depending on the SITE"
^DD(55.06,34,21,3,0)="PARAMETERS."
^DD(55.06,34,"DT")="3040729"
^DD(55.06,35,0)="*TOTAL RETURNS^NJ4,0^^5;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.06,35,.1)="TOTAL RETURNS"
^DD(55.06,35,1,0)="^.1"
^DD(55.06,35,1,1,0)="55.06^AL61^MUMPS"
^DD(55.06,35,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(61))#2 KILL^PSGAL5:PSGAL(61)=X K PSGAL"
^DD(55.06,35,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(61)=X,PSGAL(""C"")=6000,PSGALFF=35 D ^PSGAL5"
^DD(55.06,35,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,35,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,35,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,35,3)="Type a whole number between 0 and 9999."
^DD(55.06,35,5,1,0)="55.06^38^1"
^DD(55.06,35,20,0)="^.3LA^1^1"
^DD(55.06,35,20,1,0)="PSJU"
^DD(55.06,35,21,0)="^^2^2^2910306^^"
^DD(55.06,35,21,1,0)="  This is the total number units returned for this medication over the"
^DD(55.06,35,21,2,0)="life of the order."
^DD(55.06,35,"DT")="2920128"
^DD(55.06,36,0)="*UNITS ACTUALLY DISPENSED^NJ4,0^^5;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.06,36,.1)="UNITS ACTUALLY DISPENSED"
^DD(55.06,36,1,0)="^.1^^-1"
^DD(55.06,36,1,2,0)="55.06^AL54^MUMPS"
^DD(55.06,36,1,2,1)="I '$D(DIU(0)) D:$D(PSGAL(54))#2 KILL^PSGAL5:PSGAL(54)=X K PSGAL"
^DD(55.06,36,1,2,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(54)=X,PSGAL(""C"")=6000,PSGALFF=36 D ^PSGAL5"
^DD(55.06,36,1,2,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,36,1,2,"%D",0)="^1^1^2920728"
^DD(55.06,36,1,2,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,36,3)="Type a whole number between 0 and 9999."
^DD(55.06,36,20,0)="^.3LA^1^1"
^DD(55.06,36,20,1,0)="PSJU"
^DD(55.06,36,21,0)="^^2^2^2910306^^"
^DD(55.06,36,21,1,0)="  This is the number of units of this medication actually dispensed as"
^DD(55.06,36,21,2,0)="entered by the pharmacist."
^DD(55.06,36,"DT")="2920128"
^DD(55.06,38,0)="*RETURNS^NJ3,0^^5;5^K:+X'=X!(X>100)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(55.06,38,.1)="RETURNS"
^DD(55.06,38,1,0)="^.1"
^DD(55.06,38,1,1,0)="^^TRIGGER^55.06^35"
^DD(55.06,38,1,1,1)="I X S DIU=$S($D(^PS(55,DA(1),5,DA,5)):$P(^(5),""^"",4),1:""""),$P(^(5),""^"",4)=DIU+X I $O(^DD(55.06,35,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=DIU+X,DIH=55.06,DIG=35 D ^DICR"
^DD(55.06,38,1,1,2)="Q"
^DD(55.06,38,1,1,"%D",0)="^^1^2920901^"
^DD(55.06,38,1,1,"%D",1,0)="Used to trigger data into field 35."
^DD(55.06,38,1,1,"CREATE VALUE")="TOTAL RETURNS=TOTAL RETURNS+RETURNS"
^DD(55.06,38,1,1,"DELETE VALUE")="NO EFFECT"
^DD(55.06,38,1,1,"FIELD")="TOTAL RETURNS"
^DD(55.06,38,1,2,0)="55.06^AMSRET^MUMPS"
^DD(55.06,38,1,2,1)="; I X S PSGAMSF=2 D ^PSGAMSA"
^DD(55.06,38,1,2,2)="Q"
^DD(55.06,38,1,2,"%D",0)="^^2^2^2920729^"
^DD(55.06,38,1,2,"%D",1,0)="Formerly used to update the UD PICK LIST STATS file.  Routine call no"
^DD(55.06,38,1,2,"%D",2,0)="longer valid."
^DD(55.06,38,1,2,"DT")="2920729"
^DD(55.06,38,3)="Enter a whole number between -100 and 100."
^DD(55.06,38,4)="S Y1=$S('$D(^PS(55,DA(1),5,DA,5)):0,1:$P(^(5),""^"",4)) D EN^DDIOL($S(Y1:Y1_"" TOTAL"",1:""NO"")_"" UNIT""_$E(""S"",Y1'=1)_"" RETURNED, SO FAR."")"
^DD(55.06,38,20,0)="^.3LA^1^1"
^DD(55.06,38,20,1,0)="PSJU"
^DD(55.06,38,21,0)="^^2^2^2970624^^^^"
^DD(55.06,38,21,1,0)="  This is the number of units returned of this medication from the patient's"
^DD(55.06,38,21,2,0)="cassette upon the termination of this order."
^DD(55.06,38,"DT")="2920729"
^DD(55.06,39,0)="*TOTALS UNITS DISPENSED^CJ8,2^^ ; ^S Y(55.06,39,1)=$S($D(^PS(55,D0,5,D1,5)):^(5),1:"""") S X=$P(Y(55.06,39,1),U,3)+$P(Y(55.06,39,1),U,7)+$P(Y(55.06,39,1),U,9)-$P(Y(55.06,39,1),U,4) S X=$J(X,0,2)"
^DD(55.06,39,.1)="TOTALS UNITS DISPENSED"
^DD(55.06,39,9)="^"
^DD(55.06,39,9.01)="55.06^35;55.06^63;55.06^54;55.06^36"
^DD(55.06,39,9.1)="UNITS ACTUALLY DISPENSED+TOTAL EXTRA UNITS DISPENSED+TOTAL PRE-EXCHANGE UNITS-TOTAL RETURNS"
^DD(55.06,39,20,0)="^.3LA^1^1"
^DD(55.06,39,20,1,0)="PSJU"
^DD(55.06,39,21,0)="^^2^2^2910306^^"
^DD(55.06,39,21,1,0)="  This is the total number of units actually dispensed for this order,"
^DD(55.06,39,21,2,0)="including any EXTRA UNIT DISPENSED, and PRE-EXCHANGE NEEDS."
^DD(55.06,39,"DT")="2920128"
^DD(55.06,41,0)="ADMIN TIMES^FX^^2;5^K:X[""""""""!($A(X)=45) X I $D(X) D ENCHK^PSGS0"
^DD(55.06,41,1,0)="^.1"
^DD(55.06,41,1,1,0)="55.06^AL56^MUMPS"
^DD(55.06,41,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(56))#2 KILL^PSGAL5:PSGAL(56)=X K PSGAL"
^DD(55.06,41,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(56)=X,PSGAL(""C"")=6000,PSGALFF=41 D ^PSGAL5"
^DD(55.06,41,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,41,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,41,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,41,1,2,0)="55.06^ADM^MUMPS"
^DD(55.06,41,1,2,1)="I $P($G(^PS(55,DA(1),5,DA,2)),""^"")[""@"" S $P(^(2),""^"")=$P($P(^(2),""^""),""@"")_""@""_X"
^DD(55.06,41,1,2,2)="Q"
^DD(55.06,41,1,2,3)="USED BY UNIT DOSE"
^DD(55.06,41,1,2,"%D",0)="^^3^3^2920729^"
^DD(55.06,41,1,2,"%D",1,0)="If the SCHEDULE is a day-of-the-week schedule (which is in the form of"
^DD(55.06,41,1,2,"%D",2,0)="weekday[-weekday-weekday...]@admin times), this will update the admin"
^DD(55.06,41,1,2,"%D",3,0)="times part of the schedule whenever the admin times are edited here."
^DD(55.06,41,1,2,"DT")="2920729"
^DD(55.06,41,3)="Enter a set of times (1-119 characters) for the administration of this medication over a 24 hour period."
^DD(55.06,41,4)="D ADTM^PSSDDUT3"
^DD(55.06,41,5,1,0)="55.06^26^2"
^DD(55.06,41,20,0)="^.3LA^1^1"
^DD(55.06,41,20,1,0)="PSJU"
^DD(55.06,41,21,0)="^^3^3^2970624^^^^"
^DD(55.06,41,21,1,0)="  This is the times of the day the medication is to be administered.  This"
^DD(55.06,41,21,2,0)="package initially assigns a default set of ADMIN TIMES when a STANDARD"
^DD(55.06,41,21,3,0)="SCHEDULE is entered into the SCHEDULE prompt."
^DD(55.06,41,"DEL",5,0)="I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),""^"")[""@"" D EN^DDIOL(""YOU CANNOT DELETE THE ADMIN TIMES FOR THIS TYPE OF SCHEDULE. "","""",""!?2"")"
^DD(55.06,41,"DEL",42,0)="I $D(^PS(55,DA(1),5,DA,2)),$P(^(2),""^"",6)=""D"" D EN^DDIOL(""This is a 'DAY OF THE WEEK' schedule, and must have admin times."","""",""!"")"
^DD(55.06,41,"DT")="2920729"
^DD(55.06,42,0)="FREQUENCY (in minutes)^F^^2;6^K:$L(X)>6!($L(X)<1) X"
^DD(55.06,42,1,0)="^.1"
^DD(55.06,42,1,1,0)="55.06^AL57^MUMPS"
^DD(55.06,42,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(57))#2 KILL^PSGAL5:PSGAL(57)=X K PSGAL"
^DD(55.06,42,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(57)=X,PSGAL(""C"")=6000,PSGALFF=42 D ^PSGAL5"
^DD(55.06,42,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,42,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,42,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,42,3)="Answer must be 1-6 characters in length."
^DD(55.06,42,5,1,0)="55.06^26^3"
^DD(55.06,42,20,0)="^.3LA^1^1"
^DD(55.06,42,20,1,0)="PSJU"
^DD(55.06,42,21,0)="^^2^2^2910306^^^"
^DD(55.06,42,21,1,0)="  This is either a code or the number of minutes between the times the"
^DD(55.06,42,21,2,0)="medication is to be administered."
^DD(55.06,42,"DT")="2900109"
^DD(55.06,43,0)="RENEWAL^S^1:YES;0:NO;^4;15^Q"
^DD(55.06,43,1,0)="^.1"
^DD(55.06,43,1,1,0)="55.06^AL58^MUMPS"
^DD(55.06,43,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(58)) KILL^PSGAL5:PSGAL(58)=X K PSGAL"
^DD(55.06,43,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(58)=X,PSGAL(""C"")=6000,PSGALFF=43 D ^PSGAL5"
^DD(55.06,43,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,43,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,43,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,43,20,0)="^.3LA^1^1"
^DD(55.06,43,20,1,0)="PSJU"
^DD(55.06,43,21,0)="^^1^1^2910306^^"
^DD(55.06,43,21,1,0)="  This is an internal flag, set when the order is marked to be renewed."
^DD(55.06,43,"DT")="2860822"
^DD(55.06,44,0)="RENEWAL USER^P200'^VA(200,^4;16^Q"
^DD(55.06,44,1,0)="^.1"
^DD(55.06,44,1,1,0)="55.06^AL59^MUMPS"
^DD(55.06,44,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(59))#2 KILL^PSGAL5:PSGAL(59)=X K PSGAL"
^DD(55.06,44,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(59)=X,PSGAL(""C"")=6000,PSGALFF=44 D ^PSGAL5"
^DD(55.06,44,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,44,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,44,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,44,20,0)="^.3LA^1^1"
^DD(55.06,44,20,1,0)="PSJU"
^DD(55.06,44,21,0)="^^1^1^2871015^"
^DD(55.06,44,21,1,0)="  This is the user who marked the order to be renewed."
^DD(55.06,44,"DT")="2910708"
^DD(55.06,45,0)="DATE RENEWAL MARKED^D^^4;17^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,45,1,0)="^.1"
^DD(55.06,45,1,1,0)="55.06^AL60^MUMPS"
^DD(55.06,45,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(60))#2 KILL^PSGAL5:PSGAL(60)=X K PSGAL"
^DD(55.06,45,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(60)=X,PSGAL(""C"")=6000,PSGALFF=45 D ^PSGAL5"
^DD(55.06,45,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,45,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,45,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,45,3)="Enter the date and time this order was marked for renewal."
^DD(55.06,45,20,0)="^.3LA^1^1"
^DD(55.06,45,20,1,0)="PSJU"
^DD(55.06,45,21,0)="^^1^1^2910306^^^^"
^DD(55.06,45,21,1,0)="  This is the date this order was renewed or marked for renewal."
^DD(55.06,45,"DT")="2860822"
^DD(55.06,46,0)="MARKED CANCELLED^S^1:YES;0:NO;^4;12^Q"
^DD(55.06,46,1,0)="^.1"
^DD(55.06,46,1,1,0)="55.06^AL63^MUMPS"
^DD(55.06,46,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(63)) KILL^PSGAL5:PSGAL(63)=X K PSGAL"
^DD(55.06,46,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(63)=X,PSGAL(""C"")=6000,PSGALFF=46 D ^PSGAL5"
^DD(55.06,46,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,46,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,46,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,46,3)=""
^DD(55.06,46,20,0)="^.3LA^1^1"
^DD(55.06,46,20,1,0)="PSJU"
^DD(55.06,46,21,0)="^^1^1^2910306^^^"
^DD(55.06,46,21,1,0)="  This is an internal flag set when the order is marked for cancellation."
^DD(55.06,46,"DT")="2860825"
^DD(55.06,47,0)="MARKED CANCELLED USER^P200'^VA(200,^4;13^Q"
^DD(55.06,47,1,0)="^.1"
^DD(55.06,47,1,1,0)="55.06^AL64^MUMPS"
^DD(55.06,47,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(64)) KILL^PSGAL5:PSGAL(64)=X K PSGAL"
^DD(55.06,47,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(64)=X,PSGAL(""C"")=6000,PSGALFF=47 D ^PSGAL5"
^DD(55.06,47,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,47,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,47,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,47,3)=""
^DD(55.06,47,20,0)="^.3LA^1^1"
^DD(55.06,47,20,1,0)="PSJU"
^DD(55.06,47,21,0)="^^1^1^2910306^^^^"
^DD(55.06,47,21,1,0)="  This is the user who marked the order for cancellation."
^DD(55.06,47,"DT")="2910708"
^DD(55.06,48,0)="DATE MARKED CANCELLED^D^^4;14^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,48,1,0)="^.1"
^DD(55.06,48,1,1,0)="55.06^AL65^MUMPS"
^DD(55.06,48,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(65)) KILL^PSGAL5:PSGAL(65)=X K PSGAL"
^DD(55.06,48,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(65)=X,PSGAL(""C"")=6000,PSGALFF=48 D ^PSGAL5"
^DD(55.06,48,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,48,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,48,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,48,20,0)="^.3LA^1^1"
^DD(55.06,48,20,1,0)="PSJU"
^DD(55.06,48,21,0)="^^1^1^2910306^^^"
^DD(55.06,48,21,1,0)="  This is the date that the order was marked for cancellation."
^DD(55.06,48,"DT")="2860825"
^DD(55.06,49,0)="AUTO CANCELLED FLAG^S^1:YES;0:NO;^4;11^Q"
^DD(55.06,49,1,0)="^.1"
^DD(55.06,49,1,1,0)="55.06^AL62^MUMPS"
^DD(55.06,49,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(62))#2 KILL^PSGAL5:PSGAL(62)=X K PSGAL"
^DD(55.06,49,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(62)=X,PSGAL(""C"")=6000,PSGALFF=49 D ^PSGAL5"
^DD(55.06,49,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,49,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,49,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,49,20,0)="^.3LA^1^1"
^DD(55.06,49,20,1,0)="PSJU"
^DD(55.06,49,21,0)="^^5^5^2940714^^^^"
^DD(55.06,49,21,1,0)="  This is an internal flag looked at by the UNIT DOSE package to determine"
^DD(55.06,49,21,2,0)="if this order was automatically cancelled by the package because the patient"
^DD(55.06,49,21,3,0)="was newly admitted, transferred, or discharged (or deceased).  If this flag "
^DD(55.06,49,21,4,0)="is on (1), the order may be reinstated within 72 hours of its cancellation."
^DD(55.06,49,21,5,0)=" "
^DD(55.06,49,"DT")="2860822"
^DD(55.06,50,0)="PV FLAG^S^1:YES;0:NO;^4;9^Q"
^DD(55.06,50,1,0)="^.1"
^DD(55.06,50,1,1,0)="55.06^AL66^MUMPS"
^DD(55.06,50,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(66)) KILL^PSGAL5:PSGAL(66)=X K PSGAL"
^DD(55.06,50,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(66)=X,PSGAL(""C"")=6000,PSGALFF=50 D ^PSGAL5"
^DD(55.06,50,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,50,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,50,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,50,1,2,0)="55^APV^MUMPS"
^DD(55.06,50,1,2,1)="K:X ^PS(55,""APV"",DA(1),DA) S:'X ^PS(55,""APV"",DA(1),DA)="""""
^DD(55.06,50,1,2,2)="K ^PS(55,""APV"",DA(1),DA)"
^DD(55.06,50,1,2,"%D",0)="^^2^2^2960925^^^^"
^DD(55.06,50,1,2,"%D",1,0)="This is used to identify orders that have been verified by a nurse but"
^DD(55.06,50,1,2,"%D",2,0)="not a pharmacist."
^DD(55.06,50,1,2,"DT")="2960918"
^DD(55.06,50,20,0)="^.3LA^1^1"
^DD(55.06,50,20,1,0)="PSJU"
^DD(55.06,50,21,0)="^^1^1^2960726^^^^"
^DD(55.06,50,21,1,0)="  This is an internal flag set whenever a pharmacist verifies the order."
^DD(55.06,50,"DT")="2960918"
^DD(55.06,51,0)="NV FLAG^S^1:YES;0:NO;^4;10^Q"
^DD(55.06,51,1,0)="^.1"
^DD(55.06,51,1,1,0)="55.06^AL67^MUMPS"
^DD(55.06,51,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(67)) KILL^PSGAL5:PSGAL(67)=X K PSGAL"
^DD(55.06,51,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(67)=X,PSGAL(""C"")=6000,PSGALFF=51 D ^PSGAL5"
^DD(55.06,51,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,51,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,51,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,51,1,2,0)="55^ANV^MUMPS"
^DD(55.06,51,1,2,1)="K:X ^PS(55,""ANV"",DA(1),DA) S:'X ^PS(55,""APV"",DA(1),DA)="""""
^DD(55.06,51,1,2,2)="S:'X ^PS(55,""ANV"",DA(1),DA)="""""
^DD(55.06,51,1,2,"%D",0)="^^2^2^2960925^^^"
^DD(55.06,51,1,2,"%D",1,0)="This is used to identify orders that have been verified by a nurse but not"
^DD(55.06,51,1,2,"%D",2,0)="a phrarmacist."
^DD(55.06,51,1,2,"DT")="2960918"
^DD(55.06,51,20,0)="^.3LA^1^1"
^DD(55.06,51,20,1,0)="PSJU"
^DD(55.06,51,21,0)="^^1^1^2910306^^^"
^DD(55.06,51,21,1,0)="  This is an internal flag set whenever a nurse verifies the order."
^DD(55.06,51,"DT")="2960918"
^DD(55.06,52,0)="LABEL DATE^D^^7;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,52,1,0)="^.1"
^DD(55.06,52,1,1,0)="55.06^AL68^MUMPS"
^DD(55.06,52,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(68)) KILL^PSGAL5:PSGAL(68)=X K PSGAL"
^DD(55.06,52,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(68)=X,PSGAL(""C"")=6000,PSGALFF=52 D ^PSGAL5"
^DD(55.06,52,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,52,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,52,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,52,3)="Enter the date and time the latest label for this order was created."
^DD(55.06,52,20,0)="^.3LA^1^1"
^DD(55.06,52,20,1,0)="PSJU"
^DD(55.06,52,21,0)="^^1^1^2910306^^"
^DD(55.06,52,21,1,0)="  This is the date the last label record was created for the order."
^DD(55.06,52,"DT")="2860825"
^DD(55.06,53,0)="LABEL REASON^S^E:EDITED;N:NEW;R:RENEWED;D:DISCONTINUED;RE:REINSTATED;DE:DISCONTINUED (EDIT);H1:ON HOLD;H0:OFF OF HOLD;^7;2^Q"
^DD(55.06,53,1,0)="^.1"
^DD(55.06,53,1,1,0)="55.06^AL69^MUMPS"
^DD(55.06,53,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(69)) KILL^PSGAL5:PSGAL(69)=X K PSGAL"
^DD(55.06,53,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(69)=X,PSGAL(""C"")=6000,PSGALFF=53 D ^PSGAL5"
^DD(55.06,53,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,53,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,53,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,53,3)="Enter the reason the latest label was created for this order."
^DD(55.06,53,20,0)="^.3LA^1^1"
^DD(55.06,53,20,1,0)="PSJU"
^DD(55.06,53,21,0)="^^2^2^2940630^^^^"
^DD(55.06,53,21,1,0)="  This is the last activity to take place on the order that created a"
^DD(55.06,53,21,2,0)="label record."
^DD(55.06,53,"DT")="2940630"
^DD(55.06,54,0)="*TOTALS EXTRA UNITS DISPENSED^NJ3,0^^5;7^K:+X'=X!(X>100)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(55.06,54,.1)="TOTAL EXTRA UNITS DISPENSED"
^DD(55.06,54,1,0)="^.1"
^DD(55.06,54,1,1,0)="55.06^AL70^MUMPS"
^DD(55.06,54,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(70)) KILL^PSGAL5:PSGAL(70)=X K PSGAL"
^DD(55.06,54,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(70)=X,PSGAL(""C"")=6000,PSGALFF=54 D ^PSGAL5"
^DD(55.06,54,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,54,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,54,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,54,3)="Type a whole number between -100 and 100."
^DD(55.06,54,5,1,0)="55.06^55^1"
^DD(55.06,54,20,0)="^.3LA^1^1"
^DD(55.06,54,20,1,0)="PSJU"
^DD(55.06,54,21,0)="^^2^2^2910306^^^"
^DD(55.06,54,21,1,0)="  This is the total number of extra units dispensed for this order over"
^DD(55.06,54,21,2,0)="the entire life of the order."
^DD(55.06,54,"DT")="2920128"
^DD(55.06,55,0)="*EXTRA UNITS DISPENSED^NJ2,0^^5;8^K:+X'=X!(X>100)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(55.06,55,.1)="EXTRA UNITS DISPENSED"
^DD(55.06,55,1,0)="^.1"
^DD(55.06,55,1,1,0)="^^TRIGGER^55.06^54"
^DD(55.06,55,1,1,1)="I X S DIU=$S($D(^PS(55,DA(1),5,DA,5)):$P(^(5),""^"",7),1:""""),$P(^(5),""^"",7)=DIU+X I $O(^DD(55.06,54,1,0)) K DIV S (DIV(0),D0)=DA(1),(DIV(1),D1)=DA,DIV=DIU+X,DIH=55.06,DIG=54 D ^DICR"
^DD(55.06,55,1,1,2)="Q"
^DD(55.06,55,1,1,"%D",0)="^^1^2920901^"
^DD(55.06,55,1,1,"%D",1,0)="Used to trigger data into field 54."
^DD(55.06,55,1,1,"CREATE VALUE")="TOTAL EXTRA UNITS DISPENSED+EXTRA UNITS DISPENSED"
^DD(55.06,55,1,1,"DELETE VALUE")="NO EFFECT"
^DD(55.06,55,1,1,"FIELD")="TOTAL EXTRA UNITS DISPENSED"
^DD(55.06,55,1,2,0)="55.06^AMSEXTRA^MUMPS"
^DD(55.06,55,1,2,1)="; I '$D(DIU(0)),X S PSGAMSF=0 D ^PSGAMSA"
^DD(55.06,55,1,2,2)="Q"
^DD(55.06,55,1,2,"%D",0)="^^1^1^2920729^"
^DD(55.06,55,1,2,"%D",1,0)="Formerly used to update the UD PICK LIST STATS file."
^DD(55.06,55,1,2,"DT")="2920729"
^DD(55.06,55,3)="Enter a whole number between -100 and 100."
^DD(55.06,55,20,0)="^.3LA^1^1"
^DD(55.06,55,20,1,0)="PSJU"
^DD(55.06,55,21,0)="^^2^2^2910306^^^^"
^DD(55.06,55,21,1,0)=" This is the number of units dispensed outside of the normal dispensing"
^DD(55.06,55,21,2,0)="process (pick list)."
^DD(55.06,55,"DT")="2920729"
^DD(55.06,56,0)="HOLD FLAG^S^0:OFF;1:ON;^4;18^Q"
^DD(55.06,56,1,0)="^.1"
^DD(55.06,56,1,1,0)="55.06^AL71^MUMPS"
^DD(55.06,56,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(71)) KILL^PSGAL5:PSGAL(71)=X K PSGAL"
^DD(55.06,56,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(71)=X,PSGAL(""C"")=6000,PSGALFF=56 D ^PSGAL5"
^DD(55.06,56,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,56,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,56,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,56,20,0)="^.3LA^1^1"
^DD(55.06,56,20,1,0)="PSJU"
^DD(55.06,56,21,0)="^^2^2^2910306^^^^"
^DD(55.06,56,21,1,0)="  This is an internal number set whenever the order is placed on HOLD,"
^DD(55.06,56,21,2,0)="or marked to be placed on hold."
^DD(55.06,56,"DT")="2860825"
^DD(55.06,57,0)="HOLD USER^P200'^VA(200,^4;19^Q"
^DD(55.06,57,1,0)="^.1"
^DD(55.06,57,1,1,0)="55.06^AL72^MUMPS"
^DD(55.06,57,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(72)) KILL^PSGAL5:PSGAL(72)=X K PSGAL"
^DD(55.06,57,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(72)=X,PSGAL(""C"")=6000,PSGALFF=57 D ^PSGAL5"
^DD(55.06,57,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,57,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,57,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,57,20,0)="^.3LA^1^1"
^DD(55.06,57,20,1,0)="PSJU"
^DD(55.06,57,21,0)="^^2^2^2910306^^^"
^DD(55.06,57,21,1,0)="  This is the user who placed the order on hold, or marked the order to be"
^DD(55.06,57,21,2,0)="placed on hold."
^DD(55.06,57,"DT")="2910708"
^DD(55.06,58,0)="HOLD DATE^D^^4;20^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,58,1,0)="^.1"
^DD(55.06,58,1,1,0)="55.06^AL73^MUMPS"
^DD(55.06,58,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(73)) KILL^PSGAL5:PSGAL(73)=X K PSGAL"
^DD(55.06,58,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(73)=X,PSGAL(""C"")=6000,PSGALFF=58 D ^PSGAL5"
^DD(55.06,58,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,58,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,58,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,58,20,0)="^.3LA^1^1"
^DD(55.06,58,20,1,0)="PSJU"
^DD(55.06,58,21,0)="^^2^2^2910306^^^"
^DD(55.06,58,21,1,0)="  This is the date the order was placed on hold, or marked to be placed"
^DD(55.06,58,21,2,0)="on hold."
^DD(55.06,58,"DT")="2860825"
^DD(55.06,59,0)="HOLD STATUS^S^A:ACTIVE;R:RENEWED;RE:REINSTATED;^4;21^Q"
^DD(55.06,59,1,0)="^.1"
^DD(55.06,59,1,1,0)="55.06^AL74^MUMPS"
^DD(55.06,59,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(74)) KILL^PSGAL5:PSGAL(74)=X K PSGAL"
^DD(55.06,59,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(74)=X,PSGAL(""C"")=6000,PSGALFF=59 D ^PSGAL5"
^DD(55.06,59,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,59,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,59,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,59,20,0)="^.3LA^1^1"
^DD(55.06,59,20,1,0)="PSJU"
^DD(55.06,59,21,0)="^^3^3^2910306^^^^"
^DD(55.06,59,21,1,0)="  This is the previous status of the order, updated when the order is"
^DD(55.06,59,21,2,0)="placed on HOLD.  This allows the return of the previous status when the"
^DD(55.06,59,21,3,0)="order is taken off of hold."
^DD(55.06,59,"DT")="2860825"
^DD(55.06,59.1,0)="OERR HOLD FLAG^S^1:YES;^4;26^Q"
^DD(55.06,59.1,3)="This field is set when order is placed on hold thru OE/RR package."
^DD(55.06,59.1,21,0)="^^3^3^2921112^"
^DD(55.06,59.1,21,1,0)="This field is set when the order is placed on hold through the OE/RR"
^DD(55.06,59.1,21,2,0)="package. Orders placed on hold through OE/RR may only be removed from"
^DD(55.06,59.1,21,3,0)="hold through OE/RR."
^DD(55.06,59.1,"DT")="2920731"
^DD(55.06,60,0)="OFF HOLD FLAG^S^0:OFF;1:ON;^4;22^Q"
^DD(55.06,60,1,0)="^.1"
^DD(55.06,60,1,1,0)="55.06^AL75^MUMPS"
^DD(55.06,60,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(75)) KILL^PSGAL5:PSGAL(75)=X K PSGAL"
^DD(55.06,60,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(75)=X,PSGAL(""C"")=6000,PSGALFF=60 D ^PSGAL5"
^DD(55.06,60,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,60,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,60,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,60,20,0)="^.3LA^1^1"
^DD(55.06,60,20,1,0)="PSJU"
^DD(55.06,60,21,0)="^^2^2^2910306^^^^"
^DD(55.06,60,21,1,0)="  This is an internal flag set when an order is taken off of hold, or"
^DD(55.06,60,21,2,0)="marked to be taken off of hold."
^DD(55.06,60,"DT")="2860825"
^DD(55.06,61,0)="OFF HOLD USER^P200'^VA(200,^4;23^Q"
^DD(55.06,61,1,0)="^.1"
^DD(55.06,61,1,1,0)="55.06^AL76^MUMPS"
^DD(55.06,61,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(76)) KILL^PSGAL5:PSGAL(76)=X K PSGAL"
^DD(55.06,61,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(76)=X,PSGAL(""C"")=6000,PSGALFF=61 D ^PSGAL5"
^DD(55.06,61,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,61,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,61,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,61,20,0)="^.3LA^1^1"
^DD(55.06,61,20,1,0)="PSJU"
^DD(55.06,61,21,0)="^^2^2^2910306^^^^"
^DD(55.06,61,21,1,0)="  This is the user who has taken the order off of hold, or marked the order"
^DD(55.06,61,21,2,0)="to be taken off of hold."
^DD(55.06,61,"DT")="2910708"
^DD(55.06,62,0)="OFF HOLD DATE^D^^4;24^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,62,1,0)="^.1"
^DD(55.06,62,1,1,0)="55.06^AL77^MUMPS"
^DD(55.06,62,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(77)) KILL^PSGAL5:PSGAL(77)=X K PSGAL"
^DD(55.06,62,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(77)=X,PSGAL(""C"")=6000,PSGALFF=62 D ^PSGAL5"
^DD(55.06,62,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,62,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,62,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,62,20,0)="^.3LA^1^1"
^DD(55.06,62,20,1,0)="PSJU"
^DD(55.06,62,21,0)="^^2^2^2910306^^^"
^DD(55.06,62,21,1,0)="  This is the date the order was taken off of hold, or marked to taken"
^DD(55.06,62,21,2,0)="off of hold."
^DD(55.06,62,"DT")="2860825"
^DD(55.06,63,0)="*TOTAL PRE-EXCHANGE UNITS^NJ7,2^^5;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(55.06,63,.1)="TOTAL PRE-EXCHANGE UNITS"
^DD(55.06,63,3)="Enter a number between 0 and 9999."
^DD(55.06,63,5,1,0)="55.06^14^3"
^DD(55.06,63,20,0)="^.3LA^1^1"
^DD(55.06,63,20,1,0)="PSJU"
^DD(55.06,63,21,0)="^^2^2^2910306^^"
^DD(55.06,63,21,1,0)="  This is the total number of pre-exchange units dispensed over the life"
^DD(55.06,63,21,2,0)="of the order."
^DD(55.06,63,"DT")="2920513"
^DD(55.06,64,0)="PURGE FLAG^MD^^0;20^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,64,1,0)="^.1"
^DD(55.06,64,1,1,0)="55.06^AL79^MUMPS"
^DD(55.06,64,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(79)) KILL^PSGAL5:PSGAL(79)=X K PSGAL"
^DD(55.06,64,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(79)=X,PSGAL(""C"")=6000,PSGALFF=64 D ^PSGAL5"
^DD(55.06,64,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,64,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,64,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,64,1,2,0)="55^AUDDD"
^DD(55.06,64,1,2,1)="S ^PS(55,""AUDDD"",$E(X,1,30),DA(1),DA)="""""
^DD(55.06,64,1,2,2)="K ^PS(55,""AUDDD"",$E(X,1,30),DA(1),DA)"
^DD(55.06,64,1,2,3)="NEEDED BY UNIT DOSE"
^DD(55.06,64,1,2,"%D",0)="^^2^2^2920729^"
^DD(55.06,64,1,2,"%D",1,0)="Only orders with this x-ref set are purged by the routine PSGPO.  Set"
^DD(55.06,64,1,2,"%D",2,0)="in the PSJADT routines."
^DD(55.06,64,3)=""
^DD(55.06,64,20,0)="^.3LA^1^1"
^DD(55.06,64,20,1,0)="PSJU"
^DD(55.06,64,21,0)="^^3^3^2910306^^^^"
^DD(55.06,64,21,1,0)="  This is an internal flag set when the order is due to be purged (deleted)."
^DD(55.06,64,21,2,0)="This is actually the patient's discharge date, to allow the use of the"
^DD(55.06,64,21,3,0)="'AUDDD' x-ref."
^DD(55.06,64,"DT")="2890308"
^DD(55.06,65,0)="*SIG^F^^6.5;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>180!($L(X)<1) X"
^DD(55.06,65,.1)="SIG"
^DD(55.06,65,1,0)="^.1"
^DD(55.06,65,1,1,0)="55.06^AL78^MUMPS"
^DD(55.06,65,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(78)) KILL^PSGAL5:PSGAL(78)=X K PSGAL"
^DD(55.06,65,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(78)=X,PSGAL(""C"")=6000,PSGALFF=65 D ^PSGAL5"
^DD(55.06,65,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,65,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,65,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,65,3)="Answer must be 1-180 characters in length."
^DD(55.06,65,20,0)="^.3LA^1^1"
^DD(55.06,65,20,1,0)="PSJU"
^DD(55.06,65,21,0)="^^2^2^2910306^^"
^DD(55.06,65,21,1,0)="  This is the provider's exact instructions for this order's medication"
^DD(55.06,65,21,2,0)="and its administration."
^DD(55.06,65,"DT")="2920729"
^DD(55.06,66,0)="ORDERS FILE ENTRY^F^^0;21^K:$L(X)>30!($L(X)<1) X"
^DD(55.06,66,1,0)="^.1"
^DD(55.06,66,1,1,0)="55.06^AL80^MUMPS"
^DD(55.06,66,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(80)) KILL^PSGAL5:PSGAL(80)=X K PSGAL"
^DD(55.06,66,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(80)=X,PSGAL(""C"")=6000,PSGALFF=66 D ^PSGAL5"
^DD(55.06,66,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,66,1,1,"%D",0)="^1^1^1^2960220^"
^DD(55.06,66,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,66,3)="Answer must be 1-30 characters in length."
^DD(55.06,66,20,0)="^.3LA^1^1"
^DD(55.06,66,20,1,0)="PSJU"
^DD(55.06,66,21,0)="^^2^2^2960129^^^^"
^DD(55.06,66,21,1,0)="  This is the pointer value of the corresponding entry in the ORDERS"
^DD(55.06,66,21,2,0)="file (100) when the order is entered into OE/RR."
^DD(55.06,66,"DT")="3030717"
^DD(55.06,67,0)="MERGED PATIENT^F^^4;25^K:$L(X)>13!($L(X)<2) X"
^DD(55.06,67,3)="Answer must be 2-13 characters in length."
^DD(55.06,67,20,0)="^.3LA^1^1"
^DD(55.06,67,20,1,0)="PSJU"
^DD(55.06,67,21,0)="^^5^5^2910306^^^^"
^DD(55.06,67,21,1,0)="  If the order is moved from one patient to another, because patients are"
^DD(55.06,67,21,2,0)="being merged, there will be data here.  The data will be in the form of"
^DD(55.06,67,21,3,0)="another patient's internal record number concatenated with either a `T' (if"
^DD(55.06,67,21,4,0)="the order has been moved to the other patient), or an `F' (if the came FROM"
^DD(55.06,67,21,5,0)="the other patient)."
^DD(55.06,67,"DT")="2870826"
^DD(55.06,68,0)="LAST WARD^P42'^DIC(42,^0;23^Q"
^DD(55.06,68,3)="SHOULD NOT BE ENTERED THROUGH VA FILEMAN."
^DD(55.06,68,20,0)="^.3LA^1^1"
^DD(55.06,68,20,1,0)="PSJU"
^DD(55.06,68,21,0)="^^5^5^2931208^^^^"
^DD(55.06,68,21,1,0)="  This is the last ward the patient was located when the order expired"
^DD(55.06,68,21,2,0)="or was discontinued.  This is automatically updated by the Unit Dose"
^DD(55.06,68,21,3,0)="package when the package finds that the patient is first admitted or"
^DD(55.06,68,21,4,0)="when the patient is found to have been transferred.  This allows any"
^DD(55.06,68,21,5,0)="returns that are entered to be credited to the correct ward."
^DD(55.06,68,"DT")="2931208"
^DD(55.06,69,0)="'NOT TO BE GIVEN' FLAG^S^1:NOT TO BE GIVEN;^0;22^Q"
^DD(55.06,69,3)="NOT TO BE ENTERED THROUGH VA FILEMAN"
^DD(55.06,69,20,0)="^.3LA^1^1"
^DD(55.06,69,20,1,0)="PSJU"
^DD(55.06,69,21,0)="^^4^4^2940621^^^^"
^DD(55.06,69,21,1,0)="  This is a flag that may be set for orders that have been discontinued"
^DD(55.06,69,21,2,0)="or expired only.  If the flag is set, the order cannot be renewed or"
^DD(55.06,69,21,3,0)="reinstated.  This is to be set only through the package, and not through"
^DD(55.06,69,21,4,0)="VA FileMan."
^DD(55.06,69,"DT")="2880823"
^DD(55.06,70,0)="ORIGINAL START DATE/TIME^D^^2;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.06,70,3)="ENTER DATE THIS ORDER ORIGINALLY STARTED."
^DD(55.06,70,20,0)="^.3LA^1^1"
^DD(55.06,70,20,1,0)="PSG"
^DD(55.06,70,21,0)="^^2^2^2910306^^"
^DD(55.06,70,21,1,0)="  This is the original start date/time of the order.  An entry is"
^DD(55.06,70,21,2,0)="automatically made here the first time the order is renewed."
^DD(55.06,70,"DT")="2900212"
^DD(55.06,71,0)="DISPENSE LOG^55.0611D^^11;0"
^DD(55.06,71,20,0)="^.3LA^1^1"
^DD(55.06,71,20,1,0)="PSJU"
^DD(55.06,71,21,0)="^^2^2^2920514^"
^DD(55.06,71,21,1,0)="  This is the dispensing record for this order.  It contains information"
^DD(55.06,71,21,2,0)="such when the drug was dispensed, by whom, and how it was dispensed."
^DD(55.06,71,23,0)="^^3^3^2920514^"
^DD(55.06,71,23,1,0)="  This contains the dispensing information for the order.  Every time"
^DD(55.06,71,23,2,0)="a medication is dispensed (or returned) for this order, an entry is"
^DD(55.06,71,23,3,0)="made here."
^DD(55.06,72,0)="PROVIDER COMMENTS^55.0612^^12;0"
^DD(55.06,72,20,0)="^.3LA^1^1"
^DD(55.06,72,20,1,0)="PSJU"
^DD(55.06,72,21,0)="^^2^2^2940325^^"
^DD(55.06,72,21,1,0)="  This is any instructions or comments entered by the provider for this"
^DD(55.06,72,21,2,0)="order."
^DD(55.06,101,0)="*PRIMARY DRUG^P50.3'^PS(50.3,^.1;1^Q"
^DD(55.06,101,1,0)="^.1"
^DD(55.06,101,1,1,0)="55.06^B"
^DD(55.06,101,1,1,1)="S ^PS(55,DA(1),5,""C"",$E(X,1,30),DA)="""""
^DD(55.06,101,1,1,2)="K ^PS(55,DA(1),5,""C"",$E(X,1,30),DA)"
^DD(55.06,101,1,1,3)="Used to index Unit Dose orders by Primary Drug."
^DD(55.06,101,1,1,"DT")="2911031"
^DD(55.06,101,1,2,0)="55.06^AL101^MUMPS"
^DD(55.06,101,1,2,1)="I '$D(DIU(0)) D:$D(PSGAL(101)) KILL^PSGAL5:PSGAL(101)=X K PSGAL"
^DD(55.06,101,1,2,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(101)=X,PSGAL(""C"")=6000,PSGALFF=101,PSGALFN=55.06 D ^PSGAL5"
^DD(55.06,101,1,2,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,101,1,2,"%D",0)="^1^1^2920728"
^DD(55.06,101,1,2,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,101,1,2,"DT")="2911031"
^DD(55.06,101,21,0)="^^4^4^2920511^^^"
^DD(55.06,101,21,1,0)="  This is the primary drug associated with the order. If the order is"
^DD(55.06,101,21,2,0)="a unit dose order all dispensed drugs entered must be matched to the"
^DD(55.06,101,21,3,0)="order's primary drug. If the order is an IV order at least one of the"
^DD(55.06,101,21,4,0)="additives or solutions entered must match the primary drug."
^DD(55.06,101,"DT")="2960201"
^DD(55.06,102,0)="*DOSAGE ORDERED^RF^^.1;2^K:$L(X)>20!($L(X)<1) X"
^DD(55.06,102,1,0)="^.1"
^DD(55.06,102,1,1,0)="55.06^AL102^MUMPS"
^DD(55.06,102,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(102)) KILL^PSGAL5:PSGAL(102)=X K PSGAL"
^DD(55.06,102,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(102)=X,PSGAL(""C"")=6000,PSGALFF=102,PSGALFN=55.06 D ^PSGAL5"
^DD(55.06,102,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,102,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,102,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,102,3)="Enter the amount of the drug the patient is to receive as a dose for this order, using 1-20 characters.  This is an amount, such as '20MG', and NOT the number of tablets."
^DD(55.06,102,21,0)="^^3^3^2920514^"
^DD(55.06,102,21,1,0)="  This is the amount of the medication the patient is to receive as one"
^DD(55.06,102,21,2,0)="dose for this order.  This should be an amount with a unit of measure,"
^DD(55.06,102,21,3,0)="such '500MG' or '50CC'.  THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC."
^DD(55.06,102,"DT")="2960201"
^DD(55.06,103,0)="REASON ORDER CREATED^S^N:NEW;R:RENEWAL;E:EDIT;^0;24^Q"
^DD(55.06,103,1,0)="^.1"
^DD(55.06,103,1,1,0)="55.06^AL103^MUMPS"
^DD(55.06,103,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(103)) KILL^PSGAL5:PSGAL(103)=X K PSGAL"
^DD(55.06,103,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(103)=X,PSGAL(""C"")=6000,PSGALFF=103,PSGALFN=55.06 D ^PSGAL5"
^DD(55.06,103,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,103,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,103,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,103,20,0)="^.3LA^1^1"
^DD(55.06,103,20,1,0)="PSJ"
^DD(55.06,103,21,0)="^^1^1^2920514^^"
^DD(55.06,103,21,1,0)="  This is used to show the method used to create this order."
^DD(55.06,103,23,0)="^^2^2^2911112^"
^DD(55.06,103,23,1,0)="  This shows if the order was entered through new order entry, or was"
^DD(55.06,103,23,2,0)="created as a result of an edit or renewal of an existing order."
^DD(55.06,103,"DT")="2911112"
^DD(55.06,104,0)="PREVIOUS ORDER^F^^0;25^K:$L(X)>10!($L(X)<1) X"
^DD(55.06,104,1,0)="^.1"
^DD(55.06,104,1,1,0)="55.06^AL104^MUMPS"
^DD(55.06,104,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(104)) KILL^PSGAL5:PSGAL(104)=X K PSGAL"
^DD(55.06,104,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(104)=X,PSGAL(""C"")=6000,PSGALFF=104,PSGALFN=55.06 D ^PSGAL5"
^DD(55.06,104,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,104,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,104,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,104,20,0)="^.3LA^1^1"
^DD(55.06,104,20,1,0)="PSJ"
^DD(55.06,104,21,0)="^^2^2^2920514^^^^"
^DD(55.06,104,21,1,0)="  If an action is taken on an order that causes a new order to be created,"
^DD(55.06,104,21,2,0)="this will contain a code identifying the previous order."
^DD(55.06,104,23,0)="13^^11^11^2920512^^^^"
^DD(55.06,104,23,1,0)=" If the order was created as a result of an edit or renew, this field"
^DD(55.06,104,23,2,0)="will contain the order number of the previous order concatenated with"
^DD(55.06,104,23,3,0)="a letter that denotes the status of the order and the file in which"
^DD(55.06,104,23,4,0)="it is located. The letter concatenated to the order number will be"
^DD(55.06,104,23,5,0)="one of the following:"
^DD(55.06,104,23,6,0)=" "
^DD(55.06,104,23,7,0)="        U - Unreleased, in 53.1"
^DD(55.06,104,23,8,0)="        P - Pending, in 53.1"
^DD(55.06,104,23,9,0)="        N - Non-verified, in 53.1"
^DD(55.06,104,23,10,0)="        A - Active UD order, in 55"
^DD(55.06,104,23,11,0)="        V - Active IV order, in 55"
^DD(55.06,104,"DT")="2911112"
^DD(55.06,105,0)="FOLLOWING ORDER^F^^0;26^K:$L(X)>10!($L(X)<1) X"
^DD(55.06,105,1,0)="^.1"
^DD(55.06,105,1,1,0)="55.06^AL105^MUMPS"
^DD(55.06,105,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(105)) KILL^PSGAL5:PSGAL(105)=X K PSGAL"
^DD(55.06,105,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(105)=X,PSGAL(""C"")=6000,PSGALFF=105,PSGALFN=55.06 D ^PSGAL5"
^DD(55.06,105,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,105,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,105,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,105,20,0)="^.3LA^1^1"
^DD(55.06,105,20,1,0)="PSJ"
^DD(55.06,105,21,0)="^^2^2^2920514^^^^"
^DD(55.06,105,21,1,0)="  If an action is taken on an order that causes a new order to be created,"
^DD(55.06,105,21,2,0)="this will contain a code identifying the order created."
^DD(55.06,105,23,0)="^^10^10^2920512^^^^"
^DD(55.06,105,23,1,0)="  If an order is created because of an edit or renew, this field will"
^DD(55.06,105,23,2,0)="contain the order number of the following order, concatenated with"
^DD(55.06,105,23,3,0)="a letter that denotes the status of the order and the file in which"
^DD(55.06,105,23,4,0)="it is located. The letter concatenated to the order number will be"
^DD(55.06,105,23,5,0)="one of the following:"
^DD(55.06,105,23,6,0)="        U - Unreleased, in 53.1"
^DD(55.06,105,23,7,0)="        P - Pending, in 53.1"
^DD(55.06,105,23,8,0)="        N - Non-Verified, in 53.1"
^DD(55.06,105,23,9,0)="        A - Active UD order, in 55"
^DD(55.06,105,23,10,0)="        V - Active IV order, in 55"
^DD(55.06,105,"DT")="2911112"
^DD(55.06,106,0)="*NATURE OF ORDER^RS^W:WRITTEN;P:TELEPHONED;V:VERBAL;E:PROVIDER ENTERED;^.1;3^Q"
^DD(55.06,106,1,0)="^.1"
^DD(55.06,106,1,1,0)="55.06^AL106^MUMPS"
^DD(55.06,106,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(106)) KILL^PSGAL5:PSGAL(106)=X K PSGAL"
^DD(55.06,106,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(106)=X,PSGAL(""C"")=6000,PSGALFF=106,PSGALFN=55.06 D ^PSGAL5"
^DD(55.06,106,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,106,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,106,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,106,3)="Enter the method the provider used to relate the order to the service."
^DD(55.06,106,20,0)="^.3LA^1^1"
^DD(55.06,106,20,1,0)="PSJ"
^DD(55.06,106,21,0)="^^2^2^2920103^"
^DD(55.06,106,21,1,0)="  This is the method the provider used to communicate to the user to enter"
^DD(55.06,106,21,2,0)="(or take any other action) the order."
^DD(55.06,106,23,0)="^^4^4^2920103^"
^DD(55.06,106,23,1,0)="  This is the method the provider used to communicate the order to the user"
^DD(55.06,106,23,2,0)="who entered the order.  This is needed by the Order Entry/Results Reporting"
^DD(55.06,106,23,3,0)="package, and is only prompted for if Inpatient Medications has been turned"
^DD(55.06,106,23,4,0)="on for OE/RR by the site."
^DD(55.06,106,"DT")="2960201"
^DD(55.06,107,0)="REASON FOR FOLLOWING ORDER^S^E:EDIT;R:RENEWAL;^0;27^Q"
^DD(55.06,107,1,0)="^.1"
^DD(55.06,107,1,1,0)="55.06^AL107^MUMPS"
^DD(55.06,107,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(107)) KILL^PSGAL5:PSGAL(107)=X K PSGAL"
^DD(55.06,107,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(107)=X,PSGAL(""C"")=6000,PSGALFF=107,PSGALFN=55.06 D ^PSGAL5"
^DD(55.06,107,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.06,107,1,1,"%D",0)="^1^1^2920728"
^DD(55.06,107,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.06,107,20,0)="^.3LA^1^1"
^DD(55.06,107,20,1,0)="PSJ"
^DD(55.06,107,21,0)="^^2^2^2920514^^^^"
^DD(55.06,107,21,1,0)="  If the order has been edited or renewed, this will contain the code "
^DD(55.06,107,21,2,0)="corresponding to the action taken."
^DD(55.06,107,23,0)="^^2^2^2920512^^^"
^DD(55.06,107,23,1,0)="  This will contain a ""E"" if the order was created due to and edit, or"
^DD(55.06,107,23,2,0)="a ""R"" if the order was created due to a renew."
^DD(55.06,107,"DT")="2920126"
^DD(55.06,108,0)="ORDERABLE ITEM^P50.7'^PS(50.7,^.2;1^Q"
^DD(55.06,108,21,0)="^^4^4^2950222^"
^DD(55.06,108,21,1,0)="This is the Orderable Item associated with the order. If the order is"
^DD(55.06,108,21,2,0)="a unit dose order, all dispense drugs entered must be matched to the"
^DD(55.06,108,21,3,0)="order's primary drug. If the order is an IV, at lest one of the"
^DD(55.06,108,21,4,0)="additives or solutions entered must match the orderable item."
^DD(55.06,108,"DT")="2950222"
^DD(55.06,109,0)="DOSAGE ORDERED^F^^.2;2^K:$L(X)>60!($L(X)<1) X"
^DD(55.06,109,3)="Answer must be 1-60 characters in length."
^DD(55.06,109,20,0)="^.3LA^1^1"
^DD(55.06,109,20,1,0)="PSJ"
^DD(55.06,109,21,0)="^.001^3^3^3010417^^^^"
^DD(55.06,109,21,1,0)="This is the amount of the medication the patient is to receive as one dose "
^DD(55.06,109,21,2,0)="for this order. This should be an amount with a unit of measure, such as "
^DD(55.06,109,21,3,0)="'500MG' or '50cc'. THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC."
^DD(55.06,109,"DT")="3010417"
^DD(55.06,110,0)="NATURE OF ORDER^S^W:WRITTEN;P:TELEPHONED;V:VERBAL;E:ELECTRONICALLY ENTERED;I:POLICY;S:SERVICE CORRECTION;D:DUPLICATE;^.2;3^Q"
^DD(55.06,110,3)="Enter the method the provider used to relate the order to the service."
^DD(55.06,110,20,0)="^.3LA^1^1"
^DD(55.06,110,20,1,0)="PSJ"
^DD(55.06,110,21,0)="^.001^2^2^3000823^^^"
^DD(55.06,110,21,1,0)="This is the method the provider used to communicate to the user to enter"
^DD(55.06,110,21,2,0)="(or take any other action) on the order."
^DD(55.06,110,23,0)="^.001^4^4^3000823^^^"
^DD(55.06,110,23,1,0)="This is the method used to communicate the order to the user who entered"
^DD(55.06,110,23,2,0)="the order. This is needed by the Order Entry/Results Reporting package,"
^DD(55.06,110,23,3,0)="and is only prompted for if Inpatient Medications has been turned on"
^DD(55.06,110,23,4,0)="for OE/RR by the site."
^DD(55.06,110,"DT")="3000823"
^DD(55.06,111,0)="INSTRUCTIONS^F^^.3;1^K:$L(X)>200!($L(X)<1) X"
^DD(55.06,111,3)="Answer must be 1-200 characters in length."
^DD(55.06,111,"DT")="2950222"
^DD(55.06,114,0)="LAST RENEW^55.6114DA^^14;0"
^DD(55.06,120,0)="DOSE^NJ15,4^^.2;5^K:+X'=X!(X>9999999999)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(55.06,120,3)="Type a Number between .0001 and 9999999999, 4 Decimal Digits"
^DD(55.06,120,21,0)="^^3^3^3000823^"
^DD(55.06,120,21,1,0)="This is the numeric dosage for the order.  It will be combined with the"
^DD(55.06,120,21,2,0)="UNIT field to show the dosage ordered.  For a dosage of 325MG, 325 would"
^DD(55.06,120,21,3,0)="be stored here."
^DD(55.06,120,"DT")="3000823"
^DD(55.06,121,0)="UNIT^F^^.2;6^K:$L(X)>75!($L(X)<1) X"
^DD(55.06,121,3)="Answer must be 1-75 characters in length."
^DD(55.06,121,21,0)="^^3^3^3000823^"
^DD(55.06,121,21,1,0)="This is the field which contains the unit for the numeric dosage.  The"
^DD(55.06,121,21,2,0)="combination of these two fields gives you the dosage ordered for this"
^DD(55.06,121,21,3,0)="order.  For the doasge 325MG, MG would be stored here."
^DD(55.06,121,"DT")="3000823"
^DD(55.06,122,0)="SI/OPI FLAG^S^1:YES;^6;2^Q"
^DD(55.06,122,3)="Enter 1 for yes."
^DD(55.06,122,21,0)="^.001^2^2^3010522^^"
^DD(55.06,122,21,1,0)="This flag controls whether the user administering this order in BCMA will"
^DD(55.06,122,21,2,0)="have the Special Instructions displayed in a pop-up box."
^DD(55.06,122,"DT")="3010522"
^DD(55.06,123,0)="BCMA EXPIRED FLAG^S^0:NO;1:YES;^4;27^Q"
^DD(55.06,123,20,0)="^.3LA^1^1"
^DD(55.06,123,20,1,0)="PSJU"
^DD(55.06,123,21,0)="^^5^5^3010705^"
^DD(55.06,123,21,1,0)="This is an internal flag to indicate the order was expired at the"
^DD(55.06,123,21,2,0)="request of the Bar Code Medication Administration (BCMA) package. If the"
^DD(55.06,123,21,3,0)="flag is set to 1, then BCMA requested Inpatient Medications expire the"
^DD(55.06,123,21,4,0)="order.  Only orders with the flag set to 1 can be reinstated by a BCMA"
^DD(55.06,123,21,5,0)="reinstate request."
^DD(55.06,123,"DT")="3010705"
^DD(55.06,124,0)="FLAGGED^S^0:NO;1:YES;^.2;7^Q"
^DD(55.06,124,3)="Enter YES if this order is being flagged for clarification"
^DD(55.06,124,21,0)="^^1^1^3020716^"
^DD(55.06,124,21,1,0)="This indicates that this order has been flagged for clarification."
^DD(55.06,124,"DT")="3020702"
^DD(55.06,125,0)="ORDERS FILE PARENT ORDER^F^^.2;8^K:$L(X)>30!($L(X)<1) X"
^DD(55.06,125,3)="Enter the parent, if this order is its child."
^DD(55.06,125,21,0)="^^2^2^3030530^"
^DD(55.06,125,21,1,0)="This is the parent of an order that may have a parent/child relationship "
^DD(55.06,125,21,2,0)="in CPRS."
^DD(55.06,125,"DT")="3030530"
^DD(55.06,126,0)="REQUESTED DURATION^F^^2.5;2^K:$L(X)>8!($L(X)<2) X"
^DD(55.06,126,3)="Answer must be 2-8 characters in length."
^DD(55.06,126,21,0)="^^12^12^3030530^"
^DD(55.06,126,21,1,0)="The duration of an order as requested by the ordering clinician in CPRS."
^DD(55.06,126,21,2,0)="The duration is stored as one of the following upper case letters followed"
^DD(55.06,126,21,3,0)="by an integer:"
^DD(55.06,126,21,4,0)=" "
^DD(55.06,126,21,5,0)=" L - Months"
^DD(55.06,126,21,6,0)=" W - Weeks"
^DD(55.06,126,21,7,0)=" D - Days"
^DD(55.06,126,21,8,0)=" H - Hours"
^DD(55.06,126,21,9,0)=" M - Minutes"
^DD(55.06,126,21,10,0)=" S - Seconds"
^DD(55.06,126,21,11,0)=" "
^DD(55.06,126,21,12,0)="Example: D6 = Six days."
^DD(55.06,126,"DT")="3030530"
^DD(55.06,128,0)="MOST RECENT FLAG COMMENT^F^^13;1^K:$L(X)>80!($L(X)<1) X"
^DD(55.06,128,3)="Answer must be 1-80 characters in length"
^DD(55.06,128,"DT")="3070610"
^DD(55.06,130,0)="CLINIC^*P44'^SC(^8;1^S DIC(""S"")=""D PSS13^PSSDDUT"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(55.06,130,3)="Entry must be a clinic location and should be a clinic that allows administration of Inpatient Meds."
^DD(55.06,130,12)="Must be a clinic location. For Unit Dose, should allow IPM."
^DD(55.06,130,12.1)="S DIC(""S"")=""D PSS13^PSSDDUT"""
^DD(55.06,130,21,0)="^^1^1^3030516^"
^DD(55.06,130,21,1,0)="This is the clinic location if this order is for an Outpatient."
^DD(55.06,130,"DT")="3040729"
^DD(55.06,131,0)="APPOINTMENT DATE/TIME^D^^8;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(55.06,131,3)="This is the date and time of the appointment this order is being placed for."
^DD(55.06,131,21,0)="^^1^1^3030516^"
^DD(55.06,131,21,1,0)="Date and time of the appointment for this clinic location."
^DD(55.06,131,"DT")="3030516"
^DD(55.06,"B","'NOT TO BE GIVEN' FLAG",69)=""
^DD(55.06,"B","*DOSAGE ORDERED",102)=""
^DD(55.06,"B","*EXTRA UNITS DISPENSED",55)=""
^DD(55.06,"B","*NATURE OF ORDER",106)=""
^DD(55.06,"B","*PRE-EXCHANGE UNITS",14)=""
^DD(55.06,"B","*PRIMARY DRUG",101)=""
^DD(55.06,"B","*RETURNS",38)=""
^DD(55.06,"B","*SIG",65)=""
^DD(55.06,"B","*SOLUTION",24)=""
^DD(55.06,"B","*TOTAL PRE-EXCHANGE UNITS",63)=""
^DD(55.06,"B","*TOTAL RETURNS",35)=""
^DD(55.06,"B","*TOTALS EXTRA UNITS DISPENSED",54)=""
^DD(55.06,"B","*TOTALS UNITS DISPENSED",39)=""
^DD(55.06,"B","*UNITS ACTUALLY DISPENSED",36)=""
^DD(55.06,"B","*UNITS CALLED FOR",32)=""
^DD(55.06,"B","*UNITS PER DOSE",13)=""
^DD(55.06,"B","ACTIVITY LOG",29)=""
^DD(55.06,"B","ADMIN TIMES",41)=""
^DD(55.06,"B","APPOINTMENT DATE/TIME",131)=""
^DD(55.06,"B","AUTO CANCELLED FLAG",49)=""
^DD(55.06,"B","BCMA EXPIRED FLAG",123)=""
^DD(55.06,"B","CLERK",22)=""
^DD(55.06,"B","CLINIC",130)=""
^DD(55.06,"B","COMMENTS",15)=""
^DD(55.06,"B","DATE ENTERED BY CLERK",23)=""
^DD(55.06,"B","DATE MARKED CANCELLED",48)=""
^DD(55.06,"B","DATE RENEWAL MARKED",45)=""
^DD(55.06,"B","DATE VERIFIED BY NURSE",17)=""
^DD(55.06,"B","DATE VERIFIED BY PHARMACIST",19)=""
^DD(55.06,"B","DATE VERIFIED BY PHYSICIAN",21)=""
^DD(55.06,"B","DAY LIMIT",11)=""
^DD(55.06,"B","DISPENSE DRUG",2)=""
^DD(55.06,"B","DISPENSE LOG",71)=""
^DD(55.06,"B","DOSAGE ORDERED",109)=""
^DD(55.06,"B","DOSE",120)=""
^DD(55.06,"B","DOSE LIMIT",12)=""
^DD(55.06,"B","EXTRA UNITS DISPENSED",55)="1"
^DD(55.06,"B","FLAGGED",124)=""
^DD(55.06,"B","FOLLOWING ORDER",105)=""
^DD(55.06,"B","FREQUENCY (in minutes)",42)=""
^DD(55.06,"B","HOLD DATE",58)=""
^DD(55.06,"B","HOLD FLAG",56)=""
^DD(55.06,"B","HOLD STATUS",59)=""
^DD(55.06,"B","HOLD USER",57)=""
^DD(55.06,"B","HOSPITAL SUPPLIED SELF MED",6)=""
^DD(55.06,"B","INSTRUCTIONS",111)=""
^DD(55.06,"B","LABEL DATE",52)=""
^DD(55.06,"B","LABEL REASON",53)=""
^DD(55.06,"B","LAST RENEW",114)=""
^DD(55.06,"B","LAST WARD",68)=""
^DD(55.06,"B","LOG-IN DATE",27.1)=""
^DD(55.06,"B","MARKED CANCELLED",46)=""
^DD(55.06,"B","MARKED CANCELLED USER",47)=""
^DD(55.06,"B","MED ROUTE",3)=""
^DD(55.06,"B","MERGED PATIENT",67)=""
^DD(55.06,"B","MOST RECENT FLAG COMMENT",128)=""
^DD(55.06,"B","NATURE OF ORDER",110)=""
^DD(55.06,"B","NV FLAG",51)=""
^DD(55.06,"B","OERR HOLD FLAG",59.1)=""
^DD(55.06,"B","OFF HOLD DATE",62)=""
^DD(55.06,"B","OFF HOLD FLAG",60)=""
^DD(55.06,"B","OFF HOLD USER",61)=""
^DD(55.06,"B","ORDER DATE",27)=""
^DD(55.06,"B","ORDER NUMBER",.01)=""
^DD(55.06,"B","ORDERABLE ITEM",108)=""
^DD(55.06,"B","ORDERS FILE ENTRY",66)=""
^DD(55.06,"B","ORDERS FILE PARENT ORDER",125)=""
^DD(55.06,"B","ORIGINAL ORDER NUMBER",.25)=""
^DD(55.06,"B","ORIGINAL START DATE/TIME",70)=""
^DD(55.06,"B","ORIGINAL WARD",9)=""
^DD(55.06,"B","PATIENT NAME",.5)=""
^DD(55.06,"B","PHYSICIAN",20)=""
^DD(55.06,"B","PRE-EXCHANGE UNITS",14)="1"
^DD(55.06,"B","PREVIOUS ORDER",104)=""
^DD(55.06,"B","PREVIOUS STOP DATE/TIME",25)=""
^DD(55.06,"B","PRIORITY",.24)=""
^DD(55.06,"B","PROVIDER",1)=""
^DD(55.06,"B","PROVIDER COMMENTS",72)=""
^DD(55.06,"B","PURGE FLAG",64)=""
^DD(55.06,"B","PV FLAG",50)=""
^DD(55.06,"B","REASON FOR FOLLOWING ORDER",107)=""
^DD(55.06,"B","REASON ORDER CREATED",103)=""
^DD(55.06,"B","RENEWAL",43)=""
^DD(55.06,"B","RENEWAL USER",44)=""
^DD(55.06,"B","REQUESTED DURATION",126)=""
^DD(55.06,"B","RETURNS",38)="1"
^DD(55.06,"B","SCHEDULE",26)=""
^DD(55.06,"B","SCHEDULE TYPE",7)=""
^DD(55.06,"B","SELF MED",5)=""
^DD(55.06,"B","SI/OPI FLAG",122)=""
^DD(55.06,"B","SIG",65)="1"
^DD(55.06,"B","SOLUTION",24)="1"
^DD(55.06,"B","SPECIAL INSTRUCTIONS",8)=""
^DD(55.06,"B","START DATE/TIME",10)=""
^DD(55.06,"B","STATUS",28)=""
^DD(55.06,"B","STOP DATE/TIME",34)=""
^DD(55.06,"B","TOTAL EXTRA UNITS DISPENSED",54)="1"
^DD(55.06,"B","TOTAL PRE-EXCHANGE UNITS",63)="1"
^DD(55.06,"B","TOTAL RETURNS",35)="1"
^DD(55.06,"B","TOTALS UNITS DISPENSED",39)="1"
^DD(55.06,"B","TYPE",4)=""
^DD(55.06,"B","UNIT",121)=""
^DD(55.06,"B","UNITS ACTUALLY DISPENSED",36)="1"
^DD(55.06,"B","UNITS CALLED FOR",32)="1"
^DD(55.06,"B","UNITS PER DOSE",13)="1"
^DD(55.06,"B","VERIFYING NURSE",16)=""
^DD(55.06,"B","VERIFYING PHARMACIST",18)=""
^DD(55.06,"GL",0,1,.01)=""
^DD(55.06,"GL",0,2,1)=""
^DD(55.06,"GL",0,3,3)=""
^DD(55.06,"GL",0,4,4)=""
^DD(55.06,"GL",0,5,5)=""
^DD(55.06,"GL",0,6,6)=""
^DD(55.06,"GL",0,7,7)=""
^DD(55.06,"GL",0,9,28)=""
^DD(55.06,"GL",0,10,11)=""
^DD(55.06,"GL",0,11,12)=""
^DD(55.06,"GL",0,12,13)=""
^DD(55.06,"GL",0,14,27)=""
^DD(55.06,"GL",0,15,.5)=""
^DD(55.06,"GL",0,16,27.1)=""
^DD(55.06,"GL",0,17,24)=""
^DD(55.06,"GL",0,18,.25)=""
^DD(55.06,"GL",0,20,64)=""
^DD(55.06,"GL",0,21,66)=""
^DD(55.06,"GL",0,22,69)=""
^DD(55.06,"GL",0,23,68)=""
^DD(55.06,"GL",0,24,103)=""
^DD(55.06,"GL",0,25,104)=""
^DD(55.06,"GL",0,26,105)=""
^DD(55.06,"GL",0,27,107)=""
^DD(55.06,"GL",.1,1,101)=""
^DD(55.06,"GL",.1,2,102)=""
^DD(55.06,"GL",.1,3,106)=""
^DD(55.06,"GL",.2,1,108)=""
^DD(55.06,"GL",.2,2,109)=""
^DD(55.06,"GL",.2,3,110)=""
^DD(55.06,"GL",.2,4,.24)=""
^DD(55.06,"GL",.2,5,120)=""
^DD(55.06,"GL",.2,6,121)=""
^DD(55.06,"GL",.2,7,124)=""
^DD(55.06,"GL",.2,8,125)=""
^DD(55.06,"GL",.3,1,111)=""
^DD(55.06,"GL",1,0,2)=""
^DD(55.06,"GL",2,1,26)=""
^DD(55.06,"GL",2,2,10)=""
^DD(55.06,"GL",2,3,25)=""
^DD(55.06,"GL",2,4,34)=""
^DD(55.06,"GL",2,5,41)=""
^DD(55.06,"GL",2,6,42)=""
^DD(55.06,"GL",2,7,70)=""
^DD(55.06,"GL",2,10,9)=""
^DD(55.06,"GL",2.5,2,126)=""
^DD(55.06,"GL",3,0,15)=""
^DD(55.06,"GL",4,1,16)=""
^DD(55.06,"GL",4,2,17)=""
^DD(55.06,"GL",4,3,18)=""
^DD(55.06,"GL",4,4,19)=""
^DD(55.06,"GL",4,5,20)=""
^DD(55.06,"GL",4,6,21)=""
^DD(55.06,"GL",4,7,22)=""
^DD(55.06,"GL",4,8,23)=""
^DD(55.06,"GL",4,9,50)=""
^DD(55.06,"GL",4,10,51)=""
^DD(55.06,"GL",4,11,49)=""
^DD(55.06,"GL",4,12,46)=""
^DD(55.06,"GL",4,13,47)=""
^DD(55.06,"GL",4,14,48)=""
^DD(55.06,"GL",4,15,43)=""
^DD(55.06,"GL",4,16,44)=""
^DD(55.06,"GL",4,17,45)=""
^DD(55.06,"GL",4,18,56)=""
^DD(55.06,"GL",4,19,57)=""
^DD(55.06,"GL",4,20,58)=""
^DD(55.06,"GL",4,21,59)=""
^DD(55.06,"GL",4,22,60)=""
^DD(55.06,"GL",4,23,61)=""
^DD(55.06,"GL",4,24,62)=""
^DD(55.06,"GL",4,25,67)=""
^DD(55.06,"GL",4,26,59.1)=""
^DD(55.06,"GL",4,27,123)=""
^DD(55.06,"GL",5,2,32)=""
^DD(55.06,"GL",5,3,36)=""
^DD(55.06,"GL",5,4,35)=""
^DD(55.06,"GL",5,5,38)=""
^DD(55.06,"GL",5,6,14)=""
^DD(55.06,"GL",5,7,54)=""
^DD(55.06,"GL",5,8,55)=""
^DD(55.06,"GL",5,9,63)=""
^DD(55.06,"GL",6,1,8)=""
^DD(55.06,"GL",6,2,122)=""
^DD(55.06,"GL",6.5,1,65)=""
^DD(55.06,"GL",7,1,52)=""
^DD(55.06,"GL",7,2,53)=""
^DD(55.06,"GL",8,1,130)=""
^DD(55.06,"GL",8,2,131)=""
^DD(55.06,"GL",9,0,29)=""
^DD(55.06,"GL",11,0,71)=""
^DD(55.06,"GL",12,0,72)=""
^DD(55.06,"GL",13,1,128)=""
^DD(55.06,"GL",14,0,114)=""
^DD(55.06,"GR","PSG",70,1)=""
^DD(55.06,"GR","PSJ",103,1)=""
^DD(55.06,"GR","PSJ",104,1)=""
^DD(55.06,"GR","PSJ",105,1)=""
^DD(55.06,"GR","PSJ",106,1)=""
^DD(55.06,"GR","PSJ",107,1)=""
^DD(55.06,"GR","PSJ",109,1)=""
^DD(55.06,"GR","PSJ",110,1)=""
^DD(55.06,"GR","PSJU",.01,1)=""
^DD(55.06,"GR","PSJU",.25,1)=""
^DD(55.06,"GR","PSJU",.5,1)=""
^DD(55.06,"GR","PSJU",1,1)=""
^DD(55.06,"GR","PSJU",2,1)=""
^DD(55.06,"GR","PSJU",3,1)=""
^DD(55.06,"GR","PSJU",4,1)=""
^DD(55.06,"GR","PSJU",5,1)=""
^DD(55.06,"GR","PSJU",6,1)=""
^DD(55.06,"GR","PSJU",7,1)=""
^DD(55.06,"GR","PSJU",8,1)=""
^DD(55.06,"GR","PSJU",9,1)=""
^DD(55.06,"GR","PSJU",10,1)=""
^DD(55.06,"GR","PSJU",11,1)=""
^DD(55.06,"GR","PSJU",12,1)=""
^DD(55.06,"GR","PSJU",13,1)=""
^DD(55.06,"GR","PSJU",14,1)=""
^DD(55.06,"GR","PSJU",15,1)=""
^DD(55.06,"GR","PSJU",16,1)=""
^DD(55.06,"GR","PSJU",17,1)=""
^DD(55.06,"GR","PSJU",18,1)=""
^DD(55.06,"GR","PSJU",19,1)=""
^DD(55.06,"GR","PSJU",20,1)=""
^DD(55.06,"GR","PSJU",21,1)=""
^DD(55.06,"GR","PSJU",22,1)=""
^DD(55.06,"GR","PSJU",23,1)=""
^DD(55.06,"GR","PSJU",24,1)=""
^DD(55.06,"GR","PSJU",25,1)=""
^DD(55.06,"GR","PSJU",26,1)=""
^DD(55.06,"GR","PSJU",27,1)=""
^DD(55.06,"GR","PSJU",27.1,1)=""
^DD(55.06,"GR","PSJU",28,1)=""
^DD(55.06,"GR","PSJU",29,1)=""
^DD(55.06,"GR","PSJU",32,1)=""
^DD(55.06,"GR","PSJU",34,1)=""
^DD(55.06,"GR","PSJU",35,1)=""
^DD(55.06,"GR","PSJU",36,1)=""
^DD(55.06,"GR","PSJU",38,1)=""
^DD(55.06,"GR","PSJU",39,1)=""
^DD(55.06,"GR","PSJU",41,1)=""
^DD(55.06,"GR","PSJU",42,1)=""
^DD(55.06,"GR","PSJU",43,1)=""
^DD(55.06,"GR","PSJU",44,1)=""
^DD(55.06,"GR","PSJU",45,1)=""
^DD(55.06,"GR","PSJU",46,1)=""
^DD(55.06,"GR","PSJU",47,1)=""
^DD(55.06,"GR","PSJU",48,1)=""
^DD(55.06,"GR","PSJU",49,1)=""
^DD(55.06,"GR","PSJU",50,1)=""
^DD(55.06,"GR","PSJU",51,1)=""
^DD(55.06,"GR","PSJU",52,1)=""
^DD(55.06,"GR","PSJU",53,1)=""
^DD(55.06,"GR","PSJU",54,1)=""
^DD(55.06,"GR","PSJU",55,1)=""
^DD(55.06,"GR","PSJU",56,1)=""
^DD(55.06,"GR","PSJU",57,1)=""
^DD(55.06,"GR","PSJU",58,1)=""
^DD(55.06,"GR","PSJU",59,1)=""
^DD(55.06,"GR","PSJU",60,1)=""
^DD(55.06,"GR","PSJU",61,1)=""
^DD(55.06,"GR","PSJU",62,1)=""
^DD(55.06,"GR","PSJU",63,1)=""
^DD(55.06,"GR","PSJU",64,1)=""
^DD(55.06,"GR","PSJU",65,1)=""
^DD(55.06,"GR","PSJU",66,1)=""
^DD(55.06,"GR","PSJU",67,1)=""
^DD(55.06,"GR","PSJU",68,1)=""
^DD(55.06,"GR","PSJU",69,1)=""
^DD(55.06,"GR","PSJU",71,1)=""
^DD(55.06,"GR","PSJU",72,1)=""
^DD(55.06,"GR","PSJU",123,1)=""
^DD(55.06,"IX",.01)=""
^DD(55.06,"IX",.25)=""
^DD(55.06,"IX",.5)=""
^DD(55.06,"IX",1)=""
^DD(55.06,"IX",3)=""
^DD(55.06,"IX",4)=""
^DD(55.06,"IX",5)=""
^DD(55.06,"IX",6)=""
^DD(55.06,"IX",7)=""
^DD(55.06,"IX",8)=""
^DD(55.06,"IX",10)=""
^DD(55.06,"IX",11)=""
^DD(55.06,"IX",12)=""
^DD(55.06,"IX",13)=""
^DD(55.06,"IX",14)=""
^DD(55.06,"IX",16)=""
^DD(55.06,"IX",17)=""
^DD(55.06,"IX",18)=""
^DD(55.06,"IX",19)=""
^DD(55.06,"IX",20)=""
^DD(55.06,"IX",21)=""
^DD(55.06,"IX",22)=""
^DD(55.06,"IX",23)=""
^DD(55.06,"IX",24)=""
^DD(55.06,"IX",25)=""
^DD(55.06,"IX",26)=""
^DD(55.06,"IX",27)=""
^DD(55.06,"IX",27.1)=""
^DD(55.06,"IX",28)=""
^DD(55.06,"IX",32)=""
^DD(55.06,"IX",34)=""
^DD(55.06,"IX",35)=""
^DD(55.06,"IX",36)=""
^DD(55.06,"IX",38)=""
^DD(55.06,"IX",41)=""
^DD(55.06,"IX",42)=""
^DD(55.06,"IX",43)=""
^DD(55.06,"IX",44)=""
^DD(55.06,"IX",45)=""
^DD(55.06,"IX",46)=""
^DD(55.06,"IX",47)=""
^DD(55.06,"IX",48)=""
^DD(55.06,"IX",49)=""
^DD(55.06,"IX",50)=""
^DD(55.06,"IX",51)=""
^DD(55.06,"IX",52)=""
^DD(55.06,"IX",53)=""
^DD(55.06,"IX",54)=""
^DD(55.06,"IX",55)=""
^DD(55.06,"IX",56)=""
^DD(55.06,"IX",57)=""
^DD(55.06,"IX",58)=""
^DD(55.06,"IX",59)=""
^DD(55.06,"IX",60)=""
^DD(55.06,"IX",61)=""
^DD(55.06,"IX",62)=""
^DD(55.06,"IX",64)=""
^DD(55.06,"IX",65)=""
^DD(55.06,"IX",66)=""
^DD(55.06,"IX",101)=""
^DD(55.06,"IX",102)=""
^DD(55.06,"IX",103)=""
^DD(55.06,"IX",104)=""
^DD(55.06,"IX",105)=""
^DD(55.06,"IX",106)=""
^DD(55.06,"IX",107)=""
^DD(55.06,"RQ",.01)=""
^DD(55.06,"RQ",1)=""
^DD(55.06,"RQ",10)=""
^DD(55.06,"RQ",26)=""
^DD(55.06,"RQ",28)=""
^DD(55.06,"RQ",34)=""
^DD(55.06,"RQ",102)=""
^DD(55.06,"RQ",106)=""
^DD(55.06,"SB",55.0611,71)=""
^DD(55.06,"SB",55.0612,72)=""
^DD(55.06,"SB",55.07,2)=""
^DD(55.06,"SB",55.08,15)=""
^DD(55.06,"SB",55.09,29)=""
^DD(55.06,"SB",55.6114,114)=""
^DD(55.061,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(55.061,0,"NM","COMMENTS")=""
^DD(55.061,0,"UP")="55"
^DD(55.061,.01,0)="COMMENTS^W^^0;1^Q"
^DD(55.061,.01,20,0)="^.3LA^1^1"
^DD(55.061,.01,20,1,0)="PS"
^DD(55.061,.01,21,0)="^^2^2^2910306^^^"
^DD(55.061,.01,21,1,0)="  This is used for temporary storage of data by the Unit Dose package."
^DD(55.061,.01,21,2,0)="The data is deleted before and after each use!"
^DD(55.061,.01,"DT")="2870320"
^DD(55.061,"B","COMMENTS",.01)=""
^DD(55.061,"GL",0,1,.01)=""
^DD(55.061,"GR","PS",.01,1)=""
^DD(55.0611,0)="DISPENSE LOG SUB-FIELD^^.08^8"
^DD(55.0611,0,"DIK")="PSSJXR"
^DD(55.0611,0,"DT")="2911030"
^DD(55.0611,0,"IX","B",55.0611,.01)=""
^DD(55.0611,0,"NM","DISPENSE LOG")=""
^DD(55.0611,0,"UP")="55.06"
^DD(55.0611,.01,0)="DISPENSE DATE/TIME^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.0611,.01,1,0)="^.1"
^DD(55.0611,.01,1,1,0)="55.0611^B"
^DD(55.0611,.01,1,1,1)="S ^PS(55,DA(2),5,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(55.0611,.01,1,1,2)="K ^PS(55,DA(2),5,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(55.0611,.01,1,2,0)="55.06^AL1101^MUMPS"
^DD(55.0611,.01,1,2,1)="I '$D(DIU(0)) D:$D(PSGAL(1101)) KILL^PSGAL5:PSGAL(1101)=X K PSGAL"
^DD(55.0611,.01,1,2,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1101)=X,PSGAL(""C"")=6000,PSGALFF=.01,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.01,1,2,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.01,1,2,"%D",0)="^1^1^2920728"
^DD(55.0611,.01,1,2,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.0611,.01,20,0)="^.3LA^1^1"
^DD(55.0611,.01,20,1,0)="PSJ"
^DD(55.0611,.01,21,0)="^^3^3^2920514^^"
^DD(55.0611,.01,21,1,0)="  This is the date (time optional) that units dispensed (or returned) were"
^DD(55.0611,.01,21,2,0)="entered for this order.  If the units were dispensed through the pick list,"
^DD(55.0611,.01,21,3,0)="this will be the start date (no time) of the pick list."
^DD(55.0611,.01,23,0)="^^3^3^2920514^"
^DD(55.0611,.01,23,1,0)="  This is the date and time that a medication was dispensed or returned for"
^DD(55.0611,.01,23,2,0)="this order.  If the medications was dispensed through the pick list, this"
^DD(55.0611,.01,23,3,0)="will be date only (the start date of the pick list)."
^DD(55.0611,.01,"DT")="2911024"
^DD(55.0611,.02,0)="DISPENSE DRUG^P50'^PSDRUG(^0;2^Q"
^DD(55.0611,.02,1,0)="^.1"
^DD(55.0611,.02,1,1,0)="55.06^AL1102^MUMPS"
^DD(55.0611,.02,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1102)) KILL^PSGAL5:PSGAL(1102)=X K PSGAL"
^DD(55.0611,.02,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1102)=X,PSGAL(""C"")=6000,PSGALFF=.02,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.02,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.02,1,1,"%D",0)="^^15^15^2990302^"
^DD(55.0611,.02,1,1,"%D",1,0)=" The AL1102 cross-reference is used to update the information in the"
^DD(55.0611,.02,1,1,"%D",2,0)=" ACTIVITY LOG sub-file (#55.09) of the PHARMACY PATIENT file (#55). The"
^DD(55.0611,.02,1,1,"%D",3,0)=" controlling point comes from the KILL logic. When the DISPENSE DRUG field"
^DD(55.0611,.02,1,1,"%D",4,0)=" changes, an entry is added to the ACTIVITY LOG sub-file.  The data global"
^DD(55.0611,.02,1,1,"%D",5,0)=" changes by the Set and Kill logic are as follows:"
^DD(55.0611,.02,1,1,"%D",6,0)=" "
^DD(55.0611,.02,1,1,"%D",7,0)="       SET:    K ^PS(55,DFN,5,Order Number,9,ACTIVITY LOG IEN,0)"
^DD(55.0611,.02,1,1,"%D",8,0)=" "
^DD(55.0611,.02,1,1,"%D",9,0)="       KILL:   S ^PS(55,DFN,5,Order Number,9,ACTIVITY LOG IEN,0)="
^DD(55.0611,.02,1,1,"%D",10,0)="               Piece 1 = DATE (date/time update made)"
^DD(55.0611,.02,1,1,"%D",11,0)="               Piece 2 = USER (IEN in NEW PERSON file (#200))"
^DD(55.0611,.02,1,1,"%D",12,0)="               Piece 3 = ACTION (IEN to ACTIVITY LOG REASON file (#53.3))"
^DD(55.0611,.02,1,1,"%D",13,0)="               Piece 4 = FIELD (Field edited, ""DISPENSE DRUG"")"
^DD(55.0611,.02,1,1,"%D",14,0)="               Piece 5 = OLD DATA (The old value of the field before the"
^DD(55.0611,.02,1,1,"%D",15,0)="                         edit)"
^DD(55.0611,.02,1,1,"DT")="2990111"
^DD(55.0611,.02,20,0)="^.3LA^1^1"
^DD(55.0611,.02,20,1,0)="PSJU"
^DD(55.0611,.02,21,0)="^^1^1^2920514^"
^DD(55.0611,.02,21,1,0)="  This is the medication that was dispensed (or returned) for this order."
^DD(55.0611,.02,23,0)="^^2^2^2920514^"
^DD(55.0611,.02,23,1,0)="  This will be an entry from the Unit Dose DISPENSE DRUG multiple within"
^DD(55.0611,.02,23,2,0)="the Unit Dose order."
^DD(55.0611,.02,"DT")="2990111"
^DD(55.0611,.03,0)="AMOUNT^NJ6,2^^0;3^K:+X'=X!(X>500)!(X<-500)!(X?.E1"".""3N.N) X"
^DD(55.0611,.03,1,0)="^.1"
^DD(55.0611,.03,1,1,0)="55.06^AL1103^MUMPS"
^DD(55.0611,.03,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1103)) KILL^PSGAL5:PSGAL(1103)=X K PSGAL"
^DD(55.0611,.03,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1103)=X,PSGAL(""C"")=6000,PSGALFF=.03,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.03,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.03,1,1,"%D",0)="^1^1^2920728"
^DD(55.0611,.03,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.0611,.03,3)="Enter a Number between -500 and 500, 2 Decimal Digits."
^DD(55.0611,.03,20,0)="^.3LA^1^1"
^DD(55.0611,.03,20,1,0)="PSJU"
^DD(55.0611,.03,21,0)="^^2^2^2920514^"
^DD(55.0611,.03,21,1,0)="  This is the number of units that were dispensed (or returned) for this"
^DD(55.0611,.03,21,2,0)="order."
^DD(55.0611,.03,23,0)="^^2^2^2920514^"
^DD(55.0611,.03,23,1,0)="  This is the number of units (tablets, etc.) that were dispensed or"
^DD(55.0611,.03,23,2,0)="returned for this order."
^DD(55.0611,.03,"DT")="2911030"
^DD(55.0611,.04,0)="COST^NJ9,4^^0;4^K:+X'=X!(X>5000)!(X<-5000)!(X?.E1"".""5N.N) X"
^DD(55.0611,.04,1,0)="^.1"
^DD(55.0611,.04,1,1,0)="55.06^AL1104^MUMPS"
^DD(55.0611,.04,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1104)) KILL^PSGAL5:PSGAL(1104)=X K PSGAL"
^DD(55.0611,.04,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1104)=X,PSGAL(""C"")=6000,PSGALFF=.04,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.04,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.04,1,1,"%D",0)="^1^1^2920728"
^DD(55.0611,.04,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.0611,.04,3)="Enter a Number between -5000 and 5000, 4 Decimal Digits."
^DD(55.0611,.04,20,0)="^.3LA^1^1"
^DD(55.0611,.04,20,1,0)="PSJU"
^DD(55.0611,.04,21,0)="^^1^1^2920514^"
^DD(55.0611,.04,21,1,0)="  This is the cost of the amount dispensed or returned."
^DD(55.0611,.04,23,0)="^^3^3^2920514^"
^DD(55.0611,.04,23,1,0)="  This is the cost of the amount dispensed or returned for this dispense"
^DD(55.0611,.04,23,2,0)="drug.  This is obtained by multiplying the amount dispensed by the PRICE"
^DD(55.0611,.04,23,3,0)="PER DISPENSE UNIT from the DRUG file (#50) for the dispense drug."
^DD(55.0611,.04,"DT")="2911030"
^DD(55.0611,.05,0)="HOW^S^1:FROM PICK LIST;2:PRE-EXCHANGE UNITS;3:EXTRA UNITS DISPENSED;4:RETURNS;^0;5^Q"
^DD(55.0611,.05,1,0)="^.1"
^DD(55.0611,.05,1,1,0)="55.06^AL1105^MUMPS"
^DD(55.0611,.05,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1105)) KILL^PSGAL5:PSGAL(1105)=X K PSGAL"
^DD(55.0611,.05,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1105)=X,PSGAL(""C"")=6000,PSGALFF=.05,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.05,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.05,1,1,"%D",0)="^1^1^2920728"
^DD(55.0611,.05,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.0611,.05,3)=""
^DD(55.0611,.05,20,0)="^.3LA^1^1"
^DD(55.0611,.05,20,1,0)="PSJU"
^DD(55.0611,.05,21,0)="^^1^1^2920514^"
^DD(55.0611,.05,21,1,0)="  This is the method the drug was dispensed for this order."
^DD(55.0611,.05,23,0)="^^1^1^2920514^"
^DD(55.0611,.05,23,1,0)="  This is the method the drug was dispensed for the order."
^DD(55.0611,.05,"DT")="2911030"
^DD(55.0611,.06,0)="USER^P200'^VA(200,^0;6^Q"
^DD(55.0611,.06,1,0)="^.1"
^DD(55.0611,.06,1,1,0)="55.06^AL1106^MUMPS"
^DD(55.0611,.06,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1106)) KILL^PSGAL5:PSGAL(1106)=X K PSGAL"
^DD(55.0611,.06,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1106)=X,PSGAL(""C"")=6000,PSGALFF=1106,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.06,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.06,1,1,"%D",0)="^1^1^2920728"
^DD(55.0611,.06,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.0611,.06,20,0)="^.3LA^1^1"
^DD(55.0611,.06,20,1,0)="PSJU"
^DD(55.0611,.06,21,0)="^^2^2^2920514^"
^DD(55.0611,.06,21,1,0)="  This is the user who entered the amount dispensed for this drug for this"
^DD(55.0611,.06,21,2,0)="order."
^DD(55.0611,.06,23,0)="^^4^4^2920514^"
^DD(55.0611,.06,23,1,0)="  Thsi si the user who entered the amount dispensed (or returned) for this"
^DD(55.0611,.06,23,2,0)="drug for this order.  If the drug was dispensed through the pick list, the"
^DD(55.0611,.06,23,3,0)="user entered is the user who filed the pick list away, and is not shown in"
^DD(55.0611,.06,23,4,0)="the dispense log view."
^DD(55.0611,.06,"DT")="2911030"
^DD(55.0611,.07,0)="WARD^P42'^DIC(42,^0;7^Q"
^DD(55.0611,.07,1,0)="^.1"
^DD(55.0611,.07,1,1,0)="55.06^AL1107^MUMPS"
^DD(55.0611,.07,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1107)) KILL^PSGAL5:PSGAL(1107)=X K PSGAL"
^DD(55.0611,.07,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1107)=X,PSGAL(""C"")=6000,PSGALFF=1107,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.07,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.07,1,1,"%D",0)="^1^1^2920728"
^DD(55.0611,.07,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.0611,.07,20,0)="^.3LA^1^1"
^DD(55.0611,.07,20,1,0)="PSJU"
^DD(55.0611,.07,21,0)="^^2^2^2920514^"
^DD(55.0611,.07,21,1,0)="  This is the ward the patient was residing on when the dispense amount"
^DD(55.0611,.07,21,2,0)="was entered."
^DD(55.0611,.07,23,0)="^^3^3^2920514^"
^DD(55.0611,.07,23,1,0)="  This is the ward the patient was shown to be residing on when the dispense"
^DD(55.0611,.07,23,2,0)="amount was entered.  If the amount dispensed was entered through the pick"
^DD(55.0611,.07,23,3,0)="list, this will be the ward the patient was on when the pick list was run."
^DD(55.0611,.07,"DT")="2911030"
^DD(55.0611,.08,0)="PROVIDER^P200'^VA(200,^0;8^Q"
^DD(55.0611,.08,1,0)="^.1"
^DD(55.0611,.08,1,1,0)="55.06^AL1108^MUMPS"
^DD(55.0611,.08,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(1108)) KILL^PSGAL5:PSGAL(1108)=X K PSGAL"
^DD(55.0611,.08,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(1108)=X,PSGAL(""C"")=6000,PSGALFF=1108,PSGALFN=55.0611 D ^PSGAL5"
^DD(55.0611,.08,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.0611,.08,1,1,"%D",0)="^1^1^2920728"
^DD(55.0611,.08,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.0611,.08,20,0)="^.3LA^1^1"
^DD(55.0611,.08,20,1,0)="PSJU"
^DD(55.0611,.08,21,0)="^^1^1^2920514^"
^DD(55.0611,.08,21,1,0)="  This is the provider for the order when the amount dispensed was entered."
^DD(55.0611,.08,23,0)="^^1^1^2920514^"
^DD(55.0611,.08,23,1,0)="  This is the provider for the order when the amount dispensed was entered."
^DD(55.0611,.08,"DT")="2911030"
^DD(55.0611,"B","AMOUNT",.03)=""
^DD(55.0611,"B","COST",.04)=""
^DD(55.0611,"B","DISPENSE DATE/TIME",.01)=""
^DD(55.0611,"B","DISPENSE DRUG",.02)=""
^DD(55.0611,"B","HOW",.05)=""
^DD(55.0611,"B","PROVIDER",.08)=""
^DD(55.0611,"B","USER",.06)=""
^DD(55.0611,"B","WARD",.07)=""
^DD(55.0611,"GL",0,1,.01)=""
^DD(55.0611,"GL",0,2,.02)=""
^DD(55.0611,"GL",0,3,.03)=""
^DD(55.0611,"GL",0,4,.04)=""
^DD(55.0611,"GL",0,5,.05)=""
^DD(55.0611,"GL",0,6,.06)=""
^DD(55.0611,"GL",0,7,.07)=""
^DD(55.0611,"GL",0,8,.08)=""
^DD(55.0611,"GR","PSJ",.01,1)=""
^DD(55.0611,"GR","PSJU",.02,1)=""
^DD(55.0611,"GR","PSJU",.03,1)=""
^DD(55.0611,"GR","PSJU",.04,1)=""
^DD(55.0611,"GR","PSJU",.05,1)=""
^DD(55.0611,"GR","PSJU",.06,1)=""
^DD(55.0611,"GR","PSJU",.07,1)=""
^DD(55.0611,"GR","PSJU",.08,1)=""
^DD(55.0611,"IX",.01)=""
^DD(55.0611,"IX",.02)=""
^DD(55.0611,"IX",.03)=""
^DD(55.0611,"IX",.04)=""
^DD(55.0611,"IX",.05)=""
^DD(55.0611,"IX",.06)=""
^DD(55.0611,"IX",.07)=""
^DD(55.0611,"IX",.08)=""
^DD(55.0612,0)="PROVIDER COMMENTS SUB-FIELD^^.01^1"
^DD(55.0612,0,"DT")="2911119"
^DD(55.0612,0,"NM","PROVIDER COMMENTS")=""
^DD(55.0612,0,"UP")="55.06"
^DD(55.0612,.01,0)="PROVIDER COMMENTS^W^^0;1^Q"
^DD(55.0612,.01,20,0)="^.3LA^1^1"
^DD(55.0612,.01,20,1,0)="PSJU"
^DD(55.0612,.01,21,0)="^^2^2^2920514^"
^DD(55.0612,.01,21,1,0)="  This is any instructions or other comments entered by the provider of"
^DD(55.0612,.01,21,2,0)="this order for this order."
^DD(55.0612,.01,"DT")="2911119"
^DD(55.0612,"B","PROVIDER COMMENTS",.01)=""
^DD(55.0612,"GL",0,1,.01)=""
^DD(55.0612,"GR","PSJU",.01,1)=""
^DD(55.07,0)="DISPENSE DRUG SUB-FIELD^NL^.12^12"
^DD(55.07,0,"DIK")="PSSJXR"
^DD(55.07,0,"DT")="2920424"
^DD(55.07,0,"IX","AL712",55.07,.12)=""
^DD(55.07,0,"IX","AMSEXTRA",55.07,.11)=""
^DD(55.07,0,"IX","AMSPREX",55.07,.09)=""
^DD(55.07,0,"IX","AMSRET",55.07,.08)=""
^DD(55.07,0,"IX","B",55.07,.01)=""
^DD(55.07,0,"NM","DISPENSE DRUG")=""
^DD(55.07,0,"UP")="55.06"
^DD(55.07,.01,0)="DISPENSE DRUG^MR*P50'^PSDRUG(^0;1^S DIC(""S"")=""S X(1)=$P($G(^PSDRUG(+Y,2)),""""^"""",1) I X(1),X(1)=+$G(^PS(55,DA(1),5,DA,.2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(55.07,.01,1,0)="^.1^^-1"
^DD(55.07,.01,1,1,0)="55.06^AL701^MUMPS"
^DD(55.07,.01,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(701))#2 KILL^PSGAL5:PSGAL(701)=X K PSGAL"
^DD(55.07,.01,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(701)=X,PSGAL(""C"")=6000,PSGALFF=.01,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.01,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.07,.01,1,1,"%D",0)="^^1^1^2990224^^"
^DD(55.07,.01,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.01,1,2,0)="55.07^B"
^DD(55.07,.01,1,2,1)="S ^PS(55,DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(55.07,.01,1,2,2)="K ^PS(55,DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(55.07,.01,1,2,"DT")="2911031"
^DD(55.07,.01,3)="Enter a medication that will dispensed for this order."
^DD(55.07,.01,12)="The dispense drug must be tied to the drug of the order."
^DD(55.07,.01,12.1)="S DIC(""S"")=""S X(1)=$P($G(^PSDRUG(+Y,2)),""""^"""",1) I X(1),X(1)=+$G(^PS(55,DA(1),5,DA,.2))"""
^DD(55.07,.01,20,0)="^.3LA^1^1"
^DD(55.07,.01,20,1,0)="PSJU"
^DD(55.07,.01,21,0)="^^3^3^2990714^^^^"
^DD(55.07,.01,21,1,0)="  This is a medication that will actually be dispensed by pharmacy for this"
^DD(55.07,.01,21,2,0)="order.  Each dispense drug of an order must be tied to the primary drug"
^DD(55.07,.01,21,3,0)="of the order."
^DD(55.07,.01,23,0)="^^4^4^2990714^^^^"
^DD(55.07,.01,23,1,0)="  This is a medications that will actually be dispensed by pharmacy for"
^DD(55.07,.01,23,2,0)="this order.  An order may consist of more than one dispense drug.  Each"
^DD(55.07,.01,23,3,0)="dispense drug of the order must be tied to the primary drug of the order"
^DD(55.07,.01,23,4,0)="through the PRIMARY DRUG field in the DRUG file."
^DD(55.07,.01,"DEL",1,0)="W !?2,""Dispense Drugs for active orders cannot be deleted, but can be given an"",!?2,""INACTIVE DATE."""
^DD(55.07,.01,"DT")="2990505"
^DD(55.07,.01,"LAYGO",1,0)="S X(1)=$D(^PS(55,DA(1),5,DA,1,""B"",+X)) W:X(1) !?2,""This dispense drug has already been entered for this order."" I 'X(1)"
^DD(55.07,.02,0)="UNITS PER DOSE^NJ5,2OX^^0;2^S:X?1.2N1""/""1.2N X=+$J(+X/$P(X,""/"",2),0,2) K:X'?.N.1""."".N!(X>30)!(X<0)!(X?.E1"".""5.N) X"
^DD(55.07,.02,1,0)="^.1^^-1"
^DD(55.07,.02,1,1,0)="55.06^AL702^MUMPS"
^DD(55.07,.02,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(702))#2 KILL^PSGAL5:PSGAL(702)=X K PSGAL"
^DD(55.07,.02,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(702)=X,PSGAL(""C"")=6000,PSGALFF=.02,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.02,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.07,.02,1,1,"%D",0)="^^1^1^2990225^^"
^DD(55.07,.02,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.02,2)="S Y(0)=Y S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(55.07,.02,2.1)="S Y=$S(Y=.5:""1/2"",Y=.25:""1/4"",Y?1""."".N:""0""_Y,1:Y)"
^DD(55.07,.02,3)="Enter a number between 0 and 30, no more than 4 decimals (will accept fractions)."
^DD(55.07,.02,4)="D EN^DDIOL(""ONE (1) UNIT PER DOSE WILL BE ASSUMED IF THERE IS NO ENTRY (OR AN ENTRY OF ZERO (0)) INTO THIS FIELD."")"
^DD(55.07,.02,20,0)="^.3LA^1^1"
^DD(55.07,.02,20,1,0)="PSJU"
^DD(55.07,.02,21,0)="^.001^10^10^3000404^^^^"
^DD(55.07,.02,21,1,0)="  This is the number of UNITS (tablets, capsules, etc.) to be dispensed as a"
^DD(55.07,.02,21,2,0)="DOSE for this order.  The literals '1/2' and '1/4' may be entered.  If there"
^DD(55.07,.02,21,3,0)="is no entry, it is assumed to be ONE (1)."
^DD(55.07,.02,21,4,0)="                         ** PLEASE NOTE **"
^DD(55.07,.02,21,5,0)="  If a doctor prescribes 30 ml's of a medication that is usually dispensed"
^DD(55.07,.02,21,6,0)="and administered as 60 ml's, the correct UNITS PER DOSE would be 1/2 (or"
^DD(55.07,.02,21,7,0)=".5), NOT 30 ml's.  (30 ml's would be entered into the DOSAGE ORDERED field.)"
^DD(55.07,.02,21,8,0)="  If the UNITS PER DOSE ordered is a variable amount (1-2 tab.), it is"
^DD(55.07,.02,21,9,0)="suggested that the maximum amount be entered into this field and the amount"
^DD(55.07,.02,21,10,0)="ordered noted either in the DOSAGE ORDERED or SPECIAL INSTRUCTIONS fields."
^DD(55.07,.02,"DT")="3030221"
^DD(55.07,.03,0)="INACTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.07,.03,3)="Enter the date that this drug will no longer be dispense for this order."
^DD(55.07,.03,20,0)="^.3LA^1^1"
^DD(55.07,.03,20,1,0)="PSJU"
^DD(55.07,.03,21,0)="^^2^2^2920426^"
^DD(55.07,.03,21,1,0)="  This is the date that this dispense drug will no longer be dispensed for"
^DD(55.07,.03,21,2,0)="this order.  Once an order becomes active, dispense drugs cannot be deleted."
^DD(55.07,.03,23,0)="^^2^2^2920426^"
^DD(55.07,.03,23,1,0)="  This is used by pharmacy when the dispense drug is no longer to be"
^DD(55.07,.03,23,2,0)="dispensed for the order."
^DD(55.07,.03,"DT")="2920426"
^DD(55.07,.04,0)="TOTAL UNITS DISPENSED^CJ8,2^^ ; ^S Y(55.06,.04,1)=$G(^PS(55,D0,5,D1,1,D2,0)) S X=$P(Y(55.06,.04,1),U,6)+$P(Y(55.06,.04,1),U,10)+$P(Y(55.06,.04,1),U,12)-$P(Y(55.06,.04,1),U,7) S X=$J(X,0,2)"
^DD(55.07,.04,9)="^"
^DD(55.07,.04,9.01)="55.06^35;55.06^63;55.06^54;55.06^36"
^DD(55.07,.04,9.1)="UNITS ACTUALLY DISPENSED+TOTAL EXTRA UNITS DISPENSED+TOTAL PRE-EXCHANGE UNITS-TOTAL RETURNS"
^DD(55.07,.04,20,0)="^.3LA^1^1"
^DD(55.07,.04,20,1,0)="PSJU"
^DD(55.07,.04,21,0)="^^2^2^2910306^^"
^DD(55.07,.04,21,1,0)="  This is the total number of units actually dispensed for this order,"
^DD(55.07,.04,21,2,0)="including any EXTRA UNIT DISPENSED, and PRE-EXCHANGE NEEDS."
^DD(55.07,.04,"DT")="2861120"
^DD(55.07,.05,0)="UNITS CALLED FOR^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.07,.05,1,0)="^.1"
^DD(55.07,.05,1,1,0)="55.06^AL705^MUMPS"
^DD(55.07,.05,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(705))#2 KILL^PSGAL5:PSGAL(705)=X K PSGAL"
^DD(55.07,.05,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(705)=X,PSGAL(""C"")=6000,PSGALFF=.05,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.05,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.07,.05,1,1,"%D",0)="^^1^1^2920728^"
^DD(55.07,.05,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.05,3)="Type a whole number between 0 and 9999."
^DD(55.07,.05,20,0)="^.3LA^1^1"
^DD(55.07,.05,20,1,0)="PSJU"
^DD(55.07,.05,21,0)="^^2^2^2910306^^^"
^DD(55.07,.05,21,1,0)="  This is the total number of units to be dispensed for this medication"
^DD(55.07,.05,21,2,0)="as calculated by the package."
^DD(55.07,.05,"DT")="2851111"
^DD(55.07,.06,0)="UNITS ACTUALLY DISPENSED^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.07,.06,1,0)="^.1^^-1"
^DD(55.07,.06,1,2,0)="55.06^AL706^MUMPS"
^DD(55.07,.06,1,2,1)="I '$D(DIU(0)) D:$D(PSGAL(706))#2 KILL^PSGAL5:PSGAL(706)=X K PSGAL"
^DD(55.07,.06,1,2,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(706)=X,PSGAL(""C"")=6000,PSGALFF=.06,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.06,1,2,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.07,.06,1,2,"%D",0)="^^1^1^2920728^"
^DD(55.07,.06,1,2,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.06,3)="Type a whole number between 0 and 9999."
^DD(55.07,.06,20,0)="^.3LA^1^1"
^DD(55.07,.06,20,1,0)="PSJU"
^DD(55.07,.06,21,0)="^^2^2^2910306^^"
^DD(55.07,.06,21,1,0)="  This is the number of units of this medication actually dispensed as"
^DD(55.07,.06,21,2,0)="entered by the pharmacist."
^DD(55.07,.06,"DT")="2860109"
^DD(55.07,.07,0)="TOTAL RETURNS^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.07,.07,1,0)="^.1"
^DD(55.07,.07,1,1,0)="55.06^AL707^MUMPS"
^DD(55.07,.07,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(707))#2 KILL^PSGAL5:PSGAL(707)=X K PSGAL"
^DD(55.07,.07,1,1,2)="I '$D(PSGRET),'$D(DIU(0)),'$D(PSGPO) S PSGAL(707)=X,PSGAL(""C"")=6000,PSGALFF=.07,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.07,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.07,.07,1,1,"%D",0)="^1^1^2920728"
^DD(55.07,.07,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.07,3)="Type a whole number between 0 and 9999."
^DD(55.07,.07,5,1,0)="55.06^38^1"
^DD(55.07,.07,5,2,0)="55.07^.08^1"
^DD(55.07,.07,20,0)="^.3LA^1^1"
^DD(55.07,.07,20,1,0)="PSJU"
^DD(55.07,.07,21,0)="^^2^2^2910306^^"
^DD(55.07,.07,21,1,0)="  This is the total number units returned for this medication over the"
^DD(55.07,.07,21,2,0)="life of the order."
^DD(55.07,.07,"DT")="2860822"
^DD(55.07,.08,0)="RETURNS^NJ3,0^^0;8^K:+X'=X!(X>100)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(55.07,.08,1,0)="^.1"
^DD(55.07,.08,1,1,0)="^^TRIGGER^55.07^.07"
^DD(55.07,.08,1,1,1)="I X S DIU=$P($G(^PS(55,DA(2),5,DA(1),1,DA,0)),""^"",7),$P(^(0),""^"",7)=DIU+X I $O(^DD(55.07,.07,1,0)) K DIV S (DIV(0),D0)=DA(2),(DIV(1),D1)=DA(1),(DIV(2),D2)=DA,DIV=DIU+X,DIH=55.07,DIG=.07 D ^DICR"
^DD(55.07,.08,1,1,2)="Q"
^DD(55.07,.08,1,1,"%D",0)="^^1^2920901^"
^DD(55.07,.08,1,1,"%D",1,0)="Used to trigger data into field .07."
^DD(55.07,.08,1,1,"CREATE VALUE")="TOTAL RETURNS=TOTAL RETURNS+RETURNS"
^DD(55.07,.08,1,1,"DELETE VALUE")="NO EFFECT"
^DD(55.07,.08,1,1,"FIELD")="TOTAL RETURNS"
^DD(55.07,.08,1,2,0)="55.07^AMSRET^MUMPS"
^DD(55.07,.08,1,2,1)="I '$D(DIU(0)),X D EN^PSGAMSA(DA(2),DA(1),DA,4)"
^DD(55.07,.08,1,2,2)="Q"
^DD(55.07,.08,1,2,3)="Needed to register dispense stats."
^DD(55.07,.08,1,2,"%D",0)="^^2^2^2920507^"
^DD(55.07,.08,1,2,"%D",1,0)="  This is used to enter returns into this order's dispense log and into"
^DD(55.07,.08,1,2,"%D",2,0)="the Unit Dose Pick List Stats file."
^DD(55.07,.08,1,2,"DT")="2920507"
^DD(55.07,.08,3)="Enter a whole number between -100 and 100."
^DD(55.07,.08,4)="S Y1=$S('$D(^PS(55,DA(2),5,DA(1),1,DA,0)):0,1:$P(^(0),""^"",7)) W !,$S(Y1:Y1_"" TOTAL"",1:""NO""),"" UNIT"",$E(""S"",Y1'=1),"" RETURNED, SO FAR."""
^DD(55.07,.08,20,0)="^.3LA^1^1"
^DD(55.07,.08,20,1,0)="PSJU"
^DD(55.07,.08,21,0)="^^2^2^2940803^^^^"
^DD(55.07,.08,21,1,0)="  This is the number of units returned of this medication from the "
^DD(55.07,.08,21,2,0)="patient's cassette upon the termination of this order."
^DD(55.07,.08,"DT")="2920507"
^DD(55.07,.09,0)="PRE-EXCHANGE UNITS^NJ5,2^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(55.07,.09,1,0)="^.1"
^DD(55.07,.09,1,1,0)="55.06^AL709^MUMPS"
^DD(55.07,.09,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(709))#2 KILL^PSGAL5:PSGAL(709)=X K PSGAL"
^DD(55.07,.09,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(709)=X,PSGAL(""C"")=6000,PSGALFF=.09,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.09,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.07,.09,1,1,"%D",0)="^^1^1^2920728^"
^DD(55.07,.09,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.09,1,2,0)="55.07^AMSPREX^MUMPS"
^DD(55.07,.09,1,2,1)="I '$D(DIU(0)),X D EN^PSGAMSA(DA(2),DA(1),DA,2)"
^DD(55.07,.09,1,2,2)="Q"
^DD(55.07,.09,1,2,3)="Needed to register pre-exchange needs."
^DD(55.07,.09,1,2,"%D",0)="^^2^2^2920507^"
^DD(55.07,.09,1,2,"%D",1,0)="  This is used to update the order's dispense log and the Unit Dose Pick"
^DD(55.07,.09,1,2,"%D",2,0)="List Stats file."
^DD(55.07,.09,1,2,"DT")="2920507"
^DD(55.07,.09,1,3,0)="^^TRIGGER^55.07^.12"
^DD(55.07,.09,1,3,1)="I X S DIU=$P($G(^PS(55,DA(2),5,DA(1),1,DA,0)),""^"",12) S $P(^(0),""^"",12)=DIU+X I $O(^DD(55.07,.12,1,0)) K DIV S (DIV,D0)=DA(2),(DIV(1),D1)=DA(1),(DIV(2),D2)=DA,DIV=DIU+X,DIH=55.07,DIG=.12 D ^DICR"
^DD(55.07,.09,1,3,2)="Q"
^DD(55.07,.09,1,3,"%D",0)="^^1^2920901^"
^DD(55.07,.09,1,3,"%D",1,0)="Used to trigger data into field .12."
^DD(55.07,.09,1,3,"CREATE CONDITION")="IF PRE-EXCHANGE NEEDS"
^DD(55.07,.09,1,3,"CREATE VALUE")="TOTAL PRE-EXCHANGE UNITS+PRE-EXCHANGE UNITS"
^DD(55.07,.09,1,3,"DELETE VALUE")="NO EFFECT"
^DD(55.07,.09,1,3,"FIELD")="TOTAL PRE-EXCHANGE UNITS"
^DD(55.07,.09,3)="Type a Number between 0 and 99, 2 Decimal Digits."
^DD(55.07,.09,4)=""
^DD(55.07,.09,20,0)="^.3LA^1^1"
^DD(55.07,.09,20,1,0)="PSJU"
^DD(55.07,.09,21,0)="^^2^2^2910306^^^^"
^DD(55.07,.09,21,1,0)="  This is the number of actual units required for this order until the"
^DD(55.07,.09,21,2,0)="next cart exchange."
^DD(55.07,.09,"DT")="2920507"
^DD(55.07,.1,0)="TOTAL EXTRA UNITS DISPENSED^NJ3,0^^0;10^K:+X'=X!(X>100)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(55.07,.1,1,0)="^.1"
^DD(55.07,.1,1,1,0)="55.06^AL710^MUMPS"
^DD(55.07,.1,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(710)) KILL^PSGAL5:PSGAL(710)=X K PSGAL"
^DD(55.07,.1,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(710)=X,PSGAL(""C"")=6000,PSGALFF=.1,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.1,1,1,3)="UNIT DOSE ACTIVTY LOG"
^DD(55.07,.1,1,1,"%D",0)="^^1^1^2920804^"
^DD(55.07,.1,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.1,3)="Type a whole number between -100 and 100."
^DD(55.07,.1,5,1,0)="55.06^55^1"
^DD(55.07,.1,5,2,0)="55.07^.11^1"
^DD(55.07,.1,20,0)="^.3LA^1^1"
^DD(55.07,.1,20,1,0)="PSJU"
^DD(55.07,.1,21,0)="^^2^2^2910306^^^"
^DD(55.07,.1,21,1,0)="  This is the total number of extra units dispensed for this order over"
^DD(55.07,.1,21,2,0)="the entire life of the order."
^DD(55.07,.1,"DT")="2860825"
^DD(55.07,.11,0)="EXTRA UNITS DISPENSED^NJ2,0^^0;11^K:+X'=X!(X>100)!(X<-100)!(X?.E1"".""1N.N) X"
^DD(55.07,.11,1,0)="^.1"
^DD(55.07,.11,1,1,0)="^^TRIGGER^55.07^.1"
^DD(55.07,.11,1,1,1)="I X S DIU=$P($G(^PS(55,DA(2),5,DA(1),1,DA,0)),""^"",10),$P(^(0),""^"",10)=DIU+X I $O(^DD(55.07,.1,1,0)) K DIV S (DIV(0),D0)=DA(2),(DIV(1),D1)=DA(1),(DIV(2),D2)=DA,DIV=DIU+X,DIH=55.07,DIG=.1 D ^DICR"
^DD(55.07,.11,1,1,2)="Q"
^DD(55.07,.11,1,1,"%D",0)="^^1^2920901^"
^DD(55.07,.11,1,1,"%D",1,0)="Used to trigger data into field .1."
^DD(55.07,.11,1,1,"CREATE VALUE")="TOTAL EXTRA UNITS DISPENSED+EXTRA UNITS DISPENSED"
^DD(55.07,.11,1,1,"DELETE VALUE")="NO EFFECT"
^DD(55.07,.11,1,1,"FIELD")="TOTAL EXTRA UNITS DISPENSED"
^DD(55.07,.11,1,2,0)="55.07^AMSEXTRA^MUMPS"
^DD(55.07,.11,1,2,1)="I '$D(DIU(0)),X D EN^PSGAMSA(DA(2),DA(1),DA,3)"
^DD(55.07,.11,1,2,2)="Q"
^DD(55.07,.11,1,2,3)="Needed to register extra units dispensed."
^DD(55.07,.11,1,2,"%D",0)="^^2^2^2920507^"
^DD(55.07,.11,1,2,"%D",1,0)="  This is used to update the order's dispense log and the Unit Dose Pick"
^DD(55.07,.11,1,2,"%D",2,0)="List Stats file."
^DD(55.07,.11,1,2,"DT")="2920507"
^DD(55.07,.11,3)="Enter a whole number between -100 and 100."
^DD(55.07,.11,20,0)="^.3LA^1^1"
^DD(55.07,.11,20,1,0)="PSJU"
^DD(55.07,.11,21,0)="^^2^2^2910306^^^^"
^DD(55.07,.11,21,1,0)=" This is the number of units dispensed outside of the normal dispensing"
^DD(55.07,.11,21,2,0)="process (pick list)."
^DD(55.07,.11,"DT")="2920507"
^DD(55.07,.12,0)="TOTAL PRE-EXCHANGE UNITS^NJ7,2^^0;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(55.07,.12,1,0)="^.1"
^DD(55.07,.12,1,1,0)="55.07^AL712^MUMPS"
^DD(55.07,.12,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(712))#2 KILL^PSGAL5:PSGAL(712)=X K PSGAL"
^DD(55.07,.12,1,1,2)="I '$D(PSGPEN),'$D(DIU(0)),'$D(PSGPO) S PSGAL(712)=X,PSGAL(""C"")=6000,PSGALFF=.12,PSGALFN=55.07 D ^PSGAL5"
^DD(55.07,.12,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.07,.12,1,1,"%D",0)="^^1^1^2920730^"
^DD(55.07,.12,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.07,.12,1,1,"DT")="2920730"
^DD(55.07,.12,3)="Enter a number between 0 and 9999."
^DD(55.07,.12,5,1,0)="55.07^.09^3"
^DD(55.07,.12,20,0)="^.3LA^1^1"
^DD(55.07,.12,20,1,0)="PSJU"
^DD(55.07,.12,21,0)="^^2^2^2910306^^"
^DD(55.07,.12,21,1,0)="  This is the total number of pre-exchange units dispensed over the life"
^DD(55.07,.12,21,2,0)="of the order."
^DD(55.07,.12,"DT")="2920730"
^DD(55.07,"B","DISPENSE DRUG",.01)=""
^DD(55.07,"B","EXTRA UNITS DISPENSED",.11)=""
^DD(55.07,"B","INACTIVE DATE",.03)=""
^DD(55.07,"B","PRE-EXCHANGE UNITS",.09)=""
^DD(55.07,"B","RETURNS",.08)=""
^DD(55.07,"B","TOTAL EXTRA UNITS DISPENSED",.1)=""
^DD(55.07,"B","TOTAL PRE-EXCHANGE UNITS",.12)=""
^DD(55.07,"B","TOTAL RETURNS",.07)=""
^DD(55.07,"B","TOTAL UNITS DISPENSED",.04)=""
^DD(55.07,"B","UNITS ACTUALLY DISPENSED",.06)=""
^DD(55.07,"B","UNITS CALLED FOR",.05)=""
^DD(55.07,"B","UNITS PER DOSE",.02)=""
^DD(55.07,"GL",0,1,.01)=""
^DD(55.07,"GL",0,2,.02)=""
^DD(55.07,"GL",0,3,.03)=""
^DD(55.07,"GL",0,5,.05)=""
^DD(55.07,"GL",0,6,.06)=""
^DD(55.07,"GL",0,7,.07)=""
^DD(55.07,"GL",0,8,.08)=""
^DD(55.07,"GL",0,9,.09)=""
^DD(55.07,"GL",0,10,.1)=""
^DD(55.07,"GL",0,11,.11)=""
^DD(55.07,"GL",0,12,.12)=""
^DD(55.07,"GR","PSJU",.01,1)=""
^DD(55.07,"GR","PSJU",.02,1)=""
^DD(55.07,"GR","PSJU",.03,1)=""
^DD(55.07,"GR","PSJU",.04,1)=""
^DD(55.07,"GR","PSJU",.05,1)=""
^DD(55.07,"GR","PSJU",.06,1)=""
^DD(55.07,"GR","PSJU",.07,1)=""
^DD(55.07,"GR","PSJU",.08,1)=""
^DD(55.07,"GR","PSJU",.09,1)=""
^DD(55.07,"GR","PSJU",.1,1)=""
^DD(55.07,"GR","PSJU",.11,1)=""
^DD(55.07,"GR","PSJU",.12,1)=""
^DD(55.07,"IX",.01)=""
^DD(55.07,"IX",.02)=""
^DD(55.07,"IX",.05)=""
^DD(55.07,"IX",.06)=""
^DD(55.07,"IX",.07)=""
^DD(55.07,"IX",.08)=""
^DD(55.07,"IX",.09)=""
^DD(55.07,"IX",.1)=""
^DD(55.07,"IX",.11)=""
^DD(55.07,"IX",.12)=""
^DD(55.07,"RQ",.01)=""
^DD(55.08,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(55.08,0,"NM","COMMENTS")=""
^DD(55.08,0,"UP")="55.06"
^DD(55.08,.01,0)="COMMENTS^W^^0;1^Q"
^DD(55.08,.01,20,0)="^.3LA^1^1"
^DD(55.08,.01,20,1,0)="PSJU"
^DD(55.08,.01,21,0)="^^2^2^2920610^^^^"
^DD(55.08,.01,21,1,0)="This is a word processing field that is purely informational.  This"
^DD(55.08,.01,21,2,0)="field only shows on the expanded view of the order."
^DD(55.08,.01,"DT")="2850313"
^DD(55.08,"B","COMMENTS",.01)=""
^DD(55.08,"GL",0,1,.01)=""
^DD(55.08,"GR","PSJU",.01,1)=""
^DD(55.09,0)="ACTIVITY LOG SUB-FIELD^NL^4^5"
^DD(55.09,0,"DIK")="PSSJXR"
^DD(55.09,0,"IX","AL35",55.09,.01)=""
^DD(55.09,0,"IX","AL36",55.09,1)=""
^DD(55.09,0,"IX","AL37",55.09,2)=""
^DD(55.09,0,"IX","AL78",55.09,3)=""
^DD(55.09,0,"IX","AL79",55.09,4)=""
^DD(55.09,0,"NM","ACTIVITY LOG")=""
^DD(55.09,0,"UP")="55.06"
^DD(55.09,.01,0)="DATE^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(55.09,.01,1,0)="^.1"
^DD(55.09,.01,1,1,0)="55.09^AL35^MUMPS"
^DD(55.09,.01,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(35))#2 KILL^PSGAL5:PSGAL(35)=X K PSGAL"
^DD(55.09,.01,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(35)=X,PSGAL(""C"")=6000,PSGALFF=.01,PSGALFN=55.09 D ^PSGAL5"
^DD(55.09,.01,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.09,.01,1,1,"%D",0)="^1^1^2920728"
^DD(55.09,.01,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.09,.01,20,0)="^.3LA^1^1"
^DD(55.09,.01,20,1,0)="PSJU"
^DD(55.09,.01,21,0)="^^1^1^2910306^^"
^DD(55.09,.01,21,1,0)="  This is the date (to the second) that the activity took place."
^DD(55.09,.01,"DT")="2850313"
^DD(55.09,1,0)="USER^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(55.09,1,1,0)="^.1"
^DD(55.09,1,1,1,0)="55.09^AL36^MUMPS"
^DD(55.09,1,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(36))#2 KILL^PSGAL5:PSGAL(36)=X K PSGAL"
^DD(55.09,1,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(36)=X,PSGAL(""C"")=6000,PSGALFF=1,PSGALFN=55.09 D ^PSGAL5"
^DD(55.09,1,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.09,1,1,1,"%D",0)="^1^1^2920728"
^DD(55.09,1,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.09,1,3)=""
^DD(55.09,1,20,0)="^.3LA^1^1"
^DD(55.09,1,20,1,0)="PSJU"
^DD(55.09,1,21,0)="^^1^1^2910306^^"
^DD(55.09,1,21,1,0)="  This is the user who effected the activity."
^DD(55.09,1,"DT")="2850313"
^DD(55.09,2,0)="ACTION^RP53.3'^PS(53.3,^0;3^Q"
^DD(55.09,2,1,0)="^.1"
^DD(55.09,2,1,1,0)="55.09^AL37^MUMPS"
^DD(55.09,2,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(37))#2 KILL^PSGAL5:PSGAL(37)=X K PSGAL"
^DD(55.09,2,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(37)=X,PSGAL(""C"")=6000,PSGALFF=2,PSGALFN=55.09 D ^PSGAL5"
^DD(55.09,2,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.09,2,1,1,"%D",0)="^1^1^2920728"
^DD(55.09,2,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.09,2,3)=""
^DD(55.09,2,20,0)="^.3LA^1^1"
^DD(55.09,2,20,1,0)="PSJU"
^DD(55.09,2,21,0)="^^1^1^2910306^^"
^DD(55.09,2,21,1,0)="  This is the activity that has taken place on the order."
^DD(55.09,2,"DT")="2860228"
^DD(55.09,3,0)="FIELD^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X)"
^DD(55.09,3,1,0)="^.1"
^DD(55.09,3,1,1,0)="55.09^AL78^MUMPS"
^DD(55.09,3,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(78)) KILL^PSGAL5:PSGAL(78)=X K PSGAL"
^DD(55.09,3,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(78)=X,PSGAL(""C"")=6000,PSGALFF=3,PSGALFN=55.09 D ^PSGAL5"
^DD(55.09,3,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.09,3,1,1,"%D",0)="^1^1^2920728"
^DD(55.09,3,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.09,3,3)=""
^DD(55.09,3,20,0)="^.3LA^1^1"
^DD(55.09,3,20,1,0)="PSJU"
^DD(55.09,3,21,0)="^^1^1^2910306^^"
^DD(55.09,3,21,1,0)="  This is field that was changed due to the activity."
^DD(55.09,3,"DT")="2860825"
^DD(55.09,4,0)="OLD DATA^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>170!($L(X)<1) X"
^DD(55.09,4,1,0)="^.1"
^DD(55.09,4,1,1,0)="55.09^AL79^MUMPS"
^DD(55.09,4,1,1,1)="I '$D(DIU(0)) D:$D(PSGAL(79)) KILL^PSGAL5:PSGAL(79)=X K PSGAL"
^DD(55.09,4,1,1,2)="I '$D(DIU(0)),'$D(PSGPO) S PSGAL(79)=X,PSGAL(""C"")=6000,PSGALFF=4,PSGALFN=55.09 D ^PSGAL5"
^DD(55.09,4,1,1,3)="UNIT DOSE ACTIVITY LOG"
^DD(55.09,4,1,1,"%D",0)="^1^1^2920728"
^DD(55.09,4,1,1,"%D",1,0)="Used by Unit Dose to log any changes made to this field."
^DD(55.09,4,3)=""
^DD(55.09,4,20,0)="^.3LA^1^1"
^DD(55.09,4,20,1,0)="PSJU"
^DD(55.09,4,21,0)="^^1^1^2910306^^"
^DD(55.09,4,21,1,0)="  This is the previous data that was in the field that was changed."
^DD(55.09,4,"DT")="2860825"
^DD(55.09,"B","ACTION",2)=""
^DD(55.09,"B","DATE",.01)=""
^DD(55.09,"B","FIELD",3)=""
^DD(55.09,"B","OLD DATA",4)=""
^DD(55.09,"B","USER",1)=""
^DD(55.09,"GL",0,1,.01)=""
^DD(55.09,"GL",0,2,1)=""
^DD(55.09,"GL",0,3,2)=""
^DD(55.09,"GL",0,4,3)=""
^DD(55.09,"GL",0,5,4)=""
^DD(55.09,"GR","PSJU",.01,1)=""
^DD(55.09,"GR","PSJU",1,1)=""
^DD(55.09,"GR","PSJU",2,1)=""
^DD(55.09,"GR","PSJU",3,1)=""
^DD(55.09,"GR","PSJU",4,1)=""
^DD(55.09,"IX",.01)=""
^DD(55.09,"IX",1)=""
^DD(55.09,"IX",2)=""
^DD(55.09,"IX",3)=""
^DD(55.09,"IX",4)=""
^DD(55.09,"RQ",2)=""
^DD(55.1057,0)="ADDITIVE SUB-FIELD^^2^3"
^DD(55.1057,0,"DT")="3010517"
^DD(55.1057,0,"NM","ADDITIVE")=""
^DD(55.1057,0,"UP")="55.0105"
^DD(55.1057,.01,0)="ADDITIVE^P52.6'^PS(52.6,^0;1^Q"
^DD(55.1057,.01,1,0)="^.1^^0"
^DD(55.1057,.01,3)="Choose an additive, an additive synonym, or an additive quick code."
^DD(55.1057,.01,21,0)="^.001^2^2^3020418^^"
^DD(55.1057,.01,21,1,0)="The additive in the IV order.  This points to the IV Additives file"
^DD(55.1057,.01,21,2,0)="(#52.6)."
^DD(55.1057,.01,"DT")="3010518"
^DD(55.1057,1,0)="STRENGTH^F^^0;2^K:$L(X)>9!($L(X)<1) X"
^DD(55.1057,1,3)="Enter the numeric strength of the additive."
^DD(55.1057,1,21,0)="^^6^6^3010517^"
^DD(55.1057,1,21,1,0)="'STRENGTH' is the amount of an additive that is used in the manufacturing"
^DD(55.1057,1,21,2,0)="of the IV order. NOTE!  You'll be expected to use the strength units that"
^DD(55.1057,1,21,3,0)="have been previously defined within the additive file (52.6) for each"
^DD(55.1057,1,21,4,0)="additive. That is to say, if the additive file expects AMPICILLIN to be"
^DD(55.1057,1,21,5,0)="dispensed in 'GMS', it would not be correct for you to enter '500' for a"
^DD(55.1057,1,21,6,0)="half-gram dose -- enter 0.5 instead. "
^DD(55.1057,1,"DT")="3010517"
^DD(55.1057,2,0)="BOTTLE^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(55.1057,2,3)="Enter the bottle #'s that this additive will be in.  (Ex. '1' or '1,3' or <return> for all bottles)."
^DD(55.1057,2,21,0)="^^2^2^3010517^"
^DD(55.1057,2,21,1,0)="Enter the bottle no.(s) in which this additive will be included in for"
^DD(55.1057,2,21,2,0)="this IV order."
^DD(55.1057,2,"DT")="3010517"
^DD(55.1057,"B","ADDITIVE",.01)=""
^DD(55.1057,"B","BOTTLE",2)=""
^DD(55.1057,"B","STRENGTH",1)=""
^DD(55.1057,"GL",0,1,.01)=""
^DD(55.1057,"GL",0,2,1)=""
^DD(55.1057,"GL",0,3,2)=""
^DD(55.1058,0)="SOLUTION SUB-FIELD^^1^2"
^DD(55.1058,0,"DT")="3010517"
^DD(55.1058,0,"NM","SOLUTION")=""
^DD(55.1058,0,"UP")="55.0105"
^DD(55.1058,.01,0)="SOLUTION^P52.7'^PS(52.7,^0;1^Q"
^DD(55.1058,.01,1,0)="^.1^^0"
^DD(55.1058,.01,3)="Enter a solution or a solution's synonym."
^DD(55.1058,.01,21,0)="^.001^2^2^3020418^^"
^DD(55.1058,.01,21,1,0)="This is the solution in the IV order.  This points to the IV Solutions"
^DD(55.1058,.01,21,2,0)="file (#52.7)."
^DD(55.1058,.01,"DT")="3010518"
^DD(55.1058,1,0)="VOLUME^F^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(55.1058,1,3)="Answer must be from .01 - 9999."
^DD(55.1058,1,21,0)="^^3^3^3010517^"
^DD(55.1058,1,21,1,0)="This field represents the volume of this solution in MLs.  Only a number"
^DD(55.1058,1,21,2,0)="can be entered into this field.  The total volume of an IV ORDER is all"
^DD(55.1058,1,21,3,0)="the solution's volumes added together."
^DD(55.1058,1,"DT")="3010517"
^DD(55.1058,"B","SOLUTION",.01)=""
^DD(55.1058,"B","VOLUME",1)=""
^DD(55.1058,"GL",0,1,.01)=""
^DD(55.1058,"GL",0,2,1)=""
^DD(55.11,0)="SOLUTION SUB-FIELD^NL^1^2"
^DD(55.11,0,"DIK")="PSSJXR"
^DD(55.11,0,"ID","PSIV")="D ENSOL^PSIV"
^DD(55.11,0,"IX","AC",55.11,.01)=""
^DD(55.11,0,"IX","AD",55.11,1)=""
^DD(55.11,0,"NM","SOLUTION")=""
^DD(55.11,0,"UP")="55.01"
^DD(55.11,.01,0)="SOLUTION^*P52.7'X^PS(52.7,^0;1^S DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(55.11,.01,1,0)="^.1"
^DD(55.11,.01,1,1,0)="55.11^AC^MUMPS"
^DD(55.11,.01,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENTO^PSIVAL"
^DD(55.11,.01,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=.01 D ENFR^PSIVAL"
^DD(55.11,.01,1,1,"%D",0)="^^1^2920901^"
^DD(55.11,.01,1,1,"%D",1,0)="Used by IV Package."
^DD(55.11,.01,3)="Answer must be 1-120 characters in length."
^DD(55.11,.01,4)=""
^DD(55.11,.01,12)="Choose a solution or a solution's synonym."
^DD(55.11,.01,12.1)="S DIC(""S"")=""I $S($D(^(""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1),($S($D(^PSDRUG($P(^(0),U,2),""""I"""")):DT<^(""""I"""")!'^(""""I""""),1:1))"""
^DD(55.11,.01,20,0)="^.3LA^1^1"
^DD(55.11,.01,20,1,0)="PSJI"
^DD(55.11,.01,21,0)="^^1^1^2910523^^"
^DD(55.11,.01,21,1,0)="  This is the solution entered as part of the specified IV order."
^DD(55.11,.01,"DT")="2881227"
^DD(55.11,1,0)="VOLUME^RFX^^0;2^K:X[""""""""!($A(X)=45)!(X'=+X)!(X>3000)!(X<.01) X I $D(X) S X=X_"" ML"" W "" ML"""
^DD(55.11,1,1,0)="^.1"
^DD(55.11,1,1,1,0)="55.11^AD^MUMPS"
^DD(55.11,1,1,1,1)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENTO^PSIVAL"
^DD(55.11,1,1,1,2)="Q:$D(PSIVACT)  I '$D(DIU(0)) S PSIVF1=55.11,PSIVF2=1 D ENFR^PSIVAL"
^DD(55.11,1,1,1,"%D",0)="^^1^2920901^"
^DD(55.11,1,1,1,"%D",1,0)="Used by IV Package."
^DD(55.11,1,3)="Answer must be a number from .01-3000."
^DD(55.11,1,20,0)="^.3LA^1^1"
^DD(55.11,1,20,1,0)="PSJI"
^DD(55.11,1,21,0)="^^3^3^2910306^^^^"
^DD(55.11,1,21,1,0)="  This field represents the volume of this solution in MLs.  Only a number"
^DD(55.11,1,21,2,0)="can be entered into this field.  The total volume of an IV ORDER is all"
^DD(55.11,1,21,3,0)="the solution's volumes added together."
^DD(55.11,1,"DT")="2880314"
^DD(55.11,"B","SOLUTION",.01)=""
^DD(55.11,"B","VOLUME",1)=""
^DD(55.11,"GL",0,1,.01)=""
^DD(55.11,"GL",0,2,1)=""
^DD(55.11,"GR","PSJI",.01,1)=""
^DD(55.11,"GR","PSJI",1,1)=""
^DD(55.11,"IX",.01)=""
^DD(55.11,"IX",1)=""
^DD(55.11,"RQ",1)=""
^DD(55.1111,0)="LABEL TRACKING SUB-FIELD^^7^8"
^DD(55.1111,0,"NM","LABEL TRACKING")=""
^DD(55.1111,0,"UP")="55.01"
^DD(55.1111,.01,0)="LABEL TRACKING^NJ11,0X^^0;1^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(55.1111,.01,1,0)="^.1^^0"
^DD(55.1111,.01,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(55.1111,.01,21,0)="^^1^1^2910313^^^"
^DD(55.1111,.01,21,1,0)="  This is the internal number of this label tracking event."
^DD(55.1111,.01,"DT")="2900207"
^DD(55.1111,1,0)="DATE^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(55.1111,1,21,0)="^^1^1^2910313^^"
^DD(55.1111,1,21,1,0)="  This is the date the label action was taken."
^DD(55.1111,1,"DT")="2900207"
^DD(55.1111,2,0)="ACTION^S^1:DISPENSED;2:RECYCLED;3:DESTROYED;4:CANCELED;5:SUSPENDED;6:OTHER;^0;3^Q"
^DD(55.1111,2,21,0)="^^1^1^2910313^^"
^DD(55.1111,2,21,1,0)="  This describes what type of label action was taken."
^DD(55.1111,2,"DT")="2900326"
^DD(55.1111,3,0)="USER^NJ14,0^^0;4^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.1111,3,3)="Type a Number between 0 and 99999999999999, 0 Decimal Digits"
^DD(55.1111,3,21,0)="^^1^1^2910708^^^"
^DD(55.1111,3,21,1,0)="  This identifies who initiated the label action."
^DD(55.1111,3,"DT")="2900207"
^DD(55.1111,4,0)="LABELS^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(55.1111,4,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(55.1111,4,21,0)="^^1^1^2910313^"
^DD(55.1111,4,21,1,0)="  This is the number of labels involved in this event."
^DD(55.1111,4,"DT")="2900207"
^DD(55.1111,5,0)="TRACK^S^1:INDIVIDUAL LABELS;2:SCHEDULED LABELS;3:SUSPENDED LABELS;4:ORDER ACTION LABELS;5:OTHER;^0;6^Q"
^DD(55.1111,5,21,0)="^^1^1^2910415^^^^"
^DD(55.1111,5,21,1,0)="  This identifies the type of option used when labels were printed."
^DD(55.1111,5,"DT")="2900207"
^DD(55.1111,6,0)="DAILY USAGE^S^1:YES;2:NO;^0;7^Q"
^DD(55.1111,6,21,0)="^^2^2^2910313^^"
^DD(55.1111,6,21,1,0)="  This shows if the labels printed during this event were counted toward"
^DD(55.1111,6,21,2,0)="daily usage and had an entry made in the IV STATS file (50.8)."
^DD(55.1111,6,"DT")="2900207"
^DD(55.1111,7,0)="ERROR^F^^0;8^K:$L(X)>100!($L(X)<1) X"
^DD(55.1111,7,3)="Answer must be 1-100 characters in length."
^DD(55.1111,7,20,0)="^.3LA^1^1"
^DD(55.1111,7,20,1,0)="PSJI"
^DD(55.1111,7,21,0)="^^7^7^2910313^^^^"
^DD(55.1111,7,21,1,0)="  This will be defined when recycling, canceling, or destroying IV bags"
^DD(55.1111,7,21,2,0)="in an IV room different from the one in which the label was dispensed."
^DD(55.1111,7,21,3,0)="This is a built in error log and will show on the label tracking log"
^DD(55.1111,7,21,4,0)="if the error has occurred.  The log will tell you the IV room from which"
^DD(55.1111,7,21,5,0)="the bag was dispensed and the IV room in which the bag was recycled,"
^DD(55.1111,7,21,6,0)="canceled, or destroyed.  An IV bag should always be recycled, canceled,"
^DD(55.1111,7,21,7,0)="or destroyed in the same IV room from which it was dispensed."
^DD(55.1111,7,"DT")="2900209"
^DD(55.1111,"B","ACTION",2)=""
^DD(55.1111,"B","DAILY USAGE",6)=""
^DD(55.1111,"B","DATE",1)=""
^DD(55.1111,"B","ERROR",7)=""
^DD(55.1111,"B","LABEL TRACKING",.01)=""
^DD(55.1111,"B","LABELS",4)=""
^DD(55.1111,"B","TRACK",5)=""
^DD(55.1111,"B","USER",3)=""
^DD(55.1111,"GL",0,1,.01)=""
^DD(55.1111,"GL",0,2,1)=""
^DD(55.1111,"GL",0,3,2)=""
^DD(55.1111,"GL",0,4,3)=""
^DD(55.1111,"GL",0,5,4)=""
^DD(55.1111,"GL",0,6,5)=""
^DD(55.1111,"GL",0,7,6)=""
^DD(55.1111,"GL",0,8,7)=""
^DD(55.1111,"GR","PSJI",7,1)=""
^DD(55.1115,0)="PROVIDER COMMENTS SUB-FIELD^^.01^1"
^DD(55.1115,0,"DT")="2910812"
^DD(55.1115,0,"NM","PROVIDER COMMENTS")=""
^DD(55.1115,0,"UP")="55.01"
^DD(55.1115,.01,0)="PROVIDER COMMENTS^W^^0;1^Q"
^DD(55.1115,.01,21,0)="^^3^3^2920219^"
^DD(55.1115,.01,21,1,0)="  This contains any comments about the order that the provider needs"
^DD(55.1115,.01,21,2,0)="to pass along to pharmacy or ward personnel. This field may only be"
^DD(55.1115,.01,21,3,0)="edited using OE/RR options."
^DD(55.1115,.01,23,0)="^^3^3^2920219^"
^DD(55.1115,.01,23,1,0)="  When an order entered through OE/RR is completed by pharmacy, the provider"
^DD(55.1115,.01,23,2,0)="comments for the order are copied into this field in the new active order."
^DD(55.1115,.01,23,3,0)="Provider comments may only be edited through OE/RR."
^DD(55.1115,.01,"DT")="2910812"
^DD(55.1115,"B","PROVIDER COMMENTS",.01)=""
^DD(55.1115,"GL",0,1,.01)=""
^DD(55.1138,0)="LAST RENEW SUB-FIELD^^4^5"
^DD(55.1138,0,"DIK")="PSSJXR"
^DD(55.1138,0,"DT")="3000824"
^DD(55.1138,0,"IX","B",55.1138,.01)=""
^DD(55.1138,0,"NM","LAST RENEW")=""
^DD(55.1138,0,"UP")="55.01"
^DD(55.1138,.01,0)="LAST RENEW^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.1138,.01,1,0)="^.1"
^DD(55.1138,.01,1,1,0)="55.1138^B"
^DD(55.1138,.01,1,1,1)="S ^PS(55,DA(2),""IV"",DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(55.1138,.01,1,1,2)="K ^PS(55,DA(2),""IV"",DA(1),14,""B"",$E(X,1,30),DA)"
^DD(55.1138,.01,3)="Enter the Date/Time this order was last renewed."
^DD(55.1138,.01,21,0)="^^1^1^3000824^"
^DD(55.1138,.01,21,1,0)="This is the date/time the order was renewed."
^DD(55.1138,.01,23,0)="^^1^1^3000824^"
^DD(55.1138,.01,23,1,0)="This is the date/time the order was renewed."
^DD(55.1138,.01,"DT")="3000824"
^DD(55.1138,1,0)="RENEWED BY^P200'^VA(200,^0;2^Q"
^DD(55.1138,1,3)="Enter the name of the person renewing this order."
^DD(55.1138,1,21,0)="^.001^1^1^3000824^^"
^DD(55.1138,1,21,1,0)="This is the name of the person who renewed this order."
^DD(55.1138,1,23,0)="^^1^1^3000824^"
^DD(55.1138,1,23,1,0)="This is the name of the person who renewed this order."
^DD(55.1138,1,"DT")="3000824"
^DD(55.1138,2,0)="PREVIOUS PROVIDER^P200'^VA(200,^0;3^Q"
^DD(55.1138,2,3)="Enter the name of the provider for the order you renewed."
^DD(55.1138,2,21,0)="^.001^1^1^3000824^^"
^DD(55.1138,2,21,1,0)="This is the name of the provider responsible for the prior order."
^DD(55.1138,2,23,0)="^^1^1^3000824^"
^DD(55.1138,2,23,1,0)="This is the name of the provider responsible for the prior order."
^DD(55.1138,2,"DT")="3000824"
^DD(55.1138,3,0)="PREVIOUS STOP DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.1138,3,3)="Enter the Stop Date/Time of the previous order."
^DD(55.1138,3,21,0)="^.001^1^1^3000824^^"
^DD(55.1138,3,21,1,0)="This is the stop date/time of the prior order."
^DD(55.1138,3,23,0)="^^1^1^3000824^"
^DD(55.1138,3,23,1,0)="This is the stop date/time of the prior order."
^DD(55.1138,3,"DT")="3000824"
^DD(55.1138,4,0)="PREVIOUS ORDERS FILE ENTRY^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(55.1138,4,3)="Answer must be 1-30 characters in length."
^DD(55.1138,4,21,0)="^^2^2^3031218^"
^DD(55.1138,4,21,1,0)="When an order is being renewed, this is the pointer value of the"
^DD(55.1138,4,21,2,0)="corresponding entry in the ORDERS file (100), prior to the renewal."
^DD(55.1138,4,"DT")="3031214"
^DD(55.1138,"B","LAST RENEW",.01)=""
^DD(55.1138,"B","PREVIOUS ORDERS FILE ENTRY",4)=""
^DD(55.1138,"B","PREVIOUS PROVIDER",2)=""
^DD(55.1138,"B","PREVIOUS STOP DATE/TIME",3)=""
^DD(55.1138,"B","RENEWED BY",1)=""
^DD(55.1138,"GL",0,1,.01)=""
^DD(55.1138,"GL",0,2,1)=""
^DD(55.1138,"GL",0,3,2)=""
^DD(55.1138,"GL",0,4,3)=""
^DD(55.1138,"GL",0,5,4)=""
^DD(55.1138,"IX",.01)=""
^DD(55.13,0)="ARCHIVE DATE SUB-FIELD^NL^1^2"
^DD(55.13,0,"NM","ARCHIVE DATE")=""
^DD(55.13,0,"UP")="55"
^DD(55.13,.01,0)="ARCHIVE DATE^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S DINUM=X"
^DD(55.13,.01,3)="Enter the date the patient's prescription was archived."
^DD(55.13,.01,20,0)="^.3LA^1^1"
^DD(55.13,.01,20,1,0)="PSO"
^DD(55.13,.01,21,0)="^^1^1^2941208^^^^"
^DD(55.13,.01,21,1,0)="Date patient Rx information was archived."
^DD(55.13,.01,"DT")="2850716"
^DD(55.13,1,0)="RX LIST^55.14^^1;0"
^DD(55.13,1,20,0)="^.3LA^1^1"
^DD(55.13,1,20,1,0)="PSO"
^DD(55.13,"B","ARCHIVE DATE",.01)=""
^DD(55.13,"B","RX LIST",1)=""
^DD(55.13,"GL",0,1,.01)=""
^DD(55.13,"GL",1,0,1)=""
^DD(55.13,"GR","PSO",.01,1)=""
^DD(55.13,"GR","PSO",1,1)=""
^DD(55.13,"SB",55.14,1)=""
^DD(55.14,0)="RX LIST SUB-FIELD^NL^.01^1"
^DD(55.14,0,"NM","RX LIST")=""
^DD(55.14,0,"UP")="55.13"
^DD(55.14,.01,0)="RX LIST^F^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(55.14,.01,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH, ENTER RX #'S SEPARATED BY COMMAS"
^DD(55.14,.01,20,0)="^.3LA^1^1"
^DD(55.14,.01,20,1,0)="PSO"
^DD(55.14,.01,"DT")="2850716"
^DD(55.14,"B","RX LIST",.01)=""
^DD(55.14,"GL",0,1,.01)=""
^DD(55.14,"GR","PSO",.01,1)=""
^DD(55.15,0)="FIELD CHANGED SUB-FIELD^NL^2^3"
^DD(55.15,0,"NM","FIELD CHANGED")=""
^DD(55.15,0,"UP")="55.04"
^DD(55.15,.01,0)="FIELD CHANGED^FI^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(55.15,.01,3)="Answer must be 1-30 characters in length."
^DD(55.15,.01,20,0)="^.3LA^1^1"
^DD(55.15,.01,20,1,0)="PSJI"
^DD(55.15,.01,21,0)="^^1^1^2910306^^^"
^DD(55.15,.01,21,1,0)="  The name of the field changed."
^DD(55.15,.01,"DT")="2860321"
^DD(55.15,1,0)="FROM^FI^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(55.15,1,3)="Answer must be 1-100 characters in length."
^DD(55.15,1,20,0)="^.3LA^1^1"
^DD(55.15,1,20,1,0)="PSJI"
^DD(55.15,1,21,0)="^^1^1^2910306^"
^DD(55.15,1,21,1,0)="  This is the value which the specified field contained before modification."
^DD(55.15,1,"DT")="2860321"
^DD(55.15,2,0)="TO^FI^^0;3^K:$L(X)>100!($L(X)<1) X"
^DD(55.15,2,3)="Answer must be 1-100 characters in length."
^DD(55.15,2,20,0)="^.3LA^1^1"
^DD(55.15,2,20,1,0)="PSJI"
^DD(55.15,2,21,0)="^^1^1^2910306^^"
^DD(55.15,2,21,1,0)="  Value field was changed to."
^DD(55.15,2,"DT")="2860321"
^DD(55.15,"B","FIELD CHANGED",.01)=""
^DD(55.15,"B","FROM",1)=""
^DD(55.15,"B","TO",2)=""
^DD(55.15,"GL",0,1,.01)=""
^DD(55.15,"GL",0,2,1)=""
^DD(55.15,"GL",0,3,2)=""
^DD(55.15,"GR","PSJI",.01,1)=""
^DD(55.15,"GR","PSJI",1,1)=""
^DD(55.15,"GR","PSJI",2,1)=""
^DD(55.514,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(55.514,0,"DT")="3040317"
^DD(55.514,0,"NM","COMMENTS")=""
^DD(55.514,0,"UP")="55.05"
^DD(55.514,.01,0)="COMMENTS^W^^0;1^Q"
^DD(55.514,.01,3)="Comment from CPRS."
^DD(55.514,.01,21,0)="^^1^1^3040317^"
^DD(55.514,.01,21,1,0)="This field will store comments enter when placing the Non-VA med order."
^DD(55.514,.01,"DT")="3040317"
^DD(55.514,"B","COMMENTS",.01)=""
^DD(55.514,"GL",0,1,.01)=""
^DD(55.6114,0)="LAST RENEW SUB-FIELD^^4^5"
^DD(55.6114,0,"DIK")="PSSJXR"
^DD(55.6114,0,"DT")="3000823"
^DD(55.6114,0,"IX","B",55.6114,.01)=""
^DD(55.6114,0,"NM","LAST RENEW")=""
^DD(55.6114,0,"UP")="55.06"
^DD(55.6114,.01,0)="LAST RENEW^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.6114,.01,1,0)="^.1"
^DD(55.6114,.01,1,1,0)="55.6114^B"
^DD(55.6114,.01,1,1,1)="S ^PS(55,DA(2),5,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(55.6114,.01,1,1,2)="K ^PS(55,DA(2),5,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(55.6114,.01,3)="Enter the date/time the order was renewed."
^DD(55.6114,.01,21,0)="^.001^1^1^3000823^^"
^DD(55.6114,.01,21,1,0)="This is the date/time the order was renewed."
^DD(55.6114,.01,23,0)="^^1^1^3000823^"
^DD(55.6114,.01,23,1,0)="This is the date/time the order was renewed."
^DD(55.6114,.01,"DT")="3000823"
^DD(55.6114,1,0)="RENEWED BY^P200'^VA(200,^0;2^Q"
^DD(55.6114,1,3)="Enter the name of the person renewing this order."
^DD(55.6114,1,21,0)="^^1^1^3000823^"
^DD(55.6114,1,21,1,0)="This is the person who renewed the order."
^DD(55.6114,1,23,0)="^^1^1^3000823^"
^DD(55.6114,1,23,1,0)="This is the person who renewed the order."
^DD(55.6114,1,"DT")="3000823"
^DD(55.6114,2,0)="PREVIOUS PROVIDER^P200'^VA(200,^0;3^Q"
^DD(55.6114,2,3)="Enter the name of the provider for the order you renewed."
^DD(55.6114,2,21,0)="^.001^1^1^3000823^^"
^DD(55.6114,2,21,1,0)="This is the name of the provider responsible for the prior order."
^DD(55.6114,2,23,0)="^^1^1^3000823^"
^DD(55.6114,2,23,1,0)="This is the name of the provider responsible for the prior order."
^DD(55.6114,2,"DT")="3000823"
^DD(55.6114,3,0)="PREVIOUS STOP DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(55.6114,3,3)="Enter the stop date/time of the previous order."
^DD(55.6114,3,21,0)="^.001^1^1^3000823^^"
^DD(55.6114,3,21,1,0)="This is the stop date/time of the prior order."
^DD(55.6114,3,23,0)="^^1^1^3000823^"
^DD(55.6114,3,23,1,0)="This is the stop date/time of the prior order."
^DD(55.6114,3,"DT")="3000823"
^DD(55.6114,4,0)="PREVIOUS ORDERS FILE ENTRY^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(55.6114,4,3)="Answer must be 1-30 characters in length."
^DD(55.6114,4,21,0)="^.001^2^2^3031217^^"
^DD(55.6114,4,21,1,0)="When an order is being renewed, this is the pointer value of the"
^DD(55.6114,4,21,2,0)="corresponding entry in the ORDERS file (100), prior to the renewal."
^DD(55.6114,4,"DT")="3031214"
^DD(55.6114,"B","LAST RENEW",.01)=""
^DD(55.6114,"B","PREVIOUS ORDERS FILE ENTRY",4)=""
^DD(55.6114,"B","PREVIOUS PROVIDER",2)=""
^DD(55.6114,"B","PREVIOUS STOP DATE/TIME",3)=""
^DD(55.6114,"B","RENEWED BY",1)=""
^DD(55.6114,"GL",0,1,.01)=""
^DD(55.6114,"GL",0,2,1)=""
^DD(55.6114,"GL",0,3,2)=""
^DD(55.6114,"GL",0,4,3)=""
^DD(55.6114,"GL",0,5,4)=""
^DD(55.6114,"IX",.01)=""
^DD(55.95,0)="FIELD^^2^3"
^DD(55.95,0,"DDA")="N"
^DD(55.95,0,"IX","B",55.95,.01)=""
^DD(55.95,0,"IX","C",55.95,1)=""
^DD(55.95,0,"NM","DRUG MANUFACTURER")=""
^DD(55.95,0,"PT",50.67,3)=""
^DD(55.95,0,"VR")="4.0"
^DD(55.95,0,"VRPK")="PSN"
^DD(55.95,.01,0)="NAME^RF^^0;1^K:$L(X)>25!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(55.95,.01,1,0)="^.1"
^DD(55.95,.01,1,1,0)="55.95^B"
^DD(55.95,.01,1,1,1)="S ^PS(55.95,""B"",$E(X,1,30),DA)="""""
^DD(55.95,.01,1,1,2)="K ^PS(55.95,""B"",$E(X,1,30),DA)"
^DD(55.95,.01,3)="Answer must be 2-25 characters in length."
^DD(55.95,.01,8.5)="^"
^DD(55.95,.01,9)="^"
^DD(55.95,.01,21,0)="^^1^1^2910130^^^^"
^DD(55.95,.01,21,1,0)="This is the manufacturer name."
^DD(55.95,.01,"DT")="2880328"
^DD(55.95,1,0)="NDC IDENTIFIER^F^^0;2^K:$L(X)>6!($L(X)<1) X"
^DD(55.95,1,1,0)="^.1"
^DD(55.95,1,1,1,0)="55.95^C"
^DD(55.95,1,1,1,1)="S ^PS(55.95,""C"",$E(X,1,30),DA)="""""
^DD(55.95,1,1,1,2)="K ^PS(55.95,""C"",$E(X,1,30),DA)"
^DD(55.95,1,3)="Answer must be 1-6 characters in length."
^DD(55.95,1,8.5)="^"
^DD(55.95,1,9)="^"
^DD(55.95,1,21,0)="^^1^1^2910130^"
^DD(55.95,1,21,1,0)="This is the six digit code for the manufacturer."
^DD(55.95,1,"DT")="2851206"
^DD(55.95,2,0)="INACTIVATION DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(55.95,2,21,0)="^^1^1^2981101^"
^DD(55.95,2,21,1,0)="This is the date when this drug manufacturer was made inactive."
^DD(55.95,2,"DT")="2981101"
^DD(55.95,"B","INACTIVATION DATE",2)=""
^DD(55.95,"B","NAME",.01)=""
^DD(55.95,"B","NDC IDENTIFIER",1)=""
^DD(55.95,"GL",0,1,.01)=""
^DD(55.95,"GL",0,2,1)=""
^DD(55.95,"GL",0,3,2)=""
^DD(55.95,"IX",.01)=""
^DD(55.95,"IX",1)=""
^DD(55.95,"RQ",.01)=""
^DD(56,0)="FIELD^^7^8"
^DD(56,0,"DDA")="N"
^DD(56,0,"DT")="2981015"
^DD(56,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PS(50.416,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50.416,.01,0),U,2) D Y^DIQ:Y]"""" W !,""Primary Ingre.: ""_Y S Y=%I K %I"
^DD(56,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PS(50.416,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50.416,.01,0),U,2) D Y^DIQ:Y]"""" W ""and  "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(56,0,"ID",3)="W ""Severity: "",@(""$P($P($C(59)_$S($D(^DD(56,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(56,0,"IX","AE1",56,1)=""
^DD(56,0,"IX","AE2",56,2)=""
^DD(56,0,"IX","AI1",56,1)=""
^DD(56,0,"IX","AI2",56,2)=""
^DD(56,0,"IX","APD",56,1)=""
^DD(56,0,"IX","APE",56,2)=""
^DD(56,0,"IX","B",56,.01)=""
^DD(56,0,"IX","C",56,.01)=""
^DD(56,0,"NM","DRUG INTERACTION")=""
^DD(56,0,"VR")="4.0"
^DD(56,0,"VRPK")="PSN"
^DD(56,.01,0)="NAME^RFXa^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(56,.01,1,0)="^.1^^-1"
^DD(56,.01,1,1,0)="56^B"
^DD(56,.01,1,1,1)="S ^PS(56,""B"",$E(X,1,30),DA)="""""
^DD(56,.01,1,1,2)="K ^PS(56,""B"",$E(X,1,30),DA)"
^DD(56,.01,1,3,0)="56^C^KWIC"
^DD(56,.01,1,3,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""/""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^PS(56,""C"",I,DA)="""""
^DD(56,.01,1,3,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""/""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^PS(56,""C"",I,DA)"
^DD(56,.01,1,3,3)="This cross-reference should not be deleted"
^DD(56,.01,1,3,"%D",0)="^^2^2^2930323^"
^DD(56,.01,1,3,"%D",1,0)="This cross-reference is used as a key word lookup to allow lookup"
^DD(56,.01,1,3,"%D",2,0)="based on either of the two ingredients selected."
^DD(56,.01,1,3,"DT")="2930323"
^DD(56,.01,3)="Answer must be 3-50 characters in length."
^DD(56,.01,20,0)="^.3LA^1^1"
^DD(56,.01,20,1,0)="PSO"
^DD(56,.01,21,0)="^^1^1^2980710^^^^"
^DD(56,.01,21,1,0)="This field is used to store the name of the drug interaction."
^DD(56,.01,23,0)="^^1^1^2980710^^^^"
^DD(56,.01,23,1,0)="Name of interaction."
^DD(56,.01,"AUDIT")="y"
^DD(56,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""DELETIONS ARE NOT ALLOWED"")"
^DD(56,.01,"DT")="2980710"
^DD(56,.01,"LAYGO",.01,0)="N ZZZ S ZZZ=$D(PSSDF)!$D(PSNDF) D:'ZZZ EN^DDIOL(""ADDITIONS MUST BE MADE THROUGH STANDARD PDM OPTIONS"") I ZZZ"
^DD(56,1,0)="INGREDIENT 1^R*P50.416'Xa^PS(50.416,^0;2^S DIC(""S"")=""I '$P(^PS(50.416,+Y,0),""""^"""",2),+Y'=$P(^PS(56,DA,0),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(56,1,1,0)="^.1"
^DD(56,1,1,1,0)="56^AI1"
^DD(56,1,1,1,1)="S ^PS(56,""AI1"",$E(X,1,30),DA)="""""
^DD(56,1,1,1,2)="K ^PS(56,""AI1"",$E(X,1,30),DA)"
^DD(56,1,1,1,3)="Do not delete  !"
^DD(56,1,1,1,"%D",0)="^^1^1^2930319^"
^DD(56,1,1,1,"%D",1,0)="This xref will be used to track changes to the Drug Ingredient file (#50.416)."
^DD(56,1,1,1,"DT")="2930319"
^DD(56,1,1,2,0)="56^APD^MUMPS"
^DD(56,1,1,2,1)="S DEL=0 D:$P(^PS(56,DA,0),""^"",3) ^PSNDDI1 K DEL"
^DD(56,1,1,2,2)="S DEL=1 D:$P(^PS(56,DA,0),""^"",3) ^PSNDDI1 K DEL"
^DD(56,1,1,2,3)="This XREF should not be deleted."
^DD(56,1,1,2,"%D",0)="^^4^4^2981014^^^^"
^DD(56,1,1,2,"%D",1,0)="This XREF is used to index file by drug adverse reactions."
^DD(56,1,1,2,"%D",2,0)="This XREF is executed if ingredient 2 is filled in."
^DD(56,1,1,2,"%D",3,0)="In the form of: ^PS(56,""APD"",Drug Indentifier(Ingredient 1),Drug Identifier"
^DD(56,1,1,2,"%D",4,0)="(Ingredient 2,DA)"
^DD(56,1,1,2,"DT")="2920715"
^DD(56,1,1,3,0)="56^AE1^MUMPS"
^DD(56,1,1,3,1)="N ZZZ S ZZZ=$P(^PS(56,DA,0),""^"",3) I ZZZ S ^PS(56,""AE"",X,ZZZ,DA)="""",^PS(56,""AE"",ZZZ,X,DA)="""""
^DD(56,1,1,3,2)="N ZZZ S ZZZ=$P(^PS(56,DA,0),""^"",3) I ZZZ K ^PS(56,""AE"",X,ZZZ,DA),^PS(56,""AE"",ZZZ,X,DA)"
^DD(56,1,1,3,"%D",0)="^^2^2^2981014^"
^DD(56,1,1,3,"%D",1,0)="Cross-reference checks for duplicate ingredient combinations."
^DD(56,1,1,3,"%D",2,0)="In the form of: ^PS(56,""AE"",Ingredient 1,Ingredient 2,DA)"
^DD(56,1,1,3,"DT")="2980710"
^DD(56,1,3)="Enter name of primary ingredient."
^DD(56,1,12)="Only primary ingredients are selected."
^DD(56,1,12.1)="S DIC(""S"")=""I '$P(^PS(50.416,+Y,0),""""^"""",2),+Y'=$P(^PS(56,DA,0),""""^"""",3)"""
^DD(56,1,21,0)="^^2^2^2960709^^^^"
^DD(56,1,21,1,0)="This field is used to stored the first ingredient of adverse drug/drug"
^DD(56,1,21,2,0)="reactions."
^DD(56,1,23,0)="^^1^1^2960709^^^^"
^DD(56,1,23,1,0)="Pointer to file #50.416."
^DD(56,1,"AUDIT")="y"
^DD(56,1,"DT")="2980710"
^DD(56,2,0)="INGREDIENT 2^R*P50.416'Xa^PS(50.416,^0;3^S DIC(""S"")=""I '$P(^PS(50.416,+Y,0),""""^"""",2),+Y'=$P(^PS(56,DA,0),""""^"""",2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(56,2,1,0)="^.1"
^DD(56,2,1,1,0)="56^AI2"
^DD(56,2,1,1,1)="S ^PS(56,""AI2"",$E(X,1,30),DA)="""""
^DD(56,2,1,1,2)="K ^PS(56,""AI2"",$E(X,1,30),DA)"
^DD(56,2,1,1,3)="Do not delete  !"
^DD(56,2,1,1,"%D",0)="^^1^1^2930319^"
^DD(56,2,1,1,"%D",1,0)="This xref is used to track changes to the Drug Ingredient file (#50.416)."
^DD(56,2,1,1,"DT")="2930319"
^DD(56,2,1,2,0)="56^APE^MUMPS"
^DD(56,2,1,2,1)="S DEL=0 D:$P(^PS(56,DA,0),""^"",2) ^PSNDDI1 K DEL"
^DD(56,2,1,2,2)="S DEL=1 D:$P(^PS(56,DA,0),""^"",2) ^PSNDDI1 K DEL"
^DD(56,2,1,2,3)="This XREF should not be deleted."
^DD(56,2,1,2,"%D",0)="^^4^4^2981014^^^^"
^DD(56,2,1,2,"%D",1,0)="This XREF is used to index the file by the drug adverse reactions."
^DD(56,2,1,2,"%D",2,0)="This XREF is only executed if ingredient 1 field is filled in."
^DD(56,2,1,2,"%D",3,0)="In the form of: ^PS(56,""APD"",Drug Identifier(Ingredient 2),Drug Identifier"
^DD(56,2,1,2,"%D",4,0)="(Ingredient 1,DA)"
^DD(56,2,1,2,"DT")="2930322"
^DD(56,2,1,3,0)="56^AE2^MUMPS"
^DD(56,2,1,3,1)="N ZZZ S ZZZ=$P(^PS(56,DA,0),""^"",2) I ZZZ S ^PS(56,""AE"",X,ZZZ,DA)="""",^PS(56,""AE"",ZZZ,X,DA)="""""
^DD(56,2,1,3,2)="N ZZZ S ZZZ=$P(^PS(56,DA,0),""^"",2) I ZZZ K ^PS(56,""AE"",X,ZZZ,DA),^PS(56,""AE"",ZZZ,X,DA)"
^DD(56,2,1,3,"%D",0)="^^2^2^2981014^"
^DD(56,2,1,3,"%D",1,0)="Cross-reference checks for duplicate ingredient combinations."
^DD(56,2,1,3,"%D",2,0)="In the form of: ^PS(56,""AE"",Ingredient 2,Ingredient 1,DA)"
^DD(56,2,1,3,"DT")="2980710"
^DD(56,2,3)="Enter name of second ingredient for adverse drug reaction."
^DD(56,2,12)="Only primary ingredients are to be selected."
^DD(56,2,12.1)="S DIC(""S"")=""I '$P(^PS(50.416,+Y,0),""""^"""",2),+Y'=$P(^PS(56,DA,0),""""^"""",2)"""
^DD(56,2,21,0)="^^3^3^2920915^^^"
^DD(56,2,21,1,0)="This field is used to store the name of the second ingredient for"
^DD(56,2,21,2,0)="drug/drug adverse reaction.  This ingredient cannot be the same as"
^DD(56,2,21,3,0)="the first ingredient."
^DD(56,2,23,0)="^^1^1^2920915^^^"
^DD(56,2,23,1,0)="Pointer to file #50.416."
^DD(56,2,"AUDIT")="y"
^DD(56,2,"DT")="2980710"
^DD(56,3,0)="SEVERITY^RSa^1:CRITICAL;2:SIGNIFICANT;^0;4^Q"
^DD(56,3,3)="Enter severity of drug/drug interaction/"
^DD(56,3,8.5)="^"
^DD(56,3,9)="^"
^DD(56,3,21,0)="^^1^1^2981013^^^"
^DD(56,3,21,1,0)="This field is used to indicate the type of reaction from the interaction."
^DD(56,3,23,0)="^^1^1^2981013^^^"
^DD(56,3,23,1,0)="Set of Codes."
^DD(56,3,"AUDIT")="y"
^DD(56,3,"DT")="2920319"
^DD(56,4,0)="NATIONALLY ENTERED^Sa^1:YES;^0;5^Q"
^DD(56,4,3)=""
^DD(56,4,21,0)="^^1^1^2920915^^"
^DD(56,4,21,1,0)="This field is used to indicate if this data was sent out by the ISC."
^DD(56,4,23,0)="^^1^1^2920915^"
^DD(56,4,23,1,0)="set of codes"
^DD(56,4,"AUDIT")="y"
^DD(56,4,"DT")="2920319"
^DD(56,5,0)="TOTAL INDEXES^NJ5,0XIa^^0;6^K X"
^DD(56,5,3)="Data is not entered using File Manager."
^DD(56,5,10)="Data comes from index routine."
^DD(56,5,20,0)="^.3LA^1^1"
^DD(56,5,20,1,0)="PSO"
^DD(56,5,21,0)="^^2^2^2960709^^^"
^DD(56,5,21,1,0)="This field is used to store the total number of interaction for an entry"
^DD(56,5,21,2,0)="into the file.  This data is not entered directly through FM."
^DD(56,5,23,0)="^^1^1^2960709^^^"
^DD(56,5,23,1,0)="Data is stuffed."
^DD(56,5,"AUDIT")="y"
^DD(56,5,"DT")="2920423"
^DD(56,6,0)="LOCALLY EDITED^S^1:YES;^L;1^Q"
^DD(56,6,8.5)="^"
^DD(56,6,9)="^"
^DD(56,6,21,0)="^^4^4^2980629^"
^DD(56,6,21,1,0)="This field is set if the severity of this interaction has been edited"
^DD(56,6,21,2,0)="locally.  This will allow a site to change the severity of a nationally"
^DD(56,6,21,3,0)="entered interaction from significant to critical and later change it"
^DD(56,6,21,4,0)="back.  Nationally entered critical interactions can not be edited."
^DD(56,6,"DT")="2980629"
^DD(56,7,0)="INACTIVATION DATE^Da^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(56,7,21,0)="^^1^1^2981015^"
^DD(56,7,21,1,0)="This is the date when this interaction became inactive."
^DD(56,7,"AUDIT")="y"
^DD(56,7,"DT")="2981015"
^DD(56,"AUDIT",.01)=""
^DD(56,"AUDIT",1)=""
^DD(56,"AUDIT",2)=""
^DD(56,"AUDIT",3)=""
^DD(56,"AUDIT",4)=""
^DD(56,"AUDIT",5)=""
^DD(56,"AUDIT",7)=""
^DD(56,"B","INACTIVATION DATE",7)=""
^DD(56,"B","INGREDIENT 1",1)=""
^DD(56,"B","INGREDIENT 2",2)=""
^DD(56,"B","LOCALLY EDITED",6)=""
^DD(56,"B","NAME",.01)=""
^DD(56,"B","NATIONALLY ENTERED",4)=""
^DD(56,"B","SEVERITY",3)=""
^DD(56,"B","TOTAL INDEXES",5)=""
^DD(56,"GL",0,1,.01)=""
^DD(56,"GL",0,2,1)=""
^DD(56,"GL",0,3,2)=""
^DD(56,"GL",0,4,3)=""
^DD(56,"GL",0,5,4)=""
^DD(56,"GL",0,6,5)=""
^DD(56,"GL",0,7,7)=""
^DD(56,"GL","L",1,6)=""
^DD(56,"GR","PSO",.01,1)=""
^DD(56,"GR","PSO",5,1)=""
^DD(56,"IX",.01)=""
^DD(56,"IX",1)=""
^DD(56,"IX",2)=""
^DD(56,"RQ",.01)=""
^DD(56,"RQ",1)=""
^DD(56,"RQ",2)=""
^DD(56,"RQ",3)=""
^DD(57.1,0)="FIELD^^11^12"
^DD(57.1,0,"DDA")="N"
^DD(57.1,0,"DT")="2941213"
^DD(57.1,0,"IX","B",57.1,.01)=""
^DD(57.1,0,"IX","C",57.1,2)=""
^DD(57.1,0,"NM","PHARMACY QUICK ORDER")=""
^DD(57.1,0,"PT",101,6)=""
^DD(57.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(57.1,.01,1,0)="^.1"
^DD(57.1,.01,1,1,0)="57.1^B"
^DD(57.1,.01,1,1,1)="S ^PS(57.1,""B"",$E(X,1,30),DA)="""""
^DD(57.1,.01,1,1,2)="K ^PS(57.1,""B"",$E(X,1,30),DA)"
^DD(57.1,.01,3)="Answer must be 3-30 characters in length."
^DD(57.1,.01,20,0)="^.3LA^1^1"
^DD(57.1,.01,20,1,0)="PSJ"
^DD(57.1,.01,21,0)="^^1^1^2940509^^^^"
^DD(57.1,.01,21,1,0)=" The name of the quick order."
^DD(57.1,.01,23,0)="2^^5^5^2940509^^^^"
^DD(57.1,.01,23,1,0)="  The name of the quick order.  When a protocol is created for the quick "
^DD(57.1,.01,23,2,0)="order, the quick order name is used as the default for the display name "
^DD(57.1,.01,23,3,0)="of the quick order. The name of the protocol created will be in the form "
^DD(57.1,.01,23,4,0)="""PSJQ""_internal entry no. of the quick order in the quick order file_1st "
^DD(57.1,.01,23,5,0)="10 characters of the quick order name."
^DD(57.1,.01,"DT")="2911231"
^DD(57.1,.01,"LAYGO",1,0)="W:$D(^PS(57.1,""B"",X)) *7,!!,""DUPLICATE QUICK ORDER NAMES ARE NOT ALLOWED!"" I '$D(^(X))"
^DD(57.1,1,0)="PROTOCOL^P101'^ORD(101,^0;2^Q"
^DD(57.1,1,21,0)="^^3^3^2920219^"
^DD(57.1,1,21,1,0)="  This is the protocol that has been created to allow selection of this"
^DD(57.1,1,21,2,0)="quick order. A quick order may not be modified if a protocol has been"
^DD(57.1,1,21,3,0)="assigned to it."
^DD(57.1,1,"DT")="2920115"
^DD(57.1,2,0)="TYPE^RS^1:IV FLUID;2:INPATIENT MEDICATION;^0;3^Q"
^DD(57.1,2,1,0)="^.1"
^DD(57.1,2,1,1,0)="57.1^C"
^DD(57.1,2,1,1,1)="S ^PS(57.1,""C"",$E(X,1,30),DA)="""""
^DD(57.1,2,1,1,2)="K ^PS(57.1,""C"",$E(X,1,30),DA)"
^DD(57.1,2,1,1,"DT")="2920115"
^DD(57.1,2,3)="Enter the type of Inpatient order (IV Fluid or Inpatient Med) this quick order is to create."
^DD(57.1,2,20,0)="^.3LA^1^1"
^DD(57.1,2,20,1,0)="PSJ"
^DD(57.1,2,21,0)="^^2^2^2930924^^^^"
^DD(57.1,2,21,1,0)="This is the type of order (IV Fluid or Inpatient Medication) that will"
^DD(57.1,2,21,2,0)="be created when the quick order is used."
^DD(57.1,2,23,0)="^^3^3^2930924^^^^"
^DD(57.1,2,23,1,0)="  This will determine the type of the order created when the quick order"
^DD(57.1,2,23,2,0)="is used. The fields to be filled in by the quick order will be determined"
^DD(57.1,2,23,3,0)="by type."
^DD(57.1,2,"DT")="2920115"
^DD(57.1,3,0)="PRIMARY DRUG^*P50.3'^PS(50.3,^1;1^S DIC(""S"")=""S PSJQSET=3 I $$DRGSC^PSIVUTL(Y,PSJQSET)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(57.1,3,3)="Enter the primary drug to be used with this quick order."
^DD(57.1,3,12)="Only allow selection of active primary drugs specified for use by the UD or IV packages in the APPLICATION field of the PRIMARY DRUG file."
^DD(57.1,3,12.1)="S DIC(""S"")=""S PSJQSET=3 I $$DRGSC^PSIVUTL(Y,PSJQSET)"""
^DD(57.1,3,20,0)="^.3LA^1^1"
^DD(57.1,3,20,1,0)="PSJ"
^DD(57.1,3,21,0)="^^3^3^2940621^^"
^DD(57.1,3,21,1,0)="  This is the name of a drug used by this site. Primary drug is used to"
^DD(57.1,3,21,2,0)="allow order entry to be easier for no-pharmacy personnel and for"
^DD(57.1,3,21,3,0)="display."
^DD(57.1,3,23,0)="^^3^3^2920511^"
^DD(57.1,3,23,1,0)="  This is used in order entry by non-pharmacy personnel, for display"
^DD(57.1,3,23,2,0)="purposes, and by other packages, when it is inappropriate for the"
^DD(57.1,3,23,3,0)="dosage of the order to be part of the drug name."
^DD(57.1,3,"DT")="2920121"
^DD(57.1,4,0)="MED ROUTE^*P51.2'^PS(51.2,^1;2^S DIC(""S"")=""I $P(^PS(51.2,+Y,0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(57.1,4,3)="Enter how this medication will be administered to the patient."
^DD(57.1,4,12)="Only allow Inpatient Pharmacy med routes to be entered."
^DD(57.1,4,12.1)="S DIC(""S"")=""I $P(^PS(51.2,+Y,0),U,4)"""
^DD(57.1,4,20,0)="^.3LA^1^1"
^DD(57.1,4,20,1,0)="PSJ"
^DD(57.1,4,21,0)="^^1^1^2920108^"
^DD(57.1,4,21,1,0)="  This is the route of administration for this medication."
^DD(57.1,4,23,0)="^^3^3^2920108^"
^DD(57.1,4,23,1,0)="  If a corresponding abbreviation is found for this route in the"
^DD(57.1,4,23,2,0)="MEDICATION ROUTES file, this package will print that abbreviation"
^DD(57.1,4,23,3,0)="on it's reports."
^DD(57.1,4,"DT")="2920108"
^DD(57.1,5,0)="SCHEDULE^FX^^1;3^D EN^PSGS0"
^DD(57.1,5,3)="Answer must be 1-70 characters in length and may not contain any spaces."
^DD(57.1,5,4)="D ENSH3^PSGSH"
^DD(57.1,5,20,0)="^.3LA^1^1"
^DD(57.1,5,20,1,0)="PSJ"
^DD(57.1,5,21,0)="^^14^14^2920108^"
^DD(57.1,5,21,1,0)="  This is the frequency (ONLY) with which the doses are to be administered."
^DD(57.1,5,21,2,0)="Several forms of entry are acceptable, such as Q6H, 09-12-15, STAT, QOD,"
^DD(57.1,5,21,3,0)="and MO-WE-FR@AD, where MO-WE-FR are days of the weeks, and AD is the admin."
^DD(57.1,5,21,4,0)="times. The schedule will show on the MAR, labels, etc. No more than ONE"
^DD(57.1,5,21,5,0)="space (Q3H 4 or Q8H PRN) in the schedule is acceptable. If the letters PRN"
^DD(57.1,5,21,6,0)="are found as part of the schedule, no admin. times will print on the MAR or"
^DD(57.1,5,21,7,0)="labels, and the PICK LIST will always show a count of zero (0)."
^DD(57.1,5,21,8,0)=" "
^DD(57.1,5,21,9,0)="  Avoid using notation such as W/F (with food) or WM (with meals) in the"
^DD(57.1,5,21,10,0)="schedule as it may cause erroneous calculations. That information should"
^DD(57.1,5,21,11,0)="be entered in the SPECIAL INSTRUCTIONS field. When using the MO-WE-FR@AD"
^DD(57.1,5,21,12,0)="schedule, please remember that this type of schedule will no work properly"
^DD(57.1,5,21,13,0)="without the ""@"" character and at least one admin. time, and that at least"
^DD(57.1,5,21,14,0)="the first two letters of each weekday entered is needed."
^DD(57.1,5,"DT")="2920108"
^DD(57.1,6,0)="PROVIDER COMMENTS^57.16^^2;0"
^DD(57.1,6,20,0)="^.3LA^1^1"
^DD(57.1,6,20,1,0)="PSJ"
^DD(57.1,6,21,0)="^^4^4^2940803^^^"
^DD(57.1,6,21,1,0)="  "
^DD(57.1,6,21,2,0)="  This is used to allow provider comments to be ""pre-entered"" for the"
^DD(57.1,6,21,3,0)="quick order. Text entered here will be included in the order created"
^DD(57.1,6,21,4,0)="and may be edited before the order is accepted."
^DD(57.1,7,0)="ADDITIVE^57.17PA^^3;0"
^DD(57.1,7,12)="Choose an additive or additive's synonym."
^DD(57.1,7,12.1)="S DIC(""S"")=""I $P(^(0),U,13) ""_$$IVDRGSC^PSIVUTL"
^DD(57.1,7,20,0)="^.3LA^1^1"
^DD(57.1,7,20,1,0)="PSJ"
^DD(57.1,7,21,0)="^^2^2^2941214^^^"
^DD(57.1,7,21,1,0)=" This is the additive(s) to be included in the IV order. This is a pointer"
^DD(57.1,7,21,2,0)="to the IV ADDITIVES file (52.6)."
^DD(57.1,8,0)="SOLUTION^57.18PA^^4;0"
^DD(57.1,8,12)="Only active solutions marked for use in IV Fluid order entry may be selected."
^DD(57.1,8,12.1)="S DIC(""S"")=""I $P(^(0),U,13) ""_$$IVDRGSC^PSIVUTL"
^DD(57.1,8,21,0)="^^1^1^2941213^^"
^DD(57.1,8,21,1,0)="The solution to be included in this IV order."
^DD(57.1,9,0)="DOSAGE ORDERED^FX^^1;4^I $S(X?.E1C.E:1,$L(X)>20:1,X="""":1,X[""^"":1,X?1.P:1,1:X=+X) K X"
^DD(57.1,9,3)="Enter the amount of the drug the patient is to receive as a dose for this order, using 1-20 characters.  This is an amount, such as '20MG', and NOT the number of tablets."
^DD(57.1,9,21,0)="^^1^1^2940509^^"
^DD(57.1,9,21,1,0)="This is the amount of the medication the patient is to receive as one dose for this order.  This should be an amount with a unit of measure, such '500MG' or '50CC'.  THIS SHOULD NOT BE THE NUMBER OF TABLETS, ETC."
^DD(57.1,9,"DT")="2940509"
^DD(57.1,10,0)="INFUSION RATE^FX^^1;5^D 59^PSIVUTL"
^DD(57.1,10,3)="Answer must be 1-30 characters in length."
^DD(57.1,10,21,0)="^^13^13^2931007^^^^"
^DD(57.1,10,21,1,0)="  Enter the rate at which the infusion is to take place.  This value, in "
^DD(57.1,10,21,2,0)="conjunction with the total volume of the hyperal or the admixture type, is "
^DD(57.1,10,21,3,0)="used to determine the time covered by one bag; hence the system can"
^DD(57.1,10,21,4,0)="predict the bags needed during a specified time of coverage. This field"
^DD(57.1,10,21,5,0)="is free text for IVPB's.  For LVP's you must enter a number that will"
^DD(57.1,10,21,6,0)="represent the infusion rate.  You may also specify the # of bags per"
^DD(57.1,10,21,7,0)="day that will be needed."
^DD(57.1,10,21,8,0)="     Example:"
^DD(57.1,10,21,9,0)="       125 = 125 ml/hr (IV system will calculate bags needed per day)"
^DD(57.1,10,21,10,0)="     125@2 = 125 ml/hr with 2 labels per day"
^DD(57.1,10,21,11,0)=" TITRATE@1 = TITRATE with 1 label per day"
^DD(57.1,10,21,12,0)=" The format of this field is either a number only or"
^DD(57.1,10,21,13,0)=" [FREE TEXT@NUMBER OF LABELS PER DAY]."
^DD(57.1,10,"DT")="2931007"
^DD(57.1,11,0)="PROVIDER COMMENTS PROMPT^S^1:DON'T PROMPT FOR PROVIDER COMMENTS;^1;6^Q"
^DD(57.1,11,3)="Enter ""1"" to eliminate the PROVIDER COMMENTS prompt when using this quick order. If no value is entered the prompt will be issued and the Quick Order Report will show the field as ""YES""."
^DD(57.1,11,21,0)="^^1^1^2940726^^^^"
^DD(57.1,11,21,1,0)="This field will indicate whether to prompt for the provider comments during the order entry process of this quick order."
^DD(57.1,11,"DT")="2931104"
^DD(57.1,"B","ADDITIVE",7)=""
^DD(57.1,"B","DOSAGE ORDERED",9)=""
^DD(57.1,"B","INFUSION RATE",10)=""
^DD(57.1,"B","MED ROUTE",4)=""
^DD(57.1,"B","NAME",.01)=""
^DD(57.1,"B","PRIMARY DRUG",3)=""
^DD(57.1,"B","PROTOCOL",1)=""
^DD(57.1,"B","PROVIDER COMMENTS",6)=""
^DD(57.1,"B","PROVIDER COMMENTS PROMPT",11)=""
^DD(57.1,"B","SCHEDULE",5)=""
^DD(57.1,"B","SOLUTION",8)=""
^DD(57.1,"B","TYPE",2)=""
^DD(57.1,"GL",0,1,.01)=""
^DD(57.1,"GL",0,2,1)=""
^DD(57.1,"GL",0,3,2)=""
^DD(57.1,"GL",1,1,3)=""
^DD(57.1,"GL",1,2,4)=""
^DD(57.1,"GL",1,3,5)=""
^DD(57.1,"GL",1,4,9)=""
^DD(57.1,"GL",1,5,10)=""
^DD(57.1,"GL",1,6,11)=""
^DD(57.1,"GL",2,0,6)=""
^DD(57.1,"GL",3,0,7)=""
^DD(57.1,"GL",4,0,8)=""
^DD(57.1,"GR","PSJ",.01,1)=""
^DD(57.1,"GR","PSJ",2,1)=""
^DD(57.1,"GR","PSJ",3,1)=""
^DD(57.1,"GR","PSJ",4,1)=""
^DD(57.1,"GR","PSJ",5,1)=""
^DD(57.1,"GR","PSJ",6,1)=""
^DD(57.1,"GR","PSJ",7,1)=""
^DD(57.1,"IX",.01)=""
^DD(57.1,"IX",2)=""
^DD(57.1,"RQ",.01)=""
^DD(57.1,"RQ",2)=""
^DD(57.1,"SB",57.16,6)=""
^DD(57.1,"SB",57.17,7)=""
^DD(57.1,"SB",57.18,8)=""
^DD(57.16,0)="PROVIDER COMMENTS SUB-FIELD^^.01^1"
^DD(57.16,0,"DT")="2920108"
^DD(57.16,0,"NM","PROVIDER COMMENTS")=""
^DD(57.16,0,"UP")="57.1"
^DD(57.16,.01,0)="PROVIDER COMMENTS^W^^0;1^Q"
^DD(57.16,.01,20,0)="^.3LA^1^1"
^DD(57.16,.01,20,1,0)="PSJ"
^DD(57.16,.01,21,0)="^^3^3^2940803^^^^"
^DD(57.16,.01,21,1,0)="  This can be used by Pharmacy to include ""standard"" provider comments"
^DD(57.16,.01,21,2,0)="for a quick order. Text entered here may be edited by the clinician "
^DD(57.16,.01,21,3,0)="before accepting the order."
^DD(57.16,.01,"DT")="2920108"
^DD(57.16,"B","PROVIDER COMMENTS",.01)=""
^DD(57.16,"GL",0,1,.01)=""
^DD(57.16,"GR","PSJ",.01,1)=""
^DD(57.17,0)="ADDITIVE SUB-FIELD^^1^2"
^DD(57.17,0,"DT")="2941213"
^DD(57.17,0,"IX","B",57.17,.01)=""
^DD(57.17,0,"NM","ADDITIVE")=""
^DD(57.17,0,"UP")="57.1"
^DD(57.17,.01,0)="ADDITIVE^M*P52.6'^PS(52.6,^0;1^S DIC(""S"")=""I $P(^(0),U,13) ""_$$IVDRGSC^PSIVUTL D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(57.17,.01,1,0)="^.1"
^DD(57.17,.01,1,1,0)="57.17^B"
^DD(57.17,.01,1,1,1)="S ^PS(57.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(57.17,.01,1,1,2)="K ^PS(57.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(57.17,.01,12)="Only allow additives marked for use in IV Fluid order entry to be selected."
^DD(57.17,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,13) ""_$$IVDRGSC^PSIVUTL"
^DD(57.17,.01,20,0)="^.3LA^1^1"
^DD(57.17,.01,20,1,0)="PSJ"
^DD(57.17,.01,21,0)="^^2^2^2941213^^"
^DD(57.17,.01,21,1,0)="  This is the additive which was selected as part of the IV order. This"
^DD(57.17,.01,21,2,0)="entry is a pointer to the IV ADDITIVES file (52.6)."
^DD(57.17,.01,"DT")="2941213"
^DD(57.17,1,0)="STRENGTH^RFX^^0;2^K:X'?.6N.""."".8N!(X<0) X I $D(X) S X=X_"" ""_$$ENU^PSIVUTL($P(^PS(57.1,DA(1),3,DA,0),U)) W "" "",$P(X,"" "",2)"
^DD(57.17,1,3)=""
^DD(57.17,1,4)="D:X=""??"" ENTDRG^PSIVDRG W !,""Enter the strength in "",$$ENU^PSIVUTL($P(^PS(57.1,DA(1),3,DA,0),U)) W "". Enter only a number."",!"
^DD(57.17,1,20,0)="^.3LA^2^2"
^DD(57.17,1,20,1,0)="psj"
^DD(57.17,1,20,2,0)="PSJ"
^DD(57.17,1,21,0)="^^6^6^2920108^"
^DD(57.17,1,21,1,0)="  This is the amount of an additive that is used in the manufacturing of"
^DD(57.17,1,21,2,0)="the IV order. NOTE! You will be expected to use the strength units that"
^DD(57.17,1,21,3,0)="have been previously defined within the IV ADDITIVES file (52.6) for each"
^DD(57.17,1,21,4,0)="additive. For example, if the additive file expects AMPICILLIN to be"
^DD(57.17,1,21,5,0)="dispensed in grams, it would be incorrect for you to enter ""500"" for a"
^DD(57.17,1,21,6,0)="half-gram dose. Enter 0.5 instead."
^DD(57.17,1,"DT")="2920108"
^DD(57.17,"B","ADDITIVE",.01)=""
^DD(57.17,"B","STRENGTH",1)=""
^DD(57.17,"GL",0,1,.01)=""
^DD(57.17,"GL",0,2,1)=""
^DD(57.17,"GR","PSJ",.01,1)=""
^DD(57.17,"GR","PSJ",1,2)=""
^DD(57.17,"GR","psj",1,1)=""
^DD(57.17,"IX",.01)=""
^DD(57.17,"RQ",1)=""
^DD(57.18,0)="SOLUTION SUB-FIELD^^1^2"
^DD(57.18,0,"DT")="2941213"
^DD(57.18,0,"IX","B",57.18,.01)=""
^DD(57.18,0,"NM","SOLUTION")=""
^DD(57.18,0,"UP")="57.1"
^DD(57.18,.01,0)="SOLUTION^*P52.7'^PS(52.7,^0;1^S DIC(""S"")=""I $P(^(0),U,13) ""_$$IVDRGSC^PSIVUTL D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(57.18,.01,1,0)="^.1"
^DD(57.18,.01,1,1,0)="57.18^B"
^DD(57.18,.01,1,1,1)="S ^PS(57.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(57.18,.01,1,1,2)="K ^PS(57.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(57.18,.01,3)="Enter the solution to be used in preparing the IV order."
^DD(57.18,.01,12)="Only active solutions marked for use in IV Fluid order entry may be selected."
^DD(57.18,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,13) ""_$$IVDRGSC^PSIVUTL"
^DD(57.18,.01,20,0)="^.3LA^1^1"
^DD(57.18,.01,20,1,0)="PSJ"
^DD(57.18,.01,21,0)="^^1^1^2941213^^^"
^DD(57.18,.01,21,1,0)="  This is the solution to be entered as part of the IV order."
^DD(57.18,.01,"DT")="2941213"
^DD(57.18,1,0)="VOLUME^RFX^^0;2^K:X[""""""""!($A(X)=45)!(X'=+X)!(X>3000)!(X<.01) X I $D(X) S X=X_"" ML"" W "" ML"""
^DD(57.18,1,3)="Answer must be a number from .01-3000"
^DD(57.18,1,20,0)="^.3LA^1^1"
^DD(57.18,1,20,1,0)="PSJI"
^DD(57.18,1,21,0)="^^3^3^2920219^^"
^DD(57.18,1,21,1,0)="  This field represents the volume of this solution in MLs. Only a number"
^DD(57.18,1,21,2,0)="can be entered into this field. The total volume of an IV order is the sum "
^DD(57.18,1,21,3,0)="of the volumes of each solution included in the order."
^DD(57.18,1,"DT")="2920108"
^DD(57.18,"B","SOLUTION",.01)=""
^DD(57.18,"B","VOLUME",1)=""
^DD(57.18,"GL",0,1,.01)=""
^DD(57.18,"GL",0,2,1)=""
^DD(57.18,"GR","PSJ",.01,1)=""
^DD(57.18,"GR","PSJI",1,1)=""
^DD(57.18,"IX",.01)=""
^DD(57.18,"RQ",1)=""
^DD(57.5,0)="FIELD^^32^15"
^DD(57.5,0,"DDA")="N"
^DD(57.5,0,"DT")="2980413"
^DD(57.5,0,"ID",3)="D FIELD^DID(57.5,3,"""",""POINTER"",""PSJIDD""),EN^DDIOL($P($P(PSJIDD(""POINTER""),$P($G(^PS(57.5,Y,0)),U,2)_"":"",2),"";"")) K PSJIDD"
^DD(57.5,0,"ID",32)="S %I=Y,Y=$S('$D(^(3)):"""",$D(^%ZIS(1,+$P(^(3),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(3.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(57.5,0,"IX","AB",57.51,.01)=""
^DD(57.5,0,"IX","AC",57.51,.01)=""
^DD(57.5,0,"IX","AP",57.5,3)=""
^DD(57.5,0,"IX","ATNC",57.5,.01)=""
^DD(57.5,0,"IX","B",57.5,.01)=""
^DD(57.5,0,"NM","WARD GROUP")=""
^DD(57.5,0,"PT",50.0212,.01)=""
^DD(57.5,0,"PT",53.5,.02)=""
^DD(57.5,0,"VR")="5.0"
^DD(57.5,0,"VRPK")="PSJ"
^DD(57.5,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45)!(X=+X) X I $D(X) K:$L(X)>20!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(57.5,.01,1,0)="^.1"
^DD(57.5,.01,1,1,0)="57.5^B"
^DD(57.5,.01,1,1,1)="S ^PS(57.5,""B"",$E(X,1,30),DA)="""""
^DD(57.5,.01,1,1,2)="K ^PS(57.5,""B"",$E(X,1,30),DA)"
^DD(57.5,.01,1,2,0)="57.5^ATNC^MUMPS"
^DD(57.5,.01,1,2,1)="I '$D(PSGINITF) S ^PS(57.5,""ATNC"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(57.5,.01,1,2,2)="Q"
^DD(57.5,.01,1,2,3)="Needed by the Inpatient Medications init process."
^DD(57.5,.01,1,2,"%D",0)="^^4^4^2971211^"
^DD(57.5,.01,1,2,"%D",1,0)="  This is used by the Inpatient Medications init process.  If the post-init"
^DD(57.5,.01,1,2,"%D",2,0)="process does not find this cross reference, it converts this file for use"
^DD(57.5,.01,1,2,"%D",3,0)="with the new pick list.  (Routine used is PSGPOST.)"
^DD(57.5,.01,1,2,"%D",4,0)="S ^PS(57.5,""ATNC"")=VERSION NUMBER LAST INITS RUN"
^DD(57.5,.01,3)="Answer must be 1-20 characters in length."
^DD(57.5,.01,20,0)="^.3LA^1^1"
^DD(57.5,.01,20,1,0)="PSJU"
^DD(57.5,.01,21,0)="^^1^1^2910306^^"
^DD(57.5,.01,21,1,0)="  This is a generic name for a grouping of wards."
^DD(57.5,.01,"DEL",.01,0)="I $D(^PS(53.5,""A"",DA)) D WRDGP^PSJDDUT"
^DD(57.5,.01,"DT")="2901115"
^DD(57.5,1,0)="WARD^57.51P^^1;0"
^DD(57.5,1,20,0)="^.3LA^1^1"
^DD(57.5,1,20,1,0)="PSJU"
^DD(57.5,1,21,0)="^^1^1^2920514^"
^DD(57.5,1,21,1,0)="  This is the wards that make up this ward group."
^DD(57.5,1,23,0)="^^2^2^2920514^"
^DD(57.5,1,23,1,0)="  This is the wards that make up this ward group.  Wards are obtained from"
^DD(57.5,1,23,2,0)="the WARD LOCATION file (#42)."
^DD(57.5,2,0)="PICK LIST DATA^FI^^2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(57.5,2,3)="Answer must be 1-245 characters in length."
^DD(57.5,2,8.5)="^"
^DD(57.5,2,9)="^"
^DD(57.5,2,20,0)="^.3LA^1^1"
^DD(57.5,2,20,1,0)="PSJU"
^DD(57.5,2,21,0)="^^13^13^2910306^^^^"
^DD(57.5,2,21,1,0)="  This is sets of data pertaining to pick lists run for this ward group."
^DD(57.5,2,21,2,0)="  The corresponding fields are:"
^DD(57.5,2,21,3,0)="     PIECES       DATA TYPE"
^DD(57.5,2,21,4,0)="     ----------   ---------------------------------------------"
^DD(57.5,2,21,5,0)="      1,6,11,16 - PICK LIST INTERNAL NUMBER (DA)"
^DD(57.5,2,21,6,0)="      2,7,12,17 - DATE PICK LIST WAS RUN"
^DD(57.5,2,21,7,0)="      3,8,13,18 - COVERAGE START DATE/TIME"
^DD(57.5,2,21,8,0)="      4,9,14,19 - COVERAGE STOP DATE/TIME"
^DD(57.5,2,21,9,0)="     5,10,15,20 - INTERNAL NUMBER OF USER WHO RAN THE PICK LIST"
^DD(57.5,2,21,10,0)=" "
^DD(57.5,2,21,11,0)="   Data from the last four (4) pick lists run are kept.  When a new pick"
^DD(57.5,2,21,12,0)="list is run, its data comes in from the left (first 5 pieces), and the"
^DD(57.5,2,21,13,0)="oldest pick list's data (last 5 pieces) drop off the right."
^DD(57.5,2,"DT")="2901123"
^DD(57.5,3,0)="TYPE^RSI^M:MAS;P:PHARMACY;^0;2^Q"
^DD(57.5,3,1,0)="^.1"
^DD(57.5,3,1,1,0)="57.5^AP^MUMPS"
^DD(57.5,3,1,1,1)="I $E(X)=""P"",$D(^PS(57.5,DA,0)) S ^PS(57.5,""AP"",$P(^(0),""^""),DA)="""""
^DD(57.5,3,1,1,2)="I $D(^PS(57.5,DA,0)) K ^PS(57.5,""AP"",$P(^(0),""^""),DA)"
^DD(57.5,3,1,1,3)="USED FOR LOOK-UP"
^DD(57.5,3,1,1,"%D",0)="^^2^2^2971216^^^^"
^DD(57.5,3,1,1,"%D",1,0)="Used to facilitate the look-up of only those ward groups marked as"
^DD(57.5,3,1,1,"%D",2,0)="PHARMACY types."
^DD(57.5,3,8.5)="^"
^DD(57.5,3,20,0)="^.3LA^1^1"
^DD(57.5,3,20,1,0)="PSJU"
^DD(57.5,3,21,0)="^^5^5^2971216^^^^"
^DD(57.5,3,21,1,0)="  Differentiates between MAS ward groups and PHARMACY ward groups.  Only "
^DD(57.5,3,21,2,0)="PHARMACY ward groups are selectable in the PICK LIST options and no two "
^DD(57.5,3,21,3,0)="PHARMACY ward groups may contain the same ward (for dose counting and "
^DD(57.5,3,21,4,0)="tracking purposes).  MAS ward groups may be set up as desired, and are "
^DD(57.5,3,21,5,0)="selectable (along with PHARMACY ward groups) in all other print options."
^DD(57.5,3,21,6,0)="PHARMACY ward groups) in all other print options."
^DD(57.5,3,22)="CORVETE"
^DD(57.5,3,23,0)="^^5^5^2971216^^^^"
^DD(57.5,3,23,1,0)="  This should never be made editable.  It is only asked when the user"
^DD(57.5,3,23,2,0)="first creates the ward group.  MAS ward groups can be set up any way the"
^DD(57.5,3,23,3,0)="users desire, but no two PHARMACY ward groups may contain the same ward."
^DD(57.5,3,23,4,0)="Making this editable could defeat that scheme, which would cause the cost"
^DD(57.5,3,23,5,0)="reports to be useless."
^DD(57.5,3,"DT")="2870506"
^DD(57.5,4,0)="LENGTH OF PICK LIST (in hours)^NJ3,0^^0;3^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(57.5,4,3)="Enter the number of hours a pick list for this ward group usually lasts."
^DD(57.5,4,20,0)="^.3LA^1^1"
^DD(57.5,4,20,1,0)="PSJU"
^DD(57.5,4,21,0)="^^3^3^2910306^^^"
^DD(57.5,4,21,1,0)="  If an entry is found here when a pick list is run for this ward group,"
^DD(57.5,4,21,2,0)="the Unit Dose package will add the number of hours found to the start date"
^DD(57.5,4,21,3,0)="to produce a DEFAULT stop date."
^DD(57.5,4,"DT")="2870809"
^DD(57.5,5.01,0)="PICK LIST - ROOM/BED SORT^S^0:ROOM-BED;1:BED-ROOM;^5;1^Q"
^DD(57.5,5.01,.1)="Should the pick lists sort orders by ROOM-BED, or by BED-ROOM?"
^DD(57.5,5.01,3)="Enter how you want the pick list to sort the room-bed."
^DD(57.5,5.01,4)="D EN^DDIOL(""Enter a '1' to have the pick lists sort orders by BED-ROOM."","""",""!"")"
^DD(57.5,5.01,20,0)="^.3LA^1^1"
^DD(57.5,5.01,20,1,0)="PSJU"
^DD(57.5,5.01,21,0)="^^5^5^2970613^^"
^DD(57.5,5.01,21,1,0)="  The Pick List normally sorts patients' orders by ROOM-BED.  To have"
^DD(57.5,5.01,21,2,0)="the Pick List sort orders by BED-ROOM, enter a '1' here.  Any change"
^DD(57.5,5.01,21,3,0)="in this field will NOT affect Pick Lists already run.  PLEASE NOTE"
^DD(57.5,5.01,21,4,0)="that if the pick list is flagged to NOT sort by ROOM-BED, this flag"
^DD(57.5,5.01,21,5,0)="will be ignored."
^DD(57.5,5.01,"DT")="2870204"
^DD(57.5,5.02,0)="PICK LIST - OMIT WARD SORT^S^0:NO (SORT BY WARD);1:YES (DO NOT SORT BY WARD);^5;2^Q"
^DD(57.5,5.02,.1)="Should the pick lists NOT sort orders by ward?"
^DD(57.5,5.02,3)="Answer 'YES' (or '1') to have the pick list NOT sort by ward."
^DD(57.5,5.02,20,0)="^.3LA^1^1"
^DD(57.5,5.02,20,1,0)="PSJU"
^DD(57.5,5.02,21,0)="^^4^4^2910306^^^^"
^DD(57.5,5.02,21,1,0)="  The Pick List normally sorts orders by TEAM, WARD, ROOM-BED...  To"
^DD(57.5,5.02,21,2,0)="have the Pick List omit the WARD sort, answer 'YES' here, and the Pick"
^DD(57.5,5.02,21,3,0)="List will sort by TEAM, ROOM-BED (and NOT by WARD).  Any change here"
^DD(57.5,5.02,21,4,0)="will NOT affect any Pick Lists that have already been run."
^DD(57.5,5.02,"DT")="2900410"
^DD(57.5,5.03,0)="PICK LIST - OMIT ROOM-BED SORT^S^1:YES (DO NOT SORT BY ROOM-BED);0:NO (SORT BY ROOM-BED);^5;3^Q"
^DD(57.5,5.03,.1)="Should the pick lists NOT sort orders by room-bed?"
^DD(57.5,5.03,3)="Answer 'YES' to have the pick list NOT sort by room-bed."
^DD(57.5,5.03,20,0)="^.3LA^1^1"
^DD(57.5,5.03,20,1,0)="PSJU"
^DD(57.5,5.03,21,0)="^^4^4^2900410^^^^"
^DD(57.5,5.03,21,1,0)="  The PICK LIST normally sorts orders by ...TEAM, WARD, ROOM-BED, PATIENT"
^DD(57.5,5.03,21,2,0)="NAME...  To have the pick list NOT sort by ROOM-BED at all, answer 'YES'"
^DD(57.5,5.03,21,3,0)="here.  Any change here will NOT affect pick lists that have already been"
^DD(57.5,5.03,21,4,0)="run."
^DD(57.5,5.03,"DT")="2900410"
^DD(57.5,5.04,0)="PICK LIST - FORM FEED/PATIENT^S^0:NO;1:YES;^5;4^Q"
^DD(57.5,5.04,.1)="Should the pick lists start a new page for each patient?"
^DD(57.5,5.04,3)="Answer 'YES' to have the pick lists printed start a new page for each patient."
^DD(57.5,5.04,20,0)="^.3LA^1^1"
^DD(57.5,5.04,20,1,0)="PSJU"
^DD(57.5,5.04,21,0)="^^2^2^2910306^^^^"
^DD(57.5,5.04,21,1,0)="  This is a flag that tells the package to start a new page for each"
^DD(57.5,5.04,21,2,0)="patient found when printing the pick list."
^DD(57.5,5.04,"DT")="2870721"
^DD(57.5,5.05,0)="PICK LIST - FORM FEED/WARD^S^1:YES;0:NO;^5;5^Q"
^DD(57.5,5.05,.1)="Should the pick lists start a new page for each ward?"
^DD(57.5,5.05,3)="Answer 'YES' to have the pick list start a new page for each ward."
^DD(57.5,5.05,20,0)="^.3LA^1^1"
^DD(57.5,5.05,20,1,0)="PSJU"
^DD(57.5,5.05,21,0)="^^3^3^2910306^^^^"
^DD(57.5,5.05,21,1,0)="  This is a flag that tells the pick list to start a new page for each ward"
^DD(57.5,5.05,21,2,0)="found when printing.  This flag is ignored if the ""NEW PAGE PER PATIENT"""
^DD(57.5,5.05,21,3,0)="flag is turned on."
^DD(57.5,5.05,"DT")="2880526"
^DD(57.5,5.06,0)="PICK LIST - LINES ON FORM FEED^S^1:YES;0:NO;^5;6^Q"
^DD(57.5,5.06,.1)="Should the pick lists print the ""FILLED BY"" lines after each patient (or ward)?"
^DD(57.5,5.06,3)="Answer 'YES' to have the ""FILLED BY"" lines print after each ward or patient on the pick list."
^DD(57.5,5.06,20,0)="^.3LA^1^1"
^DD(57.5,5.06,20,1,0)="PSJU"
^DD(57.5,5.06,21,0)="^^4^4^2890927^^"
^DD(57.5,5.06,21,1,0)="  This is a flag that tells the pick list to print the ""FILLED BY"" and the"
^DD(57.5,5.06,21,2,0)="""CHECKED BY"" lines after each ward or patient.  This is used only if either"
^DD(57.5,5.06,21,3,0)="of the ""PICK LIST FORM FEED/PATIENT"" or ""PICK LIST FORM FEED/WARD"" site"
^DD(57.5,5.06,21,4,0)="parameters is turned on."
^DD(57.5,5.06,"DT")="2880526"
^DD(57.5,5.07,0)="PRINT NON-ACTIVE ORDERS FIRST^S^1:YES;0:NO;^5;7^Q"
^DD(57.5,5.07,3)="Answer 'YES' to have expired and dc'd orders print before active orders for each patient on the pick list."
^DD(57.5,5.07,20,0)="^.3LA^1^1"
^DD(57.5,5.07,20,1,0)="PSJU"
^DD(57.5,5.07,21,0)="^^6^6^2920128^"
^DD(57.5,5.07,21,1,0)="  For each patient, a pick list will print active orders and any orders"
^DD(57.5,5.07,21,2,0)="that have expired or have been discontinued within 24 hours of the start"
^DD(57.5,5.07,21,3,0)="date of the pick list.  Normally, for each patient, the patient's active"
^DD(57.5,5.07,21,4,0)="orders are printed first.  This will allow pick lists run for this ward"
^DD(57.5,5.07,21,5,0)="group to print each patient's expired and dc'd orders first. This does not"
^DD(57.5,5.07,21,6,0)="affect pick lists that have already been run."
^DD(57.5,5.07,23,0)="^^5^5^2920128^"
^DD(57.5,5.07,23,1,0)="  This is used to determine the sort order of active vs. non-active orders"
^DD(57.5,5.07,23,2,0)="for each patient within the pick list.  If this is 'NO' (or not set), each"
^DD(57.5,5.07,23,3,0)="patient's active orders will print first, as they always have.  If this is"
^DD(57.5,5.07,23,4,0)="set to 'YES', each patient's non-active orders (if any exist) will print"
^DD(57.5,5.07,23,5,0)="first."
^DD(57.5,5.07,"DT")="2920128"
^DD(57.5,30,0)="*BAXTER ATC DEVICE^FX^^3;1^K:$L(X)>20!($L(X)<1) X I $D(X) D ENDLP^PSJDDUT2"
^DD(57.5,30,3)="Answer must be 1-20 characters in length."
^DD(57.5,30,20,0)="^.3LA^1^1"
^DD(57.5,30,20,1,0)="PSJ"
^DD(57.5,30,21,0)="^^2^2^2990524^^^^"
^DD(57.5,30,21,1,0)="  This is the device corresponding to the Baxter ATC dispensing machine"
^DD(57.5,30,21,2,0)="for which all pick lists run for this ward group will be sent."
^DD(57.5,30,"DT")="2980413"
^DD(57.5,31,0)="USE OLD ATC INTERFACE^S^1:YES;0:NO;^3;2^Q"
^DD(57.5,31,3)="Enter 'YES' to have the ATC interface use the old method."
^DD(57.5,31,20,0)="^.3LA^1^1"
^DD(57.5,31,20,1,0)="PSJU"
^DD(57.5,31,21,0)="^^4^4^2940413^^^"
^DD(57.5,31,21,1,0)="  Beginning in version 3.2 of the Inpatient Medications package, an "
^DD(57.5,31,21,2,0)="attempt has been made to increase the speed of the ATC/Unit Dose interface. "
^DD(57.5,31,21,3,0)="This new interface may not work for all sites.  If your site is one of "
^DD(57.5,31,21,4,0)="those, answer 'YES' to have the interface use the old method."
^DD(57.5,31,"DT")="2910306"
^DD(57.5,32,0)="ATC DEVICE POINTER^P3.5'^%ZIS(1,^3;3^Q"
^DD(57.5,32,3)="Answer must be 1-20 characters in length."
^DD(57.5,32,21,0)="^.001^2^2^3000601^^"
^DD(57.5,32,21,1,0)="This is the device corresponding to the ATC dispensing machine for"
^DD(57.5,32,21,2,0)="which all pick lists run for this ward group will be sent."
^DD(57.5,32,"DT")="3000601"
^DD(57.5,"B","*BAXTER ATC DEVICE",30)=""
^DD(57.5,"B","ATC DEVICE POINTER",32)=""
^DD(57.5,"B","LENGTH OF PICK LIST (in hours)",4)=""
^DD(57.5,"B","NAME",.01)=""
^DD(57.5,"B","PICK LIST - FORM FEED/PATIENT",5.04)=""
^DD(57.5,"B","PICK LIST - FORM FEED/WARD",5.05)=""
^DD(57.5,"B","PICK LIST - LINES ON FORM FEED",5.06)=""
^DD(57.5,"B","PICK LIST - OMIT ROOM-BED SORT",5.03)=""
^DD(57.5,"B","PICK LIST - OMIT WARD SORT",5.02)=""
^DD(57.5,"B","PICK LIST - ROOM/BED SORT",5.01)=""
^DD(57.5,"B","PICK LIST DATA",2)=""
^DD(57.5,"B","PRINT NON-ACTIVE ORDERS FIRST",5.07)=""
^DD(57.5,"B","TYPE",3)=""
^DD(57.5,"B","USE OLD ATC INTERFACE",31)=""
^DD(57.5,"B","WARD",1)=""
^DD(57.5,"GL",0,1,.01)=""
^DD(57.5,"GL",0,2,3)=""
^DD(57.5,"GL",0,3,4)=""
^DD(57.5,"GL",1,0,1)=""
^DD(57.5,"GL",2,"E1,245",2)=""
^DD(57.5,"GL",3,1,30)=""
^DD(57.5,"GL",3,2,31)=""
^DD(57.5,"GL",3,3,32)=""
^DD(57.5,"GL",5,1,5.01)=""
^DD(57.5,"GL",5,2,5.02)=""
^DD(57.5,"GL",5,3,5.03)=""
^DD(57.5,"GL",5,4,5.04)=""
^DD(57.5,"GL",5,5,5.05)=""
^DD(57.5,"GL",5,6,5.06)=""
^DD(57.5,"GL",5,7,5.07)=""
^DD(57.5,"GR","PSJ",30,1)=""
^DD(57.5,"GR","PSJU",.01,1)=""
^DD(57.5,"GR","PSJU",1,1)=""
^DD(57.5,"GR","PSJU",2,1)=""
^DD(57.5,"GR","PSJU",3,1)=""
^DD(57.5,"GR","PSJU",4,1)=""
^DD(57.5,"GR","PSJU",5.01,1)=""
^DD(57.5,"GR","PSJU",5.02,1)=""
^DD(57.5,"GR","PSJU",5.03,1)=""
^DD(57.5,"GR","PSJU",5.04,1)=""
^DD(57.5,"GR","PSJU",5.05,1)=""
^DD(57.5,"GR","PSJU",5.06,1)=""
^DD(57.5,"GR","PSJU",5.07,1)=""
^DD(57.5,"GR","PSJU",31,1)=""
^DD(57.5,"IX",.01)=""
^DD(57.5,"IX",3)=""
^DD(57.5,"RQ",.01)=""
^DD(57.5,"RQ",3)=""
^DD(57.5,"SB",57.51,1)=""
^DD(57.51,0)="WARD SUB-FIELD^NL^.01^1"
^DD(57.51,0,"IX","B",57.51,.01)=""
^DD(57.51,0,"NM","WARD")=""
^DD(57.51,0,"UP")="57.5"
^DD(57.51,.01,0)="WARD^MRP42'^DIC(42,^0;1^I $D(^PS(57.5,DA(1),0)),$P(^(0),""^"",2)'=""M"",$D(^PS(57.5,""AB"",X)) D EN^DDIOL(""THIS WARD ALREADY BELONGS TO THE '""_$P(^PS(57.5,$O(^(X,0)),0),""^"")_""' WARD GROUP!"") K X"
^DD(57.51,.01,1,0)="^.1"
^DD(57.51,.01,1,1,0)="57.5^AB^MUMPS"
^DD(57.51,.01,1,1,1)="I $D(^PS(57.5,DA(1),0)),$P(^(0),""^"",2)=""P"" S ^PS(57.5,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(57.51,.01,1,1,2)="K ^PS(57.5,""AB"",$E(X,1,30),DA(1),DA)"
^DD(57.51,.01,1,1,3)="USED BY UNIT DOSE"
^DD(57.51,.01,1,1,"%D",0)="^^3^3^2971211^"
^DD(57.51,.01,1,1,"%D",1,0)="Allows Unit Dose to determine a ward's corresponding PHARMACY ward group."
^DD(57.51,.01,1,1,"%D",2,0)="Set only for ward groups given the TYPE of PHARMACY."
^DD(57.51,.01,1,1,"%D",3,0)="S ^PS(57.5,""AB"",WARD,WARD GROUP NAME,WARD IEN)="""""
^DD(57.51,.01,1,2,0)="57.5^AC^MUMPS"
^DD(57.51,.01,1,2,1)="S ^PS(57.5,""AC"",DA(1),X)="""""
^DD(57.51,.01,1,2,2)="K ^PS(57.5,""AC"",DA(1),X)"
^DD(57.51,.01,1,2,3)="USED BY UNIT DOSE"
^DD(57.51,.01,1,2,"%D",0)="^^2^2^2971211^"
^DD(57.51,.01,1,2,"%D",1,0)="Allows Unit Dose to easily access the wards that belong to a ward group."
^DD(57.51,.01,1,2,"%D",2,0)="S ^PS(57.5,""AC"",WARD,WARD GROUP)="""""
^DD(57.51,.01,1,3,0)="57.51^B"
^DD(57.51,.01,1,3,1)="S ^PS(57.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(57.51,.01,1,3,2)="K ^PS(57.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(57.51,.01,1,3,"DT")="2920803"
^DD(57.51,.01,3)="Enter the MAS ward(s) that are included in this ward group."
^DD(57.51,.01,4)="D EN^DDIOL(""THE WARD(S) CHOSEN MUST ALREADY BE IN THE 'WARD LOCATION' FILE."")"
^DD(57.51,.01,20,0)="^.3LA^1^1"
^DD(57.51,.01,20,1,0)="PSJU"
^DD(57.51,.01,21,0)="^^1^1^2910306^^"
^DD(57.51,.01,21,1,0)="  This is a ward to be placed under this ward group."
^DD(57.51,.01,"DT")="2920803"
^DD(57.51,"B","WARD",.01)=""
^DD(57.51,"GL",0,1,.01)=""
^DD(57.51,"GR","PSJU",.01,1)=""
^DD(57.51,"IX",.01)=""
^DD(57.51,"RQ",.01)=""
^DD(57.6,0)="FIELD^^1^2"
^DD(57.6,0,"DDA")="N"
^DD(57.6,0,"DT")="2910708"
^DD(57.6,0,"NM","UNIT DOSE PICK LIST STATS")=""
^DD(57.6,0,"VR")="5.0"
^DD(57.6,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(57.6,.01,0)="DATE^RDIX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(57.6,.01,1,0)="^.1^^0"
^DD(57.6,.01,3)=""
^DD(57.6,.01,9)="^"
^DD(57.6,.01,20,0)="^.3LA^1^1"
^DD(57.6,.01,20,1,0)="PSJU"
^DD(57.6,.01,21,0)="^^2^2^2910306^^"
^DD(57.6,.01,21,1,0)="  This field should contain the date (no time) that the drug was dispensed"
^DD(57.6,.01,21,2,0)="or returned."
^DD(57.6,.01,"DT")="2861222"
^DD(57.6,1,0)="WARD^57.61PA^^1;0"
^DD(57.6,1,9)="^"
^DD(57.6,1,20,0)="^.3LA^1^1"
^DD(57.6,1,20,1,0)="PSJU"
^DD(57.6,1,21,0)="^^1^1^2920514^"
^DD(57.6,1,21,1,0)="  This is wards for which dispensing information has been entered."
^DD(57.6,1,23,0)="^^3^3^2920514^"
^DD(57.6,1,23,1,0)="  This is wards for which dispensing information has been entered.  The"
^DD(57.6,1,23,2,0)="dispensing information includes the provider for which the information"
^DD(57.6,1,23,3,0)="was entered, the drug that was dispensed, and the amount dispensed."
^DD(57.6,"B","DATE",.01)=""
^DD(57.6,"B","WARD",1)=""
^DD(57.6,"GL",0,1,.01)=""
^DD(57.6,"GL",1,0,1)=""
^DD(57.6,"GR","PSJU",.01,1)=""
^DD(57.6,"GR","PSJU",1,1)=""
^DD(57.6,"RQ",.01)=""
^DD(57.6,"SB",57.61,1)=""
^DD(57.61,0)="WARD SUB-FIELD^^1^2"
^DD(57.61,0,"DT")="2910708"
^DD(57.61,0,"NM","WARD")=""
^DD(57.61,0,"UP")="57.6"
^DD(57.61,.01,0)="WARD^RP42'XI^DIC(42,^0;1^S DINUM=X"
^DD(57.61,.01,1,0)="^.1^^0"
^DD(57.61,.01,9)="^"
^DD(57.61,.01,20,0)="^.3LA^1^1"
^DD(57.61,.01,20,1,0)="PSJU"
^DD(57.61,.01,21,0)="^^2^2^2910306^^^"
^DD(57.61,.01,21,1,0)="  This field should contain the ward of the patient when the drug was"
^DD(57.61,.01,21,2,0)="dispensed (or returned)."
^DD(57.61,.01,"DT")="2861030"
^DD(57.61,1,0)="PROVIDER^57.62PA^^1;0"
^DD(57.61,1,9)="^"
^DD(57.61,1,20,0)="^.3LA^1^1"
^DD(57.61,1,20,1,0)="PSJU"
^DD(57.61,1,21,0)="^^1^1^2920514^"
^DD(57.61,1,21,1,0)="  This is providers for which dispensing information has been entered."
^DD(57.61,1,23,0)="^^2^2^2920514^"
^DD(57.61,1,23,1,0)="  This is privers for which dispensing information has been entered.  The"
^DD(57.61,1,23,2,0)="information includes the drug dispensed and the amount dispensed."
^DD(57.61,"B","PROVIDER",1)=""
^DD(57.61,"B","WARD",.01)=""
^DD(57.61,"GL",0,1,.01)=""
^DD(57.61,"GL",1,0,1)=""
^DD(57.61,"GR","PSJU",.01,1)=""
^DD(57.61,"GR","PSJU",1,1)=""
^DD(57.61,"RQ",.01)=""
^DD(57.61,"SB",57.62,1)=""
^DD(57.62,0)="PROVIDER SUB-FIELD^^1^2"
^DD(57.62,0,"DT")="2910708"
^DD(57.62,0,"NM","PROVIDER")=""
^DD(57.62,0,"UP")="57.61"
^DD(57.62,.01,0)="PROVIDER^P200'IX^VA(200,^0;1^S:$D(X) DINUM=X"
^DD(57.62,.01,1,0)="^.1^^0"
^DD(57.62,.01,9)="^"
^DD(57.62,.01,20,0)="^.3LA^1^1"
^DD(57.62,.01,20,1,0)="PSJU"
^DD(57.62,.01,21,0)="^^2^2^2910306^^"
^DD(57.62,.01,21,1,0)="  This field should contain the physician who ordered the drug dispensed"
^DD(57.62,.01,21,2,0)="(or returned)."
^DD(57.62,.01,"DT")="2910708"
^DD(57.62,1,0)="DRUG^57.63PA^^1;0"
^DD(57.62,1,9)="^"
^DD(57.62,1,20,0)="^.3LA^1^1"
^DD(57.62,1,20,1,0)="PSJU"
^DD(57.62,1,21,0)="^^1^1^2920514^"
^DD(57.62,1,21,1,0)="  This is the drugs and related information that were dispensed."
^DD(57.62,1,23,0)="^^3^3^2920514^"
^DD(57.62,1,23,1,0)="  This is the drugs and related information that were dispensed.  The"
^DD(57.62,1,23,2,0)="information includes the drug, the amount dispensed (or returned) and the"
^DD(57.62,1,23,3,0)="cost."
^DD(57.62,"B","DRUG",1)=""
^DD(57.62,"B","PROVIDER",.01)=""
^DD(57.62,"GL",0,1,.01)=""
^DD(57.62,"GL",1,0,1)=""
^DD(57.62,"GR","PSJU",.01,1)=""
^DD(57.62,"GR","PSJU",1,1)=""
^DD(57.62,"SB",57.63,1)=""
^DD(57.63,0)="DRUG SUB-FIELD^^4^5"
^DD(57.63,0,"NM","DRUG")=""
^DD(57.63,0,"UP")="57.62"
^DD(57.63,.01,0)="DRUG^P50'IX^PSDRUG(^0;1^S DINUM=X"
^DD(57.63,.01,1,0)="^.1^^0"
^DD(57.63,.01,9)="^"
^DD(57.63,.01,20,0)="^.3LA^1^1"
^DD(57.63,.01,20,1,0)="PSJU"
^DD(57.63,.01,21,0)="^^1^1^2910306^^"
^DD(57.63,.01,21,1,0)="  This field should contain the drug dispensed or returned."
^DD(57.63,.01,"DT")="2901213"
^DD(57.63,1,0)="DISPENSED AMOUNT^NJ10,2I^^0;2^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(57.63,1,3)="Enter a number between 0 and 1000000."
^DD(57.63,1,9)="^"
^DD(57.63,1,20,0)="^.3LA^1^1"
^DD(57.63,1,20,1,0)="PSJU"
^DD(57.63,1,21,0)="^^5^5^2910306^^"
^DD(57.63,1,21,1,0)="  This field contains the cumulative dispensed amount for the drug entered."
^DD(57.63,1,21,2,0)="This field is updated when PRE-EXCHANGE UNITS and EXTRA UNITS DISPENSED are"
^DD(57.63,1,21,3,0)="entered for an order, and when PICK LISTS are filed away.  Please note that"
^DD(57.63,1,21,4,0)="any negative amounts entered into the aforementioned fields, the amount will"
^DD(57.63,1,21,5,0)="be added to the RETURNED AMOUNT field."
^DD(57.63,1,"DT")="2861222"
^DD(57.63,2,0)="DISPENSED COST^NJ11,2I^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>10000000)!(X<0) X"
^DD(57.63,2,3)="Enter a number between 0 and 10000000."
^DD(57.63,2,9)="^"
^DD(57.63,2,20,0)="^.3LA^1^1"
^DD(57.63,2,20,1,0)="PSJU"
^DD(57.63,2,21,0)="^^4^4^2910306^^"
^DD(57.63,2,21,1,0)="  This field contains the cumulative dispensed cost for the drug entered."
^DD(57.63,2,21,2,0)="This field is updated when the DISPENSED AMOUNT field is updated, using"
^DD(57.63,2,21,3,0)="that amount multiplied by the PRICE PER DISPENSED UNIT for the drug from"
^DD(57.63,2,21,4,0)="the DRUG file."
^DD(57.63,2,"DT")="2861222"
^DD(57.63,3,0)="RETURNED AMOUNT^NJ10,2I^^0;4^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(57.63,3,3)="Enter a number between 0 and 1000000."
^DD(57.63,3,9)="^"
^DD(57.63,3,20,0)="^.3LA^1^1"
^DD(57.63,3,20,1,0)="PSJU"
^DD(57.63,3,21,0)="^^4^4^2910306^^"
^DD(57.63,3,21,1,0)="  This field contains the cumulative returned amount (in units) for the"
^DD(57.63,3,21,2,0)="drug entered.  This field is updated when RETURNS are entered for an order."
^DD(57.63,3,21,3,0)="Please note that a negative amount entered as RETURNS is added to the"
^DD(57.63,3,21,4,0)="DISPENSED AMOUNT in this file."
^DD(57.63,3,"DT")="2861222"
^DD(57.63,4,0)="RETURNED COST^NJ11,2I^^0;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>10000000)!(X<0) X"
^DD(57.63,4,3)="Enter a number between 0 and 10000000."
^DD(57.63,4,9)="^"
^DD(57.63,4,20,0)="^.3LA^1^1"
^DD(57.63,4,20,1,0)="PSJU"
^DD(57.63,4,21,0)="^^4^4^2910306^^^"
^DD(57.63,4,21,1,0)="  This field contains the cumulative returned cost for the drug entered."
^DD(57.63,4,21,2,0)="This field is updated when the RETURNED AMOUNT is updated, by multiplying"
^DD(57.63,4,21,3,0)="the amount returned by the PRICE PER DISPENSE UNIT found in the DRUG file"
^DD(57.63,4,21,4,0)="for the drug entered."
^DD(57.63,4,"DT")="2861222"
^DD(57.63,"B","DISPENSED AMOUNT",1)=""
^DD(57.63,"B","DISPENSED COST",2)=""
^DD(57.63,"B","DRUG",.01)=""
^DD(57.63,"B","RETURNED AMOUNT",3)=""
^DD(57.63,"B","RETURNED COST",4)=""
^DD(57.63,"GL",0,1,.01)=""
^DD(57.63,"GL",0,2,1)=""
^DD(57.63,"GL",0,3,2)=""
^DD(57.63,"GL",0,4,3)=""
^DD(57.63,"GL",0,5,4)=""
^DD(57.63,"GR","PSJU",.01,1)=""
^DD(57.63,"GR","PSJU",1,1)=""
^DD(57.63,"GR","PSJU",2,1)=""
^DD(57.63,"GR","PSJU",3,1)=""
^DD(57.63,"GR","PSJU",4,1)=""
^DD(57.7,0)="FIELD^^1^2"
^DD(57.7,0,"DDA")="N"
^DD(57.7,0,"IX","AWRT",57.702,.01)=""
^DD(57.7,0,"IX","B",57.7,.01)=""
^DD(57.7,0,"NM","MEDICATION ADMINISTERING TEAM")=""
^DD(57.7,0,"VR")="5.0"
^DD(57.7,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(57.7,.01,0)="WARD^RP42'X^DIC(42,^0;1^S:$D(X) DINUM=X"
^DD(57.7,.01,1,0)="^.1"
^DD(57.7,.01,1,1,0)="57.7^B"
^DD(57.7,.01,1,1,1)="S ^PS(57.7,""B"",$E(X,1,30),DA)="""""
^DD(57.7,.01,1,1,2)="K ^PS(57.7,""B"",$E(X,1,30),DA)"
^DD(57.7,.01,3)="Ward must already be in the 'WARD LOCATION' file."
^DD(57.7,.01,20,0)="^.3LA^1^1"
^DD(57.7,.01,20,1,0)="PSJU"
^DD(57.7,.01,21,0)="^^1^1^2910306^^^"
^DD(57.7,.01,21,1,0)="  This is a ward from which the room-beds will be selected."
^DD(57.7,.01,"DT")="2850823"
^DD(57.7,1,0)="TEAM^57.701^^1;0"
^DD(57.7,1,20,0)="^.3LA^1^1"
^DD(57.7,1,20,1,0)="PSJU"
^DD(57.7,1,21,0)="^^1^1^2920514^"
^DD(57.7,1,21,1,0)="  This is the teams for this ward and their associated room-beds."
^DD(57.7,1,23,0)="^^1^1^2920514^"
^DD(57.7,1,23,1,0)="  This is the teams for this ward and their associated room-beds."
^DD(57.7,"B","TEAM",1)=""
^DD(57.7,"B","WARD",.01)=""
^DD(57.7,"GL",0,1,.01)=""
^DD(57.7,"GL",1,0,1)=""
^DD(57.7,"GR","PSJU",.01,1)=""
^DD(57.7,"GR","PSJU",1,1)=""
^DD(57.7,"IX",.01)=""
^DD(57.7,"RQ",.01)=""
^DD(57.7,"SB",57.701,1)=""
^DD(57.701,0)="TEAM SUB-FIELD^NL^1^2"
^DD(57.701,0,"IX","B",57.701,.01)=""
^DD(57.701,0,"NM","TEAM")=""
^DD(57.701,0,"UP")="57.7"
^DD(57.701,.01,0)="TEAM^MFX^^0;1^K:X[""""""""!(X[""~"")!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X"
^DD(57.701,.01,1,0)="^.1"
^DD(57.701,.01,1,1,0)="57.701^B"
^DD(57.701,.01,1,1,1)="S ^PS(57.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(57.701,.01,1,1,2)="K ^PS(57.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(57.701,.01,3)="Answer must be 3-15 characters in length."
^DD(57.701,.01,4)="D EN^DDIOL(""ENTER THE NAME OF A TEAM THAT ADMINISTERS MEDICATION ON THIS  WARD."")"
^DD(57.701,.01,20,0)="^.3LA^1^1"
^DD(57.701,.01,20,1,0)="PSJU"
^DD(57.701,.01,21,0)="^^1^1^2910306^^"
^DD(57.701,.01,21,1,0)="  This is an arbitrary name for a team."
^DD(57.701,.01,"DT")="2870106"
^DD(57.701,1,0)="ROOM-BED^57.702^^1;0"
^DD(57.701,1,20,0)="^.3LA^1^1"
^DD(57.701,1,20,1,0)="PSJU"
^DD(57.701,1,21,0)="^^1^1^2940328^^^"
^DD(57.701,1,21,1,0)="  This is the room-beds which belong to the team."
^DD(57.701,"B","ROOM-BED",1)=""
^DD(57.701,"B","TEAM",.01)=""
^DD(57.701,"GL",0,1,.01)=""
^DD(57.701,"GL",1,0,1)=""
^DD(57.701,"GR","PSJU",.01,1)=""
^DD(57.701,"GR","PSJU",1,1)=""
^DD(57.701,"IX",.01)=""
^DD(57.701,"SB",57.702,1)=""
^DD(57.702,0)="ROOM-BED SUB-FIELD^NL^.01^1"
^DD(57.702,0,"IX","AWRT",57.702,.01)=""
^DD(57.702,0,"IX","B",57.702,.01)=""
^DD(57.702,0,"NM","ROOM-BED")=""
^DD(57.702,0,"SCR")="I $D(^DIC(42,DA(2),2,""B"",$P(X,""-""))),$O(^($P(X,""-""),0)),$D(^DIC(42,DA(2),2,$O(^(0)),1,""B"",$P(X,""-"",2)))"
^DD(57.702,0,"UP")="57.701"
^DD(57.702,.01,0)="ROOM-BED^MFX^^0;1^D ENRBLU^PSGFILD3"
^DD(57.702,.01,1,0)="^.1"
^DD(57.702,.01,1,1,0)="57.702^B"
^DD(57.702,.01,1,1,1)="S ^PS(57.7,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(57.702,.01,1,1,2)="K ^PS(57.7,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(57.702,.01,1,2,0)="57.702^AWRT^MUMPS"
^DD(57.702,.01,1,2,1)="S ^PS(57.7,""AWRT"",DA(2),X,DA(1),DA)="""""
^DD(57.702,.01,1,2,2)="K ^PS(57.7,""AWRT"",DA(2),X,DA(1),DA)"
^DD(57.702,.01,1,2,3)="NEEDED BY UNIT DOSE"
^DD(57.702,.01,1,2,"%D",0)="^^4^4^2920803^"
^DD(57.702,.01,1,2,"%D",1,0)="This is the key to this file.  This is used to determine the patient's"
^DD(57.702,.01,1,2,"%D",2,0)="team once the patient's ward and room-bed are known.  This is in the form"
^DD(57.702,.01,1,2,"%D",3,0)="of:"
^DD(57.702,.01,1,2,"%D",4,0)="^PS(57.7,""AWRT"",ward,room-bed,team,DA)="""""
^DD(57.702,.01,3)=""
^DD(57.702,.01,4)="D EN^DDIOL(""THE ROOM-BED CHOSEN MUST ALREADY BE DEFINED IN THE ROOM-BED FILE."") D ENRBQ^PSGFILD3"
^DD(57.702,.01,20,0)="^.3LA^1^1"
^DD(57.702,.01,20,1,0)="PSJU"
^DD(57.702,.01,21,0)="^^2^2^2940328^^^^"
^DD(57.702,.01,21,1,0)="The ROOM-BED selected will be listed under the above TEAM and WARD in"
^DD(57.702,.01,21,2,0)="PICK LISTS and MAR'S."
^DD(57.702,.01,"DT")="2900627"
^DD(57.702,"B","ROOM-BED",.01)=""
^DD(57.702,"GL",0,1,.01)=""
^DD(57.702,"GR","PSJU",.01,1)=""
^DD(57.702,"IX",.01)=""
^DD(57.8,0)="FIELD^^1^2"
^DD(57.8,0,"DT")="3040205"
^DD(57.8,0,"IX","B",57.8,.01)=""
^DD(57.8,0,"NM","CLINIC GROUP")=""
^DD(57.8,0,"VR")="5.0"
^DD(57.8,0,"VRPK")="PSJ"
^DD(57.8,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(57.8,.01,1,0)="^.1"
^DD(57.8,.01,1,1,0)="57.8^B"
^DD(57.8,.01,1,1,1)="S ^PS(57.8,""B"",$E(X,1,30),DA)="""""
^DD(57.8,.01,1,1,2)="K ^PS(57.8,""B"",$E(X,1,30),DA)"
^DD(57.8,.01,1,1,"DT")="3040501"
^DD(57.8,.01,3)="Answer must be 3-20 characters in length"
^DD(57.8,.01,21,0)="^^2^2^3040206^"
^DD(57.8,.01,21,1,0)="Enter the name of the clinic group. This will be displayed in options "
^DD(57.8,.01,21,2,0)="such as Non-Verified/Pending and will be selectable for reports."
^DD(57.8,.01,"DT")="3040501"
^DD(57.8,1,0)="CLINIC^57.81P^^1;0"
^DD(57.8,1,21,0)="^^1^1^3040206^"
^DD(57.8,1,21,1,0)="This contains the list of all the clinics defined within this group."
^DD(57.8,"B","CLINIC",1)=""
^DD(57.8,"B","NAME",.01)=""
^DD(57.8,"GL",0,1,.01)=""
^DD(57.8,"GL",1,0,1)=""
^DD(57.8,"IX",.01)=""
^DD(57.8,"RQ",.01)=""
^DD(57.8,"SB",57.81,1)=""
^DD(57.81,0)="CLINIC SUB-FIELD^^.01^1"
^DD(57.81,0,"DT")="3040205"
^DD(57.81,0,"NM","CLINIC")=""
^DD(57.81,0,"UP")="57.8"
^DD(57.81,.01,0)="CLINIC^MP44'^SC(^0;1^Q"
^DD(57.81,.01,1,0)="^.1^^0"
^DD(57.81,.01,3)="Enter the clinic you wish to add to this group."
^DD(57.81,.01,21,0)="^^2^2^3040206^"
^DD(57.81,.01,21,1,0)="Entry from the HOSPITAL LOCATION file (#44) that will be a part of this "
^DD(57.81,.01,21,2,0)="clinic group."
^DD(57.81,.01,"DT")="3040501"
^DD(57.81,"B","CLINIC",.01)=""
^DD(57.81,"GL",0,1,.01)=""
^DD(58.1,0)="FIELD^^7^10"
^DD(58.1,0,"DDA")="N"
^DD(58.1,0,"DT")="2930308"
^DD(58.1,0,"ID","WRITE")="I $D(^(""I"")),^(""I"")]"""",^(""I"")'>DT W ""    *** INACTIVE ***"" "
^DD(58.1,0,"IX","AD",58.11,30)=""
^DD(58.1,0,"IX","AEXP",58.11,35)=""
^DD(58.1,0,"IX","ASITE",58.1,4)=""
^DD(58.1,0,"IX","B",58.1,.01)=""
^DD(58.1,0,"IX","D",58.26,.01)=""
^DD(58.1,0,"IX","OND",58.28,.01)=""
^DD(58.1,0,"NM","PHARMACY AOU STOCK")=""
^DD(58.1,0,"PT",58.21,.01)=""
^DD(58.1,0,"PT",58.24,.01)=""
^DD(58.1,0,"PT",58.31,.01)=""
^DD(58.1,0,"PT",59.79001,.01)=""
^DD(58.1,.01,0)="AREA OF USE (AOU)^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(58.1,.01,1,0)="^.1^^-1"
^DD(58.1,.01,1,1,0)="58.1^B"
^DD(58.1,.01,1,1,1)="S ^PSI(58.1,""B"",$E(X,1,30),DA)="""""
^DD(58.1,.01,1,1,2)="K ^PSI(58.1,""B"",$E(X,1,30),DA)"
^DD(58.1,.01,3)="Answer must be 2-30 characters in length"
^DD(58.1,.01,21,0)="^^4^4^2930714^^"
^DD(58.1,.01,21,1,0)="This is the name of the Area Of Use.  The AOU may represent a single"
^DD(58.1,.01,21,2,0)="ward or a combination of wards and their percentages of the total use."
^DD(58.1,.01,21,3,0)="Areas of Use may also represent an area of the hospital with no affiliated"
^DD(58.1,.01,21,4,0)="wards, i.e. cardiac cath lab or dental clinic."
^DD(58.1,.01,"DEL",13000,0)="I $O(^PSI(58.1,DA,1,0)) W !,""AOUs CANNOT BE DELETED IF THERE ARE ITEMS DEFINED!"""
^DD(58.1,.01,"DT")="2890920"
^DD(58.1,.5,0)="RETURNS CREDITED TO^S^A:AUTOMATIC REPLENISHMENT;W:WARD STOCK - ON DEMAND;^0;2^Q"
^DD(58.1,.5,3)="Enter ""A"" or ""W""."
^DD(58.1,.5,21,0)="^^2^2^2930714^"
^DD(58.1,.5,21,1,0)="For returns purposes, identify the ""usual"" method of drug"
^DD(58.1,.5,21,2,0)="distribution for this Area of Use."
^DD(58.1,.5,"DT")="2870603"
^DD(58.1,.75,0)="COUNT ON AMIS?^S^0:YES;1:NO;^0;3^Q"
^DD(58.1,.75,3)="Enter ""yes"" or ""no""."
^DD(58.1,.75,21,0)="^^5^5^2910221^^^^"
^DD(58.1,.75,21,1,0)="Some AOUs are created for internal Inpatient Pharmacy inventory"
^DD(58.1,.75,21,2,0)="purposes and should not be included in AMIS counts.  ""COUNT ON AMIS?"""
^DD(58.1,.75,21,3,0)="will be checked when quantity dispensed is entered to determine"
^DD(58.1,.75,21,4,0)="if the data should be added to the AR/WS Stats File.  If answered"
^DD(58.1,.75,21,5,0)="""NO"", then NO data is collected for AMIS calculation for this AOU."
^DD(58.1,.75,"DT")="2870814"
^DD(58.1,1,0)="ITEM^58.11IP^^1;0"
^DD(58.1,2,0)="WARD/LOCATION (FOR PERCENTAGE)^58.14P^^2;0"
^DD(58.1,3,0)="INACTIVE DATE^D^^I;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.1,3,3)="Enter date when this AOU is no longer active."
^DD(58.1,3,21,0)="^^1^1^2890606^^"
^DD(58.1,3,21,1,0)="This contains the date on which the AOU was inactivated."
^DD(58.1,3,"DT")="2890606"
^DD(58.1,4,0)="INPATIENT SITE^R*P59.4'^PS(59.4,^SITE;1^S DIC(""S"")=""I $P(^(0),""""^"""",26)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.1,4,1,0)="^.1"
^DD(58.1,4,1,1,0)="58.1^ASITE"
^DD(58.1,4,1,1,1)="S ^PSI(58.1,""ASITE"",$E(X,1,30),DA)="""""
^DD(58.1,4,1,1,2)="K ^PSI(58.1,""ASITE"",$E(X,1,30),DA)"
^DD(58.1,4,3)="Enter the INPATIENT SITE that will receive credit for the AMIS statistics for this AOU. Enter ""^"" to Exit option."
^DD(58.1,4,12)="Select only sites that are 'Selectable for AR/WS' in file #59.4."
^DD(58.1,4,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",26)"""
^DD(58.1,4,21,0)="^^2^2^2890906^^"
^DD(58.1,4,21,1,0)="This field will point to the AR/WS INPATIENT SITE that will receive the"
^DD(58.1,4,21,2,0)="credit for the AMIS statistics for this AOU."
^DD(58.1,4,"DT")="2890627"
^DD(58.1,5,0)="ASK EXPIRATION DATE?^S^0:NO;1:YES;^0;4^Q"
^DD(58.1,5,3)="Enter '1' or 'Y' if you wish to be prompted for Expiration Dates for items in this Area of Use when entering on-demands or quantities dispensed."
^DD(58.1,5,21,0)="^^5^5^2900705^"
^DD(58.1,5,21,1,0)="If this field is set to '1' or 'Yes' for the Area of Use, the user will"
^DD(58.1,5,21,2,0)="be prompted for Expiration Dates when on-demands or quantities dispensed"
^DD(58.1,5,21,3,0)="(for inventories) are entered.  If this field is set to '0' or 'No',"
^DD(58.1,5,21,4,0)="Expiration Dates can only be entered through the supervisor option"
^DD(58.1,5,21,5,0)="'Expiration Date Enter/Edit'."
^DD(58.1,5,"DT")="2900705"
^DD(58.1,6,0)="CRASH CART FLAG^S^0:NO;1:YES;^0;5^Q"
^DD(58.1,6,1,0)="^.1"
^DD(58.1,6,1,1,0)="^^TRIGGER^58.1^7"
^DD(58.1,6,1,1,1)="Q"
^DD(58.1,6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSI(58.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" S DIH=$S($D(^PSI(58.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=58.1,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.1,6,1,1,"%D",0)="^^2^2^2930830^"
^DD(58.1,6,1,1,"%D",1,0)="This cross-reference deletes any data in the CRASH CART LOCATION field"
^DD(58.1,6,1,1,"%D",2,0)="(58.1,7) if the CRASH CART FLAG is set to ""NO""."
^DD(58.1,6,1,1,"CREATE VALUE")="NO EFFECT"
^DD(58.1,6,1,1,"DELETE VALUE")="@"
^DD(58.1,6,1,1,"FIELD")="CRASH CART LOCATION"
^DD(58.1,6,3)="Enter '1' or 'Y' if this Area of Use is a Crash Cart."
^DD(58.1,6,20,0)="^.3LA^1^1"
^DD(58.1,6,20,1,0)="PSGW"
^DD(58.1,6,21,0)="^^3^3^2910503^^"
^DD(58.1,6,21,1,0)="This field will be set to '1' (for 'yes') if this area of use is a"
^DD(58.1,6,21,2,0)="crash cart.  This flag will be used as a screen to list only crash"
^DD(58.1,6,21,3,0)="carts for the option 'Update Crash Cart Locations'."
^DD(58.1,6,"DT")="2910503"
^DD(58.1,7,0)="CRASH CART LOCATION^P44'^SC(^0;6^Q"
^DD(58.1,7,3)="Enter the Location of this AOU.  This field should only be used to enter locations for CRASH CARTS."
^DD(58.1,7,5,1,0)="58.1^6^1"
^DD(58.1,7,21,0)="^^5^5^2910528^^"
^DD(58.1,7,21,1,0)="This field is meant to be used to record the location of an area of use"
^DD(58.1,7,21,2,0)="that is a crash cart.  This field will be printed on the Expiration Date"
^DD(58.1,7,21,3,0)="report and will be updated in the option 'Update Crash Cart Locations'. "
^DD(58.1,7,21,4,0)="Only areas of use that have the field CRASH CART FLAG set to '1' (for "
^DD(58.1,7,21,5,0)="'yes') will be selectable in the update option."
^DD(58.1,7,"DT")="2910503"
^DD(58.1,"B","AREA OF USE (AOU)",.01)=""
^DD(58.1,"B","ASK EXPIRATION DATE?",5)=""
^DD(58.1,"B","COUNT ON AMIS?",.75)=""
^DD(58.1,"B","CRASH CART FLAG",6)=""
^DD(58.1,"B","CRASH CART LOCATION",7)=""
^DD(58.1,"B","INACTIVE DATE",3)=""
^DD(58.1,"B","INPATIENT SITE",4)=""
^DD(58.1,"B","ITEM",1)=""
^DD(58.1,"B","RETURNS CREDITED TO",.5)=""
^DD(58.1,"B","WARD/LOCATION (FOR PERCENTAGE)",2)=""
^DD(58.1,"GL",0,1,.01)=""
^DD(58.1,"GL",0,2,.5)=""
^DD(58.1,"GL",0,3,.75)=""
^DD(58.1,"GL",0,4,5)=""
^DD(58.1,"GL",0,5,6)=""
^DD(58.1,"GL",0,6,7)=""
^DD(58.1,"GL",1,0,1)=""
^DD(58.1,"GL",2,0,2)=""
^DD(58.1,"GL","I",1,3)=""
^DD(58.1,"GL","SITE",1,4)=""
^DD(58.1,"GR","PSGW",6,1)=""
^DD(58.1,"IX",.01)=""
^DD(58.1,"IX",4)=""
^DD(58.1,"IX",6)=""
^DD(58.1,"RQ",.01)=""
^DD(58.1,"RQ",4)=""
^DD(58.1,"SB",58.11,1)=""
^DD(58.1,"SB",58.14,2)=""
^DD(58.11,0)="ITEM SUB-FIELD^NL^35^17"
^DD(58.11,0,"DT")="2930308"
^DD(58.11,0,"ID",1)="W """""
^DD(58.11,0,"ID",10)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,8)"
^DD(58.11,0,"IX","AC",58.11,30)=""
^DD(58.11,0,"IX","B",58.11,.01)=""
^DD(58.11,0,"NM","ITEM")=""
^DD(58.11,0,"UP")="58.1"
^DD(58.11,.01,0)="ITEM^MR*P50'X^PSDRUG(^0;1^S DIC(""S"")=""D DRGSCRN^PSGWUTL"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D EDCHK^PSGWUTL"
^DD(58.11,.01,1,0)="^.1"
^DD(58.11,.01,1,1,0)="58.11^B"
^DD(58.11,.01,1,1,1)="S ^PSI(58.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(58.11,.01,1,1,2)="K ^PSI(58.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(58.11,.01,3)=""
^DD(58.11,.01,4)=""
^DD(58.11,.01,12)="Do not select INACTIVE or NON-PHARMACY items.                             NOTE: Items containing significant data can not be modified."
^DD(58.11,.01,12.1)="S DIC(""S"")=""D DRGSCRN^PSGWUTL"""
^DD(58.11,.01,21,0)="^^1^1^2930513^^^^"
^DD(58.11,.01,21,1,0)="ITEM defines the name of the drug stocked in this Area of Use."
^DD(58.11,.01,"DEL",13000,0)="I 1 W !,""ITEMS CANNOT BE DELETED,MUST BE INACTIVATED!"""
^DD(58.11,.01,"DT")="2930603"
^DD(58.11,1,0)="STOCK LEVEL^RNJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.11,1,1,0)="^.1"
^DD(58.11,1,1,1,0)="^^TRIGGER^58.11^11"
^DD(58.11,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S X=""Y"" X ^DD(58.11,1,1,1,1.4)"
^DD(58.11,1,1,1,1.4)="S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.11,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.11,1,1,1,2)="Q"
^DD(58.11,1,1,1,"%D",0)="^^2^2^2930827^"
^DD(58.11,1,1,1,"%D",1,0)="This cross-reference sets a flag in the LEVEL CHG field (58.11,11) if "
^DD(58.11,1,1,1,"%D",2,0)="there has been any change to the stock level for an item."
^DD(58.11,1,1,1,"CREATE VALUE")="""Y"""
^DD(58.11,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(58.11,1,1,1,"FIELD")="LEVEL CHG"
^DD(58.11,1,3)="Type a whole number between 0 and 9999"
^DD(58.11,1,21,0)="^^2^2^2871008^^^^"
^DD(58.11,1,21,1,0)="This contains the quantity that is the required stock level for the item"
^DD(58.11,1,21,2,0)="in the Area of Use."
^DD(58.11,1,"DT")="2850227"
^DD(58.11,2,0)="INVENTORY^58.12P^^1;0"
^DD(58.11,2,21,0)="^^2^2^2871008^^^^"
^DD(58.11,2,21,1,0)="This allows selection of inventory by entering a unique key of "
^DD(58.11,2,21,2,0)="DATE AND TIME."
^DD(58.11,3,0)="TYPE OF INVENTORY^58.13PA^^2;0"
^DD(58.11,3,12)="Enter type for item"
^DD(58.11,3,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)'=""""ALL"""""""
^DD(58.11,5,0)="WARD (FOR ITEM)^58.26PA^^4;0"
^DD(58.11,10,0)="LOCATION^F^^0;8^K:$L(X)>12!($L(X)<1) X"
^DD(58.11,10,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(58.11,10,21,0)="^^5^5^2871008^^^"
^DD(58.11,10,21,1,0)="This is the location address of the item in the Area of Use.  "
^DD(58.11,10,21,2,0)="It can consist of up to 3 levels, each separated by a comma.  "
^DD(58.11,10,21,3,0)="For example, ""MR,CA,S3"" or ""CUR,CB,D1""."
^DD(58.11,10,21,4,0)="This information is used to sort items on inventory sheets and other"
^DD(58.11,10,21,5,0)="printouts."
^DD(58.11,10,"DT")="2840619"
^DD(58.11,11,0)="LEVEL CHG^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(58.11,11,3)="Answer must be 1-10 characters in length"
^DD(58.11,11,5,1,0)="58.11^1^1"
^DD(58.11,11,21,0)="^^1^1^2871008^^"
^DD(58.11,11,21,1,0)="This contains the change in stock level for the item."
^DD(58.11,11,"DT")="2841218"
^DD(58.11,12,0)="NON-STANDARD ITEM^S^1:YES;0:NO;^0;6^Q"
^DD(58.11,12,21,0)="^^4^4^2900209^^^"
^DD(58.11,12,21,1,0)="This identifies if an item is a standard stocked item in the Area"
^DD(58.11,12,21,2,0)="of Use or not.  Enter 1 if the item is not a standard stocked item,"
^DD(58.11,12,21,3,0)="but is being added as an on-demand request.  Enter 0 if the item is"
^DD(58.11,12,21,4,0)="a standard stocked item in the AOU."
^DD(58.11,12,"DT")="2850208"
^DD(58.11,13,0)="REORDER LEVEL^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.11,13,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(58.11,13,21,0)="^^2^2^2881101^"
^DD(58.11,13,21,1,0)="This field contains the on-hand level that must be reached before an item"
^DD(58.11,13,21,2,0)="will have replacements dispensed."
^DD(58.11,13,"DT")="2881101"
^DD(58.11,14,0)="MINIMUM QUANTITY TO DISPENSE^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.11,14,3)="Type a Number between 1 and 9999, 0 Decimal Digits."
^DD(58.11,14,21,0)="^^1^1^2910117^^^"
^DD(58.11,14,21,1,0)="This field contains the minimum quantity that will be dispensed of an item."
^DD(58.11,14,"DT")="2910117"
^DD(58.11,15,0)="RETURNS^58.15D^^3;0"
^DD(58.11,16,0)="ON-DEMAND REQUEST DATE/TIME^58.28DA^^5;0"
^DD(58.11,30,0)="INACTIVATION DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.11,30,1,0)="^.1"
^DD(58.11,30,1,1,0)="58.11^AC^MUMPS"
^DD(58.11,30,1,1,1)="S ^PSI(58.1,DA(1),1,DA,""I"",X)="""""
^DD(58.11,30,1,1,2)="K ^PSI(58.1,DA(1),1,DA,""I"",X)"
^DD(58.11,30,1,1,"%D",0)="^^1^1^2930827^"
^DD(58.11,30,1,1,"%D",1,0)="This cross-reference sets or deletes the ""I"" node for a stock item."
^DD(58.11,30,1,2,0)="^^TRIGGER^58.11^34"
^DD(58.11,30,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""Y"" X ^DD(58.11,30,1,2,1.4)"
^DD(58.11,30,1,2,1.4)="S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.11,DIG=34 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.11,30,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(58.11,30,1,2,2.4)"
^DD(58.11,30,1,2,2.4)="S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U"" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.11,DIG=34 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.11,30,1,2,"%D",0)="^^2^2^2930827^"
^DD(58.11,30,1,2,"%D",1,0)="This cross-reference sets the field INACTIVE DATE FLAG (58.11,34) to ""YES"""
^DD(58.11,30,1,2,"%D",2,0)="or ""NO""."
^DD(58.11,30,1,2,"CREATE VALUE")="""Y"""
^DD(58.11,30,1,2,"DELETE VALUE")="""N"""
^DD(58.11,30,1,2,"FIELD")="INACTIVE DATE FLAG"
^DD(58.11,30,1,3,0)="58.1^AD^MUMPS"
^DD(58.11,30,1,3,1)="I $D(^PSI(58.1,DA(1),1,DA,0)),^(0) S PSGWDRG=+^(0) F W=0:0 S W=$O(^PSI(58.1,DA(1),1,DA,4,W)) Q:'W  K:$P(^PSI(58.1,DA(1),1,DA,0),""^"",3)=DT!($P(^(0),""^"",3)<DT) ^PSI(58.1,""D"",PSGWDRG,W,DA(1))"
^DD(58.11,30,1,3,2)="I $D(^PSI(58.1,DA(1),1,DA,0)),^(0) S PSGWDRG=+^(0) F W=0:0 S W=$O(^PSI(58.1,DA(1),1,DA,4,W)) Q:'W  S ^PSI(58.1,""D"",PSGWDRG,W,DA(1))="""""
^DD(58.11,30,1,3,"%D",0)="^^3^3^2930827^"
^DD(58.11,30,1,3,"%D",1,0)="This cross-reference will delete the ""D"" cross reference on the field"
^DD(58.11,30,1,3,"%D",2,0)="WARD (FOR ITEM) for a stock item that has been inactivated. If the"
^DD(58.11,30,1,3,"%D",3,0)="INACTIVATION DATE is deleted, the ""D"" cross-reference is reset."
^DD(58.11,30,1,3,"DT")="2930519"
^DD(58.11,30,1,4,0)="^^TRIGGER^58.11^31"
^DD(58.11,30,1,4,1)="Q"
^DD(58.11,30,1,4,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(58.11,30,1,4,2.4)"
^DD(58.11,30,1,4,2.4)="S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.11,DIG=31 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.11,30,1,4,"%D",0)="^^2^2^2930827^"
^DD(58.11,30,1,4,"%D",1,0)="This cross-reference will delete the field INACTIVATION REASON (58.11,31)"
^DD(58.11,30,1,4,"%D",2,0)="if the INACTIVATION DATE is deleted."
^DD(58.11,30,1,4,"CREATE VALUE")="NO EFFECT"
^DD(58.11,30,1,4,"DELETE VALUE")="@"
^DD(58.11,30,1,4,"FIELD")="INACTIVATION REASON"
^DD(58.11,30,1,5,0)="^^TRIGGER^58.11^33"
^DD(58.11,30,1,5,1)="Q"
^DD(58.11,30,1,5,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(58.11,30,1,5,2.4)"
^DD(58.11,30,1,5,2.4)="S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U"" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.11,DIG=33 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.11,30,1,5,"%D",0)="^^2^2^2930827^"
^DD(58.11,30,1,5,"%D",1,0)="This cross-reference will delete the field INACTIVATION REASON (OTHER)"
^DD(58.11,30,1,5,"%D",2,0)="(58.11,33) if the INACTIVATION DATE is deleted."
^DD(58.11,30,1,5,"CREATE VALUE")="NO EFFECT"
^DD(58.11,30,1,5,"DELETE VALUE")="@"
^DD(58.11,30,1,5,"FIELD")="INACTIVATION REASON (OTHER)"
^DD(58.11,30,3)="Enter date when this item is no longer considered a ward stock item."
^DD(58.11,30,21,0)="^^3^3^2890120^^"
^DD(58.11,30,21,1,0)="This contains the date on which the drug/item in the Area of Use"
^DD(58.11,30,21,2,0)="was inactivated, and thus is no longer considered part of the"
^DD(58.11,30,21,3,0)="standard stock for that Area of Use."
^DD(58.11,30,"DT")="2930519"
^DD(58.11,31,0)="INACTIVATION REASON^S^N:NOT USED;O:OTHER;DF:DELETED FROM FORMULARY;^0;4^Q"
^DD(58.11,31,3)=""
^DD(58.11,31,5,1,0)="58.11^30^4"
^DD(58.11,31,21,0)="^^2^2^2871008^^^^"
^DD(58.11,31,21,1,0)="This contains the reason that the item has been inactivated from the list "
^DD(58.11,31,21,2,0)="of items normally stocked in this Area of Use."
^DD(58.11,31,"DT")="2910415"
^DD(58.11,33,0)="INACTIVATION REASON (OTHER)^F^^0;9^K:$L(X)>40!($L(X)<3) X"
^DD(58.11,33,3)="Answer must be 3-40 characters in length"
^DD(58.11,33,5,1,0)="58.11^30^5"
^DD(58.11,33,21,0)="^^3^3^2871008^^"
^DD(58.11,33,21,1,0)="This contains the custom reason for inactivating the item from the "
^DD(58.11,33,21,2,0)="AOU stock list. An inactivation reason of 'other' should have been "
^DD(58.11,33,21,3,0)="entered if a custom reason is to be listed."
^DD(58.11,33,"DT")="2840614"
^DD(58.11,34,0)="INACTIVE DATE FLAG^F^^0;10^K:$L(X)>3!($L(X)<1) X"
^DD(58.11,34,3)="Answer must be 1-3 characters in length"
^DD(58.11,34,5,1,0)="58.11^30^2"
^DD(58.11,34,9)="^"
^DD(58.11,34,21,0)="^^3^3^2871008^"
^DD(58.11,34,21,1,0)="This flag will be set to ""YES"" if there is an inactivation date"
^DD(58.11,34,21,2,0)="for the item in the AOU.  If there is no inactivation date for"
^DD(58.11,34,21,3,0)="the item, then the flag will be set to ""NO""."
^DD(58.11,34,"DT")="2841219"
^DD(58.11,35,0)="EXPIRATION DATE^D^^EXP;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(58.11,35,.1)="    EXPIRATION DATE"
^DD(58.11,35,1,0)="^.1"
^DD(58.11,35,1,1,0)="58.1^AEXP^MUMPS"
^DD(58.11,35,1,1,1)="S PSGWDRUG=+^PSI(58.1,DA(1),1,DA,0),^PSI(58.1,""AEXP"",$E(X,1,30),PSGWDRUG,DA(1))="""" K PSGWDRUG"
^DD(58.11,35,1,1,2)="S PSGWDRUG=+^PSI(58.1,DA(1),1,DA,0) K ^PSI(58.1,""AEXP"",$E(X,1,30),PSGWDRUG,DA(1)),PSGWDRUG"
^DD(58.11,35,1,1,"%D",0)="^^2^2^2930827^"
^DD(58.11,35,1,1,"%D",1,0)="This cross-reference is used to sort the expiration dates for stock items"
^DD(58.11,35,1,1,"%D",2,0)="for the option ""Expiration Date Report""."
^DD(58.11,35,3)="Enter the Expiration Date for this Item."
^DD(58.11,35,21,0)="^^1^1^2900706^^^"
^DD(58.11,35,21,1,0)="This field contains the expiration date for this item."
^DD(58.11,35,"DT")="2900627"
^DD(58.11,"B","    EXPIRATION DATE",35)="1"
^DD(58.11,"B","EXPIRATION DATE",35)=""
^DD(58.11,"B","INACTIVATION DATE",30)=""
^DD(58.11,"B","INACTIVATION REASON",31)=""
^DD(58.11,"B","INACTIVATION REASON (OTHER)",33)=""
^DD(58.11,"B","INACTIVE DATE FLAG",34)=""
^DD(58.11,"B","INVENTORY",2)=""
^DD(58.11,"B","ITEM",.01)=""
^DD(58.11,"B","LEVEL CHG",11)=""
^DD(58.11,"B","LOCATION",10)=""
^DD(58.11,"B","MINIMUM QUANTITY TO DISPENSE",14)=""
^DD(58.11,"B","NON-STANDARD ITEM",12)=""
^DD(58.11,"B","ON-DEMAND REQUEST DATE/TIME",16)=""
^DD(58.11,"B","REORDER LEVEL",13)=""
^DD(58.11,"B","RETURNS",15)=""
^DD(58.11,"B","STOCK LEVEL",1)=""
^DD(58.11,"B","TYPE OF INVENTORY",3)=""
^DD(58.11,"B","WARD (FOR ITEM)",5)=""
^DD(58.11,"GL",0,1,.01)=""
^DD(58.11,"GL",0,2,1)=""
^DD(58.11,"GL",0,3,30)=""
^DD(58.11,"GL",0,4,31)=""
^DD(58.11,"GL",0,5,11)=""
^DD(58.11,"GL",0,6,12)=""
^DD(58.11,"GL",0,8,10)=""
^DD(58.11,"GL",0,9,33)=""
^DD(58.11,"GL",0,10,34)=""
^DD(58.11,"GL",0,11,13)=""
^DD(58.11,"GL",0,12,14)=""
^DD(58.11,"GL",1,0,2)=""
^DD(58.11,"GL",2,0,3)=""
^DD(58.11,"GL",3,0,15)=""
^DD(58.11,"GL",4,0,5)=""
^DD(58.11,"GL",5,0,16)=""
^DD(58.11,"GL","EXP",1,35)=""
^DD(58.11,"IX",.01)=""
^DD(58.11,"IX",1)=""
^DD(58.11,"IX",30)=""
^DD(58.11,"IX",35)=""
^DD(58.11,"RQ",.01)=""
^DD(58.11,"RQ",1)=""
^DD(58.11,"SB",58.12,2)=""
^DD(58.11,"SB",58.13,3)=""
^DD(58.11,"SB",58.15,15)=""
^DD(58.11,"SB",58.26,5)=""
^DD(58.11,"SB",58.28,16)=""
^DD(58.12,0)="INVENTORY SUB-FIELD^NL^5^6"
^DD(58.12,0,"IX","AMIS",58.12,4)=""
^DD(58.12,0,"IX","AMISERR",58.12,4)=""
^DD(58.12,0,"IX","C",58.12,.01)=""
^DD(58.12,0,"NM","INVENTORY")=""
^DD(58.12,0,"UP")="58.11"
^DD(58.12,.01,0)="DATE/TIME FOR INVENTORY^P58.19'X^PSI(58.19,^0;1^S:$D(X) DINUM=X"
^DD(58.12,.01,.1)=""
^DD(58.12,.01,1,0)="^.1"
^DD(58.12,.01,1,1,0)="58.12^C^MUMPS"
^DD(58.12,.01,1,1,1)="S $P(^(1,DA,0),""^"",2)=$P(^PSI(58.1,DA(2),1,DA(1),0),""^"",2)"
^DD(58.12,.01,1,1,2)="S $P(^PSI(58.1,DA(2),1,DA(1),1,DA,0),""^"",2)="""""
^DD(58.12,.01,1,1,"%D",0)="^^2^2^2930811^"
^DD(58.12,.01,1,1,"%D",1,0)="This cross-reference automatically sets the field LEVEL (58.12,1) equal"
^DD(58.12,.01,1,1,"%D",2,0)="to whatever is in the field STOCK LEVEL (58.11,1)."
^DD(58.12,.01,3)=""
^DD(58.12,.01,21,0)="^^1^1^2871008^^"
^DD(58.12,.01,21,1,0)="This contains the DATE/TIME of the inventory."
^DD(58.12,.01,"DT")="2900213"
^DD(58.12,1,0)="LEVEL^RNJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.12,1,3)="Type a whole number between 0 and 9999"
^DD(58.12,1,9)="^"
^DD(58.12,1,21,0)="^^1^1^2871008^^"
^DD(58.12,1,21,1,0)="This contains the stock level of the item for the inventory DATE/TIME."
^DD(58.12,1,"DT")="2850227"
^DD(58.12,3,0)="COMPILED INTO AMIS?^S^1:YES;0:NO;^0;4^Q"
^DD(58.12,3,.1)="COMPILED FLAG"
^DD(58.12,3,21,0)="^^5^5^2910221^^^^"
^DD(58.12,3,21,1,0)="A TaskMan background routine ^PSGWUAS (option PSGW UPDATE AMIS STATS) runs"
^DD(58.12,3,21,2,0)="each night.  As the data for an inventory transaction is completed, this"
^DD(58.12,3,21,3,0)="""COMPILED FLAG"" will be set to ""1"".  This will enable the cross-reference"
^DD(58.12,3,21,4,0)="^PSI(58.5,""AMIS"") to be recompiled via the option PSGW RE-INDEX AMIS or"
^DD(58.12,3,21,5,0)="via VA FileMan should the need arise."
^DD(58.12,3,"DT")="2880126"
^DD(58.12,3.5,0)="ON HAND^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.12,3.5,1,0)="^.1"
^DD(58.12,3.5,1,1,0)="^^TRIGGER^58.12^4"
^DD(58.12,3.5,1,1,1)="Q:$D(DIU(0))  K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(58.12,3.5,1,1,1.1) X ^DD(58.12,3.5,1,1,1.4)"
^DD(58.12,3.5,1,1,1,9.2)="S Y(1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=DIV<$P(Y(1),U,2),Y(2)=X,Y(3)=X S X=$P(Y(1),U,2),Y(4)=X S X=DIV,Y=X,X=Y(4),X=X-Y,Y(5)=X S X=1,Y(6)=X S X=0"
^DD(58.12,3.5,1,1,1.1)="S X=DIV X ^DD(58.12,3.5,1,1,1,9.2) S X=$S(Y(2):Y(5),Y(6):X)"
^DD(58.12,3.5,1,1,1.4)="S DIH=$S($D(^PSI(58.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.12,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.12,3.5,1,1,2)="Q"
^DD(58.12,3.5,1,1,"%D",0)="^^5^5^2930827^"
^DD(58.12,3.5,1,1,"%D",1,0)="This cross-reference sets the value of the field DISPENSING QUANTITY"
^DD(58.12,3.5,1,1,"%D",2,0)="(58.12,4) for sites that are NOT merging their pick lists and inventory"
^DD(58.12,3.5,1,1,"%D",3,0)="sheets. This value will be calculated using the following logic:"
^DD(58.12,3.5,1,1,"%D",4,0)="ON HAND<STOCK LEVEL then DISPENSE QUANTITY=STOCK LEVEL-ON HAND"
^DD(58.12,3.5,1,1,"%D",5,0)="ON HAND>or=STOCK LEVEL then DISPENSE QUANTITY=zero"
^DD(58.12,3.5,1,1,"CREATE VALUE")="$S((ON-HAND)<LEVEL:(LEVEL-(ON-HAND)),1:0)"
^DD(58.12,3.5,1,1,"DELETE VALUE")="NO EFFECT"
^DD(58.12,3.5,1,1,"FIELD")="DISPENSE"
^DD(58.12,3.5,3)="Type a whole number between 0 and 9999"
^DD(58.12,3.5,21,0)="^^1^1^2871008^^^"
^DD(58.12,3.5,21,1,0)="This contains the quantity of the item currently in the Area of Use."
^DD(58.12,3.5,"DT")="2850718"
^DD(58.12,4,0)="DISPENSE QUANTITY^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.12,4,1,0)="^.1"
^DD(58.12,4,1,1,0)="58.12^AMIS^MUMPS"
^DD(58.12,4,1,1,1)="Q:$D(PSGWV)  D QD^PSGWUTL"
^DD(58.12,4,1,1,2)="Q:$D(PSGWV)  D KQD^PSGWUTL"
^DD(58.12,4,1,1,"%D",0)="^^4^4^2930811^"
^DD(58.12,4,1,1,"%D",1,0)="This cross-reference is set everytime a quantity greater than zero is "
^DD(58.12,4,1,1,"%D",2,0)="dispensed for a stock item. The nightly job ""Update AMIS Stats File"" will"
^DD(58.12,4,1,1,"%D",3,0)="process this cross-reference and store the data in the AR/WS Stats File"
^DD(58.12,4,1,1,"%D",4,0)="(#58.5). After the cross-reference is processed, it is deleted."
^DD(58.12,4,1,2,0)="58.12^AMISERR^MUMPS"
^DD(58.12,4,1,2,1)="Q:$D(PSGWV)  D QDERR^PSGWUTL"
^DD(58.12,4,1,2,2)="Q:$D(PSGWV)  D KQDERR^PSGWUTL"
^DD(58.12,4,1,2,"%D",0)="^^5^5^2930811^"
^DD(58.12,4,1,2,"%D",1,0)="This cross-reference is set by the nightly job ""Update AMIS Stats file"""
^DD(58.12,4,1,2,"%D",2,0)="if an AMIS transaction is found to have invalid or missing Inpatient"
^DD(58.12,4,1,2,"%D",3,0)="Site data. Existence of this cross-reference will cause a MailMan message"
^DD(58.12,4,1,2,"%D",4,0)="to be sent to holders of the PSGWMGR security key informing them of the"
^DD(58.12,4,1,2,"%D",5,0)="invalid or missing data."
^DD(58.12,4,3)="Type a Number between 0 and 9999, 0 Decimal Digits."
^DD(58.12,4,5,1,0)="58.12^3.5^1"
^DD(58.12,4,21,0)="^^2^2^2910125^^^^"
^DD(58.12,4,21,1,0)="This contains the quantity of the item dispensed to restore stock "
^DD(58.12,4,21,2,0)="to the required level."
^DD(58.12,4,"DT")="2910228"
^DD(58.12,5,0)="PERCENTAGE OF STOCK ON HAND^CJ8^^ ; ^S Y(58.12,5,1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(58.12,5,1),U,6),X=$S($P(Y(58.12,5,1),U,2):X/$P(Y(58.12,5,1),U,2),1:""*******"")*100"
^DD(58.12,5,9)="^"
^DD(58.12,5,9.01)="58.12^1;58.12^3.5"
^DD(58.12,5,9.1)="ON HAND/LEVEL*100"
^DD(58.12,5,9.2)="S Y(58.12,5,1)=$S($D(^PSI(58.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(58.12,5,1),U,2),Y(58.12,5,2)=X S X=$P(Y(58.12,5,1),U,6),Y=X,X=Y(58.12,5,2),X=X-Y,X=$S($P(Y(58.12,5,1),U,2):X/$P(Y(58.12,5,1),U,2),1:""*******"")"
^DD(58.12,5,21,0)="^^2^2^2871008^^"
^DD(58.12,5,21,1,0)="Percentage stock on hand is computed by dividing the amount on hand"
^DD(58.12,5,21,2,0)="by the stock level times 100."
^DD(58.12,5,"DT")="2871008"
^DD(58.12,"B","COMPILED FLAG",3)="1"
^DD(58.12,"B","COMPILED INTO AMIS?",3)=""
^DD(58.12,"B","DATE/TIME FOR INVENTORY",.01)=""
^DD(58.12,"B","DISPENSE QUANTITY",4)=""
^DD(58.12,"B","LEVEL",1)=""
^DD(58.12,"B","ON HAND",3.5)=""
^DD(58.12,"B","PERCENTAGE OF STOCK ON HAND",5)=""
^DD(58.12,"GL",0,1,.01)=""
^DD(58.12,"GL",0,2,1)=""
^DD(58.12,"GL",0,4,3)=""
^DD(58.12,"GL",0,5,4)=""
^DD(58.12,"GL",0,6,3.5)=""
^DD(58.12,"IX",.01)=""
^DD(58.12,"IX",3.5)=""
^DD(58.12,"IX",4)=""
^DD(58.12,"RQ",1)=""
^DD(58.13,0)="TYPE OF INVENTORY SUB-FIELD^NL^1^2"
^DD(58.13,0,"NM","TYPE OF INVENTORY")=""
^DD(58.13,0,"UP")="58.11"
^DD(58.13,.01,0)="TYPE^M*P58.16'X^PSI(58.16,^0;1^S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ALL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(58.13,.01,1,0)="^.1^^0"
^DD(58.13,.01,12)="Enter type for item"
^DD(58.13,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ALL"""""""
^DD(58.13,.01,21,0)="^^3^3^2880114^^^"
^DD(58.13,.01,21,1,0)="This points to the types defined in File 58.16 -"
^DD(58.13,.01,21,2,0)="AOU Inventory Type File.  Inventory types are used to group"
^DD(58.13,.01,21,3,0)="related items in an Area of Use."
^DD(58.13,.01,"DT")="2900213"
^DD(58.13,1,0)="*TEST^F^^0;2^K:$L(X)>1!($L(X)<1) X"
^DD(58.13,1,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(58.13,1,21,0)="^^1^1^2880224^^"
^DD(58.13,1,21,1,0)="NOT CURRENTLY USED."
^DD(58.13,1,"DT")="2851030"
^DD(58.13,"B","*TEST",1)=""
^DD(58.13,"B","TYPE",.01)=""
^DD(58.13,"GL",0,1,.01)=""
^DD(58.13,"GL",0,2,1)=""
^DD(58.14,0)="WARD/LOCATION (FOR PERCENTAGE) SUB-FIELD^NL^2^3"
^DD(58.14,0,"NM","WARD/LOCATION (FOR PERCENTAGE)")=""
^DD(58.14,0,"UP")="58.1"
^DD(58.14,.01,0)="WARD/LOCATION (FOR PERCENTAGE)^MRP44'^SC(^0;1^Q"
^DD(58.14,.01,1,0)="^.1^^0"
^DD(58.14,.01,21,0)="^^5^5^2891003^^^^"
^DD(58.14,.01,21,1,0)="This points to File 44 - the Hospital Location File.  It contains the"
^DD(58.14,.01,21,2,0)="name of the ward(s) or location(s) that are served partially or "
^DD(58.14,.01,21,3,0)="totally by this Area of Use.  If the Area of Use is NOT composed "
^DD(58.14,.01,21,4,0)="of any wards or locations, enter ""^""<RETURN> at the WARD/LOCATION"
^DD(58.14,.01,21,5,0)="(FOR PERCENTAGE) prompt."
^DD(58.14,.01,"DT")="2891003"
^DD(58.14,1,0)="WARD/LOCATION % OF USE^RNJ3,0^^0;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.14,1,3)="Type a whole number between 1 and 100"
^DD(58.14,1,21,0)="^^2^2^2891009^^^^"
^DD(58.14,1,21,1,0)="This ward/location uses a percentage of the items in this AOU.  "
^DD(58.14,1,21,2,0)="Enter that percentage here.  This is primarily used for report purposes."
^DD(58.14,1,"DT")="2840915"
^DD(58.14,2,0)="SERVICE^58.27P^^1;0"
^DD(58.14,"B","SERVICE",2)=""
^DD(58.14,"B","WARD/LOCATION % OF USE",1)=""
^DD(58.14,"B","WARD/LOCATION (FOR PERCENTAGE)",.01)=""
^DD(58.14,"GL",0,1,.01)=""
^DD(58.14,"GL",0,2,1)=""
^DD(58.14,"GL",1,0,2)=""
^DD(58.14,"RQ",.01)=""
^DD(58.14,"RQ",1)=""
^DD(58.14,"SB",58.27,2)=""
^DD(58.15,0)="RETURNS SUB-FIELD^NL^3^4"
^DD(58.15,0,"IX","AMIS",58.15,1)=""
^DD(58.15,0,"IX","AMISERR",58.15,1)=""
^DD(58.15,0,"NM","RETURNS")=""
^DD(58.15,0,"UP")="58.11"
^DD(58.15,.01,0)="DATE OF RETURN^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(58.15,.01,21,0)="^^1^1^2871008^"
^DD(58.15,.01,21,1,0)="This contains the date the item was returned from the Area of Use."
^DD(58.15,.01,"DT")="2900213"
^DD(58.15,1,0)="RETURN QUANTITY^NJ4,0X^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X D:$D(X) OND^PSGWUTL"
^DD(58.15,1,1,0)="^.1"
^DD(58.15,1,1,1,0)="58.15^AMIS^MUMPS"
^DD(58.15,1,1,1,1)="Q:$D(PSGWV)  D RET^PSGWUTL"
^DD(58.15,1,1,1,2)="Q:$D(PSGWV)  D KRET^PSGWUTL"
^DD(58.15,1,1,1,"%D",0)="^^4^4^2930811^"
^DD(58.15,1,1,1,"%D",1,0)="This cross-reference is set everytime a quantity greater than zero is"
^DD(58.15,1,1,1,"%D",2,0)="returned for a stock item. The nightly job ""Update AMIS Stats File"" "
^DD(58.15,1,1,1,"%D",3,0)="will process this cross-reference and store the data in the AR/WS Stats"
^DD(58.15,1,1,1,"%D",4,0)="File (#58.5). After the cross-reference is processed, it is deleted."
^DD(58.15,1,1,2,0)="58.15^AMISERR^MUMPS"
^DD(58.15,1,1,2,1)="Q:$D(PSGWV)  D RETERR^PSGWUTL"
^DD(58.15,1,1,2,2)="Q:$D(PSGWV)  D KRETERR^PSGWUTL"
^DD(58.15,1,1,2,"%D",0)="^^5^5^2930811^"
^DD(58.15,1,1,2,"%D",1,0)="This cross-reference is set by the nightly job ""Update AMIS Stats File"""
^DD(58.15,1,1,2,"%D",2,0)="if an AMIS transaction is found to have invalid or missing Inpatient"
^DD(58.15,1,1,2,"%D",3,0)="Site data. Existence of this cross-reference will cause a MailMan message"
^DD(58.15,1,1,2,"%D",4,0)="to be sent to holders of the PSGWMGR security key informing them of the"
^DD(58.15,1,1,2,"%D",5,0)="invalid or missing data."
^DD(58.15,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits."
^DD(58.15,1,21,0)="^^1^1^2871008^^"
^DD(58.15,1,21,1,0)="This contains the quantity returned from the Area of Use for the item."
^DD(58.15,1,"DT")="2910228"
^DD(58.15,2,0)="RETURN REASON^58.152S^^1;0"
^DD(58.15,3,0)="COMPILED INTO AMIS?^S^1:YES;0:NO;^0;4^Q"
^DD(58.15,3,.1)="COMPILED FLAG"
^DD(58.15,3,21,0)="^^5^5^2910221^^^^"
^DD(58.15,3,21,1,0)="A TaskMan background routine ^PSGWUAS (option PSGW UPDATE AMIS STATS) runs"
^DD(58.15,3,21,2,0)="each night.  As the data for a return transaction is completed, this"
^DD(58.15,3,21,3,0)="""COMPILED FLAG"" will be set to ""1"".  This will enable the cross-reference"
^DD(58.15,3,21,4,0)="^PSI(58.5,""AMIS"") to be recompiled via the option PSGW RE-INDEX AMIS or"
^DD(58.15,3,21,5,0)="via VA FileMan should the need arise."
^DD(58.15,3,"DT")="2880126"
^DD(58.15,"B","COMPILED FLAG",3)="1"
^DD(58.15,"B","COMPILED INTO AMIS?",3)=""
^DD(58.15,"B","DATE OF RETURN",.01)=""
^DD(58.15,"B","RETURN QUANTITY",1)=""
^DD(58.15,"B","RETURN REASON",2)=""
^DD(58.15,"GL",0,1,.01)=""
^DD(58.15,"GL",0,2,1)=""
^DD(58.15,"GL",0,4,3)=""
^DD(58.15,"GL",1,0,2)=""
^DD(58.15,"IX",1)=""
^DD(58.15,"SB",58.152,2)=""
^DD(58.16,0)="FIELD^^1^2"
^DD(58.16,0,"IX","B",58.16,.01)=""
^DD(58.16,0,"NM","AOU INVENTORY TYPE")=""
^DD(58.16,0,"PT",58.13,.01)=""
^DD(58.16,0,"PT",58.22,.01)=""
^DD(58.16,0,"PT",58.25,.01)=""
^DD(58.16,0,"PT",58.291,.01)=""
^DD(58.16,0,"PT",58.800116,.01)=""
^DD(58.16,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(58.16,.01,1,0)="^.1"
^DD(58.16,.01,1,1,0)="58.16^B"
^DD(58.16,.01,1,1,1)="S ^PSI(58.16,""B"",$E(X,1,30),DA)="""""
^DD(58.16,.01,1,1,2)="K ^PSI(58.16,""B"",$E(X,1,30),DA)"
^DD(58.16,.01,3)="Answer must be 3-30 characters in length"
^DD(58.16,.01,21,0)="^^3^3^2931014^^^"
^DD(58.16,.01,21,1,0)="This contains the name of an inventory type, i.e. injections,"
^DD(58.16,.01,21,2,0)="external, internal, oral liquid, or oral solid.  This will be"
^DD(58.16,.01,21,3,0)="used to group items in each Area of Use."
^DD(58.16,.01,"DEL",1,0)="I $P(^PSI(58.16,DA,0),""^"",1)=""ON-DEMAND"" W !,""This entry cannot be deleted, it is a requirement of the software."""
^DD(58.16,1,0)="TYPE DESCRIPTION^58.18^^1;0"
^DD(58.16,1,21,0)="^^3^3^2910304^^^"
^DD(58.16,1,21,1,0)="This contains information that describes this inventory type.  "
^DD(58.16,1,21,2,0)="This is purely for documentation of the scheme you have adopted at "
^DD(58.16,1,21,3,0)="your site."
^DD(58.16,"B","NAME",.01)=""
^DD(58.16,"B","TYPE DESCRIPTION",1)=""
^DD(58.16,"GL",0,1,.01)=""
^DD(58.16,"GL",1,0,1)=""
^DD(58.16,"IX",.01)=""
^DD(58.16,"RQ",.01)=""
^DD(58.16,"SB",58.18,1)=""
^DD(58.17,0)="FIELD^^.5^2"
^DD(58.17,0,"ID",.5)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(58.17,0,"IX","B",58.17,.01)=""
^DD(58.17,0,"NM","AOU ITEM LOCATION")=""
^DD(58.17,.01,0)="ITEM ADDRESS CODE^RF^^0;1^K:$L(X)>3!($L(X)<1)!'(X?1AN.AN) X"
^DD(58.17,.01,1,0)="^.1"
^DD(58.17,.01,1,1,0)="58.17^B"
^DD(58.17,.01,1,1,1)="S ^PSI(58.17,""B"",$E(X,1,30),DA)="""""
^DD(58.17,.01,1,1,2)="K ^PSI(58.17,""B"",$E(X,1,30),DA)"
^DD(58.17,.01,3)="Answer must be 1-3 characters in length"
^DD(58.17,.01,21,0)="^^3^3^2871008^^^^"
^DD(58.17,.01,21,1,0)="This contains a code that represents a portion of an item's location "
^DD(58.17,.01,21,2,0)="address in an Area of Use.  This code is associated with an expansion "
^DD(58.17,.01,21,3,0)="for clarity."
^DD(58.17,.01,"DT")="2840614"
^DD(58.17,.5,0)="CODE EXPANSION^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(58.17,.5,3)="Enter 1-30 characters"
^DD(58.17,.5,21,0)="^^2^2^2871008^^"
^DD(58.17,.5,21,1,0)="This text is used to clarify the meaning of the associated code.  Its"
^DD(58.17,.5,21,2,0)="primary purpose is for report information."
^DD(58.17,.5,"DT")="2840614"
^DD(58.17,"B","CODE EXPANSION",.5)=""
^DD(58.17,"B","ITEM ADDRESS CODE",.01)=""
^DD(58.17,"GL",0,1,.01)=""
^DD(58.17,"GL",0,3,.5)=""
^DD(58.17,"IX",.01)=""
^DD(58.17,"RQ",.01)=""
^DD(58.18,0)="TYPE DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(58.18,0,"NM","TYPE DESCRIPTION")=""
^DD(58.18,0,"UP")="58.16"
^DD(58.18,.01,0)="TYPE DESCRIPTION^W^^0;1^Q"
^DD(58.18,.01,21,0)="^^3^3^2910304^"
^DD(58.18,.01,21,1,0)="This contains information that describes this inventory type."
^DD(58.18,.01,21,2,0)="This is purely for documentation of the scheme you have adopted at"
^DD(58.18,.01,21,3,0)="your site."
^DD(58.18,.01,"DT")="2840619"
^DD(58.18,"B","TYPE DESCRIPTION",.01)=""
^DD(58.18,"GL",0,1,.01)=""
^DD(58.19,0)="FIELD^^3^6"
^DD(58.19,0,"DDA")="N"
^DD(58.19,0,"DT")="2930714"
^DD(58.19,0,"ID",1)="W:$D(^(""0"")) ""   "",$S($D(^VA(200,+$P(^(""0""),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(58.19,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(58.19,0,"ID","WRITE")="S GRP=$P(^PSI(58.19,Y,0),U,4) W !,?6 F LP=2:1:($L(GRP,"","")-1) S PC=$P(GRP,"","",LP) W $S($D(^PSI(58.2,PC,0)):$P(^(0),U),1:"""") W:LP<($L(GRP,"","")-1) "", """
^DD(58.19,0,"IX","B",58.19,.01)=""
^DD(58.19,0,"NM","PHARMACY AOU INVENTORY")=""
^DD(58.19,0,"PT",58.12,.01)=""
^DD(58.19,.001,0)="ID^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.19,.001,3)="Number that uniquely identifies this inventory."
^DD(58.19,.001,21,0)="^^1^1^2871009^"
^DD(58.19,.001,21,1,0)="This contains a number that uniquely identifies this inventory."
^DD(58.19,.01,0)="DATE/TIME FOR INVENTORY^RD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.19,.01,1,0)="^.1^^-1"
^DD(58.19,.01,1,2,0)="^^TRIGGER^58.19^2"
^DD(58.19,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(58.19,2,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PSI(58.19,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1) S DIU=X K Y X ^DD(58.19,.01,1,2,1.1) X ^DD(58.19,.01,1,2,1.4)"
^DD(58.19,.01,1,2,1.1)="S X=DIV S X=DIV D DW^%DTC S X=X,Y(1)=X S X=1,Y(2)=X S X=3,X=$E(Y(1),Y(2),X)"
^DD(58.19,.01,1,2,1.4)="S DIH=$S($D(^PSI(58.19,DIV(0),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.19,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.19,.01,1,2,2)="Q"
^DD(58.19,.01,1,2,"%D",0)="^^2^2^2930827^"
^DD(58.19,.01,1,2,"%D",1,0)="This cross-reference sets the DAY OF THE WEEK (58.19,2) from the date"
^DD(58.19,.01,1,2,"%D",2,0)="selected."
^DD(58.19,.01,1,2,"CREATE VALUE")="$E(DAYOFWEEK(#.01),1,3)"
^DD(58.19,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(58.19,.01,1,2,"FIELD")="DAY"
^DD(58.19,.01,1,3,0)="^^TRIGGER^58.19^1"
^DD(58.19,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PSI(58.19,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1)) S DIU=X K Y X ^DD(58.19,.01,1,3,1.1) X ^DD(58.19,.01,1,3,1.4)"
^DD(58.19,.01,1,3,1.1)="S X=DIV S X=$S($D(DUZ):DUZ,1:0) S X=X"
^DD(58.19,.01,1,3,1.4)="S DIH=$S($D(^PSI(58.19,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.19,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.19,.01,1,3,2)="Q"
^DD(58.19,.01,1,3,"%D",0)="^^2^2^2930827^"
^DD(58.19,.01,1,3,"%D",1,0)="This cross-reference sets the field PERSON DOING INVENTORY (58.19,1)"
^DD(58.19,.01,1,3,"%D",2,0)="using the variable DUZ."
^DD(58.19,.01,1,3,"CREATE VALUE")="USER#"
^DD(58.19,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(58.19,.01,1,3,"FIELD")="PERSON"
^DD(58.19,.01,1,4,0)="58.19^B"
^DD(58.19,.01,1,4,1)="S ^PSI(58.19,""B"",$E(X,1,30),DA)="""""
^DD(58.19,.01,1,4,2)="K ^PSI(58.19,""B"",$E(X,1,30),DA)"
^DD(58.19,.01,3)="Enter date/time when inventory of ward(s) was taken."
^DD(58.19,.01,4)=""
^DD(58.19,.01,21,0)="^^4^4^2931206^^^^"
^DD(58.19,.01,21,1,0)="This contains the date that the AOU inventory takes place for Automatic "
^DD(58.19,.01,21,2,0)="Replenishment.  Primary inventory information is stored here."
^DD(58.19,.01,21,3,0)="Inventory entries in File 58.1 - the Pharmacy AOU Stock File point to "
^DD(58.19,.01,21,4,0)="this value when processing an inventory."
^DD(58.19,.01,"DEL",.01,0)="I 1 W !,""INVENTORIES MAY NOT BE DELETED!"""
^DD(58.19,.01,"DT")="2930714"
^DD(58.19,.5,0)="AREA OF USE^58.24PA^^1;0"
^DD(58.19,1,0)="PERSON DOING INVENTORY^RP200'^VA(200,^0;3^Q"
^DD(58.19,1,3)="Enter name of person primarily responsible for this inventory."
^DD(58.19,1,5,1,0)="58.19^.01^3"
^DD(58.19,1,21,0)="^^2^2^2900712^^"
^DD(58.19,1,21,1,0)="This points to File 200 - the New Person File, identifying the person who"
^DD(58.19,1,21,2,0)="creates the inventory."
^DD(58.19,1,"DT")="2900712"
^DD(58.19,2,0)="DAY OF WEEK^S^MON:MONDAY;TUE:TUESDAY;WED:WEDNESDAY;THU:THURSDAY;FRI:FRIDAY;SAT:SATURDAY;SUN:SUNDAY;^0;2^Q"
^DD(58.19,2,3)="Enter day of the week on which the inventory was done."
^DD(58.19,2,5,1,0)="58.19^.01^2"
^DD(58.19,2,9)="^"
^DD(58.19,2,21,0)="^^1^1^2930816^^^"
^DD(58.19,2,21,1,0)="This contains the day of the week when the inventory was done."
^DD(58.19,3,0)="INVENTORY GROUP^F^^0;4^K:$L(X)>25!($L(X)<1) X"
^DD(58.19,3,1,0)="^.1^^0"
^DD(58.19,3,3)="Answer must be 1-25 characters in length"
^DD(58.19,3,21,0)="^^2^2^2871009^"
^DD(58.19,3,21,1,0)="This points to File 58.2 - AOU Inventory Group File.  It contains"
^DD(58.19,3,21,2,0)="the inventory group - cluster of AOUs which are inventoried together."
^DD(58.19,3,"DT")="2900228"
^DD(58.19,"B","AREA OF USE",.5)=""
^DD(58.19,"B","DATE/TIME FOR INVENTORY",.01)=""
^DD(58.19,"B","DAY OF WEEK",2)=""
^DD(58.19,"B","ID",.001)=""
^DD(58.19,"B","INVENTORY GROUP",3)=""
^DD(58.19,"B","PERSON DOING INVENTORY",1)=""
^DD(58.19,"GL",0,1,.01)=""
^DD(58.19,"GL",0,2,2)=""
^DD(58.19,"GL",0,3,1)=""
^DD(58.19,"GL",0,4,3)=""
^DD(58.19,"GL",1,0,.5)=""
^DD(58.19,"IX",.01)=""
^DD(58.19,"RQ",.01)=""
^DD(58.19,"RQ",1)=""
^DD(58.19,"SB",58.24,.5)=""
^DD(58.2,0)="FIELD^^3^4"
^DD(58.2,0,"DT")="2920722"
^DD(58.2,0,"IX","B",58.2,.01)=""
^DD(58.2,0,"IX","CS",58.29,.01)=""
^DD(58.2,0,"IX","WS",58.21,.01)=""
^DD(58.2,0,"NM","AOU INVENTORY GROUP")=""
^DD(58.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP)!(X["","") X"
^DD(58.2,.01,1,0)="^.1"
^DD(58.2,.01,1,1,0)="58.2^B"
^DD(58.2,.01,1,1,1)="S ^PSI(58.2,""B"",$E(X,1,30),DA)="""""
^DD(58.2,.01,1,1,2)="K ^PSI(58.2,""B"",$E(X,1,30),DA)"
^DD(58.2,.01,3)="Name must be 3-30 characters, not numeric or starting with punctuation"
^DD(58.2,.01,21,0)="^^7^7^2890906^^^"
^DD(58.2,.01,21,1,0)="This group name represents the Areas of Use which are inventoried"
^DD(58.2,.01,21,2,0)="together as a ""batch"" or ""cluster"".  This grouping establishes"
^DD(58.2,.01,21,3,0)="the elements of the inventory so that they do not have to be"
^DD(58.2,.01,21,4,0)="redefined every time the inventory is scheduled."
^DD(58.2,.01,21,5,0)="Inventory groups may be established by (1) location, (2) time,"
^DD(58.2,.01,21,6,0)="(3) category or ""type"" of item to be inventoried, or any combination"
^DD(58.2,.01,21,7,0)="of these three."
^DD(58.2,.01,"DT")="2850410"
^DD(58.2,1,0)="AREA OF USE (AOU)^58.21P^^1;0"
^DD(58.2,1,21,0)="^^3^3^2931014^^^^"
^DD(58.2,1,21,1,0)="Enter name of AOU that is to be inventoried when specifying this inventory"
^DD(58.2,1,21,2,0)="group at the time of creating an inventory date.  This is a way to 'group'"
^DD(58.2,1,21,3,0)="commonly inventoried AOUs under an easy to remember inventory group name."
^DD(58.2,2,0)="GROUP DESCRIPTION^58.23^^2;0"
^DD(58.2,2,21,0)="^^3^3^2910304^^^"
^DD(58.2,2,21,1,0)="This text describes the inventory group and its use, and perhaps"
^DD(58.2,2,21,2,0)="the times when normally processed.  This is purely for documentation"
^DD(58.2,2,21,3,0)="of your site specific information."
^DD(58.2,3,0)="NARCOTIC AREA OF USE (NAOU)^58.29P^^3;0"
^DD(58.2,3,21,0)="^^4^4^2940915^^^^"
^DD(58.2,3,21,1,0)="Enter name of NAOU that is to be inventoried when specifying this"
^DD(58.2,3,21,2,0)="inventory group at the time of creating an inventory date.  This is"
^DD(58.2,3,21,3,0)="a way to ""group"" commonly inventoried NAOUs under an easy to remember"
^DD(58.2,3,21,4,0)="inventory group name."
^DD(58.2,"B","AREA OF USE (AOU)",1)=""
^DD(58.2,"B","GROUP DESCRIPTION",2)=""
^DD(58.2,"B","NAME",.01)=""
^DD(58.2,"B","NARCOTIC AREA OF USE (NAOU)",3)=""
^DD(58.2,"GL",0,1,.01)=""
^DD(58.2,"GL",1,0,1)=""
^DD(58.2,"GL",2,0,2)=""
^DD(58.2,"GL",3,0,3)=""
^DD(58.2,"IX",.01)=""
^DD(58.2,"RQ",.01)=""
^DD(58.2,"SB",58.21,1)=""
^DD(58.2,"SB",58.23,2)=""
^DD(58.2,"SB",58.29,3)=""
^DD(58.21,0)="AREA OF USE (AOU) SUB-FIELD^NL^2^3"
^DD(58.21,0,"DT")="2920213"
^DD(58.21,0,"IX","B",58.21,.01)=""
^DD(58.21,0,"IX","D",58.21,2)=""
^DD(58.21,0,"NM","AREA OF USE (AOU)")=""
^DD(58.21,0,"UP")="58.2"
^DD(58.21,.01,0)="AREA OF USE (AOU)^MRP58.1'X^PSI(58.1,^0;1^S:$D(X) DINUM=X"
^DD(58.21,.01,1,0)="^.1"
^DD(58.21,.01,1,1,0)="58.21^B"
^DD(58.21,.01,1,1,1)="S ^PSI(58.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(58.21,.01,1,1,2)="K ^PSI(58.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(58.21,.01,1,2,0)="58.2^WS^MUMPS"
^DD(58.21,.01,1,2,1)="S ^PSI(58.2,""WS"",DA(1),$E(X,1,30))="""""
^DD(58.21,.01,1,2,2)="K ^PSI(58.2,""WS"",DA(1),$E(X,1,30))"
^DD(58.21,.01,1,2,"%D",0)="^^4^4^2920220^"
^DD(58.21,.01,1,2,"%D",1,0)="This cross-reference is used to distinguish between inventory groups"
^DD(58.21,.01,1,2,"%D",2,0)="that belong to the AR/WS module and those belonging to the CS module."
^DD(58.21,.01,1,2,"%D",3,0)="This cross-reference will identify AR/WS inventory groups and will be"
^DD(58.21,.01,1,2,"%D",4,0)="used for lookup and sorting."
^DD(58.21,.01,1,2,"DT")="2920220"
^DD(58.21,.01,3)="Enter the AOU for this inventory group."
^DD(58.21,.01,21,0)="^^2^2^2931014^^^^"
^DD(58.21,.01,21,1,0)="This contains the name of the AOU that is to be inventoried when selecting "
^DD(58.21,.01,21,2,0)="this inventory group.  This points to File 58.1 - Pharmacy AOU Stock File."
^DD(58.21,.01,"DT")="2920220"
^DD(58.21,1,0)="INVENTORY TYPE^58.22PA^^1;0"
^DD(58.21,2,0)="SORT KEY^NJ15,4^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(58.21,2,1,0)="^.1"
^DD(58.21,2,1,1,0)="58.21^D"
^DD(58.21,2,1,1,1)="S ^PSI(58.2,DA(1),1,""D"",$E(X,1,30),DA)="""""
^DD(58.21,2,1,1,2)="K ^PSI(58.2,DA(1),1,""D"",$E(X,1,30),DA)"
^DD(58.21,2,3)="Type a Number between 0 and 9999999999, 4 Decimal Digits"
^DD(58.21,2,21,0)="^^2^2^2871009^^"
^DD(58.21,2,21,1,0)="The sort key is used to define the sort order of AOUs within an "
^DD(58.21,2,21,2,0)="inventory group."
^DD(58.21,2,"DT")="2891102"
^DD(58.21,"B","AREA OF USE (AOU)",.01)=""
^DD(58.21,"B","INVENTORY TYPE",1)=""
^DD(58.21,"B","SORT KEY",2)=""
^DD(58.21,"GL",0,1,.01)=""
^DD(58.21,"GL",0,2,2)=""
^DD(58.21,"GL",1,0,1)=""
^DD(58.21,"IX",.01)=""
^DD(58.21,"IX",2)=""
^DD(58.21,"RQ",.01)=""
^DD(58.21,"SB",58.22,1)=""
^DD(58.22,0)="INVENTORY TYPE SUB-FIELD^NL^.01^1"
^DD(58.22,0,"DT")="2920213"
^DD(58.22,0,"NM","INVENTORY TYPE")=""
^DD(58.22,0,"UP")="58.21"
^DD(58.22,.01,0)="INVENTORY TYPE^MRP58.16'X^PSI(58.16,^0;1^S:$D(X) DINUM=X"
^DD(58.22,.01,3)="Enter the inventory type(s) for this AOU."
^DD(58.22,.01,21,0)="^^3^3^2931014^^^"
^DD(58.22,.01,21,1,0)="This contains the inventory type that is to be inventoried within"
^DD(58.22,.01,21,2,0)="the AOU.  More than one inventory type can be entered.  The inventory"
^DD(58.22,.01,21,3,0)="types must have been defined in File 58.16 - AOU Inventory Type File."
^DD(58.22,.01,"DT")="2920213"
^DD(58.22,"B","INVENTORY TYPE",.01)=""
^DD(58.22,"GL",0,1,.01)=""
^DD(58.22,"RQ",.01)=""
^DD(58.23,0)="GROUP DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(58.23,0,"NM","GROUP DESCRIPTION")=""
^DD(58.23,0,"UP")="58.2"
^DD(58.23,.01,0)="GROUP DESCRIPTION^W^^0;1^Q"
^DD(58.23,.01,21,0)="^^3^3^2910304^"
^DD(58.23,.01,21,1,0)="This text describes the inventory group and its use, and perhaps"
^DD(58.23,.01,21,2,0)="the times when normally processed.  This is purely for documentation"
^DD(58.23,.01,21,3,0)="of your site specific information."
^DD(58.23,"B","GROUP DESCRIPTION",.01)=""
^DD(58.23,"GL",0,1,.01)=""
^DD(58.24,0)="AREA OF USE SUB-FIELD^NL^2^3"
^DD(58.24,0,"IX","B",58.24,.01)=""
^DD(58.24,0,"IX","C",58.24,2)=""
^DD(58.24,0,"NM","AREA OF USE")=""
^DD(58.24,0,"UP")="58.19"
^DD(58.24,.01,0)="AREA OF USE (AOU)^MRP58.1'X^PSI(58.1,^0;1^S:$D(X) DINUM=X"
^DD(58.24,.01,1,0)="^.1"
^DD(58.24,.01,1,1,0)="58.24^B"
^DD(58.24,.01,1,1,1)="S ^PSI(58.19,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(58.24,.01,1,1,2)="K ^PSI(58.19,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(58.24,.01,21,0)="^^2^2^2900129^^^^"
^DD(58.24,.01,21,1,0)="This contains the name of the Area of Use as defined in File 58.1 -"
^DD(58.24,.01,21,2,0)="Pharmacy AOU Stock File."
^DD(58.24,.01,"DT")="2900213"
^DD(58.24,1,0)="INVENTORY TYPE^58.25PA^^1;0"
^DD(58.24,2,0)="SORT KEY^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.24,2,1,0)="^.1"
^DD(58.24,2,1,1,0)="58.24^C"
^DD(58.24,2,1,1,1)="S ^PSI(58.19,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(58.24,2,1,1,2)="K ^PSI(58.19,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(58.24,2,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(58.24,2,21,0)="^^3^3^2871009^"
^DD(58.24,2,21,1,0)="The sort key is used to place the AOUs within an Inventory Group"
^DD(58.24,2,21,2,0)="in the order in which they are inventoried.  This sort order is"
^DD(58.24,2,21,3,0)="reflected in the inventory sheet."
^DD(58.24,2,"DT")="2891031"
^DD(58.24,"B","AREA OF USE (AOU)",.01)=""
^DD(58.24,"B","INVENTORY TYPE",1)=""
^DD(58.24,"B","SORT KEY",2)=""
^DD(58.24,"GL",0,1,.01)=""
^DD(58.24,"GL",0,2,2)=""
^DD(58.24,"GL",1,0,1)=""
^DD(58.24,"IX",.01)=""
^DD(58.24,"IX",2)=""
^DD(58.24,"RQ",.01)=""
^DD(58.24,"SB",58.25,1)=""
^DD(58.25,0)="INVENTORY TYPE SUB-FIELD^NL^.01^1"
^DD(58.25,0,"NM","INVENTORY TYPE")=""
^DD(58.25,0,"UP")="58.24"
^DD(58.25,.01,0)="INVENTORY TYPE^MRP58.16'X^PSI(58.16,^0;1^S:$D(X) DINUM=X"
^DD(58.25,.01,1,0)="^.1^^0"
^DD(58.25,.01,21,0)="^^2^2^2871009^^"
^DD(58.25,.01,21,1,0)="This defines the Inventory Type which will be used to select the appropriate"
^DD(58.25,.01,21,2,0)="items from this AOU for inventory."
^DD(58.25,.01,"DT")="2900213"
^DD(58.25,"B","INVENTORY TYPE",.01)=""
^DD(58.25,"GL",0,1,.01)=""
^DD(58.25,"RQ",.01)=""
^DD(58.26,0)="WARD (FOR ITEM) SUB-FIELD^NL^.01^1"
^DD(58.26,0,"NM","WARD (FOR ITEM)")=""
^DD(58.26,0,"UP")="58.11"
^DD(58.26,.01,0)="WARD (FOR ITEM)^MP42'X^DIC(42,^0;1^S:$D(X) DINUM=X"
^DD(58.26,.01,1,0)="^.1"
^DD(58.26,.01,1,1,0)="58.1^D^MUMPS"
^DD(58.26,.01,1,1,1)="I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) D INACT^PSGWUTL I $D(PSGWFLG) S ^PSI(58.1,""D"",+^(0),DA,DA(2))="""" K PSGWFLG"
^DD(58.26,.01,1,1,2)="I $D(^PSI(58.1,DA(2),1,DA(1),0)),^(0) K ^PSI(58.1,""D"",+^(0),DA,DA(2))"
^DD(58.26,.01,1,1,"%D",0)="^^3^3^2930811^"
^DD(58.26,.01,1,1,"%D",1,0)="This cross-reference is used by the UNIT DOSE package to identify items"
^DD(58.26,.01,1,1,"%D",2,0)="on the UD pick list that are Ward Stock items. It is also used by the"
^DD(58.26,.01,1,1,"%D",3,0)="option ""Ward (For Item) Conversion""."
^DD(58.26,.01,3)="Enter the ward which uses this item."
^DD(58.26,.01,21,0)="^^4^4^2880224^^^^"
^DD(58.26,.01,21,1,0)="This contains the pointer to File 42 - Ward Location File."
^DD(58.26,.01,21,2,0)="Names of the ward or wards using this item will be entered."
^DD(58.26,.01,21,3,0)="This is the link between the AR/WS package and the Unit Dose"
^DD(58.26,.01,21,4,0)="package for determining ward stocked items."
^DD(58.26,.01,"DT")="2900213"
^DD(58.26,"B","WARD (FOR ITEM)",.01)=""
^DD(58.26,"GL",0,1,.01)=""
^DD(58.26,"IX",.01)=""
^DD(58.27,0)="SERVICE SUB-FIELD^NL^1^2"
^DD(58.27,0,"NM","SERVICE")=""
^DD(58.27,0,"UP")="58.14"
^DD(58.27,.01,0)="SERVICE^MP42.4'^DIC(42.4,^0;1^Q"
^DD(58.27,.01,3)="Enter the name of the service that makes up this ward/location."
^DD(58.27,.01,21,0)="^^3^3^2910304^^^^"
^DD(58.27,.01,21,1,0)="This points to File 42.4 - the Specialty file."
^DD(58.27,.01,21,2,0)="It contains the service (or services) served partially or totally"
^DD(58.27,.01,21,3,0)="by this ward/location."
^DD(58.27,.01,"DT")="2850812"
^DD(58.27,1,0)="SERVICE % OF USE^NJ3,0^^0;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.27,1,3)="Type a whole number between 1 and 100"
^DD(58.27,1,21,0)="^^2^2^2900827^^^^"
^DD(58.27,1,21,1,0)="This contains the percentage of use for this service. For example 40 beds "
^DD(58.27,1,21,2,0)="out of 100 on the ward would be 40%."
^DD(58.27,1,"DT")="2850812"
^DD(58.27,"B","SERVICE",.01)=""
^DD(58.27,"B","SERVICE % OF USE",1)=""
^DD(58.27,"GL",0,1,.01)=""
^DD(58.27,"GL",0,2,1)=""
^DD(58.28,0)="ON-DEMAND REQUEST DATE/TIME SUB-FIELD^NL^5^6"
^DD(58.28,0,"IX","AMIS",58.28,1)=""
^DD(58.28,0,"IX","AMISERR",58.28,1)=""
^DD(58.28,0,"NM","ON-DEMAND REQUEST DATE/TIME")=""
^DD(58.28,0,"UP")="58.11"
^DD(58.28,.01,0)="ON-DEMAND REQUEST DATE/TIME^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.28,.01,1,0)="^.1"
^DD(58.28,.01,1,1,0)="58.1^OND"
^DD(58.28,.01,1,1,1)="S ^PSI(58.1,""OND"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(58.28,.01,1,1,2)="K ^PSI(58.1,""OND"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(58.28,.01,3)="Enter the Date/Time for the On-Demand Request"
^DD(58.28,.01,21,0)="^^2^2^2930714^"
^DD(58.28,.01,21,1,0)="This contains the DATE/TIME of the request for an item which is not"
^DD(58.28,.01,21,2,0)="currently a standard stocked item in the Area of Use."
^DD(58.28,.01,"DT")="2900703"
^DD(58.28,1,0)="ON-DEMAND QUANTITY DISPENSED^NJ4,0X^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X D:$D(X) OND^PSGWUTL"
^DD(58.28,1,.1)="ON-DEMAND QUANTITY"
^DD(58.28,1,1,0)="^.1"
^DD(58.28,1,1,1,0)="58.28^AMIS^MUMPS"
^DD(58.28,1,1,1,1)="Q:$D(PSGWV)  D OD^PSGWUTL"
^DD(58.28,1,1,1,2)="Q:$D(PSGWV)  D KOD^PSGWUTL"
^DD(58.28,1,1,1,"%D",0)="^^5^5^2930827^"
^DD(58.28,1,1,1,"%D",1,0)="This cross-reference is set everytime a quantity greater than zero is "
^DD(58.28,1,1,1,"%D",2,0)="dispensed for an On-Demand Request for a stock item. The nightly job"
^DD(58.28,1,1,1,"%D",3,0)="""Update AMIS Stats File"" will process this cross-reference and store"
^DD(58.28,1,1,1,"%D",4,0)="the data in the AR/WS Stats File (58.5). After the cross-reference is"
^DD(58.28,1,1,1,"%D",5,0)="processed, it is deleted."
^DD(58.28,1,1,2,0)="58.28^AMISERR^MUMPS"
^DD(58.28,1,1,2,1)="Q:$D(PSGWV)  D ODERR^PSGWUTL"
^DD(58.28,1,1,2,2)="Q:$D(PSGWV)  D KODERR^PSGWUTL"
^DD(58.28,1,1,2,"%D",0)="^^5^5^2930827^"
^DD(58.28,1,1,2,"%D",1,0)="This cross-reference is set by the nightly job ""Update AMIS Stats File"""
^DD(58.28,1,1,2,"%D",2,0)="if an AMIS transaction is found to have invalid or missing Inpatient Site"
^DD(58.28,1,1,2,"%D",3,0)="data. Existence of this cross-reference will cause a MailMan message to"
^DD(58.28,1,1,2,"%D",4,0)="be sent to holders of the PSGWMGR security key informing them of the "
^DD(58.28,1,1,2,"%D",5,0)="invalid or missing data."
^DD(58.28,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits."
^DD(58.28,1,21,0)="^^1^1^2920708^^^^"
^DD(58.28,1,21,1,0)="This contains the quantity dispensed for the on-demand request."
^DD(58.28,1,"DT")="2910228"
^DD(58.28,2,0)="ON-DEMAND REQUEST ENTERED BY^RP200'^VA(200,^0;3^Q"
^DD(58.28,2,.1)="REQUEST ENTERED BY:"
^DD(58.28,2,3)="Enter the name of the original user for this request."
^DD(58.28,2,21,0)="^^2^2^2900712^^^^"
^DD(58.28,2,21,1,0)="This points to File 200 - the New Person File.  It contains the pointer number"
^DD(58.28,2,21,2,0)="of the person who has entered the on-demand request."
^DD(58.28,2,"DT")="2900712"
^DD(58.28,3,0)="COMPILED INTO AMIS?^S^1:YES;0:NO;^0;4^Q"
^DD(58.28,3,.1)="COMPILED FLAG"
^DD(58.28,3,21,0)="^^5^5^2910221^^^^"
^DD(58.28,3,21,1,0)="A TaskMan background routine ^PSGWUAS (option PSGW UPDATE AMIS STATS) runs"
^DD(58.28,3,21,2,0)="each night.  As the data for an on-demand transaction is completed, this"
^DD(58.28,3,21,3,0)="""COMPILED FLAG"" will be set to ""1"".  This will enable the cross-reference"
^DD(58.28,3,21,4,0)="^PSI(58.5,""AMIS"") to be recompiled via the option PSGW RE-INDEX AMIS or"
^DD(58.28,3,21,5,0)="via VA FileMan should the need arise."
^DD(58.28,3,"DT")="2880126"
^DD(58.28,4,0)="ON-DEMAND REQUEST EDITED BY^P200'^VA(200,^0;5^Q"
^DD(58.28,4,.1)="LAST EDITED BY:"
^DD(58.28,4,3)="Enter the name of the person who last edited this request."
^DD(58.28,4,21,0)="^^2^2^2900712^^^^"
^DD(58.28,4,21,1,0)="This points to file #200 (New Person file).  It contains the pointer number to "
^DD(58.28,4,21,2,0)="the user who LAST EDITED this request."
^DD(58.28,4,"DT")="2900712"
^DD(58.28,5,0)="DATE/TIME LAST EDITED^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.28,5,21,0)="^^1^1^2890531^"
^DD(58.28,5,21,1,0)="This field contains the date/time this on-demand request was last edited."
^DD(58.28,5,"DT")="2881027"
^DD(58.28,"B","COMPILED FLAG",3)="1"
^DD(58.28,"B","COMPILED INTO AMIS?",3)=""
^DD(58.28,"B","DATE/TIME LAST EDITED",5)=""
^DD(58.28,"B","LAST EDITED BY:",4)="1"
^DD(58.28,"B","ON-DEMAND QUANTITY",1)="1"
^DD(58.28,"B","ON-DEMAND QUANTITY DISPENSED",1)=""
^DD(58.28,"B","ON-DEMAND REQUEST DATE/TIME",.01)=""
^DD(58.28,"B","ON-DEMAND REQUEST EDITED BY",4)=""
^DD(58.28,"B","ON-DEMAND REQUEST ENTERED BY",2)=""
^DD(58.28,"B","REQUEST ENTERED BY:",2)="1"
^DD(58.28,"GL",0,1,.01)=""
^DD(58.28,"GL",0,2,1)=""
^DD(58.28,"GL",0,3,2)=""
^DD(58.28,"GL",0,4,3)=""
^DD(58.28,"GL",0,5,4)=""
^DD(58.28,"GL",0,6,5)=""
^DD(58.28,"IX",.01)=""
^DD(58.28,"IX",1)=""
^DD(58.28,"RQ",2)=""
^DD(58.29,0)="NARCOTIC AREA OF USE (NAOU) SUB-FIELD^^2^3"
^DD(58.29,0,"DT")="2920722"
^DD(58.29,0,"IX","B",58.29,.01)=""
^DD(58.29,0,"IX","D",58.29,2)=""
^DD(58.29,0,"NM","NARCOTIC AREA OF USE (NAOU)")=""
^DD(58.29,0,"UP")="58.2"
^DD(58.29,.01,0)="NARCOTIC AREA OF USE (NAOU)^MR*P58.8'X^PSD(58.8,^0;1^S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",2)'=""""P"""",$P(^(0),""""^"""",3)=+PSDSITE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(58.29,.01,1,0)="^.1"
^DD(58.29,.01,1,1,0)="58.29^B"
^DD(58.29,.01,1,1,1)="S ^PSI(58.2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(58.29,.01,1,1,2)="K ^PSI(58.2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(58.29,.01,1,2,0)="58.2^CS^MUMPS"
^DD(58.29,.01,1,2,1)="S ^PSI(58.2,""CS"",DA(1),$E(X,1,30))="""""
^DD(58.29,.01,1,2,2)="K ^PSI(58.2,""CS"",DA(1),$E(X,1,30))"
^DD(58.29,.01,1,2,3)="DO NOT DELETE"
^DD(58.29,.01,1,2,"%D",0)="^^4^4^2940915^^"
^DD(58.29,.01,1,2,"%D",1,0)="This cross-reference is used to distinguish between inventory groups"
^DD(58.29,.01,1,2,"%D",2,0)="that belong to the AR/WS module and those belonging to the CS module."
^DD(58.29,.01,1,2,"%D",3,0)="This cross-reference will identify CS inventory groups and will be"
^DD(58.29,.01,1,2,"%D",4,0)="used for lookup and sorting."
^DD(58.29,.01,1,2,"DT")="2920220"
^DD(58.29,.01,3)="Enter the NAOU for this inventory group."
^DD(58.29,.01,12)="Select only Controlled Substances locations."
^DD(58.29,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)'=""""P"""",$P(^(0),""""^"""",3)=+PSDSITE"""
^DD(58.29,.01,21,0)="^^3^3^2941027^^^^"
^DD(58.29,.01,21,1,0)="This contains the name of the NAOU that is to be inventoried when"
^DD(58.29,.01,21,2,0)="selecting this inventory group.  This points to File 58.8 - DRUG"
^DD(58.29,.01,21,3,0)="ACCOUNTABILITY STATS file."
^DD(58.29,.01,23,0)="^^2^2^2940920^^^^"
^DD(58.29,.01,23,1,0)="Screened pointer to File 58.8 - DRUG ACCOUNTABILITY STATS file.  Screens"
^DD(58.29,.01,23,2,0)="out entries with type defined as ""P"" for Primary."
^DD(58.29,.01,"DT")="2920910"
^DD(58.29,1,0)="INVENTORY TYPE^58.291PA^^1;0"
^DD(58.29,1,21,0)="^^2^2^2931109^^"
^DD(58.29,1,21,1,0)="Inventory types are used to group related drugs in a Narcotic Area of"
^DD(58.29,1,21,2,0)="Use."
^DD(58.29,2,0)="SORT KEY^NJ15,4^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(58.29,2,1,0)="^.1"
^DD(58.29,2,1,1,0)="58.29^D"
^DD(58.29,2,1,1,1)="S ^PSI(58.2,DA(1),3,""D"",$E(X,1,30),DA)="""""
^DD(58.29,2,1,1,2)="K ^PSI(58.2,DA(1),3,""D"",$E(X,1,30),DA)"
^DD(58.29,2,1,1,"DT")="2920213"
^DD(58.29,2,3)="Type a Number between 0 and 9999999999, 4 Decimal Digits"
^DD(58.29,2,21,0)="^^2^2^2920213^"
^DD(58.29,2,21,1,0)="The sort key is used to define the sort order of NAOUs within an"
^DD(58.29,2,21,2,0)="inventory group."
^DD(58.29,2,"DT")="2920213"
^DD(58.29,"B","INVENTORY TYPE",1)=""
^DD(58.29,"B","NARCOTIC AREA OF USE (NAOU)",.01)=""
^DD(58.29,"B","SORT KEY",2)=""
^DD(58.29,"GL",0,1,.01)=""
^DD(58.29,"GL",0,2,2)=""
^DD(58.29,"GL",1,0,1)=""
^DD(58.29,"IX",.01)=""
^DD(58.29,"IX",2)=""
^DD(58.29,"RQ",.01)=""
^DD(58.29,"SB",58.291,1)=""
^DD(58.291,0)="INVENTORY TYPE SUB-FIELD^^.01^1"
^DD(58.291,0,"DT")="2920213"
^DD(58.291,0,"NM","INVENTORY TYPE")=""
^DD(58.291,0,"UP")="58.29"
^DD(58.291,.01,0)="INVENTORY TYPE^MRP58.16'X^PSI(58.16,^0;1^S:$D(X) DINUM=X"
^DD(58.291,.01,1,0)="^.1^^0"
^DD(58.291,.01,3)="Enter the inventory types for this NAOU."
^DD(58.291,.01,21,0)="^^3^3^2940915^^"
^DD(58.291,.01,21,1,0)="This contains the inventory type that is to be inventoried within the"
^DD(58.291,.01,21,2,0)="NAOU.  More than one inventory type can be entered.  The inventory"
^DD(58.291,.01,21,3,0)="types must be defined in File 58.16 - AOU INVENTORY TYPE file."
^DD(58.291,.01,23,0)="^^1^1^2940915^^"
^DD(58.291,.01,23,1,0)="Pointer to File 58.16 - AOU INVENTORY TYPE file."
^DD(58.291,.01,"DT")="2920213"
^DD(58.291,"B","INVENTORY TYPE",.01)=""
^DD(58.291,"GL",0,1,.01)=""
^DD(58.291,"RQ",.01)=""
^DD(58.3,0)="FIELD^^1^2"
^DD(58.3,0,"IX","B",58.3,.01)=""
^DD(58.3,0,"IX","C",58.31,.01)=""
^DD(58.3,0,"IX","D",58.32,.01)=""
^DD(58.3,0,"NM","PHARMACY BACKORDER")=""
^DD(58.3,.01,0)="ITEM^RP50'^PSDRUG(^0;1^Q"
^DD(58.3,.01,1,0)="^.1^^-1"
^DD(58.3,.01,1,1,0)="58.3^B"
^DD(58.3,.01,1,1,1)="S ^PSI(58.3,""B"",$E(X,1,30),DA)="""""
^DD(58.3,.01,1,1,2)="K ^PSI(58.3,""B"",$E(X,1,30),DA)"
^DD(58.3,.01,3)=""
^DD(58.3,.01,21,0)="^^1^1^2890906^^^^"
^DD(58.3,.01,21,1,0)="This contains the name of the item being backordered."
^DD(58.3,.01,"DT")="2850305"
^DD(58.3,1,0)="AOU^58.31PA^^1;0"
^DD(58.3,1,21,0)="^^1^1^2841220^^"
^DD(58.3,1,21,1,0)=" Enter the name of the Area Of Use for which the item has been backordered"
^DD(58.3,"B","AOU",1)=""
^DD(58.3,"B","ITEM",.01)=""
^DD(58.3,"GL",0,1,.01)=""
^DD(58.3,"GL",1,0,1)=""
^DD(58.3,"IX",.01)=""
^DD(58.3,"RQ",.01)=""
^DD(58.3,"SB",58.31,1)=""
^DD(58.31,0)="AOU SUB-FIELD^NL^1^2"
^DD(58.31,0,"NM","AOU")=""
^DD(58.31,0,"UP")="58.3"
^DD(58.31,.01,0)="AOU^MP58.1'X^PSI(58.1,^0;1^S:$D(X) DINUM=X"
^DD(58.31,.01,1,0)="^.1"
^DD(58.31,.01,1,1,0)="58.3^C"
^DD(58.31,.01,1,1,1)="S ^PSI(58.3,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(58.31,.01,1,1,2)="K ^PSI(58.3,""C"",$E(X,1,30),DA(1),DA)"
^DD(58.31,.01,3)="Enter Area of Use for item being backordered."
^DD(58.31,.01,21,0)="^^2^2^2890906^^^^"
^DD(58.31,.01,21,1,0)="This contains the name of the Area of Use for which the item is being"
^DD(58.31,.01,21,2,0)="backordered."
^DD(58.31,.01,"DT")="2900213"
^DD(58.31,1,0)="DATE/TIME FOR BACKORDER^58.32D^^1;0"
^DD(58.31,1,21,0)="^^1^1^2841220^^"
^DD(58.31,1,21,1,0)=" Enter the inventory date/time for the item being backordered."
^DD(58.31,"B","AOU",.01)=""
^DD(58.31,"B","DATE/TIME FOR BACKORDER",1)=""
^DD(58.31,"GL",0,1,.01)=""
^DD(58.31,"GL",1,0,1)=""
^DD(58.31,"IX",.01)=""
^DD(58.31,"SB",58.32,1)=""
^DD(58.32,0)="DATE/TIME FOR BACKORDER SUB-FIELD^NL^4^5"
^DD(58.32,0,"NM","DATE/TIME FOR BACKORDER")=""
^DD(58.32,0,"UP")="58.31"
^DD(58.32,.01,0)="DATE/TIME FOR BACKORDER^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(58.32,.01,1,0)="^.1"
^DD(58.32,.01,1,1,0)="58.3^D"
^DD(58.32,.01,1,1,1)="S ^PSI(58.3,""D"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(58.32,.01,1,1,2)="K ^PSI(58.3,""D"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(58.32,.01,3)="Enter DATE/TIME for this backorder."
^DD(58.32,.01,21,0)="^^1^1^2881129^^^^"
^DD(58.32,.01,21,1,0)="This contains the backorder date/time for the item being backordered."
^DD(58.32,.01,"DT")="2881129"
^DD(58.32,1,0)="CURRENT BACKORDER^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.32,1,1,0)="^.1"
^DD(58.32,1,1,1,0)="^^TRIGGER^58.32^2"
^DD(58.32,1,1,1,1)="X ^DD(58.32,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PSI(58.3,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3) S DIU=X K Y S X=DIV S X=DIV X ^DD(58.32,1,1,1,1.4)"
^DD(58.32,1,1,1,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^PSI(58.3,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""""
^DD(58.32,1,1,1,1.4)="S DIH=$S($D(^PSI(58.3,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=58.32,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(58.32,1,1,1,2)="Q"
^DD(58.32,1,1,1,"%D",0)="^^2^2^2930827^"
^DD(58.32,1,1,1,"%D",1,0)="This cross-reference sets the field ORIGINAL BACKORDER (58.32,2). This"
^DD(58.32,1,1,1,"%D",2,0)="trigger is only executed when a backorder is first entered."
^DD(58.32,1,1,1,"CREATE CONDITION")="ORIGINAL BACKORDER="""""
^DD(58.32,1,1,1,"CREATE VALUE")="CURRENT BACKORDER"
^DD(58.32,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(58.32,1,1,1,"FIELD")="ORIGINAL"
^DD(58.32,1,3)="Type a whole number between 0 and 999999"
^DD(58.32,1,21,0)="^^2^2^2871009^^^"
^DD(58.32,1,21,1,0)="This contains the quantity backordered (Amount to be dispensed - "
^DD(58.32,1,21,2,0)="Actual Dispensed)."
^DD(58.32,1,"DT")="2850719"
^DD(58.32,2,0)="ORIGINAL BACKORDER^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.32,2,3)="Type a whole number between 0 and 999999"
^DD(58.32,2,5,1,0)="58.32^1^1"
^DD(58.32,2,21,0)="^^2^2^2871009^"
^DD(58.32,2,21,1,0)="If the backorder quantity is partially filled, this stores the amount"
^DD(58.32,2,21,2,0)="of the original backorder."
^DD(58.32,2,"DT")="2850110"
^DD(58.32,3,0)="DATE OF LAST CHG^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(58.32,3,21,0)="^^2^2^2871009^"
^DD(58.32,3,21,1,0)="This identifies the date that the backorder quantity was edited"
^DD(58.32,3,21,2,0)="or partially filled."
^DD(58.32,3,"DT")="2850110"
^DD(58.32,4,0)="DATE FILLED^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(58.32,4,1,0)="^.1^^0"
^DD(58.32,4,21,0)="^^2^2^2871009^"
^DD(58.32,4,21,1,0)="This identifies the date that the backorder quantity was completely"
^DD(58.32,4,21,2,0)="filled."
^DD(58.32,4,"DT")="2870817"
^DD(58.32,"B","CURRENT BACKORDER",1)=""
^DD(58.32,"B","DATE FILLED",4)=""
^DD(58.32,"B","DATE OF LAST CHG",3)=""
^DD(58.32,"B","DATE/TIME FOR BACKORDER",.01)=""
^DD(58.32,"B","ORIGINAL BACKORDER",2)=""
^DD(58.32,"GL",0,1,.01)=""
^DD(58.32,"GL",0,2,1)=""
^DD(58.32,"GL",0,3,2)=""
^DD(58.32,"GL",0,4,3)=""
^DD(58.32,"GL",0,5,4)=""
^DD(58.32,"IX",.01)=""
^DD(58.32,"IX",1)=""
^DD(58.5,0)="FIELD^^1^2"
^DD(58.5,0,"IX","AEX",58.52,2)=""
^DD(58.5,0,"IX","B",58.5,.01)=""
^DD(58.5,0,"IX","D",58.52,.01)=""
^DD(58.5,0,"NM","AR/WS STATS FILE")=""
^DD(58.5,0,"VR")="2.3"
^DD(58.5,0,"VRPK")="PSGW"
^DD(58.5,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(58.5,.01,1,0)="^.1^^-1"
^DD(58.5,.01,1,1,0)="58.5^B"
^DD(58.5,.01,1,1,1)="S ^PSI(58.5,""B"",$E(X,1,30),DA)="""""
^DD(58.5,.01,1,1,2)="K ^PSI(58.5,""B"",$E(X,1,30),DA)"
^DD(58.5,.01,3)=""
^DD(58.5,.01,21,0)="^^1^1^2890619^^"
^DD(58.5,.01,21,1,0)="This contains the date for which AMIS data is collected."
^DD(58.5,.01,"DT")="2900302"
^DD(58.5,1,0)="INPATIENT SITE^58.501PA^^S;0"
^DD(58.5,1,12)="Enter only sites that are selectable for AR/WS."
^DD(58.5,1,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",26)"""
^DD(58.5,"B","DATE",.01)=""
^DD(58.5,"B","INPATIENT SITE",1)=""
^DD(58.5,"GL",0,1,.01)=""
^DD(58.5,"GL","S",0,1)=""
^DD(58.5,"IX",.01)=""
^DD(58.5,"RQ",.01)=""
^DD(58.5,"SB",58.501,1)=""
^DD(58.501,0)="INPATIENT SITE SUB-FIELD^^2^3"
^DD(58.501,0,"IX","B",58.501,.01)=""
^DD(58.501,0,"NM","INPATIENT SITE")=""
^DD(58.501,0,"UP")="58.5"
^DD(58.501,.01,0)="INPATIENT SITE^R*P59.4'X^PS(59.4,^0;1^S DIC(""S"")=""I $P(^(0),""""^"""",26)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(58.501,.01,1,0)="^.1"
^DD(58.501,.01,1,1,0)="58.501^B"
^DD(58.501,.01,1,1,1)="S ^PSI(58.5,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(58.501,.01,1,1,2)="K ^PSI(58.5,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(58.501,.01,12)="Enter only sites that are selectable for AR/WS."
^DD(58.501,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",26)"""
^DD(58.501,.01,21,0)="^^2^2^2890619^^^^"
^DD(58.501,.01,21,1,0)="This field contains the pointer to the INPATIENT SITE file (#59.4) for"
^DD(58.501,.01,21,2,0)="which the AMIS data is collected."
^DD(58.501,1,0)="AMIS^58.51S^^AMIS;0"
^DD(58.501,2,0)="RECALCULATE AMIS^58.52P^^DRG;0"
^DD(58.501,"B","AMIS",1)=""
^DD(58.501,"B","INPATIENT SITE",.01)=""
^DD(58.501,"B","RECALCULATE AMIS",2)=""
^DD(58.501,"GL",0,1,.01)=""
^DD(58.501,"GL","AMIS",0,1)=""
^DD(58.501,"GL","DRG",0,2)=""
^DD(58.501,"IX",.01)=""
^DD(58.501,"RQ",.01)=""
^DD(58.501,"SB",58.51,1)=""
^DD(58.501,"SB",58.52,2)=""
^DD(58.51,0)="AMIS SUB-FIELD^^4^5"
^DD(58.51,0,"IX","FLD",58.51,.01)=""
^DD(58.51,0,"NM","AMIS")=""
^DD(58.51,0,"UP")="58.501"
^DD(58.51,.01,0)="AMIS FIELD^MS^03:FIELD 03;04:FIELD 04;06:FIELD 06;07:FIELD 07;17:FIELD 17;22:FIELD 22;^0;1^Q"
^DD(58.51,.01,1,0)="^.1"
^DD(58.51,.01,1,1,0)="58.51^FLD"
^DD(58.51,.01,1,1,1)="S ^PSI(58.5,DA(2),""S"",DA(1),""AMIS"",""FLD"",$E(X,1,30),DA)="""""
^DD(58.51,.01,1,1,2)="K ^PSI(58.5,DA(2),""S"",DA(1),""AMIS"",""FLD"",$E(X,1,30),DA)"
^DD(58.51,.01,21,0)="^^2^2^2890619^^^^"
^DD(58.51,.01,21,1,0)="AMIS FIELD identifies which field is to be credited for AMIS purposes.  "
^DD(58.51,.01,21,2,0)="These fields will be ""03"", ""04"", ""06"", ""07"", ""17"", or ""22""."
^DD(58.51,1,0)="DOSES DISPENSED^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(58.51,1,3)="Type a Number between -9999999 and 9999999, 0 Decimal Digits"
^DD(58.51,1,21,0)="^^1^1^2900227^^^"
^DD(58.51,1,21,1,0)="DOSES DISPENSED = QUANTITY DISPENSED * AMIS CONVERSION NUMBER"
^DD(58.51,1,"DT")="2900227"
^DD(58.51,2,0)="DISPENSED COST^NJ14,6^^0;3^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""7N.N) X"
^DD(58.51,2,3)="Type a Number between -9999999 and 9999999, 6 Decimal Digits"
^DD(58.51,2,21,0)="^^1^1^2890619^^"
^DD(58.51,2,21,1,0)="DISPENSED COST = QUANTITY DISPENSED * PRICE PER DISPENSE UNIT."
^DD(58.51,2,"DT")="2891102"
^DD(58.51,3,0)="DOSES RETURNED^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.51,3,3)="Type a whole number between 1 and 999999"
^DD(58.51,3,21,0)="^^1^1^2890619^^"
^DD(58.51,3,21,1,0)="DOSES RETURNED = QUANTITY RETURNED * AMIS CONVERSION NUMBER"
^DD(58.51,4,0)="RETURNS COST^NJ14,6^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""7N.N) X"
^DD(58.51,4,3)="Type a Number between 0 and 9999999, 6 Decimal Digits"
^DD(58.51,4,21,0)="^^1^1^2890705^^^"
^DD(58.51,4,21,1,0)="RETURNS COST = QUANTITY RETURNED * PRICE PER DISPENSE UNIT"
^DD(58.51,4,"DT")="2891102"
^DD(58.51,"B","AMIS FIELD",.01)=""
^DD(58.51,"B","DISPENSED COST",2)=""
^DD(58.51,"B","DOSES DISPENSED",1)=""
^DD(58.51,"B","DOSES RETURNED",3)=""
^DD(58.51,"B","RETURNS COST",4)=""
^DD(58.51,"GL",0,1,.01)=""
^DD(58.51,"GL",0,2,1)=""
^DD(58.51,"GL",0,3,2)=""
^DD(58.51,"GL",0,4,3)=""
^DD(58.51,"GL",0,5,4)=""
^DD(58.51,"IX",.01)=""
^DD(58.52,0)="RECALCULATE AMIS SUB-FIELD^^2^3"
^DD(58.52,0,"IX","B",58.52,.01)=""
^DD(58.52,0,"NM","RECALCULATE AMIS")=""
^DD(58.52,0,"UP")="58.501"
^DD(58.52,.01,0)="DRUG^MP50'^PSDRUG(^0;1^Q"
^DD(58.52,.01,1,0)="^.1"
^DD(58.52,.01,1,1,0)="58.52^B"
^DD(58.52,.01,1,1,1)="S ^PSI(58.5,DA(2),""S"",DA(1),""DRG"",""B"",$E(X,1,30),DA)="""""
^DD(58.52,.01,1,1,2)="K ^PSI(58.5,DA(2),""S"",DA(1),""DRG"",""B"",$E(X,1,30),DA)"
^DD(58.52,.01,1,2,0)="58.5^D"
^DD(58.52,.01,1,2,1)="S ^PSI(58.5,""D"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(58.52,.01,1,2,2)="K ^PSI(58.5,""D"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(58.52,.01,21,0)="^^3^3^2890619^^^"
^DD(58.52,.01,21,1,0)="This contains the internal drug number of the drug being dispensed or "
^DD(58.52,.01,21,2,0)="returned.  Thus, if cost data is found to be inaccurate, the AMIS may be "
^DD(58.52,.01,21,3,0)="recalculated."
^DD(58.52,1,0)="CATEGORY^58.53SA^^CAT;0"
^DD(58.52,2,0)="MISSING DATA^S^1:YES;0:NO;^0;2^Q"
^DD(58.52,2,1,0)="^.1"
^DD(58.52,2,1,1,0)="58.5^AEX^MUMPS"
^DD(58.52,2,1,1,1)="I X=1 S ^PSI(58.5,""AEX"",DA(2),DA(1),DA)="""""
^DD(58.52,2,1,1,2)="K ^PSI(58.5,""AEX"",DA(2),DA(1),DA)"
^DD(58.52,2,1,1,"%D",0)="^^3^3^2930827^"
^DD(58.52,2,1,1,"%D",1,0)="This cross-reference is used to sort drugs with missing AMIS data by "
^DD(58.52,2,1,1,"%D",2,0)="Date/Inpatient Site/Drug. It is used by the options ""Inventory Outline"","
^DD(58.52,2,1,1,"%D",3,0)="""Print AMIS Report"",""Incomplete AMIS Data"", and ""Recalculate AMIS""."
^DD(58.52,2,21,0)="^^4^4^2890906^^^^"
^DD(58.52,2,21,1,0)="This flag is set if data needed to calculate the AMIS is missing at the "
^DD(58.52,2,21,2,0)="time the quantity is dispensed or returned.  Also, an ""exceptions"" "
^DD(58.52,2,21,3,0)="cross-reference is created.  Before the AMIS will print, this missing data "
^DD(58.52,2,21,4,0)="must be supplied, the cross-reference deleted, and the flag reset."
^DD(58.52,"B","CATEGORY",1)=""
^DD(58.52,"B","DRUG",.01)=""
^DD(58.52,"B","MISSING DATA",2)=""
^DD(58.52,"GL",0,1,.01)=""
^DD(58.52,"GL",0,2,2)=""
^DD(58.52,"GL","CAT",0,1)=""
^DD(58.52,"IX",.01)=""
^DD(58.52,"IX",2)=""
^DD(58.52,"SB",58.53,1)=""
^DD(58.53,0)="CATEGORY SUB-FIELD^^1^2"
^DD(58.53,0,"NM","CATEGORY")=""
^DD(58.53,0,"UP")="58.52"
^DD(58.53,.01,0)="CATEGORY^S^A:AUTOMATIC REPLENISHMENT;W:WARD STOCK;RA:RETURNS - AUTO REPLENISHED;RW:RETURNS - WARD STOCKED;^0;1^Q"
^DD(58.53,.01,21,0)="^^3^3^2890619^^"
^DD(58.53,.01,21,1,0)="Category identifies how the quantity dispensed or returned was originally "
^DD(58.53,.01,21,2,0)="ordered: Automatic Replenishment, On-Demand, returned from Automatic "
^DD(58.53,.01,21,3,0)="Replenishment, or returned from On-Demand."
^DD(58.53,1,0)="QUANTITY DISPENSED^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(58.53,1,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(58.53,1,21,0)="^^1^1^2890619^^"
^DD(58.53,1,21,1,0)="This amount identifies the quantity dispensed or returned."
^DD(58.53,1,"DT")="2891101"
^DD(58.53,"B","CATEGORY",.01)=""
^DD(58.53,"B","QUANTITY DISPENSED",1)=""
^DD(58.53,"GL",0,1,.01)=""
^DD(58.53,"GL",0,2,1)=""
^DD(58.8,0)="FIELD^^36^36"
^DD(58.8,0,"DDA")="N"
^DD(58.8,0,"DT")="3000426"
^DD(58.8,0,"ID","WRITE")="I $D(^(""I"")),^(""I"")]"""",^(""I"")'>DT D EN^DDIOL($C(7)_""**INACTIVE**"")"
^DD(58.8,0,"IX","AB",58.842,.01)=""
^DD(58.8,0,"IX","AC",58.800118,10)=""
^DD(58.8,0,"IX","AD",58.800118,14)=""
^DD(58.8,0,"IX","ADISP",58.8,1)=""
^DD(58.8,0,"IX","AEXP",58.8001,11)=""
^DD(58.8,0,"IX","AEXPO",58.800118,9)=""
^DD(58.8,0,"IX","AIV",58.831,.01)=""
^DD(58.8,0,"IX","AOP",58.8,20)=""
^DD(58.8,0,"IX","AOP",58.836,.01)=""
^DD(58.8,0,"IX","ASITE",58.8,2)=""
^DD(58.8,0,"IX","ASITE1",58.8,1)=""
^DD(58.8,0,"IX","B",58.8,.01)=""
^DD(58.8,0,"IX","C",58.8001,.01)=""
^DD(58.8,0,"IX","D",58.800115,.01)=""
^DD(58.8,0,"IX","E",58.8,11)=""
^DD(58.8,0,"IX","F",58.800118,16)=""
^DD(58.8,0,"IX","P",58.8445,.01)=""
^DD(58.8,0,"NM","DRUG ACCOUNTABILITY STATS")=""
^DD(58.8,0,"PT",58.29,.01)=""
^DD(58.8,0,"PT",58.8,3)=""
^DD(58.8,0,"PT",58.800118,2)=""
^DD(58.8,0,"PT",58.81,2)=""
^DD(58.8,0,"PT",58.81,17)=""
^DD(58.8,0,"PT",58.81,66)=""
^DD(58.8,0,"PT",58.8112,4)=""
^DD(58.8,0,"PT",58.8112,13)=""
^DD(58.8,0,"PT",58.85,1)=""
^DD(58.8,0,"PT",58.85,2)=""
^DD(58.8,0,"PT",58.86,6)=""
^DD(58.8,0,"PT",58.87,5)=""
^DD(58.8,0,"PT",58.87,12)=""
^DD(58.8,0,"PT",58.89,6)=""
^DD(58.8,0,"PT",59.79002,.01)=""
^DD(58.8,0,"PT",59.79003,.01)=""
^DD(58.8,0,"VR")="3.0"
^DD(58.8,0,"VRPK")="PSA"
^DD(58.8,.01,0)="PHARMACY LOCATION^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(58.8,.01,.1)="NAOU"
^DD(58.8,.01,1,0)="^.1"
^DD(58.8,.01,1,1,0)="58.8^B"
^DD(58.8,.01,1,1,1)="S ^PSD(58.8,""B"",$E(X,1,30),DA)="""""
^DD(58.8,.01,1,1,2)="K ^PSD(58.8,""B"",$E(X,1,30),DA)"
^DD(58.8,.01,3)="Answer must be 2-30 characters in length."
^DD(58.8,.01,21,0)="^^4^4^2921106^^^^"
^DD(58.8,.01,21,1,0)="This field contains the name of the Pharmacy location."
^DD(58.8,.01,21,2,0)="   "
^DD(58.8,.01,21,3,0)="The Controlled Substances module will recognize this location as the"
^DD(58.8,.01,21,4,0)="Narcotic Area of Use (NAOU) throughout this package."
^DD(58.8,.01,23,0)="^^1^1^2920504^^^^"
^DD(58.8,.01,23,1,0)="Free text name of this Pharmacy location.  Not to exceed 30 characters."
^DD(58.8,.01,"DEL",.01,0)="I 1 W !,?5,""DO NOT DELETE. Use the Inactivate NAOU option. """
^DD(58.8,.01,"DT")="3000817"
^DD(58.8,1,0)="LOCATION TYPE^RSX^M:MASTER VAULT;S:SATELLITE VAULT;N:NARCOTIC LOCATION;P:PRIMARY;^0;2^K X W $C(7),!,?10,"" ** No Editing ** "",!"
^DD(58.8,1,.1)="Location Type"
^DD(58.8,1,1,0)="^.1"
^DD(58.8,1,1,1,0)="58.8^ADISP"
^DD(58.8,1,1,1,1)="S ^PSD(58.8,""ADISP"",$E(X,1,30),DA)="""""
^DD(58.8,1,1,1,2)="K ^PSD(58.8,""ADISP"",$E(X,1,30),DA)"
^DD(58.8,1,1,1,"DT")="2920530"
^DD(58.8,1,1,2,0)="58.8^ASITE1^MUMPS"
^DD(58.8,1,1,2,1)="D SASITE1^PSDUTL"
^DD(58.8,1,1,2,2)="D KASITE1^PSDUTL"
^DD(58.8,1,1,2,3)="DO NOT DELETE"
^DD(58.8,1,1,2,"%D",0)="^^3^3^2920912^^^"
^DD(58.8,1,1,2,"%D",1,0)="This cross-reference is used in determining site for all Controlled"
^DD(58.8,1,1,2,"%D",2,0)="Substances applications."
^DD(58.8,1,1,2,"%D",3,0)="The cross-reference is ^PSD(58.8,""ASITE"",INPATIENT SITE,LOC TYPE,DA)=""""."
^DD(58.8,1,1,2,"DT")="2920606"
^DD(58.8,1,3)="Enter the location type."
^DD(58.8,1,21,0)="^^10^10^2970729^"
^DD(58.8,1,21,1,0)="This field contains the location type for this pharmacy location."
^DD(58.8,1,21,2,0)="Location types are ""M"" for master vault, ""S"" for satellite vault, ""N"" for"
^DD(58.8,1,21,3,0)="narcotic location, and ""P"" for primary."
^DD(58.8,1,21,4,0)="  "
^DD(58.8,1,21,5,0)="This field should NOT be edited directly using VA FileMan.  The Drug"
^DD(58.8,1,21,6,0)="Accountability and Controlled Substances modules depend on the accuracy"
^DD(58.8,1,21,7,0)="of this data."
^DD(58.8,1,21,8,0)=" "
^DD(58.8,1,21,9,0)="The Controlled Substances module supports ""M"", ""S"" and ""N"" location types."
^DD(58.8,1,21,10,0)="For CS use, enter the master vault locations first. "
^DD(58.8,1,23,0)="^^1^1^2970729^^^"
^DD(58.8,1,23,1,0)="Set of codes.  Do NOT edit directly using VA FileMan."
^DD(58.8,1,"DT")="2931021"
^DD(58.8,2,0)="INPATIENT SITE^R*P59.4'^PS(59.4,^0;3^S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",31)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.8,2,.1)="CS SITE"
^DD(58.8,2,1,0)="^.1"
^DD(58.8,2,1,1,0)="58.8^ASITE^MUMPS"
^DD(58.8,2,1,1,1)="D SASITE^PSDUTL"
^DD(58.8,2,1,1,2)="D KASITE^PSDUTL"
^DD(58.8,2,1,1,3)="DO NOT DELETE"
^DD(58.8,2,1,1,"%D",0)="^^4^4^2940923^^^^"
^DD(58.8,2,1,1,"%D",1,0)="This cross-reference is used in distinguishing multi-divisional"
^DD(58.8,2,1,1,"%D",2,0)="sites.  The Controlled Substances software uses this cross-reference"
^DD(58.8,2,1,1,"%D",3,0)="in all ordering, dispensing, and reporting activity."
^DD(58.8,2,1,1,"%D",4,0)="The cross-reference is ^PSD(58.8,""ASITE"",INPATIENT SITE,LOC TYPE,DA)=""""."
^DD(58.8,2,1,1,"DT")="2920606"
^DD(58.8,2,3)="Enter inpatient site."
^DD(58.8,2,12)="Select only sites that are ""Selectable for CS"" in File 59.4."
^DD(58.8,2,12.1)="S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",31)"""
^DD(58.8,2,21,0)="^^2^2^2940923^^^^"
^DD(58.8,2,21,1,0)="This field contains a pointer to the inpatient site.  This is a required"
^DD(58.8,2,21,2,0)="data element within the Controlled Substances module."
^DD(58.8,2,23,0)="^^1^1^2940923^^^^"
^DD(58.8,2,23,1,0)="Screened pointer to File 59.4 - INPATIENT SITE file.  Required for CS use."
^DD(58.8,2,"DT")="2920609"
^DD(58.8,3,0)="PRIMARY DISPENSING SITE^*P58.8'^PSD(58.8,^0;4^S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,+Y'=DA,$S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.8,3,.1)="Primary Dispensing Site"
^DD(58.8,3,3)="Answer must be the name of an existing Master or Satellite vault."
^DD(58.8,3,12)="Selection limited to Master or Satellite vault."
^DD(58.8,3,12.1)="S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,+Y'=DA,$S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"""
^DD(58.8,3,21,0)="^^3^3^2970729^"
^DD(58.8,3,21,1,0)="This field contains a pointer to the primary dispensing site for this"
^DD(58.8,3,21,2,0)="pharmacy location.  This data is utilized within the Controlled Substances"
^DD(58.8,3,21,3,0)="module."
^DD(58.8,3,23,0)="^^2^2^2970729^^^^"
^DD(58.8,3,23,1,0)="Screened pointer to File 58.8 - DRUG ACCOUNTABILITY STATS file."
^DD(58.8,3,23,2,0)="Selection limited to Master vault or Satellite vault."
^DD(58.8,3,"DT")="2920821"
^DD(58.8,4,0)="INACTIVE DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8,4,.1)="Inactive Date"
^DD(58.8,4,3)="Enter the date when this pharmacy location became inactive."
^DD(58.8,4,21,0)="^^1^1^2970729^^"
^DD(58.8,4,21,1,0)="The date on which this pharmacy location was inactivated."
^DD(58.8,4,23,0)="^^1^1^2970729^"
^DD(58.8,4,23,1,0)="Inactive date for this pharmacy location."
^DD(58.8,4,"DT")="2920106"
^DD(58.8,5,0)="ASK MFG/LOT #/EXP.DATE?^S^1:YES;0:NO;^0;5^Q"
^DD(58.8,5,.1)="Ask Mfg/Lot #/Exp.Date?"
^DD(58.8,5,3)="Enter ""1"" or ""Y"" if you wish to be prompted for mfg., lot #, and exp. date."
^DD(58.8,5,21,0)="^^7^7^2940923^^^^"
^DD(58.8,5,21,1,0)="The answer for asking manufacturer, lot #, and expiration date on drugs"
^DD(58.8,5,21,2,0)="tracked within this Pharmacy location .  If this field is set to ""1"" or"
^DD(58.8,5,21,3,0)="""YES"", manufacturer, lot number, and expiration date will be asked when"
^DD(58.8,5,21,4,0)="dispensing drugs within this Pharmacy location."
^DD(58.8,5,21,5,0)="  "
^DD(58.8,5,21,6,0)="For Controlled Substances use, this field should be answered for Master"
^DD(58.8,5,21,7,0)="vaults and Satellite vaults."
^DD(58.8,5,23,0)="^^1^1^2940923^^^^"
^DD(58.8,5,23,1,0)="Set of codes - ""1"" for ""YES"" or ""0"" for ""NO""."
^DD(58.8,5,"DT")="2920106"
^DD(58.8,6,0)="IS THIS PHARM WORKING STOCK?^S^1:YES;0:NO;^0;7^Q"
^DD(58.8,6,.1)="Is this a Pharmacy NAOU for Working Stock?"
^DD(58.8,6,3)="Enter ""1"" or ""Y"" if this is a Pharmacy NAOU for working stock."
^DD(58.8,6,21,0)="^^3^3^2940923^^^^"
^DD(58.8,6,21,1,0)="Pharmacy location designated as a Narcotic Area of Use for pharmacy working"
^DD(58.8,6,21,2,0)="stock. If this field is set to ""1"" or ""YES"" drug data will be utilized"
^DD(58.8,6,21,3,0)="differently within the Controlled Substances module."
^DD(58.8,6,23,0)="^^1^1^2940923^^^"
^DD(58.8,6,23,1,0)="Set of codes - ""1"" for ""YES"" or ""0"" for ""NO""."
^DD(58.8,6,"DT")="2920505"
^DD(58.8,10,0)="DRUG^58.8001IP^^1;0"
^DD(58.8,10,21,0)="^^8^8^2970729^"
^DD(58.8,10,21,1,0)="Drug is defined by physical location, stock level, balance on-hand,"
^DD(58.8,10,21,2,0)="reorder level, quantity to reorder, breakdown unit, package size,"
^DD(58.8,10,21,3,0)="manufacturer, lot number, and expiration date.  Other information available"
^DD(58.8,10,21,4,0)="is inventory types, ward (for drug), and prime vendor item number"
^DD(58.8,10,21,5,0)="(if applicable)."
^DD(58.8,10,21,6,0)="  "
^DD(58.8,10,21,7,0)="In the Controlled Substances module, all CS order requests are stored"
^DD(58.8,10,21,8,0)="in the ORDERS multiple within DRUG."
^DD(58.8,11,0)="*PRIMARY INVENTORY POINT^*P445'X^PRCP(445,^0;6^S DATABASE=1,DIC(""S"")=""I $P(^(0),U,3)=""""P""""&($P(^(0),U,7)=822400)"" D ^DIC K DIC S DIC=DIE,X=+Y D ^PSAUTL K DATABASE K:Y<0 X"
^DD(58.8,11,.1)="*Primary Inventory Point"
^DD(58.8,11,1,0)="^.1"
^DD(58.8,11,1,1,0)="58.8^E"
^DD(58.8,11,1,1,1)="S ^PSD(58.8,""E"",$E(X,1,30),DA)="""""
^DD(58.8,11,1,1,2)="K ^PSD(58.8,""E"",$E(X,1,30),DA)"
^DD(58.8,11,1,1,"%D",0)="^^1^1^2940915^^"
^DD(58.8,11,1,1,"%D",1,0)="To identify Pharmacy location linked to an Inventory Point."
^DD(58.8,11,1,1,"DT")="2930309"
^DD(58.8,11,3)="For Controlled Substances enter the name of the pharmacy inventory point which contains ONLY the controlled substances stored in this pharmacy master vault."
^DD(58.8,11,12)="You can only select a Primary Inventory Point with a Cost Center of 822400."
^DD(58.8,11,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""P""""&($P(^(0),U,7)=822400)"""
^DD(58.8,11,21,0)="^^3^3^2970729^"
^DD(58.8,11,21,1,0)="To provide a direct link between a pharmacy inventory point and a pharmacy"
^DD(58.8,11,21,2,0)="location entry in this file.  Receiving that occurs in the inventory point"
^DD(58.8,11,21,3,0)="will update on hand quantities in the pharmacy location."
^DD(58.8,11,23,0)="^^2^2^2970729^^^^"
^DD(58.8,11,23,1,0)="To provide a direct link between the GENERIC INVENTORY file (#445) and the "
^DD(58.8,11,23,2,0)="DRUG ACCOUNTABILITY STATS file (#58.8)."
^DD(58.8,11,"DT")="2970729"
^DD(58.8,11.5,0)="*RECEIPT FAILURE NOTIFICATION?^S^1:YES;0:NO;^0;11^Q"
^DD(58.8,11.5,3)="Enter ""1"" or ""Y"" to notify the RECEIPT FAILURE mail group of items that could not be received."
^DD(58.8,11.5,21,0)="^^7^7^2940923^^^"
^DD(58.8,11.5,21,1,0)="If a Drug Accountability location is linked to a Primary Inventory Point"
^DD(58.8,11.5,21,2,0)="the items received into the Primary Inventory Point will also be updated in"
^DD(58.8,11.5,21,3,0)="the Drug Accountability location.  If items are received into the linked"
^DD(58.8,11.5,21,4,0)="Primary Inventory that are not connected to the DRUG file (#50) or not"
^DD(58.8,11.5,21,5,0)="stocked in the Drug Accountability location, and this field is set to"
^DD(58.8,11.5,21,6,0)="""YES"", the RECEIPT FAILURE mail group will be notified with a list"
^DD(58.8,11.5,21,7,0)="of the items."
^DD(58.8,11.5,23,0)="^^1^1^2940915^^"
^DD(58.8,11.5,23,1,0)="Set of codes - ""1"" for ""YES"" or ""0"" for ""NO""."
^DD(58.8,11.5,"DT")="2930319"
^DD(58.8,12,0)="PRIME VENDOR?^S^1:YES;0:NO;^0;8^Q"
^DD(58.8,12,.1)="Prime Vendor?"
^DD(58.8,12,3)="Enter ""1"" or ""Y"" for ""YES"". Enter ""0"" or ""N"" for ""NO""."
^DD(58.8,12,21,0)="^^5^5^2970923^^^"
^DD(58.8,12,21,1,0)="To more efficiently process prime vendor receipts, setting this flag to"
^DD(58.8,12,21,2,0)="""YES"" will allow you to store an obligation number.  This number will then"
^DD(58.8,12,21,3,0)="be offered as a default whenever using the Receive Directly into Drug"
^DD(58.8,12,21,4,0)="Accountability [PSA RECEIVING] option on the Receipts Menu [PSA RECEIPTS"
^DD(58.8,12,21,5,0)="MENU] menu."
^DD(58.8,12,23,0)="^^2^2^2970923^^"
^DD(58.8,12,23,1,0)="Directs the flow of receipt processing and checks for a 1358 obligation"
^DD(58.8,12,23,2,0)="number stored in the CURRENT PRIME VENDOR PO# field (#13)."
^DD(58.8,12,"DT")="2970729"
^DD(58.8,13,0)="CURRENT PRIME VENDOR PO#^*P442'^PRC(442,^0;9^S DIC(""S"")=""I $P($G(^(0)),U,5)[822400"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.8,13,.1)="Current Prime Vendor PO#"
^DD(58.8,13,3)="Enter the 1358 obligation number for the current month."
^DD(58.8,13,12)="You can only select P.O.#s with a 822400 cost center."
^DD(58.8,13,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,5)[822400"""
^DD(58.8,13,21,0)="^^1^1^2970729^"
^DD(58.8,13,21,1,0)="This entry will be used as a default when receiving from the prime vendor."
^DD(58.8,13,23,0)="^^1^1^2970729^"
^DD(58.8,13,23,1,0)="Default value for prime vendor receiving."
^DD(58.8,13,"DT")="2970729"
^DD(58.8,14,0)="AUTO GENERATE DISPENSING #'S?^S^1:YES;0:NO;^2;1^Q"
^DD(58.8,14,3)="Answer ""YES"" to automatically generate the pharmacy dispensing # for CS orders."
^DD(58.8,14,21,0)="^^5^5^2941027^^^^"
^DD(58.8,14,21,1,0)="The pharmacy dispensing number (Green Sheet #) will be automatically"
^DD(58.8,14,21,2,0)="generated when dispensing Controlled Substances orders if this field is"
^DD(58.8,14,21,3,0)="set to ""1"" or ""YES"".  If left blank, or if ""0"", or ""NO"" are entered the"
^DD(58.8,14,21,4,0)="pharmacy employee processing the Controlled Substances order will have"
^DD(58.8,14,21,5,0)="to enter the dispensing number (Green Sheet #)."
^DD(58.8,14,"DT")="2920606"
^DD(58.8,15,0)="LOW DISPENSING #^NJ9,0X^^2;2^K:'$D(PSDJLP) X W:'$D(X) "" NO EDITING"" Q:'$D(X)  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X D LOW^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDL"
^DD(58.8,15,3)="Enter the lowest CS dispensing # for this dispensing site (1 to 999999999)."
^DD(58.8,15,21,0)="^^2^2^2940915^^"
^DD(58.8,15,21,1,0)="The lowest CS pharmacy dispensing number for this dispensing site.  The"
^DD(58.8,15,21,2,0)="system will not allow numbers smaller than the one you choose."
^DD(58.8,15,"DT")="2921123"
^DD(58.8,16,0)="HIGH DISPENSING #^NJ9,0X^^2;3^K:'$D(PSDJLP) X W:'$D(X) "" NO EDITING"" Q:'$D(X)  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X D HIGH^PSDSITE K:$D(PSDFLAG) X K PSD,PSDFLAG,PSDH,PSDL"
^DD(58.8,16,3)="Enter the largest CS dispensing number for this dispensing site (1-999999999)."
^DD(58.8,16,21,0)="^^4^4^2920915^^^"
^DD(58.8,16,21,1,0)="The largest acceptable pharmacy dispensing number for this dispensing"
^DD(58.8,16,21,2,0)="site.  The difference between this number and the lowest pharmacy"
^DD(58.8,16,21,3,0)="dispensing number should be substantial.  The system will not allow"
^DD(58.8,16,21,4,0)="numbers larger than the one you choose."
^DD(58.8,16,"DT")="2921123"
^DD(58.8,17,0)="LAST DISPENSING #^NJ9,0X^^2;4^K:'$D(PSDJLP) X W:'$D(X) "" NO EDITING"" Q:'$D(X)  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X D LAST^PSDSITE K:$D(PSDFLAG) X K PSDFLAG"
^DD(58.8,17,3)="Enter the last CS dispensing number used for this dispensing site (1 to 999999999)."
^DD(58.8,17,21,0)="^^4^4^2940915^^^^"
^DD(58.8,17,21,1,0)="The last CS pharmacy dispensing number used.  This number will"
^DD(58.8,17,21,2,0)="start at the lowest pharmacy dispensing number, increment it by"
^DD(58.8,17,21,3,0)="one until it finds a number that has not been used, and then use"
^DD(58.8,17,21,4,0)="that number for the next Controlled Substances order."
^DD(58.8,17,"DT")="2921123"
^DD(58.8,18,0)="USING PERPETUAL INVENTORY?^S^1:YES;0:NO;^2;5^Q"
^DD(58.8,18,.1)="Using Perpetual Inventory?"
^DD(58.8,18,3)="Answer ""YES"" if this site is using the perpetual inventory method."
^DD(58.8,18,21,0)="^^15^15^2970923^"
^DD(58.8,18,21,1,0)="This flag is used to determine if this NAOU is using the Controlled"
^DD(58.8,18,21,2,0)="Substances perpetual inventory functionality."
^DD(58.8,18,21,3,0)=" "
^DD(58.8,18,21,4,0)="If this field is set to ""YES"" or ""1"" the standard Controlled Substance"
^DD(58.8,18,21,5,0)="Administration Record VA FORM 10-2638 (Green Sheet) WILL NOT be printed"
^DD(58.8,18,21,6,0)="and will be replaced by the perpetual inventory method of tracking CS"
^DD(58.8,18,21,7,0)="drugs."
^DD(58.8,18,21,8,0)=" "
^DD(58.8,18,21,9,0)="For an NAOU that is using a perpetual inventory, the MAXIMUM"
^DD(58.8,18,21,10,0)="QUANTITY PER ORDER field (#8.5) for a drug in the dispensing site will"
^DD(58.8,18,21,11,0)="limit the maximum quantity that Nursing Service may enter for any single"
^DD(58.8,18,21,12,0)="order for that drug.  If the MAXIMUM QUANTITY PER ORDER is left blank,"
^DD(58.8,18,21,13,0)="deleted, or set to zero, Nursing Service will be able to enter any"
^DD(58.8,18,21,14,0)="quantity that is a multiple of package size, up to 999999, for any single "
^DD(58.8,18,21,15,0)="order of that drug."
^DD(58.8,18,"DT")="2970922"
^DD(58.8,19,0)="PRINT GREEN SHEET^S^1:YES;0:NO;^2;6^Q"
^DD(58.8,19,3)="Enter ""YES"" to print the Green Sheet after process only, ""NO"" to print after RPh verification."
^DD(58.8,19,21,0)="^^6^6^2940915^^^"
^DD(58.8,19,21,1,0)="This is a flag used to determine the sequence in which a Controlled"
^DD(58.8,19,21,2,0)="Substance Administration Record VA FORM 10-2638 (Green Sheet) will"
^DD(58.8,19,21,3,0)="be printed.  If set to ""YES"" or ""1"" the ""Green Sheet"" will print"
^DD(58.8,19,21,4,0)="after the order has been processed and prior to a RPh verification."
^DD(58.8,19,21,5,0)="If set to ""NO"" or ""0"" the ""Green Sheet"" will print after a RPh has"
^DD(58.8,19,21,6,0)="verified the filled order."
^DD(58.8,19,"DT")="2920606"
^DD(58.8,19.5,0)="GREEN SHEET STOCK^S^1:GPO 1992 PRINTING;0:OTHER GPO PRINTING;^2.5;1^Q"
^DD(58.8,19.5,3)="Enter 1 for GPO 1992 printed stock."
^DD(58.8,19.5,21,0)="^^4^4^2940915^^^"
^DD(58.8,19.5,21,1,0)="The VA FORM 10-2638 (Green Sheet) stock was printed on 8 x 10 1/2 paper."
^DD(58.8,19.5,21,2,0)="In 1992, the paper size changed to 8 1/2 x 11.  This field is used as a"
^DD(58.8,19.5,21,3,0)="site parameter when printing the Green Sheet forms.  Additional spacing"
^DD(58.8,19.5,21,4,0)="is required for the GPO 1992 printed stock."
^DD(58.8,19.5,"DT")="2930526"
^DD(58.8,20,0)="OUTPATIENT SITE^P59'X^PS(59,^0;10^I $D(X) S Z=$O(^PSD(58.8,""AOP"",+X,0)) S:Z=DA Z=$O(^(DA)) W:$G(Z) $C(7),!,$P($G(^PSD(58.8,+$O(^PSD(58.8,""AOP"",+X,0)),0)),U),"" is already linked to "",$P($G(^PS(59,+X,0)),U) K:$G(Z) X,Z"
^DD(58.8,20,.1)="Outpatient Site"
^DD(58.8,20,1,0)="^.1"
^DD(58.8,20,1,1,0)="58.8^AOP"
^DD(58.8,20,1,1,1)="S ^PSD(58.8,""AOP"",$E(X,1,30),DA)="""""
^DD(58.8,20,1,1,2)="K ^PSD(58.8,""AOP"",$E(X,1,30),DA)"
^DD(58.8,20,1,1,"%D",0)="^^1^1^2940915^^"
^DD(58.8,20,1,1,"%D",1,0)="To be used for automated updating of total dispensed when Rx is filled."
^DD(58.8,20,1,1,"DT")="2920701"
^DD(58.8,20,3)="Enter the Outpatient Site from which to gather prescription dispensing data."
^DD(58.8,20,21,0)="^^2^2^2970729^^"
^DD(58.8,20,21,1,0)="When prescriptions are filled the corresponding drug for this Outpatient"
^DD(58.8,20,21,2,0)="Site will be updated for monthly total dispensed."
^DD(58.8,20,23,0)="^^1^1^2970729^^^"
^DD(58.8,20,23,1,0)="To be used for automated updating of total dispensed when Rx is filled."
^DD(58.8,20,"DT")="2970729"
^DD(58.8,21,0)="WARD^58.842P^^3;0"
^DD(58.8,21,21,0)="^^2^2^2950801^^^"
^DD(58.8,21,21,1,0)="When Unit Dose and IV dispensing data is compiled, it will affect "
^DD(58.8,21,21,2,0)="the Drug Accountability Location to which a ward is linked."
^DD(58.8,21,23,0)="^^1^1^2950801^^^"
^DD(58.8,21,23,1,0)="For UD/IV dispensing to be subtracted from the appropriate DA location."
^DD(58.8,22,0)="PRIMARY INVENTORY POINT(S)^58.8445P^^4;0"
^DD(58.8,22,12)="Must be Special Inventory Point Type ""D"" for Drug Accountability."
^DD(58.8,22,12.1)="S DIC(""S"")=""I $P(^(0),U,20)=""""D"""""""
^DD(58.8,22,21,0)="^^3^3^2970729^"
^DD(58.8,22,21,1,0)="To provide a direct link between a pharmacy inventory point and a pharmacy"
^DD(58.8,22,21,2,0)="location entry in this file.  Receiving that occurs in the inventory point"
^DD(58.8,22,21,3,0)="will update on hand quantities in the pharmacy location."
^DD(58.8,22,23,0)="^^2^2^2970729^^^^"
^DD(58.8,22,23,1,0)="To provide a direct link between the GENERIC INVENTORY file (#445)"
^DD(58.8,22,23,2,0)="and the DRUG ACCOUNTABILITY STATS file (#58.8)."
^DD(58.8,23,0)="DISPENSING WORKSHEET SORT^S^D:DRUG/NAOU;N:NAOU/DRUG;S:SELECT AT PRINTING;^2;7^Q"
^DD(58.8,23,3)="Enter the sort order to be used in creating the dispensing worksheet."
^DD(58.8,23,21,0)="^^4^4^2940929^^^^"
^DD(58.8,23,21,1,0)="This field determines the sort order when printing the Controlled"
^DD(58.8,23,21,2,0)="Substances ""Pharmacy Dispensing Worksheet"".  The sort order may be defined"
^DD(58.8,23,21,3,0)="by drug then NAOU, by NAOU then drug, or selected when printing"
^DD(58.8,23,21,4,0)="the worksheet."
^DD(58.8,23,23,0)="^^2^2^2940915^^^"
^DD(58.8,23,23,1,0)="Set of codes used in determining the sort order when printing the ""Pharmacy"
^DD(58.8,23,23,2,0)="Dispensing Worksheet""."
^DD(58.8,23,"DT")="2930426"
^DD(58.8,24,0)="DEFAULT GREEN SHEET PRINTER^P3.5'^%ZIS(1,^2;8^Q"
^DD(58.8,24,3)="Enter the name of the device selected to print Green Sheets."
^DD(58.8,24,21,0)="^^2^2^2930427^^"
^DD(58.8,24,21,1,0)="A pointer to the name of the device selected as the default printer"
^DD(58.8,24,21,2,0)="for Green Sheets."
^DD(58.8,24,23,0)="^^1^1^2940915^^"
^DD(58.8,24,23,1,0)="Pointer to File 3.5 - the DEVICE file."
^DD(58.8,24,"DT")="2930426"
^DD(58.8,25,0)="DEFAULT REPORT PRINTER^P3.5'^%ZIS(1,^2;9^Q"
^DD(58.8,25,3)="Enter the name of the device selected to print CS reports."
^DD(58.8,25,21,0)="^^2^2^2941027^^^"
^DD(58.8,25,21,1,0)="A pointer to the name of the device selected as the default printer for"
^DD(58.8,25,21,2,0)="various Controlled Substances reports."
^DD(58.8,25,23,0)="^^1^1^2940915^^^"
^DD(58.8,25,23,1,0)="Pointer to File 3.5 - the DEVICE file."
^DD(58.8,25,"DT")="2930426"
^DD(58.8,26,0)="DEFAULT LABEL PRINTER^P3.5'^%ZIS(1,^2;10^Q"
^DD(58.8,26,3)="Enter the name of the device selected to print CS labels."
^DD(58.8,26,21,0)="^^2^2^2930427^"
^DD(58.8,26,21,1,0)="A pointer to the name of the device selected as the default printer"
^DD(58.8,26,21,2,0)="for Controlled Substances labels."
^DD(58.8,26,23,0)="^^1^1^2940915^^"
^DD(58.8,26,23,1,0)="Pointer to File 3.5 - the DEVICE file."
^DD(58.8,26,"DT")="2930426"
^DD(58.8,27,0)="LAST UD UPDATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8,27,.1)="Last UD Update"
^DD(58.8,27,3)="The last date that dispensing from the UNIT DOSE PICK LIST STATS file (#57.6) was collected to update this location."
^DD(58.8,27,21,0)="^^3^3^2970729^"
^DD(58.8,27,21,1,0)="When the UD dispensing data is collected from the UNIT DOSE PICK LIST STATS"
^DD(58.8,27,21,2,0)="file (#57.6) a date is stored here.  Each time unit dose dispensing data"
^DD(58.8,27,21,3,0)="is collected, it begins FROM this date."
^DD(58.8,27,23,0)="^^2^2^2970729^^^^"
^DD(58.8,27,23,1,0)="Used and stored by the PSAUDP routine for the collection of dispensing data"
^DD(58.8,27,23,2,0)="from the UNIT DOSE PICK LIST STATS file (#57.6)."
^DD(58.8,27,"DT")="2970729"
^DD(58.8,28,0)="ORDER ENTRY BANNER^58.828^^5;0"
^DD(58.8,28,21,0)="^^3^3^2950130^^^"
^DD(58.8,28,21,1,0)="A banner to be displayed for Nursing Order Entry, Pharmacy Order Entry"
^DD(58.8,28,21,2,0)="from Nursing, and Infusion Order Entry.  This banner may be edited via"
^DD(58.8,28,21,3,0)="the option, Create/Edit the Narcotic Area of Use."
^DD(58.8,28,23,0)="^^1^1^2950130^^^"
^DD(58.8,28,23,1,0)="A banner to be displayed for Order Entry."
^DD(58.8,29,0)="EMERGENCY ORDER PRINTER^P3.5'^%ZIS(1,^2;11^Q"
^DD(58.8,29,3)="Select a device for this dispensing vault which can receive notice of emergency orders submitted by nursing personnel."
^DD(58.8,29,21,0)="^^4^4^2950130^"
^DD(58.8,29,21,1,0)="This device will be used to print a notice of emergency orders submitted"
^DD(58.8,29,21,2,0)="by nursing personnel.  The printer designated to receive these messages"
^DD(58.8,29,21,3,0)="SHOULD NOT be the printer which prints green sheets or controlled"
^DD(58.8,29,21,4,0)="substances labels."
^DD(58.8,29,23,0)="^^1^1^2950130^"
^DD(58.8,29,23,1,0)="This field is a pointer to the DEVICE file (#3.5)."
^DD(58.8,29,"DT")="2950130"
^DD(58.8,30,0)="ALLOW ONE-TIME REQUESTS?^S^1:YES;0:NO;^0;13^Q"
^DD(58.8,30,3)="Enter ""1"" or ""Y"" to allow NAOUs to place one-time requests."
^DD(58.8,30,21,0)="^^5^5^2950801^^"
^DD(58.8,30,21,1,0)="     If the primary dispensing site for an NAOU allows one-time requests,"
^DD(58.8,30,21,2,0)="any active drug in that dispensing site may be ordered, even though it may"
^DD(58.8,30,21,3,0)="be inactive or not stocked by that NAOU.  Certain drugs within a dispensing"
^DD(58.8,30,21,4,0)="site may be marked as not selectable and are unavailable for even one-time"
^DD(58.8,30,21,5,0)="requests."
^DD(58.8,30,23,0)="^^1^1^2950801^^"
^DD(58.8,30,23,1,0)="Checked by order entry routines (PSDOR*) before allowing one-time requests."
^DD(58.8,30,"DT")="2950731"
^DD(58.8,31,0)="IV ROOM^58.831P^^3.5;0"
^DD(58.8,31,21,0)="^^4^4^2970729^^"
^DD(58.8,31,21,1,0)="The IV Room multiple contains the Outpatient Clinic's IV rooms to which the "
^DD(58.8,31,21,2,0)="Outpatient Pharmacy dispenses IVs. When IV dispensing data is compiled, it "
^DD(58.8,31,21,3,0)="will affect the Drug Accountability outpatient pharmacy location to which "
^DD(58.8,31,21,4,0)="the IV Room is linked."
^DD(58.8,31,23,0)="^^1^1^2970729^^"
^DD(58.8,31,23,1,0)="This field points to the IV ROOM FILE (#59.5)."
^DD(58.8,32,0)="ADJUSTMENT MAIL GROUP^P3.8'^XMB(3.8,^6;1^Q"
^DD(58.8,32,3)="Enter the mail group that should receive messages when adjustments occur."
^DD(58.8,32,21,0)="^^2^2^2961007^"
^DD(58.8,32,21,1,0)="The persons in this mail group will receive messages whenever an adjustment"
^DD(58.8,32,21,2,0)="or count correction occurs for this Narcotic Area of Use (NAOU)."
^DD(58.8,32,"DT")="2961007"
^DD(58.8,33,0)="TIME LIMIT FOR DELAYED DOSES^NJ5,2^^6;2^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""3N.N) X"
^DD(58.8,33,3)="Type a Number between 0 and 12, 2 Decimal Digits"
^DD(58.8,33,21,0)="^^4^4^2961007^"
^DD(58.8,33,21,1,0)="This is the time limit for Nursing to record a delayed wastage"
^DD(58.8,33,21,2,0)="or return to stock for a dose that was not administered to a patient."
^DD(58.8,33,21,3,0)="If a ""1"" is entered, Nurses will have one hour to record the"
^DD(58.8,33,21,4,0)="disposition of a dose for this Narcotic Area of Use."
^DD(58.8,33,"DT")="2961007"
^DD(58.8,34,0)="MAINTAIN REORDER LEVELS?^S^1:YES;0:NO;^0;14^Q"
^DD(58.8,34,.1)="Maintain Reorder Levels?"
^DD(58.8,34,3)="Enter YES if the reorder level is to entered for each drug in the pharmacy location or master vault."
^DD(58.8,34,21,0)="^^2^2^2970729^^^^"
^DD(58.8,34,21,1,0)="The MAINTAIN REORDER LEVELS? field denotes if the drugs in the pharmacy"
^DD(58.8,34,21,2,0)="location or master vault are to maintain their reorder levels."
^DD(58.8,34,"DT")="2970131"
^DD(58.8,35,0)="DAYS TO KEEP INVOICE DATA^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<120)!(X?.E1"".""1N.N) X"
^DD(58.8,35,.1)="Days to Keep Invoice Data"
^DD(58.8,35,3)="Enter the number of days to keep the invoices in the DA ORDERS file.  Enter 120 to 9999 days."
^DD(58.8,35,21,0)="^^4^4^2970729^^^"
^DD(58.8,35,21,1,0)="The DAYS TO KEEP INVOICE DATA field contains the number of days invoices"
^DD(58.8,35,21,2,0)="are to remain in the DRUG ACCOUNTABILITY ORDERS (#58.811) file. A nightly"
^DD(58.8,35,21,3,0)="job checks this field to determine if the invoice data should be deleted."
^DD(58.8,35,21,4,0)="Invoice data must remain in the file at least 120 days."
^DD(58.8,35,"DT")="2970519"
^DD(58.8,36,0)="OUTPATIENT SITE(S)^58.836P^^7;0"
^DD(58.8,"B","*PRIMARY INVENTORY POINT",11)=""
^DD(58.8,"B","*Primary Inventory Point",11)="1"
^DD(58.8,"B","*RECEIPT FAILURE NOTIFICATION?",11.5)=""
^DD(58.8,"B","ADJUSTMENT MAIL GROUP",32)=""
^DD(58.8,"B","ALLOW ONE-TIME REQUESTS?",30)=""
^DD(58.8,"B","ASK MFG/LOT #/EXP.DATE?",5)=""
^DD(58.8,"B","AUTO GENERATE DISPENSING #'S?",14)=""
^DD(58.8,"B","Ask Mfg/Lot #/Exp.Date?",5)="1"
^DD(58.8,"B","CS SITE",2)="1"
^DD(58.8,"B","CURRENT PRIME VENDOR PO#",13)=""
^DD(58.8,"B","Current Prime Vendor PO#",13)="1"
^DD(58.8,"B","DAYS TO KEEP INVOICE DATA",35)=""
^DD(58.8,"B","DEFAULT GREEN SHEET PRINTER",24)=""
^DD(58.8,"B","DEFAULT LABEL PRINTER",26)=""
^DD(58.8,"B","DEFAULT REPORT PRINTER",25)=""
^DD(58.8,"B","DISPENSING WORKSHEET SORT",23)=""
^DD(58.8,"B","DRUG",10)=""
^DD(58.8,"B","Days to Keep Invoice Data",35)="1"
^DD(58.8,"B","EMERGENCY ORDER PRINTER",29)=""
^DD(58.8,"B","GREEN SHEET STOCK",19.5)=""
^DD(58.8,"B","HIGH DISPENSING #",16)=""
^DD(58.8,"B","INACTIVE DATE",4)=""
^DD(58.8,"B","INPATIENT SITE",2)=""
^DD(58.8,"B","IS THIS PHARM WORKING STOCK?",6)=""
^DD(58.8,"B","IV ROOM",31)=""
^DD(58.8,"B","Inactive Date",4)="1"
^DD(58.8,"B","LAST DISPENSING #",17)=""
^DD(58.8,"B","LAST UD UPDATE",27)=""
^DD(58.8,"B","LOCATION TYPE",1)=""
^DD(58.8,"B","LOW DISPENSING #",15)=""
^DD(58.8,"B","Last UD Update",27)="1"
^DD(58.8,"B","Location Type",1)="1"
^DD(58.8,"B","MAINTAIN REORDER LEVELS?",34)=""
^DD(58.8,"B","Maintain Reorder Levels?",34)="1"
^DD(58.8,"B","NAOU",.01)="1"
^DD(58.8,"B","ORDER ENTRY BANNER",28)=""
^DD(58.8,"B","OUTPATIENT SITE",20)=""
^DD(58.8,"B","OUTPATIENT SITE(S)",36)=""
^DD(58.8,"B","Outpatient Site",20)="1"
^DD(58.8,"B","PHARMACY LOCATION",.01)=""
^DD(58.8,"B","PRIMARY DISPENSING SITE",3)=""
^DD(58.8,"B","PRIMARY INVENTORY POINT(S)",22)=""
^DD(58.8,"B","PRIME VENDOR?",12)=""
^DD(58.8,"B","PRINT GREEN SHEET",19)=""
^DD(58.8,"B","Primary Dispensing Site",3)="1"
^DD(58.8,"B","Prime Vendor?",12)="1"
^DD(58.8,"B","TIME LIMIT FOR DELAYED DOSES",33)=""
^DD(58.8,"B","USING PERPETUAL INVENTORY?",18)=""
^DD(58.8,"B","Using Perpetual Inventory?",18)="1"
^DD(58.8,"B","WARD",21)=""
^DD(58.8,"GL",0,1,.01)=""
^DD(58.8,"GL",0,2,1)=""
^DD(58.8,"GL",0,3,2)=""
^DD(58.8,"GL",0,4,3)=""
^DD(58.8,"GL",0,5,5)=""
^DD(58.8,"GL",0,6,11)=""
^DD(58.8,"GL",0,7,6)=""
^DD(58.8,"GL",0,8,12)=""
^DD(58.8,"GL",0,9,13)=""
^DD(58.8,"GL",0,10,20)=""
^DD(58.8,"GL",0,11,11.5)=""
^DD(58.8,"GL",0,12,27)=""
^DD(58.8,"GL",0,13,30)=""
^DD(58.8,"GL",0,14,34)=""
^DD(58.8,"GL",0,15,35)=""
^DD(58.8,"GL",1,0,10)=""
^DD(58.8,"GL",2,1,14)=""
^DD(58.8,"GL",2,2,15)=""
^DD(58.8,"GL",2,3,16)=""
^DD(58.8,"GL",2,4,17)=""
^DD(58.8,"GL",2,5,18)=""
^DD(58.8,"GL",2,6,19)=""
^DD(58.8,"GL",2,7,23)=""
^DD(58.8,"GL",2,8,24)=""
^DD(58.8,"GL",2,9,25)=""
^DD(58.8,"GL",2,10,26)=""
^DD(58.8,"GL",2,11,29)=""
^DD(58.8,"GL",2.5,1,19.5)=""
^DD(58.8,"GL",3,0,21)=""
^DD(58.8,"GL",3.5,0,31)=""
^DD(58.8,"GL",4,0,22)=""
^DD(58.8,"GL",5,0,28)=""
^DD(58.8,"GL",6,1,32)=""
^DD(58.8,"GL",6,2,33)=""
^DD(58.8,"GL",7,0,36)=""
^DD(58.8,"GL","I",1,4)=""
^DD(58.8,"IX",.01)=""
^DD(58.8,"IX",1)=""
^DD(58.8,"IX",2)=""
^DD(58.8,"IX",11)=""
^DD(58.8,"IX",20)=""
^DD(58.8,"RQ",.01)=""
^DD(58.8,"RQ",1)=""
^DD(58.8,"RQ",2)=""
^DD(58.8,"SB",58.8001,10)=""
^DD(58.8,"SB",58.828,28)=""
^DD(58.8,"SB",58.831,31)=""
^DD(58.8,"SB",58.836,36)=""
^DD(58.8,"SB",58.842,21)=""
^DD(58.8,"SB",58.8445,22)=""
^DD(58.8001,0)="DRUG SUB-FIELD^^29^38"
^DD(58.8001,0,"DT")="2970630"
^DD(58.8001,0,"IX","AC",58.8001,13)=""
^DD(58.8001,0,"IX","B",58.8001,.01)=""
^DD(58.8001,0,"IX","C",58.8001,12)=""
^DD(58.8001,0,"NM","DRUG")=""
^DD(58.8001,0,"UP")="58.8"
^DD(58.8001,.01,0)="DRUG^MR*P50'X^PSDRUG(^0;1^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0)"" S:$D(PSDSITE) DIC(""S"")=DIC(""S"")_"",$S($P($G(^(2)),""""^"""",3)[""""N"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(58.8001,.01,.1)="CS Drug"
^DD(58.8001,.01,1,0)="^.1"
^DD(58.8001,.01,1,1,0)="58.8001^B"
^DD(58.8001,.01,1,1,1)="S ^PSD(58.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(58.8001,.01,1,1,2)="K ^PSD(58.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(58.8001,.01,1,1,"DT")="2920220"
^DD(58.8001,.01,1,2,0)="58.8^C"
^DD(58.8001,.01,1,2,1)="S ^PSD(58.8,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(58.8001,.01,1,2,2)="K ^PSD(58.8,""C"",$E(X,1,30),DA(1),DA)"
^DD(58.8001,.01,1,2,3)="DO NOT DELETE"
^DD(58.8001,.01,1,2,"%D",0)="^^2^2^2920912^^^"
^DD(58.8001,.01,1,2,"%D",1,0)="This cross-reference will be used for various reports within the"
^DD(58.8001,.01,1,2,"%D",2,0)="Drug Accountability and Controlled Substances modules."
^DD(58.8001,.01,1,2,"DT")="2920330"
^DD(58.8001,.01,3)="Enter the name of the drug being stocked in this pharmacy location."
^DD(58.8001,.01,4)=""
^DD(58.8001,.01,12)="For CS locations, select only ACTIVE drugs marked for CS package use."
^DD(58.8001,.01,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0)"" S:$D(PSDSITE) DIC(""S"")=DIC(""S"")_"",$S($P($G(^(2)),""""^"""",3)[""""N"""":1,1:0)"""
^DD(58.8001,.01,21,0)="^^2^2^2970729^"
^DD(58.8001,.01,21,1,0)="This field contains a pointer to the drug being stocked in this pharmacy"
^DD(58.8001,.01,21,2,0)="location."
^DD(58.8001,.01,23,0)="^^5^5^2970729^^^^"
^DD(58.8001,.01,23,1,0)="Within the Controlled Substances module, select only ACTIVE drugs marked"
^DD(58.8001,.01,23,2,0)="for use in the CS package.   Do not select INACTIVE or NON-PHARMACY drugs."
^DD(58.8001,.01,23,3,0)="This field should not be edited directly using VA FileMan.  The appropriate"
^DD(58.8001,.01,23,4,0)="screen for selecting ACTIVE drugs marked for CS use is contained within"
^DD(58.8001,.01,23,5,0)="the package functionality.  DINUMed pointer to File 50 - DRUG file."
^DD(58.8001,.01,"DEL",.01,0)="I 1 W !,?5,""DO NOT DELETE.  For CS locations, use the Inactivate Stocked CS Drug option. """
^DD(58.8001,.01,"DT")="2920330"
^DD(58.8001,1,0)="LOCATION^F^^0;2^K:$L(X)>12!($L(X)<1) X"
^DD(58.8001,1,.1)="Location"
^DD(58.8001,1,3)="Answer must be 1-12 characters in length."
^DD(58.8001,1,21,0)="^^4^4^2970729^"
^DD(58.8001,1,21,1,0)="This is the location address of the drug in the pharmacy location.  It"
^DD(58.8001,1,21,2,0)="can consist of up to 3 levels, each separated by a comma.  For example,"
^DD(58.8001,1,21,3,0)="""MR,CA,S3"" or ""CUR,CB,D1"".  This information is used to sort drugs on"
^DD(58.8001,1,21,4,0)="inventory sheets and other printouts."
^DD(58.8001,1,23,0)="^^3^3^2970729^^^^"
^DD(58.8001,1,23,1,0)="Location address of this drug.  It can consist of up to 3 levels"
^DD(58.8001,1,23,2,0)="of locations defined in File 58.17 - AOU ITEM LOCATION file."
^DD(58.8001,1,23,3,0)="Not to exceed 12 characters."
^DD(58.8001,1,"DT")="2910904"
^DD(58.8001,2,0)="STOCK LEVEL^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.8001,2,.1)="Stock Level"
^DD(58.8001,2,3)="Enter the ideal number of dispense units to keep on the shelf."
^DD(58.8001,2,21,0)="^^2^2^2970729^"
^DD(58.8001,2,21,1,0)="This field contains the quantity that is the required stock level for "
^DD(58.8001,2,21,2,0)="the drug in this pharmacy location. It is recorded in dispense units."
^DD(58.8001,2,"DT")="2920324"
^DD(58.8001,3,0)="BALANCE^NJ9,2^^0;4^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""3N.N) X"
^DD(58.8001,3,.1)="Balance"
^DD(58.8001,3,3)="Type a Number between -999999 and 999999, 2 Decimal Digits"
^DD(58.8001,3,21,0)="^^1^1^2970729^^^^"
^DD(58.8001,3,21,1,0)="This field contains the current balance (quantity) of this stocked drug."
^DD(58.8001,3,"DT")="2930428"
^DD(58.8001,4,0)="REORDER LEVEL^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.8001,4,.1)="Reorder Level"
^DD(58.8001,4,3)="Enter the minimum number of dispense units you want to have in the pharmacy location."
^DD(58.8001,4,21,0)="^^2^2^2970408^^^"
^DD(58.8001,4,21,1,0)="This field contains the on-hand level that must be reached before a drug"
^DD(58.8001,4,21,2,0)="will have replacements dispensed. It is recorded in dispense units."
^DD(58.8001,4,"DT")="2920324"
^DD(58.8001,5,0)="QUANTITY TO REORDER^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.8001,5,.1)="Quantity to Reorder"
^DD(58.8001,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(58.8001,5,21,0)="^^1^1^2920624^^"
^DD(58.8001,5,21,1,0)="This field contains the quantity to reorder for this stocked drug."
^DD(58.8001,5,"DT")="2920324"
^DD(58.8001,6,0)="DA CONVERSION #^CJ8,0^^ ; ^X ^DD(58.8001,6,9.2) S D0=$P(Y(58.8001,6,1),U,1) S:'$D(^PSDRUG(+D0,0)) D0=-1 S Y(58.8001,6,101)=$S($D(^PSDRUG(D0,660)):^(660),1:"""") S X=$P(Y(58.8001,6,101),U,5) S D0=Y(58.8001,6,80) S D1=Y(58.8001,6,81)"
^DD(58.8001,6,.1)="Drug Accountability Conversion #"
^DD(58.8001,6,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(58.8001,6,9)="^"
^DD(58.8001,6,9.01)="50^15;58.8001^.01"
^DD(58.8001,6,9.1)="DRUG:DISPENSE UNITS PER ORDER UNIT"
^DD(58.8001,6,9.2)="S Y(58.8001,6,81)=$S($D(D1):D1,1:""""),Y(58.8001,6,80)=$S($D(D0):D0,1:""""),Y(58.8001,6,1)=$S($D(^PSD(58.8,D0,1,D1,0)):^(0),1:"""")"
^DD(58.8001,6,21,0)="^^3^3^2970729^^^^"
^DD(58.8001,6,21,1,0)="This field is computed by the value in the corresponding drug field,"
^DD(58.8001,6,21,2,0)="dispensing units per order unit and used to convert receipts."
^DD(58.8001,6,21,3,0)=" "
^DD(58.8001,6,"DT")="2920422"
^DD(58.8001,7,0)="BREAKDOWN UNIT^F^^0;8^K:$L(X)>10!($L(X)<1)!'(X?1A.A) X"
^DD(58.8001,7,.1)="Breakdown Unit"
^DD(58.8001,7,3)="Enter dispensing unit, i.e., PACK, BOTTLE, EACH.  Not to exceed 10 characters."
^DD(58.8001,7,21,0)="^^6^6^2921123^^^^"
^DD(58.8001,7,21,1,0)="This unit represents the pharmacy dispensing unit."
^DD(58.8001,7,21,2,0)="Examples: BOX, EACH, BOTTLE, etc."
^DD(58.8001,7,21,3,0)="   "
^DD(58.8001,7,21,4,0)="In the Controlled Substances module this is referred to as the ""Narcotic"
^DD(58.8001,7,21,5,0)="Breakdown Unit"" and will be displayed during order entry.  This information"
^DD(58.8001,7,21,6,0)="is required for order entry."
^DD(58.8001,7,23,0)="^^3^3^2921123^^^^"
^DD(58.8001,7,23,1,0)="The breakdown unit name is free text not to exceed 10 characters."
^DD(58.8001,7,23,2,0)="In the Controlled Substances module this unit is required for order"
^DD(58.8001,7,23,3,0)="entry."
^DD(58.8001,7,"DT")="2920330"
^DD(58.8001,8,0)="PACKAGE SIZE^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.8001,8,.1)="Package Size"
^DD(58.8001,8,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(58.8001,8,21,0)="^^5^5^2941027^^^^"
^DD(58.8001,8,21,1,0)="This is the number of units dispensed from pharmacy."
^DD(58.8001,8,21,2,0)="  "
^DD(58.8001,8,21,3,0)="In the Controlled Substances module, this is referred to as the ""Narcotic"
^DD(58.8001,8,21,4,0)="Package Size"" and will be displayed during order entry.  This information"
^DD(58.8001,8,21,5,0)="is required for order entry."
^DD(58.8001,8,23,0)="^^1^1^2920912^^^"
^DD(58.8001,8,23,1,0)="In the Controlled Substances module this is required for order entry."
^DD(58.8001,8,"DT")="2920330"
^DD(58.8001,8.5,0)="MAXIMUM QUANTITY PER ORDER^NJ6,0X^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X I $P($G(^PSD(58.8,DA(1),1,DA,0)),U,9),$G(X)#$P($G(^(0)),U,9) D EN^DDIOL(""Must be a multiple of ""_$P($G(^(0)),U,9)) K X"
^DD(58.8001,8.5,3)="Type a Number between 0 and 999999, 0 Decimal Digits, and a multiple of the package size."
^DD(58.8001,8.5,21,0)="^^5^5^2940608^^"
^DD(58.8001,8.5,21,1,0)="     For an NAOU that is keeping a perpetual inventory, this field may be"
^DD(58.8001,8.5,21,2,0)="used to limit the maximum quantity that Nursing Service may enter for any"
^DD(58.8001,8.5,21,3,0)="single order for this drug.  If this field is left blank, deleted, or set"
^DD(58.8001,8.5,21,4,0)="to zero, Nursing Service will be able to enter any quantity that is a "
^DD(58.8001,8.5,21,5,0)="multiple of package size, up to 999999, for any single order of this drug."
^DD(58.8001,8.5,23,0)="^^4^4^2940914^^^"
^DD(58.8001,8.5,23,1,0)="If the fifth piece of the second node of an entry in File 58.8 equals 1,"
^DD(58.8001,8.5,23,2,0)="the routine PSDSTK will allow access to this field.  Under the same"
^DD(58.8001,8.5,23,3,0)="circumstances, this field will be used to limit order entry in routine"
^DD(58.8001,8.5,23,4,0)="PSDOR2."
^DD(58.8001,8.5,"DT")="2940608"
^DD(58.8001,9,0)="MANUFACTURER^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(58.8001,9,.1)="Manufacturer"
^DD(58.8001,9,3)="Answer must be 1-30 characters in length."
^DD(58.8001,9,21,0)="^^2^2^2920624^^^"
^DD(58.8001,9,21,1,0)="This field contains the manufacturer of the currently stocked drug in"
^DD(58.8001,9,21,2,0)="this Pharmacy location."
^DD(58.8001,9,"DT")="2910904"
^DD(58.8001,10,0)="LOT #^F^^0;11^K:$L(X)>10!($L(X)<1) X"
^DD(58.8001,10,.1)="Lot #"
^DD(58.8001,10,3)="Answer must be 1-10 characters in length."
^DD(58.8001,10,21,0)="^^2^2^2920624^^^"
^DD(58.8001,10,21,1,0)="This field contains the lot # of the currently stocked drug in this"
^DD(58.8001,10,21,2,0)="Pharmacy location."
^DD(58.8001,10,"DT")="2910904"
^DD(58.8001,11,0)="EXPIRATION DATE^D^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8001,11,.1)="Expiration Date"
^DD(58.8001,11,1,0)="^.1"
^DD(58.8001,11,1,1,0)="58.8^AEXP^MUMPS"
^DD(58.8001,11,1,1,1)="S ^PSD(58.8,""AEXP"",$E(X,1,30),DA,DA(1))="""""
^DD(58.8001,11,1,1,2)="K ^PSD(58.8,""AEXP"",$E(X,1,30),DA,DA(1))"
^DD(58.8001,11,1,1,3)="DO NOT DELETE"
^DD(58.8001,11,1,1,"%D",0)="^^4^4^2940914^^^^"
^DD(58.8001,11,1,1,"%D",1,0)="This cross-reference is used for compiling the Expiration Date Report"
^DD(58.8001,11,1,1,"%D",2,0)="in the Controlled Substances module."
^DD(58.8001,11,1,1,"%D",3,0)="  "
^DD(58.8001,11,1,1,"%D",4,0)="The cross-reference is ^PSD(58.8,""AEXP"",DATE,DRUG,DA)=""""."
^DD(58.8001,11,1,1,"DT")="2920310"
^DD(58.8001,11,3)="Enter expiration date for this drug."
^DD(58.8001,11,21,0)="^^1^1^2920504^^^"
^DD(58.8001,11,21,1,0)="This field contains the expiration date for this stocked drug."
^DD(58.8001,11,23,0)="^^1^1^2920504^"
^DD(58.8001,11,23,1,0)="Date may be imprecise."
^DD(58.8001,11,"DT")="2920421"
^DD(58.8001,12,0)="PRIME VENDOR ITEM #^F^^0;13^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(58.8001,12,.1)=""
^DD(58.8001,12,1,0)="^.1"
^DD(58.8001,12,1,1,0)="58.8001^C"
^DD(58.8001,12,1,1,1)="S ^PSD(58.8,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(58.8001,12,1,1,2)="K ^PSD(58.8,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(58.8001,12,1,1,"%D",0)="^^1^1^2920526^"
^DD(58.8001,12,1,1,"%D",1,0)="To allow look-up by Prime Vendor Item number during receiving."
^DD(58.8001,12,1,1,"DT")="2920526"
^DD(58.8001,12,3)="Answer must be 3-30 characters in length."
^DD(58.8001,12,21,0)="^^2^2^2920817^^^^"
^DD(58.8001,12,21,1,0)="To allow look-up by Prime Vendor Item # during receipt process."
^DD(58.8001,12,21,2,0)="Also to locate by Prime Vendor Item #, all receipts for that item."
^DD(58.8001,12,23,0)="^^1^1^2920817^^^"
^DD(58.8001,12,23,1,0)="Used as a cross-reference for look-up during Prime Vendor receiving."
^DD(58.8001,12,"DT")="2920526"
^DD(58.8001,13,0)="INACTIVATION DATE^D^^0;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8001,13,.1)="Inactivation Date"
^DD(58.8001,13,1,0)="^.1"
^DD(58.8001,13,1,1,0)="58.8001^AC^MUMPS"
^DD(58.8001,13,1,1,1)="S ^PSD(58.8,DA(1),1,DA,""I"",X)="""""
^DD(58.8001,13,1,1,2)="K ^PSD(58.8,DA(1),1,DA,""I"",X) D DELR^PSDUTL"
^DD(58.8001,13,1,1,"%D",0)="^^1^1^2920114^^"
^DD(58.8001,13,1,1,"%D",1,0)="This cross reference is used for locating inactivated CS stocked drugs."
^DD(58.8001,13,1,1,"DT")="2920114"
^DD(58.8001,13,21,0)="^^3^3^2920305^^"
^DD(58.8001,13,21,1,0)="This field contains the date on which this drug was inactivated, and thus"
^DD(58.8001,13,21,2,0)="is no longer considered part of the standard stock for this Pharmacy"
^DD(58.8001,13,21,3,0)="location."
^DD(58.8001,13,"DT")="2920114"
^DD(58.8001,14,0)="INACTIVATION REASON^S^N:NOT USED;O:OTHER;DF:DELETED FROM FORMULARY;^0;15^Q"
^DD(58.8001,14,.1)="Inactivation Reason"
^DD(58.8001,14,21,0)="^^2^2^2921117^^^^"
^DD(58.8001,14,21,1,0)="This field contains the reason that the drug has been inactivated from"
^DD(58.8001,14,21,2,0)="the list of drugs normally stocked in this Pharmacy location."
^DD(58.8001,14,"DT")="2910911"
^DD(58.8001,14.5,0)="INACTIVATION REASON (OTHER)^F^^0;16^K:$L(X)>40!($L(X)<3) X"
^DD(58.8001,14.5,.1)="Inactivation Reason (Other)"
^DD(58.8001,14.5,3)="Answer must be 3-40 characters in length."
^DD(58.8001,14.5,21,0)="^^3^3^2921117^^^^"
^DD(58.8001,14.5,21,1,0)="This field contains the custom reason for inactivating the drug from"
^DD(58.8001,14.5,21,2,0)="the stock list.  An inactivation reason of ""other"" should have been"
^DD(58.8001,14.5,21,3,0)="entered if a custom reason is to be listed."
^DD(58.8001,14.5,"DT")="2910911"
^DD(58.8001,15,0)="WARD (FOR DRUG)^58.800115PA^^1;0"
^DD(58.8001,15,21,0)="^^3^3^2920912^^^"
^DD(58.8001,15,21,1,0)="Names of the ward or wards using this drug will be entered.  This is"
^DD(58.8001,15,21,2,0)="a link between the Controlled Substances package and the Unit Dose"
^DD(58.8001,15,21,3,0)="package for determining ward stocked drugs."
^DD(58.8001,16,0)="INVENTORY TYPE^58.800116PA^^2;0"
^DD(58.8001,16,21,0)="^^2^2^2920718^^"
^DD(58.8001,16,21,1,0)="Inventory types are used to group related drugs in a Narcotic Area of"
^DD(58.8001,16,21,2,0)="Use."
^DD(58.8001,16,"DT")="2920122"
^DD(58.8001,17,0)="SKIP PRINTING VA FORM 10-2638?^S^1:YES;0:NO;^GS;1^Q"
^DD(58.8001,17,.1)="Skip printing VA Form 10-2638 when dispensing this drug?"
^DD(58.8001,17,3)="Enter ""YES"" or ""1"" to skip printing VA FORM 10-2638 when dispensing this drug."
^DD(58.8001,17,21,0)="^^2^2^2940914^^"
^DD(58.8001,17,21,1,0)="Answer ""1"" or ""YES"" to skip printing the VA FORM 10-2638 (Green Sheet)"
^DD(58.8001,17,21,2,0)="when dispensing this drug to this Narcotic Area of Use."
^DD(58.8001,17,"DT")="2920422"
^DD(58.8001,18,0)="ORDERS^58.800118A^^3;0"
^DD(58.8001,18,21,0)="^^2^2^2920912^^"
^DD(58.8001,18,21,1,0)="The ORDERS multiple stores all data associated with Controlled"
^DD(58.8001,18,21,2,0)="Substances order requests."
^DD(58.8001,18,"DT")="2920319"
^DD(58.8001,19,0)="ACTIVITY^58.800119PA^^4;0"
^DD(58.8001,19,21,0)="^^5^5^2940923^^^^"
^DD(58.8001,19,21,1,0)="A link to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) where each"
^DD(58.8001,19,21,2,0)="receipt and adjustment is stored as an audit trail."
^DD(58.8001,19,21,3,0)="  "
^DD(58.8001,19,21,4,0)="In the Controlled Substances package, each dispensing transaction is"
^DD(58.8001,19,21,5,0)="also stored."
^DD(58.8001,20,0)="MONTHLY ACTIVITY^58.801A^^5;0"
^DD(58.8001,20,21,0)="^^2^2^2920718^"
^DD(58.8001,20,21,1,0)="As activity (receipts, adjustments, dispensing) occurs for each drug,"
^DD(58.8001,20,21,2,0)="an entry will be added here in which to store totals."
^DD(58.8001,21,0)="PRICE PER DISPENSE UNIT^CJ10,2X^^ ; ^S X=$S($D(^PSDRUG(D1,660)):$P(^PSDRUG(D1,660),U,6),1:0)"
^DD(58.8001,21,9)="^"
^DD(58.8001,21,9.01)=""
^DD(58.8001,21,9.1)="S X=$P(^PSDRUG(D1,660),U,6)"
^DD(58.8001,21,21,0)="^^1^1^2941208^^^^"
^DD(58.8001,21,21,1,0)="Computed by price per dispense unit in the DRUG file (#50)."
^DD(58.8001,21,23,0)="^^1^1^2940915^^"
^DD(58.8001,21,23,1,0)="Uses price per dispense unit from File 50 - DRUG file."
^DD(58.8001,21,"DT")="2920511"
^DD(58.8001,22,0)="LAST OP COLLECTION DATE^D^^6;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8001,22,3)="Enter the last date to collect Outpatient dispensing."
^DD(58.8001,22,21,0)="^^3^3^2940915^^^^"
^DD(58.8001,22,21,1,0)="When collecting Outpatient dispensing data, this field will be used"
^DD(58.8001,22,21,2,0)="in conjunction with the ""AL"" cross-reference in File 52 - PRESCRIPTION"
^DD(58.8001,22,21,3,0)="file - to determine a starting point from which to gather dispensing data."
^DD(58.8001,22,23,0)="^^2^2^2940915^^^^"
^DD(58.8001,22,23,1,0)="This field contains the date from the last"
^DD(58.8001,22,23,2,0)="collection of Outpatient dispensing data."
^DD(58.8001,22,"DT")="2930713"
^DD(58.8001,22.1,0)="LAST OP COLLECTION RX^F^^6;5^K:$L(X)>11!($L(X)<1) X"
^DD(58.8001,22.1,3)="Answer must be 1-11 characters in length."
^DD(58.8001,22.1,21,0)="^^1^1^2930713^"
^DD(58.8001,22.1,21,1,0)="The last prescription for which dispensing data was collected."
^DD(58.8001,22.1,23,0)="^^2^2^2930713^"
^DD(58.8001,22.1,23,1,0)="The last entry from the PRESCRIPTION file (#52) for which dispensing"
^DD(58.8001,22.1,23,2,0)="data was collected."
^DD(58.8001,22.1,"DT")="2930713"
^DD(58.8001,22.2,0)="LAST OP PARTIAL DATE^D^^6;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8001,22.2,3)="Enter last partial date."
^DD(58.8001,22.2,21,0)="^^1^1^2940915^^"
^DD(58.8001,22.2,21,1,0)="The last date that a partial was dispensed for this drug."
^DD(58.8001,22.2,23,0)="^^2^2^2940915^^"
^DD(58.8001,22.2,23,1,0)="Determined by looping through the ""AM"" cross-reference in the PRESCRIPTION"
^DD(58.8001,22.2,23,2,0)="file (#52)."
^DD(58.8001,22.2,"DT")="2930713"
^DD(58.8001,22.3,0)="LAST OP PARTIAL RX^F^^6;8^K:$L(X)>11!($L(X)<1) X"
^DD(58.8001,22.3,3)="Answer must be 1-11 characters in length."
^DD(58.8001,22.3,21,0)="^^1^1^2940915^^"
^DD(58.8001,22.3,21,1,0)="Last partial prescription dispensed."
^DD(58.8001,22.3,23,0)="^^2^2^2940915^^"
^DD(58.8001,22.3,23,1,0)="The last entry in the PRESCRIPTION file (#52) for which a partial was"
^DD(58.8001,22.3,23,2,0)="dispensed."
^DD(58.8001,22.3,"DT")="2930713"
^DD(58.8001,23,0)="LAST OP RET TO STOCK DATE^D^^6;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8001,23,3)="Enter the last date for collection of Outpatient dispensing."
^DD(58.8001,23,21,0)="^^4^4^2940915^^^"
^DD(58.8001,23,21,1,0)="When collecting Outpatient dispensing data, this field will be used"
^DD(58.8001,23,21,2,0)="in conjunction with the ""AJ"" cross-reference in File 52 - PRESCRIPTION"
^DD(58.8001,23,21,3,0)="file - to determine a starting point from which to gather return to"
^DD(58.8001,23,21,4,0)="stock data."
^DD(58.8001,23,23,0)="^^2^2^2940915^^^"
^DD(58.8001,23,23,1,0)="This field contains the date from the last"
^DD(58.8001,23,23,2,0)="collection of return to stock data in the Outpatient module."
^DD(58.8001,23,"DT")="2930713"
^DD(58.8001,23.1,0)="LAST OP RET TO STOCK RX^F^^6;6^K:$L(X)>11!($L(X)<1) X"
^DD(58.8001,23.1,3)="Answer must be 1-11 characters in length."
^DD(58.8001,23.1,21,0)="^^1^1^2930713^"
^DD(58.8001,23.1,21,1,0)="The last prescription returned to stock."
^DD(58.8001,23.1,23,0)="^^1^1^2930713^"
^DD(58.8001,23.1,23,1,0)="The last entry in the PRESCRIPTION file (#52) returned to stock."
^DD(58.8001,23.1,"DT")="2930713"
^DD(58.8001,23.2,0)="LAST OP PARTIAL RET DATE^D^^6;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8001,23.2,3)="Enter date of last partial returned to stock."
^DD(58.8001,23.2,21,0)="^^1^1^2930713^"
^DD(58.8001,23.2,21,1,0)="Date that the last partial was returned to stock for this drug."
^DD(58.8001,23.2,23,0)="^^1^1^2930713^"
^DD(58.8001,23.2,23,1,0)="The date that the last partial was returned to stock for this drug."
^DD(58.8001,23.2,"DT")="2930713"
^DD(58.8001,23.3,0)="LAST OP PARTIAL RET RX^F^^6;10^K:$L(X)>11!($L(X)<1) X"
^DD(58.8001,23.3,3)="Answer must be 1-11 characters in length."
^DD(58.8001,23.3,21,0)="^^1^1^2930713^"
^DD(58.8001,23.3,21,1,0)="The last partial prescription returned to stock for this drug."
^DD(58.8001,23.3,23,0)="^^2^2^2940915^^"
^DD(58.8001,23.3,23,1,0)="The last entry in the PRESCRIPTION file (#52) that had a partial returned to"
^DD(58.8001,23.3,23,2,0)="stock."
^DD(58.8001,23.3,"DT")="2930713"
^DD(58.8001,24,0)="LAST IV COLLECTION DATE,WARD^F^^6;3^K:$L(X)>60!($L(X)<3) X"
^DD(58.8001,24,3)="Answer must be 3-60 characters in length."
^DD(58.8001,24,21,0)="^^3^3^2940915^^^"
^DD(58.8001,24,21,1,0)="When collecting IV dispensing data, this field will be used to store"
^DD(58.8001,24,21,2,0)="the last date,ward collected from the IV STATS file (#50.8).  It will then"
^DD(58.8001,24,21,3,0)="be used as a starting point for future collections."
^DD(58.8001,24,23,0)="^^2^2^2940915^^"
^DD(58.8001,24,23,1,0)="Date and ward from File 50.8 - IV STATS file - at which dispensing data"
^DD(58.8001,24,23,2,0)="was last collected."
^DD(58.8001,24,"DT")="2920903"
^DD(58.8001,25,0)="IV CONVERSION FACTOR^NJ9,2^^6;4^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(58.8001,25,3)="Enter a number to convert IV drug units to DRUG file (#50) dispense units."
^DD(58.8001,25,21,0)="^^2^2^2940915^^^"
^DD(58.8001,25,21,1,0)="When dispensing occurs in the IV module, this number will be used to"
^DD(58.8001,25,21,2,0)="convert IV drug units to DRUG file (#50) dispense units."
^DD(58.8001,25,23,0)="^^1^1^2940915^^^"
^DD(58.8001,25,23,1,0)="Used to convert IV drug units to DRUG file (#50) dispense units."
^DD(58.8001,25,"DT")="2930702"
^DD(58.8001,26,0)="LIQUID?^S^0:NO;1:YES;^7;1^Q"
^DD(58.8001,26,3)="Is this CS drug a liquid?"
^DD(58.8001,26,21,0)="^^1^1^2930817^"
^DD(58.8001,26,21,1,0)="This field is used to flag a Controlled Substances drug as a liquid."
^DD(58.8001,26,"DT")="2930817"
^DD(58.8001,27,0)="INITIALIZED BALANCE^S^1:YES;0:NO;^0;17^Q"
^DD(58.8001,27,3)="Enter YES if this drug balance has been initialized."
^DD(58.8001,27,21,0)="^^2^2^2940923^^^"
^DD(58.8001,27,21,1,0)="When the drug balance has been initialized, this field will be set"
^DD(58.8001,27,21,2,0)="to ""1"" or ""YES"".  A drug balance may only be initialized once."
^DD(58.8001,27,"DT")="2930829"
^DD(58.8001,28,0)="RESTRICT FROM NAOUS?^S^1:YES;0:NO;^7;2^Q"
^DD(58.8001,28,3)="Enter ""1"" or ""Y"" to prevent one-time requests."
^DD(58.8001,28,21,0)="^^3^3^2951122^^^"
^DD(58.8001,28,21,1,0)="     If the primary dispensing site for an NAOU allows one-time requests,"
^DD(58.8001,28,21,2,0)="entering ""YES"" will prevent this drug from being ordered by any NAOU that"
^DD(58.8001,28,21,3,0)="does not already stock it."
^DD(58.8001,28,23,0)="^^1^1^2951122^^^"
^DD(58.8001,28,23,1,0)="Checked by order entry routines (PSDOR*) before allowing one-time requests."
^DD(58.8001,28,"DT")="2950731"
^DD(58.8001,29,0)="ALWAYS PRINT VA FORM 10-2638?^S^1:YES;0:NO;^7;3^Q"
^DD(58.8001,29,3)="Enter ""YES"" or ""1"" to force printing VA FORM 10-2638."
^DD(58.8001,29,21,0)="^^3^3^2960308^"
^DD(58.8001,29,21,1,0)="Answer ""1"" or ""YES"" to force printing a VA FORM 10-2638 even when"
^DD(58.8001,29,21,2,0)="dispensing to a Narcotic Area of Use that is keeping a perpetual"
^DD(58.8001,29,21,3,0)="inventory."
^DD(58.8001,29,"DT")="2960308"
^DD(58.8001,"B","ACTIVITY",19)=""
^DD(58.8001,"B","ALWAYS PRINT VA FORM 10-2638?",29)=""
^DD(58.8001,"B","BALANCE",3)=""
^DD(58.8001,"B","BREAKDOWN UNIT",7)=""
^DD(58.8001,"B","Balance",3)="1"
^DD(58.8001,"B","Breakdown Unit",7)="1"
^DD(58.8001,"B","CS Drug",.01)="1"
^DD(58.8001,"B","DA CONVERSION #",6)=""
^DD(58.8001,"B","DRUG",.01)=""
^DD(58.8001,"B","EXPIRATION DATE",11)=""
^DD(58.8001,"B","Expiration Date",11)="1"
^DD(58.8001,"B","INACTIVATION DATE",13)=""
^DD(58.8001,"B","INACTIVATION REASON",14)=""
^DD(58.8001,"B","INACTIVATION REASON (OTHER)",14.5)=""
^DD(58.8001,"B","INITIALIZED BALANCE",27)=""
^DD(58.8001,"B","INVENTORY TYPE",16)=""
^DD(58.8001,"B","IV CONVERSION FACTOR",25)=""
^DD(58.8001,"B","Inactivation Date",13)="1"
^DD(58.8001,"B","Inactivation Reason",14)="1"
^DD(58.8001,"B","Inactivation Reason (Other)",14.5)="1"
^DD(58.8001,"B","LAST IV COLLECTION DATE,WARD",24)=""
^DD(58.8001,"B","LAST OP COLLECTION DATE",22)=""
^DD(58.8001,"B","LAST OP COLLECTION RX",22.1)=""
^DD(58.8001,"B","LAST OP PARTIAL DATE",22.2)=""
^DD(58.8001,"B","LAST OP PARTIAL RET DATE",23.2)=""
^DD(58.8001,"B","LAST OP PARTIAL RET RX",23.3)=""
^DD(58.8001,"B","LAST OP PARTIAL RX",22.3)=""
^DD(58.8001,"B","LAST OP RET TO STOCK DATE",23)=""
^DD(58.8001,"B","LAST OP RET TO STOCK RX",23.1)=""
^DD(58.8001,"B","LIQUID?",26)=""
^DD(58.8001,"B","LOCATION",1)=""
^DD(58.8001,"B","LOT #",10)=""
^DD(58.8001,"B","Location",1)="1"
^DD(58.8001,"B","Lot #",10)="1"
^DD(58.8001,"B","MANUFACTURER",9)=""
^DD(58.8001,"B","MAXIMUM QUANTITY PER ORDER",8.5)=""
^DD(58.8001,"B","MONTHLY ACTIVITY",20)=""
^DD(58.8001,"B","Manufacturer",9)="1"
^DD(58.8001,"B","ORDERS",18)=""
^DD(58.8001,"B","PACKAGE SIZE",8)=""
^DD(58.8001,"B","PRICE PER DISPENSE UNIT",21)=""
^DD(58.8001,"B","PRIME VENDOR ITEM #",12)=""
^DD(58.8001,"B","Package Size",8)="1"
^DD(58.8001,"B","QUANTITY TO REORDER",5)=""
^DD(58.8001,"B","Quantity to Reorder",5)="1"
^DD(58.8001,"B","REORDER LEVEL",4)=""
^DD(58.8001,"B","RESTRICT FROM NAOUS?",28)=""
^DD(58.8001,"B","Reorder Level",4)="1"
^DD(58.8001,"B","SKIP PRINTING VA FORM 10-2638?",17)=""
^DD(58.8001,"B","STOCK LEVEL",2)=""
^DD(58.8001,"B","Stock Level",2)="1"
^DD(58.8001,"B","WARD (FOR DRUG)",15)=""
^DD(58.8001,"GL",0,1,.01)=""
^DD(58.8001,"GL",0,2,1)=""
^DD(58.8001,"GL",0,3,2)=""
^DD(58.8001,"GL",0,4,3)=""
^DD(58.8001,"GL",0,5,4)=""
^DD(58.8001,"GL",0,6,5)=""
^DD(58.8001,"GL",0,7,8.5)=""
^DD(58.8001,"GL",0,8,7)=""
^DD(58.8001,"GL",0,9,8)=""
^DD(58.8001,"GL",0,10,9)=""
^DD(58.8001,"GL",0,11,10)=""
^DD(58.8001,"GL",0,12,11)=""
^DD(58.8001,"GL",0,13,12)=""
^DD(58.8001,"GL",0,14,13)=""
^DD(58.8001,"GL",0,15,14)=""
^DD(58.8001,"GL",0,16,14.5)=""
^DD(58.8001,"GL",0,17,27)=""
^DD(58.8001,"GL",1,0,15)=""
^DD(58.8001,"GL",2,0,16)=""
^DD(58.8001,"GL",3,0,18)=""
^DD(58.8001,"GL",4,0,19)=""
^DD(58.8001,"GL",5,0,20)=""
^DD(58.8001,"GL",6,1,22)=""
^DD(58.8001,"GL",6,2,23)=""
^DD(58.8001,"GL",6,3,24)=""
^DD(58.8001,"GL",6,4,25)=""
^DD(58.8001,"GL",6,5,22.1)=""
^DD(58.8001,"GL",6,6,23.1)=""
^DD(58.8001,"GL",6,7,22.2)=""
^DD(58.8001,"GL",6,8,22.3)=""
^DD(58.8001,"GL",6,9,23.2)=""
^DD(58.8001,"GL",6,10,23.3)=""
^DD(58.8001,"GL",7,1,26)=""
^DD(58.8001,"GL",7,2,28)=""
^DD(58.8001,"GL",7,3,29)=""
^DD(58.8001,"GL","GS",1,17)=""
^DD(58.8001,"IX",.01)=""
^DD(58.8001,"IX",11)=""
^DD(58.8001,"IX",12)=""
^DD(58.8001,"IX",13)=""
^DD(58.8001,"RQ",.01)=""
^DD(58.8001,"SB",58.800115,15)=""
^DD(58.8001,"SB",58.800116,16)=""
^DD(58.8001,"SB",58.800118,18)=""
^DD(58.8001,"SB",58.800119,19)=""
^DD(58.8001,"SB",58.801,20)=""
^DD(58.800115,0)="WARD (FOR DRUG) SUB-FIELD^^.01^1"
^DD(58.800115,0,"DT")="2920321"
^DD(58.800115,0,"NM","WARD (FOR DRUG)")=""
^DD(58.800115,0,"UP")="58.8001"
^DD(58.800115,.01,0)="WARD (FOR DRUG)^MP42'X^DIC(42,^0;1^S:$D(X) DINUM=X"
^DD(58.800115,.01,1,0)="^.1"
^DD(58.800115,.01,1,1,0)="58.8^D^MUMPS"
^DD(58.800115,.01,1,1,1)="I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) D INACT^PSDUTL I $D(PSDFLAG) S ^PSD(58.8,""D"",+^(0),DA,DA(2))="""" K PSDFLAG"
^DD(58.800115,.01,1,1,2)="I $D(^PSD(58.8,DA(2),1,DA(1),0)),^(0) K ^PSD(58.8,""D"",+^(0),DA,DA(2))"
^DD(58.800115,.01,1,1,3)="DO NOT DELETE"
^DD(58.800115,.01,1,1,"%D",0)="^^3^3^2940929^^^^"
^DD(58.800115,.01,1,1,"%D",1,0)="This cross-reference is the link between the Controlled Substances"
^DD(58.800115,.01,1,1,"%D",2,0)="package and the Unit Dose package for determining ward stocked drugs."
^DD(58.800115,.01,1,1,"%D",3,0)="The cross-reference is ^PSD(58.8,""D"",DRUG,WARD,DA)="""""
^DD(58.800115,.01,1,1,"DT")="2920321"
^DD(58.800115,.01,3)="Enter the ward which uses this drug."
^DD(58.800115,.01,21,0)="^^5^5^2940920^^^^"
^DD(58.800115,.01,21,1,0)="This field contains information from the WARD LOCATION file (#42).  Names"
^DD(58.800115,.01,21,2,0)="of the ward or wards using this drug will be entered.  This is the"
^DD(58.800115,.01,21,3,0)="link between the Controlled Substances package and the Unit Dose"
^DD(58.800115,.01,21,4,0)="package for determining ward stocked drugs."
^DD(58.800115,.01,21,5,0)="  "
^DD(58.800115,.01,23,0)="^^1^1^2940914^^^^"
^DD(58.800115,.01,23,1,0)="DINUMed pointer to File 42 - WARD LOCATION file."
^DD(58.800115,.01,"DT")="2920321"
^DD(58.800115,"B","WARD (FOR DRUG)",.01)=""
^DD(58.800115,"GL",0,1,.01)=""
^DD(58.800115,"IX",.01)=""
^DD(58.800116,0)="INVENTORY TYPE SUB-FIELD^^.01^1"
^DD(58.800116,0,"DT")="2920213"
^DD(58.800116,0,"NM","INVENTORY TYPE")=""
^DD(58.800116,0,"UP")="58.8001"
^DD(58.800116,.01,0)="TYPE^M*P58.16'X^PSI(58.16,^0;1^S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ALL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(58.800116,.01,1,0)="^.1^^0"
^DD(58.800116,.01,3)="Enter the inventory type(s) for this CS drug."
^DD(58.800116,.01,12)="Screens out selection of ""ALL"" as Inventory Type."
^DD(58.800116,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""")'=""""ALL"""""""
^DD(58.800116,.01,21,0)="^^5^5^2940920^^^^"
^DD(58.800116,.01,21,1,0)="Pointer to the inventory types defined in File 58.16 - AOU INVENTORY"
^DD(58.800116,.01,21,2,0)="TYPE file."
^DD(58.800116,.01,21,3,0)="   "
^DD(58.800116,.01,21,4,0)="The Controlled Substances module uses inventory types to group related"
^DD(58.800116,.01,21,5,0)="drugs in a Narcotic Area of Use."
^DD(58.800116,.01,23,0)="^^1^1^2940914^^^^"
^DD(58.800116,.01,23,1,0)="DINUMed pointer to File 58.16 - AOU INVENTORY TYPE file."
^DD(58.800116,.01,"DT")="2920213"
^DD(58.800116,"B","TYPE",.01)=""
^DD(58.800116,"GL",0,1,.01)=""
^DD(58.800118,0)="ORDERS SUB-FIELD^^25^26"
^DD(58.800118,0,"DT")="2961031"
^DD(58.800118,0,"IX","B",58.800118,.01)=""
^DD(58.800118,0,"NM","ORDERS")=""
^DD(58.800118,0,"UP")="58.8001"
^DD(58.800118,.01,0)="REQUEST #^NJ8,0X^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(58.800118,.01,1,0)="^.1"
^DD(58.800118,.01,1,1,0)="58.800118^B"
^DD(58.800118,.01,1,1,1)="S ^PSD(58.8,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(58.800118,.01,1,1,2)="K ^PSD(58.8,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(58.800118,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(58.800118,.01,21,0)="^^1^1^2920912^^^"
^DD(58.800118,.01,21,1,0)="Internal entry number for this Controlled Substances request order."
^DD(58.800118,.01,23,0)="^^1^1^2920503^"
^DD(58.800118,.01,23,1,0)="DINUM"
^DD(58.800118,.01,"DT")="2920322"
^DD(58.800118,1,0)="REQUEST DATE/TIME^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.800118,1,3)="Enter the request date or date/time for this order."
^DD(58.800118,1,21,0)="^^2^2^2920912^^^"
^DD(58.800118,1,21,1,0)="The date or date/time this Controlled Substances request order was"
^DD(58.800118,1,21,2,0)="generated."
^DD(58.800118,1,"DT")="2920319"
^DD(58.800118,2,0)="DISPENSING SITE^R*P58.8'^PSD(58.8,^0;3^S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.800118,2,3)="Enter the Pharmacy dispensing location."
^DD(58.800118,2,12)="Allows selection of master vault or satellite vault as a dispensing site."
^DD(58.800118,2,12.1)="S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"""
^DD(58.800118,2,21,0)="^^3^3^2940923^^^^"
^DD(58.800118,2,21,1,0)="A pointer to the primary dispensing site for this Controlled Substances"
^DD(58.800118,2,21,2,0)="request order.  A primary dispensing site is defined in the DRUG"
^DD(58.800118,2,21,3,0)="ACCOUNTABILITY STATS file (#58.8) as a Master vault or Satellite vault."
^DD(58.800118,2,23,0)="^^3^3^2940923^^^"
^DD(58.800118,2,23,1,0)="Screened pointer to File 58.8 - DRUG ACCOUNTABILITY STATS file."
^DD(58.800118,2,23,2,0)="Allows selection of Master vault or Satellite vault as a dispensing"
^DD(58.800118,2,23,3,0)="site."
^DD(58.800118,2,"DT")="2920325"
^DD(58.800118,3,0)="ORDERED BY^R*P200'^VA(200,^0;4^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.800118,3,3)="Enter the name of the person requesting this CS order."
^DD(58.800118,3,12)="Access granted to nurses and pharmacy personnel holding the appropriate security key."
^DD(58.800118,3,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"""
^DD(58.800118,3,21,0)="^^2^2^2920912^^^^"
^DD(58.800118,3,21,1,0)="A pointer to the name of the person requesting this Controlled Substances"
^DD(58.800118,3,21,2,0)="order."
^DD(58.800118,3,23,0)="^^1^1^2940914^^"
^DD(58.800118,3,23,1,0)="Screened pointer to File 200 - NEW PERSON file."
^DD(58.800118,3,"DT")="2920419"
^DD(58.800118,4,0)="DISPENSED BY^R*P200'^VA(200,^0;5^S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.800118,4,3)="Enter the name of the pharmacist dispensing this CS order."
^DD(58.800118,4,12)="Access granted to pharmacist holding the appropriate security key."
^DD(58.800118,4,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"""
^DD(58.800118,4,21,0)="^^2^2^2920912^^^"
^DD(58.800118,4,21,1,0)="A pointer to the name of the pharmacist dispensing the drug for this"
^DD(58.800118,4,21,2,0)="Controlled Substances order."
^DD(58.800118,4,23,0)="^^1^1^2940914^^"
^DD(58.800118,4,23,1,0)="Screened pointer to File 200 - NEW PERSON file."
^DD(58.800118,4,"DT")="2920503"
^DD(58.800118,5,0)="QUANTITY ORDERED^RNJ6,0^^0;6^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.800118,5,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(58.800118,5,21,0)="^^2^2^2920912^^^^"
^DD(58.800118,5,21,1,0)="The drug quantity originally requested on this Controlled Substances"
^DD(58.800118,5,21,2,0)="order."
^DD(58.800118,5,"DT")="2920330"
^DD(58.800118,6,0)="RECEIVED BY^*P200'^VA(200,^0;7^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.800118,6,3)="Enter the name of the person receiving this CS order."
^DD(58.800118,6,12)="Access granted to nurses and pharmacy personnel holding the appropriate security key."
^DD(58.800118,6,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"""
^DD(58.800118,6,21,0)="^^2^2^2920912^^^^"
^DD(58.800118,6,21,1,0)="A pointer to the name of the person receiving this Controlled Substances"
^DD(58.800118,6,21,2,0)="order."
^DD(58.800118,6,23,0)="^^3^3^2940914^^^"
^DD(58.800118,6,23,1,0)="Screened pointer to File 200 - NEW PERSON file."
^DD(58.800118,6,23,2,0)="Limits selection to nurses or pharmacy personnel holding the"
^DD(58.800118,6,23,3,0)="appropriate security key."
^DD(58.800118,6,"DT")="2930527"
^DD(58.800118,7,0)="MANUFACTURER^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(58.800118,7,3)="Enter the current manufacturer for the drug dispensed on this CS order."
^DD(58.800118,7,21,0)="^^2^2^2920912^^^^"
^DD(58.800118,7,21,1,0)="The current manufacturer of the drug dispensed on this Controlled"
^DD(58.800118,7,21,2,0)="Substances order."
^DD(58.800118,7,"DT")="2920107"
^DD(58.800118,8,0)="LOT #^F^^0;9^K:$L(X)>10!($L(X)<1) X"
^DD(58.800118,8,3)="Enter the current lot # for the drug dispensed on this CS order."
^DD(58.800118,8,21,0)="^^2^2^2920912^^^^"
^DD(58.800118,8,21,1,0)="The current lot # for the drug dispensed on this Controlled Substances"
^DD(58.800118,8,21,2,0)="order."
^DD(58.800118,8,"DT")="2920107"
^DD(58.800118,9,0)="EXPIRATION DATE^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(58.800118,9,1,0)="^.1"
^DD(58.800118,9,1,1,0)="58.8^AEXPO^MUMPS"
^DD(58.800118,9,1,1,1)="S ^PSD(58.8,""AEXPO"",$E(X,1,30),DA(1),DA(2),DA)="""""
^DD(58.800118,9,1,1,2)="K ^PSD(58.8,""AEXPO"",$E(X,1,30),DA(1),DA(2),DA)"
^DD(58.800118,9,1,1,3)="DO NOT DELETE"
^DD(58.800118,9,1,1,"%D",0)="^^4^4^2940929^^^^"
^DD(58.800118,9,1,1,"%D",1,0)="This cross-reference is used for compiling the Expiration Date"
^DD(58.800118,9,1,1,"%D",2,0)="Report in the Controlled Substances module."
^DD(58.800118,9,1,1,"%D",3,0)="  "
^DD(58.800118,9,1,1,"%D",4,0)="The cross-reference is ^PSD(58.8,""AEXPO"",DATE,DRUG,NAOU,REQUEST #)="""""
^DD(58.800118,9,1,1,"DT")="2920504"
^DD(58.800118,9,3)="Enter the expiration date for the drug dispensed on this CS order."
^DD(58.800118,9,21,0)="^^2^2^2920912^^^^"
^DD(58.800118,9,21,1,0)="The current expiration date for the drug dispensed on this Controlled"
^DD(58.800118,9,21,2,0)="Substances order."
^DD(58.800118,9,23,0)="^^1^1^2920624^^"
^DD(58.800118,9,23,1,0)="Date may be imprecise."
^DD(58.800118,9,"DT")="2920504"
^DD(58.800118,10,0)="ORDER STATUS^P58.82'^PSD(58.82,^0;11^Q"
^DD(58.800118,10,1,0)="^.1"
^DD(58.800118,10,1,1,0)="58.8^AC^MUMPS"
^DD(58.800118,10,1,1,1)="S ^PSD(58.8,""AC"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(58.800118,10,1,1,2)="K ^PSD(58.8,""AC"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(58.800118,10,1,1,3)="DO NOT DELETE"
^DD(58.800118,10,1,1,"%D",0)="^^3^3^2940929^^^^"
^DD(58.800118,10,1,1,"%D",1,0)="This cross reference is used in compiling data for various Controlled"
^DD(58.800118,10,1,1,"%D",2,0)="Substances statistical reports."
^DD(58.800118,10,1,1,"%D",3,0)="It represents ^PSD(58.8,""AC"",ORDER STATUS,NAOU,DRUG,REQUEST #)="""""
^DD(58.800118,10,1,1,"DT")="2920325"
^DD(58.800118,10,3)="Enter the status of this Controlled Substances order."
^DD(58.800118,10,21,0)="^^1^1^2920912^^^"
^DD(58.800118,10,21,1,0)="The status of this Controlled Substances order."
^DD(58.800118,10,"DT")="2920325"
^DD(58.800118,11,0)="COMPLETION STATUS^P58.83'^PSD(58.83,^0;12^Q"
^DD(58.800118,11,1,0)="^.1^^0"
^DD(58.800118,11,3)="Enter the completion status of this Controlled Substances order."
^DD(58.800118,11,21,0)="^^1^1^2920916^^"
^DD(58.800118,11,21,1,0)="The completion status for this Controlled Substances order."
^DD(58.800118,11,"DT")="2920629"
^DD(58.800118,12,0)="COMPLETION DATE/TIME^D^^0;13^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.800118,12,3)="Enter the date/time this order was completed."
^DD(58.800118,12,21,0)="^^1^1^2920912^^^^"
^DD(58.800118,12,21,1,0)="The date or date/time this Controlled Substances order was completed."
^DD(58.800118,12,"DT")="2930701"
^DD(58.800118,13,0)="COMMENTS^58.80011813^^1;0"
^DD(58.800118,13,21,0)="^^2^2^2920915^^^^"
^DD(58.800118,13,21,1,0)="Comments to pharmacy concerning this Controlled Substances order"
^DD(58.800118,13,21,2,0)="request."
^DD(58.800118,14,0)="DISPENSED DATE/TIME^D^^0;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.800118,14,1,0)="^.1"
^DD(58.800118,14,1,1,0)="58.8^AD"
^DD(58.800118,14,1,1,1)="S ^PSD(58.8,""AD"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(58.800118,14,1,1,2)="K ^PSD(58.8,""AD"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(58.800118,14,1,1,3)="DO NOT DELETE"
^DD(58.800118,14,1,1,"DT")="2920908"
^DD(58.800118,14,3)="Enter the date/time pharmacy dispensed this drug."
^DD(58.800118,14,21,0)="^^2^2^2920915^^^"
^DD(58.800118,14,21,1,0)="The date or date/time this Controlled Substances order was dispensed"
^DD(58.800118,14,21,2,0)="from pharmacy."
^DD(58.800118,14,"DT")="2930701"
^DD(58.800118,15,0)="RECEIPT DATE/TIME^D^^0;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.800118,15,1,0)="^.1^^0"
^DD(58.800118,15,3)="Enter date/time this drug was received into this Narcotic Area of Use."
^DD(58.800118,15,21,0)="^^2^2^2920503^"
^DD(58.800118,15,21,1,0)="The date or date/time this drug order was received into this Narcotic"
^DD(58.800118,15,21,2,0)="Area of Use."
^DD(58.800118,15,"DT")="2920908"
^DD(58.800118,16,0)="PHARMACY DISPENSING #^F^^0;16^K:$L(X)>9!($L(X)<1) X"
^DD(58.800118,16,1,0)="^.1"
^DD(58.800118,16,1,1,0)="58.8^F"
^DD(58.800118,16,1,1,1)="S ^PSD(58.8,""F"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(58.800118,16,1,1,2)="K ^PSD(58.8,""F"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(58.800118,16,1,1,3)="DO NOT DELETE"
^DD(58.800118,16,1,1,"DT")="2920513"
^DD(58.800118,16,3)="Answer must be 1-9 characters in length."
^DD(58.800118,16,21,0)="^^6^6^2940914^^^^"
^DD(58.800118,16,21,1,0)="The Controlled Substances control number (Green Sheet #) pharmacy assigned"
^DD(58.800118,16,21,2,0)="to this order."
^DD(58.800118,16,21,3,0)="   "
^DD(58.800118,16,21,4,0)="If the site parameter ""AUTO GENERATE DISPENSING #'S?"" was answered"
^DD(58.800118,16,21,5,0)="""YES"", this number will be automatically generated within the"
^DD(58.800118,16,21,6,0)="Controlled Substances package."
^DD(58.800118,16,"DT")="2920812"
^DD(58.800118,17,0)="TRANSACTION #^P58.81'^PSD(58.81,^0;17^Q"
^DD(58.800118,17,3)="Enter the transaction number for this CS order."
^DD(58.800118,17,21,0)="^^1^1^2920912^^^^"
^DD(58.800118,17,21,1,0)="A pointer to the transaction for this Controlled Substances order."
^DD(58.800118,17,23,0)="^^1^1^2940914^^^^"
^DD(58.800118,17,23,1,0)="Pointer to File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file."
^DD(58.800118,17,"DT")="2920322"
^DD(58.800118,18,0)="RX #^P52'^PSRX(^0;18^Q"
^DD(58.800118,18,3)="Enter the prescription number for this CS order."
^DD(58.800118,18,21,0)="^^1^1^2920912^^^"
^DD(58.800118,18,21,1,0)="The prescription number for this Controlled Substances order."
^DD(58.800118,18,23,0)="^^1^1^2940914^^"
^DD(58.800118,18,23,1,0)="Pointer to File 52 - PRESCRIPTION file."
^DD(58.800118,18,"DT")="2920323"
^DD(58.800118,19,0)="QUANTITY DISPENSED^NJ6,0^^0;19^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.800118,19,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(58.800118,19,21,0)="^^2^2^2920912^^^^"
^DD(58.800118,19,21,1,0)="The actual quantity of the drug dispensed from pharmacy on this"
^DD(58.800118,19,21,2,0)="Controlled Substances order."
^DD(58.800118,19,"DT")="2920330"
^DD(58.800118,20,0)="QUANTITY RECEIVED^NJ6,0^^0;20^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.800118,20,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(58.800118,20,21,0)="^^2^2^2930823^^^^"
^DD(58.800118,20,21,1,0)="The actual quantity of the drug received on this Controlled Substances"
^DD(58.800118,20,21,2,0)="order."
^DD(58.800118,20,"DT")="2930823"
^DD(58.800118,21,0)="DISCREPANCY UNRESOLVED^S^1:YES;0:NO;^0;21^Q"
^DD(58.800118,21,1,0)="^.1^^0"
^DD(58.800118,21,3)="Answer ""YES"" if this receiving discrepancy is unresolved."
^DD(58.800118,21,21,0)="^^3^3^2921106^^"
^DD(58.800118,21,21,1,0)="If the actual quantity of the drug received is different from the"
^DD(58.800118,21,21,2,0)="actual quantity pharmacy dispensed, then this field will be set"
^DD(58.800118,21,21,3,0)="to ""1"" or ""YES""."
^DD(58.800118,21,"DT")="2920629"
^DD(58.800118,22,0)="BALANCE^NJ6,0^^0;22^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(58.800118,22,3)="Type a Number between -999999 and 999999, 0 Decimal Digits"
^DD(58.800118,22,21,0)="^^1^1^2930823^^^^"
^DD(58.800118,22,21,1,0)="Actual balance of the drug for this Controlled Substances order."
^DD(58.800118,22,"DT")="2930823"
^DD(58.800118,23,0)="COMPLETED BY NURSE^*P200'^VA(200,^2;1^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.800118,23,3)="Enter the name of the nurse returning this order."
^DD(58.800118,23,12)="Access granted to nurses holding the appropriate security key."
^DD(58.800118,23,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"""
^DD(58.800118,23,21,0)="^^2^2^2940914^^^^"
^DD(58.800118,23,21,1,0)="A pointer to the name of the nurse returning the VA FORM 10-2638"
^DD(58.800118,23,21,2,0)="(Green Sheet) to pharmacy."
^DD(58.800118,23,23,0)="^^2^2^2940914^"
^DD(58.800118,23,23,1,0)="Screened pointer to File 200 - NEW PERSON file.  Limits selection"
^DD(58.800118,23,23,2,0)="to nurses holding the appropriate security key."
^DD(58.800118,23,"DT")="2930527"
^DD(58.800118,24,0)="EMERGENCY^S^1:YES;0:NO;^2;2^Q"
^DD(58.800118,24,3)="Answer ""YES"" if this is an emergency order."
^DD(58.800118,24,21,0)="^^2^2^2950214^"
^DD(58.800118,24,21,1,0)="A ""YES"" entry in this field will cause an order to print on the pharmacy"
^DD(58.800118,24,21,2,0)="emergency order printer and allow for expedited processing."
^DD(58.800118,24,23,0)="^^1^1^2950214^^"
^DD(58.800118,24,23,1,0)="This field is used to flag orders for expedited processing."
^DD(58.800118,24,"DT")="2950214"
^DD(58.800118,25,0)="BALANCE BEFORE RECEIPT^NJ10,3^^2;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(58.800118,25,3)="Type a Number between 0 and 999999, 3 Decimal Digits"
^DD(58.800118,25,21,0)="^^1^1^2961031^"
^DD(58.800118,25,21,1,0)="The balance of this drug before receiving this order"
^DD(58.800118,25,"DT")="2961031"
^DD(58.800118,"B","BALANCE",22)=""
^DD(58.800118,"B","BALANCE BEFORE RECEIPT",25)=""
^DD(58.800118,"B","COMMENTS",13)=""
^DD(58.800118,"B","COMPLETED BY NURSE",23)=""
^DD(58.800118,"B","COMPLETION DATE/TIME",12)=""
^DD(58.800118,"B","COMPLETION STATUS",11)=""
^DD(58.800118,"B","DISCREPANCY UNRESOLVED",21)=""
^DD(58.800118,"B","DISPENSED BY",4)=""
^DD(58.800118,"B","DISPENSED DATE/TIME",14)=""
^DD(58.800118,"B","DISPENSING SITE",2)=""
^DD(58.800118,"B","EMERGENCY",24)=""
^DD(58.800118,"B","EXPIRATION DATE",9)=""
^DD(58.800118,"B","LOT #",8)=""
^DD(58.800118,"B","MANUFACTURER",7)=""
^DD(58.800118,"B","ORDER STATUS",10)=""
^DD(58.800118,"B","ORDERED BY",3)=""
^DD(58.800118,"B","PHARMACY DISPENSING #",16)=""
^DD(58.800118,"B","QUANTITY DISPENSED",19)=""
^DD(58.800118,"B","QUANTITY ORDERED",5)=""
^DD(58.800118,"B","QUANTITY RECEIVED",20)=""
^DD(58.800118,"B","RECEIPT DATE/TIME",15)=""
^DD(58.800118,"B","RECEIVED BY",6)=""
^DD(58.800118,"B","REQUEST #",.01)=""
^DD(58.800118,"B","REQUEST DATE/TIME",1)=""
^DD(58.800118,"B","RX #",18)=""
^DD(58.800118,"B","TRANSACTION #",17)=""
^DD(58.800118,"GL",0,1,.01)=""
^DD(58.800118,"GL",0,2,1)=""
^DD(58.800118,"GL",0,3,2)=""
^DD(58.800118,"GL",0,4,3)=""
^DD(58.800118,"GL",0,5,4)=""
^DD(58.800118,"GL",0,6,5)=""
^DD(58.800118,"GL",0,7,6)=""
^DD(58.800118,"GL",0,8,7)=""
^DD(58.800118,"GL",0,9,8)=""
^DD(58.800118,"GL",0,10,9)=""
^DD(58.800118,"GL",0,11,10)=""
^DD(58.800118,"GL",0,12,11)=""
^DD(58.800118,"GL",0,13,12)=""
^DD(58.800118,"GL",0,14,14)=""
^DD(58.800118,"GL",0,15,15)=""
^DD(58.800118,"GL",0,16,16)=""
^DD(58.800118,"GL",0,17,17)=""
^DD(58.800118,"GL",0,18,18)=""
^DD(58.800118,"GL",0,19,19)=""
^DD(58.800118,"GL",0,20,20)=""
^DD(58.800118,"GL",0,21,21)=""
^DD(58.800118,"GL",0,22,22)=""
^DD(58.800118,"GL",1,0,13)=""
^DD(58.800118,"GL",2,1,23)=""
^DD(58.800118,"GL",2,2,24)=""
^DD(58.800118,"GL",2,3,25)=""
^DD(58.800118,"IX",.01)=""
^DD(58.800118,"IX",9)=""
^DD(58.800118,"IX",10)=""
^DD(58.800118,"IX",14)=""
^DD(58.800118,"IX",16)=""
^DD(58.800118,"RQ",2)=""
^DD(58.800118,"RQ",3)=""
^DD(58.800118,"RQ",4)=""
^DD(58.800118,"RQ",5)=""
^DD(58.800118,"SB",58.80011813,13)=""
^DD(58.80011813,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(58.80011813,0,"DT")="2920323"
^DD(58.80011813,0,"NM","COMMENTS")=""
^DD(58.80011813,0,"UP")="58.800118"
^DD(58.80011813,.01,0)="COMMENTS^W^^0;1^Q"
^DD(58.80011813,.01,3)="Enter any comments for this order."
^DD(58.80011813,.01,21,0)="^^2^2^2920912^^^^"
^DD(58.80011813,.01,21,1,0)="Comments to pharmacy concerning this Controlled Substances order"
^DD(58.80011813,.01,21,2,0)="request."
^DD(58.80011813,.01,"DT")="2920323"
^DD(58.80011813,"B","COMMENTS",.01)=""
^DD(58.80011813,"GL",0,1,.01)=""
^DD(58.800119,0)="ACTIVITY SUB-FIELD^^.01^1"
^DD(58.800119,0,"DT")="2920423"
^DD(58.800119,0,"IX","B",58.800119,.01)=""
^DD(58.800119,0,"NM","ACTIVITY")=""
^DD(58.800119,0,"UP")="58.8001"
^DD(58.800119,.01,0)="ACTIVITY^MP58.81X^PSD(58.81,^0;1^S:$D(X) DINUM=X"
^DD(58.800119,.01,1,0)="^.1"
^DD(58.800119,.01,1,1,0)="58.800119^B"
^DD(58.800119,.01,1,1,1)="S ^PSD(58.8,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(58.800119,.01,1,1,2)="K ^PSD(58.8,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(58.800119,.01,21,0)="^^2^2^2940923^^^"
^DD(58.800119,.01,21,1,0)="A link to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) where each"
^DD(58.800119,.01,21,2,0)="receipt and adjustment is stored as an audit trail."
^DD(58.800119,.01,23,0)="^^2^2^2940923^^^"
^DD(58.800119,.01,23,1,0)="Points to File 58.81 - DRUG ACCOUNTABILITY TRANSACTION file - where full"
^DD(58.800119,.01,23,2,0)="information about each transaction is stored."
^DD(58.800119,.01,"DT")="2920427"
^DD(58.800119,"B","ACTIVITY",.01)=""
^DD(58.800119,"GL",0,1,.01)=""
^DD(58.800119,"IX",.01)=""
^DD(58.801,0)="MONTHLY ACTIVITY SUB-FIELD^^13^14"
^DD(58.801,0,"DT")="2970630"
^DD(58.801,0,"IX","B",58.801,.01)=""
^DD(58.801,0,"NM","MONTHLY ACTIVITY")=""
^DD(58.801,0,"UP")="58.8001"
^DD(58.801,.01,0)="MONTHLY ACTIVITY^NJ5,0OX^^0;1^K:+X'=X!(X>9999999)!(X<29204)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(58.801,.01,1,0)="^.1^^0"
^DD(58.801,.01,1,1,0)="58.801^B"
^DD(58.801,.01,1,1,1)="S ^PSD(58.8,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(58.801,.01,1,1,2)="K ^PSD(58.8,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(58.801,.01,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(58.801,.01,2.1)="X ^DD(""DD"")"
^DD(58.801,.01,3)="Type a Number between 29204 and 9999999, 0 Decimal Digits"
^DD(58.801,.01,21,0)="^^2^2^2930225^^^"
^DD(58.801,.01,21,1,0)="As activity (receipts, adjustments, dispensing) occurs for each drug,"
^DD(58.801,.01,21,2,0)="an entry will be added here in which to store totals."
^DD(58.801,.01,23,0)="^^1^1^2930225^^^"
^DD(58.801,.01,23,1,0)="Month of activity stored in seven digit FM format."
^DD(58.801,.01,"DT")="2930225"
^DD(58.801,1,0)="BEGINNING BALANCE^NJ10,2^^0;2^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""3N.N) X"
^DD(58.801,1,3)="Type a Number between -9999999 and 9999999, 2 Decimal Digits"
^DD(58.801,1,21,0)="^^2^2^2921106^^^^"
^DD(58.801,1,21,1,0)="At the beginning of each month, the current balance of a drug will be"
^DD(58.801,1,21,2,0)="stuffed here by a queued option."
^DD(58.801,1,23,0)="^^1^1^2921106^^^"
^DD(58.801,1,23,1,0)="The balance of a drug at the beginning of the month."
^DD(58.801,1,"DT")="2930503"
^DD(58.801,2,0)="BEGINNING VALUE^CJ10,2X^^ ; ^X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,2,2)=X S Y(58.801,2,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"""") S X=$P(Y(58.801,2,1),U,2)*Y(58.801,2,2)"
^DD(58.801,2,9)="^"
^DD(58.801,2,9.01)="58.8001^12;58.801^1"
^DD(58.801,2,9.1)="BEG*PRICE PER DI"
^DD(58.801,2,21,0)="^^2^2^2940923^^^^"
^DD(58.801,2,21,1,0)="Computed by the price per dispense unit from the DRUG file (#50) times the"
^DD(58.801,2,21,2,0)="beginning balance."
^DD(58.801,2,23,0)="^^2^2^2940923^^^^"
^DD(58.801,2,23,1,0)="Uses price per dispense unit from File 50 - DRUG file - times beginning"
^DD(58.801,2,23,2,0)="balance."
^DD(58.801,2,"DT")="2920429"
^DD(58.801,3,0)="ENDING BALANCE^NJ10,2^^0;4^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""3N.N) X"
^DD(58.801,3,3)="Type a Number between -9999999 and 9999999, 2 Decimal Digits"
^DD(58.801,3,21,0)="^^2^2^2940923^^^"
^DD(58.801,3,21,1,0)="At the beginning of each month the current balance will be stuffed as"
^DD(58.801,3,21,2,0)="the previous month's ending balance."
^DD(58.801,3,23,0)="^^1^1^2940923^^"
^DD(58.801,3,23,1,0)="The balance of a drug at the end of the month."
^DD(58.801,3,"DT")="2930503"
^DD(58.801,4,0)="ENDING VALUE^CJ10,2^^ ; ^X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,4,2)=X S Y(58.801,4,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"""") S X=$P(Y(58.801,4,1),U,4)*Y(58.801,4,2)"
^DD(58.801,4,9)="^"
^DD(58.801,4,9.01)="58.8001^21;58.801^3"
^DD(58.801,4,9.1)="ENDING BALANCE*PRICE PER DISPENSE UNIT"
^DD(58.801,4,21,0)="^^2^2^2940915^^^^"
^DD(58.801,4,21,1,0)="Computed by the price per dispense unit from the DRUG file (#50) times the"
^DD(58.801,4,21,2,0)="ending balance."
^DD(58.801,4,23,0)="^^2^2^2940915^^^^"
^DD(58.801,4,23,1,0)="Uses price per dispense unit from File 50 - DRUG file - times ending"
^DD(58.801,4,23,2,0)="balance."
^DD(58.801,5,0)="TOTAL RECEIVED^NJ10,2^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(58.801,5,3)="Type a Number between 0 and 9999999, 2 Decimal Digits"
^DD(58.801,5,21,0)="^^2^2^2940915^^^^"
^DD(58.801,5,21,1,0)="Each receipt added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81) will"
^DD(58.801,5,21,2,0)="increment this amount."
^DD(58.801,5,23,0)="^^2^2^2940915^^^"
^DD(58.801,5,23,1,0)="Incremented by receipt transactions in File 58.81 - DRUG ACCOUNTABILITY"
^DD(58.801,5,23,2,0)="TRANSACTION file."
^DD(58.801,5,"DT")="2930923"
^DD(58.801,6,0)="VALUE RECEIVED^CJ10,2^^ ; ^X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,6,2)=X S Y(58.801,6,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"""") S X=$P(Y(58.801,6,1),U,3)*Y(58.801,6,2)"
^DD(58.801,6,9)="^"
^DD(58.801,6,9.01)="58.8001^21;58.801^5"
^DD(58.801,6,9.1)="TOTAL RECEIVED*PRICE PER DISPENSE UNIT"
^DD(58.801,6,21,0)="^^2^2^2940915^^^^"
^DD(58.801,6,21,1,0)="Computed by the price per dispense unit from the DRUG file (#50) times the"
^DD(58.801,6,21,2,0)="total received."
^DD(58.801,6,23,0)="^^2^2^2940915^^^^"
^DD(58.801,6,23,1,0)="Uses price per dispense unit from File 50 - DRUG file - times total"
^DD(58.801,6,23,2,0)="received."
^DD(58.801,7,0)="TOTAL ADJUSTED^NJ10,2^^0;5^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""3N.N) X"
^DD(58.801,7,3)="Type a Number between -9999999 and 9999999, 2 Decimal Digits"
^DD(58.801,7,21,0)="^^2^2^2940915^^^^"
^DD(58.801,7,21,1,0)="Each adjustment added to the DRUG ACCOUNTABILITY TRANSACTION file (#58.81)"
^DD(58.801,7,21,2,0)="will increment/decrement this amount."
^DD(58.801,7,23,0)="^^2^2^2940915^^^"
^DD(58.801,7,23,1,0)="Incremented/decremented by adjustments in File 58.81 - DRUG ACCOUNTABILITY"
^DD(58.801,7,23,2,0)="TRANSACTION file."
^DD(58.801,7,"DT")="2930923"
^DD(58.801,8,0)="VALUE ADJUSTED^CJ10,2^^ ; ^X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,8,2)=X S Y(58.801,8,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"""") S X=$P(Y(58.801,8,1),U,5)*Y(58.801,8,2)"
^DD(58.801,8,9)="^"
^DD(58.801,8,9.01)="58.8001^21;58.801^7"
^DD(58.801,8,9.1)="TOTAL ADJUSTED*PRICE PER DISPENSE UNIT"
^DD(58.801,8,21,0)="^^2^2^2940915^^^^"
^DD(58.801,8,21,1,0)="Computed by the price per dispense unit from the DRUG file (#50) times the"
^DD(58.801,8,21,2,0)="total adjusted."
^DD(58.801,8,23,0)="^^2^2^2940915^^^^"
^DD(58.801,8,23,1,0)="Uses price per dispense unit from File 50 - DRUG file - times total"
^DD(58.801,8,23,2,0)="adjusted."
^DD(58.801,9,0)="TOTAL DISPENSED^NJ10,2^^0;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(58.801,9,3)="Type a Number between 0 and 9999999, 2 Decimal Digits"
^DD(58.801,9,21,0)="^^2^2^2940915^^^"
^DD(58.801,9,21,1,0)="Each dispensing transaction added to the DRUG ACCOUNTABILITY TRANSACTION"
^DD(58.801,9,21,2,0)="file (#58.81) will increment this amount."
^DD(58.801,9,23,0)="^^2^2^2940915^^"
^DD(58.801,9,23,1,0)="Incremented by dispensing recorded in File 58.81 - DRUG ACCOUNTABILITY"
^DD(58.801,9,23,2,0)="TRANSACTION file."
^DD(58.801,9,"DT")="2930923"
^DD(58.801,10,0)="VALUE DISPENSED^CJ10,2^^ ; ^X $P(^DD(58.8001,21,0),U,5,99) S Y(58.801,10,2)=X S Y(58.801,10,1)=$S($D(^PSD(58.8,D0,1,D1,5,D2,0)):^(0),1:"""") S X=$P(Y(58.801,10,1),U,6)*Y(58.801,10,2)"
^DD(58.801,10,9)="^"
^DD(58.801,10,9.01)="58.8001^21;58.801^9"
^DD(58.801,10,9.1)="TOTAL DISPENSED*PRICE PER DISPENSE UNIT"
^DD(58.801,10,21,0)="^^2^2^2940915^^^^"
^DD(58.801,10,21,1,0)="Computed by the price per dispense unit from the DRUG file (#50) times the"
^DD(58.801,10,21,2,0)="total dispensed."
^DD(58.801,10,23,0)="^^2^2^2940915^^"
^DD(58.801,10,23,1,0)="Uses price per dispense unit from File 50 - DRUG file - times total"
^DD(58.801,10,23,2,0)="dispensed."
^DD(58.801,11,0)="TOTAL RETURN TO STOCK^NJ10,2^^0;7^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""3N.N) X"
^DD(58.801,11,3)="Type a Number between -9999999 and 9999999, 2 Decimal Digits"
^DD(58.801,11,21,0)="^^2^2^2930803^"
^DD(58.801,11,21,1,0)="The total number of drugs return to stock during this month.  This total"
^DD(58.801,11,21,2,0)="includes cancelled orders returned to stock."
^DD(58.801,11,23,0)="^^1^1^2930803^"
^DD(58.801,11,23,1,0)="Monthly total of drugs returned to stock."
^DD(58.801,11,"DT")="2930803"
^DD(58.801,12,0)="TOTAL TURN IN FOR DESTRUCTION^NJ10,2^^0;8^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""3N.N) X"
^DD(58.801,12,3)="Type a Number between -9999999 and 9999999, 2 Decimal Digits"
^DD(58.801,12,21,0)="^^1^1^2930803^"
^DD(58.801,12,21,1,0)="The total number of drugs turned into the pharmacy for destruction."
^DD(58.801,12,23,0)="^^1^1^2930803^"
^DD(58.801,12,23,1,0)="Monthly total of drugs turned in for destruction."
^DD(58.801,12,"DT")="2930803"
^DD(58.801,13,0)="TOTAL TRANSFERRED^NJ8,0^^0;9^K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"".""1N.N) X"
^DD(58.801,13,.1)="Total Transferred"
^DD(58.801,13,3)="Enter the total number of dispense units transferred to and from the pharmacy location."
^DD(58.801,13,21,0)="^^2^2^2970630^^^"
^DD(58.801,13,21,1,0)="The TOTAL TRANSFERRED field contains the total number of dispense units"
^DD(58.801,13,21,2,0)="that were transferred from or to the pharmacy location."
^DD(58.801,13,23,0)="^^2^2^2970630^"
^DD(58.801,13,23,1,0)="The number of dispense units transferred from the pharmacy location are"
^DD(58.801,13,23,2,0)="subtracted from the dispense units transferred to the pharmacy location."
^DD(58.801,13,"DT")="2970630"
^DD(58.801,"B","BEGINNING BALANCE",1)=""
^DD(58.801,"B","BEGINNING VALUE",2)=""
^DD(58.801,"B","ENDING BALANCE",3)=""
^DD(58.801,"B","ENDING VALUE",4)=""
^DD(58.801,"B","MONTHLY ACTIVITY",.01)=""
^DD(58.801,"B","TOTAL ADJUSTED",7)=""
^DD(58.801,"B","TOTAL DISPENSED",9)=""
^DD(58.801,"B","TOTAL RECEIVED",5)=""
^DD(58.801,"B","TOTAL RETURN TO STOCK",11)=""
^DD(58.801,"B","TOTAL TRANSFERRED",13)=""
^DD(58.801,"B","TOTAL TURN IN FOR DESTRUCTION",12)=""
^DD(58.801,"B","Total Transferred",13)="1"
^DD(58.801,"B","VALUE ADJUSTED",8)=""
^DD(58.801,"B","VALUE DISPENSED",10)=""
^DD(58.801,"B","VALUE RECEIVED",6)=""
^DD(58.801,"GL",0,1,.01)=""
^DD(58.801,"GL",0,2,1)=""
^DD(58.801,"GL",0,3,5)=""
^DD(58.801,"GL",0,4,3)=""
^DD(58.801,"GL",0,5,7)=""
^DD(58.801,"GL",0,6,9)=""
^DD(58.801,"GL",0,7,11)=""
^DD(58.801,"GL",0,8,12)=""
^DD(58.801,"GL",0,9,13)=""
^DD(58.801,"IX",.01)=""
^DD(58.81,0)="FIELD^^106^96"
^DD(58.81,0,"DDA")="N"
^DD(58.81,0,"DT")="2970717"
^DD(58.81,0,"ID",4)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSDRUG(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(58.81,0,"ID",17)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSD(58.8,+$P(^(0),U,18),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(58.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(58.81,0,"IX","AC",58.81,102)=""
^DD(58.81,0,"IX","ACT",58.81,3)=""
^DD(58.81,0,"IX","ACT1",58.81,1)=""
^DD(58.81,0,"IX","ACT2",58.81,2)=""
^DD(58.81,0,"IX","ACT3",58.81,4)=""
^DD(58.81,0,"IX","ACT4",58.81,34)=""
^DD(58.81,0,"IX","ACT5",58.81,48)=""
^DD(58.81,0,"IX","ACT6",58.81,55)=""
^DD(58.81,0,"IX","ACT7",58.81,37)=""
^DD(58.81,0,"IX","AD",58.81,10)=""
^DD(58.81,0,"IX","AD1",58.81,17)=""
^DD(58.81,0,"IX","AE",58.81,69)=""
^DD(58.81,0,"IX","AEM",58.81,3)=""
^DD(58.81,0,"IX","AEM1",58.81,85)=""
^DD(58.81,0,"IX","AEM2",58.81,2)=""
^DD(58.81,0,"IX","AEM3",58.81,4)=""
^DD(58.81,0,"IX","AF",58.81,3)=""
^DD(58.81,0,"IX","AF1",58.81,2)=""
^DD(58.81,0,"IX","AF2",58.81,1)=""
^DD(58.81,0,"IX","AG",58.81,11)=""
^DD(58.81,0,"IX","AG1",58.81,17)=""
^DD(58.81,0,"IX","AH",58.81,103)=""
^DD(58.81,0,"IX","AK",58.81,21)=""
^DD(58.81,0,"IX","AK1",58.81,17)=""
^DD(58.81,0,"IX","AL",58.81,104)=""
^DD(58.81,0,"IX","AOP",58.81,60)=""
^DD(58.81,0,"IX","ATRN",58.81,64)=""
^DD(58.81,0,"IX","B",58.81,.01)=""
^DD(58.81,0,"IX","C",58.81,8)=""
^DD(58.81,0,"IX","D",58.81,16)=""
^DD(58.81,0,"IX","E",58.81,7)=""
^DD(58.81,0,"IX","F",58.81,4)=""
^DD(58.81,0,"IX","PV",58.81,71)=""
^DD(58.81,0,"NM","DRUG ACCOUNTABILITY TRANSACTION")=""
^DD(58.81,0,"PT",58.800118,17)=""
^DD(58.81,0,"PT",58.800119,.01)=""
^DD(58.81,0,"PT",58.81,69)=""
^DD(58.81,0,"PT",58.85,7)=""
^DD(58.81,0,"PT",58.86,8)=""
^DD(58.81,0,"PT",58.89,1)=""
^DD(58.81,0,"VR")="3.0"
^DD(58.81,0,"VRPK")="PSD"
^DD(58.81,.01,0)="TRANSACTION NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(58.81,.01,1,0)="^.1"
^DD(58.81,.01,1,1,0)="58.81^B"
^DD(58.81,.01,1,1,1)="S ^PSD(58.81,""B"",$E(X,1,30),DA)="""""
^DD(58.81,.01,1,1,2)="K ^PSD(58.81,""B"",$E(X,1,30),DA)"
^DD(58.81,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(58.81,.01,21,0)="^^1^1^2920624^"
^DD(58.81,.01,21,1,0)="The internal entry number for this transaction."
^DD(58.81,.01,23,0)="^^1^1^2920624^"
^DD(58.81,.01,23,1,0)="DINUMed."
^DD(58.81,.01,"DEL",.01,0)="I 1 D EN^DDIOL("" DELETIONS ARE NOT ALLOWED"")"
^DD(58.81,.01,"DT")="2920616"
^DD(58.81,1,0)="TYPE^P58.84'^PSD(58.84,^0;2^Q"
^DD(58.81,1,1,0)="^.1"
^DD(58.81,1,1,1,0)="58.81^AF2^MUMPS"
^DD(58.81,1,1,1,1)="D SAFT^PSDUTL"
^DD(58.81,1,1,1,2)="D KAFT^PSDUTL"
^DD(58.81,1,1,1,3)="DO NOT DELETE"
^DD(58.81,1,1,1,"%D",0)="^^3^3^2940929^^^"
^DD(58.81,1,1,1,"%D",1,0)="This cross-reference is used for Controlled Substances and Drug"
^DD(58.81,1,1,1,"%D",2,0)="Accountability statistical reporting.  The cross-reference is "
^DD(58.81,1,1,1,"%D",3,0)="^PSD(58.81,""AF"",DATE/TIME,LOCATION,TYPE,DA)="""""
^DD(58.81,1,1,1,"DT")="2920609"
^DD(58.81,1,1,2,0)="58.81^ACT1^MUMPS"
^DD(58.81,1,1,2,1)="D SACT1^PSDUTL1"
^DD(58.81,1,1,2,2)="D KACT1^PSDUTL1"
^DD(58.81,1,1,2,3)="DO NOT DELETE"
^DD(58.81,1,1,2,"%D",0)="^^4^4^2940929^^^^"
^DD(58.81,1,1,2,"%D",1,0)="This cross-reference is used in compiling data to print the pharmacy"
^DD(58.81,1,1,2,"%D",2,0)="VA FORM 10-2320."
^DD(58.81,1,1,2,"%D",3,0)="  "
^DD(58.81,1,1,2,"%D",4,0)="The cross-reference is ^PSD(58.81,""ACT"",DATE/TIME,LOCATION,DRUG,TYPE,DA)="""""
^DD(58.81,1,1,2,"DT")="2920612"
^DD(58.81,1,3)="Enter the transaction type."
^DD(58.81,1,21,0)="^^1^1^2920912^^"
^DD(58.81,1,21,1,0)="A pointer to the name of this type transaction."
^DD(58.81,1,"DT")="2920612"
^DD(58.81,2,0)="PHARMACY LOCATION^*P58.8'^PSD(58.8,^0;3^S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$P(^(0),""""^"""",2)'=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,2,.1)="DISPENSING SITE"
^DD(58.81,2,1,0)="^.1"
^DD(58.81,2,1,1,0)="58.81^AF1^MUMPS"
^DD(58.81,2,1,1,1)="D SAFL^PSDUTL"
^DD(58.81,2,1,1,2)="D KAFL^PSDUTL"
^DD(58.81,2,1,1,3)="DO NOT DELETE"
^DD(58.81,2,1,1,"%D",0)="^^3^3^2940915^^^"
^DD(58.81,2,1,1,"%D",1,0)="This cross-reference is used for Controlled Substances and Drug"
^DD(58.81,2,1,1,"%D",2,0)="Accountability statistical reporting.  The cross-reference is"
^DD(58.81,2,1,1,"%D",3,0)="^PSD(58.81,""AF"",DATE/TIME,LOCATION,TYPE,DA)=""""."
^DD(58.81,2,1,1,"DT")="2920602"
^DD(58.81,2,1,2,0)="58.81^ACT2^MUMPS"
^DD(58.81,2,1,2,1)="D SACT2^PSDUTL1"
^DD(58.81,2,1,2,2)="D KACT2^PSDUTL1"
^DD(58.81,2,1,2,3)="DO NOT DELETE"
^DD(58.81,2,1,2,"%D",0)="^^4^4^2950216^^^^"
^DD(58.81,2,1,2,"%D",1,0)="This cross-reference is used in compiling data to print the pharmacy"
^DD(58.81,2,1,2,"%D",2,0)="VA FORM 10-2320."
^DD(58.81,2,1,2,"%D",3,0)=" "
^DD(58.81,2,1,2,"%D",4,0)="The cross-reference is ^PSD(58.81,""ACT"",DATE/TIME,LOCATION,DRUG,TYPE,DA)=""""."
^DD(58.81,2,1,2,"DT")="2920613"
^DD(58.81,2,1,3,0)="58.81^AEM2^MUMPS"
^DD(58.81,2,1,3,1)="D SAEM2^PSDUTL5"
^DD(58.81,2,1,3,2)="D KAEM2^PSDUTL5"
^DD(58.81,2,1,3,3)="DO NOT DELETE"
^DD(58.81,2,1,3,"%D",0)="^^3^3^2950216^"
^DD(58.81,2,1,3,"%D",1,0)="This cross-reference is used to track emergency orders."
^DD(58.81,2,1,3,"%D",2,0)=" "
^DD(58.81,2,1,3,"%D",3,0)="The cross-reference is ^PSD(58.81,""AEM"",DATE/TIME,LOCATION,DRUG,DA)=""""."
^DD(58.81,2,1,3,"DT")="2950216"
^DD(58.81,2,3)="Enter the pharmacy location for this transaction."
^DD(58.81,2,12)="For CS, does not allow selection of a ""primary"" type pharmacy location."
^DD(58.81,2,12.1)="S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$P(^(0),""""^"""",2)'=""""P"""""""
^DD(58.81,2,21,0)="^^4^4^2921117^^^^"
^DD(58.81,2,21,1,0)="This field contains a pointer to the Pharmacy location in the DRUG"
^DD(58.81,2,21,2,0)="ACCOUNTABILITY STATS file (#58.8).  The Controlled Substances module"
^DD(58.81,2,21,3,0)="will recognize this location as the Narcotic Area of Use (NAOU),"
^DD(58.81,2,21,4,0)="usually the pharmacy dispensing site (vault)."
^DD(58.81,2,"DT")="2950216"
^DD(58.81,3,0)="DATE/TIME^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,3,1,0)="^.1"
^DD(58.81,3,1,1,0)="58.81^AF^MUMPS"
^DD(58.81,3,1,1,1)="D SAF^PSDUTL"
^DD(58.81,3,1,1,2)="D KAF^PSDUTL"
^DD(58.81,3,1,1,3)="DO NOT DELETE"
^DD(58.81,3,1,1,"%D",0)="^^3^3^2920912^^^"
^DD(58.81,3,1,1,"%D",1,0)="This cross-reference is used for Controlled Substances and Drug "
^DD(58.81,3,1,1,"%D",2,0)="Accountability statistical reporting.  The cross-reference is"
^DD(58.81,3,1,1,"%D",3,0)="^PSD(58.81,""AF"",DATE/TIME,LOCATION,TYPE,DA)="""""
^DD(58.81,3,1,1,"DT")="2920602"
^DD(58.81,3,1,2,0)="58.81^ACT^MUMPS"
^DD(58.81,3,1,2,1)="D SACT^PSDUTL1"
^DD(58.81,3,1,2,2)="D KACT^PSDUTL1"
^DD(58.81,3,1,2,3)="DO NOT DELETE"
^DD(58.81,3,1,2,"%D",0)="^^4^4^2950216^^^"
^DD(58.81,3,1,2,"%D",1,0)="This cross-reference is used in compiling data to print the pharmacy"
^DD(58.81,3,1,2,"%D",2,0)="VA FORM 10-2320."
^DD(58.81,3,1,2,"%D",3,0)="  "
^DD(58.81,3,1,2,"%D",4,0)="The cross-reference is ^PSD(58.81,""ACT"",DATE/TIME,LOCATION,DRUG,TYPE,DA)=""""."
^DD(58.81,3,1,2,"DT")="2920613"
^DD(58.81,3,1,3,0)="58.81^AEM^MUMPS"
^DD(58.81,3,1,3,1)="D SAEM^PSDUTL5"
^DD(58.81,3,1,3,2)="D KAEM^PSDUTL5"
^DD(58.81,3,1,3,3)="DO NOT DELETE"
^DD(58.81,3,1,3,"%D",0)="^^3^3^2950216^"
^DD(58.81,3,1,3,"%D",1,0)="This cross-reference is used to track emergency orders."
^DD(58.81,3,1,3,"%D",2,0)=" "
^DD(58.81,3,1,3,"%D",3,0)="The cross-reference is ^PSD(58.81,""AEM"",DATE/TIME,LOCATION,DRUG,DA)=""""."
^DD(58.81,3,1,3,"DT")="2950216"
^DD(58.81,3,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(58.81,3,2.1)="X ^DD(""DD"")"
^DD(58.81,3,3)="Enter the date of this transaction."
^DD(58.81,3,21,0)="^^4^4^2920912^^^"
^DD(58.81,3,21,1,0)="The date/time of this transaction."
^DD(58.81,3,21,2,0)="  "
^DD(58.81,3,21,3,0)="For Controlled Substances dispensing transactions, this is the date/time"
^DD(58.81,3,21,4,0)="the pharmacist verified this transaction."
^DD(58.81,3,"DT")="2950216"
^DD(58.81,4,0)="DRUG^*P50'^PSDRUG(^0;5^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0)"" S:$D(PSDSITE) DIC(""S"")=DIC(""S"")_"",$S($P($G(^(2)),""""^"""",3)[""""N"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,4,1,0)="^.1"
^DD(58.81,4,1,1,0)="58.81^F"
^DD(58.81,4,1,1,1)="S ^PSD(58.81,""F"",$E(X,1,30),DA)="""""
^DD(58.81,4,1,1,2)="K ^PSD(58.81,""F"",$E(X,1,30),DA)"
^DD(58.81,4,1,1,"%D",0)="^^1^1^2920520^"
^DD(58.81,4,1,1,"%D",1,0)="To locate all receipt history for a given drug."
^DD(58.81,4,1,1,"DT")="2920520"
^DD(58.81,4,1,2,0)="58.81^ACT3^MUMPS"
^DD(58.81,4,1,2,1)="D SACT3^PSDUTL1"
^DD(58.81,4,1,2,2)="D KACT3^PSDUTL1"
^DD(58.81,4,1,2,3)="DO NOT DELETE"
^DD(58.81,4,1,2,"%D",0)="^^4^4^2940929^^^"
^DD(58.81,4,1,2,"%D",1,0)="This cross-reference is used for compiling data to print the pharmacy"
^DD(58.81,4,1,2,"%D",2,0)="VA FORM 10-2320."
^DD(58.81,4,1,2,"%D",3,0)="  "
^DD(58.81,4,1,2,"%D",4,0)="The cross-reference is ^PSD(58.81,""ACT"",DATE/TIME,LOCATION,DRUG,TYPE,DA)="""""
^DD(58.81,4,1,2,"DT")="2920613"
^DD(58.81,4,1,3,0)="58.81^AEM3^MUMPS"
^DD(58.81,4,1,3,1)="D SAEM3^PSDUTL5"
^DD(58.81,4,1,3,2)="D KAEM3^PSDUTL5"
^DD(58.81,4,1,3,3)="DO NOT DELETE"
^DD(58.81,4,1,3,"%D",0)="^^3^3^2950216^"
^DD(58.81,4,1,3,"%D",1,0)="This cross-reference is used to track emergency orders."
^DD(58.81,4,1,3,"%D",2,0)=" "
^DD(58.81,4,1,3,"%D",3,0)="The cross-reference is ^PSD(58.81,""AEM"",DATE/TIME,LOCATION,DRUG,DA)=""""."
^DD(58.81,4,1,3,"DT")="2950216"
^DD(58.81,4,3)="Enter the name of the drug being processed in this transaction."
^DD(58.81,4,12)="For CS locations, select only ACTIVE drugs marked for CS package use."
^DD(58.81,4,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0)"" S:$D(PSDSITE) DIC(""S"")=DIC(""S"")_"",$S($P($G(^(2)),""""^"""",3)[""""N"""":1,1:0)"""
^DD(58.81,4,21,0)="^^1^1^2940915^^^"
^DD(58.81,4,21,1,0)="A pointer to the drug for this transaction."
^DD(58.81,4,23,0)="^^6^6^2940915^^^^"
^DD(58.81,4,23,1,0)="Within the Controlled Substances module, select only ACTIVE drugs"
^DD(58.81,4,23,2,0)="marked for use in the CS package.  Do not select INACTIVE or"
^DD(58.81,4,23,3,0)="NON-PHARMACY drugs.  This field should not be edited directly"
^DD(58.81,4,23,4,0)="using VA FileMan.  The appropriate screen for selecting ACTIVE drugs"
^DD(58.81,4,23,5,0)="marked for CS use is contained within the package functionality."
^DD(58.81,4,23,6,0)="DINUMed pointer to File 50 - DRUG file."
^DD(58.81,4,"DT")="2950216"
^DD(58.81,5,0)="QUANTITY^NJ9,2X^^0;6^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,5,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,5,21,0)="^^4^4^2940915^^^^"
^DD(58.81,5,21,1,0)="The transaction quantity for this drug."
^DD(58.81,5,21,2,0)="  "
^DD(58.81,5,21,3,0)="If the transaction type is BALANCE ADJUSTMENT, this quantity may"
^DD(58.81,5,21,4,0)="be a negative number."
^DD(58.81,5,"DT")="3010411"
^DD(58.81,6,0)="TRANSACTOR^P200'^VA(200,^0;7^Q"
^DD(58.81,6,3)="Enter the name of the person initiating this transaction."
^DD(58.81,6,21,0)="^^2^2^2920415^"
^DD(58.81,6,21,1,0)="This field contains a pointer to the name of the person initiating"
^DD(58.81,6,21,2,0)="this transaction."
^DD(58.81,6,"DT")="2920415"
^DD(58.81,7,0)="CONTROL POINT ACTIVITY^P410'^PRCS(410,^0;8^Q"
^DD(58.81,7,1,0)="^.1"
^DD(58.81,7,1,1,0)="58.81^E"
^DD(58.81,7,1,1,1)="S ^PSD(58.81,""E"",$E(X,1,30),DA)="""""
^DD(58.81,7,1,1,2)="K ^PSD(58.81,""E"",$E(X,1,30),DA)"
^DD(58.81,7,1,1,"%D",0)="^^1^1^2920515^"
^DD(58.81,7,1,1,"%D",1,0)="To locate all transactions linked to a certain Control Point Activity #."
^DD(58.81,7,1,1,"DT")="2920515"
^DD(58.81,7,3)="Enter the Control Point Activity number."
^DD(58.81,7,21,0)="^^3^3^2921117^^^"
^DD(58.81,7,21,1,0)="Posted (Warehouse) Issue activity that created this transaction."
^DD(58.81,7,21,2,0)="This field is a pointer to the CONTROL POINT ACTIVITY file (#410) and"
^DD(58.81,7,21,3,0)="will be used mainly for receipt transactions."
^DD(58.81,7,23,0)="^^2^2^2940915^^^^"
^DD(58.81,7,23,1,0)="Pointer to the entry in File 410 - CONTROL POINT ACTIVITY file - that"
^DD(58.81,7,23,2,0)="created this transaction."
^DD(58.81,7,"DT")="2920415"
^DD(58.81,8,0)="PURCHASE ORDER NUMBER^P442'^PRC(442,^0;9^Q"
^DD(58.81,8,1,0)="^.1"
^DD(58.81,8,1,1,0)="58.81^C"
^DD(58.81,8,1,1,1)="S ^PSD(58.81,""C"",$E(X,1,30),DA)="""""
^DD(58.81,8,1,1,2)="K ^PSD(58.81,""C"",$E(X,1,30),DA)"
^DD(58.81,8,1,1,"DT")="2920501"
^DD(58.81,8,3)="Enter the Purchase Order number for this transaction."
^DD(58.81,8,21,0)="^^4^4^2921106^^^^"
^DD(58.81,8,21,1,0)="The Unposted (Non-Warehouse) Purchase Order from which this transaction"
^DD(58.81,8,21,2,0)="was created.  This field is a pointer to the PROCUREMENT & ACCOUNTING"
^DD(58.81,8,21,3,0)="TRANSACTION file (#442) and will be used mainly for receipt"
^DD(58.81,8,21,4,0)="transactions."
^DD(58.81,8,23,0)="^^2^2^2940915^^^^"
^DD(58.81,8,23,1,0)="Pointer to the entry in File 442 - PROCUREMENT & ACCOUNTING TRANSACTION"
^DD(58.81,8,23,2,0)="file - to which this transaction is linked."
^DD(58.81,8,"DT")="2920501"
^DD(58.81,9,0)="BALANCE FORWARD^NJ9,2X^^0;10^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,9,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,9,9)="^"
^DD(58.81,9,21,0)="^.001^3^3^3010705^^^^"
^DD(58.81,9,21,1,0)="The pharmacy dispensing site (vault) inventory balance forward for"
^DD(58.81,9,21,2,0)="this drug.  This balance is used in listing pharmacy's ""Daily"
^DD(58.81,9,21,3,0)="Activity Log""."
^DD(58.81,9,"DT")="3010411"
^DD(58.81,10,0)="ORDER STATUS^P58.82'^PSD(58.82,^0;11^Q"
^DD(58.81,10,1,0)="^.1"
^DD(58.81,10,1,1,0)="58.81^AD^MUMPS"
^DD(58.81,10,1,1,1)="D SAD^PSDUTL"
^DD(58.81,10,1,1,2)="D KAD^PSDUTL"
^DD(58.81,10,1,1,3)="DO NOT DELETE"
^DD(58.81,10,1,1,"%D",0)="^^3^3^2940929^^^^"
^DD(58.81,10,1,1,"%D",1,0)="This cross-reference is used for compiling the ""Narcotic Dispensing"
^DD(58.81,10,1,1,"%D",2,0)="Report""."
^DD(58.81,10,1,1,"%D",3,0)="The cross-reference is ^PSD(58.81,""AD"",ORDER STATUS,NAOU,DA)="""""
^DD(58.81,10,1,1,"DT")="2920507"
^DD(58.81,10,3)="Enter the processing status for this order."
^DD(58.81,10,21,0)="^^3^3^2921117^^^^"
^DD(58.81,10,21,1,0)="The processing status for the Controlled Substances order being updated"
^DD(58.81,10,21,2,0)="in this transaction.  This field is a pointer to the CS ORDER STATUS"
^DD(58.81,10,21,3,0)="file (#58.82)."
^DD(58.81,10,23,0)="^^1^1^2940915^^^"
^DD(58.81,10,23,1,0)="Pointer to File 58.82 - CS ORDER STATS file."
^DD(58.81,10,"DT")="2920507"
^DD(58.81,11,0)="COMPLETION STATUS^P58.83'^PSD(58.83,^0;12^Q"
^DD(58.81,11,1,0)="^.1"
^DD(58.81,11,1,1,0)="58.81^AG^MUMPS"
^DD(58.81,11,1,1,1)="D SAG^PSDUTL2"
^DD(58.81,11,1,1,2)="D KAG^PSDUTL2"
^DD(58.81,11,1,1,3)="DO NOT DELETE"
^DD(58.81,11,1,1,"%D",0)="^^3^3^2940929^^^^"
^DD(58.81,11,1,1,"%D",1,0)="This cross-reference is used for compiling reports displaying Green Sheet"
^DD(58.81,11,1,1,"%D",2,0)="discrepancies."
^DD(58.81,11,1,1,"%D",3,0)="The cross-reference is ^PSD(58.81,""AG"",COMPLETION STATUS,NAOU,DA)="""""
^DD(58.81,11,1,1,"DT")="2920905"
^DD(58.81,11,3)="Enter the completion status for this Controlled Substances order."
^DD(58.81,11,21,0)="^^3^3^2940915^^^^"
^DD(58.81,11,21,1,0)="The completion status for this Controlled Substances order being updated"
^DD(58.81,11,21,2,0)="by this transaction.  This field is a pointer to the CS COMPLETION STATUS"
^DD(58.81,11,21,3,0)="file (#58.83)."
^DD(58.81,11,23,0)="^^1^1^2940915^^^^"
^DD(58.81,11,23,1,0)="Pointer to File 58.83 - CS COMPLETION STATUS file."
^DD(58.81,11,"DT")="2920905"
^DD(58.81,12,0)="MANUFACTURER^F^^0;13^K:$L(X)>30!($L(X)<1) X"
^DD(58.81,12,3)="Enter the current manufacturer (1-30 characters)."
^DD(58.81,12,21,0)="^^1^1^2920415^"
^DD(58.81,12,21,1,0)="The current manufacturer of this drug."
^DD(58.81,12,"DT")="2920415"
^DD(58.81,13,0)="LOT #^F^^0;14^K:$L(X)>10!($L(X)<1) X"
^DD(58.81,13,3)="Enter the current lot # for this drug (1-10 characters)."
^DD(58.81,13,21,0)="^^1^1^2920415^"
^DD(58.81,13,21,1,0)="The current lot # of this drug."
^DD(58.81,13,"DT")="2920415"
^DD(58.81,14,0)="EXPIRATION DATE^D^^0;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,14,3)="Enter the expiration date for this drug."
^DD(58.81,14,21,0)="^^1^1^2920601^^"
^DD(58.81,14,21,1,0)="The current expiration date for this drug."
^DD(58.81,14,"DT")="2920430"
^DD(58.81,15,0)="REASON^F^^0;16^K:$L(X)>45!($L(X)<1) X"
^DD(58.81,15,3)="Answer must be 1-45 characters in length."
^DD(58.81,15,21,0)="^^1^1^2951108^^^"
^DD(58.81,15,21,1,0)="Reason for creating this transaction."
^DD(58.81,15,"DT")="2920415"
^DD(58.81,16,0)="PHARMACY DISPENSING #^F^^0;17^K:$L(X)>9!($L(X)<1) X"
^DD(58.81,16,1,0)="^.1"
^DD(58.81,16,1,1,0)="58.81^D"
^DD(58.81,16,1,1,1)="S ^PSD(58.81,""D"",$E(X,1,30),DA)="""""
^DD(58.81,16,1,1,2)="K ^PSD(58.81,""D"",$E(X,1,30),DA)"
^DD(58.81,16,1,1,3)="DO NOT DELETE"
^DD(58.81,16,1,1,"DT")="2920501"
^DD(58.81,16,3)="Answer must be 1-9 characters in length."
^DD(58.81,16,21,0)="^^3^3^2920912^^"
^DD(58.81,16,21,1,0)="The pharmacy control number to identify and track this Controlled"
^DD(58.81,16,21,2,0)="Substances transaction.  This number may be manually entered in"
^DD(58.81,16,21,3,0)="pharmacy or auto-generated by the CS software."
^DD(58.81,16,"DT")="2920812"
^DD(58.81,17,0)="NAOU^*P58.8'^PSD(58.8,^0;18^S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""N"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,17,1,0)="^.1"
^DD(58.81,17,1,1,0)="58.81^AD1^MUMPS"
^DD(58.81,17,1,1,1)="D SAD^PSDUTL1"
^DD(58.81,17,1,1,2)="D KAD^PSDUTL1"
^DD(58.81,17,1,1,3)="DO NOT DELETE"
^DD(58.81,17,1,1,"%D",0)="^^2^2^2940929^^^^"
^DD(58.81,17,1,1,"%D",1,0)="This cross-reference is used in compiling the ""Narcotic Dispensing Report""."
^DD(58.81,17,1,1,"%D",2,0)="The cross-reference is ^PSD(58.81,""AD"",ORDER STATUS,NAOU,DA)="""""
^DD(58.81,17,1,1,"DT")="2920805"
^DD(58.81,17,1,2,0)="58.81^AG1^MUMPS"
^DD(58.81,17,1,2,1)="D SAG1^PSDUTL2"
^DD(58.81,17,1,2,2)="D KAG1^PSDUTL2"
^DD(58.81,17,1,2,3)="DO NOT DELETE"
^DD(58.81,17,1,2,"%D",0)="^^3^3^2940929^^^^"
^DD(58.81,17,1,2,"%D",1,0)="This cross-reference is used in compiling reports displaying Green Sheet"
^DD(58.81,17,1,2,"%D",2,0)="discrepancies."
^DD(58.81,17,1,2,"%D",3,0)="The cross-reference is ^PSD(58.81,""AG"",COMPLETION STATUS,NAOU,DA)="""""
^DD(58.81,17,1,2,"DT")="2920905"
^DD(58.81,17,1,3,0)="58.81^AK1^MUMPS"
^DD(58.81,17,1,3,1)="D SAK1^PSDUTL4"
^DD(58.81,17,1,3,2)="D KAK1^PSDUTL4"
^DD(58.81,17,1,3,3)="DO NOT DELETE"
^DD(58.81,17,1,3,"%D",0)="^^3^3^2940929^^^^"
^DD(58.81,17,1,3,"%D",1,0)="This cross-reference is used in compiling the ""Inspector's Log for"
^DD(58.81,17,1,3,"%D",2,0)="Controlled Substances"" generated by date received on the NAOU."
^DD(58.81,17,1,3,"%D",3,0)="The cross-reference is ^PSD(58.81,""AK"",D/T RECD,NAOU,DA)="""""
^DD(58.81,17,1,3,"DT")="2940523"
^DD(58.81,17,3)="Enter the NAOU ordering this drug."
^DD(58.81,17,12)="Allows selection of a Satellite vault or Narcotic location."
^DD(58.81,17,12.1)="S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""N"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"""
^DD(58.81,17,21,0)="^^1^1^2920912^^^"
^DD(58.81,17,21,1,0)="The NAOU ordering this Controlled Substances drug."
^DD(58.81,17,"DT")="2940523"
^DD(58.81,18,0)="DISPENSED BY^*P200'^VA(200,^1;1^S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,18,3)="Enter the pharmacist dispensing this drug."
^DD(58.81,18,12)="Access granted to pharmacists holding the appropriate security key."
^DD(58.81,18,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"""
^DD(58.81,18,21,0)="^^1^1^2920625^"
^DD(58.81,18,21,1,0)="A pointer to the name of the pharmacist dispensing this drug."
^DD(58.81,18,"DT")="2920415"
^DD(58.81,19,0)="PROCESSED DATE/TIME^DX^^1;2^S %DT=""EPSTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,19,1,0)="^.1^^0"
^DD(58.81,19,3)="Enter the date/time pharmacy processed this drug."
^DD(58.81,19,21,0)="^^3^3^2980210^^^^"
^DD(58.81,19,21,1,0)="The date/time this transaction was processed."
^DD(58.81,19,21,2,0)="For Controlled Substances dispensing transactions, this is the date/time"
^DD(58.81,19,21,3,0)="a pharmacy technician processed this transaction."
^DD(58.81,19,"DT")="2980210"
^DD(58.81,20,0)="ORDER RECEIVED BY^*P200'^VA(200,^1;3^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,20,3)="Enter the person receiving this drug."
^DD(58.81,20,12)="Access granted to persons holding the appropriate security key."
^DD(58.81,20,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"""
^DD(58.81,20,21,0)="^^2^2^2920912^^^"
^DD(58.81,20,21,1,0)="A pointer to the name of the person receiving this Controlled"
^DD(58.81,20,21,2,0)="Substances drug into the ordering Narcotic Area of Use."
^DD(58.81,20,"DT")="2930527"
^DD(58.81,21,0)="RECEIPT DATE/TIME^D^^1;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,21,1,0)="^.1"
^DD(58.81,21,1,1,0)="58.81^AK^MUMPS"
^DD(58.81,21,1,1,1)="D SAK^PSDUTL4"
^DD(58.81,21,1,1,2)="D KAK^PSDUTL4"
^DD(58.81,21,1,1,3)="DO NOT DELETE"
^DD(58.81,21,1,1,"%D",0)="^^3^3^2941003^^^^"
^DD(58.81,21,1,1,"%D",1,0)="This cross-reference is used in compiling the ""Inspector's Log for"
^DD(58.81,21,1,1,"%D",2,0)="Controlled Substances"" generated by date received on the NAOU."
^DD(58.81,21,1,1,"%D",3,0)="The cross-reference is ^PSD(58.81,""AK"",D/T RECD,NAOU,DA)="""""
^DD(58.81,21,1,1,"DT")="2940523"
^DD(58.81,21,3)="Enter the date/time this drug was received from pharmacy."
^DD(58.81,21,21,0)="^^2^2^2920625^"
^DD(58.81,21,21,1,0)="The date/time this drug was received into the ordering Narcotic"
^DD(58.81,21,21,2,0)="Area of Use."
^DD(58.81,21,"DT")="2940523"
^DD(58.81,22,0)="COMPLETION DATE/TIME^D^^0;19^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,22,3)="Enter the date/time this order was completed."
^DD(58.81,22,21,0)="^^2^2^2940915^^^"
^DD(58.81,22,21,1,0)="The date/time this Controlled Substances Green Sheet (VA FORM 10-2638)"
^DD(58.81,22,21,2,0)="was reviewed as complete by pharmacy."
^DD(58.81,22,"DT")="2920415"
^DD(58.81,23,0)="FILLED BY^*P200'^VA(200,^1;5^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,23,3)="Enter the name of the pharmacy employee processing this transaction."
^DD(58.81,23,12)="Access granted to technicians holding the appropriate security key."
^DD(58.81,23,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"""
^DD(58.81,23,21,0)="^^2^2^2920912^^"
^DD(58.81,23,21,1,0)="A pointer to the name of the pharmacy technician processing this"
^DD(58.81,23,21,2,0)="Controlled Substances transaction."
^DD(58.81,23,"DT")="2920530"
^DD(58.81,24,0)="REQUEST DATE/TIME^D^^1;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,24,3)="Enter the request date for this order."
^DD(58.81,24,21,0)="^^1^1^2920912^^"
^DD(58.81,24,21,1,0)="The date/time the Controlled Substances order request was generated."
^DD(58.81,24,"DT")="2920501"
^DD(58.81,25,0)="ORDERED BY^*P200'^VA(200,^1;7^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,25,3)="Enter the person's name requesting this order."
^DD(58.81,25,12)="Access granted to nurses and pharmacy personnel holding the appropriate security key."
^DD(58.81,25,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"""
^DD(58.81,25,21,0)="^^2^2^2920912^^"
^DD(58.81,25,21,1,0)="A pointer to the name of the person requesting this Controlled"
^DD(58.81,25,21,2,0)="Substances drug."
^DD(58.81,25,"DT")="2920628"
^DD(58.81,25.5,0)="ORDERED BY PHARMACY^*P200'^VA(200,^1.5;1^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,25.5,3)="Enter the person's name requesting this order for nursing."
^DD(58.81,25.5,12)="Access granted to pharmacy personnel holding the appropriate security key."
^DD(58.81,25.5,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"""
^DD(58.81,25.5,21,0)="^^2^2^2931010^"
^DD(58.81,25.5,21,1,0)="A pointer to the name of the pharmacy employee requesting the Controlled"
^DD(58.81,25.5,21,2,0)="Substances order for nursing."
^DD(58.81,25.5,23,0)="^^1^1^2940923^^"
^DD(58.81,25.5,23,1,0)="A screened pointer to NEW PERSON file (#200)."
^DD(58.81,25.5,"DT")="2931010"
^DD(58.81,26,0)="COMMENTS^58.8126^^2;0"
^DD(58.81,26,21,0)="^^1^1^2950301^^^^"
^DD(58.81,26,21,1,0)="Comments concerning this transaction."
^DD(58.81,27,0)="QUANTITY RECEIVED^NJ6,0X^^1;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(58.81,27,3)="Type a Number between 0 and 999999, 3 Decimal Digits"
^DD(58.81,27,21,0)="^^1^1^2920625^"
^DD(58.81,27,21,1,0)="The actual quantity of the drug received by the ordering NAOU."
^DD(58.81,27,"DT")="3010411"
^DD(58.81,28,0)="DISCREPANCY UNRESOLVED^S^1:YES;0:NO;^1;9^Q"
^DD(58.81,28,1,0)="^.1^^0"
^DD(58.81,28,3)="Enter ""YES"" if a receiving/dispensing discrepancy exists."
^DD(58.81,28,21,0)="^^3^3^2921117^^"
^DD(58.81,28,21,1,0)="If the actual quantity of the drug received is different from the"
^DD(58.81,28,21,2,0)="actual quantity pharmacy dispensed, then this field is set to ""1"""
^DD(58.81,28,21,3,0)="or ""YES""."
^DD(58.81,28,"DT")="2920629"
^DD(58.81,29,0)="COMPLETED BY NURSE^*P200'^VA(200,^1;10^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,29,3)="Enter the name of the nurse returning this Green Sheet."
^DD(58.81,29,12)="Access granted to nurses holding the appropriate security key."
^DD(58.81,29,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"""
^DD(58.81,29,21,0)="^^2^2^2940915^^^"
^DD(58.81,29,21,1,0)="A pointer to the name of the nurse returning the Green Sheet"
^DD(58.81,29,21,2,0)="(VA FORM 10-2638) to pharmacy."
^DD(58.81,29,"DT")="2930527"
^DD(58.81,29.5,0)="COMP BY NURSE DATE/TIME^D^^1.5;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,29.5,3)="Enter the date/time this Green Sheet was completed by nursing."
^DD(58.81,29.5,21,0)="^^2^2^2931010^^"
^DD(58.81,29.5,21,1,0)="The date/time this Green Sheet was completed by nursing and ready for"
^DD(58.81,29.5,21,2,0)="pharmacy pickup."
^DD(58.81,29.5,"DT")="2931010"
^DD(58.81,29.6,0)="D/T PLACED ON INSP HOLD^D^^1.5;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,29.6,3)="Enter the date/time this Green Sheet was placed on hold."
^DD(58.81,29.6,21,0)="^^2^2^2931110^"
^DD(58.81,29.6,21,1,0)="The date/time this Green Sheet was placed on hold for review by the"
^DD(58.81,29.6,21,2,0)="Controlled Substances Inspector."
^DD(58.81,29.6,"DT")="2931110"
^DD(58.81,29.7,0)="D/T INSP HOLD REMOVED^D^^1.5;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,29.7,3)="Enter the date/time this Green Sheet was removed from hold."
^DD(58.81,29.7,21,0)="^^2^2^2940915^^"
^DD(58.81,29.7,21,1,0)="The date/time this Green Sheet was removed from hold by the Controlled"
^DD(58.81,29.7,21,2,0)="Substances inspector."
^DD(58.81,29.7,"DT")="2931110"
^DD(58.81,29.8,0)="HOLD REMARKS^F^^1.6;1^K:$L(X)>45!($L(X)<1) X"
^DD(58.81,29.8,3)="Answer must be 1-45 characters in length."
^DD(58.81,29.8,21,0)="^^2^2^2940915^^"
^DD(58.81,29.8,21,1,0)="This field contains information concerning the Green Sheet being held"
^DD(58.81,29.8,21,2,0)="for CS inspector's review."
^DD(58.81,29.8,"DT")="2940105"
^DD(58.81,30,0)="RECEIVED BY TECH^*P200'^VA(200,^1;11^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,30,3)="Enter the name of the tech receiving this order."
^DD(58.81,30,12)="Access granted to technicians with appropriate security key."
^DD(58.81,30,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"""
^DD(58.81,30,21,0)="^^2^2^2920912^^"
^DD(58.81,30,21,1,0)="A pointer to the name of the pharmacy technician receiving this"
^DD(58.81,30,21,2,0)="Controlled Substances drug into the NAOU."
^DD(58.81,30,"DT")="2920601"
^DD(58.81,31,0)="PICK UP DATE/TIME^D^^1;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,31,3)="Enter the date/time pharmacy picked up the Green Sheet."
^DD(58.81,31,21,0)="^^2^2^2940915^^"
^DD(58.81,31,21,1,0)="The date/time pharmacy picked up the Green Sheet (VA FORM 10-2638)"
^DD(58.81,31,21,2,0)="from the NAOU."
^DD(58.81,31,"DT")="2920531"
^DD(58.81,32,0)="PICKED UP BY^*P200'^VA(200,^1;13^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,32,3)="Enter the name of the technician picking up the Green Sheet."
^DD(58.81,32,12)="Access granted to technicians picking up Green Sheets."
^DD(58.81,32,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"""
^DD(58.81,32,21,0)="^^2^2^2940915^^"
^DD(58.81,32,21,1,0)="A pointer to the name of the pharmacy technician picking up the"
^DD(58.81,32,21,2,0)="Green Sheet (VA FORM 10-2638) from the NAOU."
^DD(58.81,32,"DT")="2920531"
^DD(58.81,33,0)="COMPLETED BY PHARMACIST^*P200'^VA(200,^1;14^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,33,3)="Enter the name of the pharmacist or tech completing this Green Sheet."
^DD(58.81,33,12)="Access granted to the pharmacists or techs holding the appropriate security key."
^DD(58.81,33,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"""
^DD(58.81,33,21,0)="^^2^2^2940915^^^^"
^DD(58.81,33,21,1,0)="A pointer to the name of the pharmacist or pharmacy technician completing"
^DD(58.81,33,21,2,0)="the Green Sheet (VA FORM 10-2638)."
^DD(58.81,33,"DT")="2930413"
^DD(58.81,34,0)="DATE/TIME RET TO STOCK^D^^3;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,34,1,0)="^.1"
^DD(58.81,34,1,1,0)="58.81^ACT4^MUMPS"
^DD(58.81,34,1,1,1)="D SACT4^PSDUTL1"
^DD(58.81,34,1,1,2)="D KACT4^PSDUTL1"
^DD(58.81,34,1,1,3)="DO NOT DELETE"
^DD(58.81,34,1,1,"%D",0)="^^4^4^2941003^^^"
^DD(58.81,34,1,1,"%D",1,0)="This cross-reference is used in compiling data to print the pharmacy"
^DD(58.81,34,1,1,"%D",2,0)="VA FORM 10-2320."
^DD(58.81,34,1,1,"%D",3,0)="  "
^DD(58.81,34,1,1,"%D",4,0)="The cross-reference is ^PSD(58.81,""ACT"",RET TO STK D/T,LOC,DRUG,TYPE,DA)="""""
^DD(58.81,34,1,1,"DT")="2920613"
^DD(58.81,34,3)="Enter date/time returned to stock."
^DD(58.81,34,21,0)="^^1^1^2920625^^"
^DD(58.81,34,21,1,0)="The date/time this drug is being returned to stock."
^DD(58.81,34,"DT")="2930701"
^DD(58.81,35,0)="QUANTITY RET TO STOCK^NJ6,0X^^3;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(58.81,35,3)="Type a Number between 1 and 999999, 3 Decimal Digits"
^DD(58.81,35,21,0)="^^1^1^2920625^^"
^DD(58.81,35,21,1,0)="The actual quantity of this drug being returned to stock."
^DD(58.81,35,"DT")="3010411"
^DD(58.81,36,0)="REASON RETURNED TO STOCK^F^^3;3^K:$L(X)>45!($L(X)<1) X"
^DD(58.81,36,3)="Enter reason this drug was returned to stock."
^DD(58.81,36,21,0)="^^1^1^2920625^"
^DD(58.81,36,21,1,0)="The reason this drug is being returned to stock."
^DD(58.81,36,"DT")="2920604"
^DD(58.81,37,0)="DATE/TIME TURN IN DESTROY^D^^3;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,37,1,0)="^.1"
^DD(58.81,37,1,1,0)="58.81^ACT7^MUMPS"
^DD(58.81,37,1,1,1)="D SACT7^PSDUTL3"
^DD(58.81,37,1,1,2)="D KACT7^PSDUTL3"
^DD(58.81,37,1,1,3)="DO NOT DELETE"
^DD(58.81,37,1,1,"%D",0)="^^3^3^2941003^^^^"
^DD(58.81,37,1,1,"%D",1,0)="This cross-reference is used in compiling the cost reports."
^DD(58.81,37,1,1,"%D",2,0)=" "
^DD(58.81,37,1,1,"%D",3,0)="The cross-reference reads ^PSD(58.81,""ACT"",D/T TURN IN DEST,LOC,DRUG,DA)="""""
^DD(58.81,37,1,1,"DT")="2940118"
^DD(58.81,37,3)="Enter the date/time this drug was turned in for destruction."
^DD(58.81,37,21,0)="^^1^1^2920625^"
^DD(58.81,37,21,1,0)="The date/time this drug is being turned in for destruction."
^DD(58.81,37,"DT")="2930701"
^DD(58.81,38,0)="QUANTITY TURN IN FOR DESTROY^NJ9,2X^^3;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(58.81,38,3)="Type a Number between 0 and 999999, 3 Decimal Digits"
^DD(58.81,38,21,0)="^^1^1^2920625^"
^DD(58.81,38,21,1,0)="The actual quantity of this drug being turned in for destruction."
^DD(58.81,38,"DT")="3010411"
^DD(58.81,39,0)="REASON TURN IN FOR DESTROY^F^^3;6^K:$L(X)>45!($L(X)<1) X"
^DD(58.81,39,3)="Enter reason this drug was turned in for destruction."
^DD(58.81,39,21,0)="^^1^1^2950927^^"
^DD(58.81,39,21,1,0)="The reason this drug is being turned in for destruction."
^DD(58.81,39,"DT")="2920604"
^DD(58.81,40,0)="REQUEST #^NJ8,0^^0;20^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.81,40,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(58.81,40,21,0)="^^1^1^2920625^"
^DD(58.81,40,21,1,0)="The order request number from the ordering NAOU."
^DD(58.81,40,"DT")="2920606"
^DD(58.81,41,0)="BALANCE FWD RET/STK^NJ9,2X^^3;7^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,41,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,41,21,0)="^^2^2^2921117^^"
^DD(58.81,41,21,1,0)="The inventory balance forward for this drug being returned to stock."
^DD(58.81,41,21,2,0)="This balance is used in listing pharmacy's ""Daily Activity Log""."
^DD(58.81,41,"DT")="3010411"
^DD(58.81,47,0)="DEST HOLDING #^P58.86'^PSD(58.86,^3;8^Q"
^DD(58.81,47,3)="Enter the destruction holding file # for this transaction."
^DD(58.81,47,21,0)="^^2^2^2920625^"
^DD(58.81,47,21,1,0)="A pointer to the destruction number for this drug being held for"
^DD(58.81,47,21,2,0)="destruction."
^DD(58.81,47,"DT")="2920607"
^DD(58.81,48,0)="EDIT VERIFIED ORDER DATE/TIME^D^^4;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,48,1,0)="^.1"
^DD(58.81,48,1,1,0)="58.81^ACT5^MUMPS"
^DD(58.81,48,1,1,1)="D SACT5^PSDUTL1"
^DD(58.81,48,1,1,2)="D KACT5^PSDUTL1"
^DD(58.81,48,1,1,3)="DO NOT DELETE"
^DD(58.81,48,1,1,"%D",0)="^^4^4^2941003^^^^"
^DD(58.81,48,1,1,"%D",1,0)="This cross-reference is used in compiling data to print the pharmacy"
^DD(58.81,48,1,1,"%D",2,0)="VA FORM 10-2320."
^DD(58.81,48,1,1,"%D",3,0)="  "
^DD(58.81,48,1,1,"%D",4,0)="The cross-reference is ^PSD(58.81,""ACT"",EDIT D/T,LOCATION,DRUG,TYPE,DA)="""""
^DD(58.81,48,1,1,"DT")="2920613"
^DD(58.81,48,3)="Enter date/time this order was verified."
^DD(58.81,48,21,0)="^^1^1^2920625^"
^DD(58.81,48,21,1,0)="The date/time this verified order is being edited."
^DD(58.81,48,"DT")="2930701"
^DD(58.81,49,0)="PHARMACIST EDITING^*P200'^VA(200,^4;2^S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,49,3)="Enter the name of the pharmacist editing this verified order."
^DD(58.81,49,12)="Access granted to pharmacists holding the appropriate security key."
^DD(58.81,49,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"""
^DD(58.81,49,21,0)="^^1^1^2920625^^"
^DD(58.81,49,21,1,0)="A pointer to name of the pharmacist editing this verified order."
^DD(58.81,49,"DT")="2920610"
^DD(58.81,50,0)="NEW QUANTITY^NJ6,0X^^4;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(58.81,50,3)="Type a Number between 0 and 999999, 3 Decimal Digits"
^DD(58.81,50,21,0)="^^2^2^2920625^"
^DD(58.81,50,21,1,0)="The actual quantity of this drug being dispensed, if quantity is being"
^DD(58.81,50,21,2,0)="edited."
^DD(58.81,50,"DT")="3010411"
^DD(58.81,51,0)="ADJUSTED BY QUANTITY^NJ6,0X^^4;4^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,51,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,51,21,0)="^^3^3^2920625^"
^DD(58.81,51,21,1,0)="The difference in the original quantity dispensed and the edited"
^DD(58.81,51,21,2,0)="quantity dispensed.  The inventory balance will be adjusted by this"
^DD(58.81,51,21,3,0)="amount.  This quantity may be a negative number."
^DD(58.81,51,"DT")="3010411"
^DD(58.81,52,0)="EDIT MFG/LOT/EXP.DATE^S^1:Y;0:N;^4;5^Q"
^DD(58.81,52,3)="Answer ""YES"" if manufacturer, lot #, or exp. date is edited."
^DD(58.81,52,21,0)="^^2^2^2940923^^^^"
^DD(58.81,52,21,1,0)="This field is set to ""1"" or ""YES"" if  the manufacturer, lot #,"
^DD(58.81,52,21,2,0)="or expiration date is being edited on this verified order."
^DD(58.81,52,"DT")="2920610"
^DD(58.81,53,0)="REASON EDITED^F^^4;6^K:$L(X)>45!($L(X)<1) X"
^DD(58.81,53,3)="Answer must be 1-45 characters in length."
^DD(58.81,53,21,0)="^^1^1^2920625^"
^DD(58.81,53,21,1,0)="The reason this verified order is being edited."
^DD(58.81,53,"DT")="2920610"
^DD(58.81,54,0)="BAL FWD EDIT VERIFIED ORDER^NJ6,0X^^4;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(58.81,54,3)="Type a Number between 0 and 999999, 3 Decimal Digits"
^DD(58.81,54,21,0)="^^3^3^2921106^^^"
^DD(58.81,54,21,1,0)="The inventory balance forward for this drug at the time this verified"
^DD(58.81,54,21,2,0)="order is being edited.  This balance is used in listing pharmacy's"
^DD(58.81,54,21,3,0)="""Daily Activity Log""."
^DD(58.81,54,"DT")="3010411"
^DD(58.81,55,0)="CANCEL VERIFIED ORD DATE/TIME^D^^5;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,55,1,0)="^.1"
^DD(58.81,55,1,1,0)="58.81^ACT6^MUMPS"
^DD(58.81,55,1,1,1)="D SACT6^PSDUTL1"
^DD(58.81,55,1,1,2)="D KACT6^PSDUTL1"
^DD(58.81,55,1,1,3)="DO NOT DELETE"
^DD(58.81,55,1,1,"%D",0)="^^4^4^2941003^^^"
^DD(58.81,55,1,1,"%D",1,0)="This cross-reference is used in compiling data to print the pharmacy"
^DD(58.81,55,1,1,"%D",2,0)="VA FORM 10-2320."
^DD(58.81,55,1,1,"%D",3,0)="  "
^DD(58.81,55,1,1,"%D",4,0)="The cross-reference is ^PSD(58.81,""ACT"",CANCEL D/T,LOC,DRUG,TYPE,DA)="""""
^DD(58.81,55,1,1,"DT")="2920613"
^DD(58.81,55,3)="Enter the date/time this verified order was cancelled."
^DD(58.81,55,21,0)="^^1^1^2920625^"
^DD(58.81,55,21,1,0)="The date/time this verified order is being cancelled."
^DD(58.81,55,"DT")="2930701"
^DD(58.81,56,0)="PHARMACIST CANCELLING^*P200'^VA(200,^5;2^S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,56,3)="Enter the name of the pharmacist holding the appropriate security key."
^DD(58.81,56,12)="Access granted to pharmacists holding the appropriate security key."
^DD(58.81,56,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"""
^DD(58.81,56,21,0)="^^2^2^2920625^"
^DD(58.81,56,21,1,0)="A pointer to the name of the pharmacist cancelling this verified"
^DD(58.81,56,21,2,0)="order."
^DD(58.81,56,"DT")="2920610"
^DD(58.81,57,0)="ADJUSTMENT QUANTITY^NJ6,0X^^5;3^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,57,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,57,21,0)="^^2^2^2920625^"
^DD(58.81,57,21,1,0)="The actual quantity of the drug for this cancelled order.  The drug"
^DD(58.81,57,21,2,0)="inventory balance will be increased by this adjustment quantity."
^DD(58.81,57,"DT")="3010411"
^DD(58.81,58,0)="REASON CANCELLED^F^^5;4^K:$L(X)>45!($L(X)<1) X"
^DD(58.81,58,3)="Answer must be 1-45 characters in length."
^DD(58.81,58,21,0)="^^1^1^2920625^"
^DD(58.81,58,21,1,0)="The reason this verified order is being cancelled."
^DD(58.81,58,"DT")="2920610"
^DD(58.81,59,0)="BAL FWD CANCEL VERIFIED ORD^NJ6,0X^^5;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(58.81,59,3)="Type a Number between 0 and 999999, 3 Decimal Digits"
^DD(58.81,59,21,0)="^^3^3^2921117^^^"
^DD(58.81,59,21,1,0)="The inventory balance forward for this drug at the time this"
^DD(58.81,59,21,2,0)="verified order is being cancelled.  This balance is used in listing"
^DD(58.81,59,21,3,0)="pharmacy's ""Daily Activity Log""."
^DD(58.81,59,"DT")="3010411"
^DD(58.81,60,0)="RX #^P52'^PSRX(^6;1^Q"
^DD(58.81,60,1,0)="^.1"
^DD(58.81,60,1,1,0)="58.81^AOP"
^DD(58.81,60,1,1,1)="S ^PSD(58.81,""AOP"",$E(X,1,30),DA)="""""
^DD(58.81,60,1,1,2)="K ^PSD(58.81,""AOP"",$E(X,1,30),DA)"
^DD(58.81,60,1,1,3)="DO NOT DELETE."
^DD(58.81,60,1,1,"DT")="2920824"
^DD(58.81,60,3)="Enter prescription number for this CS transaction."
^DD(58.81,60,21,0)="^^1^1^2920625^"
^DD(58.81,60,21,1,0)="A pointer to the outpatient prescription number."
^DD(58.81,60,"DT")="2920824"
^DD(58.81,61,0)="REFILL #^NJ3,0^^6;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.81,61,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(58.81,61,21,0)="^^2^2^2920625^^"
^DD(58.81,61,21,1,0)="If this prescription is a refill, this field will contain the refill"
^DD(58.81,61,21,2,0)="number."
^DD(58.81,61,"DT")="2920616"
^DD(58.81,62,0)="PRESCRIPTION DATE^D^^6;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,62,3)="Enter the date/time this prescription was filled."
^DD(58.81,62,21,0)="^^1^1^2920625^"
^DD(58.81,62,21,1,0)="The fill date for this prescription."
^DD(58.81,62,"DT")="2920616"
^DD(58.81,63,0)="PARTIAL #^NJ3,0^^6;4^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.81,63,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(58.81,63,21,0)="^^2^2^2920625^"
^DD(58.81,63,21,1,0)="If this prescription is a partial, this field contains the partial"
^DD(58.81,63,21,2,0)="number."
^DD(58.81,63,"DT")="2920616"
^DD(58.81,63.5,0)="OUTPATIENT RX #^F^^6;5^K:$L(X)>11!($L(X)<1) X"
^DD(58.81,63.5,3)="Answer must be 1-11 characters in length."
^DD(58.81,63.5,21,0)="^^1^1^2930507^"
^DD(58.81,63.5,21,1,0)="This is the external form of the Outpatient prescription number."
^DD(58.81,63.5,"DT")="2930507"
^DD(58.81,63.6,0)="RELEASING PHARMACIST^P200'^VA(200,^6;6^Q"
^DD(58.81,63.6,3)="Enter the pharmacist processing the Outpatient release."
^DD(58.81,63.6,21,0)="^^3^3^2940915^^"
^DD(58.81,63.6,21,1,0)="This field is used to store the pharmacist responsible for the release"
^DD(58.81,63.6,21,2,0)="of an Outpatient prescription in case it is a different person than the"
^DD(58.81,63.6,21,3,0)="transactor."
^DD(58.81,63.6,23,0)="^^2^2^2940915^^"
^DD(58.81,63.6,23,1,0)="This field records the releasing pharmacist in case this is a different"
^DD(58.81,63.6,23,2,0)="person than the transactor."
^DD(58.81,63.6,"DT")="2940727"
^DD(58.81,64,0)="TRANSFER FROM NAOU DATE/TIME^D^^7;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,64,1,0)="^.1"
^DD(58.81,64,1,1,0)="58.81^ATRN"
^DD(58.81,64,1,1,1)="S ^PSD(58.81,""ATRN"",$E(X,1,30),DA)="""""
^DD(58.81,64,1,1,2)="K ^PSD(58.81,""ATRN"",$E(X,1,30),DA)"
^DD(58.81,64,1,1,3)="DO NOT DELETE."
^DD(58.81,64,1,1,"DT")="2920804"
^DD(58.81,64,3)="Enter the date/time the drug was transferred from this NAOU."
^DD(58.81,64,21,0)="^^2^2^2920912^^^"
^DD(58.81,64,21,1,0)="The date/time the Controlled Substances drug was transferred from this"
^DD(58.81,64,21,2,0)="NAOU to another NAOU."
^DD(58.81,64,"DT")="2920804"
^DD(58.81,65,0)="TRANSFER FROM NAOU NURSE^*P200'^VA(200,^7;2^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,65,3)="Enter the name of the nurse transferring the drug from this NAOU."
^DD(58.81,65,12)="Access granted to nurses holding the appropriate security key."
^DD(58.81,65,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"""
^DD(58.81,65,21,0)="^^2^2^2931014^^^"
^DD(58.81,65,21,1,0)="A pointer to the name of the nurse or pharmacist transferring the"
^DD(58.81,65,21,2,0)="Controlled Substances drug from this NAOU to another NAOU."
^DD(58.81,65,"DT")="2931014"
^DD(58.81,66,0)="TRANSFER TO NAOU^*P58.8'^PSD(58.8,^7;3^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""N"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,66,3)="Enter the NAOU receiving the transferred drug."
^DD(58.81,66,12)="Allows selection of a Satellite vault or Narcotic location."
^DD(58.81,66,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""N"""""""
^DD(58.81,66,21,0)="^^1^1^2920912^^^"
^DD(58.81,66,21,1,0)="The NAOU receiving this Controlled Substances drug from another NAOU."
^DD(58.81,66,"DT")="2930527"
^DD(58.81,67,0)="TRANSFER TO NAOU DATE/TIME^D^^7;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,67,3)="Enter the date/time the drug was transferred to this NAOU."
^DD(58.81,67,21,0)="^^2^2^2920912^^"
^DD(58.81,67,21,1,0)="The date/time the Controlled Substances drug was transferred to this"
^DD(58.81,67,21,2,0)="NAOU from another NAOU."
^DD(58.81,67,"DT")="2920804"
^DD(58.81,68,0)="TRANSFER TO NAOU NURSE^*P200'^VA(200,^7;5^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,68,3)="Enter the name of the nurse receiving this transferred drug."
^DD(58.81,68,12)="Access granted to nurses holding the appropriate security key."
^DD(58.81,68,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"""
^DD(58.81,68,21,0)="^^2^2^2920912^^"
^DD(58.81,68,21,1,0)="A pointer to the name of the nurse receiving this transferred Controlled"
^DD(58.81,68,21,2,0)="Substances drug from another NAOU."
^DD(58.81,68,"DT")="2930527"
^DD(58.81,69,0)="PREVIOUS TRANSACTION #^*P58.81'^PSD(58.81,^7;6^S DIC(""S"")=""I $P(^(0),""""^"""",11)=10"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81,69,1,0)="^.1"
^DD(58.81,69,1,1,0)="58.81^AE"
^DD(58.81,69,1,1,1)="S ^PSD(58.81,""AE"",$E(X,1,30),DA)="""""
^DD(58.81,69,1,1,2)="K ^PSD(58.81,""AE"",$E(X,1,30),DA)"
^DD(58.81,69,1,1,3)="DO NOT DELETE"
^DD(58.81,69,1,1,"DT")="2920804"
^DD(58.81,69,3)="Enter the previous transferred from NAOU transaction number."
^DD(58.81,69,12)="Allows selection of transactions transferred from an NAOU."
^DD(58.81,69,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",11)=10"""
^DD(58.81,69,21,0)="^^2^2^2920915^^"
^DD(58.81,69,21,1,0)="The transaction number of the transferred from NAOU Controlled Substances"
^DD(58.81,69,21,2,0)="drug.  This is the previous transaction number for this drug."
^DD(58.81,69,"DT")="2920804"
^DD(58.81,70,0)="QUANTITY TRANSFERRED^NJ6,0X^^7;7^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(58.81,70,3)="Type a Number between 1 and 999999, 3 Decimal Digits"
^DD(58.81,70,21,0)="^^2^2^2920912^^"
^DD(58.81,70,21,1,0)="The quantity of this Controlled Substances drug being transferred"
^DD(58.81,70,21,2,0)="from an NAOU to another NAOU."
^DD(58.81,70,"DT")="3010411"
^DD(58.81,71,0)="PRIME VENDOR INVOICE^F^^8;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(58.81,71,.1)="Prime Vendor Invoice"
^DD(58.81,71,1,0)="^.1"
^DD(58.81,71,1,1,0)="58.81^PV^MUMPS"
^DD(58.81,71,1,1,1)="I $P($G(^PSD(58.81,DA,8)),U,2)="""" S ^PSD(58.81,""PV"",X,DA)="""""
^DD(58.81,71,1,1,2)="I $P($G(^PSD(58.81,DA,8)),U,2)="""" K ^PSD(58.81,""PV"",X,DA)"
^DD(58.81,71,1,1,3)="DO NOT DELETE!"
^DD(58.81,71,1,1,"%D",0)="^^4^4^2970922^^"
^DD(58.81,71,1,1,"%D",1,0)="This cross-reference is used to located the transactions for specific"
^DD(58.81,71,1,1,"%D",2,0)="Prime Vendor invoices."
^DD(58.81,71,1,1,"%D",3,0)=" "
^DD(58.81,71,1,1,"%D",4,0)="^PSD(58.81,""PV"",Prime Vendor Invoice#,Transaction internal entry#)="""""
^DD(58.81,71,1,1,"DT")="2970507"
^DD(58.81,71,3)="Answer must be 1-30 characters in length."
^DD(58.81,71,21,0)="^^5^5^2970922^"
^DD(58.81,71,21,1,0)="To allow the entering of a Prime Vendor Invoice number for a receipt."
^DD(58.81,71,21,2,0)="The Integrated Funds Distribution, Control Point Activity, Accounting and"
^DD(58.81,71,21,3,0)="Procurement (IFCAP) Purchase Order number may be used all month and there"
^DD(58.81,71,21,4,0)="may not be a corresponding IFCAP transaction number for each Prime Vendor"
^DD(58.81,71,21,5,0)="receipt."
^DD(58.81,71,23,0)="^^1^1^2970922^^"
^DD(58.81,71,23,1,0)="To track Prime Vendor receipts in the absence of a transaction number."
^DD(58.81,71,"DT")="2970922"
^DD(58.81,72,0)="REFERRED REASON^F^^1;15^K:$L(X)>45!($L(X)<1) X"
^DD(58.81,72,3)="Answer must be 1-45 characters in length."
^DD(58.81,72,21,0)="^^2^2^2920825^"
^DD(58.81,72,21,1,0)="When a completed Green Sheet has been referred to a pharmacy supervisor"
^DD(58.81,72,21,2,0)="for review, this field may contain comments about the reason."
^DD(58.81,72,"DT")="2920824"
^DD(58.81,73,0)="PATIENT^P2'^DPT(^9;1^Q"
^DD(58.81,73,3)="Enter the name of the patient receiving this medication."
^DD(58.81,73,21,0)="^^2^2^2930722^"
^DD(58.81,73,21,1,0)="This field contains a pointer to the name of the patient receiving"
^DD(58.81,73,21,2,0)="this Controlled Substances medication."
^DD(58.81,73,23,0)="^^1^1^2930722^"
^DD(58.81,73,23,1,0)="Pointer to the PATIENT file #2."
^DD(58.81,73,"DT")="2930722"
^DD(58.81,73.5,0)="FROM PATIENT ID LIST?^S^1:YES;0:NO;^9.5;1^Q"
^DD(58.81,73.5,3)="Is this Patient ID from the Patient ID list?"
^DD(58.81,73.5,21,0)="^^2^2^2940923^^"
^DD(58.81,73.5,21,1,0)="This field will be ""YES"" when the patient ID was picked up from the patient"
^DD(58.81,73.5,21,2,0)="ID list."
^DD(58.81,73.5,"DT")="2931010"
^DD(58.81,74,0)="NURSE ID^P200'^VA(200,^9;2^Q"
^DD(58.81,74,3)="Enter the name of the nurse dispensing this medication."
^DD(58.81,74,21,0)="^^2^2^2930722^^^"
^DD(58.81,74,21,1,0)="This field contains a pointer to the name of the nurse dispensing"
^DD(58.81,74,21,2,0)="this Controlled Substances medication."
^DD(58.81,74,23,0)="^^1^1^2940923^^^^"
^DD(58.81,74,23,1,0)="Pointer to the NEW PERSON file (#200)."
^DD(58.81,74,"DT")="2930722"
^DD(58.81,75,0)="ORIGINAL COUNT^NJ9,2X^^9;3^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,75,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,75,21,0)="^^2^2^2940915^^"
^DD(58.81,75,21,1,0)="This field contains the original count or balance of this drug when"
^DD(58.81,75,21,2,0)="loaded into the TRAKKER for medication dispensing on the NAOU."
^DD(58.81,75,"DT")="3010411"
^DD(58.81,76,0)="WASTED QUANTITY^NJ9,2X^^9;4^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,76,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,76,21,0)="^^2^2^2930722^"
^DD(58.81,76,21,1,0)="This field contains the quantity of this Controlled Substances drug"
^DD(58.81,76,21,2,0)="that was wasted during dispensing at the NAOU."
^DD(58.81,76,"DT")="3010411"
^DD(58.81,77,0)="LIQUID AMOUNT^NJ6,0X^^9;5^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,77,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,77,21,0)="^^2^2^2930722^"
^DD(58.81,77,21,1,0)="This field contains the liquid quantity of the drug dispensed at the"
^DD(58.81,77,21,2,0)="NAOU."
^DD(58.81,77,"DT")="3010411"
^DD(58.81,78,0)="SECOND NURSE ID^P200'^VA(200,^9;6^Q"
^DD(58.81,78,3)="Enter the name of the nurse witnessing this transaction."
^DD(58.81,78,21,0)="^^2^2^2930722^"
^DD(58.81,78,21,1,0)="This field contains a pointer to the name of the nurse witnessing this"
^DD(58.81,78,21,2,0)="Controlled Substances transaction."
^DD(58.81,78,23,0)="^^1^1^2940923^^"
^DD(58.81,78,23,1,0)="Pointer to the NEW PERSON file (#200)."
^DD(58.81,78,"DT")="2930722"
^DD(58.81,79,0)="CORRECT COUNT^NJ9,2X^^9;7^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4N.N) X"
^DD(58.81,79,3)="Type a Number between -999999 and 999999, 3 Decimal Digits"
^DD(58.81,79,21,0)="^^2^2^2940923^^"
^DD(58.81,79,21,1,0)="This field contains the correct count or balance for a Controlled"
^DD(58.81,79,21,2,0)="Substances drug on an NAOU."
^DD(58.81,79,"DT")="3010411"
^DD(58.81,80,0)="PHARMACIST ID^P200'^VA(200,^9;8^Q"
^DD(58.81,80,3)="Enter the name of the pharmacist inventorying this CS drug."
^DD(58.81,80,21,0)="^^2^2^2930930^"
^DD(58.81,80,21,1,0)="This field contains a pointer to name of the pharmacist inventorying"
^DD(58.81,80,21,2,0)="this Controlled Substances drug."
^DD(58.81,80,23,0)="^^1^1^2940923^^"
^DD(58.81,80,23,1,0)="Pointer to the NEW PERSON file (#200)."
^DD(58.81,80,"DT")="2930930"
^DD(58.81,81,0)="SECOND PHARMACIST ID^P200'^VA(200,^9;9^Q"
^DD(58.81,81,3)="Enter the name of the pharmacist witnessing this transaction."
^DD(58.81,81,21,0)="^^2^2^2930930^"
^DD(58.81,81,21,1,0)="This field contains a pointer to the name of the pharmacist"
^DD(58.81,81,21,2,0)="witnessing this Controlled Substances transaction."
^DD(58.81,81,23,0)="^^1^1^2940923^^"
^DD(58.81,81,23,1,0)="Pointer to the NEW PERSON file (#200)."
^DD(58.81,81,"DT")="2930930"
^DD(58.81,82,0)="ACTUAL DATE/TIME^D^^9;10^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,82,3)="Enter actual date/time of this transaction."
^DD(58.81,82,21,0)="^^2^2^2940915^^"
^DD(58.81,82,21,1,0)="This field contains the actual date/time this transaction was performed"
^DD(58.81,82,21,2,0)="using the barcode TRAKKER."
^DD(58.81,82,"DT")="2930930"
^DD(58.81,83,0)="CS INSPECTOR^P200'^VA(200,^9;11^Q"
^DD(58.81,83,3)="Enter the name of the CS inspector performing this inventory."
^DD(58.81,83,21,0)="^^2^2^2940915^^"
^DD(58.81,83,21,1,0)="This option contains a pointer to the name of the Controlled"
^DD(58.81,83,21,2,0)="Substances inspector inventorying this CS drug."
^DD(58.81,83,"DT")="2931109"
^DD(58.81,84,0)="SECOND CS INSPECTOR^P200'^VA(200,^9;12^Q"
^DD(58.81,84,3)="Enter the name of the CS inspector witnessing this inventory."
^DD(58.81,84,21,0)="^^2^2^2940915^^"
^DD(58.81,84,21,1,0)="This field contains a pointer to the name of the Controlled"
^DD(58.81,84,21,2,0)="Substances inspector witnessing the inventory of this CS drug."
^DD(58.81,84,"DT")="2931109"
^DD(58.81,85,0)="EMERGENCY^S^1:YES;0:NO;^CS;6^Q"
^DD(58.81,85,1,0)="^.1"
^DD(58.81,85,1,1,0)="58.81^AEM1^MUMPS"
^DD(58.81,85,1,1,1)="D SAEM1^PSDUTL5"
^DD(58.81,85,1,1,2)="D KAEM1^PSDUTL5"
^DD(58.81,85,1,1,3)="DO NOT DELETE"
^DD(58.81,85,1,1,"%D",0)="^^3^3^2950216^^"
^DD(58.81,85,1,1,"%D",1,0)="This cross-reference is used to track emergency orders."
^DD(58.81,85,1,1,"%D",2,0)=" "
^DD(58.81,85,1,1,"%D",3,0)="The cross-reference is ^PSD(58.81,""AEM"",DATE/TIME,LOCATION,DRUG,DA)=""""."
^DD(58.81,85,1,1,"DT")="2950216"
^DD(58.81,85,3)="Anser ""YES"" if this is an emergency order."
^DD(58.81,85,21,0)="^^2^2^2950214^"
^DD(58.81,85,21,1,0)="A ""YES"" entry in this field will cause an order to print on the pharmacy"
^DD(58.81,85,21,2,0)="emergency order printer and allow for expedited processing."
^DD(58.81,85,23,0)="^^1^1^2950214^"
^DD(58.81,85,23,1,0)="This field is used to flag orders for expedited processing."
^DD(58.81,85,"DT")="2950216"
^DD(58.81,100,0)="CS TRANSACTION^S^1:YES;^CS;1^Q"
^DD(58.81,100,3)="Is this a Controlled Substances transaction?"
^DD(58.81,100,21,0)="^^3^3^2921117^^^"
^DD(58.81,100,21,1,0)="This field will be set to ""1"" or ""YES"" if this is a Controlled"
^DD(58.81,100,21,2,0)="Substances package transaction.  This CS flag will be used when"
^DD(58.81,100,21,3,0)="purging data within this file."
^DD(58.81,100,"DT")="2920416"
^DD(58.81,101,0)="PRINTED 2320^S^1:YES;0:NO;^CS;2^Q"
^DD(58.81,101,3)="Enter ""1"" or ""Y"" if this transaction has been printed."
^DD(58.81,101,21,0)="^^2^2^2940915^^^"
^DD(58.81,101,21,1,0)="This field is set to ""1"" or ""YES"" when this transaction is printed"
^DD(58.81,101,21,2,0)="on pharmacy's VA FORM 10-2320 for this drug."
^DD(58.81,101,"DT")="2920504"
^DD(58.81,102,0)="PRINTED 2321^D^^CS;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,102,1,0)="^.1"
^DD(58.81,102,1,1,0)="58.81^AC"
^DD(58.81,102,1,1,1)="S ^PSD(58.81,""AC"",$E(X,1,30),DA)="""""
^DD(58.81,102,1,1,2)="K ^PSD(58.81,""AC"",$E(X,1,30),DA)"
^DD(58.81,102,1,1,3)="DO NOT DELETE"
^DD(58.81,102,1,1,"DT")="2920504"
^DD(58.81,102,3)="Enter date or date/time this transaction was printed in lieu of the form 2321."
^DD(58.81,102,21,0)="^^6^6^2940915^^^^"
^DD(58.81,102,21,1,0)="This field is set to ""1"" or ""YES"" when this transaction is printed"
^DD(58.81,102,21,2,0)="on the dispensing/receiving report (in lieu of VA FORM 10-2321)."
^DD(58.81,102,21,3,0)="This flag is used in printing this transaction only once on the"
^DD(58.81,102,21,4,0)="dispensing/receiving report.  A reprint option is provided in"
^DD(58.81,102,21,5,0)="the Controlled Substances module for additional copies to be"
^DD(58.81,102,21,6,0)="printed."
^DD(58.81,102,"DT")="2920504"
^DD(58.81,103,0)="PRINTED 2638^S^1:YES;0:NO;^CS;4^Q"
^DD(58.81,103,1,0)="^.1"
^DD(58.81,103,1,1,0)="58.81^AH"
^DD(58.81,103,1,1,1)="S ^PSD(58.81,""AH"",$E(X,1,30),DA)="""""
^DD(58.81,103,1,1,2)="K ^PSD(58.81,""AH"",$E(X,1,30),DA)"
^DD(58.81,103,1,1,"DT")="2920524"
^DD(58.81,103,3)="Enter ""1"" or ""YES"" if the FORM 10-2638 has been printed for this transaction."
^DD(58.81,103,21,0)="^^5^5^2940915^^^^"
^DD(58.81,103,21,1,0)="This field is set to ""1"" or ""YES"" when a Green Sheet (VA FORM 10-"
^DD(58.81,103,21,2,0)="2638) is printed for this Controlled Substances order.  This flag"
^DD(58.81,103,21,3,0)="is used in printing this transaction only once.  A reprint option"
^DD(58.81,103,21,4,0)="is provided in the Controlled Substances module for additional"
^DD(58.81,103,21,5,0)="copies to be printed."
^DD(58.81,103,"DT")="2920524"
^DD(58.81,104,0)="PRINTED LABEL^D^^CS;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81,104,1,0)="^.1"
^DD(58.81,104,1,1,0)="58.81^AL"
^DD(58.81,104,1,1,1)="S ^PSD(58.81,""AL"",$E(X,1,30),DA)="""""
^DD(58.81,104,1,1,2)="K ^PSD(58.81,""AL"",$E(X,1,30),DA)"
^DD(58.81,104,1,1,3)="DO NOT DELETE"
^DD(58.81,104,1,1,"DT")="2930829"
^DD(58.81,104,3)="Enter the date or date/time this transaction label was printed."
^DD(58.81,104,21,0)="^^4^4^2940310^^"
^DD(58.81,104,21,1,0)="This field is set to the date/time when the label for this transaction"
^DD(58.81,104,21,2,0)="is printed.  This flag is used in printing labels only once for this"
^DD(58.81,104,21,3,0)="transaction.  A reprint label option is provided in the Controlled"
^DD(58.81,104,21,4,0)="Substances module for additional labels to be printed."
^DD(58.81,104,"DT")="2930829"
^DD(58.81,105,0)="SPECIALTY^P42.4'^DIC(42.4,^9;13^Q"
^DD(58.81,105,3)="Enter specialty for patient at time dose dispensed."
^DD(58.81,105,21,0)="^^2^2^2950803^"
^DD(58.81,105,21,1,0)="For CDR reporting the specialty for the patient is stored at the"
^DD(58.81,105,21,2,0)="time each dose is dispensed."
^DD(58.81,105,23,0)="^^1^1^2950803^"
^DD(58.81,105,23,1,0)="For CDR reporting a call is made to INP^VADPT to get specialty."
^DD(58.81,105,"DT")="2950803"
^DD(58.81,106,0)="PRIME VENDOR ORDER NUMBER^F^^8;2^K:$L(X)>22!($L(X)<1) X"
^DD(58.81,106,.1)="Prime Vendor Order Number"
^DD(58.81,106,3)="Enter the prime vendor's order number if the drug is not marked as a controlled substance."
^DD(58.81,106,21,0)="^^3^3^2970717^"
^DD(58.81,106,21,1,0)="The PRIME VENDOR ORDER NUMBER field contains the order number on which"
^DD(58.81,106,21,2,0)="the drugs were purchased if the drug is not marked as a controlled"
^DD(58.81,106,21,3,0)="substance."
^DD(58.81,106,"DT")="2970717"
^DD(58.81,"B","ACTUAL DATE/TIME",82)=""
^DD(58.81,"B","ADJUSTED BY QUANTITY",51)=""
^DD(58.81,"B","ADJUSTMENT QUANTITY",57)=""
^DD(58.81,"B","BAL FWD CANCEL VERIFIED ORD",59)=""
^DD(58.81,"B","BAL FWD EDIT VERIFIED ORDER",54)=""
^DD(58.81,"B","BALANCE FORWARD",9)=""
^DD(58.81,"B","BALANCE FWD RET/STK",41)=""
^DD(58.81,"B","CANCEL VERIFIED ORD DATE/TIME",55)=""
^DD(58.81,"B","COMMENTS",26)=""
^DD(58.81,"B","COMP BY NURSE DATE/TIME",29.5)=""
^DD(58.81,"B","COMPLETED BY NURSE",29)=""
^DD(58.81,"B","COMPLETED BY PHARMACIST",33)=""
^DD(58.81,"B","COMPLETION DATE/TIME",22)=""
^DD(58.81,"B","COMPLETION STATUS",11)=""
^DD(58.81,"B","CONTROL POINT ACTIVITY",7)=""
^DD(58.81,"B","CORRECT COUNT",79)=""
^DD(58.81,"B","CS INSPECTOR",83)=""
^DD(58.81,"B","CS TRANSACTION",100)=""
^DD(58.81,"B","D/T INSP HOLD REMOVED",29.7)=""
^DD(58.81,"B","D/T PLACED ON INSP HOLD",29.6)=""
^DD(58.81,"B","DATE/TIME",3)=""
^DD(58.81,"B","DATE/TIME RET TO STOCK",34)=""
^DD(58.81,"B","DATE/TIME TURN IN DESTROY",37)=""
^DD(58.81,"B","DEST HOLDING #",47)=""
^DD(58.81,"B","DISCREPANCY UNRESOLVED",28)=""
^DD(58.81,"B","DISPENSED BY",18)=""
^DD(58.81,"B","DISPENSING SITE",2)="1"
^DD(58.81,"B","DRUG",4)=""
^DD(58.81,"B","EDIT MFG/LOT/EXP.DATE",52)=""
^DD(58.81,"B","EDIT VERIFIED ORDER DATE/TIME",48)=""
^DD(58.81,"B","EMERGENCY",85)=""
^DD(58.81,"B","EXPIRATION DATE",14)=""
^DD(58.81,"B","FILLED BY",23)=""
^DD(58.81,"B","FROM PATIENT ID LIST?",73.5)=""
^DD(58.81,"B","HOLD REMARKS",29.8)=""
^DD(58.81,"B","LIQUID AMOUNT",77)=""
^DD(58.81,"B","LOT #",13)=""
^DD(58.81,"B","MANUFACTURER",12)=""
^DD(58.81,"B","NAOU",17)=""
^DD(58.81,"B","NEW QUANTITY",50)=""
^DD(58.81,"B","NURSE ID",74)=""
^DD(58.81,"B","ORDER RECEIVED BY",20)=""
^DD(58.81,"B","ORDER STATUS",10)=""
^DD(58.81,"B","ORDERED BY",25)=""
^DD(58.81,"B","ORDERED BY PHARMACY",25.5)=""
^DD(58.81,"B","ORIGINAL COUNT",75)=""
^DD(58.81,"B","OUTPATIENT RX #",63.5)=""
^DD(58.81,"B","PARTIAL #",63)=""
^DD(58.81,"B","PATIENT",73)=""
^DD(58.81,"B","PHARMACIST CANCELLING",56)=""
^DD(58.81,"B","PHARMACIST EDITING",49)=""
^DD(58.81,"B","PHARMACIST ID",80)=""
^DD(58.81,"B","PHARMACY DISPENSING #",16)=""
^DD(58.81,"B","PHARMACY LOCATION",2)=""
^DD(58.81,"B","PICK UP DATE/TIME",31)=""
^DD(58.81,"B","PICKED UP BY",32)=""
^DD(58.81,"B","PRESCRIPTION DATE",62)=""
^DD(58.81,"B","PREVIOUS TRANSACTION #",69)=""
^DD(58.81,"B","PRIME VENDOR INVOICE",71)=""
^DD(58.81,"B","PRIME VENDOR ORDER NUMBER",106)=""
^DD(58.81,"B","PRINTED 2320",101)=""
^DD(58.81,"B","PRINTED 2321",102)=""
^DD(58.81,"B","PRINTED 2638",103)=""
^DD(58.81,"B","PRINTED LABEL",104)=""
^DD(58.81,"B","PROCESSED DATE/TIME",19)=""
^DD(58.81,"B","PURCHASE ORDER NUMBER",8)=""
^DD(58.81,"B","Prime Vendor Invoice",71)="1"
^DD(58.81,"B","Prime Vendor Order Number",106)="1"
^DD(58.81,"B","QUANTITY",5)=""
^DD(58.81,"B","QUANTITY RECEIVED",27)=""
^DD(58.81,"B","QUANTITY RET TO STOCK",35)=""
^DD(58.81,"B","QUANTITY TRANSFERRED",70)=""
^DD(58.81,"B","QUANTITY TURN IN FOR DESTROY",38)=""
^DD(58.81,"B","REASON",15)=""
^DD(58.81,"B","REASON CANCELLED",58)=""
^DD(58.81,"B","REASON EDITED",53)=""
^DD(58.81,"B","REASON RETURNED TO STOCK",36)=""
^DD(58.81,"B","REASON TURN IN FOR DESTROY",39)=""
^DD(58.81,"B","RECEIPT DATE/TIME",21)=""
^DD(58.81,"B","RECEIVED BY TECH",30)=""
^DD(58.81,"B","REFERRED REASON",72)=""
^DD(58.81,"B","REFILL #",61)=""
^DD(58.81,"B","RELEASING PHARMACIST",63.6)=""
^DD(58.81,"B","REQUEST #",40)=""
^DD(58.81,"B","REQUEST DATE/TIME",24)=""
^DD(58.81,"B","RX #",60)=""
^DD(58.81,"B","SECOND CS INSPECTOR",84)=""
^DD(58.81,"B","SECOND NURSE ID",78)=""
^DD(58.81,"B","SECOND PHARMACIST ID",81)=""
^DD(58.81,"B","SPECIALTY",105)=""
^DD(58.81,"B","TRANSACTION NUMBER",.01)=""
^DD(58.81,"B","TRANSACTOR",6)=""
^DD(58.81,"B","TRANSFER FROM NAOU DATE/TIME",64)=""
^DD(58.81,"B","TRANSFER FROM NAOU NURSE",65)=""
^DD(58.81,"B","TRANSFER TO NAOU",66)=""
^DD(58.81,"B","TRANSFER TO NAOU DATE/TIME",67)=""
^DD(58.81,"B","TRANSFER TO NAOU NURSE",68)=""
^DD(58.81,"B","TYPE",1)=""
^DD(58.81,"B","WASTED QUANTITY",76)=""
^DD(58.81,"GL",0,1,.01)=""
^DD(58.81,"GL",0,2,1)=""
^DD(58.81,"GL",0,3,2)=""
^DD(58.81,"GL",0,4,3)=""
^DD(58.81,"GL",0,5,4)=""
^DD(58.81,"GL",0,6,5)=""
^DD(58.81,"GL",0,7,6)=""
^DD(58.81,"GL",0,8,7)=""
^DD(58.81,"GL",0,9,8)=""
^DD(58.81,"GL",0,10,9)=""
^DD(58.81,"GL",0,11,10)=""
^DD(58.81,"GL",0,12,11)=""
^DD(58.81,"GL",0,13,12)=""
^DD(58.81,"GL",0,14,13)=""
^DD(58.81,"GL",0,15,14)=""
^DD(58.81,"GL",0,16,15)=""
^DD(58.81,"GL",0,17,16)=""
^DD(58.81,"GL",0,18,17)=""
^DD(58.81,"GL",0,19,22)=""
^DD(58.81,"GL",0,20,40)=""
^DD(58.81,"GL",1,1,18)=""
^DD(58.81,"GL",1,2,19)=""
^DD(58.81,"GL",1,3,20)=""
^DD(58.81,"GL",1,4,21)=""
^DD(58.81,"GL",1,5,23)=""
^DD(58.81,"GL",1,6,24)=""
^DD(58.81,"GL",1,7,25)=""
^DD(58.81,"GL",1,8,27)=""
^DD(58.81,"GL",1,9,28)=""
^DD(58.81,"GL",1,10,29)=""
^DD(58.81,"GL",1,11,30)=""
^DD(58.81,"GL",1,12,31)=""
^DD(58.81,"GL",1,13,32)=""
^DD(58.81,"GL",1,14,33)=""
^DD(58.81,"GL",1,15,72)=""
^DD(58.81,"GL",1.5,1,25.5)=""
^DD(58.81,"GL",1.5,2,29.5)=""
^DD(58.81,"GL",1.5,3,29.6)=""
^DD(58.81,"GL",1.5,4,29.7)=""
^DD(58.81,"GL",1.6,1,29.8)=""
^DD(58.81,"GL",2,0,26)=""
^DD(58.81,"GL",3,1,34)=""
^DD(58.81,"GL",3,2,35)=""
^DD(58.81,"GL",3,3,36)=""
^DD(58.81,"GL",3,4,37)=""
^DD(58.81,"GL",3,5,38)=""
^DD(58.81,"GL",3,6,39)=""
^DD(58.81,"GL",3,7,41)=""
^DD(58.81,"GL",3,8,47)=""
^DD(58.81,"GL",4,1,48)=""
^DD(58.81,"GL",4,2,49)=""
^DD(58.81,"GL",4,3,50)=""
^DD(58.81,"GL",4,4,51)=""
^DD(58.81,"GL",4,5,52)=""
^DD(58.81,"GL",4,6,53)=""
^DD(58.81,"GL",4,7,54)=""
^DD(58.81,"GL",5,1,55)=""
^DD(58.81,"GL",5,2,56)=""
^DD(58.81,"GL",5,3,57)=""
^DD(58.81,"GL",5,4,58)=""
^DD(58.81,"GL",5,5,59)=""
^DD(58.81,"GL",6,1,60)=""
^DD(58.81,"GL",6,2,61)=""
^DD(58.81,"GL",6,3,62)=""
^DD(58.81,"GL",6,4,63)=""
^DD(58.81,"GL",6,5,63.5)=""
^DD(58.81,"GL",6,6,63.6)=""
^DD(58.81,"GL",7,1,64)=""
^DD(58.81,"GL",7,2,65)=""
^DD(58.81,"GL",7,3,66)=""
^DD(58.81,"GL",7,4,67)=""
^DD(58.81,"GL",7,5,68)=""
^DD(58.81,"GL",7,6,69)=""
^DD(58.81,"GL",7,7,70)=""
^DD(58.81,"GL",8,1,71)=""
^DD(58.81,"GL",8,2,106)=""
^DD(58.81,"GL",9,1,73)=""
^DD(58.81,"GL",9,2,74)=""
^DD(58.81,"GL",9,3,75)=""
^DD(58.81,"GL",9,4,76)=""
^DD(58.81,"GL",9,5,77)=""
^DD(58.81,"GL",9,6,78)=""
^DD(58.81,"GL",9,7,79)=""
^DD(58.81,"GL",9,8,80)=""
^DD(58.81,"GL",9,9,81)=""
^DD(58.81,"GL",9,10,82)=""
^DD(58.81,"GL",9,11,83)=""
^DD(58.81,"GL",9,12,84)=""
^DD(58.81,"GL",9,13,105)=""
^DD(58.81,"GL",9.5,1,73.5)=""
^DD(58.81,"GL","CS",1,100)=""
^DD(58.81,"GL","CS",2,101)=""
^DD(58.81,"GL","CS",3,102)=""
^DD(58.81,"GL","CS",4,103)=""
^DD(58.81,"GL","CS",5,104)=""
^DD(58.81,"GL","CS",6,85)=""
^DD(58.81,"IX",.01)=""
^DD(58.81,"IX",1)=""
^DD(58.81,"IX",2)=""
^DD(58.81,"IX",3)=""
^DD(58.81,"IX",4)=""
^DD(58.81,"IX",7)=""
^DD(58.81,"IX",8)=""
^DD(58.81,"IX",10)=""
^DD(58.81,"IX",11)=""
^DD(58.81,"IX",16)=""
^DD(58.81,"IX",17)=""
^DD(58.81,"IX",21)=""
^DD(58.81,"IX",34)=""
^DD(58.81,"IX",37)=""
^DD(58.81,"IX",48)=""
^DD(58.81,"IX",55)=""
^DD(58.81,"IX",60)=""
^DD(58.81,"IX",64)=""
^DD(58.81,"IX",69)=""
^DD(58.81,"IX",71)=""
^DD(58.81,"IX",85)=""
^DD(58.81,"IX",102)=""
^DD(58.81,"IX",103)=""
^DD(58.81,"IX",104)=""
^DD(58.81,"RQ",.01)=""
^DD(58.81,"SB",58.8126,26)=""
^DD(58.811,0)="FIELD^^2^3"
^DD(58.811,0,"DDA")="N"
^DD(58.811,0,"DT")="3071120"
^DD(58.811,0,"IX","AC",58.8112,10)=""
^DD(58.811,0,"IX","ADATE",58.8112,1)=""
^DD(58.811,0,"IX","AINV",58.8112,.01)=""
^DD(58.811,0,"IX","AINV2",58.811,.01)=""
^DD(58.811,0,"IX","AINVDT",58.8112,1)=""
^DD(58.811,0,"IX","ALOC",58.8112,4)=""
^DD(58.811,0,"IX","ALOCMV",58.8112,13)=""
^DD(58.811,0,"IX","ASTAT",58.8112,2)=""
^DD(58.811,0,"IX","B",58.811,.01)=""
^DD(58.811,0,"NM","DRUG ACCOUNTABILITY ORDER")=""
^DD(58.811,0,"VR")="3.0"
^DD(58.811,0,"VRPK")="PSA"
^DD(58.811,.01,0)="ORDER NUMBER^RF^^0;1^K:$L(X)>22!($L(X)<1)!'(X'?1P.E) X"
^DD(58.811,.01,.1)="Order Number"
^DD(58.811,.01,1,0)="^.1"
^DD(58.811,.01,1,1,0)="58.811^B"
^DD(58.811,.01,1,1,1)="S ^PSD(58.811,""B"",$E(X,1,30),DA)="""""
^DD(58.811,.01,1,1,2)="K ^PSD(58.811,""B"",$E(X,1,30),DA)"
^DD(58.811,.01,1,1,3)="DO NOT DELETE!"
^DD(58.811,.01,1,1,"%D",0)="^^1^1^2970522^"
^DD(58.811,.01,1,1,"%D",1,0)="This cross-reference is used to locate an order number."
^DD(58.811,.01,1,2,0)="58.811^AINV2^MUMPS"
^DD(58.811,.01,1,2,1)="D SETAORD^PSAUTL3"
^DD(58.811,.01,1,2,2)="D KILLAORD^PSAUTL3"
^DD(58.811,.01,1,2,3)="DO NOT DELETE!"
^DD(58.811,.01,1,2,"%D",0)="^^5^5^2970923^"
^DD(58.811,.01,1,2,"%D",1,0)="This cross-reference is used to determine if an order's invoice has been"
^DD(58.811,.01,1,2,"%D",2,0)="received. It set the ""AORD"" cross-reference."
^DD(58.811,.01,1,2,"%D",3,0)=" "
^DD(58.811,.01,1,2,"%D",4,0)="^PSD(58.811,""AORD"",ORDER NUMBER,INVOICE NUMBER,DA,Invoice internal"
^DD(58.811,.01,1,2,"%D",5,0)="entry#)="""""
^DD(58.811,.01,1,2,"DT")="2970522"
^DD(58.811,.01,3)="Enter the order number."
^DD(58.811,.01,9)="^"
^DD(58.811,.01,21,0)="^^2^2^2970922^^^^"
^DD(58.811,.01,21,1,0)="The ORDER NUMBER field contains number of the order placed with "
^DD(58.811,.01,21,2,0)="the prime vendor."
^DD(58.811,.01,"DT")="2971021"
^DD(58.811,1,0)="VENDOR NAME^F^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(58.811,1,.1)="Vendor Name"
^DD(58.811,1,3)="Enter the vendor's name."
^DD(58.811,1,9)="^"
^DD(58.811,1,21,0)="^^2^2^2960503^^"
^DD(58.811,1,21,1,0)="The VENDOR NAME field contains the name of the vendor from"
^DD(58.811,1,21,2,0)="whom the order was placed."
^DD(58.811,1,"DT")="2971021"
^DD(58.811,2,0)="INVOICE DATA^58.8112AI^^1;0"
^DD(58.811,2,9)="^"
^DD(58.811,2,21,0)="^^2^2^2970926^^^"
^DD(58.811,2,21,1,0)="The INVOICE DATA multiple contains detail invoice data. It contains the"
^DD(58.811,2,21,2,0)="line item data and adjustment data."
^DD(58.811,2,"DT")="2970926"
^DD(58.811,"B","INVOICE DATA",2)=""
^DD(58.811,"B","ORDER NUMBER",.01)=""
^DD(58.811,"B","Order Number",.01)="1"
^DD(58.811,"B","VENDOR NAME",1)=""
^DD(58.811,"B","Vendor Name",1)="1"
^DD(58.811,"GL",0,1,.01)=""
^DD(58.811,"GL",0,2,1)=""
^DD(58.811,"GL",1,0,2)=""
^DD(58.811,"IX",.01)=""
^DD(58.811,"RQ",.01)=""
^DD(58.811,"SB",58.8112,2)=""
^DD(58.8112,0)="INVOICE DATA SUB-FIELD^^14^15"
^DD(58.8112,0,"DT")="3071120"
^DD(58.8112,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(58.8112,0,"IX","B",58.8112,.01)=""
^DD(58.8112,0,"NM","INVOICE DATA")=""
^DD(58.8112,0,"UP")="58.811"
^DD(58.8112,.01,0)="INVOICE NUMBER^F^^0;1^K:$L(X)>22!($L(X)<1) X"
^DD(58.8112,.01,.1)="Invoice Number"
^DD(58.8112,.01,1,0)="^.1"
^DD(58.8112,.01,1,1,0)="58.8112^B"
^DD(58.8112,.01,1,1,1)="S ^PSD(58.811,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(58.8112,.01,1,1,2)="K ^PSD(58.811,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(58.8112,.01,1,1,3)="DO NOT DELETE!"
^DD(58.8112,.01,1,1,"%D",0)="^^1^1^2970522^"
^DD(58.8112,.01,1,1,"%D",1,0)="This cross-reference is used to locate an invoice number."
^DD(58.8112,.01,1,2,0)="58.811^AINV^MUMPS"
^DD(58.8112,.01,1,2,1)="S ^PSD(58.811,""AORD"",$P($G(^PSD(58.811,DA(1),0)),""^""),X,DA(1),DA)="""""
^DD(58.8112,.01,1,2,2)="K ^PSD(58.811,""AORD"",$P($G(^PSD(58.811,DA(1),0)),""^""),X,DA(1),DA)"
^DD(58.8112,.01,1,2,3)="DO NOT DELETE!"
^DD(58.8112,.01,1,2,"%D",0)="^^5^5^2970923^"
^DD(58.8112,.01,1,2,"%D",1,0)="This cross-reference is used to determine if an order's invoice has been"
^DD(58.8112,.01,1,2,"%D",2,0)="received. It set the ""AORD"" cross-reference."
^DD(58.8112,.01,1,2,"%D",3,0)=" "
^DD(58.8112,.01,1,2,"%D",4,0)="^PSD(58.811,""AORD"",ORDER NUMBER,INVOICE NUMBER,Order internal"
^DD(58.8112,.01,1,2,"%D",5,0)="entry#,DA)="""""
^DD(58.8112,.01,1,2,"DT")="2961127"
^DD(58.8112,.01,3)="Enter the invoice number from the prime vendor."
^DD(58.8112,.01,21,0)="^^2^2^2960503^"
^DD(58.8112,.01,21,1,0)="The INVOICE NUMBER field contains the number of the invoice from"
^DD(58.8112,.01,21,2,0)="the prime vendor."
^DD(58.8112,.01,"DT")="2971021"
^DD(58.8112,1,0)="INVOICE DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8112,1,.1)="Invoice Date"
^DD(58.8112,1,1,0)="^.1"
^DD(58.8112,1,1,1,0)="58.811^ADATE"
^DD(58.8112,1,1,1,1)="S ^PSD(58.811,""ADATE"",$E(X,1,30),DA(1),DA)="""""
^DD(58.8112,1,1,1,2)="K ^PSD(58.811,""ADATE"",$E(X,1,30),DA(1),DA)"
^DD(58.8112,1,1,1,3)="DO NOT DELETE!"
^DD(58.8112,1,1,1,"%D",0)="^^1^1^2971015^^"
^DD(58.8112,1,1,1,"%D",1,0)="This cross-reference is used to locate an invoice number."
^DD(58.8112,1,1,1,"DT")="2970510"
^DD(58.8112,1,1,2,0)="58.811^AINVDT^MUMPS"
^DD(58.8112,1,1,2,1)="D SLOCDT^PSAUTL3"
^DD(58.8112,1,1,2,2)="D KLOCDT^PSAUTL3"
^DD(58.8112,1,1,2,3)="DO NOT DELETE!"
^DD(58.8112,1,1,2,"%D",0)="^^13^13^2970926^"
^DD(58.8112,1,1,2,"%D",1,0)="This cross-reference is used to locate invoices within a pharmacy location"
^DD(58.8112,1,1,2,"%D",2,0)="or master vault for a specific invoice date. It sets the ""ALOC"""
^DD(58.8112,1,1,2,"%D",3,0)="cross-reference."
^DD(58.8112,1,1,2,"%D",4,0)=" "
^DD(58.8112,1,1,2,"%D",5,0)="If there is data in the PHARMACY LOCATION field (#4),"
^DD(58.8112,1,1,2,"%D",6,0)="^PSD(58.811,""ALOC"",PHARMACY LOCATION,Order's internal entry#,DA)="""" is"
^DD(58.8112,1,1,2,"%D",7,0)="set."
^DD(58.8112,1,1,2,"%D",8,0)=" "
^DD(58.8112,1,1,2,"%D",9,0)="If there is data in the MASTER VAULT field (#13),"
^DD(58.8112,1,1,2,"%D",10,0)="^PSD(58.811,""ALOC"",MASTER VAULT,Order's internal entry#,DA)="""" is set."
^DD(58.8112,1,1,2,"%D",11,0)=" "
^DD(58.8112,1,1,2,"%D",12,0)="If there is data in both the PHARMACY LOCATION and MASTER VAULT fields,"
^DD(58.8112,1,1,2,"%D",13,0)="both cross-references are set."
^DD(58.8112,1,1,2,"DT")="2970522"
^DD(58.8112,1,3)="Enter the date of the invoice."
^DD(58.8112,1,21,0)="^^2^2^2960503^^"
^DD(58.8112,1,21,1,0)="The INVOICE DATE field contains the date the invoice was issued"
^DD(58.8112,1,21,2,0)="by the vendor"
^DD(58.8112,1,"DT")="2970522"
^DD(58.8112,2,0)="INVOICE STATUS^S^P:PROCESSED;V:VERIFIED;C:COMPLETED;L:LOCKED VERIFYING;^0;3^Q"
^DD(58.8112,2,.1)="Invoice Status"
^DD(58.8112,2,1,0)="^.1"
^DD(58.8112,2,1,1,0)="58.811^ASTAT"
^DD(58.8112,2,1,1,1)="S ^PSD(58.811,""ASTAT"",$E(X,1,30),DA(1),DA)="""""
^DD(58.8112,2,1,1,2)="K ^PSD(58.811,""ASTAT"",$E(X,1,30),DA(1),DA)"
^DD(58.8112,2,1,1,3)="DO NOT DELETE!"
^DD(58.8112,2,1,1,"%D",0)="^^2^2^2961129^^"
^DD(58.8112,2,1,1,"%D",1,0)="This cross-reference is used to locate all invoices with a specific"
^DD(58.8112,2,1,1,"%D",2,0)="status."
^DD(58.8112,2,1,1,"DT")="2961129"
^DD(58.8112,2,3)="Enter the status of the invoice."
^DD(58.8112,2,21,0)="^^3^3^2960503^^"
^DD(58.8112,2,21,1,0)="The INVOICE STATUS field contains the status of the invoice. "
^DD(58.8112,2,21,2,0)="When the invoice is completed, the drug balances are incremented "
^DD(58.8112,2,21,3,0)="with the quantities received on the invoice."
^DD(58.8112,2,"DT")="3060322"
^DD(58.8112,3,0)="ORDER DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8112,3,.1)="Order Date"
^DD(58.8112,3,3)="Enter the date the order was placed with the prime vendor."
^DD(58.8112,3,21,0)="^^2^2^2960503^^"
^DD(58.8112,3,21,1,0)="The ORDER DATE field contains the date the order was placed for"
^DD(58.8112,3,21,2,0)="the invoiced drugs."
^DD(58.8112,3,"DT")="2960503"
^DD(58.8112,4,0)="PHARMACY LOCATION^*P58.8'^PSD(58.8,^0;5^S DIC(""S"")=""I $P($G(^PSD(58.8,+Y,0)),U,2)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.8112,4,.1)="Pharmacy Location"
^DD(58.8112,4,1,0)="^.1"
^DD(58.8112,4,1,1,0)="58.811^ALOC^MUMPS"
^DD(58.8112,4,1,1,1)="D SLOC^PSAUTL3"
^DD(58.8112,4,1,1,2)="D KLOC^PSAUTL3"
^DD(58.8112,4,1,1,3)="DO NOT DELETE!"
^DD(58.8112,4,1,1,"%D",0)="^^4^4^2970926^^"
^DD(58.8112,4,1,1,"%D",1,0)="This cross-reference is used to locate invoices within a pharmacy location"
^DD(58.8112,4,1,1,"%D",2,0)="for a specific invoice date. It sets the ""ALOC""cross-reference."
^DD(58.8112,4,1,1,"%D",3,0)=" "
^DD(58.8112,4,1,1,"%D",4,0)="^PSD(58.811,""ALOC"",PHARMACY LOCATION,Order's internal entry#,DA)="""""
^DD(58.8112,4,1,1,"DT")="2970522"
^DD(58.8112,4,3)="Enter the Drug Accountability pharmacy location for which the order was placed."
^DD(58.8112,4,12)="Only pharmacy locations can be selected."
^DD(58.8112,4,12.1)="S DIC(""S"")=""I $P($G(^PSD(58.8,+Y,0)),U,2)=""""P"""""""
^DD(58.8112,4,21,0)="^^3^3^2970923^^^^"
^DD(58.8112,4,21,1,0)="The PHARMACY LOCATION field contains the Drug Accountability pharmacy"
^DD(58.8112,4,21,2,0)="location for which the invoiced order was placed. The pharmacy location "
^DD(58.8112,4,21,3,0)="received the items not marked as a controlled substance."
^DD(58.8112,4,23,0)="^^2^2^2970926^"
^DD(58.8112,4,23,1,0)="The field points to the DRUG ACCOUNTABILITY STATS file (#58.8). The node"
^DD(58.8112,4,23,2,0)="pointed to must contain an ""P"" in the LOCATION TYPE field (#1)."
^DD(58.8112,4,"DT")="2970829"
^DD(58.8112,5,0)="LINE ITEM DATA^58.81125AI^^1;0"
^DD(58.8112,5,21,0)="^^4^4^2970923^"
^DD(58.8112,5,21,1,0)="The LINE ITEM DATA multiple contains the line item number, drug, quantity"
^DD(58.8112,5,21,2,0)="invoiced, order unit, price per order unit, date drugs were received, date"
^DD(58.8112,5,21,3,0)="the line item was processed, processor, date the line item was verified,"
^DD(58.8112,5,21,4,0)="verifier, and adjustment data for each line item."
^DD(58.8112,6,0)="CREDITS^58.81126A^^2;0"
^DD(58.8112,6,21,0)="^^2^2^2961107^"
^DD(58.8112,6,21,1,0)="The CREDITS multiple contains the credit memo data issued"
^DD(58.8112,6,21,2,0)="against the invoice."
^DD(58.8112,7,0)="DELIVERY DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8112,7,.1)="Delivery Date"
^DD(58.8112,7,3)="Enter the delivery date on the invoice."
^DD(58.8112,7,21,0)="^^2^2^2961107^^"
^DD(58.8112,7,21,1,0)="The DELIVERY DATE field contains the date the prime"
^DD(58.8112,7,21,2,0)="vendor's invoice shows the items were delivered."
^DD(58.8112,7,"DT")="2961107"
^DD(58.8112,8,0)="DATE RECEIVED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8112,8,.1)="Date Received"
^DD(58.8112,8,3)="Enter the date the items were received."
^DD(58.8112,8,21,0)="^^3^3^2961107^^"
^DD(58.8112,8,21,1,0)="The DATE RECEIVED field contains the date the drugs were "
^DD(58.8112,8,21,2,0)="received if it is different than the delivery date on the "
^DD(58.8112,8,21,3,0)="invoice."
^DD(58.8112,8,"DT")="2961107"
^DD(58.8112,9,0)="CONTROLLED SUBSTANCES^S^A:ALL;S:SOME;N:NONE;^0;8^Q"
^DD(58.8112,9,.1)="Controlled Substances"
^DD(58.8112,9,3)="Enter the invoice's controlled substances category."
^DD(58.8112,9,21,0)="^^2^2^2970923^"
^DD(58.8112,9,21,1,0)="The CONTROLLED SUBSTANCES field contains a flag indicating if all, some,"
^DD(58.8112,9,21,2,0)="or none of the drugs on the invoice are flagged as controlled substances."
^DD(58.8112,9,"DT")="2961108"
^DD(58.8112,10,0)="OUTSTANDING CREDIT MEMO^S^1:YES;^0;9^Q"
^DD(58.8112,10,.1)="Outstanding Credit Memo"
^DD(58.8112,10,1,0)="^.1"
^DD(58.8112,10,1,1,0)="58.811^AC"
^DD(58.8112,10,1,1,1)="S ^PSD(58.811,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(58.8112,10,1,1,2)="K ^PSD(58.811,""AC"",$E(X,1,30),DA(1),DA)"
^DD(58.8112,10,1,1,3)="DO NOT DELETE!"
^DD(58.8112,10,1,1,"%D",0)="^^2^2^2971017^^"
^DD(58.8112,10,1,1,"%D",1,0)="The cross-reference is used to determine if there is an outstanding"
^DD(58.8112,10,1,1,"%D",2,0)="credit memo for the invoice."
^DD(58.8112,10,1,1,"DT")="2961205"
^DD(58.8112,10,3)="Enter ""1"" if there is an outstanding credit memo for the invoice."
^DD(58.8112,10,21,0)="^^3^3^2970923^"
^DD(58.8112,10,21,1,0)="The CREDIT MEMO REQUIRED? field is a flag used to determine if there is an"
^DD(58.8112,10,21,2,0)="outstanding credit memo for the invoice. The field is set to ""1"" if a"
^DD(58.8112,10,21,3,0)="credit memo is needed and has not been received."
^DD(58.8112,10,"DT")="2961205"
^DD(58.8112,11,0)="PROCESSOR^*P200'^VA(200,^0;10^I $D(^XUSEC(""PSA ORDERS"",DUZ)) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.8112,11,.1)="Processor"
^DD(58.8112,11,3)="Enter the last person who processed the invoice."
^DD(58.8112,11,12)="The user must hold the PSA ORDERS key."
^DD(58.8112,11,12.1)="I $D(^XUSEC(""PSA ORDERS"",DUZ))"
^DD(58.8112,11,21,0)="^^2^2^2961210^^"
^DD(58.8112,11,21,1,0)="The PROCESSOR field contains the name of the person who last processed"
^DD(58.8112,11,21,2,0)="the invoice."
^DD(58.8112,11,"DT")="2961210"
^DD(58.8112,12,0)="VERIFIER^*P200'^VA(200,^0;11^I $D(^XUSEC(""PSA ORDERS"",DUZ)) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.8112,12,.1)="Verifier"
^DD(58.8112,12,3)="Enter the name of the person who verified the invoice."
^DD(58.8112,12,12)="The user must hold the PSA ORDERS key."
^DD(58.8112,12,12.1)="I $D(^XUSEC(""PSA ORDERS"",DUZ))"
^DD(58.8112,12,21,0)="^^2^2^2961210^^^^"
^DD(58.8112,12,21,1,0)="The VERIFIER field contains the name of the person who last verified"
^DD(58.8112,12,21,2,0)="the invoice. The verifier cannot be the processor."
^DD(58.8112,12,"DT")="2961210"
^DD(58.8112,13,0)="MASTER VAULT^*P58.8'^PSD(58.8,^0;12^S DIC(""S"")=""I $P($G(^PSD(58.8,+Y,0)),U,2)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.8112,13,.1)="Master Vault"
^DD(58.8112,13,1,0)="^.1"
^DD(58.8112,13,1,1,0)="58.811^ALOCMV^MUMPS"
^DD(58.8112,13,1,1,1)="D SLOC^PSAUTL3"
^DD(58.8112,13,1,1,2)="D KLOC^PSAUTL3"
^DD(58.8112,13,1,1,3)="DO NOT DELETE!"
^DD(58.8112,13,1,1,"%D",0)="^^4^4^2970926^^"
^DD(58.8112,13,1,1,"%D",1,0)="This cross-reference is used to locate invoices within a master vault for"
^DD(58.8112,13,1,1,"%D",2,0)="a specific invoice date. It sets the ""ALOC""cross-reference."
^DD(58.8112,13,1,1,"%D",3,0)=" "
^DD(58.8112,13,1,1,"%D",4,0)="^PSD(58.811,""ALOC"",MASTER VAULT,Order's internal entry#,DA)="""""
^DD(58.8112,13,1,1,"DT")="2970522"
^DD(58.8112,13,3)="Enter the master vault that received the controlled substances."
^DD(58.8112,13,12)="Only master vaults can be selected."
^DD(58.8112,13,12.1)="S DIC(""S"")=""I $P($G(^PSD(58.8,+Y,0)),U,2)=""""M"""""""
^DD(58.8112,13,21,0)="^^2^2^2970923^^^^"
^DD(58.8112,13,21,1,0)="The MASTER VAULT field contains the master vault that received the"
^DD(58.8112,13,21,2,0)="controlled substances on the invoice."
^DD(58.8112,13,23,0)="^^2^2^2970923^"
^DD(58.8112,13,23,1,0)="The field points to the DRUG ACCOUNTABILITY STATS file (#58.8). The master"
^DD(58.8112,13,23,2,0)="vault pointed to must contain an ""M"" in the LOCATION TYPE field (#1)."
^DD(58.8112,13,"DT")="2970829"
^DD(58.8112,14,0)="ALL SUPPLY ITEMS?^S^1:YES;0:NO;^0;13^Q"
^DD(58.8112,14,.1)="All Supply Items?"
^DD(58.8112,14,3)="Enter ""YES"" if all items on the invoice are supply items."
^DD(58.8112,14,21,0)="^^4^4^2970923^"
^DD(58.8112,14,21,1,0)="The ALL SUPPLY ITEMS? field contains ""YES"" if all items on the invoice are"
^DD(58.8112,14,21,2,0)="supply items or will never be matched to drugs in the DRUG file (#50). It"
^DD(58.8112,14,21,3,0)="contains ""NO"" if there is at least one item on the invoice that is not a"
^DD(58.8112,14,21,4,0)="supply item or will be matched to a drug in the DRUG file."
^DD(58.8112,14,"DT")="2970131"
^DD(58.8112,"B","ALL SUPPLY ITEMS?",14)=""
^DD(58.8112,"B","All Supply Items?",14)="1"
^DD(58.8112,"B","CONTROLLED SUBSTANCES",9)=""
^DD(58.8112,"B","CREDITS",6)=""
^DD(58.8112,"B","Controlled Substances",9)="1"
^DD(58.8112,"B","DATE RECEIVED",8)=""
^DD(58.8112,"B","DELIVERY DATE",7)=""
^DD(58.8112,"B","Date Received",8)="1"
^DD(58.8112,"B","Delivery Date",7)="1"
^DD(58.8112,"B","INVOICE DATE",1)=""
^DD(58.8112,"B","INVOICE NUMBER",.01)=""
^DD(58.8112,"B","INVOICE STATUS",2)=""
^DD(58.8112,"B","Invoice Date",1)="1"
^DD(58.8112,"B","Invoice Number",.01)="1"
^DD(58.8112,"B","Invoice Status",2)="1"
^DD(58.8112,"B","LINE ITEM DATA",5)=""
^DD(58.8112,"B","MASTER VAULT",13)=""
^DD(58.8112,"B","Master Vault",13)="1"
^DD(58.8112,"B","ORDER DATE",3)=""
^DD(58.8112,"B","OUTSTANDING CREDIT MEMO",10)=""
^DD(58.8112,"B","Order Date",3)="1"
^DD(58.8112,"B","Outstanding Credit Memo",10)="1"
^DD(58.8112,"B","PHARMACY LOCATION",4)=""
^DD(58.8112,"B","PROCESSOR",11)=""
^DD(58.8112,"B","Pharmacy Location",4)="1"
^DD(58.8112,"B","Processor",11)="1"
^DD(58.8112,"B","VERIFIER",12)=""
^DD(58.8112,"B","Verifier",12)="1"
^DD(58.8112,"GL",0,1,.01)=""
^DD(58.8112,"GL",0,2,1)=""
^DD(58.8112,"GL",0,3,2)=""
^DD(58.8112,"GL",0,4,3)=""
^DD(58.8112,"GL",0,5,4)=""
^DD(58.8112,"GL",0,6,7)=""
^DD(58.8112,"GL",0,7,8)=""
^DD(58.8112,"GL",0,8,9)=""
^DD(58.8112,"GL",0,9,10)=""
^DD(58.8112,"GL",0,10,11)=""
^DD(58.8112,"GL",0,11,12)=""
^DD(58.8112,"GL",0,12,13)=""
^DD(58.8112,"GL",0,13,14)=""
^DD(58.8112,"GL",1,0,5)=""
^DD(58.8112,"GL",2,0,6)=""
^DD(58.8112,"IX",.01)=""
^DD(58.8112,"IX",1)=""
^DD(58.8112,"IX",2)=""
^DD(58.8112,"IX",4)=""
^DD(58.8112,"IX",10)=""
^DD(58.8112,"IX",13)=""
^DD(58.8112,"SB",58.81125,5)=""
^DD(58.8112,"SB",58.81126,6)=""
^DD(58.81125,0)="LINE ITEM DATA SUB-FIELD^^21^22"
^DD(58.81125,0,"DT")="3071120"
^DD(58.81125,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSDRUG(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(58.81125,0,"IX","B",58.81125,.01)=""
^DD(58.81125,0,"NM","LINE ITEM DATA")=""
^DD(58.81125,0,"UP")="58.8112"
^DD(58.81125,.01,0)="LINE ITEM NUMBER^F^^0;1^K:$L(X)>11!($L(X)<1) X"
^DD(58.81125,.01,.1)="Line Item Number"
^DD(58.81125,.01,1,0)="^.1"
^DD(58.81125,.01,1,1,0)="58.81125^B"
^DD(58.81125,.01,1,1,1)="S ^PSD(58.811,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(58.81125,.01,1,1,2)="K ^PSD(58.811,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(58.81125,.01,1,1,3)="DO NOT DELETE!"
^DD(58.81125,.01,1,1,"%D",0)="^^1^1^2970522^"
^DD(58.81125,.01,1,1,"%D",1,0)="This cross-reference is used to locate a line item number."
^DD(58.81125,.01,3)="Enter the number of the item on the invoice."
^DD(58.81125,.01,21,0)="^^2^2^2960503^"
^DD(58.81125,.01,21,1,0)="The LINE ITEM NUMBER field contains the number of the item on the"
^DD(58.81125,.01,21,2,0)="invoice."
^DD(58.81125,.01,"DT")="2960503"
^DD(58.81125,1,0)="DRUG^P50'^PSDRUG(^0;2^Q"
^DD(58.81125,1,.1)="Drug"
^DD(58.81125,1,3)="Enter the drug that was invoiced."
^DD(58.81125,1,21,0)="^^1^1^2960503^"
^DD(58.81125,1,21,1,0)="The DRUG field contains the drug that was invoiced."
^DD(58.81125,1,"DT")="2960503"
^DD(58.81125,2,0)="QUANTITY INVOICED^NJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.81125,2,.1)="Quantity Invoiced"
^DD(58.81125,2,3)="Enter the quantity of the drug that was invoiced."
^DD(58.81125,2,21,0)="^^2^2^2960503^"
^DD(58.81125,2,21,1,0)="The QUANTITY INVOICED field contains the quantity of the ordered"
^DD(58.81125,2,21,2,0)="drug that invoiced."
^DD(58.81125,2,"DT")="2960503"
^DD(58.81125,3,0)="ORDER UNIT^P51.5'^DIC(51.5,^0;4^Q"
^DD(58.81125,3,.1)="Order Unit"
^DD(58.81125,3,3)="Enter the order unit for which the drug was invoiced."
^DD(58.81125,3,21,0)="^^2^2^2961205^^"
^DD(58.81125,3,21,1,0)="The ORDER UNIT field contains the packaging unit for which"
^DD(58.81125,3,21,2,0)="the drug was invoiced."
^DD(58.81125,3,"DT")="2960503"
^DD(58.81125,4,0)="PRICE PER ORDER UNIT^NJ14,3^^0;5^K:+X'=X!(X>9999999999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(58.81125,4,.1)="Price per Order Unit"
^DD(58.81125,4,3)="Enter the dollar amount invoiced for each unit of order."
^DD(58.81125,4,21,0)="^^2^2^2960503^^"
^DD(58.81125,4,21,1,0)="The PRICE PER ORDER UNIT field contains the dollar amount for each"
^DD(58.81125,4,21,2,0)="order unit."
^DD(58.81125,4,"DT")="2960503"
^DD(58.81125,5,0)="DATE PROCESSED^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81125,5,.1)="Date Processed"
^DD(58.81125,5,3)="Enter the date the line item was processed."
^DD(58.81125,5,21,0)="^^1^1^2961105^^^^"
^DD(58.81125,5,21,1,0)="The DATE PROCESSED field contains the date the line item was processed."
^DD(58.81125,5,"DT")="2961105"
^DD(58.81125,6,0)="PROCESSOR^*P200'^VA(200,^0;7^I $D(^XUSEC(""PSA ORDERS"",DUZ)) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81125,6,.1)="Processor"
^DD(58.81125,6,3)="Enter the name of the person who processed the line item."
^DD(58.81125,6,12)="The user must hold the PSA ORDERS key."
^DD(58.81125,6,12.1)="I $D(^XUSEC(""PSA ORDERS"",DUZ))"
^DD(58.81125,6,21,0)="^^2^2^2961203^^^^"
^DD(58.81125,6,21,1,0)="The PROCESSOR field contains the name of the person who processed"
^DD(58.81125,6,21,2,0)="the line item."
^DD(58.81125,6,"DT")="2961203"
^DD(58.81125,7,0)="DATE VERIFIED^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81125,7,.1)="Date Verified"
^DD(58.81125,7,3)="Enter the date the line item was verified."
^DD(58.81125,7,21,0)="^^1^1^2961105^^^"
^DD(58.81125,7,21,1,0)="The DATE VERIFIED field contains the date the line item was verified."
^DD(58.81125,7,"DT")="2961105"
^DD(58.81125,8,0)="VERIFIER^*P200'^VA(200,^0;9^I $D(^XUSEC(""PSA ORDERS"",DUZ)) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.81125,8,.1)="Verifier"
^DD(58.81125,8,3)="Enter the name of the person who verified the line item."
^DD(58.81125,8,12)="The user must hold the PSA ORDERS key."
^DD(58.81125,8,12.1)="I $D(^XUSEC(""PSA ORDERS"",DUZ))"
^DD(58.81125,8,21,0)="^^2^2^2961205^^^^"
^DD(58.81125,8,21,1,0)="The VERIFIER field contains the name of the person who verified the"
^DD(58.81125,8,21,2,0)="line item."
^DD(58.81125,8,"DT")="2961205"
^DD(58.81125,9,0)="ADJUSTMENTS^58.811259SA^^1;0"
^DD(58.81125,9,21,0)="^^2^2^2961107^^"
^DD(58.81125,9,21,1,0)="The ADJUSTMENTS multiple contains the changes the processor and"
^DD(58.81125,9,21,2,0)="verifier made to the invoice data."
^DD(58.81125,10,0)="DISPENSE UNITS PER ORDER UNIT^NJ10,3^^2;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(58.81125,10,.1)="Dispense Units per Order Unit"
^DD(58.81125,10,3)="Enter the number of dispense units contained in one order unit."
^DD(58.81125,10,21,0)="^^2^2^2961107^"
^DD(58.81125,10,21,1,0)="The DISPENSE UNITS PER ORDER UNIT field contains the"
^DD(58.81125,10,21,2,0)="number of dispense units in one order unit."
^DD(58.81125,10,"DT")="2970110"
^DD(58.81125,11,0)="REORDER LEVEL^NJ9,0^^2;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.81125,11,.1)="Reorder Level"
^DD(58.81125,11,3)="Enter the minimum number of dispense units you want to have in the pharmacy location."
^DD(58.81125,11,21,0)="^^3^3^2970408^^^^"
^DD(58.81125,11,21,1,0)="The REORDER LEVEL field contains the minimum number of dispense "
^DD(58.81125,11,21,2,0)="units to be retained in the pharmacy location for the line item's "
^DD(58.81125,11,21,3,0)="drug."
^DD(58.81125,11,"DT")="2970408"
^DD(58.81125,12,0)="CONTROLLED SUBSTANCE?^S^1:YES;0:NO;^0;10^Q"
^DD(58.81125,12,.1)="Controlled Substance?"
^DD(58.81125,12,3)="Enter ""YES"" if the item is marked as a controlled substance."
^DD(58.81125,12,21,0)="^^4^4^2970923^"
^DD(58.81125,12,21,1,0)="The CONTROLLED SUBSTANCE? field contains a flag indicating if the drug is"
^DD(58.81125,12,21,2,0)="marked as a controlled substance in the DRUG file (#50). If there is an"
^DD(58.81125,12,21,3,0)="adjusted drug, the flag is set for that drug. If there is no adjusted"
^DD(58.81125,12,21,4,0)="drug, the flag is set for the invoiced drug."
^DD(58.81125,12,"DT")="2961108"
^DD(58.81125,13,0)="NDC^F^^0;11^K:$L(X)>31!($L(X)<1) X"
^DD(58.81125,13,.1)="National Drug Code"
^DD(58.81125,13,3)="Enter the National Drug Code (NDC). If there is no NDC, enter ""S"" concatenated to the Universal Product Code (UPC)."
^DD(58.81125,13,21,0)="^^3^3^2970923^^^"
^DD(58.81125,13,21,1,0)="The NDC field contains the National Drug Code (NDC) for the received item."
^DD(58.81125,13,21,2,0)="If the item was adjusted, the NDC is for the adjusted item. If the item"
^DD(58.81125,13,21,3,0)="was not adjusted, the NDC is for the invoiced item."
^DD(58.81125,13,23,0)="^^3^3^2970923^"
^DD(58.81125,13,23,1,0)="If the item is a drug, the NDC is twelve numbers. If the item is a supply,"
^DD(58.81125,13,23,2,0)="the National Drug Code (NDC) is ""S"" concatenated to the Universal Product"
^DD(58.81125,13,23,3,0)="Code (UPC)."
^DD(58.81125,13,"DT")="2961114"
^DD(58.81125,14,0)="VSN^F^^0;12^K:$L(X)>30!($L(X)<1) X"
^DD(58.81125,14,.1)="Vendor Stock Number"
^DD(58.81125,14,3)="Enter the vendor's stock number for the item."
^DD(58.81125,14,21,0)="^^1^1^2961108^^"
^DD(58.81125,14,21,1,0)="The VSN field contains the Vendor Stock Number for the item received."
^DD(58.81125,14,"DT")="2961108"
^DD(58.81125,15,0)="UPC^F^^0;13^K:$L(X)>30!($L(X)<1) X"
^DD(58.81125,15,.1)="Universal Product Code"
^DD(58.81125,15,3)="Enter the item's Universal Product Code."
^DD(58.81125,15,21,0)="^^2^2^2970922^^^"
^DD(58.81125,15,21,1,0)="The UPC field contains the Universal Product Code for the item"
^DD(58.81125,15,21,2,0)="received."
^DD(58.81125,15,"DT")="2961108"
^DD(58.81125,16,0)="SYNONYM NODE^NJ6,0^^2;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.81125,16,.1)="Synonym Node"
^DD(58.81125,16,3)="Enter the DRUG file's SYNONYM multiple's internal entry number that contains the data for the invoiced item."
^DD(58.81125,16,21,0)="^^2^2^2970923^"
^DD(58.81125,16,21,1,0)="The SYNONYM NODE field contains the DRUG file's (#50) SYNONYM multiple's "
^DD(58.81125,16,21,2,0)="internal entry number that contains the data for the invoiced item."
^DD(58.81125,16,23,0)="^^2^2^2970923^^"
^DD(58.81125,16,23,1,0)="This field will contain data until the invoice is verified. The 2 node"
^DD(58.81125,16,23,2,0)="will be deleted then."
^DD(58.81125,16,"DT")="2970110"
^DD(58.81125,17,0)="STOCK LEVEL^NJ7,0^^2;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.81125,17,.1)="Stock Level"
^DD(58.81125,17,3)="Enter the ideal number of dispense units to keep on the shelf."
^DD(58.81125,17,21,0)="^^2^2^2970408^^^"
^DD(58.81125,17,21,1,0)="The STOCK LEVEL field contains the ideal number of dispense units to"
^DD(58.81125,17,21,2,0)="keep on the shelf."
^DD(58.81125,17,"DT")="2970201"
^DD(58.81125,18,0)="GENERIC DESCRIPTION^F^^3;1^K:$L(X)>40!($L(X)<3) X"
^DD(58.81125,18,3)="Answer must be 3-40 characters in length."
^DD(58.81125,18,21,0)="^^1^1^3071120^"
^DD(58.81125,18,21,1,0)="This is a generic description of the item provided by the vendor."
^DD(58.81125,18,"DT")="3071120"
^DD(58.81125,19,0)="ITEM DESCRIPTION^F^^3;2^K:$L(X)>40!($L(X)<3) X"
^DD(58.81125,19,3)="Answer must be 3-40 characters in length."
^DD(58.81125,19,21,0)="^^1^1^3071120^"
^DD(58.81125,19,21,1,0)="This is a detailed description of the line item."
^DD(58.81125,19,"DT")="3071120"
^DD(58.81125,20,0)="PRIME VENDOR UNITS^NJ8,2^^3;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(58.81125,20,3)="Type a Number between 0 and 99999, 2 Decimal Digits"
^DD(58.81125,20,21,0)="^^2^2^3071120^"
^DD(58.81125,20,21,1,0)="This is the number of units in the vendor sell unit (i.e. number of "
^DD(58.81125,20,21,2,0)="bottles in sell unit."
^DD(58.81125,20,"DT")="3071120"
^DD(58.81125,21,0)="INNER PACK^NJ8,2^^3;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(58.81125,21,3)="Type a Number between 0 and 99999, 2 Decimal Digits"
^DD(58.81125,21,21,0)="^^2^2^3071120^"
^DD(58.81125,21,21,1,0)="This is the vendor's dispense units per order unit (i.e. number of pills"
^DD(58.81125,21,21,2,0)="in bottle)."
^DD(58.81125,21,"DT")="3071120"
^DD(58.81125,"B","ADJUSTMENTS",9)=""
^DD(58.81125,"B","CONTROLLED SUBSTANCE?",12)=""
^DD(58.81125,"B","Controlled Substance?",12)="1"
^DD(58.81125,"B","DATE PROCESSED",5)=""
^DD(58.81125,"B","DATE VERIFIED",7)=""
^DD(58.81125,"B","DISPENSE UNITS PER ORDER UNIT",10)=""
^DD(58.81125,"B","DRUG",1)=""
^DD(58.81125,"B","Date Processed",5)="1"
^DD(58.81125,"B","Date Verified",7)="1"
^DD(58.81125,"B","Dispense Units per Order Unit",10)="1"
^DD(58.81125,"B","Drug",1)="1"
^DD(58.81125,"B","GENERIC DESCRIPTION",18)=""
^DD(58.81125,"B","INNER PACK",21)=""
^DD(58.81125,"B","ITEM DESCRIPTION",19)=""
^DD(58.81125,"B","LINE ITEM NUMBER",.01)=""
^DD(58.81125,"B","Line Item Number",.01)="1"
^DD(58.81125,"B","NDC",13)=""
^DD(58.81125,"B","National Drug Code",13)="1"
^DD(58.81125,"B","ORDER UNIT",3)=""
^DD(58.81125,"B","Order Unit",3)="1"
^DD(58.81125,"B","PRICE PER ORDER UNIT",4)=""
^DD(58.81125,"B","PRIME VENDOR UNITS",20)=""
^DD(58.81125,"B","PROCESSOR",6)=""
^DD(58.81125,"B","Price per Order Unit",4)="1"
^DD(58.81125,"B","Processor",6)="1"
^DD(58.81125,"B","QUANTITY INVOICED",2)=""
^DD(58.81125,"B","Quantity Invoiced",2)="1"
^DD(58.81125,"B","REORDER LEVEL",11)=""
^DD(58.81125,"B","Reorder Level",11)="1"
^DD(58.81125,"B","STOCK LEVEL",17)=""
^DD(58.81125,"B","SYNONYM NODE",16)=""
^DD(58.81125,"B","Stock Level",17)="1"
^DD(58.81125,"B","Synonym Node",16)="1"
^DD(58.81125,"B","UPC",15)=""
^DD(58.81125,"B","Universal Product Code",15)="1"
^DD(58.81125,"B","VERIFIER",8)=""
^DD(58.81125,"B","VSN",14)=""
^DD(58.81125,"B","Vendor Stock Number",14)="1"
^DD(58.81125,"B","Verifier",8)="1"
^DD(58.81125,"GL",0,1,.01)=""
^DD(58.81125,"GL",0,2,1)=""
^DD(58.81125,"GL",0,3,2)=""
^DD(58.81125,"GL",0,4,3)=""
^DD(58.81125,"GL",0,5,4)=""
^DD(58.81125,"GL",0,6,5)=""
^DD(58.81125,"GL",0,7,6)=""
^DD(58.81125,"GL",0,8,7)=""
^DD(58.81125,"GL",0,9,8)=""
^DD(58.81125,"GL",0,10,12)=""
^DD(58.81125,"GL",0,11,13)=""
^DD(58.81125,"GL",0,12,14)=""
^DD(58.81125,"GL",0,13,15)=""
^DD(58.81125,"GL",1,0,9)=""
^DD(58.81125,"GL",2,1,10)=""
^DD(58.81125,"GL",2,2,11)=""
^DD(58.81125,"GL",2,3,16)=""
^DD(58.81125,"GL",2,4,17)=""
^DD(58.81125,"GL",3,1,18)=""
^DD(58.81125,"GL",3,2,19)=""
^DD(58.81125,"GL",3,3,20)=""
^DD(58.81125,"GL",3,4,21)=""
^DD(58.81125,"IX",.01)=""
^DD(58.81125,"SB",58.811259,9)=""
^DD(58.811259,0)="ADJUSTMENTS SUB-FIELD^^8^9"
^DD(58.811259,0,"DT")="2961220"
^DD(58.811259,0,"IX","B",58.811259,.01)=""
^DD(58.811259,0,"NM","ADJUSTMENTS")=""
^DD(58.811259,0,"UP")="58.81125"
^DD(58.811259,.01,0)="ADJUSTED FIELD^S^D:DRUG;Q:QUANTITY INVOICED;O:ORDER UNIT;P:PRICE PER ORDER UNIT;^0;1^Q"
^DD(58.811259,.01,.1)="Adjusted Field"
^DD(58.811259,.01,1,0)="^.1"
^DD(58.811259,.01,1,1,0)="58.811259^B"
^DD(58.811259,.01,1,1,1)="S ^PSD(58.811,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(58.811259,.01,1,1,2)="K ^PSD(58.811,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(58.811259,.01,3)="Enter the field that was adjusted."
^DD(58.811259,.01,21,0)="^^2^2^2961107^^"
^DD(58.811259,.01,21,1,0)="The ADJUSTED FIELD field contains the name of the field that "
^DD(58.811259,.01,21,2,0)="was adjusted."
^DD(58.811259,.01,"DT")="2961107"
^DD(58.811259,1,0)="PROCESSOR ADJUSTMENT^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(58.811259,1,.1)="Processor Adjustment"
^DD(58.811259,1,3)="Enter the adjustment made by the processor."
^DD(58.811259,1,21,0)="^^8^8^2970923^"
^DD(58.811259,1,21,1,0)="The PROCESSOR ADJUSTMENT field contains the processor's adjustment. If the"
^DD(58.811259,1,21,2,0)="ADJUSTED FIELD field (.01) is ""DRUG"", the adjustment is the drug received"
^DD(58.811259,1,21,3,0)="or a description of supply item. If the ADJUSTED FIELD field is ""QUANTITY"
^DD(58.811259,1,21,4,0)="INVOICED"", the adjustment is the positive or negative number to be added"
^DD(58.811259,1,21,5,0)="to the QUANTITY INVOICED field (#2). If the ADJUSTED FIELD field is ""ORDER"
^DD(58.811259,1,21,6,0)="UNIT"", the adjustment is the abbreviation of the unit of order received."
^DD(58.811259,1,21,7,0)="If the ADJUSTED FIELD field is ""PRICE PER ORDER UNIT"", the adjustment is"
^DD(58.811259,1,21,8,0)="the dollar amount charged for each order unit."
^DD(58.811259,1,23,0)="^^6^6^2970923^"
^DD(58.811259,1,23,1,0)="A ""DRUG"" adjustment is the internal entry number of the drug in the DRUG"
^DD(58.811259,1,23,2,0)="file (#50) or a description of supply item. A ""QUANTITY INVOICED"""
^DD(58.811259,1,23,3,0)="adjustment is the positive or negative number to be added to the QUANTITY"
^DD(58.811259,1,23,4,0)="INVOICED field (#2). An ""ORDER UNIT"" adjustment is the internal entry"
^DD(58.811259,1,23,5,0)="number of the unit of measure in the ORDER UNIT file (#51.5). A ""PRICE PER"
^DD(58.811259,1,23,6,0)="ORDER UNIT"" adjustment is the dollar amount to be paid for one order unit."
^DD(58.811259,1,"DT")="2961220"
^DD(58.811259,2,0)="PROCESSOR'S REASON^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(58.811259,2,.1)="Processor's Reason"
^DD(58.811259,2,3)="Enter the reason the processor made the adjustment."
^DD(58.811259,2,21,0)="^^1^1^2961107^^^"
^DD(58.811259,2,21,1,0)="The PROCESSOR'S REASON field contains reason the adjustment was made."
^DD(58.811259,2,"DT")="2961107"
^DD(58.811259,3,0)="PROCESS DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.811259,3,.1)="Process Date"
^DD(58.811259,3,3)="Enter the date the processor entered the adjustment."
^DD(58.811259,3,21,0)="^^2^2^2961107^^"
^DD(58.811259,3,21,1,0)="The PROCESS DATE field contains the date the processor made "
^DD(58.811259,3,21,2,0)="the adjustment."
^DD(58.811259,3,"DT")="2961107"
^DD(58.811259,4,0)="PROCESSOR^*P200'^VA(200,^0;5^I $D(^XUSEC(""PSA ORDERS"",DUZ)) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.811259,4,.1)="Processor"
^DD(58.811259,4,3)="Enter the name of the processor who entered the adjustment."
^DD(58.811259,4,12)="The processor must hold the PSA ORDERS key."
^DD(58.811259,4,12.1)="I $D(^XUSEC(""PSA ORDERS"",DUZ))"
^DD(58.811259,4,21,0)="^^2^2^2961107^^"
^DD(58.811259,4,21,1,0)="The PROCESSOR field contains the name of the person who entered "
^DD(58.811259,4,21,2,0)="the adjustment."
^DD(58.811259,4,"DT")="2961107"
^DD(58.811259,5,0)="VERIFIER ADJUSTMENT^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(58.811259,5,.1)="Verifier Adjustment"
^DD(58.811259,5,3)="Enter the adjustment made by the verifier."
^DD(58.811259,5,21,0)="^^9^9^2970923^"
^DD(58.811259,5,21,1,0)="The VERIFIER ADJUSTMENT field contains the adjustment that the verifier"
^DD(58.811259,5,21,2,0)="made to the line item. If the ADJUSTED FIELD field (#.01) is ""DRUG"", the"
^DD(58.811259,5,21,3,0)="adjustment is the drug received or a description of supply item. If the"
^DD(58.811259,5,21,4,0)="ADJUSTED FIELD field is ""QUANTITY INVOICED"", the adjustment is the"
^DD(58.811259,5,21,5,0)="positive or negative number to be added to the QUANTITY INVOICED field"
^DD(58.811259,5,21,6,0)="(#2). If the ADJUSTED FIELD field is ""ORDER UNIT"", the adjustment is the"
^DD(58.811259,5,21,7,0)="abbreviation of the unit of order received. If the ADJUSTED FIELD field is"
^DD(58.811259,5,21,8,0)="""PRICE PER ORDER UNIT"", the adjustment is the dollar amount charged for"
^DD(58.811259,5,21,9,0)="each order unit."
^DD(58.811259,5,23,0)="^^6^6^2970923^"
^DD(58.811259,5,23,1,0)="A ""DRUG"" adjustment is the internal entry number of the drug in the DRUG"
^DD(58.811259,5,23,2,0)="file (#50) or a description of supply item. A ""QUANTITY INVOICED"""
^DD(58.811259,5,23,3,0)="adjustment is the positive or negative number to be added to the QUANTITY"
^DD(58.811259,5,23,4,0)="INVOICED field (#2). An ""ORDER UNIT"" adjustment is the internal entry"
^DD(58.811259,5,23,5,0)="number of the unit of measure in the ORDER UNIT file (#51.5). A ""PRICE PER"
^DD(58.811259,5,23,6,0)="ORDER UNIT"" adjustment is the dollar amount to be paid for one order unit."
^DD(58.811259,5,"DT")="2961220"
^DD(58.811259,6,0)="VERIFIER'S REASON^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(58.811259,6,.1)="Verifier's Reason"
^DD(58.811259,6,3)="Enter the reason the verifier made the adjustment."
^DD(58.811259,6,21,0)="^^2^2^2970922^"
^DD(58.811259,6,21,1,0)="The VERIFIER'S REASON field contains the reason the verifier made the"
^DD(58.811259,6,21,2,0)="adjustment."
^DD(58.811259,6,"DT")="2961107"
^DD(58.811259,7,0)="VERIFICATION DATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.811259,7,.1)="Verification Date"
^DD(58.811259,7,3)="Enter the date the verifier made the adjustment."
^DD(58.811259,7,21,0)="^^2^2^2961107^^"
^DD(58.811259,7,21,1,0)="The VERIFICATION DATE field contains the date the verifier "
^DD(58.811259,7,21,2,0)="made the adjustment."
^DD(58.811259,7,"DT")="2961107"
^DD(58.811259,8,0)="VERIFIER^*P200'^VA(200,^0;9^I $D(^XUSEC(""PSA ORDERS"",DUZ)) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.811259,8,.1)="Verifier"
^DD(58.811259,8,3)="Enter the name of the verifier who made the adjustment."
^DD(58.811259,8,12)="The verifier must hold the PSA ORDERS key."
^DD(58.811259,8,12.1)="I $D(^XUSEC(""PSA ORDERS"",DUZ))"
^DD(58.811259,8,21,0)="^^2^2^2961107^^"
^DD(58.811259,8,21,1,0)="The VERIFIER field contains the name of the verifier who entered "
^DD(58.811259,8,21,2,0)="the adjustment."
^DD(58.811259,8,"DT")="2961107"
^DD(58.811259,"B","ADJUSTED FIELD",.01)=""
^DD(58.811259,"B","Adjusted Field",.01)="1"
^DD(58.811259,"B","PROCESS DATE",3)=""
^DD(58.811259,"B","PROCESSOR",4)=""
^DD(58.811259,"B","PROCESSOR ADJUSTMENT",1)=""
^DD(58.811259,"B","PROCESSOR'S REASON",2)=""
^DD(58.811259,"B","Process Date",3)="1"
^DD(58.811259,"B","Processor",4)="1"
^DD(58.811259,"B","Processor Adjustment",1)="1"
^DD(58.811259,"B","Processor's Reason",2)="1"
^DD(58.811259,"B","VERIFICATION DATE",7)=""
^DD(58.811259,"B","VERIFIER",8)=""
^DD(58.811259,"B","VERIFIER ADJUSTMENT",5)=""
^DD(58.811259,"B","VERIFIER'S REASON",6)=""
^DD(58.811259,"B","Verification Date",7)="1"
^DD(58.811259,"B","Verifier",8)="1"
^DD(58.811259,"B","Verifier Adjustment",5)="1"
^DD(58.811259,"B","Verifier's Reason",6)="1"
^DD(58.811259,"GL",0,1,.01)=""
^DD(58.811259,"GL",0,2,1)=""
^DD(58.811259,"GL",0,3,2)=""
^DD(58.811259,"GL",0,4,3)=""
^DD(58.811259,"GL",0,5,4)=""
^DD(58.811259,"GL",0,6,5)=""
^DD(58.811259,"GL",0,7,6)=""
^DD(58.811259,"GL",0,8,7)=""
^DD(58.811259,"GL",0,9,8)=""
^DD(58.811259,"IX",.01)=""
^DD(58.81126,0)="CREDITS SUB-FIELD^^3^4"
^DD(58.81126,0,"DT")="2970228"
^DD(58.81126,0,"IX","B",58.81126,.01)=""
^DD(58.81126,0,"NM","CREDITS")=""
^DD(58.81126,0,"UP")="58.8112"
^DD(58.81126,.01,0)="CREDIT MEMO^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(58.81126,.01,.1)="Credit Memo"
^DD(58.81126,.01,1,0)="^.1"
^DD(58.81126,.01,1,1,0)="58.81126^B"
^DD(58.81126,.01,1,1,1)="S ^PSD(58.811,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(58.81126,.01,1,1,2)="K ^PSD(58.811,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(58.81126,.01,1,1,3)="DO NOT DELETE!"
^DD(58.81126,.01,1,1,"%D",0)="^^1^1^2970522^"
^DD(58.81126,.01,1,1,"%D",1,0)="This cross-reference is used to locate a credit memo number."
^DD(58.81126,.01,3)="Enter the credit memo number. If there is no credit memo number, enter ""None""."
^DD(58.81126,.01,21,0)="^^2^2^2970923^"
^DD(58.81126,.01,21,1,0)="The CREDIT MEMO field contains the credit memo number issued against the"
^DD(58.81126,.01,21,2,0)="invoice."
^DD(58.81126,.01,"DT")="2961107"
^DD(58.81126,1,0)="CREDIT DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.81126,1,.1)="Credit Date"
^DD(58.81126,1,3)="Enter the date the credit memo was issued."
^DD(58.81126,1,21,0)="^^2^2^2961107^^"
^DD(58.81126,1,21,1,0)="The CREDIT DATE field contains the date the credit memo"
^DD(58.81126,1,21,2,0)="was issued."
^DD(58.81126,1,"DT")="2961107"
^DD(58.81126,2,0)="AMOUNT^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(58.81126,2,.1)="Amount"
^DD(58.81126,2,3)="Enter the credit memo amount."
^DD(58.81126,2,21,0)="^^1^1^2961107^^"
^DD(58.81126,2,21,1,0)="The AMOUNT field contains the dollar value of the credit issued."
^DD(58.81126,2,"DT")="2970226"
^DD(58.81126,3,0)="REASON^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(58.81126,3,.1)="Reason"
^DD(58.81126,3,3)="Enter the reason the credit was issued. Enter 1-40 characters."
^DD(58.81126,3,21,0)="^^2^2^2970227^^^"
^DD(58.81126,3,21,1,0)="The REASON field contains the explanation why the credit memo was"
^DD(58.81126,3,21,2,0)="issued."
^DD(58.81126,3,"DT")="2970228"
^DD(58.81126,"B","AMOUNT",2)=""
^DD(58.81126,"B","Amount",2)="1"
^DD(58.81126,"B","CREDIT DATE",1)=""
^DD(58.81126,"B","CREDIT MEMO",.01)=""
^DD(58.81126,"B","Credit Date",1)="1"
^DD(58.81126,"B","Credit Memo",.01)="1"
^DD(58.81126,"B","REASON",3)=""
^DD(58.81126,"B","Reason",3)="1"
^DD(58.81126,"GL",0,1,.01)=""
^DD(58.81126,"GL",0,2,1)=""
^DD(58.81126,"GL",0,3,2)=""
^DD(58.81126,"GL",0,4,3)=""
^DD(58.81126,"IX",.01)=""
^DD(58.812,0)="FIELD^^3^4"
^DD(58.812,0,"DDA")="N"
^DD(58.812,0,"DT")="3010103"
^DD(58.812,0,"IX","B",58.812,.01)=""
^DD(58.812,0,"NM","DA UPLOAD")=""
^DD(58.812,0,"VR")="3.0"
^DD(58.812,0,"VRPK")="PSA"
^DD(58.812,.01,0)="PRIME VENDOR^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(58.812,.01,1,0)="^.1"
^DD(58.812,.01,1,1,0)="58.812^B"
^DD(58.812,.01,1,1,1)="S ^PSD(58.812,""B"",$E(X,1,30),DA)="""""
^DD(58.812,.01,1,1,2)="K ^PSD(58.812,""B"",$E(X,1,30),DA)"
^DD(58.812,.01,3)="Answer must be 3-30 characters in length."
^DD(58.812,.01,21,0)="^.001^1^1^3001002^^"
^DD(58.812,.01,21,1,0)=" This field identifies the sender of the invoice data."
^DD(58.812,.01,"DT")="3000929"
^DD(58.812,1,0)="SUPPLY ITEM^58.8121A^^SUP;0"
^DD(58.812,2,0)="ORDER UNIT^58.8122A^^OU;0"
^DD(58.812,3,0)="BACK GROUND JOB^58.8123A^^T;0"
^DD(58.812,"B","BACK GROUND JOB",3)=""
^DD(58.812,"B","ORDER UNIT",2)=""
^DD(58.812,"B","PRIME VENDOR",.01)=""
^DD(58.812,"B","SUPPLY ITEM",1)=""
^DD(58.812,"GL",0,1,.01)=""
^DD(58.812,"GL","OU",0,2)=""
^DD(58.812,"GL","SUP",0,1)=""
^DD(58.812,"GL","T",0,3)=""
^DD(58.812,"IX",.01)=""
^DD(58.812,"RQ",.01)=""
^DD(58.812,"SB",58.8121,1)=""
^DD(58.812,"SB",58.8122,2)=""
^DD(58.812,"SB",58.8123,3)=""
^DD(58.8121,0)="SUPPLY ITEM SUB-FIELD^^1^2"
^DD(58.8121,0,"DT")="3000929"
^DD(58.8121,0,"IX","B",58.8121,.01)=""
^DD(58.8121,0,"NM","SUPPLY ITEM")=""
^DD(58.8121,0,"UP")="58.812"
^DD(58.8121,.01,0)="SUPPLY ITEM^F^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(58.8121,.01,1,0)="^.1"
^DD(58.8121,.01,1,1,0)="58.8121^B"
^DD(58.8121,.01,1,1,1)="S ^PSD(58.812,DA(1),""SUP"",""B"",$E(X,1,30),DA)="""""
^DD(58.8121,.01,1,1,2)="K ^PSD(58.812,DA(1),""SUP"",""B"",$E(X,1,30),DA)"
^DD(58.8121,.01,3)="Answer must be 3-60 characters in length."
^DD(58.8121,.01,21,0)="^^5^5^3000929^"
^DD(58.8121,.01,21,1,0)=" This multiple contains a list of items transported from the Prime Vendor"
^DD(58.8121,.01,21,2,0)=" to VISTA as supply items. This field has a corresponding entry in the"
^DD(58.8121,.01,21,3,0)=" VSN field. During uploading/processing of invoices, line items uploaded"
^DD(58.8121,.01,21,4,0)=" from the invoice are compared against the values stored here. By matching"
^DD(58.8121,.01,21,5,0)=" these items automatically, the processing time is greatly reduced."
^DD(58.8121,.01,"DT")="3000929"
^DD(58.8121,1,0)="VSN^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(58.8121,1,3)="Answer must be 1-15 characters in length."
^DD(58.8121,1,21,0)="^^5^5^3000929^"
^DD(58.8121,1,21,1,0)=" This Vendor Stock Number (VSN) is matched to the Supply Item field. During"
^DD(58.8121,1,21,2,0)=" the upload/processing of invoice data, if an item cannot be located in"
^DD(58.8121,1,21,3,0)=" VISTA according to the NDC, this field is checked for a match. This "
^DD(58.8121,1,21,4,0)=" automatic matching of items greatly decreases the amount of time needed"
^DD(58.8121,1,21,5,0)=" to process invoices."
^DD(58.8121,1,"DT")="3000929"
^DD(58.8121,"B","SUPPLY ITEM",.01)=""
^DD(58.8121,"B","VSN",1)=""
^DD(58.8121,"GL",0,1,.01)=""
^DD(58.8121,"GL",0,2,1)=""
^DD(58.8121,"IX",.01)=""
^DD(58.8122,0)="ORDER UNIT SUB-FIELD^^2^3"
^DD(58.8122,0,"DT")="3010103"
^DD(58.8122,0,"IX","B",58.8122,.01)=""
^DD(58.8122,0,"NM","ORDER UNIT")=""
^DD(58.8122,0,"UP")="58.812"
^DD(58.8122,.01,0)="VENDOR ORDER UNIT^F^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(58.8122,.01,1,0)="^.1"
^DD(58.8122,.01,1,1,0)="58.8122^B"
^DD(58.8122,.01,1,1,1)="S ^PSD(58.812,DA(1),""OU"",""B"",$E(X,1,30),DA)="""""
^DD(58.8122,.01,1,1,2)="K ^PSD(58.812,DA(1),""OU"",""B"",$E(X,1,30),DA)"
^DD(58.8122,.01,3)="Please enter the order unit provided by the vendor"
^DD(58.8122,.01,21,0)="^^4^4^3000929^"
^DD(58.8122,.01,21,1,0)=" This field contains the order unit as provided by the Prime Vendor on"
^DD(58.8122,.01,21,2,0)=" invoices transmitted to VISTA. Because of the large number of order"
^DD(58.8122,.01,21,3,0)=" units available to the Prime Vendor, conversions need to be performed"
^DD(58.8122,.01,21,4,0)=" to successfully process invoices."
^DD(58.8122,.01,"DT")="3000929"
^DD(58.8122,1,0)="MATCHED ORDER UNIT^P51.5'^DIC(51.5,^0;2^Q"
^DD(58.8122,1,21,0)="^^1^1^3000929^"
^DD(58.8122,1,21,1,0)=" This is the corresponding order unit."
^DD(58.8122,1,"DT")="3000929"
^DD(58.8122,2,0)="ITEM NUMBER^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.8122,2,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(58.8122,2,"DT")="3010103"
^DD(58.8122,"B","ITEM NUMBER",2)=""
^DD(58.8122,"B","MATCHED ORDER UNIT",1)=""
^DD(58.8122,"B","VENDOR ORDER UNIT",.01)=""
^DD(58.8122,"GL",0,1,.01)=""
^DD(58.8122,"GL",0,2,1)=""
^DD(58.8122,"GL",0,3,2)=""
^DD(58.8122,"IX",.01)=""
^DD(58.8123,0)="BACK GROUND JOB SUB-FIELD^^2^3"
^DD(58.8123,0,"DT")="3000929"
^DD(58.8123,0,"IX","B",58.8123,.01)=""
^DD(58.8123,0,"NM","BACK GROUND JOB")=""
^DD(58.8123,0,"UP")="58.812"
^DD(58.8123,.01,0)="BACK GROUND JOB^F^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(58.8123,.01,1,0)="^.1"
^DD(58.8123,.01,1,1,0)="58.8123^B"
^DD(58.8123,.01,1,1,1)="S ^PSD(58.812,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(58.8123,.01,1,1,2)="K ^PSD(58.812,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(58.8123,.01,3)="Answer must be 3-40 characters in length."
^DD(58.8123,.01,21,0)="^.001^2^2^3000929^^"
^DD(58.8123,.01,21,1,0)=" This field will contain a set of dates to use as parameters for "
^DD(58.8123,.01,21,2,0)=" obtaining dispensing data."
^DD(58.8123,.01,"DT")="3000929"
^DD(58.8123,1,0)="BEGIN DATE^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8123,1,21,0)="^^1^1^3000929^"
^DD(58.8123,1,21,1,0)="This is how far back the background job will look for data"
^DD(58.8123,1,"DT")="3000929"
^DD(58.8123,2,0)="STOP DATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.8123,2,3)=""
^DD(58.8123,2,21,0)="^^1^1^3000929^"
^DD(58.8123,2,21,1,0)=" This is the date the report will stop searching for data."
^DD(58.8123,2,"DT")="3000929"
^DD(58.8123,"B","BACK GROUND JOB",.01)=""
^DD(58.8123,"B","BEGIN DATE",1)=""
^DD(58.8123,"B","STOP DATE",2)=""
^DD(58.8123,"GL",0,1,.01)=""
^DD(58.8123,"GL",0,2,1)=""
^DD(58.8123,"GL",0,3,2)=""
^DD(58.8123,"IX",.01)=""
^DD(58.8126,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(58.8126,0,"DT")="2920511"
^DD(58.8126,0,"NM","COMMENTS")=""
^DD(58.8126,0,"UP")="58.81"
^DD(58.8126,.01,0)="COMMENTS^W^^0;1^Q"
^DD(58.8126,.01,3)="Enter your comments for this transaction."
^DD(58.8126,.01,21,0)="^^1^1^2950301^^^^"
^DD(58.8126,.01,21,1,0)="This field contains the comments for this transaction."
^DD(58.8126,.01,23,0)="^^1^1^2950301^^^^"
^DD(58.8126,.01,23,1,0)="Word Processing."
^DD(58.8126,.01,"DT")="2920511"
^DD(58.8126,"B","COMMENTS",.01)=""
^DD(58.8126,"GL",0,1,.01)=""
^DD(58.82,0)="FIELD^^.01^1"
^DD(58.82,0,"DT")="2910827"
^DD(58.82,0,"IX","B",58.82,.01)=""
^DD(58.82,0,"NM","CS ORDER STATUS")=""
^DD(58.82,0,"PT",58.800118,10)=""
^DD(58.82,0,"PT",58.81,10)=""
^DD(58.82,0,"PT",58.85,6)=""
^DD(58.82,0,"VR")="3.0"
^DD(58.82,0,"VRPK")="CONTROLLED SUBSTANCES"
^DD(58.82,.01,0)="ORDER STATUS^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(58.82,.01,1,0)="^.1"
^DD(58.82,.01,1,1,0)="58.82^B"
^DD(58.82,.01,1,1,1)="S ^PSD(58.82,""B"",$E(X,1,30),DA)="""""
^DD(58.82,.01,1,1,2)="K ^PSD(58.82,""B"",$E(X,1,30),DA)"
^DD(58.82,.01,3)="Answer must be 3-45 characters in length."
^DD(58.82,.01,21,0)="^^1^1^2920912^^^^"
^DD(58.82,.01,21,1,0)="The order status for Controlled Substances requests."
^DD(58.82,.01,"DT")="2910827"
^DD(58.82,"B","ORDER STATUS",.01)=""
^DD(58.82,"GL",0,1,.01)=""
^DD(58.82,"IX",.01)=""
^DD(58.82,"RQ",.01)=""
^DD(58.828,0)="ORDER ENTRY BANNER SUB-FIELD^^.01^1"
^DD(58.828,0,"DT")="2950116"
^DD(58.828,0,"NM","ORDER ENTRY BANNER")=""
^DD(58.828,0,"UP")="58.8"
^DD(58.828,.01,0)="ORDER ENTRY BANNER^W^^0;1^Q"
^DD(58.828,.01,3)="Enter a banner which will be displayed for Nursing Order Entry,                 Pharmacy Order Entry from Nursing, and Infusion Order Entry."
^DD(58.828,.01,"DT")="2950116"
^DD(58.828,"B","ORDER ENTRY BANNER",.01)=""
^DD(58.828,"GL",0,1,.01)=""
^DD(58.83,0)="FIELD^^.01^1"
^DD(58.83,0,"DT")="2910827"
^DD(58.83,0,"IX","B",58.83,.01)=""
^DD(58.83,0,"NM","CS COMPLETION STATUS")=""
^DD(58.83,0,"PT",58.800118,11)=""
^DD(58.83,0,"PT",58.81,11)=""
^DD(58.83,0,"PT",58.87,13)=""
^DD(58.83,0,"PT",58.87,14)=""
^DD(58.83,0,"VR")="3.0"
^DD(58.83,0,"VRPK")="CONTROLLED SUBSTANCES"
^DD(58.83,.01,0)="COMPLETION STATUS^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(58.83,.01,1,0)="^.1"
^DD(58.83,.01,1,1,0)="58.83^B"
^DD(58.83,.01,1,1,1)="S ^PSD(58.83,""B"",$E(X,1,45),DA)="""""
^DD(58.83,.01,1,1,2)="K ^PSD(58.83,""B"",$E(X,1,45),DA)"
^DD(58.83,.01,3)="Answer must be 3-45 characters in length."
^DD(58.83,.01,21,0)="^^1^1^2920912^^^^"
^DD(58.83,.01,21,1,0)="The completion status of the Controlled Substances orders."
^DD(58.83,.01,"DT")="2910827"
^DD(58.83,"B","COMPLETION STATUS",.01)=""
^DD(58.83,"GL",0,1,.01)=""
^DD(58.83,"IX",.01)=""
^DD(58.83,"RQ",.01)=""
^DD(58.831,0)="IV ROOM SUB-FIELD^^.01^1"
^DD(58.831,0,"DT")="2951215"
^DD(58.831,0,"NM","IV ROOM")=""
^DD(58.831,0,"UP")="58.8"
^DD(58.831,.01,0)="IV ROOM^P59.5'X^PS(59.5,^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(58.831,.01,.1)="IV Room"
^DD(58.831,.01,1,0)="^.1"
^DD(58.831,.01,1,1,0)="58.8^AIV"
^DD(58.831,.01,1,1,1)="S ^PSD(58.8,""AIV"",$E(X,1,30),DA(1),DA)="""""
^DD(58.831,.01,1,1,2)="K ^PSD(58.8,""AIV"",$E(X,1,30),DA(1),DA)"
^DD(58.831,.01,1,1,3)="DO NOT DELETE!"
^DD(58.831,.01,1,1,"%D",0)="^^2^2^2960112^^^^"
^DD(58.831,.01,1,1,"%D",1,0)="The cross-reference is used to locate the outpatient pharmacy location"
^DD(58.831,.01,1,1,"%D",2,0)="that is linked to the IV Room. "
^DD(58.831,.01,1,1,"DT")="2951215"
^DD(58.831,.01,3)="Enter the IV Room to which the Outpatient Pharmacy Location dispenses IVs."
^DD(58.831,.01,21,0)="^^4^4^2970729^^^"
^DD(58.831,.01,21,1,0)="The IV Room is the Outpatient Clinic's IV room to which the Outpatient"
^DD(58.831,.01,21,2,0)="Pharmacy dispenses IVs. When IV dispensing data is compiled, it will affect"
^DD(58.831,.01,21,3,0)="the Drug Accountability outpatient pharmacy location to which the IV"
^DD(58.831,.01,21,4,0)="Room is linked."
^DD(58.831,.01,23,0)="^^1^1^2970729^^"
^DD(58.831,.01,23,1,0)="This field points to the IV ROOM FILE (#59.5)."
^DD(58.831,.01,"DT")="2951215"
^DD(58.831,"B","IV ROOM",.01)=""
^DD(58.831,"B","IV Room",.01)="1"
^DD(58.831,"GL",0,1,.01)=""
^DD(58.831,"IX",.01)=""
^DD(58.836,0)="OUTPATIENT SITE(S) SUB-FIELD^^1^2"
^DD(58.836,0,"DT")="3000426"
^DD(58.836,0,"NM","OUTPATIENT SITE(S)")=""
^DD(58.836,0,"UP")="58.8"
^DD(58.836,.01,0)="OUTPATIENT SITE(S)^MP59X^PS(59,^0;1^S DINUM=X Q"
^DD(58.836,.01,1,0)="^.1"
^DD(58.836,.01,1,1,0)="58.8^AOP"
^DD(58.836,.01,1,1,1)="S ^PSD(58.8,""AOP"",$E(X,1,30),DA(1),DA)="""""
^DD(58.836,.01,1,1,2)="K ^PSD(58.8,""AOP"",$E(X,1,30),DA(1),DA)"
^DD(58.836,.01,1,1,"DT")="3000426"
^DD(58.836,.01,"DT")="3000426"
^DD(58.836,1,0)="INACTIVATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.836,1,"DT")="3000426"
^DD(58.836,"B","INACTIVATION DATE",1)=""
^DD(58.836,"B","OUTPATIENT SITE(S)",.01)=""
^DD(58.836,"GL",0,1,.01)=""
^DD(58.836,"GL",0,2,1)=""
^DD(58.836,"IX",.01)=""
^DD(58.84,0)="FIELD^^.01^1"
^DD(58.84,0,"DDA")="N"
^DD(58.84,0,"IX","B",58.84,.01)=""
^DD(58.84,0,"NM","DRUG ACCOUNTABILITY TRANSACTION TYPE")=""
^DD(58.84,0,"PT",58.81,1)=""
^DD(58.84,0,"VR")="3.0"
^DD(58.84,0,"VRPK")="DRUG ACCOUNTABILITY V."
^DD(58.84,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(58.84,.01,1,0)="^.1"
^DD(58.84,.01,1,1,0)="58.84^B"
^DD(58.84,.01,1,1,1)="S ^PSD(58.84,""B"",$E(X,1,30),DA)="""""
^DD(58.84,.01,1,1,2)="K ^PSD(58.84,""B"",$E(X,1,30),DA)"
^DD(58.84,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(58.84,.01,21,0)="^^1^1^2920415^"
^DD(58.84,.01,21,1,0)="This field contains the transaction type name."
^DD(58.84,"B","NAME",.01)=""
^DD(58.84,"GL",0,1,.01)=""
^DD(58.84,"IX",.01)=""
^DD(58.84,"RQ",.01)=""
^DD(58.842,0)="WARD SUB-FIELD^^.01^1"
^DD(58.842,0,"DT")="2920825"
^DD(58.842,0,"IX","B",58.842,.01)=""
^DD(58.842,0,"NM","WARD")=""
^DD(58.842,0,"UP")="58.8"
^DD(58.842,.01,0)="WARD^MP42'X^DIC(42,^0;1^S:$D(X) DINUM=X"
^DD(58.842,.01,1,0)="^.1"
^DD(58.842,.01,1,1,0)="58.842^B"
^DD(58.842,.01,1,1,1)="S ^PSD(58.8,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(58.842,.01,1,1,2)="K ^PSD(58.8,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(58.842,.01,1,2,0)="58.8^AB"
^DD(58.842,.01,1,2,1)="S ^PSD(58.8,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(58.842,.01,1,2,2)="K ^PSD(58.8,""AB"",$E(X,1,30),DA(1),DA)"
^DD(58.842,.01,1,2,"%D",0)="^^2^2^2950718^^^^"
^DD(58.842,.01,1,2,"%D",1,0)="To be used to determine which Drug Accountability location should be"
^DD(58.842,.01,1,2,"%D",2,0)="affected by Unit Dose and IV dispensing data."
^DD(58.842,.01,1,2,"DT")="2920825"
^DD(58.842,.01,3)="Select those wards for which you wish to gather Unit Dose or IV dispensing data."
^DD(58.842,.01,21,0)="^^2^2^2940915^^"
^DD(58.842,.01,21,1,0)="When Unit Dose and IV dispensing data is compiled, it will affect the"
^DD(58.842,.01,21,2,0)="Drug Accountability location to which a ward is linked."
^DD(58.842,.01,23,0)="^^1^1^2940915^^"
^DD(58.842,.01,23,1,0)="For UD/IV dispensing to be subtracted from the appropriate DA location."
^DD(58.842,.01,"DT")="2950802"
^DD(58.842,"B","WARD",.01)=""
^DD(58.842,"GL",0,1,.01)=""
^DD(58.842,"IX",.01)=""
^DD(58.8445,0)="PRIMARY INVENTORY POINT(S) SUB-FIELD^^2^3"
^DD(58.8445,0,"DT")="2930301"
^DD(58.8445,0,"IX","B",58.8445,.01)=""
^DD(58.8445,0,"NM","PRIMARY INVENTORY POINT(S)")=""
^DD(58.8445,0,"UP")="58.8"
^DD(58.8445,.01,0)="PRIMARY INVENTORY POINT(S)^M*P445'X^PRCP(445,^0;1^S PRCPPRIV=1,DIC(""S"")=""I $P(^(0),U,20)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K PRCPPRIV K:Y<0 X S:$D(X) DINUM=X"
^DD(58.8445,.01,.1)="Primary Inventory Points(s)"
^DD(58.8445,.01,1,0)="^.1"
^DD(58.8445,.01,1,1,0)="58.8445^B"
^DD(58.8445,.01,1,1,1)="S ^PSD(58.8,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(58.8445,.01,1,1,2)="K ^PSD(58.8,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(58.8445,.01,1,2,0)="58.8^P"
^DD(58.8445,.01,1,2,1)="S ^PSD(58.8,""P"",$E(X,1,30),DA(1),DA)="""""
^DD(58.8445,.01,1,2,2)="K ^PSD(58.8,""P"",$E(X,1,30),DA(1),DA)"
^DD(58.8445,.01,1,2,"%D",0)="^^3^3^2940915^^"
^DD(58.8445,.01,1,2,"%D",1,0)="When receiving occurs in a Primary Inventory Point flagged as a Drug"
^DD(58.8445,.01,1,2,"%D",2,0)="Accountability special inventory type, this cross-reference will be used"
^DD(58.8445,.01,1,2,"%D",3,0)="to locate the correct Drug Accountability location to update."
^DD(58.8445,.01,1,2,"DT")="2930223"
^DD(58.8445,.01,3)="Only primary inventory points that are set up with a special inventory type of ""D"" for Drug Accountability may be selected."
^DD(58.8445,.01,12)="Must be Special Inventory Type ""D"" for Drug Accountability."
^DD(58.8445,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,20)=""""D"""""""
^DD(58.8445,.01,21,0)="^^3^3^2970729^"
^DD(58.8445,.01,21,1,0)="To provide a direct link between a pharmacy inventory point and a pharmacy"
^DD(58.8445,.01,21,2,0)="location entry in this file.  Receiving that occurs in the inventory point"
^DD(58.8445,.01,21,3,0)="will update on hand quantities in the pharmacy location."
^DD(58.8445,.01,23,0)="^^2^2^2970729^^^^"
^DD(58.8445,.01,23,1,0)="To provide a direct link between the GENERIC INVENTORY file (#445)"
^DD(58.8445,.01,23,2,0)="and the DRUG ACCOUNTABILITY STATS file (#58.8)."
^DD(58.8445,.01,"DT")="2970729"
^DD(58.8445,.01,"LAYGO",1,0)="N PSA S PSA=$O(^PSD(58.8,""P"",+X,0)) S:PSA=DA PSA=$O(^(DA)) D:$G(PSA) EN^DDIOL($C(7)_$P($G(^PSD(58.8,+$O(^PSD(58.8,""P"",+X,0)),0)),U)_"" is already linked to ""_$$INVNAME^PRCPUX1(X)) I '$G(PSA)"
^DD(58.8445,1,0)="RECEIPT FAILURE NOTIFICATION?^S^1:YES;0:NO;^0;2^Q"
^DD(58.8445,1,.1)="Receipt Failure Notification?"
^DD(58.8445,1,3)="Enter ""1"" or ""Y"" to transmit a MailMan message to the receiver and the RECEIPT FAILURE mail group each time a failure occurs."
^DD(58.8445,1,21,0)="^^6^6^2970729^"
^DD(58.8445,1,21,1,0)="If a Drug Accountability location is linked to a primary inventory point,"
^DD(58.8445,1,21,2,0)="items received into the primary inventory point will also be updated in"
^DD(58.8445,1,21,3,0)="the Drug Accountability location.  If items are received that are not "
^DD(58.8445,1,21,4,0)="connected to the DRUG file (#50) or not stocked in the Drug Accountability"
^DD(58.8445,1,21,5,0)="location, and this field is set to ""YES"", the receiver and the RECEIPT"
^DD(58.8445,1,21,6,0)="FAILURE mail group will be notified with a list of failed items."
^DD(58.8445,1,23,0)="^^1^1^2970729^^^^"
^DD(58.8445,1,23,1,0)="Set of codes - ""1"" for ""YES"" or ""0"" for ""NO""."
^DD(58.8445,1,"DT")="2970729"
^DD(58.8445,2,0)="RECEIPT MAIL GROUP^FX^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(58.8445,2,.1)="Receipt Mail Group"
^DD(58.8445,2,3)="Answer must be 1-30 characters in length."
^DD(58.8445,2,21,0)="^^3^3^2970729^"
^DD(58.8445,2,21,1,0)="Enter the name of the mail group that should receive messages whenever"
^DD(58.8445,2,21,2,0)="inventory items cannot be received into a pharmacy location and also"
^DD(58.8445,2,21,3,0)="this same group will receive DRUG file (#50) price update messages."
^DD(58.8445,2,23,0)="^^2^2^2970729^^^^"
^DD(58.8445,2,23,1,0)="When the routine PSAGIP is passed data by IFCAP, items that cannot"
^DD(58.8445,2,23,2,0)="be updated are listed in messages sent to the receiver and this group."
^DD(58.8445,2,"DT")="2970729"
^DD(58.8445,"B","PRIMARY INVENTORY POINT(S)",.01)=""
^DD(58.8445,"B","Primary Inventory Points(s)",.01)="1"
^DD(58.8445,"B","RECEIPT FAILURE NOTIFICATION?",1)=""
^DD(58.8445,"B","RECEIPT MAIL GROUP",2)=""
^DD(58.8445,"B","Receipt Failure Notification?",1)="1"
^DD(58.8445,"B","Receipt Mail Group",2)="1"
^DD(58.8445,"GL",0,1,.01)=""
^DD(58.8445,"GL",0,2,1)=""
^DD(58.8445,"GL",0,3,2)=""
^DD(58.8445,"IX",.01)=""
^DD(58.85,0)="FIELD^^22^23"
^DD(58.85,0,"DT")="2990512"
^DD(58.85,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSD(58.8,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(58.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(58.85,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSDRUG(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(58.85,0,"IX","AC",58.85,6)=""
^DD(58.85,0,"IX","AD",58.85,4)=""
^DD(58.85,0,"IX","AE",58.85,1)=""
^DD(58.85,0,"IX","AW",58.85,13)=""
^DD(58.85,0,"IX","AW1",58.85,1)=""
^DD(58.85,0,"IX","B",58.85,.01)=""
^DD(58.85,0,"NM","CS WORKSHEET")=""
^DD(58.85,0,"VR")="3.0"
^DD(58.85,0,"VRPK")="PSD"
^DD(58.85,.01,0)="RECORD NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.85,.01,1,0)="^.1"
^DD(58.85,.01,1,1,0)="58.85^B"
^DD(58.85,.01,1,1,1)="S ^PSD(58.85,""B"",$E(X,1,30),DA)="""""
^DD(58.85,.01,1,1,2)="K ^PSD(58.85,""B"",$E(X,1,30),DA)"
^DD(58.85,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(58.85,.01,21,0)="^^1^1^2920625^"
^DD(58.85,.01,21,1,0)="The record number for this worksheet entry."
^DD(58.85,.01,"DT")="2920325"
^DD(58.85,1,0)="DISPENSING SITE^R*P58.8'^PSD(58.8,^0;2^S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.85,1,1,0)="^.1"
^DD(58.85,1,1,1,0)="58.85^AE"
^DD(58.85,1,1,1,1)="S ^PSD(58.85,""AE"",$E(X,1,30),DA)="""""
^DD(58.85,1,1,1,2)="K ^PSD(58.85,""AE"",$E(X,1,30),DA)"
^DD(58.85,1,1,1,"DT")="2920407"
^DD(58.85,1,1,2,0)="58.85^AW1^MUMPS"
^DD(58.85,1,1,2,1)="D SAW1^PSDUTL1"
^DD(58.85,1,1,2,2)="D KAW1^PSDUTL1"
^DD(58.85,1,1,2,3)="DO NOT DELETE"
^DD(58.85,1,1,2,"%D",0)="^^4^4^2941003^^^^"
^DD(58.85,1,1,2,"%D",1,0)="This cross-reference will be used in displaying the CS request orders"
^DD(58.85,1,1,2,"%D",2,0)="in the order printed on the ""Pharmacy Dispensing Worksheet"" report."
^DD(58.85,1,1,2,"%D",3,0)="  "
^DD(58.85,1,1,2,"%D",4,0)="The cross-reference is ^PSD(58.85,""AW"",DISP SITE,PRT #,DA)="""""
^DD(58.85,1,1,2,"DT")="2920825"
^DD(58.85,1,3)="Enter the Pharmacy dispensing location."
^DD(58.85,1,12)="Allows selection of Master vault or Satellite vault as a dispensing site."
^DD(58.85,1,12.1)="S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"""
^DD(58.85,1,21,0)="^^2^2^2920912^^"
^DD(58.85,1,21,1,0)="The pharmacy dispensing site (vault) for this Controlled Substances"
^DD(58.85,1,21,2,0)="order."
^DD(58.85,1,"DT")="2920825"
^DD(58.85,2,0)="NAOU^R*P58.8'^PSD(58.8,^0;3^S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""N"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.85,2,1,0)="^.1^^0"
^DD(58.85,2,3)="Enter the requesting NAOU."
^DD(58.85,2,12)="Allows selection of a Satellite vault or a Narcotic location."
^DD(58.85,2,12.1)="S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""N"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"""
^DD(58.85,2,21,0)="^^1^1^2920912^^"
^DD(58.85,2,21,1,0)="The Narcotic Area of Use requesting the Controlled Substances order."
^DD(58.85,2,"DT")="2920825"
^DD(58.85,3,0)="DRUG^R*P50'^PSDRUG(^0;4^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0),$S($P($G(^(2)),""""^"""",3)[""""N"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.85,3,3)="Enter drug requested for this order."
^DD(58.85,3,12)="Allows selection of ACTIVE drugs marked for Controlled Substances package use."
^DD(58.85,3,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0),$S($P($G(^(2)),""""^"""",3)[""""N"""":1,1:0)"""
^DD(58.85,3,21,0)="^^1^1^2920912^^"
^DD(58.85,3,21,1,0)="The Controlled Substances drug requested on this order."
^DD(58.85,3,"DT")="2920325"
^DD(58.85,4,0)="REQUEST #^RNJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.85,4,1,0)="^.1"
^DD(58.85,4,1,1,0)="58.85^AD^MUMPS"
^DD(58.85,4,1,1,1)="D REQ^PSDUTL"
^DD(58.85,4,1,1,2)="D KREQ^PSDUTL"
^DD(58.85,4,1,1,3)="DO NOT DELETE"
^DD(58.85,4,1,1,"%D",0)="^^4^4^2941003^^^^"
^DD(58.85,4,1,1,"%D",1,0)="This cross-reference will be used for updating order requests stored"
^DD(58.85,4,1,1,"%D",2,0)="in the DRUG ACCOUNTABILITY STATS file (#58.8)."
^DD(58.85,4,1,1,"%D",3,0)="  "
^DD(58.85,4,1,1,"%D",4,0)="The cross-reference is ^PSD(58.85,""AD"",NAOU,DRUG,REQUEST #,DA)="""""
^DD(58.85,4,1,1,"DT")="2920325"
^DD(58.85,4,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(58.85,4,21,0)="^^1^1^2920912^^"
^DD(58.85,4,21,1,0)="The request number for this Controlled Substances order."
^DD(58.85,4,"DT")="2920325"
^DD(58.85,5,0)="QUANTITY ORDERED^RNJ6,0^^0;6^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.85,5,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(58.85,5,21,0)="^^2^2^2920912^^"
^DD(58.85,5,21,1,0)="The drug quantity originally requested on this Controlled Substances"
^DD(58.85,5,21,2,0)="order."
^DD(58.85,5,"DT")="2920415"
^DD(58.85,6,0)="ORDER STATUS^RP58.82'^PSD(58.82,^0;7^Q"
^DD(58.85,6,1,0)="^.1"
^DD(58.85,6,1,1,0)="58.85^AC^MUMPS"
^DD(58.85,6,1,1,1)="D STAT^PSDUTL"
^DD(58.85,6,1,1,2)="D KSTAT^PSDUTL"
^DD(58.85,6,1,1,3)="DO NOT DELETE"
^DD(58.85,6,1,1,"%D",0)="^^4^4^2941003^^^^"
^DD(58.85,6,1,1,"%D",1,0)="This cross-reference is used for various Controlled Substances"
^DD(58.85,6,1,1,"%D",2,0)="statistical reports."
^DD(58.85,6,1,1,"%D",3,0)="   "
^DD(58.85,6,1,1,"%D",4,0)="The cross-reference is ^PSD(58.85,""AC"",STATUS,NAOU,DRUG,REQUEST #,DA)="""""
^DD(58.85,6,1,1,"DT")="2920325"
^DD(58.85,6,3)="Enter processing status for this order."
^DD(58.85,6,21,0)="^^1^1^2920912^^"
^DD(58.85,6,21,1,0)="A pointer to the order status for this Controlled Substances request."
^DD(58.85,6,"DT")="2920325"
^DD(58.85,7,0)="TRANSACTION #^P58.81'^PSD(58.81,^0;8^Q"
^DD(58.85,7,3)="Enter the transaction # for this order."
^DD(58.85,7,21,0)="^^2^2^2920625^"
^DD(58.85,7,21,1,0)="If this request is processed by pharmacy, this field contains a pointer"
^DD(58.85,7,21,2,0)="to the transaction dispensing this order."
^DD(58.85,7,"DT")="2920325"
^DD(58.85,8,0)="COMMENTS^58.858^^1;0"
^DD(58.85,8,21,0)="^^2^2^2920912^^"
^DD(58.85,8,21,1,0)="Comments to pharmacy concerning this Controlled Substances order"
^DD(58.85,8,21,2,0)="request."
^DD(58.85,9,0)="MANUFACTURER^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(58.85,9,3)="Enter the current manufacturer."
^DD(58.85,9,21,0)="^^1^1^2920625^"
^DD(58.85,9,21,1,0)="The manufacturer for the drug requested on this order."
^DD(58.85,9,"DT")="2920405"
^DD(58.85,10,0)="LOT #^F^^0;10^K:$L(X)>10!($L(X)<1) X"
^DD(58.85,10,3)="Enter the current lot # for this drug."
^DD(58.85,10,21,0)="^^1^1^2920625^"
^DD(58.85,10,21,1,0)="The lot number for the drug requested on this order."
^DD(58.85,10,"DT")="2920405"
^DD(58.85,11,0)="EXPIRATION DATE^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(58.85,11,3)="Enter the expiration date for this drug."
^DD(58.85,11,21,0)="^^1^1^2920625^"
^DD(58.85,11,21,1,0)="The expiration date for the drug requested on this order."
^DD(58.85,11,"DT")="2920430"
^DD(58.85,12,0)="ORDERED BY^*P200'^VA(200,^0;12^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.85,12,3)="Enter the person's name requesting this order."
^DD(58.85,12,12)="Access granted to nurses and pharmacy personnel holding the appropriate security key."
^DD(58.85,12,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"""
^DD(58.85,12,21,0)="^^2^2^2920912^^"
^DD(58.85,12,21,1,0)="A pointer to the name of the person requesting this Controlled"
^DD(58.85,12,21,2,0)="Substances order."
^DD(58.85,12,"DT")="2920419"
^DD(58.85,13,0)="PRINTED^NJ6,0^^2;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.85,13,1,0)="^.1"
^DD(58.85,13,1,1,0)="58.85^AW^MUMPS"
^DD(58.85,13,1,1,1)="D SAW^PSDUTL1"
^DD(58.85,13,1,1,2)="D KAW^PSDUTL1"
^DD(58.85,13,1,1,3)="DO NOT DELETE"
^DD(58.85,13,1,1,"%D",0)="^^4^4^2941003^^^^"
^DD(58.85,13,1,1,"%D",1,0)="This cross-reference will be used in displaying CS request orders in"
^DD(58.85,13,1,1,"%D",2,0)="the order printed on the ""Pharmacy Dispensing Worksheet"" report."
^DD(58.85,13,1,1,"%D",3,0)="  "
^DD(58.85,13,1,1,"%D",4,0)="The cross-reference is ^PSD(58.85,""AW"",DISP SITE,PRT #,DA)="""""
^DD(58.85,13,1,1,"DT")="2920825"
^DD(58.85,13,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(58.85,13,21,0)="^^3^3^2920912^^^^"
^DD(58.85,13,21,1,0)="This printed flag will be set to a counter if this request has been"
^DD(58.85,13,21,2,0)="printed on a worksheet report.  This flag will be used to compile the"
^DD(58.85,13,21,3,0)="pharmacy worksheet log used in dispensing Controlled Substances drugs."
^DD(58.85,13,"DT")="2920825"
^DD(58.85,14,0)="DISPENSED BY^*P200'^VA(200,^0;13^S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.85,14,.1)="DISPENSING PHARMACIST"
^DD(58.85,14,3)="Enter name of the dispensing pharmacist."
^DD(58.85,14,12)="Access granted to pharmacists holding the appropriate security key."
^DD(58.85,14,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"""
^DD(58.85,14,21,0)="^^2^2^2920912^^"
^DD(58.85,14,21,1,0)="A pointer to the name of the pharmacist dispensing this Controlled"
^DD(58.85,14,21,2,0)="Substances order."
^DD(58.85,14,"DT")="2920419"
^DD(58.85,15,0)="DISPENSED DATE/TIME^D^^0;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.85,15,21,0)="^^1^1^2920912^^"
^DD(58.85,15,21,1,0)="The dispensed date/time of this Controlled Substances order."
^DD(58.85,15,"DT")="2930701"
^DD(58.85,16,0)="PHARMACY DISPENSING #^F^^0;15^K:$L(X)>9!($L(X)<1) X"
^DD(58.85,16,3)="Answer must be 1-9 characters in length."
^DD(58.85,16,21,0)="^^2^2^2940915^^^"
^DD(58.85,16,21,1,0)="The pharmacy control number (Green Sheet #) assigned to identify"
^DD(58.85,16,21,2,0)="and track this Controlled Substances order."
^DD(58.85,16,"DT")="2920812"
^DD(58.85,17,0)="TECH^*P200'^VA(200,^0;16^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.85,17,3)="Enter the name of the pharmacy employee processing this order."
^DD(58.85,17,12)="Access granted to technicians holding the appropriate security key."
^DD(58.85,17,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,$D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,1:0)"""
^DD(58.85,17,21,0)="^^2^2^2920625^"
^DD(58.85,17,21,1,0)="If a pharmacy technician processed this order, this field will contain"
^DD(58.85,17,21,2,0)="a pointer to the name of the technician."
^DD(58.85,17,"DT")="2920419"
^DD(58.85,18,0)="QUANTITY DISPENSED^NJ9,2^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(58.85,18,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(58.85,18,21,0)="^^2^2^2920912^^"
^DD(58.85,18,21,1,0)="The actual drug quantity dispensed from pharmacy for this Controlled"
^DD(58.85,18,21,2,0)="Substances order."
^DD(58.85,18,"DT")="2990512"
^DD(58.85,19,0)="REQUEST DATE/TIME^D^^0;18^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.85,19,3)="Enter the request date for this order."
^DD(58.85,19,21,0)="^^2^2^2920912^^"
^DD(58.85,19,21,1,0)="The date/time this Controlled Substances request was entered by"
^DD(58.85,19,21,2,0)="the NAOU."
^DD(58.85,19,"DT")="2920501"
^DD(58.85,20,0)="ORDERED BY PHARMACY^*P200'^VA(200,^0;19^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHAM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.85,20,3)="Enter the person's name requesting this order for nursing."
^DD(58.85,20,12)="Access granted to pharmacy personnel holding the appropriate security key."
^DD(58.85,20,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHAM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"""
^DD(58.85,20,21,0)="^^2^2^2931010^"
^DD(58.85,20,21,1,0)="A pointer to the pharmacy employee's name entering the Controlled"
^DD(58.85,20,21,2,0)="Substances request for nursing."
^DD(58.85,20,"DT")="2931010"
^DD(58.85,21,0)="EMERGENCY^S^1:YES;0:NO;^2;2^Q"
^DD(58.85,21,3)="Answer ""YES"" if this is an emergency order."
^DD(58.85,21,21,0)="^^2^2^2950214^"
^DD(58.85,21,21,1,0)="A ""YES"" entry in this field will cause an order to print on the pharmacy"
^DD(58.85,21,21,2,0)="emergency order printer and allow for expedited processing."
^DD(58.85,21,23,0)="^^1^1^2950214^"
^DD(58.85,21,23,1,0)="This field is used to flag orders for expedited processing."
^DD(58.85,21,"DT")="2950214"
^DD(58.85,22,0)="PATIENT^P2'^DPT(^2;3^Q"
^DD(58.85,22,3)="Enter the patient for which this Controlled Substance is being ordered."
^DD(58.85,22,21,0)="^^1^1^2960816^"
^DD(58.85,22,21,1,0)="This field is for infusion and PCA syringe orders."
^DD(58.85,22,"DT")="2960816"
^DD(58.85,"B","COMMENTS",8)=""
^DD(58.85,"B","DISPENSED BY",14)=""
^DD(58.85,"B","DISPENSED DATE/TIME",15)=""
^DD(58.85,"B","DISPENSING PHARMACIST",14)="1"
^DD(58.85,"B","DISPENSING SITE",1)=""
^DD(58.85,"B","DRUG",3)=""
^DD(58.85,"B","EMERGENCY",21)=""
^DD(58.85,"B","EXPIRATION DATE",11)=""
^DD(58.85,"B","LOT #",10)=""
^DD(58.85,"B","MANUFACTURER",9)=""
^DD(58.85,"B","NAOU",2)=""
^DD(58.85,"B","ORDER STATUS",6)=""
^DD(58.85,"B","ORDERED BY",12)=""
^DD(58.85,"B","ORDERED BY PHARMACY",20)=""
^DD(58.85,"B","PATIENT",22)=""
^DD(58.85,"B","PHARMACY DISPENSING #",16)=""
^DD(58.85,"B","PRINTED",13)=""
^DD(58.85,"B","QUANTITY DISPENSED",18)=""
^DD(58.85,"B","QUANTITY ORDERED",5)=""
^DD(58.85,"B","RECORD NUMBER",.01)=""
^DD(58.85,"B","REQUEST #",4)=""
^DD(58.85,"B","REQUEST DATE/TIME",19)=""
^DD(58.85,"B","TECH",17)=""
^DD(58.85,"B","TRANSACTION #",7)=""
^DD(58.85,"GL",0,1,.01)=""
^DD(58.85,"GL",0,2,1)=""
^DD(58.85,"GL",0,3,2)=""
^DD(58.85,"GL",0,4,3)=""
^DD(58.85,"GL",0,5,4)=""
^DD(58.85,"GL",0,6,5)=""
^DD(58.85,"GL",0,7,6)=""
^DD(58.85,"GL",0,8,7)=""
^DD(58.85,"GL",0,9,9)=""
^DD(58.85,"GL",0,10,10)=""
^DD(58.85,"GL",0,11,11)=""
^DD(58.85,"GL",0,12,12)=""
^DD(58.85,"GL",0,13,14)=""
^DD(58.85,"GL",0,14,15)=""
^DD(58.85,"GL",0,15,16)=""
^DD(58.85,"GL",0,16,17)=""
^DD(58.85,"GL",0,17,18)=""
^DD(58.85,"GL",0,18,19)=""
^DD(58.85,"GL",0,19,20)=""
^DD(58.85,"GL",1,0,8)=""
^DD(58.85,"GL",2,1,13)=""
^DD(58.85,"GL",2,2,21)=""
^DD(58.85,"GL",2,3,22)=""
^DD(58.85,"IX",.01)=""
^DD(58.85,"IX",1)=""
^DD(58.85,"IX",4)=""
^DD(58.85,"IX",6)=""
^DD(58.85,"IX",13)=""
^DD(58.85,"RQ",.01)=""
^DD(58.85,"RQ",1)=""
^DD(58.85,"RQ",2)=""
^DD(58.85,"RQ",3)=""
^DD(58.85,"RQ",4)=""
^DD(58.85,"RQ",5)=""
^DD(58.85,"RQ",6)=""
^DD(58.85,"SB",58.858,8)=""
^DD(58.858,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(58.858,0,"DT")="2920405"
^DD(58.858,0,"NM","COMMENTS")=""
^DD(58.858,0,"UP")="58.85"
^DD(58.858,.01,0)="COMMENTS^W^^0;1^Q"
^DD(58.858,.01,21,0)="^^2^2^2920912^^"
^DD(58.858,.01,21,1,0)="Comments to pharmacy concerning this Controlled Substances order"
^DD(58.858,.01,21,2,0)="request."
^DD(58.858,.01,"DT")="2920405"
^DD(58.858,"B","COMMENTS",.01)=""
^DD(58.858,"GL",0,1,.01)=""
^DD(58.86,0)="FIELD^^19^19"
^DD(58.86,0,"DT")="2950705"
^DD(58.86,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSDRUG(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(58.86,0,"ID",13)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(58.86,0,"IX","AC",58.86,10)=""
^DD(58.86,0,"IX","AC1",58.86,1)=""
^DD(58.86,0,"IX","AC2",58.86,6)=""
^DD(58.86,0,"IX","AD",58.86,10)=""
^DD(58.86,0,"IX","AD1",58.86,13)=""
^DD(58.86,0,"IX","AD2",58.86,6)=""
^DD(58.86,0,"IX","B",58.86,.01)=""
^DD(58.86,0,"NM","CS DESTRUCTION")=""
^DD(58.86,0,"PT",58.81,47)=""
^DD(58.86,0,"VR")="3.0"
^DD(58.86,0,"VRPK")="CONTROLLED SUBSTANCES"
^DD(58.86,.01,0)="NUMBER^RNJ8,0X^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(58.86,.01,1,0)="^.1"
^DD(58.86,.01,1,1,0)="58.86^B"
^DD(58.86,.01,1,1,1)="S ^PSD(58.86,""B"",$E(X,1,30),DA)="""""
^DD(58.86,.01,1,1,2)="K ^PSD(58.86,""B"",$E(X,1,30),DA)"
^DD(58.86,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(58.86,.01,21,0)="^^1^1^2951130^^^"
^DD(58.86,.01,21,1,0)="The destruction number for this Controlled Substances drug."
^DD(58.86,.01,23,0)="^^1^1^2951130^^"
^DD(58.86,.01,23,1,0)="DINUMed."
^DD(58.86,.01,"DT")="2920603"
^DD(58.86,1,0)="DRUG^*P50'^PSDRUG(^0;2^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.86,1,1,0)="^.1"
^DD(58.86,1,1,1,0)="58.86^AC1^MUMPS"
^DD(58.86,1,1,1,1)="D SAC1^PSDUTL3"
^DD(58.86,1,1,1,2)="D KAC1^PSDUTL3"
^DD(58.86,1,1,1,3)="DO NOT DELETE"
^DD(58.86,1,1,1,"%D",0)="^^5^5^2941003^^^^"
^DD(58.86,1,1,1,"%D",1,0)="This cross-reference is used in compiling the Controlled Substances"
^DD(58.86,1,1,1,"%D",2,0)="destroyed drugs report."
^DD(58.86,1,1,1,"%D",3,0)=" "
^DD(58.86,1,1,1,"%D",4,0)="The cross-reference is ^PSD(58.86,""AC"",DATE/TIME DESTROYED,DISPENSING"
^DD(58.86,1,1,1,"%D",5,0)="SITE,DRUG,DA)="""""
^DD(58.86,1,1,1,"DT")="2930515"
^DD(58.86,1,3)="Enter the name of the drug being destroyed."
^DD(58.86,1,12)="Allows selection of ACTIVE drugs to be destroyed."
^DD(58.86,1,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0)"""
^DD(58.86,1,21,0)="^^1^1^2920912^^"
^DD(58.86,1,21,1,0)="A pointer to the name of the drug being destroyed."
^DD(58.86,1,"DT")="2930817"
^DD(58.86,2,0)="QUANTITY^NJ9,2^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(58.86,2,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(58.86,2,21,0)="^^1^1^2920625^"
^DD(58.86,2,21,1,0)="The quantity of the drug being destroyed."
^DD(58.86,2,"DT")="2940518"
^DD(58.86,3,0)="PHARMACIST TURNING IN DRUG^*P200'^VA(200,^0;4^S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.86,3,3)="Enter the name of the pharmacist turning this drug in for destruction."
^DD(58.86,3,12)="Access granted to pharmacists holding the appropriate security key."
^DD(58.86,3,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"""
^DD(58.86,3,21,0)="^^2^2^2920625^"
^DD(58.86,3,21,1,0)="A pointer to the name of the pharmacist turning the drug in for"
^DD(58.86,3,21,2,0)="destruction."
^DD(58.86,3,"DT")="2920607"
^DD(58.86,4,0)="NURSE RETURNING DRUG^*P200'^VA(200,^0;5^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.86,4,3)="Enter the name of the nurse returning this drug."
^DD(58.86,4,12)="Access granted to nurse holding the appropriate security key."
^DD(58.86,4,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"""
^DD(58.86,4,21,0)="^^2^2^2920625^"
^DD(58.86,4,21,1,0)="A pointer to the name of the nurse returning the drug to pharmacy"
^DD(58.86,4,21,2,0)="for destruction."
^DD(58.86,4,"DT")="2930527"
^DD(58.86,5,0)="DATE/TIME TURNED IN^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.86,5,3)="Enter date/time this drug was turned in for destruction."
^DD(58.86,5,21,0)="^^1^1^2920625^"
^DD(58.86,5,21,1,0)="The date/time the drug is turned in for destruction."
^DD(58.86,5,"DT")="2930701"
^DD(58.86,6,0)="RETURNED TO DISP SITE^*P58.8'^PSD(58.8,^0;7^S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.86,6,1,0)="^.1"
^DD(58.86,6,1,1,0)="58.86^AC2^MUMPS"
^DD(58.86,6,1,1,1)="D SAC2^PSDUTL3"
^DD(58.86,6,1,1,2)="D KAC2^PSDUTL3"
^DD(58.86,6,1,1,3)="DO NOT DELETE"
^DD(58.86,6,1,1,"%D",0)="^^5^5^2941003^^^^"
^DD(58.86,6,1,1,"%D",1,0)="This cross-reference is used in compiling the Controlled Substances"
^DD(58.86,6,1,1,"%D",2,0)="destroyed drugs report."
^DD(58.86,6,1,1,"%D",3,0)="  "
^DD(58.86,6,1,1,"%D",4,0)="The cross-reference is ^PSD(58.86,""AC"",DATE/TIME DESTROYED,DISPENSING"
^DD(58.86,6,1,1,"%D",5,0)="SITE,DRUG,DA)="""""
^DD(58.86,6,1,1,"DT")="2930515"
^DD(58.86,6,1,2,0)="58.86^AD2^MUMPS"
^DD(58.86,6,1,2,1)="D SAD2^PSDUTL3"
^DD(58.86,6,1,2,2)="D KAD2^PSDUTL3"
^DD(58.86,6,1,2,3)="DO NOT DELETE"
^DD(58.86,6,1,2,"%D",0)="^^5^5^2941003^^^^"
^DD(58.86,6,1,2,"%D",1,0)="This cross-reference is used in compiling the Controlled Substances"
^DD(58.86,6,1,2,"%D",2,0)="destroyed drugs report."
^DD(58.86,6,1,2,"%D",3,0)=" "
^DD(58.86,6,1,2,"%D",4,0)="The cross-reference is ^PSD(58.86,""AD"",DATE/TIME DESTROYED,DISPENSING SITE,"
^DD(58.86,6,1,2,"%D",5,0)="FREE-TEXT DRUG NAME,DA)="""""
^DD(58.86,6,1,2,"DT")="2931024"
^DD(58.86,6,3)="Enter the name of the dispensing vault holding this drug for destruction."
^DD(58.86,6,12)="Allows selection of Master or Satellite vaults."
^DD(58.86,6,12.1)="S DIC(""S"")=""I $S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"""
^DD(58.86,6,21,0)="^^1^1^2920625^"
^DD(58.86,6,21,1,0)="The pharmacy dispensing site (vault) holding the drug for destruction."
^DD(58.86,6,"DT")="2931024"
^DD(58.86,8,0)="TRANSACTION #^P58.81'^PSD(58.81,^0;9^Q"
^DD(58.86,8,3)="Enter transaction number of this drug."
^DD(58.86,8,21,0)="^^1^1^2920625^"
^DD(58.86,8,21,1,0)="A pointer to the transaction associated with this drug destruction."
^DD(58.86,8,"DT")="2920607"
^DD(58.86,9,0)="PHARMACIST DESTROYED DRUG^*P200'^VA(200,^0;10^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSDMGR"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.86,9,3)="Enter the name of the pharmacist destroying this drug."
^DD(58.86,9,12)="Access granted to pharmacists holding the appropriate security key."
^DD(58.86,9,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSDMGR"""",+Y)):1,1:0)"""
^DD(58.86,9,21,0)="^^2^2^2920625^"
^DD(58.86,9,21,1,0)="A pointer to the name of the pharmacist verifying this drug was"
^DD(58.86,9,21,2,0)="destroyed."
^DD(58.86,9,"DT")="2931024"
^DD(58.86,10,0)="DATE/TIME DESTROYED^D^^0;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.86,10,1,0)="^.1"
^DD(58.86,10,1,1,0)="58.86^AC^MUMPS"
^DD(58.86,10,1,1,1)="D SAC^PSDUTL3"
^DD(58.86,10,1,1,2)="D KAC^PSDUTL3"
^DD(58.86,10,1,1,3)="DO NOT DELETE"
^DD(58.86,10,1,1,"%D",0)="^^5^5^2941003^^^^"
^DD(58.86,10,1,1,"%D",1,0)="This cross-reference is used in compiling the Controlled Substances"
^DD(58.86,10,1,1,"%D",2,0)="destroyed drugs report."
^DD(58.86,10,1,1,"%D",3,0)=" "
^DD(58.86,10,1,1,"%D",4,0)="The cross-reference is ^PSD(58.86,""AC"",DATE/TIME DESTROYED,DISPENSING"
^DD(58.86,10,1,1,"%D",5,0)="SITE,DRUG,DA)="""""
^DD(58.86,10,1,1,"DT")="2930515"
^DD(58.86,10,1,2,0)="58.86^AD^MUMPS"
^DD(58.86,10,1,2,1)="D SAD^PSDUTL3"
^DD(58.86,10,1,2,2)="D KAD^PSDUTL3"
^DD(58.86,10,1,2,3)="DO NOT DELETE"
^DD(58.86,10,1,2,"%D",0)="^^5^5^2941003^^^^"
^DD(58.86,10,1,2,"%D",1,0)="This cross-reference is used in compiling the Controlled Substances"
^DD(58.86,10,1,2,"%D",2,0)="destroyed drugs report."
^DD(58.86,10,1,2,"%D",3,0)=" "
^DD(58.86,10,1,2,"%D",4,0)="The cross-reference is ^PSD(58.86,""AC"",DATE/TIME DESTROYED,DISPENSING SITE,"
^DD(58.86,10,1,2,"%D",5,0)="FREE-TEXT DRUG NAME,DA)="""""
^DD(58.86,10,1,2,"DT")="2931024"
^DD(58.86,10,3)="Enter the date/time this drug was destroyed."
^DD(58.86,10,21,0)="^^1^1^2960717^^^^"
^DD(58.86,10,21,1,0)="The destruction date/time of this drug."
^DD(58.86,10,"DT")="2931024"
^DD(58.86,11,0)="NO. OF CONTAINERS^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.86,11,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(58.86,11,21,0)="^^2^2^2951130^^"
^DD(58.86,11,21,1,0)="This field contains the number of containers destroyed. This information"
^DD(58.86,11,21,2,0)="is required for DEA Form - 41."
^DD(58.86,11,"DT")="2930516"
^DD(58.86,12,0)="UNIT^F^^0;12^K:$L(X)>10!($L(X)<1)!'(X?1A.A) X"
^DD(58.86,12,3)="Enter unit being destroyed (e.g., PACK, EACH. Not to exceed 10 characters)."
^DD(58.86,12,21,0)="^^2^2^2940922^^"
^DD(58.86,12,21,1,0)="The DEA Form - 41 requires that unit be defined for each controlled"
^DD(58.86,12,21,2,0)="substance destroyed."
^DD(58.86,12,"DT")="2930516"
^DD(58.86,13,0)="DRUG ITEM^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(58.86,13,1,0)="^.1"
^DD(58.86,13,1,1,0)="58.86^AD1^MUMPS"
^DD(58.86,13,1,1,1)="D SAD1^PSDUTL3"
^DD(58.86,13,1,1,2)="D KAD1^PSDUTL3"
^DD(58.86,13,1,1,3)="DO NOT DELETE"
^DD(58.86,13,1,1,"%D",0)="^^5^5^2941003^^^"
^DD(58.86,13,1,1,"%D",1,0)="This cross-reference is used in compiling the Controlled Substances"
^DD(58.86,13,1,1,"%D",2,0)="destroyed drugs report."
^DD(58.86,13,1,1,"%D",3,0)=" "
^DD(58.86,13,1,1,"%D",4,0)="The cross-reference is ^PSD(58.86,""AD"",DATE/TIME DESTROYED,DISPENSING SITE,"
^DD(58.86,13,1,1,"%D",5,0)="FREE-TEXT DRUG NAME,DA)="""""
^DD(58.86,13,1,1,"DT")="2931024"
^DD(58.86,13,3)="Answer must be 1-40 characters in length."
^DD(58.86,13,21,0)="^^1^1^2930817^"
^DD(58.86,13,21,1,0)="The free-text name of the drug not normally housed within the VA."
^DD(58.86,13,"DT")="2931024"
^DD(58.86,14,0)="COMMENTS^F^^2;1^K:$L(X)>60!($L(X)<1) X"
^DD(58.86,14,3)="Answer must be 1-60 characters in length."
^DD(58.86,14,21,0)="^^1^1^2950302^"
^DD(58.86,14,21,1,0)="Enter patient name, RX# and reason drug is placed on hold."
^DD(58.86,14,23,0)="^^1^1^2950302^"
^DD(58.86,14,23,1,0)="E3R# 3771 requested a comment field to enter patient name, RX# and reason drug is placed on hold."
^DD(58.86,14,"DT")="2950302"
^DD(58.86,15,0)="DATE/TIME CANCELLED^D^^3;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.86,15,3)="Enter the date/time the holding number was cancelled."
^DD(58.86,15,21,0)="^^1^1^2960717^^^^"
^DD(58.86,15,21,1,0)="The date the holding number is being cancelled."
^DD(58.86,15,23,0)="^^1^1^2960717^^^^"
^DD(58.86,15,23,1,0)="E3R# 4990. This field displays the date the holding number was cancelled."
^DD(58.86,15,"DT")="2950516"
^DD(58.86,16,0)="CANCELLED BY^P200'^VA(200,^3;2^Q"
^DD(58.86,16,3)="Enter the name of the pharmacist cancelling the holding number."
^DD(58.86,16,21,0)="^^1^1^2950517^^^^"
^DD(58.86,16,21,1,0)="A pointer to file# 200 for the name of the pharmacist cancelling the holding number."
^DD(58.86,16,23,0)="^^1^1^2950517^^^^"
^DD(58.86,16,23,1,0)="E3R# 4990. This field displays the name of the pharmacist cancelling the holding number."
^DD(58.86,16,"DT")="2950517"
^DD(58.86,17,0)="COMMENTS^F^^3;3^K:$L(X)>60!($L(X)<1) X"
^DD(58.86,17,3)="Answer must be 1-60 characters in length."
^DD(58.86,17,21,0)="^^1^1^2950717^^^"
^DD(58.86,17,21,1,0)="Enter the reason the holding number was cancelled."
^DD(58.86,17,23,0)="^^1^1^2950717^^^"
^DD(58.86,17,23,1,0)="E3R# 4990. Enter the reason the holding number was cancelled."
^DD(58.86,17,"DT")="2950717"
^DD(58.86,18,0)="PATIENT RETURNING DRUG^P2'^DPT(^0;13^Q"
^DD(58.86,18,.1)="Patient returning the drug"
^DD(58.86,18,3)="Enter the name of the patient/person returning the drug."
^DD(58.86,18,21,0)="^^1^1^2950913^^^"
^DD(58.86,18,21,1,0)="A pointer to the name of the patient/person returning the drug for destruction."
^DD(58.86,18,23,0)="^^1^1^2950913^^"
^DD(58.86,18,23,1,0)="E3R# 4990 and David@jackson requested this fld be added to enter patient name returning the drug."
^DD(58.86,18,"DT")="2950703"
^DD(58.86,19,0)="PRICE PER DISPENSE UNIT^P50'^PSDRUG(^0;14^Q"
^DD(58.86,19,3)="This fld is automatically filled with data fr file #50,16 660;6."
^DD(58.86,19,21,0)="^^1^1^2950705^^^"
^DD(58.86,19,21,1,0)="This fld holds the data selected fr file #50,16 660;6."
^DD(58.86,19,23,0)="^^1^1^2950705^^"
^DD(58.86,19,23,1,0)="This fld and Qty 2,0;3 are used to calculate cost data by drug for the Destroyed Drug Report."
^DD(58.86,19,"DT")="2950705"
^DD(58.86,"B","CANCELLED BY",16)=""
^DD(58.86,"B","COMMENTS",14)=""
^DD(58.86,"B","COMMENTS",17)=""
^DD(58.86,"B","DATE/TIME CANCELLED",15)=""
^DD(58.86,"B","DATE/TIME DESTROYED",10)=""
^DD(58.86,"B","DATE/TIME TURNED IN",5)=""
^DD(58.86,"B","DRUG",1)=""
^DD(58.86,"B","DRUG ITEM",13)=""
^DD(58.86,"B","NO. OF CONTAINERS",11)=""
^DD(58.86,"B","NUMBER",.01)=""
^DD(58.86,"B","NURSE RETURNING DRUG",4)=""
^DD(58.86,"B","PATIENT RETURNING DRUG",18)=""
^DD(58.86,"B","PHARMACIST DESTROYED DRUG",9)=""
^DD(58.86,"B","PHARMACIST TURNING IN DRUG",3)=""
^DD(58.86,"B","PRICE PER DISPENSE UNIT",19)=""
^DD(58.86,"B","Patient returning the drug",18)="1"
^DD(58.86,"B","QUANTITY",2)=""
^DD(58.86,"B","RETURNED TO DISP SITE",6)=""
^DD(58.86,"B","TRANSACTION #",8)=""
^DD(58.86,"B","UNIT",12)=""
^DD(58.86,"GL",0,1,.01)=""
^DD(58.86,"GL",0,2,1)=""
^DD(58.86,"GL",0,3,2)=""
^DD(58.86,"GL",0,4,3)=""
^DD(58.86,"GL",0,5,4)=""
^DD(58.86,"GL",0,6,5)=""
^DD(58.86,"GL",0,7,6)=""
^DD(58.86,"GL",0,8,11)=""
^DD(58.86,"GL",0,9,8)=""
^DD(58.86,"GL",0,10,9)=""
^DD(58.86,"GL",0,11,10)=""
^DD(58.86,"GL",0,12,12)=""
^DD(58.86,"GL",0,13,18)=""
^DD(58.86,"GL",0,14,19)=""
^DD(58.86,"GL",1,1,13)=""
^DD(58.86,"GL",2,1,14)=""
^DD(58.86,"GL",3,1,15)=""
^DD(58.86,"GL",3,2,16)=""
^DD(58.86,"GL",3,3,17)=""
^DD(58.86,"IX",.01)=""
^DD(58.86,"IX",1)=""
^DD(58.86,"IX",6)=""
^DD(58.86,"IX",10)=""
^DD(58.86,"IX",13)=""
^DD(58.86,"RQ",.01)=""
^DD(58.87,0)="FIELD^^14^15"
^DD(58.87,0,"DDA")="N"
^DD(58.87,0,"DT")="2930531"
^DD(58.87,0,"IX","AC",58.87,1)=""
^DD(58.87,0,"IX","AC1",58.87,11)=""
^DD(58.87,0,"IX","AC2",58.87,12)=""
^DD(58.87,0,"IX","B",58.87,.01)=""
^DD(58.87,0,"NM","CS CORRECTION LOG")=""
^DD(58.87,0,"VR")="3.0"
^DD(58.87,0,"VRPK")="CONTROLLED SUBSTANCES"
^DD(58.87,.01,0)="LOG NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.87,.01,1,0)="^.1"
^DD(58.87,.01,1,1,0)="58.87^B"
^DD(58.87,.01,1,1,1)="S ^PSD(58.87,""B"",$E(X,1,30),DA)="""""
^DD(58.87,.01,1,1,2)="K ^PSD(58.87,""B"",$E(X,1,30),DA)"
^DD(58.87,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(58.87,.01,21,0)="^^1^1^2920906^^"
^DD(58.87,.01,21,1,0)="This field contains the correction log number for this entry."
^DD(58.87,.01,"DT")="2920906"
^DD(58.87,1,0)="CORRECTION DATE/TIME^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.87,1,1,0)="^.1"
^DD(58.87,1,1,1,0)="58.87^AC^MUMPS"
^DD(58.87,1,1,1,1)="D SAC^PSDUTL2"
^DD(58.87,1,1,1,2)="D KAC^PSDUTL2"
^DD(58.87,1,1,1,3)="DO NOT DELETE"
^DD(58.87,1,1,1,"%D",0)="^^3^3^2941003^^^"
^DD(58.87,1,1,1,"%D",1,0)="This cross-reference is used in compiling the ""CS Correction Log Report""."
^DD(58.87,1,1,1,"%D",2,0)="  "
^DD(58.87,1,1,1,"%D",3,0)="The cross-reference is ^PSD(58.87,""AC"",TYPE,DISP SITE,DATE,DA)="""""
^DD(58.87,1,1,1,"DT")="2920906"
^DD(58.87,1,3)="Enter the date/time of this correction action."
^DD(58.87,1,21,0)="^^1^1^2930309^^"
^DD(58.87,1,21,1,0)="The date/time of this correction entry."
^DD(58.87,1,"DT")="2920906"
^DD(58.87,2,0)="CORRECTED BY PHARMACIST^*P200'^VA(200,^0;3^S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.87,2,3)="Enter the name of the pharmacist correcting this problem."
^DD(58.87,2,12)="Access granted to the pharmacists holding the appropriate security key."
^DD(58.87,2,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSJ RPHARM"""",+Y))"""
^DD(58.87,2,21,0)="^^2^2^2920906^"
^DD(58.87,2,21,1,0)="A pointer to the name of the pharmacist associated with this correction"
^DD(58.87,2,21,2,0)="action."
^DD(58.87,2,"DT")="2920906"
^DD(58.87,3,0)="PHARMACY DISPENSING #^F^^0;4^K:$L(X)>9!($L(X)<1) X"
^DD(58.87,3,3)="Answer must be 1-9 characters in length."
^DD(58.87,3,21,0)="^^2^2^2920912^^^"
^DD(58.87,3,21,1,0)="The pharmacy control number to identify and track this Controlled"
^DD(58.87,3,21,2,0)="Substances correction entry."
^DD(58.87,3,"DT")="2920906"
^DD(58.87,4,0)="DRUG^*P50'^PSDRUG(^0;5^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0),$P($G(^(2)),""""^"""",3)[""""N"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.87,4,3)="Enter the name of the drug associated with this correction action."
^DD(58.87,4,12)="Allows selection of ACTIVE drugs marked for Controlled Substances use."
^DD(58.87,4,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,+^(""""I"""")>DT:1,1:0),$P($G(^(2)),""""^"""",3)[""""N"""""""
^DD(58.87,4,21,0)="^^1^1^2920906^"
^DD(58.87,4,21,1,0)="A pointer to the drug associated with this correction action."
^DD(58.87,4,"DT")="2920906"
^DD(58.87,5,0)="NAOU^*P58.8'^PSD(58.8,^0;6^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""N"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.87,5,3)="Enter the name of the NAOU associated with this correction action."
^DD(58.87,5,12)="Allows selection of Narcotic locations only."
^DD(58.87,5,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""N"""""""
^DD(58.87,5,21,0)="^^1^1^2920906^"
^DD(58.87,5,21,1,0)="A pointer to the NAOU associated with this correction action."
^DD(58.87,5,"DT")="2920906"
^DD(58.87,6,0)="NURSE^*P200'^VA(200,^0;7^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.87,6,3)="Enter the name of the nurse associated with this correction action."
^DD(58.87,6,12)="Access granted to nurses holding the appropriate security key."
^DD(58.87,6,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RNURSE"""",+Y)):1,$D(^XUSEC(""""PSD NURSE"""",+Y)):1,1:0)"""
^DD(58.87,6,21,0)="^^2^2^2920906^"
^DD(58.87,6,21,1,0)="A pointer to the name of the nurse who completed the Green Sheet"
^DD(58.87,6,21,2,0)="and marked it ready for pharmacy pickup."
^DD(58.87,6,"DT")="2930527"
^DD(58.87,7,0)="PROBLEM DATE/TIME^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.87,7,3)="Enter the date/time the problem was created."
^DD(58.87,7,21,0)="^^1^1^2920906^"
^DD(58.87,7,21,1,0)="This field contains the date/time when the problem was created."
^DD(58.87,7,"DT")="2920906"
^DD(58.87,8,0)="REQUEST #^NJ8,0^^0;9^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(58.87,8,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(58.87,8,21,0)="^^1^1^2920906^"
^DD(58.87,8,21,1,0)="The order request number associated with this correction action."
^DD(58.87,8,"DT")="2920906"
^DD(58.87,9,0)="GS ENTERED BY PHARM^*P200'^VA(200,^0;10^S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.87,9,3)="Enter the name of the pharmacist who entered the Green Sheet."
^DD(58.87,9,12)="Access granted to pharmacists holding the appropriate security key."
^DD(58.87,9,12.1)="S DIC(""S"")=""I $S($D(^XUSEC(""""PSJ RPHARM"""",+Y)):1,$D(^XUSEC(""""PSJ PHARM TECH"""",+Y)):1,1:0)"""
^DD(58.87,9,21,0)="^^2^2^2930522^^"
^DD(58.87,9,21,1,0)="A pointer to the name of the pharmacist who entered/completed the Green"
^DD(58.87,9,21,2,0)="Sheet."
^DD(58.87,9,"DT")="2930531"
^DD(58.87,10,0)="QUANTITY^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(58.87,10,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(58.87,10,21,0)="^^1^1^2920906^"
^DD(58.87,10,21,1,0)="The quantity of the drug associated with this correction action."
^DD(58.87,10,"DT")="2920906"
^DD(58.87,11,0)="TYPE OF CORRECTION^S^1:GREEN SHEET READY FOR PICKUP;2:DELETE EXISTING GREEN SHEETS;3:ERROR FOUND ON COMPLETED GS;4:ERROR RESOLVED ON GREEN SHEET;^0;12^Q"
^DD(58.87,11,1,0)="^.1"
^DD(58.87,11,1,1,0)="58.87^AC1^MUMPS"
^DD(58.87,11,1,1,1)="D SAC1^PSDUTL2"
^DD(58.87,11,1,1,2)="D KAC1^PSDUTL2"
^DD(58.87,11,1,1,3)="DO NOT DELETE"
^DD(58.87,11,1,1,"%D",0)="^^3^3^2941003^^^"
^DD(58.87,11,1,1,"%D",1,0)="This cross-reference is used in compiling the ""CS Correction Log Report""."
^DD(58.87,11,1,1,"%D",2,0)="  "
^DD(58.87,11,1,1,"%D",3,0)="The cross-reference is ^PSD(58.87,""AC"",TYPE,DISP SITE,DATE,DA)="""""
^DD(58.87,11,1,1,"DT")="2920906"
^DD(58.87,11,3)="Enter the appropriate type of correction action."
^DD(58.87,11,21,0)="^^1^1^2930522^^"
^DD(58.87,11,21,1,0)="The type of correction action associated with this entry."
^DD(58.87,11,"DT")="2930522"
^DD(58.87,12,0)="PHARM DISPENSING SITE^*P58.8'^PSD(58.8,^0;13^S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.87,12,1,0)="^.1"
^DD(58.87,12,1,1,0)="58.87^AC2^MUMPS"
^DD(58.87,12,1,1,1)="D SAC2^PSDUTL2"
^DD(58.87,12,1,1,2)="D KAC2^PSDUTL2"
^DD(58.87,12,1,1,3)="DO NOT DELETE"
^DD(58.87,12,1,1,"%D",0)="^^3^3^2941003^^^"
^DD(58.87,12,1,1,"%D",1,0)="This cross-reference is used in compiling the ""CS Correction Log Report""."
^DD(58.87,12,1,1,"%D",2,0)="  "
^DD(58.87,12,1,1,"%D",3,0)="The cross-reference is ^PSD(58.87,""AC"",TYPE,DISP SITE,DATE,DA)="""""
^DD(58.87,12,1,1,"DT")="2920906"
^DD(58.87,12,3)="Enter the dispensing vault associated with this correction action."
^DD(58.87,12,12)="Selection limited to a Master vault or a Satellite vault."
^DD(58.87,12,12.1)="S:$D(PSDSITE) DIC(""S"")=""I $P(^(0),""""^"""",3)=+PSDSITE,$S($P(^(0),""""^"""",2)=""""M"""":1,$P(^(0),""""^"""",2)=""""S"""":1,1:0)"""
^DD(58.87,12,21,0)="^^2^2^2920906^"
^DD(58.87,12,21,1,0)="This field contains a pointer to the pharmacy dispensing site (vault)"
^DD(58.87,12,21,2,0)="associated with this correction action."
^DD(58.87,12,"DT")="2920906"
^DD(58.87,13,0)="PREVIOUS COMPLETION STATUS^P58.83'^PSD(58.83,^0;14^Q"
^DD(58.87,13,3)="Enter the previous completion status for the order."
^DD(58.87,13,21,0)="^^1^1^2931213^"
^DD(58.87,13,21,1,0)="The completion status prior to correction action being taken."
^DD(58.87,13,"DT")="2930522"
^DD(58.87,14,0)="CURRENT COMPLETED STATUS^P58.83'^PSD(58.83,^0;15^Q"
^DD(58.87,14,3)="Enter the current completion status for this order."
^DD(58.87,14,21,0)="^^1^1^2931213^"
^DD(58.87,14,21,1,0)="The completion status after this correction action has been performed."
^DD(58.87,14,"DT")="2930522"
^DD(58.87,"B","CORRECTED BY PHARMACIST",2)=""
^DD(58.87,"B","CORRECTION DATE/TIME",1)=""
^DD(58.87,"B","CURRENT COMPLETED STATUS",14)=""
^DD(58.87,"B","DRUG",4)=""
^DD(58.87,"B","GS ENTERED BY PHARM",9)=""
^DD(58.87,"B","LOG NUMBER",.01)=""
^DD(58.87,"B","NAOU",5)=""
^DD(58.87,"B","NURSE",6)=""
^DD(58.87,"B","PHARM DISPENSING SITE",12)=""
^DD(58.87,"B","PHARMACY DISPENSING #",3)=""
^DD(58.87,"B","PREVIOUS COMPLETION STATUS",13)=""
^DD(58.87,"B","PROBLEM DATE/TIME",7)=""
^DD(58.87,"B","QUANTITY",10)=""
^DD(58.87,"B","REQUEST #",8)=""
^DD(58.87,"B","TYPE OF CORRECTION",11)=""
^DD(58.87,"GL",0,1,.01)=""
^DD(58.87,"GL",0,2,1)=""
^DD(58.87,"GL",0,3,2)=""
^DD(58.87,"GL",0,4,3)=""
^DD(58.87,"GL",0,5,4)=""
^DD(58.87,"GL",0,6,5)=""
^DD(58.87,"GL",0,7,6)=""
^DD(58.87,"GL",0,8,7)=""
^DD(58.87,"GL",0,9,8)=""
^DD(58.87,"GL",0,10,9)=""
^DD(58.87,"GL",0,11,10)=""
^DD(58.87,"GL",0,12,11)=""
^DD(58.87,"GL",0,13,12)=""
^DD(58.87,"GL",0,14,13)=""
^DD(58.87,"GL",0,15,14)=""
^DD(58.87,"IX",.01)=""
^DD(58.87,"IX",1)=""
^DD(58.87,"IX",11)=""
^DD(58.87,"IX",12)=""
^DD(58.87,"RQ",.01)=""
^DD(58.88,0)="FIELD^^1^2"
^DD(58.88,0,"DDA")="N"
^DD(58.88,0,"DT")="2930825"
^DD(58.88,0,"IX","B",58.88,.01)=""
^DD(58.88,0,"NM","CS IRL PROGRAM")=""
^DD(58.88,0,"VR")="3.0"
^DD(58.88,0,"VRPK")="PSD"
^DD(58.88,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(58.88,.01,1,0)="^.1"
^DD(58.88,.01,1,1,0)="58.88^B"
^DD(58.88,.01,1,1,1)="S ^PSD(58.88,""B"",$E(X,1,30),DA)="""""
^DD(58.88,.01,1,1,2)="K ^PSD(58.88,""B"",$E(X,1,30),DA)"
^DD(58.88,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(58.88,.01,21,0)="^^1^1^2931213^"
^DD(58.88,.01,21,1,0)="This field contains the name of this IRL program."
^DD(58.88,.01,"DT")="2931019"
^DD(58.88,1,0)="IRL PROGRAM^58.881^^1;0"
^DD(58.88,1,21,0)="^^2^2^2941201^^"
^DD(58.88,1,21,1,0)="The IRL program for performing a part of the Controlled Substances perpetual"
^DD(58.88,1,21,2,0)="inventory functions."
^DD(58.88,"B","IRL PROGRAM",1)=""
^DD(58.88,"B","NAME",.01)=""
^DD(58.88,"GL",0,1,.01)=""
^DD(58.88,"GL",1,0,1)=""
^DD(58.88,"IX",.01)=""
^DD(58.88,"RQ",.01)=""
^DD(58.88,"SB",58.881,1)=""
^DD(58.881,0)="IRL PROGRAM SUB-FIELD^^.01^1"
^DD(58.881,0,"DT")="2930825"
^DD(58.881,0,"NM","IRL PROGRAM")=""
^DD(58.881,0,"UP")="58.88"
^DD(58.881,.01,0)="IRL PROGRAM^WL^^0;1^Q"
^DD(58.881,.01,21,0)="^^2^2^2941201^"
^DD(58.881,.01,21,1,0)="The IRL program for performing a part of the Controlled Substances"
^DD(58.881,.01,21,2,0)="perpetual inventory functions."
^DD(58.881,.01,"DT")="2930825"
^DD(58.881,"B","IRL PROGRAM",.01)=""
^DD(58.881,"GL",0,1,.01)=""
^DD(58.89,0)="FIELD^^6^7"
^DD(58.89,0,"DT")="2931107"
^DD(58.89,0,"ID",6)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSD(58.8,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(58.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(58.89,0,"IX","AC",58.89,1)=""
^DD(58.89,0,"IX","AD",58.89,2)=""
^DD(58.89,0,"IX","AD1",58.89,6)=""
^DD(58.89,0,"IX","AE",58.89,4)=""
^DD(58.89,0,"IX","AE1",58.89,6)=""
^DD(58.89,0,"IX","B",58.89,.01)=""
^DD(58.89,0,"NM","CS ERROR LOG")=""
^DD(58.89,0,"VR")="3.0"
^DD(58.89,0,"VRPK")="CONTROLLED SUBSTANCES"
^DD(58.89,.01,0)="LOG NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(58.89,.01,1,0)="^.1"
^DD(58.89,.01,1,1,0)="58.89^B"
^DD(58.89,.01,1,1,1)="S ^PSD(58.89,""B"",$E(X,1,30),DA)="""""
^DD(58.89,.01,1,1,2)="K ^PSD(58.89,""B"",$E(X,1,30),DA)"
^DD(58.89,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(58.89,.01,21,0)="^^2^2^2931017^"
^DD(58.89,.01,21,1,0)="This field contains the internal entry number for this Controlled"
^DD(58.89,.01,21,2,0)="Substances error."
^DD(58.89,.01,23,0)="^^1^1^2931017^"
^DD(58.89,.01,23,1,0)="DINUMed."
^DD(58.89,.01,"DT")="2931107"
^DD(58.89,1,0)="TRANSACTION NUMBER^P58.81'^PSD(58.81,^0;2^Q"
^DD(58.89,1,1,0)="^.1"
^DD(58.89,1,1,1,0)="58.89^AC"
^DD(58.89,1,1,1,1)="S ^PSD(58.89,""AC"",$E(X,1,30),DA)="""""
^DD(58.89,1,1,1,2)="K ^PSD(58.89,""AC"",$E(X,1,30),DA)"
^DD(58.89,1,1,1,3)="DO NOT DELETE"
^DD(58.89,1,1,1,"DT")="2931018"
^DD(58.89,1,3)="Enter the transaction number generating this error."
^DD(58.89,1,21,0)="^^2^2^2931017^"
^DD(58.89,1,21,1,0)="This field contains a pointer to the Controlled Substances transaction"
^DD(58.89,1,21,2,0)="generating this error."
^DD(58.89,1,"DT")="2931018"
^DD(58.89,2,0)="DATE/TIME^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.89,2,1,0)="^.1"
^DD(58.89,2,1,1,0)="58.89^AD^MUMPS"
^DD(58.89,2,1,1,1)="D SAD^PSDUTL4"
^DD(58.89,2,1,1,2)="D KAD^PSDUTL4"
^DD(58.89,2,1,1,3)="DO NOT DELETE"
^DD(58.89,2,1,1,"%D",0)="^^3^3^2941003^^^"
^DD(58.89,2,1,1,"%D",1,0)="This cross-reference is used in compiling various CS error log reports."
^DD(58.89,2,1,1,"%D",2,0)=" "
^DD(58.89,2,1,1,"%D",3,0)="The cross-reference is defined by: ^PSD(58.89,""AD"",DATE/TIME,NAOU,DA)="""""
^DD(58.89,2,1,1,"DT")="2931107"
^DD(58.89,2,3)="Enter the date/time the error occurred."
^DD(58.89,2,21,0)="^^2^2^2931017^"
^DD(58.89,2,21,1,0)="This field contains the date/time the Controlled Substances error"
^DD(58.89,2,21,2,0)="occurred."
^DD(58.89,2,"DT")="2931107"
^DD(58.89,3,0)="CORRECTED BY^*P200'^VA(200,^0;4^S DIC(""S"")=""I $D(^XUSEC(""""PSD ERROR"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.89,3,3)="Enter the name of the supervisor correcting this error."
^DD(58.89,3,12)="Access granted to pharmacy and nursing supervisors holding the appropriate key."
^DD(58.89,3,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSD ERROR"""",+Y))"""
^DD(58.89,3,21,0)="^^2^2^2931017^"
^DD(58.89,3,21,1,0)="This field contains a pointer to the name of the pharmacy or nursing"
^DD(58.89,3,21,2,0)="supervisor correcting this error."
^DD(58.89,3,"DT")="2931017"
^DD(58.89,4,0)="DATE/TIME CORRECTED^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(58.89,4,1,0)="^.1"
^DD(58.89,4,1,1,0)="58.89^AE^MUMPS"
^DD(58.89,4,1,1,1)="D SAE^PSDUTL4"
^DD(58.89,4,1,1,2)="D KAE^PSDUTL4"
^DD(58.89,4,1,1,3)="DO NOT DELETE"
^DD(58.89,4,1,1,"%D",0)="^^5^5^2941003^^^"
^DD(58.89,4,1,1,"%D",1,0)="This cross-reference is used in compiling the CS resolved error log"
^DD(58.89,4,1,1,"%D",2,0)="report."
^DD(58.89,4,1,1,"%D",3,0)=" "
^DD(58.89,4,1,1,"%D",4,0)="The cross-reference is defined by:"
^DD(58.89,4,1,1,"%D",5,0)=" ^PSD(58.89,""AE"",DATE/TIME CORRECTED,CS LOCATION,DA)="""""
^DD(58.89,4,1,1,"DT")="2931107"
^DD(58.89,4,3)="Enter the date/time this error was corrected."
^DD(58.89,4,21,0)="^^1^1^2931017^"
^DD(58.89,4,21,1,0)="The date/time this Controlled Substances error was corrected."
^DD(58.89,4,"DT")="2931107"
^DD(58.89,5,0)="RESOLUTION^58.895^^1;0"
^DD(58.89,5,21,0)="^^1^1^2931017^"
^DD(58.89,5,21,1,0)="The final resolution for this Controlled Substances error."
^DD(58.89,6,0)="CS LOCATION^*P58.8'^PSD(58.8,^0;6^S DIC(""S"")=""I $P(^(0),""""^"""",2)'=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(58.89,6,1,0)="^.1"
^DD(58.89,6,1,1,0)="58.89^AD1^MUMPS"
^DD(58.89,6,1,1,1)="D SAD1^PSDUTL4"
^DD(58.89,6,1,1,2)="D KAD1^PSDUTL4"
^DD(58.89,6,1,1,3)="DO NOT DELETE"
^DD(58.89,6,1,1,"%D",0)="^^3^3^2941003^^^^"
^DD(58.89,6,1,1,"%D",1,0)="This cross-reference is used in compiling various CS error log reports."
^DD(58.89,6,1,1,"%D",2,0)=" "
^DD(58.89,6,1,1,"%D",3,0)="This cross-reference is defined by: ^PSD(58.89,""AD"",DATE/TIME,NAOU,DA)="""""
^DD(58.89,6,1,1,"DT")="2931107"
^DD(58.89,6,1,2,0)="58.89^AE1^MUMPS"
^DD(58.89,6,1,2,1)="D SAE1^PSDUTL4"
^DD(58.89,6,1,2,2)="D KAE1^PSDUTL4"
^DD(58.89,6,1,2,3)="DO NOT DELETE"
^DD(58.89,6,1,2,"%D",0)="^^5^5^2941003^^^"
^DD(58.89,6,1,2,"%D",1,0)="This cross-reference is used in compiling the CS resolved error log"
^DD(58.89,6,1,2,"%D",2,0)="report."
^DD(58.89,6,1,2,"%D",3,0)=" "
^DD(58.89,6,1,2,"%D",4,0)="This cross-reference is defined by:"
^DD(58.89,6,1,2,"%D",5,0)=" ^PSD(58.89,""AE"",DATE/TIME CORRECTED,CS LOCATION,DA)="""""
^DD(58.89,6,1,2,"DT")="2931107"
^DD(58.89,6,3)="Enter the NAOU or dispensing site generating this error log entry."
^DD(58.89,6,12)="Allows selection of CS locations."
^DD(58.89,6,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)'=""""P"""""""
^DD(58.89,6,21,0)="^^2^2^2940915^^"
^DD(58.89,6,21,1,0)="This field contains a pointer to the Controlled Substances location,"
^DD(58.89,6,21,2,0)="dispensing vault or NAOU, where this error occurred."
^DD(58.89,6,"DT")="2931107"
^DD(58.89,"B","CORRECTED BY",3)=""
^DD(58.89,"B","CS LOCATION",6)=""
^DD(58.89,"B","DATE/TIME",2)=""
^DD(58.89,"B","DATE/TIME CORRECTED",4)=""
^DD(58.89,"B","LOG NUMBER",.01)=""
^DD(58.89,"B","RESOLUTION",5)=""
^DD(58.89,"B","TRANSACTION NUMBER",1)=""
^DD(58.89,"GL",0,1,.01)=""
^DD(58.89,"GL",0,2,1)=""
^DD(58.89,"GL",0,3,2)=""
^DD(58.89,"GL",0,4,3)=""
^DD(58.89,"GL",0,5,4)=""
^DD(58.89,"GL",0,6,6)=""
^DD(58.89,"GL",1,0,5)=""
^DD(58.89,"IX",.01)=""
^DD(58.89,"IX",1)=""
^DD(58.89,"IX",2)=""
^DD(58.89,"IX",4)=""
^DD(58.89,"IX",6)=""
^DD(58.89,"RQ",.01)=""
^DD(58.89,"SB",58.895,5)=""
^DD(58.895,0)="RESOLUTION SUB-FIELD^^.01^1"
^DD(58.895,0,"DT")="2931017"
^DD(58.895,0,"NM","RESOLUTION")=""
^DD(58.895,0,"UP")="58.89"
^DD(58.895,.01,0)="RESOLUTION^W^^0;1^Q"
^DD(58.895,.01,3)="Enter the resolution for this Controlled Substances error."
^DD(58.895,.01,21,0)="^^1^1^2931017^"
^DD(58.895,.01,21,1,0)="The final resolution for this Controlled Substances error."
^DD(58.895,.01,"DT")="2931017"
^DD(58.895,"B","RESOLUTION",.01)=""
^DD(58.895,"GL",0,1,.01)=""
^DD(59,0)="FIELD^^2008^72"
^DD(59,0,"DDA")="N"
^DD(59,0,"DT")="2991202"
^DD(59,0,"ID",.06)="D EN^DDIOL($P(^(0),U,6),"""",""?2"")"
^DD(59,0,"ID",2004)="D:$G(^(""I"")) EN^DDIOL(""Inactive as of: ""_$$FMTE^DILIBF($P(^(""I""),U,1),5),"""",""?2"")"
^DD(59,0,"IX","B",59,.01)=""
^DD(59,0,"IX","C",59,.06)=""
^DD(59,0,"IX","D",59,100)=""
^DD(59,0,"NM","OUTPATIENT SITE")=""
^DD(59,0,"PT",44,22900)=""
^DD(59,0,"PT",50.032,.01)=""
^DD(59,0,"PT",50.0731,10)=""
^DD(59,0,"PT",50.735,.01)=""
^DD(59,0,"PT",50.9006,.01)=""
^DD(59,0,"PT",52,20)=""
^DD(59,0,"PT",52.1,8)=""
^DD(59,0,"PT",52.11,3)=""
^DD(59,0,"PT",52.2,.09)=""
^DD(59,0,"PT",52.5,.06)=""
^DD(59,0,"PT",52.51,15)=""
^DD(59,0,"PT",52.85,.01)=""
^DD(59,0,"PT",58.8,20)=""
^DD(59,0,"PT",58.836,.01)=""
^DD(59,0,"PT",59.11,.01)=""
^DD(59,0,"PT",59.2001,.01)=""
^DD(59,0,"PT",59.3,14)=""
^DD(59,0,"PT",59.7,40)=""
^DD(59,0,"PT",59.7,40.13)=""
^DD(59,0,"PT",59.79001,.03)=""
^DD(59,0,"PT",59.79002,.03)=""
^DD(59,0,"PT",59.79003,.03)=""
^DD(59,0,"PT",550.2,2)=""
^DD(59,0,"PT",727.81,9)=""
^DD(59,0,"PT",9002313.5601,.01)=""
^DD(59,0,"PT",9009032.4,.16)=""
^DD(59,0,"VR")="7.0"
^DD(59,0,"VRPK")="PSO"
^DD(59,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(59,.01,1,0)="^.1"
^DD(59,.01,1,1,0)="59^B"
^DD(59,.01,1,1,1)="S ^PS(59,""B"",$E(X,1,30),DA)="""""
^DD(59,.01,1,1,2)="K ^PS(59,""B"",$E(X,1,30),DA)"
^DD(59,.01,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(59,.01,21,0)="^^1^1^2930317^"
^DD(59,.01,21,1,0)="This field contains the name of the site."
^DD(59,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Site cannot be deleted, it must be inactivated!"","""",""$C(7),!?5"")"
^DD(59,.02,0)="MAILING FRANK STREET ADDRESS^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(59,.02,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(59,.02,20,0)="^.3LA^1^1"
^DD(59,.02,20,1,0)="PSO"
^DD(59,.02,21,0)="^^1^1^2921109^"
^DD(59,.02,21,1,0)="This field is used for the address of the Outpatient Site."
^DD(59,.02,23,0)="^^1^1^2921109^"
^DD(59,.02,23,1,0)="free text"
^DD(59,.03,0)="AREA CODE^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(59,.03,3)="Type a Number between 100 and 999, 0 Decimal Digits"
^DD(59,.03,21,0)="^^1^1^2921109^"
^DD(59,.03,21,1,0)="This field is used for the area code of the outpatient site."
^DD(59,.03,23,0)="^^1^1^2921109^"
^DD(59,.03,23,1,0)="numeric"
^DD(59,.04,0)="PHONE NUMBER^F^^0;4^K:$L(X)>12!($L(X)<3) X"
^DD(59,.04,3)="Answer must be 3-12 characters in length."
^DD(59,.04,20,0)="^.3LA^1^1"
^DD(59,.04,20,1,0)="PSO"
^DD(59,.04,21,0)="^^1^1^2921109^^"
^DD(59,.04,21,1,0)="This field is used for the telephone number of the outpatient site."
^DD(59,.04,23,0)="^^1^1^2921109^^"
^DD(59,.04,23,1,0)="free text"
^DD(59,.04,"DT")="2921109"
^DD(59,.05,0)="MAILING FRANK ZIP+4 CODE^FXO^^0;5^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^PSOUTLA"
^DD(59,.05,2)="S Y(0)=Y D ZIPOUT^PSOUTLA"
^DD(59,.05,2.1)="D ZIPOUT^PSOUTLA"
^DD(59,.05,3)="Answer with either 5 digit or 9 digit zip code."
^DD(59,.05,20,0)="^.3LA^1^1"
^DD(59,.05,20,1,0)="PSO"
^DD(59,.05,21,0)="^^2^2^2940125^^^"
^DD(59,.05,21,1,0)="This field is used for the zip code of the outpatient site."
^DD(59,.05,21,2,0)="This field will allow zip+4 format (excluding the ""-"")."
^DD(59,.05,23,0)="^^1^1^2940125^^^"
^DD(59,.05,23,1,0)="free text"
^DD(59,.05,"DT")="2940125"
^DD(59,.06,0)="SITE NUMBER^RFX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<3)!'(X?3N.AN) X"
^DD(59,.06,1,0)="^.1"
^DD(59,.06,1,1,0)="59^C"
^DD(59,.06,1,1,1)="S ^PS(59,""C"",$E(X,1,30),DA)="""""
^DD(59,.06,1,1,2)="K ^PS(59,""C"",$E(X,1,30),DA)"
^DD(59,.06,3)="ANSWER MUST BE 3-8 CHARACTERS IN LENGTH AND THE LEADING 3 CHARACTERS SHOULD BE NUMERIC"
^DD(59,.06,20,0)="^.3LA^1^1"
^DD(59,.06,20,1,0)="PSO"
^DD(59,.06,21,0)="^.001^1^1^3010907^^^^"
^DD(59,.06,21,1,0)="This field is used to show the site/station number."
^DD(59,.06,23,0)="^.001^1^1^3010907^^^^"
^DD(59,.06,23,1,0)="free text"
^DD(59,.06,"DT")="3010827"
^DD(59,.07,0)="MAILING FRANK CITY^F^^0;7^K:$L(X)>30!($L(X)<2) X"
^DD(59,.07,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(59,.07,20,0)="^.3LA^1^1"
^DD(59,.07,20,1,0)="PSO"
^DD(59,.07,21,0)="^^1^1^2921109^"
^DD(59,.07,21,1,0)="This field is used for the city in which the outpatient site is located."
^DD(59,.07,23,0)="^^1^1^2921109^"
^DD(59,.07,23,1,0)="free text"
^DD(59,.08,0)="MAILING FRANK STATE^P5'^DIC(5,^0;8^Q"
^DD(59,.08,3)="Enter name of state where outpatient site is located."
^DD(59,.08,20,0)="^.3LA^1^1"
^DD(59,.08,20,1,0)="PSO"
^DD(59,.08,21,0)="^^1^1^2921109^"
^DD(59,.08,21,1,0)="This field is used to show the state in which the outpatient site resides."
^DD(59,.08,23,0)="^^1^1^2921109^"
^DD(59,.08,23,1,0)="pointer"
^DD(59,.081,0)="MAILING COMMENTS^F^^9;1^K:$L(X)>29!($L(X)<1) X"
^DD(59,.081,3)="Answer must be 1-29 characters in length"
^DD(59,.081,21,0)="^^3^3^3040512^"
^DD(59,.081,21,1,0)="This field will be printed on the laser labels mailing address label. It "
^DD(59,.081,21,2,0)="can contain anything the site deems appropriate (i.e. whether mailing is "
^DD(59,.081,21,3,0)="""Forwarding service requested"" or ""Address service requested"", etc.)"
^DD(59,.081,"DT")="3040512"
^DD(59,.09,0)="HOLD FUNCTION?^S^1:YES;0:NO;^1;23^Q"
^DD(59,.09,.1)="HOLD"
^DD(59,.09,3)="Enter 'Y' if the 'Hold' feature will be used at the facility."
^DD(59,.09,20,0)="^.3LA^1^1"
^DD(59,.09,20,1,0)="PSO"
^DD(59,.09,21,0)="^^2^2^2920421^"
^DD(59,.09,21,1,0)="This site parameter is used to determine if the 'Hold' function will"
^DD(59,.09,21,2,0)="be used at the medical facility."
^DD(59,.09,23,0)="^^1^1^2920421^"
^DD(59,.09,23,1,0)="Set of Codes (required)."
^DD(59,.09,"DT")="2930323"
^DD(59,.091,0)="SUSPENSE FUNCTION?^S^1:YES;0:NO;^1;24^Q"
^DD(59,.091,.1)="SUSPENSE"
^DD(59,.091,3)="Enter if the 'Suspense' feature will be used at the facility."
^DD(59,.091,20,0)="^.3LA^1^1"
^DD(59,.091,20,1,0)="PSO"
^DD(59,.091,21,0)="^^2^2^2920421^"
^DD(59,.091,21,1,0)="This site parameter will be used to determine if the 'Suspense' feature"
^DD(59,.091,21,2,0)="will be used at the medical facility."
^DD(59,.091,23,0)="^^1^1^2920421^"
^DD(59,.091,23,1,0)="Set of Codes (required)."
^DD(59,.091,"DT")="2930323"
^DD(59,.1,0)="CANCEL DRUG IN SAME CLASS^S^1:YES;0:NO;^1;10^Q"
^DD(59,.1,3)="Enter yes if you wish prescriptions for drugs in the same class to be cancelled."
^DD(59,.1,21,0)="^^3^3^2991122^^^^"
^DD(59,.1,21,1,0)="Prescriptions with duplicate classes can only be discontinued if this site"
^DD(59,.1,21,2,0)="parameter is set to 'Yes' and if the Rx has not been put on hold through"
^DD(59,.1,21,3,0)="CPRS."
^DD(59,.1,23,0)="^^1^1^2991122^^^^"
^DD(59,.1,23,1,0)="set of codes"
^DD(59,.1,"DT")="2930323"
^DD(59,.111,0)="REFILL INACTIVE DRUG RXS^S^1:YES;0:NO;^1;11^Q"
^DD(59,.111,3)="Enter yes to allow refilling a prescription for a drug which is inactive."
^DD(59,.111,21,0)="^^2^2^3070710^"
^DD(59,.111,21,1,0)="This will be used to determine if inactive drugs will be used to refill"
^DD(59,.111,21,2,0)="active prescriptions."
^DD(59,.111,23,0)="^^1^1^3070710^^"
^DD(59,.111,23,1,0)="set of codes"
^DD(59,.111,"DT")="3070710"
^DD(59,.112,0)="ASK METHOD OF PICKUP^S^1:YES;0:NO;^1;12^Q"
^DD(59,.112,3)="Enter yes to put special pickup instructions on window prescriptions."
^DD(59,.112,20,0)="^.3LA^^0"
^DD(59,.112,21,0)="^^2^2^2921109^^"
^DD(59,.112,21,1,0)="This field will be used to determine if method of pickup will be asked for "
^DD(59,.112,21,2,0)="window prescriptions."
^DD(59,.112,23,0)="^^1^1^2921109^"
^DD(59,.112,23,1,0)="set of codes"
^DD(59,.112,"DT")="2930323"
^DD(59,.113,0)="PASS MEDS ON PROFILE^S^1:YES;0:NO;^1;13^Q"
^DD(59,.113,3)="Enter yes if pass meds should appear on the profile printed with new prescriptions"
^DD(59,.113,20,0)="^.3LA^1^1"
^DD(59,.113,20,1,0)="PSO"
^DD(59,.113,21,0)="^^2^2^2921109^"
^DD(59,.113,21,1,0)="This field is used to determine if pass medication within specified date"
^DD(59,.113,21,2,0)="range will be listed on profiles."
^DD(59,.113,23,0)="^^1^1^2921109^"
^DD(59,.113,23,1,0)="set of codes"
^DD(59,.113,"DT")="2930323"
^DD(59,.114,0)="PROFILE `SORT BY' DEFAULT^S^0:DATE;1:CLASS;2:MEDICATION;^1;14^Q"
^DD(59,.114,3)="Enter the default method of sorting medication profile."
^DD(59,.114,20,0)="^.3LA^1^1"
^DD(59,.114,20,1,0)="PS"
^DD(59,.114,21,0)="^^1^1^2971209^^"
^DD(59,.114,21,1,0)="This field will be used to determine the sort order of medications on profiles."
^DD(59,.114,23,0)="^^1^1^2971209^^"
^DD(59,.114,23,1,0)="set of codes"
^DD(59,.114,"DT")="2930323"
^DD(59,.115,0)="COPIES ON NEW^S^1:YES;0:NO;^1;15^Q"
^DD(59,.115,3)="Enter yes to ask the number of copies of each label to be print."
^DD(59,.115,20,0)="^.3LA^1^1"
^DD(59,.115,20,1,0)="PSO"
^DD(59,.115,21,0)="^^1^1^2930323^^^"
^DD(59,.115,21,1,0)="This field will be used to determine the number copies for labels to print."
^DD(59,.115,23,0)="^^1^1^2930323^^^"
^DD(59,.115,23,1,0)="set of codes"
^DD(59,.115,"DT")="2930323"
^DD(59,.116,0)="DRUG CHECK FOR CLERK^S^1:YES;0:NO;^1;16^Q"
^DD(59,.116,3)="Enter yes if clerks should see the duplicate drug warning during order entry."
^DD(59,.116,20,0)="^.3LA^1^1"
^DD(59,.116,20,1,0)="PSO"
^DD(59,.116,21,0)="^^2^2^2921228^^^"
^DD(59,.116,21,1,0)="This field is used to determine if the duplicate drug warnings should be"
^DD(59,.116,21,2,0)="shown for non-pharmacist."
^DD(59,.116,23,0)="^^1^1^2921109^"
^DD(59,.116,23,1,0)="set of codes"
^DD(59,.116,"DT")="2930323"
^DD(59,.117,0)="FEE BASIS SUPPORT^S^1:YES;0:NO;^1;17^Q"
^DD(59,.117,3)="Enter yes if your pharmacy processes prescriptions for Fee basis providers."
^DD(59,.117,21,0)="^^1^1^2921109^^"
^DD(59,.117,21,1,0)="This field is used to determine if fee basis prescriptions are processed."
^DD(59,.117,23,0)="^^1^1^2921109^"
^DD(59,.117,23,1,0)="set of codes"
^DD(59,.117,"DT")="2930323"
^DD(59,.118,0)="MULTI RX REQUEST FORM^S^1:YES;0:NO;^1;18^Q"
^DD(59,.118,3)="Enter yes to print the multi RX request form."
^DD(59,.118,20,0)="^.3LA^1^1"
^DD(59,.118,20,1,0)="PSO"
^DD(59,.118,21,0)="^^2^2^2921109^"
^DD(59,.118,21,1,0)="This field is used to determine if the multiple prescription request forms"
^DD(59,.118,21,2,0)="are printed with medication labels."
^DD(59,.118,23,0)="^^1^1^2921109^"
^DD(59,.118,23,1,0)="set of codes"
^DD(59,.118,"DT")="2930323"
^DD(59,.119,0)="BARCODES ON REQUEST FORMS^S^0:REFILL REQUEST ONLY;1:MULTI RX REQUEST ONLY;2:BOTH;^1;19^Q"
^DD(59,.119,3)="Select whether you want barcodes on the single refill request, the multi-RX request form or both"
^DD(59,.119,20,0)="^.3LA^1^1"
^DD(59,.119,20,1,0)="PSO"
^DD(59,.119,21,0)="^^2^2^2930121^^^^"
^DD(59,.119,21,1,0)="This field is used to determine if barcodes are printed on profiles, "
^DD(59,.119,21,2,0)="labels, and multi request forms."
^DD(59,.119,23,0)="^^1^1^2921109^"
^DD(59,.119,23,1,0)="set of codes"
^DD(59,.119,"DT")="2930323"
^DD(59,.1191,0)="BARCODES ON ACTION PROFILES^S^1:YES;0:NO;^1;1^Q"
^DD(59,.1191,3)="Enter 'Yes' if barcodes are to print with action profiles.  Printer must be setup for barcodes."
^DD(59,.1191,21,0)="^^5^5^2931007^^"
^DD(59,.1191,21,1,0)="This field is used to indicate if barcodes are to print with the action profiles."
^DD(59,.1191,21,2,0)="Barcodes on action profiles are a new feature for version 6.0 of outpatient."
^DD(59,.1191,21,3,0)="The printer used must be setup or have barcode capabilities for the"
^DD(59,.1191,21,4,0)="barcodes to print.  Contact IRM to help determine which printer have barcode"
^DD(59,.1191,21,5,0)="capabilities."
^DD(59,.1191,23,0)="^^1^1^2931007^"
^DD(59,.1191,23,1,0)="set of codes."
^DD(59,.1191,"DT")="2931007"
^DD(59,.12,0)="VERIFICATION^S^1:YES;0:NO;^1;2^Q"
^DD(59,.12,3)="Answer yes if prescriptions entered by a technician must be verified by a pharmacist."
^DD(59,.12,20,0)="^.3LA^1^1"
^DD(59,.12,20,1,0)="PSO"
^DD(59,.12,21,0)="^^2^2^2930121^^^^"
^DD(59,.12,21,1,0)="This field is used to determine if prescriptions entered by a "
^DD(59,.12,21,2,0)="non-pharmacist are placed in a non-verified status."
^DD(59,.12,23,0)="^^1^1^2930121^^^"
^DD(59,.12,23,1,0)="set of codes"
^DD(59,.12,"DT")="2930323"
^DD(59,.121,0)="DISPLAY GROUP^P59.3'^PS(59.3,^1;20^Q"
^DD(59,.121,3)="Choose the display group which will be used to display the prescription ready messages."
^DD(59,.121,20,0)="^.3LA^1^1"
^DD(59,.121,20,1,0)="PSO"
^DD(59,.121,21,0)="^^2^2^2921109^^"
^DD(59,.121,21,1,0)="This field is used to determine which bingo board display screen will"
^DD(59,.121,21,2,0)="be shown on the waiting room monitor."
^DD(59,.121,23,0)="^^1^1^2921109^"
^DD(59,.121,23,1,0)="pointer"
^DD(59,.121,"DT")="2890616"
^DD(59,.122,0)="SCREEN PROFILES^S^1:YES;0:NO;^1;21^Q"
^DD(59,.122,3)="Enter yes to see a profile on the screen during new & refill entry"
^DD(59,.122,20,0)="^.3LA^1^1"
^DD(59,.122,20,1,0)="PSO"
^DD(59,.122,21,0)="^^2^2^2921109^"
^DD(59,.122,21,1,0)="This field is used to determine if profiles are displayed when refilling"
^DD(59,.122,21,2,0)="and renewing medications."
^DD(59,.122,23,0)="^^1^1^2921109^"
^DD(59,.122,23,1,0)="set of codes"
^DD(59,.122,"DT")="2930323"
^DD(59,.123,0)="EDIT PATIENT DATA^S^1:YES;0:NO;^1;22^Q"
^DD(59,.123,3)="Enter yes to edit patient data during order entry."
^DD(59,.123,20,0)="^.3LA^1^1"
^DD(59,.123,20,1,0)="PS"
^DD(59,.123,21,0)="^^1^1^2921109^"
^DD(59,.123,21,1,0)="This field is used to determine if editing of patient data will be allowed."
^DD(59,.123,23,0)="^^1^1^2921109^"
^DD(59,.123,23,1,0)="set of codes"
^DD(59,.123,"DT")="2930323"
^DD(59,.13,0)="EDIT DRUG^S^1:YES;0:NO;^1;3^Q"
^DD(59,.13,3)="Enter yes to allow changing the drug while editing a prescription."
^DD(59,.13,20,0)="^.3LA^1^1"
^DD(59,.13,20,1,0)="PSO"
^DD(59,.13,21,0)="^^2^2^2921109^"
^DD(59,.13,21,1,0)="This field will be used to determine if drugs can be changed during"
^DD(59,.13,21,2,0)="the prescription edit option."
^DD(59,.13,23,0)="^^1^1^2921109^"
^DD(59,.13,23,1,0)="set of codes"
^DD(59,.13,"DT")="2930323"
^DD(59,.14,0)="RENEWING RX'S ALLOWED^S^1:YES;0:NO;^1;4^Q"
^DD(59,.14,3)="Enter yes to allow prescriptions to be renewed."
^DD(59,.14,20,0)="^.3LA^1^1"
^DD(59,.14,20,1,0)="PSO"
^DD(59,.14,21,0)="^^2^2^2921109^"
^DD(59,.14,21,1,0)="This field will be used to determine if renewing of medications will be"
^DD(59,.14,21,2,0)="allowed."
^DD(59,.14,23,0)="^^1^1^2921109^"
^DD(59,.14,23,1,0)="set of codes"
^DD(59,.14,"DT")="2930323"
^DD(59,.15,0)="PASS MEDS CANCEL^S^1:YES;0:NO;^1;5^Q"
^DD(59,.15,3)="Answer yes if pass meds should cancel active prescriptions."
^DD(59,.15,20,0)="^.3LA^1^1"
^DD(59,.15,20,1,0)="PSO"
^DD(59,.15,21,0)="^^1^1^2921120^^^"
^DD(59,.15,21,1,0)="This field is used to determine if pass medications are to be cancelled."
^DD(59,.15,23,0)="^^1^1^2921120^^"
^DD(59,.15,23,1,0)="set of codes"
^DD(59,.15,"DT")="2930323"
^DD(59,.16,0)="AUTO SUSPEND^S^1:YES;0:NO;^1;6^Q"
^DD(59,.16,3)="Enter yes to automatically suspend a prescription to the proper fill date."
^DD(59,.16,20,0)="^.3LA^1^1"
^DD(59,.16,20,1,0)="PSO"
^DD(59,.16,21,0)="^^3^3^2921228^^"
^DD(59,.16,21,1,0)="This field is used to determine if medication that is refilled or renewed"
^DD(59,.16,21,2,0)="before the next possible fill date is to be placed "
^DD(59,.16,21,3,0)="in suspense automatically."
^DD(59,.16,23,0)="^^1^1^2921109^"
^DD(59,.16,23,1,0)="set of codes"
^DD(59,.16,"DT")="2930323"
^DD(59,.17,0)="SHALL COMPUTER ASSIGN RX #S^S^1:YES;0:NO;^1;7^Q"
^DD(59,.17,3)="Enter yes to have prescription numbers automatically generated by the computer."
^DD(59,.17,21,0)="^^2^2^2921228^^"
^DD(59,.17,21,1,0)="This field is used to determine if the computer will auto generate"
^DD(59,.17,21,2,0)="prescription numbers."
^DD(59,.17,23,0)="^^1^1^2921109^"
^DD(59,.17,23,1,0)="set of codes"
^DD(59,.17,"DT")="2930323"
^DD(59,.18,0)="PROFILE WITH NEW PRESCRIPTIONS^S^1:YES;0:NO;^1;8^Q"
^DD(59,.18,3)="Enter yes to have a profile printed with labels for new prescriptions."
^DD(59,.18,20,0)="^.3LA^1^1"
^DD(59,.18,20,1,0)="PSO"
^DD(59,.18,21,0)="^^2^2^2930121^^^"
^DD(59,.18,21,1,0)="This field is used to determine if medication profiles are printed when"
^DD(59,.18,21,2,0)="new medication is ordered."
^DD(59,.18,23,0)="^^1^1^2930121^^"
^DD(59,.18,23,1,0)="set of codes"
^DD(59,.18,"DT")="2930323"
^DD(59,.2,0)="SLAVED LABEL PRINTING^S^1:YES;0:NO;^1;26^Q"
^DD(59,.2,3)="Enter '1' for Yes if slaved printing of Rx labels will be allowed."
^DD(59,.2,20,0)="^.3LA^1^1"
^DD(59,.2,20,1,0)="PSO"
^DD(59,.2,21,0)="^^4^4^2921109^^^"
^DD(59,.2,21,1,0)="This field will be used to allow printing of RX labels without being"
^DD(59,.2,21,2,0)="able to queue to a printer.  This parameter is primarily for slaved"
^DD(59,.2,21,3,0)="printing of RX labels.  If 'yes' is the answer the prompt for action"
^DD(59,.2,21,4,0)="to be taken on the label will include the '/PRINT' action."
^DD(59,.2,23,0)="^^1^1^2921109^^^"
^DD(59,.2,23,1,0)="set of codes"
^DD(59,.2,"DT")="2920603"
^DD(59,.51,0)="METHADONE PROGRAM^S^0:NO;1:YES;^5;1^Q"
^DD(59,.51,3)="Enter 'Yes' if your site has a Methadone Program."
^DD(59,.51,20,0)="^.3LA^1^1"
^DD(59,.51,20,1,0)="PSO"
^DD(59,.51,21,0)="^^2^2^2930121^^^^"
^DD(59,.51,21,1,0)="This field will be used to determine if the site has a methadone program "
^DD(59,.51,21,2,0)="and if a particular drug should be prompted for."
^DD(59,.51,23,0)="^^1^1^2930121^^^^"
^DD(59,.51,23,1,0)="set of codes"
^DD(59,.51,"DT")="2890602"
^DD(59,.52,0)="METHADONE DRUG^*P50'^PSDRUG(^5;2^S DIC(""S"")=""I $P(^(0),""""^"""")[""""METHADONE"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59,.52,3)="Enter the name of the particular form of Methadone given in the Methadone program."
^DD(59,.52,12)="Drug name must contain METHADONE"
^DD(59,.52,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""")[""""METHADONE"""""""
^DD(59,.52,20,0)="^.3LA^1^1"
^DD(59,.52,20,1,0)="PSO"
^DD(59,.52,21,0)="^^2^2^2921109^"
^DD(59,.52,21,1,0)="This field will be used to show what drug is being used if the site has a "
^DD(59,.52,21,2,0)="methadone program."
^DD(59,.52,23,0)="^^1^1^2921109^"
^DD(59,.52,23,1,0)="pointer"
^DD(59,.52,"DT")="2920512"
^DD(59,1,0)="*SITE DEA NUMBER^F^^SAND;1^K:$L(X)>9!($L(X)<9)!'(X?2U7N) X"
^DD(59,1,3)="Answer must be 9 characters in length.  Two alpha characters followed by 7 digits."
^DD(59,1,21,0)="^^5^5^2960809^^^^"
^DD(59,1,21,1,0)="THIS FIELD IS NO LONGER USED!  CLOZAPINE DATA ROLLUP HAS BEEN TAKEN OVER"
^DD(59,1,21,2,0)="BY THE MENTAL HEALTH PACKAGE."
^DD(59,1,21,3,0)=" "
^DD(59,1,21,4,0)="This field will be used to indicate the Drug Enforcement Agency ID "
^DD(59,1,21,5,0)="number for this site."
^DD(59,1,23,0)="^^1^1^2960809^^^^"
^DD(59,1,23,1,0)="free text."
^DD(59,1,"DT")="2960809"
^DD(59,2,0)="*SITE (NATIONAL NAME)^P736'^QIP(736,^SAND;2^Q"
^DD(59,2,3)="Enter Site's National Name."
^DD(59,2,21,0)="^^4^4^2960809^^^"
^DD(59,2,21,1,0)="THIS FIELD IS NO LONGER USED!  CLOZAPINE DATA ROLLUP HAS BEEN TAKEN OVER"
^DD(59,2,21,2,0)="BY THE MENTAL HEALTH PACKAGE."
^DD(59,2,21,3,0)=" "
^DD(59,2,21,4,0)="This identifies the site by linking it to an entry in file 736."
^DD(59,2,23,0)="^^1^1^2960809^^^"
^DD(59,2,23,1,0)="pointer"
^DD(59,2,"DT")="2960809"
^DD(59,3,0)="DAYS TO PULL FROM SUSPENSE^NJ2,0^^1;27^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,3,3)="Enter the number of days to pull a patient's medication from suspense for this division.  Enter a number between 0 and 10."
^DD(59,3,21,0)="^^4^4^2920610^^"
^DD(59,3,21,1,0)="This field will be used to pull a patient's medication from suspense for"
^DD(59,3,21,2,0)="a specified number of days.  The day range is from 0 to 10."
^DD(59,3,21,3,0)=" "
^DD(59,3,21,4,0)="THIS NUMBER IS DIVISION SPECIFIC."
^DD(59,3,23,0)="^^1^1^2920610^^"
^DD(59,3,23,1,0)="number."
^DD(59,3,"DT")="2920610"
^DD(59,3.1,0)="DAYS TO PULL SUSPENDED CS CMOP^NJ2,0^^1;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,3.1,3)="Enter the number of days to pull a patient's controlled substances from suspense for this division.  Enter a number between 0 and 10."
^DD(59,3.1,21,0)="^^3^3^2991202^"
^DD(59,3.1,21,1,0)="This field will be used to pull a patient's controlled substances from"
^DD(59,3.1,21,2,0)="suspense for CMOP medications for a specified number of days.  The range"
^DD(59,3.1,21,3,0)="is between 0 and 10."
^DD(59,3.1,"DT")="2991202"
^DD(59,4,0)="NEW LABEL STOCK^S^1:YES;0:NO;^1;28^Q"
^DD(59,4,3)="If new medication label stock will be used enter '1' for Yes."
^DD(59,4,20,0)="^.3LA^1^1"
^DD(59,4,20,1,0)="PSO"
^DD(59,4,21,0)="^^2^2^2920612^"
^DD(59,4,21,1,0)="This field will be used to determine which medication label stock will"
^DD(59,4,21,2,0)="be used."
^DD(59,4,23,0)="^^1^1^2920612^"
^DD(59,4,23,1,0)="set.  not required."
^DD(59,4,"DT")="2920612"
^DD(59,5,0)="EXTERNAL INTERFACE^S^0:INTERFACE TURNED OFF;1:SEND ALL ORDERS AND PRINT LABEL;2:SEND ALL ORDERS AND DON'T PRINT LABEL;3:SEND MARKED ORDERS AND DON'T PRINT;4:SEND MARKED ORDERS AND PRINT LABEL;^1;30^Q"
^DD(59,5,21,0)="^.001^10^10^3040304^^^^"
^DD(59,5,21,1,0)="This field allows sites to alter the characteristics of the external"
^DD(59,5,21,2,0)="interface. The Set of Codes field have the following values:"
^DD(59,5,21,3,0)=" "
^DD(59,5,21,4,0)="0 - the external interface is off"
^DD(59,5,21,5,0)="1 - send all drugs to the external interface; print labels locally"
^DD(59,5,21,6,0)="2 - send all drugs to the external interface; don't print labels locally"
^DD(59,5,21,7,0)="3 - send only marked drugs to the external interface; don't print labels"
^DD(59,5,21,8,0)="    locally"
^DD(59,5,21,9,0)="4 - send only marked drugs to external interface and print labels through"
^DD(59,5,21,10,0)="    VistA."
^DD(59,5,23,0)="^.001^10^10^3040304^^^^"
^DD(59,5,23,1,0)="This is a Set of Codes field that gives the sites the ability to alter the"
^DD(59,5,23,2,0)="characteristics of the external interface. The values are:"
^DD(59,5,23,3,0)=" "
^DD(59,5,23,4,0)="0 - the external interface is off"
^DD(59,5,23,5,0)="1 - send all orders to the external interface; print labels locally"
^DD(59,5,23,6,0)="2 - send all orders to the external interface; don't print labels locally"
^DD(59,5,23,7,0)="3 - send only marked orders to the external interface; don't print labels"
^DD(59,5,23,8,0)="    locally"
^DD(59,5,23,9,0)="4 - send only marked drugs to external interface and print labels through"
^DD(59,5,23,10,0)="    VistA."
^DD(59,5,"DT")="3040304"
^DD(59,6,0)="BLANK LABEL BETWEEN PATIENTS^S^0:NO;1:YES;^1;31^Q"
^DD(59,6,21,0)="^^2^2^2980204^^^"
^DD(59,6,21,1,0)="This field will determine if a blank label should print between patients"
^DD(59,6,21,2,0)="on the label printers."
^DD(59,6,"DT")="2970809"
^DD(59,7,0)="VERIFYING PHARMACIST ON LABELS^S^1:YES;^1;32^Q"
^DD(59,7,3)="Enter Yes to print the Verifying Pharmacist number on Outpatient labels."
^DD(59,7,21,0)="^^4^4^2980923^^^^"
^DD(59,7,21,1,0)="This site parameter will determine if the name of the verifying pharmacist "
^DD(59,7,21,2,0)="or the name of the person who made the order request will print on the"
^DD(59,7,21,3,0)="Rx label.  If the parameter is set to Yes the verifying pharmacist name"
^DD(59,7,21,4,0)="will print."
^DD(59,7,23,0)="^^1^1^2980923^^"
^DD(59,7,23,1,0)="set of codes"
^DD(59,7,"DT")="2980916"
^DD(59,8,0)="CPRS ORDERING INSTITUTION^59.08P^^INI1;0"
^DD(59,8,21,0)="^^2^2^2980827^^^^"
^DD(59,8,21,1,0)="These are the Institutions of CPRS Pending orders that can be completed"
^DD(59,8,21,2,0)="when signed in under this Outpatient site."
^DD(59,8,23,0)="^^1^1^2980827^^^^"
^DD(59,8,23,1,0)="These are pointers to the Institution (#4) file."
^DD(59,100,0)="RELATED INSTITUTION^RP4'^DIC(4,^INI;1^Q"
^DD(59,100,1,0)="^.1"
^DD(59,100,1,1,0)="59^D"
^DD(59,100,1,1,1)="S ^PS(59,""D"",$E(X,1,30),DA)="""""
^DD(59,100,1,1,2)="K ^PS(59,""D"",$E(X,1,30),DA)"
^DD(59,100,21,0)="^^1^1^2971023^"
^DD(59,100,21,1,0)="Institution associated with the site."
^DD(59,100,"DT")="2890616"
^DD(59,101,0)="NPI INSTITUTION^P4'^DIC(4,^INI;2^Q"
^DD(59,101,3)="Enter 'Y' if your site will be using the multi-RX turn-around document."
^DD(59,101,21,0)="^.001^1^1^3070320^^^^"
^DD(59,101,21,1,0)="The value in the field should point to the entry in the INSTITUTION file (#4) that contains the NPI number for the dispensing pharmacy for this Outpatient Pharmacy division."
^DD(59,101,23,0)="^.001^7^7^3070320^^^^"
^DD(59,101,23,1,0)="This field points to the corresponding entry in the INSTITUTION file (#4) for this Outpatient Site entry. This field was created for two reasons: "
^DD(59,101,23,2,0)=" "
^DD(59,101,23,3,0)="1) Avoid the creation of a new field on this file to store the NPI (National   Provider Identification) number and keep it at the institution level. The INSTITUTION file (#4) is being updated along with the introduction of this new field to"
^DD(59,101,23,4,0)="make sure that each entry in the OUTPATIENT SITE (#59) file has an unique corresponding entry in that file.  "
^DD(59,101,23,5,0)=" "
^DD(59,101,23,6,0)="2) Eventually replace the RELATED INSTITUTION field (#100), which has been   used in different ways by different VA Medical Centers. The NPI INSTITUTION (#101) will establish a consistent relationship between the OUTPATIENT SITE"
^DD(59,101,23,7,0)="(#59) and INSTITUTION (#4) files across the VA."
^DD(59,101,"DT")="3070309"
^DD(59,105,0)="AUTOMATED DISPENSE^S^0:Less than V2.4;2.4:HL7 V.2.4;^DISP;1^Q"
^DD(59,105,3)="Enter a zero if HL7 version is less than 2.4 and 2.4 if external interface is running HL7 V.2.4"
^DD(59,105,21,0)="^^3^3^3040122^"
^DD(59,105,21,1,0)="This field will determine what version of the automated dispense machine "
^DD(59,105,21,2,0)="this site is running.  If the machine is older than HL7 V.2.4, enter "
^DD(59,105,21,3,0)="letter O, if HL7 V.2.4 has been installed, enter 2.4."
^DD(59,105,"DT")="3040308"
^DD(59,105.1,0)="FILE RELEASE DATE/TIME^S^1:YES;^DISP;2^Q"
^DD(59,105.1,21,0)="^^2^2^3040218^"
^DD(59,105.1,21,1,0)="This field is used to indicate if the release date/time is to be filed for"
^DD(59,105.1,21,2,0)="the prescription dispensed by an external interface."
^DD(59,105.1,"DT")="3040218"
^DD(59,105.2,0)="ENABLE MASTER FILE UPDATE^S^N:NO;Y:YES;^DISP;3^Q"
^DD(59,105.2,3)="Enter a Y if the automated dispense machines is ready to receive the Master File Update"
^DD(59,105.2,21,0)="^^2^2^3040408^^"
^DD(59,105.2,21,1,0)="This field will determine if the automated dispense machines are ready to "
^DD(59,105.2,21,2,0)="receive HL7 V.2.4 messages."
^DD(59,105.2,"DT")="3040414"
^DD(59,107,0)="SCRIPTALK DEVICE^P3.5'^%ZIS(1,^STALK;1^Q"
^DD(59,107,3)="Enter ScripTalk Device."
^DD(59,107,21,0)="^^2^2^3030613^"
^DD(59,107,21,1,0)="This field contains a pointer to the ScripTalk printer device in the "
^DD(59,107,21,2,0)="device file."
^DD(59,107,"DT")="3030613"
^DD(59,107.1,0)="SCRIPTALK AUTO-PRINT SETTINGS^S^A:AUTO PRINT;M:MANUAL PRINT;^STALK;2^Q"
^DD(59,107.1,3)="Enter 'A' if ScripTalk label printing should be automatic, ""M"" if label will be queued manually."
^DD(59,107.1,21,0)="^^3^3^3030613^"
^DD(59,107.1,21,1,0)="Set this to 'A' to have a ScripTalk label automatically print for "
^DD(59,107.1,21,2,0)="ScripTalk-enrolled patients whenever their regular medication label "
^DD(59,107.1,21,3,0)="prints. Set to 'M' if ScripTalk labels will be printed manually."
^DD(59,107.1,"DT")="3030613"
^DD(59,109,0)="LABEL/PROFILE MONITOR MAX^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(59,109,3)="Type a Number between 1000 and 999999, 0 Decimal Digits"
^DD(59,109,21,0)="^^6^6^3040406^"
^DD(59,109,21,1,0)="Maximum number of label/profiles to be stored in the Label/Profile"
^DD(59,109,21,2,0)="Monitor list for each printer device.  The default and minimum value"
^DD(59,109,21,3,0)="for this number is 1000.  Each time the printer is used an entry is"
^DD(59,109,21,4,0)="made in the Label/Profile monitor and if the monitor holds more"
^DD(59,109,21,5,0)="entries than specified by this parameter, the oldest entry is"
^DD(59,109,21,6,0)="deleted."
^DD(59,109,"DT")="3040406"
^DD(59,1000,0)="NARCOTICS NUMBERED DIFFERENTLY^RS^1:YES;0:NO;^2;1^Q"
^DD(59,1000,4)=""
^DD(59,1000,21,0)="^^2^2^2921109^"
^DD(59,1000,21,1,0)="This field is used to determine if narcotics will be numbered differently"
^DD(59,1000,21,2,0)="from other medications/supplies."
^DD(59,1000,23,0)="^^1^1^2921109^"
^DD(59,1000,23,1,0)="set of codes"
^DD(59,1000,"DT")="2890616"
^DD(59,1001,0)="NARCOTIC LOWER BOUND^RNJ9,0^^3;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,1001,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(59,1001,20,0)="^.3LA^1^1"
^DD(59,1001,20,1,0)="PSO"
^DD(59,1001,21,0)="^^3^3^2930121^^^"
^DD(59,1001,21,1,0)="This field is used to determine what prescription numbers narcotics are to"
^DD(59,1001,21,2,0)="start with if narcotics are numbered differently from other "
^DD(59,1001,21,3,0)="prescriptions/supplies."
^DD(59,1001,23,0)="^^1^1^2930121^^^"
^DD(59,1001,23,1,0)="numeric"
^DD(59,1002,0)="NARCOTIC UPPER BOUND^RNJ9,0^^3;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,1002,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(59,1002,20,0)="^.3LA^1^1"
^DD(59,1002,20,1,0)="PSO"
^DD(59,1002,21,0)="^^3^3^2921109^"
^DD(59,1002,21,1,0)="This field is used to determine the highest prescription number used for"
^DD(59,1002,21,2,0)="narcotics if this type of medication is numbered differently from"
^DD(59,1002,21,3,0)="other medications/supplies."
^DD(59,1002,23,0)="^^1^1^2921109^"
^DD(59,1002,23,1,0)="numeric"
^DD(59,1002.1,0)="LAST NARCOTIC NUMBER ISSUED^RNJ9,0^^3;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,1002.1,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(59,1002.1,21,0)="^^1^1^2930317^^"
^DD(59,1002.1,21,1,0)="This field is used to indicate last number issued for narcotic medications."
^DD(59,1002.1,"DT")="2920511"
^DD(59,1003,0)="IB SERVICE/SECTION^RP49'X^DIC(49,^IB;1^I $D(X) S Y=X S PSOIBSER=$$SERV^IBARX1(+Y) D:PSOIBSER=0 IBSS^PSOUTL K:PSOIBSER=0 X K PSOIBSER"
^DD(59,1003,21,0)="^^2^2^2910422^"
^DD(59,1003,21,1,0)="Select the appropriate entry in the Service/Section file (#49) that is"
^DD(59,1003,21,2,0)="to be used for the Pharmacy Copayment/Integrated Billing procedures."
^DD(59,1003,"DT")="2950829"
^DD(59,1004,0)="NARRATIVE FOR COPAY DOCUMENT^59.01004^^4;0"
^DD(59,1004,21,0)="^^4^4^2911015^^^^"
^DD(59,1004,21,1,0)="This field contains information from the site regarding the copayment"
^DD(59,1004,21,2,0)="procedures for the patient to follow upon receipt of the copay document."
^DD(59,1004,21,3,0)="For example, information may include a telephone number to call regarding"
^DD(59,1004,21,4,0)="billing inquiries, a payment mailing address, etc."
^DD(59,1004,"DT")="2910910"
^DD(59,1005,0)="NARRATIVE REFILLABLE RX^59.01005^^6;0"
^DD(59,1005,21,0)="^^3^3^2930104^^^"
^DD(59,1005,21,1,0)="This field contains information from the site regarding procedures for"
^DD(59,1005,21,2,0)="the patient to obtain a refill of his refillable medication. May include"
^DD(59,1005,21,3,0)="the address, phone number, etc. that will assist the patient."
^DD(59,1005,23,0)="^^1^1^2921110^^"
^DD(59,1005,23,1,0)="Word processing field."
^DD(59,1005,"DT")="2921013"
^DD(59,1006,0)="NARRATIVE NON-REFILLABLE RX^59.01006^^7;0"
^DD(59,1006,21,0)="^^4^4^2930104^^"
^DD(59,1006,21,1,0)="This field contains information from the site regarding procedures for"
^DD(59,1006,21,2,0)="the patient to obtain a new prescription for his non-refillable "
^DD(59,1006,21,3,0)="medication. This field may contain address, phone number, etc that will"
^DD(59,1006,21,4,0)="assist the patient."
^DD(59,1007,0)="CHARGE LOCATION^P44'^SC(^PFS;1^Q"
^DD(59,1007,3)="Enter a valid location."
^DD(59,1007,21,0)="^.001^3^3^3051024^^^^"
^DD(59,1007,21,1,0)="This field is a pointer to the Hospital Location File (#44)."
^DD(59,1007,21,2,0)="Multi-division sites should populate this field for each division. This"
^DD(59,1007,21,3,0)="data could be obtained from the Business Office of the Medical Center."
^DD(59,1007,23,0)="^.001^5^5^3051024^^^^"
^DD(59,1007,23,1,0)="This field is a pointer to the Hospital Location File (#44). PFSS project "
^DD(59,1007,23,2,0)="requires this field to be defined as all packages involved have a similar "
^DD(59,1007,23,3,0)="pointer defined except Outpatient Pharmacy. It is needed for the HL7 "
^DD(59,1007,23,4,0)="messaging to an external billing system and to facilitate a standardized"
^DD(59,1007,23,5,0)="method for VDEF to retrieve the Charge Location using a generic API."
^DD(59,1007,"DEL",1,0)="I 1 D EN^DDIOL(""Charge Location cannot be deleted!"","""",""$C(7),!?5"")"
^DD(59,1007,"DT")="3050725"
^DD(59,1008,0)="NCPDP NUMBER^F^^SAND;3^K:$L(X)>7!($L(X)<7)!'(X?7N) X"
^DD(59,1008,.1)=""
^DD(59,1008,3)="Enter the 7-digit number for this site, padding with leading 0's if needed."
^DD(59,1008,4)=""
^DD(59,1008,21,0)="^^3^3^3050817^"
^DD(59,1008,21,1,0)="This field is the site-specific National Council for Prescription Drug "
^DD(59,1008,21,2,0)="Programs number (NCPDP), formerly referred to as the National Association "
^DD(59,1008,21,3,0)="of Boards of Pharmacy Number (NABP)."
^DD(59,1008,23,0)="^^3^3^3050825^"
^DD(59,1008,23,1,0)="This field is the site-specific National Council for Prescription Drug "
^DD(59,1008,23,2,0)="Programs number (NCPDP), formerly referred to as the National Association "
^DD(59,1008,23,3,0)="of Boards of Pharmacy Number (NABP)."
^DD(59,1008,"DT")="3050825"
^DD(59,2001,0)="PRESCRIPTION # LOWER BOUND^RNJ9,0^^8;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,2001,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(59,2001,4)="D 2001^PSOHELP1"
^DD(59,2001,21,0)="^^1^1^2921109^^^"
^DD(59,2001,21,1,0)="This field is used to enter the lowest prescription number for this site."
^DD(59,2001,23,0)="^^1^1^2921109^^^"
^DD(59,2001,23,1,0)="Numeric data type field. "
^DD(59,2002,0)="PRESCRIPTION # UPPER BOUND^RNJ9,0^^8;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,2002,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(59,2002,4)="D 2002^PSOHELP1"
^DD(59,2002,21,0)="^^1^1^2921109^^^^"
^DD(59,2002,21,1,0)="This field is used to enter the highest presciption number for this site."
^DD(59,2002,23,0)="^^1^1^2921109^^^^"
^DD(59,2002,23,1,0)="Numeric data type."
^DD(59,2003,0)="LAST PRESCRIPTION # ISSUED^RNJ9,0^^8;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59,2003,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(59,2003,4)="D 2003^PSOHELP1"
^DD(59,2003,21,0)="^^1^1^2920325^"
^DD(59,2003,21,1,0)="This field is used to store the last RX number used."
^DD(59,2003,23,0)="^^1^1^2920325^"
^DD(59,2003,23,1,0)="Numeric data type."
^DD(59,2004,0)="INACTIVE DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59,2004,3)="Enter the date that will inactivate the Outpatient Site. The Outpatient Site will no longer be selectable through Pharmacy options after the date entered."
^DD(59,2004,21,0)="^^2^2^2991109^^^^"
^DD(59,2004,21,1,0)="This date will indicate that the Outpatient Site is no longer active,"
^DD(59,2004,21,2,0)="and cannot be selected through the Outpatient Pharmacy options."
^DD(59,2004,23,0)="^^1^1^2991109^"
^DD(59,2004,23,1,0)="This is a date field, not required, used to inactivate an Outpatient Site."
^DD(59,2004,"DT")="2991109"
^DD(59,2005,0)="LOGICAL LINK^P870'^HLCS(870,^8;4^Q"
^DD(59,2005,3)="Top level link that will be used to exchange messages with an external application."
^DD(59,2005,21,0)="^^9^9^3010920^^"
^DD(59,2005,21,1,0)="This is a pointer to the Logical Link file (#870).  This link is used to"
^DD(59,2005,21,2,0)="transmit messages to an external (client) application.  This field is not"
^DD(59,2005,21,3,0)="filled in when messages are exchanged between DHCP applications on the"
^DD(59,2005,21,4,0)="same system. This field will be used as the Logical Link for the"
^DD(59,2005,21,5,0)="prescription if there is no Clinic associated with the prescription, or if"
^DD(59,2005,21,6,0)="there is a Clinic associated with the prescription, but the Institution"
^DD(59,2005,21,7,0)="derived from that Clinic does not have an entry in the CPRS ORDERING"
^DD(59,2005,21,8,0)="INSTITUTION multiple with an associated Logical Link for that Outpatient"
^DD(59,2005,21,9,0)="Site entry."
^DD(59,2005,"DT")="3010920"
^DD(59,2006,0)="DISPENSE DNS NAME^F^^8;5^K:$L(X)>50!($L(X)<1) X"
^DD(59,2006,3)="Answer must be 1-50 characters in length"
^DD(59,2006,21,0)="^^2^2^3040420^"
^DD(59,2006,21,1,0)="THIS IS THE DNS COMPUTER NAME OF THE AUTOMATED DISPENSING MACHINE THAT IS "
^DD(59,2006,21,2,0)="USED FOR THIS OUTPATIENT SITE DIVISION."
^DD(59,2006,23,0)="^^3^3^3040420^"
^DD(59,2006,23,1,0)="YOUR IRM DEPARTMENT SHOULD HAVE THE INFORMATION OF THE DNS COMPUTER NAME "
^DD(59,2006,23,2,0)="OF THE AUTOMATED DISPENSING MACHINE THAT IS ATTACHED TO THIS OUTPATIENT "
^DD(59,2006,23,3,0)="PHARMACY SITE DIVISION."
^DD(59,2006,"DT")="3040428"
^DD(59,2007,0)="DISPENSE DNS PORT^NJ5,0^^8;6^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1.N) X"
^DD(59,2007,3)="Type a number between 1 and 65535, 0 Decimal Digits"
^DD(59,2007,21,0)="^^2^2^3040405^"
^DD(59,2007,21,1,0)="ENTER THE DNS PORT NUMBER ASSOCIATED WITH THE AUTOMATED DISPENSE MACHINE "
^DD(59,2007,21,2,0)="FOR THIS OUTPATIENT PHARMACY SITE DIVISION."
^DD(59,2007,23,0)="^^3^3^3040405^"
^DD(59,2007,23,1,0)="YOUR IRM DEPARTMENT SHOULD HAVE THE INFORMATION OF THE PORT NUMBER FOR "
^DD(59,2007,23,2,0)="THE AUTOMATED DISPENSE MACHINE ATTACHED TO THIS OUTPATIENT PHARMACY SITE "
^DD(59,2007,23,3,0)="DIVISION."
^DD(59,2007,"DT")="3060213"
^DD(59,2008,0)="DISPENSING SYSTEM PRINTER^59.02008P^^P;0"
^DD(59,2008,21,0)="^.001^3^3^3040714^^^^"
^DD(59,2008,21,1,0)="This field identifies the name of the dispensing system printer device."
^DD(59,2008,21,2,0)="When the user selects this printer device and the external interface"
^DD(59,2008,21,3,0)="is in use, an HL7 message will be generated."
^DD(59,2008,23,0)="^.001^1^1^3040714^^^^"
^DD(59,2008,23,1,0)="multiple and pointer to the Device file (#3.5)."
^DD(59,2008,"DT")="3040713"
^DD(59,2030,0)="PROCESS AUTO REFILLS FOR INPAT^S^1:YES;0:NO;^RF;1^Q"
^DD(59,2030,3)="Respond YES to have Rx refills, for an inpatient, processed by the scheduled Refill Automation job."
^DD(59,2030,21,0)="^^4^4^3070625^"
^DD(59,2030,21,1,0)="This flag should be set to Yes, only if the site wants the scheduled "
^DD(59,2030,21,2,0)="AUTO REFILL [PSO AUTO REFILL] option to process refills for patients"
^DD(59,2030,21,3,0)="who are currently an inpatient. The AUTO REFILL job defaults to NO unless"
^DD(59,2030,21,4,0)="the site has this flagged as YES."
^DD(59,2030,"DT")="3070625"
^DD(59,2035,0)="PROCESS AUTO REFILLS FOR CNH^S^1:YES;0:NO;^RF;2^Q"
^DD(59,2035,3)="Respond YES to have Rx refills, for Contract Nursing Home (CNH) patient, processed by the scheduled Refill Automation job."
^DD(59,2035,21,0)="^^4^4^3070625^"
^DD(59,2035,21,1,0)="This flag should be set to Yes, only if the site wants the scheduled"
^DD(59,2035,21,2,0)="AUTO REFILL [PSO AUTO REFILL] option to process refills for CNH patients."
^DD(59,2035,21,3,0)="The AUTO REFILL job defaults to NO unless the site has this flagged as"
^DD(59,2035,21,4,0)="YES."
^DD(59,2035,"DT")="3070625"
^DD(59,"B","*SITE (NATIONAL NAME)",2)=""
^DD(59,"B","*SITE DEA NUMBER",1)=""
^DD(59,"B","AREA CODE",.03)=""
^DD(59,"B","ASK METHOD OF PICKUP",.112)=""
^DD(59,"B","AUTO SUSPEND",.16)=""
^DD(59,"B","AUTOMATED DISPENSE",105)=""
^DD(59,"B","BARCODES ON ACTION PROFILES",.1191)=""
^DD(59,"B","BARCODES ON REQUEST FORMS",.119)=""
^DD(59,"B","BLANK LABEL BETWEEN PATIENTS",6)=""
^DD(59,"B","CANCEL DRUG IN SAME CLASS",.1)=""
^DD(59,"B","CHARGE LOCATION",1007)=""
^DD(59,"B","COPIES ON NEW",.115)=""
^DD(59,"B","CPRS ORDERING INSTITUTION",8)=""
^DD(59,"B","DAYS TO PULL FROM SUSPENSE",3)=""
^DD(59,"B","DAYS TO PULL SUSPENDED CS CMOP",3.1)=""
^DD(59,"B","DISPENSE DNS NAME",2006)=""
^DD(59,"B","DISPENSE DNS PORT",2007)=""
^DD(59,"B","DISPENSING SYSTEM PRINTER",2008)=""
^DD(59,"B","DISPLAY GROUP",.121)=""
^DD(59,"B","DRUG CHECK FOR CLERK",.116)=""
^DD(59,"B","EDIT DRUG",.13)=""
^DD(59,"B","EDIT PATIENT DATA",.123)=""
^DD(59,"B","ENABLE MASTER FILE UPDATE",105.2)=""
^DD(59,"B","EXTERNAL INTERFACE",5)=""
^DD(59,"B","FEE BASIS SUPPORT",.117)=""
^DD(59,"B","FILE RELEASE DATE/TIME",105.1)=""
^DD(59,"B","HOLD",.09)="1"
^DD(59,"B","HOLD FUNCTION?",.09)=""
^DD(59,"B","IB SERVICE/SECTION",1003)=""
^DD(59,"B","INACTIVE DATE",2004)=""
^DD(59,"B","LABEL/PROFILE MONITOR MAX",109)=""
^DD(59,"B","LAST NARCOTIC NUMBER ISSUED",1002.1)=""
^DD(59,"B","LAST PRESCRIPTION # ISSUED",2003)=""
^DD(59,"B","LOGICAL LINK",2005)=""
^DD(59,"B","MAILING COMMENTS",.081)=""
^DD(59,"B","MAILING FRANK CITY",.07)=""
^DD(59,"B","MAILING FRANK STATE",.08)=""
^DD(59,"B","MAILING FRANK STREET ADDRESS",.02)=""
^DD(59,"B","MAILING FRANK ZIP+4 CODE",.05)=""
^DD(59,"B","METHADONE DRUG",.52)=""
^DD(59,"B","METHADONE PROGRAM",.51)=""
^DD(59,"B","MULTI RX REQUEST FORM",.118)=""
^DD(59,"B","NAME",.01)=""
^DD(59,"B","NARCOTIC LOWER BOUND",1001)=""
^DD(59,"B","NARCOTIC UPPER BOUND",1002)=""
^DD(59,"B","NARCOTICS NUMBERED DIFFERENTLY",1000)=""
^DD(59,"B","NARRATIVE FOR COPAY DOCUMENT",1004)=""
^DD(59,"B","NARRATIVE NON-REFILLABLE RX",1006)=""
^DD(59,"B","NARRATIVE REFILLABLE RX",1005)=""
^DD(59,"B","NCPDP NUMBER",1008)=""
^DD(59,"B","NEW LABEL STOCK",4)=""
^DD(59,"B","NPI INSTITUTION",101)=""
^DD(59,"B","PASS MEDS CANCEL",.15)=""
^DD(59,"B","PASS MEDS ON PROFILE",.113)=""
^DD(59,"B","PHONE NUMBER",.04)=""
^DD(59,"B","PRESCRIPTION # LOWER BOUND",2001)=""
^DD(59,"B","PRESCRIPTION # UPPER BOUND",2002)=""
^DD(59,"B","PROCESS AUTO REFILLS FOR CNH",2035)=""
^DD(59,"B","PROCESS AUTO REFILLS FOR INPAT",2030)=""
^DD(59,"B","PROFILE WITH NEW PRESCRIPTIONS",.18)=""
^DD(59,"B","PROFILE `SORT BY' DEFAULT",.114)=""
^DD(59,"B","REFILL INACTIVE DRUG RXS",.111)=""
^DD(59,"B","RELATED INSTITUTION",100)=""
^DD(59,"B","RENEWING RX'S ALLOWED",.14)=""
^DD(59,"B","SCREEN PROFILES",.122)=""
^DD(59,"B","SCRIPTALK AUTO-PRINT SETTINGS",107.1)=""
^DD(59,"B","SCRIPTALK DEVICE",107)=""
^DD(59,"B","SHALL COMPUTER ASSIGN RX #S",.17)=""
^DD(59,"B","SITE NUMBER",.06)=""
^DD(59,"B","SLAVED LABEL PRINTING",.2)=""
^DD(59,"B","SUSPENSE",.091)="1"
^DD(59,"B","SUSPENSE FUNCTION?",.091)=""
^DD(59,"B","VERIFICATION",.12)=""
^DD(59,"B","VERIFYING PHARMACIST ON LABELS",7)=""
^DD(59,"GL",0,1,.01)=""
^DD(59,"GL",0,2,.02)=""
^DD(59,"GL",0,3,.03)=""
^DD(59,"GL",0,4,.04)=""
^DD(59,"GL",0,5,.05)=""
^DD(59,"GL",0,6,.06)=""
^DD(59,"GL",0,7,.07)=""
^DD(59,"GL",0,8,.08)=""
^DD(59,"GL",0,9,109)=""
^DD(59,"GL",1,1,.1191)=""
^DD(59,"GL",1,2,.12)=""
^DD(59,"GL",1,3,.13)=""
^DD(59,"GL",1,4,.14)=""
^DD(59,"GL",1,5,.15)=""
^DD(59,"GL",1,6,.16)=""
^DD(59,"GL",1,7,.17)=""
^DD(59,"GL",1,8,.18)=""
^DD(59,"GL",1,9,3.1)=""
^DD(59,"GL",1,10,.1)=""
^DD(59,"GL",1,11,.111)=""
^DD(59,"GL",1,12,.112)=""
^DD(59,"GL",1,13,.113)=""
^DD(59,"GL",1,14,.114)=""
^DD(59,"GL",1,15,.115)=""
^DD(59,"GL",1,16,.116)=""
^DD(59,"GL",1,17,.117)=""
^DD(59,"GL",1,18,.118)=""
^DD(59,"GL",1,19,.119)=""
^DD(59,"GL",1,20,.121)=""
^DD(59,"GL",1,21,.122)=""
^DD(59,"GL",1,22,.123)=""
^DD(59,"GL",1,23,.09)=""
^DD(59,"GL",1,24,.091)=""
^DD(59,"GL",1,26,.2)=""
^DD(59,"GL",1,27,3)=""
^DD(59,"GL",1,28,4)=""
^DD(59,"GL",1,30,5)=""
^DD(59,"GL",1,31,6)=""
^DD(59,"GL",1,32,7)=""
^DD(59,"GL",2,1,1000)=""
^DD(59,"GL",3,1,1001)=""
^DD(59,"GL",3,2,1002)=""
^DD(59,"GL",3,3,1002.1)=""
^DD(59,"GL",4,0,1004)=""
^DD(59,"GL",5,1,.51)=""
^DD(59,"GL",5,2,.52)=""
^DD(59,"GL",6,0,1005)=""
^DD(59,"GL",7,0,1006)=""
^DD(59,"GL",8,1,2001)=""
^DD(59,"GL",8,2,2002)=""
^DD(59,"GL",8,3,2003)=""
^DD(59,"GL",8,4,2005)=""
^DD(59,"GL",8,5,2006)=""
^DD(59,"GL",8,6,2007)=""
^DD(59,"GL",9,1,.081)=""
^DD(59,"GL","DISP",1,105)=""
^DD(59,"GL","DISP",2,105.1)=""
^DD(59,"GL","DISP",3,105.2)=""
^DD(59,"GL","I",1,2004)=""
^DD(59,"GL","IB",1,1003)=""
^DD(59,"GL","INI",1,100)=""
^DD(59,"GL","INI",2,101)=""
^DD(59,"GL","INI1",0,8)=""
^DD(59,"GL","P",0,2008)=""
^DD(59,"GL","PFS",1,1007)=""
^DD(59,"GL","RF",1,2030)=""
^DD(59,"GL","RF",2,2035)=""
^DD(59,"GL","SAND",1,1)=""
^DD(59,"GL","SAND",2,2)=""
^DD(59,"GL","SAND",3,1008)=""
^DD(59,"GL","STALK",1,107)=""
^DD(59,"GL","STALK",2,107.1)=""
^DD(59,"GR","PS",.114,1)=""
^DD(59,"GR","PS",.123,1)=""
^DD(59,"GR","PSO",.02,1)=""
^DD(59,"GR","PSO",.04,1)=""
^DD(59,"GR","PSO",.05,1)=""
^DD(59,"GR","PSO",.06,1)=""
^DD(59,"GR","PSO",.07,1)=""
^DD(59,"GR","PSO",.08,1)=""
^DD(59,"GR","PSO",.09,1)=""
^DD(59,"GR","PSO",.091,1)=""
^DD(59,"GR","PSO",.113,1)=""
^DD(59,"GR","PSO",.115,1)=""
^DD(59,"GR","PSO",.116,1)=""
^DD(59,"GR","PSO",.118,1)=""
^DD(59,"GR","PSO",.119,1)=""
^DD(59,"GR","PSO",.12,1)=""
^DD(59,"GR","PSO",.121,1)=""
^DD(59,"GR","PSO",.122,1)=""
^DD(59,"GR","PSO",.13,1)=""
^DD(59,"GR","PSO",.14,1)=""
^DD(59,"GR","PSO",.15,1)=""
^DD(59,"GR","PSO",.16,1)=""
^DD(59,"GR","PSO",.18,1)=""
^DD(59,"GR","PSO",.2,1)=""
^DD(59,"GR","PSO",.51,1)=""
^DD(59,"GR","PSO",.52,1)=""
^DD(59,"GR","PSO",4,1)=""
^DD(59,"GR","PSO",1001,1)=""
^DD(59,"GR","PSO",1002,1)=""
^DD(59,"IX",.01)=""
^DD(59,"IX",.06)=""
^DD(59,"IX",100)=""
^DD(59,"RQ",.01)=""
^DD(59,"RQ",.06)=""
^DD(59,"RQ",100)=""
^DD(59,"RQ",1000)=""
^DD(59,"RQ",1001)=""
^DD(59,"RQ",1002)=""
^DD(59,"RQ",1002.1)=""
^DD(59,"RQ",1003)=""
^DD(59,"RQ",2001)=""
^DD(59,"RQ",2002)=""
^DD(59,"RQ",2003)=""
^DD(59,"SB",59.01004,1004)=""
^DD(59,"SB",59.01005,1005)=""
^DD(59,"SB",59.01006,1006)=""
^DD(59,"SB",59.02008,2008)=""
^DD(59,"SB",59.08,8)=""
^DD(59.01004,0)="NARRATIVE FOR COPAY DOCUMENT SUB-FIELD^^.01^1"
^DD(59.01004,0,"DT")="2910612"
^DD(59.01004,0,"NM","NARRATIVE FOR COPAY DOCUMENT")=""
^DD(59.01004,0,"UP")="59"
^DD(59.01004,.01,0)="NARRATIVE FOR COPAY DOCUMENT^W^^0;1^Q"
^DD(59.01004,.01,3)="Enter information you wish to be printed on the COPAY document."
^DD(59.01004,.01,21,0)="^^4^4^2911015^^^^"
^DD(59.01004,.01,21,1,0)="This field contains information from the site regarding the copayment"
^DD(59.01004,.01,21,2,0)="procedures for the patient to follow upon receipt of the copay document."
^DD(59.01004,.01,21,3,0)="For example, information may include a telephone number to call regarding"
^DD(59.01004,.01,21,4,0)="billing inquiries, a payment mailing address, etc."
^DD(59.01004,.01,"DT")="2910910"
^DD(59.01004,"B","NARRATIVE FOR COPAY DOCUMENT",.01)=""
^DD(59.01004,"GL",0,1,.01)=""
^DD(59.01005,0)="NARRATIVE REFILLABLE RX SUB-FIELD^^.01^1"
^DD(59.01005,0,"DT")="2921013"
^DD(59.01005,0,"NM","NARRATIVE REFILLABLE RX")=""
^DD(59.01005,0,"UP")="59"
^DD(59.01005,.01,0)="NARRATIVE REFILLABLE RX^W^^0;1^Q"
^DD(59.01005,.01,3)="Enter patient instructions for REFILLABLE Rx's."
^DD(59.01005,.01,21,0)="^^1^1^2930104^"
^DD(59.01005,.01,21,1,0)="This narrative is used to inform the patient about refillable medications."
^DD(59.01005,.01,23,0)="^^1^1^2930104^"
^DD(59.01005,.01,23,1,0)="word-processing"
^DD(59.01005,.01,"DT")="2921013"
^DD(59.01005,"B","NARRATIVE REFILLABLE RX",.01)=""
^DD(59.01005,"GL",0,1,.01)=""
^DD(59.01006,0)="NARRATIVE NON-REFILLABLE RX SUB-FIELD^^.01^1"
^DD(59.01006,0,"DT")="2921013"
^DD(59.01006,0,"NM","NARRATIVE NON-REFILLABLE RX")=""
^DD(59.01006,0,"UP")="59"
^DD(59.01006,.01,0)="NARRATIVE NON-REFILLABLE RX^W^^0;1^Q"
^DD(59.01006,.01,3)="Enter patient instructions for NON-REFILLABLE Rx's."
^DD(59.01006,.01,21,0)="^^1^1^2930104^"
^DD(59.01006,.01,21,1,0)="This narrative is used to inform the patient of non-fillable medications."
^DD(59.01006,.01,23,0)="^^1^1^2930104^"
^DD(59.01006,.01,23,1,0)="word-processing."
^DD(59.01006,.01,"DT")="2921013"
^DD(59.01006,"B","NARRATIVE NON-REFILLABLE RX",.01)=""
^DD(59.01006,"GL",0,1,.01)=""
^DD(59.02008,0)="DISPENSING SYSTEM PRINTER SUB-FIELD^^.01^1"
^DD(59.02008,0,"DT")="3040527"
^DD(59.02008,0,"IX","B",59.02008,.01)=""
^DD(59.02008,0,"NM","DISPENSING SYSTEM PRINTER")=""
^DD(59.02008,0,"UP")="59"
^DD(59.02008,.01,0)="DISPENSING SYSTEM PRINTER^M*P3.5'^%ZIS(1,^0;1^S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.02008,.01,1,0)="^.1^^-1"
^DD(59.02008,.01,1,1,0)="59.02008^B"
^DD(59.02008,.01,1,1,1)="S ^PS(59,DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(59.02008,.01,1,1,2)="K ^PS(59,DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(59.02008,.01,3)="This field identifies the name of the printer(s) that, when selected, and the interface is in use, an HL7 message is generated to the dispensing system."
^DD(59.02008,.01,12)="Only printers are selectable."
^DD(59.02008,.01,12.1)="S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1)=""""P"""""""
^DD(59.02008,.01,21,0)="^.001^3^3^3040714^^^^"
^DD(59.02008,.01,21,1,0)="This field identifies the name of the printer(s) that, when selected, and"
^DD(59.02008,.01,21,2,0)="the interface is in use, an HL7 message is generated to the dispensing"
^DD(59.02008,.01,21,3,0)="system."
^DD(59.02008,.01,23,0)="^.001^1^1^3040714^^^^"
^DD(59.02008,.01,23,1,0)="pointer to Device file (#3.5)."
^DD(59.02008,.01,"DT")="3040713"
^DD(59.02008,"B","DISPENSING SYSTEM PRINTER",.01)=""
^DD(59.02008,"GL",0,1,.01)=""
^DD(59.02008,"IX",.01)=""
^DD(59.08,0)="CPRS ORDERING INSTITUTION SUB-FIELD^^1^2"
^DD(59.08,0,"DT")="2980826"
^DD(59.08,0,"IX","B",59.08,.01)=""
^DD(59.08,0,"NM","CPRS ORDERING INSTITUTION")=""
^DD(59.08,0,"UP")="59"
^DD(59.08,.01,0)="CPRS ORDERING INSTITUTION^MP4'^DIC(4,^0;1^Q"
^DD(59.08,.01,1,0)="^.1"
^DD(59.08,.01,1,1,0)="59.08^B"
^DD(59.08,.01,1,1,1)="S ^PS(59,DA(1),""INI1"",""B"",$E(X,1,30),DA)="""""
^DD(59.08,.01,1,1,2)="K ^PS(59,DA(1),""INI1"",""B"",$E(X,1,30),DA)"
^DD(59.08,.01,3)="Enter the Institution for this Outpatient site for CPRS orders."
^DD(59.08,.01,21,0)="^^6^6^2980827^^^^"
^DD(59.08,.01,21,1,0)="This field is used when completing orders from CPRS. If there is only one"
^DD(59.08,.01,21,2,0)="Institution entry, then when completing orders from CPRS under this"
^DD(59.08,.01,21,3,0)="Outpatient site, only those orders from that Institution will be shown."
^DD(59.08,.01,21,4,0)="If there is more than one entry, then the Instutition will be prompted"
^DD(59.08,.01,21,5,0)="for when completing orders from CPRS, and only those orders associated"
^DD(59.08,.01,21,6,0)="with that Institution selected will be shown."
^DD(59.08,.01,23,0)="^^1^1^2980827^^^^"
^DD(59.08,.01,23,1,0)="This is a pointer to the Institution (#4) file."
^DD(59.08,.01,"DT")="2980826"
^DD(59.08,1,0)="LOGICAL LINK^P870'^HLCS(870,^0;2^Q"
^DD(59.08,1,3)="The link that will be used to exchange messages with an external application."
^DD(59.08,1,21,0)="^.001^7^7^3020110^^^"
^DD(59.08,1,21,1,0)="This is a pointer to the Logical Link file (#870).  This link is used to"
^DD(59.08,1,21,2,0)="transmit messages to an external (client) application.  This field is not"
^DD(59.08,1,21,3,0)="filled in when messages are exchanged between DHCP applications on the"
^DD(59.08,1,21,4,0)="same system. This field will be used as the Logical Link for the"
^DD(59.08,1,21,5,0)="prescription if there is a Clinic associated with the prescription, and"
^DD(59.08,1,21,6,0)="the Institution derived from that Clinic has an entry in this CPRS"
^DD(59.08,1,21,7,0)="ORDERING INSTITUTION multiple with an associated Logical Link."
^DD(59.08,1,"DT")="3010919"
^DD(59.08,"B","CPRS ORDERING INSTITUTION",.01)=""
^DD(59.08,"B","LOGICAL LINK",1)=""
^DD(59.08,"GL",0,1,.01)=""
^DD(59.08,"GL",0,2,1)=""
^DD(59.08,"IX",.01)=""
^DD(59.1,0)="FIELD^^2^3"
^DD(59.1,0,"DDA")="N"
^DD(59.1,0,"DT")="2930407"
^DD(59.1,0,"IX","B",59.1,.01)=""
^DD(59.1,0,"NM","OUTPATIENT AMIS DATA")=""
^DD(59.1,0,"VR")="7.0"
^DD(59.1,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(59.1,.01,0)="DATE^RDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(59.1,.01,1,0)="^.1"
^DD(59.1,.01,1,1,0)="59.1^B"
^DD(59.1,.01,1,1,1)="S ^PS(59.1,""B"",$E(X,1,30),DA)="""""
^DD(59.1,.01,1,1,2)="K ^PS(59.1,""B"",$E(X,1,30),DA)"
^DD(59.1,.01,3)=""
^DD(59.1,.01,21,0)="^^1^1^2930104^"
^DD(59.1,.01,21,1,0)="This field is used to indicate the date of the AMIS data."
^DD(59.1,.01,23,0)="^^1^1^2930104^"
^DD(59.1,.01,23,1,0)="date."
^DD(59.1,.01,"DT")="2880310"
^DD(59.1,1,0)="DIVISION^59.11PA^^1;0"
^DD(59.1,1,21,0)="^^1^1^2971022^^"
^DD(59.1,1,21,1,0)="This sub file is used to indicate AMIS sorted by division."
^DD(59.1,1,23,0)="^^1^1^2971022^^"
^DD(59.1,1,23,1,0)="sub file."
^DD(59.1,2,0)="REPORT QUEUED^S^1:YES;0:NO;^2;1^Q"
^DD(59.1,2,3)="This Data should not be entered using FileMan."
^DD(59.1,2,21,0)="^^1^1^2930104^"
^DD(59.1,2,21,1,0)="This field is used to indicate if the recompile has been queued to run."
^DD(59.1,2,23,0)="^^1^1^2930104^"
^DD(59.1,2,23,1,0)="set of codes."
^DD(59.1,2,"DT")="2930407"
^DD(59.1,"B","DATE",.01)=""
^DD(59.1,"B","DIVISION",1)=""
^DD(59.1,"B","REPORT QUEUED",2)=""
^DD(59.1,"GL",0,1,.01)=""
^DD(59.1,"GL",1,0,1)=""
^DD(59.1,"GL",2,1,2)=""
^DD(59.1,"IX",.01)=""
^DD(59.1,"RQ",.01)=""
^DD(59.1,"SB",59.11,1)=""
^DD(59.11,0)="DIVISION SUB-FIELD^^17^18"
^DD(59.11,0,"IX","B",59.11,.01)=""
^DD(59.11,0,"NM","DIVISION")=""
^DD(59.11,0,"UP")="59.1"
^DD(59.11,.01,0)="DIVISION^RP59'X^PS(59,^0;1^S:$D(X) DINUM=X"
^DD(59.11,.01,1,0)="^.1"
^DD(59.11,.01,1,1,0)="59.11^B"
^DD(59.11,.01,1,1,1)="S ^PS(59.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(59.11,.01,1,1,2)="K ^PS(59.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(59.11,.01,21,0)="^^2^2^2930104^"
^DD(59.11,.01,21,1,0)="This field is used to indicate the divsion within outpatient that the"
^DD(59.11,.01,21,2,0)="AMIS data is for."
^DD(59.11,.01,23,0)="^^1^1^2930104^"
^DD(59.11,.01,23,1,0)="pointer."
^DD(59.11,.01,"DT")="2880310"
^DD(59.11,1,0)="INPATIENT^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,1,21,0)="^^1^1^2930104^"
^DD(59.11,1,21,1,0)="This field is used to indicate if the patient is considered an inpatient."
^DD(59.11,1,"DT")="2880310"
^DD(59.11,2,0)="SC^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,2,21,0)="^^1^1^2930104^"
^DD(59.11,2,21,1,0)="This field is used to indicate if the patient is considered service connected."
^DD(59.11,3,0)="FEE SC^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,3,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,3,21,0)="^^1^1^2930104^"
^DD(59.11,3,21,1,0)="This field is used to indicate if the patient is FEE service connected."
^DD(59.11,4,0)="A&A^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,4,21,0)="^^1^1^2930104^"
^DD(59.11,4,21,1,0)="This field is used to indicate A&A."
^DD(59.11,5,0)="FEE A&A^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,5,21,0)="^^1^1^2930104^"
^DD(59.11,5,21,1,0)="This field is used to indicate FEE A&A."
^DD(59.11,6,0)="OTHER^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,6,21,0)="^^1^1^2930104^"
^DD(59.11,6,21,1,0)="This field is used to indicate other types."
^DD(59.11,7,0)="CNTLD^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,7,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,7,21,0)="^^1^1^2930104^"
^DD(59.11,7,21,1,0)="This field is used to indicate if medication was for a controled substance."
^DD(59.11,8,0)="METH^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,8,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,8,21,0)="^^2^2^2930104^"
^DD(59.11,8,21,1,0)="This field is used to indicate if the medication was for some type"
^DD(59.11,8,21,2,0)="of methadone."
^DD(59.11,9,0)="PAT REQ^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,9,21,0)="^^1^1^2930104^"
^DD(59.11,9,21,1,0)="This field is used to indicate patient requests."
^DD(59.11,10,0)="FEE^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,10,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,10,21,0)="^^1^1^2930104^"
^DD(59.11,10,21,1,0)="This field is used to indicate if the provider was a FEE provider."
^DD(59.11,11,0)="STAFF^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,11,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,11,21,0)="^^1^1^2930104^"
^DD(59.11,11,21,1,0)="This field is used to indicate if the provider was staff provider."
^DD(59.11,12,0)="DOM^NJ6,0^^0;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,12,21,0)="^^1^1^2930104^"
^DD(59.11,12,21,1,0)="This field is used to indicate if the patient was a domiciliary patient."
^DD(59.11,13,0)="NEW^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,13,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,13,21,0)="^^1^1^2930104^"
^DD(59.11,13,21,1,0)="This feld is used to indicate if this was a new prescription."
^DD(59.11,14,0)="REFILL^NJ6,0^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,14,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,14,21,0)="^^1^1^2971022^^"
^DD(59.11,14,21,1,0)="This field is used to indicate if the medication was a refill."
^DD(59.11,15,0)="WINDOW^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,15,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,15,21,0)="^^1^1^2930104^"
^DD(59.11,15,21,1,0)="This field is used to indicate if the prescription was dispensed by window."
^DD(59.11,16,0)="MAIL^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,16,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,16,21,0)="^^1^1^2930104^"
^DD(59.11,16,21,1,0)="This field is used to indicate if the medication was dispensed by mail."
^DD(59.11,17,0)="NVA^NJ6,0^^0;18^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.11,17,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.11,17,21,0)="^^2^2^3031113^"
^DD(59.11,17,21,1,0)="This field will be used to hold the Non-Va Prescription counts for this "
^DD(59.11,17,21,2,0)="division."
^DD(59.11,17,23,0)="^.001^3^3^3031113^^"
^DD(59.11,17,23,1,0)="This field is populated by ^PSOAMIS0 (Outpatient AMIS "
^DD(59.11,17,23,2,0)="Compile/Re-Compile).  It is the Count of Prescriptions with a status of "
^DD(59.11,17,23,3,0)="Non-Va."
^DD(59.11,17,"DT")="3031112"
^DD(59.11,"B","A&A",4)=""
^DD(59.11,"B","CNTLD",7)=""
^DD(59.11,"B","DIVISION",.01)=""
^DD(59.11,"B","DOM",12)=""
^DD(59.11,"B","FEE",10)=""
^DD(59.11,"B","FEE A&A",5)=""
^DD(59.11,"B","FEE SC",3)=""
^DD(59.11,"B","INPATIENT",1)=""
^DD(59.11,"B","MAIL",16)=""
^DD(59.11,"B","METH",8)=""
^DD(59.11,"B","NEW",13)=""
^DD(59.11,"B","NVA",17)=""
^DD(59.11,"B","OTHER",6)=""
^DD(59.11,"B","PAT REQ",9)=""
^DD(59.11,"B","REFILL",14)=""
^DD(59.11,"B","SC",2)=""
^DD(59.11,"B","STAFF",11)=""
^DD(59.11,"B","WINDOW",15)=""
^DD(59.11,"GL",0,1,.01)=""
^DD(59.11,"GL",0,2,1)=""
^DD(59.11,"GL",0,3,2)=""
^DD(59.11,"GL",0,4,3)=""
^DD(59.11,"GL",0,5,4)=""
^DD(59.11,"GL",0,6,5)=""
^DD(59.11,"GL",0,7,6)=""
^DD(59.11,"GL",0,8,7)=""
^DD(59.11,"GL",0,9,8)=""
^DD(59.11,"GL",0,10,9)=""
^DD(59.11,"GL",0,11,10)=""
^DD(59.11,"GL",0,12,11)=""
^DD(59.11,"GL",0,13,12)=""
^DD(59.11,"GL",0,14,13)=""
^DD(59.11,"GL",0,15,14)=""
^DD(59.11,"GL",0,16,15)=""
^DD(59.11,"GL",0,17,16)=""
^DD(59.11,"GL",0,18,17)=""
^DD(59.11,"IX",.01)=""
^DD(59.11,"RQ",.01)=""
^DD(59.12,0)="FIELD^^3^4"
^DD(59.12,0,"DDA")="N"
^DD(59.12,0,"DT")="2930403"
^DD(59.12,0,"IX","B",59.12,.01)=""
^DD(59.12,0,"NM","OUTPATIENT PHARMACY MANAGEMENT DATA")=""
^DD(59.12,0,"VR")="7.0"
^DD(59.12,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(59.12,.01,0)="DATE^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(59.12,.01,1,0)="^.1"
^DD(59.12,.01,1,1,0)="59.12^B"
^DD(59.12,.01,1,1,1)="S ^PS(59.12,""B"",$E(X,1,30),DA)="""""
^DD(59.12,.01,1,1,2)="K ^PS(59.12,""B"",$E(X,1,30),DA)"
^DD(59.12,.01,3)="Enter the date for which the prescription data applies."
^DD(59.12,.01,21,0)="^^1^1^2930317^^^"
^DD(59.12,.01,21,1,0)="Date for which the prescription data applies."
^DD(59.12,.01,"DT")="2921216"
^DD(59.12,1,0)="FILL COUNTS^59.121A^^1;0"
^DD(59.12,1,21,0)="^^3^3^2930403^^^^"
^DD(59.12,1,21,1,0)="This sub-file contains data on the division, patient category, equivalent"
^DD(59.12,1,21,2,0)="fills, methadone, total prescriptions, medication requests, and "
^DD(59.12,1,21,3,0)="investigational drugs."
^DD(59.12,2,0)="TYPE OF FILL^59.122A^^2;0"
^DD(59.12,2,21,0)="^^3^3^2930403^^^^"
^DD(59.12,2,21,1,0)="This sub-file contains the number of prescriptions filled by the fee basis "
^DD(59.12,2,21,2,0)="and staff providers, dispensed at the window, sent by mail, and filled by "
^DD(59.12,2,21,3,0)="participating pharmacies."
^DD(59.12,2,"DT")="2930317"
^DD(59.12,3,0)="COST^59.123A^^3;0"
^DD(59.12,3,21,0)="^^7^7^2930317^^"
^DD(59.12,3,21,1,0)="This sub-file contains the average cost of prescriptions filled by staff"
^DD(59.12,3,21,2,0)="and fee providers, the average cost of prescriptions filled, the average "
^DD(59.12,3,21,3,0)="cost of equivalent fills, average cost of methadone program prescriptions,"
^DD(59.12,3,21,4,0)="the total cost of prescriptions filled, total cost of methadone program "
^DD(59.12,3,21,5,0)="prescriptions, total cost of prescriptions filled by participating "
^DD(59.12,3,21,6,0)="pharmacies, and the average cost of prescriptions filled by participating "
^DD(59.12,3,21,7,0)="pharmacies."
^DD(59.12,"B","COST",3)=""
^DD(59.12,"B","DATE",.01)=""
^DD(59.12,"B","FILL COUNTS",1)=""
^DD(59.12,"B","TYPE OF FILL",2)=""
^DD(59.12,"GL",0,1,.01)=""
^DD(59.12,"GL",1,0,1)=""
^DD(59.12,"GL",2,0,2)=""
^DD(59.12,"GL",3,0,3)=""
^DD(59.12,"IX",.01)=""
^DD(59.12,"RQ",.01)=""
^DD(59.12,"SB",59.121,1)=""
^DD(59.12,"SB",59.122,2)=""
^DD(59.12,"SB",59.123,3)=""
^DD(59.121,0)="FILL COUNTS SUB-FIELD^^16^17"
^DD(59.121,0,"DT")="2930403"
^DD(59.121,0,"IX","B",59.121,.01)=""
^DD(59.121,0,"NM","FILL COUNTS")=""
^DD(59.121,0,"UP")="59.12"
^DD(59.121,.01,0)="DIVISION^F^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(59.121,.01,1,0)="^.1"
^DD(59.121,.01,1,1,0)="59.121^B"
^DD(59.121,.01,1,1,1)="S ^PS(59.12,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(59.121,.01,1,1,2)="K ^PS(59.12,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(59.121,.01,3)="Enter the division number of data."
^DD(59.121,.01,21,0)="^^1^1^2930317^"
^DD(59.121,.01,21,1,0)="This field contains the site division number."
^DD(59.121,.01,"DT")="2921218"
^DD(59.121,1,0)="CATEGORY A^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,1,3)="Enter the number of prescriptions filled for Category A patients."
^DD(59.121,1,21,0)="^^2^2^2930317^^"
^DD(59.121,1,21,1,0)="This field contains the number of prescriptions filled for Category A"
^DD(59.121,1,21,2,0)="patients."
^DD(59.121,1,"DT")="2921218"
^DD(59.121,2,0)="CATEGORY C^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,2,3)="Enter the number of prescriptions filled for Category C prescriptions."
^DD(59.121,2,21,0)="^^2^2^2930317^"
^DD(59.121,2,21,1,0)="This field contains the number of prescriptions filled for Category C "
^DD(59.121,2,21,2,0)="patients."
^DD(59.121,2,"DT")="2921218"
^DD(59.121,3,0)="OTHER^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,3,3)="Enter the number of prescriptions filled for patients that are neither Category A nor Category C."
^DD(59.121,3,21,0)="^^2^2^2930317^"
^DD(59.121,3,21,1,0)="This field contains the number of prescriptions filled for patients "
^DD(59.121,3,21,2,0)="that are not in Category A or Category C."
^DD(59.121,3,"DT")="2921218"
^DD(59.121,4,0)="TOTAL CATEGORY PRESCRIPTIONS^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,4,3)="Enter the total Category A, Category C, and Other prescriptions filled."
^DD(59.121,4,21,0)="^^2^2^2930317^"
^DD(59.121,4,21,1,0)="This field contains the total number of prescriptions filled for patients"
^DD(59.121,4,21,2,0)="who are in Category A, Category C, and not in Category A or Category C."
^DD(59.121,4,"DT")="2921218"
^DD(59.121,5,0)="30 DAYS OR LESS^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,5,3)="Enter the number of prescriptions filled for a 30-day or less fill."
^DD(59.121,5,21,0)="^^2^2^2930317^"
^DD(59.121,5,21,1,0)="This field contains the number of prescriptions filled for a 30 day or "
^DD(59.121,5,21,2,0)="less period."
^DD(59.121,5,"DT")="2921218"
^DD(59.121,6,0)="60 DAYS^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,6,3)="Enter the number of prescriptions filled for a 31-60 day fill."
^DD(59.121,6,21,0)="^^2^2^2930317^^^"
^DD(59.121,6,21,1,0)="This field contains the number of prescriptions filled for a 31-60 day "
^DD(59.121,6,21,2,0)="period."
^DD(59.121,6,"DT")="2921218"
^DD(59.121,7,0)="90 DAYS^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,7,3)="Enter the number of prescriptions filled for a 61-90 day fill."
^DD(59.121,7,21,0)="^^2^2^2930317^"
^DD(59.121,7,21,1,0)="This field contains the number of prescriptions filled for a 61-90 day"
^DD(59.121,7,21,2,0)="period."
^DD(59.121,7,"DT")="2921218"
^DD(59.121,8,0)="OVER 90 DAYS^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,8,3)="Enter the number of prescriptions filled for an over 90 day fill."
^DD(59.121,8,21,0)="^^2^2^2930317^"
^DD(59.121,8,21,1,0)="This field contains the number of prescriptions filled for a 91+ days"
^DD(59.121,8,21,2,0)="period."
^DD(59.121,8,"DT")="2921218"
^DD(59.121,9,0)="EQUIVALENT FILLS^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,9,3)="Enter the number of fills in terms of 30-day quantities, excluding methadone."
^DD(59.121,9,21,0)="^^3^3^2930317^^"
^DD(59.121,9,21,1,0)="This field contains the number of fills in terms of a 30 day supply,"
^DD(59.121,9,21,2,0)="excluding methadone."
^DD(59.121,9,21,3,0)="1-30=1  31-60=2  61-90=3  91-120=4  120-159=5  160-180=6"
^DD(59.121,9,"DT")="2921218"
^DD(59.121,10,0)="METHADONE^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,10,3)="Enter the number of doses filled as part of a methadone maintenance program."
^DD(59.121,10,21,0)="^^2^2^2930317^"
^DD(59.121,10,21,1,0)="This field contains the number of prescriptions filled as part of the"
^DD(59.121,10,21,2,0)="methadone program."
^DD(59.121,10,"DT")="2921218"
^DD(59.121,11,0)="TOTAL PRESCRIPTIONS^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,11,3)="Enter the total number of prescriptions filled including methadone."
^DD(59.121,11,21,0)="^^2^2^2930317^"
^DD(59.121,11,21,1,0)="This field contains the total number of prescriptions filled by adding"
^DD(59.121,11,21,2,0)="the Total Category field plus the Methadone field."
^DD(59.121,11,"DT")="2921218"
^DD(59.121,12,0)="TOTAL EQUIVALENT FILLS^NJ6,0^^0;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,12,3)="Enter the number of equivalent fills in terms of 30-day quantities, including methadone."
^DD(59.121,12,21,0)="^^2^2^2930317^"
^DD(59.121,12,21,1,0)="This field contains the total number of fills in terms of 30 days. This is "
^DD(59.121,12,21,2,0)="achieved by adding the Equivalent Fills field and the Methadone fields."
^DD(59.121,12,"DT")="2921218"
^DD(59.121,13,0)="MEDICATION REQUESTS^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,13,3)="Enter the number of mailout and window requests."
^DD(59.121,13,21,0)="^^2^2^2930317^"
^DD(59.121,13,21,1,0)="This field contains the number of patients that requested prescriptions"
^DD(59.121,13,21,2,0)="be filled.  This includes mail and window requests."
^DD(59.121,13,"DT")="2921218"
^DD(59.121,14,0)="PRESCRIPTIONS PER REQUEST^NJ8,1^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(59.121,14,3)="Type a Number between 0 and 999999, 1 Decimal Digit"
^DD(59.121,14,21,0)="^^2^2^2930317^"
^DD(59.121,14,21,1,0)="This field contains the number of average number of prescriptions"
^DD(59.121,14,21,2,0)="requested by a patient."
^DD(59.121,14,"DT")="2930403"
^DD(59.121,15,0)="EQUIVALENTS PER REQUEST^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,15,3)="Enter the equivalent fills, excluding methadone, per medication request."
^DD(59.121,15,21,0)="^^2^2^2930317^^"
^DD(59.121,15,21,1,0)="This field contains the average number of equivalent fills requested by"
^DD(59.121,15,21,2,0)="a patient, excluding methadone."
^DD(59.121,15,"DT")="2921218"
^DD(59.121,16,0)="INVESTIGATIONAL PRESCRIPTIONS^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.121,16,3)="Enter the number of investigational prescriptions filled."
^DD(59.121,16,21,0)="^^2^2^2930317^"
^DD(59.121,16,21,1,0)="This field contains the number of prescriptions filled for investigational"
^DD(59.121,16,21,2,0)="drugs."
^DD(59.121,16,"DT")="2921218"
^DD(59.121,"B","30 DAYS OR LESS",5)=""
^DD(59.121,"B","60 DAYS",6)=""
^DD(59.121,"B","90 DAYS",7)=""
^DD(59.121,"B","CATEGORY A",1)=""
^DD(59.121,"B","CATEGORY C",2)=""
^DD(59.121,"B","DIVISION",.01)=""
^DD(59.121,"B","EQUIVALENT FILLS",9)=""
^DD(59.121,"B","EQUIVALENTS PER REQUEST",15)=""
^DD(59.121,"B","INVESTIGATIONAL PRESCRIPTIONS",16)=""
^DD(59.121,"B","MEDICATION REQUESTS",13)=""
^DD(59.121,"B","METHADONE",10)=""
^DD(59.121,"B","OTHER",3)=""
^DD(59.121,"B","OVER 90 DAYS",8)=""
^DD(59.121,"B","PRESCRIPTIONS PER REQUEST",14)=""
^DD(59.121,"B","TOTAL CATEGORY PRESCRIPTIONS",4)=""
^DD(59.121,"B","TOTAL EQUIVALENT FILLS",12)=""
^DD(59.121,"B","TOTAL PRESCRIPTIONS",11)=""
^DD(59.121,"GL",0,1,.01)=""
^DD(59.121,"GL",0,2,1)=""
^DD(59.121,"GL",0,3,2)=""
^DD(59.121,"GL",0,4,3)=""
^DD(59.121,"GL",0,5,4)=""
^DD(59.121,"GL",0,6,5)=""
^DD(59.121,"GL",0,7,6)=""
^DD(59.121,"GL",0,8,7)=""
^DD(59.121,"GL",0,9,8)=""
^DD(59.121,"GL",0,10,9)=""
^DD(59.121,"GL",0,11,10)=""
^DD(59.121,"GL",0,12,11)=""
^DD(59.121,"GL",0,13,12)=""
^DD(59.121,"GL",0,14,13)=""
^DD(59.121,"GL",0,15,14)=""
^DD(59.121,"GL",0,16,15)=""
^DD(59.121,"GL",0,17,16)=""
^DD(59.121,"IX",.01)=""
^DD(59.122,0)="TYPE OF FILL SUB-FIELD^^13^12"
^DD(59.122,0,"DT")="2921223"
^DD(59.122,0,"IX","B",59.122,.01)=""
^DD(59.122,0,"NM","TYPE OF FILL")=""
^DD(59.122,0,"UP")="59.12"
^DD(59.122,.01,0)="DIVISION^F^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(59.122,.01,1,0)="^.1"
^DD(59.122,.01,1,1,0)="59.122^B"
^DD(59.122,.01,1,1,1)="S ^PS(59.12,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(59.122,.01,1,1,2)="K ^PS(59.12,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(59.122,.01,3)="Enter the division number of the data."
^DD(59.122,.01,21,0)="^^1^1^2930317^"
^DD(59.122,.01,21,1,0)="This field contains the site division number."
^DD(59.122,.01,"DT")="2921218"
^DD(59.122,2,0)="FEE BASIS^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,2,3)="Enter the number of new and refill prescriptions written by fee basis or other non-staff physicians."
^DD(59.122,2,21,0)="^^2^2^2930317^^^^"
^DD(59.122,2,21,1,0)="This field contains the number of prescriptions filled by fee basis"
^DD(59.122,2,21,2,0)="and non-staff providers."
^DD(59.122,2,"DT")="2921218"
^DD(59.122,3,0)="STAFF^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,3,3)="Enter the number of new and refill prescriptions written by staff physicians, including methadone."
^DD(59.122,3,21,0)="^^1^1^2930317^^"
^DD(59.122,3,21,1,0)="This field contains the number of prescriptions filled by staff providers."
^DD(59.122,3,"DT")="2921218"
^DD(59.122,4,0)="TOTAL FEE BASIS AND STAFF^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,4,3)="Enter the total number of prescriptions written by fee basis, non-staff, and staff providers."
^DD(59.122,4,21,0)="^^2^2^2930317^^^"
^DD(59.122,4,21,1,0)="This field contains the total number of prescriptions filled by fee basis,"
^DD(59.122,4,21,2,0)="staff, and non-staff providers."
^DD(59.122,4,"DT")="2921218"
^DD(59.122,5,0)="NEW PRESCRIPTIONS^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,5,3)="Enter the number of new prescriptions filled, including methadone."
^DD(59.122,5,21,0)="^^1^1^2930317^^"
^DD(59.122,5,21,1,0)="This field contains the number of new prescriptions filled."
^DD(59.122,5,"DT")="2921218"
^DD(59.122,6,0)="REFILL PRESCRIPTIONS^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,6,3)="Enter the number of prescriptions refilled, including methadone."
^DD(59.122,6,21,0)="^^1^1^2930317^^"
^DD(59.122,6,21,1,0)="This field contains the number prescriptions refilled."
^DD(59.122,6,"DT")="2921218"
^DD(59.122,7,0)="TOTAL NEW AND REFILL^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,7,3)="Enter the total number of new and refilled prescriptions filled."
^DD(59.122,7,21,0)="^^2^2^2930317^^"
^DD(59.122,7,21,1,0)="This field contains the total number of new and refill prescriptions"
^DD(59.122,7,21,2,0)="filled."
^DD(59.122,7,"DT")="2921218"
^DD(59.122,8,0)="WINDOW^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,8,3)="Enter the number of new and refilled prescriptions dispensed at the window, including methadone."
^DD(59.122,8,21,0)="^^2^2^2930317^^"
^DD(59.122,8,21,1,0)="This field contains the number of prescriptions filled to be dispensed"
^DD(59.122,8,21,2,0)="at the window."
^DD(59.122,8,"DT")="2921218"
^DD(59.122,9,0)="MAILOUT^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,9,3)="Enter the number of new and refilled prescriptions forwarded to patient by mail."
^DD(59.122,9,21,0)="^^2^2^2930317^^"
^DD(59.122,9,21,1,0)="This field contains the number of prescriptions filled to be mailed to"
^DD(59.122,9,21,2,0)="the patient."
^DD(59.122,9,"DT")="2921218"
^DD(59.122,10,0)="TOTAL WINDOW AND MAILOUT^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,10,3)="Enter the total number of window and mailout prescriptions filled."
^DD(59.122,10,21,0)="^^2^2^2930317^^^"
^DD(59.122,10,21,1,0)="This field contains the total number of prescriptions filled to be dispensed"
^DD(59.122,10,21,2,0)="at the window or mailed to the patient."
^DD(59.122,10,"DT")="2921218"
^DD(59.122,12,0)="PARTICIPATING PHARMACIES^NJ6,0^^0;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.122,12,3)="Enter the number of prescriptions for which invoices have been received, approved, and forwarded to Fiscal Service from participating pharmacies."
^DD(59.122,12,21,0)="^^2^2^2930317^^"
^DD(59.122,12,21,1,0)="This field contains the number of prescriptions filled by participating"
^DD(59.122,12,21,2,0)="pharmacies."
^DD(59.122,12,"DT")="2921223"
^DD(59.122,13,0)="PERCENT FEE BASIS FILLED BY VA^NJ5,1^^0;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(59.122,13,3)="Enter the percentage of fee basis prescriptions filled by VA pharmacies."
^DD(59.122,13,21,0)="^^2^2^2930317^^"
^DD(59.122,13,21,1,0)="This field contains the percent of fee basis prescriptions filled by "
^DD(59.122,13,21,2,0)="the Veterans Administration outpatient pharmacy."
^DD(59.122,13,"DT")="2921223"
^DD(59.122,"B","DIVISION",.01)=""
^DD(59.122,"B","FEE BASIS",2)=""
^DD(59.122,"B","MAILOUT",9)=""
^DD(59.122,"B","NEW PRESCRIPTIONS",5)=""
^DD(59.122,"B","PARTICIPATING PHARMACIES",12)=""
^DD(59.122,"B","PERCENT FEE BASIS FILLED BY VA",13)=""
^DD(59.122,"B","REFILL PRESCRIPTIONS",6)=""
^DD(59.122,"B","STAFF",3)=""
^DD(59.122,"B","TOTAL FEE BASIS AND STAFF",4)=""
^DD(59.122,"B","TOTAL NEW AND REFILL",7)=""
^DD(59.122,"B","TOTAL WINDOW AND MAILOUT",10)=""
^DD(59.122,"B","WINDOW",8)=""
^DD(59.122,"GL",0,1,.01)=""
^DD(59.122,"GL",0,3,2)=""
^DD(59.122,"GL",0,4,3)=""
^DD(59.122,"GL",0,5,4)=""
^DD(59.122,"GL",0,6,5)=""
^DD(59.122,"GL",0,7,6)=""
^DD(59.122,"GL",0,8,7)=""
^DD(59.122,"GL",0,9,8)=""
^DD(59.122,"GL",0,10,9)=""
^DD(59.122,"GL",0,11,10)=""
^DD(59.122,"GL",0,13,12)=""
^DD(59.122,"GL",0,14,13)=""
^DD(59.122,"IX",.01)=""
^DD(59.123,0)="COST SUB-FIELD^^9^10"
^DD(59.123,0,"DT")="2921223"
^DD(59.123,0,"IX","B",59.123,.01)=""
^DD(59.123,0,"NM","COST")=""
^DD(59.123,0,"UP")="59.12"
^DD(59.123,.01,0)="DIVISION^F^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(59.123,.01,1,0)="^.1"
^DD(59.123,.01,1,1,0)="59.123^B"
^DD(59.123,.01,1,1,1)="S ^PS(59.12,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(59.123,.01,1,1,2)="K ^PS(59.12,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(59.123,.01,3)="Enter the division number of data."
^DD(59.123,.01,21,0)="^^1^1^2930317^"
^DD(59.123,.01,21,1,0)="This field contains the site division number."
^DD(59.123,.01,"DT")="2921218"
^DD(59.123,1,0)="AVG STAFF PRESCRIPTION COST^NJ9,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,1,3)="Enter the average cost of medications and medical supplies filled by staff physicians."
^DD(59.123,1,21,0)="^^2^2^2930317^"
^DD(59.123,1,21,1,0)="This field contains the average cost of the prescriptions filled by "
^DD(59.123,1,21,2,0)="staff providers."
^DD(59.123,1,"DT")="2921218"
^DD(59.123,2,0)="AVG FEE PRESCRIPTION COST^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,2,3)="Enter the average cost of medications and medical supplies filled by fee basis providers."
^DD(59.123,2,21,0)="^^2^2^2930317^"
^DD(59.123,2,21,1,0)="This field contains the average cost of prescriptions filled by"
^DD(59.123,2,21,2,0)="fee basis providers."
^DD(59.123,2,"DT")="2921218"
^DD(59.123,3,0)="AVG PRESCRIPTION COSTS^NJ9,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,3,3)="Enter the average cost of items filled to Category A, Category C, and Other patients, excluding methadone."
^DD(59.123,3,21,0)="^^1^1^2930317^"
^DD(59.123,3,21,1,0)="This field contains the average cost of prescriptions filled."
^DD(59.123,3,"DT")="2921218"
^DD(59.123,4,0)="AVG COST PER EQUIVALENT FILLS^NJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,4,3)="Enter the average cost of equivalent fills, excluding methadone."
^DD(59.123,4,21,0)="^^2^2^2930317^"
^DD(59.123,4,21,1,0)="This field contains the average cost of prescriptions filled per"
^DD(59.123,4,21,2,0)="equivalent fill."
^DD(59.123,4,"DT")="2921218"
^DD(59.123,5,0)="AVG COST PER METHADONE DOSE^NJ9,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,5,3)="Enter the average cost of methadone doses."
^DD(59.123,5,21,0)="^^1^1^2930317^"
^DD(59.123,5,21,1,0)="This field contains the average cost of methadone doses filled."
^DD(59.123,5,"DT")="2921218"
^DD(59.123,6,0)="TOTAL COST OF PRESCRIPTIONS^NJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,6,3)="Enter the total cost of prescriptions filled, including methadone."
^DD(59.123,6,21,0)="^^1^1^2930317^"
^DD(59.123,6,21,1,0)="This field contains the total cost of prescriptions filled."
^DD(59.123,6,"DT")="2921218"
^DD(59.123,7,0)="TOTAL COST OF METHADONE DOSES^NJ9,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,7,3)="Enter the total cost of methadone doses filled."
^DD(59.123,7,21,0)="^^1^1^2930317^"
^DD(59.123,7,21,1,0)="This field contains the total cost of methadone doses filled."
^DD(59.123,7,"DT")="2921218"
^DD(59.123,8,0)="PARTICIPATING PHARMACIES COST^NJ11,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(59.123,8,3)="Enter the total cost of prescriptions filled by participating pharmacies."
^DD(59.123,8,21,0)="^^2^2^2930317^"
^DD(59.123,8,21,1,0)="This field contains the total cost of prescriptions filled by participating "
^DD(59.123,8,21,2,0)="pharmacies."
^DD(59.123,8,"DT")="2921223"
^DD(59.123,9,0)="AVG PARTICIPATING PHARMACY RX^NJ9,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(59.123,9,3)="Enter the average cost of prescriptions filled by participating pharmacies."
^DD(59.123,9,21,0)="^^2^2^2930317^"
^DD(59.123,9,21,1,0)="This field contains the average cost of prescriptions filled by "
^DD(59.123,9,21,2,0)="participating pharmacies."
^DD(59.123,9,"DT")="2921223"
^DD(59.123,"B","AVG COST PER EQUIVALENT FILLS",4)=""
^DD(59.123,"B","AVG COST PER METHADONE DOSE",5)=""
^DD(59.123,"B","AVG FEE PRESCRIPTION COST",2)=""
^DD(59.123,"B","AVG PARTICIPATING PHARMACY RX",9)=""
^DD(59.123,"B","AVG PRESCRIPTION COSTS",3)=""
^DD(59.123,"B","AVG STAFF PRESCRIPTION COST",1)=""
^DD(59.123,"B","DIVISION",.01)=""
^DD(59.123,"B","PARTICIPATING PHARMACIES COST",8)=""
^DD(59.123,"B","TOTAL COST OF METHADONE DOSES",7)=""
^DD(59.123,"B","TOTAL COST OF PRESCRIPTIONS",6)=""
^DD(59.123,"GL",0,1,.01)=""
^DD(59.123,"GL",0,2,1)=""
^DD(59.123,"GL",0,3,2)=""
^DD(59.123,"GL",0,4,3)=""
^DD(59.123,"GL",0,5,4)=""
^DD(59.123,"GL",0,6,5)=""
^DD(59.123,"GL",0,7,6)=""
^DD(59.123,"GL",0,8,7)=""
^DD(59.123,"GL",0,9,8)=""
^DD(59.123,"GL",0,10,9)=""
^DD(59.123,"IX",.01)=""
^DD(59.2,0)="FIELD^^1^2"
^DD(59.2,0,"DDA")="Y"
^DD(59.2,0,"IX","B",59.2,.01)=""
^DD(59.2,0,"IX","C",59.2001,.01)=""
^DD(59.2,0,"NM","WAITING TIME")=""
^DD(59.2,0,"VR")="7.0"
^DD(59.2,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(59.2,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(59.2,.01,1,0)="^.1"
^DD(59.2,.01,1,1,0)="59.2^B"
^DD(59.2,.01,1,1,1)="S ^PS(59.2,""B"",$E(X,1,30),DA)="""""
^DD(59.2,.01,1,1,2)="K ^PS(59.2,""B"",$E(X,1,30),DA)"
^DD(59.2,.01,1,1,"DT")="2921115"
^DD(59.2,.01,3)=""
^DD(59.2,.01,21,0)="^^1^1^2930104^^"
^DD(59.2,.01,21,1,0)="This field provides the waiting time data with a date association."
^DD(59.2,.01,23,0)="^^1^1^2921229^"
^DD(59.2,.01,23,1,0)="Generated in routine PSOBINGO after checking for existence and stuff with current date."
^DD(59.2,.01,"DT")="2921115"
^DD(59.2,1,0)="DIVISION^59.2001PA^^1;0"
^DD(59.2,1,21,0)="^^2^2^2930317^^^^"
^DD(59.2,1,21,1,0)="This field contains the user's logon division and is used"
^DD(59.2,1,21,2,0)="for statistical purposes."
^DD(59.2,1,23,0)="^^1^1^2930317^^^^"
^DD(59.2,1,23,1,0)="Pointer to outpatient site file #59."
^DD(59.2,"B","DATE",.01)=""
^DD(59.2,"B","DIVISION",1)=""
^DD(59.2,"GL",0,1,.01)=""
^DD(59.2,"GL",1,0,1)=""
^DD(59.2,"IX",.01)=""
^DD(59.2,"RQ",.01)=""
^DD(59.2,"SB",59.2001,1)=""
^DD(59.2001,0)="DIVISION SUB-FIELD^^24^24"
^DD(59.2001,0,"NM","DIVISION")=""
^DD(59.2001,0,"UP")="59.2"
^DD(59.2001,.01,0)="DIVISION^P59'X^PS(59,^0;1^S DINUM=X"
^DD(59.2001,.01,1,0)="^.1"
^DD(59.2001,.01,1,1,0)="59.2^C"
^DD(59.2001,.01,1,1,1)="S ^PS(59.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(59.2001,.01,1,1,2)="K ^PS(59.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(59.2001,.01,1,1,"DT")="2921115"
^DD(59.2001,.01,3)="Enter the site division number for which this data applies."
^DD(59.2001,.01,21,0)="^^1^1^2930317^"
^DD(59.2001,.01,21,1,0)="This field contains the site division number for the data."
^DD(59.2001,.01,"DT")="2921115"
^DD(59.2001,2,0)="NUMBER BEFORE 8AM^NJ5,0^^0;2^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,2,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,2,21,0)="^^1^1^2930105^^"
^DD(59.2001,2,21,1,0)="Contains the number of window entries before 8AM."
^DD(59.2001,2,23,0)="^^1^1^2930105^^"
^DD(59.2001,2,23,1,0)="Piece 2 on the 1 node, file 59.2"
^DD(59.2001,3,0)="MINUTES BEFORE 8 AM^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,3,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(59.2001,3,21,0)="^^1^1^2930105^"
^DD(59.2001,3,21,1,0)="This field contains the total number of minutes waited for all entries logged before 8AM."
^DD(59.2001,3,23,0)="^^1^1^2930105^"
^DD(59.2001,3,23,1,0)="Piece 3 of the one node in file 59.2."
^DD(59.2001,4,0)="NUMBER 8-9AM^NJ5,0^^0;4^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,4,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,4,21,0)="^^1^1^2930105^"
^DD(59.2001,4,21,1,0)="This field contains the number of window entries made between 8 and 9 AM."
^DD(59.2001,4,23,0)="^^1^1^2930105^"
^DD(59.2001,4,23,1,0)="Piece 4 of the 1 node in file 59.2."
^DD(59.2001,5,0)="MINUTES 8-9AM^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,5,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,5,21,0)="^^1^1^2930105^"
^DD(59.2001,5,21,1,0)="This field contains the total number of minutes waited for all entries logged between 8 and 9AM."
^DD(59.2001,5,23,0)="^^1^1^2930105^"
^DD(59.2001,5,23,1,0)="Piece 5 of the 1 node in file 59.2."
^DD(59.2001,6,0)="NUMBER 9-10AM^NJ5,0^^0;6^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,6,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,6,21,0)="^^1^1^2930105^^"
^DD(59.2001,6,21,1,0)="This field contains the number of window entries logged between 9 and 10 AM."
^DD(59.2001,6,23,0)="^^1^1^2930105^^"
^DD(59.2001,6,23,1,0)="Node 1 Piece 6 in file 59.2."
^DD(59.2001,7,0)="MINUTES 9-10AM^NJ6,0^^0;7^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,7,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,7,21,0)="^^1^1^2930105^"
^DD(59.2001,7,21,1,0)="This field contains the total minutes waited for the window entries logged between 9 and 10AM."
^DD(59.2001,7,23,0)="^^1^1^2930105^"
^DD(59.2001,7,23,1,0)="Node 1 Piece 7 of file 59.2."
^DD(59.2001,8,0)="NUMBER 10-11AM^NJ5,0^^0;8^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,8,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,8,21,0)="^^1^1^2930105^"
^DD(59.2001,8,21,1,0)="This field contains the total number of window entries logged between 10 and 11 AM."
^DD(59.2001,8,23,0)="^^1^1^2930105^"
^DD(59.2001,8,23,1,0)="Node 1, Piece 8 of file 59.2"
^DD(59.2001,9,0)="MINUTES 10-11AM^NJ6,0^^0;9^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,9,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,9,21,0)="^^2^2^2930317^^"
^DD(59.2001,9,21,1,0)="This field contains the total number of minutes waited for the entries "
^DD(59.2001,9,21,2,0)="logged between 10 and 11AM."
^DD(59.2001,9,23,0)="^^1^1^2930317^^"
^DD(59.2001,9,23,1,0)="Node 1, Piece 9 of file 59.2."
^DD(59.2001,10,0)="NUMBER 11-12AM^NJ5,0^^0;10^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,10,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,10,21,0)="^^1^1^2930105^^"
^DD(59.2001,10,21,1,0)="This field contains the total number of window entries logged between 11 and 12 AM"
^DD(59.2001,10,23,0)="^^1^1^2930105^^"
^DD(59.2001,10,23,1,0)="Node 1, Piece 10  , File 59.2."
^DD(59.2001,11,0)="MINUTES 11-12AM^NJ6,0^^0;11^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,11,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,11,21,0)="^^1^1^2930105^"
^DD(59.2001,11,21,1,0)="This field contains the total number of minutes for the entries logged between 11 and 12 AM."
^DD(59.2001,11,23,0)="^^1^1^2930105^"
^DD(59.2001,11,23,1,0)="Node 1, Piece 11  , File 59.2."
^DD(59.2001,12,0)="NUMBER 12-1PM^NJ5,0^^0;12^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,12,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,12,21,0)="^^1^1^2930105^"
^DD(59.2001,12,21,1,0)="This field contains the total number of window entries logged between 12AM and 1PM."
^DD(59.2001,12,23,0)="^^1^1^2930105^"
^DD(59.2001,12,23,1,0)="Node 1, Piece 12  , File 59.2."
^DD(59.2001,13,0)="MINUTES 12-1PM^NJ6,0^^0;13^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,13,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,13,21,0)="^^1^1^2930105^"
^DD(59.2001,13,21,1,0)="This field contains the total number of minutes for the entries logged between 12AM and 1PM."
^DD(59.2001,13,23,0)="^^1^1^2930105^"
^DD(59.2001,13,23,1,0)="Node 1, Piece 13, File 59.2."
^DD(59.2001,14,0)="NUMBER 1-2PM^NJ5,0^^0;14^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,14,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,14,21,0)="^^1^1^2930105^"
^DD(59.2001,14,21,1,0)="This field contains the total number of window entries logged between 1 and 2 PM."
^DD(59.2001,14,23,0)="^^1^1^2930105^"
^DD(59.2001,14,23,1,0)="Node 1, Piece 14, File 59.2."
^DD(59.2001,15,0)="MINUTES 1-2PM^NJ6,0^^0;15^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,15,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,15,21,0)="^^1^1^2930105^"
^DD(59.2001,15,21,1,0)="This field contains the total number of minutes for the entries logged between 1 and 2PM."
^DD(59.2001,15,23,0)="^^1^1^2930105^"
^DD(59.2001,15,23,1,0)="Node 1, Piece 15, File 59.2."
^DD(59.2001,16,0)="NUMBER 2-3PM^NJ5,0^^0;16^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,16,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,16,21,0)="^^1^1^2930105^^"
^DD(59.2001,16,21,1,0)="This field contains the total number of window entries logged between 2 and 3PM."
^DD(59.2001,16,23,0)="^^1^1^2930105^^"
^DD(59.2001,16,23,1,0)="Node 1, Piece 16, File 59.2."
^DD(59.2001,17,0)="MINUTES 2-3PM^NJ6,0^^0;17^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,17,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,17,21,0)="^^1^1^2930105^"
^DD(59.2001,17,21,1,0)="This field contains the total number of minutes for the entries logged between 2 and 3PM."
^DD(59.2001,17,23,0)="^^1^1^2930105^"
^DD(59.2001,17,23,1,0)="Node 1, Piece 17, File 59.2."
^DD(59.2001,18,0)="NUMBER 3-4PM^NJ5,0^^0;18^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,18,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,18,21,0)="^^1^1^2930105^"
^DD(59.2001,18,21,1,0)="This field contains the total number of window entries logged between 3 and 4 PM."
^DD(59.2001,18,23,0)="^^1^1^2930105^"
^DD(59.2001,18,23,1,0)="Node 1, Piece 18, File 59.2."
^DD(59.2001,19,0)="MINUTES 3-4PM^NJ6,0^^0;19^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,19,.1)=""
^DD(59.2001,19,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,19,21,0)="^^1^1^2930105^"
^DD(59.2001,19,21,1,0)="This field contains the total number of minutes for the entries logged between 3 and 4PM."
^DD(59.2001,19,23,0)="^^1^1^2930105^"
^DD(59.2001,19,23,1,0)="Node 1, Piece 19, File 59.2."
^DD(59.2001,20,0)="NUMBER 4-5PM^NJ5,0^^0;20^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,20,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,20,21,0)="^^1^1^2930105^^"
^DD(59.2001,20,21,1,0)="This field contains the total number of window entries logged between 4 and 5 PM."
^DD(59.2001,20,23,0)="^^1^1^2930105^^"
^DD(59.2001,20,23,1,0)="Node 1, Piece 20, File 59.2."
^DD(59.2001,21,0)="MINUTES 4-5PM^NJ6,0^^0;21^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,21,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,21,21,0)="^^1^1^2930105^"
^DD(59.2001,21,21,1,0)="This field contains the total number of minutes for the entries logged between 4 and 5 PM."
^DD(59.2001,21,23,0)="^^1^1^2930105^"
^DD(59.2001,21,23,1,0)="Node 1, Piece 21, File 59.2."
^DD(59.2001,22,0)="NUMBER AFTER 5PM^NJ5,0^^0;22^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,22,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,22,21,0)="^^1^1^2930105^"
^DD(59.2001,22,21,1,0)="This field contains the total number of window entries logged after 5PM."
^DD(59.2001,22,23,0)="^^1^1^2930105^"
^DD(59.2001,22,23,1,0)="Node 1, Piece 22, File 59.2."
^DD(59.2001,23,0)="MINUTES AFTER 5PM^NJ6,0^^0;23^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.2001,23,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.2001,23,21,0)="^^1^1^2930105^"
^DD(59.2001,23,21,1,0)="This field contains the total number of minutes for the entries logged after 5PM."
^DD(59.2001,23,23,0)="^^1^1^2930105^"
^DD(59.2001,23,23,1,0)="Node 1, Piece 23, File 59.2."
^DD(59.2001,24,0)="NUMBER NOT PICKED UP^NJ4,0^^0;24^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.2001,24,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(59.2001,24,21,0)="^^1^1^2930105^"
^DD(59.2001,24,21,1,0)="This field contains those RX's not picked up."
^DD(59.2001,24,23,0)="^^1^1^2930105^"
^DD(59.2001,24,23,1,0)="Node 1, Piece 24, File 59.2."
^DD(59.2001,"B","DIVISION",.01)=""
^DD(59.2001,"B","MINUTES 1-2PM",15)=""
^DD(59.2001,"B","MINUTES 10-11AM",9)=""
^DD(59.2001,"B","MINUTES 11-12AM",11)=""
^DD(59.2001,"B","MINUTES 12-1PM",13)=""
^DD(59.2001,"B","MINUTES 2-3PM",17)=""
^DD(59.2001,"B","MINUTES 3-4PM",19)=""
^DD(59.2001,"B","MINUTES 4-5PM",21)=""
^DD(59.2001,"B","MINUTES 8-9AM",5)=""
^DD(59.2001,"B","MINUTES 9-10AM",7)=""
^DD(59.2001,"B","MINUTES AFTER 5PM",23)=""
^DD(59.2001,"B","MINUTES BEFORE 8 AM",3)=""
^DD(59.2001,"B","NUMBER 1-2PM",14)=""
^DD(59.2001,"B","NUMBER 10-11AM",8)=""
^DD(59.2001,"B","NUMBER 11-12AM",10)=""
^DD(59.2001,"B","NUMBER 12-1PM",12)=""
^DD(59.2001,"B","NUMBER 2-3PM",16)=""
^DD(59.2001,"B","NUMBER 3-4PM",18)=""
^DD(59.2001,"B","NUMBER 4-5PM",20)=""
^DD(59.2001,"B","NUMBER 8-9AM",4)=""
^DD(59.2001,"B","NUMBER 9-10AM",6)=""
^DD(59.2001,"B","NUMBER AFTER 5PM",22)=""
^DD(59.2001,"B","NUMBER BEFORE 8AM",2)=""
^DD(59.2001,"B","NUMBER NOT PICKED UP",24)=""
^DD(59.2001,"GL",0,1,.01)=""
^DD(59.2001,"GL",0,2,2)=""
^DD(59.2001,"GL",0,3,3)=""
^DD(59.2001,"GL",0,4,4)=""
^DD(59.2001,"GL",0,5,5)=""
^DD(59.2001,"GL",0,6,6)=""
^DD(59.2001,"GL",0,7,7)=""
^DD(59.2001,"GL",0,8,8)=""
^DD(59.2001,"GL",0,9,9)=""
^DD(59.2001,"GL",0,10,10)=""
^DD(59.2001,"GL",0,11,11)=""
^DD(59.2001,"GL",0,12,12)=""
^DD(59.2001,"GL",0,13,13)=""
^DD(59.2001,"GL",0,14,14)=""
^DD(59.2001,"GL",0,15,15)=""
^DD(59.2001,"GL",0,16,16)=""
^DD(59.2001,"GL",0,17,17)=""
^DD(59.2001,"GL",0,18,18)=""
^DD(59.2001,"GL",0,19,19)=""
^DD(59.2001,"GL",0,20,20)=""
^DD(59.2001,"GL",0,21,21)=""
^DD(59.2001,"GL",0,22,22)=""
^DD(59.2001,"GL",0,23,23)=""
^DD(59.2001,"GL",0,24,24)=""
^DD(59.2001,"IX",.01)=""
^DD(59.3,0)="FIELD^^15^16"
^DD(59.3,0,"DDA")="N"
^DD(59.3,0,"DT")="2960829"
^DD(59.3,0,"IX","B",59.3,.01)=""
^DD(59.3,0,"NM","GROUP DISPLAY")=""
^DD(59.3,0,"PT",52.11,2)=""
^DD(59.3,0,"PT",59,.121)=""
^DD(59.3,0,"VR")="7.0"
^DD(59.3,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(59.3,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(59.3,.01,1,0)="^.1"
^DD(59.3,.01,1,1,0)="59.3^B"
^DD(59.3,.01,1,1,1)="S ^PS(59.3,""B"",$E(X,1,30),DA)="""""
^DD(59.3,.01,1,1,2)="K ^PS(59.3,""B"",$E(X,1,30),DA)"
^DD(59.3,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(59.3,.01,21,0)="^^1^1^2930106^"
^DD(59.3,.01,21,1,0)="This field is used to store the names of designated display groups for the Bingo Board Display."
^DD(59.3,.01,23,0)="^^1^1^2930106^"
^DD(59.3,.01,23,1,0)="0 Node, field 1, file 59.3"
^DD(59.3,.01,"DT")="2921116"
^DD(59.3,1,0)="NAME/TICKET^RS^N:NAME;T:TICKET;^0;2^Q"
^DD(59.3,1,21,0)="^^2^2^2930128^^^^"
^DD(59.3,1,21,1,0)="N indicates that patients' names will be displayed.  T indicates that"
^DD(59.3,1,21,2,0)="ticket numbers will be displayed."
^DD(59.3,1,23,0)="^^1^1^2930128^^^"
^DD(59.3,1,23,1,0)="0 NODE, FIELD 2, FILE 59.3"
^DD(59.3,1,"DT")="2930128"
^DD(59.3,2,0)="DISPLAY DEVICE^*P3.5'^%ZIS(1,^0;4^S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1,4)=""""C-VT"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.3,2,12)="Only devices with Sub-type starting with ""C-VT"" are allowed."
^DD(59.3,2,12.1)="S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1,4)=""""C-VT"""""""
^DD(59.3,2,21,0)="^^1^1^2970815^^^^"
^DD(59.3,2,21,1,0)="This is the primary bingo board device."
^DD(59.3,2,23,0)="^^1^1^2970815^^^^"
^DD(59.3,2,23,1,0)="This is pointer to the Device file."
^DD(59.3,2,"DT")="2961002"
^DD(59.3,3,0)="RUNNING^FX^^RUN;1^K X"
^DD(59.3,3,3)="ANSWER MUST BE 1-11 CHARACTERS IN LENGTH"
^DD(59.3,3,21,0)="^^1^1^2970507^^"
^DD(59.3,3,21,1,0)="NOT USED"
^DD(59.3,3,"DT")="2930128"
^DD(59.3,4,0)="STOP^SX^1:Y;^STOP;1^K X"
^DD(59.3,4,21,0)="^^2^2^2970507^^^"
^DD(59.3,4,21,1,0)="This field is used as a flag to indicate the status of the Bingo Board Display."
^DD(59.3,4,21,2,0)="If set to 1 then the Board is STOPPED!"
^DD(59.3,4,23,0)="^^1^1^2970507^^^"
^DD(59.3,4,23,1,0)="NODE ""STOP"", FILE 59.3"
^DD(59.3,4,"DT")="2930129"
^DD(59.3,5,0)="MESSAGE^59.30002^^2;0"
^DD(59.3,5,21,0)="^^2^2^2930129^^^^"
^DD(59.3,5,21,1,0)="This field is used to display a msg on the Bingo "
^DD(59.3,5,21,2,0)="Board alternately with the Patient Notification data."
^DD(59.3,5,23,0)="^^1^1^2930129^^^"
^DD(59.3,5,23,1,0)="NODE 2, FILE 59.3"
^DD(59.3,6,0)="DURATION^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.3,6,.1)="REVERSE VIDEO DURATION"
^DD(59.3,6,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(59.3,6,21,0)="^^1^1^2960702^^^"
^DD(59.3,6,21,1,0)="NOT USED, RESERVED FOR FUTURE EXPANSION"
^DD(59.3,6,"DT")="2960702"
^DD(59.3,7,0)="DISPLAY SETUP HELP TEXT^S^0:NO;1:YES;^3;2^Q"
^DD(59.3,7,21,0)="^^2^2^2961002^^^"
^DD(59.3,7,21,1,0)="This field determines whether or not help text about setting up the"
^DD(59.3,7,21,2,0)="dedicated device is displayed."
^DD(59.3,7,23,0)="^^1^1^2961002^^^^"
^DD(59.3,7,23,1,0)="A set of codes where '0' is for NO and '1' is for YES."
^DD(59.3,7,"DT")="2961002"
^DD(59.3,8,0)="AUTO-START DISPLAY DEVICE^S^0:NO;1:YES;^3;1^Q"
^DD(59.3,8,3)=""
^DD(59.3,8,21,0)="^^2^2^2961002^^^^"
^DD(59.3,8,21,1,0)="This is a Set of Codes field (1=Yes; 0=No) to determine if the display"
^DD(59.3,8,21,2,0)="group will be scheduled to automatically start and/or stop each day."
^DD(59.3,8,23,0)="^^1^1^2961002^^^"
^DD(59.3,8,23,1,0)="Enter '1' for Yes and '0' for No."
^DD(59.3,8,"DT")="2961002"
^DD(59.3,9,0)="START TIME^F^^3;3^K:$L(X)>7!($L(X)<1)!'(X?1.2N1"":""1.2N) X"
^DD(59.3,9,3)="Answer must be 1-7 characters in length."
^DD(59.3,9,21,0)="^^1^1^2961028^^^^"
^DD(59.3,9,21,1,0)="This field contains the start time for the bingo board monitor."
^DD(59.3,9,"DT")="2960829"
^DD(59.3,10,0)="STOP TIME^D^^3;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(59.3,10,3)="TYPE A DATE BETWEEN 9/21/1995 AND 9/22/1995"
^DD(59.3,10,21,0)="^^1^1^2961003^^^^"
^DD(59.3,10,21,1,0)="This fields contains the stop time for the bingo board monitor."
^DD(59.3,10,"DT")="2960516"
^DD(59.3,11,0)="TWO COLUMN DISPLAY^RS^0:NO;1:YES;^3;5^Q"
^DD(59.3,11,3)="Enter NO for one column and YES for two column."
^DD(59.3,11,21,0)="^^2^2^2960528^^^^"
^DD(59.3,11,21,1,0)="This field determines if names/ticket #'s will be displayed in one or two"
^DD(59.3,11,21,2,0)="columns."
^DD(59.3,11,"DT")="2960528"
^DD(59.3,12,0)="DISPLAY WAIT TIME^S^0:NO;1:YES;^3;6^Q"
^DD(59.3,12,21,0)="^^2^2^2960604^"
^DD(59.3,12,21,1,0)="This field is a flag used to determine if the average or normal"
^DD(59.3,12,21,2,0)="waiting times are displayed."
^DD(59.3,12,"DT")="2960604"
^DD(59.3,13,0)="NORMAL WAIT TIME^NJ5,0^^3;7^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.3,13,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(59.3,13,21,0)="^^1^1^2960604^"
^DD(59.3,13,21,1,0)="This field represents the normal length of time in minutes."
^DD(59.3,13,"DT")="2960604"
^DD(59.3,14,0)="SITE #^RP59'^PS(59,^3;8^Q"
^DD(59.3,14,21,0)="^^2^2^2960702^^"
^DD(59.3,14,21,1,0)="This field is a pointer to the Outpatient Site file. It's required to"
^DD(59.3,14,21,2,0)="schedule the bingo board for auto-start by Taskman."
^DD(59.3,14,23,0)="^^1^1^2960702^^"
^DD(59.3,14,23,1,0)="This is a required field that points to the Outpatient Site file."
^DD(59.3,14,"DT")="2960702"
^DD(59.3,15,0)="TASK #^NJ7,0^^3;9^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.3,15,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(59.3,15,21,0)="^^2^2^2960702^"
^DD(59.3,15,21,1,0)="This field contains the task number of the job running the bingo board"
^DD(59.3,15,21,2,0)="monitor."
^DD(59.3,15,"DT")="2960702"
^DD(59.3,"B","AUTO-START DISPLAY DEVICE",8)=""
^DD(59.3,"B","DISPLAY DEVICE",2)=""
^DD(59.3,"B","DISPLAY SETUP HELP TEXT",7)=""
^DD(59.3,"B","DISPLAY WAIT TIME",12)=""
^DD(59.3,"B","DURATION",6)=""
^DD(59.3,"B","MESSAGE",5)=""
^DD(59.3,"B","NAME",.01)=""
^DD(59.3,"B","NAME/TICKET",1)=""
^DD(59.3,"B","NORMAL WAIT TIME",13)=""
^DD(59.3,"B","REVERSE VIDEO DURATION",6)="1"
^DD(59.3,"B","RUNNING",3)=""
^DD(59.3,"B","SITE #",14)=""
^DD(59.3,"B","START TIME",9)=""
^DD(59.3,"B","STOP",4)=""
^DD(59.3,"B","STOP TIME",10)=""
^DD(59.3,"B","TASK #",15)=""
^DD(59.3,"B","TWO COLUMN DISPLAY",11)=""
^DD(59.3,"GL",0,1,.01)=""
^DD(59.3,"GL",0,2,1)=""
^DD(59.3,"GL",0,3,6)=""
^DD(59.3,"GL",0,4,2)=""
^DD(59.3,"GL",2,0,5)=""
^DD(59.3,"GL",3,1,8)=""
^DD(59.3,"GL",3,2,7)=""
^DD(59.3,"GL",3,3,9)=""
^DD(59.3,"GL",3,4,10)=""
^DD(59.3,"GL",3,5,11)=""
^DD(59.3,"GL",3,6,12)=""
^DD(59.3,"GL",3,7,13)=""
^DD(59.3,"GL",3,8,14)=""
^DD(59.3,"GL",3,9,15)=""
^DD(59.3,"GL","RUN",1,3)=""
^DD(59.3,"GL","STOP",1,4)=""
^DD(59.3,"IX",.01)=""
^DD(59.3,"RQ",.01)=""
^DD(59.3,"RQ",1)=""
^DD(59.3,"RQ",11)=""
^DD(59.3,"RQ",14)=""
^DD(59.3,"SB",59.30002,5)=""
^DD(59.30002,0)="MESSAGE SUB-FIELD^^.01^1"
^DD(59.30002,0,"NM","MESSAGE")=""
^DD(59.30002,0,"UP")="59.3"
^DD(59.30002,.01,0)="MESSAGE^WL^^0;1^Q"
^DD(59.30002,.01,3)="A message to be displayed after the list of patients"
^DD(59.30002,.01,"DT")="2890310"
^DD(59.30002,"B","MESSAGE",.01)=""
^DD(59.30002,"GL",0,1,.01)=""
^DD(59.4,0)="FIELD^^31^7"
^DD(59.4,0,"DDA")="N"
^DD(59.4,0,"DT")="2910708"
^DD(59.4,0,"IX","APLFC",59.4,.01)=""
^DD(59.4,0,"IX","AUPLK",59.4,.01)=""
^DD(59.4,0,"IX","B",59.4,.01)=""
^DD(59.4,0,"NM","INPATIENT SITE")=""
^DD(59.4,0,"PT",58.1,4)=""
^DD(59.4,0,"PT",58.501,.01)=""
^DD(59.4,0,"PT",58.8,2)=""
^DD(59.4,0,"PT",59.7,20.4)=""
^DD(59.4,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(59.4,.01,.1)="Name"
^DD(59.4,.01,1,0)="^.1^^-1"
^DD(59.4,.01,1,1,0)="59.4^B"
^DD(59.4,.01,1,1,1)="S ^PS(59.4,""B"",$E(X,1,30),DA)="""""
^DD(59.4,.01,1,1,2)="K ^PS(59.4,""B"",$E(X,1,30),DA)"
^DD(59.4,.01,1,6,0)="59.4^AUPLK^MUMPS"
^DD(59.4,.01,1,6,1)="I '$D(PSGINITF) S ^PS(59.4,""AUPLK"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(59.4,.01,1,6,2)="Q"
^DD(59.4,.01,1,6,"%D",0)="^^1^2920901^"
^DD(59.4,.01,1,6,"%D",1,0)="Sets Inpatient Pharmacy System data cross-ref."
^DD(59.4,.01,1,7,0)="59.4^APLFC^MUMPS"
^DD(59.4,.01,1,7,1)="S ^PS(59.4,""APLFC"")=$S($D(^PS(59.7,1,20)):$P(^(20),""^""),1:"""")"
^DD(59.4,.01,1,7,2)="Q"
^DD(59.4,.01,1,7,"%D",0)="^^1^2920901^"
^DD(59.4,.01,1,7,"%D",1,0)="Sets Inpatient Pharmacy System data cross-ref."
^DD(59.4,.01,3)="Name must be 3-30 characters, not starting with punctuation."
^DD(59.4,.01,20,0)="^.3LA^2^2"
^DD(59.4,.01,20,1,0)="PSGW"
^DD(59.4,.01,20,2,0)="PS"
^DD(59.4,.01,21,0)="^^4^4^2900209^^^^"
^DD(59.4,.01,21,1,0)="This contains the name of the Inpatient Site.  A VAMC may have more than"
^DD(59.4,.01,21,2,0)="one inpatient site name, i.e. for multi-divisional sites or nursing"
^DD(59.4,.01,21,3,0)="homes.  A second site name would be used, for example, whenever different"
^DD(59.4,.01,21,4,0)="parameters are required."
^DD(59.4,.01,"DEL",1,0)="D ^PSGRPNT"
^DD(59.4,.01,"DT")="2890920"
^DD(59.4,4,0)="MERGE INV. SHEET AND PICK LIST^S^1:YES;0:NO;^0;5^Q"
^DD(59.4,4,20,0)="^.3LA^1^1"
^DD(59.4,4,20,1,0)="PSGW"
^DD(59.4,4,21,0)="^^7^7^2890725^^^^"
^DD(59.4,4,21,1,0)="If 1 is entered, the Automatic Replenishment inventory sheet and pick list "
^DD(59.4,4,21,2,0)="are merged - a separate pick list does not have to be printed.  The "
^DD(59.4,4,21,3,0)="inventory sheet contains the quantity dispensed column. The on "
^DD(59.4,4,21,4,0)="hand values do not have to be input. The user only enters the actual "
^DD(59.4,4,21,5,0)="quantity dispensed. If 0 is entered, the inventory sheet and pick list are "
^DD(59.4,4,21,6,0)="not merged.  The user prints the inventory sheet, enters on hand amounts, "
^DD(59.4,4,21,7,0)="prints the pick list, and dispenses the items."
^DD(59.4,4,"DT")="2850718"
^DD(59.4,4.5,0)="AR/WS AMIS FLAG^S^0:NO;1:YES;^0;25^Q"
^DD(59.4,4.5,.1)="BEGIN COLLECTING AMIS DATA NOW?"
^DD(59.4,4.5,3)="Set this parameter ONLY after completing the ""Prepare AMIS Data"" options!"
^DD(59.4,4.5,20,0)="^.3LA^1^1"
^DD(59.4,4.5,20,1,0)="PSGW"
^DD(59.4,4.5,21,0)="^^11^11^2910221^^^^"
^DD(59.4,4.5,21,1,0)="                        ***WARNING***"
^DD(59.4,4.5,21,2,0)="The setting of this parameter DIRECTLY AFFECTS THE ACCURACY of the"
^DD(59.4,4.5,21,3,0)="AMIS report!  This parameter should be set to ""NO"" until you have"
^DD(59.4,4.5,21,4,0)="completed ALL of the ""Prepare AMIS Data"" options on the "
^DD(59.4,4.5,21,5,0)="""Supervisor's Menu"".  Carefully examine the reports produced by the"
^DD(59.4,4.5,21,6,0)="""Data for AMIS Stats - Print"" option and the ""Show AOU Status for"
^DD(59.4,4.5,21,7,0)="AMIS"" option.  When you are sure that the data is accurate, then"
^DD(59.4,4.5,21,8,0)="AND ONLY THEN, set this site parameter to ""YES"".  Once the parameter"
^DD(59.4,4.5,21,9,0)="is set to ""YES"", you should under NO CIRCUMSTANCES flip the setting"
^DD(59.4,4.5,21,10,0)="back and forth.  While this parameter is set to ""NO"", NO DATA is"
^DD(59.4,4.5,21,11,0)="collected in the AR/WS Stats File - 58.5 for AMIS statistics!"
^DD(59.4,4.5,"DT")="2870904"
^DD(59.4,5,0)="PRINT RETURN COLUMNS?^S^1:YES;0:NO;^0;6^Q"
^DD(59.4,5,20,0)="^.3LA^1^1"
^DD(59.4,5,20,1,0)="PSGW"
^DD(59.4,5,21,0)="^^3^3^2890907^^^^"
^DD(59.4,5,21,1,0)="If 1, the return quantity column and the return reason column will appear"
^DD(59.4,5,21,2,0)="on the inventory sheet in the Automatic Replenishment package."
^DD(59.4,5,21,3,0)="If 0, the return columns do not appear on the inventory sheet."
^DD(59.4,5,"DT")="2850719"
^DD(59.4,5.5,0)="IS SITE SELECTABLE FOR AR/WS?^S^1:YES;0:NO;^0;26^Q"
^DD(59.4,5.5,.1)="INPATIENT PACKAGE USE"
^DD(59.4,5.5,20,0)="^.3LA^1^1"
^DD(59.4,5.5,20,1,0)="PSGW"
^DD(59.4,5.5,21,0)="^^6^6^2890725^^^^"
^DD(59.4,5.5,21,1,0)="Should this inpatient site name be shown for use by AR/WS users?  When"
^DD(59.4,5.5,21,2,0)="users sign into the module to carry out AR/WS functions, should this site"
^DD(59.4,5.5,21,3,0)="name be displayed?  If you answer ""yes"", the software will display or"
^DD(59.4,5.5,21,4,0)="allow you to pick this site name when you enter the module.  If you answer"
^DD(59.4,5.5,21,5,0)="""no"", the software will ""screen out"" the site name so that AR/WS users"
^DD(59.4,5.5,21,6,0)="will not see or be able to select the site name while in the AR/WS module."
^DD(59.4,5.5,"DT")="2871211"
^DD(59.4,5.6,0)="PROMPT FOR BAR CODES?^S^1:YES;0:NO;^0;27^Q"
^DD(59.4,5.6,3)="* NOTE * This field is not in use at this time.  In a future version, if this field is answered 'Yes', users will be offered the opportunity to use bar code readers for On-Demands."
^DD(59.4,5.6,20,0)="^.3LA^1^1"
^DD(59.4,5.6,20,1,0)="PSGW"
^DD(59.4,5.6,21,0)="^^3^3^2901012^^^^"
^DD(59.4,5.6,21,1,0)="* NOTE * This field is not in use at this time, it is for a future version."
^DD(59.4,5.6,21,2,0)="This field will control whether or not users will be given the opportunity"
^DD(59.4,5.6,21,3,0)="to use bar code readers to enter On-Demands."
^DD(59.4,5.6,"DT")="2900712"
^DD(59.4,31,0)="IS SITE SELECTABLE FOR CS?^S^1:YES;0:NO;^0;31^Q"
^DD(59.4,31,.1)="Is Site Selectable for CS?"
^DD(59.4,31,1,0)="^.1^^0"
^DD(59.4,31,3)="Enter 1 for ""YES"" or  0 for ""NO"""
^DD(59.4,31,20,0)="^.3LA^1^1"
^DD(59.4,31,20,1,0)="PSD"
^DD(59.4,31,21,0)="^^5^5^2940915^^^^"
^DD(59.4,31,21,1,0)="Should this site name be shown for use by the Controlled Substances module"
^DD(59.4,31,21,2,0)="of the Pharmacy software?  If you answer ""YES"", the software will display"
^DD(59.4,31,21,3,0)="or allow you to pick this site name for Controlled Substances.  If you"
^DD(59.4,31,21,4,0)="answer ""NO"", the software will screen out the site name so that CS users"
^DD(59.4,31,21,5,0)="will not see or be able to select the site name while in the CS package."
^DD(59.4,31,23,0)="^^1^1^2940915^^^^"
^DD(59.4,31,23,1,0)="Flag for use in the Controlled Substances package."
^DD(59.4,31,"DT")="2920323"
^DD(59.4,"B","AR/WS AMIS FLAG",4.5)=""
^DD(59.4,"B","INPATIENT PACKAGE USE",5.5)="1"
^DD(59.4,"B","IS SITE SELECTABLE FOR AR/WS?",5.5)=""
^DD(59.4,"B","IS SITE SELECTABLE FOR CS?",31)=""
^DD(59.4,"B","Is Site Selectable for CS?",31)="1"
^DD(59.4,"B","MERGE INV. SHEET AND PICK LIST",4)=""
^DD(59.4,"B","NAME",.01)=""
^DD(59.4,"B","Name",.01)="1"
^DD(59.4,"B","PRINT RETURN COLUMNS?",5)=""
^DD(59.4,"B","PROMPT FOR BAR CODES?",5.6)=""
^DD(59.4,"GL",0,1,.01)=""
^DD(59.4,"GL",0,5,4)=""
^DD(59.4,"GL",0,6,5)=""
^DD(59.4,"GL",0,25,4.5)=""
^DD(59.4,"GL",0,26,5.5)=""
^DD(59.4,"GL",0,27,5.6)=""
^DD(59.4,"GL",0,31,31)=""
^DD(59.4,"GR","PS",.01,2)=""
^DD(59.4,"GR","PSD",31,1)=""
^DD(59.4,"GR","PSGW",.01,1)=""
^DD(59.4,"GR","PSGW",4,1)=""
^DD(59.4,"GR","PSGW",4.5,1)=""
^DD(59.4,"GR","PSGW",5,1)=""
^DD(59.4,"GR","PSGW",5.5,1)=""
^DD(59.4,"GR","PSGW",5.6,1)=""
^DD(59.4,"IX",.01)=""
^DD(59.4,"RQ",.01)=""
^DD(59.5,0)="FIELD^^20^32"
^DD(59.5,0,"DDA")="N"
^DD(59.5,0,"DT")="2960319"
^DD(59.5,0,"IX","B",59.5,.01)=""
^DD(59.5,0,"NM","IV ROOM")=""
^DD(59.5,0,"PT",50.8,.01)=""
^DD(59.5,0,"PT",53.1,62)=""
^DD(59.5,0,"PT",55.01,.22)=""
^DD(59.5,0,"PT",58.831,.01)=""
^DD(59.5,0,"VR")="5.0"
^DD(59.5,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(59.5,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(59.5,.01,1,0)="^.1"
^DD(59.5,.01,1,1,0)="59.5^B"
^DD(59.5,.01,1,1,1)="S ^PS(59.5,""B"",$E(X,1,30),DA)="""""
^DD(59.5,.01,1,1,2)="K ^PS(59.5,""B"",$E(X,1,30),DA)"
^DD(59.5,.01,3)="Answer must be 1-30 characters in length, identifying an IV distribution area.  Each satellite (area) must be named separately."
^DD(59.5,.01,20,0)="^.3LA^1^1"
^DD(59.5,.01,20,1,0)="PSJI"
^DD(59.5,.01,21,0)="^^2^2^2970821^^^^"
^DD(59.5,.01,21,1,0)="Each IV order belongs to the IV room that input the order.  An IV room"
^DD(59.5,.01,21,2,0)="may process ONLY those orders that belong to that IV room."
^DD(59.5,.01,"DEL",1,0)="I 1 D EN^DDIOL(""IV ROOMS CANNOT BE DELETED!!"","""",""$C(7),!"")"
^DD(59.5,.01,"DT")="2860730"
^DD(59.5,.02,0)="DIVISION^P40.8'^DG(40.8,^0;4^Q"
^DD(59.5,.02,.1)=""
^DD(59.5,.02,3)="Enter the Medical Center Division where this IV Room is located."
^DD(59.5,.02,21,0)="^^2^2^2960319^^^"
^DD(59.5,.02,21,1,0)="This field contains the pointer to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(59.5,.02,21,2,0)="The division should be the one where the IV Room is located."
^DD(59.5,.02,23,0)="^^2^2^2960319^^"
^DD(59.5,.02,23,1,0)="This field is populated by an option on the DSS menu.  It is solely for use"
^DD(59.5,.02,23,2,0)="by the DSS software and has no impact on Pharmacy at this time."
^DD(59.5,.02,"DT")="2960319"
^DD(59.5,.101,0)="LENGTH OF LABEL^RNJ2,0^^1;1^K:+X'=X!(X>66)!(X<12)!(X?.E1"".""1N.N) X"
^DD(59.5,.101,3)="Type a whole number between 12 and 66."
^DD(59.5,.101,20,0)="^.3LA^1^1"
^DD(59.5,.101,20,1,0)="PSJI"
^DD(59.5,.101,21,0)="^^9^9^2860403^^^^"
^DD(59.5,.101,21,1,0)="The labels that you use may vary in height from 12 to 66 lines."
^DD(59.5,.101,21,2,0)="Measure the height of your label and multiply that height by the"
^DD(59.5,.101,21,3,0)="number of lines per inch that your printer is configured for."
^DD(59.5,.101,21,4,0)="NOTE: If all lines of print cannot fit within the length that"
^DD(59.5,.101,21,5,0)="      is defined here, they will continue to the next label."
^DD(59.5,.101,21,6,0)="EXAMPLE:"
^DD(59.5,.101,21,7,0)="    The average piggyback label is 3 inches high.  If you print"
^DD(59.5,.101,21,8,0)="    6 lines per inch, you should enter an '18' as the answer to"
^DD(59.5,.101,21,9,0)="    this parameter."
^DD(59.5,.101,"DT")="2860302"
^DD(59.5,.102,0)="USE SUSPENSE FUNCTIONS^S^0:NO;1:YES;^1;2^Q"
^DD(59.5,.102,20,0)="^.3LA^1^1"
^DD(59.5,.102,20,1,0)="PSJI"
^DD(59.5,.102,21,0)="^^3^3^2860403^^^^"
^DD(59.5,.102,21,1,0)="If you want the 'SUSPEND LABELS' as a valid choice at the 'ACTION:'"
^DD(59.5,.102,21,2,0)="prompt after order entry, answer '1'.  If you do not want any labels"
^DD(59.5,.102,21,3,0)="suspended after order entry, but rather have them printed, answer '0'."
^DD(59.5,.102,"DT")="2860212"
^DD(59.5,.103,0)="DOSE DUE LINE^S^0:NO DOSE DUE LINE;1:IVPB'S ONLY;2:LVP'S ONLY;3:BOTH IVPB'S AND LVP'S;^1;3^Q"
^DD(59.5,.103,3)=""
^DD(59.5,.103,20,0)="^.3LA^1^1"
^DD(59.5,.103,20,1,0)="PSJI"
^DD(59.5,.103,21,0)="^^5^5^2860221^^^^"
^DD(59.5,.103,21,1,0)="This parameter affects the printing of the dose due line on the IV LABEL."
^DD(59.5,.103,21,2,0)="If a '0' is entered, the time the dose is due will not be printed on the"
^DD(59.5,.103,21,3,0)="IV LABEL at all.  The dose due line will be printed on: IVPB's only if"
^DD(59.5,.103,21,4,0)="you select '1', LVP's if you select '2', and both IVPB's and LVP's if you"
^DD(59.5,.103,21,5,0)="choose '3'.  NOTE: LVP's include HYPERAL type orders."
^DD(59.5,.103,"DT")="2860212"
^DD(59.5,.104,0)="LVP'S GOOD FOR HOW MANY DAYS^NJ5,2^^1;4^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""3N.N) X"
^DD(59.5,.104,3)="Type a Number between 1 and 31, 2 Decimal Digits"
^DD(59.5,.104,20,0)="^.3LA^1^1"
^DD(59.5,.104,20,1,0)="PSJI"
^DD(59.5,.104,21,0)="^^4^4^2920612^^^^"
^DD(59.5,.104,21,1,0)="This number is used when the stop date of a new order is computed."
^DD(59.5,.104,21,2,0)="In other words, if Large Volume IV's are good for 14 days and a new "
^DD(59.5,.104,21,3,0)="order is input with a start date of today, the stop date will be 'T+14'."
^DD(59.5,.104,21,4,0)=" "
^DD(59.5,.104,"DT")="2910312"
^DD(59.5,.105,0)="EXPIRE ALL ORDERS ON SAME DAY^S^0:NO;1:YES;^1;5^Q"
^DD(59.5,.105,20,0)="^.3LA^1^1"
^DD(59.5,.105,20,1,0)="PSJI"
^DD(59.5,.105,21,0)="^^6^6^2860221^^^^"
^DD(59.5,.105,21,1,0)="Enter a '1' to stop all IV orders automatically on the same day."
^DD(59.5,.105,21,2,0)="The day the orders are stopped will be the 'STOP DATE' of the"
^DD(59.5,.105,21,3,0)="FIRST ACTIVE IV order found in the file.  The stop/date that is"
^DD(59.5,.105,21,4,0)="found will be shown as a default for the stop/date of the IV ORDER."
^DD(59.5,.105,21,5,0)=" "
^DD(59.5,.105,21,6,0)=" "
^DD(59.5,.105,"DT")="2840613"
^DD(59.5,.106,0)="*DC ORDERS ON WARD TRANSFER^S^0:NO;1:YES;^1;6^Q"
^DD(59.5,.106,3)=""
^DD(59.5,.106,20,0)="^.3LA^1^1"
^DD(59.5,.106,20,1,0)="PSJI"
^DD(59.5,.106,21,0)="^^3^3^2890831^^^"
^DD(59.5,.106,21,1,0)="This only affects orders of patients transferring BETWEEN WARDS,"
^DD(59.5,.106,21,2,0)="and NOT transferring BETWEEN SERVICES.  Enter a '1' if you want"
^DD(59.5,.106,21,3,0)="this feature."
^DD(59.5,.106,21,4,0)="** This is effective only for ward transfers not for transfers across"
^DD(59.5,.106,21,5,0)="   services !"
^DD(59.5,.106,"DT")="2840928"
^DD(59.5,.107,0)="HEADER LABEL^S^0:NO;1:YES;^1;7^Q"
^DD(59.5,.107,3)=""
^DD(59.5,.107,20,0)="^.3LA^1^1"
^DD(59.5,.107,20,1,0)="PSJI"
^DD(59.5,.107,21,0)="5^^5^5^2940720^^"
^DD(59.5,.107,21,1,0)="When set to ""YES"", an extra label is generated to record lot #'s and "
^DD(59.5,.107,21,2,0)="provide a record for new orders entered since the last printing of the "
^DD(59.5,.107,21,3,0)="active order list. This extra label, together with the active order list "
^DD(59.5,.107,21,4,0)="provides a paper backup system in the event that the computer system "
^DD(59.5,.107,21,5,0)="becomes ""unavailable"" to the user."
^DD(59.5,.107,22)=""
^DD(59.5,.107,"DT")="2850319"
^DD(59.5,.108,0)="ACTIVITY RULER^S^0:NO;1:YES;^1;8^Q"
^DD(59.5,.108,20,0)="^.3LA^1^1"
^DD(59.5,.108,20,1,0)="PSJI"
^DD(59.5,.108,21,0)="^^5^5^2880708^^^^"
^DD(59.5,.108,21,1,0)="The 'ACTIVITY RULER' provides a visual representation of the relationship"
^DD(59.5,.108,21,2,0)="between coverage times, doses due and order start times.  The intent"
^DD(59.5,.108,21,3,0)="is to provide the 'on-the-floor' user with a means of 'tracking' activity"
^DD(59.5,.108,21,4,0)="in the IV room and determining when to call for doses before the normal"
^DD(59.5,.108,21,5,0)="delivery."
^DD(59.5,.108,"DT")="2850321"
^DD(59.5,.109,0)="SHOW BED LOCATION ON LABEL^S^0:NO;1:YES;^1;9^Q"
^DD(59.5,.109,20,0)="^.3LA^1^1"
^DD(59.5,.109,20,1,0)="PSJI"
^DD(59.5,.109,21,0)="^^4^4^2860128^^"
^DD(59.5,.109,21,1,0)="The patient's 'WARD LOCATION' is ALWAYS printed on the IV label."
^DD(59.5,.109,21,2,0)="If the 'BED LOCATION' is available, and if it is desired to have"
^DD(59.5,.109,21,3,0)="this ADDITIONAL information on the IV label, respond with a 'Y' or"
^DD(59.5,.109,21,4,0)="a '1' at this 'IV ROOM' parameter prompt."
^DD(59.5,.109,"DT")="2850327"
^DD(59.5,.11,0)="*SHOW UNIT NEEDS^S^0:NO;1:YES;^1;10^Q"
^DD(59.5,.11,20,0)="^.3LA^1^1"
^DD(59.5,.11,20,1,0)="PSJI"
^DD(59.5,.11,21,0)="^^8^8^2860128^^^^"
^DD(59.5,.11,21,1,0)="If this parameter is turned on, a visual 'time scale' will be shown."
^DD(59.5,.11,21,2,0)="This time scale will show what the orders' unit needs will be for 14"
^DD(59.5,.11,21,3,0)="24-hour periods."
^DD(59.5,.11,21,4,0)="EXAMPLE:"
^DD(59.5,.11,21,5,0)="   If an order was given with an infusion rate of 220 ml/hr and a total"
^DD(59.5,.11,21,6,0)="   volume of 1000 ML, the unit needs would be:"
^DD(59.5,.11,21,7,0)="DAY  :  1   2   3   4   5   6   7   8   9  10  11  12  13  14"
^DD(59.5,.11,21,8,0)="UNIT :  5   5   5   6   5   5   6   5   5   5   6   5   5   6"
^DD(59.5,.11,"DT")="2850420"
^DD(59.5,.111,0)="HYPERAL GOOD FOR HOW MANY DAYS^NJ5,2^^1;17^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""3N.N) X"
^DD(59.5,.111,3)="Type a Number between 1 and 31, 2 Decimal Digits"
^DD(59.5,.111,20,0)="^.3LA^1^1"
^DD(59.5,.111,20,1,0)="PSJI"
^DD(59.5,.111,21,0)="^^4^4^2910312^^^"
^DD(59.5,.111,21,1,0)="This number is used when the stop date of a new order is "
^DD(59.5,.111,21,2,0)="computed. In other words, if a hyperal order is good for"
^DD(59.5,.111,21,3,0)="14 days and a new order is entered today, the default stop"
^DD(59.5,.111,21,4,0)="date will be 14 days from today."
^DD(59.5,.111,"DT")="2910312"
^DD(59.5,.112,0)="PB'S GOOD FOR HOW MANY DAYS^NJ5,2^^1;18^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""3N.N) X"
^DD(59.5,.112,3)="Type a Number between 1 and 31, 2 Decimal Digits"
^DD(59.5,.112,20,0)="^.3LA^1^1"
^DD(59.5,.112,20,1,0)="PSJI"
^DD(59.5,.112,21,0)="^^3^3^2910312^^^^"
^DD(59.5,.112,21,1,0)="This number is used when the stop date of a new order is computed."
^DD(59.5,.112,21,2,0)="In other words, if a piggyback order is good for 14 days and a new order"
^DD(59.5,.112,21,3,0)="is entered today, the default stop date will be 14 days from now."
^DD(59.5,.112,"DT")="2910312"
^DD(59.5,2,0)="START OF COVERAGE^59.51I^^2;0"
^DD(59.5,2,20,0)="^.3LA^1^1"
^DD(59.5,2,20,1,0)="PSJI"
^DD(59.5,2,21,0)="^^5^5^2940714^^^^"
^DD(59.5,2,21,1,0)="An 'IV ROOM' may have one or more 'MANUFACTURING QUEUES'.  A queue"
^DD(59.5,2,21,2,0)="will contain all IV orders of a SPECIFIED TYPE, that require"
^DD(59.5,2,21,3,0)="distribution to the wards during a SPECIFIED TIME INTERVAL."
^DD(59.5,2,21,4,0)="EACH 'MANUFACTURING QUEUE' IS DEFINED FOR ONE TYPE AND ONE TYPE ONLY!"
^DD(59.5,2,21,5,0)="Enter midnight as 2400."
^DD(59.5,3,0)="DELIVERY TIME^59.52^^3;0"
^DD(59.5,3,20,0)="^.3LA^1^1"
^DD(59.5,3,20,1,0)="PSJI"
^DD(59.5,3,21,0)="^^2^2^2940714^^^^"
^DD(59.5,3,21,1,0)="These are the times which IV orders are to be prepared for delivery"
^DD(59.5,3,21,2,0)="to the wards."
^DD(59.5,4,0)="PIGGYBACK WARD LIST RUN FLAG^F^^P;E1,250^K:$L(X)>250!($L(X)<10) X"
^DD(59.5,4,3)="Answer must be 10-250 characters in length."
^DD(59.5,4,20,0)="^.3LA^1^1"
^DD(59.5,4,20,1,0)="PSJI"
^DD(59.5,4,21,0)="^^1^1^2880708^^"
^DD(59.5,4,21,1,0)="This flag gets set when the ward list has been run."
^DD(59.5,4,21,2,0)=" "
^DD(59.5,4,21,3,0)="THIS IS NO LONGER USED BY THE PACKAGE, AND WILL BE DELETED."
^DD(59.5,4,"DT")="2850326"
^DD(59.5,5,0)="ADMIXTURES WARD LIST RUN FLAG^F^^A;E1,250^K:$L(X)>250!($L(X)<10) X"
^DD(59.5,5,3)="Answer must be 10-250 characters in length."
^DD(59.5,5,20,0)="^.3LA^1^1"
^DD(59.5,5,20,1,0)="PSJI"
^DD(59.5,5,21,0)="^^1^1^2880708^^"
^DD(59.5,5,21,1,0)="This flag gets set when the ward list has been run."
^DD(59.5,5,21,2,0)=" "
^DD(59.5,5,21,3,0)="THIS IS NO LONGER USED BY THE PACKAGE, AND WILL BE DELETED."
^DD(59.5,5,"DT")="2850326"
^DD(59.5,6,0)="HYPERAL WARD LIST RUN FLAG^F^^H;E1,250^K:$L(X)>250!($L(X)<10) X"
^DD(59.5,6,3)="Answer must be 10-250 characters in length."
^DD(59.5,6,20,0)="^.3LA^1^1"
^DD(59.5,6,20,1,0)="PSJI"
^DD(59.5,6,21,0)="^^1^1^2880708^^"
^DD(59.5,6,21,1,0)="This flag gets set when the ward list is run."
^DD(59.5,6,21,2,0)=" "
^DD(59.5,6,21,3,0)="THIS IS NO LONGER USED BY THE PACKAGE, AND WILL BE DELETED."
^DD(59.5,6,"DT")="2850326"
^DD(59.5,7,0)="*FILLED/CHECKED BY LABEL LINE^S^0:NO;1:YES;^1;11^Q"
^DD(59.5,7,20,0)="^.3LA^1^1"
^DD(59.5,7,20,1,0)="PSJI"
^DD(59.5,7,21,0)="^^2^2^2880708^^"
^DD(59.5,7,21,1,0)="To have the 'Filled by: ____ Checked by: ____"" line printed on every"
^DD(59.5,7,21,2,0)="label, answer 'YES' to this field."
^DD(59.5,7,"DT")="2860519"
^DD(59.5,8,0)="TOTAL VOL. ON HYPERAL LABELS^S^0:NO;1:YES;^1;12^Q"
^DD(59.5,8,20,0)="^.3LA^1^1"
^DD(59.5,8,20,1,0)="PSJI"
^DD(59.5,8,21,0)="^^2^2^2940708^^^^"
^DD(59.5,8,21,1,0)="To have the total volume of solutions and additives printed"
^DD(59.5,8,21,2,0)="on all hyperal labels, answer 'YES' to this site parameter."
^DD(59.5,8,"DT")="2850621"
^DD(59.5,9,0)="WIDTH OF LABEL^RNJ3,0^^1;13^K:+X'=X!(X>100)!(X<10)!(X?.E1"".""1N.N) X"
^DD(59.5,9,3)="Enter a number between 10 and 100 of maximum characters that may print on a single line of your labels."
^DD(59.5,9,20,0)="^.3LA^1^1"
^DD(59.5,9,20,1,0)="PSJI"
^DD(59.5,9,21,0)="^^4^4^2940802^^^^"
^DD(59.5,9,21,1,0)="  Enter the maximum allowable width of your label in number of characters."
^DD(59.5,9,21,2,0)="If you do not enter data into this field, the system will use '30' as"
^DD(59.5,9,21,3,0)="the default.  If a line of print cannot fit within the width you define "
^DD(59.5,9,21,4,0)="here, it will continue on the next line of the label."
^DD(59.5,9,"DT")="2850827"
^DD(59.5,10,0)="STOP TIME FOR ORDER^NJ4,0X^^1;14^K:X>2400!($L(X)<4)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S PSIVX=X,PSIVY=$G(Y) S %DT=""T"",Y=DT_"".""_X X ^DD(""DD"") S X=Y D ^%DT S X=PSIVX K:Y<0 X S Y=PSIVY K PSIVX,PSIVY"
^DD(59.5,10,3)="Type a whole number between 0001 and 2400."
^DD(59.5,10,20,0)="^.3LA^1^1"
^DD(59.5,10,20,1,0)="PSJI"
^DD(59.5,10,21,0)="^^4^4^2910306^^^^"
^DD(59.5,10,21,1,0)="  Enter the TIME of the day that orders should end.  For example"
^DD(59.5,10,21,2,0)="if IV's are good for 14 days and an order's start date/time is "
^DD(59.5,10,21,3,0)="MAY 01 1985@1200 and 2200 is entered at this prompt,"
^DD(59.5,10,21,4,0)="then the default stop date/time will be MAY 14 1985@22:00."
^DD(59.5,10,"DT")="2860128"
^DD(59.5,11,0)="*DC ORDERS ON SERVICE TRANSFER^S^0:NO;1:YES;^1;15^Q"
^DD(59.5,11,20,0)="^.3LA^1^1"
^DD(59.5,11,20,1,0)="PSJI"
^DD(59.5,11,21,0)="^^4^4^2910306^^^"
^DD(59.5,11,21,1,0)="If you want all IV ORDERS to be dc'd automatically when a patient"
^DD(59.5,11,21,2,0)="transfers between SERVICE, enter a '1' or 'YES'.  If a '0' or 'NO'"
^DD(59.5,11,21,3,0)="is entered in this site parameter, no orders will be automatically"
^DD(59.5,11,21,4,0)="dc'd due to service transfer."
^DD(59.5,11,"DT")="2850907"
^DD(59.5,12,0)="LINE FEEDS BETWEEN LABELS^NJ1,0^^1;16^K:+X'=X!(X>6)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.5,12,3)="Type a whole number between 0 and 6."
^DD(59.5,12,20,0)="^.3LA^1^1"
^DD(59.5,12,20,1,0)="PSJI"
^DD(59.5,12,21,0)="^^4^4^2910306^^^^"
^DD(59.5,12,21,1,0)="  Type the number of line feeds between each IV label.  Ex. If"
^DD(59.5,12,21,2,0)="you type '1', there will be one line feed between each IV label."
^DD(59.5,12,21,3,0)="This parameter makes it possible to have a top and bottom margin"
^DD(59.5,12,21,4,0)="on your IV LABELS."
^DD(59.5,12,"DT")="2851218"
^DD(59.5,13,0)="LABEL DEVICE^FX^^0;2^K:$L(X)>30!($L(X)<1) X I $D(X),X]"""" D ENDLP^PSJDDUT2 K:X="""" X"
^DD(59.5,13,3)="Enter a device on which labels may be printed."
^DD(59.5,13,20,0)="^.3LA^1^1"
^DD(59.5,13,20,1,0)="PSJI"
^DD(59.5,13,21,0)="^^3^3^2970219^"
^DD(59.5,13,21,1,0)="  Enter the name of the device that will be used most frequently as the LABEL"
^DD(59.5,13,21,2,0)="device for this IV ROOM.  This field will be shown as the default for the"
^DD(59.5,13,21,3,0)="'Printer label device: ' prompt when signing into the IV PACKAGE."
^DD(59.5,13,"DT")="3050310"
^DD(59.5,14,0)="REPORT DEVICE^FX^^0;3^K:$L(X)>30!($L(X)<1) X I $D(X),X]"""" D ENDLP^PSJDDUT2 K:X="""" X"
^DD(59.5,14,3)="Enter a device on which reports may be printed."
^DD(59.5,14,20,0)="^.3LA^1^1"
^DD(59.5,14,20,1,0)="PSJI"
^DD(59.5,14,21,0)="^^4^4^2940714^^^^"
^DD(59.5,14,21,1,0)=" Enter the PROFILE device number or name that will be used most frequently"
^DD(59.5,14,21,2,0)="by this IV ROOM.  This field will be shown as the default for the 'Printer"
^DD(59.5,14,21,3,0)="profile device: ' prompt when signing into the IV PACKAGE."
^DD(59.5,14,21,4,0)=" "
^DD(59.5,14,"DT")="3050310"
^DD(59.5,15,0)="END OF LABEL TEXT^F^^4;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(59.5,15,3)="Answer must be 1-245 characters in length."
^DD(59.5,15,20,0)="^.3LA^1^1"
^DD(59.5,15,20,1,0)="PSJI"
^DD(59.5,15,21,0)="^^7^7^2910306^^^^"
^DD(59.5,15,21,1,0)="  Enter any END OF LABEL TEXT, separated by '^', that you wish to print"
^DD(59.5,15,21,2,0)="at the bottom of every IV LABEL.  For example:"
^DD(59.5,15,21,3,0)="  To have 'RETURN TO IV ROOM IN 24-HOURS'"
^DD(59.5,15,21,4,0)="          'FILLED BY: ____  CHECKED BY: ____'"
^DD(59.5,15,21,5,0)="printed at the bottom of your IV LABELS, enter:"
^DD(59.5,15,21,6,0)="  'RETURN TO IV ROOM IN 24-HOURS^FILLED BY: ____  CHECKED BY: ____' in"
^DD(59.5,15,21,7,0)="this field."
^DD(59.5,15,"DT")="2860519"
^DD(59.5,17,0)="SYRN'S GOOD FOR HOW MANY DAYS^NJ5,2^^5;1^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""3N.N) X"
^DD(59.5,17,3)="Type a Number between 1 and 31, 2 Decimal Digits"
^DD(59.5,17,20,0)="^.3LA^1^1"
^DD(59.5,17,20,1,0)="PSJI"
^DD(59.5,17,21,0)="^^2^2^2940714^^^^"
^DD(59.5,17,21,1,0)="This field is used to determine the stop date for the Syringes order."
^DD(59.5,17,21,2,0)=" "
^DD(59.5,17,"DT")="2910312"
^DD(59.5,18,0)="CHEMO'S GOOD FOR HOW MANY DAYS^NJ5,2^^5;2^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""3N.N) X"
^DD(59.5,18,3)="Type a Number between 1 and 31, 2 Decimal Digits"
^DD(59.5,18,20,0)="^.3LA^1^1"
^DD(59.5,18,20,1,0)="PSJI"
^DD(59.5,18,21,0)="^^2^2^2940714^^^^"
^DD(59.5,18,21,1,0)="This field is used to determined the stop date for the Chemo order."
^DD(59.5,18,21,2,0)=" "
^DD(59.5,18,"DT")="2910312"
^DD(59.5,19,0)="INACTIVATION DATE^D^^I;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.5,19,3)="Enter the date this IV Room will no longer be used."
^DD(59.5,19,21,0)="^^4^4^2920220^^^"
^DD(59.5,19,21,1,0)="  This is used to place an IV Room out of service. An IV Room should "
^DD(59.5,19,21,2,0)="NEVER be deleted as some IV orders may still be using it. Once the"
^DD(59.5,19,21,3,0)="inactivation date entered is reached, the IV Room will no longer be"
^DD(59.5,19,21,4,0)="selectable in IV order entry options."
^DD(59.5,19,23,0)="^^3^3^2920220^^"
^DD(59.5,19,23,1,0)=" Used to place an IV Room out of service. Once the IV Room's inactivation"
^DD(59.5,19,23,2,0)="date has been reached, it will no longer be selectable in the Inpatient"
^DD(59.5,19,23,3,0)="Medications package."
^DD(59.5,19,"DT")="2910923"
^DD(59.5,20,0)="DAYS TO RETAIN IV STATS^NJ4,0^^1;19^K:+X'=X!(X>2000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(59.5,20,3)="Type a Number between 100 and 2000, 0 Decimal Digits"
^DD(59.5,20,21,0)="^^3^3^2920528^^"
^DD(59.5,20,21,1,0)="  This is used to allow the site to specify the number of days to keep"
^DD(59.5,20,21,2,0)="data in the IV STATS file (50.8). Information may be retained in the"
^DD(59.5,20,21,3,0)="IV STATS file for 100 to 2000 days."
^DD(59.5,20,23,0)="^^3^3^2920528^"
^DD(59.5,20,23,1,0)="  This is used to allow the site to specify the number of days to keep"
^DD(59.5,20,23,2,0)="data in the IV STATS file (50.8). If no value is found for this field,"
^DD(59.5,20,23,3,0)="the IV STATS data will be retained for 100 days."
^DD(59.5,20,"DT")="2920528"
^DD(59.5,"B","*DC ORDERS ON SERVICE TRANSFER",11)=""
^DD(59.5,"B","*DC ORDERS ON WARD TRANSFER",.106)=""
^DD(59.5,"B","*FILLED/CHECKED BY LABEL LINE",7)=""
^DD(59.5,"B","*SHOW UNIT NEEDS",.11)=""
^DD(59.5,"B","ACTIVITY RULER",.108)=""
^DD(59.5,"B","ADMIXTURES WARD LIST RUN FLAG",5)=""
^DD(59.5,"B","CHEMO'S GOOD FOR HOW MANY DAYS",18)=""
^DD(59.5,"B","DAYS TO RETAIN IV STATS",20)=""
^DD(59.5,"B","DELIVERY TIME",3)=""
^DD(59.5,"B","DIVISION",.02)=""
^DD(59.5,"B","DOSE DUE LINE",.103)=""
^DD(59.5,"B","END OF LABEL TEXT",15)=""
^DD(59.5,"B","EXPIRE ALL ORDERS ON SAME DAY",.105)=""
^DD(59.5,"B","HEADER LABEL",.107)=""
^DD(59.5,"B","HYPERAL GOOD FOR HOW MANY DAYS",.111)=""
^DD(59.5,"B","HYPERAL WARD LIST RUN FLAG",6)=""
^DD(59.5,"B","INACTIVATION DATE",19)=""
^DD(59.5,"B","LABEL DEVICE",13)=""
^DD(59.5,"B","LENGTH OF LABEL",.101)=""
^DD(59.5,"B","LINE FEEDS BETWEEN LABELS",12)=""
^DD(59.5,"B","LVP'S GOOD FOR HOW MANY DAYS",.104)=""
^DD(59.5,"B","NAME",.01)=""
^DD(59.5,"B","PB'S GOOD FOR HOW MANY DAYS",.112)=""
^DD(59.5,"B","PIGGYBACK WARD LIST RUN FLAG",4)=""
^DD(59.5,"B","REPORT DEVICE",14)=""
^DD(59.5,"B","SHOW BED LOCATION ON LABEL",.109)=""
^DD(59.5,"B","START OF COVERAGE",2)=""
^DD(59.5,"B","STOP TIME FOR ORDER",10)=""
^DD(59.5,"B","SYRN'S GOOD FOR HOW MANY DAYS",17)=""
^DD(59.5,"B","TOTAL VOL. ON HYPERAL LABELS",8)=""
^DD(59.5,"B","USE SUSPENSE FUNCTIONS",.102)=""
^DD(59.5,"B","WIDTH OF LABEL",9)=""
^DD(59.5,"GL",0,1,.01)=""
^DD(59.5,"GL",0,2,13)=""
^DD(59.5,"GL",0,3,14)=""
^DD(59.5,"GL",0,4,.02)=""
^DD(59.5,"GL",1,1,.101)=""
^DD(59.5,"GL",1,2,.102)=""
^DD(59.5,"GL",1,3,.103)=""
^DD(59.5,"GL",1,4,.104)=""
^DD(59.5,"GL",1,5,.105)=""
^DD(59.5,"GL",1,6,.106)=""
^DD(59.5,"GL",1,7,.107)=""
^DD(59.5,"GL",1,8,.108)=""
^DD(59.5,"GL",1,9,.109)=""
^DD(59.5,"GL",1,10,.11)=""
^DD(59.5,"GL",1,11,7)=""
^DD(59.5,"GL",1,12,8)=""
^DD(59.5,"GL",1,13,9)=""
^DD(59.5,"GL",1,14,10)=""
^DD(59.5,"GL",1,15,11)=""
^DD(59.5,"GL",1,16,12)=""
^DD(59.5,"GL",1,17,.111)=""
^DD(59.5,"GL",1,18,.112)=""
^DD(59.5,"GL",1,19,20)=""
^DD(59.5,"GL",2,0,2)=""
^DD(59.5,"GL",3,0,3)=""
^DD(59.5,"GL",4,"E1,245",15)=""
^DD(59.5,"GL",5,1,17)=""
^DD(59.5,"GL",5,2,18)=""
^DD(59.5,"GL","A","E1,250",5)=""
^DD(59.5,"GL","H","E1,250",6)=""
^DD(59.5,"GL","I",1,19)=""
^DD(59.5,"GL","P","E1,250",4)=""
^DD(59.5,"GR","PSJI",.01,1)=""
^DD(59.5,"GR","PSJI",.101,1)=""
^DD(59.5,"GR","PSJI",.102,1)=""
^DD(59.5,"GR","PSJI",.103,1)=""
^DD(59.5,"GR","PSJI",.104,1)=""
^DD(59.5,"GR","PSJI",.105,1)=""
^DD(59.5,"GR","PSJI",.106,1)=""
^DD(59.5,"GR","PSJI",.107,1)=""
^DD(59.5,"GR","PSJI",.108,1)=""
^DD(59.5,"GR","PSJI",.109,1)=""
^DD(59.5,"GR","PSJI",.11,1)=""
^DD(59.5,"GR","PSJI",.111,1)=""
^DD(59.5,"GR","PSJI",.112,1)=""
^DD(59.5,"GR","PSJI",2,1)=""
^DD(59.5,"GR","PSJI",3,1)=""
^DD(59.5,"GR","PSJI",4,1)=""
^DD(59.5,"GR","PSJI",5,1)=""
^DD(59.5,"GR","PSJI",6,1)=""
^DD(59.5,"GR","PSJI",7,1)=""
^DD(59.5,"GR","PSJI",8,1)=""
^DD(59.5,"GR","PSJI",9,1)=""
^DD(59.5,"GR","PSJI",10,1)=""
^DD(59.5,"GR","PSJI",11,1)=""
^DD(59.5,"GR","PSJI",12,1)=""
^DD(59.5,"GR","PSJI",13,1)=""
^DD(59.5,"GR","PSJI",14,1)=""
^DD(59.5,"GR","PSJI",15,1)=""
^DD(59.5,"GR","PSJI",17,1)=""
^DD(59.5,"GR","PSJI",18,1)=""
^DD(59.5,"IX",.01)=""
^DD(59.5,"RQ",.01)=""
^DD(59.5,"RQ",.101)=""
^DD(59.5,"RQ",9)=""
^DD(59.5,"SB",59.51,2)=""
^DD(59.5,"SB",59.52,3)=""
^DD(59.51,0)="START OF COVERAGE SUB-FIELD^NL^.06^6"
^DD(59.51,0,"DT")="2940708"
^DD(59.51,0,"ID","WRITE")="D EN^DDIOL(""   ""_$P(^(0),""^"",2)_"" covering from ""_$P(^(0),""^"",3))"
^DD(59.51,0,"IX","AC",59.51,.02)=""
^DD(59.51,0,"NM","START OF COVERAGE")=""
^DD(59.51,0,"UP")="59.5"
^DD(59.51,.01,0)="START OF COVERAGE^MRFX^^0;1^K:$L(X)>4!($L(X)<4)!'(X?1N.N)!(+X>2400)!(X#100>59) X"
^DD(59.51,.01,3)="Answer must be in military time (i.e., 4 NUMBERS)!"
^DD(59.51,.01,20,0)="^.3LA^1^1"
^DD(59.51,.01,20,1,0)="PSJI"
^DD(59.51,.01,21,0)="^^4^4^2940708^^^^"
^DD(59.51,.01,21,1,0)="Enter the military time that designates the first administration time"
^DD(59.51,.01,21,2,0)="covered by this manufacturing run.  In other words, if the previous"
^DD(59.51,.01,21,3,0)="manufacturing period covered up to and including the 0900 dose,"
^DD(59.51,.01,21,4,0)="the start of coverage would begin at 0901."
^DD(59.51,.01,"DT")="2940708"
^DD(59.51,.02,0)="TYPE^RS^A:ADMIXTURES AND PRIMARIES;P:PIGGYBACKS;H:HYPERALS;S:SYRINGE;C:CHEMOTHERAPY;^0;2^Q"
^DD(59.51,.02,1,0)="^.1"
^DD(59.51,.02,1,1,0)="59.51^AC"
^DD(59.51,.02,1,1,1)="S ^PS(59.5,DA(1),2,""AC"",$E(X,1,30),DA)="""""
^DD(59.51,.02,1,1,2)="K ^PS(59.5,DA(1),2,""AC"",$E(X,1,30),DA)"
^DD(59.51,.02,20,0)="^.3LA^1^1"
^DD(59.51,.02,20,1,0)="PSJI"
^DD(59.51,.02,21,0)="^^2^2^2920519^^^^"
^DD(59.51,.02,21,1,0)="Enter the IV type for this queue.  You may enter ONLY ONE type"
^DD(59.51,.02,21,2,0)="for each queue that you define."
^DD(59.51,.02,"DT")="2920519"
^DD(59.51,.03,0)="DESCRIPTION^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(59.51,.03,3)="Answer must be 3-30 characters in length."
^DD(59.51,.03,20,0)="^.3LA^1^1"
^DD(59.51,.03,20,1,0)="PSJI"
^DD(59.51,.03,21,0)="^^5^5^2940714^^^^"
^DD(59.51,.03,21,1,0)="You may enter a description for each delivery time (3 to 30 characters)."
^DD(59.51,.03,21,2,0)="You will be prompted with a default description and you are"
^DD(59.51,.03,21,3,0)="encouraged to USE IT!  This description will appear when you"
^DD(59.51,.03,21,4,0)="request manufacturing records and ward lists.  Using the default"
^DD(59.51,.03,21,5,0)="prompt will probably lead to less confusion for your users."
^DD(59.51,.03,"DT")="2840613"
^DD(59.51,.04,0)="END OF COVERAGE^RFX^^0;4^K:$L(X)>4!($L(X)<4)!'(X?1N.N)!(+X>2400)!(X#100>59) X"
^DD(59.51,.04,3)="You must enter 4 numbers for time (i.e., MILITARY TIME)!"
^DD(59.51,.04,20,0)="^.3LA^1^1"
^DD(59.51,.04,20,1,0)="PSJI"
^DD(59.51,.04,21,0)="^^6^6^2940714^^^^"
^DD(59.51,.04,21,1,0)=" "
^DD(59.51,.04,21,2,0)=" "
^DD(59.51,.04,21,3,0)="Enter the military time that designates the last administration time"
^DD(59.51,.04,21,4,0)="covered by this manufacturing run.  Enter midnight as 2400."
^DD(59.51,.04,21,5,0)=" "
^DD(59.51,.04,21,6,0)=" "
^DD(59.51,.04,"DT")="2860131"
^DD(59.51,.05,0)="MANUFACTURING TIME^FX^^0;5^K:$L(X)>4!($L(X)<4)!'(X?1N.N)!(+X>2400)!(X#100>59) X"
^DD(59.51,.05,3)="Enter time as 4 numbers (i.e., '1700' for 5PM)!"
^DD(59.51,.05,20,0)="^.3LA^1^1"
^DD(59.51,.05,20,1,0)="PSJI"
^DD(59.51,.05,21,0)="^^4^4^2940714^^^^"
^DD(59.51,.05,21,1,0)="Enter the military time that designates the general time when the"
^DD(59.51,.05,21,2,0)="manufacturing list will be run and the orders prepared.  This is for"
^DD(59.51,.05,21,3,0)="documentation and does not affect IV processing.  Enter midnight as 2400."
^DD(59.51,.05,21,4,0)=" "
^DD(59.51,.05,"DT")="2850320"
^DD(59.51,.06,0)="DATE/TIME LAST RUN^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.51,.06,3)=""
^DD(59.51,.06,20,0)="^.3LA^1^1"
^DD(59.51,.06,20,1,0)="PSJI"
^DD(59.51,.06,21,0)="^^3^3^2880708^^^^"
^DD(59.51,.06,21,1,0)="This date/time signals the end of the 'MANUFACTURING QUEUE'."
^DD(59.51,.06,21,2,0)="Orders due up to and including this date/time will appear in"
^DD(59.51,.06,21,3,0)="this 'MANUFACTURING QUEUE' ."
^DD(59.51,.06,"DT")="2880708"
^DD(59.51,"B","DATE/TIME LAST RUN",.06)=""
^DD(59.51,"B","DESCRIPTION",.03)=""
^DD(59.51,"B","END OF COVERAGE",.04)=""
^DD(59.51,"B","MANUFACTURING TIME",.05)=""
^DD(59.51,"B","START OF COVERAGE",.01)=""
^DD(59.51,"B","TYPE",.02)=""
^DD(59.51,"GL",0,1,.01)=""
^DD(59.51,"GL",0,2,.02)=""
^DD(59.51,"GL",0,3,.03)=""
^DD(59.51,"GL",0,4,.04)=""
^DD(59.51,"GL",0,5,.05)=""
^DD(59.51,"GL",0,6,.06)=""
^DD(59.51,"GR","PSJI",.01,1)=""
^DD(59.51,"GR","PSJI",.02,1)=""
^DD(59.51,"GR","PSJI",.03,1)=""
^DD(59.51,"GR","PSJI",.04,1)=""
^DD(59.51,"GR","PSJI",.05,1)=""
^DD(59.51,"GR","PSJI",.06,1)=""
^DD(59.51,"IX",.02)=""
^DD(59.51,"RQ",.01)=""
^DD(59.51,"RQ",.02)=""
^DD(59.51,"RQ",.04)=""
^DD(59.52,0)="DELIVERY TIME SUB-FIELD^NL^.01^1"
^DD(59.52,0,"IX","AT",59.52,.01)=""
^DD(59.52,0,"IX","B",59.52,.01)=""
^DD(59.52,0,"NM","DELIVERY TIME")=""
^DD(59.52,0,"UP")="59.5"
^DD(59.52,.01,0)="DELIVERY TIME^MFX^^0;1^K:$L(X)>4!($L(X)<4)!(+X<1)!(+X>2400)!(X#100>59)!(X'?1N.N) X"
^DD(59.52,.01,1,0)="^.1"
^DD(59.52,.01,1,1,0)="59.52^B"
^DD(59.52,.01,1,1,1)="S ^PS(59.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(59.52,.01,1,1,2)="K ^PS(59.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(59.52,.01,1,2,0)="59.52^AT^MUMPS"
^DD(59.52,.01,1,2,1)="S ^PS(59.5,DA(1),3,""AT"",+("".""_X),DA)="""""
^DD(59.52,.01,1,2,2)="K ^PS(59.5,DA(1),3,""AT"",+("".""_X),DA)"
^DD(59.52,.01,1,2,"%D",0)="^^3^3^2971211^"
^DD(59.52,.01,1,2,"%D",1,0)="Used by Inpatient Package."
^DD(59.52,.01,1,2,"%D",2,0)="S ^PS(59.5,IV ROOM NAME,3,""AT"",DELIVERY TIME (minus trailing"
^DD(59.52,.01,1,2,"%D",3,0)="zeros),DELIVERY TIME IEN)="""""
^DD(59.52,.01,3)="Answer must be 4 characters in length."
^DD(59.52,.01,20,0)="^.3LA^1^1"
^DD(59.52,.01,20,1,0)="PSJI"
^DD(59.52,.01,21,0)="^^5^5^2940714^^^^"
^DD(59.52,.01,21,1,0)=" "
^DD(59.52,.01,21,2,0)="Delivery times must be entered using a 24-hour clock (i.e., 9AM is"
^DD(59.52,.01,21,3,0)="entered as 0900).  Delivery times are used as default start times"
^DD(59.52,.01,21,4,0)="for admixtures and hyperalimentations.  Enter midnight as 2400."
^DD(59.52,.01,21,5,0)=" "
^DD(59.52,.01,"DT")="2860724"
^DD(59.52,"B","DELIVERY TIME",.01)=""
^DD(59.52,"GL",0,1,.01)=""
^DD(59.52,"GR","PSJI",.01,1)=""
^DD(59.52,"IX",.01)=""
^DD(59.6,0)="FIELD^^5^24"
^DD(59.6,0,"DDA")="N"
^DD(59.6,0,"DT")="2960206"
^DD(59.6,0,"IX","AC",59.6,.08)=""
^DD(59.6,0,"IX","B",59.6,.01)=""
^DD(59.6,0,"NM","INPATIENT WARD PARAMETERS")=""
^DD(59.6,0,"PT",53.4104,1)=""
^DD(59.6,0,"PT",59.7,20.6)=""
^DD(59.6,0,"VR")="5.0"
^DD(59.6,0,"VRPK")="INPATIENT MEDICATIONS"
^DD(59.6,.01,0)="WARD^RP42'^DIC(42,^0;1^Q"
^DD(59.6,.01,1,0)="^.1"
^DD(59.6,.01,1,1,0)="59.6^B"
^DD(59.6,.01,1,1,1)="S ^PS(59.6,""B"",$E(X,1,30),DA)="""""
^DD(59.6,.01,1,1,2)="K ^PS(59.6,""B"",$E(X,1,30),DA)"
^DD(59.6,.01,3)="Enter a ward for which you want to tailor the Inpatient Medication package."
^DD(59.6,.01,20,0)="^.3LA^1^1"
^DD(59.6,.01,20,1,0)="PSJ"
^DD(59.6,.01,21,0)="^^2^2^2970827^^^^"
^DD(59.6,.01,21,1,0)="  This is a ward for which the site wants to tailor specific aspects of"
^DD(59.6,.01,21,2,0)="the Inpatient Medications package."
^DD(59.6,.01,"DT")="2940422"
^DD(59.6,.01,"LAYGO",1,0)="S X(1)=$D(^PS(59.6,""B"",$E(X,1,30))) S:X(1) X(2)=$P($G(^DIC(42,+X,0)),""^"") S:$S(X(1):X(2)="""",1:0) X(2)=X D:X(1) EN^DDIOL(""But an entry for ""_X(2)_"" already exists!"") I 'X(1)"
^DD(59.6,.03,0)="DAYS UNTIL STOP DATE/TIME^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.6,.03,.1)="How many days should a standard order last?"
^DD(59.6,.03,3)="Enter the number (1-100) of days that an order will last."
^DD(59.6,.03,20,0)="^.3LA^1^1"
^DD(59.6,.03,20,1,0)="PSJU"
^DD(59.6,.03,21,0)="^^4^4^2910311^^^^"
^DD(59.6,.03,21,1,0)="  This is the number of days a standard order should last.  The first order"
^DD(59.6,.03,21,2,0)="entered for a patient uses this number to calculate a default value for"
^DD(59.6,.03,21,3,0)="the order's STOP DATE/TIME.  This number is also used if SAME STOP DATE"
^DD(59.6,.03,21,4,0)="has no entry, or an entry of ""NO""."
^DD(59.6,.03,"DT")="2850618"
^DD(59.6,.04,0)="SAME STOP DATE ON ALL ORDERS^S^1:YES;0:NO;^0;4^Q"
^DD(59.6,.04,.1)="Should all of a patient's orders be given the same stop date?"
^DD(59.6,.04,3)="Answer 'YES' (or '1') if all of a patient's orders are to stop on the same date/time."
^DD(59.6,.04,20,0)="^.3LA^1^1"
^DD(59.6,.04,20,1,0)="PSJU"
^DD(59.6,.04,21,0)="^^3^3^2911108^^^^"
^DD(59.6,.04,21,1,0)="  This is a flag, that if found to be YES, uses the STOP DATE/TIME from "
^DD(59.6,.04,21,2,0)="the patient's first order as a default value for the STOP DATE/TIME of "
^DD(59.6,.04,21,3,0)="all of the patient's following orders."
^DD(59.6,.04,"DT")="2850618"
^DD(59.6,.05,0)="DEFAULT START DATE CALCULATION^S^0:USE CLOSEST ADMIN TIME AS DEFAULT;1:USE NEXT ADMIN TIME AS DEFAULT;2:USE NOW AS DEFAULT;^0;5^Q"
^DD(59.6,.05,.1)="ORDER DEFAULT START DATE"
^DD(59.6,.05,3)="Enter ""0"" to use the closest admin time, ""1"" to use the next admin time, or ""2"" to use ""now"" as the default start time for orders."
^DD(59.6,.05,20,0)="^.3LA^1^1"
^DD(59.6,.05,20,1,0)="PSJ"
^DD(59.6,.05,21,0)="^^4^4^2940120^^^^"
^DD(59.6,.05,21,1,0)="This field allows the ward to tell the package how the default start date"
^DD(59.6,.05,21,2,0)="for orders should be calculated. The default may use the next admin time,"
^DD(59.6,.05,21,3,0)="the closest admin time, or the current time (now) as the default start date "
^DD(59.6,.05,21,4,0)="for Unit Dose and IV orders."
^DD(59.6,.05,"DT")="2940120"
^DD(59.6,.07,0)="TIME OF DAY THAT ORDERS STOP^NJ4,0X^^0;7^K:X'?4N!(X>2400)!(X<1)!(X#100>59) X"
^DD(59.6,.07,.1)="Time of day that orders stop"
^DD(59.6,.07,3)="Enter the time of day that orders stop for this ward (military time)."
^DD(59.6,.07,4)="D EN^DDIOL(""ENTER A NUMBER BETWEEN 0001 AND 2400.  THE ZEROS ARE NEEDED."","""",""!!"")"
^DD(59.6,.07,20,0)="^.3LA^1^1"
^DD(59.6,.07,20,1,0)="PSJU"
^DD(59.6,.07,21,0)="^^2^2^2970613^^^^"
^DD(59.6,.07,21,1,0)="  This is a time of day that, if found, will be used in calculating the"
^DD(59.6,.07,21,2,0)="default value for the STOP DATE/TIME of patients' orders."
^DD(59.6,.07,"DT")="2861130"
^DD(59.6,.08,0)="START TIME FOR 24 HOUR MAR^NJ4,0X^^0;8^K:X>2400!(X<1)!(X'?4N)!(X#100>59) X"
^DD(59.6,.08,.1)="Start time of day for 24 hour MAR"
^DD(59.6,.08,1,0)="^.1"
^DD(59.6,.08,1,1,0)="59.6^AC^MUMPS"
^DD(59.6,.08,1,1,1)="S Y=X-1 S:'Y Y=2400 S Y=$E(""000"",1,4-$L(Y))_Y S:$E(Y,3)=9 Y=$E(Y,1,2)_""59"" S $P(^PS(59.6,DA,0),""^"",9)=Y"
^DD(59.6,.08,1,1,2)="S $P(^PS(59.6,DA,0),""^"",9)="""""
^DD(59.6,.08,1,1,3)="Used by the Unit Dose Medications package."
^DD(59.6,.08,1,1,"%D",0)="^^2^2^2971211^"
^DD(59.6,.08,1,1,"%D",1,0)="  This is used to automatically update the STOP TIME FOR MAR field (.09)."
^DD(59.6,.08,1,1,"%D",2,0)="  S $P(^PS(59.6,Internal Entry number,0),""^"",9)=STOP TIME FOR MAR"
^DD(59.6,.08,3)="Enter the time of day (0001-2400) that the 24 MAR is to start."
^DD(59.6,.08,4)="D EN^DDIOL(""PLEASE USE MILITARY TIME WITH LEADING AND TRAILING ZEROS."","""",""!"")"
^DD(59.6,.08,20,0)="^.3LA^1^1"
^DD(59.6,.08,20,1,0)="PSJU"
^DD(59.6,.08,21,0)="^^4^4^2971211^^^^"
^DD(59.6,.08,21,1,0)="  This is the start time for the 24 hour MAR.  It is used whenever a user"
^DD(59.6,.08,21,2,0)="enters a start date without a time when running the 24 hour MAR.  This time"
^DD(59.6,.08,21,3,0)="should be in military time format, with leading and trailing zeros."
^DD(59.6,.08,21,4,0)="(Entering '0001' would be seen as 1 minute after midnight.)"
^DD(59.6,.08,"DT")="2850906"
^DD(59.6,.09,0)="STOP TIME FOR MAR^NJ4,0^^0;9^K:+X'=X!(X>2400)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.6,.09,3)=""
^DD(59.6,.09,4)="D EN^DDIOL(""THIS FIELD IS NOT TO BE CHANGED!!"","""",""!"")"
^DD(59.6,.09,9)="^"
^DD(59.6,.09,20,0)="^.3LA^1^1"
^DD(59.6,.09,20,1,0)="PSJU"
^DD(59.6,.09,21,0)="^^2^2^2970613^^^^"
^DD(59.6,.09,21,1,0)="  This is the stop time for the 24 hour MAR.  It is automatically calculated"
^DD(59.6,.09,21,2,0)="when the START TIME FOR MAR is entered."
^DD(59.6,.09,"DT")="2850906"
^DD(59.6,.11,0)="DAYS NEW LABELS LAST^NJ2,0^^0;11^K:+X'=X!(X>35)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.6,.11,.1)="How many days should new labels last?"
^DD(59.6,.11,3)="Enter a whole number between 0 and 35."
^DD(59.6,.11,4)="D LBLS^PSJDDUT"
^DD(59.6,.11,20,0)="^.3LA^1^1"
^DD(59.6,.11,20,1,0)="PSJU"
^DD(59.6,.11,21,0)="^^6^6^2970618^^^^"
^DD(59.6,.11,21,1,0)="  The Unit Dose package will run a background job once a day that will"
^DD(59.6,.11,21,2,0)="delete all unprinted new labels older than the number of days specified"
^DD(59.6,.11,21,3,0)="here.  If no days are specified here, any unprinted new labels for this "
^DD(59.6,.11,21,4,0)="site will be purged at the end of the day."
^DD(59.6,.11,21,5,0)="  **PLEASE NOTE - A label can still be printed for an order even though"
^DD(59.6,.11,21,6,0)="its new label record has been purged."
^DD(59.6,.11,"DT")="2860225"
^DD(59.6,.12,0)="LABEL FOR WARD STAFF^S^0:NO LABELS;1:FIRST LABEL ON ORDER ENTRY/EDIT;2:LABEL ON ENTRY/EDIT AND VERIFICATION;3:FIRST LABEL ON NURSE VERIFICATION;^0;12^Q"
^DD(59.6,.12,.1)="When should the first label print for ward staff?"
^DD(59.6,.12,20,0)="^.3LA^1^1"
^DD(59.6,.12,20,1,0)="PSJU"
^DD(59.6,.12,21,0)="^^13^13^2930723^^^^"
^DD(59.6,.12,21,1,0)="  Select from one of the following:"
^DD(59.6,.12,21,2,0)="NO LABELS - Labels will not be created when ward staff (nurses, clerks,"
^DD(59.6,.12,21,3,0)="physicians, etc.) take an action on an order."
^DD(59.6,.12,21,4,0)="FIRST LABEL ON ORDER ENTRY/EDIT - Labels will be created whenever ward"
^DD(59.6,.12,21,5,0)="staff enter an order or edit a non-verified order, but not when the nurse"
^DD(59.6,.12,21,6,0)="verifies the order."
^DD(59.6,.12,21,7,0)="FIRST LABEL ON NURSE VERIFICATION - Labels will not be created for ward"
^DD(59.6,.12,21,8,0)="staff until a nurse has verified the order."
^DD(59.6,.12,21,9,0)="LABEL ON ENTRY/EDIT AND VERIFICATION - Labels are created whenever the"
^DD(59.6,.12,21,10,0)="order is entered/edited and verified."
^DD(59.6,.12,21,11,0)=" "
^DD(59.6,.12,21,12,0)="  Labels are always created for actions taken on orders after they are"
^DD(59.6,.12,21,13,0)="verified, unless NO LABELS is selected."
^DD(59.6,.12,23,0)="^^3^3^2930723^^"
^DD(59.6,.12,23,1,0)="  This is used by the order entry, edit, and verify routines to determine"
^DD(59.6,.12,23,2,0)="if a label should be created for the order whenever these action take"
^DD(59.6,.12,23,3,0)="place on the order by ward staff personnel."
^DD(59.6,.12,"DT")="2910727"
^DD(59.6,.13,0)="*WARD LABEL PRINTER^FX^^0;13^D ENDL^PSJUTL"
^DD(59.6,.13,3)="Enter the device to which labels created by ward staff will be printed."
^DD(59.6,.13,4)="D ENDH^PSJUTL(DZ)"
^DD(59.6,.13,20,0)="^.3LA^1^1"
^DD(59.6,.13,20,1,0)="PSJU"
^DD(59.6,.13,21,0)="^^2^2^2910730^^"
^DD(59.6,.13,21,1,0)="  If a device is entered here, labels created by ward staff due to actions"
^DD(59.6,.13,21,2,0)="taken on orders will print automatically to the device entered."
^DD(59.6,.13,23,0)="^^3^3^2910730^"
^DD(59.6,.13,23,1,0)="  This is used to automatically print labels on the ward whenever ward"
^DD(59.6,.13,23,2,0)="staff create labels due to their actions on orders.  The input transform"
^DD(59.6,.13,23,3,0)="call to ENDLP^PSGSET makes a call to %ZIS to get ION (the device name)."
^DD(59.6,.13,"DT")="2980408"
^DD(59.6,.14,0)="*PHARMACY LABEL PRINTER^FX^^0;14^D ENDL^PSJUTL"
^DD(59.6,.14,3)="Enter the device to which labels created by pharmacy staff will be printed."
^DD(59.6,.14,4)="D ENDH^PSJUTL(DZ)"
^DD(59.6,.14,20,0)="^.3LA^1^1"
^DD(59.6,.14,20,1,0)="PSJU"
^DD(59.6,.14,21,0)="^^2^2^2971229^^^^"
^DD(59.6,.14,21,1,0)="  If a device is entered here, labels created by pharmacy staff due to"
^DD(59.6,.14,21,2,0)="actions taken on orders will print automatically to the device entered."
^DD(59.6,.14,23,0)="^^4^4^2971229^^^"
^DD(59.6,.14,23,1,0)="  This is used to automatically print labels in the pharmacy whenever"
^DD(59.6,.14,23,2,0)="pharmacy staff create labels due to their actions on orders.  The input"
^DD(59.6,.14,23,3,0)="transform call to ENDL^PSJUTL makes a call to %ZIS to get ION (the device"
^DD(59.6,.14,23,4,0)="name)."
^DD(59.6,.14,"DT")="2980408"
^DD(59.6,.15,0)="LABEL ON AUTO-DISCONTINUE^S^1:YES;0:NO;^0;15^Q"
^DD(59.6,.15,3)="Answer 'YES' to have labels created when this ward's patients' orders are auto-discontinued."
^DD(59.6,.15,20,0)="^.3LA^1^1"
^DD(59.6,.15,20,1,0)="PSJ"
^DD(59.6,.15,21,0)="^^3^3^2920709^^^^"
^DD(59.6,.15,21,1,0)="  This is used to determine if labels should be created when orders for"
^DD(59.6,.15,21,2,0)="a patient from this ward are auto-d/c'd due a patient movement. Patient"
^DD(59.6,.15,21,3,0)="movements include discharges and transfers."
^DD(59.6,.15,23,0)="^^3^3^2920709^^"
^DD(59.6,.15,23,1,0)="  Used by the auto-d/c routines (PSJADT*) to determine if labels should"
^DD(59.6,.15,23,2,0)="be created for orders that are auto-d/c'd due to patient movements from"
^DD(59.6,.15,23,3,0)="this ward."
^DD(59.6,.15,"DT")="2920709"
^DD(59.6,.16,0)="LABEL FOR PHARMACY^S^0:NO LABELS;1:FIRST LABEL ON ORDER ENTRY/EDIT;2:LABEL ON ENTRY/EDIT AND VERIFICATION;3:FIRST LABEL ON PHARMACIST VERIFICATION;^0;16^Q"
^DD(59.6,.16,.1)="When should the first label print for pharmacists?"
^DD(59.6,.16,20,0)="^.3LA^1^1"
^DD(59.6,.16,20,1,0)="PSJU"
^DD(59.6,.16,21,0)="^^13^13^2941005^^^^"
^DD(59.6,.16,21,1,0)="  Select from the following:"
^DD(59.6,.16,21,2,0)="NO LABELS - Labels will not be created when pharmacy staff (pharmacists"
^DD(59.6,.16,21,3,0)="and pharmacy technicians) take an action on an order."
^DD(59.6,.16,21,4,0)="FIRST LABEL ON ORDER ENTRY/EDIT - Labels will be created whenever pharmacy"
^DD(59.6,.16,21,5,0)="staff enter an order or edit a non-verified order, but not when the"
^DD(59.6,.16,21,6,0)="pharmacist verifies the order."
^DD(59.6,.16,21,7,0)="FIRST LABEL ON VERIFICATION - Labels will not be created for pharmacy staff"
^DD(59.6,.16,21,8,0)="until a pharmacist has verified the order."
^DD(59.6,.16,21,9,0)="LABEL ON ENTRY/EDIT AND VERIFICATION - Labels are created whenever the"
^DD(59.6,.16,21,10,0)="order is entered/edited and verified."
^DD(59.6,.16,21,11,0)=" "
^DD(59.6,.16,21,12,0)="  Labels are always created for actions taken on orders after they are"
^DD(59.6,.16,21,13,0)="verified, unless NO LABELS is selected."
^DD(59.6,.16,23,0)="^^2^2^2941005^^^"
^DD(59.6,.16,23,1,0)="  This is used to determine if a label should be created whenever an action"
^DD(59.6,.16,23,2,0)="has taken place on an order by pharmacy personnel."
^DD(59.6,.16,"DT")="2910727"
^DD(59.6,.18,0)="MAR HEADER LABELS^S^1:YES;^0;18^Q"
^DD(59.6,.18,3)="Enter ""YES"" if MAR header labels should be generated for this ward."
^DD(59.6,.18,20,0)="^.3LA^1^1"
^DD(59.6,.18,20,1,0)="PSJ"
^DD(59.6,.18,21,0)="^^2^2^2940920^^"
^DD(59.6,.18,21,1,0)="This is used to determine if MAR header labels should be generated when"
^DD(59.6,.18,21,2,0)="MAR order labels are generated for patients on this ward."
^DD(59.6,.18,"DT")="2931207"
^DD(59.6,.19,0)="WARD LABEL PRINTER POINTER^P3.5'^%ZIS(1,^0;19^Q"
^DD(59.6,.19,3)="Enter the device to which labels created by ward staff will be printed."
^DD(59.6,.19,21,0)="^^2^2^2980408^^"
^DD(59.6,.19,21,1,0)="If a device is entered here, labels created by ward staff due to actions"
^DD(59.6,.19,21,2,0)="taken on orders will print automatically to the device entered."
^DD(59.6,.19,23,0)="^^2^2^2980408^"
^DD(59.6,.19,23,1,0)="This is used to automatically print labels on the ward whenever ward staff"
^DD(59.6,.19,23,2,0)="create labels due to their actions on orders."
^DD(59.6,.19,"DT")="2980408"
^DD(59.6,.2,0)="PHARMACY LABEL PRINTER POINTER^P3.5'^%ZIS(1,^0;20^Q"
^DD(59.6,.2,3)="Enter the device to which labels created by pharmacy staff will be printed."
^DD(59.6,.2,21,0)="^^2^2^2980408^^"
^DD(59.6,.2,21,1,0)="If a device is entered here, labels created by pharmacy staff due to"
^DD(59.6,.2,21,2,0)="actions taken on orders will print automatically to the device entered."
^DD(59.6,.2,23,0)="^^2^2^2980408^"
^DD(59.6,.2,23,1,0)="This is used to automatically print labels in the pharmacy whenever"
^DD(59.6,.2,23,2,0)="pharmacy staff create labels due to their actions on orders."
^DD(59.6,.2,"DT")="2980408"
^DD(59.6,.24,0)="'SELF MED' IN ORDER ENTRY^S^1:YES;0:NO;^0;24^Q"
^DD(59.6,.24,.1)="Should the 'SELF MED' prompts be included in order entry?"
^DD(59.6,.24,3)="Answer 'YES' to have the prompts for patient self-medication included in the order entry process."
^DD(59.6,.24,20,0)="^.3LA^1^1"
^DD(59.6,.24,20,1,0)="PSJU"
^DD(59.6,.24,21,0)="^^4^4^2910306^^^^"
^DD(59.6,.24,21,1,0)="  If `YES' (or a 1) is entered here, the regular order entry process will"
^DD(59.6,.24,21,2,0)="prompt the user for SELF MED and HOSPITAL SUPPLIED SELF MED for each order"
^DD(59.6,.24,21,3,0)="entered.  The abbreviated processes and ward order entry and order sets are"
^DD(59.6,.24,21,4,0)="not affected in any way by this site parameter."
^DD(59.6,.24,"DT")="2870821"
^DD(59.6,.27,0)="*PRE-EXCHANGE ENVELOPES^S^1:YES;0:NO;^0;27^Q"
^DD(59.6,.27,.1)="Are you using pre-exchange envelopes?"
^DD(59.6,.27,3)="Answer 'YES' to have the package print the Pre-Exchange information using the envelope format instead of the regular report format."
^DD(59.6,.27,20,0)="^.3LA^1^1"
^DD(59.6,.27,20,1,0)="PSJU"
^DD(59.6,.27,21,0)="^^5^5^2921119^^^^"
^DD(59.6,.27,21,1,0)="  This is a flag that tells the package that the pharmacy is using"
^DD(59.6,.27,21,2,0)="special envelopes for their pre-exchange needs report, and will print"
^DD(59.6,.27,21,3,0)="the pre-exchange needs information accordingly.  PLEASE NOTE that the"
^DD(59.6,.27,21,4,0)="package expects the envelopes to be at least 4 inches long and at least"
^DD(59.6,.27,21,5,0)="8 1/2 inches wide."
^DD(59.6,.27,"DT")="2921119"
^DD(59.6,1,0)="MAR ORDER SELECTION DEFAULT^FX^^0;2^K:'$$ENMARD^PSJDDUT2() X"
^DD(59.6,1,3)="Answer must be 1-10 characters in length."
^DD(59.6,1,4)="D ENMARDH^PSJDDUT2"
^DD(59.6,1,21,0)="^^3^3^2970219^^^"
^DD(59.6,1,21,1,0)="This is the default value for the type of orders to be included on the"
^DD(59.6,1,21,2,0)="Medication Due Worksheet, MAR and Action Profiles.  Multiple order types "
^DD(59.6,1,21,3,0)="may be selected using ""-"" or "",""  (Example: 2-4 or 2,3,4)."
^DD(59.6,1,23,0)="^^4^4^2970219^^^"
^DD(59.6,1,23,1,0)="This field contains information used by reports in the Inpatient"
^DD(59.6,1,23,2,0)="Medications package to determine what type of orders to include on"
^DD(59.6,1,23,3,0)="the report, as specified by the Pharmacy Supervisor in the"
^DD(59.6,1,23,4,0)="Inpatient Ward Parameters."
^DD(59.6,1,"DT")="2970619"
^DD(59.6,2,0)="PRINT PENDING ORDERS ON MAR^S^1:YES;^0;6^Q"
^DD(59.6,2,3)="Enter YES to include acknowledged pending orders on the MARs"
^DD(59.6,2,21,0)="^^2^2^2960206^^^^"
^DD(59.6,2,21,1,0)="Enter YES to include the pending orders that were acknowledged by a nurse"
^DD(59.6,2,21,2,0)="on the MARs and the Medication Due Worksheet."
^DD(59.6,2,"DT")="2960206"
^DD(59.6,3,0)="DAYS UNTIL STOP FOR ONE-TIME^NJ3,0X^^0;28^D ENOSD^PSGFILD0"
^DD(59.6,3,.1)="How many days should a one-time order last?"
^DD(59.6,3,3)="Enter the number of days a one-time order should last.  The number can be from 1-100, however, it cannot exceed the number of days that standard orders last (DAYS UNTIL STOP DATE/TIME)."
^DD(59.6,3,"DT")="3010907"
^DD(59.6,4,0)="PRE-EXCHANGE REPORT DEVICE^P3.5'^%ZIS(1,^0;29^Q"
^DD(59.6,4,.1)="On what DEVICE should the PRE-EXCHANGE REPORT print?"
^DD(59.6,4,3)="Enter a device on which the Pre-Exchange Report may be printed."
^DD(59.6,4,21,0)="^.001^4^4^3030128^^^^"
^DD(59.6,4,21,1,0)="Enter the name of the device that will be used most frequently to print "
^DD(59.6,4,21,2,0)="the Pre-Exchange Report for this WARD. This field will be shown as the "
^DD(59.6,4,21,3,0)="default for the 'Select DEVICE for PRE-EXCHANGE UNITS REPORT:' prompt "
^DD(59.6,4,21,4,0)="when printing the Pre-Exchange Report."
^DD(59.6,4,"DT")="3030124"
^DD(59.6,5,0)="STAT NOW MAIL GROUP^P3.8^XMB(3.8,^0;30^Q"
^DD(59.6,5,21,0)="^^2^2^3041228^"
^DD(59.6,5,21,1,0)="A notification will be sent to this mail group for each new STAT and NOW"
^DD(59.6,5,21,2,0)="order that is received from CPRS."
^DD(59.6,5,"DT")="3041228"
^DD(59.6,6,0)="PRIORITIES FOR NOTIFICATION^S^S:STAT;SA:STAT/ASAP;SAN:STAT/ASAP/NOW;A:ASAP;AN:ASAP/NOW;N:NOW;SN:STAT/NOW;^0;32^Q"
^DD(59.6,6,21,0)="^.001^4^4^3050727^^^"
^DD(59.6,6,21,1,0)="Enter the priorities of STAT, ASAP, or the schedule of NOW, or any "
^DD(59.6,6,21,2,0)="combination the three to be used to send a notification of orders with "
^DD(59.6,6,21,3,0)="these priorities to the mail group defined in the STAT NOW MAIL GROUP "
^DD(59.6,6,21,4,0)="parameter."
^DD(59.6,6,"DT")="3050727"
^DD(59.6,"B","'SELF MED' IN ORDER ENTRY",.24)=""
^DD(59.6,"B","*PHARMACY LABEL PRINTER",.14)=""
^DD(59.6,"B","*PRE-EXCHANGE ENVELOPES",.27)=""
^DD(59.6,"B","*WARD LABEL PRINTER",.13)=""
^DD(59.6,"B","DAYS NEW LABELS LAST",.11)=""
^DD(59.6,"B","DAYS UNTIL STOP DATE/TIME",.03)=""
^DD(59.6,"B","DAYS UNTIL STOP FOR ONE-TIME",3)=""
^DD(59.6,"B","DEFAULT START DATE CALCULATION",.05)=""
^DD(59.6,"B","LABEL FOR PHARMACY",.16)=""
^DD(59.6,"B","LABEL FOR WARD STAFF",.12)=""
^DD(59.6,"B","LABEL ON AUTO-DISCONTINUE",.15)=""
^DD(59.6,"B","MAR HEADER LABELS",.18)=""
^DD(59.6,"B","MAR ORDER SELECTION DEFAULT",1)=""
^DD(59.6,"B","ORDER DEFAULT START DATE",.05)="1"
^DD(59.6,"B","PHARMACY LABEL PRINTER POINTER",.2)=""
^DD(59.6,"B","PRE-EXCHANGE REPORT DEVICE",4)=""
^DD(59.6,"B","PRINT PENDING ORDERS ON MAR",2)=""
^DD(59.6,"B","PRIORITIES FOR NOTIFICATION",6)=""
^DD(59.6,"B","SAME STOP DATE ON ALL ORDERS",.04)=""
^DD(59.6,"B","START TIME FOR 24 HOUR MAR",.08)=""
^DD(59.6,"B","STAT NOW MAIL GROUP",5)=""
^DD(59.6,"B","STOP TIME FOR MAR",.09)=""
^DD(59.6,"B","TIME OF DAY THAT ORDERS STOP",.07)=""
^DD(59.6,"B","Time of day that orders stop",.07)="1"
^DD(59.6,"B","WARD",.01)=""
^DD(59.6,"B","WARD LABEL PRINTER POINTER",.19)=""
^DD(59.6,"GL",0,1,.01)=""
^DD(59.6,"GL",0,2,1)=""
^DD(59.6,"GL",0,3,.03)=""
^DD(59.6,"GL",0,4,.04)=""
^DD(59.6,"GL",0,5,.05)=""
^DD(59.6,"GL",0,6,2)=""
^DD(59.6,"GL",0,7,.07)=""
^DD(59.6,"GL",0,8,.08)=""
^DD(59.6,"GL",0,9,.09)=""
^DD(59.6,"GL",0,11,.11)=""
^DD(59.6,"GL",0,12,.12)=""
^DD(59.6,"GL",0,13,.13)=""
^DD(59.6,"GL",0,14,.14)=""
^DD(59.6,"GL",0,15,.15)=""
^DD(59.6,"GL",0,16,.16)=""
^DD(59.6,"GL",0,18,.18)=""
^DD(59.6,"GL",0,19,.19)=""
^DD(59.6,"GL",0,20,.2)=""
^DD(59.6,"GL",0,24,.24)=""
^DD(59.6,"GL",0,27,.27)=""
^DD(59.6,"GL",0,28,3)=""
^DD(59.6,"GL",0,29,4)=""
^DD(59.6,"GL",0,30,5)=""
^DD(59.6,"GL",0,32,6)=""
^DD(59.6,"GR","PSJ",.01,1)=""
^DD(59.6,"GR","PSJ",.05,1)=""
^DD(59.6,"GR","PSJ",.15,1)=""
^DD(59.6,"GR","PSJ",.18,1)=""
^DD(59.6,"GR","PSJU",.03,1)=""
^DD(59.6,"GR","PSJU",.04,1)=""
^DD(59.6,"GR","PSJU",.07,1)=""
^DD(59.6,"GR","PSJU",.08,1)=""
^DD(59.6,"GR","PSJU",.09,1)=""
^DD(59.6,"GR","PSJU",.11,1)=""
^DD(59.6,"GR","PSJU",.12,1)=""
^DD(59.6,"GR","PSJU",.13,1)=""
^DD(59.6,"GR","PSJU",.14,1)=""
^DD(59.6,"GR","PSJU",.16,1)=""
^DD(59.6,"GR","PSJU",.24,1)=""
^DD(59.6,"GR","PSJU",.27,1)=""
^DD(59.6,"IX",.01)=""
^DD(59.6,"IX",.08)=""
^DD(59.6,"RQ",.01)=""
^DD(59.7,0)="FIELD^^94^142"
^DD(59.7,0,"DDA")="N"
^DD(59.7,0,"DT")="2980810"
^DD(59.7,0,"IX","AOTH",59.7,40.21)=""
^DD(59.7,0,"IX","AOTH",59.7,40.22)=""
^DD(59.7,0,"IX","AOTH",59.7,40.23)=""
^DD(59.7,0,"IX","AOTH",59.7,40.24)=""
^DD(59.7,0,"IX","AOTH",59.7,40.25)=""
^DD(59.7,0,"IX","AOTH",59.7,40.26)=""
^DD(59.7,0,"IX","AOTH",59.7,40.27)=""
^DD(59.7,0,"IX","AOTH",59.7,40.28)=""
^DD(59.7,0,"IX","AOTH",59.7,40.29)=""
^DD(59.7,0,"IX","AOTH",59.7,40.3)=""
^DD(59.7,0,"IX","AOTH",59.7,40.31)=""
^DD(59.7,0,"IX","AOTH",59.7,40.32)=""
^DD(59.7,0,"IX","AOTH",59.7,40.33)=""
^DD(59.7,0,"IX","AOTH",59.7,40.34)=""
^DD(59.7,0,"IX","AOTH",59.7,40.35)=""
^DD(59.7,0,"IX","AOTH",59.7,40.36)=""
^DD(59.7,0,"IX","AOTH",59.7,40.37)=""
^DD(59.7,0,"IX","AOTH",59.7,40.38)=""
^DD(59.7,0,"IX","AOTH",59.7,40.39)=""
^DD(59.7,0,"IX","AOTH",59.7,40.4)=""
^DD(59.7,0,"IX","AOTH",59.7,40.41)=""
^DD(59.7,0,"IX","AOTH",59.7,40.42)=""
^DD(59.7,0,"IX","AOTH",59.7,40.43)=""
^DD(59.7,0,"IX","AOTH",59.7,40.44)=""
^DD(59.7,0,"IX","AOTH",59.7,40.45)=""
^DD(59.7,0,"IX","B",59.7,.01)=""
^DD(59.7,0,"NM","PHARMACY SYSTEM")=""
^DD(59.7,0,"VR")="1.0"
^DD(59.7,0,"VRPK")="PSS"
^DD(59.7,.01,0)="SITE NAME^RFX^^0;1^K:$L(X)>40!($L(X)<1) X S:$D(X) DINUM=1"
^DD(59.7,.01,1,0)="^.1"
^DD(59.7,.01,1,1,0)="59.7^B"
^DD(59.7,.01,1,1,1)="S ^PS(59.7,""B"",$E(X,1,30),DA)="""""
^DD(59.7,.01,1,1,2)="K ^PS(59.7,""B"",$E(X,1,30),DA)"
^DD(59.7,.01,3)="Answer must be 1-40 characters in length."
^DD(59.7,.01,8.5)="^"
^DD(59.7,.01,9)="^"
^DD(59.7,.01,20,0)="^.3LA^2^2"
^DD(59.7,.01,20,1,0)="PS"
^DD(59.7,.01,20,2,0)="PSO"
^DD(59.7,.01,21,0)="^^1^1^2950921^^^^"
^DD(59.7,.01,21,1,0)="  This is the name of the site using the pharmacy packages."
^DD(59.7,.01,21,2,0)="a medical center, and not to any one site or division.  The number ranges"
^DD(59.7,.01,21,3,0)="for the nodes and field numbers are as follows:"
^DD(59.7,.01,21,4,0)="   0 -  9.99  RESERVED"
^DD(59.7,.01,21,5,0)="  10 - 19.99  National Drug File"
^DD(59.7,.01,21,6,0)="  20 - 20.99  Inpatient"
^DD(59.7,.01,21,7,0)="  30 - 30.99  IV's"
^DD(59.7,.01,21,8,0)="  40 - 40.99  Outpatient"
^DD(59.7,.01,21,9,0)="  50 - 50.99  Ward Stock/AR"
^DD(59.7,.01,21,10,0)="  60 - 60.99  Unit Dose"
^DD(59.7,.01,21,11,0)=" "
^DD(59.7,.01,21,12,0)="THERE SHOULD ONLY BE ONE ENTRY IN THIS FILE."
^DD(59.7,.01,"DT")="2890728"
^DD(59.7,10,0)="NDF VERSION^F^^10;1^K:$L(X)>10!($L(X)<1) X"
^DD(59.7,10,3)="Answer must be 1-10 characters in length."
^DD(59.7,10,8.5)="^"
^DD(59.7,10,9)="^"
^DD(59.7,10,20,0)="^.3LA^1^1"
^DD(59.7,10,20,1,0)="PSN"
^DD(59.7,10,21,0)="^^1^1^2911101^"
^DD(59.7,10,21,1,0)="This is the version of National Drug File installed."
^DD(59.7,10,"DT")="2890621"
^DD(59.7,10.1,0)="LAST DRUG CONVERTED^P50'^PSDRUG(^10;4^Q"
^DD(59.7,10.1,21,0)="^^2^2^2981013^^^"
^DD(59.7,10.1,21,1,0)="This field holds the IEN of the last entry in file 50 which has been"
^DD(59.7,10.1,21,2,0)="converted to the new version 4 value.  It can be used for restart."
^DD(59.7,10.1,"DT")="2980723"
^DD(59.7,10.2,0)="V4 CONVERSION COMPLETED^S^1:YES;^10;5^Q"
^DD(59.7,10.2,21,0)="^^2^2^2980723^^"
^DD(59.7,10.2,21,1,0)="This field is set to 1 when the third piece of the ND node in file 50"
^DD(59.7,10.2,21,2,0)="has been converted to the new version 4 value for all drugs."
^DD(59.7,10.2,"DT")="2980723"
^DD(59.7,11,0)="RESTART NUMBER^NJ6,0^^10;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.7,11,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(59.7,11,8.5)="^"
^DD(59.7,11,9)="^"
^DD(59.7,11,20,0)="^.3LA^1^1"
^DD(59.7,11,20,1,0)="PSN"
^DD(59.7,11,21,0)="^^3^3^2911017^"
^DD(59.7,11,21,1,0)="In the event that the Post-Init does not run to completion, the number in"
^DD(59.7,11,21,2,0)="the local drug file that was last converted is saved in this field. This"
^DD(59.7,11,21,3,0)="number is used to restart the Post-Init conversion process."
^DD(59.7,11,"DT")="2911017"
^DD(59.7,12,0)="CONVERSION REMATCH OPTION DONE^S^1:YES;0:NO;^10;3^Q"
^DD(59.7,12,8.5)="^"
^DD(59.7,12,9)="^"
^DD(59.7,12,20,0)="^.3LA^1^1"
^DD(59.7,12,20,1,0)="PSN"
^DD(59.7,12,21,0)="^^2^2^2970402^^^^"
^DD(59.7,12,21,1,0)="This field is used to check to see if the Conversion Rematch option has"
^DD(59.7,12,21,2,0)="done if there are entries to be converted."
^DD(59.7,12,21,3,0)="If there are no entries to be converted, it is set to ""1""."
^DD(59.7,12,"DT")="2911017"
^DD(59.7,13,0)="PMIS PRINTER^P3.5'^%ZIS(1,^10;6^Q"
^DD(59.7,13,3)="This printer will be used as the default for the printing of Patient Medication Instruction Sheets (PMIS)."
^DD(59.7,13,21,0)="^^4^4^2981203^"
^DD(59.7,13,21,1,0)="This field will be used to designate a default printer for the printing of"
^DD(59.7,13,21,2,0)="Patient Medication Instruction Sheets (PMIS). This default can be changed"
^DD(59.7,13,21,3,0)="during the actually printing of the PMIS. If no value is found, the user"
^DD(59.7,13,21,4,0)="will be prompted with a printer device."
^DD(59.7,13,"DT")="2981203"
^DD(59.7,14,0)="PMIS LANGUAGE^S^1:English;2:Spanish;^10;7^Q"
^DD(59.7,14,3)="This language will be used as the default for the printing of Patient Medication Instruction Sheets (PMIS)."
^DD(59.7,14,21,0)="^^4^4^3000406^"
^DD(59.7,14,21,1,0)="This field will be used to designate a default language for the printing"
^DD(59.7,14,21,2,0)="of Patient Medication Instruction Sheets (PMIS). This default can be"
^DD(59.7,14,21,3,0)="changed during the printing of the PMIS. If no value is found,"
^DD(59.7,14,21,4,0)="the user will be prompted to select a language."
^DD(59.7,14,"DT")="3000406"
^DD(59.7,15,0)="PMIS SECTION DELETE^F^^10;8^K:$L(X)>30!($L(X)<1) X"
^DD(59.7,15,3)="Enter the section label(s) to be excluded from the PMI print on Outpatient labels. If more than one section is to be deleted, enter the labels separated by commas."
^DD(59.7,15,8.5)="^"
^DD(59.7,15,9)="^"
^DD(59.7,15,21,0)="^^5^5^3030106^"
^DD(59.7,15,21,1,0)="The purpose of this field is to define the section(s) of the Patient "
^DD(59.7,15,21,2,0)="Medication Information (PMI) to be excluded when printing Outpatient "
^DD(59.7,15,21,3,0)="labels. If more than one section is to be deleted, the label(s) should be "
^DD(59.7,15,21,4,0)="separated by commas. For example: R,Z to exclude the STORAGE and "
^DD(59.7,15,21,5,0)="DISCLAIMER sections."
^DD(59.7,15,"DT")="3030203"
^DD(59.7,16,0)="WARNING LABEL SOURCE^S^N:NEW;^10;9^Q"
^DD(59.7,16,3)="Enter ""N"" for NEW to use commercial data source for warning labels."
^DD(59.7,16,21,0)="^^2^2^3040409^"
^DD(59.7,16,21,1,0)="An ""N"" in this field indicates that the new commercial source for warning "
^DD(59.7,16,21,2,0)="labels will be used."
^DD(59.7,16,23,0)="^^4^4^3040409^"
^DD(59.7,16,23,1,0)="If there is an ""N"" for ""New"" in this field, the commercial data source for"
^DD(59.7,16,23,2,0)="warning labels from the WARNING LABEL-ENGLISH (#50.625) or WARNING "
^DD(59.7,16,23,3,0)="LABEL-SPANISH (#50.626) will be used to print the warning labels."
^DD(59.7,16,23,4,0)="Otherwise, the old RX CONSULT file (#54) warning labels will be used."
^DD(59.7,16,"DT")="3040409"
^DD(59.7,16.1,0)="CMOP WARNING LABEL SOURCE^S^N:NEW;^10;10^Q"
^DD(59.7,16.1,3)="Enter ""N"" for NEW to use commercial data source for CMOP warning labels."
^DD(59.7,16.1,21,0)="^^2^2^3060917^"
^DD(59.7,16.1,21,1,0)="An ""N"" for ""New"" in this field indicates that the new commercial source "
^DD(59.7,16.1,21,2,0)="for warning labels will be used for CMOP."
^DD(59.7,16.1,23,0)="^^4^4^3060917^"
^DD(59.7,16.1,23,1,0)="If there is an ""N"" for ""New"" in this field, the commercial data source "
^DD(59.7,16.1,23,2,0)="for warning labels from the WARNING LABEL-ENGLISH (#50.625) file or "
^DD(59.7,16.1,23,3,0)="WARNING LABEL-SPANISH (#50.626) file will be sent to CMOP. Otherwise, "
^DD(59.7,16.1,23,4,0)="warnings from the old RX CONSULT (#54) file are sent."
^DD(59.7,16.1,"DT")="3060917"
^DD(59.7,16.2,0)="OPAI WARNING LABEL SOURCE^S^N:NEW;^10;11^Q"
^DD(59.7,16.2,3)="Enter ""N"" for NEW to use commercial data source for OPAI warning labels."
^DD(59.7,16.2,21,0)="^^2^2^3060917^"
^DD(59.7,16.2,21,1,0)="An ""N"" for ""New"" in this field indicates that the new commercial source "
^DD(59.7,16.2,21,2,0)="for warning labels will be used for OPAI."
^DD(59.7,16.2,23,0)="^^5^5^3060917^"
^DD(59.7,16.2,23,1,0)="If there is an ""N"" for ""New"" in this field, the commercial data source "
^DD(59.7,16.2,23,2,0)="for warning labels from the WARNING LABEL-ENGLISH (#50.625) file or "
^DD(59.7,16.2,23,3,0)="WARNING LABEL-SPANISH (#50.626) file will be sent to the Outpatient "
^DD(59.7,16.2,23,4,0)="Pharmacy Automation Interface (OPAI). Otherwise, warnings from the old RX"
^DD(59.7,16.2,23,5,0)="CONSULT (#54) file are sent."
^DD(59.7,16.2,"DT")="3060917"
^DD(59.7,20.01,0)="IV STATS/200 CONVERSION STATUS^S^0:NOT YET STARTED;1:MOVING CONVERTED DATA TO UTILITY;2:MOVING CONVERTED DATA BACK TO 50.8;3:COMPLETED;^20;10^Q"
^DD(59.7,20.01,8.5)="^"
^DD(59.7,20.01,9)="^"
^DD(59.7,20.01,21,0)="^^2^2^2911013^^"
^DD(59.7,20.01,21,1,0)="  This is the status of the process that converts the providers in the IV "
^DD(59.7,20.01,21,2,0)="STATS file (50.8) from the PROVIDER file (6) to the NEW PERSON file (200)."
^DD(59.7,20.01,23,0)="^^1^1^2911013^^"
^DD(59.7,20.01,23,1,0)="  This flag is set by the routine PSJC200 as part of the post-init process."
^DD(59.7,20.01,"DT")="2910701"
^DD(59.7,20.1,0)="VERSION NUMBER LAST INITS RUN^NJ6,2^^20;1^K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(59.7,20.1,3)="Type a Number between .01 and 999.99, 2 Decimal Digits."
^DD(59.7,20.1,8.5)="^"
^DD(59.7,20.1,9)="^"
^DD(59.7,20.1,20,0)="^.3LA^1^1"
^DD(59.7,20.1,20,1,0)="PSJI"
^DD(59.7,20.1,21,0)="^^2^2^2910306^"
^DD(59.7,20.1,21,1,0)="  This is the version number of the last inits run for the Inpatient "
^DD(59.7,20.1,21,2,0)="Medications package."
^DD(59.7,20.1,"DT")="2890910"
^DD(59.7,20.11,0)="NEW PERSON CONVERSION DATE^D^^20;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.11,8.5)="^"
^DD(59.7,20.11,9)="^"
^DD(59.7,20.11,20,0)="^.3LA^1^1"
^DD(59.7,20.11,20,1,0)="PSJ"
^DD(59.7,20.11,21,0)="^^3^3^2910620^"
^DD(59.7,20.11,21,1,0)="  This is the date and time that the Inpatient post-init process completed"
^DD(59.7,20.11,21,2,0)="the conversion of it's data for the Provider file (6) to the New Person"
^DD(59.7,20.11,21,3,0)="file (200)."
^DD(59.7,20.11,23,0)="^^5^5^2910620^"
^DD(59.7,20.11,23,1,0)="  This is used and set by the routine PSJC200.  If there a date here, the"
^DD(59.7,20.11,23,2,0)="conversion will not run.  If the conversion does run, the date and time it"
^DD(59.7,20.11,23,3,0)="completes is entered here.  This allows the sites to rerun the inits if"
^DD(59.7,20.11,23,4,0)="necessary without the conversion running again (which would corrupt the"
^DD(59.7,20.11,23,5,0)="data)."
^DD(59.7,20.11,"DT")="2910620"
^DD(59.7,20.12,0)="PRIMARY DRUG CONVERSION DATE^D^^20;12^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.12,3)="Answer must be 1-45 characters in length."
^DD(59.7,20.12,8.5)="^"
^DD(59.7,20.12,9)="^"
^DD(59.7,20.12,20,0)="^.3LA^1^1"
^DD(59.7,20.12,20,1,0)="PSJ"
^DD(59.7,20.12,21,0)="^^2^2^2920108^"
^DD(59.7,20.12,21,1,0)="  This is the date the Primary Drug manual create process was completed."
^DD(59.7,20.12,21,2,0)="This should not be set through VA FileMan."
^DD(59.7,20.12,23,0)="^^5^5^2920108^"
^DD(59.7,20.12,23,1,0)="  This is the date the Primary Drug manual create process was completed."
^DD(59.7,20.12,23,2,0)="This is automatically set once a user has completed the process, and should"
^DD(59.7,20.12,23,3,0)="not be edited through the VA FileMan.  The version 4 Inpatient Medications"
^DD(59.7,20.12,23,4,0)="inits cannot be run until the manual create process has been completed and"
^DD(59.7,20.12,23,5,0)="this date has been set."
^DD(59.7,20.12,"DT")="2920108"
^DD(59.7,20.13,0)="DATE V4 PRE-PACKET INSTALLED^D^^20;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.13,8.5)="^"
^DD(59.7,20.13,9)="^"
^DD(59.7,20.13,20,0)="^.3LA^1^1"
^DD(59.7,20.13,20,1,0)="PSJ"
^DD(59.7,20.13,21,0)="^^2^2^2910730^^"
^DD(59.7,20.13,21,1,0)="  This is the date and time the Inpatient Medications version 4 pre-release"
^DD(59.7,20.13,21,2,0)="packet was installed at this site."
^DD(59.7,20.13,23,0)="^^5^5^2910730^^"
^DD(59.7,20.13,23,1,0)="  Inpatient Medications version 4 will not install unless the pre-release"
^DD(59.7,20.13,23,2,0)="packet has already been installed.  When the pre-release packet is"
^DD(59.7,20.13,23,3,0)="installed, it enters the date and time it was installed here.  The version"
^DD(59.7,20.13,23,4,0)="4 installation will check here to see if the pre-release packet has been"
^DD(59.7,20.13,23,5,0)="installed."
^DD(59.7,20.13,"DT")="2910730"
^DD(59.7,20.14,0)="LAST N-V ORDER CONVERTED TO V4^P53.1'^PS(53.1,^20;14^Q"
^DD(59.7,20.14,.1)="LAST NON-VERIFIED ORDER CONVERTED TO V4"
^DD(59.7,20.14,8.5)="^"
^DD(59.7,20.14,9)="^"
^DD(59.7,20.14,20,0)="^.3LA^1^1"
^DD(59.7,20.14,20,1,0)="PSJ"
^DD(59.7,20.14,21,0)="^^4^4^2911016^^"
^DD(59.7,20.14,21,1,0)="  This is the last Non-Verified order converted for use with version 4 of"
^DD(59.7,20.14,21,2,0)="the Inpatient Medications package."
^DD(59.7,20.14,21,3,0)="THIS SHOULD NOT BE EDITED.  Editing this could cause corrupted data and"
^DD(59.7,20.14,21,4,0)="possibly cause medication administration errors."
^DD(59.7,20.14,23,0)="^^4^4^2911016^^"
^DD(59.7,20.14,23,1,0)="  This is used by the Inpatient Medications to keep track the entries in the"
^DD(59.7,20.14,23,2,0)="Non-Verified Orders file that are converted to the New Person file and"
^DD(59.7,20.14,23,3,0)="Primary Drug.  This allows the post-init conversion proces to be restarted"
^DD(59.7,20.14,23,4,0)="in case of an abort.  It is set in PSJIPST0."
^DD(59.7,20.14,"AUDIT")="n"
^DD(59.7,20.14,"AX")=""
^DD(59.7,20.14,"DT")="2911016"
^DD(59.7,20.15,0)="DATE NON-VERIFIED CONVERTED^D^^20;15^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.15,8.5)="^"
^DD(59.7,20.15,9)="^"
^DD(59.7,20.15,20,0)="^.3LA^1^1"
^DD(59.7,20.15,20,1,0)="PSJ"
^DD(59.7,20.15,21,0)="^^3^3^2910808^"
^DD(59.7,20.15,21,1,0)="  This is the date and time that the Inpatient Medication conversion"
^DD(59.7,20.15,21,2,0)="process completed converting the Non-Verified Orders file to the New"
^DD(59.7,20.15,21,3,0)="Person file and Primary Drug.  It should not be set by a user."
^DD(59.7,20.15,23,0)="^^5^5^2910808^"
^DD(59.7,20.15,23,1,0)="  This is the date and time that the Inpatient Medications version 4"
^DD(59.7,20.15,23,2,0)="post-init process completed converting the Non-Verified Orders file"
^DD(59.7,20.15,23,3,0)="to use the New Person file and Primary Drug.  This allows the inits"
^DD(59.7,20.15,23,4,0)="to be run again without corrupting the data in the Non-Verified Orders"
^DD(59.7,20.15,23,5,0)="file."
^DD(59.7,20.15,"DT")="2910808"
^DD(59.7,20.16,0)="ORDERABLE ITEM CONVERSION DATE^D^^20;16^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.16,3)="Date/Time Pharmacy Orderable Item pre-release options have completed."
^DD(59.7,20.16,"DT")="2950316"
^DD(59.7,20.2,0)="DATE INITS LAST RUN^D^^20;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.2,8.5)="^"
^DD(59.7,20.2,9)="^"
^DD(59.7,20.2,20,0)="^.3LA^1^1"
^DD(59.7,20.2,20,1,0)="PSJ"
^DD(59.7,20.2,21,0)="^^2^2^2910306^"
^DD(59.7,20.2,21,1,0)="  This is the date and time the inits were last run for the Inpatient"
^DD(59.7,20.2,21,2,0)="Medications package."
^DD(59.7,20.2,"DT")="2890910"
^DD(59.7,20.3,0)="USER TO LAST RUN INITS^P200'^VA(200,^20;3^Q"
^DD(59.7,20.3,8.5)="^"
^DD(59.7,20.3,9)="^"
^DD(59.7,20.3,20,0)="^.3LA^1^1"
^DD(59.7,20.3,20,1,0)="PSJ"
^DD(59.7,20.3,21,0)="^^2^2^2910306^"
^DD(59.7,20.3,21,1,0)="  This is the user who last ran the inits for the Inpatient Medications"
^DD(59.7,20.3,21,2,0)="package."
^DD(59.7,20.3,"DT")="2910708"
^DD(59.7,20.4,0)="SITE FOR BACKGROUND JOB^P59.4'^PS(59.4,^20;4^Q"
^DD(59.7,20.4,.1)="Inpatient site for background job"
^DD(59.7,20.4,3)="Enter an Inpatient site whose parameters will be used by the background jobs."
^DD(59.7,20.4,8.5)="^"
^DD(59.7,20.4,9)="^"
^DD(59.7,20.4,20,0)="^.3LA^1^1"
^DD(59.7,20.4,20,1,0)="PSJ"
^DD(59.7,20.4,21,0)="^^7^7^2940714^^"
^DD(59.7,20.4,21,1,0)="  The Inpatient Medications package has background jobs that run everyday."
^DD(59.7,20.4,21,2,0)="If an Inpatient site is entered here, the background jobs site's parameters"
^DD(59.7,20.4,21,3,0)="to determine such things as if labels should be created whenever a patient's"
^DD(59.7,20.4,21,4,0)="orders are discontinued due to discharge.  PLEASE NOTE that if a site has"
^DD(59.7,20.4,21,5,0)="not been entered here, the background jobs will search through ALL of the"
^DD(59.7,20.4,21,6,0)="Inpatient sites, and if one has labels turned on, will create labels."
^DD(59.7,20.4,21,7,0)=" "
^DD(59.7,20.4,"DT")="2910312"
^DD(59.7,20.401,0)="UD STATS/200 CONVERSION MARKER^D^^20.4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.401,3)=""
^DD(59.7,20.401,8.5)="^"
^DD(59.7,20.401,9)="^"
^DD(59.7,20.401,20,0)="^.3LA^1^1"
^DD(59.7,20.401,20,1,0)="PSJ"
^DD(59.7,20.401,21,0)="^^2^2^2920303^^^"
^DD(59.7,20.401,21,1,0)="  This is the last date in the Unit Dose Pick List Stats file that was"
^DD(59.7,20.401,21,2,0)="converted from the Provider file to the New Person file."
^DD(59.7,20.401,21,3,0)="PERSON file (200)."
^DD(59.7,20.401,23,0)="5^^6^6^2920303^"
^DD(59.7,20.401,23,1,0)="  This is a flag set by the routine PSJIPST2 as part of the post-init"
^DD(59.7,20.401,23,2,0)="process.  PSJIPST2 converts the Inpatient stats files from the Provider"
^DD(59.7,20.401,23,3,0)="file to the New Person file.  This flag contains the last date from the"
^DD(59.7,20.401,23,4,0)="Unit Dose Pick Lists Stats file (57.6) that was converted.  This allows"
^DD(59.7,20.401,23,5,0)="the post-init to be restarted, if neccessary, from where it was stopped"
^DD(59.7,20.401,23,6,0)="without degrading the data."
^DD(59.7,20.401,"DT")="2920303"
^DD(59.7,20.402,0)="IV STATS/200 CONVERSION STATUS^S^0:NOT YET STARTED;1:MOVING CONVERTED DATA TO UTILITY;2:MOVING CONVERTED DATA BACK TO 50.8;3:COMPLETED;^20.4;2^Q"
^DD(59.7,20.402,8.5)="^"
^DD(59.7,20.402,9)="^"
^DD(59.7,20.402,21,0)="^^2^2^2911013^^"
^DD(59.7,20.402,21,1,0)="  This is the status of the process that converts the providers in the IV "
^DD(59.7,20.402,21,2,0)="STATS file (50.8) from the PROVIDER file (6) to the NEW PERSON file (200)."
^DD(59.7,20.402,23,0)="^^1^1^2911013^^"
^DD(59.7,20.402,23,1,0)="  This flag is set by the routine PSJC200 as part of the post-init process."
^DD(59.7,20.402,"DT")="2910701"
^DD(59.7,20.403,0)="NEW PERSON CONVERSION DATE^D^^20.4;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.403,8.5)="^"
^DD(59.7,20.403,9)="^"
^DD(59.7,20.403,20,0)="^.3LA^1^1"
^DD(59.7,20.403,20,1,0)="PSJ"
^DD(59.7,20.403,21,0)="^^3^3^2910620^"
^DD(59.7,20.403,21,1,0)="  This is the date and time that the Inpatient post-init process completed"
^DD(59.7,20.403,21,2,0)="the conversion of it's data for the Provider file (6) to the New Person"
^DD(59.7,20.403,21,3,0)="file (200)."
^DD(59.7,20.403,23,0)="^^5^5^2910620^"
^DD(59.7,20.403,23,1,0)="  This is used and set by the routine PSJC200.  If there a date here, the"
^DD(59.7,20.403,23,2,0)="conversion will not run.  If the conversion does run, the date and time it"
^DD(59.7,20.403,23,3,0)="completes is entered here.  This allows the sites to rerun the inits if"
^DD(59.7,20.403,23,4,0)="necessary without the conversion running again (which would corrupt the"
^DD(59.7,20.403,23,5,0)="data)."
^DD(59.7,20.403,"DT")="2910620"
^DD(59.7,20.404,0)="LAST N-V ORDER CONVERTED TO V4^P53.1'^PS(53.1,^20.4;4^Q"
^DD(59.7,20.404,.1)="LAST NON-VERIFIED ORDER CONVERTED TO V4"
^DD(59.7,20.404,8.5)="^"
^DD(59.7,20.404,9)="^"
^DD(59.7,20.404,20,0)="^.3LA^1^1"
^DD(59.7,20.404,20,1,0)="PSJ"
^DD(59.7,20.404,21,0)="^^4^4^2911016^^"
^DD(59.7,20.404,21,1,0)="  This is the last Non-Verified order converted for use with version 4 of"
^DD(59.7,20.404,21,2,0)="the Inpatient Medications package."
^DD(59.7,20.404,21,3,0)="THIS SHOULD NOT BE EDITED.  Editing this could cause corrupted data and"
^DD(59.7,20.404,21,4,0)="possibly cause medication administration errors."
^DD(59.7,20.404,23,0)="^^4^4^2911016^^"
^DD(59.7,20.404,23,1,0)="  This is used by the Inpatient Medications to keep track the entries in the"
^DD(59.7,20.404,23,2,0)="Non-Verified Orders file that are converted to the New Person file and"
^DD(59.7,20.404,23,3,0)="Primary Drug.  This allows the post-init conversion proces to be restarted"
^DD(59.7,20.404,23,4,0)="in case of an abort.  It is set in PSJIPST0."
^DD(59.7,20.404,"AUDIT")="n"
^DD(59.7,20.404,"AX")=""
^DD(59.7,20.404,"DT")="2911016"
^DD(59.7,20.405,0)="DATE NON-VERIFIED CONVERTED^D^^20.4;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.405,8.5)="^"
^DD(59.7,20.405,9)="^"
^DD(59.7,20.405,20,0)="^.3LA^1^1"
^DD(59.7,20.405,20,1,0)="PSJ"
^DD(59.7,20.405,21,0)="^^3^3^2910808^"
^DD(59.7,20.405,21,1,0)="  This is the date and time that the Inpatient Medication conversion"
^DD(59.7,20.405,21,2,0)="process completed converting the Non-Verified Orders file to the New"
^DD(59.7,20.405,21,3,0)="Person file and Primary Drug.  It should not be set by a user."
^DD(59.7,20.405,23,0)="^^5^5^2910808^"
^DD(59.7,20.405,23,1,0)="  This is the date and time that the Inpatient Medications version 4"
^DD(59.7,20.405,23,2,0)="post-init process completed converting the Non-Verified Orders file"
^DD(59.7,20.405,23,3,0)="to use the New Person file and Primary Drug.  This allows the inits"
^DD(59.7,20.405,23,4,0)="to be run again without corrupting the data in the Non-Verified Orders"
^DD(59.7,20.405,23,5,0)="file."
^DD(59.7,20.405,"DT")="2910808"
^DD(59.7,20.406,0)="LAST PAT CONVERTED FOR VER 4^NJ9,0^^20.4;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,20.406,3)="Type a Number between 0 and 999999999, 0 Decimal Digits."
^DD(59.7,20.406,8.5)="^"
^DD(59.7,20.406,9)="^"
^DD(59.7,20.406,20,0)="^.3LA^1^1"
^DD(59.7,20.406,20,1,0)="PSJ"
^DD(59.7,20.406,21,0)="^^5^5^2940621^^"
^DD(59.7,20.406,21,1,0)="  This is used by the version 4 post-inits of the Inpatient Medications"
^DD(59.7,20.406,21,2,0)="package to keep track of the patients whose orders have been converted to"
^DD(59.7,20.406,21,3,0)="the New Person file and Primary Drug. "
^DD(59.7,20.406,21,4,0)="  THIS IS FOR USE ONLY BY THE POST-INITS, AND SHOULD NOT BE EDITED THROUGH"
^DD(59.7,20.406,21,5,0)="VA FILEMAN."
^DD(59.7,20.406,23,0)="^^4^4^2911014^"
^DD(59.7,20.406,23,1,0)="  This is used by the routine PSJIPST0 to keep track of the last patient"
^DD(59.7,20.406,23,2,0)="whose orders have been converted to the New Person file and Primary Drug,"
^DD(59.7,20.406,23,3,0)="to allow the inits to be rerun if necessary.  This is for version 4 of the"
^DD(59.7,20.406,23,4,0)="Inpatient Medications package."
^DD(59.7,20.406,"DT")="2911014"
^DD(59.7,20.407,0)="LAST PICK LIST TO PD MARKER^NJ6,0^^20.4;7^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.7,20.407,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(59.7,20.407,8.5)="^"
^DD(59.7,20.407,9)="^"
^DD(59.7,20.407,20,0)="^.3LA^1^1"
^DD(59.7,20.407,20,1,0)="PSJ"
^DD(59.7,20.407,21,0)="^^2^2^2920514^"
^DD(59.7,20.407,21,1,0)="  This is the last pick list converted by the Inpatient Medications version"
^DD(59.7,20.407,21,2,0)="4 init process."
^DD(59.7,20.407,23,0)="^^3^3^2920514^"
^DD(59.7,20.407,23,1,0)="  This is a marker created by conversion process started by the Inpatient"
^DD(59.7,20.407,23,2,0)="Medications version 4 init process.  This allows the coversion process to"
^DD(59.7,20.407,23,3,0)="be restarted if necessary."
^DD(59.7,20.407,"DT")="2920106"
^DD(59.7,20.408,0)="DATE PICK LISTS CONVERT TO PD^D^^20.4;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.408,8.5)="^"
^DD(59.7,20.408,9)="^"
^DD(59.7,20.408,20,0)="^.3LA^1^1"
^DD(59.7,20.408,20,1,0)="PSJU"
^DD(59.7,20.408,21,0)="^^3^3^2920514^"
^DD(59.7,20.408,21,1,0)="  This is the date and time that a conversion process started by the"
^DD(59.7,20.408,21,2,0)="Inpatient Medications version 4 inits completed converting the Unit Dose"
^DD(59.7,20.408,21,3,0)="pick lists to use Primary Drug."
^DD(59.7,20.408,23,0)="^^4^4^2920514^"
^DD(59.7,20.408,23,1,0)="  This is set when the process that converts the Unit DOse pick lists to use"
^DD(59.7,20.408,23,2,0)="Primary Drug has completed.  The conversion is started by the Inpatient"
^DD(59.7,20.408,23,3,0)="Medications post-init process.  This allows the inits to be re-run without"
^DD(59.7,20.408,23,4,0)="re-running the conversion."
^DD(59.7,20.408,"DT")="2920106"
^DD(59.7,20.409,0)="ORDER SET CONVERSION MARKER^F^^20.4;9^K:$L(X)>13!($L(X)<3)!'(X?1.6N1"";""1.6N) X"
^DD(59.7,20.409,3)="Answer must be 3-13 characters in length."
^DD(59.7,20.409,8.5)="^"
^DD(59.7,20.409,9)="^"
^DD(59.7,20.409,20,0)="^.3LA^1^1"
^DD(59.7,20.409,20,1,0)="PSJ"
^DD(59.7,20.409,21,0)="^^2^2^2920108^"
^DD(59.7,20.409,21,1,0)="  This is the last entry in the Order Set file (53.2) to be converted to"
^DD(59.7,20.409,21,2,0)="primary drug along with the last order within that entry to be converted."
^DD(59.7,20.409,23,0)="^^4^4^2920108^"
^DD(59.7,20.409,23,1,0)="  This is used by the post-int process as a 'marker' when converting the"
^DD(59.7,20.409,23,2,0)="Order Set file (53.2) to use primary drugs.  It is in the form of: 53.2"
^DD(59.7,20.409,23,3,0)="entry number_"";""_entry number of order within order set.  Used by the"
^DD(59.7,20.409,23,4,0)="routine PSJIPST3."
^DD(59.7,20.409,"DT")="2920108"
^DD(59.7,20.41,0)="ORDER SET CONVERSION DATE^D^^20.4;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.41,8.5)="^"
^DD(59.7,20.41,20,0)="^.3LA^1^1"
^DD(59.7,20.41,20,1,0)="PSJ"
^DD(59.7,20.41,21,0)="^^5^5^2940621^^^"
^DD(59.7,20.41,21,1,0)="  This is the date and time the post-init process completed the conversion"
^DD(59.7,20.41,21,2,0)="of the Unit Dose Order Sets for use with Primary Drug.  If the inits"
^DD(59.7,20.41,21,3,0)="are rerun and the post-inits find a date here, the conversion will not be"
^DD(59.7,20.41,21,4,0)="attempted.  This should only be set by the post-inits, and not edited"
^DD(59.7,20.41,21,5,0)="through VA FileMan."
^DD(59.7,20.41,23,0)="^^3^3^2920108^^"
^DD(59.7,20.41,23,1,0)="  This is the date and time that the post-init process completed the"
^DD(59.7,20.41,23,2,0)="conversion of the Unit Dose Order Sets to use Primary Drug.  This is"
^DD(59.7,20.41,23,3,0)="accessed in the routine PSJIPST and set in the routine PSJIPST3."
^DD(59.7,20.41,"DT")="2920108"
^DD(59.7,20.411,0)="DATE UD STATS FILE CONVERTED^D^^20.4;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.411,20,0)="^.3LA^1^1"
^DD(59.7,20.411,20,1,0)="PSJ"
^DD(59.7,20.411,21,0)="^^2^2^2920303^"
^DD(59.7,20.411,21,1,0)="  This is the date the Unit Dose Pick List Stats file was converted"
^DD(59.7,20.411,21,2,0)="from the Provider file to the New person file."
^DD(59.7,20.411,23,0)="^^4^4^2920303^"
^DD(59.7,20.411,23,1,0)="  This is the date the Unit Dose Pick List Stats file was converted from"
^DD(59.7,20.411,23,2,0)="the Provider file to the New Person file.  It is set by the routine"
^DD(59.7,20.411,23,3,0)="PSJIPST2.  This allows the inits to run again without degrading the data"
^DD(59.7,20.411,23,4,0)="in the file."
^DD(59.7,20.411,"DT")="2920303"
^DD(59.7,20.5,0)="DATE ATC DATA CONVERTED^D^^20;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,20.5,3)="Enter date ATC data was converted."
^DD(59.7,20.5,8.5)="^"
^DD(59.7,20.5,9)="^"
^DD(59.7,20.5,20,0)="^.3LA^1^1"
^DD(59.7,20.5,20,1,0)="PSJ"
^DD(59.7,20.5,21,0)="^^2^2^2911011^^"
^DD(59.7,20.5,21,1,0)="  This is the date the site's ATC 212 data was converted for use with"
^DD(59.7,20.5,21,2,0)="multiple machines."
^DD(59.7,20.5,"DT")="2910312"
^DD(59.7,20.6,0)="DEFAULT WARD^P59.6'^PS(59.6,^20;6^Q"
^DD(59.7,20.6,3)="Enter the Inpatient Ward whose parameters are to be used whenever a patient is accessed who is not currently an inpatient."
^DD(59.7,20.6,8.5)="^"
^DD(59.7,20.6,9)="^"
^DD(59.7,20.6,20,0)="^.3LA^1^1"
^DD(59.7,20.6,20,1,0)="PSJ"
^DD(59.7,20.6,21,0)="^^3^3^2940621^^"
^DD(59.7,20.6,21,1,0)="  This is the entry in the Inpatient Ward Parameter file that is used by the"
^DD(59.7,20.6,21,2,0)="Inpatient Medications package whenever a patient is accessed who is not"
^DD(59.7,20.6,21,3,0)="an inpatient at that time."
^DD(59.7,20.6,"DT")="2910730"
^DD(59.7,20.8,0)="LAST PATIENT CONVERTED TO V4^P55'^PS(55,^20;8^Q"
^DD(59.7,20.8,8.5)="^"
^DD(59.7,20.8,9)="^"
^DD(59.7,20.8,20,0)="^.3LA^1^1"
^DD(59.7,20.8,20,1,0)="PSJ"
^DD(59.7,20.8,21,0)="^^4^4^2911016^^^^"
^DD(59.7,20.8,21,1,0)="  This the last pharmacy patient whose verified Unit Dose orders were"
^DD(59.7,20.8,21,2,0)="converted for use with version 4 of the Inpatient Medications package."
^DD(59.7,20.8,21,3,0)="THIS FIELD SHOULD NOT BE EDITED!  Editing this field could result in"
^DD(59.7,20.8,21,4,0)="corrupted data which could cause medication administration errors."
^DD(59.7,20.8,23,0)="^^4^4^2911016^^^"
^DD(59.7,20.8,23,1,0)="  This is set by the routine PSJIPST0, which converts all Pharmacy Patients'"
^DD(59.7,20.8,23,2,0)="active Unit Dose orders to the New Person file and Primary Drug.  After"
^DD(59.7,20.8,23,3,0)="a patient's orders have been converted, the patient is entered here.  This"
^DD(59.7,20.8,23,4,0)="allows the process to be restarted, if necessary."
^DD(59.7,20.8,"DT")="2911016"
^DD(59.7,20.9,0)="UD STATS/200 CONVERSION STATUS^S^0:NOT YET STARTED;1:MOVING CONVERTED DATA TO UTILITY;2:MOVING CONVERTED DATA BACK TO 57.6;3:COMPLETED;^20;9^Q"
^DD(59.7,20.9,8.5)="^"
^DD(59.7,20.9,9)="^"
^DD(59.7,20.9,21,0)="^^3^3^2910701^"
^DD(59.7,20.9,21,1,0)="  This is the status of the process that converts the providers in the"
^DD(59.7,20.9,21,2,0)="UNIT DOSE PICK LIST STATS (57.6) from the PROVIDER file (6) to the NEW"
^DD(59.7,20.9,21,3,0)="PERSON file (200)."
^DD(59.7,20.9,23,0)="^^5^5^2910701^"
^DD(59.7,20.9,23,1,0)="  This flag is set by the routine PSJC200 as part of the post-init process."
^DD(59.7,20.9,23,2,0)="PSJC200 converts the all of the Inpatient Medication data from the PROVIDER"
^DD(59.7,20.9,23,3,0)="file (6) to the NEW PERSON file (200).  This flag allows the process to"
^DD(59.7,20.9,23,4,0)="be run again if necessary without corrupting the data in the UNIT DOSE PICK"
^DD(59.7,20.9,23,5,0)="LIST STATS file (57.6)."
^DD(59.7,20.9,"DT")="2910701"
^DD(59.7,21,0)="NON-FORMULARY MESSAGE^59.721^^21;0"
^DD(59.7,21,20,0)="^.3LA^1^1"
^DD(59.7,21,20,1,0)="PS"
^DD(59.7,21,21,0)="^^5^5^2940726^^^^"
^DD(59.7,21,21,1,0)="  This is a message that will be shown to non-pharmacists when they order"
^DD(59.7,21,21,2,0)="drugs for a patient that are not currently stocked by the pharmacy.  This"
^DD(59.7,21,21,3,0)="is typically a warning and/or a procedure the non-pharmacist must follow"
^DD(59.7,21,21,4,0)="before pharmacy will dispense the non-formulary drug.  This message will"
^DD(59.7,21,21,5,0)="show exactly as entered here."
^DD(59.7,21,23,0)="^^4^4^2940726^^"
^DD(59.7,21,23,1,0)="  This allows the pharmacy to provide a message to non-pharmacy personnel"
^DD(59.7,21,23,2,0)="when they order a non-formulary drug for a patient.  The message usually"
^DD(59.7,21,23,3,0)="outlines the procedure that the user needs to follow before pharmacy will"
^DD(59.7,21,23,4,0)="dispense the non-formulary drug."
^DD(59.7,22,0)="WARD ACTIONS^59.722P^^22;0"
^DD(59.7,22,8.5)="^"
^DD(59.7,22,9)="^"
^DD(59.7,22,20,0)="^.3LA^1^1"
^DD(59.7,22,20,1,0)="PSJ"
^DD(59.7,22,21,0)="^^2^2^2940719^^^"
^DD(59.7,22,21,1,0)="  These are the actions that the Inpatient Medications will take on"
^DD(59.7,22,21,2,0)="a patient's order whenever the patient is transferred between wards."
^DD(59.7,22,23,0)="^^4^4^2940719^^"
^DD(59.7,22,23,1,0)="  This allows the site to determine if a patient's orders should be"
^DD(59.7,22,23,2,0)="cancelled when the patient is transferred to another ward.  This"
^DD(59.7,22,23,3,0)="allows the site to make this determination on a ward by ward basis."
^DD(59.7,22,23,4,0)="This is used by the PSJADT routines."
^DD(59.7,23,0)="D/C ON SERVICE TRANSFER^59.723S^^23;0"
^DD(59.7,23,8.5)="^"
^DD(59.7,23,9)="^"
^DD(59.7,23,20,0)="^.3LA^1^1"
^DD(59.7,23,20,1,0)="PSJ"
^DD(59.7,23,21,0)="^.001^2^2^3041026^^^^"
^DD(59.7,23,21,1,0)="  A patient's Inpatient Medications orders will be cancelled whenever the"
^DD(59.7,23,21,2,0)="patient is transferred between services entered here."
^DD(59.7,23,23,0)="^.001^6^6^3041026^^^^"
^DD(59.7,23,23,1,0)="  This allows the site to determine if a patient's orders should be"
^DD(59.7,23,23,2,0)="cancelled when the patient is transferred to another service.  This"
^DD(59.7,23,23,3,0)="allows the site to make this determination on a service by service"
^DD(59.7,23,23,4,0)="basis.  The service that the patient resides is determined by the ward"
^DD(59.7,23,23,5,0)="that the patient resides, using the SERVICE field of the WARD LOCATION"
^DD(59.7,23,23,6,0)="file.  This is used by the PSJADT routines."
^DD(59.7,23,"DT")="2920709"
^DD(59.7,25,0)="INPATIENT ORDER NUMBER^NJ12,0^^25;E1,245^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,25,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits."
^DD(59.7,25,20,0)="^.3LA^1^1"
^DD(59.7,25,20,1,0)="PSJ"
^DD(59.7,25,21,0)="^^4^4^2940621^^"
^DD(59.7,25,21,1,0)="  This is used to keep track of the internal order number of Inpatient"
^DD(59.7,25,21,2,0)="Medications and IV Fluid orders placed in the NON-VERIFIED ORDERS file"
^DD(59.7,25,21,3,0)="(53.1).  This is used to provide each order with a unique internal number."
^DD(59.7,25,21,4,0)="This should not be edited through the VA FileMan."
^DD(59.7,25,23,0)="^^3^3^2940621^^"
^DD(59.7,25,23,1,0)="  This is used to produce unique internal entry numbers for orders placed"
^DD(59.7,25,23,2,0)="into the NON-VERIFIED ORDERS file (#53.1).  It is used in the routine"
^DD(59.7,25,23,3,0)="PSGOETO."
^DD(59.7,25,"DT")="2920410"
^DD(59.7,25.1,0)="DATE 5.0 UD VER CONV FINISHED^D^^20.5;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,25.1,3)=""
^DD(59.7,25.1,21,0)="^^2^2^2970220^"
^DD(59.7,25.1,21,1,0)="This field tracks the date the version 5.0 Unit Dose Verification"
^DD(59.7,25.1,21,2,0)="conversion finished."
^DD(59.7,25.1,23,0)="^^2^2^2970220^"
^DD(59.7,25.1,23,1,0)="This field tracks the date the version 5.0 Unit Dose Verification"
^DD(59.7,25.1,23,2,0)="conversion finished."
^DD(59.7,25.1,"DT")="2970220"
^DD(59.7,25.2,0)="DATE 5.0 CONVERSION COMPLETED^D^^20.5;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,25.2,21,0)="^^2^2^2951009^"
^DD(59.7,25.2,21,1,0)="This is the date the 5.0 postinit process completed the conversion for"
^DD(59.7,25.2,21,2,0)="version 5.0."
^DD(59.7,25.2,23,0)="^^2^2^2951009^"
^DD(59.7,25.2,23,1,0)="This is set when the 5.0 postinit process completes converting existing "
^DD(59.7,25.2,23,2,0)="Unit Dose orders to the new (5.0) format."
^DD(59.7,25.2,"DT")="2951009"
^DD(59.7,25.3,0)="DATE 5.0 PICK LIST CONV FINISH^D^^20.5;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,25.3,21,0)="^^1^1^2970220^^"
^DD(59.7,25.3,21,1,0)="This field will track when the version 5.0 Pick List Conversion finished."
^DD(59.7,25.3,23,0)="^^1^1^2970220^"
^DD(59.7,25.3,23,1,0)="This field will track when the version 5.0 Pick List Conversion finished."
^DD(59.7,25.3,"DT")="2970220"
^DD(59.7,25.4,0)="DATE 5.0 ORDER SET CONV FINISH^D^^20.5;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,25.4,21,0)="^^1^1^2970609^^"
^DD(59.7,25.4,21,1,0)="Date the S. Order set conversion finished for version 5.0."
^DD(59.7,25.4,23,0)="^^1^1^2970609^"
^DD(59.7,25.4,23,1,0)="Date the S. Order set conversion finished for version 5.0."
^DD(59.7,25.4,"DT")="2970609"
^DD(59.7,26,0)="PRINT 6 BLOCKS FOR THE PRN MAR^S^1:YES;^26;1^Q"
^DD(59.7,26,3)="Enter 1 to allow 6 blocks to be printed for the ONE-TIME/PRN orders on the 7/14 DAY MAR ONE-TIME/PRN SHEET."
^DD(59.7,26,20,0)="^.3LA^1^1"
^DD(59.7,26,20,1,0)="PSJ"
^DD(59.7,26,21,0)="^^4^4^2931222^^^^"
^DD(59.7,26,21,1,0)="This field is used to indicate if 4 or 6 blocks are to be used for "
^DD(59.7,26,21,2,0)="ONE-TIME/PRN orders on the 7/14 DAY MAR ONE-TIME/PRN SHEET. The 7/14"
^DD(59.7,26,21,3,0)="DAY MAR ONE-TIME/PRN SHEET will print 4 blocks if this field is not "
^DD(59.7,26,21,4,0)="set to ""YES""."
^DD(59.7,26,"DT")="2931216"
^DD(59.7,26.2,0)="ATC SORT PARAMETER^S^0:ATC MNEMONIC;1:ADMIN TIME;^26;2^Q"
^DD(59.7,26.2,3)="Enter '0' to send Pick List to ATC by drug, '1' for admin time."
^DD(59.7,26.2,21,0)="^^3^3^2940224^^^"
^DD(59.7,26.2,21,1,0)="This parameter allows sending of the Pick List to the ATC machine"
^DD(59.7,26.2,21,2,0)="by ATC Mnemonic within Patient (as in versions of Inpatient Medications"
^DD(59.7,26.2,21,3,0)="thru 4.0), or else by admin time within patient."
^DD(59.7,26.2,23,0)="^^2^2^2940224^^^"
^DD(59.7,26.2,23,1,0)="This SET OF CODES determines which routine is called by the SEND PICK"
^DD(59.7,26.2,23,2,0)="LIST TO ATC option in Unit Dose."
^DD(59.7,26.2,"DT")="2940224"
^DD(59.7,26.3,0)="PRINT DIET ABBR LABEL ON MAR^S^1:YES;^26;3^Q"
^DD(59.7,26.3,3)="Enter 1 or Yes, the Dietetics Abbreviated Label will print on the MAR"
^DD(59.7,26.3,21,0)="^^1^1^2970527^"
^DD(59.7,26.3,21,1,0)="If this field contains a 1 or Yes, the Dietetics Abbreviated Label will be printed on the MAR"
^DD(59.7,26.3,"DT")="2970527"
^DD(59.7,26.4,0)="MAR SORT^S^0:Sort by order's Schedule Type and then Medication Names.;1:Sort by order's Medication Names.;^26;4^Q"
^DD(59.7,26.4,3)=""
^DD(59.7,26.4,4)=""
^DD(59.7,26.4,21,0)="^^19^19^2981019^"
^DD(59.7,26.4,21,1,0)=" If enter 0, the MAR will sort by the order's Schedule Type* and then"
^DD(59.7,26.4,21,2,0)="             medication names."
^DD(59.7,26.4,21,3,0)=" If enter 1, the MAR will sort by the order's medication names."
^DD(59.7,26.4,21,4,0)=" "
^DD(59.7,26.4,21,5,0)=" * Schedule Type is sort based on the following orders:"
^DD(59.7,26.4,21,6,0)=" "
^DD(59.7,26.4,21,7,0)="   Continuous MAR                      One-Time/PRN MAR"
^DD(59.7,26.4,21,8,0)="   --------------                      ----------------"
^DD(59.7,26.4,21,9,0)="   Unit dose order:                    Unit dose orders:"
^DD(59.7,26.4,21,10,0)="       Continuous                         One-time"
^DD(59.7,26.4,21,11,0)="       Fill in Request                    PRN"
^DD(59.7,26.4,21,12,0)="   IV Orders:                          IV orders:"
^DD(59.7,26.4,21,13,0)="       Piggyback or Syringe type          One-time"
^DD(59.7,26.4,21,14,0)="       Admixture type                     PRN"
^DD(59.7,26.4,21,15,0)="       Hyperal type                    Acknowledged Pending PRN orders"
^DD(59.7,26.4,21,16,0)="       Chemo type"
^DD(59.7,26.4,21,17,0)="   Acknowledged Pending orders:"
^DD(59.7,26.4,21,18,0)="       Inpatient Meds"
^DD(59.7,26.4,21,19,0)="       IV fluids"
^DD(59.7,26.4,"DT")="2981008"
^DD(59.7,26.5,0)="CALC UNITS NEEDED PRN ORDERS^S^1:YES;^26;5^Q"
^DD(59.7,26.5,3)="Enter a 1 if you would like to have the UNITS NEEDED calculated for PRN orders on the Pick List."
^DD(59.7,26.5,21,0)="^.001^3^3^3010205^^^"
^DD(59.7,26.5,21,1,0)="This field controls whether or not UNITS NEEDED will be calculated"
^DD(59.7,26.5,21,2,0)="for orders with PRN in the schedule field.  This information will show"
^DD(59.7,26.5,21,3,0)="on the Pick List if this field is set to 1."
^DD(59.7,26.5,"DT")="3010205"
^DD(59.7,26.6,0)="DAYS UNTIL STOP FOR ONE-TIME^NJ2,0^^26;6^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.7,26.6,3)="Type a Number between 1 and 30, indicating the number of days a one-time order should last if there is no ward parameter defined."
^DD(59.7,26.6,"DT")="3010905"
^DD(59.7,26.7,0)="ROUND ATC PICK LIST UNITS^S^1:YES;0:NO;^26;7^Q"
^DD(59.7,26.7,3)="Enter YES if you wish to round fractional doses when sending the pick list to the ATC."
^DD(59.7,26.7,21,0)="^^2^2^3030814^"
^DD(59.7,26.7,21,1,0)="The purpose of this field is to allow rounding of fractional doses to be "
^DD(59.7,26.7,21,2,0)="sent by the pick list to the ATC."
^DD(59.7,26.7,"DT")="3030814"
^DD(59.7,27,0)="PRIORITIES FOR PENDING NOTIFY^S^S:STAT;SA:STAT/ASAP;SAN:STAT/ASAP/NOW;A:ASAP;AN:ASAP/NOW;N:NOW;SN:STAT/NOW;^27;1^Q"
^DD(59.7,27,21,0)="^^8^8^3050809^"
^DD(59.7,27,21,1,0)="Enter the priorities of STAT, ASAP, or the schedule of NOW, or any"
^DD(59.7,27,21,2,0)="combination of the three to be used to send a notification of orders with"
^DD(59.7,27,21,3,0)="these priorities to the PSJ STAT NOW PENDING ORDER mail group."
^DD(59.7,27,21,4,0)=" "
^DD(59.7,27,21,5,0)="This field is also used as the default control for field 27.1 in file"
^DD(59.7,27,21,6,0)="59.7, PRIORITIES FOR ACTIVE NOTIFY and for field 6 in file 59.6 PRIORITIES"
^DD(59.7,27,21,7,0)="FOR NOTIFICATION.  If these two fields are blank, then they will use the"
^DD(59.7,27,21,8,0)="setting defined here."
^DD(59.7,27,"DT")="3050809"
^DD(59.7,27.1,0)="PRIORITIES FOR ACTIVE NOTIFY^S^S:STAT;SA:STAT/ASAP;SAN:STAT/ASAP/NOW;A:ASAP;AN:ASAP/NOW;N:NOW;SN:STAT/NOW;^27;2^Q"
^DD(59.7,27.1,21,0)="^^3^3^3050809^"
^DD(59.7,27.1,21,1,0)="Enter the priorities of STAT, ASAP, or the schedule of NOW, or any"
^DD(59.7,27.1,21,2,0)="combination the three to be used to send a notification of orders with"
^DD(59.7,27.1,21,3,0)="these priorities to the PSJ STAT NOW ACTIVE ORDER mail group."
^DD(59.7,27.1,"DT")="3050809"
^DD(59.7,30.1,0)="DATE IV ORDERS CONVERTED^D^^30;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,30.1,8.5)="^"
^DD(59.7,30.1,9)="^"
^DD(59.7,30.1,20,0)="^.3LA^1^1"
^DD(59.7,30.1,20,1,0)="PSJ"
^DD(59.7,30.1,21,0)="^^3^3^2911013^^"
^DD(59.7,30.1,21,1,0)="  This is the date existing IV orders were converted to look at the new"
^DD(59.7,30.1,21,2,0)="person file, and linked to the appropriate protocols for use in Inpatient"
^DD(59.7,30.1,21,3,0)="Medications version 4.0."
^DD(59.7,30.1,23,0)="^^3^3^2911013^^"
^DD(59.7,30.1,23,1,0)="  This is set when the order conversion has completed. When the inits are"
^DD(59.7,30.1,23,2,0)="run, this field is checked, and if a date is found the conversion will not "
^DD(59.7,30.1,23,3,0)="be run."
^DD(59.7,30.1,"DT")="2911011"
^DD(59.7,30.2,0)="LAST PATIENT CONVERTED (IV)^P55'^PS(55,^30;2^Q"
^DD(59.7,30.2,8.5)="^"
^DD(59.7,30.2,9)="^"
^DD(59.7,30.2,20,0)="^.3LA^1^1"
^DD(59.7,30.2,20,1,0)="PSJ"
^DD(59.7,30.2,21,0)="^^4^4^2940621^^^"
^DD(59.7,30.2,21,1,0)="  This is the last pharmacy patient whose orders were converted to the"
^DD(59.7,30.2,21,2,0)="new person file, and to the new format required by version 4.0. If this"
^DD(59.7,30.2,21,3,0)="field is edited, data within inpatient medication orders may be"
^DD(59.7,30.2,21,4,0)="corrupted."
^DD(59.7,30.2,23,0)="^^4^4^2911015^^"
^DD(59.7,30.2,23,1,0)="  This is set by PSJIPST1, which converts all IV orders to the new person"
^DD(59.7,30.2,23,2,0)="file (200), and to the format required by Inpatient Medications 4.0. After"
^DD(59.7,30.2,23,3,0)="all of a patient's orders have been processed, the patient is entered here."
^DD(59.7,30.2,23,4,0)="This allows the conversion to be restarted if necessary."
^DD(59.7,30.2,"DT")="2911015"
^DD(59.7,31,0)="DAYS TO RETAIN IV STATISTICS^NJ4,0^^31;1^K:+X'=X!(X>2000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(59.7,31,3)="Type a Number between 100 and 2000, 0 Decimal Digits"
^DD(59.7,31,20,0)="^.3LA^1^1"
^DD(59.7,31,20,1,0)="PSJI"
^DD(59.7,31,21,0)="^^3^3^2920528^^^^"
^DD(59.7,31,21,1,0)="  This is used to allow the site to specify the number of days to keep"
^DD(59.7,31,21,2,0)="data in the IV STATS file (50.8). Information may be retained in the "
^DD(59.7,31,21,3,0)="IV STATS file for 100 to 2000 days."
^DD(59.7,31,23,0)="^^3^3^2920528^^^^"
^DD(59.7,31,23,1,0)="  This is used to allow the site to specify the number of days to keep"
^DD(59.7,31,23,2,0)="data in the IV STATS vile (50.8). If no value is found for this field,"
^DD(59.7,31,23,3,0)="the IV STATS data will be retained for 100 days."
^DD(59.7,31,"DT")="2920511"
^DD(59.7,32,0)="IV IDENTIFIER^F^^31;2^K:$L(X)>30!($L(X)<1) X"
^DD(59.7,32,3)="Answer must be 1-30 characters in length."
^DD(59.7,32,"DT")="2950227"
^DD(59.7,34,0)="EXPIRED IV TIME LIMIT^NJ2,0^^31;4^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1.N) X"
^DD(59.7,34,3)="Type the Number of Hours between 0 and 24 that continuous IV orders may be renewed after expiring"
^DD(59.7,34,21,0)="^^2^2^3040729^"
^DD(59.7,34,21,1,0)="The maximum number of hours after a continuous IV order expires that it "
^DD(59.7,34,21,2,0)="may still be renewed"
^DD(59.7,34,"DT")="3040729"
^DD(59.7,40,0)="DEFAULT OUTPATIENT SITE^P59'^PS(59,^40;1^Q"
^DD(59.7,40,.1)=""
^DD(59.7,40,3)="Enter name of default site."
^DD(59.7,40,8)="#"
^DD(59.7,40,8.5)="#"
^DD(59.7,40,9)="#"
^DD(59.7,40,10)="Various pharmacy data"
^DD(59.7,40,11,0)="^.2LAP^^0"
^DD(59.7,40,20,0)="^.3LA^1^1"
^DD(59.7,40,20,1,0)="PSO"
^DD(59.7,40,21,0)="^^3^3^2950620^^^"
^DD(59.7,40,21,1,0)="The outpatient site (and parameters) which will be used for"
^DD(59.7,40,21,2,0)="ward order entry.  An entry in this field will bypass the"
^DD(59.7,40,21,3,0)="site selection prompt when entering outpatient from OE/RR."
^DD(59.7,40,"DT")="2950620"
^DD(59.7,40.1,0)="ADMISSION CANCEL OF RXS^S^1:YES;0:NO;^40.1;1^Q"
^DD(59.7,40.1,3)=""
^DD(59.7,40.1,20,0)="^.3LA^1^1"
^DD(59.7,40.1,20,1,0)="PSO"
^DD(59.7,40.1,21,0)="^^2^2^2921215^^^^"
^DD(59.7,40.1,21,1,0)="This field is used to determine if outpatient medication will be cancelled"
^DD(59.7,40.1,21,2,0)="after 72 hours of an admission to the medical center."
^DD(59.7,40.1,23,0)="^^1^1^2921215^^^^"
^DD(59.7,40.1,23,1,0)="set of codes"
^DD(59.7,40.1,"DT")="2921123"
^DD(59.7,40.11,0)="INTERDIVISIONAL PROCESSING^S^1:YES;^40.1;2^Q"
^DD(59.7,40.11,3)="Enter 'Yes' if interdivisional processing is to occur."
^DD(59.7,40.11,20,0)="^.3LA^1^1"
^DD(59.7,40.11,20,1,0)="PSO"
^DD(59.7,40.11,21,0)="^^1^1^2920511^^^^"
^DD(59.7,40.11,21,1,0)="This field is used to indicate if interdivisional processing is to occur."
^DD(59.7,40.11,23,0)="^^1^1^2920511^^^^"
^DD(59.7,40.11,23,1,0)="set of codes."
^DD(59.7,40.11,"DT")="2920511"
^DD(59.7,40.12,0)="DIVISION PROMPT ASKED^S^1:YES;^40.1;3^Q"
^DD(59.7,40.12,3)="Enter 'Yes' if division prompt is to be asked."
^DD(59.7,40.12,20,0)="^.3LA^1^1"
^DD(59.7,40.12,20,1,0)="PSO"
^DD(59.7,40.12,21,0)="^^1^1^2920511^"
^DD(59.7,40.12,21,1,0)="This field is used to indicate if the 'Division' prompt is to be asked."
^DD(59.7,40.12,23,0)="^^1^1^2920511^"
^DD(59.7,40.12,23,1,0)="set of codes."
^DD(59.7,40.12,"DT")="2920511"
^DD(59.7,40.13,0)="REFILL/RENEW DIVISION^P59'I^PS(59,^40.1;4^Q"
^DD(59.7,40.13,3)="Enter Division."
^DD(59.7,40.13,20,0)="^.3LA^1^1"
^DD(59.7,40.13,20,1,0)="PSO"
^DD(59.7,40.13,21,0)="^^2^2^2930104^"
^DD(59.7,40.13,21,1,0)="This field is used to indicate the refill/renew division for multi divisional"
^DD(59.7,40.13,21,2,0)="sites."
^DD(59.7,40.13,23,0)="^^1^1^2930104^^^"
^DD(59.7,40.13,23,1,0)="pointer."
^DD(59.7,40.13,"DT")="2890907"
^DD(59.7,40.14,0)="DAYS PRINTED RX STAYS IN 52.5^NJ2,0^^40.1;5^K:+X'=X!(X>90)!(X<7)!(X?.E1"".""1N.N) X"
^DD(59.7,40.14,3)="Enter from 7 to 90 days printed Rx's are to remain in suspense during the purge option."
^DD(59.7,40.14,20,0)="^.3LA^1^1"
^DD(59.7,40.14,20,1,0)="PSO"
^DD(59.7,40.14,21,0)="^^3^3^2950707^^^^"
^DD(59.7,40.14,21,1,0)="This field contains the number of days printed prescriptions are to remain"
^DD(59.7,40.14,21,2,0)="in the RX SUSPENSE file when running the Delete From Suspense File option. "
^DD(59.7,40.14,21,3,0)="The number of days to remain may be from 7 to 90."
^DD(59.7,40.14,23,0)="^^1^1^2950707^^^^"
^DD(59.7,40.14,23,1,0)="The Delete Printed Prescriptions option in the Suspense menu uses this data."
^DD(59.7,40.14,"DT")="2930318"
^DD(59.7,40.15,0)="POLYPHARMACY W/ACTION PROFILE^S^1:YES;^40.1;6^Q"
^DD(59.7,40.15,3)="Enter '1' or Yes to indicate if a polypharmacy report is to print with action profiles."
^DD(59.7,40.15,20,0)="^.3LA^1^1"
^DD(59.7,40.15,20,1,0)="PSO"
^DD(59.7,40.15,21,0)="^^2^2^2960423^^^"
^DD(59.7,40.15,21,1,0)="This field is used to determine if a polypharmacy report prints with action"
^DD(59.7,40.15,21,2,0)="profile across all divisions."
^DD(59.7,40.15,23,0)="^^1^1^2960423^"
^DD(59.7,40.15,23,1,0)="set of codes."
^DD(59.7,40.15,"DT")="2960423"
^DD(59.7,40.19,0)="EXEMPT WARD FROM AUTOCANCEL^59.701P^^40.19;0"
^DD(59.7,40.19,21,0)="^^3^3^2990413^^"
^DD(59.7,40.19,21,1,0)="For WARD LOCATIONS entered here, prescriptions for patients on these wards"
^DD(59.7,40.19,21,2,0)="will not be canceled by the Autocancel RX's on Admission Outpatient"
^DD(59.7,40.19,21,3,0)="Pharmacy system job."
^DD(59.7,40.19,23,0)="^^1^1^2990413^^^^"
^DD(59.7,40.19,23,1,0)="This is a pointer to the WARD LOCATION (#42) File."
^DD(59.7,40.2,0)="USE OF ANOTHER LANGUAGE^S^1:YES;0:NO;^40.2;1^Q"
^DD(59.7,40.2,3)="Enter 1 or Yes if another language translations is used."
^DD(59.7,40.2,20,0)="^.3LA^1^1"
^DD(59.7,40.2,20,1,0)="PSO"
^DD(59.7,40.2,21,0)="^.001^1^1^3020916^^"
^DD(59.7,40.2,21,1,0)="This field is used to indicate if another language translations are used."
^DD(59.7,40.2,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.2,23,1,0)="set of codes."
^DD(59.7,40.2,"DT")="3020916"
^DD(59.7,40.21,0)="SECONDS^F^^40.2;2^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.21,1,0)="^.1"
^DD(59.7,40.21,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.21,1,1,1)="S ^PS(59.7,""AOTH"",""SECONDS"",X)="""""
^DD(59.7,40.21,1,1,2)="K ^PS(59.7,""AOTH"",""SECONDS"",X)"
^DD(59.7,40.21,1,1,3)="Do not delete!"
^DD(59.7,40.21,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.21,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.21,1,1,"DT")="3010912"
^DD(59.7,40.21,3)="Enter the other language translation of the word 'SECOND'. Answer must be 1-15 characters in length."
^DD(59.7,40.21,20,0)="^.3LA^1^1"
^DD(59.7,40.21,20,1,0)="PSO"
^DD(59.7,40.21,21,0)="^.001^2^2^3020916^^^^"
^DD(59.7,40.21,21,1,0)="This field is used to store the other language translation of the word"
^DD(59.7,40.21,21,2,0)="'SECOND'."
^DD(59.7,40.21,23,0)="^.001^1^1^3020916^^^^"
^DD(59.7,40.21,23,1,0)="Free text."
^DD(59.7,40.21,"DT")="3010912"
^DD(59.7,40.22,0)="MINUTES^F^^40.2;3^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.22,1,0)="^.1"
^DD(59.7,40.22,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.22,1,1,1)="S ^PS(59.7,""AOTH"",""MINUTES"",X)="""""
^DD(59.7,40.22,1,1,2)="K ^PS(59.7,""AOTH"",""MINUTES"",X)"
^DD(59.7,40.22,1,1,3)="Do not delete!"
^DD(59.7,40.22,1,1,"%D",0)="^.101^1^1^3010912^^"
^DD(59.7,40.22,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.22,1,1,"DT")="3010912"
^DD(59.7,40.22,3)="Enter the other language translation of the word 'MINUTES'. Answer must be 1-15 characters in length."
^DD(59.7,40.22,20,0)="^.3LA^1^1"
^DD(59.7,40.22,20,1,0)="PSO"
^DD(59.7,40.22,21,0)="^.001^2^2^3020916^^^"
^DD(59.7,40.22,21,1,0)="This field is used to store the other language translation of the word"
^DD(59.7,40.22,21,2,0)="'MINUTES'."
^DD(59.7,40.22,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.22,23,1,0)="free text."
^DD(59.7,40.22,"DT")="3010912"
^DD(59.7,40.23,0)="DAYS^F^^40.2;4^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.23,1,0)="^.1"
^DD(59.7,40.23,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.23,1,1,1)="S ^PS(59.7,""AOTH"",""DAYS"",X)="""""
^DD(59.7,40.23,1,1,2)="K ^PS(59.7,""AOTH"",""DAYS"",X)"
^DD(59.7,40.23,1,1,3)="Do not delete!"
^DD(59.7,40.23,1,1,"%D",0)="^.101^1^1^3010912^^"
^DD(59.7,40.23,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.23,1,1,"DT")="3010912"
^DD(59.7,40.23,3)="Enter the other language translation of the word 'DAYS'. Answer must be 1-15 characters in length."
^DD(59.7,40.23,20,0)="^.3LA^1^1"
^DD(59.7,40.23,20,1,0)="PSO"
^DD(59.7,40.23,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.23,21,1,0)="This field is used to store the other language translation of the word 'DAYS'."
^DD(59.7,40.23,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.23,23,1,0)="free text."
^DD(59.7,40.23,"DT")="3010912"
^DD(59.7,40.24,0)="WEEKS^F^^40.2;5^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.24,1,0)="^.1"
^DD(59.7,40.24,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.24,1,1,1)="S ^PS(59.7,""AOTH"",""WEEKS"",X)="""""
^DD(59.7,40.24,1,1,2)="K ^PS(59.7,""AOTH"",""WEEKS"",X)"
^DD(59.7,40.24,1,1,3)="Do not delete!"
^DD(59.7,40.24,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.24,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.24,1,1,"DT")="3010912"
^DD(59.7,40.24,3)="Enter the other language translation of the word 'WEEKS'. Answer must be 1-15 characters in length."
^DD(59.7,40.24,20,0)="^.3LA^1^1"
^DD(59.7,40.24,20,1,0)="PSO"
^DD(59.7,40.24,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.24,21,1,0)="This field is used to store the other language translation of the word 'WEEKS'."
^DD(59.7,40.24,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.24,23,1,0)="free text."
^DD(59.7,40.24,"DT")="3010912"
^DD(59.7,40.25,0)="HOURS^F^^40.2;6^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.25,1,0)="^.1"
^DD(59.7,40.25,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.25,1,1,1)="S ^PS(59.7,""AOTH"",""HOURS"",X)="""""
^DD(59.7,40.25,1,1,2)="K ^PS(59.7,""AOTH"",""HOURS"",X)"
^DD(59.7,40.25,1,1,3)="Do not delete!"
^DD(59.7,40.25,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.25,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.25,1,1,"DT")="3010912"
^DD(59.7,40.25,3)="Enter the other language translation of the word 'HOURS'. Answer must be 1-15 characters in length."
^DD(59.7,40.25,20,0)="^.3LA^1^1"
^DD(59.7,40.25,20,1,0)="PSO"
^DD(59.7,40.25,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.25,21,1,0)="This field is used to store the other language translation of the word 'HOURS'."
^DD(59.7,40.25,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.25,23,1,0)="free text."
^DD(59.7,40.25,"DT")="3010912"
^DD(59.7,40.26,0)="MONTHS^F^^40.2;7^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.26,1,0)="^.1"
^DD(59.7,40.26,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.26,1,1,1)="S ^PS(59.7,""AOTH"",""MONTHS"",X)="""""
^DD(59.7,40.26,1,1,2)="K ^PS(59.7,""AOTH"",""MONTHS"",X)"
^DD(59.7,40.26,1,1,3)="Do not delete!"
^DD(59.7,40.26,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.26,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.26,1,1,"DT")="3010912"
^DD(59.7,40.26,3)="Enter the other language translation of the word 'MONTHS'. Answer must be 1-15 characters in length."
^DD(59.7,40.26,20,0)="^.3LA^1^1"
^DD(59.7,40.26,20,1,0)="PSO"
^DD(59.7,40.26,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.26,21,1,0)="This field is used to store the other language translation of the word 'MONTHS'."
^DD(59.7,40.26,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.26,23,1,0)="free text"
^DD(59.7,40.26,"DT")="3010912"
^DD(59.7,40.27,0)="AND^F^^40.2;8^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.27,1,0)="^.1"
^DD(59.7,40.27,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.27,1,1,1)="S ^PS(59.7,""AOTH"",""AND"",X)="""""
^DD(59.7,40.27,1,1,2)="K ^PS(59.7,""AOTH"",""AND"",X)"
^DD(59.7,40.27,1,1,3)="Do not delete!"
^DD(59.7,40.27,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.27,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.27,1,1,"DT")="3010912"
^DD(59.7,40.27,3)="Enter the other language translation of the word 'AND'. Answer must be 1-15 characters in length."
^DD(59.7,40.27,20,0)="^.3LA^1^1"
^DD(59.7,40.27,20,1,0)="PSO"
^DD(59.7,40.27,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.27,21,1,0)="This field is used to store the other language translation of the word 'AND'."
^DD(59.7,40.27,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.27,23,1,0)="free text"
^DD(59.7,40.27,"DT")="3010912"
^DD(59.7,40.28,0)="THEN^F^^40.2;9^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.28,1,0)="^.1"
^DD(59.7,40.28,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.28,1,1,1)="S ^PS(59.7,""AOTH"",""THEN"",X)="""""
^DD(59.7,40.28,1,1,2)="K ^PS(59.7,""AOTH"",""THEN"",X)"
^DD(59.7,40.28,1,1,3)="Do not delete!"
^DD(59.7,40.28,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.28,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.28,1,1,"DT")="3010912"
^DD(59.7,40.28,3)="Enter the other language translation of the word 'THEN'. Answer must be 1-15 characters in length."
^DD(59.7,40.28,20,0)="^.3LA^1^1"
^DD(59.7,40.28,20,1,0)="PSO"
^DD(59.7,40.28,21,0)="^.001^1^1^3020916^^^^"
^DD(59.7,40.28,21,1,0)="This field is used to store the other language translation of the word 'THEN'."
^DD(59.7,40.28,23,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.28,23,1,0)="free text."
^DD(59.7,40.28,"DT")="3010912"
^DD(59.7,40.29,0)="EXCEPT^F^^40.2;10^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.29,1,0)="^.1"
^DD(59.7,40.29,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.29,1,1,1)="S ^PS(59.7,""AOTH"",""EXCEPT"",X)="""""
^DD(59.7,40.29,1,1,2)="K ^PS(59.7,""AOTH"",""EXCEPT"",X)"
^DD(59.7,40.29,1,1,3)="Do not delete!"
^DD(59.7,40.29,1,1,"%D",0)="^.101^1^1^3021010^^"
^DD(59.7,40.29,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.29,1,1,"DT")="3021010"
^DD(59.7,40.29,3)="Enter the other language translation of the word 'EXCEPT'. Answer must be 1-15 characters in length."
^DD(59.7,40.29,20,0)="^.3LA^1^1"
^DD(59.7,40.29,20,1,0)="PSO"
^DD(59.7,40.29,21,0)="^.001^1^1^3020916^^^^"
^DD(59.7,40.29,21,1,0)="This field is used to store the other language translation of the word 'EXCEPT'."
^DD(59.7,40.29,23,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.29,23,1,0)="free text."
^DD(59.7,40.29,"DT")="3021010"
^DD(59.7,40.3,0)="ONE^F^^40.3;1^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.3,1,0)="^.1"
^DD(59.7,40.3,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.3,1,1,1)="S ^PS(59.7,""AOTH"",""ONE"",X)="""""
^DD(59.7,40.3,1,1,2)="K ^PS(59.7,""AOTH"",""ONE"",X)"
^DD(59.7,40.3,1,1,3)="Do not delete!"
^DD(59.7,40.3,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.3,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.3,1,1,"DT")="3010912"
^DD(59.7,40.3,3)="Enter the other language translation of the word 'ONE'. Answer must be 1-15 characters in length."
^DD(59.7,40.3,20,0)="^.3LA^1^1"
^DD(59.7,40.3,20,1,0)="PSO"
^DD(59.7,40.3,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.3,21,1,0)="This field is used to store the other language translation of the word 'ONE'."
^DD(59.7,40.3,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.3,23,1,0)="free text."
^DD(59.7,40.3,"DT")="3010912"
^DD(59.7,40.31,0)="TWO^F^^40.3;2^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.31,1,0)="^.1"
^DD(59.7,40.31,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.31,1,1,1)="S ^PS(59.7,""AOTH"",""TWO"",X)="""""
^DD(59.7,40.31,1,1,2)="K ^PS(59.7,""AOTH"",""TWO"",X)"
^DD(59.7,40.31,1,1,3)="Do not delete!"
^DD(59.7,40.31,1,1,"%D",0)="^.101^1^1^3010912^^"
^DD(59.7,40.31,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.31,1,1,"DT")="3010912"
^DD(59.7,40.31,3)="Enter the other language translation of the word 'TWO'. Answer must be 1-15 characters in length."
^DD(59.7,40.31,20,0)="^.3LA^1^1"
^DD(59.7,40.31,20,1,0)="PSO"
^DD(59.7,40.31,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.31,21,1,0)="This field is used to store the other language translation of the word 'TWO'."
^DD(59.7,40.31,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.31,23,1,0)="free text."
^DD(59.7,40.31,"DT")="3010912"
^DD(59.7,40.32,0)="THREE^F^^40.3;3^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.32,1,0)="^.1"
^DD(59.7,40.32,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.32,1,1,1)="S ^PS(59.7,""AOTH"",""THREE"",X)="""""
^DD(59.7,40.32,1,1,2)="K ^PS(59.7,""AOTH"",""THREE"",X)"
^DD(59.7,40.32,1,1,3)="Do not delete!"
^DD(59.7,40.32,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.32,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.32,1,1,"DT")="3010912"
^DD(59.7,40.32,3)="Enter the other language translation of the word 'THREE'. Answer must be 1-15 characters in length."
^DD(59.7,40.32,20,0)="^.3LA^1^1"
^DD(59.7,40.32,20,1,0)="PSO"
^DD(59.7,40.32,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.32,21,1,0)="This field is used to store the other language translation of the word 'THREE'."
^DD(59.7,40.32,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.32,23,1,0)="free text."
^DD(59.7,40.32,"DT")="3010912"
^DD(59.7,40.33,0)="FOUR^F^^40.3;4^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.33,1,0)="^.1"
^DD(59.7,40.33,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.33,1,1,1)="S ^PS(59.7,""AOTH"",""FOUR"",X)="""""
^DD(59.7,40.33,1,1,2)="K ^PS(59.7,""AOTH"",""FOUR"",X)"
^DD(59.7,40.33,1,1,3)="Do not delete!"
^DD(59.7,40.33,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.33,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.33,1,1,"DT")="3010912"
^DD(59.7,40.33,3)="Enter the other language translation of the word 'FOUR'. Answer must be 1-15 characters in length."
^DD(59.7,40.33,20,0)="^.3LA^1^1"
^DD(59.7,40.33,20,1,0)="PSO"
^DD(59.7,40.33,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.33,21,1,0)="This field is used to store the other language translation of the word 'FOUR'."
^DD(59.7,40.33,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.33,23,1,0)="free text"
^DD(59.7,40.33,"DT")="3010912"
^DD(59.7,40.34,0)="FIVE^F^^40.3;5^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.34,1,0)="^.1"
^DD(59.7,40.34,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.34,1,1,1)="S ^PS(59.7,""AOTH"",""FIVE"",X)="""""
^DD(59.7,40.34,1,1,2)="K ^PS(59.7,""AOTH"",""FIVE"",X)"
^DD(59.7,40.34,1,1,3)="Do not delete!"
^DD(59.7,40.34,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.34,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.34,1,1,"DT")="3010912"
^DD(59.7,40.34,3)="Enter the other language translation of the word 'FIVE'. Answer must be 1-15 characters in length."
^DD(59.7,40.34,20,0)="^.3LA^1^1"
^DD(59.7,40.34,20,1,0)="PSO"
^DD(59.7,40.34,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.34,21,1,0)="This field is used to store the other language translation of the word 'FIVE'."
^DD(59.7,40.34,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.34,23,1,0)="free text"
^DD(59.7,40.34,"DT")="3010912"
^DD(59.7,40.35,0)="SIX^F^^40.3;6^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.35,1,0)="^.1"
^DD(59.7,40.35,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.35,1,1,1)="S ^PS(59.7,""AOTH"",""SIX"",X)="""""
^DD(59.7,40.35,1,1,2)="K ^PS(59.7,""AOTH"",""SIX"",X)"
^DD(59.7,40.35,1,1,3)="Do not delete!"
^DD(59.7,40.35,1,1,"%D",0)="^.101^1^1^3010912^^"
^DD(59.7,40.35,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.35,1,1,"DT")="3010912"
^DD(59.7,40.35,3)="Enter the other language translation of the word 'SIX'. Answer must be 1-15 characters in length."
^DD(59.7,40.35,20,0)="^.3LA^1^1"
^DD(59.7,40.35,20,1,0)="PSO"
^DD(59.7,40.35,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.35,21,1,0)="This field is used to store the other language translation of the word 'SIX'."
^DD(59.7,40.35,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.35,23,1,0)="free text."
^DD(59.7,40.35,"DT")="3010912"
^DD(59.7,40.36,0)="SEVEN^F^^40.3;7^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.36,1,0)="^.1"
^DD(59.7,40.36,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.36,1,1,1)="S ^PS(59.7,""AOTH"",""SEVEN"",X)="""""
^DD(59.7,40.36,1,1,2)="K ^PS(59.7,""AOTH"",""SEVEN"",X)"
^DD(59.7,40.36,1,1,3)="Do not delete!"
^DD(59.7,40.36,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.36,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.36,1,1,"DT")="3010912"
^DD(59.7,40.36,3)="Enter the other language translation of the word 'SEVEN'. Answer must be 1-15 characters in length."
^DD(59.7,40.36,20,0)="^.3LA^1^1"
^DD(59.7,40.36,20,1,0)="PSO"
^DD(59.7,40.36,21,0)="^.001^1^1^3020916^^^^"
^DD(59.7,40.36,21,1,0)="This field is used to store the other language translation of the word 'SEVEN'."
^DD(59.7,40.36,23,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.36,23,1,0)="free text"
^DD(59.7,40.36,"DT")="3010912"
^DD(59.7,40.37,0)="EIGHT^F^^40.3;8^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.37,1,0)="^.1"
^DD(59.7,40.37,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.37,1,1,1)="S ^PS(59.7,""AOTH"",""EIGHT"",X)="""""
^DD(59.7,40.37,1,1,2)="K ^PS(59.7,""AOTH"",""EIGHT"",X)"
^DD(59.7,40.37,1,1,3)="Do not delete!"
^DD(59.7,40.37,1,1,"%D",0)="^.101^1^1^3030123^^"
^DD(59.7,40.37,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.37,1,1,"DT")="3030123"
^DD(59.7,40.37,3)="Enter the other language translation of the word 'EIGHT'. Answer must be 1-15 characters in length."
^DD(59.7,40.37,20,0)="^.3LA^1^1"
^DD(59.7,40.37,20,1,0)="PSO"
^DD(59.7,40.37,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.37,21,1,0)="This field is used to store the other language translation of the word 'EIGHT'."
^DD(59.7,40.37,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.37,23,1,0)="free text."
^DD(59.7,40.37,"DT")="3030123"
^DD(59.7,40.38,0)="NINE^F^^40.3;9^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.38,1,0)="^.1"
^DD(59.7,40.38,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.38,1,1,1)="S ^PS(59.7,""AOTH"",""NINE"",X)="""""
^DD(59.7,40.38,1,1,2)="K ^PS(59.7,""AOTH"",""NINE"",X)"
^DD(59.7,40.38,1,1,3)="Do not delete!"
^DD(59.7,40.38,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.38,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.38,1,1,"DT")="3010912"
^DD(59.7,40.38,3)="Enter the other language translation of the word 'NINE'. Answer must be 1-15 characters in length."
^DD(59.7,40.38,20,0)="^.3LA^1^1"
^DD(59.7,40.38,20,1,0)="PSO"
^DD(59.7,40.38,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.38,21,1,0)="This field is used to store the other language translation of the word 'NINE'."
^DD(59.7,40.38,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.38,23,1,0)="free text."
^DD(59.7,40.38,"DT")="3010912"
^DD(59.7,40.39,0)="TEN^F^^40.3;10^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.39,1,0)="^.1"
^DD(59.7,40.39,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.39,1,1,1)="S ^PS(59.7,""AOTH"",""TEN"",X)="""""
^DD(59.7,40.39,1,1,2)="K ^PS(59.7,""AOTH"",""TEN"",X)"
^DD(59.7,40.39,1,1,3)="Do not delete!"
^DD(59.7,40.39,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.39,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.39,1,1,"DT")="3010912"
^DD(59.7,40.39,3)="Enter the other language translation of the word 'TEN'. Answer must be 1-15 characters in length."
^DD(59.7,40.39,20,0)="^.3LA^1^1"
^DD(59.7,40.39,20,1,0)="PSO"
^DD(59.7,40.39,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.39,21,1,0)="This field is used to store the other language translation of the word 'TEN'."
^DD(59.7,40.39,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.39,23,1,0)="free text."
^DD(59.7,40.39,"DT")="3010912"
^DD(59.7,40.4,0)="ONE-HALF^F^^40.3;11^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.4,1,0)="^.1"
^DD(59.7,40.4,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.4,1,1,1)="S ^PS(59.7,""AOTH"",""ONE-HALF"",X)="""""
^DD(59.7,40.4,1,1,2)="K ^PS(59.7,""AOTH"",""ONE-HALF"",X)"
^DD(59.7,40.4,1,1,3)="Do not delete!"
^DD(59.7,40.4,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.4,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.4,1,1,"DT")="3010912"
^DD(59.7,40.4,3)="Enter the other language translation of the word 'ONE-HALF'. Answer must be 1-15 characters in length."
^DD(59.7,40.4,20,0)="^.3LA^1^1"
^DD(59.7,40.4,20,1,0)="PSO"
^DD(59.7,40.4,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.4,21,1,0)="This field is used to store the other language translation of the word 'ONE-HALF'."
^DD(59.7,40.4,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.4,23,1,0)="free text."
^DD(59.7,40.4,"DT")="3010912"
^DD(59.7,40.41,0)="ONE-FOURTH^F^^40.3;12^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.41,1,0)="^.1"
^DD(59.7,40.41,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.41,1,1,1)="S ^PS(59.7,""AOTH"",""ONE-FOURTH"",X)="""""
^DD(59.7,40.41,1,1,2)="K ^PS(59.7,""AOTH"",""ONE-FOURTH"",X)"
^DD(59.7,40.41,1,1,3)="Do not delete!"
^DD(59.7,40.41,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.41,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.41,1,1,"DT")="3010912"
^DD(59.7,40.41,3)="Enter the other language translation of the word 'ONE-FOURTH'. Answer must be 1-15 characters in length."
^DD(59.7,40.41,20,0)="^.3LA^1^1"
^DD(59.7,40.41,20,1,0)="PSO"
^DD(59.7,40.41,21,0)="^.001^2^2^3020916^^^"
^DD(59.7,40.41,21,1,0)="This field is used to store the other language translation of the word"
^DD(59.7,40.41,21,2,0)="'ONE-FOURTH'."
^DD(59.7,40.41,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.41,23,1,0)="free text"
^DD(59.7,40.41,"DT")="3010912"
^DD(59.7,40.42,0)="ONE-THIRD^F^^40.3;13^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.42,1,0)="^.1"
^DD(59.7,40.42,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.42,1,1,1)="S ^PS(59.7,""AOTH"",""ONE-THIRD"",X)="""""
^DD(59.7,40.42,1,1,2)="K ^PS(59.7,""AOTH"",""ONE-THIRD"",X)"
^DD(59.7,40.42,1,1,3)="Do not delete!"
^DD(59.7,40.42,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.42,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.42,1,1,"DT")="3010912"
^DD(59.7,40.42,3)="Enter the other language translation of the word 'ONE-THIRD'. Answer must be 1-15 characters in length."
^DD(59.7,40.42,20,0)="^.3LA^1^1"
^DD(59.7,40.42,20,1,0)="PSO"
^DD(59.7,40.42,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.42,21,1,0)="This field is used to store the other language translation of the word 'ONE-THIRD'."
^DD(59.7,40.42,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.42,23,1,0)="free text"
^DD(59.7,40.42,"DT")="3010912"
^DD(59.7,40.43,0)="TWO-THIRDS^F^^40.3;14^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.43,1,0)="^.1"
^DD(59.7,40.43,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.43,1,1,1)="S ^PS(59.7,""AOTH"",""TWO-THIRDS"",X)="""""
^DD(59.7,40.43,1,1,2)="K ^PS(59.7,""AOTH"",""TWO-THIRDS"",X)"
^DD(59.7,40.43,1,1,3)="Do not delete!"
^DD(59.7,40.43,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.43,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.43,1,1,"DT")="3010912"
^DD(59.7,40.43,3)="Enter the other language translation of the word 'TWO-THIRDS'. Answer must be 1-15 characters in length."
^DD(59.7,40.43,20,0)="^.3LA^1^1"
^DD(59.7,40.43,20,1,0)="PSO"
^DD(59.7,40.43,21,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.43,21,1,0)="This field is used to store the other language translation of the word 'TWO-THIRDS'."
^DD(59.7,40.43,23,0)="^.001^1^1^3020916^^"
^DD(59.7,40.43,23,1,0)="free text."
^DD(59.7,40.43,"DT")="3010912"
^DD(59.7,40.44,0)="THREE-FOURTHS^F^^40.3;15^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.44,1,0)="^.1"
^DD(59.7,40.44,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.44,1,1,1)="S ^PS(59.7,""AOTH"",""THREE-FOURTHS"",X)="""""
^DD(59.7,40.44,1,1,2)="K ^PS(59.7,""AOTH"",""THREE-FOURTHS"",X)"
^DD(59.7,40.44,1,1,3)="Do not delete!"
^DD(59.7,40.44,1,1,"%D",0)="^^1^1^3010912^"
^DD(59.7,40.44,1,1,"%D",1,0)="This xref is used to find the translation for other languages that prints on Rx labels."
^DD(59.7,40.44,1,1,"DT")="3010912"
^DD(59.7,40.44,3)="Enter the other language translation of the word 'THREE-FOURTHS'. Answer must be 1-15 characters in length."
^DD(59.7,40.44,20,0)="^.3LA^1^1"
^DD(59.7,40.44,20,1,0)="PSO"
^DD(59.7,40.44,21,0)="^.001^2^2^3020916^^^^"
^DD(59.7,40.44,21,1,0)="This field is used to store the other language translation of the word"
^DD(59.7,40.44,21,2,0)="'THREE-FOURTHS'."
^DD(59.7,40.44,23,0)="^.001^1^1^3020916^^^"
^DD(59.7,40.44,23,1,0)="free text."
^DD(59.7,40.44,"DT")="3010912"
^DD(59.7,40.45,0)="FOR^F^^40.2;11^K:$L(X)>15!($L(X)<1) X"
^DD(59.7,40.45,1,0)="^.1"
^DD(59.7,40.45,1,1,0)="59.7^AOTH^MUMPS"
^DD(59.7,40.45,1,1,1)="S ^PS(59.7,""AOTH"",""FOR"",X)="""""
^DD(59.7,40.45,1,1,2)="K ^PS(59.7,""AOTH"",""FOR"",X)"
^DD(59.7,40.45,1,1,3)="Do not delete."
^DD(59.7,40.45,1,1,"%D",0)="^^1^1^3010924^"
^DD(59.7,40.45,1,1,"%D",1,0)="This xref is used to do a quick lookup for translation."
^DD(59.7,40.45,1,1,"DT")="3010924"
^DD(59.7,40.45,3)="Enter the other language translation of the word 'FOR'. Answer must be 1-15 characters in length."
^DD(59.7,40.45,20,0)="^.3LA^1^1"
^DD(59.7,40.45,20,1,0)="PSO"
^DD(59.7,40.45,21,0)="^.001^1^1^3021120^^^^"
^DD(59.7,40.45,21,1,0)="This field is used to store the other language translation of the word 'FOR."
^DD(59.7,40.45,23,0)="^.001^1^1^3021120^^^"
^DD(59.7,40.45,23,1,0)="free text."
^DD(59.7,40.45,"DT")="3010924"
^DD(59.7,41,0)="LAST RX PRE V6^NJ10,0I^^49.99;5^K:+X'=X!(X>1000000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,41,3)="This data is not entered through file manager."
^DD(59.7,41,8.5)="^"
^DD(59.7,41,9)="^"
^DD(59.7,41,10)=""
^DD(59.7,41,20,0)="^.3LA^2^2"
^DD(59.7,41,20,1,0)="pso"
^DD(59.7,41,20,2,0)="PSO"
^DD(59.7,41,21,0)="^^7^7^2950621^^^^"
^DD(59.7,41,21,1,0)=" "
^DD(59.7,41,21,2,0)="NOT IN USE FOR VERSION 7.0"
^DD(59.7,41,21,3,0)=" "
^DD(59.7,41,21,4,0)="This field will be used during the installation of version 6.0.  This field"
^DD(59.7,41,21,5,0)="will hold the last prescription number file #52.  This number will be"
^DD(59.7,41,21,6,0)="used to indicated the last prescription to be converted if a restart is"
^DD(59.7,41,21,7,0)="needed."
^DD(59.7,41,23,0)="^^1^1^2950621^^^"
^DD(59.7,41,23,1,0)="numeric"
^DD(59.7,41,"DT")="2921127"
^DD(59.7,42,0)="TOTAL RX'S PURGED TO DATE^NJ6,0^^40.01;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,42,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(59.7,42,20,0)="^.3LA^1^1"
^DD(59.7,42,20,1,0)="PSO"
^DD(59.7,42,21,0)="^^1^1^2921125^"
^DD(59.7,42,21,1,0)="This field is currently not in use."
^DD(59.7,42,23,0)="^^1^1^2921125^"
^DD(59.7,42,23,1,0)="numeric"
^DD(59.7,42,"DT")="2881101"
^DD(59.7,46.1,0)="TRANSMISSION START DATE^D^^46;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,46.1,21,0)="^^2^2^3030822^"
^DD(59.7,46.1,21,1,0)="This is the start date of the most recent HL7 extract of patients in the "
^DD(59.7,46.1,21,2,0)="TPB ELIGIBILITY file (#52.91)."
^DD(59.7,46.1,"DT")="3030822"
^DD(59.7,46.2,0)="TRANSMISSION END DATE^D^^46;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,46.2,21,0)="^^2^2^3030822^"
^DD(59.7,46.2,21,1,0)="This is the end date of the most recent HL7 extract of patients in the "
^DD(59.7,46.2,21,2,0)="TPB ELIGIBILITY file (#52.91)."
^DD(59.7,46.2,"DT")="3030822"
^DD(59.7,46.3,0)="BATCH CONTROL ID^F^^46;3^K:$L(X)>20!($L(X)<1) X"
^DD(59.7,46.3,3)="Answer must be 1-20 characters in length."
^DD(59.7,46.3,21,0)="^^2^2^3030822^"
^DD(59.7,46.3,21,1,0)="This is the Batch Control ID of the most recent HL7 extract of patients in"
^DD(59.7,46.3,21,2,0)="the TPB ELIGIBILITY file (#52.91)."
^DD(59.7,46.3,"DT")="3030822"
^DD(59.7,46.4,0)="NUMBER OF MSH COUNT^NJ12,0^^46;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,46.4,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(59.7,46.4,21,0)="^^2^2^3030822^"
^DD(59.7,46.4,21,1,0)="This is the total count of MSH headers of the most recent HL7 extract of"
^DD(59.7,46.4,21,2,0)="patients in the TPB ELIGIBILITY file (#52.91)."
^DD(59.7,46.4,"DT")="3030822"
^DD(59.7,46.5,0)="NUMBER OF LINES COUNT^NJ12,0^^46;5^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,46.5,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(59.7,46.5,21,0)="^^2^2^3030822^"
^DD(59.7,46.5,21,1,0)="This is the total count of the number of lines from the most recent HL7"
^DD(59.7,46.5,21,2,0)="extract of patients in the TPB ELIGIBILITY file (#52.91)."
^DD(59.7,46.5,"DT")="3030822"
^DD(59.7,47,0)="SCRIPTALK PRINT DEVICE MAPPING^59.747PA^^47;0"
^DD(59.7,47,21,0)="^.001^3^3^3070228^^^^"
^DD(59.7,47,21,1,0)="This multiple adds the capability to tie a ScripTalk printer to regular "
^DD(59.7,47,21,2,0)="Pharmacy label printer(s) to control where the ScripTalk labels print for "
^DD(59.7,47,21,3,0)="multi-divisions."
^DD(59.7,47,23,0)="^.001^7^7^3070228^^^^"
^DD(59.7,47,23,1,0)="Multiple print devices may be mapped to a ScripTalk printer.  If no data "
^DD(59.7,47,23,2,0)="is defined in this multiple, the ScripTalk printer tied to the division "
^DD(59.7,47,23,3,0)="will be used."
^DD(59.7,47,23,4,0)=" "
^DD(59.7,47,23,5,0)="The use of this multiple builds upon existing ScripTalk functionality, so"
^DD(59.7,47,23,6,0)="a divisional ScripTalk device must be defined for the mapped device"
^DD(59.7,47,23,7,0)="functionality to work properly and to have a default device defined."
^DD(59.7,49.95,0)="DATE AUTO-EXPIRE COMPLETED^D^^49.99;8^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(59.7,49.95,.1)="Last Date Auto-Expire Processed"
^DD(59.7,49.95,3)="Last Date Auto-Expire Processed"
^DD(59.7,49.95,8.5)="^"
^DD(59.7,49.95,9)="^"
^DD(59.7,49.95,21,0)="^^2^2^3070518^"
^DD(59.7,49.95,21,1,0)="This is the last date that the nightly auto-expire processed. Processing "
^DD(59.7,49.95,21,2,0)="will continue from this date the next time the job runs."
^DD(59.7,49.95,23,0)="^^3^3^3070518^"
^DD(59.7,49.95,23,1,0)="This is the last date that the nightly auto-expire processed. Processing "
^DD(59.7,49.95,23,2,0)="will continue from this date the next time the job runs and will expire "
^DD(59.7,49.95,23,3,0)="prescriptions with expiration dates up to and including DT-1."
^DD(59.7,49.95,"DT")="3070518"
^DD(59.7,49.96,0)="DATE V7 INSTALLED^DI^^49.99;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,49.96,3)="Data not entered through Fileman."
^DD(59.7,49.96,8.5)="^"
^DD(59.7,49.96,9)="^"
^DD(59.7,49.96,20,0)="^.3LA^1^1"
^DD(59.7,49.96,20,1,0)="PSO"
^DD(59.7,49.96,21,0)="^^5^5^2950707^^^^"
^DD(59.7,49.96,21,1,0)=" "
^DD(59.7,49.96,21,2,0)="This filed is used to indicate the date version 7.0 of OP was installed."
^DD(59.7,49.96,21,3,0)=" "
^DD(59.7,49.96,21,4,0)=" "
^DD(59.7,49.96,21,5,0)=" "
^DD(59.7,49.96,23,0)="^^1^1^2950707^^^^"
^DD(59.7,49.96,23,1,0)="date"
^DD(59.7,49.96,"DT")="2950707"
^DD(59.7,49.97,0)="LAST RX CONVERTED^NJ10,0I^^49.99;3^K:+X'=X!(X>1000000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,49.97,3)="This data is not entered through file manager."
^DD(59.7,49.97,8.5)="^"
^DD(59.7,49.97,9)="^"
^DD(59.7,49.97,20,0)="^.3LA^1^1"
^DD(59.7,49.97,20,1,0)="PSO"
^DD(59.7,49.97,21,0)="^^5^5^2950621^^^^"
^DD(59.7,49.97,21,1,0)="THIS FIELD IS NOT IN US FOR VERSION 7.0."
^DD(59.7,49.97,21,2,0)=" "
^DD(59.7,49.97,21,3,0)="This is simply a scratch area which holds the internal entry number"
^DD(59.7,49.97,21,4,0)="of the last entry in 52 for which the post init conversion for V6"
^DD(59.7,49.97,21,5,0)="has been completed."
^DD(59.7,49.97,23,0)="^^1^1^2950621^^"
^DD(59.7,49.97,23,1,0)="Numeric"
^DD(59.7,49.97,"DT")="2921124"
^DD(59.7,49.98,0)="DATE OP 6 INSTALLED^DI^^49.99;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,49.98,3)="Enter date installation was done."
^DD(59.7,49.98,8.5)="^"
^DD(59.7,49.98,9)="^"
^DD(59.7,49.98,20,0)="^.3LA^1^1"
^DD(59.7,49.98,20,1,0)="PSO"
^DD(59.7,49.98,21,0)="^^2^2^2950707^^^^"
^DD(59.7,49.98,21,1,0)="This field is used to indicate the date OP v6 was installed."
^DD(59.7,49.98,21,2,0)="This field will also be used to deteminewhat Rxs are eligible for release."
^DD(59.7,49.98,23,0)="^^1^1^2950707^^^^"
^DD(59.7,49.98,23,1,0)="date"
^DD(59.7,49.98,"DT")="2950707"
^DD(59.7,49.981,0)="V7 POST BACKGROUND START^RDI^^49.99;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,49.981,.1)="BACKGROUND JOB"
^DD(59.7,49.981,3)="Data sholud not be entered through file manager."
^DD(59.7,49.981,8.5)="^"
^DD(59.7,49.981,9)="^"
^DD(59.7,49.981,10)="PSOPOST"
^DD(59.7,49.981,11,0)="^.2LAP^^0"
^DD(59.7,49.981,20,0)="^.3LA^1^1"
^DD(59.7,49.981,20,1,0)="PSO"
^DD(59.7,49.981,21,0)="^^5^5^2950707^^^^"
^DD(59.7,49.981,21,1,0)="This field is used to indicate date/time background job  started."
^DD(59.7,49.981,21,2,0)=" "
^DD(59.7,49.981,21,3,0)=" "
^DD(59.7,49.981,21,4,0)=" "
^DD(59.7,49.981,21,5,0)=" "
^DD(59.7,49.981,23,0)="^^1^1^2950707^^^^"
^DD(59.7,49.981,23,1,0)="date/time"
^DD(59.7,49.981,"DT")="2950707"
^DD(59.7,49.982,0)="V7 POST BACKGROUND STOP^RDI^^49.99;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,49.982,3)="Data not entered through Fileman."
^DD(59.7,49.982,8.5)="^"
^DD(59.7,49.982,9)="^"
^DD(59.7,49.982,10)="routine PSOPOST"
^DD(59.7,49.982,20,0)="^.3LA^1^1"
^DD(59.7,49.982,20,1,0)="PSO"
^DD(59.7,49.982,21,0)="^^5^5^2950707^^^"
^DD(59.7,49.982,21,1,0)=" "
^DD(59.7,49.982,21,2,0)="This field is used to indicate the date/time the v7 post background"
^DD(59.7,49.982,21,3,0)="ran to completion."
^DD(59.7,49.982,21,4,0)=" "
^DD(59.7,49.982,21,5,0)=" "
^DD(59.7,49.982,23,0)="^^1^1^2950707^^^"
^DD(59.7,49.982,23,1,0)="date/time"
^DD(59.7,49.982,"DT")="2950707"
^DD(59.7,49.99,0)="OUTPATIENT VERSION^RNJ5,2I^^49.99;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(59.7,49.99,3)="Type a Number between 1 and 99, 2 Decimal Digits"
^DD(59.7,49.99,8.5)="^"
^DD(59.7,49.99,9)="^"
^DD(59.7,49.99,20,0)="^.3LA^1^1"
^DD(59.7,49.99,20,1,0)="PSO"
^DD(59.7,49.99,21,0)="^^2^2^2921125^^"
^DD(59.7,49.99,21,1,0)="This field is used to indicate the current version of the Outpatient"
^DD(59.7,49.99,21,2,0)="Pharmacy package installed."
^DD(59.7,49.99,23,0)="^^1^1^2921125^"
^DD(59.7,49.99,23,1,0)="numeric"
^DD(59.7,49.99,"DT")="2881012"
^DD(59.7,50,0)="AR/WS AMIS UPDATE^MD^^50;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,50,8.5)="^"
^DD(59.7,50,9)="^"
^DD(59.7,50,20,0)="^.3LA^1^1"
^DD(59.7,50,20,1,0)="PSGW"
^DD(59.7,50,21,0)="^^3^3^2910221^^^"
^DD(59.7,50,21,1,0)="This field contains the Date/Time that the nightly job to update the"
^DD(59.7,50,21,2,0)="AR/WS Stats File (#58.5) was last run to completion.  This field is"
^DD(59.7,50,21,3,0)="set automatically when the nightly job is run."
^DD(59.7,50,"DT")="2900209"
^DD(59.7,59.01,0)="AR/WS VERSION^NJ7,3^^59.99;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(59.7,59.01,3)="Type a Number between 1 and 999, 3 Decimal Digits"
^DD(59.7,59.01,8.5)="^"
^DD(59.7,59.01,9)="^"
^DD(59.7,59.01,20,0)="^.3LA^1^1"
^DD(59.7,59.01,20,1,0)="PSGW"
^DD(59.7,59.01,21,0)="^^1^1^2891027^^"
^DD(59.7,59.01,21,1,0)="This field will contain the current version of the AR/WS package."
^DD(59.7,59.01,"DT")="2890620"
^DD(59.7,59.02,0)="DATE INSTALLED^D^^59.99;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,59.02,3)="Enter Date the current AR/WS version was installed."
^DD(59.7,59.02,8.5)="^"
^DD(59.7,59.02,9)="^"
^DD(59.7,59.02,20,0)="^.3LA^1^1"
^DD(59.7,59.02,20,1,0)="PSGW"
^DD(59.7,59.02,21,0)="^^1^1^2891027^^"
^DD(59.7,59.02,21,1,0)="This field will contain the date the current version of AR/WS was installed."
^DD(59.7,59.02,"DT")="2890620"
^DD(59.7,59.1,0)="BACKORDER CONVERSION^D^^59.99;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,59.1,3)="Enter Date the BACKORDER CONVERSION was completed."
^DD(59.7,59.1,8.5)="^"
^DD(59.7,59.1,9)="^"
^DD(59.7,59.1,20,0)="^.3LA^1^1"
^DD(59.7,59.1,20,1,0)="PSGW"
^DD(59.7,59.1,21,0)="^^2^2^2901107^^^"
^DD(59.7,59.1,21,1,0)="This field will contain the date the BACKORDER CONVERSION for AR/WS V2.04"
^DD(59.7,59.1,21,2,0)="was completed."
^DD(59.7,59.1,"DT")="2890620"
^DD(59.7,59.2,0)="MULTI-DIVISION CONVERSION^D^^59.99;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,59.2,3)="Enter Date the MULTI-DIVISION CONVERSION was completed."
^DD(59.7,59.2,8.5)="^"
^DD(59.7,59.2,9)="^"
^DD(59.7,59.2,20,0)="^.3LA^1^1"
^DD(59.7,59.2,20,1,0)="PSGW"
^DD(59.7,59.2,21,0)="^^2^2^2901107^^^"
^DD(59.7,59.2,21,1,0)="This field will contain the date the MULTI-DIVISION CONVERSION for"
^DD(59.7,59.2,21,2,0)="AR/WS V2.04 was completed."
^DD(59.7,59.2,"DT")="2890620"
^DD(59.7,59.3,0)="WARD (for %) CONVERSION^D^^59.99;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,59.3,3)="Enter Date the WARD (for %) CONVERSION was completed"
^DD(59.7,59.3,8.5)="^"
^DD(59.7,59.3,9)="^"
^DD(59.7,59.3,20,0)="^.3LA^1^1"
^DD(59.7,59.3,20,1,0)="PSGW"
^DD(59.7,59.3,21,0)="^^2^2^2901107^^^^"
^DD(59.7,59.3,21,1,0)="This field contains the date the WARD (for %) pointer conversion for"
^DD(59.7,59.3,21,2,0)="AR/WS V2.04 was completed."
^DD(59.7,59.3,"DT")="2891002"
^DD(59.7,59.4,0)="RETURN REASON CONVERSION^D^^59.99;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,59.4,3)="Enter Date the RETURN REASON CONVERSION was completed."
^DD(59.7,59.4,8.5)="^"
^DD(59.7,59.4,9)="^"
^DD(59.7,59.4,20,0)="^.3LA^1^1"
^DD(59.7,59.4,20,1,0)="PSGW"
^DD(59.7,59.4,21,0)="^^2^2^2901107^^^^"
^DD(59.7,59.4,21,1,0)="This field will contain the date the RETURN REASON CONVERSION for"
^DD(59.7,59.4,21,2,0)="AR/WS V2.2 was completed."
^DD(59.7,59.4,"DT")="2900709"
^DD(59.7,60.02,0)="LAST PAT CONVERTED FOR VER 4^NJ9,0^^60;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,60.02,3)="Type a Number between 0 and 999999999, 0 Decimal Digits."
^DD(59.7,60.02,8.5)="^"
^DD(59.7,60.02,9)="^"
^DD(59.7,60.02,20,0)="^.3LA^1^1"
^DD(59.7,60.02,20,1,0)="PSJ"
^DD(59.7,60.02,21,0)="^^5^5^2940621^^^^"
^DD(59.7,60.02,21,1,0)="  This is used by the version 4 post-inits of the Inpatient Medications"
^DD(59.7,60.02,21,2,0)="package to keep track of the patients whose orders have been converted to"
^DD(59.7,60.02,21,3,0)="the New Person file and Primary Drug. "
^DD(59.7,60.02,21,4,0)="  THIS IS FOR USE ONLY BY THE POST-INITS, AND SHOULD NOT BE EDITED THROUGH"
^DD(59.7,60.02,21,5,0)="VA FILEMAN."
^DD(59.7,60.02,23,0)="^^4^4^2940621^^"
^DD(59.7,60.02,23,1,0)="  This is used by the routine PSJIPST0 to keep track of the last patient"
^DD(59.7,60.02,23,2,0)="whose orders have been converted to the New Person file and Primary Drug,"
^DD(59.7,60.02,23,3,0)="to allow the inits to be rerun if necessary.  This is for version 4 of the"
^DD(59.7,60.02,23,4,0)="Inpatient Medications package."
^DD(59.7,60.02,"DT")="2911014"
^DD(59.7,60.1,0)="*BAXTER ATC 212 DEVICE^FX^^60;1^K:$L(X)>20!($L(X)<1) X D:$D(X) ENDLP^PSSDDUT"
^DD(59.7,60.1,.1)="BAXTER ATC 212 DEVICE"
^DD(59.7,60.1,3)="Enter the device the ATC is listed as in the device file."
^DD(59.7,60.1,8.5)="^"
^DD(59.7,60.1,9)="^"
^DD(59.7,60.1,20,0)="^.3LA^1^1"
^DD(59.7,60.1,20,1,0)="PSJU"
^DD(59.7,60.1,21,0)="^^2^2^2910306^^"
^DD(59.7,60.1,21,1,0)="  This is the name of the device from the DEVICE file used for the"
^DD(59.7,60.1,21,2,0)="Baxter ATC dispensing machine."
^DD(59.7,60.1,"DT")="2970623"
^DD(59.7,61.2,0)="DAYS NEW LABELS LAST^NJ2,0^^61;2^K:+X'=X!(X>35)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,61.2,.1)="How many days should new labels last?"
^DD(59.7,61.2,3)="Type a Number between 0 and 35, 0 Decimal Digits."
^DD(59.7,61.2,4)="D LBLS^PSSDDUT2"
^DD(59.7,61.2,8.5)="^"
^DD(59.7,61.2,9)="^"
^DD(59.7,61.2,20,0)="^.3LA^1^1"
^DD(59.7,61.2,20,1,0)="PSJ"
^DD(59.7,61.2,21,0)="^^2^2^2970626^^^^"
^DD(59.7,61.2,21,1,0)="  This is number of days that new labels created by the Unit Dose"
^DD(59.7,61.2,21,2,0)="Medications package are to last."
^DD(59.7,61.2,"DT")="2910312"
^DD(59.7,63.51,0)="PICK LIST AUTO-PURGE^NJ2,0^^63.5;1^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(59.7,63.51,.1)="ENTER NUMBER OF DAYS THAT 'FILED AWAY' PICK LISTS SHOULD LAST"
^DD(59.7,63.51,1,0)="^.1^^0"
^DD(59.7,63.51,3)="Type a Number between 1 and 90, 0 Decimal Digits."
^DD(59.7,63.51,8.5)="^"
^DD(59.7,63.51,9)="^"
^DD(59.7,63.51,20,0)="^.3LA^1^1"
^DD(59.7,63.51,20,1,0)="PSJU"
^DD(59.7,63.51,21,0)="^^6^6^2910306^^^"
^DD(59.7,63.51,21,1,0)="  This is the number of days that the computer will hold Unit Dose Pick"
^DD(59.7,63.51,21,2,0)="Lists that have been filed away.  If an entry is found here by the daily "
^DD(59.7,63.51,21,3,0)="background job, the job will delete those pick lists that have been filed "
^DD(59.7,63.51,21,4,0)="away and have existed longer than the number of days specified here.  Enter "
^DD(59.7,63.51,21,5,0)="a number here to start the auto-purge the next time daily background job "
^DD(59.7,63.51,21,6,0)="runs.  Delete any entry made here to stop the auto-purge."
^DD(59.7,63.51,21,7,0)="made here to stop the auto-purge."
^DD(59.7,63.51,"DT")="2890928"
^DD(59.7,63.52,0)="DATE/TIME AUTO-PURGE EDITED^D^^63.5;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,63.52,8.5)="^"
^DD(59.7,63.52,9)="^"
^DD(59.7,63.52,20,0)="^.3LA^1^1"
^DD(59.7,63.52,20,1,0)="PSJU"
^DD(59.7,63.52,21,0)="^^1^1^2910306^^"
^DD(59.7,63.52,21,1,0)="  This is the date and time the PICK LIST AUTO-PURGE was edited."
^DD(59.7,63.52,"DT")="2890908"
^DD(59.7,63.53,0)="USER LAST EDITING AUTO-PURGE^P200'^VA(200,^63.5;3^Q"
^DD(59.7,63.53,8.5)="^"
^DD(59.7,63.53,9)="^"
^DD(59.7,63.53,20,0)="^.3LA^1^1"
^DD(59.7,63.53,20,1,0)="PSJU"
^DD(59.7,63.53,21,0)="^^1^1^2910306^^^"
^DD(59.7,63.53,21,1,0)="  This is the user who last edited the PICK LIST AUTO-PURGE field."
^DD(59.7,63.53,"DT")="2910708"
^DD(59.7,63.54,0)="DATE PICK LIST LAST FILED AWAY^D^^63.5;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,63.54,8.5)="^"
^DD(59.7,63.54,9)="^"
^DD(59.7,63.54,20,0)="^.3LA^1^1"
^DD(59.7,63.54,20,1,0)="PSJU"
^DD(59.7,63.54,21,0)="^^1^1^2910306^^^"
^DD(59.7,63.54,21,1,0)="  This is the date the job to file away pick lists was last run."
^DD(59.7,63.54,"DT")="2890926"
^DD(59.7,64,0)="PARAM FILE CONVERSION STATUS^S^0:NOT YET STARTED;1:MOVING DATA TO TMP;2:MOVING DATA BACK TO 53.45.;3:COMPLETED;^20.4;12^Q"
^DD(59.7,64,20,0)="^.3LA^1^1"
^DD(59.7,64,20,1,0)="PSJ"
^DD(59.7,64,21,0)="^^1^1^2921117^^"
^DD(59.7,64,21,1,0)="  This is the status of the conversion of the 53.45 file to DINUM format."
^DD(59.7,64,23,0)="^^4^4^2921117^^"
^DD(59.7,64,23,1,0)=" This flag is used to determine the progress of the conversion of the "
^DD(59.7,64,23,2,0)="INPATIENT USER PARAMETERS file (53.45) to DINUM format. This allows "
^DD(59.7,64,23,3,0)="the conversion to be restarted at the point it terminated if the "
^DD(59.7,64,23,4,0)="process halts before it has completed."
^DD(59.7,64,"DT")="2921110"
^DD(59.7,65,0)="PICK LIST CONVERSION DATE^D^^20.4;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,65,3)="This is the date the Inpatient Meds V4.5 Pick List conversion completed."
^DD(59.7,65,21,0)="^^2^2^2940621^^"
^DD(59.7,65,21,1,0)="This is the date the Inpatient Meds V4.5 conversion of existing pick list"
^DD(59.7,65,21,2,0)="data to the new VA FileMan compatible format completed."
^DD(59.7,65,23,0)="^^1^1^2931207^"
^DD(59.7,65,23,1,0)="This is set when the Inpatient Meds 4.5 pick list conversion  completes."
^DD(59.7,65,"DT")="2931207"
^DD(59.7,66,0)="V4.5 PICK LIST CONVERT MARKER^NJ8,0^^20.4;14^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(59.7,66,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(59.7,66,21,0)="^^3^3^2940714^^^"
^DD(59.7,66,21,1,0)="This is the IEN of the last pick list to be converted to the VA FileMan "
^DD(59.7,66,21,2,0)="compatible file structure exported with version 4.5 of Inpatient "
^DD(59.7,66,21,3,0)="Medications."
^DD(59.7,66,23,0)="^^3^3^2931207^"
^DD(59.7,66,23,1,0)="This stores the IEN of the last pick list converted to the new format. This"
^DD(59.7,66,23,2,0)="field is used to allow the conversion process to start with the correct"
^DD(59.7,66,23,3,0)="pick list if the conversion is interupted and then restarted."
^DD(59.7,66,"DT")="2931207"
^DD(59.7,67,0)="V4.5 PICK LIST CONVERT STATUS^S^1:MOVING DATA TO XTMP;2:MOVING DATA FROM XTMP TO PS(53.5;^20.4;15^Q"
^DD(59.7,67,21,0)="^^2^2^2931207^"
^DD(59.7,67,21,1,0)="This is used to allow the pick list conversion to be restarted at the"
^DD(59.7,67,21,2,0)="correct conversion phase if the process must be restarted."
^DD(59.7,67,"DT")="2931207"
^DD(59.7,70,0)="LAST DRUG LINKED^P50'^PSDRUG(^70;1^Q"
^DD(59.7,70,21,0)="^^3^3^2920413^"
^DD(59.7,70,21,1,0)="When using the PSAUNL option to link the Drug/Item file, the last"
^DD(59.7,70,21,2,0)="drug linked will be stored here and offered as a point at which to"
^DD(59.7,70,21,3,0)="resume the loop upon re-entry."
^DD(59.7,70,23,0)="^^1^1^2920413^"
^DD(59.7,70,23,1,0)="Used by ^PSAUNL to store the entry from #50 at which the user stopped."
^DD(59.7,70,"DT")="2920410"
^DD(59.7,70.1,0)="LAST DRUG LINKER^P200'^VA(200,^70;2^Q"
^DD(59.7,70.1,21,0)="^^2^2^2920413^"
^DD(59.7,70.1,21,1,0)="The person using the PSAUNL option when the LAST DRUG LINKED value"
^DD(59.7,70.1,21,2,0)="is stored."
^DD(59.7,70.1,23,0)="^^1^1^2920413^"
^DD(59.7,70.1,23,1,0)="The DUZ of the person using ^PSAUNL to link #50 - #441."
^DD(59.7,70.1,"DT")="2920410"
^DD(59.7,70.2,0)="LAST DRUG LINK DATE^D^^70;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,70.2,21,0)="^^2^2^2920413^"
^DD(59.7,70.2,21,1,0)="The date/time that the PSAUNL option was last used and the"
^DD(59.7,70.2,21,2,0)="LAST DRUG LINKED value was entered."
^DD(59.7,70.2,23,0)="^^1^1^2920413^"
^DD(59.7,70.2,23,1,0)="When ^PSAUNL last entered DRUG LINKED and LINKER values."
^DD(59.7,70.2,"DT")="2920410"
^DD(59.7,71,0)="DATE V2 CS/DA CONVERSION^D^^70;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,71,3)="Enter date that the post-inits for Version 2.0 of Controlled Substances or Drug Accountability were completed."
^DD(59.7,71,21,0)="^^2^2^2940915^^^"
^DD(59.7,71,21,1,0)="This field will contain the date that the post-inits were completed for"
^DD(59.7,71,21,2,0)="Version 2.0 of Controlled Substances or Drug Accountability."
^DD(59.7,71,23,0)="^^4^4^2940915^^^"
^DD(59.7,71,23,1,0)="Version 2.0 of Controlled Substances and Drug Accountability will update"
^DD(59.7,71,23,2,0)="the DRUG ACCOUNTABILITY STATS (#58.8) file with a new multiple pointer"
^DD(59.7,71,23,3,0)="to the GENERIC INVENTORY file (#445) and change the format of the MONTHLY"
^DD(59.7,71,23,4,0)="ACTIVITY multiple from five (5) digits to seven (7) digits."
^DD(59.7,71,"DT")="2930301"
^DD(59.7,72,0)="INPATIENT DISPENSING UPDATE?^S^1:YES;^70;5^Q"
^DD(59.7,72,3)="Enter 1 or YES to enable updating by AR/WS."
^DD(59.7,72,21,0)="^^2^2^2930317^"
^DD(59.7,72,21,1,0)="This field is checked before attempting to update a Drug Accountability"
^DD(59.7,72,21,2,0)="Location with AR/WS dispensing."
^DD(59.7,72,23,0)="^^2^2^2930317^"
^DD(59.7,72,23,1,0)="Before ^PSGWUAS calls ^PSARWS a check is made on this field before"
^DD(59.7,72,23,2,0)="attempting updates to a Drug Accountability Location."
^DD(59.7,72,"DT")="2930317"
^DD(59.7,80,0)="PSS VERSION^NJ6,2^^80;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(59.7,80,3)="Type a Number between 1 and 999, 2 Decimal Digits"
^DD(59.7,80,"DT")="2960326"
^DD(59.7,81,0)="ORDERABLE ITEM STATUS TRACKER^S^1:AUTO CREATE STARTED;2:AUTO CREATE FINISHED;3:MANUAL CREATE DONE;0:AUTO CREATE NEVER STARTED;4:SEND MASTER FILE UPDATE TO OERR;^80;2^Q"
^DD(59.7,81,"DT")="2960326"
^DD(59.7,90,0)="PSU PBM JOB^D^^90;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,90,21,0)="^^1^1^2980810^^"
^DD(59.7,90,21,1,0)="This field is used by PBM to monitor that the monthly extract program ran to completion."
^DD(59.7,90,"DT")="2980810"
^DD(59.7,90.01,0)="PBM AR/WS AOU MAPPINGS^59.79001P^^90.01;0"
^DD(59.7,90.01,21,0)="^.001^8^8^3040224^^^^"
^DD(59.7,90.01,21,1,0)="The mapping between an Automatic Replenishment/Ward Stock (AR/WS) Area of "
^DD(59.7,90.01,21,2,0)="Use (AOU) and either a Medical Center Division or Outpatient Site is "
^DD(59.7,90.01,21,3,0)="stored in this multiple. This mapping shall be used by the Pharmacy "
^DD(59.7,90.01,21,4,0)="Benefit Management (PBM) application when extracting dispensing "
^DD(59.7,90.01,21,5,0)="information from the AR/WS application to assign workload to the "
^DD(59.7,90.01,21,6,0)="appropriate division or outpatient site. If an AOU is not mapped to a "
^DD(59.7,90.01,21,7,0)="Medical Center Division or Outpatient site, the dispensing data will be "
^DD(59.7,90.01,21,8,0)="extracted under the facility at which the database resides."
^DD(59.7,90.01,"DT")="3030922"
^DD(59.7,90.02,0)="PBM CS NAOU MAPPINGS^59.79002P^^90.02;0"
^DD(59.7,90.02,21,0)="^^8^8^3031119^"
^DD(59.7,90.02,21,1,0)="The mapping between a Controlled Substance (CS) Narcotic Area of Use "
^DD(59.7,90.02,21,2,0)="(NAOU) and either a Medical Center division or Outpatient site is stored "
^DD(59.7,90.02,21,3,0)="in this multiple. This mapping shall be used by the Pharmacy Benefit "
^DD(59.7,90.02,21,4,0)="Management (PBM) application when extracting dispensing information from "
^DD(59.7,90.02,21,5,0)="the CS application to assign workload to the appropriate division or "
^DD(59.7,90.02,21,6,0)="outpatient site. If a CS NAOU is not mapped to a Medical Center division"
^DD(59.7,90.02,21,7,0)="or Outpatient site, the dispensing data will be extracted under the"
^DD(59.7,90.02,21,8,0)="facility at which the database resides."
^DD(59.7,90.02,"DT")="3030922"
^DD(59.7,90.03,0)="PBM DA PHARM LOC MAPPINGS^59.79003P^^90.03;0"
^DD(59.7,90.03,21,0)="^^8^8^3031119^"
^DD(59.7,90.03,21,1,0)="The mapping between a Drug Accountability (DA) Pharmacy location and"
^DD(59.7,90.03,21,2,0)="either a Medical Center division or Outpatient site is stored in this"
^DD(59.7,90.03,21,3,0)="multiple. This mapping shall be used by the Pharmacy Benefit Management"
^DD(59.7,90.03,21,4,0)="(PBM) application when extracting purchasing information from the DA"
^DD(59.7,90.03,21,5,0)="application to assign procurement data to the appropriate division or"
^DD(59.7,90.03,21,6,0)="Outpatient site. If a DA Pharmacy location is not mapped to a Medical"
^DD(59.7,90.03,21,7,0)="Center division or Outpatient site, the procurement data will be extracted"
^DD(59.7,90.03,21,8,0)="under the facility at which the database resides."
^DD(59.7,90.03,"DT")="3030922"
^DD(59.7,91,0)="DOSE CONVERSION STATUS TRACKER^SI^0:CONVERSION NEVER RUN;1:CONVERSION QUEUED;2:CONVERSION STARTED;3:CONVERSION COMPLETE;^80;3^Q"
^DD(59.7,91,21,0)="^.001^1^1^3000328^^^^"
^DD(59.7,91,21,1,0)="This field tracks the status of the dosage conversion."
^DD(59.7,91,"DT")="3000328"
^DD(59.7,92,0)="DOSE CONVERSION START^DI^^80;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,92,21,0)="^.001^1^1^3000328^^"
^DD(59.7,92,21,1,0)="This is the date/time when the dosage conversion started."
^DD(59.7,92,"DT")="3000328"
^DD(59.7,93,0)="DOSE CONVERSION STOP^DI^^80;5^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.7,93,21,0)="^.001^1^1^3000328^^"
^DD(59.7,93,21,1,0)="This is the date/time when the dosage conversion ended."
^DD(59.7,93,"DT")="3000328"
^DD(59.7,94,0)="DOSE CONVERSION RUN BY^P200'I^VA(200,^80;6^Q"
^DD(59.7,94,21,0)="^.001^1^1^3000328^^"
^DD(59.7,94,21,1,0)="This is the person who ran the dosage conversion."
^DD(59.7,94,"DT")="3000328"
^DD(59.7,"B","*BAXTER ATC 212 DEVICE",60.1)=""
^DD(59.7,"B","ADMISSION CANCEL OF RXS",40.1)=""
^DD(59.7,"B","AND",40.27)=""
^DD(59.7,"B","AR/WS AMIS UPDATE",50)=""
^DD(59.7,"B","AR/WS VERSION",59.01)=""
^DD(59.7,"B","ATC SORT PARAMETER",26.2)=""
^DD(59.7,"B","BACKGROUND JOB",49.981)="1"
^DD(59.7,"B","BACKORDER CONVERSION",59.1)=""
^DD(59.7,"B","BATCH CONTROL ID",46.3)=""
^DD(59.7,"B","BAXTER ATC 212 DEVICE",60.1)="1"
^DD(59.7,"B","CALC UNITS NEEDED PRN ORDERS",26.5)=""
^DD(59.7,"B","CMOP WARNING LABEL SOURCE",16.1)=""
^DD(59.7,"B","CONVERSION REMATCH OPTION DONE",12)=""
^DD(59.7,"B","D/C ON SERVICE TRANSFER",23)=""
^DD(59.7,"B","DATE 5.0 CONVERSION COMPLETED",25.2)=""
^DD(59.7,"B","DATE 5.0 ORDER SET CONV FINISH",25.4)=""
^DD(59.7,"B","DATE 5.0 PICK LIST CONV FINISH",25.3)=""
^DD(59.7,"B","DATE 5.0 UD VER CONV FINISHED",25.1)=""
^DD(59.7,"B","DATE ATC DATA CONVERTED",20.5)=""
^DD(59.7,"B","DATE AUTO-EXPIRE COMPLETED",49.95)=""
^DD(59.7,"B","DATE INITS LAST RUN",20.2)=""
^DD(59.7,"B","DATE INSTALLED",59.02)=""
^DD(59.7,"B","DATE IV ORDERS CONVERTED",30.1)=""
^DD(59.7,"B","DATE NON-VERIFIED CONVERTED",20.15)=""
^DD(59.7,"B","DATE NON-VERIFIED CONVERTED",20.405)=""
^DD(59.7,"B","DATE OP 6 INSTALLED",49.98)=""
^DD(59.7,"B","DATE PICK LIST LAST FILED AWAY",63.54)=""
^DD(59.7,"B","DATE PICK LISTS CONVERT TO PD",20.408)=""
^DD(59.7,"B","DATE UD STATS FILE CONVERTED",20.411)=""
^DD(59.7,"B","DATE V2 CS/DA CONVERSION",71)=""
^DD(59.7,"B","DATE V4 PRE-PACKET INSTALLED",20.13)=""
^DD(59.7,"B","DATE V7 INSTALLED",49.96)=""
^DD(59.7,"B","DATE/TIME AUTO-PURGE EDITED",63.52)=""
^DD(59.7,"B","DAYS",40.23)=""
^DD(59.7,"B","DAYS NEW LABELS LAST",61.2)=""
^DD(59.7,"B","DAYS PRINTED RX STAYS IN 52.5",40.14)=""
^DD(59.7,"B","DAYS TO RETAIN IV STATISTICS",31)=""
^DD(59.7,"B","DAYS UNTIL STOP FOR ONE-TIME",26.6)=""
^DD(59.7,"B","DEFAULT OUTPATIENT SITE",40)=""
^DD(59.7,"B","DEFAULT WARD",20.6)=""
^DD(59.7,"B","DIVISION PROMPT ASKED",40.12)=""
^DD(59.7,"B","DOSE CONVERSION RUN BY",94)=""
^DD(59.7,"B","DOSE CONVERSION START",92)=""
^DD(59.7,"B","DOSE CONVERSION STATUS TRACKER",91)=""
^DD(59.7,"B","DOSE CONVERSION STOP",93)=""
^DD(59.7,"B","EIGHT",40.37)=""
^DD(59.7,"B","EXCEPT",40.29)=""
^DD(59.7,"B","EXEMPT WARD FROM AUTOCANCEL",40.19)=""
^DD(59.7,"B","EXPIRED IV TIME LIMIT",34)=""
^DD(59.7,"B","FIVE",40.34)=""
^DD(59.7,"B","FOR",40.45)=""
^DD(59.7,"B","FOUR",40.33)=""
^DD(59.7,"B","HOURS",40.25)=""
^DD(59.7,"B","INPATIENT DISPENSING UPDATE?",72)=""
^DD(59.7,"B","INPATIENT ORDER NUMBER",25)=""
^DD(59.7,"B","INTERDIVISIONAL PROCESSING",40.11)=""
^DD(59.7,"B","IV IDENTIFIER",32)=""
^DD(59.7,"B","IV STATS/200 CONVERSION STATUS",20.01)=""
^DD(59.7,"B","IV STATS/200 CONVERSION STATUS",20.402)=""
^DD(59.7,"B","LAST DRUG CONVERTED",10.1)=""
^DD(59.7,"B","LAST DRUG LINK DATE",70.2)=""
^DD(59.7,"B","LAST DRUG LINKED",70)=""
^DD(59.7,"B","LAST DRUG LINKER",70.1)=""
^DD(59.7,"B","LAST N-V ORDER CONVERTED TO V4",20.14)=""
^DD(59.7,"B","LAST N-V ORDER CONVERTED TO V4",20.404)=""
^DD(59.7,"B","LAST PAT CONVERTED FOR VER 4",20.406)=""
^DD(59.7,"B","LAST PAT CONVERTED FOR VER 4",60.02)=""
^DD(59.7,"B","LAST PATIENT CONVERTED (IV)",30.2)=""
^DD(59.7,"B","LAST PATIENT CONVERTED TO V4",20.8)=""
^DD(59.7,"B","LAST PICK LIST TO PD MARKER",20.407)=""
^DD(59.7,"B","LAST RX CONVERTED",49.97)=""
^DD(59.7,"B","LAST RX PRE V6",41)=""
^DD(59.7,"B","MAR SORT",26.4)=""
^DD(59.7,"B","MINUTES",40.22)=""
^DD(59.7,"B","MONTHS",40.26)=""
^DD(59.7,"B","MULTI-DIVISION CONVERSION",59.2)=""
^DD(59.7,"B","NDF VERSION",10)=""
^DD(59.7,"B","NEW PERSON CONVERSION DATE",20.11)=""
^DD(59.7,"B","NEW PERSON CONVERSION DATE",20.403)=""
^DD(59.7,"B","NINE",40.38)=""
^DD(59.7,"B","NON-FORMULARY MESSAGE",21)=""
^DD(59.7,"B","NUMBER OF LINES COUNT",46.5)=""
^DD(59.7,"B","NUMBER OF MSH COUNT",46.4)=""
^DD(59.7,"B","ONE",40.3)=""
^DD(59.7,"B","ONE-FOURTH",40.41)=""
^DD(59.7,"B","ONE-HALF",40.4)=""
^DD(59.7,"B","ONE-THIRD",40.42)=""
^DD(59.7,"B","OPAI WARNING LABEL SOURCE",16.2)=""
^DD(59.7,"B","ORDER SET CONVERSION DATE",20.41)=""
^DD(59.7,"B","ORDER SET CONVERSION MARKER",20.409)=""
^DD(59.7,"B","ORDERABLE ITEM CONVERSION DATE",20.16)=""
^DD(59.7,"B","ORDERABLE ITEM STATUS TRACKER",81)=""
^DD(59.7,"B","OUTPATIENT VERSION",49.99)=""
^DD(59.7,"B","PARAM FILE CONVERSION STATUS",64)=""
^DD(59.7,"B","PBM AR/WS AOU MAPPINGS",90.01)=""
^DD(59.7,"B","PBM CS NAOU MAPPINGS",90.02)=""
^DD(59.7,"B","PBM DA PHARM LOC MAPPINGS",90.03)=""
^DD(59.7,"B","PICK LIST AUTO-PURGE",63.51)=""
^DD(59.7,"B","PICK LIST CONVERSION DATE",65)=""
^DD(59.7,"B","PMIS LANGUAGE",14)=""
^DD(59.7,"B","PMIS PRINTER",13)=""
^DD(59.7,"B","PMIS SECTION DELETE",15)=""
^DD(59.7,"B","POLYPHARMACY W/ACTION PROFILE",40.15)=""
^DD(59.7,"B","PRIMARY DRUG CONVERSION DATE",20.12)=""
^DD(59.7,"B","PRINT 6 BLOCKS FOR THE PRN MAR",26)=""
^DD(59.7,"B","PRINT DIET ABBR LABEL ON MAR",26.3)=""
^DD(59.7,"B","PRIORITIES FOR ACTIVE NOTIFY",27.1)=""
^DD(59.7,"B","PRIORITIES FOR PENDING NOTIFY",27)=""
^DD(59.7,"B","PSS VERSION",80)=""
^DD(59.7,"B","PSU PBM JOB",90)=""
^DD(59.7,"B","REFILL/RENEW DIVISION",40.13)=""
^DD(59.7,"B","RESTART NUMBER",11)=""
^DD(59.7,"B","RETURN REASON CONVERSION",59.4)=""
^DD(59.7,"B","ROUND ATC PICK LIST UNITS",26.7)=""
^DD(59.7,"B","SCRIPTALK PRINT DEVICE MAPPING",47)=""
^DD(59.7,"B","SECONDS",40.21)=""
^DD(59.7,"B","SEVEN",40.36)=""
^DD(59.7,"B","SITE FOR BACKGROUND JOB",20.4)=""
^DD(59.7,"B","SITE NAME",.01)=""
^DD(59.7,"B","SIX",40.35)=""
^DD(59.7,"B","TEN",40.39)=""
^DD(59.7,"B","THEN",40.28)=""
^DD(59.7,"B","THREE",40.32)=""
^DD(59.7,"B","THREE-FOURTHS",40.44)=""
^DD(59.7,"B","TOTAL RX'S PURGED TO DATE",42)=""
^DD(59.7,"B","TRANSMISSION END DATE",46.2)=""
^DD(59.7,"B","TRANSMISSION START DATE",46.1)=""
^DD(59.7,"B","TWO",40.31)=""
^DD(59.7,"B","TWO-THIRDS",40.43)=""
^DD(59.7,"B","UD STATS/200 CONVERSION MARKER",20.401)=""
^DD(59.7,"B","UD STATS/200 CONVERSION STATUS",20.9)=""
^DD(59.7,"B","USE OF ANOTHER LANGUAGE",40.2)=""
^DD(59.7,"B","USER LAST EDITING AUTO-PURGE",63.53)=""
^DD(59.7,"B","USER TO LAST RUN INITS",20.3)=""
^DD(59.7,"B","V4 CONVERSION COMPLETED",10.2)=""
^DD(59.7,"B","V4.5 PICK LIST CONVERT MARKER",66)=""
^DD(59.7,"B","V4.5 PICK LIST CONVERT STATUS",67)=""
^DD(59.7,"B","V7 POST BACKGROUND START",49.981)=""
^DD(59.7,"B","V7 POST BACKGROUND STOP",49.982)=""
^DD(59.7,"B","VERSION NUMBER LAST INITS RUN",20.1)=""
^DD(59.7,"B","WARD (for %) CONVERSION",59.3)=""
^DD(59.7,"B","WARD ACTIONS",22)=""
^DD(59.7,"B","WARNING LABEL SOURCE",16)=""
^DD(59.7,"B","WEEKS",40.24)=""
^DD(59.7,"GL",0,1,.01)=""
^DD(59.7,"GL",10,1,10)=""
^DD(59.7,"GL",10,2,11)=""
^DD(59.7,"GL",10,3,12)=""
^DD(59.7,"GL",10,4,10.1)=""
^DD(59.7,"GL",10,5,10.2)=""
^DD(59.7,"GL",10,6,13)=""
^DD(59.7,"GL",10,7,14)=""
^DD(59.7,"GL",10,8,15)=""
^DD(59.7,"GL",10,9,16)=""
^DD(59.7,"GL",10,10,16.1)=""
^DD(59.7,"GL",10,11,16.2)=""
^DD(59.7,"GL",20,1,20.1)=""
^DD(59.7,"GL",20,2,20.2)=""
^DD(59.7,"GL",20,3,20.3)=""
^DD(59.7,"GL",20,4,20.4)=""
^DD(59.7,"GL",20,5,20.5)=""
^DD(59.7,"GL",20,6,20.6)=""
^DD(59.7,"GL",20,8,20.8)=""
^DD(59.7,"GL",20,9,20.9)=""
^DD(59.7,"GL",20,10,20.01)=""
^DD(59.7,"GL",20,11,20.11)=""
^DD(59.7,"GL",20,12,20.12)=""
^DD(59.7,"GL",20,13,20.13)=""
^DD(59.7,"GL",20,14,20.14)=""
^DD(59.7,"GL",20,15,20.15)=""
^DD(59.7,"GL",20,16,20.16)=""
^DD(59.7,"GL",20.4,1,20.401)=""
^DD(59.7,"GL",20.4,2,20.402)=""
^DD(59.7,"GL",20.4,3,20.403)=""
^DD(59.7,"GL",20.4,4,20.404)=""
^DD(59.7,"GL",20.4,5,20.405)=""
^DD(59.7,"GL",20.4,6,20.406)=""
^DD(59.7,"GL",20.4,7,20.407)=""
^DD(59.7,"GL",20.4,8,20.408)=""
^DD(59.7,"GL",20.4,9,20.409)=""
^DD(59.7,"GL",20.4,10,20.41)=""
^DD(59.7,"GL",20.4,11,20.411)=""
^DD(59.7,"GL",20.4,12,64)=""
^DD(59.7,"GL",20.4,13,65)=""
^DD(59.7,"GL",20.4,14,66)=""
^DD(59.7,"GL",20.4,15,67)=""
^DD(59.7,"GL",20.5,1,25.1)=""
^DD(59.7,"GL",20.5,2,25.2)=""
^DD(59.7,"GL",20.5,3,25.3)=""
^DD(59.7,"GL",20.5,4,25.4)=""
^DD(59.7,"GL",21,0,21)=""
^DD(59.7,"GL",22,0,22)=""
^DD(59.7,"GL",23,0,23)=""
^DD(59.7,"GL",25,"E1,245",25)=""
^DD(59.7,"GL",26,1,26)=""
^DD(59.7,"GL",26,2,26.2)=""
^DD(59.7,"GL",26,3,26.3)=""
^DD(59.7,"GL",26,4,26.4)=""
^DD(59.7,"GL",26,5,26.5)=""
^DD(59.7,"GL",26,6,26.6)=""
^DD(59.7,"GL",26,7,26.7)=""
^DD(59.7,"GL",27,1,27)=""
^DD(59.7,"GL",27,2,27.1)=""
^DD(59.7,"GL",30,1,30.1)=""
^DD(59.7,"GL",30,2,30.2)=""
^DD(59.7,"GL",31,1,31)=""
^DD(59.7,"GL",31,2,32)=""
^DD(59.7,"GL",31,4,34)=""
^DD(59.7,"GL",40,1,40)=""
^DD(59.7,"GL",40.01,1,42)=""
^DD(59.7,"GL",40.1,1,40.1)=""
^DD(59.7,"GL",40.1,2,40.11)=""
^DD(59.7,"GL",40.1,3,40.12)=""
^DD(59.7,"GL",40.1,4,40.13)=""
^DD(59.7,"GL",40.1,5,40.14)=""
^DD(59.7,"GL",40.1,6,40.15)=""
^DD(59.7,"GL",40.19,0,40.19)=""
^DD(59.7,"GL",40.2,1,40.2)=""
^DD(59.7,"GL",40.2,2,40.21)=""
^DD(59.7,"GL",40.2,3,40.22)=""
^DD(59.7,"GL",40.2,4,40.23)=""
^DD(59.7,"GL",40.2,5,40.24)=""
^DD(59.7,"GL",40.2,6,40.25)=""
^DD(59.7,"GL",40.2,7,40.26)=""
^DD(59.7,"GL",40.2,8,40.27)=""
^DD(59.7,"GL",40.2,9,40.28)=""
^DD(59.7,"GL",40.2,10,40.29)=""
^DD(59.7,"GL",40.2,11,40.45)=""
^DD(59.7,"GL",40.3,1,40.3)=""
^DD(59.7,"GL",40.3,2,40.31)=""
^DD(59.7,"GL",40.3,3,40.32)=""
^DD(59.7,"GL",40.3,4,40.33)=""
^DD(59.7,"GL",40.3,5,40.34)=""
^DD(59.7,"GL",40.3,6,40.35)=""
^DD(59.7,"GL",40.3,7,40.36)=""
^DD(59.7,"GL",40.3,8,40.37)=""
^DD(59.7,"GL",40.3,9,40.38)=""
^DD(59.7,"GL",40.3,10,40.39)=""
^DD(59.7,"GL",40.3,11,40.4)=""
^DD(59.7,"GL",40.3,12,40.41)=""
^DD(59.7,"GL",40.3,13,40.42)=""
^DD(59.7,"GL",40.3,14,40.43)=""
^DD(59.7,"GL",40.3,15,40.44)=""
^DD(59.7,"GL",46,1,46.1)=""
^DD(59.7,"GL",46,2,46.2)=""
^DD(59.7,"GL",46,3,46.3)=""
^DD(59.7,"GL",46,4,46.4)=""
^DD(59.7,"GL",46,5,46.5)=""
^DD(59.7,"GL",47,0,47)=""
^DD(59.7,"GL",49.99,1,49.99)=""
^DD(59.7,"GL",49.99,2,49.98)=""
^DD(59.7,"GL",49.99,3,49.97)=""
^DD(59.7,"GL",49.99,4,49.96)=""
^DD(59.7,"GL",49.99,5,41)=""
^DD(59.7,"GL",49.99,6,49.982)=""
^DD(59.7,"GL",49.99,7,49.981)=""
^DD(59.7,"GL",49.99,8,49.95)=""
^DD(59.7,"GL",50,1,50)=""
^DD(59.7,"GL",59.99,1,59.01)=""
^DD(59.7,"GL",59.99,2,59.02)=""
^DD(59.7,"GL",59.99,3,59.1)=""
^DD(59.7,"GL",59.99,4,59.2)=""
^DD(59.7,"GL",59.99,5,59.3)=""
^DD(59.7,"GL",59.99,6,59.4)=""
^DD(59.7,"GL",60,1,60.1)=""
^DD(59.7,"GL",60,2,60.02)=""
^DD(59.7,"GL",61,2,61.2)=""
^DD(59.7,"GL",63.5,1,63.51)=""
^DD(59.7,"GL",63.5,2,63.52)=""
^DD(59.7,"GL",63.5,3,63.53)=""
^DD(59.7,"GL",63.5,4,63.54)=""
^DD(59.7,"GL",70,1,70)=""
^DD(59.7,"GL",70,2,70.1)=""
^DD(59.7,"GL",70,3,70.2)=""
^DD(59.7,"GL",70,4,71)=""
^DD(59.7,"GL",70,5,72)=""
^DD(59.7,"GL",80,1,80)=""
^DD(59.7,"GL",80,2,81)=""
^DD(59.7,"GL",80,3,91)=""
^DD(59.7,"GL",80,4,92)=""
^DD(59.7,"GL",80,5,93)=""
^DD(59.7,"GL",80,6,94)=""
^DD(59.7,"GL",90,1,90)=""
^DD(59.7,"GL",90.01,0,90.01)=""
^DD(59.7,"GL",90.02,0,90.02)=""
^DD(59.7,"GL",90.03,0,90.03)=""
^DD(59.7,"GR","PS",.01,1)=""
^DD(59.7,"GR","PS",21,1)=""
^DD(59.7,"GR","PSGW",50,1)=""
^DD(59.7,"GR","PSGW",59.01,1)=""
^DD(59.7,"GR","PSGW",59.02,1)=""
^DD(59.7,"GR","PSGW",59.1,1)=""
^DD(59.7,"GR","PSGW",59.2,1)=""
^DD(59.7,"GR","PSGW",59.3,1)=""
^DD(59.7,"GR","PSGW",59.4,1)=""
^DD(59.7,"GR","PSJ",20.11,1)=""
^DD(59.7,"GR","PSJ",20.12,1)=""
^DD(59.7,"GR","PSJ",20.13,1)=""
^DD(59.7,"GR","PSJ",20.14,1)=""
^DD(59.7,"GR","PSJ",20.15,1)=""
^DD(59.7,"GR","PSJ",20.2,1)=""
^DD(59.7,"GR","PSJ",20.3,1)=""
^DD(59.7,"GR","PSJ",20.4,1)=""
^DD(59.7,"GR","PSJ",20.401,1)=""
^DD(59.7,"GR","PSJ",20.403,1)=""
^DD(59.7,"GR","PSJ",20.404,1)=""
^DD(59.7,"GR","PSJ",20.405,1)=""
^DD(59.7,"GR","PSJ",20.406,1)=""
^DD(59.7,"GR","PSJ",20.407,1)=""
^DD(59.7,"GR","PSJ",20.409,1)=""
^DD(59.7,"GR","PSJ",20.41,1)=""
^DD(59.7,"GR","PSJ",20.411,1)=""
^DD(59.7,"GR","PSJ",20.5,1)=""
^DD(59.7,"GR","PSJ",20.6,1)=""
^DD(59.7,"GR","PSJ",20.8,1)=""
^DD(59.7,"GR","PSJ",22,1)=""
^DD(59.7,"GR","PSJ",23,1)=""
^DD(59.7,"GR","PSJ",25,1)=""
^DD(59.7,"GR","PSJ",26,1)=""
^DD(59.7,"GR","PSJ",30.1,1)=""
^DD(59.7,"GR","PSJ",30.2,1)=""
^DD(59.7,"GR","PSJ",60.02,1)=""
^DD(59.7,"GR","PSJ",61.2,1)=""
^DD(59.7,"GR","PSJ",64,1)=""
^DD(59.7,"GR","PSJI",20.1,1)=""
^DD(59.7,"GR","PSJI",31,1)=""
^DD(59.7,"GR","PSJU",20.408,1)=""
^DD(59.7,"GR","PSJU",60.1,1)=""
^DD(59.7,"GR","PSJU",63.51,1)=""
^DD(59.7,"GR","PSJU",63.52,1)=""
^DD(59.7,"GR","PSJU",63.53,1)=""
^DD(59.7,"GR","PSJU",63.54,1)=""
^DD(59.7,"GR","PSN",10,1)=""
^DD(59.7,"GR","PSN",11,1)=""
^DD(59.7,"GR","PSN",12,1)=""
^DD(59.7,"GR","PSO",.01,2)=""
^DD(59.7,"GR","PSO",40,1)=""
^DD(59.7,"GR","PSO",40.1,1)=""
^DD(59.7,"GR","PSO",40.11,1)=""
^DD(59.7,"GR","PSO",40.12,1)=""
^DD(59.7,"GR","PSO",40.13,1)=""
^DD(59.7,"GR","PSO",40.14,1)=""
^DD(59.7,"GR","PSO",40.15,1)=""
^DD(59.7,"GR","PSO",40.2,1)=""
^DD(59.7,"GR","PSO",40.21,1)=""
^DD(59.7,"GR","PSO",40.22,1)=""
^DD(59.7,"GR","PSO",40.23,1)=""
^DD(59.7,"GR","PSO",40.24,1)=""
^DD(59.7,"GR","PSO",40.25,1)=""
^DD(59.7,"GR","PSO",40.26,1)=""
^DD(59.7,"GR","PSO",40.27,1)=""
^DD(59.7,"GR","PSO",40.28,1)=""
^DD(59.7,"GR","PSO",40.29,1)=""
^DD(59.7,"GR","PSO",40.3,1)=""
^DD(59.7,"GR","PSO",40.31,1)=""
^DD(59.7,"GR","PSO",40.32,1)=""
^DD(59.7,"GR","PSO",40.33,1)=""
^DD(59.7,"GR","PSO",40.34,1)=""
^DD(59.7,"GR","PSO",40.35,1)=""
^DD(59.7,"GR","PSO",40.36,1)=""
^DD(59.7,"GR","PSO",40.37,1)=""
^DD(59.7,"GR","PSO",40.38,1)=""
^DD(59.7,"GR","PSO",40.39,1)=""
^DD(59.7,"GR","PSO",40.4,1)=""
^DD(59.7,"GR","PSO",40.41,1)=""
^DD(59.7,"GR","PSO",40.42,1)=""
^DD(59.7,"GR","PSO",40.43,1)=""
^DD(59.7,"GR","PSO",40.44,1)=""
^DD(59.7,"GR","PSO",40.45,1)=""
^DD(59.7,"GR","PSO",41,2)=""
^DD(59.7,"GR","PSO",42,1)=""
^DD(59.7,"GR","PSO",49.96,1)=""
^DD(59.7,"GR","PSO",49.97,1)=""
^DD(59.7,"GR","PSO",49.98,1)=""
^DD(59.7,"GR","PSO",49.981,1)=""
^DD(59.7,"GR","PSO",49.982,1)=""
^DD(59.7,"GR","PSO",49.99,1)=""
^DD(59.7,"GR","pso",41,1)=""
^DD(59.7,"IX",.01)=""
^DD(59.7,"IX",40.21)=""
^DD(59.7,"IX",40.22)=""
^DD(59.7,"IX",40.23)=""
^DD(59.7,"IX",40.24)=""
^DD(59.7,"IX",40.25)=""
^DD(59.7,"IX",40.26)=""
^DD(59.7,"IX",40.27)=""
^DD(59.7,"IX",40.28)=""
^DD(59.7,"IX",40.29)=""
^DD(59.7,"IX",40.3)=""
^DD(59.7,"IX",40.31)=""
^DD(59.7,"IX",40.32)=""
^DD(59.7,"IX",40.33)=""
^DD(59.7,"IX",40.34)=""
^DD(59.7,"IX",40.35)=""
^DD(59.7,"IX",40.36)=""
^DD(59.7,"IX",40.37)=""
^DD(59.7,"IX",40.38)=""
^DD(59.7,"IX",40.39)=""
^DD(59.7,"IX",40.4)=""
^DD(59.7,"IX",40.41)=""
^DD(59.7,"IX",40.42)=""
^DD(59.7,"IX",40.43)=""
^DD(59.7,"IX",40.44)=""
^DD(59.7,"IX",40.45)=""
^DD(59.7,"RQ",.01)=""
^DD(59.7,"RQ",49.981)=""
^DD(59.7,"RQ",49.982)=""
^DD(59.7,"RQ",49.99)=""
^DD(59.7,"SB",59.701,40.19)=""
^DD(59.7,"SB",59.721,21)=""
^DD(59.7,"SB",59.722,22)=""
^DD(59.7,"SB",59.723,23)=""
^DD(59.7,"SB",59.747,47)=""
^DD(59.7,"SB",59.79001,90.01)=""
^DD(59.7,"SB",59.79002,90.02)=""
^DD(59.7,"SB",59.79003,90.03)=""
^DD(59.701,0)="EXEMPT WARD FROM AUTOCANCEL SUB-FIELD^^.01^1"
^DD(59.701,0,"DT")="2990226"
^DD(59.701,0,"IX","B",59.701,.01)=""
^DD(59.701,0,"NM","EXEMPT WARD FROM AUTOCANCEL")=""
^DD(59.701,0,"UP")="59.7"
^DD(59.701,.01,0)="EXEMPT WARD FROM AUTOCANCEL^MP42'^DIC(42,^0;1^Q"
^DD(59.701,.01,1,0)="^.1"
^DD(59.701,.01,1,1,0)="59.701^B"
^DD(59.701,.01,1,1,1)="S ^PS(59.7,DA(1),40.19,""B"",$E(X,1,30),DA)="""""
^DD(59.701,.01,1,1,2)="K ^PS(59.7,DA(1),40.19,""B"",$E(X,1,30),DA)"
^DD(59.701,.01,3)="Enter a WARD LOCATION if prescriptions for patients on this ward should be exempt from the Autocancel RX's on Admission job."
^DD(59.701,.01,21,0)="^^3^3^2990413^^"
^DD(59.701,.01,21,1,0)="For all of the WARD LOCATIONS entered, prescriptions for patients on these"
^DD(59.701,.01,21,2,0)="wards will not be canceled by the Autocancel RX's on Admission Outpatient"
^DD(59.701,.01,21,3,0)="Pharmacy system job."
^DD(59.701,.01,23,0)="^^1^1^2990413^^^^"
^DD(59.701,.01,23,1,0)="This is a pointer to the WARD LOCATION (#42) File."
^DD(59.701,.01,"DT")="2990226"
^DD(59.701,"B","EXEMPT WARD FROM AUTOCANCEL",.01)=""
^DD(59.701,"GL",0,1,.01)=""
^DD(59.701,"IX",.01)=""
^DD(59.721,0)="NON-FORMULARY MESSAGE SUB-FIELD^^.01^1"
^DD(59.721,0,"DT")="2920315"
^DD(59.721,0,"NM","NON-FORMULARY MESSAGE")=""
^DD(59.721,0,"UP")="59.7"
^DD(59.721,.01,0)="NON-FORMULARY MESSAGE^WL^^0;1^Q"
^DD(59.721,.01,3)=""
^DD(59.721,.01,4)="W !!,""Enter a message that will be shown to non-pharmacists when they order"",!,""non-formulary drugs."",!!"
^DD(59.721,.01,21,0)="^^5^5^2940726^^^^"
^DD(59.721,.01,21,1,0)="  This is a message that will be shown to non-pharmacy personnel when they"
^DD(59.721,.01,21,2,0)="order drugs for a patient that are not currently stocked by the pharmacy."
^DD(59.721,.01,21,3,0)="This is typically a warning and/or a procedure the non-pharmacist must"
^DD(59.721,.01,21,4,0)="follow before pharmacy will dispense the non-formulary drug.  This message"
^DD(59.721,.01,21,5,0)="will show exactly as entered here."
^DD(59.721,.01,23,0)="^^4^4^2940726^^^^"
^DD(59.721,.01,23,1,0)="  This allows the pharmacy to provide a message to non-pharmacy personnel"
^DD(59.721,.01,23,2,0)="when they order a non-formulary drug for a patient.  The message usually"
^DD(59.721,.01,23,3,0)="outlines the procedure that the user needs to follow before pharmacy will"
^DD(59.721,.01,23,4,0)="dispense the non-formulary drug."
^DD(59.721,.01,"DT")="2920315"
^DD(59.721,"B","NON-FORMULARY MESSAGE",.01)=""
^DD(59.721,"GL",0,1,.01)=""
^DD(59.722,0)="WARD ACTIONS SUB-FIELD^^4^5"
^DD(59.722,0,"DT")="2931018"
^DD(59.722,0,"IX","AFT",59.7221,.01)=""
^DD(59.722,0,"IX","AFT0",59.722,.01)=""
^DD(59.722,0,"IX","B",59.722,.01)=""
^DD(59.722,0,"NM","WARD ACTIONS")=""
^DD(59.722,0,"UP")="59.7"
^DD(59.722,.01,0)="FROM WARD^MP42'X^DIC(42,^0;1^S:$D(X) DINUM=X"
^DD(59.722,.01,1,0)="^.1"
^DD(59.722,.01,1,1,0)="59.722^B"
^DD(59.722,.01,1,1,1)="S ^PS(59.7,DA(1),22,""B"",$E(X,1,30),DA)="""""
^DD(59.722,.01,1,1,2)="K ^PS(59.7,DA(1),22,""B"",$E(X,1,30),DA)"
^DD(59.722,.01,1,2,0)="59.722^AFT0^MUMPS"
^DD(59.722,.01,1,2,1)="F Z=0:0 S Z=$O(^PS(59.7,DA(1),22,DA,1,Z)) Q:'Z  I $D(^(Z,0)),^(0) S ^PS(59.7,DA(1),22,""AFT"",X,+^(0))="""""
^DD(59.722,.01,1,2,2)="F Z=0:0 S Z=$O(^PS(59.7,DA(1),22,DA,1,Z)) Q:'Z  I $D(^(Z,0)),^(0) K ^PS(59.7,DA(1),22,""AFT"",X,+^(0))"
^DD(59.722,.01,1,2,3)="NEEDED BY INPATIENT ADT INTERFACE"
^DD(59.722,.01,1,2,"%D",0)="^^4^4^2920804^"
^DD(59.722,.01,1,2,"%D",1,0)="Sets up the AFT x-ref if the FROM WARD is changed.  This x-ref is used to"
^DD(59.722,.01,1,2,"%D",2,0)="determine if the patient's orders should be cancelled when the patient is"
^DD(59.722,.01,1,2,"%D",3,0)="transferred.  It is in the form of:"
^DD(59.722,.01,1,2,"%D",4,0)="^PS(59.7,site name,22,""AFT"",from ward,to ward)"
^DD(59.722,.01,3)="ENTER WARD PATIENT HAS COME FROM WHEN ORDERS ARE TO BE CANCELLED."
^DD(59.722,.01,21,0)="^^2^2^2910306^^^^"
^DD(59.722,.01,21,1,0)="  This is the ward the patient has been transferred from whenever an action"
^DD(59.722,.01,21,2,0)="is to take place, such as placing orders on hold, or cancelling orders."
^DD(59.722,.01,"DT")="2900422"
^DD(59.722,1,0)="TO WARD^59.7221P^^1;0"
^DD(59.722,1,21,0)="^^3^3^2910306^^"
^DD(59.722,1,21,1,0)="  This is a ward to which the patient has been transferred.  Whenever a"
^DD(59.722,1,21,2,0)="patient is transferred to this ward from the previously selected ""From"
^DD(59.722,1,21,3,0)="Ward"", the patient's Inpatient Medication orders are cancelled."
^DD(59.722,2,0)="'ON PASS' ACTION^S^0:NO ACTION;1:PLACE ORDERS ON HOLD;2:DISCONTINUE ORDERS;^0;2^Q"
^DD(59.722,2,3)="SELECT ACTION FOR INPATIENT ORDERS WHENEVER A PATIENT IS TRANSFERRED FROM THIS SELECTED ""FROM WARD"" TO 'AUTHORIZED ABSENCE LESS THAN 96 HOURS' (ON PASS)."
^DD(59.722,2,21,0)="5^^5^5^2910306^"
^DD(59.722,2,21,1,0)="  This is the action the Inpatient Medications package will take on a"
^DD(59.722,2,21,2,0)="patient's orders whenever the patient is transferred from the selected"
^DD(59.722,2,21,3,0)="""From Ward"" to 'Authorized Absence less than 96 hours' (known as 'On"
^DD(59.722,2,21,4,0)="Pass').  If 'PLACE ORDERS ON HOLD' is chosen, the patient's orders will"
^DD(59.722,2,21,5,0)="be taken off of hold whenever the patient returns."
^DD(59.722,2,"DT")="2920709"
^DD(59.722,3,0)="ACTION ON AUTHORIZED ABSENCE^S^0:NO ACTION;1:PLACE ORDERS ON HOLD;2:DISCONTINUE ORDERS;^0;3^Q"
^DD(59.722,3,3)="SELECT ACTION FOR INPATIENT ORDERS WHENEVER A PATIENT IS TRANSFERRED FROM THIS SELECTED ""FROM WARD"" TO 'AUTHORIZED ABSENCE GREATER THAN 96 HOURS'."
^DD(59.722,3,21,0)="^^5^5^2940929^^^^"
^DD(59.722,3,21,1,0)="  This is the action that is to take place on a patient's Inpatient (Unit"
^DD(59.722,3,21,2,0)="Dose and IV) Medication orders whenever the patient is transferred from"
^DD(59.722,3,21,3,0)="the selected ""From Ward"" to 'authorized absence greater than 96 hours'."
^DD(59.722,3,21,4,0)="If 'PLACE ORDERS ON HOLD' is selected, the orders will automatically be"
^DD(59.722,3,21,5,0)="taken off of hold when the patient returns."
^DD(59.722,3,23,0)="^^3^3^2940719^"
^DD(59.722,3,23,1,0)="This is a set of codes used by the auto-discontinue option if it is"
^DD(59.722,3,23,2,0)="activated for transfer of a patient through PIMS to a status of"
^DD(59.722,3,23,3,0)="UNAUTHORIZED ABSENCE."
^DD(59.722,3,"DT")="2920709"
^DD(59.722,4,0)="ACTION ON UNAUTHORIZED ABSENCE^S^0:NO ACTION;1:PLACE ORDERS ON HOLD;2:DISCONTINUE ORDERS;^0;4^Q"
^DD(59.722,4,3)="SELECT ACTION FOR INPATIENT ORDERS WHENEVER A PATIENT IS TRANSFERRED FROM THIS SELECTED ""FROM WARD"" TO 'UNAUTHORIZED ABSENCE"
^DD(59.722,4,21,0)="^^5^5^2940929^"
^DD(59.722,4,21,1,0)="  This is the action that is to take place on a patient's Inpatient (Unit"
^DD(59.722,4,21,2,0)="Dose and IV) Medication orders whenever the patient is transferred from"
^DD(59.722,4,21,3,0)="the selected ""From Ward"" to 'unauthorized absence'. If 'PLACE ORDERS ON "
^DD(59.722,4,21,4,0)="HOLD' is selected, the orders will automatically be taken off of hold "
^DD(59.722,4,21,5,0)="when the patient returns."
^DD(59.722,4,"DT")="2931018"
^DD(59.722,"B","'ON PASS' ACTION",2)=""
^DD(59.722,"B","ACTION ON AUTHORIZED ABSENCE",3)=""
^DD(59.722,"B","ACTION ON UNAUTHORIZED ABSENCE",4)=""
^DD(59.722,"B","FROM WARD",.01)=""
^DD(59.722,"B","TO WARD",1)=""
^DD(59.722,"GL",0,1,.01)=""
^DD(59.722,"GL",0,2,2)=""
^DD(59.722,"GL",0,3,3)=""
^DD(59.722,"GL",0,4,4)=""
^DD(59.722,"GL",1,0,1)=""
^DD(59.722,"IX",.01)=""
^DD(59.722,"SB",59.7221,1)=""
^DD(59.7221,0)="TO WARD SUB-FIELD^^.01^1"
^DD(59.7221,0,"IX","B",59.7221,.01)=""
^DD(59.7221,0,"NM","TO WARD")=""
^DD(59.7221,0,"UP")="59.722"
^DD(59.7221,.01,0)="TO WARD^MP42'X^DIC(42,^0;1^S:$D(X) DINUM=X"
^DD(59.7221,.01,1,0)="^.1"
^DD(59.7221,.01,1,1,0)="59.7221^B"
^DD(59.7221,.01,1,1,1)="S ^PS(59.7,DA(2),22,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(59.7221,.01,1,1,2)="K ^PS(59.7,DA(2),22,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(59.7221,.01,1,2,0)="59.722^AFT^MUMPS"
^DD(59.7221,.01,1,2,1)="I $D(^PS(59.7,DA(2),22,DA(1),0)),^(0) S ^PS(59.7,DA(2),22,""AFT"",+^(0),X)="""""
^DD(59.7221,.01,1,2,2)="I $D(^PS(59.7,DA(2),22,DA(1),0)),^(0) K ^PS(59.7,DA(2),22,""AFT"",+^(0),X)"
^DD(59.7221,.01,1,2,3)="NEEDED BY THE INPATIENT ADT INTERFACE"
^DD(59.7221,.01,1,2,"%D",0)="^^3^3^2940621^^"
^DD(59.7221,.01,1,2,"%D",1,0)="The AFT x-ref is used by Inpatient to determine if the patient's orders"
^DD(59.7221,.01,1,2,"%D",2,0)="should be cancelled when the patient is transferred.  It is in the form of:"
^DD(59.7221,.01,1,2,"%D",3,0)="^PS(59.7,site name,22,""AFT"",from ward,to ward)"
^DD(59.7221,.01,3)="ENTER WARD PATIENT HAS BEEN TRANSFERRED TO WHENEVER ORDERS SHOULD BE CANCELLED."
^DD(59.7221,.01,4)="D PSYS1^PSSDDUT2"
^DD(59.7221,.01,21,0)="^^3^3^2910306^^^^"
^DD(59.7221,.01,21,1,0)="  Whenever a patient is transferred from the previously selected ""From"
^DD(59.7221,.01,21,2,0)="Ward"" to a ward selected here as a ""To Ward"", the patient's IV and Unit"
^DD(59.7221,.01,21,3,0)="Dose orders are cancelled."
^DD(59.7221,.01,"DT")="2900422"
^DD(59.7221,"B","TO WARD",.01)=""
^DD(59.7221,"GL",0,1,.01)=""
^DD(59.7221,"IX",.01)=""
^DD(59.723,0)="D/C ON SERVICE TRANSFER SUB-FIELD^^1^2"
^DD(59.723,0,"IX","AFT",59.7231,.01)=""
^DD(59.723,0,"IX","AFT0",59.723,.01)=""
^DD(59.723,0,"IX","B",59.723,.01)=""
^DD(59.723,0,"NM","D/C ON SERVICE TRANSFER")=""
^DD(59.723,0,"UP")="59.7"
^DD(59.723,.01,0)="FROM SERVICE^MS^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILIARY;B:BLIND REHAB;^0;1^Q"
^DD(59.723,.01,1,0)="^.1"
^DD(59.723,.01,1,1,0)="59.723^B"
^DD(59.723,.01,1,1,1)="S ^PS(59.7,DA(1),23,""B"",$E(X,1,30),DA)="""""
^DD(59.723,.01,1,1,2)="K ^PS(59.7,DA(1),23,""B"",$E(X,1,30),DA)"
^DD(59.723,.01,1,2,0)="59.723^AFT0^MUMPS"
^DD(59.723,.01,1,2,1)="F Z=0:0 S Z=$O(^PS(59.7,DA(1),23,DA,1,Z)) Q:'Z  I $D(^(Z,0)),$P(^(0),""^"")]"""" S ^PS(59.7,DA(1),23,""AFT"",X,$P(^(0),""^""))="""""
^DD(59.723,.01,1,2,2)="F Z=0:0 S Z=$O(^PS(59.7,DA(1),23,DA,1,Z)) Q:'Z  I $D(^(Z,0)),$P(^(0),""^"")]"""" K ^PS(59.7,DA(1),23,""AFT"",X,$P(^(0),""^""))"
^DD(59.723,.01,1,2,3)="NEEDED BY INPATIENT ADT INTERFACE"
^DD(59.723,.01,1,2,"%D",0)="^^4^4^2920804^^"
^DD(59.723,.01,1,2,"%D",1,0)="Sets up the AFT x-ref if the FROM SERVICE is changed.  This x-ref is used to"
^DD(59.723,.01,1,2,"%D",2,0)="determine if the patient's orders should be cancelled when the patient is"
^DD(59.723,.01,1,2,"%D",3,0)="transferred.  It is in the form of:"
^DD(59.723,.01,1,2,"%D",4,0)="^PS(59.7,site name,22,""AFT"",from service,to service)"
^DD(59.723,.01,3)="ENTER SERVICE PATIENT IS TRANSFERRED FROM WHENEVER INPATIENT ORDERS ARE TO BE CANCELLED."
^DD(59.723,.01,21,0)="^.001^3^3^3041026^^^^"
^DD(59.723,.01,21,1,0)="  This is the service the patient has been transferred from whenever the"
^DD(59.723,.01,21,2,0)="patient's Inpatient Medications (IV and Unit Dose) orders are to be"
^DD(59.723,.01,21,3,0)="cancelled."
^DD(59.723,.01,"DT")="3041026"
^DD(59.723,1,0)="TO SERVICE^59.7231S^^1;0"
^DD(59.723,1,21,0)="^.001^3^3^3041026^^^^"
^DD(59.723,1,21,1,0)="  Whenever a patient is transferred from the previously selected ""From"
^DD(59.723,1,21,2,0)="Service"" to a service selected here as a ""To Service"", the patient's IV"
^DD(59.723,1,21,3,0)="and Unit Dose orders are cancelled."
^DD(59.723,"B","FROM SERVICE",.01)=""
^DD(59.723,"B","TO SERVICE",1)=""
^DD(59.723,"GL",0,1,.01)=""
^DD(59.723,"GL",1,0,1)=""
^DD(59.723,"IX",.01)=""
^DD(59.723,"SB",59.7231,1)=""
^DD(59.7231,0)="TO SERVICE SUB-FIELD^^.01^1"
^DD(59.7231,0,"IX","B",59.7231,.01)=""
^DD(59.7231,0,"NM","TO SERVICE")=""
^DD(59.7231,0,"UP")="59.723"
^DD(59.7231,.01,0)="TO SERVICE^MS^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILIARY;B:BLIND REHAB;^0;1^Q"
^DD(59.7231,.01,1,0)="^.1"
^DD(59.7231,.01,1,1,0)="59.7231^B"
^DD(59.7231,.01,1,1,1)="S ^PS(59.7,DA(2),23,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(59.7231,.01,1,1,2)="K ^PS(59.7,DA(2),23,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(59.7231,.01,1,1,"%D",0)="^^3^3^2940621^^"
^DD(59.7231,.01,1,1,"%D",1,0)="The AFT x-ref is used by Inpatient to determine if the patient's orders"
^DD(59.7231,.01,1,1,"%D",2,0)="should be cancelled when the patient is transferred.  It is in the form of:"
^DD(59.7231,.01,1,1,"%D",3,0)="^PS(59.7,site name,22,""AFT"",from ward,to ward)"
^DD(59.7231,.01,1,2,0)="59.723^AFT^MUMPS"
^DD(59.7231,.01,1,2,1)="I $D(^PS(59.7,DA(2),23,DA(1),0)),$P(^(0),""^"")]"""" S ^PS(59.7,DA(2),23,""AFT"",$P(^(0),""^""),X)="""""
^DD(59.7231,.01,1,2,2)="I $D(^PS(59.7,DA(2),23,DA(1),0)),$P(^(0),""^"")]"""" K ^PS(59.7,DA(2),23,""AFT"",$P(^(0),""^""),X)"
^DD(59.7231,.01,1,2,3)="NEEDED BY THE INPATIENT ADT INTERFACE"
^DD(59.7231,.01,1,2,"%D",0)="^^3^3^2920804^"
^DD(59.7231,.01,1,2,"%D",1,0)="Used by Inpatient to determine a patient's orders should be cancelled when"
^DD(59.7231,.01,1,2,"%D",2,0)="the patient is transferred between services.  It is in the form of:"
^DD(59.7231,.01,1,2,"%D",3,0)="^PS(55,site name,23,""AFT"",from service,to service"")"
^DD(59.7231,.01,3)="ENTER SERVICE PATIENT IS TRANSFERRED TO WHENEVER INPATIENT ORDERS ARE TO BE CANCELLED."
^DD(59.7231,.01,4)="D PSYS2^PSSDDUT2"
^DD(59.7231,.01,21,0)="^.001^3^3^3041026^^^^"
^DD(59.7231,.01,21,1,0)="  Whenever a patient is transferred from the previously selected ""From"
^DD(59.7231,.01,21,2,0)="Service"" to a service selected here as a ""To Service"", the patient's IV"
^DD(59.7231,.01,21,3,0)="and Unit Dose orders are cancelled."
^DD(59.7231,.01,"DT")="3041026"
^DD(59.7231,"B","TO SERVICE",.01)=""
^DD(59.7231,"GL",0,1,.01)=""
^DD(59.7231,"IX",.01)=""
^DD(59.747,0)="SCRIPTALK PRINT DEVICE MAPPING SUB-FIELD^^.02^2"
^DD(59.747,0,"DT")="3070228"
^DD(59.747,0,"IX","B",59.747,.01)=""
^DD(59.747,0,"NM","SCRIPTALK PRINT DEVICE MAPPING")=""
^DD(59.747,0,"UP")="59.7"
^DD(59.747,.01,0)="LABEL PRINTER TO BE MAPPED^M*P3.5'^%ZIS(1,^0;1^S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1,2)=""""P-"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.747,.01,.1)=""
^DD(59.747,.01,1,0)="^.1"
^DD(59.747,.01,1,1,0)="59.747^B"
^DD(59.747,.01,1,1,1)="S ^PS(59.7,DA(1),47,""B"",$E(X,1,30),DA)="""""
^DD(59.747,.01,1,1,2)="K ^PS(59.7,DA(1),47,""B"",$E(X,1,30),DA)"
^DD(59.747,.01,3)="Enter the prescription label printer to be mapped to a ScripTalk printer."
^DD(59.747,.01,12)="Only printers are selectable."
^DD(59.747,.01,12.1)="S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1,2)=""""P-"""""""
^DD(59.747,.01,23,0)="^.001^1^1^3070228^^^^"
^DD(59.747,.01,23,1,0)="Devices defined in this field must have a subtype that begins with ""P-""."
^DD(59.747,.01,"DT")="3070228"
^DD(59.747,.02,0)="SCRIPTALK DEVICE^*P3.5'^%ZIS(1,^0;2^S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1,2)=""""P-"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.747,.02,3)="Enter the ScripTalk printer to be mapped."
^DD(59.747,.02,12)="Only printers are selectable."
^DD(59.747,.02,12.1)="S DIC(""S"")=""I $E($G(^%ZIS(2,+$G(^(""""SUBTYPE"""")),0)),1,2)=""""P-"""""""
^DD(59.747,.02,21,0)="^.001^3^3^3070228^^^"
^DD(59.747,.02,21,1,0)="This field contains the ScripTalk print device that will be tied to "
^DD(59.747,.02,21,2,0)="regular Pharmacy label device(s) defined in the ""LABEL PRINTER TO BE "
^DD(59.747,.02,21,3,0)="MAPPED"" field."
^DD(59.747,.02,23,0)="^.001^1^1^3070228^^^^"
^DD(59.747,.02,23,1,0)="Devices defined in this field must have a subtype that begins with ""P-""."
^DD(59.747,.02,"DT")="3070228"
^DD(59.747,"B","LABEL PRINTER TO BE MAPPED",.01)=""
^DD(59.747,"B","SCRIPTALK DEVICE",.02)=""
^DD(59.747,"GL",0,1,.01)=""
^DD(59.747,"GL",0,2,.02)=""
^DD(59.747,"IX",.01)=""
^DD(59.79001,0)="PBM AR/WS AOU MAPPINGS SUB-FIELD^^.03^3"
^DD(59.79001,0,"DT")="3040224"
^DD(59.79001,0,"IX","B",59.79001,.01)=""
^DD(59.79001,0,"NM","PBM AR/WS AOU MAPPINGS")=""
^DD(59.79001,0,"UP")="59.7"
^DD(59.79001,.01,0)="AR/WS AOU ^MP58.1'X^PSI(58.1,^0;1^S DINUM=X"
^DD(59.79001,.01,1,0)="^.1"
^DD(59.79001,.01,1,1,0)="59.79001^B"
^DD(59.79001,.01,1,1,1)="S ^PS(59.7,DA(1),90.01,""B"",$E(X,1,30),DA)="""""
^DD(59.79001,.01,1,1,2)="K ^PS(59.7,DA(1),90.01,""B"",$E(X,1,30),DA)"
^DD(59.79001,.01,21,0)="^.001^4^4^3040224^^^"
^DD(59.79001,.01,21,1,0)="An AR/WS AOU is selectable from entries in the PHARMACY AOU STOCK (#58.1)"
^DD(59.79001,.01,21,2,0)="file. An AR/WS AOU MUST be mapped to either a Medical Center division or"
^DD(59.79001,.01,21,3,0)="an Outpatient site for dispensing data to be attributed to the appropriate"
^DD(59.79001,.01,21,4,0)="division or Outpatient site."
^DD(59.79001,.01,"DT")="3031119"
^DD(59.79001,.02,0)="DIVISION^*P40.8'^DG(40.8,^0;2^S DIC(""S"")=""I '$P(^PS(59.7,1,90.01,DA,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.79001,.02,12)="An AR/WS AOU CANNOT be mapped to BOTH a division and an Outpatient site."
^DD(59.79001,.02,12.1)="S DIC(""S"")=""I '$P(^PS(59.7,1,90.01,DA,0),U,3)"""
^DD(59.79001,.02,21,0)="^.001^5^5^3040224^^"
^DD(59.79001,.02,21,1,0)="The Medical Center division to which the AR/WS AOU is to be mapped to, in"
^DD(59.79001,.02,21,2,0)="order for dispensing data from the AR/WS application to be assigned to the"
^DD(59.79001,.02,21,3,0)="correct division when extracted by the PBM application."
^DD(59.79001,.02,21,4,0)=" "
^DD(59.79001,.02,21,5,0)="An AR/WS AOU CANNOT be mapped to BOTH a division and an Outpatient site."
^DD(59.79001,.02,"DT")="3040224"
^DD(59.79001,.03,0)="OUTPATIENT SITE^*P59'X^PS(59,^0;3^S DIC(""S"")=""I '$P(^PS(59.7,1,90.01,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.79001,.03,12)="An AR/WS AOU CANNOT be mapped to BOTH a division and an outpatient site"
^DD(59.79001,.03,12.1)="S DIC(""S"")=""I '$P(^PS(59.7,1,90.01,DA,0),U,2)"""
^DD(59.79001,.03,21,0)="^.001^6^6^3040224^^"
^DD(59.79001,.03,21,1,0)="An Outpatient pharmacy site to which the AR/WS AOU is to be mapped to, "
^DD(59.79001,.03,21,2,0)="in order for dispensing data from the AR/WS application to be "
^DD(59.79001,.03,21,3,0)="assigned to the correct Outpatient site when extracted by the PBM"
^DD(59.79001,.03,21,4,0)="application."
^DD(59.79001,.03,21,5,0)=" "
^DD(59.79001,.03,21,6,0)="An AR/WS AOU CANNOT be mapped to BOTH a division and an Outpatient site."
^DD(59.79001,.03,"DT")="3031119"
^DD(59.79001,"B","AR/WS AOU ",.01)=""
^DD(59.79001,"B","DIVISION",.02)=""
^DD(59.79001,"B","OUTPATIENT SITE",.03)=""
^DD(59.79001,"GL",0,1,.01)=""
^DD(59.79001,"GL",0,2,.02)=""
^DD(59.79001,"GL",0,3,.03)=""
^DD(59.79001,"IX",.01)=""
^DD(59.79002,0)="PBM CS NAOU MAPPINGS SUB-FIELD^^.03^3"
^DD(59.79002,0,"DT")="3030918"
^DD(59.79002,0,"IX","B",59.79002,.01)=""
^DD(59.79002,0,"NM","PBM CS NAOU MAPPINGS")=""
^DD(59.79002,0,"UP")="59.7"
^DD(59.79002,.01,0)="CS NAOU^M*P58.8'X^PSD(58.8,^0;1^S DIC(""S"")=""I $P(^(0),U,2)'=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y,DINUM=X K:Y<0 X,DINUM"
^DD(59.79002,.01,1,0)="^.1"
^DD(59.79002,.01,1,1,0)="59.79002^B"
^DD(59.79002,.01,1,1,1)="S ^PS(59.7,DA(1),90.02,""B"",$E(X,1,30),DA)="""""
^DD(59.79002,.01,1,1,2)="K ^PS(59.7,DA(1),90.02,""B"",$E(X,1,30),DA)"
^DD(59.79002,.01,3)="Can not be a 'P'rimary location."
^DD(59.79002,.01,12)="A CS NAOU CANNOT be assigned a PRIMARY location type in order to be selectable."
^DD(59.79002,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=""""P"""""""
^DD(59.79002,.01,21,0)="^^5^5^3031119^"
^DD(59.79002,.01,21,1,0)="A CS NAOU MUST be mapped to either a Medical Center division or an"
^DD(59.79002,.01,21,2,0)="Outpatient site for dispensing data to be attributed to the appropriate"
^DD(59.79002,.01,21,3,0)="division or Outpatient site when extracted by the PBM application."
^DD(59.79002,.01,21,4,0)=" "
^DD(59.79002,.01,21,5,0)="A CS NAOU CANNOT be mapped to BOTH a division and an Outpatient site."
^DD(59.79002,.01,"DT")="3031119"
^DD(59.79002,.02,0)="DIVISION^*P40.8'^DG(40.8,^0;2^S DIC(""S"")=""I '$P(^PS(59.7,1,90.02,DA,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.79002,.02,12)="A CS NAOU CANNOT be mapped to BOTH a division and an outpatient site."
^DD(59.79002,.02,12.1)="S DIC(""S"")=""I '$P(^PS(59.7,1,90.02,DA,0),U,3)"""
^DD(59.79002,.02,21,0)="^^5^5^3031119^"
^DD(59.79002,.02,21,1,0)="The Medical Center division to which the CS NAOU is to be mapped to, in"
^DD(59.79002,.02,21,2,0)="order for dispensing data from the CS application to be assigned to the"
^DD(59.79002,.02,21,3,0)="correct division when extracted by the PBM application."
^DD(59.79002,.02,21,4,0)=" "
^DD(59.79002,.02,21,5,0)="A CS NAOU CANNOT be mapped to BOTH a division and an Outpatient site."
^DD(59.79002,.02,"DT")="3031119"
^DD(59.79002,.03,0)="OUTPATIENT SITE^*P59'^PS(59,^0;3^S DIC(""S"")=""I '$P(^PS(59.7,1,90.02,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.79002,.03,12)="A CS NAOU CANNOT be mapped to BOTH a division and an outpatient site."
^DD(59.79002,.03,12.1)="S DIC(""S"")=""I '$P(^PS(59.7,1,90.02,DA,0),U,2)"""
^DD(59.79002,.03,21,0)="^^6^6^3031119^"
^DD(59.79002,.03,21,1,0)="An outpatient pharmacy site to which the CS NAOU is to be mapped to, in"
^DD(59.79002,.03,21,2,0)="order for dispensing data from the CN NAOU application to be assigned to"
^DD(59.79002,.03,21,3,0)="the correct Outpatient site when extracted by the PBM application."
^DD(59.79002,.03,21,4,0)=" "
^DD(59.79002,.03,21,5,0)=" "
^DD(59.79002,.03,21,6,0)="A CS NAOU CANNOT be mapped to BOTH a division and an Outpatient site."
^DD(59.79002,.03,"DT")="3031119"
^DD(59.79002,"B","CS NAOU",.01)=""
^DD(59.79002,"B","DIVISION",.02)=""
^DD(59.79002,"B","OUTPATIENT SITE",.03)=""
^DD(59.79002,"GL",0,1,.01)=""
^DD(59.79002,"GL",0,2,.02)=""
^DD(59.79002,"GL",0,3,.03)=""
^DD(59.79002,"IX",.01)=""
^DD(59.79003,0)="PBM DA PHARM LOC MAPPINGS SUB-FIELD^^.03^3"
^DD(59.79003,0,"DT")="3030918"
^DD(59.79003,0,"IX","B",59.79003,.01)=""
^DD(59.79003,0,"NM","PBM DA PHARM LOC MAPPINGS")=""
^DD(59.79003,0,"UP")="59.7"
^DD(59.79003,.01,0)="DA PHARMACY LOCATION^M*P58.8'X^PSD(58.8,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y,DINUM=X K:Y<0 X,DINUM"
^DD(59.79003,.01,1,0)="^.1"
^DD(59.79003,.01,1,1,0)="59.79003^B"
^DD(59.79003,.01,1,1,1)="S ^PS(59.7,DA(1),90.03,""B"",$E(X,1,30),DA)="""""
^DD(59.79003,.01,1,1,2)="K ^PS(59.7,DA(1),90.03,""B"",$E(X,1,30),DA)"
^DD(59.79003,.01,3)="Must be 'P'rimary to be selectable."
^DD(59.79003,.01,4)=""
^DD(59.79003,.01,12)="A Drug Accountability Location must be active and 'P'rimary in file #58.8."
^DD(59.79003,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""P"""""""
^DD(59.79003,.01,21,0)="^^8^8^3031119^"
^DD(59.79003,.01,21,1,0)="The DA PHARMACY LOCATIONS are selectable from the DRUG ACCOUNTABILITY "
^DD(59.79003,.01,21,2,0)="STATS file (#58.8). Only DA Pharmacy Locations that have a 'P' for "
^DD(59.79003,.01,21,3,0)="'Primary' in the LOCATION TYPE field (#.01) can be selected. "
^DD(59.79003,.01,21,4,0)=" "
^DD(59.79003,.01,21,5,0)="A DA Pharmacy Location MUST be mapped to either a medical center division"
^DD(59.79003,.01,21,6,0)="or an outpatient site for procurement data to be attributed to the"
^DD(59.79003,.01,21,7,0)="appropriate division or outpatient site when extracted by the PBM"
^DD(59.79003,.01,21,8,0)="application."
^DD(59.79003,.01,"DT")="3031119"
^DD(59.79003,.02,0)="DIVISION^*P40.8'^DG(40.8,^0;2^S DIC(""S"")=""I '$P(^PS(59.7,1,90.03,DA,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.79003,.02,12)="A DA Pharmacy Location CANNOT be mapped to both a division and an outpatient site."
^DD(59.79003,.02,12.1)="S DIC(""S"")=""I '$P(^PS(59.7,1,90.03,DA,0),U,3)"""
^DD(59.79003,.02,21,0)="^^6^6^3031119^"
^DD(59.79003,.02,21,1,0)="The Medical Center division to which the DA Pharmacy Location is to be"
^DD(59.79003,.02,21,2,0)="mapped to, in order for procurement data from the DA application to be"
^DD(59.79003,.02,21,3,0)="assigned to the correct division when extracted by the PBM application."
^DD(59.79003,.02,21,4,0)=" "
^DD(59.79003,.02,21,5,0)="A DA Pharmacy Location CANNOT be mapped to both a division and an "
^DD(59.79003,.02,21,6,0)="Outpatient site."
^DD(59.79003,.02,"DT")="3031119"
^DD(59.79003,.03,0)="OUTPATIENT SITE^*P59'^PS(59,^0;3^S DIC(""S"")=""I '$P(^PS(59.7,1,90.03,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(59.79003,.03,12)="A DA Pharmacy Location CANNOT be mapped to both a division and an outpatient site."
^DD(59.79003,.03,12.1)="S DIC(""S"")=""I '$P(^PS(59.7,1,90.03,DA,0),U,2)"""
^DD(59.79003,.03,21,0)="^^7^7^3031119^"
^DD(59.79003,.03,21,1,0)="An outpatient pharmacy site to which the DA Pharm Location is to be mapped"
^DD(59.79003,.03,21,2,0)="to, in order for procurement data from the DA Pharmacy Location"
^DD(59.79003,.03,21,3,0)="application to be attributed to the current Outpatient site when extracted"
^DD(59.79003,.03,21,4,0)="by the PBM application."
^DD(59.79003,.03,21,5,0)=" "
^DD(59.79003,.03,21,6,0)="A DA Pharm Location CANNOT be mapped to BOTH a division and an "
^DD(59.79003,.03,21,7,0)="Outpatient site."
^DD(59.79003,.03,"DT")="3031119"
^DD(59.79003,"B","DA PHARMACY LOCATION",.01)=""
^DD(59.79003,"B","DIVISION",.02)=""
^DD(59.79003,"B","OUTPATIENT SITE",.03)=""
^DD(59.79003,"GL",0,1,.01)=""
^DD(59.79003,"GL",0,2,.02)=""
^DD(59.79003,"GL",0,3,.03)=""
^DD(59.79003,"IX",.01)=""
^DD(59.8,0)="FIELD^^1^2"
^DD(59.8,0,"DDA")="N"
^DD(59.8,0,"DT")="2940512"
^DD(59.8,0,"IX","B",59.8,.01)=""
^DD(59.8,0,"NM","OUTPATIENT CLINIC SORT GROUP")=""
^DD(59.8,0,"VR")="7.0"
^DD(59.8,0,"VRPK")="OUTPATIENT PHARMACY VERSION"
^DD(59.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(59.8,.01,1,0)="^.1"
^DD(59.8,.01,1,1,0)="59.8^B"
^DD(59.8,.01,1,1,1)="S ^PS(59.8,""B"",$E(X,1,30),DA)="""""
^DD(59.8,.01,1,1,2)="K ^PS(59.8,""B"",$E(X,1,30),DA)"
^DD(59.8,.01,3)="Answer must be 3-30 characters in length."
^DD(59.8,.01,20,0)="^.3LA^1^1"
^DD(59.8,.01,20,1,0)="PSO"
^DD(59.8,.01,21,0)="^^1^1^2950808^^^"
^DD(59.8,.01,21,1,0)="This field will store the name of the sort group."
^DD(59.8,.01,23,0)="^^1^1^2950808^^^"
^DD(59.8,.01,23,1,0)="free test."
^DD(59.8,.01,"DT")="2940512"
^DD(59.8,1,0)="SORT GROUP^59.81P^^1;0"
^DD(59.8,1,21,0)="^^2^2^2940512^"
^DD(59.8,1,21,1,0)="This sub-file will be used to store the name of the clinics associated"
^DD(59.8,1,21,2,0)="with a sort group."
^DD(59.8,1,23,0)="^^1^1^2940512^"
^DD(59.8,1,23,1,0)="multiple."
^DD(59.8,"B","NAME",.01)=""
^DD(59.8,"B","SORT GROUP",1)=""
^DD(59.8,"GL",0,1,.01)=""
^DD(59.8,"GL",1,0,1)=""
^DD(59.8,"GR","PSO",.01,1)=""
^DD(59.8,"IX",.01)=""
^DD(59.8,"RQ",.01)=""
^DD(59.8,"SB",59.81,1)=""
^DD(59.81,0)="SORT GROUP SUB-FIELD^^.01^1"
^DD(59.81,0,"DT")="2940512"
^DD(59.81,0,"IX","B",59.81,.01)=""
^DD(59.81,0,"NM","SORT GROUP")=""
^DD(59.81,0,"UP")="59.8"
^DD(59.81,.01,0)="SORT GROUPS^MP44'X^SC(^0;1^S:$D(X) DINUM=X"
^DD(59.81,.01,1,0)="^.1"
^DD(59.81,.01,1,1,0)="59.81^B"
^DD(59.81,.01,1,1,1)="S ^PS(59.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(59.81,.01,1,1,2)="K ^PS(59.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(59.81,.01,3)="Enter name of clinic to be included in the sort group."
^DD(59.81,.01,21,0)="^^1^1^2940512^"
^DD(59.81,.01,21,1,0)="This field will store the name of the clinic used in the sort group."
^DD(59.81,.01,23,0)="^^1^1^2940512^"
^DD(59.81,.01,23,1,0)="pointer."
^DD(59.81,.01,"DT")="2940512"
^DD(59.81,"B","SORT GROUPS",.01)=""
^DD(59.81,"GL",0,1,.01)=""
^DD(59.81,"IX",.01)=""
^DD(59.9,0)="FIELD^^.02^2"
^DD(59.9,0,"DDA")="N"
^DD(59.9,0,"DT")="3030619"
^DD(59.9,0,"IX","B",59.9,.01)=""
^DD(59.9,0,"NM","PBM PATIENT DEMOGRAPHICS")=""
^DD(59.9,0,"VR")="4.0"
^DD(59.9,0,"VRPK")="PSU"
^DD(59.9,.01,0)="EVENT DATE/TIME^RD^^0;1^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(59.9,.01,1,0)="^.1"
^DD(59.9,.01,1,1,0)="59.9^B"
^DD(59.9,.01,1,1,1)="S ^PSUDEM(""B"",$E(X,1,30),DA)="""""
^DD(59.9,.01,1,1,2)="K ^PSUDEM(""B"",$E(X,1,30),DA)"
^DD(59.9,.01,3)=""
^DD(59.9,.01,"DT")="3030619"
^DD(59.9,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(59.9,.02,1,0)="^.1^^0"
^DD(59.9,.02,"DT")="3030619"
^DD(59.9,"B","EVENT DATE/TIME",.01)=""
^DD(59.9,"B","PATIENT",.02)=""
^DD(59.9,"GL",0,1,.01)=""
^DD(59.9,"GL",0,2,.02)=""
^DD(59.9,"IX",.01)=""
^DD(59.9,"RQ",.01)=""
^DD(60,0)="FIELD^NL^505^48"
^DD(60,0,"DDA")="N"
^DD(60,0,"DT")="2940816"
^DD(60,0,"ID",4)="W """""
^DD(60,0,"ID",17)="W """""
^DD(60,0,"ID",51)="W """""
^DD(60,0,"ID",400)="W """""
^DD(60,0,"IX","AB",60.02,.01)=""
^DD(60,0,"IX","AC",60,64)=""
^DD(60,0,"IX","AD",60,64)=""
^DD(60,0,"IX","AE",60,64.1)=""
^DD(60,0,"IX","AF",60.01,95.3)=""
^DD(60,0,"IX","AG",60.01,95.3)=""
^DD(60,0,"IX","AX0",60,.01)=""
^DD(60,0,"IX","AX1",60,3)=""
^DD(60,0,"IX","AX2",60,1)=""
^DD(60,0,"IX","AX3",60,4)=""
^DD(60,0,"IX","AX4",60,64)=""
^DD(60,0,"IX","B",60,.01)=""
^DD(60,0,"IX","B",60.1,.01)=""
^DD(60,0,"IX","C",60,5)=""
^DD(60,0,"IX","D",60,51)=""
^DD(60,0,"NM","LABORATORY TEST")=""
^DD(60,0,"PT",50,17.2)=""
^DD(60,0,"PT",50,623002)=""
^DD(60,0,"PT",50.02,.01)=""
^DD(60,0,"PT",60.02,.01)=""
^DD(60,0,"PT",61.393,2)=""
^DD(60,0,"PT",62.1,60.1)=""
^DD(60,0,"PT",62.1,60.2)=""
^DD(60,0,"PT",62.1,60.3)=""
^DD(60,0,"PT",62.1,61.1)=""
^DD(60,0,"PT",62.21,.01)=""
^DD(60,0,"PT",62.31,.01)=""
^DD(60,0,"PT",62.32,.01)=""
^DD(60,0,"PT",62.4,106)=""
^DD(60,0,"PT",62.41,.01)=""
^DD(60,0,"PT",62.61,.01)=""
^DD(60,0,"PT",62.801,.02)=""
^DD(60,0,"PT",62.85,.08)=""
^DD(60,0,"PT",62.9001,.01)=""
^DD(60,0,"PT",63.20211,.01)=""
^DD(60,0,"PT",63.3311,.01)=""
^DD(60,0,"PT",63.812,.02)=""
^DD(60,0,"PT",63.8122,.01)=""
^DD(60,0,"PT",63.823,.01)=""
^DD(60,0,"PT",63.825,.01)=""
^DD(60,0,"PT",63.902,.02)=""
^DD(60,0,"PT",63.90241,.01)=""
^DD(60,0,"PT",63.90251,.01)=""
^DD(60,0,"PT",63.9122,.01)=""
^DD(60,0,"PT",63.923,.01)=""
^DD(60,0,"PT",63.9241,.01)=""
^DD(60,0,"PT",64,25.5)=""
^DD(60,0,"PT",64.02,3)=""
^DD(60,0,"PT",64.023,.01)=""
^DD(60,0,"PT",64.03,7)=""
^DD(60,0,"PT",64.1111,1)=""
^DD(60,0,"PT",64.53,.01)=""
^DD(60,0,"PT",64.708,2)=""
^DD(60,0,"PT",65.3,.01)=""
^DD(60,0,"PT",65.599,.01)=""
^DD(60,0,"PT",66.04,.01)=""
^DD(60,0,"PT",66.08,.01)=""
^DD(60,0,"PT",68.04,.01)=""
^DD(60,0,"PT",68.04,8.1)=""
^DD(60,0,"PT",68.12,.01)=""
^DD(60,0,"PT",68.13,.01)=""
^DD(60,0,"PT",68.222,.01)=""
^DD(60,0,"PT",68.24,.01)=""
^DD(60,0,"PT",68.3,.01)=""
^DD(60,0,"PT",69.03,.01)=""
^DD(60,0,"PT",69.11,.01)=""
^DD(60,0,"PT",69.34,.01)=""
^DD(60,0,"PT",69.36,.01)=""
^DD(60,0,"PT",69.52,.01)=""
^DD(60,0,"PT",69.62,.01)=""
^DD(60,0,"PT",69.63,.01)=""
^DD(60,0,"PT",69.64,11)=""
^DD(60,0,"PT",100,7)=""
^DD(60,0,"PT",100.1,.01)=""
^DD(60,0,"PT",101,6)=""
^DD(60,0,"PT",115.021,1)=""
^DD(60,0,"PT",119.9001,.01)=""
^DD(60,0,"PT",142.14,.01)=""
^DD(60,0,"PT",603.41,.01)=""
^DD(60,0,"PT",701,614)=""
^DD(60,0,"PT",727.211,.01)=""
^DD(60,0,"PT",727.813,11)=""
^DD(60,0,"PT",798.128,.01)=""
^DD(60,0,"PT",810.31,.04)=""
^DD(60,0,"PT",810.32,.01)=""
^DD(60,0,"PT",811.52,.01)=""
^DD(60,0,"PT",811.902,.01)=""
^DD(60,0,"PT",815.0802,.01)=""
^DD(60,0,"PT",815.0803,.01)=""
^DD(60,0,"PT",815.0804,.01)=""
^DD(60,0,"PT",815.0805,.01)=""
^DD(60,0,"VR")="5.2"
^DD(60,.01,0)="NAME^RFX^^0;1^K:$L(X)>40!($L(X)<3)!(X'?.ANP) X I $D(X) K:X[""""""""!(X<0) X"
^DD(60,.01,1,0)="^.1"
^DD(60,.01,1,1,0)="60^B"
^DD(60,.01,1,1,1)="S ^LAB(60,""B"",$E(X,1,40),DA)="""""
^DD(60,.01,1,1,2)="K ^LAB(60,""B"",$E(X,1,40),DA)"
^DD(60,.01,1,2,0)="60^AX0^MUMPS"
^DD(60,.01,1,2,1)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,.01,1,2,2)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,.01,1,2,"%D",0)="^^1^1^2971118^^^^"
^DD(60,.01,1,2,"%D",1,0)="Trigger update to CPRS."
^DD(60,.01,1,2,"DT")="2971118"
^DD(60,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH AND NOT ALREADY A SYNONYM"
^DD(60,.01,21,0)="^^1^1^2930823^^^^"
^DD(60,.01,21,1,0)="This is the name of the Laboratory test you are defining in this entry."
^DD(60,.01,"DEL",1,0)="I 1"
^DD(60,.01,"DT")="2971118"
^DD(60,1,0)="TEST COST^NJ7,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999)!(X<.01) X"
^DD(60,1,1,0)="^.1"
^DD(60,1,1,1,0)="60^AX2^MUMPS"
^DD(60,1,1,1,1)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,1,1,1,2)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,1,1,1,"%D",0)="^^1^1^2971118^^^"
^DD(60,1,1,1,"%D",1,0)="Trigger update to CPRS."
^DD(60,1,1,1,"DT")="2971118"
^DD(60,1,3)="TYPE A NUMBER BETWEEN .01 AND 9999"
^DD(60,1,21,0)="^^1^1^2841031^^"
^DD(60,1,21,1,0)="Enter the cost of the test."
^DD(60,1,"DT")="2971118"
^DD(60,2,0)="SYNONYM^60.1A^^5;0"
^DD(60,2,21,0)="^.001^2^2^3060411^^^^"
^DD(60,2,21,1,0)="This is another name for the test.  It may be the locally preferred name,"
^DD(60,2,21,2,0)="or a common misspelling."
^DD(60,3,0)="TYPE^RS^I:INPUT (CAN BE ORDERED);O:OUTPUT (CAN BE DISPLAYED);B:BOTH;N:NEITHER;^0;3^Q"
^DD(60,3,1,0)="^.1"
^DD(60,3,1,1,0)="60^AX1^MUMPS"
^DD(60,3,1,1,1)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,3,1,1,2)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,3,1,1,"%D",0)="^^1^1^2971118^^^"
^DD(60,3,1,1,"%D",1,0)="Trigger update to CPRS."
^DD(60,3,1,1,"DT")="2971118"
^DD(60,3,3)=""
^DD(60,3,21,0)="^^4^4^2850723^^^^"
^DD(60,3,21,1,0)="I == (Input) test can be ordered but not displayed by the computer."
^DD(60,3,21,2,0)="O == (Output) test can be displayed but never ordered by itself."
^DD(60,3,21,3,0)="B == (Both) test can be ordered and displayed."
^DD(60,3,21,4,0)="N == (Neither) test is internal to lab only."
^DD(60,3,"DT")="2971118"
^DD(60,4,0)="SUBSCRIPT^SX^CH:CHEM, HEM, TOX, SER, RIA, ETC.;MI:MICROBIOLOGY;BB:BLOOD BANK;EM:ELECTRON MICROSCOPY;SP:SURGICAL PATHOLOGY;CY:CYTOLOGY;AU:AUTOPSY;WK:WORKLOAD;^0;4^S LW=X Q"
^DD(60,4,1,0)="^.1"
^DD(60,4,1,1,0)="60^AX3^MUMPS"
^DD(60,4,1,1,1)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,4,1,1,2)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,4,1,1,"%D",0)="^^1^1^2971118^^^"
^DD(60,4,1,1,"%D",1,0)="Trigger update to CPRS."
^DD(60,4,1,1,"DT")="2971118"
^DD(60,4,3)=""
^DD(60,4,21,0)="^^2^2^2911202^^^^"
^DD(60,4,21,1,0)="SUBSCRIPT is the pointer to the legal subscripts in the LR SUBSCRIPT file.  CH for Chem, Hem, Tox, Ser, Ria, etc., MI for Microbiology, BB for Blood Bank, EM for Electron Microscopy, SP for Surgical Pathology, CY for Cytology, AU for Autopsy."
^DD(60,4,21,2,0)="This field is required for all orderable tests."
^DD(60,4,21,3,0)=" Bank, EM for Electron Microscopy, SP for Surgical Pathology, CY for"
^DD(60,4,21,4,0)=" Cytology, AU for Autopsy."
^DD(60,4,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(60,4,"DT")="2971118"
^DD(60,5,0)="LOCATION (DATA NAME)^FI^^0;5^K:$L(X)>12!($L(X)<4)!'(X?2A1P.ANP) X"
^DD(60,5,1,0)="^.1^^-1"
^DD(60,5,1,1,0)="60^C"
^DD(60,5,1,1,1)="S ^LAB(60,""C"",$E(X,1,30),DA)="""""
^DD(60,5,1,1,2)="K ^LAB(60,""C"",$E(X,1,30),DA)"
^DD(60,5,3)="ANSWER MUST BE 4-12 CHARACTERS IN LENGTH"
^DD(60,5,5,1,0)="60^400^1"
^DD(60,5,21,0)="^^4^4^2871006^^^^"
^DD(60,5,21,1,0)="LOCATION (DATA NAME) is the exact character representation of the "
^DD(60,5,21,2,0)="corresponding entry in the RESULTS file.  The input transform receives"
^DD(60,5,21,3,0)="from SUBSCRIPT of the previously defined piece, as well as the node and "
^DD(60,5,21,4,0)="piece information from the data definition file for the result."
^DD(60,5,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(60,5,"DT")="2840612"
^DD(60,6,0)="ACCESSION AREA^60.11PA^^8;0"
^DD(60,6,21,0)="^^1^1^2871006^^"
^DD(60,6,21,1,0)="This is the appropriate institution/division this test is performed at."
^DD(60,6,21,2,0)=" panel, all tests"
^DD(60,6,21,3,0)="on that panel will be assigned to the entered accession area.  If some of"
^DD(60,6,21,4,0)="the panel's tests go to other accession areas, leave this field blank."
^DD(60,6,21,5,0)="This will be the default accession area for this test."
^DD(60,6,"DT")="2840906"
^DD(60,7,0)="UNIQUE ACCESSION #^S^1:YES;0:NO;^0;7^Q"
^DD(60,7,21,0)="^^1^1^2850730^^^^"
^DD(60,7,21,1,0)="If this field contains YES then this test will have a unique accession number whenever it is accessioned, even though it may be ordered with other tests.  If the test may be performed with other tests on the same specimen, this field should be blank."
^DD(60,8,0)="UNIQUE COLLECTION SAMPLE^S^0:NO;1:YES;^0;8^Q"
^DD(60,8,21,0)="^^3^3^2841031^^^^"
^DD(60,8,21,1,0)="This field should be entered only if the test is never done on any other"
^DD(60,8,21,2,0)="collection sample than the ONE designated in Select COLLECTION SAMPLE:"
^DD(60,8,21,3,0)="The system will then not bother asking if the sample is the correct one."
^DD(60,9,0)="LAB COLLECTION SAMPLE^P62'^LAB(62,^0;9^Q"
^DD(60,9,3)=""
^DD(60,9,21,0)="^^3^3^2841031^^^^"
^DD(60,9,21,1,0)="This entry, for the given Laboratory Test, is THE collection sample brought"
^DD(60,9,21,2,0)="back on routine phlebotomy collection by the lab when they make rounds"
^DD(60,9,21,3,0)="on the wards.  If blank, the test CANNOT be ordered for routine collection."
^DD(60,9,"DT")="2830914"
^DD(60,10,0)="REQUIRED TEST^S^1:YES;0:NO;^0;17^Q"
^DD(60,10,3)="If the test is mandatory and no data is reported, the default is ""pending"""
^DD(60,10,21,0)="^^1^1^2850830^^^"
^DD(60,10,21,1,0)="This field should be YES if this is a mandatory test, i.e., if no data is reported, the default status is ""pending""."
^DD(60,10,21,2,0)=" reported, the default status is ""pending""."
^DD(60,10,"DT")="2840723"
^DD(60,13,0)="FIELD^FI^^0;12^K:$L(X)>13!($L(X)<2)!'(X?1""DD("".ANP) X"
^DD(60,13,3)="ANSWER MUST BE 2-13 CHARACTERS IN LENGTH"
^DD(60,13,5,1,0)="60^400^2"
^DD(60,13,9)="^"
^DD(60,13,21,0)="^^1^1^2870417^^^"
^DD(60,13,21,1,0)="Data Dictionary field in file 63."
^DD(60,13,"DEL",1,0)="I DUZ(0)'=""@"""
^DD(60,13,"DT")="2840612"
^DD(60,14,0)="PROCEDURE (SNOMED)^P61.5^LAB(61.5,^0;10^Q"
^DD(60,14,21,0)="^^1^1^2940316^^^^"
^DD(60,14,21,1,0)="This is the SNOMED name or code of this test."
^DD(60,15,0)="*QUICK INDEX^S^1:YES;^0;13^Q"
^DD(60,15,1,0)="^.1^^0"
^DD(60,15,3)="YES FOR QUICK INDEX, ""@"" TO REMOVE FROM QUICK INDEX"
^DD(60,15,21,0)="^^1^1^2940316^^^^"
^DD(60,15,21,1,0)="No longer used.  Will be deleted after this version."
^DD(60,15,21,2,0)="index list.  Enter YES to include, @ to delete."
^DD(60,15,"DT")="2840906"
^DD(60,16,0)="EXTRA LABELS^NJ2,0^^0;15^K:+X'=X!(X>99)!(X<-1)!(X?.E1"".""1N.N) X"
^DD(60,16,3)="TYPE A WHOLE NUMBER BETWEEN -1 AND 99"
^DD(60,16,21,0)="^^3^3^2841031^^^^"
^DD(60,16,21,1,0)="If blank, the minimum number of labels (accounting for required volume) is"
^DD(60,16,21,2,0)="generated.  Enter a positive number for extra copies, -1 if NO label is"
^DD(60,16,21,3,0)="desired."
^DD(60,16,"DT")="2840714"
^DD(60,17,0)="HIGHEST URGENCY ALLOWED^RP62.05'^LAB(62.05,^0;16^Q"
^DD(60,17,3)="Enter the urgency with the lowest number allowed for this test."
^DD(60,17,21,0)="^^2^2^2851121^^^^"
^DD(60,17,21,1,0)="The highest urgency allowed must be stored here."
^DD(60,17,21,2,0)="The smaller the number, the more urgent."
^DD(60,17,"DT")="2850513"
^DD(60,18,0)="FORCED URGENCY^P62.05'^LAB(62.05,^0;18^Q"
^DD(60,18,21,0)="^^2^2^2841031^^^"
^DD(60,18,21,1,0)="This specifies the default urgency status of this test."
^DD(60,18,21,2,0)="It points to the URGENCY file."
^DD(60,18,"DT")="2841022"
^DD(60,51,0)="PRINT NAME^RFX^^.1;1^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X I $D(X) K:$D(^LAB(60,""D"",X)) X"
^DD(60,51,1,0)="^.1^^0"
^DD(60,51,1,1,0)="60^D"
^DD(60,51,1,1,1)="S ^LAB(60,""D"",$E(X,1,30),DA)="""""
^DD(60,51,1,1,2)="K ^LAB(60,""D"",$E(X,1,30),DA)"
^DD(60,51,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(60,51,21,0)="^^1^1^2850830^^^^"
^DD(60,51,21,1,0)="Default test heading for cumulative results reports.  (May be different in LAB REPORTS file 64.5.)"
^DD(60,51,21,2,0)="in LAB REPORTS file 64.5)"
^DD(60,51,"DT")="2850215"
^DD(60,52,0)="Reserved^F^^.1;2^K:$L(X)>7!($L(X)<1) X"
^DD(60,52,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(60,52,21,0)="^^1^1^2841126^^"
^DD(60,52,21,1,0)="Reserved for future use."
^DD(60,53,0)="PRINT CODE^FX^^.1;3^K:$L(X)>240!($L(X)<2) X I $D(X) S X=""W ""_X D ^DIM I $D(X) S X=$E(X,3,256)"
^DD(60,53,3)="ANSWER MUST BE 2-240 CHARACTERS IN LENGTH, AND VALID MUMPS CODE"
^DD(60,53,21,0)="^^4^4^2841031^^^^"
^DD(60,53,21,1,0)="Represents MUMPS code for extraction or justification of the value that"
^DD(60,53,21,2,0)="is in the file.  It's particularly useful for displaying abbreviated"
^DD(60,53,21,3,0)="information for sets.  It could be used to append trailing zeros after a"
^DD(60,53,21,4,0)="decimal point."
^DD(60,53,"DT")="2841026"
^DD(60,54,0)="PRETTY PRINT ENTRY^F^^.1;4^K:$L(X)>8!($L(X)<1) X"
^DD(60,54,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(60,54,21,0)="^^2^2^2841031^^^^"
^DD(60,54,21,1,0)="This is the Pretty Print Routine (see next field) line entry point."
^DD(60,54,21,2,0)="Some programs have more than one entry to give a ""special"" display."
^DD(60,55,0)="PRETTY PRINT ROUTINE^F^^.1;5^K:$L(X)>8!($L(X)<1) X"
^DD(60,55,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(60,55,21,0)="^^3^3^2841031^^^^"
^DD(60,55,21,1,0)="If no entry is made, (and the test is type 'O'utput or 'B'oth), display"
^DD(60,55,21,2,0)="output from the [LRGEN] menu option is a general cumulative.  With a"
^DD(60,55,21,3,0)="program name here, [LRGEN] instead runs the alternate program for display."
^DD(60,56,0)="PRINT ORDER^NJ3,3^^.1;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(60,56,3)="TYPE A NUMBER BETWEEN 1 AND 999"
^DD(60,56,21,0)="^^1^1^2851211^^^"
^DD(60,56,21,1,0)="This is the print order of the test within its accession area."
^DD(60,64,0)="NATIONAL VA LAB CODE^P64'^LAM(^64;1^Q"
^DD(60,64,1,0)="^.1"
^DD(60,64,1,1,0)="60^AC"
^DD(60,64,1,1,1)="S ^LAB(60,""AC"",$E(X,1,30),DA)="""""
^DD(60,64,1,1,2)="K ^LAB(60,""AC"",$E(X,1,30),DA)"
^DD(60,64,1,1,"DT")="2950413"
^DD(60,64,1,2,0)="60^AD^MUMPS"
^DD(60,64,1,2,1)="S ^LAB(60,""AD"",DA,$E(X,1,30))="""""
^DD(60,64,1,2,2)="K ^LAB(60,""AD"",DA,$E(X,1,30))"
^DD(60,64,1,2,"DT")="2960818"
^DD(60,64,1,3,0)="60^AX4^MUMPS"
^DD(60,64,1,3,1)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,64,1,3,2)="N TEST S TEST=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60,64,1,3,"%D",0)="^^1^1^2971118^^^"
^DD(60,64,1,3,"%D",1,0)="Trigger update to CPRS."
^DD(60,64,1,3,"DT")="2971118"
^DD(60,64,3)="Enter the VA National Code that corresponds to this lab test."
^DD(60,64,21,0)="^.001^2^2^3050517^^"
^DD(60,64,21,1,0)="This field is used to map tests in file 60 to the VA National"
^DD(60,64,21,2,0)="Lab codes found in file 64."
^DD(60,64,"DT")="3050517"
^DD(60,64.1,0)="RESULT NLT CODE^P64'^LAM(^64;2^Q"
^DD(60,64.1,1,0)="^.1"
^DD(60,64.1,1,1,0)="60^AE^MUMPS"
^DD(60,64.1,1,1,1)="S ^LAB(60,""AE"",$P($G(^LAM(X,0)),U,2),DA)="""""
^DD(60,64.1,1,1,2)="K ^LAB(60,""AE"",$P($G(^LAM(X,0)),U,2),DA)"
^DD(60,64.1,1,1,"%D",0)="^^5^5^2970610^"
^DD(60,64.1,1,1,"%D",1,0)="This MUMPS cross reference is used for sorting LABORATORY TEST entries by"
^DD(60,64.1,1,1,"%D",2,0)="workload code number.  The format for the cross reference nodes is shown"
^DD(60,64.1,1,1,"%D",3,0)="below."
^DD(60,64.1,1,1,"%D",4,0)=" "
^DD(60,64.1,1,1,"%D",5,0)="       ^LAB(60,""AE"",Workload Code Number,IEN)="""""
^DD(60,64.1,1,1,"DT")="2970414"
^DD(60,64.1,3)="Enter the workload procedure code for this test."
^DD(60,64.1,4)=""
^DD(60,64.1,21,0)="^.001^2^2^3001229^^^"
^DD(60,64.1,21,1,0)="This is the workload procedure code associated with this test.  It is used"
^DD(60,64.1,21,2,0)="in compiling laboratory workload statistics."
^DD(60,64.1,"DT")="3010719"
^DD(60,64.2,0)="CATALOG ITEM^S^1:YES;0:NO;^64;3^Q"
^DD(60,64.2,3)="Answer Yes to include this item in the Electronic Catalog "
^DD(60,64.2,21,0)="^^2^2^2970529^"
^DD(60,64.2,21,1,0)="This field is used to indicate that this entry is to be included in the"
^DD(60,64.2,21,2,0)="Electronic Catalog."
^DD(60,64.2,"DT")="2970506"
^DD(60,98,0)="EDIT CODE^*P62.07'^LAB(62.07,^0;14^S DIC(""S"")=""I $P(^(0),U,3)=""""E"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(60,98,1,0)="^.1^^0"
^DD(60,98,12)="Only allow 'EDIT' type of the EXECUTE CODE file"
^DD(60,98,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""E"""""""
^DD(60,98,21,0)="^^1^1^2841031^^"
^DD(60,98,21,1,0)="Points to EXECUTE CODE file."
^DD(60,98,"DT")="2841126"
^DD(60,99.1,0)="*BATCH DATA CODE^P62.07'^LAB(62.07,^4;1^Q"
^DD(60,99.1,21,0)="^^1^1^2870503^^^"
^DD(60,99.1,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(60,99.1,"DT")="2840725"
^DD(60,99.2,0)="EXECUTE ON DATA REVIEW^*P62.07'X^LAB(62.07,^4;2^S DIC(""S"")=""I $P(^(0),U,3)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(60,99.2,12)="Only allow the use of data type code."
^DD(60,99.2,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""D"""""""
^DD(60,99.2,21,0)="^^1^1^2851101^"
^DD(60,99.2,21,1,0)="At the time a test or panel of tests is reviewed, the execute code is run."
^DD(60,99.2,"DT")="2860715"
^DD(60,100,0)="SITE/SPECIMEN^60.01P^^1;0"
^DD(60,100,21,0)="^^4^4^2940316^^^^"
^DD(60,100,21,1,0)="Processing specimen type for each entry in the Lab Collection Sample field."
^DD(60,100,21,2,0)="Example:  Sodium can be determined on serum and urine.  Entries in "
^DD(60,100,21,3,0)="this field are not appropriate (or even used) if the test is a panel of"
^DD(60,100,21,4,0)=" tests."
^DD(60,110,0)="GENERAL PROCESSING INST.^60.09^^7;0"
^DD(60,110,21,0)="^^1^1^2851230^^^"
^DD(60,110,21,1,0)="This may include any processing instructions pertinent to this test."
^DD(60,200,0)="LAB TEST INCLUDED IN PANEL^60.02P^^2;0"
^DD(60,200,21,0)="3^^3^3^2851211^^^"
^DD(60,200,21,1,0)="Enter only if this is a panel of other tests, e.g. if the ""Laboratory Test"""
^DD(60,200,21,2,0)="is ELECTROLYTES, the entries here might be, NA, CL, K, CO2.  If it's an"
^DD(60,200,21,3,0)="ADMIT PROFILE, they might be ELECTROLYTES, LIVER FUNCTION, CARDIAC ENZYMES."
^DD(60,300,0)="COLLECTION SAMPLE^60.03PAI^^3;0"
^DD(60,300,21,0)="^^3^3^2940316^^^^"
^DD(60,300,21,1,0)="Enter the appropriate collection sample(s) for standard processing in the"
^DD(60,300,21,2,0)="lab.  These are the common names that the phlebotomists and ward personnel"
^DD(60,300,21,3,0)="would recognize.  The first entry is the ""default"" collection sample."
^DD(60,310,0)="GENERAL WARD INSTRUCTIONS^60.08^^6;0"
^DD(60,310,21,0)="^^2^2^2850725^^^^"
^DD(60,310,21,1,0)="Text to be seen by the ward each time the test is ordered regardless of"
^DD(60,310,21,2,0)="the type of collection sample."
^DD(60,320,0)="REQUIRED COMMENT^*P62.07'^LAB(62.07,^0;19^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(60,320,12)="ONLY ALLOW COMMENTS CODE"
^DD(60,320,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(60,320,21,0)="^^1^1^2850725^"
^DD(60,320,21,1,0)="Points to EXECUTE CODE file."
^DD(60,320,"DT")="2841204"
^DD(60,400,0)="DATA NAME^*P63'X^DD(63.04,^.2;1^S DIC(""S"")=""I Y>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S Y=$O(^LAB(60,""C"",""CH;""_X_"";1"",0)) I Y>0 W !,*7,""  WILL PRINT AS "",$P(^LAB(60,Y,0),U,1)"
^DD(60,400,1,0)="^.1"
^DD(60,400,1,1,0)="^^TRIGGER^60^5"
^DD(60,400,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(60,400,1,1,1.1) X ^DD(60,400,1,1,1.4)"
^DD(60,400,1,1,1.1)="S X=DIV S X=""CH;""_$P(^DD(63.04,DIV,0),""^"",4)"
^DD(60,400,1,1,1.4)="S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60,400,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S X="""" X ^DD(60,400,1,1,2.4)"
^DD(60,400,1,1,2.4)="S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60,400,1,1,"CREATE VALUE")="S X=""CH;""_$P(^DD(63.04,DIV,0),""^"",4)"
^DD(60,400,1,1,"DELETE VALUE")="@"
^DD(60,400,1,1,"FIELD")="LOCATION"
^DD(60,400,1,2,0)="^^TRIGGER^60^13"
^DD(60,400,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12) S DIU=X K Y X ^DD(60,400,1,2,1.1) X ^DD(60,400,1,2,1.4)"
^DD(60,400,1,2,1.1)="S X=DIV S X=""DD(63.04,""_DIV_"","""
^DD(60,400,1,2,1.4)="S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U"" S %=$P(DIH,U,13,999),^(0)=$P(DIH,U,1,11)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60,400,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(60,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12) S DIU=X K Y S X=DIV S X="""" X ^DD(60,400,1,2,2.4)"
^DD(60,400,1,2,2.4)="S DIH=$S($D(^LAB(60,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,11,99))  S DIH=DIH_U"" S %=$P(DIH,U,13,999),^(0)=$P(DIH,U,1,11)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60,400,1,2,"CREATE VALUE")="S X=""DD(63.04,""_DIV_"","""
^DD(60,400,1,2,"DELETE VALUE")="@"
^DD(60,400,1,2,"FIELD")="FIELD"
^DD(60,400,12)="THIS IS TO GET ONLY TEST NAMES"
^DD(60,400,12.1)="S DIC(""S"")=""I Y>1"""
^DD(60,400,21,0)="^^4^4^2860606^^^^"
^DD(60,400,21,1,0)="If the test is a panel, skip this entry!  If it is an individual test,"
^DD(60,400,21,2,0)="AND IS PART OF THE CHEM, HEM, TOX, SER, RIA, ETC. area, in order to"
^DD(60,400,21,3,0)="be able to ENTER results, must have an entry!  Micro, Blood Bank,"
^DD(60,400,21,4,0)="Anatomic Path, excluded."
^DD(60,400,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(60,400,"DT")="2850215"
^DD(60,410,0)="INPUT TRANSFORM^CJ75^^ ; ^S X=$P(^LAB(60,D0,0),U,12) I X]"""" S Y=@(U_X_""0)""),X=$S($P(Y,U,2)[""S"":$P(Y,U,3),1:$P(Y,U,5,99))"
^DD(60,410,9)="^"
^DD(60,410,9.01)=""
^DD(60,410,9.1)="S X=$P(^(0),U,12),X=$P(@(X_""0)""),U,5,99)"
^DD(60,410,21,0)="^^1^1^2851101^^"
^DD(60,410,21,1,0)="Computed field."
^DD(60,411,0)="DATA TYPE^CJ9^^ ; ^S X=$P(^LAB(60,D0,0),U,12) I X]"""" S X=$P(@(U_X_""0)""),U,2),X=$S(X[""F"":""FREE TEXT"",X[""N"":""NUMERIC"",X[""S"":""SET"",1:""OTHER"")"
^DD(60,411,9)="^"
^DD(60,411,9.01)=""
^DD(60,411,9.1)="S X=$P(^(0),U,12),X=$P(@(U_X_""0)""),U,2),X=$S(X[""F"":""FREE TEXT"",X[""N"":""NUMERIC"",X[""S"":""SET"",1:""OTHER"")"
^DD(60,411,21,0)="^^1^1^2851101^^"
^DD(60,411,21,1,0)="Computed field."
^DD(60,412,0)="CULTURE ID PREFIX^NJ1,0^^0;21^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(60,412,3)="Number from 0-9 inclusive. ie 0=culture & susep 1= gram stain, etc."
^DD(60,412,21,0)="^^4^4^2911203^^^^"
^DD(60,412,21,1,0)=" Used by the Vitek to make the accession number unique for down load."
^DD(60,412,21,2,0)="  This number should be zero to nine. This number is appended to the "
^DD(60,412,21,3,0)="front of the accession number."
^DD(60,412,21,4,0)="   If there is no entry in this field, this test will not be downloaded."
^DD(60,412,"DT")="2890717"
^DD(60,500,0)="VERIFY WKLD CODE^60.12IP^^9;0"
^DD(60,500,21,0)="^^2^2^2940316^^^^"
^DD(60,500,21,1,0)="The College of American Pathologists Workload codes for"
^DD(60,500,21,2,0)=" the test/procedure are entered here."
^DD(60,500,"DT")="2910225"
^DD(60,500.1,0)="ACCESSION WKLD CODE^60.13IP^^9.1;0"
^DD(60,500.1,21,0)="^^2^2^2940316^^^^"
^DD(60,500.1,21,1,0)=" This subfile holds the WKLD codes to be credited during the accession"
^DD(60,500.1,21,2,0)="process."
^DD(60,500.1,23,0)="^^3^3^2940316^^"
^DD(60,500.1,23,1,0)=" Note: None of the suffixes are changed in this sub file. Only those"
^DD(60,500.1,23,2,0)="WKLD codes found in the verification WKLD code sub file have the potential"
^DD(60,500.1,23,3,0)="to have the suffix changed."
^DD(60,500.1,"DT")="2910225"
^DD(60,501,0)="*ASK AMIS/CAP CODES^S^1:YES;^0;2^Q"
^DD(60,501,21,0)="^^3^3^2911118^^^^"
^DD(60,501,21,1,0)=" This field is not longer used by AMIS/WORKLOAD. It will be made obsolete with"
^DD(60,501,21,2,0)="V5.2 and will be deleted in later release. Consult the section on workload"
^DD(60,501,21,3,0)="in your implementation guide."
^DD(60,501,"DT")="2910307"
^DD(60,503,0)="COMBINE TEST DURING ORDER^S^1:NO;0:YES;^0;20^Q"
^DD(60,503,3)="Should this test be combined with any other test during order ?"
^DD(60,503,21,0)="^^3^3^2881214^^"
^DD(60,503,21,1,0)="   This field works in conjunction with combine test field in 69.9"
^DD(60,503,21,2,0)="If you do not want this to be combined with any other test answer"
^DD(60,503,21,3,0)="  NO --- A NULL ANSWER MEANS YES"
^DD(60,503,"DT")="2881214"
^DD(60,504,0)="CIS TEST CODE^F^^10;1^K:$L(X)>5!($L(X)<5) X"
^DD(60,504,1,0)="^.1^^0"
^DD(60,504,3)="Answer must be 5 characters in the following format AAnnn (AA001)"
^DD(60,504,21,0)="^^4^4^2911118^"
^DD(60,504,21,1,0)=" This field is used by Clinical Information System such as those"
^DD(60,504,21,2,0)="found in MICU. This field is not used with the laboratory package it"
^DD(60,504,21,3,0)="self but is a special field for interface with external system computer"
^DD(60,504,21,4,0)="systems."
^DD(60,504,"DT")="2900326"
^DD(60,505,0)="SITE NOTES DATE^60.0505D^^11;0"
^DD(60,505,21,0)="^^1^1^2930912^^"
^DD(60,505,21,1,0)=" This is the date of this particular note."
^DD(60,506,0)="DEFAULT SITE/SPECIMEN CPT^P81'^ICPT(^1.1;1^Q"
^DD(60,506,3)=""
^DD(60,506,21,0)="^.001^5^5^3060318^^^"
^DD(60,506,21,1,0)="If a CPT cannot be determined by the SPECIMEN CPT (#96) field within the "
^DD(60,506,21,2,0)="SITE/SPECIMEN (#100) multiple, or by the HCPCS CODE (#507) field, or by"
^DD(60,506,21,3,0)="locating an active CPT Code in the WKLD CODE file (#64) entry pointed to"
^DD(60,506,21,4,0)="by the NATIONAL VA LAB CODE (#64) field, then the CPT in this field is"
^DD(60,506,21,5,0)="the default."
^DD(60,506,"DT")="3041105"
^DD(60,507,0)="HCPCS CODE^P81'^ICPT(^1.1;2^Q"
^DD(60,507,3)=""
^DD(60,507,21,0)="^^10^10^3041105^"
^DD(60,507,21,1,0)="HCFA Common Procedure Coding System (HCPCS) is a coding system that is "
^DD(60,507,21,2,0)="composed of Level I codes (CPT codes), Level II codes (national codes),"
^DD(60,507,21,3,0)="and Level III codes (local codes). Level I (CPT) codes are five digit"
^DD(60,507,21,4,0)="numeric codes that describe procedures and tests. CPT codes are developed "
^DD(60,507,21,5,0)="and maintained by the AMA with annual updates. Level II (national) codes "
^DD(60,507,21,6,0)="are five digit alpha numeric codes that describe pharmaceuticals,"
^DD(60,507,21,7,0)="supplies, procedures, tests and services. Level II codes are developed and"
^DD(60,507,21,8,0)="maintained by CMS with quarterly updates. Level III (local) codes are five"
^DD(60,507,21,9,0)="digit alpha numeric codes that are being phased out by the fiscal "
^DD(60,507,21,10,0)="intermediaries."
^DD(60,507,"DT")="3041105"
^DD(60,508,0)="AMA COMPLIANT/BILLABLE PANEL^S^0:No;1:Yes;^12;1^Q"
^DD(60,508,21,0)="^.001^15^15^3050824^^"
^DD(60,508,21,1,0)="If this panel test is an AMA compliant or otherwise billable panel,"
^DD(60,508,21,2,0)="enter a 'Yes' in this field.  If this field is set to 'Yes' and a valid "
^DD(60,508,21,3,0)="CPT code is on file, the CPT code for the panel will be sent to PCE for "
^DD(60,508,21,4,0)="billing purposes as a bundled panel."
^DD(60,508,21,5,0)=" "
^DD(60,508,21,6,0)="If this field is set to 'No', the panel will be unbundled into it's "
^DD(60,508,21,7,0)="individual atomic tests and the CPT codes for those atomic tests will be "
^DD(60,508,21,8,0)="sent to PCE for billing purposes."
^DD(60,508,21,9,0)=" "
^DD(60,508,21,10,0)="Note: This field is only functional for a panel test. This field is "
^DD(60,508,21,11,0)="ignored for an atomic test."
^DD(60,508,21,12,0)=" "
^DD(60,508,21,13,0)="Refer to the Clinical Indicator Data Capture (CIDC) implementation"
^DD(60,508,21,14,0)="guide for further instruction for managing this field."
^DD(60,508,21,15,0)=""
^DD(60,508,"DT")="3060303"
^DD(60,"B","*ASK AMIS/CAP CODES",501)=""
^DD(60,"B","*BATCH DATA CODE",99.1)=""
^DD(60,"B","*QUICK INDEX",15)=""
^DD(60,"B","ACCESSION AREA",6)=""
^DD(60,"B","ACCESSION WKLD CODE",500.1)=""
^DD(60,"B","AMA COMPLIANT/BILLABLE PANEL",508)=""
^DD(60,"B","CATALOG ITEM",64.2)=""
^DD(60,"B","CIS TEST CODE",504)=""
^DD(60,"B","COLLECTION SAMPLE",300)=""
^DD(60,"B","COMBINE TEST DURING ORDER",503)=""
^DD(60,"B","CULTURE ID PREFIX",412)=""
^DD(60,"B","DATA NAME",400)=""
^DD(60,"B","DATA TYPE",411)=""
^DD(60,"B","DEFAULT SITE/SPECIMEN CPT",506)=""
^DD(60,"B","EDIT CODE",98)=""
^DD(60,"B","EXECUTE ON DATA REVIEW",99.2)=""
^DD(60,"B","EXTRA LABELS",16)=""
^DD(60,"B","FIELD",13)=""
^DD(60,"B","FORCED URGENCY",18)=""
^DD(60,"B","GENERAL PROCESSING INST.",110)=""
^DD(60,"B","GENERAL WARD INSTRUCTIONS",310)=""
^DD(60,"B","HCPCS CODE",507)=""
^DD(60,"B","HIGHEST URGENCY ALLOWED",17)=""
^DD(60,"B","INPUT TRANSFORM",410)=""
^DD(60,"B","LAB COLLECTION SAMPLE",9)=""
^DD(60,"B","LAB TEST INCLUDED IN PANEL",200)=""
^DD(60,"B","LOCATION (DATA NAME)",5)=""
^DD(60,"B","NAME",.01)=""
^DD(60,"B","NATIONAL VA LAB CODE",64)=""
^DD(60,"B","PRETTY PRINT ENTRY",54)=""
^DD(60,"B","PRETTY PRINT ROUTINE",55)=""
^DD(60,"B","PRINT CODE",53)=""
^DD(60,"B","PRINT NAME",51)=""
^DD(60,"B","PRINT ORDER",56)=""
^DD(60,"B","PROCEDURE (SNOMED)",14)=""
^DD(60,"B","REQUIRED COMMENT",320)=""
^DD(60,"B","REQUIRED TEST",10)=""
^DD(60,"B","RESULT NLT CODE",64.1)=""
^DD(60,"B","Reserved",52)=""
^DD(60,"B","SITE NOTES DATE",505)=""
^DD(60,"B","SITE/SPECIMEN",100)=""
^DD(60,"B","SUBSCRIPT",4)=""
^DD(60,"B","SYNONYM",2)=""
^DD(60,"B","TEST COST",1)=""
^DD(60,"B","TYPE",3)=""
^DD(60,"B","UNIQUE ACCESSION #",7)=""
^DD(60,"B","UNIQUE COLLECTION SAMPLE",8)=""
^DD(60,"B","VERIFY WKLD CODE",500)=""
^DD(60,"GL",0,1,.01)=""
^DD(60,"GL",0,2,501)=""
^DD(60,"GL",0,3,3)=""
^DD(60,"GL",0,4,4)=""
^DD(60,"GL",0,5,5)=""
^DD(60,"GL",0,7,7)=""
^DD(60,"GL",0,8,8)=""
^DD(60,"GL",0,9,9)=""
^DD(60,"GL",0,10,14)=""
^DD(60,"GL",0,11,1)=""
^DD(60,"GL",0,12,13)=""
^DD(60,"GL",0,13,15)=""
^DD(60,"GL",0,14,98)=""
^DD(60,"GL",0,15,16)=""
^DD(60,"GL",0,16,17)=""
^DD(60,"GL",0,17,10)=""
^DD(60,"GL",0,18,18)=""
^DD(60,"GL",0,19,320)=""
^DD(60,"GL",0,20,503)=""
^DD(60,"GL",0,21,412)=""
^DD(60,"GL",.1,1,51)=""
^DD(60,"GL",.1,2,52)=""
^DD(60,"GL",.1,3,53)=""
^DD(60,"GL",.1,4,54)=""
^DD(60,"GL",.1,5,55)=""
^DD(60,"GL",.1,6,56)=""
^DD(60,"GL",.2,1,400)=""
^DD(60,"GL",1,0,100)=""
^DD(60,"GL",1.1,1,506)=""
^DD(60,"GL",1.1,2,507)=""
^DD(60,"GL",2,0,200)=""
^DD(60,"GL",3,0,300)=""
^DD(60,"GL",4,1,99.1)=""
^DD(60,"GL",4,2,99.2)=""
^DD(60,"GL",5,0,2)=""
^DD(60,"GL",6,0,310)=""
^DD(60,"GL",7,0,110)=""
^DD(60,"GL",8,0,6)=""
^DD(60,"GL",9,0,500)=""
^DD(60,"GL",9.1,0,500.1)=""
^DD(60,"GL",10,1,504)=""
^DD(60,"GL",11,0,505)=""
^DD(60,"GL",12,1,508)=""
^DD(60,"GL",64,1,64)=""
^DD(60,"GL",64,2,64.1)=""
^DD(60,"GL",64,3,64.2)=""
^DD(60,"IX",.01)=""
^DD(60,"IX",1)=""
^DD(60,"IX",3)=""
^DD(60,"IX",4)=""
^DD(60,"IX",5)=""
^DD(60,"IX",51)=""
^DD(60,"IX",64)=""
^DD(60,"IX",64.1)=""
^DD(60,"IX",400)=""
^DD(60,"RQ",.01)=""
^DD(60,"RQ",3)=""
^DD(60,"RQ",17)=""
^DD(60,"RQ",51)=""
^DD(60,"SB",60.01,100)=""
^DD(60,"SB",60.02,200)=""
^DD(60,"SB",60.03,300)=""
^DD(60,"SB",60.0505,505)=""
^DD(60,"SB",60.08,310)=""
^DD(60,"SB",60.09,110)=""
^DD(60,"SB",60.1,2)=""
^DD(60,"SB",60.11,6)=""
^DD(60,"SB",60.12,500)=""
^DD(60,"SB",60.13,500.1)=""
^DD(60.01,0)="SITE/SPECIMEN SUB-FIELD^NL^95.3^17"
^DD(60.01,0,"DT")="2931123"
^DD(60.01,0,"IX","AC",60.2,.01)=""
^DD(60.01,0,"IX","B",60.01,.01)=""
^DD(60.01,0,"NM","SITE/SPECIMEN")=""
^DD(60.01,0,"UP")="60"
^DD(60.01,.01,0)="SITE/SPECIMEN^MP61'X^LAB(61,^0;1^S %A=$P(^LAB(60,DA(1),0),U,5) K:'$L(%A) X I $D(X) S DINUM=X,%A=$O(^LAB(60,""C"",%A,0)) I %A'=DA(1) K X,DINUM W !,""Site/specimens may only be added for "",$P(^LAB(60,%A,0),U,1)"
^DD(60.01,.01,1,0)="^.1"
^DD(60.01,.01,1,1,0)="60.01^B"
^DD(60.01,.01,1,1,1)="S ^LAB(60,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(60.01,.01,1,1,2)="K ^LAB(60,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(60.01,.01,3)="To enter a Site/specimen, a Data name must be entered."
^DD(60.01,.01,21,0)="^^3^3^2850318^^^^"
^DD(60.01,.01,21,1,0)="Processing specimen type for each entry in the Lab Collection Sample field."
^DD(60.01,.01,21,2,0)="Example:  Sodium can be determined on serum and urine."
^DD(60.01,.01,21,3,0)="To enter a Site/specimen, a Data name must be entered."
^DD(60.01,.01,"DT")="2850318"
^DD(60.01,1,0)="REFERENCE LOW^FX^^0;2^K:$L(X)>50!($E(X,1)?1A)!(X[""^"") X I $D(X) S X=""S X=""_X D ^DIM Q:'$D(X)  S X=$P(X,""="",2,99)"
^DD(60.01,1,3)="ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE ""QUOTES"" AROUND TEXT)"
^DD(60.01,1,21,0)="^.001^16^16^3070301^^"
^DD(60.01,1,21,1,0)="This is the user entered reference low value for this test."
^DD(60.01,1,21,2,0)="If both the low and high are defined it will print in this manner:"
^DD(60.01,1,21,3,0)="        low : 10"
^DD(60.01,1,21,4,0)="        high : 50"
^DD(60.01,1,21,5,0)="If only the low is defined and it is numeric it will print in this"
^DD(60.01,1,21,6,0)="manner:"
^DD(60.01,1,21,7,0)="        low: 10"
^DD(60.01,1,21,8,0)="If only the low is defined and it is alphanumeric it will print in "
^DD(60.01,1,21,9,0)="this manner:"
^DD(60.01,1,21,10,0)="        NORMAL"
^DD(60.01,1,21,11,0)="If only the high is defined and it is numeric it will print in this "
^DD(60.01,1,21,12,0)="manner:"
^DD(60.01,1,21,13,0)="        high: 50"
^DD(60.01,1,21,14,0)="If only the high is defined and it is alphanumeric it will print in"
^DD(60.01,1,21,15,0)="this manner:"
^DD(60.01,1,21,16,0)="        >1000"
^DD(60.01,1,"DT")="3070124"
^DD(60.01,2,0)="REFERENCE HIGH^FX^^0;3^K:$L(X)>50!($E(X,1)?1A)!(X[""^"") X I $D(X) S X=""S X=""_X D ^DIM Q:'$D(X)  S X=$P(X,""="",2,99)"
^DD(60.01,2,3)="ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE ""QUOTES"" AROUND TEXT)"
^DD(60.01,2,21,0)="^^16^16^3070124^"
^DD(60.01,2,21,1,0)="This is the user entered reference high value for this test."
^DD(60.01,2,21,2,0)="If both the low and high are defined it will print in this manner:"
^DD(60.01,2,21,3,0)="        low : 10"
^DD(60.01,2,21,4,0)="        high : 50"
^DD(60.01,2,21,5,0)="If only the low is defined and it is numeric it will print in this"
^DD(60.01,2,21,6,0)="manner: "
^DD(60.01,2,21,7,0)="        low: 10"
^DD(60.01,2,21,8,0)="If only the low is defined and it is alphanumeric it will print in "
^DD(60.01,2,21,9,0)="this manner:"
^DD(60.01,2,21,10,0)="        NORMAL"
^DD(60.01,2,21,11,0)="If only the high is defined and it is numeric it will print in this "
^DD(60.01,2,21,12,0)="manner:"
^DD(60.01,2,21,13,0)="        high: 50"
^DD(60.01,2,21,14,0)="If only the high is defined and it is alphanumeric it will print in"
^DD(60.01,2,21,15,0)="this manner:"
^DD(60.01,2,21,16,0)="        >1000"
^DD(60.01,2,"DT")="3070124"
^DD(60.01,3,0)="CRITICAL LOW^FX^^0;4^K:$L(X)>50!($E(X,1)?1A)!(X[""^"") X I $D(X) S X=""S X=""_X D ^DIM Q:'$D(X)  S X=$P(X,""="",2,99)"
^DD(60.01,3,3)="ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE ""QUOTES"" AROUND TEXT)"
^DD(60.01,3,21,0)="^^17^17^3070124^"
^DD(60.01,3,21,1,0)="This is the user entered critical low value for this test."
^DD(60.01,3,21,2,0)="Used to flag results."
^DD(60.01,3,21,3,0)="If both the low and high are defined it will print in this manner:"
^DD(60.01,3,21,4,0)="        low : 10"
^DD(60.01,3,21,5,0)="        high : 50"
^DD(60.01,3,21,6,0)="If only the low is defined and it is numeric it will print in this"
^DD(60.01,3,21,7,0)="manner: "
^DD(60.01,3,21,8,0)="        low: 10"
^DD(60.01,3,21,9,0)="If only the low is defined and it is alphanumeric it will print in "
^DD(60.01,3,21,10,0)="this manner:"
^DD(60.01,3,21,11,0)="        NORMAL"
^DD(60.01,3,21,12,0)="If only the high is defined and it is numeric it will print in this "
^DD(60.01,3,21,13,0)="manner:"
^DD(60.01,3,21,14,0)="        high: 50"
^DD(60.01,3,21,15,0)="If only the high is defined and it is alphanumeric it will print in"
^DD(60.01,3,21,16,0)="this manner:"
^DD(60.01,3,21,17,0)="        >1000"
^DD(60.01,3,"DT")="3070124"
^DD(60.01,4,0)="CRITICAL HIGH^FX^^0;5^K:$L(X)>50!($E(X,1)?1A)!(X[""^"") X I $D(X) S X=""S X=""_X D ^DIM Q:'$D(X)  S X=$P(X,""="",2,99)"
^DD(60.01,4,3)="ANSWER MUST BE 0-50 CHARACTERS IN LENGTH (USE ""QUOTES"" AROUND TEXT)"
^DD(60.01,4,21,0)="^^16^16^3070124^"
^DD(60.01,4,21,1,0)="This is the user entered critical high value of this test.  Used to flag results."
^DD(60.01,4,21,2,0)="If both the low and high are defined it will print in this manner:"
^DD(60.01,4,21,3,0)="        low : 10"
^DD(60.01,4,21,4,0)="        high : 50"
^DD(60.01,4,21,5,0)="If only the low is defined and it is numeric it will print in this"
^DD(60.01,4,21,6,0)="manner: "
^DD(60.01,4,21,7,0)="        low: 10"
^DD(60.01,4,21,8,0)="If only the low is defined and it is alphanumeric it will print in "
^DD(60.01,4,21,9,0)="this manner:"
^DD(60.01,4,21,10,0)="        NORMAL"
^DD(60.01,4,21,11,0)="If only the high is defined and it is numeric it will print in this "
^DD(60.01,4,21,12,0)="manner:"
^DD(60.01,4,21,13,0)="        high: 50"
^DD(60.01,4,21,14,0)="If only the high is defined and it is alphanumeric it will print in"
^DD(60.01,4,21,15,0)="this manner:"
^DD(60.01,4,21,16,0)="        >1000"
^DD(60.01,4,"DT")="3070124"
^DD(60.01,5.5,0)="INTERPRETATION^60.07A^^1;0"
^DD(60.01,5.5,21,0)="^^1^1^2850830^^^^"
^DD(60.01,5.5,21,1,0)="Enter any remark to accompany EVERY test result. These remarks may be edited and formatted with the FileMan text editor.  The text may be other range information, special conditions, etc."
^DD(60.01,5.5,21,2,0)="edited and formatted with the FileMan text editor."
^DD(60.01,5.5,21,3,0)="The text may be other range information, special conditions, etc."
^DD(60.01,6,0)="UNITS^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(60.01,6,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(60.01,6,21,0)="^^2^2^2841031^^"
^DD(60.01,6,21,1,0)="UNITS represents such things as grams, number of items per cubic millimeter,"
^DD(60.01,6,21,2,0)="or microliter."
^DD(60.01,7,0)="TYPE OF DELTA CHECK^P62.1^LAB(62.1,^0;8^Q"
^DD(60.01,7,3)=""
^DD(60.01,7,21,0)="^^1^1^2841031^"
^DD(60.01,7,21,1,0)="Points to DELTA CHECK file."
^DD(60.01,8,0)="DELTA VALUE^F^^0;9^K:$L(X)>7!($L(X)<1) X"
^DD(60.01,8,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(60.01,8,21,0)="^^1^1^2841031^^"
^DD(60.01,8,21,1,0)="DELTA VALUE is the value that is passed to the Delta Check Code."
^DD(60.01,9,0)="DEFAULT VALUE^FX^^0;10^S %X=U_$P(^LAB(60,DA(1),0),U,12)_""0)"" K:'$D(@%X) X Q:'$D(X)  S %X=@%X X:$P(%X,U,2)'[""S"" $P(%X,U,5,99) Q:'$D(X)!($P(%X,U,2)'[""S"")  S %X="";""_$P(%X,U,3) K:'(%X[("";""_X_"":"")) X"
^DD(60.01,9,3)="ANSWER MUST MATCH APPROPRIATE INPUT IN 'LAB DATA' FILE"
^DD(60.01,9,4)="S LRXDP=$P(^LAB(60,D0,0),U,12) I $L(LRXDP) S LRXDP=U_LRXDP_""0)"" I $D(@LRXDP) S LRXDP=@LRXDP W:$D(^(3)) ^(3) D:$P(LRXDP,U,2)[""S"" LRSET^LRVER5"
^DD(60.01,9,21,0)="^^2^2^2841031^^^^"
^DD(60.01,9,21,1,0)="Leave blank or enter the most common (say, >80% of the time) response for"
^DD(60.01,9,21,2,0)="the test."
^DD(60.01,9,"DT")="2841207"
^DD(60.01,9.2,0)="THERAPEUTIC LOW^FX^^0;11^K:$L(X)>30!($L(X)<1)!(X[""^"") X I $D(X) S X=""S X=""_X D ^DIM I $D(X) S X=$E(X,5,256)"
^DD(60.01,9.2,3)="ENTER LOW END OF THERAPEUTIC RANGE (USE ""QUOTES"" AROUND TEXT)"
^DD(60.01,9.2,21,0)="^^16^16^3070124^"
^DD(60.01,9.2,21,1,0)="This is the low end value of the therapeutic range.  Used to flag results."
^DD(60.01,9.2,21,2,0)="If both the low and high are defined it will print in this manner:"
^DD(60.01,9.2,21,3,0)="        low : 10"
^DD(60.01,9.2,21,4,0)="        high : 50"
^DD(60.01,9.2,21,5,0)="If only the low is defined and it is numeric it will print in this"
^DD(60.01,9.2,21,6,0)="manner: "
^DD(60.01,9.2,21,7,0)="        low: 10"
^DD(60.01,9.2,21,8,0)="If only the low is defined and it is alphanumeric it will print in "
^DD(60.01,9.2,21,9,0)="this manner:"
^DD(60.01,9.2,21,10,0)="        NORMAL"
^DD(60.01,9.2,21,11,0)="If only the high is defined and it is numeric it will print in this "
^DD(60.01,9.2,21,12,0)="manner:"
^DD(60.01,9.2,21,13,0)="        high: 50"
^DD(60.01,9.2,21,14,0)="If only the high is defined and it is alphanumeric it will print in"
^DD(60.01,9.2,21,15,0)="this manner:"
^DD(60.01,9.2,21,16,0)="        >1000"
^DD(60.01,9.2,"DT")="3070124"
^DD(60.01,9.3,0)="THERAPEUTIC HIGH^FX^^0;12^K:$L(X)>30!($L(X)<1)!(X[""^"") X I $D(X) S X=""S X=""_X D ^DIM I $D(X) S X=$E(X,5,256)"
^DD(60.01,9.3,3)="ENTER HIGH END OF THERAPEUTIC RANGE (USE ""QUOTES"" AROUND TEXT)"
^DD(60.01,9.3,21,0)="^^16^16^3070124^"
^DD(60.01,9.3,21,1,0)="This is the high end value of the therapeutic range.  Used to flag results."
^DD(60.01,9.3,21,2,0)="If both the low and high are defined it will print in this manner:"
^DD(60.01,9.3,21,3,0)="        low : 10"
^DD(60.01,9.3,21,4,0)="        high : 50"
^DD(60.01,9.3,21,5,0)="If only the low is defined and it is numeric it will print in this"
^DD(60.01,9.3,21,6,0)="manner: "
^DD(60.01,9.3,21,7,0)="        low: 10"
^DD(60.01,9.3,21,8,0)="If only the low is defined and it is alphanumeric it will print in "
^DD(60.01,9.3,21,9,0)="this manner:"
^DD(60.01,9.3,21,10,0)="        NORMAL"
^DD(60.01,9.3,21,11,0)="If only the high is defined and it is numeric it will print in this "
^DD(60.01,9.3,21,12,0)="manner:"
^DD(60.01,9.3,21,13,0)="        high: 50"
^DD(60.01,9.3,21,14,0)="If only the high is defined and it is alphanumeric it will print in"
^DD(60.01,9.3,21,15,0)="this manner:"
^DD(60.01,9.3,21,16,0)="        >1000"
^DD(60.01,9.3,"DT")="3070124"
^DD(60.01,10,0)="*AMIS/RCS 14-4^60.06PA^^2;0"
^DD(60.01,10,21,0)="^^1^1^2940316^^^^"
^DD(60.01,10,21,1,0)="No longer used.  Will be deleted after this version "
^DD(60.01,13,0)="USE FOR REFERENCE TESTING^S^0:NO;1:YES;^.1;1^Q"
^DD(60.01,13,3)="Should reference values/units for this specimen type also be used for reference lab results."
^DD(60.01,13,21,0)="^.001^3^3^3030212^^"
^DD(60.01,13,21,1,0)="Indicates if the reference ranges and units associated with this"
^DD(60.01,13,21,2,0)="specimen type can be used when manually entering results of testing"
^DD(60.01,13,21,3,0)="performed at another laboratory."
^DD(60.01,13,"DT")="3030211"
^DD(60.01,20,0)="FOREIGN COMPUTER SYSTEM^60.2^^4;0"
^DD(60.01,20,21,0)="^^1^1^2940510^^^"
^DD(60.01,20,21,1,0)="Reserved for future use. Do not use."
^DD(60.01,95.3,0)="LOINC CODE^P95.3'O^LAB(95.3,^95.3;1^Q"
^DD(60.01,95.3,1,0)="^.1"
^DD(60.01,95.3,1,1,0)="60^AF"
^DD(60.01,95.3,1,1,1)="S ^LAB(60,""AF"",$E(X,1,30),DA(1),DA)="""""
^DD(60.01,95.3,1,1,2)="K ^LAB(60,""AF"",$E(X,1,30),DA(1),DA)"
^DD(60.01,95.3,1,1,"%D",0)="^^2^2^2981124^"
^DD(60.01,95.3,1,1,"%D",1,0)=" This cross reference is used to determine which entries and specimens"
^DD(60.01,95.3,1,1,"%D",2,0)="have been mapped/linked to LOINC Codes."
^DD(60.01,95.3,1,1,"DT")="2981124"
^DD(60.01,95.3,1,2,0)="60^AG^MUMPS"
^DD(60.01,95.3,1,2,1)="S ^LAB(60,""AG"",DA(1),DA,$E(X,1,30))="""""
^DD(60.01,95.3,1,2,2)="K ^LAB(60,""AG"",DA(1),DA,$E(X,1,30))"
^DD(60.01,95.3,1,2,"%D",0)="^^2^2^2981124^"
^DD(60.01,95.3,1,2,"%D",1,0)="This X-Ref is used to determine which lab test and specimen combination"
^DD(60.01,95.3,1,2,"%D",2,0)="has been mapped/linked to a LOINC code."
^DD(60.01,95.3,1,2,"DT")="2981124"
^DD(60.01,95.3,2)="S Y(0)=Y I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(60.01,95.3,2.1)="I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(60.01,95.3,21,0)="^^1^1^2981124^"
^DD(60.01,95.3,21,1,0)=" This field contains the pointer to the LAB LOINC (#95.3) file. "
^DD(60.01,95.3,"DT")="3011211"
^DD(60.01,96,0)="SPECIMEN CPT^60.196P^^3;0"
^DD(60.01,"B","*AMIS/RCS 14-4",10)=""
^DD(60.01,"B","CRITICAL HIGH",4)=""
^DD(60.01,"B","CRITICAL LOW",3)=""
^DD(60.01,"B","DEFAULT VALUE",9)=""
^DD(60.01,"B","DELTA VALUE",8)=""
^DD(60.01,"B","FOREIGN COMPUTER SYSTEM",20)=""
^DD(60.01,"B","INTERPRETATION",5.5)=""
^DD(60.01,"B","LOINC CODE",95.3)=""
^DD(60.01,"B","REFERENCE HIGH",2)=""
^DD(60.01,"B","REFERENCE LOW",1)=""
^DD(60.01,"B","SITE/SPECIMEN",.01)=""
^DD(60.01,"B","SPECIMEN CPT",96)=""
^DD(60.01,"B","THERAPEUTIC HIGH",9.3)=""
^DD(60.01,"B","THERAPEUTIC LOW",9.2)=""
^DD(60.01,"B","TYPE OF DELTA CHECK",7)=""
^DD(60.01,"B","UNITS",6)=""
^DD(60.01,"B","USE FOR REFERENCE TESTING",13)=""
^DD(60.01,"GL",0,1,.01)=""
^DD(60.01,"GL",0,2,1)=""
^DD(60.01,"GL",0,3,2)=""
^DD(60.01,"GL",0,4,3)=""
^DD(60.01,"GL",0,5,4)=""
^DD(60.01,"GL",0,7,6)=""
^DD(60.01,"GL",0,8,7)=""
^DD(60.01,"GL",0,9,8)=""
^DD(60.01,"GL",0,10,9)=""
^DD(60.01,"GL",0,11,9.2)=""
^DD(60.01,"GL",0,12,9.3)=""
^DD(60.01,"GL",.1,1,13)=""
^DD(60.01,"GL",1,0,5.5)=""
^DD(60.01,"GL",2,0,10)=""
^DD(60.01,"GL",3,0,96)=""
^DD(60.01,"GL",4,0,20)=""
^DD(60.01,"GL",95.3,1,95.3)=""
^DD(60.01,"IX",.01)=""
^DD(60.01,"IX",95.3)=""
^DD(60.01,"SB",60.06,10)=""
^DD(60.01,"SB",60.07,5.5)=""
^DD(60.01,"SB",60.196,96)=""
^DD(60.01,"SB",60.2,20)=""
^DD(60.02,0)="LAB TEST INCLUDED IN PANEL SUB-FIELD^NL^.02^3"
^DD(60.02,0,"DT")="2910505"
^DD(60.02,0,"NM","LAB TEST INCLUDED IN PANEL")=""
^DD(60.02,0,"UP")="60"
^DD(60.02,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(60.02,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(60.02,.001,21,0)="^^3^3^2841031^^"
^DD(60.02,.001,21,1,0)="This number signifies the order the tests are displayed in the Load/work"
^DD(60.02,.001,21,2,0)="lists under each appropriate accession, in the Enter/Edit options, and"
^DD(60.02,.001,21,3,0)="in the interim reports."
^DD(60.02,.01,0)="LAB TEST^MP60'X^LAB(60,^0;1^IF $P(^LAB(60,DA(1),0),U,5)'="""" W !,""NO CAN DO"" K X"
^DD(60.02,.01,1,0)="^.1"
^DD(60.02,.01,1,1,0)="60^AB"
^DD(60.02,.01,1,1,1)="S ^LAB(60,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(60.02,.01,1,1,2)="K ^LAB(60,""AB"",$E(X,1,30),DA(1),DA)"
^DD(60.02,.01,3)="Select only if the panel does not have a data name."
^DD(60.02,.01,21,0)="^^3^3^2851211^^^"
^DD(60.02,.01,21,1,0)="If the entry is to be changed or the number sequence is to be changed, the"
^DD(60.02,.01,21,2,0)="entry must be first deleted to be moved to a different position in the"
^DD(60.02,.01,21,3,0)="panel."
^DD(60.02,.01,"DT")="2880304"
^DD(60.02,.02,0)="AP MULTIPLY FACTOR^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(60.02,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(60.02,.02,21,0)="^^3^3^2910506^^"
^DD(60.02,.02,21,1,0)="For workload if procedure is counted more than once the number"
^DD(60.02,.02,21,2,0)=" of times counted is entered here."
^DD(60.02,.02,21,3,0)=" Used only for cytology workload and labels."
^DD(60.02,.02,"DT")="2910607"
^DD(60.02,"B","AP MULTIPLY FACTOR",.02)=""
^DD(60.02,"B","LAB TEST",.01)=""
^DD(60.02,"B","NUMBER",.001)=""
^DD(60.02,"GL",0,1,.01)=""
^DD(60.02,"GL",0,2,.02)=""
^DD(60.02,"IX",.01)=""
^DD(60.03,0)="COLLECTION SAMPLE SUB-FIELD^NL^500^10"
^DD(60.03,0,"DT")="2940816"
^DD(60.03,0,"ID",2)="W:$D(^(0)) ""   "",$P(^(0),U,3)"
^DD(60.03,0,"IX","AB",60.03,.01)=""
^DD(60.03,0,"IX","B",60.03,.01)=""
^DD(60.03,0,"NM","COLLECTION SAMPLE")=""
^DD(60.03,0,"UP")="60"
^DD(60.03,.01,0)="COLLECTION SAMPLE^MP62X^LAB(62,^0;1^I $P(^LAB(60,DA(1),0),U,8),$O(^(3,0))>0 W "" ONLY ONE UNIQUE COLLECTION SAMPLE"" K X"
^DD(60.03,.01,1,0)="^.1^^-1"
^DD(60.03,.01,1,1,0)="^^TRIGGER^60.03^2"
^DD(60.03,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(60.03,.01,1,1,1.1) X ^DD(60.03,.01,1,1,1.4)"
^DD(60.03,.01,1,1,1.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=Y(1)"
^DD(60.03,.01,1,1,1.4)="S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60.03,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.03,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(60.03,.01,1,1,2.1) X ^DD(60.03,.01,1,1,2.4)"
^DD(60.03,.01,1,1,2.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=Y(1)"
^DD(60.03,.01,1,1,2.4)="S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60.03,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.03,.01,1,1,"CREATE VALUE")="COLLECTION SAMPLE:TUBE TOP COLOR"
^DD(60.03,.01,1,1,"DELETE VALUE")="COLLECTION SAMPLE:TUBE TOP COLOR"
^DD(60.03,.01,1,1,"FIELD")="CONTAINER"
^DD(60.03,.01,1,2,0)="60.03^AB"
^DD(60.03,.01,1,2,1)="S ^LAB(60,DA(1),3,""AB"",$E(X,1,30),DA)="""""
^DD(60.03,.01,1,2,2)="K ^LAB(60,DA(1),3,""AB"",$E(X,1,30),DA)"
^DD(60.03,.01,1,3,0)="60.03^B"
^DD(60.03,.01,1,3,1)="S ^LAB(60,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(60.03,.01,1,3,2)="K ^LAB(60,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(60.03,.01,3)=""
^DD(60.03,.01,21,0)="^^2^2^2841031^"
^DD(60.03,.01,21,1,0)="Enter the appropriate collection sample(s) for standard processing in the lab.  These are the common names the phlebotomists and ward personnel use and would recognize.  The first entry will be the ""default"
^DD(60.03,.01,21,2,0)=""" collection sample.  Points to the COLLECTION SAMPLE file."
^DD(60.03,.01,"DT")="2930311"
^DD(60.03,1,0)="FORM NAME/NUMBER^F^^0;2^K:$L(X)>10!($L(X)<2) X"
^DD(60.03,1,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(60.03,1,21,0)="^^1^1^2841031^"
^DD(60.03,1,21,1,0)="The identification of the proper Lab slip for this test."
^DD(60.03,2,0)="CONTAINER^CJ11^^ ; ^X ^DD(60.03,2,9.2) S D0=$P(Y(60.03,2,1),U,1) S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(60.03,2,101)=$S($D(^LAB(62,D0,0)):^(0),1:"""") S X=$P(Y(60.03,2,101),U,3) S D0=Y(60.03,2,80) S D1=Y(60.03,2,81)"
^DD(60.03,2,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(60.03,2,5,1,0)="60.03^.01^1"
^DD(60.03,2,9)="^"
^DD(60.03,2,9.01)="62^3;60.03^.01"
^DD(60.03,2,9.1)="COLLECTION SAMPLE:TUBE TOP COLOR"
^DD(60.03,2,9.2)="S Y(60.03,2,81)=$S($D(D1):D1,1:""""),Y(60.03,2,80)=$S($D(D0):D0,1:""""),Y(60.03,2,1)=$S($D(^LAB(60,D0,3,D1,0)):^(0),1:"""")"
^DD(60.03,2,21,0)="^^2^2^2930311^"
^DD(60.03,2,21,1,0)="This entry uses the COLLECTION SAMPLE field to navigate to the COLLECTION"
^DD(60.03,2,21,2,0)="SAMPLE file and retrieve the TUBE TOP COLOR field value."
^DD(60.03,3,0)="MIN VOL (in mls.)^NJ6,1^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(60.03,3,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(60.03,3,21,0)="^^3^3^2931122^^^^"
^DD(60.03,3,21,1,0)="Number of milliliters required to perform the test.  This number is summed"
^DD(60.03,3,21,2,0)="during the creation of the routine phlebotomy collection list to compute"
^DD(60.03,3,21,3,0)="the minimum number of samples to collect."
^DD(60.03,3,"DT")="2840126"
^DD(60.03,4,0)="MAX. ORDER FREQ.^NJ3,0^^0;5^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(60.03,4,3)="Type a Number between 1 and 120, 0 Decimal Digits   --  This test may only be ordered once within this number of day(s)."
^DD(60.03,4,21,0)="^^5^5^2931122^^^^"
^DD(60.03,4,21,1,0)="Use this field to control how often a test may be ordered within a certain "
^DD(60.03,4,21,2,0)="time period (# of days). The entry will then force the system to remind"
^DD(60.03,4,21,3,0)="the ordering person that the order they are placing for this test exceeds"
^DD(60.03,4,21,4,0)="the maximum order frequency.  If you enter 3, the test may only be ordered"
^DD(60.03,4,21,5,0)="once every three days."
^DD(60.03,4,"DT")="2890828"
^DD(60.03,4.5,0)="SINGLE DAY MAX ORDER FREQ^NJ2,0^^0;7^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(60.03,4.5,3)="Type a Number between 1 and 50, 0 Decimal Digits  --  Enter the number of times this test may be ordered in one day."
^DD(60.03,4.5,21,0)="^^2^2^2931122^^^"
^DD(60.03,4.5,21,1,0)="Enter a number specifying the maximum number of times a test can be ordered"
^DD(60.03,4.5,21,2,0)="in a single day."
^DD(60.03,4.5,"DT")="2890828"
^DD(60.03,5,0)="WARD REMARKS^60.04A^^1;0"
^DD(60.03,5,21,0)="^^2^2^2931122^^^^"
^DD(60.03,5,21,1,0)="Text to be seen by the ward each time the test is ordered for a specific"
^DD(60.03,5,21,2,0)="collection sample."
^DD(60.03,6,0)="LAB PROCESSING INSTRUCTIONS ^60.05A^^2;0"
^DD(60.03,6,21,0)="^^1^1^2940316^^^"
^DD(60.03,6,21,1,0)="Text seen by the lab as the test is received in the accession room."
^DD(60.03,7,0)="REQUIRED COMMENT^*P62.07'^LAB(62.07,^0;6^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(60.03,7,3)=""
^DD(60.03,7,12)="ONLY ALLOW COMMENTS CODE"
^DD(60.03,7,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(60.03,7,21,0)="^^2^2^2851209^^^^"
^DD(60.03,7,21,1,0)="Enter a comment or statement that may be required in regards to this test."
^DD(60.03,7,21,2,0)="Points to EXECUTE CODE file."
^DD(60.03,7,"DT")="2840827"
^DD(60.03,500,0)="SAMPLE WKLD CODE^60.14P^^9;0"
^DD(60.03,500,21,0)="^^4^4^2940316^^^^"
^DD(60.03,500,21,1,0)=" If there is a particular WKLD code which is associate the assaying"
^DD(60.03,500,21,2,0)="this type of specimen, enter that WKLD code here. For example"
^DD(60.03,500,21,3,0)="spinal fluid electrophoresis, this specimen must be concentrated"
^DD(60.03,500,21,4,0)="before the procedure can be performed."
^DD(60.03,500,"DT")="2910315"
^DD(60.03,"B","COLLECTION SAMPLE",.01)=""
^DD(60.03,"B","CONTAINER",2)=""
^DD(60.03,"B","FORM NAME/NUMBER",1)=""
^DD(60.03,"B","LAB PROCESSING INSTRUCTIONS ",6)=""
^DD(60.03,"B","MAX. ORDER FREQ.",4)=""
^DD(60.03,"B","MIN VOL (in mls.)",3)=""
^DD(60.03,"B","REQUIRED COMMENT",7)=""
^DD(60.03,"B","SAMPLE WKLD CODE",500)=""
^DD(60.03,"B","SINGLE DAY MAX ORDER FREQ",4.5)=""
^DD(60.03,"B","WARD REMARKS",5)=""
^DD(60.03,"GL",0,1,.01)=""
^DD(60.03,"GL",0,2,1)=""
^DD(60.03,"GL",0,4,3)=""
^DD(60.03,"GL",0,5,4)=""
^DD(60.03,"GL",0,6,7)=""
^DD(60.03,"GL",0,7,4.5)=""
^DD(60.03,"GL",1,0,5)=""
^DD(60.03,"GL",2,0,6)=""
^DD(60.03,"GL",9,0,500)=""
^DD(60.03,"IX",.01)=""
^DD(60.03,"SB",60.04,5)=""
^DD(60.03,"SB",60.05,6)=""
^DD(60.03,"SB",60.14,500)=""
^DD(60.04,0)="WARD REMARKS SUB-FIELD^NL^.01^1"
^DD(60.04,0,"NM","WARD REMARKS")=""
^DD(60.04,0,"UP")="60.03"
^DD(60.04,.01,0)="WARD REMARKS^W^^0;1^Q"
^DD(60.04,.01,3)=""
^DD(60.04,.01,21,0)="^^2^2^2850425^^"
^DD(60.04,.01,21,1,0)="Text to be seen by the ward each time the test is ordered for a specific"
^DD(60.04,.01,21,2,0)="collection sample."
^DD(60.04,.01,"DT")="2841010"
^DD(60.04,"B","WARD REMARKS",.01)=""
^DD(60.04,"GL",0,1,.01)=""
^DD(60.05,0)="LAB PROCESSING INSTRUCTIONS  SUB-FIELD^NL^.01^1"
^DD(60.05,0,"NM","LAB PROCESSING INSTRUCTIONS ")=""
^DD(60.05,0,"UP")="60.03"
^DD(60.05,.01,0)="LAB PROCESSING INSTRUCTIONS^W^^0;1^Q"
^DD(60.05,.01,3)=""
^DD(60.05,.01,21,0)="^^1^1^2940316^^^"
^DD(60.05,.01,21,1,0)="Text seen by lab personnel as the test is received in the accession room."
^DD(60.05,.01,"DT")="2841010"
^DD(60.05,"B","LAB PROCESSING INSTRUCTIONS",.01)=""
^DD(60.05,"GL",0,1,.01)=""
^DD(60.0505,0)="SITE NOTES DATE SUB-FIELD^^1^2"
^DD(60.0505,0,"DT")="2930912"
^DD(60.0505,0,"IX","B",60.0505,.01)=""
^DD(60.0505,0,"NM","SITE NOTES DATE")=""
^DD(60.0505,0,"UP")="60"
^DD(60.0505,.01,0)="SITE NOTES DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(60.0505,.01,1,0)="^.1"
^DD(60.0505,.01,1,1,0)="60.0505^B"
^DD(60.0505,.01,1,1,1)="S ^LAB(60,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(60.0505,.01,1,1,2)="K ^LAB(60,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(60.0505,.01,21,0)="^^1^1^2930912^"
^DD(60.0505,.01,21,1,0)="Date of the note."
^DD(60.0505,.01,"DT")="2930912"
^DD(60.0505,1,0)="TEXT^60.5051^^1;0"
^DD(60.0505,1,21,0)="^^1^1^2930912^^"
^DD(60.0505,1,21,1,0)=" Actual text of the note for this test."
^DD(60.0505,1,"DT")="2930912"
^DD(60.0505,"B","SITE NOTES DATE",.01)=""
^DD(60.0505,"B","TEXT",1)=""
^DD(60.0505,"GL",0,1,.01)=""
^DD(60.0505,"GL",1,0,1)=""
^DD(60.0505,"IX",.01)=""
^DD(60.0505,"SB",60.5051,1)=""
^DD(60.06,0)="*AMIS/RCS 14-4 SUB-FIELD^NL^.01^1"
^DD(60.06,0,"NM","*AMIS/RCS 14-4")=""
^DD(60.06,0,"UP")="60.01"
^DD(60.06,.01,0)="*AMIS/RCS 14-4^MP64'^LAM(^0;1^Q"
^DD(60.06,.01,21,0)="^^1^1^2940316^^^^"
^DD(60.06,.01,21,1,0)="No longer used.  Will be deleted after this version"
^DD(60.06,.01,"DT")="2831228"
^DD(60.06,"B","*AMIS/RCS 14-4",.01)=""
^DD(60.06,"GL",0,1,.01)=""
^DD(60.07,0)="INTERPRETATION SUB-FIELD^NL^.01^1"
^DD(60.07,0,"NM","INTERPRETATION")=""
^DD(60.07,0,"UP")="60.01"
^DD(60.07,.01,0)="INTERPRETATION^W^^0;1^Q"
^DD(60.07,.01,.1)=""
^DD(60.07,.01,3)=""
^DD(60.07,.01,21,0)="^^3^3^2850830^^^^"
^DD(60.07,.01,21,1,0)="Enter any remark to accompany EVERY test result.  These remarks may be"
^DD(60.07,.01,21,2,0)=" edited and formatted with the FileMan text editor.  The text may be"
^DD(60.07,.01,21,3,0)=" other range information, special conditions, etc."
^DD(60.07,.01,"DT")="2831221"
^DD(60.07,"B","INTERPRETATION",.01)=""
^DD(60.07,"GL",0,1,.01)=""
^DD(60.08,0)="GENERAL WARD INSTRUCTIONS SUB-FIELD^NL^.01^1"
^DD(60.08,0,"NM","GENERAL WARD INSTRUCTIONS")=""
^DD(60.08,0,"UP")="60"
^DD(60.08,.01,0)="GENERAL WARD INSTRUCTIONS^W^^0;1^Q"
^DD(60.08,.01,21,0)="^^2^2^2850725^^^^"
^DD(60.08,.01,21,1,0)="Text to be seen by the ward each time the test is ordered regardless of"
^DD(60.08,.01,21,2,0)="the type of collection sample."
^DD(60.08,.01,"DT")="2841010"
^DD(60.08,"B","GENERAL WARD INSTRUCTIONS",.01)=""
^DD(60.08,"GL",0,1,.01)=""
^DD(60.09,0)="GENERAL PROCESSING INST. SUB-FIELD^NL^.01^1"
^DD(60.09,0,"NM","GENERAL PROCESSING INST.")=""
^DD(60.09,0,"UP")="60"
^DD(60.09,.01,0)="GENERAL PROCESSING INST.^W^^0;1^Q"
^DD(60.09,.01,21,0)="^^1^1^2841031^"
^DD(60.09,.01,21,1,0)="This may include any processing instructions pertinent to this test."
^DD(60.09,.01,"DT")="2841022"
^DD(60.09,"B","GENERAL PROCESSING INST.",.01)=""
^DD(60.09,"GL",0,1,.01)=""
^DD(60.1,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(60.1,0,"IX","AX5",60.1,.01)=""
^DD(60.1,0,"IX","B",60.1,.01)=""
^DD(60.1,0,"NM","SYNONYM")=""
^DD(60.1,0,"UP")="60"
^DD(60.1,.01,0)="SYNONYM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:(X'?.ANP)!($L(X)>60) X"
^DD(60.1,.01,1,0)="^.1"
^DD(60.1,.01,1,1,0)="60^B^MNEMONIC"
^DD(60.1,.01,1,1,1)="S ^LAB(60,""B"",$E(X,1,30),DA(1))=1"
^DD(60.1,.01,1,1,2)="K ^LAB(60,""B"",$E(X,1,30),DA(1))"
^DD(60.1,.01,1,2,0)="60.1^B"
^DD(60.1,.01,1,2,1)="S ^LAB(60,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(60.1,.01,1,2,2)="K ^LAB(60,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(60.1,.01,1,3,0)="60.1^AX5^MUMPS"
^DD(60.1,.01,1,3,1)="N TEST S TEST=DA(1) N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD^LR7OV0(TEST)"
^DD(60.1,.01,1,3,2)="N TEST,KSYN S TEST=DA(1),KSYN=DA N DA,DIE,DIC,DE,DW,DH,DS,DO,DD D UPD2^LR7OV0(TEST,KSYN)"
^DD(60.1,.01,1,3,"%D",0)="^.101^1^1^3060411^^^^"
^DD(60.1,.01,1,3,"%D",1,0)="Trigger update to CPRS"
^DD(60.1,.01,1,3,"DT")="3060411"
^DD(60.1,.01,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH AND NOT ALREADY IN USE"
^DD(60.1,.01,21,0)="^.001^2^2^3060411^^^^"
^DD(60.1,.01,21,1,0)="This is another name for the test.  It may be the locally preferred name,"
^DD(60.1,.01,21,2,0)="or a common misspelling."
^DD(60.1,.01,"DT")="3060411"
^DD(60.1,"B","SYNONYM",.01)=""
^DD(60.1,"GL",0,1,.01)=""
^DD(60.1,"IX",.01)=""
^DD(60.11,0)="ACCESSION AREA SUB-FIELD^NL^1^2"
^DD(60.11,0,"DT")="2920105"
^DD(60.11,0,"NM","ACCESSION AREA")=""
^DD(60.11,0,"UP")="60"
^DD(60.11,.01,0)="INSTITUTION^P4'X^DIC(4,^0;1^S DINUM=X"
^DD(60.11,.01,21,0)="^^6^6^2850731^"
^DD(60.11,.01,21,1,0)="This is the appropriate institution/division this test is performed at."
^DD(60.11,.01,21,2,0)="If this test is part of a panel that does not have an accession area"
^DD(60.11,.01,21,3,0)="defined for the panel, that panel will be expanded based on the"
^DD(60.11,.01,21,4,0)="institution/division the program is operating under.  I.e., if the"
^DD(60.11,.01,21,5,0)="institution doesn't find a match, the panel test ordered will not"
^DD(60.11,.01,21,6,0)="include this test."
^DD(60.11,.01,"DT")="2850731"
^DD(60.11,1,0)="ACCESSION AREA^*P68'^LRO(68,^0;2^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(60.11,1,12)="You can not select an accession area designated Work Area only."
^DD(60.11,1,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(60.11,1,21,0)="^^4^4^2850731^"
^DD(60.11,1,21,1,0)="This is the appropriate accession area for this test.  If the test is a"
^DD(60.11,1,21,2,0)="panel, all tests on that panel will be assigned to the entered accession"
^DD(60.11,1,21,3,0)="area.  If some of the panel's tests go to other accession areas, leave this"
^DD(60.11,1,21,4,0)="field blank.  This will be the default accession area for this test."
^DD(60.11,1,"DT")="2920105"
^DD(60.11,"B","ACCESSION AREA",1)=""
^DD(60.11,"B","INSTITUTION",.01)=""
^DD(60.11,"GL",0,1,.01)=""
^DD(60.11,"GL",0,2,1)=""
^DD(60.12,0)="VERIFY WKLD CODE SUB-FIELD^NL^3^4"
^DD(60.12,0,"DT")="2910410"
^DD(60.12,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(60.12,0,"IX","B",60.12,.01)=""
^DD(60.12,0,"NM","VERIFY WKLD CODE")=""
^DD(60.12,0,"UP")="60"
^DD(60.12,.01,0)="VERIFY WKLD CODE^MP64'X^LAM(^0;1^S:$D(X) DINUM=X"
^DD(60.12,.01,1,0)="^.1^^-1"
^DD(60.12,.01,1,1,0)="^^TRIGGER^60.12^1"
^DD(60.12,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(60.12,.01,1,1,1.1) X ^DD(60.12,.01,1,1,1.4)"
^DD(60.12,.01,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAM(+D0,0)) D0=-1 S Y(101)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(60.12,.01,1,1,1.4)="S DIH=$S($D(^LAB(60,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60.12,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.12,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X="""" X ^DD(60.12,.01,1,1,2.4)"
^DD(60.12,.01,1,1,2.4)="S DIH=$S($D(^LAB(60,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=60.12,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.12,.01,1,1,"CREATE VALUE")="WKLD CODE TEST:WKLD CODE"
^DD(60.12,.01,1,1,"DELETE VALUE")="@"
^DD(60.12,.01,1,1,"FIELD")="WKLD CODE"
^DD(60.12,.01,1,2,0)="60.12^B"
^DD(60.12,.01,1,2,1)="S ^LAB(60,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(60.12,.01,1,2,2)="K ^LAB(60,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(60.12,.01,21,0)="^^3^3^2911118^^^^"
^DD(60.12,.01,21,1,0)="The WKLD codes for this test are entered here."
^DD(60.12,.01,21,2,0)="Enter only the WKLD codes for the procedures that are done at your"
^DD(60.12,.01,21,3,0)="hospital for this test."
^DD(60.12,.01,23,0)="^^3^3^2911118^"
^DD(60.12,.01,23,1,0)="  The verification programs look here to determine the prefix to be used"
^DD(60.12,.01,23,2,0)="to record workload. The suffix is determined by the method defined at"
^DD(60.12,.01,23,3,0)="the beginning of the verificaton process."
^DD(60.12,.01,"DT")="2911112"
^DD(60.12,1,0)="VERIFY WKLD CODE #^RFIX^^0;2^K:$L(X)>10!($L(X)<9) X"
^DD(60.12,1,3)="ANSWER MUST BE 9-10 CHARACTERS IN LENGTH"
^DD(60.12,1,5,1,0)="60.12^.01^1"
^DD(60.12,1,21,0)="^^1^1^2930327^^"
^DD(60.12,1,21,1,0)="This contains the WKLD codes for this test."
^DD(60.12,1,23,0)="^^2^2^2911118^"
^DD(60.12,1,23,1,0)=" This number is suffed by a trigger. The user is not allowed to edit"
^DD(60.12,1,23,2,0)="this field."
^DD(60.12,1,"DT")="2920707"
^DD(60.12,2,0)="TEST MULTIPLY FACTOR^NJ2,0^^0;3^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(60.12,2,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(60.12,2,21,0)="^^5^4"
^DD(60.12,2,21,1,0)=" If this WKLD code should be counted more than once, enter the number of"
^DD(60.12,2,21,2,0)="times it should be counted to get the total correct workload. If the field"
^DD(60.12,2,21,3,0)="is blank, then it will automatically be counted 1 time."
^DD(60.12,2,21,4,0)="   Note: In version prior to V5.2, this field was named the Default Yes"
^DD(60.12,2,21,5,0)="field. That field is not used with V5.2 and greater."
^DD(60.12,2,"DT")="2910225"
^DD(60.12,3,0)="PROTECT SUFFIX^S^1:YES;^0;4^Q"
^DD(60.12,3,21,0)="^^4^4^2940826^^^^"
^DD(60.12,3,21,1,0)="If you wish to prevent the suffix from being converted to another suffix"
^DD(60.12,3,21,2,0)="during verification. Enter YES in this field."
^DD(60.12,3,21,3,0)="  Codes which do not have a .0000 suffix need not be protected. They are"
^DD(60.12,3,21,4,0)="not changed during verification."
^DD(60.12,3,23,0)="^^5^5^2940826^^^"
^DD(60.12,3,23,1,0)="  YES in this field will prevent the suffix from being changed during"
^DD(60.12,3,23,2,0)="verification."
^DD(60.12,3,23,3,0)="  NOTE: Suffixes are only changed for the Verification WKLD codes. The"
^DD(60.12,3,23,4,0)="WKLD codes found in other files and fields do not have their suffix"
^DD(60.12,3,23,5,0)="changed."
^DD(60.12,3,"DT")="2910411"
^DD(60.12,"B","PROTECT SUFFIX",3)=""
^DD(60.12,"B","TEST MULTIPLY FACTOR",2)=""
^DD(60.12,"B","VERIFY WKLD CODE",.01)=""
^DD(60.12,"B","VERIFY WKLD CODE #",1)=""
^DD(60.12,"GL",0,1,.01)=""
^DD(60.12,"GL",0,2,1)=""
^DD(60.12,"GL",0,3,2)=""
^DD(60.12,"GL",0,4,3)=""
^DD(60.12,"IX",.01)=""
^DD(60.12,"RQ",1)=""
^DD(60.13,0)="ACCESSION WKLD CODE SUB-FIELD^^2^3"
^DD(60.13,0,"DT")="2910108"
^DD(60.13,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(60.13,0,"NM","ACCESSION WKLD CODE")=""
^DD(60.13,0,"UP")="60"
^DD(60.13,.01,0)="ACCESSION WKLD CODE^MP64'X^LAM(^0;1^S DINUM=X"
^DD(60.13,.01,1,0)="^.1"
^DD(60.13,.01,1,1,0)="^^TRIGGER^60.13^1"
^DD(60.13,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9.1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(60.13,.01,1,1,1.4)"
^DD(60.13,.01,1,1,1.4)="S DIH=$S($D(^LAB(60,DIV(0),9.1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.13,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.13,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(60,D0,9.1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(60.13,.01,1,1,2.4)"
^DD(60.13,.01,1,1,2.4)="S DIH=$S($D(^LAB(60,DIV(0),9.1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.13,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.13,.01,1,1,3)="I need the data for WKLD Workload"
^DD(60.13,.01,1,1,"%D",0)="^^1^1^2910311^"
^DD(60.13,.01,1,1,"%D",1,0)=" This data is used for lookup when computing WKLD Workload"
^DD(60.13,.01,1,1,"CREATE VALUE")="S X=$P(^LAM(DA,0),U,2)"
^DD(60.13,.01,1,1,"DELETE VALUE")="@"
^DD(60.13,.01,1,1,"DT")="2910311"
^DD(60.13,.01,1,1,"FIELD")="WKLD CODE NUMBER"
^DD(60.13,.01,3)=""
^DD(60.13,.01,21,0)="^^8^8^2940316^^^^"
^DD(60.13,.01,21,1,0)=" Enter the WKLD code used to identify the accession workload for"
^DD(60.13,.01,21,2,0)="this test. This field can be also used for prep procedures, ie"
^DD(60.13,.01,21,3,0)="inoculating culture plates. This WKLD code count will appear"
^DD(60.13,.01,21,4,0)="on the date the specimen was accessioned into the laboratory."
^DD(60.13,.01,21,5,0)="  This field functions in the same manner as the WKLD codes, "
^DD(60.13,.01,21,6,0)="except it doesn't require a completion date to be counted."
^DD(60.13,.01,21,7,0)=" For CYTOLOGY SCREENING WORKLOAD the appropriate WKLD codes are"
^DD(60.13,.01,21,8,0)=" entered here."
^DD(60.13,.01,23,0)="^^2^2^2940316^^"
^DD(60.13,.01,23,1,0)=" The accession programs look to this field to determine if any"
^DD(60.13,.01,23,2,0)="accession workload should be credited for this test."
^DD(60.13,.01,"DT")="2910326"
^DD(60.13,1,0)="ACCESSION WKLD CODE #^NJ9,3IX^^0;2^K:+X'=X!(X>90000)!(X<10000)!(X?.E1"".""3N.E)!(X?.E1""."".E.A) X"
^DD(60.13,1,3)="Type a Number between 10000 and 90000, 3-4 Decimal Digits"
^DD(60.13,1,5,1,0)="60.13^.01^1"
^DD(60.13,1,9)="^"
^DD(60.13,1,21,0)="^^1^1^2940316^^"
^DD(60.13,1,21,1,0)="  This field contains the actual WKLD Code number."
^DD(60.13,1,23,0)="^^1^1^2940316^^^"
^DD(60.13,1,23,1,0)=" This field is stuffed by a trigger. The user cannot edit this field"
^DD(60.13,1,"DT")="2920707"
^DD(60.13,2,0)="TEST MULTIPLY FACTOR^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(60.13,2,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(60.13,2,21,0)="^^4^4^2940316^^^"
^DD(60.13,2,21,1,0)="  If this WKLD code should be counted more than once, enter that number"
^DD(60.13,2,21,2,0)="here. The default is 1."
^DD(60.13,2,21,3,0)="  This field is identical to the multiply field in the verification WKLD"
^DD(60.13,2,21,4,0)="code sub file."
^DD(60.13,2,"DT")="2910225"
^DD(60.13,"B","ACCESSION WKLD CODE",.01)=""
^DD(60.13,"B","ACCESSION WKLD CODE #",1)=""
^DD(60.13,"B","TEST MULTIPLY FACTOR",2)=""
^DD(60.13,"GL",0,1,.01)=""
^DD(60.13,"GL",0,2,1)=""
^DD(60.13,"GL",0,3,2)=""
^DD(60.13,"IX",.01)=""
^DD(60.14,0)="SAMPLE WKLD CODE SUB-FIELD^^2^3"
^DD(60.14,0,"DT")="2940816"
^DD(60.14,0,"NM","SAMPLE WKLD CODE")=""
^DD(60.14,0,"UP")="60.03"
^DD(60.14,.01,0)="SAMPLE WKLD CODE^MP64'X^LAM(^0;1^I $D(X) S DINUM=X"
^DD(60.14,.01,1,0)="^.1^^-1"
^DD(60.14,.01,1,1,0)="^^TRIGGER^60.14^1"
^DD(60.14,.01,1,1,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(60,D0,3,D1,9,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(60.14,.01,1,1,1.4)"
^DD(60.14,.01,1,1,1.4)="S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),9,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.14,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.14,.01,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(60,D0,3,D1,9,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(60.14,.01,1,1,2.4)"
^DD(60.14,.01,1,1,2.4)="S DIH=$S($D(^LAB(60,DIV(0),3,DIV(1),9,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=60.14,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(60.14,.01,1,1,"CREATE VALUE")="S X=$P(^LAM(DA,0),U,2)"
^DD(60.14,.01,1,1,"DELETE VALUE")="@"
^DD(60.14,.01,1,1,"DT")="2901227"
^DD(60.14,.01,1,1,"FIELD")="WKLD CODE"
^DD(60.14,.01,21,0)="^^7^7^2940316^^^^"
^DD(60.14,.01,21,1,0)="  If this test has a sample type which should have a specific"
^DD(60.14,.01,21,2,0)="WKLD code associate with it, enter the WKLD code here."
^DD(60.14,.01,21,3,0)=" Example: Urine electrophoresis always has a urine protein performed."
^DD(60.14,.01,21,4,0)="enter the WKLD code for that procedure here. It will only be counted"
^DD(60.14,.01,21,5,0)="for collection sample of urine."
^DD(60.14,.01,21,6,0)="  Note: This field is similar to Verify WKLD code sub-file except for"
^DD(60.14,.01,21,7,0)="the treatment of the suffix and collection sample specific."
^DD(60.14,.01,"DT")="2910307"
^DD(60.14,1,0)="SAMPLE WKLD CODE #^FX^^0;2^K:$L(X)>10!($L(X)<9) X"
^DD(60.14,1,3)="Answer must be 9 characters in length."
^DD(60.14,1,5,1,0)="60.14^.01^1"
^DD(60.14,1,9)="^"
^DD(60.14,1,21,0)="^^1^1^2940316^^"
^DD(60.14,1,21,1,0)=" This field contains the actual WKLD Code number."
^DD(60.14,1,23,0)="^^1^1^2940316^^"
^DD(60.14,1,23,1,0)=" This field is triggered, the user cannot edit this field."
^DD(60.14,1,"DT")="2920707"
^DD(60.14,2,0)="TEST MULTIPLY FACTOR^NJ2,0^^0;3^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(60.14,2,3)="Type a Number between 0 and 20, 0 Decimal Digits"
^DD(60.14,2,21,0)="^^4^4^2940816^^^^"
^DD(60.14,2,21,1,0)=" If this particular WKLD code should be multiplied in order to receive"
^DD(60.14,2,21,2,0)="proper count. Enter that number here. The default is 1."
^DD(60.14,2,21,3,0)="  NOTE: This field is identical the field found in the Verify"
^DD(60.14,2,21,4,0)="WKLD code field sub file."
^DD(60.14,2,"DT")="2940816"
^DD(60.14,"B","SAMPLE WKLD CODE",.01)=""
^DD(60.14,"B","SAMPLE WKLD CODE #",1)=""
^DD(60.14,"B","TEST MULTIPLY FACTOR",2)=""
^DD(60.14,"GL",0,1,.01)=""
^DD(60.14,"GL",0,2,1)=""
^DD(60.14,"GL",0,3,2)=""
^DD(60.14,"IX",.01)=""
^DD(60.196,0)="SPECIMEN CPT SUB-FIELD^^1^2"
^DD(60.196,0,"DT")="3031003"
^DD(60.196,0,"IX","B",60.196,.01)=""
^DD(60.196,0,"NM","SPECIMEN CPT")=""
^DD(60.196,0,"UP")="60.01"
^DD(60.196,.01,0)="SPECIMEN CPT^P81'^ICPT(^0;1^Q"
^DD(60.196,.01,1,0)="^.1"
^DD(60.196,.01,1,1,0)="60.196^B"
^DD(60.196,.01,1,1,1)="S ^LAB(60,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(60.196,.01,1,1,2)="K ^LAB(60,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(60.196,.01,21,0)="^.001^1^1^3031003^^^"
^DD(60.196,.01,21,1,0)="A CPT associated with the specimen"
^DD(60.196,.01,"DT")="3030807"
^DD(60.196,1,0)="ACTIVE DATE (CSV)^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(60.196,1,21,0)="^.001^1^1^3031003^^"
^DD(60.196,1,21,1,0)="This the active date of the SPECIMEN CPT for CSV purposes."
^DD(60.196,1,"DT")="3030807"
^DD(60.196,"B","ACTIVE DATE (CSV)",1)=""
^DD(60.196,"B","SPECIMEN CPT",.01)=""
^DD(60.196,"GL",0,1,.01)=""
^DD(60.196,"GL",0,2,1)=""
^DD(60.196,"IX",.01)=""
^DD(60.2,0)="FOREIGN COMPUTER SYSTEM SUB-FIELD^^3^4"
^DD(60.2,0,"DT")="2931123"
^DD(60.2,0,"IX","B",60.2,.01)=""
^DD(60.2,0,"NM","FOREIGN COMPUTER SYSTEM")=""
^DD(60.2,0,"UP")="60.01"
^DD(60.2,.01,0)="FOREIGN COMPUTER SYSTEM^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(60.2,.01,1,0)="^.1"
^DD(60.2,.01,1,1,0)="60.2^B"
^DD(60.2,.01,1,1,1)="S ^LAB(60,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(60.2,.01,1,1,2)="K ^LAB(60,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(60.2,.01,1,2,0)="60.01^AC^MUMPS"
^DD(60.2,.01,1,2,1)="S ^LAB(60,DA(2),1,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(60.2,.01,1,2,2)="K ^LAB(60,DA(2),1,""AC"",$E(X,1,30),DA(1),DA)"
^DD(60.2,.01,1,2,"%D",0)="^^1^1^2931123^"
^DD(60.2,.01,1,2,"%D",1,0)=" To allow look up of foreign computer symbols for this test and sample."
^DD(60.2,.01,1,2,"DT")="2931123"
^DD(60.2,.01,3)="Answer must be 2-30 characters in length."
^DD(60.2,.01,21,0)="^^1^1^2940316^"
^DD(60.2,.01,21,1,0)="Reserved for future use. Do not use."
^DD(60.2,.01,"DT")="2931123"
^DD(60.2,1,0)="FOREIGN ITEM #^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(60.2,1,3)="Answer must be 2-30 characters in length."
^DD(60.2,1,21,0)="^^1^1^2940510^"
^DD(60.2,1,21,1,0)="RESERVED FOR FUTURE USE"
^DD(60.2,1,"DT")="2931123"
^DD(60.2,2,0)="INTEGER^S^1:YES;0:NO;^0;3^Q"
^DD(60.2,2,21,0)="^^1^1^2940510^"
^DD(60.2,2,21,1,0)="RESERVED FOR FUTURE USE"
^DD(60.2,2,"DT")="2931123"
^DD(60.2,3,0)="UNIT CONVERSION^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(60.2,3,3)="Answer must be 1-20 characters in length."
^DD(60.2,3,4)="Q"
^DD(60.2,3,21,0)="^^1^1^2940510^"
^DD(60.2,3,21,1,0)="RESERVED FOR FUTURE USE"
^DD(60.2,3,"DT")="2931123"
^DD(60.2,"B","FOREIGN COMPUTER SYSTEM",.01)=""
^DD(60.2,"B","FOREIGN ITEM #",1)=""
^DD(60.2,"B","INTEGER",2)=""
^DD(60.2,"B","UNIT CONVERSION",3)=""
^DD(60.2,"GL",0,1,.01)=""
^DD(60.2,"GL",0,2,1)=""
^DD(60.2,"GL",0,3,2)=""
^DD(60.2,"GL",0,4,3)=""
^DD(60.2,"IX",.01)=""
^DD(60.5051,0)="TEXT SUB-FIELD^^.01^1"
^DD(60.5051,0,"DT")="2930912"
^DD(60.5051,0,"NM","TEXT")=""
^DD(60.5051,0,"UP")="60.0505"
^DD(60.5051,.01,0)="NOTE^W^^0;1^Q"
^DD(60.5051,.01,"DT")="2930912"
^DD(60.5051,"B","NOTE",.01)=""
^DD(60.5051,"GL",0,1,.01)=""
^DD(61,0)="FIELD^NL^63.05^13"
^DD(61,0,"DDA")="N"
^DD(61,0,"DT")="3010721"
^DD(61,0,"ID",2)="W:$D(^(""0"")) ""   "",$S('$D(DF):$P(^(0),U,2),DF=""E"":$P(^(0),U,1),1:$P(^(""0""),U,2))"
^DD(61,0,"IX","B",61,.01)=""
^DD(61,0,"IX","B",61,6)=""
^DD(61,0,"IX","C",61,2)=""
^DD(61,0,"IX","D",61.01,.01)=""
^DD(61,0,"IX","E",61,6)=""
^DD(61,0,"IX","HL7",61,.09)=""
^DD(61,0,"NM","TOPOGRAPHY FIELD")=""
^DD(61,0,"PT",50,17.4)=""
^DD(61,0,"PT",50,623004)=""
^DD(61,0,"PT",50.02,2)=""
^DD(61,0,"PT",60.01,.01)=""
^DD(61,0,"PT",62,2)=""
^DD(61,0,"PT",62.062,.01)=""
^DD(61,0,"PT",62.08,2)=""
^DD(61,0,"PT",62.091,2)=""
^DD(61,0,"PT",62.3,.04)=""
^DD(61,0,"PT",62.41,8)=""
^DD(61,0,"PT",62.61,4)=""
^DD(61,0,"PT",62.801,.03)=""
^DD(61,0,"PT",62.9001,.03)=""
^DD(61,0,"PT",63.01,.05)=""
^DD(61,0,"PT",63.04,.05)=""
^DD(61,0,"PT",63.05,.05)=""
^DD(61,0,"PT",63.12,.01)=""
^DD(61,0,"PT",63.2,.01)=""
^DD(61,0,"PT",63.212,.01)=""
^DD(61,0,"PT",63.912,.01)=""
^DD(61,0,"PT",63.999904,.05)=""
^DD(61,0,"PT",64.01,.01)=""
^DD(61,0,"PT",64.03,16)=""
^DD(61,0,"PT",64.036,7)=""
^DD(61,0,"PT",64.061,4)=""
^DD(61,0,"PT",64.1111,13)=""
^DD(61,0,"PT",64.52,1)=""
^DD(61,0,"PT",64.614,.01)=""
^DD(61,0,"PT",64.703,1)=""
^DD(61,0,"PT",64.708,1)=""
^DD(61,0,"PT",66.04,.02)=""
^DD(61,0,"PT",66.08,.02)=""
^DD(61,0,"PT",68.05,.01)=""
^DD(61,0,"PT",68.22,4)=""
^DD(61,0,"PT",68.24,1)=""
^DD(61,0,"PT",68.27,.01)=""
^DD(61,0,"PT",69.02,.01)=""
^DD(61,0,"PT",69.34,.02)=""
^DD(61,0,"PT",69.56,.01)=""
^DD(61,0,"PT",69.57,.01)=""
^DD(61,0,"PT",69.6,4)=""
^DD(61,0,"PT",69.61,.01)=""
^DD(61,0,"PT",69.62,.02)=""
^DD(61,0,"PT",69.63,.02)=""
^DD(61,0,"PT",69.9,100)=""
^DD(61,0,"PT",69.9,101)=""
^DD(61,0,"PT",69.9,102)=""
^DD(61,0,"PT",69.9,103)=""
^DD(61,0,"PT",69.9,104)=""
^DD(61,0,"PT",101,6)=""
^DD(61,0,"PT",130.49,.01)=""
^DD(61,0,"PT",139.2,2)=""
^DD(61,0,"PT",160.075,5)=""
^DD(61,0,"PT",164.04,.01)=""
^DD(61,0,"PT",693.5,1)=""
^DD(61,0,"PT",696,2)=""
^DD(61,0,"PT",697,2)=""
^DD(61,0,"PT",727.22,.01)=""
^DD(61,0,"PT",727.23,.01)=""
^DD(61,0,"PT",727.24,.01)=""
^DD(61,0,"PT",790.22,.01)=""
^DD(61,0,"VR")="5.2"
^DD(61,0,"VRPK")="LR"
^DD(61,.01,0)="NAME^RFX^^0;1^K:$L(X)>80!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X I $D(X),X?1""T""1N.E!(X?1""T-"".E) K X W *7,!,""Enter SNOMED CODE without T or T-"" Q"
^DD(61,.01,1,0)="^.1"
^DD(61,.01,1,1,0)="61^B"
^DD(61,.01,1,1,1)="S ^LAB(61,""B"",$E(X,1,30),DA)="""""
^DD(61,.01,1,1,2)="K ^LAB(61,""B"",$E(X,1,30),DA)"
^DD(61,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(61,.01,21,0)="^^1^1^2870422^^^^"
^DD(61,.01,21,1,0)="The name of the specimen or source."
^DD(61,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(61,.01,"DT")="2840911"
^DD(61,.07,0)="ICDO CODE^FX^^0;7^K:$L(X)>5!($L(X)<5)!'(X?3N1"".""1N)!(X<140)!(X>199.9) X"
^DD(61,.07,3)="ANSWER MUST BE FROM 140.0 TO 199.9"
^DD(61,.07,21,0)="^^1^1^2860624^"
^DD(61,.07,21,1,0)="The appropriate ICD0 code associated with this specimen or source."
^DD(61,.07,"DT")="2860429"
^DD(61,.08,0)="HL7 CODE^FX^^0;8^K:$L(X)>4!($L(X)<2) X I $D(X) K:'$$XFORM^LA7HLP(X) X"
^DD(61,.08,1,0)="^.1^^0"
^DD(61,.08,3)="Answer must be 2-4 characters in length."
^DD(61,.08,4)="D SHOW^LA7HLP"
^DD(61,.08,"DT")="2941223"
^DD(61,.09,0)="LEDI HL7^*P64.061'^LAB(64.061,^0;9^S DIC(""S"")=""I $P(^(0),U,7)=""""S"""",$P(^(0),U,5)=""""0070"""",$P(^(0),U,3)'="""""""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(61,.09,1,0)="^.1"
^DD(61,.09,1,1,0)="61^HL7^MUMPS"
^DD(61,.09,1,1,1)="I $P(^LAB(64.061,X,0),U,3)'="""" S:X'="""" ^LAB(61,""HL7"",$P(^LAB(64.061,X,0),U,3),DA)="""""
^DD(61,.09,1,1,2)="I $P(^LAB(64.061,X,0),U,3)'="""" K:X'="""" ^LAB(61,""HL7"",$P(^LAB(64.061,X,0),U,3),DA)"
^DD(61,.09,1,1,"%D",0)="^^7^7^2981211^^"
^DD(61,.09,1,1,"%D",1,0)="This cross reference is used to map incoming HL7 specimen codes to an"
^DD(61,.09,1,1,"%D",2,0)="entry in the LAB ELECTRONIC CODES file (#64.061).  The cross reference is"
^DD(61,.09,1,1,"%D",3,0)="set with the following format:"
^DD(61,.09,1,1,"%D",4,0)=" "
^DD(61,.09,1,1,"%D",5,0)=" S ^LAB(61,""HL7"",HL7 ABBR,DA)="""""
^DD(61,.09,1,1,"%D",6,0)=" "
^DD(61,.09,1,1,"%D",7,0)="HL7 ABBR is Field (#2) in the LAB ELECTRONIC CODES file (#64.061)."
^DD(61,.09,1,1,"DT")="2981211"
^DD(61,.09,3)="This field contains the standard HL7 specimen type code."
^DD(61,.09,12)="Limits the selection of only Specimen type codes with approved HL7 specimen codes."
^DD(61,.09,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""S"""",$P(^(0),U,5)=""""0070"""",$P(^(0),U,3)'="""""""""""
^DD(61,.09,21,0)="^^1^1^2970721^^^"
^DD(61,.09,21,1,0)="This field contains the HL7 standard specimen type code."
^DD(61,.09,"DT")="3030603"
^DD(61,.0961,0)="TIME ASPECT^*P64.061'^LAB(64.061,^0;10^S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(61,.0961,12)="Select only specimens from ELECTRONIC CODE file"
^DD(61,.0961,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""""
^DD(61,.0961,21,0)="^^7^7^3010721^"
^DD(61,.0961,21,1,0)="This field describes the time aspect for this specimen."
^DD(61,.0961,21,2,0)="(i.e. 24hour, point, fasting, 30 mins ...)"
^DD(61,.0961,21,3,0)=" You may select any entry in the LAB ELECTRONIC CODE (#64.061) that has"
^DD(61,.0961,21,4,0)="the type of SPECIMEN."
^DD(61,.0961,21,5,0)=" "
^DD(61,.0961,21,6,0)="This field is used to determine the correct specimen LOINC code during"
^DD(61,.0961,21,7,0)="verification of results."
^DD(61,.0961,"DT")="3010721"
^DD(61,2,0)="SNOMED CODE^RFX^^0;2^K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1""T-""1N.E)!(X?1""T""1N.E) X I $D(X),'$D(DIU(0)) S Y=$O(^LAB(61,""C"",X,0)) I Y>0 K:'$D(^LAB(61,Y,0)) ^LAB(61,""C"",X,Y) I $D(^LAB(61,Y,0)) K X W *7,!,"" ALREADY AN ENTRY"",! Q"
^DD(61,2,.1)="ENTER CHARACTERS FOLLOWING 'T-' IN SNOMED REFERENCE BOOK"
^DD(61,2,1,0)="^.1"
^DD(61,2,1,1,0)="61^C"
^DD(61,2,1,1,1)="S ^LAB(61,""C"",$E(X,1,30),DA)="""""
^DD(61,2,1,1,2)="K ^LAB(61,""C"",$E(X,1,30),DA)"
^DD(61,2,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH and NOT begin with T- or T"
^DD(61,2,21,0)="^^1^1^2930423^^^^"
^DD(61,2,21,1,0)="The code consists of the characters following ""T-"" in the SNOMED reference book."
^DD(61,2,"DT")="2850228"
^DD(61,2.5,0)="SEX SPECIFIC^S^F:FEMALE;M:MALE;^0;3^Q"
^DD(61,2.5,21,0)="^^2^2^2841109^^^"
^DD(61,2.5,21,1,0)="If this specimen is specific to one sex only, enter F for female or M"
^DD(61,2.5,21,2,0)="for male."
^DD(61,2.5,"DT")="2840321"
^DD(61,3,0)="SYNONYMS^61.01A^^1;0"
^DD(61,3,21,0)="^^2^2^2940316^^^^"
^DD(61,3,21,1,0)="This is a multiple field.  Enter synonyms or common"
^DD(61,3,21,2,0)="misspellings of the specimen or organ/tissue."
^DD(61,4,0)="WEIGH^S^1:YES;^0;4^Q"
^DD(61,4,3)="Should this be weighed for surgical pathology?"
^DD(61,4,21,0)="^^2^2^2841109^^^"
^DD(61,4,21,1,0)="WEIGH is a YES/NO question.  Answer YES if you want this specimen to"
^DD(61,4,21,2,0)="be weighed for surgical pathology.  A null answer equals NO."
^DD(61,4.1,0)="COLLECTION SAMPLE^P62'^LAB(62,^0;6^Q"
^DD(61,4.1,1,0)="^.1^^0"
^DD(61,4.1,3)="IF PRESENT COLLECTION SAMPLE IS ASSUMED"
^DD(61,4.1,21,0)="^^2^2^2841109^^"
^DD(61,4.1,21,1,0)="The name of the collection sample for this specimen."
^DD(61,4.1,21,2,0)="Points to the COLLECTION SAMPLE file."
^DD(61,4.1,"DT")="2840725"
^DD(61,5,0)="JOURNAL REFERENCE^61.02A^^JR;0"
^DD(61,5,21,0)="^^2^2^2930714^^^^"
^DD(61,5,21,1,0)="This is a multiple field.  You may enter Journal references that apply"
^DD(61,5,21,2,0)="to this specimen."
^DD(61,5,21,3,0)="Points to FILE #95."
^DD(61,6,0)="ABBREVIATION^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(61,6,1,0)="^.1"
^DD(61,6,1,1,0)="61^B^MNEMONIC"
^DD(61,6,1,1,1)="S ^LAB(61,""B"",$E(X,1,30),DA)=1"
^DD(61,6,1,1,2)="K ^LAB(61,""B"",$E(X,1,30),DA)"
^DD(61,6,1,2,0)="61^E"
^DD(61,6,1,2,1)="S ^LAB(61,""E"",$E(X,1,30),DA)="""""
^DD(61,6,1,2,2)="K ^LAB(61,""E"",$E(X,1,30),DA)"
^DD(61,6,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(61,6,21,0)="^^1^1^2841109^^"
^DD(61,6,21,1,0)="This must be a 1,2, or 3 character abbreviation of the specimen."
^DD(61,6,"DT")="2841023"
^DD(61,63.05,0)="*NEGATIVE BACTERIOLOGY COMMENT^F^^5;1^K:$L(X)>75!($L(X)<1) X"
^DD(61,63.05,3)="ANSWER MUST BE 1-75 CHARACTERS IN LENGTH"
^DD(61,63.05,21,0)="^^1^1^2841109^"
^DD(61,63.05,21,1,0)="This comment facilitates batch entry of microbiology results.  The text contained in this field is the default comment for the named specimen."
^DD(61,63.05,"DT")="2840725"
^DD(61,"B","*NEGATIVE BACTERIOLOGY COMMENT",63.05)=""
^DD(61,"B","ABBREVIATION",6)=""
^DD(61,"B","COLLECTION SAMPLE",4.1)=""
^DD(61,"B","HL7 CODE",.08)=""
^DD(61,"B","ICDO CODE",.07)=""
^DD(61,"B","JOURNAL REFERENCE",5)=""
^DD(61,"B","LEDI HL7",.09)=""
^DD(61,"B","NAME",.01)=""
^DD(61,"B","SEX SPECIFIC",2.5)=""
^DD(61,"B","SNOMED CODE",2)=""
^DD(61,"B","SYNONYMS",3)=""
^DD(61,"B","TIME ASPECT",.0961)=""
^DD(61,"B","WEIGH",4)=""
^DD(61,"GL",0,1,.01)=""
^DD(61,"GL",0,2,2)=""
^DD(61,"GL",0,3,2.5)=""
^DD(61,"GL",0,4,4)=""
^DD(61,"GL",0,5,6)=""
^DD(61,"GL",0,6,4.1)=""
^DD(61,"GL",0,7,.07)=""
^DD(61,"GL",0,8,.08)=""
^DD(61,"GL",0,9,.09)=""
^DD(61,"GL",0,10,.0961)=""
^DD(61,"GL",1,0,3)=""
^DD(61,"GL",5,1,63.05)=""
^DD(61,"GL","JR",0,5)=""
^DD(61,"IX",.01)=""
^DD(61,"IX",.09)=""
^DD(61,"IX",2)=""
^DD(61,"IX",6)=""
^DD(61,"RQ",.01)=""
^DD(61,"RQ",2)=""
^DD(61,"SB",61.01,3)=""
^DD(61,"SB",61.02,5)=""
^DD(61.01,0)="SYNONYMS SUB-FIELD^NL^.01^1"
^DD(61.01,0,"NM","SYNONYMS")=""
^DD(61.01,0,"UP")="61"
^DD(61.01,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>80!($L(X)<2) X"
^DD(61.01,.01,1,0)="^.1"
^DD(61.01,.01,1,1,0)="61^D"
^DD(61.01,.01,1,1,1)="S ^LAB(61,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(61.01,.01,1,1,2)="K ^LAB(61,""D"",$E(X,1,30),DA(1),DA)"
^DD(61.01,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(61.01,.01,21,0)="^^2^2^2940316^^"
^DD(61.01,.01,21,1,0)="This is a multiple field.  Enter synonyms, abbreviations, or common"
^DD(61.01,.01,21,2,0)="misspellings of the specimen."
^DD(61.01,.01,"DT")="2840831"
^DD(61.01,"B","SYNONYM",.01)=""
^DD(61.01,"GL",0,1,.01)=""
^DD(61.01,"IX",.01)=""
^DD(61.02,0)="JOURNAL REFERENCE SUB-FIELD^NL^6^7"
^DD(61.02,0,"NM","JOURNAL REFERENCE")=""
^DD(61.02,0,"UP")="61"
^DD(61.02,.01,0)="TITLE OF ARTICLE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.02,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.02,.01,21,0)="^^1^1^2870422^^"
^DD(61.02,.01,21,1,0)="Title of an article that discusses the named specimen."
^DD(61.02,.01,"DT")="2840609"
^DD(61.02,1,0)="AUTHOR(S)^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(61.02,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.02,1,21,0)="^^1^1^2841109^"
^DD(61.02,1,21,1,0)="Author(s) of the named article."
^DD(61.02,1,"DT")="2841109"
^DD(61.02,2,0)="MEDICAL JOURNAL^P95'^LAB(95,^0;3^Q"
^DD(61.02,2,21,0)="^^1^1^2930714^^^"
^DD(61.02,2,21,1,0)="The name of the medical journal containing the article.  Points to FILE #95."
^DD(61.02,2,"DT")="2840616"
^DD(61.02,3,0)="VOLUME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(61.02,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.02,3,21,0)="^^1^1^2841109^"
^DD(61.02,3,21,1,0)="The volume number/name that contains the article."
^DD(61.02,3,"DT")="2840609"
^DD(61.02,4,0)="STARTING PAGE^F^^0;5^K:$L(X)>6!($L(X)<1) X"
^DD(61.02,4,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.02,4,21,0)="^^1^1^2841109^"
^DD(61.02,4,21,1,0)="The first page of the article."
^DD(61.02,5,0)="DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(61.02,5,21,0)="^^1^1^2841109^"
^DD(61.02,5,21,1,0)="Date of article."
^DD(61.02,5,"DT")="2840609"
^DD(61.02,6,0)="LIST ON PATIENT RECORD^S^1:YES;0:NO;^0;7^Q"
^DD(61.02,6,21,0)="^^1^1^2841109^"
^DD(61.02,6,21,1,0)="If this reference is to be listed on a patient record whenever this specimen is used, this field requires a YES entry."
^DD(61.02,6,"DT")="2840609"
^DD(61.02,"B","AUTHOR(S)",1)=""
^DD(61.02,"B","DATE",5)=""
^DD(61.02,"B","LIST ON PATIENT RECORD",6)=""
^DD(61.02,"B","MEDICAL JOURNAL",2)=""
^DD(61.02,"B","STARTING PAGE",4)=""
^DD(61.02,"B","TITLE OF ARTICLE",.01)=""
^DD(61.02,"B","VOLUME",3)=""
^DD(61.02,"GL",0,1,.01)=""
^DD(61.02,"GL",0,2,1)=""
^DD(61.02,"GL",0,3,2)=""
^DD(61.02,"GL",0,4,3)=""
^DD(61.02,"GL",0,5,4)=""
^DD(61.02,"GL",0,6,5)=""
^DD(61.02,"GL",0,7,6)=""
^DD(61.1,0)="FIELD^NL^6^6"
^DD(61.1,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(61.1,0,"IX","B",61.1,.01)=""
^DD(61.1,0,"IX","B",61.1,6)=""
^DD(61.1,0,"IX","C",61.1,2)=""
^DD(61.1,0,"IX","D",61.11,.01)=""
^DD(61.1,0,"NM","MORPHOLOGY FIELD")=""
^DD(61.1,0,"PT",63.16,.01)=""
^DD(61.1,0,"PT",63.216,.01)=""
^DD(61.1,0,"PT",63.22,.01)=""
^DD(61.1,0,"PT",63.916,.01)=""
^DD(61.1,0,"PT",64.018,.01)=""
^DD(61.1,0,"PT",64.811718,.01)=""
^DD(61.1,0,"PT",69.212,.01)=""
^DD(61.1,0,"PT",160.075,4)=""
^DD(61.1,0,"PT",695.9,1)=""
^DD(61.1,0,"PT",696.2,1)=""
^DD(61.1,0,"PT",790.21,.01)=""
^DD(61.1,0,"VR")="5.2"
^DD(61.1,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X),X?1""M""1N.E!(X?1""M-"".E) K X W *7,!,""Enter SNOMED CODE without M or M-"" Q"
^DD(61.1,.01,1,0)="^.1"
^DD(61.1,.01,1,1,0)="61.1^B"
^DD(61.1,.01,1,1,1)="S ^LAB(61.1,""B"",$E(X,1,30),DA)="""""
^DD(61.1,.01,1,1,2)="K ^LAB(61.1,""B"",$E(X,1,30),DA)"
^DD(61.1,.01,3)="ANSWER MUST BE 3-80 CHARACTERS IN LENGTH"
^DD(61.1,.01,21,0)="^^1^1^2870723^^"
^DD(61.1,.01,21,1,0)="The name of the morphology."
^DD(61.1,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(61.1,.01,"DT")="2840911"
^DD(61.1,2,0)="SNOMED CODE^RFX^^0;2^K:$L(X)>8!($L(X)<2)!'(X?.AN)!(X?1""M-"")!(X?1""M""1N.E) X I $D(X) S Y=$O(^LAB(61.1,""C"",X,0)) I Y>0 K:'$D(^LAB(61.1,Y,0)) ^LAB(61.1,""C"",X,Y) I $D(^LAB(61.1,Y,0)) K X W *7,!,"" ALREADY AN ENTRY"",! Q"
^DD(61.1,2,.1)="ENTER CHARACTERS FOLLOWING 'M-' IN SNOMED REFERENCE BOOK"
^DD(61.1,2,1,0)="^.1"
^DD(61.1,2,1,1,0)="61.1^C"
^DD(61.1,2,1,1,1)="S ^LAB(61.1,""C"",$E(X,1,30),DA)="""""
^DD(61.1,2,1,1,2)="K ^LAB(61.1,""C"",$E(X,1,30),DA)"
^DD(61.1,2,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH AND NOT BEGIN WITH M or M-"
^DD(61.1,2,21,0)="^^1^1^2841109^"
^DD(61.1,2,21,1,0)="The characters following ""M-"" in the SNOMED reference book."
^DD(61.1,2,"DT")="2890123"
^DD(61.1,3,0)="SYNONYMS^61.11A^^1;0"
^DD(61.1,3,21,0)="^^1^1^2870422^^^"
^DD(61.1,3,21,1,0)="This is a multiple field.  Enter synonyms or common misspellings of this morphology."
^DD(61.1,4,0)="ON SHORT LIST^S^1:YES;^0;4^Q"
^DD(61.1,4,21,0)="^^1^1^2850830^^^^"
^DD(61.1,4,21,1,0)="If answered YES the entry will appear on a short list of codes generated by the search option of FileMan."
^DD(61.1,5,0)="JOURNAL REFERENCE^61.12A^^JR;0"
^DD(61.1,5,21,0)="^^1^1^2870428^^^^"
^DD(61.1,5,21,1,0)="This is a multiple field.  You may enter Journal references that apply to this morphology."
^DD(61.1,6,0)="ABBREVIATION^F^^0;7^K:$L(X)>5!($L(X)<1) X"
^DD(61.1,6,1,0)="^.1"
^DD(61.1,6,1,1,0)="61.1^B^MNEMONIC"
^DD(61.1,6,1,1,1)="S ^LAB(61.1,""B"",$E(X,1,30),DA)=1"
^DD(61.1,6,1,1,2)="K ^LAB(61.1,""B"",$E(X,1,30),DA)"
^DD(61.1,6,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(61.1,6,21,0)="^^1^1^2841113^^"
^DD(61.1,6,21,1,0)="This must be a 1 to 5 character abbreviation for this morphology and will be used as a unique code for it."
^DD(61.1,6,"DT")="2840228"
^DD(61.1,"B","ABBREVIATION",6)=""
^DD(61.1,"B","JOURNAL REFERENCE",5)=""
^DD(61.1,"B","NAME",.01)=""
^DD(61.1,"B","ON SHORT LIST",4)=""
^DD(61.1,"B","SNOMED CODE",2)=""
^DD(61.1,"B","SYNONYMS",3)=""
^DD(61.1,"GL",0,1,.01)=""
^DD(61.1,"GL",0,2,2)=""
^DD(61.1,"GL",0,4,4)=""
^DD(61.1,"GL",0,7,6)=""
^DD(61.1,"GL",1,0,3)=""
^DD(61.1,"GL","JR",0,5)=""
^DD(61.1,"IX",.01)=""
^DD(61.1,"IX",2)=""
^DD(61.1,"IX",6)=""
^DD(61.1,"RQ",.01)=""
^DD(61.1,"RQ",2)=""
^DD(61.1,"SB",61.11,3)=""
^DD(61.1,"SB",61.12,5)=""
^DD(61.11,0)="SYNONYMS SUB-FIELD^NL^.01^1"
^DD(61.11,0,"NM","SYNONYMS")=""
^DD(61.11,0,"UP")="61.1"
^DD(61.11,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.11,.01,1,0)="^.1"
^DD(61.11,.01,1,1,0)="61.1^D"
^DD(61.11,.01,1,1,1)="S ^LAB(61.1,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(61.11,.01,1,1,2)="K ^LAB(61.1,""D"",$E(X,1,30),DA(1),DA)"
^DD(61.11,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.11,.01,21,0)="^^1^1^2841109^"
^DD(61.11,.01,21,1,0)="Enter synonyms, abbreviations, or common misspellings of this morphology."
^DD(61.11,.01,"DT")="2850305"
^DD(61.11,"B","SYNONYM",.01)=""
^DD(61.11,"GL",0,1,.01)=""
^DD(61.11,"IX",.01)=""
^DD(61.12,0)="JOURNAL REFERENCE SUB-FIELD^NL^7^8"
^DD(61.12,0,"NM","JOURNAL REFERENCE")=""
^DD(61.12,0,"UP")="61.1"
^DD(61.12,.01,0)="TITLE OF ARTICLE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.12,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.12,.01,21,0)="^^1^1^2841109^"
^DD(61.12,.01,21,1,0)="Title of an article that discusses the named morphology."
^DD(61.12,.01,"DT")="2840609"
^DD(61.12,1,0)="AUTHOR(S)^MF^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(61.12,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.12,1,21,0)="^^1^1^2841109^"
^DD(61.12,1,21,1,0)="Author(s) of the named article."
^DD(61.12,2,0)="MEDICAL JOURNAL^P95'^LAB(95,^0;3^Q"
^DD(61.12,2,21,0)="^^1^1^2870428^^^"
^DD(61.12,2,21,1,0)="The name of the medical journal containing the article.  "
^DD(61.12,2,"DT")="2840616"
^DD(61.12,3,0)="VOLUME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(61.12,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.12,3,21,0)="^^1^1^2841109^"
^DD(61.12,3,21,1,0)="The volume number/name that contains the article."
^DD(61.12,3,"DT")="2840609"
^DD(61.12,4,0)="STARTING PAGE^F^^0;5^K:$L(X)>6!($L(X)<1) X"
^DD(61.12,4,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.12,4,21,0)="^^1^1^2841109^"
^DD(61.12,4,21,1,0)="The first page of the article."
^DD(61.12,5,0)="DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(61.12,5,21,0)="^^1^1^2841109^"
^DD(61.12,5,21,1,0)="Date of article."
^DD(61.12,5,"DT")="2840609"
^DD(61.12,6,0)="LIST ON PATIENT RECORD^S^1:YES;0:NO;^0;7^Q"
^DD(61.12,6,21,0)="^^1^1^2841109^"
^DD(61.12,6,21,1,0)="If this reference is to be listed on a patient record whenever this morphology is involved, this field requires a YES entry."
^DD(61.12,6,"DT")="2840609"
^DD(61.12,7,0)="TOPOGRAPHY RESTRICTION^61.13A^^1;0"
^DD(61.12,"B","AUTHOR(S)",1)=""
^DD(61.12,"B","DATE",5)=""
^DD(61.12,"B","LIST ON PATIENT RECORD",6)=""
^DD(61.12,"B","MEDICAL JOURNAL",2)=""
^DD(61.12,"B","STARTING PAGE",4)=""
^DD(61.12,"B","TITLE OF ARTICLE",.01)=""
^DD(61.12,"B","TOPOGRAPHY RESTRICTION",7)=""
^DD(61.12,"B","VOLUME",3)=""
^DD(61.12,"GL",0,1,.01)=""
^DD(61.12,"GL",0,2,1)=""
^DD(61.12,"GL",0,3,2)=""
^DD(61.12,"GL",0,4,3)=""
^DD(61.12,"GL",0,5,4)=""
^DD(61.12,"GL",0,6,5)=""
^DD(61.12,"GL",0,7,6)=""
^DD(61.12,"GL",1,0,7)=""
^DD(61.12,"SB",61.13,7)=""
^DD(61.13,0)="TOPOGRAPHY RESTRICTION SUB-FIELD^NL^.01^1"
^DD(61.13,0,"NM","TOPOGRAPHY RESTRICTION")=""
^DD(61.13,0,"UP")="61.12"
^DD(61.13,.01,0)="TOPOGRAPHY RESTRICTION^MF^^0;1^K:$L(X)>6!($L(X)<1)!'(X?.UN) X"
^DD(61.13,.01,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.13,.01,21,0)="^^3^3^2860305^^^"
^DD(61.13,.01,21,1,0)="To restrict printing references for certain organ/tissues with"
^DD(61.13,.01,21,2,0)=" the selected morphology enter one or more characters of the"
^DD(61.13,.01,21,3,0)=" topography code. (ex. for lung enter 28).  No restriction if no entry."
^DD(61.13,.01,"DT")="2860219"
^DD(61.13,"B","TOPOGRAPHY RESTRICTION",.01)=""
^DD(61.13,"GL",0,1,.01)=""
^DD(61.2,0)="FIELD^NLs^11^13"
^DD(61.2,0,"DDA")="N"
^DD(61.2,0,"DT")="2910109"
^DD(61.2,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(61.2,0,"IX","B",61.2,.01)=""
^DD(61.2,0,"IX","B",61.2,6)=""
^DD(61.2,0,"IX","C",61.22,.01)=""
^DD(61.2,0,"IX","D",61.2,2)=""
^DD(61.2,0,"IX","E",61.23,.01)=""
^DD(61.2,0,"NM","ETIOLOGY FIELD")=""
^DD(61.2,0,"PT",61.391,2)=""
^DD(61.2,0,"PT",62.08,1)=""
^DD(61.2,0,"PT",62.081,.01)=""
^DD(61.2,0,"PT",62.091,1)=""
^DD(61.2,0,"PT",62.44,.01)=""
^DD(61.2,0,"PT",63.17,.01)=""
^DD(61.2,0,"PT",63.217,.01)=""
^DD(61.2,0,"PT",63.23,.01)=""
^DD(61.2,0,"PT",63.3,.01)=""
^DD(61.2,0,"PT",63.34,.01)=""
^DD(61.2,0,"PT",63.37,.01)=""
^DD(61.2,0,"PT",63.39,.01)=""
^DD(61.2,0,"PT",63.43,.01)=""
^DD(61.2,0,"PT",63.917,.01)=""
^DD(61.2,0,"PT",64.023,.01)=""
^DD(61.2,0,"PT",69.53,.01)=""
^DD(61.2,0,"SCR")="I 1 Q:'$D(LRSS)  Q:'(LRSS=""MI"")  I $L($P(^(0),U,5)),""RPVMBF""[$P(^(0),U,5)"
^DD(61.2,0,"VR")="5.2"
^DD(61.2,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(61.2,.01,1,0)="^.1"
^DD(61.2,.01,1,1,0)="61.2^B"
^DD(61.2,.01,1,1,1)="S ^LAB(61.2,""B"",$E(X,1,30),DA)="""""
^DD(61.2,.01,1,1,2)="K ^LAB(61.2,""B"",$E(X,1,30),DA)"
^DD(61.2,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(61.2,.01,21,0)="^^1^1^2881115^^^"
^DD(61.2,.01,21,1,0)="The name of the etiologic (causative) agent."
^DD(61.2,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(61.2,.01,"DT")="2830627"
^DD(61.2,1.6,0)="CLASS/GROUP-TRIBE/FAMILY^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(61.2,1.6,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(61.2,1.6,21,0)="^^1^1^2841109^"
^DD(61.2,1.6,21,1,0)="The class/group or tribe/family that this etiologic agent belongs to."
^DD(61.2,2,0)="SNOMED CODE^RFX^^0;2^K:$L(X)>7!($L(X)<2)!'(X?.AN) X I $D(X) S Y=$O(^LAB(61.2,""D"",X,0)) I Y>0 K:'$D(^LAB(61.2,Y,0)) ^LAB(61.2,""D"",X,Y) I $D(^LAB(61.2,Y,0)) K X W *7,!,"" ALREADY AN ENTRY"",! Q"
^DD(61.2,2,.1)="ENTER CHARACTERS FOLLOWING 'E-' IN SNOMED REFERENCE BOOK"
^DD(61.2,2,1,0)="^.1"
^DD(61.2,2,1,1,0)="61.2^D"
^DD(61.2,2,1,1,1)="S ^LAB(61.2,""D"",$E(X,1,30),DA)="""""
^DD(61.2,2,1,1,2)="K ^LAB(61.2,""D"",$E(X,1,30),DA)"
^DD(61.2,2,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(61.2,2,21,0)="^^1^1^2841109^"
^DD(61.2,2,21,1,0)="The characters following ""E-"" in the SNOMED reference book."
^DD(61.2,2,"DT")="2840911"
^DD(61.2,3,0)="GRAM STAIN^S^P:GRAM POSITIVE;N:GRAM NEGATIVE;I:INDETERMINATE;^0;3^Q"
^DD(61.2,3,3)="Enter P for gram positive or N for gram negative or I for indeterminate"
^DD(61.2,3,21,0)="^^1^1^2841113^^"
^DD(61.2,3,21,1,0)="If applicable enter if this is a gram positive, gram negative, or indeterminate organism."
^DD(61.2,3,"DT")="2840719"
^DD(61.2,3.5,0)="*BIOCHEMICAL WORKUP^61.23A^^3;0"
^DD(61.2,3.5,21,0)="^^1^1^2940316^^^^"
^DD(61.2,3.5,21,1,0)="No longer used.  To be deleted after this version."
^DD(61.2,4,0)="IDENTIFIER^S^B:BACTERIUM;F:FUNGUS;P:PARASITE;M:MYCOBACTERIUM;V:VIRUS;C:CHEMICAL;D:DRUG;R:RICKETTSIAE;^0;5^Q"
^DD(61.2,4,21,0)="^^1^1^2841109^"
^DD(61.2,4,21,1,0)="This field identifies the category into which this etiologic agent falls."
^DD(61.2,4,"DT")="2890913"
^DD(61.2,5,0)="JOURNAL REFERENCE^61.21A^^JR;0"
^DD(61.2,5,21,0)="^^1^1^2870723^^^^"
^DD(61.2,5,21,1,0)="This is a multiple field.  You may enter Journal references that apply to this etiologic agent."
^DD(61.2,6,0)="ABBREVIATION^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(61.2,6,1,0)="^.1"
^DD(61.2,6,1,1,0)="61.2^B^MNEMONIC"
^DD(61.2,6,1,1,1)="S ^LAB(61.2,""B"",$E(X,1,30),DA)=1"
^DD(61.2,6,1,1,2)="K ^LAB(61.2,""B"",$E(X,1,30),DA)"
^DD(61.2,6,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(61.2,6,21,0)="^^1^1^2841109^"
^DD(61.2,6,21,1,0)="This must be a 1 to 5 character abbreviation for this etiologic agent and will be used as a unique code for it."
^DD(61.2,7,0)="SYNONYM^61.22A^^2;0"
^DD(61.2,7,21,0)="^^1^1^2870422^^^"
^DD(61.2,7,21,1,0)="This is a multiple field.  Enter synonyms or common misspellings of this etiologic agent."
^DD(61.2,8,0)="SUSCEPTIBILITY EDIT TEMPLATE^FX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X) X:X=""?"" ^DD(61.2,8,4) Q:X=""?""!$D(DIU(0))  S DIC(0)=""EQM"",DIC=""^DIE("",DIC(""S"")=""I $P(^(0),U,4)=63"" D ^DIC S X=$P(Y,U,2) K:Y<1 X"
^DD(61.2,8,1,0)="^.1^^0"
^DD(61.2,8,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(61.2,8,4)="S X=""?"",DIC(0)=""Q"",DIC=""^DIE("",DIC(""S"")=""I $P(^(0),U,4)=63"",D=""B"" K DO D DQ^DICQ K DIC S DIC=DIE D DO^DIC1"
^DD(61.2,8,21,0)="^^3^3^2870503^^^^"
^DD(61.2,8,21,1,0)="Contains the edit template name that this etiologic agent is associated with."
^DD(61.2,8,21,2,0)="Determines the set of antibiotics that will be shown for editing when this"
^DD(61.2,8,21,3,0)="organism is chosen."
^DD(61.2,8,"DT")="2880726"
^DD(61.2,9,0)="*SENSITIVITY DISPLAY TEMPLATE^FX^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(61.2,9,3)=""
^DD(61.2,9,4)=""
^DD(61.2,9,21,0)="^^1^1^2940316^^^"
^DD(61.2,9,21,1,0)="No longer used.  Will be deleted after this version. "
^DD(61.2,9,"DT")="2870503"
^DD(61.2,10,0)="HEALTH DEPT REPORT^S^1:YES;^0;9^Q"
^DD(61.2,10,21,0)="^^1^1^2841109^"
^DD(61.2,10,21,1,0)="If this etiologic agent is to be included on the Health Department Report, this field must contain a YES entry."
^DD(61.2,10,"DT")="2840403"
^DD(61.2,11,0)="ETIOLOGY WKLD CODE^61.211P^^9;0"
^DD(61.2,11,21,0)="^^5^5^2931123^^"
^DD(61.2,11,21,1,0)="This field contains a list of possible WKLD codes from which a technologist"
^DD(61.2,11,21,2,0)="may choose additional work load. If this particular isolate requires"
^DD(61.2,11,21,3,0)="extra work in order to isolate or identify it, then list those possible"
^DD(61.2,11,21,4,0)="WKLD codes here. The technologist will only be able to select from this list."
^DD(61.2,11,21,5,0)="Therefore the list should be complete."
^DD(61.2,11,"DT")="2910315"
^DD(61.2,"B","*BIOCHEMICAL WORKUP",3.5)=""
^DD(61.2,"B","*SENSITIVITY DISPLAY TEMPLATE",9)=""
^DD(61.2,"B","ABBREVIATION",6)=""
^DD(61.2,"B","CLASS/GROUP-TRIBE/FAMILY",1.6)=""
^DD(61.2,"B","ETIOLOGY WKLD CODE",11)=""
^DD(61.2,"B","GRAM STAIN",3)=""
^DD(61.2,"B","HEALTH DEPT REPORT",10)=""
^DD(61.2,"B","IDENTIFIER",4)=""
^DD(61.2,"B","JOURNAL REFERENCE",5)=""
^DD(61.2,"B","NAME",.01)=""
^DD(61.2,"B","SNOMED CODE",2)=""
^DD(61.2,"B","SUSCEPTIBILITY EDIT TEMPLATE",8)=""
^DD(61.2,"B","SYNONYM",7)=""
^DD(61.2,"GL",0,1,.01)=""
^DD(61.2,"GL",0,2,2)=""
^DD(61.2,"GL",0,3,3)=""
^DD(61.2,"GL",0,4,8)=""
^DD(61.2,"GL",0,5,4)=""
^DD(61.2,"GL",0,6,1.6)=""
^DD(61.2,"GL",0,7,6)=""
^DD(61.2,"GL",0,8,9)=""
^DD(61.2,"GL",0,9,10)=""
^DD(61.2,"GL",2,0,7)=""
^DD(61.2,"GL",3,0,3.5)=""
^DD(61.2,"GL",9,0,11)=""
^DD(61.2,"GL","JR",0,5)=""
^DD(61.2,"IX",.01)=""
^DD(61.2,"IX",2)=""
^DD(61.2,"IX",6)=""
^DD(61.2,"RQ",.01)=""
^DD(61.2,"RQ",2)=""
^DD(61.2,"SB",61.21,5)=""
^DD(61.2,"SB",61.211,11)=""
^DD(61.2,"SB",61.22,7)=""
^DD(61.2,"SB",61.23,3.5)=""
^DD(61.21,0)="JOURNAL REFERENCE SUB-FIELD^NL^7^8"
^DD(61.21,0,"NM","JOURNAL REFERENCE")=""
^DD(61.21,0,"UP")="61.2"
^DD(61.21,.01,0)="TITLE OF ARTICLE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.21,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.21,.01,21,0)="^^1^1^2860305^^^^"
^DD(61.21,.01,21,1,0)="Title of an article that discusses the named etiologic agent."
^DD(61.21,.01,"DT")="2840609"
^DD(61.21,1,0)="AUTHOR(S)^MF^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(61.21,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.21,1,21,0)="^^1^1^2841109^"
^DD(61.21,1,21,1,0)="Author(s) of the named article."
^DD(61.21,2,0)="MEDICAL JOURNAL^P95'^LAB(95,^0;3^Q"
^DD(61.21,2,21,0)="^^1^1^2870428^^^^"
^DD(61.21,2,21,1,0)="The name of the medical journal containing the article.  "
^DD(61.21,2,"DT")="2840616"
^DD(61.21,3,0)="VOLUME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(61.21,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.21,3,21,0)="^^1^1^2841109^"
^DD(61.21,3,21,1,0)="The volume number/name that contains the article."
^DD(61.21,3,"DT")="2840609"
^DD(61.21,4,0)="STARTING PAGE^F^^0;5^K:$L(X)>6!($L(X)<1) X"
^DD(61.21,4,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.21,4,21,0)="^^1^1^2841109^"
^DD(61.21,4,21,1,0)="The first page of the article."
^DD(61.21,5,0)="DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(61.21,5,21,0)="^^1^1^2841109^"
^DD(61.21,5,21,1,0)="Date of article."
^DD(61.21,5,"DT")="2840609"
^DD(61.21,6,0)="LIST ON PATIENT RECORD^S^1:YES;0:NO;^0;7^Q"
^DD(61.21,6,21,0)="^^2^2^2870723^^^"
^DD(61.21,6,21,1,0)="If this reference is to be listed on a patient record whenever "
^DD(61.21,6,21,2,0)="this etiologic agent is involved, this field requires a YES entry."
^DD(61.21,6,"DT")="2840609"
^DD(61.21,7,0)="TOPOGRAPHY RESTRICTION^61.24A^^1;0"
^DD(61.21,"B","AUTHOR(S)",1)=""
^DD(61.21,"B","DATE",5)=""
^DD(61.21,"B","LIST ON PATIENT RECORD",6)=""
^DD(61.21,"B","MEDICAL JOURNAL",2)=""
^DD(61.21,"B","STARTING PAGE",4)=""
^DD(61.21,"B","TITLE OF ARTICLE",.01)=""
^DD(61.21,"B","TOPOGRAPHY RESTRICTION",7)=""
^DD(61.21,"B","VOLUME",3)=""
^DD(61.21,"GL",0,1,.01)=""
^DD(61.21,"GL",0,2,1)=""
^DD(61.21,"GL",0,3,2)=""
^DD(61.21,"GL",0,4,3)=""
^DD(61.21,"GL",0,5,4)=""
^DD(61.21,"GL",0,6,5)=""
^DD(61.21,"GL",0,7,6)=""
^DD(61.21,"GL",1,0,7)=""
^DD(61.21,"SB",61.24,7)=""
^DD(61.211,0)="ETIOLOGY WKLD CODE SUB-FIELD^^2^3"
^DD(61.211,0,"DT")="2910109"
^DD(61.211,0,"IX","B",61.211,.01)=""
^DD(61.211,0,"NM","ETIOLOGY WKLD CODE")=""
^DD(61.211,0,"UP")="61.2"
^DD(61.211,.01,0)="ETIOLOGY WKLD CODE^MP64'X^LAM(^0;1^I $D(X) S DINUM=X"
^DD(61.211,.01,1,0)="^.1"
^DD(61.211,.01,1,1,0)="^^TRIGGER^61.211^1"
^DD(61.211,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,2) X ^DD(61.211,.01,1,1,1.4)"
^DD(61.211,.01,1,1,1.4)="S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(61.211,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.2,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(61.211,.01,1,1,2.4)"
^DD(61.211,.01,1,1,2.4)="S DIH=$S($D(^LAB(61.2,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.211,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(61.211,.01,1,1,"CREATE VALUE")="S X=$P(^LAM(DA,0),U,2)"
^DD(61.211,.01,1,1,"DELETE VALUE")="@"
^DD(61.211,.01,1,1,"DT")="2910103"
^DD(61.211,.01,1,1,"FIELD")="WKLD CODE"
^DD(61.211,.01,1,2,0)="61.211^B"
^DD(61.211,.01,1,2,1)="S ^LAB(61.2,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(61.211,.01,1,2,2)="K ^LAB(61.2,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(61.211,.01,1,2,"DT")="2930211"
^DD(61.211,.01,21,0)="^^4^4^2910731^"
^DD(61.211,.01,21,1,0)="  Enter a WKLD code which can be associated with the isolation and"
^DD(61.211,.01,21,2,0)="identification of the this particular organism. The verifier will"
^DD(61.211,.01,21,3,0)="be able to select from these entries for additional work load."
^DD(61.211,.01,21,4,0)="  NOTE: THIS FIELD IS ONLY USED FOR MICROBIOLOGY WORKLOAD."
^DD(61.211,.01,"DT")="2930211"
^DD(61.211,1,0)="ETIOLOGY WKLD CODE #^FX^^0;2^K:$L(X)>10!($L(X)<9) X"
^DD(61.211,1,3)="Answer must be 9 characters in length."
^DD(61.211,1,5,1,0)="61.211^.01^1"
^DD(61.211,1,9)="^"
^DD(61.211,1,"DT")="2920707"
^DD(61.211,2,0)="MULTIPLY BY^NJ2,0^^0;3^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(61.211,2,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(61.211,2,21,0)="^^2^2^2910731^"
^DD(61.211,2,21,1,0)="  If this WKLD code should be counted more than once, enter the number"
^DD(61.211,2,21,2,0)="here. The default is 1."
^DD(61.211,2,"DT")="2901227"
^DD(61.211,"B","ETIOLOGY WKLD CODE",.01)=""
^DD(61.211,"B","ETIOLOGY WKLD CODE #",1)=""
^DD(61.211,"B","MULTIPLY BY",2)=""
^DD(61.211,"GL",0,1,.01)=""
^DD(61.211,"GL",0,2,1)=""
^DD(61.211,"GL",0,3,2)=""
^DD(61.211,"IX",.01)=""
^DD(61.22,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(61.22,0,"NM","SYNONYM")=""
^DD(61.22,0,"UP")="61.2"
^DD(61.22,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<2) X"
^DD(61.22,.01,1,0)="^.1"
^DD(61.22,.01,1,1,0)="61.2^C"
^DD(61.22,.01,1,1,1)="S ^LAB(61.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(61.22,.01,1,1,2)="K ^LAB(61.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(61.22,.01,3)="ANSWER MUST BE 2-200 CHARACTERS IN LENGTH"
^DD(61.22,.01,21,0)="^^1^1^2841109^"
^DD(61.22,.01,21,1,0)="This field contains synonyms, abbreviations, or common misspellings of this etiologic agent."
^DD(61.22,"B","SYNONYM",.01)=""
^DD(61.22,"GL",0,1,.01)=""
^DD(61.22,"IX",.01)=""
^DD(61.23,0)="*BIOCHEMICAL WORKUP SUB-FIELD^NL^.01^1"
^DD(61.23,0,"NM","*BIOCHEMICAL WORKUP")=""
^DD(61.23,0,"UP")="61.2"
^DD(61.23,.01,0)="*BIOCHEMICAL WORKUP^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>21!($L(X)<2) X"
^DD(61.23,.01,1,0)="^.1^^0"
^DD(61.23,.01,1,1,0)="61.2^E"
^DD(61.23,.01,1,1,1)="S ^LAB(61.2,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(61.23,.01,1,1,2)="K ^LAB(61.2,""E"",$E(X,1,30),DA(1),DA)"
^DD(61.23,.01,3)="ANSWER MUST BE 2-21 CHARACTERS IN LENGTH"
^DD(61.23,.01,21,0)="^^1^1^2940316^^^"
^DD(61.23,.01,21,1,0)="No longer used.  To be deleted after this version."
^DD(61.23,.01,"DT")="2870503"
^DD(61.23,"B","*BIOCHEMICAL WORKUP",.01)=""
^DD(61.23,"GL",0,1,.01)=""
^DD(61.23,"IX",.01)=""
^DD(61.24,0)="TOPOGRAPHY RESTRICTION SUB-FIELD^NL^.01^1"
^DD(61.24,0,"NM","TOPOGRAPHY RESTRICTION")=""
^DD(61.24,0,"UP")="61.21"
^DD(61.24,.01,0)="TOPOGRAPHY RESTRICTION^MF^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(61.24,.01,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.24,.01,21,0)="^^4^4^2870727^^"
^DD(61.24,.01,21,1,0)="To restrict printing references for certain organ/tissues with the selected"
^DD(61.24,.01,21,2,0)=" etiology enter one or more characters of the topography code."
^DD(61.24,.01,21,3,0)=" (Ex. for lung enter 28).  If no entry there will be no restriction."
^DD(61.24,.01,21,4,0)="A topography restriction does not apply to microbiology reports."
^DD(61.24,.01,"DT")="2860305"
^DD(61.24,"B","TOPOGRAPHY RESTRICTION",.01)=""
^DD(61.24,"GL",0,1,.01)=""
^DD(61.3,0)="FIELD^NL^500^11"
^DD(61.3,0,"DT")="2910130"
^DD(61.3,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(61.3,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(61.3,0,"IX","B",61.3,.01)=""
^DD(61.3,0,"IX","B",61.3,6)=""
^DD(61.3,0,"IX","C",61.3,2)=""
^DD(61.3,0,"IX","D",61.31,.01)=""
^DD(61.3,0,"IX","E",61.3,4)=""
^DD(61.3,0,"NM","FUNCTION FIELD")=""
^DD(61.3,0,"PT",61.3,.04)=""
^DD(61.3,0,"PT",63.011,.01)=""
^DD(61.3,0,"PT",63.0112,.01)=""
^DD(61.3,0,"PT",63.0114,.01)=""
^DD(61.3,0,"PT",63.012,.01)=""
^DD(61.3,0,"PT",63.013,.01)=""
^DD(61.3,0,"PT",63.016,.01)=""
^DD(61.3,0,"PT",63.075,.01)=""
^DD(61.3,0,"PT",63.13,.01)=""
^DD(61.3,0,"PT",63.14,.01)=""
^DD(61.3,0,"PT",63.141,.01)=""
^DD(61.3,0,"PT",63.25,.01)=""
^DD(61.3,0,"PT",63.285,.01)=""
^DD(61.3,0,"PT",63.46,.01)=""
^DD(61.3,0,"PT",63.85,.01)=""
^DD(61.3,0,"PT",63.985,.01)=""
^DD(61.3,0,"PT",65.04,.01)=""
^DD(61.3,0,"PT",65.05,.01)=""
^DD(61.3,0,"PT",65.08,.01)=""
^DD(61.3,0,"PT",65.09,.01)=""
^DD(61.3,0,"PT",65.56,.01)=""
^DD(61.3,0,"PT",65.57,.01)=""
^DD(61.3,0,"PT",65.58,.01)=""
^DD(61.3,0,"PT",65.59,.01)=""
^DD(61.3,0,"PT",695.5,1)=""
^DD(61.3,0,"VR")="5.2"
^DD(61.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(61.3,.01,1,0)="^.1"
^DD(61.3,.01,1,1,0)="61.3^B"
^DD(61.3,.01,1,1,1)="S ^LAB(61.3,""B"",$E(X,1,30),DA)="""""
^DD(61.3,.01,1,1,2)="K ^LAB(61.3,""B"",$E(X,1,30),DA)"
^DD(61.3,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(61.3,.01,21,0)="^^1^1^2850830^^"
^DD(61.3,.01,21,1,0)="The name of the function."
^DD(61.3,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(61.3,.01,"DT")="2890209"
^DD(61.3,.04,0)="CORRESPONDING ANTIGEN/ANTIBODY^*P61.3'X^LAB(61.3,^0;4^S DIC(""S"")=""I $P(^(0),U,5)=""""AN""""!($P(^(0),U,5)=""""AB"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(61.3,.04,12)="SELECTS ONLY RED BLOOD CELL ANTIGENS OR ANTIODIES"
^DD(61.3,.04,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN""""!($P(^(0),U,5)=""""AB"""")"""
^DD(61.3,.04,21,0)="^^1^1^2930325^"
^DD(61.3,.04,21,1,0)=" Indicate which antigen or antibody that may be known by another name."
^DD(61.3,.04,"DT")="2870927"
^DD(61.3,.06,0)="COMPATIBILITY FACTOR^NJ5,3^^0;6^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""4N.N) X"
^DD(61.3,.06,3)="Type a Number between 0 and 1, 3 Decimal Digits"
^DD(61.3,.06,21,0)="^^4^4^2890313^^"
^DD(61.3,.06,21,1,0)="If an antigen enter the incidence (as a decimal)"
^DD(61.3,.06,21,2,0)=" in the population.  If an antibody enter the"
^DD(61.3,.06,21,3,0)=" frequency the corresponding antigen is absent"
^DD(61.3,.06,21,4,0)=" in the population."
^DD(61.3,.06,"DT")="2890312"
^DD(61.3,2,0)="SNOMED CODE^RFX^^0;2^K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1""F-"".E)!(X?1""F""1N.E) X I $D(X) S Y=$O(^LAB(61.3,""C"",X,0)) I Y>0 K:'$D(^LAB(61.3,Y,0)) ^LAB(61.3,""C"",X,Y) I $D(^LAB(61.3,Y,0)) K X W *7,!,"" ALREADY AN ENTRY"",! Q"
^DD(61.3,2,.1)="ENTER CHARACTERS FOLLOWING 'F-' IN SNOMED REFERENCE BOOK"
^DD(61.3,2,1,0)="^.1"
^DD(61.3,2,1,1,0)="61.3^C"
^DD(61.3,2,1,1,1)="S ^LAB(61.3,""C"",$E(X,1,30),DA)="""""
^DD(61.3,2,1,1,2)="K ^LAB(61.3,""C"",$E(X,1,30),DA)"
^DD(61.3,2,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(61.3,2,21,0)="^^1^1^2841113^"
^DD(61.3,2,21,1,0)="The characters following ""F-"" in the SNOMED reference book."
^DD(61.3,2,"DT")="2840911"
^DD(61.3,2.5,0)="SECTION^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(61.3,2.5,.1)="FUNCTION & DYSFUNCTION BY SYSTEMS"
^DD(61.3,2.5,3)="GB=general body EM=endocrine/metabolism RE=reproduction IM=immune HE=hem DU=digest/urinary CR=cardiovas/resp NM=nervous/musc PS=psyche/sexual EE=ent EF=environmental/forensic"
^DD(61.3,2.5,21,0)="^^1^1^2870730^^"
^DD(61.3,2.5,21,1,0)="The function's area by body system."
^DD(61.3,3,0)="SYNONYMS^61.31A^^1;0"
^DD(61.3,3,21,0)="^^1^1^2870422^^"
^DD(61.3,3,21,1,0)="This is a multiple field.  Enter synonyms or common misspellings of this function."
^DD(61.3,4,0)="IDENTIFIER^S^AN:BLOOD GROUP ANTIGEN;AB:BLOOD GROUP ANTIBODY;HL:HLA ANTIGEN;^0;5^Q"
^DD(61.3,4,1,0)="^.1"
^DD(61.3,4,1,1,0)="61.3^E"
^DD(61.3,4,1,1,1)="S ^LAB(61.3,""E"",$E(X,1,30),DA)="""""
^DD(61.3,4,1,1,2)="K ^LAB(61.3,""E"",$E(X,1,30),DA)"
^DD(61.3,4,21,0)="^^1^1^2841113^"
^DD(61.3,4,21,1,0)="This is a blood bank identifier."
^DD(61.3,4,"DT")="2840731"
^DD(61.3,5,0)="JOURNAL REFERENCE^61.32A^^JR;0"
^DD(61.3,5,21,0)="^^1^1^2870422^^^^"
^DD(61.3,5,21,1,0)="This is a multiple field.  You may enter Journal references that apply to this function."
^DD(61.3,6,0)="ABBREVIATION^FX^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(61.3,6,1,0)="^.1"
^DD(61.3,6,1,1,0)="61.3^B^MNEMONIC"
^DD(61.3,6,1,1,1)="S ^LAB(61.3,""B"",$E(X,1,30),DA)=1"
^DD(61.3,6,1,1,2)="K ^LAB(61.3,""B"",$E(X,1,30),DA)"
^DD(61.3,6,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(61.3,6,21,0)="^^1^1^2841113^^"
^DD(61.3,6,21,1,0)="This is a 1 to 5 character abbreviation for this function which is used as a unique code for it."
^DD(61.3,6,"DT")="2851015"
^DD(61.3,7,0)="COMMENT^61.37^^7;0"
^DD(61.3,7,21,0)="^^2^2^2930325^"
^DD(61.3,7,21,1,0)=" If there are some additional comments which should be associated the "
^DD(61.3,7,21,2,0)="function to assist the user."
^DD(61.3,500,0)="WKLD CODE^61.34PAI^^9;0"
^DD(61.3,500,21,0)="^^2^2^2930325^"
^DD(61.3,500,21,1,0)=" If additional workload codes should be counted every time this function"
^DD(61.3,500,21,2,0)="is performed, enter them here."
^DD(61.3,"B","ABBREVIATION",6)=""
^DD(61.3,"B","COMMENT",7)=""
^DD(61.3,"B","COMPATIBILITY FACTOR",.06)=""
^DD(61.3,"B","CORRESPONDING ANTIGEN/ANTIBODY",.04)=""
^DD(61.3,"B","IDENTIFIER",4)=""
^DD(61.3,"B","JOURNAL REFERENCE",5)=""
^DD(61.3,"B","NAME",.01)=""
^DD(61.3,"B","SECTION",2.5)=""
^DD(61.3,"B","SNOMED CODE",2)=""
^DD(61.3,"B","SYNONYMS",3)=""
^DD(61.3,"B","WKLD CODE",500)=""
^DD(61.3,"GL",0,1,.01)=""
^DD(61.3,"GL",0,2,2)=""
^DD(61.3,"GL",0,3,2.5)=""
^DD(61.3,"GL",0,4,.04)=""
^DD(61.3,"GL",0,5,4)=""
^DD(61.3,"GL",0,6,.06)=""
^DD(61.3,"GL",0,7,6)=""
^DD(61.3,"GL",1,0,3)=""
^DD(61.3,"GL",7,0,7)=""
^DD(61.3,"GL",9,0,500)=""
^DD(61.3,"GL","JR",0,5)=""
^DD(61.3,"IX",.01)=""
^DD(61.3,"IX",2)=""
^DD(61.3,"IX",4)=""
^DD(61.3,"IX",6)=""
^DD(61.3,"RQ",.01)=""
^DD(61.3,"RQ",2)=""
^DD(61.3,"SB",61.31,3)=""
^DD(61.3,"SB",61.32,5)=""
^DD(61.3,"SB",61.34,500)=""
^DD(61.3,"SB",61.37,7)=""
^DD(61.31,0)="SYNONYMS SUB-FIELD^NL^.01^1"
^DD(61.31,0,"NM","SYNONYMS")=""
^DD(61.31,0,"UP")="61.3"
^DD(61.31,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X"
^DD(61.31,.01,1,0)="^.1"
^DD(61.31,.01,1,1,0)="61.3^D"
^DD(61.31,.01,1,1,1)="S ^LAB(61.3,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(61.31,.01,1,1,2)="K ^LAB(61.3,""D"",$E(X,1,30),DA(1),DA)"
^DD(61.31,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(61.31,.01,21,0)="^^1^1^2841113^"
^DD(61.31,.01,21,1,0)="This field contains synonyms, abbreviations, or common misspellings of this function."
^DD(61.31,"B","SYNONYM",.01)=""
^DD(61.31,"GL",0,1,.01)=""
^DD(61.31,"IX",.01)=""
^DD(61.32,0)="JOURNAL REFERENCE SUB-FIELD^NL^7^8"
^DD(61.32,0,"NM","JOURNAL REFERENCE")=""
^DD(61.32,0,"UP")="61.3"
^DD(61.32,.01,0)="TITLE OF ARTICLE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.32,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.32,.01,21,0)="^^1^1^2870422^^^"
^DD(61.32,.01,21,1,0)="Title of an article that discusses the named function."
^DD(61.32,.01,"DT")="2840609"
^DD(61.32,1,0)="AUTHOR(S)^MF^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(61.32,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.32,1,21,0)="^^1^1^2841113^"
^DD(61.32,1,21,1,0)="Author(s) of the named article."
^DD(61.32,2,0)="MEDICAL JOURNAL^P95'^LAB(95,^0;3^Q"
^DD(61.32,2,21,0)="^^1^1^2870428^^"
^DD(61.32,2,21,1,0)="The name of medical journal containing the article.  "
^DD(61.32,2,"DT")="2840616"
^DD(61.32,3,0)="VOLUME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(61.32,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.32,3,21,0)="^^1^1^2841113^"
^DD(61.32,3,21,1,0)="The volume number/name that contains the article."
^DD(61.32,3,"DT")="2840609"
^DD(61.32,4,0)="STARTING PAGE^F^^0;5^K:$L(X)>6!($L(X)<1) X"
^DD(61.32,4,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.32,4,21,0)="^^1^1^2841113^"
^DD(61.32,4,21,1,0)="The first page of the article."
^DD(61.32,5,0)="DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(61.32,5,21,0)="^^1^1^2841113^"
^DD(61.32,5,21,1,0)="Date of article."
^DD(61.32,5,"DT")="2840609"
^DD(61.32,6,0)="LIST ON PATIENT RECORD^S^1:YES;0:NO;^0;7^Q"
^DD(61.32,6,21,0)="^^1^1^2841113^"
^DD(61.32,6,21,1,0)="If this reference is to be listed on a patient record whenever this function is involved, this field requires a YES entry."
^DD(61.32,6,"DT")="2840609"
^DD(61.32,7,0)="TOPOGRAPHY RESTRICTION^61.33A^^1;0"
^DD(61.32,"B","AUTHOR(S)",1)=""
^DD(61.32,"B","DATE",5)=""
^DD(61.32,"B","LIST ON PATIENT RECORD",6)=""
^DD(61.32,"B","MEDICAL JOURNAL",2)=""
^DD(61.32,"B","STARTING PAGE",4)=""
^DD(61.32,"B","TITLE OF ARTICLE",.01)=""
^DD(61.32,"B","TOPOGRAPHY RESTRICTION",7)=""
^DD(61.32,"B","VOLUME",3)=""
^DD(61.32,"GL",0,1,.01)=""
^DD(61.32,"GL",0,2,1)=""
^DD(61.32,"GL",0,3,2)=""
^DD(61.32,"GL",0,4,3)=""
^DD(61.32,"GL",0,5,4)=""
^DD(61.32,"GL",0,6,5)=""
^DD(61.32,"GL",0,7,6)=""
^DD(61.32,"GL",1,0,7)=""
^DD(61.32,"SB",61.33,7)=""
^DD(61.33,0)="TOPOGRAPHY RESTRICTION SUB-FIELD^NL^.01^1"
^DD(61.33,0,"NM","TOPOGRAPHY RESTRICTION")=""
^DD(61.33,0,"UP")="61.32"
^DD(61.33,.01,0)="TOPOGRAPHY RESTRICTION^MF^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(61.33,.01,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.33,.01,21,0)="^^3^3^2860305^"
^DD(61.33,.01,21,1,0)="To restrict printing references for certain organ/tissues with the"
^DD(61.33,.01,21,2,0)=" selected function enter one or more characters of the topography"
^DD(61.33,.01,21,3,0)=" code (ex. for lung enter 28).  No code no restriction."
^DD(61.33,.01,"DT")="2860305"
^DD(61.33,"B","TOPOGRAPHY RESTRICTION",.01)=""
^DD(61.33,"GL",0,1,.01)=""
^DD(61.34,0)="WKLD CODE SUB-FIELD^^.03^3"
^DD(61.34,0,"DT")="2910130"
^DD(61.34,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(61.34,0,"NM","WKLD CODE")=""
^DD(61.34,0,"UP")="61.3"
^DD(61.34,.01,0)="WKLD CODE^MP64'X^LAM(^0;1^S DINUM=X"
^DD(61.34,.01,1,0)="^.1"
^DD(61.34,.01,1,1,0)="^^TRIGGER^61.34^.02"
^DD(61.34,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.3,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(61.34,.01,1,1,1.1) X ^DD(61.34,.01,1,1,1.4)"
^DD(61.34,.01,1,1,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAM(+D0,0)) D0=-1 S Y(101)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)"
^DD(61.34,.01,1,1,1.4)="S DIH=$S($D(^LAB(61.3,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.34,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(61.34,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(61.3,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(61.34,.01,1,1,2.4)"
^DD(61.34,.01,1,1,2.4)="S DIH=$S($D(^LAB(61.3,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=61.34,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(61.34,.01,1,1,"CREATE VALUE")="WKLD CODE:WKLD CODE"
^DD(61.34,.01,1,1,"DELETE VALUE")="@"
^DD(61.34,.01,1,1,"DT")="2910130"
^DD(61.34,.01,1,1,"FIELD")="WKLD CODE NUMBER"
^DD(61.34,.01,21,0)="^^1^1^2900505^"
^DD(61.34,.01,21,1,0)="Enter WKLD code(s) associate with this entry."
^DD(61.34,.01,"DT")="2910130"
^DD(61.34,.02,0)="WKLD CODE NUMBER^NJ9,3I^^0;2^K:+X'=X!(X>99999)!(X<10000)!(X?.E1"".""4N.N) X"
^DD(61.34,.02,3)="Type a Number between 10000 and 99999, 3 Decimal Digits"
^DD(61.34,.02,5,1,0)="61.34^.01^1"
^DD(61.34,.02,"DT")="2910130"
^DD(61.34,.03,0)="MULTIPLY FACTOR^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(61.34,.03,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(61.34,.03,"DT")="2910130"
^DD(61.34,"B","MULTIPLY FACTOR",.03)=""
^DD(61.34,"B","WKLD CODE",.01)=""
^DD(61.34,"B","WKLD CODE NUMBER",.02)=""
^DD(61.34,"GL",0,1,.01)=""
^DD(61.34,"GL",0,2,.02)=""
^DD(61.34,"GL",0,3,.03)=""
^DD(61.34,"IX",.01)=""
^DD(61.37,0)="COMMENT SUB-FIELD^^.01^1"
^DD(61.37,0,"IX","B",61.37,.01)=""
^DD(61.37,0,"NM","COMMENT")=""
^DD(61.37,0,"UP")="61.3"
^DD(61.37,.01,0)="COMMENT^W^^0;1^Q"
^DD(61.37,.01,1,0)="^.1"
^DD(61.37,.01,1,1,0)="61.37^B"
^DD(61.37,.01,1,1,1)="S ^LAB(61.3,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(61.37,.01,1,1,2)="K ^LAB(61.3,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(61.37,.01,"DT")="2890312"
^DD(61.37,"B","COMMENT",.01)=""
^DD(61.37,"GL",0,1,.01)=""
^DD(61.37,"IX",.01)=""
^DD(61.38,0)="FIELD^^2^3"
^DD(61.38,0,"DDA")="N"
^DD(61.38,0,"DT")="2960318"
^DD(61.38,0,"IX","B",61.38,.01)=""
^DD(61.38,0,"NM","MICRO INSTRUMENT SET-UP")=""
^DD(61.38,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(61.38,.01,1,0)="^.1"
^DD(61.38,.01,1,1,0)="61.38^B"
^DD(61.38,.01,1,1,1)="S ^LAB(61.38,""B"",$E(X,1,30),DA)="""""
^DD(61.38,.01,1,1,2)="K ^LAB(61.38,""B"",$E(X,1,30),DA)"
^DD(61.38,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(61.38,1,0)="PREFIX^RS^1:YES;0:NO;^1;1^Q"
^DD(61.38,1,21,0)="^^8^8^2960316^"
^DD(61.38,1,21,1,0)=" Provides another dimension for performing tests on Vitek."
^DD(61.38,1,21,2,0)="The vitek only permits one test/accession number."
^DD(61.38,1,21,3,0)="This can be circumvented by entering a number between 0-9 in"
^DD(61.38,1,21,4,0)="the prefix field of file 60. Employing the logic that the vitek will"
^DD(61.38,1,21,5,0)="only accept upto a 6 digit accession number, and, no accession shall"
^DD(61.38,1,21,6,0)="exceed 99,999, the prefix number could be placed in front of the"
^DD(61.38,1,21,7,0)="5 digit accession."
^DD(61.38,1,21,8,0)="Answering YES to this field will enable this option."
^DD(61.38,1,"DT")="2960316"
^DD(61.38,2,0)="WILD CARDS ON^61.382S^^2;0"
^DD(61.38,"B","NAME",.01)=""
^DD(61.38,"B","PREFIX",1)=""
^DD(61.38,"B","WILD CARDS ON",2)=""
^DD(61.38,"GL",0,1,.01)=""
^DD(61.38,"GL",1,1,1)=""
^DD(61.38,"GL",2,0,2)=""
^DD(61.38,"IX",.01)=""
^DD(61.38,"RQ",.01)=""
^DD(61.38,"RQ",1)=""
^DD(61.38,"SB",61.382,2)=""
^DD(61.382,0)="WILD CARDS ON SUB-FIELD^^5^6"
^DD(61.382,0,"DT")="2960318"
^DD(61.382,0,"IX","B",61.382,.01)=""
^DD(61.382,0,"NM","WILD CARDS ON")=""
^DD(61.382,0,"UP")="61.38"
^DD(61.382,.01,0)="WILD CARDS ON^S^1:YES;0:NO;^0;1^Q"
^DD(61.382,.01,1,0)="^.1"
^DD(61.382,.01,1,1,0)="61.382^B"
^DD(61.382,.01,1,1,1)="S ^LAB(61.38,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(61.382,.01,1,1,2)="K ^LAB(61.38,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(61.382,.01,21,0)="^^3^3^2960318^"
^DD(61.382,.01,21,1,0)="Turns on wild card fields for the vitek."
^DD(61.382,.01,21,2,0)="CAUTION"
^DD(61.382,.01,21,3,0)="Use of these fields may overwrite historical data in the Vitek."
^DD(61.382,.01,"DT")="2960318"
^DD(61.382,1,0)="w1^S^WARD:LRWRD;DOC:LRDOC;SPEC:LRSPEC;TREATING SPECIALTY:LRTREAT;BEEPER:LRBEEP;^1;1^Q"
^DD(61.382,1,3)="ENTER ONE"
^DD(61.382,1,21,0)="^^1^1^2960318^"
^DD(61.382,1,21,1,0)="1ST FIELD FOR WILD CARDS"
^DD(61.382,1,"DT")="2960318"
^DD(61.382,2,0)="w2^S^WARD:LRWRD;DOC:LRDOC;SPEC:LRSPEC;TREATING SPECIALTY:LRTREAT;BEEPER:LRBEEP;^2;1^Q"
^DD(61.382,2,21,0)="^^1^1^2960318^"
^DD(61.382,2,21,1,0)="2ND WILD CARD"
^DD(61.382,2,"DT")="2960318"
^DD(61.382,3,0)="w3^S^WARD:LRWRD;DOC:LRDOC;SPEC:LRSPEC;TREATING SPECIALTY:LRTREAT;BEEPER:LRBEEP;^3;1^Q"
^DD(61.382,3,"DT")="2960318"
^DD(61.382,4,0)="w4^S^TREATING SPECILATY:LRTREAT;BEEPER:LRBEEP;DOC:LRDOC;WARD:LRWARD;SPEC:LRSPEC;^4;1^Q"
^DD(61.382,4,"DT")="2960318"
^DD(61.382,5,0)="w5^S^BEEPER:LRBEEP;WARD:LRWARD;TREATING SPECIALTY:LRTREAT;DOC:LRDOC;SPEC:LRSPEC;^5;1^Q"
^DD(61.382,5,21,0)="^^1^1^2960318^"
^DD(61.382,5,21,1,0)="5TH WILD CARD FIELD"
^DD(61.382,5,"DT")="2960318"
^DD(61.382,"B","WILD CARDS ON",.01)=""
^DD(61.382,"B","w1",1)=""
^DD(61.382,"B","w2",2)=""
^DD(61.382,"B","w3",3)=""
^DD(61.382,"B","w4",4)=""
^DD(61.382,"B","w5",5)=""
^DD(61.382,"GL",0,1,.01)=""
^DD(61.382,"GL",1,1,1)=""
^DD(61.382,"GL",2,1,2)=""
^DD(61.382,"GL",3,1,3)=""
^DD(61.382,"GL",4,1,4)=""
^DD(61.382,"GL",5,1,5)=""
^DD(61.382,"IX",.01)=""
^DD(61.39,0)="FIELD^^4^5"
^DD(61.39,0,"DT")="2960212"
^DD(61.39,0,"IX","B",61.39,.01)=""
^DD(61.39,0,"NM","LABORATORY INSTRUMENT CODE")=""
^DD(61.39,.01,0)="INSTRUMENT^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(61.39,.01,1,0)="^.1"
^DD(61.39,.01,1,1,0)="61.39^B"
^DD(61.39,.01,1,1,1)="S ^LAB(61.39,""B"",$E(X,1,30),DA)="""""
^DD(61.39,.01,1,1,2)="K ^LAB(61.39,""B"",$E(X,1,30),DA)"
^DD(61.39,.01,3)="Answer must be 1-30 characters in length."
^DD(61.39,.01,"DT")="2950720"
^DD(61.39,1,0)="ORGANISM CODE^61.391^^1;0"
^DD(61.39,1,21,0)="^^1^1^2950724^^^^"
^DD(61.39,1,21,1,0)="Contains the code from the instrument that identifies an organism."
^DD(61.39,2,0)="ANTIBIOTIC CODE^61.392^^2;0"
^DD(61.39,2,21,0)="^^1^1^2950724^^^^"
^DD(61.39,2,21,1,0)="Contains the instrument code that identifies the antibiotic."
^DD(61.39,3,0)="TEST CODE^61.393^^3;0"
^DD(61.39,3,21,0)="^^1^1^2950721^^^"
^DD(61.39,3,21,1,0)="May be used to hold instrument test/procedure codes"
^DD(61.39,4,0)="SNOMED CODE^61.394^^4;0"
^DD(61.39,"B","ANTIBIOTIC CODE",2)=""
^DD(61.39,"B","INSTRUMENT",.01)=""
^DD(61.39,"B","ORGANISM CODE",1)=""
^DD(61.39,"B","SNOMED CODE",4)=""
^DD(61.39,"B","TEST CODE",3)=""
^DD(61.39,"GL",0,1,.01)=""
^DD(61.39,"GL",1,0,1)=""
^DD(61.39,"GL",2,0,2)=""
^DD(61.39,"GL",3,0,3)=""
^DD(61.39,"GL",4,0,4)=""
^DD(61.39,"IX",.01)=""
^DD(61.39,"RQ",.01)=""
^DD(61.39,"SB",61.391,1)=""
^DD(61.39,"SB",61.392,2)=""
^DD(61.39,"SB",61.393,3)=""
^DD(61.39,"SB",61.394,4)=""
^DD(61.391,0)="ORGANISM CODE SUB-FIELD^^3^4"
^DD(61.391,0,"DT")="2960212"
^DD(61.391,0,"IX","B",61.391,.01)=""
^DD(61.391,0,"NM","ORGANISM CODE")=""
^DD(61.391,0,"UP")="61.39"
^DD(61.391,.01,0)="ORGANISM CODE^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(61.391,.01,1,0)="^.1"
^DD(61.391,.01,1,1,0)="61.391^B"
^DD(61.391,.01,1,1,1)="S ^LAB(61.39,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(61.391,.01,1,1,2)="K ^LAB(61.39,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(61.391,.01,3)="Answer must be 1-30 characters in length."
^DD(61.391,.01,"DT")="2950720"
^DD(61.391,1,0)="ORGANISM INTERPRETATION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(61.391,1,3)="Answer must be 1-50 characters in length."
^DD(61.391,1,21,0)="^^2^2^2950724^^"
^DD(61.391,1,21,1,0)="Contains the interpretation , organism name, linked to organism code."
^DD(61.391,1,21,2,0)="This field is from the instrument also."
^DD(61.391,1,"DT")="2950724"
^DD(61.391,2,0)="LOCAL ORGANISM ENTRY^P61.2^LAB(61.2,^1;1^Q"
^DD(61.391,2,21,0)="^^2^2^2950724^^"
^DD(61.391,2,21,1,0)="Contains the IEN from Etiology Field File corresponding to instrument"
^DD(61.391,2,21,2,0)="organism code and interpretation."
^DD(61.391,2,"DT")="2950724"
^DD(61.391,3,0)="SNOMED^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(61.391,3,3)="Answer must be 1-15 characters in length."
^DD(61.391,3,"DT")="2960212"
^DD(61.391,"B","LOCAL ORGANISM ENTRY",2)=""
^DD(61.391,"B","ORGANISM CODE",.01)=""
^DD(61.391,"B","ORGANISM INTERPRETATION",1)=""
^DD(61.391,"B","SNOMED",3)=""
^DD(61.391,"GL",0,1,.01)=""
^DD(61.391,"GL",0,2,1)=""
^DD(61.391,"GL",0,3,3)=""
^DD(61.391,"GL",1,1,2)=""
^DD(61.391,"IX",.01)=""
^DD(61.392,0)="ANTIBIOTIC CODE SUB-FIELD^^2^3"
^DD(61.392,0,"DT")="2950724"
^DD(61.392,0,"IX","B",61.392,.01)=""
^DD(61.392,0,"NM","ANTIBIOTIC CODE")=""
^DD(61.392,0,"UP")="61.39"
^DD(61.392,.01,0)="ANTIBIOTIC CODE^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(61.392,.01,1,0)="^.1"
^DD(61.392,.01,1,1,0)="61.392^B"
^DD(61.392,.01,1,1,1)="S ^LAB(61.39,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(61.392,.01,1,1,2)="K ^LAB(61.39,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(61.392,.01,3)="Answer must be 1-30 characters in length."
^DD(61.392,.01,"DT")="2950720"
^DD(61.392,1,0)="ANTIBIOTIC INTERPRETATION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(61.392,1,3)="Answer must be 1-30 characters in length."
^DD(61.392,1,21,0)="^^2^2^2950721^"
^DD(61.392,1,21,1,0)="Contains the interpretation, antibiotic name, linked to antibiotic code."
^DD(61.392,1,21,2,0)="This field is comes from the instrument."
^DD(61.392,1,"DT")="2950720"
^DD(61.392,2,0)="LOCAL ANTIBIOTIC ENTRY^P62.06^LAB(62.06,^1;1^Q"
^DD(61.392,2,3)=""
^DD(61.392,2,21,0)="^^2^2^2950724^^"
^DD(61.392,2,21,1,0)="Contains the IEN of Antimicrobial Susceptability file 62.06 linked"
^DD(61.392,2,21,2,0)="to the instrument antibiotic and interpretation code."
^DD(61.392,2,"DT")="2950724"
^DD(61.392,"B","ANTIBIOTIC CODE",.01)=""
^DD(61.392,"B","ANTIBIOTIC INTERPRETATION",1)=""
^DD(61.392,"B","LOCAL ANTIBIOTIC ENTRY",2)=""
^DD(61.392,"GL",0,1,.01)=""
^DD(61.392,"GL",0,2,1)=""
^DD(61.392,"GL",1,1,2)=""
^DD(61.392,"IX",.01)=""
^DD(61.393,0)="TEST CODE SUB-FIELD^^2^3"
^DD(61.393,0,"DT")="2950721"
^DD(61.393,0,"IX","B",61.393,.01)=""
^DD(61.393,0,"NM","TEST CODE")=""
^DD(61.393,0,"UP")="61.39"
^DD(61.393,.01,0)="TEST CODE^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(61.393,.01,1,0)="^.1"
^DD(61.393,.01,1,1,0)="61.393^B"
^DD(61.393,.01,1,1,1)="S ^LAB(61.39,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(61.393,.01,1,1,2)="K ^LAB(61.39,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(61.393,.01,3)="Answer must be 1-30 characters in length."
^DD(61.393,.01,"DT")="2950720"
^DD(61.393,1,0)="TEST INTERPRETATION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(61.393,1,3)="Answer must be 1-30 characters in length."
^DD(61.393,1,21,0)="^^1^1^2950721^"
^DD(61.393,1,21,1,0)="May contain instrument interpretation identified by test code."
^DD(61.393,1,"DT")="2950720"
^DD(61.393,2,0)="LOCAL TEST ENTRY^P60'^LAB(60,^1;1^Q"
^DD(61.393,2,3)=""
^DD(61.393,2,21,0)="^^1^1^2950721^^"
^DD(61.393,2,21,1,0)="Contains IEN from file 60 linking the test code from the instrument."
^DD(61.393,2,"DT")="2950721"
^DD(61.393,"B","LOCAL TEST ENTRY",2)=""
^DD(61.393,"B","TEST CODE",.01)=""
^DD(61.393,"B","TEST INTERPRETATION",1)=""
^DD(61.393,"GL",0,1,.01)=""
^DD(61.393,"GL",0,2,1)=""
^DD(61.393,"GL",1,1,2)=""
^DD(61.393,"IX",.01)=""
^DD(61.394,0)="SNOMED CODE SUB-FIELD^^2^3"
^DD(61.394,0,"DT")="2950811"
^DD(61.394,0,"IX","B",61.394,.01)=""
^DD(61.394,0,"NM","SNOMED CODE")=""
^DD(61.394,0,"UP")="61.39"
^DD(61.394,.01,0)="SNOMED CODE^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(61.394,.01,1,0)="^.1"
^DD(61.394,.01,1,1,0)="61.394^B"
^DD(61.394,.01,1,1,1)="S ^LAB(61.39,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(61.394,.01,1,1,2)="K ^LAB(61.39,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(61.394,.01,3)="Answer must be 1-50 characters in length."
^DD(61.394,.01,"DT")="2950811"
^DD(61.394,1,0)="DESCRIPTION^61.3941^^1;0"
^DD(61.394,2,0)="NUMBER^F^^2;1^K:$L(X)>50!($L(X)<1) X"
^DD(61.394,2,3)="Answer must be 1-50 characters in length."
^DD(61.394,2,"DT")="2950811"
^DD(61.394,"B","DESCRIPTION",1)=""
^DD(61.394,"B","NUMBER",2)=""
^DD(61.394,"B","SNOMED CODE",.01)=""
^DD(61.394,"GL",0,1,.01)=""
^DD(61.394,"GL",1,0,1)=""
^DD(61.394,"GL",2,1,2)=""
^DD(61.394,"IX",.01)=""
^DD(61.394,"SB",61.3941,1)=""
^DD(61.3941,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(61.3941,0,"DT")="2950811"
^DD(61.3941,0,"NM","DESCRIPTION")=""
^DD(61.3941,0,"UP")="61.394"
^DD(61.3941,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(61.3941,.01,"DT")="2950811"
^DD(61.3941,"B","DESCRIPTION",.01)=""
^DD(61.3941,"GL",0,1,.01)=""
^DD(61.4,0)="FIELD^NL^6^5"
^DD(61.4,0,"DT")="2930714"
^DD(61.4,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(61.4,0,"IX","B",61.4,.01)=""
^DD(61.4,0,"IX","B",61.4,6)=""
^DD(61.4,0,"IX","C",61.4,2)=""
^DD(61.4,0,"IX","D",61.41,.01)=""
^DD(61.4,0,"NM","DISEASE FIELD")=""
^DD(61.4,0,"PT",63.15,.01)=""
^DD(61.4,0,"PT",63.21,.01)=""
^DD(61.4,0,"PT",63.215,.01)=""
^DD(61.4,0,"PT",63.915,.01)=""
^DD(61.4,0,"PT",160.075,13)=""
^DD(61.4,0,"VR")="5.2"
^DD(61.4,.01,0)="NAME^RF^^0;1^K:$L(X)>90!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(61.4,.01,1,0)="^.1"
^DD(61.4,.01,1,1,0)="61.4^B"
^DD(61.4,.01,1,1,1)="S ^LAB(61.4,""B"",$E(X,1,30),DA)="""""
^DD(61.4,.01,1,1,2)="K ^LAB(61.4,""B"",$E(X,1,30),DA)"
^DD(61.4,.01,3)="Answer must be 3-90 characters in length."
^DD(61.4,.01,21,0)="^^1^1^2841113^"
^DD(61.4,.01,21,1,0)="The name of the disease."
^DD(61.4,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(61.4,.01,"DT")="2890209"
^DD(61.4,2,0)="SNOMED CODE^RFX^^0;2^K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1""D-"".E)!(X?1""D""1N.E) X I $D(X) S Y=$O(^LAB(61.4,""C"",X,0)) I Y>0 K:'$D(^LAB(61.4,Y,0)) ^LAB(61.4,""C"",X,Y) I $D(^LAB(61.4,Y,0)) K X W *7,!,"" ALREADY AN ENTRY"",! Q"
^DD(61.4,2,.1)="ENTER CHARACTERS FOLLOWING 'D-' IN SNOMED REFERENCE BOOK"
^DD(61.4,2,1,0)="^.1"
^DD(61.4,2,1,1,0)="61.4^C"
^DD(61.4,2,1,1,1)="S ^LAB(61.4,""C"",$E(X,1,30),DA)="""""
^DD(61.4,2,1,1,2)="K ^LAB(61.4,""C"",$E(X,1,30),DA)"
^DD(61.4,2,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(61.4,2,21,0)="^^1^1^2841113^"
^DD(61.4,2,21,1,0)="The characters following ""D-"" in the SNOMED reference book."
^DD(61.4,2,"DT")="2840911"
^DD(61.4,3,0)="SYNONYMS^61.41A^^1;0"
^DD(61.4,3,21,0)="^^1^1^2870422^^^"
^DD(61.4,3,21,1,0)="This is a multiple field.  It contains common synonyms or misspellings of this disease."
^DD(61.4,5,0)="JOURNAL REFERENCE^61.411A^^JR;0"
^DD(61.4,5,21,0)="^^1^1^2870422^^^^"
^DD(61.4,5,21,1,0)="This is a multiple field.  It contains Journal references that apply to this disease."
^DD(61.4,6,0)="ABBREVIATION^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(61.4,6,1,0)="^.1"
^DD(61.4,6,1,1,0)="61.4^B^MNEMONIC"
^DD(61.4,6,1,1,1)="S ^LAB(61.4,""B"",$E(X,1,30),DA)=1"
^DD(61.4,6,1,1,2)="K ^LAB(61.4,""B"",$E(X,1,30),DA)"
^DD(61.4,6,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(61.4,6,21,0)="^^1^1^2841113^"
^DD(61.4,6,21,1,0)="This is a 1 to 5 character abbreviation for the disease.  It is used as a unique code for it."
^DD(61.4,6,"DT")="2840609"
^DD(61.4,"B","ABBREVIATION",6)=""
^DD(61.4,"B","JOURNAL REFERENCE",5)=""
^DD(61.4,"B","NAME",.01)=""
^DD(61.4,"B","SNOMED CODE",2)=""
^DD(61.4,"B","SYNONYMS",3)=""
^DD(61.4,"GL",0,1,.01)=""
^DD(61.4,"GL",0,2,2)=""
^DD(61.4,"GL",0,5,6)=""
^DD(61.4,"GL",1,0,3)=""
^DD(61.4,"GL","JR",0,5)=""
^DD(61.4,"IX",.01)=""
^DD(61.4,"IX",2)=""
^DD(61.4,"IX",6)=""
^DD(61.4,"RQ",.01)=""
^DD(61.4,"RQ",2)=""
^DD(61.4,"SB",61.41,3)=""
^DD(61.4,"SB",61.411,5)=""
^DD(61.41,0)="SYNONYMS SUB-FIELD^NL^.01^1"
^DD(61.41,0,"NM","SYNONYMS")=""
^DD(61.41,0,"UP")="61.4"
^DD(61.41,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X"
^DD(61.41,.01,1,0)="^.1"
^DD(61.41,.01,1,1,0)="61.4^D"
^DD(61.41,.01,1,1,1)="S ^LAB(61.4,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(61.41,.01,1,1,2)="K ^LAB(61.4,""D"",$E(X,1,30),DA(1),DA)"
^DD(61.41,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(61.41,.01,21,0)="^^1^1^2841113^"
^DD(61.41,.01,21,1,0)="This field contains synonyms, abbreviations, or common misspellings of this disease."
^DD(61.41,"B","SYNONYM",.01)=""
^DD(61.41,"GL",0,1,.01)=""
^DD(61.41,"IX",.01)=""
^DD(61.411,0)="JOURNAL REFERENCE SUB-FIELD^NL^7^8"
^DD(61.411,0,"DT")="2930714"
^DD(61.411,0,"NM","JOURNAL REFERENCE")=""
^DD(61.411,0,"UP")="61.4"
^DD(61.411,.01,0)="TITLE OF ARTICLE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.411,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.411,.01,21,0)="^^1^1^2841113^"
^DD(61.411,.01,21,1,0)="Title of an article that discusses the named disease."
^DD(61.411,.01,"DT")="2840609"
^DD(61.411,1,0)="AUTHOR(S)^MF^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(61.411,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.411,1,21,0)="^^1^1^2841113^"
^DD(61.411,1,21,1,0)="Author(s) of the named article."
^DD(61.411,2,0)="MEDICAL JOURNAL^P95'^LAB(95,^0;3^Q"
^DD(61.411,2,21,0)="^^1^1^2930714^^^"
^DD(61.411,2,21,1,0)="The name of the medical journal containing the article.  "
^DD(61.411,2,"DT")="2930714"
^DD(61.411,3,0)="VOLUME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(61.411,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.411,3,21,0)="^^1^1^2841113^"
^DD(61.411,3,21,1,0)="The volume number/name that contains the article."
^DD(61.411,3,"DT")="2840609"
^DD(61.411,4,0)="STARTING PAGE^F^^0;5^K:$L(X)>6!($L(X)<1) X"
^DD(61.411,4,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.411,4,21,0)="^^1^1^2841113^"
^DD(61.411,4,21,1,0)="The first page of the article."
^DD(61.411,5,0)="DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(61.411,5,21,0)="^^1^1^2841113^"
^DD(61.411,5,21,1,0)="Date of article."
^DD(61.411,5,"DT")="2840609"
^DD(61.411,6,0)="LIST ON PATIENT RECORD^S^1:YES;0:NO;^0;7^Q"
^DD(61.411,6,21,0)="^^1^1^2841113^"
^DD(61.411,6,21,1,0)="If this reference is to be listed on a patient record whenever this disease is involved, this field requires a YES entry."
^DD(61.411,6,"DT")="2840609"
^DD(61.411,7,0)="TOPOGRAPHY RESTRICTION^61.421A^^1;0"
^DD(61.411,"B","AUTHOR(S)",1)=""
^DD(61.411,"B","DATE",5)=""
^DD(61.411,"B","LIST ON PATIENT RECORD",6)=""
^DD(61.411,"B","MEDICAL JOURNAL",2)=""
^DD(61.411,"B","STARTING PAGE",4)=""
^DD(61.411,"B","TITLE OF ARTICLE",.01)=""
^DD(61.411,"B","TOPOGRAPHY RESTRICTION",7)=""
^DD(61.411,"B","VOLUME",3)=""
^DD(61.411,"GL",0,1,.01)=""
^DD(61.411,"GL",0,2,1)=""
^DD(61.411,"GL",0,3,2)=""
^DD(61.411,"GL",0,4,3)=""
^DD(61.411,"GL",0,5,4)=""
^DD(61.411,"GL",0,6,5)=""
^DD(61.411,"GL",0,7,6)=""
^DD(61.411,"GL",1,0,7)=""
^DD(61.411,"SB",61.421,7)=""
^DD(61.421,0)="TOPOGRAPHY RESTRICTION SUB-FIELD^NL^.01^1"
^DD(61.421,0,"NM","TOPOGRAPHY RESTRICTION")=""
^DD(61.421,0,"UP")="61.411"
^DD(61.421,.01,0)="TOPOGRAPHY RESTRICTION^MF^^0;1^K:$L(X)>6!($L(X)<1)!'(X?.UN) X"
^DD(61.421,.01,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.421,.01,21,0)="^^3^3^2860305^^"
^DD(61.421,.01,21,1,0)="To restrict printing references for certain organ/tissues with the"
^DD(61.421,.01,21,2,0)=" selected disease enter one or more characters of the topography code"
^DD(61.421,.01,21,3,0)=" (ex. for lung enter 28).  No entry no restriction."
^DD(61.421,.01,"DT")="2860222"
^DD(61.421,"B","TOPOGRAPHY RESTRICTION",.01)=""
^DD(61.421,"GL",0,1,.01)=""
^DD(61.5,0)="FIELD^NL^6^6"
^DD(61.5,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(61.5,0,"IX","B",61.5,.01)=""
^DD(61.5,0,"IX","B",61.5,6)=""
^DD(61.5,0,"IX","C",61.5,2)=""
^DD(61.5,0,"IX","D",61.51,.01)=""
^DD(61.5,0,"NM","PROCEDURE FIELD")=""
^DD(61.5,0,"PT",60,14)=""
^DD(61.5,0,"PT",63.24,.01)=""
^DD(61.5,0,"PT",63.282,.01)=""
^DD(61.5,0,"PT",63.82,.01)=""
^DD(61.5,0,"PT",63.982,.01)=""
^DD(61.5,0,"PT",695.3,1)=""
^DD(61.5,0,"VR")="5.2"
^DD(61.5,.01,0)="NAME^RF^^0;1^K:$L(X)>200!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(61.5,.01,1,0)="^.1"
^DD(61.5,.01,1,1,0)="61.5^B"
^DD(61.5,.01,1,1,1)="S ^LAB(61.5,""B"",$E(X,1,30),DA)="""""
^DD(61.5,.01,1,1,2)="K ^LAB(61.5,""B"",$E(X,1,30),DA)"
^DD(61.5,.01,3)="Answer must be 3-200 characters in length."
^DD(61.5,.01,21,0)="^^1^1^2841113^"
^DD(61.5,.01,21,1,0)="The name of the procedure."
^DD(61.5,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(61.5,.01,"DT")="2890209"
^DD(61.5,2,0)="SNOMED CODE^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1""P-"".E)!(X?1""P""1N.E) X I $D(X) S Y=$O(^LAB(61.5,""C"",X,0)) I Y>0 K:'$D(^LAB(61.5,Y,0)) ^LAB(61.5,""C"",X,Y) I $D(^LAB(61.5,Y,0)) K X W *7,!,"" ALREADY AN ENTRY"",! Q"
^DD(61.5,2,.1)="ENTER CHARACTERS FOLLOWING 'P-' IN SNOMED REFERENCE BOOK"
^DD(61.5,2,1,0)="^.1"
^DD(61.5,2,1,1,0)="61.5^C"
^DD(61.5,2,1,1,1)="S ^LAB(61.5,""C"",$E(X,1,30),DA)="""""
^DD(61.5,2,1,1,2)="K ^LAB(61.5,""C"",$E(X,1,30),DA)"
^DD(61.5,2,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(61.5,2,21,0)="^^1^1^2850830^^"
^DD(61.5,2,21,1,0)="The characters following ""P-"" in the SNOMED reference book."
^DD(61.5,2,"DT")="2850306"
^DD(61.5,2.3,0)="ASK RESULT^S^0:NO;1:YES;^0;3^Q"
^DD(61.5,2.3,21,0)="^^1^1^2891222^"
^DD(61.5,2.3,21,1,0)="If a result of a procedure should be prompted for, enter 'Yes'."
^DD(61.5,2.3,"DT")="2891222"
^DD(61.5,3,0)="SYNONYM^61.51A^^1;0"
^DD(61.5,3,21,0)="^^1^1^2870422^^"
^DD(61.5,3,21,1,0)="This is a multiple field.  It contains synonyms or common misspellings of this procedure."
^DD(61.5,5,0)="JOURNAL REFERENCE^61.52A^^JR;0"
^DD(61.5,5,21,0)="^^1^1^2870422^^^"
^DD(61.5,5,21,1,0)="This is a multiple field.  It contains Journal references that apply to this procedure."
^DD(61.5,6,0)="ABBREVIATION^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(61.5,6,1,0)="^.1"
^DD(61.5,6,1,1,0)="61.5^B^MNEMONIC"
^DD(61.5,6,1,1,1)="S ^LAB(61.5,""B"",$E(X,1,30),DA)=1"
^DD(61.5,6,1,1,2)="K ^LAB(61.5,""B"",$E(X,1,30),DA)"
^DD(61.5,6,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(61.5,6,21,0)="^^1^1^2850830^^"
^DD(61.5,6,21,1,0)="This is a 1 to 5 character abbreviation for the procedure.  It is used as a unique code for it."
^DD(61.5,6,"DT")="2840609"
^DD(61.5,"B","ABBREVIATION",6)=""
^DD(61.5,"B","ASK RESULT",2.3)=""
^DD(61.5,"B","JOURNAL REFERENCE",5)=""
^DD(61.5,"B","NAME",.01)=""
^DD(61.5,"B","SNOMED CODE",2)=""
^DD(61.5,"B","SYNONYM",3)=""
^DD(61.5,"GL",0,1,.01)=""
^DD(61.5,"GL",0,2,2)=""
^DD(61.5,"GL",0,3,2.3)=""
^DD(61.5,"GL",0,5,6)=""
^DD(61.5,"GL",1,0,3)=""
^DD(61.5,"GL","JR",0,5)=""
^DD(61.5,"IX",.01)=""
^DD(61.5,"IX",2)=""
^DD(61.5,"IX",6)=""
^DD(61.5,"RQ",.01)=""
^DD(61.5,"RQ",2)=""
^DD(61.5,"SB",61.51,3)=""
^DD(61.5,"SB",61.52,5)=""
^DD(61.51,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(61.51,0,"NM","SYNONYM")=""
^DD(61.51,0,"UP")="61.5"
^DD(61.51,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X"
^DD(61.51,.01,1,0)="^.1"
^DD(61.51,.01,1,1,0)="61.5^D"
^DD(61.51,.01,1,1,1)="S ^LAB(61.5,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(61.51,.01,1,1,2)="K ^LAB(61.5,""D"",$E(X,1,30),DA(1),DA)"
^DD(61.51,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(61.51,.01,21,0)="^^1^1^2841113^"
^DD(61.51,.01,21,1,0)="This field contains synonyms, abbreviations, or common misspellings of this procedure."
^DD(61.51,"B","SYNONYM",.01)=""
^DD(61.51,"GL",0,1,.01)=""
^DD(61.51,"IX",.01)=""
^DD(61.52,0)="JOURNAL REFERENCE SUB-FIELD^NL^7^8"
^DD(61.52,0,"NM","JOURNAL REFERENCE")=""
^DD(61.52,0,"UP")="61.5"
^DD(61.52,.01,0)="TITLE OF ARTICLE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.52,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.52,.01,21,0)="^^1^1^2841113^"
^DD(61.52,.01,21,1,0)="Title of an article that discusses the named procedure."
^DD(61.52,.01,"DT")="2840609"
^DD(61.52,1,0)="AUTHOR(S)^MF^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(61.52,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.52,1,21,0)="^^1^1^2841113^"
^DD(61.52,1,21,1,0)="Author(s) of the named article."
^DD(61.52,2,0)="MEDICAL JOURNAL^P95'^LAB(95,^0;3^Q"
^DD(61.52,2,21,0)="^^1^1^2841113^"
^DD(61.52,2,21,1,0)="The name of the medical journal containing the article.  Points to FILE #95."
^DD(61.52,2,"DT")="2840616"
^DD(61.52,3,0)="VOLUME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(61.52,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.52,3,21,0)="^^1^1^2841113^"
^DD(61.52,3,21,1,0)="The volume number/name that contains the article."
^DD(61.52,3,"DT")="2840609"
^DD(61.52,4,0)="STARTING PAGE^F^^0;5^K:$L(X)>6!($L(X)<1) X"
^DD(61.52,4,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.52,4,21,0)="^^1^1^2841113^"
^DD(61.52,4,21,1,0)="The first page of the article."
^DD(61.52,5,0)="DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(61.52,5,21,0)="^^1^1^2841113^"
^DD(61.52,5,21,1,0)="Date of article."
^DD(61.52,5,"DT")="2840609"
^DD(61.52,6,0)="LIST ON PATIENT RECORD^S^1:YES;0:NO;^0;7^Q"
^DD(61.52,6,21,0)="^^1^1^2850830^^"
^DD(61.52,6,21,1,0)="If this reference is to be listed on a patient record whenever this procedure is involved, this field requires a YES entry."
^DD(61.52,6,"DT")="2840609"
^DD(61.52,7,0)="TOPOGRAPHY RESTRICTION^61.53A^^1;0"
^DD(61.52,"B","AUTHOR(S)",1)=""
^DD(61.52,"B","DATE",5)=""
^DD(61.52,"B","LIST ON PATIENT RECORD",6)=""
^DD(61.52,"B","MEDICAL JOURNAL",2)=""
^DD(61.52,"B","STARTING PAGE",4)=""
^DD(61.52,"B","TITLE OF ARTICLE",.01)=""
^DD(61.52,"B","TOPOGRAPHY RESTRICTION",7)=""
^DD(61.52,"B","VOLUME",3)=""
^DD(61.52,"GL",0,1,.01)=""
^DD(61.52,"GL",0,2,1)=""
^DD(61.52,"GL",0,3,2)=""
^DD(61.52,"GL",0,4,3)=""
^DD(61.52,"GL",0,5,4)=""
^DD(61.52,"GL",0,6,5)=""
^DD(61.52,"GL",0,7,6)=""
^DD(61.52,"GL",1,0,7)=""
^DD(61.52,"SB",61.53,7)=""
^DD(61.53,0)="TOPOGRAPHY RESTRICTION SUB-FIELD^NL^.01^1"
^DD(61.53,0,"NM","TOPOGRAPHY RESTRICTION")=""
^DD(61.53,0,"UP")="61.52"
^DD(61.53,.01,0)="TOPOGRAPHY RESTRICTION^MF^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(61.53,.01,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.53,.01,21,0)="^^3^3^2860325^"
^DD(61.53,.01,21,1,0)="To restrict printing references for certain organ/tissues with the"
^DD(61.53,.01,21,2,0)=" selected procedure enter one or more characters of the topography"
^DD(61.53,.01,21,3,0)=" code (ex. for lung enter 28).  No entry no restriction."
^DD(61.53,.01,"DT")="2860325"
^DD(61.53,"B","TOPOGRAPHY RESTRICTION",.01)=""
^DD(61.53,"GL",0,1,.01)=""
^DD(61.6,0)="FIELD^^6^5"
^DD(61.6,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(61.6,0,"IX","B",61.6,.01)=""
^DD(61.6,0,"IX","B",61.6,6)=""
^DD(61.6,0,"IX","C",61.6,2)=""
^DD(61.6,0,"IX","D",61.61,.01)=""
^DD(61.6,0,"NM","OCCUPATION FIELD")=""
^DD(61.6,0,"PT",160.042,.01)=""
^DD(61.6,0,"VR")="5.2"
^DD(61.6,.01,0)="NAME^RF^^0;1^K:$L(X)>90!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(61.6,.01,1,0)="^.1"
^DD(61.6,.01,1,1,0)="61.6^B"
^DD(61.6,.01,1,1,1)="S ^LAB(61.6,""B"",$E(X,1,30),DA)="""""
^DD(61.6,.01,1,1,2)="K ^LAB(61.6,""B"",$E(X,1,30),DA)"
^DD(61.6,.01,3)="Answer must be 3-90 characters in length."
^DD(61.6,.01,21,0)="^^1^1^2841113^^"
^DD(61.6,.01,21,1,0)="The name of the job."
^DD(61.6,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(61.6,.01,"DT")="2890209"
^DD(61.6,2,0)="SNOMED CODE^RFX^^0;2^K:$L(X)>7!($L(X)<2)!'(X?.AN)!(X?1""J-"".E)!(X?1""J""1N.E) X I $D(X) S Y=$O(^LAB(61.6,""C"",X,0)) I Y>0 K:'$D(^LAB(61.6,Y,0)) ^LAB(61.6,""C"",X,Y) I $D(^LAB(61.6,Y,0)) K X W *7,!,"" ALREADY AN ENTRY"",! Q"
^DD(61.6,2,.1)="ENTER CHARACTERS FOLLOWING 'J-' IN SNOMED REFERENCE BOOK"
^DD(61.6,2,1,0)="^.1"
^DD(61.6,2,1,1,0)="61.6^C"
^DD(61.6,2,1,1,1)="S ^LAB(61.6,""C"",$E(X,1,30),DA)="""""
^DD(61.6,2,1,1,2)="K ^LAB(61.6,""C"",$E(X,1,30),DA)"
^DD(61.6,2,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(61.6,2,21,0)="^^1^1^2841113^^"
^DD(61.6,2,21,1,0)="The characters following ""J-"" in the SNOMED reference book."
^DD(61.6,2,"DT")="2840911"
^DD(61.6,3,0)="SYNONYMS^61.61A^^1;0"
^DD(61.6,3,21,0)="^^1^1^2870422^^^"
^DD(61.6,3,21,1,0)="This is a multiple field.  It contains synonyms or common misspellings of this job."
^DD(61.6,5,0)="JOURNAL REFERENCE^61.62A^^JR;0"
^DD(61.6,5,21,0)="^^1^1^2870422^^^^"
^DD(61.6,5,21,1,0)="This is a multiple field.  It contains journal references that apply to this job."
^DD(61.6,6,0)="ABBREVIATION^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(61.6,6,1,0)="^.1"
^DD(61.6,6,1,1,0)="61.6^B^MNEMONIC"
^DD(61.6,6,1,1,1)="S ^LAB(61.6,""B"",$E(X,1,30),DA)=1"
^DD(61.6,6,1,1,2)="K ^LAB(61.6,""B"",$E(X,1,30),DA)"
^DD(61.6,6,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(61.6,6,21,0)="^^1^1^2841113^^"
^DD(61.6,6,21,1,0)="This is a 1 to 5 character abbreviation for this job.  It is used as a unique code for it."
^DD(61.6,6,"DT")="2840609"
^DD(61.6,"B","ABBREVIATION",6)=""
^DD(61.6,"B","JOURNAL REFERENCE",5)=""
^DD(61.6,"B","NAME",.01)=""
^DD(61.6,"B","SNOMED CODE",2)=""
^DD(61.6,"B","SYNONYMS",3)=""
^DD(61.6,"GL",0,1,.01)=""
^DD(61.6,"GL",0,2,2)=""
^DD(61.6,"GL",0,5,6)=""
^DD(61.6,"GL",1,0,3)=""
^DD(61.6,"GL","JR",0,5)=""
^DD(61.6,"IX",.01)=""
^DD(61.6,"IX",2)=""
^DD(61.6,"IX",6)=""
^DD(61.6,"RQ",.01)=""
^DD(61.6,"RQ",2)=""
^DD(61.6,"SB",61.61,3)=""
^DD(61.6,"SB",61.62,5)=""
^DD(61.61,0)="SYNONYMS SUB-FIELD^NL^.01^1"
^DD(61.61,0,"NM","SYNONYMS")=""
^DD(61.61,0,"UP")="61.6"
^DD(61.61,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X"
^DD(61.61,.01,1,0)="^.1"
^DD(61.61,.01,1,1,0)="61.6^D"
^DD(61.61,.01,1,1,1)="S ^LAB(61.6,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(61.61,.01,1,1,2)="K ^LAB(61.6,""D"",$E(X,1,30),DA(1),DA)"
^DD(61.61,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(61.61,.01,21,0)="^^1^1^2841113^"
^DD(61.61,.01,21,1,0)="This field contains synonyms, abbreviations, or common misspellings of this job."
^DD(61.61,.01,"DT")="2830729"
^DD(61.61,"B","SYNONYM",.01)=""
^DD(61.61,"GL",0,1,.01)=""
^DD(61.61,"IX",.01)=""
^DD(61.62,0)="JOURNAL REFERENCE SUB-FIELD^NL^6^7"
^DD(61.62,0,"NM","JOURNAL REFERENCE")=""
^DD(61.62,0,"UP")="61.6"
^DD(61.62,.01,0)="TITLE OF ARTICLE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(61.62,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.62,.01,21,0)="^^1^1^2841113^^"
^DD(61.62,.01,21,1,0)="Title of an article that discusses the named job."
^DD(61.62,.01,"DT")="2840609"
^DD(61.62,1,0)="AUTHOR(S)^MF^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(61.62,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(61.62,1,21,0)="^^1^1^2841113^^"
^DD(61.62,1,21,1,0)="Author(s) of the named article."
^DD(61.62,2,0)="MEDICAL JOURNAL^P95'^LAB(95,^0;3^Q"
^DD(61.62,2,21,0)="^^1^1^2870428^^^"
^DD(61.62,2,21,1,0)="The name of the medical journal containing the article.  "
^DD(61.62,2,"DT")="2840616"
^DD(61.62,3,0)="VOLUME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(61.62,3,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.62,3,21,0)="^^1^1^2841113^^"
^DD(61.62,3,21,1,0)="The volume number/name that contains the article."
^DD(61.62,3,"DT")="2840609"
^DD(61.62,4,0)="STARTING PAGE^F^^0;5^K:$L(X)>6!($L(X)<1) X"
^DD(61.62,4,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(61.62,4,21,0)="^^1^1^2841113^^"
^DD(61.62,4,21,1,0)="The first page of the article."
^DD(61.62,5,0)="DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(61.62,5,21,0)="^^1^1^2841113^^"
^DD(61.62,5,21,1,0)="Date of article."
^DD(61.62,5,"DT")="2840609"
^DD(61.62,6,0)="LIST ON PATIENT RECORD^S^1:YES;0:NO;^0;7^Q"
^DD(61.62,6,21,0)="^^1^1^2841113^^"
^DD(61.62,6,21,1,0)="If this reference is to be listed on a patient record whenever this job is involved, this field requires a YES entry."
^DD(61.62,6,"DT")="2840609"
^DD(61.62,"B","AUTHOR(S)",1)=""
^DD(61.62,"B","DATE",5)=""
^DD(61.62,"B","LIST ON PATIENT RECORD",6)=""
^DD(61.62,"B","MEDICAL JOURNAL",2)=""
^DD(61.62,"B","STARTING PAGE",4)=""
^DD(61.62,"B","TITLE OF ARTICLE",.01)=""
^DD(61.62,"B","VOLUME",3)=""
^DD(61.62,"GL",0,1,.01)=""
^DD(61.62,"GL",0,2,1)=""
^DD(61.62,"GL",0,3,2)=""
^DD(61.62,"GL",0,4,3)=""
^DD(61.62,"GL",0,5,4)=""
^DD(61.62,"GL",0,6,5)=""
^DD(61.62,"GL",0,7,6)=""
^DD(62,0)="FIELD^NL^500^9"
^DD(62,0,"DT")="2920304"
^DD(62,0,"ID",2)="W:$D(^(""0"")) ""   "",$S($D(^LAB(61,+$P(^(""0""),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(62,0,"ID",3)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(62,0,"IX","B",62,.01)=""
^DD(62,0,"IX","C",62,3)=""
^DD(62,0,"IX","D",62.01,.01)=""
^DD(62,0,"NM","COLLECTION SAMPLE")=""
^DD(62,0,"PT",60,9)=""
^DD(62,0,"PT",60.03,.01)=""
^DD(62,0,"PT",61,4.1)=""
^DD(62,0,"PT",62.61,2)=""
^DD(62,0,"PT",62.9001,.09)=""
^DD(62,0,"PT",63.01,.055)=""
^DD(62,0,"PT",63.05,.055)=""
^DD(62,0,"PT",68.05,1)=""
^DD(62,0,"PT",68.24,4)=""
^DD(62,0,"PT",69.01,3)=""
^DD(62,0,"PT",69.11,5)=""
^DD(62,0,"PT",69.6,5)=""
^DD(62,0,"PT",101,6)=""
^DD(62,0,"VR")="5.2"
^DD(62,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62,.01,1,0)="^.1"
^DD(62,.01,1,1,0)="62^B"
^DD(62,.01,1,1,1)="S ^LAB(62,""B"",$E(X,1,30),DA)="""""
^DD(62,.01,1,1,2)="K ^LAB(62,""B"",$E(X,1,30),DA)"
^DD(62,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(62,.01,21,0)="^^1^1^2841113^"
^DD(62,.01,21,1,0)="The name of the collection sample."
^DD(62,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(62,.01,"DT")="2830401"
^DD(62,2,0)="DEFAULT SPECIMEN^P61'^LAB(61,^0;2^Q"
^DD(62,2,21,0)="^^1^1^2850830^^^"
^DD(62,2,21,1,0)="This is the specimen that will appear as the default specimen for this collection sample.  This does not preclude other specimens from being used but, rather, if it is the most frequently used one, it will save time and keystrokes for the user."
^DD(62,2,21,2,0)=" collection sample.  This does not preclude other specimens from being used"
^DD(62,2,21,3,0)=" but, rather, if it is the most frequently used one, it will save  time"
^DD(62,2,21,4,0)=" and keystrokes for the user."
^DD(62,2,"DT")="2840905"
^DD(62,3,0)="TUBE TOP COLOR^F^^0;3^K:$L(X)>11!($L(X)<2) X"
^DD(62,3,1,0)="^.1"
^DD(62,3,1,1,0)="62^C"
^DD(62,3,1,1,1)="S ^LAB(62,""C"",$E(X,1,30),DA)="""""
^DD(62,3,1,1,2)="K ^LAB(62,""C"",$E(X,1,30),DA)"
^DD(62,3,3)="ANSWER MUST BE 2-11 CHARACTERS IN LENGTH"
^DD(62,3,21,0)="^^1^1^2850624^^"
^DD(62,3,21,1,0)="The common color description of the tube used for this sample."
^DD(62,3,"DT")="2840905"
^DD(62,4,0)="VOLUME LARGE^NJ4,0^^0;4^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62,4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(62,4,21,0)="^^1^1^2841113^"
^DD(62,4,21,1,0)="The volume required for this sample."
^DD(62,5,0)="VOLUME SMALL^NJ4,0^^0;5^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(62,5,21,0)="^^1^1^2841113^"
^DD(62,5,21,1,0)="The volume required for this sample if an alternate small tube is used."
^DD(62,6,0)="LAB SECTION^P62.2^LAB(62.2,^0;6^Q"
^DD(62,6,21,0)="^^2^2^2841113^^"
^DD(62,6,21,1,0)="The functional section of the lab that this sample is associated with."
^DD(62,6,21,2,0)="Points to FILE #62.2."
^DD(62,6,"DT")="2840322"
^DD(62,7,0)="CAN LAB COLLECT^S^0:NO;1:YES;^0;7^Q"
^DD(62,7,21,0)="^^1^1^2841113^"
^DD(62,7,21,1,0)="If the Lab is allowed to collect this sample, this field must contain a YES entry."
^DD(62,7,"DT")="2840828"
^DD(62,8,0)="SYNONYM^62.01A^^1;0"
^DD(62,8,21,0)="^^1^1^2841126^^^"
^DD(62,8,21,1,0)="This is a multiple field.  Enter synonyms, abbreviations, or common misspellings of this sample."
^DD(62,500,0)="COLLECTION WKLD CODE^62.02PA^^9;0"
^DD(62,500,21,0)="^^4^4^2931123^^^^"
^DD(62,500,21,1,0)=" This field is used for those unique situations when an accession"
^DD(62,500,21,2,0)="WKLD code can not be used. For example Bacterial culture test. By"
^DD(62,500,21,3,0)="using this field you don't have to enter collection samples in file"
^DD(62,500,21,4,0)="60 (LABORATORY TEST)."
^DD(62,500,"DT")="2920304"
^DD(62,"B","CAN LAB COLLECT",7)=""
^DD(62,"B","COLLECTION WKLD CODE",500)=""
^DD(62,"B","DEFAULT SPECIMEN",2)=""
^DD(62,"B","LAB SECTION",6)=""
^DD(62,"B","NAME",.01)=""
^DD(62,"B","SYNONYM",8)=""
^DD(62,"B","TUBE TOP COLOR",3)=""
^DD(62,"B","VOLUME LARGE",4)=""
^DD(62,"B","VOLUME SMALL",5)=""
^DD(62,"GL",0,1,.01)=""
^DD(62,"GL",0,2,2)=""
^DD(62,"GL",0,3,3)=""
^DD(62,"GL",0,4,4)=""
^DD(62,"GL",0,5,5)=""
^DD(62,"GL",0,6,6)=""
^DD(62,"GL",0,7,7)=""
^DD(62,"GL",1,0,8)=""
^DD(62,"GL",9,0,500)=""
^DD(62,"IX",.01)=""
^DD(62,"IX",3)=""
^DD(62,"RQ",.01)=""
^DD(62,"SB",62.01,8)=""
^DD(62,"SB",62.02,500)=""
^DD(62.01,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(62.01,0,"NM","SYNONYM")=""
^DD(62.01,0,"UP")="62"
^DD(62.01,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(62.01,.01,1,0)="^.1"
^DD(62.01,.01,1,1,0)="62^D"
^DD(62.01,.01,1,1,1)="S ^LAB(62,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(62.01,.01,1,1,2)="K ^LAB(62,""D"",$E(X,1,30),DA(1),DA)"
^DD(62.01,.01,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(62.01,.01,21,0)="^^2^2^2850318^^^"
^DD(62.01,.01,21,1,0)="This field contains synonyms, abbreviations, or common misspellings of"
^DD(62.01,.01,21,2,0)="this sample."
^DD(62.01,.01,"DT")="2850318"
^DD(62.01,"B","SYNONYM",.01)=""
^DD(62.01,"GL",0,1,.01)=""
^DD(62.01,"IX",.01)=""
^DD(62.02,0)="COLLECTION WKLD CODE SUB-FIELD^^1^2"
^DD(62.02,0,"DT")="2920304"
^DD(62.02,0,"NM","COLLECTION WKLD CODE")=""
^DD(62.02,0,"UP")="62"
^DD(62.02,.01,0)="ACCESSION AREA^MP68'X^LRO(68,^0;1^S:$D(X) DINUM=X"
^DD(62.02,.01,1,0)="^.1^^0"
^DD(62.02,.01,21,0)="^^2^2^2920304^^^"
^DD(62.02,.01,21,1,0)="  Which accession area does the test belong that you want have"
^DD(62.02,.01,21,2,0)="accession WKLD codes triggered."
^DD(62.02,.01,"DT")="2920304"
^DD(62.02,1,0)="LAB TEST^62.21PA^^1;0"
^DD(62.02,1,21,0)="^^1^1^2920304^^^"
^DD(62.02,1,21,1,0)=" Enter a list of lab test that should trigger workload capture."
^DD(62.02,"B","ACCESSION AREA",.01)=""
^DD(62.02,"B","LAB TEST",1)=""
^DD(62.02,"GL",0,1,.01)=""
^DD(62.02,"GL",1,0,1)=""
^DD(62.02,"SB",62.21,1)=""
^DD(62.05,0)="FIELD^^6^8"
^DD(62.05,0,"DDA")="N"
^DD(62.05,0,"DT")="2950120"
^DD(62.05,0,"IX","AC",62.05,4)=""
^DD(62.05,0,"IX","B",62.05,.01)=""
^DD(62.05,0,"NM","URGENCY")=""
^DD(62.05,0,"PT",60,17)=""
^DD(62.05,0,"PT",60,18)=""
^DD(62.05,0,"PT",62.41,9)=""
^DD(62.05,0,"PT",62.801,.04)=""
^DD(62.05,0,"PT",62.9001,.04)=""
^DD(62.05,0,"PT",64.03,8)=""
^DD(62.05,0,"PT",64.1111,22)=""
^DD(62.05,0,"PT",64.6,4)=""
^DD(62.05,0,"PT",64.614,.01)=""
^DD(62.05,0,"PT",68.04,1)=""
^DD(62.05,0,"PT",68.222,.02)=""
^DD(62.05,0,"PT",69.03,1)=""
^DD(62.05,0,"PT",69.64,12)=""
^DD(62.05,0,"PT",69.9,301)=""
^DD(62.05,0,"PT",69.9,613)=""
^DD(62.05,0,"PT",101,6)=""
^DD(62.05,0,"PT",727.813,12)=""
^DD(62.05,0,"VR")="5.2"
^DD(62.05,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.05,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(62.05,.001,21,0)="^^1^1^2841113^"
^DD(62.05,.001,21,1,0)="The internal number associated with the URGENCY NAME."
^DD(62.05,.01,0)="URGENCY^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.05,.01,1,0)="^.1"
^DD(62.05,.01,1,1,0)="62.05^B"
^DD(62.05,.01,1,1,1)="S ^LAB(62.05,""B"",$E(X,1,30),DA)="""""
^DD(62.05,.01,1,1,2)="K ^LAB(62.05,""B"",$E(X,1,30),DA)"
^DD(62.05,.01,3)="Answer must be 3-30 characters in length."
^DD(62.05,.01,21,0)="^^1^1^2921018^^"
^DD(62.05,.01,21,1,0)="The name of the urgency status."
^DD(62.05,.01,"DT")="2921018"
^DD(62.05,1,0)="CAN LAB COLLECT?^S^1:YES;^0;2^Q"
^DD(62.05,1,21,0)="^^1^1^2841113^"
^DD(62.05,1,21,1,0)="If the Lab may collect a sample with this urgency, this field must contain a YES entry."
^DD(62.05,2,0)="WORKLOAD ONLY^S^1:YES;^0;3^Q"
^DD(62.05,2,21,0)="^^4^4^2940411^^^"
^DD(62.05,2,21,1,0)="  This field should only be set to yes for workload (WKL) urgency. This"
^DD(62.05,2,21,2,0)="urgency is used only with workload module. Only internal file number 50"
^DD(62.05,2,21,3,0)="and greater should have this field set to yes. Internal file number of 49"
^DD(62.05,2,21,4,0)="and below should be set to no if they exist."
^DD(62.05,2,23,0)="^^5^5^2940411^^^"
^DD(62.05,2,23,1,0)="  This field is used to screen the user from selecting the urgency "
^DD(62.05,2,23,2,0)="WORKLOAD (WKL) for a test. Internal file number 50 (WORKLOAD) is"
^DD(62.05,2,23,3,0)="used with certain functions of workload recording."
^DD(62.05,2,23,4,0)="DIC(""S"")=""I '$P(^(0),U,3)"" Should be used for lookup on this file."
^DD(62.05,2,23,5,0)="  This field is apart of V5.2 of LAB."
^DD(62.05,2,"DT")="2910313"
^DD(62.05,3,0)="HL7 CODE^S^S:Stat (with highest priority);A:ASAP (Fill after S orders);R:Routine;P:Preop;T:Timing critical (do as near as possible to requested time);C:Callback;PRN:As Needed;^0;4^Q"
^DD(62.05,3,3)="Enter the corresponding Health Level Seven (HL7) Table of Priority that most closely matches the DHCP Lab urgency."
^DD(62.05,3,21,0)="^^3^3^2970712^"
^DD(62.05,3,21,1,0)="This is the corresponding Health Level Seven (HL7) Table of Priority entry"
^DD(62.05,3,21,2,0)="that most closely matches the VistA Lab urgency.  This field will be used"
^DD(62.05,3,21,3,0)="in HL7 messages to describe the laboratory test urgency."
^DD(62.05,3,"DT")="2970127"
^DD(62.05,4,0)="LEDI HL7^*P64.061'^LAB(64.061,^0;5^S DIC(""S"")=""I $P(^(0),U,7)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.05,4,1,0)="^.1"
^DD(62.05,4,1,1,0)="62.05^AC^MUMPS"
^DD(62.05,4,1,1,1)="S ^LAB(62.05,""HL7"",$P(^LAB(64.061,X,0),U,3),DA)="""""
^DD(62.05,4,1,1,2)="K ^LAB(62.05,""HL7"",$P(^LAB(64.061,X,0),U,3),DA)"
^DD(62.05,4,1,1,"DT")="2970520"
^DD(62.05,4,12)="Limits the selection to Urgencies only"
^DD(62.05,4,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""P"""""""
^DD(62.05,4,21,0)="^^3^3^2970712^"
^DD(62.05,4,21,1,0)=" This field is used to map a local urgency to a standard entry in the  LAB"
^DD(62.05,4,21,2,0)="ELECTRONIC CODES file (#64.061) for the purpose of creating HL7 message"
^DD(62.05,4,21,3,0)="segments."
^DD(62.05,4,"DT")="2970520"
^DD(62.05,5,0)="LABEL PRINT^S^0:NO;1:YES;2:YES, REVERSE FIELD;^0;6^Q"
^DD(62.05,5,3)="Select if abbreviation is to be printed."
^DD(62.05,5,21,0)="^^4^4^2970317^"
^DD(62.05,5,21,1,0)="Determines if urgency's abbreviation is to be printed on labels."
^DD(62.05,5,21,2,0)="If ""YES, REVERSE FIELD"" is selected and label printer supports reverse"
^DD(62.05,5,21,3,0)="field printing, then abbreviation will be printed with white letters on a "
^DD(62.05,5,21,4,0)="black background."
^DD(62.05,5,"DT")="2970317"
^DD(62.05,6,0)="ABBREVIATION^F^^0;7^K:$L(X)>5!($L(X)<1) X"
^DD(62.05,6,3)="Answer must be 1-5 characters in length."
^DD(62.05,6,21,0)="^^1^1^2970610^"
^DD(62.05,6,21,1,0)="Abbreviation used when printing this urgency on labels."
^DD(62.05,6,"DT")="2970610"
^DD(62.05,"B","ABBREVIATION",6)=""
^DD(62.05,"B","CAN LAB COLLECT?",1)=""
^DD(62.05,"B","HL7 CODE",3)=""
^DD(62.05,"B","LABEL PRINT",5)=""
^DD(62.05,"B","LEDI HL7",4)=""
^DD(62.05,"B","NUMBER",.001)=""
^DD(62.05,"B","URGENCY",.01)=""
^DD(62.05,"B","WORKLOAD ONLY",2)=""
^DD(62.05,"GL",0,1,.01)=""
^DD(62.05,"GL",0,2,1)=""
^DD(62.05,"GL",0,3,2)=""
^DD(62.05,"GL",0,4,3)=""
^DD(62.05,"GL",0,5,4)=""
^DD(62.05,"GL",0,6,5)=""
^DD(62.05,"GL",0,7,6)=""
^DD(62.05,"IX",.01)=""
^DD(62.05,"IX",4)=""
^DD(62.05,"RQ",.01)=""
^DD(62.06,0)="FIELD^^64^12"
^DD(62.06,0,"DT")="3010923"
^DD(62.06,0,"ID",5)="W:$D(^(""0"")) ""   "",$S($D(^DD(63.3,+$P(^(""0""),U,4),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(62.06,0,"IX","AC",62.06,7)=""
^DD(62.06,0,"IX","AD",62.06,1)=""
^DD(62.06,0,"IX","AF",62.06,6)=""
^DD(62.06,0,"IX","AG",62.06,1)=""
^DD(62.06,0,"IX","AI",62.06,1)=""
^DD(62.06,0,"IX","AJ",62.06,1)=""
^DD(62.06,0,"IX","AO",62.06,.5)=""
^DD(62.06,0,"IX","AS",62.06,1)=""
^DD(62.06,0,"IX","B",62.06,.01)=""
^DD(62.06,0,"IX","C",62.06,5)=""
^DD(62.06,0,"IX","D",62.06,6)=""
^DD(62.06,0,"NM","ANTIMICROBIAL SUSCEPTIBILITY")=""
^DD(62.06,0,"PT",61.392,2)=""
^DD(62.06,0,"PT",62.46,.01)=""
^DD(62.06,0,"PT",64.023,.01)=""
^DD(62.06,0,"PT",69.55,.01)=""
^DD(62.06,0,"VR")="5.2"
^DD(62.06,0,"VRPK")="LR"
^DD(62.06,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.06,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(62.06,.001,21,0)="^^2^2^2870327^^"
^DD(62.06,.001,21,1,0)="The internal number associated with the name."
^DD(62.06,.001,21,2,0)="This number determines the sequence of display of antibiotics."
^DD(62.06,.001,"DT")="2841120"
^DD(62.06,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.06,.01,1,0)="^.1^^-1"
^DD(62.06,.01,1,1,0)="62.06^B"
^DD(62.06,.01,1,1,1)="S ^LAB(62.06,""B"",$E($P(X,""^"",1),1,30),DA)="""""
^DD(62.06,.01,1,1,2)="K ^LAB(62.06,""B"",$E($P(X,""^"",1),1,30),DA)"
^DD(62.06,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(62.06,.01,4)=""
^DD(62.06,.01,21,0)="^^1^1^2870327^^"
^DD(62.06,.01,21,1,0)="The name of the antibiotic."
^DD(62.06,.01,"DT")="2840522"
^DD(62.06,.5,0)="PRINT ORDER^RNJ7,3X^^0;7^K:+X'=X!(X>999.999)!(X<.001)!(X?.E1"".""4N.N) X Q:$D(DIU(0))  I $D(X),$O(^LAB(62.06,""AO"",X,0)) W *7,""  PRINT ORDER is already used by another antibiotic."",! K X"
^DD(62.06,.5,1,0)="^.1"
^DD(62.06,.5,1,1,0)="62.06^AO"
^DD(62.06,.5,1,1,1)="S ^LAB(62.06,""AO"",$E(X,1,30),DA)="""""
^DD(62.06,.5,1,1,2)="K ^LAB(62.06,""AO"",$E(X,1,30),DA)"
^DD(62.06,.5,3)="TYPE A NUMBER BETWEEN .001 AND 999.999"
^DD(62.06,.5,21,0)="^^2^2^2870622^"
^DD(62.06,.5,21,1,0)="The print order will determine the order in which the antibiotic will"
^DD(62.06,.5,21,2,0)="be displayed on reports."
^DD(62.06,.5,"DT")="2870622"
^DD(62.06,1,0)="DRUG NODE^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) S X=$P($P(^DD(63.3,$P(^LAB(62.06,DA,0),U,4),0),U,4),"";"",1)"
^DD(62.06,1,1,0)="^.1"
^DD(62.06,1,1,1,0)="62.06^AJ^MUMPS"
^DD(62.06,1,1,1,1)="D BUGNODE^LRMIXR1"
^DD(62.06,1,1,1,2)="K ^LAB(62.06,""AJ"",+X)"
^DD(62.06,1,1,2,0)="62.06^AS^MUMPS"
^DD(62.06,1,1,2,1)="D BUGNODE^LRMIXR2"
^DD(62.06,1,1,2,2)="K ^LAB(62.06,""AS"",+X)"
^DD(62.06,1,1,3,0)="62.06^AI^MUMPS"
^DD(62.06,1,1,3,1)="D BUGNODE^LRMIXR3"
^DD(62.06,1,1,3,2)="K ^LAB(62.06,""AI"",+X)"
^DD(62.06,1,1,4,0)="62.06^AD"
^DD(62.06,1,1,4,1)="S ^LAB(62.06,""AD"",$E(X,1,30),DA)="""""
^DD(62.06,1,1,4,2)="K ^LAB(62.06,""AD"",$E(X,1,30),DA)"
^DD(62.06,1,1,5,0)="62.06^AG^MUMPS"
^DD(62.06,1,1,5,1)="D ^LRMIXALL"
^DD(62.06,1,1,5,2)="D ^LRMIXALL"
^DD(62.06,1,1,5,"DT")="2940526"
^DD(62.06,1,3)="STUFFED AUTOMATICALLY"
^DD(62.06,1,5,1,0)="62.06^5^1"
^DD(62.06,1,9)="^"
^DD(62.06,1,21,0)="^^2^2^2870327^^^"
^DD(62.06,1,21,1,0)="Defines the position of the NAME in the database."
^DD(62.06,1,21,2,0)="The subscript location of the antibiotic in the LAB DATA file."
^DD(62.06,1,"DT")="2940526"
^DD(62.06,2,0)="SUSCEPTIBILITY RESULT^62.061A^^1;0"
^DD(62.06,2,21,0)="^^2^2^2920504^^^^"
^DD(62.06,2,21,1,0)="This is a multiple field.  It contains the susceptibility result "
^DD(62.06,2,21,2,0)="and the interpretation."
^DD(62.06,3,0)="*PRIMARY DISPLAY^62.062PA^^2;0"
^DD(62.06,3,21,0)="^^1^1^2870503^^^^"
^DD(62.06,3,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.06,3,21,2,0)="It is the display template that this antibiotic is to be included on."
^DD(62.06,4,0)="DISPLAY COMMENT^F^^0;3^K:$L(X)>40!($L(X)<2) X"
^DD(62.06,4,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(62.06,4,21,0)="^^2^2^2911203^^^^"
^DD(62.06,4,21,1,0)="This field contains any relevant comment that is to be displayed with "
^DD(62.06,4,21,2,0)="this antibiotic susceptibility."
^DD(62.06,4,"DT")="2840522"
^DD(62.06,5,0)="INTERNAL NAME^R*P63'X^DD(63.3,^0;4^S DIC(""S"")=""I Y>2,Y<200,X'[""""INTERP"""",X'[""""SCREEN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.06,5,1,0)="^.1"
^DD(62.06,5,1,1,0)="^^TRIGGER^62.06^1"
^DD(62.06,5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.06,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(62.06,5,1,1,1.1) X ^DD(62.06,5,1,1,1.4)"
^DD(62.06,5,1,1,1.1)="S X=DIV X $P(^DD(62.06,1,0),U,5,99)"
^DD(62.06,5,1,1,1.4)="S DIH=$S($D(^LAB(62.06,DIV(0),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.06,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.06,5,1,1,2)="Q"
^DD(62.06,5,1,1,"CREATE VALUE")="X $P(^DD(62.06,1,0),U,5,99)"
^DD(62.06,5,1,1,"DELETE VALUE")="NO EFFECT"
^DD(62.06,5,1,1,"FIELD")="BUG PIECE"
^DD(62.06,5,1,2,0)="62.06^C^MUMPS"
^DD(62.06,5,1,2,1)="S ^LAB(62.06,""C"",$P(^DD(63.3,X,0),U,1),DA)="""""
^DD(62.06,5,1,2,2)="K ^LAB(62.06,""C"",$P(^DD(63.3,X,0),U,1),DA)"
^DD(62.06,5,12)="Select on antibiotic names"
^DD(62.06,5,12.1)="S DIC(""S"")=""I Y>2,Y<200,X'[""""INTERP"""",X'[""""SCREEN"""""""
^DD(62.06,5,21,0)="^^1^1^2870327^^^"
^DD(62.06,5,21,1,0)="The internally used name of the antibiotic, usually a shortened version."
^DD(62.06,5,"DT")="2870327"
^DD(62.06,6,0)="ABBREVIATION^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X Q:$D(DIU(0))  I $D(X) I $D(^LAB(62.06,""D"",X)) W "" *DUPLICATE*"" K X"
^DD(62.06,6,1,0)="^.1^^-1"
^DD(62.06,6,1,1,0)="62.06^D"
^DD(62.06,6,1,1,1)="S ^LAB(62.06,""D"",$E(X,1,30),DA)="""""
^DD(62.06,6,1,1,2)="K ^LAB(62.06,""D"",$E(X,1,30),DA)"
^DD(62.06,6,1,3,0)="62.06^AF^MUMPS"
^DD(62.06,6,1,3,1)="S:$P(^LAB(62.06,DA,0),U,2) ^LAB(62.06,""AI"",+$P(^LAB(62.06,DA,0),U,2))=DA_U_X"
^DD(62.06,6,1,3,2)="S:$P(^LAB(62.06,DA,0),U,2) ^LAB(62.06,""AI"",+$P(^LAB(62.06,DA,0),U,2))=DA_U"
^DD(62.06,6,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(62.06,6,21,0)="^^5^5^2870327^^^^"
^DD(62.06,6,21,1,0)="This is the three letter abbreviation used in the INFECTION CONTROL and"
^DD(62.06,6,21,2,0)="ANTIBIOTIC TREND reports.  An abbreviation must be defined for all"
^DD(62.06,6,21,3,0)="antibiotics that need to go on these reports.  The order of the"
^DD(62.06,6,21,4,0)="antibiotics on the report is determined by the order number (internal"
^DD(62.06,6,21,5,0)="file number) of the antibiotic entry in the file."
^DD(62.06,6,"DT")="2861216"
^DD(62.06,7,0)="DEFAULT SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^0;6^Q"
^DD(62.06,7,1,0)="^.1"
^DD(62.06,7,1,1,0)="62.06^AC^MUMPS"
^DD(62.06,7,1,1,1)="I $L($P(^LAB(62.06,DA,0),U,2)) S ^LAB(62.06,""AS"",+$P(^(0),U,2))=X"
^DD(62.06,7,1,1,2)="I $L($P(^LAB(62.06,DA,0),U,2)) S ^LAB(62.06,""AS"",+$P(^(0),U,2))="""""
^DD(62.06,7,21,0)="^^10^10^2870327^^^^"
^DD(62.06,7,21,1,0)="The DEFAULT SCREEN may be used to specify how the antibiotic results and/or"
^DD(62.06,7,21,2,0)="interpretation will be displayed.  'A' will always display the result,"
^DD(62.06,7,21,3,0)="'N' will never display the result (unless the user has the LRLAB key),"
^DD(62.06,7,21,4,0)="'R' restricts the display so that the result is only displayed if the"
^DD(62.06,7,21,5,0)="interpretation of all antibiotics that are always displayed is resistant."
^DD(62.06,7,21,6,0)="No entry in this field will default to 'A'."
^DD(62.06,7,21,7,0)=" "
^DD(62.06,7,21,8,0)="This screen may be overridden by an ALTERNATE SCREEN (organism and/or"
^DD(62.06,7,21,9,0)="specimen specific) or by direct user input of a screen when entering"
^DD(62.06,7,21,10,0)="results."
^DD(62.06,7,"DT")="2870203"
^DD(62.06,8,0)="ALTERNATE SCREEN^62.08SI^^3;0"
^DD(62.06,8,21,0)="^^3^3^2930325^"
^DD(62.06,8,21,1,0)=" If for some reason the screen should be different for certain specimens"
^DD(62.06,8,21,2,0)="or organisms, when compared to the normal display, indicate how the"
^DD(62.06,8,21,3,0)="system should handle these cases."
^DD(62.06,64,0)="NATIONAL VA LAB CODE^P64'^LAM(^64;1^Q"
^DD(62.06,64,3)="Enter the corresponding VA National Code."
^DD(62.06,64,21,0)="^^2^2^2960829^^"
^DD(62.06,64,21,1,0)="This field is used to map antimicrobial susceptibilty in file  62.06 to the"
^DD(62.06,64,21,2,0)="VA National Labe codes found in file 64."
^DD(62.06,64,"DT")="3010923"
^DD(62.06,"B","*PRIMARY DISPLAY",3)=""
^DD(62.06,"B","ABBREVIATION",6)=""
^DD(62.06,"B","ALTERNATE SCREEN",8)=""
^DD(62.06,"B","DEFAULT SCREEN",7)=""
^DD(62.06,"B","DISPLAY COMMENT",4)=""
^DD(62.06,"B","DRUG NODE",1)=""
^DD(62.06,"B","INTERNAL NAME",5)=""
^DD(62.06,"B","NAME",.01)=""
^DD(62.06,"B","NATIONAL VA LAB CODE",64)=""
^DD(62.06,"B","NUMBER",.001)=""
^DD(62.06,"B","PRINT ORDER",.5)=""
^DD(62.06,"B","SUSCEPTIBILITY RESULT",2)=""
^DD(62.06,"GL",0,1,.01)=""
^DD(62.06,"GL",0,2,1)=""
^DD(62.06,"GL",0,3,4)=""
^DD(62.06,"GL",0,4,5)=""
^DD(62.06,"GL",0,5,6)=""
^DD(62.06,"GL",0,6,7)=""
^DD(62.06,"GL",0,7,.5)=""
^DD(62.06,"GL",1,0,2)=""
^DD(62.06,"GL",2,0,3)=""
^DD(62.06,"GL",3,0,8)=""
^DD(62.06,"GL",64,1,64)=""
^DD(62.06,"IX",.01)=""
^DD(62.06,"IX",.5)=""
^DD(62.06,"IX",1)=""
^DD(62.06,"IX",5)=""
^DD(62.06,"IX",6)=""
^DD(62.06,"IX",7)=""
^DD(62.06,"RQ",.01)=""
^DD(62.06,"RQ",.5)=""
^DD(62.06,"RQ",5)=""
^DD(62.06,"SB",62.061,2)=""
^DD(62.06,"SB",62.062,3)=""
^DD(62.06,"SB",62.08,8)=""
^DD(62.061,0)="SUSCEPTIBILITY RESULT SUB-FIELD^NL^3^4"
^DD(62.061,0,"IX","AC",62.061,.01)=""
^DD(62.061,0,"IX","AD",62.061,.01)=""
^DD(62.061,0,"IX","AE",62.061,1)=""
^DD(62.061,0,"IX","AF",62.061,1)=""
^DD(62.061,0,"IX","B",62.061,.01)=""
^DD(62.061,0,"NM","SUSCEPTIBILITY RESULT")=""
^DD(62.061,0,"UP")="62.06"
^DD(62.061,.01,0)="SUSCEPTIBILITY RESULT^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1)!'(X'?.C) X"
^DD(62.061,.01,1,0)="^.1^^-1"
^DD(62.061,.01,1,1,0)="62.061^B^MUMPS"
^DD(62.061,.01,1,1,1)="S ^LAB(62.06,DA(1),1,""B"",X,DA)="""""
^DD(62.061,.01,1,1,2)="K ^LAB(62.06,DA(1),1,""B"",X,DA)"
^DD(62.061,.01,1,2,0)="62.061^AD^MUMPS"
^DD(62.061,.01,1,2,1)="I $L($P(^LAB(62.06,DA(1),0),U,2)),$L($P(^LAB(62.06,DA(1),1,DA,0),U,2)) S ^LAB(62.06,""AI"",+$P(^LAB(62.06,DA(1),0),U,2),X)=$P(^LAB(62.06,DA(1),1,DA,0),U,2)"
^DD(62.061,.01,1,2,2)="I $L($P(^LAB(62.06,DA(1),0),U,2)) K ^LAB(62.06,""AI"",+$P(^LAB(62.06,DA(1),0),U,2),X)"
^DD(62.061,.01,1,3,0)="62.061^AC^MUMPS"
^DD(62.061,.01,1,3,1)="I $L($P(^LAB(62.06,DA(1),0),U,2)) S ^LAB(62.06,""AJ"",+$P(^(0),U,2),X)="""""
^DD(62.061,.01,1,3,2)="I $L($P(^LAB(62.06,DA(1),0),U,2)) S K9=$P(^(0),U,2) K ^LAB(62.06,""AJ"",K9,X)"
^DD(62.061,.01,1,3,"DT")="2940526"
^DD(62.061,.01,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(62.061,.01,21,0)="^^2^2^2870327^^^^"
^DD(62.061,.01,21,1,0)="The commonly used abbreviation of the susceptibility result or MIC value."
^DD(62.061,.01,21,2,0)="(exp. 'S', 'I', 'R', <2, 4, >32, etc.)"
^DD(62.061,.01,"DT")="2940623"
^DD(62.061,1,0)="DEFAULT INTERPRETATION^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(62.061,1,1,0)="^.1"
^DD(62.061,1,1,1,0)="62.061^AF^MUMPS"
^DD(62.061,1,1,1,1)="I $L($P(^LAB(62.06,DA(1),0),U,2)) S ^LAB(62.06,""AJ"",+$P(^(0),U,2),X)="""""
^DD(62.061,1,1,1,2)="D KINT^LRMIXR1"
^DD(62.061,1,1,2,0)="62.061^AE^MUMPS"
^DD(62.061,1,1,2,1)="I $L($P(^LAB(62.06,DA(1),0),U,2)) S ^LAB(62.06,""AI"",+$P(^LAB(62.06,DA(1),0),U,2),$P(^LAB(62.06,DA(1),1,DA,0),U))=X"
^DD(62.061,1,1,2,2)="I $L($P(^LAB(62.06,DA(1),0),U,2)) K ^LAB(62.06,""AI"",+$P(^LAB(62.06,DA(1),0),U,2),$P(^LAB(62.06,DA(1),1,DA,0),U))"
^DD(62.061,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(62.061,1,21,0)="^^7^7^2870327^^^^"
^DD(62.061,1,21,1,0)="The interpretation of the susceptibility result. (exp 'S', 'I', 'R')"
^DD(62.061,1,21,2,0)="The first character of the interpretation must be a 'S' to be counted as"
^DD(62.061,1,21,3,0)="susceptible on the Antibiotic Trend Report."
^DD(62.061,1,21,4,0)=" "
^DD(62.061,1,21,5,0)="The default interpretation may be overridden by an ALTERNATE INTERPRETATION"
^DD(62.061,1,21,6,0)="(organism and/or specimen specific) or by direct user input of an "
^DD(62.061,1,21,7,0)="interpretation when entering results."
^DD(62.061,1,"DT")="2870217"
^DD(62.061,2,0)="*ORGANISM^62.081P^^1;0"
^DD(62.061,2,12)="Entry is for bacteria, fungus, and mycobacteria only."
^DD(62.061,2,12.1)="S DIC(""S"")=""I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""""B""""!($P(^(0),U,5)=""""F"""")!($P(^(0),U,5)=""""M"""")"""
^DD(62.061,2,21,0)="^^1^1^2870503^^^^"
^DD(62.061,2,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.061,3,0)="ALTERNATE INTERPRETATION^62.091I^^2;0"
^DD(62.061,"B","*ORGANISM",2)=""
^DD(62.061,"B","ALTERNATE INTERPRETATION",3)=""
^DD(62.061,"B","DEFAULT INTERPRETATION",1)=""
^DD(62.061,"B","SUSCEPTIBILITY RESULT",.01)=""
^DD(62.061,"GL",0,1,.01)=""
^DD(62.061,"GL",0,2,1)=""
^DD(62.061,"GL",1,0,2)=""
^DD(62.061,"GL",2,0,3)=""
^DD(62.061,"IX",.01)=""
^DD(62.061,"IX",1)=""
^DD(62.061,"RQ",1)=""
^DD(62.061,"SB",62.081,2)=""
^DD(62.061,"SB",62.091,3)=""
^DD(62.062,0)="*PRIMARY DISPLAY SUB-FIELD^NL^1^2"
^DD(62.062,0,"NM","*PRIMARY DISPLAY")=""
^DD(62.062,0,"UP")="62.06"
^DD(62.062,.01,0)="*SPECIMEN^MP61'^LAB(61,^0;1^Q"
^DD(62.062,.01,21,0)="^^1^1^2870503^^^^"
^DD(62.062,.01,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.062,.01,"DT")="2841023"
^DD(62.062,1,0)="*DISPLAY^62.063A^^1;0"
^DD(62.062,1,21,0)="^^1^1^2870503^^^^"
^DD(62.062,1,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.062,"B","*DISPLAY",1)=""
^DD(62.062,"B","*SPECIMEN",.01)=""
^DD(62.062,"GL",0,1,.01)=""
^DD(62.062,"GL",1,0,1)=""
^DD(62.062,"SB",62.063,1)=""
^DD(62.063,0)="*DISPLAY SUB-FIELD^NL^.01^1"
^DD(62.063,0,"NM","*DISPLAY")=""
^DD(62.063,0,"UP")="62.062"
^DD(62.063,.01,0)="*DISPLAY^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(62.063,.01,1,0)="^.1^^0"
^DD(62.063,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(62.063,.01,21,0)="^^1^1^2870503^^^^"
^DD(62.063,.01,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.063,.01,"DT")="2861216"
^DD(62.063,"B","*DISPLAY",.01)=""
^DD(62.063,"GL",0,1,.01)=""
^DD(62.07,0)="FIELD^^501^9"
^DD(62.07,0,"DT")="2930912"
^DD(62.07,0,"ID",3)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(62.07,0,"IX","AC",62.07,5)=""
^DD(62.07,0,"IX","B",62.07,.01)=""
^DD(62.07,0,"NM","EXECUTE CODE")=""
^DD(62.07,0,"PT",60,98)=""
^DD(62.07,0,"PT",60,99.1)=""
^DD(62.07,0,"PT",60,99.2)=""
^DD(62.07,0,"PT",60,320)=""
^DD(62.07,0,"PT",60.03,7)=""
^DD(62.07,0,"PT",68,.05)=""
^DD(62.07,0,"PT",68,.06)=""
^DD(62.07,0,"PT",68,.07)=""
^DD(62.07,0,"PT",68.2,.02)=""
^DD(62.07,0,"PT",68.2,.07)=""
^DD(62.07,0,"PT",68.2,.12)=""
^DD(62.07,0,"PT",101,6)=""
^DD(62.07,0,"VR")="5.2"
^DD(62.07,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.07,.01,1,0)="^.1"
^DD(62.07,.01,1,1,0)="62.07^B"
^DD(62.07,.01,1,1,1)="S ^LAB(62.07,""B"",$E(X,1,30),DA)="""""
^DD(62.07,.01,1,1,2)="K ^LAB(62.07,""B"",$E(X,1,30),DA)"
^DD(62.07,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(62.07,.01,21,0)="^^1^1^2841114^"
^DD(62.07,.01,21,1,0)="The user given name of the code."
^DD(62.07,.01,"DT")="2841128"
^DD(62.07,1,0)="EXECUTE CODE^FX^^.1;E1,220^D ^DIM"
^DD(62.07,1,3)="ANSWER MUST BE 1-220 CHARACTERS IN LENGTH. AND VALID MUMPS CODE"
^DD(62.07,1,9)="@"
^DD(62.07,1,21,0)="^^2^2^2841114^^"
^DD(62.07,1,21,1,0)="The MUMPS code."
^DD(62.07,1,21,2,0)="EXAMPLE:  For the SMAC name the code is S CUP=CUP+1 I CUP>8 S CUP=1,TRAY=TRAY+1."
^DD(62.07,1,"DT")="2841025"
^DD(62.07,2,0)="PURGE CONTROL^S^DAILY:D;MONTHLY:M;QUARTERLY:Q;YEARLY:Y;^0;2^Q"
^DD(62.07,2,21,0)="^^1^1^2841114^"
^DD(62.07,2,21,1,0)="This field contains the time interval to purge.  Set of codes for Daily, Monthly, Quarterly, or Yearly."
^DD(62.07,3,0)="TYPE^RS^I:IDENTITY;V:VERIFICATION;A:ACCESSION;L:LOADLIST;E:EDIT;C:COMMENT;X:XECUTE;D:DATA;W:WORKLOAD;^0;3^Q"
^DD(62.07,3,21,0)="^^1^1^2841114^^"
^DD(62.07,3,21,1,0)="The type of code as categorized by the set of codes.  Identity, verfication, accession, loadlist, edit, or comment."
^DD(62.07,3,"DT")="2911120"
^DD(62.07,4,0)="HELP PROMPT^F^^.2;1^K:$L(X)>200!($L(X)<2) X"
^DD(62.07,4,3)="THIS IS THE MESSAGE PRINTED FOR COMMENTS WHEN A '?' IS ENTERED"
^DD(62.07,4,21,0)="^^1^1^2841114^"
^DD(62.07,4,21,1,0)="The user entered help prompt for the execute code name."
^DD(62.07,4,"DT")="2840828"
^DD(62.07,5,0)="SUBSCRIPT NAME^FX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<2)!($P(^(0),U,3)'=""X"") X Q:$D(DIU(0))  I $D(X) K:$D(^LAB(""X"",X)) X"
^DD(62.07,5,1,0)="^.1"
^DD(62.07,5,1,1,0)="62.07^AC^MUMPS"
^DD(62.07,5,1,1,1)="S ^LAB(""X"",X)=^LAB(62.07,DA,.1)"
^DD(62.07,5,1,1,2)="K ^LAB(""X"",X)"
^DD(62.07,5,3)="2-9 character function name (don't EVER change this!)"
^DD(62.07,5,21,0)="^^2^2^2841128^^"
^DD(62.07,5,21,1,0)="If the entry is type ""X"", eXecute, this is used in the ""X"" cross-reference."
^DD(62.07,5,21,2,0)="Otherwise, nothing should be placed in this field."
^DD(62.07,5,"DT")="2841128"
^DD(62.07,6,0)="DESCRIPTION^62.071^^1;0"
^DD(62.07,6,21,0)="^^2^2^2850725^^"
^DD(62.07,6,21,1,0)="This field contains information about how the execute code is"
^DD(62.07,6,21,2,0)="used, or what it does."
^DD(62.07,500,0)="EXECUTE WKLD CODE^62.09IPA^^9;0"
^DD(62.07,500,21,0)="^^2^2^2900505^"
^DD(62.07,500,21,1,0)="College of American Pathologists Workload codes associated"
^DD(62.07,500,21,2,0)=" with the execute code are stored here."
^DD(62.07,500,"DT")="2910315"
^DD(62.07,501,0)="SITE NOTES DATE^62.7501D^^2;0"
^DD(62.07,501,21,0)="^^1^1^2930912^"
^DD(62.07,501,21,1,0)=" The date of this particular note."
^DD(62.07,"B","DESCRIPTION",6)=""
^DD(62.07,"B","EXECUTE CODE",1)=""
^DD(62.07,"B","EXECUTE WKLD CODE",500)=""
^DD(62.07,"B","HELP PROMPT",4)=""
^DD(62.07,"B","NAME",.01)=""
^DD(62.07,"B","PURGE CONTROL",2)=""
^DD(62.07,"B","SITE NOTES DATE",501)=""
^DD(62.07,"B","SUBSCRIPT NAME",5)=""
^DD(62.07,"B","TYPE",3)=""
^DD(62.07,"GL",0,1,.01)=""
^DD(62.07,"GL",0,2,2)=""
^DD(62.07,"GL",0,3,3)=""
^DD(62.07,"GL",0,4,5)=""
^DD(62.07,"GL",.1,"E1,220",1)=""
^DD(62.07,"GL",.2,1,4)=""
^DD(62.07,"GL",1,0,6)=""
^DD(62.07,"GL",2,0,501)=""
^DD(62.07,"GL",9,0,500)=""
^DD(62.07,"IX",.01)=""
^DD(62.07,"IX",5)=""
^DD(62.07,"RQ",.01)=""
^DD(62.07,"RQ",3)=""
^DD(62.07,"SB",62.071,6)=""
^DD(62.07,"SB",62.09,500)=""
^DD(62.07,"SB",62.7501,501)=""
^DD(62.071,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(62.071,0,"NM","DESCRIPTION")=""
^DD(62.071,0,"UP")="62.07"
^DD(62.071,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(62.071,.01,21,0)="^^1^1^2850725^"
^DD(62.071,.01,21,1,0)="This field contains information about how the execute code is used, or what it does."
^DD(62.071,.01,"DT")="2850214"
^DD(62.071,"B","DESCRIPTION",.01)=""
^DD(62.071,"GL",0,1,.01)=""
^DD(62.08,0)="ALTERNATE SCREEN SUB-FIELD^^2^3"
^DD(62.08,0,"ID",1)="W ""   "",$S($D(^LAB(61.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(62.08,0,"ID",2)="W ""   "",$S($D(^LAB(61,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(62.08,0,"IX","AC",62.08,.01)=""
^DD(62.08,0,"IX","AD",62.08,1)=""
^DD(62.08,0,"IX","AE",62.08,2)=""
^DD(62.08,0,"NM","ALTERNATE SCREEN")=""
^DD(62.08,0,"UP")="62.06"
^DD(62.08,.01,0)="ALTERNATE SCREEN^MS^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^0;1^Q"
^DD(62.08,.01,1,0)="^.1"
^DD(62.08,.01,1,1,0)="62.08^AC^MUMPS"
^DD(62.08,.01,1,1,1)="D ^LRMIXALL"
^DD(62.08,.01,1,1,2)="D KALT^LRMIXR2,^LRMIXALL"
^DD(62.08,.01,1,1,"DT")="2940526"
^DD(62.08,.01,21,0)="^^3^3^2870327^"
^DD(62.08,.01,21,1,0)="This screen will be used instead of the default screen if the ORGANISM"
^DD(62.08,.01,21,2,0)="(SCREEN) and SPECIMEN (SCREEN) are appropriate for the organism and"
^DD(62.08,.01,21,3,0)="specimen being edited."
^DD(62.08,.01,"DT")="2940526"
^DD(62.08,1,0)="ORGANISM (SCREEN)^R*P61.2'^LAB(61.2,^0;2^S DIC(""S"")=""I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""""B""""!($P(^(0),U,5)=""""F"""")!($P(^(0),U,5)=""""M"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.08,1,1,0)="^.1"
^DD(62.08,1,1,1,0)="62.08^AD^MUMPS"
^DD(62.08,1,1,1,1)="D ALTO^LRMIXR2"
^DD(62.08,1,1,1,2)="D KALT^LRMIXR2"
^DD(62.08,1,12)="Must be bacteria, fungus, or mycobacteria."
^DD(62.08,1,12.1)="S DIC(""S"")=""I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""""B""""!($P(^(0),U,5)=""""F"""")!($P(^(0),U,5)=""""M"""")"""
^DD(62.08,1,21,0)="^^7^7^2870327^"
^DD(62.08,1,21,1,0)="This organism will be used to determine an ALTERNATE INTERPRETATION."
^DD(62.08,1,21,2,0)="An organism with the name containing 'GRAM POS' implies any gram positive"
^DD(62.08,1,21,3,0)="organism.  An organism with the name containing 'GRAM NEG' implies any"
^DD(62.08,1,21,4,0)="gram negative organism.  During result entry in micro, the gram stain on"
^DD(62.08,1,21,5,0)="the organism being edited is determined as the entry in the GRAM STAIN"
^DD(62.08,1,21,6,0)="field of the ETIOLOGY file.  An organism with the name containing 'UNKNOWN'"
^DD(62.08,1,21,7,0)="implies any organism."
^DD(62.08,1,"DT")="2861216"
^DD(62.08,2,0)="SPECIMEN (SCREEN)^RP61'^LAB(61,^0;3^Q"
^DD(62.08,2,1,0)="^.1"
^DD(62.08,2,1,1,0)="62.08^AE^MUMPS"
^DD(62.08,2,1,1,1)="D ALTS^LRMIXR2"
^DD(62.08,2,1,1,2)="D KALT^LRMIXR2"
^DD(62.08,2,21,0)="^^2^2^2870327^"
^DD(62.08,2,21,1,0)="The specimen used to determine an ALTERNATE SCREEN.  A specimen with the"
^DD(62.08,2,21,2,0)="name containing 'UNKNOWN' implys any specimen."
^DD(62.08,2,"DT")="2861216"
^DD(62.08,"B","ALTERNATE SCREEN",.01)=""
^DD(62.08,"B","ORGANISM (SCREEN)",1)=""
^DD(62.08,"B","SPECIMEN (SCREEN)",2)=""
^DD(62.08,"GL",0,1,.01)=""
^DD(62.08,"GL",0,2,1)=""
^DD(62.08,"GL",0,3,2)=""
^DD(62.08,"IX",.01)=""
^DD(62.08,"IX",1)=""
^DD(62.08,"IX",2)=""
^DD(62.08,"RQ",1)=""
^DD(62.08,"RQ",2)=""
^DD(62.081,0)="*ORGANISM SUB-FIELD^^2^3"
^DD(62.081,0,"IX","B",62.081,.01)=""
^DD(62.081,0,"NM","*ORGANISM")=""
^DD(62.081,0,"UP")="62.061"
^DD(62.081,.01,0)="*ORGANISM^M*P61.2'X^LAB(61.2,^0;1^S DIC(""S"")=""I 0,$D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""""B""""!($P(^(0),U,5)=""""F"""")!($P(^(0),U,5)=""""M"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.081,.01,1,0)="^.1^^0"
^DD(62.081,.01,1,1,0)="62.081^B"
^DD(62.081,.01,1,1,1)="S ^LAB(62.06,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(62.081,.01,1,1,2)="K ^LAB(62.06,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(62.081,.01,21,0)="^^1^1^2870503^^^^"
^DD(62.081,.01,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.081,.01,21,2,0)="interpretations than the interpretation for this result.  Example: If the"
^DD(62.081,.01,21,3,0)="result '4' has a interpretation 'R' but E. coli is sensitive for this"
^DD(62.081,.01,21,4,0)="result, then E. coli would be entered and given an alternate interpretation"
^DD(62.081,.01,21,5,0)="of 'S'.  An organism with ""GRAM POS"" in its name will imply any organism"
^DD(62.081,.01,21,6,0)="defined as gram positive.  ""GRAM NEG"" is similar.  Example: If GRAM NEG ROD"
^DD(62.081,.01,21,7,0)="(10250D) is entered, then any gram negative organism would be given an"
^DD(62.081,.01,21,8,0)="alternate interpretation."
^DD(62.081,.01,"DT")="2861216"
^DD(62.081,1,0)="*ALTERNATE INTERPRETATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(62.081,1,1,0)="^.1^^0"
^DD(62.081,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(62.081,1,21,0)="^^1^1^2870503^^^^"
^DD(62.081,1,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.081,1,21,2,0)="Used if an organism has a different interpretation than the entry in the"
^DD(62.081,1,21,3,0)="'Interpretation' field for a given antibiotic sensitivity result."
^DD(62.081,1,"DT")="2861216"
^DD(62.081,2,0)="*ADDITIONAL DISPLAY COMMENT^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<2) X"
^DD(62.081,2,1,0)="^.1^^0"
^DD(62.081,2,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(62.081,2,21,0)="^^1^1^2870503^^^^"
^DD(62.081,2,21,1,0)="No longer used.  Will be deleted after 1/89."
^DD(62.081,2,21,2,0)="microbiolgy patient's report if the alternate interpretation over-rides the"
^DD(62.081,2,21,3,0)="interpretation."
^DD(62.081,2,"DT")="2861216"
^DD(62.081,"B","*ADDITIONAL DISPLAY COMMENT",2)=""
^DD(62.081,"B","*ALTERNATE INTERPRETATION",1)=""
^DD(62.081,"B","*ORGANISM",.01)=""
^DD(62.081,"GL",0,1,.01)=""
^DD(62.081,"GL",0,2,1)=""
^DD(62.081,"GL",0,3,2)=""
^DD(62.081,"IX",.01)=""
^DD(62.09,0)="EXECUTE WKLD CODE SUB-FIELD^^2^3"
^DD(62.09,0,"ID",1)="W """""
^DD(62.09,0,"NM","EXECUTE WKLD CODE")=""
^DD(62.09,0,"UP")="62.07"
^DD(62.09,.01,0)="EXECUTE WKLD CODE^MP64'X^LAM(^0;1^S DINUM=X"
^DD(62.09,.01,1,0)="^.1"
^DD(62.09,.01,1,1,0)="^^TRIGGER^62.09^1"
^DD(62.09,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.07,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(62.09,.01,1,1,1.1) X ^DD(62.09,.01,1,1,1.4)"
^DD(62.09,.01,1,1,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAM(+D0,0)) D0=-1 S Y(101)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)"
^DD(62.09,.01,1,1,1.4)="S DIH=$S($D(^LAB(62.07,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=62.09,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.09,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.07,D0,9,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(62.09,.01,1,1,2.4)"
^DD(62.09,.01,1,1,2.4)="S DIH=$S($D(^LAB(62.07,DIV(0),9,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=62.09,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.09,.01,1,1,"CREATE VALUE")="WKLD CODE:WKLD CODE"
^DD(62.09,.01,1,1,"DELETE VALUE")="@"
^DD(62.09,.01,1,1,"DT")="2910201"
^DD(62.09,.01,1,1,"FIELD")="WKLD CODE NUMBER"
^DD(62.09,.01,21,0)="^^1^1^2900505^"
^DD(62.09,.01,21,1,0)="Enter the WKLD codes associated with the execute code."
^DD(62.09,.01,"DT")="2910315"
^DD(62.09,1,0)="EXECUTE WKLD CODE #^NJ9,3I^^0;2^K:+X'=X!(X>99999)!(X<10000)!(X?.E1"".""4N.N) X"
^DD(62.09,1,3)="Type a Number between 10000 and 99999, 3 Decimal Digits"
^DD(62.09,1,5,1,0)="62.09^.01^1"
^DD(62.09,1,9)="^"
^DD(62.09,1,"DT")="2910315"
^DD(62.09,2,0)="MULTIPLY FACTOR^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.09,2,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(62.09,2,21,0)="^^4^4^2940816^"
^DD(62.09,2,21,1,0)="If this particular WKLD code should be multiplied in order to receive"
^DD(62.09,2,21,2,0)="proper count, enter that number here.  The default is 1."
^DD(62.09,2,21,3,0)="NOTE: This field is identical to the field found in the Verify"
^DD(62.09,2,21,4,0)="WKLD code field sub file."
^DD(62.09,2,"DT")="2900522"
^DD(62.09,"B","EXECUTE WKLD CODE",.01)=""
^DD(62.09,"B","EXECUTE WKLD CODE #",1)=""
^DD(62.09,"B","MULTIPLY FACTOR",2)=""
^DD(62.09,"GL",0,1,.01)=""
^DD(62.09,"GL",0,2,1)=""
^DD(62.09,"GL",0,3,2)=""
^DD(62.09,"IX",.01)=""
^DD(62.091,0)="ALTERNATE INTERPRETATION SUB-FIELD^^2^3"
^DD(62.091,0,"ID",1)="W ""   "",$S($D(^LAB(61.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(62.091,0,"ID",2)="W ""   "",$S($D(^LAB(61,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(62.091,0,"IX","AC",62.091,.01)=""
^DD(62.091,0,"IX","AD",62.091,1)=""
^DD(62.091,0,"IX","AE",62.091,2)=""
^DD(62.091,0,"IX","AG",62.091,.01)=""
^DD(62.091,0,"IX","B",62.091,.01)=""
^DD(62.091,0,"NM","ALTERNATE INTERPRETATION")=""
^DD(62.091,0,"UP")="62.061"
^DD(62.091,.01,0)="ALTERNATE INTERPRETATION^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(62.091,.01,1,0)="^.1"
^DD(62.091,.01,1,1,0)="62.091^B"
^DD(62.091,.01,1,1,1)="S ^LAB(62.06,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(62.091,.01,1,1,2)="K ^LAB(62.06,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(62.091,.01,1,2,0)="62.091^AC^MUMPS"
^DD(62.091,.01,1,2,1)="D ALT^LRMIXR3"
^DD(62.091,.01,1,2,2)="D KALT^LRMIXR3"
^DD(62.091,.01,1,3,0)="62.091^AG^MUMPS"
^DD(62.091,.01,1,3,1)="I $L($P(^LAB(62.06,DA(2),0),U,2)) S ^LAB(62.06,""AJ"",+$P(^(0),U,2),X)="""""
^DD(62.091,.01,1,3,2)="D KAINT^LRMIXR1"
^DD(62.091,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(62.091,.01,21,0)="^^3^3^2870327^"
^DD(62.091,.01,21,1,0)="The interpretation that will be used if the ORGANISM (INTERP) and"
^DD(62.091,.01,21,2,0)="SPECIMEN (INTERP) are appropriate for the organism and specimen"
^DD(62.091,.01,21,3,0)="on which results are being entered."
^DD(62.091,.01,"DT")="2861216"
^DD(62.091,1,0)="ORGANISM (INTERP)^R*P61.2'^LAB(61.2,^0;2^S DIC(""S"")=""I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""""B""""!($P(^(0),U,5)=""""F"""")!($P(^(0),U,5)=""""M"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.091,1,1,0)="^.1"
^DD(62.091,1,1,1,0)="62.091^AD^MUMPS"
^DD(62.091,1,1,1,1)="D ALTO^LRMIXR3"
^DD(62.091,1,1,1,2)="D KALT^LRMIXR3"
^DD(62.091,1,12)="Bacteria, fungus, mycobacteria only"
^DD(62.091,1,12.1)="S DIC(""S"")=""I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""""B""""!($P(^(0),U,5)=""""F"""")!($P(^(0),U,5)=""""M"""")"""
^DD(62.091,1,21,0)="^^7^7^2870327^^"
^DD(62.091,1,21,1,0)="The organism will be used to determine an ALTERNATE INTERPRETATION."
^DD(62.091,1,21,2,0)="An organism with the name containing 'GRAM POS' implies any gram positive"
^DD(62.091,1,21,3,0)="organism.  An organism with the name containing 'GRAM NEG' implies any"
^DD(62.091,1,21,4,0)="gram negative organism.  During result entry in micro, the gram stain "
^DD(62.091,1,21,5,0)="on the organism being edited is determined as the entry in the GRAM STAIN"
^DD(62.091,1,21,6,0)="field of the ETIOLOGY file.  An organism with the name containing 'UNKNOWN'"
^DD(62.091,1,21,7,0)="implies any organism."
^DD(62.091,1,"DT")="2861216"
^DD(62.091,2,0)="SPECIMEN (INTERP)^RP61'^LAB(61,^0;3^Q"
^DD(62.091,2,1,0)="^.1"
^DD(62.091,2,1,1,0)="62.091^AE^MUMPS"
^DD(62.091,2,1,1,1)="D ALTS^LRMIXR3"
^DD(62.091,2,1,1,2)="D KALT^LRMIXR3"
^DD(62.091,2,21,0)="^^2^2^2870327^"
^DD(62.091,2,21,1,0)="The specimen used to determine an ALTERNATE INTERPRETATION."
^DD(62.091,2,21,2,0)="A specimen with the name containing 'UNKNOWN' implies any specimen."
^DD(62.091,2,"DT")="2861216"
^DD(62.091,"B","ALTERNATE INTERPRETATION",.01)=""
^DD(62.091,"B","ORGANISM (INTERP)",1)=""
^DD(62.091,"B","SPECIMEN (INTERP)",2)=""
^DD(62.091,"GL",0,1,.01)=""
^DD(62.091,"GL",0,2,1)=""
^DD(62.091,"GL",0,3,2)=""
^DD(62.091,"IX",.01)=""
^DD(62.091,"IX",1)=""
^DD(62.091,"IX",2)=""
^DD(62.091,"RQ",1)=""
^DD(62.091,"RQ",2)=""
^DD(62.1,0)="FIELD^NL^61.1^9"
^DD(62.1,0,"DT")="2930912"
^DD(62.1,0,"IX","B",62.1,.01)=""
^DD(62.1,0,"NM","DELTA CHECKS")=""
^DD(62.1,0,"PT",60.01,7)=""
^DD(62.1,0,"VR")="5.2"
^DD(62.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.1,.01,1,0)="^.1"
^DD(62.1,.01,1,1,0)="62.1^B"
^DD(62.1,.01,1,1,1)="S ^LAB(62.1,""B"",$E(X,1,30),DA)="""""
^DD(62.1,.01,1,1,2)="K ^LAB(62.1,""B"",$E(X,1,30),DA)"
^DD(62.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(62.1,.01,21,0)="^^1^1^2841114^"
^DD(62.1,.01,21,1,0)="The name of the delta check.  It may be either an absolute or a percentage check.  It may also be used for making range comparisons."
^DD(62.1,.01,"DT")="2830614"
^DD(62.1,10,0)="XECUTABLE CODE^RFX^^1;E1,250^K:$L(X)>245!($L(X)<2) X D ^DIM:$D(X)"
^DD(62.1,10,3)="ANSWER MUST BE 2-245 CHARACTERS IN LENGTH"
^DD(62.1,10,9)="@"
^DD(62.1,10,21,0)="^^4^4^2890717^^^^"
^DD(62.1,10,21,1,0)="MUMPS code describing the delta check."
^DD(62.1,10,21,2,0)="Example:  For the Delta Checks Name ""ABS VALLUE"" (absolute value) the Executable code is Q:X=""""!(X1="""")!(+X2=0) S Y=0,X3=X-X1 S:X3<0 X3=-X3 I X3>X2 S Y=1 W ""  <<DELTA CHECK>>  "",7,X3."
^DD(62.1,10,21,3,0)="This statement ends the routine if the response is null (carriage return), if the previous value (X1) is null, or if the maximum difference is 0."
^DD(62.1,10,21,4,0)="If not, the difference between current and previous value (X3=X-X1) is computed and converted to the absolute value and the message ""  <<DELTA CHECK>>  "", a bell, and the absolute value is printed."
^DD(62.1,10,"DT")="2870507"
^DD(62.1,20,0)="OVERFLOW 1^FX^^2;E1,250^K:$L(X)>245!($L(X)<1) X D ^DIM:$D(X)"
^DD(62.1,20,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(62.1,20,9)="@"
^DD(62.1,20,21,0)="^^1^1^2890717^^"
^DD(62.1,20,21,1,0)="This field provides room for continuation of the code in the XECUTABLE CODE field, if needed."
^DD(62.1,20,"DT")="2870507"
^DD(62.1,30,0)="DESCRIPTION^62.11^^3;0"
^DD(62.1,30,21,0)="^^2^2^2850725^^"
^DD(62.1,30,21,1,0)="This field contains information about how the delta check is"
^DD(62.1,30,21,2,0)="used, or what it does."
^DD(62.1,31,0)="SITE NOTES DATE^62.131D^^4;0"
^DD(62.1,31,21,0)="^^1^1^2930912^"
^DD(62.1,31,21,1,0)=" The date of this particular note."
^DD(62.1,60.1,0)="TEST NAME FOR INPUT VALUE 1^P60'^LAB(60,^5;1^Q"
^DD(62.1,60.1,3)=""
^DD(62.1,60.1,21,0)="^.001^3^3^3030207^^^^"
^DD(62.1,60.1,21,1,0)=" This field is a pointer to a test that will contain the result value of "
^DD(62.1,60.1,21,2,0)="the first incoming test. The result value should be stored in the "
^DD(62.1,60.1,21,3,0)="variable LRSB(X) - where X is the data name IEN from ^DD(63.04."
^DD(62.1,60.1,"DT")="3020924"
^DD(62.1,60.2,0)="TEST NAME FOR INPUT VALUE 2^P60'^LAB(60,^5;2^Q"
^DD(62.1,60.2,3)=""
^DD(62.1,60.2,21,0)="^.001^3^3^3020924^^^^"
^DD(62.1,60.2,21,1,0)=" This field is a pointer to a test that will contain the result value of"
^DD(62.1,60.2,21,2,0)="the second incoming test. The result value should be stored in the"
^DD(62.1,60.2,21,3,0)="variable LRSB(X) - where X is the data name IEN from ^DD(63.04."
^DD(62.1,60.2,"DT")="3020924"
^DD(62.1,60.3,0)="TEST NAME FOR INPUT VALUE 3^P60'^LAB(60,^5;3^Q"
^DD(62.1,60.3,3)=""
^DD(62.1,60.3,21,0)="^.001^3^3^3020924^^^^"
^DD(62.1,60.3,21,1,0)=" This field is a pointer to a test that will contain the result value of"
^DD(62.1,60.3,21,2,0)="the third incoming test. The result value should be stored in the"
^DD(62.1,60.3,21,3,0)="variable LRSB(X) - where X is the data name IEN from ^DD(63.04."
^DD(62.1,60.3,"DT")="3020924"
^DD(62.1,61.1,0)="TEST NAME FOR OUTPUT VALUE 1^P60'^LAB(60,^5;4^Q"
^DD(62.1,61.1,3)=""
^DD(62.1,61.1,21,0)="^.001^3^3^3020924^^^^"
^DD(62.1,61.1,21,1,0)="This field is a pointer to a test that will contain the calculated value of"
^DD(62.1,61.1,21,2,0)="the first outgoing test. The calculated value should be stored in the "
^DD(62.1,61.1,21,3,0)="variable LRSB(X) - where X is the data name IEN from ^DD(63.04."
^DD(62.1,61.1,"DT")="3020924"
^DD(62.1,"B","DESCRIPTION",30)=""
^DD(62.1,"B","NAME",.01)=""
^DD(62.1,"B","OVERFLOW 1",20)=""
^DD(62.1,"B","SITE NOTES DATE",31)=""
^DD(62.1,"B","TEST NAME FOR INPUT VALUE 1",60.1)=""
^DD(62.1,"B","TEST NAME FOR INPUT VALUE 2",60.2)=""
^DD(62.1,"B","TEST NAME FOR INPUT VALUE 3",60.3)=""
^DD(62.1,"B","TEST NAME FOR OUTPUT VALUE 1",61.1)=""
^DD(62.1,"B","XECUTABLE CODE",10)=""
^DD(62.1,"GL",0,1,.01)=""
^DD(62.1,"GL",1,"E1,250",10)=""
^DD(62.1,"GL",2,"E1,250",20)=""
^DD(62.1,"GL",3,0,30)=""
^DD(62.1,"GL",4,0,31)=""
^DD(62.1,"GL",5,1,60.1)=""
^DD(62.1,"GL",5,2,60.2)=""
^DD(62.1,"GL",5,3,60.3)=""
^DD(62.1,"GL",5,4,61.1)=""
^DD(62.1,"IX",.01)=""
^DD(62.1,"RQ",.01)=""
^DD(62.1,"RQ",10)=""
^DD(62.1,"SB",62.11,30)=""
^DD(62.1,"SB",62.131,31)=""
^DD(62.11,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(62.11,0,"NM","DESCRIPTION")=""
^DD(62.11,0,"UP")="62.1"
^DD(62.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(62.11,.01,21,0)="^^1^1^2850725^"
^DD(62.11,.01,21,1,0)="This field contains information about how the delta check is used, or what it does."
^DD(62.11,.01,"DT")="2850214"
^DD(62.11,"B","DESCRIPTION",.01)=""
^DD(62.11,"GL",0,1,.01)=""
^DD(62.131,0)="SITE NOTES DATE SUB-FIELD^^1^2"
^DD(62.131,0,"DT")="2930912"
^DD(62.131,0,"IX","B",62.131,.01)=""
^DD(62.131,0,"NM","SITE NOTES DATE")=""
^DD(62.131,0,"UP")="62.1"
^DD(62.131,.01,0)="SITE NOTES DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(62.131,.01,1,0)="^.1"
^DD(62.131,.01,1,1,0)="62.131^B"
^DD(62.131,.01,1,1,1)="S ^LAB(62.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(62.131,.01,1,1,2)="K ^LAB(62.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(62.131,.01,"DT")="2930912"
^DD(62.131,1,0)="TEXT^62.1311^^1;0"
^DD(62.131,1,21,0)="^^1^1^2930912^"
^DD(62.131,1,21,1,0)=" The actual text of the note."
^DD(62.131,"B","SITE NOTES DATE",.01)=""
^DD(62.131,"B","TEXT",1)=""
^DD(62.131,"GL",0,1,.01)=""
^DD(62.131,"GL",1,0,1)=""
^DD(62.131,"IX",.01)=""
^DD(62.131,"SB",62.1311,1)=""
^DD(62.1311,0)="TEXT SUB-FIELD^^.01^1"
^DD(62.1311,0,"DT")="2930912"
^DD(62.1311,0,"NM","TEXT")=""
^DD(62.1311,0,"UP")="62.131"
^DD(62.1311,.01,0)="TEXT^W^^0;1^Q"
^DD(62.1311,.01,"DT")="2930912"
^DD(62.1311,"B","TEXT",.01)=""
^DD(62.1311,"GL",0,1,.01)=""
^DD(62.2,0)="FIELD^NL^5^5"
^DD(62.2,0,"ID",2)="W """""
^DD(62.2,0,"IX","B",62.2,.01)=""
^DD(62.2,0,"NM","LAB SECTION")=""
^DD(62.2,0,"PT",62,6)=""
^DD(62.2,0,"PT",62.2,5)=""
^DD(62.2,0,"PT",62.201,.01)=""
^DD(62.2,0,"PT",62.6,.02)=""
^DD(62.2,0,"PT",68,.095)=""
^DD(62.2,0,"VR")="5.2"
^DD(62.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.2,.01,1,0)="^.1"
^DD(62.2,.01,1,1,0)="62.2^B"
^DD(62.2,.01,1,1,1)="S ^LAB(62.2,""B"",$E(X,1,30),DA)="""""
^DD(62.2,.01,1,1,2)="K ^LAB(62.2,""B"",$E(X,1,30),DA)"
^DD(62.2,.01,3)="Answer must be 3-30 characters in length."
^DD(62.2,.01,21,0)="^^1^1^2841114^"
^DD(62.2,.01,21,1,0)="This is the name of the Lab area.  It may be a functional area or an area defined by another set of rules.  Each area may have multiple accession areas."
^DD(62.2,.01,"DT")="2890209"
^DD(62.2,2,0)="SUBSCRIPT^RS^CH:CHEM, HEM, TOX, SER, RIA, ETC.;MI:MICROBIOLOGY;EM:ELECTRON MICROSCOPY;SP:SURGICAL PATHOLOGY;CY:CYTOLOGY;AU:AUTOPSY;BB:BLOOD BANK;AD:ADMINISTRATIVE;^0;2^Q"
^DD(62.2,2,3)=""
^DD(62.2,2,21,0)="^^1^1^2841114^"
^DD(62.2,2,21,1,0)="This is a 2 to 3 character abbreviation designating the Lab area (section)."
^DD(62.2,2,"DT")="2860713"
^DD(62.2,3,0)="ABBREVIATION^RF^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(62.2,3,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(62.2,3,21,0)="^^1^1^2860325^"
^DD(62.2,3,21,1,0)="Abbreviation is used on some reports."
^DD(62.2,3,"DT")="2860417"
^DD(62.2,4,0)="LAB SUB-SECTION(S)^62.201PA^^1;0"
^DD(62.2,4,21,0)="^^2^2^2911203^"
^DD(62.2,4,21,1,0)="These are the names of the various lab sections"
^DD(62.2,4,21,2,0)="which may be made up of one or more lab sections."
^DD(62.2,5,0)="MAJOR SECTION^RP62.2^LAB(62.2,^0;4^Q"
^DD(62.2,5,3)=""
^DD(62.2,5,21,0)="^^1^1^2911203^"
^DD(62.2,5,21,1,0)="This is a major section of the laboratory."
^DD(62.2,5,"DT")="2860327"
^DD(62.2,"B","ABBREVIATION",3)=""
^DD(62.2,"B","LAB SUB-SECTION(S)",4)=""
^DD(62.2,"B","MAJOR SECTION",5)=""
^DD(62.2,"B","NAME",.01)=""
^DD(62.2,"B","SUBSCRIPT",2)=""
^DD(62.2,"GL",0,1,.01)=""
^DD(62.2,"GL",0,2,2)=""
^DD(62.2,"GL",0,3,3)=""
^DD(62.2,"GL",0,4,5)=""
^DD(62.2,"GL",1,0,4)=""
^DD(62.2,"IX",.01)=""
^DD(62.2,"RQ",.01)=""
^DD(62.2,"RQ",2)=""
^DD(62.2,"RQ",3)=""
^DD(62.2,"RQ",5)=""
^DD(62.2,"SB",62.201,4)=""
^DD(62.201,0)="LAB SUB-SECTION(S) SUB-FIELD^^.01^1"
^DD(62.201,0,"IX","B",62.201,.01)=""
^DD(62.201,0,"NM","LAB SUB-SECTION(S)")=""
^DD(62.201,0,"UP")="62.2"
^DD(62.201,.01,0)="LAB SUB-SECTION(S)^MP62.2^LAB(62.2,^0;1^Q"
^DD(62.201,.01,1,0)="^.1"
^DD(62.201,.01,1,1,0)="62.201^B"
^DD(62.201,.01,1,1,1)="S ^LAB(62.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(62.201,.01,1,1,2)="K ^LAB(62.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(62.201,.01,21,0)="^^1^1^2860416^^"
^DD(62.201,.01,21,1,0)="Each lab section may be made up of one or more lab sections."
^DD(62.201,.01,"DT")="2860325"
^DD(62.201,"B","LAB SUB-SECTION(S)",.01)=""
^DD(62.201,"GL",0,1,.01)=""
^DD(62.201,"IX",.01)=""
^DD(62.21,0)="LAB TEST SUB-FIELD^^1^2"
^DD(62.21,0,"DT")="2920304"
^DD(62.21,0,"NM","LAB TEST")=""
^DD(62.21,0,"UP")="62.02"
^DD(62.21,.01,0)="LAB TEST^MP60'X^LAB(60,^0;1^S:$D(X) DINUM=X"
^DD(62.21,.01,1,0)="^.1^^0"
^DD(62.21,.01,"DT")="2920304"
^DD(62.21,1,0)="WKLD CODE^62.211PA^^1;0"
^DD(62.21,1,21,0)="^^7^7^2920304^"
^DD(62.21,1,21,1,0)="  Enter a list of WKLD code you wish to have counted when this"
^DD(62.21,1,21,2,0)="test is accessioned. This is an alternate point for entering"
^DD(62.21,1,21,3,0)="accession WKLD codes.  It is simular to accession WKLD codes but"
^DD(62.21,1,21,4,0)="is by accession area and test."
^DD(62.21,1,21,5,0)="   This field is to be used when it is not desirable to enter"
^DD(62.21,1,21,6,0)="collection samples to a test in file 60 (LABORATORY TEST). It"
^DD(62.21,1,21,7,0)="is particularly useful in Microbioloby type test."
^DD(62.21,"B","LAB TEST",.01)=""
^DD(62.21,"B","WKLD CODE",1)=""
^DD(62.21,"GL",0,1,.01)=""
^DD(62.21,"GL",1,0,1)=""
^DD(62.21,"SB",62.211,1)=""
^DD(62.211,0)="WKLD CODE SUB-FIELD^^2^2"
^DD(62.211,0,"DT")="2920304"
^DD(62.211,0,"NM","WKLD CODE")=""
^DD(62.211,0,"UP")="62.21"
^DD(62.211,.01,0)="WKLD CODE^MP64'X^LAM(^0;1^S:$D(X) DINUM=X"
^DD(62.211,.01,1,0)="^.1^^0"
^DD(62.211,.01,21,0)="^^1^1^2920304^"
^DD(62.211,.01,21,1,0)=" Enter the WKLD code for thi"
^DD(62.211,.01,"DT")="2920304"
^DD(62.211,2,0)="TEST MULTIPLY FACTOR^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.211,2,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(62.211,2,21,0)="^^2^2^2930327^^^"
^DD(62.211,2,21,1,0)="  This field contains the a number by which the count"
^DD(62.211,2,21,2,0)="should be multiplied by."
^DD(62.211,2,"DT")="2920304"
^DD(62.211,"B","TEST MULTIPLY FACTOR",2)=""
^DD(62.211,"B","WKLD CODE",.01)=""
^DD(62.211,"GL",0,1,.01)=""
^DD(62.211,"GL",0,3,2)=""
^DD(62.3,0)="FIELD^NL^63^9"
^DD(62.3,0,"ID",.02)="W:$D(^(""0"")) ""   "",$$FMTE^XLFDT($P(^(""0""),U,2),""5Z"")"
^DD(62.3,0,"ID",.04)="W """""
^DD(62.3,0,"ID",.09)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,9)"
^DD(62.3,0,"IX","AC",62.3,.01)=""
^DD(62.3,0,"IX","B",62.3,.01)=""
^DD(62.3,0,"NM","LAB CONTROL NAME")=""
^DD(62.3,0,"PT",62.3,3)=""
^DD(62.3,0,"PT",64.03,2)=""
^DD(62.3,0,"PT",64.1111,9)=""
^DD(62.3,0,"PT",68.1,.01)=""
^DD(62.3,0,"PT",68.11,.01)=""
^DD(62.3,0,"PT",68.26,.01)=""
^DD(62.3,0,"PT",68.28,.01)=""
^DD(62.3,0,"PT",68.29,.01)=""
^DD(62.3,0,"VR")="5.2"
^DD(62.3,0,"VRPK")="LR"
^DD(62.3,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.3,.01,1,0)="^.1"
^DD(62.3,.01,1,1,0)="62.3^B"
^DD(62.3,.01,1,1,1)="S ^LAB(62.3,""B"",$E(X,1,30),DA)="""""
^DD(62.3,.01,1,1,2)="K ^LAB(62.3,""B"",$E(X,1,30),DA)"
^DD(62.3,.01,1,2,0)="62.3^AC^MUMPS"
^DD(62.3,.01,1,2,1)="S LRDPF=""62.3^LAB(62.3,"",DFN=DA,PDIC=DIC,PDIC(0)=$S($D(DIC(0)):DIC(0),1:"""") D END^LRDPA S X=DFN,DIC=PDIC,DIC(0)=PDIC(0) K PDIC"
^DD(62.3,.01,1,2,2)="Q"
^DD(62.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(62.3,.01,21,0)="^^2^2^2870421^^^^"
^DD(62.3,.01,21,1,0)="These tests are placed on the accession when ever the control is"
^DD(62.3,.01,21,2,0)="referenced by load or work list."
^DD(62.3,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(62.3,.01,"DT")="2841204"
^DD(62.3,.02,0)="EXPIRATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(62.3,.02,21,0)="^^1^1^2841114^"
^DD(62.3,.02,21,1,0)="The expiration date of the control."
^DD(62.3,.02,"DT")="2840404"
^DD(62.3,.03,0)="EXCLUDE DATA ENTRY^S^1:YES;^0;4^Q"
^DD(62.3,.03,3)="ENTER YES IF NO MORE DATA IS TO BE ALLOWED TO BE ENTERED"
^DD(62.3,.03,21,0)="^^1^1^2841114^"
^DD(62.3,.03,21,1,0)="If or when no more data is to be allowed to be entered for this control, this field must contain a YES entry."
^DD(62.3,.03,"DT")="2840523"
^DD(62.3,.04,0)="MIMIC SPECIMEN^P61^LAB(61,^0;5^Q"
^DD(62.3,.04,21,0)="^^1^1^2841114^"
^DD(62.3,.04,21,1,0)="The specimen (topography) that this control imitates.  Points to FILE #61."
^DD(62.3,.04,"DT")="2840912"
^DD(62.3,.09,0)="IDENTIFIER/LOT #^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(62.3,.09,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(62.3,.09,21,0)="^^1^1^2870421^^"
^DD(62.3,.09,21,1,0)="The lot number or other identifier of this control."
^DD(62.3,.09,"DT")="2890110"
^DD(62.3,2,0)="TEST^62.31PA^^1;0"
^DD(62.3,2,12)="MUST BE ""ATOMIC"" TEST"
^DD(62.3,2,12.1)="S DIC(""S"")=""I $L($P(^(0),U,5))"""
^DD(62.3,2,21,0)="^^2^2^2850725^^^^"
^DD(62.3,2,21,1,0)="These are all the tests that are done with the ""Lab Control"" named."
^DD(62.3,2,21,2,0)="They must be individual tests, i.e. no panels of tests."
^DD(62.3,3,0)="PARALLEL CONTROL^P62.3'^LAB(62.3,^0;3^Q"
^DD(62.3,3,21,0)="^^2^2^2860527^^^"
^DD(62.3,3,21,1,0)="This indicates what other control is to be used for paired controls"
^DD(62.3,3,21,2,0)="in the Multirule-Shewhart."
^DD(62.3,3,"DT")="2831226"
^DD(62.3,4,0)="ACCESSION TEST^62.32PA^^2;0"
^DD(62.3,4,21,0)="^^1^1^2860527^^^^"
^DD(62.3,4,21,1,0)="Entries here are used when controls are accessioned into the laboratory."
^DD(62.3,63,0)="LABORATORY REFERENCE^IXP63'^LR(^LR;1^K X"
^DD(62.3,63,8.5)="^"
^DD(62.3,63,9)="^"
^DD(62.3,63,21,0)="^^2^2^2850830^^^"
^DD(62.3,63,21,1,0)="Points to the LAB DATA file.  Cannot be altered except by programmer."
^DD(62.3,63,21,2,0)="This is the INTERNAL pointer to the lab data file. (LRDFN)"
^DD(62.3,63,"DT")="2840510"
^DD(62.3,"B","ACCESSION TEST",4)=""
^DD(62.3,"B","EXCLUDE DATA ENTRY",.03)=""
^DD(62.3,"B","EXPIRATION DATE",.02)=""
^DD(62.3,"B","IDENTIFIER/LOT #",.09)=""
^DD(62.3,"B","LABORATORY REFERENCE",63)=""
^DD(62.3,"B","MIMIC SPECIMEN",.04)=""
^DD(62.3,"B","NAME",.01)=""
^DD(62.3,"B","PARALLEL CONTROL",3)=""
^DD(62.3,"B","TEST",2)=""
^DD(62.3,"GL",0,1,.01)=""
^DD(62.3,"GL",0,2,.02)=""
^DD(62.3,"GL",0,3,3)=""
^DD(62.3,"GL",0,4,.03)=""
^DD(62.3,"GL",0,5,.04)=""
^DD(62.3,"GL",0,9,.09)=""
^DD(62.3,"GL",1,0,2)=""
^DD(62.3,"GL",2,0,4)=""
^DD(62.3,"GL","LR",1,63)=""
^DD(62.3,"IX",.01)=""
^DD(62.3,"RQ",.01)=""
^DD(62.3,"SB",62.31,2)=""
^DD(62.3,"SB",62.32,4)=""
^DD(62.31,0)="TEST SUB-FIELD^NL^3^4"
^DD(62.31,0,"IX","B",62.31,.01)=""
^DD(62.31,0,"NM","TEST")=""
^DD(62.31,0,"UP")="62.3"
^DD(62.31,.01,0)="TEST^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $L($P(^(0),U,5))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.31,.01,1,0)="^.1"
^DD(62.31,.01,1,1,0)="^^TRIGGER^62.31^3"
^DD(62.31,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.3,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.31,.01,1,1,1.1) X ^DD(62.31,.01,1,1,1.4)"
^DD(62.31,.01,1,1,1.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(60,D0,0)):^(0),1:""""),Y(101)=X S X=$P(Y(102),U,5) S D0=Y(1)"
^DD(62.31,.01,1,1,1.4)="S DIH=$S($D(^LAB(62.3,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.31,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.31,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.3,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.31,.01,1,1,2.1) X ^DD(62.31,.01,1,1,2.4)"
^DD(62.31,.01,1,1,2.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(60,D0,0)):^(0),1:""""),Y(101)=X S X=$P(Y(102),U,5) S D0=Y(1)"
^DD(62.31,.01,1,1,2.4)="S DIH=$S($D(^LAB(62.3,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.31,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.31,.01,1,1,"CREATE VALUE")="TEST:(LOCATION)"
^DD(62.31,.01,1,1,"DELETE VALUE")="TEST:(LOCATION)"
^DD(62.31,.01,1,1,"FIELD")="LOCATI"
^DD(62.31,.01,1,2,0)="62.31^B"
^DD(62.31,.01,1,2,1)="S ^LAB(62.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(62.31,.01,1,2,2)="K ^LAB(62.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(62.31,.01,21,0)="^^2^2^2850725^^^^"
^DD(62.31,.01,21,1,0)="This is the individual test for which normal values are going to be"
^DD(62.31,.01,21,2,0)="entered."
^DD(62.31,.01,"DT")="2840911"
^DD(62.31,1,0)="MEAN^NJ13,4^^0;2^K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"".""5N.N) X"
^DD(62.31,1,3)="TYPE A NUMBER BETWEEN -99999999 AND 99999999"
^DD(62.31,1,21,0)="^^2^2^2841114^^"
^DD(62.31,1,21,1,0)="The mean value, or ideal control value of the test.  This is used to"
^DD(62.31,1,21,2,0)="determine the center line in the Levey-Jennings plots."
^DD(62.31,1,"DT")="2831224"
^DD(62.31,2,0)="1 SD^NJ13,4^^0;3^K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"".""5N.N) X"
^DD(62.31,2,3)="TYPE A NUMBER BETWEEN -99999999 AND 99999999"
^DD(62.31,2,21,0)="^^3^3^2841114^^"
^DD(62.31,2,21,1,0)="Enter the expected value for one standard deviation on the test."
^DD(62.31,2,21,2,0)="This value is used to compute the 2 standard deviation lines in the"
^DD(62.31,2,21,3,0)="Levey-Jennings plots.  It is also used in the Multirule-Shewhart."
^DD(62.31,2,"DT")="2831224"
^DD(62.31,3,0)="LOCATION^FI^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(62.31,3,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(62.31,3,5,1,0)="62.31^.01^1"
^DD(62.31,3,9)="^"
^DD(62.31,3,21,0)="^^2^2^2841114^^^"
^DD(62.31,3,21,1,0)="These are the ""internal"" subscripts for the Lab Data file."
^DD(62.31,3,21,2,0)="This way we don't have to look all over DD to find its home!"
^DD(62.31,3,"DT")="2840817"
^DD(62.31,"B","1 SD",2)=""
^DD(62.31,"B","LOCATION",3)=""
^DD(62.31,"B","MEAN",1)=""
^DD(62.31,"B","TEST",.01)=""
^DD(62.31,"GL",0,1,.01)=""
^DD(62.31,"GL",0,2,1)=""
^DD(62.31,"GL",0,3,2)=""
^DD(62.31,"GL",0,4,3)=""
^DD(62.31,"IX",.01)=""
^DD(62.32,0)="ACCESSION TEST SUB-FIELD^NL^.01^1"
^DD(62.32,0,"NM","ACCESSION TEST")=""
^DD(62.32,0,"UP")="62.3"
^DD(62.32,.01,0)="ACCESSION TEST^MP60'^LAB(60,^0;1^Q"
^DD(62.32,.01,21,0)="^^1^1^2860527^^"
^DD(62.32,.01,21,1,0)="Entries here are used when controls are accessioned into the laboratory."
^DD(62.32,.01,"DT")="2840403"
^DD(62.32,"B","ACCESSION TEST",.01)=""
^DD(62.32,"GL",0,1,.01)=""
^DD(62.4,0)="FIELD^NL^107^44"
^DD(62.4,0,"DDA")="N"
^DD(62.4,0,"DT")="2940207"
^DD(62.4,0,"IX","AC",62.4,100)=""
^DD(62.4,0,"IX","AD",62.4,3)=""
^DD(62.4,0,"IX","AE",62.4,98)=""
^DD(62.4,0,"IX","AS",62.4,5)=""
^DD(62.4,0,"IX","B",62.4,.01)=""
^DD(62.4,0,"IX","C",62.4,2)=""
^DD(62.4,0,"IX","D",62.4,10)=""
^DD(62.4,0,"NM","AUTO INSTRUMENT")=""
^DD(62.4,0,"PT",62.4,100)=""
^DD(62.4,0,"PT",68.07,.01)=""
^DD(62.4,0,"PT",68.09,.01)=""
^DD(62.4,0,"VR")="5.2"
^DD(62.4,0,"VRRV")="LA*5.2*57"
^DD(62.4,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.4,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(62.4,.001,21,0)="^^1^1^2901016^^"
^DD(62.4,.001,21,1,0)="The internal number for this auto instrument.  It ties the routines running on a line or data concentrator to this particular file for the rest of the information within the file."
^DD(62.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.4,.01,1,0)="^.1"
^DD(62.4,.01,1,1,0)="62.4^B"
^DD(62.4,.01,1,1,1)="S ^LAB(62.4,""B"",$E(X,1,30),DA)="""""
^DD(62.4,.01,1,1,2)="K ^LAB(62.4,""B"",$E(X,1,30),DA)"
^DD(62.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(62.4,.01,21,0)="^^1^1^2841114^"
^DD(62.4,.01,21,1,0)="The name of the instrument."
^DD(62.4,.01,"DT")="2890209"
^DD(62.4,.02,0)="VENDOR CARD ADDRESS^F^^9;9^K:$L(X)>7!($L(X)<1) X"
^DD(62.4,.02,3)="Answer must be 1-7 characters in length."
^DD(62.4,.02,21,0)="^^2^2^2950918^^^"
^DD(62.4,.02,21,1,0)=" The vendor card address should be stored in this field for Lab HL7"
^DD(62.4,.02,21,2,0)=" message downloads using Lab Universal Interface software."
^DD(62.4,.02,"DT")="2950915"
^DD(62.4,.04,0)="SHORT ACCESSION # LENGTH^NJ2,0^^9;10^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.4,.04,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(62.4,.04,21,0)="^^2^2^2960226^^"
^DD(62.4,.04,21,1,0)="This field should be used to pad accession numbers based on the"
^DD(62.4,.04,21,2,0)="fixed length entered for this instrument."
^DD(62.4,.04,"DT")="2960220"
^DD(62.4,.14,0)="WKLD METHOD^P64.2'^LAB(64.2,^SUF;1^Q"
^DD(62.4,.14,1,0)="^.1"
^DD(62.4,.14,1,1,0)="^^TRIGGER^62.4^.15"
^DD(62.4,.14,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.4,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(62.4,.14,1,1,1.1) X ^DD(62.4,.14,1,1,1.4)"
^DD(62.4,.14,1,1,1.1)="S X=DIV S X=$P(^LAB(64.2,DIV,0),U)"
^DD(62.4,.14,1,1,1.4)="S DIH=$S($D(^LAB(62.4,DIV(0),""SUF"")):^(""SUF""),1:""""),DIV=X S $P(^(""SUF""),U,2)=DIV,DIH=62.4,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.4,.14,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.4,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(62.4,.14,1,1,2.4)"
^DD(62.4,.14,1,1,2.4)="S DIH=$S($D(^LAB(62.4,DIV(0),""SUF"")):^(""SUF""),1:""""),DIV=X S $P(^(""SUF""),U,2)=DIV,DIH=62.4,DIG=.15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.4,.14,1,1,"CREATE VALUE")="S X=$P(^LAB(64.2,DIV,0),U)"
^DD(62.4,.14,1,1,"DELETE VALUE")="@"
^DD(62.4,.14,1,1,"DT")="2940817"
^DD(62.4,.14,1,1,"FIELD")="WKLD CODE METHOD NAME"
^DD(62.4,.14,1,2,0)="^^TRIGGER^62.4^.16"
^DD(62.4,.14,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.4,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(62.4,.14,1,2,1.1) X ^DD(62.4,.14,1,2,1.4)"
^DD(62.4,.14,1,2,1.1)="S X=DIV S X=$P(^LAB(64.2,DIV,0),U,2)"
^DD(62.4,.14,1,2,1.4)="S DIH=$S($D(^LAB(62.4,DIV(0),""SUF"")):^(""SUF""),1:""""),DIV=X S $P(^(""SUF""),U,3)=DIV,DIH=62.4,DIG=.16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.4,.14,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.4,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(62.4,.14,1,2,2.4)"
^DD(62.4,.14,1,2,2.4)="S DIH=$S($D(^LAB(62.4,DIV(0),""SUF"")):^(""SUF""),1:""""),DIV=X S $P(^(""SUF""),U,3)=DIV,DIH=62.4,DIG=.16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.4,.14,1,2,"CREATE VALUE")="S X=$P(^LAB(64.2,DIV,0),U,2)"
^DD(62.4,.14,1,2,"DELETE VALUE")="@"
^DD(62.4,.14,1,2,"DT")="2940817"
^DD(62.4,.14,1,2,"FIELD")="WKLD CODE SUFFIX"
^DD(62.4,.14,21,0)="^^2^2^2930325^"
^DD(62.4,.14,21,1,0)="Indicate what method the system should use as a default value for workload"
^DD(62.4,.14,21,2,0)="identification purposes."
^DD(62.4,.14,"DT")="2940817"
^DD(62.4,.15,0)="WKLD CODE METHOD NAME^F^^SUF;2^K:$L(X)>40!($L(X)<1) X"
^DD(62.4,.15,3)="Answer must be 1-40 characters in length."
^DD(62.4,.15,5,1,0)="62.4^.14^1"
^DD(62.4,.15,9)="^"
^DD(62.4,.15,21,0)="^^2^2^2930325^"
^DD(62.4,.15,21,1,0)=" This field is automatically filled in when a selection of wkld code method"
^DD(62.4,.15,21,2,0)="name is made. I represents an eye readable name of the code selected."
^DD(62.4,.15,"DT")="2901221"
^DD(62.4,.16,0)="WKLD CODE SUFFIX^FX^^SUF;3^K:$L(X)>5!($L(X)<4) X"
^DD(62.4,.16,3)="Answer must be 4-5 characters in length."
^DD(62.4,.16,5,1,0)="62.4^.14^2"
^DD(62.4,.16,9)="^"
^DD(62.4,.16,21,0)="^^1^1^2930325^"
^DD(62.4,.16,21,1,0)=" Indicate what suffix should be used as a default value for this instrument."
^DD(62.4,.16,"DT")="2920707"
^DD(62.4,1,0)="ECHO DEVICE^*P3.5'X^%ZIS(1,^0;2^K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)=""EMQ"" D ^DIC S X=$P(Y,U,2),DIC=DIE K:Y<1 X"
^DD(62.4,1,3)="Enter the name of the device to echo input to.  If this is a system line, this is the name of the computer port the LSI is connected to."
^DD(62.4,1,21,0)="^^5^5^2870505^^^^"
^DD(62.4,1,21,1,0)="This is the port name under ZIS which would echo the information from the"
^DD(62.4,1,21,2,0)=" automated instrument which has gone through the data concentrating device"
^DD(62.4,1,21,3,0)=" to the main computer back to the laboratory to indicate that all the data"
^DD(62.4,1,21,4,0)=" lines are intact, and that the values are actually getting all the way"
^DD(62.4,1,21,5,0)=" back to the computer."
^DD(62.4,1,"DT")="2870430"
^DD(62.4,2,0)="PROGRAM^FX^^0;3^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>8!($L(X)<2) X I $D(X) S %=$O(^LAB(62.4,""C"",X,0)) K:%>0&(%<100) X"
^DD(62.4,2,1,0)="^.1"
^DD(62.4,2,1,1,0)="62.4^C"
^DD(62.4,2,1,1,1)="S ^LAB(62.4,""C"",$E(X,1,30),DA)="""""
^DD(62.4,2,1,1,2)="K ^LAB(62.4,""C"",$E(X,1,30),DA)"
^DD(62.4,2,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(62.4,2,4)="W !,""Name can't be used twice:"" S X="""" F I=0:0 S X=$O(^LAB(62.4,""C"",X)) Q:X=""""  W !?5,X,?15,$O(^(X,0))"
^DD(62.4,2,9)="@"
^DD(62.4,2,21,0)="^.001^4^4^3010305^^^^"
^DD(62.4,2,21,1,0)="The name of the processing program for this instrument. The program name"
^DD(62.4,2,21,2,0)="must be unique for each entry in this file. The program that monitors the"
^DD(62.4,2,21,3,0)="data coming from the instruments is designated LAB.  It is run by the"
^DD(62.4,2,21,4,0)="task manager and runs continuously."
^DD(62.4,2,"DT")="2990618"
^DD(62.4,3,0)="LOAD/WORK LIST^RP68.2'^LRO(68.2,^0;4^Q"
^DD(62.4,3,1,0)="^.1"
^DD(62.4,3,1,1,0)="62.4^AD^MUMPS"
^DD(62.4,3,1,1,1)="I $P(^LAB(62.4,DA,0),U,6)=""SEQN"" S ^LRO(68.2,""AS"",X,DA)="""""
^DD(62.4,3,1,1,2)="K ^LRO(68.2,""AS"",X,DA)"
^DD(62.4,3,21,0)="^^1^1^2841114^"
^DD(62.4,3,21,1,0)="This points to the single worklist where processed data from the LA global is to be directed."
^DD(62.4,3,"DT")="2860218"
^DD(62.4,5,0)="ENTRY for LAGEN ROUTINE^RS^LOG:Accession cross-reference;LLIST:Tray-cup or sequence x-ref;IDENT:Invoice number cross-reference;SEQN:Run order;^0;6^Q"
^DD(62.4,5,1,0)="^.1"
^DD(62.4,5,1,1,0)="62.4^AS^MUMPS"
^DD(62.4,5,1,1,1)="I $P(^LAB(62.4,DA,0),U,4),X=""SEQN"" S ^LRO(68.2,""AS"",$P(^(0),U,4),DA)="""""
^DD(62.4,5,1,1,2)="I X=""SEQN"" K ^LRO(68.2,""AS"",+$P(^LAB(62.4,DA,0),U,4),DA)"
^DD(62.4,5,3)="Use the one that matches the way your lab runs this instrument.."
^DD(62.4,5,4)="W !,""Most LABs will use the LOG or LLIST method."""
^DD(62.4,5,21,0)="^^1^1^2841114^^"
^DD(62.4,5,21,1,0)="This is a line label in the LAGEN routine designating the entry point."
^DD(62.4,5,"DT")="2860218"
^DD(62.4,6,0)="CROSS LINKED BY^RFX^^0;7^K:$L(X)>40!($L(X)<2) X I $D(X) S LR=X,X=""S X=""_LR D ^DIM S:$D(X) X=LR"
^DD(62.4,6,3)="ANSWER MUST BE 2-40 CHAR. VARIABLE NAME (ID, IDE, CUP)"
^DD(62.4,6,21,0)="^^5^5^2860904^^"
^DD(62.4,6,21,1,0)="The variable internal to the the Program (field 2), contains the"
^DD(62.4,6,21,2,0)="value used in the Entry for LAGEN Routine (field 5)."
^DD(62.4,6,21,3,0)="This entry is generally supplied when the program is written for"
^DD(62.4,6,21,4,0)="the instrument.  Also see documentation on LAPX routine in technical"
^DD(62.4,6,21,5,0)="manual."
^DD(62.4,6,"DT")="2850722"
^DD(62.4,8,0)="MESSAGE CONFIGURATION^P62.48'^LAHM(62.48,^0;8^Q"
^DD(62.4,8,3)="Enter a configuration to use when sending or receiving messages."
^DD(62.4,8,"DT")="2940516"
^DD(62.4,9,0)="*ECHO ALL INPUT^S^0:NO;1:YES;^0;9^Q"
^DD(62.4,9,3)="A YES WILL HAVE ALL INPUT STRINGS ECHOED TO THE ECHO DEVICE."
^DD(62.4,9,21,0)="^^3^3^2850131^^"
^DD(62.4,9,21,1,0)="If this field is set, then all input strings to the LA routine will"
^DD(62.4,9,21,2,0)="be echoed to the echo device.  That is, all raw data from the instrument"
^DD(62.4,9,21,3,0)="will be echoed before any cross-referencing is done."
^DD(62.4,9,"DT")="2850115"
^DD(62.4,10,0)="METHOD^F^^0;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(62.4,10,1,0)="^.1"
^DD(62.4,10,1,1,0)="62.4^D"
^DD(62.4,10,1,1,1)="S ^LAB(62.4,""D"",$E(X,1,30),DA)="""""
^DD(62.4,10,1,1,2)="K ^LAB(62.4,""D"",$E(X,1,30),DA)"
^DD(62.4,10,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(62.4,10,21,0)="^^1^1^2841114^"
^DD(62.4,10,21,1,0)="This is the name of the method or instrument used."
^DD(62.4,10,"DT")="2840119"
^DD(62.4,11,0)="DEFAULT ACCESSION AREA^*P68'^LRO(68,^0;11^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.4,11,12)="You can not select an accession areaa designated Work Area Only."
^DD(62.4,11,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(62.4,11,21,0)="^^2^2^2841114^^"
^DD(62.4,11,21,1,0)="This field contains the default accession list name for this instrument."
^DD(62.4,11,21,2,0)="Points to FILE #68."
^DD(62.4,11,"DT")="2920105"
^DD(62.4,12,0)="OVERLAY DATA^S^0:NO;1:YES;^0;12^Q"
^DD(62.4,12,21,0)="^^2^2^2870505^^^"
^DD(62.4,12,21,1,0)="Setting this field to YES will cause a rerun of instrument data"
^DD(62.4,12,21,2,0)="to overlay existing data."
^DD(62.4,12,"DT")="2840514"
^DD(62.4,18,0)="STORE REMARKS^S^0:NO;1:YES;^0;17^Q"
^DD(62.4,18,3)="Answer 'Yes"" if you want specimen comments to be stored."
^DD(62.4,18,21,0)="^^5^5^3010831^^"
^DD(62.4,18,21,1,0)="This field controls if comments that are associated with an accession"
^DD(62.4,18,21,2,0)="or specimen are stored with the results. The default is NO."
^DD(62.4,18,21,3,0)=" "
^DD(62.4,18,21,4,0)="There is a similar companion field at the test level which controls"
^DD(62.4,18,21,5,0)="comments associated with tests results."
^DD(62.4,18,"DT")="3010831"
^DD(62.4,20,0)="NEW DATA^KX^^1;E1,200^K:$L(X)>200!($L(X)<2) X D ^DIM:$D(X)"
^DD(62.4,20,3)="NORMAL INSTRUMENT ENTER 'D NEW^LASET'"
^DD(62.4,20,9)="@"
^DD(62.4,20,21,0)="^^1^1^2901016^^^"
^DD(62.4,20,21,1,0)="This is a string of executable code which is used whenever a new string of data starts to come from the automated instrument."
^DD(62.4,20,"DT")="2901016"
^DD(62.4,25,0)="RESTART^KX^^2;E1,200^K:$L(X)>200!($L(X)<2) X D ^DIM:$D(X)"
^DD(62.4,25,3)="ANSWER MUST BE 2-200 CHARACTERS IN LENGTH"
^DD(62.4,25,9)="@"
^DD(62.4,25,21,0)="^^1^1^2841114^"
^DD(62.4,25,21,1,0)="This is a string of executable code which restarts everything for this particular instrument if there has been a power failure, or if the routines have become totally lost.  If error conditions have occurred, it can restart itself."
^DD(62.4,25,"DT")="2901016"
^DD(62.4,26,0)="HANDSHAKE RESPONSE^KX^^.5;E1,200^K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)"
^DD(62.4,26,3)="Code to set OUT to the handshake response"
^DD(62.4,26,9)="@"
^DD(62.4,26,21,0)="^^4^4^2860521^"
^DD(62.4,26,21,1,0)="If the instrument requires a handshake response, this field contains"
^DD(62.4,26,21,2,0)="the executable MUMPS code to set the response into the variable OUT."
^DD(62.4,26,21,3,0)="eg.  S OUT=$C(6)"
^DD(62.4,26,21,4,0)="(OUT contains the ASCII character 6 ""ACK"")"
^DD(62.4,26,"DT")="2901016"
^DD(62.4,27,0)="ACK TRIGGER VALUE^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.4,27,3)="This is the decimal value that will triger the ACK response. (0-99)"
^DD(62.4,27,21,0)="^^2^2^2940316^^"
^DD(62.4,27,21,1,0)=" This field contains the sequence used to acknowledge an auto instrument."
^DD(62.4,27,21,2,0)="Not all instruments utilize this field."
^DD(62.4,27,"DT")="2870318"
^DD(62.4,28,0)="ACK RESPONSE VALUE^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.4,28,3)="This is the decimal value that will be the ACK response. (0-99)"
^DD(62.4,28,21,0)="^^4^4^2940316^^"
^DD(62.4,28,21,1,0)=" If this instrument setup instructions indicate a standard ack value"
^DD(62.4,28,21,2,0)="is required by the instrument, enter the $C(X) for the acknowledgment."
^DD(62.4,28,21,3,0)=" Not all instruments make use of this field."
^DD(62.4,28,21,4,0)="  Where X= the ascii number of the ACK character."
^DD(62.4,29,0)="DIRECT DEVICE^*P3.5'X^%ZIS(1,^.75;1^K:$L(X)>20!($L(X)<2) X I $D(X) S DIC(0)=""QENM"" D ^DIC S X=$P(Y,U,2) K:Y<1 X"
^DD(62.4,29,3)="Device used as a direct connect device in ^LAPORTXX."
^DD(62.4,29,21,0)="^^3^3^2940303^"
^DD(62.4,29,21,1,0)="This field is used when bypassing the LSI.  It is the name"
^DD(62.4,29,21,2,0)="of the device that is used to communicate with a direct connect"
^DD(62.4,29,21,3,0)="instrument."
^DD(62.4,29,23,0)="^^3^3^2940303^^^"
^DD(62.4,29,23,1,0)="This field is a free text pointer to the Device file.  It stores the "
^DD(62.4,29,23,2,0)="free text name of the device.  The name is used in the ^LAPORTXX "
^DD(62.4,29,23,3,0)="routine to set IOP before calling ^%ZIS."
^DD(62.4,29,"DT")="2940207"
^DD(62.4,30,0)="CHEM TESTS^62.41P^^3;0"
^DD(62.4,30,21,0)="^^10^10^2910227^^^^"
^DD(62.4,30,21,1,0)="This is a multiple field that keeps track of tests being done in the"
^DD(62.4,30,21,2,0)="instrument  It allows one to be exclusive of tests which the instrument"
^DD(62.4,30,21,3,0)=" passes, as well as inclusive of the tests the machine passes which had"
^DD(62.4,30,21,4,0)=" not been ordered from the test panel for the patient.  It means, for"
^DD(62.4,30,21,5,0)=" example, if the order was glucose, sodium, and a number of other tests,"
^DD(62.4,30,21,6,0)=" but not the entire ASTRA panel, but the laboratory chooses to run on the"
^DD(62.4,30,21,7,0)=" ASTRA, all the tests can be included in the verified data.  To exclude"
^DD(62.4,30,21,8,0)=" large amounts of data, for example, the Hematrak passes distribution data"
^DD(62.4,30,21,9,0)=" about the slide that it has examined, information which may or may not be"
^DD(62.4,30,21,10,0)=" appropriate for the laboratory to pass on to the ward."
^DD(62.4,31,0)="LOAD CHEM TESTS^S^T:TC ARRAY;U:TMP GLOBAL;N:NOTHING DONE;^0;5^Q"
^DD(62.4,31,3)="Set according to needs of instrument routine."
^DD(62.4,31,21,0)="^^7^7^2901016^^"
^DD(62.4,31,21,1,0)="This field is used by the LASET routine to determine what to do with"
^DD(62.4,31,21,2,0)="the chem test sub-file."
^DD(62.4,31,21,3,0)="   T or blank moves the data into the TC array."
^DD(62.4,31,21,4,0)="   U moves the data into the ^UTILITY(""LA"",$J, global."
^DD(62.4,31,21,5,0)="   N don't move at all."
^DD(62.4,31,21,6,0)=" "
^DD(62.4,31,21,7,0)="The value will be returned in LALCT."
^DD(62.4,31,"DT")="2860522"
^DD(62.4,40,0)="ALARM TERMINAL^62.42A^^4;0"
^DD(62.4,40,21,0)="^^1^1^2901016^^"
^DD(62.4,40,21,1,0)="This is a multiple field.  It contains the names/numbers of devices which will report the status of the interface."
^DD(62.4,40,21,2,0)="  This field is inactive for V 4.16"
^DD(62.4,60,0)="MICRO CARD TYPE^62.43^^7;0"
^DD(62.4,60,21,0)="^^9^9^2901016^^^^"
^DD(62.4,60,21,1,0)="This entire sub-field is at present devoted to supporting BI-DIRECTIONAL"
^DD(62.4,60,21,2,0)="interfacing of Microbiology instrumentation."
^DD(62.4,60,21,3,0)=" "
^DD(62.4,60,21,4,0)=" If you are not attempting to interface one these types of instruments,"
^DD(62.4,60,21,5,0)="you may ignore this entire sub-field."
^DD(62.4,60,21,6,0)=" "
^DD(62.4,60,21,7,0)=" If you are attempting to interface such an instrument, there are examples"
^DD(62.4,60,21,8,0)="available for various instruments."
^DD(62.4,60,21,9,0)=" Check FORUM for a current listing of instruments which are interfacable."
^DD(62.4,70,0)="INTERFACE NOTES^62.45^^8;0"
^DD(62.4,70,21,0)="^^2^2^2901016^^"
^DD(62.4,70,21,1,0)="Notes on how to setup the instrument to run with the lab package,"
^DD(62.4,70,21,2,0)="and other useful information on interfacing this instrument."
^DD(62.4,91,0)="DOWNLOAD ENTRY^F^^9;1^K:$L(X)>8!($L(X)<1)!'(X?1A.7AN) X"
^DD(62.4,91,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(62.4,91,9)="@"
^DD(62.4,91,21,0)="^.001^2^2^3000508^^"
^DD(62.4,91,21,1,0)="   Enter the line tag of the routine used to down load data to the instrument."
^DD(62.4,91,21,2,0)="DO NOT USE '^' ON THIS LINE TAG. IT WILL BE HANDLED BY THE PROCESSING ROUTINE."
^DD(62.4,91,"DT")="2870806"
^DD(62.4,92,0)="DOWNLOAD PROTOCOL ROUTINE^F^^9;2^K:$L(X)>8!($L(X)<1)!'(X?1A.7AN) X"
^DD(62.4,92,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(62.4,92,9)="@"
^DD(62.4,92,21,0)="^^1^1^2881113^"
^DD(62.4,92,21,1,0)="    Enter the name of the routine used to down load data to the instrument."
^DD(62.4,92,"DT")="3000509"
^DD(62.4,93,0)="FILE BUILD ENTRY^F^^9;3^K:$L(X)>8!($L(X)<1)!'(X?1A.7AN) X"
^DD(62.4,93,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(62.4,93,9)="@"
^DD(62.4,93,21,0)="^^2^2^2901016^^"
^DD(62.4,93,21,1,0)="    If it is necessary to build down load files for the instrument, enter"
^DD(62.4,93,21,2,0)="the line Tag of the routine that builds the fields."
^DD(62.4,94,0)="FILE BUILD ROUTINE^F^^9;4^K:$L(X)>8!($L(X)<1)!'(X?1A.7AN) X"
^DD(62.4,94,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(62.4,94,9)="@"
^DD(62.4,94,21,0)="^.001^2^2^3000509^^"
^DD(62.4,94,21,1,0)="Enter the name of the routine used to build the down load files for "
^DD(62.4,94,21,2,0)="this instrument."
^DD(62.4,94,"DT")="2870806"
^DD(62.4,95,0)="SEND TRAY/CUP LOCATION^S^N:no;Y:yes;^9;5^Q"
^DD(62.4,95,3)="What do you want the default to be for Send TRAY/CUP Location."
^DD(62.4,95,21,0)="^^2^2^2881113^"
^DD(62.4,95,21,1,0)="   This field will contain the default answer to the question,"
^DD(62.4,95,21,2,0)="Send Tray/Cup location, used by some Bi-Directional routines. "
^DD(62.4,95,"DT")="2880415"
^DD(62.4,96,0)="QUEUE BUILD^S^N:no;Y:yes;^9;6^Q"
^DD(62.4,96,3)="What do you want the defualt to be for QUEUE WORK."
^DD(62.4,96,21,0)="^^1^1^2881113^"
^DD(62.4,96,21,1,0)="    This field contains the Default answer to Queue to build Question."
^DD(62.4,96,"DT")="2880415"
^DD(62.4,97,0)="MICRO INTERPRETATION CHECK^S^F:CHECK ANTIMICROBIAL FILE INTERPRETATION ONLY;I:CHECK INSTRUMENT INTERPRETATION ONLY;B:CHECK BOTH FILE AND INSTRUMENT INTERPRETATION OVERWRITE WITH FILE;^9;7^Q"
^DD(62.4,97,3)="FOR MICROSCAN ENTER HOW YOU WANT TO INTERPRET MIC VALUES"
^DD(62.4,97,21,0)="^^1^1^2930325^"
^DD(62.4,97,21,1,0)=" This field specifies how the data being processed should be handled."
^DD(62.4,97,"DT")="2890807"
^DD(62.4,98,0)="AUTO DOWNLOAD^S^0:NO;1:YES;^9;8^Q"
^DD(62.4,98,1,0)="^.1"
^DD(62.4,98,1,1,0)="62.4^AE^MUMPS"
^DD(62.4,98,1,1,1)="S:X ^LAB(62.4,""AE"",DA,X)="""""
^DD(62.4,98,1,1,2)="K ^LAB(62.4,""AE"",DA)"
^DD(62.4,98,1,1,"%D",0)="^^2^2^2950202^"
^DD(62.4,98,1,1,"%D",1,0)="User by LAB MESSAGING to determine if site is autodownloading test orders"
^DD(62.4,98,1,1,"%D",2,0)="to lab auto instruments and which instruments to send to."
^DD(62.4,98,1,1,"DT")="2950202"
^DD(62.4,98,3)="Enter ""YES"" if this instrument is to be automatically downloaded when tests are accessioned."
^DD(62.4,98,"DT")="2960229"
^DD(62.4,100,0)="METH NAME^P62.4'^LAB(62.4,^5;1^Q"
^DD(62.4,100,1,0)="^.1"
^DD(62.4,100,1,1,0)="62.4^AC"
^DD(62.4,100,1,1,1)="S ^LAB(62.4,""AC"",$E(X,1,30),DA)="""""
^DD(62.4,100,1,1,2)="K ^LAB(62.4,""AC"",$E(X,1,30),DA)"
^DD(62.4,100,3)=""
^DD(62.4,100,21,0)="^^1^1^2850830^^^"
^DD(62.4,100,21,1,0)="This is a statistical method name to be used by this instrument.  Example:  Bull Algorithm.  See for example the MANUAL BULL ALGOR. entry.  The entry usually would point to itself."
^DD(62.4,100,21,2,0)="  Example:  Bull Algorithm."
^DD(62.4,100,21,3,0)="See for example the MANUAL BULL ALGOR. entry.  The entry usually would"
^DD(62.4,100,21,4,0)="point to itself."
^DD(62.4,100,"DT")="2831106"
^DD(62.4,101,0)="MEAN DATA VALUE 1^NJ7,3^^5;2^K:+X'=X!(X>999)!(X<-99)!(X?.E1"".""4N.N) X"
^DD(62.4,101,3)="TYPE A NUMBER BETWEEN -99 AND 999"
^DD(62.4,101,21,0)="^^2^2^2841126^^"
^DD(62.4,101,21,1,0)="Expected mean value for Bull's algorithm for first of three results."
^DD(62.4,101,21,2,0)="E.g., MCV on a blood count determination."
^DD(62.4,101,"DT")="2831027"
^DD(62.4,102,0)="MEAN DATA VALUE 2^NJ7,3^^5;3^K:+X'=X!(X>999)!(X<-99)!(X?.E1"".""4N.N) X"
^DD(62.4,102,3)="TYPE A NUMBER BETWEEN -99 AND 999"
^DD(62.4,102,21,0)="^^2^2^2841126^"
^DD(62.4,102,21,1,0)="Expected mean value for Bull's algorithm for second of three results."
^DD(62.4,102,21,2,0)="E.g., MCH on a blood count determination."
^DD(62.4,103,0)="MEAN DATA VALUE 3^NJ7,3^^5;4^K:+X'=X!(X>999)!(X<-99)!(X?.E1"".""4N.N) X"
^DD(62.4,103,3)="TYPE A NUMBER BETWEEN -99 AND 999"
^DD(62.4,103,21,0)="^^2^2^2841126^"
^DD(62.4,103,21,1,0)="Expected mean value for Bull's algorithm for third of three results."
^DD(62.4,103,21,2,0)="E.g., MCHC on a blood count determination."
^DD(62.4,105,0)="MICRO AUTO APPROVAL METHOD^S^RE:Results Entry;VT:Verification by Tech;VS:Verification by Supervisor;^0;15^Q"
^DD(62.4,105,21,0)="^^10^10^2930226^^^^"
^DD(62.4,105,21,1,0)="Select the method to be used with this instrument during verification."
^DD(62.4,105,21,2,0)="This entry will allow RPT DATE APPROVAL prompt during verification."
^DD(62.4,105,21,3,0)=" The default is VS [Verify Supervisor]"
^DD(62.4,105,21,4,0)="If one wants the reports to released and verified, enter VS. Other"
^DD(62.4,105,21,5,0)="wise a supervisor must release the reports before being verified and"
^DD(62.4,105,21,6,0)="printed to the cumulative."
^DD(62.4,105,21,7,0)="    Note. This field is associated with the field MICRO APPROVAL "
^DD(62.4,105,21,8,0)="METHOD in Lab Reports file. Make sure they agree and are appropriate"
^DD(62.4,105,21,9,0)="for your site."
^DD(62.4,105,21,10,0)="  THIS FIELD IS ONLY USED FOR MICROBIOLOGY AUTOMATED INSTRUMENTS."
^DD(62.4,105,23,0)="^^1^1^2930226^"
^DD(62.4,105,23,1,0)="  The routine LAMIAUT0 set the default value of 'VS'."
^DD(62.4,105,"DT")="2900312"
^DD(62.4,106,0)="DEFAULT AUTO MICRO TEST^P60'^LAB(60,^0;16^Q"
^DD(62.4,106,21,0)="^^3^3^2911209^"
^DD(62.4,106,21,1,0)=" This is the default laboratory test name to be used to record"
^DD(62.4,106,21,2,0)="workload for each organism when using the automated Micro instrument"
^DD(62.4,106,21,3,0)="to verify test."
^DD(62.4,106,"DT")="2911209"
^DD(62.4,107,0)="SITE NOTES DATE^62.4107D^^6;0"
^DD(62.4,107,21,0)="^^1^1^2930912^"
^DD(62.4,107,21,1,0)=" Date of the note."
^DD(62.4,"B","*ECHO ALL INPUT",9)=""
^DD(62.4,"B","ACK RESPONSE VALUE",28)=""
^DD(62.4,"B","ACK TRIGGER VALUE",27)=""
^DD(62.4,"B","ALARM TERMINAL",40)=""
^DD(62.4,"B","AUTO DOWNLOAD",98)=""
^DD(62.4,"B","CHEM TESTS",30)=""
^DD(62.4,"B","CROSS LINKED BY",6)=""
^DD(62.4,"B","DEFAULT ACCESSION AREA",11)=""
^DD(62.4,"B","DEFAULT AUTO MICRO TEST",106)=""
^DD(62.4,"B","DIRECT DEVICE",29)=""
^DD(62.4,"B","DOWNLOAD ENTRY",91)=""
^DD(62.4,"B","DOWNLOAD PROTOCOL ROUTINE",92)=""
^DD(62.4,"B","ECHO DEVICE",1)=""
^DD(62.4,"B","ENTRY for LAGEN ROUTINE",5)=""
^DD(62.4,"B","FILE BUILD ENTRY",93)=""
^DD(62.4,"B","FILE BUILD ROUTINE",94)=""
^DD(62.4,"B","HANDSHAKE RESPONSE",26)=""
^DD(62.4,"B","INTERFACE NOTES",70)=""
^DD(62.4,"B","LOAD CHEM TESTS",31)=""
^DD(62.4,"B","LOAD/WORK LIST",3)=""
^DD(62.4,"B","MEAN DATA VALUE 1",101)=""
^DD(62.4,"B","MEAN DATA VALUE 2",102)=""
^DD(62.4,"B","MEAN DATA VALUE 3",103)=""
^DD(62.4,"B","MESSAGE CONFIGURATION",8)=""
^DD(62.4,"B","METH NAME",100)=""
^DD(62.4,"B","METHOD",10)=""
^DD(62.4,"B","MICRO AUTO APPROVAL METHOD",105)=""
^DD(62.4,"B","MICRO CARD TYPE",60)=""
^DD(62.4,"B","MICRO INTERPRETATION CHECK",97)=""
^DD(62.4,"B","NAME",.01)=""
^DD(62.4,"B","NEW DATA",20)=""
^DD(62.4,"B","NUMBER",.001)=""
^DD(62.4,"B","OVERLAY DATA",12)=""
^DD(62.4,"B","PROGRAM",2)=""
^DD(62.4,"B","QUEUE BUILD",96)=""
^DD(62.4,"B","RESTART",25)=""
^DD(62.4,"B","SEND TRAY/CUP LOCATION",95)=""
^DD(62.4,"B","SHORT ACCESSION # LENGTH",.04)=""
^DD(62.4,"B","SITE NOTES DATE",107)=""
^DD(62.4,"B","STORE REMARKS",18)=""
^DD(62.4,"B","VENDOR CARD ADDRESS",.02)=""
^DD(62.4,"B","WKLD CODE METHOD NAME",.15)=""
^DD(62.4,"B","WKLD CODE SUFFIX",.16)=""
^DD(62.4,"B","WKLD METHOD",.14)=""
^DD(62.4,"GL",0,1,.01)=""
^DD(62.4,"GL",0,2,1)=""
^DD(62.4,"GL",0,3,2)=""
^DD(62.4,"GL",0,4,3)=""
^DD(62.4,"GL",0,5,31)=""
^DD(62.4,"GL",0,6,5)=""
^DD(62.4,"GL",0,7,6)=""
^DD(62.4,"GL",0,8,8)=""
^DD(62.4,"GL",0,9,9)=""
^DD(62.4,"GL",0,10,10)=""
^DD(62.4,"GL",0,11,11)=""
^DD(62.4,"GL",0,12,12)=""
^DD(62.4,"GL",0,13,27)=""
^DD(62.4,"GL",0,14,28)=""
^DD(62.4,"GL",0,15,105)=""
^DD(62.4,"GL",0,16,106)=""
^DD(62.4,"GL",0,17,18)=""
^DD(62.4,"GL",.5,"E1,200",26)=""
^DD(62.4,"GL",.75,1,29)=""
^DD(62.4,"GL",1,"E1,200",20)=""
^DD(62.4,"GL",2,"E1,200",25)=""
^DD(62.4,"GL",3,0,30)=""
^DD(62.4,"GL",4,0,40)=""
^DD(62.4,"GL",5,1,100)=""
^DD(62.4,"GL",5,2,101)=""
^DD(62.4,"GL",5,3,102)=""
^DD(62.4,"GL",5,4,103)=""
^DD(62.4,"GL",6,0,107)=""
^DD(62.4,"GL",7,0,60)=""
^DD(62.4,"GL",8,0,70)=""
^DD(62.4,"GL",9,1,91)=""
^DD(62.4,"GL",9,2,92)=""
^DD(62.4,"GL",9,3,93)=""
^DD(62.4,"GL",9,4,94)=""
^DD(62.4,"GL",9,5,95)=""
^DD(62.4,"GL",9,6,96)=""
^DD(62.4,"GL",9,7,97)=""
^DD(62.4,"GL",9,8,98)=""
^DD(62.4,"GL",9,9,.02)=""
^DD(62.4,"GL",9,10,.04)=""
^DD(62.4,"GL","SUF",1,.14)=""
^DD(62.4,"GL","SUF",2,.15)=""
^DD(62.4,"GL","SUF",3,.16)=""
^DD(62.4,"IX",.01)=""
^DD(62.4,"IX",.14)=""
^DD(62.4,"IX",2)=""
^DD(62.4,"IX",3)=""
^DD(62.4,"IX",5)=""
^DD(62.4,"IX",10)=""
^DD(62.4,"IX",98)=""
^DD(62.4,"IX",100)=""
^DD(62.4,"RQ",.01)=""
^DD(62.4,"RQ",3)=""
^DD(62.4,"RQ",5)=""
^DD(62.4,"RQ",6)=""
^DD(62.4,"SB",62.41,30)=""
^DD(62.4,"SB",62.4107,107)=""
^DD(62.4,"SB",62.42,40)=""
^DD(62.4,"SB",62.43,60)=""
^DD(62.4,"SB",62.45,70)=""
^DD(62.41,0)="CHEM TESTS SUB-FIELD^NL^22^21"
^DD(62.41,0,"DT")="2910227"
^DD(62.41,0,"IX","AC",62.41,6)=""
^DD(62.41,0,"NM","CHEM TESTS")=""
^DD(62.41,0,"UP")="62.4"
^DD(62.41,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.41,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(62.41,.001,21,0)="^^2^2^2841126^"
^DD(62.41,.001,21,1,0)="The test entries may be number meaningful.  E.g., the ACA identifies the"
^DD(62.41,.001,21,2,0)="test by number."
^DD(62.41,.01,0)="TEST^MR*P60'^LAB(60,^0;1^S DIC(""S"")=""I $D(^LAB(60,Y,.2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.41,.01,1,0)="^.1"
^DD(62.41,.01,1,1,0)="^^TRIGGER^62.41^11"
^DD(62.41,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.4,D0,3,D1,1)):^(1),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(62.41,.01,1,1,1.1) X ^DD(62.41,.01,1,1,1.4)"
^DD(62.41,.01,1,1,1.1)="S Y(101)=$S($D(^LAB(60,+DIV,0)):^(0),1:"""") S X=$P(Y(101),U,5),X=""TV(""_$P(X,"";"",2)_"",""_$P(X,"";"",3)_"")"""
^DD(62.41,.01,1,1,1.4)="S DIH=$S($D(^LAB(62.4,DIV(0),3,DIV(1),1)):^(1),1:""""),DIV=X S %=$P(DIH,U,2,999),^(1)=DIV_$S(%]"""":U_%,1:""""),DIH=62.41,DIG=11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.41,.01,1,1,2)="Q"
^DD(62.41,.01,1,1,"CREATE VALUE")="TEST:LOCATION"
^DD(62.41,.01,1,1,"DELETE VALUE")="NO EFFECT"
^DD(62.41,.01,1,1,"FIELD")="ROUTINE STORAGE"
^DD(62.41,.01,3)="Enter the name of a test for which the instrument will send data."
^DD(62.41,.01,12)="Check that test has a data name."
^DD(62.41,.01,12.1)="S DIC(""S"")=""I $D(^LAB(60,Y,.2))"""
^DD(62.41,.01,21,0)="^^1^1^2901016^^"
^DD(62.41,.01,21,1,0)="This contains the test names for this instrument."
^DD(62.41,.01,"DT")="2850412"
^DD(62.41,2,0)="PARAM 1^FX^^0;2^K:$L(X)>100!($L(X)<2)!(X[U) X D:$D(X) ^DIM"
^DD(62.41,2,3)="ANSWER MUST BE 2-100 CHARACTERS IN LENGTH and valid mumps code."
^DD(62.41,2,9)="@"
^DD(62.41,2,10)=""
^DD(62.41,2,21,0)="^^1^1^2920609^^"
^DD(62.41,2,21,1,0)="This is used to extract a test from a data stream.  It may contain a line number or character number."
^DD(62.41,2,21,2,0)="Set by LASET into TC(I,2)"
^DD(62.41,2,21,3,0)="this field. Check the interface notes or review the routine."
^DD(62.41,2,"DT")="3001107"
^DD(62.41,3,0)="PARAM 2^NJ5,0^^0;3^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.41,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 10000"
^DD(62.41,3,21,0)="^^1^1^2841114^"
^DD(62.41,3,21,1,0)="This is used to extract a test from a data stream.  It may contain a line number or character number."
^DD(62.41,3,21,2,0)="Set by LASET into TC(I,3)."
^DD(62.41,3,"DT")="2841211"
^DD(62.41,4,0)="PARAM 3^F^^0;4^K:$L(X)>100!($L(X)<1) X"
^DD(62.41,4,3)="ANSWER MUST BE 1-100 CHARACTERS IN LENGTH"
^DD(62.41,4,21,0)="^^2^2^2841211^"
^DD(62.41,4,21,1,0)="This is used to extract a test from a data stream. It may contain a line number or character number."
^DD(62.41,4,21,2,0)="Set by LASET into TC(I,4)."
^DD(62.41,4,21,3,0)="  Not all interfaced instruments use this field."
^DD(62.41,4,"DT")="2851219"
^DD(62.41,6,0)="UI TEST CODE^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(62.41,6,.1)="Universal Interface Test Code"
^DD(62.41,6,1,0)="^.1"
^DD(62.41,6,1,1,0)="62.41^AC"
^DD(62.41,6,1,1,1)="S ^LAB(62.4,DA(1),3,""AC"",$E(X,1,30),DA)="""""
^DD(62.41,6,1,1,2)="K ^LAB(62.4,DA(1),3,""AC"",$E(X,1,30),DA)"
^DD(62.41,6,1,1,3)="REQUIRED TO PROCESS RESULTS"
^DD(62.41,6,1,1,"DT")="2940602"
^DD(62.41,6,3)="Answer must be 1-30 characters in length."
^DD(62.41,6,21,0)="^^18^18^2960126^^^^"
^DD(62.41,6,21,1,0)="For traditional interfaces:"
^DD(62.41,6,21,2,0)=""
^DD(62.41,6,21,3,0)="This is the code to send the instrument for downloading of load lists"
^DD(62.41,6,21,4,0)="that this test is requested."
^DD(62.41,6,21,5,0)="  This field used by various BI-DIRECTIONAL INTERFACES"
^DD(62.41,6,21,6,0)="  eg. for test BUN enter / as the download code for the ETACHEM instrument."
^DD(62.41,6,21,7,0)=""
^DD(62.41,6,21,8,0)="For Universal Interfaces:"
^DD(62.41,6,21,9,0)=""
^DD(62.41,6,21,10,0)="For sites using this instrument in a Universal Interface configuration, "
^DD(62.41,6,21,11,0)="this field is used to define the instrument 'name' for a test. This "
^DD(62.41,6,21,12,0)="'name' is used as an identifier for the test in all messages sent to"
^DD(62.41,6,21,13,0)="and from the instrument.  It is important that the Universal Interface"
^DD(62.41,6,21,14,0)="PC has the name defined in this instrument's configuration exactly as"
^DD(62.41,6,21,15,0)="it is here in the auto instrument file, including upper and lower case."
^DD(62.41,6,21,16,0)="This field does NOT have to be the test name, but can be.  The name of "
^DD(62.41,6,21,17,0)="this field should not be taken literally, it is used for both uploading"
^DD(62.41,6,21,18,0)="and downloading, uni-directional as well as bi-directional."
^DD(62.41,6,23,0)="^^9^9^2960126^^^"
^DD(62.41,6,23,1,0)="In a Universal Interface configuration this field is used as the "
^DD(62.41,6,23,2,0)="primary identifier in all of the HL7 messages passed between DHCP"
^DD(62.41,6,23,3,0)="and the UI PC.  It must be defined on the PC exacly as it is entered"
^DD(62.41,6,23,4,0)="here. It can be any alphanumeric string that passes the transform."
^DD(62.41,6,23,5,0)="There is an ""AC"" cross reference on this field that is used as a "
^DD(62.41,6,23,6,0)="lookup when a message is received.  If test results are not being"
^DD(62.41,6,23,7,0)="downloaded or uploaded for this test, it might be because the "
^DD(62.41,6,23,8,0)="Download Code does not match exactly with the idenitifer on the PC"
^DD(62.41,6,23,9,0)="for this instrument configuration."
^DD(62.41,6,"DT")="2960126"
^DD(62.41,7,0)="ACCESSION AREA^P68'^LRO(68,^2;12^Q"
^DD(62.41,7,3)="Enter the accession area to screen this test"
^DD(62.41,7,21,0)="^.001^3^3^3000505^^"
^DD(62.41,7,21,1,0)="This field is used to limit the building of tests on a HL7 Order message."
^DD(62.41,7,21,2,0)="If an accession area is entered then the accession must be from this"
^DD(62.41,7,21,3,0)="accession area for this test to build on a HL7 Order message."
^DD(62.41,7,"DT")="3000505"
^DD(62.41,8,0)="SPECIMEN^P61'^LAB(61,^2;13^Q"
^DD(62.41,8,3)="Enter the specimen type to screen this test."
^DD(62.41,8,21,0)="^^3^3^3000505^"
^DD(62.41,8,21,1,0)="This field is used to limit the building of tests on a HL7 Order message."
^DD(62.41,8,21,2,0)="If a specimen is entered then the specimen on the accession must match"
^DD(62.41,8,21,3,0)="for this test to build on a HL7 Order message. "
^DD(62.41,8,"DT")="3000505"
^DD(62.41,9,0)="URGENCY^P62.05'^LAB(62.05,^2;14^Q"
^DD(62.41,9,3)="Enter the urgency to screen this test."
^DD(62.41,9,21,0)="^^3^3^3000505^"
^DD(62.41,9,21,1,0)="This field is used to limit the building of tests on a HL7 Order message."
^DD(62.41,9,21,2,0)="If an urgency is entered then the urgency of the test must match for this"
^DD(62.41,9,21,3,0)="test to build on a HL7 Order message. "
^DD(62.41,9,"DT")="3000505"
^DD(62.41,11,0)="ROUTINE STORAGE^F^^1;1^K:$L(X)>15!($L(X)<2) X"
^DD(62.41,11,3)="ANSWER MUST BE 2-15 CHARACTERS IN LENGTH"
^DD(62.41,11,5,1,0)="62.41^.01^1"
^DD(62.41,11,9)="^"
^DD(62.41,11,21,0)="^^2^2^2941228^^^"
^DD(62.41,11,21,1,0)="This data is triggered by the test field.  It contains the internal"
^DD(62.41,11,21,2,0)="storage location in file 63."
^DD(62.41,12,0)="NUMBER OF DECIMAL PLACES^NJ2,0^^2;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.41,12,3)="Type a Number between 0 and 99, 0 Decimal Digits. If nothing is entered the decimal place of the result will not be modified.  Rounding will take place if the number of decimal places is exceeded."
^DD(62.41,12,21,0)="^^20^20^2941228^^^^"
^DD(62.41,12,21,1,0)="This field is used to modify the result returned by the instrument.  It"
^DD(62.41,12,21,2,0)="is used to force the result to a certain number of decimal places.  If"
^DD(62.41,12,21,3,0)="the result has more decimal places than the number entered for this field,"
^DD(62.41,12,21,4,0)="the result will be rounded to the number of decimal places specified.  For"
^DD(62.41,12,21,5,0)="example, if this field's value was '2' and the instrument returned a "
^DD(62.41,12,21,6,0)="result of '34.678', the result would be modified to '34.68'."
^DD(62.41,12,21,7,0)=""
^DD(62.41,12,21,8,0)="If MUMPS code exists in PARAM 1, it will be executed before any modification"
^DD(62.41,12,21,9,0)="to the result.  If the code in PARAM 1 changes the result such that it is"
^DD(62.41,12,21,10,0)="no longer a canonic number, no modification to decimal places will take"
^DD(62.41,12,21,11,0)="place."
^DD(62.41,12,21,12,0)=""
^DD(62.41,12,21,13,0)="To round of the result based on other factors, or in other words - "
^DD(62.41,12,21,14,0)="'On the fly', you can set a variable in PARAM 1 as follows:"
^DD(62.41,12,21,15,0)=""
^DD(62.41,12,21,16,0)="PARAM 1: S:(CONDITION) LA7XFORM(1)=3"
^DD(62.41,12,21,17,0)=""
^DD(62.41,12,21,18,0)="Where CONDITION is some MUMPS value that equates to true or false, and 3"
^DD(62.41,12,21,19,0)="represents the number of decimal places. 3 is just an example, you can use"
^DD(62.41,12,21,20,0)="any number you want, including zero. Consult a programmer before trying this."
^DD(62.41,12,"DT")="2941114"
^DD(62.41,13,0)="CONVERT RESULT TO REMARK^S^0:NO;1:YES;^2;2^Q"
^DD(62.41,13,3)="Answer Yes or No.  If nothing is entered the default will be 'No'."
^DD(62.41,13,21,0)="^^16^16^2941228^^^"
^DD(62.41,13,21,1,0)="This field should be set to 'Yes' if you want the result to be converted"
^DD(62.41,13,21,2,0)="to a comment or remark.  "
^DD(62.41,13,21,3,0)=""
^DD(62.41,13,21,4,0)="If MUMPS code exists in PARAM 1, it will be executed before converting the "
^DD(62.41,13,21,5,0)="result to a comment."
^DD(62.41,13,21,6,0)=""
^DD(62.41,13,21,7,0)="Be aware that if field 17 'REMOVE SPACES FROM RESULT' is set to 'Yes',"
^DD(62.41,13,21,8,0)="the comment will have all spaces removed."
^DD(62.41,13,21,9,0)=""
^DD(62.41,13,21,10,0)="To convert the result to a comment based on other factors, or in other words - "
^DD(62.41,13,21,11,0)="'On the fly', you can set a variable in PARAM 1 as follows:"
^DD(62.41,13,21,12,0)=""
^DD(62.41,13,21,13,0)="PARAM 1: S:(CONDITION) LA7XFORM(2)=1"
^DD(62.41,13,21,14,0)=""
^DD(62.41,13,21,15,0)="Where CONDITION is some MUMPS value that equates to true or false.  Consult"
^DD(62.41,13,21,16,0)="a programmer before trying this."
^DD(62.41,13,"DT")="2941114"
^DD(62.41,14,0)="ACCEPT RESULTS FOR THIS TEST^S^0:NO;1:YES;2:FINAL ONLY;^2;3^Q"
^DD(62.41,14,3)="Select if results for this test are accepted."
^DD(62.41,14,21,0)="^^40^40^2990330^^^^"
^DD(62.41,14,21,1,0)="Determines if results (HL7 OBX segments) are processed and stored."
^DD(62.41,14,21,2,0)="If nothing is entered, the default will be 'Yes'. "
^DD(62.41,14,21,3,0)=""
^DD(62.41,14,21,4,0)="If ""YES"" is selected then all test results are processed and stored."
^DD(62.41,14,21,5,0)=" "
^DD(62.41,14,21,6,0)="Select ""NO"" to suppress the processing and storing any test result."
^DD(62.41,14,21,7,0)=" "
^DD(62.41,14,21,8,0)="Selecting ""FINAL ONLY"" will only process/store test results when the"
^DD(62.41,14,21,9,0)="result has a status of C,F,U as defined in table 0085 below."
^DD(62.41,14,21,10,0)=""
^DD(62.41,14,21,11,0)="If there is MUMPS code in PARAM 1, it will be executed regardless of how"
^DD(62.41,14,21,12,0)="this field is set."
^DD(62.41,14,21,13,0)=""
^DD(62.41,14,21,14,0)="To accept results for this test based on other factors, or in other words - "
^DD(62.41,14,21,15,0)="'On the fly', you can set a variable in PARAM 1 as follows:"
^DD(62.41,14,21,16,0)=""
^DD(62.41,14,21,17,0)="PARAM 1: S:(CONDITION) LA7XFORM(3)=1"
^DD(62.41,14,21,18,0)=""
^DD(62.41,14,21,19,0)="Where CONDITION is some MUMPS value that equates to true or false.  Consult"
^DD(62.41,14,21,20,0)="a programmer before trying this."
^DD(62.41,14,21,21,0)=""
^DD(62.41,14,21,22,0)=" "
^DD(62.41,14,21,23,0)=" "
^DD(62.41,14,21,24,0)="        Table 0085 - Observation result status codes interpretation"
^DD(62.41,14,21,25,0)=" "
^DD(62.41,14,21,26,0)=" Value  Description"
^DD(62.41,14,21,27,0)=" C      Record coming over is a correction and thus replaces a final"
^DD(62.41,14,21,28,0)="        result"
^DD(62.41,14,21,29,0)=" D      Deletes the OBX record"
^DD(62.41,14,21,30,0)=" F      Final results;  Can only be changed with a corrected result."
^DD(62.41,14,21,31,0)=" I      Specimen in lab; results pending"
^DD(62.41,14,21,32,0)=" P      Preliminary results"
^DD(62.41,14,21,33,0)=" R      Results entered -- not verified"
^DD(62.41,14,21,34,0)=" S      Partial results"
^DD(62.41,14,21,35,0)=" X      Results cannot be obtained for this observation"
^DD(62.41,14,21,36,0)=" U      Results status change to Final.  without retransmitting results"
^DD(62.41,14,21,37,0)="        already sent as 'preliminary.'  E.g., radiology changes status"
^DD(62.41,14,21,38,0)="        from preliminary to final"
^DD(62.41,14,21,39,0)=" W      Post original as wrong, e.g., transmitted for wrong patient"
^DD(62.41,14,21,40,0)=""
^DD(62.41,14,"DT")="2990329"
^DD(62.41,15,0)="DOWNLOAD TO INSTRUMENT^S^0:NO;1:YES;^2;4^Q"
^DD(62.41,15,3)="Enter Yes or No.  If nothing is entered the default will be 'Yes'."
^DD(62.41,15,21,0)="^^7^7^2941114^"
^DD(62.41,15,21,1,0)="This field should be set to 'Yes' if the test is to be downloaded"
^DD(62.41,15,21,2,0)="to the instrument.  This might be set to 'No' in cases where the"
^DD(62.41,15,21,3,0)="instrument always performs and reports a computed value, but it"
^DD(62.41,15,21,4,0)="is not orderable."
^DD(62.41,15,21,5,0)=""
^DD(62.41,15,21,6,0)="If there is MUMPS code in PARAM 1, it will be executed regardless of"
^DD(62.41,15,21,7,0)="how this field is answered."
^DD(62.41,15,"DT")="2941114"
^DD(62.41,16,0)="IGNORE RESULTS NOT ORDERED^S^0:NO;1:YES;^2;5^Q"
^DD(62.41,16,3)="Enter Yes or No.  If nothing is entered the default will be 'No'."
^DD(62.41,16,21,0)="^^19^19^2941228^^"
^DD(62.41,16,21,1,0)="This field should be set to 'Yes' if you want to restrict results to"
^DD(62.41,16,21,2,0)="only those tests that were ordered."
^DD(62.41,16,21,3,0)=""
^DD(62.41,16,21,4,0)="For example, if an electolytes panel was ordered consisting of:"
^DD(62.41,16,21,5,0)="  Sodium"
^DD(62.41,16,21,6,0)="  Potassium"
^DD(62.41,16,21,7,0)="  Chloride"
^DD(62.41,16,21,8,0)="  CO2"
^DD(62.41,16,21,9,0)=""
^DD(62.41,16,21,10,0)="And the instrument running the sample also reported a BUN result, the"
^DD(62.41,16,21,11,0)="BUN would not be reported if this field was set to 'Yes'."
^DD(62.41,16,21,12,0)=""
^DD(62.41,16,21,13,0)="To ignore results not ordered based on other factors, or in other words - "
^DD(62.41,16,21,14,0)="'On the fly', you can set a variable in PARAM 1 as follows:"
^DD(62.41,16,21,15,0)=""
^DD(62.41,16,21,16,0)="PARAM 1: S:(CONDITION) LA7XFORM(5)=1"
^DD(62.41,16,21,17,0)=""
^DD(62.41,16,21,18,0)="Where CONDITION is some MUMPS value that equates to true or false.  Consult"
^DD(62.41,16,21,19,0)="a programmer before trying this."
^DD(62.41,16,"DT")="2941114"
^DD(62.41,17,0)="REMOVE SPACES FROM RESULT^S^0:NO;1:YES;^2;6^Q"
^DD(62.41,17,3)="Answer 'Yes' if you want to strip all space characters from the result before storing it.  This is generally done but not required."
^DD(62.41,17,21,0)="^^14^14^2941228^"
^DD(62.41,17,21,1,0)="If answered 'Yes' the result from the instrument will be changed so that"
^DD(62.41,17,21,2,0)="it contains NO spaces, e.g.  > 3.2 would be >3.2.  If this test is set up"
^DD(62.41,17,21,3,0)="to be converted to a comment (see field 13) the spaces will NOT be removed"
^DD(62.41,17,21,4,0)="regardless of how you answer this field. MUMPS code in PARAM 1 will"
^DD(62.41,17,21,5,0)="always be executed before any other transformation of the result takes"
^DD(62.41,17,21,6,0)="place, including the stripping of spaces."
^DD(62.41,17,21,7,0)=""
^DD(62.41,17,21,8,0)="To strip spaces conditionally based on other factors, or in other words - "
^DD(62.41,17,21,9,0)="'On the fly', you can set a variable in PARAM 1 as follows:"
^DD(62.41,17,21,10,0)=""
^DD(62.41,17,21,11,0)="PARAM 1: S:(CONDITION) LA7XFORM(6)=1"
^DD(62.41,17,21,12,0)=""
^DD(62.41,17,21,13,0)="Where CONDITION is some MUMPS value that equates to true or false.  Consult"
^DD(62.41,17,21,14,0)="a programmer before trying this."
^DD(62.41,17,"DT")="2941228"
^DD(62.41,18,0)="STORE REMARKS^S^0:NO;1:YES;2:FINAL ONLY;^2;7^Q"
^DD(62.41,18,3)="Enter ""YES"" if remarks should be stored."
^DD(62.41,18,21,0)="^.001^32^32^3001205^^^^"
^DD(62.41,18,21,1,0)="Determines if remarks/comments (HL7 NTE segments) are processed and"
^DD(62.41,18,21,2,0)="stored with results. This applies only to remarks/comments that"
^DD(62.41,18,21,3,0)="relate to a test."
^DD(62.41,18,21,4,0)=" "
^DD(62.41,18,21,5,0)="Select ""NO"" to suppress the processing and storing of any"
^DD(62.41,18,21,6,0)="remarks/comments associated with a test result. "
^DD(62.41,18,21,7,0)=" "
^DD(62.41,18,21,8,0)="If ""YES"" is selected then all remarks/comments associated with a"
^DD(62.41,18,21,9,0)="test result are processed and stored."
^DD(62.41,18,21,10,0)=" "
^DD(62.41,18,21,11,0)="The default value is ""NO""."
^DD(62.41,18,21,12,0)=" "
^DD(62.41,18,21,13,0)="Selecting ""FINAL ONLY"" will only process and store remarks/comments"
^DD(62.41,18,21,14,0)="when the associated test result has a status of C,F,U as defined in"
^DD(62.41,18,21,15,0)="table 0085 below. This only applies to NTE segments that follow OBX"
^DD(62.41,18,21,16,0)="segments."
^DD(62.41,18,21,17,0)=" "
^DD(62.41,18,21,18,0)="        Table 0085 - Observation result status codes interpretation"
^DD(62.41,18,21,19,0)=" "
^DD(62.41,18,21,20,0)=" Value  Description"
^DD(62.41,18,21,21,0)=" C      Record coming over is a correction and thus replaces a final"
^DD(62.41,18,21,22,0)="        result"
^DD(62.41,18,21,23,0)=" D      Deletes the OBX record"
^DD(62.41,18,21,24,0)=" F      Final results;  Can only be changed with a corrected result."
^DD(62.41,18,21,25,0)=" I      Specimen in lab; results pending"
^DD(62.41,18,21,26,0)=" P      Preliminary results"
^DD(62.41,18,21,27,0)=" R      Results entered -- not verified"
^DD(62.41,18,21,28,0)=" S      Partial results"
^DD(62.41,18,21,29,0)=" X      Results cannot be obtained for this observation"
^DD(62.41,18,21,30,0)=" U      Results status change to Final.  without retransmitting results"
^DD(62.41,18,21,31,0)="        already sent as 'preliminary.'  E.g., radiology changes status"
^DD(62.41,18,21,32,0)="        from preliminary to final"
^DD(62.41,18,"DT")="3001205"
^DD(62.41,19,0)="REMARK PREFIX^F^^2;8^K:$L(X)>30!($L(X)<1) X"
^DD(62.41,19,3)="Answer must be 1-30 characters in length."
^DD(62.41,19,21,0)="^^13^13^3010831^^"
^DD(62.41,19,21,1,0)="Used by the Lab Universal Interface software when processing HL7"
^DD(62.41,19,21,2,0)="messages that contain NTE (notes) segments which follow OBX (test results)"
^DD(62.41,19,21,3,0)="segments. These NTE segments apply to the test, not to the specimen."
^DD(62.41,19,21,4,0)=" "
^DD(62.41,19,21,5,0)="This field is used in conjunction with field STORE REMARKS (#18)"
^DD(62.41,19,21,6,0)="in the CHEM TESTS multiple. If field STORE REMARKS is set to YES"
^DD(62.41,19,21,7,0)="then the value of this field, if any, will be used as the prefix"
^DD(62.41,19,21,8,0)="to the remarks when storing the remark in the LAH global."
^DD(62.41,19,21,9,0)=" "
^DD(62.41,19,21,10,0)="Example: If the text ""For test POTASSIUM: "" is entered in this field"
^DD(62.41,19,21,11,0)="and a remark is received associated with this test that states"
^DD(62.41,19,21,12,0)="""Specimen hemolyzed"" then the remark which will be stored is"
^DD(62.41,19,21,13,0)="""For test POTASSIUM: Specimen hemolyzed""."
^DD(62.41,19,"DT")="3010831"
^DD(62.41,20,0)="STORE PRODUCER'S ID^S^0:NO;1:YES;^2;9^Q"
^DD(62.41,20,3)="Store the name and identifier of performing lab"
^DD(62.41,20,10)="Field OBX-15 Producer's ID in HL7 ORU result message "
^DD(62.41,20,21,0)="^^6^6^3010906^^"
^DD(62.41,20,21,1,0)="Used to determine if a remark(comment) should be created and"
^DD(62.41,20,21,2,0)="stored with the results which indicates the producer of the"
^DD(62.41,20,21,3,0)="test result. Used in conjuction with field REMARK PREFIX (#19)"
^DD(62.41,20,21,4,0)="which if defined will be the prefix added to the producer's"
^DD(62.41,20,21,5,0)="name/id. This remark is generated from the value, if any, of"
^DD(62.41,20,21,6,0)="field OBX-15 Producer's ID from the HL7 ORU result message."
^DD(62.41,20,"DT")="3010906"
^DD(62.41,21,0)="STORE REFERENCE RANGE^S^0:NO;1:YES;^2;10^Q"
^DD(62.41,21,3)="Store the reference range with results"
^DD(62.41,21,10)="Field OBX-7 References Range in HL7 ORU result message"
^DD(62.41,21,21,0)="^^19^19^3041129^^^"
^DD(62.41,21,21,1,0)="Laboratory Electronic Data Interchange (LEDI):"
^DD(62.41,21,21,2,0)="Previous versions of LEDI used this field. Current versions of LEDI"
^DD(62.41,21,21,3,0)="do NOT use this field. References ranges reported by reference"
^DD(62.41,21,21,4,0)="laboratories are always stored with results."
^DD(62.41,21,21,5,0)="  "
^DD(62.41,21,21,6,0)=" "
^DD(62.41,21,21,7,0)="Laboratory Point of Care (POC):"
^DD(62.41,21,21,8,0)="Used to determine if reference ranges reported by POC system"
^DD(62.41,21,21,9,0)="with the results should be processed and stored with the results."
^DD(62.41,21,21,10,0)="Some POC systems have references ranges that are fixed within "
^DD(62.41,21,21,11,0)="the POC system and may not be appropriate or accurate on the VistA"
^DD(62.41,21,21,12,0)="Laboratory system. "
^DD(62.41,21,21,13,0)=""
^DD(62.41,21,21,14,0)="Set this field to 'YES' to use the reference ranges reported by the"
^DD(62.41,21,21,15,0)="POC system."
^DD(62.41,21,21,16,0)=""
^DD(62.41,21,21,17,0)="Set this field to 'NO' to disregard any reference ranges transmitted"
^DD(62.41,21,21,18,0)="by the POC system and instead use the reference ranges specified in"
^DD(62.41,21,21,19,0)="LABORATORY TEST file (#60) for this test/specimen."
^DD(62.41,21,"DT")="3041129"
^DD(62.41,22,0)="NOTIFY ABNORMAL FLAGS^S^0:NO;1:YES;^2;11^Q"
^DD(62.41,22,3)="Send alert/bulletin when results are abnormal."
^DD(62.41,22,10)="Field OBX-8 Abnormal Flags in HL7 ORU result message"
^DD(62.41,22,21,0)="^^4^4^3030722^^"
^DD(62.41,22,21,1,0)="Used to determine if an alert and bulletin should be created when"
^DD(62.41,22,21,2,0)="results are processed with an associated abnormal flag. Generated"
^DD(62.41,22,21,3,0)="from the value of field OBX-8 Abnormal Flags from the HL7 ORU result"
^DD(62.41,22,21,4,0)="message. "
^DD(62.41,22,"DT")="3030722"
^DD(62.41,"B","ACCEPT RESULTS FOR THIS TEST",14)=""
^DD(62.41,"B","ACCESSION AREA",7)=""
^DD(62.41,"B","CONVERT RESULT TO REMARK",13)=""
^DD(62.41,"B","DOWNLOAD TO INSTRUMENT",15)=""
^DD(62.41,"B","IGNORE RESULTS NOT ORDERED",16)=""
^DD(62.41,"B","NOTIFY ABNORMAL FLAGS",22)=""
^DD(62.41,"B","NUMBER",.001)=""
^DD(62.41,"B","NUMBER OF DECIMAL PLACES",12)=""
^DD(62.41,"B","PARAM 1",2)=""
^DD(62.41,"B","PARAM 2",3)=""
^DD(62.41,"B","PARAM 3",4)=""
^DD(62.41,"B","REMARK PREFIX",19)=""
^DD(62.41,"B","REMOVE SPACES FROM RESULT",17)=""
^DD(62.41,"B","ROUTINE STORAGE",11)=""
^DD(62.41,"B","SPECIMEN",8)=""
^DD(62.41,"B","STORE PRODUCER'S ID",20)=""
^DD(62.41,"B","STORE REFERENCE RANGE",21)=""
^DD(62.41,"B","STORE REMARKS",18)=""
^DD(62.41,"B","TEST",.01)=""
^DD(62.41,"B","UI TEST CODE",6)=""
^DD(62.41,"B","URGENCY",9)=""
^DD(62.41,"B","Universal Interface Test Code",6)="1"
^DD(62.41,"GL",0,1,.01)=""
^DD(62.41,"GL",0,2,2)=""
^DD(62.41,"GL",0,3,3)=""
^DD(62.41,"GL",0,4,4)=""
^DD(62.41,"GL",0,6,6)=""
^DD(62.41,"GL",1,1,11)=""
^DD(62.41,"GL",2,1,12)=""
^DD(62.41,"GL",2,2,13)=""
^DD(62.41,"GL",2,3,14)=""
^DD(62.41,"GL",2,4,15)=""
^DD(62.41,"GL",2,5,16)=""
^DD(62.41,"GL",2,6,17)=""
^DD(62.41,"GL",2,7,18)=""
^DD(62.41,"GL",2,8,19)=""
^DD(62.41,"GL",2,9,20)=""
^DD(62.41,"GL",2,10,21)=""
^DD(62.41,"GL",2,11,22)=""
^DD(62.41,"GL",2,12,7)=""
^DD(62.41,"GL",2,13,8)=""
^DD(62.41,"GL",2,14,9)=""
^DD(62.41,"IX",.01)=""
^DD(62.41,"IX",6)=""
^DD(62.41,"RQ",.01)=""
^DD(62.4107,0)="SITE NOTES DATE SUB-FIELD^^1^2"
^DD(62.4107,0,"DT")="2930912"
^DD(62.4107,0,"IX","B",62.4107,.01)=""
^DD(62.4107,0,"NM","SITE NOTES DATE")=""
^DD(62.4107,0,"UP")="62.4"
^DD(62.4107,.01,0)="SITE NOTES DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(62.4107,.01,1,0)="^.1"
^DD(62.4107,.01,1,1,0)="62.4107^B"
^DD(62.4107,.01,1,1,1)="S ^LAB(62.4,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(62.4107,.01,1,1,2)="K ^LAB(62.4,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(62.4107,.01,"DT")="2930912"
^DD(62.4107,1,0)="TEXT^62.41071^^1;0"
^DD(62.4107,1,21,0)="^^1^1^2930912^"
^DD(62.4107,1,21,1,0)=" The actual text of the note."
^DD(62.4107,"B","SITE NOTES DATE",.01)=""
^DD(62.4107,"B","TEXT",1)=""
^DD(62.4107,"GL",0,1,.01)=""
^DD(62.4107,"GL",1,0,1)=""
^DD(62.4107,"IX",.01)=""
^DD(62.4107,"SB",62.41071,1)=""
^DD(62.41071,0)="TEXT SUB-FIELD^^.01^1"
^DD(62.41071,0,"DT")="2930912"
^DD(62.41071,0,"NM","TEXT")=""
^DD(62.41071,0,"UP")="62.4107"
^DD(62.41071,.01,0)="TEXT^W^^0;1^Q"
^DD(62.41071,.01,"DT")="2930912"
^DD(62.41071,"B","TEXT",.01)=""
^DD(62.41071,"GL",0,1,.01)=""
^DD(62.42,0)="ALARM TERMINAL SUB-FIELD^NL^.01^1"
^DD(62.42,0,"NM","ALARM TERMINAL")=""
^DD(62.42,0,"UP")="62.4"
^DD(62.42,.01,0)="ALARM TERMINAL^MFX^^0;1^K:$L(X)>8!($L(X)<1) X I $D(X) S IOP=X,%ZIS=""N"" D ^%ZIS S X=ION K:POP X"
^DD(62.42,.01,3)="ENTER THE DEVICE NAMES THAT SHOULD BE TOLD OF A LSI INTERFACE STOP."
^DD(62.42,.01,21,0)="^^2^2^2841114^^"
^DD(62.42,.01,21,1,0)="This field contains the names/numbers of devices which will report the status of the interface."
^DD(62.42,.01,21,2,0)="Points to the DEVICE FILE."
^DD(62.42,.01,"DT")="2910228"
^DD(62.42,"B","ALARM TERMINAL",.01)=""
^DD(62.42,"GL",0,1,.01)=""
^DD(62.43,0)="MICRO CARD TYPE SUB-FIELD^NL^3^6"
^DD(62.43,0,"DT")="2930406"
^DD(62.43,0,"ID",.5)="W ""   "",$P(^(0),U,2)"
^DD(62.43,0,"IX","B",62.43,.01)=""
^DD(62.43,0,"NM","MICRO CARD TYPE")=""
^DD(62.43,0,"UP")="62.4"
^DD(62.43,.01,0)="MICRO CARD TYPE^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(62.43,.01,1,0)="^.1"
^DD(62.43,.01,1,1,0)="62.43^B"
^DD(62.43,.01,1,1,1)="S ^LAB(62.4,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(62.43,.01,1,1,2)="K ^LAB(62.4,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(62.43,.01,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH. Instrument card type."
^DD(62.43,.01,21,0)="^^2^2^2881113^^"
^DD(62.43,.01,21,1,0)="   Enter the Micro Card Type. This is a HEX code which represent the card type."
^DD(62.43,.01,21,2,0)="eg. 0E = GRAM NEG"
^DD(62.43,.01,"DT")="2860331"
^DD(62.43,.5,0)="CARD NAME^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(62.43,.5,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(62.43,.5,21,0)="^^1^1^2881113^"
^DD(62.43,.5,21,1,0)="  Enter the Card type name. eg. Gram Neg Id Card Name."
^DD(62.43,.5,"DT")="2860319"
^DD(62.43,.7,0)="PROCESS CARD CALL^FX^^3;E1,200^K:$L(X)>200!($L(X)<1) X I $D(X) D ^DIM"
^DD(62.43,.7,3)="MUMPS code to call routine to process this card"
^DD(62.43,.7,9)="@"
^DD(62.43,.7,21,0)="^^2^2^2901016^^^^"
^DD(62.43,.7,21,1,0)="   If a routine is required to process in coming data from the instrument,"
^DD(62.43,.7,21,2,0)="enter routine name.  See interface notes for routine(s) names."
^DD(62.43,.7,"DT")="2870505"
^DD(62.43,1,0)="ORGANISM^62.44I^^1;0"
^DD(62.43,1,12)="Only alow Bacteria, Fungi, or Mycobacteria"
^DD(62.43,1,12.1)="S DIC(""S"")=""I """"BFM""""[$P(^(0),U,5)"""
^DD(62.43,1,21,0)="^^3^3^2901016^^"
^DD(62.43,1,21,1,0)="   This sub field contains a list of possible identifiable organism which"
^DD(62.43,1,21,2,0)="can be identified on or by this card. It is a multiple field and contains"
^DD(62.43,1,21,3,0)="particulars for each organism."
^DD(62.43,2,0)="DRUG^62.46I^^2;0"
^DD(62.43,2,21,0)="^^2^2^2881113^"
^DD(62.43,2,21,1,0)="   This sub-field contains a list of drugs which this Card is capable of"
^DD(62.43,2,21,2,0)="testing and reporting."
^DD(62.43,3,0)="MESSAGE^62.461I^^4;0"
^DD(62.43,3,21,0)="^^1^1^2881113^"
^DD(62.43,3,21,1,0)=" For each card code, there can be associated a message to represent that code. This sub-field setup that relationship."
^DD(62.43,"B","CARD NAME",.5)=""
^DD(62.43,"B","DRUG",2)=""
^DD(62.43,"B","MESSAGE",3)=""
^DD(62.43,"B","MICRO CARD TYPE",.01)=""
^DD(62.43,"B","ORGANISM",1)=""
^DD(62.43,"B","PROCESS CARD CALL",.7)=""
^DD(62.43,"GL",0,1,.01)=""
^DD(62.43,"GL",0,2,.5)=""
^DD(62.43,"GL",1,0,1)=""
^DD(62.43,"GL",2,0,2)=""
^DD(62.43,"GL",3,"E1,200",.7)=""
^DD(62.43,"GL",4,0,3)=""
^DD(62.43,"IX",.01)=""
^DD(62.43,"SB",62.44,1)=""
^DD(62.43,"SB",62.46,2)=""
^DD(62.43,"SB",62.461,3)=""
^DD(62.44,0)="ORGANISM SUB-FIELD^NL^1^2"
^DD(62.44,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(62.44,0,"IX","B",62.44,.01)=""
^DD(62.44,0,"IX","C",62.44,1)=""
^DD(62.44,0,"NM","ORGANISM")=""
^DD(62.44,0,"UP")="62.43"
^DD(62.44,.01,0)="ORGANISM^M*P61.2'^LAB(61.2,^0;1^S DIC(""S"")=""I $L($P(^(0),U,5)),""""BFMPVR""""[$P(^(0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.44,.01,1,0)="^.1"
^DD(62.44,.01,1,1,0)="62.44^B"
^DD(62.44,.01,1,1,1)="S ^LAB(62.4,DA(2),7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(62.44,.01,1,1,2)="K ^LAB(62.4,DA(2),7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(62.44,.01,12)="Only alow Bacteria, Fungi, or Mycobacteria"
^DD(62.44,.01,12.1)="S DIC(""S"")=""I $L($P(^(0),U,5)),""""BFMPVR""""[$P(^(0),U,5)"""
^DD(62.44,.01,21,0)="^^4^4^2881113^"
^DD(62.44,.01,21,1,0)="   Enter the name of organism which is in Etiology File (61.2)"
^DD(62.44,.01,21,2,0)=" "
^DD(62.44,.01,21,3,0)="   This file will only allow organism which are either Bacterium,"
^DD(62.44,.01,21,4,0)="Fungus or Mycobacterium identifiers."
^DD(62.44,.01,"DT")="2900510"
^DD(62.44,1,0)="CARD CODE FOR ORGANISM^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(62.44,1,1,0)="^.1"
^DD(62.44,1,1,1,0)="62.44^C"
^DD(62.44,1,1,1,1)="S ^LAB(62.4,DA(2),7,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(62.44,1,1,1,2)="K ^LAB(62.4,DA(2),7,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(62.44,1,3)="This is the code from the card to lookup on, HEX for VITEK."
^DD(62.44,1,21,0)="^^2^2^2881113^"
^DD(62.44,1,21,1,0)="   Enter the card code for this organism. It is usually a two digit"
^DD(62.44,1,21,2,0)="Hex code."
^DD(62.44,1,"DT")="2900510"
^DD(62.44,"B","CARD CODE FOR ORGANISM",1)=""
^DD(62.44,"B","ORGANISM",.01)=""
^DD(62.44,"GL",0,1,.01)=""
^DD(62.44,"GL",0,2,1)=""
^DD(62.44,"IX",.01)=""
^DD(62.44,"IX",1)=""
^DD(62.44,"RQ",1)=""
^DD(62.45,0)="INTERFACE NOTES SUB-FIELD^^.01^1"
^DD(62.45,0,"DT")="2930406"
^DD(62.45,0,"NM","INTERFACE NOTES")=""
^DD(62.45,0,"UP")="62.4"
^DD(62.45,.01,0)="INTERFACE NOTES^W^^0;1^Q"
^DD(62.45,.01,"DT")="2930406"
^DD(62.45,"B","INTERFACE NOTES",.01)=""
^DD(62.45,"GL",0,1,.01)=""
^DD(62.46,0)="DRUG SUB-FIELD^NL^10^8"
^DD(62.46,0,"DT")="2930406"
^DD(62.46,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(62.46,0,"IX","AC",62.46,4)=""
^DD(62.46,0,"IX","C",62.46,3)=""
^DD(62.46,0,"NM","DRUG")=""
^DD(62.46,0,"UP")="62.43"
^DD(62.46,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.46,.001,3)="Enter 1-99 matching the index from the instrument."
^DD(62.46,.001,21,0)="^^2^2^2881113^"
^DD(62.46,.001,21,1,0)="  Enter the number used by the instrument to identy the drug in uploaded"
^DD(62.46,.001,21,2,0)="data stream."
^DD(62.46,.001,"DT")="2860403"
^DD(62.46,.01,0)="DRUG^MP62.06'^LAB(62.06,^0;1^Q"
^DD(62.46,.01,1,0)="^.1"
^DD(62.46,.01,1,1,0)="^^TRIGGER^62.46^1"
^DD(62.46,.01,1,1,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(62.4,D0,7,D1,2,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(62.46,.01,1,1,1.1) X ^DD(62.46,.01,1,1,1.4)"
^DD(62.46,.01,1,1,1.1)="S X=DIV X ^DD(62.46,.01,1,1,49.2) S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DD(62.46,.01,1,1,1.4)="S DIH=$S($D(^LAB(62.4,DIV(0),7,DIV(1),2,DIV(2),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.46,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.46,.01,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LAB(62.4,D0,7,D1,2,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(62.46,.01,1,1,2.4)"
^DD(62.46,.01,1,1,2.4)="S DIH=$S($D(^LAB(62.4,DIV(0),7,DIV(1),2,DIV(2),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.46,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.46,.01,1,1,49.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62.06,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(62.06,D0,0)):^(0),1:"""")"
^DD(62.46,.01,1,1,"CREATE VALUE")="DRUG:BUG NODE"
^DD(62.46,.01,1,1,"DELETE VALUE")="@"
^DD(62.46,.01,1,1,"FIELD")="DRUG NODE"
^DD(62.46,.01,3)=""
^DD(62.46,.01,"DT")="2860403"
^DD(62.46,1,0)="DRUG NODE^RFIX^^0;2^K:$L(X)>20!($L(X<1)) X"
^DD(62.46,1,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(62.46,1,5,1,0)="62.46^.01^1"
^DD(62.46,1,12)="Find the global location from the DD."
^DD(62.46,1,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""B"""""""
^DD(62.46,1,21,0)="^^1^1^2881113^"
^DD(62.46,1,21,1,0)="   Enter the drug name which the number corresponds to in File 62.06."
^DD(62.46,1,"DT")="2910228"
^DD(62.46,2,0)="PARAM1^FX^^0;3^K:$L(X)>80!($L(X)<1) X D ^DIM:$D(X)"
^DD(62.46,2,3)="MUMPS CODE TO SET S-I-R INTO V FROM CARD DATA"
^DD(62.46,2,9)="@"
^DD(62.46,2,21,0)="^^3^3^2901016^^"
^DD(62.46,2,21,1,0)="   Enter a MUMPS code string needed to convert/extract data into the variable"
^DD(62.46,2,21,2,0)="V. This field is similar to Param Fields in other auto instruments."
^DD(62.46,2,21,3,0)="   The name has been changed to prevent confusion in referring to the two fields."
^DD(62.46,2,"DT")="2860715"
^DD(62.46,3,0)="CARD CODE^RF^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(62.46,3,1,0)="^.1"
^DD(62.46,3,1,1,0)="62.46^C"
^DD(62.46,3,1,1,1)="S ^LAB(62.4,DA(2),7,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(62.46,3,1,1,2)="K ^LAB(62.4,DA(2),7,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(62.46,3,3)="This is the code from the card to do the lookup on."
^DD(62.46,3,21,0)="^^3^3^2901016^^^^"
^DD(62.46,3,21,1,0)="   On each card it is possible to have codes represent different "
^DD(62.46,3,21,2,0)="messages or canned comments. This sub field identifies the relationship."
^DD(62.46,3,21,3,0)="  Enter the code the card upload data will contain."
^DD(62.46,3,"DT")="2901128"
^DD(62.46,4,0)="DISPLAY ORDER^RNJ3,0^^0;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.46,4,1,0)="^.1"
^DD(62.46,4,1,1,0)="62.46^AC"
^DD(62.46,4,1,1,1)="S ^LAB(62.4,DA(2),7,DA(1),2,""AC"",$E(X,1,30),DA)="""""
^DD(62.46,4,1,1,2)="K ^LAB(62.4,DA(2),7,DA(1),2,""AC"",$E(X,1,30),DA)"
^DD(62.46,4,3)="Enter a number between 1-100 for display order, or '0' for file entry order"
^DD(62.46,4,"DT")="2890524"
^DD(62.46,9,0)="SECTION^F^^0;10^K:$L(X)>30!($L(X)<2) X"
^DD(62.46,9,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(62.46,10,0)="BIT POSITION^NJ2,0^^0;6^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.46,10,3)="Enter Bit Position on Card 1-12"
^DD(62.46,10,21,0)="^^3^3^2930406^^"
^DD(62.46,10,21,1,0)=" What bit (number of characters from the left) position the drug is located."
^DD(62.46,10,21,2,0)="  THIS FIELD IS NOT USED. RESERVED FOR LATER VERSIONS OF AUTO-INSTRUMENT"
^DD(62.46,10,21,3,0)="RELEASES."
^DD(62.46,10,"DT")="2930406"
^DD(62.46,"B","BIT POSITION",10)=""
^DD(62.46,"B","CARD CODE",3)=""
^DD(62.46,"B","DISPLAY ORDER",4)=""
^DD(62.46,"B","DRUG",.01)=""
^DD(62.46,"B","DRUG NODE",1)=""
^DD(62.46,"B","NUMBER",.001)=""
^DD(62.46,"B","PARAM1",2)=""
^DD(62.46,"B","SECTION",9)=""
^DD(62.46,"GL",0,1,.01)=""
^DD(62.46,"GL",0,2,1)=""
^DD(62.46,"GL",0,3,2)=""
^DD(62.46,"GL",0,4,3)=""
^DD(62.46,"GL",0,5,4)=""
^DD(62.46,"GL",0,6,10)=""
^DD(62.46,"GL",0,10,9)=""
^DD(62.46,"IX",.01)=""
^DD(62.46,"IX",3)=""
^DD(62.46,"IX",4)=""
^DD(62.46,"RQ",1)=""
^DD(62.46,"RQ",3)=""
^DD(62.46,"RQ",4)=""
^DD(62.461,0)="MESSAGE SUB-FIELD^^3^4"
^DD(62.461,0,"IX","B",62.461,.01)=""
^DD(62.461,0,"NM","MESSAGE")=""
^DD(62.461,0,"UP")="62.43"
^DD(62.461,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.461,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(62.461,.001,21,0)="^^2^2^2901016^^"
^DD(62.461,.001,21,1,0)="  This field represents the internal file number for this message."
^DD(62.461,.001,21,2,0)="This number must be unique to the file."
^DD(62.461,.001,"DT")="2860716"
^DD(62.461,.01,0)="CODE^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(62.461,.01,1,0)="^.1"
^DD(62.461,.01,1,1,0)="62.461^B"
^DD(62.461,.01,1,1,1)="S ^LAB(62.4,DA(2),7,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(62.461,.01,1,1,2)="K ^LAB(62.4,DA(2),7,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(62.461,.01,3)="Message CODE, 1-10 char."
^DD(62.461,.01,"DT")="2860716"
^DD(62.461,2,0)="FLAG VALUE^F^^0;2^K:$L(X)>8!($L(X)<1) X"
^DD(62.461,2,3)="Value if matches flag then include msg. 1-8 char."
^DD(62.461,2,21,0)="^^2^2^2881113^"
^DD(62.461,2,21,1,0)="  This field contains the flag value sent by the instrument with the uploaded"
^DD(62.461,2,21,2,0)="data."
^DD(62.461,2,"DT")="2860716"
^DD(62.461,3,0)="MESSAGE^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(62.461,3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(62.461,3,21,0)="^^3^3^2901016^^"
^DD(62.461,3,21,1,0)="   When the flag value is detected this message will be used."
^DD(62.461,3,21,2,0)="This field is similar to the Lab Description File and Expanded "
^DD(62.461,3,21,3,0)="comments."
^DD(62.461,3,"DT")="2860716"
^DD(62.461,"B","CODE",.01)=""
^DD(62.461,"B","FLAG VALUE",2)=""
^DD(62.461,"B","MESSAGE",3)=""
^DD(62.461,"B","NUMBER",.001)=""
^DD(62.461,"GL",0,1,.01)=""
^DD(62.461,"GL",0,2,2)=""
^DD(62.461,"GL",0,3,3)=""
^DD(62.461,"IX",.01)=""
^DD(62.48,0)="FIELD^^90^12"
^DD(62.48,0,"DDA")="N"
^DD(62.48,0,"DT")="3030811"
^DD(62.48,0,"IX","B",62.48,.01)=""
^DD(62.48,0,"IX","C",62.483,.01)=""
^DD(62.48,0,"NM","LA7 MESSAGE PARAMETER")=""
^DD(62.48,0,"PT",62.4,8)=""
^DD(62.48,0,"PT",62.49,.5)=""
^DD(62.48,0,"PT",62.9,.07)=""
^DD(62.48,0,"VR")="5.2"
^DD(62.48,0,"VRPK")="LA"
^DD(62.48,.01,0)="CONFIGURATION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(62.48,.01,1,0)="^.1"
^DD(62.48,.01,1,1,0)="62.48^B"
^DD(62.48,.01,1,1,1)="S ^LAHM(62.48,""B"",$E(X,1,30),DA)="""""
^DD(62.48,.01,1,1,2)="K ^LAHM(62.48,""B"",$E(X,1,30),DA)"
^DD(62.48,.01,3)="Answer must be 3-30 characters in length."
^DD(62.48,.01,21,0)="^^4^4^2970611^"
^DD(62.48,.01,21,1,0)="This field contains the descriptive name for all Lab Messaging "
^DD(62.48,.01,21,2,0)="configurations.  Each external partner that the Lab system exchanges"
^DD(62.48,.01,21,3,0)="messages with should have an entry in the file, e.g. OERR, Universal "
^DD(62.48,.01,21,4,0)="Interface."
^DD(62.48,.01,"DT")="2940425"
^DD(62.48,1,0)="PROTOCOL^S^HL7:HEALTH LEVEL SEVEN;X12:ANSI X.12;1238:ASTM 1238;1381:ASTM 1381;1394:ASTM 1394;LOCAL:LOCAL;^0;2^Q"
^DD(62.48,1,3)="Enter the protocol name that best fits this configuration."
^DD(62.48,1,21,0)="^^2^2^2970611^"
^DD(62.48,1,21,1,0)="This field should contain the type of messages that are used by this"
^DD(62.48,1,21,2,0)="configuration.  This field is primarily for documentation."
^DD(62.48,1,"DT")="2950122"
^DD(62.48,2,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;3^Q"
^DD(62.48,2,3)="Enter ""Active"" to allow this configuration to send and receive messages."
^DD(62.48,2,21,0)="^^1^1^2970611^^"
^DD(62.48,2,21,1,0)="This field is used to turn this configuration on or off."
^DD(62.48,2,"DT")="2940425"
^DD(62.48,3,0)="GRACE PERIOD FOR MESSAGES^NJ2,0^^0;6^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.48,3,3)="Type a Number between 1 and 31, 0 Decimal Digits."
^DD(62.48,3,21,0)="^^7^7^2970702^^^"
^DD(62.48,3,21,1,0)="Grace period determines the number of days that messages for this"
^DD(62.48,3,21,2,0)="configuration are kept on the system before purging when the message"
^DD(62.48,3,21,3,0)="status is ""purgable"".  If this field is left blank, the system assumes 3"
^DD(62.48,3,21,4,0)="days.  These messages are found in the LA7 MESSAGE QUEUE file (#62.49)."
^DD(62.48,3,21,5,0)="When messages have status of ""error"" they remain on the system until their"
^DD(62.48,3,21,6,0)="corresponding error message is removed from the XTMP global by a KERNEL"
^DD(62.48,3,21,7,0)="cleanup task.  The messages then become ""purgable""."
^DD(62.48,3,"DT")="2970305"
^DD(62.48,4,0)="LOG ERRORS^S^0:OFF;1:ON;^0;4^Q"
^DD(62.48,4,3)="Answer ""Yes"" to log errors in ^XTMP."
^DD(62.48,4,21,0)="^^3^3^2970611^"
^DD(62.48,4,21,1,0)="If turned on, errors or exceptional conditions that occur during message"
^DD(62.48,4,21,2,0)="processing are stored in the ^XTMP global for review.  To review the"
^DD(62.48,4,21,3,0)="log, in programmer mode, type D PRINT^LA7LOG."
^DD(62.48,4,"DT")="2970204"
^DD(62.48,5,0)="PROCESS IN^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(62.48,5,3)="This is Standard MUMPS code."
^DD(62.48,5,9)="@"
^DD(62.48,5,21,0)="^^4^4^2970611^"
^DD(62.48,5,21,1,0)="This field is executable MUMPS code. It should contain a call to an"
^DD(62.48,5,21,2,0)="application routine that will process the incoming message.  For a"
^DD(62.48,5,21,3,0)="Universal Interface setup, it should contain the call"
^DD(62.48,5,21,4,0)="D QUE^LA7UIIN."
^DD(62.48,5,"DT")="2940507"
^DD(62.48,6,0)="PROCESS DOWNLOAD^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(62.48,6,3)="This is Standard MUMPS code."
^DD(62.48,6,9)="@"
^DD(62.48,6,20,0)="^.3LA^^0"
^DD(62.48,6,21,0)="^^4^4^2970611^^"
^DD(62.48,6,21,1,0)="This field contains executable MUMPS code.  It should contain the"
^DD(62.48,6,21,2,0)="call point in a routine that will process building a message to be"
^DD(62.48,6,21,3,0)="sent to the receiving system.  For a Universal Interface configuration"
^DD(62.48,6,21,4,0)="it should contain the call D EN^LA7UID1."
^DD(62.48,6,"DT")="2940516"
^DD(62.48,7,0)="HL7 NON-DHCP APPLICATION^P770'^HL(770,^0;5^Q"
^DD(62.48,7,3)="Used to call the HL7 package with the appropriate remote system identifier."
^DD(62.48,7,21,0)="^^3^3^2970611^"
^DD(62.48,7,21,1,0)="This field is a pointer to the HL7 NON-DHCP APPLICATION PARAMETER file"
^DD(62.48,7,21,2,0)="(#770).  The field is used by the Universal Interface to create an Health"
^DD(62.48,7,21,3,0)="Level Seven message using the Vista HL7 v1.5 package."
^DD(62.48,7,23,0)="^^4^4^2970611^"
^DD(62.48,7,23,1,0)="The variable HLNDAP is often required by the HL7 package.  This is a "
^DD(62.48,7,23,2,0)="pointer to the HL7 NON-DHCP APPLICATION PARAMETER file (#770).  This field"
^DD(62.48,7,23,3,0)="is a pointer to that file and can be used in messaging building routines"
^DD(62.48,7,23,4,0)="to set the HLNDAP variable."
^DD(62.48,7,"DT")="2940516"
^DD(62.48,10,0)="MULTIPLE ORDERS^S^0:MULTIPLE PATIENTS;1:SINGLE PATIENT;2:SINGLE ORDER;^0;8^Q"
^DD(62.48,10,3)="Select if multiple/single patients/orders should be sent in a single message. See description (??) for additional help."
^DD(62.48,10,21,0)="^^25^25^3010831^^^^"
^DD(62.48,10,21,1,0)="Determines when building a HL7 message if message should contain only"
^DD(62.48,10,21,2,0)="one patient/order or multiple patients/orders."
^DD(62.48,10,21,3,0)=" "
^DD(62.48,10,21,4,0)="Default is multiple patients per message if possible."
^DD(62.48,10,21,5,0)=" "
^DD(62.48,10,21,6,0)="This allows site to configure message building when communicating with"
^DD(62.48,10,21,7,0)="a non-VA system that can not handle a message that has more than one"
^DD(62.48,10,21,8,0)="patient in the message. It applies to both order (ORM) and result (ORU)"
^DD(62.48,10,21,9,0)="messages."
^DD(62.48,10,21,10,0)=" "
^DD(62.48,10,21,11,0)="When communicating with a VA facility this field can be left blank"
^DD(62.48,10,21,12,0)="(default) or set to 0 - MULTIPLE PATIENTS"
^DD(62.48,10,21,13,0)=""
^DD(62.48,10,21,14,0)="If the receiving system can only accept one patient per HL7 message"
^DD(62.48,10,21,15,0)="then select 1 - SINGLE PATIENT. This will place multiple orders or"
^DD(62.48,10,21,16,0)="results for multiple orders in one message but only one patient will"
^DD(62.48,10,21,17,0)="be contained in the message."
^DD(62.48,10,21,18,0)=""
^DD(62.48,10,21,19,0)="If the receiving system can only accept one order per HL7 message then"
^DD(62.48,10,21,20,0)="select 2 - SINGLE ORDER. This will place in the message one order or"
^DD(62.48,10,21,21,0)="the results associated with one order for a single patient"
^DD(62.48,10,21,22,0)=" "
^DD(62.48,10,21,23,0)="Note: An order in the VA is considered those tests found on one"
^DD(62.48,10,21,24,0)="accession. What the VA considers as an accession other non-VA systems"
^DD(62.48,10,21,25,0)="may refer to as an order."
^DD(62.48,10,"DT")="3010831"
^DD(62.48,11,0)="INTERFACE TYPE^S^1:LAB UI;10:LEDI;20:POC;21:POCA;30:HDR;99:OTHER;^0;9^Q"
^DD(62.48,11,3)="Enter the purpose for this messaging interface."
^DD(62.48,11,21,0)="^^31^31^3030811^^^^"
^DD(62.48,11,21,1,0)="This field determines how and for what purpose this configuration is"
^DD(62.48,11,21,2,0)="used. It allows the laboratory software to generate, handle and"
^DD(62.48,11,21,3,0)="process messages."
^DD(62.48,11,21,4,0)=" "
^DD(62.48,11,21,5,0)="LAB UI - Used to identify configurations that are for processing"
^DD(62.48,11,21,6,0)="         laboratory automated instrument data via a generic interface"
^DD(62.48,11,21,7,0)="         manager."
^DD(62.48,11,21,8,0)=" "
^DD(62.48,11,21,9,0)="  LEDI - Designate entries involved with Laboratory Electronic Data"
^DD(62.48,11,21,10,0)="         Interchange (LEDI). Used to identify interfaces involved in"
^DD(62.48,11,21,11,0)="         the generation, transmission and processing of HL7 order (ORM)"
^DD(62.48,11,21,12,0)="         and result (ORU) messages involving reference laboratory"
^DD(62.48,11,21,13,0)="         testing between VistA and other VistA systems, commercial"
^DD(62.48,11,21,14,0)="         reference laboratories, DoD laboratories and civilian"
^DD(62.48,11,21,15,0)="         institutions."
^DD(62.48,11,21,16,0)=" "
^DD(62.48,11,21,17,0)="   POC - Point of Care (POC) interface. These interfaces transmit"
^DD(62.48,11,21,18,0)="         laboratory test results for which there is no pre-existing"
^DD(62.48,11,21,19,0)="         VistA laboratory order. VistA creates an order as part of"
^DD(62.48,11,21,20,0)="         result processing and storage."
^DD(62.48,11,21,21,0)=" "
^DD(62.48,11,21,22,0)="  POCA - Point of Care interface that subscribes to HL7 patient"
^DD(62.48,11,21,23,0)="         demographic (ADT) messages from VistA. Used by POC interfaces"
^DD(62.48,11,21,24,0)="         that subscribe to patient information from VistA to maintain"
^DD(62.48,11,21,25,0)="         the POC's patient database."
^DD(62.48,11,21,26,0)=" "
^DD(62.48,11,21,27,0)="   HDR - Designate interface to the VA Health Data Repository (HDR)."
^DD(62.48,11,21,28,0)="         (Currently reserved for future use)."
^DD(62.48,11,21,29,0)=" "
^DD(62.48,11,21,30,0)=" OTHER - Designate other non-laboratory interfaces that utilize the"
^DD(62.48,11,21,31,0)="         Laboratory package."
^DD(62.48,11,"DT")="3030811"
^DD(62.48,20,0)="ALERT CONDITION^62.481S^^20;0"
^DD(62.48,20,21,0)="^^3^3^2970827^^^"
^DD(62.48,20,21,1,0)="This field allows the user to identify whether to receive alerts when"
^DD(62.48,20,21,2,0)="there are new results, new orders or when an error is logged to the"
^DD(62.48,20,21,3,0)="^XTMP global."
^DD(62.48,90,0)="REMOTE SYSTEM ID^62.483A^^90;0"
^DD(62.48,90,21,0)="^^45^45^2970611^"
^DD(62.48,90,21,1,0)="This field is used to locate the correct configuration in this file when"
^DD(62.48,90,21,2,0)="a message is received from a remote system. Most messaging protocols"
^DD(62.48,90,21,3,0)="contain information about the system that originated the message and the"
^DD(62.48,90,21,4,0)="system that is the destination. Since there can be several senders and"
^DD(62.48,90,21,5,0)="receivers, this field can be used to determine the correct receiver by"
^DD(62.48,90,21,6,0)="using a special lookup on this field. The Universal Interface utilizes"
^DD(62.48,90,21,7,0)="this field in the following manner."
^DD(62.48,90,21,8,0)=" "
^DD(62.48,90,21,9,0)="The VISTA Health Level Seven (HL7) package requires that every message"
^DD(62.48,90,21,10,0)="must have four fields in the message header so that it can determine"
^DD(62.48,90,21,11,0)="the application route for the message. Those four fields are called"
^DD(62.48,90,21,12,0)="Sending Application, Sending Facility, Receiving Application, and"
^DD(62.48,90,21,13,0)="Receiving Facility. The HL7 software must find values for each of these"
^DD(62.48,90,21,14,0)="fields in the message within the HL7 package files. The fields must match"
^DD(62.48,90,21,15,0)="in the following way."
^DD(62.48,90,21,16,0)=" For HL7 v1.5 interfaces"
^DD(62.48,90,21,17,0)=" Sending Application = the NAME field (#.01) in  the HL7 NON-DHCP"
^DD(62.48,90,21,18,0)="  APPLICATION PARAMETER file (#770)"
^DD(62.48,90,21,19,0)=" Sending Facility = the NON-DHCP FACILITY NAME field (#3) in File 770"
^DD(62.48,90,21,20,0)=" Receiving Application = the NAME field (#.01) in the HL7 APPLICATION"
^DD(62.48,90,21,21,0)="  PARAMETER file (#771)"
^DD(62.48,90,21,22,0)=" Receiving Facility = the DHCP STATION NUMBER field (#2) in File 770"
^DD(62.48,90,21,23,0)=" "
^DD(62.48,90,21,24,0)=" For HL7 v1.6 interfaces"
^DD(62.48,90,21,25,0)=" Sending Application = the NAME field (#.01) in the HL7 APPLICATION "
^DD(62.48,90,21,26,0)="  PARAMETER file (#771)"
^DD(62.48,90,21,27,0)=" Sending Facility = the FACILITY NAME field (#3) in File 771"
^DD(62.48,90,21,28,0)=" Receiving Application = the NAME field (#.01) in the HL7 APPLICATION  "
^DD(62.48,90,21,29,0)="  PARAMETER file (#771)"
^DD(62.48,90,21,30,0)=" Receiving Facility = the FACILITY NAME field (#3) in File 771"
^DD(62.48,90,21,31,0)=" "
^DD(62.48,90,21,32,0)="For the Universal Interface, all four of those fields should be entered"
^DD(62.48,90,21,33,0)="into this multiple field, exactly as they are entered in the HL7 fields"
^DD(62.48,90,21,34,0)="listed above, including upper and lower case characters. No spaces should"
^DD(62.48,90,21,35,0)="be entered between the field values. An example of a Universal Interface"
^DD(62.48,90,21,36,0)="value for this field is listed below."
^DD(62.48,90,21,37,0)="LAB INTERFACEInstrument ManagerLA AUTO INST695 "
^DD(62.48,90,21,38,0)="Where LAB INTERFACE is the NAME in File 770, Instrument Manager is"
^DD(62.48,90,21,39,0)="the NON-DHCP FACILITY NAME in File 770, LA AUTO INST is the NAME in"
^DD(62.48,90,21,40,0)="File 771, and 695 is the DHCP STATION NUMBER in File 770."
^DD(62.48,90,21,41,0)=" "
^DD(62.48,90,21,42,0)="When an HL7 message comes in, these four fields are taken out of the"
^DD(62.48,90,21,43,0)="message, concatenated together, and a lookup is done on the ""C"" cross"
^DD(62.48,90,21,44,0)="reference to find this configuration and its associated parameters. The"
^DD(62.48,90,21,45,0)="processing routine can then continue to process the data. "
^DD(62.48,"B","ALERT CONDITION",20)=""
^DD(62.48,"B","CONFIGURATION",.01)=""
^DD(62.48,"B","GRACE PERIOD FOR MESSAGES",3)=""
^DD(62.48,"B","HL7 NON-DHCP APPLICATION",7)=""
^DD(62.48,"B","INTERFACE TYPE",11)=""
^DD(62.48,"B","LOG ERRORS",4)=""
^DD(62.48,"B","MULTIPLE ORDERS",10)=""
^DD(62.48,"B","PROCESS DOWNLOAD",6)=""
^DD(62.48,"B","PROCESS IN",5)=""
^DD(62.48,"B","PROTOCOL",1)=""
^DD(62.48,"B","REMOTE SYSTEM ID",90)=""
^DD(62.48,"B","STATUS",2)=""
^DD(62.48,"GL",0,1,.01)=""
^DD(62.48,"GL",0,2,1)=""
^DD(62.48,"GL",0,3,2)=""
^DD(62.48,"GL",0,4,4)=""
^DD(62.48,"GL",0,5,7)=""
^DD(62.48,"GL",0,6,3)=""
^DD(62.48,"GL",0,8,10)=""
^DD(62.48,"GL",0,9,11)=""
^DD(62.48,"GL",1,"E1,245",5)=""
^DD(62.48,"GL",2,"E1,245",6)=""
^DD(62.48,"GL",20,0,20)=""
^DD(62.48,"GL",90,0,90)=""
^DD(62.48,"IX",.01)=""
^DD(62.48,"RQ",.01)=""
^DD(62.48,"SB",62.481,20)=""
^DD(62.48,"SB",62.483,90)=""
^DD(62.481,0)="ALERT CONDITION SUB-FIELD^^.02^2"
^DD(62.481,0,"DT")="2970827"
^DD(62.481,0,"IX","B",62.481,.01)=""
^DD(62.481,0,"NM","ALERT CONDITION")=""
^DD(62.481,0,"UP")="62.48"
^DD(62.481,.01,0)="ALERT CONDITION^*S^1:NEW RESULTS;2:ERROR ON MESSAGE;3:ORDERS RECEIVED;^0;1^Q"
^DD(62.481,.01,1,0)="^.1"
^DD(62.481,.01,1,1,0)="62.481^B"
^DD(62.481,.01,1,1,1)="S ^LAHM(62.48,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(62.481,.01,1,1,2)="K ^LAHM(62.48,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(62.481,.01,3)="Enter ""1"" to receive alerts for new results, a ""2"" to receive alerts for errors during processing. and ""3"" when orders are received."
^DD(62.481,.01,12)="Error on message alert may only be selected if Field #4, LOG ERRORS,is set to ""ON""."
^DD(62.481,.01,12.1)="S DIC(""S"")=""I $S(Y=2&($P(^LAHM(62.48,DA(1),0),U,4)'=1):0,1:1)"""
^DD(62.481,.01,21,0)="^^2^2^2970827^^^^"
^DD(62.481,.01,21,1,0)="This field allows the user to identify whether to receive alerts when"
^DD(62.481,.01,21,2,0)="there are new results and when an error is logged to the ^XTMP global."
^DD(62.481,.01,"DT")="2970827"
^DD(62.481,.02,0)="MAIL GROUP^RP3.8'X^XMB(3.8,^0;2^K:$L(X)>30!($L(X)<1) X I $D(X) S DIC(0)=""EMQ"" S X=$P(Y,U,2),DIC=DIE K:Y<1 X"
^DD(62.481,.02,3)="Enter the Mail Group that will receive the alert condition messages."
^DD(62.481,.02,21,0)="^^2^2^2970702^^^"
^DD(62.481,.02,21,1,0)="This field contains a pointer to the MAIL GROUP file (#3.8).  The group is"
^DD(62.481,.02,21,2,0)="used to identify who will receive the alert condition messages."
^DD(62.481,.02,"DT")="2970219"
^DD(62.481,"B","ALERT CONDITION",.01)=""
^DD(62.481,"B","MAIL GROUP",.02)=""
^DD(62.481,"GL",0,1,.01)=""
^DD(62.481,"GL",0,2,.02)=""
^DD(62.481,"IX",.01)=""
^DD(62.481,"RQ",.02)=""
^DD(62.483,0)="REMOTE SYSTEM ID SUB-FIELD^^.01^1"
^DD(62.483,0,"DT")="2940425"
^DD(62.483,0,"IX","B",62.483,.01)=""
^DD(62.483,0,"NM","REMOTE SYSTEM ID")=""
^DD(62.483,0,"UP")="62.48"
^DD(62.483,.01,0)="REMOTE SYSTEM ID^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(62.483,.01,1,0)="^.1"
^DD(62.483,.01,1,1,0)="62.483^B"
^DD(62.483,.01,1,1,1)="S ^LAHM(62.48,DA(1),90,""B"",$E(X,1,30),DA)="""""
^DD(62.483,.01,1,1,2)="K ^LAHM(62.48,DA(1),90,""B"",$E(X,1,30),DA)"
^DD(62.483,.01,1,2,0)="62.48^C^MUMPS"
^DD(62.483,.01,1,2,1)="N Y X ^%ZOSF(""LPC"") S ^LAHM(62.48,""C"",$E(X,1,27)_Y,DA(1))="""""
^DD(62.483,.01,1,2,2)="N Y X ^%ZOSF(""LPC"") K ^LAHM(62.48,""C"",$E(X,1,27)_Y,DA(1))"
^DD(62.483,.01,1,2,"%D",0)="^^8^8^2970613^"
^DD(62.483,.01,1,2,"%D",1,0)="This cross reference is used to identify the incoming messages to a"
^DD(62.483,.01,1,2,"%D",2,0)="specific LA7 MESSAGE PARAMETER file (#62.48) entry.  The cross reference"
^DD(62.483,.01,1,2,"%D",3,0)="is checked against the third (Sending Application), fourth (Sending"
^DD(62.483,.01,1,2,"%D",4,0)="facility), fifth (Receiving Application), and sixth (Receiving facility)"
^DD(62.483,.01,1,2,"%D",5,0)="sequences in the HL7 message header (MSH).  The format of the cross"
^DD(62.483,.01,1,2,"%D",6,0)="reference is as follows"
^DD(62.483,.01,1,2,"%D",7,0)="  X ^%ZOSF(""LPC"")  S ^LAHM(62.48,""C"",$E(REMOTE SYSTEM"
^DD(62.483,.01,1,2,"%D",8,0)="ID,1,27)_Y,CONFIGURATION)="""""
^DD(62.483,.01,1,2,"DT")="2940429"
^DD(62.483,.01,3)="Answer must be 1-60 characters in length."
^DD(62.483,.01,21,0)="^^32^32^2970611^"
^DD(62.483,.01,21,1,0)="For the Universal Interface, the following four fields should be"
^DD(62.483,.01,21,2,0)="entered into this REMOTE SYSTEM ID field."
^DD(62.483,.01,21,3,0)=" Sending Application = the NAME field (#.01) in File 770"
^DD(62.483,.01,21,4,0)=" Sending Facility = the NON-DHCP FACILITY NAME field (#3) in File 770"
^DD(62.483,.01,21,5,0)=" Receiving Application = the NAME field (#.01) in the HL7 APPLICATION"
^DD(62.483,.01,21,6,0)="  PARAMETER file (#771)"
^DD(62.483,.01,21,7,0)=" Receiving Facility = the DHCP STATION NUMBER field (#2) in File 770"
^DD(62.483,.01,21,8,0)=" "
^DD(62.483,.01,21,9,0)="For interfaces that use the Vista Health Level Seven (HL7) v1.6 package,"
^DD(62.483,.01,21,10,0)="the following four fields should beentered into this REMOTE SYSTEM ID"
^DD(62.483,.01,21,11,0)="field."
^DD(62.483,.01,21,12,0)=" Sending Application = the NAME field (#.01) in the HL7 APPLICATION  "
^DD(62.483,.01,21,13,0)="  PARAMETER file (#771)"
^DD(62.483,.01,21,14,0)=" Sending Facility = the FACILITY NAME field (#3) in File 771"
^DD(62.483,.01,21,15,0)=" Receiving Application = the NAME field (#.01) in the HL7 APPLICATION  "
^DD(62.483,.01,21,16,0)="  PARAMETER file (#771)"
^DD(62.483,.01,21,17,0)=" Receiving Facility = the FACILITY NAME field (#3) in File 771"
^DD(62.483,.01,21,18,0)=" "
^DD(62.483,.01,21,19,0)=" "
^DD(62.483,.01,21,20,0)="The data from these fields should be entered exactly as it is found in"
^DD(62.483,.01,21,21,0)="the HL7 fields listed above, including upper and lower case characters."
^DD(62.483,.01,21,22,0)="No spaces should be entered between the field values."
^DD(62.483,.01,21,23,0)="An example of a Universal Interface value for this field is listed below."
^DD(62.483,.01,21,24,0)="LAB INTERFACEInstrument ManagerLA AUTO INST695 "
^DD(62.483,.01,21,25,0)="Where LAB INTERFACE is the NAME in File 770, Instrument Manager is"
^DD(62.483,.01,21,26,0)="the NON-DHCP FACILITY NAME in File 770, LA AUTO INST is the NAME in"
^DD(62.483,.01,21,27,0)="File 771, and 695 is the DHCP STATION NUMBER in File 770."
^DD(62.483,.01,21,28,0)=" "
^DD(62.483,.01,21,29,0)="When an HL7 message comes in, these four fields are taken out of the"
^DD(62.483,.01,21,30,0)="message, concatenated together, and a lookup is done on the ""C"" cross"
^DD(62.483,.01,21,31,0)="reference to find this configuration and its associated parameters. The"
^DD(62.483,.01,21,32,0)="processing routine can then continue to process the data. "
^DD(62.483,.01,"DT")="2940429"
^DD(62.483,"B","REMOTE SYSTEM ID",.01)=""
^DD(62.483,"GL",0,1,.01)=""
^DD(62.483,"IX",.01)=""
^DD(62.485,0)="FIELD^^2^4"
^DD(62.485,0,"DDA")="N"
^DD(62.485,0,"DT")="2970205"
^DD(62.485,0,"IX","B",62.485,.01)=""
^DD(62.485,0,"NM","LA7 MESSAGE LOG BULLETINS")=""
^DD(62.485,0,"VR")="5.2"
^DD(62.485,0,"VRPK")="LA"
^DD(62.485,.01,0)="CODE^RNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<$S($D(DIFROM):1,1:1000))!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(62.485,.01,1,0)="^.1"
^DD(62.485,.01,1,1,0)="62.485^B"
^DD(62.485,.01,1,1,1)="S ^LAHM(62.485,""B"",$E(X,1,30),DA)="""""
^DD(62.485,.01,1,1,2)="K ^LAHM(62.485,""B"",$E(X,1,30),DA)"
^DD(62.485,.01,3)="Type a Number between 1000 and 9999999, 0 Decimal Digits."
^DD(62.485,.01,21,0)="^^3^3^2970612^^"
^DD(62.485,.01,21,1,0)="This field contains a number between 1 and 9999999 that uniquely"
^DD(62.485,.01,21,2,0)="identifies an error or exceptional condition.  Numbers below 999 are"
^DD(62.485,.01,21,3,0)="reserved for package use only."
^DD(62.485,.01,"DT")="2950122"
^DD(62.485,1,0)="TEXT^RF^^0;2^K:$L(X)>160!($L(X)<1) X"
^DD(62.485,1,3)="Answer must be 1-160 characters in length."
^DD(62.485,1,21,0)="^^3^3^2970612^"
^DD(62.485,1,21,1,0)="This field holds the text description of the error or exceptional"
^DD(62.485,1,21,2,0)="condition.  This field is used to create an error or exceptional condition"
^DD(62.485,1,21,3,0)="display in the ^XTMP global."
^DD(62.485,1,23,0)="^^9^9^2970612^"
^DD(62.485,1,23,1,0)="This field is used to create error or exceptional condition displays in"
^DD(62.485,1,23,2,0)="the ^XTMP global.  The text description should contain useful information"
^DD(62.485,1,23,3,0)="about the message in the LA7 MESSAGE QUEUE file (#62.49).  The information"
^DD(62.485,1,23,4,0)="can be added to the text by using the ""|"" character and the LA7TXT()"
^DD(62.485,1,23,5,0)="array."
^DD(62.485,1,23,6,0)=" "
^DD(62.485,1,23,7,0)="Example Text: Message # |1| did not contain a PID segment."
^DD(62.485,1,23,8,0)="Array value: LA7TXT(1)=123"
^DD(62.485,1,23,9,0)="^XTMP: Message # 123 did not contain a PID segment."
^DD(62.485,1,"DT")="2940427"
^DD(62.485,1.3,0)="SEND ALERT^S^0:NO;1:YES;^0;3^Q"
^DD(62.485,1.3,3)="Determines if alert is sent when a message is processed with this error. Alerts must also be turned on and mail group designated in file #62.48."
^DD(62.485,1.3,21,0)="^^4^4^2970612^"
^DD(62.485,1.3,21,1,0)="This field is used to flag those errors which can generate an alert to a"
^DD(62.485,1.3,21,2,0)="site selectable mail group whenever this error occurs. The site needs to"
^DD(62.485,1.3,21,3,0)="designate a mail group in the LA7 MESSAGE PARAMETER file (#62.48) under"
^DD(62.485,1.3,21,4,0)="the ALERT CONDITION field (#20)."
^DD(62.485,1.3,"DT")="2970205"
^DD(62.485,2,0)="BUILD LOGIC^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(62.485,2,3)="This is Standard MUMPS code."
^DD(62.485,2,9)="@"
^DD(62.485,2,21,0)="^^8^8^2970612^"
^DD(62.485,2,21,1,0)="This is standard MUMPS code that is executed to log the text"
^DD(62.485,2,21,2,0)="description error into the ^XTMP global.  The MUMPS code should set the"
^DD(62.485,2,21,3,0)="LA7TXT() array to feel in the fields in the text description."
^DD(62.485,2,21,4,0)=" "
^DD(62.485,2,21,5,0)=" Example MUMPS code: S LA7TXT(1)=LA76249"
^DD(62.485,2,21,6,0)=" Variable value: LA76249=123"
^DD(62.485,2,21,7,0)=" Text description: Message # |1| did not contain a PID segment."
^DD(62.485,2,21,8,0)=" ^XTMP: Message # 123 did not contain a PID segment."
^DD(62.485,2,"DT")="2940427"
^DD(62.485,"B","BUILD LOGIC",2)=""
^DD(62.485,"B","CODE",.01)=""
^DD(62.485,"B","SEND ALERT",1.3)=""
^DD(62.485,"B","TEXT",1)=""
^DD(62.485,"GL",0,1,.01)=""
^DD(62.485,"GL",0,2,1)=""
^DD(62.485,"GL",0,3,1.3)=""
^DD(62.485,"GL",1,"E1,245",2)=""
^DD(62.485,"IX",.01)=""
^DD(62.485,"RQ",.01)=""
^DD(62.485,"RQ",1)=""
^DD(62.487,0)="FIELD^^1^2"
^DD(62.487,0,"DDA")="N"
^DD(62.487,0,"DT")="3000204"
^DD(62.487,0,"IX","B",62.487,.01)=""
^DD(62.487,0,"IX","C",62.4871,.01)=""
^DD(62.487,0,"NM","FOREIGN INTERFACE")=""
^DD(62.487,0,"VR")="5.2"
^DD(62.487,0,"VRPK")="LA"
^DD(62.487,.01,0)="FCS NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(62.487,.01,.1)="FOREIGN COMPUTER SYSTEM NAME"
^DD(62.487,.01,1,0)="^.1"
^DD(62.487,.01,1,1,0)="62.487^B"
^DD(62.487,.01,1,1,1)="S ^LAB(62.487,""B"",$E(X,1,30),DA)="""""
^DD(62.487,.01,1,1,2)="K ^LAB(62.487,""B"",$E(X,1,30),DA)"
^DD(62.487,.01,3)="Answer must be 3-30 characters in length."
^DD(62.487,.01,21,0)="^^1^1^3000113^"
^DD(62.487,.01,21,1,0)="NAME OF SYSTEM"
^DD(62.487,.01,"DT")="3000113"
^DD(62.487,1,0)="SUPPORTED WARD^62.4871P^^1;0"
^DD(62.487,"B","FCS NAME",.01)=""
^DD(62.487,"B","FOREIGN COMPUTER SYSTEM NAME",.01)="1"
^DD(62.487,"B","SUPPORTED WARD",1)=""
^DD(62.487,"GL",0,1,.01)=""
^DD(62.487,"GL",1,0,1)=""
^DD(62.487,"IX",.01)=""
^DD(62.487,"RQ",.01)=""
^DD(62.487,"SB",62.4871,1)=""
^DD(62.4871,0)="SUPPORTED WARD SUB-FIELD^^.01^1"
^DD(62.4871,0,"DT")="3000204"
^DD(62.4871,0,"IX","B",62.4871,.01)=""
^DD(62.4871,0,"NM","SUPPORTED WARD")=""
^DD(62.4871,0,"UP")="62.487"
^DD(62.4871,.01,0)="SUPPORTED WARD^MP44'^SC(^0;1^Q"
^DD(62.4871,.01,1,0)="^.1"
^DD(62.4871,.01,1,1,0)="62.4871^B"
^DD(62.4871,.01,1,1,1)="S ^LAB(62.487,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(62.4871,.01,1,1,2)="K ^LAB(62.487,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(62.4871,.01,1,2,0)="62.487^C"
^DD(62.4871,.01,1,2,1)="S ^LAB(62.487,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(62.4871,.01,1,2,2)="K ^LAB(62.487,""C"",$E(X,1,30),DA(1),DA)"
^DD(62.4871,.01,1,2,"DT")="3000204"
^DD(62.4871,.01,3)="ADD WARD SUPPORTED BY FCS"
^DD(62.4871,.01,21,0)="^^1^1^3000224^^^^"
^DD(62.4871,.01,21,1,0)="WARD SUPPORTED BY FOREIGN COMPUTER SYSTEM"
^DD(62.4871,.01,"DT")="3000204"
^DD(62.4871,"B","SUPPORTED WARD",.01)=""
^DD(62.4871,"GL",0,1,.01)=""
^DD(62.4871,"IX",.01)=""
^DD(62.49,0)="FIELD^^700^34"
^DD(62.49,0,"DDA")="N"
^DD(62.49,0,"DT")="2971014"
^DD(62.49,0,"IX","AD",62.49,4)=""
^DD(62.49,0,"IX","B",62.49,.01)=""
^DD(62.49,0,"IX","C",62.49,5)=""
^DD(62.49,0,"IX","ID",62.49,109)=""
^DD(62.49,0,"NM","LA7 MESSAGE QUEUE")=""
^DD(62.49,0,"PT",62.49,6)=""
^DD(62.49,0,"VR")="5.2"
^DD(62.49,0,"VRPK")="LA"
^DD(62.49,.01,0)="MESSAGE NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.49,.01,1,0)="^.1"
^DD(62.49,.01,1,1,0)="62.49^B"
^DD(62.49,.01,1,1,1)="S ^LAHM(62.49,""B"",$E(X,1,30),DA)="""""
^DD(62.49,.01,1,1,2)="K ^LAHM(62.49,""B"",$E(X,1,30),DA)"
^DD(62.49,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits."
^DD(62.49,.01,21,0)="^^2^2^2970612^"
^DD(62.49,.01,21,1,0)="This field contains a unique laboratory message number that is generated"
^DD(62.49,.01,21,2,0)="by the system."
^DD(62.49,.01,"DT")="2940418"
^DD(62.49,.5,0)="CONFIGURATION^P62.48'^LAHM(62.48,^.5;1^Q"
^DD(62.49,.5,1,0)="^.1^^0"
^DD(62.49,.5,3)="Enter in the appropriate LA7 MESSAGE PARAMETER file (#62.48) entry that pertains to this message. "
^DD(62.49,.5,21,0)="^^3^3^2970612^^^"
^DD(62.49,.5,21,1,0)="This field contains the pointer to the LA7 MESSAGE PARAMETER file"
^DD(62.49,.5,21,2,0)="(#62.48) which contains vital information concerning the processing,"
^DD(62.49,.5,21,3,0)="purging, and sending of alert messages."
^DD(62.49,.5,"DT")="3020319"
^DD(62.49,1,0)="TYPE^RS^I:INCOMING;O:OUTGOING;^0;2^Q"
^DD(62.49,1,1,0)="^.1^^0"
^DD(62.49,1,3)="Enter the direction, ""I"" for incoming or ""O"" for outgoing, of the message."
^DD(62.49,1,21,0)="^^1^1^2970612^"
^DD(62.49,1,21,1,0)="This field identifies the direction of the message."
^DD(62.49,1,"DT")="3020319"
^DD(62.49,2,0)="STATUS^S^B:BUILDING;Q:QUEUED FOR ACTION;E:ERROR;X:PURGEABLE;P:PROCESS;A:AWAITING ACK;^0;3^Q"
^DD(62.49,2,1,0)="^.1^^0"
^DD(62.49,2,21,0)="^^2^2^2970613^^"
^DD(62.49,2,21,1,0)="This field contains the current status of the message.  The status is used"
^DD(62.49,2,21,2,0)="for queuing, processing, and purging of messages."
^DD(62.49,2,"DT")="3020319"
^DD(62.49,3,0)="PRIORITY^NJ1,0^^0;4^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.49,3,3)="Type a Number between 1 and 5, 0 Decimal Digits."
^DD(62.49,3,21,0)="^^2^2^2970613^"
^DD(62.49,3,21,1,0)="This field contains the priority put on each queued message.  The"
^DD(62.49,3,21,2,0)="priorities range from one to five, five being the lowest priority."
^DD(62.49,3,"DT")="2940418"
^DD(62.49,4,0)="DATE/TIME ENTERED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(62.49,4,1,0)="^.1"
^DD(62.49,4,1,1,0)="62.49^AD^MUMPS"
^DD(62.49,4,1,1,1)="S ^LAHM(62.49,""AD"",$P(X,"".""),DA)="""""
^DD(62.49,4,1,1,2)="K ^LAHM(62.49,""AD"",$P(X,"".""),DA)"
^DD(62.49,4,1,1,3)="DO NOT DELETE"
^DD(62.49,4,1,1,"%D",0)="^^3^3^2970613^"
^DD(62.49,4,1,1,"%D",1,0)="This cross reference gives a breakdown of message by date.  The cross"
^DD(62.49,4,1,1,"%D",2,0)="reference is in the following format"
^DD(62.49,4,1,1,"%D",3,0)="  S ^LAHM(62.49,""AD"",$P(DATE/TIME ENTERED,"".""),MESSAGE NUMBER)="""""
^DD(62.49,4,1,1,"DT")="2950119"
^DD(62.49,4,3)="Enter the current date and time."
^DD(62.49,4,21,0)="^^1^1^2970613^"
^DD(62.49,4,21,1,0)="This field contains the exact time that this entry was created."
^DD(62.49,4,"DT")="2950119"
^DD(62.49,5,0)="INSTRUMENT NAME^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X"
^DD(62.49,5,1,0)="^.1"
^DD(62.49,5,1,1,0)="62.49^C"
^DD(62.49,5,1,1,1)="S ^LAHM(62.49,""C"",$E(X,1,30),DA)="""""
^DD(62.49,5,1,1,2)="K ^LAHM(62.49,""C"",$E(X,1,30),DA)"
^DD(62.49,5,1,1,3)="DO NOT DELETE"
^DD(62.49,5,1,1,"%D",0)="^^2^2^2970827^^"
^DD(62.49,5,1,1,"%D",1,0)="This cross reference allows lookup on messages by the instrument name as"
^DD(62.49,5,1,1,"%D",2,0)="it appears in the AUTO INSTRUMENT file (#62.4)."
^DD(62.49,5,1,1,"DT")="2950120"
^DD(62.49,5,3)="Answer must be 1-45 characters in length."
^DD(62.49,5,21,0)="^^2^2^2970613^"
^DD(62.49,5,21,1,0)="This field contains the instrument name from the AUTO INSTRUMENT file"
^DD(62.49,5,21,2,0)="(#62.4).  This field is used for looking up messages by instument name."
^DD(62.49,5,"DT")="2950120"
^DD(62.49,6,0)="MESSAGE TEXT^P62.49'^LAHM(62.49,^0;7^Q"
^DD(62.49,6,3)="This field contains the pointer to the entry that contains the HL7 message."
^DD(62.49,6,21,0)="^^2^2^2970306^"
^DD(62.49,6,21,1,0)="This field holds a pointer to the entry in this file that contains the HL7"
^DD(62.49,6,21,2,0)="message text."
^DD(62.49,6,"DT")="2970306"
^DD(62.49,100,0)="MSH^F^^100;1^K:$L(X)>3!($L(X)<3) X"
^DD(62.49,100,3)="Answer must be 3 characters in length."
^DD(62.49,100,21,0)="^^2^2^2970613^"
^DD(62.49,100,21,1,0)="This field contains the letters, ""MSH"".  Fields 100 through 111 are all"
^DD(62.49,100,21,2,0)="used to identify the HL7 message header segment (MSH)."
^DD(62.49,100,"DT")="2940418"
^DD(62.49,101,0)="ENCODING CHARACTERS^F^^100;2^K:$L(X)>4!($L(X)<4) X"
^DD(62.49,101,3)="Answer must be 4 characters in length."
^DD(62.49,101,21,0)="^^2^2^2970613^"
^DD(62.49,101,21,1,0)="This field identifies this messages HL7 encoding characters.  Fields 100"
^DD(62.49,101,21,2,0)="through 111 are all used to identify the HL7 message header segment (MSH)."
^DD(62.49,101,"DT")="2940418"
^DD(62.49,102,0)="SENDING APPLICATION^F^^100;3^K:$L(X)>15!($L(X)<1) X"
^DD(62.49,102,3)="Answer must be 1-15 characters in length."
^DD(62.49,102,21,0)="^^2^2^2970613^"
^DD(62.49,102,21,1,0)="This field contians the HL7 15 character sending application. Fields 100"
^DD(62.49,102,21,2,0)="through 111 are all used to identify the HL7 message header segment (MSH)."
^DD(62.49,102,"DT")="2940418"
^DD(62.49,103,0)="SENDING FACILITY^F^^100;4^K:$L(X)>20!($L(X)<1) X"
^DD(62.49,103,3)="Answer must be 1-20 characters in length."
^DD(62.49,103,21,0)="^^2^2^2970613^"
^DD(62.49,103,21,1,0)="This field contains this messages HL7 sending facility.  Fields 100"
^DD(62.49,103,21,2,0)="through 111 are all used to identify the HL7 message header segment (MSH)."
^DD(62.49,103,"DT")="2940418"
^DD(62.49,104,0)="RECEIVING APPLICATION^F^^100;5^K:$L(X)>15!($L(X)<1) X"
^DD(62.49,104,3)="Answer must be 1-15 characters in length."
^DD(62.49,104,21,0)="^^2^2^2970613^"
^DD(62.49,104,21,1,0)="This field contains the HL7 receiving application.  Fields 100 through 111"
^DD(62.49,104,21,2,0)="are all used to identify the HL7 message header segment (MSH)."
^DD(62.49,104,"DT")="2940418"
^DD(62.49,105,0)="RECEIVING FACILITY^F^^100;6^K:$L(X)>20!($L(X)<1) X"
^DD(62.49,105,3)="Answer must be 1-20 characters in length."
^DD(62.49,105,21,0)="^^3^3^2970613^"
^DD(62.49,105,21,1,0)="This field contains the HL7 receiving facility for this message.  Fields"
^DD(62.49,105,21,2,0)="100 through 111 are all used to identify the HL7 message header segment"
^DD(62.49,105,21,3,0)="(MSH)."
^DD(62.49,105,"DT")="2940418"
^DD(62.49,106,0)="DATE/TIME OF MESSAGE^FO^^100;7^K:$L(X)>19!($L(X)<1) X"
^DD(62.49,106,2)="S Y(0)=Y S Y=$$FMDATE^HLFNC(Y) D D^DIQ"
^DD(62.49,106,2.1)="S Y=$$FMDATE^HLFNC(Y) D D^DIQ"
^DD(62.49,106,3)="Answer must be 1-19 characters in length."
^DD(62.49,106,21,0)="^^2^2^2970613^"
^DD(62.49,106,21,1,0)="This field contains the date and time of the HL7 messages.  Fields 100"
^DD(62.49,106,21,2,0)="through 111 are all used to identify the HL7 message header segment (MSH)."
^DD(62.49,106,"DT")="2940419"
^DD(62.49,107,0)="SECURITY^F^^100;8^K:$L(X)>40!($L(X)<1) X"
^DD(62.49,107,3)="Answer must be 1-40 characters in length."
^DD(62.49,107,21,0)="^^3^3^2970613^"
^DD(62.49,107,21,1,0)="This field contains the security information in the HL7 message.  Fields"
^DD(62.49,107,21,2,0)="100 through 111 are all used to identify the HL7 message header segment"
^DD(62.49,107,21,3,0)="(MSH)."
^DD(62.49,107,"DT")="2970126"
^DD(62.49,108,0)="MESSAGE TYPE^F^^100;9^K:$L(X)>7!($L(X)<1) X"
^DD(62.49,108,3)="Answer must be 1-7 characters in length."
^DD(62.49,108,21,0)="^^3^3^2970613^"
^DD(62.49,108,21,1,0)="This field contains the message type (ORU, ORM, ORR, ...) of the HL7"
^DD(62.49,108,21,2,0)="message.  Fields 100 through 111 are all used to identify the HL7 message"
^DD(62.49,108,21,3,0)="header segment (MSH)."
^DD(62.49,108,"DT")="3020319"
^DD(62.49,109,0)="MESSAGE CONTROL ID^F^^100;10^K:$L(X)>20!($L(X)<1) X"
^DD(62.49,109,1,0)="^.1"
^DD(62.49,109,1,1,0)="62.49^ID"
^DD(62.49,109,1,1,1)="S ^LAHM(62.49,""ID"",$E(X,1,30),DA)="""""
^DD(62.49,109,1,1,2)="K ^LAHM(62.49,""ID"",$E(X,1,30),DA)"
^DD(62.49,109,1,1,"%D",0)="^^3^3^2970613^"
^DD(62.49,109,1,1,"%D",1,0)="This cross reference is used by the ORU acknowledgment processing routine,"
^DD(62.49,109,1,1,"%D",2,0)="ACK^LA7VMSG, to update the status in the LAB PENDING ORDERS ENTRY file"
^DD(62.49,109,1,1,"%D",3,0)="(#69.6)."
^DD(62.49,109,1,1,"DT")="2970122"
^DD(62.49,109,3)="Answer must be 1-20 characters in length."
^DD(62.49,109,21,0)="^^3^3^2970613^"
^DD(62.49,109,21,1,0)="This field contains the HL7 unique message control id.  This is used by"
^DD(62.49,109,21,2,0)="the HL7 package to uniquely identify every message.  Fields 100 through"
^DD(62.49,109,21,3,0)="111 are all used to identify the HL7 message header segment (MSH)."
^DD(62.49,109,"DT")="2970122"
^DD(62.49,110,0)="PROCESSING ID^S^D:DEBUGGING;P:PRODUCTION;T:TRAINING;^100;11^Q"
^DD(62.49,110,3)="Enter in the HL7 processing id."
^DD(62.49,110,21,0)="^^4^4^2970613^"
^DD(62.49,110,21,1,0)="This field contains the HL7 processing id.  This field is used by HL7 to"
^DD(62.49,110,21,2,0)="differentiate between messages for debugging, production, and training."
^DD(62.49,110,21,3,0)="Fields 100 through 111 are all used to identify the HL7 message header"
^DD(62.49,110,21,4,0)="segment (MSH)."
^DD(62.49,110,"DT")="2940418"
^DD(62.49,111,0)="VERSION ID^F^^100;12^K:$L(X)>8!($L(X)<1) X"
^DD(62.49,111,3)="Answer must be 1-8 characters in length."
^DD(62.49,111,21,0)="^^2^2^2970613^"
^DD(62.49,111,21,1,0)="This field contains the HL7 version id for this HL7 message.  Fields 100"
^DD(62.49,111,21,2,0)="through 111 are all used to identify the HL7 message header segment (MSH)."
^DD(62.49,111,"DT")="2940418"
^DD(62.49,150,0)="HL7 TEXT^62.495^^150;0"
^DD(62.49,150,21,0)="^^1^1^2970613^"
^DD(62.49,150,21,1,0)="This field contains the actual text HL7 message. "
^DD(62.49,151,0)="HUID^F^^63;1^K:$L(X)>30!($L(X)<1) X"
^DD(62.49,151,3)="The field holds the Host site's universal identifier."
^DD(62.49,151,21,0)="^^2^2^2970602^^"
^DD(62.49,151,21,1,0)="This field represents the Host site's universal identifier or unique"
^DD(62.49,151,21,2,0)="accession number."
^DD(62.49,151,"DT")="2970121"
^DD(62.49,152,0)="REMOTE SYSTEM^F^^63;2^K:$L(X)>7!($L(X)<2) X"
^DD(62.49,152,3)="This field contains the primary hospital's station number."
^DD(62.49,152,21,0)="^^1^1^2970602^"
^DD(62.49,152,21,1,0)="This field contains the primary hospital's station number."
^DD(62.49,152,"DT")="2970317"
^DD(62.49,153,0)="RUID^F^^63;3^K:$L(X)>30!($L(X)<1) X"
^DD(62.49,153,3)="This field holds the remote site's universal identifier."
^DD(62.49,153,21,0)="^^2^2^2970602^"
^DD(62.49,153,21,1,0)="This field contains the remote site's universal identifier or unique"
^DD(62.49,153,21,2,0)="accession number."
^DD(62.49,153,"DT")="2970121"
^DD(62.49,154,0)="ORDERED TEST^F^^63;4^K:$L(X)>60!($L(X)<1) X"
^DD(62.49,154,3)="Answer must be 1-60 characters in length."
^DD(62.49,154,21,0)="^^2^2^2971014^^^^"
^DD(62.49,154,21,1,0)="This field contains the free text value of the ordered test.  This field is "
^DD(62.49,154,21,2,0)="used to link the results back to the ordered test."
^DD(62.49,154,"DT")="2971014"
^DD(62.49,155,0)="NLT^F^^63;5^K:$L(X)>10!($L(X)<1) X"
^DD(62.49,155,3)="This field holds the NLT code for the ordered test."
^DD(62.49,155,21,0)="^^2^2^2970602^"
^DD(62.49,155,21,1,0)="This field contains the NLT code from the WKLD CODE file (#64) for the"
^DD(62.49,155,21,2,0)="ordered test."
^DD(62.49,155,"DT")="2970121"
^DD(62.49,156,0)="INVERSE DATE^F^^63;6^K:$L(X)>20!($L(X)<1) X"
^DD(62.49,156,3)="This field holds the inverse date of the ordered test."
^DD(62.49,156,21,0)="^^1^1^2970121^"
^DD(62.49,156,21,1,0)="This field contains the inverse date of the ordered test."
^DD(62.49,156,"DT")="2970121"
^DD(62.49,157,0)="SUBSCRIPT^F^^63;7^K:$L(X)>4!($L(X)<2) X"
^DD(62.49,157,3)="This field holds the LAB DATA file (#63) subscript node of the results for the ordered test."
^DD(62.49,157,21,0)="^^1^1^2970602^"
^DD(62.49,157,21,1,0)="This field contains the subscript location of the results.  (Ex. ""CH"")"
^DD(62.49,157,"DT")="2970121"
^DD(62.49,158,0)="LRDFN^F^^63;8^K:$L(X)>20!($L(X)<1) X"
^DD(62.49,158,3)="This field holds the patients LRDFN."
^DD(62.49,158,21,0)="^^2^2^2970122^"
^DD(62.49,158,21,1,0)="This field contains the LRDFN of the patients for which the tests were"
^DD(62.49,158,21,2,0)="ordered."
^DD(62.49,158,"DT")="2970122"
^DD(62.49,159,0)="ORDERED DATE^D^^63;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(62.49,159,3)="This field holds the date the test was ordered."
^DD(62.49,159,21,0)="^^1^1^2970122^"
^DD(62.49,159,21,1,0)="This field contains the date the test was ordered."
^DD(62.49,159,"DT")="2970122"
^DD(62.49,160,0)="ERROR CODE^F^^ERR;1^K:$L(X)>10!($L(X)<1) X"
^DD(62.49,160,3)="This field holds the error codes returned by the HL7 package."
^DD(62.49,160,21,0)="^^2^2^2970612^^"
^DD(62.49,160,21,1,0)="This field contains any error codes returned by the VISTA Health Level"
^DD(62.49,160,21,2,0)="Seven (HL7) package while processing HL7 messages."
^DD(62.49,160,"DT")="2970122"
^DD(62.49,161,0)="ERROR MESSAGE^F^^ERR;2^K:$L(X)>60!($L(X)<1) X"
^DD(62.49,161,3)="This field holds text error messages that might occur while processing HL7 messages."
^DD(62.49,161,21,0)="^^2^2^2970612^^^"
^DD(62.49,161,21,1,0)="This field holds text error messages that might occur while processing"
^DD(62.49,161,21,2,0)="HL7 messages."
^DD(62.49,161,"DT")="2970122"
^DD(62.49,162,0)="CH SUBSCRIPT^62.49162A^^1;0"
^DD(62.49,162,21,0)="^^2^2^2970612^^"
^DD(62.49,162,21,1,0)="This multiple contains the ""CH"" subscript nodes where the results are"
^DD(62.49,162,21,2,0)="stored in the LAB DATA file (#63)."
^DD(62.49,700,0)="HL7 ENV^F^^700;1^K:$L(X)>245!($L(X)<1) X"
^DD(62.49,700,3)="Answer must be 1-245 characters in length"
^DD(62.49,700,21,0)="^^1^1^3030418^"
^DD(62.49,700,21,1,0)="Stores HL7 environment relating to incoming HL7 message for later use in generating an HL7 application acknowledgement."
^DD(62.49,700,"DT")="3030418"
^DD(62.49,"B","CH SUBSCRIPT",162)=""
^DD(62.49,"B","CONFIGURATION",.5)=""
^DD(62.49,"B","DATE/TIME ENTERED",4)=""
^DD(62.49,"B","DATE/TIME OF MESSAGE",106)=""
^DD(62.49,"B","ENCODING CHARACTERS",101)=""
^DD(62.49,"B","ERROR CODE",160)=""
^DD(62.49,"B","ERROR MESSAGE",161)=""
^DD(62.49,"B","HL7 ENV",700)=""
^DD(62.49,"B","HL7 TEXT",150)=""
^DD(62.49,"B","HUID",151)=""
^DD(62.49,"B","INSTRUMENT NAME",5)=""
^DD(62.49,"B","INVERSE DATE",156)=""
^DD(62.49,"B","LRDFN",158)=""
^DD(62.49,"B","MESSAGE CONTROL ID",109)=""
^DD(62.49,"B","MESSAGE NUMBER",.01)=""
^DD(62.49,"B","MESSAGE TEXT",6)=""
^DD(62.49,"B","MESSAGE TYPE",108)=""
^DD(62.49,"B","MSH",100)=""
^DD(62.49,"B","NLT",155)=""
^DD(62.49,"B","ORDERED DATE",159)=""
^DD(62.49,"B","ORDERED TEST",154)=""
^DD(62.49,"B","PRIORITY",3)=""
^DD(62.49,"B","PROCESSING ID",110)=""
^DD(62.49,"B","RECEIVING APPLICATION",104)=""
^DD(62.49,"B","RECEIVING FACILITY",105)=""
^DD(62.49,"B","REMOTE SYSTEM",152)=""
^DD(62.49,"B","RUID",153)=""
^DD(62.49,"B","SECURITY",107)=""
^DD(62.49,"B","SENDING APPLICATION",102)=""
^DD(62.49,"B","SENDING FACILITY",103)=""
^DD(62.49,"B","STATUS",2)=""
^DD(62.49,"B","SUBSCRIPT",157)=""
^DD(62.49,"B","TYPE",1)=""
^DD(62.49,"B","VERSION ID",111)=""
^DD(62.49,"GL",0,1,.01)=""
^DD(62.49,"GL",0,2,1)=""
^DD(62.49,"GL",0,3,2)=""
^DD(62.49,"GL",0,4,3)=""
^DD(62.49,"GL",0,5,4)=""
^DD(62.49,"GL",0,6,5)=""
^DD(62.49,"GL",0,7,6)=""
^DD(62.49,"GL",.5,1,.5)=""
^DD(62.49,"GL",1,0,162)=""
^DD(62.49,"GL",63,1,151)=""
^DD(62.49,"GL",63,2,152)=""
^DD(62.49,"GL",63,3,153)=""
^DD(62.49,"GL",63,4,154)=""
^DD(62.49,"GL",63,5,155)=""
^DD(62.49,"GL",63,6,156)=""
^DD(62.49,"GL",63,7,157)=""
^DD(62.49,"GL",63,8,158)=""
^DD(62.49,"GL",63,9,159)=""
^DD(62.49,"GL",100,1,100)=""
^DD(62.49,"GL",100,2,101)=""
^DD(62.49,"GL",100,3,102)=""
^DD(62.49,"GL",100,4,103)=""
^DD(62.49,"GL",100,5,104)=""
^DD(62.49,"GL",100,6,105)=""
^DD(62.49,"GL",100,7,106)=""
^DD(62.49,"GL",100,8,107)=""
^DD(62.49,"GL",100,9,108)=""
^DD(62.49,"GL",100,10,109)=""
^DD(62.49,"GL",100,11,110)=""
^DD(62.49,"GL",100,12,111)=""
^DD(62.49,"GL",150,0,150)=""
^DD(62.49,"GL",700,1,700)=""
^DD(62.49,"GL","ERR",1,160)=""
^DD(62.49,"GL","ERR",2,161)=""
^DD(62.49,"IX",.01)=""
^DD(62.49,"IX",4)=""
^DD(62.49,"IX",5)=""
^DD(62.49,"IX",109)=""
^DD(62.49,"RQ",.01)=""
^DD(62.49,"RQ",1)=""
^DD(62.49,"SB",62.49162,162)=""
^DD(62.49,"SB",62.495,150)=""
^DD(62.49162,0)="CH SUBSCRIPT SUB-FIELD^^.02^2"
^DD(62.49162,0,"DT")="2970410"
^DD(62.49162,0,"IX","B",62.49162,.01)=""
^DD(62.49162,0,"NM","CH SUBSCRIPT")=""
^DD(62.49162,0,"UP")="62.49"
^DD(62.49162,.01,0)="CH SUBSCRIPT^F^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(62.49162,.01,1,0)="^.1"
^DD(62.49162,.01,1,1,0)="62.49162^B"
^DD(62.49162,.01,1,1,1)="S ^LAHM(62.49,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(62.49162,.01,1,1,2)="K ^LAHM(62.49,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(62.49162,.01,3)="Answer must be 1-10 characters in length."
^DD(62.49162,.01,21,0)="^^3^3^3030107^^^"
^DD(62.49162,.01,21,1,0)="This multiple contains the ""CH"" subscript node where the results are"
^DD(62.49162,.01,21,2,0)="stored in the LAB DATA file (#63).  The field is used in the processing"
^DD(62.49162,.01,21,3,0)="and transmission of HL7 result messages."
^DD(62.49162,.01,"DT")="3030107"
^DD(62.49162,.02,0)="CORRECTED RESULTS^S^C:CORRECTED;^0;2^Q"
^DD(62.49162,.02,3)="Indicate if these results are a correction to a previous report."
^DD(62.49162,.02,21,0)="^^3^3^3030107^^"
^DD(62.49162,.02,21,1,0)="Indicates if the results being transmitted are a correction"
^DD(62.49162,.02,21,2,0)="to a previous report. The HL7 message will indicate this"
^DD(62.49162,.02,21,3,0)="status when transmitting these results."
^DD(62.49162,.02,"DT")="3030107"
^DD(62.49162,"B","CH SUBSCRIPT",.01)=""
^DD(62.49162,"B","CORRECTED RESULTS",.02)=""
^DD(62.49162,"GL",0,1,.01)=""
^DD(62.49162,"GL",0,2,.02)=""
^DD(62.49162,"IX",.01)=""
^DD(62.495,0)="HL7 TEXT SUB-FIELD^^.01^1"
^DD(62.495,0,"DT")="2940418"
^DD(62.495,0,"NM","HL7 TEXT")=""
^DD(62.495,0,"UP")="62.49"
^DD(62.495,.01,0)="HL7 TEXT^WL^^0;1^Q"
^DD(62.495,.01,21,0)="^^1^1^2970613^"
^DD(62.495,.01,21,1,0)="This field contains the actual text HL7 message. "
^DD(62.495,.01,"DT")="2940418"
^DD(62.495,"B","HL7 TEXT",.01)=""
^DD(62.495,"GL",0,1,.01)=""
^DD(62.5,0)="FIELD^NL^10^7"
^DD(62.5,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(62.5,0,"ID",5)="W """""
^DD(62.5,0,"IX","AC",62.5,.01)=""
^DD(62.5,0,"IX","AD",62.5,5)=""
^DD(62.5,0,"IX","B",62.5,.01)=""
^DD(62.5,0,"IX","B",62.5,.5)=""
^DD(62.5,0,"NM","LAB DESCRIPTIONS")=""
^DD(62.5,0,"PT",63.029,.01)=""
^DD(62.5,0,"PT",63.089,.01)=""
^DD(62.5,0,"PT",63.099,.01)=""
^DD(62.5,0,"PT",63.999,.01)=""
^DD(62.5,0,"VR")="5.2"
^DD(62.5,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<1)!'(X?.ANP)!(X=""*"") X"
^DD(62.5,.01,1,0)="^.1"
^DD(62.5,.01,1,1,0)="62.5^B"
^DD(62.5,.01,1,1,1)="S ^LAB(62.5,""B"",$E(X,1,30),DA)="""""
^DD(62.5,.01,1,1,2)="K ^LAB(62.5,""B"",$E(X,1,30),DA)"
^DD(62.5,.01,1,2,0)="62.5^AC^MUMPS"
^DD(62.5,.01,1,2,1)="S %=$P(^LAB(62.5,DA,0),U,4) S:%]"""" ^LAB(62.5,""A""_%,X,DA)="""""
^DD(62.5,.01,1,2,2)="S %=$P(^LAB(62.5,DA,0),U,4) K:%]"""" ^LAB(62.5,""A""_%,X,DA)"
^DD(62.5,.01,3)="NAME MUST BE 1-30 CHARACTERS"
^DD(62.5,.01,21,0)="^^1^1^2841114^"
^DD(62.5,.01,21,1,0)="This is the shorthand notation of a lab description."
^DD(62.5,.01,"DT")="2880408"
^DD(62.5,.5,0)="SYNONYM^FX^^0;3^K:$L(X)>9!($L(X)<1)!(X["" "")!'(X?.ANP)!(X=""*"") X Q:$D(DIU(0))  I $D(X),$O(^LAB(62.5,""B"",X,0))>0 K X"
^DD(62.5,.5,1,0)="^.1"
^DD(62.5,.5,1,1,0)="62.5^B^MNEMONIC"
^DD(62.5,.5,1,1,1)="S ^LAB(62.5,""B"",$E(X,1,30),DA)=1"
^DD(62.5,.5,1,1,2)="K ^LAB(62.5,""B"",$E(X,1,30),DA)"
^DD(62.5,.5,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(62.5,.5,21,0)="^^1^1^2841114^"
^DD(62.5,.5,21,1,0)="This field contains a synonym of the name, maximum of 9 characters."
^DD(62.5,.5,"DT")="2860613"
^DD(62.5,1,0)="EXPANSION^RFX^^0;2^K:$L(X)>68!($L(X)<2)!(X["";"") X"
^DD(62.5,1,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(62.5,1,21,0)="^^2^2^2870912^^"
^DD(62.5,1,21,1,0)="This is the full description of the name (lab description)."
^DD(62.5,1,21,2,0)=" It is NOT used for the anatomic pathology descriptions."
^DD(62.5,1,"DT")="2910823"
^DD(62.5,5,0)="SCREEN^S^L:LAB;E:AP EM;S:AP SURG;C:AP CYTO;M:MICRO;G:GRAM STAIN;F:FUNGUS;T:TB;P:PARASITE;V:VIRUS;Y:SPUTUM SCREEN;W:SMEAR;A:ORDER;D:BB DISP;R:BB TRANS;X:BB TESTING;Z:BB COLLECT;I:AP GENERAL;J:BB AUDIT;K:GENERAL;B:BB RELEASE;^0;4^Q"
^DD(62.5,5,1,0)="^.1"
^DD(62.5,5,1,1,0)="62.5^AD^MUMPS"
^DD(62.5,5,1,1,1)="S %=$P(^LAB(62.5,DA,0),U,1) S:%]"""" ^LAB(62.5,""A""_X,%,DA)="""""
^DD(62.5,5,1,1,2)="S %=$P(^LAB(62.5,DA,0),U,1) K:%]"""" ^LAB(62.5,""A""_X,%,DA)"
^DD(62.5,5,21,0)="^^1^1^2891108^^^^"
^DD(62.5,5,21,1,0)="This describes the type of screen this lab description is associated with, i.e., gram stain, hematology, microbiology, accession comments, or smear/prep."
^DD(62.5,5,"DT")="2890109"
^DD(62.5,6,0)="SORTING GROUP^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(62.5,6,1,0)="^.1^^0"
^DD(62.5,6,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(62.5,6,21,0)="^^4^4^2850228^"
^DD(62.5,6,21,1,0)="This field is available for the user to sort the Lab Descriptions"
^DD(62.5,6,21,2,0)="into categories of the users own choosing.  For example, one screened"
^DD(62.5,6,21,3,0)="set of descriptions could be divided into a number of different areas"
^DD(62.5,6,21,4,0)="for printing on different pages."
^DD(62.5,6,"DT")="2881028"
^DD(62.5,9,0)="PLURAL^F^^9;1^K:$L(X)>30!($L(X)<1) X"
^DD(62.5,9,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(62.5,9,21,0)="^^1^1^2841114^"
^DD(62.5,9,21,1,0)="This is the correct plural form of the name."
^DD(62.5,9,"DT")="2831018"
^DD(62.5,10,0)="SPECIMEN DESCRIPTION^62.51^^WP;0"
^DD(62.5,10,21,0)="^^3^3^2870912^^"
^DD(62.5,10,21,1,0)="This is a description of the specimen that may be as long as you like.  The FileMan word-processing editor may be used to modify the text."
^DD(62.5,10,21,2,0)=" This is the description that is used for the anatomic pathology options"
^DD(62.5,10,21,3,0)=" and NOT the EXPANSION field."
^DD(62.5,"B","EXPANSION",1)=""
^DD(62.5,"B","NAME",.01)=""
^DD(62.5,"B","PLURAL",9)=""
^DD(62.5,"B","SCREEN",5)=""
^DD(62.5,"B","SORTING GROUP",6)=""
^DD(62.5,"B","SPECIMEN DESCRIPTION",10)=""
^DD(62.5,"B","SYNONYM",.5)=""
^DD(62.5,"GL",0,1,.01)=""
^DD(62.5,"GL",0,2,1)=""
^DD(62.5,"GL",0,3,.5)=""
^DD(62.5,"GL",0,4,5)=""
^DD(62.5,"GL",0,5,6)=""
^DD(62.5,"GL",9,1,9)=""
^DD(62.5,"GL","WP",0,10)=""
^DD(62.5,"IX",.01)=""
^DD(62.5,"IX",.5)=""
^DD(62.5,"IX",5)=""
^DD(62.5,"RQ",.01)=""
^DD(62.5,"RQ",1)=""
^DD(62.5,"SB",62.51,10)=""
^DD(62.51,0)="SPECIMEN DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(62.51,0,"NM","SPECIMEN DESCRIPTION")=""
^DD(62.51,0,"UP")="62.5"
^DD(62.51,.01,0)="SPECIMEN DESCRIPTION^W^^0;1^Q"
^DD(62.51,.01,21,0)="^^3^3^2870912^^^"
^DD(62.51,.01,21,1,0)="This is a description of the specimen that may be as long as you like.  The FileMan word-processing editor may be used to modify the text."
^DD(62.51,.01,21,2,0)=" This is the description that is used for the anatomic pathology options"
^DD(62.51,.01,21,3,0)=" and NOT the EXPANSION field."
^DD(62.51,.01,"DT")="2840322"
^DD(62.51,"B","SPECIMEN DESCRIPTION",.01)=""
^DD(62.51,"GL",0,1,.01)=""
^DD(62.55,0)="FIELD^^1^2"
^DD(62.55,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(62.55,0,"IX","B",62.55,.01)=""
^DD(62.55,0,"IX","C",62.55,1)=""
^DD(62.55,0,"NM","AGGLUTINATION STRENGTH")=""
^DD(62.55,0,"VR")="5.2"
^DD(62.55,.01,0)="NAME^RF^^0;1^K:$L(X)>3!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.55,.01,1,0)="^.1"
^DD(62.55,.01,1,1,0)="62.55^B"
^DD(62.55,.01,1,1,1)="S ^LAB(62.55,""B"",$E(X,1,30),DA)="""""
^DD(62.55,.01,1,1,2)="K ^LAB(62.55,""B"",$E(X,1,30),DA)"
^DD(62.55,.01,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(62.55,.01,21,0)="^^1^1^2841114^"
^DD(62.55,.01,21,1,0)="The shorthand notation of agglutination strength."
^DD(62.55,.01,"DT")="2861006"
^DD(62.55,1,0)="WILL STAND FOR^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(62.55,1,1,0)="^.1"
^DD(62.55,1,1,1,0)="62.55^C"
^DD(62.55,1,1,1,1)="S ^LAB(62.55,""C"",$E(X,1,30),DA)="""""
^DD(62.55,1,1,1,2)="K ^LAB(62.55,""C"",$E(X,1,30),DA)"
^DD(62.55,1,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(62.55,1,21,0)="^^1^1^2841114^"
^DD(62.55,1,21,1,0)="The full description of the agglutination strength."
^DD(62.55,1,"DT")="2841017"
^DD(62.55,"B","NAME",.01)=""
^DD(62.55,"B","WILL STAND FOR",1)=""
^DD(62.55,"GL",0,1,.01)=""
^DD(62.55,"GL",0,2,1)=""
^DD(62.55,"IX",.01)=""
^DD(62.55,"IX",1)=""
^DD(62.55,"RQ",.01)=""
^DD(62.6,0)="FIELD^^1^7"
^DD(62.6,0,"ID",.02)="W """""
^DD(62.6,0,"IX","B",62.6,.01)=""
^DD(62.6,0,"NM","ACCESSION TEST GROUP")=""
^DD(62.6,0,"VR")="5.2"
^DD(62.6,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.6,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(62.6,.001,21,0)="^^1^1^2841114^"
^DD(62.6,.001,21,1,0)="The internal number."
^DD(62.6,.01,0)="ACCESSION TEST GROUP^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(62.6,.01,1,0)="^.1"
^DD(62.6,.01,1,1,0)="62.6^B"
^DD(62.6,.01,1,1,1)="S ^LAB(62.6,""B"",$E(X,1,30),DA)="""""
^DD(62.6,.01,1,1,2)="K ^LAB(62.6,""B"",$E(X,1,30),DA)"
^DD(62.6,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(62.6,.01,21,0)="^^1^1^2841114^"
^DD(62.6,.01,21,1,0)="The name of the accession test group."
^DD(62.6,.02,0)="LAB SECTION^RP62.2'^LAB(62.2,^0;2^Q"
^DD(62.6,.02,21,0)="^^2^2^2841114^^"
^DD(62.6,.02,21,1,0)="The name of the lab section that this group belongs to."
^DD(62.6,.02,21,2,0)="Points to the LAB SECTION file."
^DD(62.6,.02,"DT")="2841001"
^DD(62.6,.03,0)="LAB ONLY^S^1:YES;^0;3^Q"
^DD(62.6,.03,21,0)="^^3^3^2851105^^^^"
^DD(62.6,.03,21,1,0)="If the wards are to be allowed to use this Accession test group,"
^DD(62.6,.03,21,2,0)="leave this blank.  If YES, the user must have the LRLAB key to see the"
^DD(62.6,.03,21,3,0)="entries."
^DD(62.6,.03,"DT")="2840829"
^DD(62.6,.04,0)="LAB COLLECT ONLY^S^1:YES;^0;4^Q"
^DD(62.6,.04,21,0)="^^2^2^2851105^"
^DD(62.6,.04,21,1,0)="If this accession test group is to be used for routine lab collects,"
^DD(62.6,.04,21,2,0)="enter YES in this field, otherwise leave blank."
^DD(62.6,.04,"DT")="2851105"
^DD(62.6,.05,0)="DISPLAY ORDER^S^0:CONTINUOUS;1:INTERNAL NUMBER;^0;5^Q"
^DD(62.6,.05,3)="Enter how tests are displayed on list."
^DD(62.6,.05,21,0)="^^11^11^2970827^"
^DD(62.6,.05,21,1,0)="This field determines if test numbers on list are numbered ""CONTINUOUS"","
^DD(62.6,.05,21,2,0)="starting at 1,2,3,... or by ""INTERNAL NUMBER"" when the test list is"
^DD(62.6,.05,21,3,0)="displayed."
^DD(62.6,.05,21,4,0)=" "
^DD(62.6,.05,21,5,0)="""INTERNAL NUMBER"" will assign the test number on list based on the internal"
^DD(62.6,.05,21,6,0)="entry number (field #.001 NUMBER) of test in the ""TEST"" multiple."
^DD(62.6,.05,21,7,0)="This will print the list with gaps if tests have been removed. It allows"
^DD(62.6,.05,21,8,0)="removal of tests without subsequent tests being renumbered on the list and"
^DD(62.6,.05,21,9,0)="tests being added at designated positions. This may assist site when"
^DD(62.6,.05,21,10,0)="modifying test lists and users have memorized existing number of tests,"
^DD(62.6,.05,21,11,0)="by maintaining existing number."
^DD(62.6,.05,"DT")="2970827"
^DD(62.6,1,0)="TEST^62.61P^^1;0"
^DD(62.6,1,21,0)="^^1^1^2921211^^"
^DD(62.6,1,21,1,0)="This is a multiple field.  It specifies all of the tests in this accession group."
^DD(62.6,"B","ACCESSION TEST GROUP",.01)=""
^DD(62.6,"B","DISPLAY ORDER",.05)=""
^DD(62.6,"B","LAB COLLECT ONLY",.04)=""
^DD(62.6,"B","LAB ONLY",.03)=""
^DD(62.6,"B","LAB SECTION",.02)=""
^DD(62.6,"B","NUMBER",.001)=""
^DD(62.6,"B","TEST",1)=""
^DD(62.6,"GL",0,1,.01)=""
^DD(62.6,"GL",0,2,.02)=""
^DD(62.6,"GL",0,3,.03)=""
^DD(62.6,"GL",0,4,.04)=""
^DD(62.6,"GL",0,5,.05)=""
^DD(62.6,"GL",1,0,1)=""
^DD(62.6,"IX",.01)=""
^DD(62.6,"RQ",.01)=""
^DD(62.6,"RQ",.02)=""
^DD(62.6,"SB",62.61,1)=""
^DD(62.61,0)="TEST SUB-FIELD^NL^5^7"
^DD(62.61,0,"IX","AC",62.61,5)=""
^DD(62.61,0,"IX","B",62.61,.01)=""
^DD(62.61,0,"NM","TEST")=""
^DD(62.61,0,"UP")="62.6"
^DD(62.61,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(62.61,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(62.61,.001,21,0)="^^1^1^2841114^"
^DD(62.61,.001,21,1,0)="The internal number."
^DD(62.61,.001,"DT")="2970827"
^DD(62.61,.01,0)="TEST^MP60'^LAB(60,^0;1^Q"
^DD(62.61,.01,1,0)="^.1"
^DD(62.61,.01,1,1,0)="^^TRIGGER^62.61^1"
^DD(62.61,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(62.61,.01,1,1,1.1) X ^DD(62.61,.01,1,1,1.4)"
^DD(62.61,.01,1,1,1.1)="S X=$S('$D(^LAB(60,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(62.61,.01,1,1,1.4)="S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.61,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.61,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y X ^DD(62.61,.01,1,1,2.1) X ^DD(62.61,.01,1,1,2.4)"
^DD(62.61,.01,1,1,2.1)="S X=$S('$D(^LAB(60,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(62.61,.01,1,1,2.4)="S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.61,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.61,.01,1,1,"CREATE VALUE")="TEST"
^DD(62.61,.01,1,1,"DELETE VALUE")="TEST"
^DD(62.61,.01,1,1,"FIELD")="TEST NAME"
^DD(62.61,.01,1,2,0)="62.61^B"
^DD(62.61,.01,1,2,1)="S ^LAB(62.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(62.61,.01,1,2,2)="K ^LAB(62.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(62.61,.01,21,0)="^^1^1^2841114^"
^DD(62.61,.01,21,1,0)="This field specifies all of the tests included in this accession group."
^DD(62.61,.01,"DT")="2850912"
^DD(62.61,1,0)="TEST NAME^F^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(62.61,1,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(62.61,1,5,1,0)="62.61^.01^1"
^DD(62.61,1,21,0)="^^1^1^2841114^"
^DD(62.61,1,21,1,0)="Triggered by TEST field."
^DD(62.61,2,0)="COLLECTION SAMPLE^P62'^LAB(62,^0;3^Q"
^DD(62.61,2,1,0)="^.1"
^DD(62.61,2,1,1,0)="^^TRIGGER^62.61^3"
^DD(62.61,2,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.61,2,1,1,1.1) X ^DD(62.61,2,1,1,1.4)"
^DD(62.61,2,1,1,1.1)="S X=$S('$D(^LAB(62,+DIV,0)):"""",1:$P(^(0),U,1)_$S($L($P(^(0),U,3)):"" (""_$P(^(0),U,3)_"")"",1:""""))"
^DD(62.61,2,1,1,1.4)="S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.61,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.61,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(62.61,2,1,1,2.1) X ^DD(62.61,2,1,1,2.4)"
^DD(62.61,2,1,1,2.1)="S X=$S('$D(^LAB(62,+DIV,0)):"""",1:$P(^(0),U,1)_$S($L($P(^(0),U,3)):"" (""_$P(^(0),U,3)_"")"",1:""""))"
^DD(62.61,2,1,1,2.4)="S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.61,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.61,2,1,1,"CREATE VALUE")="CS"
^DD(62.61,2,1,1,"DELETE VALUE")="CS"
^DD(62.61,2,1,1,"FIELD")="SAMPLE NAME"
^DD(62.61,2,1,2,0)="^^TRIGGER^62.61^4"
^DD(62.61,2,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(62.61,2,1,2,1.1) X ^DD(62.61,2,1,2,1.4)"
^DD(62.61,2,1,2,1.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62,D0,0)):^(0),1:""""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=Y(1)"
^DD(62.61,2,1,2,1.4)="S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.61,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.61,2,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(62.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(62.61,2,1,2,2.1) X ^DD(62.61,2,1,2,2.4)"
^DD(62.61,2,1,2,2.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62,D0,0)):^(0),1:""""),Y(101)=X S X=$P(Y(102),U,2),X=X S X=X S D0=Y(1)"
^DD(62.61,2,1,2,2.4)="S DIH=$S($D(^LAB(62.6,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=62.61,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(62.61,2,1,2,"CREATE VALUE")="CS:INTERNAL(DEFAULT SPECIMEN)"
^DD(62.61,2,1,2,"DELETE VALUE")="CS:INTERNAL(DEFAULT SPECIMEN)"
^DD(62.61,2,1,2,"FIELD")="SPECIMEN"
^DD(62.61,2,21,0)="^^2^2^2841114^^"
^DD(62.61,2,21,1,0)="This field contains the correct collection sample for this test."
^DD(62.61,2,21,2,0)="Points to COLLECTION SAMPLE file."
^DD(62.61,2,"DT")="2840207"
^DD(62.61,3,0)="SAMPLE NAME^F^^0;4^K:$L(X)>30!($L(X)<2) X"
^DD(62.61,3,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(62.61,3,5,1,0)="62.61^2^1"
^DD(62.61,3,21,0)="^^1^1^2841114^"
^DD(62.61,3,21,1,0)="Triggered by the COLLECTION SAMPLE field."
^DD(62.61,4,0)="SPECIMEN^P61'^LAB(61,^0;5^Q"
^DD(62.61,4,3)=""
^DD(62.61,4,5,1,0)="62.61^2^2"
^DD(62.61,4,9)="^"
^DD(62.61,4,21,0)="^^1^1^2841114^"
^DD(62.61,4,21,1,0)="Triggered by the COLLECTION SAMPLE field."
^DD(62.61,5,0)="*LABEL^F^^0;6^K:$L(X)>1!($L(X)<1) X"
^DD(62.61,5,1,0)="^.1"
^DD(62.61,5,1,1,0)="62.61^AC"
^DD(62.61,5,1,1,1)="S ^LAB(62.6,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(62.61,5,1,1,2)="K ^LAB(62.6,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(62.61,5,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(62.61,5,21,0)="^^2^2^2871007^^^"
^DD(62.61,5,21,1,0)="This field is used as a quick look-up reference in Albany routines."
^DD(62.61,5,21,2,0)="It has an ""AC"" cross-reference."
^DD(62.61,5,"DT")="2840831"
^DD(62.61,"B","*LABEL",5)=""
^DD(62.61,"B","COLLECTION SAMPLE",2)=""
^DD(62.61,"B","NUMBER",.001)=""
^DD(62.61,"B","SAMPLE NAME",3)=""
^DD(62.61,"B","SPECIMEN",4)=""
^DD(62.61,"B","TEST",.01)=""
^DD(62.61,"B","TEST NAME",1)=""
^DD(62.61,"GL",0,1,.01)=""
^DD(62.61,"GL",0,2,1)=""
^DD(62.61,"GL",0,3,2)=""
^DD(62.61,"GL",0,4,3)=""
^DD(62.61,"GL",0,5,4)=""
^DD(62.61,"GL",0,6,5)=""
^DD(62.61,"IX",.01)=""
^DD(62.61,"IX",2)=""
^DD(62.61,"IX",5)=""
^DD(62.7501,0)="SITE NOTES DATE SUB-FIELD^^1^2"
^DD(62.7501,0,"DT")="2930912"
^DD(62.7501,0,"IX","B",62.7501,.01)=""
^DD(62.7501,0,"NM","SITE NOTES DATE")=""
^DD(62.7501,0,"UP")="62.07"
^DD(62.7501,.01,0)="SITE NOTES DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(62.7501,.01,1,0)="^.1"
^DD(62.7501,.01,1,1,0)="62.7501^B"
^DD(62.7501,.01,1,1,1)="S ^LAB(62.07,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(62.7501,.01,1,1,2)="K ^LAB(62.07,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(62.7501,.01,"DT")="2930912"
^DD(62.7501,1,0)="TEXT^62.75011^^1;0"
^DD(62.7501,1,21,0)="^^1^1^2930912^"
^DD(62.7501,1,21,1,0)=" Actual text of the note for this code."
^DD(62.7501,1,"DT")="2930912"
^DD(62.7501,"B","SITE NOTES DATE",.01)=""
^DD(62.7501,"B","TEXT",1)=""
^DD(62.7501,"GL",0,1,.01)=""
^DD(62.7501,"GL",1,0,1)=""
^DD(62.7501,"IX",.01)=""
^DD(62.7501,"SB",62.75011,1)=""
^DD(62.75011,0)="TEXT SUB-FIELD^^.01^1"
^DD(62.75011,0,"DT")="2930912"
^DD(62.75011,0,"NM","TEXT")=""
^DD(62.75011,0,"UP")="62.7501"
^DD(62.75011,.01,0)="NOTE^W^^0;1^Q"
^DD(62.75011,.01,"DT")="2930912"
^DD(62.75011,"B","NOTE",.01)=""
^DD(62.75011,"GL",0,1,.01)=""
^DD(62.8,0)="FIELD^^10^7"
^DD(62.8,0,"DT")="2970915"
^DD(62.8,0,"IX","AC",62.8,.03)=""
^DD(62.8,0,"IX","AC1",62.8,.03)=""
^DD(62.8,0,"IX","B",62.8,.01)=""
^DD(62.8,0,"IX","UID",62.801,.05)=""
^DD(62.8,0,"NM","LAB SHIPPING MANIFEST")=""
^DD(62.8,0,"PT",68.04,9)=""
^DD(62.8,0,"VR")="5.2"
^DD(62.8,0,"VRPK")="LA"
^DD(62.8,.01,0)="INVOICE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(62.8,.01,1,0)="^.1"
^DD(62.8,.01,1,1,0)="62.8^B"
^DD(62.8,.01,1,1,1)="S ^LAHM(62.8,""B"",$E(X,1,30),DA)="""""
^DD(62.8,.01,1,1,2)="K ^LAHM(62.8,""B"",$E(X,1,30),DA)"
^DD(62.8,.01,3)="Answer must be 3-30 characters in length."
^DD(62.8,.01,21,0)="^^5^5^3041105^^^^"
^DD(62.8,.01,21,1,0)="This field contains a uniquely generated invoice number. The number is"
^DD(62.8,.01,21,2,0)="derived as follows: site number-date-number"
^DD(62.8,.01,21,3,0)="   Site number - field #99 of Institution file"
^DD(62.8,.01,21,4,0)="          Date - date shipping manifest created in form YYYYMMDD"
^DD(62.8,.01,21,5,0)="        Number - sequential number starting at 1 for a given site/date."
^DD(62.8,.01,"DT")="3041105"
^DD(62.8,.02,0)="SHIPPING CONFIGURATION^RP62.9'^LAHM(62.9,^0;2^Q"
^DD(62.8,.02,3)="Enter the shipping configuration for this manifest."
^DD(62.8,.02,21,0)="^^2^2^2970613^"
^DD(62.8,.02,21,1,0)="This field contains a pointer to the LAB SHIPPING CONFIGURATION file"
^DD(62.8,.02,21,2,0)="(#62.9)."
^DD(62.8,.02,"DT")="2970125"
^DD(62.8,.03,0)="STATUS^RS^0:CANCELLED;1:OPEN;2:BUILDING;3:CLOSED;4:SHIPPED;5:RECEIVED;6:COMPLETED;^0;3^Q"
^DD(62.8,.03,1,0)="^.1"
^DD(62.8,.03,1,1,0)="62.8^AC"
^DD(62.8,.03,1,1,1)="S ^LAHM(62.8,""AC"",$E(X,1,30),DA)="""""
^DD(62.8,.03,1,1,2)="K ^LAHM(62.8,""AC"",$E(X,1,30),DA)"
^DD(62.8,.03,1,1,"%D",0)="^^1^1^2970613^"
^DD(62.8,.03,1,1,"%D",1,0)="Cross-reference on shipping status of this shipping manifest."
^DD(62.8,.03,1,1,"DT")="2970421"
^DD(62.8,.03,1,2,0)="62.8^AC1^MUMPS"
^DD(62.8,.03,1,2,1)="I X,X<3,$P($G(^LAHM(62.8,DA,0)),""^"",2) S ^LAHM(62.8,""AC1"",$P(^LAHM(62.8,DA,0),""^"",2),DA)="""""
^DD(62.8,.03,1,2,2)="I X,X<3,$P($G(^LAHM(62.8,DA,0)),""^"",2) K ^LAHM(62.8,""AC1"",$P(^LAHM(62.8,DA,0),""^"",2),DA)"
^DD(62.8,.03,1,2,"%D",0)="^^4^4^2970613^"
^DD(62.8,.03,1,2,"%D",1,0)="Cross-reference used to identify active shipping manifests for a specific"
^DD(62.8,.03,1,2,"%D",2,0)="shipping configuration.  The format of the cross reference is as follows"
^DD(62.8,.03,1,2,"%D",3,0)=" IF STATUS,STATUS<3,SHIPPING CONFIGURATION S ^LAHM(62.8,""AC1"",SHIPPING"
^DD(62.8,.03,1,2,"%D",4,0)="CONFIGURATION,DA)="""""
^DD(62.8,.03,1,2,"DT")="2970421"
^DD(62.8,.03,3)="Enter the current status of this shipping manifest."
^DD(62.8,.03,21,0)="^^1^1^2970613^"
^DD(62.8,.03,21,1,0)="This field contains the current status on the shipping manifest."
^DD(62.8,.03,"DT")="2970421"
^DD(62.8,.04,0)="SHIP VIA^P62.92'^LAHM(62.92,^0;4^Q"
^DD(62.8,.04,3)="Enter the method used to transport this shipment."
^DD(62.8,.04,"DT")="2970605"
^DD(62.8,.05,0)="TEST CODING SYSTEM^S^0:NLT;1:NON-VA;2:LOINC;^0;5^Q"
^DD(62.8,.05,3)="Answer with type of coding system to use for this configuration."
^DD(62.8,.05,21,0)="^^13^13^2990224^^^"
^DD(62.8,.05,21,1,0)="If orders are being sent to a non-VA facility and the facility can not"
^DD(62.8,.05,21,2,0)="accept VA test order codes then answer with the type of coding system."
^DD(62.8,.05,21,3,0)="""NON-VA"" indicates that the other system is using a local coding system."
^DD(62.8,.05,21,4,0)="The laboratory shipping software will then use the non-VA test codes"
^DD(62.8,.05,21,5,0)="entered for each test on this configuration."
^DD(62.8,.05,21,6,0)=" "
^DD(62.8,.05,21,7,0)="If the non-VA facility can accept VA test codes then answer ""NLT"" and the"
^DD(62.8,.05,21,8,0)="software will sent VA test order codes."
^DD(62.8,.05,21,9,0)=" "
^DD(62.8,.05,21,10,0)="VA test order codes are usually NLT codes but in the future will probably"
^DD(62.8,.05,21,11,0)="be LOINC codes. Selecting ""LOINC"" is currently not supported. Support will"
^DD(62.8,.05,21,12,0)="be added in a future version of the LEDI software when LOINC coding has"
^DD(62.8,.05,21,13,0)="been implemented within VA facilities."
^DD(62.8,.05,"DT")="2990224"
^DD(62.8,.06,0)="SPECIMEN CODING SYSTEM^S^0:HL7 TABLE 0070;1:LOCAL-NON HL7;^0;6^Q"
^DD(62.8,.06,3)="Answer with type of coding system to use for this configuration."
^DD(62.8,.06,21,0)="^^3^3^3020814^"
^DD(62.8,.06,21,1,0)="If orders are sent to a non-VA facility and the facility"
^DD(62.8,.06,21,2,0)="can not receive HL7 specimen codes from HL7 table 0070"
^DD(62.8,.06,21,3,0)="then answer with the type of coding system ""LOCAL""."
^DD(62.8,.06,"DT")="3020814"
^DD(62.8,10,0)="SPECIMENS^62.801PA^^10;0"
^DD(62.8,10,21,0)="^^3^3^2970616^^^^"
^DD(62.8,10,21,1,0)="This multiple contains all of the information (LRDFN, TEST, SPECIMEN"
^DD(62.8,10,21,2,0)="TYPE, URGENCY, and SPECIMEN ID) needed to identify and ship the ordered"
^DD(62.8,10,21,3,0)="test."
^DD(62.8,"B","INVOICE",.01)=""
^DD(62.8,"B","SHIP VIA",.04)=""
^DD(62.8,"B","SHIPPING CONFIGURATION",.02)=""
^DD(62.8,"B","SPECIMEN CODING SYSTEM",.06)=""
^DD(62.8,"B","SPECIMENS",10)=""
^DD(62.8,"B","STATUS",.03)=""
^DD(62.8,"B","TEST CODING SYSTEM",.05)=""
^DD(62.8,"GL",0,1,.01)=""
^DD(62.8,"GL",0,2,.02)=""
^DD(62.8,"GL",0,3,.03)=""
^DD(62.8,"GL",0,4,.04)=""
^DD(62.8,"GL",0,5,.05)=""
^DD(62.8,"GL",0,6,.06)=""
^DD(62.8,"GL",10,0,10)=""
^DD(62.8,"IX",.01)=""
^DD(62.8,"IX",.03)=""
^DD(62.8,"RQ",.01)=""
^DD(62.8,"RQ",.02)=""
^DD(62.8,"RQ",.03)=""
^DD(62.8,"SB",62.801,10)=""
^DD(62.801,0)="SPECIMENS SUB-FIELD^^5.9^40"
^DD(62.801,0,"DT")="2970915"
^DD(62.801,0,"IX","B",62.801,.01)=""
^DD(62.801,0,"IX","UID",62.801,.05)=""
^DD(62.801,0,"NM","SPECIMENS")=""
^DD(62.801,0,"UP")="62.8"
^DD(62.801,.01,0)="LRDFN^P63'^LR(^0;1^Q"
^DD(62.801,.01,1,0)="^.1"
^DD(62.801,.01,1,1,0)="62.801^B"
^DD(62.801,.01,1,1,1)="S ^LAHM(62.8,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(62.801,.01,1,1,2)="K ^LAHM(62.8,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(62.801,.01,3)="This field is populated with the patients LRDFN."
^DD(62.801,.01,21,0)="^^1^1^2970616^^"
^DD(62.801,.01,21,1,0)="This field identifies the laboratory patient (LRDFN) for this specimen. "
^DD(62.801,.01,"DT")="2970125"
^DD(62.801,.02,0)="TEST^RP60'^LAB(60,^0;2^Q"
^DD(62.801,.02,3)="This field is populated with the ordered test."
^DD(62.801,.02,21,0)="^^2^2^2970616^"
^DD(62.801,.02,21,1,0)="This field contains the test that is being ordered for this specimen."
^DD(62.801,.02,21,2,0)="This field is populated using the LAB SHIPPING CONFIGURATION file (#62.9)."
^DD(62.801,.02,"DT")="2970125"
^DD(62.801,.03,0)="SPECIMEN TYPE^P61'^LAB(61,^0;3^Q"
^DD(62.801,.03,.1)="TYPE OF SPECIMEN"
^DD(62.801,.03,3)="This field is populated with the specimen type."
^DD(62.801,.03,21,0)="^^2^2^2970616^"
^DD(62.801,.03,21,1,0)="This field contains the specimen type, identified in the TOPOGRAPHY FIELD"
^DD(62.801,.03,21,2,0)="file (#61)."
^DD(62.801,.03,"DT")="2970126"
^DD(62.801,.04,0)="URGENCY^P62.05'^LAB(62.05,^0;4^Q"
^DD(62.801,.04,3)="This field is populated with the test urgency."
^DD(62.801,.04,21,0)="^^1^1^2970616^"
^DD(62.801,.04,21,1,0)="This field contains information about the urgency of the test."
^DD(62.801,.04,"DT")="2970125"
^DD(62.801,.05,0)="SPECIMEN ID^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(62.801,.05,1,0)="^.1"
^DD(62.801,.05,1,1,0)="62.801^UID"
^DD(62.801,.05,1,1,1)="S ^LAHM(62.8,DA(1),10,""UID"",$E(X,1,30),DA)="""""
^DD(62.801,.05,1,1,2)="K ^LAHM(62.8,DA(1),10,""UID"",$E(X,1,30),DA)"
^DD(62.801,.05,1,1,"%D",0)="^^2^2^2970425^"
^DD(62.801,.05,1,1,"%D",1,0)="Cross-reference used to identify all tests on shipping manifest belonging to"
^DD(62.801,.05,1,1,"%D",2,0)="an accession."
^DD(62.801,.05,1,1,"DT")="2970425"
^DD(62.801,.05,1,2,0)="62.8^UID"
^DD(62.801,.05,1,2,1)="S ^LAHM(62.8,""UID"",$E(X,1,30),DA(1),DA)="""""
^DD(62.801,.05,1,2,2)="K ^LAHM(62.8,""UID"",$E(X,1,30),DA(1),DA)"
^DD(62.801,.05,1,2,"%D",0)="^^2^2^2970425^"
^DD(62.801,.05,1,2,"%D",1,0)="Cross-reference used to determine which shipping manifests an accession has"
^DD(62.801,.05,1,2,"%D",2,0)="been placed on."
^DD(62.801,.05,1,2,"DT")="2970425"
^DD(62.801,.05,3)="Answer must be 1-15 characters in length."
^DD(62.801,.05,21,0)="^^2^2^2970616^"
^DD(62.801,.05,21,1,0)="This field contains the specimen id.  The specimen id is the UID or unique"
^DD(62.801,.05,21,2,0)="accession number from the ACCESSION file (#68)."
^DD(62.801,.05,"DT")="2970425"
^DD(62.801,.06,0)="SHIPPING CONTAINER^P62.91'^LAHM(62.91,^0;6^Q"
^DD(62.801,.06,3)="This field is populated with the specimens shipping container."
^DD(62.801,.06,21,0)="^^3^3^2970616^^"
^DD(62.801,.06,21,1,0)="This field identifies the specimens shipping container.  This field is"
^DD(62.801,.06,21,2,0)="populated with information gathered from the LAB SHIPPING CONFIGURATION"
^DD(62.801,.06,21,3,0)="file (#62.9)."
^DD(62.801,.06,"DT")="2970507"
^DD(62.801,.07,0)="SHIPPING CONDITIONS^P62.93'^LAHM(62.93,^0;7^Q"
^DD(62.801,.07,3)="This field is populated with the specimens shipping condition."
^DD(62.801,.07,21,0)="^^2^2^2970616^"
^DD(62.801,.07,21,1,0)="This field contains the specimens shipping conditions.  The information in"
^DD(62.801,.07,21,2,0)="this field is pulled from the LAB SHIPPING CONFIGURATION file (#62.9)."
^DD(62.801,.07,"DT")="2970507"
^DD(62.801,.08,0)="TEST STATUS^RS^0:CANCELLED/REMOVED;1:PENDING SHIPMENT;2:SHIPPED;3:RECEIVED;4:PARTIAL;5:COMPLETED;^0;8^Q"
^DD(62.801,.08,3)="Enter the status of this test as it pertains to the shipping manifest."
^DD(62.801,.08,21,0)="^^3^3^2970616^"
^DD(62.801,.08,21,1,0)="This field contains the status of the test as it pertains to the shipping"
^DD(62.801,.08,21,2,0)="manifest.  This field is updated by various events within the Laboratory"
^DD(62.801,.08,21,3,0)="Electronic Data Interchange (LEDI) software."
^DD(62.801,.08,"DT")="2970509"
^DD(62.801,.09,0)="PACKAGING CONTAINER^P62.91'^LAHM(62.91,^0;9^Q"
^DD(62.801,.09,3)="Enter the type of package that is used to ship this specimen."
^DD(62.801,.09,21,0)="^^3^3^2970605^^^"
^DD(62.801,.09,21,1,0)="This field is used to designate the package which is used to transport"
^DD(62.801,.09,21,2,0)="the specimen. It is the container into which the specimen container is"
^DD(62.801,.09,21,3,0)="placed."
^DD(62.801,.09,"DT")="2970605"
^DD(62.801,.1,0)="RELEVANT CLINICAL INFORMATION^F^^.1;1^K:$L(X)>250!($L(X)<1) X"
^DD(62.801,.1,3)="Answer must be 1-250 characters in length."
^DD(62.801,.1,21,0)="^^4^4^3040123^^"
^DD(62.801,.1,21,1,0)="This field contains additional clinical information about the"
^DD(62.801,.1,21,2,0)="patient or specimen. It is used to report the suspected"
^DD(62.801,.1,21,3,0)="diagnosis and clinical findings on requests for interpreted"
^DD(62.801,.1,21,4,0)="diagnostic studies. "
^DD(62.801,.1,"DT")="3040123"
^DD(62.801,1.1,0)="REQUIRE PATIENT HEIGHT^S^0:NO;1:YES;^1;1^Q"
^DD(62.801,1.1,10)=""
^DD(62.801,1.1,21,0)="^.001^5^5^3010910^^^^"
^DD(62.801,1.1,21,1,0)="Determines if the patient's height is required to be sent"
^DD(62.801,1.1,21,2,0)="in the HL7 ORM order message and printed on the shipping"
^DD(62.801,1.1,21,3,0)="manifest.  Actual shipping and/or electronic transmission"
^DD(62.801,1.1,21,4,0)="of a shipping manifest will check for entry of the patient's"
^DD(62.801,1.1,21,5,0)="height and prevent release if absent."
^DD(62.801,1.1,"DT")="3010910"
^DD(62.801,1.11,0)="PATIENT HEIGHT^NJ7,2^^1;2^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(62.801,1.11,3)="Type a Number between 0 and 1000, 2 Decimal Digits"
^DD(62.801,1.11,10)="Patient's medical record"
^DD(62.801,1.11,21,0)="^^4^4^3010910^^"
^DD(62.801,1.11,21,1,0)="Stores the patient's height for transmission in the HL7"
^DD(62.801,1.11,21,2,0)="ORM order message and display on the shipping manifest"
^DD(62.801,1.11,21,3,0)="when required to accompany test orders and specimens."
^DD(62.801,1.11,21,4,0)="See field REQUIRE PATIENT HEIGHT #1.1."
^DD(62.801,1.11,"DT")="3010910"
^DD(62.801,1.13,0)="PATIENT HEIGHT UNITS^*P64.061'^LAB(64.061,^1;3^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.801,1.13,12)="Only codes that are measurements are selectable."
^DD(62.801,1.13,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(62.801,1.13,21,0)="^.001^3^3^3010910^^^"
^DD(62.801,1.13,21,1,0)="Units used to measure the patient's height. Select an"
^DD(62.801,1.13,21,2,0)="entry from the LAB ELECTRONIC CODE file (#64.061) that"
^DD(62.801,1.13,21,3,0)="are measurements."
^DD(62.801,1.13,"DT")="3010907"
^DD(62.801,1.14,0)="PATIENT HEIGHT CODE^P95.3'^LAB(95.3,^1;7^Q"
^DD(62.801,1.14,3)="Enter the appropriate LOINC code to identify the patient's height"
^DD(62.801,1.14,21,0)="^^2^2^3010907^"
^DD(62.801,1.14,21,1,0)="Select the appropriate LOINC code to identify the"
^DD(62.801,1.14,21,2,0)="patient's height."
^DD(62.801,1.14,"DT")="3011102"
^DD(62.801,1.2,0)="REQUIRE PATIENT WEIGHT^S^0:NO;1:YES;^1;4^Q"
^DD(62.801,1.2,21,0)="^^5^5^3010910^"
^DD(62.801,1.2,21,1,0)="Determines if the patient's weight is required to be sent"
^DD(62.801,1.2,21,2,0)="in the HL7 ORM order message and printed on the shipping"
^DD(62.801,1.2,21,3,0)="manifest.  Actual shipping and/or electronic transmission"
^DD(62.801,1.2,21,4,0)="of a shipping manifest will check for entry of the patient's"
^DD(62.801,1.2,21,5,0)="weight and prevent release if absent. "
^DD(62.801,1.2,"DT")="3010910"
^DD(62.801,1.21,0)="PATIENT WEIGHT^NJ4,0^^1;5^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.801,1.21,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(62.801,1.21,10)="Patient's medical record"
^DD(62.801,1.21,21,0)="^^4^4^3010910^"
^DD(62.801,1.21,21,1,0)="Stores the patient's weight for transmission in the HL7"
^DD(62.801,1.21,21,2,0)="ORM order message and display on the shipping manifest"
^DD(62.801,1.21,21,3,0)="when required to accompany test orders and specimens."
^DD(62.801,1.21,21,4,0)="See field REQUIRE PATIENT WEIGHT #1.2. "
^DD(62.801,1.21,"DT")="3010910"
^DD(62.801,1.23,0)="PATIENT WEIGHT UNITS^*P64.061'^LAB(64.061,^1;6^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.801,1.23,12)="Only codes that are measurements are selectable."
^DD(62.801,1.23,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(62.801,1.23,21,0)="^^3^3^3010910^"
^DD(62.801,1.23,21,1,0)="Units used to measure the patient's weight. Select an"
^DD(62.801,1.23,21,2,0)="entry from the LAB ELECTRONIC CODE file (#64.061) that"
^DD(62.801,1.23,21,3,0)="are measurements. "
^DD(62.801,1.23,"DT")="3010910"
^DD(62.801,1.24,0)="PATIENT WEIGHT CODE^P95.3'^LAB(95.3,^1;8^Q"
^DD(62.801,1.24,3)="Enter the appropriate LOINC code to identify this patient's weight."
^DD(62.801,1.24,21,0)="^^1^1^3010910^"
^DD(62.801,1.24,21,1,0)="Select the appropriate LOINC code to identify the patient's weight."
^DD(62.801,1.24,"DT")="3011102"
^DD(62.801,2.1,0)="REQUIRE COLLECTION VOLUME^S^0:NO;1:YES;^2;1^Q"
^DD(62.801,2.1,3)=""
^DD(62.801,2.1,21,0)="^.001^5^5^3010910^^"
^DD(62.801,2.1,21,1,0)="Determines if the specimen's collection volume is required"
^DD(62.801,2.1,21,2,0)="to be sent in the HL7 ORM order message and printed on the"
^DD(62.801,2.1,21,3,0)="shipping manifest.  Actual shipping and/or electronic"
^DD(62.801,2.1,21,4,0)="transmission of a shipping manifest will check for entry of"
^DD(62.801,2.1,21,5,0)="the specimen's collection volume and prevent release if absent."
^DD(62.801,2.1,"DT")="3010910"
^DD(62.801,2.11,0)="COLLECTION VOLUME^NJ12,5^^2;2^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""6N.N) X"
^DD(62.801,2.11,3)="Type a Number between 0 and 100000, 5 Decimal Digits"
^DD(62.801,2.11,21,0)="^.001^4^4^3010910^^"
^DD(62.801,2.11,21,1,0)="Stores the specimen's collection volume for transmission"
^DD(62.801,2.11,21,2,0)="in the HL7 ORM order message and printing on the shipping"
^DD(62.801,2.11,21,3,0)="manifest when required to accompany test orders and"
^DD(62.801,2.11,21,4,0)="specimens. See field REQUIRE COLLECTION VOLUME #2.1. "
^DD(62.801,2.11,"DT")="2980520"
^DD(62.801,2.13,0)="COLLECTION VOLUME UNITS^*P64.061'^LAB(64.061,^2;3^S DIC(""S"")=""N LA7X S LA7X=$G(^LAB(64.061,Y,0)) I $P(LA7X,U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.801,2.13,12)="Only codes of type=measurement are selectable."
^DD(62.801,2.13,12.1)="S DIC(""S"")=""N LA7X S LA7X=$G(^LAB(64.061,Y,0)) I $P(LA7X,U,7)=""""M"""""""
^DD(62.801,2.13,21,0)="^^3^3^3010910^"
^DD(62.801,2.13,21,1,0)="Units used to measure the specimen's collection volume."
^DD(62.801,2.13,21,2,0)="Select an entry from the LAB ELECTRONIC CODE file "
^DD(62.801,2.13,21,3,0)="#64.061) that is a measurement. "
^DD(62.801,2.13,"DT")="2980520"
^DD(62.801,2.14,0)="COLLECTION VOLUME CODE^P95.3'^LAB(95.3,^2;11^Q"
^DD(62.801,2.14,3)="Enter the appropriate LOINC code for collection volume."
^DD(62.801,2.14,21,0)="^^2^2^3010910^"
^DD(62.801,2.14,21,1,0)="Enter the appropriate LOINC code to identify the"
^DD(62.801,2.14,21,2,0)="specimen's collection volume."
^DD(62.801,2.14,"DT")="3011102"
^DD(62.801,2.2,0)="REQUIRE COLLECTION END D/T^S^1:YES;^2;4^Q"
^DD(62.801,2.2,3)=""
^DD(62.801,2.2,21,0)="^^6^6^3010910^"
^DD(62.801,2.2,21,1,0)="Determines if the specimen's collection end date/time"
^DD(62.801,2.2,21,2,0)="is required to be sent in the HL7 ORM order message"
^DD(62.801,2.2,21,3,0)="and printed on the shipping manifest.  Actual shipping"
^DD(62.801,2.2,21,4,0)="and/or electronic transmission of a shipping manifest"
^DD(62.801,2.2,21,5,0)="will check for entry of the specimen's collection end"
^DD(62.801,2.2,21,6,0)="date/time and prevent release if absent. "
^DD(62.801,2.2,"DT")="2980520"
^DD(62.801,2.21,0)="COLLECTION END DATE/TIME^D^^2;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(62.801,2.21,21,0)="^^5^5^3010910^"
^DD(62.801,2.21,21,1,0)="Stores the specimen's collection end date/time for"
^DD(62.801,2.21,21,2,0)="transmission in the HL7 ORM order message and on the"
^DD(62.801,2.21,21,3,0)="shipping manifest when required to accompany test"
^DD(62.801,2.21,21,4,0)="orders and specimens."
^DD(62.801,2.21,21,5,0)="See field REQUIRE COLLECTION END D/T #2.2."
^DD(62.801,2.21,"DT")="2980527"
^DD(62.801,2.22,0)="COLLECTION DURATION^NJ6,0^^2;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(62.801,2.22,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(62.801,2.22,21,0)="^.001^4^4^3010910^^"
^DD(62.801,2.22,21,1,0)="Stores the calculated duration of the specimen collection."
^DD(62.801,2.22,21,2,0)="Based on specimen's collection date/time and end date/time."
^DD(62.801,2.22,21,3,0)="Reported in the units specified in field COLLECTION"
^DD(62.801,2.22,21,4,0)="DURATION UNITS (#2.23)"
^DD(62.801,2.22,"DT")="2980519"
^DD(62.801,2.23,0)="COLLECTION DURATION UNITS^*P64.061'^LAB(64.061,^2;7^S DIC(""S"")=""N LA7X S LA7X=$G(^LAB(64.061,Y,0)) I $P(LA7X,U)?.(1""""s"""",1""""min"""",1""""hr""""),$P(LA7X,U,7)=""""M"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(62.801,2.23,3)=""
^DD(62.801,2.23,12)="Only codes that are measurements and relate to time (seconds, minutes, hours) are selectable."
^DD(62.801,2.23,12.1)="S DIC(""S"")=""N LA7X S LA7X=$G(^LAB(64.061,Y,0)) I $P(LA7X,U)?.(1""""s"""",1""""min"""",1""""hr""""),$P(LA7X,U,7)=""""M"""""""
^DD(62.801,2.23,21,0)="^^3^3^3010910^"
^DD(62.801,2.23,21,1,0)="Units used to calculate the specimen's collection duration."
^DD(62.801,2.23,21,2,0)="Select an entry from the LAB ELECTRONIC CODE file (#64.061) that"
^DD(62.801,2.23,21,3,0)="is a measurement and relate to time."
^DD(62.801,2.23,"DT")="3010831"
^DD(62.801,2.24,0)="COLLECTION DURATION CODE^*P95.3'^LAB(95.3,^2;12^S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""COLLECTION DURATION"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.801,2.24,3)="Enter the appropriate LOINC code to identify this specimen's collection duration."
^DD(62.801,2.24,12)="Only allow selection of LOINC codes with ""COLLECTION DURATION"" component."
^DD(62.801,2.24,12.1)="S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""COLLECTION DURATION"""""""
^DD(62.801,2.24,21,0)="^^2^2^3010910^"
^DD(62.801,2.24,21,1,0)="Enter the appropriate LOINC code to identify the"
^DD(62.801,2.24,21,2,0)="specimen's collection duration. "
^DD(62.801,2.24,"DT")="3011102"
^DD(62.801,2.3,0)="REQUIRE COLLECTION WEIGHT^S^0:NO;1:YES;^2;8^Q"
^DD(62.801,2.3,21,0)="^^5^5^3010910^"
^DD(62.801,2.3,21,1,0)="Determines if the specimen's collection weight is required"
^DD(62.801,2.3,21,2,0)="to be sent in the HL7 ORM order message and printed on the"
^DD(62.801,2.3,21,3,0)="shipping manifest.  Actual shipping and/or electronic"
^DD(62.801,2.3,21,4,0)="transmission of a shipping manifest will check for entry of"
^DD(62.801,2.3,21,5,0)="the specimen's collection weight and prevent release if absent. "
^DD(62.801,2.3,"DT")="2981110"
^DD(62.801,2.31,0)="COLLECTION WEIGHT^NJ12,5^^2;9^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""6N.N) X"
^DD(62.801,2.31,3)="Type a Number between 0 and 100000, 5 Decimal Digits"
^DD(62.801,2.31,21,0)="^.001^5^5^3010910^^"
^DD(62.801,2.31,21,1,0)="Stores the specimen's collection weight for"
^DD(62.801,2.31,21,2,0)="transmission in the HL7 ORM order message and on the"
^DD(62.801,2.31,21,3,0)="shipping manifest when required to accompany test"
^DD(62.801,2.31,21,4,0)="orders and specimens. "
^DD(62.801,2.31,21,5,0)="See field REQUIRE COLLECTION WEIGHT (#2.3)."
^DD(62.801,2.31,"DT")="2981110"
^DD(62.801,2.33,0)="COLLECTION WEIGHT UNITS^*P64.061'^LAB(64.061,^2;10^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.801,2.33,12)="Only codes that are measurements are selectable."
^DD(62.801,2.33,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(62.801,2.33,21,0)="^.001^3^3^3010910^^^"
^DD(62.801,2.33,21,1,0)="Units used to measure the specimen's collection weight."
^DD(62.801,2.33,21,2,0)="Select an entry from the LAB ELECTRONIC CODE file"
^DD(62.801,2.33,21,3,0)="#64.061) that is a measurement. "
^DD(62.801,2.33,"DT")="2981110"
^DD(62.801,2.34,0)="COLLECTION WEIGHT CODE^P95.3'^LAB(95.3,^2;13^Q"
^DD(62.801,2.34,3)="Enter the appropriate LOINC code for collection weight"
^DD(62.801,2.34,21,0)="^^2^2^3010910^"
^DD(62.801,2.34,21,1,0)="Enter the appropriate LOINC code to identify the"
^DD(62.801,2.34,21,2,0)="specimen's collection weight. "
^DD(62.801,2.34,"DT")="3011102"
^DD(62.801,5.1,0)="NON-NLT TEST ORDER CODE^F^^5;1^K:$L(X)>20!($L(X)<1) X"
^DD(62.801,5.1,3)="Answer must be 1-20 characters in length."
^DD(62.801,5.1,21,0)="^.001^5^5^3040624^^^^"
^DD(62.801,5.1,21,1,0)="If sending test orders to a non-VistA facility this"
^DD(62.801,5.1,21,2,0)="field is used to store the test order codes used by"
^DD(62.801,5.1,21,3,0)="the non-VistA system. It is valued by VistA from the"
^DD(62.801,5.1,21,4,0)="corresponding field in LAB SHIPPING CONFIGURATION file"
^DD(62.801,5.1,21,5,0)="(#62.9) during shipping manifest building."
^DD(62.801,5.1,"DT")="3040624"
^DD(62.801,5.2,0)="NON-NLT TEST ORDER NAME^F^^5;2^K:$L(X)>50!($L(X)<1) X"
^DD(62.801,5.2,3)="Answer must be 1-50 characters in length."
^DD(62.801,5.2,21,0)="^.001^5^5^3040624^^"
^DD(62.801,5.2,21,1,0)="If sending test orders to a non-VistA system this"
^DD(62.801,5.2,21,2,0)="field is used to store the test order name used by"
^DD(62.801,5.2,21,3,0)="the non-VistA system. It is valued VistA from the"
^DD(62.801,5.2,21,4,0)="corresponding field in LAB SHIPPING CONFIGURATION"
^DD(62.801,5.2,21,5,0)="file (#62.9) during shipping manifest building."
^DD(62.801,5.2,"DT")="3040624"
^DD(62.801,5.3,0)="NON-HL7 SPECIMEN CODE^F^^5;3^K:$L(X)>10!($L(X)<1) X"
^DD(62.801,5.3,3)="Answer must be 1-10 characters in length"
^DD(62.801,5.3,21,0)="^.001^8^8^3041105^^^^"
^DD(62.801,5.3,21,1,0)="If sending test orders to a non-VistA system"
^DD(62.801,5.3,21,2,0)="that does not use HL7 Table 0070 Specimen"
^DD(62.801,5.3,21,3,0)="Source, use this field to store the specimen"
^DD(62.801,5.3,21,4,0)="code used by the non-VistA system. It is only used"
^DD(62.801,5.3,21,5,0)="when the value of field SPECIMEN CODING SYSTEM"
^DD(62.801,5.3,21,6,0)="(#.06) is LOCAL-NON HL7.  It provides a means"
^DD(62.801,5.3,21,7,0)="for a collecting facility to map non standard"
^DD(62.801,5.3,21,8,0)="specimen codes to the host site."
^DD(62.801,5.3,"DT")="3041105"
^DD(62.801,5.4,0)="NON-HL7 SPECIMEN NAME^F^^5;4^K:$L(X)>30!($L(X)<1) X"
^DD(62.801,5.4,3)="Answer must be 1-30 characters in length"
^DD(62.801,5.4,21,0)="^.001^9^9^3041105^^^^"
^DD(62.801,5.4,21,1,0)="If sending test orders to a non-VistA system"
^DD(62.801,5.4,21,2,0)="that does not use HL7 Table 0070 Specimen"
^DD(62.801,5.4,21,3,0)="Source, use this field to store the specimen"
^DD(62.801,5.4,21,4,0)="name used by the non-VA system. It is only used"
^DD(62.801,5.4,21,5,0)="when the value of field SPECIMEN CODING SYSTEM"
^DD(62.801,5.4,21,6,0)="(#.06) is LOCAL-NON HL7.  It provides a means"
^DD(62.801,5.4,21,7,0)="for a collecting facility to map non standard"
^DD(62.801,5.4,21,8,0)="specimen names to the site's TOPOGRAPHY FIELD"
^DD(62.801,5.4,21,9,0)="file (#61). "
^DD(62.801,5.4,"DT")="3041105"
^DD(62.801,5.5,0)="NON-NLT TEST CODING SYSTEM^F^^5;5^K:$L(X)>10!($L(X)<1) X"
^DD(62.801,5.5,3)="Answer must be 1-10 characters in length"
^DD(62.801,5.5,21,0)="^.001^6^6^3041105^^^^"
^DD(62.801,5.5,21,1,0)="If sending test orders to a non-VistA system use this"
^DD(62.801,5.5,21,2,0)="field to store the name of the coding system used by"
^DD(62.801,5.5,21,3,0)="the non-VistA system. It will be used when the TEST"
^DD(62.801,5.5,21,4,0)="CODING SYSTEM field (#.05) is set to ""NON-VA""."
^DD(62.801,5.5,21,5,0)="Name usually begins with ""99"" to indicate a local"
^DD(62.801,5.5,21,6,0)="coding system in the HL7 Standard. "
^DD(62.801,5.5,"DT")="3041105"
^DD(62.801,5.6,0)="NON-HL7 SPECIMEN CODING SYSTEM^F^^5;6^K:$L(X)>10!($L(X)<1) X"
^DD(62.801,5.6,3)="Answer must be 1-10 characters in length"
^DD(62.801,5.6,21,0)="^.001^7^7^3041105^^^"
^DD(62.801,5.6,21,1,0)="If sending test orders to a non-VistA system that does"
^DD(62.801,5.6,21,2,0)="not use HL7 Table 0070 Specimen Source, use this field"
^DD(62.801,5.6,21,3,0)="to store the name of the coding system used by the"
^DD(62.801,5.6,21,4,0)="non-VistA system. It will be used when the value of field"
^DD(62.801,5.6,21,5,0)="SPECIMEN CODING SYSTEM (#.06) is LOCAL-NON HL7. Name"
^DD(62.801,5.6,21,6,0)="usually begins with ""99"" to indicate a local coding"
^DD(62.801,5.6,21,7,0)="system in the HL7 Standard. "
^DD(62.801,5.6,"DT")="3041105"
^DD(62.801,5.7,0)="COLLECTION SAMPLE CODE^F^^5;7^K:$L(X)>10!($L(X)<1) X"
^DD(62.801,5.7,3)="Answer must be 1-10 characters in length"
^DD(62.801,5.7,21,0)="^^4^4^3041105^^^^"
^DD(62.801,5.7,21,1,0)="If sending test orders to a non-VA facility that also requires"
^DD(62.801,5.7,21,2,0)="a collection sample code use this field to store the collection"
^DD(62.801,5.7,21,3,0)="sample code used by the non-VA system. It is only used when the"
^DD(62.801,5.7,21,4,0)="value of field SPECIMEN CODING SYSTEM (#.06) is LOCAL-NON HL7."
^DD(62.801,5.7,"DT")="3041105"
^DD(62.801,5.8,0)="COLLECTION SAMPLE NAME^F^^5;8^K:$L(X)>30!($L(X)<1) X"
^DD(62.801,5.8,3)="Answer must be 1-30 characters in length"
^DD(62.801,5.8,21,0)="^^4^4^3041105^^^^"
^DD(62.801,5.8,21,1,0)="If sending test orders to a non-VA facility that also requires"
^DD(62.801,5.8,21,2,0)="a collection sample name use this field to store the collection"
^DD(62.801,5.8,21,3,0)="sample name used by the non-VA system. It is only used when the"
^DD(62.801,5.8,21,4,0)="value of field SPECIMEN CODING SYSTEM (#.06) is LOCAL-NON HL7."
^DD(62.801,5.8,"DT")="3041105"
^DD(62.801,5.9,0)="COLLECT SAMPLE SYSTEM^F^^5;9^K:$L(X)>10!($L(X)<1) X"
^DD(62.801,5.9,3)="Answer must be 1-10 characters in length"
^DD(62.801,5.9,21,0)="^^5^5^3041105^^^"
^DD(62.801,5.9,21,1,0)="If sending collection sample codes/names to a non-VA facility"
^DD(62.801,5.9,21,2,0)="use this field to store the name of the coding system used by"
^DD(62.801,5.9,21,3,0)="the non-VA system. It will be used when the TEST CODING SYSTEM"
^DD(62.801,5.9,21,4,0)="field (#.05) is set to ""NON-VA"".  Name usually begins with"
^DD(62.801,5.9,21,5,0)="""99"" to indicate a local coding system in the HL7 Standard."
^DD(62.801,5.9,"DT")="3041105"
^DD(62.801,"B","COLLECT SAMPLE SYSTEM",5.9)=""
^DD(62.801,"B","COLLECTION DURATION",2.22)=""
^DD(62.801,"B","COLLECTION DURATION CODE",2.24)=""
^DD(62.801,"B","COLLECTION DURATION UNITS",2.23)=""
^DD(62.801,"B","COLLECTION END DATE/TIME",2.21)=""
^DD(62.801,"B","COLLECTION SAMPLE CODE",5.7)=""
^DD(62.801,"B","COLLECTION SAMPLE NAME",5.8)=""
^DD(62.801,"B","COLLECTION VOLUME",2.11)=""
^DD(62.801,"B","COLLECTION VOLUME CODE",2.14)=""
^DD(62.801,"B","COLLECTION VOLUME UNITS",2.13)=""
^DD(62.801,"B","COLLECTION WEIGHT",2.31)=""
^DD(62.801,"B","COLLECTION WEIGHT CODE",2.34)=""
^DD(62.801,"B","COLLECTION WEIGHT UNITS",2.33)=""
^DD(62.801,"B","LRDFN",.01)=""
^DD(62.801,"B","NON-HL7 SPECIMEN CODE",5.3)=""
^DD(62.801,"B","NON-HL7 SPECIMEN CODING SYSTEM",5.6)=""
^DD(62.801,"B","NON-HL7 SPECIMEN NAME",5.4)=""
^DD(62.801,"B","NON-NLT TEST CODING SYSTEM",5.5)=""
^DD(62.801,"B","NON-NLT TEST ORDER CODE",5.1)=""
^DD(62.801,"B","NON-NLT TEST ORDER NAME",5.2)=""
^DD(62.801,"B","PACKAGING CONTAINER",.09)=""
^DD(62.801,"B","PATIENT HEIGHT",1.11)=""
^DD(62.801,"B","PATIENT HEIGHT CODE",1.14)=""
^DD(62.801,"B","PATIENT HEIGHT UNITS",1.13)=""
^DD(62.801,"B","PATIENT WEIGHT",1.21)=""
^DD(62.801,"B","PATIENT WEIGHT CODE",1.24)=""
^DD(62.801,"B","PATIENT WEIGHT UNITS",1.23)=""
^DD(62.801,"B","RELEVANT CLINICAL INFORMATION",.1)=""
^DD(62.801,"B","REQUIRE COLLECTION END D/T",2.2)=""
^DD(62.801,"B","REQUIRE COLLECTION VOLUME",2.1)=""
^DD(62.801,"B","REQUIRE COLLECTION WEIGHT",2.3)=""
^DD(62.801,"B","REQUIRE PATIENT HEIGHT",1.1)=""
^DD(62.801,"B","REQUIRE PATIENT WEIGHT",1.2)=""
^DD(62.801,"B","SHIPPING CONDITIONS",.07)=""
^DD(62.801,"B","SHIPPING CONTAINER",.06)=""
^DD(62.801,"B","SPECIMEN ID",.05)=""
^DD(62.801,"B","SPECIMEN TYPE",.03)=""
^DD(62.801,"B","TEST",.02)=""
^DD(62.801,"B","TEST STATUS",.08)=""
^DD(62.801,"B","TYPE OF SPECIMEN",.03)="1"
^DD(62.801,"B","URGENCY",.04)=""
^DD(62.801,"GL",0,1,.01)=""
^DD(62.801,"GL",0,2,.02)=""
^DD(62.801,"GL",0,3,.03)=""
^DD(62.801,"GL",0,4,.04)=""
^DD(62.801,"GL",0,5,.05)=""
^DD(62.801,"GL",0,6,.06)=""
^DD(62.801,"GL",0,7,.07)=""
^DD(62.801,"GL",0,8,.08)=""
^DD(62.801,"GL",0,9,.09)=""
^DD(62.801,"GL",.1,1,.1)=""
^DD(62.801,"GL",1,1,1.1)=""
^DD(62.801,"GL",1,2,1.11)=""
^DD(62.801,"GL",1,3,1.13)=""
^DD(62.801,"GL",1,4,1.2)=""
^DD(62.801,"GL",1,5,1.21)=""
^DD(62.801,"GL",1,6,1.23)=""
^DD(62.801,"GL",1,7,1.14)=""
^DD(62.801,"GL",1,8,1.24)=""
^DD(62.801,"GL",2,1,2.1)=""
^DD(62.801,"GL",2,2,2.11)=""
^DD(62.801,"GL",2,3,2.13)=""
^DD(62.801,"GL",2,4,2.2)=""
^DD(62.801,"GL",2,5,2.21)=""
^DD(62.801,"GL",2,6,2.22)=""
^DD(62.801,"GL",2,7,2.23)=""
^DD(62.801,"GL",2,8,2.3)=""
^DD(62.801,"GL",2,9,2.31)=""
^DD(62.801,"GL",2,10,2.33)=""
^DD(62.801,"GL",2,11,2.14)=""
^DD(62.801,"GL",2,12,2.24)=""
^DD(62.801,"GL",2,13,2.34)=""
^DD(62.801,"GL",5,1,5.1)=""
^DD(62.801,"GL",5,2,5.2)=""
^DD(62.801,"GL",5,3,5.3)=""
^DD(62.801,"GL",5,4,5.4)=""
^DD(62.801,"GL",5,5,5.5)=""
^DD(62.801,"GL",5,6,5.6)=""
^DD(62.801,"GL",5,7,5.7)=""
^DD(62.801,"GL",5,8,5.8)=""
^DD(62.801,"GL",5,9,5.9)=""
^DD(62.801,"IX",.01)=""
^DD(62.801,"IX",.05)=""
^DD(62.801,"RQ",.02)=""
^DD(62.801,"RQ",.08)=""
^DD(62.85,0)="FIELD^^.09^8"
^DD(62.85,0,"DDA")="N"
^DD(62.85,0,"DT")="2970707"
^DD(62.85,0,"IX","ADT",62.85,.07)=""
^DD(62.85,0,"IX","AM",62.85,.09)=""
^DD(62.85,0,"IX","ATST",62.85,.08)=""
^DD(62.85,0,"IX","ATST1",62.85,.07)=""
^DD(62.85,0,"IX","B",62.85,.01)=""
^DD(62.85,0,"NM","LAB SHIPPING EVENT")=""
^DD(62.85,0,"VR")="5.2"
^DD(62.85,0,"VRPK")="LA"
^DD(62.85,.01,0)="IDENTIFIER^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(62.85,.01,1,0)="^.1"
^DD(62.85,.01,1,1,0)="62.85^B"
^DD(62.85,.01,1,1,1)="S ^LAHM(62.85,""B"",$E(X,1,30),DA)="""""
^DD(62.85,.01,1,1,2)="K ^LAHM(62.85,""B"",$E(X,1,30),DA)"
^DD(62.85,.01,3)="Answer must be 3-30 characters in length."
^DD(62.85,.01,21,0)="^^7^7^2970702^"
^DD(62.85,.01,21,1,0)="This field will contain one of two types of identifiers."
^DD(62.85,.01,21,2,0)=" "
^DD(62.85,.01,21,3,0)="If the event relates to a shipping manifest, it will contain the shipping"
^DD(62.85,.01,21,4,0)="manifest identitier."
^DD(62.85,.01,21,5,0)=" "
^DD(62.85,.01,21,6,0)="If it relates to a laboratory test on the shipping manifest, it will contain"
^DD(62.85,.01,21,7,0)="the unique identifier (UID) of the test's accession."
^DD(62.85,.01,"DT")="2961127"
^DD(62.85,.02,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(62.85,.02,3)="Name of user initiating this event"
^DD(62.85,.02,21,0)="^^2^2^2970702^"
^DD(62.85,.02,21,1,0)="Pointer to file #200, NEW PERSON. Is the user who generated the event that"
^DD(62.85,.02,21,2,0)="is being recorded in this file."
^DD(62.85,.02,"DT")="2970508"
^DD(62.85,.03,0)="RECORD DATE/TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(62.85,.03,3)="Date/time that event was logged"
^DD(62.85,.03,21,0)="^^1^1^2970702^"
^DD(62.85,.03,21,1,0)="The date/time that this event is being recorded in the file."
^DD(62.85,.03,"DT")="2970508"
^DD(62.85,.04,0)="EVENT TYPE^RS^1:SHIPPING MANIFEST;2:ACCESSION TEST;^0;4^Q"
^DD(62.85,.04,3)="Enter what this event relates to"
^DD(62.85,.04,21,0)="^^2^2^2970702^"
^DD(62.85,.04,21,1,0)="This field describes what the event relates to. Does it reflect changes made"
^DD(62.85,.04,21,2,0)="to a shipping manifest or to an accession on the manifest. "
^DD(62.85,.04,"DT")="2970508"
^DD(62.85,.05,0)="EVENT CODE^R*P64.061'^LAB(64.061,^0;5^S DIC(""S"")=""I $P(^LAB(64.061,Y,0),U,7)=""""E"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.85,.05,3)="Select the lab code that describes this event."
^DD(62.85,.05,12)="On ""event"" type codes can be selected."
^DD(62.85,.05,12.1)="S DIC(""S"")=""I $P(^LAB(64.061,Y,0),U,7)=""""E"""""""
^DD(62.85,.05,21,0)="^^1^1^2970702^"
^DD(62.85,.05,21,1,0)="Used to describe the event that occurred. "
^DD(62.85,.05,"DT")="2970616"
^DD(62.85,.07,0)="EVENT DATE/TIME^RD^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(62.85,.07,1,0)="^.1"
^DD(62.85,.07,1,1,0)="62.85^ADT^MUMPS"
^DD(62.85,.07,1,1,1)="D ADT^LREVENT"
^DD(62.85,.07,1,1,2)="D KADT^LREVENT"
^DD(62.85,.07,1,1,"%D",0)="^^6^6^2970602^"
^DD(62.85,.07,1,1,"%D",1,0)="This MUMPS type cross reference stores the events for a particular"
^DD(62.85,.07,1,1,"%D",2,0)="shipping manifest by the inverse event date/time.  It is used to sort"
^DD(62.85,.07,1,1,"%D",3,0)="events in reverse chronological order.  The format for the resulting cross"
^DD(62.85,.07,1,1,"%D",4,0)="reference node is as follows:"
^DD(62.85,.07,1,1,"%D",5,0)=" "
^DD(62.85,.07,1,1,"%D",6,0)=" ^LAHM(62.85,""ADT"",Associated Manifest,Inverse Event Date/Time,IEN)="""""
^DD(62.85,.07,1,1,"DT")="2970527"
^DD(62.85,.07,1,2,0)="62.85^ATST1^MUMPS"
^DD(62.85,.07,1,2,1)="D ATST1^LREVENT"
^DD(62.85,.07,1,2,2)="D KATST1^LREVENT"
^DD(62.85,.07,1,2,"%D",0)="^^5^5^2970602^^"
^DD(62.85,.07,1,2,"%D",1,0)="This MUMPS cross reference lists events by test and by the inverse"
^DD(62.85,.07,1,2,"%D",2,0)="date/time of the event.  This list is used for sorting.  The format for"
^DD(62.85,.07,1,2,"%D",3,0)="the resulting cross reference node is as follows:"
^DD(62.85,.07,1,2,"%D",4,0)=" "
^DD(62.85,.07,1,2,"%D",5,0)=" ^LAHM(62.85,""ATST"",UID,Lab Test,Inverse Event Date/Time,IEN)="""""
^DD(62.85,.07,1,2,"DT")="2970527"
^DD(62.85,.07,3)="Enter the date/time that this event occured."
^DD(62.85,.07,21,0)="^^1^1^2970702^"
^DD(62.85,.07,21,1,0)="The date/time that the event occurred."
^DD(62.85,.07,"DT")="2970527"
^DD(62.85,.08,0)="LAB TEST^P60'^LAB(60,^0;8^Q"
^DD(62.85,.08,1,0)="^.1"
^DD(62.85,.08,1,1,0)="62.85^ATST^MUMPS"
^DD(62.85,.08,1,1,1)="D ATST^LREVENT"
^DD(62.85,.08,1,1,2)="D KATST^LREVENT"
^DD(62.85,.08,1,1,"%D",0)="^^5^5^2970602^"
^DD(62.85,.08,1,1,"%D",1,0)="This MUMPS cross reference lists events by test and by the inverse"
^DD(62.85,.08,1,1,"%D",2,0)="date/time of the event.  This list is used for sorting.  The format for"
^DD(62.85,.08,1,1,"%D",3,0)="the resulting cross reference node is as follows:"
^DD(62.85,.08,1,1,"%D",4,0)=" "
^DD(62.85,.08,1,1,"%D",5,0)=" ^LAHM(62.85,""ATST"",UID,Lab Test,Inverse Event Date/Time,IEN)="""""
^DD(62.85,.08,1,1,"DT")="2970527"
^DD(62.85,.08,3)="Enter the laboratory test associated with this event if any."
^DD(62.85,.08,21,0)="^^2^2^2970702^"
^DD(62.85,.08,21,1,0)="If this event relates to a test on an accession, the test will be recorded in"
^DD(62.85,.08,21,2,0)="this field."
^DD(62.85,.08,"DT")="2970527"
^DD(62.85,.09,0)="ASSOCIATED MANIFEST^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(62.85,.09,1,0)="^.1"
^DD(62.85,.09,1,1,0)="62.85^AM^MUMPS"
^DD(62.85,.09,1,1,1)="I $L($P(^LAHM(62.85,DA,0),""^"")) S ^LAHM(62.85,""AM"",$P(^LAHM(62.85,DA,0),""^""),X,DA)="""""
^DD(62.85,.09,1,1,2)="I $L($P(^LAHM(62.85,DA,0),""^"")) K ^LAHM(62.85,""AM"",$P(^LAHM(62.85,DA,0),""^""),X,DA)"
^DD(62.85,.09,1,1,"%D",0)="^^1^1^2970528^^^^"
^DD(62.85,.09,1,1,"%D",1,0)="Cross-reference a test event with it's associated shipping manifest."
^DD(62.85,.09,1,1,"DT")="2970528"
^DD(62.85,.09,3)="Answer must be 3-30 characters in length."
^DD(62.85,.09,21,0)="^^2^2^2970702^"
^DD(62.85,.09,21,1,0)="If the event relates to a test then the shipping manifest affected is"
^DD(62.85,.09,21,2,0)="recorded in this field."
^DD(62.85,.09,"DT")="2970528"
^DD(62.85,"B","ASSOCIATED MANIFEST",.09)=""
^DD(62.85,"B","EVENT CODE",.05)=""
^DD(62.85,"B","EVENT DATE/TIME",.07)=""
^DD(62.85,"B","EVENT TYPE",.04)=""
^DD(62.85,"B","IDENTIFIER",.01)=""
^DD(62.85,"B","LAB TEST",.08)=""
^DD(62.85,"B","RECORD DATE/TIME",.03)=""
^DD(62.85,"B","USER",.02)=""
^DD(62.85,"GL",0,1,.01)=""
^DD(62.85,"GL",0,2,.02)=""
^DD(62.85,"GL",0,3,.03)=""
^DD(62.85,"GL",0,4,.04)=""
^DD(62.85,"GL",0,5,.05)=""
^DD(62.85,"GL",0,7,.07)=""
^DD(62.85,"GL",0,8,.08)=""
^DD(62.85,"GL",0,9,.09)=""
^DD(62.85,"IX",.01)=""
^DD(62.85,"IX",.07)=""
^DD(62.85,"IX",.08)=""
^DD(62.85,"IX",.09)=""
^DD(62.85,"RQ",.01)=""
^DD(62.85,"RQ",.02)=""
^DD(62.85,"RQ",.03)=""
^DD(62.85,"RQ",.04)=""
^DD(62.85,"RQ",.05)=""
^DD(62.85,"RQ",.07)=""
^DD(62.9,0)="FIELD^^60^17"
^DD(62.9,0,"DDA")="N"
^DD(62.9,0,"DT")="2970925"
^DD(62.9,0,"IX","AC",62.9,.07)=""
^DD(62.9,0,"IX","B",62.9,.01)=""
^DD(62.9,0,"IX","C",62.9,.02)=""
^DD(62.9,0,"IX","D",62.9,.06)=""
^DD(62.9,0,"IX","E",62.9,.031)=""
^DD(62.9,0,"NM","LAB SHIPPING CONFIGURATION")=""
^DD(62.9,0,"PT",62.8,.02)=""
^DD(62.9,0,"VR")="5.2"
^DD(62.9,0,"VRPK")="LA"
^DD(62.9,0,"VRRV")="LA*5.2*46"
^DD(62.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(62.9,.01,1,0)="^.1"
^DD(62.9,.01,1,1,0)="62.9^B"
^DD(62.9,.01,1,1,1)="S ^LAHM(62.9,""B"",$E(X,1,30),DA)="""""
^DD(62.9,.01,1,1,2)="K ^LAHM(62.9,""B"",$E(X,1,30),DA)"
^DD(62.9,.01,3)="Answer must be 3-30 characters in length."
^DD(62.9,.01,21,0)="^^3^3^2970616^^"
^DD(62.9,.01,21,1,0)="This field is used to give a name to a pair of facilities that have entered"
^DD(62.9,.01,21,2,0)="into a relationship in which the collecting facility sends the host facility"
^DD(62.9,.01,21,3,0)="laboratory specimens for clinical testing."
^DD(62.9,.01,"DT")="2970604"
^DD(62.9,.02,0)="COLLECTING FACILITY^RP4'^DIC(4,^0;2^Q"
^DD(62.9,.02,1,0)="^.1^^-1"
^DD(62.9,.02,1,1,0)="62.9^C"
^DD(62.9,.02,1,1,1)="S ^LAHM(62.9,""C"",$E(X,1,30),DA)="""""
^DD(62.9,.02,1,1,2)="K ^LAHM(62.9,""C"",$E(X,1,30),DA)"
^DD(62.9,.02,1,1,"DT")="2970226"
^DD(62.9,.02,3)="Select the institution which will be collecting and shipping lab test specimens."
^DD(62.9,.02,21,0)="^^2^2^2970604^"
^DD(62.9,.02,21,1,0)="This field is used to designate the collecting facility that is part of"
^DD(62.9,.02,21,2,0)="a shipping configuration."
^DD(62.9,.02,"DT")="3020319"
^DD(62.9,.03,0)="HOST FACILITY^RP4'^DIC(4,^0;3^Q"
^DD(62.9,.03,1,0)="^.1^^0"
^DD(62.9,.03,3)="Select the institution which will be the Host facility receiving the lab test shipment."
^DD(62.9,.03,21,0)="^^2^2^2970604^"
^DD(62.9,.03,21,1,0)="This field is used to designate the host facility that is part of a"
^DD(62.9,.03,21,2,0)="shipping configuration."
^DD(62.9,.03,"DT")="3020319"
^DD(62.9,.031,0)="HOST FACILITY'S SYSTEM^RP4'^DIC(4,^0;11^Q"
^DD(62.9,.031,1,0)="^.1"
^DD(62.9,.031,1,1,0)="62.9^E"
^DD(62.9,.031,1,1,1)="S ^LAHM(62.9,""E"",$E(X,1,30),DA)="""""
^DD(62.9,.031,1,1,2)="K ^LAHM(62.9,""E"",$E(X,1,30),DA)"
^DD(62.9,.031,1,1,"%D",0)="^^2^2^2970910^"
^DD(62.9,.031,1,1,"%D",1,0)="This cross reference is used to easily identify the host facility systems"
^DD(62.9,.031,1,1,"%D",2,0)="during the LEDI setup option."
^DD(62.9,.031,1,1,"DT")="2970910"
^DD(62.9,.031,3)="Institution which has host's computer system."
^DD(62.9,.031,21,0)="^^2^2^2970813^"
^DD(62.9,.031,21,1,0)="The name of the institution which houses the computer system of the host"
^DD(62.9,.031,21,2,0)="which will be receiving the order."
^DD(62.9,.031,"DT")="2970813"
^DD(62.9,.04,0)="STATUS^S^0:INACTIVE;1:ACTIVE;^0;4^Q"
^DD(62.9,.04,1,0)="^.1^^0"
^DD(62.9,.04,3)="Enter the status of this sending/receiving combination."
^DD(62.9,.04,21,0)="^^3^3^2970604^"
^DD(62.9,.04,21,1,0)="This field is used to designate whether this shipping configuration is"
^DD(62.9,.04,21,2,0)="""active"", i.e. selectable by the user for use in building, processing"
^DD(62.9,.04,21,3,0)="and receipting shipments of laboratory test."
^DD(62.9,.04,"DT")="2970421"
^DD(62.9,.05,0)="COLLECTING FACILITY'S SPEC ID^RS^0:COLLECTING FACILITY;1:HOST FACILITY;3:SAME SYSTEM;^0;5^Q"
^DD(62.9,.05,.1)="COLLECTING FACILITY'S SPECIMEN ID SOURCE"
^DD(62.9,.05,3)="Select the source of the specimen id provided by the collector."
^DD(62.9,.05,21,0)="^^8^8^3040218^"
^DD(62.9,.05,21,1,0)="This field is used to determine the source of the specimen id (Lab UID) "
^DD(62.9,.05,21,2,0)="used to identify a specimen. It is used by the Host facility when"
^DD(62.9,.05,21,3,0)="accessioning tests requests from Collecting facilities to determine "
^DD(62.9,.05,21,4,0)="if the Host facility needs to generate a new specimen id/label or use"
^DD(62.9,.05,21,5,0)="the specimen id/label from the Collecting facility."
^DD(62.9,.05,21,6,0)=" "
^DD(62.9,.05,21,7,0)="If both the Collecting and Host facilities on operating on the same"
^DD(62.9,.05,21,8,0)="computer system then select #3 - SAME SYSTEM."
^DD(62.9,.05,"DT")="3040331"
^DD(62.9,.06,0)="COLLECTING FACILITY'S SYSTEM^P4'^DIC(4,^0;6^Q"
^DD(62.9,.06,1,0)="^.1^^0"
^DD(62.9,.06,1,1,0)="62.9^D"
^DD(62.9,.06,1,1,1)="S ^LAHM(62.9,""D"",$E(X,1,30),DA)="""""
^DD(62.9,.06,1,1,2)="K ^LAHM(62.9,""D"",$E(X,1,30),DA)"
^DD(62.9,.06,1,1,"%D",0)="^^2^2^2970910^"
^DD(62.9,.06,1,1,"%D",1,0)="This cross reference is used to easily identify the collection facilities"
^DD(62.9,.06,1,1,"%D",2,0)="during the LEDI setup."
^DD(62.9,.06,1,1,"DT")="2970910"
^DD(62.9,.06,3)="Institution which has collector's computer system."
^DD(62.9,.06,21,0)="^^2^2^2970813^^"
^DD(62.9,.06,21,1,0)="The name of the institution which houses the computer system from which"
^DD(62.9,.06,21,2,0)="the sender transmitted/sent the order."
^DD(62.9,.06,"DT")="2970805"
^DD(62.9,.07,0)="LAB MESSAGING LINK^P62.48'^LAHM(62.48,^0;7^Q"
^DD(62.9,.07,1,0)="^.1^^-1"
^DD(62.9,.07,1,2,0)="62.9^AC"
^DD(62.9,.07,1,2,1)="S ^LAHM(62.9,""AC"",$E(X,1,30),DA)="""""
^DD(62.9,.07,1,2,2)="K ^LAHM(62.9,""AC"",$E(X,1,30),DA)"
^DD(62.9,.07,1,2,"%D",0)="^^2^2^2970912^"
^DD(62.9,.07,1,2,"%D",1,0)="This cross reference is used to identify the LA7 MESSAGE CONFIGURATION"
^DD(62.9,.07,1,2,"%D",2,0)="entries in the LAB SHIPPING CONFIGURATION file (#62.9)."
^DD(62.9,.07,1,2,"DT")="2970912"
^DD(62.9,.07,3)="Enter the message configuration to link to this shipping configuration."
^DD(62.9,.07,21,0)="^.001^5^5^3011116^^^^"
^DD(62.9,.07,21,1,0)="This field is used to link a shipping configuration with an electronic"
^DD(62.9,.07,21,2,0)="transmission of shipping manifests. When a shipping manifest is shipped,"
^DD(62.9,.07,21,3,0)="this field is checked to determine if the software should transmit the orders"
^DD(62.9,.07,21,4,0)="on the manifest to the host facility. It identifies the entry in the LA7"
^DD(62.9,.07,21,5,0)="MESSAGE PARAMETER file #62.8 to use for building and transmitting the manifest."
^DD(62.9,.07,"DT")="3020319"
^DD(62.9,.08,0)="SHIPPING METHOD^P62.92'^LAHM(62.92,^0;8^Q"
^DD(62.9,.08,3)="Enter the method used to transport a shipment."
^DD(62.9,.08,21,0)="^^2^2^2970604^^"
^DD(62.9,.08,21,1,0)="This field is used to designate the method of shipment used by a shipping"
^DD(62.9,.08,21,2,0)="configuration. Examples could be courier, taxi, commercial carrier, etc."
^DD(62.9,.08,"DT")="2970604"
^DD(62.9,.09,0)="BARCODE MANIFEST^S^0:NO;1:YES;2:YES-COMPACT;^0;9^Q"
^DD(62.9,.09,3)="Should site/patient/specimen information be barcoded on shipping manifest."
^DD(62.9,.09,21,0)="^.001^9^9^3010307^^^^"
^DD(62.9,.09,21,1,0)="This field determines if site/patient/specimen information is barcoded"
^DD(62.9,.09,21,2,0)="on the shipping manifest when it has a status of ""shipped""."
^DD(62.9,.09,21,3,0)=" "
^DD(62.9,.09,21,4,0)="There are two styles of bar codes. The regular style (code=""YES""), which"
^DD(62.9,.09,21,5,0)="was released with the original version of Laboratory Electronic Data"
^DD(62.9,.09,21,6,0)="Interchange (LEDI), produces a long bar code. If the receiving site,"
^DD(62.9,.09,21,7,0)="which is reading these type of bar codes, has problems then switch to"
^DD(62.9,.09,21,8,0)="the compact style (code=""YES-COMPACT""). This will produce a shorter bar"
^DD(62.9,.09,21,9,0)="code."
^DD(62.9,.09,"DT")="3010307"
^DD(62.9,.1,0)="MANIFEST RECEIPT^S^0:NO;1:YES;^0;10^Q"
^DD(62.9,.1,3)="Should a receipt print with shipping manifest for courier to sign."
^DD(62.9,.1,21,0)="^^4^4^2970701^"
^DD(62.9,.1,21,1,0)="Allows site to have a receipt printed with a shipping manifest when the"
^DD(62.9,.1,21,2,0)="status of the manifest is ""SHIPPED"". This receipt can be used to record"
^DD(62.9,.1,21,3,0)="acknowledgment of receipt of the shipment by the courier service used to"
^DD(62.9,.1,21,4,0)="transport the specimens to the host facility."
^DD(62.9,.1,"DT")="2970701"
^DD(62.9,.11,0)="OTHER SYSTEM IDENTIFIER^F^^0;12^K:$L(X)>3!($L(X)<2)!'(X?2.3A) X"
^DD(62.9,.11,1,0)="^.1^^0"
^DD(62.9,.11,3)="Answer must be 2-3 alpha characters in length."
^DD(62.9,.11,21,0)="^.001^11^11^3040624^^^"
^DD(62.9,.11,21,1,0)="If this entry is used to communicate with a non-VA, non-DoD system,"
^DD(62.9,.11,21,2,0)="enter the 2-3 alpha character identifier used to uniquely identify"
^DD(62.9,.11,21,3,0)="this system."
^DD(62.9,.11,21,4,0)=" "
^DD(62.9,.11,21,5,0)="This identifier is used in constructing the HL7 application name and"
^DD(62.9,.11,21,6,0)="facility and resolving identification of institutions during HL7"
^DD(62.9,.11,21,7,0)="message building and processing."
^DD(62.9,.11,21,8,0)=" "
^DD(62.9,.11,21,9,0)="This field is not used when VistA is communicating with a VA or"
^DD(62.9,.11,21,10,0)="DoD facility. These facilities are identified by their VA station"
^DD(62.9,.11,21,11,0)="number or DoD DMIS ID respectively."
^DD(62.9,.11,"DT")="3040624"
^DD(62.9,.12,0)="ACCOUNT NUMBER^F^^0;13^K:$L(X)>30!($L(X)<1) X"
^DD(62.9,.12,3)="Answer must be 1-30 characters in length."
^DD(62.9,.12,21,0)="^^3^3^2970910^"
^DD(62.9,.12,21,1,0)="If the system that you are shipping to requires an account number for"
^DD(62.9,.12,21,2,0)="billing or other purposes enter the number here. It will be printed on"
^DD(62.9,.12,21,3,0)="shipping manifests and transmitted in electronic messages if applicable."
^DD(62.9,.12,"DT")="2970910"
^DD(62.9,.13,0)="INCLUDE UNCOLLECTED SPECIMENS^S^0:NO;1:YES;^0;14^Q"
^DD(62.9,.13,3)="Determines if specimens that have not arrived in lab are built on a shipping manifest"
^DD(62.9,.13,21,0)="^^6^6^2970926^^^"
^DD(62.9,.13,21,1,0)="If specimens that are still pending receipt in lab are to build on a"
^DD(62.9,.13,21,2,0)="shipping manifest then answer ""YES"". If only specimens that have been"
^DD(62.9,.13,21,3,0)="received in the lab, i.e. have a lab arrival time, are to build then"
^DD(62.9,.13,21,4,0)="answer ""NO""."
^DD(62.9,.13,21,5,0)=" "
^DD(62.9,.13,21,6,0)="If field is blank then default is ""NO""."
^DD(62.9,.13,"DT")="2970925"
^DD(62.9,.14,0)="TEST CODING SYSTEM^S^0:NLT;1:NON-VA;2:LOINC;^0;15^Q"
^DD(62.9,.14,3)="Answer with type of coding system to use for this configuration."
^DD(62.9,.14,21,0)="^.001^14^14^3011116^^^^"
^DD(62.9,.14,21,1,0)="If orders are being sent to a non-VA facility and the facility"
^DD(62.9,.14,21,2,0)="can not accept VA test order codes then answer with the type of"
^DD(62.9,.14,21,3,0)="coding system. ""NON-VA"" indicates that the other system is using"
^DD(62.9,.14,21,4,0)="a local coding system. The laboratory shipping software will then"
^DD(62.9,.14,21,5,0)="use the non-VA test codes entered for each test on this"
^DD(62.9,.14,21,6,0)="configuration."
^DD(62.9,.14,21,7,0)=" "
^DD(62.9,.14,21,8,0)="If the non-VA facility can accept VA test codes then answer ""NLT"""
^DD(62.9,.14,21,9,0)="and the software will sent VA test order codes."
^DD(62.9,.14,21,10,0)=" "
^DD(62.9,.14,21,11,0)="VA test order codes are usually NLT codes but in the future may"
^DD(62.9,.14,21,12,0)="be LOINC codes. Selecting ""LOINC"" is currently not supported."
^DD(62.9,.14,21,13,0)="Support will be added in a future version of the LEDI software"
^DD(62.9,.14,21,14,0)="when LOINC coding has been implemented within VA facilities."
^DD(62.9,.14,"DT")="2990224"
^DD(62.9,.15,0)="SPECIMEN CODING SYSTEM^S^0:HL7 TABLE 0070;1:LOCAL-NON HL7;^0;16^Q"
^DD(62.9,.15,3)="Answer with type of specimen coding system to use for this configuration."
^DD(62.9,.15,21,0)="^^11^11^3030107^^^"
^DD(62.9,.15,21,1,0)="Collecting facility:"
^DD(62.9,.15,21,2,0)="If orders are sent to a non-VA facility and the"
^DD(62.9,.15,21,3,0)="facility can not receive HL7 specimen codes from HL7"
^DD(62.9,.15,21,4,0)="table 0070 then answer with the type of coding system"
^DD(62.9,.15,21,5,0)="""LOCAL""."
^DD(62.9,.15,21,6,0)=""
^DD(62.9,.15,21,7,0)="Host facility:"
^DD(62.9,.15,21,8,0)="If orders are received from a non-VA facility and the"
^DD(62.9,.15,21,9,0)="facility can not transmit HL7 specimen codes from HL7"
^DD(62.9,.15,21,10,0)="table 0070 then answer with the type of coding system"
^DD(62.9,.15,21,11,0)="""LOCAL""."
^DD(62.9,.15,"DT")="3030107"
^DD(62.9,60,0)="TEST/PROFILE^62.9001P^^60;0"
^DD(62.9,60,21,0)="^^7^7^2970716^^"
^DD(62.9,60,21,1,0)="This multiple is used to define the tests and criteria that is used to"
^DD(62.9,60,21,2,0)="determine which tests/specimens are built on a shipping manifest used"
^DD(62.9,60,21,3,0)="by this configuration."
^DD(62.9,60,21,4,0)=" "
^DD(62.9,60,21,5,0)="If you need to have the same test in more than once to support different"
^DD(62.9,60,21,6,0)="specimen/urgency criteria then enter the test name enclosed in """" to add"
^DD(62.9,60,21,7,0)="the same test."
^DD(62.9,60,"DT")="2970915"
^DD(62.9,"B","ACCOUNT NUMBER",.12)=""
^DD(62.9,"B","BARCODE MANIFEST",.09)=""
^DD(62.9,"B","COLLECTING FACILITY",.02)=""
^DD(62.9,"B","COLLECTING FACILITY'S SPEC ID",.05)=""
^DD(62.9,"B","COLLECTING FACILITY'S SYSTEM",.06)=""
^DD(62.9,"B","HOST FACILITY",.03)=""
^DD(62.9,"B","HOST FACILITY'S SYSTEM",.031)=""
^DD(62.9,"B","INCLUDE UNCOLLECTED SPECIMENS",.13)=""
^DD(62.9,"B","LAB MESSAGING LINK",.07)=""
^DD(62.9,"B","MANIFEST RECEIPT",.1)=""
^DD(62.9,"B","NAME",.01)=""
^DD(62.9,"B","OTHER SYSTEM IDENTIFIER",.11)=""
^DD(62.9,"B","SHIPPING METHOD",.08)=""
^DD(62.9,"B","SPECIMEN CODING SYSTEM",.15)=""
^DD(62.9,"B","STATUS",.04)=""
^DD(62.9,"B","TEST CODING SYSTEM",.14)=""
^DD(62.9,"B","TEST/PROFILE",60)=""
^DD(62.9,"GL",0,1,.01)=""
^DD(62.9,"GL",0,2,.02)=""
^DD(62.9,"GL",0,3,.03)=""
^DD(62.9,"GL",0,4,.04)=""
^DD(62.9,"GL",0,5,.05)=""
^DD(62.9,"GL",0,6,.06)=""
^DD(62.9,"GL",0,7,.07)=""
^DD(62.9,"GL",0,8,.08)=""
^DD(62.9,"GL",0,9,.09)=""
^DD(62.9,"GL",0,10,.1)=""
^DD(62.9,"GL",0,11,.031)=""
^DD(62.9,"GL",0,12,.11)=""
^DD(62.9,"GL",0,13,.12)=""
^DD(62.9,"GL",0,14,.13)=""
^DD(62.9,"GL",0,15,.14)=""
^DD(62.9,"GL",0,16,.15)=""
^DD(62.9,"GL",60,0,60)=""
^DD(62.9,"IX",.01)=""
^DD(62.9,"IX",.02)=""
^DD(62.9,"IX",.031)=""
^DD(62.9,"IX",.06)=""
^DD(62.9,"IX",.07)=""
^DD(62.9,"RQ",.01)=""
^DD(62.9,"RQ",.02)=""
^DD(62.9,"RQ",.03)=""
^DD(62.9,"RQ",.031)=""
^DD(62.9,"RQ",.05)=""
^DD(62.9,"SB",62.9001,60)=""
^DD(62.9001,0)="TEST/PROFILE SUB-FIELD^^5.9^34"
^DD(62.9001,0,"DT")="2970919"
^DD(62.9001,0,"IX","B",62.9001,.01)=""
^DD(62.9001,0,"NM","TEST/PROFILE")=""
^DD(62.9001,0,"UP")="62.9"
^DD(62.9001,.01,0)="TEST/PROFILE^MP60'^LAB(60,^0;1^Q"
^DD(62.9001,.01,1,0)="^.1"
^DD(62.9001,.01,1,1,0)="62.9001^B"
^DD(62.9001,.01,1,1,1)="S ^LAHM(62.9,DA(1),60,""B"",$E(X,1,30),DA)="""""
^DD(62.9001,.01,1,1,2)="K ^LAHM(62.9,DA(1),60,""B"",$E(X,1,30),DA)"
^DD(62.9001,.01,3)="Enter the laboratory test that is used by this shipping configuration."
^DD(62.9001,.01,21,0)="^^4^4^2970604^"
^DD(62.9001,.01,21,1,0)="This field contains the laboratory test which should be built onto a shipping"
^DD(62.9001,.01,21,2,0)="manifest. Both atomic and cosmic (panel) tests can be selected. The test"
^DD(62.9001,.01,21,3,0)="on the accession must match exactly the test entered in this field. No expanding"
^DD(62.9001,.01,21,4,0)="of panels occurs."
^DD(62.9001,.01,"DT")="2970421"
^DD(62.9001,.02,0)="ACCESSION AREA^RP68'^LRO(68,^0;2^Q"
^DD(62.9001,.02,3)="Enter the accession area to search for this test."
^DD(62.9001,.02,21,0)="^^8^8^2970808^^^"
^DD(62.9001,.02,21,1,0)="COLLECTION FACILITIES:"
^DD(62.9001,.02,21,2,0)=" "
^DD(62.9001,.02,21,3,0)="This field is used to designate the accession area to check when"
^DD(62.9001,.02,21,4,0)="searching for tests to build onto a shipping manifest. If it is blank then"
^DD(62.9001,.02,21,5,0)="the building process will skip over this test."
^DD(62.9001,.02,21,6,0)=" "
^DD(62.9001,.02,21,7,0)="HOST FACILITIES:"
^DD(62.9001,.02,21,8,0)="Not used by software at host facilities."
^DD(62.9001,.02,"DT")="2970808"
^DD(62.9001,.025,0)="DIVISION^P4'^DIC(4,^0;10^Q"
^DD(62.9001,.025,3)="Enter the accession's division (?? - additional help)."
^DD(62.9001,.025,21,0)="^^11^11^3010921^"
^DD(62.9001,.025,21,1,0)="Collecting facilities:"
^DD(62.9001,.025,21,2,0)=" "
^DD(62.9001,.025,21,3,0)="If the manifest building process should only build accessions'"
^DD(62.9001,.025,21,4,0)="from a certain division on a manifest then enter the division"
^DD(62.9001,.025,21,5,0)="to screen these accessions. The division used here will be the"
^DD(62.9001,.025,21,6,0)="division associated with the user who created the accession."
^DD(62.9001,.025,21,7,0)="This field will allow a site to screen accessions from"
^DD(62.9001,.025,21,8,0)="multiple divisions, only placing on the manifest an accession"
^DD(62.9001,.025,21,9,0)="from the specified division."
^DD(62.9001,.025,21,10,0)=" "
^DD(62.9001,.025,21,11,0)="Host facilities: This field not used."
^DD(62.9001,.025,"DT")="3010921"
^DD(62.9001,.03,0)="SPECIMEN^P61'^LAB(61,^0;3^Q"
^DD(62.9001,.03,1,0)="^.1^^0"
^DD(62.9001,.03,3)="Enter the specimen type for this test. If left blank then all specimen types will be selected."
^DD(62.9001,.03,21,0)="^^5^5^2970604^"
^DD(62.9001,.03,21,1,0)="This field is used to determine if a test for a particular specimen type"
^DD(62.9001,.03,21,2,0)="should build on the shipping manifest. If left blank, i.e. no entry then"
^DD(62.9001,.03,21,3,0)="all specimens for this test are eligible for building on a shipping manifest."
^DD(62.9001,.03,21,4,0)="If a specimen type is entered then the specimen type of the accession must"
^DD(62.9001,.03,21,5,0)="match before the test is eligible for building onto a shipping manifest."
^DD(62.9001,.03,"DT")="2970811"
^DD(62.9001,.04,0)="URGENCY^*P62.05'^LAB(62.05,^0;4^S DIC(""S"")=""I Y<50"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,.04,3)="Collecting facility - if only certain urgencies are shipped, specify the accession's test urgency. Host facility - see field description (??) for information."
^DD(62.9001,.04,12)="Select regular urgencies only. Workload urgencies are excluded."
^DD(62.9001,.04,12.1)="S DIC(""S"")=""I Y<50"""
^DD(62.9001,.04,21,0)="^.001^35^35^3010911^^^^"
^DD(62.9001,.04,21,1,0)="COLLECTING FACILITIES:"
^DD(62.9001,.04,21,2,0)=""
^DD(62.9001,.04,21,3,0)="If shipping laboratory tests that are a certain"
^DD(62.9001,.04,21,4,0)="urgency, specify the urgency that must match the"
^DD(62.9001,.04,21,5,0)="test urgency of the accession for the accession/test"
^DD(62.9001,.04,21,6,0)="to be placed on the shipping manifest."
^DD(62.9001,.04,21,7,0)=" "
^DD(62.9001,.04,21,8,0)="HOST FACILITIES:"
^DD(62.9001,.04,21,9,0)=" "
^DD(62.9001,.04,21,10,0)="This field is used by LEDI software at the host"
^DD(62.9001,.04,21,11,0)="facility to determine the entry in the host site's"
^DD(62.9001,.04,21,12,0)="URGENCY file (#62.05) to use for ordering when the"
^DD(62.9001,.04,21,13,0)="host site has more than one entry in the URGENCY"
^DD(62.9001,.04,21,14,0)="file (#62.05) that maps to the same HL7 PRIORITY."
^DD(62.9001,.04,21,15,0)=" "
^DD(62.9001,.04,21,16,0)="Example: Host site has three urgencies which"
^DD(62.9001,.04,21,17,0)="         map to HL7 PRIORITY: ROUTINE (R)."
^DD(62.9001,.04,21,18,0)=""
^DD(62.9001,.04,21,19,0)=" Entry #     Name                LEDI HL7"
^DD(62.9001,.04,21,20,0)=" -------     ---------------     --------"
^DD(62.9001,.04,21,21,0)="  2          PATIENT WAITING     ROUTINE"
^DD(62.9001,.04,21,22,0)="  9          ROUTINE             ROUTINE"
^DD(62.9001,.04,21,23,0)=" 10          NO RUSH             ROUTINE"
^DD(62.9001,.04,21,24,0)=" "
^DD(62.9001,.04,21,25,0)=" If there is no mapping defined for this field,"
^DD(62.9001,.04,21,26,0)=" then the LEDI software will use the last entry"
^DD(62.9001,.04,21,27,0)=" in the URGENCY file that maps to HL7 PRIORITY:"
^DD(62.9001,.04,21,28,0)=" ROUTINE (R); workload urgencies are excluded."
^DD(62.9001,.04,21,29,0)=" In this case the test would be ordered with a"
^DD(62.9001,.04,21,30,0)=" URGENCY of NO RUSH."
^DD(62.9001,.04,21,31,0)=" "
^DD(62.9001,.04,21,32,0)=" If the host site enters a mapping in this field,"
^DD(62.9001,.04,21,33,0)=" i.e. ROUTINE then the test will be ordered using"
^DD(62.9001,.04,21,34,0)=" the host site's entry for ROUTINE in the URGENCY"
^DD(62.9001,.04,21,35,0)=" file when the HL7 PRIORITY matches."
^DD(62.9001,.04,"DT")="2970421"
^DD(62.9001,.05,0)="SPECIMEN CONTAINER^R*P62.91'^LAHM(62.91,^0;5^S DIC(""S"")=""N LA7X S LA7X=$P(^LAHM(62.91,Y,0),U,2) I LA7X>1,LA7X<4"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,.05,3)="Enter the specimen container to use for shipping purposes."
^DD(62.9001,.05,12)="Only containers of type ""PRIMARY"" or ""ALIQUOT"" can be selected."
^DD(62.9001,.05,12.1)="S DIC(""S"")=""N LA7X S LA7X=$P(^LAHM(62.91,Y,0),U,2) I LA7X>1,LA7X<4"""
^DD(62.9001,.05,21,0)="^^10^10^2970808^^"
^DD(62.9001,.05,21,1,0)="COLLECTING FACILITIES:"
^DD(62.9001,.05,21,2,0)=""
^DD(62.9001,.05,21,3,0)="The container used to hold the specimen. This could be the original collection"
^DD(62.9001,.05,21,4,0)="container or a tube/vial/jar that the specimen is transferred to prior to"
^DD(62.9001,.05,21,5,0)="shipment to another facility. It is the container that actually hold/contains"
^DD(62.9001,.05,21,6,0)="the specimen."
^DD(62.9001,.05,21,7,0)=" "
^DD(62.9001,.05,21,8,0)="HOST FACILITIES:"
^DD(62.9001,.05,21,9,0)=" "
^DD(62.9001,.05,21,10,0)="This field is presently not used by LEDI software at the host facility."
^DD(62.9001,.05,"DT")="2970604"
^DD(62.9001,.06,0)="SHIPPING CONDITION^RP62.93'^LAHM(62.93,^0;6^Q"
^DD(62.9001,.06,3)="Select the shipping condition under which this test is transported."
^DD(62.9001,.06,21,0)="^^9^9^2970808^^"
^DD(62.9001,.06,21,1,0)="COLLECTING FACILITIES:"
^DD(62.9001,.06,21,2,0)=""
^DD(62.9001,.06,21,3,0)="This field describes under what temperature/environmental condition the"
^DD(62.9001,.06,21,4,0)="specimen is to be shipped. Examples would be frozen, refrigerated or ambient"
^DD(62.9001,.06,21,5,0)="temperature."
^DD(62.9001,.06,21,6,0)=" "
^DD(62.9001,.06,21,7,0)="HOST FACILITIES:"
^DD(62.9001,.06,21,8,0)=" "
^DD(62.9001,.06,21,9,0)="This field is presently not used by LEDI software at the host facility."
^DD(62.9001,.06,"DT")="2970507"
^DD(62.9001,.07,0)="PACKAGING CONTAINER^*P62.91'^LAHM(62.91,^0;7^S DIC(""S"")=""I $P(^LAHM(62.91,Y,0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,.07,3)="Select the packaging container used to hold the specimen container during shipment."
^DD(62.9001,.07,12)="Only shipping containers of type ""PACKAGING"" can be selected."
^DD(62.9001,.07,12.1)="S DIC(""S"")=""I $P(^LAHM(62.91,Y,0),U,2)=1"""
^DD(62.9001,.07,21,0)="^^8^8^2970808^^^^"
^DD(62.9001,.07,21,1,0)="COLLECTING FACILITIES:"
^DD(62.9001,.07,21,2,0)=""
^DD(62.9001,.07,21,3,0)="This field is used to determine what packaging container a test's specimen"
^DD(62.9001,.07,21,4,0)="container is placed in when the specimen is being shipped to another facility."
^DD(62.9001,.07,21,5,0)=" "
^DD(62.9001,.07,21,6,0)="HOST FACILITIES:"
^DD(62.9001,.07,21,7,0)=" "
^DD(62.9001,.07,21,8,0)="This field is presently not used by LEDI software at the host facility."
^DD(62.9001,.07,"DT")="2970605"
^DD(62.9001,.08,0)="SPECIMEN LABEL^S^0:NO LABEL;1:PLAIN;2:CODE 39;3:CODE 39/CHECK DIGIT;4:CODE 128;^0;8^Q"
^DD(62.9001,.08,3)="Select if labels and barcodes should be printed."
^DD(62.9001,.08,21,0)="^^13^13^2970808^^^^"
^DD(62.9001,.08,21,1,0)="Field is presently NOT USED by the software. Will be utilized in a later"
^DD(62.9001,.08,21,2,0)="version of LEDI when shipping labels are implemented."
^DD(62.9001,.08,21,3,0)=" "
^DD(62.9001,.08,21,4,0)="COLLECTING FACILITIES:"
^DD(62.9001,.08,21,5,0)=""
^DD(62.9001,.08,21,6,0)="This field is used to designate if specimen labels should be printed when"
^DD(62.9001,.08,21,7,0)="a shipping manifest is built. If labels are to be printed then the type"
^DD(62.9001,.08,21,8,0)="of barcode can be designated to allow a collecting facility to tailor the"
^DD(62.9001,.08,21,9,0)="barcode type to the needs of the host facility."
^DD(62.9001,.08,21,10,0)=" "
^DD(62.9001,.08,21,11,0)="HOST FACILITIES:"
^DD(62.9001,.08,21,12,0)=" "
^DD(62.9001,.08,21,13,0)="This field is presently not used by LEDI software at the host facility."
^DD(62.9001,.08,"DT")="2970701"
^DD(62.9001,.09,0)="HOST COLLECTION SAMPLE^P62'^LAB(62,^0;9^Q"
^DD(62.9001,.09,3)="Enter the collection sample to be associated with this test."
^DD(62.9001,.09,21,0)="^^11^11^2970808^^"
^DD(62.9001,.09,21,1,0)="COLLECTING FACILITIES:"
^DD(62.9001,.09,21,2,0)=" "
^DD(62.9001,.09,21,3,0)="This field is presently not used by LEDI software at the collecting facility."
^DD(62.9001,.09,21,4,0)="  "
^DD(62.9001,.09,21,5,0)=" "
^DD(62.9001,.09,21,6,0)="HOST FACILITIES:"
^DD(62.9001,.09,21,7,0)=" "
^DD(62.9001,.09,21,8,0)="This field is used by host facility laboratories to designate the collection"
^DD(62.9001,.09,21,9,0)="sample to be used when processing electronic orders for this test/specimen"
^DD(62.9001,.09,21,10,0)="combination. It is used to build the order in file # 69.6, LAB PENDING ORDERS,"
^DD(62.9001,.09,21,11,0)="with the test/specimen/collection sample that the host facility uses."
^DD(62.9001,.09,"DT")="2970808"
^DD(62.9001,1.1,0)="REQUIRE PATIENT HEIGHT^S^0:NO;1:YES;^1;1^Q"
^DD(62.9001,1.1,3)="Is patient's height required to be sent with order for this test."
^DD(62.9001,1.1,21,0)="^.001^3^3^3011221^^^^"
^DD(62.9001,1.1,21,1,0)="Allows site to specify that the patient's height be sent with"
^DD(62.9001,1.1,21,2,0)="an order for this test. Patient's height will be prompted for"
^DD(62.9001,1.1,21,3,0)="and printed on manifest."
^DD(62.9001,1.1,"DT")="2981113"
^DD(62.9001,1.15,0)="PATIENT HEIGHT UNITS^*P64.061'^LAB(64.061,^1;2^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,1.15,12)="Only codes that are measurements are selectable."
^DD(62.9001,1.15,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(62.9001,1.15,21,0)="^^3^3^3010911^"
^DD(62.9001,1.15,21,1,0)="Units used to measure the patient's height."
^DD(62.9001,1.15,21,2,0)="Select an entry from the LAB ELECTRONIC CODE"
^DD(62.9001,1.15,21,3,0)="file (#64.061) that are measurements. "
^DD(62.9001,1.15,"DT")="2981113"
^DD(62.9001,1.16,0)="PATIENT HEIGHT CODE^*P95.3'^LAB(95.3,^1;5^S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""BODY HEIGHT"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,1.16,3)="Enter the appropriate LOINC code to identify the patient's height"
^DD(62.9001,1.16,12)="Only allow selection of LOINC codes with ""BODY HEIGHT"" component."
^DD(62.9001,1.16,12.1)="S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""BODY HEIGHT"""""""
^DD(62.9001,1.16,21,0)="^^2^2^3010911^"
^DD(62.9001,1.16,21,1,0)="Select the appropriate LOINC code to identify"
^DD(62.9001,1.16,21,2,0)="the patient's height. "
^DD(62.9001,1.16,"DT")="3010831"
^DD(62.9001,1.2,0)="REQUIRE PATIENT WEIGHT^S^0:NO;1:YES;^1;3^Q"
^DD(62.9001,1.2,21,0)="^.001^6^6^3010911^^"
^DD(62.9001,1.2,21,1,0)="Determines if the patient's weight is required"
^DD(62.9001,1.2,21,2,0)="to be sent in the HL7 ORM order message and"
^DD(62.9001,1.2,21,3,0)="printed on the shipping manifest.  Actual"
^DD(62.9001,1.2,21,4,0)="shipping and/or electronic transmission of a"
^DD(62.9001,1.2,21,5,0)="shipping manifest will check for entry of the"
^DD(62.9001,1.2,21,6,0)="patient's weight and prevent release if absent. "
^DD(62.9001,1.2,"DT")="2981113"
^DD(62.9001,1.25,0)="PATIENT WEIGHT UNITS^*P64.061'^LAB(64.061,^1;4^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,1.25,12)="Only codes that are measurements are selectable."
^DD(62.9001,1.25,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(62.9001,1.25,21,0)="^^3^3^3010911^"
^DD(62.9001,1.25,21,1,0)="Units used to measure the patient's weight."
^DD(62.9001,1.25,21,2,0)="Select an entry from the LAB ELECTRONIC CODE"
^DD(62.9001,1.25,21,3,0)="file (#64.061) that are measurements. "
^DD(62.9001,1.25,"DT")="2981113"
^DD(62.9001,1.26,0)="PATIENT WEIGHT CODE^*P95.3'^LAB(95.3,^1;6^S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""BODY WEIGHT"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,1.26,3)="Enter the appropriate LOINC code to identify the patient's weight."
^DD(62.9001,1.26,12)="Only allow selection of LOINC codes with ""BODY WEIGHT"" component."
^DD(62.9001,1.26,12.1)="S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""BODY WEIGHT"""""""
^DD(62.9001,1.26,21,0)="^^2^2^3010911^"
^DD(62.9001,1.26,21,1,0)="Select the appropriate LOINC code to identify"
^DD(62.9001,1.26,21,2,0)="the patient's weight. "
^DD(62.9001,1.26,"DT")="3010831"
^DD(62.9001,2.1,0)="REQUIRE COLLECTION VOLUME^S^0:NO;1:YES;^2;1^Q"
^DD(62.9001,2.1,21,0)="^^7^7^3010911^"
^DD(62.9001,2.1,21,1,0)="Determines if the specimen's collection volume"
^DD(62.9001,2.1,21,2,0)="is required to be sent in the HL7 ORM order"
^DD(62.9001,2.1,21,3,0)="message and printed on the shipping manifest."
^DD(62.9001,2.1,21,4,0)="Actual shipping and/or electronic transmission"
^DD(62.9001,2.1,21,5,0)="of a shipping manifest will check for entry of"
^DD(62.9001,2.1,21,6,0)="the specimen's collection volume and prevent"
^DD(62.9001,2.1,21,7,0)="release if absent. "
^DD(62.9001,2.1,"DT")="2981110"
^DD(62.9001,2.15,0)="COLLECTION VOLUME UNITS^*P64.061'^LAB(64.061,^2;2^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,2.15,12)="Only codes that are measurements are selectable."
^DD(62.9001,2.15,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(62.9001,2.15,21,0)="^.001^3^3^3011221^^"
^DD(62.9001,2.15,21,1,0)="Units used to measure the specimen's collection"
^DD(62.9001,2.15,21,2,0)="volume.  Select an entry from the LAB ELECTRONIC"
^DD(62.9001,2.15,21,3,0)="CODE file #64.061) that is a measurement. "
^DD(62.9001,2.15,"DT")="2981110"
^DD(62.9001,2.16,0)="COLLECTION VOLUME CODE^*P95.3'^LAB(95.3,^2;7^S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""SPECIMEN VOLUME"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,2.16,3)="Enter the appropriate LOINC code to identify this specimen's volume"
^DD(62.9001,2.16,12)="Only allow selection of LOINC codes with ""SPECIMEN VOLUME"" component."
^DD(62.9001,2.16,12.1)="S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""SPECIMEN VOLUME"""""""
^DD(62.9001,2.16,21,0)="^^2^2^3010911^"
^DD(62.9001,2.16,21,1,0)="Enter the appropriate LOINC code to identify"
^DD(62.9001,2.16,21,2,0)="the specimen's collection volume. "
^DD(62.9001,2.16,"DT")="3010831"
^DD(62.9001,2.2,0)="REQUIRE COLLECTION END D/T^S^0:NO;1:YES;^2;3^Q"
^DD(62.9001,2.2,21,0)="^^7^7^3010911^"
^DD(62.9001,2.2,21,1,0)="Determines if the specimen's collection end"
^DD(62.9001,2.2,21,2,0)="date/time is required to be sent in the HL7 ORM"
^DD(62.9001,2.2,21,3,0)="order message and printed on the shipping"
^DD(62.9001,2.2,21,4,0)="manifest.  Actual shipping and/or electronic"
^DD(62.9001,2.2,21,5,0)="transmission of a shipping manifest will check"
^DD(62.9001,2.2,21,6,0)="for entry of the specimen's collection end"
^DD(62.9001,2.2,21,7,0)="date/time and prevent release if absent. "
^DD(62.9001,2.2,"DT")="2980520"
^DD(62.9001,2.25,0)="COLLECTION DURATION UNITS^*P64.061'^LAB(64.061,^2;4^S DIC(""S"")=""N LA7X S LA7X=$G(^LAB(64.061,Y,0)) I $P(LA7X,U)?.(1""""s"""",1""""min"""",1""""hr""""),$P(LA7X,U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,2.25,3)=""
^DD(62.9001,2.25,12)="Only codes that are measurements and relate to time (seconds, minutes, hours) are selectable."
^DD(62.9001,2.25,12.1)="S DIC(""S"")=""N LA7X S LA7X=$G(^LAB(64.061,Y,0)) I $P(LA7X,U)?.(1""""s"""",1""""min"""",1""""hr""""),$P(LA7X,U,7)=""""M"""""""
^DD(62.9001,2.25,21,0)="^.001^4^4^3011221^^"
^DD(62.9001,2.25,21,1,0)="Units used to calculate the specimen's"
^DD(62.9001,2.25,21,2,0)="collection duration.  Select an entry from the"
^DD(62.9001,2.25,21,3,0)="LAB ELECTRONIC CODE file (#64.061) that is a"
^DD(62.9001,2.25,21,4,0)="measurement and relates to time. "
^DD(62.9001,2.25,"DT")="2980519"
^DD(62.9001,2.26,0)="COLLECTION DURATION CODE^*P95.3'^LAB(95.3,^2;8^S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""COLLECTION DURATION"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,2.26,3)="Enter the appropriate LOINC code to identify this specimen's collection duration."
^DD(62.9001,2.26,12)="Only allow selection of LOINC codes with ""COLLECTION DURATION"" component."
^DD(62.9001,2.26,12.1)="S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""COLLECTION DURATION"""""""
^DD(62.9001,2.26,21,0)="^^2^2^3010911^"
^DD(62.9001,2.26,21,1,0)="Enter the appropriate LOINC code to identify"
^DD(62.9001,2.26,21,2,0)="the specimen's collection duration. "
^DD(62.9001,2.26,"DT")="3010831"
^DD(62.9001,2.3,0)="REQUIRE COLLECTION WEIGHT^S^0:NO;1:YES;^2;5^Q"
^DD(62.9001,2.3,21,0)="^^7^7^3010911^"
^DD(62.9001,2.3,21,1,0)="Determines if the specimen's collection weight"
^DD(62.9001,2.3,21,2,0)="is required to be sent in the HL7 ORM order"
^DD(62.9001,2.3,21,3,0)="message and printed on the shipping manifest."
^DD(62.9001,2.3,21,4,0)="Actual shipping and/or electronic transmission"
^DD(62.9001,2.3,21,5,0)="of a shipping manifest will check for entry of"
^DD(62.9001,2.3,21,6,0)="the specimen's collection weight and prevent"
^DD(62.9001,2.3,21,7,0)="release if absent. "
^DD(62.9001,2.3,"DT")="2981110"
^DD(62.9001,2.35,0)="COLLECTION WEIGHT UNITS^*P64.061'^LAB(64.061,^2;6^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,2.35,12)="Only codes that are measurements are selectable."
^DD(62.9001,2.35,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(62.9001,2.35,21,0)="^^3^3^3010911^"
^DD(62.9001,2.35,21,1,0)="Units used to measure the specimen's collection weight."
^DD(62.9001,2.35,21,2,0)="Select an entry from the LAB ELECTRONIC CODE file"
^DD(62.9001,2.35,21,3,0)="( #64.061) that is a measurement. "
^DD(62.9001,2.35,"DT")="2981110"
^DD(62.9001,2.36,0)="COLLECTION WEIGHT CODE^*P95.3'^LAB(95.3,^2;9^S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""SPECIMEN MASS"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(62.9001,2.36,3)="Enter the appropriate LOINC code to identify this specimen's weight."
^DD(62.9001,2.36,12)="Only allow selection of LOINC codes with ""SPECIMEN MASS"" component."
^DD(62.9001,2.36,12.1)="S DIC(""S"")=""I $$GET1^DIQ(95.3,Y_"""","""",1)=""""SPECIMEN MASS"""""""
^DD(62.9001,2.36,21,0)="^^2^2^3010911^"
^DD(62.9001,2.36,21,1,0)="Enter the appropriate LOINC code to identify"
^DD(62.9001,2.36,21,2,0)="the specimen's collection weight. "
^DD(62.9001,2.36,"DT")="3010831"
^DD(62.9001,5.1,0)="NON-NLT TEST ORDER CODE^F^^5;1^K:$L(X)>20!($L(X)<1) X"
^DD(62.9001,5.1,3)="Answer must be 1-20 characters in length."
^DD(62.9001,5.1,21,0)="^.001^15^15^3040624^^^^"
^DD(62.9001,5.1,21,1,0)="Collecting facilities:"
^DD(62.9001,5.1,21,2,0)=""
^DD(62.9001,5.1,21,3,0)="If sending test orders to a non-VistA system use"
^DD(62.9001,5.1,21,4,0)="this field to store the test order codes used"
^DD(62.9001,5.1,21,5,0)="by the non-VistA system. It will be used when the"
^DD(62.9001,5.1,21,6,0)="TEST CODING SYSTEM field (#.14) is set to ""NON-VA""."
^DD(62.9001,5.1,21,7,0)=" "
^DD(62.9001,5.1,21,8,0)=" "
^DD(62.9001,5.1,21,9,0)="Host facilities:"
^DD(62.9001,5.1,21,10,0)=" "
^DD(62.9001,5.1,21,11,0)="If receiving test orders from a non-VistA system"
^DD(62.9001,5.1,21,12,0)="that does not use VA National Laboratory Test (NLT)"
^DD(62.9001,5.1,21,13,0)="codes use this field to map the collecting system's"
^DD(62.9001,5.1,21,14,0)="test order codes to the corresponding VistA laboratory"
^DD(62.9001,5.1,21,15,0)="test."
^DD(62.9001,5.1,"DT")="3040624"
^DD(62.9001,5.2,0)="NON-NLT TEST ORDER NAME^F^^5;2^K:$L(X)>100!($L(X)<1) X"
^DD(62.9001,5.2,3)="Answer must be 1-100 characters in length."
^DD(62.9001,5.2,21,0)="^.001^15^15^3041105^^^^"
^DD(62.9001,5.2,21,1,0)="Collecting facility:"
^DD(62.9001,5.2,21,2,0)=""
^DD(62.9001,5.2,21,3,0)="If sending test orders to a non-VistA system use"
^DD(62.9001,5.2,21,4,0)="this field to store the test order name used"
^DD(62.9001,5.2,21,5,0)="by the non-VistA system. VistA uses this test name"
^DD(62.9001,5.2,21,6,0)="to identify to the non-VistA system the ordered"
^DD(62.9001,5.2,21,7,0)="test when orders are transmitted electronically."
^DD(62.9001,5.2,21,8,0)="It will be used when the TEST CODING SYSTEM field"
^DD(62.9001,5.2,21,9,0)="(#.14) is set to ""NON-VA"". "
^DD(62.9001,5.2,21,10,0)=" "
^DD(62.9001,5.2,21,11,0)="Host facility: "
^DD(62.9001,5.2,21,12,0)=""
^DD(62.9001,5.2,21,13,0)="Not used - mapping of non-VA tests coding systems"
^DD(62.9001,5.2,21,14,0)="for test order codes is via NON-NLT TEST ORDER CODE"
^DD(62.9001,5.2,21,15,0)="field (#5.1)."
^DD(62.9001,5.2,"DT")="3041105"
^DD(62.9001,5.3,0)="NON-HL7 SPECIMEN CODE^F^^5;3^K:$L(X)>10!($L(X)<1) X"
^DD(62.9001,5.3,3)="Answer must be 1-10 characters in length"
^DD(62.9001,5.3,21,0)="^.001^22^22^3041105^^^^"
^DD(62.9001,5.3,21,1,0)="Collecting facilities:"
^DD(62.9001,5.3,21,2,0)=""
^DD(62.9001,5.3,21,3,0)="If sending test orders to a non-VistA system that"
^DD(62.9001,5.3,21,4,0)="does not use HL7 Table 0070 Specimen Source, use this"
^DD(62.9001,5.3,21,5,0)="field to store the specimen code used by the non-VistA"
^DD(62.9001,5.3,21,6,0)="system. It is only used when the value of field"
^DD(62.9001,5.3,21,7,0)="SPECIMEN CODING SYSTEM (#.15) is LOCAL-NON HL7."
^DD(62.9001,5.3,21,8,0)="It provides a means for a collecting facility to map"
^DD(62.9001,5.3,21,9,0)="non standard specimen codes to the site's TOPOGRAPHY"
^DD(62.9001,5.3,21,10,0)="FILED file (#61)."
^DD(62.9001,5.3,21,11,0)=" "
^DD(62.9001,5.3,21,12,0)=" "
^DD(62.9001,5.3,21,13,0)="Host facilities:"
^DD(62.9001,5.3,21,14,0)=" "
^DD(62.9001,5.3,21,15,0)="If receiving test orders from a non-VistA system that"
^DD(62.9001,5.3,21,16,0)="does not use HL7 Table 0070 Specimen Source, use this"
^DD(62.9001,5.3,21,17,0)="field to store the specimen code used by the non-VistA"
^DD(62.9001,5.3,21,18,0)="system. It is only used when the value of field"
^DD(62.9001,5.3,21,19,0)="SPECIMEN CODING SYSTEM (#.15) is LOCAL-NON HL7."
^DD(62.9001,5.3,21,20,0)="It provides a means for a host facility to map non"
^DD(62.9001,5.3,21,21,0)="standard specimen codes to the site's TOPOGRAPHY"
^DD(62.9001,5.3,21,22,0)="FIELD file (#61)."
^DD(62.9001,5.3,"DT")="3041105"
^DD(62.9001,5.4,0)="NON-HL7 SPECIMEN NAME^F^^5;4^K:$L(X)>30!($L(X)<1) X"
^DD(62.9001,5.4,3)="Answer must be 1-30 characters in length"
^DD(62.9001,5.4,21,0)="^.001^22^22^3041105^^^^"
^DD(62.9001,5.4,21,1,0)="Collecting facilities:"
^DD(62.9001,5.4,21,2,0)=" "
^DD(62.9001,5.4,21,3,0)="If sending test orders to a non-VistA system that"
^DD(62.9001,5.4,21,4,0)="does not use HL7 Table 0070 Specimen Source, use this"
^DD(62.9001,5.4,21,5,0)="field to store the specimen name used by the non-VistA"
^DD(62.9001,5.4,21,6,0)="system. It is only used when the value of field"
^DD(62.9001,5.4,21,7,0)="SPECIMEN CODING SYSTEM (#.15) is LOCAL-NON HL7."
^DD(62.9001,5.4,21,8,0)="It provides a means for a collecting facility to map"
^DD(62.9001,5.4,21,9,0)="non standard specimen names to the site's TOPOGRAPHY"
^DD(62.9001,5.4,21,10,0)="FIELD file (#61)."
^DD(62.9001,5.4,21,11,0)=" "
^DD(62.9001,5.4,21,12,0)=""
^DD(62.9001,5.4,21,13,0)="Host facilities:"
^DD(62.9001,5.4,21,14,0)=""
^DD(62.9001,5.4,21,15,0)="If receiving test orders from a non-VistA system that"
^DD(62.9001,5.4,21,16,0)="does not use HL7 Table 0070 Specimen Source, use this"
^DD(62.9001,5.4,21,17,0)="field to store the specimen name used by the non-VistA"
^DD(62.9001,5.4,21,18,0)="system. It is only used when the value of field"
^DD(62.9001,5.4,21,19,0)="SPECIMEN CODING SYSTEM (#.15) is LOCAL-NON HL7."
^DD(62.9001,5.4,21,20,0)="It provides a means for a host facility to map non"
^DD(62.9001,5.4,21,21,0)="standard specimen names to the site's TOPOGRAPHY"
^DD(62.9001,5.4,21,22,0)="FIELD file (#61)."
^DD(62.9001,5.4,"DT")="3041105"
^DD(62.9001,5.5,0)="NON-NLT TEST CODING SYSTEM^F^^5;5^K:$L(X)>10!($L(X)<1) X"
^DD(62.9001,5.5,3)="Answer must be 1-10 characters in length"
^DD(62.9001,5.5,21,0)="^.001^25^25^3040624^^^^"
^DD(62.9001,5.5,21,1,0)="Collecting facilities:"
^DD(62.9001,5.5,21,2,0)=" "
^DD(62.9001,5.5,21,3,0)="If sending test orders to a non-VA system that does"
^DD(62.9001,5.5,21,4,0)="not use VA National Laboratory Test (NLT) codes use"
^DD(62.9001,5.5,21,5,0)="this field to store the name of the coding system"
^DD(62.9001,5.5,21,6,0)="used by the non-VA system. It will be used when the"
^DD(62.9001,5.5,21,7,0)="TEST CODING SYSTEM field (#.14) is set to ""NON-VA""."
^DD(62.9001,5.5,21,8,0)="Name usually begins with ""99"" to indicate a local"
^DD(62.9001,5.5,21,9,0)="coding system in the HL7 Standard."
^DD(62.9001,5.5,21,10,0)=" "
^DD(62.9001,5.5,21,11,0)=" "
^DD(62.9001,5.5,21,12,0)="Host facilities:"
^DD(62.9001,5.5,21,13,0)=" "
^DD(62.9001,5.5,21,14,0)="If receiving test orders from a non-VA collecting"
^DD(62.9001,5.5,21,15,0)="facility that does not use VA NLT codes use this "
^DD(62.9001,5.5,21,16,0)="field to store the name of the coding system"
^DD(62.9001,5.5,21,17,0)="used by the non-VA system. It will be used when the"
^DD(62.9001,5.5,21,18,0)="TEST CODING SYSTEM field (#.14) is set to ""NON-VA""."
^DD(62.9001,5.5,21,19,0)="Name usually begins with ""99"" to indicate a local"
^DD(62.9001,5.5,21,20,0)="coding system in the HL7 Standard."
^DD(62.9001,5.5,21,21,0)=" "
^DD(62.9001,5.5,21,22,0)=" "
^DD(62.9001,5.5,21,23,0)="NLT test codes are standard test codes used within"
^DD(62.9001,5.5,21,24,0)="the VA system to identify orderable and reportable"
^DD(62.9001,5.5,21,25,0)="laboratory tests."
^DD(62.9001,5.5,"DT")="3040624"
^DD(62.9001,5.6,0)="NON-HL7 SPECIMEN CODING SYSTEM^F^^5;6^K:$L(X)>10!($L(X)<1) X"
^DD(62.9001,5.6,3)="Answer must be 1-10 characters in length"
^DD(62.9001,5.6,21,0)="^.001^21^21^3040624^^^"
^DD(62.9001,5.6,21,1,0)="Collecting facilities:"
^DD(62.9001,5.6,21,2,0)=" "
^DD(62.9001,5.6,21,3,0)="If sending test orders to a non-VistA system"
^DD(62.9001,5.6,21,4,0)="that does not use HL7 Table 0070 Specimen"
^DD(62.9001,5.6,21,5,0)="Source, use this field to store the name of the"
^DD(62.9001,5.6,21,6,0)="coding system used by the non-VistA system. It will"
^DD(62.9001,5.6,21,7,0)="be used when the value of field SPECIMEN CODING"
^DD(62.9001,5.6,21,8,0)="SYSTEM (#.15) is LOCAL-NON HL7. Name usually"
^DD(62.9001,5.6,21,9,0)="begins with ""99"" to indicate a local coding"
^DD(62.9001,5.6,21,10,0)="system in the HL7 Standard."
^DD(62.9001,5.6,21,11,0)=""
^DD(62.9001,5.6,21,12,0)=" "
^DD(62.9001,5.6,21,13,0)="Host facilities:"
^DD(62.9001,5.6,21,14,0)=" "
^DD(62.9001,5.6,21,15,0)="If receiving test orders from a non-VistA system"
^DD(62.9001,5.6,21,16,0)="that does not use HL7 Table 0070 Specimen Source,"
^DD(62.9001,5.6,21,17,0)="use this field to store the name of the coding"
^DD(62.9001,5.6,21,18,0)="system used by the non-VistA system. It will be used"
^DD(62.9001,5.6,21,19,0)="when the TEST CODING SYSTEM field (#.14) is set to"
^DD(62.9001,5.6,21,20,0)="""NON-VA"". Name usually begins with ""99"" to indicate"
^DD(62.9001,5.6,21,21,0)="a local coding system in the HL7 Standard."
^DD(62.9001,5.6,"DT")="3040624"
^DD(62.9001,5.7,0)="COLLECTION SAMPLE CODE^F^^5;7^K:$L(X)>10!($L(X)<1) X"
^DD(62.9001,5.7,3)="Answer must be 1-10 characters in length"
^DD(62.9001,5.7,21,0)="^^9^9^3040426^^"
^DD(62.9001,5.7,21,1,0)="Collecting facilities:"
^DD(62.9001,5.7,21,2,0)=" "
^DD(62.9001,5.7,21,3,0)="If sending test orders to a non-VA facility that also requires"
^DD(62.9001,5.7,21,4,0)="a collection sample code use this field to store the collection"
^DD(62.9001,5.7,21,5,0)="sample code used by the non-VA system. It is only used when the"
^DD(62.9001,5.7,21,6,0)="value of field SPECIMEN CODING SYSTEM (#.15) is LOCAL-NON HL7."
^DD(62.9001,5.7,21,7,0)=" "
^DD(62.9001,5.7,21,8,0)="Host facilities: used to map collecting facility's ""MI"" subcript"
^DD(62.9001,5.7,21,9,0)="test's collection sample to host site's collection sample."
^DD(62.9001,5.7,"DT")="3040426"
^DD(62.9001,5.8,0)="COLLECTION SAMPLE NAME^F^^5;8^K:$L(X)>30!($L(X)<1) X"
^DD(62.9001,5.8,3)="Answer must be 1-30 characters in length"
^DD(62.9001,5.8,21,0)="^^9^9^3040426^^"
^DD(62.9001,5.8,21,1,0)="Collecting facilities:"
^DD(62.9001,5.8,21,2,0)=" "
^DD(62.9001,5.8,21,3,0)="If sending test orders to a non-VA facility that also requires"
^DD(62.9001,5.8,21,4,0)="a collection sample name use this field to store the collection"
^DD(62.9001,5.8,21,5,0)="sample name used by the non-VA system. It is only used when the"
^DD(62.9001,5.8,21,6,0)="value of field SPECIMEN CODING SYSTEM (#.15) is LOCAL-NON HL7."
^DD(62.9001,5.8,21,7,0)=" "
^DD(62.9001,5.8,21,8,0)="Host facilities: used to map collecting facility's ""MI"" subcript"
^DD(62.9001,5.8,21,9,0)="test's collection sample to host site's collection sample."
^DD(62.9001,5.8,"DT")="3040426"
^DD(62.9001,5.9,0)="COLLECT SAMPLE SYSTEM^F^^5;9^K:$L(X)>10!($L(X)<1) X"
^DD(62.9001,5.9,3)="Answer must be 1-10 characters in length"
^DD(62.9001,5.9,21,0)="^^11^11^3040426^^"
^DD(62.9001,5.9,21,1,0)="Collecting facilities:"
^DD(62.9001,5.9,21,2,0)=" "
^DD(62.9001,5.9,21,3,0)="If sending collection sample codes/names to a non-VA facility"
^DD(62.9001,5.9,21,4,0)="use this field to store the name of the coding system used by"
^DD(62.9001,5.9,21,5,0)="the non-VA system. It will be used when the TEST CODING SYSTEM"
^DD(62.9001,5.9,21,6,0)="field (#.14) is set to ""NON-VA"".  Name usually begins with"
^DD(62.9001,5.9,21,7,0)="""99"" to indicate a local coding system in the HL7 Standard."
^DD(62.9001,5.9,21,8,0)=" "
^DD(62.9001,5.9,21,9,0)=" "
^DD(62.9001,5.9,21,10,0)="Host facilities: used to map collecting facility's ""MI"" subcript"
^DD(62.9001,5.9,21,11,0)="test's collection sample to host site's collection sample."
^DD(62.9001,5.9,"DT")="3040426"
^DD(62.9001,"B","ACCESSION AREA",.02)=""
^DD(62.9001,"B","COLLECT SAMPLE SYSTEM",5.9)=""
^DD(62.9001,"B","COLLECTION DURATION CODE",2.26)=""
^DD(62.9001,"B","COLLECTION DURATION UNITS",2.25)=""
^DD(62.9001,"B","COLLECTION SAMPLE CODE",5.7)=""
^DD(62.9001,"B","COLLECTION SAMPLE NAME",5.8)=""
^DD(62.9001,"B","COLLECTION VOLUME CODE",2.16)=""
^DD(62.9001,"B","COLLECTION VOLUME UNITS",2.15)=""
^DD(62.9001,"B","COLLECTION WEIGHT CODE",2.36)=""
^DD(62.9001,"B","COLLECTION WEIGHT UNITS",2.35)=""
^DD(62.9001,"B","DIVISION",.025)=""
^DD(62.9001,"B","HOST COLLECTION SAMPLE",.09)=""
^DD(62.9001,"B","NON-HL7 SPECIMEN CODE",5.3)=""
^DD(62.9001,"B","NON-HL7 SPECIMEN CODING SYSTEM",5.6)=""
^DD(62.9001,"B","NON-HL7 SPECIMEN NAME",5.4)=""
^DD(62.9001,"B","NON-NLT TEST CODING SYSTEM",5.5)=""
^DD(62.9001,"B","NON-NLT TEST ORDER CODE",5.1)=""
^DD(62.9001,"B","NON-NLT TEST ORDER NAME",5.2)=""
^DD(62.9001,"B","PACKAGING CONTAINER",.07)=""
^DD(62.9001,"B","PATIENT HEIGHT CODE",1.16)=""
^DD(62.9001,"B","PATIENT HEIGHT UNITS",1.15)=""
^DD(62.9001,"B","PATIENT WEIGHT CODE",1.26)=""
^DD(62.9001,"B","PATIENT WEIGHT UNITS",1.25)=""
^DD(62.9001,"B","REQUIRE COLLECTION END D/T",2.2)=""
^DD(62.9001,"B","REQUIRE COLLECTION VOLUME",2.1)=""
^DD(62.9001,"B","REQUIRE COLLECTION WEIGHT",2.3)=""
^DD(62.9001,"B","REQUIRE PATIENT HEIGHT",1.1)=""
^DD(62.9001,"B","REQUIRE PATIENT WEIGHT",1.2)=""
^DD(62.9001,"B","SHIPPING CONDITION",.06)=""
^DD(62.9001,"B","SPECIMEN",.03)=""
^DD(62.9001,"B","SPECIMEN CONTAINER",.05)=""
^DD(62.9001,"B","SPECIMEN LABEL",.08)=""
^DD(62.9001,"B","TEST/PROFILE",.01)=""
^DD(62.9001,"B","URGENCY",.04)=""
^DD(62.9001,"GL",0,1,.01)=""
^DD(62.9001,"GL",0,2,.02)=""
^DD(62.9001,"GL",0,3,.03)=""
^DD(62.9001,"GL",0,4,.04)=""
^DD(62.9001,"GL",0,5,.05)=""
^DD(62.9001,"GL",0,6,.06)=""
^DD(62.9001,"GL",0,7,.07)=""
^DD(62.9001,"GL",0,8,.08)=""
^DD(62.9001,"GL",0,9,.09)=""
^DD(62.9001,"GL",0,10,.025)=""
^DD(62.9001,"GL",1,1,1.1)=""
^DD(62.9001,"GL",1,2,1.15)=""
^DD(62.9001,"GL",1,3,1.2)=""
^DD(62.9001,"GL",1,4,1.25)=""
^DD(62.9001,"GL",1,5,1.16)=""
^DD(62.9001,"GL",1,6,1.26)=""
^DD(62.9001,"GL",2,1,2.1)=""
^DD(62.9001,"GL",2,2,2.15)=""
^DD(62.9001,"GL",2,3,2.2)=""
^DD(62.9001,"GL",2,4,2.25)=""
^DD(62.9001,"GL",2,5,2.3)=""
^DD(62.9001,"GL",2,6,2.35)=""
^DD(62.9001,"GL",2,7,2.16)=""
^DD(62.9001,"GL",2,8,2.26)=""
^DD(62.9001,"GL",2,9,2.36)=""
^DD(62.9001,"GL",5,1,5.1)=""
^DD(62.9001,"GL",5,2,5.2)=""
^DD(62.9001,"GL",5,3,5.3)=""
^DD(62.9001,"GL",5,4,5.4)=""
^DD(62.9001,"GL",5,5,5.5)=""
^DD(62.9001,"GL",5,6,5.6)=""
^DD(62.9001,"GL",5,7,5.7)=""
^DD(62.9001,"GL",5,8,5.8)=""
^DD(62.9001,"GL",5,9,5.9)=""
^DD(62.9001,"IX",.01)=""
^DD(62.9001,"RQ",.02)=""
^DD(62.9001,"RQ",.05)=""
^DD(62.9001,"RQ",.06)=""
^DD(62.91,0)="FIELD^^.02^2"
^DD(62.91,0,"DT")="2970126"
^DD(62.91,0,"IX","B",62.91,.01)=""
^DD(62.91,0,"NM","LAB SHIPPING CONTAINER")=""
^DD(62.91,0,"PT",62.801,.06)=""
^DD(62.91,0,"PT",62.801,.09)=""
^DD(62.91,0,"PT",62.9001,.05)=""
^DD(62.91,0,"PT",62.9001,.07)=""
^DD(62.91,0,"VR")="5.2"
^DD(62.91,0,"VRPK")="LA"
^DD(62.91,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(62.91,.01,1,0)="^.1"
^DD(62.91,.01,1,1,0)="62.91^B"
^DD(62.91,.01,1,1,1)="S ^LAHM(62.91,""B"",$E(X,1,30),DA)="""""
^DD(62.91,.01,1,1,2)="K ^LAHM(62.91,""B"",$E(X,1,30),DA)"
^DD(62.91,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(62.91,.01,21,0)="^^3^3^2970702^"
^DD(62.91,.01,21,1,0)="This field is used to name containers that are used by lab to ship specimens"
^DD(62.91,.01,21,2,0)="to other testing facilities. Enter the name of containers using a standard"
^DD(62.91,.01,21,3,0)="nomenclature, such as tube, plastic, 2ml."
^DD(62.91,.02,0)="TYPE^S^1:PACKAGING;2:PRIMARY;3:ALIQUOT;^0;2^Q"
^DD(62.91,.02,3)="Enter what this container is used for."
^DD(62.91,.02,21,0)="^^4^4^2970702^"
^DD(62.91,.02,21,1,0)="This field describes the type of shipping container, whether it is the original"
^DD(62.91,.02,21,2,0)="specimen container (primary), a container that the specimen is transferred for"
^DD(62.91,.02,21,3,0)="shipping purposes (aliquot) or the container which is used to ship the"
^DD(62.91,.02,21,4,0)="specimens to another facility (packaging). "
^DD(62.91,.02,"DT")="2970126"
^DD(62.91,"B","NAME",.01)=""
^DD(62.91,"B","TYPE",.02)=""
^DD(62.91,"GL",0,1,.01)=""
^DD(62.91,"GL",0,2,.02)=""
^DD(62.91,"IX",.01)=""
^DD(62.91,"RQ",.01)=""
^DD(62.92,0)="FIELD^^.01^1"
^DD(62.92,0,"IX","B",62.92,.01)=""
^DD(62.92,0,"NM","LAB SHIPPING METHOD")=""
^DD(62.92,0,"PT",62.8,.04)=""
^DD(62.92,0,"PT",62.9,.08)=""
^DD(62.92,0,"VR")="5.2"
^DD(62.92,0,"VRPK")="LA"
^DD(62.92,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(62.92,.01,1,0)="^.1"
^DD(62.92,.01,1,1,0)="62.92^B"
^DD(62.92,.01,1,1,1)="S ^LAHM(62.92,""B"",$E(X,1,30),DA)="""""
^DD(62.92,.01,1,1,2)="K ^LAHM(62.92,""B"",$E(X,1,30),DA)"
^DD(62.92,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(62.92,.01,21,0)="^^2^2^2970702^"
^DD(62.92,.01,21,1,0)="The name of the method used to ship/transport test specimens to a host"
^DD(62.92,.01,21,2,0)="facility for testing. Examples: courier, Fedex, UPS, USPS, etc."
^DD(62.92,"B","NAME",.01)=""
^DD(62.92,"GL",0,1,.01)=""
^DD(62.92,"IX",.01)=""
^DD(62.92,"RQ",.01)=""
^DD(62.93,0)="FIELD^^.02^2"
^DD(62.93,0,"DT")="2970127"
^DD(62.93,0,"IX","B",62.93,.01)=""
^DD(62.93,0,"NM","LAB SHIPPING CONDITIONS")=""
^DD(62.93,0,"PT",62.801,.07)=""
^DD(62.93,0,"PT",62.9001,.06)=""
^DD(62.93,0,"VR")="5.2"
^DD(62.93,0,"VRPK")="LA"
^DD(62.93,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(62.93,.01,1,0)="^.1"
^DD(62.93,.01,1,1,0)="62.93^B"
^DD(62.93,.01,1,1,1)="S ^LAHM(62.93,""B"",$E(X,1,30),DA)="""""
^DD(62.93,.01,1,1,2)="K ^LAHM(62.93,""B"",$E(X,1,30),DA)"
^DD(62.93,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(62.93,.01,21,0)="^^3^3^2970702^^^"
^DD(62.93,.01,21,1,0)="Enter the names of those environmental conditions under which laboratory"
^DD(62.93,.01,21,2,0)="clinical specimens are shipped to another testing facility."
^DD(62.93,.01,21,3,0)="Examples would be Refrigerated, Ambient Temperature, or Frozen."
^DD(62.93,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(62.93,.02,3)="Answer must be 1-5 characters in length."
^DD(62.93,.02,21,0)="^^1^1^2970702^"
^DD(62.93,.02,21,1,0)="An abbreviation for the shiping condition."
^DD(62.93,.02,"DT")="2970127"
^DD(62.93,"B","ABBREVIATION",.02)=""
^DD(62.93,"B","NAME",.01)=""
^DD(62.93,"GL",0,1,.01)=""
^DD(62.93,"GL",0,2,.02)=""
^DD(62.93,"IX",.01)=""
^DD(62.93,"RQ",.01)=""
^DD(63,0)="FIELD^NL^102.2^93"
^DD(63,0,"DDA")="N"
^DD(63,0,"DT")="3040205"
^DD(63,0,"ID",.02)="W:$D(^(""0"")) ""   "",$S($D(^DIC(+$P(^(""0""),U,2),0))#2:$P(^(0),U,1),1:""""),$E(^LR(Y,0),0)"
^DD(63,0,"ID",.03)="W:$D(^(""0"")) ""   "" S DA=Y,PDY=Y X ^DD(63,.03,2) W Y S Y=PDY K PDY,DA"
^DD(63,0,"IX","AAU",63,11)=""
^DD(63,0,"IX","AAUA",63,14)=""
^DD(63,0,"IX","AB",63.017,.11)=""
^DD(63,0,"IX","AC",63.34,.01)=""
^DD(63,0,"IX","ACY",63.09,.1)=""
^DD(63,0,"IX","ACYA",63.09,.06)=""
^DD(63,0,"IX","AEM",63.02,.1)=""
^DD(63,0,"IX","AEMA",63.02,.06)=""
^DD(63,0,"IX","AF",63.39,.01)=""
^DD(63,0,"IX","AG",63.43,.01)=""
^DD(63,0,"IX","AR",63.0171,.02)=""
^DD(63,0,"IX","ASP",63.08,.1)=""
^DD(63,0,"IX","ASPA",63.08,.06)=""
^DD(63,0,"IX","AZZ",63,.02)=""
^DD(63,0,"IX","B",63,.01)=""
^DD(63,0,"IX","CZZ",63,.03)=""
^DD(63,0,"NM","LAB DATA")=""
^DD(63,0,"PT",2,63)=""
^DD(63,0,"PT",60,400)=""
^DD(63,0,"PT",62.06,5)=""
^DD(63,0,"PT",62.3,63)=""
^DD(63,0,"PT",62.801,.01)=""
^DD(63,0,"PT",64.7,.01)=""
^DD(63,0,"PT",65.5,63)=""
^DD(63,0,"PT",67,63)=""
^DD(63,0,"PT",67.1,63)=""
^DD(63,0,"PT",67.2,63)=""
^DD(63,0,"PT",67.3,63)=""
^DD(63,0,"PT",68.02,.01)=""
^DD(63,0,"PT",69.01,.01)=""
^DD(63,0,"PT",69.11,3)=""
^DD(63,0,"PT",69.27,.01)=""
^DD(63,0,"PT",69.3,.01)=""
^DD(63,0,"PT",139.21,.01)=""
^DD(63,0,"PT",701,613)=""
^DD(63,0,"VR")="5.2"
^DD(63,0,"VRPK")="LR"
^DD(63,.01,0)="LRDFN^RNJ11,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(63,.01,1,0)="^.1"
^DD(63,.01,1,1,0)="63^B"
^DD(63,.01,1,1,1)="S ^LR(""B"",$E(X,1,30),DA)="""""
^DD(63,.01,1,1,2)="K ^LR(""B"",$E(X,1,30),DA)"
^DD(63,.01,1,1,"%D",0)="^^2^2^2930112^"
^DD(63,.01,1,1,"%D",1,0)="  The internal file number in the ^LR file. This is commonly known as"
^DD(63,.01,1,1,"%D",2,0)="LRDFN variable in LR* routines."
^DD(63,.01,1,1,"DT")="2930112"
^DD(63,.01,3)="Enter the application entry number."
^DD(63,.01,21,0)="^.001^1^1^3030904^^^"
^DD(63,.01,21,1,0)="The internal file number of the ""patient"" (or other entity)"
^DD(63,.01,"DEL",1,0)="I 1"
^DD(63,.01,"DT")="2930112"
^DD(63,.02,0)="PARENT FILE^R*P1'XI^DIC(^0;2^S DIC(""S"")=""I $D(^(""""%"""",""""B"""",""""LR""""))"" D ^DIC:X'?1""?"".E K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DDIFN=X"
^DD(63,.02,1,0)="^.1"
^DD(63,.02,1,1,0)="63^AZZ^MUMPS"
^DD(63,.02,1,1,1)="Q"
^DD(63,.02,1,1,2)="I '$D(DIU(0)) S DOLP=X,L1=^LR(DA,0),X=$P(L1,""^"",3) X ^DD(63,.03,1,1,2) S ^LR(DA,0)=$P(L1,""^"",1,2)_""^^""_$P(L1,""^"",4,99) K DOLP,L1,L,Q"
^DD(63,.02,4)="W !!,""Allowable Entries: "" F %II=0:0 S %II=$O(^DIC(""AC"",""LR"",%II)) Q:%II'>0  W ?20,%II,?30,$P(^DIC(%II,0),""^"",1),!"
^DD(63,.02,12)="Enter the appropriate parent you wish this entry associated with."
^DD(63,.02,12.1)="S DIC(""S"")=""I $D(^(""""%"""",""""B"""",""""LR""""))"""
^DD(63,.02,12.2)="S X=$D(^(""%"",""B"",""LR""))"
^DD(63,.02,21,0)="^^1^1^2920203^^"
^DD(63,.02,21,1,0)="The file where the name of this entry may be found."
^DD(63,.02,"DT")="3021104"
^DD(63,.03,0)="NAME^RNJ9,0XO^^0;3^I '$D(DIU(0)) S PDA=DA,PDIC=DIC,DIC(0)=""QEM"",DIC=$S($D(DDIFN):DDIFN,$D(^LR(DA,0)):+$P(^LR(DA,0),""^"",2),1:""""),DDIFN=DIC K:DIC<1 X D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDIC I $D(Y) S X=+Y K:Y'>0 X,Y I $D(Y) X ^DD(63,.03,.0001)"
^DD(63,.03,.0001)="I $D(@(^DIC(DDIFN,0,""GL"")_X_"",""""LR"""")"")),^(""LR"")'=DA K X,Y,DDIFN W ""  Already in "",^(""LR""),"" Entry."""
^DD(63,.03,1,0)="^.1"
^DD(63,.03,1,1,0)="63^CZZ^MUMPS"
^DD(63,.03,1,1,1)="S @(^DIC(+$P(^LR(DA,0),""^"",2),0,""GL"")_(+X)_"",""""LR"""")"")=DA"
^DD(63,.03,1,1,2)="N L I '$D(DIU(0)) S L=$S($D(DOLP):""^""_DOLP_""^""_X,1:^LR(DA,0)) K @(^DIC(+$P(L,""^"",2),0,""GL"")_(+X)_"",""""LR"""")"")"
^DD(63,.03,2)="S Y(0)=Y N L,L1 S L1=$S($D(D0):D0,1:"""") I L1>0 S L=^LR(L1,0),Y="""" I +$P(L,""^"",2)>0 S Y=$P($S($D(@(^DIC(+$P(L,""^"",2),0,""GL"")_(+$P(L,""^"",3))_"",0)"")):^(0),1:""""),""^"",1)"
^DD(63,.03,2.1)="N L,L1 S L1=$S($D(DA):DA,$D(D0):D0,1:"""") I L1>0 S L=^LR(L1,0),Y="""" I +$P(L,""^"",2)>0 S Y=$P($S($D(@(^DIC(+$P(L,""^"",2),0,""GL"")_(+$P(L,""^"",3))_"",0)"")):^(0),1:""""),""^"",1)"
^DD(63,.03,3)=""
^DD(63,.03,4)="S X=""?"",PDA=DA,PDIC=DIC,DIC=$S($D(DDIFN):DDIFN,$D(^LR(DA,0)):+$P(^LR(DA,0),""^"",2),1:0),DIC(0)=""QEM"" D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDI,X"
^DD(63,.03,21,0)="^^1^1^2841129^"
^DD(63,.03,21,1,0)="The internal file number in the parent file for this entry."
^DD(63,.03,"DT")="2840113"
^DD(63,.04,0)="DO NOT TRANSFUSE^S^1:DO NOT TRANSFUSE;0:OK TO TRANSFUSE;^0;4^Q"
^DD(63,.04,21,0)="^^1^1^2850830^^"
^DD(63,.04,21,1,0)="If DO NOT TRANSFUSE is entered then the patient cannot be transfused until the reason for not transfusing a blood component is resolved.  The reason can be entered in the BLOOD BANK COMMENTS field."
^DD(63,.04,"DT")="2850909"
^DD(63,.05,0)="ABO GROUP^RS^A:A;B:B;AB:AB;O:O;^0;5^Q"
^DD(63,.05,.1)="PATIENT'S ABO BLOOD TYPE"
^DD(63,.05,3)=""
^DD(63,.05,4)="W !,""Enter A for A, B for B, O for O or AB for AB"""
^DD(63,.05,21,0)="^^1^1^2880815^"
^DD(63,.05,21,1,0)="ABO blood group of patient"
^DD(63,.05,"DT")="2880815"
^DD(63,.06,0)="RH TYPE^RS^POS:POS;NEG:NEG;^0;6^Q"
^DD(63,.06,3)=""
^DD(63,.06,21,0)="^^1^1^2920203^^^^"
^DD(63,.06,21,1,0)="This is the patient's RH blood type."
^DD(63,.06,"DT")="2880815"
^DD(63,.07,0)="RBC ANTIGENS PRESENT(other)^63.13PA^^1;0"
^DD(63,.07,12)="SELECTS ONLY ANTIGENS"
^DD(63,.07,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(63,.07,21,0)="1"
^DD(63,.07,21,1,0)="Red blood cell antigens present other than ABO and Rho(D)."
^DD(63,.075,0)="ANTIBODIES IDENTIFIED^63.075PA^^1.7;0"
^DD(63,.075,12)="Selects only antibodies"
^DD(63,.075,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""""
^DD(63,.075,21,0)="^^1^1^2911126^^"
^DD(63,.075,21,1,0)="These are the patient's identified antibodies."
^DD(63,.076,0)="BLOOD BANK COMMENTS^63.076^^3;0"
^DD(63,.076,21,0)="^^1^1^2911126^^"
^DD(63,.076,21,1,0)="These are blood bank comments for this patient."
^DD(63,.08,0)="RBC ANTIGENS ABSENT(other)^63.016PA^^1.5;0"
^DD(63,.08,12)="SELECTS ONLY ANTIGENS"
^DD(63,.08,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(63,.08,21,0)="^^1^1^2920203^^^^"
^DD(63,.08,21,1,0)="Red blood cell antigens absent other than ABO & Rho(D)."
^DD(63,.084,0)="BLOOD COMPONENT REQUEST^63.084IPA^^1.8;0"
^DD(63,.084,12)="Selects only components that can be requested"
^DD(63,.084,12.1)="S DIC(""S"")=""I $P(^(0),U,15)"""
^DD(63,.084,21,0)="^^1^1^2920203^^^"
^DD(63,.084,21,1,0)="These are blood component requests."
^DD(63,.085,0)="TRANSFUSION RECORD^63.017DAI^^1.6;0"
^DD(63,.085,21,0)="^^1^1^2920203^^^^"
^DD(63,.085,21,1,0)="This is data concerning the patient's transfusion."
^DD(63,.086,0)="TRANSFUSION REACTION DATE^63.0171IDA^^1.9;0"
^DD(63,.086,21,0)="^^2^2^2921230^^^"
^DD(63,.086,21,1,0)="Transfusion reactions that cannot be assigned to a specific "
^DD(63,.086,21,2,0)="unit are entered here."
^DD(63,.086,"DT")="2921229"
^DD(63,.09,0)="HOSPITAL ID^CJ11^^ ; ^S L1=$S($D(DA):DA,$D(D0):D0,1:"""") I L1>0 S L=^LR(L1,0),X=$P($S($D(@(^DIC(+$P(L,""^"",2),0,""GL"")_(+$P(L,""^"",3))_"",0)"")):^(0),1:""""),""^"",9),X=$S(X?9N:$E(X,1,3)_""-""_$E(X,4,5)_""-""_$E(X,6,9),1:X)"
^DD(63,.09,9)="^"
^DD(63,.09,9.01)=""
^DD(63,.09,9.1)="S L1=$S($D(DA):DA,$D(D0):D0,1:"""") I L1>0 S L=^LR(L1,0),X=$P($S($D(@(^DIC(+$P(L,""^"",2),0,""GL"")_(+$P(L,""^"",3))_"",0)"")):^(0),1:""""),""^"",9),X=$S(X?9N:$E(X,1,3)_""-""_$E(X,4,5)_""-""_$E(X,6,9),1:X)"
^DD(63,.09,21,0)="^^1^1^2950927^^^^"
^DD(63,.09,21,1,0)="Computed field to present the hospital ID from the parent file."
^DD(63,.09,"DT")="2840123"
^DD(63,.091,0)="PAT. INFO.^F^^.091;1^K:$L(X)>20!($L(X)<1) X"
^DD(63,.091,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(63,.091,21,0)="^^1^1^2940510^"
^DD(63,.091,21,1,0)="Patient information"
^DD(63,.091,"DT")="2881108"
^DD(63,.092,0)="LOCATION TYPE^S^C:CLINIC;M:MODULE;W:WARD;Z:OTHER LOCATION;N:NON-CLINIC STOP;F:FILE AREA;I:IMAGING;OR:OPERATING ROOM;^.092;1^Q"
^DD(63,.092,21,0)="^^2^2^2911021^"
^DD(63,.092,21,1,0)="  This field is used for Workload Classification. Other location"
^DD(63,.092,21,2,0)="type is the default answer."
^DD(63,.092,23,0)="^^2^2^2911021^"
^DD(63,.092,23,1,0)="  This field is simular to the type field found in File #44. It is"
^DD(63,.092,23,2,0)="used to deterimin In-patient/Out-patient workload."
^DD(63,.092,"DT")="2911021"
^DD(63,.1,0)="REPORT ROUTING (LOCATION)^F^^.1;E1,19^K:$L(X)>19!($L(X)<1) X"
^DD(63,.1,3)="ANSWER MUST BE 1-19 CHARACTERS IN LENGTH"
^DD(63,.1,21,0)="^^1^1^2870207^^"
^DD(63,.1,21,1,0)="The most current location where a lab procedure was requested."
^DD(63,.101,0)="REPORT ROUTING (PROVIDER)^P200'^VA(200,^.2;1^Q"
^DD(63,.101,21,0)="^^1^1^2841129^"
^DD(63,.101,21,1,0)="The most current requesting person who requested a lab procedure."
^DD(63,.101,"DT")="2920406"
^DD(63,.11,0)="CUMULATIVE REPORT PAGES^63.03PA^^PG;0"
^DD(63,.11,21,0)="^^1^1^2870520^^^"
^DD(63,.11,21,1,0)="Current temporary (active) page numbers for the cumulative report."
^DD(63,.2,0)="HLA ANTIGENS PRESENT^63.14PA^^2;0"
^DD(63,.2,12)="SELECTS ONLY HLA ANTIGENS"
^DD(63,.2,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(63,.2,21,0)="^^2^2^2920203^^^"
^DD(63,.2,21,1,0)="These are HLA antigens associated with this"
^DD(63,.2,21,2,0)="patient."
^DD(63,.21,0)="HLA ANTIGENS ABSENT^63.141PA^^2.1;0"
^DD(63,.21,12)="Selects HLA antigens"
^DD(63,.21,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(63,.21,21,0)="^^1^1^2920203^^^"
^DD(63,.21,21,1,0)="These are HLA antigens NOT associated with this patient."
^DD(63,1,0)="BLOOD BANK^63.01DA^^BB;0"
^DD(63,1,21,0)="^^1^1^2920203^^^^"
^DD(63,1,21,1,0)="This is blood bank data on this patient."
^DD(63,2,0)="EM^63.02DA^^EM;0"
^DD(63,2,21,0)="^.001^1^1^3030306^^^^"
^DD(63,2,21,1,0)="This is patient data from electron microscopy (EM)."
^DD(63,2,"DT")="3030306"
^DD(63,4,0)="CHEM, HEM, TOX, RIA, SER, etc.^63.04D^^CH;0"
^DD(63,4,21,0)="^^1^1^2940510^"
^DD(63,4,21,1,0)="Multiple field for Chem., Hem., Tox., RIA, Ser., etc. results"
^DD(63,4,"DT")="2970616"
^DD(63,5,0)="MICROBIOLOGY^63.05DA^^MI;0"
^DD(63,5,21,0)="^^1^1^2911204^^^^"
^DD(63,5,21,1,0)="This is microbiology data associated with this patient."
^DD(63,5,"DT")="2911203"
^DD(63,8,0)="SURGICAL PATHOLOGY^63.08IDA^^SP;0"
^DD(63,8,21,0)="^.001^1^1^3030505^^^^"
^DD(63,8,21,1,0)="This is the surgical pathology for this patient."
^DD(63,9,0)="CYTOPATHOLOGY^63.09DA^^CY;0"
^DD(63,9,21,0)="^.001^2^2^3040205^^^^"
^DD(63,9,21,1,0)=""
^DD(63,9,21,2,0)="QCytopathology data associated with this patient."
^DD(63,11,0)="AUTOPSY DATE/TIME^RDX^^AU;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D D^LRAUAW K:'LR(63,12)!(LR(63,12)&(X<LR(63,12))) X I $D(X),$D(LRH(2)),$E(X,1,3)'=LRH(2) W ""   Must be for "",LRH(2)+1700,!! K X"
^DD(63,11,1,0)="^.1"
^DD(63,11,1,1,0)="63^AAU^MUMPS"
^DD(63,11,1,1,1)="S ^LR(""AAU"",X,DA)="""""
^DD(63,11,1,1,2)="K ^LR(""AAU"",X,DA)"
^DD(63,11,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63,11,4)="K DZ W ?3,""Autopsy date must be after date died "" D D^LRAUAW S Y=LR(63,12) D:Y D^LRU W:Y]"""" ""("",Y,"")"" W !"
^DD(63,11,21,0)="^^1^1^2911205^^^"
^DD(63,11,21,1,0)="This is the date/time of the autopsy."
^DD(63,11,"DT")="2881130"
^DD(63,12,0)="DATE/TIME OF DEATH^CJ19^^ ; ^S A=^LR(D0,0),B=+$P(A,U,2),C=+$P(A,U,3),A=^DIC(B,0,""GL""),Y=$S($D(@(A_C_"",.35)"")):+^(.35),1:"""") D D^LRU S X=Y"
^DD(63,12,1,0)="^.1^^0"
^DD(63,12,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63,12,9)="^"
^DD(63,12,9.01)=""
^DD(63,12,9.1)="S A=^LR(D0,0),B=+$P(A,U,2),C=+$P(A,U,3),A=^DIC(B,0,""GL""),Y=$S($D(@(A_C_"",.35)"")):+^(.35),1:"""") D D^LRU S X=Y"
^DD(63,12,21,0)="^^1^1^2911205^^"
^DD(63,12,21,1,0)="This is the date/time of death."
^DD(63,12,"DT")="2910220"
^DD(63,12.1,0)="PHYSICIAN^*P200'^VA(200,^AU;12^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63,12.1,12)="Selects active providers who hold the VA PROVIDER security key."
^DD(63,12.1,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63,12.1,21,0)="^^1^1^2911205^^"
^DD(63,12.1,21,1,0)="This is the requesting provider."
^DD(63,12.1,"DT")="2930407"
^DD(63,12.5,0)="AGE AT DEATH^F^^AU;9^K:$L(X)>30!($L(X)<1) X"
^DD(63,12.5,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63,12.5,21,0)="^^2^2^2911205^^"
^DD(63,12.5,21,1,0)="This is the age of the patient at the"
^DD(63,12.5,21,2,0)="time of death."
^DD(63,12.5,"DT")="2840313"
^DD(63,13,0)="DATE AUTOPSY REPORT COMPLETED^DX^^AU;3^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,""AU""))) X I $D(X),+^LR(DA,""AU"")>X K X W !,""Date must be after date autopsy performed ("" S Y=+^(""AU"") D D^LRU W Y,"")"""
^DD(63,13,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63,13,4)="K DZ W ?5,""AUTOPSY DATE/TIME MUST BE ENTERED"""
^DD(63,13,21,0)="^^1^1^2911205^^"
^DD(63,13,21,1,0)="This is the date the autopsy report was completed."
^DD(63,13,"DT")="2910221"
^DD(63,13.01,0)="AUTOPSY TYPIST^F^^AU;13^K:$L(X)>5!($L(X)<2) X"
^DD(63,13.01,3)="ANSWER MUST BE 2-5 CHARACTERS IN LENGTH"
^DD(63,13.01,4)="W !?5,""Enter initials of autopsy typist"""
^DD(63,13.01,21,0)="^^1^1^2930331^^"
^DD(63,13.01,21,1,0)="The name of the Autopsy typist"
^DD(63,13.01,"DT")="2860623"
^DD(63,13.1,0)="DATE FINAL AUTOPSY DIAGNOSES^DX^^AU;4^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,""AU""))) X I $D(X),+^LR(DA,""AU"")>X K X W !,""Date must be after date autopsy performed ("" S Y=+^(""AU"") D D^LRU W Y,"")"""
^DD(63,13.1,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63,13.1,4)="K DZ"
^DD(63,13.1,21,0)="^^1^1^2911205^^"
^DD(63,13.1,21,1,0)="This is the date the final autopsy diagnoses are completed."
^DD(63,13.1,"DT")="2910220"
^DD(63,13.5,0)="RESIDENT PATHOLOGIST^*P200'^VA(200,^AU;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63,13.5,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63,13.5,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63,13.5,21,0)="^^1^1^2911205^^"
^DD(63,13.5,21,1,0)="This is the resident pathologist."
^DD(63,13.5,"DT")="2930407"
^DD(63,13.6,0)="SENIOR PATHOLOGIST^*P200'^VA(200,^AU;10^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63,13.6,12)="Selects only active providers"
^DD(63,13.6,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63,13.6,21,0)="^^1^1^2911205^^"
^DD(63,13.6,21,1,0)="This is the senior pathologist."
^DD(63,13.6,"DT")="2890907"
^DD(63,13.7,0)="AUTOPSY TYPE^S^F:FULL AUTOPSY;H:HEAD ONLY;T:TRUNK ONLY;A:ABDOMEN ONLY;C:CHEST ONLY;O:OTHER LIMITATION;^AU;11^Q"
^DD(63,13.7,21,0)="^^1^1^2911203^"
^DD(63,13.7,21,1,0)="This is the autopsy type."
^DD(63,13.7,"DT")="2930928"
^DD(63,13.8,0)="AUTOPSY ASSISTANT^P200'^VA(200,^AU;2^Q"
^DD(63,13.8,21,0)="^^1^1^2920816^"
^DD(63,13.8,21,1,0)="If prosector has an assistant enter name of assistant."
^DD(63,13.8,"DT")="2920816"
^DD(63,14,0)="AUTOPSY  ACC #^RFIX^^AU;6^K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1"" ""2N1"" ""1N.N) X I $D(X),LRABV,$D(^LR(""AAUA"",$E(+$G(^LR(DA,""AU"")),1,3),LRABV,X)) W $C(7),!,X,"" is already taken for "",LRABV,! K X"
^DD(63,14,.1)=""
^DD(63,14,1,0)="^.1"
^DD(63,14,1,1,0)="63^AAUA^MUMPS"
^DD(63,14,1,1,1)="S ^LR(""AAUA"",$E(+^LR(DA,""AU""),1,3),$P(X,"" ""),$P(X,"" "",3),DA)="""""
^DD(63,14,1,1,2)="K ^LR(""AAUA"",$E(+^LR(DA,""AU""),1,3),$P(X,"" ""),$P(X,"" "",3),DA)"
^DD(63,14,1,1,"DT")="2950810"
^DD(63,14,3)="Answer must be 5-15 characters in length."
^DD(63,14,4)="W !,""Enter as prefix <space> yr <space> number (ex. AU 95 23)"""
^DD(63,14,21,0)="^^1^1^2911205^^"
^DD(63,14,21,1,0)="This is the number of this autopsy."
^DD(63,14,"DT")="2951214"
^DD(63,14.1,0)="LOCATION^FX^^AU;5^K:$L(X)>30!($L(X)<1) X I $D(X) X:X[""?"" ^DD(63,14.1,4) Q:X[""?""  S Y(0)="""",LRLLOC=X,DIC(0)=""EQMZ"",DIC=44 D ^DIC S X=$P($G(Y(0)),U,1) X:Y<1 ^DD(63,14.1,9.2) Q:'$D(X)  S:X']"""" X=""UNKNOWN"""
^DD(63,14.1,.1)="WARD OR OTHER LOCATION"
^DD(63,14.1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63,14.1,4)="S X=""?"",DIC(0)=""Q"",DIC=44 D ^DIC"
^DD(63,14.1,9.2)="K X R !?3,""Non-standard location ! OK ?  NO// "",YN:DTIME S:YN[""Y"" X=LRLLOC"
^DD(63,14.1,21,0)="^^1^1^2990108^^^"
^DD(63,14.1,21,1,0)="This is the requesting location."
^DD(63,14.1,"DT")="2990224"
^DD(63,14.5,0)="SERVICE^S^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILLARY;B:BLIND REHAB;^AU;8^Q"
^DD(63,14.5,21,0)="^^2^2^2911205^^"
^DD(63,14.5,21,1,0)="This is the service to which this patient was"
^DD(63,14.5,21,2,0)="assigned."
^DD(63,14.5,"DT")="2841204"
^DD(63,14.6,0)="TREATING SPECIALITY AT DEATH^P45.7'^DIC(45.7,^AU;14^Q"
^DD(63,14.6,21,0)="^^1^1^2921124^"
^DD(63,14.6,21,1,0)="Name of treating specialty at time of patient's death."
^DD(63,14.6,"DT")="2921103"
^DD(63,14.7,0)="AUTOPSY RELEASE DATE/TIME^DX^^AU;15^S %DT=""ETXR"",%DT(0)=""N"" D ^%DT K %DT S X=Y K:Y<1!('$D(^LR(DA,""AU""))) X I $D(X) S Y=+^LR(DA,""AU"") I 'Y!(Y>X) K X D D^LRU W !,""No AUTOPSY TIME"",!,""or AUTOPSY RELEASE TIME before AUTOPSY TIME"" W:Y]"""" "" ("",Y,"")"""
^DD(63,14.7,3)="ONLY CURRENT DATE/TIME ALLOWED"
^DD(63,14.7,4)=""
^DD(63,14.7,21,0)="^^1^1^2950908^^"
^DD(63,14.7,21,1,0)="Date and time autopsy verified."
^DD(63,14.7,"DT")="2950908"
^DD(63,14.8,0)="AUTOPSY RELEASED BY^P200'^VA(200,^AU;16^Q"
^DD(63,14.8,21,0)="^^1^1^2921124^"
^DD(63,14.8,21,1,0)="Name of person releasing verified autopsy report."
^DD(63,14.8,"DT")="2921121"
^DD(63,14.9,0)="PROVISIONAL ANAT DX DATE^DX^^AU;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P(+$G(^LR(DA,""AU"")),""."") K X W $C(7),!!,""Date must be after autopsy date."""
^DD(63,14.9,.1)="PROVISIONAL ANATOMIC DIAGNOSIS DATE"
^DD(63,14.9,21,0)="^^1^1^2960610^^"
^DD(63,14.9,21,1,0)="Date provisional anatomic diagnoses reported"
^DD(63,14.9,"DT")="2960610"
^DD(63,16,0)="BODY HEIGHT (in)^NJ2,0X^^AW;1^S Q9=""30,96,1"" D ^LRNUM"
^DD(63,16,3)="TYPE A WHOLE NUMBER BETWEEN 30 AND 96"
^DD(63,16,21,0)="^^1^1^2930331^"
^DD(63,16,21,1,0)="Height of body in inches"
^DD(63,16,"DT")="2880524"
^DD(63,17,0)="BODY WT (lb)^NJ3,0X^^AW;2^S Q9=""30,700,0"" D ^LRNUM"
^DD(63,17,3)="TYPE A WHOLE NUMBER BETWEEN 30 AND 700"
^DD(63,17,21,0)="^^1^1^2930331^"
^DD(63,17,21,1,0)="Weight of body in pounds"
^DD(63,17,"DT")="2880524"
^DD(63,18,0)="LUNG,RT (gm)^NJ5,0X^^AW;3^S Q9=""50,10000,0"" D ^LRNUM"
^DD(63,18,3)="TYPE A WHOLE NUMBER BETWEEN 50 AND 10000"
^DD(63,18,21,0)="^^1^1^2930331^"
^DD(63,18,21,1,0)="Right lung"
^DD(63,18,"DT")="2880524"
^DD(63,19,0)="LUNG,LT (gm)^NJ5,0X^^AW;4^S Q9=""50,10000,0"" D ^LRNUM"
^DD(63,19,3)="TYPE A WHOLE NUMBER BETWEEN 50 AND 10000"
^DD(63,19,21,0)="^^1^1^2930331^"
^DD(63,19,21,1,0)="Left lung"
^DD(63,19,"DT")="2880929"
^DD(63,20,0)="LIVER (gm)^NJ5,0X^^AW;5^S Q9=""100,15000,0"" D ^LRNUM"
^DD(63,20,3)="TYPE A WHOLE NUMBER BETWEEN 100 AND 15000"
^DD(63,20,21,0)="^^1^1^2930331^"
^DD(63,20,21,1,0)="Body organ"
^DD(63,20,"DT")="2880524"
^DD(63,21,0)="SPLEEN (gm)^NJ5,0X^^AW;6^S Q9=""1,15000,0"" D ^LRNUM"
^DD(63,21,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 15000"
^DD(63,21,21,0)="^^1^1^2930331^"
^DD(63,21,21,1,0)="Body organ"
^DD(63,21,"DT")="2880524"
^DD(63,22,0)="KIDNEY,RT (gm)^NJ5,0X^^AW;7^S Q9=""1,10000,0"" D ^LRNUM"
^DD(63,22,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 10000"
^DD(63,22,21,0)="^^1^1^2930331^"
^DD(63,22,21,1,0)="Right kidney"
^DD(63,22,"DT")="2880524"
^DD(63,23,0)="KIDNEY,LT (gm)^NJ5,0X^^AW;8^S Q9=""1,10000,0"" D ^LRNUM"
^DD(63,23,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 10000"
^DD(63,23,21,0)="^^1^1^2930331^"
^DD(63,23,21,1,0)="Left kidney"
^DD(63,23,"DT")="2880524"
^DD(63,24,0)="HEART (gm)^NJ4,0X^^AW;9^S Q9=""100,2000,0"" D ^LRNUM"
^DD(63,24,3)="TYPE A WHOLE NUMBER BETWEEN 100 AND 2000"
^DD(63,24,21,0)="^^1^1^2930331^"
^DD(63,24,21,1,0)="Body organ"
^DD(63,24,"DT")="2880524"
^DD(63,25,0)="BRAIN (gm)^NJ4,0X^^AW;10^S Q9=""1,2000,0"" D ^LRNUM"
^DD(63,25,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 2000"
^DD(63,25,21,0)="^^1^1^2940510^^"
^DD(63,25,21,1,0)="Body organ"
^DD(63,25,"DT")="2880524"
^DD(63,25.1,0)="PITUITARY GLAND (gm)^NJ6,3X^^AW;11^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.1,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.1,21,0)="^^1^1^2940510^"
^DD(63,25.1,21,1,0)="Body organ"
^DD(63,25.1,"DT")="2880524"
^DD(63,25.2,0)="THYROID GLAND (gm)^NJ6,3X^^AW;12^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.2,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.2,21,0)="^^1^1^2940510^"
^DD(63,25.2,21,1,0)="Body organ"
^DD(63,25.2,"DT")="2880524"
^DD(63,25.3,0)="PARATHYROID, LEFT  UPPER (gm)^NJ6,3X^^AW;13^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.3,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.3,21,0)="^^1^1^2930331^"
^DD(63,25.3,21,1,0)="Left upper parathyroid"
^DD(63,25.3,"DT")="2880524"
^DD(63,25.4,0)="PARATHYROID, LEFT  LOWER (gm)^NJ6,3X^^AW;14^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.4,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.4,21,0)="^^1^1^2930331^"
^DD(63,25.4,21,1,0)="Left lower parathyroid"
^DD(63,25.4,"DT")="2880524"
^DD(63,25.5,0)="PARATHYROID, RIGHT UPPER (gm)^NJ6,3X^^AW;15^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.5,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.5,21,0)="^^1^1^2930331^"
^DD(63,25.5,21,1,0)="Right upper parathyroid"
^DD(63,25.5,"DT")="2880524"
^DD(63,25.6,0)="PARATHYROID, RIGHT LOWER (gm)^NJ6,3X^^AW;16^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.6,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.6,21,0)="^^1^1^2930331^"
^DD(63,25.6,21,1,0)="Right lower parathyroid"
^DD(63,25.6,"DT")="2880524"
^DD(63,25.7,0)="ADRENAL, LEFT (gm)^NJ6,3X^^AW;17^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.7,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.7,21,0)="^^1^1^2930331^"
^DD(63,25.7,21,1,0)="Left adrenal"
^DD(63,25.7,"DT")="2880524"
^DD(63,25.8,0)="ADRENAL, RIGHT (gm)^NJ6,3X^^AW;18^S Q9=""0,99,3"" D ^LRNUM"
^DD(63,25.8,3)="Enter weight in grams (ex. 1.5 =1.5 grams)"
^DD(63,25.8,21,0)="^^1^1^2930331^"
^DD(63,25.8,21,1,0)="Right adrenal"
^DD(63,25.8,"DT")="2880524"
^DD(63,25.9,0)="PANCREAS (gm)^NJ3,0X^^AWI;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63,25.9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63,25.9,21,0)="^^1^1^2930331^"
^DD(63,25.9,21,1,0)="Body organ"
^DD(63,25.9,"DT")="2880524"
^DD(63,25.91,0)="TESTIS, LEFT (gm)^NJ5,1X^^AWI;2^S Q9=""0,500,1"" D ^LRNUM"
^DD(63,25.91,3)="TYPE A NUMBER BETWEEN 0 AND 500"
^DD(63,25.91,21,0)="^^1^1^2930331^"
^DD(63,25.91,21,1,0)="Left testis"
^DD(63,25.91,"DT")="2880524"
^DD(63,25.92,0)="TESTIS, RIGHT (gm)^NJ5,1X^^AWI;3^S Q9=""0,500,1"" D ^LRNUM"
^DD(63,25.92,3)="TYPE A NUMBER BETWEEN 0 AND 500"
^DD(63,25.92,21,0)="^^1^1^2930331^"
^DD(63,25.92,21,1,0)="Right testis"
^DD(63,25.92,"DT")="2880524"
^DD(63,25.93,0)="OVARY, LEFT (gm)^NJ5,1X^^AWI;4^S Q9=""0,500,1"" D ^LRNUM"
^DD(63,25.93,3)="TYPE A NUMBER BETWEEN 0 AND 500"
^DD(63,25.93,21,0)="^^1^1^2930331^"
^DD(63,25.93,21,1,0)="Left ovary"
^DD(63,25.93,"DT")="2880524"
^DD(63,25.94,0)="OVARY, RIGHT (gm)^NJ5,1X^^AWI;5^S Q9=""0,500,1"" D ^LRNUM"
^DD(63,25.94,3)="TYPE A NUMBER BETWEEN 0 AND 500"
^DD(63,25.94,21,0)="^^1^1^2930331^"
^DD(63,25.94,21,1,0)="Right ovary"
^DD(63,25.94,"DT")="2880524"
^DD(63,26,0)="TRICUSPID VALVE (cm)^NJ4,1X^^AV;1^S Q9=""1,20,1"" D ^LRNUM"
^DD(63,26,3)="TYPE A NUMBER BETWEEN 1 AND 20"
^DD(63,26,21,0)="^^1^1^2940510^"
^DD(63,26,21,1,0)="Body organ"
^DD(63,26,"DT")="2880524"
^DD(63,27,0)="PULMONIC VALVE (cm)^NJ4,1X^^AV;2^S Q9=""1,20,1"" D ^LRNUM"
^DD(63,27,3)="TYPE A NUMBER BETWEEN 1 AND 20"
^DD(63,27,21,0)="^^1^1^2940510^"
^DD(63,27,21,1,0)="Body organ"
^DD(63,27,"DT")="2880524"
^DD(63,28,0)="MITRAL VALVE (cm)^NJ4,1X^^AV;3^S Q9=""1,20,1"" D ^LRNUM"
^DD(63,28,3)="TYPE A NUMBER BETWEEN 1 AND 20"
^DD(63,28,21,0)="^^1^1^2940510^"
^DD(63,28,21,1,0)="Body organ"
^DD(63,28,"DT")="2880524"
^DD(63,29,0)="AORTIC VALVE (cm)^NJ4,1X^^AV;4^S Q9=""1,20,1"" D ^LRNUM"
^DD(63,29,3)="TYPE A NUMBER BETWEEN 1 AND 20"
^DD(63,29,21,0)="^^1^1^2940510^"
^DD(63,29,21,1,0)="Body organ"
^DD(63,29,"DT")="2880524"
^DD(63,30,0)="RIGHT VENTRICLE (cm)^NJ4,2X^^AV;5^S Q9=""0,5,2"" D ^LRNUM"
^DD(63,30,3)="TYPE A NUMBER BETWEEN 0 AND 5"
^DD(63,30,21,0)="^^1^1^2940510^"
^DD(63,30,21,1,0)="Body organ"
^DD(63,30,"DT")="2880524"
^DD(63,31,0)="LEFT VENTRICLE (cm)^NJ4,2X^^AV;6^S Q9=""0,9,2"" D ^LRNUM"
^DD(63,31,3)="TYPE A NUMBER BETWEEN 0 AND 9"
^DD(63,31,21,0)="^^1^1^2940510^"
^DD(63,31,21,1,0)="Body organ"
^DD(63,31,"DT")="2880524"
^DD(63,31.1,0)="PLEURAL CAVITY, LEFT (ml)^NJ5,0X^^AV;7^S Q9=""0,99999,0"" D ^LRNUM"
^DD(63,31.1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(63,31.1,21,0)="^^1^1^2930331^"
^DD(63,31.1,21,1,0)="Left pleural cavity"
^DD(63,31.1,"DT")="2880524"
^DD(63,31.2,0)="PLEURAL CAVITY, RIGHT (ml)^NJ5,0X^^AV;8^S Q9=""0,99999,0"" D ^LRNUM"
^DD(63,31.2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(63,31.2,21,0)="^^1^1^2930331^"
^DD(63,31.2,21,1,0)="Right pleural cavity"
^DD(63,31.2,"DT")="2880524"
^DD(63,31.3,0)="PERICARDIAL CAVITY (ml)^NJ5,0X^^AV;9^S Q9=""0,99999,0"" D ^LRNUM"
^DD(63,31.3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(63,31.3,21,0)="^^1^1^2940510^"
^DD(63,31.3,21,1,0)="Body organ"
^DD(63,31.3,"DT")="2880524"
^DD(63,31.4,0)="PERITONEAL CAVITY (ml)^NJ5,0X^^AV;10^S Q9=""0,99999,0"" D ^LRNUM"
^DD(63,31.4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(63,31.4,21,0)="^^1^1^2940510^"
^DD(63,31.4,21,1,0)="Body organ"
^DD(63,31.4,"DT")="2880524"
^DD(63,32,0)="AUTOPSY ORGAN/TISSUE^63.2PA^^AY;0"
^DD(63,32,12)="Selects where appropriate sex specific organ or tissue."
^DD(63,32,12.1)="S DIC(""S"")=""I SEX[$P(^(0),U,3)"""
^DD(63,32,21,0)="^^1^1^2950523^^^^"
^DD(63,32,21,1,0)="These are the organ/tissue(s) examined."
^DD(63,32.1,0)="AUTOPSY COMMENTS^63.97A^^AZC;0"
^DD(63,32.1,21,0)="^^1^1^2911205^^^"
^DD(63,32.1,21,1,0)="These are comments on the autopsy."
^DD(63,32.2,0)="CLINICAL DIAGNOSES^63.322^^81;0"
^DD(63,32.2,21,0)="^.001^1^1^3010424^^^^"
^DD(63,32.2,21,1,0)="These are the clinical diagnoses."
^DD(63,32.3,0)="PATHOLOGICAL DIAGNOSES^63.323^^82;0"
^DD(63,32.3,21,0)="^^1^1^2911203^"
^DD(63,32.3,21,1,0)="These are the pathological diagnoses."
^DD(63,32.4,0)="AUTOPSY SUPPLEMENTARY REPORT^63.324DA^^84;0"
^DD(63,32.4,21,0)="^.001^1^1^3011031^^^^"
^DD(63,32.4,21,1,0)="Multiple for autopsy supplementary report"
^DD(63,33,0)="AUTOPSY SPECIMEN^63.033A^^33;0"
^DD(63,33,21,0)="^^2^2^2920205^"
^DD(63,33,21,1,0)="Autopsy organs and tissues are entered here for block and slide "
^DD(63,33,21,2,0)="preparation, label printing and workload."
^DD(63,80,0)="AUTOPSY ICD9CM CODE^63.808PA^^80;0"
^DD(63,80,21,0)="^^1^1^2911205^^"
^DD(63,80,21,1,0)="These are the ICD9CM codes on this autopsy."
^DD(63,83.1,0)="MAJOR DIAGNOSTIC DISAGREEMENT^RS^0:NO;1:YES;^83;1^Q"
^DD(63,83.1,21,0)="^^2^2^2870212^"
^DD(63,83.1,21,1,0)="If major diagnostic disagreements between autopsy and clinical findings"
^DD(63,83.1,21,2,0)=" enter 'YES' else enter 'NO'."
^DD(63,83.1,"DT")="2870212"
^DD(63,83.2,0)="CLINICAL DIAGNOSIS CLARIFIED^S^1:YES;0:NO;2:CONFIRMED;^83;2^Q"
^DD(63,83.2,21,0)="^^2^2^2870212^"
^DD(63,83.2,21,1,0)="If clinical dx insufficient (ex. intracranial hemorrhage) did autopsy"
^DD(63,83.2,21,2,0)=" clarify the dx (ex. ruptured aneurysm) ?"
^DD(63,83.2,"DT")="2870213"
^DD(63,99,0)="AUTOPSY QA CODE^63.999PA^^99;0"
^DD(63,99,12)="Selects entries with less than 3 characters"
^DD(63,99,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"""
^DD(63,99,21,0)="^^1^1^2940510^"
^DD(63,99,21,1,0)="Multiple for autopsy quality assurance code"
^DD(63,100,0)="ARCHIVE REFERENCE^63.99A^^T;0"
^DD(63,100,21,0)="^^1^1^2911205^^"
^DD(63,100,21,1,0)="These are references to archiving information."
^DD(63,101,0)="TIU REFERENCE DATE/TIME - AU^63.101DA^^101;0"
^DD(63,101,21,0)="^.001^3^3^3021028^^^^"
^DD(63,101,21,1,0)="This multiple stores TIU information for corresponding SF515 autopsy reports"
^DD(63,101,21,2,0)="that have been electronically signed and stored in TIU.  This information is"
^DD(63,101,21,3,0)="used to access the reports in TIU."
^DD(63,101,"DT")="3010828"
^DD(63,102,0)="DATE REPORT MODIFIED - AU^D^^102;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63,102,21,0)="^^2^2^3020107^"
^DD(63,102,21,1,0)="This is the date the report was modified if it was modified after it was"
^DD(63,102,21,2,0)="electronically signed/released."
^DD(63,102,"DT")="3011130"
^DD(63,102.1,0)="PERSON MODIFYING TEXT^P200'^VA(200,^102;2^Q"
^DD(63,102.1,21,0)="^^2^2^3020107^"
^DD(63,102.1,21,1,0)="Stores the DUZ of the person who modified the report AFTER it was"
^DD(63,102.1,21,2,0)="electronically signed/released."
^DD(63,102.1,"DT")="3011130"
^DD(63,102.2,0)="DIAGNOSIS MODIFIED^S^1:YES;0:NO;^102;3^Q"
^DD(63,102.2,21,0)="^^1^1^3020107^"
^DD(63,102.2,21,1,0)="1 = Diagnosis modified AFTER report was electronically signed/released."
^DD(63,102.2,"DT")="3011130"
^DD(63,"B","ABO GROUP",.05)=""
^DD(63,"B","ADRENAL, LEFT (gm)",25.7)=""
^DD(63,"B","ADRENAL, RIGHT (gm)",25.8)=""
^DD(63,"B","AGE AT DEATH",12.5)=""
^DD(63,"B","ANTIBODIES IDENTIFIED",.075)=""
^DD(63,"B","AORTIC VALVE (cm)",29)=""
^DD(63,"B","ARCHIVE REFERENCE",100)=""
^DD(63,"B","AUTOPSY  ACC #",14)=""
^DD(63,"B","AUTOPSY ASSISTANT",13.8)=""
^DD(63,"B","AUTOPSY COMMENTS",32.1)=""
^DD(63,"B","AUTOPSY DATE/TIME",11)=""
^DD(63,"B","AUTOPSY ICD9CM CODE",80)=""
^DD(63,"B","AUTOPSY ORGAN/TISSUE",32)=""
^DD(63,"B","AUTOPSY QA CODE",99)=""
^DD(63,"B","AUTOPSY RELEASE DATE/TIME",14.7)=""
^DD(63,"B","AUTOPSY RELEASED BY",14.8)=""
^DD(63,"B","AUTOPSY SPECIMEN",33)=""
^DD(63,"B","AUTOPSY SUPPLEMENTARY REPORT",32.4)=""
^DD(63,"B","AUTOPSY TYPE",13.7)=""
^DD(63,"B","AUTOPSY TYPIST",13.01)=""
^DD(63,"B","BLOOD BANK",1)=""
^DD(63,"B","BLOOD BANK COMMENTS",.076)=""
^DD(63,"B","BLOOD COMPONENT REQUEST",.084)=""
^DD(63,"B","BODY HEIGHT (in)",16)=""
^DD(63,"B","BODY WT (lb)",17)=""
^DD(63,"B","BRAIN (gm)",25)=""
^DD(63,"B","CHEM, HEM, TOX, RIA, SER, etc.",4)=""
^DD(63,"B","CLINICAL DIAGNOSES",32.2)=""
^DD(63,"B","CLINICAL DIAGNOSIS CLARIFIED",83.2)=""
^DD(63,"B","CUMULATIVE REPORT PAGES",.11)=""
^DD(63,"B","CYTOPATHOLOGY",9)=""
^DD(63,"B","DATE AUTOPSY REPORT COMPLETED",13)=""
^DD(63,"B","DATE FINAL AUTOPSY DIAGNOSES",13.1)=""
^DD(63,"B","DATE REPORT MODIFIED - AU",102)=""
^DD(63,"B","DATE/TIME OF DEATH",12)=""
^DD(63,"B","DIAGNOSIS MODIFIED",102.2)=""
^DD(63,"B","DO NOT TRANSFUSE",.04)=""
^DD(63,"B","EM",2)=""
^DD(63,"B","HEART (gm)",24)=""
^DD(63,"B","HLA ANTIGENS ABSENT",.21)=""
^DD(63,"B","HLA ANTIGENS PRESENT",.2)=""
^DD(63,"B","HOSPITAL ID",.09)=""
^DD(63,"B","KIDNEY,LT (gm)",23)=""
^DD(63,"B","KIDNEY,RT (gm)",22)=""
^DD(63,"B","LEFT VENTRICLE (cm)",31)=""
^DD(63,"B","LIVER (gm)",20)=""
^DD(63,"B","LOCATION",14.1)=""
^DD(63,"B","LOCATION TYPE",.092)=""
^DD(63,"B","LRDFN",.01)=""
^DD(63,"B","LUNG,LT (gm)",19)=""
^DD(63,"B","LUNG,RT (gm)",18)=""
^DD(63,"B","MAJOR DIAGNOSTIC DISAGREEMENT",83.1)=""
^DD(63,"B","MICROBIOLOGY",5)=""
^DD(63,"B","MITRAL VALVE (cm)",28)=""
^DD(63,"B","NAME",.03)=""
^DD(63,"B","OVARY, LEFT (gm)",25.93)=""
^DD(63,"B","OVARY, RIGHT (gm)",25.94)=""
^DD(63,"B","PANCREAS (gm)",25.9)=""
^DD(63,"B","PARATHYROID, LEFT  LOWER (gm)",25.4)=""
^DD(63,"B","PARATHYROID, LEFT  UPPER (gm)",25.3)=""
^DD(63,"B","PARATHYROID, RIGHT LOWER (gm)",25.6)=""
^DD(63,"B","PARATHYROID, RIGHT UPPER (gm)",25.5)=""
^DD(63,"B","PARENT FILE",.02)=""
^DD(63,"B","PAT. INFO.",.091)=""
^DD(63,"B","PATHOLOGICAL DIAGNOSES",32.3)=""
^DD(63,"B","PATIENT'S ABO BLOOD TYPE",.05)="1"
^DD(63,"B","PERICARDIAL CAVITY (ml)",31.3)=""
^DD(63,"B","PERITONEAL CAVITY (ml)",31.4)=""
^DD(63,"B","PERSON MODIFYING TEXT",102.1)=""
^DD(63,"B","PHYSICIAN",12.1)=""
^DD(63,"B","PITUITARY GLAND (gm)",25.1)=""
^DD(63,"B","PLEURAL CAVITY, LEFT (ml)",31.1)=""
^DD(63,"B","PLEURAL CAVITY, RIGHT (ml)",31.2)=""
^DD(63,"B","PROVISIONAL ANAT DX DATE",14.9)=""
^DD(63,"B","PULMONIC VALVE (cm)",27)=""
^DD(63,"B","RBC ANTIGENS ABSENT(other)",.08)=""
^DD(63,"B","RBC ANTIGENS PRESENT(other)",.07)=""
^DD(63,"B","REPORT ROUTING (LOCATION)",.1)=""
^DD(63,"B","REPORT ROUTING (PROVIDER)",.101)=""
^DD(63,"B","RESIDENT PATHOLOGIST",13.5)=""
^DD(63,"B","RH TYPE",.06)=""
^DD(63,"B","RIGHT VENTRICLE (cm)",30)=""
^DD(63,"B","SENIOR PATHOLOGIST",13.6)=""
^DD(63,"B","SERVICE",14.5)=""
^DD(63,"B","SPLEEN (gm)",21)=""
^DD(63,"B","SURGICAL PATHOLOGY",8)=""
^DD(63,"B","TESTIS, LEFT (gm)",25.91)=""
^DD(63,"B","TESTIS, RIGHT (gm)",25.92)=""
^DD(63,"B","THYROID GLAND (gm)",25.2)=""
^DD(63,"B","TIU REFERENCE DATE/TIME - AU",101)=""
^DD(63,"B","TRANSFUSION REACTION DATE",.086)=""
^DD(63,"B","TRANSFUSION RECORD",.085)=""
^DD(63,"B","TREATING SPECIALITY AT DEATH",14.6)=""
^DD(63,"B","TRICUSPID VALVE (cm)",26)=""
^DD(63,"B","WARD OR OTHER LOCATION",14.1)="1"
^DD(63,"GL",0,1,.01)=""
^DD(63,"GL",0,2,.02)=""
^DD(63,"GL",0,3,.03)=""
^DD(63,"GL",0,4,.04)=""
^DD(63,"GL",0,5,.05)=""
^DD(63,"GL",0,6,.06)=""
^DD(63,"GL",.091,1,.091)=""
^DD(63,"GL",.092,1,.092)=""
^DD(63,"GL",.1,"E1,19",.1)=""
^DD(63,"GL",.2,1,.101)=""
^DD(63,"GL",1,0,.07)=""
^DD(63,"GL",1.5,0,.08)=""
^DD(63,"GL",1.6,0,.085)=""
^DD(63,"GL",1.7,0,.075)=""
^DD(63,"GL",1.8,0,.084)=""
^DD(63,"GL",1.9,0,.086)=""
^DD(63,"GL",2,0,.2)=""
^DD(63,"GL",2.1,0,.21)=""
^DD(63,"GL",3,0,.076)=""
^DD(63,"GL",33,0,33)=""
^DD(63,"GL",80,0,80)=""
^DD(63,"GL",81,0,32.2)=""
^DD(63,"GL",82,0,32.3)=""
^DD(63,"GL",83,1,83.1)=""
^DD(63,"GL",83,2,83.2)=""
^DD(63,"GL",84,0,32.4)=""
^DD(63,"GL",99,0,99)=""
^DD(63,"GL",101,0,101)=""
^DD(63,"GL",102,1,102)=""
^DD(63,"GL",102,2,102.1)=""
^DD(63,"GL",102,3,102.2)=""
^DD(63,"GL","AU",1,11)=""
^DD(63,"GL","AU",2,13.8)=""
^DD(63,"GL","AU",3,13)=""
^DD(63,"GL","AU",4,13.1)=""
^DD(63,"GL","AU",5,14.1)=""
^DD(63,"GL","AU",6,14)=""
^DD(63,"GL","AU",7,13.5)=""
^DD(63,"GL","AU",8,14.5)=""
^DD(63,"GL","AU",9,12.5)=""
^DD(63,"GL","AU",10,13.6)=""
^DD(63,"GL","AU",11,13.7)=""
^DD(63,"GL","AU",12,12.1)=""
^DD(63,"GL","AU",13,13.01)=""
^DD(63,"GL","AU",14,14.6)=""
^DD(63,"GL","AU",15,14.7)=""
^DD(63,"GL","AU",16,14.8)=""
^DD(63,"GL","AU",17,14.9)=""
^DD(63,"GL","AV",1,26)=""
^DD(63,"GL","AV",2,27)=""
^DD(63,"GL","AV",3,28)=""
^DD(63,"GL","AV",4,29)=""
^DD(63,"GL","AV",5,30)=""
^DD(63,"GL","AV",6,31)=""
^DD(63,"GL","AV",7,31.1)=""
^DD(63,"GL","AV",8,31.2)=""
^DD(63,"GL","AV",9,31.3)=""
^DD(63,"GL","AV",10,31.4)=""
^DD(63,"GL","AW",1,16)=""
^DD(63,"GL","AW",2,17)=""
^DD(63,"GL","AW",3,18)=""
^DD(63,"GL","AW",4,19)=""
^DD(63,"GL","AW",5,20)=""
^DD(63,"GL","AW",6,21)=""
^DD(63,"GL","AW",7,22)=""
^DD(63,"GL","AW",8,23)=""
^DD(63,"GL","AW",9,24)=""
^DD(63,"GL","AW",10,25)=""
^DD(63,"GL","AW",11,25.1)=""
^DD(63,"GL","AW",12,25.2)=""
^DD(63,"GL","AW",13,25.3)=""
^DD(63,"GL","AW",14,25.4)=""
^DD(63,"GL","AW",15,25.5)=""
^DD(63,"GL","AW",16,25.6)=""
^DD(63,"GL","AW",17,25.7)=""
^DD(63,"GL","AW",18,25.8)=""
^DD(63,"GL","AWI",1,25.9)=""
^DD(63,"GL","AWI",2,25.91)=""
^DD(63,"GL","AWI",3,25.92)=""
^DD(63,"GL","AWI",4,25.93)=""
^DD(63,"GL","AWI",5,25.94)=""
^DD(63,"GL","AY",0,32)=""
^DD(63,"GL","AZC",0,32.1)=""
^DD(63,"GL","BB",0,1)=""
^DD(63,"GL","CH",0,4)=""
^DD(63,"GL","CY",0,9)=""
^DD(63,"GL","EM",0,2)=""
^DD(63,"GL","MI",0,5)=""
^DD(63,"GL","PG",0,.11)=""
^DD(63,"GL","SP",0,8)=""
^DD(63,"GL","T",0,100)=""
^DD(63,"IX",.01)=""
^DD(63,"IX",.02)=""
^DD(63,"IX",.03)=""
^DD(63,"IX",11)=""
^DD(63,"IX",14)=""
^DD(63,"RQ",.01)=""
^DD(63,"RQ",.02)=""
^DD(63,"RQ",.03)=""
^DD(63,"RQ",.05)=""
^DD(63,"RQ",.06)=""
^DD(63,"RQ",11)=""
^DD(63,"RQ",14)=""
^DD(63,"RQ",83.1)=""
^DD(63,"SB",63.01,1)=""
^DD(63,"SB",63.016,.08)=""
^DD(63,"SB",63.017,.085)=""
^DD(63,"SB",63.0171,.086)=""
^DD(63,"SB",63.02,2)=""
^DD(63,"SB",63.03,.11)=""
^DD(63,"SB",63.033,33)=""
^DD(63,"SB",63.04,4)=""
^DD(63,"SB",63.05,5)=""
^DD(63,"SB",63.075,.075)=""
^DD(63,"SB",63.076,.076)=""
^DD(63,"SB",63.08,8)=""
^DD(63,"SB",63.084,.084)=""
^DD(63,"SB",63.09,9)=""
^DD(63,"SB",63.101,101)=""
^DD(63,"SB",63.13,.07)=""
^DD(63,"SB",63.14,.2)=""
^DD(63,"SB",63.141,.21)=""
^DD(63,"SB",63.2,32)=""
^DD(63,"SB",63.322,32.2)=""
^DD(63,"SB",63.323,32.3)=""
^DD(63,"SB",63.324,32.4)=""
^DD(63,"SB",63.808,80)=""
^DD(63,"SB",63.97,32.1)=""
^DD(63,"SB",63.99,100)=""
^DD(63,"SB",63.999,99)=""
^DD(63.01,0)="BLOOD BANK SUB-FIELD^NL^154^77"
^DD(63.01,0,"DT")="2940928"
^DD(63.01,0,"NM","BLOOD BANK")=""
^DD(63.01,0,"UP")="63"
^DD(63.01,.01,0)="DATE/TIME SPECIMEN TAKEN^RDX^^0;1^S %DT=""ETXS"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-Y"
^DD(63.01,.01,1,0)="^.1^^0"
^DD(63.01,.01,3)="ENTER PAST OR PRESENT DATE/TIME ONLY"
^DD(63.01,.01,8.5)="@"
^DD(63.01,.01,21,0)="^^1^1^2911126^"
^DD(63.01,.01,21,1,0)="This is the date/time the specimen was collected."
^DD(63.01,.01,"DT")="2920629"
^DD(63.01,.03,0)="DATE REPORT COMPLETED^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.01,.03,21,0)="^^1^1^2911126^"
^DD(63.01,.03,21,1,0)="This is the date the report was completed."
^DD(63.01,.04,0)="ENTERING PERSON^P200'^VA(200,^0;4^Q"
^DD(63.01,.04,3)=""
^DD(63.01,.04,21,0)="^^1^1^2911126^"
^DD(63.01,.04,21,1,0)="This is the person entering the date."
^DD(63.01,.04,"DT")="2910630"
^DD(63.01,.05,0)="SPECIMEN^P61'^LAB(61,^0;5^Q"
^DD(63.01,.05,21,0)="^^1^1^2911126^^"
^DD(63.01,.05,21,1,0)="This is the specimen collected."
^DD(63.01,.055,0)="COLLECTION SAMPLE^RP62'^LAB(62,^0;11^Q"
^DD(63.01,.055,21,0)="^^1^1^2911126^^"
^DD(63.01,.055,21,1,0)="This is the collection sample for the specimen."
^DD(63.01,.055,"DT")="2911126"
^DD(63.01,.06,0)="ACCESSION NUMBER^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(63.01,.06,1,0)="^.1^^0"
^DD(63.01,.06,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(63.01,.06,21,0)="^^1^1^2911126^^^"
^DD(63.01,.06,21,1,0)="This is the blood bank accession."
^DD(63.01,.06,"DT")="2870508"
^DD(63.01,.07,0)="PHYSICIAN^*P200'X^VA(200,^0;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.01,.07,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63.01,.07,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.01,.07,21,0)="^^1^1^2911126^"
^DD(63.01,.07,21,1,0)="This is the requesting provider."
^DD(63.01,.07,"DT")="2900420"
^DD(63.01,.08,0)="WARD^F^^0;8^K:$L(X)>19!($L(X)<1) X"
^DD(63.01,.08,3)="ANSWER MUST BE 1-19 CHARACTERS IN LENGTH"
^DD(63.01,.08,21,0)="^^1^1^2911126^"
^DD(63.01,.08,21,1,0)="This is the requesting location."
^DD(63.01,.08,"DT")="2870506"
^DD(63.01,.09,0)="PHLEBOTOMIST^P200'^VA(200,^0;9^Q"
^DD(63.01,.09,21,0)="^^1^1^2911126^"
^DD(63.01,.09,21,1,0)="This is the person collecting the sample"
^DD(63.01,.09,"DT")="2910630"
^DD(63.01,.1,0)="DATE/TIME RECEIVED^RDX^^0;10^S %DT=""EXT"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X'[""."" K X"
^DD(63.01,.1,1,0)="^.1^^0"
^DD(63.01,.1,3)="Enter date and time !"
^DD(63.01,.1,4)="K DZ"
^DD(63.01,.1,21,0)="^^2^2^2911126^"
^DD(63.01,.1,21,1,0)="This is the date/time the sample was received at"
^DD(63.01,.1,21,2,0)="the blood bank."
^DD(63.01,.1,"DT")="2850615"
^DD(63.01,.12,0)="ACCESSION LINK^FI^^0;12^K:$L(X)>24!($L(X)<1) X"
^DD(63.01,.12,3)="Answer must be 1-24 characters in length."
^DD(63.01,.12,21,0)="^^5^5^2940928^"
^DD(63.01,.12,21,1,0)=" This field is used to determine the accession area, accession date and"
^DD(63.01,.12,21,2,0)="the accession number. The data is stuffed by the accessioning logic."
^DD(63.01,.12,21,3,0)="The contents is used by the workload capturing routines."
^DD(63.01,.12,21,4,0)=" NOTE: THIS FIELD SHOULD NOT BE EDITED MANUALLY, ONLY PROGRAM LOGIC SHOULD"
^DD(63.01,.12,21,5,0)="SET THIS FIELD."
^DD(63.01,.12,23,0)="^^3^3^2940928^"
^DD(63.01,.12,23,1,0)=" The structure of the entry is accession area #, accession date and accession"
^DD(63.01,.12,23,2,0)="number separated by vertical bar."
^DD(63.01,.12,23,3,0)="   29|2940927|3"
^DD(63.01,.12,"DT")="2940928"
^DD(63.01,.99,0)="SPECIMEN COMMENT^63.199A^^99;0"
^DD(63.01,.99,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.01,.99,21,0)="^^1^1^2911203^^"
^DD(63.01,.99,21,1,0)="This is a comment on the specimen."
^DD(63.01,2.1,0)="DIRECT AHG(POLYSPECIFIC)^FX^^2;1^D ^LRBLAGG"
^DD(63.01,2.1,.1)="Polyspecific (broad spectrum) antiserum"
^DD(63.01,2.1,3)=""
^DD(63.01,2.1,4)="D LST^LRBLAGG"
^DD(63.01,2.1,"DT")="2841021"
^DD(63.01,2.2,0)="DIRECT AHG(5 min incub)^FX^^2;2^D ^LRBLAGG"
^DD(63.01,2.2,.1)="Polyspecific (broad spectrum) antiserum 5 min incubation"
^DD(63.01,2.2,3)=""
^DD(63.01,2.2,4)="D LST^LRBLAGG"
^DD(63.01,2.2,"DT")="2841021"
^DD(63.01,2.3,0)="DIRECT AHG CC^FX^^2;3^D ^LRBLAGG"
^DD(63.01,2.3,.1)="Direct AHG broadspectrum check cell"
^DD(63.01,2.3,3)=""
^DD(63.01,2.3,4)="D LST^LRBLAGG"
^DD(63.01,2.3,"DT")="2841021"
^DD(63.01,2.4,0)="ANTI-IgG^FX^^2;4^D ^LRBLAGG"
^DD(63.01,2.4,.1)="Anti-human globulin (not broadspectrum)"
^DD(63.01,2.4,3)=""
^DD(63.01,2.4,4)="D LST^LRBLAGG"
^DD(63.01,2.4,"DT")="2841021"
^DD(63.01,2.5,0)="ANTI-IgG CC^FX^^2;5^D ^LRBLAGG"
^DD(63.01,2.5,.1)="Anti-human globulin check cell"
^DD(63.01,2.5,3)=""
^DD(63.01,2.5,4)="D LST^LRBLAGG"
^DD(63.01,2.5,"DT")="2841021"
^DD(63.01,2.6,0)="ANTI-COMPLEMENT^FX^^2;6^D ^LRBLAGG"
^DD(63.01,2.6,.1)="Anti-human globulin (complement specific)"
^DD(63.01,2.6,3)=""
^DD(63.01,2.6,4)="D LST^LRBLAGG"
^DD(63.01,2.6,"DT")="2841021"
^DD(63.01,2.7,0)="ANTI-COMPLEMENT (5 min incub)^FX^^2;7^D ^LRBLAGG"
^DD(63.01,2.7,.1)="Anti-human globulin, complement specific (5 min incubation)"
^DD(63.01,2.7,3)=""
^DD(63.01,2.7,4)="D LST^LRBLAGG"
^DD(63.01,2.7,"DT")="2841021"
^DD(63.01,2.8,0)="ANTI-COMPLEMENT CC^FX^^2;8^D ^LRBLAGG"
^DD(63.01,2.8,3)=""
^DD(63.01,2.8,4)="D LST^LRBLAGG"
^DD(63.01,2.8,"DT")="2841021"
^DD(63.01,2.9,0)="DIRECT AHG INTERPRETATION^S^P:POSITIVE;N:NEGATIVE;I:INVALID, USE EDTA SPECIMEN;^2;9^Q"
^DD(63.01,2.9,21,0)="^^1^1^2940510^"
^DD(63.01,2.9,21,1,0)="Interpretation of the direct AHG"
^DD(63.01,2.9,"DT")="2841021"
^DD(63.01,2.91,0)="DIRECT AHG TEST COMMENT^FX^^2;10^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""JX"" D ^LRUB"
^DD(63.01,2.91,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.01,2.91,4)="S L(1)=""JX"" D Q^LRUB"
^DD(63.01,2.91,21,0)="^^1^1^2940510^"
^DD(63.01,2.91,21,1,0)="Any comment on the direct AHG test"
^DD(63.01,2.91,"DT")="2870519"
^DD(63.01,3,0)="ELUATE ANTIBODY^63.012PA^^EA;0"
^DD(63.01,3,12)="Selects only antibodies"
^DD(63.01,3,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""""
^DD(63.01,3,21,0)="^^1^1^2911126^"
^DD(63.01,3,21,1,0)="These are eluate antibodies."
^DD(63.01,4,0)="SCREEN CELL METHOD^63.014SA^^3;0"
^DD(63.01,4,21,0)="^^1^1^2911126^"
^DD(63.01,4,21,1,0)="These are the screen cell methods."
^DD(63.01,6,0)="ANTIBODY SCREEN INTERPRETATION^S^N:NEG;P:POS;^6;1^Q"
^DD(63.01,6,21,0)="^^1^1^2850830^^"
^DD(63.01,6,21,1,0)="If antibodies are present in the patient's serum the antibody screen interpretation will usually be positive."
^DD(63.01,6,"DT")="2841017"
^DD(63.01,6.1,0)="RBC ANTIGEN PRESENT^63.011PA^^1.1;0"
^DD(63.01,6.1,12)="Selects red blood cell antigens"
^DD(63.01,6.1,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(63.01,6.1,21,0)="^^1^1^2901028^"
^DD(63.01,6.1,21,1,0)="Antigens present on RBC's of patient are entered here."
^DD(63.01,6.2,0)="RBC ANTIGEN ABSENT^63.0112PA^^1.2;0"
^DD(63.01,6.2,12)="Selects red blood cell antigens"
^DD(63.01,6.2,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(63.01,6.2,21,0)="^^1^1^2901028^"
^DD(63.01,6.2,21,1,0)="Antigens identified as absent on red blood cells are entered here."
^DD(63.01,6.3,0)="HLA ANTIGEN PRESENT^63.013PA^^1.3;0"
^DD(63.01,6.3,12)="Selects HLA antigens"
^DD(63.01,6.3,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(63.01,6.3,21,0)="^^1^1^2901028^"
^DD(63.01,6.3,21,1,0)="HLA antgens present on WBC's are entered here."
^DD(63.01,6.4,0)="HLA ANTIGEN ABSENT^63.0114PA^^1.4;0"
^DD(63.01,6.4,12)="Selects HLA antigens"
^DD(63.01,6.4,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(63.01,6.4,21,0)="^^1^1^2901028^"
^DD(63.01,6.4,21,1,0)="HLA antigens absent on WBC's are entered here."
^DD(63.01,7,0)="SERUM ANTIBODY^63.46PA^^5;0"
^DD(63.01,7,12)="SELECTS ANTIBODIES"
^DD(63.01,7,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""""
^DD(63.01,7,21,0)="^^1^1^2911127^"
^DD(63.01,7,21,1,0)="These are the serum antibodies."
^DD(63.01,8,0)="ANTIBODY SCREEN COMMENT^63.48A^^4;0"
^DD(63.01,8,21,0)="^^1^1^2911127^"
^DD(63.01,8,21,1,0)="These are antibody screen comments."
^DD(63.01,9,0)="RBC TYPING METHOD^63.018SA^^1;0"
^DD(63.01,9,21,0)="^^1^1^2911203^^"
^DD(63.01,9,21,1,0)="These are RBC typing methods."
^DD(63.01,10,0)="ABO INTERPRETATION^S^A:A;B:B;O:O;AB:AB;ND:NOT DONE;^10;1^Q"
^DD(63.01,10,21,0)="^^1^1^2911127^"
^DD(63.01,10,21,1,0)="This is the patient's ABO interpretation."
^DD(63.01,10,"DT")="2850604"
^DD(63.01,10.2,0)="ABO TYPING TECH^P200'^VA(200,^10;2^Q"
^DD(63.01,10.2,3)=""
^DD(63.01,10.2,21,0)="^^1^1^2870504^"
^DD(63.01,10.2,21,1,0)="Technologist interpretating ABO typing results"
^DD(63.01,10.2,"DT")="2910630"
^DD(63.01,10.3,0)="ABO TESTING COMMENT^FX^^10;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""JX"" D ^LRUB"
^DD(63.01,10.3,3)="ANSWER MUST BE 1-80 CHARACTERS"
^DD(63.01,10.3,4)="S L(1)=""JX"" D Q^LRUB"
^DD(63.01,10.3,21,0)="^^1^1^2911127^"
^DD(63.01,10.3,21,1,0)="This is a comment on the ABO testing."
^DD(63.01,10.3,"DT")="2870519"
^DD(63.01,11,0)="RH  INTERPRETATION^S^NEG:NEG;POS:POS;ND:NOT DONE;^11;1^Q"
^DD(63.01,11,21,0)="^^1^1^2911127^"
^DD(63.01,11,21,1,0)="This is the patient's Rh interpretation."
^DD(63.01,11,"DT")="2850604"
^DD(63.01,11.2,0)="RH TYPING TECH^P200'^VA(200,^11;2^Q"
^DD(63.01,11.2,3)=""
^DD(63.01,11.2,21,0)="^^1^1^2911127^^"
^DD(63.01,11.2,21,1,0)="Technologist interpretating Rh typing results"
^DD(63.01,11.2,"DT")="2910630"
^DD(63.01,11.3,0)="RH TESTING COMMENT^FX^^11;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""JX"" D ^LRUB"
^DD(63.01,11.3,3)="ANSWER MUST BE 1-80 CHARACTERS"
^DD(63.01,11.3,4)="S L(1)=""JX"" D Q^LRUB"
^DD(63.01,11.3,21,0)="^^1^1^2911127^"
^DD(63.01,11.3,21,1,0)="This is a comment on the Rh testing."
^DD(63.01,11.3,"DT")="2870519"
^DD(63.01,121,0)="PT CELLS+ANTI D (sal)^FX^^12;1^D ^LRBLAGG"
^DD(63.01,121,.1)="PT CELLS + ANTI D Saline Reagent"
^DD(63.01,121,3)=""
^DD(63.01,121,4)="D LST^LRBLAGG"
^DD(63.01,121,"DT")="2841021"
^DD(63.01,122,0)="PT CELLS+RH CTRL (sal)^FX^^12;2^D ^LRBLAGG"
^DD(63.01,122,.1)="PT CELLS+RH CONTROL (Low protein or Saline)"
^DD(63.01,122,3)=""
^DD(63.01,122,4)="D LST^LRBLAGG"
^DD(63.01,122,"DT")="2841021"
^DD(63.01,123,0)="PT CELLS(sal)+ANTI D(hp IS)^FX^^12;3^D ^LRBLAGG"
^DD(63.01,123,.1)="PT CELLS (saline susp)+Anti D High Protein Reagent immediate spin"
^DD(63.01,123,3)=""
^DD(63.01,123,4)="D LST^LRBLAGG"
^DD(63.01,123,"DT")="2841021"
^DD(63.01,124,0)="PT CELLS(ser)+ANTI D(hp IS)^RFX^^12;4^D ^LRBLAGG"
^DD(63.01,124,.1)="PT CELLS (serum or plasma susp)+Anti D High Protein Reagent immediate spin"
^DD(63.01,124,3)=""
^DD(63.01,124,4)="D LST^LRBLAGG"
^DD(63.01,124,"DT")="2841021"
^DD(63.01,125,0)="PT CELLS+ANTI D (hp 37)^FX^^12;5^D ^LRBLAGG"
^DD(63.01,125,.1)="PT CELLS + ANTI D high protein reagent 37 degree C incubation"
^DD(63.01,125,3)=""
^DD(63.01,125,4)="D LST^LRBLAGG"
^DD(63.01,125,"DT")="2841021"
^DD(63.01,126,0)="PT CELLS+ANTI D (hp AHG)^FX^^12;6^D ^LRBLAGG"
^DD(63.01,126,.1)="PT CELLS+ANTI D High Protein AHG)"
^DD(63.01,126,3)=""
^DD(63.01,126,4)="D LST^LRBLAGG"
^DD(63.01,126,"DT")="2841021"
^DD(63.01,127,0)="PT CELLS+ANTI D SLIDE (hp)^S^P:AGGLUTINATION;N:NO AGGLUTINATION;^12;7^Q"
^DD(63.01,127,.1)="PT CELLS+ANTI S SLIDE high protein reagent"
^DD(63.01,127,3)=""
^DD(63.01,127,"DT")="2840227"
^DD(63.01,128,0)="PT CELLS(sal)+RH CTRL (hp IS)^FX^^12;8^D ^LRBLAGG"
^DD(63.01,128,.1)="PT CELLS (saline suspension) + RH Control (high protein immediate spin)"
^DD(63.01,128,3)=""
^DD(63.01,128,4)="D LST^LRBLAGG"
^DD(63.01,128,"DT")="2841021"
^DD(63.01,129,0)="PT CELLS(ser)+RH CTRL(hp IS)^RFX^^12;9^D ^LRBLAGG"
^DD(63.01,129,.1)="PT CELLS(serum or plasma suspension)+RH Control(high protein immediate spin)"
^DD(63.01,129,3)=""
^DD(63.01,129,4)="D LST^LRBLAGG"
^DD(63.01,129,"DT")="2841021"
^DD(63.01,129.1,0)="PT CELLS+RH CTRL (hp 37)^FX^^12;10^D ^LRBLAGG"
^DD(63.01,129.1,.1)="PT CELLS+RH Control (high protein 37 degree C incubation)"
^DD(63.01,129.1,3)=""
^DD(63.01,129.1,4)="D LST^LRBLAGG"
^DD(63.01,129.1,"DT")="2841021"
^DD(63.01,129.11,0)="PT CELLS+RH CTRL (hp AHG)^FX^^12;11^D ^LRBLAGG"
^DD(63.01,129.11,.1)="PT CELLS+RH Control (high protein AHG)"
^DD(63.01,129.11,3)=""
^DD(63.01,129.11,4)="D LST^LRBLAGG"
^DD(63.01,129.11,"DT")="2841021"
^DD(63.01,129.12,0)="PT CELLS+RH CTRL SLIDE (hp)^S^P:AGGLUTINATION;N:NO AGGLUTINATION;^12;12^Q"
^DD(63.01,129.12,.1)="PT CELLS+RH Control Slide (high protein)"
^DD(63.01,129.12,3)=""
^DD(63.01,129.12,"DT")="2840227"
^DD(63.01,131,0)="INTERPRETATION OF RH TESTING^RS^NEG:NEG;POS:POS;PDU:RH POS DU POS;NDU:RH NEG DU NEG;^13;1^Q"
^DD(63.01,131,"DT")="2840724"
^DD(63.01,132,0)="RH TEST COMMENT^F^^13;2^K:$L(X)>80!($L(X)<2) X"
^DD(63.01,132,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.01,132,"DT")="2840227"
^DD(63.01,133,0)="PT Cells(sal)+Anti D(mod) IS^RFX^^13;3^D ^LRBLAGG"
^DD(63.01,133,.1)="PT Cells(saline susp)+Anti D(chemically modified reagent) Immediate Spin"
^DD(63.01,133,3)=""
^DD(63.01,133,4)="D LST^LRBLAGG"
^DD(63.01,133,"DT")="2841021"
^DD(63.01,134,0)="PT Cells(ser)+Anti D(mod) IS^FX^^13;4^D ^LRBLAGG"
^DD(63.01,134,3)=""
^DD(63.01,134,4)="D LST^LRBLAGG"
^DD(63.01,134,"DT")="2841021"
^DD(63.01,135,0)="PT Cells+Anti D(mod) 37^FX^^13;5^D ^LRBLAGG"
^DD(63.01,135,.1)="PT Cells+Anti D (chemically modified reagent) 37 degree incubation"
^DD(63.01,135,3)=""
^DD(63.01,135,4)="D LST^LRBLAGG"
^DD(63.01,135,"DT")="2841021"
^DD(63.01,136,0)="PT Cells+Anti D(mod) AHG^FX^^13;6^D ^LRBLAGG"
^DD(63.01,136,.1)="PT Cells+Anti D (chemically modified reagent) AHG"
^DD(63.01,136,3)=""
^DD(63.01,136,4)="D LST^LRBLAGG"
^DD(63.01,136,"DT")="2841021"
^DD(63.01,138,0)="PT Cells(sal)+RH Ctrl(sal) IS^RFX^^13;8^D ^LRBLAGG"
^DD(63.01,138,.1)="PT Cells(saline susp)+Rh Control(saline or low protein) Immediate Spin"
^DD(63.01,138,3)=""
^DD(63.01,138,4)="D LST^LRBLAGG"
^DD(63.01,138,"DT")="2841021"
^DD(63.01,139,0)="PT Cells(ser)+RH Ctrl(sal) IS^FX^^13;9^D ^LRBLAGG"
^DD(63.01,139,.1)="PT Cells(serum or plasm susp) Immediate spin"
^DD(63.01,139,3)=""
^DD(63.01,139,4)="D LST^LRBLAGG"
^DD(63.01,139,"DT")="2841021"
^DD(63.01,139.1,0)="PT Cells+RH Ctrl(sal) 37^FX^^13;10^D ^LRBLAGG"
^DD(63.01,139.1,.1)="PT Cells+RH Control(saline) 37 degree incubation"
^DD(63.01,139.1,3)=""
^DD(63.01,139.1,4)="D LST^LRBLAGG"
^DD(63.01,139.1,"DT")="2841021"
^DD(63.01,139.11,0)="PT Cells+RH Ctrl(sal) AHG^FX^^13;11^D ^LRBLAGG"
^DD(63.01,139.11,.1)="PT Cells+RH Control (saline) AHG"
^DD(63.01,139.11,3)=""
^DD(63.01,139.11,4)="D LST^LRBLAGG"
^DD(63.01,139.11,"DT")="2841021"
^DD(63.01,141,0)="PT CELLS(ser)+ANTI A IS^RFX^^14;1^D ^LRBLAGG"
^DD(63.01,141,.1)="Pt Cells serum or plasma susp + Anti A immediate spin"
^DD(63.01,141,3)=""
^DD(63.01,141,4)="D LST^LRBLAGG"
^DD(63.01,141,"DT")="2841021"
^DD(63.01,142,0)="PT CELLS(sal)+ANTI A IS^FX^^14;2^D ^LRBLAGG"
^DD(63.01,142,.1)="Pt cells saline susp + Anti A immediate spin"
^DD(63.01,142,3)=""
^DD(63.01,142,4)="D LST^LRBLAGG"
^DD(63.01,142,"DT")="2841021"
^DD(63.01,143,0)="PT CELLS+ANTI A SLIDE^S^P:AGGLUTINATION;N:NO AGGLUTINATION;^14;3^Q"
^DD(63.01,143,3)=""
^DD(63.01,143,"DT")="2840227"
^DD(63.01,144,0)="PT CELLS(ser)+ANTI B IS^RFX^^14;4^D ^LRBLAGG"
^DD(63.01,144,.1)="Pt cells serum or plasma susp + Anti B immediate spin"
^DD(63.01,144,3)=""
^DD(63.01,144,4)="D LST^LRBLAGG"
^DD(63.01,144,"DT")="2841021"
^DD(63.01,145,0)="PT CELLS(sal)+ANTI B IS^FX^^14;5^D ^LRBLAGG"
^DD(63.01,145,.1)="Pt cells saline suspension + Anti B immediatee spin"
^DD(63.01,145,3)=""
^DD(63.01,145,4)="D LST^LRBLAGG"
^DD(63.01,145,"DT")="2841021"
^DD(63.01,146,0)="PT CELLS+ANTI B SLIDE^S^P:AGGLUTINATION;N:NO AGGLUTINATION;^14;6^Q"
^DD(63.01,146,3)=""
^DD(63.01,146,"DT")="2840227"
^DD(63.01,147,0)="PT CELLS(ser)+ANTI A,B IS^RFX^^14;7^D ^LRBLAGG"
^DD(63.01,147,.1)="Pt cells serum or plasma susp + Anti A,B immediate spin"
^DD(63.01,147,3)=""
^DD(63.01,147,4)="D LST^LRBLAGG"
^DD(63.01,147,"DT")="2841021"
^DD(63.01,148,0)="PT CELLS(ser)+ANTI A,B (RT)^FX^^14;8^D ^LRBLAGG"
^DD(63.01,148,.1)="Pt cells serum or plasma susp + Anti A,B room temp incubation"
^DD(63.01,148,3)=""
^DD(63.01,148,4)="D LST^LRBLAGG"
^DD(63.01,148,"DT")="2841021"
^DD(63.01,149,0)="PT CELLS(sal)+ANTI A,B (IS)^FX^^14;9^D ^LRBLAGG"
^DD(63.01,149,.1)="Pt cells saline suspension + Anti A,B immediate spin"
^DD(63.01,149,3)=""
^DD(63.01,149,4)="D LST^LRBLAGG"
^DD(63.01,149,"DT")="2841021"
^DD(63.01,149.1,0)="PT CELLS(sal)+ANTI A,B (RT)^FX^^14;10^D ^LRBLAGG"
^DD(63.01,149.1,.1)="Pt cells saline susp + Anti A,B room temperature incubation"
^DD(63.01,149.1,3)=""
^DD(63.01,149.1,4)="D LST^LRBLAGG"
^DD(63.01,149.1,"DT")="2841021"
^DD(63.01,149.11,0)="PT CELLS+ANTI A,B SLIDE^S^P:AGGLUTINATION;N:NO AGGLUTINATION;^14;11^Q"
^DD(63.01,149.11,.1)="Pt cells + Anti A,B Slide test"
^DD(63.01,149.11,3)=""
^DD(63.01,149.11,"DT")="2840227"
^DD(63.01,149.12,0)="PT SERUM+A1 CELLS^RFX^^14;12^D ^LRBLAGG"
^DD(63.01,149.12,3)=""
^DD(63.01,149.12,4)="D LST^LRBLAGG"
^DD(63.01,149.12,"DT")="2841021"
^DD(63.01,149.13,0)="PT SERUM+B CELLS^RFX^^14;13^D ^LRBLAGG"
^DD(63.01,149.13,3)=""
^DD(63.01,149.13,4)="D LST^LRBLAGG"
^DD(63.01,149.13,"DT")="2841021"
^DD(63.01,151,0)="INTERPRETATION OF ABO TESTING^RS^A:A;B:B;AB:AB;O:O;^15;1^Q"
^DD(63.01,151,"DT")="2840724"
^DD(63.01,152,0)="ABO TESTING COMMENT^F^^15;2^K:$L(X)>80!($L(X)<2) X"
^DD(63.01,152,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.01,152,"DT")="2840227"
^DD(63.01,153,0)="INTERPRETATION ABO GROUP(cell)^S^A:A;B:B;O:O;AB:AB;^15;3^Q"
^DD(63.01,153,21,0)="^^2^2^2911127^"
^DD(63.01,153,21,1,0)="This is the interpretation of the patient's ABO "
^DD(63.01,153,21,2,0)="group(cell)."
^DD(63.01,153,"DT")="2840314"
^DD(63.01,154,0)="INTERPRETATION ABO GROUP(ser)^S^A:A;B:B;O:O;AB:AB;^15;4^Q"
^DD(63.01,154,3)=""
^DD(63.01,154,21,0)="^^2^2^2911127^"
^DD(63.01,154,21,1,0)="This is the interpretation of the patient's ABO"
^DD(63.01,154,21,2,0)="type."
^DD(63.01,"B","ABO INTERPRETATION",10)=""
^DD(63.01,"B","ABO TESTING COMMENT",10.3)=""
^DD(63.01,"B","ABO TESTING COMMENT",152)=""
^DD(63.01,"B","ABO TYPING TECH",10.2)=""
^DD(63.01,"B","ACCESSION LINK",.12)=""
^DD(63.01,"B","ACCESSION NUMBER",.06)=""
^DD(63.01,"B","ANTI-COMPLEMENT",2.6)=""
^DD(63.01,"B","ANTI-COMPLEMENT (5 min incub)",2.7)=""
^DD(63.01,"B","ANTI-COMPLEMENT CC",2.8)=""
^DD(63.01,"B","ANTI-IgG",2.4)=""
^DD(63.01,"B","ANTI-IgG CC",2.5)=""
^DD(63.01,"B","ANTIBODY SCREEN COMMENT",8)=""
^DD(63.01,"B","ANTIBODY SCREEN INTERPRETATION",6)=""
^DD(63.01,"B","Anti-human globulin check cell",2.5)="1"
^DD(63.01,"B","COLLECTION SAMPLE",.055)=""
^DD(63.01,"B","DATE REPORT COMPLETED",.03)=""
^DD(63.01,"B","DATE/TIME RECEIVED",.1)=""
^DD(63.01,"B","DATE/TIME SPECIMEN TAKEN",.01)=""
^DD(63.01,"B","DIRECT AHG CC",2.3)=""
^DD(63.01,"B","DIRECT AHG INTERPRETATION",2.9)=""
^DD(63.01,"B","DIRECT AHG TEST COMMENT",2.91)=""
^DD(63.01,"B","DIRECT AHG(5 min incub)",2.2)=""
^DD(63.01,"B","DIRECT AHG(POLYSPECIFIC)",2.1)=""
^DD(63.01,"B","ELUATE ANTIBODY",3)=""
^DD(63.01,"B","ENTERING PERSON",.04)=""
^DD(63.01,"B","HLA ANTIGEN ABSENT",6.4)=""
^DD(63.01,"B","HLA ANTIGEN PRESENT",6.3)=""
^DD(63.01,"B","INTERPRETATION ABO GROUP(cell)",153)=""
^DD(63.01,"B","INTERPRETATION ABO GROUP(ser)",154)=""
^DD(63.01,"B","INTERPRETATION OF ABO TESTING",151)=""
^DD(63.01,"B","INTERPRETATION OF RH TESTING",131)=""
^DD(63.01,"B","PHLEBOTOMIST",.09)=""
^DD(63.01,"B","PHYSICIAN",.07)=""
^DD(63.01,"B","PT CELLS(sal)+ANTI A IS",142)=""
^DD(63.01,"B","PT CELLS(sal)+ANTI A,B (IS)",149)=""
^DD(63.01,"B","PT CELLS(sal)+ANTI A,B (RT)",149.1)=""
^DD(63.01,"B","PT CELLS(sal)+ANTI B IS",145)=""
^DD(63.01,"B","PT CELLS(sal)+ANTI D(hp IS)",123)=""
^DD(63.01,"B","PT CELLS(sal)+RH CTRL (hp IS)",128)=""
^DD(63.01,"B","PT CELLS(ser)+ANTI A IS",141)=""
^DD(63.01,"B","PT CELLS(ser)+ANTI A,B (RT)",148)=""
^DD(63.01,"B","PT CELLS(ser)+ANTI A,B IS",147)=""
^DD(63.01,"B","PT CELLS(ser)+ANTI B IS",144)=""
^DD(63.01,"B","PT CELLS(ser)+ANTI D(hp IS)",124)=""
^DD(63.01,"B","PT CELLS(ser)+RH CTRL(hp IS)",129)=""
^DD(63.01,"B","PT CELLS+ANTI A SLIDE",143)=""
^DD(63.01,"B","PT CELLS+ANTI A,B SLIDE",149.11)=""
^DD(63.01,"B","PT CELLS+ANTI B SLIDE",146)=""
^DD(63.01,"B","PT CELLS+ANTI D (hp 37)",125)=""
^DD(63.01,"B","PT CELLS+ANTI D (hp AHG)",126)=""
^DD(63.01,"B","PT CELLS+ANTI D (sal)",121)=""
^DD(63.01,"B","PT CELLS+ANTI D SLIDE (hp)",127)=""
^DD(63.01,"B","PT CELLS+RH CTRL (hp 37)",129.1)=""
^DD(63.01,"B","PT CELLS+RH CTRL (hp AHG)",129.11)=""
^DD(63.01,"B","PT CELLS+RH CTRL (sal)",122)=""
^DD(63.01,"B","PT CELLS+RH CTRL SLIDE (hp)",129.12)=""
^DD(63.01,"B","PT Cells(sal)+Anti D(mod) IS",133)=""
^DD(63.01,"B","PT Cells(sal)+RH Ctrl(sal) IS",138)=""
^DD(63.01,"B","PT Cells(ser)+Anti D(mod) IS",134)=""
^DD(63.01,"B","PT Cells(ser)+RH Ctrl(sal) IS",139)=""
^DD(63.01,"B","PT Cells+Anti D(mod) 37",135)=""
^DD(63.01,"B","PT Cells+Anti D(mod) AHG",136)=""
^DD(63.01,"B","PT Cells+RH Ctrl(sal) 37",139.1)=""
^DD(63.01,"B","PT Cells+RH Ctrl(sal) AHG",139.11)=""
^DD(63.01,"B","PT SERUM+A1 CELLS",149.12)=""
^DD(63.01,"B","PT SERUM+B CELLS",149.13)=""
^DD(63.01,"B","Pt cells + Anti A,B Slide test",149.11)="1"
^DD(63.01,"B","RBC ANTIGEN ABSENT",6.2)=""
^DD(63.01,"B","RBC ANTIGEN PRESENT",6.1)=""
^DD(63.01,"B","RBC TYPING METHOD",9)=""
^DD(63.01,"B","RH  INTERPRETATION",11)=""
^DD(63.01,"B","RH TEST COMMENT",132)=""
^DD(63.01,"B","RH TESTING COMMENT",11.3)=""
^DD(63.01,"B","RH TYPING TECH",11.2)=""
^DD(63.01,"B","SCREEN CELL METHOD",4)=""
^DD(63.01,"B","SERUM ANTIBODY",7)=""
^DD(63.01,"B","SPECIMEN",.05)=""
^DD(63.01,"B","SPECIMEN COMMENT",.99)=""
^DD(63.01,"B","WARD",.08)=""
^DD(63.01,"GL",0,1,.01)=""
^DD(63.01,"GL",0,3,.03)=""
^DD(63.01,"GL",0,4,.04)=""
^DD(63.01,"GL",0,5,.05)=""
^DD(63.01,"GL",0,6,.06)=""
^DD(63.01,"GL",0,7,.07)=""
^DD(63.01,"GL",0,8,.08)=""
^DD(63.01,"GL",0,9,.09)=""
^DD(63.01,"GL",0,10,.1)=""
^DD(63.01,"GL",0,11,.055)=""
^DD(63.01,"GL",0,12,.12)=""
^DD(63.01,"GL",1,0,9)=""
^DD(63.01,"GL",1.1,0,6.1)=""
^DD(63.01,"GL",1.2,0,6.2)=""
^DD(63.01,"GL",1.3,0,6.3)=""
^DD(63.01,"GL",1.4,0,6.4)=""
^DD(63.01,"GL",2,1,2.1)=""
^DD(63.01,"GL",2,2,2.2)=""
^DD(63.01,"GL",2,3,2.3)=""
^DD(63.01,"GL",2,4,2.4)=""
^DD(63.01,"GL",2,5,2.5)=""
^DD(63.01,"GL",2,6,2.6)=""
^DD(63.01,"GL",2,7,2.7)=""
^DD(63.01,"GL",2,8,2.8)=""
^DD(63.01,"GL",2,9,2.9)=""
^DD(63.01,"GL",2,10,2.91)=""
^DD(63.01,"GL",3,0,4)=""
^DD(63.01,"GL",4,0,8)=""
^DD(63.01,"GL",5,0,7)=""
^DD(63.01,"GL",6,1,6)=""
^DD(63.01,"GL",10,1,10)=""
^DD(63.01,"GL",10,2,10.2)=""
^DD(63.01,"GL",10,3,10.3)=""
^DD(63.01,"GL",11,1,11)=""
^DD(63.01,"GL",11,2,11.2)=""
^DD(63.01,"GL",11,3,11.3)=""
^DD(63.01,"GL",12,1,121)=""
^DD(63.01,"GL",12,2,122)=""
^DD(63.01,"GL",12,3,123)=""
^DD(63.01,"GL",12,4,124)=""
^DD(63.01,"GL",12,5,125)=""
^DD(63.01,"GL",12,6,126)=""
^DD(63.01,"GL",12,7,127)=""
^DD(63.01,"GL",12,8,128)=""
^DD(63.01,"GL",12,9,129)=""
^DD(63.01,"GL",12,10,129.1)=""
^DD(63.01,"GL",12,11,129.11)=""
^DD(63.01,"GL",12,12,129.12)=""
^DD(63.01,"GL",13,1,131)=""
^DD(63.01,"GL",13,2,132)=""
^DD(63.01,"GL",13,3,133)=""
^DD(63.01,"GL",13,4,134)=""
^DD(63.01,"GL",13,5,135)=""
^DD(63.01,"GL",13,6,136)=""
^DD(63.01,"GL",13,8,138)=""
^DD(63.01,"GL",13,9,139)=""
^DD(63.01,"GL",13,10,139.1)=""
^DD(63.01,"GL",13,11,139.11)=""
^DD(63.01,"GL",14,1,141)=""
^DD(63.01,"GL",14,2,142)=""
^DD(63.01,"GL",14,3,143)=""
^DD(63.01,"GL",14,4,144)=""
^DD(63.01,"GL",14,5,145)=""
^DD(63.01,"GL",14,6,146)=""
^DD(63.01,"GL",14,7,147)=""
^DD(63.01,"GL",14,8,148)=""
^DD(63.01,"GL",14,9,149)=""
^DD(63.01,"GL",14,10,149.1)=""
^DD(63.01,"GL",14,11,149.11)=""
^DD(63.01,"GL",14,12,149.12)=""
^DD(63.01,"GL",14,13,149.13)=""
^DD(63.01,"GL",15,1,151)=""
^DD(63.01,"GL",15,2,152)=""
^DD(63.01,"GL",15,3,153)=""
^DD(63.01,"GL",15,4,154)=""
^DD(63.01,"GL",99,0,.99)=""
^DD(63.01,"GL","EA",0,3)=""
^DD(63.01,"RQ",.01)=""
^DD(63.01,"RQ",.03)=""
^DD(63.01,"RQ",.055)=""
^DD(63.01,"RQ",.1)=""
^DD(63.01,"RQ",124)=""
^DD(63.01,"RQ",129)=""
^DD(63.01,"RQ",131)=""
^DD(63.01,"RQ",133)=""
^DD(63.01,"RQ",138)=""
^DD(63.01,"RQ",141)=""
^DD(63.01,"RQ",144)=""
^DD(63.01,"RQ",147)=""
^DD(63.01,"RQ",149.12)=""
^DD(63.01,"RQ",149.13)=""
^DD(63.01,"RQ",151)=""
^DD(63.01,"SB",63.011,6.1)=""
^DD(63.01,"SB",63.0112,6.2)=""
^DD(63.01,"SB",63.0114,6.4)=""
^DD(63.01,"SB",63.012,3)=""
^DD(63.01,"SB",63.013,6.3)=""
^DD(63.01,"SB",63.014,4)=""
^DD(63.01,"SB",63.018,9)=""
^DD(63.01,"SB",63.199,.99)=""
^DD(63.01,"SB",63.46,7)=""
^DD(63.01,"SB",63.48,8)=""
^DD(63.011,0)="RBC ANTIGEN PRESENT SUB-FIELD^^.02^2"
^DD(63.011,0,"NM","RBC ANTIGEN PRESENT")=""
^DD(63.011,0,"UP")="63.01"
^DD(63.011,.01,0)="RBC ANTIGEN PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """" """",$P(^(0),U,2),"""" """",$P(^(0),U)"",DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.011,.01,1,0)="^.1^^0"
^DD(63.011,.01,12)="Limits input to only entries that are RBC Antigens."
^DD(63.011,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(63.011,.01,21,0)="^^1^1^2901028^"
^DD(63.011,.01,21,1,0)="Antigens present on RBC's of patient are entered here."
^DD(63.011,.01,"DT")="2990521"
^DD(63.011,.02,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(63.011,.02,3)="Answer must be 1-80 characters in length."
^DD(63.011,.02,21,0)="^^1^1^2940510^"
^DD(63.011,.02,21,1,0)="Comment field"
^DD(63.011,.02,"DT")="2901028"
^DD(63.011,"B","COMMENT",.02)=""
^DD(63.011,"B","RBC ANTIGEN PRESENT",.01)=""
^DD(63.011,"GL",0,1,.01)=""
^DD(63.011,"GL",0,2,.02)=""
^DD(63.0112,0)="RBC ANTIGEN ABSENT SUB-FIELD^^.02^2"
^DD(63.0112,0,"NM","RBC ANTIGEN ABSENT")=""
^DD(63.0112,0,"UP")="63.01"
^DD(63.0112,.01,0)="RBC ANTIGEN ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """" """",$P(^(0),U,2),"""" """",$P(^(0),U)"",DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.0112,.01,1,0)="^.1^^0"
^DD(63.0112,.01,12)="Limits input to only entries that are RBC Antigens."
^DD(63.0112,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(63.0112,.01,21,0)="^^1^1^2901028^"
^DD(63.0112,.01,21,1,0)="Antigens identified as absent on red blood cells are entered here."
^DD(63.0112,.01,"DT")="2990521"
^DD(63.0112,.02,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(63.0112,.02,3)="Answer must be 1-80 characters in length."
^DD(63.0112,.02,21,0)="^^1^1^2940510^"
^DD(63.0112,.02,21,1,0)="Comment field"
^DD(63.0112,.02,"DT")="2901028"
^DD(63.0112,"B","COMMENT",.02)=""
^DD(63.0112,"B","RBC ANTIGEN ABSENT",.01)=""
^DD(63.0112,"GL",0,1,.01)=""
^DD(63.0112,"GL",0,2,.02)=""
^DD(63.0114,0)="HLA ANTIGEN ABSENT SUB-FIELD^^.02^2"
^DD(63.0114,0,"NM","HLA ANTIGEN ABSENT")=""
^DD(63.0114,0,"UP")="63.01"
^DD(63.0114,.01,0)="HLA ANTIGEN ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """" """",$P(^(0),U,2),"""" """",$P(^(0),U)"",DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.0114,.01,1,0)="^.1^^0"
^DD(63.0114,.01,12)="Limits input to only entries that are HLA Antigens"
^DD(63.0114,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(63.0114,.01,21,0)="^^1^1^2901028^"
^DD(63.0114,.01,21,1,0)="HLA antigens absent on WBC's are entered here."
^DD(63.0114,.01,"DT")="2990521"
^DD(63.0114,.02,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(63.0114,.02,3)="Answer must be 1-80 characters in length."
^DD(63.0114,.02,21,0)="^^1^1^2940510^"
^DD(63.0114,.02,21,1,0)="Comment field"
^DD(63.0114,.02,"DT")="2901028"
^DD(63.0114,"B","COMMENT",.02)=""
^DD(63.0114,"B","HLA ANTIGEN ABSENT",.01)=""
^DD(63.0114,"GL",0,1,.01)=""
^DD(63.0114,"GL",0,2,.02)=""
^DD(63.012,0)="ELUATE ANTIBODY SUB-FIELD^NL^.01^1"
^DD(63.012,0,"NM","ELUATE ANTIBODY")=""
^DD(63.012,0,"UP")="63.01"
^DD(63.012,.01,0)="ELUATE ANTIBODY^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.012,.01,12)="Select only Blood group Antibodies"
^DD(63.012,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""""
^DD(63.012,.01,21,0)="^^1^1^2911126^"
^DD(63.012,.01,21,1,0)="This is the eluate antibody."
^DD(63.012,.01,"DT")="2990521"
^DD(63.012,"B","ELUATE ANTIBODY",.01)=""
^DD(63.012,"GL",0,1,.01)=""
^DD(63.013,0)="HLA ANTIGEN PRESENT SUB-FIELD^^.02^2"
^DD(63.013,0,"NM","HLA ANTIGEN PRESENT")=""
^DD(63.013,0,"UP")="63.01"
^DD(63.013,.01,0)="HLA ANTIGEN PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """" """",$P(^(0),U,2),"""" """",$P(^(0),U)"",DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.013,.01,1,0)="^.1^^0"
^DD(63.013,.01,12)="Limits input to only entries that are HLA Antigens"
^DD(63.013,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(63.013,.01,21,0)="^^1^1^2901028^"
^DD(63.013,.01,21,1,0)="HLA antigens present on WBC's are entered here."
^DD(63.013,.01,"DT")="2990521"
^DD(63.013,.02,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(63.013,.02,3)="Answer must be 1-80 characters in length."
^DD(63.013,.02,21,0)="^^1^1^2940510^"
^DD(63.013,.02,21,1,0)="Comment field"
^DD(63.013,.02,"DT")="2901028"
^DD(63.013,"B","COMMENT",.02)=""
^DD(63.013,"B","HLA ANTIGEN PRESENT",.01)=""
^DD(63.013,"GL",0,1,.01)=""
^DD(63.013,"GL",0,2,.02)=""
^DD(63.014,0)="SCREEN CELL METHOD SUB-FIELD^NL^1^3"
^DD(63.014,0,"NM","SCREEN CELL METHOD")=""
^DD(63.014,0,"UP")="63.01"
^DD(63.014,.01,0)="SCREEN CELL METHOD^MS^S:SALINE;A:ALBUMIN;P:PAPAIN;F:FICIN;L:LISS;H:LISH;^0;1^Q"
^DD(63.014,.01,.1)="Cell suspension media (LISH=low ionic strength high mol wt)"
^DD(63.014,.01,3)="LISH=low ionic strength high molecular weight"
^DD(63.014,.01,21,0)="^^1^1^2911126^"
^DD(63.014,.01,21,1,0)="This is the screen cell method."
^DD(63.014,.01,"DT")="2861220"
^DD(63.014,.02,0)="TECHNIQUE^S^T:TUBE;M:MICROPLATE;A:AUTOMATED;^0;2^Q"
^DD(63.014,.02,21,0)="^^1^1^2911126^"
^DD(63.014,.02,21,1,0)="This is the screen cell technique."
^DD(63.014,.02,"DT")="2841101"
^DD(63.014,1,0)="SCREEN CELL^63.015SA^^1;0"
^DD(63.014,1,21,0)="^^1^1^2911127^^"
^DD(63.014,1,21,1,0)="These are the screen cells."
^DD(63.014,"B","SCREEN CELL",1)=""
^DD(63.014,"B","SCREEN CELL METHOD",.01)=""
^DD(63.014,"B","TECHNIQUE",.02)=""
^DD(63.014,"GL",0,1,.01)=""
^DD(63.014,"GL",0,2,.02)=""
^DD(63.014,"GL",1,0,1)=""
^DD(63.014,"SB",63.015,1)=""
^DD(63.015,0)="SCREEN CELL SUB-FIELD^NL^.1^10"
^DD(63.015,0,"NM","SCREEN CELL")=""
^DD(63.015,0,"UP")="63.014"
^DD(63.015,.01,0)="SCREEN CELL^MSX^1:1;2:2;3:3;^0;1^I $D(X) S DINUM=X"
^DD(63.015,.01,21,0)="^^1^1^2911127^^"
^DD(63.015,.01,21,1,0)="This is the screen cell used."
^DD(63.015,.01,"DT")="2841021"
^DD(63.015,.02,0)="SOURCE^P66'^LAB(66,^0;2^Q"
^DD(63.015,.02,21,0)="^^1^1^2911127^"
^DD(63.015,.02,21,1,0)="This is the source of the screen cells."
^DD(63.015,.02,"DT")="2841021"
^DD(63.015,.03,0)="INTERPRETATION^S^N:NEGATIVE;P:POSITIVE;^0;3^Q"
^DD(63.015,.03,21,0)="^^1^1^2911127^"
^DD(63.015,.03,21,1,0)="This is the interpretation of the screen cells."
^DD(63.015,.03,"DT")="2841021"
^DD(63.015,.04,0)="IS^FX^^0;4^D ^LRBLAGG"
^DD(63.015,.04,.1)="Immediate spin"
^DD(63.015,.04,3)=""
^DD(63.015,.04,4)="D LST^LRBLAGG"
^DD(63.015,.04,"DT")="2841021"
^DD(63.015,.05,0)="37 C^FX^^0;5^D ^LRBLAGG"
^DD(63.015,.05,.1)="37 degrees centigrade"
^DD(63.015,.05,3)=""
^DD(63.015,.05,4)="D LST^LRBLAGG"
^DD(63.015,.05,"DT")="2841021"
^DD(63.015,.06,0)="AHG^FX^^0;6^D ^LRBLAGG"
^DD(63.015,.06,.1)="Anti-human globulin"
^DD(63.015,.06,3)=""
^DD(63.015,.06,4)="D LST^LRBLAGG"
^DD(63.015,.06,"DT")="2841021"
^DD(63.015,.07,0)="CONTROL CELL^FX^^0;7^D ^LRBLAGG"
^DD(63.015,.07,.1)="Antibody coated control cell"
^DD(63.015,.07,3)=""
^DD(63.015,.07,4)="D LST^LRBLAGG"
^DD(63.015,.07,"DT")="2841021"
^DD(63.015,.08,0)="ROOM TEMP^FX^^0;8^D ^LRBLAGG"
^DD(63.015,.08,.1)="22-24 degrees centigrade"
^DD(63.015,.08,3)=""
^DD(63.015,.08,4)="D LST^LRBLAGG"
^DD(63.015,.08,"DT")="2841021"
^DD(63.015,.09,0)="12-18 C^FX^^0;9^D ^LRBLAGG"
^DD(63.015,.09,.1)="12-18 degrees centigrade"
^DD(63.015,.09,3)=""
^DD(63.015,.09,4)="D LST^LRBLAGG"
^DD(63.015,.09,"DT")="2841021"
^DD(63.015,.1,0)="4 C^FX^^0;10^D ^LRBLAGG"
^DD(63.015,.1,.1)="4 degrees centigrade"
^DD(63.015,.1,3)=""
^DD(63.015,.1,4)="D LST^LRBLAGG"
^DD(63.015,.1,"DT")="2841021"
^DD(63.015,"B","12-18 C",.09)=""
^DD(63.015,"B","12-18 degrees centigrade",.09)="1"
^DD(63.015,"B","22-24 degrees centigrade",.08)="1"
^DD(63.015,"B","37 C",.05)=""
^DD(63.015,"B","37 degrees centigrade",.05)="1"
^DD(63.015,"B","4 C",.1)=""
^DD(63.015,"B","4 degrees centigrade",.1)="1"
^DD(63.015,"B","AHG",.06)=""
^DD(63.015,"B","Anti-human globulin",.06)="1"
^DD(63.015,"B","Antibody coated control cell",.07)="1"
^DD(63.015,"B","CONTROL CELL",.07)=""
^DD(63.015,"B","INTERPRETATION",.03)=""
^DD(63.015,"B","IS",.04)=""
^DD(63.015,"B","Immediate spin",.04)="1"
^DD(63.015,"B","ROOM TEMP",.08)=""
^DD(63.015,"B","SCREEN CELL",.01)=""
^DD(63.015,"B","SOURCE",.02)=""
^DD(63.015,"GL",0,1,.01)=""
^DD(63.015,"GL",0,2,.02)=""
^DD(63.015,"GL",0,3,.03)=""
^DD(63.015,"GL",0,4,.04)=""
^DD(63.015,"GL",0,5,.05)=""
^DD(63.015,"GL",0,6,.06)=""
^DD(63.015,"GL",0,7,.07)=""
^DD(63.015,"GL",0,8,.08)=""
^DD(63.015,"GL",0,9,.09)=""
^DD(63.015,"GL",0,10,.1)=""
^DD(63.016,0)="RBC ANTIGENS ABSENT(other) SUB-FIELD^NL^.02^2"
^DD(63.016,0,"NM","RBC ANTIGENS ABSENT(other)")=""
^DD(63.016,0,"UP")="63"
^DD(63.016,.01,0)="RBC ANTIGENS ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(63.016,.01,12)="SELECTS ONLY ANTIGENS"
^DD(63.016,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(63.016,.01,21,0)="^^2^2^2920203^^"
^DD(63.016,.01,21,1,0)="This is a red blood cell antigen that is absent for"
^DD(63.016,.01,21,2,0)="this patient."
^DD(63.016,.01,"DT")="2850811"
^DD(63.016,.02,0)="RBC ANTIGENS ABSENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(63.016,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.016,.02,21,0)="^^1^1^2920203^^^"
^DD(63.016,.02,21,1,0)="This is the comment on the absent antigen."
^DD(63.016,.02,"DT")="2860602"
^DD(63.016,"B","RBC ANTIGENS ABSENT",.01)=""
^DD(63.016,"B","RBC ANTIGENS ABSENT COMMENT",.02)=""
^DD(63.016,"GL",0,1,.01)=""
^DD(63.016,"GL",0,2,.02)=""
^DD(63.017,0)="TRANSFUSION RECORD SUB-FIELD^NL^2^13"
^DD(63.017,0,"DT")="2921211"
^DD(63.017,0,"ID",.02)="W ""   "",$S($D(^LAB(66,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(63.017,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(63.017,0,"NM","TRANSFUSION RECORD")=""
^DD(63.017,0,"UP")="63"
^DD(63.017,.01,0)="TRANSFUSION DATE/TIME^MDX^^0;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S X(1)=9999999-Y X:$D(^LR(DA(1),1.6,X(1))) ^DD(63.017,.01,9.2) S DINUM=X(1)"
^DD(63.017,.01,3)=""
^DD(63.017,.01,9.2)="F X(2)=0:0 S X(1)=X(1)-.00001 Q:'$D(^LR(DA(1),1.6,X(1)))"
^DD(63.017,.01,21,0)="^^1^1^2911126^^^^"
^DD(63.017,.01,21,1,0)="This is a reverse chronological order of blood components transfused."
^DD(63.017,.01,"DT")="2850808"
^DD(63.017,.02,0)="COMPONENT^R*P66'X^LAB(66,^0;2^S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) LR=X"
^DD(63.017,.02,12)="Selects only blood components that can be transfused"
^DD(63.017,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""""
^DD(63.017,.02,21,0)="^^1^1^2920203^^"
^DD(63.017,.02,21,1,0)="This is the component transfused."
^DD(63.017,.02,"DT")="2870730"
^DD(63.017,.03,0)="COMPONENT ID^RFX^^0;3^K:$L(X)>13!($L(X)<2) X D:$D(X) EN^LRBLU"
^DD(63.017,.03,3)="ANSWER MUST BE 2-13 CHARACTERS IN LENGTH"
^DD(63.017,.03,21,0)="^^1^1^2920203^^^"
^DD(63.017,.03,21,1,0)="This is the component identification number."
^DD(63.017,.03,"DT")="3001024"
^DD(63.017,.04,0)="ENTERING PERSON^P200'^VA(200,^0;4^Q"
^DD(63.017,.04,3)=""
^DD(63.017,.04,21,0)="^^2^2^2920203^^"
^DD(63.017,.04,21,1,0)="This is the person entering information on the"
^DD(63.017,.04,21,2,0)="transfusion."
^DD(63.017,.04,"DT")="2870504"
^DD(63.017,.05,0)="ABO^S^A:A;B:B;AB:AB;O:O;^0;5^Q"
^DD(63.017,.05,21,0)="^^1^1^2850602^"
^DD(63.017,.05,21,1,0)="ABO group of component"
^DD(63.017,.05,"DT")="2850602"
^DD(63.017,.06,0)="RH^S^POS:POSITIVE;NEG:NEGATIVE;^0;6^Q"
^DD(63.017,.06,21,0)="^^1^1^2850602^"
^DD(63.017,.06,21,1,0)="Rh type of component"
^DD(63.017,.06,"DT")="2850602"
^DD(63.017,.07,0)="UNITS POOLED^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.017,.07,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(63.017,.07,21,0)="^^1^1^2920203^^"
^DD(63.017,.07,21,1,0)="This is the number of units pooled."
^DD(63.017,.07,"DT")="2851107"
^DD(63.017,.08,0)="TRANSFUSION REACTION^S^1:YES;0:NO;^0;8^Q"
^DD(63.017,.08,21,0)="^^2^2^2920203^^"
^DD(63.017,.08,21,1,0)="YES indicates a transfusion reaction was associated"
^DD(63.017,.08,21,2,0)="with this transfusion."
^DD(63.017,.08,"DT")="2860204"
^DD(63.017,.09,0)="DATA ENTERED VIA OLD RECORDS^S^1:YES;^0;9^Q"
^DD(63.017,.09,21,0)="^^2^2^2870730^"
^DD(63.017,.09,21,1,0)="If transfusion data entered in the transfusion record via previous"
^DD(63.017,.09,21,2,0)=" records option then a 'YES' will be entered here."
^DD(63.017,.09,"DT")="2870730"
^DD(63.017,.1,0)="VOL(ml) TRANSFUSED^NJ4,0^^0;10^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.017,.1,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(63.017,.1,21,0)="^^1^1^2880608^"
^DD(63.017,.1,21,1,0)="Enter in milliliters the volume of the unit transfused"
^DD(63.017,.1,"DT")="2880608"
^DD(63.017,.11,0)="TRANSFUSION REACTION TYPE^*P65.4'^LAB(65.4,^0;11^S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.017,.11,1,0)="^.1"
^DD(63.017,.11,1,1,0)="63^AB^MUMPS"
^DD(63.017,.11,1,1,1)="S ^LR(""AB"",DA(1),X,DA)="""""
^DD(63.017,.11,1,1,2)="K ^LR(""AB"",DA(1),X,DA)"
^DD(63.017,.11,1,1,"%D",0)="^^1^1^2921214^"
^DD(63.017,.11,1,1,"%D",1,0)="Transfusion reaction type by patient"
^DD(63.017,.11,1,1,"DT")="2921214"
^DD(63.017,.11,12)="Selects transfusion reaction type"
^DD(63.017,.11,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""""
^DD(63.017,.11,21,0)="^^1^1^2921211^"
^DD(63.017,.11,21,1,0)="Indicates type of transfusion reaction"
^DD(63.017,.11,"DT")="2921214"
^DD(63.017,1,0)="TRANSFUSION COMMENT^63.186A^^1;0"
^DD(63.017,1,21,0)="^^1^1^2920203^^^"
^DD(63.017,1,21,1,0)="These are comments on the transfusion."
^DD(63.017,2,0)="CROSSMATCH COMMENT^63.027A^^2;0"
^DD(63.017,2,21,0)="^^1^1^2920203^^"
^DD(63.017,2,21,1,0)="These are comments on the crossmatch."
^DD(63.017,"B","ABO",.05)=""
^DD(63.017,"B","COMPONENT",.02)=""
^DD(63.017,"B","COMPONENT ID",.03)=""
^DD(63.017,"B","CROSSMATCH COMMENT",2)=""
^DD(63.017,"B","DATA ENTERED VIA OLD RECORDS",.09)=""
^DD(63.017,"B","ENTERING PERSON",.04)=""
^DD(63.017,"B","RH",.06)=""
^DD(63.017,"B","TRANSFUSION COMMENT",1)=""
^DD(63.017,"B","TRANSFUSION DATE/TIME",.01)=""
^DD(63.017,"B","TRANSFUSION REACTION",.08)=""
^DD(63.017,"B","TRANSFUSION REACTION TYPE",.11)=""
^DD(63.017,"B","UNITS POOLED",.07)=""
^DD(63.017,"B","VOL(ml) TRANSFUSED",.1)=""
^DD(63.017,"GL",0,1,.01)=""
^DD(63.017,"GL",0,2,.02)=""
^DD(63.017,"GL",0,3,.03)=""
^DD(63.017,"GL",0,4,.04)=""
^DD(63.017,"GL",0,5,.05)=""
^DD(63.017,"GL",0,6,.06)=""
^DD(63.017,"GL",0,7,.07)=""
^DD(63.017,"GL",0,8,.08)=""
^DD(63.017,"GL",0,9,.09)=""
^DD(63.017,"GL",0,10,.1)=""
^DD(63.017,"GL",0,11,.11)=""
^DD(63.017,"GL",1,0,1)=""
^DD(63.017,"GL",2,0,2)=""
^DD(63.017,"IX",.11)=""
^DD(63.017,"RQ",.02)=""
^DD(63.017,"RQ",.03)=""
^DD(63.017,"SB",63.027,2)=""
^DD(63.017,"SB",63.186,1)=""
^DD(63.0171,0)="TRANSFUSION REACTION DATE SUB-FIELD^^1^4"
^DD(63.0171,0,"DT")="2921213"
^DD(63.0171,0,"NM","TRANSFUSION REACTION DATE")=""
^DD(63.0171,0,"UP")="63"
^DD(63.0171,.01,0)="TRANSFUSION REACTION DATE^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=9999999-X"
^DD(63.0171,.01,1,0)="^.1^^0"
^DD(63.0171,.01,21,0)="^^2^2^2921230^^"
^DD(63.0171,.01,21,1,0)="Transfusion reactions that cannot be assigned to a specific unit "
^DD(63.0171,.01,21,2,0)="are entered here."
^DD(63.0171,.01,"DT")="2930628"
^DD(63.0171,.02,0)="TRANSFUSION REACTION TYPE^R*P65.4'^LAB(65.4,^0;2^S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.0171,.02,1,0)="^.1"
^DD(63.0171,.02,1,1,0)="63^AR^MUMPS"
^DD(63.0171,.02,1,1,1)="S ^LR(""AR"",DA(1),X,DA)="""""
^DD(63.0171,.02,1,1,2)="K ^LR(""AR"",DA(1),X,DA)"
^DD(63.0171,.02,1,1,"%D",0)="^^2^2^2921230^"
^DD(63.0171,.02,1,1,"%D",1,0)="Cross reference for identifying transfusion reactions not able "
^DD(63.0171,.02,1,1,"%D",2,0)="to be identified with a specific unit."
^DD(63.0171,.02,1,1,"DT")="2921230"
^DD(63.0171,.02,12)="Selects only transfusion reaction entries"
^DD(63.0171,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""""
^DD(63.0171,.02,21,0)="^^1^1^2921213^"
^DD(63.0171,.02,21,1,0)="Stores the type of transfusion reaction"
^DD(63.0171,.02,"DT")="2921230"
^DD(63.0171,.03,0)="PERSON ENTERING REACTION^RP200'^VA(200,^0;3^Q"
^DD(63.0171,.03,21,0)="^^1^1^2921213^"
^DD(63.0171,.03,21,1,0)="Person entering reaction information"
^DD(63.0171,.03,"DT")="2921213"
^DD(63.0171,1,0)="TRANSFUSION REACTION COMMENT^63.172A^^1;0"
^DD(63.0171,1,21,0)="^^1^1^2940510^"
^DD(63.0171,1,21,1,0)="Multiple for transfusion reaction comment"
^DD(63.0171,"B","PERSON ENTERING REACTION",.03)=""
^DD(63.0171,"B","TRANSFUSION REACTION COMMENT",1)=""
^DD(63.0171,"B","TRANSFUSION REACTION DATE",.01)=""
^DD(63.0171,"B","TRANSFUSION REACTION TYPE",.02)=""
^DD(63.0171,"GL",0,1,.01)=""
^DD(63.0171,"GL",0,2,.02)=""
^DD(63.0171,"GL",0,3,.03)=""
^DD(63.0171,"GL",1,0,1)=""
^DD(63.0171,"IX",.02)=""
^DD(63.0171,"RQ",.02)=""
^DD(63.0171,"RQ",.03)=""
^DD(63.0171,"SB",63.172,1)=""
^DD(63.018,0)="RBC TYPING METHOD SUB-FIELD^NL^1^3"
^DD(63.018,0,"NM","RBC TYPING METHOD")=""
^DD(63.018,0,"UP")="63.01"
^DD(63.018,.01,0)="RBC TYPING METHOD^S^S:SALINE;M:SERUM;^0;1^Q"
^DD(63.018,.01,21,0)="^^1^1^2911127^"
^DD(63.018,.01,21,1,0)="This is the method used for RBC typing."
^DD(63.018,.01,"DT")="2841101"
^DD(63.018,.02,0)="TECHNIQUE^S^S:SLIDE;T:TUBE;A:AUTOMATED;M:MICROPLATE;^0;2^Q"
^DD(63.018,.02,21,0)="^^1^1^2911203^^"
^DD(63.018,.02,21,1,0)="This is the technique of RBC typing."
^DD(63.018,.02,"DT")="2841101"
^DD(63.018,1,0)="ANTISERUM^63.019PA^^1;0"
^DD(63.018,1,12)="SELECTS ONLY ANTISERA"
^DD(63.018,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""AB"""""""
^DD(63.018,1,21,0)="^^1^1^2911203^^^"
^DD(63.018,1,21,1,0)="These are the antiserums used for RBC typing."
^DD(63.018,"B","ANTISERUM",1)=""
^DD(63.018,"B","RBC TYPING METHOD",.01)=""
^DD(63.018,"B","TECHNIQUE",.02)=""
^DD(63.018,"GL",0,1,.01)=""
^DD(63.018,"GL",0,2,.02)=""
^DD(63.018,"GL",1,0,1)=""
^DD(63.018,"SB",63.019,1)=""
^DD(63.019,0)="ANTISERUM SUB-FIELD^NL^.1^10"
^DD(63.019,0,"NM","ANTISERUM")=""
^DD(63.019,0,"UP")="63.018"
^DD(63.019,.01,0)="ANTISERUM^M*P66'^LAB(66,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""AB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.019,.01,21,0)="^^1^1^2911127^"
^DD(63.019,.01,21,1,0)="This is the antiserum used for RBC typing."
^DD(63.019,.01,"DT")="2841102"
^DD(63.019,.02,0)="LOT #^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(63.019,.02,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.019,.02,21,0)="^^1^1^2911203^^"
^DD(63.019,.02,21,1,0)="This is the lot number of the antiserum."
^DD(63.019,.02,"DT")="2841102"
^DD(63.019,.03,0)="INTERPRETATION^RS^P:POSITIVE;N:NEGATIVE;U:UNCERTAIN;^0;3^Q"
^DD(63.019,.03,21,0)="^^1^1^2911203^^"
^DD(63.019,.03,21,1,0)="This is the patient's antiserum interpretation."
^DD(63.019,.03,"DT")="2841102"
^DD(63.019,.04,0)="IS^FX^^0;4^D ^LRBLAGG"
^DD(63.019,.04,.1)="Immediate spin"
^DD(63.019,.04,3)=""
^DD(63.019,.04,4)="D LST^LRBLAGG"
^DD(63.019,.04,"DT")="2841102"
^DD(63.019,.05,0)="37 C^FX^^0;5^D ^LRBLAGG"
^DD(63.019,.05,.1)="37 degrees centigrade"
^DD(63.019,.05,3)=""
^DD(63.019,.05,4)="D LST^LRBLAGG"
^DD(63.019,.05,"DT")="2841102"
^DD(63.019,.06,0)="AHG^FX^^0;6^D ^LRBLAGG"
^DD(63.019,.06,.1)="Anti-human globulin"
^DD(63.019,.06,3)=""
^DD(63.019,.06,4)="D LST^LRBLAGG"
^DD(63.019,.06,"DT")="2841102"
^DD(63.019,.07,0)="CONTROL CELL^FX^^0;7^D ^LRBLAGG"
^DD(63.019,.07,.1)="Antibody coated control cell"
^DD(63.019,.07,3)=""
^DD(63.019,.07,4)="D LST^LRBLAGG"
^DD(63.019,.07,"DT")="2841102"
^DD(63.019,.08,0)="ROOM TEMP^FX^^0;8^D ^LRBLAGG"
^DD(63.019,.08,.1)="22-24 degrees centigrade"
^DD(63.019,.08,3)=""
^DD(63.019,.08,4)="D LST^LRBLAGG"
^DD(63.019,.08,"DT")="2841102"
^DD(63.019,.09,0)="12-18 C^FX^^0;9^D ^LRBLAGG"
^DD(63.019,.09,.1)="12-18 degrees centigrade"
^DD(63.019,.09,3)=""
^DD(63.019,.09,4)="D LST^LRBLAGG"
^DD(63.019,.09,"DT")="2841102"
^DD(63.019,.1,0)="4 C^FX^^0;10^D ^LRBLAGG"
^DD(63.019,.1,.1)="4 degrees centigrade"
^DD(63.019,.1,3)=""
^DD(63.019,.1,4)="D LST^LRBLAGG"
^DD(63.019,.1,"DT")="2841102"
^DD(63.019,"B","12-18 C",.09)=""
^DD(63.019,"B","12-18 degrees centigrade",.09)="1"
^DD(63.019,"B","22-24 degrees centigrade",.08)="1"
^DD(63.019,"B","37 C",.05)=""
^DD(63.019,"B","37 degrees centigrade",.05)="1"
^DD(63.019,"B","4 C",.1)=""
^DD(63.019,"B","4 degrees centigrade",.1)="1"
^DD(63.019,"B","AHG",.06)=""
^DD(63.019,"B","ANTISERUM",.01)=""
^DD(63.019,"B","Anti-human globulin",.06)="1"
^DD(63.019,"B","Antibody coated control cell",.07)="1"
^DD(63.019,"B","CONTROL CELL",.07)=""
^DD(63.019,"B","INTERPRETATION",.03)=""
^DD(63.019,"B","IS",.04)=""
^DD(63.019,"B","Immediate spin",.04)="1"
^DD(63.019,"B","LOT #",.02)=""
^DD(63.019,"B","ROOM TEMP",.08)=""
^DD(63.019,"GL",0,1,.01)=""
^DD(63.019,"GL",0,2,.02)=""
^DD(63.019,"GL",0,3,.03)=""
^DD(63.019,"GL",0,4,.04)=""
^DD(63.019,"GL",0,5,.05)=""
^DD(63.019,"GL",0,6,.06)=""
^DD(63.019,"GL",0,7,.07)=""
^DD(63.019,"GL",0,8,.08)=""
^DD(63.019,"GL",0,9,.09)=""
^DD(63.019,"GL",0,10,.1)=""
^DD(63.019,"RQ",.03)=""
^DD(63.02,0)="EM SUB-FIELD^NL^2005^36"
^DD(63.02,0,"DT")="3030924"
^DD(63.02,0,"NM","EM")=""
^DD(63.02,0,"UP")="63"
^DD(63.02,.01,0)="DATE/TIME SPECIMEN TAKEN^MRDXO^^0;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(63.02,.01,2)="S Y(0)=Y D D^LRU W ?0,""-------------------------------------------------------------------------------"""
^DD(63.02,.01,2.1)="D D^LRU W ?0,""-------------------------------------------------------------------------------"""
^DD(63.02,.01,21,0)="^^1^1^2911127^"
^DD(63.02,.01,21,1,0)="This is the date/time of collection of the EM specimen."
^DD(63.02,.01,"DT")="2850302"
^DD(63.02,.011,0)="SPECIMEN SUBMITTED BY^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(63.02,.011,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.02,.011,21,0)="^^1^1^2911127^"
^DD(63.02,.011,21,1,0)="This is the person submitting the specimen."
^DD(63.02,.011,"DT")="2850302"
^DD(63.02,.012,0)="SPECIMEN^63.202A^^.1;0"
^DD(63.02,.012,21,0)="^.001^1^1^3030306^^^^"
^DD(63.02,.012,21,1,0)="These are the specimens submitted for testing."
^DD(63.02,.013,0)="BRIEF CLINICAL HISTORY^63.213^^.2;0"
^DD(63.02,.013,21,0)="^^1^1^2911127^"
^DD(63.02,.013,21,1,0)="This is the brief clinical history for this specimen."
^DD(63.02,.014,0)="PREOPERATIVE DIAGNOSIS^63.214A^^.3;0"
^DD(63.02,.014,21,0)="^^1^1^2911127^"
^DD(63.02,.014,21,1,0)="This is the pre-operative diagnosis for this specimen."
^DD(63.02,.015,0)="OPERATIVE FINDINGS^63.205A^^.4;0"
^DD(63.02,.015,21,0)="^^1^1^2911127^"
^DD(63.02,.015,21,1,0)="These are the operative findings for this specimen."
^DD(63.02,.016,0)="POSTOPERATIVE DIAGNOSIS^63.206A^^.5;0"
^DD(63.02,.016,21,0)="^^1^1^2911127^"
^DD(63.02,.016,21,1,0)="This is the post-operative diagnosis for this specimen."
^DD(63.02,.02,0)="PATHOLOGIST^*P200'X^VA(200,^0;2^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.02,.02,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63.02,.02,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.02,.02,21,0)="^^1^1^2911127^"
^DD(63.02,.02,21,1,0)="This is the pathologist performing the procedure."
^DD(63.02,.02,"DT")="2910630"
^DD(63.02,.021,0)="RESIDENT OR EMTECH^P200'^VA(200,^0;4^Q"
^DD(63.02,.021,21,0)="^^2^2^2911127^"
^DD(63.02,.021,21,1,0)="This is the resident pathologist or the EM"
^DD(63.02,.021,21,2,0)="technologist performing the test."
^DD(63.02,.021,"DT")="2910630"
^DD(63.02,.03,0)="DATE REPORT COMPLETED^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),""EM"",DA,0),U,10),""."") K X W !,""Report date completed must be after date received"""
^DD(63.02,.03,21,0)="^^1^1^2911127^"
^DD(63.02,.03,21,1,0)="This is the date the report was completed."
^DD(63.02,.03,"DT")="2900312"
^DD(63.02,.06,0)="EM ACC #^RFIX^^0;6^K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1"" ""2N1"" ""1N.N) X I $D(X),$D(LRAD),$D(LRABV),$D(^LR(""AEMA"",$E(LRAD,1,3),LRABV,X)) W $C(7),!,X,"" is already taken for "",LRABV,! K X"
^DD(63.02,.06,1,0)="^.1"
^DD(63.02,.06,1,1,0)="63^AEMA^MUMPS"
^DD(63.02,.06,1,1,1)="S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),""EM"",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),""EM"",DA,0),U,6)) S:X(1)&(X(2)]"""") ^LR(""AEMA"",$E(X(1),1,3),X(2),$P(X,"" "",3),DA(1),DA)="""""
^DD(63.02,.06,1,1,2)="S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),""EM"",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),""EM"",0),U,6)) K:X(1)&(X(2)]"""") ^LR(""AEMA"",$E(X(1),1,3),X(2),$P(X,"" "",3),DA(1),DA)"
^DD(63.02,.06,1,1,"%D",0)="^^1^1^2950810^^^^"
^DD(63.02,.06,1,1,"%D",1,0)="Cross references accessions by year and within year by accession area."
^DD(63.02,.06,1,1,"DT")="2950810"
^DD(63.02,.06,3)="Answer must be 5-15 characters in length."
^DD(63.02,.06,4)="W !,""Enter as prefix <space> yr <space> number (ex. EM 95 345)"""
^DD(63.02,.06,21,0)="^^2^2^2950810^^^"
^DD(63.02,.06,21,1,0)="This is the accession number of the electron microscopy "
^DD(63.02,.06,21,2,0)="specimen."
^DD(63.02,.06,"DT")="2951214"
^DD(63.02,.07,0)="PHYSICIAN^*P200'X^VA(200,^0;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.02,.07,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63.02,.07,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.02,.07,21,0)="^^1^1^2911127^"
^DD(63.02,.07,21,1,0)="This is the requesting physician."
^DD(63.02,.07,"DT")="2910630"
^DD(63.02,.08,0)="PATIENT LOCATION^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(63.02,.08,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.02,.08,21,0)="^^1^1^2911127^"
^DD(63.02,.08,21,1,0)="This is the requesting location."
^DD(63.02,.08,"DT")="2850302"
^DD(63.02,.09,0)="TYPIST^F^^0;9^K:$L(X)>5!($L(X)<2) X"
^DD(63.02,.09,3)="Answer must be 2-5 characters in length."
^DD(63.02,.09,21,0)="^^1^1^2911127^"
^DD(63.02,.09,21,1,0)="These are the initials of the typist entering the data."
^DD(63.02,.09,"DT")="2910124"
^DD(63.02,.1,0)="DATE/TIME SPECIMEN RECEIVED^RDX^^0;10^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LRH(2)),LRH(2)'=$E(X,1,3) K X W !,""Year received must be same as log-in year ("",LRH(2)+1700,"") """
^DD(63.02,.1,1,0)="^.1"
^DD(63.02,.1,1,1,0)="63^AEM^MUMPS"
^DD(63.02,.1,1,1,1)="S ^LR(""AEM"",$E(X,1,30),DA(1),DA)="""""
^DD(63.02,.1,1,1,2)="K ^LR(""AEM"",$E(X,1,30),DA(1),DA)"
^DD(63.02,.1,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63.02,.1,4)="K DZ W ?5,""To delete accession enter '^'"",!"
^DD(63.02,.1,21,0)="^^1^1^2911127^"
^DD(63.02,.1,21,1,0)="This is the date/time the specimen was received."
^DD(63.02,.1,"DT")="2910129"
^DD(63.02,.11,0)="REPORT RELEASE DATE^DIX^^0;11^S %DT=""ETXR"",%DT(0)=""N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),""EM"",DA,0),U,3),""."") K X W !,""Release date must not be before completed date ("" S Y=$P(^(0),U,3) D DD^%DT W Y,"")"""
^DD(63.02,.11,3)="ONLY CURRENT DATE/TIME ALLOWED"
^DD(63.02,.11,4)="K DZ"
^DD(63.02,.11,21,0)="^^1^1^2950908^^"
^DD(63.02,.11,21,1,0)="YES indicates the report was released."
^DD(63.02,.11,"DT")="2950908"
^DD(63.02,.13,0)="RELEASED BY^P200'^VA(200,^0;13^Q"
^DD(63.02,.13,21,0)="^^1^1^2940510^"
^DD(63.02,.13,21,1,0)="Who released the report"
^DD(63.02,.13,"DT")="2910630"
^DD(63.02,.14,0)="TC CODE^S^1:1;2:2;3:3;4:4;5:5;6:6;7:7;8:8;9:9;0:0;^0;14^Q"
^DD(63.02,.14,21,0)="^^2^2^2920326^^"
^DD(63.02,.14,21,1,0)="Tissue committee codes"
^DD(63.02,.14,21,2,0)=" The meaning of each code is identified by each site."
^DD(63.02,.14,"DT")="2920326"
^DD(63.02,.15,0)="ORIGINAL RELEASE DATE^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.02,.15,21,0)="^^2^2^2900924^"
^DD(63.02,.15,21,1,0)="If report was modified after release the original release date"
^DD(63.02,.15,21,2,0)=" is kept here."
^DD(63.02,.15,"DT")="2900924"
^DD(63.02,.16,0)="TIU REFERENCE DATE/TIME - EM^63.49DA^^.05;0"
^DD(63.02,.16,21,0)="^.001^3^3^3010829^^^^"
^DD(63.02,.16,21,1,0)="This multiple stores TIU information for corresponding SF515 electron"
^DD(63.02,.16,21,2,0)="microscopy reports that have been electronically signed and stored in TIU."
^DD(63.02,.16,21,3,0)="This information is used to access the reports in TIU."
^DD(63.02,.16,"DT")="3010828"
^DD(63.02,.17,0)="DATE REPORT MODIFIED - EM^D^^.07;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.02,.17,21,0)="^^2^2^3020107^"
^DD(63.02,.17,21,1,0)="This is the date the report was modified if it was modified after it was"
^DD(63.02,.17,21,2,0)="electronically signed/released."
^DD(63.02,.17,"DT")="3011130"
^DD(63.02,.171,0)="PERSON MODIFYING TEXT^P200'^VA(200,^.07;2^Q"
^DD(63.02,.171,21,0)="^^2^2^3020107^"
^DD(63.02,.171,21,1,0)="Stores the DUZ of the person who modified the report AFTER it was"
^DD(63.02,.171,21,2,0)="electronically signed/released."
^DD(63.02,.171,"DT")="3011130"
^DD(63.02,.172,0)="DIAGNOSIS MODIFIED^S^1:YES;0:NO;^.07;3^Q"
^DD(63.02,.172,21,0)="^^1^1^3020107^"
^DD(63.02,.172,21,1,0)="1 = Diagnosis modified AFTER report was electronically signed/released."
^DD(63.02,.172,"DT")="3011130"
^DD(63.02,.97,0)="DELAYED REPORT COMMENT^63.0297A^^97;0"
^DD(63.02,.97,21,0)="^^2^2^2930927^"
^DD(63.02,.97,21,1,0)="If a report is delayed, reason(s) for delay may be entered here. "
^DD(63.02,.97,21,2,0)="They will appear on the log book report and the clinician screen display."
^DD(63.02,.99,0)="COMMENT^63.208A^^99;0"
^DD(63.02,.99,21,0)="^^1^1^2911127^"
^DD(63.02,.99,21,1,0)="These are comments on this specimen."
^DD(63.02,1,0)="GROSS DESCRIPTION^63.201^^1;0"
^DD(63.02,1,21,0)="^^1^1^2911127^"
^DD(63.02,1,21,1,0)="This is the gross description of the specimen."
^DD(63.02,1.1,0)="MICROSCOPIC EXAMINATION^63.211^^1.1;0"
^DD(63.02,1.1,21,0)="^^2^2^2911127^"
^DD(63.02,1.1,21,1,0)="This is the microscopic examination diagnosis of"
^DD(63.02,1.1,21,2,0)="the specimen."
^DD(63.02,1.1,"DT")="2930716"
^DD(63.02,1.2,0)="SUPPLEMENTARY REPORT^63.207DA^^1.2;0"
^DD(63.02,1.2,21,0)="^^1^1^2911127^"
^DD(63.02,1.2,21,1,0)="These are supplementary reports."
^DD(63.02,1.4,0)="EM DIAGNOSIS^63.204^^1.4;0"
^DD(63.02,1.4,21,0)="^^1^1^2930716^"
^DD(63.02,1.4,21,1,0)="Electron microscopy diagnoses are entered here."
^DD(63.02,4,0)="DATE MICROSCOPIC EXAM MODIFIED^63.242DA^^4;0"
^DD(63.02,4,21,0)="^^2^2^2911127^^"
^DD(63.02,4,21,1,0)="These are the dates of modification of the"
^DD(63.02,4,21,2,0)="microscopic examination/diagnosis."
^DD(63.02,4,"DT")="2930716"
^DD(63.02,5,0)="DATE DIAGNOSIS MODIFIED^63.025DA^^5;0"
^DD(63.02,5,21,0)="^^1^1^2930716^"
^DD(63.02,5,21,1,0)="This is the date of the modification of the diagnosis field."
^DD(63.02,7,0)="DATE GROSS DESCRIPTION CHANGED^63.0272DA^^7;0"
^DD(63.02,7,21,0)="^^1^1^2931123^^^"
^DD(63.02,7,21,1,0)="These are the dates of change to the gross description field."
^DD(63.02,9,0)="QA CODE^63.029PA^^9;0"
^DD(63.02,9,12)="Selects entries with less than 3 characters"
^DD(63.02,9,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"""
^DD(63.02,9,21,0)="^^1^1^2940510^"
^DD(63.02,9,21,1,0)="Multiple field for Quality Assurance code."
^DD(63.02,10,0)="EM ORGAN/TISSUE^63.212PA^^2;0"
^DD(63.02,10,12)="Selects when appropriate sex related organs"
^DD(63.02,10,12.1)="S DIC(""S"")=""I SEX[$P(^(0),U,3)"""
^DD(63.02,10,21,0)="^^1^1^2911127^"
^DD(63.02,10,21,1,0)="These are the organ/tissue(s) being examined."
^DD(63.02,80,0)="ICD9CM CODE^63.203PA^^3;0"
^DD(63.02,80,21,0)="^^1^1^2911202^^"
^DD(63.02,80,21,1,0)="These are the ICD9CM codes on this specimen."
^DD(63.02,2005,0)="IMAGE^63.22005P^^2005;0"
^DD(63.02,2005,21,0)="^^2^2^2950523^"
^DD(63.02,2005,21,1,0)="Images associated with EM reports are stored in this multiple within "
^DD(63.02,2005,21,2,0)="the EM field of the Lab Data (#63) file."
^DD(63.02,"B","BRIEF CLINICAL HISTORY",.013)=""
^DD(63.02,"B","COMMENT",.99)=""
^DD(63.02,"B","DATE DIAGNOSIS MODIFIED",5)=""
^DD(63.02,"B","DATE GROSS DESCRIPTION CHANGED",7)=""
^DD(63.02,"B","DATE MICROSCOPIC EXAM MODIFIED",4)=""
^DD(63.02,"B","DATE REPORT COMPLETED",.03)=""
^DD(63.02,"B","DATE REPORT MODIFIED - EM",.17)=""
^DD(63.02,"B","DATE/TIME SPECIMEN RECEIVED",.1)=""
^DD(63.02,"B","DATE/TIME SPECIMEN TAKEN",.01)=""
^DD(63.02,"B","DELAYED REPORT COMMENT",.97)=""
^DD(63.02,"B","DIAGNOSIS MODIFIED",.172)=""
^DD(63.02,"B","EM ACC #",.06)=""
^DD(63.02,"B","EM DIAGNOSIS",1.4)=""
^DD(63.02,"B","EM ORGAN/TISSUE",10)=""
^DD(63.02,"B","GROSS DESCRIPTION",1)=""
^DD(63.02,"B","ICD9CM CODE",80)=""
^DD(63.02,"B","IMAGE",2005)=""
^DD(63.02,"B","MICROSCOPIC EXAMINATION",1.1)=""
^DD(63.02,"B","OPERATIVE FINDINGS",.015)=""
^DD(63.02,"B","ORIGINAL RELEASE DATE",.15)=""
^DD(63.02,"B","PATHOLOGIST",.02)=""
^DD(63.02,"B","PATIENT LOCATION",.08)=""
^DD(63.02,"B","PERSON MODIFYING TEXT",.171)=""
^DD(63.02,"B","PHYSICIAN",.07)=""
^DD(63.02,"B","POSTOPERATIVE DIAGNOSIS",.016)=""
^DD(63.02,"B","PREOPERATIVE DIAGNOSIS",.014)=""
^DD(63.02,"B","QA CODE",9)=""
^DD(63.02,"B","RELEASED BY",.13)=""
^DD(63.02,"B","REPORT RELEASE DATE",.11)=""
^DD(63.02,"B","RESIDENT OR EMTECH",.021)=""
^DD(63.02,"B","SPECIMEN",.012)=""
^DD(63.02,"B","SPECIMEN SUBMITTED BY",.011)=""
^DD(63.02,"B","SUPPLEMENTARY REPORT",1.2)=""
^DD(63.02,"B","TC CODE",.14)=""
^DD(63.02,"B","TIU REFERENCE DATE/TIME - EM",.16)=""
^DD(63.02,"B","TYPIST",.09)=""
^DD(63.02,"GL",0,1,.01)=""
^DD(63.02,"GL",0,2,.02)=""
^DD(63.02,"GL",0,3,.03)=""
^DD(63.02,"GL",0,4,.021)=""
^DD(63.02,"GL",0,5,.011)=""
^DD(63.02,"GL",0,6,.06)=""
^DD(63.02,"GL",0,7,.07)=""
^DD(63.02,"GL",0,8,.08)=""
^DD(63.02,"GL",0,9,.09)=""
^DD(63.02,"GL",0,10,.1)=""
^DD(63.02,"GL",0,11,.11)=""
^DD(63.02,"GL",0,13,.13)=""
^DD(63.02,"GL",0,14,.14)=""
^DD(63.02,"GL",0,15,.15)=""
^DD(63.02,"GL",.05,0,.16)=""
^DD(63.02,"GL",.07,1,.17)=""
^DD(63.02,"GL",.07,2,.171)=""
^DD(63.02,"GL",.07,3,.172)=""
^DD(63.02,"GL",.1,0,.012)=""
^DD(63.02,"GL",.2,0,.013)=""
^DD(63.02,"GL",.3,0,.014)=""
^DD(63.02,"GL",.4,0,.015)=""
^DD(63.02,"GL",.5,0,.016)=""
^DD(63.02,"GL",1,0,1)=""
^DD(63.02,"GL",1.1,0,1.1)=""
^DD(63.02,"GL",1.2,0,1.2)=""
^DD(63.02,"GL",1.4,0,1.4)=""
^DD(63.02,"GL",2,0,10)=""
^DD(63.02,"GL",3,0,80)=""
^DD(63.02,"GL",4,0,4)=""
^DD(63.02,"GL",5,0,5)=""
^DD(63.02,"GL",7,0,7)=""
^DD(63.02,"GL",9,0,9)=""
^DD(63.02,"GL",97,0,.97)=""
^DD(63.02,"GL",99,0,.99)=""
^DD(63.02,"GL",2005,0,2005)=""
^DD(63.02,"IX",.06)=""
^DD(63.02,"IX",.1)=""
^DD(63.02,"RQ",.01)=""
^DD(63.02,"RQ",.06)=""
^DD(63.02,"RQ",.1)=""
^DD(63.02,"SB",63.025,5)=""
^DD(63.02,"SB",63.0272,7)=""
^DD(63.02,"SB",63.029,9)=""
^DD(63.02,"SB",63.0297,.97)=""
^DD(63.02,"SB",63.201,1)=""
^DD(63.02,"SB",63.202,.012)=""
^DD(63.02,"SB",63.203,80)=""
^DD(63.02,"SB",63.204,1.4)=""
^DD(63.02,"SB",63.205,.015)=""
^DD(63.02,"SB",63.206,.016)=""
^DD(63.02,"SB",63.207,1.2)=""
^DD(63.02,"SB",63.208,.99)=""
^DD(63.02,"SB",63.211,1.1)=""
^DD(63.02,"SB",63.212,10)=""
^DD(63.02,"SB",63.213,.013)=""
^DD(63.02,"SB",63.214,.014)=""
^DD(63.02,"SB",63.22005,2005)=""
^DD(63.02,"SB",63.242,4)=""
^DD(63.02,"SB",63.49,.16)=""
^DD(63.025,0)="DATE DIAGNOSIS MODIFIED SUB-FIELD^^1^3"
^DD(63.025,0,"DT")="2930716"
^DD(63.025,0,"NM","DATE DIAGNOSIS MODIFIED")=""
^DD(63.025,0,"UP")="63.02"
^DD(63.025,.01,0)="DATE DIAGNOSIS MODIFIED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.025,.01,1,0)="^.1^^0"
^DD(63.025,.01,21,0)="^^1^1^2930716^"
^DD(63.025,.01,21,1,0)="This is the date of the modification of the diagnosis field."
^DD(63.025,.01,"DT")="2930716"
^DD(63.025,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.025,.02,21,0)="^^1^1^2930716^"
^DD(63.025,.02,21,1,0)="This is the person modifying text."
^DD(63.025,.02,"DT")="2930716"
^DD(63.025,1,0)="PREMODIFICATION TEXT^63.0251^^1;0"
^DD(63.025,1,21,0)="^^1^1^2930716^"
^DD(63.025,1,21,1,0)="This is the premodification text."
^DD(63.025,"B","DATE DIAGNOSIS MODIFIED",.01)=""
^DD(63.025,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.025,"B","PREMODIFICATION TEXT",1)=""
^DD(63.025,"GL",0,1,.01)=""
^DD(63.025,"GL",0,2,.02)=""
^DD(63.025,"GL",1,0,1)=""
^DD(63.025,"SB",63.0251,1)=""
^DD(63.0251,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.0251,0,"DT")="2930716"
^DD(63.0251,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.0251,0,"UP")="63.025"
^DD(63.0251,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.0251,.01,"DT")="2930716"
^DD(63.0251,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.0251,"GL",0,1,.01)=""
^DD(63.027,0)="CROSSMATCH COMMENT SUB-FIELD^^.01^1"
^DD(63.027,0,"NM","CROSSMATCH COMMENT")=""
^DD(63.027,0,"UP")="63.017"
^DD(63.027,.01,0)="CROSSMATCH COMMENT^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(63.027,.01,1,0)="^.1^^0"
^DD(63.027,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.027,.01,21,0)="^^1^1^2920203^^"
^DD(63.027,.01,21,1,0)="This is a comment on the crossmatch."
^DD(63.027,.01,"DT")="2870106"
^DD(63.027,"B","CROSSMATCH COMMENT",.01)=""
^DD(63.027,"GL",0,1,.01)=""
^DD(63.0272,0)="DATE GROSS DESCRIPTION CHANGED SUB-FIELD^^1^3"
^DD(63.0272,0,"DT")="2930716"
^DD(63.0272,0,"NM","DATE GROSS DESCRIPTION CHANGED")=""
^DD(63.0272,0,"UP")="63.02"
^DD(63.0272,.01,0)="DATE GROSS DESCRIPTION CHANGED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.0272,.01,1,0)="^.1^^0"
^DD(63.0272,.01,21,0)="^^1^1^2930716^"
^DD(63.0272,.01,21,1,0)="Dates of change of the gross description field are stored here."
^DD(63.0272,.01,"DT")="2930716"
^DD(63.0272,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.0272,.02,21,0)="^^1^1^2930716^"
^DD(63.0272,.02,21,1,0)="User changing text."
^DD(63.0272,.02,"DT")="2930716"
^DD(63.0272,1,0)="PREMODIFICATION TEXT^63.02721^^1;0"
^DD(63.0272,1,21,0)="^^1^1^2930716^"
^DD(63.0272,1,21,1,0)="This is the premodification text."
^DD(63.0272,"B","DATE GROSS DESCRIPTION CHANGED",.01)=""
^DD(63.0272,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.0272,"B","PREMODIFICATION TEXT",1)=""
^DD(63.0272,"GL",0,1,.01)=""
^DD(63.0272,"GL",0,2,.02)=""
^DD(63.0272,"GL",1,0,1)=""
^DD(63.0272,"SB",63.02721,1)=""
^DD(63.02721,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.02721,0,"DT")="2930716"
^DD(63.02721,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.02721,0,"UP")="63.0272"
^DD(63.02721,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.02721,.01,"DT")="2930716"
^DD(63.02721,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.02721,"GL",0,1,.01)=""
^DD(63.029,0)="QA CODE SUB-FIELD^^.01^1"
^DD(63.029,0,"NM","QA CODE")=""
^DD(63.029,0,"UP")="63.02"
^DD(63.029,.01,0)="QA CODE^M*P62.5'X^LAB(62.5,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.029,.01,1,0)="^.1^^0"
^DD(63.029,.01,3)="QA codes must be less than 3 characters."
^DD(63.029,.01,12)="Selects entries with less than 3 characters"
^DD(63.029,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"""
^DD(63.029,.01,21,0)="^^1^1^2940510^"
^DD(63.029,.01,21,1,0)="The quality assurance code"
^DD(63.029,.01,"DT")="2900916"
^DD(63.029,"B","QA CODE",.01)=""
^DD(63.029,"GL",0,1,.01)=""
^DD(63.0297,0)="DELAYED REPORT COMMENT SUB-FIELD^^.01^1"
^DD(63.0297,0,"DT")="2930927"
^DD(63.0297,0,"NM","DELAYED REPORT COMMENT")=""
^DD(63.0297,0,"UP")="63.02"
^DD(63.0297,.01,0)="DELAYED REPORT COMMENT^MF^^0;1^K:$L(X)>75!($L(X)<1) X"
^DD(63.0297,.01,1,0)="^.1^^0"
^DD(63.0297,.01,3)="Answer must be 1-75 characters in length."
^DD(63.0297,.01,21,0)="^^2^2^2930927^"
^DD(63.0297,.01,21,1,0)="If a report is delayed, reason(s) for delay may be entered here. "
^DD(63.0297,.01,21,2,0)="They will appear on the log book report and the clinician screen display."
^DD(63.0297,.01,"DT")="2930927"
^DD(63.0297,"B","DELAYED REPORT COMMENT",.01)=""
^DD(63.0297,"GL",0,1,.01)=""
^DD(63.03,0)="CUMULATIVE REPORT PAGES SUB-FIELD^NL^1^2"
^DD(63.03,0,"NM","CUMULATIVE REPORT PAGES")=""
^DD(63.03,0,"UP")="63"
^DD(63.03,.01,0)="CUMULATIVE REPORT PAGES^P64.5'X^LAB(64.5,^0;1^Q"
^DD(63.03,.01,21,0)="^^1^1^2911126^^^^"
^DD(63.03,.01,21,1,0)="First "":"" piece page number for the cumulative report."
^DD(63.03,.01,"DT")="2870520"
^DD(63.03,1,0)="PAGE^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.03,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(63.03,1,21,0)="^^1^1^2841129^^"
^DD(63.03,1,21,1,0)="Second "":"" piece page number for the cumulative report."
^DD(63.03,1,"DT")="2840207"
^DD(63.03,"B","CUMULATIVE REPORT PAGES",.01)=""
^DD(63.03,"B","PAGE",1)=""
^DD(63.03,"GL",0,1,.01)=""
^DD(63.03,"GL",0,2,1)=""
^DD(63.033,0)="AUTOPSY SPECIMEN SUB-FIELD^^1^2"
^DD(63.033,0,"DT")="2930420"
^DD(63.033,0,"IX","B",63.033,.01)=""
^DD(63.033,0,"NM","AUTOPSY SPECIMEN")=""
^DD(63.033,0,"UP")="63"
^DD(63.033,.01,0)="AUTOPSY SPECIMEN^MF^^0;1^K:$L(X)>75!($L(X)<2) X"
^DD(63.033,.01,1,0)="^.1"
^DD(63.033,.01,1,1,0)="63.033^B"
^DD(63.033,.01,1,1,1)="S ^LR(DA(1),33,""B"",$E(X,1,30),DA)="""""
^DD(63.033,.01,1,1,2)="K ^LR(DA(1),33,""B"",$E(X,1,30),DA)"
^DD(63.033,.01,3)="Answer must be 2-75 characters in length."
^DD(63.033,.01,21,0)="^^2^2^2920205^"
^DD(63.033,.01,21,1,0)="Autopsy organs and tissues are entered here for block and slide "
^DD(63.033,.01,21,2,0)="preparation, label printing and workload."
^DD(63.033,.01,"DT")="2920205"
^DD(63.033,1,0)="PARAFFIN BLOCK^63.331A^^1;0"
^DD(63.033,1,21,0)="^^1^1^2920205^^"
^DD(63.033,1,21,1,0)="List of paraffin blocks prepared from autopsy organs/tissues."
^DD(63.033,"B","AUTOPSY SPECIMEN",.01)=""
^DD(63.033,"B","PARAFFIN BLOCK",1)=""
^DD(63.033,"GL",0,1,.01)=""
^DD(63.033,"GL",1,0,1)=""
^DD(63.033,"IX",.01)=""
^DD(63.033,"SB",63.331,1)=""
^DD(63.04,0)="CHEM, HEM, TOX, RIA, SER, etc. SUB-FIELD^NL^862^859"
^DD(63.04,0,"DT")="2980127"
^DD(63.04,0,"NM","CHEM, HEM, TOX, RIA, SER, etc.")=""
^DD(63.04,0,"UP")="63"
^DD(63.04,.01,0)="DATE/TIME SPECIMEN TAKEN^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X,DINUM"
^DD(63.04,.01,1,0)="^.1^^0"
^DD(63.04,.01,3)="ENTER DRAW TIME OR VERIFY TIME"
^DD(63.04,.01,21,0)="^^1^1^2911202^"
^DD(63.04,.01,21,1,0)="This is the date/time the specimen was taken."
^DD(63.04,.01,"DT")="2840817"
^DD(63.04,.02,0)="DATE/TIME OBTAINED INEXACT^S^1:YES;0:NO;^0;2^Q"
^DD(63.04,.02,3)=""
^DD(63.04,.02,21,0)="^^1^1^2911202^"
^DD(63.04,.02,21,1,0)="YES indicates the time the specimen was obtained is inexact."
^DD(63.04,.02,"DT")="2870714"
^DD(63.04,.03,0)="DATE REPORT COMPLETED^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.04,.03,3)=""
^DD(63.04,.03,21,0)="^^1^1^2911202^"
^DD(63.04,.03,21,1,0)="This is the date the report was completed."
^DD(63.04,.04,0)="VERIFY PERSON^RP200'^VA(200,^0;4^Q"
^DD(63.04,.04,3)="Enter the person verifying test results."
^DD(63.04,.04,21,0)="^.001^1^1^3010330^^"
^DD(63.04,.04,21,1,0)="This is the person verifying the report."
^DD(63.04,.04,"DT")="3010330"
^DD(63.04,.05,0)="SPECIMEN TYPE^RP61^LAB(61,^0;5^Q"
^DD(63.04,.05,3)=""
^DD(63.04,.05,21,0)="^^1^1^2911202^"
^DD(63.04,.05,21,1,0)="This is the specimen type."
^DD(63.04,.06,0)="ACCESSION^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(63.04,.06,1,0)="^.1^^0"
^DD(63.04,.06,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(63.04,.06,21,0)="^^1^1^2911202^"
^DD(63.04,.06,21,1,0)="This is the accession for this specimen."
^DD(63.04,.06,"DT")="2870508"
^DD(63.04,.07,0)="*VOLUME^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,.07,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,.07,21,0)="^^1^1^2870503^"
^DD(63.04,.07,21,1,0)="No longer used.  To be deleted after 1/89."
^DD(63.04,.08,0)="METHOD OR SITE^F^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,.08,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,.08,21,0)="^^1^1^2911202^"
^DD(63.04,.08,21,1,0)="This is the method/site of collection."
^DD(63.04,.09,0)="SUM REPORT NUM.^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.04,.09,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(63.04,.09,21,0)="^^1^1^2911202^"
^DD(63.04,.09,21,1,0)="This is the summary report number."
^DD(63.04,.1,0)="REQUESTING PERSON^P200'^VA(200,^0;10^Q"
^DD(63.04,.1,3)=""
^DD(63.04,.1,21,0)="^^1^1^2911202^"
^DD(63.04,.1,21,1,0)="This is the person requesting the test."
^DD(63.04,.1,"DT")="2920304"
^DD(63.04,.11,0)="REQUESTING LOCATION^F^^0;11^K:$L(X)>19!($L(X)<1) X"
^DD(63.04,.11,3)="ANSWER MUST BE 1-19 CHARACTERS IN LENGTH"
^DD(63.04,.11,21,0)="^^1^1^2911202^"
^DD(63.04,.11,21,1,0)="This is the requesting location."
^DD(63.04,.11,"DT")="2870506"
^DD(63.04,.111,0)="REQUESTING LOC/DIV^V^^0;13^Q"
^DD(63.04,.111,3)="Enter the hospital location or institution ordering this test."
^DD(63.04,.111,21,0)="^^1^1^2970616^^"
^DD(63.04,.111,21,1,0)="This is the hospital location or institution ordering this test."
^DD(63.04,.111,"DT")="2970201"
^DD(63.04,.111,"V",0)="^.12P^2^2"
^DD(63.04,.111,"V",1,0)="44^Hospital Location^1^SC(^n^n"
^DD(63.04,.111,"V",2,0)="4^Ordering Institution^2^DIC(4,^n^n"
^DD(63.04,.111,"V",2,1)="S DIC(""S"")=""I $G(^DIC(4,Y,99)),$G(^DIC(4,Y,6))"""
^DD(63.04,.111,"V",2,2)="Must have a Inst # and Domain"
^DD(63.04,.111,"V","B",4,2)=""
^DD(63.04,.111,"V","B",44,1)=""
^DD(63.04,.111,"V","M","Hospital Location",1)=""
^DD(63.04,.111,"V","M","Ordering Institution",2)=""
^DD(63.04,.111,"V","O",1,1)=""
^DD(63.04,.111,"V","O",2,2)=""
^DD(63.04,.111,"V","P","DIC(4,",2)=""
^DD(63.04,.111,"V","P","SC(",1)=""
^DD(63.04,.112,0)="ACCESSIONING INSTITUTION^P4'^DIC(4,^0;14^Q"
^DD(63.04,.112,21,0)="^^4^4^3040804^"
^DD(63.04,.112,21,1,0)="This field contains the pointer to the institution where the specimen was "
^DD(63.04,.112,21,2,0)="accessioned. This field can be blank if LEDI or POC specimen"
^DD(63.04,.112,21,3,0)="is accessioned. The field will be set if an actual user accepts the "
^DD(63.04,.112,21,4,0)="specimen."
^DD(63.04,.112,"DT")="3040804"
^DD(63.04,.12,0)="NEW PERSON CONVERSION^S^1:Y;^NPC;1^Q"
^DD(63.04,.12,21,0)="^^3^3^2931123^^^"
^DD(63.04,.12,21,1,0)="  This field is to indicate that this entry has all of the pointers"
^DD(63.04,.12,21,2,0)="converted to the NEW PERSON file. The use of the NEW PERSON file "
^DD(63.04,.12,21,3,0)="began with Version 5.2"
^DD(63.04,.12,21,4,0)=" "
^DD(63.04,.12,21,5,0)=" A number 2 in this field indicates that this entry also contains test"
^DD(63.04,.12,21,6,0)="normal range data stored. This enhancement is provide by the LEDI auto-"
^DD(63.04,.12,21,7,0)="instrument upgrade."
^DD(63.04,.12,23,0)="^^2^2^2931123^^^"
^DD(63.04,.12,23,1,0)="  This field will be used to determine if archive data should be "
^DD(63.04,.12,23,2,0)="repointed to VA(200 before being restored to the ^LR( global."
^DD(63.04,.12,"DT")="2920407"
^DD(63.04,.31,0)="UID^F^^ORU;1^K:$L(X)>15!($L(X)<10) X"
^DD(63.04,.31,3)="Answer must be 10-15 characters in length."
^DD(63.04,.31,21,0)="^^3^3^2970712^"
^DD(63.04,.31,21,1,0)=" This is the UID used by the HOST LEDI system for this order/accession."
^DD(63.04,.31,21,2,0)=" "
^DD(63.04,.31,21,3,0)="This field is used by LEDI software."
^DD(63.04,.31,"DT")="2970127"
^DD(63.04,.32,0)="ORDERING SITE^*P4'^DIC(4,^ORU;2^S DIC(""S"")=""I $G(^(Y,99))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.04,.32,3)="Enter the site ordering the test."
^DD(63.04,.32,12)="Must have a site number defined"
^DD(63.04,.32,12.1)="S DIC(""S"")=""I $G(^(Y,99))"""
^DD(63.04,.32,21,0)="^^7^7^2970712^"
^DD(63.04,.32,21,1,0)=" This field contains the pointer to the INSTITUTION file for the"
^DD(63.04,.32,21,2,0)="MailMan domain location of the computer system. All LEDI results are"
^DD(63.04,.32,21,3,0)="returned to the Ordering computer system."
^DD(63.04,.32,21,4,0)=" "
^DD(63.04,.32,21,5,0)="Location to send LEDI HL7 result messages."
^DD(63.04,.32,21,6,0)=" "
^DD(63.04,.32,21,7,0)="This field is used by LEDI software."
^DD(63.04,.32,"DT")="2961220"
^DD(63.04,.33,0)="COLLECTING SITE^P4'^DIC(4,^ORU;3^Q"
^DD(63.04,.33,3)=""
^DD(63.04,.33,21,0)="^^5^5^2970712^"
^DD(63.04,.33,21,1,0)=" This field contain the pointer to the INSTITUTION file for the actual"
^DD(63.04,.33,21,2,0)="collection site. The ordering site is the MailMan location of the computer"
^DD(63.04,.33,21,3,0)="system. MailMan domain location and the collecting site may be different."
^DD(63.04,.33,21,4,0)=" "
^DD(63.04,.33,21,5,0)="This field is used by LEDI software."
^DD(63.04,.33,"DT")="2970226"
^DD(63.04,.34,0)="HOST UID^F^^ORU;4^K:$L(X)>15!($L(X)<10) X"
^DD(63.04,.34,3)="Answer must be 10-15 characters in length."
^DD(63.04,.34,21,0)="^^7^7^2970712^"
^DD(63.04,.34,21,1,0)=" Each Order/Accession is given a HOST UID. The UID is stored in this"
^DD(63.04,.34,21,2,0)="location. If LEDI software is used to accession specimens, usually the"
^DD(63.04,.34,21,3,0)="collecting sites UID is used to track specimens. If the collecting UID"
^DD(63.04,.34,21,4,0)="conflict is the HOST system number sequence, the HOST UID will be used"
^DD(63.04,.34,21,5,0)="instead of the collecting site's UID."
^DD(63.04,.34,21,6,0)=" "
^DD(63.04,.34,21,7,0)="This field is used by LEDI software."
^DD(63.04,.34,"DT")="2970226"
^DD(63.04,.342,0)="ORDERING SITE UID^F^^ORU;5^K:$L(X)>15!($L(X)<10) X"
^DD(63.04,.342,3)="Answer must be 10-15 characters in length."
^DD(63.04,.342,21,0)="^^3^3^2970712^^"
^DD(63.04,.342,21,1,0)=" This field contains the collecting sites UID for this specimen."
^DD(63.04,.342,21,2,0)=" "
^DD(63.04,.342,21,3,0)="This field is used by LEDI software."
^DD(63.04,.342,"DT")="2970226"
^DD(63.04,.35,0)="ORDERED TEST^63.07A^^ORUT;0"
^DD(63.04,.35,21,0)="^^3^3^2970712^"
^DD(63.04,.35,21,1,0)=" This field contains the ordered test NLT code requested by the clinical"
^DD(63.04,.35,21,2,0)="provider. If this test is a panel, all atomic tests within the panel will"
^DD(63.04,.35,21,3,0)="be associated with the ordered test using this NLT code."
^DD(63.04,.99,0)="COMMENT^63.041A^^1;0"
^DD(63.04,.99,21,0)="^^1^1^2940510^^^"
^DD(63.04,.99,21,1,0)="These are the comments on the tests."
^DD(63.04,2,0)="GLUCOSE^NXJ4,0^^2;1^S Q9=""0,2500,0"" D ^LRNUM"
^DD(63.04,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2500"
^DD(63.04,2,"DT")="2870511"
^DD(63.04,3,0)="UREA NITROGEN^NJ5,0X^^3;1^S Q9=""0,10000,0"" D ^LRNUM"
^DD(63.04,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 10000"
^DD(63.04,3,"DT")="2850430"
^DD(63.04,4,0)="CREATININE^NJ5,1X^^4;1^S Q9=""0,999,1"" D ^LRNUM"
^DD(63.04,4,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,4,"DT")="2840206"
^DD(63.04,5,0)="SODIUM^F^^5;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,5,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,5,"DT")="2821117"
^DD(63.04,6,0)="POTASSIUM^NJ6,1X^^6;1^S Q9=""0,2000,1"" D ^LRNUM"
^DD(63.04,6,3)="TYPE A NUMBER BETWEEN 0 AND 2000"
^DD(63.04,6,"DT")="2841002"
^DD(63.04,7,0)="CHLORIDE^F^^7;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,7,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,7,"DT")="2821112"
^DD(63.04,8,0)="CO2^NJ4,1X^^8;1^S Q9=""1,99,1"" D ^LRNUM"
^DD(63.04,8,3)="TYPE A NUMBER BETWEEN 1 AND 99"
^DD(63.04,8,"DT")="2860222"
^DD(63.04,9,0)="CALCIUM^NJ5,1X^^9;1^S Q9="".5,999,1"" D ^LRNUM"
^DD(63.04,9,3)="TYPE A NUMBER BETWEEN .5 AND 999"
^DD(63.04,9,"DT")="2841127"
^DD(63.04,10,0)="PO4^NJ6,2X^^10;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,10,.1)="PHOSPHOROUS"
^DD(63.04,10,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,10,"DT")="2840206"
^DD(63.04,11,0)="URIC ACID^NJ4,1X^^11;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,11,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,11,"DT")="2830414"
^DD(63.04,12,0)="CHOLESTEROL^NJ4,0X^^12;1^S Q9=""0,1600,0"" D ^LRNUM"
^DD(63.04,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1600"
^DD(63.04,12,"DT")="2850315"
^DD(63.04,13,0)="PROTEIN,TOTAL^F^^13;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,13,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,13,"DT")="2821206"
^DD(63.04,14,0)="ALBUMIN^NJ3,1X^^14;1^S Q9=""0,999,1"" D ^LRNUM"
^DD(63.04,14,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,14,"DT")="2860222"
^DD(63.04,15,0)="BILIRUBIN,TOTAL^NJ5,2X^^15;1^S Q9=""0,99,2"" D ^LRNUM"
^DD(63.04,15,3)="TYPE A NUMBER BETWEEN 0 AND 99"
^DD(63.04,15,"DT")="2860222"
^DD(63.04,16,0)="BILIRUBIN,DIRECT^F^^16;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,16,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,16,"DT")="2821118"
^DD(63.04,17,0)="ALKALINE PHOSPHATASE^NJ4,0X^^17;1^S Q9=""0,6000,0"" D ^LRNUM"
^DD(63.04,17,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 6000"
^DD(63.04,17,"DT")="2841003"
^DD(63.04,18,0)="LDH^NJ5,0X^^18;1^S Q9=""1,99999,0"" D ^LRNUM"
^DD(63.04,18,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(63.04,18,"DT")="2860222"
^DD(63.04,19,0)="SGOT^NJ4,0X^^19;1^S Q9=""0,9999,0"" D ^LRNUM"
^DD(63.04,19,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(63.04,19,"DT")="2860222"
^DD(63.04,20,0)="SGPT^NJ4,0X^^20;1^S Q9=""1,9999,0"" D ^LRNUM"
^DD(63.04,20,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(63.04,20,"DT")="2860222"
^DD(63.04,21,0)="GAMMA-GTP^NJ4,0X^^21;1^S Q9=""0,2000,0"" D ^LRNUM"
^DD(63.04,21,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2000"
^DD(63.04,21,"DT")="2830225"
^DD(63.04,22,0)="QUINIDINE^F^^22;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,22,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,22,"DT")="2821108"
^DD(63.04,23,0)="DILANTIN^F^^23;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,23,.1)="DIPHENYLHYDANTOIN,NA"
^DD(63.04,23,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,23,"DT")="2820914"
^DD(63.04,24,0)="THEOPHYLLINE^F^^24;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,24,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,24,"DT")="2820914"
^DD(63.04,25,0)="BARBITURATES^F^^25;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,25,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,25,"DT")="2821021"
^DD(63.04,26,0)="AMPHETAMINES^F^^26;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,26,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,26,"DT")="2821021"
^DD(63.04,27,0)="PHENOBARBITAL^F^^27;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,27,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,27,"DT")="2820914"
^DD(63.04,28,0)="LITHIUM^NJ6,2X^^28;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,28,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,29,0)="MAGNESIUM^NJ6,2X^^29;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,29,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,29,"DT")="2910717"
^DD(63.04,30,0)="BROMIDE^NJ6,2X^^30;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,30,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,31,0)="COPPER^NJ6,2X^^31;1^S Q9=""0,9999,2"" D ^LRNUM"
^DD(63.04,31,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(63.04,31,"DT")="2870904"
^DD(63.04,32,0)="ZINC^NJ6,2X^^32;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,32,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,33,0)="ARSENIC^F^^33;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,33,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,33,"DT")="2820914"
^DD(63.04,34,0)="MERCURY^F^^34;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,34,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,34,"DT")="2820914"
^DD(63.04,35,0)="LEAD^F^^35;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,35,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,35,"DT")="2820914"
^DD(63.04,36,0)="ETHANOL^F^^36;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,36,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,36,"DT")="2821115"
^DD(63.04,37,0)="ACETONE^F^^37;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,37,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,37,"DT")="2830331"
^DD(63.04,38,0)="N-ACETYL^F^^38;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,38,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,38,"DT")="2820914"
^DD(63.04,39,0)="ACID PHOSPHATASE^NJ6,2X^^39;1^S Q9=""0,9999,2"" D ^LRNUM"
^DD(63.04,39,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(63.04,39,"DT")="2860222"
^DD(63.04,40,0)="AMYLASE^NJ8,2X^^40;1^S Q9=""0,99999,2"" D ^LRNUM"
^DD(63.04,40,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(63.04,40,"DT")="2860222"
^DD(63.04,41,0)="CPK^NJ8,2X^^41;1^S Q9=""0,99999,2"" D ^LRNUM"
^DD(63.04,41,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(63.04,41,"DT")="2860222"
^DD(63.04,42,0)="LACTIC ACID^NJ6,2X^^42;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,42,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,43,0)="LIPASE^NJ6,2X^^43;1^S Q9=""0,9999,2"" D ^LRNUM"
^DD(63.04,43,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(63.04,43,"DT")="2870630"
^DD(63.04,44,0)="5' NUCLEOTIDASE^NJ6,2X^^44;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,44,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,45,0)="SALICYLATE^F^^45;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,45,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,45,"DT")="2840615"
^DD(63.04,46,0)="OSMOLALITY^NJ6,2X^^46;1^S Q9=""0,2000,2"" D ^LRNUM"
^DD(63.04,46,3)="TYPE A NUMBER BETWEEN 0 AND 2000"
^DD(63.04,46,"DT")="2870826"
^DD(63.04,47,0)="TRIGLYCERIDE^NJ8,2X^^47;1^S Q9=""0,10000,2"" D ^LRNUM"
^DD(63.04,47,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(63.04,47,"DT")="2850304"
^DD(63.04,48,0)="AMMONIA^NJ6,2X^^48;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,48,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,49,0)="ACTH^NXJ6,2^^49;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,49,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,51,0)="ANGIOTENSIN 1^NJ6,2X^^51;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,51,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,52,0)="DESIPRAMINE^F^^52;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,52,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,52,"DT")="2821207"
^DD(63.04,53,0)="ESTROGEN^NJ6,2X^^53;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,53,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,54,0)="IMI+DES^F^^54;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,54,.1)="consider for removal"
^DD(63.04,54,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,54,"DT")="2840120"
^DD(63.04,55,0)="GENTAMICIN^F^^55;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,55,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,55,"DT")="2821108"
^DD(63.04,57,0)="DISOPYRAMIDE^F^^57;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,57,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,57,"DT")="2821108"
^DD(63.04,58,0)="HGB ELECTROPHORESIS^F^^58;1^K:$L(X)>200!($L(X)<2) X"
^DD(63.04,58,3)="ANSWER MUST BE 2-200 CHARACTERS IN LENGTH"
^DD(63.04,59,0)="PROTEIN ELECTROPHORESIS^F^^59;1^K:$L(X)>180!($L(X)<2) X"
^DD(63.04,59,3)="ANSWER MUST BE 2-180 CHARACTERS IN LENGTH"
^DD(63.04,60,0)="RENIN^NJ6,2X^^60;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,60,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,61,0)="MYELIN BASIC PROTEIN^F^^61;1^K:$L(X)>80!($L(X)<2) X"
^DD(63.04,61,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.04,61,"DT")="2840118"
^DD(63.04,62,0)="DNA^F^^62;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,62,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,62,"DT")="2841024"
^DD(63.04,63,0)="ALDOLASE^NJ6,2X^^63;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,63,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,64,0)="ALDOSTERONE^NJ6,2X^^64;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,64,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,65,0)="AMITRIPTYLINE^F^^65;1^K:$L(X)>5!($L(X)<1) X"
^DD(63.04,65,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(63.04,65,"DT")="2870714"
^DD(63.04,66,0)="IMIPRAMINE^F^^66;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,66,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,66,"DT")="2821207"
^DD(63.04,67,0)="ANTI SMOOTH MUSCLE^F^^67;1^K:$L(X)>180!($L(X)<2) X"
^DD(63.04,67,3)="ANSWER MUST BE 2-180 CHARACTERS IN LENGTH"
^DD(63.04,68,0)="BUTABARBITAL^NJ5,1X^^68;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,68,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,69,0)="C-PEPTIDE^NJ6,2X^^69;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,69,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,70,0)="CANDIDA PRECIPITANS AB TITER^NJ6,2X^^70;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,70,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,71,0)="CERULOPLASMIN^NJ6,2X^^71;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,71,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,72,0)="NORTRIPTYLINE^F^^72;1^K:$L(X)>5!($L(X)<1)!'(X?.NP) X"
^DD(63.04,72,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(63.04,72,"DT")="2820916"
^DD(63.04,73,0)="11-DEOXYCORTISOL^F^^73;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,73,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,73,"DT")="2821112"
^DD(63.04,74,0)="PTH (C-TERMINAL)^F^^74;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,74,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,74,"DT")="2821214"
^DD(63.04,75,0)="PTH (INTACT)^NJ7,2X^^75;1^S Q9=""0,5000,2"" D ^LRNUM"
^DD(63.04,75,3)="TYPE A NUMBER BETWEEN 0 AND 5000"
^DD(63.04,76,0)="FSH^NXJ6,2^^76;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,76,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,77,0)="METANEPHRINES, TOT^NXJ6,2^^77;1^S Q9=""0,9999,3"" D ^LRNUM"
^DD(63.04,77,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(63.04,78,0)="GASTRIN^NJ6,2X^^78;1^S Q9=""0,9999,2"" D ^LRNUM"
^DD(63.04,78,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(63.04,79,0)="HETEROPHIL^NJ6,2X^^79;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,79,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,80,0)="HDL^NJ6,2X^^80;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,80,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,81,0)="LH^NJ6,2X^^81;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,81,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,82,0)="MYSOLINE^NJ6,2X^^82;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,82,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,83,0)="PROCAINAMIDE^F^^83;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,83,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,83,"DT")="2820914"
^DD(63.04,84,0)="PROLACTIN^F^^84;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,84,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,84,"DT")="2821115"
^DD(63.04,85,0)="TESTOSTERONE^NJ7,2X^^85;1^S Q9=""0,5000,2"" D ^LRNUM"
^DD(63.04,85,3)="TYPE A NUMBER BETWEEN 0 AND 5000"
^DD(63.04,85,"DT")="2821004"
^DD(63.04,86,0)="TEGRETOL^F^^86;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,86,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,86,"DT")="2821108"
^DD(63.04,88,0)="CATECHOLAMINES^NJ7,2X^^88;1^S Q9=""0,3000,2"" D ^LRNUM"
^DD(63.04,88,3)="TYPE A NUMBER BETWEEN 0 AND 3000"
^DD(63.04,88,"DT")="2821126"
^DD(63.04,89,0)="EPINEPHRINE^NJ6,2X^^89;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,89,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,90,0)="NOREPINEPHRINE^NJ7,2X^^90;1^S Q9=""0,3000,2"" D ^LRNUM"
^DD(63.04,90,3)="TYPE A NUMBER BETWEEN 0 AND 3000"
^DD(63.04,90,"DT")="2821219"
^DD(63.04,91,0)="VMA^NJ6,2X^^91;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,91,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,92,0)="CARBAMAZEPINE^NJ6,1X^^92;1^S Q9=""0,9999,1"" D ^LRNUM"
^DD(63.04,92,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(63.04,92,"DT")="2820916"
^DD(63.04,93,0)="TOBRAMYCIN^F^^93;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,93,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,93,"DT")="2821108"
^DD(63.04,94,0)="AMIKACIN^NJ5,1X^^94;1^S Q9=""0,999,1"" D ^LRNUM"
^DD(63.04,94,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,94,"DT")="2821107"
^DD(63.04,95,0)="CHOLINESTERASE^NJ6,2X^^95;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,95,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,96,0)="COMPUTED CREATININE CLEARANCE^NJ6,2X^^96;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,96,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,97,0)="ACETAMINOPHEN^F^^97;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,97,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,97,"DT")="2840615"
^DD(63.04,98,0)="HYDROXYBUTYRIC DEHYDROGENASE^NJ3,0X^^98;1^S Q9=""0,500,0"" D ^LRNUM"
^DD(63.04,98,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 500"
^DD(63.04,99,0)="AMINOLEVULINIC ACID^NJ5,2X^^99;1^S Q9=""0,20,2"" D ^LRNUM"
^DD(63.04,99,3)="TYPE A NUMBER BETWEEN 0 AND 20"
^DD(63.04,100,0)="ANTIMONY^NJ5,3X^^100;1^S Q9=""0,10,3"" D ^LRNUM"
^DD(63.04,100,3)="TYPE A NUMBER BETWEEN 0 AND 10"
^DD(63.04,101,0)="CADMIUM^NJ5,3X^^101;1^S Q9=""0,100,3"" D ^LRNUM"
^DD(63.04,101,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,102,0)="CARBON TETRACHLORIDE^NJ3,0X^^102;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,102,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,103,0)="CAROTENE^NJ3,0X^^103;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,103,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,104,0)="CHLORPHENIRAMINE^F^^104;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,104,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,104,"DT")="2841213"
^DD(63.04,105,0)="CHLORPROMAZINE^F^^105;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,105,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,105,"DT")="2841213"
^DD(63.04,106,0)="CHROMIUM^NJ7,5X^^106;1^S Q9=""0,100,5"" D ^LRNUM"
^DD(63.04,106,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,107,0)="CLONAZEPAM^NJ3,0X^^107;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,107,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,108,0)="COBALT^NJ5,3X^^108;1^S Q9=""0,100,3"" D ^LRNUM"
^DD(63.04,108,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,109,0)="COPROPORPHYRIN^F^^109;1^K:$L(X)>4!($L(X)<1) X"
^DD(63.04,109,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(63.04,110,0)="CREATINE^NJ6,1X^^110;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,110,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,111,0)="CRYOFIBRINOGEN^F^^111;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,111,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,112,0)="DIAZEPAM^F^^112;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,112,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,112,"DT")="2840615"
^DD(63.04,113,0)="25 OH VITAMIN D^NJ6,2X^^113;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,113,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,114,0)="VITAMIN A^NJ6,2X^^114;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,114,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,115,0)="VITAMIN E^NJ6,2X^^115;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,115,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,116,0)="MANGANESE^NJ6,2X^^116;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,116,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,117,0)="SELENIUM^NJ6,2X^^117;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,117,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,118,0)="UROPORPHYRIN^F^^118;1^K:$L(X)>4!($L(X)<1) X"
^DD(63.04,118,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(63.04,119,0)="PROTOPORPHYRIN^F^^119;1^K:$L(X)>4!($L(X)<1) X"
^DD(63.04,119,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(63.04,120,0)="MEPROBAMATE^F^^120;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,120,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,121,0)="CARISOPRODOL^F^^121;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,121,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,122,0)="CODEINE^F^^122;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,122,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,123,0)="PHENACETIN^F^^123;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,123,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,124,0)="1,25-DIHYDROXYVIT D3^F^^124;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,124,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,125,0)="CYSTINE^F^^125;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,125,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,128,0)="RETINOL BINDING PROTEIN^F^^128;1^K:$L(X)>80!($L(X)<1) X"
^DD(63.04,128,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.04,129,0)="TRANSTHYRETIN^F^^129;1^K:$L(X)>80!($L(X)<1) X"
^DD(63.04,129,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.04,130,0)="ACETYLCHOLINE RCPTR AB TITER^F^^130;1^K:$L(X)>60!($L(X)<2) X"
^DD(63.04,130,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(63.04,130,"DT")="2850214"
^DD(63.04,131,0)="LDH1^F^^131;1^K:$L(X)>4!($L(X)<1) X"
^DD(63.04,131,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(63.04,131,"DT")="2830114"
^DD(63.04,132,0)="CPK-MB^F^^132;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,132,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,132,"DT")="2821124"
^DD(63.04,133,0)="CPK-MB/CPK^NJ6,2X^^133;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,133,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,134,0)="LDH1/LDH^NJ6,2X^^134;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,134,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,135,0)="DOXEPIN^F^^135;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,135,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,136,0)="NORDOXEPIN^F^^136;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,136,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,137,0)="TOT/NDOX^F^^137;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,137,.1)="TOT-DOX/NORDOXEPIN"
^DD(63.04,137,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,138,0)="C1 ESTERASE INHIBIT.^F^^138;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,138,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,139,0)="BUTALBITAL^F^^139;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,139,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,140,0)="NORDIAZEPAM^F^^140;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,140,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,141,0)="VANCOMYCIN^F^^141;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,141,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,142,0)="METHANOL^F^^142;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,142,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,142,"DT")="2840615"
^DD(63.04,143,0)="ISOPROPANOL^F^^143;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,143,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,143,"DT")="2840615"
^DD(63.04,144,0)="COCAINE^F^^144;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,144,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,145,0)="PHENYLPROPANOLAMINE^F^^145;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,145,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,146,0)="LIPIDS, TOTAL^NJ5,1X^^146;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,146,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,146,"DT")="2821216"
^DD(63.04,147,0)="NITROGEN^NJ6,2X^^147;1^S Q9=""0,100,2"" D ^LRNUM"
^DD(63.04,147,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,148,0)="HYDROXYPROLINE-TOTAL^NJ3,0X^^148;1^S Q9=""0,200,0"" D ^LRNUM"
^DD(63.04,148,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 200"
^DD(63.04,149,0)="FASTING GTT^NJ6,1X^^149;1^S Q9=""0,2500,1"" D ^LRNUM"
^DD(63.04,149,3)="TYPE A NUMBER BETWEEN 0 AND 2500"
^DD(63.04,149,"DT")="2840806"
^DD(63.04,150,0)="1/2Hr.GTT^NJ6,1X^^150;1^S Q9=""0,2500,1"" D ^LRNUM"
^DD(63.04,150,3)="TYPE A NUMBER BETWEEN 0 AND 2500"
^DD(63.04,150,"DT")="2840806"
^DD(63.04,151,0)="1Hr.GTT^NJ6,1X^^151;1^S Q9=""0,2500,1"" D ^LRNUM"
^DD(63.04,151,3)="TYPE A NUMBER BETWEEN 0 AND 2500"
^DD(63.04,151,"DT")="2840806"
^DD(63.04,152,0)="2Hr.GTT^NJ6,1X^^152;1^S Q9=""0,2500,1"" D ^LRNUM"
^DD(63.04,152,3)="TYPE A NUMBER BETWEEN 0 AND 2500"
^DD(63.04,152,"DT")="2840806"
^DD(63.04,153,0)="3Hr.GTT^NJ6,1X^^153;1^S Q9=""0,2500,1"" D ^LRNUM"
^DD(63.04,153,3)="TYPE A NUMBER BETWEEN 0 AND 2500"
^DD(63.04,153,"DT")="2840806"
^DD(63.04,154,0)="4Hr.GTT^NJ6,1X^^154;1^S Q9=""0,2500,1"" D ^LRNUM"
^DD(63.04,154,3)="TYPE A NUMBER BETWEEN 0 AND 2500"
^DD(63.04,154,"DT")="2840806"
^DD(63.04,155,0)="5Hr.GTT^NJ6,1X^^155;1^S Q9=""0,2500,1"" D ^LRNUM"
^DD(63.04,155,3)="TYPE A NUMBER BETWEEN 0 AND 2500"
^DD(63.04,155,"DT")="2840806"
^DD(63.04,156,0)="PROPRANOLOL^NJ4,0X^^156;1^S Q9=""0,2000,0"" D ^LRNUM"
^DD(63.04,156,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2000"
^DD(63.04,157,0)="VITAMIN C^NJ4,1X^^157;1^S Q9=""0,20,1"" D ^LRNUM"
^DD(63.04,157,3)="TYPE A NUMBER BETWEEN 0 AND 20"
^DD(63.04,159,0)="DOPAMINE^F^^159;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,159,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,159,"DT")="2821219"
^DD(63.04,160,0)="LIPIDS, QUALITATIVE^NJ4,0X^^160;1^S Q9=""0,1000,0"" D ^LRNUM"
^DD(63.04,160,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(63.04,161,0)="LIPID PHENOTYPE EVAL.^F^^161;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,161,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,162,0)="APPEARANCE^F^^162;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,162,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,163,0)="CHYLOMICRONS^F^^163;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,163,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,164,0)="LIPOPROTEIN, BETA^F^^164;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,164,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,165,0)="LIPOPROTEIN, PRE-BETA^F^^165;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,165,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,166,0)="LIPOPROTEIN, ALPHA^F^^166;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,166,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,167,0)="6Hr.GTT^NJ4,0X^^167;1^S Q9=""0,2500,0"" D ^LRNUM"
^DD(63.04,167,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2500"
^DD(63.04,167,"DT")="2840806"
^DD(63.04,169,0)="KETONES^F^^169;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,169,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,169,"DT")="2920812"
^DD(63.04,170,0)="SOMATOMEDIN-C^NJ6,2X^^170;1^S Q9=""0,1000,2"" D ^LRNUM"
^DD(63.04,170,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,171,0)="LIDOCAINE^NJ4,1X^^171;1^S Q9=""0,20,1"" D ^LRNUM"
^DD(63.04,171,3)="TYPE A NUMBER BETWEEN 0 AND 20"
^DD(63.04,172,0)="IMMUNE COMPLEX-C1Q^NJ3,0X^^172;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,172,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,173,0)="HLA B8^F^^173;1^K:$L(X)>7!($L(X)<2) X"
^DD(63.04,173,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(63.04,174,0)="HLA B27^F^^174;1^K:$L(X)>7!($L(X)<2) X"
^DD(63.04,174,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(63.04,175,0)="HCG BETA, QUANT.^F^^175;1^K:$L(X)>7!($L(X)<2) X"
^DD(63.04,175,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(63.04,176,0)="HCG BETA, SCREEN^F^^176;1^K:$L(X)>7!($L(X)<2) X"
^DD(63.04,176,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(63.04,177,0)="MAPROTILINE-LUDIOMIL^NJ3,0X^^177;1^S Q9=""1,999,0"" D ^LRNUM"
^DD(63.04,177,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(63.04,178,0)="AMITRIPTYLENE & NORTRIPTYLINE^F^^178;1^K:$L(X)>7!($L(X)<2) X"
^DD(63.04,178,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(63.04,179,0)="IMIPRAMINE & DESIPRAMINE^F^^179;1^K:$L(X)>7!($L(X)<2) X"
^DD(63.04,179,.1)="consider for removal"
^DD(63.04,179,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(63.04,180,0)="DOXEPIN & N-DESMETHYLDOXEPIN^F^^180;1^K:$L(X)>7!($L(X)<2) X"
^DD(63.04,180,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(63.04,181,0)="N-DESMETHYLDOXEPIN^F^^181;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,181,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,181,"DT")="2830107"
^DD(63.04,182,0)="CIE: CLOSTRIDIUM DIFFICILE^F^^182;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,182,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,183,0)="CIE: GROUP B STREPTOCOCCUS^F^^183;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,183,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,184,0)="CIE: H. INFLUENZA^F^^184;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,184,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,185,0)="CIE: MENINGOCOCCUS^F^^185;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,185,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,186,0)="CIE: PNEUMOCOCCUS^F^^186;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,186,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,187,0)="HOMOVANILLIC ACID^F^^187;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,187,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,188,0)="ANTI-DEOXYRIBONUCLEASE^F^^188;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,188,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,189,0)="IONIZED CALCIUM^F^^189;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,189,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,190,0)="TCA^F^^190;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,190,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,191,0)="FATTY ACIDS, FREE^NJ7,2X^^191;1^S Q9=""0,1000,2"" D ^LRNUM"
^DD(63.04,191,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,191,"DT")="2840116"
^DD(63.04,192,0)="ALK PHOSPHATASE, HEAT LABILE^NJ5,1X^^192;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,192,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,193,0)="ALK PHOSPHATASE, HEAT STABLE^NJ5,1X^^193;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,193,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,194,0)="17-HYDROXYCORTICOSTEROIDS^F^^194;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,194,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,194,"DT")="2831021"
^DD(63.04,195,0)="17-KETOGENIC STEROIDS^F^^195;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,195,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,196,0)="17-KETOSTEROIDS, TOTAL^F^^196;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,196,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,197,0)="A/G RATIO^F^^197;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,197,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,198,0)="ACETALDEHYDE^F^^198;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,198,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,199,0)="ACETAZOLAMIDE^F^^199;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,199,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,200,0)="ACTIVE METABOLITE^F^^200;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,200,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,201,0)="ALPHA-1 FRACTION^F^^201;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,201,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,202,0)="ALPHA-1 GLOBULIN^F^^202;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,202,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,203,0)="ALPHA-2 FRACTION^F^^203;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,203,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,204,0)="ALPHA-2 GLOBULIN^F^^204;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,204,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,205,0)="ALUMINUM^F^^205;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,205,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,209,0)="AMORBARBITAL^F^^209;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,209,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,210,0)="AMOXAPINE^F^^210;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,210,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,211,0)="AMPICILLIN^F^^211;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,211,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,212,0)="ANTIDIURETIC HOR^F^^212;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,212,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,213,0)="ARYLSULFATASE^F^^213;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,213,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,214,0)="BENCE JONES PROTEIN^F^^214;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,214,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,214,"DT")="2841120"
^DD(63.04,215,0)="BENZENE^F^^215;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,215,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,216,0)="BENZODIAZEPINES^F^^216;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,216,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,217,0)="BERYLLIUM^F^^217;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,217,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,218,0)="BETA 2-MICROGLOB^F^^218;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,218,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,219,0)="BETA FRACTION^F^^219;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,219,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,220,0)="BETA GLOBULIN^F^^220;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,220,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,221,0)="BETA LACTOGLOBULIN^F^^221;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,221,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,222,0)="BISMUTH^F^^222;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,222,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,224,0)="CAFFEINE^F^^224;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,224,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,225,0)="CANNABINOIDS^F^^225;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,225,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,226,0)="CARBON MONOXIDE^F^^226;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,226,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,227,0)="CHLORAL HYDRATE^F^^227;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,227,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,228,0)="CHLORAMPHENICOL^F^^228;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,228,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,229,0)="CHLORAZEPATE^F^^229;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,229,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,230,0)="CHLORDANE^F^^230;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,230,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,231,0)="CHLORDIAZEPOXIDE^F^^231;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,231,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,232,0)="CHLORPROPAMIDE^F^^232;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,232,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,233,0)="CIMETIDINE^F^^233;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,233,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,234,0)="CORTICOSTERONE^F^^234;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,234,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,235,0)="CYANIDE^F^^235;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,235,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,236,0)="DESMETHYLDOXEPIN^F^^236;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,236,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,237,0)="DIELDRIN^F^^237;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,237,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,238,0)="DIMETHADIONE^F^^238;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,238,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,239,0)="DIPHENHYDRAMINE^F^^239;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,239,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,240,0)="DISULFIRAM^F^^240;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,240,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,240,"DT")="2831021"
^DD(63.04,241,0)="ESTRONE^F^^241;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,241,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,242,0)="ETHCHLORVYNOL^F^^242;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,242,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,243,0)="ETHINAMATE^F^^243;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,243,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,244,0)="ETHOSUXIMIDE^F^^244;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,244,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,245,0)="ETHOTOIN^F^^245;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,245,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,246,0)="ETHYLENE GLYCOL^F^^246;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,246,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,247,0)="ETIOCHOLANOLONE^F^^247;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,247,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,249,0)="FIGLU^F^^249;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,249,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,250,0)="FLUORIDE^F^^250;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,250,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,251,0)="FLUPHENAZINE-PROLIXN^F^^251;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,251,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,252,0)="FLURAZEPAM^F^^252;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,252,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,253,0)="FREE HCL^F^^253;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,253,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,254,0)="FRUCTOSE^F^^254;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,254,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,255,0)="FUROSEMIDE^F^^255;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,255,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,256,0)="G-6-PD,QUANTITATIVE^F^^256;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,256,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,257,0)="GALACTOSEMIA^F^^257;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,257,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,260,0)="GLOBULIN^F^^260;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,260,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,261,0)="GLUTAMINE^F^^261;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,261,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,262,0)="GLUTAMYL TRANSFERASE^F^^262;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,262,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,263,0)="GLUTATHIONE^F^^263;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,263,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,264,0)="GLUTETHIMIDE^F^^264;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,264,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,265,0)="GOLD^F^^265;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,265,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,266,0)="GUANASE^F^^266;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,266,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,267,0)="HEMOGLOBIN A2 BY COLUMN^F^^267;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,267,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,268,0)="HEMOGLOBIN C^F^^268;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,268,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,269,0)="HEMOGLOBIN F^F^^269;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,269,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,270,0)="HEMOGLOBIN S^F^^270;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,270,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,271,0)="HEMOPEXIN^F^^271;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,271,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,272,0)="HEROIN^F^^272;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,272,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,273,0)="HEXOSAMINIDASE^F^^273;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,273,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,274,0)="HISTAMINE^F^^274;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,274,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,275,0)="HOMOCYSTINE^F^^275;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,275,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,276,0)="HOMOGENTISIC ACID^F^^276;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,276,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,277,0)="HYDROXYPROLINE, FREE^F^^277;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,277,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,277,"DT")="2831021"
^DD(63.04,278,0)="HYPNOTIC/SEDATIVES EVAL.^F^^278;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,278,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,279,0)="INDOLE3 ACETIC ACID^F^^279;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,279,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,281,0)="IODINE, INORGANIC^F^^281;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,281,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,282,0)="IODINE, TOTAL^F^^282;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,282,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,283,0)="ISOCITRIC-DEHYDROGENASE^F^^283;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,283,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,284,0)="ISONIAZID^F^^284;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,284,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,285,0)="KANAMYCIN^F^^285;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,285,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,286,0)="KYNURENIC ACID^F^^286;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,286,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,287,0)="LDH 2^F^^287;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,287,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,288,0)="LDH 3^F^^288;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,288,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,289,0)="LDH 5^F^^289;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,289,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,290,0)="LDH 4^F^^290;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,290,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,291,0)="LDL CHOLESTEROL^F^^291;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,291,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,292,0)="LDL-CHOL CALCULATION^F^^292;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,292,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,293,0)="LDL/HDL RATIO^F^^293;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,293,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,294,0)="LECITHIN/SPHINGOMYELIN RATIO^F^^294;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,294,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,295,0)="LONG ACTING THYROID HORMONE^F^^295;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,295,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,296,0)="LSD^F^^296;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,296,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,297,0)="LYSOZYME^F^^297;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,297,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,298,0)="MACROGLOBULINS^F^^298;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,298,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,299,0)="MARIJUANA SCREEN^F^^299;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,299,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,300,0)="MAUVE SPOT^F^^300;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,300,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,301,0)="MELANIN^F^^301;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,301,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,301,21,0)=""
^DD(63.04,302,0)="MEPERIDINE^F^^302;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,302,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,303,0)="MEPHOBARBITAL^F^^303;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,303,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,304,0)="MESANTOIN^F^^304;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,304,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,306,0)="METHADONE^F^^306;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,306,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,306,"DT")="2831021"
^DD(63.04,307,0)="METHAMPHETAMINE^F^^307;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,307,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,308,0)="METHAPYRILENE^F^^308;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,308,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,309,0)="METHAQUALONE^F^^309;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,309,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,310,0)="METHARBITAL^F^^310;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,310,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,311,0)="METHEMALBUMIN^F^^311;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,311,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,312,0)="METHOCARBAMOL^F^^312;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,312,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,313,0)="METHOTREXATE^F^^313;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,313,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,314,0)="METHSUXIMIDE^F^^314;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,314,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,315,0)="METHYLMALONIC ACID^F^^315;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,315,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,316,0)="METHYPRYLON^F^^316;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,316,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,317,0)="MORPHINE^F^^317;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,317,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,318,0)="MUCOPOLYSACCHARIDES^F^^318;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,318,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,319,0)="MYOGLOBIN^F^^319;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,319,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,320,0)="N-DESALKYL FLURAZEPAM^F^^320;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,320,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,321,0)="NAFCILLIN^F^^321;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,321,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,322,0)="NICKEL^F^^322;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,322,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,323,0)="NICOTINE^F^^323;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,323,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,324,0)="NIRVANOL^F^^324;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,324,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,325,0)="NORMETHSUXIMIDE^F^^325;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,325,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,326,0)="OPIATES^F^^326;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,326,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,326,"DT")="2850304"
^DD(63.04,327,0)="OXALATE^F^^327;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,327,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,328,0)="OXAZEPAM^F^^328;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,328,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,329,0)="OXYCODONE^F^^329;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,329,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,330,0)="PARAMETHADIONE^F^^330;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,330,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,331,0)="PCB-POLYCHLORINATED^F^^331;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,331,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,332,0)="PEMA^F^^332;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,332,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,333,0)="PENTAZOCINE^F^^333;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,333,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,334,0)="PENTOBARBITAL^F^^334;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,334,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,335,0)="PEPSINOGEN^F^^335;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,335,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,336,0)="PEPSINOGEN 1^F^^336;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,336,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,337,0)="PHENCYCLIDINE^F^^337;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,337,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,338,0)="PHENCYCLIDINE (PCP)^F^^338;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,338,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,339,0)="PHENCYCLIDINE (PCP)B^F^^339;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,339,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,340,0)="PHENOL^F^^340;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,340,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,341,0)="PHENOLSULFONPHTHALEIN^F^^341;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,341,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,342,0)="PHENOTHIAZINE^F^^342;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,342,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,343,0)="PHENSUXIMIDE^F^^343;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,343,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,344,0)="PHENYLALANINE^F^^344;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,344,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,345,0)="PHOSPHOLIPIDS^F^^345;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,345,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,346,0)="PHYTANIC ACID^F^^346;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,346,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,347,0)="PRAZEPAM^F^^347;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,347,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,348,0)="PREGNANEDIOL^F^^348;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,348,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,349,0)="PREGNANETRIOL^F^^349;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,349,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,350,0)="PROPOXYPHENE^F^^350;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,350,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,351,0)="PROTRIPTYLINE^F^^351;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,351,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,352,0)="PSEUDOCHOLINESTERASE^F^^352;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,352,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,353,0)="PYRUVATE^F^^353;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,353,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,354,0)="PYRUVATE KINASE SCREEN^F^^354;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,354,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,356,0)="SECOBARBITAL^F^^356;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,356,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,357,0)="SEROTONIN^F^^357;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,357,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,358,0)="STRYCHNINE^F^^358;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,358,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,359,0)="SULFHEMOGLOBIN^F^^359;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,359,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,360,0)="SULFONAMIDES^F^^360;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,360,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,361,0)="TETRACYCLINE^F^^361;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,361,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,363,0)="THALLIUM^F^^363;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,363,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,364,0)="THIAMINE^F^^364;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,364,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,365,0)="THIOCYANATE^F^^365;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,365,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,366,0)="THIOPENTAL^F^^366;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,366,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,367,0)="THIORIDAZINE^F^^367;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,367,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,368,0)="THIORIDAZINE-MELLARIL^F^^368;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,368,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,369,0)="THYROGLOBULIN^F^^369;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,369,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,371,0)="TRANXENE^F^^371;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,371,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,372,0)="TRAZODONE^F^^372;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,372,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,373,0)="TRICYCLICS^F^^373;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,373,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,374,0)="TRIMETHADIONE^F^^374;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,374,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,375,0)="TRYPSIN^F^^375;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,375,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,376,0)="TRYPTAMINE^F^^376;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,376,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,377,0)="VALPROIC ACID^F^^377;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,377,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,378,0)="VASO ACTIVE PEPTIDE^F^^378;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,378,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,379,0)="VITAMIN B-1^F^^379;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,379,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,380,0)="VITAMIN B-2^F^^380;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,380,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,381,0)="VITAMIN B-6^F^^381;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,381,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,382,0)="XANTHURENIC ACID^F^^382;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,382,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,383,0)="XYLOSE ABSORPTION^F^^383;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,383,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,383,"DT")="2840419"
^DD(63.04,384,0)="WBC^NXJ8,1^^384;1^S Q9=""0,300000,1"" D ^LRNUM"
^DD(63.04,384,3)="TYPE A NUMBER BETWEEN 0 AND 300000"
^DD(63.04,385,0)="RBC^NXJ9,2^^385;1^S Q9=""0,9999999,2"" D ^LRNUM"
^DD(63.04,385,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(63.04,386,0)="HGB^NXJ7,2^^386;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>1500)!(X<0) X"
^DD(63.04,386,3)="TYPE A NUMBER BETWEEN 0 AND 1500"
^DD(63.04,387,0)="HCT^NXJ5,1^^387;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,387,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,388,0)="MCV^NXJ5,1^^388;1^S Q9=""50,150,1"" D ^LRNUM"
^DD(63.04,388,3)="TYPE A NUMBER BETWEEN 50 AND 150"
^DD(63.04,389,0)="MCH^NXJ5,1^^389;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,389,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,390,0)="MCHC^NXJ5,1^^390;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,390,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,391,0)="RDW^NXJ5,1^^391;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,391,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,392,0)="PLT^NXJ6,1^^392;1^S Q9=""0,5000,1"" D ^LRNUM"
^DD(63.04,392,3)="TYPE A NUMBER BETWEEN 0 AND 5000"
^DD(63.04,393,0)="MPV^NXJ5,1^^393;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,393,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,394,0)="SEGS^NXJ3,0^^394;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,394,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,395,0)="BANDS^NXJ3,0^^395;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,395,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,396,0)="LYMPHS^NXJ3,0^^396;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,396,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,397,0)="MONOCYTES^NXJ3,0^^397;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,397,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,398,0)="EOSINO^NXJ6,1^^398;1^S Q9=""0,5000,1"" D ^LRNUM"
^DD(63.04,398,3)="TYPE A NUMBER BETWEEN 0 AND 5000"
^DD(63.04,399,0)="BASO^NXJ5,1^^399;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,399,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,400,0)="META^NXJ5,1^^400;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,400,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,401,0)="MYELO^NXJ5,1^^401;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,401,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,402,0)="PROMYELOCYTES^NXJ5,1^^402;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,402,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,403,0)="BLAST^NXJ5,1^^403;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,403,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,404,0)="NRBC/100 WBC^NXJ4,0^^404;1^S Q9=""0,1000,0"" D ^LRNUM"
^DD(63.04,404,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(63.04,405,0)="PLT. (SMEAR EST.)^S^Adeq.:ADEQ.;Reduced:REDUCED;Inc.:INC.;Hi Adq:HI ADQ;Lo Adq:LO ADQ;^405;1^Q"
^DD(63.04,405,"DT")="2841214"
^DD(63.04,406,0)="NORMOCYTIC^S^Yes:YES;No:NO;^406;1^Q"
^DD(63.04,406,3)="A yes answer will skip abnormal normocytic responses."
^DD(63.04,406,"DT")="2841129"
^DD(63.04,407,0)="NORMOCHROMIC^S^Yes:YES;No:NO;^407;1^Q"
^DD(63.04,407,3)="A yes answer will skip abnormal normochromic responses."
^DD(63.04,407,"DT")="2841129"
^DD(63.04,408,0)="ANISOCYTOSIS^S^1+:1;2+:2;3+:3;4+:4;^408;1^Q"
^DD(63.04,409,0)="POIKILOCYTOSIS^S^1+:1;2+:2;3+:3;4+:4;^409;1^Q"
^DD(63.04,409,3)=""
^DD(63.04,410,0)="MICROCYTOSIS^S^1+:1;2+:2;3+:3;4+:4;^410;1^Q"
^DD(63.04,411,0)="MACROCYTOSIS^S^1+:1;2+:2;3+:3;4+:4;^411;1^Q"
^DD(63.04,411,3)=""
^DD(63.04,412,0)="POLYCHROMASIA^S^1+:1;2+:2;3+:3;4+:4;^412;1^Q"
^DD(63.04,412,3)=""
^DD(63.04,413,0)="HYPOCHROMIA^S^1+:1;2+:2;3+:3;4+:4;Few:F;^413;1^Q"
^DD(63.04,413,"DT")="2840423"
^DD(63.04,414,0)="TARGET CELLS^S^1+:1;2+:2;3+:3;4+:4;^414;1^Q"
^DD(63.04,415,0)="DOHLE BODIES^S^Few:F;1+:1;2+:2;3+:3;4+:4;^415;1^Q"
^DD(63.04,415,"DT")="2840229"
^DD(63.04,416,0)="HOWELL JOLLY BODIES^S^Few:F;1+:1;2+:2;3+:3;4+:4;^416;1^Q"
^DD(63.04,416,3)=""
^DD(63.04,417,0)="PAPPENHEIMER BODIES^S^Few:F;1+:1;2+:2;3+:3;4+:4;^417;1^Q"
^DD(63.04,417,3)=""
^DD(63.04,418,0)="MALARIA FORMS^S^Few:F;1+:1;2+:2;3+:3;4+:4;^418;1^Q"
^DD(63.04,418,3)=""
^DD(63.04,419,0)="MEGAKARYOCYTE^S^Few:F;1+:1;2+:2;3+:3;4+:4;^419;1^Q"
^DD(63.04,419,3)=""
^DD(63.04,420,0)="OVALOCYTES^S^Few:F;1+:1;2+:2;3+:3;4+:4;^420;1^Q"
^DD(63.04,420,3)=""
^DD(63.04,421,0)="TEARDROPS^S^Few:F;1+:1;2+:2;3+:3;4+:4;^421;1^Q"
^DD(63.04,421,3)=""
^DD(63.04,422,0)="SICKLE CELLS^S^Few:F;1+:1;2+:2;3+:3;4+:4;^422;1^Q"
^DD(63.04,422,3)=""
^DD(63.04,423,0)="BURR CELLS^S^Few:F;1+:1;2+:2;3+:3;4+:4;^423;1^Q"
^DD(63.04,423,3)=""
^DD(63.04,424,0)="HELMET CELLS^S^Few:F;1+:1;2+:2;3+:3;4+:4;^424;1^Q"
^DD(63.04,424,3)=""
^DD(63.04,425,0)="SCHISTOCYTES^S^Few:F;1+:1;2+:2;3+:3;4+:4;^425;1^Q"
^DD(63.04,425,3)=""
^DD(63.04,425,"DT")="2910717"
^DD(63.04,426,0)="ACANTHOCYTES^S^Few:F;1+:1;2+:2;3+:3;4+:4;^426;1^Q"
^DD(63.04,426,3)=""
^DD(63.04,427,0)="WINTROBE ESR^F^^427;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,427,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,428,0)="RETICULOCYTES^F^^428;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,428,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,430,0)="PROTHROMBIN TIME^F^^430;1^K:$L(X)>5!($L(X)<1) X"
^DD(63.04,430,3)="'HELP'-PROMPT: ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(63.04,431,0)="PARTIAL THROMBOPLASTIN TIME^FX^^431;1^K:$L(X)>5!($L(X)<1)!(X?.E1"".""2N.N) X"
^DD(63.04,431,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(63.04,432,0)="FIBRINOGEN^FX^^432;1^K:$L(X)>6!($L(X)<1)!'(X?1PN.N) X"
^DD(63.04,432,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,433,0)="FIBRIN SPLIT PRODUCTS^F^^433;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,433,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,434,0)="BLEEDING TIME^FX^^434;1^K:$L(X)>5!($L(X)<1)!'(X?."">""1N.NP) X"
^DD(63.04,434,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(63.04,435,0)="THROMBIN TIME^NXJ3,0^^435;1^S Q9=""1,100,1"" D ^LRNUM"
^DD(63.04,435,3)="TYPE A NUMBER BETWEEN 1 AND 100"
^DD(63.04,436,0)="VISCOSITY^F^^436;1^K:$L(X)>40!($L(X)<1) X"
^DD(63.04,436,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(63.04,436,"DT")="2841120"
^DD(63.04,437,0)="LIQUIFACTION^F^^437;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.04,437,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(63.04,437,"DT")="2841120"
^DD(63.04,438,0)="ANTITHROMBIN III^F^^438;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,438,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,439,0)="MOTILITY^F^^439;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.04,439,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(63.04,439,"DT")="2841120"
^DD(63.04,440,0)="SPERM COUNT^NXJ3,0^^440;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,440,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,441,0)="PT CONTROL^NXJ4,1^^441;1^S Q9=""0,20,1"" D ^LRNUM"
^DD(63.04,441,3)="TYPE A NUMBER BETWEEN 0 AND 20"
^DD(63.04,441,"DT")="2911002"
^DD(63.04,442,0)="MESOTHELIAL CELLS^NXJ3,0^^442;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,442,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,443,0)="CRYSTALS^F^^443;1^K:$L(X)>30!($L(X)<2) X"
^DD(63.04,443,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.04,444,0)="FIO2 (L. OR %)^FX^^444;1^K:$L(X)>8!($L(X)<2) X IF $D(X),'(X[""%""!(X?1N.NP1""L""!(X[""CA""))),X<21!(X>100) K X"
^DD(63.04,444,3)="ENTER O2%, O2 LITERS, OR CA -CARDIAC ARREST BAGGING"
^DD(63.04,444,"DT")="2850219"
^DD(63.04,445,0)="HB (HGB)^F^^445;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,445,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,445,"DT")="2840118"
^DD(63.04,446,0)="%O2HB^NXJ5,1^^446;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,446,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,446,"DT")="2910715"
^DD(63.04,447,0)="%COHB^NXJ5,1^^447;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,447,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,447,"DT")="2910715"
^DD(63.04,448,0)="%METHB^NXJ3,1^^448;1^S Q9=""0,9,1"" D ^LRNUM"
^DD(63.04,448,3)="TYPE A NUMBER BETWEEN 0 AND 9"
^DD(63.04,448,"DT")="2910715"
^DD(63.04,449,0)="O2CT.^NXJ4,1^^449;1^S Q9=""0,27,1"" D ^LRNUM"
^DD(63.04,449,3)="TYPE A NUMBER BETWEEN 0 AND 27"
^DD(63.04,450,0)="PH^NXJ5,2^^450;1^S Q9=""1,14,3"" D ^LRNUM"
^DD(63.04,450,3)="TYPE A NUMBER BETWEEN 1 AND 14"
^DD(63.04,450,"DT")="2860222"
^DD(63.04,451,0)="PCO2^NXJ5,1^^451;1^S Q9=""10,200,1"" D ^LRNUM"
^DD(63.04,451,3)="TYPE A NUMBER BETWEEN 10 AND 200"
^DD(63.04,452,0)="PO2^NXJ5,1^^452;1^S Q9=""5,800,1"" D ^LRNUM"
^DD(63.04,452,3)="TYPE A NUMBER BETWEEN 5 AND 800"
^DD(63.04,453,0)="BASE EXCESS^NXJ4,1^^453;1^S Q9=""-30,30,1"" D ^LRNUM"
^DD(63.04,453,3)="TYPE A NUMBER BETWEEN -30 AND 30"
^DD(63.04,454,0)="BICARBONATE^NXJ4,1^^454;1^S Q9=""3,65,1"" D ^LRNUM"
^DD(63.04,454,3)="TYPE A NUMBER BETWEEN 3 AND 65"
^DD(63.04,455,0)="CO2CT.^NXJ5,1^^455;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,455,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,456,0)="PT. TEMP^NJ5,1X^^456;1^S:X>50 X=+$J(X-32*5/9,2,1) K:(X>50)!(X<25) X"
^DD(63.04,456,3)="ENTER FARENHEIT OR CENTIGRADE"
^DD(63.04,457,0)="pH at PT temp^NXJ5,3^^457;1^S Q9=""5,9,3"" D ^LRNUM"
^DD(63.04,457,3)="TYPE A NUMBER BETWEEN 5 AND 9"
^DD(63.04,458,0)="PCO2 AT PT. TEMP^NXJ5,1^^458;1^S Q9=""10,200,1"" D ^LRNUM"
^DD(63.04,458,3)="TYPE A NUMBER BETWEEN 10 AND 200"
^DD(63.04,459,0)="PO2 AT PT. TEMP^NXJ5,1^^459;1^S Q9=""15,600,1"" D ^LRNUM"
^DD(63.04,459,3)="TYPE A NUMBER BETWEEN 15 AND 600"
^DD(63.04,460,0)="PTT CONTROL^NXJ4,1^^460;1^S Q9=""0,50,1"" D ^LRNUM"
^DD(63.04,460,3)="TYPE A NUMBER BETWEEN 0 AND 50"
^DD(63.04,460,"DT")="2911001"
^DD(63.04,461,0)="HAM'S TEST^F^^461;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,461,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,462,0)="HEMOGLOBIN A1C^F^^462;1^K:$L(X)>20!($L(X)<1) X"
^DD(63.04,462,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(63.04,462,"DT")="2890815"
^DD(63.04,463,0)="LE PREP^F^^463;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,463,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,464,0)="OSMOTIC FRAGILITY^F^^464;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,464,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,464,"DT")="2841010"
^DD(63.04,465,0)="SICKLE CELL PREP^F^^465;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,465,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,466,0)="SUGAR WATER TEST^F^^466;1^K:$L(X)>25!($L(X)<1) X"
^DD(63.04,466,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(63.04,467,0)="SPERM MORPHOLOGY^F^^467;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.04,467,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(63.04,467,"DT")="2841120"
^DD(63.04,468,0)="NEUTROPHIL^NXJ3,0^^468;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,468,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,469,0)="WESTERGREN ESR^F^^469;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,469,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,470,0)="ERYTHROPOIETIN^NXJ3,0^^470;1^S Q9=""0,200,0"" D ^LRNUM"
^DD(63.04,470,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 200"
^DD(63.04,471,0)="ATYPICAL LYMPHOCYTES^NXJ6,2^^471;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,471,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,472,0)="PLASMA CELLS^NXJ6,2^^472;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,472,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,473,0)="SPHEROCYTES^S^1+:1;2+:2;3+:3;4+:4;Occ:O;Few:F;Neg.:NEG;^473;1^Q"
^DD(63.04,473,3)=""
^DD(63.04,474,0)="BASOPHILIC STIPPLING^S^1+:1;2+:2;3+:3;4+:4;Occ:O;Few:F;Neg.:NEG;^474;1^Q"
^DD(63.04,474,3)=""
^DD(63.04,475,0)="TOXIC GRANULATION^S^1+:1;2+:2;3+:3;4+:4;Occ:O;Few:F;Neg.:NEG;^475;1^Q"
^DD(63.04,475,3)=""
^DD(63.04,476,0)="HYPERSEGMENTED NEUTROPHILS^S^1+:1;2+:2;3+:3;4+:4;Occ:O;Few:F;Neg.:NEG;^476;1^Q"
^DD(63.04,476,3)=""
^DD(63.04,477,0)="SMUDGE CELLS^S^1+:1;2+:2;3+:3;4+:4;Occ:O;Few:F;Neg.:NEG;^477;1^Q"
^DD(63.04,477,3)=""
^DD(63.04,478,0)="NEUTROPHIL MATURITY, MEAN^NXJ3,0^^478;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,478,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,479,0)="NEUTROPHIL MATURITY, STA DEV^NXJ3,0^^479;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,479,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,480,0)="LYMPHOCYTE ATYPIA, MEAN^NXJ3,0^^480;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,480,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,481,0)="LYMPHOCYTE ATYPIA, STA DEV^NXJ3,0^^481;1^S Q9=""0,999,0"" D ^LRNUM"
^DD(63.04,481,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.04,482,0)="TURBIDITY^F^^482;1^K:$L(X)>7!($L(X)<0) X"
^DD(63.04,482,3)="ANSWER MUST BE 0-7 CHARACTERS IN LENGTH"
^DD(63.04,483,0)="COLOR^F^^483;1^K:$L(X)>13!($L(X)<2) X"
^DD(63.04,483,3)="ANSWER MUST BE 2-13 CHARACTERS IN LENGTH"
^DD(63.04,483,"DT")="2831222"
^DD(63.04,484,0)="FACTOR VII^F^^484;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,484,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,485,0)="FACTOR IX INHIBITOR^F^^485;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,485,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,486,0)="FACTOR XII^F^^486;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,486,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,487,0)="BETHESDA ASY^NXJ6,2^^487;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,487,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,488,0)="MALARIA SMEAR^F^^488;1^K:$L(X)>25!($L(X)<1) X"
^DD(63.04,488,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(63.04,489,0)="TUBE #^NXJ1,0^^489;1^S Q9=""1,5,0"" D ^LRNUM"
^DD(63.04,489,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 5"
^DD(63.04,490,0)="MACROPHAGES^NXJ3,0^^490;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,490,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,491,0)="PLATELET AGGREGATION^F^^491;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,491,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,492,0)="FACTOR VIII ANTIGEN^F^^492;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,492,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,493,0)="FACTOR VIII ACTIVITY^NXJ6,2^^493;1^S Q9=""0,1000,2"" D ^LRNUM"
^DD(63.04,493,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,494,0)="FACTOR VIII MULTIMER^NXJ6,2^^494;1^S Q9=""0,100,2"" D ^LRNUM"
^DD(63.04,494,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,495,0)="FACTOR II INHIBITOR^F^^495;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,495,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,496,0)="FACTOR V INHIBITOR^F^^496;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,496,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,497,0)="FACTOR X INHIBITOR^F^^497;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,497,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,498,0)="FACTOR XI^F^^498;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,498,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,499,0)="FACTOR XIII^F^^499;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,499,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,500,0)="PT WITH MIX^F^^500;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,500,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,501,0)="REPTILASE TIME^F^^501;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,501,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,502,0)="ALTERNATE LYMPHS^NXJ5,1^^502;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,502,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,503,0)="A2 HEMOGLOBIN BY COLUMN^F^^503;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,503,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,504,0)="BONE MARROW^F^^504;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,504,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,505,0)="LUPUS TYPE INHIBITOR^F^^505;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,505,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,506,0)="COLLAGEN TYPE INHIBITOR^F^^506;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,506,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,507,0)="FACTOR VIII INHIBITOR^F^^507;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,507,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,508,0)="FACTOR VII INHIBITOR^F^^508;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,508,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,509,0)="HEM FACTOR IX INHIBITOR^F^^509;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,509,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,510,0)="DRUG INDUCED INHIBITOR^F^^510;1^K:$L(X)>80!($L(X)<1) X"
^DD(63.04,510,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.04,511,0)="STYPVEN TIME^F^^511;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,511,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,512,0)="EUGLOBULIN LYSIS TIME^F^^512;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,512,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,513,0)="MUCIN CLOT^F^^513;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,513,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,514,0)="PROTAMINE SULFATE^F^^514;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,514,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,514,"DT")="2841003"
^DD(63.04,515,0)="HEPARIN^F^^515;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,515,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,516,0)="PLASMINOGEN, ACTIVATED^F^^516;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,516,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,517,0)="PLASMINOGEN, TOTAL^F^^517;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,517,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,518,0)="ADP^F^^518;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,518,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,519,0)="HEM EPINEPHRINE^F^^519;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,519,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,520,0)="ARACHIDONIC ACID^F^^520;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,520,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,521,0)="RISTOCETIN^F^^521;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,521,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,522,0)="VON WILLEBRAND FACTOR^F^^522;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,522,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,523,0)="VON WILLEBRAND (CONTROL)^F^^523;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,523,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,524,0)="PLATELET ADHESION^F^^524;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,524,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,525,0)="ADP COMMENT^F^^525;1^K:$L(X)>50!($L(X)<2) X"
^DD(63.04,525,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(63.04,526,0)="COLLAGEN COMMENT^F^^526;1^K:$L(X)>50!($L(X)<2) X"
^DD(63.04,526,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(63.04,527,0)="EPINEPHRINE COMMENT^F^^527;1^K:$L(X)>50!($L(X)<2) X"
^DD(63.04,527,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(63.04,528,0)="ARACHIDONIC ACID COMMENT^F^^528;1^K:$L(X)>50!($L(X)<2) X"
^DD(63.04,528,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(63.04,529,0)="RISTOCETIN COMMENT^F^^529;1^K:$L(X)>50!($L(X)<2) X"
^DD(63.04,529,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(63.04,530,0)="HEINZ BODY STAIN^F^^530;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,530,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,531,0)="LUPUS TYPE INHIBITOR (CONTROL)^F^^531;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,531,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,532,0)="COLLAGEN TYPE (CONTROL)^F^^532;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,532,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,533,0)="FACTOR VIII (CONTROL)^F^^533;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,533,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,534,0)="FACTOR VII (CONTROL)^F^^534;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,534,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,535,0)="FACTOR V (CONTROL)^F^^535;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,535,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,536,0)="FACTOR II (CONTROL)^F^^536;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,536,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,537,0)="FACTOR IX (CONTROL)^F^^537;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,537,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,538,0)="FACTOR X (CONTROL)^F^^538;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,538,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,539,0)="STYPVEN TIME (CONTROL)^F^^539;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,539,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,540,0)="EUGLOBULIN TIME (CONTROL)^F^^540;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,540,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,541,0)="ALPHA-1-ANTITRYPSIN^F^^541;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,541,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,542,0)="ANTINUCLEAR ANTIBODY^S^N:Negative;H:Positive (Homogeneous Pattern);M:Positive (Membranous Pattern);S:Positive (Speckled Pattern);PP:Positive (Peripheral Pattern);P:Positive;^542;1^Q"
^DD(63.04,542,3)=""
^DD(63.04,542,"DT")="2840615"
^DD(63.04,543,0)="ANTISTREPTOLYSIN SC^F^^543;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,543,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,544,0)="ASO^F^^544;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,544,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,545,0)="C-REACTIVE PROTEIN^F^^545;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,545,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,546,0)="COLD AGGLUTININS^F^^546;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,546,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,547,0)="COMPLEMENT C3^F^^547;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,547,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,548,0)="COMPLEMENT C4^F^^548;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,548,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,549,0)="CRYOGLOBULINS^F^^549;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,549,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,550,0)="FEBRILE AGGLUTINS^F^^550;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,550,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,551,0)="FTA^S^R:Reactive;WR:Weakly Reactive;N:Nonreactive;^551;1^Q"
^DD(63.04,551,3)=""
^DD(63.04,551,"DT")="2840405"
^DD(63.04,552,0)="HAPTOGLOBIN^F^^552;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,552,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,553,0)="HEPATITIS B SURFACE ANTIGEN^F^^553;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,553,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,554,0)="IMMUNOELECTROPHORESIS^F^^554;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,554,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,554,"DT")="2920204"
^DD(63.04,555,0)="IMMUNOGLOBULINS^F^^555;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,555,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,556,0)="MONO TEST^F^^556;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,556,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,557,0)="MYCOPLASMA TITER^F^^557;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,557,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,557,"DT")="2840906"
^DD(63.04,558,0)="RHEUMATOID FACTOR^F^^558;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,558,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,559,0)="RPR,QUAL^S^Reactive:Reactive;Nonreactive:Nonreactive;Weakly Reactive:Weakly Reactive;^559;1^Q"
^DD(63.04,559,3)=""
^DD(63.04,559,"DT")="2850730"
^DD(63.04,560,0)="STREPTOZYME^F^^560;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,560,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,560,"DT")="2900508"
^DD(63.04,561,0)="VDRL^F^^561;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,561,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,562,0)="FUNGAL^F^^562;1^K:$L(X)>6!($L(X)<0) X"
^DD(63.04,562,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,563,0)="ANTI-DNA ANTIBODY^F^^563;1^K:$L(X)>8!($L(X)<2) X"
^DD(63.04,563,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(63.04,564,0)="ANTI-HYALURONIDASE TITER^F^^564;1^K:$L(X)>8!($L(X)<2) X"
^DD(63.04,564,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(63.04,565,0)="ANTI-MICROSOMAL ANTIBODY^F^^565;1^K:$L(X)>8!($L(X)<2) X"
^DD(63.04,565,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(63.04,566,0)="ANTI-MITOCHONDRIAL ANTIBODIES^F^^566;1^K:$L(X)>8!($L(X)<2) X"
^DD(63.04,566,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(63.04,567,0)="ANTI-PARIETAL CELL ANTIBODY^F^^567;1^K:$L(X)>8!($L(X)<2) X"
^DD(63.04,567,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(63.04,568,0)="ANTI-THYROGLOBULIN ANTIBODY^F^^568;1^K:$L(X)>8!($L(X)<2) X"
^DD(63.04,568,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(63.04,569,0)="BRUCELLA AGGLUTINATION^F^^569;1^K:$L(X)>8!($L(X)<2) X"
^DD(63.04,569,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(63.04,570,0)="COMPLEMENT C2^NXJ4,1^^570;1^S Q9=""0,99999,4"" D ^LRNUM"
^DD(63.04,570,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(63.04,571,0)="COMPLEMENT C5^NXJ4,1^^571;1^S Q9=""0,30,1"" D ^LRNUM"
^DD(63.04,571,3)="TYPE A NUMBER BETWEEN 0 AND 30"
^DD(63.04,572,0)="COMPLEMENT C6^NXJ5,2^^572;1^S Q9=""0,10,2"" D ^LRNUM"
^DD(63.04,572,3)="TYPE A NUMBER BETWEEN 0 AND 10"
^DD(63.04,573,0)="COMPLEMENT DECAY RATE^NXJ3,0^^573;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,573,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,574,0)="COMPLEMENT TOTAL^NXJ3,0^^574;1^S Q9=""0,200,0"" D ^LRNUM"
^DD(63.04,574,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 200"
^DD(63.04,575,0)="DIBUCAINE NUMBER^NXJ3,0^^575;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,575,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,576,0)="CHLAMYDIA AB TITER^NXJ6,2^^576;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,576,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,577,0)="RUBELLA^F^^577;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,577,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,578,0)="HERPES SIMPLEX,COMMON AG TITER^F^^578;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,578,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,579,0)="CMV^F^^579;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,579,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,579,"DT")="2841023"
^DD(63.04,580,0)="TOXOPLASMA^F^^580;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,580,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,581,0)="HEPATITIS A ANTIBODY^F^^581;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,581,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,582,0)="HEPATITIS B CORE ANTIBODY^F^^582;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,582,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,583,0)="HEPATITIS B SURFACE ANTIBODY^F^^583;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,583,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,584,0)="HEPATITIS E ANTIBODY^F^^584;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,584,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,585,0)="HEPATITIS E ANTIGEN^F^^585;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,585,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,586,0)="ANTI GLOM BASEMENT MEM^F^^586;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,586,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,587,0)="COMPLEMENT CH50^F^^587;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,587,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,588,0)="BRUCELLA BLOCKING ANTIBODIES^F^^588;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,588,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,589,0)="ADENOVIRUS TITER^F^^589;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,589,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,590,0)="ANTI-DNASE AB^F^^590;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,590,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,591,0)="ANTI-EPIDERMAL AB^F^^591;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,591,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,592,0)="ANTI-MYOCARDIAL AB^F^^592;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,592,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,593,0)="ANTI-RETICULIN^F^^593;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,593,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,594,0)="ANTI-RNP^F^^594;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,594,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,595,0)="ANTI-SKELETAL MUSCLE^F^^595;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,595,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,596,0)="ANTI-STRIATED MUSCLE^F^^596;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,596,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,597,0)="ANTI-THYROID ANTIBODIES GROUP^F^^597;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,597,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,598,0)="ANTICENTROMERE^F^^598;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,598,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,599,0)="ASPERGILLUS AB IMMUNODIFFUSION^F^^599;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,599,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,600,0)="ASPERGILLUS COMPLEMENT TITER^F^^600;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,600,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,601,0)="BLASTOMYCES AB^F^^601;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,601,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,602,0)="BLASTOMYCES COMPLEMENT TITER^F^^602;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,602,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,603,0)="C-1Q COMPLEMENT COMPONENT^F^^603;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,603,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,604,0)="C-1Q IMMUNE COMPLEX^F^^604;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,604,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,605,0)="CANDIDA IMMUNO DIFF^F^^605;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,605,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,606,0)="CRYPTOCOCCUS ANTIGEN^F^^606;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,606,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,606,"DT")="2841023"
^DD(63.04,607,0)="CYTOMEGALO IFA^F^^607;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,607,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,608,0)="CYTOMEGALOVIRUS^F^^608;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,608,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,609,0)="CYTOPLASMIC AB^F^^609;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,609,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,610,0)="EPSTEIN BARR^F^^610;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,610,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,610,"DT")="2841023"
^DD(63.04,611,0)="FUNGUS ANTIBODY GROUP^F^^611;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,611,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,612,0)="GROUP B-1^F^^612;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,612,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,613,0)="GROUP B-2^F^^613;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,613,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,614,0)="GROUP B-3^F^^614;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,614,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,615,0)="GROUP B-4^F^^615;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,615,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,616,0)="GROUP B-5^F^^616;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,616,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,617,0)="GROUP B-6^F^^617;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,617,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,618,0)="H. SIMPLEX I^F^^618;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,618,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,619,0)="H. SIMPLEX II^F^^619;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,619,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,620,0)="HETEROPHIL AB DIFFERENTIAL^F^^620;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,620,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,621,0)="HISTONE-REACTIVE AB^F^^621;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,621,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,622,0)="HISTOPLASMA COMPLEMENT TITER^F^^622;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,622,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,623,0)="HISTOPLASMA PRECIPITIN^F^^623;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,623,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,624,0)="HLA-ABC TYPING^F^^624;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,624,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,625,0)="IGA^F^^625;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,625,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,626,0)="IGD^F^^626;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,626,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,627,0)="IGG^F^^627;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,627,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,628,0)="IGG SYNTHESIS RATE^F^^628;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,628,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,629,0)="IGG, ACUTE^F^^629;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,629,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,630,0)="IGG, CONVALESCENT^F^^630;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,630,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,631,0)="IGM^F^^631;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,631,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,632,0)="IGM, ACUTE^F^^632;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,632,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,633,0)="IGM, CONVALESCENT^F^^633;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,633,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,634,0)="INFLUENZA TYPE B (TITER)^F^^634;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,634,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,635,0)="INFLUENZA TYPE C (TITER)^F^^635;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,635,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,636,0)="INSULIN ANTIBODIES^F^^636;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,636,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,637,0)="INSULIN BINDING^F^^637;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,637,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,638,0)="INTRINSIC FACTOR AB^F^^638;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,638,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,639,0)="LATEX FIXATION^F^^639;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,639,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,640,0)="LEGIONELLA AB^F^^640;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,640,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,641,0)="LEPTOSPIRA AGGLT^F^^641;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,641,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,642,0)="MEASLES-RUBEOLA TITER^F^^642;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,642,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,643,0)="MUMPS^F^^643;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,643,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,644,0)="MUMPS SOLUBLE^F^^644;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,644,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,645,0)="MUMPS VIRAL^F^^645;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,645,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,646,0)="PARAINFLUENZA 1 TITER^F^^646;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,646,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,646,"DT")="2841023"
^DD(63.04,647,0)="PARAINFLUENZA 2 TITER^F^^647;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,647,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,648,0)="PARAINFLUENZA 3 TITER^F^^648;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,648,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,649,0)="PLATELET AB^F^^649;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,649,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,650,0)="POLIO VIRUS 1^F^^650;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,650,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,650,"DT")="2841025"
^DD(63.04,651,0)="POLIO VIRUS 2^F^^651;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,651,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,651,"DT")="2841025"
^DD(63.04,652,0)="POLIO VIRUS 3^F^^652;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,652,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,653,0)="PREGNANCY TEST^F^^653;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,653,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,654,0)="RA PRECIPITIN AB^F^^654;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,654,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,655,0)="ROCKY MTN SPOTTED FV. TITER^F^^655;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,655,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,656,0)="RUBELLA TITER^F^^656;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,656,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,657,0)="RUBEOLA^F^^657;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,657,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,658,0)="SALINE TITER^F^^658;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,658,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,659,0)="CYCLOSPORIN^F^^659;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,659,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,659,"DT")="2840120"
^DD(63.04,660,0)="LEUKOCYTE ALK PHOS SCORE^NJ4,0X^^660;1^S Q9=""0,9999,0"" D ^LRNUM"
^DD(63.04,660,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(63.04,660,"DT")="2840120"
^DD(63.04,661,0)="SALMONELLA AGGLUTINATION^F^^661;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,661,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,662,0)="SALMONELLA GROUP A^F^^662;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,662,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,663,0)="SALMONELLA GROUP B^F^^663;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,663,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,664,0)="SALMONELLA GROUP C^F^^664;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,664,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,665,0)="SALMONELLA GROUP D^F^^665;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,665,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,666,0)="SALMONELLA GROUP E^F^^666;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,666,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,667,0)="SALMONELLA H ANTIGEN^F^^667;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,667,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,668,0)="SALMONELLA O ANTIGENS^F^^668;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,668,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,669,0)="SCLERODERMA AB^F^^669;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,669,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,670,0)="SEROTYPE 2^F^^670;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,670,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,671,0)="SEROTYPE 4^F^^671;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,671,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,672,0)="SEROTYPE 11^F^^672;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,672,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,673,0)="SEROTYPE 16^F^^673;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,673,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,674,0)="TEICHOIC ACID AB^F^^674;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,674,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,675,0)="TRICHINELLA AGGLUTINATION^F^^675;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,675,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,676,0)="TULAREMIA AGGLUTINATION^F^^676;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,676,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,677,0)="TYPHOID H^F^^677;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,677,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,681,0)="AMOEBIC IHA ANTIBODY^F^^681;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,681,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,682,0)="LYMPHOCHORIOMENINGITIS^F^^682;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,682,.1)="LCM"
^DD(63.04,682,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,683,0)="UR COLOR^F^^683;1^K:$L(X)>7!($L(X)<3) X"
^DD(63.04,683,3)="ANSWER MUST BE 3-7 CHARACTERS IN LENGTH"
^DD(63.04,684,0)="DENSITY^F^^684;1^K:$L(X)>7!($L(X)<3) X"
^DD(63.04,684,3)="ANSWER MUST BE 3-7 CHARACTERS IN LENGTH"
^DD(63.04,685,0)="SPECIFIC GRAVITY^NJ6,3X^^685;1^S X1="""" S:""<>""[$E(X,1) X1=$E(X,1),X=$E(X,2,99) S:X=+X&(X'[""."") X=X/1000+1,X=$J(X,$L(X),3) S X=X1_X S Q9=""1,1.099,3"" D ^LRNUM"
^DD(63.04,685,3)="If no ""."" is entered, value will be assumed to be nn/1000+1.000"
^DD(63.04,685,"DT")="2861024"
^DD(63.04,686,0)="UROBILINOGEN^S^Neg.:NEG;1+:SMALL;2+:MODERATE;3+:LARGE;^686;1^Q"
^DD(63.04,686,3)=""
^DD(63.04,686,"DT")="2841213"
^DD(63.04,687,0)="UR BLOOD^S^1+:1+;2+:2+;3+:3+;4+:4+;Neg.:NEG;Trace:TRACE;^687;1^Q"
^DD(63.04,687,3)=""
^DD(63.04,687,"DT")="2841213"
^DD(63.04,688,0)="UR BILIRUBIN^S^1+:1+;2+:2+;3+:3+;4+:4+;Neg.:NEG;Trace:TRACE;^688;1^Q"
^DD(63.04,688,3)=""
^DD(63.04,688,"DT")="2841212"
^DD(63.04,689,0)="UR KETONES^S^1+:1+;2+:2+;3+:3+;4+:4+;Neg.:NEG;Trace:TRACE;^689;1^Q"
^DD(63.04,689,3)=""
^DD(63.04,689,"DT")="2841212"
^DD(63.04,690,0)="UR GLUCOSE^S^1+:1+;2+:2+;3+:3+;4+:4+;Neg.:NEG;Trace:TRACE;^690;1^Q"
^DD(63.04,690,3)=""
^DD(63.04,690,"DT")="2841129"
^DD(63.04,691,0)="UR PROTEIN^S^1+:1+;2+:2+;3+:3+;4+:4+;Neg.:NEG;Trace:TRACE;^691;1^Q"
^DD(63.04,691,3)=""
^DD(63.04,691,"DT")="2841212"
^DD(63.04,692,0)="UR PH^NXNJ4,1^^692;1^S Q9=""1,14,1"" D ^LRNUM"
^DD(63.04,692,3)="TYPE A NUMBER BETWEEN 1 AND 14"
^DD(63.04,692,"DT")="2860222"
^DD(63.04,693,0)="WBC/HPF^F^^693;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,693,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,694,0)="RBC/HPF^F^^694;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,694,3)="Enter 1-7 characters of range observed, e.g. (0-1, 2-4, etc.)"
^DD(63.04,695,0)="EPITHELIAL CELLS^S^NoneObs:NONEOBS;Y: ;^695;1^Q"
^DD(63.04,695,3)="A no answer will skip urine epithelial cell responses."
^DD(63.04,695,"DT")="2850214"
^DD(63.04,696,0)="BACTERIA^S^1+:1+;2+:2+;3+:3+;4+:4+;Few:FEW;NoneObs:NONEOBS;^696;1^Q"
^DD(63.04,696,3)=""
^DD(63.04,696,"DT")="2841212"
^DD(63.04,697,0)="MUCUS^F^^697;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,697,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,698,0)="URINE CASTS^S^NoneObs:NONEOBS;Y: ;Unexamd:UNEXAMD;^698;1^Q"
^DD(63.04,698,3)="A no answer will skip urine casts responses."
^DD(63.04,698,"DT")="2850802"
^DD(63.04,699,0)="URINE CRYSTALS^S^NoneObs:NONEOBS;Y: ;Unexamd:UNEXAMD;^699;1^Q"
^DD(63.04,699,3)="A no answer will skip urine crystal responses."
^DD(63.04,699,"DT")="2850802"
^DD(63.04,700,0)="WBC/CASTS/LPF^F^^700;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,700,3)="Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)"
^DD(63.04,701,0)="RBC/CASTS/LPF^F^^701;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,701,3)="Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)"
^DD(63.04,702,0)="HYALINE/CASTS/LPF^F^^702;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,702,3)="Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)"
^DD(63.04,703,0)="GRANULAR/CASTS/LPF^F^^703;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,703,3)="Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)"
^DD(63.04,704,0)="WAXY/CASTS/LPF^F^^704;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,704,3)="Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)"
^DD(63.04,705,0)="FATTY/CASTS/LPF^F^^705;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,705,3)="Enter 1-6 characters of range observed, e.g. (0-1, 2-4, etc.)"
^DD(63.04,706,0)="UR YEAST^S^Abundnt:ABUNDNT;Few:FEW;Moderat:MODERAT;NoneObs:NONEOBS;Occ:OCC;Rare:RARE;^706;1^Q"
^DD(63.04,706,3)=""
^DD(63.04,706,"DT")="2841212"
^DD(63.04,707,0)="HEMOSIDERIN^F^^707;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,707,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,708,0)="5HIAA-QUANT^F^^708;1^K:$L(X)>4!($L(X)<1) X"
^DD(63.04,708,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(63.04,708,"DT")="2841105"
^DD(63.04,709,0)="PORPHOBILINOGEN^F^^709;1^K:$L(X)>4!($L(X)<1) X"
^DD(63.04,709,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(63.04,710,0)="TRICHOMONAS^S^Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;NoneObs:NONEOBS;^710;1^Q"
^DD(63.04,710,3)=""
^DD(63.04,710,"DT")="2841212"
^DD(63.04,711,0)="AM URATE CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^711;1^Q"
^DD(63.04,711,3)=""
^DD(63.04,711,"DT")="2841212"
^DD(63.04,712,0)="AM PHOSPHATE CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^712;1^Q"
^DD(63.04,712,3)=""
^DD(63.04,712,"DT")="2841212"
^DD(63.04,713,0)="TRI PHOSPHATE CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^713;1^Q"
^DD(63.04,713,3)=""
^DD(63.04,713,"DT")="2841212"
^DD(63.04,714,0)="CA++ OXALATE CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^714;1^Q"
^DD(63.04,714,3)=""
^DD(63.04,714,"DT")="2841212"
^DD(63.04,715,0)="URIC ACID CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^715;1^Q"
^DD(63.04,715,3)=""
^DD(63.04,715,"DT")="2841212"
^DD(63.04,716,0)="CYSTINE CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^716;1^Q"
^DD(63.04,716,3)=""
^DD(63.04,716,"DT")="2841212"
^DD(63.04,717,0)="LEUCINE CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^717;1^Q"
^DD(63.04,717,3)=""
^DD(63.04,717,"DT")="2841212"
^DD(63.04,718,0)="TYROSINE CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^718;1^Q"
^DD(63.04,718,3)=""
^DD(63.04,718,"DT")="2841212"
^DD(63.04,719,0)="CHOLESTEROL CRYSTALS^S^Rare:RARE;Few:FEW;Moderat:MODERAT;Abundnt:ABUNDNT;^719;1^Q"
^DD(63.04,719,"DT")="2841212"
^DD(63.04,720,0)="UR GLUCOSE TOLERANCE TEST^F^^720;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,720,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,721,0)="UR FASTING GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^721;1^Q"
^DD(63.04,721,3)=""
^DD(63.04,722,0)="UR 1/2Hr.GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^722;1^Q"
^DD(63.04,722,3)=""
^DD(63.04,723,0)="UR 1Hr.GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^723;1^Q"
^DD(63.04,723,3)=""
^DD(63.04,724,0)="UR 2Hr.GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^724;1^Q"
^DD(63.04,724,3)=""
^DD(63.04,725,0)="UR 3Hr.GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^725;1^Q"
^DD(63.04,725,3)=""
^DD(63.04,726,0)="UR 4Hr.GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^726;1^Q"
^DD(63.04,727,0)="UR 5Hr.GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^727;1^Q"
^DD(63.04,728,0)="UR 6Hr.GTT^S^Neg.:NEG;1+:1;2+:2;3+:3;4+:4;Trace:T;^728;1^Q"
^DD(63.04,729,0)="RENAL TUBE EPITH^F^^729;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,729,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,730,0)="SPERM^F^^730;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,730,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,731,0)="CALCULUS^F^^731;1^K:$L(X)>80!($L(X)<1) X"
^DD(63.04,731,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.04,732,0)="ADDIS COUNT^F^^732;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,732,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,733,0)="REACTION PH^F^^733;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,733,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,734,0)="B 12^NXJ6,1^^734;1^S Q9=""0,9999,1"" D ^LRNUM"
^DD(63.04,734,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(63.04,735,0)="DIGITOXIN^F^^735;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,735,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,736,0)="DIGOXIN^F^^736;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,736,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,737,0)="THYROXINE^NX^^737;1^S Q9=""0,99,1"" D ^LRNUM"
^DD(63.04,737,3)="TYPE A NUMBER BETWEEN 0 AND 99"
^DD(63.04,738,0)="T-3 RESIN UPTAKE^F^^738;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,738,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,739,0)="FREE T4^F^^739;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,739,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,740,0)="FOLATE^F^^740;1^K:$L(X)>6!($L(X)<0)!'(X?.NP) X"
^DD(63.04,740,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,741,0)="TSH^F^^741;1^K:$L(X)>6!($L(X)<0)!'(X?.NP) X"
^DD(63.04,741,3)="ANSWER MUST BE 0-6 CHARACTERS IN LENGTH"
^DD(63.04,742,0)="INSULIN^F^^742;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,742,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,743,0)="HCG^F^^743;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,743,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,744,0)="FERRITIN^F^^744;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,744,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,745,0)="CORTISOL^F^^745;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,745,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,746,0)="PREGNANCY^F^^746;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,746,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,747,0)="ALPHA-FETOPROTEIN^F^^747;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,747,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,747,"DT")="2840904"
^DD(63.04,748,0)="TIBC^F^^748;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,748,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,749,0)="UIBC^F^^749;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,749,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,750,0)="IRON^F^^750;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,750,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,751,0)="IRON SATURATION^F^^751;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,751,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,752,0)="GONADOTROPINS^F^^752;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,752,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,753,0)="TRIIODOTHYRONINE^F^^753;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,753,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,754,0)="CEA^F^^754;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,754,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,755,0)="ANDROSTENEDIONE^F^^755;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,755,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,756,0)="CALCITONIN^F^^756;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,756,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,756,"DT")="2850304"
^DD(63.04,757,0)="CHOLYLGLYCINE^F^^757;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,757,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,758,0)="CHORIONIC GONADOTROPIN^F^^758;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,758,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,759,0)="CYCLIC AMP^F^^759;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,759,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,760,0)="DHEA SULFATE^NXJ3,0^^760;1^S Q9=""0,800,1"" D ^LRNUM"
^DD(63.04,760,.1)="Dehydroepiandrosterone sulfate"
^DD(63.04,760,3)="TYPE A NUMBER BETWEEN 0 AND 800"
^DD(63.04,760,"DT")="2850829"
^DD(63.04,761,0)="DHEA^F^^761;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,761,.1)="Dehydroepiandrosterone"
^DD(63.04,761,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,761,"DT")="2850614"
^DD(63.04,762,0)="DEOXYCORTICOSTERONE^F^^762;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,762,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,763,0)="DIHYDROTESTOSTERONE^F^^763;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,763,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,764,0)="ESTRADIOL, 17-B^F^^764;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,764,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,765,0)="ESTRADIOL RECEPTOR ASSAY^F^^765;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,765,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,766,0)="ESTRIOL^F^^766;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,766,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,767,0)="REV T-3^F^^767;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,767,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,768,0)="TRANSFERRIN^F^^768;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,768,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,769,0)="FREE TRIIODOTHYRONINE^F^^769;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,769,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,770,0)="GROWTH HORMONE^F^^770;1^K:$L(X)>6!(X'?.NP) X"
^DD(63.04,770,3)="ANSWER MUST BE 1-5 NUMBERS"
^DD(63.04,771,0)="T-4 BINDING GLOBULIN^F^^771;1^K:$L(X)>6!($L(X)<1)!'(X?.NP) X"
^DD(63.04,771,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,772,0)="GLUCAGON^NJ4,0X^^772;1^S Q9=""0,9999,0"" D ^LRNUM"
^DD(63.04,772,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(63.04,773,0)="17-HYDROXYPROGESTERONE^F^^773;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,773,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,774,0)="CEA-S, RIA^F^^774;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,774,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,775,0)="ABNORMAL FORMS^F^^775;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,775,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,775,"DT")="2831116"
^DD(63.04,776,0)="ALTERNATE LYMPHS 2^NJ5,1X^^776;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,776,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,776,"DT")="2840106"
^DD(63.04,777,0)="SQUAMOUS EPITHELIAL^F^^777;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,777,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,777,"DT")="2841025"
^DD(63.04,778,0)="RENAL EPITHELIAL^F^^778;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,778,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,778,"DT")="2841025"
^DD(63.04,779,0)="TRANSITIONAL EPITHELIAL^F^^779;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,779,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,779,"DT")="2841025"
^DD(63.04,780,0)="OTHER^F^^780;1^K:$L(X)>80!($L(X)<1) X"
^DD(63.04,780,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.04,780,"DT")="2840314"
^DD(63.04,781,0)="Q FEVER (ACUTE) TITER^F^^781;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,781,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,781,"DT")="2840314"
^DD(63.04,782,0)="Q FEVER (CONV.) TITER^F^^782;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,782,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,782,"DT")="2840314"
^DD(63.04,783,0)="MICROGLOBULIN^F^^783;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,783,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,784,0)="TOTAL WEIGHT^F^^784;1^K:$L(X)>7!($L(X)<1) X"
^DD(63.04,784,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.04,785,0)="OLIGOCLONAL BANDS^F^^785;1^K:$L(X)>30!($L(X)<1) X"
^DD(63.04,785,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.04,785,"DT")="2840405"
^DD(63.04,786,0)="PRESSURE^NJ6,2X^^786;1^S Q9=""0,999,2"" D ^LRNUM"
^DD(63.04,786,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,786,"DT")="2840413"
^DD(63.04,787,0)="%O2^NJ6,2X^^787;1^S Q9=""0,100,2"" D ^LRNUM"
^DD(63.04,787,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,787,"DT")="2840413"
^DD(63.04,788,0)="%CO2^NJ6,2X^^788;1^S Q9=""0,100,2"" D ^LRNUM"
^DD(63.04,788,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,789,0)="MISCELLANEOUS^F^^789;1^K:$L(X)>40!($L(X)<1) X"
^DD(63.04,789,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(63.04,789,"DT")="2840517"
^DD(63.04,790,0)="ANION GAP^NJ5,2X^^790;1^S Q9=""-50,50,2"" D ^LRNUM"
^DD(63.04,790,3)="TYPE A NUMBER BETWEEN -50 AND 50"
^DD(63.04,790,"DT")="2840806"
^DD(63.04,791,0)="CALCULATED OSMOLALITY^NJ4,0X^^791;1^S Q9=""0,1000,0"" D ^LRNUM"
^DD(63.04,791,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(63.04,791,"DT")="2840819"
^DD(63.04,792,0)="MALIGNANT CELLS^F^^792;1^K:$L(X)>30!($L(X)<2) X"
^DD(63.04,792,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.04,793,0)="VENTRICULAR LINING CELLS^NJ3,0X^^793;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,793,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,793,"DT")="2840920"
^DD(63.04,794,0)="SYNOVIAL LINING CELLS^NJ3,0X^^794;1^S Q9=""0,100,0"" D ^LRNUM"
^DD(63.04,794,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(63.04,795,0)="NITRITE, URINE^F^^795;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,795,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,796,0)="LEUKOCYTE ESTERASE, URINE^F^^796;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,796,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,797,0)="VOLUME^F^^797;1^K:$L(X)>8!($L(X)<1) X"
^DD(63.04,797,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.04,797,"DT")="2841026"
^DD(63.04,798,0)="ANTICOAGULANT^S^1:HEPARIN ONLY;2:COUMADIN ONLY;3:HEPARIN & COUMADIN;4:NO ANTICOAGULANTS;5:ANTICOAGULANT NOT INDICATED;^798;1^Q"
^DD(63.04,798,"DT")="2841026"
^DD(63.04,799,0)="PORPHYRINS-QUAL^F^^799;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,799,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,799,"DT")="2850211"
^DD(63.04,800,0)="FREE HEMOGLOBIN^F^^800;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,800,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,800,"DT")="2850211"
^DD(63.04,801,0)="FAST.LTT^F^^801;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,801,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,801,"DT")="2850211"
^DD(63.04,802,0)="1/2HR.LTT^F^^802;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,802,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,803,0)="1HR.LTT^F^^803;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,803,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,804,0)="2HR.LTT^F^^804;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,804,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,805,0)="3HR.LTT^F^^805;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,805,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,806,0)="INFLUENZA TYPE A (TITER)^F^^806;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,806,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,807,0)="RESP SYNCYTIAL VIRUS TITER^F^^807;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,807,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,807,"DT")="2850216"
^DD(63.04,808,0)="ECHO,2,3,4,7,8,11 TITER^F^^808;1^K:$L(X)>30!($L(X)<2) X"
^DD(63.04,808,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.04,808,"DT")="2850216"
^DD(63.04,809,0)="ECHO,6,9,16,30 TITER^F^^809;1^K:$L(X)>30!($L(X)<2) X"
^DD(63.04,809,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.04,809,"DT")="2850216"
^DD(63.04,810,0)="ECHO,14,18,20,25,28 TITER^F^^810;1^K:$L(X)>30!($L(X)<2) X"
^DD(63.04,810,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.04,810,"DT")="2850216"
^DD(63.04,811,0)="COXSACKIE A 1-10 TITER^F^^811;1^K:$L(X)>30!($L(X)<2) X"
^DD(63.04,811,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.04,811,"DT")="2850216"
^DD(63.04,812,0)="COXSACKIE B 1-6 TITER^F^^812;1^K:$L(X)>30!($L(X)<2) X"
^DD(63.04,812,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.04,812,"DT")="2850216"
^DD(63.04,813,0)="ARBOVIRUS CALIF TITER^F^^813;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,813,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,813,"DT")="2850216"
^DD(63.04,814,0)="ARBOVIRUS EEE TITER^F^^814;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,814,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,814,"DT")="2850216"
^DD(63.04,815,0)="ARBOVIRUS SLE TITER^F^^815;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,815,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,815,"DT")="2850216"
^DD(63.04,816,0)="ARBOVIRUS WEE TITER^F^^816;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,816,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,816,"DT")="2850216"
^DD(63.04,817,0)="COLORADO TICK FEVER TITER^F^^817;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,817,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,817,"DT")="2850216"
^DD(63.04,818,0)="TYPHUS AB TITER^F^^818;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,818,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,818,"DT")="2850219"
^DD(63.04,819,0)="VARICELLA ZOSTER(VZ) AB TITER^F^^819;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,819,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,819,"DT")="2850219"
^DD(63.04,820,0)="INFLUENZA A,BANGKOK TITER^F^^820;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,820,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,820,"DT")="2850219"
^DD(63.04,821,0)="INFLUENZA A,ENGLAND TITER^F^^821;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,821,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,822,0)="INFLUENZA A,PHILLIPINES TITER^NJ5,1X^^822;1^S Q9=""0,999,1"" D ^LRNUM"
^DD(63.04,822,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,823,0)="INFLUENZA B,SINGAPORE^NJ5,1X^^823;1^S Q9=""0,999,1"" D ^LRNUM"
^DD(63.04,823,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,824,0)="HELPER T CELLS^F^^824;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,824,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,824,"DT")="2850219"
^DD(63.04,825,0)="SUPPRESSOR T CELLS^F^^825;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,825,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,826,0)="HELPER/SUPPRESSOR T CELL RATIO^F^^826;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,826,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,827,0)="T LYMPHOCYTES^F^^827;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,827,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,827,"DT")="2850219"
^DD(63.04,828,0)="B LYMPHOCYTES^F^^828;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,828,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,829,0)="SALMONELLA A-O TITER^F^^829;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,829,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,829,"DT")="2850219"
^DD(63.04,830,0)="SALMONELLA B-O TITER^F^^830;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,830,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,831,0)="SALMONELLA C-O TITER^F^^831;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,831,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,832,0)="SALMONELLA D-O TITER^F^^832;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,832,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,833,0)="SALMONELLA A-H TITER^F^^833;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,833,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,834,0)="SALMONELLA B-H TITER^F^^834;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,834,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,835,0)="SALMONELLA C-H TITER^F^^835;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,835,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,836,0)="SALMONELLA TYPHI-H TITER^F^^836;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,836,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,837,0)="COCCIDIOIDES LPA TITER^F^^837;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,837,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,838,0)="COCCIDIOIDES IDCF TITER^F^^838;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,838,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,839,0)="COCCIDIOIDES CF TITER^F^^839;1^K:$L(X)>10!($L(X)<2) X"
^DD(63.04,839,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(63.04,840,0)="ELAPSED TIME^F^^840;1^K:$L(X)>10!($L(X)<1) X"
^DD(63.04,840,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.04,840,"DT")="2850306"
^DD(63.04,841,0)="NEUTROPHIL, ABSOLUTE^NJ6,1X^^841;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,841,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,841,"DT")="2860116"
^DD(63.04,842,0)="LYMPHS, ABSOLUTE^NJ6,1X^^842;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,842,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,842,"DT")="2860116"
^DD(63.04,843,0)="MONOS, ABSOLUTE^NJ6,1X^^843;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,843,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,843,"DT")="2860116"
^DD(63.04,844,0)="EOSINO, ABSOLUTE^NJ6,1X^^844;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,844,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,844,"DT")="2860116"
^DD(63.04,845,0)="BASO, ABSOLUTE^NJ6,1X^^845;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,845,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,845,"DT")="2860116"
^DD(63.04,846,0)="GRANULOCYTES, ABSOLUTE^NJ6,1X^^846;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,846,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,846,"DT")="2860116"
^DD(63.04,847,0)="BANDS, ABSOLUTE^NJ6,1X^^847;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,847,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,847,"DT")="2860116"
^DD(63.04,848,0)="SEGS, ABSOLUTE^NJ6,1X^^848;1^S Q9=""0,1000,1"" D ^LRNUM"
^DD(63.04,848,3)="TYPE A NUMBER BETWEEN 0 AND 1000"
^DD(63.04,848,"DT")="2860116"
^DD(63.04,849,0)="PROTEUS OX2^F^^849;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,849,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,849,"DT")="2850723"
^DD(63.04,850,0)="PROTEUS OXK^F^^850;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,850,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,850,"DT")="2850723"
^DD(63.04,851,0)="PROTEUS OX19^F^^851;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,851,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,851,"DT")="2850723"
^DD(63.04,852,0)="HALOPERIDOL^F^^852;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,852,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,852,"DT")="2850723"
^DD(63.04,853,0)="VITAMIN B-12^F^^853;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,853,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,853,"DT")="2850723"
^DD(63.04,854,0)="COCCIDIOIDES AB^F^^854;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,854,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,854,"DT")="2850723"
^DD(63.04,855,0)="COCCIDIOIDES PRECIPITIN^F^^855;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,855,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,855,"DT")="2850723"
^DD(63.04,856,0)="HISTOPLASMA AB^F^^856;1^K:$L(X)>6!($L(X)<1) X"
^DD(63.04,856,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(63.04,856,"DT")="2850723"
^DD(63.04,857,0)="GRANULOCYTE, ALTERNATE %^NJ5,1X^^857;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,857,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,857,"DT")="2851205"
^DD(63.04,858,0)="MONOCYTE, ALTERNATE %^NJ5,1X^^858;1^S Q9=""0,100,1"" D ^LRNUM"
^DD(63.04,858,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(63.04,858,"DT")="2851205"
^DD(63.04,859,0)="GRANULOCYTE, ALTERNATE ABS^NJ7,1X^^859;1^S Q9=""0,10000,1"" D ^LRNUM"
^DD(63.04,859,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(63.04,859,"DT")="2851205"
^DD(63.04,860,0)="MONOCYTE, ALTERNATE ABS^NJ7,1X^^860;1^S Q9=""0,10000,1"" D ^LRNUM"
^DD(63.04,860,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(63.04,860,"DT")="2851205"
^DD(63.04,861,0)="LYMPHS, ALTERNATE ABS^NJ7,1X^^861;1^S Q9=""0,10000,1"" D ^LRNUM"
^DD(63.04,861,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(63.04,861,"DT")="2851205"
^DD(63.04,862,0)="UROBILINOGEN, QUANTITATIVE^NJ5,1X^^862;1^S Q9=""0,999,1"" D ^LRNUM"
^DD(63.04,862,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(63.04,862,"DT")="2860303"
^DD(63.04,"B","%CO2",788)=""
^DD(63.04,"B","%COHB",447)=""
^DD(63.04,"B","%METHB",448)=""
^DD(63.04,"B","%O2",787)=""
^DD(63.04,"B","%O2HB",446)=""
^DD(63.04,"B","*VOLUME",.07)=""
^DD(63.04,"B","1,25-DIHYDROXYVIT D3",124)=""
^DD(63.04,"B","1/2HR.LTT",802)=""
^DD(63.04,"B","1/2Hr.GTT",150)=""
^DD(63.04,"B","11-DEOXYCORTISOL",73)=""
^DD(63.04,"B","17-HYDROXYCORTICOSTEROIDS",194)=""
^DD(63.04,"B","17-HYDROXYPROGESTERONE",773)=""
^DD(63.04,"B","17-KETOGENIC STEROIDS",195)=""
^DD(63.04,"B","17-KETOSTEROIDS, TOTAL",196)=""
^DD(63.04,"B","1HR.LTT",803)=""
^DD(63.04,"B","1Hr.GTT",151)=""
^DD(63.04,"B","25 OH VITAMIN D",113)=""
^DD(63.04,"B","2HR.LTT",804)=""
^DD(63.04,"B","2Hr.GTT",152)=""
^DD(63.04,"B","3HR.LTT",805)=""
^DD(63.04,"B","3Hr.GTT",153)=""
^DD(63.04,"B","4Hr.GTT",154)=""
^DD(63.04,"B","5' NUCLEOTIDASE",44)=""
^DD(63.04,"B","5HIAA-QUANT",708)=""
^DD(63.04,"B","5Hr.GTT",155)=""
^DD(63.04,"B","6Hr.GTT",167)=""
^DD(63.04,"B","A/G RATIO",197)=""
^DD(63.04,"B","A2 HEMOGLOBIN BY COLUMN",503)=""
^DD(63.04,"B","ABNORMAL FORMS",775)=""
^DD(63.04,"B","ACANTHOCYTES",426)=""
^DD(63.04,"B","ACCESSION",.06)=""
^DD(63.04,"B","ACCESSIONING INSTITUTION",.112)=""
^DD(63.04,"B","ACETALDEHYDE",198)=""
^DD(63.04,"B","ACETAMINOPHEN",97)=""
^DD(63.04,"B","ACETAZOLAMIDE",199)=""
^DD(63.04,"B","ACETONE",37)=""
^DD(63.04,"B","ACETYLCHOLINE RCPTR AB TITER",130)=""
^DD(63.04,"B","ACID PHOSPHATASE",39)=""
^DD(63.04,"B","ACTH",49)=""
^DD(63.04,"B","ACTIVE METABOLITE",200)=""
^DD(63.04,"B","ADDIS COUNT",732)=""
^DD(63.04,"B","ADENOVIRUS TITER",589)=""
^DD(63.04,"B","ADP",518)=""
^DD(63.04,"B","ADP COMMENT",525)=""
^DD(63.04,"B","ALBUMIN",14)=""
^DD(63.04,"B","ALDOLASE",63)=""
^DD(63.04,"B","ALDOSTERONE",64)=""
^DD(63.04,"B","ALK PHOSPHATASE, HEAT LABILE",192)=""
^DD(63.04,"B","ALK PHOSPHATASE, HEAT STABLE",193)=""
^DD(63.04,"B","ALKALINE PHOSPHATASE",17)=""
^DD(63.04,"B","ALPHA-1 FRACTION",201)=""
^DD(63.04,"B","ALPHA-1 GLOBULIN",202)=""
^DD(63.04,"B","ALPHA-1-ANTITRYPSIN",541)=""
^DD(63.04,"B","ALPHA-2 FRACTION",203)=""
^DD(63.04,"B","ALPHA-2 GLOBULIN",204)=""
^DD(63.04,"B","ALPHA-FETOPROTEIN",747)=""
^DD(63.04,"B","ALTERNATE LYMPHS",502)=""
^DD(63.04,"B","ALTERNATE LYMPHS 2",776)=""
^DD(63.04,"B","ALUMINUM",205)=""
^DD(63.04,"B","AM PHOSPHATE CRYSTALS",712)=""
^DD(63.04,"B","AM URATE CRYSTALS",711)=""
^DD(63.04,"B","AMIKACIN",94)=""
^DD(63.04,"B","AMINOLEVULINIC ACID",99)=""
^DD(63.04,"B","AMITRIPTYLENE & NORTRIPTYLINE",178)=""
^DD(63.04,"B","AMITRIPTYLINE",65)=""
^DD(63.04,"B","AMMONIA",48)=""
^DD(63.04,"B","AMOEBIC IHA ANTIBODY",681)=""
^DD(63.04,"B","AMORBARBITAL",209)=""
^DD(63.04,"B","AMOXAPINE",210)=""
^DD(63.04,"B","AMPHETAMINES",26)=""
^DD(63.04,"B","AMPICILLIN",211)=""
^DD(63.04,"B","AMYLASE",40)=""
^DD(63.04,"B","ANDROSTENEDIONE",755)=""
^DD(63.04,"B","ANGIOTENSIN 1",51)=""
^DD(63.04,"B","ANION GAP",790)=""
^DD(63.04,"B","ANISOCYTOSIS",408)=""
^DD(63.04,"B","ANTI GLOM BASEMENT MEM",586)=""
^DD(63.04,"B","ANTI SMOOTH MUSCLE",67)=""
^DD(63.04,"B","ANTI-DEOXYRIBONUCLEASE",188)=""
^DD(63.04,"B","ANTI-DNA ANTIBODY",563)=""
^DD(63.04,"B","ANTI-DNASE AB",590)=""
^DD(63.04,"B","ANTI-EPIDERMAL AB",591)=""
^DD(63.04,"B","ANTI-HYALURONIDASE TITER",564)=""
^DD(63.04,"B","ANTI-MICROSOMAL ANTIBODY",565)=""
^DD(63.04,"B","ANTI-MITOCHONDRIAL ANTIBODIES",566)=""
^DD(63.04,"B","ANTI-MYOCARDIAL AB",592)=""
^DD(63.04,"B","ANTI-PARIETAL CELL ANTIBODY",567)=""
^DD(63.04,"B","ANTI-RETICULIN",593)=""
^DD(63.04,"B","ANTI-RNP",594)=""
^DD(63.04,"B","ANTI-SKELETAL MUSCLE",595)=""
^DD(63.04,"B","ANTI-STRIATED MUSCLE",596)=""
^DD(63.04,"B","ANTI-THYROGLOBULIN ANTIBODY",568)=""
^DD(63.04,"B","ANTI-THYROID ANTIBODIES GROUP",597)=""
^DD(63.04,"B","ANTICENTROMERE",598)=""
^DD(63.04,"B","ANTICOAGULANT",798)=""
^DD(63.04,"B","ANTIDIURETIC HOR",212)=""
^DD(63.04,"B","ANTIMONY",100)=""
^DD(63.04,"B","ANTINUCLEAR ANTIBODY",542)=""
^DD(63.04,"B","ANTISTREPTOLYSIN SC",543)=""
^DD(63.04,"B","ANTITHROMBIN III",438)=""
^DD(63.04,"B","APPEARANCE",162)=""
^DD(63.04,"B","ARACHIDONIC ACID",520)=""
^DD(63.04,"B","ARACHIDONIC ACID COMMENT",528)=""
^DD(63.04,"B","ARBOVIRUS CALIF TITER",813)=""
^DD(63.04,"B","ARBOVIRUS EEE TITER",814)=""
^DD(63.04,"B","ARBOVIRUS SLE TITER",815)=""
^DD(63.04,"B","ARBOVIRUS WEE TITER",816)=""
^DD(63.04,"B","ARSENIC",33)=""
^DD(63.04,"B","ARYLSULFATASE",213)=""
^DD(63.04,"B","ASO",544)=""
^DD(63.04,"B","ASPERGILLUS AB IMMUNODIFFUSION",599)=""
^DD(63.04,"B","ASPERGILLUS COMPLEMENT TITER",600)=""
^DD(63.04,"B","ATYPICAL LYMPHOCYTES",471)=""
^DD(63.04,"B","B 12",734)=""
^DD(63.04,"B","B LYMPHOCYTES",828)=""
^DD(63.04,"B","BACTERIA",696)=""
^DD(63.04,"B","BANDS",395)=""
^DD(63.04,"B","BANDS, ABSOLUTE",847)=""
^DD(63.04,"B","BARBITURATES",25)=""
^DD(63.04,"B","BASE EXCESS",453)=""
^DD(63.04,"B","BASO",399)=""
^DD(63.04,"B","BASO, ABSOLUTE",845)=""
^DD(63.04,"B","BASOPHILIC STIPPLING",474)=""
^DD(63.04,"B","BENCE JONES PROTEIN",214)=""
^DD(63.04,"B","BENZENE",215)=""
^DD(63.04,"B","BENZODIAZEPINES",216)=""
^DD(63.04,"B","BERYLLIUM",217)=""
^DD(63.04,"B","BETA 2-MICROGLOB",218)=""
^DD(63.04,"B","BETA FRACTION",219)=""
^DD(63.04,"B","BETA GLOBULIN",220)=""
^DD(63.04,"B","BETA LACTOGLOBULIN",221)=""
^DD(63.04,"B","BETHESDA ASY",487)=""
^DD(63.04,"B","BICARBONATE",454)=""
^DD(63.04,"B","BILIRUBIN,DIRECT",16)=""
^DD(63.04,"B","BILIRUBIN,TOTAL",15)=""
^DD(63.04,"B","BISMUTH",222)=""
^DD(63.04,"B","BLAST",403)=""
^DD(63.04,"B","BLASTOMYCES AB",601)=""
^DD(63.04,"B","BLASTOMYCES COMPLEMENT TITER",602)=""
^DD(63.04,"B","BLEEDING TIME",434)=""
^DD(63.04,"B","BONE MARROW",504)=""
^DD(63.04,"B","BROMIDE",30)=""
^DD(63.04,"B","BRUCELLA AGGLUTINATION",569)=""
^DD(63.04,"B","BRUCELLA BLOCKING ANTIBODIES",588)=""
^DD(63.04,"B","BURR CELLS",423)=""
^DD(63.04,"B","BUTABARBITAL",68)=""
^DD(63.04,"B","BUTALBITAL",139)=""
^DD(63.04,"B","C-1Q COMPLEMENT COMPONENT",603)=""
^DD(63.04,"B","C-1Q IMMUNE COMPLEX",604)=""
^DD(63.04,"B","C-PEPTIDE",69)=""
^DD(63.04,"B","C-REACTIVE PROTEIN",545)=""
^DD(63.04,"B","C1 ESTERASE INHIBIT.",138)=""
^DD(63.04,"B","CA++ OXALATE CRYSTALS",714)=""
^DD(63.04,"B","CADMIUM",101)=""
^DD(63.04,"B","CAFFEINE",224)=""
^DD(63.04,"B","CALCITONIN",756)=""
^DD(63.04,"B","CALCIUM",9)=""
^DD(63.04,"B","CALCULATED OSMOLALITY",791)=""
^DD(63.04,"B","CALCULUS",731)=""
^DD(63.04,"B","CANDIDA IMMUNO DIFF",605)=""
^DD(63.04,"B","CANDIDA PRECIPITANS AB TITER",70)=""
^DD(63.04,"B","CANNABINOIDS",225)=""
^DD(63.04,"B","CARBAMAZEPINE",92)=""
^DD(63.04,"B","CARBON MONOXIDE",226)=""
^DD(63.04,"B","CARBON TETRACHLORIDE",102)=""
^DD(63.04,"B","CARISOPRODOL",121)=""
^DD(63.04,"B","CAROTENE",103)=""
^DD(63.04,"B","CATECHOLAMINES",88)=""
^DD(63.04,"B","CEA",754)=""
^DD(63.04,"B","CEA-S, RIA",774)=""
^DD(63.04,"B","CERULOPLASMIN",71)=""
^DD(63.04,"B","CHLAMYDIA AB TITER",576)=""
^DD(63.04,"B","CHLORAL HYDRATE",227)=""
^DD(63.04,"B","CHLORAMPHENICOL",228)=""
^DD(63.04,"B","CHLORAZEPATE",229)=""
^DD(63.04,"B","CHLORDANE",230)=""
^DD(63.04,"B","CHLORDIAZEPOXIDE",231)=""
^DD(63.04,"B","CHLORIDE",7)=""
^DD(63.04,"B","CHLORPHENIRAMINE",104)=""
^DD(63.04,"B","CHLORPROMAZINE",105)=""
^DD(63.04,"B","CHLORPROPAMIDE",232)=""
^DD(63.04,"B","CHOLESTEROL",12)=""
^DD(63.04,"B","CHOLESTEROL CRYSTALS",719)=""
^DD(63.04,"B","CHOLINESTERASE",95)=""
^DD(63.04,"B","CHOLYLGLYCINE",757)=""
^DD(63.04,"B","CHORIONIC GONADOTROPIN",758)=""
^DD(63.04,"B","CHROMIUM",106)=""
^DD(63.04,"B","CHYLOMICRONS",163)=""
^DD(63.04,"B","CIE: CLOSTRIDIUM DIFFICILE",182)=""
^DD(63.04,"B","CIE: GROUP B STREPTOCOCCUS",183)=""
^DD(63.04,"B","CIE: H. INFLUENZA",184)=""
^DD(63.04,"B","CIE: MENINGOCOCCUS",185)=""
^DD(63.04,"B","CIE: PNEUMOCOCCUS",186)=""
^DD(63.04,"B","CIMETIDINE",233)=""
^DD(63.04,"B","CLONAZEPAM",107)=""
^DD(63.04,"B","CMV",579)=""
^DD(63.04,"B","CO2",8)=""
^DD(63.04,"B","CO2CT.",455)=""
^DD(63.04,"B","COBALT",108)=""
^DD(63.04,"B","COCAINE",144)=""
^DD(63.04,"B","COCCIDIOIDES AB",854)=""
^DD(63.04,"B","COCCIDIOIDES CF TITER",839)=""
^DD(63.04,"B","COCCIDIOIDES IDCF TITER",838)=""
^DD(63.04,"B","COCCIDIOIDES LPA TITER",837)=""
^DD(63.04,"B","COCCIDIOIDES PRECIPITIN",855)=""
^DD(63.04,"B","CODEINE",122)=""
^DD(63.04,"B","COLD AGGLUTININS",546)=""
^DD(63.04,"B","COLLAGEN COMMENT",526)=""
^DD(63.04,"B","COLLAGEN TYPE (CONTROL)",532)=""
^DD(63.04,"B","COLLAGEN TYPE INHIBITOR",506)=""
^DD(63.04,"B","COLLECTING SITE",.33)=""
^DD(63.04,"B","COLOR",483)=""
^DD(63.04,"B","COLORADO TICK FEVER TITER",817)=""
^DD(63.04,"B","COMMENT",.99)=""
^DD(63.04,"B","COMPLEMENT C2",570)=""
^DD(63.04,"B","COMPLEMENT C3",547)=""
^DD(63.04,"B","COMPLEMENT C4",548)=""
^DD(63.04,"B","COMPLEMENT C5",571)=""
^DD(63.04,"B","COMPLEMENT C6",572)=""
^DD(63.04,"B","COMPLEMENT CH50",587)=""
^DD(63.04,"B","COMPLEMENT DECAY RATE",573)=""
^DD(63.04,"B","COMPLEMENT TOTAL",574)=""
^DD(63.04,"B","COMPUTED CREATININE CLEARANCE",96)=""
^DD(63.04,"B","COPPER",31)=""
^DD(63.04,"B","COPROPORPHYRIN",109)=""
^DD(63.04,"B","CORTICOSTERONE",234)=""
^DD(63.04,"B","CORTISOL",745)=""
^DD(63.04,"B","COXSACKIE A 1-10 TITER",811)=""
^DD(63.04,"B","COXSACKIE B 1-6 TITER",812)=""
^DD(63.04,"B","CPK",41)=""
^DD(63.04,"B","CPK-MB",132)=""
^DD(63.04,"B","CPK-MB/CPK",133)=""
^DD(63.04,"B","CREATINE",110)=""
^DD(63.04,"B","CREATININE",4)=""
^DD(63.04,"B","CRYOFIBRINOGEN",111)=""
^DD(63.04,"B","CRYOGLOBULINS",549)=""
^DD(63.04,"B","CRYPTOCOCCUS ANTIGEN",606)=""
^DD(63.04,"B","CRYSTALS",443)=""
^DD(63.04,"B","CYANIDE",235)=""
^DD(63.04,"B","CYCLIC AMP",759)=""
^DD(63.04,"B","CYCLOSPORIN",659)=""
^DD(63.04,"B","CYSTINE",125)=""
^DD(63.04,"B","CYSTINE CRYSTALS",716)=""
^DD(63.04,"B","CYTOMEGALO IFA",607)=""
^DD(63.04,"B","CYTOMEGALOVIRUS",608)=""
^DD(63.04,"B","CYTOPLASMIC AB",609)=""
^DD(63.04,"B","DATE REPORT COMPLETED",.03)=""
^DD(63.04,"B","DATE/TIME OBTAINED INEXACT",.02)=""
^DD(63.04,"B","DATE/TIME SPECIMEN TAKEN",.01)=""
^DD(63.04,"B","DENSITY",684)=""
^DD(63.04,"B","DEOXYCORTICOSTERONE",762)=""
^DD(63.04,"B","DESIPRAMINE",52)=""
^DD(63.04,"B","DESMETHYLDOXEPIN",236)=""
^DD(63.04,"B","DHEA",761)=""
^DD(63.04,"B","DHEA SULFATE",760)=""
^DD(63.04,"B","DIAZEPAM",112)=""
^DD(63.04,"B","DIBUCAINE NUMBER",575)=""
^DD(63.04,"B","DIELDRIN",237)=""
^DD(63.04,"B","DIGITOXIN",735)=""
^DD(63.04,"B","DIGOXIN",736)=""
^DD(63.04,"B","DIHYDROTESTOSTERONE",763)=""
^DD(63.04,"B","DILANTIN",23)=""
^DD(63.04,"B","DIMETHADIONE",238)=""
^DD(63.04,"B","DIPHENHYDRAMINE",239)=""
^DD(63.04,"B","DIPHENYLHYDANTOIN,NA",23)="1"
^DD(63.04,"B","DISOPYRAMIDE",57)=""
^DD(63.04,"B","DISULFIRAM",240)=""
^DD(63.04,"B","DNA",62)=""
^DD(63.04,"B","DOHLE BODIES",415)=""
^DD(63.04,"B","DOPAMINE",159)=""
^DD(63.04,"B","DOXEPIN",135)=""
^DD(63.04,"B","DOXEPIN & N-DESMETHYLDOXEPIN",180)=""
^DD(63.04,"B","DRUG INDUCED INHIBITOR",510)=""
^DD(63.04,"B","Dehydroepiandrosterone",761)="1"
^DD(63.04,"B","Dehydroepiandrosterone sulfate",760)="1"
^DD(63.04,"B","ECHO,14,18,20,25,28 TITER",810)=""
^DD(63.04,"B","ECHO,2,3,4,7,8,11 TITER",808)=""
^DD(63.04,"B","ECHO,6,9,16,30 TITER",809)=""
^DD(63.04,"B","ELAPSED TIME",840)=""
^DD(63.04,"B","EOSINO",398)=""
^DD(63.04,"B","EOSINO, ABSOLUTE",844)=""
^DD(63.04,"B","EPINEPHRINE",89)=""
^DD(63.04,"B","EPINEPHRINE COMMENT",527)=""
^DD(63.04,"B","EPITHELIAL CELLS",695)=""
^DD(63.04,"B","EPSTEIN BARR",610)=""
^DD(63.04,"B","ERYTHROPOIETIN",470)=""
^DD(63.04,"B","ESTRADIOL RECEPTOR ASSAY",765)=""
^DD(63.04,"B","ESTRADIOL, 17-B",764)=""
^DD(63.04,"B","ESTRIOL",766)=""
^DD(63.04,"B","ESTROGEN",53)=""
^DD(63.04,"B","ESTRONE",241)=""
^DD(63.04,"B","ETHANOL",36)=""
^DD(63.04,"B","ETHCHLORVYNOL",242)=""
^DD(63.04,"B","ETHINAMATE",243)=""
^DD(63.04,"B","ETHOSUXIMIDE",244)=""
^DD(63.04,"B","ETHOTOIN",245)=""
^DD(63.04,"B","ETHYLENE GLYCOL",246)=""
^DD(63.04,"B","ETIOCHOLANOLONE",247)=""
^DD(63.04,"B","EUGLOBULIN LYSIS TIME",512)=""
^DD(63.04,"B","EUGLOBULIN TIME (CONTROL)",540)=""
^DD(63.04,"B","FACTOR II (CONTROL)",536)=""
^DD(63.04,"B","FACTOR II INHIBITOR",495)=""
^DD(63.04,"B","FACTOR IX (CONTROL)",537)=""
^DD(63.04,"B","FACTOR IX INHIBITOR",485)=""
^DD(63.04,"B","FACTOR V (CONTROL)",535)=""
^DD(63.04,"B","FACTOR V INHIBITOR",496)=""
^DD(63.04,"B","FACTOR VII",484)=""
^DD(63.04,"B","FACTOR VII (CONTROL)",534)=""
^DD(63.04,"B","FACTOR VII INHIBITOR",508)=""
^DD(63.04,"B","FACTOR VIII (CONTROL)",533)=""
^DD(63.04,"B","FACTOR VIII ACTIVITY",493)=""
^DD(63.04,"B","FACTOR VIII ANTIGEN",492)=""
^DD(63.04,"B","FACTOR VIII INHIBITOR",507)=""
^DD(63.04,"B","FACTOR VIII MULTIMER",494)=""
^DD(63.04,"B","FACTOR X (CONTROL)",538)=""
^DD(63.04,"B","FACTOR X INHIBITOR",497)=""
^DD(63.04,"B","FACTOR XI",498)=""
^DD(63.04,"B","FACTOR XII",486)=""
^DD(63.04,"B","FACTOR XIII",499)=""
^DD(63.04,"B","FAST.LTT",801)=""
^DD(63.04,"B","FASTING GTT",149)=""
^DD(63.04,"B","FATTY ACIDS, FREE",191)=""
^DD(63.04,"B","FATTY/CASTS/LPF",705)=""
^DD(63.04,"B","FEBRILE AGGLUTINS",550)=""
^DD(63.04,"B","FERRITIN",744)=""
^DD(63.04,"B","FIBRIN SPLIT PRODUCTS",433)=""
^DD(63.04,"B","FIBRINOGEN",432)=""
^DD(63.04,"B","FIGLU",249)=""
^DD(63.04,"B","FIO2 (L. OR %)",444)=""
^DD(63.04,"B","FLUORIDE",250)=""
^DD(63.04,"B","FLUPHENAZINE-PROLIXN",251)=""
^DD(63.04,"B","FLURAZEPAM",252)=""
^DD(63.04,"B","FOLATE",740)=""
^DD(63.04,"B","FREE HCL",253)=""
^DD(63.04,"B","FREE HEMOGLOBIN",800)=""
^DD(63.04,"B","FREE T4",739)=""
^DD(63.04,"B","FREE TRIIODOTHYRONINE",769)=""
^DD(63.04,"B","FRUCTOSE",254)=""
^DD(63.04,"B","FSH",76)=""
^DD(63.04,"B","FTA",551)=""
^DD(63.04,"B","FUNGAL",562)=""
^DD(63.04,"B","FUNGUS ANTIBODY GROUP",611)=""
^DD(63.04,"B","FUROSEMIDE",255)=""
^DD(63.04,"B","G-6-PD,QUANTITATIVE",256)=""
^DD(63.04,"B","GALACTOSEMIA",257)=""
^DD(63.04,"B","GAMMA-GTP",21)=""
^DD(63.04,"B","GASTRIN",78)=""
^DD(63.04,"B","GENTAMICIN",55)=""
^DD(63.04,"B","GLOBULIN",260)=""
^DD(63.04,"B","GLUCAGON",772)=""
^DD(63.04,"B","GLUCOSE",2)=""
^DD(63.04,"B","GLUTAMINE",261)=""
^DD(63.04,"B","GLUTAMYL TRANSFERASE",262)=""
^DD(63.04,"B","GLUTATHIONE",263)=""
^DD(63.04,"B","GLUTETHIMIDE",264)=""
^DD(63.04,"B","GOLD",265)=""
^DD(63.04,"B","GONADOTROPINS",752)=""
^DD(63.04,"B","GRANULAR/CASTS/LPF",703)=""
^DD(63.04,"B","GRANULOCYTE, ALTERNATE %",857)=""
^DD(63.04,"B","GRANULOCYTE, ALTERNATE ABS",859)=""
^DD(63.04,"B","GRANULOCYTES, ABSOLUTE",846)=""
^DD(63.04,"B","GROUP B-1",612)=""
^DD(63.04,"B","GROUP B-2",613)=""
^DD(63.04,"B","GROUP B-3",614)=""
^DD(63.04,"B","GROUP B-4",615)=""
^DD(63.04,"B","GROUP B-5",616)=""
^DD(63.04,"B","GROUP B-6",617)=""
^DD(63.04,"B","GROWTH HORMONE",770)=""
^DD(63.04,"B","GUANASE",266)=""
^DD(63.04,"B","H. SIMPLEX I",618)=""
^DD(63.04,"B","H. SIMPLEX II",619)=""
^DD(63.04,"B","HALOPERIDOL",852)=""
^DD(63.04,"B","HAM'S TEST",461)=""
^DD(63.04,"B","HAPTOGLOBIN",552)=""
^DD(63.04,"B","HB (HGB)",445)=""
^DD(63.04,"B","HCG",743)=""
^DD(63.04,"B","HCG BETA, QUANT.",175)=""
^DD(63.04,"B","HCG BETA, SCREEN",176)=""
^DD(63.04,"B","HCT",387)=""
^DD(63.04,"B","HDL",80)=""
^DD(63.04,"B","HEINZ BODY STAIN",530)=""
^DD(63.04,"B","HELMET CELLS",424)=""
^DD(63.04,"B","HELPER T CELLS",824)=""
^DD(63.04,"B","HELPER/SUPPRESSOR T CELL RATIO",826)=""
^DD(63.04,"B","HEM EPINEPHRINE",519)=""
^DD(63.04,"B","HEM FACTOR IX INHIBITOR",509)=""
^DD(63.04,"B","HEMOGLOBIN A1C",462)=""
^DD(63.04,"B","HEMOGLOBIN A2 BY COLUMN",267)=""
^DD(63.04,"B","HEMOGLOBIN C",268)=""
^DD(63.04,"B","HEMOGLOBIN F",269)=""
^DD(63.04,"B","HEMOGLOBIN S",270)=""
^DD(63.04,"B","HEMOPEXIN",271)=""
^DD(63.04,"B","HEMOSIDERIN",707)=""
^DD(63.04,"B","HEPARIN",515)=""
^DD(63.04,"B","HEPATITIS A ANTIBODY",581)=""
^DD(63.04,"B","HEPATITIS B CORE ANTIBODY",582)=""
^DD(63.04,"B","HEPATITIS B SURFACE ANTIBODY",583)=""
^DD(63.04,"B","HEPATITIS B SURFACE ANTIGEN",553)=""
^DD(63.04,"B","HEPATITIS E ANTIBODY",584)=""
^DD(63.04,"B","HEPATITIS E ANTIGEN",585)=""
^DD(63.04,"B","HEROIN",272)=""
^DD(63.04,"B","HERPES SIMPLEX,COMMON AG TITER",578)=""
^DD(63.04,"B","HETEROPHIL",79)=""
^DD(63.04,"B","HETEROPHIL AB DIFFERENTIAL",620)=""
^DD(63.04,"B","HEXOSAMINIDASE",273)=""
^DD(63.04,"B","HGB",386)=""
^DD(63.04,"B","HGB ELECTROPHORESIS",58)=""
^DD(63.04,"B","HISTAMINE",274)=""
^DD(63.04,"B","HISTONE-REACTIVE AB",621)=""
^DD(63.04,"B","HISTOPLASMA AB",856)=""
^DD(63.04,"B","HISTOPLASMA COMPLEMENT TITER",622)=""
^DD(63.04,"B","HISTOPLASMA PRECIPITIN",623)=""
^DD(63.04,"B","HLA B27",174)=""
^DD(63.04,"B","HLA B8",173)=""
^DD(63.04,"B","HLA-ABC TYPING",624)=""
^DD(63.04,"B","HOMOCYSTINE",275)=""
^DD(63.04,"B","HOMOGENTISIC ACID",276)=""
^DD(63.04,"B","HOMOVANILLIC ACID",187)=""
^DD(63.04,"B","HOST UID",.34)=""
^DD(63.04,"B","HOWELL JOLLY BODIES",416)=""
^DD(63.04,"B","HYALINE/CASTS/LPF",702)=""
^DD(63.04,"B","HYDROXYBUTYRIC DEHYDROGENASE",98)=""
^DD(63.04,"B","HYDROXYPROLINE, FREE",277)=""
^DD(63.04,"B","HYDROXYPROLINE-TOTAL",148)=""
^DD(63.04,"B","HYPERSEGMENTED NEUTROPHILS",476)=""
^DD(63.04,"B","HYPNOTIC/SEDATIVES EVAL.",278)=""
^DD(63.04,"B","HYPOCHROMIA",413)=""
^DD(63.04,"B","IGA",625)=""
^DD(63.04,"B","IGD",626)=""
^DD(63.04,"B","IGG",627)=""
^DD(63.04,"B","IGG SYNTHESIS RATE",628)=""
^DD(63.04,"B","IGG, ACUTE",629)=""
^DD(63.04,"B","IGG, CONVALESCENT",630)=""
^DD(63.04,"B","IGM",631)=""
^DD(63.04,"B","IGM, ACUTE",632)=""
^DD(63.04,"B","IGM, CONVALESCENT",633)=""
^DD(63.04,"B","IMI+DES",54)=""
^DD(63.04,"B","IMIPRAMINE",66)=""
^DD(63.04,"B","IMIPRAMINE & DESIPRAMINE",179)=""
^DD(63.04,"B","IMMUNE COMPLEX-C1Q",172)=""
^DD(63.04,"B","IMMUNOELECTROPHORESIS",554)=""
^DD(63.04,"B","IMMUNOGLOBULINS",555)=""
^DD(63.04,"B","INDOLE3 ACETIC ACID",279)=""
^DD(63.04,"B","INFLUENZA A,BANGKOK TITER",820)=""
^DD(63.04,"B","INFLUENZA A,ENGLAND TITER",821)=""
^DD(63.04,"B","INFLUENZA A,PHILLIPINES TITER",822)=""
^DD(63.04,"B","INFLUENZA B,SINGAPORE",823)=""
^DD(63.04,"B","INFLUENZA TYPE A (TITER)",806)=""
^DD(63.04,"B","INFLUENZA TYPE B (TITER)",634)=""
^DD(63.04,"B","INFLUENZA TYPE C (TITER)",635)=""
^DD(63.04,"B","INSULIN",742)=""
^DD(63.04,"B","INSULIN ANTIBODIES",636)=""
^DD(63.04,"B","INSULIN BINDING",637)=""
^DD(63.04,"B","INTRINSIC FACTOR AB",638)=""
^DD(63.04,"B","IODINE, INORGANIC",281)=""
^DD(63.04,"B","IODINE, TOTAL",282)=""
^DD(63.04,"B","IONIZED CALCIUM",189)=""
^DD(63.04,"B","IRON",750)=""
^DD(63.04,"B","IRON SATURATION",751)=""
^DD(63.04,"B","ISOCITRIC-DEHYDROGENASE",283)=""
^DD(63.04,"B","ISONIAZID",284)=""
^DD(63.04,"B","ISOPROPANOL",143)=""
^DD(63.04,"B","KANAMYCIN",285)=""
^DD(63.04,"B","KETONES",169)=""
^DD(63.04,"B","KYNURENIC ACID",286)=""
^DD(63.04,"B","LACTIC ACID",42)=""
^DD(63.04,"B","LATEX FIXATION",639)=""
^DD(63.04,"B","LCM",682)="1"
^DD(63.04,"B","LDH",18)=""
^DD(63.04,"B","LDH 2",287)=""
^DD(63.04,"B","LDH 3",288)=""
^DD(63.04,"B","LDH 4",290)=""
^DD(63.04,"B","LDH 5",289)=""
^DD(63.04,"B","LDH1",131)=""
^DD(63.04,"B","LDH1/LDH",134)=""
^DD(63.04,"B","LDL CHOLESTEROL",291)=""
^DD(63.04,"B","LDL-CHOL CALCULATION",292)=""
^DD(63.04,"B","LDL/HDL RATIO",293)=""
^DD(63.04,"B","LE PREP",463)=""
^DD(63.04,"B","LEAD",35)=""
^DD(63.04,"B","LECITHIN/SPHINGOMYELIN RATIO",294)=""
^DD(63.04,"B","LEGIONELLA AB",640)=""
^DD(63.04,"B","LEPTOSPIRA AGGLT",641)=""
^DD(63.04,"B","LEUCINE CRYSTALS",717)=""
^DD(63.04,"B","LEUKOCYTE ALK PHOS SCORE",660)=""
^DD(63.04,"B","LEUKOCYTE ESTERASE, URINE",796)=""
^DD(63.04,"B","LH",81)=""
^DD(63.04,"B","LIDOCAINE",171)=""
^DD(63.04,"B","LIPASE",43)=""
^DD(63.04,"B","LIPID PHENOTYPE EVAL.",161)=""
^DD(63.04,"B","LIPIDS, QUALITATIVE",160)=""
^DD(63.04,"B","LIPIDS, TOTAL",146)=""
^DD(63.04,"B","LIPOPROTEIN, ALPHA",166)=""
^DD(63.04,"B","LIPOPROTEIN, BETA",164)=""
^DD(63.04,"B","LIPOPROTEIN, PRE-BETA",165)=""
^DD(63.04,"B","LIQUIFACTION",437)=""
^DD(63.04,"B","LITHIUM",28)=""
^DD(63.04,"B","LONG ACTING THYROID HORMONE",295)=""
^DD(63.04,"B","LSD",296)=""
^DD(63.04,"B","LUPUS TYPE INHIBITOR",505)=""
^DD(63.04,"B","LUPUS TYPE INHIBITOR (CONTROL)",531)=""
^DD(63.04,"B","LYMPHOCHORIOMENINGITIS",682)=""
^DD(63.04,"B","LYMPHOCYTE ATYPIA, MEAN",480)=""
^DD(63.04,"B","LYMPHOCYTE ATYPIA, STA DEV",481)=""
^DD(63.04,"B","LYMPHS",396)=""
^DD(63.04,"B","LYMPHS, ABSOLUTE",842)=""
^DD(63.04,"B","LYMPHS, ALTERNATE ABS",861)=""
^DD(63.04,"B","LYSOZYME",297)=""
^DD(63.04,"B","MACROCYTOSIS",411)=""
^DD(63.04,"B","MACROGLOBULINS",298)=""
^DD(63.04,"B","MACROPHAGES",490)=""
^DD(63.04,"B","MAGNESIUM",29)=""
^DD(63.04,"B","MALARIA FORMS",418)=""
^DD(63.04,"B","MALARIA SMEAR",488)=""
^DD(63.04,"B","MALIGNANT CELLS",792)=""
^DD(63.04,"B","MANGANESE",116)=""
^DD(63.04,"B","MAPROTILINE-LUDIOMIL",177)=""
^DD(63.04,"B","MARIJUANA SCREEN",299)=""
^DD(63.04,"B","MAUVE SPOT",300)=""
^DD(63.04,"B","MCH",389)=""
^DD(63.04,"B","MCHC",390)=""
^DD(63.04,"B","MCV",388)=""
^DD(63.04,"B","MEASLES-RUBEOLA TITER",642)=""
^DD(63.04,"B","MEGAKARYOCYTE",419)=""
^DD(63.04,"B","MELANIN",301)=""
^DD(63.04,"B","MEPERIDINE",302)=""
^DD(63.04,"B","MEPHOBARBITAL",303)=""
^DD(63.04,"B","MEPROBAMATE",120)=""
^DD(63.04,"B","MERCURY",34)=""
^DD(63.04,"B","MESANTOIN",304)=""
^DD(63.04,"B","MESOTHELIAL CELLS",442)=""
^DD(63.04,"B","META",400)=""
^DD(63.04,"B","METANEPHRINES, TOT",77)=""
^DD(63.04,"B","METHADONE",306)=""
^DD(63.04,"B","METHAMPHETAMINE",307)=""
^DD(63.04,"B","METHANOL",142)=""
^DD(63.04,"B","METHAPYRILENE",308)=""
^DD(63.04,"B","METHAQUALONE",309)=""
^DD(63.04,"B","METHARBITAL",310)=""
^DD(63.04,"B","METHEMALBUMIN",311)=""
^DD(63.04,"B","METHOCARBAMOL",312)=""
^DD(63.04,"B","METHOD OR SITE",.08)=""
^DD(63.04,"B","METHOTREXATE",313)=""
^DD(63.04,"B","METHSUXIMIDE",314)=""
^DD(63.04,"B","METHYLMALONIC ACID",315)=""
^DD(63.04,"B","METHYPRYLON",316)=""
^DD(63.04,"B","MICROCYTOSIS",410)=""
^DD(63.04,"B","MICROGLOBULIN",783)=""
^DD(63.04,"B","MISCELLANEOUS",789)=""
^DD(63.04,"B","MONO TEST",556)=""
^DD(63.04,"B","MONOCYTE, ALTERNATE %",858)=""
^DD(63.04,"B","MONOCYTE, ALTERNATE ABS",860)=""
^DD(63.04,"B","MONOCYTES",397)=""
^DD(63.04,"B","MONOS, ABSOLUTE",843)=""
^DD(63.04,"B","MORPHINE",317)=""
^DD(63.04,"B","MOTILITY",439)=""
^DD(63.04,"B","MPV",393)=""
^DD(63.04,"B","MUCIN CLOT",513)=""
^DD(63.04,"B","MUCOPOLYSACCHARIDES",318)=""
^DD(63.04,"B","MUCUS",697)=""
^DD(63.04,"B","MUMPS",643)=""
^DD(63.04,"B","MUMPS SOLUBLE",644)=""
^DD(63.04,"B","MUMPS VIRAL",645)=""
^DD(63.04,"B","MYCOPLASMA TITER",557)=""
^DD(63.04,"B","MYELIN BASIC PROTEIN",61)=""
^DD(63.04,"B","MYELO",401)=""
^DD(63.04,"B","MYOGLOBIN",319)=""
^DD(63.04,"B","MYSOLINE",82)=""
^DD(63.04,"B","N-ACETYL",38)=""
^DD(63.04,"B","N-DESALKYL FLURAZEPAM",320)=""
^DD(63.04,"B","N-DESMETHYLDOXEPIN",181)=""
^DD(63.04,"B","NAFCILLIN",321)=""
^DD(63.04,"B","NEUTROPHIL",468)=""
^DD(63.04,"B","NEUTROPHIL MATURITY, MEAN",478)=""
^DD(63.04,"B","NEUTROPHIL MATURITY, STA DEV",479)=""
^DD(63.04,"B","NEUTROPHIL, ABSOLUTE",841)=""
^DD(63.04,"B","NEW PERSON CONVERSION",.12)=""
^DD(63.04,"B","NICKEL",322)=""
^DD(63.04,"B","NICOTINE",323)=""
^DD(63.04,"B","NIRVANOL",324)=""
^DD(63.04,"B","NITRITE, URINE",795)=""
^DD(63.04,"B","NITROGEN",147)=""
^DD(63.04,"B","NORDIAZEPAM",140)=""
^DD(63.04,"B","NORDOXEPIN",136)=""
^DD(63.04,"B","NOREPINEPHRINE",90)=""
^DD(63.04,"B","NORMETHSUXIMIDE",325)=""
^DD(63.04,"B","NORMOCHROMIC",407)=""
^DD(63.04,"B","NORMOCYTIC",406)=""
^DD(63.04,"B","NORTRIPTYLINE",72)=""
^DD(63.04,"B","NRBC/100 WBC",404)=""
^DD(63.04,"B","O2CT.",449)=""
^DD(63.04,"B","OLIGOCLONAL BANDS",785)=""
^DD(63.04,"B","OPIATES",326)=""
^DD(63.04,"B","ORDERED TEST",.35)=""
^DD(63.04,"B","ORDERING SITE",.32)=""
^DD(63.04,"B","ORDERING SITE UID",.342)=""
^DD(63.04,"B","OSMOLALITY",46)=""
^DD(63.04,"B","OSMOTIC FRAGILITY",464)=""
^DD(63.04,"B","OTHER",780)=""
^DD(63.04,"B","OVALOCYTES",420)=""
^DD(63.04,"B","OXALATE",327)=""
^DD(63.04,"B","OXAZEPAM",328)=""
^DD(63.04,"B","OXYCODONE",329)=""
^DD(63.04,"B","PAPPENHEIMER BODIES",417)=""
^DD(63.04,"B","PARAINFLUENZA 1 TITER",646)=""
^DD(63.04,"B","PARAINFLUENZA 2 TITER",647)=""
^DD(63.04,"B","PARAINFLUENZA 3 TITER",648)=""
^DD(63.04,"B","PARAMETHADIONE",330)=""
^DD(63.04,"B","PARTIAL THROMBOPLASTIN TIME",431)=""
^DD(63.04,"B","PCB-POLYCHLORINATED",331)=""
^DD(63.04,"B","PCO2",451)=""
^DD(63.04,"B","PCO2 AT PT. TEMP",458)=""
^DD(63.04,"B","PEMA",332)=""
^DD(63.04,"B","PENTAZOCINE",333)=""
^DD(63.04,"B","PENTOBARBITAL",334)=""
^DD(63.04,"B","PEPSINOGEN",335)=""
^DD(63.04,"B","PEPSINOGEN 1",336)=""
^DD(63.04,"B","PH",450)=""
^DD(63.04,"B","PHENACETIN",123)=""
^DD(63.04,"B","PHENCYCLIDINE",337)=""
^DD(63.04,"B","PHENCYCLIDINE (PCP)",338)=""
^DD(63.04,"B","PHENCYCLIDINE (PCP)B",339)=""
^DD(63.04,"B","PHENOBARBITAL",27)=""
^DD(63.04,"B","PHENOL",340)=""
^DD(63.04,"B","PHENOLSULFONPHTHALEIN",341)=""
^DD(63.04,"B","PHENOTHIAZINE",342)=""
^DD(63.04,"B","PHENSUXIMIDE",343)=""
^DD(63.04,"B","PHENYLALANINE",344)=""
^DD(63.04,"B","PHENYLPROPANOLAMINE",145)=""
^DD(63.04,"B","PHOSPHOLIPIDS",345)=""
^DD(63.04,"B","PHOSPHOROUS",10)="1"
^DD(63.04,"B","PHYTANIC ACID",346)=""
^DD(63.04,"B","PLASMA CELLS",472)=""
^DD(63.04,"B","PLASMINOGEN, ACTIVATED",516)=""
^DD(63.04,"B","PLASMINOGEN, TOTAL",517)=""
^DD(63.04,"B","PLATELET AB",649)=""
^DD(63.04,"B","PLATELET ADHESION",524)=""
^DD(63.04,"B","PLATELET AGGREGATION",491)=""
^DD(63.04,"B","PLT",392)=""
^DD(63.04,"B","PLT. (SMEAR EST.)",405)=""
^DD(63.04,"B","PO2",452)=""
^DD(63.04,"B","PO2 AT PT. TEMP",459)=""
^DD(63.04,"B","PO4",10)=""
^DD(63.04,"B","POIKILOCYTOSIS",409)=""
^DD(63.04,"B","POLIO VIRUS 1",650)=""
^DD(63.04,"B","POLIO VIRUS 2",651)=""
^DD(63.04,"B","POLIO VIRUS 3",652)=""
^DD(63.04,"B","POLYCHROMASIA",412)=""
^DD(63.04,"B","PORPHOBILINOGEN",709)=""
^DD(63.04,"B","PORPHYRINS-QUAL",799)=""
^DD(63.04,"B","POTASSIUM",6)=""
^DD(63.04,"B","PRAZEPAM",347)=""
^DD(63.04,"B","PREGNANCY",746)=""
^DD(63.04,"B","PREGNANCY TEST",653)=""
^DD(63.04,"B","PREGNANEDIOL",348)=""
^DD(63.04,"B","PREGNANETRIOL",349)=""
^DD(63.04,"B","PRESSURE",786)=""
^DD(63.04,"B","PROCAINAMIDE",83)=""
^DD(63.04,"B","PROLACTIN",84)=""
^DD(63.04,"B","PROMYELOCYTES",402)=""
^DD(63.04,"B","PROPOXYPHENE",350)=""
^DD(63.04,"B","PROPRANOLOL",156)=""
^DD(63.04,"B","PROTAMINE SULFATE",514)=""
^DD(63.04,"B","PROTEIN ELECTROPHORESIS",59)=""
^DD(63.04,"B","PROTEIN,TOTAL",13)=""
^DD(63.04,"B","PROTEUS OX19",851)=""
^DD(63.04,"B","PROTEUS OX2",849)=""
^DD(63.04,"B","PROTEUS OXK",850)=""
^DD(63.04,"B","PROTHROMBIN TIME",430)=""
^DD(63.04,"B","PROTOPORPHYRIN",119)=""
^DD(63.04,"B","PROTRIPTYLINE",351)=""
^DD(63.04,"B","PSEUDOCHOLINESTERASE",352)=""
^DD(63.04,"B","PT CONTROL",441)=""
^DD(63.04,"B","PT WITH MIX",500)=""
^DD(63.04,"B","PT. TEMP",456)=""
^DD(63.04,"B","PTH (C-TERMINAL)",74)=""
^DD(63.04,"B","PTH (INTACT)",75)=""
^DD(63.04,"B","PTT CONTROL",460)=""
^DD(63.04,"B","PYRUVATE",353)=""
^DD(63.04,"B","PYRUVATE KINASE SCREEN",354)=""
^DD(63.04,"B","Q FEVER (ACUTE) TITER",781)=""
^DD(63.04,"B","Q FEVER (CONV.) TITER",782)=""
^DD(63.04,"B","QUINIDINE",22)=""
^DD(63.04,"B","RA PRECIPITIN AB",654)=""
^DD(63.04,"B","RBC",385)=""
^DD(63.04,"B","RBC/CASTS/LPF",701)=""
^DD(63.04,"B","RBC/HPF",694)=""
^DD(63.04,"B","RDW",391)=""
^DD(63.04,"B","REACTION PH",733)=""
^DD(63.04,"B","RENAL EPITHELIAL",778)=""
^DD(63.04,"B","RENAL TUBE EPITH",729)=""
^DD(63.04,"B","RENIN",60)=""
^DD(63.04,"B","REPTILASE TIME",501)=""
^DD(63.04,"B","REQUESTING LOC/DIV",.111)=""
^DD(63.04,"B","REQUESTING LOCATION",.11)=""
^DD(63.04,"B","REQUESTING PERSON",.1)=""
^DD(63.04,"B","RESP SYNCYTIAL VIRUS TITER",807)=""
^DD(63.04,"B","RETICULOCYTES",428)=""
^DD(63.04,"B","RETINOL BINDING PROTEIN",128)=""
^DD(63.04,"B","REV T-3",767)=""
^DD(63.04,"B","RHEUMATOID FACTOR",558)=""
^DD(63.04,"B","RISTOCETIN",521)=""
^DD(63.04,"B","RISTOCETIN COMMENT",529)=""
^DD(63.04,"B","ROCKY MTN SPOTTED FV. TITER",655)=""
^DD(63.04,"B","RPR,QUAL",559)=""
^DD(63.04,"B","RUBELLA",577)=""
^DD(63.04,"B","RUBELLA TITER",656)=""
^DD(63.04,"B","RUBEOLA",657)=""
^DD(63.04,"B","SALICYLATE",45)=""
^DD(63.04,"B","SALINE TITER",658)=""
^DD(63.04,"B","SALMONELLA A-H TITER",833)=""
^DD(63.04,"B","SALMONELLA A-O TITER",829)=""
^DD(63.04,"B","SALMONELLA AGGLUTINATION",661)=""
^DD(63.04,"B","SALMONELLA B-H TITER",834)=""
^DD(63.04,"B","SALMONELLA B-O TITER",830)=""
^DD(63.04,"B","SALMONELLA C-H TITER",835)=""
^DD(63.04,"B","SALMONELLA C-O TITER",831)=""
^DD(63.04,"B","SALMONELLA D-O TITER",832)=""
^DD(63.04,"B","SALMONELLA GROUP A",662)=""
^DD(63.04,"B","SALMONELLA GROUP B",663)=""
^DD(63.04,"B","SALMONELLA GROUP C",664)=""
^DD(63.04,"B","SALMONELLA GROUP D",665)=""
^DD(63.04,"B","SALMONELLA GROUP E",666)=""
^DD(63.04,"B","SALMONELLA H ANTIGEN",667)=""
^DD(63.04,"B","SALMONELLA O ANTIGENS",668)=""
^DD(63.04,"B","SALMONELLA TYPHI-H TITER",836)=""
^DD(63.04,"B","SCHISTOCYTES",425)=""
^DD(63.04,"B","SCLERODERMA AB",669)=""
^DD(63.04,"B","SECOBARBITAL",356)=""
^DD(63.04,"B","SEGS",394)=""
^DD(63.04,"B","SEGS, ABSOLUTE",848)=""
^DD(63.04,"B","SELENIUM",117)=""
^DD(63.04,"B","SEROTONIN",357)=""
^DD(63.04,"B","SEROTYPE 11",672)=""
^DD(63.04,"B","SEROTYPE 16",673)=""
^DD(63.04,"B","SEROTYPE 2",670)=""
^DD(63.04,"B","SEROTYPE 4",671)=""
^DD(63.04,"B","SGOT",19)=""
^DD(63.04,"B","SGPT",20)=""
^DD(63.04,"B","SICKLE CELL PREP",465)=""
^DD(63.04,"B","SICKLE CELLS",422)=""
^DD(63.04,"B","SMUDGE CELLS",477)=""
^DD(63.04,"B","SODIUM",5)=""
^DD(63.04,"B","SOMATOMEDIN-C",170)=""
^DD(63.04,"B","SPECIFIC GRAVITY",685)=""
^DD(63.04,"B","SPECIMEN TYPE",.05)=""
^DD(63.04,"B","SPERM",730)=""
^DD(63.04,"B","SPERM COUNT",440)=""
^DD(63.04,"B","SPERM MORPHOLOGY",467)=""
^DD(63.04,"B","SPHEROCYTES",473)=""
^DD(63.04,"B","SQUAMOUS EPITHELIAL",777)=""
^DD(63.04,"B","STREPTOZYME",560)=""
^DD(63.04,"B","STRYCHNINE",358)=""
^DD(63.04,"B","STYPVEN TIME",511)=""
^DD(63.04,"B","STYPVEN TIME (CONTROL)",539)=""
^DD(63.04,"B","SUGAR WATER TEST",466)=""
^DD(63.04,"B","SULFHEMOGLOBIN",359)=""
^DD(63.04,"B","SULFONAMIDES",360)=""
^DD(63.04,"B","SUM REPORT NUM.",.09)=""
^DD(63.04,"B","SUPPRESSOR T CELLS",825)=""
^DD(63.04,"B","SYNOVIAL LINING CELLS",794)=""
^DD(63.04,"B","T LYMPHOCYTES",827)=""
^DD(63.04,"B","T-3 RESIN UPTAKE",738)=""
^DD(63.04,"B","T-4 BINDING GLOBULIN",771)=""
^DD(63.04,"B","TARGET CELLS",414)=""
^DD(63.04,"B","TCA",190)=""
^DD(63.04,"B","TEARDROPS",421)=""
^DD(63.04,"B","TEGRETOL",86)=""
^DD(63.04,"B","TEICHOIC ACID AB",674)=""
^DD(63.04,"B","TESTOSTERONE",85)=""
^DD(63.04,"B","TETRACYCLINE",361)=""
^DD(63.04,"B","THALLIUM",363)=""
^DD(63.04,"B","THEOPHYLLINE",24)=""
^DD(63.04,"B","THIAMINE",364)=""
^DD(63.04,"B","THIOCYANATE",365)=""
^DD(63.04,"B","THIOPENTAL",366)=""
^DD(63.04,"B","THIORIDAZINE",367)=""
^DD(63.04,"B","THIORIDAZINE-MELLARIL",368)=""
^DD(63.04,"B","THROMBIN TIME",435)=""
^DD(63.04,"B","THYROGLOBULIN",369)=""
^DD(63.04,"B","THYROXINE",737)=""
^DD(63.04,"B","TIBC",748)=""
^DD(63.04,"B","TOBRAMYCIN",93)=""
^DD(63.04,"B","TOT-DOX/NORDOXEPIN",137)="1"
^DD(63.04,"B","TOT/NDOX",137)=""
^DD(63.04,"B","TOTAL WEIGHT",784)=""
^DD(63.04,"B","TOXIC GRANULATION",475)=""
^DD(63.04,"B","TOXOPLASMA",580)=""
^DD(63.04,"B","TRANSFERRIN",768)=""
^DD(63.04,"B","TRANSITIONAL EPITHELIAL",779)=""
^DD(63.04,"B","TRANSTHYRETIN",129)=""
^DD(63.04,"B","TRANXENE",371)=""
^DD(63.04,"B","TRAZODONE",372)=""
^DD(63.04,"B","TRI PHOSPHATE CRYSTALS",713)=""
^DD(63.04,"B","TRICHINELLA AGGLUTINATION",675)=""
^DD(63.04,"B","TRICHOMONAS",710)=""
^DD(63.04,"B","TRICYCLICS",373)=""
^DD(63.04,"B","TRIGLYCERIDE",47)=""
^DD(63.04,"B","TRIIODOTHYRONINE",753)=""
^DD(63.04,"B","TRIMETHADIONE",374)=""
^DD(63.04,"B","TRYPSIN",375)=""
^DD(63.04,"B","TRYPTAMINE",376)=""
^DD(63.04,"B","TSH",741)=""
^DD(63.04,"B","TUBE #",489)=""
^DD(63.04,"B","TULAREMIA AGGLUTINATION",676)=""
^DD(63.04,"B","TURBIDITY",482)=""
^DD(63.04,"B","TYPHOID H",677)=""
^DD(63.04,"B","TYPHUS AB TITER",818)=""
^DD(63.04,"B","TYROSINE CRYSTALS",718)=""
^DD(63.04,"B","UIBC",749)=""
^DD(63.04,"B","UID",.31)=""
^DD(63.04,"B","UR 1/2Hr.GTT",722)=""
^DD(63.04,"B","UR 1Hr.GTT",723)=""
^DD(63.04,"B","UR 2Hr.GTT",724)=""
^DD(63.04,"B","UR 3Hr.GTT",725)=""
^DD(63.04,"B","UR 4Hr.GTT",726)=""
^DD(63.04,"B","UR 5Hr.GTT",727)=""
^DD(63.04,"B","UR 6Hr.GTT",728)=""
^DD(63.04,"B","UR BILIRUBIN",688)=""
^DD(63.04,"B","UR BLOOD",687)=""
^DD(63.04,"B","UR COLOR",683)=""
^DD(63.04,"B","UR FASTING GTT",721)=""
^DD(63.04,"B","UR GLUCOSE",690)=""
^DD(63.04,"B","UR GLUCOSE TOLERANCE TEST",720)=""
^DD(63.04,"B","UR KETONES",689)=""
^DD(63.04,"B","UR PH",692)=""
^DD(63.04,"B","UR PROTEIN",691)=""
^DD(63.04,"B","UR YEAST",706)=""
^DD(63.04,"B","UREA NITROGEN",3)=""
^DD(63.04,"B","URIC ACID",11)=""
^DD(63.04,"B","URIC ACID CRYSTALS",715)=""
^DD(63.04,"B","URINE CASTS",698)=""
^DD(63.04,"B","URINE CRYSTALS",699)=""
^DD(63.04,"B","UROBILINOGEN",686)=""
^DD(63.04,"B","UROBILINOGEN, QUANTITATIVE",862)=""
^DD(63.04,"B","UROPORPHYRIN",118)=""
^DD(63.04,"B","VALPROIC ACID",377)=""
^DD(63.04,"B","VANCOMYCIN",141)=""
^DD(63.04,"B","VARICELLA ZOSTER(VZ) AB TITER",819)=""
^DD(63.04,"B","VASO ACTIVE PEPTIDE",378)=""
^DD(63.04,"B","VDRL",561)=""
^DD(63.04,"B","VENTRICULAR LINING CELLS",793)=""
^DD(63.04,"B","VERIFY PERSON",.04)=""
^DD(63.04,"B","VISCOSITY",436)=""
^DD(63.04,"B","VITAMIN A",114)=""
^DD(63.04,"B","VITAMIN B-1",379)=""
^DD(63.04,"B","VITAMIN B-12",853)=""
^DD(63.04,"B","VITAMIN B-2",380)=""
^DD(63.04,"B","VITAMIN B-6",381)=""
^DD(63.04,"B","VITAMIN C",157)=""
^DD(63.04,"B","VITAMIN E",115)=""
^DD(63.04,"B","VMA",91)=""
^DD(63.04,"B","VOLUME",797)=""
^DD(63.04,"B","VON WILLEBRAND (CONTROL)",523)=""
^DD(63.04,"B","VON WILLEBRAND FACTOR",522)=""
^DD(63.04,"B","WAXY/CASTS/LPF",704)=""
^DD(63.04,"B","WBC",384)=""
^DD(63.04,"B","WBC/CASTS/LPF",700)=""
^DD(63.04,"B","WBC/HPF",693)=""
^DD(63.04,"B","WESTERGREN ESR",469)=""
^DD(63.04,"B","WINTROBE ESR",427)=""
^DD(63.04,"B","XANTHURENIC ACID",382)=""
^DD(63.04,"B","XYLOSE ABSORPTION",383)=""
^DD(63.04,"B","ZINC",32)=""
^DD(63.04,"B","consider for removal",54)="1"
^DD(63.04,"B","consider for removal",179)="1"
^DD(63.04,"B","pH at PT temp",457)=""
^DD(63.04,"GL",0,1,.01)=""
^DD(63.04,"GL",0,2,.02)=""
^DD(63.04,"GL",0,3,.03)=""
^DD(63.04,"GL",0,4,.04)=""
^DD(63.04,"GL",0,5,.05)=""
^DD(63.04,"GL",0,6,.06)=""
^DD(63.04,"GL",0,7,.07)=""
^DD(63.04,"GL",0,8,.08)=""
^DD(63.04,"GL",0,9,.09)=""
^DD(63.04,"GL",0,10,.1)=""
^DD(63.04,"GL",0,11,.11)=""
^DD(63.04,"GL",0,13,.111)=""
^DD(63.04,"GL",0,14,.112)=""
^DD(63.04,"GL",1,0,.99)=""
^DD(63.04,"GL",2,1,2)=""
^DD(63.04,"GL",3,1,3)=""
^DD(63.04,"GL",4,1,4)=""
^DD(63.04,"GL",5,1,5)=""
^DD(63.04,"GL",6,1,6)=""
^DD(63.04,"GL",7,1,7)=""
^DD(63.04,"GL",8,1,8)=""
^DD(63.04,"GL",9,1,9)=""
^DD(63.04,"GL",10,1,10)=""
^DD(63.04,"GL",11,1,11)=""
^DD(63.04,"GL",12,1,12)=""
^DD(63.04,"GL",13,1,13)=""
^DD(63.04,"GL",14,1,14)=""
^DD(63.04,"GL",15,1,15)=""
^DD(63.04,"GL",16,1,16)=""
^DD(63.04,"GL",17,1,17)=""
^DD(63.04,"GL",18,1,18)=""
^DD(63.04,"GL",19,1,19)=""
^DD(63.04,"GL",20,1,20)=""
^DD(63.04,"GL",21,1,21)=""
^DD(63.04,"GL",22,1,22)=""
^DD(63.04,"GL",23,1,23)=""
^DD(63.04,"GL",24,1,24)=""
^DD(63.04,"GL",25,1,25)=""
^DD(63.04,"GL",26,1,26)=""
^DD(63.04,"GL",27,1,27)=""
^DD(63.04,"GL",28,1,28)=""
^DD(63.04,"GL",29,1,29)=""
^DD(63.04,"GL",30,1,30)=""
^DD(63.04,"GL",31,1,31)=""
^DD(63.04,"GL",32,1,32)=""
^DD(63.04,"GL",33,1,33)=""
^DD(63.04,"GL",34,1,34)=""
^DD(63.04,"GL",35,1,35)=""
^DD(63.04,"GL",36,1,36)=""
^DD(63.04,"GL",37,1,37)=""
^DD(63.04,"GL",38,1,38)=""
^DD(63.04,"GL",39,1,39)=""
^DD(63.04,"GL",40,1,40)=""
^DD(63.04,"GL",41,1,41)=""
^DD(63.04,"GL",42,1,42)=""
^DD(63.04,"GL",43,1,43)=""
^DD(63.04,"GL",44,1,44)=""
^DD(63.04,"GL",45,1,45)=""
^DD(63.04,"GL",46,1,46)=""
^DD(63.04,"GL",47,1,47)=""
^DD(63.04,"GL",48,1,48)=""
^DD(63.04,"GL",49,1,49)=""
^DD(63.04,"GL",51,1,51)=""
^DD(63.04,"GL",52,1,52)=""
^DD(63.04,"GL",53,1,53)=""
^DD(63.04,"GL",54,1,54)=""
^DD(63.04,"GL",55,1,55)=""
^DD(63.04,"GL",57,1,57)=""
^DD(63.04,"GL",58,1,58)=""
^DD(63.04,"GL",59,1,59)=""
^DD(63.04,"GL",60,1,60)=""
^DD(63.04,"GL",61,1,61)=""
^DD(63.04,"GL",62,1,62)=""
^DD(63.04,"GL",63,1,63)=""
^DD(63.04,"GL",64,1,64)=""
^DD(63.04,"GL",65,1,65)=""
^DD(63.04,"GL",66,1,66)=""
^DD(63.04,"GL",67,1,67)=""
^DD(63.04,"GL",68,1,68)=""
^DD(63.04,"GL",69,1,69)=""
^DD(63.04,"GL",70,1,70)=""
^DD(63.04,"GL",71,1,71)=""
^DD(63.04,"GL",72,1,72)=""
^DD(63.04,"GL",73,1,73)=""
^DD(63.04,"GL",74,1,74)=""
^DD(63.04,"GL",75,1,75)=""
^DD(63.04,"GL",76,1,76)=""
^DD(63.04,"GL",77,1,77)=""
^DD(63.04,"GL",78,1,78)=""
^DD(63.04,"GL",79,1,79)=""
^DD(63.04,"GL",80,1,80)=""
^DD(63.04,"GL",81,1,81)=""
^DD(63.04,"GL",82,1,82)=""
^DD(63.04,"GL",83,1,83)=""
^DD(63.04,"GL",84,1,84)=""
^DD(63.04,"GL",85,1,85)=""
^DD(63.04,"GL",86,1,86)=""
^DD(63.04,"GL",88,1,88)=""
^DD(63.04,"GL",89,1,89)=""
^DD(63.04,"GL",90,1,90)=""
^DD(63.04,"GL",91,1,91)=""
^DD(63.04,"GL",92,1,92)=""
^DD(63.04,"GL",93,1,93)=""
^DD(63.04,"GL",94,1,94)=""
^DD(63.04,"GL",95,1,95)=""
^DD(63.04,"GL",96,1,96)=""
^DD(63.04,"GL",97,1,97)=""
^DD(63.04,"GL",98,1,98)=""
^DD(63.04,"GL",99,1,99)=""
^DD(63.04,"GL",100,1,100)=""
^DD(63.04,"GL",101,1,101)=""
^DD(63.04,"GL",102,1,102)=""
^DD(63.04,"GL",103,1,103)=""
^DD(63.04,"GL",104,1,104)=""
^DD(63.04,"GL",105,1,105)=""
^DD(63.04,"GL",106,1,106)=""
^DD(63.04,"GL",107,1,107)=""
^DD(63.04,"GL",108,1,108)=""
^DD(63.04,"GL",109,1,109)=""
^DD(63.04,"GL",110,1,110)=""
^DD(63.04,"GL",111,1,111)=""
^DD(63.04,"GL",112,1,112)=""
^DD(63.04,"GL",113,1,113)=""
^DD(63.04,"GL",114,1,114)=""
^DD(63.04,"GL",115,1,115)=""
^DD(63.04,"GL",116,1,116)=""
^DD(63.04,"GL",117,1,117)=""
^DD(63.04,"GL",118,1,118)=""
^DD(63.04,"GL",119,1,119)=""
^DD(63.04,"GL",120,1,120)=""
^DD(63.04,"GL",121,1,121)=""
^DD(63.04,"GL",122,1,122)=""
^DD(63.04,"GL",123,1,123)=""
^DD(63.04,"GL",124,1,124)=""
^DD(63.04,"GL",125,1,125)=""
^DD(63.04,"GL",128,1,128)=""
^DD(63.04,"GL",129,1,129)=""
^DD(63.04,"GL",130,1,130)=""
^DD(63.04,"GL",131,1,131)=""
^DD(63.04,"GL",132,1,132)=""
^DD(63.04,"GL",133,1,133)=""
^DD(63.04,"GL",134,1,134)=""
^DD(63.04,"GL",135,1,135)=""
^DD(63.04,"GL",136,1,136)=""
^DD(63.04,"GL",137,1,137)=""
^DD(63.04,"GL",138,1,138)=""
^DD(63.04,"GL",139,1,139)=""
^DD(63.04,"GL",140,1,140)=""
^DD(63.04,"GL",141,1,141)=""
^DD(63.04,"GL",142,1,142)=""
^DD(63.04,"GL",143,1,143)=""
^DD(63.04,"GL",144,1,144)=""
^DD(63.04,"GL",145,1,145)=""
^DD(63.04,"GL",146,1,146)=""
^DD(63.04,"GL",147,1,147)=""
^DD(63.04,"GL",148,1,148)=""
^DD(63.04,"GL",149,1,149)=""
^DD(63.04,"GL",150,1,150)=""
^DD(63.04,"GL",151,1,151)=""
^DD(63.04,"GL",152,1,152)=""
^DD(63.04,"GL",153,1,153)=""
^DD(63.04,"GL",154,1,154)=""
^DD(63.04,"GL",155,1,155)=""
^DD(63.04,"GL",156,1,156)=""
^DD(63.04,"GL",157,1,157)=""
^DD(63.04,"GL",159,1,159)=""
^DD(63.04,"GL",160,1,160)=""
^DD(63.04,"GL",161,1,161)=""
^DD(63.04,"GL",162,1,162)=""
^DD(63.04,"GL",163,1,163)=""
^DD(63.04,"GL",164,1,164)=""
^DD(63.04,"GL",165,1,165)=""
^DD(63.04,"GL",166,1,166)=""
^DD(63.04,"GL",167,1,167)=""
^DD(63.04,"GL",169,1,169)=""
^DD(63.04,"GL",170,1,170)=""
^DD(63.04,"GL",171,1,171)=""
^DD(63.04,"GL",172,1,172)=""
^DD(63.04,"GL",173,1,173)=""
^DD(63.04,"GL",174,1,174)=""
^DD(63.04,"GL",175,1,175)=""
^DD(63.04,"GL",176,1,176)=""
^DD(63.04,"GL",177,1,177)=""
^DD(63.04,"GL",178,1,178)=""
^DD(63.04,"GL",179,1,179)=""
^DD(63.04,"GL",180,1,180)=""
^DD(63.04,"GL",181,1,181)=""
^DD(63.04,"GL",182,1,182)=""
^DD(63.04,"GL",183,1,183)=""
^DD(63.04,"GL",184,1,184)=""
^DD(63.04,"GL",185,1,185)=""
^DD(63.04,"GL",186,1,186)=""
^DD(63.04,"GL",187,1,187)=""
^DD(63.04,"GL",188,1,188)=""
^DD(63.04,"GL",189,1,189)=""
^DD(63.04,"GL",190,1,190)=""
^DD(63.04,"GL",191,1,191)=""
^DD(63.04,"GL",192,1,192)=""
^DD(63.04,"GL",193,1,193)=""
^DD(63.04,"GL",194,1,194)=""
^DD(63.04,"GL",195,1,195)=""
^DD(63.04,"GL",196,1,196)=""
^DD(63.04,"GL",197,1,197)=""
^DD(63.04,"GL",198,1,198)=""
^DD(63.04,"GL",199,1,199)=""
^DD(63.04,"GL",200,1,200)=""
^DD(63.04,"GL",201,1,201)=""
^DD(63.04,"GL",202,1,202)=""
^DD(63.04,"GL",203,1,203)=""
^DD(63.04,"GL",204,1,204)=""
^DD(63.04,"GL",205,1,205)=""
^DD(63.04,"GL",209,1,209)=""
^DD(63.04,"GL",210,1,210)=""
^DD(63.04,"GL",211,1,211)=""
^DD(63.04,"GL",212,1,212)=""
^DD(63.04,"GL",213,1,213)=""
^DD(63.04,"GL",214,1,214)=""
^DD(63.04,"GL",215,1,215)=""
^DD(63.04,"GL",216,1,216)=""
^DD(63.04,"GL",217,1,217)=""
^DD(63.04,"GL",218,1,218)=""
^DD(63.04,"GL",219,1,219)=""
^DD(63.04,"GL",220,1,220)=""
^DD(63.04,"GL",221,1,221)=""
^DD(63.04,"GL",222,1,222)=""
^DD(63.04,"GL",224,1,224)=""
^DD(63.04,"GL",225,1,225)=""
^DD(63.04,"GL",226,1,226)=""
^DD(63.04,"GL",227,1,227)=""
^DD(63.04,"GL",228,1,228)=""
^DD(63.04,"GL",229,1,229)=""
^DD(63.04,"GL",230,1,230)=""
^DD(63.04,"GL",231,1,231)=""
^DD(63.04,"GL",232,1,232)=""
^DD(63.04,"GL",233,1,233)=""
^DD(63.04,"GL",234,1,234)=""
^DD(63.04,"GL",235,1,235)=""
^DD(63.04,"GL",236,1,236)=""
^DD(63.04,"GL",237,1,237)=""
^DD(63.04,"GL",238,1,238)=""
^DD(63.04,"GL",239,1,239)=""
^DD(63.04,"GL",240,1,240)=""
^DD(63.04,"GL",241,1,241)=""
^DD(63.04,"GL",242,1,242)=""
^DD(63.04,"GL",243,1,243)=""
^DD(63.04,"GL",244,1,244)=""
^DD(63.04,"GL",245,1,245)=""
^DD(63.04,"GL",246,1,246)=""
^DD(63.04,"GL",247,1,247)=""
^DD(63.04,"GL",249,1,249)=""
^DD(63.04,"GL",250,1,250)=""
^DD(63.04,"GL",251,1,251)=""
^DD(63.04,"GL",252,1,252)=""
^DD(63.04,"GL",253,1,253)=""
^DD(63.04,"GL",254,1,254)=""
^DD(63.04,"GL",255,1,255)=""
^DD(63.04,"GL",256,1,256)=""
^DD(63.04,"GL",257,1,257)=""
^DD(63.04,"GL",260,1,260)=""
^DD(63.04,"GL",261,1,261)=""
^DD(63.04,"GL",262,1,262)=""
^DD(63.04,"GL",263,1,263)=""
^DD(63.04,"GL",264,1,264)=""
^DD(63.04,"GL",265,1,265)=""
^DD(63.04,"GL",266,1,266)=""
^DD(63.04,"GL",267,1,267)=""
^DD(63.04,"GL",268,1,268)=""
^DD(63.04,"GL",269,1,269)=""
^DD(63.04,"GL",270,1,270)=""
^DD(63.04,"GL",271,1,271)=""
^DD(63.04,"GL",272,1,272)=""
^DD(63.04,"GL",273,1,273)=""
^DD(63.04,"GL",274,1,274)=""
^DD(63.04,"GL",275,1,275)=""
^DD(63.04,"GL",276,1,276)=""
^DD(63.04,"GL",277,1,277)=""
^DD(63.04,"GL",278,1,278)=""
^DD(63.04,"GL",279,1,279)=""
^DD(63.04,"GL",281,1,281)=""
^DD(63.04,"GL",282,1,282)=""
^DD(63.04,"GL",283,1,283)=""
^DD(63.04,"GL",284,1,284)=""
^DD(63.04,"GL",285,1,285)=""
^DD(63.04,"GL",286,1,286)=""
^DD(63.04,"GL",287,1,287)=""
^DD(63.04,"GL",288,1,288)=""
^DD(63.04,"GL",289,1,289)=""
^DD(63.04,"GL",290,1,290)=""
^DD(63.04,"GL",291,1,291)=""
^DD(63.04,"GL",292,1,292)=""
^DD(63.04,"GL",293,1,293)=""
^DD(63.04,"GL",294,1,294)=""
^DD(63.04,"GL",295,1,295)=""
^DD(63.04,"GL",296,1,296)=""
^DD(63.04,"GL",297,1,297)=""
^DD(63.04,"GL",298,1,298)=""
^DD(63.04,"GL",299,1,299)=""
^DD(63.04,"GL",300,1,300)=""
^DD(63.04,"GL",301,1,301)=""
^DD(63.04,"GL",302,1,302)=""
^DD(63.04,"GL",303,1,303)=""
^DD(63.04,"GL",304,1,304)=""
^DD(63.04,"GL",306,1,306)=""
^DD(63.04,"GL",307,1,307)=""
^DD(63.04,"GL",308,1,308)=""
^DD(63.04,"GL",309,1,309)=""
^DD(63.04,"GL",310,1,310)=""
^DD(63.04,"GL",311,1,311)=""
^DD(63.04,"GL",312,1,312)=""
^DD(63.04,"GL",313,1,313)=""
^DD(63.04,"GL",314,1,314)=""
^DD(63.04,"GL",315,1,315)=""
^DD(63.04,"GL",316,1,316)=""
^DD(63.04,"GL",317,1,317)=""
^DD(63.04,"GL",318,1,318)=""
^DD(63.04,"GL",319,1,319)=""
^DD(63.04,"GL",320,1,320)=""
^DD(63.04,"GL",321,1,321)=""
^DD(63.04,"GL",322,1,322)=""
^DD(63.04,"GL",323,1,323)=""
^DD(63.04,"GL",324,1,324)=""
^DD(63.04,"GL",325,1,325)=""
^DD(63.04,"GL",326,1,326)=""
^DD(63.04,"GL",327,1,327)=""
^DD(63.04,"GL",328,1,328)=""
^DD(63.04,"GL",329,1,329)=""
^DD(63.04,"GL",330,1,330)=""
^DD(63.04,"GL",331,1,331)=""
^DD(63.04,"GL",332,1,332)=""
^DD(63.04,"GL",333,1,333)=""
^DD(63.04,"GL",334,1,334)=""
^DD(63.04,"GL",335,1,335)=""
^DD(63.04,"GL",336,1,336)=""
^DD(63.04,"GL",337,1,337)=""
^DD(63.04,"GL",338,1,338)=""
^DD(63.04,"GL",339,1,339)=""
^DD(63.04,"GL",340,1,340)=""
^DD(63.04,"GL",341,1,341)=""
^DD(63.04,"GL",342,1,342)=""
^DD(63.04,"GL",343,1,343)=""
^DD(63.04,"GL",344,1,344)=""
^DD(63.04,"GL",345,1,345)=""
^DD(63.04,"GL",346,1,346)=""
^DD(63.04,"GL",347,1,347)=""
^DD(63.04,"GL",348,1,348)=""
^DD(63.04,"GL",349,1,349)=""
^DD(63.04,"GL",350,1,350)=""
^DD(63.04,"GL",351,1,351)=""
^DD(63.04,"GL",352,1,352)=""
^DD(63.04,"GL",353,1,353)=""
^DD(63.04,"GL",354,1,354)=""
^DD(63.04,"GL",356,1,356)=""
^DD(63.04,"GL",357,1,357)=""
^DD(63.04,"GL",358,1,358)=""
^DD(63.04,"GL",359,1,359)=""
^DD(63.04,"GL",360,1,360)=""
^DD(63.04,"GL",361,1,361)=""
^DD(63.04,"GL",363,1,363)=""
^DD(63.04,"GL",364,1,364)=""
^DD(63.04,"GL",365,1,365)=""
^DD(63.04,"GL",366,1,366)=""
^DD(63.04,"GL",367,1,367)=""
^DD(63.04,"GL",368,1,368)=""
^DD(63.04,"GL",369,1,369)=""
^DD(63.04,"GL",371,1,371)=""
^DD(63.04,"GL",372,1,372)=""
^DD(63.04,"GL",373,1,373)=""
^DD(63.04,"GL",374,1,374)=""
^DD(63.04,"GL",375,1,375)=""
^DD(63.04,"GL",376,1,376)=""
^DD(63.04,"GL",377,1,377)=""
^DD(63.04,"GL",378,1,378)=""
^DD(63.04,"GL",379,1,379)=""
^DD(63.04,"GL",380,1,380)=""
^DD(63.04,"GL",381,1,381)=""
^DD(63.04,"GL",382,1,382)=""
^DD(63.04,"GL",383,1,383)=""
^DD(63.04,"GL",384,1,384)=""
^DD(63.04,"GL",385,1,385)=""
^DD(63.04,"GL",386,1,386)=""
^DD(63.04,"GL",387,1,387)=""
^DD(63.04,"GL",388,1,388)=""
^DD(63.04,"GL",389,1,389)=""
^DD(63.04,"GL",390,1,390)=""
^DD(63.04,"GL",391,1,391)=""
^DD(63.04,"GL",392,1,392)=""
^DD(63.04,"GL",393,1,393)=""
^DD(63.04,"GL",394,1,394)=""
^DD(63.04,"GL",395,1,395)=""
^DD(63.04,"GL",396,1,396)=""
^DD(63.04,"GL",397,1,397)=""
^DD(63.04,"GL",398,1,398)=""
^DD(63.04,"GL",399,1,399)=""
^DD(63.04,"GL",400,1,400)=""
^DD(63.04,"GL",401,1,401)=""
^DD(63.04,"GL",402,1,402)=""
^DD(63.04,"GL",403,1,403)=""
^DD(63.04,"GL",404,1,404)=""
^DD(63.04,"GL",405,1,405)=""
^DD(63.04,"GL",406,1,406)=""
^DD(63.04,"GL",407,1,407)=""
^DD(63.04,"GL",408,1,408)=""
^DD(63.04,"GL",409,1,409)=""
^DD(63.04,"GL",410,1,410)=""
^DD(63.04,"GL",411,1,411)=""
^DD(63.04,"GL",412,1,412)=""
^DD(63.04,"GL",413,1,413)=""
^DD(63.04,"GL",414,1,414)=""
^DD(63.04,"GL",415,1,415)=""
^DD(63.04,"GL",416,1,416)=""
^DD(63.04,"GL",417,1,417)=""
^DD(63.04,"GL",418,1,418)=""
^DD(63.04,"GL",419,1,419)=""
^DD(63.04,"GL",420,1,420)=""
^DD(63.04,"GL",421,1,421)=""
^DD(63.04,"GL",422,1,422)=""
^DD(63.04,"GL",423,1,423)=""
^DD(63.04,"GL",424,1,424)=""
^DD(63.04,"GL",425,1,425)=""
^DD(63.04,"GL",426,1,426)=""
^DD(63.04,"GL",427,1,427)=""
^DD(63.04,"GL",428,1,428)=""
^DD(63.04,"GL",430,1,430)=""
^DD(63.04,"GL",431,1,431)=""
^DD(63.04,"GL",432,1,432)=""
^DD(63.04,"GL",433,1,433)=""
^DD(63.04,"GL",434,1,434)=""
^DD(63.04,"GL",435,1,435)=""
^DD(63.04,"GL",436,1,436)=""
^DD(63.04,"GL",437,1,437)=""
^DD(63.04,"GL",438,1,438)=""
^DD(63.04,"GL",439,1,439)=""
^DD(63.04,"GL",440,1,440)=""
^DD(63.04,"GL",441,1,441)=""
^DD(63.04,"GL",442,1,442)=""
^DD(63.04,"GL",443,1,443)=""
^DD(63.04,"GL",444,1,444)=""
^DD(63.04,"GL",445,1,445)=""
^DD(63.04,"GL",446,1,446)=""
^DD(63.04,"GL",447,1,447)=""
^DD(63.04,"GL",448,1,448)=""
^DD(63.04,"GL",449,1,449)=""
^DD(63.04,"GL",450,1,450)=""
^DD(63.04,"GL",451,1,451)=""
^DD(63.04,"GL",452,1,452)=""
^DD(63.04,"GL",453,1,453)=""
^DD(63.04,"GL",454,1,454)=""
^DD(63.04,"GL",455,1,455)=""
^DD(63.04,"GL",456,1,456)=""
^DD(63.04,"GL",457,1,457)=""
^DD(63.04,"GL",458,1,458)=""
^DD(63.04,"GL",459,1,459)=""
^DD(63.04,"GL",460,1,460)=""
^DD(63.04,"GL",461,1,461)=""
^DD(63.04,"GL",462,1,462)=""
^DD(63.04,"GL",463,1,463)=""
^DD(63.04,"GL",464,1,464)=""
^DD(63.04,"GL",465,1,465)=""
^DD(63.04,"GL",466,1,466)=""
^DD(63.04,"GL",467,1,467)=""
^DD(63.04,"GL",468,1,468)=""
^DD(63.04,"GL",469,1,469)=""
^DD(63.04,"GL",470,1,470)=""
^DD(63.04,"GL",471,1,471)=""
^DD(63.04,"GL",472,1,472)=""
^DD(63.04,"GL",473,1,473)=""
^DD(63.04,"GL",474,1,474)=""
^DD(63.04,"GL",475,1,475)=""
^DD(63.04,"GL",476,1,476)=""
^DD(63.04,"GL",477,1,477)=""
^DD(63.04,"GL",478,1,478)=""
^DD(63.04,"GL",479,1,479)=""
^DD(63.04,"GL",480,1,480)=""
^DD(63.04,"GL",481,1,481)=""
^DD(63.04,"GL",482,1,482)=""
^DD(63.04,"GL",483,1,483)=""
^DD(63.04,"GL",484,1,484)=""
^DD(63.04,"GL",485,1,485)=""
^DD(63.04,"GL",486,1,486)=""
^DD(63.04,"GL",487,1,487)=""
^DD(63.04,"GL",488,1,488)=""
^DD(63.04,"GL",489,1,489)=""
^DD(63.04,"GL",490,1,490)=""
^DD(63.04,"GL",491,1,491)=""
^DD(63.04,"GL",492,1,492)=""
^DD(63.04,"GL",493,1,493)=""
^DD(63.04,"GL",494,1,494)=""
^DD(63.04,"GL",495,1,495)=""
^DD(63.04,"GL",496,1,496)=""
^DD(63.04,"GL",497,1,497)=""
^DD(63.04,"GL",498,1,498)=""
^DD(63.04,"GL",499,1,499)=""
^DD(63.04,"GL",500,1,500)=""
^DD(63.04,"GL",501,1,501)=""
^DD(63.04,"GL",502,1,502)=""
^DD(63.04,"GL",503,1,503)=""
^DD(63.04,"GL",504,1,504)=""
^DD(63.04,"GL",505,1,505)=""
^DD(63.04,"GL",506,1,506)=""
^DD(63.04,"GL",507,1,507)=""
^DD(63.04,"GL",508,1,508)=""
^DD(63.04,"GL",509,1,509)=""
^DD(63.04,"GL",510,1,510)=""
^DD(63.04,"GL",511,1,511)=""
^DD(63.04,"GL",512,1,512)=""
^DD(63.04,"GL",513,1,513)=""
^DD(63.04,"GL",514,1,514)=""
^DD(63.04,"GL",515,1,515)=""
^DD(63.04,"GL",516,1,516)=""
^DD(63.04,"GL",517,1,517)=""
^DD(63.04,"GL",518,1,518)=""
^DD(63.04,"GL",519,1,519)=""
^DD(63.04,"GL",520,1,520)=""
^DD(63.04,"GL",521,1,521)=""
^DD(63.04,"GL",522,1,522)=""
^DD(63.04,"GL",523,1,523)=""
^DD(63.04,"GL",524,1,524)=""
^DD(63.04,"GL",525,1,525)=""
^DD(63.04,"GL",526,1,526)=""
^DD(63.04,"GL",527,1,527)=""
^DD(63.04,"GL",528,1,528)=""
^DD(63.04,"GL",529,1,529)=""
^DD(63.04,"GL",530,1,530)=""
^DD(63.04,"GL",531,1,531)=""
^DD(63.04,"GL",532,1,532)=""
^DD(63.04,"GL",533,1,533)=""
^DD(63.04,"GL",534,1,534)=""
^DD(63.04,"GL",535,1,535)=""
^DD(63.04,"GL",536,1,536)=""
^DD(63.04,"GL",537,1,537)=""
^DD(63.04,"GL",538,1,538)=""
^DD(63.04,"GL",539,1,539)=""
^DD(63.04,"GL",540,1,540)=""
^DD(63.04,"GL",541,1,541)=""
^DD(63.04,"GL",542,1,542)=""
^DD(63.04,"GL",543,1,543)=""
^DD(63.04,"GL",544,1,544)=""
^DD(63.04,"GL",545,1,545)=""
^DD(63.04,"GL",546,1,546)=""
^DD(63.04,"GL",547,1,547)=""
^DD(63.04,"GL",548,1,548)=""
^DD(63.04,"GL",549,1,549)=""
^DD(63.04,"GL",550,1,550)=""
^DD(63.04,"GL",551,1,551)=""
^DD(63.04,"GL",552,1,552)=""
^DD(63.04,"GL",553,1,553)=""
^DD(63.04,"GL",554,1,554)=""
^DD(63.04,"GL",555,1,555)=""
^DD(63.04,"GL",556,1,556)=""
^DD(63.04,"GL",557,1,557)=""
^DD(63.04,"GL",558,1,558)=""
^DD(63.04,"GL",559,1,559)=""
^DD(63.04,"GL",560,1,560)=""
^DD(63.04,"GL",561,1,561)=""
^DD(63.04,"GL",562,1,562)=""
^DD(63.04,"GL",563,1,563)=""
^DD(63.04,"GL",564,1,564)=""
^DD(63.04,"GL",565,1,565)=""
^DD(63.04,"GL",566,1,566)=""
^DD(63.04,"GL",567,1,567)=""
^DD(63.04,"GL",568,1,568)=""
^DD(63.04,"GL",569,1,569)=""
^DD(63.04,"GL",570,1,570)=""
^DD(63.04,"GL",571,1,571)=""
^DD(63.04,"GL",572,1,572)=""
^DD(63.04,"GL",573,1,573)=""
^DD(63.04,"GL",574,1,574)=""
^DD(63.04,"GL",575,1,575)=""
^DD(63.04,"GL",576,1,576)=""
^DD(63.04,"GL",577,1,577)=""
^DD(63.04,"GL",578,1,578)=""
^DD(63.04,"GL",579,1,579)=""
^DD(63.04,"GL",580,1,580)=""
^DD(63.04,"GL",581,1,581)=""
^DD(63.04,"GL",582,1,582)=""
^DD(63.04,"GL",583,1,583)=""
^DD(63.04,"GL",584,1,584)=""
^DD(63.04,"GL",585,1,585)=""
^DD(63.04,"GL",586,1,586)=""
^DD(63.04,"GL",587,1,587)=""
^DD(63.04,"GL",588,1,588)=""
^DD(63.04,"GL",589,1,589)=""
^DD(63.04,"GL",590,1,590)=""
^DD(63.04,"GL",591,1,591)=""
^DD(63.04,"GL",592,1,592)=""
^DD(63.04,"GL",593,1,593)=""
^DD(63.04,"GL",594,1,594)=""
^DD(63.04,"GL",595,1,595)=""
^DD(63.04,"GL",596,1,596)=""
^DD(63.04,"GL",597,1,597)=""
^DD(63.04,"GL",598,1,598)=""
^DD(63.04,"GL",599,1,599)=""
^DD(63.04,"GL",600,1,600)=""
^DD(63.04,"GL",601,1,601)=""
^DD(63.04,"GL",602,1,602)=""
^DD(63.04,"GL",603,1,603)=""
^DD(63.04,"GL",604,1,604)=""
^DD(63.04,"GL",605,1,605)=""
^DD(63.04,"GL",606,1,606)=""
^DD(63.04,"GL",607,1,607)=""
^DD(63.04,"GL",608,1,608)=""
^DD(63.04,"GL",609,1,609)=""
^DD(63.04,"GL",610,1,610)=""
^DD(63.04,"GL",611,1,611)=""
^DD(63.04,"GL",612,1,612)=""
^DD(63.04,"GL",613,1,613)=""
^DD(63.04,"GL",614,1,614)=""
^DD(63.04,"GL",615,1,615)=""
^DD(63.04,"GL",616,1,616)=""
^DD(63.04,"GL",617,1,617)=""
^DD(63.04,"GL",618,1,618)=""
^DD(63.04,"GL",619,1,619)=""
^DD(63.04,"GL",620,1,620)=""
^DD(63.04,"GL",621,1,621)=""
^DD(63.04,"GL",622,1,622)=""
^DD(63.04,"GL",623,1,623)=""
^DD(63.04,"GL",624,1,624)=""
^DD(63.04,"GL",625,1,625)=""
^DD(63.04,"GL",626,1,626)=""
^DD(63.04,"GL",627,1,627)=""
^DD(63.04,"GL",628,1,628)=""
^DD(63.04,"GL",629,1,629)=""
^DD(63.04,"GL",630,1,630)=""
^DD(63.04,"GL",631,1,631)=""
^DD(63.04,"GL",632,1,632)=""
^DD(63.04,"GL",633,1,633)=""
^DD(63.04,"GL",634,1,634)=""
^DD(63.04,"GL",635,1,635)=""
^DD(63.04,"GL",636,1,636)=""
^DD(63.04,"GL",637,1,637)=""
^DD(63.04,"GL",638,1,638)=""
^DD(63.04,"GL",639,1,639)=""
^DD(63.04,"GL",640,1,640)=""
^DD(63.04,"GL",641,1,641)=""
^DD(63.04,"GL",642,1,642)=""
^DD(63.04,"GL",643,1,643)=""
^DD(63.04,"GL",644,1,644)=""
^DD(63.04,"GL",645,1,645)=""
^DD(63.04,"GL",646,1,646)=""
^DD(63.04,"GL",647,1,647)=""
^DD(63.04,"GL",648,1,648)=""
^DD(63.04,"GL",649,1,649)=""
^DD(63.04,"GL",650,1,650)=""
^DD(63.04,"GL",651,1,651)=""
^DD(63.04,"GL",652,1,652)=""
^DD(63.04,"GL",653,1,653)=""
^DD(63.04,"GL",654,1,654)=""
^DD(63.04,"GL",655,1,655)=""
^DD(63.04,"GL",656,1,656)=""
^DD(63.04,"GL",657,1,657)=""
^DD(63.04,"GL",658,1,658)=""
^DD(63.04,"GL",659,1,659)=""
^DD(63.04,"GL",660,1,660)=""
^DD(63.04,"GL",661,1,661)=""
^DD(63.04,"GL",662,1,662)=""
^DD(63.04,"GL",663,1,663)=""
^DD(63.04,"GL",664,1,664)=""
^DD(63.04,"GL",665,1,665)=""
^DD(63.04,"GL",666,1,666)=""
^DD(63.04,"GL",667,1,667)=""
^DD(63.04,"GL",668,1,668)=""
^DD(63.04,"GL",669,1,669)=""
^DD(63.04,"GL",670,1,670)=""
^DD(63.04,"GL",671,1,671)=""
^DD(63.04,"GL",672,1,672)=""
^DD(63.04,"GL",673,1,673)=""
^DD(63.04,"GL",674,1,674)=""
^DD(63.04,"GL",675,1,675)=""
^DD(63.04,"GL",676,1,676)=""
^DD(63.04,"GL",677,1,677)=""
^DD(63.04,"GL",681,1,681)=""
^DD(63.04,"GL",682,1,682)=""
^DD(63.04,"GL",683,1,683)=""
^DD(63.04,"GL",684,1,684)=""
^DD(63.04,"GL",685,1,685)=""
^DD(63.04,"GL",686,1,686)=""
^DD(63.04,"GL",687,1,687)=""
^DD(63.04,"GL",688,1,688)=""
^DD(63.04,"GL",689,1,689)=""
^DD(63.04,"GL",690,1,690)=""
^DD(63.04,"GL",691,1,691)=""
^DD(63.04,"GL",692,1,692)=""
^DD(63.04,"GL",693,1,693)=""
^DD(63.04,"GL",694,1,694)=""
^DD(63.04,"GL",695,1,695)=""
^DD(63.04,"GL",696,1,696)=""
^DD(63.04,"GL",697,1,697)=""
^DD(63.04,"GL",698,1,698)=""
^DD(63.04,"GL",699,1,699)=""
^DD(63.04,"GL",700,1,700)=""
^DD(63.04,"GL",701,1,701)=""
^DD(63.04,"GL",702,1,702)=""
^DD(63.04,"GL",703,1,703)=""
^DD(63.04,"GL",704,1,704)=""
^DD(63.04,"GL",705,1,705)=""
^DD(63.04,"GL",706,1,706)=""
^DD(63.04,"GL",707,1,707)=""
^DD(63.04,"GL",708,1,708)=""
^DD(63.04,"GL",709,1,709)=""
^DD(63.04,"GL",710,1,710)=""
^DD(63.04,"GL",711,1,711)=""
^DD(63.04,"GL",712,1,712)=""
^DD(63.04,"GL",713,1,713)=""
^DD(63.04,"GL",714,1,714)=""
^DD(63.04,"GL",715,1,715)=""
^DD(63.04,"GL",716,1,716)=""
^DD(63.04,"GL",717,1,717)=""
^DD(63.04,"GL",718,1,718)=""
^DD(63.04,"GL",719,1,719)=""
^DD(63.04,"GL",720,1,720)=""
^DD(63.04,"GL",721,1,721)=""
^DD(63.04,"GL",722,1,722)=""
^DD(63.04,"GL",723,1,723)=""
^DD(63.04,"GL",724,1,724)=""
^DD(63.04,"GL",725,1,725)=""
^DD(63.04,"GL",726,1,726)=""
^DD(63.04,"GL",727,1,727)=""
^DD(63.04,"GL",728,1,728)=""
^DD(63.04,"GL",729,1,729)=""
^DD(63.04,"GL",730,1,730)=""
^DD(63.04,"GL",731,1,731)=""
^DD(63.04,"GL",732,1,732)=""
^DD(63.04,"GL",733,1,733)=""
^DD(63.04,"GL",734,1,734)=""
^DD(63.04,"GL",735,1,735)=""
^DD(63.04,"GL",736,1,736)=""
^DD(63.04,"GL",737,1,737)=""
^DD(63.04,"GL",738,1,738)=""
^DD(63.04,"GL",739,1,739)=""
^DD(63.04,"GL",740,1,740)=""
^DD(63.04,"GL",741,1,741)=""
^DD(63.04,"GL",742,1,742)=""
^DD(63.04,"GL",743,1,743)=""
^DD(63.04,"GL",744,1,744)=""
^DD(63.04,"GL",745,1,745)=""
^DD(63.04,"GL",746,1,746)=""
^DD(63.04,"GL",747,1,747)=""
^DD(63.04,"GL",748,1,748)=""
^DD(63.04,"GL",749,1,749)=""
^DD(63.04,"GL",750,1,750)=""
^DD(63.04,"GL",751,1,751)=""
^DD(63.04,"GL",752,1,752)=""
^DD(63.04,"GL",753,1,753)=""
^DD(63.04,"GL",754,1,754)=""
^DD(63.04,"GL",755,1,755)=""
^DD(63.04,"GL",756,1,756)=""
^DD(63.04,"GL",757,1,757)=""
^DD(63.04,"GL",758,1,758)=""
^DD(63.04,"GL",759,1,759)=""
^DD(63.04,"GL",760,1,760)=""
^DD(63.04,"GL",761,1,761)=""
^DD(63.04,"GL",762,1,762)=""
^DD(63.04,"GL",763,1,763)=""
^DD(63.04,"GL",764,1,764)=""
^DD(63.04,"GL",765,1,765)=""
^DD(63.04,"GL",766,1,766)=""
^DD(63.04,"GL",767,1,767)=""
^DD(63.04,"GL",768,1,768)=""
^DD(63.04,"GL",769,1,769)=""
^DD(63.04,"GL",770,1,770)=""
^DD(63.04,"GL",771,1,771)=""
^DD(63.04,"GL",772,1,772)=""
^DD(63.04,"GL",773,1,773)=""
^DD(63.04,"GL",774,1,774)=""
^DD(63.04,"GL",775,1,775)=""
^DD(63.04,"GL",776,1,776)=""
^DD(63.04,"GL",777,1,777)=""
^DD(63.04,"GL",778,1,778)=""
^DD(63.04,"GL",779,1,779)=""
^DD(63.04,"GL",780,1,780)=""
^DD(63.04,"GL",781,1,781)=""
^DD(63.04,"GL",782,1,782)=""
^DD(63.04,"GL",783,1,783)=""
^DD(63.04,"GL",784,1,784)=""
^DD(63.04,"GL",785,1,785)=""
^DD(63.04,"GL",786,1,786)=""
^DD(63.04,"GL",787,1,787)=""
^DD(63.04,"GL",788,1,788)=""
^DD(63.04,"GL",789,1,789)=""
^DD(63.04,"GL",790,1,790)=""
^DD(63.04,"GL",791,1,791)=""
^DD(63.04,"GL",792,1,792)=""
^DD(63.04,"GL",793,1,793)=""
^DD(63.04,"GL",794,1,794)=""
^DD(63.04,"GL",795,1,795)=""
^DD(63.04,"GL",796,1,796)=""
^DD(63.04,"GL",797,1,797)=""
^DD(63.04,"GL",798,1,798)=""
^DD(63.04,"GL",799,1,799)=""
^DD(63.04,"GL",800,1,800)=""
^DD(63.04,"GL",801,1,801)=""
^DD(63.04,"GL",802,1,802)=""
^DD(63.04,"GL",803,1,803)=""
^DD(63.04,"GL",804,1,804)=""
^DD(63.04,"GL",805,1,805)=""
^DD(63.04,"GL",806,1,806)=""
^DD(63.04,"GL",807,1,807)=""
^DD(63.04,"GL",808,1,808)=""
^DD(63.04,"GL",809,1,809)=""
^DD(63.04,"GL",810,1,810)=""
^DD(63.04,"GL",811,1,811)=""
^DD(63.04,"GL",812,1,812)=""
^DD(63.04,"GL",813,1,813)=""
^DD(63.04,"GL",814,1,814)=""
^DD(63.04,"GL",815,1,815)=""
^DD(63.04,"GL",816,1,816)=""
^DD(63.04,"GL",817,1,817)=""
^DD(63.04,"GL",818,1,818)=""
^DD(63.04,"GL",819,1,819)=""
^DD(63.04,"GL",820,1,820)=""
^DD(63.04,"GL",821,1,821)=""
^DD(63.04,"GL",822,1,822)=""
^DD(63.04,"GL",823,1,823)=""
^DD(63.04,"GL",824,1,824)=""
^DD(63.04,"GL",825,1,825)=""
^DD(63.04,"GL",826,1,826)=""
^DD(63.04,"GL",827,1,827)=""
^DD(63.04,"GL",828,1,828)=""
^DD(63.04,"GL",829,1,829)=""
^DD(63.04,"GL",830,1,830)=""
^DD(63.04,"GL",831,1,831)=""
^DD(63.04,"GL",832,1,832)=""
^DD(63.04,"GL",833,1,833)=""
^DD(63.04,"GL",834,1,834)=""
^DD(63.04,"GL",835,1,835)=""
^DD(63.04,"GL",836,1,836)=""
^DD(63.04,"GL",837,1,837)=""
^DD(63.04,"GL",838,1,838)=""
^DD(63.04,"GL",839,1,839)=""
^DD(63.04,"GL",840,1,840)=""
^DD(63.04,"GL",841,1,841)=""
^DD(63.04,"GL",842,1,842)=""
^DD(63.04,"GL",843,1,843)=""
^DD(63.04,"GL",844,1,844)=""
^DD(63.04,"GL",845,1,845)=""
^DD(63.04,"GL",846,1,846)=""
^DD(63.04,"GL",847,1,847)=""
^DD(63.04,"GL",848,1,848)=""
^DD(63.04,"GL",849,1,849)=""
^DD(63.04,"GL",850,1,850)=""
^DD(63.04,"GL",851,1,851)=""
^DD(63.04,"GL",852,1,852)=""
^DD(63.04,"GL",853,1,853)=""
^DD(63.04,"GL",854,1,854)=""
^DD(63.04,"GL",855,1,855)=""
^DD(63.04,"GL",856,1,856)=""
^DD(63.04,"GL",857,1,857)=""
^DD(63.04,"GL",858,1,858)=""
^DD(63.04,"GL",859,1,859)=""
^DD(63.04,"GL",860,1,860)=""
^DD(63.04,"GL",861,1,861)=""
^DD(63.04,"GL",862,1,862)=""
^DD(63.04,"GL","NPC",1,.12)=""
^DD(63.04,"GL","ORU",1,.31)=""
^DD(63.04,"GL","ORU",2,.32)=""
^DD(63.04,"GL","ORU",3,.33)=""
^DD(63.04,"GL","ORU",4,.34)=""
^DD(63.04,"GL","ORU",5,.342)=""
^DD(63.04,"GL","ORUT",0,.35)=""
^DD(63.04,"RQ",.03)=""
^DD(63.04,"RQ",.04)=""
^DD(63.04,"RQ",.05)=""
^DD(63.04,"SB",63.041,.99)=""
^DD(63.04,"SB",63.07,.35)=""
^DD(63.041,0)="COMMENT SUB-FIELD^NL^1^2"
^DD(63.041,0,"DT")="2921009"
^DD(63.041,0,"IX","AC",63.041,.01)=""
^DD(63.041,0,"NM","COMMENT")=""
^DD(63.041,0,"UP")="63.04"
^DD(63.041,.01,0)="COMMENT^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$S($D(^LR(DA(2),""CH"",DA(1),1,DA,0)):$S(^(0)[""reported incorrectly as""!(^(0)[""``"")!(^(0)[""Changed"")&'$D(^XUSEC(""LRSUPER"",DUZ)):1,1:0),1:0) X I $D(X) S Q9=""1,68,KL"" D COM^LRNUM"
^DD(63.041,.01,1,0)="^.1^^-1"
^DD(63.041,.01,1,1,0)="63.041^AC^MUMPS"
^DD(63.041,.01,1,1,1)="Q"
^DD(63.041,.01,1,1,2)="D AC1^LRXREF"
^DD(63.041,.01,1,1,"%D",0)="^^7^7^2970616^"
^DD(63.041,.01,1,1,"%D",1,0)="This MUMPS cross reference provides an audit trail of comments that are"
^DD(63.041,.01,1,1,"%D",2,0)="deleted after test verification.  This cross reference stores the date and"
^DD(63.041,.01,1,1,"%D",3,0)="time of test verification, the verifying person and the deleted comment."
^DD(63.041,.01,1,1,"%D",4,0)="The format for the cross reference nodes created is shown below."
^DD(63.041,.01,1,1,"%D",5,0)=" "
^DD(63.041,.01,1,1,"%D",6,0)="  ^LR(LRDFN,""CH"",Inverse Date/Time,1,""AC"",DUZ,Deletion time in $H format)"
^DD(63.041,.01,1,1,"%D",7,0)="                  = DATE REPORT COMPLETED^VERIFY PERSON^COMMENT"
^DD(63.041,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.041,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KL""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.041,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.041,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>65 %S=%S_%Z_"" "" I %L>65 W ""  too long"",! Q"
^DD(63.041,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""CHOQU""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.041,.01,21,0)="^^2^2^2911202^"
^DD(63.041,.01,21,1,0)="This is a comment reported with CHEM, HEM, TOX,"
^DD(63.041,.01,21,2,0)="etc., data."
^DD(63.041,.01,"AUDIT")=""
^DD(63.041,.01,"DEL",1,0)="I $P(^LR(DA(2),""CH"",DA(1),0),U,3),'$D(^XUSEC(""LRSUPER"",DUZ)),$G(^LR(DA(2),""CH"",DA(1),1,DA,0))[""reported incorrectly as"""
^DD(63.041,.01,"DEL",2,0)="I $P(^LR(DA(2),""CH"",DA(1),0),U,3),'$D(^XUSEC(""LRSUPER"",DUZ)),$G(^LR(DA(2),""CH"",DA(1),1,DA,0))[""``""!(^(0)[""Changed"")"
^DD(63.041,.01,"DT")="2921009"
^DD(63.041,1,0)="PERSON^P200'^VA(200,^0;2^Q"
^DD(63.041,1,9)="^"
^DD(63.041,1,21,0)="^^1^1^2940510^"
^DD(63.041,1,21,1,0)="Person making comment"
^DD(63.041,1,"DT")="2921009"
^DD(63.041,"B","COMMENT",.01)=""
^DD(63.041,"B","PERSON",1)=""
^DD(63.041,"GL",0,1,.01)=""
^DD(63.041,"GL",0,2,1)=""
^DD(63.041,"IX",.01)=""
^DD(63.05,0)="MICROBIOLOGY SUB-FIELD^NL^38^62"
^DD(63.05,0,"DT")="2940817"
^DD(63.05,0,"IX","AC",63.39,.01)=""
^DD(63.05,0,"IX","AD",63.37,.01)=""
^DD(63.05,0,"IX","AE",63.34,.01)=""
^DD(63.05,0,"IX","AF",63.43,.01)=""
^DD(63.05,0,"NM","MICROBIOLOGY")=""
^DD(63.05,0,"UP")="63"
^DD(63.05,.01,0)="DATE/TIME SPECIMEN TAKEN^RDX^^0;1^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X K %DT(0)"
^DD(63.05,.01,1,0)="^.1^^0"
^DD(63.05,.01,3)="ENTER DATE/TIME SPECIMEN TAKEN or ACCESSION #"
^DD(63.05,.01,21,0)="^^2^2^2911202^"
^DD(63.05,.01,21,1,0)="This is the date/time of collection of the microbiology"
^DD(63.05,.01,21,2,0)="specimen."
^DD(63.05,.01,"DT")="2840322"
^DD(63.05,.02,0)="DATE/TIME OBTAINED INEXACT^S^1:YES;0:NO;^0;2^Q"
^DD(63.05,.02,21,0)="^^2^2^2911202^"
^DD(63.05,.02,21,1,0)="YES indicates the date/time of collection is"
^DD(63.05,.02,21,2,0)="inexact."
^DD(63.05,.02,"DT")="2870714"
^DD(63.05,.03,0)="DATE REPORT COMPLETED^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.05,.03,21,0)="^^1^1^2911202^"
^DD(63.05,.03,21,1,0)="This is the date the report was completed."
^DD(63.05,.03,"DT")="2840219"
^DD(63.05,.04,0)="VERIFY PERSON^P200'^VA(200,^0;4^Q"
^DD(63.05,.04,3)=""
^DD(63.05,.04,21,0)="^^1^1^2911202^"
^DD(63.05,.04,21,1,0)="This is the person verifying the report."
^DD(63.05,.04,"DT")="2821016"
^DD(63.05,.05,0)="SITE/SPECIMEN^RP61'^LAB(61,^0;5^Q"
^DD(63.05,.05,21,0)="^^1^1^2911202^"
^DD(63.05,.05,21,1,0)="This is the site/specimen collected."
^DD(63.05,.055,0)="COLLECTION SAMPLE^P62'^LAB(62,^0;11^Q"
^DD(63.05,.055,21,0)="^^1^1^2911202^"
^DD(63.05,.055,21,1,0)="This is the collection sample of the specimen."
^DD(63.05,.055,"DT")="2840322"
^DD(63.05,.06,0)="MICROBIOLOGY ACCESSION^RF^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(63.05,.06,1,0)="^.1^^0"
^DD(63.05,.06,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(63.05,.06,21,0)="^^1^1^2911202^"
^DD(63.05,.06,21,1,0)="This is the microbiology accession."
^DD(63.05,.06,"DT")="2841002"
^DD(63.05,.07,0)="PHYSICIAN^P200'^VA(200,^0;7^Q"
^DD(63.05,.07,21,0)="^^1^1^2911202^"
^DD(63.05,.07,21,1,0)="This is the requesting physician."
^DD(63.05,.08,0)="WARD^FX^^0;8^K:$L(X)>30 X I $D(X) S LRLLOC=X,DIC(0)=""EQM"",DIC=44 D ^DIC S X=$P(Y,U,2) X:Y<1 ^DD(63.05,.08,9.2) Q:'$D(X)  S:X']"""" X=""UNKNOWN"" S:$D(LRDFN) ^LR(+LRDFN,.1)=X"
^DD(63.05,.08,3)="ANSWER MUST BE 2-19 CHARACTERS IN LENGTH"
^DD(63.05,.08,4)="S X=""?"",DIC(0)=""Q"",DIC=44 D ^DIC"
^DD(63.05,.08,9.2)="K X R !?3,""NON-STANDARD LOCATION!, OK? N//"",YN:DTIME S:YN[""Y"" X=LRLLOC"
^DD(63.05,.08,21,0)="^^1^1^2911202^"
^DD(63.05,.08,21,1,0)="This is the requesting location."
^DD(63.05,.08,"DT")="2830315"
^DD(63.05,.09,0)="AMENDED REPORT^S^1:YES;^0;9^Q"
^DD(63.05,.09,21,0)="^^3^3^2871007^^"
^DD(63.05,.09,21,1,0)="YES will indicate that this report has been edited after the report had been"
^DD(63.05,.09,21,2,0)="verified by a supervisor.  This field is set directly by the result entry"
^DD(63.05,.09,21,3,0)="routine when a previously verified report is edited."
^DD(63.05,.09,"DT")="2870824"
^DD(63.05,.1,0)="DATE/TIME RECEIVED^RD^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.05,.1,21,0)="^^1^1^2911202^"
^DD(63.05,.1,21,1,0)="This is the date/time the specimen was received."
^DD(63.05,.111,0)="REQUESTING LOC/DIV^V^^0;13^Q"
^DD(63.05,.111,3)="Enter the hospital location or institution ordering this test."
^DD(63.05,.111,21,0)="^.001^1^1^3050407^^^"
^DD(63.05,.111,21,1,0)="Enter the hospital location or institution ordering this test."
^DD(63.05,.111,"DT")="3040804"
^DD(63.05,.111,"V",0)="^.12P^2^2"
^DD(63.05,.111,"V",1,0)="44^Enter Hospital Location^1^SC(^n^n"
^DD(63.05,.111,"V",2,0)="4^Select appropriate Institution^2^DIC(4,^n^n"
^DD(63.05,.111,"V","B",4,2)=""
^DD(63.05,.111,"V","B",44,1)=""
^DD(63.05,.111,"V","M","Enter Hospital Location",1)=""
^DD(63.05,.111,"V","M","Select appropriate Institution",2)=""
^DD(63.05,.111,"V","O",1,1)=""
^DD(63.05,.111,"V","O",2,2)=""
^DD(63.05,.111,"V","P","DIC(4,",2)=""
^DD(63.05,.111,"V","P","SC(",1)=""
^DD(63.05,.112,0)="ACCESSIONING INSTITUTION^P4'^DIC(4,^0;14^Q"
^DD(63.05,.112,21,0)="^^3^3^3040804^"
^DD(63.05,.112,21,1,0)="This field contains the pointer to the institution where the specimen was "
^DD(63.05,.112,21,2,0)="accessioned. This field can be blank if LEDI or POC specimen is "
^DD(63.05,.112,21,3,0)="accessioned. The field will be set if an actual user accepts the specimen."
^DD(63.05,.112,"DT")="3040804"
^DD(63.05,.99,0)="COMMENT ON SPECIMEN^FX^^99;1^S Q9=""2,68,KMTVP"" D COM^LRNUM"
^DD(63.05,.99,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(63.05,.99,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMTVP""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.05,.99,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.05,.99,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.05,.99,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""A""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.05,.99,21,0)="^^1^1^2911202^"
^DD(63.05,.99,21,1,0)="This is a comment on the specimen."
^DD(63.05,.99,"DT")="2870503"
^DD(63.05,1,0)="PRELIMINARY BACT COMMENT^63.06A^^19;0"
^DD(63.05,1,21,0)="^^1^1^2911204^^"
^DD(63.05,1,21,1,0)="These are preliminary bacteriology comments."
^DD(63.05,1.5,0)="BACTERIOLOGY TEST(S)^63.061A^^26;0"
^DD(63.05,1.5,"DT")="2911202"
^DD(63.05,11,0)="BACT RPT DATE APPROVED^DX^^1;1^D RPT^LRMIUT1"
^DD(63.05,11,21,0)="^^2^2^2911202^"
^DD(63.05,11,21,1,0)="This is the approval date of bacteriology data"
^DD(63.05,11,21,2,0)="for this specimen.k"
^DD(63.05,11,"DT")="2870208"
^DD(63.05,11.5,0)="BACT RPT STATUS^RS^F:FINAL REPORT;P:PRELIMINARY REPORT;^1;2^Q"
^DD(63.05,11.5,21,0)="^^1^1^2911202^"
^DD(63.05,11.5,21,1,0)="This is the report status of the bacteriology data."
^DD(63.05,11.51,0)="STERILITY CONTROL^S^N:NEGATIVE;P:POSITIVE;^1;7^Q"
^DD(63.05,11.51,21,0)="^^1^1^2911202^"
^DD(63.05,11.51,21,1,0)="This indicates the sterility control as positive or negative."
^DD(63.05,11.51,"DT")="2840215"
^DD(63.05,11.52,0)="STERILITY RESULTS^63.292SA^^31;0"
^DD(63.05,11.52,21,0)="^^1^1^2911202^"
^DD(63.05,11.52,21,1,0)="These are results of microbiology sterility testing."
^DD(63.05,11.55,0)="BACT PERSON^P200'^VA(200,^1;3^Q"
^DD(63.05,11.55,21,0)="^^1^1^2911202^"
^DD(63.05,11.55,21,1,0)="This is the person entering the bacteriology data."
^DD(63.05,11.55,"DT")="2831112"
^DD(63.05,11.56,0)="MIC PERSON^P200'^VA(200,^1;4^Q"
^DD(63.05,11.56,3)=""
^DD(63.05,11.56,21,0)="^^2^2^2911202^"
^DD(63.05,11.56,21,1,0)="This is the person entering the minimum inhibitory"
^DD(63.05,11.56,21,2,0)="concentration data."
^DD(63.05,11.57,0)="URINE SCREEN^S^P:POSITIVE;N:NEGATIVE;^1;6^Q"
^DD(63.05,11.57,21,0)="^^2^2^2911202^"
^DD(63.05,11.57,21,1,0)="This indicates the urine screen is positive or"
^DD(63.05,11.57,21,2,0)="negative."
^DD(63.05,11.57,"DT")="2840107"
^DD(63.05,11.58,0)="SPUTUM SCREEN^FX^^1;5^S Q9=""1,68,KY"" D COM^LRNUM"
^DD(63.05,11.58,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.05,11.58,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KY""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.05,11.58,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.05,11.58,9.2) S %L=$L(%S)+$L(%Z) S:%L'>60 %S=%S_%Z_"" "" I %L>60 W ""  too long"",! Q"
^DD(63.05,11.58,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""Y""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.05,11.58,21,0)="^^1^1^2911203^"
^DD(63.05,11.58,21,1,0)="These are the results of a sputum screen."
^DD(63.05,11.58,"DT")="2870503"
^DD(63.05,11.6,0)="GRAM STAIN^63.29A^^2;0"
^DD(63.05,11.6,21,0)="^^1^1^2911203^^"
^DD(63.05,11.6,21,1,0)="These are gram stain results."
^DD(63.05,11.7,0)="BACTERIOLOGY SMEAR/PREP^63.291A^^25;0"
^DD(63.05,11.7,21,0)="^^1^1^2911203^"
^DD(63.05,11.7,21,1,0)="These are results of a smear/prep in bacteriology."
^DD(63.05,12,0)="ORGANISM^63.3PA^^3;0"
^DD(63.05,12,12)="DISPLAY ONLY BACTERIA, FUNGI, OR MYCOBACTERIA"
^DD(63.05,12,12.1)="S DIC(""S"")=""I """"PVRBFM""""[$P(^(0),U,5)"""
^DD(63.05,12,21,0)="^^1^1^2911203^^^"
^DD(63.05,12,21,1,0)="These are the organisms reported on this specimen."
^DD(63.05,12,"DT")="2911203"
^DD(63.05,13,0)="BACT RPT REMARK^63.33A^^4;0"
^DD(63.05,13,21,0)="^^1^1^2911203^"
^DD(63.05,13,21,1,0)="These are report remarks on bacteriology data."
^DD(63.05,14,0)="PARASITE RPT DATE APPROVED^DX^^5;1^D RPT^LRMIUT1"
^DD(63.05,14,21,0)="^^1^1^2911203^"
^DD(63.05,14,21,1,0)="This is the approval date of the parasitology data."
^DD(63.05,14,"DT")="2870208"
^DD(63.05,15,0)="PARASITE RPT STATUS^RS^F:FINAL REPORT;P:PRELIMINARY REPORT;^5;2^Q"
^DD(63.05,15,21,0)="^^1^1^2911203^"
^DD(63.05,15,21,1,0)="This is the approval date of the parasitology data."
^DD(63.05,15.5,0)="PARASITE ENTERING PERSON^P200'^VA(200,^5;3^Q"
^DD(63.05,15.5,21,0)="^^1^1^2911203^"
^DD(63.05,15.5,21,1,0)="This is the person entering the parasitology data."
^DD(63.05,15.51,0)="PARASITOLOGY SMEAR/PREP^63.341A^^24;0"
^DD(63.05,15.51,21,0)="^^1^1^2911203^"
^DD(63.05,15.51,21,1,0)="These are the results of a smear/prep in parasitology."
^DD(63.05,16,0)="PARASITE^63.34PA^^6;0"
^DD(63.05,16,12)="ONLY ALLOW PARASITES TO BE SELECTED"
^DD(63.05,16,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""P"""""""
^DD(63.05,16,21,0)="^^1^1^2911204^^"
^DD(63.05,16,21,1,0)="These are the parasites reported on this specimen."
^DD(63.05,16.4,0)="PARASITE TEST(S)^63.361A^^27;0"
^DD(63.05,16.5,0)="PRELIMINARY PARASITE COMMENT^63.1A^^21;0"
^DD(63.05,16.5,21,0)="^^1^1^2911203^"
^DD(63.05,16.5,21,1,0)="These are preliminary parasitology comments."
^DD(63.05,17,0)="PARASITE RPT REMARK^63.36A^^7;0"
^DD(63.05,17,21,0)="^^1^1^2911203^"
^DD(63.05,17,21,1,0)="These are report remarks on the parasitology data."
^DD(63.05,18,0)="MYCOLOGY RPT DATE APPROVED^DX^^8;1^D RPT^LRMIUT1"
^DD(63.05,18,21,0)="^^2^2^2911203^"
^DD(63.05,18,21,1,0)="This is the date of approval of the mycology"
^DD(63.05,18,21,2,0)="report."
^DD(63.05,18,"DT")="2870208"
^DD(63.05,19,0)="MYCOLOGY RPT STATUS^RS^F:FINAL REPORT;P:PRELIMINARY REPORT;^8;2^Q"
^DD(63.05,19,21,0)="^^1^1^2911203^"
^DD(63.05,19,21,1,0)="This is the status of the mycology report."
^DD(63.05,19.5,0)="MYC PERSON^P200'^VA(200,^8;3^Q"
^DD(63.05,19.5,3)=""
^DD(63.05,19.5,21,0)="^^1^1^2911203^"
^DD(63.05,19.5,21,1,0)="This is the person entering the mycology data."
^DD(63.05,19.6,0)="MYCOLOGY SMEAR/PREP^63.371A^^15;0"
^DD(63.05,19.6,21,0)="^^1^1^2911203^"
^DD(63.05,19.6,21,1,0)="These are the results of the smear/prep in mycology."
^DD(63.05,20,0)="FUNGUS/YEAST^63.37PA^^9;0"
^DD(63.05,20,12)="ALLOW ONLY FUNGI TO BE EDITED"
^DD(63.05,20,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""F"""""""
^DD(63.05,20,21,0)="^^1^1^2911203^"
^DD(63.05,20,21,1,0)="These are the fungus/yeast reported on this specimen."
^DD(63.05,20.4,0)="MYCOLOGY TEST(S)^63.111A^^28;0"
^DD(63.05,20.5,0)="PRELIMINARY MYCOLOGY COMMENT^63.11A^^22;0"
^DD(63.05,20.5,21,0)="^^1^1^2911203^"
^DD(63.05,20.5,21,1,0)="These are preliminary mycology comments."
^DD(63.05,21,0)="MYCOLOGY RPT REMARK^63.38A^^10;0"
^DD(63.05,21,21,0)="^^1^1^2911203^"
^DD(63.05,21,21,1,0)="These are report remarks on the mycology data."
^DD(63.05,22,0)="TB RPT DATE APPROVED^DX^^11;1^D RPT^LRMIUT1"
^DD(63.05,22,21,0)="^^2^2^2911203^"
^DD(63.05,22,21,1,0)="This is the approval date of mycobacterium data "
^DD(63.05,22,21,2,0)="for this specimen."
^DD(63.05,22,"DT")="2870208"
^DD(63.05,23,0)="TB RPT STATUS^RS^F:FINAL REPORT;P:PRELIMINARY REPORT;^11;2^Q"
^DD(63.05,23,21,0)="^^1^1^2911203^"
^DD(63.05,23,21,1,0)="This is the status of the report."
^DD(63.05,24,0)="ACID FAST STAIN^S^DP:DIRECT POSITIVE;DN:DIRECT NEGATIVE;CP:CONCENTRATE POSITIVE;CN:CONCENTRATE NEGATIVE;^11;3^Q"
^DD(63.05,24,3)=""
^DD(63.05,24,4)=""
^DD(63.05,24,21,0)="^^1^1^2911203^"
^DD(63.05,24,21,1,0)="This is the acid fast stain result."
^DD(63.05,24,"DT")="2841022"
^DD(63.05,25,0)="QUANTITY^FX^^11;4^S Q9=""1,68,KMTVP"" D COM^LRNUM"
^DD(63.05,25,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.05,25,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMTVP""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.05,25,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.05,25,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.05,25,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""T""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.05,25,21,0)="^^1^1^2911203^"
^DD(63.05,25,21,1,0)="This is the quantity of the mycobacterium present."
^DD(63.05,25,"DT")="2870503"
^DD(63.05,25.5,0)="TB ENTERING PERSON^P200'^VA(200,^11;5^Q"
^DD(63.05,25.5,21,0)="^^1^1^2911203^"
^DD(63.05,25.5,21,1,0)="This is the person entering the mycobacterium data."
^DD(63.05,26,0)="MYCOBACTERIUM^63.39PA^^12;0"
^DD(63.05,26,12)="ALLOW ONLY MYCOBACTERIUM TO BE EDITED"
^DD(63.05,26,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""M"""""""
^DD(63.05,26,21,0)="2^^2^2^2911204^^"
^DD(63.05,26,21,1,0)="These are the mycobacterium identified with this"
^DD(63.05,26,21,2,0)="specimen."
^DD(63.05,26.4,0)="TB TEST(S)^63.181A^^29;0"
^DD(63.05,26.5,0)="PRELIMINARY TB COMMENT^63.18A^^23;0"
^DD(63.05,26.5,21,0)="^^1^1^2911204^^"
^DD(63.05,26.5,21,1,0)="These are preliminary TB comments."
^DD(63.05,27,0)="TB RPT REMARK^63.41A^^13;0"
^DD(63.05,27,21,0)="^^1^1^2911204^^"
^DD(63.05,27,21,1,0)="These are report remarks on the mycobacterium data."
^DD(63.05,28,0)="ANTIBIOTIC LEVEL^63.42A^^14;0"
^DD(63.05,28,21,0)="^^1^1^2911204^^"
^DD(63.05,28,21,1,0)="These are the results of the antibiotic levels."
^DD(63.05,33,0)="VIROLOGY RPT DATE^DX^^16;1^D RPT^LRMIUT1"
^DD(63.05,33,21,0)="^^1^1^2911204^^"
^DD(63.05,33,21,1,0)="This is the approval date of virology data for this specimen."
^DD(63.05,33,"DT")="2870208"
^DD(63.05,34,0)="VIROLOGY REPORT STATUS^S^P:PRELIMINARY;F:FINAL;^16;2^Q"
^DD(63.05,34,21,0)="^^1^1^2911203^"
^DD(63.05,34,21,1,0)="This is the report status of virology."
^DD(63.05,34,"DT")="2831104"
^DD(63.05,35,0)="VIROLOGY ENTERING PERSON^RP200'^VA(200,^16;3^Q"
^DD(63.05,35,21,0)="^^1^1^2911203^"
^DD(63.05,35,21,1,0)="This is the person entering the virology data."
^DD(63.05,35,"DT")="2831104"
^DD(63.05,36,0)="VIRUS^63.43PA^^17;0"
^DD(63.05,36,12)="ALLOW ONLY VIRUS OR RICKETTSIAE"
^DD(63.05,36,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""V""""!($P(^(0),U,5)=""""R"""")"""
^DD(63.05,36,21,0)="^^1^1^2911204^^"
^DD(63.05,36,21,1,0)="These are the viruses reported on this specimen."
^DD(63.05,36.4,0)="VIROLOGY TESTS^63.432A^^30;0"
^DD(63.05,36.5,0)="PRELIMINARY VIROLOGY COMMENT^63.431A^^20;0"
^DD(63.05,36.5,21,0)="^^1^1^2911204^^"
^DD(63.05,36.5,21,1,0)="These are preliminary virology comments."
^DD(63.05,37,0)="VIROLOGY RPT REMARK^63.44A^^18;0"
^DD(63.05,37,21,0)="^^1^1^2911204^^"
^DD(63.05,37,21,1,0)="These are report remarks for virology."
^DD(63.05,38,0)="NEW PERSON CONVERSION^S^1:YES;^NPC;1^Q"
^DD(63.05,38,21,0)="^^3^3^2940603^^"
^DD(63.05,38,21,1,0)="This field is to indicate that this entry has all of the pointers"
^DD(63.05,38,21,2,0)="converted to the NEW PERSON file. The use of the NEW PERSON file."
^DD(63.05,38,21,3,0)="began with Version 5.2."
^DD(63.05,38,21,4,0)=" "
^DD(63.05,38,21,5,0)="The number 2 in this field indicates that the pointers have been converted"
^DD(63.05,38,21,6,0)="to NEW PERSON file and normal range information is also being stored with"
^DD(63.05,38,21,7,0)="the data."
^DD(63.05,38,23,0)="^^2^2^2940603^^"
^DD(63.05,38,23,1,0)="This field will be used to determine if archive data should be"
^DD(63.05,38,23,2,0)="repointed to VA(200 before being restored the ^LR( global."
^DD(63.05,38,"DT")="2920609"
^DD(63.05,"B","ACCESSIONING INSTITUTION",.112)=""
^DD(63.05,"B","ACID FAST STAIN",24)=""
^DD(63.05,"B","AMENDED REPORT",.09)=""
^DD(63.05,"B","ANTIBIOTIC LEVEL",28)=""
^DD(63.05,"B","BACT PERSON",11.55)=""
^DD(63.05,"B","BACT RPT DATE APPROVED",11)=""
^DD(63.05,"B","BACT RPT REMARK",13)=""
^DD(63.05,"B","BACT RPT STATUS",11.5)=""
^DD(63.05,"B","BACTERIOLOGY SMEAR/PREP",11.7)=""
^DD(63.05,"B","BACTERIOLOGY TEST(S)",1.5)=""
^DD(63.05,"B","COLLECTION SAMPLE",.055)=""
^DD(63.05,"B","COMMENT ON SPECIMEN",.99)=""
^DD(63.05,"B","DATE REPORT COMPLETED",.03)=""
^DD(63.05,"B","DATE/TIME OBTAINED INEXACT",.02)=""
^DD(63.05,"B","DATE/TIME RECEIVED",.1)=""
^DD(63.05,"B","DATE/TIME SPECIMEN TAKEN",.01)=""
^DD(63.05,"B","FUNGUS/YEAST",20)=""
^DD(63.05,"B","GRAM STAIN",11.6)=""
^DD(63.05,"B","MIC PERSON",11.56)=""
^DD(63.05,"B","MICROBIOLOGY ACCESSION",.06)=""
^DD(63.05,"B","MYC PERSON",19.5)=""
^DD(63.05,"B","MYCOBACTERIUM",26)=""
^DD(63.05,"B","MYCOLOGY RPT DATE APPROVED",18)=""
^DD(63.05,"B","MYCOLOGY RPT REMARK",21)=""
^DD(63.05,"B","MYCOLOGY RPT STATUS",19)=""
^DD(63.05,"B","MYCOLOGY SMEAR/PREP",19.6)=""
^DD(63.05,"B","MYCOLOGY TEST(S)",20.4)=""
^DD(63.05,"B","NEW PERSON CONVERSION",38)=""
^DD(63.05,"B","ORGANISM",12)=""
^DD(63.05,"B","PARASITE",16)=""
^DD(63.05,"B","PARASITE ENTERING PERSON",15.5)=""
^DD(63.05,"B","PARASITE RPT DATE APPROVED",14)=""
^DD(63.05,"B","PARASITE RPT REMARK",17)=""
^DD(63.05,"B","PARASITE RPT STATUS",15)=""
^DD(63.05,"B","PARASITE TEST(S)",16.4)=""
^DD(63.05,"B","PARASITOLOGY SMEAR/PREP",15.51)=""
^DD(63.05,"B","PHYSICIAN",.07)=""
^DD(63.05,"B","PRELIMINARY BACT COMMENT",1)=""
^DD(63.05,"B","PRELIMINARY MYCOLOGY COMMENT",20.5)=""
^DD(63.05,"B","PRELIMINARY PARASITE COMMENT",16.5)=""
^DD(63.05,"B","PRELIMINARY TB COMMENT",26.5)=""
^DD(63.05,"B","PRELIMINARY VIROLOGY COMMENT",36.5)=""
^DD(63.05,"B","QUANTITY",25)=""
^DD(63.05,"B","REQUESTING LOC/DIV",.111)=""
^DD(63.05,"B","SITE/SPECIMEN",.05)=""
^DD(63.05,"B","SPUTUM SCREEN",11.58)=""
^DD(63.05,"B","STERILITY CONTROL",11.51)=""
^DD(63.05,"B","STERILITY RESULTS",11.52)=""
^DD(63.05,"B","TB ENTERING PERSON",25.5)=""
^DD(63.05,"B","TB RPT DATE APPROVED",22)=""
^DD(63.05,"B","TB RPT REMARK",27)=""
^DD(63.05,"B","TB RPT STATUS",23)=""
^DD(63.05,"B","TB TEST(S)",26.4)=""
^DD(63.05,"B","URINE SCREEN",11.57)=""
^DD(63.05,"B","VERIFY PERSON",.04)=""
^DD(63.05,"B","VIROLOGY ENTERING PERSON",35)=""
^DD(63.05,"B","VIROLOGY REPORT STATUS",34)=""
^DD(63.05,"B","VIROLOGY RPT DATE",33)=""
^DD(63.05,"B","VIROLOGY RPT REMARK",37)=""
^DD(63.05,"B","VIROLOGY TESTS",36.4)=""
^DD(63.05,"B","VIRUS",36)=""
^DD(63.05,"B","WARD",.08)=""
^DD(63.05,"GL",0,1,.01)=""
^DD(63.05,"GL",0,2,.02)=""
^DD(63.05,"GL",0,3,.03)=""
^DD(63.05,"GL",0,4,.04)=""
^DD(63.05,"GL",0,5,.05)=""
^DD(63.05,"GL",0,6,.06)=""
^DD(63.05,"GL",0,7,.07)=""
^DD(63.05,"GL",0,8,.08)=""
^DD(63.05,"GL",0,9,.09)=""
^DD(63.05,"GL",0,10,.1)=""
^DD(63.05,"GL",0,11,.055)=""
^DD(63.05,"GL",0,13,.111)=""
^DD(63.05,"GL",0,14,.112)=""
^DD(63.05,"GL",1,1,11)=""
^DD(63.05,"GL",1,2,11.5)=""
^DD(63.05,"GL",1,3,11.55)=""
^DD(63.05,"GL",1,4,11.56)=""
^DD(63.05,"GL",1,5,11.58)=""
^DD(63.05,"GL",1,6,11.57)=""
^DD(63.05,"GL",1,7,11.51)=""
^DD(63.05,"GL",2,0,11.6)=""
^DD(63.05,"GL",3,0,12)=""
^DD(63.05,"GL",4,0,13)=""
^DD(63.05,"GL",5,1,14)=""
^DD(63.05,"GL",5,2,15)=""
^DD(63.05,"GL",5,3,15.5)=""
^DD(63.05,"GL",6,0,16)=""
^DD(63.05,"GL",7,0,17)=""
^DD(63.05,"GL",8,1,18)=""
^DD(63.05,"GL",8,2,19)=""
^DD(63.05,"GL",8,3,19.5)=""
^DD(63.05,"GL",9,0,20)=""
^DD(63.05,"GL",10,0,21)=""
^DD(63.05,"GL",11,1,22)=""
^DD(63.05,"GL",11,2,23)=""
^DD(63.05,"GL",11,3,24)=""
^DD(63.05,"GL",11,4,25)=""
^DD(63.05,"GL",11,5,25.5)=""
^DD(63.05,"GL",12,0,26)=""
^DD(63.05,"GL",13,0,27)=""
^DD(63.05,"GL",14,0,28)=""
^DD(63.05,"GL",15,0,19.6)=""
^DD(63.05,"GL",16,1,33)=""
^DD(63.05,"GL",16,2,34)=""
^DD(63.05,"GL",16,3,35)=""
^DD(63.05,"GL",17,0,36)=""
^DD(63.05,"GL",18,0,37)=""
^DD(63.05,"GL",19,0,1)=""
^DD(63.05,"GL",20,0,36.5)=""
^DD(63.05,"GL",21,0,16.5)=""
^DD(63.05,"GL",22,0,20.5)=""
^DD(63.05,"GL",23,0,26.5)=""
^DD(63.05,"GL",24,0,15.51)=""
^DD(63.05,"GL",25,0,11.7)=""
^DD(63.05,"GL",26,0,1.5)=""
^DD(63.05,"GL",27,0,16.4)=""
^DD(63.05,"GL",28,0,20.4)=""
^DD(63.05,"GL",29,0,26.4)=""
^DD(63.05,"GL",30,0,36.4)=""
^DD(63.05,"GL",31,0,11.52)=""
^DD(63.05,"GL",99,1,.99)=""
^DD(63.05,"GL","NPC",1,38)=""
^DD(63.05,"RQ",.01)=""
^DD(63.05,"RQ",.03)=""
^DD(63.05,"RQ",.05)=""
^DD(63.05,"RQ",.06)=""
^DD(63.05,"RQ",.1)=""
^DD(63.05,"RQ",11.5)=""
^DD(63.05,"RQ",15)=""
^DD(63.05,"RQ",19)=""
^DD(63.05,"RQ",23)=""
^DD(63.05,"RQ",35)=""
^DD(63.05,"SB",63.06,1)=""
^DD(63.05,"SB",63.061,1.5)=""
^DD(63.05,"SB",63.1,16.5)=""
^DD(63.05,"SB",63.11,20.5)=""
^DD(63.05,"SB",63.111,20.4)=""
^DD(63.05,"SB",63.18,26.5)=""
^DD(63.05,"SB",63.181,26.4)=""
^DD(63.05,"SB",63.29,11.6)=""
^DD(63.05,"SB",63.291,11.7)=""
^DD(63.05,"SB",63.292,11.52)=""
^DD(63.05,"SB",63.3,12)=""
^DD(63.05,"SB",63.33,13)=""
^DD(63.05,"SB",63.34,16)=""
^DD(63.05,"SB",63.341,15.51)=""
^DD(63.05,"SB",63.36,17)=""
^DD(63.05,"SB",63.361,16.4)=""
^DD(63.05,"SB",63.37,20)=""
^DD(63.05,"SB",63.371,19.6)=""
^DD(63.05,"SB",63.38,21)=""
^DD(63.05,"SB",63.39,26)=""
^DD(63.05,"SB",63.41,27)=""
^DD(63.05,"SB",63.42,28)=""
^DD(63.05,"SB",63.43,36)=""
^DD(63.05,"SB",63.431,36.5)=""
^DD(63.05,"SB",63.432,36.4)=""
^DD(63.05,"SB",63.44,37)=""
^DD(63.06,0)="PRELIMINARY BACT COMMENT SUB-FIELD^NL^.01^1"
^DD(63.06,0,"NM","PRELIMINARY BACT COMMENT")=""
^DD(63.06,0,"UP")="63.05"
^DD(63.06,.01,0)="PRELIMINARY BACT COMMENT^MFX^^0;1^S Q9=""2,68,KMTVP"" D COM^LRNUM"
^DD(63.06,.01,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(63.06,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMTVP""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.06,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.06,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.06,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""M""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.06,.01,21,0)="^^1^1^2911202^"
^DD(63.06,.01,21,1,0)="This is a comment concerning the bacteriology."
^DD(63.06,.01,"DT")="2870503"
^DD(63.06,"B","PRELIMINARY BACT COMMENT",.01)=""
^DD(63.06,"GL",0,1,.01)=""
^DD(63.061,0)="BACTERIOLOGY TEST(S) SUB-FIELD^^.01^1"
^DD(63.061,0,"NM","BACTERIOLOGY TEST(S)")=""
^DD(63.061,0,"UP")="63.05"
^DD(63.061,.01,0)="BACTERIOLOGY TEST(S)^F^^0;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.061,.01,1,0)="^.1^^0"
^DD(63.061,.01,3)="Answer must be 2-68 characters in length."
^DD(63.061,.01,"DT")="2890330"
^DD(63.061,"B","BACTERIOLOGY TEST(S)",.01)=""
^DD(63.061,"GL",0,1,.01)=""
^DD(63.07,0)="ORDERED TEST SUB-FIELD^^.01^1"
^DD(63.07,0,"DT")="2961221"
^DD(63.07,0,"IX","B",63.07,.01)=""
^DD(63.07,0,"NM","ORDERED TEST")=""
^DD(63.07,0,"UP")="63.04"
^DD(63.07,.01,0)="ORDERED TEST^FO^^0;1^K:$L(X)>15!($L(X)<5) X"
^DD(63.07,.01,1,0)="^.1"
^DD(63.07,.01,1,1,0)="63.07^B"
^DD(63.07,.01,1,1,1)="S ^LR(DA(2),""CH"",DA(1),""ORUT"",""B"",$E(X,1,30),DA)="""""
^DD(63.07,.01,1,1,2)="K ^LR(DA(2),""CH"",DA(1),""ORUT"",""B"",$E(X,1,30),DA)"
^DD(63.07,.01,2)="S Y(0)=Y S ZZY=$O(^LAM(""C"",Y_"" "",0)) I ZZY,$D(^LAM(ZZY,0))#2 S Y=$P(^(0),U)"
^DD(63.07,.01,2.1)="S ZZY=$O(^LAM(""C"",Y_"" "",0)) I ZZY,$D(^LAM(ZZY,0))#2 S Y=$P(^(0),U)"
^DD(63.07,.01,3)="Answer must be 5-15 characters in length."
^DD(63.07,.01,"DT")="2970715"
^DD(63.07,"B","ORDERED TEST",.01)=""
^DD(63.07,"GL",0,1,.01)=""
^DD(63.07,"IX",.01)=""
^DD(63.075,0)="ANTIBODIES IDENTIFIED SUB-FIELD^NL^.02^2"
^DD(63.075,0,"NM","ANTIBODIES IDENTIFIED")=""
^DD(63.075,0,"UP")="63"
^DD(63.075,.01,0)="ANTIBODIES IDENTIFIED^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(63.075,.01,12)="Limits entry to only blood group antibodies"
^DD(63.075,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""""
^DD(63.075,.01,21,0)="^^1^1^2911126^^"
^DD(63.075,.01,21,1,0)="This is a pointer to an antibody identified on this patient."
^DD(63.075,.01,"DT")="2990521"
^DD(63.075,.02,0)="ANTIBODIES IDENTIFIED COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(63.075,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.075,.02,21,0)="^^1^1^2911126^^"
^DD(63.075,.02,21,1,0)="This is a comment on the antibodies identified."
^DD(63.075,.02,"DT")="2860602"
^DD(63.075,"B","ANTIBODIES IDENTIFIED",.01)=""
^DD(63.075,"B","ANTIBODIES IDENTIFIED COMMENT",.02)=""
^DD(63.075,"GL",0,1,.01)=""
^DD(63.075,"GL",0,2,.02)=""
^DD(63.076,0)="BLOOD BANK COMMENTS SUB-FIELD^NL^.01^1"
^DD(63.076,0,"NM","BLOOD BANK COMMENTS")=""
^DD(63.076,0,"UP")="63"
^DD(63.076,.01,0)="BLOOD BANK COMMENTS^W^^0;1^Q"
^DD(63.076,.01,21,0)="^^1^1^2911121^"
^DD(63.076,.01,21,1,0)="These are blood bank comments for this patient."
^DD(63.076,.01,"DT")="2850602"
^DD(63.076,"B","BLOOD BANK COMMENTS",.01)=""
^DD(63.076,"GL",0,1,.01)=""
^DD(63.08,0)="SURGICAL PATHOLOGY SUB-FIELD^NL^2005^38"
^DD(63.08,0,"DT")="3030924"
^DD(63.08,0,"ID",.06)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,6)"
^DD(63.08,0,"IX","AC",63.08,.11)=""
^DD(63.08,0,"NM","SURGICAL PATHOLOGY")=""
^DD(63.08,0,"UP")="63"
^DD(63.08,.01,0)="DATE/TIME SPECIMEN TAKEN^MRDXO^^0;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(63.08,.01,1,0)="^.1^^0"
^DD(63.08,.01,2)="S Y(0)=Y D D^LRU W ?0,""-------------------------------------------------------------------------------"""
^DD(63.08,.01,2.1)="D D^LRU W ?0,""-------------------------------------------------------------------------------"""
^DD(63.08,.01,3)="ENTER ONLY PAST OR PRESENT DATE/TIME --Future times not permitted"
^DD(63.08,.01,8.5)="@"
^DD(63.08,.01,21,0)="^.001^1^1^3030116^^^^"
^DD(63.08,.01,21,1,0)="This is the date/time the specimen was taken."
^DD(63.08,.01,"DT")="2850120"
^DD(63.08,.011,0)="SPECIMEN SUBMITTED BY^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(63.08,.011,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.08,.011,21,0)="^^1^1^2911204^"
^DD(63.08,.011,21,1,0)="This is the person submitting the specimen."
^DD(63.08,.011,"DT")="2840911"
^DD(63.08,.012,0)="SPECIMEN^63.812A^^.1;0"
^DD(63.08,.012,21,0)="^.001^1^1^3030505^^^^"
^DD(63.08,.012,21,1,0)="These are the specimens submitted."
^DD(63.08,.013,0)="BRIEF CLINICAL HISTORY^63.813^^.2;0"
^DD(63.08,.013,21,0)="^.001^1^1^3010724^^"
^DD(63.08,.013,21,1,0)="This is a brief clinical history of the specimen."
^DD(63.08,.014,0)="PREOPERATIVE DIAGNOSIS^63.814A^^.3;0"
^DD(63.08,.014,21,0)="^^1^1^2911204^"
^DD(63.08,.014,21,1,0)="This is the pre-operative diagnosis of the specimen."
^DD(63.08,.015,0)="OPERATIVE FINDINGS^63.815A^^.4;0"
^DD(63.08,.015,21,0)="^^1^1^2911204^"
^DD(63.08,.015,21,1,0)="These are the operative findings of the specimen."
^DD(63.08,.016,0)="POSTOPERATIVE DIAGNOSIS^63.816A^^.5;0"
^DD(63.08,.02,0)="PATHOLOGIST^*P200'X^VA(200,^0;2^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.08,.02,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63.08,.02,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.08,.02,21,0)="^^1^1^2911204^"
^DD(63.08,.02,21,1,0)="This is the pathologist performing the procedure."
^DD(63.08,.02,"DT")="2910630"
^DD(63.08,.021,0)="RESIDENT PATHOLOGIST^*P200'X^VA(200,^0;4^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.08,.021,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.08,.021,21,0)="^^2^2^2911204^"
^DD(63.08,.021,21,1,0)="This is the resident pathologist performing"
^DD(63.08,.021,21,2,0)="the procedure."
^DD(63.08,.021,"DT")="2910630"
^DD(63.08,.03,0)="DATE REPORT COMPLETED^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),""SP"",DA,0),U,10),""."") K X W !,""Report date completed must be after date received"""
^DD(63.08,.03,21,0)="^^1^1^2911204^^"
^DD(63.08,.03,21,1,0)="This is the date the report is completed."
^DD(63.08,.03,"DT")="2900312"
^DD(63.08,.06,0)="SURGICAL PATH ACC #^RFIX^^0;6^K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1"" ""2N1"" ""1N.N) X I $D(X),$D(LRAD),$D(LRABV),$D(^LR(""ASPA"",$E(LRAD,1,3),LRABV,X)) W $C(7),!,X,"" is already taken for "",LRABV,! K X"
^DD(63.08,.06,1,0)="^.1"
^DD(63.08,.06,1,1,0)="63^ASPA^MUMPS"
^DD(63.08,.06,1,1,1)="S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),""SP"",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),""SP"",DA,0),U,6)) S:X(1)&(X(2)]"""") ^LR(""ASPA"",$E(X(1),1,3),X(2),$P(X,"" "",3),DA(1),DA)="""""
^DD(63.08,.06,1,1,2)="S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),""SP"",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),""SP"",0),U,6)) K:X(1)&(X(2)]"""") ^LR(""ASPA"",$E(X(1),1,3),X(2),$P(X,"" "",3),DA(1),DA)"
^DD(63.08,.06,1,1,"%D",0)="^^1^1^2950809^^^"
^DD(63.08,.06,1,1,"%D",1,0)="Cross references accessions by year and within year by accession area."
^DD(63.08,.06,1,1,"DT")="2950809"
^DD(63.08,.06,3)="Answer must be 5-15 characters in length."
^DD(63.08,.06,4)="W !,""Enter as prefix <space> yr <space> number (ex. SP 95 345)"""
^DD(63.08,.06,21,0)="^^2^2^2960408^^^"
^DD(63.08,.06,21,1,0)="This is the accession number of the surgical"
^DD(63.08,.06,21,2,0)="pathology specimen."
^DD(63.08,.06,"DT")="2951214"
^DD(63.08,.07,0)="SURGEON/PHYSICIAN^*P200'X^VA(200,^0;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.08,.07,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63.08,.07,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.08,.07,21,0)="^^1^1^2911204^"
^DD(63.08,.07,21,1,0)="This is the requesting provider."
^DD(63.08,.07,"DT")="2910630"
^DD(63.08,.08,0)="PATIENT LOCATION^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(63.08,.08,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.08,.08,21,0)="^^1^1^2911204^"
^DD(63.08,.08,21,1,0)="This is the requesting location."
^DD(63.08,.08,"DT")="2830131"
^DD(63.08,.09,0)="TYPIST^F^^0;9^K:$L(X)>5!($L(X)<2) X"
^DD(63.08,.09,3)="Answer must be 2-5 characters in length."
^DD(63.08,.09,21,0)="^^1^1^2911204^"
^DD(63.08,.09,21,1,0)="These are the initials of the typist entering the data."
^DD(63.08,.09,"DT")="2910124"
^DD(63.08,.1,0)="DATE/TIME SPECIMEN RECEIVED^RDX^^0;10^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LRH(2)),LRH(2)'=$E(X,1,3) K X W !,""Year received must be same as log-in year ("",LRH(2)+1700,"") """
^DD(63.08,.1,1,0)="^.1^^-1"
^DD(63.08,.1,1,2,0)="63^ASP"
^DD(63.08,.1,1,2,1)="S ^LR(""ASP"",$E(X,1,30),DA(1),DA)="""""
^DD(63.08,.1,1,2,2)="K ^LR(""ASP"",$E(X,1,30),DA(1),DA)"
^DD(63.08,.1,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63.08,.1,4)="K DZ W ?5,""To delete accession enter '^'"",!"
^DD(63.08,.1,21,0)="^^1^1^2911204^"
^DD(63.08,.1,21,1,0)="This is the date/time the specimen was received."
^DD(63.08,.1,"DT")="2911016"
^DD(63.08,.11,0)="REPORT RELEASE DATE/TIME^DIX^^0;11^S %DT=""ETXR"",%DT(0)=""N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),""SP"",DA,0),U,3),""."") K X W !,""Release date must not be before report completed date ("" S Y=$P(^(0),U,3) D DD^%DT W Y,"")"""
^DD(63.08,.11,1,0)="^.1"
^DD(63.08,.11,1,1,0)="63.08^AC^MUMPS"
^DD(63.08,.11,1,1,1)="D ADD^LRWOMEN"
^DD(63.08,.11,1,1,2)="D DEL^LRWOMEN"
^DD(63.08,.11,1,1,"%D",0)="^^3^3^2990219^"
^DD(63.08,.11,1,1,"%D",1,0)="This cross reference will send notification to the Women's Health Program"
^DD(63.08,.11,1,1,"%D",2,0)="when a Surgical Pathology specimen on a female is verified/released by the"
^DD(63.08,.11,1,1,"%D",3,0)="laboratory."
^DD(63.08,.11,1,1,"DT")="2990219"
^DD(63.08,.11,3)="ONLY PRESENT DATE/TIME ALLOWED   "
^DD(63.08,.11,4)="K DZ"
^DD(63.08,.11,21,0)="^^1^1^2950908^^^"
^DD(63.08,.11,21,1,0)="YES indicates the report was released."
^DD(63.08,.11,"DT")="2990219"
^DD(63.08,.13,0)="RELEASED BY^P200'^VA(200,^0;13^Q"
^DD(63.08,.13,"DT")="2910630"
^DD(63.08,.14,0)="TC CODE^S^1:1;2:2;3:3;4:4;5:5;6:6;7:7;8:8;9:9;0:0;^0;14^Q"
^DD(63.08,.14,21,0)="^^2^2^2900726^^^"
^DD(63.08,.14,21,1,0)=" Tissue committee codes"
^DD(63.08,.14,21,2,0)=" The meaning of each code is identified by each site."
^DD(63.08,.14,"DT")="2891205"
^DD(63.08,.15,0)="ORIGINAL RELEASE DATE^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.08,.15,21,0)="^^2^2^2900924^"
^DD(63.08,.15,21,1,0)="If report was modified after release the original release date"
^DD(63.08,.15,21,2,0)=" is kept here."
^DD(63.08,.15,"DT")="2900924"
^DD(63.08,.16,0)="TIU REFERENCE DATE/TIME - SP^63.19DA^^.05;0"
^DD(63.08,.16,21,0)="^.001^3^3^3030117^^^^"
^DD(63.08,.16,21,1,0)="This multiple stores TIU information for corresponding SF515 surgical pathology"
^DD(63.08,.16,21,2,0)="reports that have been electronically signed and stored in TIU.  This"
^DD(63.08,.16,21,3,0)="information is used to access the reports in TIU."
^DD(63.08,.16,"DT")="3010828"
^DD(63.08,.17,0)="DATE REPORT MODIFIED - SP^D^^.07;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.08,.17,21,0)="^^2^2^3020107^"
^DD(63.08,.17,21,1,0)="This is the date the report was modified if it was modified after it was"
^DD(63.08,.17,21,2,0)="electronically signed/released."
^DD(63.08,.17,"DT")="3011130"
^DD(63.08,.171,0)="PERSON MODIFYING TEXT^P200'^VA(200,^.07;2^Q"
^DD(63.08,.171,21,0)="^^2^2^3020107^"
^DD(63.08,.171,21,1,0)="Stores the DUZ of the person who modified the report AFTER it was"
^DD(63.08,.171,21,2,0)="electronically signed/released."
^DD(63.08,.171,"DT")="3011130"
^DD(63.08,.172,0)="DIAGNOSIS MODIFIED^S^1:YES;0:NO;^.07;3^Q"
^DD(63.08,.172,21,0)="^^1^1^3020107^"
^DD(63.08,.172,21,1,0)="1 = Diagnosis modified AFTER report was electronically signed/released."
^DD(63.08,.172,"DT")="3011130"
^DD(63.08,.97,0)="DELAYED REPORT COMMENT^63.0897^^97;0"
^DD(63.08,.97,21,0)="^^3^3^2930927^^^"
^DD(63.08,.97,21,1,0)="If a report is delayed, reason(s) for delay may be entered here. "
^DD(63.08,.97,21,2,0)="They will appear on the log book report and the clinician screen "
^DD(63.08,.97,21,3,0)="display."
^DD(63.08,.99,0)="COMMENT^63.98A^^99;0"
^DD(63.08,.99,21,0)="^^1^1^2911204^"
^DD(63.08,.99,21,1,0)="These are the comments on the specimen."
^DD(63.08,1,0)="GROSS DESCRIPTION^63.81^^1;0"
^DD(63.08,1,21,0)="^^1^1^2911204^"
^DD(63.08,1,21,1,0)="This is the gross description of the specimen."
^DD(63.08,1.1,0)="MICROSCOPIC DESCRIPTION^63.811^^1.1;0"
^DD(63.08,1.1,21,0)="^^1^1^2911204^"
^DD(63.08,1.1,21,1,0)="This is the microscopic examination diagnosis."
^DD(63.08,1.1,"DT")="2930715"
^DD(63.08,1.2,0)="SUPPLEMENTARY REPORT^63.817DA^^1.2;0"
^DD(63.08,1.2,21,0)="^^1^1^2911204^"
^DD(63.08,1.2,21,1,0)="These are supplementary reports on the specimen."
^DD(63.08,1.3,0)="FROZEN SECTION^63.801^^1.3;0"
^DD(63.08,1.3,21,0)="^^1^1^2921202^"
^DD(63.08,1.3,21,1,0)="Frozen section descriptions can optionally be entered in this field."
^DD(63.08,1.4,0)="SURGICAL PATH DIAGNOSIS^63.802^^1.4;0"
^DD(63.08,1.4,21,0)="^^1^1^2930715^"
^DD(63.08,1.4,21,1,0)="Surgical pathology diagnoses are entered here."
^DD(63.08,1.4,"DT")="2930716"
^DD(63.08,4,0)="DATE MICROSCOPIC EXAM MODIFIED^63.84DA^^4;0"
^DD(63.08,4,21,0)="^^2^2^2911204^^"
^DD(63.08,4,21,1,0)="These are the dates of modification of the"
^DD(63.08,4,21,2,0)="microscopic examination diagnosis."
^DD(63.08,4,"DT")="2930716"
^DD(63.08,5,0)="DATE DIAGNOSIS MODIFIED^63.085DA^^5;0"
^DD(63.08,5,21,0)="^^2^2^2930716^"
^DD(63.08,5,21,1,0)="These are the dates of modification of the diagnosis field "
^DD(63.08,5,21,2,0)="(DD(63.08,1.4))"
^DD(63.08,6,0)="DATE FROZEN SECTION MODIFIED^63.086DA^^6;0"
^DD(63.08,6,21,0)="^^1^1^2930716^"
^DD(63.08,6,21,1,0)="These are the dates of modification of the frozen section field."
^DD(63.08,7,0)="DATE GROSS DESCRIPTION CHANGED^63.087DA^^7;0"
^DD(63.08,7,21,0)="^^1^1^2930716^"
^DD(63.08,7,21,1,0)="These are the dates of modification of the gross description field."
^DD(63.08,9,0)="QA CODE^63.089PA^^9;0"
^DD(63.08,9,12)="Selects entries with less than 3 characters"
^DD(63.08,9,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"""
^DD(63.08,10,0)="ORGAN/TISSUE^63.12PA^^2;0"
^DD(63.08,10,12)="Selects when appropriate sex related organs"
^DD(63.08,10,12.1)="S DIC(""S"")=""I SEX[$P(^(0),U,3)"""
^DD(63.08,10,21,0)="^.001^1^1^3010724^^^"
^DD(63.08,10,21,1,0)="These are the organ/tissue(s) being examined."
^DD(63.08,80,0)="ICD DIAGNOSIS^63.88PA^^3;0"
^DD(63.08,80,21,0)="^^2^2^2911204^"
^DD(63.08,80,21,1,0)="These are the ICD diagnoses associated with this"
^DD(63.08,80,21,2,0)="organ/tissue(s)."
^DD(63.08,2005,0)="IMAGE^63.82005P^^2005;0"
^DD(63.08,2005,21,0)="^^3^3^2950523^"
^DD(63.08,2005,21,1,0)="Images associated with Surgical Pathology reports are stored in this"
^DD(63.08,2005,21,2,0)="multiple within the Surgical Pathology field of the Lab Data (#63)"
^DD(63.08,2005,21,3,0)="file."
^DD(63.08,"B","BRIEF CLINICAL HISTORY",.013)=""
^DD(63.08,"B","COMMENT",.99)=""
^DD(63.08,"B","DATE DIAGNOSIS MODIFIED",5)=""
^DD(63.08,"B","DATE FROZEN SECTION MODIFIED",6)=""
^DD(63.08,"B","DATE GROSS DESCRIPTION CHANGED",7)=""
^DD(63.08,"B","DATE MICROSCOPIC EXAM MODIFIED",4)=""
^DD(63.08,"B","DATE REPORT COMPLETED",.03)=""
^DD(63.08,"B","DATE REPORT MODIFIED - SP",.17)=""
^DD(63.08,"B","DATE/TIME SPECIMEN RECEIVED",.1)=""
^DD(63.08,"B","DATE/TIME SPECIMEN TAKEN",.01)=""
^DD(63.08,"B","DELAYED REPORT COMMENT",.97)=""
^DD(63.08,"B","DIAGNOSIS MODIFIED",.172)=""
^DD(63.08,"B","FROZEN SECTION",1.3)=""
^DD(63.08,"B","GROSS DESCRIPTION",1)=""
^DD(63.08,"B","ICD DIAGNOSIS",80)=""
^DD(63.08,"B","IMAGE",2005)=""
^DD(63.08,"B","MICROSCOPIC DESCRIPTION",1.1)=""
^DD(63.08,"B","OPERATIVE FINDINGS",.015)=""
^DD(63.08,"B","ORGAN/TISSUE",10)=""
^DD(63.08,"B","ORIGINAL RELEASE DATE",.15)=""
^DD(63.08,"B","PATHOLOGIST",.02)=""
^DD(63.08,"B","PATIENT LOCATION",.08)=""
^DD(63.08,"B","PERSON MODIFYING TEXT",.171)=""
^DD(63.08,"B","POSTOPERATIVE DIAGNOSIS",.016)=""
^DD(63.08,"B","PREOPERATIVE DIAGNOSIS",.014)=""
^DD(63.08,"B","QA CODE",9)=""
^DD(63.08,"B","RELEASED BY",.13)=""
^DD(63.08,"B","REPORT RELEASE DATE/TIME",.11)=""
^DD(63.08,"B","RESIDENT PATHOLOGIST",.021)=""
^DD(63.08,"B","SPECIMEN",.012)=""
^DD(63.08,"B","SPECIMEN SUBMITTED BY",.011)=""
^DD(63.08,"B","SUPPLEMENTARY REPORT",1.2)=""
^DD(63.08,"B","SURGEON/PHYSICIAN",.07)=""
^DD(63.08,"B","SURGICAL PATH ACC #",.06)=""
^DD(63.08,"B","SURGICAL PATH DIAGNOSIS",1.4)=""
^DD(63.08,"B","TC CODE",.14)=""
^DD(63.08,"B","TIU REFERENCE DATE/TIME - SP",.16)=""
^DD(63.08,"B","TYPIST",.09)=""
^DD(63.08,"GL",0,1,.01)=""
^DD(63.08,"GL",0,2,.02)=""
^DD(63.08,"GL",0,3,.03)=""
^DD(63.08,"GL",0,4,.021)=""
^DD(63.08,"GL",0,5,.011)=""
^DD(63.08,"GL",0,6,.06)=""
^DD(63.08,"GL",0,7,.07)=""
^DD(63.08,"GL",0,8,.08)=""
^DD(63.08,"GL",0,9,.09)=""
^DD(63.08,"GL",0,10,.1)=""
^DD(63.08,"GL",0,11,.11)=""
^DD(63.08,"GL",0,13,.13)=""
^DD(63.08,"GL",0,14,.14)=""
^DD(63.08,"GL",0,15,.15)=""
^DD(63.08,"GL",.05,0,.16)=""
^DD(63.08,"GL",.07,1,.17)=""
^DD(63.08,"GL",.07,2,.171)=""
^DD(63.08,"GL",.07,3,.172)=""
^DD(63.08,"GL",.1,0,.012)=""
^DD(63.08,"GL",.2,0,.013)=""
^DD(63.08,"GL",.3,0,.014)=""
^DD(63.08,"GL",.4,0,.015)=""
^DD(63.08,"GL",.5,0,.016)=""
^DD(63.08,"GL",1,0,1)=""
^DD(63.08,"GL",1.1,0,1.1)=""
^DD(63.08,"GL",1.2,0,1.2)=""
^DD(63.08,"GL",1.3,0,1.3)=""
^DD(63.08,"GL",1.4,0,1.4)=""
^DD(63.08,"GL",2,0,10)=""
^DD(63.08,"GL",3,0,80)=""
^DD(63.08,"GL",4,0,4)=""
^DD(63.08,"GL",5,0,5)=""
^DD(63.08,"GL",6,0,6)=""
^DD(63.08,"GL",7,0,7)=""
^DD(63.08,"GL",9,0,9)=""
^DD(63.08,"GL",97,0,.97)=""
^DD(63.08,"GL",99,0,.99)=""
^DD(63.08,"GL",2005,0,2005)=""
^DD(63.08,"IX",.06)=""
^DD(63.08,"IX",.1)=""
^DD(63.08,"IX",.11)=""
^DD(63.08,"RQ",.01)=""
^DD(63.08,"RQ",.06)=""
^DD(63.08,"RQ",.1)=""
^DD(63.08,"SB",63.085,5)=""
^DD(63.08,"SB",63.086,6)=""
^DD(63.08,"SB",63.087,7)=""
^DD(63.08,"SB",63.089,9)=""
^DD(63.08,"SB",63.0897,.97)=""
^DD(63.08,"SB",63.12,10)=""
^DD(63.08,"SB",63.19,.16)=""
^DD(63.08,"SB",63.801,1.3)=""
^DD(63.08,"SB",63.802,1.4)=""
^DD(63.08,"SB",63.81,1)=""
^DD(63.08,"SB",63.811,1.1)=""
^DD(63.08,"SB",63.812,.012)=""
^DD(63.08,"SB",63.813,.013)=""
^DD(63.08,"SB",63.814,.014)=""
^DD(63.08,"SB",63.815,.015)=""
^DD(63.08,"SB",63.816,.016)=""
^DD(63.08,"SB",63.817,1.2)=""
^DD(63.08,"SB",63.82005,2005)=""
^DD(63.08,"SB",63.84,4)=""
^DD(63.08,"SB",63.88,80)=""
^DD(63.08,"SB",63.98,.99)=""
^DD(63.084,0)="BLOOD COMPONENT REQUEST SUB-FIELD^NL^2.3^13"
^DD(63.084,0,"DT")="2930723"
^DD(63.084,0,"NM","BLOOD COMPONENT REQUEST")=""
^DD(63.084,0,"UP")="63"
^DD(63.084,.01,0)="BLOOD COMPONENT REQUEST^M*P66'X^LAB(66,^0;1^S DIC(""S"")=""I $P(^(0),U,15),$D(^(10,DUZ(2),0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.084,.01,12)="Selects only components that can be selected within the division"
^DD(63.084,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,15),$D(^(10,DUZ(2),0))"""
^DD(63.084,.01,21,0)="^^1^1^2920203^^^"
^DD(63.084,.01,21,1,0)="This is the component requested."
^DD(63.084,.01,"DT")="2950731"
^DD(63.084,.02,0)="PRE-OP REQUEST^S^1:YES;0:NO;^0;2^Q"
^DD(63.084,.02,.1)=""
^DD(63.084,.02,1,0)="^.1^^0"
^DD(63.084,.02,3)=""
^DD(63.084,.02,21,0)="^^1^1^2920203^^^^"
^DD(63.084,.02,21,1,0)="YES indicates this is a pre-operative request."
^DD(63.084,.02,"DT")="2850722"
^DD(63.084,.03,0)="REQUEST DATE/TIME^RDX^^0;3^S %DT=""ETX"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.084,.03,3)=""
^DD(63.084,.03,4)=""
^DD(63.084,.03,21,0)="^^1^1^2920203^^^^"
^DD(63.084,.03,21,1,0)="This is the date/time of the request."
^DD(63.084,.03,"DT")="2860825"
^DD(63.084,.04,0)="NUMBER OF UNITS^RNJ2,0^^0;4^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.084,.04,3)="Type a Number between 1 and 50, 0 Decimal Digits"
^DD(63.084,.04,21,0)="^^1^1^2920203^^^^"
^DD(63.084,.04,21,1,0)="This is the number of units requested."
^DD(63.084,.04,"DT")="2871007"
^DD(63.084,.05,0)="DATE/TIME UNITS WANTED^DX^^0;5^S %DT=""ETX"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.084,.05,3)=""
^DD(63.084,.05,4)=""
^DD(63.084,.05,21,0)="^^1^1^2920203^^^"
^DD(63.084,.05,21,1,0)="This is the date/time the units are wanted."
^DD(63.084,.05,"DT")="2860826"
^DD(63.084,.06,0)="PREVIOUS TRANSFUSIONS^S^1:YES;0:NO;^0;6^Q"
^DD(63.084,.06,3)=""
^DD(63.084,.06,21,0)="^^1^1^2920203^^^"
^DD(63.084,.06,21,1,0)="YES indicates the patient has had previous transfusions."
^DD(63.084,.07,0)="PREVIOUS TRANSFUSION REACTION^S^1:YES;0:NO;^0;7^Q"
^DD(63.084,.07,21,0)="^^2^2^2920203^^^"
^DD(63.084,.07,21,1,0)="YES indicates the patient has had a previous"
^DD(63.084,.07,21,2,0)="transfusion reaction."
^DD(63.084,.07,"DT")="2911126"
^DD(63.084,.08,0)="ENTERING PERSON^P200'^VA(200,^0;8^Q"
^DD(63.084,.08,3)=""
^DD(63.084,.08,21,0)="^^1^1^2920203^^"
^DD(63.084,.08,21,1,0)="This is the person entering the request."
^DD(63.084,.08,"DT")="2870504"
^DD(63.084,.09,0)="REQUESTING PERSON^F^^0;9^K:$L(X)>17!($L(X)<2) X"
^DD(63.084,.09,3)="ANSWER MUST BE 2-17 CHARACTERS IN LENGTH"
^DD(63.084,.09,21,0)="^^1^1^2920203^^"
^DD(63.084,.09,21,1,0)="This is the person making the request."
^DD(63.084,.09,"DT")="2870504"
^DD(63.084,1,0)="UNITS SELECTED FOR XMATCH^63.0841PA^^1;0"
^DD(63.084,1,12)="SELECTS UNITS WITHOUT DISPOSITION"
^DD(63.084,1,12.1)="S DIC(""S"")=""I '$D(^(4))"""
^DD(63.084,1,21,0)="^^1^1^2920203^^"
^DD(63.084,1,21,1,0)="These are units selected for crossmatch."
^DD(63.084,2.1,0)="COMPONENT REQUEST REASON^FX^^2;1^K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)=""J"" D ^LRUB"
^DD(63.084,2.1,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.084,2.1,4)="S L(1)=""J"" D Q^LRUB"
^DD(63.084,2.1,21,0)="^^2^2^2870903^"
^DD(63.084,2.1,21,1,0)="If request does not meet acceptable criteria enter the reason"
^DD(63.084,2.1,21,2,0)=" why the request should still be completed."
^DD(63.084,2.1,"DT")="2870903"
^DD(63.084,2.2,0)="APPROVED BY^F^^2;2^K:$L(X)>30!($L(X)<2) X"
^DD(63.084,2.2,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.084,2.2,21,0)="^^1^1^2920203^^"
^DD(63.084,2.2,21,1,0)="This is the person approving the crossmatch request."
^DD(63.084,2.2,"DT")="2870902"
^DD(63.084,2.3,0)="TREATING SPECIALITY^P45.7'^DIC(45.7,^2;3^Q"
^DD(63.084,2.3,21,0)="^^2^2^2920203^^"
^DD(63.084,2.3,21,1,0)="This is the treating specialty of the crossmatch"
^DD(63.084,2.3,21,2,0)="request."
^DD(63.084,2.3,"DT")="2870902"
^DD(63.084,"B","APPROVED BY",2.2)=""
^DD(63.084,"B","BLOOD COMPONENT REQUEST",.01)=""
^DD(63.084,"B","COMPONENT REQUEST REASON",2.1)=""
^DD(63.084,"B","DATE/TIME UNITS WANTED",.05)=""
^DD(63.084,"B","ENTERING PERSON",.08)=""
^DD(63.084,"B","NUMBER OF UNITS",.04)=""
^DD(63.084,"B","PRE-OP REQUEST",.02)=""
^DD(63.084,"B","PREVIOUS TRANSFUSION REACTION",.07)=""
^DD(63.084,"B","PREVIOUS TRANSFUSIONS",.06)=""
^DD(63.084,"B","REQUEST DATE/TIME",.03)=""
^DD(63.084,"B","REQUESTING PERSON",.09)=""
^DD(63.084,"B","TREATING SPECIALITY",2.3)=""
^DD(63.084,"B","UNITS SELECTED FOR XMATCH",1)=""
^DD(63.084,"GL",0,1,.01)=""
^DD(63.084,"GL",0,2,.02)=""
^DD(63.084,"GL",0,3,.03)=""
^DD(63.084,"GL",0,4,.04)=""
^DD(63.084,"GL",0,5,.05)=""
^DD(63.084,"GL",0,6,.06)=""
^DD(63.084,"GL",0,7,.07)=""
^DD(63.084,"GL",0,8,.08)=""
^DD(63.084,"GL",0,9,.09)=""
^DD(63.084,"GL",1,0,1)=""
^DD(63.084,"GL",2,1,2.1)=""
^DD(63.084,"GL",2,2,2.2)=""
^DD(63.084,"GL",2,3,2.3)=""
^DD(63.084,"RQ",.03)=""
^DD(63.084,"RQ",.04)=""
^DD(63.084,"SB",63.0841,1)=""
^DD(63.0841,0)="UNITS SELECTED FOR XMATCH SUB-FIELD^NL^.02^2"
^DD(63.0841,0,"NM","UNITS SELECTED FOR XMATCH")=""
^DD(63.0841,0,"UP")="63.084"
^DD(63.0841,.01,0)="UNIT SELECTED FOR XMATCH^M*P65'X^LRD(65,^0;1^S DIC(""S"")=""I '$D(^(4))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(63.0841,.01,21,0)="^^1^1^2920203^^"
^DD(63.0841,.01,21,1,0)="This is the unit selected for crossmatch."
^DD(63.0841,.01,"DT")="2850806"
^DD(63.0841,.02,0)="INVERSE SPECIMEN DATE^RNJ13,5^^0;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""6N.N) X"
^DD(63.0841,.02,3)="TYPE A NUMBER BETWEEN 1 AND 9999999"
^DD(63.0841,.02,21,0)="^^2^2^2920203^^^"
^DD(63.0841,.02,21,1,0)="This is 9999999--collection date of the specimen for"
^DD(63.0841,.02,21,2,0)="crossmatch."
^DD(63.0841,.02,"DT")="2850806"
^DD(63.0841,"B","INVERSE SPECIMEN DATE",.02)=""
^DD(63.0841,"B","UNIT SELECTED FOR XMATCH",.01)=""
^DD(63.0841,"GL",0,1,.01)=""
^DD(63.0841,"GL",0,2,.02)=""
^DD(63.0841,"RQ",.02)=""
^DD(63.085,0)="DATE DIAGNOSIS MODIFIED SUB-FIELD^^1^3"
^DD(63.085,0,"DT")="2930716"
^DD(63.085,0,"NM","DATE DIAGNOSIS MODIFIED")=""
^DD(63.085,0,"UP")="63.08"
^DD(63.085,.01,0)="DATE DIAGNOSIS MODIFIED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.085,.01,1,0)="^.1^^0"
^DD(63.085,.01,"DT")="2930716"
^DD(63.085,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.085,.02,21,0)="^^1^1^2930716^"
^DD(63.085,.02,21,1,0)="User who changes text."
^DD(63.085,.02,"DT")="2930716"
^DD(63.085,1,0)="PREMODIFICATION TEXT^63.0851^^1;0"
^DD(63.085,1,21,0)="^^1^1^2930716^"
^DD(63.085,1,21,1,0)="This is the premodification text."
^DD(63.085,"B","DATE DIAGNOSIS MODIFIED",.01)=""
^DD(63.085,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.085,"B","PREMODIFICATION TEXT",1)=""
^DD(63.085,"GL",0,1,.01)=""
^DD(63.085,"GL",0,2,.02)=""
^DD(63.085,"GL",1,0,1)=""
^DD(63.085,"SB",63.0851,1)=""
^DD(63.0851,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.0851,0,"DT")="2930716"
^DD(63.0851,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.0851,0,"UP")="63.085"
^DD(63.0851,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.0851,.01,"DT")="2930716"
^DD(63.0851,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.0851,"GL",0,1,.01)=""
^DD(63.086,0)="DATE FROZEN SECTION MODIFIED SUB-FIELD^^1^3"
^DD(63.086,0,"DT")="2930716"
^DD(63.086,0,"IX","B",63.086,.01)=""
^DD(63.086,0,"NM","DATE FROZEN SECTION MODIFIED")=""
^DD(63.086,0,"UP")="63.08"
^DD(63.086,.01,0)="DATE FROZEN SECTION MODIFIED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.086,.01,1,0)="^.1"
^DD(63.086,.01,1,1,0)="63.086^B"
^DD(63.086,.01,1,1,1)="S ^LR(DA(2),""SP"",DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(63.086,.01,1,1,2)="K ^LR(DA(2),""SP"",DA(1),6,""B"",$E(X,1,30),DA)"
^DD(63.086,.01,21,0)="^^1^1^2930716^"
^DD(63.086,.01,21,1,0)="These are the dates of modification of the frozen section field."
^DD(63.086,.01,"DT")="2930716"
^DD(63.086,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.086,.02,21,0)="^^1^1^2930716^"
^DD(63.086,.02,21,1,0)="User who changes text."
^DD(63.086,.02,"DT")="2930716"
^DD(63.086,1,0)="PREMODIFICATION TEXT^63.0861^^1;0"
^DD(63.086,1,21,0)="^^1^1^2930716^"
^DD(63.086,1,21,1,0)="Text before modification is stored here."
^DD(63.086,"B","DATE FROZEN SECTION MODIFIED",.01)=""
^DD(63.086,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.086,"B","PREMODIFICATION TEXT",1)=""
^DD(63.086,"GL",0,1,.01)=""
^DD(63.086,"GL",0,2,.02)=""
^DD(63.086,"GL",1,0,1)=""
^DD(63.086,"IX",.01)=""
^DD(63.086,"SB",63.0861,1)=""
^DD(63.0861,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.0861,0,"DT")="2930716"
^DD(63.0861,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.0861,0,"UP")="63.086"
^DD(63.0861,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.0861,.01,"DT")="2930716"
^DD(63.0861,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.0861,"GL",0,1,.01)=""
^DD(63.087,0)="DATE GROSS DESCRIPTION CHANGED SUB-FIELD^^1^3"
^DD(63.087,0,"DT")="2930716"
^DD(63.087,0,"NM","DATE GROSS DESCRIPTION CHANGED")=""
^DD(63.087,0,"UP")="63.08"
^DD(63.087,.01,0)="DATE GROSS DESCRIPTION CHANGED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.087,.01,1,0)="^.1^^0"
^DD(63.087,.01,21,0)="^^1^1^2930716^"
^DD(63.087,.01,21,1,0)="These are the dates of modification of the gross description field."
^DD(63.087,.01,"DT")="2930716"
^DD(63.087,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.087,.02,21,0)="^^1^1^2930716^"
^DD(63.087,.02,21,1,0)="User who changes text."
^DD(63.087,.02,"DT")="2930716"
^DD(63.087,1,0)="PREMODIFICATION TEXT^63.0871^^1;0"
^DD(63.087,1,21,0)="^^1^1^2930716^"
^DD(63.087,1,21,1,0)="This is the premodification text."
^DD(63.087,"B","DATE GROSS DESCRIPTION CHANGED",.01)=""
^DD(63.087,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.087,"B","PREMODIFICATION TEXT",1)=""
^DD(63.087,"GL",0,1,.01)=""
^DD(63.087,"GL",0,2,.02)=""
^DD(63.087,"GL",1,0,1)=""
^DD(63.087,"SB",63.0871,1)=""
^DD(63.0871,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.0871,0,"DT")="2930716"
^DD(63.0871,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.0871,0,"UP")="63.087"
^DD(63.0871,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.0871,.01,"DT")="2930716"
^DD(63.0871,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.0871,"GL",0,1,.01)=""
^DD(63.089,0)="QA CODE SUB-FIELD^^.01^1"
^DD(63.089,0,"NM","QA CODE")=""
^DD(63.089,0,"UP")="63.08"
^DD(63.089,.01,0)="QA CODE^M*P62.5'X^LAB(62.5,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.089,.01,1,0)="^.1^^0"
^DD(63.089,.01,3)="QA codes must be less than 3 characters."
^DD(63.089,.01,12)="Selects entries with less than 3 characters"
^DD(63.089,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"""
^DD(63.089,.01,"DT")="2900916"
^DD(63.089,"B","QA CODE",.01)=""
^DD(63.089,"GL",0,1,.01)=""
^DD(63.0897,0)="DELAYED REPORT COMMENT SUB-FIELD^^.01^1"
^DD(63.0897,0,"DT")="2930927"
^DD(63.0897,0,"NM","DELAYED REPORT COMMENT")=""
^DD(63.0897,0,"UP")="63.08"
^DD(63.0897,.01,0)="DELAYED REPORT COMMENT^MFX^^0;1^K:$L(X)>75!($L(X)<1) X I $D(X) S L=75,L(1)=""S"" D ^LRUB"
^DD(63.0897,.01,1,0)="^.1^^0"
^DD(63.0897,.01,3)="Answer must be 1-75 characters in length."
^DD(63.0897,.01,4)="S L(1)=""S"" D Q^LRUB"
^DD(63.0897,.01,21,0)="^^2^2^2930927^"
^DD(63.0897,.01,21,1,0)="If a report is delayed, reason(s) for delay may be entered here. "
^DD(63.0897,.01,21,2,0)="They will appear on the log book report and the clinician screen display."
^DD(63.0897,.01,"DT")="2930927"
^DD(63.0897,"B","DELAYED REPORT COMMENT",.01)=""
^DD(63.0897,"GL",0,1,.01)=""
^DD(63.09,0)="CYTOPATHOLOGY SUB-FIELD^NL^2005^38"
^DD(63.09,0,"DT")="3040205"
^DD(63.09,0,"IX","AC",63.09,.11)=""
^DD(63.09,0,"NM","CYTOPATHOLOGY")=""
^DD(63.09,0,"UP")="63"
^DD(63.09,.01,0)="DATE/TIME SPECIMEN TAKEN^RDXO^^0;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(63.09,.01,1,0)="^.1^^0"
^DD(63.09,.01,2)="S Y(0)=Y D D^LRU W ?0,""-------------------------------------------------------------------------------"""
^DD(63.09,.01,2.1)="D D^LRU W ?0,""-------------------------------------------------------------------------------"""
^DD(63.09,.01,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63.09,.01,8.5)="@"
^DD(63.09,.01,21,0)="^^2^2^2911205^^^"
^DD(63.09,.01,21,1,0)="This is the date/time of collection of the"
^DD(63.09,.01,21,2,0)="specimen."
^DD(63.09,.01,"DT")="2850120"
^DD(63.09,.011,0)="SPECIMEN SUBMITTED BY^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(63.09,.011,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.09,.011,21,0)="^.001^1^1^3030306^^"
^DD(63.09,.011,21,1,0)="This is the person submitting the specimen."
^DD(63.09,.011,"DT")="2850228"
^DD(63.09,.012,0)="SPECIMEN^63.902IA^^.1;0"
^DD(63.09,.012,21,0)="^.001^1^1^3030313^^^^"
^DD(63.09,.012,21,1,0)="These are the specimens submitted."
^DD(63.09,.013,0)="BRIEF CLINICAL HISTORY^63.913^^.2;0"
^DD(63.09,.013,21,0)="^^1^1^2911204^"
^DD(63.09,.013,21,1,0)="This is a brief clinical history of the specimen."
^DD(63.09,.014,0)="PREOPERATIVE DIAGNOSIS^63.914A^^.3;0"
^DD(63.09,.014,21,0)="^^1^1^2911204^"
^DD(63.09,.014,21,1,0)="This is the pre-operative diagnosis."
^DD(63.09,.015,0)="OPERATIVE FINDINGS^63.905A^^.4;0"
^DD(63.09,.015,21,0)="^^1^1^2911204^"
^DD(63.09,.015,21,1,0)="These are the operative findings of the specimen."
^DD(63.09,.016,0)="POSTOPERATIVE DIAGNOSIS^63.906A^^.5;0"
^DD(63.09,.016,21,0)="^^1^1^2911204^^"
^DD(63.09,.016,21,1,0)="This is the post-operative diagnosis."
^DD(63.09,.02,0)="PATHOLOGIST/CYTOTECHNOLOGIST^*P200'X^VA(200,^0;2^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.09,.02,3)="Enter the pathologist or cytotechnologist performing the examination.  NOTE:  A cytotech's name can be entered on negative GYN cases only."
^DD(63.09,.02,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63.09,.02,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.09,.02,21,0)="^^1^1^3040205^"
^DD(63.09,.02,21,1,0)="This is the pathologist performing the examination."
^DD(63.09,.02,"DT")="3040205"
^DD(63.09,.021,0)="CYTOTECH^P200'^VA(200,^0;4^Q"
^DD(63.09,.021,21,0)="^^1^1^2911205^"
^DD(63.09,.021,21,1,0)="This is the technologist performing the test."
^DD(63.09,.021,"DT")="2910630"
^DD(63.09,.03,0)="DATE REPORT COMPLETED^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),""CY"",DA,0),U,10),""."") K X W !,""Report date completed must be after date received"""
^DD(63.09,.03,21,0)="^^1^1^2911205^"
^DD(63.09,.03,21,1,0)="This is the date the report was completed."
^DD(63.09,.03,"DT")="2900312"
^DD(63.09,.06,0)="CYTOPATH ACC #^RFIX^^0;6^K:$L(X)>15!($L(X)<5)!'(X?1ANP.ANP1"" ""2N1"" ""1N.N) X I $D(X),$D(LRAD),$D(LRABV),$D(^LR(""ACYA"",$E(LRAD,1,3),LRABV,X)) W $C(7),!,X,"" is already taken for "",LRABV,! K X"
^DD(63.09,.06,1,0)="^.1"
^DD(63.09,.06,1,1,0)="63^ACYA^MUMPS"
^DD(63.09,.06,1,1,1)="S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),""CY"",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),""CY"",DA,0),U,6)) S:X(1)&(X(2)]"""") ^LR(""ACYA"",$E(X(1),1,3),X(2),$P(X,"" "",3),DA(1),DA)="""""
^DD(63.09,.06,1,1,2)="S X(1)=$S($D(LRAD):LRAD,1:$P(^LR(DA(1),""CY"",DA,0),U,10)),X(2)=$S($D(LRABV):LRABV,1:$P(^LR(DA(1),""CY"",0),U,6)) K:X(1)&(X(2)]"""") ^LR(""ACYA"",$E(X(1),1,3),X(2),$P(X,"" "",3),DA(1),DA)"
^DD(63.09,.06,1,1,"%D",0)="^^1^1^2950810^^^^"
^DD(63.09,.06,1,1,"%D",1,0)="Cross references accessions by year and within year by accession area."
^DD(63.09,.06,1,1,"DT")="2950810"
^DD(63.09,.06,3)="Answer must be 5-15 characters in length."
^DD(63.09,.06,4)="W !,""Enter as prefix <space> yr <space> number (ex. CY 95 345)"""
^DD(63.09,.06,21,0)="^^2^2^2950810^^^"
^DD(63.09,.06,21,1,0)="This is the accession number of the cytopathology "
^DD(63.09,.06,21,2,0)="specimen."
^DD(63.09,.06,"DT")="2951214"
^DD(63.09,.07,0)="PHYSICIAN^*P200'X^VA(200,^0;7^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.09,.07,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(63.09,.07,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(63.09,.07,21,0)="^^1^1^2911205^"
^DD(63.09,.07,21,1,0)="This is the requesting provider."
^DD(63.09,.07,"DT")="2910630"
^DD(63.09,.08,0)="PATIENT LOCATION^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(63.09,.08,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.09,.08,21,0)="^^1^1^2911205^"
^DD(63.09,.08,21,1,0)="This is the requesting location."
^DD(63.09,.08,"DT")="2830131"
^DD(63.09,.09,0)="TYPIST^F^^0;9^K:$L(X)>5!($L(X)<2) X"
^DD(63.09,.09,3)="Answer must be 2-5 characters in length."
^DD(63.09,.09,21,0)="^^2^2^2911205^"
^DD(63.09,.09,21,1,0)="These are the initials of the typist entering the"
^DD(63.09,.09,21,2,0)="cytopathology data."
^DD(63.09,.09,"DT")="2910124"
^DD(63.09,.1,0)="DATE/TIME SPECIMEN RECEIVED^RDX^^0;10^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LRH(2)),LRH(2)'=$E(X,1,3) K X W !,""Year received must be same as log-in year ("",LRH(2)+1700,"") """
^DD(63.09,.1,1,0)="^.1"
^DD(63.09,.1,1,1,0)="63^ACY^MUMPS"
^DD(63.09,.1,1,1,1)="S ^LR(""ACY"",$E(X,1,30),DA(1),DA)="""""
^DD(63.09,.1,1,1,2)="K ^LR(""ACY"",$E(X,1,30),DA(1),DA)"
^DD(63.09,.1,3)="FUTURE DATE/TIME NOT ALLOWED"
^DD(63.09,.1,4)="K DZ W ?5,""To delete accession enter '^'"",!"
^DD(63.09,.1,21,0)="^^1^1^2911205^"
^DD(63.09,.1,21,1,0)="This is the date/time the specimen was received."
^DD(63.09,.1,"DT")="2910129"
^DD(63.09,.101,0)="REVIEWED BY PATHOLOGIST^S^1:YES;0:NO;1:yes;0:no;^0;12^Q"
^DD(63.09,.101,3)="Enter 'YES' if case reviewed by pathologist."
^DD(63.09,.101,21,0)="^^2^2^2911205^"
^DD(63.09,.101,21,1,0)="YES identifies that the case has been reviewed"
^DD(63.09,.101,21,2,0)="by the pathologist."
^DD(63.09,.101,"DT")="2870804"
^DD(63.09,.11,0)="REPORT RELEASE DATE/TIME^DIX^^0;11^S %DT=""ETXR"",%DT(0)=""N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),X<$P($P(^LR(DA(1),""CY"",DA,0),U,3),""."") K X W !,""Release date must not be before completed date ("" S Y=$P(^(0),U,3) D DD^%DT W Y,"")"""
^DD(63.09,.11,1,0)="^.1"
^DD(63.09,.11,1,1,0)="63.09^AC^MUMPS"
^DD(63.09,.11,1,1,1)="D ADD^LRWOMEN"
^DD(63.09,.11,1,1,2)="D DEL^LRWOMEN"
^DD(63.09,.11,1,1,"%D",0)="^^2^2^2990219^"
^DD(63.09,.11,1,1,"%D",1,0)="This cross reference will send notification to the Women's Health Program"
^DD(63.09,.11,1,1,"%D",2,0)="when a Cytology specimen is Verified/Released from the Laboratory package."
^DD(63.09,.11,1,1,"DT")="2990219"
^DD(63.09,.11,3)="ONLY CURRENT DATE/TIME ALLOWED"
^DD(63.09,.11,4)="K DZ"
^DD(63.09,.11,21,0)="^^1^1^2950908^^^"
^DD(63.09,.11,21,1,0)="Date report was released"
^DD(63.09,.11,"DT")="2990219"
^DD(63.09,.13,0)="RELEASED BY^P200'^VA(200,^0;13^Q"
^DD(63.09,.13,21,0)="^^1^1^2930331^"
^DD(63.09,.13,21,1,0)="Name of individual who released report"
^DD(63.09,.13,"DT")="2910630"
^DD(63.09,.14,0)="TC CODE^S^1:1;2:2;3:3;4:4;5:5;6:6;7:7;8:8;9:9;0:0;^0;14^Q"
^DD(63.09,.14,21,0)="^^2^2^2920326^"
^DD(63.09,.14,21,1,0)="Tissue committee codes"
^DD(63.09,.14,21,2,0)="The meaning of each code is identified by each site."
^DD(63.09,.14,"DT")="2920326"
^DD(63.09,.15,0)="ORIGINAL RELEASE DATE^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.09,.15,21,0)="^^2^2^2900924^"
^DD(63.09,.15,21,1,0)="If report was modified after release the original release date"
^DD(63.09,.15,21,2,0)=" is kept here."
^DD(63.09,.15,"DT")="2900924"
^DD(63.09,.16,0)="TIU REFERENCE DATE/TIME - CY^63.47DA^^.05;0"
^DD(63.09,.16,21,0)="^.001^3^3^3010829^^^^"
^DD(63.09,.16,21,1,0)="This multiple stores TIU information for corresponding SF515 cytopathology"
^DD(63.09,.16,21,2,0)="reports that have been electronically signed and stored in TIU.  This"
^DD(63.09,.16,21,3,0)="information is used to access the reports in TIU."
^DD(63.09,.16,"DT")="3010828"
^DD(63.09,.17,0)="DATE REPORT MODIFIED - CY^D^^.07;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.09,.17,21,0)="^^2^2^3020107^"
^DD(63.09,.17,21,1,0)="This is the date the report was modified if it was modified after it was"
^DD(63.09,.17,21,2,0)="electronically signed/released."
^DD(63.09,.17,"DT")="3011130"
^DD(63.09,.171,0)="PERSON MODIFYING TEXT^P200'^VA(200,^.07;2^Q"
^DD(63.09,.171,21,0)="^^2^2^3020107^"
^DD(63.09,.171,21,1,0)="Stores the DUZ of the person who modified the report AFTER it was"
^DD(63.09,.171,21,2,0)="electronically signed/released."
^DD(63.09,.171,"DT")="3011130"
^DD(63.09,.172,0)="DIAGNOSIS MODIFIED^S^1:YES;0:NO;^.07;3^Q"
^DD(63.09,.172,21,0)="^^1^1^3020107^"
^DD(63.09,.172,21,1,0)="1 = Diagnosis modified AFTER report was electronically signed/released."
^DD(63.09,.172,"DT")="3011130"
^DD(63.09,.97,0)="DELAYED REPORT COMMENT^63.0997A^^97;0"
^DD(63.09,.97,21,0)="^^2^2^2930927^"
^DD(63.09,.97,21,1,0)="If a report is delayed, reason(s) for delay may be entered here. "
^DD(63.09,.97,21,2,0)="They will appear on the log book report and the clinician screen display."
^DD(63.09,.99,0)="COMMENT^63.908A^^99;0"
^DD(63.09,.99,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.09,.99,21,0)="^^1^1^2911205^^"
^DD(63.09,.99,21,1,0)="These are comments on the cytopathology data."
^DD(63.09,.99,"DT")="2840313"
^DD(63.09,1,0)="GROSS DESCRIPTION^63.91^^1;0"
^DD(63.09,1,21,0)="^^1^1^2911205^^"
^DD(63.09,1,21,1,0)="This is the gross description of the specimen."
^DD(63.09,1,"DT")="2841106"
^DD(63.09,1.1,0)="MICROSCOPIC EXAMINATION^63.911^^1.1;0"
^DD(63.09,1.1,21,0)="^^1^1^2911205^"
^DD(63.09,1.1,21,1,0)="This is the microscopic examination diagnosis."
^DD(63.09,1.1,"DT")="2930716"
^DD(63.09,1.2,0)="SUPPLEMENTARY REPORT^63.907DA^^1.2;0"
^DD(63.09,1.2,21,0)="^.001^1^1^3040205^^^"
^DD(63.09,1.2,21,1,0)="These are the supplementary reports on the specimen."
^DD(63.09,1.4,0)="CYTOPATHOLOGY DIAGNOSIS^63.903^^1.4;0"
^DD(63.09,1.4,21,0)="^^1^1^2930716^"
^DD(63.09,1.4,21,1,0)="Cytopathology diagnoses are entered here."
^DD(63.09,4,0)="DATE MICROSCOPIC EXAM MODIFIED^63.94DA^^4;0"
^DD(63.09,4,21,0)="^^2^2^2911205^^^"
^DD(63.09,4,21,1,0)="These are the dates of the modification of the microscopic"
^DD(63.09,4,21,2,0)="examination diagnosis."
^DD(63.09,4,"DT")="2930716"
^DD(63.09,5,0)="DATE DIAGNOSIS MODIFIED^63.095DA^^5;0"
^DD(63.09,5,21,0)="^^1^1^2930716^"
^DD(63.09,5,21,1,0)="This is the date of the modification of the diagnosis field."
^DD(63.09,7,0)="DATE GROSS DESCRIPTION CHANGED^63.097DA^^7;0"
^DD(63.09,7,21,0)="^^1^1^2930716^"
^DD(63.09,7,21,1,0)="These are the dates of change in the gross description field."
^DD(63.09,9,0)="QA CODE^63.099PA^^9;0"
^DD(63.09,9,12)="Selects entries with less than 3 characters"
^DD(63.09,9,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"""
^DD(63.09,10,0)="CYTOPATH ORGAN/TISSUE^63.912PA^^2;0"
^DD(63.09,10,12)="Selects when appropriate sex related organs"
^DD(63.09,10,12.1)="S DIC(""S"")=""I SEX[$P(^(0),U,3)"""
^DD(63.09,10,21,0)="^.001^1^1^3000613^^^"
^DD(63.09,10,21,1,0)="This is the organ/tissue(s) being examined."
^DD(63.09,20,0)="DESCRIPTION^63.91^^WP;0"
^DD(63.09,20,21,0)="^^1^1^2940510^"
^DD(63.09,20,21,1,0)="Word processing field for description"
^DD(63.09,80,0)="ICD DIAGNOSIS^63.901PA^^3;0"
^DD(63.09,80,21,0)="^^1^1^2911205^^"
^DD(63.09,80,21,1,0)="These are the IDC diagnosis of the specimen."
^DD(63.09,2005,0)="IMAGE^63.92005P^^2005;0"
^DD(63.09,2005,21,0)="^^3^3^2950523^"
^DD(63.09,2005,21,1,0)="Images associated with Cytopathology reports are stored in this"
^DD(63.09,2005,21,2,0)="multiple within the Cytopathology field of the Lab Data (#63)"
^DD(63.09,2005,21,3,0)="file."
^DD(63.09,"B","BRIEF CLINICAL HISTORY",.013)=""
^DD(63.09,"B","COMMENT",.99)=""
^DD(63.09,"B","CYTOPATH ACC #",.06)=""
^DD(63.09,"B","CYTOPATH ORGAN/TISSUE",10)=""
^DD(63.09,"B","CYTOPATHOLOGY DIAGNOSIS",1.4)=""
^DD(63.09,"B","CYTOTECH",.021)=""
^DD(63.09,"B","DATE DIAGNOSIS MODIFIED",5)=""
^DD(63.09,"B","DATE GROSS DESCRIPTION CHANGED",7)=""
^DD(63.09,"B","DATE MICROSCOPIC EXAM MODIFIED",4)=""
^DD(63.09,"B","DATE REPORT COMPLETED",.03)=""
^DD(63.09,"B","DATE REPORT MODIFIED - CY",.17)=""
^DD(63.09,"B","DATE/TIME SPECIMEN RECEIVED",.1)=""
^DD(63.09,"B","DATE/TIME SPECIMEN TAKEN",.01)=""
^DD(63.09,"B","DELAYED REPORT COMMENT",.97)=""
^DD(63.09,"B","DESCRIPTION",20)=""
^DD(63.09,"B","DIAGNOSIS MODIFIED",.172)=""
^DD(63.09,"B","GROSS DESCRIPTION",1)=""
^DD(63.09,"B","ICD DIAGNOSIS",80)=""
^DD(63.09,"B","IMAGE",2005)=""
^DD(63.09,"B","MICROSCOPIC EXAMINATION",1.1)=""
^DD(63.09,"B","OPERATIVE FINDINGS",.015)=""
^DD(63.09,"B","ORIGINAL RELEASE DATE",.15)=""
^DD(63.09,"B","PATHOLOGIST/CYTOTECHNOLOGIST",.02)=""
^DD(63.09,"B","PATIENT LOCATION",.08)=""
^DD(63.09,"B","PERSON MODIFYING TEXT",.171)=""
^DD(63.09,"B","PHYSICIAN",.07)=""
^DD(63.09,"B","POSTOPERATIVE DIAGNOSIS",.016)=""
^DD(63.09,"B","PREOPERATIVE DIAGNOSIS",.014)=""
^DD(63.09,"B","QA CODE",9)=""
^DD(63.09,"B","RELEASED BY",.13)=""
^DD(63.09,"B","REPORT RELEASE DATE/TIME",.11)=""
^DD(63.09,"B","REVIEWED BY PATHOLOGIST",.101)=""
^DD(63.09,"B","SPECIMEN",.012)=""
^DD(63.09,"B","SPECIMEN SUBMITTED BY",.011)=""
^DD(63.09,"B","SUPPLEMENTARY REPORT",1.2)=""
^DD(63.09,"B","TC CODE",.14)=""
^DD(63.09,"B","TIU REFERENCE DATE/TIME - CY",.16)=""
^DD(63.09,"B","TYPIST",.09)=""
^DD(63.09,"GL",0,1,.01)=""
^DD(63.09,"GL",0,2,.02)=""
^DD(63.09,"GL",0,3,.03)=""
^DD(63.09,"GL",0,4,.021)=""
^DD(63.09,"GL",0,5,.011)=""
^DD(63.09,"GL",0,6,.06)=""
^DD(63.09,"GL",0,7,.07)=""
^DD(63.09,"GL",0,8,.08)=""
^DD(63.09,"GL",0,9,.09)=""
^DD(63.09,"GL",0,10,.1)=""
^DD(63.09,"GL",0,11,.11)=""
^DD(63.09,"GL",0,12,.101)=""
^DD(63.09,"GL",0,13,.13)=""
^DD(63.09,"GL",0,14,.14)=""
^DD(63.09,"GL",0,15,.15)=""
^DD(63.09,"GL",.05,0,.16)=""
^DD(63.09,"GL",.07,1,.17)=""
^DD(63.09,"GL",.07,2,.171)=""
^DD(63.09,"GL",.07,3,.172)=""
^DD(63.09,"GL",.1,0,.012)=""
^DD(63.09,"GL",.2,0,.013)=""
^DD(63.09,"GL",.3,0,.014)=""
^DD(63.09,"GL",.4,0,.015)=""
^DD(63.09,"GL",.5,0,.016)=""
^DD(63.09,"GL",1,0,1)=""
^DD(63.09,"GL",1.1,0,1.1)=""
^DD(63.09,"GL",1.2,0,1.2)=""
^DD(63.09,"GL",1.4,0,1.4)=""
^DD(63.09,"GL",2,0,10)=""
^DD(63.09,"GL",3,0,80)=""
^DD(63.09,"GL",4,0,4)=""
^DD(63.09,"GL",5,0,5)=""
^DD(63.09,"GL",7,0,7)=""
^DD(63.09,"GL",9,0,9)=""
^DD(63.09,"GL",97,0,.97)=""
^DD(63.09,"GL",99,0,.99)=""
^DD(63.09,"GL",2005,0,2005)=""
^DD(63.09,"GL","WP",0,20)=""
^DD(63.09,"IX",.06)=""
^DD(63.09,"IX",.1)=""
^DD(63.09,"IX",.11)=""
^DD(63.09,"RQ",.01)=""
^DD(63.09,"RQ",.06)=""
^DD(63.09,"RQ",.1)=""
^DD(63.09,"SB",63.095,5)=""
^DD(63.09,"SB",63.097,7)=""
^DD(63.09,"SB",63.099,9)=""
^DD(63.09,"SB",63.0997,.97)=""
^DD(63.09,"SB",63.47,.16)=""
^DD(63.09,"SB",63.901,80)=""
^DD(63.09,"SB",63.902,.012)=""
^DD(63.09,"SB",63.903,1.4)=""
^DD(63.09,"SB",63.905,.015)=""
^DD(63.09,"SB",63.906,.016)=""
^DD(63.09,"SB",63.907,1.2)=""
^DD(63.09,"SB",63.908,.99)=""
^DD(63.09,"SB",63.91,1)=""
^DD(63.09,"SB",63.91,20)=""
^DD(63.09,"SB",63.911,1.1)=""
^DD(63.09,"SB",63.912,10)=""
^DD(63.09,"SB",63.913,.013)=""
^DD(63.09,"SB",63.914,.014)=""
^DD(63.09,"SB",63.92005,2005)=""
^DD(63.09,"SB",63.94,4)=""
^DD(63.095,0)="DATE DIAGNOSIS MODIFIED SUB-FIELD^^1^3"
^DD(63.095,0,"DT")="2930716"
^DD(63.095,0,"NM","DATE DIAGNOSIS MODIFIED")=""
^DD(63.095,0,"UP")="63.09"
^DD(63.095,.01,0)="DATE DIAGNOSIS MODIFIED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.095,.01,1,0)="^.1^^0"
^DD(63.095,.01,21,0)="^^1^1^2930716^"
^DD(63.095,.01,21,1,0)="This is the date of the modification of the diagnosis field."
^DD(63.095,.01,"DT")="2930716"
^DD(63.095,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.095,.02,"DT")="2930716"
^DD(63.095,1,0)="PREMODIFICATION TEXT^63.0951^^1;0"
^DD(63.095,1,21,0)="^^1^1^2930716^"
^DD(63.095,1,21,1,0)="This is the premodification text."
^DD(63.095,"B","DATE DIAGNOSIS MODIFIED",.01)=""
^DD(63.095,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.095,"B","PREMODIFICATION TEXT",1)=""
^DD(63.095,"GL",0,1,.01)=""
^DD(63.095,"GL",0,2,.02)=""
^DD(63.095,"GL",1,0,1)=""
^DD(63.095,"SB",63.0951,1)=""
^DD(63.0951,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.0951,0,"DT")="2930716"
^DD(63.0951,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.0951,0,"UP")="63.095"
^DD(63.0951,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.0951,.01,"DT")="2930716"
^DD(63.0951,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.0951,"GL",0,1,.01)=""
^DD(63.097,0)="DATE GROSS DESCRIPTION CHANGED SUB-FIELD^^1^3"
^DD(63.097,0,"DT")="2930716"
^DD(63.097,0,"NM","DATE GROSS DESCRIPTION CHANGED")=""
^DD(63.097,0,"UP")="63.09"
^DD(63.097,.01,0)="DATE GROSS DESCRIPTION CHANGED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.097,.01,1,0)="^.1^^0"
^DD(63.097,.01,21,0)="^^1^1^2930716^"
^DD(63.097,.01,21,1,0)="These are the dates of change in the gross description field."
^DD(63.097,.01,"DT")="2930716"
^DD(63.097,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.097,.02,21,0)="^^1^1^2930716^"
^DD(63.097,.02,21,1,0)="User who changes text."
^DD(63.097,.02,"DT")="2930716"
^DD(63.097,1,0)="PREMODIFICATION TEXT^63.0971^^1;0"
^DD(63.097,1,21,0)="^^1^1^2930716^"
^DD(63.097,1,21,1,0)="This is the premodification text."
^DD(63.097,"B","DATE GROSS DESCRIPTION CHANGED",.01)=""
^DD(63.097,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.097,"B","PREMODIFICATION TEXT",1)=""
^DD(63.097,"GL",0,1,.01)=""
^DD(63.097,"GL",0,2,.02)=""
^DD(63.097,"GL",1,0,1)=""
^DD(63.097,"SB",63.0971,1)=""
^DD(63.0971,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.0971,0,"DT")="2930716"
^DD(63.0971,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.0971,0,"UP")="63.097"
^DD(63.0971,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.0971,.01,"DT")="2930716"
^DD(63.0971,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.0971,"GL",0,1,.01)=""
^DD(63.099,0)="QA CODE SUB-FIELD^^.01^1"
^DD(63.099,0,"NM","QA CODE")=""
^DD(63.099,0,"UP")="63.09"
^DD(63.099,.01,0)="QA CODE^M*P62.5'X^LAB(62.5,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.099,.01,1,0)="^.1^^0"
^DD(63.099,.01,3)="QA codes must be less than 3 characters."
^DD(63.099,.01,12)="Selects entries with less than 3 characters"
^DD(63.099,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)="""",$L($P(^(0),U))<3"""
^DD(63.099,.01,"DT")="2900916"
^DD(63.099,"B","QA CODE",.01)=""
^DD(63.099,"GL",0,1,.01)=""
^DD(63.0997,0)="DELAYED REPORT COMMENT SUB-FIELD^^.01^1"
^DD(63.0997,0,"DT")="2930927"
^DD(63.0997,0,"NM","DELAYED REPORT COMMENT")=""
^DD(63.0997,0,"UP")="63.09"
^DD(63.0997,.01,0)="DELAYED REPORT COMMENT^MF^^0;1^K:$L(X)>75!($L(X)<1) X"
^DD(63.0997,.01,1,0)="^.1^^0"
^DD(63.0997,.01,3)="Answer must be 1-75 characters in length."
^DD(63.0997,.01,21,0)="^^2^2^2930927^"
^DD(63.0997,.01,21,1,0)="If a report is delayed, reason(s) for delay may be entered here. "
^DD(63.0997,.01,21,2,0)="They will appear on the log book report and the clinician screen display."
^DD(63.0997,.01,"DT")="2930927"
^DD(63.0997,"B","DELAYED REPORT COMMENT",.01)=""
^DD(63.0997,"GL",0,1,.01)=""
^DD(63.1,0)="PRELIMINARY PARASITE COMMENT SUB-FIELD^NL^.01^1"
^DD(63.1,0,"NM","PRELIMINARY PARASITE COMMENT")=""
^DD(63.1,0,"UP")="63.05"
^DD(63.1,.01,0)="PRELIMINARY PARASITE COMMENT^MFX^^0;1^S Q9=""1,68,KP"" D COM^LRNUM"
^DD(63.1,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.1,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KP""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.1,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.1,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.1,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""P""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.1,.01,21,0)="^^2^2^2911203^"
^DD(63.1,.01,21,1,0)="This is a comment on the preliminary parasitology"
^DD(63.1,.01,21,2,0)="report."
^DD(63.1,.01,"DT")="2870503"
^DD(63.1,"B","PRELIMINARY PARASITE COMMENT",.01)=""
^DD(63.1,"GL",0,1,.01)=""
^DD(63.101,0)="TIU REFERENCE DATE/TIME - AU SUB-FIELD^^2^3"
^DD(63.101,0,"DT")="3030116"
^DD(63.101,0,"IX","B",63.101,.01)=""
^DD(63.101,0,"IX","C",63.101,1)=""
^DD(63.101,0,"NM","TIU REFERENCE DATE/TIME - AU")=""
^DD(63.101,0,"UP")="63"
^DD(63.101,.01,0)="TIU REFERENCE DATE/TIME - AU^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.101,.01,1,0)="^.1"
^DD(63.101,.01,1,1,0)="63.101^B"
^DD(63.101,.01,1,1,1)="S ^LR(DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(63.101,.01,1,1,2)="K ^LR(DA(1),101,""B"",$E(X,1,30),DA)"
^DD(63.101,.01,21,0)="^.001^3^3^3011130^^^"
^DD(63.101,.01,21,1,0)="This is the date and time that the autopsy SF515 was stored in TIU.  It will"
^DD(63.101,.01,21,2,0)="match the REFERENCE DATE (#1301) field of the corresponding document in the"
^DD(63.101,.01,21,3,0)="TIU DOCUMENT (#8925) file."
^DD(63.101,.01,"DEL",1,0)="I"
^DD(63.101,.01,"DT")="3010829"
^DD(63.101,1,0)="TIU ENTRY POINTER - AU^P8925'^TIU(8925,^0;2^Q"
^DD(63.101,1,1,0)="^.1"
^DD(63.101,1,1,1,0)="63.101^C"
^DD(63.101,1,1,1,1)="S ^LR(DA(1),101,""C"",$E(X,1,30),DA)="""""
^DD(63.101,1,1,1,2)="K ^LR(DA(1),101,""C"",$E(X,1,30),DA)"
^DD(63.101,1,1,1,"DT")="3010727"
^DD(63.101,1,21,0)="^.001^3^3^3010829^^"
^DD(63.101,1,21,1,0)="This field is a pointer to the TIU DOCUMENT (#8925) file.  It stores the"
^DD(63.101,1,21,2,0)="pointer for an autopsy SF515 that has been electronically signed and stored in"
^DD(63.101,1,21,3,0)="TIU."
^DD(63.101,1,"DEL",1,0)="I"
^DD(63.101,1,"DT")="3010829"
^DD(63.101,2,0)="TIU CHECKSUM^FI^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(63.101,2,21,0)="^^5^5^3030116^"
^DD(63.101,2,21,1,0)="This field stores the checksum that is calculated at the time the report "
^DD(63.101,2,21,2,0)="version is initially stored in TIU.  It will be used for comparison in future "
^DD(63.101,2,21,3,0)="print/view requests.  A new checksum will be calculated whenever the report"
^DD(63.101,2,21,4,0)="version is printed/viewed, and matching checksums are proof that the report"
^DD(63.101,2,21,5,0)="version has not been illegally altered."
^DD(63.101,2,"DT")="3030117"
^DD(63.101,"B","TIU CHECKSUM",2)=""
^DD(63.101,"B","TIU ENTRY POINTER - AU",1)=""
^DD(63.101,"B","TIU REFERENCE DATE/TIME - AU",.01)=""
^DD(63.101,"GL",0,1,.01)=""
^DD(63.101,"GL",0,2,1)=""
^DD(63.101,"GL",0,3,2)=""
^DD(63.101,"IX",.01)=""
^DD(63.101,"IX",1)=""
^DD(63.11,0)="PRELIMINARY MYCOLOGY COMMENT SUB-FIELD^NL^.01^1"
^DD(63.11,0,"NM","PRELIMINARY MYCOLOGY COMMENT")=""
^DD(63.11,0,"UP")="63.05"
^DD(63.11,.01,0)="PRELIMINARY MYCOLOGY COMMENT^MFX^^0;1^S Q9=""1,68,KF"" D COM^LRNUM"
^DD(63.11,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.11,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KF""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.11,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.11,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.11,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""F""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.11,.01,"DT")="2870503"
^DD(63.11,"B","PRELIMINARY MYCOLOGY COMMENT",.01)=""
^DD(63.11,"GL",0,1,.01)=""
^DD(63.111,0)="MYCOLOGY TEST(S) SUB-FIELD^^.01^1"
^DD(63.111,0,"NM","MYCOLOGY TEST(S)")=""
^DD(63.111,0,"UP")="63.05"
^DD(63.111,.01,0)="MYCOLOGY TEST(S)^F^^0;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.111,.01,1,0)="^.1^^0"
^DD(63.111,.01,3)="Answer must be 2-68 characters in length."
^DD(63.111,.01,"DT")="2890330"
^DD(63.111,"B","MYCOLOGY TEST(S)",.01)=""
^DD(63.111,"GL",0,1,.01)=""
^DD(63.12,0)="ORGAN/TISSUE SUB-FIELD^NL^5^8"
^DD(63.12,0,"NM","ORGAN/TISSUE")=""
^DD(63.12,0,"UP")="63.08"
^DD(63.12,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.12,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.12,.001,21,0)="^^1^1^2911204^"
^DD(63.12,.001,21,1,0)="This is the entry number of the organ/tissue(s)."
^DD(63.12,.001,"DT")="2840430"
^DD(63.12,.01,0)="ORGAN/TISSUE^M*P61'X^LAB(61,^0;1^S:$E(X,1,2)=""T-"" X=$E(X,3,$L(X)) S SEX=$S('$D(SEX):""MF"",SEX="""":""MF"",1:SEX) S DIC(0)=""EMO"",DIC(""S"")=""I SEX[$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.12,.01,1,0)="^.1^^0"
^DD(63.12,.01,3)="If entering SNOMED code you may enter the prefix 'T-' (not necessary)"
^DD(63.12,.01,4)="W !,""Selects when appropriate Sex related organs."",!,""Ex. A uterus should not be selected for a male patient !!"",!"
^DD(63.12,.01,12.2)="I $P(^(0),U,3)=SEX!($P(^(0),U,3)="""")"
^DD(63.12,.01,21,0)="^.001^1^1^3010724^^"
^DD(63.12,.01,21,1,0)="This is the organ/tissue(s) being examined."
^DD(63.12,.01,"DT")="2870919"
^DD(63.12,1,0)="FUNCTION^63.85PA^^3;0"
^DD(63.12,1,21,0)="^.001^2^2^3010724^^^"
^DD(63.12,1,21,1,0)="These are the functions associated with this"
^DD(63.12,1,21,2,0)="organ/tissue(s)."
^DD(63.12,1.5,0)="PROCEDURE^63.82PA^^4;0"
^DD(63.12,1.5,21,0)="^^2^2^2911204^^"
^DD(63.12,1.5,21,1,0)="These are the procedures associated with this"
^DD(63.12,1.5,21,2,0)="organ/tissue(s)."
^DD(63.12,2,0)="WEIGHT (gm)^NJ8,3X^^0;3^S Q9="".001,9999,3"" D ^LRNUM"
^DD(63.12,2,3)="TYPE A NUMBER BETWEEN .001 AND 9999"
^DD(63.12,2,21,0)="^^1^1^2911204^"
^DD(63.12,2,21,1,0)="This is the weight of the specimen."
^DD(63.12,2,"DT")="2880524"
^DD(63.12,3,0)="DISEASE^63.15PA^^1;0"
^DD(63.12,3,21,0)="^^2^2^2911204^"
^DD(63.12,3,21,1,0)="These are the diseases associated with this"
^DD(63.12,3,21,2,0)="organ/tissue(s)."
^DD(63.12,4,0)="MORPHOLOGY^63.16PA^^2;0"
^DD(63.12,4,21,0)="^^2^2^2911204^"
^DD(63.12,4,21,1,0)="These are the morphologies associated with this"
^DD(63.12,4,21,2,0)="organ/tissue(s)."
^DD(63.12,5,0)="SPECIAL STUDIES^63.819SAI^^5;0"
^DD(63.12,5,21,0)="^^2^2^2911204^^"
^DD(63.12,5,21,1,0)="These are special studies associated with this"
^DD(63.12,5,21,2,0)="organ/tissue(s)."
^DD(63.12,"B","DISEASE",3)=""
^DD(63.12,"B","FUNCTION",1)=""
^DD(63.12,"B","MORPHOLOGY",4)=""
^DD(63.12,"B","NUMBER",.001)=""
^DD(63.12,"B","ORGAN/TISSUE",.01)=""
^DD(63.12,"B","PROCEDURE",1.5)=""
^DD(63.12,"B","SPECIAL STUDIES",5)=""
^DD(63.12,"B","WEIGHT (gm)",2)=""
^DD(63.12,"GL",0,1,.01)=""
^DD(63.12,"GL",0,3,2)=""
^DD(63.12,"GL",1,0,3)=""
^DD(63.12,"GL",2,0,4)=""
^DD(63.12,"GL",3,0,1)=""
^DD(63.12,"GL",4,0,1.5)=""
^DD(63.12,"GL",5,0,5)=""
^DD(63.12,"SB",63.15,3)=""
^DD(63.12,"SB",63.16,4)=""
^DD(63.12,"SB",63.819,5)=""
^DD(63.12,"SB",63.82,1.5)=""
^DD(63.12,"SB",63.85,1)=""
^DD(63.13,0)="RBC ANTIGENS PRESENT(other) SUB-FIELD^NL^.02^2"
^DD(63.13,0,"IX","B",63.13,.01)=""
^DD(63.13,0,"NM","RBC ANTIGENS PRESENT(other)")=""
^DD(63.13,0,"UP")="63"
^DD(63.13,.01,0)="RBC ANTIGENS PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(63.13,.01,.1)="RBC antigens present other than ABO & Rho(D)"
^DD(63.13,.01,1,0)="^.1"
^DD(63.13,.01,1,1,0)="63.13^B"
^DD(63.13,.01,1,1,1)="S ^LR(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(63.13,.01,1,1,2)="K ^LR(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(63.13,.01,21,0)="^^2^2^2911126^^"
^DD(63.13,.01,21,1,0)="These are red blood cell antigens present other than ABO and"
^DD(63.13,.01,21,2,0)="Rho(D)."
^DD(63.13,.01,"DT")="2850811"
^DD(63.13,.02,0)="RBC ANTIGENS PRESENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(63.13,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.13,.02,21,0)="^^1^1^2911126^^"
^DD(63.13,.02,21,1,0)="This is a comment on the red blood cell antigen present."
^DD(63.13,.02,"DT")="2860602"
^DD(63.13,"B","RBC ANTIGENS PRESENT",.01)=""
^DD(63.13,"B","RBC ANTIGENS PRESENT COMMENT",.02)=""
^DD(63.13,"GL",0,1,.01)=""
^DD(63.13,"GL",0,2,.02)=""
^DD(63.13,"IX",.01)=""
^DD(63.14,0)="HLA ANTIGENS PRESENT SUB-FIELD^NL^.02^2"
^DD(63.14,0,"IX","B",63.14,.01)=""
^DD(63.14,0,"NM","HLA ANTIGENS PRESENT")=""
^DD(63.14,0,"UP")="63"
^DD(63.14,.01,0)="HLA ANTIGEN PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.14,.01,1,0)="^.1^^0"
^DD(63.14,.01,1,1,0)="63.14^B"
^DD(63.14,.01,1,1,1)="S ^LR(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.14,.01,1,1,2)="K ^LR(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.14,.01,21,0)="^^1^1^2920203^^^"
^DD(63.14,.01,21,1,0)="This is the HLA antigen associated with this patient."
^DD(63.14,.01,"DT")="2860603"
^DD(63.14,.02,0)="HLA ANTIGEN PRESENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(63.14,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.14,.02,21,0)="^^1^1^2920203^^^"
^DD(63.14,.02,21,1,0)="This is a comment about the patient's HLA antigen."
^DD(63.14,.02,"DT")="2860603"
^DD(63.14,"B","HLA ANTIGEN PRESENT",.01)=""
^DD(63.14,"B","HLA ANTIGEN PRESENT COMMENT",.02)=""
^DD(63.14,"GL",0,1,.01)=""
^DD(63.14,"GL",0,2,.02)=""
^DD(63.14,"IX",.01)=""
^DD(63.141,0)="HLA ANTIGENS ABSENT SUB-FIELD^^.02^2"
^DD(63.141,0,"NM","HLA ANTIGENS ABSENT")=""
^DD(63.141,0,"UP")="63"
^DD(63.141,.01,0)="HLA ANTIGENS ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.141,.01,1,0)="^.1^^0"
^DD(63.141,.01,21,0)="^^2^2^2920203^^^"
^DD(63.141,.01,21,1,0)="This is the HLA antigen NOT associated with"
^DD(63.141,.01,21,2,0)="this patient."
^DD(63.141,.01,"DT")="2860603"
^DD(63.141,.02,0)="HLA ANTIGEN ABSENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(63.141,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.141,.02,21,0)="^^2^2^2920203^^"
^DD(63.141,.02,21,1,0)="This is a comment on the antigen absent for this"
^DD(63.141,.02,21,2,0)="patient."
^DD(63.141,.02,"DT")="2860603"
^DD(63.141,"B","HLA ANTIGEN ABSENT COMMENT",.02)=""
^DD(63.141,"B","HLA ANTIGENS ABSENT",.01)=""
^DD(63.141,"GL",0,1,.01)=""
^DD(63.141,"GL",0,2,.02)=""
^DD(63.15,0)="DISEASE SUB-FIELD^NL^.01^1"
^DD(63.15,0,"NM","DISEASE")=""
^DD(63.15,0,"UP")="63.12"
^DD(63.15,.01,0)="DISEASE^M*P61.4'X^LAB(61.4,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.15,.01,3)="Enter SNOMED code without 'D-' or 'D'"
^DD(63.15,.01,21,0)="^^2^2^2911204^"
^DD(63.15,.01,21,1,0)="This is a disease associated with this"
^DD(63.15,.01,21,2,0)="organ/tissue(s)."
^DD(63.15,.01,"DT")="2870919"
^DD(63.15,"B","DISEASE",.01)=""
^DD(63.15,"GL",0,1,.01)=""
^DD(63.16,0)="MORPHOLOGY SUB-FIELD^NL^1^2"
^DD(63.16,0,"NM","MORPHOLOGY")=""
^DD(63.16,0,"UP")="63.12"
^DD(63.16,.01,0)="MORPHOLOGY^M*P61.1'X^LAB(61.1,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.16,.01,1,0)="^.1^^0"
^DD(63.16,.01,3)="Enter SNOMED code without 'M-' or 'M'"
^DD(63.16,.01,21,0)="^^2^2^2911204^"
^DD(63.16,.01,21,1,0)="This is a morphology associated with this"
^DD(63.16,.01,21,2,0)="organ/tissue(s)."
^DD(63.16,.01,"DT")="2870919"
^DD(63.16,1,0)="ETIOLOGY^63.17PA^^1;0"
^DD(63.16,1,21,0)="^^2^2^2911204^"
^DD(63.16,1,21,1,0)="These are the etiologies associated with this"
^DD(63.16,1,21,2,0)="organ/tissue(s)."
^DD(63.16,"B","ETIOLOGY",1)=""
^DD(63.16,"B","MORPHOLOGY",.01)=""
^DD(63.16,"GL",0,1,.01)=""
^DD(63.16,"GL",1,0,1)=""
^DD(63.16,"SB",63.17,1)=""
^DD(63.17,0)="ETIOLOGY SUB-FIELD^NL^.01^1"
^DD(63.17,0,"NM","ETIOLOGY")=""
^DD(63.17,0,"UP")="63.16"
^DD(63.17,.01,0)="ETIOLOGY^M*P61.2'X^LAB(61.2,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.17,.01,3)="Enter SNOMED code without 'E-' or 'E'"
^DD(63.17,.01,21,0)="^^2^2^2911204^"
^DD(63.17,.01,21,1,0)="This is an etiology associated with this"
^DD(63.17,.01,21,2,0)="organ/tissue(s)"
^DD(63.17,.01,"DT")="2870919"
^DD(63.17,"B","ETIOLOGY",.01)=""
^DD(63.17,"GL",0,1,.01)=""
^DD(63.172,0)="TRANSFUSION REACTION COMMENT SUB-FIELD^^.01^1"
^DD(63.172,0,"DT")="2921213"
^DD(63.172,0,"NM","TRANSFUSION REACTION COMMENT")=""
^DD(63.172,0,"UP")="63.0171"
^DD(63.172,.01,0)="TRANSFUSION REACTION COMMENT^MF^^0;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.172,.01,1,0)="^.1^^0"
^DD(63.172,.01,3)="Answer must be 2-68 characters in length."
^DD(63.172,.01,21,0)="^^2^2^2921213^"
^DD(63.172,.01,21,1,0)="Comments related to a transfusion reaction such as suspected "
^DD(63.172,.01,21,2,0)="component or units"
^DD(63.172,.01,"DT")="2921213"
^DD(63.172,"B","TRANSFUSION REACTION COMMENT",.01)=""
^DD(63.172,"GL",0,1,.01)=""
^DD(63.18,0)="PRELIMINARY TB COMMENT SUB-FIELD^NL^.01^1"
^DD(63.18,0,"NM","PRELIMINARY TB COMMENT")=""
^DD(63.18,0,"UP")="63.05"
^DD(63.18,.01,0)="PRELIMINARY TB COMMENT^MFX^^0;1^S Q9=""1,68,KT"" D COM^LRNUM"
^DD(63.18,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.18,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KT""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.18,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.18,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.18,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""T""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.18,.01,21,0)="^^1^1^2911204^^"
^DD(63.18,.01,21,1,0)="This is a preliminary TB comment."
^DD(63.18,.01,"DT")="2870503"
^DD(63.18,"B","PRELIMINARY TB COMMENT",.01)=""
^DD(63.18,"GL",0,1,.01)=""
^DD(63.181,0)="TB TEST(S) SUB-FIELD^^.01^1"
^DD(63.181,0,"NM","TB TEST(S)")=""
^DD(63.181,0,"UP")="63.05"
^DD(63.181,.01,0)="TB TEST(S)^F^^0;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.181,.01,1,0)="^.1^^0"
^DD(63.181,.01,3)="Answer must be 2-68 characters in length."
^DD(63.181,.01,"DT")="2890330"
^DD(63.181,"B","TB TEST(S)",.01)=""
^DD(63.181,"GL",0,1,.01)=""
^DD(63.186,0)="TRANSFUSION COMMENT SUB-FIELD^NL^.01^1"
^DD(63.186,0,"NM","TRANSFUSION COMMENT")=""
^DD(63.186,0,"UP")="63.017"
^DD(63.186,.01,0)="TRANSFUSION COMMENT^MFX^^0;1^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""JR"" D ^LRUB"
^DD(63.186,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.186,.01,4)="S L(1)=""JR"" D Q^LRUB"
^DD(63.186,.01,21,0)="^^1^1^2920203^^^"
^DD(63.186,.01,21,1,0)="This is a comment on the transfusion."
^DD(63.186,.01,"DT")="2870519"
^DD(63.186,"B","TRANSFUSION COMMENT",.01)=""
^DD(63.186,"GL",0,1,.01)=""
^DD(63.19,0)="TIU REFERENCE DATE/TIME - SP SUB-FIELD^^2^3"
^DD(63.19,0,"DT")="3030116"
^DD(63.19,0,"IX","B",63.19,.01)=""
^DD(63.19,0,"IX","C",63.19,1)=""
^DD(63.19,0,"NM","TIU REFERENCE DATE/TIME - SP")=""
^DD(63.19,0,"UP")="63.08"
^DD(63.19,.01,0)="TIU REFERENCE DATE/TIME - SP^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.19,.01,1,0)="^.1"
^DD(63.19,.01,1,1,0)="63.19^B"
^DD(63.19,.01,1,1,1)="S ^LR(DA(2),""SP"",DA(1),.05,""B"",$E(X,1,30),DA)="""""
^DD(63.19,.01,1,1,2)="K ^LR(DA(2),""SP"",DA(1),.05,""B"",$E(X,1,30),DA)"
^DD(63.19,.01,21,0)="^.001^3^3^3030116^^^^"
^DD(63.19,.01,21,1,0)="This is the date and time that the surgical pathology SF515 was stored in TIU."
^DD(63.19,.01,21,2,0)="It will match the REFERENCE DATE (#1301) field of the corresponding document"
^DD(63.19,.01,21,3,0)="in the TIU DOCUMENT (#8925) file."
^DD(63.19,.01,"DEL",1,0)="I 1"
^DD(63.19,.01,"DT")="3010829"
^DD(63.19,1,0)="TIU ENTRY POINTER - SP^P8925'^TIU(8925,^0;2^Q"
^DD(63.19,1,1,0)="^.1"
^DD(63.19,1,1,1,0)="63.19^C"
^DD(63.19,1,1,1,1)="S ^LR(DA(2),""SP"",DA(1),.05,""C"",$E(X,1,30),DA)="""""
^DD(63.19,1,1,1,2)="K ^LR(DA(2),""SP"",DA(1),.05,""C"",$E(X,1,30),DA)"
^DD(63.19,1,1,1,"DT")="3010726"
^DD(63.19,1,21,0)="^.001^3^3^3010829^^"
^DD(63.19,1,21,1,0)="This field is a pointer to the TIU DOCUMENT (#8925) file.  It stores the"
^DD(63.19,1,21,2,0)="pointer for a surgical pathology SF515 that has been electronically signed and"
^DD(63.19,1,21,3,0)="stored in TIU."
^DD(63.19,1,"DEL",1,0)="I 1"
^DD(63.19,1,"DT")="3010829"
^DD(63.19,2,0)="TIU CHECKSUM - SP^FI^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(63.19,2,3)=""
^DD(63.19,2,21,0)="^.001^5^5^3030117^^^"
^DD(63.19,2,21,1,0)="This field stores the checksum that is calculated at the time the report "
^DD(63.19,2,21,2,0)="version is initially stored in TIU.  It will be used for comparison in future "
^DD(63.19,2,21,3,0)="print/view requests.  A new checksum will be calculated whenever the report"
^DD(63.19,2,21,4,0)="version is printed/viewed, and matching checksums are proof that the report"
^DD(63.19,2,21,5,0)="version has not been illegally altered."
^DD(63.19,2,"DT")="3030117"
^DD(63.19,"B","TIU CHECKSUM - SP",2)=""
^DD(63.19,"B","TIU ENTRY POINTER - SP",1)=""
^DD(63.19,"B","TIU REFERENCE DATE/TIME - SP",.01)=""
^DD(63.19,"GL",0,1,.01)=""
^DD(63.19,"GL",0,2,1)=""
^DD(63.19,"GL",0,3,2)=""
^DD(63.19,"IX",.01)=""
^DD(63.19,"IX",1)=""
^DD(63.199,0)="SPECIMEN COMMENT SUB-FIELD^^.01^1"
^DD(63.199,0,"NM","SPECIMEN COMMENT")=""
^DD(63.199,0,"UP")="63.01"
^DD(63.199,.01,0)="SPECIMEN COMMENT^MF^^0;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.199,.01,1,0)="^.1^^0"
^DD(63.199,.01,3)="Answer must be 2-68 characters in length."
^DD(63.199,.01,21,0)="^^1^1^2911203^^"
^DD(63.199,.01,21,1,0)="This is a comment on the specimen."
^DD(63.199,.01,"DEL",1,0)="I '$D(^XUSEC(""LRBLSUPER"",DUZ))"
^DD(63.199,.01,"DT")="2890418"
^DD(63.199,"B","SPECIMEN COMMENT",.01)=""
^DD(63.199,"GL",0,1,.01)=""
^DD(63.2,0)="AUTOPSY ORGAN/TISSUE SUB-FIELD^NL^2005.1^9"
^DD(63.2,0,"DT")="2950523"
^DD(63.2,0,"IX","B",63.2,.01)=""
^DD(63.2,0,"NM","AUTOPSY ORGAN/TISSUE")=""
^DD(63.2,0,"UP")="63"
^DD(63.2,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.2,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(63.2,.001,21,0)="^^2^2^2911205^"
^DD(63.2,.001,21,1,0)="This is the entry number of the autopsy"
^DD(63.2,.001,21,2,0)="organ/tissue(s) being examined."
^DD(63.2,.001,"DT")="2840806"
^DD(63.2,.01,0)="AUTOPSY ORGAN/TISSUE^M*P61'X^LAB(61,^0;1^S:$E(X,1,2)=""T-1"" X=$E(X,3,$L(X)) S SEX=$S('$D(SEX):""MF"",SEX="""":""MF"",1:SEX) S DIC(0)=""EMO"",DIC(""S"")=""I SEX[$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.2,.01,1,0)="^.1"
^DD(63.2,.01,1,1,0)="63.2^B"
^DD(63.2,.01,1,1,1)="S ^LR(DA(1),""AY"",""B"",$E(X,1,30),DA)="""""
^DD(63.2,.01,1,1,2)="K ^LR(DA(1),""AY"",""B"",$E(X,1,30),DA)"
^DD(63.2,.01,3)="If entering SNOMED code prefix ""T-"" may be used (not necessary)"
^DD(63.2,.01,4)="W !,""Selects when appropriate sex specific organ or tissue."""
^DD(63.2,.01,21,0)="^^1^1^2911205^"
^DD(63.2,.01,21,1,0)="This is the autopsy organ/tissue(s) being examined."
^DD(63.2,.01,"DT")="2870919"
^DD(63.2,1,0)="FUNCTION^63.25PA^^3;0"
^DD(63.2,1,21,0)="^^2^2^2911205^^"
^DD(63.2,1,21,1,0)="These are the functions associated with the"
^DD(63.2,1,21,2,0)="organ/tissue(s)."
^DD(63.2,1.5,0)="PROCEDURE^63.24PA^^4;0"
^DD(63.2,1.5,21,0)="^^2^2^2911205^"
^DD(63.2,1.5,21,1,0)="These are the procedures associated with this"
^DD(63.2,1.5,21,2,0)="organ/tissue(s)."
^DD(63.2,3,0)="DISEASE^63.21PA^^1;0"
^DD(63.2,3,21,0)="^^2^2^2911205^"
^DD(63.2,3,21,1,0)="These are the diseases associated with this"
^DD(63.2,3,21,2,0)="organ/tissue(s)."
^DD(63.2,4,0)="MORPHOLOGY^63.22PA^^2;0"
^DD(63.2,4,21,0)="^^2^2^2911205^"
^DD(63.2,4,21,1,0)="These are the morphologies associated with this"
^DD(63.2,4,21,2,0)="organ/tissue(s)."
^DD(63.2,5,0)="SPECIAL STUDIES^63.26SA^^5;0"
^DD(63.2,5,21,0)="^^2^2^2911205^^"
^DD(63.2,5,21,1,0)="These are special studies associated with this"
^DD(63.2,5,21,2,0)="organ/tissue(s)."
^DD(63.2,2005,0)="IMAGE (GROSS)^63.28P^^2005;0"
^DD(63.2,2005,21,0)="^^3^3^2950523^"
^DD(63.2,2005,21,1,0)="Images associated with Autopsy Organ/Tissue reports are stored in this"
^DD(63.2,2005,21,2,0)="multiple within the Autopsy Organ/Tissue field of the Lab Data (#63)"
^DD(63.2,2005,21,3,0)="file."
^DD(63.2,2005.1,0)="IMAGE (MICROSCOPIC)^63.45P^^2005.1;0"
^DD(63.2,2005.1,21,0)="^^3^3^2950523^"
^DD(63.2,2005.1,21,1,0)="Images associated with Autopsy Organ/Tissue reports are stored in this"
^DD(63.2,2005.1,21,2,0)="multiple within the Autopsy Organ/Tissue field of the Lab Data (#63)"
^DD(63.2,2005.1,21,3,0)="file."
^DD(63.2,"B","AUTOPSY ORGAN/TISSUE",.01)=""
^DD(63.2,"B","DISEASE",3)=""
^DD(63.2,"B","FUNCTION",1)=""
^DD(63.2,"B","IMAGE (GROSS)",2005)=""
^DD(63.2,"B","IMAGE (MICROSCOPIC)",2005.1)=""
^DD(63.2,"B","MORPHOLOGY",4)=""
^DD(63.2,"B","NUMBER",.001)=""
^DD(63.2,"B","PROCEDURE",1.5)=""
^DD(63.2,"B","SPECIAL STUDIES",5)=""
^DD(63.2,"GL",0,1,.01)=""
^DD(63.2,"GL",1,0,3)=""
^DD(63.2,"GL",2,0,4)=""
^DD(63.2,"GL",3,0,1)=""
^DD(63.2,"GL",4,0,1.5)=""
^DD(63.2,"GL",5,0,5)=""
^DD(63.2,"GL",2005,0,2005)=""
^DD(63.2,"GL",2005.1,0,2005.1)=""
^DD(63.2,"IX",.01)=""
^DD(63.2,"SB",63.21,3)=""
^DD(63.2,"SB",63.22,4)=""
^DD(63.2,"SB",63.24,1.5)=""
^DD(63.2,"SB",63.25,1)=""
^DD(63.2,"SB",63.26,5)=""
^DD(63.2,"SB",63.28,2005)=""
^DD(63.2,"SB",63.45,2005.1)=""
^DD(63.201,0)="GROSS DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.201,0,"NM","GROSS DESCRIPTION")=""
^DD(63.201,0,"UP")="63.02"
^DD(63.201,.01,0)="GROSS DESCRIPTION^W^^0;1^Q"
^DD(63.201,.01,"DT")="2850302"
^DD(63.201,"B","GROSS DESCRIPTION",.01)=""
^DD(63.201,"GL",0,1,.01)=""
^DD(63.202,0)="SPECIMEN SUB-FIELD^NL^1^2"
^DD(63.202,0,"DT")="3030306"
^DD(63.202,0,"NM","SPECIMEN")=""
^DD(63.202,0,"UP")="63.02"
^DD(63.202,.01,0)="SPECIMEN^MF^^0;1^K:$L(X)>75!($L(X)<2) X"
^DD(63.202,.01,3)="ANSWER MUST BE 2-75 CHARACTERS IN LENGTH"
^DD(63.202,.01,21,0)="^^1^1^2911127^"
^DD(63.202,.01,21,1,0)="This is the specimen submitted for testing."
^DD(63.202,.01,"DT")="2870803"
^DD(63.202,1,0)="EPON BLOCK^63.2021A^^1;0"
^DD(63.202,1,21,0)="^^1^1^2911210^"
^DD(63.202,1,21,1,0)="Identification of epon block prepared from specimen."
^DD(63.202,"B","EPON BLOCK",1)=""
^DD(63.202,"B","SPECIMEN",.01)=""
^DD(63.202,"GL",0,1,.01)=""
^DD(63.202,"GL",1,0,1)=""
^DD(63.202,"SB",63.2021,1)=""
^DD(63.2021,0)="EPON BLOCK SUB-FIELD^^1^4"
^DD(63.2021,0,"DT")="2930422"
^DD(63.2021,0,"IX","B",63.2021,.01)=""
^DD(63.2021,0,"NM","EPON BLOCK")=""
^DD(63.2021,0,"UP")="63.202"
^DD(63.2021,.01,0)="EPON BLOCK^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(63.2021,.01,1,0)="^.1"
^DD(63.2021,.01,1,1,0)="63.2021^B"
^DD(63.2021,.01,1,1,1)="S ^LR(DA(3),""EM"",DA(2),.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(63.2021,.01,1,1,2)="K ^LR(DA(3),""EM"",DA(2),.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(63.2021,.01,3)="Answer must be 1-9 characters in length."
^DD(63.2021,.01,21,0)="^^1^1^2911210^"
^DD(63.2021,.01,21,1,0)="Identification of epon block prepared from specimen."
^DD(63.2021,.01,"DT")="2911210"
^DD(63.2021,.02,0)="DATE/TIME BLOCK PREPARED^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.2021,.02,21,0)="^^1^1^2911210^"
^DD(63.2021,.02,21,1,0)="Date/time epon block prepared.  Used for workload recording."
^DD(63.2021,.02,"DT")="2911210"
^DD(63.2021,.03,0)="BLOCK COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(63.2021,.03,21,0)="^^1^1^2911210^"
^DD(63.2021,.03,21,1,0)="If block counted for workload a 'YES' is entered."
^DD(63.2021,.03,"DT")="2911210"
^DD(63.2021,1,0)="EM PROCEDURE^63.20211PA^^1;0"
^DD(63.2021,1,12)="Selects only EM procedures (thick &/or thin sections)"
^DD(63.2021,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""EM"""""""
^DD(63.2021,1,21,0)="^^2^2^2911210^"
^DD(63.2021,1,21,1,0)="EM procedures are recorded here.  They are either thick (slides)"
^DD(63.2021,1,21,2,0)=" or thin (grids) sections."
^DD(63.2021,1,"DT")="2911210"
^DD(63.2021,"B","BLOCK COUNTED",.03)=""
^DD(63.2021,"B","DATE/TIME BLOCK PREPARED",.02)=""
^DD(63.2021,"B","EM PROCEDURE",1)=""
^DD(63.2021,"B","EPON BLOCK",.01)=""
^DD(63.2021,"GL",0,1,.01)=""
^DD(63.2021,"GL",0,2,.02)=""
^DD(63.2021,"GL",0,3,.03)=""
^DD(63.2021,"GL",1,0,1)=""
^DD(63.2021,"IX",.01)=""
^DD(63.2021,"SB",63.20211,1)=""
^DD(63.20211,0)="EM PROCEDURE SUB-FIELD^^.13^12"
^DD(63.20211,0,"DT")="2930422"
^DD(63.20211,0,"NM","EM PROCEDURE")=""
^DD(63.20211,0,"UP")="63.2021"
^DD(63.20211,.01,0)="EM PROCEDURE^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""EM"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.20211,.01,1,0)="^.1^^0"
^DD(63.20211,.01,"DT")="2911210"
^DD(63.20211,.02,0)="SECTIONS PREPARED(#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.02,4)="W !,""Enter the number of slides or grids prepared."""
^DD(63.20211,.02,21,0)="^^2^2^2911210^"
^DD(63.20211,.02,21,1,0)="The number of thick (slides) or thin (grids) sections prepared"
^DD(63.20211,.02,21,2,0)=" is kept here."
^DD(63.20211,.02,"DT")="2911210"
^DD(63.20211,.04,0)="DATE/TIME SECTIONS PREPARED^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.20211,.04,21,0)="^^1^1^2940510^"
^DD(63.20211,.04,21,1,0)="When sections are prepared"
^DD(63.20211,.04,"DT")="2911217"
^DD(63.20211,.05,0)="DATE/TIME SECTIONS EXAMINED^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.20211,.05,21,0)="^^1^1^2940510^^"
^DD(63.20211,.05,21,1,0)="When sections are examined"
^DD(63.20211,.05,"DT")="2911217"
^DD(63.20211,.06,0)="SECTIONS COUNTED(#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.06,21,0)="^^1^1^2940510^"
^DD(63.20211,.06,21,1,0)="Number of sections counted"
^DD(63.20211,.06,"DT")="2911217"
^DD(63.20211,.07,0)="NEW SECTIONS^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.07,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.07,21,0)="^^1^1^2920109^"
^DD(63.20211,.07,21,1,0)="Sections added since prior preparation time."
^DD(63.20211,.07,"DT")="2920109"
^DD(63.20211,.08,0)="SECTIONS EXAMINED(#)^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.08,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.08,21,0)="^^1^1^2940510^"
^DD(63.20211,.08,21,1,0)="Number of sections examined"
^DD(63.20211,.08,"DT")="2920109"
^DD(63.20211,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.09,21,0)="^^1^1^2930422^"
^DD(63.20211,.09,21,1,0)="Number of non-control slides counted."
^DD(63.20211,.09,"DT")="2930422"
^DD(63.20211,.1,0)="PRINTS MADE(#)^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.1,21,0)="^^1^1^2940510^"
^DD(63.20211,.1,21,1,0)="Number of prints made"
^DD(63.20211,.1,"DT")="2920109"
^DD(63.20211,.11,0)="DATE/TIME PRINTS MADE^D^^0;11^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.20211,.11,3)=""
^DD(63.20211,.11,21,0)="^^1^1^2940510^"
^DD(63.20211,.11,21,1,0)="When the prints are made."
^DD(63.20211,.11,"DT")="2920109"
^DD(63.20211,.12,0)="PRINTS COUNTED(#)^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.12,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.12,21,0)="^^1^1^2940510^"
^DD(63.20211,.12,21,1,0)="Number of prints counted"
^DD(63.20211,.12,"DT")="2920109"
^DD(63.20211,.13,0)="EXAMINED SECTIONS COUNTED(#)^NJ3,0^^0;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.20211,.13,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.20211,.13,21,0)="^^1^1^2940510^"
^DD(63.20211,.13,21,1,0)="Number of examined sections that were counted."
^DD(63.20211,.13,"DT")="2930422"
^DD(63.20211,"B","DATE/TIME PRINTS MADE",.11)=""
^DD(63.20211,"B","DATE/TIME SECTIONS EXAMINED",.05)=""
^DD(63.20211,"B","DATE/TIME SECTIONS PREPARED",.04)=""
^DD(63.20211,"B","EM PROCEDURE",.01)=""
^DD(63.20211,"B","EXAMINED SECTIONS COUNTED(#)",.13)=""
^DD(63.20211,"B","NEW SECTIONS",.07)=""
^DD(63.20211,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.20211,"B","PRINTS COUNTED(#)",.12)=""
^DD(63.20211,"B","PRINTS MADE(#)",.1)=""
^DD(63.20211,"B","SECTIONS COUNTED(#)",.06)=""
^DD(63.20211,"B","SECTIONS EXAMINED(#)",.08)=""
^DD(63.20211,"B","SECTIONS PREPARED(#)",.02)=""
^DD(63.20211,"GL",0,1,.01)=""
^DD(63.20211,"GL",0,2,.02)=""
^DD(63.20211,"GL",0,4,.04)=""
^DD(63.20211,"GL",0,5,.05)=""
^DD(63.20211,"GL",0,6,.06)=""
^DD(63.20211,"GL",0,7,.07)=""
^DD(63.20211,"GL",0,8,.08)=""
^DD(63.20211,"GL",0,9,.09)=""
^DD(63.20211,"GL",0,10,.1)=""
^DD(63.20211,"GL",0,11,.11)=""
^DD(63.20211,"GL",0,12,.12)=""
^DD(63.20211,"GL",0,13,.13)=""
^DD(63.203,0)="ICD9CM CODE SUB-FIELD^NL^.01^1"
^DD(63.203,0,"NM","ICD9CM CODE")=""
^DD(63.203,0,"UP")="63.02"
^DD(63.203,.01,0)="ICD9CM CODE^MP80'^ICD9(^0;1^Q"
^DD(63.203,.01,21,0)="^^1^1^2911127^"
^DD(63.203,.01,21,1,0)="This is the ICD9CM code on this specimen."
^DD(63.203,.01,"DT")="2850304"
^DD(63.203,"B","ICD9CM CODE",.01)=""
^DD(63.203,"GL",0,1,.01)=""
^DD(63.204,0)="EM DIAGNOSIS SUB-FIELD^^.01^1"
^DD(63.204,0,"DT")="2930716"
^DD(63.204,0,"NM","EM DIAGNOSIS")=""
^DD(63.204,0,"UP")="63.02"
^DD(63.204,.01,0)="EM DIAGNOSIS^W^^0;1^Q"
^DD(63.204,.01,"DT")="2930716"
^DD(63.204,"B","EM DIAGNOSIS",.01)=""
^DD(63.204,"GL",0,1,.01)=""
^DD(63.205,0)="OPERATIVE FINDINGS SUB-FIELD^NL^.01^1"
^DD(63.205,0,"NM","OPERATIVE FINDINGS")=""
^DD(63.205,0,"UP")="63.02"
^DD(63.205,.01,0)="OPERATIVE FINDINGS^W^^0;1^Q"
^DD(63.205,.01,3)=""
^DD(63.205,.01,"DT")="2850303"
^DD(63.205,"B","OPERATIVE FINDINGS",.01)=""
^DD(63.205,"GL",0,1,.01)=""
^DD(63.206,0)="POSTOPERATIVE DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.206,0,"NM","POSTOPERATIVE DIAGNOSIS")=""
^DD(63.206,0,"UP")="63.02"
^DD(63.206,.01,0)="POSTOPERATIVE DIAGNOSIS^W^^0;1^Q"
^DD(63.206,.01,3)=""
^DD(63.206,.01,21,0)="^^1^1^2911127^"
^DD(63.206,.01,21,1,0)="This is the post-operative diagnosis for this specimen."
^DD(63.206,.01,"DT")="2850303"
^DD(63.206,"B","POSTOPERATIVE DIAGNOSIS",.01)=""
^DD(63.206,"GL",0,1,.01)=""
^DD(63.207,0)="SUPPLEMENTARY REPORT SUB-FIELD^NL^2^5"
^DD(63.207,0,"DT")="3030924"
^DD(63.207,0,"NM","SUPPLEMENTARY REPORT")=""
^DD(63.207,0,"UP")="63.02"
^DD(63.207,.01,0)="SUPPLEMENTARY REPORT DATE/TIME^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.207,.01,21,0)="^^1^1^2911127^"
^DD(63.207,.01,21,1,0)="This is the date and time of the supplementary report."
^DD(63.207,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion is not permitted"","""",""!!"")"
^DD(63.207,.01,"DT")="2850302"
^DD(63.207,.02,0)="RELEASE SUPPLEMENTARY REPORT^S^1:YES;0:NO;1:yes;0:no;^0;2^Q"
^DD(63.207,.02,21,0)="^^2^2^2900924^^^"
^DD(63.207,.02,21,1,0)="If supplementary report is to be displayed or printed outside"
^DD(63.207,.02,21,2,0)=" of lab the report must be released by entering 'YES'."
^DD(63.207,.02,"DT")="2900920"
^DD(63.207,.03,0)="RELEASE SUPP REPORT MODIFIED^S^1:YES;0:NO;^0;3^Q"
^DD(63.207,.03,21,0)="^^2^2^3040908^"
^DD(63.207,.03,21,1,0)="This flag will be set to '1' when a released supplementary report is modified. "
^DD(63.207,.03,21,2,0)="It is removed when the modified supplementary report is released.  "
^DD(63.207,.03,"DT")="3040909"
^DD(63.207,1,0)="DESCRIPTION^63.218^^1;0"
^DD(63.207,1,21,0)="^^1^1^2911127^"
^DD(63.207,1,21,1,0)="This is a description of the supplementary report."
^DD(63.207,2,0)="SUPPLEMENTARY REPORT MODIFIED^63.2072DA^^2;0"
^DD(63.207,2,21,0)="^.001^3^3^3001121^^^^"
^DD(63.207,2,21,1,0)="This is the date/time in which this supplementary report was modified.  This"
^DD(63.207,2,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.207,2,21,3,0)="and can only be modified from programmer mode."
^DD(63.207,2,"DT")="3000908"
^DD(63.207,"B","DESCRIPTION",1)=""
^DD(63.207,"B","RELEASE SUPP REPORT MODIFIED",.03)=""
^DD(63.207,"B","RELEASE SUPPLEMENTARY REPORT",.02)=""
^DD(63.207,"B","SUPPLEMENTARY REPORT DATE/TIME",.01)=""
^DD(63.207,"B","SUPPLEMENTARY REPORT MODIFIED",2)=""
^DD(63.207,"GL",0,1,.01)=""
^DD(63.207,"GL",0,2,.02)=""
^DD(63.207,"GL",0,3,.03)=""
^DD(63.207,"GL",1,0,1)=""
^DD(63.207,"GL",2,0,2)=""
^DD(63.207,"SB",63.2072,2)=""
^DD(63.207,"SB",63.218,1)=""
^DD(63.2072,0)="SUPPLEMENTARY REPORT MODIFIED SUB-FIELD^^1^5"
^DD(63.2072,0,"DT")="3030924"
^DD(63.2072,0,"IX","B",63.2072,.01)=""
^DD(63.2072,0,"NM","SUPPLEMENTARY REPORT MODIFIED")=""
^DD(63.2072,0,"UP")="63.207"
^DD(63.2072,.01,0)="SUPPLEMENTARY REPORT MODIFIED^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.2072,.01,1,0)="^.1"
^DD(63.2072,.01,1,1,0)="63.2072^B"
^DD(63.2072,.01,1,1,1)="S ^LR(DA(3),""EM"",DA(2),1.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.2072,.01,1,1,2)="K ^LR(DA(3),""EM"",DA(2),1.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.2072,.01,3)="This is the date/time in which this supplementary report was modified.  It is updated by the software and can only be modified from programmer mode."
^DD(63.2072,.01,21,0)="^.001^2^2^3000908^^^^"
^DD(63.2072,.01,21,1,0)="This is the date/time in which this supplementary report was modified."
^DD(63.2072,.01,21,2,0)="It is updated by the software and can only be modified from programmer mode."
^DD(63.2072,.01,"DT")="3000908"
^DD(63.2072,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.2072,.02,3)="This is the DUZ of the person who modified the supplementary report.  It is updated by the software and can only be modified from programmer mode."
^DD(63.2072,.02,21,0)="^.001^2^2^3001121^^^^"
^DD(63.2072,.02,21,1,0)="This is the DUZ of the person who modified the supplementary report."
^DD(63.2072,.02,21,2,0)="It is updated by the software and can only be modified from programmer mode."
^DD(63.2072,.02,"DT")="2991206"
^DD(63.2072,.03,0)="PERSON RELEASING THE SUPP. RPT^P200'^VA(200,^0;3^Q"
^DD(63.2072,.03,3)="This is the DUZ of the person who released the supplementary report. It is updated by the software and can only be modified from programmer mode."
^DD(63.2072,.03,21,0)="^^2^2^3030924^"
^DD(63.2072,.03,21,1,0)="This is the DUZ of the person who released the supplementary report.  It is"
^DD(63.2072,.03,21,2,0)="updated by the software and can only be modified from programmer mode."
^DD(63.2072,.03,"DT")="3031125"
^DD(63.2072,.04,0)="SUPP REPORT RELEASE DATE/TIME^DX^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.2072,.04,3)="This is the date/time in which this supplementary report was released. It is updated by the software and can only be modified from programmer mode. "
^DD(63.2072,.04,21,0)="^^2^2^3030924^"
^DD(63.2072,.04,21,1,0)="This is the date/time in which this supplementary report was released.  It is"
^DD(63.2072,.04,21,2,0)="updated by the software and can only be modified from programmer mode."
^DD(63.2072,.04,"DT")="3040205"
^DD(63.2072,1,0)="PREMODIFICATION TEXT^63.20721^^1;0"
^DD(63.2072,1,21,0)="^.001^3^3^3001121^^^^"
^DD(63.2072,1,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.2072,1,21,2,0)="modified.  It is updated by the software and can only be modified from"
^DD(63.2072,1,21,3,0)="programmer mode."
^DD(63.2072,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.2072,"B","PERSON RELEASING THE SUPP. RPT",.03)=""
^DD(63.2072,"B","PREMODIFICATION TEXT",1)=""
^DD(63.2072,"B","SUPP REPORT RELEASE DATE/TIME",.04)=""
^DD(63.2072,"B","SUPPLEMENTARY REPORT MODIFIED",.01)=""
^DD(63.2072,"GL",0,1,.01)=""
^DD(63.2072,"GL",0,2,.02)=""
^DD(63.2072,"GL",0,3,.03)=""
^DD(63.2072,"GL",0,4,.04)=""
^DD(63.2072,"GL",1,0,1)=""
^DD(63.2072,"IX",.01)=""
^DD(63.2072,"SB",63.20721,1)=""
^DD(63.20721,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.20721,0,"DT")="2991206"
^DD(63.20721,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.20721,0,"UP")="63.2072"
^DD(63.20721,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.20721,.01,3)="This is the text of the supplementary report as it existed before it was modified.  This field is updated by the software and can only be modified from programmer mode."
^DD(63.20721,.01,21,0)="^.001^3^3^3001121^^^^"
^DD(63.20721,.01,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.20721,.01,21,2,0)="modified.  This field is updated by the software and can only be"
^DD(63.20721,.01,21,3,0)="modified from programmer mode."
^DD(63.20721,.01,"DT")="2991206"
^DD(63.20721,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.20721,"GL",0,1,.01)=""
^DD(63.208,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(63.208,0,"NM","COMMENT")=""
^DD(63.208,0,"UP")="63.02"
^DD(63.208,.01,0)="COMMENT^MF^^0;1^K:$L(X)>75!($L(X)<1) X"
^DD(63.208,.01,3)="ANSWER MUST BE 1-75 CHARACTERS IN LENGTH"
^DD(63.208,.01,21,0)="^^1^1^2911127^"
^DD(63.208,.01,21,1,0)="This is a comment on this specimen."
^DD(63.208,.01,"DT")="2850318"
^DD(63.208,"B","COMMENT",.01)=""
^DD(63.208,"GL",0,1,.01)=""
^DD(63.21,0)="DISEASE SUB-FIELD^NL^.01^1"
^DD(63.21,0,"NM","DISEASE")=""
^DD(63.21,0,"UP")="63.2"
^DD(63.21,.01,0)="DISEASE^M*P61.4'X^LAB(61.4,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.21,.01,21,0)="^^2^2^2911205^"
^DD(63.21,.01,21,1,0)="This is a disease associated with this"
^DD(63.21,.01,21,2,0)="organ/tissue(s)."
^DD(63.21,.01,"DT")="2870919"
^DD(63.21,"B","DISEASE",.01)=""
^DD(63.21,"GL",0,1,.01)=""
^DD(63.211,0)="MICROSCOPIC EXAMINATION SUB-FIELD^NL^.01^1"
^DD(63.211,0,"NM","MICROSCOPIC EXAMINATION")=""
^DD(63.211,0,"UP")="63.02"
^DD(63.211,.01,0)="MICROSCOPIC EXAMINATION^W^^0;1^Q"
^DD(63.211,.01,"DT")="2930716"
^DD(63.211,"B","MICROSCOPIC EXAMINATION",.01)=""
^DD(63.211,"GL",0,1,.01)=""
^DD(63.212,0)="EM ORGAN/TISSUE SUB-FIELD^NL^5^7"
^DD(63.212,0,"NM","EM ORGAN/TISSUE")=""
^DD(63.212,0,"UP")="63.02"
^DD(63.212,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.212,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.212,.001,21,0)="^^1^1^2911127^"
^DD(63.212,.001,21,1,0)="This is the entry number of the organ/tissue(s)."
^DD(63.212,.001,"DT")="2850302"
^DD(63.212,.01,0)="EM ORGAN/TISSUE^M*P61'X^LAB(61,^0;1^S:$E(X,1,2)=""T-"" X=$E(X,3,$L(X)) S SEX=$S('$D(SEX):""MF"",SEX="""":""MF"",1:SEX) S DIC(0)=""EMO"",DIC(""S"")=""I SEX[$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.212,.01,4)="W !,""Selects when appropriate sex related organs."",!,""Ex. A uterus should not be selected for a male patient !!"",!"
^DD(63.212,.01,21,0)="^^1^1^2911127^^"
^DD(63.212,.01,21,1,0)="This is the organ/tissue(s) being examined."
^DD(63.212,.01,"DT")="2870919"
^DD(63.212,1,0)="FUNCTION^63.285PA^^3;0"
^DD(63.212,1,21,0)="^^2^2^2911127^^"
^DD(63.212,1,21,1,0)="These are the functions associated with this"
^DD(63.212,1,21,2,0)="organ/tissue(s)."
^DD(63.212,1.5,0)="PROCEDURE^63.282PA^^4;0"
^DD(63.212,1.5,21,0)="^^2^2^2911127^"
^DD(63.212,1.5,21,1,0)="These are the procedures associated with this"
^DD(63.212,1.5,21,2,0)="organ/tissue."
^DD(63.212,3,0)="DISEASE^63.215PA^^1;0"
^DD(63.212,3,21,0)="^^2^2^2911127^"
^DD(63.212,3,21,1,0)="These are the diseases associated with this"
^DD(63.212,3,21,2,0)="organ/tissue(s)."
^DD(63.212,4,0)="MORPHOLOGY^63.216PA^^2;0"
^DD(63.212,4,21,0)="^^2^2^2911127^"
^DD(63.212,4,21,1,0)="These are the morphologies associated with this"
^DD(63.212,4,21,2,0)="organ/tissue(s)."
^DD(63.212,5,0)="SPECIAL STUDIES^63.219SAI^^5;0"
^DD(63.212,5,21,0)="^^2^2^2911127^"
^DD(63.212,5,21,1,0)="These are special studies associated with this"
^DD(63.212,5,21,2,0)="organ/tissue(s)."
^DD(63.212,"B","DISEASE",3)=""
^DD(63.212,"B","EM ORGAN/TISSUE",.01)=""
^DD(63.212,"B","FUNCTION",1)=""
^DD(63.212,"B","MORPHOLOGY",4)=""
^DD(63.212,"B","NUMBER",.001)=""
^DD(63.212,"B","PROCEDURE",1.5)=""
^DD(63.212,"B","SPECIAL STUDIES",5)=""
^DD(63.212,"GL",0,1,.01)=""
^DD(63.212,"GL",1,0,3)=""
^DD(63.212,"GL",2,0,4)=""
^DD(63.212,"GL",3,0,1)=""
^DD(63.212,"GL",4,0,1.5)=""
^DD(63.212,"GL",5,0,5)=""
^DD(63.212,"SB",63.215,3)=""
^DD(63.212,"SB",63.216,4)=""
^DD(63.212,"SB",63.219,5)=""
^DD(63.212,"SB",63.282,1.5)=""
^DD(63.212,"SB",63.285,1)=""
^DD(63.213,0)="BRIEF CLINICAL HISTORY SUB-FIELD^NL^.01^1"
^DD(63.213,0,"NM","BRIEF CLINICAL HISTORY")=""
^DD(63.213,0,"UP")="63.02"
^DD(63.213,.01,0)="BRIEF CLINICAL HISTORY^W^^0;1^Q"
^DD(63.213,.01,"DT")="2850302"
^DD(63.213,"B","BRIEF CLINICAL HISTORY",.01)=""
^DD(63.213,"GL",0,1,.01)=""
^DD(63.214,0)="PREOPERATIVE DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.214,0,"NM","PREOPERATIVE DIAGNOSIS")=""
^DD(63.214,0,"UP")="63.02"
^DD(63.214,.01,0)="PREOPERATIVE DIAGNOSIS^W^^0;1^Q"
^DD(63.214,.01,3)=""
^DD(63.214,.01,"DT")="2850303"
^DD(63.214,"B","PREOPERATIVE DIAGNOSIS",.01)=""
^DD(63.214,"GL",0,1,.01)=""
^DD(63.215,0)="DISEASE SUB-FIELD^NL^.01^1"
^DD(63.215,0,"NM","DISEASE")=""
^DD(63.215,0,"UP")="63.212"
^DD(63.215,.01,0)="DISEASE^M*P61.4'X^LAB(61.4,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.215,.01,21,0)="^^2^2^2911127^"
^DD(63.215,.01,21,1,0)="This is the disease associated with this"
^DD(63.215,.01,21,2,0)="organ/tissue(s)."
^DD(63.215,.01,"DT")="2870919"
^DD(63.215,"B","DISEASE",.01)=""
^DD(63.215,"GL",0,1,.01)=""
^DD(63.216,0)="MORPHOLOGY SUB-FIELD^NL^1^2"
^DD(63.216,0,"NM","MORPHOLOGY")=""
^DD(63.216,0,"UP")="63.212"
^DD(63.216,.01,0)="MORPHOLOGY^M*P61.1'X^LAB(61.1,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.216,.01,21,0)="^^1^1^2911202^^^"
^DD(63.216,.01,21,1,0)="This is the morphology associated with this organ/tissue(s)."
^DD(63.216,.01,"DT")="2870919"
^DD(63.216,1,0)="ETIOLOGY^63.217PA^^1;0"
^DD(63.216,1,21,0)="^^2^2^2911202^^"
^DD(63.216,1,21,1,0)="These are the etiologies associated with"
^DD(63.216,1,21,2,0)="this organ/tissue(s)."
^DD(63.216,"B","ETIOLOGY",1)=""
^DD(63.216,"B","MORPHOLOGY",.01)=""
^DD(63.216,"GL",0,1,.01)=""
^DD(63.216,"GL",1,0,1)=""
^DD(63.216,"SB",63.217,1)=""
^DD(63.217,0)="ETIOLOGY SUB-FIELD^NL^.01^1"
^DD(63.217,0,"NM","ETIOLOGY")=""
^DD(63.217,0,"UP")="63.216"
^DD(63.217,.01,0)="ETIOLOGY^M*P61.2'X^LAB(61.2,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.217,.01,21,0)="^^2^2^2911127^"
^DD(63.217,.01,21,1,0)="This is the etiology associated with this"
^DD(63.217,.01,21,2,0)="organ/tissue(s)."
^DD(63.217,.01,"DT")="2870919"
^DD(63.217,"B","ETIOLOGY",.01)=""
^DD(63.217,"GL",0,1,.01)=""
^DD(63.218,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.218,0,"NM","DESCRIPTION")=""
^DD(63.218,0,"UP")="63.207"
^DD(63.218,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.218,.01,"DT")="2850302"
^DD(63.218,"B","DESCRIPTION",.01)=""
^DD(63.218,"GL",0,1,.01)=""
^DD(63.219,0)="SPECIAL STUDIES SUB-FIELD^NL^1^4"
^DD(63.219,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(63.219,0,"NM","SPECIAL STUDIES")=""
^DD(63.219,0,"UP")="63.212"
^DD(63.219,.01,0)="SPECIAL STUDIES^MS^I:IMMUNOFLUORESCENCE;P:PHOTOGRAPHY;C:CONSULTATION;L:LIGHT MICROSCOPY;IP:IMMUNOPEROXIDASE;^0;1^Q"
^DD(63.219,.01,21,0)="^^2^2^2911127^"
^DD(63.219,.01,21,1,0)="This is a special study associated with this"
^DD(63.219,.01,21,2,0)="organ/tissue(s)."
^DD(63.219,.01,"DT")="2850408"
^DD(63.219,.02,0)="DATE^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.219,.02,21,0)="^^1^1^2911127^"
^DD(63.219,.02,21,1,0)="This is the date of the special study."
^DD(63.219,.02,"DT")="2850302"
^DD(63.219,.03,0)="ID #^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(63.219,.03,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.219,.03,21,0)="^^1^1^2911127^"
^DD(63.219,.03,21,1,0)="This is the ID number of the special study."
^DD(63.219,.03,"DT")="2850302"
^DD(63.219,1,0)="DESCRIPTION^63.221^^1;0"
^DD(63.219,1,21,0)="^^1^1^2911127^"
^DD(63.219,1,21,1,0)="This is the description of the special study."
^DD(63.219,"B","DATE",.02)=""
^DD(63.219,"B","DESCRIPTION",1)=""
^DD(63.219,"B","ID #",.03)=""
^DD(63.219,"B","SPECIAL STUDIES",.01)=""
^DD(63.219,"GL",0,1,.01)=""
^DD(63.219,"GL",0,2,.02)=""
^DD(63.219,"GL",0,3,.03)=""
^DD(63.219,"GL",1,0,1)=""
^DD(63.219,"RQ",.02)=""
^DD(63.219,"SB",63.221,1)=""
^DD(63.22,0)="MORPHOLOGY SUB-FIELD^NL^1^2"
^DD(63.22,0,"IX","B",63.22,.01)=""
^DD(63.22,0,"NM","MORPHOLOGY")=""
^DD(63.22,0,"UP")="63.2"
^DD(63.22,.01,0)="MORPHOLOGY^M*P61.1'X^LAB(61.1,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.22,.01,1,0)="^.1"
^DD(63.22,.01,1,1,0)="63.22^B"
^DD(63.22,.01,1,1,1)="S ^LR(DA(2),""AY"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.22,.01,1,1,2)="K ^LR(DA(2),""AY"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.22,.01,21,0)="^^2^2^2911205^"
^DD(63.22,.01,21,1,0)="This is a morphology associated with this"
^DD(63.22,.01,21,2,0)="organ/tissue."
^DD(63.22,.01,"DT")="2870919"
^DD(63.22,1,0)="ETIOLOGY^63.23PA^^1;0"
^DD(63.22,1,21,0)="^^2^2^2911205^"
^DD(63.22,1,21,1,0)="These are the etiologies associated with this"
^DD(63.22,1,21,2,0)="organ/tissue(s)."
^DD(63.22,"B","ETIOLOGY",1)=""
^DD(63.22,"B","MORPHOLOGY",.01)=""
^DD(63.22,"GL",0,1,.01)=""
^DD(63.22,"GL",1,0,1)=""
^DD(63.22,"IX",.01)=""
^DD(63.22,"SB",63.23,1)=""
^DD(63.22005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(63.22005,0,"DT")="2950523"
^DD(63.22005,0,"IX","B",63.22005,.01)=""
^DD(63.22005,0,"NM","IMAGE")=""
^DD(63.22005,0,"UP")="63.02"
^DD(63.22005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(63.22005,.01,1,0)="^.1"
^DD(63.22005,.01,1,1,0)="63.22005^B"
^DD(63.22005,.01,1,1,1)="S ^LR(DA(2),""EM"",DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(63.22005,.01,1,1,2)="K ^LR(DA(2),""EM"",DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(63.22005,.01,3)="IMAGE POINTER BACK TO IMAGE FILE"
^DD(63.22005,.01,"DT")="2950523"
^DD(63.22005,"B","IMAGE",.01)=""
^DD(63.22005,"GL",0,1,.01)=""
^DD(63.22005,"IX",.01)=""
^DD(63.221,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.221,0,"NM","DESCRIPTION")=""
^DD(63.221,0,"UP")="63.219"
^DD(63.221,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.221,.01,"DT")="2850302"
^DD(63.221,"B","DESCRIPTION",.01)=""
^DD(63.221,"GL",0,1,.01)=""
^DD(63.23,0)="ETIOLOGY SUB-FIELD^NL^.01^1"
^DD(63.23,0,"NM","ETIOLOGY")=""
^DD(63.23,0,"UP")="63.22"
^DD(63.23,.01,0)="ETIOLOGY^M*P61.2'X^LAB(61.2,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.23,.01,21,0)="^^2^2^2911205^"
^DD(63.23,.01,21,1,0)="This is an etiology associated with this"
^DD(63.23,.01,21,2,0)="organ/tissue(s)."
^DD(63.23,.01,"DT")="2870919"
^DD(63.23,"B","ETIOLOGY",.01)=""
^DD(63.23,"GL",0,1,.01)=""
^DD(63.24,0)="PROCEDURE SUB-FIELD^NL^.02^2"
^DD(63.24,0,"NM","PROCEDURE")=""
^DD(63.24,0,"UP")="63.2"
^DD(63.24,.01,0)="PROCEDURE^M*P61.5'X^LAB(61.5,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.24,.01,21,0)="^^2^2^2911205^"
^DD(63.24,.01,21,1,0)="This is the procedure associated with this"
^DD(63.24,.01,21,2,0)="organ/tissue(s)."
^DD(63.24,.01,"DT")="2870919"
^DD(63.24,.02,0)="RESULT^S^0:NEG;1:POS;^0;2^Q"
^DD(63.24,.02,21,0)="^^1^1^2891230^"
^DD(63.24,.02,21,1,0)="If result is positive enter '1' or 'P'."
^DD(63.24,.02,"DT")="2891230"
^DD(63.24,"B","PROCEDURE",.01)=""
^DD(63.24,"B","RESULT",.02)=""
^DD(63.24,"GL",0,1,.01)=""
^DD(63.24,"GL",0,2,.02)=""
^DD(63.242,0)="DATE MICROSCOPIC EXAM MODIFIED SUB-FIELD^^1^3"
^DD(63.242,0,"NM","DATE MICROSCOPIC EXAM MODIFIED")=""
^DD(63.242,0,"UP")="63.02"
^DD(63.242,.01,0)="DATE MICROSCOPIC EXAM MODIFIED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.242,.01,21,0)="^^2^2^2911127^"
^DD(63.242,.01,21,1,0)="This is the date of modification of the microscopic"
^DD(63.242,.01,21,2,0)="examination/diagnosis."
^DD(63.242,.01,"DT")="2930716"
^DD(63.242,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.242,.02,21,0)="^^1^1^2911127^"
^DD(63.242,.02,21,1,0)="This is the person making the modification."
^DD(63.242,.02,"DT")="2910630"
^DD(63.242,1,0)="PREMODIFICATION TEXT^63.243^^1;0"
^DD(63.242,1,21,0)="^^1^1^2911127^"
^DD(63.242,1,21,1,0)="This is the text of the modification."
^DD(63.242,"B","DATE MICROSCOPIC EXAM MODIFIED",.01)=""
^DD(63.242,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.242,"B","PREMODIFICATION TEXT",1)=""
^DD(63.242,"GL",0,1,.01)=""
^DD(63.242,"GL",0,2,.02)=""
^DD(63.242,"GL",1,0,1)=""
^DD(63.242,"SB",63.243,1)=""
^DD(63.243,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.243,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.243,0,"UP")="63.242"
^DD(63.243,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.243,.01,"DT")="2861118"
^DD(63.243,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.243,"GL",0,1,.01)=""
^DD(63.25,0)="FUNCTION SUB-FIELD^NL^.01^1"
^DD(63.25,0,"NM","FUNCTION")=""
^DD(63.25,0,"UP")="63.2"
^DD(63.25,.01,0)="FUNCTION^M*P61.3'X^LAB(61.3,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.25,.01,21,0)="^^2^2^2911205^"
^DD(63.25,.01,21,1,0)="This is the function associated with this"
^DD(63.25,.01,21,2,0)="organ/tissues(s)."
^DD(63.25,.01,"DT")="2870919"
^DD(63.25,"B","FUNCTION",.01)=""
^DD(63.25,"GL",0,1,.01)=""
^DD(63.26,0)="SPECIAL STUDIES SUB-FIELD^NL^1^4"
^DD(63.26,0,"DT")="2920715"
^DD(63.26,0,"NM","SPECIAL STUDIES")=""
^DD(63.26,0,"UP")="63.2"
^DD(63.26,.01,0)="SPECIAL STUDIES^MS^E:EM;I:IMMUNOFLUORESCENCE;P:PHOTOGRAPHY;C:CONSULTATION;F:FROZEN SECTION;IP:IMMUNOPEROXIDASE;^0;1^Q"
^DD(63.26,.01,21,0)="^^2^2^2911205^^"
^DD(63.26,.01,21,1,0)="This is the special study associated with this"
^DD(63.26,.01,21,2,0)="organ/tissue(s)."
^DD(63.26,.01,"DT")="2920715"
^DD(63.26,.02,0)="DATE^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.26,.02,21,0)="^^1^1^2911205^"
^DD(63.26,.02,21,1,0)="This is the date of the special studies."
^DD(63.26,.02,"DT")="2850311"
^DD(63.26,.03,0)="ID #^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(63.26,.03,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.26,.03,21,0)="^^1^1^2911205^^"
^DD(63.26,.03,21,1,0)="This is the identification number of the special studies."
^DD(63.26,.03,"DT")="2850311"
^DD(63.26,1,0)="DESCRIPTION^63.27^^1;0"
^DD(63.26,1,21,0)="^^1^1^2911205^^^^"
^DD(63.26,1,21,1,0)="This is the description of the special studies."
^DD(63.26,"B","DATE",.02)=""
^DD(63.26,"B","DESCRIPTION",1)=""
^DD(63.26,"B","ID #",.03)=""
^DD(63.26,"B","SPECIAL STUDIES",.01)=""
^DD(63.26,"GL",0,1,.01)=""
^DD(63.26,"GL",0,2,.02)=""
^DD(63.26,"GL",0,3,.03)=""
^DD(63.26,"GL",1,0,1)=""
^DD(63.26,"RQ",.02)=""
^DD(63.26,"SB",63.27,1)=""
^DD(63.27,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.27,0,"NM","DESCRIPTION")=""
^DD(63.27,0,"UP")="63.26"
^DD(63.27,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.27,.01,21,0)="^^1^1^2911205^"
^DD(63.27,.01,21,1,0)="This is the description of the special studies."
^DD(63.27,.01,"DT")="2850311"
^DD(63.27,"B","DESCRIPTION",.01)=""
^DD(63.27,"GL",0,1,.01)=""
^DD(63.28,0)="IMAGE (GROSS) SUB-FIELD^^.01^1"
^DD(63.28,0,"DT")="2950523"
^DD(63.28,0,"IX","B",63.28,.01)=""
^DD(63.28,0,"NM","IMAGE (GROSS)")=""
^DD(63.28,0,"UP")="63.2"
^DD(63.28,.01,0)="IMAGE (GROSS)^MP2005'^MAG(2005,^0;1^Q"
^DD(63.28,.01,1,0)="^.1"
^DD(63.28,.01,1,1,0)="63.28^B"
^DD(63.28,.01,1,1,1)="S ^LR(DA(2),""AY"",DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(63.28,.01,1,1,2)="K ^LR(DA(2),""AY"",DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(63.28,.01,3)="IMAGE POINTER BACK TO IMAGE FILE"
^DD(63.28,.01,"DT")="2950523"
^DD(63.28,"B","IMAGE (GROSS)",.01)=""
^DD(63.28,"GL",0,1,.01)=""
^DD(63.28,"IX",.01)=""
^DD(63.282,0)="PROCEDURE SUB-FIELD^NL^.02^2"
^DD(63.282,0,"NM","PROCEDURE")=""
^DD(63.282,0,"UP")="63.212"
^DD(63.282,.01,0)="PROCEDURE^M*P61.5'X^LAB(61.5,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.282,.01,21,0)="^^2^2^2911202^^"
^DD(63.282,.01,21,1,0)="This is the procedure associated with this"
^DD(63.282,.01,21,2,0)="organ/tissue(s)."
^DD(63.282,.01,"DT")="2870919"
^DD(63.282,.02,0)="RESULT^S^0:NEG;1:POS;^0;2^Q"
^DD(63.282,.02,21,0)="^^1^1^2891230^"
^DD(63.282,.02,21,1,0)="If result of procedure is positive enter '1' or 'P'."
^DD(63.282,.02,"DT")="2891230"
^DD(63.282,"B","PROCEDURE",.01)=""
^DD(63.282,"B","RESULT",.02)=""
^DD(63.282,"GL",0,1,.01)=""
^DD(63.282,"GL",0,2,.02)=""
^DD(63.285,0)="FUNCTION SUB-FIELD^NL^.01^1"
^DD(63.285,0,"NM","FUNCTION")=""
^DD(63.285,0,"UP")="63.212"
^DD(63.285,.01,0)="FUNCTION^M*P61.3'X^LAB(61.3,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.285,.01,21,0)="^^1^1^2911202^^^^"
^DD(63.285,.01,21,1,0)="This is the function associated with this organ/tissue(s)."
^DD(63.285,.01,"DT")="2870919"
^DD(63.285,"B","FUNCTION",.01)=""
^DD(63.285,"GL",0,1,.01)=""
^DD(63.29,0)="GRAM STAIN SUB-FIELD^NL^.01^1"
^DD(63.29,0,"NM","GRAM STAIN")=""
^DD(63.29,0,"UP")="63.05"
^DD(63.29,.01,0)="GRAM STAIN^MFX^^0;1^S Q9=""1,68,KG"" D COM^LRNUM"
^DD(63.29,.01,3)="ANSWER MUST BE 1-68 CHARACTERS Answer with free text statements (ex. GRAM POS COCCI IN CLUSTERS)"
^DD(63.29,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KG""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.29,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.29,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.29,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""G""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.29,.01,21,0)="^^1^1^2911203^^^"
^DD(63.29,.01,21,1,0)="This is the gram stain result."
^DD(63.29,.01,"DT")="2870503"
^DD(63.29,"B","GRAM STAIN",.01)=""
^DD(63.29,"GL",0,1,.01)=""
^DD(63.291,0)="BACTERIOLOGY SMEAR/PREP SUB-FIELD^NL^.01^1"
^DD(63.291,0,"NM","BACTERIOLOGY SMEAR/PREP")=""
^DD(63.291,0,"UP")="63.05"
^DD(63.291,.01,0)="BACTERIOLOGY SMEAR/PREP^MFX^^0;1^S Q9=""1,68,KW"" D COM^LRNUM"
^DD(63.291,.01,3)="ANSWER MUST BE 1-68 CHARACTERS Answer with free text statements (ex. GRAM POS COCCI IN CLUSTERS)"
^DD(63.291,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KW""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.291,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.291,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.291,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""S""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.291,.01,21,0)="^^1^1^2911203^"
^DD(63.291,.01,21,1,0)="This is the result of a smear/prep in bacteriology."
^DD(63.291,.01,"DT")="2870503"
^DD(63.291,"B","BACTERIOLOGY SMEAR/PREP",.01)=""
^DD(63.291,"GL",0,1,.01)=""
^DD(63.292,0)="STERILITY RESULTS SUB-FIELD^NL^.01^2"
^DD(63.292,0,"NM","STERILITY RESULTS")=""
^DD(63.292,0,"UP")="63.05"
^DD(63.292,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.292,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(63.292,.001,21,0)="^^1^1^2911202^"
^DD(63.292,.001,21,1,0)="This is the entry number of the sterility result."
^DD(63.292,.001,"DT")="2841109"
^DD(63.292,.01,0)="STERILITY RESULTS^MS^N:NEGATIVE;P:POSITIVE;^0;1^Q"
^DD(63.292,.01,21,0)="^^1^1^2911202^"
^DD(63.292,.01,21,1,0)="These are results of microbiology sterility testing."
^DD(63.292,.01,"DT")="2841109"
^DD(63.292,"B","NUMBER",.001)=""
^DD(63.292,"B","STERILITY RESULTS",.01)=""
^DD(63.292,"GL",0,1,.01)=""
^DD(63.3,0)="ORGANISM SUB-FIELD^NL^200^131"
^DD(63.3,0,"IX","AC",63.3,.01)=""
^DD(63.3,0,"NM","ORGANISM")=""
^DD(63.3,0,"UP")="63.05"
^DD(63.3,.001,0)="ISOLATE NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.3,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.3,.001,21,0)="^^1^1^2911203^"
^DD(63.3,.001,21,1,0)="This is the entry number of the organism."
^DD(63.3,.001,"DT")="2840111"
^DD(63.3,.01,0)="ORGANISM^M*P61.2'X^LAB(61.2,^0;1^S DIC(""S"")=""I """"PVRBFM""""[$P(^(0),U,5)"" D ^DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.3,.01,1,0)="^.1"
^DD(63.3,.01,1,1,0)="63.3^AC^MUMPS"
^DD(63.3,.01,1,1,1)="I $P(^LAB(61.2,X,0),""^"",9) S ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")=DA(2)"
^DD(63.3,.01,1,1,2)="I $P(^LAB(61.2,X,0),""^"",9) K ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")"
^DD(63.3,.01,4)="Q"
^DD(63.3,.01,21,0)="^^1^1^2911203^"
^DD(63.3,.01,21,1,0)="This is an organism identified on this specimen."
^DD(63.3,.01,"DT")="2890719"
^DD(63.3,1,0)="QUANTITY^FX^^0;2^S Q9=""1,68,KM"" D COM^LRNUM"
^DD(63.3,1,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.3,1,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KM""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.3,1,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.3,1,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.3,1,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""M""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.3,1,21,0)="^^1^1^2911203^"
^DD(63.3,1,21,1,0)="This is the quantity of the organism present."
^DD(63.3,1,"DT")="2870503"
^DD(63.3,1.3,0)="SIT #1^FX^^0;3^S Q8="""" S:""<>""[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1""1""1"":""1N.N) X S:$D(X) X=Q8_X K Q8"
^DD(63.3,1.3,.1)="Serum inhibitory titer"
^DD(63.3,1.3,3)="Enter dilution (1:2, 1:4, 1:8, etc.)"
^DD(63.3,1.3,"DT")="2861118"
^DD(63.3,1.4,0)="SBT #1^FX^^0;4^S Q8="""" S:""<>""[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1""1""1"":""1N.N) X S:$D(X) X=Q8_X K Q8"
^DD(63.3,1.4,.1)="Serum bactericidal titer"
^DD(63.3,1.4,3)="Enter dilution (1:2, 1:4, 1:8, etc.)"
^DD(63.3,1.4,"DT")="2861118"
^DD(63.3,1.5,0)="DRAW TIME #1 (SIT,SBT)^SX^P:PEAK;T:TROUGH;^0;5^X ""I $D(^LR(LRDFN,""""MI"""",LRIDT,3,DA,0)),$P(^(0),U,8)=X K X"" Q:$D(X)  W !,""Draw time must be different than DRAW TIME #2"",!"
^DD(63.3,1.5,21,0)="^^1^1^2911203^"
^DD(63.3,1.5,21,1,0)="This is the draw time of SIT #1 or SBT #1."
^DD(63.3,1.5,"DT")="2870504"
^DD(63.3,1.6,0)="SIT #2^FX^^0;6^S Q8="""" S:""<>""[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1""1""1"":""1N.N) X S:$D(X) X=Q8_X K Q8"
^DD(63.3,1.6,.1)="Serum inhibitory titer"
^DD(63.3,1.6,3)="Enter dilution (1:2, 1:4, 1:8, etc.)"
^DD(63.3,1.6,"DT")="2871124"
^DD(63.3,1.7,0)="SBT #2^FX^^0;7^S Q8="""" S:""<>""[$E(X,1) Q8=$E(X,1),X=$E(X,2,99) K:$L(X)>10!($L(X)<3)!'(X?1""1""1"":""1N.N) X S:$D(X) X=Q8_X K Q8"
^DD(63.3,1.7,.1)="Serum bactericidal titer"
^DD(63.3,1.7,3)="Enter dilution (1:2, 1:4, 1:8, etc.)"
^DD(63.3,1.7,"DT")="2871124"
^DD(63.3,1.8,0)="DRAW TIME #2 (SIT,SBT)^SX^P:PEAK;T:TROUGH;^0;8^X ""I $D(^LR(LRDFN,""""MI"""",LRIDT,3,DA,0)),$P(^(0),U,5)=X K X"" Q:$D(X)  W !,""Draw time must be different than DRAW TIME #1"",!"
^DD(63.3,1.8,21,0)="^^1^1^2911203^"
^DD(63.3,1.8,21,1,0)="This is the draw time of SIT #2 or SBT #2."
^DD(63.3,1.8,"DT")="2870504"
^DD(63.3,2,0)="COMMENT^63.31A^^1;0"
^DD(63.3,2,21,0)="^^1^1^2911203^^"
^DD(63.3,2,21,1,0)="These are comments on this organism."
^DD(63.3,5,0)="NEOMYCIN^FX^^2.0001;1^D ^LRMISR"
^DD(63.3,5,3)=""
^DD(63.3,5,4)="D EN^LRMISR"
^DD(63.3,5,"DT")="2870713"
^DD(63.3,5.1,0)="NEOMYCIN INTERP^FX^^2.0001;2^D INT^LRMISR"
^DD(63.3,5.1,3)=""
^DD(63.3,5.1,4)="D HINT^LRMISR"
^DD(63.3,5.1,"DT")="2870406"
^DD(63.3,5.2,0)="NEOMYCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0001;3^Q"
^DD(63.3,5.2,"DT")="2861215"
^DD(63.3,10,0)="BACITRACIN^FX^^2.0002;1^D ^LRMISR"
^DD(63.3,10,3)=""
^DD(63.3,10,4)="D EN^LRMISR"
^DD(63.3,10,"DT")="2870330"
^DD(63.3,10.1,0)="BACITRACIN INTERP^FX^^2.0002;2^D INT^LRMISR"
^DD(63.3,10.1,3)=""
^DD(63.3,10.1,4)="D HINT^LRMISR"
^DD(63.3,10.1,"DT")="2870406"
^DD(63.3,10.2,0)="BACITRACIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0002;3^Q"
^DD(63.3,10.2,"DT")="2861215"
^DD(63.3,15,0)="PENICILLIN^F^^2.0003;1^D ^LRMISR"
^DD(63.3,15,3)=""
^DD(63.3,15,4)="D EN^LRMISR"
^DD(63.3,15,"DT")="2841119"
^DD(63.3,15.1,0)="PENICILLIN INTERP^FX^^2.0003;2^D INT^LRMISR"
^DD(63.3,15.1,3)=""
^DD(63.3,15.1,4)="D HINT^LRMISR"
^DD(63.3,15.1,"DT")="2870406"
^DD(63.3,15.2,0)="PENICILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0003;3^Q"
^DD(63.3,15.2,"DT")="2861215"
^DD(63.3,20,0)="CLINDAMYCIN^F^^2.0004;1^D ^LRMISR"
^DD(63.3,20,3)=""
^DD(63.3,20,4)="D EN^LRMISR"
^DD(63.3,20,"DT")="2841119"
^DD(63.3,20.1,0)="CLINDAMYCIN INTERP^FX^^2.0004;2^D INT^LRMISR"
^DD(63.3,20.1,3)=""
^DD(63.3,20.1,4)="D HINT^LRMISR"
^DD(63.3,20.1,"DT")="2870406"
^DD(63.3,20.2,0)="CLINDAMYCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0004;3^Q"
^DD(63.3,20.2,"DT")="2861215"
^DD(63.3,25,0)="METHICILLIN^FX^^2.0005;1^D ^LRMISR"
^DD(63.3,25,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(63.3,25,4)="D EN^LRMISR"
^DD(63.3,25,"DT")="2870330"
^DD(63.3,25.1,0)="METHICILLIN INTERP^FX^^2.0005;2^D INT^LRMISR"
^DD(63.3,25.1,3)=""
^DD(63.3,25.1,4)="D HINT^LRMISR"
^DD(63.3,25.1,"DT")="2870406"
^DD(63.3,25.2,0)="METHICILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0005;3^Q"
^DD(63.3,25.2,"DT")="2861215"
^DD(63.3,30,0)="VANCOMYCIN^F^^2.0006;1^D ^LRMISR"
^DD(63.3,30,3)=""
^DD(63.3,30,4)="D EN^LRMISR"
^DD(63.3,30,"DT")="2841119"
^DD(63.3,30.1,0)="VANCOMYCIN INTERP^FX^^2.0006;2^D INT^LRMISR"
^DD(63.3,30.1,3)=""
^DD(63.3,30.1,4)="D HINT^LRMISR"
^DD(63.3,30.1,"DT")="2870406"
^DD(63.3,30.2,0)="VANCOMYCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0006;3^Q"
^DD(63.3,30.2,"DT")="2861215"
^DD(63.3,35,0)="GENTAMICIN^F^^2.0007;1^D ^LRMISR"
^DD(63.3,35,3)=""
^DD(63.3,35,4)="D EN^LRMISR"
^DD(63.3,35,"DT")="2841119"
^DD(63.3,35.1,0)="GENTAMICIN INTERP^FX^^2.0007;2^D INT^LRMISR"
^DD(63.3,35.1,3)=""
^DD(63.3,35.1,4)="D HINT^LRMISR"
^DD(63.3,35.1,"DT")="2870406"
^DD(63.3,35.2,0)="GENTAMICIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0007;3^Q"
^DD(63.3,35.2,"DT")="2861215"
^DD(63.3,40,0)="CHLORAMPHENICOL^F^^2.0008;1^D ^LRMISR"
^DD(63.3,40,3)=""
^DD(63.3,40,4)="D EN^LRMISR"
^DD(63.3,40,"DT")="2880810"
^DD(63.3,40.1,0)="CHLORAMPHENICOL INTERP^FX^^2.0008;2^D INT^LRMISR"
^DD(63.3,40.1,3)=""
^DD(63.3,40.1,4)="D HINT^LRMISR"
^DD(63.3,40.1,"DT")="2870406"
^DD(63.3,40.2,0)="CHLORAMPHENICOL SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0008;3^Q"
^DD(63.3,40.2,"DT")="2861215"
^DD(63.3,45,0)="KANAMYCIN^F^^2.0009;1^D ^LRMISR"
^DD(63.3,45,3)=""
^DD(63.3,45,4)="D EN^LRMISR"
^DD(63.3,45,"DT")="2841119"
^DD(63.3,45.1,0)="KANAMYCIN INTERP^FX^^2.0009;2^D INT^LRMISR"
^DD(63.3,45.1,3)=""
^DD(63.3,45.1,4)="D HINT^LRMISR"
^DD(63.3,45.1,"DT")="2870406"
^DD(63.3,45.2,0)="KANAMYCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0009;3^Q"
^DD(63.3,45.2,"DT")="2870224"
^DD(63.3,50,0)="CEFAZOLIN^F^^2.001;1^D ^LRMISR"
^DD(63.3,50,3)=""
^DD(63.3,50,4)="D EN^LRMISR"
^DD(63.3,50,"DT")="2841119"
^DD(63.3,50.1,0)="CEFAZOLIN INTERP^FX^^2.001;2^D INT^LRMISR"
^DD(63.3,50.1,3)=""
^DD(63.3,50.1,4)="D HINT^LRMISR"
^DD(63.3,50.1,"DT")="2870406"
^DD(63.3,50.2,0)="CEFAZOLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.001;3^Q"
^DD(63.3,50.2,"DT")="2861215"
^DD(63.3,55,0)="TETRACYCLINE^F^^2.0011;1^D ^LRMISR"
^DD(63.3,55,3)=""
^DD(63.3,55,4)="D EN^LRMISR"
^DD(63.3,55,"DT")="2841119"
^DD(63.3,55.1,0)="TETRACYCLINE INTERP^FX^^2.0011;2^D INT^LRMISR"
^DD(63.3,55.1,3)=""
^DD(63.3,55.1,4)="D HINT^LRMISR"
^DD(63.3,55.1,"DT")="2870406"
^DD(63.3,55.2,0)="TETRACYCLINE SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0011;3^Q"
^DD(63.3,55.2,"DT")="2861215"
^DD(63.3,60,0)="AMPICILLIN^F^^2.0012;1^D ^LRMISR"
^DD(63.3,60,3)=""
^DD(63.3,60,4)="D EN^LRMISR"
^DD(63.3,60,"DT")="2841119"
^DD(63.3,60.1,0)="AMPICILLIN INTERP^FX^^2.0012;2^D INT^LRMISR"
^DD(63.3,60.1,3)=""
^DD(63.3,60.1,4)="D HINT^LRMISR"
^DD(63.3,60.1,"DT")="2870406"
^DD(63.3,60.2,0)="AMPICILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0012;3^Q"
^DD(63.3,60.2,"DT")="2861215"
^DD(63.3,65,0)="CARBENICILLIN^F^^2.0013;1^D ^LRMISR"
^DD(63.3,65,3)=""
^DD(63.3,65,4)="D EN^LRMISR"
^DD(63.3,65,"DT")="2841119"
^DD(63.3,65.1,0)="CARBENICILLIN INTERP^FX^^2.0013;2^D INT^LRMISR"
^DD(63.3,65.1,3)=""
^DD(63.3,65.1,4)="D HINT^LRMISR"
^DD(63.3,65.1,"DT")="2870406"
^DD(63.3,65.2,0)="CARBENICILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0013;3^Q"
^DD(63.3,65.2,"DT")="2861215"
^DD(63.3,70,0)="TOBRAMYCIN^F^^2.0014;1^D ^LRMISR"
^DD(63.3,70,3)=""
^DD(63.3,70,4)="D EN^LRMISR"
^DD(63.3,70,"DT")="2841119"
^DD(63.3,70.1,0)="TOBRAMYCIN INTERP^FX^^2.0014;2^D INT^LRMISR"
^DD(63.3,70.1,3)=""
^DD(63.3,70.1,4)="D HINT^LRMISR"
^DD(63.3,70.1,"DT")="2870406"
^DD(63.3,70.2,0)="TOBRAMYCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0014;3^Q"
^DD(63.3,70.2,"DT")="2861215"
^DD(63.3,75,0)="TRIMETHAPRIM/SULFAMETHOXAZOLE^F^^2.0015;1^D ^LRMISR"
^DD(63.3,75,3)=""
^DD(63.3,75,4)="D EN^LRMISR"
^DD(63.3,75,"DT")="2841119"
^DD(63.3,75.1,0)="TRIMETHAPRIM/SULFA INTERP^FX^^2.0015;2^D INT^LRMISR"
^DD(63.3,75.1,3)=""
^DD(63.3,75.1,4)="D HINT^LRMISR"
^DD(63.3,75.1,"DT")="2870406"
^DD(63.3,75.2,0)="TRIMETHAPRIM/SULFA SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0015;3^Q"
^DD(63.3,75.2,"DT")="2861215"
^DD(63.3,80,0)="AMIKACIN^F^^2.0016;1^D ^LRMISR"
^DD(63.3,80,3)=""
^DD(63.3,80,4)="D EN^LRMISR"
^DD(63.3,80,"DT")="2841119"
^DD(63.3,80.1,0)="AMIKACIN INTERP^FX^^2.0016;2^D INT^LRMISR"
^DD(63.3,80.1,3)=""
^DD(63.3,80.1,4)="D HINT^LRMISR"
^DD(63.3,80.1,"DT")="2870406"
^DD(63.3,80.2,0)="AMIKACIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0016;3^Q"
^DD(63.3,80.2,"DT")="2861215"
^DD(63.3,85,0)="CEFAMANDOLE^F^^2.0017;1^D ^LRMISR"
^DD(63.3,85,3)=""
^DD(63.3,85,4)="D EN^LRMISR"
^DD(63.3,85,"DT")="2841119"
^DD(63.3,85.1,0)="CEFAMANDOLE INTERP^FX^^2.0017;2^D INT^LRMISR"
^DD(63.3,85.1,3)=""
^DD(63.3,85.1,4)="D HINT^LRMISR"
^DD(63.3,85.1,"DT")="2870406"
^DD(63.3,85.2,0)="CEFAMANDOLE SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0017;3^Q"
^DD(63.3,85.2,"DT")="2861215"
^DD(63.3,90,0)="CEFOXITIN^F^^2.0018;1^D ^LRMISR"
^DD(63.3,90,3)=""
^DD(63.3,90,4)="D EN^LRMISR"
^DD(63.3,90,"DT")="2841119"
^DD(63.3,90.1,0)="CEFOXITIN INTERP^FX^^2.0018;2^D INT^LRMISR"
^DD(63.3,90.1,3)=""
^DD(63.3,90.1,4)="D HINT^LRMISR"
^DD(63.3,90.1,"DT")="2870406"
^DD(63.3,90.2,0)="CEFOXITIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0018;3^Q"
^DD(63.3,90.2,"DT")="2861215"
^DD(63.3,95,0)="CEFOTAXIME^F^^2.0021;1^D ^LRMISR"
^DD(63.3,95,3)=""
^DD(63.3,95,4)="D EN^LRMISR"
^DD(63.3,95,"DT")="2841119"
^DD(63.3,95.1,0)="CEFOTAXIME INTERP^FX^^2.0021;2^D INT^LRMISR"
^DD(63.3,95.1,3)=""
^DD(63.3,95.1,4)="D HINT^LRMISR"
^DD(63.3,95.1,"DT")="2870406"
^DD(63.3,95.2,0)="CEFOTAXIME SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0021;3^Q"
^DD(63.3,95.2,"DT")="2861215"
^DD(63.3,100,0)="NITROFURANTOIN^F^^2.0022;1^D ^LRMISR"
^DD(63.3,100,3)=""
^DD(63.3,100,4)="D EN^LRMISR"
^DD(63.3,100,"DT")="2841119"
^DD(63.3,100.1,0)="NITROFURANTOIN INTERP^FX^^2.0022;2^D INT^LRMISR"
^DD(63.3,100.1,3)=""
^DD(63.3,100.1,4)="D HINT^LRMISR"
^DD(63.3,100.1,"DT")="2870406"
^DD(63.3,100.2,0)="NITROFURANTOIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0022;3^Q"
^DD(63.3,100.2,"DT")="2861215"
^DD(63.3,105,0)="POLYMYXIN B^F^^2.0023;1^D ^LRMISR"
^DD(63.3,105,3)=""
^DD(63.3,105,4)="D EN^LRMISR"
^DD(63.3,105,"DT")="2841119"
^DD(63.3,105.1,0)="POLYMYXIN B INTERP^FX^^2.0023;2^D INT^LRMISR"
^DD(63.3,105.1,3)=""
^DD(63.3,105.1,4)="D HINT^LRMISR"
^DD(63.3,105.1,"DT")="2870406"
^DD(63.3,105.2,0)="POLYMYXIN B SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0023;3^Q"
^DD(63.3,105.2,"DT")="2861215"
^DD(63.3,110,0)="ERYTHROMYCIN^F^^2.0019;1^D ^LRMISR"
^DD(63.3,110,3)=""
^DD(63.3,110,4)="D EN^LRMISR"
^DD(63.3,110,"DT")="2841119"
^DD(63.3,110.1,0)="ERYTHROMYCIN INTERP^FX^^2.0019;2^D INT^LRMISR"
^DD(63.3,110.1,3)=""
^DD(63.3,110.1,4)="D HINT^LRMISR"
^DD(63.3,110.1,"DT")="2870406"
^DD(63.3,110.2,0)="ERYTHROMYCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0019;3^Q"
^DD(63.3,110.2,"DT")="2861215"
^DD(63.3,115,0)="RIFAMPIN^F^^2.0024;1^D ^LRMISR"
^DD(63.3,115,3)=""
^DD(63.3,115,4)="D EN^LRMISR"
^DD(63.3,115,"DT")="2841119"
^DD(63.3,115.1,0)="RIFAMPIN INTERP^FX^^2.0024;2^D INT^LRMISR"
^DD(63.3,115.1,3)=""
^DD(63.3,115.1,4)="D HINT^LRMISR"
^DD(63.3,115.1,"DT")="2870406"
^DD(63.3,115.2,0)="RIFAMPIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0024;3^Q"
^DD(63.3,115.2,"DT")="2861215"
^DD(63.3,120,0)="NOVOBIOCIN^F^^2.0025;1^D ^LRMISR"
^DD(63.3,120,3)=""
^DD(63.3,120,4)="D EN^LRMISR"
^DD(63.3,120,"DT")="2841119"
^DD(63.3,120.1,0)="NOVOBIOCIN INTERP^FX^^2.0025;2^D INT^LRMISR"
^DD(63.3,120.1,3)=""
^DD(63.3,120.1,4)="D HINT^LRMISR"
^DD(63.3,120.1,"DT")="2870406"
^DD(63.3,120.2,0)="NOVOBIOCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0025;3^Q"
^DD(63.3,120.2,"DT")="2861215"
^DD(63.3,125,0)="CEFOPERAZONE^F^^2.0026;1^D ^LRMISR"
^DD(63.3,125,3)=""
^DD(63.3,125,4)="D EN^LRMISR"
^DD(63.3,125,"DT")="2841119"
^DD(63.3,125.1,0)="CEFOPERAZONE INTERP^FX^^2.0026;2^D INT^LRMISR"
^DD(63.3,125.1,3)=""
^DD(63.3,125.1,4)="D HINT^LRMISR"
^DD(63.3,125.1,"DT")="2870406"
^DD(63.3,125.2,0)="CEFOPERAZONE SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0026;3^Q"
^DD(63.3,125.2,"DT")="2861215"
^DD(63.3,130,0)="MEZLOCILLIN^F^^2.0027;1^D ^LRMISR"
^DD(63.3,130,3)=""
^DD(63.3,130,4)="D EN^LRMISR"
^DD(63.3,130,"DT")="2841119"
^DD(63.3,130.1,0)="MEZLOCILLIN INTERP^FX^^2.0027;2^D INT^LRMISR"
^DD(63.3,130.1,3)=""
^DD(63.3,130.1,4)="D HINT^LRMISR"
^DD(63.3,130.1,"DT")="2870406"
^DD(63.3,130.2,0)="MEZLOCILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0027;3^Q"
^DD(63.3,130.2,"DT")="2861215"
^DD(63.3,135,0)="MOXALACTAM^F^^2.0028;1^D ^LRMISR"
^DD(63.3,135,3)=""
^DD(63.3,135,4)="D EN^LRMISR"
^DD(63.3,135,"DT")="2841119"
^DD(63.3,135.1,0)="MOXALACTAM INTERP^FX^^2.0028;2^D INT^LRMISR"
^DD(63.3,135.1,3)=""
^DD(63.3,135.1,4)="D HINT^LRMISR"
^DD(63.3,135.1,"DT")="2870406"
^DD(63.3,135.2,0)="MOXALACTAM SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0028;3^Q"
^DD(63.3,135.2,"DT")="2861215"
^DD(63.3,140,0)="NETILMICIN^F^^2.0029;1^D ^LRMISR"
^DD(63.3,140,3)=""
^DD(63.3,140,4)="D EN^LRMISR"
^DD(63.3,140,"DT")="2841119"
^DD(63.3,140.1,0)="NETILMICIN INTERP^FX^^2.0029;2^D INT^LRMISR"
^DD(63.3,140.1,3)=""
^DD(63.3,140.1,4)="D HINT^LRMISR"
^DD(63.3,140.1,"DT")="2870406"
^DD(63.3,140.2,0)="NETILMICIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0029;3^Q"
^DD(63.3,140.2,"DT")="2861215"
^DD(63.3,145,0)="PIPERACILLIN^F^^2.002;1^D ^LRMISR"
^DD(63.3,145,3)=""
^DD(63.3,145,4)="D EN^LRMISR"
^DD(63.3,145,"DT")="2841119"
^DD(63.3,145.1,0)="PIPERACILLIN INTERP^FX^^2.002;2^D INT^LRMISR"
^DD(63.3,145.1,3)=""
^DD(63.3,145.1,4)="D HINT^LRMISR"
^DD(63.3,145.1,"DT")="2870406"
^DD(63.3,145.2,0)="PIPERACILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.002;3^Q"
^DD(63.3,145.2,"DT")="2861215"
^DD(63.3,150,0)="OXACILLIN^F^^2.003;1^D ^LRMISR"
^DD(63.3,150,3)=""
^DD(63.3,150,4)="D EN^LRMISR"
^DD(63.3,150,"DT")="2841119"
^DD(63.3,150.1,0)="OXACILLIN INTERP^FX^^2.003;2^D INT^LRMISR"
^DD(63.3,150.1,3)=""
^DD(63.3,150.1,4)="D HINT^LRMISR"
^DD(63.3,150.1,"DT")="2870406"
^DD(63.3,150.2,0)="OXACILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.003;3^Q"
^DD(63.3,150.2,"DT")="2861215"
^DD(63.3,151,0)="SULFISOXAZOLE^F^^2.0031;1^D ^LRMISR"
^DD(63.3,151,3)=""
^DD(63.3,151,4)="D EN^LRMISR"
^DD(63.3,151,"DT")="2841119"
^DD(63.3,151.1,0)="SULFISOXAZOLE INTERP^FX^^2.0031;2^D INT^LRMISR"
^DD(63.3,151.1,3)=""
^DD(63.3,151.1,4)="D HINT^LRMISR"
^DD(63.3,151.1,"DT")="2870406"
^DD(63.3,151.2,0)="SULFISOXAZOLE SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0031;3^Q"
^DD(63.3,151.2,"DT")="2861215"
^DD(63.3,152,0)="NAFCILLIN^F^^2.0032;1^D ^LRMISR"
^DD(63.3,152,3)=""
^DD(63.3,152,4)="D EN^LRMISR"
^DD(63.3,152,"DT")="2841119"
^DD(63.3,152.1,0)="NAFCILLIN INTERP^FX^^2.0032;2^D INT^LRMISR"
^DD(63.3,152.1,3)=""
^DD(63.3,152.1,4)="D HINT^LRMISR"
^DD(63.3,152.1,"DT")="2870406"
^DD(63.3,152.2,0)="NAFCILLIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0032;3^Q"
^DD(63.3,152.2,"DT")="2861215"
^DD(63.3,153,0)="NALIDIXIC ACID^F^^2.0033;1^D ^LRMISR"
^DD(63.3,153,3)=""
^DD(63.3,153,4)="D EN^LRMISR"
^DD(63.3,153,"DT")="2841119"
^DD(63.3,153.1,0)="NALIDIXIC ACID INTERP^FX^^2.0033;2^D INT^LRMISR"
^DD(63.3,153.1,3)=""
^DD(63.3,153.1,4)="D HINT^LRMISR"
^DD(63.3,153.1,"DT")="2870406"
^DD(63.3,153.2,0)="NALIDIXIC ACID SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0033;3^Q"
^DD(63.3,153.2,"DT")="2861215"
^DD(63.3,154,0)="CEPHALOTHIN^F^^2.0034;1^D ^LRMISR"
^DD(63.3,154,3)=""
^DD(63.3,154,4)="D EN^LRMISR"
^DD(63.3,154,"DT")="2841119"
^DD(63.3,154.1,0)="CEPHALOTHIN INTERP^FX^^2.0034;2^D INT^LRMISR"
^DD(63.3,154.1,3)=""
^DD(63.3,154.1,4)="D HINT^LRMISR"
^DD(63.3,154.1,"DT")="2870406"
^DD(63.3,154.2,0)="CEPHALOTHIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0034;3^Q"
^DD(63.3,154.2,"DT")="2861215"
^DD(63.3,155,0)="COLISTIN^F^^2.0035;1^D ^LRMISR"
^DD(63.3,155,3)=""
^DD(63.3,155,4)="D EN^LRMISR"
^DD(63.3,155,"DT")="2841119"
^DD(63.3,155.1,0)="COLISTIN INTERP^FX^^2.0035;2^D INT^LRMISR"
^DD(63.3,155.1,3)=""
^DD(63.3,155.1,4)="D HINT^LRMISR"
^DD(63.3,155.1,"DT")="2870406"
^DD(63.3,155.2,0)="COLISTIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0035;3^Q"
^DD(63.3,155.2,"DT")="2861215"
^DD(63.3,156,0)="METRONIDAZOLE^F^^2.0036;1^D ^LRMISR"
^DD(63.3,156,3)=""
^DD(63.3,156,4)="D EN^LRMISR"
^DD(63.3,156,"DT")="2841119"
^DD(63.3,156.1,0)="METRONIDAZOLE INTERP^FX^^2.0036;2^D INT^LRMISR"
^DD(63.3,156.1,3)=""
^DD(63.3,156.1,4)="D HINT^LRMISR"
^DD(63.3,156.1,"DT")="2870406"
^DD(63.3,156.2,0)="METRONIDAZOLE SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0036;3^Q"
^DD(63.3,156.2,"DT")="2861215"
^DD(63.3,157,0)="CEFUROXIME^FX^^2.0037;1^D ^LRMISR"
^DD(63.3,157,3)=""
^DD(63.3,157,4)="D EN^LRMISR"
^DD(63.3,157,"DT")="2841120"
^DD(63.3,157.1,0)="CEFUROXIME INTERP^FX^^2.0037;2^D INT^LRMISR"
^DD(63.3,157.1,3)=""
^DD(63.3,157.1,4)="D HINT^LRMISR"
^DD(63.3,157.1,"DT")="2870406"
^DD(63.3,157.2,0)="CEFUROXIME SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0037;3^Q"
^DD(63.3,157.2,"DT")="2861215"
^DD(63.3,158,0)="CEFTIZOXIME^FX^^2.0038;1^D ^LRMISR"
^DD(63.3,158,3)=""
^DD(63.3,158,4)="D EN^LRMISR"
^DD(63.3,158,"DT")="2841120"
^DD(63.3,158.1,0)="CEFTIZOXIME INTERP^FX^^2.0038;2^D INT^LRMISR"
^DD(63.3,158.1,3)=""
^DD(63.3,158.1,4)="D HINT^LRMISR"
^DD(63.3,158.1,"DT")="2870406"
^DD(63.3,158.2,0)="CEFTIZOXIME SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0038;3^Q"
^DD(63.3,158.2,"DT")="2861215"
^DD(63.3,159,0)="SPECTINOMYCIN^FX^^2.0039;1^D ^LRMISR"
^DD(63.3,159,3)=""
^DD(63.3,159,4)="D EN^LRMISR"
^DD(63.3,159,"DT")="2841120"
^DD(63.3,159.1,0)="SPECTINOMYCIN INTERP^FX^^2.0039;2^D INT^LRMISR"
^DD(63.3,159.1,3)=""
^DD(63.3,159.1,4)="D HINT^LRMISR"
^DD(63.3,159.1,"DT")="2870406"
^DD(63.3,159.2,0)="SPECTINOMYCIN SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.0039;3^Q"
^DD(63.3,159.2,"DT")="2861215"
^DD(63.3,160,0)="TRIMETHOPRIM^FX^^2.004;1^D ^LRMISR"
^DD(63.3,160,3)=""
^DD(63.3,160,4)="D EN^LRMISR"
^DD(63.3,160,"DT")="2841120"
^DD(63.3,160.1,0)="TRIMETHOPRIM INTERP^FX^^2.004;2^D INT^LRMISR"
^DD(63.3,160.1,3)=""
^DD(63.3,160.1,4)="D HINT^LRMISR"
^DD(63.3,160.1,"DT")="2870406"
^DD(63.3,160.2,0)="TRIMETHOPRIM SCREEN^S^A:ALWAYS DISPLAY;N:NEVER DISPLAY;R:RESTRICT DISPLAY;^2.004;3^Q"
^DD(63.3,160.2,"DT")="2861215"
^DD(63.3,200,0)="ANTIBIOTIC^63.32^^3;0"
^DD(63.3,200,21,0)="^^1^1^2911203^^"
^DD(63.3,200,21,1,0)="These are other antibiotics reported."
^DD(63.3,"B","AMIKACIN",80)=""
^DD(63.3,"B","AMIKACIN INTERP",80.1)=""
^DD(63.3,"B","AMIKACIN SCREEN",80.2)=""
^DD(63.3,"B","AMPICILLIN",60)=""
^DD(63.3,"B","AMPICILLIN INTERP",60.1)=""
^DD(63.3,"B","AMPICILLIN SCREEN",60.2)=""
^DD(63.3,"B","ANTIBIOTIC",200)=""
^DD(63.3,"B","BACITRACIN",10)=""
^DD(63.3,"B","BACITRACIN INTERP",10.1)=""
^DD(63.3,"B","BACITRACIN SCREEN",10.2)=""
^DD(63.3,"B","CARBENICILLIN",65)=""
^DD(63.3,"B","CARBENICILLIN INTERP",65.1)=""
^DD(63.3,"B","CARBENICILLIN SCREEN",65.2)=""
^DD(63.3,"B","CEFAMANDOLE",85)=""
^DD(63.3,"B","CEFAMANDOLE INTERP",85.1)=""
^DD(63.3,"B","CEFAMANDOLE SCREEN",85.2)=""
^DD(63.3,"B","CEFAZOLIN",50)=""
^DD(63.3,"B","CEFAZOLIN INTERP",50.1)=""
^DD(63.3,"B","CEFAZOLIN SCREEN",50.2)=""
^DD(63.3,"B","CEFOPERAZONE",125)=""
^DD(63.3,"B","CEFOPERAZONE INTERP",125.1)=""
^DD(63.3,"B","CEFOPERAZONE SCREEN",125.2)=""
^DD(63.3,"B","CEFOTAXIME",95)=""
^DD(63.3,"B","CEFOTAXIME INTERP",95.1)=""
^DD(63.3,"B","CEFOTAXIME SCREEN",95.2)=""
^DD(63.3,"B","CEFOXITIN",90)=""
^DD(63.3,"B","CEFOXITIN INTERP",90.1)=""
^DD(63.3,"B","CEFOXITIN SCREEN",90.2)=""
^DD(63.3,"B","CEFTIZOXIME",158)=""
^DD(63.3,"B","CEFTIZOXIME INTERP",158.1)=""
^DD(63.3,"B","CEFTIZOXIME SCREEN",158.2)=""
^DD(63.3,"B","CEFUROXIME",157)=""
^DD(63.3,"B","CEFUROXIME INTERP",157.1)=""
^DD(63.3,"B","CEFUROXIME SCREEN",157.2)=""
^DD(63.3,"B","CEPHALOTHIN",154)=""
^DD(63.3,"B","CEPHALOTHIN INTERP",154.1)=""
^DD(63.3,"B","CEPHALOTHIN SCREEN",154.2)=""
^DD(63.3,"B","CHLORAMPHENICOL",40)=""
^DD(63.3,"B","CHLORAMPHENICOL INTERP",40.1)=""
^DD(63.3,"B","CHLORAMPHENICOL SCREEN",40.2)=""
^DD(63.3,"B","CLINDAMYCIN",20)=""
^DD(63.3,"B","CLINDAMYCIN INTERP",20.1)=""
^DD(63.3,"B","CLINDAMYCIN SCREEN",20.2)=""
^DD(63.3,"B","COLISTIN",155)=""
^DD(63.3,"B","COLISTIN INTERP",155.1)=""
^DD(63.3,"B","COLISTIN SCREEN",155.2)=""
^DD(63.3,"B","COMMENT",2)=""
^DD(63.3,"B","DRAW TIME #1 (SIT,SBT)",1.5)=""
^DD(63.3,"B","DRAW TIME #2 (SIT,SBT)",1.8)=""
^DD(63.3,"B","ERYTHROMYCIN",110)=""
^DD(63.3,"B","ERYTHROMYCIN INTERP",110.1)=""
^DD(63.3,"B","ERYTHROMYCIN SCREEN",110.2)=""
^DD(63.3,"B","GENTAMICIN",35)=""
^DD(63.3,"B","GENTAMICIN INTERP",35.1)=""
^DD(63.3,"B","GENTAMICIN SCREEN",35.2)=""
^DD(63.3,"B","ISOLATE NUMBER",.001)=""
^DD(63.3,"B","KANAMYCIN",45)=""
^DD(63.3,"B","KANAMYCIN INTERP",45.1)=""
^DD(63.3,"B","KANAMYCIN SCREEN",45.2)=""
^DD(63.3,"B","METHICILLIN",25)=""
^DD(63.3,"B","METHICILLIN INTERP",25.1)=""
^DD(63.3,"B","METHICILLIN SCREEN",25.2)=""
^DD(63.3,"B","METRONIDAZOLE",156)=""
^DD(63.3,"B","METRONIDAZOLE INTERP",156.1)=""
^DD(63.3,"B","METRONIDAZOLE SCREEN",156.2)=""
^DD(63.3,"B","MEZLOCILLIN",130)=""
^DD(63.3,"B","MEZLOCILLIN INTERP",130.1)=""
^DD(63.3,"B","MEZLOCILLIN SCREEN",130.2)=""
^DD(63.3,"B","MOXALACTAM",135)=""
^DD(63.3,"B","MOXALACTAM INTERP",135.1)=""
^DD(63.3,"B","MOXALACTAM SCREEN",135.2)=""
^DD(63.3,"B","NAFCILLIN",152)=""
^DD(63.3,"B","NAFCILLIN INTERP",152.1)=""
^DD(63.3,"B","NAFCILLIN SCREEN",152.2)=""
^DD(63.3,"B","NALIDIXIC ACID",153)=""
^DD(63.3,"B","NALIDIXIC ACID INTERP",153.1)=""
^DD(63.3,"B","NALIDIXIC ACID SCREEN",153.2)=""
^DD(63.3,"B","NEOMYCIN",5)=""
^DD(63.3,"B","NEOMYCIN INTERP",5.1)=""
^DD(63.3,"B","NEOMYCIN SCREEN",5.2)=""
^DD(63.3,"B","NETILMICIN",140)=""
^DD(63.3,"B","NETILMICIN INTERP",140.1)=""
^DD(63.3,"B","NETILMICIN SCREEN",140.2)=""
^DD(63.3,"B","NITROFURANTOIN",100)=""
^DD(63.3,"B","NITROFURANTOIN INTERP",100.1)=""
^DD(63.3,"B","NITROFURANTOIN SCREEN",100.2)=""
^DD(63.3,"B","NOVOBIOCIN",120)=""
^DD(63.3,"B","NOVOBIOCIN INTERP",120.1)=""
^DD(63.3,"B","NOVOBIOCIN SCREEN",120.2)=""
^DD(63.3,"B","ORGANISM",.01)=""
^DD(63.3,"B","OXACILLIN",150)=""
^DD(63.3,"B","OXACILLIN INTERP",150.1)=""
^DD(63.3,"B","OXACILLIN SCREEN",150.2)=""
^DD(63.3,"B","PENICILLIN",15)=""
^DD(63.3,"B","PENICILLIN INTERP",15.1)=""
^DD(63.3,"B","PENICILLIN SCREEN",15.2)=""
^DD(63.3,"B","PIPERACILLIN",145)=""
^DD(63.3,"B","PIPERACILLIN INTERP",145.1)=""
^DD(63.3,"B","PIPERACILLIN SCREEN",145.2)=""
^DD(63.3,"B","POLYMYXIN B",105)=""
^DD(63.3,"B","POLYMYXIN B INTERP",105.1)=""
^DD(63.3,"B","POLYMYXIN B SCREEN",105.2)=""
^DD(63.3,"B","QUANTITY",1)=""
^DD(63.3,"B","RIFAMPIN",115)=""
^DD(63.3,"B","RIFAMPIN INTERP",115.1)=""
^DD(63.3,"B","RIFAMPIN SCREEN",115.2)=""
^DD(63.3,"B","SBT #1",1.4)=""
^DD(63.3,"B","SBT #2",1.7)=""
^DD(63.3,"B","SIT #1",1.3)=""
^DD(63.3,"B","SIT #2",1.6)=""
^DD(63.3,"B","SPECTINOMYCIN",159)=""
^DD(63.3,"B","SPECTINOMYCIN INTERP",159.1)=""
^DD(63.3,"B","SPECTINOMYCIN SCREEN",159.2)=""
^DD(63.3,"B","SULFISOXAZOLE",151)=""
^DD(63.3,"B","SULFISOXAZOLE INTERP",151.1)=""
^DD(63.3,"B","SULFISOXAZOLE SCREEN",151.2)=""
^DD(63.3,"B","Serum bactericidal titer",1.4)="1"
^DD(63.3,"B","Serum bactericidal titer",1.7)="1"
^DD(63.3,"B","Serum inhibitory titer",1.3)="1"
^DD(63.3,"B","Serum inhibitory titer",1.6)="1"
^DD(63.3,"B","TETRACYCLINE",55)=""
^DD(63.3,"B","TETRACYCLINE INTERP",55.1)=""
^DD(63.3,"B","TETRACYCLINE SCREEN",55.2)=""
^DD(63.3,"B","TOBRAMYCIN",70)=""
^DD(63.3,"B","TOBRAMYCIN INTERP",70.1)=""
^DD(63.3,"B","TOBRAMYCIN SCREEN",70.2)=""
^DD(63.3,"B","TRIMETHAPRIM/SULFA INTERP",75.1)=""
^DD(63.3,"B","TRIMETHAPRIM/SULFA SCREEN",75.2)=""
^DD(63.3,"B","TRIMETHAPRIM/SULFAMETHOXAZOLE",75)=""
^DD(63.3,"B","TRIMETHOPRIM",160)=""
^DD(63.3,"B","TRIMETHOPRIM INTERP",160.1)=""
^DD(63.3,"B","TRIMETHOPRIM SCREEN",160.2)=""
^DD(63.3,"B","VANCOMYCIN",30)=""
^DD(63.3,"B","VANCOMYCIN INTERP",30.1)=""
^DD(63.3,"B","VANCOMYCIN SCREEN",30.2)=""
^DD(63.3,"GL",0,1,.01)=""
^DD(63.3,"GL",0,2,1)=""
^DD(63.3,"GL",0,3,1.3)=""
^DD(63.3,"GL",0,4,1.4)=""
^DD(63.3,"GL",0,5,1.5)=""
^DD(63.3,"GL",0,6,1.6)=""
^DD(63.3,"GL",0,7,1.7)=""
^DD(63.3,"GL",0,8,1.8)=""
^DD(63.3,"GL",1,0,2)=""
^DD(63.3,"GL",2.0001,1,5)=""
^DD(63.3,"GL",2.0001,2,5.1)=""
^DD(63.3,"GL",2.0001,3,5.2)=""
^DD(63.3,"GL",2.0002,1,10)=""
^DD(63.3,"GL",2.0002,2,10.1)=""
^DD(63.3,"GL",2.0002,3,10.2)=""
^DD(63.3,"GL",2.0003,1,15)=""
^DD(63.3,"GL",2.0003,2,15.1)=""
^DD(63.3,"GL",2.0003,3,15.2)=""
^DD(63.3,"GL",2.0004,1,20)=""
^DD(63.3,"GL",2.0004,2,20.1)=""
^DD(63.3,"GL",2.0004,3,20.2)=""
^DD(63.3,"GL",2.0005,1,25)=""
^DD(63.3,"GL",2.0005,2,25.1)=""
^DD(63.3,"GL",2.0005,3,25.2)=""
^DD(63.3,"GL",2.0006,1,30)=""
^DD(63.3,"GL",2.0006,2,30.1)=""
^DD(63.3,"GL",2.0006,3,30.2)=""
^DD(63.3,"GL",2.0007,1,35)=""
^DD(63.3,"GL",2.0007,2,35.1)=""
^DD(63.3,"GL",2.0007,3,35.2)=""
^DD(63.3,"GL",2.0008,1,40)=""
^DD(63.3,"GL",2.0008,2,40.1)=""
^DD(63.3,"GL",2.0008,3,40.2)=""
^DD(63.3,"GL",2.0009,1,45)=""
^DD(63.3,"GL",2.0009,2,45.1)=""
^DD(63.3,"GL",2.0009,3,45.2)=""
^DD(63.3,"GL",2.001,1,50)=""
^DD(63.3,"GL",2.001,2,50.1)=""
^DD(63.3,"GL",2.001,3,50.2)=""
^DD(63.3,"GL",2.0011,1,55)=""
^DD(63.3,"GL",2.0011,2,55.1)=""
^DD(63.3,"GL",2.0011,3,55.2)=""
^DD(63.3,"GL",2.0012,1,60)=""
^DD(63.3,"GL",2.0012,2,60.1)=""
^DD(63.3,"GL",2.0012,3,60.2)=""
^DD(63.3,"GL",2.0013,1,65)=""
^DD(63.3,"GL",2.0013,2,65.1)=""
^DD(63.3,"GL",2.0013,3,65.2)=""
^DD(63.3,"GL",2.0014,1,70)=""
^DD(63.3,"GL",2.0014,2,70.1)=""
^DD(63.3,"GL",2.0014,3,70.2)=""
^DD(63.3,"GL",2.0015,1,75)=""
^DD(63.3,"GL",2.0015,2,75.1)=""
^DD(63.3,"GL",2.0015,3,75.2)=""
^DD(63.3,"GL",2.0016,1,80)=""
^DD(63.3,"GL",2.0016,2,80.1)=""
^DD(63.3,"GL",2.0016,3,80.2)=""
^DD(63.3,"GL",2.0017,1,85)=""
^DD(63.3,"GL",2.0017,2,85.1)=""
^DD(63.3,"GL",2.0017,3,85.2)=""
^DD(63.3,"GL",2.0018,1,90)=""
^DD(63.3,"GL",2.0018,2,90.1)=""
^DD(63.3,"GL",2.0018,3,90.2)=""
^DD(63.3,"GL",2.0019,1,110)=""
^DD(63.3,"GL",2.0019,2,110.1)=""
^DD(63.3,"GL",2.0019,3,110.2)=""
^DD(63.3,"GL",2.002,1,145)=""
^DD(63.3,"GL",2.002,2,145.1)=""
^DD(63.3,"GL",2.002,3,145.2)=""
^DD(63.3,"GL",2.0021,1,95)=""
^DD(63.3,"GL",2.0021,2,95.1)=""
^DD(63.3,"GL",2.0021,3,95.2)=""
^DD(63.3,"GL",2.0022,1,100)=""
^DD(63.3,"GL",2.0022,2,100.1)=""
^DD(63.3,"GL",2.0022,3,100.2)=""
^DD(63.3,"GL",2.0023,1,105)=""
^DD(63.3,"GL",2.0023,2,105.1)=""
^DD(63.3,"GL",2.0023,3,105.2)=""
^DD(63.3,"GL",2.0024,1,115)=""
^DD(63.3,"GL",2.0024,2,115.1)=""
^DD(63.3,"GL",2.0024,3,115.2)=""
^DD(63.3,"GL",2.0025,1,120)=""
^DD(63.3,"GL",2.0025,2,120.1)=""
^DD(63.3,"GL",2.0025,3,120.2)=""
^DD(63.3,"GL",2.0026,1,125)=""
^DD(63.3,"GL",2.0026,2,125.1)=""
^DD(63.3,"GL",2.0026,3,125.2)=""
^DD(63.3,"GL",2.0027,1,130)=""
^DD(63.3,"GL",2.0027,2,130.1)=""
^DD(63.3,"GL",2.0027,3,130.2)=""
^DD(63.3,"GL",2.0028,1,135)=""
^DD(63.3,"GL",2.0028,2,135.1)=""
^DD(63.3,"GL",2.0028,3,135.2)=""
^DD(63.3,"GL",2.0029,1,140)=""
^DD(63.3,"GL",2.0029,2,140.1)=""
^DD(63.3,"GL",2.0029,3,140.2)=""
^DD(63.3,"GL",2.003,1,150)=""
^DD(63.3,"GL",2.003,2,150.1)=""
^DD(63.3,"GL",2.003,3,150.2)=""
^DD(63.3,"GL",2.0031,1,151)=""
^DD(63.3,"GL",2.0031,2,151.1)=""
^DD(63.3,"GL",2.0031,3,151.2)=""
^DD(63.3,"GL",2.0032,1,152)=""
^DD(63.3,"GL",2.0032,2,152.1)=""
^DD(63.3,"GL",2.0032,3,152.2)=""
^DD(63.3,"GL",2.0033,1,153)=""
^DD(63.3,"GL",2.0033,2,153.1)=""
^DD(63.3,"GL",2.0033,3,153.2)=""
^DD(63.3,"GL",2.0034,1,154)=""
^DD(63.3,"GL",2.0034,2,154.1)=""
^DD(63.3,"GL",2.0034,3,154.2)=""
^DD(63.3,"GL",2.0035,1,155)=""
^DD(63.3,"GL",2.0035,2,155.1)=""
^DD(63.3,"GL",2.0035,3,155.2)=""
^DD(63.3,"GL",2.0036,1,156)=""
^DD(63.3,"GL",2.0036,2,156.1)=""
^DD(63.3,"GL",2.0036,3,156.2)=""
^DD(63.3,"GL",2.0037,1,157)=""
^DD(63.3,"GL",2.0037,2,157.1)=""
^DD(63.3,"GL",2.0037,3,157.2)=""
^DD(63.3,"GL",2.0038,1,158)=""
^DD(63.3,"GL",2.0038,2,158.1)=""
^DD(63.3,"GL",2.0038,3,158.2)=""
^DD(63.3,"GL",2.0039,1,159)=""
^DD(63.3,"GL",2.0039,2,159.1)=""
^DD(63.3,"GL",2.0039,3,159.2)=""
^DD(63.3,"GL",2.004,1,160)=""
^DD(63.3,"GL",2.004,2,160.1)=""
^DD(63.3,"GL",2.004,3,160.2)=""
^DD(63.3,"GL",3,0,200)=""
^DD(63.3,"IX",.01)=""
^DD(63.3,"SB",63.31,2)=""
^DD(63.3,"SB",63.32,200)=""
^DD(63.31,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(63.31,0,"NM","COMMENT")=""
^DD(63.31,0,"UP")="63.3"
^DD(63.31,.01,0)="COMMENT^MFX^^0;1^S Q9=""2,68,KM"" D COM^LRNUM"
^DD(63.31,.01,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(63.31,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KM""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.31,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.31,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.31,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""M""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.31,.01,21,0)="^^1^1^2911203^^^"
^DD(63.31,.01,21,1,0)="This is a comment on this organism."
^DD(63.31,.01,"DT")="2870503"
^DD(63.31,"B","COMMENT",.01)=""
^DD(63.31,"GL",0,1,.01)=""
^DD(63.32,0)="ANTIBIOTIC SUB-FIELD^NL^2^3"
^DD(63.32,0,"NM","ANTIBIOTIC")=""
^DD(63.32,0,"UP")="63.3"
^DD(63.32,.01,0)="ANTIBIOTIC^F^^0;1^K:$L(X)>20!($L(X)<2) X"
^DD(63.32,.01,3)="E.g. ^OXACILLIN if you wish to go to that antibiotic, otherwise free text."
^DD(63.32,.01,21,0)="^^1^1^2911203^"
^DD(63.32,.01,21,1,0)="This is a free text entry for another antibiotic."
^DD(63.32,.01,"DT")="2840128"
^DD(63.32,1,0)="MIC(ug/ml)^NJ8,3X^^0;2^S Q9="".001,1000,3"" D ^LRNUM"
^DD(63.32,1,.1)="Minimum Inhibitory Concentration"
^DD(63.32,1,3)="TYPE A NUMBER BETWEEN .001 AND 1000"
^DD(63.32,1,"DT")="2870430"
^DD(63.32,2,0)="MBC(ug/ml)^NJ8,3X^^0;3^S Q9="".001,1000,3"" D ^LRNUM"
^DD(63.32,2,.1)="Minimum Bactericidal Concentration"
^DD(63.32,2,3)="TYPE A NUMBER BETWEEN .001 AND 1000"
^DD(63.32,2,"DT")="2870430"
^DD(63.32,"B","ANTIBIOTIC",.01)=""
^DD(63.32,"B","MBC(ug/ml)",2)=""
^DD(63.32,"B","MIC(ug/ml)",1)=""
^DD(63.32,"GL",0,1,.01)=""
^DD(63.32,"GL",0,2,1)=""
^DD(63.32,"GL",0,3,2)=""
^DD(63.322,0)="CLINICAL DIAGNOSES SUB-FIELD^NL^.01^1"
^DD(63.322,0,"NM","CLINICAL DIAGNOSES")=""
^DD(63.322,0,"UP")="63"
^DD(63.322,.01,0)="CLINICAL DIAGNOSES^W^^0;1^Q"
^DD(63.322,.01,"DT")="2850311"
^DD(63.322,"B","CLINICAL DIAGNOSES",.01)=""
^DD(63.322,"GL",0,1,.01)=""
^DD(63.323,0)="PATHOLOGICAL DIAGNOSES SUB-FIELD^NL^.01^1"
^DD(63.323,0,"NM","PATHOLOGICAL DIAGNOSES")=""
^DD(63.323,0,"UP")="63"
^DD(63.323,.01,0)="PATHOLOGICAL DIAGNOSES^W^^0;1^Q"
^DD(63.323,.01,"DT")="2850311"
^DD(63.323,"B","PATHOLOGICAL DIAGNOSES",.01)=""
^DD(63.323,"GL",0,1,.01)=""
^DD(63.324,0)="AUTOPSY SUPPLEMENTARY REPORT SUB-FIELD^^2^5"
^DD(63.324,0,"DT")="3030924"
^DD(63.324,0,"NM","AUTOPSY SUPPLEMENTARY REPORT")=""
^DD(63.324,0,"UP")="63"
^DD(63.324,.01,0)="SUPPLEMENTARY REPORT DATE^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.324,.01,21,0)="^.001^1^1^3010831^^^"
^DD(63.324,.01,21,1,0)="Date of supplementary autopsy report"
^DD(63.324,.01,"AUDIT")="n"
^DD(63.324,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion is not permitted"","""",""!!"")"
^DD(63.324,.01,"DT")="2880810"
^DD(63.324,.02,0)="RELEASE SUPPLEMENTARY REPORT^S^1:YES;0:NO;1:yes;0:no;^0;2^Q"
^DD(63.324,.02,21,0)="^.001^2^2^3011031^^"
^DD(63.324,.02,21,1,0)="If the supplementary report is to be displayed or printed outside of lab, the"
^DD(63.324,.02,21,2,0)="report must be released by entering 'YES'."
^DD(63.324,.02,"DT")="3011030"
^DD(63.324,.03,0)="RELEASE SUPP REPORT MODIFIED^S^1:YES;0:NO;^0;3^Q"
^DD(63.324,.03,21,0)="^^2^2^3040908^"
^DD(63.324,.03,21,1,0)="This flag will be set to '1' when a released supplementary report is modified. "
^DD(63.324,.03,21,2,0)="It is removed when the modified supplementary report is released.  "
^DD(63.324,.03,"DT")="3040908"
^DD(63.324,1,0)="DESCRIPTION^63.3241^^1;0"
^DD(63.324,1,21,0)="^.001^1^1^3010831^^"
^DD(63.324,1,21,1,0)="Description of the supplementary autopsy"
^DD(63.324,2,0)="SUPPLEMENTARY REPORT MODIFIED^63.3242DA^^2;0"
^DD(63.324,2,21,0)="^.001^3^3^3001121^^^^"
^DD(63.324,2,21,1,0)="This is the date/time in which this supplementary report was modified.  This"
^DD(63.324,2,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.324,2,21,3,0)="and can only be changed from programmer mode."
^DD(63.324,2,"DT")="3000908"
^DD(63.324,"B","DESCRIPTION",1)=""
^DD(63.324,"B","RELEASE SUPP REPORT MODIFIED",.03)=""
^DD(63.324,"B","RELEASE SUPPLEMENTARY REPORT",.02)=""
^DD(63.324,"B","SUPPLEMENTARY REPORT DATE",.01)=""
^DD(63.324,"B","SUPPLEMENTARY REPORT MODIFIED",2)=""
^DD(63.324,"GL",0,1,.01)=""
^DD(63.324,"GL",0,2,.02)=""
^DD(63.324,"GL",0,3,.03)=""
^DD(63.324,"GL",1,0,1)=""
^DD(63.324,"GL",2,0,2)=""
^DD(63.324,"SB",63.3241,1)=""
^DD(63.324,"SB",63.3242,2)=""
^DD(63.3241,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(63.3241,0,"NM","DESCRIPTION")=""
^DD(63.3241,0,"UP")="63.324"
^DD(63.3241,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.3241,.01,"DT")="2880810"
^DD(63.3241,"B","DESCRIPTION",.01)=""
^DD(63.3241,"GL",0,1,.01)=""
^DD(63.3242,0)="SUPPLEMENTARY REPORT MODIFIED SUB-FIELD^^1^5"
^DD(63.3242,0,"DT")="3030924"
^DD(63.3242,0,"IX","B",63.3242,.01)=""
^DD(63.3242,0,"NM","SUPPLEMENTARY REPORT MODIFIED")=""
^DD(63.3242,0,"UP")="63.324"
^DD(63.3242,.01,0)="SUPPLEMENTARY REPORT MODIFIED^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.3242,.01,1,0)="^.1"
^DD(63.3242,.01,1,1,0)="63.3242^B"
^DD(63.3242,.01,1,1,1)="S ^LR(DA(2),84,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.3242,.01,1,1,2)="K ^LR(DA(2),84,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.3242,.01,3)="This is the date/time in which this supplementary report was modified.  It is updated by the software and can only be modified from programmer mode."
^DD(63.3242,.01,21,0)="^.001^3^3^3001121^^^^"
^DD(63.3242,.01,21,1,0)="This is the date/time in which this supplementary report was modified.  This"
^DD(63.3242,.01,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.3242,.01,21,3,0)="and can only be changed from programmer mode."
^DD(63.3242,.01,"DT")="3000908"
^DD(63.3242,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.3242,.02,3)="This the DUZ of the person who modified the supplementary report.  It is updated by the software and can only be modified from programmer mode."
^DD(63.3242,.02,21,0)="^.001^2^2^3001121^^^^"
^DD(63.3242,.02,21,1,0)="This is the DUZ of the person who modified the supplementary report.  It is"
^DD(63.3242,.02,21,2,0)="updated by the software and can only be modified from programmer mode."
^DD(63.3242,.02,"DT")="3000427"
^DD(63.3242,.03,0)="PERSON RELEASING THE SUPP. RPT^P200'^VA(200,^0;3^Q"
^DD(63.3242,.03,3)="This is the DUZ of the person who released the supplementary report.  It is updated by software and can only be modified from programmer mode."
^DD(63.3242,.03,21,0)="^^2^2^3030924^"
^DD(63.3242,.03,21,1,0)="This is the DUZ of the person who released the supplementary report.  It is"
^DD(63.3242,.03,21,2,0)="updated by the software and can only be modified from programmer mode."
^DD(63.3242,.03,"DT")="3031125"
^DD(63.3242,.04,0)="SUPP REPORT RELEASE DATE/TIME^DX^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.3242,.04,3)="This is the date/time in which this supplementary report was released.  It is updated by the software and can only be modified from programmer mode."
^DD(63.3242,.04,21,0)="^^3^3^3030924^"
^DD(63.3242,.04,21,1,0)="This is the date/time in which this supplementary report was released.  This"
^DD(63.3242,.04,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.3242,.04,21,3,0)="and can only be changed from programmer mode."
^DD(63.3242,.04,"DT")="3040205"
^DD(63.3242,1,0)="PREMODIFICATION TEXT^63.32421^^1;0"
^DD(63.3242,1,21,0)="^.001^3^3^3001121^^^^"
^DD(63.3242,1,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.3242,1,21,2,0)="modified.  It is updated by the software and can only be modified from"
^DD(63.3242,1,21,3,0)="programmer mode."
^DD(63.3242,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.3242,"B","PERSON RELEASING THE SUPP. RPT",.03)=""
^DD(63.3242,"B","PREMODIFICATION TEXT",1)=""
^DD(63.3242,"B","SUPP REPORT RELEASE DATE/TIME",.04)=""
^DD(63.3242,"B","SUPPLEMENTARY REPORT MODIFIED",.01)=""
^DD(63.3242,"GL",0,1,.01)=""
^DD(63.3242,"GL",0,2,.02)=""
^DD(63.3242,"GL",0,3,.03)=""
^DD(63.3242,"GL",0,4,.04)=""
^DD(63.3242,"GL",1,0,1)=""
^DD(63.3242,"IX",.01)=""
^DD(63.3242,"SB",63.32421,1)=""
^DD(63.32421,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.32421,0,"DT")="2991214"
^DD(63.32421,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.32421,0,"UP")="63.3242"
^DD(63.32421,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.32421,.01,3)="This is the text of the supplementary report as it existed before it was modified.  This field is updated by the software and can only be modified from programmer mode."
^DD(63.32421,.01,21,0)="^.001^3^3^3001121^^^^"
^DD(63.32421,.01,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.32421,.01,21,2,0)="modified.  This field is updated by the software and can only be"
^DD(63.32421,.01,21,3,0)="modified from programmer mode."
^DD(63.32421,.01,"DT")="2991214"
^DD(63.32421,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.32421,"GL",0,1,.01)=""
^DD(63.33,0)="BACT RPT REMARK SUB-FIELD^NL^.01^1"
^DD(63.33,0,"NM","BACT RPT REMARK")=""
^DD(63.33,0,"UP")="63.05"
^DD(63.33,.01,0)="BACT RPT REMARK^MFX^^0;1^S Q9=""1,68,KM"" D COM^LRNUM"
^DD(63.33,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.33,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KM""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.33,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.33,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.33,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""M""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.33,.01,21,0)="^^1^1^2911203^"
^DD(63.33,.01,21,1,0)="This is a report remark on bacteriology data."
^DD(63.33,.01,"DT")="2870503"
^DD(63.33,"B","BACT RPT REMARK",.01)=""
^DD(63.33,"GL",0,1,.01)=""
^DD(63.331,0)="PARAFFIN BLOCK SUB-FIELD^^1^4"
^DD(63.331,0,"DT")="2930420"
^DD(63.331,0,"IX","B",63.331,.01)=""
^DD(63.331,0,"NM","PARAFFIN BLOCK")=""
^DD(63.331,0,"UP")="63.033"
^DD(63.331,.01,0)="PARAFFIN BLOCK ID^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(63.331,.01,1,0)="^.1"
^DD(63.331,.01,1,1,0)="63.331^B"
^DD(63.331,.01,1,1,1)="S ^LR(DA(2),33,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(63.331,.01,1,1,2)="K ^LR(DA(2),33,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(63.331,.01,3)="Answer must be 1-9 characters in length."
^DD(63.331,.01,21,0)="^^2^2^2920205^"
^DD(63.331,.01,21,1,0)="The identification number on the paraffin block used to "
^DD(63.331,.01,21,2,0)="make slides for staining."
^DD(63.331,.01,"DT")="2940912"
^DD(63.331,.02,0)="DATE/TIME BLOCK PREPARED^RD^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.331,.02,21,0)="^^1^1^2920205^"
^DD(63.331,.02,21,1,0)="Date/time block prepared.  Used for workload recording."
^DD(63.331,.02,"DT")="2920205"
^DD(63.331,.03,0)="BLOCK COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(63.331,.03,21,0)="^^1^1^2920205^"
^DD(63.331,.03,21,1,0)="Used for workload recording."
^DD(63.331,.03,"DT")="2920205"
^DD(63.331,1,0)="STAIN/PROCEDURE^63.3311PA^^1;0"
^DD(63.331,1,12)="Selects only stains/procedures associated with anatomic pathology."
^DD(63.331,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.331,1,21,0)="^^2^2^2920205^"
^DD(63.331,1,21,1,0)="List of tissue stains or procedures performed on the slides "
^DD(63.331,1,21,2,0)="cut from the paraffin block."
^DD(63.331,"B","BLOCK COUNTED",.03)=""
^DD(63.331,"B","DATE/TIME BLOCK PREPARED",.02)=""
^DD(63.331,"B","PARAFFIN BLOCK ID",.01)=""
^DD(63.331,"B","STAIN/PROCEDURE",1)=""
^DD(63.331,"GL",0,1,.01)=""
^DD(63.331,"GL",0,2,.02)=""
^DD(63.331,"GL",0,3,.03)=""
^DD(63.331,"GL",1,0,1)=""
^DD(63.331,"IX",.01)=""
^DD(63.331,"RQ",.02)=""
^DD(63.331,"SB",63.3311,1)=""
^DD(63.3311,0)="STAIN/PROCEDURE SUB-FIELD^^.09^8"
^DD(63.3311,0,"DT")="2930420"
^DD(63.3311,0,"NM","STAIN/PROCEDURE")=""
^DD(63.3311,0,"UP")="63.331"
^DD(63.3311,.01,0)="STAIN/PROCEDURE^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.3311,.01,1,0)="^.1^^0"
^DD(63.3311,.01,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.3311,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.3311,.01,21,0)="^^2^2^2920205^"
^DD(63.3311,.01,21,1,0)="A tissue stain or procedure performed on a slide cut from a "
^DD(63.3311,.01,21,2,0)="paraffin block."
^DD(63.3311,.01,"DT")="2920206"
^DD(63.3311,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.3311,.02,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(63.3311,.02,21,0)="^^2^2^2920205^"
^DD(63.3311,.02,21,1,0)="The number of slides for which a specific stain or procedure "
^DD(63.3311,.02,21,2,0)="was performed."
^DD(63.3311,.02,"DT")="2920205"
^DD(63.3311,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.3311,.03,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(63.3311,.03,21,0)="^^1^1^2920205^"
^DD(63.3311,.03,21,1,0)="Number of control slides prepared."
^DD(63.3311,.03,"DT")="2920205"
^DD(63.3311,.04,0)="DATE/TIME SLIDES STAINED^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.3311,.04,21,0)="^^1^1^2930331^"
^DD(63.3311,.04,21,1,0)="Date slides were stained"
^DD(63.3311,.04,"DT")="2920205"
^DD(63.3311,.05,0)="DATE/TIME SLIDES EXAMINED^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.3311,.05,21,0)="^^1^1^2930331^"
^DD(63.3311,.05,21,1,0)="Date slides were examined"
^DD(63.3311,.05,"DT")="2920205"
^DD(63.3311,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.3311,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.3311,.06,21,0)="^^1^1^2920205^"
^DD(63.3311,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.3311,.06,"DT")="2920205"
^DD(63.3311,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.3311,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.3311,.07,21,0)="^^1^1^2930331^"
^DD(63.3311,.07,21,1,0)="Amount of labels needed to print"
^DD(63.3311,.07,"DT")="2920205"
^DD(63.3311,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.3311,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.3311,.09,21,0)="^^1^1^2940510^"
^DD(63.3311,.09,21,1,0)="Number of non-control slides counted"
^DD(63.3311,.09,"DT")="2930420"
^DD(63.3311,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.3311,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.3311,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.3311,"B","LABELS TO PRINT",.07)=""
^DD(63.3311,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.3311,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.3311,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.3311,"B","STAIN/PROCEDURE",.01)=""
^DD(63.3311,"GL",0,1,.01)=""
^DD(63.3311,"GL",0,2,.02)=""
^DD(63.3311,"GL",0,3,.03)=""
^DD(63.3311,"GL",0,4,.04)=""
^DD(63.3311,"GL",0,5,.05)=""
^DD(63.3311,"GL",0,6,.06)=""
^DD(63.3311,"GL",0,7,.07)=""
^DD(63.3311,"GL",0,9,.09)=""
^DD(63.34,0)="PARASITE SUB-FIELD^NL^1^3"
^DD(63.34,0,"DT")="2940817"
^DD(63.34,0,"IX","AC",63.34,.01)=""
^DD(63.34,0,"IX","B",63.34,.01)=""
^DD(63.34,0,"NM","PARASITE")=""
^DD(63.34,0,"UP")="63.05"
^DD(63.34,.001,0)="ISOLATE NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.34,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.34,.001,21,0)="^^1^1^2911203^"
^DD(63.34,.001,21,1,0)="This is the entry number of the parasite."
^DD(63.34,.001,"DT")="2850425"
^DD(63.34,.01,0)="PARASITE^M*P61.2'X^LAB(61.2,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<1 X"
^DD(63.34,.01,1,0)="^.1"
^DD(63.34,.01,1,1,0)="63.34^B"
^DD(63.34,.01,1,1,1)="S ^LR(DA(2),""MI"",DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(63.34,.01,1,1,2)="K ^LR(DA(2),""MI"",DA(1),6,""B"",$E(X,1,30),DA)"
^DD(63.34,.01,1,2,0)="63.34^AC^MUMPS"
^DD(63.34,.01,1,2,1)="I $P(^LAB(61.2,X,0),""^"",9) S ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")=DA(2)"
^DD(63.34,.01,1,2,2)="I $P(^LAB(61.2,X,0),""^"",9) K ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")"
^DD(63.34,.01,1,3,0)="63.05^AE^MUMPS"
^DD(63.34,.01,1,3,1)="D ENDIY^LRCAPV1"
^DD(63.34,.01,1,3,2)="Q"
^DD(63.34,.01,1,3,3)="Trigger workload collection routine."
^DD(63.34,.01,1,3,"%D",0)="^^1^1^2930720^"
^DD(63.34,.01,1,3,"%D",1,0)="Look any WKLD associated with this organism and record."
^DD(63.34,.01,1,3,"DT")="2930720"
^DD(63.34,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""P"""""""
^DD(63.34,.01,21,0)="^^1^1^2911204^^"
^DD(63.34,.01,21,1,0)="This is the parasite identified on this specimen."
^DD(63.34,.01,"DT")="2931025"
^DD(63.34,1,0)="STAGE^63.35SA^^1;0"
^DD(63.34,1,21,0)="^^1^1^2911204^^"
^DD(63.34,1,21,1,0)="These are the stages identified with this parasite."
^DD(63.34,"B","ISOLATE NUMBER",.001)=""
^DD(63.34,"B","PARASITE",.01)=""
^DD(63.34,"B","STAGE",1)=""
^DD(63.34,"GL",0,1,.01)=""
^DD(63.34,"GL",1,0,1)=""
^DD(63.34,"IX",.01)=""
^DD(63.34,"SB",63.35,1)=""
^DD(63.341,0)="PARASITOLOGY SMEAR/PREP SUB-FIELD^NL^.01^1"
^DD(63.341,0,"NM","PARASITOLOGY SMEAR/PREP")=""
^DD(63.341,0,"UP")="63.05"
^DD(63.341,.01,0)="PARASITOLOGY SMEAR/PREP^MFX^^0;1^S Q9=""1,68,KW"" D COM^LRNUM"
^DD(63.341,.01,3)="ANSWER MUST BE 1-68 CHARACTERS"
^DD(63.341,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KW""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.341,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.341,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.341,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""S""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.341,.01,21,0)="^^1^1^2911203^"
^DD(63.341,.01,21,1,0)="This is the result of a smear/prep in parasitology."
^DD(63.341,.01,"DT")="2870503"
^DD(63.341,"B","PARASITOLOGY SMEAR/PREP",.01)=""
^DD(63.341,"GL",0,1,.01)=""
^DD(63.35,0)="STAGE SUB-FIELD^NL^2^3"
^DD(63.35,0,"DT")="2940817"
^DD(63.35,0,"IX","B",63.35,.01)=""
^DD(63.35,0,"NM","STAGE")=""
^DD(63.35,0,"UP")="63.34"
^DD(63.35,.01,0)="STAGE^MS^T:TROPHOZOITES;C:CYSTS;E:EGGS;L:LARVAE;S:SCHIZONTS;G:GAMETES;M:MICROFILARIA;A:ADULTS;R:RHABDITIFORM LARVAE;F:FILARIFORM LARVAE;^0;1^Q"
^DD(63.35,.01,1,0)="^.1"
^DD(63.35,.01,1,1,0)="63.35^B"
^DD(63.35,.01,1,1,1)="S ^LR(DA(3),""MI"",DA(2),6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(63.35,.01,1,1,2)="K ^LR(DA(3),""MI"",DA(2),6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(63.35,.01,21,0)="^^1^1^2940817^^^^"
^DD(63.35,.01,21,1,0)="This is the stage identified with this parasite."
^DD(63.35,.01,"DT")="2940817"
^DD(63.35,1,0)="QUANTITY^FX^^0;2^S Q9=""1,68,KP"" D COM^LRNUM"
^DD(63.35,1,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.35,1,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KP""""=$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.35,1,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.35,1,9.2) S %L=$L(%S)+$L(%Z) S:%L'>50 %S=%S_%Z_"" "" I %L>50 W ""  too long"",! Q"
^DD(63.35,1,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""P""=$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.35,1,21,0)="^^1^1^2911204^^^"
^DD(63.35,1,21,1,0)="This is the quantity of the parasite present."
^DD(63.35,1,"DT")="2870503"
^DD(63.35,2,0)="COMMENT^63.351A^^1;0"
^DD(63.35,2,21,0)="^^1^1^2911204^^"
^DD(63.35,2,21,1,0)="These are the comments on this parasite."
^DD(63.35,"B","COMMENT",2)=""
^DD(63.35,"B","QUANTITY",1)=""
^DD(63.35,"B","STAGE",.01)=""
^DD(63.35,"GL",0,1,.01)=""
^DD(63.35,"GL",0,2,1)=""
^DD(63.35,"GL",1,0,2)=""
^DD(63.35,"IX",.01)=""
^DD(63.35,"SB",63.351,2)=""
^DD(63.351,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(63.351,0,"NM","COMMENT")=""
^DD(63.351,0,"UP")="63.35"
^DD(63.351,.01,0)="COMMENT^MFX^^0;1^S Q9=""1,68,KP"" D COM^LRNUM"
^DD(63.351,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.351,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KP""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.351,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.351,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.351,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""P""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.351,.01,21,0)="^^1^1^2911204^^"
^DD(63.351,.01,21,1,0)="This is a comment on this parasite."
^DD(63.351,.01,"DT")="2870503"
^DD(63.351,"B","COMMENT",.01)=""
^DD(63.351,"GL",0,1,.01)=""
^DD(63.36,0)="PARASITE RPT REMARK SUB-FIELD^NL^.01^1"
^DD(63.36,0,"NM","PARASITE RPT REMARK")=""
^DD(63.36,0,"UP")="63.05"
^DD(63.36,.01,0)="PARASITE RPT REMARK^MFX^^0;1^S Q9=""1,68,KMP"" D COM^LRNUM"
^DD(63.36,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.36,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMP""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.36,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.36,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.36,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""P""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.36,.01,"DT")="2870503"
^DD(63.36,"B","PARASITE RPT REMARK",.01)=""
^DD(63.36,"GL",0,1,.01)=""
^DD(63.361,0)="PARASITE TEST(S) SUB-FIELD^^.01^1"
^DD(63.361,0,"NM","PARASITE TEST(S)")=""
^DD(63.361,0,"UP")="63.05"
^DD(63.361,.01,0)="PARASITE TEST(S)^F^^0;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.361,.01,1,0)="^.1^^0"
^DD(63.361,.01,3)="Answer must be 2-68 characters in length."
^DD(63.361,.01,"DT")="2890330"
^DD(63.361,"B","PARASITE TEST(S)",.01)=""
^DD(63.361,"GL",0,1,.01)=""
^DD(63.37,0)="FUNGUS/YEAST SUB-FIELD^NL^2^4"
^DD(63.37,0,"IX","AC",63.37,.01)=""
^DD(63.37,0,"IX","B",63.37,.01)=""
^DD(63.37,0,"NM","FUNGUS/YEAST")=""
^DD(63.37,0,"UP")="63.05"
^DD(63.37,.001,0)="ISOLATE NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.37,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.37,.001,"DT")="2850425"
^DD(63.37,.01,0)="FUNGUS/YEAST^M*P61.2'^LAB(61.2,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""F"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.37,.01,1,0)="^.1"
^DD(63.37,.01,1,1,0)="63.37^B"
^DD(63.37,.01,1,1,1)="S ^LR(DA(2),""MI"",DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(63.37,.01,1,1,2)="K ^LR(DA(2),""MI"",DA(1),9,""B"",$E(X,1,30),DA)"
^DD(63.37,.01,1,2,0)="63.37^AC^MUMPS"
^DD(63.37,.01,1,2,1)="I $P($G(^LAB(61.2,+X,0)),""^"",9) S ^LR(""AD"",DT,+X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")=DA(2)"
^DD(63.37,.01,1,2,2)="I $P($G(^LAB(61.2,+X,0)),""^"",9) K ^LR(""AD"",DT,+X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")"
^DD(63.37,.01,1,3,0)="63.05^AD^MUMPS"
^DD(63.37,.01,1,3,1)="D ENDIY^LRCAPV1"
^DD(63.37,.01,1,3,2)="Q"
^DD(63.37,.01,1,3,3)="To trigger WKLD routine."
^DD(63.37,.01,1,3,"%D",0)="^^1^1^2930720^"
^DD(63.37,.01,1,3,"%D",1,0)="Lookup any WKLD codes for this organism and record."
^DD(63.37,.01,1,3,"DT")="2930720"
^DD(63.37,.01,"DT")="2930720"
^DD(63.37,1,0)="QUANTITY^FX^^0;2^S Q9=""1,68,KF"" D COM^LRNUM"
^DD(63.37,1,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.37,1,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KF""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.37,1,"DT")="2870503"
^DD(63.37,2,0)="COMMENT^63.372A^^1;0"
^DD(63.37,"B","COMMENT",2)=""
^DD(63.37,"B","FUNGUS/YEAST",.01)=""
^DD(63.37,"B","ISOLATE NUMBER",.001)=""
^DD(63.37,"B","QUANTITY",1)=""
^DD(63.37,"GL",0,1,.01)=""
^DD(63.37,"GL",0,2,1)=""
^DD(63.37,"GL",1,0,2)=""
^DD(63.37,"IX",.01)=""
^DD(63.37,"SB",63.372,2)=""
^DD(63.371,0)="MYCOLOGY SMEAR/PREP SUB-FIELD^NL^.01^1"
^DD(63.371,0,"NM","MYCOLOGY SMEAR/PREP")=""
^DD(63.371,0,"UP")="63.05"
^DD(63.371,.01,0)="MYCOLOGY SMEAR/PREP^MFX^^0;1^S Q9=""1,68,KW"" D COM^LRNUM"
^DD(63.371,.01,3)="ANSWER MUST BE 1-68 CHARACTERS"
^DD(63.371,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KW""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.371,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.371,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.371,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""S""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.371,.01,"DT")="2870601"
^DD(63.371,"B","MYCOLOGY SMEAR/PREP",.01)=""
^DD(63.371,"GL",0,1,.01)=""
^DD(63.372,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(63.372,0,"NM","COMMENT")=""
^DD(63.372,0,"UP")="63.37"
^DD(63.372,.01,0)="COMMENT^MFX^^0;1^S Q9=""1,68,KF"" D COM^LRNUM"
^DD(63.372,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.372,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KF""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.372,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.372,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.372,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""F""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.372,.01,"DT")="2870503"
^DD(63.372,"B","COMMENT",.01)=""
^DD(63.372,"GL",0,1,.01)=""
^DD(63.38,0)="MYCOLOGY RPT REMARK SUB-FIELD^NL^.01^1"
^DD(63.38,0,"NM","MYCOLOGY RPT REMARK")=""
^DD(63.38,0,"UP")="63.05"
^DD(63.38,.01,0)="MYCOLOGY RPT REMARK^MFX^^0;1^S Q9=""1,68,KMF"" D COM^LRNUM"
^DD(63.38,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.38,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMF""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.38,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.38,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.38,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""F""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.38,.01,"DT")="2870503"
^DD(63.38,"B","MYCOLOGY RPT REMARK",.01)=""
^DD(63.38,"GL",0,1,.01)=""
^DD(63.39,0)="MYCOBACTERIUM SUB-FIELD^NL^55^15"
^DD(63.39,0,"IX","AF",63.39,.01)=""
^DD(63.39,0,"IX","B",63.39,.01)=""
^DD(63.39,0,"NM","MYCOBACTERIUM")=""
^DD(63.39,0,"UP")="63.05"
^DD(63.39,.001,0)="ISOLATE NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.39,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.39,.001,21,0)="^^1^1^2911204^^"
^DD(63.39,.001,21,1,0)="This is the entry number of the mycobacterium."
^DD(63.39,.001,"DT")="2850425"
^DD(63.39,.01,0)="MYCOBACTERIUM^M*P61.2'^LAB(61.2,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.39,.01,1,0)="^.1"
^DD(63.39,.01,1,1,0)="63.39^B"
^DD(63.39,.01,1,1,1)="S ^LR(DA(2),""MI"",DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(63.39,.01,1,1,2)="K ^LR(DA(2),""MI"",DA(1),12,""B"",$E(X,1,30),DA)"
^DD(63.39,.01,1,2,0)="63.39^AF^MUMPS"
^DD(63.39,.01,1,2,1)="I $P(^LAB(61.2,X,0),""^"",9) S ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")=DA(2)"
^DD(63.39,.01,1,2,2)="I $P(^LAB(61.2,X,0),""^"",9) K ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")"
^DD(63.39,.01,1,3,0)="63.05^AC^MUMPS"
^DD(63.39,.01,1,3,1)="D ENDIY^LRCAPV1"
^DD(63.39,.01,1,3,2)="Q"
^DD(63.39,.01,1,3,3)="To trigger WKDL routine."
^DD(63.39,.01,1,3,"%D",0)="^^1^1^2930720^"
^DD(63.39,.01,1,3,"%D",1,0)=" Look up any WKLD codes for this organism and record."
^DD(63.39,.01,1,3,"DT")="2930720"
^DD(63.39,.01,21,0)="^^2^2^2911204^"
^DD(63.39,.01,21,1,0)="This is the mycobacterium identified with this"
^DD(63.39,.01,21,2,0)="specimen."
^DD(63.39,.01,"DT")="2930720"
^DD(63.39,1,0)="QUANTITY^FX^^0;2^S Q9=""1,68,KT"" D COM^LRNUM"
^DD(63.39,1,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.39,1,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KT""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.39,1,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.39,1,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.39,1,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""T""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.39,1,21,0)="^^1^1^2911204^^"
^DD(63.39,1,21,1,0)="This is the quantity of the mycobacterium present."
^DD(63.39,1,"DT")="2870503"
^DD(63.39,2,0)="COMMENT^63.4A^^1;0"
^DD(63.39,2,21,0)="^^1^1^2911204^^"
^DD(63.39,2,21,1,0)="These are the comments on the microbacterium data."
^DD(63.39,5,0)="STR^FX^^2.0001;1^D COM^LRMISR"
^DD(63.39,5,.1)="Streptomycin"
^DD(63.39,5,3)=""
^DD(63.39,5,4)="D ZQ^LRMISR"
^DD(63.39,5,"DT")="2841119"
^DD(63.39,10,0)="PAS^F^^2.0002;1^D COM^LRMISR"
^DD(63.39,10,.1)="p-Aminosalicylic Acid"
^DD(63.39,10,3)=""
^DD(63.39,10,4)="D ZQ^LRMISR"
^DD(63.39,15,0)="INH^F^^2.0003;1^D COM^LRMISR"
^DD(63.39,15,.1)="Isoniazid"
^DD(63.39,15,3)=""
^DD(63.39,15,4)="D ZQ^LRMISR"
^DD(63.39,15,"DT")="2860715"
^DD(63.39,20,0)="ETH^F^^2.0004;1^D COM^LRMISR"
^DD(63.39,20,.1)="Ethambutal"
^DD(63.39,20,3)=""
^DD(63.39,20,4)="D ZQ^LRMISR"
^DD(63.39,25,0)="RIF^F^^2.0005;1^D COM^LRMISR"
^DD(63.39,25,.1)="Rifampin"
^DD(63.39,25,3)=""
^DD(63.39,25,4)="D ZQ^LRMISR"
^DD(63.39,30,0)="KANAMYCIN^F^^2.0006;1^D COM^LRMISR"
^DD(63.39,30,3)=""
^DD(63.39,30,4)="D ZQ^LRMISR"
^DD(63.39,30,"DT")="2900615"
^DD(63.39,35,0)="CAPREOMYCIN^F^^2.0007;1^D COM^LRMISR"
^DD(63.39,35,3)=""
^DD(63.39,35,4)="D ZQ^LRMISR"
^DD(63.39,40,0)="CYCLOSERINE^F^^2.0008;1^D COM^LRMISR"
^DD(63.39,40,3)=""
^DD(63.39,40,4)="D ZQ^LRMISR"
^DD(63.39,45,0)="ETHIONAMIDE^F^^2.0009;1^D COM^LRMISR"
^DD(63.39,45,3)=""
^DD(63.39,45,4)="D ZQ^LRMISR"
^DD(63.39,50,0)="PYRAZINAMIDE^F^^2.001;1^D COM^LRMISR"
^DD(63.39,50,3)=""
^DD(63.39,50,4)="D ZQ^LRMISR"
^DD(63.39,55,0)="MIOMYCIN^F^^2.0011;1^D COM^LRMISR"
^DD(63.39,55,3)=""
^DD(63.39,55,4)="D ZQ^LRMISR"
^DD(63.39,"B","CAPREOMYCIN",35)=""
^DD(63.39,"B","COMMENT",2)=""
^DD(63.39,"B","CYCLOSERINE",40)=""
^DD(63.39,"B","ETH",20)=""
^DD(63.39,"B","ETHIONAMIDE",45)=""
^DD(63.39,"B","Ethambutal",20)="1"
^DD(63.39,"B","INH",15)=""
^DD(63.39,"B","ISOLATE NUMBER",.001)=""
^DD(63.39,"B","Isoniazid",15)="1"
^DD(63.39,"B","KANAMYCIN",30)=""
^DD(63.39,"B","MIOMYCIN",55)=""
^DD(63.39,"B","MYCOBACTERIUM",.01)=""
^DD(63.39,"B","PAS",10)=""
^DD(63.39,"B","PYRAZINAMIDE",50)=""
^DD(63.39,"B","QUANTITY",1)=""
^DD(63.39,"B","RIF",25)=""
^DD(63.39,"B","Rifampin",25)="1"
^DD(63.39,"B","STR",5)=""
^DD(63.39,"B","Streptomycin",5)="1"
^DD(63.39,"B","p-Aminosalicylic Acid",10)="1"
^DD(63.39,"GL",0,1,.01)=""
^DD(63.39,"GL",0,2,1)=""
^DD(63.39,"GL",1,0,2)=""
^DD(63.39,"GL",2.0001,1,5)=""
^DD(63.39,"GL",2.0002,1,10)=""
^DD(63.39,"GL",2.0003,1,15)=""
^DD(63.39,"GL",2.0004,1,20)=""
^DD(63.39,"GL",2.0005,1,25)=""
^DD(63.39,"GL",2.0006,1,30)=""
^DD(63.39,"GL",2.0007,1,35)=""
^DD(63.39,"GL",2.0008,1,40)=""
^DD(63.39,"GL",2.0009,1,45)=""
^DD(63.39,"GL",2.001,1,50)=""
^DD(63.39,"GL",2.0011,1,55)=""
^DD(63.39,"IX",.01)=""
^DD(63.39,"SB",63.4,2)=""
^DD(63.4,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(63.4,0,"NM","COMMENT")=""
^DD(63.4,0,"UP")="63.39"
^DD(63.4,.01,0)="COMMENT^MFX^^0;1^S Q9=""1,68,KT"" D COM^LRNUM"
^DD(63.4,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.4,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KT""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.4,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.4,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.4,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.4,.01,21,0)="^^1^1^2911204^^^"
^DD(63.4,.01,21,1,0)="This is the comment on the mycobacterium data."
^DD(63.4,.01,"DT")="2870503"
^DD(63.4,"B","COMMENT",.01)=""
^DD(63.4,"GL",0,1,.01)=""
^DD(63.41,0)="TB RPT REMARK SUB-FIELD^NL^.01^1"
^DD(63.41,0,"NM","TB RPT REMARK")=""
^DD(63.41,0,"UP")="63.05"
^DD(63.41,.01,0)="TB RPT REMARK^MFX^^0;1^S Q9=""1,68,KMT"" D COM^LRNUM"
^DD(63.41,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.41,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMT""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.41,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.41,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.41,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""T""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.41,.01,21,0)="^^1^1^2911204^"
^DD(63.41,.01,21,1,0)="This is a report remark on the mycobacterium data."
^DD(63.41,.01,"DT")="2870503"
^DD(63.41,"B","TB RPT REMARK",.01)=""
^DD(63.41,"GL",0,1,.01)=""
^DD(63.42,0)="ANTIBIOTIC LEVEL SUB-FIELD^NL^2^3"
^DD(63.42,0,"NM","ANTIBIOTIC LEVEL")=""
^DD(63.42,0,"UP")="63.05"
^DD(63.42,.01,0)="ANTIBIOTIC(for SERUM LEVEL)^MF^^0;1^K:$L(X)>20!($L(X)<2) X"
^DD(63.42,.01,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(63.42,.01,21,0)="^^1^1^2911204^"
^DD(63.42,.01,21,1,0)="This is the result of the antibiotic levels."
^DD(63.42,1,0)="DRAW TIME^RS^P:PEAK;T:TROUGH;R:RANDOM;^0;2^Q"
^DD(63.42,1,21,0)="^^2^2^2911204^"
^DD(63.42,1,21,1,0)="This is the collection time of the antibiotic"
^DD(63.42,1,21,2,0)="level."
^DD(63.42,1,"DT")="2850320"
^DD(63.42,2,0)="CONC(ug/ml)^FX^^0;3^S X1="""" S:$E(X,1)=""<""!($E(X,1)="">"") X1=$E(X,1),X=$E(X,2,99) K:$L(X)>20!('(X?1N.N1""-""1N.N)!('(+X'=X))!(X?.E1"".""2N.N)) X S:$D(X) X=X1_X"
^DD(63.42,2,3)="Enter low value, dash, high value, or just a value (may use '<' or '>')"
^DD(63.42,2,21,0)="^.001^2^2^3010409^^"
^DD(63.42,2,21,1,0)="This is the concentration of the result of"
^DD(63.42,2,21,2,0)="antibiotic level."
^DD(63.42,2,"DT")="3010601"
^DD(63.42,"B","ANTIBIOTIC(for SERUM LEVEL)",.01)=""
^DD(63.42,"B","CONC(ug/ml)",2)=""
^DD(63.42,"B","DRAW TIME",1)=""
^DD(63.42,"GL",0,1,.01)=""
^DD(63.42,"GL",0,2,1)=""
^DD(63.42,"GL",0,3,2)=""
^DD(63.42,"RQ",1)=""
^DD(63.43,0)="VIRUS SUB-FIELD^NL^.01^2"
^DD(63.43,0,"IX","AG",63.43,.01)=""
^DD(63.43,0,"NM","VIRUS")=""
^DD(63.43,0,"UP")="63.05"
^DD(63.43,.001,0)="ISOLATE NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.43,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.43,.001,21,0)="^^1^1^2911204^"
^DD(63.43,.001,21,1,0)="This is the entry number of this virus."
^DD(63.43,.001,"DT")="2850425"
^DD(63.43,.01,0)="VIRUS^M*P61.2'^LAB(61.2,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""V""""!($P(^(0),U,5)=""""R"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.43,.01,1,0)="^.1"
^DD(63.43,.01,1,1,0)="63.43^AG^MUMPS"
^DD(63.43,.01,1,1,1)="I $P(^LAB(61.2,X,0),""^"",9) S ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")=DA(2)"
^DD(63.43,.01,1,1,2)="I $P(^LAB(61.2,X,0),""^"",9) K ^LR(""AD"",DT,X,$P(^LR(DA(2),""MI"",DA(1),0),""^"",6)_"" "")"
^DD(63.43,.01,1,2,0)="63.05^AF^MUMPS"
^DD(63.43,.01,1,2,1)="D ENDIY^LRCAPV1"
^DD(63.43,.01,1,2,2)="Q"
^DD(63.43,.01,1,2,3)="Trigger WKLD routine."
^DD(63.43,.01,1,2,"%D",0)="^^1^1^2930720^"
^DD(63.43,.01,1,2,"%D",1,0)="Look up any WKLD code for this organism and record."
^DD(63.43,.01,1,2,"DT")="2930720"
^DD(63.43,.01,21,0)="^^1^1^2911204^"
^DD(63.43,.01,21,1,0)="This is the virus reported on this specimen."
^DD(63.43,.01,"DT")="2930720"
^DD(63.43,"B","ISOLATE NUMBER",.001)=""
^DD(63.43,"B","VIRUS",.01)=""
^DD(63.43,"GL",0,1,.01)=""
^DD(63.43,"IX",.01)=""
^DD(63.431,0)="PRELIMINARY VIROLOGY COMMENT SUB-FIELD^NL^.01^1"
^DD(63.431,0,"NM","PRELIMINARY VIROLOGY COMMENT")=""
^DD(63.431,0,"UP")="63.05"
^DD(63.431,.01,0)="PRELIMINARY VIROLOGY COMMENT^MFX^^0;1^S Q9=""1,68,KMV"" D COM^LRNUM"
^DD(63.431,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.431,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMV""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.431,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.431,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.431,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.431,.01,21,0)="^^1^1^2911204^"
^DD(63.431,.01,21,1,0)="This is a preliminary virology comment."
^DD(63.431,.01,"DT")="2870503"
^DD(63.431,"B","PRELIMINARY VIROLOGY COMMENT",.01)=""
^DD(63.431,"GL",0,1,.01)=""
^DD(63.432,0)="VIROLOGY TESTS SUB-FIELD^^.01^1"
^DD(63.432,0,"NM","VIROLOGY TESTS")=""
^DD(63.432,0,"UP")="63.05"
^DD(63.432,.01,0)="VIROLOGY TESTS^F^^0;1^K:$L(X)>68!($L(X)<2) X"
^DD(63.432,.01,1,0)="^.1^^0"
^DD(63.432,.01,3)="Answer must be 2-68 characters in length."
^DD(63.432,.01,"DT")="2890330"
^DD(63.432,"B","VIROLOGY TESTS",.01)=""
^DD(63.432,"GL",0,1,.01)=""
^DD(63.44,0)="VIROLOGY RPT REMARK SUB-FIELD^NL^.01^1"
^DD(63.44,0,"NM","VIROLOGY RPT REMARK")=""
^DD(63.44,0,"UP")="63.05"
^DD(63.44,.01,0)="VIROLOGY RPT REMARK^MFX^^0;1^S Q9=""1,68,KMV"" D COM^LRNUM"
^DD(63.44,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.44,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KMV""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.44,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.44,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_"" "" I %L>68 W ""  too long"",! Q"
^DD(63.44,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<1  I ""V""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.44,.01,21,0)="^^1^1^2911204^^"
^DD(63.44,.01,21,1,0)="This is a report remark for virology."
^DD(63.44,.01,"DT")="2870503"
^DD(63.44,"B","VIROLOGY RPT REMARK",.01)=""
^DD(63.44,"GL",0,1,.01)=""
^DD(63.45,0)="IMAGE (MICROSCOPIC) SUB-FIELD^^.01^1"
^DD(63.45,0,"DT")="2950523"
^DD(63.45,0,"IX","B",63.45,.01)=""
^DD(63.45,0,"NM","IMAGE (MICROSCOPIC)")=""
^DD(63.45,0,"UP")="63.2"
^DD(63.45,.01,0)="IMAGE (MICROSCOPIC)^MP2005'^MAG(2005,^0;1^Q"
^DD(63.45,.01,1,0)="^.1"
^DD(63.45,.01,1,1,0)="63.45^B"
^DD(63.45,.01,1,1,1)="S ^LR(DA(2),""AY"",DA(1),2005.1,""B"",$E(X,1,30),DA)="""""
^DD(63.45,.01,1,1,2)="K ^LR(DA(2),""AY"",DA(1),2005.1,""B"",$E(X,1,30),DA)"
^DD(63.45,.01,3)="IMAGE POINTER BACK TO IMAGE FILE"
^DD(63.45,.01,"DT")="2950523"
^DD(63.45,"B","IMAGE (MICROSCOPIC)",.01)=""
^DD(63.45,"GL",0,1,.01)=""
^DD(63.45,"IX",.01)=""
^DD(63.46,0)="SERUM ANTIBODY SUB-FIELD^NL^.02^2"
^DD(63.46,0,"NM","SERUM ANTIBODY")=""
^DD(63.46,0,"UP")="63.01"
^DD(63.46,.01,0)="SERUM ANTIBODY^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(0)=""EQM"",DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.46,.01,12)="Limits entry to only blood group antibodies"
^DD(63.46,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AB"""""""
^DD(63.46,.01,12.2)="I $P(^(0),U,5)=""AB"""
^DD(63.46,.01,21,0)="^^1^1^2911127^"
^DD(63.46,.01,21,1,0)="These are the patient's serum antibodies."
^DD(63.46,.01,"DT")="2990521"
^DD(63.46,.02,0)="ANTIBODY COMMENT^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(63.46,.02,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(63.46,.02,21,0)="^^1^1^2911127^"
^DD(63.46,.02,21,1,0)="This is a comment on the antibodies."
^DD(63.46,.02,"DT")="2850829"
^DD(63.46,"B","ANTIBODY COMMENT",.02)=""
^DD(63.46,"B","SERUM ANTIBODY",.01)=""
^DD(63.46,"GL",0,1,.01)=""
^DD(63.46,"GL",0,2,.02)=""
^DD(63.47,0)="TIU REFERENCE DATE/TIME - CY SUB-FIELD^^2^3"
^DD(63.47,0,"DT")="3030116"
^DD(63.47,0,"IX","B",63.47,.01)=""
^DD(63.47,0,"IX","C",63.47,1)=""
^DD(63.47,0,"NM","TIU REFERENCE DATE/TIME - CY")=""
^DD(63.47,0,"UP")="63.09"
^DD(63.47,.01,0)="TIU REFERENCE DATE/TIME - CY^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.47,.01,1,0)="^.1"
^DD(63.47,.01,1,1,0)="63.47^B"
^DD(63.47,.01,1,1,1)="S ^LR(DA(2),""CY"",DA(1),.05,""B"",$E(X,1,30),DA)="""""
^DD(63.47,.01,1,1,2)="K ^LR(DA(2),""CY"",DA(1),.05,""B"",$E(X,1,30),DA)"
^DD(63.47,.01,21,0)="^.001^3^3^3010829^^"
^DD(63.47,.01,21,1,0)="This is the date and time that the cytopathology SF515 was stored in TIU.  It"
^DD(63.47,.01,21,2,0)="will match the REFERENCE DATE (#1301) field of the corresponding document in"
^DD(63.47,.01,21,3,0)="the TIU DOCUMENT (#8925) file."
^DD(63.47,.01,"DEL",1,0)="I"
^DD(63.47,.01,"DT")="3010829"
^DD(63.47,1,0)="TIU ENTRY POINTER - CY^P8925'^TIU(8925,^0;2^Q"
^DD(63.47,1,1,0)="^.1"
^DD(63.47,1,1,1,0)="63.47^C"
^DD(63.47,1,1,1,1)="S ^LR(DA(2),""CY"",DA(1),.05,""C"",$E(X,1,30),DA)="""""
^DD(63.47,1,1,1,2)="K ^LR(DA(2),""CY"",DA(1),.05,""C"",$E(X,1,30),DA)"
^DD(63.47,1,1,1,"DT")="3010727"
^DD(63.47,1,21,0)="^.001^3^3^3010829^^"
^DD(63.47,1,21,1,0)="This field is a pointer to the TIU DOCUMENT (#8925) file.  It stores the"
^DD(63.47,1,21,2,0)="pointer for a cytopathology SF515 that has been electronically signed and"
^DD(63.47,1,21,3,0)="stored in TIU."
^DD(63.47,1,"DEL",1,0)="I"
^DD(63.47,1,"DT")="3010829"
^DD(63.47,2,0)="TIU CHECKSUM - CY^FI^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(63.47,2,21,0)="^^5^5^3030116^^^"
^DD(63.47,2,21,1,0)="This field stores the checksum that is calculated at the time the report "
^DD(63.47,2,21,2,0)="version is initially stored in TIU.  It will be used for comparison in future "
^DD(63.47,2,21,3,0)="print/view requests.  A new checksum will be calculated whenever the report"
^DD(63.47,2,21,4,0)="version is printed/viewed, and matching checksums are proof that the report"
^DD(63.47,2,21,5,0)="version has not been illegally altered."
^DD(63.47,2,"DT")="3030117"
^DD(63.47,"B","TIU CHECKSUM - CY",2)=""
^DD(63.47,"B","TIU ENTRY POINTER - CY",1)=""
^DD(63.47,"B","TIU REFERENCE DATE/TIME - CY",.01)=""
^DD(63.47,"GL",0,1,.01)=""
^DD(63.47,"GL",0,2,1)=""
^DD(63.47,"GL",0,3,2)=""
^DD(63.47,"IX",.01)=""
^DD(63.47,"IX",1)=""
^DD(63.48,0)="ANTIBODY SCREEN COMMENT SUB-FIELD^NL^.01^1"
^DD(63.48,0,"NM","ANTIBODY SCREEN COMMENT")=""
^DD(63.48,0,"UP")="63.01"
^DD(63.48,.01,0)="ANTIBODY SCREEN COMMENT^MFX^^0;1^K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)=""JX"" D ^LRUB"
^DD(63.48,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(63.48,.01,4)="S L(1)=""JX"" D Q^LRUB"
^DD(63.48,.01,21,0)="^^1^1^2911127^"
^DD(63.48,.01,21,1,0)="This is a comment on the antibody screen."
^DD(63.48,.01,"DT")="2870519"
^DD(63.48,"B","ANTIBODY SCREEN COMMENT",.01)=""
^DD(63.48,"GL",0,1,.01)=""
^DD(63.49,0)="TIU REFERENCE DATE/TIME - EM SUB-FIELD^^2^3"
^DD(63.49,0,"DT")="3030116"
^DD(63.49,0,"IX","B",63.49,.01)=""
^DD(63.49,0,"IX","C",63.49,1)=""
^DD(63.49,0,"NM","TIU REFERENCE DATE/TIME - EM")=""
^DD(63.49,0,"UP")="63.02"
^DD(63.49,.01,0)="TIU REFERENCE DATE/TIME - EM^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.49,.01,1,0)="^.1"
^DD(63.49,.01,1,1,0)="63.49^B"
^DD(63.49,.01,1,1,1)="S ^LR(DA(2),""EM"",DA(1),.05,""B"",$E(X,1,30),DA)="""""
^DD(63.49,.01,1,1,2)="K ^LR(DA(2),""EM"",DA(1),.05,""B"",$E(X,1,30),DA)"
^DD(63.49,.01,21,0)="^.001^3^3^3010829^^"
^DD(63.49,.01,21,1,0)="This is the date and time that the electron microscopy SF515 was stored in TIU."
^DD(63.49,.01,21,2,0)="It will match the REFERENCE DATE (#1301) field of the corresponding document"
^DD(63.49,.01,21,3,0)="in the TIU DOCUMENT (#8925) file."
^DD(63.49,.01,"DEL",1,0)="I"
^DD(63.49,.01,"DT")="3010829"
^DD(63.49,1,0)="TIU ENTRY POINTER - EM^P8925'^TIU(8925,^0;2^Q"
^DD(63.49,1,1,0)="^.1"
^DD(63.49,1,1,1,0)="63.49^C"
^DD(63.49,1,1,1,1)="S ^LR(DA(2),""EM"",DA(1),.05,""C"",$E(X,1,30),DA)="""""
^DD(63.49,1,1,1,2)="K ^LR(DA(2),""EM"",DA(1),.05,""C"",$E(X,1,30),DA)"
^DD(63.49,1,1,1,"DT")="3010727"
^DD(63.49,1,21,0)="^.001^3^3^3010829^^"
^DD(63.49,1,21,1,0)="This field is a pointer to the TIU DOCUMENT (#8925) file.  It stores the"
^DD(63.49,1,21,2,0)="pointer for an electron microscopy SF515 that has been electronically signed"
^DD(63.49,1,21,3,0)="and stored in TIU."
^DD(63.49,1,"DEL",1,0)="I"
^DD(63.49,1,"DT")="3010829"
^DD(63.49,2,0)="TIU CHECKSUM^FI^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(63.49,2,21,0)="^^5^5^3030116^"
^DD(63.49,2,21,1,0)="This field stores the checksum that is calculated at the time the report "
^DD(63.49,2,21,2,0)="version is initially stored in TIU.  It will be used for comparison in future "
^DD(63.49,2,21,3,0)="print/view requests.  A new checksum will be calculated whenever the report"
^DD(63.49,2,21,4,0)="version is printed/viewed, and matching checksums are proof that the report"
^DD(63.49,2,21,5,0)="version has not been illegally altered."
^DD(63.49,2,"DT")="3030117"
^DD(63.49,"B","TIU CHECKSUM",2)=""
^DD(63.49,"B","TIU ENTRY POINTER - EM",1)=""
^DD(63.49,"B","TIU REFERENCE DATE/TIME - EM",.01)=""
^DD(63.49,"GL",0,1,.01)=""
^DD(63.49,"GL",0,2,1)=""
^DD(63.49,"GL",0,3,2)=""
^DD(63.49,"IX",.01)=""
^DD(63.49,"IX",1)=""
^DD(63.801,0)="FROZEN SECTION SUB-FIELD^^.01^1"
^DD(63.801,0,"DT")="2921202"
^DD(63.801,0,"NM","FROZEN SECTION")=""
^DD(63.801,0,"UP")="63.08"
^DD(63.801,.01,0)="FROZEN SECTION^W^^0;1^Q"
^DD(63.801,.01,"DT")="2921202"
^DD(63.801,"B","FROZEN SECTION",.01)=""
^DD(63.801,"GL",0,1,.01)=""
^DD(63.802,0)="SURGICAL PATH DIAGNOSIS SUB-FIELD^^.01^1"
^DD(63.802,0,"DT")="2930715"
^DD(63.802,0,"NM","SURGICAL PATH DIAGNOSIS")=""
^DD(63.802,0,"UP")="63.08"
^DD(63.802,.01,0)="SURGICAL PATH DIAGNOSIS^W^^0;1^Q"
^DD(63.802,.01,"DT")="2930716"
^DD(63.802,"B","SURGICAL PATH DIAGNOSIS",.01)=""
^DD(63.802,"GL",0,1,.01)=""
^DD(63.808,0)="AUTOPSY ICD9CM CODE SUB-FIELD^NL^.01^1"
^DD(63.808,0,"NM","AUTOPSY ICD9CM CODE")=""
^DD(63.808,0,"UP")="63"
^DD(63.808,.01,0)="AUTOPSY ICD9CM CODE^MP80'X^ICD9(^0;1^I $D(X) S DINUM=X"
^DD(63.808,.01,21,0)="^^1^1^2911205^"
^DD(63.808,.01,21,1,0)="This is the ICD9CM code on this autopsy."
^DD(63.808,.01,"DT")="2850225"
^DD(63.808,"B","AUTOPSY ICD9CM CODE",.01)=""
^DD(63.808,"GL",0,1,.01)=""
^DD(63.81,0)="GROSS DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.81,0,"NM","GROSS DESCRIPTION")=""
^DD(63.81,0,"UP")="63.08"
^DD(63.81,.01,0)="GROSS DESCRIPTION^W^^0;1^Q"
^DD(63.81,.01,"DT")="2840911"
^DD(63.81,"B","GROSS DESCRIPTION",.01)=""
^DD(63.81,"GL",0,1,.01)=""
^DD(63.811,0)="MICROSCOPIC DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.811,0,"NM","MICROSCOPIC DESCRIPTION")=""
^DD(63.811,0,"UP")="63.08"
^DD(63.811,.01,0)="MICROSCOPIC DESCRIPTION^W^^0;1^Q"
^DD(63.811,.01,21,0)="^^1^1^2930715^"
^DD(63.811,.01,21,1,0)="Microscopic slide examination report is entered here."
^DD(63.811,.01,"DT")="2930715"
^DD(63.811,"B","MICROSCOPIC DESCRIPTION",.01)=""
^DD(63.811,"GL",0,1,.01)=""
^DD(63.812,0)="SPECIMEN SUB-FIELD^NL^3^8"
^DD(63.812,0,"DT")="3030306"
^DD(63.812,0,"IX","B",63.812,.01)=""
^DD(63.812,0,"NM","SPECIMEN")=""
^DD(63.812,0,"UP")="63.08"
^DD(63.812,.01,0)="SPECIMEN^MRF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<2) X"
^DD(63.812,.01,1,0)="^.1"
^DD(63.812,.01,1,1,0)="63.812^B"
^DD(63.812,.01,1,1,1)="S ^LR(DA(2),""SP"",DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(63.812,.01,1,1,2)="K ^LR(DA(2),""SP"",DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(63.812,.01,3)="Answer must be 2-75 characters in length."
^DD(63.812,.01,21,0)="^^1^1^2911204^^^"
^DD(63.812,.01,21,1,0)="This is the specimen submitted."
^DD(63.812,.01,"DT")="2910504"
^DD(63.812,.02,0)="SURGICAL WORKLOAD PROFILE^*P60'^LAB(60,^0;2^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.812,.02,12)="Selects only surgical pathology entries."
^DD(63.812,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.812,.02,21,0)="^.001^1^1^3030505^^"
^DD(63.812,.02,21,1,0)="Profile of surgical workload"
^DD(63.812,.02,"DT")="2910326"
^DD(63.812,.03,0)="GROSS DESCRIPTION/CUTTING DATE^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.812,.03,.1)="GROSS DESCRIPTION/CUTTING DATE & TIME"
^DD(63.812,.03,3)="If gross description/cutting performed by a nonphysician enter date/time done."
^DD(63.812,.03,4)="K DZ"
^DD(63.812,.03,21,0)="^^2^2^2911230^"
^DD(63.812,.03,21,1,0)="If gross description/cutting of a specimen is performed by a non-physician "
^DD(63.812,.03,21,2,0)="date and time are entered here."
^DD(63.812,.03,"DT")="2911230"
^DD(63.812,.04,0)="GROSS DESCRIPTION/CUTTING TYPE^S^1:ROUTINE GROSS SURGICAL;2:EXTENSIVE GROSS SURGICAL;3:TECHNICAL ASSISTANCE SURGICAL;^0;4^Q"
^DD(63.812,.04,21,0)="^^8^8^2911230^^"
^DD(63.812,.04,21,1,0)="Select 1 or 'R' when the gross description and cutting of surgical "
^DD(63.812,.04,21,2,0)="tissue is performed by a nonphysician (e.g., a pathology assistant)"
^DD(63.812,.04,21,3,0)=" Select 2 or 'E' when extensive gross processing is required by "
^DD(63.812,.04,21,4,0)="technical assistants in addition to the usual dissection and "
^DD(63.812,.04,21,5,0)="description (e.g., orientation of a renal biopsy and splitting it "
^DD(63.812,.04,21,6,0)="for light and electron microscopy, and immunofluorescence)"
^DD(63.812,.04,21,7,0)=" Select 3 or 'T' when technical or clerical staff assist with"
^DD(63.812,.04,21,8,0)="gross processing."
^DD(63.812,.04,"DT")="2911230"
^DD(63.812,.05,0)="GROSS DESCRIPTION COUNTED^S^1:YES;0:NO;^0;5^Q"
^DD(63.812,.05,3)="Enter 'YES' if gross description counted for workload."
^DD(63.812,.05,21,0)="^^1^1^2940510^"
^DD(63.812,.05,21,1,0)="Whether the gross description is counted for workload"
^DD(63.812,.05,"DT")="2910717"
^DD(63.812,1,0)="PARAFFIN BLOCK^63.8121A^^1;0"
^DD(63.812,1,21,0)="^^1^1^2911204^^^"
^DD(63.812,1,21,1,0)="This is a list of paraffin blocks prepared from the specimen submitted."
^DD(63.812,2,0)="PLASTIC BLOCK^63.822A^^2;0"
^DD(63.812,2,21,0)="^^1^1^2911204^"
^DD(63.812,2,21,1,0)="These are the plastic blocks set up on this specimen."
^DD(63.812,3,0)="FROZEN TISSUE BLOCK^63.824A^^3;0"
^DD(63.812,3,21,0)="^^2^2^2911204^^"
^DD(63.812,3,21,1,0)="This is the list of frozen tissues prepared from "
^DD(63.812,3,21,2,0)="the specimen submitted."
^DD(63.812,3,"DT")="2911228"
^DD(63.812,"B","FROZEN TISSUE BLOCK",3)=""
^DD(63.812,"B","GROSS DESCRIPTION COUNTED",.05)=""
^DD(63.812,"B","GROSS DESCRIPTION/CUTTING DATE",.03)=""
^DD(63.812,"B","GROSS DESCRIPTION/CUTTING TYPE",.04)=""
^DD(63.812,"B","PARAFFIN BLOCK",1)=""
^DD(63.812,"B","PLASTIC BLOCK",2)=""
^DD(63.812,"B","SPECIMEN",.01)=""
^DD(63.812,"B","SURGICAL WORKLOAD PROFILE",.02)=""
^DD(63.812,"GL",0,1,.01)=""
^DD(63.812,"GL",0,2,.02)=""
^DD(63.812,"GL",0,3,.03)=""
^DD(63.812,"GL",0,4,.04)=""
^DD(63.812,"GL",0,5,.05)=""
^DD(63.812,"GL",1,0,1)=""
^DD(63.812,"GL",2,0,2)=""
^DD(63.812,"GL",3,0,3)=""
^DD(63.812,"IX",.01)=""
^DD(63.812,"RQ",.01)=""
^DD(63.812,"SB",63.8121,1)=""
^DD(63.812,"SB",63.822,2)=""
^DD(63.812,"SB",63.824,3)=""
^DD(63.8121,0)="PARAFFIN BLOCK SUB-FIELD^^1^4"
^DD(63.8121,0,"DT")="2930402"
^DD(63.8121,0,"IX","B",63.8121,.01)=""
^DD(63.8121,0,"NM","PARAFFIN BLOCK")=""
^DD(63.8121,0,"UP")="63.812"
^DD(63.8121,.01,0)="PARAFFIN BLOCK ID^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(63.8121,.01,1,0)="^.1"
^DD(63.8121,.01,1,1,0)="63.8121^B"
^DD(63.8121,.01,1,1,1)="S ^LR(DA(3),""SP"",DA(2),.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(63.8121,.01,1,1,2)="K ^LR(DA(3),""SP"",DA(2),.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(63.8121,.01,1,1,"DT")="2920113"
^DD(63.8121,.01,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(63.8121,.01,4)=""
^DD(63.8121,.01,21,0)="^^2^2^2911204^^"
^DD(63.8121,.01,21,1,0)="The identification number on the paraffin block used to make"
^DD(63.8121,.01,21,2,0)=" the slides for any stains or procedures."
^DD(63.8121,.01,"DT")="2920113"
^DD(63.8121,.02,0)="DATE/TIME BLOCK PREPARED^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.8121,.02,21,0)="^^1^1^2910804^"
^DD(63.8121,.02,21,1,0)="Date/time block prepared.  Used for workload recording."
^DD(63.8121,.02,"DT")="2910804"
^DD(63.8121,.03,0)="BLOCK COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(63.8121,.03,21,0)="^^2^2^2910804^^"
^DD(63.8121,.03,21,1,0)="Used for workload recording."
^DD(63.8121,.03,21,2,0)=" If block counted a 'YES' is entered."
^DD(63.8121,.03,"DT")="2910804"
^DD(63.8121,1,0)="STAIN/PROCEDURE^63.8122PA^^1;0"
^DD(63.8121,1,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.8121,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.8121,1,21,0)="^^2^2^2911204^^^"
^DD(63.8121,1,21,1,0)="List of tissue stains or procedures performed on the slides cut"
^DD(63.8121,1,21,2,0)=" from the paraffin block."
^DD(63.8121,"B","BLOCK COUNTED",.03)=""
^DD(63.8121,"B","DATE/TIME BLOCK PREPARED",.02)=""
^DD(63.8121,"B","PARAFFIN BLOCK ID",.01)=""
^DD(63.8121,"B","STAIN/PROCEDURE",1)=""
^DD(63.8121,"GL",0,1,.01)=""
^DD(63.8121,"GL",0,2,.02)=""
^DD(63.8121,"GL",0,3,.03)=""
^DD(63.8121,"GL",1,0,1)=""
^DD(63.8121,"IX",.01)=""
^DD(63.8121,"SB",63.8122,1)=""
^DD(63.8122,0)="STAIN/PROCEDURE SUB-FIELD^^.09^8"
^DD(63.8122,0,"DT")="2930402"
^DD(63.8122,0,"NM","STAIN/PROCEDURE")=""
^DD(63.8122,0,"UP")="63.8121"
^DD(63.8122,.01,0)="STAIN/PROCEDURE^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.8122,.01,1,0)="^.1^^0"
^DD(63.8122,.01,21,0)="^^2^2^2911204^^^"
^DD(63.8122,.01,21,1,0)="A tissue stain or procedure performed on a slide cut from a"
^DD(63.8122,.01,21,2,0)=" paraffin block."
^DD(63.8122,.01,"DT")="2860718"
^DD(63.8122,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.8122,.02,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.8122,.02,21,0)="^^1^1^2911204^^"
^DD(63.8122,.02,21,1,0)="The number of slides for which a specific stain or procedure was performed."
^DD(63.8122,.02,"DT")="2860717"
^DD(63.8122,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.8122,.03,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(63.8122,.03,21,0)="^^1^1^2911204^"
^DD(63.8122,.03,21,1,0)="This is the number of control slides prepared."
^DD(63.8122,.03,"DT")="2861030"
^DD(63.8122,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.8122,.04,3)="Future date/time not allowed."
^DD(63.8122,.04,21,0)="^^1^1^2940510^"
^DD(63.8122,.04,21,1,0)="When slides are stained"
^DD(63.8122,.04,"DT")="2910503"
^DD(63.8122,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.8122,.05,3)="Future date/time not allowed."
^DD(63.8122,.05,21,0)="^^1^1^2940510^"
^DD(63.8122,.05,21,1,0)="When slides are examined"
^DD(63.8122,.05,"DT")="2910503"
^DD(63.8122,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.8122,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.8122,.06,21,0)="^^1^1^2910503^"
^DD(63.8122,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.8122,.06,"DT")="2910503"
^DD(63.8122,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.8122,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.8122,.07,21,0)="^^1^1^2940510^"
^DD(63.8122,.07,21,1,0)="Number of labels to print"
^DD(63.8122,.07,"DT")="2910503"
^DD(63.8122,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.8122,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.8122,.09,21,0)="^^1^1^2940510^"
^DD(63.8122,.09,21,1,0)="Number of non-control slides counted"
^DD(63.8122,.09,"DT")="2930402"
^DD(63.8122,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.8122,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.8122,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.8122,"B","LABELS TO PRINT",.07)=""
^DD(63.8122,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.8122,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.8122,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.8122,"B","STAIN/PROCEDURE",.01)=""
^DD(63.8122,"GL",0,1,.01)=""
^DD(63.8122,"GL",0,2,.02)=""
^DD(63.8122,"GL",0,3,.03)=""
^DD(63.8122,"GL",0,4,.04)=""
^DD(63.8122,"GL",0,5,.05)=""
^DD(63.8122,"GL",0,6,.06)=""
^DD(63.8122,"GL",0,7,.07)=""
^DD(63.8122,"GL",0,9,.09)=""
^DD(63.813,0)="BRIEF CLINICAL HISTORY SUB-FIELD^NL^.01^1"
^DD(63.813,0,"NM","BRIEF CLINICAL HISTORY")=""
^DD(63.813,0,"UP")="63.08"
^DD(63.813,.01,0)="BRIEF CLINICAL HISTORY^W^^0;1^Q"
^DD(63.813,.01,"DT")="2840911"
^DD(63.813,"B","BRIEF CLINICAL HISTORY",.01)=""
^DD(63.813,"GL",0,1,.01)=""
^DD(63.814,0)="PREOPERATIVE DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.814,0,"NM","PREOPERATIVE DIAGNOSIS")=""
^DD(63.814,0,"UP")="63.08"
^DD(63.814,.01,0)="PREOPERATIVE DIAGNOSIS^W^^0;1^Q"
^DD(63.814,.01,3)=""
^DD(63.814,.01,"DT")="2850303"
^DD(63.814,"B","PREOPERATIVE DIAGNOSIS",.01)=""
^DD(63.814,"GL",0,1,.01)=""
^DD(63.815,0)="OPERATIVE FINDINGS SUB-FIELD^NL^.01^1"
^DD(63.815,0,"NM","OPERATIVE FINDINGS")=""
^DD(63.815,0,"UP")="63.08"
^DD(63.815,.01,0)="OPERATIVE FINDINGS^W^^0;1^Q"
^DD(63.815,.01,3)=""
^DD(63.815,.01,"DT")="2850303"
^DD(63.815,"B","OPERATIVE FINDINGS",.01)=""
^DD(63.815,"GL",0,1,.01)=""
^DD(63.816,0)="POSTOPERATIVE DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.816,0,"NM","POSTOPERATIVE DIAGNOSIS")=""
^DD(63.816,0,"UP")="63.08"
^DD(63.816,.01,0)="POSTOPERATIVE DIAGNOSIS^W^^0;1^Q"
^DD(63.816,.01,3)=""
^DD(63.816,.01,"DT")="2850303"
^DD(63.816,"B","POSTOPERATIVE DIAGNOSIS",.01)=""
^DD(63.816,"GL",0,1,.01)=""
^DD(63.817,0)="SUPPLEMENTARY REPORT SUB-FIELD^NL^2^5"
^DD(63.817,0,"DT")="3030924"
^DD(63.817,0,"NM","SUPPLEMENTARY REPORT")=""
^DD(63.817,0,"UP")="63.08"
^DD(63.817,.01,0)="SUPPLEMENTARY REPORT DATE/TIME^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.817,.01,21,0)="^^1^1^2911204^"
^DD(63.817,.01,21,1,0)="This is the date/time of the supplementary report."
^DD(63.817,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion is not permitted"","""",""!!"")"
^DD(63.817,.01,"DT")="2840911"
^DD(63.817,.02,0)="RELEASE SUPPLEMENTARY REPORT^S^1:YES;0:NO;1:yes;0:no;^0;2^Q"
^DD(63.817,.02,21,0)="^^2^2^2900924^^"
^DD(63.817,.02,21,1,0)="If supplementary report is to be displayed or printed outside"
^DD(63.817,.02,21,2,0)=" of lab the report must be released by entering 'YES'."
^DD(63.817,.02,"DT")="2900920"
^DD(63.817,.03,0)="RELEASE SUPP REPORT MODIFIED^S^1:YES;0:NO;^0;3^Q"
^DD(63.817,.03,21,0)="^^3^3^3040908^"
^DD(63.817,.03,21,1,0)="This flag will be set to '1' when a released supplementary report is "
^DD(63.817,.03,21,2,0)="modified. It is removed when the modified supplementary report is"
^DD(63.817,.03,21,3,0)="released. "
^DD(63.817,.03,"DT")="3040909"
^DD(63.817,1,0)="DESCRIPTION^63.818^^1;0"
^DD(63.817,1,21,0)="^^1^1^2911204^"
^DD(63.817,1,21,1,0)="This is the description of the supplementary report."
^DD(63.817,2,0)="SUPPLEMENTARY REPORT MODIFIED^63.8172DA^^2;0"
^DD(63.817,2,21,0)="^.001^3^3^3001121^^^^"
^DD(63.817,2,21,1,0)="This is the date/time in which this supplementary report was modified.  This"
^DD(63.817,2,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.817,2,21,3,0)="and can only be changed from programmer mode."
^DD(63.817,2,"DT")="3000908"
^DD(63.817,"B","DESCRIPTION",1)=""
^DD(63.817,"B","RELEASE SUPP REPORT MODIFIED",.03)=""
^DD(63.817,"B","RELEASE SUPPLEMENTARY REPORT",.02)=""
^DD(63.817,"B","SUPPLEMENTARY REPORT DATE/TIME",.01)=""
^DD(63.817,"B","SUPPLEMENTARY REPORT MODIFIED",2)=""
^DD(63.817,"GL",0,1,.01)=""
^DD(63.817,"GL",0,2,.02)=""
^DD(63.817,"GL",0,3,.03)=""
^DD(63.817,"GL",1,0,1)=""
^DD(63.817,"GL",2,0,2)=""
^DD(63.817,"SB",63.8172,2)=""
^DD(63.817,"SB",63.818,1)=""
^DD(63.8172,0)="SUPPLEMENTARY REPORT MODIFIED SUB-FIELD^^1^5"
^DD(63.8172,0,"DT")="3030924"
^DD(63.8172,0,"IX","B",63.8172,.01)=""
^DD(63.8172,0,"NM","SUPPLEMENTARY REPORT MODIFIED")=""
^DD(63.8172,0,"UP")="63.817"
^DD(63.8172,.01,0)="SUPPLEMENTARY REPORT MODIFIED^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.8172,.01,1,0)="^.1"
^DD(63.8172,.01,1,1,0)="63.8172^B"
^DD(63.8172,.01,1,1,1)="S ^LR(DA(3),""SP"",DA(2),1.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.8172,.01,1,1,2)="K ^LR(DA(3),""SP"",DA(2),1.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.8172,.01,3)="This is the date/time in which this supplementary report was modified.  It is updated by the software and can only be modified from programmer mode."
^DD(63.8172,.01,21,0)="^.001^3^3^3001121^^^^"
^DD(63.8172,.01,21,1,0)="This is the date/time in which this supplementary report was modified.  This"
^DD(63.8172,.01,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.8172,.01,21,3,0)="and can only be changed from programmer mode."
^DD(63.8172,.01,"DT")="3000908"
^DD(63.8172,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.8172,.02,3)="This is the DUZ of the person who modified the supplementary report.  It is updated by the software and can only be modified from programmer mode."
^DD(63.8172,.02,21,0)="^.001^2^2^3001121^^^^"
^DD(63.8172,.02,21,1,0)="This is the DUZ of the person who modified the supplementary report."
^DD(63.8172,.02,21,2,0)="It is updated by the software and can only be modified from programmer mode."
^DD(63.8172,.02,"DT")="2990524"
^DD(63.8172,.03,0)="PERSON RELEASING THE SUPP. RPT^P200'^VA(200,^0;3^Q"
^DD(63.8172,.03,3)="This is the DUZ of the person who released the supplementary report. It is updated by the software and can only be modified from programmer mode."
^DD(63.8172,.03,21,0)="^^3^3^3040205^"
^DD(63.8172,.03,21,1,0)="This is the DUZ of the person who released the supplementary report.  "
^DD(63.8172,.03,21,2,0)="It is updated by the software and can only be modified from "
^DD(63.8172,.03,21,3,0)="programmer mode."
^DD(63.8172,.03,"DT")="3040205"
^DD(63.8172,.04,0)="SUPP REPORT RELEASE DATE/TIME^DX^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.8172,.04,3)="This is the date/time in which this supplementary report was released. It is updated by the software and can only be modified from programmer mode. "
^DD(63.8172,.04,21,0)="^^3^3^3030924^"
^DD(63.8172,.04,21,1,0)="This is the date/time in which this supplementary report was released.  This"
^DD(63.8172,.04,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.8172,.04,21,3,0)="and can only be changed from programmer mode."
^DD(63.8172,.04,"DT")="3040205"
^DD(63.8172,1,0)="PREMODIFICATION TEXT^63.81721^^1;0"
^DD(63.8172,1,21,0)="^.001^3^3^3001121^^^^"
^DD(63.8172,1,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.8172,1,21,2,0)="modified.  It is updated by the software and can only be modified from"
^DD(63.8172,1,21,3,0)="programmer mode."
^DD(63.8172,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.8172,"B","PERSON RELEASING THE SUPP. RPT",.03)=""
^DD(63.8172,"B","PREMODIFICATION TEXT",1)=""
^DD(63.8172,"B","SUPP REPORT RELEASE DATE/TIME",.04)=""
^DD(63.8172,"B","SUPPLEMENTARY REPORT MODIFIED",.01)=""
^DD(63.8172,"GL",0,1,.01)=""
^DD(63.8172,"GL",0,2,.02)=""
^DD(63.8172,"GL",0,3,.03)=""
^DD(63.8172,"GL",0,4,.04)=""
^DD(63.8172,"GL",1,0,1)=""
^DD(63.8172,"IX",.01)=""
^DD(63.8172,"SB",63.81721,1)=""
^DD(63.81721,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.81721,0,"DT")="2990524"
^DD(63.81721,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.81721,0,"UP")="63.8172"
^DD(63.81721,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.81721,.01,3)="This is the text of the supplementary report as it existed before it was modified.  This field is updated by the software and can only be modified from programmer mode."
^DD(63.81721,.01,21,0)="^.001^3^3^3001121^^^^"
^DD(63.81721,.01,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.81721,.01,21,2,0)="modified.  This field is updated by the software and can only be"
^DD(63.81721,.01,21,3,0)="modified from programmer mode."
^DD(63.81721,.01,"DT")="2990524"
^DD(63.81721,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.81721,"GL",0,1,.01)=""
^DD(63.818,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.818,0,"NM","DESCRIPTION")=""
^DD(63.818,0,"UP")="63.817"
^DD(63.818,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.818,.01,"DT")="2840911"
^DD(63.818,"B","DESCRIPTION",.01)=""
^DD(63.818,"GL",0,1,.01)=""
^DD(63.819,0)="SPECIAL STUDIES SUB-FIELD^NL^1^4"
^DD(63.819,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(63.819,0,"NM","SPECIAL STUDIES")=""
^DD(63.819,0,"UP")="63.12"
^DD(63.819,.01,0)="SPECIAL STUDIES^MS^E:ELECTRON MICROSCOPY;I:IMMUNOFLUORESCENCE;P:PHOTOGRAPHY;C:CONSULTATION;F:FROZEN SECTION;IP:IMMUNOPEROXIDASE;^0;1^Q"
^DD(63.819,.01,21,0)="^^2^2^2911204^"
^DD(63.819,.01,21,1,0)="This is a special study associated with this"
^DD(63.819,.01,21,2,0)="organ/tissue(s)."
^DD(63.819,.01,"DT")="2850326"
^DD(63.819,.02,0)="DATE^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.819,.02,21,0)="^^1^1^2911204^^"
^DD(63.819,.02,21,1,0)="This is the date of the special studies."
^DD(63.819,.02,"DT")="2840911"
^DD(63.819,.03,0)="ID #^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(63.819,.03,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.819,.03,21,0)="^^1^1^2911204^^"
^DD(63.819,.03,21,1,0)="This is the identification number of the special studies."
^DD(63.819,.03,"DT")="2840911"
^DD(63.819,1,0)="DESCRIPTION^63.821^^1;0"
^DD(63.819,1,21,0)="^^1^1^2911204^"
^DD(63.819,1,21,1,0)="This is the description of the special studies."
^DD(63.819,"B","DATE",.02)=""
^DD(63.819,"B","DESCRIPTION",1)=""
^DD(63.819,"B","ID #",.03)=""
^DD(63.819,"B","SPECIAL STUDIES",.01)=""
^DD(63.819,"GL",0,1,.01)=""
^DD(63.819,"GL",0,2,.02)=""
^DD(63.819,"GL",0,3,.03)=""
^DD(63.819,"GL",1,0,1)=""
^DD(63.819,"RQ",.02)=""
^DD(63.819,"SB",63.821,1)=""
^DD(63.82,0)="PROCEDURE SUB-FIELD^NL^.02^2"
^DD(63.82,0,"NM","PROCEDURE")=""
^DD(63.82,0,"UP")="63.12"
^DD(63.82,.01,0)="PROCEDURE^M*P61.5'X^LAB(61.5,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.82,.01,3)="Enter SNOMED code without 'P-' or 'P'"
^DD(63.82,.01,21,0)="^^2^2^2911204^"
^DD(63.82,.01,21,1,0)="This is a procedure associated with this"
^DD(63.82,.01,21,2,0)="organ/tissue(s)."
^DD(63.82,.01,"DT")="2881028"
^DD(63.82,.02,0)="RESULT^S^0:NEG;1:POS;^0;2^Q"
^DD(63.82,.02,21,0)="^^1^1^2891222^"
^DD(63.82,.02,21,1,0)="If result of procedure is positive enter '1' or 'P'."
^DD(63.82,.02,"DT")="2891222"
^DD(63.82,"B","PROCEDURE",.01)=""
^DD(63.82,"B","RESULT",.02)=""
^DD(63.82,"GL",0,1,.01)=""
^DD(63.82,"GL",0,2,.02)=""
^DD(63.82005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(63.82005,0,"DT")="2950523"
^DD(63.82005,0,"IX","B",63.82005,.01)=""
^DD(63.82005,0,"NM","IMAGE")=""
^DD(63.82005,0,"UP")="63.08"
^DD(63.82005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(63.82005,.01,1,0)="^.1"
^DD(63.82005,.01,1,1,0)="63.82005^B"
^DD(63.82005,.01,1,1,1)="S ^LR(DA(2),""SP"",DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(63.82005,.01,1,1,2)="K ^LR(DA(2),""SP"",DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(63.82005,.01,3)="IMAGE POINTER BACK TO IMAGE FILE"
^DD(63.82005,.01,"DT")="2950523"
^DD(63.82005,"B","IMAGE",.01)=""
^DD(63.82005,"GL",0,1,.01)=""
^DD(63.82005,"IX",.01)=""
^DD(63.821,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.821,0,"NM","DESCRIPTION")=""
^DD(63.821,0,"UP")="63.819"
^DD(63.821,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.821,.01,"DT")="2840911"
^DD(63.821,"B","DESCRIPTION",.01)=""
^DD(63.821,"GL",0,1,.01)=""
^DD(63.822,0)="PLASTIC BLOCK SUB-FIELD^^1^4"
^DD(63.822,0,"DT")="2930402"
^DD(63.822,0,"IX","B",63.822,.01)=""
^DD(63.822,0,"NM","PLASTIC BLOCK")=""
^DD(63.822,0,"UP")="63.812"
^DD(63.822,.01,0)="PLASTIC  BLOCK ID^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(63.822,.01,1,0)="^.1"
^DD(63.822,.01,1,1,0)="63.822^B"
^DD(63.822,.01,1,1,1)="S ^LR(DA(3),""SP"",DA(2),.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.822,.01,1,1,2)="K ^LR(DA(3),""SP"",DA(2),.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.822,.01,1,1,"DT")="2920113"
^DD(63.822,.01,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(63.822,.01,4)=""
^DD(63.822,.01,21,0)="^^1^1^2911204^"
^DD(63.822,.01,21,1,0)="This is the plastic block identification."
^DD(63.822,.01,"DT")="2920113"
^DD(63.822,.02,0)="DATE/TIME BLOCK PREPARED^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(63.822,.02,21,0)="^^1^1^2940510^"
^DD(63.822,.02,21,1,0)="When the block is prepared"
^DD(63.822,.02,"DT")="2910804"
^DD(63.822,.03,0)="BLOCK COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(63.822,.03,"DT")="2910804"
^DD(63.822,1,0)="PLASTIC STAIN/PROCEDURE^63.823PA^^1;0"
^DD(63.822,1,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.822,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.822,1,21,0)="^^1^1^2911204^"
^DD(63.822,1,21,1,0)="These are the plastic stain/procedures performed."
^DD(63.822,"B","BLOCK COUNTED",.03)=""
^DD(63.822,"B","DATE/TIME BLOCK PREPARED",.02)=""
^DD(63.822,"B","PLASTIC  BLOCK ID",.01)=""
^DD(63.822,"B","PLASTIC STAIN/PROCEDURE",1)=""
^DD(63.822,"GL",0,1,.01)=""
^DD(63.822,"GL",0,2,.02)=""
^DD(63.822,"GL",0,3,.03)=""
^DD(63.822,"GL",1,0,1)=""
^DD(63.822,"IX",.01)=""
^DD(63.822,"SB",63.823,1)=""
^DD(63.823,0)="PLASTIC STAIN/PROCEDURE SUB-FIELD^^.09^8"
^DD(63.823,0,"DT")="2930402"
^DD(63.823,0,"NM","PLASTIC STAIN/PROCEDURE")=""
^DD(63.823,0,"UP")="63.822"
^DD(63.823,.01,0)="PLASTIC STAIN/PROCEDURE^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.823,.01,1,0)="^.1^^0"
^DD(63.823,.01,21,0)="^^1^1^2911204^"
^DD(63.823,.01,21,1,0)="This is the plastic stain or procedure performed."
^DD(63.823,.01,"DT")="2861030"
^DD(63.823,.02,0)="PLASTIC SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.823,.02,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.823,.02,21,0)="^^1^1^2911204^"
^DD(63.823,.02,21,1,0)="This is the number of slides prepared."
^DD(63.823,.02,"DT")="2861023"
^DD(63.823,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.823,.03,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(63.823,.03,21,0)="^^1^1^2911204^"
^DD(63.823,.03,21,1,0)="This is the number of control slides prepared."
^DD(63.823,.03,"DT")="2861030"
^DD(63.823,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.823,.04,3)="Future date/time not allowed."
^DD(63.823,.04,21,0)="^^1^1^2940510^"
^DD(63.823,.04,21,1,0)="When slides are stained"
^DD(63.823,.04,"DT")="2910503"
^DD(63.823,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.823,.05,3)="Future date/time not allowed."
^DD(63.823,.05,21,0)="^^1^1^2940510^"
^DD(63.823,.05,21,1,0)="When slides are examined"
^DD(63.823,.05,"DT")="2910503"
^DD(63.823,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.823,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.823,.06,21,0)="^^1^1^2910503^"
^DD(63.823,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.823,.06,"DT")="2910503"
^DD(63.823,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.823,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.823,.07,"DT")="2910503"
^DD(63.823,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.823,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.823,.09,"DT")="2930402"
^DD(63.823,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.823,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.823,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.823,"B","LABELS TO PRINT",.07)=""
^DD(63.823,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.823,"B","PLASTIC SLIDES PREPARED (#)",.02)=""
^DD(63.823,"B","PLASTIC STAIN/PROCEDURE",.01)=""
^DD(63.823,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.823,"GL",0,1,.01)=""
^DD(63.823,"GL",0,2,.02)=""
^DD(63.823,"GL",0,3,.03)=""
^DD(63.823,"GL",0,4,.04)=""
^DD(63.823,"GL",0,5,.05)=""
^DD(63.823,"GL",0,6,.06)=""
^DD(63.823,"GL",0,7,.07)=""
^DD(63.823,"GL",0,9,.09)=""
^DD(63.824,0)="FROZEN TISSUE BLOCK SUB-FIELD^^1^5"
^DD(63.824,0,"DT")="2930402"
^DD(63.824,0,"IX","B",63.824,.01)=""
^DD(63.824,0,"NM","FROZEN TISSUE BLOCK")=""
^DD(63.824,0,"UP")="63.812"
^DD(63.824,.01,0)="FROZEN  TISSUE ID^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(63.824,.01,1,0)="^.1"
^DD(63.824,.01,1,1,0)="63.824^B"
^DD(63.824,.01,1,1,1)="S ^LR(DA(3),""SP"",DA(2),.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(63.824,.01,1,1,2)="K ^LR(DA(3),""SP"",DA(2),.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(63.824,.01,1,1,"DT")="2920113"
^DD(63.824,.01,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(63.824,.01,4)=""
^DD(63.824,.01,21,0)="^^1^1^2911204^"
^DD(63.824,.01,21,1,0)="This is the identification of frozen tissue."
^DD(63.824,.01,"DT")="2920113"
^DD(63.824,.02,0)="DATE/TIME FROZEN PREPARED^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.824,.02,21,0)="^^1^1^2940510^"
^DD(63.824,.02,21,1,0)="When the frozen section is prepared"
^DD(63.824,.02,"DT")="2910804"
^DD(63.824,.03,0)="FROZEN COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(63.824,.03,"DT")="2910804"
^DD(63.824,.04,0)="FROZEN TISSUE BLOCK TYPE^RS^1:RUSH;0:NOT RUSH;^0;4^Q"
^DD(63.824,.04,21,0)="^^2^2^2920107^^^^"
^DD(63.824,.04,21,1,0)="Entry indicates if the frozen tissue block is used for rush "
^DD(63.824,.04,21,2,0)="(rapid) diagnosis or routinely processed (not rush)."
^DD(63.824,.04,"DT")="2920107"
^DD(63.824,1,0)="STAIN/PROCEDURE^63.825PA^^1;0"
^DD(63.824,1,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.824,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.824,1,21,0)="^^2^2^2911204^^"
^DD(63.824,1,21,1,0)="These are the stain/procedures performed on"
^DD(63.824,1,21,2,0)="this specimen."
^DD(63.824,"B","DATE/TIME FROZEN PREPARED",.02)=""
^DD(63.824,"B","FROZEN  TISSUE ID",.01)=""
^DD(63.824,"B","FROZEN COUNTED",.03)=""
^DD(63.824,"B","FROZEN TISSUE BLOCK TYPE",.04)=""
^DD(63.824,"B","STAIN/PROCEDURE",1)=""
^DD(63.824,"GL",0,1,.01)=""
^DD(63.824,"GL",0,2,.02)=""
^DD(63.824,"GL",0,3,.03)=""
^DD(63.824,"GL",0,4,.04)=""
^DD(63.824,"GL",1,0,1)=""
^DD(63.824,"IX",.01)=""
^DD(63.824,"RQ",.04)=""
^DD(63.824,"SB",63.825,1)=""
^DD(63.825,0)="STAIN/PROCEDURE SUB-FIELD^^.09^8"
^DD(63.825,0,"DT")="2930402"
^DD(63.825,0,"IX","B",63.825,.01)=""
^DD(63.825,0,"NM","STAIN/PROCEDURE")=""
^DD(63.825,0,"UP")="63.824"
^DD(63.825,.01,0)="STAIN/PROCEDURE^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.825,.01,1,0)="^.1^^0"
^DD(63.825,.01,1,1,0)="63.825^B"
^DD(63.825,.01,1,1,1)="S ^LR(DA(4),""SP"",DA(3),.1,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(63.825,.01,1,1,2)="K ^LR(DA(4),""SP"",DA(3),.1,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(63.825,.01,21,0)="^^1^1^2911204^"
^DD(63.825,.01,21,1,0)="This is the stain/procedure performed on this specimen."
^DD(63.825,.01,"DT")="2911231"
^DD(63.825,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.825,.02,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(63.825,.02,21,0)="^^1^1^2911204^"
^DD(63.825,.02,21,1,0)="This is the number of slides prepared."
^DD(63.825,.02,"DT")="2861030"
^DD(63.825,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.825,.03,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(63.825,.03,21,0)="^^1^1^2911204^"
^DD(63.825,.03,21,1,0)="This is the number of control slides."
^DD(63.825,.03,"DT")="2861030"
^DD(63.825,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.825,.04,3)="Future date/time not allowed."
^DD(63.825,.04,21,0)="^^1^1^2940510^"
^DD(63.825,.04,21,1,0)="When the slides are prepared"
^DD(63.825,.04,"DT")="2910503"
^DD(63.825,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.825,.05,3)="Future date/time not allowed."
^DD(63.825,.05,21,0)="^^1^1^2940510^"
^DD(63.825,.05,21,1,0)="When the slides are examined"
^DD(63.825,.05,"DT")="2910503"
^DD(63.825,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.825,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.825,.06,21,0)="^^1^1^2910503^"
^DD(63.825,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.825,.06,"DT")="2910503"
^DD(63.825,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.825,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.825,.07,"DT")="2910503"
^DD(63.825,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.825,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.825,.09,"DT")="2930402"
^DD(63.825,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.825,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.825,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.825,"B","LABELS TO PRINT",.07)=""
^DD(63.825,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.825,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.825,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.825,"B","STAIN/PROCEDURE",.01)=""
^DD(63.825,"GL",0,1,.01)=""
^DD(63.825,"GL",0,2,.02)=""
^DD(63.825,"GL",0,3,.03)=""
^DD(63.825,"GL",0,4,.04)=""
^DD(63.825,"GL",0,5,.05)=""
^DD(63.825,"GL",0,6,.06)=""
^DD(63.825,"GL",0,7,.07)=""
^DD(63.825,"GL",0,9,.09)=""
^DD(63.825,"IX",.01)=""
^DD(63.84,0)="DATE MICROSCOPIC EXAM MODIFIED SUB-FIELD^^1^3"
^DD(63.84,0,"NM","DATE MICROSCOPIC EXAM MODIFIED")=""
^DD(63.84,0,"UP")="63.08"
^DD(63.84,.01,0)="DATE MICROSCOPIC EXAM MODIFIED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.84,.01,21,0)="^^2^2^2911204^"
^DD(63.84,.01,21,1,0)="This is the date of modification of the microscopic examination"
^DD(63.84,.01,21,2,0)="diagnosis."
^DD(63.84,.01,"DT")="2930716"
^DD(63.84,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.84,.02,21,0)="^^1^1^2911204^"
^DD(63.84,.02,21,1,0)="This is the person modifying the text."
^DD(63.84,.02,"DT")="2910630"
^DD(63.84,1,0)="PREMODIFICATION TEXT^63.841^^1;0"
^DD(63.84,1,21,0)="^^1^1^2911204^"
^DD(63.84,1,21,1,0)="This is the premodification text."
^DD(63.84,"B","DATE MICROSCOPIC EXAM MODIFIED",.01)=""
^DD(63.84,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.84,"B","PREMODIFICATION TEXT",1)=""
^DD(63.84,"GL",0,1,.01)=""
^DD(63.84,"GL",0,2,.02)=""
^DD(63.84,"GL",1,0,1)=""
^DD(63.84,"SB",63.841,1)=""
^DD(63.841,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.841,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.841,0,"UP")="63.84"
^DD(63.841,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.841,.01,"DT")="2861118"
^DD(63.841,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.841,"GL",0,1,.01)=""
^DD(63.85,0)="FUNCTION SUB-FIELD^NL^.01^1"
^DD(63.85,0,"NM","FUNCTION")=""
^DD(63.85,0,"UP")="63.12"
^DD(63.85,.01,0)="FUNCTION^M*P61.3'X^LAB(61.3,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.85,.01,3)="Enter SNOMED code without 'F-' or 'F'"
^DD(63.85,.01,21,0)="^.001^2^2^3010724^^^"
^DD(63.85,.01,21,1,0)="This is the function associated with this"
^DD(63.85,.01,21,2,0)="organ/tissue(s)."
^DD(63.85,.01,"DT")="2870919"
^DD(63.85,"B","FUNCTION",.01)=""
^DD(63.85,"GL",0,1,.01)=""
^DD(63.88,0)="ICD DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.88,0,"NM","ICD DIAGNOSIS")=""
^DD(63.88,0,"UP")="63.08"
^DD(63.88,.01,0)="ICD DIAGNOSIS^MP80'X^ICD9(^0;1^I $D(X) S DINUM=X"
^DD(63.88,.01,21,0)="^^2^2^2911204^"
^DD(63.88,.01,21,1,0)="This is the ICD diagnosis associated with this"
^DD(63.88,.01,21,2,0)="organ/tissue(s)."
^DD(63.88,.01,"DT")="2850225"
^DD(63.88,"B","ICD DIAGNOSIS",.01)=""
^DD(63.88,"GL",0,1,.01)=""
^DD(63.901,0)="ICD DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.901,0,"NM","ICD DIAGNOSIS")=""
^DD(63.901,0,"UP")="63.09"
^DD(63.901,.01,0)="ICD DIAGNOSIS^MP80'X^ICD9(^0;1^I $D(X) S DINUM=X"
^DD(63.901,.01,21,0)="^^1^1^2911205^^"
^DD(63.901,.01,21,1,0)="This is the ICD diagnosis of the specimen."
^DD(63.901,.01,"DT")="2850227"
^DD(63.901,"B","ICD DIAGNOSIS",.01)=""
^DD(63.901,"GL",0,1,.01)=""
^DD(63.902,0)="SPECIMEN SUB-FIELD^NL^5^7"
^DD(63.902,0,"DT")="3030306"
^DD(63.902,0,"IX","B",63.902,.01)=""
^DD(63.902,0,"NM","SPECIMEN")=""
^DD(63.902,0,"UP")="63.09"
^DD(63.902,.01,0)="SPECIMEN^MRFX^^0;1^K:$L(X)>75!($L(X)<2) X I $D(X),X=""PAP SMEAR"",$D(SEX),SEX'=""F"" W ""  Patient not female."" K X"
^DD(63.902,.01,1,0)="^.1"
^DD(63.902,.01,1,1,0)="63.902^B"
^DD(63.902,.01,1,1,1)="S ^LR(DA(2),""CY"",DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(63.902,.01,1,1,2)="K ^LR(DA(2),""CY"",DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(63.902,.01,1,1,"DT")="2910113"
^DD(63.902,.01,3)="Answer must be 2-75 characters in length."
^DD(63.902,.01,21,0)="^.001^1^1^3030305^^^"
^DD(63.902,.01,21,1,0)="Enter the name of the specimen submitted.."
^DD(63.902,.01,"DT")="2920426"
^DD(63.902,.02,0)="WORKLOAD PROFILE^*P60'^LAB(60,^0;2^S DIC(""S"")=""I $P(^(0),U,4)=""""CY"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.902,.02,3)="ENTRY MANDATORY.  MUST MATCH ENTRY IN LABORATORY TEST FILE."
^DD(63.902,.02,12)="Selects only cytopathology workload entries"
^DD(63.902,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""CY"""""""
^DD(63.902,.02,21,0)="^^3^3^2910507^"
^DD(63.902,.02,21,1,0)="The name of a cytology subscripted entry in the lab test file."
^DD(63.902,.02,21,2,0)=" The entry is composed of accession WKLD codes and one or more"
^DD(63.902,.02,21,3,0)=" cytology procedures associated with specimen processing."
^DD(63.902,.02,"DT")="2910507"
^DD(63.902,1,0)="SMEAR PREP^63.9121A^^1;0"
^DD(63.902,2,0)="CELL BLOCK^63.922A^^2;0"
^DD(63.902,3,0)="MEMBRANE FILTER^63.924A^^3;0"
^DD(63.902,4,0)="PREPARED SLIDES^63.9024A^^4;0"
^DD(63.902,5,0)="CYTOSPIN^63.9025A^^5;0"
^DD(63.902,"B","CELL BLOCK",2)=""
^DD(63.902,"B","CYTOSPIN",5)=""
^DD(63.902,"B","MEMBRANE FILTER",3)=""
^DD(63.902,"B","PREPARED SLIDES",4)=""
^DD(63.902,"B","SMEAR PREP",1)=""
^DD(63.902,"B","SPECIMEN",.01)=""
^DD(63.902,"B","WORKLOAD PROFILE",.02)=""
^DD(63.902,"GL",0,1,.01)=""
^DD(63.902,"GL",0,2,.02)=""
^DD(63.902,"GL",1,0,1)=""
^DD(63.902,"GL",2,0,2)=""
^DD(63.902,"GL",3,0,3)=""
^DD(63.902,"GL",4,0,4)=""
^DD(63.902,"GL",5,0,5)=""
^DD(63.902,"IX",.01)=""
^DD(63.902,"RQ",.01)=""
^DD(63.902,"SB",63.9024,4)=""
^DD(63.902,"SB",63.9025,5)=""
^DD(63.902,"SB",63.9121,1)=""
^DD(63.902,"SB",63.922,2)=""
^DD(63.902,"SB",63.924,3)=""
^DD(63.9024,0)="PREPARED SLIDES SUB-FIELD^^1^2"
^DD(63.9024,0,"DT")="2930402"
^DD(63.9024,0,"NM","PREPARED SLIDES")=""
^DD(63.9024,0,"UP")="63.902"
^DD(63.9024,.01,0)="PREPARED SLIDES^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(63.9024,.01,1,0)="^.1^^0"
^DD(63.9024,.01,3)="Answer must be 1-9 characters in length."
^DD(63.9024,.01,"DT")="2910113"
^DD(63.9024,1,0)="PREPARED SLIDES STAIN^63.90241PA^^1;0"
^DD(63.9024,1,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.9024,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.9024,"B","PREPARED SLIDES",.01)=""
^DD(63.9024,"B","PREPARED SLIDES STAIN",1)=""
^DD(63.9024,"GL",0,1,.01)=""
^DD(63.9024,"GL",1,0,1)=""
^DD(63.9024,"SB",63.90241,1)=""
^DD(63.90241,0)="PREPARED SLIDES STAIN SUB-FIELD^^.09^9"
^DD(63.90241,0,"DT")="2930402"
^DD(63.90241,0,"NM","PREPARED SLIDES STAIN")=""
^DD(63.90241,0,"UP")="63.9024"
^DD(63.90241,.01,0)="PREPARED SLIDES STAIN^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.90241,.01,1,0)="^.1^^0"
^DD(63.90241,.01,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.90241,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.90241,.01,"DT")="2910113"
^DD(63.90241,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90241,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90241,.02,"DT")="2910113"
^DD(63.90241,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90241,.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.90241,.03,"DT")="2910113"
^DD(63.90241,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.90241,.04,3)="Future date/time not allowed."
^DD(63.90241,.04,21,0)="^^1^1^2930331^"
^DD(63.90241,.04,21,1,0)="Date slides were stained"
^DD(63.90241,.04,"DT")="2910429"
^DD(63.90241,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.90241,.05,3)="Future date/time not allowed."
^DD(63.90241,.05,21,0)="^^1^1^2930331^"
^DD(63.90241,.05,21,1,0)="Date slides were examined"
^DD(63.90241,.05,"DT")="2910429"
^DD(63.90241,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90241,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90241,.06,21,0)="^^1^1^2910430^"
^DD(63.90241,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.90241,.06,"DT")="2910430"
^DD(63.90241,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90241,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.90241,.07,"DT")="2910502"
^DD(63.90241,.08,0)="SLIDES SCREENED (#)^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90241,.08,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90241,.08,21,0)="^^1^1^2910513^"
^DD(63.90241,.08,21,1,0)="Last number of slides screened for workload."
^DD(63.90241,.08,"DT")="2910513"
^DD(63.90241,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90241,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90241,.09,"DT")="2930402"
^DD(63.90241,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.90241,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.90241,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.90241,"B","LABELS TO PRINT",.07)=""
^DD(63.90241,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.90241,"B","PREPARED SLIDES STAIN",.01)=""
^DD(63.90241,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.90241,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.90241,"B","SLIDES SCREENED (#)",.08)=""
^DD(63.90241,"GL",0,1,.01)=""
^DD(63.90241,"GL",0,2,.02)=""
^DD(63.90241,"GL",0,3,.03)=""
^DD(63.90241,"GL",0,4,.04)=""
^DD(63.90241,"GL",0,5,.05)=""
^DD(63.90241,"GL",0,6,.06)=""
^DD(63.90241,"GL",0,7,.07)=""
^DD(63.90241,"GL",0,8,.08)=""
^DD(63.90241,"GL",0,9,.09)=""
^DD(63.9025,0)="CYTOSPIN SUB-FIELD^^1^2"
^DD(63.9025,0,"DT")="2930402"
^DD(63.9025,0,"NM","CYTOSPIN")=""
^DD(63.9025,0,"UP")="63.902"
^DD(63.9025,.01,0)="CYTOSPIN^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(63.9025,.01,1,0)="^.1^^0"
^DD(63.9025,.01,3)="Answer must be 1-9 characters in length."
^DD(63.9025,.01,"DT")="2910113"
^DD(63.9025,1,0)="CYTOSPIN STAIN^63.90251PA^^1;0"
^DD(63.9025,1,12)="Selecs only stains/procedures associated with anatomic pathology"
^DD(63.9025,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.9025,"B","CYTOSPIN",.01)=""
^DD(63.9025,"B","CYTOSPIN STAIN",1)=""
^DD(63.9025,"GL",0,1,.01)=""
^DD(63.9025,"GL",1,0,1)=""
^DD(63.9025,"SB",63.90251,1)=""
^DD(63.90251,0)="CYTOSPIN STAIN SUB-FIELD^^.09^9"
^DD(63.90251,0,"DT")="2930402"
^DD(63.90251,0,"NM","CYTOSPIN STAIN")=""
^DD(63.90251,0,"UP")="63.9025"
^DD(63.90251,.01,0)="CYTOSPIN STAIN^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.90251,.01,1,0)="^.1^^0"
^DD(63.90251,.01,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.90251,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.90251,.01,"DT")="2910113"
^DD(63.90251,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90251,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90251,.02,"DT")="2910113"
^DD(63.90251,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90251,.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.90251,.03,"DT")="2910113"
^DD(63.90251,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.90251,.04,3)="Future date/time not allowed."
^DD(63.90251,.04,21,0)="^^1^1^2930331^"
^DD(63.90251,.04,21,1,0)="Date slides were stained"
^DD(63.90251,.04,"DT")="2910429"
^DD(63.90251,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.90251,.05,3)="Future date/time not allowed."
^DD(63.90251,.05,21,0)="^^1^1^2930331^"
^DD(63.90251,.05,21,1,0)="Date slides were examined"
^DD(63.90251,.05,"DT")="2910429"
^DD(63.90251,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90251,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90251,.06,21,0)="^^1^1^2910430^"
^DD(63.90251,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.90251,.06,"DT")="2910430"
^DD(63.90251,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90251,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.90251,.07,"DT")="2910502"
^DD(63.90251,.08,0)="SLIDES SCREENED (#)^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90251,.08,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90251,.08,21,0)="^^1^1^2910513^"
^DD(63.90251,.08,21,1,0)="Last number of slides screened for workload."
^DD(63.90251,.08,"DT")="2910513"
^DD(63.90251,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.90251,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.90251,.09,"DT")="2930402"
^DD(63.90251,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.90251,"B","CYTOSPIN STAIN",.01)=""
^DD(63.90251,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.90251,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.90251,"B","LABELS TO PRINT",.07)=""
^DD(63.90251,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.90251,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.90251,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.90251,"B","SLIDES SCREENED (#)",.08)=""
^DD(63.90251,"GL",0,1,.01)=""
^DD(63.90251,"GL",0,2,.02)=""
^DD(63.90251,"GL",0,3,.03)=""
^DD(63.90251,"GL",0,4,.04)=""
^DD(63.90251,"GL",0,5,.05)=""
^DD(63.90251,"GL",0,6,.06)=""
^DD(63.90251,"GL",0,7,.07)=""
^DD(63.90251,"GL",0,8,.08)=""
^DD(63.90251,"GL",0,9,.09)=""
^DD(63.903,0)="CYTOPATHOLOGY DIAGNOSIS SUB-FIELD^^.01^1"
^DD(63.903,0,"DT")="2930716"
^DD(63.903,0,"NM","CYTOPATHOLOGY DIAGNOSIS")=""
^DD(63.903,0,"UP")="63.09"
^DD(63.903,.01,0)="CYTOPATHOLOGY DIAGNOSIS^W^^0;1^Q"
^DD(63.903,.01,"DT")="2930716"
^DD(63.903,"B","CYTOPATHOLOGY DIAGNOSIS",.01)=""
^DD(63.903,"GL",0,1,.01)=""
^DD(63.905,0)="OPERATIVE FINDINGS SUB-FIELD^NL^.01^1"
^DD(63.905,0,"NM","OPERATIVE FINDINGS")=""
^DD(63.905,0,"UP")="63.09"
^DD(63.905,.01,0)="OPERATIVE FINDINGS^W^^0;1^Q"
^DD(63.905,.01,3)=""
^DD(63.905,.01,"DT")="2850303"
^DD(63.905,"B","OPERATIVE FINDINGS",.01)=""
^DD(63.905,"GL",0,1,.01)=""
^DD(63.906,0)="POSTOPERATIVE DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.906,0,"NM","POSTOPERATIVE DIAGNOSIS")=""
^DD(63.906,0,"UP")="63.09"
^DD(63.906,.01,0)="POSTOPERATIVE DIAGNOSIS^W^^0;1^Q"
^DD(63.906,.01,3)=""
^DD(63.906,.01,"DT")="2850303"
^DD(63.906,"B","POSTOPERATIVE DIAGNOSIS",.01)=""
^DD(63.906,"GL",0,1,.01)=""
^DD(63.907,0)="SUPPLEMENTARY REPORT SUB-FIELD^NL^2^5"
^DD(63.907,0,"DT")="3040205"
^DD(63.907,0,"NM","SUPPLEMENTARY REPORT")=""
^DD(63.907,0,"UP")="63.09"
^DD(63.907,.01,0)="SUPPLEMENTARY REPORT DATE/TIME^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.907,.01,21,0)="^^1^1^2911205^"
^DD(63.907,.01,21,1,0)="This is the date/time of the supplementary report."
^DD(63.907,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion is not permitted"","""",""!!"")"
^DD(63.907,.01,"DT")="2850227"
^DD(63.907,.02,0)="RELEASE SUPPLEMENTARY REPORT^S^1:YES;0:NO;1:yes;0:no;^0;2^Q"
^DD(63.907,.02,21,0)="^.001^2^2^3011030^^^^"
^DD(63.907,.02,21,1,0)="If supplementary report is to be displayed or printed outside of"
^DD(63.907,.02,21,2,0)=" lab the report must be released by entering 'YES'."
^DD(63.907,.02,"DT")="2900920"
^DD(63.907,.03,0)="RELEASE SUPP REPORT MODIFIED^S^1:YES;0:NO;^0;3^Q"
^DD(63.907,.03,21,0)="^^2^2^3040908^^^^"
^DD(63.907,.03,21,1,0)="This flag will be set to '1' when a released supplementary report is modified."
^DD(63.907,.03,21,2,0)="It is removed when the modified supplementary report is released."
^DD(63.907,.03,"DT")="3040909"
^DD(63.907,1,0)="DESCRIPTION^63.918^^1;0"
^DD(63.907,1,21,0)="^^1^1^2911205^"
^DD(63.907,1,21,1,0)="This is the description of the supplementary report."
^DD(63.907,2,0)="SUPPLEMENTARY REPORT MODIFIED^63.9072DA^^2;0"
^DD(63.907,2,21,0)="^.001^3^3^3040205^^^^"
^DD(63.907,2,21,1,0)="This is the date/time in which this supplementary report was modified.  This"
^DD(63.907,2,21,2,0)="information is stored for audit trail purposes.  It is updated by the software"
^DD(63.907,2,21,3,0)="and can only be modified from programmer mode."
^DD(63.907,2,"DT")="3000908"
^DD(63.907,"B","DESCRIPTION",1)=""
^DD(63.907,"B","RELEASE SUPP REPORT MODIFIED",.03)=""
^DD(63.907,"B","RELEASE SUPPLEMENTARY REPORT",.02)=""
^DD(63.907,"B","SUPPLEMENTARY REPORT DATE/TIME",.01)=""
^DD(63.907,"B","SUPPLEMENTARY REPORT MODIFIED",2)=""
^DD(63.907,"GL",0,1,.01)=""
^DD(63.907,"GL",0,2,.02)=""
^DD(63.907,"GL",0,3,.03)=""
^DD(63.907,"GL",1,0,1)=""
^DD(63.907,"GL",2,0,2)=""
^DD(63.907,"SB",63.9072,2)=""
^DD(63.907,"SB",63.918,1)=""
^DD(63.9072,0)="SUPPLEMENTARY REPORT MODIFIED SUB-FIELD^^1^5"
^DD(63.9072,0,"DT")="3040205"
^DD(63.9072,0,"IX","B",63.9072,.01)=""
^DD(63.9072,0,"NM","SUPPLEMENTARY REPORT MODIFIED")=""
^DD(63.9072,0,"UP")="63.907"
^DD(63.9072,.01,0)="SUPPLEMENTARY REPORT MODIFIED^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.9072,.01,1,0)="^.1"
^DD(63.9072,.01,1,1,0)="63.9072^B"
^DD(63.9072,.01,1,1,1)="S ^LR(DA(3),""CY"",DA(2),1.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.9072,.01,1,1,2)="K ^LR(DA(3),""CY"",DA(2),1.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.9072,.01,3)="This is the date/time in which this supplementary report was modified.  It is updated by the software and can only be modified from programmer mode."
^DD(63.9072,.01,21,0)="^.001^2^2^3000908^^^^"
^DD(63.9072,.01,21,1,0)="This is the date/time in which this supplementary report was modified."
^DD(63.9072,.01,21,2,0)="It is updated by the software and can only be modified from programmer mode."
^DD(63.9072,.01,"DT")="3000908"
^DD(63.9072,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.9072,.02,3)="This is the DUZ of the person who modified the supplementary report.  It is updated by the software and can only be modified from programmer mode."
^DD(63.9072,.02,21,0)="^.001^2^2^3001121^^^^"
^DD(63.9072,.02,21,1,0)="This is the DUZ of the person who modified the supplementary report.  It is"
^DD(63.9072,.02,21,2,0)="updated by the software and can only be modified from programmer mode."
^DD(63.9072,.02,"DT")="2991206"
^DD(63.9072,.03,0)="PERSON RELEASING THE SUPP. RPT^P200'^VA(200,^0;3^Q"
^DD(63.9072,.03,3)="This is the DUZ of the person who released the supplementary report.  It is updated by the software and can only be modified from programmer mode."
^DD(63.9072,.03,21,0)="^^2^2^3030922^"
^DD(63.9072,.03,21,1,0)="This is the DUZ of the person who released the supplementary report.  It is"
^DD(63.9072,.03,21,2,0)="updated by the software and can only be modified from programmer mode."
^DD(63.9072,.03,"DT")="3031125"
^DD(63.9072,.04,0)="SUPP REPORT RELEASE DATE/TIME^DX^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.9072,.04,3)="This is the date/time in which this supplementary report was released. It is updated by the software and can only be modified from programmer mode."
^DD(63.9072,.04,21,0)="^.001^2^2^3040205^^"
^DD(63.9072,.04,21,1,0)="This is the date/time the supplementay report is released.  It is updated by"
^DD(63.9072,.04,21,2,0)="the software and can only be modified from programmer mode."
^DD(63.9072,.04,"DT")="3040205"
^DD(63.9072,1,0)="PREMODIFICATION TEXT^63.90721^^1;0"
^DD(63.9072,1,21,0)="^.001^3^3^3001121^^^^"
^DD(63.9072,1,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.9072,1,21,2,0)="modified.  It is updated by the software and can only be modified from"
^DD(63.9072,1,21,3,0)="programmer mode."
^DD(63.9072,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.9072,"B","PERSON RELEASING THE SUPP. RPT",.03)=""
^DD(63.9072,"B","PREMODIFICATION TEXT",1)=""
^DD(63.9072,"B","SUPP REPORT RELEASE DATE/TIME",.04)=""
^DD(63.9072,"B","SUPPLEMENTARY REPORT MODIFIED",.01)=""
^DD(63.9072,"GL",0,1,.01)=""
^DD(63.9072,"GL",0,2,.02)=""
^DD(63.9072,"GL",0,3,.03)=""
^DD(63.9072,"GL",0,4,.04)=""
^DD(63.9072,"GL",1,0,1)=""
^DD(63.9072,"IX",.01)=""
^DD(63.9072,"SB",63.90721,1)=""
^DD(63.90721,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.90721,0,"DT")="2991206"
^DD(63.90721,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.90721,0,"UP")="63.9072"
^DD(63.90721,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.90721,.01,3)="This is the text of the supplementary report before it was modified.  It is updated by the software and can only be modified from programmer mode."
^DD(63.90721,.01,21,0)="^.001^3^3^3001121^^^^"
^DD(63.90721,.01,21,1,0)="This is the text of the supplementary report as it existed before it was"
^DD(63.90721,.01,21,2,0)="modified.  This field is updated by the software and can only be modified from"
^DD(63.90721,.01,21,3,0)="programmer mode."
^DD(63.90721,.01,"DT")="2991206"
^DD(63.90721,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.90721,"GL",0,1,.01)=""
^DD(63.908,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(63.908,0,"NM","COMMENT")=""
^DD(63.908,0,"UP")="63.09"
^DD(63.908,.01,0)="COMMENT^MF^^0;1^K:$L(X)>75!($L(X)<1) X"
^DD(63.908,.01,3)="ANSWER MUST BE 1-75 CHARACTERS IN LENGTH"
^DD(63.908,.01,21,0)="^^1^1^2911205^"
^DD(63.908,.01,21,1,0)="This is a comment on the cytopathology data."
^DD(63.908,.01,"DT")="2850318"
^DD(63.908,"B","COMMENT",.01)=""
^DD(63.908,"GL",0,1,.01)=""
^DD(63.91,0)="GROSS DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.91,0,"NM","GROSS DESCRIPTION")=""
^DD(63.91,0,"UP")="63.09"
^DD(63.91,.01,0)="GROSS DESCRIPTION^W^^0;1^Q"
^DD(63.91,.01,"DT")="2850228"
^DD(63.91,"B","GROSS DESCRIPTION",.01)=""
^DD(63.91,"GL",0,1,.01)=""
^DD(63.911,0)="MICROSCOPIC EXAMINATION SUB-FIELD^NL^.01^1"
^DD(63.911,0,"NM","MICROSCOPIC EXAMINATION")=""
^DD(63.911,0,"UP")="63.09"
^DD(63.911,.01,0)="MICROSCOPIC EXAMINATION^W^^0;1^Q"
^DD(63.911,.01,"DT")="2930716"
^DD(63.911,"B","MICROSCOPIC EXAMINATION",.01)=""
^DD(63.911,"GL",0,1,.01)=""
^DD(63.912,0)="CYTOPATH ORGAN/TISSUE SUB-FIELD^NL^5^7"
^DD(63.912,0,"NM","CYTOPATH ORGAN/TISSUE")=""
^DD(63.912,0,"UP")="63.09"
^DD(63.912,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.912,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(63.912,.001,"DT")="2850227"
^DD(63.912,.01,0)="CYTOPATH ORGAN/TISSUE^M*P61'X^LAB(61,^0;1^S:$E(X,1,2)=""T-"" X=$E(X,3,$L(X)) S SEX=$S('$D(SEX):""MF"",SEX="""":""MF"",1:SEX) S DIC(0)=""EMO"",DIC(""S"")=""I SEX[$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.912,.01,4)="W !,""Selects when appropriate sex related organs."",!,""Ex. A uterus should not be selected for a male patient !!"",!"
^DD(63.912,.01,"DT")="2870919"
^DD(63.912,1,0)="FUNCTION^63.985PA^^3;0"
^DD(63.912,1,21,0)="^^2^2^2911205^"
^DD(63.912,1,21,1,0)="These are the functions associated with this"
^DD(63.912,1,21,2,0)="organ/tissue(s)."
^DD(63.912,1.5,0)="PROCEDURE^63.982PA^^4;0"
^DD(63.912,1.5,21,0)="^^2^2^2911205^"
^DD(63.912,1.5,21,1,0)="These are the procedures associated with this"
^DD(63.912,1.5,21,2,0)="organ/tissue(s)."
^DD(63.912,3,0)="DISEASE^63.915PA^^1;0"
^DD(63.912,3,21,0)="^^2^2^2911205^"
^DD(63.912,3,21,1,0)="These are the diseases associated with this"
^DD(63.912,3,21,2,0)="organ/tissue(s)."
^DD(63.912,4,0)="MORPHOLOGY^63.916PA^^2;0"
^DD(63.912,4,21,0)="^^2^2^2911205^"
^DD(63.912,4,21,1,0)="These are morphologies associated with this"
^DD(63.912,4,21,2,0)="organ/tissue(s)."
^DD(63.912,5,0)="SPECIAL STUDIES^63.919SAI^^5;0"
^DD(63.912,5,21,0)="^^2^2^2911205^"
^DD(63.912,5,21,1,0)="These are the special studies associated with this"
^DD(63.912,5,21,2,0)="organ/tissue(s)."
^DD(63.912,"B","CYTOPATH ORGAN/TISSUE",.01)=""
^DD(63.912,"B","DISEASE",3)=""
^DD(63.912,"B","FUNCTION",1)=""
^DD(63.912,"B","MORPHOLOGY",4)=""
^DD(63.912,"B","NUMBER",.001)=""
^DD(63.912,"B","PROCEDURE",1.5)=""
^DD(63.912,"B","SPECIAL STUDIES",5)=""
^DD(63.912,"GL",0,1,.01)=""
^DD(63.912,"GL",1,0,3)=""
^DD(63.912,"GL",2,0,4)=""
^DD(63.912,"GL",3,0,1)=""
^DD(63.912,"GL",4,0,1.5)=""
^DD(63.912,"GL",5,0,5)=""
^DD(63.912,"SB",63.915,3)=""
^DD(63.912,"SB",63.916,4)=""
^DD(63.912,"SB",63.919,5)=""
^DD(63.912,"SB",63.982,1.5)=""
^DD(63.912,"SB",63.985,1)=""
^DD(63.9121,0)="SMEAR PREP SUB-FIELD^^1^2"
^DD(63.9121,0,"DT")="3030305"
^DD(63.9121,0,"IX","B",63.9121,.01)=""
^DD(63.9121,0,"NM","SMEAR PREP")=""
^DD(63.9121,0,"UP")="63.902"
^DD(63.9121,.01,0)="SMEAR PREP^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(63.9121,.01,1,0)="^.1"
^DD(63.9121,.01,1,1,0)="63.9121^B"
^DD(63.9121,.01,1,1,1)="S ^LR(DA(3),""CY"",DA(2),.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(63.9121,.01,1,1,2)="K ^LR(DA(3),""CY"",DA(2),.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(63.9121,.01,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(63.9121,.01,"DT")="2880704"
^DD(63.9121,1,0)="STAIN/PROCEDURE^63.9122PA^^1;0"
^DD(63.9121,1,"DT")="2910113"
^DD(63.9121,"B","SMEAR PREP",.01)=""
^DD(63.9121,"B","STAIN/PROCEDURE",1)=""
^DD(63.9121,"GL",0,1,.01)=""
^DD(63.9121,"GL",1,0,1)=""
^DD(63.9121,"IX",.01)=""
^DD(63.9121,"SB",63.9122,1)=""
^DD(63.9122,0)="STAIN/PROCEDURE SUB-FIELD^^.09^9"
^DD(63.9122,0,"DT")="3030305"
^DD(63.9122,0,"NM","STAIN/PROCEDURE")=""
^DD(63.9122,0,"UP")="63.9121"
^DD(63.9122,.01,0)="STAIN/PROCEDURE^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.9122,.01,1,0)="^.1^^0"
^DD(63.9122,.01,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.9122,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.9122,.01,"DT")="2911231"
^DD(63.9122,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9122,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9122,.02,21,0)="^^1^1^2880704^"
^DD(63.9122,.02,21,1,0)="The number of slides prepared"
^DD(63.9122,.02,"DT")="2880704"
^DD(63.9122,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9122,.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.9122,.03,"DT")="2880704"
^DD(63.9122,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.9122,.04,3)="Future date/time not allowed."
^DD(63.9122,.04,21,0)="^^1^1^2930331^"
^DD(63.9122,.04,21,1,0)="Date slides were stained"
^DD(63.9122,.04,"DT")="2910429"
^DD(63.9122,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.9122,.05,3)="Future date/time not allowed."
^DD(63.9122,.05,21,0)="^^1^1^2930331^"
^DD(63.9122,.05,21,1,0)="Date slides were examined"
^DD(63.9122,.05,"DT")="2910429"
^DD(63.9122,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9122,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9122,.06,21,0)="^^1^1^2910430^"
^DD(63.9122,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.9122,.06,"DT")="2910430"
^DD(63.9122,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9122,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.9122,.07,"DT")="2910502"
^DD(63.9122,.08,0)="SLIDES SCREENED (#)^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9122,.08,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9122,.08,21,0)="^^1^1^2910513^"
^DD(63.9122,.08,21,1,0)="Last number of slides screened for workload."
^DD(63.9122,.08,"DT")="2910513"
^DD(63.9122,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9122,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9122,.09,"DT")="2930402"
^DD(63.9122,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.9122,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.9122,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.9122,"B","LABELS TO PRINT",.07)=""
^DD(63.9122,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.9122,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.9122,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.9122,"B","SLIDES SCREENED (#)",.08)=""
^DD(63.9122,"B","STAIN/PROCEDURE",.01)=""
^DD(63.9122,"GL",0,1,.01)=""
^DD(63.9122,"GL",0,2,.02)=""
^DD(63.9122,"GL",0,3,.03)=""
^DD(63.9122,"GL",0,4,.04)=""
^DD(63.9122,"GL",0,5,.05)=""
^DD(63.9122,"GL",0,6,.06)=""
^DD(63.9122,"GL",0,7,.07)=""
^DD(63.9122,"GL",0,8,.08)=""
^DD(63.9122,"GL",0,9,.09)=""
^DD(63.913,0)="BRIEF CLINICAL HISTORY SUB-FIELD^NL^.01^1"
^DD(63.913,0,"NM","BRIEF CLINICAL HISTORY")=""
^DD(63.913,0,"UP")="63.09"
^DD(63.913,.01,0)="BRIEF CLINICAL HISTORY^W^^0;1^Q"
^DD(63.913,.01,"DT")="2850227"
^DD(63.913,"B","BRIEF CLINICAL HISTORY",.01)=""
^DD(63.913,"GL",0,1,.01)=""
^DD(63.914,0)="PREOPERATIVE DIAGNOSIS SUB-FIELD^NL^.01^1"
^DD(63.914,0,"NM","PREOPERATIVE DIAGNOSIS")=""
^DD(63.914,0,"UP")="63.09"
^DD(63.914,.01,0)="PREOPERATIVE DIAGNOSIS^W^^0;1^Q"
^DD(63.914,.01,3)=""
^DD(63.914,.01,"DT")="2850303"
^DD(63.914,"B","PREOPERATIVE DIAGNOSIS",.01)=""
^DD(63.914,"GL",0,1,.01)=""
^DD(63.915,0)="DISEASE SUB-FIELD^NL^.01^1"
^DD(63.915,0,"NM","DISEASE")=""
^DD(63.915,0,"UP")="63.912"
^DD(63.915,.01,0)="DISEASE^M*P61.4'X^LAB(61.4,^0;1^S DIC(0)=""EQMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.915,.01,21,0)="^^2^2^2911205^"
^DD(63.915,.01,21,1,0)="This is the disease associated with this"
^DD(63.915,.01,21,2,0)="organ/tissue(s)."
^DD(63.915,.01,"DT")="2870715"
^DD(63.915,"B","DISEASE",.01)=""
^DD(63.915,"GL",0,1,.01)=""
^DD(63.916,0)="MORPHOLOGY SUB-FIELD^NL^1^2"
^DD(63.916,0,"NM","MORPHOLOGY")=""
^DD(63.916,0,"UP")="63.912"
^DD(63.916,.01,0)="MORPHOLOGY^M*P61.1'X^LAB(61.1,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.916,.01,3)="You may enter:"
^DD(63.916,.01,4)="W !!,""N, CLASS I, or CLASS 1 for NEGATIVE"",!,""A, II, CLASS II or CLASS 2(choice of atypias) for ATYPIA"",!,""S, III, 3, CLASS III or CLASS 3 for SUSPICIOUS"",!,""P, CLASS V, or CLASS 5 for POSITIVE"",!,""U or CLASS 0 for UNSATISFACTORY"",!"
^DD(63.916,.01,21,0)="^^2^2^2911205^"
^DD(63.916,.01,21,1,0)="This is the morphology associated with this"
^DD(63.916,.01,21,2,0)="organ/tissue(s)."
^DD(63.916,.01,"DT")="2870919"
^DD(63.916,1,0)="ETIOLOGY^63.917PA^^1;0"
^DD(63.916,1,21,0)="^^2^2^2911205^"
^DD(63.916,1,21,1,0)="These are the etiologies associated with this"
^DD(63.916,1,21,2,0)="organ/tissue(s)."
^DD(63.916,"B","ETIOLOGY",1)=""
^DD(63.916,"B","MORPHOLOGY",.01)=""
^DD(63.916,"GL",0,1,.01)=""
^DD(63.916,"GL",1,0,1)=""
^DD(63.916,"SB",63.917,1)=""
^DD(63.917,0)="ETIOLOGY SUB-FIELD^NL^.01^1"
^DD(63.917,0,"NM","ETIOLOGY")=""
^DD(63.917,0,"UP")="63.916"
^DD(63.917,.01,0)="ETIOLOGY^M*P61.2'X^LAB(61.2,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.917,.01,21,0)="^^2^2^2911205^"
^DD(63.917,.01,21,1,0)="This is an etiology associated with this"
^DD(63.917,.01,21,2,0)="organ/tissue(s)."
^DD(63.917,.01,"DT")="2870919"
^DD(63.917,"B","ETIOLOGY",.01)=""
^DD(63.917,"GL",0,1,.01)=""
^DD(63.918,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.918,0,"NM","DESCRIPTION")=""
^DD(63.918,0,"UP")="63.907"
^DD(63.918,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.918,.01,"DT")="2850227"
^DD(63.918,"B","DESCRIPTION",.01)=""
^DD(63.918,"GL",0,1,.01)=""
^DD(63.919,0)="SPECIAL STUDIES SUB-FIELD^NL^1^4"
^DD(63.919,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(63.919,0,"NM","SPECIAL STUDIES")=""
^DD(63.919,0,"UP")="63.912"
^DD(63.919,.01,0)="SPECIAL STUDIES^MS^E:EM;I:IMMUNOFLUORESCENCE;P:PHOTOGRAPHY;C:CONSULTATION;IP:IMMUNOPEROXIDASE;^0;1^Q"
^DD(63.919,.01,21,0)="^^2^2^2911205^"
^DD(63.919,.01,21,1,0)="This is a special study associated with this"
^DD(63.919,.01,21,2,0)="organ/tissue(s)."
^DD(63.919,.01,"DT")="2850408"
^DD(63.919,.02,0)="DATE^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.919,.02,21,0)="^^1^1^2911205^"
^DD(63.919,.02,21,1,0)="This is the date of the special study."
^DD(63.919,.02,"DT")="2850227"
^DD(63.919,.03,0)="ID #^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(63.919,.03,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(63.919,.03,21,0)="^^1^1^2911205^"
^DD(63.919,.03,21,1,0)="This is the identification number of the special study."
^DD(63.919,.03,"DT")="2850227"
^DD(63.919,1,0)="DESCRIPTION^63.921^^1;0"
^DD(63.919,1,21,0)="^^1^1^2911205^"
^DD(63.919,1,21,1,0)="This is the description of the special studies."
^DD(63.919,"B","DATE",.02)=""
^DD(63.919,"B","DESCRIPTION",1)=""
^DD(63.919,"B","ID #",.03)=""
^DD(63.919,"B","SPECIAL STUDIES",.01)=""
^DD(63.919,"GL",0,1,.01)=""
^DD(63.919,"GL",0,2,.02)=""
^DD(63.919,"GL",0,3,.03)=""
^DD(63.919,"GL",1,0,1)=""
^DD(63.919,"RQ",.02)=""
^DD(63.919,"SB",63.921,1)=""
^DD(63.92005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(63.92005,0,"DT")="2950523"
^DD(63.92005,0,"IX","B",63.92005,.01)=""
^DD(63.92005,0,"NM","IMAGE")=""
^DD(63.92005,0,"UP")="63.09"
^DD(63.92005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(63.92005,.01,1,0)="^.1"
^DD(63.92005,.01,1,1,0)="63.92005^B"
^DD(63.92005,.01,1,1,1)="S ^LR(DA(2),""CY"",DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(63.92005,.01,1,1,2)="K ^LR(DA(2),""CY"",DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(63.92005,.01,3)="IMAGE POINTER BACK TO IMAGE FILE"
^DD(63.92005,.01,"DT")="2950523"
^DD(63.92005,"B","IMAGE",.01)=""
^DD(63.92005,"GL",0,1,.01)=""
^DD(63.92005,"IX",.01)=""
^DD(63.921,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(63.921,0,"NM","DESCRIPTION")=""
^DD(63.921,0,"UP")="63.919"
^DD(63.921,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(63.921,.01,"DT")="2850227"
^DD(63.921,"B","DESCRIPTION",.01)=""
^DD(63.921,"GL",0,1,.01)=""
^DD(63.922,0)="CELL BLOCK SUB-FIELD^^1^2"
^DD(63.922,0,"DT")="2930402"
^DD(63.922,0,"IX","B",63.922,.01)=""
^DD(63.922,0,"NM","CELL BLOCK")=""
^DD(63.922,0,"UP")="63.902"
^DD(63.922,.01,0)="CELL BLOCK^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(63.922,.01,1,0)="^.1"
^DD(63.922,.01,1,1,0)="63.922^B"
^DD(63.922,.01,1,1,1)="S ^LR(DA(3),""CY"",DA(2),.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(63.922,.01,1,1,2)="K ^LR(DA(3),""CY"",DA(2),.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(63.922,.01,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(63.922,.01,"DT")="2880704"
^DD(63.922,1,0)="CELL BLOCK STAIN^63.923PA^^1;0"
^DD(63.922,1,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.922,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.922,"B","CELL BLOCK",.01)=""
^DD(63.922,"B","CELL BLOCK STAIN",1)=""
^DD(63.922,"GL",0,1,.01)=""
^DD(63.922,"GL",1,0,1)=""
^DD(63.922,"IX",.01)=""
^DD(63.922,"SB",63.923,1)=""
^DD(63.923,0)="CELL BLOCK STAIN SUB-FIELD^^.09^9"
^DD(63.923,0,"DT")="2930402"
^DD(63.923,0,"NM","CELL BLOCK STAIN")=""
^DD(63.923,0,"UP")="63.922"
^DD(63.923,.01,0)="CELL BLOCK STAIN^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.923,.01,1,0)="^.1^^0"
^DD(63.923,.01,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.923,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.923,.01,"DT")="2911231"
^DD(63.923,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.923,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.923,.02,"DT")="2880704"
^DD(63.923,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.923,.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.923,.03,"DT")="2880704"
^DD(63.923,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.923,.04,3)="Future date/time not allowed."
^DD(63.923,.04,21,0)="^^1^1^2930331^"
^DD(63.923,.04,21,1,0)="Date slides were stained"
^DD(63.923,.04,"DT")="2910429"
^DD(63.923,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.923,.05,3)="Future date/time not allowed."
^DD(63.923,.05,21,0)="^^1^1^2930331^"
^DD(63.923,.05,21,1,0)="Date slides were examined"
^DD(63.923,.05,"DT")="2910429"
^DD(63.923,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.923,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.923,.06,21,0)="^^1^1^2910430^"
^DD(63.923,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.923,.06,"DT")="2910430"
^DD(63.923,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.923,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.923,.07,"DT")="2910502"
^DD(63.923,.08,0)="SLIDES SCREENED (#)^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.923,.08,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.923,.08,21,0)="^^1^1^2910513^"
^DD(63.923,.08,21,1,0)="Last number of slides screened for workload."
^DD(63.923,.08,"DT")="2910513"
^DD(63.923,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.923,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.923,.09,"DT")="2930402"
^DD(63.923,"B","CELL BLOCK STAIN",.01)=""
^DD(63.923,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.923,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.923,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.923,"B","LABELS TO PRINT",.07)=""
^DD(63.923,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.923,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.923,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.923,"B","SLIDES SCREENED (#)",.08)=""
^DD(63.923,"GL",0,1,.01)=""
^DD(63.923,"GL",0,2,.02)=""
^DD(63.923,"GL",0,3,.03)=""
^DD(63.923,"GL",0,4,.04)=""
^DD(63.923,"GL",0,5,.05)=""
^DD(63.923,"GL",0,6,.06)=""
^DD(63.923,"GL",0,7,.07)=""
^DD(63.923,"GL",0,8,.08)=""
^DD(63.923,"GL",0,9,.09)=""
^DD(63.924,0)="MEMBRANE FILTER SUB-FIELD^^1^2"
^DD(63.924,0,"DT")="2930402"
^DD(63.924,0,"NM","MEMBRANE FILTER")=""
^DD(63.924,0,"UP")="63.902"
^DD(63.924,.01,0)="MEMBRANE FILTER^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(63.924,.01,1,0)="^.1^^0"
^DD(63.924,.01,3)="Answer must be 1-9 characters in length."
^DD(63.924,.01,"DT")="2910113"
^DD(63.924,1,0)="MEMBRANE FILTER STAIN^63.9241PA^^1;0"
^DD(63.924,1,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.924,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.924,"B","MEMBRANE FILTER",.01)=""
^DD(63.924,"B","MEMBRANE FILTER STAIN",1)=""
^DD(63.924,"GL",0,1,.01)=""
^DD(63.924,"GL",1,0,1)=""
^DD(63.924,"SB",63.9241,1)=""
^DD(63.9241,0)="MEMBRANE FILTER STAIN SUB-FIELD^^.09^9"
^DD(63.9241,0,"DT")="2930402"
^DD(63.9241,0,"NM","MEMBRANE FILTER STAIN")=""
^DD(63.9241,0,"UP")="63.924"
^DD(63.9241,.01,0)="MEMBRANE FILTER STAIN^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.9241,.01,1,0)="^.1^^0"
^DD(63.9241,.01,12)="Selects only stains/procedures associated with anatomic pathology"
^DD(63.9241,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(63.9241,.01,"DT")="2910113"
^DD(63.9241,.02,0)="SLIDES PREPARED (#)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9241,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9241,.02,"DT")="2910113"
^DD(63.9241,.03,0)="CONTROL SLIDES (#)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9241,.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.9241,.03,"DT")="2910113"
^DD(63.9241,.04,0)="DATE/TIME SLIDES STAINED^DX^^0;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.9241,.04,3)="Future date/time not allowed."
^DD(63.9241,.04,21,0)="^^1^1^2930331^"
^DD(63.9241,.04,21,1,0)="Date slides were stained"
^DD(63.9241,.04,"DT")="2910429"
^DD(63.9241,.05,0)="DATE/TIME SLIDES EXAMINED^DX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(63.9241,.05,3)="Future date/time not allowed."
^DD(63.9241,.05,21,0)="^^1^1^2930331^"
^DD(63.9241,.05,21,1,0)="Date slides were examined"
^DD(63.9241,.05,"DT")="2910429"
^DD(63.9241,.06,0)="SLIDES COUNTED (#)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9241,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9241,.06,21,0)="^^1^1^2910430^"
^DD(63.9241,.06,21,1,0)="Last number of slides counted for workload."
^DD(63.9241,.06,"DT")="2910430"
^DD(63.9241,.07,0)="LABELS TO PRINT^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9241,.07,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(63.9241,.07,"DT")="2910502"
^DD(63.9241,.08,0)="SLIDES SCREENED (#)^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9241,.08,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9241,.08,21,0)="^^1^1^2910513^"
^DD(63.9241,.08,21,1,0)="Last number of slides screened for workload."
^DD(63.9241,.08,"DT")="2910513"
^DD(63.9241,.09,0)="NON-CONTROL SLIDES COUNTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(63.9241,.09,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(63.9241,.09,"DT")="2930402"
^DD(63.9241,"B","CONTROL SLIDES (#)",.03)=""
^DD(63.9241,"B","DATE/TIME SLIDES EXAMINED",.05)=""
^DD(63.9241,"B","DATE/TIME SLIDES STAINED",.04)=""
^DD(63.9241,"B","LABELS TO PRINT",.07)=""
^DD(63.9241,"B","MEMBRANE FILTER STAIN",.01)=""
^DD(63.9241,"B","NON-CONTROL SLIDES COUNTED",.09)=""
^DD(63.9241,"B","SLIDES COUNTED (#)",.06)=""
^DD(63.9241,"B","SLIDES PREPARED (#)",.02)=""
^DD(63.9241,"B","SLIDES SCREENED (#)",.08)=""
^DD(63.9241,"GL",0,1,.01)=""
^DD(63.9241,"GL",0,2,.02)=""
^DD(63.9241,"GL",0,3,.03)=""
^DD(63.9241,"GL",0,4,.04)=""
^DD(63.9241,"GL",0,5,.05)=""
^DD(63.9241,"GL",0,6,.06)=""
^DD(63.9241,"GL",0,7,.07)=""
^DD(63.9241,"GL",0,8,.08)=""
^DD(63.9241,"GL",0,9,.09)=""
^DD(63.94,0)="DATE MICROSCOPIC EXAM MODIFIED SUB-FIELD^^1^3"
^DD(63.94,0,"NM","DATE MICROSCOPIC EXAM MODIFIED")=""
^DD(63.94,0,"UP")="63.09"
^DD(63.94,.01,0)="DATE MICROSCOPIC EXAM MODIFIED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.94,.01,21,0)="^^2^2^2911205^^^"
^DD(63.94,.01,21,1,0)="This is the date of the modification of the"
^DD(63.94,.01,21,2,0)="microscopic examination diagnosis."
^DD(63.94,.01,"DT")="2930716"
^DD(63.94,.02,0)="PERSON MODIFYING TEXT^P200'^VA(200,^0;2^Q"
^DD(63.94,.02,21,0)="^^1^1^2911205^^^"
^DD(63.94,.02,21,1,0)="This is the person modifying text."
^DD(63.94,.02,"DT")="2910630"
^DD(63.94,1,0)="PREMODIFICATION TEXT^63.941^^1;0"
^DD(63.94,1,21,0)="^^1^1^2911205^^^"
^DD(63.94,1,21,1,0)="This is the premodification text."
^DD(63.94,"B","DATE MICROSCOPIC EXAM MODIFIED",.01)=""
^DD(63.94,"B","PERSON MODIFYING TEXT",.02)=""
^DD(63.94,"B","PREMODIFICATION TEXT",1)=""
^DD(63.94,"GL",0,1,.01)=""
^DD(63.94,"GL",0,2,.02)=""
^DD(63.94,"GL",1,0,1)=""
^DD(63.94,"SB",63.941,1)=""
^DD(63.941,0)="PREMODIFICATION TEXT SUB-FIELD^^.01^1"
^DD(63.941,0,"NM","PREMODIFICATION TEXT")=""
^DD(63.941,0,"UP")="63.94"
^DD(63.941,.01,0)="PREMODIFICATION TEXT^W^^0;1^Q"
^DD(63.941,.01,21,0)="^^1^1^2911205^"
^DD(63.941,.01,21,1,0)="This is the premodification text."
^DD(63.941,.01,"DT")="2861118"
^DD(63.941,"B","PREMODIFICATION TEXT",.01)=""
^DD(63.941,"GL",0,1,.01)=""
^DD(63.97,0)="AUTOPSY COMMENTS SUB-FIELD^NL^.01^1"
^DD(63.97,0,"NM","AUTOPSY COMMENTS")=""
^DD(63.97,0,"UP")="63"
^DD(63.97,.01,0)="AUTOPSY COMMENTS^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(63.97,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(63.97,.01,21,0)="^^1^1^2911205^^"
^DD(63.97,.01,21,1,0)="This is a comment on this autopsy."
^DD(63.97,.01,"DT")="2841017"
^DD(63.97,"B","AUTOPSY COMMENTS",.01)=""
^DD(63.97,"GL",0,1,.01)=""
^DD(63.98,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(63.98,0,"NM","COMMENT")=""
^DD(63.98,0,"UP")="63.08"
^DD(63.98,.01,0)="COMMENT^MFX^^0;1^K:$L(X)>75!($L(X)<1) X I $D(X) S L=75,L(1)=""S"" D ^LRUB"
^DD(63.98,.01,3)="ANSWER MUST BE 1-75 CHARACTERS IN LENGTH"
^DD(63.98,.01,4)="S L(1)=""S"" D Q^LRUB"
^DD(63.98,.01,21,0)="^^1^1^2911204^"
^DD(63.98,.01,21,1,0)="This is a comment on the specimen."
^DD(63.98,.01,"DT")="2890420"
^DD(63.98,"B","COMMENT",.01)=""
^DD(63.98,"GL",0,1,.01)=""
^DD(63.982,0)="PROCEDURE SUB-FIELD^NL^.02^2"
^DD(63.982,0,"NM","PROCEDURE")=""
^DD(63.982,0,"UP")="63.912"
^DD(63.982,.01,0)="PROCEDURE^M*P61.5'X^LAB(61.5,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.982,.01,21,0)="^^2^2^2911205^"
^DD(63.982,.01,21,1,0)="This is the procedure associated with this"
^DD(63.982,.01,21,2,0)="organ/tissue(s)."
^DD(63.982,.01,"DT")="2870919"
^DD(63.982,.02,0)="RESULT^S^0:NEG;1:POS;^0;2^Q"
^DD(63.982,.02,21,0)="^^1^1^2891230^"
^DD(63.982,.02,21,1,0)="If result of procedure is positive enter '1' or 'P'."
^DD(63.982,.02,"DT")="2891222"
^DD(63.982,"B","PROCEDURE",.01)=""
^DD(63.982,"B","RESULT",.02)=""
^DD(63.982,"GL",0,1,.01)=""
^DD(63.982,"GL",0,2,.02)=""
^DD(63.985,0)="FUNCTION SUB-FIELD^NL^.01^1"
^DD(63.985,0,"NM","FUNCTION")=""
^DD(63.985,0,"UP")="63.912"
^DD(63.985,.01,0)="FUNCTION^M*P61.3'X^LAB(61.3,^0;1^S DIC(0)=""EMO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(63.985,.01,21,0)="^^2^2^2911205^"
^DD(63.985,.01,21,1,0)="This is the function associated with this"
^DD(63.985,.01,21,2,0)="organ/tissue(s)."
^DD(63.985,.01,"DT")="2870919"
^DD(63.985,"B","FUNCTION",.01)=""
^DD(63.985,"GL",0,1,.01)=""
^DD(63.99,0)="ARCHIVE REFERENCE SUB-FIELD^NL^.01^1"
^DD(63.99,0,"NM","ARCHIVE REFERENCE")=""
^DD(63.99,0,"UP")="63"
^DD(63.99,.01,0)="ARCHIVE REFERENCE^NJ5,0IOX^^0;1^K X"
^DD(63.99,.01,2)="S Y(0)=Y S Y=$S($D(^LAB(69.9,1,6,+Y,0)):$P(^(0),""^"",1),1:+Y)"
^DD(63.99,.01,2.1)="S Y=$S($D(^LAB(69.9,1,6,+Y,0)):$P(^(0),""^"",1),1:+Y)"
^DD(63.99,.01,3)=""
^DD(63.99,.01,21,0)="^^2^2^2911205^^"
^DD(63.99,.01,21,1,0)="This points to the entry in the Laboratory site parameters file 69.9"
^DD(63.99,.01,21,2,0)="in the Archive multiple to indicate where data is archived."
^DD(63.99,.01,"DT")="2850821"
^DD(63.99,"B","ARCHIVE REFERENCE",.01)=""
^DD(63.99,"GL",0,1,.01)=""
^DD(63.999,0)="AUTOPSY QA CODE SUB-FIELD^^.01^1"
^DD(63.999,0,"NM","AUTOPSY QA CODE")=""
^DD(63.999,0,"UP")="63"
^DD(63.999,.01,0)="AUTOPSY QA CODE^M*P62.5'X^LAB(62.5,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(63.999,.01,1,0)="^.1^^0"
^DD(63.999,.01,3)="QA codes must be less than 3 characters."
^DD(63.999,.01,12)="Selects entries with less than 3 characters"
^DD(63.999,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""I"""",$L($P(^(0),U))<3"""
^DD(63.999,.01,21,0)="^^1^1^2940510^"
^DD(63.999,.01,21,1,0)="Quality assurance code for autopsy"
^DD(63.999,.01,"DT")="2900916"
^DD(63.999,"B","AUTOPSY QA CODE",.01)=""
^DD(63.999,"GL",0,1,.01)=""
^DD(63.9999,0)="FIELD^^5^5"
^DD(63.9999,0,"DT")="2940603"
^DD(63.9999,0,"IX","AZZ",63.9999,.02)=""
^DD(63.9999,0,"IX","B",63.9999,.01)=""
^DD(63.9999,0,"IX","CZX",63.9999,.03)=""
^DD(63.9999,0,"IX","CZZ",63.9999,.03)=""
^DD(63.9999,0,"NM","ARCHIVED LR DATA")=""
^DD(63.9999,0,"VR")="5.2"
^DD(63.9999,.01,0)="LRDFN^RNJ11,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(63.9999,.01,1,0)="^.1"
^DD(63.9999,.01,1,1,0)="63.9999^B"
^DD(63.9999,.01,1,1,1)="S ^LAR(""Z"",""B"",$E(X,1,30),DA)="""""
^DD(63.9999,.01,1,1,2)="K ^LAR(""Z"",""B"",$E(X,1,30),DA)"
^DD(63.9999,.01,3)="Enter the application entry number."
^DD(63.9999,.01,21,0)="^^1^1^2850830^^"
^DD(63.9999,.01,21,1,0)="The internal file number of the ""patient"" (or other entity)"
^DD(63.9999,.01,"DT")="2840724"
^DD(63.9999,.02,0)="PARENT FILE^R*P1'X^DIC(^0;2^S DIC(""S"")=""I $D(^(""""%"""",""""B"""",""""LR""""))"" D ^DIC:X'?1""?"".E K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DDIFN=X"
^DD(63.9999,.02,1,0)="^.1"
^DD(63.9999,.02,1,1,0)="63.9999^AZZ^MUMPS"
^DD(63.9999,.02,1,1,1)="Q"
^DD(63.9999,.02,1,1,2)="S DOLP=X,L1=^LAR(""Z"",DA,0),X=$P(L1,""^"",3) X ^DD(63.9999,.03,1,1,2) S ^LAR(""Z"",DA,0)=$P(L1,""^"",1,2)_""^^""_$P(L1,""^"",4,99) K DOLP,L1,L Q"
^DD(63.9999,.02,4)="W !!,""Allowable Entries: "" F IIX=0:0 S IIX=$O(^DIC(""AC"",""LR"",IIX)) Q:IIX'>0  W ?20,IIX,?30,$P(^DIC(IIX,0),""^"",1),!"
^DD(63.9999,.02,12)="Enter the appropriate parent you wish this entry associated with."
^DD(63.9999,.02,12.1)="S DIC(""S"")=""I $D(^(""""%"""",""""B"""",""""LR""""))"""
^DD(63.9999,.02,12.2)="S X=$D(^(""%"",""B"",""LR""))"
^DD(63.9999,.02,21,0)="^^1^1^2841129^"
^DD(63.9999,.02,21,1,0)="The file where the name of this entry may be found."
^DD(63.9999,.02,"DT")="2840117"
^DD(63.9999,.03,0)="NAME^RNJ9,0XO^^0;3^S PDA=DA,PDIC=DIC,DIC(0)=""QEM"",DIC=$S($D(DDIFN):DDIFN,$D(^LAR(""Z"",DA,0)):+$P(^LAR(""Z"",DA,0),""^"",2),1:""""),DDIFN=DIC K:DIC<1 X D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDIC I $D(Y) S X=+Y K:Y'>0 X,Y I $D(Y) X ^DD(63.9999,.03,.0001)"
^DD(63.9999,.03,.0001)="I $D(@(^DIC(DDIFN,0,""GL"")_X_"",""""LR"""")"")),^(""LR"")'=DA K X,Y,DDIFN W ""  Already in "",^(""LR""),"" Entry."""
^DD(63.9999,.03,1,0)="^.1"
^DD(63.9999,.03,1,1,0)="63.9999^CZZ^MUMPS"
^DD(63.9999,.03,1,1,1)="S L=^LAR(""Z"",DA,0),@(^DIC(+$P(L,""^"",2),0,""GL"")_(+X)_"",""""LR"""")"")=DA"
^DD(63.9999,.03,1,1,2)="I '$D(DIU(0)) S L=$S($D(DOLP):""^""_DOLP_""^""_X,1:^LAR(""Z"",DA,0)) K @(^DIC(+$P(L,""^"",2),0,""GL"")_(+X)_"",""""LR"""")"")"
^DD(63.9999,.03,1,2,0)="63.9999^CZX^MUMPS"
^DD(63.9999,.03,1,2,1)="S %=^LAR(""Z"",DA,0),%=@(^DIC(+$P(%,U,2),0,""GL"")_(+X)_"",0)""),^LAR(""NAME"",$P(%,U,1),DA)="""",^LAR(""SSN"",$P(%,U,9),DA)="""""
^DD(63.9999,.03,1,2,2)="S %=^LAR(""Z"",DA,0),%=@(^DIC(+$P(%,U,2),0,""GL"")_(+X)_"",0)"") K ^LAR(""NAME"",$P(%,U,1),DA),^LAR(""SSN"",$P(%,U,9),DA)"
^DD(63.9999,.03,2)="S Y(0)=Y S L1=$S($D(DA):DA,$D(D0):D0,1:"""") I L1>0 S L=^LAR(""Z"",L1,0),Y="""" I +$P(L,""^"",2)>0 S Y=$P($S($D(@(^DIC(+$P(L,""^"",2),0,""GL"")_(+$P(L,""^"",3))_"",0)"")):^(0),1:""""),""^"",1)"
^DD(63.9999,.03,2.1)="S L1=$S($D(DA):DA,$D(D0):D0,1:"""") I L1>0 S L=^LAR(""Z"",L1,0),Y="""" I +$P(L,""^"",2)>0 S Y=$P($S($D(@(^DIC(+$P(L,""^"",2),0,""GL"")_(+$P(L,""^"",3))_"",0)"")):^(0),1:""""),""^"",1)"
^DD(63.9999,.03,3)=""
^DD(63.9999,.03,4)="S X=""?"",PDA=DA,PDIC=DIC,DIC=$S($D(DDIFN):DDIFN,$D(^LAR(""Z"",DA,0)):+$P(^LAR(""Z"",DA,0),""^"",2),1:0),DIC(0)=""QEM"" D ^DIC:DIC>0 S DIC=PDIC,DA=PDA K PDA,PDI,X"
^DD(63.9999,.03,21,0)="^^1^1^2841129^"
^DD(63.9999,.03,21,1,0)="The internal file number in the parent file for this entry."
^DD(63.9999,.03,"DT")="2840113"
^DD(63.9999,4,0)="CHEM, HEM, TOX, RIA, SER, etc.^63.999904D^^CH;0"
^DD(63.9999,4,21,0)="^^2^2^2911205^^"
^DD(63.9999,4,21,1,0)="This is data for Chemistry, Hematology, Toxicology,"
^DD(63.9999,4,21,2,0)="RIA, Serology, to be archived."
^DD(63.9999,5,0)="MICROBIOLOGY^63.999905DA^^MI;0"
^DD(63.9999,5,21,0)="^^2^2^2930325^"
^DD(63.9999,5,21,1,0)=" This field contains microbiology data which has been archived from"
^DD(63.9999,5,21,2,0)="the active on line data base."
^DD(63.9999,"B","CHEM, HEM, TOX, RIA, SER, etc.",4)=""
^DD(63.9999,"B","LRDFN",.01)=""
^DD(63.9999,"B","MICROBIOLOGY",5)=""
^DD(63.9999,"B","NAME",.03)=""
^DD(63.9999,"B","PARENT FILE",.02)=""
^DD(63.9999,"GL",0,1,.01)=""
^DD(63.9999,"GL",0,2,.02)=""
^DD(63.9999,"GL",0,3,.03)=""
^DD(63.9999,"GL","CH",0,4)=""
^DD(63.9999,"GL","MI",0,5)=""
^DD(63.9999,"IX",.01)=""
^DD(63.9999,"IX",.02)=""
^DD(63.9999,"IX",.03)=""
^DD(63.9999,"RQ",.01)=""
^DD(63.9999,"RQ",.02)=""
^DD(63.9999,"RQ",.03)=""
^DD(63.9999,"SB",63.999904,4)=""
^DD(63.9999,"SB",63.999905,5)=""
^DD(63.999904,0)="CHEM, HEM, TOX, RIA, SER, etc. SUB-FIELD^NL^.99^13"
^DD(63.999904,0,"DT")="2940603"
^DD(63.999904,0,"IX","AC",63.9999041,.01)=""
^DD(63.999904,0,"NM","CHEM")=""
^DD(63.999904,0,"UP")="63.9999"
^DD(63.999904,.01,0)="DATE/TIME SPECIMEN TAKEN^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X,DINUM"
^DD(63.999904,.01,3)="ENTER DRAW TIME OR VERIFY TIME"
^DD(63.999904,.02,0)="DATE/TIME TAKEN NOT EXACT^S^1:YES;^0;2^Q"
^DD(63.999904,.02,3)=""
^DD(63.999904,.03,0)="DATE REPORT COMPLETED^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(63.999904,.03,3)=""
^DD(63.999904,.04,0)="VERIFY PERSON^RP200'^VA(200,^0;4^Q"
^DD(63.999904,.04,"DT")="2910630"
^DD(63.999904,.05,0)="SPECIMEN TYPE^RP61^LAB(61,^0;5^Q"
^DD(63.999904,.05,3)=""
^DD(63.999904,.06,0)="ACCESSION^F^^0;6^K:$L(X)>20!($L(X)<1)!'(X?1N.N) X"
^DD(63.999904,.06,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(63.999904,.07,0)="*VOLUME^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(63.999904,.07,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.999904,.08,0)="METHOD OR SITE^F^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(63.999904,.08,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(63.999904,.09,0)="SUM REPORT NUM.^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(63.999904,.09,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(63.999904,.1,0)="REQUESTING PERSON^P200'^VA(200,^0;10^Q"
^DD(63.999904,.1,3)=""
^DD(63.999904,.1,"DT")="2910630"
^DD(63.999904,.11,0)="REQUESTING LOCATION^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^DD(63.999904,.11,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(63.999904,.12,0)="NEW PERSON CONVERSION^S^1:YES;2:PROCESSED;^NPC;1^Q"
^DD(63.999904,.12,3)=""
^DD(63.999904,.12,21,0)="^^3^3^2931123^^^"
^DD(63.999904,.12,21,1,0)="  This field is to indicate that this entry has all of the pointers"
^DD(63.999904,.12,21,2,0)="converted to the NEW PERSON file. The use of the NEW PERSON file "
^DD(63.999904,.12,21,3,0)="began with Version 5.2"
^DD(63.999904,.12,23,0)="^^2^2^2931123^^^"
^DD(63.999904,.12,23,1,0)="  This field will be used to determine if archive data should be "
^DD(63.999904,.12,23,2,0)="repointed to VA(200 before being restored to the ^LR( global."
^DD(63.999904,.12,"DT")="2940603"
^DD(63.999904,.99,0)="COMMENT^63.9999041A^^1;0"
^DD(63.999904,"B","*VOLUME",.07)=""
^DD(63.999904,"B","ACCESSION",.06)=""
^DD(63.999904,"B","COMMENT",.99)=""
^DD(63.999904,"B","DATE REPORT COMPLETED",.03)=""
^DD(63.999904,"B","DATE/TIME SPECIMEN TAKEN",.01)=""
^DD(63.999904,"B","DATE/TIME TAKEN NOT EXACT",.02)=""
^DD(63.999904,"B","METHOD OR SITE",.08)=""
^DD(63.999904,"B","NEW PERSON CONVERSION",.12)=""
^DD(63.999904,"B","REQUESTING LOCATION",.11)=""
^DD(63.999904,"B","REQUESTING PERSON",.1)=""
^DD(63.999904,"B","SPECIMEN TYPE",.05)=""
^DD(63.999904,"B","SUM REPORT NUM.",.09)=""
^DD(63.999904,"B","VERIFY PERSON",.04)=""
^DD(63.999904,"GL",0,1,.01)=""
^DD(63.999904,"GL",0,2,.02)=""
^DD(63.999904,"GL",0,3,.03)=""
^DD(63.999904,"GL",0,4,.04)=""
^DD(63.999904,"GL",0,5,.05)=""
^DD(63.999904,"GL",0,6,.06)=""
^DD(63.999904,"GL",0,7,.07)=""
^DD(63.999904,"GL",0,8,.08)=""
^DD(63.999904,"GL",0,9,.09)=""
^DD(63.999904,"GL",0,10,.1)=""
^DD(63.999904,"GL",0,11,.11)=""
^DD(63.999904,"GL",1,0,.99)=""
^DD(63.999904,"GL","NPC",1,.12)=""
^DD(63.999904,"RQ",.03)=""
^DD(63.999904,"RQ",.04)=""
^DD(63.999904,"RQ",.05)=""
^DD(63.999904,"SB",63.9999041,.99)=""
^DD(63.9999041,0)="COMMENT SUB-FIELD^NL^1^2"
^DD(63.9999041,0,"DT")="2921009"
^DD(63.9999041,0,"IX","AC",63.9999041,.01)=""
^DD(63.9999041,0,"NM","COMMENT")=""
^DD(63.9999041,0,"UP")="63.999904"
^DD(63.9999041,.01,0)="COMMENT^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$S($D(^LR(DA(2),""CH"",DA(1),1,DA,0)):$S(^(0)[""reported incorrectly as""&'$D(^XUSEC(""LRSUPER"",DUZ)):1,1:0),1:0) X I $D(X) S Q9=""1,68,KL"" D COM^LRNUM"
^DD(63.9999041,.01,1,0)="^.1^^-1"
^DD(63.9999041,.01,1,1,0)="63.9999041^AC^MUMPS"
^DD(63.9999041,.01,1,1,1)="Q"
^DD(63.9999041,.01,1,1,2)="D AC1^LRXREF"
^DD(63.9999041,.01,3)="ANSWER MUST BE 1-68 CHARACTERS IN LENGTH"
^DD(63.9999041,.01,4)="S X=""?"",DIC=""^LAB(62.5,"",DIC(0)=""Q"",DIC(""S"")=""I """"KL""""[$P(^(0),U,4)"",D=""B"" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1"
^DD(63.9999041,.01,9.1)="F I=1:1 Q:$P(X,"" "",I,99)=""""  S %Z=$P(X,"" "",I),Y="""" X:%Z]"""" ^DD(63.041,.01,9.2) S %L=$L(%S)+$L(%Z) S:%L'>65 %S=%S_%Z_"" "" I %L>65 W ""  too long"",! Q"
^DD(63.9999041,.01,9.2)="F Y=0:0 S Y=$O(^LAB(62.5,""B"",%Z,Y)) Q:Y<0  I ""CHOQU""[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),""^"",2) Q:'$D(^(9))  S Y=$P(X,"" "",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q"
^DD(63.9999041,.01,21,0)="^^2^2^2911202^"
^DD(63.9999041,.01,21,1,0)="This is a comment reported with CHEM, HEM, TOX,"
^DD(63.9999041,.01,21,2,0)="etc., data."
^DD(63.9999041,.01,"AUDIT")=""
^DD(63.9999041,.01,"DEL",1,0)="I $P(^LR(DA(2),""CH"",DA(1),0),U,3),'$D(^XUSEC(""LRSUPER"",DUZ)),$G(^LR(DA(2),""CH"",DA(1),1,DA,0))[""reported incorrectly as"""
^DD(63.9999041,.01,"DT")="2921009"
^DD(63.9999041,1,0)="PERSON^P200'^VA(200,^0;2^Q"
^DD(63.9999041,1,9)="^"
^DD(63.9999041,1,"DT")="2921009"
^DD(63.9999041,"B","COMMENT",.01)=""
^DD(63.9999041,"B","PERSON",1)=""
^DD(63.9999041,"GL",0,1,.01)=""
^DD(63.9999041,"GL",0,2,1)=""
^DD(63.9999041,"IX",.01)=""
^DD(63.999905,0)="MICROBIOLOGY SUB-FIELD^^38^2"
^DD(63.999905,0,"DT")="2940603"
^DD(63.999905,0,"NM","MICROBIOLOGY")=""
^DD(63.999905,0,"UP")="63.9999"
^DD(63.999905,.01,0)="MICROBIOLOGY^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(63.999905,.01,"DT")="2890626"
^DD(63.999905,38,0)="NEW PERSON CONVERSION^S^1:YES;2:PROCESSED;^NPC;1^Q"
^DD(63.999905,38,21,0)="^^3^3^2940603^^"
^DD(63.999905,38,21,1,0)="This field is to indicate that this entry has all of the pointers"
^DD(63.999905,38,21,2,0)="converted to the NEW PERSON file. The use of the NEW PERSON file"
^DD(63.999905,38,21,3,0)="began with Version 5.2"
^DD(63.999905,38,"DT")="2940603"
^DD(63.999905,"B","MICROBIOLOGY",.01)=""
^DD(63.999905,"B","NEW PERSON CONVERSION",38)=""
^DD(63.999905,"GL",0,1,.01)=""
^DD(63.999905,"GL","NPC",1,38)=""
^DD(64,0)="FIELD^^26^30"
^DD(64,0,"DDA")="N"
^DD(64,0,"DT")="3061222"
^DD(64,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(64,0,"IX","AB",64.018,.01)=""
^DD(64,0,"IX","AC",64,15)=""
^DD(64,0,"IX","AD",64.018,5)=""
^DD(64,0,"IX","AE",64.023,.01)=""
^DD(64,0,"IX","AF",64,14)=""
^DD(64,0,"IX","AG",64,14)=""
^DD(64,0,"IX","AH",64,25)=""
^DD(64,0,"IX","AI",64.02,4)=""
^DD(64,0,"IX","AJ",64.02,4)=""
^DD(64,0,"IX","AK",64,26)=""
^DD(64,0,"IX","AL",64.02,3)=""
^DD(64,0,"IX","AM",64,25.5)=""
^DD(64,0,"IX","B",64,.01)=""
^DD(64,0,"IX","B",64.019,.01)=""
^DD(64,0,"IX","C",64,1)=""
^DD(64,0,"IX","D",64,.01)=""
^DD(64,0,"IX","E",64,1)=""
^DD(64,0,"IX","F",64,.04)=""
^DD(64,0,"IX","G",64.019,.01)=""
^DD(64,0,"IX","VR",64,.01)=""
^DD(64,0,"NM","WKLD CODE")=""
^DD(64,0,"PT",60,64)=""
^DD(64,0,"PT",60,64.1)=""
^DD(64,0,"PT",60.06,.01)=""
^DD(64,0,"PT",60.12,.01)=""
^DD(64,0,"PT",60.13,.01)=""
^DD(64,0,"PT",60.14,.01)=""
^DD(64,0,"PT",61.211,.01)=""
^DD(64,0,"PT",61.34,.01)=""
^DD(64,0,"PT",62.06,64)=""
^DD(64,0,"PT",62.09,.01)=""
^DD(64,0,"PT",62.211,.01)=""
^DD(64,0,"PT",64.03,10)=""
^DD(64,0,"PT",64.111,.01)=""
^DD(64,0,"PT",64.13,.01)=""
^DD(64,0,"PT",64.368,3)=""
^DD(64,0,"PT",65.311,.01)=""
^DD(64,0,"PT",65.59911,.01)=""
^DD(64,0,"PT",66.06,.01)=""
^DD(64,0,"PT",68.14,.01)=""
^DD(64,0,"PT",603.02,.01)=""
^DD(64,0,"PT",603.02,1)=""
^DD(64,0,"VR")="5.2"
^DD(64,0,"VRPK")="LR"
^DD(64,0,"VRRV")="2.14"
^DD(64,.01,0)="PROCEDURE^RFOI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X"
^DD(64,.01,1,0)="^.1"
^DD(64,.01,1,1,0)="64^B"
^DD(64,.01,1,1,1)="S ^LAM(""B"",$E(X,1,60),DA)="""""
^DD(64,.01,1,1,2)="K ^LAM(""B"",$E(X,1,60),DA)"
^DD(64,.01,1,2,0)="64^D^MUMPS"
^DD(64,.01,1,2,1)="D UP^LRXREF S ^LAM(""D"",X,DA)="""""
^DD(64,.01,1,2,2)="D UP^LRXREF K ^LAM(""D"",X,DA)"
^DD(64,.01,1,2,"%D",0)="^^3^3^2980507^"
^DD(64,.01,1,2,"%D",1,0)=" The name is converted to upper case and stored in the ""D"" x-ref for"
^DD(64,.01,1,2,"%D",2,0)="easier lookup."
^DD(64,.01,1,2,"%D",3,0)="^LAM(""D"",UPPERCASE NAME,IEN)"
^DD(64,.01,1,3,0)="64^VR^MUMPS"
^DD(64,.01,1,3,1)="S ^LAM(""VR"")=$G(^LAM(""VR""))"
^DD(64,.01,1,3,2)="Q"
^DD(64,.01,1,3,3)="Indicate which data version"
^DD(64,.01,1,3,"%D",0)="^^1^1^2940628^"
^DD(64,.01,1,3,"%D",1,0)=" This X-Ref is to track installation of new released workload procedures."
^DD(64,.01,1,3,"DT")="2940628"
^DD(64,.01,2)="S Y(0)=Y I $L($G(Y)) S:$P($G(^LAM(+$O(^LAM(""B"",Y,0)),0)),U,5) Y=""+""_Y"
^DD(64,.01,2.1)="I $L($G(Y)) S:$P($G(^LAM(+$O(^LAM(""B"",Y,0)),0)),U,5) Y=""+""_Y"
^DD(64,.01,3)="Answer must be 2-60 characters in length."
^DD(64,.01,21,0)="^.001^13^13^3031002^^^^"
^DD(64,.01,21,1,0)="The procedure or test name."
^DD(64,.01,21,2,0)=" The names contained in this file are derived from a national list of"
^DD(64,.01,21,3,0)="laboratory procedures. This file is updated as needed from VACO Pathology."
^DD(64,.01,21,4,0)="  THIS FILE SHOULD NOT BE EDITED BY FILEMAN AT THE LOCAL LEVEL."
^DD(64,.01,21,5,0)=" Utilities are provided for local sites to manipulate distributed file"
^DD(64,.01,21,6,0)="data to meet their needs. If a site determines a procedure which they"
^DD(64,.01,21,7,0)="perform is not in this file, they are to contact VACO pathology for "
^DD(64,.01,21,8,0)="procedures to obtain new entries."
^DD(64,.01,21,9,0)="  When attempting to look up data in this file, do not use commas, dash"
^DD(64,.01,21,10,0)="hyphens or slash."
^DD(64,.01,21,11,0)="  AS A GENERAL RULE THE SYNONYM FIELD HAS THE FIRST WORD AND THE SECOND"
^DD(64,.01,21,12,0)="WORD OF A PROCEDURE REVERSED TO PERMIT EASIER LOOK UP. YOU MAY LOOKUP"
^DD(64,.01,21,13,0)="DATA USING EITHER UP OR LOWER CASE NAMES."
^DD(64,.01,23,0)="^.001^5^5^3031002^^^^"
^DD(64,.01,23,1,0)=" The entries from 0-99999 are nationally distributed procedures"
^DD(64,.01,23,2,0)="The entries above 99999 are additional procedures required by this site"
^DD(64,.01,23,3,0)="to report LMIP/Workload data. Data found between 0-99999 will be"
^DD(64,.01,23,4,0)="periodically purged/over written during file updating with addition"
^DD(64,.01,23,5,0)="procedure codes."
^DD(64,.01,"DEL",1,0)="I 1"
^DD(64,.01,"DT")="3060314"
^DD(64,.02,0)="DESCRIPTION^64.04^^2;0"
^DD(64,.02,21,0)="^^1^1^2931124^^"
^DD(64,.02,21,1,0)=" This field is used to further explain the procedure if required."
^DD(64,.04,0)="PRINT NAME^F^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(64,.04,1,0)="^.1"
^DD(64,.04,1,1,0)="64^F"
^DD(64,.04,1,1,1)="S ^LAM(""F"",$E(X,1,30),DA)="""""
^DD(64,.04,1,1,2)="K ^LAM(""F"",$E(X,1,30),DA)"
^DD(64,.04,1,1,"DT")="2921118"
^DD(64,.04,3)="Answer must be 2-30 characters in length."
^DD(64,.04,21,0)="^^1^1^2930325^"
^DD(64,.04,21,1,0)="  This field contains a condensed version of the name."
^DD(64,.04,"DT")="2940314"
^DD(64,1,0)="WKLD CODE^RFXI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<10)!'(X?5N1"".""4N.5N) X I '$D(DIU(0)),$D(X),'$D(^LAM(""E"",X,DA)),$D(^LAM(""E"",X)) D EN^DDIOL(""Already Exist "","""",""!?20"") K X"
^DD(64,1,.1)=""
^DD(64,1,1,0)="^.1"
^DD(64,1,1,1,0)="64^C"
^DD(64,1,1,1,1)="S ^LAM(""C"",$E(X,1,30)_"" "",DA)="""""
^DD(64,1,1,1,2)="K ^LAM(""C"",$E(X,1,30)_"" "",DA)"
^DD(64,1,1,1,"DT")="2910204"
^DD(64,1,1,2,0)="64^E"
^DD(64,1,1,2,1)="S ^LAM(""E"",$E(X,1,30),DA)="""""
^DD(64,1,1,2,2)="K ^LAM(""E"",$E(X,1,30),DA)"
^DD(64,1,1,2,"DT")="2910204"
^DD(64,1,3)="Answer must be 10-11 characters in length.  ie XXXXX.YYYY"
^DD(64,1,21,0)="^^1^1^2910204^^^^"
^DD(64,1,21,1,0)="The code number of the AMIS report for the procedure."
^DD(64,1,"DT")="3051116"
^DD(64,2,0)="WKLD UNIT WEIGHT^NJ5,1^^0;3^K:+X'=X!(X>900)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(64,2,3)="Type a Number between .1 and 900, 1 Decimal Digit"
^DD(64,2,21,0)="^^1^1^2900416^^^"
^DD(64,2,21,1,0)="The AMIS unit weight."
^DD(64,2,"DT")="2881114"
^DD(64,4,0)="BILLABLE PROCEDURE^S^1:YES;0:NO;^0;5^Q"
^DD(64,4,3)=""
^DD(64,4,21,0)="^^4^4^2930326^^^^"
^DD(64,4,21,1,0)="  If this test is considered to be a billable LMIP procedure enter yes to this prompt."
^DD(64,4,21,2,0)=" These procedure will be cumulated and sent to the national data base for"
^DD(64,4,21,3,0)="LMIP reporting. On certain reports a '+' will appear in front of the name"
^DD(64,4,21,4,0)="of the procedure to indicate it is defined as billable."
^DD(64,4,23,0)="^^4^4^2930326^^^"
^DD(64,4,23,1,0)="  Use this field to determine if this procedure should be included in"
^DD(64,4,23,2,0)="the total number of billable test(s) performed on patients. Not all"
^DD(64,4,23,3,0)="procedures are done on patient's specimen(s) or results in a billable"
^DD(64,4,23,4,0)="clinical value."
^DD(64,4,"DT")="2930326"
^DD(64,5,0)="Reserve 1^F^^0;6^K:$L(X)>5!($L(X)<1) X"
^DD(64,5,3)="Answer must be 1-5 characters in length"
^DD(64,5,21,0)="^^2^2^2931104^^^^"
^DD(64,5,21,1,0)="This field is not presently used at this time. The field is not obsolete"
^DD(64,5,21,2,0)="but will be converted to other functions in a later version."
^DD(64,5,"DT")="3001228"
^DD(64,6,0)="UNIT FOR COUNT^RP64.22'^LAB(64.22,^0;7^Q"
^DD(64,6,3)=""
^DD(64,6,21,0)="^^1^1^2900416^^"
^DD(64,6,21,1,0)="E.g., case, std, qc, test, spec, etc."
^DD(64,6,"DT")="2900416"
^DD(64,7,0)="COST^NJ8,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(64,7,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(64,7,21,0)="^^1^1^2870129^"
^DD(64,7,21,1,0)="The cost of the procedure being done."
^DD(64,7,"DT")="2911029"
^DD(64,8,0)="PRICE^NJ8,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<.01) X"
^DD(64,8,3)="Type a Dollar Amount between .01 and 10000, 2 Decimal Digits"
^DD(64,8,21,0)="^^7^7^2970503^"
^DD(64,8,21,1,0)=" This field contains the price charged to another facility. This field"
^DD(64,8,21,2,0)="differs from the COST field (#7) in that this figure includes profit"
^DD(64,8,21,3,0)="margin."
^DD(64,8,21,4,0)=" "
^DD(64,8,21,5,0)=" If PRICE is required for custom reports and this field is blank, the COST"
^DD(64,8,21,6,0)="field amount will be used. If the COST field is blank the value of 1 will"
^DD(64,8,21,7,0)="be used as the default amount."
^DD(64,8,"DT")="2970506"
^DD(64,9,0)="SORTING GROUP^F^^0;12^K:$L(X)>10!($L(X)<1) X"
^DD(64,9,3)="Answer must be 1-10 characters in length."
^DD(64,9,21,0)="^^3^3^2930426^^"
^DD(64,9,21,1,0)=" If the site would like to attach some arbitrary value to this code, it"
^DD(64,9,21,2,0)="may be done in this field. The system makes no use of this field, it is"
^DD(64,9,21,3,0)="designed solely for the site's use."
^DD(64,9,"DT")="2930426"
^DD(64,11,0)="Reserve 3^S^1:YES;^0;13^Q"
^DD(64,11,21,0)="^^2^2^2930325^"
^DD(64,11,21,1,0)=" This field is not presently used by the system. It will be converted to"
^DD(64,11,21,2,0)="other uses in later software versions."
^DD(64,11,"DT")="2930325"
^DD(64,12,0)="MANUFACTURER^P64.3'^LAB(64.3,^0;14^Q"
^DD(64,12,21,0)="^^2^2^2930325^"
^DD(64,12,21,1,0)=" This field is used to identify the vender/manufacturer of this particular"
^DD(64,12,21,2,0)="procedure or instrument."
^DD(64,12,"DT")="2891220"
^DD(64,13,0)="WKLD CODE LAB SECTION^RP64.21'^LAB(64.21,^0;15^Q"
^DD(64,13,3)=""
^DD(64,13,21,0)="^^2^2^2930325^"
^DD(64,13,21,1,0)=" This field is a nationally defined category. This field will provide a"
^DD(64,13,21,2,0)="method of group data on the national level."
^DD(64,13,"DT")="2950401"
^DD(64,14,0)="DSS Feeder Key^S^1:YES;^0;16^Q"
^DD(64,14,1,0)="^.1"
^DD(64,14,1,1,0)="64^AF^MUMPS"
^DD(64,14,1,1,1)="S ^LAM(""AF"",$P(^LAM(DA,0),U,2),DA)="""""
^DD(64,14,1,1,2)="K ^LAM(""AF"",$P(^LAM(DA,0),U,2),DA)"
^DD(64,14,1,1,"%D",0)="^^4^4^2980507^"
^DD(64,14,1,1,"%D",1,0)=" If the DSS Feeder key field is set Yes, then creat a cross reference"
^DD(64,14,1,1,"%D",2,0)="containing the WKLD CODE number, field #1"
^DD(64,14,1,1,"%D",3,0)=" "
^DD(64,14,1,1,"%D",4,0)="^LAM(""AF"",WKLD CODE,IEN)"
^DD(64,14,1,1,"DT")="2961016"
^DD(64,14,1,2,0)="64^AG^MUMPS"
^DD(64,14,1,2,1)="S ^LAM(""AG"",DA,$P(^LAM(DA,0),U,2))="""""
^DD(64,14,1,2,2)="K ^LAM(""AG"",DA,$P(^LAM(DA,0),U,2))"
^DD(64,14,1,2,"%D",0)="^^4^4^2980507^"
^DD(64,14,1,2,"%D",1,0)=" If the DSS Feeder key field is set to yes, creat a cross reference"
^DD(64,14,1,2,"%D",2,0)="contain the WKLD CODE number, field #1."
^DD(64,14,1,2,"%D",3,0)=" "
^DD(64,14,1,2,"%D",4,0)="^LAM(""AG"",IEN,WKLD CODE)"
^DD(64,14,1,2,"DT")="2961016"
^DD(64,14,3)=""
^DD(64,14,5,1,0)="64^26^2"
^DD(64,14,21,0)="^^14^14^2961016^"
^DD(64,14,21,1,0)=" This field is used to indicate that this code Wkld Code should be used"
^DD(64,14,21,2,0)="for DSS Laboratory data collection. Codes that are defined as YES will be"
^DD(64,14,21,3,0)="extracted and passed to the DSS Laboratory API. Guidelines for the use of"
^DD(64,14,21,4,0)="this field will be jointly issued by the Pathology & Laboratory Medicine"
^DD(64,14,21,5,0)="Service Headquarters and the DSS Program Office."
^DD(64,14,21,6,0)=" "
^DD(64,14,21,7,0)="General guidelines for the defining Wkld Codes as DSS Feeder Key should"
^DD(64,14,21,8,0)="pass the following tests:"
^DD(64,14,21,9,0)="1) Patient's test results are entered via the Laboratory Package."
^DD(64,14,21,10,0)="2) The person's salary that actually performs the test analysis and"
^DD(64,14,21,11,0)="supply costs does not come from a Laboratory fund control point."
^DD(64,14,21,12,0)="3) The test/Wkld Code is not required to be reported for CAP LMIP"
^DD(64,14,21,13,0)="purposes."
^DD(64,14,21,14,0)="4) The Wkld Code is not marked as billable."
^DD(64,14,"DT")="2961016"
^DD(64,15,0)="ACTIVATE WKLD CODE^S^1:YES;^0;17^Q"
^DD(64,15,1,0)="^.1^^0"
^DD(64,15,1,1,0)="64^AC"
^DD(64,15,1,1,1)="S ^LAM(""AC"",$E(X,1,30),DA)="""""
^DD(64,15,1,1,2)="K ^LAM(""AC"",$E(X,1,30),DA)"
^DD(64,15,1,1,3)="Use to determine "
^DD(64,15,1,1,"DT")="2910112"
^DD(64,15,21,0)="^^2^2^2930426^^^"
^DD(64,15,21,1,0)=" If the workload code has ever been reported by this institution, this field will"
^DD(64,15,21,2,0)="be set to yes by the system."
^DD(64,15,"DT")="2930426"
^DD(64,16,0)="BATCH ANALYZER^S^1:YES;^0;18^Q"
^DD(64,16,21,0)="^^2^2^2930325^"
^DD(64,16,21,1,0)=" If this procedure code is for a batch analyzer, this field should be set"
^DD(64,16,21,2,0)="to yes."
^DD(64,16,"DT")="2910822"
^DD(64,18,0)="CODE^64.018AV^^4;0"
^DD(64,18,3)="Answer must be 1-20 characters in length."
^DD(64,18,"DT")="2930225"
^DD(64,19,0)="SYNONYM^64.019A^^1;0"
^DD(64,19,21,0)="^^1^1^2940509^^"
^DD(64,19,21,1,0)="This is a synonym field."
^DD(64,19,"DT")="2930425"
^DD(64,20,0)="SPECIMEN^64.01PA^^5;0"
^DD(64,20,21,0)="^^1^1^2990225^^^^"
^DD(64,20,21,1,0)="Specimen associated with the test"
^DD(64,21,0)="LOCAL ACC AREA^P68'^LRO(68,^6;1^Q"
^DD(64,21,1,0)="^.1"
^DD(64,21,1,1,0)="^^TRIGGER^64^22"
^DD(64,21,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,6)):^(6),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(64,21,1,1,1.1) X ^DD(64,21,1,1,1.4)"
^DD(64,21,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LRO(68,+D0,0)) D0=-1 S Y(101)=$S($D(^LRO(68,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(64,21,1,1,1.4)="S DIH=$S($D(^LAM(DIV(0),6)):^(6),1:""""),DIV=X S $P(^(6),U,2)=DIV,DIH=64,DIG=22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64,21,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,6)):^(6),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$S($D(^LAM(DIV(0),6)):^(6),1:""""),DIV=X S $P(^(6),U,2)=DIV,DIH=64,DIG=22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64,21,1,1,"%D",0)="^^2^2^2950327^"
^DD(64,21,1,1,"%D",1,0)=" This field contains the free text name of the LOCAL ACC AREA field #21."
^DD(64,21,1,1,"%D",2,0)="This field is not editable by the user."
^DD(64,21,1,1,"CREATE VALUE")="LOCAL ACC AREA:AREA"
^DD(64,21,1,1,"DELETE VALUE")="@"
^DD(64,21,1,1,"DT")="2950327"
^DD(64,21,1,1,"FIELD")="ACC AREA NAME"
^DD(64,21,21,0)="^^9^9^2950907^^"
^DD(64,21,21,1,0)="This field is used to link workload codes to accession area on the local"
^DD(64,21,21,2,0)="system. Select the accession area this workload code should be associate"
^DD(64,21,21,3,0)="with. Later enhancements will allow certain LMIP reports to sorted based"
^DD(64,21,21,4,0)="on this field."
^DD(64,21,21,5,0)="  When new reports become available, this field will be used instead of"
^DD(64,21,21,6,0)="the WKLD CODE LAB SECT (pointer to file #64.21) which is assigned "
^DD(64,21,21,7,0)="nationally. If this field is blank, file #64.21 lab section will be"
^DD(64,21,21,8,0)="used. The reports will indicate those entries not pointed to any"
^DD(64,21,21,9,0)="local accession area."
^DD(64,21,"DT")="2950327"
^DD(64,22,0)="ACC AREA NAME^FI^^6;2^K:$L(X)>20!($L(X)<2) X"
^DD(64,22,3)="Answer must be 2-20 characters in length."
^DD(64,22,5,1,0)="64^21^1"
^DD(64,22,9)="^"
^DD(64,22,21,0)="^^2^2^2950907^^"
^DD(64,22,21,1,0)=" This field contains the free text name of the LOCAL ACC AREA pointer. It"
^DD(64,22,21,2,0)="is triggered by field #21 and not editable by user."
^DD(64,22,"DT")="2950327"
^DD(64,23,0)="ASSOCIATED NAME^64.023AV^^7;0"
^DD(64,23,21,0)="^^1^1^2970510^^"
^DD(64,23,21,1,0)=" Associated or linked names from local laboratory tables (files). "
^DD(64,24,0)="WKLD CODE NOTES^64.024^^8;0"
^DD(64,24,21,0)="^^2^2^3000601^"
^DD(64,24,21,1,0)="This field is used for storing general notes regarding inactive or"
^DD(64,24,21,2,0)="erroneous code(s)."
^DD(64,25,0)="DEFAULT LOINC CODE^OP95.3'^LAB(95.3,^9;1^Q"
^DD(64,25,1,0)="^.1"
^DD(64,25,1,1,0)="64^AH"
^DD(64,25,1,1,1)="S ^LAM(""AH"",$E(X,1,30),DA)="""""
^DD(64,25,1,1,2)="K ^LAM(""AH"",$E(X,1,30),DA)"
^DD(64,25,1,1,"%D",0)="^^2^2^3000418^"
^DD(64,25,1,1,"%D",1,0)=" This X-ref is used to identify all WKLD CODE that have a DEFAULT LOINC"
^DD(64,25,1,1,"%D",2,0)="CODE assigned."
^DD(64,25,1,1,"DT")="3000418"
^DD(64,25,1,2,0)="^^TRIGGER^64^25.2"
^DD(64,25,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,2)=DIV,DIH=64,DIG=25.2 D ^DICR"
^DD(64,25,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,2)=DIV,DIH=64,DIG=25.2 D ^DICR"
^DD(64,25,1,2,3)="Remove TIME ASPECT if LOINC DEFAULT CODE is changed."
^DD(64,25,1,2,"%D",0)="^^1^1^3010928^"
^DD(64,25,1,2,"%D",1,0)="Remove old TIME ASPECT date when LOINC DEFAULT CODE is changed or deleted."
^DD(64,25,1,2,"CREATE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,2,"CREATE VALUE")="@"
^DD(64,25,1,2,"DELETE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,2,"DELETE VALUE")="@"
^DD(64,25,1,2,"DT")="3010928"
^DD(64,25,1,2,"FIELD")="TIME ASPECT"
^DD(64,25,1,3,0)="^^TRIGGER^64^25.3"
^DD(64,25,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,3)=DIV,DIH=64,DIG=25.3 D ^DICR"
^DD(64,25,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,3)=DIV,DIH=64,DIG=25.3 D ^DICR"
^DD(64,25,1,3,3)="Remove UNITS when LOINC DEFAULT CODE is changed."
^DD(64,25,1,3,"%D",0)="^^1^1^3010928^"
^DD(64,25,1,3,"%D",1,0)="Remove old UNITS data when LOINC DEFAULT CODE is changed or deleted."
^DD(64,25,1,3,"CREATE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,3,"CREATE VALUE")="@"
^DD(64,25,1,3,"DELETE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,3,"DELETE VALUE")="@"
^DD(64,25,1,3,"DT")="3010928"
^DD(64,25,1,3,"FIELD")="UNITS"
^DD(64,25,1,4,0)="^^TRIGGER^64^25.4"
^DD(64,25,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,4)=DIV,DIH=64,DIG=25.4 D ^DICR"
^DD(64,25,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,4)=DIV,DIH=64,DIG=25.4 D ^DICR"
^DD(64,25,1,4,3)="Remove DATA LOCATION when LOINC DEFAULT CODE is changed."
^DD(64,25,1,4,"%D",0)="^^2^2^3010928^"
^DD(64,25,1,4,"%D",1,0)="Remove old DATA LOCATION date when LOINC DEFAULT CODE is changed or"
^DD(64,25,1,4,"%D",2,0)="deleted."
^DD(64,25,1,4,"CREATE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,4,"CREATE VALUE")="@"
^DD(64,25,1,4,"DELETE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,4,"DELETE VALUE")="@"
^DD(64,25,1,4,"DT")="3010928"
^DD(64,25,1,4,"FIELD")="DATA LOCATION"
^DD(64,25,1,5,0)="^^TRIGGER^64^25.5"
^DD(64,25,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,5)=DIV,DIH=64,DIG=25.5 D ^DICR"
^DD(64,25,1,5,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '$D(DIU(0)) I X S X=DIV S Y(1)=$S($D(^LAM(D0,9)):^(9),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),9)),DIV=X S $P(^(9),U,5)=DIV,DIH=64,DIG=25.5 D ^DICR"
^DD(64,25,1,5,3)="Remove TEST when DEFAULT LOINC CODE is changed."
^DD(64,25,1,5,"%D",0)="^^1^1^3010928^"
^DD(64,25,1,5,"%D",1,0)="Remove old TEST when DEFAULT LOINC CODE is changed."
^DD(64,25,1,5,"CREATE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,5,"CREATE VALUE")="@"
^DD(64,25,1,5,"DELETE CONDITION")="I '$D(DIU(0))"
^DD(64,25,1,5,"DELETE VALUE")="@"
^DD(64,25,1,5,"DT")="3010928"
^DD(64,25,1,5,"FIELD")="TEST"
^DD(64,25,2)="S Y(0)=Y I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(64,25,2.1)="I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(64,25,21,0)="^^3^3^3050124^"
^DD(64,25,21,1,0)=" This field is used to identify the default LOINC code. This field is"
^DD(64,25,21,2,0)="usually used when the specimen is not clinically significant (i.e. body"
^DD(64,25,21,3,0)="fluids)."
^DD(64,25,"DT")="3050607"
^DD(64,25.2,0)="TIME ASPECT^*P64.061'^LAB(64.061,^9;2^S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(64,25.2,5,1,0)="64^25^2"
^DD(64,25.2,12)="Select only specimen codes"
^DD(64,25.2,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""""
^DD(64,25.2,21,0)="^^2^2^3010807^"
^DD(64,25.2,21,1,0)="This field contains the timing of the measurement or observation for this"
^DD(64,25.2,21,2,0)="test for this WKLD CODE LOINC default code."
^DD(64,25.2,"DT")="3010807"
^DD(64,25.3,0)="UNITS^P64.061'^LAB(64.061,^9;3^Q"
^DD(64,25.3,5,1,0)="64^25^3"
^DD(64,25.3,"DT")="3010807"
^DD(64,25.4,0)="DATA LOCATION^F^^9;4^K:$L(X)>20!($L(X)<1) X"
^DD(64,25.4,3)="Answer must be 1-20 characters in length."
^DD(64,25.4,5,1,0)="64^25^4"
^DD(64,25.4,21,0)="^^3^3^3051221^"
^DD(64,25.4,21,1,0)="This field contains the data storage location of the result. It comes from"
^DD(64,25.4,21,2,0)="the FIELD field (#13) in file 60 and it is the data dictionary field in"
^DD(64,25.4,21,3,0)="file 63, subfile 63.04 ['CH' subcript tests]."
^DD(64,25.4,"DT")="3010807"
^DD(64,25.5,0)="TEST^P60'^LAB(60,^9;5^Q"
^DD(64,25.5,1,0)="^.1"
^DD(64,25.5,1,1,0)="64^AM"
^DD(64,25.5,1,1,1)="S ^LAM(""AM"",$E(X,1,30),DA)="""""
^DD(64,25.5,1,1,2)="K ^LAM(""AM"",$E(X,1,30),DA)"
^DD(64,25.5,1,1,3)="Contain the link to Laboratory Test file"
^DD(64,25.5,1,1,"%D",0)="^^2^2^3010807^"
^DD(64,25.5,1,1,"%D",1,0)="This cross reference is used to identify the laboratory test that set the"
^DD(64,25.5,1,1,"%D",2,0)="default LOINC code."
^DD(64,25.5,1,1,"DT")="3010807"
^DD(64,25.5,5,1,0)="64^25^5"
^DD(64,25.5,21,0)="^^2^2^3010807^"
^DD(64,25.5,21,1,0)=" This field contains the backward pointer to the Laboratory Test file"
^DD(64,25.5,21,2,0)="(#60)."
^DD(64,25.5,"DT")="3010807"
^DD(64,26,0)="ES DISPLAY ORDER^NJ3,0X^^10;1^K:+X'=X!(X>500)!(X<1)!(X?.E1"".""1N.N) X I $D(X),'$D(DIU(0)),$D(^LAM(""AK"",X)) D EN^DDIOL(""Already Exist on ""_$P($G(^LAM($O(^LAM(""AK"",X,0)),0)),U),"""",""!?20"") K X"
^DD(64,26,1,0)="^.1"
^DD(64,26,1,1,0)="64^AK"
^DD(64,26,1,1,1)="S ^LAM(""AK"",$E(X,1,30),DA)="""""
^DD(64,26,1,1,2)="K ^LAM(""AK"",$E(X,1,30),DA)"
^DD(64,26,1,1,3)="Display Order Field"
^DD(64,26,1,1,"%D",0)="^^2^2^3010322^"
^DD(64,26,1,1,"%D",1,0)="This cross ref is used to determine the display order of NLT code that are"
^DD(64,26,1,1,"%D",2,0)="associated with ES CPT encoding."
^DD(64,26,1,1,"DT")="3010322"
^DD(64,26,1,2,0)="^^TRIGGER^64^14"
^DD(64,26,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^LAM(DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=64,DIG=14 D ^DICR"
^DD(64,26,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^LAM(DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=64,DIG=14 D ^DICR"
^DD(64,26,1,2,3)="Indicate Professional CPT code"
^DD(64,26,1,2,"%D",0)="^^6^6^3020826^"
^DD(64,26,1,2,"%D",1,0)="In order to ensure that DSS workload extract will capture professional "
^DD(64,26,1,2,"%D",2,0)="related NLT/CPT codes. This trigger will automatically set the DSS Feeder "
^DD(64,26,1,2,"%D",3,0)="Key to yes."
^DD(64,26,1,2,"%D",4,0)=" "
^DD(64,26,1,2,"%D",5,0)="Note: Only techinical workload should be reported as LMIP workload. "
^DD(64,26,1,2,"%D",6,0)="Professional NLT codes should NOT be marked as billable."
^DD(64,26,1,2,"CREATE VALUE")="S X=1"
^DD(64,26,1,2,"DELETE VALUE")="@"
^DD(64,26,1,2,"DT")="3020826"
^DD(64,26,1,2,"FIELD")="DSS Feeder Key"
^DD(64,26,3)="Type a Number between 1 and 500, 0 Decimal Digits"
^DD(64,26,21,0)="^^3^3^3050411^"
^DD(64,26,21,1,0)="This field is used to by the LAB CPT BILLING option to display those"
^DD(64,26,21,2,0)="CPT codes defined by this NLT codes and will be referenced by this number."
^DD(64,26,21,3,0)="The number entered must be unique between 1-500."
^DD(64,26,"DT")="3020826"
^DD(64,"B","ACC AREA NAME",22)=""
^DD(64,"B","ACTIVATE WKLD CODE",15)=""
^DD(64,"B","ASSOCIATED NAME",23)=""
^DD(64,"B","BATCH ANALYZER",16)=""
^DD(64,"B","BILLABLE PROCEDURE",4)=""
^DD(64,"B","CODE",18)=""
^DD(64,"B","COST",7)=""
^DD(64,"B","DATA LOCATION",25.4)=""
^DD(64,"B","DEFAULT LOINC CODE",25)=""
^DD(64,"B","DESCRIPTION",.02)=""
^DD(64,"B","DSS Feeder Key",14)=""
^DD(64,"B","ES DISPLAY ORDER",26)=""
^DD(64,"B","LOCAL ACC AREA",21)=""
^DD(64,"B","MANUFACTURER",12)=""
^DD(64,"B","PRICE",8)=""
^DD(64,"B","PRINT NAME",.04)=""
^DD(64,"B","PROCEDURE",.01)=""
^DD(64,"B","Reserve 1",5)=""
^DD(64,"B","Reserve 3",11)=""
^DD(64,"B","SORTING GROUP",9)=""
^DD(64,"B","SPECIMEN",20)=""
^DD(64,"B","SYNONYM",19)=""
^DD(64,"B","TEST",25.5)=""
^DD(64,"B","TIME ASPECT",25.2)=""
^DD(64,"B","UNIT FOR COUNT",6)=""
^DD(64,"B","UNITS",25.3)=""
^DD(64,"B","WKLD CODE",1)=""
^DD(64,"B","WKLD CODE LAB SECTION",13)=""
^DD(64,"B","WKLD CODE NOTES",24)=""
^DD(64,"B","WKLD UNIT WEIGHT",2)=""
^DD(64,"GL",0,1,.01)=""
^DD(64,"GL",0,2,1)=""
^DD(64,"GL",0,3,2)=""
^DD(64,"GL",0,5,4)=""
^DD(64,"GL",0,6,5)=""
^DD(64,"GL",0,7,6)=""
^DD(64,"GL",0,10,7)=""
^DD(64,"GL",0,11,8)=""
^DD(64,"GL",0,12,9)=""
^DD(64,"GL",0,13,11)=""
^DD(64,"GL",0,14,12)=""
^DD(64,"GL",0,15,13)=""
^DD(64,"GL",0,16,14)=""
^DD(64,"GL",0,17,15)=""
^DD(64,"GL",0,18,16)=""
^DD(64,"GL",1,0,19)=""
^DD(64,"GL",2,0,.02)=""
^DD(64,"GL",3,1,.04)=""
^DD(64,"GL",4,0,18)=""
^DD(64,"GL",5,0,20)=""
^DD(64,"GL",6,1,21)=""
^DD(64,"GL",6,2,22)=""
^DD(64,"GL",7,0,23)=""
^DD(64,"GL",8,0,24)=""
^DD(64,"GL",9,1,25)=""
^DD(64,"GL",9,2,25.2)=""
^DD(64,"GL",9,3,25.3)=""
^DD(64,"GL",9,4,25.4)=""
^DD(64,"GL",9,5,25.5)=""
^DD(64,"GL",10,1,26)=""
^DD(64,"IX",.01)=""
^DD(64,"IX",.04)=""
^DD(64,"IX",1)=""
^DD(64,"IX",14)=""
^DD(64,"IX",15)=""
^DD(64,"IX",21)=""
^DD(64,"IX",25)=""
^DD(64,"IX",25.5)=""
^DD(64,"IX",26)=""
^DD(64,"RQ",.01)=""
^DD(64,"RQ",1)=""
^DD(64,"RQ",6)=""
^DD(64,"RQ",13)=""
^DD(64,"SB",64.01,20)=""
^DD(64,"SB",64.018,18)=""
^DD(64,"SB",64.019,19)=""
^DD(64,"SB",64.023,23)=""
^DD(64,"SB",64.024,24)=""
^DD(64,"SB",64.04,.02)=""
^DD(64.01,0)="SPECIMEN SUB-FIELD^^30^4"
^DD(64.01,0,"DT")="3050124"
^DD(64.01,0,"IX","B",64.01,.01)=""
^DD(64.01,0,"NM","SPECIMEN")=""
^DD(64.01,0,"UP")="64"
^DD(64.01,.01,0)="SPECIMEN^MP61'X^LAB(61,^0;1^S:$D(X) DINUM=X"
^DD(64.01,.01,1,0)="^.1"
^DD(64.01,.01,1,1,0)="64.01^B"
^DD(64.01,.01,1,1,1)="S ^LAM(DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(64.01,.01,1,1,2)="K ^LAM(DA(1),5,""B"",$E(X,1,30),DA)"
^DD(64.01,.01,21,0)="^^1^1^2930717^"
^DD(64.01,.01,21,1,0)="Specimen associated with this procedure."
^DD(64.01,.01,"DT")="2930717"
^DD(64.01,1,0)="SP COST^NJ8,2O^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<.01) X"
^DD(64.01,1,2)="S Y(0)=Y S Y=$J(Y,5,2)"
^DD(64.01,1,2.1)="S Y=$J(Y,5,2)"
^DD(64.01,1,3)="Type a Dollar Amount between .01 and 10000, 2 Decimal Digits"
^DD(64.01,1,21,0)="^^2^2^2970601^"
^DD(64.01,1,21,1,0)="This is the cost specific to this specimen. Cost and price are determined"
^DD(64.01,1,21,2,0)="locally."
^DD(64.01,1,"DT")="2970601"
^DD(64.01,2,0)="SP PRICE^NJ8,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<.01) X"
^DD(64.01,2,3)="Type a Dollar Amount between .01 and 10000, 2 Decimal Digits"
^DD(64.01,2,21,0)="^^3^3^2970601^^"
^DD(64.01,2,21,1,0)="This field contains the price for this specific specimen. The price figure"
^DD(64.01,2,21,2,0)="includes fixed cost(s), direct and indirect cost. Cost is determined"
^DD(64.01,2,21,3,0)="locally."
^DD(64.01,2,"DT")="2970601"
^DD(64.01,30,0)="TIME ASPECT^64.02PA^^1;0"
^DD(64.01,30,21,0)="^^2^2^2981110^"
^DD(64.01,30,21,1,0)="This field contains the timing of the measurement or observation"
^DD(64.01,30,21,2,0)="for this test for this specimen."
^DD(64.01,"B","SP COST",1)=""
^DD(64.01,"B","SP PRICE",2)=""
^DD(64.01,"B","SPECIMEN",.01)=""
^DD(64.01,"B","TIME ASPECT",30)=""
^DD(64.01,"GL",0,1,.01)=""
^DD(64.01,"GL",0,2,1)=""
^DD(64.01,"GL",0,3,2)=""
^DD(64.01,"GL",1,0,30)=""
^DD(64.01,"IX",.01)=""
^DD(64.01,"SB",64.02,30)=""
^DD(64.018,0)="CODE SUB-FIELD^^6^6"
^DD(64.018,0,"DT")="3000831"
^DD(64.018,0,"IX","AC",64.018,5)=""
^DD(64.018,0,"IX","B",64.018,.01)=""
^DD(64.018,0,"NM","CODE")=""
^DD(64.018,0,"UP")="64"
^DD(64.018,.01,0)="CODE^MVO^^0;1^Q"
^DD(64.018,.01,1,0)="^.1"
^DD(64.018,.01,1,1,0)="64.018^B"
^DD(64.018,.01,1,1,1)="S ^LAM(DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(64.018,.01,1,1,2)="K ^LAM(DA(1),4,""B"",$E(X,1,30),DA)"
^DD(64.018,.01,1,1,3)="Cross reference codes"
^DD(64.018,.01,1,2,0)="^^TRIGGER^64.018^5"
^DD(64.018,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAM(D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV D LAM185^LRXREF X ^DD(64.018,.01,1,2,1.4)"
^DD(64.018,.01,1,2,1.4)="S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.018,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAM(D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(64.018,.01,1,2,2.4)"
^DD(64.018,.01,1,2,2.4)="S DIH=$S($D(^LAM(DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.018,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.018,.01,1,2,3)="Set TYPE of code."
^DD(64.018,.01,1,2,"CREATE VALUE")="D LAM185^LRXREF"
^DD(64.018,.01,1,2,"DELETE VALUE")="@"
^DD(64.018,.01,1,2,"DT")="2990802"
^DD(64.018,.01,1,2,"FIELD")="TYPE"
^DD(64.018,.01,1,3,0)="64^AB"
^DD(64.018,.01,1,3,1)="S ^LAM(""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(64.018,.01,1,3,2)="K ^LAM(""AB"",$E(X,1,30),DA(1),DA)"
^DD(64.018,.01,1,3,3)="Cross reference coding schemes"
^DD(64.018,.01,1,3,"%D",0)="^^4^4^3001219^"
^DD(64.018,.01,1,3,"%D",1,0)="This cross reference is used to provide a listing of all WKLD CODE that"
^DD(64.018,.01,1,3,"%D",2,0)="have codes defined. It is to be used for quick lookup."
^DD(64.018,.01,1,3,"%D",3,0)=" "
^DD(64.018,.01,1,3,"%D",4,0)="^LAM(""AB"",CODE VARIABLE POINTER,IEN,MULTIPLE LOCATION)="""""
^DD(64.018,.01,1,3,"DT")="3001219"
^DD(64.018,.01,2)="I $G(Y) S Y(0)=Y S Y=$P(@(U_$P(Y,"";"",2)_+Y_"",0)""),U)_"" ""_$S($D(^(80))#2:^(80),1:$P(^(0),U,2))"
^DD(64.018,.01,2.1)="I $G(Y) S Y=$P(@(U_$P(Y,"";"",2)_+Y_"",0)""),U)_"" ""_$S($D(^(80))#2:^(80),1:$P(^(0),U,2))"
^DD(64.018,.01,3)=""
^DD(64.018,.01,21,0)="^.001^3^3^3000601^^^^"
^DD(64.018,.01,21,1,0)=" This field links WKLD code to other codes including"
^DD(64.018,.01,21,2,0)="CPT, SNOMED, and ICD9. This field will be maintained by "
^DD(64.018,.01,21,3,0)="Pathology and Laboratory Medicine Service."
^DD(64.018,.01,"DT")="3001219"
^DD(64.018,.01,"V",0)="^.12P^4^3"
^DD(64.018,.01,"V",1,0)="81^active CPT code.^1^CPT^y^n"
^DD(64.018,.01,"V",1,1)="S DIC(""S"")=""I $P($$CPT^ICPTCOD(+Y,,,),U,7)"""
^DD(64.018,.01,"V",1,2)="Select only active CPT codes."
^DD(64.018,.01,"V",2,0)="61.1^SNOMED Code^2^SNO^n^n"
^DD(64.018,.01,"V",4,0)="80^active ICD9 Code.^3^ICD9^y^n"
^DD(64.018,.01,"V",4,1)="S DIC(""S"")=""I '$P(^ICD9(Y,0),U,9)"""
^DD(64.018,.01,"V",4,2)="Select only active ICD9 codes."
^DD(64.018,.01,"V","B",61.1,2)=""
^DD(64.018,.01,"V","B",80,4)=""
^DD(64.018,.01,"V","B",81,1)=""
^DD(64.018,.01,"V","M","SNOMED Code",2)=""
^DD(64.018,.01,"V","M","active CPT code.",1)=""
^DD(64.018,.01,"V","M","active ICD9 Code.",4)=""
^DD(64.018,.01,"V","O",1,1)=""
^DD(64.018,.01,"V","O",2,2)=""
^DD(64.018,.01,"V","O",3,4)=""
^DD(64.018,.01,"V","P","CPT",1)=""
^DD(64.018,.01,"V","P","ICD9",4)=""
^DD(64.018,.01,"V","P","SNO",2)=""
^DD(64.018,2,0)="RELEASE DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(64.018,2,1,0)="^.1^^0"
^DD(64.018,2,3)="(No range limit on date)"
^DD(64.018,2,21,0)="^^2^2^2960529^^"
^DD(64.018,2,21,1,0)="  Enter the date that the code becomes 'ACTIVE'"
^DD(64.018,2,21,2,0)=""
^DD(64.018,2,"DT")="3000831"
^DD(64.018,3,0)="INACTIVE DATE^DX^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1!($P(^LAM(DA(1),4,DA,0),U,3)'=""""&(Y'>$P(^LAM(DA(1),4,DA,0),U,3))) X"
^DD(64.018,3,1,0)="^.1^^0"
^DD(64.018,3,4)="W !!,?10,""Inactive Date cannot be Prior to Release Date"",!"
^DD(64.018,3,21,0)="^^3^3^2960712^^^"
^DD(64.018,3,21,1,0)="Enter the date that the code becomes inactive. The code is considered"
^DD(64.018,3,21,2,0)="active if a date has not been entered."
^DD(64.018,3,21,3,0)=""
^DD(64.018,3,"DT")="2960712"
^DD(64.018,4,0)="REPLACEMENT CODE^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(64.018,4,3)="Answer must be 1-20 characters in length."
^DD(64.018,4,21,0)="^^1^1^2960529^"
^DD(64.018,4,21,1,0)=" Enter the replacing code after inactivation."
^DD(64.018,4,"DT")="2960529"
^DD(64.018,5,0)="TYPE^RS^CPT:CPT CODE;SNO:SNOMED CODE;ICD:ICD9 CODE;NOS:NOS;^0;2^Q"
^DD(64.018,5,1,0)="^.1"
^DD(64.018,5,1,1,0)="64^AD^MUMPS"
^DD(64.018,5,1,1,1)="S ^LAM(""AD"",DA(1),X,DA)="""""
^DD(64.018,5,1,1,2)="K ^LAM(""AD"",DA(1),X,DA)"
^DD(64.018,5,1,1,"%D",0)="^^3^3^2980507^"
^DD(64.018,5,1,1,"%D",1,0)=" Creat a cross reference by linked coding systems."
^DD(64.018,5,1,1,"%D",2,0)=" "
^DD(64.018,5,1,1,"%D",3,0)="^LAM(""AD"",SUBFILE,CODING SYSTEM,IEN)"
^DD(64.018,5,1,1,"DT")="2960617"
^DD(64.018,5,1,2,0)="64.018^AC"
^DD(64.018,5,1,2,1)="S ^LAM(DA(1),4,""AC"",$E(X,1,30),DA)="""""
^DD(64.018,5,1,2,2)="K ^LAM(DA(1),4,""AC"",$E(X,1,30),DA)"
^DD(64.018,5,1,2,"DT")="3000418"
^DD(64.018,5,3)="Enter coding system"
^DD(64.018,5,5,1,0)="64.018^.01^2"
^DD(64.018,5,9)="^"
^DD(64.018,5,21,0)="^.001^1^1^3000418^^"
^DD(64.018,5,21,1,0)=" Enter the coding system that uses this code."
^DD(64.018,5,"DT")="3000418"
^DD(64.018,6,0)="CODE NOTES^64.186^^1;0"
^DD(64.018,6,21,0)="^^2^2^3000601^"
^DD(64.018,6,21,1,0)="This field is used for tracking general notes regarding a particular"
^DD(64.018,6,21,2,0)="code."
^DD(64.018,"B","CODE",.01)=""
^DD(64.018,"B","CODE NOTES",6)=""
^DD(64.018,"B","INACTIVE DATE",3)=""
^DD(64.018,"B","RELEASE DATE",2)=""
^DD(64.018,"B","REPLACEMENT CODE",4)=""
^DD(64.018,"B","TYPE",5)=""
^DD(64.018,"GL",0,1,.01)=""
^DD(64.018,"GL",0,2,5)=""
^DD(64.018,"GL",0,3,2)=""
^DD(64.018,"GL",0,4,3)=""
^DD(64.018,"GL",0,5,4)=""
^DD(64.018,"GL",1,0,6)=""
^DD(64.018,"IX",.01)=""
^DD(64.018,"IX",5)=""
^DD(64.018,"RQ",2)=""
^DD(64.018,"RQ",5)=""
^DD(64.018,"SB",64.186,6)=""
^DD(64.019,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(64.019,0,"DT")="2930425"
^DD(64.019,0,"IX","B",64.019,.01)=""
^DD(64.019,0,"NM","SYNONYM")=""
^DD(64.019,0,"UP")="64"
^DD(64.019,.01,0)="SYNONYM^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(64.019,.01,1,0)="^.1"
^DD(64.019,.01,1,1,0)="64.019^B"
^DD(64.019,.01,1,1,1)="S ^LAM(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.019,.01,1,1,2)="K ^LAM(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.019,.01,1,2,0)="64^B^MNEMONIC"
^DD(64.019,.01,1,2,1)="S:'$D(^LAM(""B"",$E(X,1,30),DA(1),DA)) ^(DA)=1"
^DD(64.019,.01,1,2,2)="I $D(^LAM(""B"",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)"
^DD(64.019,.01,1,2,"%D",0)="^^2^2^2930425^"
^DD(64.019,.01,1,2,"%D",1,0)=" This field contain alternate names or inverted combination to allow"
^DD(64.019,.01,1,2,"%D",2,0)="easier lookup."
^DD(64.019,.01,1,2,"DT")="2930425"
^DD(64.019,.01,1,3,0)="64^G^MUMPS"
^DD(64.019,.01,1,3,1)="D UP^LRXREF S ^LAM(""G"",X,DA(1),DA)="""""
^DD(64.019,.01,1,3,2)="D UP^LRXREF K ^LAM(""G"",X,DA(1),DA)"
^DD(64.019,.01,1,3,"%D",0)="^^3^3^2980507^"
^DD(64.019,.01,1,3,"%D",1,0)=" Convert name to upper case for easier lookup."
^DD(64.019,.01,1,3,"%D",2,0)=" "
^DD(64.019,.01,1,3,"%D",3,0)="^LAM(""G"",UPPERCASE SYNONYM,SUBFILE,IEN)"
^DD(64.019,.01,1,3,"DT")="2930610"
^DD(64.019,.01,3)="Answer must be 2-50 characters in length."
^DD(64.019,.01,21,0)="^^1^1^2940509^"
^DD(64.019,.01,21,1,0)="This is the .01 field of the multiple field, SYNONYM."
^DD(64.019,.01,"DT")="2930425"
^DD(64.019,"B","SYNONYM",.01)=""
^DD(64.019,"GL",0,1,.01)=""
^DD(64.019,"IX",.01)=""
^DD(64.02,0)="TIME ASPECT SUB-FIELD^^4^5"
^DD(64.02,0,"DT")="3050124"
^DD(64.02,0,"IX","B",64.02,.01)=""
^DD(64.02,0,"NM","TIME ASPECT")=""
^DD(64.02,0,"UP")="64.01"
^DD(64.02,.01,0)="TIME ASPECT^*P64.061'X^LAB(64.061,^0;1^S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(64.02,.01,1,0)="^.1"
^DD(64.02,.01,1,1,0)="64.02^B"
^DD(64.02,.01,1,1,1)="S ^LAM(DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.02,.01,1,1,2)="K ^LAM(DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.02,.01,12)="TYPE=SPECIMEN"
^DD(64.02,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""""
^DD(64.02,.01,21,0)="^^2^2^2981125^^^"
^DD(64.02,.01,21,1,0)="This field contains the timing of the measurement or observation"
^DD(64.02,.01,21,2,0)="for this test for this specimen. "
^DD(64.02,.01,"DT")="2981127"
^DD(64.02,1,0)="UNITS^P64.061'^LAB(64.061,^0;2^Q"
^DD(64.02,1,21,0)="^^1^1^2981027^"
^DD(64.02,1,21,1,0)="This field contains the units of measure for the test for this specimen."
^DD(64.02,1,"DT")="2981027"
^DD(64.02,2,0)="DATA LOCATION^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(64.02,2,3)="Answer must be 1-20 characters in length."
^DD(64.02,2,21,0)="^^3^3^2990225^^^"
^DD(64.02,2,21,1,0)="This field contains the data storage location of the result.  It comes"
^DD(64.02,2,21,2,0)="from the FIELD field (#13) in file 60 and it's the Data Dictionary field"
^DD(64.02,2,21,3,0)="in file 63."
^DD(64.02,2,"DT")="2981027"
^DD(64.02,3,0)="TEST^P60'^LAB(60,^0;4^Q"
^DD(64.02,3,1,0)="^.1"
^DD(64.02,3,1,1,0)="64^AL"
^DD(64.02,3,1,1,1)="S ^LAM(""AL"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(64.02,3,1,1,2)="K ^LAM(""AL"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(64.02,3,1,1,3)="Used as backpointer to test"
^DD(64.02,3,1,1,"%D",0)="^^3^3^3010807^"
^DD(64.02,3,1,1,"%D",1,0)="This cross reference is used to track what test have be mapped to a"
^DD(64.02,3,1,1,"%D",2,0)="particular NLT code/LOINC code. Can be used to determine those test if"
^DD(64.02,3,1,1,"%D",3,0)="unlinking is required."
^DD(64.02,3,1,1,"DT")="3010807"
^DD(64.02,3,3)=""
^DD(64.02,3,21,0)="^^1^1^2990225^^"
^DD(64.02,3,21,1,0)="This field contains the backward pointer to Laboratory Test file (#60)."
^DD(64.02,3,"DT")="3010807"
^DD(64.02,4,0)="LOINC CODE^P95.3'O^LAB(95.3,^1;1^Q"
^DD(64.02,4,1,0)="^.1"
^DD(64.02,4,1,1,0)="64^AI"
^DD(64.02,4,1,1,1)="S ^LAM(""AI"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(64.02,4,1,1,2)="K ^LAM(""AI"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(64.02,4,1,1,3)="Identify spec/time/code"
^DD(64.02,4,1,1,"%D",0)="^^6^6^3001228^"
^DD(64.02,4,1,1,"%D",1,0)="This cross reference is to identify mapped LOINC codes that are not"
^DD(64.02,4,1,1,"%D",2,0)="Default LOINC codes. These LOINC codes are store under the Specimen"
^DD(64.02,4,1,1,"%D",3,0)="multiple, Time Aspect multiple."
^DD(64.02,4,1,1,"%D",4,0)=" "
^DD(64.02,4,1,1,"%D",5,0)="The construction of the cross reference is:"
^DD(64.02,4,1,1,"%D",6,0)="^LAM(""AI"",LOINC CODE POINTER,IEN,SPECIMEN POINTER,TIME ASPECT POINTER)="""""
^DD(64.02,4,1,1,"DT")="3001228"
^DD(64.02,4,1,2,0)="64^AJ^MUMPS"
^DD(64.02,4,1,2,1)="S ^LAM(""AJ"",DA(2),DA(1),DA,$E(X,1,30))="""""
^DD(64.02,4,1,2,2)="K ^LAM(""AJ"",DA(2),DA(1),DA,$E(X,1,30))"
^DD(64.02,4,1,2,3)="List IEN LOINC CODES"
^DD(64.02,4,1,2,"%D",0)="^^5^5^3001228^"
^DD(64.02,4,1,2,"%D",1,0)="This cross reference is used to identify linked LOINC codes by SPECIMEN"
^DD(64.02,4,1,2,"%D",2,0)="multiple, TIME ASPECT multiple."
^DD(64.02,4,1,2,"%D",3,0)=" "
^DD(64.02,4,1,2,"%D",4,0)="The construction of the cross reference is:"
^DD(64.02,4,1,2,"%D",5,0)="^LAM(""AJ"",IEN,SPECIMEN POINTER,TIME ASPECT POINTER,LOINC CODE POINTER)"
^DD(64.02,4,1,2,"DT")="3001228"
^DD(64.02,4,2)="S Y(0)=Y I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(64.02,4,2.1)="I $G(Y) S Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(64.02,4,3)=""
^DD(64.02,4,"DT")="3050124"
^DD(64.02,"B","DATA LOCATION",2)=""
^DD(64.02,"B","LOINC CODE",4)=""
^DD(64.02,"B","TEST",3)=""
^DD(64.02,"B","TIME ASPECT",.01)=""
^DD(64.02,"B","UNITS",1)=""
^DD(64.02,"GL",0,1,.01)=""
^DD(64.02,"GL",0,2,1)=""
^DD(64.02,"GL",0,3,2)=""
^DD(64.02,"GL",0,4,3)=""
^DD(64.02,"GL",1,1,4)=""
^DD(64.02,"IX",.01)=""
^DD(64.02,"IX",3)=""
^DD(64.02,"IX",4)=""
^DD(64.023,0)="ASSOCIATED NAME SUB-FIELD^^.01^1"
^DD(64.023,0,"DT")="2980608"
^DD(64.023,0,"IX","B",64.023,.01)=""
^DD(64.023,0,"NM","ASSOCIATED NAME")=""
^DD(64.023,0,"UP")="64"
^DD(64.023,.01,0)="ASSOCIATED NAME^VIO^^0;1^Q"
^DD(64.023,.01,1,0)="^.1"
^DD(64.023,.01,1,1,0)="64.023^B"
^DD(64.023,.01,1,1,1)="S ^LAM(DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(64.023,.01,1,1,2)="K ^LAM(DA(1),7,""B"",$E(X,1,30),DA)"
^DD(64.023,.01,1,1,3)="Required Index for Variable Pointer"
^DD(64.023,.01,1,2,0)="64^AE^MUMPS"
^DD(64.023,.01,1,2,1)="S ^LAM(""AE"",$P(X,"";"",2),$P(X,"";""),DA(1))="""""
^DD(64.023,.01,1,2,2)="K ^LAM(""AE"",$P(X,"";"",2),$P(X,"";""),DA(1))"
^DD(64.023,.01,1,2,3)="Used to sort associated files"
^DD(64.023,.01,1,2,"%D",0)="^^5^5^2980608^"
^DD(64.023,.01,1,2,"%D",1,0)=" This will provide a sorted table of linked codes by file root."
^DD(64.023,.01,1,2,"%D",2,0)=" "
^DD(64.023,.01,1,2,"%D",3,0)="The composition of the cross reference of this variable pointer field is:"
^DD(64.023,.01,1,2,"%D",4,0)="^LAM(""AE"",Global Root of the Point to file,IEN of the entry,DA)="""""
^DD(64.023,.01,1,2,"%D",5,0)="^LAM(""AE"",""LAB(60,"",IEN,DA)="""""
^DD(64.023,.01,1,2,"DT")="2960820"
^DD(64.023,.01,2)="S Y(0)=Y S Y=$S($D(@(""^""_$P(Y,"";"",2)_+Y_"",0)"")):$P(^(0),U)_"" [ ""_$P(Y,"";"",2)_"" ]"",1:Y)"
^DD(64.023,.01,2.1)="S Y=$S($D(@(""^""_$P(Y,"";"",2)_+Y_"",0)"")):$P(^(0),U)_"" [ ""_$P(Y,"";"",2)_"" ]"",1:Y)"
^DD(64.023,.01,21,0)="^^3^3^2980608^^^"
^DD(64.023,.01,21,1,0)="This field is use to link NLT file to other laboratory standard files."
^DD(64.023,.01,21,2,0)="This will provide a standardize table of names for most if not all"
^DD(64.023,.01,21,3,0)="laboratory test or results."
^DD(64.023,.01,"DT")="2980608"
^DD(64.023,.01,"V",0)="^.12P^4^4"
^DD(64.023,.01,"V",1,0)="60^LAB TEST^1^LAB(60,^^n"
^DD(64.023,.01,"V",2,0)="61.2^ETIOLOGY^2^LAB(61.2,^^n"
^DD(64.023,.01,"V",3,0)="62.06^ANTIBIOTIC^3^LAB(62.06,^^n"
^DD(64.023,.01,"V",4,0)="66^BLD PROD^4^LAB(66,^^n"
^DD(64.023,.01,"V","B",60,1)=""
^DD(64.023,.01,"V","B",61.2,2)=""
^DD(64.023,.01,"V","B",62.06,3)=""
^DD(64.023,.01,"V","B",66,4)=""
^DD(64.023,.01,"V","M","ANTIBIOTIC",3)=""
^DD(64.023,.01,"V","M","BLD PROD",4)=""
^DD(64.023,.01,"V","M","ETIOLOGY",2)=""
^DD(64.023,.01,"V","M","LAB TEST",1)=""
^DD(64.023,.01,"V","O",1,1)=""
^DD(64.023,.01,"V","O",2,2)=""
^DD(64.023,.01,"V","O",3,3)=""
^DD(64.023,.01,"V","O",4,4)=""
^DD(64.023,.01,"V","P","LAB(60,",1)=""
^DD(64.023,.01,"V","P","LAB(61.2,",2)=""
^DD(64.023,.01,"V","P","LAB(62.06,",3)=""
^DD(64.023,.01,"V","P","LAB(66,",4)=""
^DD(64.023,"B","ASSOCIATED NAME",.01)=""
^DD(64.023,"GL",0,1,.01)=""
^DD(64.023,"IX",.01)=""
^DD(64.024,0)="WKLD CODE NOTES SUB-FIELD^^.01^1"
^DD(64.024,0,"DT")="2990909"
^DD(64.024,0,"NM","WKLD CODE NOTES")=""
^DD(64.024,0,"UP")="64"
^DD(64.024,.01,0)="WKLD CODE NOTES^W^^0;1^Q"
^DD(64.024,.01,21,0)="^^3^3^2990909^"
^DD(64.024,.01,21,1,0)=" You may enter notes about this specific WKLD CODE for historical"
^DD(64.024,.01,21,2,0)="purposes. Enter notes that would be useful when reviewing how the code is"
^DD(64.024,.01,21,3,0)="or was used."
^DD(64.024,.01,"DT")="2990909"
^DD(64.024,"B","WKLD CODE NOTES",.01)=""
^DD(64.024,"GL",0,1,.01)=""
^DD(64.03,0)="FIELD^^17^18"
^DD(64.03,0,"DDA")="N"
^DD(64.03,0,"DT")="2960417"
^DD(64.03,0,"IX","AC",64.03,3)=""
^DD(64.03,0,"IX","AD",64.03,12)=""
^DD(64.03,0,"IX","AE",64.03,13)=""
^DD(64.03,0,"IX","B",64.317,.01)=""
^DD(64.03,0,"NM","WKLD LOG FILE")=""
^DD(64.03,0,"VR")="5.2"
^DD(64.03,0,"VRPK")="LR"
^DD(64.03,.01,0)="SEQ NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.03,.01,1,0)="^.1^^0"
^DD(64.03,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(64.03,.01,21,0)="^^1^1^2920212^"
^DD(64.03,.01,21,1,0)="  This field is simply to index the file. This is an arbitrary number."
^DD(64.03,.01,"DT")="2930407"
^DD(64.03,1,0)="PROVIDER^P200'^VA(200,^0;2^Q"
^DD(64.03,1,21,0)="^^2^2^2920212^"
^DD(64.03,1,21,1,0)="  This is a pointer to VA(200. It does not have a screen for the"
^DD(64.03,1,21,2,0)="provider security key."
^DD(64.03,1,"DT")="2920128"
^DD(64.03,2,0)="PATIENT NAME^V^^0;3^Q"
^DD(64.03,2,21,0)="^^2^2^2920212^"
^DD(64.03,2,21,1,0)="  This field may also contain names of controls, referrals and other"
^DD(64.03,2,21,2,0)="names not just patients."
^DD(64.03,2,"DT")="2920130"
^DD(64.03,2,"V",0)="^.12P^6^6"
^DD(64.03,2,"V",1,0)="2^PATIENT^1^PAT^n^n"
^DD(64.03,2,"V",2,0)="62.3^LAB CONTROL NAME^2^CON^n^n"
^DD(64.03,2,"V",3,0)="67^REFERRAL^3^REF^n^n"
^DD(64.03,2,"V",4,0)="67.1^RESEARCH^4^RES^n^n"
^DD(64.03,2,"V",5,0)="67.2^STERILIZER^5^STE^n^n"
^DD(64.03,2,"V",6,0)="67.3^ENVIRONMENTAL^6^ENV^n^n"
^DD(64.03,2,"V","B",2,1)=""
^DD(64.03,2,"V","B",62.3,2)=""
^DD(64.03,2,"V","B",67,3)=""
^DD(64.03,2,"V","B",67.1,4)=""
^DD(64.03,2,"V","B",67.2,5)=""
^DD(64.03,2,"V","B",67.3,6)=""
^DD(64.03,2,"V","M","ENVIRONMENTAL",6)=""
^DD(64.03,2,"V","M","LAB CONTROL NAME",2)=""
^DD(64.03,2,"V","M","PATIENT",1)=""
^DD(64.03,2,"V","M","REFERRAL",3)=""
^DD(64.03,2,"V","M","RESEARCH",4)=""
^DD(64.03,2,"V","M","STERILIZER",5)=""
^DD(64.03,2,"V","O",1,1)=""
^DD(64.03,2,"V","O",2,2)=""
^DD(64.03,2,"V","O",3,3)=""
^DD(64.03,2,"V","O",4,4)=""
^DD(64.03,2,"V","O",5,5)=""
^DD(64.03,2,"V","O",6,6)=""
^DD(64.03,2,"V","P","CON",2)=""
^DD(64.03,2,"V","P","ENV",6)=""
^DD(64.03,2,"V","P","PAT",1)=""
^DD(64.03,2,"V","P","REF",3)=""
^DD(64.03,2,"V","P","RES",4)=""
^DD(64.03,2,"V","P","STE",5)=""
^DD(64.03,3,0)="DATE COMPLETE^RD^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.03,3,1,0)="^.1"
^DD(64.03,3,1,1,0)="64.03^AC"
^DD(64.03,3,1,1,1)="S ^LRO(64.03,""AC"",$E(X,1,30),DA)="""""
^DD(64.03,3,1,1,2)="K ^LRO(64.03,""AC"",$E(X,1,30),DA)"
^DD(64.03,3,1,1,3)="Complete Date X-ref"
^DD(64.03,3,1,1,"DT")="2960416"
^DD(64.03,3,3)=""
^DD(64.03,3,21,0)="^^3^3^2931004^"
^DD(64.03,3,21,1,0)="  This is the date the test procedure was completed. Each"
^DD(64.03,3,21,2,0)="verified lab test may have more than one WKLD Code associated with"
^DD(64.03,3,21,3,0)="it."
^DD(64.03,3,"DT")="2960417"
^DD(64.03,4,0)="REPORTING SITE^P4'^DIC(4,^0;5^Q"
^DD(64.03,4,21,0)="^^3^3^2920212^^"
^DD(64.03,4,21,1,0)="  This is the institution where the test was verified. It is the "
^DD(64.03,4,21,2,0)="user's DUZ(2). Several institutions maybe recorded for a single lab"
^DD(64.03,4,21,3,0)="test, but one per Cap procedure."
^DD(64.03,4,"DT")="2920129"
^DD(64.03,5,0)="LOCATION TYPE^S^C:CLINIC;M:MODULE;W:WARD;Z:OTHER LOCATION;N:NON-CLINIC STOP;F:FILE AREA;I:IMAGING;OR:OPERATING ROOM;^0;6^Q"
^DD(64.03,5,21,0)="^^1^1^2920212^"
^DD(64.03,5,21,1,0)="  This is the classification of the ordering location."
^DD(64.03,5,"DT")="2920212"
^DD(64.03,6,0)="ACCESSION AREA^P68'^LRO(68,^0;7^Q"
^DD(64.03,6,21,0)="^^1^1^2920212^"
^DD(64.03,6,21,1,0)="  This is the accession area where the test is to be performed."
^DD(64.03,6,"DT")="2920129"
^DD(64.03,7,0)="LAB TEST NAME^P60'^LAB(60,^0;8^Q"
^DD(64.03,7,21,0)="^^2^2^2920212^"
^DD(64.03,7,21,1,0)="  This the name of the lab test ordered. It can be a single test"
^DD(64.03,7,21,2,0)="or a panel. The Cap code is associated with this lab test."
^DD(64.03,7,"DT")="2920129"
^DD(64.03,8,0)="URGENCY OF TEST^P62.05'^LAB(62.05,^0;9^Q"
^DD(64.03,8,21,0)="^^4^4^2920212^"
^DD(64.03,8,21,1,0)="  This is the requested urgency of the lab test. WKL represent a"
^DD(64.03,8,21,2,0)="test cap code which was generated solely because of workload logic."
^DD(64.03,8,21,3,0)="This test was not actually ordered but artificially generated to "
^DD(64.03,8,21,4,0)="support workload functions. WKL can not be requested by users."
^DD(64.03,8,"DT")="2920129"
^DD(64.03,9,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^0;10^Q"
^DD(64.03,9,21,0)="^^1^1^2920212^"
^DD(64.03,9,21,1,0)="  This is not the PTF treating specialty."
^DD(64.03,9,"DT")="2920129"
^DD(64.03,10,0)="WKLD CODE^P64'^LAM(^0;11^Q"
^DD(64.03,10,21,0)="^^3^3^2931104^^"
^DD(64.03,10,21,1,0)="   If the WKLD code was generated by the workload software, the name"
^DD(64.03,10,21,2,0)="will have a '~' (tildy) in the name and the internal file number will"
^DD(64.03,10,21,3,0)="be greater than 9999."
^DD(64.03,10,"DT")="2930414"
^DD(64.03,11,0)="LRIDT^F^^0;12^K:$L(X)>15!($L(X)<7) X"
^DD(64.03,11,3)="Answer must be 7-15 characters in length."
^DD(64.03,11,21,0)="^^4^4^2920212^^"
^DD(64.03,11,21,1,0)="   This is number is 9999999-(accession date/time) or inverse"
^DD(64.03,11,21,2,0)="date time. This number is use as a node subscript in the ^LR file"
^DD(64.03,11,21,3,0)="to store the results of lab test."
^DD(64.03,11,21,4,0)="  ie.  ^LR(LRDFN,""CH"",LRIDT,DATA NAME)=TEST RESULT^FLAGS"
^DD(64.03,11,"DT")="2920129"
^DD(64.03,12,0)="DATE COLLECTED^RD^^0;13^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.03,12,1,0)="^.1"
^DD(64.03,12,1,1,0)="64.03^AD"
^DD(64.03,12,1,1,1)="S ^LRO(64.03,""AD"",$E(X,1,30),DA)="""""
^DD(64.03,12,1,1,2)="K ^LRO(64.03,""AD"",$E(X,1,30),DA)"
^DD(64.03,12,1,1,3)="Date Collected X-Ref"
^DD(64.03,12,1,1,"DT")="2960416"
^DD(64.03,12,3)=""
^DD(64.03,12,21,0)="^^1^1^2930325^"
^DD(64.03,12,21,1,0)=" This field contains the date the specimen was collected."
^DD(64.03,12,"DT")="2960417"
^DD(64.03,13,0)="DATE ORDERED^RD^^0;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.03,13,1,0)="^.1"
^DD(64.03,13,1,1,0)="64.03^AE"
^DD(64.03,13,1,1,1)="S ^LRO(64.03,""AE"",$E(X,1,30),DA)="""""
^DD(64.03,13,1,1,2)="K ^LRO(64.03,""AE"",$E(X,1,30),DA)"
^DD(64.03,13,1,1,3)="Date Ordered X-Ref"
^DD(64.03,13,1,1,"DT")="2960416"
^DD(64.03,13,3)=""
^DD(64.03,13,21,0)="^^1^1^2920212^"
^DD(64.03,13,21,1,0)="  This the original date the lab test was ordered."
^DD(64.03,13,"DT")="2960417"
^DD(64.03,14,0)="HOSPITAL LOCATION^P44'^SC(^0;15^Q"
^DD(64.03,14,3)=""
^DD(64.03,14,21,0)="^^2^2^2920212^"
^DD(64.03,14,21,1,0)="  This is the location from which the lab test was ordered."
^DD(64.03,14,21,2,0)="This field can also be used to determine the PTF treating specialty."
^DD(64.03,14,"DT")="2920212"
^DD(64.03,15,0)="ACCESSION FILE INDEX^F^^0;16^K:$L(X)>30!($L(X)<1) X"
^DD(64.03,15,3)="Answer must be 1-30 characters in length."
^DD(64.03,15,21,0)="^^6^6^2920212^"
^DD(64.03,15,21,1,0)="  This is a compound field used to navigate back into the accession file."
^DD(64.03,15,21,2,0)="Each subscript is separated by vertical bar '|', the structure is as follows:"
^DD(64.03,15,21,3,0)="Accession area Pointer|Accession date|Accession number|Lab Test pointer"
^DD(64.03,15,21,4,0)="^LRO(68,11,1,2920212,1,3,1,175,0)=......"
^DD(64.03,15,21,5,0)="Looks like 11|2920212|3|175"
^DD(64.03,15,21,6,0)="  You can then get back to the entry in the Accession file (#68)."
^DD(64.03,15,"DT")="2920212"
^DD(64.03,16,0)="SPECIMEN^P61'^LAB(61,^0;17^Q"
^DD(64.03,16,21,0)="^^1^1^2930717^"
^DD(64.03,16,21,1,0)="The specimen which is associated with this workload procedure."
^DD(64.03,16,"DT")="2930717"
^DD(64.03,17,0)="DATE OF EXTRACT^64.317DA^^1;0"
^DD(64.03,"B","ACCESSION AREA",6)=""
^DD(64.03,"B","ACCESSION FILE INDEX",15)=""
^DD(64.03,"B","DATE COLLECTED",12)=""
^DD(64.03,"B","DATE COMPLETE",3)=""
^DD(64.03,"B","DATE OF EXTRACT",17)=""
^DD(64.03,"B","DATE ORDERED",13)=""
^DD(64.03,"B","HOSPITAL LOCATION",14)=""
^DD(64.03,"B","LAB TEST NAME",7)=""
^DD(64.03,"B","LOCATION TYPE",5)=""
^DD(64.03,"B","LRIDT",11)=""
^DD(64.03,"B","PATIENT NAME",2)=""
^DD(64.03,"B","PROVIDER",1)=""
^DD(64.03,"B","REPORTING SITE",4)=""
^DD(64.03,"B","SEQ NUMBER",.01)=""
^DD(64.03,"B","SPECIMEN",16)=""
^DD(64.03,"B","TREATING SPECIALTY",9)=""
^DD(64.03,"B","URGENCY OF TEST",8)=""
^DD(64.03,"B","WKLD CODE",10)=""
^DD(64.03,"GL",0,1,.01)=""
^DD(64.03,"GL",0,2,1)=""
^DD(64.03,"GL",0,3,2)=""
^DD(64.03,"GL",0,4,3)=""
^DD(64.03,"GL",0,5,4)=""
^DD(64.03,"GL",0,6,5)=""
^DD(64.03,"GL",0,7,6)=""
^DD(64.03,"GL",0,8,7)=""
^DD(64.03,"GL",0,9,8)=""
^DD(64.03,"GL",0,10,9)=""
^DD(64.03,"GL",0,11,10)=""
^DD(64.03,"GL",0,12,11)=""
^DD(64.03,"GL",0,13,12)=""
^DD(64.03,"GL",0,14,13)=""
^DD(64.03,"GL",0,15,14)=""
^DD(64.03,"GL",0,16,15)=""
^DD(64.03,"GL",0,17,16)=""
^DD(64.03,"GL",1,0,17)=""
^DD(64.03,"IX",3)=""
^DD(64.03,"IX",12)=""
^DD(64.03,"IX",13)=""
^DD(64.03,"RQ",.01)=""
^DD(64.03,"RQ",3)=""
^DD(64.03,"RQ",12)=""
^DD(64.03,"RQ",13)=""
^DD(64.03,"SB",64.317,17)=""
^DD(64.036,0)="FIELD^^12^13"
^DD(64.036,0,"DDA")="N"
^DD(64.036,0,"DT")="3040428"
^DD(64.036,0,"IX","B",64.036,.01)=""
^DD(64.036,0,"NM","LAB DSS LAR EXTRACT")=""
^DD(64.036,0,"VR")="5.2"
^DD(64.036,0,"VRPK")="LR"
^DD(64.036,.01,0)="SEQ #^RNJ8,0^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.036,.01,1,0)="^.1"
^DD(64.036,.01,1,1,0)="64.036^B"
^DD(64.036,.01,1,1,1)="S ^LAR(64.036,""B"",$E(X,1,30),DA)="""""
^DD(64.036,.01,1,1,2)="K ^LAR(64.036,""B"",$E(X,1,30),DA)"
^DD(64.036,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(64.036,.01,21,0)="^^1^1^3001114^"
^DD(64.036,.01,21,1,0)=" This is an incremental number for entries into this file."
^DD(64.036,.01,23,0)="^^1^1^3001114^"
^DD(64.036,.01,23,1,0)="The first entry is used to record the extraction parameters."
^DD(64.036,.01,"DT")="2970219"
^DD(64.036,1,0)="POINTED TO FILE^F^^0;2^K:$L(X)>6!($L(X)<1) X"
^DD(64.036,1,3)="Answer must be 1-6 characters in length."
^DD(64.036,1,21,0)="^^2^2^3001114^"
^DD(64.036,1,21,1,0)="This field contains the point to the file that identifies the specimen"
^DD(64.036,1,21,2,0)="source."
^DD(64.036,1,"DT")="2970219"
^DD(64.036,2,0)="DFN^NJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.036,2,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(64.036,2,21,0)="^^2^2^3001114^"
^DD(64.036,2,21,1,0)="This field contains the IEN of the pointed to file identified in POINTED"
^DD(64.036,2,21,2,0)="TO FILE (#1) field."
^DD(64.036,2,"DT")="2970219"
^DD(64.036,3,0)="DATE ORDERED^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(64.036,3,21,0)="^^1^1^3001114^"
^DD(64.036,3,21,1,0)=" This field contains the date the order was placed."
^DD(64.036,3,"DT")="2970219"
^DD(64.036,4,0)="TIME ORDERED^F^^0;5^K:$L(X)>7!($L(X)<1) X"
^DD(64.036,4,3)="Answer must be 1-7 characters in length."
^DD(64.036,4,21,0)="^^1^1^3001114^"
^DD(64.036,4,21,1,0)="This field contains the time the order was placed."
^DD(64.036,4,"DT")="2970219"
^DD(64.036,5,0)="DATE RESULTS AVAIL^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(64.036,5,21,0)="^^2^2^3001114^"
^DD(64.036,5,21,1,0)="This field contains the date the results were available (verified and"
^DD(64.036,5,21,2,0)="released)."
^DD(64.036,5,"DT")="2970219"
^DD(64.036,6,0)="TIME RESULTS AVAIL^F^^0;7^K:$L(X)>7!($L(X)<1) X"
^DD(64.036,6,3)="Answer must be 1-7 characters in length."
^DD(64.036,6,21,0)="^^2^2^3001114^"
^DD(64.036,6,21,1,0)="This field contains the time the results were available (verified and"
^DD(64.036,6,21,2,0)="released)."
^DD(64.036,6,"DT")="2970219"
^DD(64.036,7,0)="SPECIMEN^P61'^LAB(61,^0;8^Q"
^DD(64.036,7,21,0)="^^2^2^3001114^"
^DD(64.036,7,21,1,0)="This field contains the pointer to TOPOGRAPHY FIELD (#61) file to identify"
^DD(64.036,7,21,2,0)="the specimen source."
^DD(64.036,7,"DT")="2970219"
^DD(64.036,8,0)="RESULTS^64.368^^1;0"
^DD(64.036,8,21,0)="^^2^2^3001114^"
^DD(64.036,8,21,1,0)="This is a multiple that contains result information for the extracted"
^DD(64.036,8,21,2,0)="tests."
^DD(64.036,9,0)="EXTRACTION DATA^64.369DA^^2;0"
^DD(64.036,9,21,0)="^^3^3^3001114^"
^DD(64.036,9,21,1,0)="This is a multiple field to extraction parameters. Usually there is only"
^DD(64.036,9,21,2,0)="one created and it is created for the first entry. Test extraction result"
^DD(64.036,9,21,3,0)="data is stored the next available internal entry number."
^DD(64.036,10,0)="SPECIMEN COLLECTION DATE^D^^0;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(64.036,10,21,0)="^.001^1^1^3001114^^"
^DD(64.036,10,21,1,0)=" The date specimen was collected."
^DD(64.036,10,"DT")="3000608"
^DD(64.036,11,0)="SPECIMEN COLLECTION TIME^F^^0;10^K:$L(X)>7!($L(X)<1) X"
^DD(64.036,11,3)="Answer must be 1-7 characters in length."
^DD(64.036,11,21,0)="^.001^1^1^3001114^^"
^DD(64.036,11,21,1,0)=" The time the specimen was collected."
^DD(64.036,11,"DT")="3000608"
^DD(64.036,12,0)="PROVIDER^P200'^VA(200,^0;11^Q"
^DD(64.036,12,21,0)="^^1^1^3040428^"
^DD(64.036,12,21,1,0)="This is the ordering provider of record for this set of test results."
^DD(64.036,12,"DT")="3040428"
^DD(64.036,"B","DATE ORDERED",3)=""
^DD(64.036,"B","DATE RESULTS AVAIL",5)=""
^DD(64.036,"B","DFN",2)=""
^DD(64.036,"B","EXTRACTION DATA",9)=""
^DD(64.036,"B","POINTED TO FILE",1)=""
^DD(64.036,"B","PROVIDER",12)=""
^DD(64.036,"B","RESULTS",8)=""
^DD(64.036,"B","SEQ #",.01)=""
^DD(64.036,"B","SPECIMEN",7)=""
^DD(64.036,"B","SPECIMEN COLLECTION DATE",10)=""
^DD(64.036,"B","SPECIMEN COLLECTION TIME",11)=""
^DD(64.036,"B","TIME ORDERED",4)=""
^DD(64.036,"B","TIME RESULTS AVAIL",6)=""
^DD(64.036,"GL",0,1,.01)=""
^DD(64.036,"GL",0,2,1)=""
^DD(64.036,"GL",0,3,2)=""
^DD(64.036,"GL",0,4,3)=""
^DD(64.036,"GL",0,5,4)=""
^DD(64.036,"GL",0,6,5)=""
^DD(64.036,"GL",0,7,6)=""
^DD(64.036,"GL",0,8,7)=""
^DD(64.036,"GL",0,9,10)=""
^DD(64.036,"GL",0,10,11)=""
^DD(64.036,"GL",0,11,12)=""
^DD(64.036,"GL",1,0,8)=""
^DD(64.036,"GL",2,0,9)=""
^DD(64.036,"IX",.01)=""
^DD(64.036,"RQ",.01)=""
^DD(64.036,"SB",64.368,8)=""
^DD(64.036,"SB",64.369,9)=""
^DD(64.04,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(64.04,0,"NM","DESCRIPTION")=""
^DD(64.04,0,"UP")="64"
^DD(64.04,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(64.04,.01,"DT")="2870430"
^DD(64.04,"B","DESCRIPTION",.01)=""
^DD(64.04,"GL",0,1,.01)=""
^DD(64.05,0)="FIELD^^3^4"
^DD(64.05,0,"DDA")="N"
^DD(64.05,0,"DT")="2901226"
^DD(64.05,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(64.05,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(64.05,0,"IX","B",64.05,.01)=""
^DD(64.05,0,"IX","C",64.05,1)=""
^DD(64.05,0,"NM","NON WKLD PROCEDURES")=""
^DD(64.05,0,"VR")="5.2"
^DD(64.05,.01,0)="PROCEDURE^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(64.05,.01,1,0)="^.1"
^DD(64.05,.01,1,1,0)="64.05^B"
^DD(64.05,.01,1,1,1)="S ^LAB(64.05,""B"",$E(X,1,30),DA)="""""
^DD(64.05,.01,1,1,2)="K ^LAB(64.05,""B"",$E(X,1,30),DA)"
^DD(64.05,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(64.05,.01,21,0)="^^1^1^2930325^"
^DD(64.05,.01,21,1,0)=" This field contains the procedure name."
^DD(64.05,.01,"DEL",1,0)="I 1"
^DD(64.05,1,0)="WKLD CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X"
^DD(64.05,1,1,0)="^.1"
^DD(64.05,1,1,1,0)="64.05^C"
^DD(64.05,1,1,1,1)="S ^LAB(64.05,""C"",$E(X,1,30),DA)="""""
^DD(64.05,1,1,1,2)="K ^LAB(64.05,""C"",$E(X,1,30),DA)"
^DD(64.05,1,3)="Answer must be 5 characters in length."
^DD(64.05,1,21,0)="^^2^2^2930325^"
^DD(64.05,1,21,1,0)=" If there is a code number associated with this procedure, enter it in"
^DD(64.05,1,21,2,0)="this field."
^DD(64.05,2,0)="ASSIGNMENT CODE^RS^L:Lab Mgmt;T:Tech Mgmt;C:Clerical;A:ADP;S:Sect Sp.;E:Ed;O:Other;M:Misc;TO:Total;N: Nonproductive;CO:Computer-Oriented;D:Dept Sp.;^0;3^Q"
^DD(64.05,2,21,0)="^^1^1^2930325^"
^DD(64.05,2,21,1,0)=" This field contains which section this code belongs."
^DD(64.05,2,"DT")="2901226"
^DD(64.05,3,0)="INSTITUTION^64.06PA^^1;0"
^DD(64.05,3,21,0)="^^1^1^2930325^"
^DD(64.05,3,21,1,0)=" To which institution should this code be associated with."
^DD(64.05,"B","ASSIGNMENT CODE",2)=""
^DD(64.05,"B","INSTITUTION",3)=""
^DD(64.05,"B","PROCEDURE",.01)=""
^DD(64.05,"B","WKLD CODE",1)=""
^DD(64.05,"GL",0,1,.01)=""
^DD(64.05,"GL",0,2,1)=""
^DD(64.05,"GL",0,3,2)=""
^DD(64.05,"GL",1,0,3)=""
^DD(64.05,"IX",.01)=""
^DD(64.05,"IX",1)=""
^DD(64.05,"RQ",.01)=""
^DD(64.05,"RQ",2)=""
^DD(64.05,"SB",64.06,3)=""
^DD(64.06,0)="INSTITUTION SUB-FIELD^^1^2"
^DD(64.06,0,"IX","B",64.06,.01)=""
^DD(64.06,0,"NM","INSTITUTION")=""
^DD(64.06,0,"UP")="64.05"
^DD(64.06,.01,0)="INSTITUTION^P4'^DIC(4,^0;1^Q"
^DD(64.06,.01,1,0)="^.1"
^DD(64.06,.01,1,1,0)="64.06^B"
^DD(64.06,.01,1,1,1)="S ^LAB(64.05,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.06,.01,1,1,2)="K ^LAB(64.05,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.06,1,0)="DATE^64.61DA^^1;0"
^DD(64.06,"B","DATE",1)=""
^DD(64.06,"B","INSTITUTION",.01)=""
^DD(64.06,"GL",0,1,.01)=""
^DD(64.06,"GL",1,0,1)=""
^DD(64.06,"IX",.01)=""
^DD(64.06,"SB",64.61,1)=""
^DD(64.061,0)="FIELD^^12^19"
^DD(64.061,0,"DDA")="N"
^DD(64.061,0,"DT")="3060813"
^DD(64.061,0,"ID",7)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(64.061,7,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,7)_"""":"""",2),$C(59),1)"")"
^DD(64.061,0,"ID",8)="W ""   "",$P(^(0),U,8)"
^DD(64.061,0,"IX","AC",64.061,5)=""
^DD(64.061,0,"IX","B",64.061,.01)=""
^DD(64.061,0,"IX","C",64.061,.01)=""
^DD(64.061,0,"IX","D",64.061,2)=""
^DD(64.061,0,"IX","E",64.061,1)=""
^DD(64.061,0,"IX","F",64.061,3)=""
^DD(64.061,0,"IX","G",64.061,7)=""
^DD(64.061,0,"IX","VR",64.061,.01)=""
^DD(64.061,0,"NM","LAB ELECTRONIC CODES")=""
^DD(64.061,0,"PT",61,.09)=""
^DD(64.061,0,"PT",61,.0961)=""
^DD(64.061,0,"PT",62.05,4)=""
^DD(64.061,0,"PT",62.47,.03)=""
^DD(64.061,0,"PT",62.801,1.13)=""
^DD(64.061,0,"PT",62.801,1.23)=""
^DD(64.061,0,"PT",62.801,2.13)=""
^DD(64.061,0,"PT",62.801,2.23)=""
^DD(64.061,0,"PT",62.801,2.33)=""
^DD(64.061,0,"PT",62.85,.05)=""
^DD(64.061,0,"PT",62.9001,1.15)=""
^DD(64.061,0,"PT",62.9001,1.25)=""
^DD(64.061,0,"PT",62.9001,2.15)=""
^DD(64.061,0,"PT",62.9001,2.25)=""
^DD(64.061,0,"PT",62.9001,2.35)=""
^DD(64.061,0,"PT",63.07,10)=""
^DD(64.061,0,"PT",64,25.2)=""
^DD(64.061,0,"PT",64,25.3)=""
^DD(64.061,0,"PT",64.02,.01)=""
^DD(64.061,0,"PT",64.02,1)=""
^DD(64.061,0,"PT",64.061,63.3)=""
^DD(64.061,0,"PT",64.8117,64)=""
^DD(64.061,0,"PT",69.6,6)=""
^DD(64.061,0,"PT",69.64,5)=""
^DD(64.061,0,"PT",95.3,1.5)=""
^DD(64.061,0,"PT",95.3,1.6)=""
^DD(64.061,0,"PT",95.3,1.7)=""
^DD(64.061,0,"PT",95.3,2)=""
^DD(64.061,0,"PT",95.3,3)=""
^DD(64.061,0,"PT",95.3,3.1)=""
^DD(64.061,0,"PT",95.3,4)=""
^DD(64.061,0,"PT",95.3,5)=""
^DD(64.061,0,"PT",95.3,7)=""
^DD(64.061,0,"PT",95.3,10)=""
^DD(64.061,0,"VR")="5.2"
^DD(64.061,0,"VRPK")="LR"
^DD(64.061,0,"VRRV")="2.14"
^DD(64.061,.001,0)="SEQUENCE^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(64.061,.001,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(64.061,.001,21,0)="^^1^1^3040902^"
^DD(64.061,.001,21,1,0)="This field is used to uniquely identify this entry for KIDS install."
^DD(64.061,.001,"DT")="3040902"
^DD(64.061,.01,0)="NAME^RF^^0;1^K:$L(X)>70!($L(X)<1) X"
^DD(64.061,.01,1,0)="^.1"
^DD(64.061,.01,1,1,0)="64.061^B^MUMPS"
^DD(64.061,.01,1,1,1)="S ^LAB(64.061,""B"",$E(X,1,70),DA)="""""
^DD(64.061,.01,1,1,2)="K ^LAB(64.061,""B"",$E(X,1,70),DA)"
^DD(64.061,.01,1,1,"DT")="2991228"
^DD(64.061,.01,1,2,0)="64.061^C^MUMPS"
^DD(64.061,.01,1,2,1)="D UP^LRXREF S ^LAB(64.061,""C"",X,DA)="""""
^DD(64.061,.01,1,2,2)="D UP^LRXREF K ^LAB(64.061,""C"",X,DA)"
^DD(64.061,.01,1,2,"%D",0)="^^5^5^2991228^^"
^DD(64.061,.01,1,2,"%D",1,0)="This MUMPS cross reference stores the electronic code name in upper case"
^DD(64.061,.01,1,2,"%D",2,0)="and is used for look-up and sorting purposes.  The format for the cross"
^DD(64.061,.01,1,2,"%D",3,0)="reference stored is below."
^DD(64.061,.01,1,2,"%D",4,0)=" "
^DD(64.061,.01,1,2,"%D",5,0)="   ^LAB(64.061,""C"",Code Name in Upper Case,IEN) = """""
^DD(64.061,.01,1,2,"DT")="2961205"
^DD(64.061,.01,1,3,0)="64.061^VR^MUMPS"
^DD(64.061,.01,1,3,1)="S ^LAB(64.061,""VR"")=$G(^LAB(64.061,""VR""))"
^DD(64.061,.01,1,3,2)="Q"
^DD(64.061,.01,1,3,3)="This cross reference tracks version numbers"
^DD(64.061,.01,1,3,"%D",0)="^^1^1^3010102^"
^DD(64.061,.01,1,3,"%D",1,0)="This cross reference is set during file installation or updates."
^DD(64.061,.01,1,3,"DT")="3010102"
^DD(64.061,.01,3)="Answer must be 1-70 characters in length."
^DD(64.061,.01,"DEL",1,0)="I 1"
^DD(64.061,.01,"DT")="3060315"
^DD(64.061,1,0)="LOINC ABBR^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(64.061,1,1,0)="^.1"
^DD(64.061,1,1,1,0)="64.061^E^MUMPS"
^DD(64.061,1,1,1,1)="S ^LAB(64.061,""E"",X,DA)="""""
^DD(64.061,1,1,1,2)="K ^LAB(64.061,""E"",X,DA)"
^DD(64.061,1,1,1,"DT")="2981009"
^DD(64.061,1,3)="Answer must be 1-70 characters in length."
^DD(64.061,1,"DT")="3030911"
^DD(64.061,2,0)="HL7 ABBR^FI^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(64.061,2,1,0)="^.1"
^DD(64.061,2,1,1,0)="64.061^D"
^DD(64.061,2,1,1,1)="S ^LAB(64.061,""D"",$E(X,1,30),DA)="""""
^DD(64.061,2,1,1,2)="K ^LAB(64.061,""D"",$E(X,1,30),DA)"
^DD(64.061,2,1,1,"%D",0)="^^1^1^2970519^"
^DD(64.061,2,1,1,"%D",1,0)="Quick reference to find entry by the HL7 code"
^DD(64.061,2,1,1,"DT")="2970519"
^DD(64.061,2,3)="Answer must be 1-10 characters in length."
^DD(64.061,2,"DT")="3010824"
^DD(64.061,3,0)="LAB ABBR^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(64.061,3,1,0)="^.1"
^DD(64.061,3,1,1,0)="64.061^F"
^DD(64.061,3,1,1,1)="S ^LAB(64.061,""F"",$E(X,1,30),DA)="""""
^DD(64.061,3,1,1,2)="K ^LAB(64.061,""F"",$E(X,1,30),DA)"
^DD(64.061,3,1,1,"%D",0)="^^1^1^2970616^"
^DD(64.061,3,1,1,"%D",1,0)="Quick reference to find entry by lab code."
^DD(64.061,3,1,1,"DT")="2970616"
^DD(64.061,3,3)="Answer must be 1-10 characters in length."
^DD(64.061,3,"DT")="2970708"
^DD(64.061,4,0)="ASSOCIATED FILES^64.614AV^^7;0"
^DD(64.061,5,0)="HL7 TABLE^F^^0;5^K:$L(X)>10!($L(X)<2) X"
^DD(64.061,5,1,0)="^.1"
^DD(64.061,5,1,1,0)="64.061^AC"
^DD(64.061,5,1,1,1)="S ^LAB(64.061,""AC"",$E(X,1,30),DA)="""""
^DD(64.061,5,1,1,2)="K ^LAB(64.061,""AC"",$E(X,1,30),DA)"
^DD(64.061,5,1,1,3)="HL7 table X-Ref"
^DD(64.061,5,1,1,"%D",0)="^^1^1^3051221^"
^DD(64.061,5,1,1,"%D",1,0)="This X-reference is used to determine the HL7 table source."
^DD(64.061,5,1,1,"DT")="3051221"
^DD(64.061,5,3)="Answer must be 2-10 characters in length."
^DD(64.061,5,"DT")="3051221"
^DD(64.061,6,0)="ATTRIBUTE^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(64.061,6,3)="Answer must be 1-30 characters in length."
^DD(64.061,6,"DT")="3001113"
^DD(64.061,7,0)="TYPE^S^U:UPDATE/STATUS;S:SPECIMEN;P:PRIORITY;E:EVENT;M:MEASUREMENTS;G:GENERAL;C:CHALLENGE;PR:PROPERTY;A:ADJUSTMENT;CL:CLASS;^0;7^Q"
^DD(64.061,7,1,0)="^.1"
^DD(64.061,7,1,1,0)="64.061^G"
^DD(64.061,7,1,1,1)="S ^LAB(64.061,""G"",$E(X,1,30),DA)="""""
^DD(64.061,7,1,1,2)="K ^LAB(64.061,""G"",$E(X,1,30),DA)"
^DD(64.061,7,1,1,"%D",0)="^^1^1^2981008^"
^DD(64.061,7,1,1,"%D",1,0)="To check for correct entry according to type."
^DD(64.061,7,1,1,"DT")="2981008"
^DD(64.061,7,"DT")="3030910"
^DD(64.061,8,0)="DESCRIPTION^F^^0;8^K:$L(X)>40!($L(X)<2) X"
^DD(64.061,8,3)="Answer must be 2-40 characters in length."
^DD(64.061,8,"DT")="3030911"
^DD(64.061,9,0)="LOINC TABLE^NJ3,0^^0;9^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.061,9,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(64.061,9,21,0)="^^2^2^2990119^^"
^DD(64.061,9,21,1,0)="This field contains the number of the LOINC table from the"
^DD(64.061,9,21,2,0)="LOINC Users' Guide."
^DD(64.061,9,"DT")="2980921"
^DD(64.061,10,0)="SUBTYPE^P64.062'^LAB(64.062,^0;10^Q"
^DD(64.061,10,1,0)="^.1"
^DD(64.061,10,1,1,0)="^^TRIGGER^64.061^11"
^DD(64.061,10,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(64.061,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y X ^DD(64.061,10,1,1,1.1) S DIH=$G(^LAB(64.061,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=64.061,DIG=11 D ^DICR"
^DD(64.061,10,1,1,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.062,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.062,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(64.061,10,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(64.061,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" S DIH=$G(^LAB(64.061,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=64.061,DIG=11 D ^DICR"
^DD(64.061,10,1,1,"CREATE VALUE")="SUBTYPE:ABBR"
^DD(64.061,10,1,1,"DELETE VALUE")="@"
^DD(64.061,10,1,1,"FIELD")="`11"
^DD(64.061,10,21,0)="^^1^1^3001109^"
^DD(64.061,10,21,1,0)="This field is used to further define properties. Can be used as screen element."
^DD(64.061,10,"DT")="3001109"
^DD(64.061,11,0)="SCREEN^FI^^0;11^K:$L(X)>3!($L(X)<1) X"
^DD(64.061,11,3)="Answer must be 1-3 characters in length"
^DD(64.061,11,5,1,0)="64.061^10^1"
^DD(64.061,11,21,0)="^^3^3^3001109^"
^DD(64.061,11,21,1,0)="This field contains a screen value triggered by SUBTYPE (#10) field. Look"
^DD(64.061,11,21,2,0)="can be done on this file by indicating how the returned value should be"
^DD(64.061,11,21,3,0)="screened."
^DD(64.061,11,"DT")="3060813"
^DD(64.061,12,0)="LEX ABBREV^F^^1;1^K:$L(X)>4!($L(X)<1) X"
^DD(64.061,12,3)="Answer must be 1-4 characters in length."
^DD(64.061,12,21,0)="^^5^5^3060813^"
^DD(64.061,12,21,1,0)="If this entry is an SCT Heirarchical term, this field contains the "
^DD(64.061,12,21,2,0)="Lexicon abbrevation for this concept. This abbreviation should be passed "
^DD(64.061,12,21,3,0)="to the Lexicon (LEX API) for term look-up. This abbreviation is used by "
^DD(64.061,12,21,4,0)="the LEX API to scope the returned values when a SCT text term's"
^DD(64.061,12,21,5,0)="SCT code is requested."
^DD(64.061,12,"DT")="3060813"
^DD(64.061,63,0)="SUBSCRIPT^S^EM:EM;CH:CH;BB:BB;MI:MI;SP:SP;AU:AU;CY:CY;^63;1^Q"
^DD(64.061,63,1,0)="^.1^^0"
^DD(64.061,63,21,0)="^^4^4^3051214^"
^DD(64.061,63,21,1,0)="This field contains the LAB DATA (#63) file subscript. The entry "
^DD(64.061,63,21,2,0)="indicates the sufile subsript where data should be stored."
^DD(64.061,63,21,3,0)=" "
^DD(64.061,63,21,4,0)="When selecting database data storage location, screen on this field."
^DD(64.061,63,"DT")="3070226"
^DD(64.061,63.1,0)="FILE/SUBFILE^F^^63;2^K:$L(X)>10!($L(X)<2) X"
^DD(64.061,63.1,3)="Answer must be 2-10 characters in length."
^DD(64.061,63.1,21,0)="^^2^2^3051214^"
^DD(64.061,63.1,21,1,0)="This file contains the subfile where the data should be stored for this "
^DD(64.061,63.1,21,2,0)="subscript."
^DD(64.061,63.1,"DT")="3051214"
^DD(64.061,63.2,0)="FIELD NUMBER^F^^63;3^K:$L(X)>20!($L(X)<1) X"
^DD(64.061,63.2,3)="Answer must be 1-20 characters in length."
^DD(64.061,63.2,21,0)="^^2^2^3051214^"
^DD(64.061,63.2,21,1,0)="This filed contains the field number of the subfile or the subscript; "
^DD(64.061,63.2,21,2,0)="where results should be stored."
^DD(64.061,63.2,"DT")="3051220"
^DD(64.061,63.3,0)="SCT TOP CONCEPT^*P64.061'^LAB(64.061,^63;4^S DIC(""S"")=""I $P(^(0),U,11)=""""SCT"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(64.061,63.3,12)="Select only SCT heirarchy/top concepts"
^DD(64.061,63.3,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""SCT"""""""
^DD(64.061,63.3,21,0)="^^3^3^3060131^"
^DD(64.061,63.3,21,1,0)="This field points to the SNOMED CT Top Level Concepts (heirarchy). Only "
^DD(64.061,63.3,21,2,0)="those entries associated with SNOMED mapping may have this association "
^DD(64.061,63.3,21,3,0)="established."
^DD(64.061,63.3,"DT")="3060131"
^DD(64.061,63.5,0)="STORAGE FILE^NJ4,1X^^63;5^K:+X'=X!(X>62)!(X<61)!(X?.E1"".""2N.N)!('$D(^DIC(X,0))) X"
^DD(64.061,63.5,3)="Type a Number between 61 and 62, 1 Decimal Digit"
^DD(64.061,63.5,21,0)="^^3^3^3060320^"
^DD(64.061,63.5,21,1,0)="This field contains the file that this SCT concept term is stored in the "
^DD(64.061,63.5,21,2,0)="Laboratory Package number space. Enter a valid file number between "
^DD(64.061,63.5,21,3,0)="60-69.9999."
^DD(64.061,63.5,"DT")="3060320"
^DD(64.061,"B","ASSOCIATED FILES",4)=""
^DD(64.061,"B","ATTRIBUTE",6)=""
^DD(64.061,"B","DESCRIPTION",8)=""
^DD(64.061,"B","FIELD NUMBER",63.2)=""
^DD(64.061,"B","FILE/SUBFILE",63.1)=""
^DD(64.061,"B","HL7 ABBR",2)=""
^DD(64.061,"B","HL7 TABLE",5)=""
^DD(64.061,"B","LAB ABBR",3)=""
^DD(64.061,"B","LEX ABBREV",12)=""
^DD(64.061,"B","LOINC ABBR",1)=""
^DD(64.061,"B","LOINC TABLE",9)=""
^DD(64.061,"B","NAME",.01)=""
^DD(64.061,"B","SCREEN",11)=""
^DD(64.061,"B","SCT TOP CONCEPT",63.3)=""
^DD(64.061,"B","SEQUENCE",.001)=""
^DD(64.061,"B","STORAGE FILE",63.5)=""
^DD(64.061,"B","SUBSCRIPT",63)=""
^DD(64.061,"B","SUBTYPE",10)=""
^DD(64.061,"B","TYPE",7)=""
^DD(64.061,"GL",0,1,.01)=""
^DD(64.061,"GL",0,2,1)=""
^DD(64.061,"GL",0,3,2)=""
^DD(64.061,"GL",0,4,3)=""
^DD(64.061,"GL",0,5,5)=""
^DD(64.061,"GL",0,6,6)=""
^DD(64.061,"GL",0,7,7)=""
^DD(64.061,"GL",0,8,8)=""
^DD(64.061,"GL",0,9,9)=""
^DD(64.061,"GL",0,10,10)=""
^DD(64.061,"GL",0,11,11)=""
^DD(64.061,"GL",1,1,12)=""
^DD(64.061,"GL",7,0,4)=""
^DD(64.061,"GL",63,1,63)=""
^DD(64.061,"GL",63,2,63.1)=""
^DD(64.061,"GL",63,3,63.2)=""
^DD(64.061,"GL",63,4,63.3)=""
^DD(64.061,"GL",63,5,63.5)=""
^DD(64.061,"IX",.01)=""
^DD(64.061,"IX",1)=""
^DD(64.061,"IX",2)=""
^DD(64.061,"IX",3)=""
^DD(64.061,"IX",5)=""
^DD(64.061,"IX",7)=""
^DD(64.061,"IX",10)=""
^DD(64.061,"RQ",.01)=""
^DD(64.061,"SB",64.614,4)=""
^DD(64.062,0)="FIELD^^1^3"
^DD(64.062,0,"DDA")="N"
^DD(64.062,0,"DT")="3040901"
^DD(64.062,0,"IX","B",64.062,.01)=""
^DD(64.062,0,"IX","C",64.062,.01)=""
^DD(64.062,0,"NM","LAB ELECTRONIC SUBTYPES")=""
^DD(64.062,0,"PT",64.061,10)=""
^DD(64.062,0,"VR")="5.2"
^DD(64.062,0,"VRPK")="LR"
^DD(64.062,.001,0)="SEQUENCE^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(64.062,.001,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(64.062,.001,"DT")="3040901"
^DD(64.062,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(64.062,.01,1,0)="^.1"
^DD(64.062,.01,1,1,0)="64.062^B"
^DD(64.062,.01,1,1,1)="S ^LAB(64.062,""B"",$E(X,1,30),DA)="""""
^DD(64.062,.01,1,1,2)="K ^LAB(64.062,""B"",$E(X,1,30),DA)"
^DD(64.062,.01,1,2,0)="64.062^C^MUMPS"
^DD(64.062,.01,1,2,1)="S ^LAB(64.062,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(64.062,.01,1,2,2)="K ^LAB(64.062,""C"",$$UP^XLFSTR(X),DA)"
^DD(64.062,.01,1,2,3)="Create upper case index"
^DD(64.062,.01,1,2,"%D",0)="^^1^1^3001109^"
^DD(64.062,.01,1,2,"%D",1,0)="This cross reference is used to provide an upper case lookup capability."
^DD(64.062,.01,1,2,"DT")="3001109"
^DD(64.062,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(64.062,.01,21,0)="^^2^2^3001113^"
^DD(64.062,.01,21,1,0)=" This field contains the name or characteristic of the screen. Generally"
^DD(64.062,.01,21,2,0)="these name are related to LOINC terms describing units of measurement."
^DD(64.062,.01,"DEL",1,0)="I 1"
^DD(64.062,.01,"DT")="3001109"
^DD(64.062,1,0)="ABBR^FI^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(64.062,1,3)="Answer must be 1-3 characters in length"
^DD(64.062,1,21,0)="^^3^3^3001113^"
^DD(64.062,1,21,1,0)="This field contains abbreviations of the subtype. Abbreviation of the"
^DD(64.062,1,21,2,0)="subtypes is also stored in LAB ELECTRONIC CODE (#64.061) file SCREEN"
^DD(64.062,1,21,3,0)="(#11) field triggered by the SUBTYPE (#10) field."
^DD(64.062,1,"DT")="3001113"
^DD(64.062,"B","ABBR",1)=""
^DD(64.062,"B","NAME",.01)=""
^DD(64.062,"B","SEQUENCE",.001)=""
^DD(64.062,"GL",0,1,.01)=""
^DD(64.062,"GL",0,2,1)=""
^DD(64.062,"IX",.01)=""
^DD(64.062,"RQ",.01)=""
^DD(64.1,0)="FIELD^^2^4"
^DD(64.1,0,"DDA")="N"
^DD(64.1,0,"DT")="2940927"
^DD(64.1,0,"IX","B",64.1,.01)=""
^DD(64.1,0,"NM","WKLD DATA")=""
^DD(64.1,0,"VR")="5.2"
^DD(64.1,.01,0)="INSTITUTION^RP4'X^DIC(4,^0;1^I $D(X) S DINUM=X"
^DD(64.1,.01,1,0)="^.1"
^DD(64.1,.01,1,1,0)="64.1^B"
^DD(64.1,.01,1,1,1)="S ^LRO(64.1,""B"",$E(X,1,30),DA)="""""
^DD(64.1,.01,1,1,2)="K ^LRO(64.1,""B"",$E(X,1,30),DA)"
^DD(64.1,.01,1,1,"DT")="2930823"
^DD(64.1,.01,3)=""
^DD(64.1,.01,21,0)="^^1^1^2921015^^^^"
^DD(64.1,.01,21,1,0)="  This is the medical center which will be credited with the work completed."
^DD(64.1,.01,23,0)="^^2^2^2921015^^^^"
^DD(64.1,.01,23,1,0)=" This field is determined by the DUZ(2) of the user."
^DD(64.1,.01,23,2,0)="Data comes from ^DD(68.14,2,0)"
^DD(64.1,.01,"DT")="2930823"
^DD(64.1,.03,0)="DATE^64.11DA^^1;0"
^DD(64.1,.03,21,0)="^^1^1^2940316^^^^"
^DD(64.1,.03,21,1,0)="  This is the date that the work was verified or completed."
^DD(64.1,1,0)="GENERAL COMMENTS^64.12^^2;0"
^DD(64.1,1,21,0)="^^3^3^2930325^"
^DD(64.1,1,21,1,0)="  General comments relating to this code can be entered in this field."
^DD(64.1,1,21,2,0)="These comment are used only by the site at this time. They are not"
^DD(64.1,1,21,3,0)="transmitted by version 5.2 to the national data base."
^DD(64.1,2,0)="WKLD CODE COMMENTS^64.13P^^3;0"
^DD(64.1,2,21,0)="^^3^3^2930325^"
^DD(64.1,2,21,1,0)=" If there are specific comments about this wkld code the site wish to"
^DD(64.1,2,21,2,0)="record for their own purposes, they may be entered in this field. These"
^DD(64.1,2,21,3,0)="comments are not included in any national rolled up data."
^DD(64.1,"B","DATE",.03)=""
^DD(64.1,"B","GENERAL COMMENTS",1)=""
^DD(64.1,"B","INSTITUTION",.01)=""
^DD(64.1,"B","WKLD CODE COMMENTS",2)=""
^DD(64.1,"GL",0,1,.01)=""
^DD(64.1,"GL",1,0,.03)=""
^DD(64.1,"GL",2,0,1)=""
^DD(64.1,"GL",3,0,2)=""
^DD(64.1,"IX",.01)=""
^DD(64.1,"RQ",.01)=""
^DD(64.1,"SB",64.11,.03)=""
^DD(64.1,"SB",64.12,1)=""
^DD(64.1,"SB",64.13,2)=""
^DD(64.11,0)="DATE SUB-FIELD^^2^4"
^DD(64.11,0,"DT")="2940927"
^DD(64.11,0,"IX","B",64.11,.01)=""
^DD(64.11,0,"NM","DATE")=""
^DD(64.11,0,"UP")="64.1"
^DD(64.11,.01,0)="DATE^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(64.11,.01,1,0)="^.1"
^DD(64.11,.01,1,1,0)="64.11^B"
^DD(64.11,.01,1,1,1)="S ^LRO(64.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.11,.01,1,1,2)="K ^LRO(64.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.11,.01,1,1,"%D",0)="^^1^1^2930324^"
^DD(64.11,.01,1,1,"%D",1,0)=" Standard B X-Ref"
^DD(64.11,.01,1,1,"DT")="2930324"
^DD(64.11,.01,23,0)="^^1^1^2920316^^"
^DD(64.11,.01,23,1,0)="  Data come from the 1 st piece of ^DD(68.14,1,0) separated by ""."""
^DD(64.11,.01,"DT")="2930324"
^DD(64.11,.03,0)="DATA REPORTED^S^1:YES;^0;2^Q"
^DD(64.11,.03,3)="This field is normally set by Step 1 of LMIP data collection."
^DD(64.11,.03,21,0)="^^3^3^2930408^"
^DD(64.11,.03,21,1,0)=" After the data has been extracted by Step 1 of LMIP reporting process"
^DD(64.11,.03,21,2,0)="this field is set to yes after being compiled into the LAB MONTHLY"
^DD(64.11,.03,21,3,0)="WORKLOADS file (#67.9)."
^DD(64.11,.03,"DT")="2930320"
^DD(64.11,1,0)="WKLD CODE^64.111PA^^1;0"
^DD(64.11,1,21,0)="^^1^1^2940316^^^^"
^DD(64.11,1,21,1,0)="Multiple field. Contains information about the WKLD code."
^DD(64.11,2,0)="TODAY'S COMMENTS^64.112^^2;0"
^DD(64.11,"B","DATA REPORTED",.03)=""
^DD(64.11,"B","DATE",.01)=""
^DD(64.11,"B","TODAY'S COMMENTS",2)=""
^DD(64.11,"B","WKLD CODE",1)=""
^DD(64.11,"GL",0,1,.01)=""
^DD(64.11,"GL",0,2,.03)=""
^DD(64.11,"GL",1,0,1)=""
^DD(64.11,"GL",2,0,2)=""
^DD(64.11,"IX",.01)=""
^DD(64.11,"SB",64.111,1)=""
^DD(64.11,"SB",64.112,2)=""
^DD(64.111,0)="WKLD CODE SUB-FIELD^^5^8"
^DD(64.111,0,"DT")="2940927"
^DD(64.111,0,"IX","B",64.111,.01)=""
^DD(64.111,0,"NM","WKLD CODE")=""
^DD(64.111,0,"UP")="64.11"
^DD(64.111,.01,0)="WKLD CODE^MP64'XO^LAM(^0;1^I $D(X) S DINUM=X"
^DD(64.111,.01,1,0)="^.1"
^DD(64.111,.01,1,1,0)="^^TRIGGER^64.111^.03"
^DD(64.111,.01,1,1,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^LAM(DA,0),U,3) X ^DD(64.111,.01,1,1,1.4)"
^DD(64.111,.01,1,1,1.4)="S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.111,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.111,.01,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(64.111,.01,1,1,2.4)"
^DD(64.111,.01,1,1,2.4)="S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=64.111,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.111,.01,1,1,"%D",0)="^^1^1^2910409^"
^DD(64.111,.01,1,1,"%D",1,0)=" Automatic stuff of unit weight during STD/QC/REP/MANUAL edit option."
^DD(64.111,.01,1,1,"CREATE VALUE")="S X=$P(^LAM(DA,0),U,3)"
^DD(64.111,.01,1,1,"DELETE VALUE")="@"
^DD(64.111,.01,1,1,"DT")="2910409"
^DD(64.111,.01,1,1,"FIELD")="UNIT WEIGHT"
^DD(64.111,.01,1,2,0)="^^TRIGGER^64.111^.04"
^DD(64.111,.01,1,2,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(64.111,.01,1,2,1.1) X ^DD(64.111,.01,1,2,1.4)"
^DD(64.111,.01,1,2,1.1)="S X=DIV S X=$P(^LAM(DA,0),U,11)"
^DD(64.111,.01,1,2,1.4)="S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=64.111,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.111,.01,1,2,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(64.111,.01,1,2,2.4)"
^DD(64.111,.01,1,2,2.4)="S DIH=$S($D(^LRO(64.1,DIV(0),1,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=64.111,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.111,.01,1,2,"%D",0)="^^1^1^2910409^"
^DD(64.111,.01,1,2,"%D",1,0)="Auto stuff constituent weight during STD/QC/REPS/MANUAL edit option."
^DD(64.111,.01,1,2,"CREATE VALUE")="S X=$P(^LAM(DA,0),U,11)"
^DD(64.111,.01,1,2,"DELETE VALUE")="@"
^DD(64.111,.01,1,2,"DT")="2910409"
^DD(64.111,.01,1,2,"FIELD")="CONST"
^DD(64.111,.01,1,3,0)="64.111^B"
^DD(64.111,.01,1,3,1)="S ^LRO(64.1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.111,.01,1,3,2)="K ^LRO(64.1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.111,.01,1,3,"DT")="2930823"
^DD(64.111,.01,2)="S Y(0)=Y S Y(0)=Y I Y S Y=$P($G(^LAM(+Y,0)),U) I $L(Y) S:$P(^(0),U,5) Y=""+""_Y"
^DD(64.111,.01,2.1)="S Y(0)=Y I Y S Y=$P($G(^LAM(+Y,0)),U) I $L(Y) S:$P(^(0),U,5) Y=""+""_Y"
^DD(64.111,.01,21,0)="^^2^2^2920313^^^^"
^DD(64.111,.01,21,1,0)="  This field points to the WKLD code file 64  This file contains all of"
^DD(64.111,.01,21,2,0)="the specific information for the code.  The file is up dated by the developing ISC.  All official code will be exported by the package"
^DD(64.111,.01,23,0)="^^6^6^2920313^^^^"
^DD(64.111,.01,23,1,0)=" Not all of the possible combination of WKLD codes or exported with the file."
^DD(64.111,.01,23,2,0)="As the site needs a specific method WKLD code the software will generate the"
^DD(64.111,.01,23,3,0)="required WKLD code and place it into the file."
^DD(64.111,.01,23,4,0)="  All of the basic WKLD codes are exported with the package. The additional "
^DD(64.111,.01,23,5,0)="WKLD codes are created from the WKLD Suffix code file #64.2."
^DD(64.111,.01,23,6,0)="  Data comes from ^DD(68.14,.01,0)"
^DD(64.111,.01,"DT")="2931222"
^DD(64.111,.03,0)="UNIT WEIGHT^NJ5,1^^0;2^K:+X'=X!(X>900)!(X<0)!(X?.E1"".""2N.N) X"
^DD(64.111,.03,3)="Type a Number between 0 and 900, 1 Decimal Digit"
^DD(64.111,.03,5,1,0)="64.111^.01^1"
^DD(64.111,.03,9)="^"
^DD(64.111,.03,21,0)="^^1^1^2940316^"
^DD(64.111,.03,21,1,0)="Automatically filled in."
^DD(64.111,.03,"DT")="2940927"
^DD(64.111,.04,0)="CONSTITUENT WT^NJ5,1^^0;3^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""2N.N) X"
^DD(64.111,.04,3)="Type a Number between 0 and 500, 1 Decimal Digit"
^DD(64.111,.04,5,1,0)="64.111^.01^2"
^DD(64.111,.04,9)="^"
^DD(64.111,.04,21,0)="^^1^1^2940316^"
^DD(64.111,.04,21,1,0)="Automatically filled in."
^DD(64.111,.04,"DT")="2910114"
^DD(64.111,1,0)="ACCESSION WKLD CODE TIME^64.1111A^^1;0"
^DD(64.111,1,21,0)="^^1^1^2940316^^^"
^DD(64.111,1,21,1,0)="Multiple field. Contains information about the accession."
^DD(64.111,1,"DT")="2910329"
^DD(64.111,2,0)="STANDARDS^NJ6,0^^S;1^K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"".""1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,""S"")),U,1))"
^DD(64.111,2,3)="Type a Number between -1000 and 100000, 0 Decimal Digits"
^DD(64.111,2,21,0)="^^4^4^2931104^^"
^DD(64.111,2,21,1,0)=" This field will contain the number of standards used in any one day."
^DD(64.111,2,21,2,0)="Since standards are not accessioned, this is the only way to record"
^DD(64.111,2,21,3,0)="their number. After each verify session the technologist is prompted for"
^DD(64.111,2,21,4,0)="the number of standards this run. That number is recorded here."
^DD(64.111,2,23,0)="^^12^12^2931104^^"
^DD(64.111,2,23,1,0)="  This field can be changed via a tasked routine. As the technologist is "
^DD(64.111,2,23,2,0)="verifying a test, a record is maintained in the ^XTMP(""LRCAP"""
^DD(64.111,2,23,3,0)=",$H,DUZ,LAB TEST) global. The task routine looks at this global and"
^DD(64.111,2,23,4,0)="add the standard count to this field. This will prevent a technologist"
^DD(64.111,2,23,5,0)="from being locked out of this field during multiple user attempting to"
^DD(64.111,2,23,6,0)="access this node."
^DD(64.111,2,23,7,0)="|TAB|The root of this global contains the number of standards,QC,REPEATS and MANUAL"
^DD(64.111,2,23,8,0)="to be added to the count."
^DD(64.111,2,23,9,0)="   ^XTMP(""LRCAP"",$H,DUZ)=STANDARDS^QC^REPEATS^MANUAL The institution is in the "
^DD(64.111,2,23,10,0)="ZTSAVE  array of the task job."
^DD(64.111,2,23,11,0)=" "
^DD(64.111,2,23,12,0)="|TAB|There is also an edit template provided for manual entry into this field."
^DD(64.111,2,"DT")="2931104"
^DD(64.111,3,0)="QC^NJ6,0^^S;2^K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"".""1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,""S"")),U,2))"
^DD(64.111,3,3)="Type a Number between -1000 and 100000, 0 Decimal Digits"
^DD(64.111,3,21,0)="^^3^3^2930808^^"
^DD(64.111,3,21,1,0)=" This field contains the number of QC which were done on this date."
^DD(64.111,3,21,2,0)="This field is similar to the STANDARDS field, except it also contained"
^DD(64.111,3,21,3,0)="Quality Control which was accessioned and verified in the normal manner."
^DD(64.111,3,23,0)="^^1^1^2930808^^"
^DD(64.111,3,23,1,0)="  See the description for STANDARDS"
^DD(64.111,3,"DT")="2931104"
^DD(64.111,4,0)="REPEATS^NJ5,0^^S;3^K:+X'=X!(X>10000)!(X<-1000)!(X?.E1"".""1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,""S"")),U,3))"
^DD(64.111,4,3)="Type a Number between -1000 and 10000, 0 Decimal Digits"
^DD(64.111,4,"DT")="2931104"
^DD(64.111,5,0)="MANUAL INPUT WORKLOAD ^NJ6,0^^S;4^K:+X'=X!(X>999999)!(X<-10000)!(X?.E1"".""1N.N) X I $D(X) S X=(X+$P($G(^LRO(64.1,DA(2),1,DA(1),1,DA,""S"")),U,4))"
^DD(64.111,5,3)="Type a Number between -10000 and 100000, 0 Decimal Digits"
^DD(64.111,5,"DT")="2931104"
^DD(64.111,"B","ACCESSION WKLD CODE TIME",1)=""
^DD(64.111,"B","CONSTITUENT WT",.04)=""
^DD(64.111,"B","MANUAL INPUT WORKLOAD ",5)=""
^DD(64.111,"B","QC",3)=""
^DD(64.111,"B","REPEATS",4)=""
^DD(64.111,"B","STANDARDS",2)=""
^DD(64.111,"B","UNIT WEIGHT",.03)=""
^DD(64.111,"B","WKLD CODE",.01)=""
^DD(64.111,"GL",0,1,.01)=""
^DD(64.111,"GL",0,2,.03)=""
^DD(64.111,"GL",0,3,.04)=""
^DD(64.111,"GL",1,0,1)=""
^DD(64.111,"GL","S",1,2)=""
^DD(64.111,"GL","S",2,3)=""
^DD(64.111,"GL","S",3,4)=""
^DD(64.111,"GL","S",4,5)=""
^DD(64.111,"IX",.01)=""
^DD(64.111,"SB",64.1111,1)=""
^DD(64.1111,0)="ACCESSION WKLD CODE TIME SUB-FIELD^^24^24"
^DD(64.1111,0,"DT")="2940927"
^DD(64.1111,0,"NM","ACCESSION WKLD CODE TIME")=""
^DD(64.1111,0,"UP")="64.111"
^DD(64.1111,.01,0)="ACCESSION WKLD CODE TIME^MNJ9,4X^^0;1^K:+X'=X!(X>2400)!(X<.0001)!(X?.E1"".""5N.N) X S:$D(X) DINUM=X"
^DD(64.1111,.01,1,0)="^.1^^0"
^DD(64.1111,.01,3)="Type a Number between .0001 and 2400, 4 Decimal Digits"
^DD(64.1111,.01,21,0)="^^1^1^2910105^^"
^DD(64.1111,.01,21,1,0)=" This hour and seconds when the test was verified."
^DD(64.1111,.01,23,0)="^^1^1^2910105^^"
^DD(64.1111,.01,23,1,0)=" This is the second piece of ^DD(68.14,1,0) separated by ""."""
^DD(64.1111,.01,"DT")="2910329"
^DD(64.1111,1,0)="LAB TEST^P60'^LAB(60,^0;2^Q"
^DD(64.1111,1,21,0)="^^1^1^2910105^^"
^DD(64.1111,1,21,1,0)=" This is the test in ^LAB(60 which was verified."
^DD(64.1111,1,23,0)="^^1^1^2910105^"
^DD(64.1111,1,23,1,0)=" Data come from ^DD(68.04,.01,0)"
^DD(64.1111,1,"DT")="2901231"
^DD(64.1111,2,0)="WEIGHT MULTIPLIER^NJ4,0^^0;3^K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"".""1N.N) X"
^DD(64.1111,2,3)="Type a Number between -1000 and 1000, 0 Decimal Digits"
^DD(64.1111,2,21,0)="^^5^5^2940316^^"
^DD(64.1111,2,21,1,0)=" This number is used to multiply the weight of the WKLD code. This may"
^DD(64.1111,2,21,2,0)="be more than one if the test requires the same WKLD code more than once."
^DD(64.1111,2,21,3,0)="  This number is taken from the old field in ^LAB(60 under WKLD code"
^DD(64.1111,2,21,4,0)="called default WKLD Code. If this field is blank, the software assume a"
^DD(64.1111,2,21,5,0)="value of 1 to be used."
^DD(64.1111,2,23,0)="^^1^1^2940316^^^"
^DD(64.1111,2,23,1,0)=" Data comes from ^DD(68.14,.02,0)"
^DD(64.1111,2,"DT")="2940927"
^DD(64.1111,5,0)="LAB DIVISION^S^AP:ANATOMIC PATHOLOGY;CP:CLINICAL PATHOLOGY;^0;6^Q"
^DD(64.1111,5,3)=""
^DD(64.1111,5,21,0)="^^3^3^2910326^^"
^DD(64.1111,5,21,1,0)=" This is the overall area to which this workload is to be credited."
^DD(64.1111,5,21,2,0)="This should be the largest administrative/functional area of the laboratory"
^DD(64.1111,5,21,3,0)="service."
^DD(64.1111,5,23,0)="^^1^1^2910326^^"
^DD(64.1111,5,23,1,0)="Data is from ^DD(68,.19,0)"
^DD(64.1111,5,"DT")="2910326"
^DD(64.1111,6,0)="MAJ. SECT.^P68'^LRO(68,^0;7^Q"
^DD(64.1111,6,21,0)="^^12^12^2940316^^^^"
^DD(64.1111,6,21,1,0)="  This should be the next smallest area of the laboratory service after"
^DD(64.1111,6,21,2,0)="the MAJ. SECT. This field is used to further break down the workload."
^DD(64.1111,6,21,3,0)="   Generally this will be the ACCESSION area into which the order was"
^DD(64.1111,6,21,4,0)="accessioned. However, this may not be always true. To allow for flexibility"
^DD(64.1111,6,21,5,0)="in this matter, this field is controlled by the worklist used during"
^DD(64.1111,6,21,6,0)="the verification process."
^DD(64.1111,6,21,7,0)="   Even if the verification method used itself, does not require a work"
^DD(64.1111,6,21,8,0)="list, one can control this field via that worklist. There are two new"
^DD(64.1111,6,21,9,0)="fields in the LOAD/WORK LIST file (#68.2). One of these fields is "
^DD(64.1111,6,21,10,0)="MAJOR ACCESSION AREA. What ever value is entered here will be used to"
^DD(64.1111,6,21,11,0)="tabulate the workload for this test. If none is entered the test accession"
^DD(64.1111,6,21,12,0)="area will be used."
^DD(64.1111,6,23,0)="^^1^1^2940316^^^^"
^DD(64.1111,6,23,1,0)="  This data is from ^DD(68.14,4,0)"
^DD(64.1111,6,"DT")="2910326"
^DD(64.1111,7,0)="SUBSECTION^P68'^LRO(68,^0;8^Q"
^DD(64.1111,7,21,0)="^^10^10^2940524^^^^"
^DD(64.1111,7,21,1,0)="  This field represents the smallest functional unit of the laboratory"
^DD(64.1111,7,21,2,0)="service. If there is a area smaller than the MAJ. ACC AREA, enter that"
^DD(64.1111,7,21,3,0)="area here. Not all laboratories will have a smaller work area. If the"
^DD(64.1111,7,21,4,0)="field is blank the MAJ. ACC AREA will be used. For example the "
^DD(64.1111,7,21,5,0)="MAJ. ACC AREA may be CHEMISTRY and the LAB SUBSECTION could be STAT LAB"
^DD(64.1111,7,21,6,0)=" Of course these must exist in the ACCESSION AREA file and may be used"
^DD(64.1111,7,21,7,0)="only for this purpose."
^DD(64.1111,7,21,8,0)="  This field is also works like the MAJ. ACC AREA, in that it is attached"
^DD(64.1111,7,21,9,0)="to a LOAD/WORK LIST. It is controlled by selecting a worklist during "
^DD(64.1111,7,21,10,0)="verification."
^DD(64.1111,7,23,0)="^^1^1^2940524^^^^"
^DD(64.1111,7,23,1,0)="  This data comes from ^DD(68.14,5,0)"
^DD(64.1111,7,"DT")="2910326"
^DD(64.1111,7.5,0)="WORK AREA^P68'^LRO(68,^0;25^Q"
^DD(64.1111,7.5,21,0)="^^2^2^2940524^^"
^DD(64.1111,7.5,21,1,0)=" This field points to an area which you wish workload data to be compiled"
^DD(64.1111,7.5,21,2,0)="by. This is field assumes the default of field #7 (Subsection) if not filled in."
^DD(64.1111,7.5,"DT")="2940519"
^DD(64.1111,8,0)="ACC NO.^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(64.1111,8,3)="Answer must be 4-20 characters in length."
^DD(64.1111,8,21,0)="^^1^1^2910105^"
^DD(64.1111,8,21,1,0)="  This is the printable accession number  CH 0101 1"
^DD(64.1111,8,23,0)="^^1^1^2910105^"
^DD(64.1111,8,23,1,0)=" This data comes from ^DD(68.02,15,0)"
^DD(64.1111,8,"DT")="2901231"
^DD(64.1111,9,0)="PATIENT^RV^^0;10^Q"
^DD(64.1111,9,21,0)="^^3^3^2910105^"
^DD(64.1111,9,21,1,0)="  Contain the file and the entry number for the accession specimen."
^DD(64.1111,9,21,2,0)="If this field is manually edited, knowledge of variable pointer format"
^DD(64.1111,9,21,3,0)="is required."
^DD(64.1111,9,23,0)="^^1^1^2910105^"
^DD(64.1111,9,23,1,0)=" Is a combination of ^DD(68.02,.01,0) AND ^DD(68.02,.02,0)"
^DD(64.1111,9,"DT")="2910102"
^DD(64.1111,9,"V",0)="^.12P^9^9"
^DD(64.1111,9,"V",1,0)="2^Patient^1^2^^n"
^DD(64.1111,9,"V",2,0)="62.3^Control Name^2^62.3^^n"
^DD(64.1111,9,"V",3,0)="65^Blood Inventory^3^65^^n"
^DD(64.1111,9,"V",4,0)="65.5^Blood Donor^4^65.5^^n"
^DD(64.1111,9,"V",5,0)="67^Referral^5^67^^n"
^DD(64.1111,9,"V",6,0)="67.1^Research^6^67.1^^n"
^DD(64.1111,9,"V",7,0)="67.2^Sterilizer^7^67.2^^n"
^DD(64.1111,9,"V",8,0)="67.3^Environmental^8^67.3^^n"
^DD(64.1111,9,"V",9,0)="67.4^Non Patient Workload^9^67.4^^n"
^DD(64.1111,9,"V",11,0)="200^Person^11^11^^n"
^DD(64.1111,9,"V","B",2,1)=""
^DD(64.1111,9,"V","B",62.3,2)=""
^DD(64.1111,9,"V","B",65,3)=""
^DD(64.1111,9,"V","B",65.5,4)=""
^DD(64.1111,9,"V","B",67,5)=""
^DD(64.1111,9,"V","B",67.1,6)=""
^DD(64.1111,9,"V","B",67.2,7)=""
^DD(64.1111,9,"V","B",67.3,8)=""
^DD(64.1111,9,"V","B",67.4,9)=""
^DD(64.1111,9,"V","B",200,11)=""
^DD(64.1111,9,"V","M","Blood Donor",4)=""
^DD(64.1111,9,"V","M","Blood Inventory",3)=""
^DD(64.1111,9,"V","M","Control Name",2)=""
^DD(64.1111,9,"V","M","Environmental",8)=""
^DD(64.1111,9,"V","M","Non Patient Workload",9)=""
^DD(64.1111,9,"V","M","Patient",1)=""
^DD(64.1111,9,"V","M","Person",11)=""
^DD(64.1111,9,"V","M","Referral",5)=""
^DD(64.1111,9,"V","M","Research",6)=""
^DD(64.1111,9,"V","M","Sterilizer",7)=""
^DD(64.1111,9,"V","O",1,1)=""
^DD(64.1111,9,"V","O",2,2)=""
^DD(64.1111,9,"V","O",3,3)=""
^DD(64.1111,9,"V","O",4,4)=""
^DD(64.1111,9,"V","O",5,5)=""
^DD(64.1111,9,"V","O",6,6)=""
^DD(64.1111,9,"V","O",7,7)=""
^DD(64.1111,9,"V","O",8,8)=""
^DD(64.1111,9,"V","O",9,9)=""
^DD(64.1111,9,"V","O",11,11)=""
^DD(64.1111,9,"V","P",2,1)=""
^DD(64.1111,9,"V","P",11,11)=""
^DD(64.1111,9,"V","P",62.3,2)=""
^DD(64.1111,9,"V","P",65,3)=""
^DD(64.1111,9,"V","P",65.5,4)=""
^DD(64.1111,9,"V","P",67,5)=""
^DD(64.1111,9,"V","P",67.1,6)=""
^DD(64.1111,9,"V","P",67.2,7)=""
^DD(64.1111,9,"V","P",67.3,8)=""
^DD(64.1111,9,"V","P",67.4,9)=""
^DD(64.1111,10,0)="ORIGINAL ACC DATE^D^^0;11^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(64.1111,10,21,0)="^^2^2^2910105^"
^DD(64.1111,10,21,1,0)=" The data the specimen originally accessed. Used this date to compute"
^DD(64.1111,10,21,2,0)="turn around times."
^DD(64.1111,10,23,0)="^^1^1^2910105^"
^DD(64.1111,10,23,1,0)=" Data comes from ^DD(68.02,2,0)"
^DD(64.1111,10,"DT")="2940927"
^DD(64.1111,11,0)="DATE ORDERED^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.1111,11,21,0)="^^2^2^2910105^"
^DD(64.1111,11,21,1,0)=" This date when the test was ordered. This is the date in ^LRO(69."
^DD(64.1111,11,21,2,0)="This can be used to look specific order information."
^DD(64.1111,11,23,0)="^^1^1^2910105^"
^DD(64.1111,11,23,1,0)=" Data come from ^DD(68.02,3,0)"
^DD(64.1111,11,"DT")="2901231"
^DD(64.1111,12,0)="SPECIMEN NO.^NJ6,0^^0;13^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.1111,12,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(64.1111,12,21,0)="^^2^2^2910105^"
^DD(64.1111,12,21,1,0)=" This the internal file number for the order date in ^LRO(69,"
^DD(64.1111,12,21,2,0)="DATE ORDERED,1,SPECIMEN NO., one can reference the ORDER FILE"
^DD(64.1111,12,23,0)="^^1^1^2910105^"
^DD(64.1111,12,23,1,0)="Data comes from ^DD(68.02,4,0)"
^DD(64.1111,12,"DT")="2901231"
^DD(64.1111,13,0)="SPECIMEN^P61^LAB(61,^0;14^Q"
^DD(64.1111,13,3)=""
^DD(64.1111,13,21,0)="^^1^1^2930717^^"
^DD(64.1111,13,21,1,0)="The specimen which was collected for this test."
^DD(64.1111,13,"DT")="2930717"
^DD(64.1111,14,0)="REPORT ROUTING LOCATION^F^^0;15^K:$L(X)>20!($L(X)<1) X"
^DD(64.1111,14,3)="Answer must be 1-20 characters in length."
^DD(64.1111,14,21,0)="^^2^2^2940316^^"
^DD(64.1111,14,21,1,0)="  This is the abbreviation of the reporting location. Not to be"
^DD(64.1111,14,21,2,0)="confused with the ordering location."
^DD(64.1111,14,23,0)="^^1^1^2940316^^"
^DD(64.1111,14,23,1,0)="Data comes from ^DD(68.02,6,0)"
^DD(64.1111,14,"DT")="2901231"
^DD(64.1111,15,0)="PROVIDER^P200'^VA(200,^0;16^Q"
^DD(64.1111,15,21,0)="^^1^1^2910105^"
^DD(64.1111,15,21,1,0)=" The doctor which ordered the lab test"
^DD(64.1111,15,23,0)="^^3^3^2910105^"
^DD(64.1111,15,23,1,0)=" This data is from ^DD(68.02,6.5,0)"
^DD(64.1111,15,23,2,0)="  This field presently points to ^DIC(6, but when file 200 is"
^DD(64.1111,15,23,3,0)="used the DD's must be changed."
^DD(64.1111,15,"DT")="2931130"
^DD(64.1111,16,0)="TREATING SPECIALITY^P45.7'^DIC(45.7,^0;17^Q"
^DD(64.1111,16,21,0)="^^4^4^2910105^"
^DD(64.1111,16,21,1,0)=" This is the treating specialty of the ordering location. As you"
^DD(64.1111,16,21,2,0)="know, out patient location do not have treating specialties assigned"
^DD(64.1111,16,21,3,0)="in the file. Therefore this field maybe blank."
^DD(64.1111,16,21,4,0)="  NOTE ** DONT USE THIS FIELD FOR SORTING THE FILE."
^DD(64.1111,16,23,0)="^^1^1^2910105^"
^DD(64.1111,16,23,1,0)=" Data come from ^DD(68.02,6.6,0)"
^DD(64.1111,16,"DT")="2901231"
^DD(64.1111,17,0)="LOG IN PERSON^P200'^VA(200,^0;18^Q"
^DD(64.1111,17,21,0)="^^1^1^2910105^"
^DD(64.1111,17,21,1,0)="  This is the person who logged the specimen into the laboratory."
^DD(64.1111,17,23,0)="^^1^1^2910105^"
^DD(64.1111,17,23,1,0)="  Data come from ^DD(68.02,6.7,0)"
^DD(64.1111,17,"DT")="2910809"
^DD(64.1111,18,0)="LOCATION TYPE^S^Z:OTHER;M:MODULE;W:WARD;N:NON-CLINIC STOP;F:FILE AREA;I:IMAGING;OR:OPERATION ROOM;C:CLINIC;B:BLOOD BANK;^0;19^Q"
^DD(64.1111,18,21,0)="^^3^3^2910418^^"
^DD(64.1111,18,21,1,0)="  The ordering location type. The default is OTHER."
^DD(64.1111,18,21,2,0)="This field also describes the workload source, e.g. in patient, out "
^DD(64.1111,18,21,3,0)="patient, or blood bank."
^DD(64.1111,18,23,0)="^^2^2^2910418^^"
^DD(64.1111,18,23,1,0)="  Data comes from ^DD(68.02,92,0)"
^DD(64.1111,18,23,2,0)="In the case of blood bank workload, the collection routine puts 'B' here."
^DD(64.1111,18,"DT")="2960110"
^DD(64.1111,19,0)="COUNT FOR WORKLOAD^S^1:YES;0:NO;^0;20^Q"
^DD(64.1111,19,21,0)="^^2^2^2910105^"
^DD(64.1111,19,21,1,0)="  Used by the software during report generation. It indicate"
^DD(64.1111,19,21,2,0)="this data has already be tabulated."
^DD(64.1111,19,"DT")="2910225"
^DD(64.1111,20,0)="ORDERING LOCATION^P44'^SC(^0;21^Q"
^DD(64.1111,20,21,0)="^^3^3^2910105^"
^DD(64.1111,20,21,1,0)="  This is the ordering location. This can be used to address hospital"
^DD(64.1111,20,21,2,0)="location test request. This field is different from REPORT ROUTING"
^DD(64.1111,20,21,3,0)="LOCATION."
^DD(64.1111,20,23,0)="^^1^1^2910105^"
^DD(64.1111,20,23,1,0)=" Data comes from ^DD(68.02,94,0)"
^DD(64.1111,20,"DT")="2901231"
^DD(64.1111,21,0)="INVERSE DATE COMPLETED^NJ18,6^^0;22^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""7N.N) X"
^DD(64.1111,21,3)="Type a Number between 1 and 99999999999, 6 Decimal Digits"
^DD(64.1111,21,21,0)="^^2^2^2910105^"
^DD(64.1111,21,21,1,0)=" This is the number which was used to store the verified value in the"
^DD(64.1111,21,21,2,0)="^LR(LRDFN,""CH"",INVERSE DATE COMPLETED)=VALUE"
^DD(64.1111,21,23,0)="^^1^1^2910105^"
^DD(64.1111,21,23,1,0)="Data come from ^DD(68.02,13.5,0)"
^DD(64.1111,21,"DT")="2901231"
^DD(64.1111,22,0)="URGENCY^P62.05'^LAB(62.05,^0;23^Q"
^DD(64.1111,22,23,0)="^^1^1^2910105^"
^DD(64.1111,22,23,1,0)="Data come from ^DD(68.04,1,0)"
^DD(64.1111,22,"DT")="2901231"
^DD(64.1111,23,0)="VERIFY TECH.^P200'^VA(200,^0;24^Q"
^DD(64.1111,23,21,0)="^^3^3^2910105^"
^DD(64.1111,23,21,1,0)=" This the first technologist to verify the test results. This field"
^DD(64.1111,23,21,2,0)="is not updated during editing for errors or other test which were"
^DD(64.1111,23,21,3,0)="apart of the original test."
^DD(64.1111,23,23,0)="^^1^1^2910105^"
^DD(64.1111,23,23,1,0)="Data come from ^DD(68.14,2,0)"
^DD(64.1111,23,"DT")="2910809"
^DD(64.1111,24,0)="COMPUTED WEIGHT^CJ8,1^^ ; ^X ^DD(64.1111,24,9.2) S Y(64.1111,24,2)=X S X=$P(Y(64.1111,24,3),U,2)+$P(Y(64.1111,24,3),U,3),Y=X,X=Y(64.1111,24,2),X=X*Y S X=$J(X,0,1)"
^DD(64.1111,24,9)="^"
^DD(64.1111,24,9.01)="64.111^.04;64.111^.03;64.1111^2"
^DD(64.1111,24,9.1)="WEIGHT MULTIPLIER*(UNIT WEIGHT+CONSTITUENT WT)"
^DD(64.1111,24,9.2)="S Y(64.1111,24,3)=$S($D(^LRO(64.1,D0,1,D1,1,D2,0)):^(0),1:""""),Y(64.1111,24,1)=$S($D(^LRO(64.1,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(64.1111,24,1),U,3)"
^DD(64.1111,"B","ACC NO.",8)=""
^DD(64.1111,"B","ACCESSION WKLD CODE TIME",.01)=""
^DD(64.1111,"B","COMPUTED WEIGHT",24)=""
^DD(64.1111,"B","COUNT FOR WORKLOAD",19)=""
^DD(64.1111,"B","DATE ORDERED",11)=""
^DD(64.1111,"B","INVERSE DATE COMPLETED",21)=""
^DD(64.1111,"B","LAB DIVISION",5)=""
^DD(64.1111,"B","LAB TEST",1)=""
^DD(64.1111,"B","LOCATION TYPE",18)=""
^DD(64.1111,"B","LOG IN PERSON",17)=""
^DD(64.1111,"B","MAJ. SECT.",6)=""
^DD(64.1111,"B","ORDERING LOCATION",20)=""
^DD(64.1111,"B","ORIGINAL ACC DATE",10)=""
^DD(64.1111,"B","PATIENT",9)=""
^DD(64.1111,"B","PROVIDER",15)=""
^DD(64.1111,"B","REPORT ROUTING LOCATION",14)=""
^DD(64.1111,"B","SPECIMEN",13)=""
^DD(64.1111,"B","SPECIMEN NO.",12)=""
^DD(64.1111,"B","SUBSECTION",7)=""
^DD(64.1111,"B","TREATING SPECIALITY",16)=""
^DD(64.1111,"B","URGENCY",22)=""
^DD(64.1111,"B","VERIFY TECH.",23)=""
^DD(64.1111,"B","WEIGHT MULTIPLIER",2)=""
^DD(64.1111,"B","WORK AREA",7.5)=""
^DD(64.1111,"GL",0,1,.01)=""
^DD(64.1111,"GL",0,2,1)=""
^DD(64.1111,"GL",0,3,2)=""
^DD(64.1111,"GL",0,6,5)=""
^DD(64.1111,"GL",0,7,6)=""
^DD(64.1111,"GL",0,8,7)=""
^DD(64.1111,"GL",0,9,8)=""
^DD(64.1111,"GL",0,10,9)=""
^DD(64.1111,"GL",0,11,10)=""
^DD(64.1111,"GL",0,12,11)=""
^DD(64.1111,"GL",0,13,12)=""
^DD(64.1111,"GL",0,14,13)=""
^DD(64.1111,"GL",0,15,14)=""
^DD(64.1111,"GL",0,16,15)=""
^DD(64.1111,"GL",0,17,16)=""
^DD(64.1111,"GL",0,18,17)=""
^DD(64.1111,"GL",0,19,18)=""
^DD(64.1111,"GL",0,20,19)=""
^DD(64.1111,"GL",0,21,20)=""
^DD(64.1111,"GL",0,22,21)=""
^DD(64.1111,"GL",0,23,22)=""
^DD(64.1111,"GL",0,24,23)=""
^DD(64.1111,"GL",0,25,7.5)=""
^DD(64.1111,"RQ",9)=""
^DD(64.112,0)="TODAY'S COMMENTS SUB-FIELD^^.01^1"
^DD(64.112,0,"DT")="2910111"
^DD(64.112,0,"NM","TODAY'S COMMENTS")=""
^DD(64.112,0,"UP")="64.11"
^DD(64.112,.01,0)="TODAY'S COMMENTS^W^^0;1^Q"
^DD(64.112,.01,"DT")="2910111"
^DD(64.112,"B","TODAY'S COMMENTS",.01)=""
^DD(64.112,"GL",0,1,.01)=""
^DD(64.12,0)="GENERAL COMMENTS SUB-FIELD^^.01^1"
^DD(64.12,0,"DT")="2910111"
^DD(64.12,0,"IX","B",64.12,.01)=""
^DD(64.12,0,"NM","GENERAL COMMENTS")=""
^DD(64.12,0,"UP")="64.1"
^DD(64.12,.01,0)="GENERAL COMMENTS^W^^0;1^Q"
^DD(64.12,.01,1,0)="^.1"
^DD(64.12,.01,1,1,0)="64.12^B"
^DD(64.12,.01,1,1,1)="S ^LRO(64.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(64.12,.01,1,1,2)="K ^LRO(64.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(64.12,.01,3)=""
^DD(64.12,.01,"DT")="2910111"
^DD(64.12,"B","GENERAL COMMENTS",.01)=""
^DD(64.12,"GL",0,1,.01)=""
^DD(64.12,"IX",.01)=""
^DD(64.13,0)="WKLD CODE COMMENTS SUB-FIELD^^1^2"
^DD(64.13,0,"DT")="2910112"
^DD(64.13,0,"NM","WKLD CODE COMMENTS")=""
^DD(64.13,0,"UP")="64.1"
^DD(64.13,.01,0)="WKLD CODE^MP64'X^LAM(^0;1^I $D(X) S DINUM=X"
^DD(64.13,.01,1,0)="^.1^^0"
^DD(64.13,.01,3)=""
^DD(64.13,.01,"DT")="2910112"
^DD(64.13,1,0)="COMMENTS^64.131^^1;0"
^DD(64.13,"B","COMMENTS",1)=""
^DD(64.13,"B","WKLD CODE",.01)=""
^DD(64.13,"GL",0,1,.01)=""
^DD(64.13,"GL",1,0,1)=""
^DD(64.13,"SB",64.131,1)=""
^DD(64.131,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(64.131,0,"DT")="2910112"
^DD(64.131,0,"NM","COMMENTS")=""
^DD(64.131,0,"UP")="64.13"
^DD(64.131,.01,0)="COMMENTS^W^^0;1^Q"
^DD(64.131,.01,"DT")="2910112"
^DD(64.131,"B","COMMENTS",.01)=""
^DD(64.131,"GL",0,1,.01)=""
^DD(64.186,0)="CODE NOTES SUB-FIELD^^.01^1"
^DD(64.186,0,"DT")="2990909"
^DD(64.186,0,"NM","CODE NOTES")=""
^DD(64.186,0,"UP")="64.018"
^DD(64.186,.01,0)="CODE NOTES^W^^0;1^Q"
^DD(64.186,.01,21,0)="^^2^2^2990909^"
^DD(64.186,.01,21,1,0)=" Enter notes concering this specific code. Use this field to record the"
^DD(64.186,.01,21,2,0)="history of code usage or special comments of historical nature."
^DD(64.186,.01,"DT")="2990909"
^DD(64.186,"B","CODE NOTES",.01)=""
^DD(64.186,"GL",0,1,.01)=""
^DD(64.19999,0)="FIELD^^3^4"
^DD(64.19999,0,"DI")="Y^Y"
^DD(64.19999,0,"DT")="2960918"
^DD(64.19999,0,"IX","B",64.19999,.01)=""
^DD(64.19999,0,"NM","ARCHIVED WKLD DATA")=""
^DD(64.19999,0,"VR")="5.2"
^DD(64.19999,0,"VRPK")="LR"
^DD(64.19999,.01,0)="INSTITUTION^RF^^0;1^K:$L(X)>35!($L(X)<1) X"
^DD(64.19999,.01,1,0)="^.1"
^DD(64.19999,.01,1,1,0)="64.19999^B"
^DD(64.19999,.01,1,1,1)="S ^LAR(64.19999,""B"",$E(X,1,30),DA)="""""
^DD(64.19999,.01,1,1,2)="K ^LAR(64.19999,""B"",$E(X,1,30),DA)"
^DD(64.19999,.01,3)="Answer must be 1-35 characters in length."
^DD(64.19999,.01,21,0)="^^1^1^2950515^^^^"
^DD(64.19999,.01,21,1,0)="This is the medical center which will be credited with the work completed."
^DD(64.19999,.01,23,0)="^^2^2^2950515^^^^"
^DD(64.19999,.01,23,1,0)="This field is determined by the DUZ(2) of the user.  Data"
^DD(64.19999,.01,23,2,0)="comes from ^DD(68.14,2,0)"
^DD(64.19999,.01,"DT")="2950118"
^DD(64.19999,1,0)="DATE^64.20999D^^1;0"
^DD(64.19999,1,21,0)="^^1^1^2950125^^^^"
^DD(64.19999,1,21,1,0)="This is the date that the work was verified or completed."
^DD(64.19999,2,0)="GENERAL COMMENTS^64.22999^^2;0"
^DD(64.19999,2,21,0)="^^4^4^2931227^"
^DD(64.19999,2,21,1,0)="General comments relating to this code can be entered in"
^DD(64.19999,2,21,2,0)="this field.  These comments are used only by the site at this"
^DD(64.19999,2,21,3,0)="time.  They are not transmitted by version 5.2 to the national"
^DD(64.19999,2,21,4,0)="data base."
^DD(64.19999,3,0)="WKLD CODE COMMENTS^64.23999^^3;0"
^DD(64.19999,3,21,0)="^^4^4^2940112^^^"
^DD(64.19999,3,21,1,0)="If there are specific comments about this wkld code the site"
^DD(64.19999,3,21,2,0)="wishes to record for their own purposes, they may be entered in"
^DD(64.19999,3,21,3,0)="this field.  These comments are not included in any national "
^DD(64.19999,3,21,4,0)="rolled up data."
^DD(64.19999,3,"DT")="2931117"
^DD(64.19999,"B","DATE",1)=""
^DD(64.19999,"B","GENERAL COMMENTS",2)=""
^DD(64.19999,"B","INSTITUTION",.01)=""
^DD(64.19999,"B","WKLD CODE COMMENTS",3)=""
^DD(64.19999,"GL",0,1,.01)=""
^DD(64.19999,"GL",1,0,1)=""
^DD(64.19999,"GL",2,0,2)=""
^DD(64.19999,"GL",3,0,3)=""
^DD(64.19999,"IX",.01)=""
^DD(64.19999,"RQ",.01)=""
^DD(64.19999,"SB",64.20999,1)=""
^DD(64.19999,"SB",64.22999,2)=""
^DD(64.19999,"SB",64.23999,3)=""
^DD(64.2,0)="FIELD^^19^19"
^DD(64.2,0,"DDA")="N"
^DD(64.2,0,"DT")="3040901"
^DD(64.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(64.2,0,"ID",11)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LAB(64.3,+$P(^(0),U,14),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(64.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(64.2,0,"IX","AC",64.2,15)=""
^DD(64.2,0,"IX","B",64.2,.01)=""
^DD(64.2,0,"IX","B",64.23,.01)=""
^DD(64.2,0,"IX","C",64.2,1)=""
^DD(64.2,0,"IX","D",64.2,11)=""
^DD(64.2,0,"IX","E",64.2,11)=""
^DD(64.2,0,"IX","F",64.2,1)=""
^DD(64.2,0,"IX","VR",64.2,.01)=""
^DD(64.2,0,"NM","WKLD SUFFIX CODES")=""
^DD(64.2,0,"PT",62.4,.14)=""
^DD(64.2,0,"PT",68.2,.14)=""
^DD(64.2,0,"PT",68.24,3)=""
^DD(64.2,0,"PT",95.3,6)=""
^DD(64.2,0,"VR")="5.2"
^DD(64.2,0,"VRPK")="LR"
^DD(64.2,0,"VRRV")="2.14"
^DD(64.2,.001,0)="SEQUENCE^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(64.2,.001,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(64.2,.001,21,0)="^^1^1^3040901^"
^DD(64.2,.001,21,1,0)="Sequence number of the entry in this file."
^DD(64.2,.001,"DT")="3040901"
^DD(64.2,.01,0)="NAME^RFI^^0;1^K:X["""""""" X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(64.2,.01,1,0)="^.1"
^DD(64.2,.01,1,1,0)="64.2^B"
^DD(64.2,.01,1,1,1)="S ^LAB(64.2,""B"",$E(X,1,50),DA)="""""
^DD(64.2,.01,1,1,2)="K ^LAB(64.2,""B"",$E(X,1,50),DA)"
^DD(64.2,.01,1,2,0)="64.2^VR^MUMPS"
^DD(64.2,.01,1,2,1)="S ^LAB(64.2,""VR"")=$G(^LAB(64.2,""VR""))"
^DD(64.2,.01,1,2,2)="Q"
^DD(64.2,.01,1,2,3)="Indicates which data version"
^DD(64.2,.01,1,2,"%D",0)="^^1^1^2940915^"
^DD(64.2,.01,1,2,"%D",1,0)="This X-Ref is to track which version of data has been installed."
^DD(64.2,.01,1,2,"DT")="2940915"
^DD(64.2,.01,3)="Answer must be 1-50 characters in length."
^DD(64.2,.01,21,0)="^^6^6^2930422^^"
^DD(64.2,.01,21,1,0)="Name of the method to be used in LMIP workload recording. The starting"
^DD(64.2,.01,21,2,0)="data base was obtained from College of Clinical Pathologist (CAP) Laboratory"
^DD(64.2,.01,21,3,0)="Recording Method manual by permission of the college. Howver the CAP codes"
^DD(64.2,.01,21,4,0)="have been expanded and new numbering scheme developed by Department of"
^DD(64.2,.01,21,5,0)="Veteran Affairs. These entries support the Workload recording file design"
^DD(64.2,.01,21,6,0)="to allow automated collection and reporting of laboratory workload."
^DD(64.2,.01,"DEL",1,0)="I 1"
^DD(64.2,.01,"DT")="3041110"
^DD(64.2,.05,0)="SYNONYM^64.23^^1;0"
^DD(64.2,.05,21,0)="^^1^1^2930325^"
^DD(64.2,.05,21,1,0)=" This field is used for a shorten name or alternate identifier."
^DD(64.2,1,0)="WKLD SUFFIX CODE^RFI^^0;2^S X1=$P(X,""."",2) Q:X1=""0000""  K:X1>9999!(X1<1)!(X'?1"".""4.5N) X I '$D(DIU(0)),$D(X),$D(^LAB(64.2,""F"",X)) D EN^DDIOL(""Duplicate Code"","""",""!?20"") K X"
^DD(64.2,1,1,0)="^.1^^-1"
^DD(64.2,1,1,1,0)="64.2^C"
^DD(64.2,1,1,1,1)="S ^LAB(64.2,""C"",$E(X,1,30)_"" "",DA)="""""
^DD(64.2,1,1,1,2)="K ^LAB(64.2,""C"",$E(X,1,30)_"" "",DA)"
^DD(64.2,1,1,1,"DT")="2910212"
^DD(64.2,1,1,2,0)="64.2^F"
^DD(64.2,1,1,2,1)="S ^LAB(64.2,""F"",$E(X,1,30),DA)="""""
^DD(64.2,1,1,2,2)="K ^LAB(64.2,""F"",$E(X,1,30),DA)"
^DD(64.2,1,1,2,"DT")="2910212"
^DD(64.2,1,3)="Type a Number between .0001 and .9999, 4 Decimal Digits"
^DD(64.2,1,21,0)="^^2^2^2921020^^"
^DD(64.2,1,21,1,0)="Enter the four digit suffix code, including the decimal point, for"
^DD(64.2,1,21,2,0)="this instrument and manufacturer."
^DD(64.2,1,"DT")="3040901"
^DD(64.2,2,0)="UNIT WEIGHT^NJ5,1^^0;3^K:+X'=X!(X>999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(64.2,2,3)="Type a Number between .1 and 999, 1 Decimal Digit"
^DD(64.2,2,21,0)="^^2^2^2930325^"
^DD(64.2,2,21,1,0)=" The numerical value assigned to this suffix should be entered in this "
^DD(64.2,2,21,2,0)="field."
^DD(64.2,2,"DT")="2950217"
^DD(64.2,4,0)="BILLABLE PROCEDURE^S^1:YES;^0;5^Q"
^DD(64.2,4,3)=""
^DD(64.2,4,21,0)="^^2^2^2920527^^^"
^DD(64.2,4,21,1,0)="Is this procedure reportable with respect to CLIA-88"
^DD(64.2,4,21,2,0)="interpretation of total number of (billable/reportable) test count."
^DD(64.2,4,23,0)="^^4^4^2920527^^"
^DD(64.2,4,23,1,0)="   Use this field to determine if this procedure should be included in"
^DD(64.2,4,23,2,0)="the total number of reportable test(s) performed on patients. Not all"
^DD(64.2,4,23,3,0)="procedures are done on patient(s) specimens or result in a reportable"
^DD(64.2,4,23,4,0)="clinical value."
^DD(64.2,4,"DT")="2930609"
^DD(64.2,5,0)="Reserved 1^F^^0;6^K:$L(X)>5!($L(X)<5) X"
^DD(64.2,5,3)="Answer must be 5 characters in length."
^DD(64.2,5,21,0)="^^1^1^2891220^"
^DD(64.2,5,21,1,0)="Enter the segment of the VA Amis form the total value should be entered."
^DD(64.2,5,"DT")="2921020"
^DD(64.2,6,0)="UNIT FOR COUNT^P64.22'^LAB(64.22,^0;7^Q"
^DD(64.2,6,21,0)="^^3^3^2891220^^"
^DD(64.2,6,21,1,0)="Defines for each procedure what is to be counted to obtain the raw"
^DD(64.2,6,21,2,0)="count."
^DD(64.2,6,21,3,0)=""
^DD(64.2,6,"DT")="2901222"
^DD(64.2,7,0)="COST^NJ8,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(64.2,7,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(64.2,7,21,0)="^^2^2^2930325^"
^DD(64.2,7,21,1,0)=" If the site wished to assign a locally derived cost figure for this suffix"
^DD(64.2,7,21,2,0)="it can be entered into this field."
^DD(64.2,7,"DT")="2911029"
^DD(64.2,8,0)="PRICE^NJ6,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>500)!(X<.01) X"
^DD(64.2,8,3)="Type a Dollar Amount between .01 and 500, 2 Decimal Digits"
^DD(64.2,8,21,0)="^^5^5^2970507^"
^DD(64.2,8,21,1,0)=" This field is not use to determine price or cost. Only the Cost and Price"
^DD(64.2,8,21,2,0)="fields of WKLD CODE files are used by reports."
^DD(64.2,8,21,3,0)=" "
^DD(64.2,8,21,4,0)="This field is over written when new codes are constructed by joining"
^DD(64.2,8,21,5,0)="prefix code to suffix codes.  Prefix code cost used for all new codes."
^DD(64.2,8,"DT")="2970507"
^DD(64.2,9,0)="SORTING GROUP^F^^0;12^K:$L(X)>10!($L(X)<1) X"
^DD(64.2,9,3)="Answer must be 1-10 characters in length."
^DD(64.2,9,21,0)="^^3^3^2940316^^^^"
^DD(64.2,9,21,1,0)=" This field is intended to be used by the local site. This field is not"
^DD(64.2,9,21,2,0)="used by the wkld package, but this field could be used to enable"
^DD(64.2,9,21,3,0)="the site to sort on this field using FileMan."
^DD(64.2,9,"DT")="2930426"
^DD(64.2,10,0)="SPECIAL CODE^S^1:YES;^0;13^Q"
^DD(64.2,10,21,0)="^^1^1^2940316^^"
^DD(64.2,10,21,1,0)="If this suffix code is an experimentally assigned value, enter YES."
^DD(64.2,10,"DT")="2891220"
^DD(64.2,11,0)="MANUFACTURER^P64.3'^LAB(64.3,^0;14^Q"
^DD(64.2,11,1,0)="^.1"
^DD(64.2,11,1,1,0)="64.2^D"
^DD(64.2,11,1,1,1)="S ^LAB(64.2,""D"",$E(X,1,30),DA)="""""
^DD(64.2,11,1,1,2)="K ^LAB(64.2,""D"",$E(X,1,30),DA)"
^DD(64.2,11,1,1,"DT")="2920714"
^DD(64.2,11,1,2,0)="64.2^E"
^DD(64.2,11,1,2,1)="S:$D(^LAB(64.3,+X,0)) ^LAB(64.2,""E"",$E($P($G(^LAB(64.3,+X,0)),U),1,50),DA)="""""
^DD(64.2,11,1,2,2)="K:$D(^LAB(64.3,+X,0)) ^LAB(64.2,""E"",$E($P($G(^LAB(64.3,+X,0)),U),1,50),DA)"
^DD(64.2,11,1,2,"DT")="2920714"
^DD(64.2,11,21,0)="^^2^2^2891220^"
^DD(64.2,11,21,1,0)="Enter the manufacturer of the instrument having this WKLD code"
^DD(64.2,11,21,2,0)="suffix."
^DD(64.2,11,"DT")="2920714"
^DD(64.2,12,0)="WKLD CODE LAB SECTION^RP64.21'^LAB(64.21,^0;15^Q"
^DD(64.2,12,3)=""
^DD(64.2,12,21,0)="^^2^2^2930325^"
^DD(64.2,12,21,1,0)=" This field contains the nationally assign section for this suffix. This"
^DD(64.2,12,21,2,0)="field will be used during national rollup."
^DD(64.2,12,"DT")="2970507"
^DD(64.2,13,0)="Reserved 3^NJ2,0^^0;16^K:+X'=X!(X>40)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.2,13,3)="Type a Number between 1 and 40, 0 Decimal Digits"
^DD(64.2,13,21,0)="^^2^2^2930325^"
^DD(64.2,13,21,1,0)="  This field is not used by version 5.2. A later version may make use"
^DD(64.2,13,21,2,0)="of this field."
^DD(64.2,13,"DT")="2930325"
^DD(64.2,15,0)="ACTIVATE WKLD CODE^S^1:YES;^0;17^Q"
^DD(64.2,15,1,0)="^.1"
^DD(64.2,15,1,1,0)="64.2^AC"
^DD(64.2,15,1,1,1)="S ^LAB(64.2,""AC"",$E(X,1,30),DA)="""""
^DD(64.2,15,1,1,2)="K ^LAB(64.2,""AC"",$E(X,1,30),DA)"
^DD(64.2,15,1,1,3)="Used to determine active codes at this site"
^DD(64.2,15,1,1,"DT")="2910112"
^DD(64.2,15,21,0)="^^3^3^2930426^^"
^DD(64.2,15,21,1,0)=" This field can be used to determine if this suffix has been used in"
^DD(64.2,15,21,2,0)="previous reports by setting this field to yes. Then sort on this field"
^DD(64.2,15,21,3,0)="using Fileman for print outs."
^DD(64.2,15,"DT")="2910112"
^DD(64.2,16,0)="BATCH ANALYZER^S^1:YES;^0;18^Q"
^DD(64.2,16,21,0)="^^2^2^2930325^"
^DD(64.2,16,21,1,0)=" If this particular suffix is for a batch analyzer, set this field to"
^DD(64.2,16,21,2,0)="yes."
^DD(64.2,16,"DT")="2910329"
^DD(64.2,18,0)="PRINT NAME^F^^2;1^K:$L(X)>20!($L(X)<1) X"
^DD(64.2,18,3)="Answer must be 1-20 characters in length."
^DD(64.2,18,21,0)="^^1^1^2940509^"
^DD(64.2,18,21,1,0)="This is the print name of the test."
^DD(64.2,18,"DT")="2930408"
^DD(64.2,19,0)="VENDOR^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(64.2,19,3)="Answer must be 1-30 characters in length."
^DD(64.2,19,21,0)="^^1^1^3010108^"
^DD(64.2,19,21,1,0)="This is the normal free text name of the Manufacturer."
^DD(64.2,19,"DT")="3010108"
^DD(64.2,"B","ACTIVATE WKLD CODE",15)=""
^DD(64.2,"B","BATCH ANALYZER",16)=""
^DD(64.2,"B","BILLABLE PROCEDURE",4)=""
^DD(64.2,"B","COST",7)=""
^DD(64.2,"B","MANUFACTURER",11)=""
^DD(64.2,"B","NAME",.01)=""
^DD(64.2,"B","PRICE",8)=""
^DD(64.2,"B","PRINT NAME",18)=""
^DD(64.2,"B","Reserved 1",5)=""
^DD(64.2,"B","Reserved 3",13)=""
^DD(64.2,"B","SEQUENCE",.001)=""
^DD(64.2,"B","SORTING GROUP",9)=""
^DD(64.2,"B","SPECIAL CODE",10)=""
^DD(64.2,"B","SYNONYM",.05)=""
^DD(64.2,"B","UNIT FOR COUNT",6)=""
^DD(64.2,"B","UNIT WEIGHT",2)=""
^DD(64.2,"B","VENDOR",19)=""
^DD(64.2,"B","WKLD CODE LAB SECTION",12)=""
^DD(64.2,"B","WKLD SUFFIX CODE",1)=""
^DD(64.2,"GL",0,1,.01)=""
^DD(64.2,"GL",0,2,1)=""
^DD(64.2,"GL",0,3,2)=""
^DD(64.2,"GL",0,5,4)=""
^DD(64.2,"GL",0,6,5)=""
^DD(64.2,"GL",0,7,6)=""
^DD(64.2,"GL",0,10,7)=""
^DD(64.2,"GL",0,11,8)=""
^DD(64.2,"GL",0,12,9)=""
^DD(64.2,"GL",0,13,10)=""
^DD(64.2,"GL",0,14,11)=""
^DD(64.2,"GL",0,15,12)=""
^DD(64.2,"GL",0,16,13)=""
^DD(64.2,"GL",0,17,15)=""
^DD(64.2,"GL",0,18,16)=""
^DD(64.2,"GL",1,0,.05)=""
^DD(64.2,"GL",2,1,18)=""
^DD(64.2,"GL",2,2,19)=""
^DD(64.2,"IX",.01)=""
^DD(64.2,"IX",1)=""
^DD(64.2,"IX",11)=""
^DD(64.2,"IX",15)=""
^DD(64.2,"RQ",.01)=""
^DD(64.2,"RQ",1)=""
^DD(64.2,"RQ",12)=""
^DD(64.2,"SB",64.23,.05)=""
^DD(64.20999,0)="DATE SUB-FIELD^^2^4"
^DD(64.20999,0,"DT")="2960918"
^DD(64.20999,0,"IX","B",64.20999,.01)=""
^DD(64.20999,0,"NM","DATE")=""
^DD(64.20999,0,"UP")="64.19999"
^DD(64.20999,.01,0)="DATE^MRD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(64.20999,.01,1,0)="^.1"
^DD(64.20999,.01,1,1,0)="64.20999^B"
^DD(64.20999,.01,1,1,1)="S ^LAR(64.19999,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.20999,.01,1,1,2)="K ^LAR(64.19999,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.20999,.01,23,0)="^^1^1^2950125^^^^"
^DD(64.20999,.01,23,1,0)="Data comes from the 1st piece of ^DD(68.14,1,0) separated by "".""."
^DD(64.20999,.01,"DT")="2950125"
^DD(64.20999,.03,0)="DATA REPORTED^F^^0;2^K:$L(X)>5!($L(X)<3) X"
^DD(64.20999,.03,3)="Answer must be 3-5 characters in length."
^DD(64.20999,.03,21,0)="^^3^3^2931227^^^"
^DD(64.20999,.03,21,1,0)="After the data has been extracted by Step 1 of LMIP reporting process,"
^DD(64.20999,.03,21,2,0)="this field is set to yes after being compiled into the LAB MONTHLY WORKLOADS"
^DD(64.20999,.03,21,3,0)="file(#67.9)."
^DD(64.20999,.03,"DT")="2931116"
^DD(64.20999,1,0)="WKLD CODE^64.21999^^1;0"
^DD(64.20999,2,0)="TODAY'S COMMENTS^64.24999^^2;0"
^DD(64.20999,"B","DATA REPORTED",.03)=""
^DD(64.20999,"B","DATE",.01)=""
^DD(64.20999,"B","TODAY'S COMMENTS",2)=""
^DD(64.20999,"B","WKLD CODE",1)=""
^DD(64.20999,"GL",0,1,.01)=""
^DD(64.20999,"GL",0,2,.03)=""
^DD(64.20999,"GL",1,0,1)=""
^DD(64.20999,"GL",2,0,2)=""
^DD(64.20999,"IX",.01)=""
^DD(64.20999,"RQ",.01)=""
^DD(64.20999,"SB",64.21999,1)=""
^DD(64.20999,"SB",64.24999,2)=""
^DD(64.21,0)="FIELD^^3^4"
^DD(64.21,0,"DT")="2930419"
^DD(64.21,0,"IX","B",64.21,.01)=""
^DD(64.21,0,"IX","C",64.21,1)=""
^DD(64.21,0,"IX","D",64.21,2)=""
^DD(64.21,0,"IX","E",64.21,.01)=""
^DD(64.21,0,"IX","VR",64.21,.01)=""
^DD(64.21,0,"NM","WKLD CODE LAB SECT")=""
^DD(64.21,0,"PT",64,13)=""
^DD(64.21,0,"PT",64.2,12)=""
^DD(64.21,0,"PT",64.8117,14)=""
^DD(64.21,0,"VR")="5.2"
^DD(64.21,0,"VRPK")="LR"
^DD(64.21,.01,0)="NAME^RFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(64.21,.01,1,0)="^.1"
^DD(64.21,.01,1,1,0)="64.21^B"
^DD(64.21,.01,1,1,1)="S ^LAB(64.21,""B"",$E(X,1,30),DA)="""""
^DD(64.21,.01,1,1,2)="K ^LAB(64.21,""B"",$E(X,1,30),DA)"
^DD(64.21,.01,1,2,0)="64.21^E^MUMPS"
^DD(64.21,.01,1,2,1)="D UP^LRXREF S ^LAB(64.21,""E"",X,DA)="""""
^DD(64.21,.01,1,2,2)="D UP^LRXREF K ^LAB(64.21,""E"",X,DA)"
^DD(64.21,.01,1,2,"DT")="2901221"
^DD(64.21,.01,1,3,0)="64.21^VR^MUMPS"
^DD(64.21,.01,1,3,1)="S ^LAB(64.21,""VR"")=$G(^LAB(64.21,""VR""))"
^DD(64.21,.01,1,3,2)="Q"
^DD(64.21,.01,1,3,3)="Indicates which version of data has been installed."
^DD(64.21,.01,1,3,"%D",0)="^^1^1^2940915^"
^DD(64.21,.01,1,3,"%D",1,0)="This X-Ref indicates the version of data loaded in this file."
^DD(64.21,.01,1,3,"DT")="2940915"
^DD(64.21,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(64.21,.01,21,0)="^^1^1^2930325^"
^DD(64.21,.01,21,1,0)="  This field contains the name of this national lab section."
^DD(64.21,.01,"DEL",1,0)="I 1"
^DD(64.21,.01,"DT")="3021231"
^DD(64.21,1,0)="ABBREV^FI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(64.21,1,1,0)="^.1"
^DD(64.21,1,1,1,0)="64.21^C"
^DD(64.21,1,1,1,1)="S ^LAB(64.21,""C"",$E(X,1,30),DA)="""""
^DD(64.21,1,1,1,2)="K ^LAB(64.21,""C"",$E(X,1,30),DA)"
^DD(64.21,1,3)="Answer must be 1-5 characters in length."
^DD(64.21,1,21,0)="^^1^1^2930412^^"
^DD(64.21,1,21,1,0)=" This field contains the shorten name for this lab section."
^DD(64.21,1,"DT")="3021231"
^DD(64.21,2,0)="SYNONYM^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(64.21,2,1,0)="^.1"
^DD(64.21,2,1,1,0)="64.21^D"
^DD(64.21,2,1,1,1)="S ^LAB(64.21,""D"",$E(X,1,30),DA)="""""
^DD(64.21,2,1,1,2)="K ^LAB(64.21,""D"",$E(X,1,30),DA)"
^DD(64.21,2,3)="Answer must be 1-2 characters in length."
^DD(64.21,2,21,0)="^^2^2^2930325^"
^DD(64.21,2,21,1,0)=" If this lab section is also known by another name, it should be entered"
^DD(64.21,2,21,2,0)="in this field."
^DD(64.21,2,"DT")="2901206"
^DD(64.21,3,0)="LAB DIVISION^RS^AP:ANATOMIC PATH;CP:CLINICAL PATH;GL:GENERAL LAB SUPPORT;^0;4^Q"
^DD(64.21,3,21,0)="^^1^1^2930419^^"
^DD(64.21,3,21,1,0)=" This field contains the major lab section to which it is associated with."
^DD(64.21,3,"DT")="2930419"
^DD(64.21,"B","ABBREV",1)=""
^DD(64.21,"B","LAB DIVISION",3)=""
^DD(64.21,"B","NAME",.01)=""
^DD(64.21,"B","SYNONYM",2)=""
^DD(64.21,"GL",0,1,.01)=""
^DD(64.21,"GL",0,2,1)=""
^DD(64.21,"GL",0,3,2)=""
^DD(64.21,"GL",0,4,3)=""
^DD(64.21,"IX",.01)=""
^DD(64.21,"IX",1)=""
^DD(64.21,"IX",2)=""
^DD(64.21,"RQ",.01)=""
^DD(64.21,"RQ",3)=""
^DD(64.21999,0)="WKLD CODE SUB-FIELD^^5^9"
^DD(64.21999,0,"DT")="2960918"
^DD(64.21999,0,"IX","B",64.21999,.01)=""
^DD(64.21999,0,"NM","WKLD CODE")=""
^DD(64.21999,0,"UP")="64.20999"
^DD(64.21999,.01,0)="WKLD CODE NAME^MF^^0;1^K:$L(X)>61!($L(X)<1) X"
^DD(64.21999,.01,1,0)="^.1"
^DD(64.21999,.01,1,1,0)="64.21999^B"
^DD(64.21999,.01,1,1,1)="S ^LAR(64.19999,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.21999,.01,1,1,2)="K ^LAR(64.19999,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.21999,.01,3)="Answer must be 1-61 characters in length."
^DD(64.21999,.01,21,0)="^^4^4^2960918^^^^"
^DD(64.21999,.01,21,1,0)="This field points to the WKLD code file 64.  This file contains all of "
^DD(64.21999,.01,21,2,0)="the specific information for the code.  The file is updated by the"
^DD(64.21999,.01,21,3,0)="developing ISC.  All official codes will be exported by the package."
^DD(64.21999,.01,21,4,0)="In this file, the WKLD CODE is stored in external form. "
^DD(64.21999,.01,23,0)="6^^5^5^2960918^"
^DD(64.21999,.01,23,1,0)="Not all of the possible combination of WKLD codes are exported with the"
^DD(64.21999,.01,23,2,0)="file.  As the site needs a specific method WKLD code the software will"
^DD(64.21999,.01,23,3,0)="generate the required WKLD code and place it into a file."
^DD(64.21999,.01,23,4,0)="All of the basic WKLD codes are exported with the package.  The additional"
^DD(64.21999,.01,23,5,0)="Data comes from ^DD(68.14,.01,0)."
^DD(64.21999,.01,"DT")="2960918"
^DD(64.21999,.02,0)="WKLD CODE NUMBER^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(64.21999,.02,3)="Answer must be 1-15 characters in length."
^DD(64.21999,.02,21,0)="^^1^1^2960215^^^"
^DD(64.21999,.02,21,1,0)="This is the internal entry number to WKLD CODE file (#64)."
^DD(64.21999,.02,"DT")="2960215"
^DD(64.21999,.03,0)="UNIT WEIGHT^NJ5,1X^^0;2^K:+X'=X!(X>900)!(X<0)!(X?.E1"".""2N.N) X"
^DD(64.21999,.03,3)="Type a Number between .1 and 900, 1 Decimal Digit"
^DD(64.21999,.03,"DT")="2940105"
^DD(64.21999,.04,0)="CONSTITUENT WT^NJ5,1^^0;3^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""2N.N) X"
^DD(64.21999,.04,3)="Type a Number between 0 and 500, 1 Decimal Digit"
^DD(64.21999,.04,"DT")="2940111"
^DD(64.21999,1,0)="ACCESSION WKLD CODE TIME^64.40999^^1;0"
^DD(64.21999,1,"DT")="2931117"
^DD(64.21999,2,0)="STANDARDS^NJ9,2^^S;1^K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"".""3N.N) X"
^DD(64.21999,2,3)="Type a Number between -1000 and 100000, 2 Decimal Digits"
^DD(64.21999,2,21,0)="^^5^5^2931227^"
^DD(64.21999,2,21,1,0)="This field will contain the number of standards used in"
^DD(64.21999,2,21,2,0)="any one day.  Since standards are not accessioned, this is"
^DD(64.21999,2,21,3,0)="the only way to record their number.  After each verify session"
^DD(64.21999,2,21,4,0)="the technologist is prompted for the number of standards this"
^DD(64.21999,2,"DT")="2931117"
^DD(64.21999,3,0)="QC^NJ9,2^^S;2^K:+X'=X!(X>100000)!(X<-1000)!(X?.E1"".""3N.N) X"
^DD(64.21999,3,3)="Type a Number between -1000 and 100000, 2 Decimal Digits"
^DD(64.21999,3,21,0)="^^4^4^2931227^"
^DD(64.21999,3,21,1,0)="This field contains the number of QC which were done on"
^DD(64.21999,3,21,2,0)="this date.  This field is similar to the STANDARDS field,"
^DD(64.21999,3,21,3,0)="except it also contained Quality Control which was accessioned"
^DD(64.21999,3,21,4,0)="and verified in the normal manner."
^DD(64.21999,3,"DT")="2931117"
^DD(64.21999,4,0)="REPEATS^NJ8,2^^S;3^K:+X'=X!(X>10000)!(X<-1000)!(X?.E1"".""3N.N) X"
^DD(64.21999,4,3)="Type a Number between -1000 and 10000, 2 Decimal Digits"
^DD(64.21999,4,"DT")="2931117"
^DD(64.21999,5,0)="MANUAL INPUT WORKLOAD^NJ9,2^^S;4^K:+X'=X!(X>999999)!(X<-10000)!(X?.E1"".""3N.N) X"
^DD(64.21999,5,3)="Type a Number between -10000 and 999999, 2 Decimal Digits"
^DD(64.21999,5,"DT")="2931117"
^DD(64.21999,"B","ACCESSION WKLD CODE TIME",1)=""
^DD(64.21999,"B","CONSTITUENT WT",.04)=""
^DD(64.21999,"B","MANUAL INPUT WORKLOAD",5)=""
^DD(64.21999,"B","QC",3)=""
^DD(64.21999,"B","REPEATS",4)=""
^DD(64.21999,"B","STANDARDS",2)=""
^DD(64.21999,"B","UNIT WEIGHT",.03)=""
^DD(64.21999,"B","WKLD CODE NAME",.01)=""
^DD(64.21999,"B","WKLD CODE NUMBER",.02)=""
^DD(64.21999,"GL",0,1,.01)=""
^DD(64.21999,"GL",0,2,.03)=""
^DD(64.21999,"GL",0,3,.04)=""
^DD(64.21999,"GL",0,4,.02)=""
^DD(64.21999,"GL",1,0,1)=""
^DD(64.21999,"GL","S",1,2)=""
^DD(64.21999,"GL","S",2,3)=""
^DD(64.21999,"GL","S",3,4)=""
^DD(64.21999,"GL","S",4,5)=""
^DD(64.21999,"IX",.01)=""
^DD(64.21999,"SB",64.40999,1)=""
^DD(64.22,0)="FIELD^^1^2"
^DD(64.22,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(64.22,0,"IX","B",64.22,.01)=""
^DD(64.22,0,"IX","C",64.22,1)=""
^DD(64.22,0,"IX","D",64.22,1)=""
^DD(64.22,0,"IX","VR",64.22,.01)=""
^DD(64.22,0,"NM","WKLD ITEM FOR COUNT")=""
^DD(64.22,0,"PT",64,6)=""
^DD(64.22,0,"PT",64.2,6)=""
^DD(64.22,0,"PT",64.8117,7)=""
^DD(64.22,0,"VR")="5.2"
^DD(64.22,0,"VRPK")="LR"
^DD(64.22,0,"VRRV")="2.14"
^DD(64.22,.01,0)="ABBREV^RFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X"
^DD(64.22,.01,1,0)="^.1"
^DD(64.22,.01,1,1,0)="64.22^B"
^DD(64.22,.01,1,1,1)="S ^LAB(64.22,""B"",$E(X,1,30),DA)="""""
^DD(64.22,.01,1,1,2)="K ^LAB(64.22,""B"",$E(X,1,30),DA)"
^DD(64.22,.01,1,2,0)="64.22^VR^MUMPS"
^DD(64.22,.01,1,2,1)="S ^LAB(64.22,""VR"")=$G(^LAB(64.22,""VR""))"
^DD(64.22,.01,1,2,2)="Q"
^DD(64.22,.01,1,2,3)="Indicates which version of data is installed."
^DD(64.22,.01,1,2,"%D",0)="^^1^1^2940915^"
^DD(64.22,.01,1,2,"%D",1,0)=" This X-Ref is used to track which version of data has been installed."
^DD(64.22,.01,1,2,"DT")="2940915"
^DD(64.22,.01,3)="Answer must be 2-10 characters in length."
^DD(64.22,.01,21,0)="^^1^1^2930325^"
^DD(64.22,.01,21,1,0)=" This field contains a short version of this item."
^DD(64.22,.01,"DEL",1,0)="I 1"
^DD(64.22,.01,"DT")="3021231"
^DD(64.22,1,0)="Full Name^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(64.22,1,1,0)="^.1"
^DD(64.22,1,1,1,0)="64.22^C"
^DD(64.22,1,1,1,1)="S ^LAB(64.22,""C"",$E(X,1,30),DA)="""""
^DD(64.22,1,1,1,2)="K ^LAB(64.22,""C"",$E(X,1,30),DA)"
^DD(64.22,1,1,2,0)="64.22^D^MUMPS"
^DD(64.22,1,1,2,1)="D UP^LRXREF S ^LAB(64.22,""D"",X,DA)="""""
^DD(64.22,1,1,2,2)="D UP^LRXREF K ^LAB(64.22,""D"",X,DA)"
^DD(64.22,1,3)="Answer must be 2-30 characters in length."
^DD(64.22,1,21,0)="^^1^1^2930325^"
^DD(64.22,1,21,1,0)=" This field has the longer version of the name."
^DD(64.22,1,"DT")="2901211"
^DD(64.22,"B","ABBREV",.01)=""
^DD(64.22,"B","Full Name",1)=""
^DD(64.22,"GL",0,1,.01)=""
^DD(64.22,"GL",0,2,1)=""
^DD(64.22,"IX",.01)=""
^DD(64.22,"IX",1)=""
^DD(64.22,"RQ",.01)=""
^DD(64.22999,0)="GENERAL COMMENTS SUB-FIELD^^.01^1"
^DD(64.22999,0,"NM","GENERAL COMMENTS")=""
^DD(64.22999,0,"UP")="64.19999"
^DD(64.22999,.01,0)="GENERAL COMMENTS^W^^0;1^Q"
^DD(64.22999,.01,"DT")="2931117"
^DD(64.22999,"B","GENERAL COMMENTS",.01)=""
^DD(64.22999,"GL",0,1,.01)=""
^DD(64.23,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(64.23,0,"DT")="2950409"
^DD(64.23,0,"IX","B",64.23,.01)=""
^DD(64.23,0,"NM","SYNONYM")=""
^DD(64.23,0,"UP")="64.2"
^DD(64.23,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(64.23,.01,1,0)="^.1"
^DD(64.23,.01,1,1,0)="64.23^B"
^DD(64.23,.01,1,1,1)="S ^LAB(64.2,DA(1),1,""B"",$E(X,1,50),DA)="""""
^DD(64.23,.01,1,1,2)="K ^LAB(64.2,DA(1),1,""B"",$E(X,1,50),DA)"
^DD(64.23,.01,1,2,0)="64.2^B^MNEMONIC"
^DD(64.23,.01,1,2,1)="S:'$D(^LAB(64.2,""B"",$E(X,1,50),DA(1),DA)) ^(DA)=1"
^DD(64.23,.01,1,2,2)="I $D(^LAB(64.2,""B"",$E(X,1,50),DA(1),DA)),^(DA) K ^(DA)"
^DD(64.23,.01,1,2,"%D",0)="^^1^1^2901221^"
^DD(64.23,.01,1,2,"%D",1,0)="Another shorten name for this method."
^DD(64.23,.01,1,2,"DT")="2901221"
^DD(64.23,.01,3)="Answer must be 1-50 characters in length."
^DD(64.23,.01,"DT")="2991123"
^DD(64.23,"B","SYNONYM",.01)=""
^DD(64.23,"GL",0,1,.01)=""
^DD(64.23,"IX",.01)=""
^DD(64.23999,0)="WKLD CODE COMMENTS SUB-FIELD^^1^2"
^DD(64.23999,0,"IX","B",64.23999,.01)=""
^DD(64.23999,0,"NM","WKLD CODE COMMENTS")=""
^DD(64.23999,0,"UP")="64.19999"
^DD(64.23999,.01,0)="WKLD CODE^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(64.23999,.01,1,0)="^.1"
^DD(64.23999,.01,1,1,0)="64.23999^B"
^DD(64.23999,.01,1,1,1)="S ^LAR(64.19999,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(64.23999,.01,1,1,2)="K ^LAR(64.19999,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(64.23999,.01,3)="Answer must be 1-60 characters in length."
^DD(64.23999,.01,"DT")="2931117"
^DD(64.23999,1,0)="COMMENTS^64.60999^^1;0"
^DD(64.23999,"B","COMMENTS",1)=""
^DD(64.23999,"B","WKLD CODE",.01)=""
^DD(64.23999,"GL",0,1,.01)=""
^DD(64.23999,"GL",1,0,1)=""
^DD(64.23999,"IX",.01)=""
^DD(64.23999,"SB",64.60999,1)=""
^DD(64.24999,0)="TODAY'S COMMENTS SUB-FIELD^^.01^1"
^DD(64.24999,0,"NM","TODAY'S COMMENTS")=""
^DD(64.24999,0,"UP")="64.20999"
^DD(64.24999,.01,0)="TODAY'S COMMENTS^W^^0;1^Q"
^DD(64.24999,.01,"DT")="2931117"
^DD(64.24999,"B","TODAY'S COMMENTS",.01)=""
^DD(64.24999,"GL",0,1,.01)=""
^DD(64.3,0)="FIELD^^.01^2"
^DD(64.3,0,"DDA")="N"
^DD(64.3,0,"DT")="3040901"
^DD(64.3,0,"IX","B",64.3,.01)=""
^DD(64.3,0,"IX","VR",64.3,.01)=""
^DD(64.3,0,"NM","WKLD INSTRUMENT MANUFACTURER")=""
^DD(64.3,0,"PT",64,12)=""
^DD(64.3,0,"PT",64.2,11)=""
^DD(64.3,0,"PT",64.8117,13)=""
^DD(64.3,0,"VR")="5.2"
^DD(64.3,0,"VRPK")="LR"
^DD(64.3,0,"VRRV")="2.14"
^DD(64.3,.001,0)="SEQUENCE^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(64.3,.001,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(64.3,.001,"DT")="3040901"
^DD(64.3,.01,0)="NAME^RFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(64.3,.01,1,0)="^.1"
^DD(64.3,.01,1,1,0)="64.3^B"
^DD(64.3,.01,1,1,1)="S ^LAB(64.3,""B"",$E(X,1,30),DA)="""""
^DD(64.3,.01,1,1,2)="K ^LAB(64.3,""B"",$E(X,1,30),DA)"
^DD(64.3,.01,1,2,0)="64.3^VR^MUMPS"
^DD(64.3,.01,1,2,1)="S ^LAB(64.3,""VR"")=$G(^LAB(64.3,""VR""))"
^DD(64.3,.01,1,2,2)="Q"
^DD(64.3,.01,1,2,3)="Indicates which version of data is installed."
^DD(64.3,.01,1,2,"%D",0)="^^1^1^2940915^"
^DD(64.3,.01,1,2,"%D",1,0)=" This X-Ref is used to track what version of data is installed."
^DD(64.3,.01,1,2,"DT")="2940915"
^DD(64.3,.01,3)="Answer must be 2-30 characters in length."
^DD(64.3,.01,21,0)="^^1^1^2940317^^"
^DD(64.3,.01,21,1,0)=" This field contains the name of the manufacturer."
^DD(64.3,.01,"DEL",1,0)="I 1"
^DD(64.3,.01,"DT")="2950303"
^DD(64.3,"B","NAME",.01)=""
^DD(64.3,"B","SEQUENCE",.001)=""
^DD(64.3,"GL",0,1,.01)=""
^DD(64.3,"IX",.01)=""
^DD(64.3,"RQ",.01)=""
^DD(64.317,0)="DATE OF EXTRACT SUB-FIELD^^4^5"
^DD(64.317,0,"DT")="2960417"
^DD(64.317,0,"NM","DATE OF EXTRACT")=""
^DD(64.317,0,"UP")="64.03"
^DD(64.317,.01,0)="DATE OF EXTRACT^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.317,.01,1,0)="^.1"
^DD(64.317,.01,1,1,0)="64.03^B"
^DD(64.317,.01,1,1,1)="S ^LRO(64.03,""B"",$E(X,1,30),DA(1),DA)="""""
^DD(64.317,.01,1,1,2)="K ^LRO(64.03,""B"",$E(X,1,30),DA(1),DA)"
^DD(64.317,.01,1,1,"DT")="2960418"
^DD(64.317,.01,21,0)="^^1^1^2960417^"
^DD(64.317,.01,21,1,0)=" This is the date workload data was extracted from ^LRO(64.1."
^DD(64.317,.01,"DT")="2960418"
^DD(64.317,1,0)="EXTRACT START DATE^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.317,1,21,0)="^^3^3^2960417^"
^DD(64.317,1,21,1,0)=" This the date to begin scanning LRO(64.1 for workload. For example"
^DD(64.317,1,21,2,0)="if you want to extract workload for Jan 1, 1996 to Jan 30, 1996, you"
^DD(64.317,1,21,3,0)="should enter the Jan 1, 1996 date in this field."
^DD(64.317,1,"DT")="2960417"
^DD(64.317,2,0)="EXTRACT END DATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.317,2,21,0)="^^3^3^2960417^"
^DD(64.317,2,21,1,0)=" This the date to emd scanning LRO(64.1 for workload. For example"
^DD(64.317,2,21,2,0)="if you want to extract workload for Jan 1, 1996 to Jan 30, 1996, you"
^DD(64.317,2,21,3,0)="should enter the Jan 30, 1996 date in this field."
^DD(64.317,2,"DT")="2960417"
^DD(64.317,3,0)="COMPILE COMPLETE DATE^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.317,3,21,0)="^^2^2^2960417^"
^DD(64.317,3,21,1,0)=" This field is set by the routine after succesfully extracting workload"
^DD(64.317,3,21,2,0)="for the date range requested. This field should not be edited manually."
^DD(64.317,3,"DT")="2960417"
^DD(64.317,4,0)="USER^P200'^VA(200,^0;5^Q"
^DD(64.317,4,21,0)="^^2^2^2960417^"
^DD(64.317,4,21,1,0)=" This the person requesting the workload extraction process. This field"
^DD(64.317,4,21,2,0)="is set by the routine extracting the workload data."
^DD(64.317,4,"DT")="2960417"
^DD(64.317,"B","COMPILE COMPLETE DATE",3)=""
^DD(64.317,"B","DATE OF EXTRACT",.01)=""
^DD(64.317,"B","EXTRACT END DATE",2)=""
^DD(64.317,"B","EXTRACT START DATE",1)=""
^DD(64.317,"B","USER",4)=""
^DD(64.317,"GL",0,1,.01)=""
^DD(64.317,"GL",0,2,1)=""
^DD(64.317,"GL",0,3,2)=""
^DD(64.317,"GL",0,4,3)=""
^DD(64.317,"GL",0,5,4)=""
^DD(64.317,"IX",.01)=""
^DD(64.368,0)="RESULTS SUB-FIELD^^3^4"
^DD(64.368,0,"DT")="3021122"
^DD(64.368,0,"IX","B",64.368,.01)=""
^DD(64.368,0,"NM","RESULTS")=""
^DD(64.368,0,"UP")="64.036"
^DD(64.368,.01,0)="DSS TEST NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.368,.01,1,0)="^.1"
^DD(64.368,.01,1,1,0)="64.368^B"
^DD(64.368,.01,1,1,1)="S ^LAR(64.036,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.368,.01,1,1,2)="K ^LAR(64.036,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.368,.01,3)="Type a Number between 1 and 300, 0 Decimal Digits"
^DD(64.368,.01,"DT")="3021122"
^DD(64.368,1,0)="RESULTS^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(64.368,1,3)="Answer must be 1-10 characters in length."
^DD(64.368,1,21,0)="^^1^1^3001114^"
^DD(64.368,1,21,1,0)="This field contains the result value extracted for the test."
^DD(64.368,1,"DT")="2970219"
^DD(64.368,2,0)="HI/LO FLAG^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^DD(64.368,2,3)="Answer must be 1-2 characters in length."
^DD(64.368,2,21,0)="^^6^6^3001114^"
^DD(64.368,2,21,1,0)="This field contains the result high/low flags if appropriate."
^DD(64.368,2,21,2,0)="Were:"
^DD(64.368,2,21,3,0)=" L=low"
^DD(64.368,2,21,4,0)="*L=critical low"
^DD(64.368,2,21,5,0)=" H=high"
^DD(64.368,2,21,6,0)="*H=critical high"
^DD(64.368,2,"DT")="2970219"
^DD(64.368,3,0)="NLT CODE^P64'^LAM(^0;4^Q"
^DD(64.368,3,21,0)="^^2^2^3001114^"
^DD(64.368,3,21,1,0)="This field contains the pointer to WKLD CODE FILE (#64) file to identify"
^DD(64.368,3,21,2,0)="the results using laboratory specified National Laboratory Tests codes."
^DD(64.368,3,"DT")="2970219"
^DD(64.368,"B","DSS TEST NUMBER",.01)=""
^DD(64.368,"B","HI/LO FLAG",2)=""
^DD(64.368,"B","NLT CODE",3)=""
^DD(64.368,"B","RESULTS",1)=""
^DD(64.368,"GL",0,1,.01)=""
^DD(64.368,"GL",0,2,1)=""
^DD(64.368,"GL",0,3,2)=""
^DD(64.368,"GL",0,4,3)=""
^DD(64.368,"IX",.01)=""
^DD(64.369,0)="EXTRACTION DATA SUB-FIELD^^4^5"
^DD(64.369,0,"DT")="2970219"
^DD(64.369,0,"IX","B",64.369,.01)=""
^DD(64.369,0,"NM","EXTRACTION DATA")=""
^DD(64.369,0,"UP")="64.036"
^DD(64.369,.01,0)="EXTRACTION DATE^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(64.369,.01,1,0)="^.1"
^DD(64.369,.01,1,1,0)="64.369^B"
^DD(64.369,.01,1,1,1)="S ^LAR(64.036,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(64.369,.01,1,1,2)="K ^LAR(64.036,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(64.369,.01,21,0)="^^1^1^3001114^"
^DD(64.369,.01,21,1,0)="This field contains the date of the data extraction."
^DD(64.369,.01,"DT")="2970219"
^DD(64.369,1,0)="EXTRACT START DATE^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(64.369,1,21,0)="^^2^2^3001114^"
^DD(64.369,1,21,1,0)="This field contains the request date to begin extraction of result values."
^DD(64.369,1,21,2,0)="This value is passed in via the LRSDT variable by the calling application."
^DD(64.369,1,"DT")="2970219"
^DD(64.369,2,0)="EXTRACT END DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(64.369,2,21,0)="^^2^2^3001114^"
^DD(64.369,2,21,1,0)="This the requested end extraction of test results. This is pass in via the"
^DD(64.369,2,21,2,0)="variable LREDT by the calling application."
^DD(64.369,2,23,0)="^^3^3^3001114^"
^DD(64.369,2,23,1,0)="If the start date and end date are not in numeric order, the software will"
^DD(64.369,2,23,2,0)="reverse the dates. The extraction dates times are from 0001 hours of the"
^DD(64.369,2,23,3,0)="start date to 2400 hours of the end date."
^DD(64.369,2,"DT")="2970219"
^DD(64.369,3,0)="COMPLETED D/T^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.369,3,21,0)="^^1^1^3001114^"
^DD(64.369,3,21,1,0)="This field contains the date/time the extraction was completed."
^DD(64.369,3,"DT")="2970219"
^DD(64.369,4,0)="USER^P200'^VA(200,^0;5^Q"
^DD(64.369,4,21,0)="^^2^2^3001114^"
^DD(64.369,4,21,1,0)="This field contains the DUZ of the person that requested the extraction of"
^DD(64.369,4,21,2,0)="data. This field is a pointer to NEW PERSON (#200) file."
^DD(64.369,4,"DT")="2970219"
^DD(64.369,"B","COMPLETED D/T",3)=""
^DD(64.369,"B","EXTRACT END DATE",2)=""
^DD(64.369,"B","EXTRACT START DATE",1)=""
^DD(64.369,"B","EXTRACTION DATE",.01)=""
^DD(64.369,"B","USER",4)=""
^DD(64.369,"GL",0,1,.01)=""
^DD(64.369,"GL",0,2,1)=""
^DD(64.369,"GL",0,3,2)=""
^DD(64.369,"GL",0,4,3)=""
^DD(64.369,"GL",0,5,4)=""
^DD(64.369,"IX",.01)=""
^DD(64.40999,0)="ACCESSION WKLD CODE TIME SUB-FIELD^^23^23"
^DD(64.40999,0,"IX","B",64.40999,.01)=""
^DD(64.40999,0,"NM","ACCESSION WKLD CODE TIME")=""
^DD(64.40999,0,"UP")="64.21999"
^DD(64.40999,.01,0)="ACCESSION WKLD CODE TIME^MNJ9,4^^0;1^K:+X'=X!(X>2400)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(64.40999,.01,1,0)="^.1"
^DD(64.40999,.01,1,1,0)="64.40999^B"
^DD(64.40999,.01,1,1,1)="S ^LAR(64.19999,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.40999,.01,1,1,2)="K ^LAR(64.19999,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.40999,.01,3)="Type a Number between .0001 and 2400, 4 Decimal Digits"
^DD(64.40999,.01,21,0)="^^1^1^2931227^^"
^DD(64.40999,.01,21,1,0)="This hour and seconds when the test was verified."
^DD(64.40999,.01,"DT")="2931117"
^DD(64.40999,1,0)="LAB TEST^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(64.40999,1,3)="Answer must be 1-40 characters in length."
^DD(64.40999,1,21,0)="^^1^1^2931227^^"
^DD(64.40999,1,21,1,0)="This is the test in ^LAB(60 which was verified."
^DD(64.40999,1,"DT")="2931117"
^DD(64.40999,2,0)="WEIGHT MULTIPLIER^NJ4,0^^0;3^K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"".""1N.N) X"
^DD(64.40999,2,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(64.40999,2,21,0)="^^6^6^2931227^^"
^DD(64.40999,2,21,1,0)="This number is used to multiply the weight of the WKLD code.  This"
^DD(64.40999,2,21,2,0)="may be more than one if the test requires the same WKLD code more"
^DD(64.40999,2,21,3,0)="than once."
^DD(64.40999,2,21,4,0)="This number is taken from the old field in ^LAB(60 under WKLD code"
^DD(64.40999,2,21,6,0)="a value of 1 to be used."
^DD(64.40999,2,"DT")="2931116"
^DD(64.40999,3,0)="LAB DIVISION^F^^0;4^K:$L(X)>18!($L(X)<1) X"
^DD(64.40999,3,3)="Answer must be 1-18 characters in length."
^DD(64.40999,3,21,0)="^^3^3^2931227^^"
^DD(64.40999,3,21,1,0)="This is the overall area to which this workload is to be credited."
^DD(64.40999,3,21,2,0)="This should be the largest administrative/functional area of the"
^DD(64.40999,3,21,3,0)="laboratory service."
^DD(64.40999,3,"DT")="2931116"
^DD(64.40999,4,0)="MAJ. SECT^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(64.40999,4,3)="Answer must be 1-30 characters in length."
^DD(64.40999,4,21,0)="^^12^12^2931227^^^"
^DD(64.40999,4,21,1,0)="This should be the next smallest area of the laboratory service after"
^DD(64.40999,4,21,2,0)="the LAB DIVISION  This field is used to further break down the workload."
^DD(64.40999,4,21,3,0)="Generally this will be the ACCESSION area into which the order was"
^DD(64.40999,4,21,4,0)="accessioned.  However, this may not always be true.  To allow for"
^DD(64.40999,4,21,6,0)="used during the verification process."
^DD(64.40999,4,21,7,0)="Even if the verification method used itself, does not require a work list,"
^DD(64.40999,4,21,8,0)="one can control this field via that worklist.  There are two new fields"
^DD(64.40999,4,21,9,0)="in the LOAD/WORK LIST file (#68.2).  One of these fields is MAJOR"
^DD(64.40999,4,21,10,0)="ACCESSION AREA.  Whatever value is entered here will be used to tabulate"
^DD(64.40999,4,21,11,0)="the workload for this test.  If none is entered the test accession area"
^DD(64.40999,4,21,12,0)="will be used."
^DD(64.40999,4,"DT")="2931116"
^DD(64.40999,5,0)="SUBSECTION^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(64.40999,5,3)="Answer must be 1-30 characters in length."
^DD(64.40999,5,21,0)="^^12^12^2931227^^^"
^DD(64.40999,5,21,1,0)="This field represents the smallest functional unit of the laboratory"
^DD(64.40999,5,21,2,0)="service.  If there is a area smaller than the MAJ. ACC AREA, enter that"
^DD(64.40999,5,21,3,0)="area here.  Not all laboratories will have a smaller work area.  If the"
^DD(64.40999,5,21,4,0)="field is blank the MAJ. ACC AREA will be used.  For example, the MAJ ACC"
^DD(64.40999,5,21,6,0)="these must exist in the ACCESSION AREA file and may be used only for this"
^DD(64.40999,5,21,7,0)="purpose."
^DD(64.40999,5,21,8,0)="This field also works like the MAJ. ACC AREA, in that it is attached to"
^DD(64.40999,5,21,9,0)="a LOAD/WORK LIST.  It is controlled by selecting a worklist during"
^DD(64.40999,5,21,10,0)="verification."
^DD(64.40999,5,21,11,0)="'"
^DD(64.40999,5,21,12,0)="This data comes from ^DD(68.14,5,0)."
^DD(64.40999,5,"DT")="2931116"
^DD(64.40999,6,0)="ACC NO.^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(64.40999,6,3)="Answer must be 4-20 characters in length."
^DD(64.40999,6,21,0)="^^1^1^2931227^^"
^DD(64.40999,6,21,1,0)="This is the printable accession number, ie. CH 0101 1."
^DD(64.40999,6,"DT")="2931116"
^DD(64.40999,7,0)="PATIENT^F^^0;8^K:$L(X)>35!($L(X)<1) X"
^DD(64.40999,7,3)="Answer must be 1-35 characters in length."
^DD(64.40999,7,10)=""
^DD(64.40999,7,21,0)="^^3^3^2950821^^^"
^DD(64.40999,7,21,1,0)="Contains the file and entry number for the accession specimen."
^DD(64.40999,7,21,2,0)="If this field is manually edited, knowledge of variable pointer"
^DD(64.40999,7,21,3,0)="format is required."
^DD(64.40999,7,"DT")="2950821"
^DD(64.40999,8,0)="ORIGINAL ACC DATE^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(64.40999,8,21,0)="^^2^2^2931227^^^"
^DD(64.40999,8,21,1,0)="The date the specimen originally accessed.  Used this date to compute"
^DD(64.40999,8,21,2,0)="turn around times."
^DD(64.40999,8,"DT")="2931116"
^DD(64.40999,9,0)="DATE ORDERED^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.40999,9,21,0)="^^2^2^2931227^^"
^DD(64.40999,9,21,1,0)="The date when the test was ordered.  This is the date in ^LRO(69."
^DD(64.40999,9,21,2,0)="This can be used to look up specific order information."
^DD(64.40999,9,23,0)="^^1^1^2931227^^"
^DD(64.40999,9,23,1,0)="Data comes from ^DD(68.02,3,0)."
^DD(64.40999,9,"DT")="2931116"
^DD(64.40999,10,0)="SPECIMEN NO.^NJ6,0^^1;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.40999,10,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(64.40999,10,21,0)="^^3^3^2931227^"
^DD(64.40999,10,21,1,0)="This is the internal file number for the order date in"
^DD(64.40999,10,21,2,0)="^LRO(69,DATE ORDERED,1,SPECIMEN NO.,"
^DD(64.40999,10,21,3,0)="one can reference the ORDER FILE"
^DD(64.40999,10,"DT")="2931116"
^DD(64.40999,12,0)="REPORT ROUTING LOCATION^F^^1;3^K:$L(X)>20!($L(X)<1) X"
^DD(64.40999,12,3)="Answer must be 1-20 characters in length."
^DD(64.40999,12,21,0)="^^2^2^2931227^"
^DD(64.40999,12,21,1,0)="This is the abbreviation of the reporting location.  Not"
^DD(64.40999,12,21,2,0)="to be confused with ordering location."
^DD(64.40999,12,"DT")="2931116"
^DD(64.40999,13,0)="PRACTITIONER^F^^1;4^K:$L(X)>35!($L(X)<1) X"
^DD(64.40999,13,3)="Answer must be 1-35 characters in length."
^DD(64.40999,13,21,0)="^^1^1^2951024^^^"
^DD(64.40999,13,21,1,0)="The doctor which ordered the lab test"
^DD(64.40999,13,23,0)="^^1^1^2951024^^^"
^DD(64.40999,13,23,1,0)="This data is from ^DD(68.02,6.5,0)."
^DD(64.40999,13,"DT")="2951018"
^DD(64.40999,14,0)="TREATING SPECIALTY^F^^1;5^K:$L(X)>30!($L(X)<1) X"
^DD(64.40999,14,3)="Answer must be 1-30 characters in length."
^DD(64.40999,14,21,0)="^^3^3^2931227^"
^DD(64.40999,14,21,1,0)="This is the treating specialty of the ordering location."
^DD(64.40999,14,21,2,0)="Outpatient locations do not have treating specialties assigned"
^DD(64.40999,14,21,3,0)="in the file; therefore, this field may be blank."
^DD(64.40999,14,"DT")="2931116"
^DD(64.40999,15,0)="LOG IN PERSON^F^^1;6^K:$L(X)>35!($L(X)<1) X"
^DD(64.40999,15,3)="Answer must be 1-35 characters in length."
^DD(64.40999,15,21,0)="^^2^2^2951024^^"
^DD(64.40999,15,21,1,0)="This is the person who logged the specimen into the"
^DD(64.40999,15,21,2,0)="laboratory."
^DD(64.40999,15,23,0)="^^1^1^2951024^^"
^DD(64.40999,15,23,1,0)="Data comes from ^DD(68.02,6..7,0)."
^DD(64.40999,15,"DT")="2951024"
^DD(64.40999,16,0)="LOCATION TYPE^F^^1;7^K:$L(X)>20!($L(X)<1) X"
^DD(64.40999,16,3)="Answer must be 1-20 characters in length."
^DD(64.40999,16,21,0)="^^3^3^2960212^^"
^DD(64.40999,16,21,1,0)="The ordering location type.  The default is OTHER.  This"
^DD(64.40999,16,21,2,0)="field also describes the workload source, e.g. in patient,"
^DD(64.40999,16,21,3,0)="outpatient, or blood bank."
^DD(64.40999,16,23,0)="^^2^2^2960212^^"
^DD(64.40999,16,23,1,0)="Data comes from ^DD(68.02,94,0).  In the case of blood bank"
^DD(64.40999,16,23,2,0)="workload, the collection routine puts 'B' here."
^DD(64.40999,16,"DT")="2931116"
^DD(64.40999,17,0)="COUNT FOR WORKLOAD^F^^1;8^K:$L(X)>3!($L(X)<1) X"
^DD(64.40999,17,3)="Answer must be 1-3 characters in length."
^DD(64.40999,17,21,0)="^^2^2^2931227^"
^DD(64.40999,17,21,1,0)="Used by the software during report generation."
^DD(64.40999,17,21,2,0)="It indicates this data has already been calculated."
^DD(64.40999,17,"DT")="2931116"
^DD(64.40999,18,0)="ORDERING LOCATION^F^^1;9^K:$L(X)>30!($L(X)<1) X"
^DD(64.40999,18,3)="Answer must be 1-30 characters in length."
^DD(64.40999,18,21,0)="^^3^3^2931227^"
^DD(64.40999,18,21,1,0)="This is the ordering location.  This can be used to address"
^DD(64.40999,18,21,2,0)="hospital location test request.  This field is different from"
^DD(64.40999,18,21,3,0)="REPORT ROUTING LOCATION."
^DD(64.40999,18,"DT")="2931116"
^DD(64.40999,19,0)="INVERSE DATE COMPLETED^NJ18,6^^2;1^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""7N.N) X"
^DD(64.40999,19,3)="Type a Number between 1 and 99999999999, 6 Decimal Digits"
^DD(64.40999,19,21,0)="^^2^2^2931227^"
^DD(64.40999,19,21,1,0)="This is the number which was used to store the verified"
^DD(64.40999,19,21,2,0)="value in the ^LR(LRDFN,""CH"",INVERSE DATE COMPLETED)=VALUE."
^DD(64.40999,19,23,0)="^^1^1^2931227^"
^DD(64.40999,19,23,1,0)="Data comes from ^DD(68.02,13.5,0)"
^DD(64.40999,19,"DT")="2931116"
^DD(64.40999,20,0)="URGENCY^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(64.40999,20,3)="Answer must be 1-30 characters in length."
^DD(64.40999,20,23,0)="^^1^1^2931227^"
^DD(64.40999,20,23,1,0)="Data comes from ^DD(68.04,1,0)"
^DD(64.40999,20,"DT")="2931116"
^DD(64.40999,21,0)="VERIFY TECH.^F^^2;3^K:$L(X)>35!($L(X)<1) X"
^DD(64.40999,21,3)="Answer must be 1-35 characters in length."
^DD(64.40999,21,21,0)="^^3^3^2951024^^"
^DD(64.40999,21,21,1,0)="This is the first technologist to verify the test results."
^DD(64.40999,21,21,2,0)="This field is not updated during editing for errors or other"
^DD(64.40999,21,21,3,0)="test which were apart of the original test."
^DD(64.40999,21,23,0)="^^1^1^2951024^^"
^DD(64.40999,21,23,1,0)="Data comes from ^DD(68.14,2,0)"
^DD(64.40999,21,"DT")="2951024"
^DD(64.40999,22,0)="WORK AREA^F^^2;4^K:$L(X)>30!($L(X)<1) X"
^DD(64.40999,22,3)="Answer must be 1-30 characters in length."
^DD(64.40999,22,21,0)="^^1^1^2931227^^^"
^DD(64.40999,22,21,1,0)="An accession area identified as a work area."
^DD(64.40999,22,"DT")="2931116"
^DD(64.40999,23,0)="SPECIMEN^F^^4;1^K:$L(X)>80!($L(X)<1) X"
^DD(64.40999,23,3)="Answer must be 1-80 characters in length."
^DD(64.40999,23,21,0)="^^1^1^2931227^"
^DD(64.40999,23,21,1,0)="The specimen which was collected for this test."
^DD(64.40999,23,"DT")="2931117"
^DD(64.40999,"B","ACC NO.",6)=""
^DD(64.40999,"B","ACCESSION WKLD CODE TIME",.01)=""
^DD(64.40999,"B","COUNT FOR WORKLOAD",17)=""
^DD(64.40999,"B","DATE ORDERED",9)=""
^DD(64.40999,"B","INVERSE DATE COMPLETED",19)=""
^DD(64.40999,"B","LAB DIVISION",3)=""
^DD(64.40999,"B","LAB TEST",1)=""
^DD(64.40999,"B","LOCATION TYPE",16)=""
^DD(64.40999,"B","LOG IN PERSON",15)=""
^DD(64.40999,"B","MAJ. SECT",4)=""
^DD(64.40999,"B","ORDERING LOCATION",18)=""
^DD(64.40999,"B","ORIGINAL ACC DATE",8)=""
^DD(64.40999,"B","PATIENT",7)=""
^DD(64.40999,"B","PRACTITIONER",13)=""
^DD(64.40999,"B","REPORT ROUTING LOCATION",12)=""
^DD(64.40999,"B","SPECIMEN",23)=""
^DD(64.40999,"B","SPECIMEN NO.",10)=""
^DD(64.40999,"B","SUBSECTION",5)=""
^DD(64.40999,"B","TREATING SPECIALTY",14)=""
^DD(64.40999,"B","URGENCY",20)=""
^DD(64.40999,"B","VERIFY TECH.",21)=""
^DD(64.40999,"B","WEIGHT MULTIPLIER",2)=""
^DD(64.40999,"B","WORK AREA",22)=""
^DD(64.40999,"GL",0,1,.01)=""
^DD(64.40999,"GL",0,2,1)=""
^DD(64.40999,"GL",0,3,2)=""
^DD(64.40999,"GL",0,4,3)=""
^DD(64.40999,"GL",0,5,4)=""
^DD(64.40999,"GL",0,6,5)=""
^DD(64.40999,"GL",0,7,6)=""
^DD(64.40999,"GL",0,8,7)=""
^DD(64.40999,"GL",0,9,8)=""
^DD(64.40999,"GL",0,10,9)=""
^DD(64.40999,"GL",1,1,10)=""
^DD(64.40999,"GL",1,3,12)=""
^DD(64.40999,"GL",1,4,13)=""
^DD(64.40999,"GL",1,5,14)=""
^DD(64.40999,"GL",1,6,15)=""
^DD(64.40999,"GL",1,7,16)=""
^DD(64.40999,"GL",1,8,17)=""
^DD(64.40999,"GL",1,9,18)=""
^DD(64.40999,"GL",2,1,19)=""
^DD(64.40999,"GL",2,2,20)=""
^DD(64.40999,"GL",2,3,21)=""
^DD(64.40999,"GL",2,4,22)=""
^DD(64.40999,"GL",4,1,23)=""
^DD(64.40999,"IX",.01)=""
^DD(64.5,0)="FIELD^^17^17"
^DD(64.5,0,"DT")="2940125"
^DD(64.5,0,"IX","AC",64.53,4)=""
^DD(64.5,0,"IX","B",64.5,.01)=""
^DD(64.5,0,"IX","MUMPS5",64.5,7)=""
^DD(64.5,0,"NM","LAB REPORTS")=""
^DD(64.5,0,"PT",63.03,.01)=""
^DD(64.5,0,"PT",64.55,.01)=""
^DD(64.5,0,"VR")="5.2"
^DD(64.5,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X) S:'$D(^LAB(64.5,1,0)) DINUM=1 K:$D(^LAB(64.5,1,0)) X"
^DD(64.5,.01,1,0)="^.1"
^DD(64.5,.01,1,1,0)="64.5^B"
^DD(64.5,.01,1,1,1)="S ^LAB(64.5,""B"",$E(X,1,30),DA)="""""
^DD(64.5,.01,1,1,2)="K ^LAB(64.5,""B"",$E(X,1,30),DA)"
^DD(64.5,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(64.5,.01,21,0)="^^1^1^2841129^^"
^DD(64.5,.01,21,1,0)="There can be only ONE cumulative reports entry."
^DD(64.5,.01,"DT")="2841129"
^DD(64.5,1,0)="IN/OUT PATIENT^S^1:INPATIENT ONLY;2:OUTPATIENT ONLY;^0;6^Q"
^DD(64.5,1,3)="No entry will print all patients.  Enter 1 for Inpatients only, 2 for Outpatients only."
^DD(64.5,1,21,0)="^^4^4^2860403^"
^DD(64.5,1,21,1,0)="This field allows for the turning on or off the ability to print"
^DD(64.5,1,21,2,0)="outpatient or inpatient lab results on the cumulative report."
^DD(64.5,1,21,3,0)="No entry will print all patients. Entry of 1 will print only inpatients."
^DD(64.5,1,21,4,0)="Entry of 2 will print only outpatients."
^DD(64.5,1,"DT")="2860403"
^DD(64.5,2,0)="REPORT NAME^64.56^^3;0"
^DD(64.5,2,21,0)="^^1^1^2850206^^^^"
^DD(64.5,2,21,1,0)="This is an arbitrary report name."
^DD(64.5,3,0)="MICRO REPORTS^SX^F:Print only FINAL micro reports;P:Print PRELIMINARY & FINAL micro reports;^0;5^Q"
^DD(64.5,3,3)="If micro reports are to be printed along with cumulative, select the desired entry."
^DD(64.5,3,21,0)="^^10^10^2870618^^^"
^DD(64.5,3,21,1,0)="By choosing an entry for this field, microbiology reports will be "
^DD(64.5,3,21,2,0)="included with the cumulative.  There are three options available."
^DD(64.5,3,21,3,0)="  1. A null entry means that no micro reports will be included."
^DD(64.5,3,21,4,0)="  2. An entry of ""F"" means that only 'FINAL' micro reports will print."
^DD(64.5,3,21,5,0)="  3. An entry of ""P"" means that 'PRELIMINARY' and 'FINAL' reports"
^DD(64.5,3,21,6,0)="     will print."
^DD(64.5,3,21,7,0)=" "
^DD(64.5,3,21,8,0)="A PRELIMINARY report is one that has a report date approved entered."
^DD(64.5,3,21,9,0)="A FINAL report is one that has been verified using the Verify by"
^DD(64.5,3,21,10,0)="Supervisor option."
^DD(64.5,3,"DT")="2870618"
^DD(64.5,3.5,0)="BLOOD BANK REPORTS^S^1:YES;0:NO;^0;8^Q"
^DD(64.5,3.5,21,0)="^^2^2^2880518^"
^DD(64.5,3.5,21,1,0)="Enter 'YES' if blood bank results are to be printed along"
^DD(64.5,3.5,21,2,0)=" with the cumulative report."
^DD(64.5,3.5,"DT")="2880518"
^DD(64.5,4,0)="FILE ROOM^S^1:YES;^0;4^Q"
^DD(64.5,4,3)="AN ENTRY IN THIS FIELD WILL CAUSE ALL OUTPATIENT REPORTS TO PRINT FOR FILE ROOM, AND NOT FOR REQUESTING CLINIC."
^DD(64.5,4,21,0)="^^4^4^2850205^"
^DD(64.5,4,21,1,0)="If this field has an entry, then all patients that are considered"
^DD(64.5,4,21,2,0)="outpatients (no definition in ^DPT(DFN,.1)), will have their"
^DD(64.5,4,21,3,0)="cumulative printed for location: FILE ROOM.  No cumulative will"
^DD(64.5,4,21,4,0)="be printed for the requesting location or clinic."
^DD(64.5,4,"DT")="2850205"
^DD(64.5,5,0)="TOP/BOT^RS^T:TOP;B:BOTTOM;^0;2^Q"
^DD(64.5,5,21,0)="^^2^2^2841119^^"
^DD(64.5,5,21,1,0)="This field determines whether the 'VAMC' field is printed at the top"
^DD(64.5,5,21,2,0)="of the form or at the bottom of the form."
^DD(64.5,6,0)="SEPARATE REPORT LOCATION^64.57P^^5;0"
^DD(64.5,6,21,0)="^^1^1^2930329^"
^DD(64.5,6,21,1,0)="An entry to a separate report location"
^DD(64.5,7,0)="REPORT DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(64.5,7,1,0)="^.1^^0"
^DD(64.5,7,1,1,0)="64.5^MUMPS5^MUMPS"
^DD(64.5,7,1,1,1)="S:$D(X) ^LAC(""DEV"",0)=X"
^DD(64.5,7,1,1,2)="S ^LAC(""DEV"",0)="""""
^DD(64.5,7,2)="S Y(0)=Y S:$D(^LAC(""DEV"",0)) Y=$P(^(0),""^"",1)"
^DD(64.5,7,2.1)="S:$D(^LAC(""DEV"",0)) Y=$P(^(0),""^"",1)"
^DD(64.5,7,3)="THIS FIELD IS UPDATED WHEN CUMULATIVE IS RUN.  DO NOT EDIT HERE."
^DD(64.5,7,21,0)="^^3^3^2850205^^"
^DD(64.5,7,21,1,0)="REPORT DATE field is used by cumulative routines to keep record of"
^DD(64.5,7,21,2,0)="the most recent cumulative report date.  DO NOT edit this field"
^DD(64.5,7,21,3,0)="as part of the initial file set-up."
^DD(64.5,7,"DT")="2870313"
^DD(64.5,8,0)="COMPLETED DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(64.5,8,21,0)="^^1^1^2930325^"
^DD(64.5,8,21,1,0)=" This field contains the date the test was completed and verified."
^DD(64.5,8,"DT")="2861217"
^DD(64.5,9,0)="MED CENTER NAME (MISC HEADER)^F^^0;9^K:$L(X)>80!($L(X)<3) X"
^DD(64.5,9,3)="ANSWER MUST BE 3-80 CHARACTERS IN LENGTH"
^DD(64.5,9,21,0)="^^2^2^2890117^^"
^DD(64.5,9,21,1,0)="The Text entered in this field is printed as the Medical Center name"
^DD(64.5,9,21,2,0)="on the MISCELLANEOUS HEADERS of the Cumulative report."
^DD(64.5,9,"DT")="2890104"
^DD(64.5,10,0)="MAJOR HEADER^64.51^^1;0"
^DD(64.5,10,21,0)="^^1^1^2850814^^^^"
^DD(64.5,10,21,1,0)="The major or general heading of the report."
^DD(64.5,10,21,2,0)="The first four letters of the major header name is used as an index"
^DD(64.5,10,21,3,0)="flag at the bottom of each page."
^DD(64.5,11,0)="MICRO APPROVAL METHOD^S^RE:Results Entry;VT:Verification by Tech;VS:Verification by Supervisor;^0;10^Q"
^DD(64.5,11,3)="Select the method used to enter an RPT DATE APPROVAL on micro tests.  Results will only be released for cumulative when approved using the selected option."
^DD(64.5,11,21,0)="^^2^2^2930325^"
^DD(64.5,11,21,1,0)=" This field contains the what approval method required before this test"
^DD(64.5,11,21,2,0)="result can be printed."
^DD(64.5,11,"DT")="2890329"
^DD(64.5,14,0)="SORT BY PATIENT^S^1:YES;^4;1^Q"
^DD(64.5,14,3)="An entry of 'YES' will cause the supervisor summary to sort by patient name instead of patient location."
^DD(64.5,14,21,0)="^^2^2^2850725^"
^DD(64.5,14,21,1,0)="An entry of 'YES' will cause the supervisor summary to sort by patient name"
^DD(64.5,14,21,2,0)="instead of patient location."
^DD(64.5,14,"DT")="2850718"
^DD(64.5,15,0)="DAILY SUMMARY REPORTS^64.54^^2;0"
^DD(64.5,15,21,0)="^^1^1^2890613^^^"
^DD(64.5,15,21,1,0)="This report is built from the cumulative.  It is queued automatically through the OPTION file and TASK MANAGER."
^DD(64.5,16,0)="FILE ROOM REPORT DATE^D^^6;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.5,16,3)="This field is updated when the cumulative is run for the FILE ROOM and it is being printed on a schedule different from the regular cumulative."
^DD(64.5,16,21,0)="^^4^4^2940113^"
^DD(64.5,16,21,1,0)="This field is used if the site wishes to print the FILEROOM location"
^DD(64.5,16,21,2,0)="on a different schedule than the regular Cumulative print. If this"
^DD(64.5,16,21,3,0)="feature is utilized, the last date the FILEROOM location(s) were"
^DD(64.5,16,21,4,0)="printed is stored in this field."
^DD(64.5,16,"DT")="2940113"
^DD(64.5,17,0)="SEPARATE FILE ROOM^S^1:YES;^6;2^Q"
^DD(64.5,17,3)="Enter YES if the File Room Cumulative is printed on a different schedule from the regular cumulative."
^DD(64.5,17,21,0)="^^69^69^2940127^^^^"
^DD(64.5,17,21,1,0)="This field is used to designate the FILE ROOM Cumulative being printed on"
^DD(64.5,17,21,2,0)="a schedule different from the regular cumulative. To utilize this feature"
^DD(64.5,17,21,3,0)="the following needs to be setup."
^DD(64.5,17,21,4,0)=" "
^DD(64.5,17,21,5,0)="  1. Set field #4, FILE ROOM, to ""YES"" - this sorts all non-inpatients to"
^DD(64.5,17,21,6,0)="     two locations, FILE ROOM1 and FILE ROOM2, based on terminal digit of"
^DD(64.5,17,21,7,0)="     SSN."
^DD(64.5,17,21,8,0)=" "
^DD(64.5,17,21,9,0)="  2. Set field #17, SEPARATE FILE ROOM, to ""YES"" - this tells the"
^DD(64.5,17,21,10,0)="     cumulative that you are printing the FILE ROOM on a schedule"
^DD(64.5,17,21,11,0)="     different from the regular cumulative schedule."
^DD(64.5,17,21,12,0)=" "
^DD(64.5,17,21,13,0)="  3. For regular FILE ROOM patients, set up one or two reports as follows:"
^DD(64.5,17,21,14,0)="     If one report  - starting location: FILE ROOM1"
^DD(64.5,17,21,15,0)="                        ending location: FILE ROOM2"
^DD(64.5,17,21,16,0)=" "
^DD(64.5,17,21,17,0)="     If two reports -"
^DD(64.5,17,21,18,0)=" "
^DD(64.5,17,21,19,0)="       first report - starting location: FILE ROOM1"
^DD(64.5,17,21,20,0)="                        ending location: FILE ROOM1"
^DD(64.5,17,21,21,0)=" "
^DD(64.5,17,21,22,0)="      second report - starting location: FILE ROOM2"
^DD(64.5,17,21,23,0)="                        ending location: FILE ROOM2"
^DD(64.5,17,21,24,0)=" "
^DD(64.5,17,21,25,0)="     Define the other fields as with a regular report."
^DD(64.5,17,21,26,0)=" "
^DD(64.5,17,21,27,0)="  4. If you also want to print certain locations to an alternate file room,"
^DD(64.5,17,21,28,0)="     such as a file room at a satellite clinic then perform the following in"
^DD(64.5,17,21,29,0)="     addition to #3 above."
^DD(64.5,17,21,30,0)=" "
^DD(64.5,17,21,31,0)="     Enter the location(s) that you want to print as a separate report location"
^DD(64.5,17,21,32,0)="     by entering them in the ""SEPARATE REPORT LOCATION, field #6."
^DD(64.5,17,21,33,0)=" "
^DD(64.5,17,21,34,0)="     Enter in field #1, ""ALTERNATE FILE ROOM"" the name to use for this file"
^DD(64.5,17,21,35,0)="     room. This name will be concatenated with ""FILE ROOM""."
^DD(64.5,17,21,36,0)=" "
^DD(64.5,17,21,37,0)="           e.g. ""DALLAS OPC would result in file rooms ""FILE ROOM_DALLAS OPC1"""
^DD(64.5,17,21,38,0)="                 and ""FILE ROOM_DALLAS OPC2""."
^DD(64.5,17,21,39,0)=" "
^DD(64.5,17,21,40,0)="                 Note: The ""_"", underscore is used to insure that these"
^DD(64.5,17,21,41,0)="                       locations sort after the regular file room locations."
^DD(64.5,17,21,42,0)=" "
^DD(64.5,17,21,43,0)="     Two locations for each file room would be created based on terminal digit"
^DD(64.5,17,21,44,0)="     of SSN or identifier (non-file #2 PATIENT) similar to the regular file"
^DD(64.5,17,21,45,0)="     rooms."
^DD(64.5,17,21,46,0)=" "
^DD(64.5,17,21,47,0)="     Note: These locations will print on the same schedule as regular file"
^DD(64.5,17,21,48,0)="           rooms."
^DD(64.5,17,21,49,0)=" "
^DD(64.5,17,21,50,0)="     Either set up separate reports to print these locations or utilize reports"
^DD(64.5,17,21,51,0)="     defined in step #3 above and alter the ending location to include these"
^DD(64.5,17,21,52,0)="     locations."
^DD(64.5,17,21,53,0)=" "
^DD(64.5,17,21,54,0)="  5. On each report, set the field #3, FILE ROOM REPORT, in the field #2,"
^DD(64.5,17,21,55,0)="     REPORT NAME, multiple to ""YES""."
^DD(64.5,17,21,56,0)=" "
^DD(64.5,17,21,57,0)=" "
^DD(64.5,17,21,58,0)="The cumulative software will check when attempting to print a cumulative"
^DD(64.5,17,21,59,0)="for a location that contains the name ""FILE ROOM"" the following. If field #17"
^DD(64.5,17,21,60,0)="is set to ""YES"" and the report being run is not set to ""YES"" for field #3,"
^DD(64.5,17,21,61,0)="FILE ROOM REPORT, then it will skip running the cumulative for that location."
^DD(64.5,17,21,62,0)="This is to prevent another report which may print locations ""A"" thru ""Z"" from"
^DD(64.5,17,21,63,0)="printing the file rooms unintentionally."
^DD(64.5,17,21,64,0)=" "
^DD(64.5,17,21,65,0)="Related fields used in conjunction with this feature are:"
^DD(64.5,17,21,66,0)="   # 4 FILE ROOM"
^DD(64.5,17,21,67,0)="   #16 FILE ROOM REPORT DATE"
^DD(64.5,17,21,68,0)="   # 1 ALTERNATE FILE ROOM in the #6 SEPARATE REPORT LOCATION multiple."
^DD(64.5,17,21,69,0)="   # 3 FILE ROOM REPORT in the #2 REPORT NAME multiple."
^DD(64.5,17,"DT")="2940113"
^DD(64.5,"B","BLOOD BANK REPORTS",3.5)=""
^DD(64.5,"B","COMPLETED DATE",8)=""
^DD(64.5,"B","DAILY SUMMARY REPORTS",15)=""
^DD(64.5,"B","FILE ROOM",4)=""
^DD(64.5,"B","FILE ROOM REPORT DATE",16)=""
^DD(64.5,"B","IN/OUT PATIENT",1)=""
^DD(64.5,"B","MAJOR HEADER",10)=""
^DD(64.5,"B","MED CENTER NAME (MISC HEADER)",9)=""
^DD(64.5,"B","MICRO APPROVAL METHOD",11)=""
^DD(64.5,"B","MICRO REPORTS",3)=""
^DD(64.5,"B","NAME",.01)=""
^DD(64.5,"B","REPORT DATE",7)=""
^DD(64.5,"B","REPORT NAME",2)=""
^DD(64.5,"B","SEPARATE FILE ROOM",17)=""
^DD(64.5,"B","SEPARATE REPORT LOCATION",6)=""
^DD(64.5,"B","SORT BY PATIENT",14)=""
^DD(64.5,"B","TOP/BOT",5)=""
^DD(64.5,"GL",0,1,.01)=""
^DD(64.5,"GL",0,2,5)=""
^DD(64.5,"GL",0,3,7)=""
^DD(64.5,"GL",0,4,4)=""
^DD(64.5,"GL",0,5,3)=""
^DD(64.5,"GL",0,6,1)=""
^DD(64.5,"GL",0,7,8)=""
^DD(64.5,"GL",0,8,3.5)=""
^DD(64.5,"GL",0,9,9)=""
^DD(64.5,"GL",0,10,11)=""
^DD(64.5,"GL",1,0,10)=""
^DD(64.5,"GL",2,0,15)=""
^DD(64.5,"GL",3,0,2)=""
^DD(64.5,"GL",4,1,14)=""
^DD(64.5,"GL",5,0,6)=""
^DD(64.5,"GL",6,1,16)=""
^DD(64.5,"GL",6,2,17)=""
^DD(64.5,"IX",.01)=""
^DD(64.5,"IX",7)=""
^DD(64.5,"RQ",.01)=""
^DD(64.5,"RQ",5)=""
^DD(64.5,"SB",64.51,10)=""
^DD(64.5,"SB",64.54,15)=""
^DD(64.5,"SB",64.56,2)=""
^DD(64.5,"SB",64.57,6)=""
^DD(64.51,0)="MAJOR HEADER SUB-FIELD^NL^10^4"
^DD(64.51,0,"IX","B",64.51,.01)=""
^DD(64.51,0,"NM","MAJOR HEADER")=""
^DD(64.51,0,"UP")="64.5"
^DD(64.51,.001,0)="ORDER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.51,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(64.51,.001,21,0)="^^1^1^2841126^"
^DD(64.51,.001,21,1,0)="This defines the page order."
^DD(64.51,.001,"DT")="2840920"
^DD(64.51,.01,0)="MAJOR HEADER^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X"
^DD(64.51,.01,1,0)="^.1"
^DD(64.51,.01,1,1,0)="64.51^B"
^DD(64.51,.01,1,1,1)="S ^LAB(64.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.51,.01,1,1,2)="K ^LAB(64.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.51,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(64.51,.01,21,0)="^^1^1^2841119^"
^DD(64.51,.01,21,1,0)="The major or general heading of the report."
^DD(64.51,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(64.51,.01,"DT")="2840820"
^DD(64.51,5,0)="MEDICAL CENTER^RF^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(64.51,5,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(64.51,5,21,0)="^^1^1^2860728^^^^"
^DD(64.51,5,21,1,0)="The name of the Medical center or other appropriate text."
^DD(64.51,5,"DT")="2860728"
^DD(64.51,10,0)="MINOR HEADER^64.52I^^1;0"
^DD(64.51,10,21,0)="^^1^1^2870205^^^"
^DD(64.51,10,21,1,0)="The minor, or sub, headings."
^DD(64.51,10,21,2,0)="Mixing formats within a major header is not allowed and only"
^DD(64.51,10,21,3,0)="one vertical format per major header."
^DD(64.51,"B","MAJOR HEADER",.01)=""
^DD(64.51,"B","MEDICAL CENTER",5)=""
^DD(64.51,"B","MINOR HEADER",10)=""
^DD(64.51,"B","ORDER",.001)=""
^DD(64.51,"GL",0,1,.01)=""
^DD(64.51,"GL",0,2,5)=""
^DD(64.51,"GL",1,0,10)=""
^DD(64.51,"IX",.01)=""
^DD(64.51,"RQ",5)=""
^DD(64.51,"SB",64.52,10)=""
^DD(64.52,0)="MINOR HEADER SUB-FIELD^NL^10^6"
^DD(64.52,0,"ID",1)="W """""
^DD(64.52,0,"IX","AR",64.52,1)=""
^DD(64.52,0,"IX","AZ",64.52,1)=""
^DD(64.52,0,"IX","AZZ",64.52,2)=""
^DD(64.52,0,"IX","B",64.52,.01)=""
^DD(64.52,0,"IX","C",64.52,2)=""
^DD(64.52,0,"NM","MINOR HEADER")=""
^DD(64.52,0,"UP")="64.51"
^DD(64.52,.001,0)="ORDER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.52,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(64.52,.001,"DT")="2851216"
^DD(64.52,.01,0)="MINOR HEADER^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X Q:$D(DIU(0))  I $D(X) F ZI=0:0 S ZI=$O(^LAB(64.5,1,1,DA(1),1,ZI)) Q:ZI<1  S F=$S($P(^(ZI,0),U,3)=""V"":1,1:"""") I F W !,""NO CAN DO"" K X Q"
^DD(64.52,.01,1,0)="^.1"
^DD(64.52,.01,1,1,0)="64.52^B"
^DD(64.52,.01,1,1,1)="S ^LAB(64.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.52,.01,1,1,2)="K ^LAB(64.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.52,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH AND ONLY 1 VERTICAL FORMAT IS ALLOWED PER MAJOR HEADER"
^DD(64.52,.01,21,0)="^^1^1^2870205^^^"
^DD(64.52,.01,21,1,0)="The minor, or sub, heading."
^DD(64.52,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(64.52,.01,"DT")="2870205"
^DD(64.52,1,0)="PROFILE SITE/SPECIMEN^RP61'^LAB(61,^0;2^Q"
^DD(64.52,1,1,0)="^.1^^-1"
^DD(64.52,1,1,1,0)="64.52^AR^MUMPS"
^DD(64.52,1,1,1,1)="Q"
^DD(64.52,1,1,1,2)="Q  ;W !,""Re-index """"AR"""" x-ref under Lab Test."""
^DD(64.52,1,1,2,0)="64.52^AZ^MUMPS"
^DD(64.52,1,1,2,1)="S ^LAB(64.5,""AZ"",DA(1),DA)="""""
^DD(64.52,1,1,2,2)="S ^LAB(64.5,""AZ"",DA(1),DA)="""""
^DD(64.52,1,21,0)="^^1^1^2841220^^"
^DD(64.52,1,21,1,0)="The Site/Specimen for the Minor Header must be defined."
^DD(64.52,1,"DT")="2880727"
^DD(64.52,2,0)="TYPE OF DISPLAY^RS^H:HORIZONTAL;V:VERTICAL;^0;3^Q"
^DD(64.52,2,1,0)="^.1"
^DD(64.52,2,1,1,0)="64.52^C^MUMPS"
^DD(64.52,2,1,1,1)="F I=0:0 S I=$O(^LAB(64.5,1,1,DA(1),1,I)) Q:I<1  S F=$P(^(I,0),U,3) I X=""V"",F=""H"" W !!,*7,""WARNING: MIXING VERT. & HOR. FORMATS WITHIN A MAJOR HEADER "",!,""MAY CORRUPT THE CUMULATIVE!"" Q"
^DD(64.52,2,1,1,2)="Q"
^DD(64.52,2,1,2,0)="64.52^AZZ^MUMPS"
^DD(64.52,2,1,2,1)="S ^LAB(64.5,""AZ"",DA(1),DA)="""""
^DD(64.52,2,1,2,2)="S ^LAB(64.5,""AZ"",DA(1),DA)="""""
^DD(64.52,2,3)="FORMATS CANNOT BE MIXED WITHIN A MAJOR HEADER"
^DD(64.52,2,21,0)="^^1^1^2861215^^"
^DD(64.52,2,21,1,0)="'HORIZONTAL' & 'VERTICAL' refer to the placement of the test names."
^DD(64.52,2,21,2,0)="'INVERSE' refers to inverse chronological order.  e.g., 'HORIZONTAL"
^DD(64.52,2,21,3,0)="INVERSE' means the test names are at the page top, dates in inverse order."
^DD(64.52,2,"DT")="2861217"
^DD(64.52,3,0)="LOCALE FIELD^RS^0:NO;1:YES;^0;4^Q"
^DD(64.52,3,3)="Setting this field will put an additional field on output, specifing locale of patient at time of test."
^DD(64.52,3,21,0)="^^1^1^2841126^"
^DD(64.52,3,21,1,0)="Yes, if the requesting location is to be displayed with the data."
^DD(64.52,3,"DT")="2840919"
^DD(64.52,10,0)="LAB TEST^64.53IP^^1;0"
^DD(64.52,"B","LAB TEST",10)=""
^DD(64.52,"B","LOCALE FIELD",3)=""
^DD(64.52,"B","MINOR HEADER",.01)=""
^DD(64.52,"B","ORDER",.001)=""
^DD(64.52,"B","PROFILE SITE/SPECIMEN",1)=""
^DD(64.52,"B","TYPE OF DISPLAY",2)=""
^DD(64.52,"GL",0,1,.01)=""
^DD(64.52,"GL",0,2,1)=""
^DD(64.52,"GL",0,3,2)=""
^DD(64.52,"GL",0,4,3)=""
^DD(64.52,"GL",1,0,10)=""
^DD(64.52,"IX",.01)=""
^DD(64.52,"IX",1)=""
^DD(64.52,"IX",2)=""
^DD(64.52,"RQ",1)=""
^DD(64.52,"RQ",2)=""
^DD(64.52,"RQ",3)=""
^DD(64.52,"SB",64.53,10)=""
^DD(64.53,0)="LAB TEST SUB-FIELD^NL^5^7"
^DD(64.53,0,"ID",4)="W ""   "",$P(^(0),U,5)"
^DD(64.53,0,"IX","A",64.53,.01)=""
^DD(64.53,0,"IX","AR",64.53,.01)=""
^DD(64.53,0,"IX","AZ",64.53,.01)=""
^DD(64.53,0,"NM","LAB TEST")=""
^DD(64.53,0,"UP")="64.52"
^DD(64.53,.001,0)="ORDER^NJ2,0^^ ^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.53,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 50"
^DD(64.53,.001,21,0)="^^1^1^2841126^"
^DD(64.53,.001,21,1,0)="The order the tests are to be displayed on the page."
^DD(64.53,.001,"DT")="2840911"
^DD(64.53,.01,0)="LAB TEST^MP60'X^LAB(60,^0;1^K:'$L($P(^LAB(60,+X,0),""^"",5)) X Q:$D(DIU(0))  I $D(X),$D(^LAB(64.5,""AR"",$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),""^"",2),X)) W !!,*7,""TEST WITH THIS SPECIMEN IS ALREADY DEFINED UNDER ANOTHER MINOR HEADER!"" K X Q"
^DD(64.53,.01,1,0)="^.1"
^DD(64.53,.01,1,1,0)="^^TRIGGER^64.53^1"
^DD(64.53,.01,1,1,1)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X=""7"" X ^DD(64.53,.01,1,1,1.4)"
^DD(64.53,.01,1,1,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D0,0)):^(0),1:"""") S X=$P(Y(101),U,5) S D0=Y(1)"
^DD(64.53,.01,1,1,1.4)="S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=64.53,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.53,.01,1,1,2)="Q"
^DD(64.53,.01,1,1,2.4)="S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=64.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.53,.01,1,1,"CREATE VALUE")="""7"""
^DD(64.53,.01,1,1,"DELETE VALUE")="NO EFFECT"
^DD(64.53,.01,1,1,"FIELD")="TEST FIELD LENGTH"
^DD(64.53,.01,1,2,0)="^^TRIGGER^64.53^2"
^DD(64.53,.01,1,2,1)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(64.53,.01,1,2,1.1) X ^DD(64.53,.01,1,2,1.4)"
^DD(64.53,.01,1,2,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D0,.1)):^(.1),1:"""") S X=$P(Y(101),U,1) S D0=Y(1)"
^DD(64.53,.01,1,2,1.4)="S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=64.53,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.53,.01,1,2,2)="Q"
^DD(64.53,.01,1,2,"CREATE VALUE")="LAB TEST:PRINT NAME"
^DD(64.53,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(64.53,.01,1,2,"FIELD")="PRINT TEST NAME"
^DD(64.53,.01,1,3,0)="^^TRIGGER^64.53^3"
^DD(64.53,.01,1,3,1)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(1),U,4) S DIU=X K Y X ^DD(64.53,.01,1,3,1.1) X ^DD(64.53,.01,1,3,1.4)"
^DD(64.53,.01,1,3,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D0,.1)):^(.1),1:"""") S X=$P(Y(101),U,3) S D0=Y(1)"
^DD(64.53,.01,1,3,1.4)="S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=64.53,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.53,.01,1,3,2)="Q"
^DD(64.53,.01,1,3,"CREATE VALUE")="LAB TEST:PRINT CODE"
^DD(64.53,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(64.53,.01,1,3,"FIELD")="TEST PRINT CODE"
^DD(64.53,.01,1,4,0)="^^TRIGGER^64.53^4"
^DD(64.53,.01,1,4,1)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y X ^DD(64.53,.01,1,4,1.1) X ^DD(64.53,.01,1,4,1.4)"
^DD(64.53,.01,1,4,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D0,0)):^(0),1:"""") S X=$P(Y(101),U,5) S D0=Y(1)"
^DD(64.53,.01,1,4,1.4)="S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=64.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.53,.01,1,4,2)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LAB(64.5,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y S X=DIV S ^LAB(64.5,""AZ"",D1,D2)="""" X ^DD(64.53,.01,1,4,2.4)"
^DD(64.53,.01,1,4,2.4)="S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=64.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.53,.01,1,4,49.2)="S I(3,0)=$S($D(D3):D3,1:""""),I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D0,0)):^(0),1:"""")"
^DD(64.53,.01,1,4,"CREATE VALUE")="LAB TEST:LOCATION"
^DD(64.53,.01,1,4,"DELETE VALUE")="Q"
^DD(64.53,.01,1,4,"FIELD")="TEST LOCATION"
^DD(64.53,.01,1,5,0)="64.53^AR^MUMPS"
^DD(64.53,.01,1,5,1)="S ^LAB(64.5,""AR"",$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),""^"",2),$P(^(1,DA,0),""^"",1))="""""
^DD(64.53,.01,1,5,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(60,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(60,D0,0)):^(0),1:"""") S X=$P(Y(101),U,5) S D0=Y(1)"
^DD(64.53,.01,1,5,1.4)="S DIH=$S($D(^LAB(64.5,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=64.53,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.53,.01,1,5,2)="K ^LAB(64.5,""AR"",$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),""^"",2),$P(^(1,DA,0),""^"",1))"
^DD(64.53,.01,1,5,"CREATE VALUE")="LAB TEST:LOCATION"
^DD(64.53,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(64.53,.01,1,5,"FIELD")="TEST LOCATION"
^DD(64.53,.01,1,6,0)="64.53^A^MUMPS"
^DD(64.53,.01,1,6,1)="S LRSUB=$P(^LAB(60,+X,0),U,5),LRTST=$S($L(LRSUB):$O(^LAB(60,""C"",LRSUB,0)),1:-1) S ^LAB(64.5,""A"",DA(3),DA(2),DA(1),DA)=$S($D(^LAB(60,LRTST,1,$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),U,2),0)):^(0),1:"""") K LRSUB,LRTST"
^DD(64.53,.01,1,6,2)="K ^LAB(64.5,""A"",DA(3),DA(2),DA(1),DA)"
^DD(64.53,.01,1,7,0)="64.53^AZ^MUMPS"
^DD(64.53,.01,1,7,1)="S ^LAB(64.5,""AZ"",DA(2),DA(1))="""""
^DD(64.53,.01,1,7,2)="S ^LAB(64.5,""AZ"",DA(2),DA(1))="""""
^DD(64.53,.01,3)="ONLY ONE TEST PER SPECIMEN CAN BE DEFINED ON CUMULATIVE.  This must be an ATOMIC test."
^DD(64.53,.01,21,0)="^^1^1^2870106^^^^"
^DD(64.53,.01,21,1,0)="The name of the test as found in file 60."
^DD(64.53,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(64.53,.01,"DT")="2881206"
^DD(64.53,1,0)="TEST FIELD LENGTH^NJ2,0^^0;2^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.53,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 15"
^DD(64.53,1,5,1,0)="64.53^.01^1"
^DD(64.53,1,21,0)="^^1^1^2841126^"
^DD(64.53,1,21,1,0)="The number of columns to be devoted to the results."
^DD(64.53,2,0)="PRINT TEST NAME^RF^^0;3^K:$L(X)>7!($L(X)<2) X"
^DD(64.53,2,3)="ANSWER MUST BE 2-7 CHARACTERS IN LENGTH"
^DD(64.53,2,5,1,0)="64.53^.01^2"
^DD(64.53,2,21,0)="^^1^1^2870106^^^"
^DD(64.53,2,21,1,0)="The actual name of the test to be printed on the page."
^DD(64.53,2,"DT")="2870106"
^DD(64.53,3,0)="TEST PRINT CODE^FX^^0;4^K:$L(X)>150!($L(X)<1) X I $D(X) S X=""W ""_X D ^DIM I $D(X) S X=$E(X,3,256)"
^DD(64.53,3,3)="MUMPS PRINT CODE ( ie. $J(X,LRCW,2) )"
^DD(64.53,3,5,1,0)="64.53^.01^3"
^DD(64.53,3,21,0)="^^1^1^2841126^"
^DD(64.53,3,21,1,0)="Any special output transform to be used on printing."
^DD(64.53,3,"DT")="2841026"
^DD(64.53,4,0)="TEST LOCATION^RFX^^0;5^K:$E(X,1,3)'=""CH;""!($P(X,"";"",2)'>0) X I $D(X) K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(64.53,4,1,0)="^.1"
^DD(64.53,4,1,1,0)="64.5^AC^MUMPS"
^DD(64.53,4,1,1,1)="S ^LAB(64.5,""AC"",+$P($P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),1,DA,0),""^"",5),"";"",2),DA(3),DA(2),DA(1),DA)=$P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),0),U,2)"
^DD(64.53,4,1,1,2)="K ^LAB(64.5,""AC"",+$P($P(^LAB(64.5,DA(3),1,DA(2),1,DA(1),1,DA,0),""^"",5),"";"",2),DA(3),DA(2),DA(1),DA)"
^DD(64.53,4,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH, AND BE A LEGITIMATE TEST LOCATION."
^DD(64.53,4,5,1,0)="64.53^.01^1"
^DD(64.53,4,5,2,0)="64.53^.01^4"
^DD(64.53,4,21,0)="^^2^2^2870327^^^^"
^DD(64.53,4,21,1,0)="The internal location of the test in file 63."
^DD(64.53,4,21,2,0)="This field is triggered by the Lab Test field."
^DD(64.53,4,"DT")="2870106"
^DD(64.53,5,0)="DECIMAL PLACES^NJ1,0^^0;6^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.53,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 4"
^DD(64.53,5,21,0)="^^1^1^2841126^"
^DD(64.53,5,21,1,0)="The number of decimal places to justify the output."
^DD(64.53,5,"DT")="2840618"
^DD(64.53,"B","DECIMAL PLACES",5)=""
^DD(64.53,"B","LAB TEST",.01)=""
^DD(64.53,"B","ORDER",.001)=""
^DD(64.53,"B","PRINT TEST NAME",2)=""
^DD(64.53,"B","TEST FIELD LENGTH",1)=""
^DD(64.53,"B","TEST LOCATION",4)=""
^DD(64.53,"B","TEST PRINT CODE",3)=""
^DD(64.53,"GL",0,1,.01)=""
^DD(64.53,"GL",0,2,1)=""
^DD(64.53,"GL",0,3,2)=""
^DD(64.53,"GL",0,4,3)=""
^DD(64.53,"GL",0,5,4)=""
^DD(64.53,"GL",0,6,5)=""
^DD(64.53,"IX",.01)=""
^DD(64.53,"IX",4)=""
^DD(64.53,"RQ",2)=""
^DD(64.53,"RQ",4)=""
^DD(64.54,0)="DAILY SUMMARY REPORTS SUB-FIELD^NL^2^3"
^DD(64.54,0,"IX","B",64.54,.01)=""
^DD(64.54,0,"NM","DAILY SUMMARY REPORTS")=""
^DD(64.54,0,"UP")="64.5"
^DD(64.54,.01,0)="DAILY SUMMARY REPORTS^MF^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(64.54,.01,1,0)="^.1"
^DD(64.54,.01,1,1,0)="64.54^B"
^DD(64.54,.01,1,1,1)="S ^LAB(64.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(64.54,.01,1,1,2)="K ^LAB(64.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(64.54,.01,1,1,"%D",0)="^^1^1^2940111^"
^DD(64.54,.01,1,1,"%D",1,0)=" This is a listing of supervisor summary report formats."
^DD(64.54,.01,1,1,"DT")="2940113"
^DD(64.54,.01,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(64.54,.01,21,0)="^^1^1^2890613^^^"
^DD(64.54,.01,21,1,0)="This report is built from the cumulative."
^DD(64.54,.01,"DT")="2840716"
^DD(64.54,1,0)="HEADER^64.55P^^1;0"
^DD(64.54,1,21,0)="^^1^1^2890613^^"
^DD(64.54,1,21,1,0)="This is a multiple field containing the headers for the summary reports."
^DD(64.54,2,0)="PREVIOUS SUMMARY DATA^S^1:YES;^0;2^Q"
^DD(64.54,2,3)="An entry in this field will enable previous data to be printed"
^DD(64.54,2,21,0)="^^4^4^2860211^^"
^DD(64.54,2,21,1,0)="This field identifies for each supervisor's summary the option"
^DD(64.54,2,21,2,0)="to print previous data along with current data on the report."
^DD(64.54,2,21,3,0)="Only the two most recent set of results compiled during the"
^DD(64.54,2,21,4,0)="cumulative run will be printed for comparison."
^DD(64.54,2,"DT")="2860210"
^DD(64.54,"B","DAILY SUMMARY REPORTS",.01)=""
^DD(64.54,"B","HEADER",1)=""
^DD(64.54,"B","PREVIOUS SUMMARY DATA",2)=""
^DD(64.54,"GL",0,1,.01)=""
^DD(64.54,"GL",0,2,2)=""
^DD(64.54,"GL",1,0,1)=""
^DD(64.54,"IX",.01)=""
^DD(64.54,"SB",64.55,1)=""
^DD(64.55,0)="HEADER SUB-FIELD^NL^.01^1"
^DD(64.55,0,"NM","HEADER")=""
^DD(64.55,0,"UP")="64.54"
^DD(64.55,.01,0)="HEADER^MP64.5'^LAB(64.5,1,1,^0;1^Q"
^DD(64.55,.01,3)=""
^DD(64.55,.01,4)=""
^DD(64.55,.01,21,0)="^^1^1^2890613^^"
^DD(64.55,.01,21,1,0)="The headings for the summary report."
^DD(64.55,.01,"DT")="2870903"
^DD(64.55,"B","HEADER",.01)=""
^DD(64.55,"GL",0,1,.01)=""
^DD(64.56,0)="REPORT NAME SUB-FIELD^NL^26^11"
^DD(64.56,0,"DT")="2940112"
^DD(64.56,0,"IX","B",64.56,.01)=""
^DD(64.56,0,"IX","MUMPS",64.56,15)=""
^DD(64.56,0,"IX","MUMPS1",64.56,17)=""
^DD(64.56,0,"IX","MUMPS2",64.56,18)=""
^DD(64.56,0,"IX","MUMPS3",64.56,25)=""
^DD(64.56,0,"IX","MUMPS4",64.56,26)=""
^DD(64.56,0,"NM","REPORT NAME")=""
^DD(64.56,0,"UP")="64.5"
^DD(64.56,.01,0)="REPORT NAME^MF^^0;1^K:$L(X)>20!($L(X)<2) X"
^DD(64.56,.01,1,0)="^.1"
^DD(64.56,.01,1,1,0)="64.56^B"
^DD(64.56,.01,1,1,1)="S ^LAB(64.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(64.56,.01,1,1,2)="K ^LAB(64.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(64.56,.01,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(64.56,.01,21,0)="^^1^1^2850206^"
^DD(64.56,.01,21,1,0)="This is an arbitrary report name."
^DD(64.56,.01,"DT")="2850206"
^DD(64.56,1,0)="DEVICE^R*P3.5'X^%ZIS(1,^.1;1^S PD=$P(X,"";"",2),X=$P(X,"";""),DIC(0)=""EMQ"" S:$L(PD) DIC(""S"")=""I ^%ZIS(1,+Y,""""TYPE"""")[""""SPL"""""" D ^DIC S X=$P(Y,U,2)_$S($L(PD):"";"",1:"""")_PD,DIC=DIE K PD K:Y<1 X"
^DD(64.56,1,3)="ENTER THE DEVICE FOR THIS RANGE OF LOCATIONS"
^DD(64.56,1,21,0)="^^7^7^2850726^^^^"
^DD(64.56,1,21,1,0)="This field should contain the name(s) of the printers that are used"
^DD(64.56,1,21,2,0)="to print the cumulative.  A starting and ending location needs to be"
^DD(64.56,1,21,3,0)="defined for each device.  This range should include all locations"
^DD(64.56,1,21,4,0)="that desire cumulatives.  An example of starting and ending locations"
^DD(64.56,1,21,5,0)="for a system using one printer to print all cumulatives would be:"
^DD(64.56,1,21,6,0)="       STARTING LOCATION:           (leave blank)"
^DD(64.56,1,21,7,0)="       ENDING LOCATION: ZZZZZZ"
^DD(64.56,1,"DT")="2870430"
^DD(64.56,2,0)="MANUAL PRINT^S^1:YES;^.1;2^Q"
^DD(64.56,2,3)="Enter a ""YES"" in this field if you want to withhold this report from automatic queuing of the cumulative report."
^DD(64.56,2,21,0)="^^4^4^2860117^"
^DD(64.56,2,21,1,0)="A ""YES"" in this field will cause the locations defined in this report"
^DD(64.56,2,21,2,0)="not to print with the automatic queuing capabilities of the cumulative"
^DD(64.56,2,21,3,0)="report.  To print a report with the manual designation of this field,"
^DD(64.56,2,21,4,0)="use the option LRAC MANUAL and selectively queue this report."
^DD(64.56,2,"DT")="2860117"
^DD(64.56,3,0)="FILE ROOM REPORT^*S^1:YES;^.1;3^Q"
^DD(64.56,3,3)=" See description for field #17, SEPARATE FILE ROOM, for additional information on using this field."
^DD(64.56,3,12)="YES only allowed if starting /ending locations contain ""FILE ROOM""."
^DD(64.56,3,12.1)="S DIC(""S"")=""S LRX=$G(^LAB(64.5,1,3,DA,0)) I $P(LRX,U,2)[""""FILE ROOM"""",$P(LRX,U,3)[""""FILE ROOM"""""""
^DD(64.56,3,21,0)="^^8^8^2940127^"
^DD(64.56,3,21,1,0)="This field is used to designate a report to print a file room location."
^DD(64.56,3,21,2,0)="It is used in conjunction with fields #4, ""FILE ROOM"" and #17 ""SEPARATE"
^DD(64.56,3,21,3,0)="FILE ROOM"". It allows the cumulative to identify those reports which should"
^DD(64.56,3,21,4,0)="be run when a site wishes to print the file room reports and they are doing"
^DD(64.56,3,21,5,0)="so on a schedule separate from the regular cumulative."
^DD(64.56,3,21,6,0)=" "
^DD(64.56,3,21,7,0)="See description for field #17, ""SEPARATE FILE ROOM"", for additional information"
^DD(64.56,3,21,8,0)="on using this field."
^DD(64.56,3,"DT")="2940113"
^DD(64.56,5,0)="STARTING LOCATION^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(64.56,5,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(64.56,5,21,0)="^^3^3^2850726^"
^DD(64.56,5,21,1,0)="This is where the starting location is defined for a device printing the"
^DD(64.56,5,21,2,0)="cumulative report.  If this field is left blank, then the report will "
^DD(64.56,5,21,3,0)="start at the first location."
^DD(64.56,5,"DT")="2851205"
^DD(64.56,10,0)="ENDING LOCATION^RF^^0;3^K:$L(X)>20!($L(X)<2) X"
^DD(64.56,10,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(64.56,10,21,0)="^^2^2^2850726^"
^DD(64.56,10,21,1,0)="This is where the ending location is defined for a device printing the"
^DD(64.56,10,21,2,0)="cumulative report."
^DD(64.56,10,"DT")="2841217"
^DD(64.56,15,0)="LAST LOCATION^FX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(64.56,15,1,0)="^.1^^0"
^DD(64.56,15,1,1,0)="64.56^MUMPS^MUMPS"
^DD(64.56,15,1,1,1)="S $P(^LAC(""DEV"",DA,0),""^"",1)=X"
^DD(64.56,15,1,1,2)="S $P(^LAC(""DEV"",DA,0),""^"",1)="""""
^DD(64.56,15,2)="S Y(0)=Y S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",1)"
^DD(64.56,15,2.1)="S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",1)"
^DD(64.56,15,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(64.56,15,21,0)="^^3^3^2850131^"
^DD(64.56,15,21,1,0)="This field is used by the cumulative routines to specify the"
^DD(64.56,15,21,2,0)="last printed location for this device. DO NOT FILL IN THIS "
^DD(64.56,15,21,3,0)="FIELD AS PART OF THE INITIAL FILE SET-UP."
^DD(64.56,15,"DT")="2870313"
^DD(64.56,17,0)="LAST PATIENT^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X"
^DD(64.56,17,1,0)="^.1^^0"
^DD(64.56,17,1,1,0)="64.56^MUMPS1^MUMPS"
^DD(64.56,17,1,1,1)="S:$D(X) $P(^LAC(""DEV"",DA,0),""^"",2)=X"
^DD(64.56,17,1,1,2)="S $P(^LAC(""DEV"",DA,0),""^"",2)="""""
^DD(64.56,17,2)="S Y(0)=Y S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",2)"
^DD(64.56,17,2.1)="S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0,0))) Y=$P(^(0),""^"",2)"
^DD(64.56,17,3)="ANSWER MUST BE 2-25 CHARACTERS IN LENGTH"
^DD(64.56,17,21,0)="^^3^3^2850131^"
^DD(64.56,17,21,1,0)="This field is used by the cumulative routines to specify the"
^DD(64.56,17,21,2,0)="last printed patient for this device.  DO NOT FILL IN THIS"
^DD(64.56,17,21,3,0)="FIELD AS PART OF THE INITIAL FILE SET-UP."
^DD(64.56,17,"DT")="2870313"
^DD(64.56,18,0)="LAST LRDFN^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.56,18,1,0)="^.1^^0"
^DD(64.56,18,1,1,0)="64.56^MUMPS2^MUMPS"
^DD(64.56,18,1,1,1)="S:$D(X) $P(^LAC(""DEV"",DA,0),""^"",3)=X"
^DD(64.56,18,1,1,2)="S $P(^LAC(""DEV"",DA,0),""^"",3)="""""
^DD(64.56,18,2)="S Y(0)=Y S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",3)"
^DD(64.56,18,2.1)="S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",3)"
^DD(64.56,18,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(64.56,18,21,0)="^^3^3^2850131^"
^DD(64.56,18,21,1,0)="This field is used by the cumulative routines to specify the"
^DD(64.56,18,21,2,0)="last printed DFN.  DO NOT FILL IN THIS FIELD AS PART OF THE"
^DD(64.56,18,21,3,0)="INITIAL FILE SET-UP."
^DD(64.56,18,"DT")="2870313"
^DD(64.56,25,0)="STARTING TIME^DX^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.56,25,1,0)="^.1^^0"
^DD(64.56,25,1,1,0)="64.56^MUMPS3^MUMPS"
^DD(64.56,25,1,1,1)="S:$D(X) $P(^LAC(""DEV"",DA,0),""^"",4)=X"
^DD(64.56,25,1,1,2)="S $P(^LAC(""DEV"",DA,0),""^"",4)="""""
^DD(64.56,25,2)="S Y(0)=Y S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",4)"
^DD(64.56,25,2.1)="S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",4)"
^DD(64.56,25,21,0)="^^3^3^2850131^"
^DD(64.56,25,21,1,0)="This field is used by the cumulative routines to give the"
^DD(64.56,25,21,2,0)="starting time of the cumulative for this device.  DO NOT"
^DD(64.56,25,21,3,0)="FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP."
^DD(64.56,25,"DT")="2870313"
^DD(64.56,26,0)="ENDING TIME^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.56,26,1,0)="^.1^^0"
^DD(64.56,26,1,1,0)="64.56^MUMPS4^MUMPS"
^DD(64.56,26,1,1,1)="S:$D(X) $P(^LAC(""DEV"",DA,0),""^"",5)=X"
^DD(64.56,26,1,1,2)="S $P(^LAC(""DEV"",DA,0),""^"",5)="""""
^DD(64.56,26,2)="S Y(0)=Y S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",5)"
^DD(64.56,26,2.1)="S:$D(^LAC(""DEV"",$S($D(DA):DA,1:D0),0)) Y=$P(^(0),""^"",5)"
^DD(64.56,26,21,0)="^^3^3^2850131^"
^DD(64.56,26,21,1,0)="This field is used by the cumulative routines to give the"
^DD(64.56,26,21,2,0)="ending time of the cumulative for this device.  DO NOT"
^DD(64.56,26,21,3,0)="FILL IN THIS FIELD AS PART OF THE INITIAL FILE SET-UP."
^DD(64.56,26,"DT")="2870313"
^DD(64.56,"B","DEVICE",1)=""
^DD(64.56,"B","ENDING LOCATION",10)=""
^DD(64.56,"B","ENDING TIME",26)=""
^DD(64.56,"B","FILE ROOM REPORT",3)=""
^DD(64.56,"B","LAST LOCATION",15)=""
^DD(64.56,"B","LAST LRDFN",18)=""
^DD(64.56,"B","LAST PATIENT",17)=""
^DD(64.56,"B","MANUAL PRINT",2)=""
^DD(64.56,"B","REPORT NAME",.01)=""
^DD(64.56,"B","STARTING LOCATION",5)=""
^DD(64.56,"B","STARTING TIME",25)=""
^DD(64.56,"GL",0,1,.01)=""
^DD(64.56,"GL",0,2,5)=""
^DD(64.56,"GL",0,3,10)=""
^DD(64.56,"GL",0,4,15)=""
^DD(64.56,"GL",0,5,17)=""
^DD(64.56,"GL",0,6,18)=""
^DD(64.56,"GL",0,7,25)=""
^DD(64.56,"GL",0,8,26)=""
^DD(64.56,"GL",.1,1,1)=""
^DD(64.56,"GL",.1,2,2)=""
^DD(64.56,"GL",.1,3,3)=""
^DD(64.56,"IX",.01)=""
^DD(64.56,"IX",15)=""
^DD(64.56,"IX",17)=""
^DD(64.56,"IX",18)=""
^DD(64.56,"IX",25)=""
^DD(64.56,"IX",26)=""
^DD(64.56,"RQ",1)=""
^DD(64.56,"RQ",10)=""
^DD(64.57,0)="SEPARATE REPORT LOCATION SUB-FIELD^^1^2"
^DD(64.57,0,"DT")="2940125"
^DD(64.57,0,"IX","B",64.57,.01)=""
^DD(64.57,0,"NM","SEPARATE REPORT LOCATION")=""
^DD(64.57,0,"UP")="64.5"
^DD(64.57,.01,0)="SEPARATE REPORT LOCATION^M*P44'^SC(^0;1^S DIC(""S"")=""I $P(^SC(+Y,0),U,3)'[""""W"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(64.57,.01,1,0)="^.1"
^DD(64.57,.01,1,1,0)="64.57^B"
^DD(64.57,.01,1,1,1)="S ^LAB(64.5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(64.57,.01,1,1,2)="K ^LAB(64.5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(64.57,.01,3)="The location entered in this field will be printed separately from the fileroom"
^DD(64.57,.01,12)="DO NOT ALLOW INPATIENT LOCATIONS"
^DD(64.57,.01,12.1)="S DIC(""S"")=""I $P(^SC(+Y,0),U,3)'[""""W"""""""
^DD(64.57,.01,21,0)="^^3^3^2890117^^"
^DD(64.57,.01,21,1,0)="Outpatient locations entered in this field will be excepted from"
^DD(64.57,.01,21,2,0)="the fileroom print, generating a separate cumulative report for the"
^DD(64.57,.01,21,3,0)="location."
^DD(64.57,.01,"DT")="2881221"
^DD(64.57,1,0)="ALTERNATE FILE ROOM^F^^0;2^K:$L(X)>10!($L(X)<3) X"
^DD(64.57,1,3)="Enter a 3-10 character name if this location is to print to an alternate file room."
^DD(64.57,1,21,0)="^^10^10^2940127^^"
^DD(64.57,1,21,1,0)="This field is used to designate those locations which a site wishes to print"
^DD(64.57,1,21,2,0)="to a ""FILE ROOM"" location but which they do not wish to be a standard file"
^DD(64.57,1,21,3,0)="room. This could be sites which have satellite clinics which have their own"
^DD(64.57,1,21,4,0)="file rooms. The name entered here will cause this location to be sorted to"
^DD(64.57,1,21,5,0)="a location called ""FILE ROOM_ alternate file room name"" followed by a ""1"""
^DD(64.57,1,21,6,0)="or ""2"". The patients will be sorted in terminal digit order similar to"
^DD(64.57,1,21,7,0)="the regular file room. This requires that the site has ""FILE ROOM"" set"
^DD(64.57,1,21,8,0)="to ""yes"" to sort non in-patients to location ""FILE ROOM""."
^DD(64.57,1,21,9,0)=" "
^DD(64.57,1,21,10,0)="See description to field #17,""SEPARATE FILE ROOM"" for additional information."
^DD(64.57,1,"DT")="2940125"
^DD(64.57,"B","ALTERNATE FILE ROOM",1)=""
^DD(64.57,"B","SEPARATE REPORT LOCATION",.01)=""
^DD(64.57,"GL",0,1,.01)=""
^DD(64.57,"GL",0,2,1)=""
^DD(64.57,"IX",.01)=""
^DD(64.6,0)="FIELD^^6^7"
^DD(64.6,0,"DT")="2930805"
^DD(64.6,0,"ID",3)="W """""
^DD(64.6,0,"IX","AD",64.6,3)=""
^DD(64.6,0,"IX","AI",64.6,.01)=""
^DD(64.6,0,"IX","AI",64.6,2)=""
^DD(64.6,0,"IX","AS",64.6,1)=""
^DD(64.6,0,"IX","AS1",64.6,.01)=""
^DD(64.6,0,"IX","B",64.6,.01)=""
^DD(64.6,0,"NM","INTERIM REPORTS")=""
^DD(64.6,0,"VR")="5.2"
^DD(64.6,.01,0)="LOCATION^R*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,2)]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(64.6,.01,1,0)="^.1"
^DD(64.6,.01,1,1,0)="64.6^B"
^DD(64.6,.01,1,1,1)="S ^LAB(64.6,""B"",$E(X,1,30),DA)="""""
^DD(64.6,.01,1,1,2)="K ^LAB(64.6,""B"",$E(X,1,30),DA)"
^DD(64.6,.01,1,2,0)="^^TRIGGER^64.6^5"
^DD(64.6,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(64.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P($G(^SC(+X,0)),U,2) X ^DD(64.6,.01,1,2,1.4)"
^DD(64.6,.01,1,2,1.1)="S X=DIV S X=$S($L($P($G(^SC(+X,0)),U,2)):$P(^(0),U,2),1:""UNK"")"
^DD(64.6,.01,1,2,1.4)="S DIH=$S($D(^LAB(64.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=64.6,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(64.6,.01,1,2,2)="Q"
^DD(64.6,.01,1,2,"CREATE VALUE")="S X=$P($G(^SC(+X,0)),U,2)"
^DD(64.6,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(64.6,.01,1,2,"DT")="2910305"
^DD(64.6,.01,1,2,"FIELD")="LOCATION ABB"
^DD(64.6,.01,1,3,0)="64.6^AI^MUMPS"
^DD(64.6,.01,1,3,1)="S:$P(^LAB(64.6,DA,0),U,3) ^LAB(64.6,""AI"",$P(^LAB(64.6,DA,0),U,6),DA)="""""
^DD(64.6,.01,1,3,2)="K:$P(^LAB(64.6,DA,0),U,3) ^LAB(64.6,""AI"",$P(^LAB(64.6,DA,0),U,6),DA)"
^DD(64.6,.01,1,3,"DT")="2910305"
^DD(64.6,.01,1,4,0)="64.6^AS1^MUMPS"
^DD(64.6,.01,1,4,1)="S:$P(^LAB(64.6,DA,0),U,2) ^LAB(64.6,""AS"",$P(^LAB(64.6,DA,0),U,6),DA)="""""
^DD(64.6,.01,1,4,2)="K:$P(^LAB(64.6,DA,0),U,2) ^LAB(64.6,""AS"",$P(^LAB(64.6,DA,0),U,6),DA)"
^DD(64.6,.01,1,4,"DT")="2910305"
^DD(64.6,.01,3)=""
^DD(64.6,.01,12)="Can use only locations that have abbreviations."
^DD(64.6,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)]"""""""""""
^DD(64.6,.01,21,0)="^^2^2^2911205^"
^DD(64.6,.01,21,1,0)="This is the ward or clinic that will be"
^DD(64.6,.01,21,2,0)="receiving interim reports."
^DD(64.6,.01,"DT")="2910305"
^DD(64.6,1,0)="IMMEDIATELY TRANSMIT RESULTS^S^1:YES;0:NO;^0;2^Q"
^DD(64.6,1,1,0)="^.1"
^DD(64.6,1,1,1,0)="64.6^AS^MUMPS"
^DD(64.6,1,1,1,1)="S:X ^LAB(64.6,""AS"",$P(^LAB(64.6,DA,0),U,6),DA)="""""
^DD(64.6,1,1,1,2)="K ^LAB(64.6,""AS"",$P(^LAB(64.6,DA,0),U,6),DA)"
^DD(64.6,1,1,1,"DT")="2910305"
^DD(64.6,1,21,0)="^^2^2^2841204^^"
^DD(64.6,1,21,1,0)="If this field is yes, all new data when verified will be transmitted to"
^DD(64.6,1,21,2,0)="the device identified for the given location."
^DD(64.6,1,"DT")="2910305"
^DD(64.6,2,0)="INTERIM REPORTING^S^1:YES;0:NO;^0;3^Q"
^DD(64.6,2,1,0)="^.1"
^DD(64.6,2,1,1,0)="64.6^AI^MUMPS"
^DD(64.6,2,1,1,1)="S:X ^LAB(64.6,""AI"",$P(^LAB(64.6,DA,0),U,6),DA)="""""
^DD(64.6,2,1,1,2)="K ^LAB(64.6,""AI"",$P(^LAB(64.6,DA,0),U,6),DA)"
^DD(64.6,2,1,1,"DT")="2910305"
^DD(64.6,2,21,0)="^^3^3^2940316^^^"
^DD(64.6,2,21,1,0)="If this field is yes, the interim reports tasked  by TaskMan, will"
^DD(64.6,2,21,2,0)="transmit all verified data for the current day appropriate for the"
^DD(64.6,2,21,3,0)="location."
^DD(64.6,2,"DT")="2910305"
^DD(64.6,3,0)="DEVICE^R*P3.5'X^%ZIS(1,^0;4^K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)=""EMQ"" D ^DIC S X=$P(Y,U,2),DIC=DIE K:Y<1 X"
^DD(64.6,3,1,0)="^.1"
^DD(64.6,3,1,1,0)="64.6^AD"
^DD(64.6,3,1,1,1)="S ^LAB(64.6,""AD"",$E(X,1,30),DA)="""""
^DD(64.6,3,1,1,2)="K ^LAB(64.6,""AD"",$E(X,1,30),DA)"
^DD(64.6,3,3)="ENTER THE NAME OF THE DEVICE TO PRINT THIS REPORT ON"
^DD(64.6,3,4)="S X=""?"",DIC(0)=""Q"",DIC=""^%ZIS(1,"",PDO(2)=$S($D(DO(2)):DO(2),1:"""") D ^DIC S DO(2)=PDO(2) K DIC,PDO(2)"
^DD(64.6,3,21,0)="^^1^1^2860221^^"
^DD(64.6,3,21,1,0)="The default device to print the interim report on."
^DD(64.6,3,"DT")="2870430"
^DD(64.6,4,0)="URGENCY CUTOFF^*P62.05'^LAB(62.05,^0;5^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(64.6,4,12)="Prevent the selection of WKLD urgency"
^DD(64.6,4,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(64.6,4,21,0)="^^6^6^2870112^"
^DD(64.6,4,21,1,0)="This field is used when lab results are verified and immediately"
^DD(64.6,4,21,2,0)="reported/printed on a ward.  If this field is left blank, all"
^DD(64.6,4,21,3,0)="tests of all urgencies will be reported.  If an urgency is entered"
^DD(64.6,4,21,4,0)="in this field, that urgency along with all higher urgencies will"
^DD(64.6,4,21,5,0)="be reported to the ward leaving all lower urgencies not immediately"
^DD(64.6,4,21,6,0)="reported."
^DD(64.6,4,"DT")="2930805"
^DD(64.6,5,0)="LOCATION ABBREVIATION^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(64.6,5,3)="Answer must be 1-30 characters in length."
^DD(64.6,5,5,1,0)="64.6^.01^2"
^DD(64.6,5,9)="^"
^DD(64.6,5,21,0)="^^1^1^2930325^"
^DD(64.6,5,21,1,0)=" This field contains the printable short name for the location."
^DD(64.6,5,"DT")="2910305"
^DD(64.6,6,0)="DOMAIN NAME^P4.2'^DIC(4.2,^0;7^Q"
^DD(64.6,6,3)="If this location is a referring site then enter that's site Domain name."
^DD(64.6,6,21,0)="^^1^1^2970402^"
^DD(64.6,6,21,1,0)="This field is used to identify the Referring Site."
^DD(64.6,6,"DT")="2970402"
^DD(64.6,"B","DEVICE",3)=""
^DD(64.6,"B","DOMAIN NAME",6)=""
^DD(64.6,"B","IMMEDIATELY TRANSMIT RESULTS",1)=""
^DD(64.6,"B","INTERIM REPORTING",2)=""
^DD(64.6,"B","LOCATION",.01)=""
^DD(64.6,"B","LOCATION ABBREVIATION",5)=""
^DD(64.6,"B","URGENCY CUTOFF",4)=""
^DD(64.6,"GL",0,1,.01)=""
^DD(64.6,"GL",0,2,1)=""
^DD(64.6,"GL",0,3,2)=""
^DD(64.6,"GL",0,4,3)=""
^DD(64.6,"GL",0,5,4)=""
^DD(64.6,"GL",0,6,5)=""
^DD(64.6,"GL",0,7,6)=""
^DD(64.6,"IX",.01)=""
^DD(64.6,"IX",1)=""
^DD(64.6,"IX",2)=""
^DD(64.6,"IX",3)=""
^DD(64.6,"RQ",.01)=""
^DD(64.6,"RQ",3)=""
^DD(64.60999,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(64.60999,0,"NM","COMMENTS")=""
^DD(64.60999,0,"UP")="64.23999"
^DD(64.60999,.01,0)="COMMENTS^W^^0;1^Q"
^DD(64.60999,.01,"DT")="2931117"
^DD(64.60999,"B","COMMENTS",.01)=""
^DD(64.60999,"GL",0,1,.01)=""
^DD(64.61,0)="DATE SUB-FIELD^^1^2"
^DD(64.61,0,"IX","B",64.61,.01)=""
^DD(64.61,0,"NM","DATE")=""
^DD(64.61,0,"UP")="64.06"
^DD(64.61,.01,0)="DATE^MDX^^0;1^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X S:$D(X) X=$E(X,1,5)_""00"""
^DD(64.61,.01,1,0)="^.1"
^DD(64.61,.01,1,1,0)="64.61^B"
^DD(64.61,.01,1,1,1)="S ^LAB(64.05,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.61,.01,1,1,2)="K ^LAB(64.05,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.61,1,0)="Hrs.^NJ6,2^^0;2^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""3N.N) X"
^DD(64.61,1,3)="Type a Number between 0 and 500, 2 Decimal Digits"
^DD(64.61,"B","DATE",.01)=""
^DD(64.61,"B","Hrs.",1)=""
^DD(64.61,"GL",0,1,.01)=""
^DD(64.61,"GL",0,2,1)=""
^DD(64.61,"IX",.01)=""
^DD(64.614,0)="ASSOCIATED FILES SUB-FIELD^^.01^1"
^DD(64.614,0,"DT")="2970108"
^DD(64.614,0,"IX","B",64.614,.01)=""
^DD(64.614,0,"NM","ASSOCIATED FILES")=""
^DD(64.614,0,"UP")="64.061"
^DD(64.614,.01,0)="ASSOCIATED FILES^V^^0;1^Q"
^DD(64.614,.01,1,0)="^.1"
^DD(64.614,.01,1,1,0)="64.614^B"
^DD(64.614,.01,1,1,1)="S ^LAB(64.061,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(64.614,.01,1,1,2)="K ^LAB(64.061,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(64.614,.01,1,1,3)="Required Index for Variable Pointer"
^DD(64.614,.01,"DT")="2970108"
^DD(64.614,.01,"V",0)="^.12P^2^2"
^DD(64.614,.01,"V",1,0)="61^Topography^1^LAB(61,^^n"
^DD(64.614,.01,"V",2,0)="62.05^Urgency^2^LAB(62.05,"
^DD(64.614,.01,"V","B",61,1)=""
^DD(64.614,.01,"V","B",62.05,2)=""
^DD(64.614,.01,"V","M","Topography",1)=""
^DD(64.614,.01,"V","M","Urgency",2)=""
^DD(64.614,.01,"V","O",1,1)=""
^DD(64.614,.01,"V","O",2,2)=""
^DD(64.614,.01,"V","P","LAB(61,",1)=""
^DD(64.614,.01,"V","P","LAB(62.05,",2)=""
^DD(64.614,"B","ASSOCIATED FILES",.01)=""
^DD(64.614,"GL",0,1,.01)=""
^DD(64.614,"IX",.01)=""
^DD(64.7,0)="FIELD^^11^4"
^DD(64.7,0,"IX","B",64.7,.01)=""
^DD(64.7,0,"NM","CUMULATIVE")=""
^DD(64.7,0,"VR")="5.2"
^DD(64.7,.01,0)="LRDFN^RP63'X^LR(^0;1^S:$D(X) DINUM=X"
^DD(64.7,.01,1,0)="^.1"
^DD(64.7,.01,1,1,0)="64.7^B"
^DD(64.7,.01,1,1,1)="S ^LAC(""LRAC"",""B"",$E(X,1,30),DA)="""""
^DD(64.7,.01,1,1,2)="K ^LAC(""LRAC"",""B"",$E(X,1,30),DA)"
^DD(64.7,.01,3)=""
^DD(64.7,.01,21,0)="^^1^1^2911205^"
^DD(64.7,.01,21,1,0)="This is the internal entry in the LAB DATA File."
^DD(64.7,.01,"DT")="2870428"
^DD(64.7,1,0)="PRINT DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(64.7,1,21,0)="^^1^1^2911205^"
^DD(64.7,1,21,1,0)="This is the date the report is printed."
^DD(64.7,10,0)="MAJOR HEADER^64.701^^1;0"
^DD(64.7,10,21,0)="^^1^1^2920504^^"
^DD(64.7,10,21,1,0)="These are the major or general headings of the report."
^DD(64.7,11,0)="MISCELLANEOUS^64.702^^MISC;0"
^DD(64.7,11,21,0)="^^1^1^2911205^"
^DD(64.7,11,21,1,0)="These are test(s) not defined under a major header."
^DD(64.7,"B","LRDFN",.01)=""
^DD(64.7,"B","MAJOR HEADER",10)=""
^DD(64.7,"B","MISCELLANEOUS",11)=""
^DD(64.7,"B","PRINT DATE",1)=""
^DD(64.7,"GL",0,1,.01)=""
^DD(64.7,"GL",0,2,1)=""
^DD(64.7,"GL",1,0,10)=""
^DD(64.7,"GL","MISC",0,11)=""
^DD(64.7,"IX",.01)=""
^DD(64.7,"RQ",.01)=""
^DD(64.7,"SB",64.701,10)=""
^DD(64.7,"SB",64.702,11)=""
^DD(64.701,0)="MAJOR HEADER SUB-FIELD^^10^4"
^DD(64.701,0,"IX","LGOT",64.701,.01)=""
^DD(64.701,0,"NM","MAJOR HEADER")=""
^DD(64.701,0,"UP")="64.7"
^DD(64.701,.01,0)="MAJOR HEADER^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(64.701,.01,1,0)="^.1"
^DD(64.701,.01,1,1,0)="64.701^LGOT^MUMPS"
^DD(64.701,.01,1,1,1)="I $D(^LAC(""LRAC"",DA(1),1,DA,.5)),$P(^(.5),""^"",1)=1 S ^LAC(""LGOT"",DA(1),DA)="""""
^DD(64.701,.01,1,1,2)="Q"
^DD(64.701,.01,1,2,0)="64.701^LGOT^MUMPS"
^DD(64.701,.01,1,2,1)="Q  ;S ^LAC(""LGOT"",LRDFN,LRMH)="""" SET BY PROGRAM (Patient,major header)"
^DD(64.701,.01,1,2,2)="Q"
^DD(64.701,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(64.701,.01,"DT")="2890718"
^DD(64.701,.5,0)="NEW DATA^S^0:NO;1:YES;^.5;1^Q"
^DD(64.701,.5,"DT")="2890718"
^DD(64.701,1,0)="PAGE NUMBER^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.701,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(64.701,10,0)="MINOR HEADER^64.703^^1;0"
^DD(64.701,"B","MAJOR HEADER",.01)=""
^DD(64.701,"B","MINOR HEADER",10)=""
^DD(64.701,"B","NEW DATA",.5)=""
^DD(64.701,"B","PAGE NUMBER",1)=""
^DD(64.701,"GL",0,1,.01)=""
^DD(64.701,"GL",0,2,1)=""
^DD(64.701,"GL",.5,1,.5)=""
^DD(64.701,"GL",1,0,10)=""
^DD(64.701,"IX",.01)=""
^DD(64.701,"SB",64.703,10)=""
^DD(64.702,0)="MISCELLANEOUS SUB-FIELD^^10^4"
^DD(64.702,0,"IX","LGOT1",64.702,.01)=""
^DD(64.702,0,"NM","MISCELLANEOUS")=""
^DD(64.702,0,"UP")="64.7"
^DD(64.702,.01,0)="MISCELLANEOUS^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(64.702,.01,1,0)="^.1"
^DD(64.702,.01,1,1,0)="64.702^LGOT1^MUMPS"
^DD(64.702,.01,1,1,1)="I $D(^LAC(""LRAC"",DA(1),""MISC"",1,.5)),$P(^(.5),""^"",1)=1 S ^LAC(""LGOT"",DA(1),""MISC"")="""""
^DD(64.702,.01,1,1,2)="Q"
^DD(64.702,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(64.702,.01,"DT")="2890718"
^DD(64.702,.5,0)="NEW DATA^S^0:NO;1:YES;^.5;1^Q"
^DD(64.702,.5,"DT")="2890718"
^DD(64.702,1,0)="PAGE^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.702,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(64.702,10,0)="COLLECTION DATE/TIME^64.707D^^1;0"
^DD(64.702,"B","COLLECTION DATE/TIME",10)=""
^DD(64.702,"B","MISCELLANEOUS",.01)=""
^DD(64.702,"B","NEW DATA",.5)=""
^DD(64.702,"B","PAGE",1)=""
^DD(64.702,"GL",0,1,.01)=""
^DD(64.702,"GL",0,2,1)=""
^DD(64.702,"GL",.5,1,.5)=""
^DD(64.702,"GL",1,0,10)=""
^DD(64.702,"IX",.01)=""
^DD(64.702,"SB",64.707,10)=""
^DD(64.703,0)="MINOR HEADER SUB-FIELD^^10^5"
^DD(64.703,0,"NM","MINOR HEADER")=""
^DD(64.703,0,"UP")="64.701"
^DD(64.703,.01,0)="MINOR HEADER^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(64.703,.01,1,0)="^.1^^0"
^DD(64.703,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(64.703,.01,"DT")="2870712"
^DD(64.703,1,0)="TOPOGRAPHY^P61'^LAB(61,^0;2^Q"
^DD(64.703,2,0)="NUMBER OF TESTS^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.703,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(64.703,2,21,0)="^^1^1^2870805^"
^DD(64.703,2,21,1,0)="Number of tests on this minor header."
^DD(64.703,2,"DT")="2870805"
^DD(64.703,3,0)="FORMAT^F^^0;4^K:$L(X)>3!($L(X)<1) X"
^DD(64.703,3,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(64.703,10,0)="COLLECTION DATE/TIME^64.704D^^1;0"
^DD(64.703,"B","COLLECTION DATE/TIME",10)=""
^DD(64.703,"B","FORMAT",3)=""
^DD(64.703,"B","MINOR HEADER",.01)=""
^DD(64.703,"B","NUMBER OF TESTS",2)=""
^DD(64.703,"B","TOPOGRAPHY",1)=""
^DD(64.703,"GL",0,1,.01)=""
^DD(64.703,"GL",0,2,1)=""
^DD(64.703,"GL",0,3,2)=""
^DD(64.703,"GL",0,4,3)=""
^DD(64.703,"GL",1,0,10)=""
^DD(64.703,"SB",64.704,10)=""
^DD(64.704,0)="COLLECTION DATE/TIME SUB-FIELD^^11^7"
^DD(64.704,0,"IX","LRKILL",64.704,.01)=""
^DD(64.704,0,"NM","COLLECTION DATE/TIME")=""
^DD(64.704,0,"UP")="64.703"
^DD(64.704,.01,0)="COLLECTION DATE/TIME^MDX^^0;1^S %DT=""ET"" D ^%DT S X=Y,DINUM=X K:Y<1 X"
^DD(64.704,.01,1,0)="^.1"
^DD(64.704,.01,1,1,0)="64.704^LRKILL^MUMPS"
^DD(64.704,.01,1,1,1)="D LRKILL^LRXREF"
^DD(64.704,.01,1,1,2)="D LRKILL^LRXREF"
^DD(64.704,.01,"DT")="2890719"
^DD(64.704,1,0)="LOCATION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(64.704,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(64.704,2,0)="VERIFY DATE/TIME^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(64.704,3,0)="ACCESSION^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(64.704,3,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(64.704,4,0)="INVERSE DATE/TIME^DX^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=9999999-X"
^DD(64.704,10,0)="RESULTS^64.705^^1;0"
^DD(64.704,11,0)="COMMENTS^64.706^^TX;0"
^DD(64.704,"B","ACCESSION",3)=""
^DD(64.704,"B","COLLECTION DATE/TIME",.01)=""
^DD(64.704,"B","COMMENTS",11)=""
^DD(64.704,"B","INVERSE DATE/TIME",4)=""
^DD(64.704,"B","LOCATION",1)=""
^DD(64.704,"B","RESULTS",10)=""
^DD(64.704,"B","VERIFY DATE/TIME",2)=""
^DD(64.704,"GL",0,1,.01)=""
^DD(64.704,"GL",0,2,1)=""
^DD(64.704,"GL",0,3,2)=""
^DD(64.704,"GL",0,4,3)=""
^DD(64.704,"GL",0,5,4)=""
^DD(64.704,"GL",1,0,10)=""
^DD(64.704,"GL","TX",0,11)=""
^DD(64.704,"IX",.01)=""
^DD(64.704,"SB",64.705,10)=""
^DD(64.704,"SB",64.706,11)=""
^DD(64.705,0)="RESULTS SUB-FIELD^^2^3"
^DD(64.705,0,"IX","LRKILL",64.705,2)=""
^DD(64.705,0,"NM","RESULTS")=""
^DD(64.705,0,"UP")="64.704"
^DD(64.705,.01,0)="RESULTS^MF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(64.705,.01,1,0)="^.1^^0"
^DD(64.705,.01,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(64.705,.01,"DT")="2870712"
^DD(64.705,1,0)="FLAG^F^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(64.705,1,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(64.705,2,0)="TEST LOCATION^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.705,2,1,0)="^.1"
^DD(64.705,2,1,1,0)="64.705^LRKILL^MUMPS"
^DD(64.705,2,1,1,1)="D LRKILL^LRXREF"
^DD(64.705,2,1,1,2)="D LRKILL^LRXREF"
^DD(64.705,2,1,2,0)="64.705^LRKILL^MUMPS"
^DD(64.705,2,1,2,1)="Q  ;S ^LAC(""LRKILL"",LRDFN,LRMH,LRSH,CDT,IFN)=TEST LOCATION"
^DD(64.705,2,1,2,2)="Q"
^DD(64.705,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999999"
^DD(64.705,2,"DT")="2890719"
^DD(64.705,"B","FLAG",1)=""
^DD(64.705,"B","RESULTS",.01)=""
^DD(64.705,"B","TEST LOCATION",2)=""
^DD(64.705,"GL",0,1,.01)=""
^DD(64.705,"GL",0,2,1)=""
^DD(64.705,"GL",0,3,2)=""
^DD(64.705,"IX",2)=""
^DD(64.706,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(64.706,0,"NM","COMMENTS")=""
^DD(64.706,0,"UP")="64.704"
^DD(64.706,.01,0)="COMMENTS^W^^0;1^Q"
^DD(64.706,"B","COMMENTS",.01)=""
^DD(64.706,"GL",0,1,.01)=""
^DD(64.707,0)="COLLECTION DATE/TIME SUB-FIELD^^11^6"
^DD(64.707,0,"IX","LRKILL",64.707,.01)=""
^DD(64.707,0,"NM","COLLECTION DATE/TIME")=""
^DD(64.707,0,"UP")="64.702"
^DD(64.707,.01,0)="INVERSE DATE/TIME^MDX^^0;1^S %DT=""ET"" D ^%DT S X=Y,X=9999999-X K:Y<1 X I $D(X) S DINUM=9999999-X"
^DD(64.707,.01,1,0)="^.1^^0"
^DD(64.707,.01,1,1,0)="64.707^LRKILL^MUMPS"
^DD(64.707,.01,1,1,1)="Q  ;S ^LAC(""LRKILL"",LRDFN,""MISC"",1,CDT,0)=CDT^IDT^VIDT^ACCESSION^TOPOGRAPHY"
^DD(64.707,.01,1,1,2)="Q"
^DD(64.707,.01,"DT")="2890719"
^DD(64.707,1,0)="COLLECTION DATE/TIME^DX^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(64.707,1,"DT")="2870722"
^DD(64.707,2,0)="VERIFY DATE/TIME^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(64.707,2,"DT")="2861216"
^DD(64.707,3,0)="ACCESSION^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(64.707,3,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(64.707,3,"DT")="2870722"
^DD(64.707,10,0)="RESULT^64.708^^1;0"
^DD(64.707,11,0)="COMMENTS^64.709^^TX;0"
^DD(64.707,"B","ACCESSION",3)=""
^DD(64.707,"B","COLLECTION DATE/TIME",1)=""
^DD(64.707,"B","COMMENTS",11)=""
^DD(64.707,"B","INVERSE DATE/TIME",.01)=""
^DD(64.707,"B","RESULT",10)=""
^DD(64.707,"B","VERIFY DATE/TIME",2)=""
^DD(64.707,"GL",0,1,.01)=""
^DD(64.707,"GL",0,2,1)=""
^DD(64.707,"GL",0,3,2)=""
^DD(64.707,"GL",0,4,3)=""
^DD(64.707,"GL",1,0,10)=""
^DD(64.707,"GL","TX",0,11)=""
^DD(64.707,"IX",.01)=""
^DD(64.707,"SB",64.708,10)=""
^DD(64.707,"SB",64.709,11)=""
^DD(64.708,0)="RESULT SUB-FIELD^^4^5"
^DD(64.708,0,"IX","LRKILL",64.708,4)=""
^DD(64.708,0,"NM","RESULT")=""
^DD(64.708,0,"UP")="64.707"
^DD(64.708,.01,0)="RESULT^MF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(64.708,.01,1,0)="^.1^^0"
^DD(64.708,.01,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(64.708,.01,"DT")="2861216"
^DD(64.708,1,0)="TOPOGRAPHY^P61'^LAB(61,^0;2^Q"
^DD(64.708,1,"DT")="2861216"
^DD(64.708,2,0)="TEST^P60'^LAB(60,^0;3^Q"
^DD(64.708,2,"DT")="2861216"
^DD(64.708,3,0)="FLAG^F^^0;4^K:$L(X)>4!($L(X)<1) X"
^DD(64.708,3,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(64.708,3,"DT")="2861216"
^DD(64.708,4,0)="TEST LOCATION^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(64.708,4,1,0)="^.1"
^DD(64.708,4,1,1,0)="64.708^LRKILL^MUMPS"
^DD(64.708,4,1,1,1)="D LRKILL^LRXREF"
^DD(64.708,4,1,1,2)="D LRKILL^LRXREF"
^DD(64.708,4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999999"
^DD(64.708,4,"DT")="2890719"
^DD(64.708,"B","FLAG",3)=""
^DD(64.708,"B","RESULT",.01)=""
^DD(64.708,"B","TEST",2)=""
^DD(64.708,"B","TEST LOCATION",4)=""
^DD(64.708,"B","TOPOGRAPHY",1)=""
^DD(64.708,"GL",0,1,.01)=""
^DD(64.708,"GL",0,2,1)=""
^DD(64.708,"GL",0,3,2)=""
^DD(64.708,"GL",0,4,3)=""
^DD(64.708,"GL",0,5,4)=""
^DD(64.708,"IX",4)=""
^DD(64.709,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(64.709,0,"NM","COMMENTS")=""
^DD(64.709,0,"UP")="64.707"
^DD(64.709,.01,0)="COMMENTS^W^^0;1^Q"
^DD(64.709,.01,"DT")="2861216"
^DD(64.709,"B","COMMENTS",.01)=""
^DD(64.709,"GL",0,1,.01)=""
^DD(64.81,0)="FIELD^^17^17"
^DD(64.81,0,"DT")="3060214"
^DD(64.81,0,"IX","AC",64.8117,15)=""
^DD(64.81,0,"IX","B",64.81,.01)=""
^DD(64.81,0,"IX","C",64.81,1)=""
^DD(64.81,0,"IX","D",64.81,10)=""
^DD(64.81,0,"NM","LAB NLT/CPT CODES")=""
^DD(64.81,0,"VR")="5.2"
^DD(64.81,0,"VRPK")="LR"
^DD(64.81,0,"VRRV")="2.14"
^DD(64.81,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X"
^DD(64.81,.01,1,0)="^.1"
^DD(64.81,.01,1,1,0)="64.81^B"
^DD(64.81,.01,1,1,1)="S ^LAB(64.81,""B"",$E(X,1,30),DA)="""""
^DD(64.81,.01,1,1,2)="K ^LAB(64.81,""B"",$E(X,1,30),DA)"
^DD(64.81,.01,3)="Answer must be 3-60 characters in length."
^DD(64.81,.01,"DT")="3000112"
^DD(64.81,1,0)="NLT CODE^F^^0;2^K:$L(X)>13!($L(X)<5) X"
^DD(64.81,1,1,0)="^.1"
^DD(64.81,1,1,1,0)="64.81^C"
^DD(64.81,1,1,1,1)="S ^LAB(64.81,""C"",$E(X,1,30),DA)="""""
^DD(64.81,1,1,1,2)="K ^LAB(64.81,""C"",$E(X,1,30),DA)"
^DD(64.81,1,1,1,"DT")="2960731"
^DD(64.81,1,3)="Answer must be 5-13 characters in length."
^DD(64.81,1,21,0)="^^1^1^3001227^"
^DD(64.81,1,21,1,0)="These are codes used to update target files with new procedures."
^DD(64.81,1,"DT")="3001227"
^DD(64.81,2,0)="EXTERNAL CODE^F^^0;3^K:$L(X)>10!($L(X)<5) X"
^DD(64.81,2,1,0)="^.1^^0"
^DD(64.81,2,3)="Answer must be 5-10 characters in length."
^DD(64.81,2,"DT")="3000410"
^DD(64.81,3,0)="RELEASE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.81,3,"DT")="2960731"
^DD(64.81,4,0)="INACTIVE DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(64.81,4,"DT")="2960731"
^DD(64.81,5,0)="REPLACEMENT CODE^F^^0;6^K:$L(X)>10!($L(X)<5) X"
^DD(64.81,5,3)="Answer must be 5-10 characters in length."
^DD(64.81,5,"DT")="2960731"
^DD(64.81,6,0)="TYPE^S^CPT:CPT CODE;SNO:SNOMED CODE;ICD:ICD9 CODE;NOS:NOS;^0;7^Q"
^DD(64.81,6,"DT")="2960731"
^DD(64.81,7,0)="NAME CHANGE^F^^0;8^K:$L(X)>60!($L(X)<3) X"
^DD(64.81,7,3)="Answer must be 3-60 characters in length."
^DD(64.81,7,"DT")="2960731"
^DD(64.81,8,0)="INSTALL ERROR^F^^0;9^K:$L(X)>20!($L(X)<2) X"
^DD(64.81,8,3)="Answer must be 2-20 characters in length."
^DD(64.81,8,"DT")="2960731"
^DD(64.81,10,0)="SUFFIX CODE^F^^1;2^K:$L(X)>10!($L(X)<5) X"
^DD(64.81,10,1,0)="^.1"
^DD(64.81,10,1,1,0)="64.81^D"
^DD(64.81,10,1,1,1)="S ^LAB(64.81,""D"",$E(X,1,30),DA)="""""
^DD(64.81,10,1,1,2)="K ^LAB(64.81,""D"",$E(X,1,30),DA)"
^DD(64.81,10,1,1,"DT")="2991129"
^DD(64.81,10,3)="Answer must be 5-10 characters in length."
^DD(64.81,10,"DT")="2991129"
^DD(64.81,11,0)="SUFFIX CODE CHANGE^F^^1;3^K:$L(X)>10!($L(X)<5) X"
^DD(64.81,11,1,0)="^.1^^0"
^DD(64.81,11,3)="Answer must be 5-10 characters in length."
^DD(64.81,11,"DT")="3000410"
^DD(64.81,12,0)="FILE CHANGE^RNJ4,1^^1;4^K:+X'=X!(X>64.2)!(X<64)!(X?.E1"".""2N.N) X"
^DD(64.81,12,3)="Type a Number between 64 and 64.2, 1 Decimal Digit"
^DD(64.81,12,"DT")="2991129"
^DD(64.81,12,"V",0)="^.12P^^0"
^DD(64.81,13,0)="SYNONYM CODE^F^^1;5^K:$L(X)>10!($L(X)<5) X"
^DD(64.81,13,1,0)="^.1^^0"
^DD(64.81,13,3)="Answer must be 5-10 characters in length."
^DD(64.81,13,"DT")="3000410"
^DD(64.81,14,0)="SYNONYM CODE CHANGE^F^^1;6^K:$L(X)>10!($L(X)<5) X"
^DD(64.81,14,1,0)="^.1^^0"
^DD(64.81,14,3)="Answer must be 5-10 characters in length."
^DD(64.81,14,"DT")="3000410"
^DD(64.81,15,0)="SYNONYM NAME^F^^1;7^K:$L(X)>60!($L(X)<3) X"
^DD(64.81,15,1,0)="^.1^^0"
^DD(64.81,15,3)="Answer must be 3-60 characters in length."
^DD(64.81,15,"DT")="3000410"
^DD(64.81,16,0)="SYNONYM NAME CHANGE^F^^1;8^K:$L(X)>60!($L(X)<3) X"
^DD(64.81,16,3)="Answer must be 3-60 characters in length."
^DD(64.81,16,"DT")="2991124"
^DD(64.81,17,0)="TRANSPORT^64.8117A^^2;0"
^DD(64.81,17,21,0)="^.001^1^1^3000425^^^^"
^DD(64.81,17,21,1,0)="This is an entry transported from the Workload Code file (64)."
^DD(64.81,17,"DT")="3000415"
^DD(64.81,"B","EXTERNAL CODE",2)=""
^DD(64.81,"B","FILE CHANGE",12)=""
^DD(64.81,"B","INACTIVE DATE",4)=""
^DD(64.81,"B","INSTALL ERROR",8)=""
^DD(64.81,"B","NAME",.01)=""
^DD(64.81,"B","NAME CHANGE",7)=""
^DD(64.81,"B","NLT CODE",1)=""
^DD(64.81,"B","RELEASE DATE",3)=""
^DD(64.81,"B","REPLACEMENT CODE",5)=""
^DD(64.81,"B","SUFFIX CODE",10)=""
^DD(64.81,"B","SUFFIX CODE CHANGE",11)=""
^DD(64.81,"B","SYNONYM CODE",13)=""
^DD(64.81,"B","SYNONYM CODE CHANGE",14)=""
^DD(64.81,"B","SYNONYM NAME",15)=""
^DD(64.81,"B","SYNONYM NAME CHANGE",16)=""
^DD(64.81,"B","TRANSPORT",17)=""
^DD(64.81,"B","TYPE",6)=""
^DD(64.81,"GL",0,1,.01)=""
^DD(64.81,"GL",0,2,1)=""
^DD(64.81,"GL",0,3,2)=""
^DD(64.81,"GL",0,4,3)=""
^DD(64.81,"GL",0,5,4)=""
^DD(64.81,"GL",0,6,5)=""
^DD(64.81,"GL",0,7,6)=""
^DD(64.81,"GL",0,8,7)=""
^DD(64.81,"GL",0,9,8)=""
^DD(64.81,"GL",1,2,10)=""
^DD(64.81,"GL",1,3,11)=""
^DD(64.81,"GL",1,4,12)=""
^DD(64.81,"GL",1,5,13)=""
^DD(64.81,"GL",1,6,14)=""
^DD(64.81,"GL",1,7,15)=""
^DD(64.81,"GL",1,8,16)=""
^DD(64.81,"GL",2,0,17)=""
^DD(64.81,"IX",.01)=""
^DD(64.81,"IX",1)=""
^DD(64.81,"IX",10)=""
^DD(64.81,"RQ",.01)=""
^DD(64.81,"RQ",12)=""
^DD(64.81,"SB",64.8117,17)=""
^DD(64.8117,0)="TRANSPORT SUB-FIELD^^64^22"
^DD(64.8117,0,"DT")="3060214"
^DD(64.8117,0,"IX","B",64.8117,.01)=""
^DD(64.8117,0,"IX","C",64.8117,1)=""
^DD(64.8117,0,"IX","D",64.8117,2)=""
^DD(64.8117,0,"NM","TRANSPORT")=""
^DD(64.8117,0,"UP")="64.81"
^DD(64.8117,.01,0)="TRANSPORT #^MNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(64.8117,.01,1,0)="^.1"
^DD(64.8117,.01,1,1,0)="64.8117^B"
^DD(64.8117,.01,1,1,1)="S ^LAB(64.81,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(64.8117,.01,1,1,2)="K ^LAB(64.81,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(64.8117,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(64.8117,.01,21,0)="^^2^2^3000421^"
^DD(64.8117,.01,21,1,0)="This number represents the IEN number for the reference soruce file being"
^DD(64.8117,.01,21,2,0)="transported. [^LAM(#,0)]"
^DD(64.8117,.01,23,0)="^.001^1^1^3000421^^^^"
^DD(64.8117,.01,23,1,0)="This number is the ien of the WKLD Code file (64)."
^DD(64.8117,.01,"DT")="3000421"
^DD(64.8117,1,0)="PROCEDURE^F^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(64.8117,1,1,0)="^.1"
^DD(64.8117,1,1,1,0)="64.8117^C"
^DD(64.8117,1,1,1,1)="S ^LAB(64.81,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(64.8117,1,1,1,2)="K ^LAB(64.81,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(64.8117,1,1,1,"DT")="3000717"
^DD(64.8117,1,3)="Answer must be 2-50 characters in length."
^DD(64.8117,1,21,0)="^^1^1^3001227^"
^DD(64.8117,1,21,1,0)="This is the procedure name."
^DD(64.8117,1,"DT")="3001227"
^DD(64.8117,1.02,0)="DESCRIPTION^64.813^^2;0"
^DD(64.8117,1.04,0)="PRINT NAME^F^^3;1^K:$L(X)>30!($L(X)<2) X"
^DD(64.8117,1.04,3)="Answer must be 2-30 characters in length."
^DD(64.8117,1.04,21,0)="^^1^1^3000418^"
^DD(64.8117,1.04,21,1,0)="This field contains a condensed version of the name."
^DD(64.8117,1.04,"DT")="3000418"
^DD(64.8117,2,0)="WKLD CODE^F^^0;3^K:$L(X)>11!($L(X)<10) X"
^DD(64.8117,2,1,0)="^.1"
^DD(64.8117,2,1,1,0)="64.8117^D"
^DD(64.8117,2,1,1,1)="S ^LAB(64.81,DA(1),2,""D"",$E(X,1,30),DA)="""""
^DD(64.8117,2,1,1,2)="K ^LAB(64.81,DA(1),2,""D"",$E(X,1,30),DA)"
^DD(64.8117,2,1,1,"DT")="3000717"
^DD(64.8117,2,3)="Answer must be 10-11 characters in length."
^DD(64.8117,2,21,0)="^^1^1^3001227^"
^DD(64.8117,2,21,1,0)="This is the code number for the procedure."
^DD(64.8117,2,"DT")="3001227"
^DD(64.8117,3,0)="WKLD UNIT WEIGHT^NJ5,1^^0;4^K:+X'=X!(X>900)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(64.8117,3,3)="Type a Number between .1 and 900, 1 Decimal Digit"
^DD(64.8117,3,21,0)="^^1^1^3001227^"
^DD(64.8117,3,21,1,0)="The units or weight for this procedure."
^DD(64.8117,3,"DT")="3001227"
^DD(64.8117,5,0)="BILLABLE PROCEDURE^S^1:YES;0:NO;^0;6^Q"
^DD(64.8117,5,21,0)="^^1^1^3001227^"
^DD(64.8117,5,21,1,0)="Indicates if this procedure is billable using LMIP rules."
^DD(64.8117,5,"DT")="3001227"
^DD(64.8117,6,0)="Reserve 1^F^^0;7^K:$L(X)>5!($L(X)<5) X"
^DD(64.8117,6,3)="Answer must be 5 characters in length."
^DD(64.8117,6,21,0)="^^1^1^3001227^"
^DD(64.8117,6,21,1,0)="Not used."
^DD(64.8117,6,"DT")="3001227"
^DD(64.8117,7,0)="UNIT FOR COUNT^P64.22'^LAB(64.22,^0;8^Q"
^DD(64.8117,7,21,0)="^^1^1^3001227^"
^DD(64.8117,7,21,1,0)="Indicate what specimen unit is used for counting."
^DD(64.8117,7,"DT")="3001227"
^DD(64.8117,8,0)="COST^NJ8,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0)!(X?.E1"".""3.N) X"
^DD(64.8117,8,3)="Type a Dollar amount between 0 and 10000, 2 Decimal Digits"
^DD(64.8117,8,21,0)="^^1^1^3001227^"
^DD(64.8117,8,21,1,0)="The cost of this procedure."
^DD(64.8117,8,"DT")="3001227"
^DD(64.8117,9,0)="PRICE^NJ8,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<.01)!(X?.E1"".""3.N) X"
^DD(64.8117,9,3)="Type a Dollar amount between .01 and 10000, 2 Decimal Digits"
^DD(64.8117,9,21,0)="^^1^1^3001227^"
^DD(64.8117,9,21,1,0)="The price of this procedure."
^DD(64.8117,9,"DT")="3001227"
^DD(64.8117,10,0)="SORTING GROUP^F^^0;13^K:$L(X)>10!($L(X)<1) X"
^DD(64.8117,10,3)="Answer must be 1-10 characters in length."
^DD(64.8117,10,21,0)="^^1^1^3001227^"
^DD(64.8117,10,21,1,0)="What local sorting group is used to listing of procedures."
^DD(64.8117,10,"DT")="3001227"
^DD(64.8117,12,0)="Reserve 3^S^1:YES;^0;14^Q"
^DD(64.8117,12,21,0)="^^1^1^3001227^"
^DD(64.8117,12,21,1,0)="Not used."
^DD(64.8117,12,"DT")="3001227"
^DD(64.8117,13,0)="MANUFACTURER^P64.3'^LAB(64.3,^0;15^Q"
^DD(64.8117,13,21,0)="^^1^1^3001227^"
^DD(64.8117,13,21,1,0)="The manufacturer of this procedure or test."
^DD(64.8117,13,"DT")="3001227"
^DD(64.8117,14,0)="WKLD CODE LAB SECTION^P64.21'^LAB(64.21,^0;16^Q"
^DD(64.8117,14,21,0)="^^1^1^3001227^"
^DD(64.8117,14,21,1,0)="What standardized workload section this procedure is assigned."
^DD(64.8117,14,"DT")="3001227"
^DD(64.8117,15,0)="DSS Feeder Key^S^1:YES;^0;17^Q"
^DD(64.8117,15,1,0)="^.1"
^DD(64.8117,15,1,1,0)="64.81^AC"
^DD(64.8117,15,1,1,1)="S ^LAB(64.81,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(64.8117,15,1,1,2)="K ^LAB(64.81,""AC"",$E(X,1,30),DA(1),DA)"
^DD(64.8117,15,1,1,"DT")="3020912"
^DD(64.8117,15,21,0)="^^1^1^3001227^"
^DD(64.8117,15,21,1,0)="Is this test reportable to DSS API."
^DD(64.8117,15,"DT")="3020912"
^DD(64.8117,16,0)="ACTIVATE WKLD CODE^S^1:YES;^0;18^Q"
^DD(64.8117,16,21,0)="^^1^1^3001227^"
^DD(64.8117,16,21,1,0)="This field indicate is this code has been used to report LMIP data."
^DD(64.8117,16,"DT")="3001227"
^DD(64.8117,17,0)="BATCH ANALYZER^S^1:YES;^0;19^Q"
^DD(64.8117,17,21,0)="^^1^1^3001227^"
^DD(64.8117,17,21,1,0)="Not being used."
^DD(64.8117,17,"DT")="3001227"
^DD(64.8117,18,0)="CODE^64.811718V^^4;0"
^DD(64.8117,19,0)="SYNONYM^64.811719^^1;0"
^DD(64.8117,26,0)="DEFAULT LOINC CODE^P95.3'^LAB(95.3,^9;1^Q"
^DD(64.8117,26,21,0)="^^1^1^3050927^"
^DD(64.8117,26,21,1,0)="Default LOINC code to be used if no specific method is available.."
^DD(64.8117,26,"DT")="3050927"
^DD(64.8117,64,0)="MI/AP DATABASE CODE^P64.061'^LAB(64.061,^63;1^Q"
^DD(64.8117,64,21,0)="^^3^3^3060214^"
^DD(64.8117,64,21,1,0)="This file is used to link the electronic code that contains data storage"
^DD(64.8117,64,21,2,0)="mapping for this WKLD CODE. This mapping is used for HL7 message"
^DD(64.8117,64,21,3,0)="processing."
^DD(64.8117,64,"DT")="3060214"
^DD(64.8117,"B","ACTIVATE WKLD CODE",16)=""
^DD(64.8117,"B","BATCH ANALYZER",17)=""
^DD(64.8117,"B","BILLABLE PROCEDURE",5)=""
^DD(64.8117,"B","CODE",18)=""
^DD(64.8117,"B","COST",8)=""
^DD(64.8117,"B","DEFAULT LOINC CODE",26)=""
^DD(64.8117,"B","DESCRIPTION",1.02)=""
^DD(64.8117,"B","DSS Feeder Key",15)=""
^DD(64.8117,"B","MANUFACTURER",13)=""
^DD(64.8117,"B","MI/AP DATABASE CODE",64)=""
^DD(64.8117,"B","PRICE",9)=""
^DD(64.8117,"B","PRINT NAME",1.04)=""
^DD(64.8117,"B","PROCEDURE",1)=""
^DD(64.8117,"B","Reserve 1",6)=""
^DD(64.8117,"B","Reserve 3",12)=""
^DD(64.8117,"B","SORTING GROUP",10)=""
^DD(64.8117,"B","SYNONYM",19)=""
^DD(64.8117,"B","TRANSPORT #",.01)=""
^DD(64.8117,"B","UNIT FOR COUNT",7)=""
^DD(64.8117,"B","WKLD CODE",2)=""
^DD(64.8117,"B","WKLD CODE LAB SECTION",14)=""
^DD(64.8117,"B","WKLD UNIT WEIGHT",3)=""
^DD(64.8117,"GL",0,1,.01)=""
^DD(64.8117,"GL",0,2,1)=""
^DD(64.8117,"GL",0,3,2)=""
^DD(64.8117,"GL",0,4,3)=""
^DD(64.8117,"GL",0,6,5)=""
^DD(64.8117,"GL",0,7,6)=""
^DD(64.8117,"GL",0,8,7)=""
^DD(64.8117,"GL",0,11,8)=""
^DD(64.8117,"GL",0,12,9)=""
^DD(64.8117,"GL",0,13,10)=""
^DD(64.8117,"GL",0,14,12)=""
^DD(64.8117,"GL",0,15,13)=""
^DD(64.8117,"GL",0,16,14)=""
^DD(64.8117,"GL",0,17,15)=""
^DD(64.8117,"GL",0,18,16)=""
^DD(64.8117,"GL",0,19,17)=""
^DD(64.8117,"GL",1,0,19)=""
^DD(64.8117,"GL",2,0,1.02)=""
^DD(64.8117,"GL",3,1,1.04)=""
^DD(64.8117,"GL",4,0,18)=""
^DD(64.8117,"GL",9,1,26)=""
^DD(64.8117,"GL",63,1,64)=""
^DD(64.8117,"IX",.01)=""
^DD(64.8117,"IX",1)=""
^DD(64.8117,"IX",2)=""
^DD(64.8117,"IX",15)=""
^DD(64.8117,"SB",64.811718,18)=""
^DD(64.8117,"SB",64.811719,19)=""
^DD(64.8117,"SB",64.813,1.02)=""
^DD(64.811718,0)="CODE SUB-FIELD^^6^6"
^DD(64.811718,0,"DT")="3001227"
^DD(64.811718,0,"IX","B",64.811718,.01)=""
^DD(64.811718,0,"NM","CODE")=""
^DD(64.811718,0,"UP")="64.8117"
^DD(64.811718,.01,0)="CODE^MV^^0;1^Q"
^DD(64.811718,.01,1,0)="^.1"
^DD(64.811718,.01,1,1,0)="64.811718^B"
^DD(64.811718,.01,1,1,1)="S ^LAB(64.81,DA(2),2,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(64.811718,.01,1,1,2)="K ^LAB(64.81,DA(2),2,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(64.811718,.01,1,1,3)="Required Index for Variable Pointer"
^DD(64.811718,.01,21,0)="^.001^1^1^3030402^^^"
^DD(64.811718,.01,21,1,0)="What code is assigned to this procedure."
^DD(64.811718,.01,"DT")="3030401"
^DD(64.811718,.01,"V",0)="^.12P^3^3"
^DD(64.811718,.01,"V",1,0)="81^active CPT code.^1^CPT^y^n"
^DD(64.811718,.01,"V",1,1)="S DIC(""S"")=""I $P($$CPT^ICPTCOD(+Y),U,7)"""
^DD(64.811718,.01,"V",1,2)="Only select active CPT codes."
^DD(64.811718,.01,"V",2,0)="61.1^SNOMED code.^2^SNOMED^n^n"
^DD(64.811718,.01,"V",3,0)="80^active ICD9 code.^3^ICD9^y^n"
^DD(64.811718,.01,"V",3,1)="S DIC(""S"")=""I '$P(^ICD9(Y,0),U,9)"""
^DD(64.811718,.01,"V",3,2)="No inactive ICD9 codes."
^DD(64.811718,.01,"V","B",61.1,2)=""
^DD(64.811718,.01,"V","B",80,3)=""
^DD(64.811718,.01,"V","B",81,1)=""
^DD(64.811718,.01,"V","M","SNOMED code.",2)=""
^DD(64.811718,.01,"V","M","active CPT code.",1)=""
^DD(64.811718,.01,"V","M","active ICD9 code.",3)=""
^DD(64.811718,.01,"V","O",1,1)=""
^DD(64.811718,.01,"V","O",2,2)=""
^DD(64.811718,.01,"V","O",3,3)=""
^DD(64.811718,.01,"V","P","CPT",1)=""
^DD(64.811718,.01,"V","P","ICD9",3)=""
^DD(64.811718,.01,"V","P","SNOMED",2)=""
^DD(64.811718,2,0)="RELEASE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(64.811718,2,21,0)="^^1^1^3001227^"
^DD(64.811718,2,21,1,0)="Enter the date that the code becomes 'ACTIVE'."
^DD(64.811718,2,"DT")="3001227"
^DD(64.811718,3,0)="INACTIVE DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(64.811718,3,21,0)="^^1^1^3000418^"
^DD(64.811718,3,21,1,0)="Enter the date that the code became 'INACTIVE'."
^DD(64.811718,3,"DT")="3000418"
^DD(64.811718,4,0)="REPLACEMENT CODE^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(64.811718,4,3)="Answer must be 1-20 characters in length."
^DD(64.811718,4,21,0)="^^1^1^3000418^"
^DD(64.811718,4,21,1,0)="Enter the replacing code after inactivation."
^DD(64.811718,4,"DT")="3000418"
^DD(64.811718,5,0)="TYPE^S^CPT:CPT CODE;SNO:SNOMED CODE;ICD:ICD9 CODE;NOS:NOS;^0;2^Q"
^DD(64.811718,5,21,0)="^^1^1^3000418^"
^DD(64.811718,5,21,1,0)="Enter the coding system that uses this code."
^DD(64.811718,5,"DT")="3000418"
^DD(64.811718,6,0)="CODE NOTES^64.8117186^^1;0"
^DD(64.811718,"B","CODE",.01)=""
^DD(64.811718,"B","CODE NOTES",6)=""
^DD(64.811718,"B","INACTIVE DATE",3)=""
^DD(64.811718,"B","RELEASE DATE",2)=""
^DD(64.811718,"B","REPLACEMENT CODE",4)=""
^DD(64.811718,"B","TYPE",5)=""
^DD(64.811718,"GL",0,1,.01)=""
^DD(64.811718,"GL",0,2,5)=""
^DD(64.811718,"GL",0,3,2)=""
^DD(64.811718,"GL",0,4,3)=""
^DD(64.811718,"GL",0,5,4)=""
^DD(64.811718,"GL",1,0,6)=""
^DD(64.811718,"IX",.01)=""
^DD(64.811718,"SB",64.8117186,6)=""
^DD(64.8117186,0)="CODE NOTES SUB-FIELD^^.01^1"
^DD(64.8117186,0,"DT")="3000418"
^DD(64.8117186,0,"NM","CODE NOTES")=""
^DD(64.8117186,0,"UP")="64.811718"
^DD(64.8117186,.01,0)="CODE NOTES^W^^0;1^Q"
^DD(64.8117186,.01,21,0)="^^1^1^3001227^"
^DD(64.8117186,.01,21,1,0)="Notes about the use of this code. about the use of this code."
^DD(64.8117186,.01,"DT")="3001227"
^DD(64.8117186,"B","CODE NOTES",.01)=""
^DD(64.8117186,"GL",0,1,.01)=""
^DD(64.811719,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(64.811719,0,"DT")="3000425"
^DD(64.811719,0,"IX","B",64.811719,.01)=""
^DD(64.811719,0,"NM","SYNONYM")=""
^DD(64.811719,0,"UP")="64.8117"
^DD(64.811719,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>50!($L(X)<2) X"
^DD(64.811719,.01,1,0)="^.1"
^DD(64.811719,.01,1,1,0)="64.811719^B"
^DD(64.811719,.01,1,1,1)="S ^LAB(64.81,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(64.811719,.01,1,1,2)="K ^LAB(64.81,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(64.811719,.01,3)="Answer must be 2-50 characters in length."
^DD(64.811719,.01,21,0)="^^1^1^3001227^"
^DD(64.811719,.01,21,1,0)="Other names for this procedure."
^DD(64.811719,.01,"DT")="3001227"
^DD(64.811719,"B","SYNONYM",.01)=""
^DD(64.811719,"GL",0,1,.01)=""
^DD(64.811719,"IX",.01)=""
^DD(64.813,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(64.813,0,"DT")="3000307"
^DD(64.813,0,"NM","DESCRIPTION")=""
^DD(64.813,0,"UP")="64.8117"
^DD(64.813,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(64.813,.01,21,0)="^^1^1^3001227^"
^DD(64.813,.01,21,1,0)="This is a exploded name for the code."
^DD(64.813,.01,"DT")="3001227"
^DD(64.813,"B","DESCRIPTION",.01)=""
^DD(64.813,"GL",0,1,.01)=""
^DD(65,0)="FIELD^^999^71"
^DD(65,0,"DDA")="N"
^DD(65,0,"DT")="2921227"
^DD(65,0,"ID",.01)="W:$D(^(0)) ?41,$J($P(^(0),U,7),2),?44,$P(^(0),U,8)"
^DD(65,0,"ID",.04)="W:$D(^(0)) ?49,$S($D(^LAB(66,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(65,0,"ID",.06)="W """""
^DD(65,0,"ID",3)="W:$D(^(""0"")) ""   "",$S($D(^LAB(66,+$P(^(""0""),U,4),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(65,0,"ID",7)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,8)"
^DD(65,0,"ID","WRITE")="W ?20,$J($P(^(0),U,7),2),"" "",$P(^(0),U,8),"" "",$S($D(^LAB(66,+$P(^(0),U,4),0)):$P(^(0),U),1:"""")"
^DD(65,0,"IX","A",65,.05)=""
^DD(65,0,"IX","AA",65.31,.01)=""
^DD(65,0,"IX","AB",65,4.2)=""
^DD(65,0,"IX","AC",65,4.1)=""
^DD(65,0,"IX","AD",65,10)=""
^DD(65,0,"IX","AE",65,.06)=""
^DD(65,0,"IX","AE",65,5)=""
^DD(65,0,"IX","AF",65,11)=""
^DD(65,0,"IX","AG",65,4.1)=""
^DD(65,0,"IX","AH",65,.04)=""
^DD(65,0,"IX","AI",65,.06)=""
^DD(65,0,"IX","AJ",65,.01)=""
^DD(65,0,"IX","AK",65,.04)=""
^DD(65,0,"IX","AL",65.03,.01)=""
^DD(65,0,"IX","AM",65.01,.01)=""
^DD(65,0,"IX","AN",65.02,.09)=""
^DD(65,0,"IX","AO",65,.02)=""
^DD(65,0,"IX","AP",65.01,.02)=""
^DD(65,0,"IX","APS",65,4.1)=""
^DD(65,0,"IX","AQ",65,.04)=""
^DD(65,0,"IX","AR",65.15,.08)=""
^DD(65,0,"IX","AT",65,.01)=""
^DD(65,0,"IX","AU",65,8)=""
^DD(65,0,"IX","B",65,.01)=""
^DD(65,0,"IX","C",65,.01)=""
^DD(65,0,"IX","D",65,.16)=""
^DD(65,0,"NM","BLOOD INVENTORY")=""
^DD(65,0,"PT",63.0841,.01)=""
^DD(65,0,"PT",64.1111,9)=""
^DD(65,0,"VR")="5.2"
^DD(65,.01,0)="UNIT ID^RFX^^0;1^K:X[""""""""!($A(X)=45)!(X["" "") X I $D(X) K:$L(X)>13!($L(X)<2)!'(X?.ANP) X"
^DD(65,.01,.01)="MA11111"
^DD(65,.01,.1)="Identification Code from Donor Source"
^DD(65,.01,1,0)="^.1"
^DD(65,.01,1,1,0)="65^B"
^DD(65,.01,1,1,1)="S ^LRD(65,""B"",$E(X,1,30),DA)="""""
^DD(65,.01,1,1,2)="K ^LRD(65,""B"",$E(X,1,30),DA)"
^DD(65,.01,1,2,0)="65^AJ^MUMPS"
^DD(65,.01,1,2,1)="S Y=^LRD(65,DA,0) I $P(Y,U,4),$P(Y,U,6),$P($G(^LRD(65,DA,4)),U)="""" S ^LRD(65,""AI"",$P(Y,U,4),X,$P(Y,U,6),DA)="""""
^DD(65,.01,1,2,2)="S Y=^LRD(65,DA,0) I $P(Y,U,4),$P(Y,U,6) K ^LRD(65,""AI"",$P(Y,U,4),X,$P(Y,U,6),DA)"
^DD(65,.01,1,3,0)="65^AT^MUMPS"
^DD(65,.01,1,3,1)="S:'$D(^LRD(65,DA,10)) (^LRD(65,""AT"",X,10,DA),^LRD(65,""AT"",X,11,DA))="""" I '$D(^LRD(65,DA,4)) F Z=0:0 S Z=$O(^LRD(65,DA,2,Z)) Q:Z<1  S:$P(^(Z,0),U,2) ^LRD(65,""AP"",Z,DA)="""""
^DD(65,.01,1,3,2)="K ^LRD(65,""AT"",X) F Z=0:0 S Z=$O(^LRD(65,DA,2,Z)) Q:Z<1  K ^LRD(65,""AP"",Z,DA)"
^DD(65,.01,1,4,0)="65^C^MUMPS"
^DD(65,.01,1,4,1)="D S^LRBLU"
^DD(65,.01,1,4,2)="D K^LRBLU"
^DD(65,.01,3)="ANSWER MUST BE 2-13 CHARACTERS IN LENGTH, NO SPACES ALLOWED"
^DD(65,.01,4)=""
^DD(65,.01,21,0)="^.001^1^1^3001017^^^^"
^DD(65,.01,21,1,0)="The unit identification on the blood product label."
^DD(65,.01,"DT")="3001015"
^DD(65,.02,0)="SOURCE^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) S C=$P(^LRD(65,DA,0),U,4) I C K:'$D(^LAB(66,C,""SU"",""B"",X)) X"
^DD(65,.02,1,0)="^.1"
^DD(65,.02,1,1,0)="65^AO^MUMPS"
^DD(65,.02,1,1,1)="D S^LRBLU"
^DD(65,.02,1,1,2)="D K^LRBLU"
^DD(65,.02,3)="Entry must be one of the following:"
^DD(65,.02,4)="W ""Type exactly as shown:"" S C=+$P(^LRD(65,DA,0),U,4),X=0 F A=0:0 S X=$O(^LAB(66,C,""SU"",""B"",X)) Q:X=""""  W !?15,X"
^DD(65,.02,21,0)="^^1^1^2870805^^^"
^DD(65,.02,21,1,0)="Collecting facility"
^DD(65,.02,"DT")="2900814"
^DD(65,.03,0)="INVOICE#^RF^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(65,.03,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(65,.03,4)=""
^DD(65,.03,21,0)="^^1^1^2850508^"
^DD(65,.03,21,1,0)="Number on invoice accompanying unit"
^DD(65,.03,"DT")="2850502"
^DD(65,.04,0)="COMPONENT^R*P66'X^LAB(66,^0;4^S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) C^LRBLUL"
^DD(65,.04,1,0)="^.1"
^DD(65,.04,1,1,0)="65^AK^MUMPS"
^DD(65,.04,1,1,1)="S Y=^LRD(65,DA,0) I $P(Y,U,6),$P($G(^LRD(65,DA,4)),U)="""" S ^LRD(65,""AI"",X,$P(Y,U),$P(Y,U,6),DA)="""""
^DD(65,.04,1,1,2)="S Y=^LRD(65,DA,0) K:$P(Y,U,6) ^LRD(65,""AI"",X,$P(Y,U,1),$P(Y,U,6),DA)"
^DD(65,.04,1,2,0)="65^AH^MUMPS"
^DD(65,.04,1,2,1)="S Y=$P(^LRD(65,DA,0),U,6) I Y,$P($G(^LRD(65,DA,4)),U)="""" S ^LRD(65,""AE"",X,Y,DA)="""""
^DD(65,.04,1,2,2)="S Y=$P(^LRD(65,DA,0),U,6) K:Y ^LRD(65,""AE"",X,Y,DA)"
^DD(65,.04,1,3,0)="65^AQ^MUMPS"
^DD(65,.04,1,3,1)="D S^LRBLU"
^DD(65,.04,1,3,2)="D K^LRBLU"
^DD(65,.04,12)="Selects only blood bank products"
^DD(65,.04,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""""
^DD(65,.04,21,0)="^^1^1^2850916^^"
^DD(65,.04,21,1,0)="Name of blood product"
^DD(65,.04,"DT")="2930413"
^DD(65,.05,0)="DATE/TIME RECEIVED^RDX^^0;5^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(65,.05,1,0)="^.1"
^DD(65,.05,1,1,0)="65^A^MUMPS"
^DD(65,.05,1,1,1)="S ^LRD(65,""A"",$E(X,1,30),DA)="""" D:$D(DIU(0)) A65^LRXREF1"
^DD(65,.05,1,1,2)="K ^LRD(65,""A"",$E(X,1,30),DA)"
^DD(65,.05,3)=""
^DD(65,.05,4)="W !,""You cannot enter a date/time beyond:"" S %DT=""T"",X=""N"" D ^%DT,D^LRU K %DT W "" "",Y,!"
^DD(65,.05,21,0)="^^1^1^2850502^"
^DD(65,.05,21,1,0)="Date/time component received.  Allows current and past times but disallows future times."
^DD(65,.05,"DT")="2850502"
^DD(65,.06,0)="EXPIRATION DATE/TIME^RDX^^0;6^S %DT=""ETXF"" D ^%DT S X=Y K:Y<1 X I $D(X) S X(1)=X,%DT=""T"",X=""N"" D ^%DT S X=X(1) I $P(X,""."")'>$P(Y,""."") W $C(7),!,""Unit expired or expires today."" S LRA=""*"""
^DD(65,.06,1,0)="^.1"
^DD(65,.06,1,1,0)="65^AE^MUMPS"
^DD(65,.06,1,1,1)="I $P(^LRD(65,DA,0),U,4),$P($G(^LRD(65,DA,4)),U)="""" S ^LRD(65,""AE"",$P(^LRD(65,DA,0),U,4),X,DA)="""""
^DD(65,.06,1,1,2)="K:$P(^LRD(65,DA,0),U,4) ^LRD(65,""AE"",$P(^LRD(65,DA,0),U,4),X,DA)"
^DD(65,.06,1,2,0)="65^AI^MUMPS"
^DD(65,.06,1,2,1)="S Y=^LRD(65,DA,0) I $P(Y,U,4),$P($G(^LRD(65,DA,4)),U)="""" S ^LRD(65,""AI"",$P(Y,U,4),$P(Y,U),X,DA)="""""
^DD(65,.06,1,2,2)="S Y=^LRD(65,DA,0) K:$P(Y,U,4) ^LRD(65,""AI"",$P(Y,U,4),$P(Y,U),X,DA)"
^DD(65,.06,4)=""
^DD(65,.06,21,0)="^^1^1^2950901^^"
^DD(65,.06,21,1,0)="Expiration date/time of unit"
^DD(65,.06,"DT")="2990524"
^DD(65,.07,0)="ABO GROUP^RS^A:A;B:B;O:O;AB:AB;NA:N/A;^0;7^Q"
^DD(65,.07,21,0)="^^1^1^2850512^^"
^DD(65,.07,21,1,0)="ABO blood group of unit. If ABO group is not applicable to the unit or component (ex. a mixed pool of compatible ABO types) enter NA for N/A (not applicable)"
^DD(65,.07,"DT")="2850512"
^DD(65,.08,0)="RH TYPE^RS^POS:POSITIVE;NEG:NEGATIVE;NA:N/A;^0;8^Q"
^DD(65,.08,21,0)="^^1^1^2850512^^^"
^DD(65,.08,21,1,0)="Rh type of unit.  If RH TYPE not applicable to the unit or component enter NA for N/A (not applicable or necessary)."
^DD(65,.08,"DT")="2850512"
^DD(65,.09,0)="LOG-IN PERSON^P200'^VA(200,^0;9^Q"
^DD(65,.09,1,0)="^.1^^0"
^DD(65,.09,3)=""
^DD(65,.09,21,0)="^^1^1^2870804^^^"
^DD(65,.09,21,1,0)="Person entering unit in file."
^DD(65,.09,"DT")="2910630"
^DD(65,.1,0)="COST^NJ8,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X"
^DD(65,.1,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(65,.1,21,0)="^^1^1^2870805^^"
^DD(65,.1,21,1,0)="Cost of unit"
^DD(65,.1,"DT")="2850502"
^DD(65,.11,0)="VOLUME (ml)^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65,.11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(65,.11,21,0)="^^1^1^2850522^^"
^DD(65,.11,21,1,0)="Volume of unit or component"
^DD(65,.11,"DT")="2850511"
^DD(65,.12,0)="TYPING CHARGE^NJ6,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999)!(X<0) X"
^DD(65,.12,3)="TYPE A NUMBER BETWEEN 0 AND 999"
^DD(65,.12,21,0)="^^1^1^2850508^"
^DD(65,.12,21,1,0)="Charge assigned by organization performing antigen typing"
^DD(65,.12,"DT")="2850502"
^DD(65,.13,0)="SHIPPING INVOICE#^F^^0;13^K:$L(X)>10!($L(X)<2) X"
^DD(65,.13,3)="Enter RETURN invoice # to SUPPLIER (2-10 characters)"
^DD(65,.13,21,0)="^^1^1^2940316^^"
^DD(65,.13,21,1,0)="Invoice (order) number identified with returned shipment to supplier."
^DD(65,.13,"DT")="2850502"
^DD(65,.14,0)="RETURN CREDIT^FX^^0;14^K:$L(X)>7!($L(X)<2)!'(X?1""-"".N) X"
^DD(65,.14,3)="Entry must begin with a minus (-) then amount of credit (ex. -37.50)"
^DD(65,.14,21,0)="^^1^1^2850508^"
^DD(65,.14,21,1,0)="Credit given for returning unit to supplier or sending unit elsewhere"
^DD(65,.14,"DT")="2960212"
^DD(65,.16,0)="DIVISION^R*P4'X^DIC(4,^0;16^S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65,.16,1,0)="^.1"
^DD(65,.16,1,1,0)="65^D"
^DD(65,.16,1,1,1)="S ^LRD(65,""D"",$E(X,1,30),DA)="""""
^DD(65,.16,1,1,2)="K ^LRD(65,""D"",$E(X,1,30),DA)"
^DD(65,.16,1,1,"%D",0)="^^1^1^2960422^"
^DD(65,.16,1,1,"%D",1,0)="Quick identification of units by division."
^DD(65,.16,1,1,"DT")="2960422"
^DD(65,.16,12)="Allows only divisions for site"
^DD(65,.16,12.1)="S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"""
^DD(65,.16,21,0)="^^3^3^2960422^"
^DD(65,.16,21,1,0)="The division where the unit resides."
^DD(65,.16,21,2,0)="If the unit is being transferred to another division, enter the New"
^DD(65,.16,21,3,0)="division."
^DD(65,.16,"DT")="2990908"
^DD(65,1.1,0)="BAG LOT #^F^^1;1^K:$L(X)>15!($L(X)<1) X"
^DD(65,1.1,3)="Answer must be 1-15 characters in length."
^DD(65,1.1,21,0)="^^2^2^2921227^"
^DD(65,1.1,21,1,0)="You may enter the bag lot number if preparing a component "
^DD(65,1.1,21,2,0)="from a unit in inventory."
^DD(65,1.1,"DT")="2921227"
^DD(65,2,0)="PATIENT XMATCHED/ASSIGNED^65.01IA^^2;0"
^DD(65,2,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(65,2,21,0)="^^2^2^2920204^^^^"
^DD(65,2,21,1,0)="On the left of NAME is the internal number in lab results file."
^DD(65,2,21,2,0)=" On the right of NAME is the last characters of the patient's SSN."
^DD(65,2,"DT")="2840619"
^DD(65,3,0)="DATE/TIME UNIT RELOCATION^65.03DA^^3;0"
^DD(65,3,12)="SELECTS ONLY BLOOD BANK SUPPLIES"
^DD(65,3,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""""
^DD(65,3,21,0)="^^3^3^2960530^^"
^DD(65,3,21,1,0)="These are dates/times the unit is relocated from one"
^DD(65,3,21,2,0)="location to another.  EXAMPLE:  From blood bank to"
^DD(65,3,21,3,0)="surgery or from surgery to blood bank."
^DD(65,4.1,0)="DISPOSITION^S^R:RETURN TO SUPPLIER;T:TRANSFUSE;D:DISCARD;S:SEND ELSEWHERE;M:MICROBIOLOGY/RESEARCH;MO:MODIFY;SA:SALVAGED;^4;1^Q"
^DD(65,4.1,1,0)="^.1"
^DD(65,4.1,1,1,0)="65^AC^MUMPS"
^DD(65,4.1,1,1,1)="S A=^LRD(65,DA,0),B=$P(A,U,4),C=$P(A,U,6) K:B]""""&(C]"""") ^LRD(65,""AE"",B,C,DA),^LRD(65,""AI"",B,$P(A,U),C,DA)"
^DD(65,4.1,1,1,2)="S A=^LRD(65,DA,0),B=$P(A,U,4),C=$P(A,U,6) S:B]""""&(C]"""") ^LRD(65,""AE"",B,C,DA)="""",^LRD(65,""AI"",B,$P(A,U),C,DA)="""""
^DD(65,4.1,1,2,0)="65^APS^MUMPS"
^DD(65,4.1,1,2,1)="F X(1)=0:0 S X(1)=$O(^LRD(65,DA,2,X(1))) Q:'X(1)  K ^LRD(65,""AP"",X(1),DA)"
^DD(65,4.1,1,2,2)="F X(1)=0:0 S X(1)=$O(^LRD(65,DA,2,X(1))) Q:'X(1)  S:$P(^(X(1),0),U,2) ^LRD(65,""AP"",X(1),DA)="""""
^DD(65,4.1,1,3,0)="65^AG^MUMPS"
^DD(65,4.1,1,3,1)="D S1^LRBLU"
^DD(65,4.1,1,3,2)="I '$D(DIU(0)),$D(^LRD(65,DA,6)) D K1^LRBLU"
^DD(65,4.1,1,3,"DT")="2921214"
^DD(65,4.1,21,0)="^^1^1^2870805^"
^DD(65,4.1,21,1,0)="Final disposition of the unit"
^DD(65,4.1,"DT")="2921214"
^DD(65,4.2,0)="DISPOSITION DATE^RDX^^4;2^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(65,4.2,1,0)="^.1"
^DD(65,4.2,1,1,0)="65^AB"
^DD(65,4.2,1,1,1)="S ^LRD(65,""AB"",$E(X,1,30),DA)="""""
^DD(65,4.2,1,1,2)="K ^LRD(65,""AB"",$E(X,1,30),DA)"
^DD(65,4.2,3)="Enter only past or present Date/time"
^DD(65,4.2,21,0)="^^1^1^2870805^^"
^DD(65,4.2,21,1,0)="Date of final disposition"
^DD(65,4.2,"DT")="2881025"
^DD(65,4.3,0)="DISPOSITION ENTERING PERSON^P200'^VA(200,^4;3^Q"
^DD(65,4.3,3)=""
^DD(65,4.3,21,0)="^^1^1^2870805^"
^DD(65,4.3,21,1,0)="Person entering final disposition"
^DD(65,4.3,"DT")="2910630"
^DD(65,4.4,0)="POOLED/DIVIDED UNITS^F^^4;4^K:$L(X)>4!($L(X)<3)!'(X?1""(""1N.N1"")"") X"
^DD(65,4.4,3)="Enter number of units in pool enclosed in parentheses; ex. (5)"
^DD(65,4.4,21,0)="^^2^2^2870805^"
^DD(65,4.4,21,1,0)="Number of units in pool OR number of aliquots into which"
^DD(65,4.4,21,2,0)=" a unit of blood/blood component has been divided"
^DD(65,4.4,"DT")="2851226"
^DD(65,4.5,0)="SHIP TO^FX^^4;5^K:$L(X)>68!($L(X)<2) X I $D(X) S L=68,L(1)=""D"" D ^LRUB"
^DD(65,4.5,3)="MUST BE 2-68 CHARACTERS IN LENGTH, CAN USE LAB DESCRIPTION FILE ENTRIES WITH BB DISP SCREEN"
^DD(65,4.5,4)="S L(1)=""D"" D Q^LRUB"
^DD(65,4.5,21,0)="^^2^2^2931123^^^^"
^DD(65,4.5,21,1,0)="If unit is returned to sender or shipped elsewhere enter"
^DD(65,4.5,21,2,0)=" name/location of facility where sent."
^DD(65,4.5,"DT")="2880408"
^DD(65,5,0)="DISPOSITION COMMENT^65.06A^^5;0"
^DD(65,5,1,0)="^.1^^-1"
^DD(65,5,1,1,0)="65^AE^MUMPS"
^DD(65,5,1,1,1)="S ^LRD(65,""AE"",$P(^LRD(65,DA,0),U,4),X,DA)="""""
^DD(65,5,1,1,2)="K ^LRD(65,""AE"",$P(^LRD(65,DA,0),U,4),X,DA)"
^DD(65,5,4)="W *7,!!,""TO enter expired units answer Y to the prompt:"",!?5,""Unit expired or expires TODAY. Want to enter unit ? NO//"",!,""To delete unit enter ^ after EXPIRATION DATE:"",!!"
^DD(65,5,21,0)="^^1^1^2931123^^^"
^DD(65,5,21,1,0)="These are final disposition comments."
^DD(65,5,"DT")="2841028"
^DD(65,6.1,0)="PATIENT TRANSFUSED^FXO^^6;1^D ^LRUG"
^DD(65,6.1,2)="S Y(0)=Y I Y,$D(^LR(Y,0)) S X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$P(Y,U)_"" ""_$P(Y,U,9)"
^DD(65,6.1,2.1)="I Y,$D(^LR(Y,0)) S X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$P(Y,U)_"" ""_$P(Y,U,9)"
^DD(65,6.1,3)="Enter patient name"
^DD(65,6.1,4)="S X=""?"" D ^LRUG"
^DD(65,6.1,21,0)="^^1^1^2870805^"
^DD(65,6.1,21,1,0)="Name of patient transfused"
^DD(65,6.1,"DT")="2890501"
^DD(65,6.12,0)="PARENT FILE^CJ30^^ ; ^I $D(^LRD(65,D0,6)) S X=+^(6) I X S X=$P(^LR(X,0),U,2),X=$P(^DIC(X,0),U)"
^DD(65,6.12,9)="^"
^DD(65,6.12,9.01)=""
^DD(65,6.12,9.1)="I $D(^LRD(65,D0,6)) S X=+^(6) I X S X=$P(^LR(X,0),U,2),X=$P(^DIC(X,0),U)"
^DD(65,6.12,21,0)="^^2^2^2911209^"
^DD(65,6.12,21,1,0)="This is the file whose demographic data is stored"
^DD(65,6.12,21,2,0)="for the patient transfused."
^DD(65,6.12,"DT")="2890811"
^DD(65,6.15,0)="TRANSFUSED PATIENT ABO^CJ8^^ ; ^I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,5)"
^DD(65,6.15,9)="^"
^DD(65,6.15,9.01)=""
^DD(65,6.15,9.1)="I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,5)"
^DD(65,6.15,21,0)="^^1^1^2911209^"
^DD(65,6.15,21,1,0)="This is the transfused patient's ABO."
^DD(65,6.15,"DT")="2890811"
^DD(65,6.16,0)="TRANSFUSED PATIENT RH^CJ8^^ ; ^I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,6)"
^DD(65,6.16,9)="^"
^DD(65,6.16,9.01)=""
^DD(65,6.16,9.1)="I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,6)"
^DD(65,6.16,21,0)="^^1^1^2911209^"
^DD(65,6.16,21,1,0)="This is the transfused patient's Rh type."
^DD(65,6.16,"DT")="2890811"
^DD(65,6.2,0)="PHYSICIAN^F^^6;2^K:$L(X)>30!($L(X)<2) X"
^DD(65,6.2,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65,6.2,21,0)="^^1^1^2911209^^"
^DD(65,6.2,21,1,0)="Physician of patient transfused"
^DD(65,6.2,"DT")="2850502"
^DD(65,6.3,0)="TREATING SPECIALTY^FX^^6;3^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(65,6.3,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(65,6.3,4)="W !,""NOT NUMERIC OR STARTING WITH PUNCTUATION"""
^DD(65,6.3,21,0)="^^2^2^2930614^^"
^DD(65,6.3,21,1,0)="Treating specialty to which the patient is assigned at the"
^DD(65,6.3,21,2,0)=" time the unit was transfused."
^DD(65,6.3,"DT")="2930614"
^DD(65,6.4,0)="TRANSFUSION RECORD NUMBER^NJ13,5I^^6;4^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""6N.N) X"
^DD(65,6.4,3)="TYPE A NUMBER BETWEEN 1 AND 9999999"
^DD(65,6.4,21,0)="^^1^1^2870805^^"
^DD(65,6.4,21,1,0)="Internal number in subfile 63.085 TRANSFUSION RECORD"
^DD(65,6.4,"DT")="2850808"
^DD(65,6.5,0)="TRANSFUSION REACTION^S^1:YES;0:NO;^6;5^Q"
^DD(65,6.5,21,0)="^^2^2^2870805^"
^DD(65,6.5,21,1,0)="Answer 'YES' if the patient experienced an adverse reaction"
^DD(65,6.5,21,2,0)=" as a result of transfusion of designated blood/blood component"
^DD(65,6.5,"DT")="2860304"
^DD(65,6.6,0)="PROVIDER NUMBER^P200'O^VA(200,^6;6^Q"
^DD(65,6.6,.1)="Internal entry # in the New Person file"
^DD(65,6.6,2)="S Y(0)=Y W """""
^DD(65,6.6,2.1)="W """""
^DD(65,6.6,21,0)="^^2^2^2940316^^^"
^DD(65,6.6,21,1,0)="If the physician is an entry in the New Person file the pointer number"
^DD(65,6.6,21,2,0)=" is stored here."
^DD(65,6.6,"DT")="2940316"
^DD(65,6.7,0)="TREATING SPECIALTY NUMBER^P45.7'O^DIC(45.7,^6;7^Q"
^DD(65,6.7,.1)="Internal entry # in treating speciality file"
^DD(65,6.7,2)="S Y(0)=Y W """""
^DD(65,6.7,2.1)="W """""
^DD(65,6.7,21,0)="^^2^2^2930614^^^"
^DD(65,6.7,21,1,0)="If the treating specialty is an entry in the treating specialty file"
^DD(65,6.7,21,2,0)=" the pointer number is stored here."
^DD(65,6.7,"DT")="2930614"
^DD(65,6.8,0)="TRANSFUSION REACTION TYPE^*P65.4'^LAB(65.4,^6;8^S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65,6.8,12)="Selects transfusion reaction type"
^DD(65,6.8,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""""
^DD(65,6.8,21,0)="^^1^1^2921211^"
^DD(65,6.8,21,1,0)="Indicates the type of transfusion reaction"
^DD(65,6.8,"DT")="2921211"
^DD(65,7,0)="TRANSFUSION COMMENT^65.07A^^7;0"
^DD(65,7,21,0)="^^3^3^2911209^"
^DD(65,7,21,1,0)="These are comments regarding the transfusion of the"
^DD(65,7,21,2,0)="specific unit, including whether only a part of the"
^DD(65,7,21,3,0)="unit was transfused and the reason(s)."
^DD(65,7,"DT")="2841028"
^DD(65,8,0)="RESTRICTED FOR^FXO^^8;1^K:X[""""""""!($A(X)=45) X I $D(X) D ^LRUG"
^DD(65,8,1,0)="^.1"
^DD(65,8,1,1,0)="65^AU"
^DD(65,8,1,1,1)="S ^LRD(65,""AU"",$E(X,1,30),DA)="""""
^DD(65,8,1,1,2)="K ^LRD(65,""AU"",$E(X,1,30),DA)"
^DD(65,8,2)="S Y(0)=Y S:Y X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$P(Y,U,1)_"" ""_$P(Y,U,9)"
^DD(65,8,2.1)="S:Y X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$P(Y,U,1)_"" ""_$P(Y,U,9)"
^DD(65,8,3)=""
^DD(65,8,4)="S X=""?"" D ^LRUG"
^DD(65,8,21,0)="^^2^2^2860205^^"
^DD(65,8,21,1,0)="The patient indicated here is the only one who may be"
^DD(65,8,21,2,0)=" transfused with this unit."
^DD(65,8,"DT")="2881019"
^DD(65,8.1,0)="POS/INCOMPLETE SCREENING TESTS^S^1:YES;0:NO;^8;2^Q"
^DD(65,8.1,21,0)="^^3^3^2880822^^^^"
^DD(65,8.1,21,1,0)="If autologous donor has a positive syphilis serology, HBsAg, or HIV"
^DD(65,8.1,21,2,0)=" antibody test YES is entered.  This flag is intended to warn NOT to"
^DD(65,8.1,21,3,0)=" transfuse this unit to anyone other than the DONOR !"
^DD(65,8.1,"DT")="2880822"
^DD(65,8.3,0)="DONATION TYPE^S^A:AUTOLOGOUS;D:DIRECTED;^8;3^Q"
^DD(65,8.3,21,0)="^^1^1^2930327^"
^DD(65,8.3,21,1,0)=" This field indicates which type of donation will be used to log this unit."
^DD(65,8.3,"DT")="2880317"
^DD(65,9,0)="MODIFIED TO/FROM^65.091IPA^^9;0"
^DD(65,9,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(65,9,21,0)="^^1^1^2920203^^^^"
^DD(65,9,21,1,0)="If unit is modified identifies what products are made and what are the new unit ID's.  If unit is a pool identifies what product was pooled and what units are in the pool."
^DD(65,10,0)="ABO INTERPRETATION^S^A:A;B:B;O:O;AB:AB;ND:NOT DONE;^10;1^Q"
^DD(65,10,1,0)="^.1"
^DD(65,10,1,1,0)="65^AD^MUMPS"
^DD(65,10,1,1,1)="K ^LRD(65,""AT"",$P(^LRD(65,DA,0),U,1),10,DA)"
^DD(65,10,1,1,2)="S ^LRD(65,""AT"",$P(^LRD(65,DA,0),U,1),10,DA)="""""
^DD(65,10,21,0)="^^1^1^2870805^"
^DD(65,10,21,1,0)="Interpretation of ABO testing"
^DD(65,10,"DT")="2850511"
^DD(65,10.2,0)="TECH ENTERING-ABO INTERP^P200'^VA(200,^10;2^Q"
^DD(65,10.2,3)=""
^DD(65,10.2,21,0)="^^1^1^2870805^"
^DD(65,10.2,21,1,0)="Person performing ABO testing"
^DD(65,10.2,"DT")="2910630"
^DD(65,10.3,0)="ABO TESTING COMMENT^FX^^10;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65,10.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65,10.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65,10.3,21,0)="^^1^1^2870805^"
^DD(65,10.3,21,1,0)="Comment related to ABO testing"
^DD(65,10.3,"DT")="2880408"
^DD(65,10.4,0)="ABO MOVED FROM DONOR FILE^S^1:YES;^10;4^Q"
^DD(65,10.4,"DT")="2880801"
^DD(65,11,0)="RH  INTERPRETATION^S^NEG:NEGATIVE;POS:POSITIVE;ND:NOT DONE;^11;1^Q"
^DD(65,11,1,0)="^.1"
^DD(65,11,1,1,0)="65^AF^MUMPS"
^DD(65,11,1,1,1)="K ^LRD(65,""AT"",$P(^LRD(65,DA,0),U,1),11,DA)"
^DD(65,11,1,1,2)="S ^LRD(65,""AT"",$P(^LRD(65,DA,0),U,1),11,DA)="""""
^DD(65,11,3)="Enter only past or present Date/time"
^DD(65,11,21,0)="^^1^1^2870805^"
^DD(65,11,21,1,0)="Interpretation of Rh testing"
^DD(65,11,"DT")="2850511"
^DD(65,11.2,0)="TECH ENTERING-RH INTERP^P200'^VA(200,^11;2^Q"
^DD(65,11.2,3)=""
^DD(65,11.2,21,0)="^^1^1^2870805^"
^DD(65,11.2,21,1,0)="Person performing Rh testing"
^DD(65,11.2,"DT")="2910630"
^DD(65,11.3,0)="RH TESTING COMMENT^FX^^11;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65,11.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65,11.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65,11.3,21,0)="^^1^1^2870805^"
^DD(65,11.3,21,1,0)="Comment related to Rh testing"
^DD(65,11.3,"DT")="2880408"
^DD(65,11.4,0)="RH MOVED FROM DONOR FILE^S^1:YES;^11;4^Q"
^DD(65,11.4,3)=""
^DD(65,11.4,"DT")="2930327"
^DD(65,15,0)="DATE RE-ENTERED^65.15DA^^15;0"
^DD(65,15,21,0)="^^1^1^2930329^"
^DD(65,15,21,1,0)="Re-entry date of the unit in the file"
^DD(65,16,0)="PEDIATRIC ALIQUOT MADE^65.16^^16;0"
^DD(65,16,21,0)="^^2^2^2880602^"
^DD(65,16,21,1,0)="If portions of unit taken for pediatric units enter the"
^DD(65,16,21,2,0)=" pediatric unit IDs here"
^DD(65,60,0)="RBC ANTIGEN PRESENT^65.04PA^^60;0"
^DD(65,60,12)="SELECTS ANTIGENS"
^DD(65,60,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65,70,0)="RBC ANTIGEN ABSENT^65.05PA^^70;0"
^DD(65,70,12)="SELECTS ANTIGENS"
^DD(65,70,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65,70,21,0)="^^1^1^2930329^"
^DD(65,70,21,1,0)="Comment to RBC antigen"
^DD(65,80,0)="HLA ANTIGEN PRESENT^65.08PA^^80;0"
^DD(65,80,12)="SELECTS HLA ANTIGENS"
^DD(65,80,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65,80,"DT")="2930329"
^DD(65,90,0)="HLA ANTIGEN ABSENT^65.09PA^^90;0"
^DD(65,90,12)="SELECTS HLA ANTIGENS"
^DD(65,90,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65,91,0)="CMV ANTIBODY^S^0:NEG;1:POS;^0;15^Q"
^DD(65,91,"DT")="2880319"
^DD(65,121,0)="DONOR CELLS+ANTI D(slide rgt)^S^P:POSITIVE;N:NEGATIVE;^12;1^Q"
^DD(65,122,0)="DONOR CELLS+RH CTRL(slide rgt)^S^P:POSITIVE;N:NEGATIVE;^12;2^Q"
^DD(65,122,3)=""
^DD(65,123,0)="DONOR CELLS+ANTI D (37)^FX^^12;3^D ^LRBLAGG"
^DD(65,123,3)=""
^DD(65,123,4)="D LST^LRBLAGG"
^DD(65,123,"DT")="2841030"
^DD(65,124,0)="DONOR CELLS+RH CTRL (37)^FX^^12;4^D ^LRBLAGG"
^DD(65,124,3)=""
^DD(65,124,4)="D LST^LRBLAGG"
^DD(65,124,"DT")="2841030"
^DD(65,125,0)="DONOR CELLS+ANTI D (AHG)^FX^^12;5^D ^LRBLAGG"
^DD(65,125,3)=""
^DD(65,125,4)="D LST^LRBLAGG"
^DD(65,125,"DT")="2841030"
^DD(65,126,0)="DONOR CELLS+RH CTRL (AHG)^FX^^12;6^D ^LRBLAGG"
^DD(65,126,3)=""
^DD(65,126,4)="D LST^LRBLAGG"
^DD(65,126,"DT")="2841030"
^DD(65,127,0)="DONOR CELLS+ANTI D (AHG) CC^FX^^12;7^D ^LRBLAGG"
^DD(65,127,3)=""
^DD(65,127,4)="D LST^LRBLAGG"
^DD(65,127,"DT")="2841030"
^DD(65,128,0)="DONOR CELLS+RH CTRL CC^FX^^12;8^D ^LRBLAGG"
^DD(65,128,3)=""
^DD(65,128,4)="D LST^LRBLAGG"
^DD(65,128,"DT")="2841030"
^DD(65,141,0)="DONOR CELLS+ANTI A(slide)^S^P:POSITIVE;N:NEGATIVE;^14;1^Q"
^DD(65,141,3)=""
^DD(65,142,0)="DONOR CELLS+ANTI B(slide)^S^P:POSITIVE;N:NEGATIVE;^14;2^Q"
^DD(65,143,0)="DONOR CELLS+ANTI A,B(slide)^S^P:POSITIVE;N:NEGATIVE;^14;3^Q"
^DD(65,143,3)=""
^DD(65,144,0)="DONOR PLASMA+A1 CELLS^FX^^14;4^D ^LRBLAGG"
^DD(65,144,3)=""
^DD(65,144,4)="D LST^LRBLAGG"
^DD(65,144,"DT")="2841030"
^DD(65,145,0)="DONOR PLASMA+B CELLS^FX^^14;5^D ^LRBLAGG"
^DD(65,145,3)=""
^DD(65,145,4)="D LST^LRBLAGG"
^DD(65,145,"DT")="2841030"
^DD(65,200,0)="DIRECT AHG(BS)^FX^^200;1^D ^LRBLAGG"
^DD(65,200,3)=""
^DD(65,200,4)="D LST^LRBLAGG"
^DD(65,200,"DT")="2850508"
^DD(65,500,0)="TEST/PROCEDURE^65.3PA^^99;0"
^DD(65,500,21,0)="^^1^1^2930327^"
^DD(65,500,21,1,0)=" This field contains the test performed on this unit."
^DD(65,999,0)="DATA CHANGE DATE^65.099DA^^999;0"
^DD(65,999,21,0)="^^1^1^2930331^"
^DD(65,999,21,1,0)="Date the report value was changed"
^DD(65,"B","ABO GROUP",.07)=""
^DD(65,"B","ABO INTERPRETATION",10)=""
^DD(65,"B","ABO MOVED FROM DONOR FILE",10.4)=""
^DD(65,"B","ABO TESTING COMMENT",10.3)=""
^DD(65,"B","BAG LOT #",1.1)=""
^DD(65,"B","CMV ANTIBODY",91)=""
^DD(65,"B","COMPONENT",.04)=""
^DD(65,"B","COST",.1)=""
^DD(65,"B","DATA CHANGE DATE",999)=""
^DD(65,"B","DATE RE-ENTERED",15)=""
^DD(65,"B","DATE/TIME RECEIVED",.05)=""
^DD(65,"B","DATE/TIME UNIT RELOCATION",3)=""
^DD(65,"B","DIRECT AHG(BS)",200)=""
^DD(65,"B","DISPOSITION",4.1)=""
^DD(65,"B","DISPOSITION COMMENT",5)=""
^DD(65,"B","DISPOSITION DATE",4.2)=""
^DD(65,"B","DISPOSITION ENTERING PERSON",4.3)=""
^DD(65,"B","DIVISION",.16)=""
^DD(65,"B","DONATION TYPE",8.3)=""
^DD(65,"B","DONOR CELLS+ANTI A(slide)",141)=""
^DD(65,"B","DONOR CELLS+ANTI A,B(slide)",143)=""
^DD(65,"B","DONOR CELLS+ANTI B(slide)",142)=""
^DD(65,"B","DONOR CELLS+ANTI D (37)",123)=""
^DD(65,"B","DONOR CELLS+ANTI D (AHG)",125)=""
^DD(65,"B","DONOR CELLS+ANTI D (AHG) CC",127)=""
^DD(65,"B","DONOR CELLS+ANTI D(slide rgt)",121)=""
^DD(65,"B","DONOR CELLS+RH CTRL (37)",124)=""
^DD(65,"B","DONOR CELLS+RH CTRL (AHG)",126)=""
^DD(65,"B","DONOR CELLS+RH CTRL CC",128)=""
^DD(65,"B","DONOR CELLS+RH CTRL(slide rgt)",122)=""
^DD(65,"B","DONOR PLASMA+A1 CELLS",144)=""
^DD(65,"B","DONOR PLASMA+B CELLS",145)=""
^DD(65,"B","EXPIRATION DATE/TIME",.06)=""
^DD(65,"B","HLA ANTIGEN ABSENT",90)=""
^DD(65,"B","HLA ANTIGEN PRESENT",80)=""
^DD(65,"B","INVOICE#",.03)=""
^DD(65,"B","LOG-IN PERSON",.09)=""
^DD(65,"B","MODIFIED TO/FROM",9)=""
^DD(65,"B","PARENT FILE",6.12)=""
^DD(65,"B","PATIENT TRANSFUSED",6.1)=""
^DD(65,"B","PATIENT XMATCHED/ASSIGNED",2)=""
^DD(65,"B","PEDIATRIC ALIQUOT MADE",16)=""
^DD(65,"B","PHYSICIAN",6.2)=""
^DD(65,"B","POOLED/DIVIDED UNITS",4.4)=""
^DD(65,"B","POS/INCOMPLETE SCREENING TESTS",8.1)=""
^DD(65,"B","PROVIDER NUMBER",6.6)=""
^DD(65,"B","RBC ANTIGEN ABSENT",70)=""
^DD(65,"B","RBC ANTIGEN PRESENT",60)=""
^DD(65,"B","RESTRICTED FOR",8)=""
^DD(65,"B","RETURN CREDIT",.14)=""
^DD(65,"B","RH  INTERPRETATION",11)=""
^DD(65,"B","RH MOVED FROM DONOR FILE",11.4)=""
^DD(65,"B","RH TESTING COMMENT",11.3)=""
^DD(65,"B","RH TYPE",.08)=""
^DD(65,"B","SHIP TO",4.5)=""
^DD(65,"B","SHIPPING INVOICE#",.13)=""
^DD(65,"B","SOURCE",.02)=""
^DD(65,"B","TECH ENTERING-ABO INTERP",10.2)=""
^DD(65,"B","TECH ENTERING-RH INTERP",11.2)=""
^DD(65,"B","TEST/PROCEDURE",500)=""
^DD(65,"B","TRANSFUSED PATIENT ABO",6.15)=""
^DD(65,"B","TRANSFUSED PATIENT RH",6.16)=""
^DD(65,"B","TRANSFUSION COMMENT",7)=""
^DD(65,"B","TRANSFUSION REACTION",6.5)=""
^DD(65,"B","TRANSFUSION REACTION TYPE",6.8)=""
^DD(65,"B","TRANSFUSION RECORD NUMBER",6.4)=""
^DD(65,"B","TREATING SPECIALTY",6.3)=""
^DD(65,"B","TREATING SPECIALTY NUMBER",6.7)=""
^DD(65,"B","TYPING CHARGE",.12)=""
^DD(65,"B","UNIT ID",.01)=""
^DD(65,"B","VOLUME (ml)",.11)=""
^DD(65,"GL",0,1,.01)=""
^DD(65,"GL",0,2,.02)=""
^DD(65,"GL",0,3,.03)=""
^DD(65,"GL",0,4,.04)=""
^DD(65,"GL",0,5,.05)=""
^DD(65,"GL",0,6,.06)=""
^DD(65,"GL",0,7,.07)=""
^DD(65,"GL",0,8,.08)=""
^DD(65,"GL",0,9,.09)=""
^DD(65,"GL",0,10,.1)=""
^DD(65,"GL",0,11,.11)=""
^DD(65,"GL",0,12,.12)=""
^DD(65,"GL",0,13,.13)=""
^DD(65,"GL",0,14,.14)=""
^DD(65,"GL",0,15,91)=""
^DD(65,"GL",0,16,.16)=""
^DD(65,"GL",1,1,1.1)=""
^DD(65,"GL",2,0,2)=""
^DD(65,"GL",3,0,3)=""
^DD(65,"GL",4,1,4.1)=""
^DD(65,"GL",4,2,4.2)=""
^DD(65,"GL",4,3,4.3)=""
^DD(65,"GL",4,4,4.4)=""
^DD(65,"GL",4,5,4.5)=""
^DD(65,"GL",5,0,5)=""
^DD(65,"GL",6,1,6.1)=""
^DD(65,"GL",6,2,6.2)=""
^DD(65,"GL",6,3,6.3)=""
^DD(65,"GL",6,4,6.4)=""
^DD(65,"GL",6,5,6.5)=""
^DD(65,"GL",6,6,6.6)=""
^DD(65,"GL",6,7,6.7)=""
^DD(65,"GL",6,8,6.8)=""
^DD(65,"GL",7,0,7)=""
^DD(65,"GL",8,1,8)=""
^DD(65,"GL",8,2,8.1)=""
^DD(65,"GL",8,3,8.3)=""
^DD(65,"GL",9,0,9)=""
^DD(65,"GL",10,1,10)=""
^DD(65,"GL",10,2,10.2)=""
^DD(65,"GL",10,3,10.3)=""
^DD(65,"GL",10,4,10.4)=""
^DD(65,"GL",11,1,11)=""
^DD(65,"GL",11,2,11.2)=""
^DD(65,"GL",11,3,11.3)=""
^DD(65,"GL",11,4,11.4)=""
^DD(65,"GL",12,1,121)=""
^DD(65,"GL",12,2,122)=""
^DD(65,"GL",12,3,123)=""
^DD(65,"GL",12,4,124)=""
^DD(65,"GL",12,5,125)=""
^DD(65,"GL",12,6,126)=""
^DD(65,"GL",12,7,127)=""
^DD(65,"GL",12,8,128)=""
^DD(65,"GL",14,1,141)=""
^DD(65,"GL",14,2,142)=""
^DD(65,"GL",14,3,143)=""
^DD(65,"GL",14,4,144)=""
^DD(65,"GL",14,5,145)=""
^DD(65,"GL",15,0,15)=""
^DD(65,"GL",16,0,16)=""
^DD(65,"GL",60,0,60)=""
^DD(65,"GL",70,0,70)=""
^DD(65,"GL",80,0,80)=""
^DD(65,"GL",90,0,90)=""
^DD(65,"GL",99,0,500)=""
^DD(65,"GL",200,1,200)=""
^DD(65,"GL",999,0,999)=""
^DD(65,"IX",.01)=""
^DD(65,"IX",.02)=""
^DD(65,"IX",.04)=""
^DD(65,"IX",.05)=""
^DD(65,"IX",.06)=""
^DD(65,"IX",.16)=""
^DD(65,"IX",4.1)=""
^DD(65,"IX",4.2)=""
^DD(65,"IX",5)=""
^DD(65,"IX",8)=""
^DD(65,"IX",10)=""
^DD(65,"IX",11)=""
^DD(65,"RQ",.01)=""
^DD(65,"RQ",.02)=""
^DD(65,"RQ",.03)=""
^DD(65,"RQ",.04)=""
^DD(65,"RQ",.05)=""
^DD(65,"RQ",.06)=""
^DD(65,"RQ",.07)=""
^DD(65,"RQ",.08)=""
^DD(65,"RQ",.16)=""
^DD(65,"RQ",4.2)=""
^DD(65,"SB",65.01,2)=""
^DD(65,"SB",65.03,3)=""
^DD(65,"SB",65.04,60)=""
^DD(65,"SB",65.05,70)=""
^DD(65,"SB",65.06,5)=""
^DD(65,"SB",65.07,7)=""
^DD(65,"SB",65.08,80)=""
^DD(65,"SB",65.09,90)=""
^DD(65,"SB",65.091,9)=""
^DD(65,"SB",65.099,999)=""
^DD(65,"SB",65.15,15)=""
^DD(65,"SB",65.16,16)=""
^DD(65,"SB",65.3,500)=""
^DD(65.01,0)="PATIENT XMATCHED/ASSIGNED SUB-FIELD^NL^1^5"
^DD(65.01,0,"DT")="2940929"
^DD(65.01,0,"ID",.01)="W:$D(^(""0"")) "" "" S W=+^(""0""),W=^LR(W,0),W(3)=$P(W,U,3),W=$P(W,U,2),W=^DIC(W,0,""GL""),W=@(W_W(3)_"",0)""),W(9)=$E($P(W,U,9),6,9),W=$P(W,U,1) W W,"" "",W(9) K W"
^DD(65.01,0,"IX","B",65.01,.01)=""
^DD(65.01,0,"NM","PATIENT XMATCHED/ASSIGNED")=""
^DD(65.01,0,"UP")="65"
^DD(65.01,.01,0)="PATIENT XMATCHED/ASSIGNED^MFXO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) D ^LRUG I $D(X) S DINUM=X,DIC(0)=""M"""
^DD(65.01,.01,1,0)="^.1^^-1"
^DD(65.01,.01,1,1,0)="65^AM^MUMPS"
^DD(65.01,.01,1,1,1)="S Y=$S('$D(^LRD(65,DA(1),4)):1,'$L($P(^(4),U)):1,1:0) I Y S Y=$S('$D(^(2,DA,0)):1,$P(^(0),U,2):1,1:0) S:Y ^LRD(65,""AP"",DA,DA(1))="""""
^DD(65.01,.01,1,1,2)="K ^LRD(65,""AP"",DA,DA(1))"
^DD(65.01,.01,1,2,0)="65.01^B"
^DD(65.01,.01,1,2,1)="S ^LRD(65,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(65.01,.01,1,2,2)="K ^LRD(65,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(65.01,.01,2)="S Y(0)=Y I Y,$D(^LR(Y,0)) S X=^(0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$E($P(Y,"","",1),1,13)_"" ""_$E($P(Y,U,9),6,10)"
^DD(65.01,.01,2.1)="I Y,$D(^LR(Y,0)) S X=^(0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$E($P(Y,"","",1),1,13)_"" ""_$E($P(Y,U,9),6,10)"
^DD(65.01,.01,3)="Enter patient name, SSN, or first letter of last name and last 4 digits of SSN"
^DD(65.01,.01,4)=""
^DD(65.01,.01,21,0)="^^2^2^2911205^^^"
^DD(65.01,.01,21,1,0)="Number to left of NAME is the internal number in the lab results file."
^DD(65.01,.01,21,2,0)=" Number to right of NAME is last characters of patient's SSN."
^DD(65.01,.01,"DT")="2960614"
^DD(65.01,.012,0)="PARENT FILE^CJ30^^ ; ^S Y=+^LRD(65,D0,2,D1,0),Y=$P(^LR(Y,0),U,2),X=$P(^DIC(Y,0),U)"
^DD(65.01,.012,9)="^"
^DD(65.01,.012,9.01)=""
^DD(65.01,.012,9.1)="S Y=+^LRD(65,D0,2,D1,0),Y=$P(^LR(Y,0),U,2),X=$P(^DIC(Y,0),U)"
^DD(65.01,.012,21,0)="^^1^1^2870918^"
^DD(65.01,.012,21,1,0)="File where demographic data is stored for patient crossmatched"
^DD(65.01,.012,"DT")="2890811"
^DD(65.01,.02,0)="DATE/TIME UNIT ASSIGNED^DX^^0;2^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(65.01,.02,1,0)="^.1"
^DD(65.01,.02,1,1,0)="65^AP^MUMPS"
^DD(65.01,.02,1,1,1)="S Y=$S('$D(^LRD(65,DA(1),4)):1,'$L($P(^(4),U,1)):1,1:"""") S:Y ^LRD(65,""AP"",DA,DA(1))="""""
^DD(65.01,.02,1,1,2)="K ^LRD(65,""AP"",DA,DA(1))"
^DD(65.01,.02,4)="K DZ W $C(7),!!?5,""Time required. Future times not allowed."",!!"
^DD(65.01,.02,21,0)="^^1^1^2960610^^^^"
^DD(65.01,.02,21,1,0)="Date/time unit is crossmatched for each patient.  If unit is released from crossmatch for a specific patient the date/time is deleted."
^DD(65.01,.02,"DT")="2860103"
^DD(65.01,.03,0)="LAST SPECIMEN DATE XMATCHED^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(65.01,.03,3)=""
^DD(65.01,.03,5,1,0)="65.02^.09^2"
^DD(65.01,.03,21,0)="^^1^1^2880415^^^"
^DD(65.01,.03,21,1,0)="Date/time of specimen unit was last xmatched with."
^DD(65.01,.03,"DT")="2880415"
^DD(65.01,1,0)="BLOOD SAMPLE DATE/TIME^65.02DA^^1;0"
^DD(65.01,1,21,0)="^^2^2^2930329^^^^"
^DD(65.01,1,21,1,0)="These are date/times of blood samples used for"
^DD(65.01,1,21,2,0)="pretransfusion testing."
^DD(65.01,"B","BLOOD SAMPLE DATE/TIME",1)=""
^DD(65.01,"B","DATE/TIME UNIT ASSIGNED",.02)=""
^DD(65.01,"B","LAST SPECIMEN DATE XMATCHED",.03)=""
^DD(65.01,"B","PARENT FILE",.012)=""
^DD(65.01,"B","PATIENT XMATCHED/ASSIGNED",.01)=""
^DD(65.01,"GL",0,1,.01)=""
^DD(65.01,"GL",0,2,.02)=""
^DD(65.01,"GL",0,3,.03)=""
^DD(65.01,"GL",1,0,1)=""
^DD(65.01,"IX",.01)=""
^DD(65.01,"IX",.02)=""
^DD(65.01,"SB",65.02,1)=""
^DD(65.02,0)="BLOOD SAMPLE DATE/TIME SUB-FIELD^NL^3^13"
^DD(65.02,0,"DT")="2940929"
^DD(65.02,0,"IX","B",65.02,.01)=""
^DD(65.02,0,"NM","BLOOD SAMPLE DATE/TIME")=""
^DD(65.02,0,"UP")="65.01"
^DD(65.02,.01,0)="BLOOD SAMPLE DATE/TIME^DX^^0;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X"
^DD(65.02,.01,1,0)="^.1"
^DD(65.02,.01,1,1,0)="65.02^B"
^DD(65.02,.01,1,1,1)="S ^LRD(65,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(65.02,.01,1,1,2)="K ^LRD(65,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(65.02,.01,4)="W !,""Future date/time not allowed"",!"
^DD(65.02,.01,21,0)="^^1^1^2911205^^"
^DD(65.02,.01,21,1,0)="Date/time of blood sample used for pretransfusion testing"
^DD(65.02,.01,"DT")="2850806"
^DD(65.02,.02,0)="TREATING SPECIALITY^FX^^0;2^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(65.02,.02,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(65.02,.02,4)="W !,""NOT NUMERIC OR STARTING WITH PUNCTUATION"""
^DD(65.02,.02,21,0)="^^1^1^2911205^^^"
^DD(65.02,.02,21,1,0)="Medical speciality treating patient"
^DD(65.02,.02,"DT")="2870918"
^DD(65.02,.03,0)="PHYSICIAN^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(65.02,.03,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.02,.03,21,0)="^^1^1^2911205^^^^"
^DD(65.02,.03,21,1,0)="Patient's physician"
^DD(65.02,.04,0)="XMATCH RESULT^SX^C:COMPATIBLE;I:INCOMPATIBLE, UNSAFE TO TRANSFUSE;CD:COMPATIBLE, DON'T TRANSFUSE;CF:COMPATIBLE, FURTHER STUDY NEEDED;IG:INCOMPATIBLE, GIVE WITH BB DIRECTOR APPROVAL;^0;4^D:$D(X) A^LRBLU"
^DD(65.02,.04,.1)="CROSSMATCH RESULT"
^DD(65.02,.04,21,0)="^^1^1^2870805^"
^DD(65.02,.04,21,1,0)="Interpretation of major crossmatch"
^DD(65.02,.04,"DT")="2901002"
^DD(65.02,.05,0)="XMATCH TECH^P200'^VA(200,^0;5^Q"
^DD(65.02,.05,3)=""
^DD(65.02,.05,21,0)="^^1^1^2870805^"
^DD(65.02,.05,21,1,0)="Person performing crossmatch"
^DD(65.02,.05,"DT")="2910630"
^DD(65.02,.06,0)="PATIENT SAMPLE ACC #^F^^0;6^K:$L(X)>12!($L(X)<1) X"
^DD(65.02,.06,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(65.02,.06,21,0)="^^1^1^2870805^"
^DD(65.02,.06,21,1,0)="Blood bank accession number for patient sample"
^DD(65.02,.06,"DT")="2850806"
^DD(65.02,.07,0)="TREATING SPECIALTY NUMBER^P45.7'O^DIC(45.7,^0;7^Q"
^DD(65.02,.07,.1)="Internal entry # in treating speciality file"
^DD(65.02,.07,2)="S Y(0)=Y W """""
^DD(65.02,.07,2.1)="W """""
^DD(65.02,.07,21,0)="^^2^2^2870918^^"
^DD(65.02,.07,21,1,0)="If treating speciality is an entry in the treating speciality file"
^DD(65.02,.07,21,2,0)=" the pointer number is stored here."
^DD(65.02,.07,"DT")="2870918"
^DD(65.02,.08,0)="PROVIDER NUMBER^P200'O^VA(200,^0;8^Q"
^DD(65.02,.08,.1)="Internal entry # in the NEW PERSON file"
^DD(65.02,.08,2)="S Y(0)=Y W """""
^DD(65.02,.08,2.1)="W """""
^DD(65.02,.08,21,0)="^^2^2^2870918^"
^DD(65.02,.08,21,1,0)="If the physician is an entry in the NEW PERSON file the pointer number"
^DD(65.02,.08,21,2,0)=" is stored here."
^DD(65.02,.08,"DT")="2910630"
^DD(65.02,.09,0)="DATE/TIME CROSSMATCHED^D^^0;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(65.02,.09,1,0)="^.1"
^DD(65.02,.09,1,1,0)="65^AN"
^DD(65.02,.09,1,1,1)="S ^LRD(65,""AN"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(65.02,.09,1,1,2)="K ^LRD(65,""AN"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(65.02,.09,1,2,0)="^^TRIGGER^65.01^.03"
^DD(65.02,.09,1,2,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^LRD(65,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(65.02,.09,1,2,1.1) X ^DD(65.02,.09,1,2,1.4)"
^DD(65.02,.09,1,2,1.1)="S X=DIV S Y(1)=$S($D(^LRD(65,D0,2,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,1)"
^DD(65.02,.09,1,2,1.4)="S DIH=$S($D(^LRD(65,DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=65.01,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(65.02,.09,1,2,2)="Q"
^DD(65.02,.09,1,2,"CREATE VALUE")="BLOOD SAMPLE DATE/TIME"
^DD(65.02,.09,1,2,"DELETE VALUE")="NO EFFECT"
^DD(65.02,.09,1,2,"FIELD")="LAST SPECIMEN DATE XMATCHED"
^DD(65.02,.09,21,0)="^^1^1^2930329^"
^DD(65.02,.09,21,1,0)="The date/time of the blood sample crossmatch"
^DD(65.02,.09,"DT")="2880415"
^DD(65.02,.1,0)="RELEASE REASON^FX^^0;10^K:$L(X)>40!($L(X)<2) X I $D(X) S L=40,L(1)=""B"" D ^LRUB"
^DD(65.02,.1,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(65.02,.1,4)="S L(1)=""B"" D Q^LRUB"
^DD(65.02,.1,21,0)="^^1^1^2880420^^"
^DD(65.02,.1,21,1,0)="Reason unit is released from xmatch."
^DD(65.02,.1,"DT")="2880416"
^DD(65.02,1,0)="MAJOR XMATCH METHOD^65.0911SA^^1;0"
^DD(65.02,1,21,0)="^^1^1^2920204^^"
^DD(65.02,1,21,1,0)="These are the major crossmatch methods."
^DD(65.02,2,0)="MINOR XMATCH METHOD^65.0912SA^^2;0"
^DD(65.02,2,21,0)="^^1^1^2911209^^"
^DD(65.02,2,21,1,0)="Data stored here if minor crossmatch used."
^DD(65.02,3,0)="CROSSMATCH COMMENT^65.0913A^^3;0"
^DD(65.02,3,21,0)="^^4^4^2911209^^"
^DD(65.02,3,21,1,0)="These are comments relating to the crossmatch of the "
^DD(65.02,3,21,2,0)="specific donor unit.  NOTE:  These comments become"
^DD(65.02,3,21,3,0)="part of the permanent transfusion record of the"
^DD(65.02,3,21,4,0)="patient if the unit is subsequently transfused to that patient."
^DD(65.02,"B","BLOOD SAMPLE DATE/TIME",.01)=""
^DD(65.02,"B","CROSSMATCH COMMENT",3)=""
^DD(65.02,"B","CROSSMATCH RESULT",.04)="1"
^DD(65.02,"B","DATE/TIME CROSSMATCHED",.09)=""
^DD(65.02,"B","MAJOR XMATCH METHOD",1)=""
^DD(65.02,"B","MINOR XMATCH METHOD",2)=""
^DD(65.02,"B","PATIENT SAMPLE ACC #",.06)=""
^DD(65.02,"B","PHYSICIAN",.03)=""
^DD(65.02,"B","PROVIDER NUMBER",.08)=""
^DD(65.02,"B","RELEASE REASON",.1)=""
^DD(65.02,"B","TREATING SPECIALITY",.02)=""
^DD(65.02,"B","TREATING SPECIALTY NUMBER",.07)=""
^DD(65.02,"B","XMATCH RESULT",.04)=""
^DD(65.02,"B","XMATCH TECH",.05)=""
^DD(65.02,"GL",0,1,.01)=""
^DD(65.02,"GL",0,2,.02)=""
^DD(65.02,"GL",0,3,.03)=""
^DD(65.02,"GL",0,4,.04)=""
^DD(65.02,"GL",0,5,.05)=""
^DD(65.02,"GL",0,6,.06)=""
^DD(65.02,"GL",0,7,.07)=""
^DD(65.02,"GL",0,8,.08)=""
^DD(65.02,"GL",0,9,.09)=""
^DD(65.02,"GL",0,10,.1)=""
^DD(65.02,"GL",1,0,1)=""
^DD(65.02,"GL",2,0,2)=""
^DD(65.02,"GL",3,0,3)=""
^DD(65.02,"IX",.01)=""
^DD(65.02,"IX",.09)=""
^DD(65.02,"SB",65.0911,1)=""
^DD(65.02,"SB",65.0912,2)=""
^DD(65.02,"SB",65.0913,3)=""
^DD(65.03,0)="DATE/TIME UNIT RELOCATION SUB-FIELD^NL^.07^7"
^DD(65.03,0,"NM","DATE/TIME UNIT RELOCATION")=""
^DD(65.03,0,"UP")="65"
^DD(65.03,.01,0)="DATE/TIME UNIT RELOCATION^DX^^0;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1!(Y'[""."") X I $D(X) S DINUM=9999999-Y"
^DD(65.03,.01,1,0)="^.1"
^DD(65.03,.01,1,1,0)="65^AL^MUMPS"
^DD(65.03,.01,1,1,1)="S ^LRD(65,""AL"",X,DA(1))="""""
^DD(65.03,.01,1,1,2)="K ^LRD(65,""AL"",X,DA(1))"
^DD(65.03,.01,3)="This is a multiple entry field but only asked once"
^DD(65.03,.01,4)="W $C(7),!!,""TIME must be entered"",!,""Future times not allowed"",!!"
^DD(65.03,.01,21,0)="^^2^2^2960530^^"
^DD(65.03,.01,21,1,0)="Date/time unit is relocated from one location to another,"
^DD(65.03,.01,21,2,0)=" ex. from blood bank to surgery or from surgery to blood bank"
^DD(65.03,.01,"DT")="2860217"
^DD(65.03,.02,0)="INSPECTION^RS^S:SATISFACTORY;U:UNSATISFACTORY;^0;2^Q"
^DD(65.03,.02,21,0)="^^2^2^2870805^"
^DD(65.03,.02,21,1,0)="Interpretation of unit inspection for color and appearance"
^DD(65.03,.02,21,2,0)=" immediately before issue/relocation."
^DD(65.03,.02,"DT")="2850807"
^DD(65.03,.03,0)="TECH INSPECTING^RP200'^VA(200,^0;3^Q"
^DD(65.03,.03,3)=""
^DD(65.03,.03,21,0)="^^1^1^2870805^"
^DD(65.03,.03,21,1,0)="Person inspecting unit"
^DD(65.03,.03,"DT")="2910630"
^DD(65.03,.04,0)="LOCATION^RFX^^0;4^K:$L(X)<2!($L(X)>30)!(X'?.ANP) X I $D(X) D ^LRUC"
^DD(65.03,.04,3)="Entry must be 2-30 characters"
^DD(65.03,.04,4)="D EN^LRUC"
^DD(65.03,.04,21,0)="^^1^1^2870805^"
^DD(65.03,.04,21,1,0)="Location to which unit of blood is being relocated."
^DD(65.03,.04,"DT")="2850717"
^DD(65.03,.05,0)="ISSUED TO/REC'D FROM^F^^0;5^K:$L(X)>30!($L(X)<2) X"
^DD(65.03,.05,.1)=""
^DD(65.03,.05,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.03,.05,21,0)="^^1^1^2870805^^^"
^DD(65.03,.05,21,1,0)="Person taking unit from or returning unit to the blood bank."
^DD(65.03,.05,"DT")="2850508"
^DD(65.03,.06,0)="FOR PATIENT^F^^0;6^K:$L(X)>30!($L(X)<2) X"
^DD(65.03,.06,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.03,.06,21,0)="^^1^1^2870805^"
^DD(65.03,.06,21,1,0)="The patient the unit of blood is being relocated for."
^DD(65.03,.06,"DT")="2850715"
^DD(65.03,.07,0)="VA PATIENT NUMBER^P2'O^DPT(^0;7^Q"
^DD(65.03,.07,.1)="Internal entry # in the patient (#2) file"
^DD(65.03,.07,2)="S Y(0)=Y W """""
^DD(65.03,.07,2.1)="W """""
^DD(65.03,.07,21,0)="^^2^2^2870918^"
^DD(65.03,.07,21,1,0)="If the patient is an entry in the patient file (#2) the pointer number"
^DD(65.03,.07,21,2,0)=" is stored here."
^DD(65.03,.07,"DT")="2870918"
^DD(65.03,"B","DATE/TIME UNIT RELOCATION",.01)=""
^DD(65.03,"B","FOR PATIENT",.06)=""
^DD(65.03,"B","INSPECTION",.02)=""
^DD(65.03,"B","ISSUED TO/REC'D FROM",.05)=""
^DD(65.03,"B","LOCATION",.04)=""
^DD(65.03,"B","TECH INSPECTING",.03)=""
^DD(65.03,"B","VA PATIENT NUMBER",.07)=""
^DD(65.03,"GL",0,1,.01)=""
^DD(65.03,"GL",0,2,.02)=""
^DD(65.03,"GL",0,3,.03)=""
^DD(65.03,"GL",0,4,.04)=""
^DD(65.03,"GL",0,5,.05)=""
^DD(65.03,"GL",0,6,.06)=""
^DD(65.03,"GL",0,7,.07)=""
^DD(65.03,"IX",.01)=""
^DD(65.03,"RQ",.02)=""
^DD(65.03,"RQ",.03)=""
^DD(65.03,"RQ",.04)=""
^DD(65.04,0)="RBC ANTIGEN PRESENT SUB-FIELD^NL^.02^2"
^DD(65.04,0,"NM","RBC ANTIGEN PRESENT")=""
^DD(65.04,0,"UP")="65"
^DD(65.04,.01,0)="RBC ANTIGEN PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(65.04,.01,.1)="RBC Antigen tested"
^DD(65.04,.01,3)="Enter ANTIGEN"
^DD(65.04,.01,12)="Selects only ANTIGENS"
^DD(65.04,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65.04,.01,21,0)="^^2^2^2930308^^^"
^DD(65.04,.01,21,1,0)="Antigen(s) present on red blood cells of the unit"
^DD(65.04,.01,21,2,0)=" (If applicable)"
^DD(65.04,.01,"DT")="2990521"
^DD(65.04,.02,0)="RBC ANTIGEN PRESENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(65.04,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.04,.02,21,0)="^^1^1^2930329^^"
^DD(65.04,.02,21,1,0)="Comment to RBC antigen presence"
^DD(65.04,.02,"DT")="2860602"
^DD(65.04,"B","RBC ANTIGEN PRESENT",.01)=""
^DD(65.04,"B","RBC ANTIGEN PRESENT COMMENT",.02)=""
^DD(65.04,"B","RBC Antigen tested",.01)="1"
^DD(65.04,"GL",0,1,.01)=""
^DD(65.04,"GL",0,2,.02)=""
^DD(65.05,0)="RBC ANTIGEN ABSENT SUB-FIELD^NL^.02^2"
^DD(65.05,0,"NM","RBC ANTIGEN ABSENT")=""
^DD(65.05,0,"UP")="65"
^DD(65.05,.01,0)="RBC ANTIGEN ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(65.05,.01,12)="Selects only ANTIGENS"
^DD(65.05,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65.05,.01,21,0)="^^2^2^2870805^"
^DD(65.05,.01,21,1,0)="Antigen(s) absent on red blood cells of unit"
^DD(65.05,.01,21,2,0)=" (If applicable)"
^DD(65.05,.01,"DT")="2990521"
^DD(65.05,.02,0)="RBC ANTIGEN ABSENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(65.05,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.05,.02,21,0)="^^1^1^2930329^"
^DD(65.05,.02,21,1,0)="Comment to RBC antigen absence"
^DD(65.05,.02,"DT")="2860602"
^DD(65.05,"B","RBC ANTIGEN ABSENT",.01)=""
^DD(65.05,"B","RBC ANTIGEN ABSENT COMMENT",.02)=""
^DD(65.05,"GL",0,1,.01)=""
^DD(65.05,"GL",0,2,.02)=""
^DD(65.06,0)="DISPOSITION COMMENT SUB-FIELD^NL^.01^1"
^DD(65.06,0,"NM","DISPOSITION COMMENT")=""
^DD(65.06,0,"UP")="65"
^DD(65.06,.01,0)="DISPOSITION COMMENT^MFX^^0;1^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""D"" D ^LRUB"
^DD(65.06,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH, CAN USE LAB DESCRIPTION FILE ENTRIES WITH BB DISP SCREEN"
^DD(65.06,.01,4)="S L(1)=""D"" D Q^LRUB"
^DD(65.06,.01,21,0)="^^1^1^2931123^^^"
^DD(65.06,.01,21,1,0)="Final disposition comment(s)"
^DD(65.06,.01,"DT")="2880408"
^DD(65.06,"B","DISPOSITION COMMENT",.01)=""
^DD(65.06,"GL",0,1,.01)=""
^DD(65.07,0)="TRANSFUSION COMMENT SUB-FIELD^NL^.01^1"
^DD(65.07,0,"NM","TRANSFUSION COMMENT")=""
^DD(65.07,0,"UP")="65"
^DD(65.07,.01,0)="TRANSFUSION COMMENT^MFX^^0;1^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""R"" D ^LRUB"
^DD(65.07,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.07,.01,4)="S L(1)=""R"" D Q^LRUB"
^DD(65.07,.01,21,0)="^^3^3^2870805^"
^DD(65.07,.01,21,1,0)="Comments regarding the transfusion of the specific unit,"
^DD(65.07,.01,21,2,0)=" including whether only a part of the unit was"
^DD(65.07,.01,21,3,0)=" transfused and the reason(s)."
^DD(65.07,.01,"DT")="2880408"
^DD(65.07,"B","TRANSFUSION COMMENT",.01)=""
^DD(65.07,"GL",0,1,.01)=""
^DD(65.08,0)="HLA ANTIGEN PRESENT SUB-FIELD^NL^.02^2"
^DD(65.08,0,"NM","HLA ANTIGEN PRESENT")=""
^DD(65.08,0,"UP")="65"
^DD(65.08,.01,0)="HLA ANTIGEN PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.08,.01,12)="Limits entry to only HLA Antigens"
^DD(65.08,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65.08,.01,21,0)="^^1^1^2870805^"
^DD(65.08,.01,21,1,0)="HLA antigen(s) present on the appropriate cells"
^DD(65.08,.01,"DT")="2990521"
^DD(65.08,.02,0)="HLA ANTIGEN PRESENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(65.08,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.08,.02,21,0)="^^1^1^2930329^^^^"
^DD(65.08,.02,21,1,0)="Comment to HLA antigen presence"
^DD(65.08,.02,"DT")="2860602"
^DD(65.08,"B","HLA ANTIGEN PRESENT",.01)=""
^DD(65.08,"B","HLA ANTIGEN PRESENT COMMENT",.02)=""
^DD(65.08,"GL",0,1,.01)=""
^DD(65.08,"GL",0,2,.02)=""
^DD(65.09,0)="HLA ANTIGEN ABSENT SUB-FIELD^NL^.02^2"
^DD(65.09,0,"NM","HLA ANTIGEN ABSENT")=""
^DD(65.09,0,"UP")="65"
^DD(65.09,.01,0)="HLA ANTIGEN ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.09,.01,12)="Selects HLA antigens"
^DD(65.09,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65.09,.01,21,0)="^^1^1^2870805^"
^DD(65.09,.01,21,1,0)="HLA antigen(s) absent on the appropriate cells"
^DD(65.09,.01,"DT")="2990521"
^DD(65.09,.02,0)="HLA ANTIGEN ABSENT COMMENT^F^^0;2^K:$L(X)>80!($L(X)<2) X"
^DD(65.09,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.09,.02,21,0)="^^1^1^2930329^^"
^DD(65.09,.02,21,1,0)="Comment to HLA antigen absence"
^DD(65.09,.02,"DT")="2860602"
^DD(65.09,"B","HLA ANTIGEN ABSENT",.01)=""
^DD(65.09,"B","HLA ANTIGEN ABSENT COMMENT",.02)=""
^DD(65.09,"GL",0,1,.01)=""
^DD(65.09,"GL",0,2,.02)=""
^DD(65.091,0)="MODIFIED TO/FROM SUB-FIELD^NL^.03^4"
^DD(65.091,0,"DT")="2920706"
^DD(65.091,0,"ID",.02)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(65.091,0,"NM","MODIFIED TO/FROM")=""
^DD(65.091,0,"UP")="65"
^DD(65.091,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.091,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(65.091,.001,21,0)="^^1^1^2930331^"
^DD(65.091,.001,21,1,0)="A number from 1 to 20"
^DD(65.091,.001,"DT")="2860129"
^DD(65.091,.01,0)="MODIFIED TO/FROM^M*P66'^LAB(66,^0;1^S DIC(""S"")=""I $P(^(0),U,6)]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65.091,.01,1,0)="^.1^^0"
^DD(65.091,.01,3)=""
^DD(65.091,.01,12)="Products allowed to be made from inventory"
^DD(65.091,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,6)]"""""""""""
^DD(65.091,.01,21,0)="^^1^1^2850520^"
^DD(65.091,.01,21,1,0)="If unit is modified identifies what products are made and what are the new units by ID #.  If unit is a pool identifies what product was pooled and what units are in the pool."
^DD(65.091,.01,"DT")="2850528"
^DD(65.091,.02,0)="UNIT ID^RF^^0;2^K:$L(X)>13!($L(X)<2) X"
^DD(65.091,.02,3)="ANSWER MUST BE 2-13 CHARACTERS IN LENGTH"
^DD(65.091,.02,21,0)="^^2^2^2850528^"
^DD(65.091,.02,21,1,0)="If the unit is to be modified the ID of the new unit is entered here."
^DD(65.091,.02,21,2,0)="If the unit is a modified unit the old unit ID's are entered."
^DD(65.091,.02,"DT")="3001023"
^DD(65.091,.03,0)="FROM/TO^S^1:FROM;2:TO;^0;3^Q"
^DD(65.091,.03,21,0)="^^5^5^2920706^^^"
^DD(65.091,.03,21,1,0)="If entry is from another unit a '1' is entered."
^DD(65.091,.03,21,2,0)=" If entry is to become or be part of another unit a '2' is entered."
^DD(65.091,.03,21,3,0)=" Several of the entries may have been entered to form a pool and"
^DD(65.091,.03,21,4,0)=" each entry will have a '1' entered.  Then the pool may be modified"
^DD(65.091,.03,21,5,0)=" to another unit and then the entry will have a '2' entered."
^DD(65.091,.03,"DT")="2920706"
^DD(65.091,"B","FROM/TO",.03)=""
^DD(65.091,"B","MODIFIED TO/FROM",.01)=""
^DD(65.091,"B","NUMBER",.001)=""
^DD(65.091,"B","UNIT ID",.02)=""
^DD(65.091,"GL",0,1,.01)=""
^DD(65.091,"GL",0,2,.02)=""
^DD(65.091,"GL",0,3,.03)=""
^DD(65.091,"RQ",.02)=""
^DD(65.0911,0)="MAJOR XMATCH METHOD SUB-FIELD^NL^.1^10"
^DD(65.0911,0,"NM","MAJOR XMATCH METHOD")=""
^DD(65.0911,0,"UP")="65.02"
^DD(65.0911,.01,0)="MAJOR XMATCH METHOD^S^S:SALINE;A:ALBUMIN;P:PAPAIN;F:FICIN;L:LISS;H:LISH;^0;1^Q"
^DD(65.0911,.01,21,0)="^^1^1^2911209^^^"
^DD(65.0911,.01,21,1,0)="Crossmatch methods. LISH=low ionic strength high molecular weight"
^DD(65.0911,.01,"DT")="2850604"
^DD(65.0911,.02,0)="TECHNIQUE^S^T:TUBE;M:MICROPLATE;A:AUTOMATED;^0;2^Q"
^DD(65.0911,.02,21,0)="^^1^1^2911209^^"
^DD(65.0911,.02,21,1,0)="Method used in the crossmatch"
^DD(65.0911,.02,"DT")="2850604"
^DD(65.0911,.03,0)="INTERPRETATION^S^N:NEGATIVE;P:POSITIVE;^0;3^Q"
^DD(65.0911,.03,21,0)="^^1^1^2911209^^"
^DD(65.0911,.03,21,1,0)="Major crossmatch interpretation"
^DD(65.0911,.03,"DT")="2850604"
^DD(65.0911,.04,0)="IS^FX^^0;4^D ^LRBLAGG"
^DD(65.0911,.04,.1)="Immediate spin"
^DD(65.0911,.04,3)=""
^DD(65.0911,.04,4)="D LST^LRBLAGG"
^DD(65.0911,.04,21,0)="^^1^1^2911209^"
^DD(65.0911,.04,21,1,0)="This is the immediate spin."
^DD(65.0911,.04,"DT")="2850604"
^DD(65.0911,.05,0)="37 C^FX^^0;5^D ^LRBLAGG"
^DD(65.0911,.05,.1)="37 degrees centigrade"
^DD(65.0911,.05,3)=""
^DD(65.0911,.05,4)="D LST^LRBLAGG"
^DD(65.0911,.05,21,0)="^^1^1^2911209^"
^DD(65.0911,.05,21,1,0)="This is 37 degrees centigrade."
^DD(65.0911,.05,"DT")="2850604"
^DD(65.0911,.06,0)="AHG^FX^^0;6^D ^LRBLAGG"
^DD(65.0911,.06,.1)="Anti-human globulin"
^DD(65.0911,.06,3)=""
^DD(65.0911,.06,4)="D LST^LRBLAGG"
^DD(65.0911,.06,21,0)="^^1^1^2911209^"
^DD(65.0911,.06,21,1,0)="This is anti-human globulin."
^DD(65.0911,.06,"DT")="2850604"
^DD(65.0911,.07,0)="CONTROL CELL^FX^^0;7^D ^LRBLAGG"
^DD(65.0911,.07,.1)="Antibody coated control cell"
^DD(65.0911,.07,3)=""
^DD(65.0911,.07,4)="D LST^LRBLAGG"
^DD(65.0911,.07,21,0)="^^1^1^2911209^"
^DD(65.0911,.07,21,1,0)="This is antibody coated control cell."
^DD(65.0911,.07,"DT")="2850604"
^DD(65.0911,.08,0)="ROOM TEMP^FX^^0;8^D ^LRBLAGG"
^DD(65.0911,.08,.1)="22-24 degrees centigrade"
^DD(65.0911,.08,3)=""
^DD(65.0911,.08,4)="D LST^LRBLAGG"
^DD(65.0911,.08,21,0)="^^1^1^2911209^^"
^DD(65.0911,.08,21,1,0)="This is 22-24 degrees centigrade."
^DD(65.0911,.08,"DT")="2850604"
^DD(65.0911,.09,0)="12-18 C^FX^^0;9^D ^LRBLAGG"
^DD(65.0911,.09,.1)="12-18 degrees centigrade"
^DD(65.0911,.09,3)=""
^DD(65.0911,.09,4)="D LST^LRBLAGG"
^DD(65.0911,.09,21,0)="^^1^1^2911209^"
^DD(65.0911,.09,21,1,0)="This is 12-18 degrees centigrade."
^DD(65.0911,.09,"DT")="2850604"
^DD(65.0911,.1,0)="4 C^FX^^0;10^D ^LRBLAGG"
^DD(65.0911,.1,.1)="4 degrees centigrade"
^DD(65.0911,.1,3)=""
^DD(65.0911,.1,4)="D LST^LRBLAGG"
^DD(65.0911,.1,21,0)="^^1^1^2911209^"
^DD(65.0911,.1,21,1,0)="This is 4 degrees centigrade."
^DD(65.0911,.1,"DT")="2850604"
^DD(65.0911,"B","12-18 C",.09)=""
^DD(65.0911,"B","12-18 degrees centigrade",.09)="1"
^DD(65.0911,"B","22-24 degrees centigrade",.08)="1"
^DD(65.0911,"B","37 C",.05)=""
^DD(65.0911,"B","37 degrees centigrade",.05)="1"
^DD(65.0911,"B","4 C",.1)=""
^DD(65.0911,"B","4 degrees centigrade",.1)="1"
^DD(65.0911,"B","AHG",.06)=""
^DD(65.0911,"B","Anti-human globulin",.06)="1"
^DD(65.0911,"B","Antibody coated control cell",.07)="1"
^DD(65.0911,"B","CONTROL CELL",.07)=""
^DD(65.0911,"B","INTERPRETATION",.03)=""
^DD(65.0911,"B","IS",.04)=""
^DD(65.0911,"B","Immediate spin",.04)="1"
^DD(65.0911,"B","MAJOR XMATCH METHOD",.01)=""
^DD(65.0911,"B","ROOM TEMP",.08)=""
^DD(65.0911,"B","TECHNIQUE",.02)=""
^DD(65.0911,"GL",0,1,.01)=""
^DD(65.0911,"GL",0,2,.02)=""
^DD(65.0911,"GL",0,3,.03)=""
^DD(65.0911,"GL",0,4,.04)=""
^DD(65.0911,"GL",0,5,.05)=""
^DD(65.0911,"GL",0,6,.06)=""
^DD(65.0911,"GL",0,7,.07)=""
^DD(65.0911,"GL",0,8,.08)=""
^DD(65.0911,"GL",0,9,.09)=""
^DD(65.0911,"GL",0,10,.1)=""
^DD(65.0912,0)="MINOR XMATCH METHOD SUB-FIELD^NL^.1^10"
^DD(65.0912,0,"NM","MINOR XMATCH METHOD")=""
^DD(65.0912,0,"UP")="65.02"
^DD(65.0912,.01,0)="MINOR XMATCH METHOD^S^S:SALINE;A:ALBUMIN;P:PAPAIN;F:FICIN;L:LISS;H:LISH;^0;1^Q"
^DD(65.0912,.01,21,0)="^^2^2^2850604^"
^DD(65.0912,.01,21,1,0)="Data stored here for minor crossmatch if used."
^DD(65.0912,.01,21,2,0)=" LISH=low ionic strength high molecular weight"
^DD(65.0912,.01,"DT")="2850604"
^DD(65.0912,.02,0)="TECHNIQUE^S^T:TUBE;M:MICROPLATE;A:AUTOMATED;^0;2^Q"
^DD(65.0912,.02,21,0)="^^1^1^2870918^"
^DD(65.0912,.02,21,1,0)="Method used in the crossmatch"
^DD(65.0912,.02,"DT")="2850604"
^DD(65.0912,.03,0)="INTERPRETATION^S^N:NEGATIVE;P:POSITIVE;^0;3^Q"
^DD(65.0912,.03,21,0)="^^1^1^2870918^"
^DD(65.0912,.03,21,1,0)="Crossmatch interpretation"
^DD(65.0912,.03,"DT")="2850604"
^DD(65.0912,.04,0)="IS^FX^^0;4^D ^LRBLAGG"
^DD(65.0912,.04,.1)="Immediate spin"
^DD(65.0912,.04,3)=""
^DD(65.0912,.04,4)="D LST^LRBLAGG"
^DD(65.0912,.04,21,0)="^^1^1^2911209^"
^DD(65.0912,.04,21,1,0)="This is immediate spin."
^DD(65.0912,.04,"DT")="2850604"
^DD(65.0912,.05,0)="37 C^FX^^0;5^D ^LRBLAGG"
^DD(65.0912,.05,.1)="37 degrees centigrade"
^DD(65.0912,.05,3)=""
^DD(65.0912,.05,4)="D LST^LRBLAGG"
^DD(65.0912,.05,21,0)="^^1^1^2911209^"
^DD(65.0912,.05,21,1,0)="This is 37 degree centigrade."
^DD(65.0912,.05,"DT")="2850604"
^DD(65.0912,.06,0)="AHG^FX^^0;6^D ^LRBLAGG"
^DD(65.0912,.06,.1)="Anti-human globulin"
^DD(65.0912,.06,3)=""
^DD(65.0912,.06,4)="D LST^LRBLAGG"
^DD(65.0912,.06,21,0)="^^1^1^2911209^"
^DD(65.0912,.06,21,1,0)="This is anti-human globulin."
^DD(65.0912,.06,"DT")="2850604"
^DD(65.0912,.07,0)="CONTROL CELL^FX^^0;7^D ^LRBLAGG"
^DD(65.0912,.07,.1)="Antibody coated control cell"
^DD(65.0912,.07,3)=""
^DD(65.0912,.07,4)="D LST^LRBLAGG"
^DD(65.0912,.07,21,0)="^^1^1^2911209^"
^DD(65.0912,.07,21,1,0)="This is antibody coated control cell."
^DD(65.0912,.07,"DT")="2850604"
^DD(65.0912,.08,0)="ROOM TEMP^FX^^0;8^D ^LRBLAGG"
^DD(65.0912,.08,.1)="22-24 degrees centigrade"
^DD(65.0912,.08,3)=""
^DD(65.0912,.08,4)="D LST^LRBLAGG"
^DD(65.0912,.08,21,0)="^^1^1^2911209^"
^DD(65.0912,.08,21,1,0)="This is 22-24 degree centigrade."
^DD(65.0912,.08,"DT")="2850604"
^DD(65.0912,.09,0)="12-18 C^FX^^0;9^D ^LRBLAGG"
^DD(65.0912,.09,.1)="12-18 degrees centigrade"
^DD(65.0912,.09,3)=""
^DD(65.0912,.09,4)="D LST^LRBLAGG"
^DD(65.0912,.09,21,0)="^^1^1^2911209^"
^DD(65.0912,.09,21,1,0)="This is 12-18 degrees centigrade."
^DD(65.0912,.09,"DT")="2850604"
^DD(65.0912,.1,0)="4 C^FX^^0;10^D ^LRBLAGG"
^DD(65.0912,.1,.1)="4 degrees centigrade"
^DD(65.0912,.1,3)=""
^DD(65.0912,.1,4)="D LST^LRBLAGG"
^DD(65.0912,.1,21,0)="^^1^1^2911209^"
^DD(65.0912,.1,21,1,0)="This is 4 degrees centigrade."
^DD(65.0912,.1,"DT")="2850604"
^DD(65.0912,"B","12-18 C",.09)=""
^DD(65.0912,"B","12-18 degrees centigrade",.09)="1"
^DD(65.0912,"B","22-24 degrees centigrade",.08)="1"
^DD(65.0912,"B","37 C",.05)=""
^DD(65.0912,"B","37 degrees centigrade",.05)="1"
^DD(65.0912,"B","4 C",.1)=""
^DD(65.0912,"B","4 degrees centigrade",.1)="1"
^DD(65.0912,"B","AHG",.06)=""
^DD(65.0912,"B","Anti-human globulin",.06)="1"
^DD(65.0912,"B","Antibody coated control cell",.07)="1"
^DD(65.0912,"B","CONTROL CELL",.07)=""
^DD(65.0912,"B","INTERPRETATION",.03)=""
^DD(65.0912,"B","IS",.04)=""
^DD(65.0912,"B","Immediate spin",.04)="1"
^DD(65.0912,"B","MINOR XMATCH METHOD",.01)=""
^DD(65.0912,"B","ROOM TEMP",.08)=""
^DD(65.0912,"B","TECHNIQUE",.02)=""
^DD(65.0912,"GL",0,1,.01)=""
^DD(65.0912,"GL",0,2,.02)=""
^DD(65.0912,"GL",0,3,.03)=""
^DD(65.0912,"GL",0,4,.04)=""
^DD(65.0912,"GL",0,5,.05)=""
^DD(65.0912,"GL",0,6,.06)=""
^DD(65.0912,"GL",0,7,.07)=""
^DD(65.0912,"GL",0,8,.08)=""
^DD(65.0912,"GL",0,9,.09)=""
^DD(65.0912,"GL",0,10,.1)=""
^DD(65.0913,0)="CROSSMATCH COMMENT SUB-FIELD^NL^.01^1"
^DD(65.0913,0,"NM","CROSSMATCH COMMENT")=""
^DD(65.0913,0,"UP")="65.02"
^DD(65.0913,.01,0)="CROSSMATCH COMMENT^MFX^^0;1^K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.0913,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.0913,.01,4)="S L(1)=""X"",L(7)=""INVENTORY"" D Q^LRUB"
^DD(65.0913,.01,21,0)="^^4^4^2911209^^"
^DD(65.0913,.01,21,1,0)="Comment(s) relating to the crossmatch of the specific donor"
^DD(65.0913,.01,21,2,0)=" unit.  NOTE:  These comments become part of the permanent"
^DD(65.0913,.01,21,3,0)=" transfusion record of the patient if the unit is subsequently"
^DD(65.0913,.01,21,4,0)=" transfused to that patient."
^DD(65.0913,.01,"DT")="2920908"
^DD(65.0913,"B","CROSSMATCH COMMENT",.01)=""
^DD(65.0913,"GL",0,1,.01)=""
^DD(65.099,0)="DATA CHANGE DATE SUB-FIELD^NL^.05^5"
^DD(65.099,0,"NM","DATA CHANGE DATE")=""
^DD(65.099,0,"UP")="65"
^DD(65.099,.01,0)="DATA CHANGE DATE^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X S DINUM=$P($H,"","",1)_$P($H,"","",2) H 1"
^DD(65.099,.01,21,0)="^^1^1^2930331^^^"
^DD(65.099,.01,21,1,0)="This field contains the date the reported value was changed."
^DD(65.099,.01,"DT")="2850512"
^DD(65.099,.02,0)="PERSON CHANGING DATA^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(65.099,.02,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.099,.02,21,0)="^^1^1^2930325^"
^DD(65.099,.02,21,1,0)=" This field contains the person that alter the reported value."
^DD(65.099,.02,"DT")="2850508"
^DD(65.099,.03,0)="DATA ELEMENT^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(65.099,.03,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.099,.03,21,0)="^^1^1^2930325^"
^DD(65.099,.03,21,1,0)=" This field indicated what result name the data was altered."
^DD(65.099,.03,"DT")="2850508"
^DD(65.099,.04,0)="OLD VALUE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(65.099,.04,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.099,.04,21,0)="^^1^1^2930325^"
^DD(65.099,.04,21,1,0)="  This field contains the value before it was altered."
^DD(65.099,.04,"DT")="2850508"
^DD(65.099,.05,0)="NEW VALUE^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(65.099,.05,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.099,.05,21,0)="^^1^1^2930325^"
^DD(65.099,.05,21,1,0)="  This field contains the new value after the field was altered."
^DD(65.099,"B","DATA CHANGE DATE",.01)=""
^DD(65.099,"B","DATA ELEMENT",.03)=""
^DD(65.099,"B","NEW VALUE",.05)=""
^DD(65.099,"B","OLD VALUE",.04)=""
^DD(65.099,"B","PERSON CHANGING DATA",.02)=""
^DD(65.099,"GL",0,1,.01)=""
^DD(65.099,"GL",0,2,.02)=""
^DD(65.099,"GL",0,3,.03)=""
^DD(65.099,"GL",0,4,.04)=""
^DD(65.099,"GL",0,5,.05)=""
^DD(65.15,0)="DATE RE-ENTERED SUB-FIELD^^.09^9"
^DD(65.15,0,"NM","DATE RE-ENTERED")=""
^DD(65.15,0,"UP")="65"
^DD(65.15,.01,0)="DATE RE-ENTERED^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(65.15,.01,21,0)="^^3^3^2880310^"
^DD(65.15,.01,21,1,0)="If receiving a unit that was previously returned or sent"
^DD(65.15,.01,21,2,0)=" elsewhere enter the date re-entering the unit in"
^DD(65.15,.01,21,3,0)=" inventory file."
^DD(65.15,.01,"DT")="2880310"
^DD(65.15,.02,0)="PREVIOUS DISPOSITION^S^R:RETURNED TO SUPPLIER;S:SENT ELSEWHERE;^0;2^Q"
^DD(65.15,.02,21,0)="^^1^1^2930329^"
^DD(65.15,.02,21,1,0)="The previous disposition"
^DD(65.15,.02,"DT")="2880317"
^DD(65.15,.03,0)="PREVIOUS DISPOSITION DATE^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(65.15,.03,21,0)="^^1^1^2930329^"
^DD(65.15,.03,21,1,0)="The date of the previous disposition"
^DD(65.15,.03,"DT")="2880310"
^DD(65.15,.04,0)="PREVIOUS DISP ENTERING PERSON^P200'^VA(200,^0;4^Q"
^DD(65.15,.04,21,0)="^^1^1^2930329^"
^DD(65.15,.04,21,1,0)="The name of the person entering the previous disposition"
^DD(65.15,.04,"DT")="2910630"
^DD(65.15,.05,0)="PREVIOUS SHIPPING INVOICE^F^^0;5^K:$L(X)>10!($L(X)<2) X"
^DD(65.15,.05,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(65.15,.05,21,0)="^^1^1^2930329^"
^DD(65.15,.05,21,1,0)="The previous shipping invoice"
^DD(65.15,.05,"DT")="2880310"
^DD(65.15,.06,0)="PREVIOUS RECEIVING INVOICE^F^^0;6^K:$L(X)>10!($L(X)<2) X"
^DD(65.15,.06,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(65.15,.06,21,0)="^^1^1^2930329^"
^DD(65.15,.06,21,1,0)="The previous receiving invoice"
^DD(65.15,.06,"DT")="2880310"
^DD(65.15,.07,0)="PREVIOUS LOG-IN PERSON^P200'^VA(200,^0;7^Q"
^DD(65.15,.07,21,0)="^^1^1^2930329^"
^DD(65.15,.07,21,1,0)="The name of the previous log-in person"
^DD(65.15,.07,"DT")="2910630"
^DD(65.15,.08,0)="PREVIOUS DATE LOGGED-IN^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(65.15,.08,1,0)="^.1"
^DD(65.15,.08,1,1,0)="65^AR^MUMPS"
^DD(65.15,.08,1,1,1)="S ^LRD(65,""A"",X,DA(1))="""" D:$D(DIU(0)) A658^LRXREF1"
^DD(65.15,.08,1,1,2)="K ^LRD(65,""A"",X,DA(1))"
^DD(65.15,.08,1,1,"DT")="2901129"
^DD(65.15,.08,21,0)="^^1^1^2930331^"
^DD(65.15,.08,21,1,0)="Date of the previous log-in"
^DD(65.15,.08,"DT")="2900515"
^DD(65.15,.09,0)="PREVIOUS SHIP TO^F^^0;9^K:$L(X)>68!($L(X)<2) X"
^DD(65.15,.09,3)="ANSWER MUST BE 2-68 CHARACTERS IN LENGTH"
^DD(65.15,.09,21,0)="^^1^1^2930329^"
^DD(65.15,.09,21,1,0)="The name of the previous ship to area"
^DD(65.15,.09,"DT")="2880310"
^DD(65.15,"B","DATE RE-ENTERED",.01)=""
^DD(65.15,"B","PREVIOUS DATE LOGGED-IN",.08)=""
^DD(65.15,"B","PREVIOUS DISP ENTERING PERSON",.04)=""
^DD(65.15,"B","PREVIOUS DISPOSITION",.02)=""
^DD(65.15,"B","PREVIOUS DISPOSITION DATE",.03)=""
^DD(65.15,"B","PREVIOUS LOG-IN PERSON",.07)=""
^DD(65.15,"B","PREVIOUS RECEIVING INVOICE",.06)=""
^DD(65.15,"B","PREVIOUS SHIP TO",.09)=""
^DD(65.15,"B","PREVIOUS SHIPPING INVOICE",.05)=""
^DD(65.15,"GL",0,1,.01)=""
^DD(65.15,"GL",0,2,.02)=""
^DD(65.15,"GL",0,3,.03)=""
^DD(65.15,"GL",0,4,.04)=""
^DD(65.15,"GL",0,5,.05)=""
^DD(65.15,"GL",0,6,.06)=""
^DD(65.15,"GL",0,7,.07)=""
^DD(65.15,"GL",0,8,.08)=""
^DD(65.15,"GL",0,9,.09)=""
^DD(65.15,"IX",.08)=""
^DD(65.16,0)="PEDIATRIC ALIQUOT MADE SUB-FIELD^^.02^2"
^DD(65.16,0,"NM","PEDIATRIC ALIQUOT MADE")=""
^DD(65.16,0,"UP")="65"
^DD(65.16,.01,0)="PEDIATRIC ALIQUOT MADE^MF^^0;1^K:$L(X)>13!($L(X)<2) X"
^DD(65.16,.01,1,0)="^.1^^0"
^DD(65.16,.01,3)="ANSWER MUST BE 2-13 CHARACTERS IN LENGTH"
^DD(65.16,.01,21,0)="^^2^2^2880602^"
^DD(65.16,.01,21,1,0)="If portions of unit taken for pediatric units enter the"
^DD(65.16,.01,21,2,0)=" pediatric unit IDs here."
^DD(65.16,.01,"DT")="3001023"
^DD(65.16,.02,0)="VOLUME (ml)^RNJ3,0^^0;2^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.16,.02,3)="Type a Number between 1 and 200, 0 Decimal Digits"
^DD(65.16,.02,21,0)="^^1^1^2880602^"
^DD(65.16,.02,21,1,0)="Volume in mililiters of pediatric aliquot made from this unit."
^DD(65.16,.02,"DT")="2880602"
^DD(65.16,"B","PEDIATRIC ALIQUOT MADE",.01)=""
^DD(65.16,"B","VOLUME (ml)",.02)=""
^DD(65.16,"GL",0,1,.01)=""
^DD(65.16,"GL",0,2,.02)=""
^DD(65.16,"RQ",.02)=""
^DD(65.3,0)="TEST/PROCEDURE SUB-FIELD^^1^2"
^DD(65.3,0,"DT")="2920731"
^DD(65.3,0,"NM","TEST/PROCEDURE")=""
^DD(65.3,0,"UP")="65"
^DD(65.3,.01,0)="TEST/PROCEDURE^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.3,.01,1,0)="^.1^^0"
^DD(65.3,.01,12)="Selects only blood bank subscripted tests"
^DD(65.3,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""""
^DD(65.3,.01,21,0)="^^1^1^2900506^"
^DD(65.3,.01,21,1,0)="Used to keep track of TEST/PROCEDURES for WKLD workload"
^DD(65.3,.01,"DT")="2910128"
^DD(65.3,1,0)="COMPLETE DATE/TIME^65.31DA^^1;0"
^DD(65.3,1,21,0)="^^1^1^2930329^"
^DD(65.3,1,21,1,0)="The completion date/time of the test/procedure"
^DD(65.3,"B","COMPLETE DATE/TIME",1)=""
^DD(65.3,"B","TEST/PROCEDURE",.01)=""
^DD(65.3,"GL",0,1,.01)=""
^DD(65.3,"GL",1,0,1)=""
^DD(65.3,"SB",65.31,1)=""
^DD(65.31,0)="COMPLETE DATE/TIME SUB-FIELD^^1^6"
^DD(65.31,0,"DT")="2920731"
^DD(65.31,0,"NM","COMPLETE DATE/TIME")=""
^DD(65.31,0,"UP")="65.3"
^DD(65.31,.01,0)="COMPLETE DATE/TIME^MDX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(65.31,.01,1,0)="^.1"
^DD(65.31,.01,1,1,0)="65^AA^MUMPS"
^DD(65.31,.01,1,1,1)="S A=$P(^LRD(65,DA(2),99,DA(1),1,DA,0),U,3) I 'A S ^LRD(65,""AA"",DA(2),DA(1),DA)=$P(^LRD(65,DA(2),0),U)"
^DD(65.31,.01,1,1,2)="K ^LRD(65,""AA"",DA(2),DA(1),DA)"
^DD(65.31,.01,1,1,"%D",0)="^^1^1^2930303^^^"
^DD(65.31,.01,1,1,"%D",1,0)="WKLD workload flag"
^DD(65.31,.01,1,1,"DT")="2930303"
^DD(65.31,.01,"DT")="2930303"
^DD(65.31,.02,0)="TECH^P200'^VA(200,^0;2^Q"
^DD(65.31,.02,3)=""
^DD(65.31,.02,21,0)="^^1^1^2930329^"
^DD(65.31,.02,21,1,0)="The name of the technician completing the test/procedure"
^DD(65.31,.02,"DT")="2910126"
^DD(65.31,.03,0)="INSTITUTION^P4'^DIC(4,^0;3^Q"
^DD(65.31,.03,21,0)="^^1^1^2930329^"
^DD(65.31,.03,21,1,0)="The name of the institution from the Institution file"
^DD(65.31,.03,"DT")="2920731"
^DD(65.31,.04,0)="MAJOR SECTION^P68'^LRO(68,^0;4^Q"
^DD(65.31,.04,21,0)="^^1^1^2930329^"
^DD(65.31,.04,21,1,0)="The name of the major section from the Accession file"
^DD(65.31,.04,"DT")="2920731"
^DD(65.31,.05,0)="SUBSECTION^P68'^LRO(68,^0;5^Q"
^DD(65.31,.05,3)=""
^DD(65.31,.05,21,0)="^^1^1^2930329^"
^DD(65.31,.05,21,1,0)="The name of the subsection from the Accession file"
^DD(65.31,.05,"DT")="2920731"
^DD(65.31,1,0)="WKLD CODE^65.311PA^^1;0"
^DD(65.31,1,21,0)="^^1^1^2930329^"
^DD(65.31,1,21,1,0)="The name of the workload code from the WKLD CODE file"
^DD(65.31,"B","COMPLETE DATE/TIME",.01)=""
^DD(65.31,"B","INSTITUTION",.03)=""
^DD(65.31,"B","MAJOR SECTION",.04)=""
^DD(65.31,"B","SUBSECTION",.05)=""
^DD(65.31,"B","TECH",.02)=""
^DD(65.31,"B","WKLD CODE",1)=""
^DD(65.31,"GL",0,1,.01)=""
^DD(65.31,"GL",0,2,.02)=""
^DD(65.31,"GL",0,3,.03)=""
^DD(65.31,"GL",0,4,.04)=""
^DD(65.31,"GL",0,5,.05)=""
^DD(65.31,"GL",1,0,1)=""
^DD(65.31,"IX",.01)=""
^DD(65.31,"SB",65.311,1)=""
^DD(65.311,0)="WKLD CODE SUB-FIELD^^.03^3"
^DD(65.311,0,"NM","WKLD CODE")=""
^DD(65.311,0,"UP")="65.31"
^DD(65.311,.01,0)="WKLD CODE^MP64'X^LAM(^0;1^S DINUM=X"
^DD(65.311,.01,1,0)="^.1^^0"
^DD(65.311,.01,"DT")="2901024"
^DD(65.311,.02,0)="WKLD CODE COUNT^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.311,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(65.311,.02,21,0)="^^1^1^2930329^"
^DD(65.311,.02,21,1,0)="The count of the workload code entry"
^DD(65.311,.02,"DT")="2901024"
^DD(65.311,.03,0)="WKLD CODE COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(65.311,.03,21,0)="^^1^1^2930329^"
^DD(65.311,.03,21,1,0)="A set code of yes or no, whether the workload code was counted"
^DD(65.311,.03,"DT")="2901024"
^DD(65.311,"B","WKLD CODE",.01)=""
^DD(65.311,"B","WKLD CODE COUNT",.02)=""
^DD(65.311,"B","WKLD CODE COUNTED",.03)=""
^DD(65.311,"GL",0,1,.01)=""
^DD(65.311,"GL",0,2,.02)=""
^DD(65.311,"GL",0,3,.03)=""
^DD(65.4,0)="FIELD^^3^14"
^DD(65.4,0,"DDA")="N"
^DD(65.4,0,"DT")="2931230"
^DD(65.4,0,"ID",.02)="W """""
^DD(65.4,0,"ID",.03)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(65.4,0,"IX","B",65.4,.01)=""
^DD(65.4,0,"IX","C",65.4,.03)=""
^DD(65.4,0,"NM","BLOOD BANK UTILITY")=""
^DD(65.4,0,"PT",63.017,.11)=""
^DD(65.4,0,"PT",63.0171,.02)=""
^DD(65.4,0,"PT",65,6.8)=""
^DD(65.4,0,"PT",65.51,.01)=""
^DD(65.4,0,"PT",65.54,.02)=""
^DD(65.4,0,"PT",65.54,.03)=""
^DD(65.4,0,"PT",65.54,3)=""
^DD(65.4,0,"PT",65.55,.01)=""
^DD(65.4,0,"VR")="5.2"
^DD(65.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(65.4,.01,.1)="Name or code"
^DD(65.4,.01,1,0)="^.1"
^DD(65.4,.01,1,1,0)="65.4^B"
^DD(65.4,.01,1,1,1)="S ^LAB(65.4,""B"",$E(X,1,30),DA)="""""
^DD(65.4,.01,1,1,2)="K ^LAB(65.4,""B"",$E(X,1,30),DA)"
^DD(65.4,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.4,.01,21,0)="^^1^1^2911216^^^"
^DD(65.4,.01,21,1,0)="Enter the name of the collection site, group affiliation, or coded item related to donor history."
^DD(65.4,.01,"DT")="2850403"
^DD(65.4,.02,0)="SCREEN^S^G:GROUP AFFILIATION;D:DEFERRAL CODE;C:COLLECTION SITE;GC:GROUP AFFILIATION & COLLECTION SITE;R:DONOR REACTION;T:TRANSFUSION REACTION;^0;2^Q"
^DD(65.4,.02,21,0)="^^1^1^2920203^^"
^DD(65.4,.02,21,1,0)="This designates the type of donor utility."
^DD(65.4,.02,"DT")="2921211"
^DD(65.4,.03,0)="FULL NAME^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X"
^DD(65.4,.03,1,0)="^.1"
^DD(65.4,.03,1,1,0)="65.4^C"
^DD(65.4,.03,1,1,1)="S ^LAB(65.4,""C"",$E(X,1,30),DA)="""""
^DD(65.4,.03,1,1,2)="K ^LAB(65.4,""C"",$E(X,1,30),DA)"
^DD(65.4,.03,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.4,.03,21,0)="^^1^1^2920203^^"
^DD(65.4,.03,21,1,0)="This is the name of the donor."
^DD(65.4,1.1,0)="ADDRESS LINE 1^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(65.4,1.1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.4,1.1,21,0)="^^1^1^2920203^^"
^DD(65.4,1.1,21,1,0)="This is the first line of the donor address."
^DD(65.4,1.2,0)="ADDRESS LINE 2^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(65.4,1.2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.4,1.2,21,0)="^^1^1^2911216^"
^DD(65.4,1.2,21,1,0)="This is the second line of the donor address."
^DD(65.4,1.3,0)="ADDRESS LINE 3^F^^1;3^K:$L(X)>30!($L(X)<1) X"
^DD(65.4,1.3,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.4,1.3,21,0)="^^1^1^2911216^"
^DD(65.4,1.3,21,1,0)="This is the third line of the donor address."
^DD(65.4,1.4,0)="CITY^F^^1;4^K:$L(X)>30!($L(X)<1) X"
^DD(65.4,1.4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.4,1.4,21,0)="^^1^1^2911216^"
^DD(65.4,1.4,21,1,0)="This is the city part of the donor address."
^DD(65.4,1.5,0)="STATE^P5'^DIC(5,^1;5^Q"
^DD(65.4,1.5,21,0)="^^1^1^2911216^"
^DD(65.4,1.5,21,1,0)="This is the state part of the donor address."
^DD(65.4,1.6,0)="ZIP CODE^F^^1;6^K:$L(X)>9!($L(X)<5) X"
^DD(65.4,1.6,3)="ANSWER MUST BE 5-9 CHARACTERS IN LENGTH"
^DD(65.4,1.6,21,0)="^^1^1^2911216^"
^DD(65.4,1.6,21,1,0)="This is the zip code part of the donor address."
^DD(65.4,1.7,0)="PHONE 1^F^^1;7^K:$L(X)>15!($L(X)<3) X"
^DD(65.4,1.7,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(65.4,1.7,21,0)="^^1^1^2911216^"
^DD(65.4,1.7,21,1,0)="This is the phone number of the donor."
^DD(65.4,1.8,0)="PHONE 2^F^^1;8^K:$L(X)>15!($L(X)<3) X"
^DD(65.4,1.8,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(65.4,1.8,21,0)="^^1^1^2911216^"
^DD(65.4,1.8,21,1,0)="This is the other phone number of the donor."
^DD(65.4,1.9,0)="GROUP LEADER^F^^1;9^K:$L(X)>30!($L(X)<3) X"
^DD(65.4,1.9,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(65.4,1.9,21,0)="^^2^2^2911216^"
^DD(65.4,1.9,21,1,0)="This is the person coordinating the collection site or"
^DD(65.4,1.9,21,2,0)="group affiliation."
^DD(65.4,2,0)="DONOR HISTORY^65.41A^^2;0"
^DD(65.4,2,21,0)="^^1^1^2920203^^^^"
^DD(65.4,2,21,1,0)="These are the comments on donor history."
^DD(65.4,3,0)="COMMENT^65.42^^3;0"
^DD(65.4,3,21,0)="^^1^1^2920203^^^"
^DD(65.4,3,21,1,0)="This is the comment on donor history."
^DD(65.4,"B","ADDRESS LINE 1",1.1)=""
^DD(65.4,"B","ADDRESS LINE 2",1.2)=""
^DD(65.4,"B","ADDRESS LINE 3",1.3)=""
^DD(65.4,"B","CITY",1.4)=""
^DD(65.4,"B","COMMENT",3)=""
^DD(65.4,"B","DONOR HISTORY",2)=""
^DD(65.4,"B","FULL NAME",.03)=""
^DD(65.4,"B","GROUP LEADER",1.9)=""
^DD(65.4,"B","NAME",.01)=""
^DD(65.4,"B","Name or code",.01)="1"
^DD(65.4,"B","PHONE 1",1.7)=""
^DD(65.4,"B","PHONE 2",1.8)=""
^DD(65.4,"B","SCREEN",.02)=""
^DD(65.4,"B","STATE",1.5)=""
^DD(65.4,"B","ZIP CODE",1.6)=""
^DD(65.4,"GL",0,1,.01)=""
^DD(65.4,"GL",0,2,.02)=""
^DD(65.4,"GL",0,3,.03)=""
^DD(65.4,"GL",1,1,1.1)=""
^DD(65.4,"GL",1,2,1.2)=""
^DD(65.4,"GL",1,3,1.3)=""
^DD(65.4,"GL",1,4,1.4)=""
^DD(65.4,"GL",1,5,1.5)=""
^DD(65.4,"GL",1,6,1.6)=""
^DD(65.4,"GL",1,7,1.7)=""
^DD(65.4,"GL",1,8,1.8)=""
^DD(65.4,"GL",1,9,1.9)=""
^DD(65.4,"GL",2,0,2)=""
^DD(65.4,"GL",3,0,3)=""
^DD(65.4,"IX",.01)=""
^DD(65.4,"IX",.03)=""
^DD(65.4,"RQ",.01)=""
^DD(65.4,"RQ",.03)=""
^DD(65.4,"SB",65.41,2)=""
^DD(65.4,"SB",65.42,3)=""
^DD(65.41,0)="DONOR HISTORY SUB-FIELD^NL^.01^2"
^DD(65.41,0,"DT")="2931230"
^DD(65.41,0,"NM","DONOR HISTORY")=""
^DD(65.41,0,"UP")="65.4"
^DD(65.41,.001,0)="PREFERENCE NUMBER^NJ6,2^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(65.41,.001,3)="TYPE A NUMBER BETWEEN 1 AND 999"
^DD(65.41,.001,21,0)="^^1^1^2911219^"
^DD(65.41,.001,21,1,0)="This is the entry number of the donor history."
^DD(65.41,.001,"DT")="2850403"
^DD(65.41,.01,0)="DONOR HISTORY^W^^0;1^Q"
^DD(65.41,.01,3)=""
^DD(65.41,.01,21,0)="^^1^1^2911219^"
^DD(65.41,.01,21,1,0)="This is the donor history."
^DD(65.41,.01,"DT")="2931230"
^DD(65.41,"B","DONOR HISTORY",.01)=""
^DD(65.41,"B","PREFERENCE NUMBER",.001)=""
^DD(65.41,"GL",0,1,.01)=""
^DD(65.42,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(65.42,0,"NM","COMMENT")=""
^DD(65.42,0,"UP")="65.4"
^DD(65.42,.01,0)="COMMENT^W^^0;1^Q"
^DD(65.42,.01,"DT")="2860221"
^DD(65.42,"B","COMMENT",.01)=""
^DD(65.42,"GL",0,1,.01)=""
^DD(65.5,0)="FIELD^^99^37"
^DD(65.5,0,"DDA")="N"
^DD(65.5,0,"DT")="2951209"
^DD(65.5,0,"ID",.02)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(65.5,0,"ID",.03)="W:$D(^(""0"")) ""   "",$E($P(^(""0""),U,3),4,5)_""-""_$E($P(^(""0""),U,3),6,7)_""-""_$E($P(^(""0""),U,3),2,3)"
^DD(65.5,0,"ID",1.4)="W:$D(^(""1"")) ""   "",$P(^(""1""),U,4)"
^DD(65.5,0,"IX","AA",65.5991,.01)=""
^DD(65.5,0,"IX","AC",65.54,10)=""
^DD(65.5,0,"IX","AD",65.54,.01)=""
^DD(65.5,0,"IX","AE",65.54,11)=""
^DD(65.5,0,"IX","AF",65.54,12)=""
^DD(65.5,0,"IX","AG",65.54,13)=""
^DD(65.5,0,"IX","AH",65.54,14)=""
^DD(65.5,0,"IX","AI",65.54,15)=""
^DD(65.5,0,"IX","AJ",65.54,16)=""
^DD(65.5,0,"IX","AK",65.54,17)=""
^DD(65.5,0,"IX","AL",65.54,18)=""
^DD(65.5,0,"IX","AM",65.54,19)=""
^DD(65.5,0,"IX","AN",65.54,20)=""
^DD(65.5,0,"IX","AT",65.54,4)=""
^DD(65.5,0,"IX","B",65.5,.01)=""
^DD(65.5,0,"IX","C",65.54,4)=""
^DD(65.5,0,"IX","D",65.54,4)=""
^DD(65.5,0,"IX","E",65.5,.03)=""
^DD(65.5,0,"IX","F",65.5,.01)=""
^DD(65.5,0,"IX","G",65.5,.13)=""
^DD(65.5,0,"IX","G4",65.5,.13)=""
^DD(65.5,0,"IX","G40",65.5,.01)=""
^DD(65.5,0,"NM","BLOOD DONOR")=""
^DD(65.5,0,"PT",64.1111,9)=""
^DD(65.5,0,"VR")="5.2"
^DD(65.5,.001,0)="IDENTIFICATION NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.5,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(65.5,.001,21,0)="^^2^2^2860506^^"
^DD(65.5,.001,21,1,0)="This is a unique number assigned to the blood donor.  An existing"
^DD(65.5,.001,21,2,0)=" number cannot be assigned to a new donor."
^DD(65.5,.001,"DT")="2851114"
^DD(65.5,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?1N.E)!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'["","") X I $D(X) S Y="", "" F I=0:0 Q:$F(X,Y)<1  S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)"
^DD(65.5,.01,1,0)="^.1"
^DD(65.5,.01,1,1,0)="65.5^B"
^DD(65.5,.01,1,1,1)="S ^LRE(""B"",$E(X,1,30),DA)="""""
^DD(65.5,.01,1,1,2)="K ^LRE(""B"",$E(X,1,30),DA)"
^DD(65.5,.01,1,2,0)="^^TRIGGER^65.5^.11"
^DD(65.5,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRE(D0,0)):^(0),1:"""") S X=$P(Y(1),U,11) S DIU=X K Y S X=DIV S X=DT X ^DD(65.5,.01,1,2,1.4)"
^DD(65.5,.01,1,2,1.4)="S DIH=$S($D(^LRE(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U"" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"""":U_%,1:""""),DIH=65.5,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(65.5,.01,1,2,2)="Q"
^DD(65.5,.01,1,2,"CREATE VALUE")="TODAY"
^DD(65.5,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(65.5,.01,1,2,"FIELD")="DATE REGISTERED"
^DD(65.5,.01,1,3,0)="65.5^F^MUMPS"
^DD(65.5,.01,1,3,1)="Q:'$P(^LRE(DA,0),U,3)  S ^LRE(""D"",$E(X,1)_$E($P(^(0),U,3),4,7),DA)="""""
^DD(65.5,.01,1,3,2)="Q:'$P(^LRE(DA,0),U,3)  K ^LRE(""D"",$E(X,1)_$E($P(^(0),U,3),4,7),DA)"
^DD(65.5,.01,1,3,"%D",0)="^^2^2^2970709^"
^DD(65.5,.01,1,3,"%D",1,0)="Cross-references the entries of the Blood Donor file (^LRE(DA,) by the"
^DD(65.5,.01,1,3,"%D",2,0)="first letter of the last name/month/date of the DOB."
^DD(65.5,.01,1,4,0)="65.5^G40^MUMPS"
^DD(65.5,.01,1,4,1)="Q:'$P(^LRE(DA,0),U,13)  S P=$S($P(^(0),U,13)[""P"":11,1:10) S ^LRE(""G4"",$E(^(0))_$E($P(^(0),U,13),6,P),DA)="""""
^DD(65.5,.01,1,4,2)="Q:'$P(^LRE(DA,0),U,13)  S P=$S($P(^(0),U,13)[""P"":11,1:10) K ^LRE(""G4"",$E(^(0))_$E($P(^(0),U,13),6,P),DA)"
^DD(65.5,.01,1,4,"%D",0)="^^2^2^2970709^"
^DD(65.5,.01,1,4,"%D",1,0)="Cross-references the entries in the Blood Donor file (^LRE(DA,) by the"
^DD(65.5,.01,1,4,"%D",2,0)="first letter of the last name/last 4 # of the SSN."
^DD(65.5,.01,3)="THE NAME MUST BE 3-30 CHARACTERS AND NOT START WITH PUNCTUATION OR A NUMBER"
^DD(65.5,.01,4)="D EN^DDIOL(""Enter Last name,First name"")"
^DD(65.5,.01,21,0)="^^1^1^2970709^^^^"
^DD(65.5,.01,21,1,0)="Name of blood donor"
^DD(65.5,.01,"DEL",1,0)="I '$D(^XUSEC(""LRBLSUPER"",DUZ))"
^DD(65.5,.01,"DT")="2881109"
^DD(65.5,.02,0)="SEX^S^M:MALE;F:FEMALE;^0;2^Q"
^DD(65.5,.02,21,0)="^^1^1^2920203^^^^"
^DD(65.5,.02,21,1,0)="This is the sex of the blood donor."
^DD(65.5,.03,0)="DOB^RDX^^0;3^S %DT=""EXP"",%DT(0)=""-T"" D ^%DT S X=Y K:Y<1 X"
^DD(65.5,.03,1,0)="^.1"
^DD(65.5,.03,1,1,0)="65.5^E^MUMPS"
^DD(65.5,.03,1,1,1)="S ^LRE(""D"",$E(^LRE(DA,0))_$E(X,4,7),DA)="""""
^DD(65.5,.03,1,1,2)="K ^LRE(""D"",$E(^LRE(DA,0))_$E(X,4,7),DA)"
^DD(65.5,.03,3)=""
^DD(65.5,.03,21,0)="^^2^2^2920203^^"
^DD(65.5,.03,21,1,0)="This is the age of the donor.  (Must be 17 years"
^DD(65.5,.03,21,2,0)="or older.)"
^DD(65.5,.03,"DT")="2980416"
^DD(65.5,.031,0)="AGE^CJ3,0^^ ; ^S Y(65.5,.031,1)=$S($D(^LRE(D0,0)):^(0),1:""""),X=DT S X=X,X1=X,X2=$P(Y(65.5,.031,1),U,3),X="""" D:X2 ^%DTC:X1 S X=X\365.25 S X=$J(X,0,0)"
^DD(65.5,.031,9)="^"
^DD(65.5,.031,9.01)="65.5^.03"
^DD(65.5,.031,9.1)="TODAY-DOB\365.25"
^DD(65.5,.031,21,0)="^^1^1^2920203^^"
^DD(65.5,.031,21,1,0)="This is the computed age of the donor."
^DD(65.5,.04,0)="APHERESIS CODE^S^1:YES;2:NO;1:yes;2:no;^0;4^Q"
^DD(65.5,.04,21,0)="^^2^2^2911216^^^^"
^DD(65.5,.04,21,1,0)="If donor is willing donate plasma, platelets, or leukocytes"
^DD(65.5,.04,21,2,0)=" enter 'YES'"
^DD(65.5,.04,"DT")="2870805"
^DD(65.5,.05,0)="ABO GROUP^SX^A:A;B:B;O:O;AB:AB;^0;5^Q"
^DD(65.5,.05,21,0)="^^1^1^2911216^^^"
^DD(65.5,.05,21,1,0)="The ABO group of the donor is entered here"
^DD(65.5,.05,"DT")="2850502"
^DD(65.5,.06,0)="RH TYPE^S^POS:POSITIVE;NEG:NEGATIVE;^0;6^Q"
^DD(65.5,.06,21,0)="^^1^1^2911216^^^"
^DD(65.5,.06,21,1,0)="The RH type of the donor is entered here"
^DD(65.5,.06,"DT")="2850324"
^DD(65.5,.07,0)="CUMULATIVE DONATIONS^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.5,.07,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999"
^DD(65.5,.07,21,0)="^^2^2^2911216^^"
^DD(65.5,.07,21,1,0)="Total number of donation credits based on values assigned"
^DD(65.5,.07,21,2,0)=" to each type of donation."
^DD(65.5,.07,"DT")="2870731"
^DD(65.5,.08,0)="TOTAL AWARDS^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.5,.08,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(65.5,.08,5,1,0)="65.5^.085^1"
^DD(65.5,.08,21,0)="^^2^2^2911216^^^"
^DD(65.5,.08,21,1,0)="Number of awards given based on 1 award for each gallon"
^DD(65.5,.08,21,2,0)=" or equivalent (8 donation credits) donated"
^DD(65.5,.08,"DT")="2850712"
^DD(65.5,.085,0)="GIVE NEW AWARD^S^1:YES;^3;1^Q"
^DD(65.5,.085,1,0)="^.1"
^DD(65.5,.085,1,1,0)="^^TRIGGER^65.5^.08"
^DD(65.5,.085,1,1,1)="Q"
^DD(65.5,.085,1,1,1.4)="S DIH=$S($D(^LRE(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U"" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"""":U_%,1:""""),DIH=65.5,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(65.5,.085,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRE(D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DIU+1 X ^DD(65.5,.085,1,1,2.4)"
^DD(65.5,.085,1,1,2.4)="S DIH=$S($D(^LRE(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U"" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"""":U_%,1:""""),DIH=65.5,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(65.5,.085,1,1,"CREATE VALUE")="NO EFFECT"
^DD(65.5,.085,1,1,"DELETE VALUE")="TOTAL AWARDS+1"
^DD(65.5,.085,1,1,"FIELD")="TOTAL AWARDS"
^DD(65.5,.085,21,0)="^^1^1^2911216^^"
^DD(65.5,.085,21,1,0)="To acknowledge giving award delete entry by entering '@'"
^DD(65.5,.085,"DT")="2870723"
^DD(65.5,.09,0)="DEMOG ENT/EDIT BY^P200'^VA(200,^0;9^Q"
^DD(65.5,.09,3)=""
^DD(65.5,.09,4)=""
^DD(65.5,.09,21,0)="^^1^1^2911216^^"
^DD(65.5,.09,21,1,0)="Person entering or editing donor demographic data"
^DD(65.5,.09,"DT")="2910630"
^DD(65.5,.1,0)="PERMANENT DEFERRAL^S^1:YES;0:NO;^0;10^Q"
^DD(65.5,.1,3)="If the donor is to be permanently excluded from donation enter 'YES'"
^DD(65.5,.1,21,0)="^^2^2^2911216^^"
^DD(65.5,.1,21,1,0)="Donor should be permanently deferred as a homologous blood"
^DD(65.5,.1,21,2,0)=" donor based on donor history or test results."
^DD(65.5,.1,"DT")="2850707"
^DD(65.5,.11,0)="DATE REGISTERED/EDITED^D^^0;11^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(65.5,.11,.1)="DATE DONOR IS ENTERED/EDITED IN THE FILE"
^DD(65.5,.11,5,1,0)="65.5^.01^2"
^DD(65.5,.11,21,0)="^^2^2^2920203^^"
^DD(65.5,.11,21,1,0)="This is the date the donor was registered into"
^DD(65.5,.11,21,2,0)="this file."
^DD(65.5,.11,"DT")="2860117"
^DD(65.5,.12,0)="DEFERRAL ENTER/EDIT BY^P200'^VA(200,^0;12^Q"
^DD(65.5,.12,3)=""
^DD(65.5,.12,21,0)="^^1^1^2870504^^^^"
^DD(65.5,.12,21,1,0)="Person entering or editing permanent deferral of donor."
^DD(65.5,.12,"DT")="2910630"
^DD(65.5,.13,0)="SSN^RFXO^^0;13^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9) X D:$D(X) ^LRBLSSN"
^DD(65.5,.13,1,0)="^.1"
^DD(65.5,.13,1,1,0)="65.5^G"
^DD(65.5,.13,1,1,1)="S ^LRE(""G"",$E(X,1,30),DA)="""""
^DD(65.5,.13,1,1,2)="K ^LRE(""G"",$E(X,1,30),DA)"
^DD(65.5,.13,1,2,0)="65.5^G4^MUMPS"
^DD(65.5,.13,1,2,1)="S P=$S(X[""P"":11,1:10) S ^LRE(""G4"",$E(^LRE(DA,0))_$E(X,6,P),DA)="""""
^DD(65.5,.13,1,2,2)="S P=$S(X[""P"":11,1:10) K ^LRE(""G4"",$E(^LRE(DA,0))_$E(X,6,P),DA)"
^DD(65.5,.13,2)="S Y(0)=Y S Y=$S(Y[""P"":$E(Y,10)_""-""_$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9),1:$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9))"
^DD(65.5,.13,2.1)="S Y=$S(Y[""P"":$E(Y,10)_""-""_$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9),1:$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9))"
^DD(65.5,.13,3)="ANSWER MUST BE 9-10 CHARACTERS IN LENGTH"
^DD(65.5,.13,21,0)="^^1^1^2930325^"
^DD(65.5,.13,21,1,0)=" This field contains the social security number of the donor."
^DD(65.5,.13,"DT")="2930401"
^DD(65.5,.14,0)="MILITARY RANK^F^^0;14^K:$L(X)>20!($L(X)<2) X"
^DD(65.5,.14,3)="Answer must be 2-20 characters in length."
^DD(65.5,.14,21,0)="^^2^2^2930325^"
^DD(65.5,.14,21,1,0)="  If this collection is being performed by a DOD site, the rank of the"
^DD(65.5,.14,21,2,0)="donor is entered in this field."
^DD(65.5,.14,23,0)="^^4^4^2910219^"
^DD(65.5,.14,23,1,0)=" For DoD sites using this the DHCP Laboratory package, this field"
^DD(65.5,.14,23,2,0)="must be pointed to file 9003 (MILITARY RANK). This file is not"
^DD(65.5,.14,23,3,0)="exported by DHCP, therefore this field is defined as Free Text for"
^DD(65.5,.14,23,4,0)="techincal verification purposes."
^DD(65.5,.14,"DT")="2910219"
^DD(65.5,.16,0)="PERMANENT DEFERRAL DATE CHANGE^D^^0;16^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(65.5,.16,21,0)="^^1^1^2930325^"
^DD(65.5,.16,21,1,0)=" If the deferral date is adjusted, the date is entered in this field."
^DD(65.5,.16,"DT")="2881017"
^DD(65.5,1.1,0)="ADDRESS LINE 1^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(65.5,1.1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.5,1.1,21,0)="^^1^1^2911216^^"
^DD(65.5,1.1,21,1,0)="First line of donor address"
^DD(65.5,1.2,0)="ADDRESS LINE 2^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(65.5,1.2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.5,1.2,21,0)="^^1^1^2911216^^"
^DD(65.5,1.2,21,1,0)="Second line of donor address (if necessary)"
^DD(65.5,1.3,0)="ADDRESS LINE 3^F^^1;3^K:$L(X)>30!($L(X)<1) X"
^DD(65.5,1.3,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.5,1.3,21,0)="^^1^1^2911216^^"
^DD(65.5,1.3,21,1,0)="Third line of donor address (if necessary)"
^DD(65.5,1.4,0)="CITY^F^^1;4^K:$L(X)>30!($L(X)<1) X"
^DD(65.5,1.4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.5,1.4,21,0)="^^1^1^2911216^^"
^DD(65.5,1.4,21,1,0)="City of donor"
^DD(65.5,1.5,0)="STATE^P5'^DIC(5,^1;5^Q"
^DD(65.5,1.5,21,0)="^^1^1^2911216^^"
^DD(65.5,1.5,21,1,0)="State of donor residence.."
^DD(65.5,1.6,0)="ZIP CODE^F^^1;6^K:$L(X)>9!($L(X)<5) X"
^DD(65.5,1.6,3)="ANSWER MUST BE 5-9 CHARACTERS IN LENGTH"
^DD(65.5,1.6,21,0)="^^1^1^2911216^^"
^DD(65.5,1.6,21,1,0)="Zip code of donor"
^DD(65.5,1.7,0)="HOME PHONE^F^^1;7^K:$L(X)>15!($L(X)<3) X"
^DD(65.5,1.7,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(65.5,1.7,21,0)="^^1^1^2911216^^"
^DD(65.5,1.7,21,1,0)="Home phone of donor"
^DD(65.5,1.8,0)="WORK PHONE^F^^1;8^K:$L(X)>15!($L(X)<3) X"
^DD(65.5,1.8,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(65.5,1.8,21,0)="^^2^2^2911216^^"
^DD(65.5,1.8,21,1,0)="Phone where donor works so that the donor may be reached"
^DD(65.5,1.8,21,2,0)=" during working hours if necessary"
^DD(65.5,2,0)="GROUP AFFILIATION^65.51PA^^2;0"
^DD(65.5,2,12)="SELECTS ONLY GROUP AFFILIATIONS FROM DESCRIPTION LIST"
^DD(65.5,2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""G"""""""
^DD(65.5,2,21,0)="^^2^2^2940714^^^^"
^DD(65.5,2,21,1,0)="These are groups with which the donor may"
^DD(65.5,2,21,2,0)="be associated."
^DD(65.5,4,0)="DONOR SCHEDULING/RECALL^65.53SA^^4;0"
^DD(65.5,4,21,0)="^^2^2^2920113^^"
^DD(65.5,4,21,1,0)="These are donors placed on a specific recall list"
^DD(65.5,4,21,2,0)="for recruitment purposes."
^DD(65.5,5,0)="DONATION OR DEFERRAL DATE^65.54DA^^5;0"
^DD(65.5,5,21,0)="^^1^1^2951226^^^^"
^DD(65.5,5,21,1,0)="These are the dates of donation or referral."
^DD(65.5,6.1,0)="RBC ANTIGEN PRESENT^65.56PA^^1.1;0"
^DD(65.5,6.1,12)="Selects antigens"
^DD(65.5,6.1,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65.5,6.1,21,0)="^^4^4^2870805^^"
^DD(65.5,6.1,21,1,0)="Antigens identified as present on the red blood cells"
^DD(65.5,6.1,21,2,0)=" of the donor.  SNOMED codes can be entered as well as"
^DD(65.5,6.1,21,3,0)=" the name of the antigen.  Synonyms can also be used"
^DD(65.5,6.1,21,4,0)=" if they are in the function field file (#61.3)"
^DD(65.5,6.2,0)="RBC ANTIGEN ABSENT^65.57PA^^1.2;0"
^DD(65.5,6.2,12)="Selects only antigens"
^DD(65.5,6.2,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65.5,6.2,21,0)="^^1^1^2940510^"
^DD(65.5,6.2,21,1,0)="Multiple for RBC Antigen absent"
^DD(65.5,6.3,0)="HLA ANTIGEN PRESENT^65.58PA^^1.3;0"
^DD(65.5,6.3,12)="Selects HLA antigens"
^DD(65.5,6.3,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65.5,6.3,21,0)="^^1^1^2940510^"
^DD(65.5,6.3,21,1,0)="Multiple for HLA antigen present"
^DD(65.5,6.4,0)="HLA ANTIGEN ABSENT^65.59PA^^1.4;0"
^DD(65.5,6.4,12)="Selects only HLA antigens"
^DD(65.5,6.4,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65.5,6.4,21,0)="^^1^1^2940510^"
^DD(65.5,6.4,21,1,0)="Multiple for HLA antigen absent"
^DD(65.5,6.5,0)="CMV ANTIBODY^S^0:NEG;1:POS;^0;15^Q"
^DD(65.5,6.5,21,0)="^^1^1^2930331^"
^DD(65.5,6.5,21,1,0)="A negative or positive result for the Cytomegalovirus antibody"
^DD(65.5,6.5,"DT")="2880319"
^DD(65.5,9,0)="BLOOD DONOR COMMENTS^65.52^^9;0"
^DD(65.5,9,21,0)="^^1^1^2930327^"
^DD(65.5,9,21,1,0)=" This field contains comments about the donor not found elsewhere."
^DD(65.5,63,0)="LABORATORY REFERENCE^P63'X^LR(^LR;1^K X"
^DD(65.5,63,.1)="INTERNAL FILE NUMBER IN FILE 63 (LAB RESULTS)"
^DD(65.5,63,3)="NOT EDITABLE"
^DD(65.5,63,21,0)="^^1^1^2850604^"
^DD(65.5,63,21,1,0)="This field is a pointer to the lab data stored in the lab data file (#63)"
^DD(65.5,63,"DEL",1,0)="I 1"
^DD(65.5,63,"DT")="2850406"
^DD(65.5,99,0)="PERMANENT DEFERRAL REASON^65.99^^99;0"
^DD(65.5,99,21,0)="^^1^1^2870805^^"
^DD(65.5,99,21,1,0)="Reason(s) why donor is permanently deferred"
^DD(65.5,"B","ABO GROUP",.05)=""
^DD(65.5,"B","ADDRESS LINE 1",1.1)=""
^DD(65.5,"B","ADDRESS LINE 2",1.2)=""
^DD(65.5,"B","ADDRESS LINE 3",1.3)=""
^DD(65.5,"B","AGE",.031)=""
^DD(65.5,"B","APHERESIS CODE",.04)=""
^DD(65.5,"B","BLOOD DONOR COMMENTS",9)=""
^DD(65.5,"B","CITY",1.4)=""
^DD(65.5,"B","CMV ANTIBODY",6.5)=""
^DD(65.5,"B","CUMULATIVE DONATIONS",.07)=""
^DD(65.5,"B","DATE REGISTERED/EDITED",.11)=""
^DD(65.5,"B","DEFERRAL ENTER/EDIT BY",.12)=""
^DD(65.5,"B","DEMOG ENT/EDIT BY",.09)=""
^DD(65.5,"B","DOB",.03)=""
^DD(65.5,"B","DONATION OR DEFERRAL DATE",5)=""
^DD(65.5,"B","DONOR SCHEDULING/RECALL",4)=""
^DD(65.5,"B","GIVE NEW AWARD",.085)=""
^DD(65.5,"B","GROUP AFFILIATION",2)=""
^DD(65.5,"B","HLA ANTIGEN ABSENT",6.4)=""
^DD(65.5,"B","HLA ANTIGEN PRESENT",6.3)=""
^DD(65.5,"B","HOME PHONE",1.7)=""
^DD(65.5,"B","IDENTIFICATION NUMBER",.001)=""
^DD(65.5,"B","LABORATORY REFERENCE",63)=""
^DD(65.5,"B","MILITARY RANK",.14)=""
^DD(65.5,"B","NAME",.01)=""
^DD(65.5,"B","PERMANENT DEFERRAL",.1)=""
^DD(65.5,"B","PERMANENT DEFERRAL DATE CHANGE",.16)=""
^DD(65.5,"B","PERMANENT DEFERRAL REASON",99)=""
^DD(65.5,"B","RBC ANTIGEN ABSENT",6.2)=""
^DD(65.5,"B","RBC ANTIGEN PRESENT",6.1)=""
^DD(65.5,"B","RH TYPE",.06)=""
^DD(65.5,"B","SEX",.02)=""
^DD(65.5,"B","SSN",.13)=""
^DD(65.5,"B","STATE",1.5)=""
^DD(65.5,"B","TOTAL AWARDS",.08)=""
^DD(65.5,"B","WORK PHONE",1.8)=""
^DD(65.5,"B","ZIP CODE",1.6)=""
^DD(65.5,"GL",0,1,.01)=""
^DD(65.5,"GL",0,2,.02)=""
^DD(65.5,"GL",0,3,.03)=""
^DD(65.5,"GL",0,4,.04)=""
^DD(65.5,"GL",0,5,.05)=""
^DD(65.5,"GL",0,6,.06)=""
^DD(65.5,"GL",0,7,.07)=""
^DD(65.5,"GL",0,8,.08)=""
^DD(65.5,"GL",0,9,.09)=""
^DD(65.5,"GL",0,10,.1)=""
^DD(65.5,"GL",0,11,.11)=""
^DD(65.5,"GL",0,12,.12)=""
^DD(65.5,"GL",0,13,.13)=""
^DD(65.5,"GL",0,14,.14)=""
^DD(65.5,"GL",0,15,6.5)=""
^DD(65.5,"GL",0,16,.16)=""
^DD(65.5,"GL",1,1,1.1)=""
^DD(65.5,"GL",1,2,1.2)=""
^DD(65.5,"GL",1,3,1.3)=""
^DD(65.5,"GL",1,4,1.4)=""
^DD(65.5,"GL",1,5,1.5)=""
^DD(65.5,"GL",1,6,1.6)=""
^DD(65.5,"GL",1,7,1.7)=""
^DD(65.5,"GL",1,8,1.8)=""
^DD(65.5,"GL",1.1,0,6.1)=""
^DD(65.5,"GL",1.2,0,6.2)=""
^DD(65.5,"GL",1.3,0,6.3)=""
^DD(65.5,"GL",1.4,0,6.4)=""
^DD(65.5,"GL",2,0,2)=""
^DD(65.5,"GL",3,1,.085)=""
^DD(65.5,"GL",4,0,4)=""
^DD(65.5,"GL",5,0,5)=""
^DD(65.5,"GL",9,0,9)=""
^DD(65.5,"GL",99,0,99)=""
^DD(65.5,"GL","LR",1,63)=""
^DD(65.5,"IX",.01)=""
^DD(65.5,"IX",.03)=""
^DD(65.5,"IX",.085)=""
^DD(65.5,"IX",.13)=""
^DD(65.5,"RQ",.01)=""
^DD(65.5,"RQ",.03)=""
^DD(65.5,"RQ",.13)=""
^DD(65.5,"SB",65.51,2)=""
^DD(65.5,"SB",65.52,9)=""
^DD(65.5,"SB",65.53,4)=""
^DD(65.5,"SB",65.54,5)=""
^DD(65.5,"SB",65.56,6.1)=""
^DD(65.5,"SB",65.57,6.2)=""
^DD(65.5,"SB",65.58,6.3)=""
^DD(65.5,"SB",65.59,6.4)=""
^DD(65.5,"SB",65.99,99)=""
^DD(65.51,0)="GROUP AFFILIATION SUB-FIELD^NL^.02^2"
^DD(65.51,0,"NM","GROUP AFFILIATION")=""
^DD(65.51,0,"UP")="65.5"
^DD(65.51,.01,0)="GROUP AFFILIATION^M*P65.4'X^LAB(65.4,^0;1^S DIC(""S"")=""I $P(^(0),U,2)[""""G"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.51,.01,12)="SELECTS GROUPS DONOR IS AFFILIATED WITH"
^DD(65.51,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""G"""""""
^DD(65.51,.01,21,0)="^^1^1^2870805^"
^DD(65.51,.01,21,1,0)="Any group with which a donor might wish to be affiliated"
^DD(65.51,.01,"DT")="2860123"
^DD(65.51,.02,0)="FULL NAME^CJ30^^ ; ^X ^DD(65.51,.02,9.2) S D0=$P(Y(65.51,.02,1),U,1) S:'$D(^LAB(65.4,+D0,0)) D0=-1 S Y(65.51,.02,101)=$S($D(^LAB(65.4,D0,0)):^(0),1:"""") S X=$P(Y(65.51,.02,101),U,3) S D0=Y(65.51,.02,80) S D1=Y(65.51,.02,81)"
^DD(65.51,.02,9)="^"
^DD(65.51,.02,9.01)="65.4^.03;65.51^.01"
^DD(65.51,.02,9.1)=".01:FULL NAME"
^DD(65.51,.02,9.2)="S Y(65.51,.02,81)=$S($D(D1):D1,1:""""),Y(65.51,.02,80)=$S($D(D0):D0,1:""""),Y(65.51,.02,1)=$S($D(^LRE(D0,2,D1,0)):^(0),1:"""")"
^DD(65.51,.02,21,0)="^^1^1^2920107^^"
^DD(65.51,.02,21,1,0)="This is the full name of the donor."
^DD(65.51,"B","FULL NAME",.02)=""
^DD(65.51,"B","GROUP AFFILIATION",.01)=""
^DD(65.51,"GL",0,1,.01)=""
^DD(65.52,0)="BLOOD DONOR COMMENTS SUB-FIELD^^.01^1"
^DD(65.52,0,"NM","BLOOD DONOR COMMENTS")=""
^DD(65.52,0,"UP")="65.5"
^DD(65.52,.01,0)="BLOOD DONOR COMMENTS^W^^0;1^Q"
^DD(65.52,.01,.1)="Is this field necessary ? See Donor Scheduling/Recall"
^DD(65.52,.01,21,0)="^^3^3^2930327^^^"
^DD(65.52,.01,21,1,0)="Specialized instructions/information for the donor which"
^DD(65.52,.01,21,2,0)=" need to be brought to the attention of the person"
^DD(65.52,.01,21,3,0)=" performing the donor's medical history interview."
^DD(65.52,.01,"DT")="2870107"
^DD(65.52,"B","BLOOD DONOR COMMENTS",.01)=""
^DD(65.52,"GL",0,1,.01)=""
^DD(65.53,0)="DONOR SCHEDULING/RECALL SUB-FIELD^NL^.01^1"
^DD(65.53,0,"NM","DONOR SCHEDULING/RECALL")=""
^DD(65.53,0,"UP")="65.5"
^DD(65.53,.01,0)="DONOR SCHEDULING/RECALL^MS^1:JAN;2:FEB;3:MAR;4:APR;5:MAY;6:JUN;7:JUL;8:AUG;9:SEP;10:OCT;11:NOV;12:DEC;13:7/4;14:LABOR DAY;15:XMAS;16:EMERGENCY;^0;1^Q"
^DD(65.53,.01,21,0)="^^2^2^2911219^^"
^DD(65.53,.01,21,1,0)="Specific recall list on which the donor will be placed"
^DD(65.53,.01,21,2,0)=" for recruitment purposes"
^DD(65.53,"B","DONOR SCHEDULING/RECALL",.01)=""
^DD(65.53,"GL",0,1,.01)=""
^DD(65.54,0)="DONATION OR DEFERRAL DATE SUB-FIELD^NL^500^99"
^DD(65.54,0,"DT")="2951209"
^DD(65.54,0,"NM","DONATION OR DEFERRAL DATE")=""
^DD(65.54,0,"UP")="65.5"
^DD(65.54,.01,0)="DONATION OR DEFERRAL DATE^RDX^^0;1^S %DT=""EX"",%DT(0)=""-T"" D ^%DT K %DT(0) S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(65.54,.01,1,0)="^.1"
^DD(65.54,.01,1,1,0)="65.5^AD^MUMPS"
^DD(65.54,.01,1,1,1)="S ^LRE(""AD"",$P(X,""."",1),DA(1))="""""
^DD(65.54,.01,1,1,2)="K ^LRE(""AD"",$P(X,""."",1),DA(1))"
^DD(65.54,.01,21,0)="^^2^2^2920107^^^^"
^DD(65.54,.01,21,1,0)="Date when a person appears for donation.  If no donation then"
^DD(65.54,.01,21,2,0)=" this date is the deferral date otherwise it is the donation date."
^DD(65.54,.01,"DT")="2880317"
^DD(65.54,.011,0)="DONATION ENTERED/EDIT BY^P200'^VA(200,^0;8^Q"
^DD(65.54,.011,3)=""
^DD(65.54,.011,21,0)="^^1^1^2920107^^^"
^DD(65.54,.011,21,1,0)="Person entering or editing donation information"
^DD(65.54,.011,"DT")="2910630"
^DD(65.54,.02,0)="COLLECTION SITE^R*P65.4'^LAB(65.4,^0;6^S DIC(""S"")=""I $P(^(0),U,2)[""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65.54,.02,12)="SELECTS ONLY COLLECTION SITES FROM DESCRIPTION LIST"
^DD(65.54,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""C"""""""
^DD(65.54,.02,21,0)="^^1^1^2920107^^^"
^DD(65.54,.02,21,1,0)="Site at which a donation attempt is made."
^DD(65.54,.02,"DT")="2850430"
^DD(65.54,.03,0)="DONATION GROUP^*P65.4'^LAB(65.4,^0;7^S DIC(""S"")=""I $P(^(0),U,2)[""""G"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65.54,.03,12)="SELECTS ONLY GROUP AFFILIATION FROM BLOOD BANK DESCRIPTIONS LIST"
^DD(65.54,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""G"""""""
^DD(65.54,.03,21,0)="^^1^1^2920107^^^"
^DD(65.54,.03,21,1,0)="Group affiliation for which a donation attempt is made"
^DD(65.54,.03,"DT")="2850430"
^DD(65.54,.13,0)="ARRIVAL/APPT TIME^DX^^0;13^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(65.54,.13,3)="Future date/time not allowed"
^DD(65.54,.13,21,0)="^^1^1^2911219^^^"
^DD(65.54,.13,21,1,0)="This is the date/time the donor arrives for an appointment to donate."
^DD(65.54,.13,"DT")="2870119"
^DD(65.54,.14,0)="ENTRY VIA OLD RECORDS^S^1:YES;0:NO;^0;14^Q"
^DD(65.54,.14,21,0)="^^2^2^2880425^"
^DD(65.54,.14,21,1,0)="If data entry for donation/deferral date subfield is by way of the"
^DD(65.54,.14,21,2,0)=" enter old records option a 'YES' is entered in this field."
^DD(65.54,.14,"DT")="2880425"
^DD(65.54,1,0)="DONATION/DEFERRAL CODE^SX^W:WHOLE BLOOD;P:PLASMAPHERESIS;C:CYTAPHERESIS;N:NO DONATION;^0;2^Q"
^DD(65.54,1,1,0)="^.1^^0"
^DD(65.54,1,21,0)="^^2^2^2911219^^^"
^DD(65.54,1,21,1,0)="This is the result of donation attempt."
^DD(65.54,1,21,2,0)=" If donation successful, the type of donation is entered."
^DD(65.54,1,"DT")="2850712"
^DD(65.54,1.1,0)="DONATION TYPE^SX^H:HOMOLOGOUS;A:AUTOLOGOUS;T:THERAPEUTIC;D:DIRECTED;^0;11^I $P(^LRE(DA(1),0),U,10),""AT""'[X W !,""Permanent deferral, only autologous or therapeutic donation allowed."" K X"
^DD(65.54,1.1,21,0)="^^1^1^2911219^"
^DD(65.54,1.1,21,1,0)="This is the donation type."
^DD(65.54,1.1,"DT")="2890505"
^DD(65.54,1.2,0)="RESTRICTED FOR^FXO^^0;12^D ^LRUG I $D(X) W !,""Is this the patient "" S %=2 D YN^LRU K:%'=1 X"
^DD(65.54,1.2,2)="S Y(0)=Y S:Y X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$P(Y,U,1)_"" ""_$P(Y,U,9)"
^DD(65.54,1.2,2.1)="S:Y X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,""GL""),Y=@(X_Y_"",0)""),Y=$P(Y,U,1)_"" ""_$P(Y,U,9)"
^DD(65.54,1.2,3)="If autologous donation donor must be the same as the patient"
^DD(65.54,1.2,4)="S X=""?"" D ^LRUG"
^DD(65.54,1.2,21,0)="^^2^2^2911219^^^"
^DD(65.54,1.2,21,1,0)="If autologous donor must also be the patient selected."
^DD(65.54,1.2,21,2,0)=" If directed donation can be any patient selected."
^DD(65.54,1.2,"DT")="2880714"
^DD(65.54,2,0)="DEFERRAL REASON^65.55PA^^1;0"
^DD(65.54,2,12)="SELECTS ONLY REASONS FOR DEFERRAL OF DONATION FROM DESCRIPTION LIST"
^DD(65.54,2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""""
^DD(65.54,2,21,0)="^^1^1^2911219^"
^DD(65.54,2,21,1,0)="These are the reasons for which the donor is deferred."
^DD(65.54,3,0)="DONOR REACTION CODE^*P65.4'^LAB(65.4,^0;3^S DIC(""S"")=""I $P(^(0),U,2)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65.54,3,12)="SELECTS ONLY DONOR REACTIONS TO BLOOD COLLECTION"""
^DD(65.54,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""R"""""""
^DD(65.54,3,21,0)="^^2^2^2911219^^^^"
^DD(65.54,3,21,1,0)="Any adverse reaction which the donor might have suffered"
^DD(65.54,3,21,2,0)=" during or immediately following the blood donation."
^DD(65.54,3,"DT")="2850430"
^DD(65.54,4,0)="UNIT ID^RFX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) S X(1)=DA D ^LRBLU"
^DD(65.54,4,.1)="UNIQUE ID ASSIGNED TO PRIMARY UNIT"
^DD(65.54,4,1,0)="^.1"
^DD(65.54,4,1,1,0)="65.5^C"
^DD(65.54,4,1,1,1)="S ^LRE(""C"",$E(X,1,30),DA(1),DA)="""""
^DD(65.54,4,1,1,2)="K ^LRE(""C"",$E(X,1,30),DA(1),DA)"
^DD(65.54,4,1,2,0)="65.5^AT^MUMPS"
^DD(65.54,4,1,2,1)="F Z=9.99:0 S Z=$O(^DD(65.54,Z)) Q:Z>65.99!('Z)  I Z#1=0,'$D(^LRE(DA(1),5,DA,Z)) S ^LRE(""AT"",X,Z,DA(1),DA)="""""
^DD(65.54,4,1,2,2)="K ^LRE(""AT"",X)"
^DD(65.54,4,1,3,0)="65.5^D^MUMPS"
^DD(65.54,4,1,3,1)="S X(1)=$P(^LAB(69.9,1,0),U,18)+1 I X(1)>1,$L(X)>4 S ^LRE(""C"",$E(X,X(1),$L(X)),DA(1),DA)="""""
^DD(65.54,4,1,3,2)="S X=$P(^LRE(DA(1),5,DA,0),""^"",4),X(1)=$P(^LAB(69.9,1,0),U,18)+1 K:X(1)>1 ^LRE(""C"",$E(X,X(1),$L(X)),DA(1),DA)"
^DD(65.54,4,3)="Enter ID that component(s) prepared from donation will be labeled."
^DD(65.54,4,4)="W !?20,""Not less than 6 or more than 11 characters"""
^DD(65.54,4,21,0)="^^3^3^2911219^^^^"
^DD(65.54,4,21,1,0)="This determines that the donor ID assigned to another"
^DD(65.54,4,21,2,0)="donation within the past 5 years will not"
^DD(65.54,4,21,3,0)="be allowed."
^DD(65.54,4,"DT")="2881222"
^DD(65.54,4.1,0)="PRIMARY BAG^RS^1:SINGLE;2:DOUBLE;3:TRIPLE;4:QUADRUPLE;5:QUINTUPLE;^2;1^Q"
^DD(65.54,4.1,3)=""
^DD(65.54,4.1,21,0)="^^1^1^2911219^^"
^DD(65.54,4.1,21,1,0)="This is the type of bag used for the collection of the donor blood."
^DD(65.54,4.1,"DT")="2890809"
^DD(65.54,4.11,0)="ANTICOAGULANT/ADDITIVE^RS^1:CPD;2:ACD;3:CPDA-1;4:ADSOL;^2;9^Q"
^DD(65.54,4.11,3)=""
^DD(65.54,4.11,21,0)="^^1^1^2960520^^^^"
^DD(65.54,4.11,21,1,0)="This is the type of anticoagulant in the collection bag."
^DD(65.54,4.11,"DT")="2960520"
^DD(65.54,4.15,0)="BAG LOT #^F^^2;10^K:$L(X)>15!($L(X)<1) X"
^DD(65.54,4.15,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(65.54,4.15,21,0)="^^1^1^2911219^^"
^DD(65.54,4.15,21,1,0)="This is the lot number of the collection bag."
^DD(65.54,4.15,"DT")="2850625"
^DD(65.54,4.2,0)="DATE/TIME COLLECTION STARTED^RDX^^2;2^S %DT=""EPXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(65.54,4.2,3)="Date AND time must be entered !!  Future dates NOT allowed"
^DD(65.54,4.2,4)="K DZ W ?5,""Enter date then """"@"""" then time"""
^DD(65.54,4.2,21,0)="^^1^1^2911219^^"
^DD(65.54,4.2,21,1,0)="This is the date and time the donation was started."
^DD(65.54,4.2,"DT")="2991103"
^DD(65.54,4.3,0)="DATE/TIME COLLECTION COMPLETED^RDX^^2;3^S %DT=""EPXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X S:$D(X) LR(65.54)=X"
^DD(65.54,4.3,3)="Date AND Time must be entered!!  Future dates NOT allowed"
^DD(65.54,4.3,4)="K DZ W !,""Be sure collection completed time later than  collection started time."",!,""Also TIME must be entered as well as DATE !"",!"
^DD(65.54,4.3,21,0)="^^1^1^2911219^^"
^DD(65.54,4.3,21,1,0)="This is the date and time the donation was completed."
^DD(65.54,4.3,"DT")="2991103"
^DD(65.54,4.4,0)="DATE/TIME PROCESSED^RDX^^2;4^S %DT=""ETXR"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),$D(LR(65.54)),X<LR(65.54) W $C(7),!,""Date/time processed must be after date/time collection completed."" K X"
^DD(65.54,4.4,.1)="DATE AND TIME COLLECTION WAS PROCESSED"
^DD(65.54,4.4,3)=""
^DD(65.54,4.4,4)="K DZ W !,""DATE and TIME must be entered."",!,""Time processed must be later than time collection completed"",!,""Future date/time not allowed."""
^DD(65.54,4.4,21,0)="^^1^1^2960610^^^"
^DD(65.54,4.4,21,1,0)="Date/time at which the component preparation started."
^DD(65.54,4.4,"DT")="2960702"
^DD(65.54,4.5,0)="COLLECTED PRIMARY UNIT WT (gm)^NJ6,1X^^2;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(65.54,4.5,.1)="WEIGHT IN GRAMS OF COLLECTION INCLUDING CONTAINER"
^DD(65.54,4.5,3)="TYPE A NUMBER BETWEEN 1 AND 9999"
^DD(65.54,4.5,21,0)="^^1^1^2951226^^^"
^DD(65.54,4.5,21,1,0)="This is the gross weight of the unit collected."
^DD(65.54,4.5,"DT")="2951226"
^DD(65.54,4.6,0)="EMPTY PRIMARY UNIT WT (gm)^NJ6,1^^2;6^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""2N.N) X"
^DD(65.54,4.6,.1)="WEIGHT IN GRAMS OF COLLECTION CONTAINER"
^DD(65.54,4.6,3)="TYPE A NUMBER BETWEEN 1 AND 1000"
^DD(65.54,4.6,21,0)="^^1^1^2911219^^"
^DD(65.54,4.6,21,1,0)="Weight of the empty donor bag (primary bag only)."
^DD(65.54,4.6,"DT")="2850405"
^DD(65.54,4.7,0)="COLLECTION VOL (ml)^NJ4,0X^^2;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.54,4.7,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(65.54,4.7,21,0)="^^3^3^2951226^^^^"
^DD(65.54,4.7,21,1,0)="Volume of blood collected (ml)"
^DD(65.54,4.7,21,2,0)=" ( Volume = collected primary unit wt (gm) minus"
^DD(65.54,4.7,21,3,0)="            empty primary unit wt (gm) divided by 1.06 )"
^DD(65.54,4.7,"DT")="2951017"
^DD(65.54,4.8,0)="PROCESSING TECH^P200'^VA(200,^2;8^Q"
^DD(65.54,4.8,3)=""
^DD(65.54,4.8,21,0)="^^1^1^2911219^^"
^DD(65.54,4.8,21,1,0)="Person performing the component preparation."
^DD(65.54,4.8,"DT")="2910630"
^DD(65.54,5,0)="PATIENT CREDIT^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(65.54,5,3)="Enter patient for donation credit"
^DD(65.54,5,21,0)="^^2^2^2911219^^"
^DD(65.54,5,21,1,0)="Patient for whom a unit of blood was donated, i.e. to"
^DD(65.54,5,21,2,0)=" whom should the ""replacement"" be credited."
^DD(65.54,6,0)="PHLEBOTOMIST^F^^0;9^K:$L(X)>30!($L(X)<2) X"
^DD(65.54,6,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.54,6,21,0)="^^1^1^2911219^^"
^DD(65.54,6,21,1,0)="Name of person performing the collection."
^DD(65.54,6,"DT")="2841005"
^DD(65.54,6.1,0)="COLLECTION DISPOSITION^S^0:PREPARE COMPONENT(S);1:QUARANTINE;2:DISCARD COLLECTION;^0;10^Q"
^DD(65.54,6.1,3)=""
^DD(65.54,6.1,21,0)="^^1^1^2911219^^"
^DD(65.54,6.1,21,1,0)="Records what happened to the collection."
^DD(65.54,6.1,"DT")="2851229"
^DD(65.54,6.2,0)="COLLECTION DISPOSITION COMMENT^65.546A^^3;0"
^DD(65.54,6.2,21,0)="^^2^2^2911219^"
^DD(65.54,6.2,21,1,0)="These are comments regarding the collection"
^DD(65.54,6.2,21,2,0)="disposition."
^DD(65.54,7,0)="RBC TYPING METHOD^65.61SA^^7;0"
^DD(65.54,7,21,0)="^^1^1^2911219^"
^DD(65.54,7,21,1,0)="These are the RBC typing methods."
^DD(65.54,8.1,0)="DONOR CELLS+ANTI A^RFX^^8;1^D ^LRBLAGG"
^DD(65.54,8.1,3)=""
^DD(65.54,8.1,4)="D LST^LRBLAGG"
^DD(65.54,8.1,"DT")="2850402"
^DD(65.54,8.2,0)="DONOR CELLS+ANTI B^RFX^^8;2^D ^LRBLAGG"
^DD(65.54,8.2,3)=""
^DD(65.54,8.2,4)="D LST^LRBLAGG"
^DD(65.54,8.2,"DT")="2850402"
^DD(65.54,8.3,0)="DONOR CELLS+ANTI A,B^RFX^^8;3^D ^LRBLAGG"
^DD(65.54,8.3,3)=""
^DD(65.54,8.3,4)="D LST^LRBLAGG"
^DD(65.54,8.3,"DT")="2850402"
^DD(65.54,8.4,0)="DONOR PLASMA/SERUM+A1 CELLS^RFX^^8;4^D ^LRBLAGG"
^DD(65.54,8.4,3)=""
^DD(65.54,8.4,4)="D LST^LRBLAGG"
^DD(65.54,8.4,"DT")="2850402"
^DD(65.54,8.5,0)="DONOR PLASMA/SERUM+B CELLS^RFX^^8;5^D ^LRBLAGG"
^DD(65.54,8.5,3)=""
^DD(65.54,8.5,4)="D LST^LRBLAGG"
^DD(65.54,8.5,"DT")="2850402"
^DD(65.54,9.1,0)="DONOR CELLS+ANTI D^RFX^^9;1^D ^LRBLAGG"
^DD(65.54,9.1,3)=""
^DD(65.54,9.1,4)="D LST^LRBLAGG"
^DD(65.54,9.1,"DT")="2850403"
^DD(65.54,9.2,0)="DONOR CELLS+RH CONTROL^RFX^^9;2^D ^LRBLAGG"
^DD(65.54,9.2,3)=""
^DD(65.54,9.2,4)="D LST^LRBLAGG"
^DD(65.54,9.2,"DT")="2850403"
^DD(65.54,9.3,0)="DONOR CELLS+ANTI D (37 C)^RFX^^9;3^D ^LRBLAGG"
^DD(65.54,9.3,.1)="DONOR CELLS+ANTI D INCUBATED AT 37 DEGREES CENTIGRADE"
^DD(65.54,9.3,3)=""
^DD(65.54,9.3,4)="D LST^LRBLAGG"
^DD(65.54,9.3,"DT")="2850403"
^DD(65.54,9.4,0)="DONOR CELLS+RH CTRL (37 C)^RFX^^9;4^D ^LRBLAGG"
^DD(65.54,9.4,.1)="DONOR CELLS+RH CONTROL INCUBATED AT 37 CENTIGRADE"
^DD(65.54,9.4,3)=""
^DD(65.54,9.4,4)="D LST^LRBLAGG"
^DD(65.54,9.4,"DT")="2850403"
^DD(65.54,9.5,0)="DONOR CELLS+ANTI D (AHG)^RFX^^9;5^D ^LRBLAGG"
^DD(65.54,9.5,3)=""
^DD(65.54,9.5,4)="D LST^LRBLAGG"
^DD(65.54,9.5,"DT")="2850404"
^DD(65.54,9.6,0)="DONOR CELLS+RH CTRL (AHG)^RFX^^9;6^D ^LRBLAGG"
^DD(65.54,9.6,3)=""
^DD(65.54,9.6,4)="D LST^LRBLAGG"
^DD(65.54,9.6,"DT")="2850404"
^DD(65.54,10,0)="ABO INTERPRETATION^S^A:A;O:O;B:B;AB:AB;ND:NOT DONE;^10;1^Q"
^DD(65.54,10,.1)="INTERPRETATION OF ABO TESTING"
^DD(65.54,10,1,0)="^.1"
^DD(65.54,10,1,1,0)="65.5^AC^MUMPS"
^DD(65.54,10,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,10,DA(1),DA)"
^DD(65.54,10,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,10)):1,$P(^(10),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,10,DA(1),DA)="""""
^DD(65.54,10,10)=""
^DD(65.54,10,11,0)="^.2LAP^^0"
^DD(65.54,10,20,0)="^.3LA^^0"
^DD(65.54,10,21,0)="^^1^1^2911219^^"
^DD(65.54,10,21,1,0)="This is the intererpretation of ABO grouping results."
^DD(65.54,10,"DT")="2900410"
^DD(65.54,10.2,0)="TECH ENTERING-ABO INTERP^P200'^VA(200,^10;2^Q"
^DD(65.54,10.2,3)=""
^DD(65.54,10.2,21,0)="^^1^1^2911219^^"
^DD(65.54,10.2,21,1,0)="This is the technologist entering ABO interpretation."
^DD(65.54,10.2,"DT")="2910630"
^DD(65.54,10.3,0)="ABO TESTING COMMENT^FX^^10;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,10.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,10.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,10.3,21,0)="^^1^1^2911219^"
^DD(65.54,10.3,21,1,0)="This is a comment concerning the ABO testing."
^DD(65.54,10.3,"DT")="2880408"
^DD(65.54,10.4,0)="ABO INTERPRETATION RECHECK^S^A:A;O:O;B:B;AB:AB;^10;4^Q"
^DD(65.54,10.4,21,0)="^^1^1^2880608^^"
^DD(65.54,10.4,21,1,0)="Recheck of ABO group interpretation"
^DD(65.54,10.4,"DT")="2880608"
^DD(65.54,10.5,0)="TECH ENTERING-ABO RECHECK^P200'^VA(200,^10;5^Q"
^DD(65.54,10.5,21,0)="^^1^1^2880608^"
^DD(65.54,10.5,21,1,0)="Technologist entering ABO grouping recheck"
^DD(65.54,10.5,"DT")="2910630"
^DD(65.54,10.6,0)="ABO RECHECK COMMENT^FX^^10;6^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,10.6,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,10.6,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,10.6,21,0)="^^1^1^2880608^"
^DD(65.54,10.6,21,1,0)="ABO grouping recheck comment"
^DD(65.54,10.6,"DT")="2880608"
^DD(65.54,11,0)="RH INTERPRETATION^S^NEG:NEGATIVE;POS:POSITIVE;ND:NOT DONE;^11;1^Q"
^DD(65.54,11,.1)="INTERPRETATION OF RH TESTING"
^DD(65.54,11,1,0)="^.1"
^DD(65.54,11,1,1,0)="65.5^AE^MUMPS"
^DD(65.54,11,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,11,DA(1),DA)"
^DD(65.54,11,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,11)):1,$P(^(11),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,11,DA(1),DA)="""""
^DD(65.54,11,10)=""
^DD(65.54,11,20,0)="^.3LA^^0"
^DD(65.54,11,21,0)="^^1^1^2911219^^"
^DD(65.54,11,21,1,0)="This is the interpretation of Rh typing results."
^DD(65.54,11,"DT")="2880614"
^DD(65.54,11.2,0)="TECH ENTERING-RH INTERP^P200'^VA(200,^11;2^Q"
^DD(65.54,11.2,3)=""
^DD(65.54,11.2,21,0)="^^1^1^2911219^^^"
^DD(65.54,11.2,21,1,0)="This is the technologist entering Rh interpretation."
^DD(65.54,11.2,"DT")="2910630"
^DD(65.54,11.3,0)="RH TESTING COMMENT^FX^^11;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,11.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,11.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,11.3,21,0)="^^1^1^2911219^"
^DD(65.54,11.3,21,1,0)="This is a comment concerning the RH testing."
^DD(65.54,11.3,"DT")="2880408"
^DD(65.54,11.4,0)="RH  INTERPRETATION RECHECK^S^POS:POSITIVE;NEG:NEGATIVE;^11;4^Q"
^DD(65.54,11.4,21,0)="^^1^1^2880608^"
^DD(65.54,11.4,21,1,0)="Rh interpretation recheck"
^DD(65.54,11.4,"DT")="2880608"
^DD(65.54,11.5,0)="TECH ENTERING-RH RECHECK^P200'^VA(200,^11;5^Q"
^DD(65.54,11.5,21,0)="^^1^1^2880608^"
^DD(65.54,11.5,21,1,0)="Technologist entering Rh type recheck"
^DD(65.54,11.5,"DT")="2910630"
^DD(65.54,11.6,0)="RH TESTING RECHECK COMMENT^FX^^11;6^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,11.6,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,11.6,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,11.6,21,0)="^^1^1^2880608^"
^DD(65.54,11.6,21,1,0)="Rh testing recheck comment"
^DD(65.54,11.6,"DT")="2880608"
^DD(65.54,12,0)="SYPHILIS SEROLOGY^S^1:REACTIVE;0:NEGATIVE;ND:NOT DONE;^12;1^Q"
^DD(65.54,12,1,0)="^.1"
^DD(65.54,12,1,1,0)="65.5^AF^MUMPS"
^DD(65.54,12,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,12,DA(1),DA)"
^DD(65.54,12,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,12)):1,$P(^(12),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,12,DA(1),DA)="""""
^DD(65.54,12,10)=""
^DD(65.54,12,20,0)="^.3LA^^0"
^DD(65.54,12,21,0)="^^1^1^2911219^^"
^DD(65.54,12,21,1,0)="This is the results of syphilis serology test."
^DD(65.54,12,"DT")="2861226"
^DD(65.54,12.2,0)="TECH-SYPHILIS SEROLOGY^P200'^VA(200,^12;2^Q"
^DD(65.54,12.2,3)=""
^DD(65.54,12.2,21,0)="^^1^1^2911219^^"
^DD(65.54,12.2,21,1,0)="Technologist entering syphilis serology results."
^DD(65.54,12.2,"DT")="2910630"
^DD(65.54,12.3,0)="SYPHILIS SEROLOGY COMMENT^FX^^12;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,12.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,12.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,12.3,21,0)="^^2^2^2911219^"
^DD(65.54,12.3,21,1,0)="This is a comment concerning the syphilis"
^DD(65.54,12.3,21,2,0)="serology test."
^DD(65.54,12.3,"DT")="2880408"
^DD(65.54,13,0)="HBsAg^S^1:REACTIVE;0:NEGATIVE;ND:NOT DONE;^13;1^Q"
^DD(65.54,13,.1)="Hepatitis B surface antigen"
^DD(65.54,13,1,0)="^.1"
^DD(65.54,13,1,1,0)="65.5^AG^MUMPS"
^DD(65.54,13,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,13,DA(1),DA)"
^DD(65.54,13,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,13)):1,$P(^(13),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,13,DA(1),DA)="""""
^DD(65.54,13,3)=""
^DD(65.54,13,10)=""
^DD(65.54,13,20,0)="^.3LA^^0"
^DD(65.54,13,21,0)="^^1^1^2911219^^"
^DD(65.54,13,21,1,0)="These are the results of hepatitis B surface antigen testing."
^DD(65.54,13,"DT")="2861226"
^DD(65.54,13.2,0)="TECH-HBsAg^P200'^VA(200,^13;2^Q"
^DD(65.54,13.2,3)=""
^DD(65.54,13.2,21,0)="^^1^1^2911219^^"
^DD(65.54,13.2,21,1,0)="Technologist entering Hepatitis B surface antigen test results."
^DD(65.54,13.2,"DT")="2910630"
^DD(65.54,13.3,0)="HBsAg COMMENT^FX^^13;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,13.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,13.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,13.3,21,0)="^^1^1^2911219^"
^DD(65.54,13.3,21,1,0)="This is a comment concerning the HBsAg test."
^DD(65.54,13.3,"DT")="2880408"
^DD(65.54,14,0)="HIV ANTIBODY^S^1:REACTIVE;0:NEGATIVE;ND:NOT DONE;^14;1^Q"
^DD(65.54,14,.1)="HUMAN IMMUNODEFICIENCY ANTIBODY"
^DD(65.54,14,1,0)="^.1"
^DD(65.54,14,1,1,0)="65.5^AH^MUMPS"
^DD(65.54,14,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,14,DA(1),DA)"
^DD(65.54,14,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,14)):1,$P(^(14),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,14,DA(1),DA)="""""
^DD(65.54,14,3)=""
^DD(65.54,14,10)=""
^DD(65.54,14,20,0)="^.3LA^^0"
^DD(65.54,14,21,0)="^^1^1^2911219^^"
^DD(65.54,14,21,1,0)="These are results of HIV antibody testing."
^DD(65.54,14,"DT")="2861226"
^DD(65.54,14.2,0)="TECH-HIV^P200'^VA(200,^14;2^Q"
^DD(65.54,14.2,3)=""
^DD(65.54,14.2,21,0)="^^1^1^2911219^^"
^DD(65.54,14.2,21,1,0)="Technologist entering HTLV-III test results."
^DD(65.54,14.2,"DT")="2910630"
^DD(65.54,14.3,0)="HIV TESTING COMMENT^FX^^14;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,14.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,14.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,14.3,21,0)="^^1^1^2911219^"
^DD(65.54,14.3,21,1,0)="This is a comment concerning the HIV test."
^DD(65.54,14.3,"DT")="2880408"
^DD(65.54,15,0)="ANTIBODY SCREEN RESULT^S^0:NEGATIVE;1:POSITIVE;ND:NOT DONE;^15;1^Q"
^DD(65.54,15,1,0)="^.1"
^DD(65.54,15,1,1,0)="65.5^AI^MUMPS"
^DD(65.54,15,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,15,DA(1),DA)"
^DD(65.54,15,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,15)):1,$P(^(15),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,15,DA(1),DA)="""""
^DD(65.54,15,10)=""
^DD(65.54,15,20,0)="^.3LA^^0"
^DD(65.54,15,21,0)="^^1^1^2911219^^"
^DD(65.54,15,21,1,0)="These are the results of antibody screening."
^DD(65.54,15,"DT")="2850406"
^DD(65.54,15.2,0)="TECH-ANTIBODY SCREEN^P200'^VA(200,^15;2^Q"
^DD(65.54,15.2,3)=""
^DD(65.54,15.2,21,0)="^^1^1^2911219^^"
^DD(65.54,15.2,21,1,0)="Technologist entering antibody screening test results."
^DD(65.54,15.2,"DT")="2910630"
^DD(65.54,15.3,0)="ANTIBODY SCREEN COMMENT^FX^^15;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,15.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,15.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,15.3,21,0)="^^1^1^2911219^"
^DD(65.54,15.3,21,1,0)="This is a comment concerning the antibody screen."
^DD(65.54,15.3,"DT")="2880408"
^DD(65.54,16,0)="HBcAb^S^1:REACTIVE;0:NEGATIVE;ND:NOT DONE;^16;1^Q"
^DD(65.54,16,.1)="HEPATITIS CORE ANTIBODY"
^DD(65.54,16,1,0)="^.1"
^DD(65.54,16,1,1,0)="65.5^AJ^MUMPS"
^DD(65.54,16,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,16,DA(1),DA)"
^DD(65.54,16,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,16)):1,$P(^(16),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,16,DA(1),DA)="""""
^DD(65.54,16,21,0)="^^1^1^2911219^^"
^DD(65.54,16,21,1,0)="These are the results of hepatitis core antibody testing."
^DD(65.54,16,"DT")="2861226"
^DD(65.54,16.2,0)="TECH-HBcAb^P200'^VA(200,^16;2^Q"
^DD(65.54,16.2,3)=""
^DD(65.54,16.2,21,0)="^^1^1^2911219^^"
^DD(65.54,16.2,21,1,0)="This is the technologist entering Hepatitis Core Antibody results."
^DD(65.54,16.2,"DT")="2910630"
^DD(65.54,16.3,0)="HBcAb TEST COMMENT^FX^^16;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,16.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,16.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,16.3,21,0)="^^1^1^2911219^"
^DD(65.54,16.3,21,1,0)="This is a comment concerning the HBcAb test."
^DD(65.54,16.3,"DT")="2880408"
^DD(65.54,17,0)="ALT^S^1:ELEVATED;0:NOT ELEVATED;ND:NOT DONE;^17;1^Q"
^DD(65.54,17,.1)="ALANINE-AMINO TRANSFERASE"
^DD(65.54,17,1,0)="^.1"
^DD(65.54,17,1,1,0)="65.5^AK^MUMPS"
^DD(65.54,17,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,17,DA(1),DA)"
^DD(65.54,17,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,17)):1,$P(^(17),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,17,DA(1),DA)="""""
^DD(65.54,17,21,0)="^^1^1^2911219^^"
^DD(65.54,17,21,1,0)="These are the results of alanine-amino transferase testing."
^DD(65.54,17,"DT")="2861118"
^DD(65.54,17.2,0)="TECH-ALT^P200'^VA(200,^17;2^Q"
^DD(65.54,17.2,3)=""
^DD(65.54,17.2,21,0)="^^1^1^2911219^^"
^DD(65.54,17.2,21,1,0)="This is the technologist entering alanine-amino transferase results."
^DD(65.54,17.2,"DT")="2910630"
^DD(65.54,17.3,0)="ALT TEST COMMENT^FX^^17;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,17.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,17.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,17.3,21,0)="^^1^1^2911219^"
^DD(65.54,17.3,21,1,0)="This is a comment concerning the ALT test."
^DD(65.54,17.3,"DT")="2880408"
^DD(65.54,18,0)="HTLV-I ANTIBODY^S^1:REACTIVE;0:NEGATIVE;ND:NOT DONE;^18;1^Q"
^DD(65.54,18,1,0)="^.1"
^DD(65.54,18,1,1,0)="65.5^AL^MUMPS"
^DD(65.54,18,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,18,DA(1),DA)"
^DD(65.54,18,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,18)):1,$P(^(18),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,18,DA(1),DA)="""""
^DD(65.54,18,21,0)="^^1^1^2881218^"
^DD(65.54,18,21,1,0)="Results of HTLV-I antibody testing"
^DD(65.54,18,"DT")="2881218"
^DD(65.54,18.2,0)="TECH-HTLV-I^P200'^VA(200,^18;2^Q"
^DD(65.54,18.2,"DT")="2910630"
^DD(65.54,18.3,0)="HTLV-I TESTING COMMENT^FX^^18;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,18.3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.54,18.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,18.3,"DT")="2881218"
^DD(65.54,19,0)="HCV ANTIBODY^S^1:REACTIVE;0:NEGATIVE;ND:NOT DONE;^19;1^Q"
^DD(65.54,19,1,0)="^.1"
^DD(65.54,19,1,1,0)="65.5^AM^MUMPS"
^DD(65.54,19,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,19,DA(1),DA)"
^DD(65.54,19,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,19)):1,$P(^(19),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,19,DA(1),DA)="""""
^DD(65.54,19,21,0)="^^2^2^2900310^"
^DD(65.54,19,21,1,0)="Results of hepatitis C virus (HCV) antibody testing are"
^DD(65.54,19,21,2,0)=" entered in this field."
^DD(65.54,19,"DT")="2900310"
^DD(65.54,19.2,0)="TECH-HCV ANTIBODY^P200'^VA(200,^19;2^Q"
^DD(65.54,19.2,"DT")="2910630"
^DD(65.54,19.3,0)="HCV ANTIBODY TESTING COMMENT^FX^^19;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,19.3,3)="Answer must be 1-80 characters in length."
^DD(65.54,19.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,19.3,"DT")="2900310"
^DD(65.54,20,0)="HIV ANTIGEN^S^1:REACTIVE;0:NEGATIVE;ND:NOT DONE;^20;1^Q"
^DD(65.54,20,1,0)="^.1"
^DD(65.54,20,1,1,0)="65.5^AN^MUMPS"
^DD(65.54,20,1,1,1)="S A=$P(^LRE(DA(1),5,DA,0),U,4) K:A]"""" ^LRE(""AT"",A,20,DA(1),DA)"
^DD(65.54,20,1,1,2)="S A=$P(^LRE(DA(1),5,DA,0),U,4),B=$S('$D(^LRE(DA(1),5,DA,20)):1,$P(^(20),U)="""":1,1:0) S:A]""""&(B) ^LRE(""AT"",A,20,DA(1),DA)="""""
^DD(65.54,20,1,1,"DT")="2951129"
^DD(65.54,20,21,0)="^^1^1^2960409^^^^"
^DD(65.54,20,21,1,0)="HIV antigen testing for blood donors"
^DD(65.54,20,"DT")="2960409"
^DD(65.54,20.2,0)="TECH-HIV ANTIGEN^P200'^VA(200,^20;2^Q"
^DD(65.54,20.2,21,0)="^^1^1^2951209^"
^DD(65.54,20.2,21,1,0)="Technologist performing HIV antigen testing"
^DD(65.54,20.2,"DT")="2951209"
^DD(65.54,20.3,0)="HIV ANTIGEN COMMENT^FX^^20;3^K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)=""X"" D ^LRUB"
^DD(65.54,20.3,3)="Answer must be 1-80 characters in length."
^DD(65.54,20.3,4)="S L(1)=""X"" D Q^LRUB"
^DD(65.54,20.3,21,0)="^^1^1^2951209^"
^DD(65.54,20.3,21,1,0)="Comment related to HIV antigen testing"
^DD(65.54,20.3,"DT")="2951209"
^DD(65.54,66,0)="BLOOD COMPONENT^65.66IPA^^66;0"
^DD(65.54,66,12)="SELECTS ONLY PRODUCTS PRODUCED DIRECTLY FROM DONOR COLLECTION"
^DD(65.54,66,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""""
^DD(65.54,66,21,0)="^^1^1^2911219^^"
^DD(65.54,66,21,1,0)="These are blood components prepared from the collection."
^DD(65.54,70,0)="GENERAL APPEARANCE^F^^70;1^K:$L(X)>80!($L(X)<2) X"
^DD(65.54,70,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.54,70,"DT")="2850415"
^DD(65.54,71,0)="VENIPUNCTURE SITE^F^^71;1^K:$L(X)>80!($L(X)<2) X"
^DD(65.54,71,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.54,72,0)="ORAL TEMPERATURE^NJ6,2^^72;1^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""3N.N) X"
^DD(65.54,72,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(65.54,72,"DT")="2850415"
^DD(65.54,73,0)="BLOOD PRESSURE^F^^73;1^K:$L(X)>7!($L(X)<5)!'(X?1N.N1""/""1N.N) X"
^DD(65.54,73,3)="ANSWER MUST BE 5-7 CHARACTERS IN LENGTH"
^DD(65.54,73,"DT")="2850415"
^DD(65.54,74,0)="PULSE^NJ3,0^^74;1^K:+X'=X!(X>299)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.54,74,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 299"
^DD(65.54,74,"DT")="2850415"
^DD(65.54,74.3,0)="PULSE COMMENT^F^^74;3^K:$L(X)>80!($L(X)<2) X"
^DD(65.54,74.3,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.54,74.3,"DT")="2850415"
^DD(65.54,75,0)="WEIGHT (lb)^NJ3,0^^75;1^K:+X'=X!(X>500)!(X<65)!(X?.E1"".""1N.N) X"
^DD(65.54,75,3)="TYPE A WHOLE NUMBER BETWEEN 65 AND 500"
^DD(65.54,75,"DT")="2850415"
^DD(65.54,80,0)="HEMOGLOBIN^F^^80;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,80,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,80,"DT")="2850415"
^DD(65.54,81,0)="HEMATOCRIT^F^^81;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,81,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,82,0)="TOTAL SERUM PROTEIN^F^^82;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,82,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,83,0)="SERUM PROTEIN ELECTROPHORESIS^65.6A^^83;0"
^DD(65.54,84,0)="IgG^F^^84;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,84,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,84,"DT")="2850415"
^DD(65.54,85,0)="IgM^F^^85;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,85,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,86,0)="WBC^F^^86;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,86,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,87,0)="POLYS^F^^87;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,87,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,88,0)="EOSINOPHILS^F^^88;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,88,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,89,0)="BASOPHILS^F^^89;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,89,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,90,0)="LYMPHOCYTES^F^^90;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,90,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,91,0)="MONOCYTES^F^^91;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,91,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,92,0)="PLATELET COUNT^F^^92;1^K:$L(X)>10!($L(X)<1) X"
^DD(65.54,92,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(65.54,500,0)="WORKLOAD TEST/PROCEDURE^65.599PA^^99;0"
^DD(65.54,500,21,0)="^^2^2^2901105^^"
^DD(65.54,500,21,1,0)="Tests or procedures containing WKLD codes for donor workload are"
^DD(65.54,500,21,2,0)=" entered here."
^DD(65.54,500,22)=""
^DD(65.54,"B","ABO INTERPRETATION",10)=""
^DD(65.54,"B","ABO INTERPRETATION RECHECK",10.4)=""
^DD(65.54,"B","ABO RECHECK COMMENT",10.6)=""
^DD(65.54,"B","ABO TESTING COMMENT",10.3)=""
^DD(65.54,"B","ALANINE-AMINO TRANSFERASE",17)="1"
^DD(65.54,"B","ALT",17)=""
^DD(65.54,"B","ALT TEST COMMENT",17.3)=""
^DD(65.54,"B","ANTIBODY SCREEN COMMENT",15.3)=""
^DD(65.54,"B","ANTIBODY SCREEN RESULT",15)=""
^DD(65.54,"B","ANTICOAGULANT/ADDITIVE",4.11)=""
^DD(65.54,"B","ARRIVAL/APPT TIME",.13)=""
^DD(65.54,"B","BAG LOT #",4.15)=""
^DD(65.54,"B","BASOPHILS",89)=""
^DD(65.54,"B","BLOOD COMPONENT",66)=""
^DD(65.54,"B","BLOOD PRESSURE",73)=""
^DD(65.54,"B","COLLECTED PRIMARY UNIT WT (gm)",4.5)=""
^DD(65.54,"B","COLLECTION DISPOSITION",6.1)=""
^DD(65.54,"B","COLLECTION DISPOSITION COMMENT",6.2)=""
^DD(65.54,"B","COLLECTION SITE",.02)=""
^DD(65.54,"B","COLLECTION VOL (ml)",4.7)=""
^DD(65.54,"B","DATE/TIME COLLECTION COMPLETED",4.3)=""
^DD(65.54,"B","DATE/TIME COLLECTION STARTED",4.2)=""
^DD(65.54,"B","DATE/TIME PROCESSED",4.4)=""
^DD(65.54,"B","DEFERRAL REASON",2)=""
^DD(65.54,"B","DONATION ENTERED/EDIT BY",.011)=""
^DD(65.54,"B","DONATION GROUP",.03)=""
^DD(65.54,"B","DONATION OR DEFERRAL DATE",.01)=""
^DD(65.54,"B","DONATION TYPE",1.1)=""
^DD(65.54,"B","DONATION/DEFERRAL CODE",1)=""
^DD(65.54,"B","DONOR CELLS+ANTI A",8.1)=""
^DD(65.54,"B","DONOR CELLS+ANTI A,B",8.3)=""
^DD(65.54,"B","DONOR CELLS+ANTI B",8.2)=""
^DD(65.54,"B","DONOR CELLS+ANTI D",9.1)=""
^DD(65.54,"B","DONOR CELLS+ANTI D (37 C)",9.3)=""
^DD(65.54,"B","DONOR CELLS+ANTI D (AHG)",9.5)=""
^DD(65.54,"B","DONOR CELLS+RH CONTROL",9.2)=""
^DD(65.54,"B","DONOR CELLS+RH CTRL (37 C)",9.4)=""
^DD(65.54,"B","DONOR CELLS+RH CTRL (AHG)",9.6)=""
^DD(65.54,"B","DONOR PLASMA/SERUM+A1 CELLS",8.4)=""
^DD(65.54,"B","DONOR PLASMA/SERUM+B CELLS",8.5)=""
^DD(65.54,"B","DONOR REACTION CODE",3)=""
^DD(65.54,"B","EMPTY PRIMARY UNIT WT (gm)",4.6)=""
^DD(65.54,"B","ENTRY VIA OLD RECORDS",.14)=""
^DD(65.54,"B","EOSINOPHILS",88)=""
^DD(65.54,"B","GENERAL APPEARANCE",70)=""
^DD(65.54,"B","HBcAb",16)=""
^DD(65.54,"B","HBcAb TEST COMMENT",16.3)=""
^DD(65.54,"B","HBsAg",13)=""
^DD(65.54,"B","HBsAg COMMENT",13.3)=""
^DD(65.54,"B","HCV ANTIBODY",19)=""
^DD(65.54,"B","HCV ANTIBODY TESTING COMMENT",19.3)=""
^DD(65.54,"B","HEMATOCRIT",81)=""
^DD(65.54,"B","HEMOGLOBIN",80)=""
^DD(65.54,"B","HEPATITIS CORE ANTIBODY",16)="1"
^DD(65.54,"B","HIV ANTIBODY",14)=""
^DD(65.54,"B","HIV ANTIGEN",20)=""
^DD(65.54,"B","HIV ANTIGEN COMMENT",20.3)=""
^DD(65.54,"B","HIV TESTING COMMENT",14.3)=""
^DD(65.54,"B","HTLV-I ANTIBODY",18)=""
^DD(65.54,"B","HTLV-I TESTING COMMENT",18.3)=""
^DD(65.54,"B","Hepatitis B surface antigen",13)="1"
^DD(65.54,"B","INTERPRETATION OF ABO TESTING",10)="1"
^DD(65.54,"B","INTERPRETATION OF RH TESTING",11)="1"
^DD(65.54,"B","IgG",84)=""
^DD(65.54,"B","IgM",85)=""
^DD(65.54,"B","LYMPHOCYTES",90)=""
^DD(65.54,"B","MONOCYTES",91)=""
^DD(65.54,"B","ORAL TEMPERATURE",72)=""
^DD(65.54,"B","PATIENT CREDIT",5)=""
^DD(65.54,"B","PHLEBOTOMIST",6)=""
^DD(65.54,"B","PLATELET COUNT",92)=""
^DD(65.54,"B","POLYS",87)=""
^DD(65.54,"B","PRIMARY BAG",4.1)=""
^DD(65.54,"B","PROCESSING TECH",4.8)=""
^DD(65.54,"B","PULSE",74)=""
^DD(65.54,"B","PULSE COMMENT",74.3)=""
^DD(65.54,"B","RBC TYPING METHOD",7)=""
^DD(65.54,"B","RESTRICTED FOR",1.2)=""
^DD(65.54,"B","RH  INTERPRETATION RECHECK",11.4)=""
^DD(65.54,"B","RH INTERPRETATION",11)=""
^DD(65.54,"B","RH TESTING COMMENT",11.3)=""
^DD(65.54,"B","RH TESTING RECHECK COMMENT",11.6)=""
^DD(65.54,"B","SERUM PROTEIN ELECTROPHORESIS",83)=""
^DD(65.54,"B","SYPHILIS SEROLOGY",12)=""
^DD(65.54,"B","SYPHILIS SEROLOGY COMMENT",12.3)=""
^DD(65.54,"B","TECH ENTERING-ABO INTERP",10.2)=""
^DD(65.54,"B","TECH ENTERING-ABO RECHECK",10.5)=""
^DD(65.54,"B","TECH ENTERING-RH INTERP",11.2)=""
^DD(65.54,"B","TECH ENTERING-RH RECHECK",11.5)=""
^DD(65.54,"B","TECH-ALT",17.2)=""
^DD(65.54,"B","TECH-ANTIBODY SCREEN",15.2)=""
^DD(65.54,"B","TECH-HBcAb",16.2)=""
^DD(65.54,"B","TECH-HBsAg",13.2)=""
^DD(65.54,"B","TECH-HCV ANTIBODY",19.2)=""
^DD(65.54,"B","TECH-HIV",14.2)=""
^DD(65.54,"B","TECH-HIV ANTIGEN",20.2)=""
^DD(65.54,"B","TECH-HTLV-I",18.2)=""
^DD(65.54,"B","TECH-SYPHILIS SEROLOGY",12.2)=""
^DD(65.54,"B","TOTAL SERUM PROTEIN",82)=""
^DD(65.54,"B","UNIT ID",4)=""
^DD(65.54,"B","VENIPUNCTURE SITE",71)=""
^DD(65.54,"B","WBC",86)=""
^DD(65.54,"B","WEIGHT (lb)",75)=""
^DD(65.54,"B","WORKLOAD TEST/PROCEDURE",500)=""
^DD(65.54,"GL",0,1,.01)=""
^DD(65.54,"GL",0,2,1)=""
^DD(65.54,"GL",0,3,3)=""
^DD(65.54,"GL",0,4,4)=""
^DD(65.54,"GL",0,5,5)=""
^DD(65.54,"GL",0,6,.02)=""
^DD(65.54,"GL",0,7,.03)=""
^DD(65.54,"GL",0,8,.011)=""
^DD(65.54,"GL",0,9,6)=""
^DD(65.54,"GL",0,10,6.1)=""
^DD(65.54,"GL",0,11,1.1)=""
^DD(65.54,"GL",0,12,1.2)=""
^DD(65.54,"GL",0,13,.13)=""
^DD(65.54,"GL",0,14,.14)=""
^DD(65.54,"GL",1,0,2)=""
^DD(65.54,"GL",2,1,4.1)=""
^DD(65.54,"GL",2,2,4.2)=""
^DD(65.54,"GL",2,3,4.3)=""
^DD(65.54,"GL",2,4,4.4)=""
^DD(65.54,"GL",2,5,4.5)=""
^DD(65.54,"GL",2,6,4.6)=""
^DD(65.54,"GL",2,7,4.7)=""
^DD(65.54,"GL",2,8,4.8)=""
^DD(65.54,"GL",2,9,4.11)=""
^DD(65.54,"GL",2,10,4.15)=""
^DD(65.54,"GL",3,0,6.2)=""
^DD(65.54,"GL",7,0,7)=""
^DD(65.54,"GL",8,1,8.1)=""
^DD(65.54,"GL",8,2,8.2)=""
^DD(65.54,"GL",8,3,8.3)=""
^DD(65.54,"GL",8,4,8.4)=""
^DD(65.54,"GL",8,5,8.5)=""
^DD(65.54,"GL",9,1,9.1)=""
^DD(65.54,"GL",9,2,9.2)=""
^DD(65.54,"GL",9,3,9.3)=""
^DD(65.54,"GL",9,4,9.4)=""
^DD(65.54,"GL",9,5,9.5)=""
^DD(65.54,"GL",9,6,9.6)=""
^DD(65.54,"GL",10,1,10)=""
^DD(65.54,"GL",10,2,10.2)=""
^DD(65.54,"GL",10,3,10.3)=""
^DD(65.54,"GL",10,4,10.4)=""
^DD(65.54,"GL",10,5,10.5)=""
^DD(65.54,"GL",10,6,10.6)=""
^DD(65.54,"GL",11,1,11)=""
^DD(65.54,"GL",11,2,11.2)=""
^DD(65.54,"GL",11,3,11.3)=""
^DD(65.54,"GL",11,4,11.4)=""
^DD(65.54,"GL",11,5,11.5)=""
^DD(65.54,"GL",11,6,11.6)=""
^DD(65.54,"GL",12,1,12)=""
^DD(65.54,"GL",12,2,12.2)=""
^DD(65.54,"GL",12,3,12.3)=""
^DD(65.54,"GL",13,1,13)=""
^DD(65.54,"GL",13,2,13.2)=""
^DD(65.54,"GL",13,3,13.3)=""
^DD(65.54,"GL",14,1,14)=""
^DD(65.54,"GL",14,2,14.2)=""
^DD(65.54,"GL",14,3,14.3)=""
^DD(65.54,"GL",15,1,15)=""
^DD(65.54,"GL",15,2,15.2)=""
^DD(65.54,"GL",15,3,15.3)=""
^DD(65.54,"GL",16,1,16)=""
^DD(65.54,"GL",16,2,16.2)=""
^DD(65.54,"GL",16,3,16.3)=""
^DD(65.54,"GL",17,1,17)=""
^DD(65.54,"GL",17,2,17.2)=""
^DD(65.54,"GL",17,3,17.3)=""
^DD(65.54,"GL",18,1,18)=""
^DD(65.54,"GL",18,2,18.2)=""
^DD(65.54,"GL",18,3,18.3)=""
^DD(65.54,"GL",19,1,19)=""
^DD(65.54,"GL",19,2,19.2)=""
^DD(65.54,"GL",19,3,19.3)=""
^DD(65.54,"GL",20,1,20)=""
^DD(65.54,"GL",20,2,20.2)=""
^DD(65.54,"GL",20,3,20.3)=""
^DD(65.54,"GL",66,0,66)=""
^DD(65.54,"GL",70,1,70)=""
^DD(65.54,"GL",71,1,71)=""
^DD(65.54,"GL",72,1,72)=""
^DD(65.54,"GL",73,1,73)=""
^DD(65.54,"GL",74,1,74)=""
^DD(65.54,"GL",74,3,74.3)=""
^DD(65.54,"GL",75,1,75)=""
^DD(65.54,"GL",80,1,80)=""
^DD(65.54,"GL",81,1,81)=""
^DD(65.54,"GL",82,1,82)=""
^DD(65.54,"GL",83,0,83)=""
^DD(65.54,"GL",84,1,84)=""
^DD(65.54,"GL",85,1,85)=""
^DD(65.54,"GL",86,1,86)=""
^DD(65.54,"GL",87,1,87)=""
^DD(65.54,"GL",88,1,88)=""
^DD(65.54,"GL",89,1,89)=""
^DD(65.54,"GL",90,1,90)=""
^DD(65.54,"GL",91,1,91)=""
^DD(65.54,"GL",92,1,92)=""
^DD(65.54,"GL",99,0,500)=""
^DD(65.54,"IX",.01)=""
^DD(65.54,"IX",4)=""
^DD(65.54,"IX",10)=""
^DD(65.54,"IX",11)=""
^DD(65.54,"IX",12)=""
^DD(65.54,"IX",13)=""
^DD(65.54,"IX",14)=""
^DD(65.54,"IX",15)=""
^DD(65.54,"IX",16)=""
^DD(65.54,"IX",17)=""
^DD(65.54,"IX",18)=""
^DD(65.54,"IX",19)=""
^DD(65.54,"IX",20)=""
^DD(65.54,"RQ",.01)=""
^DD(65.54,"RQ",.02)=""
^DD(65.54,"RQ",4)=""
^DD(65.54,"RQ",4.1)=""
^DD(65.54,"RQ",4.11)=""
^DD(65.54,"RQ",4.2)=""
^DD(65.54,"RQ",4.3)=""
^DD(65.54,"RQ",4.4)=""
^DD(65.54,"RQ",8.1)=""
^DD(65.54,"RQ",8.2)=""
^DD(65.54,"RQ",8.3)=""
^DD(65.54,"RQ",8.4)=""
^DD(65.54,"RQ",8.5)=""
^DD(65.54,"RQ",9.1)=""
^DD(65.54,"RQ",9.2)=""
^DD(65.54,"RQ",9.3)=""
^DD(65.54,"RQ",9.4)=""
^DD(65.54,"RQ",9.5)=""
^DD(65.54,"RQ",9.6)=""
^DD(65.54,"SB",65.546,6.2)=""
^DD(65.54,"SB",65.55,2)=""
^DD(65.54,"SB",65.599,500)=""
^DD(65.54,"SB",65.6,83)=""
^DD(65.54,"SB",65.61,7)=""
^DD(65.54,"SB",65.66,66)=""
^DD(65.546,0)="COLLECTION DISPOSITION COMMENT SUB-FIELD^NL^.01^1"
^DD(65.546,0,"NM","COLLECTION DISPOSITION COMMENT")=""
^DD(65.546,0,"UP")="65.54"
^DD(65.546,.01,0)="COLLECTION DISPOSITION COMMENT^MFX^^0;1^K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)=""Z"" D ^LRUB"
^DD(65.546,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.546,.01,4)="S L(1)=""Z"" D Q^LRUB"
^DD(65.546,.01,21,0)="^^1^1^2911219^^"
^DD(65.546,.01,21,1,0)="Comment(s) about the collection. disposition"
^DD(65.546,.01,"DT")="2880408"
^DD(65.546,"B","COLLECTION DISPOSITION COMMENT",.01)=""
^DD(65.546,"GL",0,1,.01)=""
^DD(65.55,0)="DEFERRAL REASON SUB-FIELD^NL^.01^1"
^DD(65.55,0,"NM","DEFERRAL REASON")=""
^DD(65.55,0,"UP")="65.54"
^DD(65.55,.01,0)="DEFERRAL REASON^M*P65.4'^LAB(65.4,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65.55,.01,21,0)="^^1^1^2911219^^"
^DD(65.55,.01,21,1,0)="Reason(s) for which the donor is (are) deferred."
^DD(65.55,"B","DEFERRAL REASON",.01)=""
^DD(65.55,"GL",0,1,.01)=""
^DD(65.56,0)="RBC ANTIGEN PRESENT SUB-FIELD^NL^1^2"
^DD(65.56,0,"NM","RBC ANTIGEN PRESENT")=""
^DD(65.56,0,"UP")="65.5"
^DD(65.56,.01,0)="RBC ANTIGEN PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.56,.01,4)=""
^DD(65.56,.01,12)="Limits selection to only RBC Antigens"
^DD(65.56,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65.56,.01,21,0)="^^4^4^2870805^"
^DD(65.56,.01,21,1,0)="Antigens identified as present on the red blood cells"
^DD(65.56,.01,21,2,0)=" of the donor.  SNOMED codes can be entered as well as"
^DD(65.56,.01,21,3,0)=" the name of the antigen.  Synonyms can also be used if"
^DD(65.56,.01,21,4,0)=" they have been entered in the function field file (#61.3)."
^DD(65.56,.01,"DT")="2990521"
^DD(65.56,1,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(65.56,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.56,1,"DT")="2860107"
^DD(65.56,"B","COMMENT",1)=""
^DD(65.56,"B","RBC ANTIGEN PRESENT",.01)=""
^DD(65.56,"GL",0,1,.01)=""
^DD(65.56,"GL",0,2,1)=""
^DD(65.57,0)="RBC ANTIGEN ABSENT SUB-FIELD^NL^1^2"
^DD(65.57,0,"NM","RBC ANTIGEN ABSENT")=""
^DD(65.57,0,"UP")="65.5"
^DD(65.57,.01,0)="RBC ANTIGEN ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.57,.01,12)="Limits selection to only RBC Antigens"
^DD(65.57,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""AN"""""""
^DD(65.57,.01,21,0)="^^4^4^2870805^"
^DD(65.57,.01,21,1,0)="Antigens identified as being absent on the red blood cells"
^DD(65.57,.01,21,2,0)=" of the donor.  SNOMED codes as well as the name of the"
^DD(65.57,.01,21,3,0)=" antigen can be entered.  Synonyms can also be entered if"
^DD(65.57,.01,21,4,0)=" they have been entered in the function field file (#61.3)."
^DD(65.57,.01,"DT")="2990521"
^DD(65.57,1,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(65.57,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.57,1,"DT")="2860107"
^DD(65.57,"B","COMMENT",1)=""
^DD(65.57,"B","RBC ANTIGEN ABSENT",.01)=""
^DD(65.57,"GL",0,1,.01)=""
^DD(65.57,"GL",0,2,1)=""
^DD(65.58,0)="HLA ANTIGEN PRESENT SUB-FIELD^NL^1^2"
^DD(65.58,0,"NM","HLA ANTIGEN PRESENT")=""
^DD(65.58,0,"UP")="65.5"
^DD(65.58,.01,0)="HLA ANTIGEN PRESENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.58,.01,12)="Limits selection to only HLA Antigens"
^DD(65.58,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65.58,.01,21,0)="^^1^1^2870805^^"
^DD(65.58,.01,21,1,0)="HLA antigens present on WBCs are entered here."
^DD(65.58,.01,"DT")="2990521"
^DD(65.58,1,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(65.58,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.58,1,"DT")="2860107"
^DD(65.58,"B","COMMENT",1)=""
^DD(65.58,"B","HLA ANTIGEN PRESENT",.01)=""
^DD(65.58,"GL",0,1,.01)=""
^DD(65.58,"GL",0,2,1)=""
^DD(65.59,0)="HLA ANTIGEN ABSENT SUB-FIELD^NL^1^2"
^DD(65.59,0,"NM","HLA ANTIGEN ABSENT")=""
^DD(65.59,0,"UP")="65.5"
^DD(65.59,.01,0)="HLA ANTIGEN ABSENT^M*P61.3'X^LAB(61.3,^0;1^S DIC(""W"")=""W """"  """",$P(^(0),U,2),""""  """",$P(^(0),U,1)"",DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.59,.01,12)="Limits selection to only HLA Antigens"
^DD(65.59,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""HL"""""""
^DD(65.59,.01,21,0)="^^1^1^2870805^^"
^DD(65.59,.01,21,1,0)="HLA antigens absent on the WBCs are entered here"
^DD(65.59,.01,"DT")="2990521"
^DD(65.59,1,0)="COMMENT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(65.59,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(65.59,1,"DT")="2860107"
^DD(65.59,"B","COMMENT",1)=""
^DD(65.59,"B","HLA ANTIGEN ABSENT",.01)=""
^DD(65.59,"GL",0,1,.01)=""
^DD(65.59,"GL",0,2,1)=""
^DD(65.599,0)="WORKLOAD TEST/PROCEDURE SUB-FIELD^^1^2"
^DD(65.599,0,"DT")="2910128"
^DD(65.599,0,"NM","WORKLOAD TEST/PROCEDURE")=""
^DD(65.599,0,"UP")="65.54"
^DD(65.599,.01,0)="WORKLOAD TEST/PROCEDURE^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(65.599,.01,1,0)="^.1^^0"
^DD(65.599,.01,12)="Selects only blood bank tests."
^DD(65.599,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""""
^DD(65.599,.01,21,0)="^^2^2^2901105^"
^DD(65.599,.01,21,1,0)="Tests or procedures containing WKLD codes for donor workload are"
^DD(65.599,.01,21,2,0)=" entered here."
^DD(65.599,.01,"DT")="2901105"
^DD(65.599,1,0)="COMPLETE DATE/TIME^65.5991DA^^1;0"
^DD(65.599,"B","COMPLETE DATE/TIME",1)=""
^DD(65.599,"B","WORKLOAD TEST/PROCEDURE",.01)=""
^DD(65.599,"GL",0,1,.01)=""
^DD(65.599,"GL",1,0,1)=""
^DD(65.599,"SB",65.5991,1)=""
^DD(65.5991,0)="COMPLETE DATE/TIME SUB-FIELD^^1^3"
^DD(65.5991,0,"DT")="2910128"
^DD(65.5991,0,"NM","COMPLETE DATE/TIME")=""
^DD(65.5991,0,"UP")="65.599"
^DD(65.5991,.01,0)="COMPLETE DATE/TIME^MDX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(65.5991,.01,1,0)="^.1"
^DD(65.5991,.01,1,1,0)="65.5^AA^MUMPS"
^DD(65.5991,.01,1,1,1)="S A=$P(^LRE(DA(3),5,DA(2),99,DA(1),1,DA,0),U,3) S:'A ^LRE(""AA"",DA(3),DA(2),DA(1),DA)=$P(^LRE(DA(3),5,DA(2),0),U,4)"
^DD(65.5991,.01,1,1,2)="K ^LRE(""AA"",DA(3),DA(2),DA(1),DA)"
^DD(65.5991,.01,1,1,"%D",0)="^^2^2^2930303^^"
^DD(65.5991,.01,1,1,"%D",1,0)="Used for workload recording.  If x-ref exists workload needs to be "
^DD(65.5991,.01,1,1,"%D",2,0)="counted."
^DD(65.5991,.01,1,1,"DT")="2930303"
^DD(65.5991,.01,"DT")="2930303"
^DD(65.5991,.02,0)="TECH^P200'^VA(200,^0;2^Q"
^DD(65.5991,.02,"DT")="2910128"
^DD(65.5991,1,0)="WKLD CODE^65.59911PA^^1;0"
^DD(65.5991,"B","COMPLETE DATE/TIME",.01)=""
^DD(65.5991,"B","TECH",.02)=""
^DD(65.5991,"B","WKLD CODE",1)=""
^DD(65.5991,"GL",0,1,.01)=""
^DD(65.5991,"GL",0,2,.02)=""
^DD(65.5991,"GL",1,0,1)=""
^DD(65.5991,"IX",.01)=""
^DD(65.5991,"SB",65.59911,1)=""
^DD(65.59911,0)="WKLD CODE SUB-FIELD^^.03^3"
^DD(65.59911,0,"DT")="2910128"
^DD(65.59911,0,"NM","WKLD CODE")=""
^DD(65.59911,0,"UP")="65.5991"
^DD(65.59911,.01,0)="WKLD CODE^MP64'X^LAM(^0;1^S DINUM=X"
^DD(65.59911,.01,1,0)="^.1^^0"
^DD(65.59911,.01,"DT")="2910128"
^DD(65.59911,.02,0)="WKLD CODE COUNT^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.59911,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(65.59911,.02,"DT")="2910128"
^DD(65.59911,.03,0)="WKLD CODE COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(65.59911,.03,"DT")="2910128"
^DD(65.59911,"B","WKLD CODE",.01)=""
^DD(65.59911,"B","WKLD CODE COUNT",.02)=""
^DD(65.59911,"B","WKLD CODE COUNTED",.03)=""
^DD(65.59911,"GL",0,1,.01)=""
^DD(65.59911,"GL",0,2,.02)=""
^DD(65.59911,"GL",0,3,.03)=""
^DD(65.6,0)="SERUM PROTEIN ELECTROPHORESIS SUB-FIELD^NL^.01^1"
^DD(65.6,0,"NM","SERUM PROTEIN ELECTROPHORESIS")=""
^DD(65.6,0,"UP")="65.54"
^DD(65.6,.01,0)="SERUM PROTEIN ELECTROPHORESIS^MF^^0;1^K:$L(X)>80!($L(X)<2) X"
^DD(65.6,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.6,.01,"DT")="2850415"
^DD(65.6,"B","SERUM PROTEIN ELECTROPHORESIS",.01)=""
^DD(65.6,"GL",0,1,.01)=""
^DD(65.61,0)="RBC TYPING METHOD SUB-FIELD^NL^1^4"
^DD(65.61,0,"NM","RBC TYPING METHOD")=""
^DD(65.61,0,"UP")="65.54"
^DD(65.61,.01,0)="RBC TYPING METHOD^S^S:SALINE;M:SERUM;^0;1^Q"
^DD(65.61,.01,21,0)="^^1^1^2911219^"
^DD(65.61,.01,21,1,0)="This is the RBC typing method."
^DD(65.61,.01,"DT")="2850402"
^DD(65.61,.02,0)="TECHNIQUE^RS^S:SLIDE;T:TUBE;A:AUTOMATED;M:MICROPLATE;^0;2^Q"
^DD(65.61,.02,21,0)="^^1^1^2911219^"
^DD(65.61,.02,21,1,0)="This is the RBC typing technique."
^DD(65.61,.02,"DT")="2850402"
^DD(65.61,.03,0)="TECHNOLOGIST^RP200'^VA(200,^0;3^Q"
^DD(65.61,.03,3)=""
^DD(65.61,.03,21,0)="^^2^2^2911219^"
^DD(65.61,.03,21,1,0)="This identifies the technologist performing"
^DD(65.61,.03,21,2,0)="the RBC typing."
^DD(65.61,.03,"DT")="2910630"
^DD(65.61,1,0)="ANTISERUM^65.62PA^^1;0"
^DD(65.61,1,12)="SELECTS ANTISERA ON"
^DD(65.61,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""AB"""""""
^DD(65.61,1,21,0)="^^2^2^2911219^"
^DD(65.61,1,21,1,0)="This is the antiserum used for testing donor's"
^DD(65.61,1,21,2,0)="antibodies."
^DD(65.61,"B","ANTISERUM",1)=""
^DD(65.61,"B","RBC TYPING METHOD",.01)=""
^DD(65.61,"B","TECHNIQUE",.02)=""
^DD(65.61,"B","TECHNOLOGIST",.03)=""
^DD(65.61,"GL",0,1,.01)=""
^DD(65.61,"GL",0,2,.02)=""
^DD(65.61,"GL",0,3,.03)=""
^DD(65.61,"GL",1,0,1)=""
^DD(65.61,"RQ",.02)=""
^DD(65.61,"RQ",.03)=""
^DD(65.61,"SB",65.62,1)=""
^DD(65.62,0)="ANTISERUM SUB-FIELD^NL^.1^10"
^DD(65.62,0,"NM","ANTISERUM")=""
^DD(65.62,0,"UP")="65.61"
^DD(65.62,.01,0)="ANTISERUM^M*P66'^LAB(66,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""AB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65.62,.01,21,0)="^^1^1^2911219^"
^DD(65.62,.01,21,1,0)="This is the antiserum used for testing."
^DD(65.62,.01,"DT")="2850402"
^DD(65.62,.02,0)="LOT #^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(65.62,.02,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(65.62,.02,21,0)="^^1^1^2911219^"
^DD(65.62,.02,21,1,0)="This is the lot number of the antiserum."
^DD(65.62,.02,"DT")="2850402"
^DD(65.62,.03,0)="INTERPRETATION^RS^P:POSITIVE;N:NEGATIVE;U:UNCERTAIN;^0;3^Q"
^DD(65.62,.03,21,0)="^^1^1^2911219^"
^DD(65.62,.03,21,1,0)="This is the interpretation of the donor's antibody screen."
^DD(65.62,.03,"DT")="2850402"
^DD(65.62,.04,0)="IS^FX^^0;4^D ^LRBLAGG"
^DD(65.62,.04,.1)="Immediate spin"
^DD(65.62,.04,3)=""
^DD(65.62,.04,4)="D LST^LRBLAGG"
^DD(65.62,.04,"DT")="2850402"
^DD(65.62,.05,0)="37 C^FX^^0;5^D ^LRBLAGG"
^DD(65.62,.05,.1)="37 degrees centigrade"
^DD(65.62,.05,3)=""
^DD(65.62,.05,4)="D LST^LRBLAGG"
^DD(65.62,.05,"DT")="2850402"
^DD(65.62,.06,0)="AHG^FX^^0;6^D ^LRBLAGG"
^DD(65.62,.06,.1)="Anti-human globulin"
^DD(65.62,.06,3)=""
^DD(65.62,.06,4)="D LST^LRBLAGG"
^DD(65.62,.06,"DT")="2850402"
^DD(65.62,.07,0)="CONTROL CELL^FX^^0;7^D ^LRBLAGG"
^DD(65.62,.07,.1)="Antibody coated control cell"
^DD(65.62,.07,3)=""
^DD(65.62,.07,4)="D LST^LRBLAGG"
^DD(65.62,.07,"DT")="2850402"
^DD(65.62,.08,0)="ROOM TEMP^FX^^0;8^D ^LRBLAGG"
^DD(65.62,.08,.1)="22-24 degrees centigrade"
^DD(65.62,.08,3)=""
^DD(65.62,.08,4)="D LST^LRBLAGG"
^DD(65.62,.08,"DT")="2850402"
^DD(65.62,.09,0)="12-18 C^FX^^0;9^D ^LRBLAGG"
^DD(65.62,.09,.1)="12-18 degrees centigrade"
^DD(65.62,.09,3)=""
^DD(65.62,.09,4)="D LST^LRBLAGG"
^DD(65.62,.09,"DT")="2850402"
^DD(65.62,.1,0)="4 C^FX^^0;10^D ^LRBLAGG"
^DD(65.62,.1,.1)="4 degrees centigrade"
^DD(65.62,.1,3)=""
^DD(65.62,.1,4)="D LST^LRBLAGG"
^DD(65.62,.1,"DT")="2850402"
^DD(65.62,"B","12-18 C",.09)=""
^DD(65.62,"B","12-18 degrees centigrade",.09)="1"
^DD(65.62,"B","22-24 degrees centigrade",.08)="1"
^DD(65.62,"B","37 C",.05)=""
^DD(65.62,"B","37 degrees centigrade",.05)="1"
^DD(65.62,"B","4 C",.1)=""
^DD(65.62,"B","4 degrees centigrade",.1)="1"
^DD(65.62,"B","AHG",.06)=""
^DD(65.62,"B","ANTISERUM",.01)=""
^DD(65.62,"B","Anti-human globulin",.06)="1"
^DD(65.62,"B","Antibody coated control cell",.07)="1"
^DD(65.62,"B","CONTROL CELL",.07)=""
^DD(65.62,"B","INTERPRETATION",.03)=""
^DD(65.62,"B","IS",.04)=""
^DD(65.62,"B","Immediate spin",.04)="1"
^DD(65.62,"B","LOT #",.02)=""
^DD(65.62,"B","ROOM TEMP",.08)=""
^DD(65.62,"GL",0,1,.01)=""
^DD(65.62,"GL",0,2,.02)=""
^DD(65.62,"GL",0,3,.03)=""
^DD(65.62,"GL",0,4,.04)=""
^DD(65.62,"GL",0,5,.05)=""
^DD(65.62,"GL",0,6,.06)=""
^DD(65.62,"GL",0,7,.07)=""
^DD(65.62,"GL",0,8,.08)=""
^DD(65.62,"GL",0,9,.09)=""
^DD(65.62,"GL",0,10,.1)=""
^DD(65.62,"RQ",.03)=""
^DD(65.66,0)="BLOOD COMPONENT SUB-FIELD^NL^3^11"
^DD(65.66,0,"IX","B",65.66,.01)=""
^DD(65.66,0,"NM","BLOOD COMPONENT")=""
^DD(65.66,0,"UP")="65.54"
^DD(65.66,.01,0)="BLOOD COMPONENT^M*P66'X^LAB(66,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""BB""""""_$S($D(LRB(8)):"",$P(^(0),U,12)=LRB(8)"",1:"""") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(65.66,.01,1,0)="^.1"
^DD(65.66,.01,1,1,0)="65.66^B"
^DD(65.66,.01,1,1,1)="S ^LRE(DA(2),5,DA(1),66,""B"",$E(X,1,30),DA)="""""
^DD(65.66,.01,1,1,2)="K ^LRE(DA(2),5,DA(1),66,""B"",$E(X,1,30),DA)"
^DD(65.66,.01,3)="The selection must be a blood component."
^DD(65.66,.01,4)="W !?6,""The anticoagulant in the collection bag"",!?6,""must be appropriate to the component selected."",!?6,""Number of components selected cannot exceed number"",!?6,""allowed for the primary collection bag."""
^DD(65.66,.01,21,0)="^^1^1^2911219^^"
^DD(65.66,.01,21,1,0)="Blood component prepared from collection."
^DD(65.66,.01,"DT")="2861226"
^DD(65.66,.02,0)="COMPONENT DISP DATE/TIME^DX^^0;2^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(65.66,.02,.1)="DATE/TIME OF COMPONENT DISPOSITION"
^DD(65.66,.02,21,0)="^^2^2^2911219^^"
^DD(65.66,.02,21,1,0)="Date/time at which the component was released to stock,"
^DD(65.66,.02,21,2,0)=" quarantined or discarded."
^DD(65.66,.02,"DT")="2890105"
^DD(65.66,.03,0)="DATE/TIME STORED^RDX^^0;3^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) K:X'[""."" X I $D(X) S T=$S($D(^LRE(DA(2),5,DA(1),2)):$P(^(2),U,4),1:"""") K:X<T X D:$D(X) ^LRUT"
^DD(65.66,.03,4)="K DZ W !!,""Must enter DATE and TIME"",!,""Time stored must not be earlier than time processed"",!,""Future date/time not allowed."""
^DD(65.66,.03,21,0)="^^1^1^2911219^^"
^DD(65.66,.03,21,1,0)="Date/time component stored."
^DD(65.66,.03,"DT")="2851110"
^DD(65.66,.04,0)="EXPIRATION DATE^RDX^^0;4^S %DT=""ETXF"",%DT(0)=""N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(65.66,.04,3)="Cannot enter expired components."
^DD(65.66,.04,4)="K DZ"
^DD(65.66,.04,21,0)="^^1^1^2911219^^"
^DD(65.66,.04,21,1,0)="Expiration date/time of component prepared."
^DD(65.66,.04,"DT")="2990524"
^DD(65.66,.05,0)="COMPONENT VOL (ml)^NJ3,0^^0;5^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.66,.05,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 500"
^DD(65.66,.05,21,0)="^^1^1^2911219^^"
^DD(65.66,.05,21,1,0)="Volume in milliliters (ml) of component prepared."
^DD(65.66,.05,"DT")="2860126"
^DD(65.66,.06,0)="TECH LABELING^P200'^VA(200,^0;6^Q"
^DD(65.66,.06,3)=""
^DD(65.66,.06,21,0)="^^2^2^2911219^^"
^DD(65.66,.06,21,1,0)="This is the person initially reviewing the donor results and if"
^DD(65.66,.06,21,2,0)="appropriate, placing the correct labels on the component."
^DD(65.66,.06,"DT")="2910630"
^DD(65.66,.07,0)="DISPOSITION TECH^P200'^VA(200,^0;7^Q"
^DD(65.66,.07,3)=""
^DD(65.66,.07,21,0)="^^3^3^2911219^^"
^DD(65.66,.07,21,1,0)="Person verifying that the donor results and the"
^DD(65.66,.07,21,2,0)=" labelling are acceptable and that the component"
^DD(65.66,.07,21,3,0)=" can be released to inventory."
^DD(65.66,.07,"DT")="2910630"
^DD(65.66,.08,0)="COMPONENT DISPOSITION^S^0:RELEASE COMPONENT;1:QUARANTINE;2:DISCARD;^0;8^Q"
^DD(65.66,.08,21,0)="^^1^1^2911219^^"
^DD(65.66,.08,21,1,0)="This is the disposition of component."
^DD(65.66,.08,"DT")="2860113"
^DD(65.66,1,0)="COMPONENT DISPOSITION COMMENT^65.67A^^1;0"
^DD(65.66,1,21,0)="^^2^2^2911219^"
^DD(65.66,1,21,1,0)="This is a comment concerning the component"
^DD(65.66,1,21,2,0)="disposition."
^DD(65.66,2,0)="SEDIMENTING AGENT^F^^2;1^K:$L(X)>30!($L(X)<2) X"
^DD(65.66,2,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.66,2,21,0)="^^2^2^2911219^"
^DD(65.66,2,21,1,0)="This is the sedimenting agent used on this"
^DD(65.66,2,21,2,0)="component."
^DD(65.66,2,"DT")="2860113"
^DD(65.66,3,0)="DRUG^F^^3;1^K:$L(X)>30!($L(X)<2) X"
^DD(65.66,3,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(65.66,3,21,0)="^^1^1^2911219^"
^DD(65.66,3,21,1,0)="This drug is associated with this component."
^DD(65.66,"B","BLOOD COMPONENT",.01)=""
^DD(65.66,"B","COMPONENT DISP DATE/TIME",.02)=""
^DD(65.66,"B","COMPONENT DISPOSITION",.08)=""
^DD(65.66,"B","COMPONENT DISPOSITION COMMENT",1)=""
^DD(65.66,"B","COMPONENT VOL (ml)",.05)=""
^DD(65.66,"B","DATE/TIME STORED",.03)=""
^DD(65.66,"B","DISPOSITION TECH",.07)=""
^DD(65.66,"B","DRUG",3)=""
^DD(65.66,"B","EXPIRATION DATE",.04)=""
^DD(65.66,"B","SEDIMENTING AGENT",2)=""
^DD(65.66,"B","TECH LABELING",.06)=""
^DD(65.66,"GL",0,1,.01)=""
^DD(65.66,"GL",0,2,.02)=""
^DD(65.66,"GL",0,3,.03)=""
^DD(65.66,"GL",0,4,.04)=""
^DD(65.66,"GL",0,5,.05)=""
^DD(65.66,"GL",0,6,.06)=""
^DD(65.66,"GL",0,7,.07)=""
^DD(65.66,"GL",0,8,.08)=""
^DD(65.66,"GL",1,0,1)=""
^DD(65.66,"GL",2,1,2)=""
^DD(65.66,"GL",3,1,3)=""
^DD(65.66,"IX",.01)=""
^DD(65.66,"RQ",.03)=""
^DD(65.66,"RQ",.04)=""
^DD(65.66,"SB",65.67,1)=""
^DD(65.67,0)="COMPONENT DISPOSITION COMMENT SUB-FIELD^NL^.01^1"
^DD(65.67,0,"NM","COMPONENT DISPOSITION COMMENT")=""
^DD(65.67,0,"UP")="65.66"
^DD(65.67,.01,0)="COMPONENT DISPOSITION COMMENT^MFX^^0;1^K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)=""D"" D ^LRUB"
^DD(65.67,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(65.67,.01,4)="S L(1)=""D"" D Q^LRUB"
^DD(65.67,.01,21,0)="^^1^1^2911219^^^^"
^DD(65.67,.01,21,1,0)="This is the reason component quarantined or discarded."
^DD(65.67,.01,"DT")="2880408"
^DD(65.67,"B","COMPONENT DISPOSITION COMMENT",.01)=""
^DD(65.67,"GL",0,1,.01)=""
^DD(65.9,0)="FIELD^^7^23"
^DD(65.9,0,"DDA")="N"
^DD(65.9,0,"DT")="2920629"
^DD(65.9,0,"IX","B",65.9,.01)=""
^DD(65.9,0,"NM","LAB LETTER")=""
^DD(65.9,0,"VR")="5.2"
^DD(65.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(65.9,.01,1,0)="^.1"
^DD(65.9,.01,1,1,0)="65.9^B"
^DD(65.9,.01,1,1,1)="S ^LAB(65.9,""B"",$E(X,1,30),DA)="""""
^DD(65.9,.01,1,1,2)="K ^LAB(65.9,""B"",$E(X,1,30),DA)"
^DD(65.9,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(65.9,.01,21,0)="^^1^1^2930329^"
^DD(65.9,.01,21,1,0)="The name of the lab letter entered"
^DD(65.9,.02,0)="SCREEN^RS^0:PRE-VISIT;1:POST-VISIT;2:CONSULT;3:LETTER;^0;2^Q"
^DD(65.9,.02,21,0)="^^1^1^2920629^^^"
^DD(65.9,.02,21,1,0)="Screens entries for pre and post donor visits, consults and letters."
^DD(65.9,.02,"DT")="2920629"
^DD(65.9,.03,0)="TOP MARGIN OF PAGE^NJ2,0^^0;3^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.9,.03,3)="Type a Number between 1 and 20"
^DD(65.9,.03,21,0)="^^2^2^2890215^^"
^DD(65.9,.03,21,1,0)="Number of blank lines from top of page"
^DD(65.9,.03,21,2,0)=" to first line of print."
^DD(65.9,.04,0)="BOTTOM MARGIN OF PAGE^NJ2,0^^0;4^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.9,.04,3)="Type a Number between 1 and 20"
^DD(65.9,.04,21,0)="^^2^2^2890215^"
^DD(65.9,.04,21,1,0)="Number of lines to be blank from last line of letter text"
^DD(65.9,.04,21,2,0)=" to bottom of page."
^DD(65.9,.04,"DT")="2890215"
^DD(65.9,.05,0)="LEFT LETTER TEXT MARGIN^NJ2,0^^0;5^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.9,.05,3)="Type a Number between 0 and 30"
^DD(65.9,.05,21,0)="^^2^2^2890215^^"
^DD(65.9,.05,21,1,0)="The number of columns to indent to the right"
^DD(65.9,.05,21,2,0)=" of the left edge of the page."
^DD(65.9,.05,"DT")="2890215"
^DD(65.9,.06,0)="RIGHT LETTER TEXT MARGIN^NJ2,0^^0;6^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.9,.06,3)="Type a Number between 0 and 30"
^DD(65.9,.06,21,0)="^^2^2^2890215^^"
^DD(65.9,.06,21,1,0)="The number of columns to indent to the left of"
^DD(65.9,.06,21,2,0)=" the right side of the page."
^DD(65.9,.06,"DT")="2890215"
^DD(65.9,.07,0)="DOUBLE SPACE^S^1:YES;0:NO;1:yes;0:no;^0;7^Q"
^DD(65.9,.07,21,0)="^^2^2^2930327^"
^DD(65.9,.07,21,1,0)=" This field indicates if double spacing should be used when printing this"
^DD(65.9,.07,21,2,0)="letter."
^DD(65.9,.07,"DT")="2890215"
^DD(65.9,.08,0)="RIGHT JUSTIFY TEXT^S^1:YES;0:NO;1:yes;0:no;^0;8^Q"
^DD(65.9,.08,3)=""
^DD(65.9,.08,21,0)="^^1^1^2890215^"
^DD(65.9,.08,21,1,0)="Right-justify the letter text over to the right margin."
^DD(65.9,.09,0)="ACCESSION AREA^R*P68'X^LRO(68,^0;9^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(65.9,.09,12)="You can not select a accession area designated Work Area."
^DD(65.9,.09,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(65.9,.09,21,0)="^^1^1^2930327^"
^DD(65.9,.09,21,1,0)="  This field contains which accession area this letter is associated with."
^DD(65.9,.09,"DT")="2920629"
^DD(65.9,1.1,0)="SENDER LINES LEFT MARGIN^NJ2,0^^1;1^K:+X'=X!(X>40)!(X<0)!(X?.E1"".""1N.N) X"
^DD(65.9,1.1,3)="Type a Number between 0 and 40"
^DD(65.9,1.1,21,0)="^^1^1^2930327^"
^DD(65.9,1.1,21,1,0)=" This field is used to set up the left margin of the letter during printing."
^DD(65.9,1.1,"DT")="2890215"
^DD(65.9,1.2,0)="SENDER LINE 1^F^^1;2^K:$L(X)>40!($L(X)<1) X"
^DD(65.9,1.2,3)="Answer must be 1-40 characters in length."
^DD(65.9,1.2,21,0)="^^1^1^2930329^^"
^DD(65.9,1.2,21,1,0)="Line 1 name where letter is sent"
^DD(65.9,1.3,0)="SENDER LINE 2^F^^1;3^K:$L(X)>40!($L(X)<1) X"
^DD(65.9,1.3,3)="Answer must be 1-40 characters in length."
^DD(65.9,1.3,21,0)="^^1^1^2930329^^"
^DD(65.9,1.3,21,1,0)="Line 2 where letter is sent"
^DD(65.9,1.4,0)="SENDER LINE 3^F^^1;4^K:$L(X)>40!($L(X)<1) X"
^DD(65.9,1.4,3)="Answer must be 1-40 characters in length."
^DD(65.9,1.4,21,0)="^^1^1^2930329^"
^DD(65.9,1.4,21,1,0)="Line 3 where letter is sent"
^DD(65.9,1.5,0)="SENDER LINE 4^F^^1;5^K:$L(X)>40!($L(X)<1) X"
^DD(65.9,1.5,3)="Answer must be 1-40 characters in length."
^DD(65.9,1.5,21,0)="^^1^1^2930329^"
^DD(65.9,1.5,21,1,0)="Line 4 where letter is sent"
^DD(65.9,1.5,"DT")="2890215"
^DD(65.9,1.6,0)="SENDER LINE 5^F^^1;6^K:$L(X)>40!($L(X)<1) X"
^DD(65.9,1.6,3)="Answer must be 1-40 characters in length."
^DD(65.9,1.6,21,0)="^^1^1^2930329^"
^DD(65.9,1.6,21,1,0)="Line 5 where letter is sent"
^DD(65.9,1.6,"DT")="2890215"
^DD(65.9,2,0)="LETTER TEXT^65.91^^2;0"
^DD(65.9,2,21,0)="^^1^1^2930327^"
^DD(65.9,2,21,1,0)="  This field contains the text (body) of the letter."
^DD(65.9,3.1,0)="SENDER NAME LINE 1^F^^3;1^K:$L(X)>40!($L(X)<2) X"
^DD(65.9,3.1,3)="Answer must be 2-40 characters in length."
^DD(65.9,3.1,21,0)="^^1^1^2930329^"
^DD(65.9,3.1,21,1,0)="Name of sender of line 1"
^DD(65.9,3.1,"DT")="2890222"
^DD(65.9,3.2,0)="SENDER NAME LINE 2^F^^3;2^K:$L(X)>40!($L(X)<2) X"
^DD(65.9,3.2,3)="Answer must be 2-40 characters in length."
^DD(65.9,3.2,21,0)="^^1^1^2930329^"
^DD(65.9,3.2,21,1,0)="Name of sender of line 2"
^DD(65.9,3.2,"DT")="2890222"
^DD(65.9,3.3,0)="LINES FROM TEXT TO SENDER NAME^NJ2,0^^3;3^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(65.9,3.3,3)="Type a Number between 1 and 10"
^DD(65.9,3.3,21,0)="^^2^2^2890222^"
^DD(65.9,3.3,21,1,0)="The number of blank lines from the bottom of the letter"
^DD(65.9,3.3,21,2,0)=" to the name of the sender."
^DD(65.9,3.3,"DT")="2890222"
^DD(65.9,4,0)="PARAGRAPH 1^65.94^^4;0"
^DD(65.9,4,21,0)="^^1^1^2930329^"
^DD(65.9,4,21,1,0)="Text of first paragraph"
^DD(65.9,5,0)="PARAGRAPH 2^65.95^^5;0"
^DD(65.9,5,21,0)="^^1^1^2930329^"
^DD(65.9,5,21,1,0)="Text of second paragraph"
^DD(65.9,6,0)="PARAGRAPH 3^65.96^^6;0"
^DD(65.9,6,21,0)="^^1^1^2930329^"
^DD(65.9,6,21,1,0)="Text of third paragraph"
^DD(65.9,7,0)="PARAGRAPH 4^65.97^^7;0"
^DD(65.9,7,21,0)="^^1^1^2930329^"
^DD(65.9,7,21,1,0)="Text of fourth paragraph"
^DD(65.9,"B","ACCESSION AREA",.09)=""
^DD(65.9,"B","BOTTOM MARGIN OF PAGE",.04)=""
^DD(65.9,"B","DOUBLE SPACE",.07)=""
^DD(65.9,"B","LEFT LETTER TEXT MARGIN",.05)=""
^DD(65.9,"B","LETTER TEXT",2)=""
^DD(65.9,"B","LINES FROM TEXT TO SENDER NAME",3.3)=""
^DD(65.9,"B","NAME",.01)=""
^DD(65.9,"B","PARAGRAPH 1",4)=""
^DD(65.9,"B","PARAGRAPH 2",5)=""
^DD(65.9,"B","PARAGRAPH 3",6)=""
^DD(65.9,"B","PARAGRAPH 4",7)=""
^DD(65.9,"B","RIGHT JUSTIFY TEXT",.08)=""
^DD(65.9,"B","RIGHT LETTER TEXT MARGIN",.06)=""
^DD(65.9,"B","SCREEN",.02)=""
^DD(65.9,"B","SENDER LINE 1",1.2)=""
^DD(65.9,"B","SENDER LINE 2",1.3)=""
^DD(65.9,"B","SENDER LINE 3",1.4)=""
^DD(65.9,"B","SENDER LINE 4",1.5)=""
^DD(65.9,"B","SENDER LINE 5",1.6)=""
^DD(65.9,"B","SENDER LINES LEFT MARGIN",1.1)=""
^DD(65.9,"B","SENDER NAME LINE 1",3.1)=""
^DD(65.9,"B","SENDER NAME LINE 2",3.2)=""
^DD(65.9,"B","TOP MARGIN OF PAGE",.03)=""
^DD(65.9,"GL",0,1,.01)=""
^DD(65.9,"GL",0,2,.02)=""
^DD(65.9,"GL",0,3,.03)=""
^DD(65.9,"GL",0,4,.04)=""
^DD(65.9,"GL",0,5,.05)=""
^DD(65.9,"GL",0,6,.06)=""
^DD(65.9,"GL",0,7,.07)=""
^DD(65.9,"GL",0,8,.08)=""
^DD(65.9,"GL",0,9,.09)=""
^DD(65.9,"GL",1,1,1.1)=""
^DD(65.9,"GL",1,2,1.2)=""
^DD(65.9,"GL",1,3,1.3)=""
^DD(65.9,"GL",1,4,1.4)=""
^DD(65.9,"GL",1,5,1.5)=""
^DD(65.9,"GL",1,6,1.6)=""
^DD(65.9,"GL",2,0,2)=""
^DD(65.9,"GL",3,1,3.1)=""
^DD(65.9,"GL",3,2,3.2)=""
^DD(65.9,"GL",3,3,3.3)=""
^DD(65.9,"GL",4,0,4)=""
^DD(65.9,"GL",5,0,5)=""
^DD(65.9,"GL",6,0,6)=""
^DD(65.9,"GL",7,0,7)=""
^DD(65.9,"IX",.01)=""
^DD(65.9,"RQ",.01)=""
^DD(65.9,"RQ",.02)=""
^DD(65.9,"RQ",.09)=""
^DD(65.9,"SB",65.91,2)=""
^DD(65.9,"SB",65.94,4)=""
^DD(65.9,"SB",65.95,5)=""
^DD(65.9,"SB",65.96,6)=""
^DD(65.9,"SB",65.97,7)=""
^DD(65.91,0)="LETTER TEXT SUB-FIELD^^.01^1"
^DD(65.91,0,"DT")="2940824"
^DD(65.91,0,"NM","LETTER TEXT")=""
^DD(65.91,0,"UP")="65.9"
^DD(65.91,.01,0)="LETTER TEXT^W^^0;1^Q"
^DD(65.91,.01,"DT")="2940824"
^DD(65.91,"B","LETTER TEXT",.01)=""
^DD(65.91,"GL",0,1,.01)=""
^DD(65.94,0)="PARAGRAPH 1 SUB-FIELD^^.01^1"
^DD(65.94,0,"IX","B",65.94,.01)=""
^DD(65.94,0,"NM","PARAGRAPH 1")=""
^DD(65.94,0,"UP")="65.9"
^DD(65.94,.01,0)="PARAGRAPH 1^W^^0;1^Q"
^DD(65.94,.01,1,0)="^.1"
^DD(65.94,.01,1,1,0)="65.94^B"
^DD(65.94,.01,1,1,1)="S ^LAB(65.9,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(65.94,.01,1,1,2)="K ^LAB(65.9,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(65.94,.01,"DT")="2890312"
^DD(65.94,"B","PARAGRAPH 1",.01)=""
^DD(65.94,"GL",0,1,.01)=""
^DD(65.94,"IX",.01)=""
^DD(65.95,0)="PARAGRAPH 2 SUB-FIELD^^.01^1"
^DD(65.95,0,"IX","B",65.95,.01)=""
^DD(65.95,0,"NM","PARAGRAPH 2")=""
^DD(65.95,0,"UP")="65.9"
^DD(65.95,.01,0)="PARAGRAPH 2^W^^0;1^Q"
^DD(65.95,.01,1,0)="^.1"
^DD(65.95,.01,1,1,0)="65.95^B"
^DD(65.95,.01,1,1,1)="S ^LAB(65.9,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(65.95,.01,1,1,2)="K ^LAB(65.9,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(65.95,.01,"DT")="2890312"
^DD(65.95,"B","PARAGRAPH 2",.01)=""
^DD(65.95,"GL",0,1,.01)=""
^DD(65.95,"IX",.01)=""
^DD(65.96,0)="PARAGRAPH 3 SUB-FIELD^^.01^1"
^DD(65.96,0,"IX","B",65.96,.01)=""
^DD(65.96,0,"NM","PARAGRAPH 3")=""
^DD(65.96,0,"UP")="65.9"
^DD(65.96,.01,0)="PARAGRAPH 3^W^^0;1^Q"
^DD(65.96,.01,1,0)="^.1"
^DD(65.96,.01,1,1,0)="65.96^B"
^DD(65.96,.01,1,1,1)="S ^LAB(65.9,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(65.96,.01,1,1,2)="K ^LAB(65.9,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(65.96,.01,"DT")="2890312"
^DD(65.96,"B","PARAGRAPH 3",.01)=""
^DD(65.96,"GL",0,1,.01)=""
^DD(65.96,"IX",.01)=""
^DD(65.97,0)="PARAGRAPH 4 SUB-FIELD^^.01^1"
^DD(65.97,0,"IX","B",65.97,.01)=""
^DD(65.97,0,"NM","PARAGRAPH 4")=""
^DD(65.97,0,"UP")="65.9"
^DD(65.97,.01,0)="PARAGRAPH 4^W^^0;1^Q"
^DD(65.97,.01,1,0)="^.1"
^DD(65.97,.01,1,1,0)="65.97^B"
^DD(65.97,.01,1,1,1)="S ^LAB(65.9,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(65.97,.01,1,1,2)="K ^LAB(65.9,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(65.97,.01,"DT")="2890312"
^DD(65.97,"B","PARAGRAPH 4",.01)=""
^DD(65.97,"GL",0,1,.01)=""
^DD(65.97,"IX",.01)=""
^DD(65.99,0)="PERMANENT DEFERRAL REASON SUB-FIELD^NL^.01^1"
^DD(65.99,0,"NM","PERMANENT DEFERRAL REASON")=""
^DD(65.99,0,"UP")="65.5"
^DD(65.99,.01,0)="PERMANENT DEFERRAL REASON^W^^0;1^Q"
^DD(65.99,.01,3)="Describe the reasons why donor is permanently rejected from donating."
^DD(65.99,.01,21,0)="^^1^1^2870805^"
^DD(65.99,.01,21,1,0)="Reason(s) why donor is permanently deferred"
^DD(65.99,.01,"DT")="2850402"
^DD(65.99,"B","PERMANENT DEFERRAL REASON",.01)=""
^DD(65.99,"GL",0,1,.01)=""
^DD(66,0)="FIELD^NL^500^40"
^DD(66,0,"DT")="2931230"
^DD(66,0,"ID",.05)="W:$D(^(0)) "" "",$P(^(0),U,5)"
^DD(66,0,"ID",.1)="W """""
^DD(66,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(66,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(66,0,"IX","B",66,.01)=""
^DD(66,0,"IX","B",66,.02)=""
^DD(66,0,"IX","C",66.021,.01)=""
^DD(66,0,"IX","D",66,.05)=""
^DD(66,0,"NM","BLOOD PRODUCT")=""
^DD(66,0,"PT",63.015,.02)=""
^DD(66,0,"PT",63.017,.02)=""
^DD(66,0,"PT",63.019,.01)=""
^DD(66,0,"PT",63.084,.01)=""
^DD(66,0,"PT",64.023,.01)=""
^DD(66,0,"PT",65,.04)=""
^DD(66,0,"PT",65.091,.01)=""
^DD(66,0,"PT",65.62,.01)=""
^DD(66,0,"PT",65.66,.01)=""
^DD(66,0,"PT",66,.22)=""
^DD(66,0,"PT",66,9)=""
^DD(66,0,"PT",66.03,.01)=""
^DD(66,0,"PT",66.51,.01)=""
^DD(66,0,"PT",66.91,.01)=""
^DD(66,0,"VR")="5.2"
^DD(66,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(66,.01,1,0)="^.1"
^DD(66,.01,1,1,0)="66^B"
^DD(66,.01,1,1,1)="S ^LAB(66,""B"",$E(X,1,30),DA)="""""
^DD(66,.01,1,1,2)="K ^LAB(66,""B"",$E(X,1,30),DA)"
^DD(66,.01,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(66,.01,21,0)="^^1^1^2920107^^^^"
^DD(66,.01,21,1,0)="Name of blood component, reagent or service supplied to blood bank."
^DD(66,.01,"DT")="2850322"
^DD(66,.02,0)="ABBREVIATION^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X I $D(X),$D(^LAB(66,""B"",X)) W !,""Already exists"" K X"
^DD(66,.02,1,0)="^.1"
^DD(66,.02,1,1,0)="66^B^MNEMONIC"
^DD(66,.02,1,1,1)="S ^LAB(66,""B"",$E(X,1,30),DA)=1"
^DD(66,.02,1,1,2)="K ^LAB(66,""B"",$E(X,1,30),DA)"
^DD(66,.02,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(66,.02,21,0)="^^1^1^2850509^^^"
^DD(66,.02,21,1,0)="The abbreviation of the ITEM"
^DD(66,.02,"DT")="2851015"
^DD(66,.03,0)="CAN BE MODIFIED^S^1:YES;0:NO;^0;3^Q"
^DD(66,.03,21,0)="^^1^1^2850510^"
^DD(66,.03,21,1,0)="If product can be modified (divided, washed, frozen, pooled, made leukocyte poor, rejuvenated, or deglycerolized) answer prompt with YES."
^DD(66,.03,"DT")="2860109"
^DD(66,.04,0)="IDENTIFIER^RS^BB:COMPONENT/DERIVATIVE;AB:ANTISERUM;T:TEST PROVIDED;^0;4^Q"
^DD(66,.04,21,0)="^^1^1^2920107^^^"
^DD(66,.04,21,1,0)="Identifies if entry is a blood component for transfusion, a reagent used in blood banking or a product for manufacturing use only."
^DD(66,.04,"DT")="2870107"
^DD(66,.05,0)="PRODUCT CODE^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?1E.E) X"
^DD(66,.05,1,0)="^.1"
^DD(66,.05,1,1,0)="66^D"
^DD(66,.05,1,1,1)="S ^LAB(66,""D"",$E(X,1,30),DA)="""""
^DD(66,.05,1,1,2)="K ^LAB(66,""D"",$E(X,1,30),DA)"
^DD(66,.05,3)="ENTER 1-8 CHARACTERS ONLY"
^DD(66,.05,21,0)="^.001^6^6^3001017^^^^"
^DD(66,.05,21,1,0)="Product code conforms to the uniform labeling of blood and blood "
^DD(66,.05,21,2,0)="components described in either the UNIFORM LABELING OF BLOOD AND "
^DD(66,.05,21,3,0)="BLOOD COMPONENTS: USERS' GUIDE SEPTEMBER 1982 (Codabar) or the "
^DD(66,.05,21,4,0)="United States Industry Consensus Standard for the Uniform Labeling "
^DD(66,.05,21,5,0)="of Blood and Blood Components Using ISBT 128, v 1.2.0 "
^DD(66,.05,21,6,0)="November 1999."
^DD(66,.05,"DT")="3001011"
^DD(66,.055,0)="DOD CODE^F^^0;20^K:$L(X)>5!($L(X)<2) X"
^DD(66,.055,3)="ANSWER MUST BE 2-5 CHARACTERS IN LENGTH"
^DD(66,.055,21,0)="^^2^2^2880319^^"
^DD(66,.055,21,1,0)="Product codes for the purpose of shipping blood component"
^DD(66,.055,21,2,0)=" inventory by Department of Defense (DOD) facilities."
^DD(66,.055,"DT")="2880317"
^DD(66,.06,0)="MODIFICATION CRITERIA^S^D:DIVIDED;P:POOLED;W:WASHED;F:FROZEN;L:LEUKOCYTE POOR;R:REJUVENATED;G:DEGLYCEROLIZED;I:IRRADIATED;S:SEPARATED;^0;6^Q"
^DD(66,.06,21,0)="^^3^3^2930610^^^^"
^DD(66,.06,21,1,0)="If this product can be made from another product present in inventory enter appropriate response."
^DD(66,.06,21,2,0)="If selection is D (DIVIDED) a single letter suffix will be appended (from A-E) to the unit ID depending upon the number of aliquots up to 5."
^DD(66,.06,21,3,0)=" This field is used to trigger the appropriate prompts if the new product(s) will be divided units or a pool."
^DD(66,.06,"DT")="2930610"
^DD(66,.07,0)="PATIENT/PRODUCT ABO^S^1:MUST MATCH;2:MUST BE COMPATIBLE;^0;7^Q"
^DD(66,.07,21,0)="^^1^1^2870805^^^"
^DD(66,.07,21,1,0)="Either the patient and product ABO group must match or be compatible"
^DD(66,.07,"DT")="2850520"
^DD(66,.08,0)="PATIENT/PRODUCT RH^S^1:MUST MATCH;2:MUST BE COMPATIBLE;^0;8^Q"
^DD(66,.08,3)=""
^DD(66,.08,21,0)="^^1^1^2870805^"
^DD(66,.08,21,1,0)="Either the patient and product RH type must match or be compatible"
^DD(66,.09,0)="PATIENT/PRODUCT REQUIREMENT^S^1:CROSSMATCH;2:PLASMA/PATIENT COMPATIBILITY;^0;9^Q"
^DD(66,.09,3)=""
^DD(66,.09,21,0)="^^3^3^2920107^^"
^DD(66,.09,21,1,0)="If the product requires a crossmatch enter 'CROSSMATCH'"
^DD(66,.09,21,2,0)=" If the product requires patient plasma compatibility enter"
^DD(66,.09,21,3,0)=" 'PLASMA/PATIENT COMPATIBILITY'"
^DD(66,.09,"DT")="2850730"
^DD(66,.1,0)="VOLUME (ml)^RNJ4,0^^0;10^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(66,.1,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(66,.1,21,0)="^^1^1^2920107^^"
^DD(66,.1,21,1,0)="Enter the usual volume in milliliters (ml) of the component"
^DD(66,.1,"DT")="2880531"
^DD(66,.11,0)="DAYS LEFT^NJ7,2^^0;11^K:+X'=X!(X>2557)!(X<.16)!(X?.E1"".""3N.N) X"
^DD(66,.11,3)="Type a Number between .16 and 2557, 2 Decimal Digits"
^DD(66,.11,21,0)="^^2^2^2920107^^^^"
^DD(66,.11,21,1,0)="If this product made from another one in INVENTORY enter number"
^DD(66,.11,21,2,0)=" of days left before the newly made component will expire."
^DD(66,.11,"DT")="2880606"
^DD(66,.12,0)="ANTICOAGULANT/ADDITIVE^S^1:CPD;2:ACD;3:CPDA-1;4:ADSOL;^0;12^Q"
^DD(66,.12,21,0)="^^1^1^2960520^^^^"
^DD(66,.12,21,1,0)="Enter the anticoagulant mixed with the component"
^DD(66,.12,"DT")="2951008"
^DD(66,.13,0)="COLLECTION/PREP HOURS^NJ1,0XO^^0;13^K:+X'=X!(X>144)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S X=X*60"
^DD(66,.13,2)="S Y(0)=Y S Y=Y\60"
^DD(66,.13,2.1)="S Y=Y\60"
^DD(66,.13,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 144"
^DD(66,.13,21,0)="^^3^3^2920107^^^^"
^DD(66,.13,21,1,0)="The maximum hours allowed between blood collection and "
^DD(66,.13,21,2,0)=" preparation of component.  If no entry no checking will be done."
^DD(66,.13,21,3,0)=" If maximum hours exceeded component cannot be prepared."
^DD(66,.13,"DT")="2870106"
^DD(66,.135,0)="MAXIMUM STORAGE DAYS^RNJ7,2X^^0;17^K:+X'=X!(X>3652)!(X<.16)!(X?.E1"".""3N.N) X"
^DD(66,.135,.1)=""
^DD(66,.135,3)="TYPE A NUMBER BETWEEN .16 AND 3652 (4hr to 10 yrs)"
^DD(66,.135,11,0)="^.2LAP"
^DD(66,.135,21,0)="^^1^1^2920107^^^"
^DD(66,.135,21,1,0)="Maximum storage time from time of donation or preparation."
^DD(66,.135,"DT")="2880711"
^DD(66,.14,0)="MODIFIED BEFORE RELEASE^S^1:YES;0:NO;^0;14^Q"
^DD(66,.14,.1)="COMPONENT MUST BE MODIFIED PRIOR TO RELEASE"
^DD(66,.14,21,0)="^^2^2^2920107^^"
^DD(66,.14,21,1,0)="If component must be further modified before release (ex. frozen RBC must"
^DD(66,.14,21,2,0)=" be deglycerolized before transfusion) a 'YES' is entered."
^DD(66,.14,"DT")="2850718"
^DD(66,.15,0)="CAN BE REQUESTED^S^1:YES;0:NO;^0;15^Q"
^DD(66,.15,.1)=""
^DD(66,.15,3)=""
^DD(66,.15,21,0)="^^1^1^2920107^^^"
^DD(66,.15,21,1,0)="If component can be requested for a patient a 'YES' is entered."
^DD(66,.15,"DT")="2850725"
^DD(66,.16,0)="PATIENT SPECIMEN AGE ALLOWED^NJ3,0^^0;16^K:+X'=X!(X>240)!(X<24)!(X?.E1"".""1N.N) X"
^DD(66,.16,.1)="MAXIMUM HOURS ALLOWED FOR PATIENT SPECIMEN"
^DD(66,.16,3)="Enter maximum number of hours (24 to 240) allowed"
^DD(66,.16,21,0)="^^2^2^2920107^^^"
^DD(66,.16,21,1,0)="If a patient specimen is required for the blood component the maximum"
^DD(66,.16,21,2,0)=" hours allowed before a new specimen is required is entered here."
^DD(66,.16,"DT")="2850726"
^DD(66,.18,0)="RETYPE AFTER PREPARATION^S^0:NO;1:YES;^0;18^Q"
^DD(66,.18,21,0)="^^2^2^2880124^"
^DD(66,.18,21,1,0)="If units of component must be retyped then enter 'YES'."
^DD(66,.18,21,2,0)=" If units do not require retyping enter 'NO'."
^DD(66,.18,"DT")="2880124"
^DD(66,.19,0)="CONTAINS RED BLOOD CELLS^S^1:YES;0:NO;^0;19^Q"
^DD(66,.19,21,0)="^^1^1^2880124^^"
^DD(66,.19,21,1,0)="If component contains mainly red blood cells enter 'YES'."
^DD(66,.19,"DT")="2880124"
^DD(66,.21,0)="MAX AGE FOR PEDIATRIC USE^NJ3,0X^^0;21^K:+X'=X!(X>1827)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$P(^LAB(66,DA,0),U)[""PEDIATRIC"" K X"
^DD(66,.21,.1)=""
^DD(66,.21,3)="Type a Number between 1 and 1827, 0 Decimal Digits"
^DD(66,.21,4)="W !,""No entry allowed for products containing 'PEDIATRIC' in the name field."""
^DD(66,.21,21,0)="^^1^1^2880527^^"
^DD(66,.21,21,1,0)="Maximum age (in days) allowed for making pediatric units"
^DD(66,.21,"DT")="2880531"
^DD(66,.22,0)="PEDIATRIC PRODUCT^*P66'X^LAB(66,^0;22^S DIC(""S"")=""I $$PEDI^LRBLSCRN"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$P(^LAB(66,X,0),U,12)'=$P(^LAB(66,DA,0),U,12) K X"
^DD(66,.22,3)="BLOOD PRODUCT and PEDIATRIC PRODUCT must have the same anticoagulant."
^DD(66,.22,12)="Selects only pediatric components"
^DD(66,.22,12.1)="S DIC(""S"")=""I $$PEDI^LRBLSCRN"""
^DD(66,.22,21,0)="^.001^9^9^3001023^^"
^DD(66,.22,21,1,0)="This is the pediatric component that the present component"
^DD(66,.22,21,2,0)=" can be made into."
^DD(66,.22,21,3,0)="The screen for this field checks for three conditions:"
^DD(66,.22,21,4,0)="1) Any product listed must contain the word ""PEDIATRIC"" in"
^DD(66,.22,21,5,0)="   the name."
^DD(66,.22,21,6,0)="2) Any product listed must be of the same symbology (Codabar"
^DD(66,.22,21,7,0)="   or ISBT128) as the current component record."
^DD(66,.22,21,8,0)="3) Any product listed must have the same anticoagulant as "
^DD(66,.22,21,9,0)="   the current component record."
^DD(66,.22,"DT")="3001019"
^DD(66,.23,0)="SPECIFIC GRAVITY^S^1.06:WHOLE BLOOD;1.08:RED BLOOD CELLS;1.03:PLASMA;^0;23^Q"
^DD(66,.23,21,0)="^^1^1^2880531^"
^DD(66,.23,21,1,0)="Weight of component in grams per ml."
^DD(66,.23,"DT")="2880531"
^DD(66,.24,0)="MAXIMUM INFUSION TIME(MIN)^NJ3,0^^0;24^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(66,.24,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(66,.24,21,0)="^^1^1^2880615^^"
^DD(66,.24,21,1,0)="The maximum time in minutes from issue to completion of transfusion"
^DD(66,.24,21,2,0)=" of transfusion."
^DD(66,.24,"DT")="2880615"
^DD(66,.25,0)="AUTOLOGOUS/DIRECTED COMPONENT^S^1:AUTOLOGOUS;2:DIRECTED;0:NEITHER;^0;25^Q"
^DD(66,.25,21,0)="^^2^2^2880823^^"
^DD(66,.25,21,1,0)="This field is used to determine if a component is autologous,"
^DD(66,.25,21,2,0)=" directed or neither type of donation."
^DD(66,.25,"DT")="2880823"
^DD(66,.26,0)="ADMINISTRATIVE CATEGORY^S^1:WHOLE BLOOD;2:RBC;3:FROZEN RBC;4:DEGLYC RBC;5:LEUCODEPLETED RBC;6:WASHED RBC;7:FFP;8:CRYO;9:RANDOM PLAT;10:APHERESIS PLAT;11:GRANULOCYTES;^0;26^Q"
^DD(66,.26,21,0)="^^1^1^2920224^"
^DD(66,.26,21,1,0)="Used to define category for administrative data and workload."
^DD(66,.26,"DT")="2920224"
^DD(66,.27,0)="POOLED PRODUCT^S^1:YES;0:NO;1:yes;0:no;^0;27^Q"
^DD(66,.27,21,0)="^^2^2^2920614^"
^DD(66,.27,21,1,0)="If product is pooled enter 'YES'.  The entry is used when"
^DD(66,.27,21,2,0)=" running the integrity check for file 65 (Blood Inventory)."
^DD(66,.27,"DT")="2920614"
^DD(66,.28,0)="ASK BAG LOT #^S^1:YES;0:NO;1:yes;0:no;^0;28^Q"
^DD(66,.28,21,0)="^^2^2^2921228^"
^DD(66,.28,21,1,0)="Entering 'YES' will result in prompting the user for the bag lot # "
^DD(66,.28,21,2,0)="when this component is prepared from a unit in inventory."
^DD(66,.28,"DT")="2921228"
^DD(66,.29,0)="IS ISBT128^RS^0:NO (This is a Codabar product type);1:YES (This is an ISBT128 product type);^0;29^Q"
^DD(66,.29,3)="ANSWER ""Y"" IF THIS IS AN ISBT 128 PRODUCT TYPE.  ANSWER ""N"" IF THIS IS A CODABAR PRODUCT TYPE."
^DD(66,.29,21,0)="^.001^4^4^3001017^^^^"
^DD(66,.29,21,1,0)="This field indicates whether the product type belongs to ISBT 128 or to"
^DD(66,.29,21,2,0)="Codabar.  All product types fall into two categories: Codabar and ISBT "
^DD(66,.29,21,3,0)="128.  This field identifies the symbology to which each product type"
^DD(66,.29,21,4,0)="belongs."
^DD(66,.29,"DT")="3001017"
^DD(66,1,0)="DESCRIPTION^66.09^^1;0"
^DD(66,2,0)="SYNONYM^66.021A^^2;0"
^DD(66,3,0)="MODIFY TO^66.03PA^^3;0"
^DD(66,3,3)=""
^DD(66,3,21,0)="^.001^1^1^3001017^^^^"
^DD(66,3,21,1,0)="These are components this product can produce."
^DD(66,3,"DT")="2850322"
^DD(66,4,0)="SUPPLIER^66.01IA^^SU;0"
^DD(66,4,21,0)="^^1^1^2920107^^^^"
^DD(66,4,21,1,0)="This is a multiple field.  Contains information about all suppliers of this item."
^DD(66,5,0)="CRITERIA FOR USE^66.05^^5;0"
^DD(66,5,21,0)="^^1^1^2850607^"
^DD(66,5,21,1,0)="Suggested criteria for transfusion of blood component can be listed here."
^DD(66,6,0)="TESTS TO CHECK^66.04PAI^^6;0"
^DD(66,6,12)="SELECTS CHEM,HEM,SER,TOX etc. tests"
^DD(66,6,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(66,6,21,0)="^^3^3^2920203^^"
^DD(66,6,21,1,0)="These are the tests that will determine if the request seems "
^DD(66,6,21,2,0)="reasonable based on test values when a blood"
^DD(66,6,21,3,0)="component is requested."
^DD(66,7,0)="REQUISITION INSTRUCTIONS^66.07^^7;0"
^DD(66,7,21,0)="^^1^1^2920203^^"
^DD(66,7,21,1,0)="These are instructions included in the requisition."
^DD(66,8,0)="PRE-OP TESTS TO CHECK^66.08PA^^8;0"
^DD(66,8,12)="Selects only single chem, hem, tox, ser, etc. tests"
^DD(66,8,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(66,8,21,0)="^^2^2^2920203^^^"
^DD(66,8,21,1,0)="This field checks lab values for specified component request for"
^DD(66,8,21,2,0)=" surgery."
^DD(66,9,0)="EQUIVALENT PRODUCT^*P66'^LAB(66,^4;1^S DIC(""S"")=""I $P(^(0),U,29)='($P(^LAB(66,DA,0),U,29))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(66,9,3)="SELECT THE BLOOD PRODUCT (IF ANY) THAT IS EQUIVALENT OR MATCHES THE CURRENT BLOOD PRODUCT."
^DD(66,9,12)="Show products of other symbology"
^DD(66,9,12.1)="S DIC(""S"")=""I $P(^(0),U,29)='($P(^LAB(66,DA,0),U,29))"""
^DD(66,9,21,0)="^^7^7^3001017^"
^DD(66,9,21,1,0)="This field points to the blood product (of the opposite symbology) that"
^DD(66,9,21,2,0)="most closely matches or is equivalent to the specified blood product.  "
^DD(66,9,21,3,0)="It screens on the IS ISBT field and allows only blood products of "
^DD(66,9,21,4,0)="opposite symbologies to be stored as equivalent products.  For any "
^DD(66,9,21,5,0)="ISBT 128 products, only products with IS ISBT = 0 (Codabar products) can "
^DD(66,9,21,6,0)="be selected.  The same is true for Codabar units; only blood products "
^DD(66,9,21,7,0)="with IS ISBT = 1 (ISBT 128 products) can be selected."
^DD(66,9,"DT")="3001012"
^DD(66,10,0)="ASSOCIATED DIVISION^66.1PA^^10;0"
^DD(66,500,0)="WKLD CODE^66.06PA^^9;0"
^DD(66,500,21,0)="^^2^2^2930327^"
^DD(66,500,21,1,0)=" This field contains wkld codes that should be counted each time this"
^DD(66,500,21,2,0)="blood product is issued."
^DD(66,"B","ABBREVIATION",.02)=""
^DD(66,"B","ADMINISTRATIVE CATEGORY",.26)=""
^DD(66,"B","ANTICOAGULANT/ADDITIVE",.12)=""
^DD(66,"B","ASK BAG LOT #",.28)=""
^DD(66,"B","ASSOCIATED DIVISION",10)=""
^DD(66,"B","AUTOLOGOUS/DIRECTED COMPONENT",.25)=""
^DD(66,"B","CAN BE MODIFIED",.03)=""
^DD(66,"B","CAN BE REQUESTED",.15)=""
^DD(66,"B","COLLECTION/PREP HOURS",.13)=""
^DD(66,"B","CONTAINS RED BLOOD CELLS",.19)=""
^DD(66,"B","CRITERIA FOR USE",5)=""
^DD(66,"B","DAYS LEFT",.11)=""
^DD(66,"B","DESCRIPTION",1)=""
^DD(66,"B","DOD CODE",.055)=""
^DD(66,"B","EQUIVALENT PRODUCT",9)=""
^DD(66,"B","IDENTIFIER",.04)=""
^DD(66,"B","IS ISBT128",.29)=""
^DD(66,"B","MAX AGE FOR PEDIATRIC USE",.21)=""
^DD(66,"B","MAXIMUM INFUSION TIME(MIN)",.24)=""
^DD(66,"B","MAXIMUM STORAGE DAYS",.135)=""
^DD(66,"B","MODIFICATION CRITERIA",.06)=""
^DD(66,"B","MODIFIED BEFORE RELEASE",.14)=""
^DD(66,"B","MODIFY TO",3)=""
^DD(66,"B","NAME",.01)=""
^DD(66,"B","PATIENT SPECIMEN AGE ALLOWED",.16)=""
^DD(66,"B","PATIENT/PRODUCT ABO",.07)=""
^DD(66,"B","PATIENT/PRODUCT REQUIREMENT",.09)=""
^DD(66,"B","PATIENT/PRODUCT RH",.08)=""
^DD(66,"B","PEDIATRIC PRODUCT",.22)=""
^DD(66,"B","POOLED PRODUCT",.27)=""
^DD(66,"B","PRE-OP TESTS TO CHECK",8)=""
^DD(66,"B","PRODUCT CODE",.05)=""
^DD(66,"B","REQUISITION INSTRUCTIONS",7)=""
^DD(66,"B","RETYPE AFTER PREPARATION",.18)=""
^DD(66,"B","SPECIFIC GRAVITY",.23)=""
^DD(66,"B","SUPPLIER",4)=""
^DD(66,"B","SYNONYM",2)=""
^DD(66,"B","TESTS TO CHECK",6)=""
^DD(66,"B","VOLUME (ml)",.1)=""
^DD(66,"B","WKLD CODE",500)=""
^DD(66,"GL",0,1,.01)=""
^DD(66,"GL",0,2,.02)=""
^DD(66,"GL",0,3,.03)=""
^DD(66,"GL",0,4,.04)=""
^DD(66,"GL",0,5,.05)=""
^DD(66,"GL",0,6,.06)=""
^DD(66,"GL",0,7,.07)=""
^DD(66,"GL",0,8,.08)=""
^DD(66,"GL",0,9,.09)=""
^DD(66,"GL",0,10,.1)=""
^DD(66,"GL",0,11,.11)=""
^DD(66,"GL",0,12,.12)=""
^DD(66,"GL",0,13,.13)=""
^DD(66,"GL",0,14,.14)=""
^DD(66,"GL",0,15,.15)=""
^DD(66,"GL",0,16,.16)=""
^DD(66,"GL",0,17,.135)=""
^DD(66,"GL",0,18,.18)=""
^DD(66,"GL",0,19,.19)=""
^DD(66,"GL",0,20,.055)=""
^DD(66,"GL",0,21,.21)=""
^DD(66,"GL",0,22,.22)=""
^DD(66,"GL",0,23,.23)=""
^DD(66,"GL",0,24,.24)=""
^DD(66,"GL",0,25,.25)=""
^DD(66,"GL",0,26,.26)=""
^DD(66,"GL",0,27,.27)=""
^DD(66,"GL",0,28,.28)=""
^DD(66,"GL",0,29,.29)=""
^DD(66,"GL",1,0,1)=""
^DD(66,"GL",2,0,2)=""
^DD(66,"GL",3,0,3)=""
^DD(66,"GL",4,1,9)=""
^DD(66,"GL",5,0,5)=""
^DD(66,"GL",6,0,6)=""
^DD(66,"GL",7,0,7)=""
^DD(66,"GL",8,0,8)=""
^DD(66,"GL",9,0,500)=""
^DD(66,"GL",10,0,10)=""
^DD(66,"GL","SU",0,4)=""
^DD(66,"IX",.01)=""
^DD(66,"IX",.02)=""
^DD(66,"IX",.05)=""
^DD(66,"RQ",.01)=""
^DD(66,"RQ",.02)=""
^DD(66,"RQ",.04)=""
^DD(66,"RQ",.1)=""
^DD(66,"RQ",.135)=""
^DD(66,"RQ",.29)=""
^DD(66,"SB",66.01,4)=""
^DD(66,"SB",66.021,2)=""
^DD(66,"SB",66.03,3)=""
^DD(66,"SB",66.04,6)=""
^DD(66,"SB",66.05,5)=""
^DD(66,"SB",66.06,500)=""
^DD(66,"SB",66.07,7)=""
^DD(66,"SB",66.08,8)=""
^DD(66,"SB",66.09,1)=""
^DD(66,"SB",66.1,10)=""
^DD(66.01,0)="SUPPLIER SUB-FIELD^NL^1^14"
^DD(66.01,0,"ID",.02)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(66.01,0,"IX","B",66.01,.01)=""
^DD(66.01,0,"IX","C",66.01,.11)=""
^DD(66.01,0,"NM","SUPPLIER")=""
^DD(66.01,0,"UP")="66"
^DD(66.01,.001,0)="Preference number^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(66.01,.001,3)="Enter Preference number of supplier"
^DD(66.01,.001,4)=""
^DD(66.01,.001,21,0)="^^3^3^2920107^^"
^DD(66.01,.001,21,1,0)="The order of preference for the supplier of this blood product.  The"
^DD(66.01,.001,21,2,0)=" lowest number will be the default answer when components are entered"
^DD(66.01,.001,21,3,0)=" via inventory log-in."
^DD(66.01,.001,"DT")="2840509"
^DD(66.01,.01,0)="SUPPLIER^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(66.01,.01,.1)="WHERE DID ITEM COME FROM"
^DD(66.01,.01,1,0)="^.1"
^DD(66.01,.01,1,1,0)="66.01^B"
^DD(66.01,.01,1,1,1)="S ^LAB(66,DA(1),""SU"",""B"",$E(X,1,30),DA)="""""
^DD(66.01,.01,1,1,2)="K ^LAB(66,DA(1),""SU"",""B"",$E(X,1,30),DA)"
^DD(66.01,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(66.01,.01,21,0)="^^1^1^2841119^^^"
^DD(66.01,.01,21,1,0)="The name of the source."
^DD(66.01,.01,"DT")="2841119"
^DD(66.01,.02,0)="COST^RNJ8,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X"
^DD(66.01,.02,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(66.01,.02,21,0)="^^1^1^2920107^^"
^DD(66.01,.02,21,1,0)="Cost of the item."
^DD(66.01,.02,"DT")="2840509"
^DD(66.01,.03,0)="ADDRESS LINE 1^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(66.01,.03,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(66.01,.03,21,0)="^^1^1^2920107^^"
^DD(66.01,.03,21,1,0)="Address of supplier."
^DD(66.01,.03,"DT")="2840509"
^DD(66.01,.04,0)="ADDRESS LINE 2^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(66.01,.04,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(66.01,.04,21,0)="^^1^1^2920107^^"
^DD(66.01,.04,21,1,0)="2nd Address line of supplier."
^DD(66.01,.05,0)="ADDRESS LINE 3^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(66.01,.05,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(66.01,.05,21,0)="^^1^1^2920107^^"
^DD(66.01,.05,21,1,0)="3rd Address line of supplier."
^DD(66.01,.06,0)="CITY^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(66.01,.06,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(66.01,.06,21,0)="^^1^1^2841119^"
^DD(66.01,.06,21,1,0)="City of the supplier."
^DD(66.01,.06,"DT")="2840509"
^DD(66.01,.07,0)="STATE^P5'^DIC(5,^0;7^Q"
^DD(66.01,.07,21,0)="^^1^1^2841119^"
^DD(66.01,.07,21,1,0)="State of the supplier."
^DD(66.01,.07,"DT")="2840509"
^DD(66.01,.08,0)="ZIP CODE^F^^0;8^K:$L(X)>9!($L(X)<5)!'(X?1N.N) X"
^DD(66.01,.08,3)="ANSWER MUST BE 5-9 CHARACTERS IN LENGTH"
^DD(66.01,.08,21,0)="^^1^1^2850513^^"
^DD(66.01,.08,21,1,0)="Zip code of the supplier."
^DD(66.01,.08,"DT")="2840509"
^DD(66.01,.09,0)="PHONE^F^^0;9^K:$L(X)>30!($L(X)<4) X"
^DD(66.01,.09,3)="ANSWER MUST BE 4-30 CHARACTERS IN LENGTH"
^DD(66.01,.09,21,0)="^^1^1^2841119^"
^DD(66.01,.09,21,1,0)="Phone number of the supplier."
^DD(66.01,.09,"DT")="2840509"
^DD(66.01,.1,0)="SUPPLIER PREFIX NUMBER^F^^0;10^K:$L(X)>3!($L(X)<1)!'(X?.UN) X"
^DD(66.01,.1,.1)="SUPPLIER PREFIX ID CODE"
^DD(66.01,.1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(66.01,.1,21,0)="^^3^3^2870805^"
^DD(66.01,.1,21,1,0)="An eye readable only (not bar coded) prefix which might be"
^DD(66.01,.1,21,2,0)=" present as part of the unique unit ID# specific for a given"
^DD(66.01,.1,21,3,0)=" collection facility."
^DD(66.01,.1,"DT")="2861224"
^DD(66.01,.11,0)="REGISTRATION NUMBER^FX^^0;11^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<7)!'(X?1N.N) X"
^DD(66.01,.11,1,0)="^.1"
^DD(66.01,.11,1,1,0)="66.01^C"
^DD(66.01,.11,1,1,1)="S ^LAB(66,DA(1),""SU"",""C"",$E(X,1,30),DA)="""""
^DD(66.01,.11,1,1,2)="K ^LAB(66,DA(1),""SU"",""C"",$E(X,1,30),DA)"
^DD(66.01,.11,3)="ANSWER MUST BE 7-9 DIGITS IN LENGTH"
^DD(66.01,.11,21,0)="^^2^2^2870805^"
^DD(66.01,.11,21,1,0)="Unique number assigned by the Food & Drug Administration"
^DD(66.01,.11,21,2,0)=" to each facility."
^DD(66.01,.11,"DT")="2861126"
^DD(66.01,.12,0)="UNIT LABEL NON-STANDARD^S^1:YES;0:NO;^0;12^Q"
^DD(66.01,.12,.1)="BARCODE NOT STANDARD (Not Codabar(tm))"
^DD(66.01,.12,21,0)="^^2^2^2851212^"
^DD(66.01,.12,21,1,0)="If the barcoded blood component unit ID is not the standard barcode"
^DD(66.01,.12,21,2,0)=" (Codabar(tm)) then enter 'YES'."
^DD(66.01,.12,"DT")="2851212"
^DD(66.01,1,0)="LOT #^66.02A^^1;0"
^DD(66.01,1,21,0)="^^1^1^2841119^^"
^DD(66.01,1,21,1,0)="Lot # of the item."
^DD(66.01,"B","ADDRESS LINE 1",.03)=""
^DD(66.01,"B","ADDRESS LINE 2",.04)=""
^DD(66.01,"B","ADDRESS LINE 3",.05)=""
^DD(66.01,"B","CITY",.06)=""
^DD(66.01,"B","COST",.02)=""
^DD(66.01,"B","LOT #",1)=""
^DD(66.01,"B","PHONE",.09)=""
^DD(66.01,"B","Preference number",.001)=""
^DD(66.01,"B","REGISTRATION NUMBER",.11)=""
^DD(66.01,"B","STATE",.07)=""
^DD(66.01,"B","SUPPLIER",.01)=""
^DD(66.01,"B","SUPPLIER PREFIX ID CODE",.1)="1"
^DD(66.01,"B","SUPPLIER PREFIX NUMBER",.1)=""
^DD(66.01,"B","UNIT LABEL NON-STANDARD",.12)=""
^DD(66.01,"B","WHERE DID ITEM COME FROM",.01)="1"
^DD(66.01,"B","ZIP CODE",.08)=""
^DD(66.01,"GL",0,1,.01)=""
^DD(66.01,"GL",0,2,.02)=""
^DD(66.01,"GL",0,3,.03)=""
^DD(66.01,"GL",0,4,.04)=""
^DD(66.01,"GL",0,5,.05)=""
^DD(66.01,"GL",0,6,.06)=""
^DD(66.01,"GL",0,7,.07)=""
^DD(66.01,"GL",0,8,.08)=""
^DD(66.01,"GL",0,9,.09)=""
^DD(66.01,"GL",0,10,.1)=""
^DD(66.01,"GL",0,11,.11)=""
^DD(66.01,"GL",0,12,.12)=""
^DD(66.01,"GL",1,0,1)=""
^DD(66.01,"IX",.01)=""
^DD(66.01,"IX",.11)=""
^DD(66.01,"RQ",.02)=""
^DD(66.01,"SB",66.02,1)=""
^DD(66.02,0)="LOT # SUB-FIELD^NL^.02^2"
^DD(66.02,0,"NM","LOT #")=""
^DD(66.02,0,"UP")="66.01"
^DD(66.02,.01,0)="LOT #^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(66.02,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(66.02,.01,21,0)="^^1^1^2841119^"
^DD(66.02,.01,21,1,0)="Lot # of the item."
^DD(66.02,.01,"DT")="2841101"
^DD(66.02,.02,0)="EXPIRATION DATE^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(66.02,.02,21,0)="^^1^1^2841119^"
^DD(66.02,.02,21,1,0)="Expiration date of the item."
^DD(66.02,.02,"DT")="2841101"
^DD(66.02,"B","EXPIRATION DATE",.02)=""
^DD(66.02,"B","LOT #",.01)=""
^DD(66.02,"GL",0,1,.01)=""
^DD(66.02,"GL",0,2,.02)=""
^DD(66.021,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(66.021,0,"DT")="2950908"
^DD(66.021,0,"NM","SYNONYM")=""
^DD(66.021,0,"UP")="66"
^DD(66.021,.01,0)="SYNONYM^M66.021A^^0;1^K:$L(X)>25!($L(X)<1) X"
^DD(66.021,.01,1,0)="^.1"
^DD(66.021,.01,1,1,0)="66^C"
^DD(66.021,.01,1,1,1)="S ^LAB(66,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(66.021,.01,1,1,2)="K ^LAB(66,""C"",$E(X,1,30),DA(1),DA)"
^DD(66.021,.01,1,1,"DT")="2950908"
^DD(66.021,.01,3)="Answer must be 1-25 characters in length"
^DD(66.021,.01,"DT")="2991019"
^DD(66.021,"B","SYNONYM",.01)=""
^DD(66.021,"GL",0,1,.01)=""
^DD(66.021,"IX",.01)=""
^DD(66.03,0)="MODIFY TO SUB-FIELD^NL^.02^3"
^DD(66.03,0,"IX","B",66.03,.01)=""
^DD(66.03,0,"NM","MODIFY TO")=""
^DD(66.03,0,"UP")="66"
^DD(66.03,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(66.03,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999"
^DD(66.03,.001,21,0)="^^2^2^2920107^^"
^DD(66.03,.001,21,1,0)="The internal file number in the blood product file that the current"
^DD(66.03,.001,21,2,0)=" blood product is modified to."
^DD(66.03,.001,"DT")="2850806"
^DD(66.03,.01,0)="MODIFY TO^M*P66'X^LAB(66,^0;1^S:'$D(DIC(0)) DIC(0)="""" S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)"" D ^DIC K DIC S (DIC,DIE)=""^LAB(66,"",X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(66.03,.01,1,0)="^.1"
^DD(66.03,.01,1,1,0)="66.03^B"
^DD(66.03,.01,1,1,1)="S ^LAB(66,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(66.03,.01,1,1,2)="K ^LAB(66,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(66.03,.01,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(66.03,.01,12)="Selects only blood components"
^DD(66.03,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)"""
^DD(66.03,.01,21,0)="^.001^4^4^3001017^^^^"
^DD(66.03,.01,21,1,0)="If this product, IN INVENTORY, can be made into other components, list the components here."
^DD(66.03,.01,21,2,0)="Only components from the same symbology can be selected. For example, only "
^DD(66.03,.01,21,3,0)="Codabar units can be modified to other Codabar units, and only ISBT "
^DD(66.03,.01,21,4,0)="128 units can be modified to other ISBT 128 units."
^DD(66.03,.01,"DT")="3001015"
^DD(66.03,.02,0)="NOT ONLY ONE ALLOWED^S^1:YES;0:NO;^0;2^Q"
^DD(66.03,.02,21,0)="^^1^1^2920107^^"
^DD(66.03,.02,21,1,0)="If yes other products can be made from the same unit. (ex. packed RBC and plasma can be made from a unit of whole blood.)"
^DD(66.03,.02,"DT")="2860110"
^DD(66.03,"B","MODIFY TO",.01)=""
^DD(66.03,"B","NOT ONLY ONE ALLOWED",.02)=""
^DD(66.03,"B","NUMBER",.001)=""
^DD(66.03,"GL",0,1,.01)=""
^DD(66.03,"GL",0,2,.02)=""
^DD(66.03,"IX",.01)=""
^DD(66.04,0)="TESTS TO CHECK SUB-FIELD^NL^.03^3"
^DD(66.04,0,"ID",.02)="W """""
^DD(66.04,0,"NM","TESTS TO CHECK")=""
^DD(66.04,0,"UP")="66"
^DD(66.04,.01,0)="TESTS TO CHECK^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(66.04,.01,12)="Selects only single chem, hem, tox, ser, etc. tests"
^DD(66.04,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(66.04,.01,21,0)="^^2^2^2920203^^^^"
^DD(66.04,.01,21,1,0)="When a blood component is requested the tests selected will be"
^DD(66.04,.01,21,2,0)=" checked to see if request seems reasonable based on test values."
^DD(66.04,.01,"DT")="2850724"
^DD(66.04,.02,0)="SPECIMEN^RP61'X^LAB(61,^0;2^I $D(X) S X(1)=+^LAB(66,DA(1),6,DA,0) I '$D(^LAB(60,X(1),1,X)) W $C(7),!,""Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test"",! K X"
^DD(66.04,.02,21,0)="^^2^2^2960610^^^"
^DD(66.04,.02,21,1,0)="Specimen the test is performed on.  This must be a specimen entered in lab"
^DD(66.04,.02,21,2,0)=" test file (#60) in SITE/SPECIMEN field."
^DD(66.04,.02,"DT")="2960610"
^DD(66.04,.03,0)="> OR < TEST VALUE^RFX^^0;3^K:$L(X)>7!($L(X)<2)!(X'?1""<"".E&(X'?1"">"".E))!(X'?1E.N.""."".N) X"
^DD(66.04,.03,.1)="GREATER THAN OR LESS THAN TEST VALUE"
^DD(66.04,.03,3)="Enter '<' or '>' then test value"
^DD(66.04,.03,4)="W !,""ENTER '>' IF ABOVE TEST VALUE NOT ACCEPTABLE"",!,""(Ex. If test value for hct is 30 then enter '>30' so any results above 30 will be"",!,""flagged"""
^DD(66.04,.03,21,0)="^^2^2^2920113^^^"
^DD(66.04,.03,21,1,0)="The test value with a '>' or '<' as a prefix to the value for checking"
^DD(66.04,.03,21,2,0)=" component requests."
^DD(66.04,.03,"DT")="2850724"
^DD(66.04,"B","> OR < TEST VALUE",.03)=""
^DD(66.04,"B","SPECIMEN",.02)=""
^DD(66.04,"B","TESTS TO CHECK",.01)=""
^DD(66.04,"GL",0,1,.01)=""
^DD(66.04,"GL",0,2,.02)=""
^DD(66.04,"GL",0,3,.03)=""
^DD(66.04,"RQ",.02)=""
^DD(66.04,"RQ",.03)=""
^DD(66.05,0)="CRITERIA FOR USE SUB-FIELD^NL^.01^1"
^DD(66.05,0,"NM","CRITERIA FOR USE")=""
^DD(66.05,0,"UP")="66"
^DD(66.05,.01,0)="CRITERIA FOR USE^W^^0;1^Q"
^DD(66.05,.01,"DT")="2850607"
^DD(66.05,"B","CRITERIA FOR USE",.01)=""
^DD(66.05,"GL",0,1,.01)=""
^DD(66.06,0)="WKLD CODE SUB-FIELD^^.01^1"
^DD(66.06,0,"NM","WKLD CODE")=""
^DD(66.06,0,"UP")="66"
^DD(66.06,.01,0)="WKLD CODE^MP64'X^LAM(^0;1^S DINUM=X"
^DD(66.06,.01,1,0)="^.1^^0"
^DD(66.06,.01,21,0)="^^2^2^2910127^"
^DD(66.06,.01,21,1,0)="If component is being prepared from existing unit enter the WKLD "
^DD(66.06,.01,21,2,0)="workload codes that apply."
^DD(66.06,.01,"DT")="2901019"
^DD(66.06,"B","WKLD CODE",.01)=""
^DD(66.06,"GL",0,1,.01)=""
^DD(66.07,0)="REQUISITION INSTRUCTIONS SUB-FIELD^NL^.01^1"
^DD(66.07,0,"NM","REQUISITION INSTRUCTIONS")=""
^DD(66.07,0,"UP")="66"
^DD(66.07,.01,0)="REQUISITION INSTRUCTIONS^W^^0;1^Q"
^DD(66.07,.01,"DT")="2850725"
^DD(66.07,"B","REQUISITION INSTRUCTIONS",.01)=""
^DD(66.07,"GL",0,1,.01)=""
^DD(66.08,0)="PRE-OP TESTS TO CHECK SUB-FIELD^^.03^3"
^DD(66.08,0,"NM","PRE-OP TESTS TO CHECK")=""
^DD(66.08,0,"UP")="66"
^DD(66.08,.01,0)="PRE-OP TESTS TO CHECK^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(66.08,.01,1,0)="^.1^^0"
^DD(66.08,.01,12)="Selects only lab tests with a ""CH"" subscript."
^DD(66.08,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(66.08,.01,"DT")="2871104"
^DD(66.08,.02,0)="SPECIMEN^RP61'X^LAB(61,^0;2^I $D(X) S X(1)=+^LAB(66,DA(1),8,DA,0) I '$D(^LAB(60,X(1),1,X)) W $C(7),!,""Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test."",! K X"
^DD(66.08,.02,21,0)="^^2^2^2871104^"
^DD(66.08,.02,21,1,0)="Specimen the test is performed on.  This must be a specimen"
^DD(66.08,.02,21,2,0)=" entered in the lab test file (#60) in the SITE/SPECIMEN field."
^DD(66.08,.02,"DT")="2960610"
^DD(66.08,.03,0)="> OR < TEST VALUE^RFX^^0;3^K:$L(X)>7!($L(X)<2)!(X'?1""<"".E&(X'?1"">"".E))!(X'?1E.N.""."".N) X"
^DD(66.08,.03,3)=""
^DD(66.08,.03,4)="W !,""ENTER '>' IF ABOVE TEST VALUE NOT ACCEPTABLE"",!,""(Ex. If value for hct is 30 then enter '>30' so any value above 30 will be"",!,""flagged."""
^DD(66.08,.03,21,0)="^^2^2^2930327^"
^DD(66.08,.03,21,1,0)=" This field contain the values to determine if the test result are with"
^DD(66.08,.03,21,2,0)="in specific limits."
^DD(66.08,.03,"DT")="2871104"
^DD(66.08,"B","> OR < TEST VALUE",.03)=""
^DD(66.08,"B","PRE-OP TESTS TO CHECK",.01)=""
^DD(66.08,"B","SPECIMEN",.02)=""
^DD(66.08,"GL",0,1,.01)=""
^DD(66.08,"GL",0,2,.02)=""
^DD(66.08,"GL",0,3,.03)=""
^DD(66.08,"RQ",.02)=""
^DD(66.08,"RQ",.03)=""
^DD(66.09,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(66.09,0,"DT")="2950908"
^DD(66.09,0,"NM","DESCRIPTION")=""
^DD(66.09,0,"UP")="66"
^DD(66.09,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(66.09,.01,"DT")="2950908"
^DD(66.09,"B","DESCRIPTION",.01)=""
^DD(66.09,"GL",0,1,.01)=""
^DD(66.1,0)="ASSOCIATED DIVISION SUB-FIELD^^.01^1"
^DD(66.1,0,"DT")="2950802"
^DD(66.1,0,"NM","ASSOCIATED DIVISION")=""
^DD(66.1,0,"UP")="66"
^DD(66.1,.01,0)="ASSOCIATED DIVISION^M*P4'X^DIC(4,^0;1^S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(66.1,.01,1,0)="^.1^^0"
^DD(66.1,.01,12)="Allows only divisions related to site."
^DD(66.1,.01,12.1)="S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"""
^DD(66.1,.01,"DT")="2990916"
^DD(66.1,"B","ASSOCIATED DIVISION",.01)=""
^DD(66.1,"GL",0,1,.01)=""
^DD(66.2,0)="FIELD^^1^8"
^DD(66.2,0,"DDA")="N"
^DD(66.2,0,"DT")="2930923"
^DD(66.2,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(66.2,0,"IX","B",66.2,.01)=""
^DD(66.2,0,"IX","C",66.2,.02)=""
^DD(66.2,0,"IX","D",66.2,.03)=""
^DD(66.2,0,"NM","BLOOD BANK VALIDATION")=""
^DD(66.2,0,"VR")="5.2"
^DD(66.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(66.2,.01,1,0)="^.1"
^DD(66.2,.01,1,1,0)="66.2^B"
^DD(66.2,.01,1,1,1)="S ^LAB(66.2,""B"",$E(X,1,30),DA)="""""
^DD(66.2,.01,1,1,2)="K ^LAB(66.2,""B"",$E(X,1,30),DA)"
^DD(66.2,.01,3)="Answer must be 3-30 characters in length.  Enter name of option being validated."
^DD(66.2,.01,21,0)="^^1^1^2930921^"
^DD(66.2,.01,21,1,0)="Name of option being validated."
^DD(66.2,.01,"DT")="2930921"
^DD(66.2,.02,0)="MENU NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(66.2,.02,1,0)="^.1"
^DD(66.2,.02,1,1,0)="66.2^C"
^DD(66.2,.02,1,1,1)="S ^LAB(66.2,""C"",$E(X,1,30),DA)="""""
^DD(66.2,.02,1,1,2)="K ^LAB(66.2,""C"",$E(X,1,30),DA)"
^DD(66.2,.02,1,1,"DT")="2930921"
^DD(66.2,.02,3)="Answer must be 2-50 characters in length.  Enter menu text of option being validated."
^DD(66.2,.02,21,0)="^^1^1^2940510^"
^DD(66.2,.02,21,1,0)="Name of menu"
^DD(66.2,.02,"DT")="2930921"
^DD(66.2,.03,0)="MENU ABBREVIATION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<2) X"
^DD(66.2,.03,1,0)="^.1"
^DD(66.2,.03,1,1,0)="66.2^D"
^DD(66.2,.03,1,1,1)="S ^LAB(66.2,""D"",$E(X,1,30),DA)="""""
^DD(66.2,.03,1,1,2)="K ^LAB(66.2,""D"",$E(X,1,30),DA)"
^DD(66.2,.03,1,1,"%D",0)="^^1^1^2930923^"
^DD(66.2,.03,1,1,"%D",1,0)="To allow look up/access to option based on the abbreviation."
^DD(66.2,.03,1,1,"DT")="2930923"
^DD(66.2,.03,3)="Answer must be 2-3 characters in length."
^DD(66.2,.03,21,0)="^^1^1^2940510^"
^DD(66.2,.03,21,1,0)="Abbreviation of menu"
^DD(66.2,.03,"DT")="2930923"
^DD(66.2,.04,0)="FUNCTIONAL AREA^RS^1:DONOR;2:INVENTORY;3:PATIENT;4:INQUIRIES;5:REPORTS;6:SUPERVISOR;7:INQUIRIES/WARD;8:DONOR/REPORTS;^0;4^Q"
^DD(66.2,.04,3)="Enter the Blood Bank menu in which the option appears."
^DD(66.2,.04,21,0)="^^1^1^2940510^"
^DD(66.2,.04,21,1,0)="Functional area"
^DD(66.2,.04,"DT")="2930923"
^DD(66.2,.05,0)="OPTION DESCRIPTION^RSI^1:DATA ENTRY;2:DATA EDITING;3:DATA ENTRY/REVIEW;4:EDIT TEMPLATE/SOFTWARE CONTROL;5:FILE SETUP/SOFTWARE CONTROL;6:FORM/LETTER CONTENT;7:FORM/REPORT GENERATION;8:PURGING DATA/FILE ENTRIES;9:DATA INQUIRY ONLY;^0;5^Q"
^DD(66.2,.05,3)="Enter option description in terms of functionality."
^DD(66.2,.05,21,0)="^^1^1^2940510^"
^DD(66.2,.05,21,1,0)="Description of option"
^DD(66.2,.05,"DT")="2930923"
^DD(66.2,.06,0)="LIMITED ACCESS^RS^1:YES;0:NO;0:no;1:yes;^0;6^Q"
^DD(66.2,.06,3)="Does option require additional security access in addition to the LRLAB, LRVERIFY and the LRBLOODBANK keys, i.e. the LRBLSUPER or the LRLIASON?"
^DD(66.2,.06,21,0)="^^1^1^2940510^"
^DD(66.2,.06,21,1,0)="Whether access will be limited or not"
^DD(66.2,.06,"DT")="2930923"
^DD(66.2,.07,0)="OPTION IN USE^S^1:YES;0:NO;1:yes;0:no;^0;7^Q"
^DD(66.2,.07,3)="Is option in use at the facility?  For example, if a site does not draw any type of donors, including therapeutic phlebotomy and autologous donation, the donor menu options would be set to NO."
^DD(66.2,.07,21,0)="^^1^1^2940510^"
^DD(66.2,.07,21,1,0)="Whether the option is used by the facility or not."
^DD(66.2,.07,"DT")="2930923"
^DD(66.2,1,0)="DATE/TIME VALIDATED^66.21D^^1;0"
^DD(66.2,1,21,0)="^^1^1^2940510^"
^DD(66.2,1,21,1,0)="Multiple for date/time validated"
^DD(66.2,"B","DATE/TIME VALIDATED",1)=""
^DD(66.2,"B","FUNCTIONAL AREA",.04)=""
^DD(66.2,"B","LIMITED ACCESS",.06)=""
^DD(66.2,"B","MENU ABBREVIATION",.03)=""
^DD(66.2,"B","MENU NAME",.02)=""
^DD(66.2,"B","NAME",.01)=""
^DD(66.2,"B","OPTION DESCRIPTION",.05)=""
^DD(66.2,"B","OPTION IN USE",.07)=""
^DD(66.2,"GL",0,1,.01)=""
^DD(66.2,"GL",0,2,.02)=""
^DD(66.2,"GL",0,3,.03)=""
^DD(66.2,"GL",0,4,.04)=""
^DD(66.2,"GL",0,5,.05)=""
^DD(66.2,"GL",0,6,.06)=""
^DD(66.2,"GL",0,7,.07)=""
^DD(66.2,"GL",1,0,1)=""
^DD(66.2,"IX",.01)=""
^DD(66.2,"IX",.02)=""
^DD(66.2,"IX",.03)=""
^DD(66.2,"RQ",.01)=""
^DD(66.2,"RQ",.02)=""
^DD(66.2,"RQ",.04)=""
^DD(66.2,"RQ",.05)=""
^DD(66.2,"RQ",.06)=""
^DD(66.2,"SB",66.21,1)=""
^DD(66.21,0)="DATE/TIME VALIDATED SUB-FIELD^^1^10"
^DD(66.21,0,"DT")="2930921"
^DD(66.21,0,"IX","B",66.21,.01)=""
^DD(66.21,0,"NM","DATE/TIME VALIDATED")=""
^DD(66.21,0,"UP")="66.2"
^DD(66.21,.01,0)="DATE/TIME VALIDATED^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=9999999-X"
^DD(66.21,.01,1,0)="^.1"
^DD(66.21,.01,1,1,0)="66.21^B"
^DD(66.21,.01,1,1,1)="S ^LAB(66.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(66.21,.01,1,1,2)="K ^LAB(66.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(66.21,.01,3)="An option may have multiple validation dates even for the same version, depending on the outcome of the validation."
^DD(66.21,.01,"DT")="2930921"
^DD(66.21,.02,0)="REASON FOR VALIDATION^RS^1:NEW VERSION;2:PATCH;3:RETROSPECTIVE;4:LOCAL MODIFICATION;^0;2^Q"
^DD(66.21,.02,3)="In accordance with M-2, Part VI, Chapter 5, validation testing must be performed at these specific times."
^DD(66.21,.02,"DT")="2930921"
^DD(66.21,.03,0)="VERSION NUMBER^RF^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(66.21,.03,3)="Answer must be 2-10 characters in length."
^DD(66.21,.03,"DT")="2930921"
^DD(66.21,.04,0)="PATCH NUMBER^F^^0;4^K:$L(X)>12!($L(X)<1) X"
^DD(66.21,.04,3)="Answer must be 1-12 characters in length."
^DD(66.21,.04,"DT")="2930921"
^DD(66.21,.05,0)="PERSON PERFORMING VALIDATION^66.22P^^1;0"
^DD(66.21,.06,0)="OUTCOME^RS^1:ACCEPTABLE;2:ACCEPTABLE WITH CORRECTIVE ACTION;3:NOT ACCEPTABLE;^0;5^Q"
^DD(66.21,.06,"DT")="2930921"
^DD(66.21,.07,0)="APPROVED BY^P200'^VA(200,^0;7^Q"
^DD(66.21,.07,3)="Name of person who reviewed the actual test results AND the record of errors/deviations from the BB User Manual and approved implementation."
^DD(66.21,.07,"DT")="2930921"
^DD(66.21,.08,0)="DATE APPROVED^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(66.21,.08,"DT")="2930921"
^DD(66.21,.09,0)="DATE IMPLEMENTED^D^^0;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(66.21,.09,3)=""
^DD(66.21,.09,"DT")="2930921"
^DD(66.21,1,0)="COMMENT^66.211^^2;0"
^DD(66.21,"B","APPROVED BY",.07)=""
^DD(66.21,"B","COMMENT",1)=""
^DD(66.21,"B","DATE APPROVED",.08)=""
^DD(66.21,"B","DATE IMPLEMENTED",.09)=""
^DD(66.21,"B","DATE/TIME VALIDATED",.01)=""
^DD(66.21,"B","OUTCOME",.06)=""
^DD(66.21,"B","PATCH NUMBER",.04)=""
^DD(66.21,"B","PERSON PERFORMING VALIDATION",.05)=""
^DD(66.21,"B","REASON FOR VALIDATION",.02)=""
^DD(66.21,"B","VERSION NUMBER",.03)=""
^DD(66.21,"GL",0,1,.01)=""
^DD(66.21,"GL",0,2,.02)=""
^DD(66.21,"GL",0,3,.03)=""
^DD(66.21,"GL",0,4,.04)=""
^DD(66.21,"GL",0,5,.06)=""
^DD(66.21,"GL",0,7,.07)=""
^DD(66.21,"GL",0,8,.08)=""
^DD(66.21,"GL",0,9,.09)=""
^DD(66.21,"GL",1,0,.05)=""
^DD(66.21,"GL",2,0,1)=""
^DD(66.21,"IX",.01)=""
^DD(66.21,"RQ",.02)=""
^DD(66.21,"RQ",.03)=""
^DD(66.21,"RQ",.06)=""
^DD(66.21,"SB",66.211,1)=""
^DD(66.21,"SB",66.22,.05)=""
^DD(66.211,0)="COMMENT SUB-FIELD^^.01^1"
^DD(66.211,0,"DT")="2930921"
^DD(66.211,0,"NM","COMMENT")=""
^DD(66.211,0,"UP")="66.21"
^DD(66.211,.01,0)="COMMENT^W^^0;1^Q"
^DD(66.211,.01,3)="Enter any comments/required corrective action applicable to the validation or the determination of the acceptability."
^DD(66.211,.01,"DT")="2930921"
^DD(66.211,"B","COMMENT",.01)=""
^DD(66.211,"GL",0,1,.01)=""
^DD(66.22,0)="PERSON PERFORMING VALIDATION SUB-FIELD^^.01^1"
^DD(66.22,0,"DT")="2930921"
^DD(66.22,0,"NM","PERSON PERFORMING VALIDATION")=""
^DD(66.22,0,"UP")="66.21"
^DD(66.22,.01,0)="PERSON PERFORMING VALIDATION^MP200'X^VA(200,^0;1^S:$D(X) DINUM=X"
^DD(66.22,.01,1,0)="^.1^^0"
^DD(66.22,.01,3)="Who performed the validation, i.e. tested the options as per the prescribed test conditions?"
^DD(66.22,.01,"DT")="2930921"
^DD(66.22,"B","PERSON PERFORMING VALIDATION",.01)=""
^DD(66.22,"GL",0,1,.01)=""
^DD(66.5,0)="FIELD^^1^3"
^DD(66.5,0,"DT")="2930723"
^DD(66.5,0,"IX","B",66.5,.01)=""
^DD(66.5,0,"NM","OPERATION (MSBOS)")=""
^DD(66.5,0,"VR")="5.2"
^DD(66.5,.01,0)="NAME^R*P81'X^ICPT(^0;1^S DIC(""S"")=""I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""""SURGERY"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(66.5,.01,1,0)="^.1"
^DD(66.5,.01,1,1,0)="66.5^B"
^DD(66.5,.01,1,1,1)="S ^LAB(66.5,""B"",$E(X,1,30),DA)="""""
^DD(66.5,.01,1,1,2)="K ^LAB(66.5,""B"",$E(X,1,30),DA)"
^DD(66.5,.01,1,1,"DT")="2920502"
^DD(66.5,.01,3)="Select an operation you want to have a maximum surgical blood order schedule."
^DD(66.5,.01,12)="Selects only operations/procedures."
^DD(66.5,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3),$P(^DIC(81.1,$P(^DIC(81.1,$P(^ICPT(Y,0),U,3),0),U,3),0),U)=""""SURGERY"""""""
^DD(66.5,.01,21,0)="^^1^1^2930329^^"
^DD(66.5,.01,21,1,0)="Name of the Operation (MSBOS)"
^DD(66.5,.01,"DT")="2920502"
^DD(66.5,.02,0)="SHORT NAME^CJ29^^ ; ^X ^DD(66.5,.02,9.2) S X=$P(Y(66.5,.02,101),U,2) S D0=Y(66.5,.02,80)"
^DD(66.5,.02,9)="^"
^DD(66.5,.02,9.01)="81^2;66.5^.01"
^DD(66.5,.02,9.1)="NAME:SHORT NAME"
^DD(66.5,.02,9.2)="S Y(66.5,.02,80)=$S($D(D0):D0,1:""""),Y(66.5,.02,1)=$S($D(^LAB(66.5,D0,0)):^(0),1:""""),D0=$P(Y(66.5,.02,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1 S Y(66.5,.02,101)=$S($D(^ICPT(D0,0)):^(0),1:"""")"
^DD(66.5,.02,21,0)="^^1^1^2930327^"
^DD(66.5,.02,21,1,0)=" This field contains a shorten name."
^DD(66.5,1,0)="BLOOD COMPONENT REQUEST^66.51PA^^1;0"
^DD(66.5,1,21,0)="^^1^1^2930721^"
^DD(66.5,1,21,1,0)="Blood component selected for an operation"
^DD(66.5,"B","BLOOD COMPONENT REQUEST",1)=""
^DD(66.5,"B","NAME",.01)=""
^DD(66.5,"B","SHORT NAME",.02)=""
^DD(66.5,"GL",0,1,.01)=""
^DD(66.5,"GL",1,0,1)=""
^DD(66.5,"IX",.01)=""
^DD(66.5,"RQ",.01)=""
^DD(66.5,"SB",66.51,1)=""
^DD(66.51,0)="BLOOD COMPONENT REQUEST SUB-FIELD^^.02^2"
^DD(66.51,0,"DT")="2930723"
^DD(66.51,0,"NM","BLOOD COMPONENT REQUEST")=""
^DD(66.51,0,"UP")="66.5"
^DD(66.51,.01,0)="BLOOD COMPONENT REQUEST^M*P66'X^LAB(66,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(66.51,.01,1,0)="^.1^^0"
^DD(66.51,.01,12)="Selects blood products for transfusion"
^DD(66.51,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""BB"""""""
^DD(66.51,.01,21,0)="^^1^1^2930721^"
^DD(66.51,.01,21,1,0)="Blood component selected for an operation"
^DD(66.51,.01,"DT")="2930723"
^DD(66.51,.02,0)="NUMBER OF UNITS^NJ2,0^^0;2^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""1N.N) X"
^DD(66.51,.02,3)="Type a Number between 0 and 50, 0 Decimal Digits"
^DD(66.51,.02,21,0)="^^1^1^2930721^"
^DD(66.51,.02,21,1,0)="Maximum number of units for an operation"
^DD(66.51,.02,"DT")="2930721"
^DD(66.51,"B","BLOOD COMPONENT REQUEST",.01)=""
^DD(66.51,"B","NUMBER OF UNITS",.02)=""
^DD(66.51,"GL",0,1,.01)=""
^DD(66.51,"GL",0,2,.02)=""
^DD(66.9,0)="FIELD^^2^3"
^DD(66.9,0,"DDA")="N"
^DD(66.9,0,"IX","B",66.9,.01)=""
^DD(66.9,0,"NM","BLOOD COMPONENT REQUEST")=""
^DD(66.9,0,"VR")="5.2"
^DD(66.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(66.9,.01,1,0)="^.1"
^DD(66.9,.01,1,1,0)="66.9^B"
^DD(66.9,.01,1,1,1)="S ^LAB(66.9,""B"",$E(X,1,30),DA)="""""
^DD(66.9,.01,1,1,2)="K ^LAB(66.9,""B"",$E(X,1,30),DA)"
^DD(66.9,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(66.9,.01,21,0)="^^1^1^2930329^^"
^DD(66.9,.01,21,1,0)="Name of the Blood component"
^DD(66.9,1,0)="PRODUCTS^66.91PA^^1;0"
^DD(66.9,1,21,0)="^^1^1^2930327^^"
^DD(66.9,1,21,1,0)=" This field contains a listing of product relating to this component."
^DD(66.9,2,0)="CRITERIA FOR USE^66.92^^2;0"
^DD(66.9,2,21,0)="^^2^2^2930327^"
^DD(66.9,2,21,1,0)=" This field contains in special restriction or guidelines to be used with"
^DD(66.9,2,21,2,0)="the particular component."
^DD(66.9,"B","CRITERIA FOR USE",2)=""
^DD(66.9,"B","NAME",.01)=""
^DD(66.9,"B","PRODUCTS",1)=""
^DD(66.9,"GL",0,1,.01)=""
^DD(66.9,"GL",1,0,1)=""
^DD(66.9,"GL",2,0,2)=""
^DD(66.9,"IX",.01)=""
^DD(66.9,"RQ",.01)=""
^DD(66.9,"SB",66.91,1)=""
^DD(66.9,"SB",66.92,2)=""
^DD(66.91,0)="PRODUCTS SUB-FIELD^^.01^1"
^DD(66.91,0,"IX","B",66.91,.01)=""
^DD(66.91,0,"NM","PRODUCTS")=""
^DD(66.91,0,"UP")="66.9"
^DD(66.91,.01,0)="PRODUCTS^MP66'X^LAB(66,^0;1^S:$D(X) DINUM=X"
^DD(66.91,.01,1,0)="^.1"
^DD(66.91,.01,1,1,0)="66.91^B"
^DD(66.91,.01,1,1,1)="S ^LAB(66.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(66.91,.01,1,1,2)="K ^LAB(66.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(66.91,.01,"DT")="2930728"
^DD(66.91,"B","PRODUCTS",.01)=""
^DD(66.91,"GL",0,1,.01)=""
^DD(66.91,"IX",.01)=""
^DD(66.92,0)="CRITERIA FOR USE SUB-FIELD^^.01^1"
^DD(66.92,0,"NM","CRITERIA FOR USE")=""
^DD(66.92,0,"UP")="66.9"
^DD(66.92,.01,0)="CRITERIA FOR USE^W^^0;1^Q"
^DD(66.92,"B","CRITERIA FOR USE",.01)=""
^DD(66.92,"GL",0,1,.01)=""
^DD(67,0)="FIELD^^63^25"
^DD(67,0,"DT")="2970301"
^DD(67,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(67,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(67,0,"ID",.03)="W ""   "",$$FMTE^XLFDT($P(^(0),U,3),""5Z"")"
^DD(67,0,"ID",.09)="W ""   "",$P(^(0),U,9)"
^DD(67,0,"IX","B",67,.01)=""
^DD(67,0,"IX","BS",67,.09)=""
^DD(67,0,"IX","BS5",67,.09)=""
^DD(67,0,"IX","C",67,.09)=""
^DD(67,0,"IX","CN",67,.1)=""
^DD(67,0,"IX","D",67,.01)=""
^DD(67,0,"NM","REFERRAL PATIENT")=""
^DD(67,0,"PT",2,67)=""
^DD(67,0,"PT",64.03,2)=""
^DD(67,0,"PT",64.1111,9)=""
^DD(67,0,"PT",67,3)=""
^DD(67,0,"PT",69.6,7)=""
^DD(67,0,"PT",100,.02)=""
^DD(67,0,"PT",160,.01)=""
^DD(67,0,"VR")="5.2"
^DD(67,0,"VRPK")="LR"
^DD(67,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!(X?1P.E)!(X'?1U.ANP)!(X'["","") X I $D(X) S Y="", "" F I=0:0 Q:$F(X,Y)<1  S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)"
^DD(67,.01,1,0)="^.1"
^DD(67,.01,1,1,0)="67^B"
^DD(67,.01,1,1,1)="S ^LRT(67,""B"",$E(X,1,30),DA)="""""
^DD(67,.01,1,1,2)="K ^LRT(67,""B"",$E(X,1,30),DA)"
^DD(67,.01,1,2,0)="67^D^MUMPS"
^DD(67,.01,1,2,1)="D UP^LRXREF S ^LRT(67,""D"",X,DA)="""""
^DD(67,.01,1,2,2)="D UP^LRXREF K ^LRT(67,""D"",X,DA)"
^DD(67,.01,1,2,"%D",0)="^^5^5^2970616^"
^DD(67,.01,1,2,"%D",1,0)="This MUMPS cross reference stores the name of the REFERRAL PATIENT in"
^DD(67,.01,1,2,"%D",2,0)="upper case and is used for look-up nd sorting purposes.  The format for"
^DD(67,.01,1,2,"%D",3,0)="the cross reference stored is below."
^DD(67,.01,1,2,"%D",4,0)=" "
^DD(67,.01,1,2,"%D",5,0)="    ^LRT(67,""D"",Name of Referral Patient in Upper Case,IEN) = """""
^DD(67,.01,3)="1-50 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION & CONTAIN A ','"
^DD(67,.01,21,0)="^^1^1^2970301^^^"
^DD(67,.01,21,1,0)="Name of patient."
^DD(67,.01,"DT")="2890830"
^DD(67,.02,0)="SEX^S^M:MALE;F:FEMALE;^0;2^Q"
^DD(67,.02,21,0)="^^1^1^2870805^^^"
^DD(67,.02,21,1,0)="Sex of patient."
^DD(67,.02,"DT")="2870723"
^DD(67,.03,0)="DOB^DXO^^0;3^S %DT=""EP"" D ^%DT S X=Y K:1701231>X!(DT<X) X"
^DD(67,.03,2)="S Y(0)=Y S X=Y(0) S:X X=$$FMTE^XLFDT(X,""5Z"") S Y=X"
^DD(67,.03,2.1)="NUMDATE(DOB)"
^DD(67,.03,3)="Enter the patient's date of birth between 12/31/1870 and today's date."
^DD(67,.03,21,0)="^^1^1^2870805^^"
^DD(67,.03,21,1,0)="Date of birth of patient."
^DD(67,.03,"DT")="2870723"
^DD(67,.033,0)="AGE^CJ8^^ ; ^S Y(67,.033,1)=$S($D(^LRT(67,D0,0)):^(0),1:"""") S X=DT,X1=X,X2=$P(Y(67,.033,1),U,3),X="""" D:X2 ^%DTC:X1 S X=X\365.25"
^DD(67,.033,9)="^"
^DD(67,.033,9.01)="67^.03"
^DD(67,.033,9.1)="DT-DOB\365.25"
^DD(67,.033,21,0)="^^1^1^2850725^^"
^DD(67,.033,21,1,0)="Computed field."
^DD(67,.05,0)="MARITAL STATUS^P11'^DIC(11,^0;5^Q"
^DD(67,.05,20,0)="^.3LA^1^1"
^DD(67,.05,20,1,0)="DEMOG"
^DD(67,.05,21,0)="^^1^1^2930327^"
^DD(67,.05,21,1,0)=" This field contains the marital status of the referral patient."
^DD(67,.05,"DT")="2871026"
^DD(67,.06,0)="RACE^P10'^DIC(10,^0;6^Q"
^DD(67,.06,"DT")="2940912"
^DD(67,.08,0)="RELIGION^P13'^DIC(13,^0;8^Q"
^DD(67,.08,21,0)="^^1^1^2930327^"
^DD(67,.08,21,1,0)=" This field contains the religious preference of the referral patient."
^DD(67,.08,"DT")="2871026"
^DD(67,.09,0)="IDENTIFIER^RFX^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X),$O(^LRT(67,""C"",X,0))>0 K X N LRX S LRX=$C(7)_""Already exists"" D EN^DDIOL(LRX)"
^DD(67,.09,.1)=""
^DD(67,.09,1,0)="^.1"
^DD(67,.09,1,1,0)="67^C"
^DD(67,.09,1,1,1)="S ^LRT(67,""C"",$E(X,1,30),DA)="""""
^DD(67,.09,1,1,2)="K ^LRT(67,""C"",$E(X,1,30),DA)"
^DD(67,.09,1,2,0)="67^BS^MUMPS"
^DD(67,.09,1,2,1)="S:$L(X)=9 ^LRT(67,""BS"",$E(X,6,9),DA)="""""
^DD(67,.09,1,2,2)="K:$L(X)=9 ^LRT(67,""BS"",$E(X,6,9),DA)"
^DD(67,.09,1,2,"%D",0)="^^5^5^2970616^"
^DD(67,.09,1,2,"%D",1,0)="This MUMPS cross reference stores the last 4 digits of the identifier (if"
^DD(67,.09,1,2,"%D",2,0)="the identifier is 9 characters in length as it would be if it is the SSN)"
^DD(67,.09,1,2,"%D",3,0)="to be used for look-ups.  The format for the cross reference is below."
^DD(67,.09,1,2,"%D",4,0)=" "
^DD(67,.09,1,2,"%D",5,0)="      ^LRT(67,""BS"",$E(Identifier,6,9),IEN) = """""
^DD(67,.09,1,2,"DT")="2970411"
^DD(67,.09,1,3,0)="67^BS5^MUMPS"
^DD(67,.09,1,3,1)="S:$L(X)=9 ^LRT(67,""BS5"",$E(^LRT(67,DA,0),1)_$E(X,6,9),DA)="""""
^DD(67,.09,1,3,2)="K:$L(X)=9 ^LRT(67,""BS5"",$E(^LRT(67,DA,0),1)_$E(X,6,9),DA)"
^DD(67,.09,1,3,"%D",0)="^^6^6^2970616^"
^DD(67,.09,1,3,"%D",1,0)="This MUMPS cross reference stores the first letter of the REFERRAL PATIENT"
^DD(67,.09,1,3,"%D",2,0)="name appended to the last 4 characters of the identifier for the purpose"
^DD(67,.09,1,3,"%D",3,0)="of facilitating look-ups within the file.  The format for the cross"
^DD(67,.09,1,3,"%D",4,0)="reference is below."
^DD(67,.09,1,3,"%D",5,0)=" "
^DD(67,.09,1,3,"%D",6,0)="    ^LRT(67,""BS5"",$E(Name,1)_$E(Identifier,6,9),IEN)="""""
^DD(67,.09,1,3,"DT")="2970411"
^DD(67,.09,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(67,.09,21,0)="^^1^1^2851001^"
^DD(67,.09,21,1,0)="Short description of referral."
^DD(67,.09,"DT")="2970609"
^DD(67,.1,0)="REFERRAL SOURCE^F^^.1;E1,19^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>19!($L(X)<2) X"
^DD(67,.1,1,0)="^.1"
^DD(67,.1,1,1,0)="67^CN"
^DD(67,.1,1,1,1)="S ^LRT(67,""CN"",$E(X,1,30),DA)="""""
^DD(67,.1,1,1,2)="K ^LRT(67,""CN"",$E(X,1,30),DA)"
^DD(67,.1,3)=""
^DD(67,.1,21,0)="^^1^1^2850319^"
^DD(67,.1,21,1,0)="Where specimen came from- (ex. Hospital, Physician's office)"
^DD(67,.1,"DT")="2850319"
^DD(67,.104,0)="PROVIDER^F^^.104;1^K:$L(X)>35!($L(X)<2) X"
^DD(67,.104,3)="Answer must be 2-35 characters in length."
^DD(67,.104,12)="Select only users with the PROVIDER key"""
^DD(67,.104,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(67,.104,"DT")="2970228"
^DD(67,.111,0)="STREET ADDRESS^F^^.11;1^K:$L(X)>50!($L(X)<2) X"
^DD(67,.111,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(67,.111,21,0)="^^1^1^2850725^"
^DD(67,.111,21,1,0)="Street part of address of patient."
^DD(67,.111,"DT")="2850319"
^DD(67,.112,0)="STREET ADDRESS 2^F^^.11;2^K:$L(X)>50!($L(X)<2) X"
^DD(67,.112,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(67,.112,21,0)="^^1^1^2851001^"
^DD(67,.112,21,1,0)="Secondary street address."
^DD(67,.113,0)="STREET ADDRESS 3^F^^.11;3^K:$L(X)>50!($L(X)<2) X"
^DD(67,.113,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(67,.113,21,0)="^^1^1^2851001^"
^DD(67,.113,21,1,0)="Tertiary street address."
^DD(67,.114,0)="CITY^F^^.11;4^K:$L(X)>30!($L(X)<2) X"
^DD(67,.114,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(67,.114,21,0)="^^1^1^2850725^^"
^DD(67,.114,21,1,0)="City part of address of patient."
^DD(67,.114,"DT")="2850319"
^DD(67,.115,0)="STATE^P5'^DIC(5,^.11;5^Q"
^DD(67,.115,21,0)="^^1^1^2850725^"
^DD(67,.115,21,1,0)="State part of address of patient."
^DD(67,.115,"DT")="2850319"
^DD(67,.116,0)="ZIP CODE^F^^.11;6^K:$L(X)>10!($L(X)<5)!'(X?1N.N.""-""1N.N) X"
^DD(67,.116,3)="Enter as 5 numerics (NNNNN) or 5 numerics dash 4 numerics (NNNNN-NNNN)"
^DD(67,.116,21,0)="^^1^1^2850725^"
^DD(67,.116,21,1,0)="Zip code part of address of patient."
^DD(67,.116,"DT")="2850319"
^DD(67,.131,0)="PHONE^F^^.13;1^K:$L(X)>20!($L(X)<4) X"
^DD(67,.131,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(67,.131,21,0)="^^1^1^2850725^"
^DD(67,.131,21,1,0)="Home phone number of patient."
^DD(67,.131,"DT")="2850319"
^DD(67,.132,0)="OFFICE PHONE^F^^.13;2^K:$L(X)>20!($L(X)<4) X"
^DD(67,.132,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(67,.132,21,0)="^^1^1^2850725^"
^DD(67,.132,21,1,0)="Office (work) phone number of patient."
^DD(67,.133,0)="PHONE #3^F^^.13;3^K:$L(X)>20!($L(X)<4) X"
^DD(67,.133,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(67,.133,21,0)="^^1^1^2851001^"
^DD(67,.133,21,1,0)="Other phone number."
^DD(67,.134,0)="PHONE #4^F^^.13;4^K:$L(X)>20!($L(X)<4) X"
^DD(67,.134,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(67,.134,21,0)="^^1^1^2851001^"
^DD(67,.134,21,1,0)="Other phone number."
^DD(67,.351,0)="DATE OF DEATH^DX^^.35;1^S %DT=""ETX"",%DT(0)=""-N"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(67,.351,21,0)="^^1^1^2850725^"
^DD(67,.351,21,1,0)="Date of death of patient."
^DD(67,.351,"DT")="2920810"
^DD(67,2,0)="PATIENT FILE REF^*P2'^DPT(^DPT;1^S DIC(""S"")=""I $G(^DPT(Y,""""LRT""""))=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(67,2,12)="Select the correct patient"
^DD(67,2,12.1)="S DIC(""S"")=""I $G(^DPT(Y,""""LRT""""))=DA"""
^DD(67,2,21,0)="^^8^8^2970716^"
^DD(67,2,21,1,0)="This field contains the pointer to ^DPT( and is used to obtain patient's"
^DD(67,2,21,2,0)="demographics. LEDI accessioning attempts to find a match in the Patient"
^DD(67,2,21,3,0)="file (#2) using the PID (Socical Security Number). If a match is found,"
^DD(67,2,21,4,0)="the patient's demographic information is copied into the REFERRAL PATIENT"
^DD(67,2,21,5,0)="file fields, NAME, SSN, Date of Birth and sex."
^DD(67,2,21,6,0)=" "
^DD(67,2,21,7,0)="The pointer entry stored in this field is used in future lookup for data"
^DD(67,2,21,8,0)="validation."
^DD(67,2,"DT")="2961120"
^DD(67,2.2,0)="NHE FILE REF^P537010'^AFJ(537010,^NHE;1^Q"
^DD(67,2.2,21,0)="^^8^8^2970716^"
^DD(67,2.2,21,1,0)="This field contains the pointer to the VAMC NETWORK PATIENT (#537010) file"
^DD(67,2.2,21,2,0)="used to obtain patient's demographics. LEDI accessioning software attempts"
^DD(67,2.2,21,3,0)="to find a match in the 537010 file using the PID (SSN). If a match is"
^DD(67,2.2,21,4,0)="found, the patient's demographic information is copied into the REFERRAL"
^DD(67,2.2,21,5,0)="PATIENT fields NAME,SSN and Date of Birth."
^DD(67,2.2,21,6,0)=" "
^DD(67,2.2,21,7,0)="The pointer entry stored in this field is used in future lookups to data"
^DD(67,2.2,21,8,0)="validation."
^DD(67,2.2,"DT")="2970301"
^DD(67,3,0)="Patient Name^V^^3;1^Q"
^DD(67,3,21,0)="^^3^3^2990719^^^"
^DD(67,3,21,1,0)="This field controls the sequence used to lookup of patient's demographic"
^DD(67,3,21,2,0)="information already stored in either ^DPT( or the ^LRT(67 files."
^DD(67,3,21,3,0)="This field is used by LEDI patient accessioning software."
^DD(67,3,"DT")="2970217"
^DD(67,3,"V",0)="^.12P^3^2"
^DD(67,3,"V",1,0)="2^Patient file entry^1^PAT"
^DD(67,3,"V",3,0)="67^Referral Patient^3^REF^^n"
^DD(67,3,"V","B",2,1)=""
^DD(67,3,"V","B",67,3)=""
^DD(67,3,"V","M","Patient file entry",1)=""
^DD(67,3,"V","M","Referral Patient",3)=""
^DD(67,3,"V","O",1,1)=""
^DD(67,3,"V","O",3,3)=""
^DD(67,3,"V","P","PAT",1)=""
^DD(67,3,"V","P","REF",3)=""
^DD(67,63,0)="LABORATORY REFERENCE^P63'X^LR(^LR;1^K X"
^DD(67,63,3)="Any changes to this entry must be made from the lab data entry routines.  This is the patient's record number in the lab data file."
^DD(67,63,8.5)="^"
^DD(67,63,9)="^"
^DD(67,63,21,0)="^^1^1^2850725^"
^DD(67,63,21,1,0)="Patient's record number in the lab data file."
^DD(67,63,"DT")="2850319"
^DD(67,"B","AGE",.033)=""
^DD(67,"B","CITY",.114)=""
^DD(67,"B","DATE OF DEATH",.351)=""
^DD(67,"B","DOB",.03)=""
^DD(67,"B","IDENTIFIER",.09)=""
^DD(67,"B","LABORATORY REFERENCE",63)=""
^DD(67,"B","MARITAL STATUS",.05)=""
^DD(67,"B","NAME",.01)=""
^DD(67,"B","NHE FILE REF",2.2)=""
^DD(67,"B","OFFICE PHONE",.132)=""
^DD(67,"B","PATIENT FILE REF",2)=""
^DD(67,"B","PHONE",.131)=""
^DD(67,"B","PHONE #3",.133)=""
^DD(67,"B","PHONE #4",.134)=""
^DD(67,"B","PROVIDER",.104)=""
^DD(67,"B","Patient Name",3)=""
^DD(67,"B","RACE",.06)=""
^DD(67,"B","REFERRAL SOURCE",.1)=""
^DD(67,"B","RELIGION",.08)=""
^DD(67,"B","SEX",.02)=""
^DD(67,"B","STATE",.115)=""
^DD(67,"B","STREET ADDRESS",.111)=""
^DD(67,"B","STREET ADDRESS 2",.112)=""
^DD(67,"B","STREET ADDRESS 3",.113)=""
^DD(67,"B","ZIP CODE",.116)=""
^DD(67,"GL",0,1,.01)=""
^DD(67,"GL",0,2,.02)=""
^DD(67,"GL",0,3,.03)=""
^DD(67,"GL",0,5,.05)=""
^DD(67,"GL",0,6,.06)=""
^DD(67,"GL",0,8,.08)=""
^DD(67,"GL",0,9,.09)=""
^DD(67,"GL",.1,"E1,19",.1)=""
^DD(67,"GL",.104,1,.104)=""
^DD(67,"GL",.11,1,.111)=""
^DD(67,"GL",.11,2,.112)=""
^DD(67,"GL",.11,3,.113)=""
^DD(67,"GL",.11,4,.114)=""
^DD(67,"GL",.11,5,.115)=""
^DD(67,"GL",.11,6,.116)=""
^DD(67,"GL",.13,1,.131)=""
^DD(67,"GL",.13,2,.132)=""
^DD(67,"GL",.13,3,.133)=""
^DD(67,"GL",.13,4,.134)=""
^DD(67,"GL",.35,1,.351)=""
^DD(67,"GL",3,1,3)=""
^DD(67,"GL","DPT",1,2)=""
^DD(67,"GL","LR",1,63)=""
^DD(67,"GL","NHE",1,2.2)=""
^DD(67,"GR","DEMOG",.05,1)=""
^DD(67,"IX",.01)=""
^DD(67,"IX",.09)=""
^DD(67,"IX",.1)=""
^DD(67,"RQ",.01)=""
^DD(67,"RQ",.09)=""
^DD(67.1,0)="FIELD^^63^7"
^DD(67.1,0,"DDA")="N"
^DD(67.1,0,"DT")="2931014"
^DD(67.1,0,"ID",.1)="W:$D(^("".1"")) ""   "",$P(^("".1""),U,1)"
^DD(67.1,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(67.1,0,"ID",3)="W:$D(^(""0"")) ""   "",$$FMTE^XLFDT($P(^(""0""),U,3),""5Z"")"
^DD(67.1,0,"ID",9)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,9)"
^DD(67.1,0,"IX","B",67.1,.01)=""
^DD(67.1,0,"IX","C",67.1,9)=""
^DD(67.1,0,"IX","D",67.1,.01)=""
^DD(67.1,0,"NM","RESEARCH")=""
^DD(67.1,0,"PT",64.03,2)=""
^DD(67.1,0,"PT",64.1111,9)=""
^DD(67.1,0,"VR")="5.2"
^DD(67.1,0,"VRPK")="LR"
^DD(67.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(67.1,.01,1,0)="^.1"
^DD(67.1,.01,1,1,0)="67.1^B"
^DD(67.1,.01,1,1,1)="S ^LRT(67.1,""B"",$E(X,1,30),DA)="""""
^DD(67.1,.01,1,1,2)="K ^LRT(67.1,""B"",$E(X,1,30),DA)"
^DD(67.1,.01,1,2,0)="67.1^D^MUMPS"
^DD(67.1,.01,1,2,1)="D UP^LRXREF S ^LRT(67.1,""D"",X,DA)="""""
^DD(67.1,.01,1,2,2)="D UP^LRXREF K ^LRT(67.1,""D"",X,DA)"
^DD(67.1,.01,3)="Answer must be 3-30 characters in length."
^DD(67.1,.01,21,0)="^^1^1^2930503^^"
^DD(67.1,.01,21,1,0)="Name of the research animal."
^DD(67.1,.01,"DT")="2930503"
^DD(67.1,.1,0)="LOCATION^F^^.1;1^K:$L(X)>10!($L(X)<1) X"
^DD(67.1,.1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(67.1,.1,21,0)="^^1^1^2841119^"
^DD(67.1,.1,21,1,0)="Location of animal."
^DD(67.1,.104,0)="PROVIDER^P200'^VA(200,^.104;1^Q"
^DD(67.1,.104,21,0)="^^1^1^2940510^"
^DD(67.1,.104,21,1,0)="Name of provider"
^DD(67.1,.104,"DT")="2931014"
^DD(67.1,2,0)="SEX^S^F:FEMALE;M:MALE;^0;2^Q"
^DD(67.1,2,21,0)="^^1^1^2841119^"
^DD(67.1,2,21,1,0)="Sex of animal.  Set of codes; F for female, M for male."
^DD(67.1,3,0)="DOB^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(67.1,3,21,0)="^^1^1^2841119^"
^DD(67.1,3,21,1,0)="Date of birth of the animal."
^DD(67.1,9,0)="IDENTIFIER^RFX^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X),$O(^LRT(67.1,""C"",X,0))>0 K X W *7,!,""Already exists"",!"
^DD(67.1,9,1,0)="^.1"
^DD(67.1,9,1,1,0)="67.1^C"
^DD(67.1,9,1,1,1)="S ^LRT(67.1,""C"",$E(X,1,30),DA)="""""
^DD(67.1,9,1,1,2)="K ^LRT(67.1,""C"",$E(X,1,30),DA)"
^DD(67.1,9,1,1,"DT")="2910329"
^DD(67.1,9,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(67.1,9,21,0)="^^1^1^2841119^"
^DD(67.1,9,21,1,0)="A short description categorizing the animal."
^DD(67.1,9,"DT")="2910329"
^DD(67.1,63,0)="LABORATORY REFERENCE^P63'X^LR(^LR;1^K X"
^DD(67.1,63,3)="Any changes to this entry must be made from the lab data entry routines.  This is the patient's record number in the lab data file."
^DD(67.1,63,8.5)="^"
^DD(67.1,63,9)="^"
^DD(67.1,63,21,0)="^^1^1^2851001^"
^DD(67.1,63,21,1,0)="Animal's record number in the Lab data file."
^DD(67.1,63,"DT")="2850425"
^DD(67.1,"B","DOB",3)=""
^DD(67.1,"B","IDENTIFIER",9)=""
^DD(67.1,"B","LABORATORY REFERENCE",63)=""
^DD(67.1,"B","LOCATION",.1)=""
^DD(67.1,"B","NAME",.01)=""
^DD(67.1,"B","PROVIDER",.104)=""
^DD(67.1,"B","SEX",2)=""
^DD(67.1,"GL",0,1,.01)=""
^DD(67.1,"GL",0,2,2)=""
^DD(67.1,"GL",0,3,3)=""
^DD(67.1,"GL",0,9,9)=""
^DD(67.1,"GL",.1,1,.1)=""
^DD(67.1,"GL",.104,1,.104)=""
^DD(67.1,"GL","LR",1,63)=""
^DD(67.1,"IX",.01)=""
^DD(67.1,"IX",9)=""
^DD(67.1,"RQ",.01)=""
^DD(67.1,"RQ",9)=""
^DD(67.2,0)="FIELD^^63^6"
^DD(67.2,0,"DT")="2931014"
^DD(67.2,0,"ID",.1)="W:$D(^("".1"")) ""   "",$P(^("".1""),U,1)"
^DD(67.2,0,"ID",3)="W:$D(^(""0"")) ""   "",$E($P(^(""0""),U,3),4,5)_""-""_$E($P(^(""0""),U,3),6,7)_""-""_$E($P(^(""0""),U,3),2,3)"
^DD(67.2,0,"ID",9)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,9)"
^DD(67.2,0,"IX","AC",67.2,.1)=""
^DD(67.2,0,"IX","B",67.2,.01)=""
^DD(67.2,0,"IX","C",67.2,9)=""
^DD(67.2,0,"NM","STERILIZER")=""
^DD(67.2,0,"PT",64.03,2)=""
^DD(67.2,0,"PT",64.1111,9)=""
^DD(67.2,0,"VR")="5.2"
^DD(67.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(67.2,.01,1,0)="^.1"
^DD(67.2,.01,1,1,0)="67.2^B"
^DD(67.2,.01,1,1,1)="S ^LRT(67.2,""B"",$E(X,1,30),DA)="""""
^DD(67.2,.01,1,1,2)="K ^LRT(67.2,""B"",$E(X,1,30),DA)"
^DD(67.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(67.2,.01,21,0)="^^1^1^2841119^"
^DD(67.2,.01,21,1,0)="Name of the sterilizer."
^DD(67.2,.1,0)="LOCATION^F^^.1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(67.2,.1,1,0)="^.1"
^DD(67.2,.1,1,1,0)="67.2^AC^MUMPS"
^DD(67.2,.1,1,1,1)="S:$D(^LRT(67.2,DA,""LR"")) ^LR(+^LRT(67.2,DA,""LR""),.1)=^LRT(67.2,DA,.1)"
^DD(67.2,.1,1,1,2)="K:$D(^LRT(67.2,DA,""LR"")) ^LR(+^LRT(67.2,DA,""LR""),.1)"
^DD(67.2,.1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(67.2,.1,21,0)="^^1^1^2841119^"
^DD(67.2,.1,21,1,0)="Location of the sterilizer."
^DD(67.2,.1,"DT")="2850322"
^DD(67.2,.104,0)="PROVIDER^P200'^VA(200,^.104;1^Q"
^DD(67.2,.104,21,0)="^^1^1^2940510^"
^DD(67.2,.104,21,1,0)="Name of provider"
^DD(67.2,.104,"DT")="2931014"
^DD(67.2,3,0)="DATE INSTALLED^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(67.2,3,21,0)="^^1^1^2841119^"
^DD(67.2,3,21,1,0)="Date of installation of the sterilizer."
^DD(67.2,9,0)="IDENTIFIER^RFX^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X),$O(^LRT(67.2,""C"",X,0))>0 K X W *7,!,""Already exists"",!"
^DD(67.2,9,1,0)="^.1"
^DD(67.2,9,1,1,0)="67.2^C"
^DD(67.2,9,1,1,1)="S ^LRT(67.2,""C"",$E(X,1,30),DA)="""""
^DD(67.2,9,1,1,2)="K ^LRT(67.2,""C"",$E(X,1,30),DA)"
^DD(67.2,9,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(67.2,9,21,0)="^^1^1^2841119^"
^DD(67.2,9,21,1,0)="Short description categorizing the sterilizer."
^DD(67.2,9,"DT")="2841018"
^DD(67.2,63,0)="LABORATORY REFERENCE^P63'X^LR(^LR;1^K X"
^DD(67.2,63,3)="Any changes to this entry must be made from the lab data entry routines.  This is the patient's record number in the lab data file."
^DD(67.2,63,8.5)="^"
^DD(67.2,63,9)="^"
^DD(67.2,63,21,0)="^^1^1^2850725^"
^DD(67.2,63,21,1,0)="Sterilizer's record number in the lab data file."
^DD(67.2,63,"DT")="2850425"
^DD(67.2,"B","DATE INSTALLED",3)=""
^DD(67.2,"B","IDENTIFIER",9)=""
^DD(67.2,"B","LABORATORY REFERENCE",63)=""
^DD(67.2,"B","LOCATION",.1)=""
^DD(67.2,"B","NAME",.01)=""
^DD(67.2,"B","PROVIDER",.104)=""
^DD(67.2,"GL",0,1,.01)=""
^DD(67.2,"GL",0,3,3)=""
^DD(67.2,"GL",0,9,9)=""
^DD(67.2,"GL",.1,1,.1)=""
^DD(67.2,"GL",.104,1,.104)=""
^DD(67.2,"GL","LR",1,63)=""
^DD(67.2,"IX",.01)=""
^DD(67.2,"IX",.1)=""
^DD(67.2,"IX",9)=""
^DD(67.2,"RQ",.01)=""
^DD(67.2,"RQ",9)=""
^DD(67.3,0)="FIELD^^63^5"
^DD(67.3,0,"DT")="2931014"
^DD(67.3,0,"ID",.1)="W:$D(^("".1"")) ""   "",$P(^("".1""),U,1)"
^DD(67.3,0,"ID",9)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,9)"
^DD(67.3,0,"IX","B",67.3,.01)=""
^DD(67.3,0,"IX","C",67.3,9)=""
^DD(67.3,0,"NM","ENVIRONMENTAL")=""
^DD(67.3,0,"PT",64.03,2)=""
^DD(67.3,0,"PT",64.1111,9)=""
^DD(67.3,0,"VR")="5.2"
^DD(67.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(67.3,.01,1,0)="^.1"
^DD(67.3,.01,1,1,0)="67.3^B"
^DD(67.3,.01,1,1,1)="S ^LRT(67.3,""B"",$E(X,1,30),DA)="""""
^DD(67.3,.01,1,1,2)="K ^LRT(67.3,""B"",$E(X,1,30),DA)"
^DD(67.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(67.3,.01,21,0)="^^1^1^2841119^"
^DD(67.3,.01,21,1,0)="Name of the environmental factor within the VAMC."
^DD(67.3,.1,0)="LOCATION^F^^.1;1^K:$L(X)>10!($L(X)<1) X"
^DD(67.3,.1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(67.3,.1,21,0)="^^1^1^2841119^"
^DD(67.3,.1,21,1,0)="Location of the environmental factor."
^DD(67.3,.104,0)="PROVIDER^P200'^VA(200,^.104;1^Q"
^DD(67.3,.104,21,0)="^^1^1^2940510^"
^DD(67.3,.104,21,1,0)="Name of provider"
^DD(67.3,.104,"DT")="2931014"
^DD(67.3,9,0)="IDENTIFIER^RFX^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X I $D(X),$O(^LRT(67.3,""C"",X,0))>0 K X W *7,!,""Already exists"",!"
^DD(67.3,9,1,0)="^.1"
^DD(67.3,9,1,1,0)="67.3^C"
^DD(67.3,9,1,1,1)="S ^LRT(67.3,""C"",$E(X,1,30),DA)="""""
^DD(67.3,9,1,1,2)="K ^LRT(67.3,""C"",$E(X,1,30),DA)"
^DD(67.3,9,1,1,"DT")="2910329"
^DD(67.3,9,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(67.3,9,21,0)="^^1^1^2841119^"
^DD(67.3,9,21,1,0)="Short description of the name."
^DD(67.3,9,"DT")="2910329"
^DD(67.3,63,0)="LABORATORY REFERENCE^P63'X^LR(^LR;1^K X"
^DD(67.3,63,3)="Any changes to this entry must be made from the lab data entry routines.  This is the patient's record number in the lab data file."
^DD(67.3,63,8.5)="^"
^DD(67.3,63,9)="^"
^DD(67.3,63,21,0)="^^1^1^2850725^"
^DD(67.3,63,21,1,0)="The environmental sample's record number in the lab data file."
^DD(67.3,63,"DT")="2850425"
^DD(67.3,"B","IDENTIFIER",9)=""
^DD(67.3,"B","LABORATORY REFERENCE",63)=""
^DD(67.3,"B","LOCATION",.1)=""
^DD(67.3,"B","NAME",.01)=""
^DD(67.3,"B","PROVIDER",.104)=""
^DD(67.3,"GL",0,1,.01)=""
^DD(67.3,"GL",0,9,9)=""
^DD(67.3,"GL",.1,1,.1)=""
^DD(67.3,"GL",.104,1,.104)=""
^DD(67.3,"GL","LR",1,63)=""
^DD(67.3,"IX",.01)=""
^DD(67.3,"IX",9)=""
^DD(67.3,"RQ",.01)=""
^DD(67.3,"RQ",9)=""
^DD(67.4,0)="FIELD^^.01^1"
^DD(67.4,0,"IX","B",67.4,.01)=""
^DD(67.4,0,"NM","NON PATIENT WORKLOAD")=""
^DD(67.4,0,"PT",64.1111,9)=""
^DD(67.4,0,"VR")="5.2"
^DD(67.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(67.4,.01,1,0)="^.1"
^DD(67.4,.01,1,1,0)="67.4^B"
^DD(67.4,.01,1,1,1)="S ^LRT(67.4,""B"",$E(X,1,30),DA)="""""
^DD(67.4,.01,1,1,2)="K ^LRT(67.4,""B"",$E(X,1,30),DA)"
^DD(67.4,.01,3)="Answer must be 3-30 characters in length."
^DD(67.4,.01,21,0)="^^1^1^2930329^^"
^DD(67.4,.01,21,1,0)="Name of the non-patient workload entry."
^DD(67.4,"B","NAME",.01)=""
^DD(67.4,"GL",0,1,.01)=""
^DD(67.4,"IX",.01)=""
^DD(67.4,"RQ",.01)=""
^DD(67.9,0)="FIELD^^1^3"
^DD(67.9,0,"DDA")="N"
^DD(67.9,0,"DT")="2930831"
^DD(67.9,0,"IX","B",67.9,.01)=""
^DD(67.9,0,"NM","LAB MONTHLY WORKLOADS")=""
^DD(67.9,0,"VR")="5.2"
^DD(67.9,.01,0)="PRIMARY INSTITUTION^RP4'X^DIC(4,^0;1^I $D(X) S DINUM=X"
^DD(67.9,.01,1,0)="^.1"
^DD(67.9,.01,1,1,0)="67.9^B"
^DD(67.9,.01,1,1,1)="S ^LRO(67.9,""B"",$E(X,1,30),DA)="""""
^DD(67.9,.01,1,1,2)="K ^LRO(67.9,""B"",$E(X,1,30),DA)"
^DD(67.9,.01,1,1,"DT")="2920818"
^DD(67.9,.01,1,2,0)="^^TRIGGER^67.9^.1"
^DD(67.9,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(67.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(67.9,.01,1,2,1.1) X ^DD(67.9,.01,1,2,1.4)"
^DD(67.9,.01,1,2,1.1)="S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA,0),0),""^"",1)"
^DD(67.9,.01,1,2,1.4)="S DIH=$S($D(^LRO(67.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.9,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.9,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(67.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""@"" X ^DD(67.9,.01,1,2,2.4)"
^DD(67.9,.01,1,2,2.4)="S DIH=$S($D(^LRO(67.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.9,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.9,.01,1,2,"%D",0)="^^1^1^2920825^^^"
^DD(67.9,.01,1,2,"%D",1,0)="THIS FIELD IS TRIGGERED BY IN THE .01 FIELD"
^DD(67.9,.01,1,2,"CREATE VALUE")="S X=$P(^DIC(4,+^LRO(67.9,DA,0),0),""^"",1)"
^DD(67.9,.01,1,2,"DELETE VALUE")="S X=""@"""
^DD(67.9,.01,1,2,"DT")="2920818"
^DD(67.9,.01,1,2,"FIELD")="#.1"
^DD(67.9,.01,3)=""
^DD(67.9,.01,21,0)="^^1^1^2940317^^^^"
^DD(67.9,.01,21,1,0)=" The reporting institution for this report"
^DD(67.9,.01,"DT")="2920818"
^DD(67.9,.1,0)="PRINT NAME PRIMARY INSTITUTION^RFI^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(67.9,.1,3)="Answer must be 3-35 characters in length."
^DD(67.9,.1,4)="W !,""This field should not be edited."""
^DD(67.9,.1,5,1,0)="67.9^.01^2"
^DD(67.9,.1,9)="^"
^DD(67.9,.1,21,0)="^^1^1^2940317^^^"
^DD(67.9,.1,21,1,0)="The print name of the primary institution"
^DD(67.9,.1,"DT")="2920708"
^DD(67.9,1,0)="DIVISION^67.901PA^^1;0"
^DD(67.9,1,21,0)="^^3^3^2940611^^^^"
^DD(67.9,1,21,1,0)="  This field contains what division this site is identified by. In most cases"
^DD(67.9,1,21,2,0)="the primary and the division are one in the same. This field is used by"
^DD(67.9,1,21,3,0)="sites which have multi-divisional operations."
^DD(67.9,"B","DIVISION",1)=""
^DD(67.9,"B","PRIMARY INSTITUTION",.01)=""
^DD(67.9,"B","PRINT NAME PRIMARY INSTITUTION",.1)=""
^DD(67.9,"GL",0,1,.01)=""
^DD(67.9,"GL",0,2,.1)=""
^DD(67.9,"GL",1,0,1)=""
^DD(67.9,"IX",.01)=""
^DD(67.9,"RQ",.01)=""
^DD(67.9,"RQ",.1)=""
^DD(67.9,"SB",67.901,1)=""
^DD(67.901,0)="DIVISION SUB-FIELD^^1^3"
^DD(67.901,0,"DT")="2930831"
^DD(67.901,0,"IX","B",67.901,.01)=""
^DD(67.901,0,"NM","DIVISION")=""
^DD(67.901,0,"UP")="67.9"
^DD(67.901,.01,0)="DIVISION^MP4'XO^DIC(4,^0;1^I $D(X) S DINUM=X"
^DD(67.901,.01,1,0)="^.1"
^DD(67.901,.01,1,1,0)="^^TRIGGER^67.901^.5"
^DD(67.901,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(67.901,.01,1,1,1.1) X ^DD(67.901,.01,1,1,1.4)"
^DD(67.901,.01,1,1,1.1)="S X=DIV S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),""^"",1)"
^DD(67.901,.01,1,1,1.4)="S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.901,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(67.901,.01,1,1,2.4)"
^DD(67.901,.01,1,1,2.4)="S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=67.901,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.901,.01,1,1,"CREATE VALUE")="S X=$P(^DIC(4,+^LRO(67.9,DA(1),1,DA,0),0),""^"",1)"
^DD(67.901,.01,1,1,"DELETE VALUE")="S X="""""
^DD(67.901,.01,1,1,"DT")="2920708"
^DD(67.901,.01,1,1,"FIELD")="#.5"
^DD(67.901,.01,1,2,0)="67.901^B"
^DD(67.901,.01,1,2,1)="S ^LRO(67.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.901,.01,1,2,2)="K ^LRO(67.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.901,.01,1,2,"DT")="2920818"
^DD(67.901,.01,2)="S Y(0)=Y S Y=$P(^DIC(4,+Y,0),U,1)"
^DD(67.901,.01,2.1)="S Y=$P(^DIC(4,+Y,0),U,1)"
^DD(67.901,.01,21,0)="^^1^1^2940317^"
^DD(67.901,.01,21,1,0)="This field contains what division this site is identified by."
^DD(67.901,.01,"DT")="2920818"
^DD(67.901,.5,0)="PRINT NAME DIVISION^RFI^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(67.901,.5,3)="Answer must be 3-35 characters in length."
^DD(67.901,.5,5,1,0)="67.901^.01^1"
^DD(67.901,.5,21,0)="^^1^1^2940317^"
^DD(67.901,.5,21,1,0)="This is the print name of the division."
^DD(67.901,.5,"DT")="2920708"
^DD(67.901,1,0)="MONTH^67.911D^^1;0"
^DD(67.901,1,21,0)="^^1^1^2940317^^^^"
^DD(67.901,1,21,1,0)="Multiple field. Contains information about the monthly data."
^DD(67.901,"B","DIVISION",.01)=""
^DD(67.901,"B","MONTH",1)=""
^DD(67.901,"B","PRINT NAME DIVISION",.5)=""
^DD(67.901,"GL",0,1,.01)=""
^DD(67.901,"GL",0,2,.5)=""
^DD(67.901,"GL",1,0,1)=""
^DD(67.901,"IX",.01)=""
^DD(67.901,"RQ",.5)=""
^DD(67.901,"SB",67.911,1)=""
^DD(67.911,0)="MONTH SUB-FIELD^^4^5"
^DD(67.911,0,"DT")="2930831"
^DD(67.911,0,"IX","B",67.911,.01)=""
^DD(67.911,0,"NM","MONTH")=""
^DD(67.911,0,"UP")="67.901"
^DD(67.911,.01,0)="MONTH^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,5)_""00"""
^DD(67.911,.01,1,0)="^.1"
^DD(67.911,.01,1,1,0)="67.911^B"
^DD(67.911,.01,1,1,1)="S ^LRO(67.9,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.911,.01,1,1,2)="K ^LRO(67.9,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.911,.01,21,0)="^^1^1^2940316^"
^DD(67.911,.01,21,1,0)="The month that is being used to compile the data."
^DD(67.911,.01,"DT")="2920623"
^DD(67.911,1,0)="CERTIFIED BY^P200'^VA(200,^0;2^Q"
^DD(67.911,1,3)=""
^DD(67.911,1,21,0)="^^1^1^2940316^"
^DD(67.911,1,21,1,0)="Person certifying the data."
^DD(67.911,1,"DT")="2930320"
^DD(67.911,2,0)="DATE COMPILED^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(67.911,2,21,0)="^^1^1^2940316^"
^DD(67.911,2,21,1,0)="The date that the data was compiled."
^DD(67.911,2,"DT")="2920527"
^DD(67.911,3,0)="MESSAGE NUMBER^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(67.911,3,3)="Answer must be 1-50 characters in length."
^DD(67.911,3,21,0)="^^1^1^2940316^"
^DD(67.911,3,21,1,0)="This is the number of the message."
^DD(67.911,3,"DT")="2960214"
^DD(67.911,4,0)="WKLD CODE^67.9114A^^1;0"
^DD(67.911,4,21,0)="^^1^1^2940317^^^^"
^DD(67.911,4,21,1,0)="Multiple field. Contains information about the WKLD codes."
^DD(67.911,"B","CERTIFIED BY",1)=""
^DD(67.911,"B","DATE COMPILED",2)=""
^DD(67.911,"B","MESSAGE NUMBER",3)=""
^DD(67.911,"B","MONTH",.01)=""
^DD(67.911,"B","WKLD CODE",4)=""
^DD(67.911,"GL",0,1,.01)=""
^DD(67.911,"GL",0,2,1)=""
^DD(67.911,"GL",0,3,2)=""
^DD(67.911,"GL",0,4,3)=""
^DD(67.911,"GL",1,0,4)=""
^DD(67.911,"IX",.01)=""
^DD(67.911,"SB",67.9114,4)=""
^DD(67.9114,0)="WKLD CODE SUB-FIELD^^12^15"
^DD(67.9114,0,"DT")="2930831"
^DD(67.9114,0,"IX","B",67.9114,.01)=""
^DD(67.9114,0,"NM","WKLD CODE")=""
^DD(67.9114,0,"UP")="67.911"
^DD(67.9114,.01,0)="WKLD CODE^MFX^^0;1^K:$L(X)>10!($L(X)<9)!('$D(^LAM(""E"",X))) X"
^DD(67.9114,.01,1,0)="^.1"
^DD(67.9114,.01,1,1,0)="67.9114^B"
^DD(67.9114,.01,1,1,1)="S ^LRO(67.9,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.9114,.01,1,1,2)="K ^LRO(67.9,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.9114,.01,1,2,0)="^^TRIGGER^67.9114^.03"
^DD(67.9114,.01,1,2,1)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIG^LRXREF X ^DD(67.9114,.01,1,2,1.4)"
^DD(67.9114,.01,1,2,1.4)="S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=67.9114,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.9114,.01,1,2,2)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(67.9114,.01,1,2,2.4)"
^DD(67.9114,.01,1,2,2.4)="S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=67.9114,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.9114,.01,1,2,"%D",0)="^^1^1^2920623^"
^DD(67.9114,.01,1,2,"%D",1,0)=" This trigger will stuf the WKLD code name into field .03."
^DD(67.9114,.01,1,2,"CREATE VALUE")="D TRIG^LRXREF"
^DD(67.9114,.01,1,2,"DELETE VALUE")="@"
^DD(67.9114,.01,1,2,"DT")="2920623"
^DD(67.9114,.01,1,2,"FIELD")="WKLD CODE NAME"
^DD(67.9114,.01,3)="Answer must be 9-10 characters in length."
^DD(67.9114,.01,21,0)="^^1^1^2940317^^"
^DD(67.9114,.01,21,1,0)="This is the workload code. (a number)"
^DD(67.9114,.01,"DT")="2920623"
^DD(67.9114,.03,0)="WKLD CODE NAME^F^^0;9^K:$L(X)>60!($L(X)<3) X"
^DD(67.9114,.03,3)="Answer must be 3-60 characters in length."
^DD(67.9114,.03,5,1,0)="67.9114^.01^2"
^DD(67.9114,.03,9)="^"
^DD(67.9114,.03,21,0)="^^1^1^2940317^^"
^DD(67.9114,.03,21,1,0)="This is the actual name of the WKLD code."
^DD(67.9114,.03,"DT")="2960119"
^DD(67.9114,1,0)="IN PATIENT CNT^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,1,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.9114,1,21,0)="^^1^1^2940317^^"
^DD(67.9114,1,21,1,0)="Number of inpatient counts."
^DD(67.9114,1,"DT")="2920527"
^DD(67.9114,2,0)="OUT PATIENT CNT^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,2,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.9114,2,21,0)="^^1^1^2940317^^"
^DD(67.9114,2,21,1,0)="Number of out-patient counts."
^DD(67.9114,2,"DT")="2920527"
^DD(67.9114,3,0)="OTHER PATIENT CNT^NJ6,0^^0;4^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,3,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.9114,3,21,0)="^^1^1^2940317^^"
^DD(67.9114,3,21,1,0)="Number of other patient counts."
^DD(67.9114,3,"DT")="2920527"
^DD(67.9114,4,0)="QC CNT^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,4,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.9114,4,21,0)="^^1^1^2940317^^"
^DD(67.9114,4,21,1,0)="Number of QC counts."
^DD(67.9114,4,"DT")="2920527"
^DD(67.9114,5,0)="IN PATIENT STATS^NJ6,0^^0;6^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,5,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.9114,5,21,0)="^^1^1^2940317^^"
^DD(67.9114,5,21,1,0)="Number of in-patient STATS."
^DD(67.9114,5,"DT")="2921106"
^DD(67.9114,6,0)="TOT STATS^NJ6,0^^0;7^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,6,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.9114,6,21,0)="^^1^1^2940317^^"
^DD(67.9114,6,21,1,0)="Number of all STATS."
^DD(67.9114,6,"DT")="2921106"
^DD(67.9114,7,0)="MANUAL INPUT DATA^NJ7,0^^0;8^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,7,3)="Type a Number between 0 and 1000000, 0 Decimal Digits"
^DD(67.9114,7,21,0)="^^1^1^2940317^^"
^DD(67.9114,7,21,1,0)="Number of data put in manually."
^DD(67.9114,7,"DT")="2920527"
^DD(67.9114,7.5,0)="SEND OUT TEST^NJ6,0^^0;10^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,7.5,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.9114,7.5,21,0)="^^5^5^2940317^^^^"
^DD(67.9114,7.5,21,1,0)=" This field contain the test which are performed by some other lab than"
^DD(67.9114,7.5,21,2,0)="the one filing LMIP reports. All test sent of a reference/referral lab,"
^DD(67.9114,7.5,21,3,0)="research lab, medical school, commercial are included in this total."
^DD(67.9114,7.5,21,4,0)="  The suffix portion of the WKLD code determine if the procedure is send"
^DD(67.9114,7.5,21,5,0)="out (.8000-.8999)"
^DD(67.9114,7.5,22)=""
^DD(67.9114,7.5,23,0)="^^3^3^2940317^^^^"
^DD(67.9114,7.5,23,1,0)="  This field is the same for total for all send out/referred testing."
^DD(67.9114,7.5,23,2,0)="Only wkld codes with a suffix between 8000-8999 will have a value in"
^DD(67.9114,7.5,23,3,0)="this field."
^DD(67.9114,7.5,"DT")="2930421"
^DD(67.9114,8,0)="TREATING SPECIALITY^67.91148A^^1;0"
^DD(67.9114,8,21,0)="^^1^1^2940317^^"
^DD(67.9114,8,21,1,0)="Multiple field. Containing data about the treating specialty."
^DD(67.9114,8,"DT")="2920528"
^DD(67.9114,9,0)="REPORTABLE TEST COUNT^CJ10,0^^ ; ^X ^DD(67.9114,9,9.2) S X=X+$P(Y(67.9114,9,1),U,8) S X=$J(X,0,0)"
^DD(67.9114,9,9)="^"
^DD(67.9114,9,9.01)="67.9114^7;67.9114^3;67.9114^2;67.9114^1"
^DD(67.9114,9,9.1)="IN PATIENT CNT+OUT PATIENT CNT+OTHER PATIENT CNT+MANUAL INPUT DATA"
^DD(67.9114,9,9.2)="S Y(67.9114,9,1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(67.9114,9,1),U,2)+$P(Y(67.9114,9,1),U,3)+$P(Y(67.9114,9,1),U,4)"
^DD(67.9114,9,21,0)="^^1^1^2940317^^"
^DD(67.9114,9,21,1,0)="Number of reportable test counts."
^DD(67.9114,10,0)="LMIP BILLABLE TEST^S^1:YES;^2;1^Q"
^DD(67.9114,10,3)="Answer yes if this procedure should be reported to LMIP"
^DD(67.9114,10,21,0)="^^5^5^2940317^^^^"
^DD(67.9114,10,21,1,0)=" If this procedure should be reported to the National Data base as"
^DD(67.9114,10,21,2,0)="an LMIP defined procedure, this field will be set to yes by the"
^DD(67.9114,10,21,3,0)="data extracting program. This field should not be manually edited."
^DD(67.9114,10,21,4,0)="To have this field set to yes, edit the BILLABLE PROCEDURE field"
^DD(67.9114,10,21,5,0)="in the WKLD CODE (#64) file."
^DD(67.9114,10,23,0)="^^2^2^2940317^^^^"
^DD(67.9114,10,23,1,0)=" When the data is transferred to the MONTHLY WORKLOAD file at the end of "
^DD(67.9114,10,23,2,0)="each month this field is marked accordingly."
^DD(67.9114,10,"DT")="2930320"
^DD(67.9114,11,0)="REP/STD^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<-10000)!(X?.E1"".""1N.N) X"
^DD(67.9114,11,3)="Type a Number between -10000 and 99999, 0 Decimal Digits"
^DD(67.9114,11,21,0)="^^1^1^2940317^^"
^DD(67.9114,11,21,1,0)=" This is the total for repeat, dilutions and standards for the WKLD code."
^DD(67.9114,11,"DT")="2930808"
^DD(67.9114,12,0)="OTHERS^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.9114,12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(67.9114,12,21,0)="^^2^2^2940317^^^"
^DD(67.9114,12,21,1,0)=" This field is used for all other types of specimens not coming from"
^DD(67.9114,12,21,2,0)="the Patient file, Lab Control file or the Referral Patient."
^DD(67.9114,12,"DT")="2930831"
^DD(67.9114,"B","IN PATIENT CNT",1)=""
^DD(67.9114,"B","IN PATIENT STATS",5)=""
^DD(67.9114,"B","LMIP BILLABLE TEST",10)=""
^DD(67.9114,"B","MANUAL INPUT DATA",7)=""
^DD(67.9114,"B","OTHER PATIENT CNT",3)=""
^DD(67.9114,"B","OTHERS",12)=""
^DD(67.9114,"B","OUT PATIENT CNT",2)=""
^DD(67.9114,"B","QC CNT",4)=""
^DD(67.9114,"B","REP/STD",11)=""
^DD(67.9114,"B","REPORTABLE TEST COUNT",9)=""
^DD(67.9114,"B","SEND OUT TEST",7.5)=""
^DD(67.9114,"B","TOT STATS",6)=""
^DD(67.9114,"B","TREATING SPECIALITY",8)=""
^DD(67.9114,"B","WKLD CODE",.01)=""
^DD(67.9114,"B","WKLD CODE NAME",.03)=""
^DD(67.9114,"GL",0,1,.01)=""
^DD(67.9114,"GL",0,2,1)=""
^DD(67.9114,"GL",0,3,2)=""
^DD(67.9114,"GL",0,4,3)=""
^DD(67.9114,"GL",0,5,4)=""
^DD(67.9114,"GL",0,6,5)=""
^DD(67.9114,"GL",0,7,6)=""
^DD(67.9114,"GL",0,8,7)=""
^DD(67.9114,"GL",0,9,.03)=""
^DD(67.9114,"GL",0,10,7.5)=""
^DD(67.9114,"GL",0,11,11)=""
^DD(67.9114,"GL",0,12,12)=""
^DD(67.9114,"GL",1,0,8)=""
^DD(67.9114,"GL",2,1,10)=""
^DD(67.9114,"IX",.01)=""
^DD(67.9114,"SB",67.91148,8)=""
^DD(67.91148,0)="TREATING SPECIALITY SUB-FIELD^^1^3"
^DD(67.91148,0,"DT")="2920623"
^DD(67.91148,0,"IX","B",67.91148,.01)=""
^DD(67.91148,0,"NM","TREATING SPECIALITY")=""
^DD(67.91148,0,"UP")="67.9114"
^DD(67.91148,.01,0)="TREATING SPECIALITY CODE^MFXO^^0;1^Q:X=""XX ""!(X=""XY "")  S X=$S(X&$L(X)=1:0_X,1:X) K:$L(X)>3!($L(X)<2)!('$D(^DIC(42.4,+X,0))#2) X"
^DD(67.91148,.01,1,0)="^.1"
^DD(67.91148,.01,1,1,0)="67.91148^B"
^DD(67.91148,.01,1,1,1)="S ^LRO(67.9,DA(4),1,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.91148,.01,1,1,2)="K ^LRO(67.9,DA(4),1,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.91148,.01,1,2,0)="^^TRIGGER^67.91148^.03"
^DD(67.91148,.01,1,2,1)="X ^DD(67.91148,.01,1,2,1.3) S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,1,D4,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV D TRIGTS^LRXREF X ^DD(67.91148,.01,1,2,1.4)"
^DD(67.91148,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(4),DIV(0)=D0,D1=DA(3),DIV(1)=D1,D2=DA(2),DIV(2)=D2,D3=DA(1),DIV(3)=D3,D4=DA,DIV(4)=D4"
^DD(67.91148,.01,1,2,1.4)="S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),1,DIV(4),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=67.91148,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.91148,.01,1,2,2)="K DIV S DIV=X,D0=DA(4),DIV(0)=D0,D1=DA(3),DIV(1)=D1,D2=DA(2),DIV(2)=D2,D3=DA(1),DIV(3)=D3,D4=DA,DIV(4)=D4 S Y(1)=$S($D(^LRO(67.9,D0,1,D1,1,D2,1,D3,1,D4,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(67.91148,.01,1,2,2.4)"
^DD(67.91148,.01,1,2,2.4)="S DIH=$S($D(^LRO(67.9,DIV(0),1,DIV(1),1,DIV(2),1,DIV(3),1,DIV(4),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=67.91148,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(67.91148,.01,1,2,"%D",0)="^^1^1^2920623^"
^DD(67.91148,.01,1,2,"%D",1,0)=" This trigger stuffs the treating speciality name automatically."
^DD(67.91148,.01,1,2,"CREATE VALUE")="D TRIGTS^LRXREF"
^DD(67.91148,.01,1,2,"DELETE VALUE")="@"
^DD(67.91148,.01,1,2,"DT")="2920623"
^DD(67.91148,.01,1,2,"FIELD")="TREATING SPECIALITY NAME"
^DD(67.91148,.01,2)="S Y(0)=Y S Y=$S($D(^DIC(42.4,+Y,0)):$P(^(0),U),Y=""XY "":""BLOOD BANK"",1:""AMBULATORY CARE"")"
^DD(67.91148,.01,2.1)="S Y=$S($D(^DIC(42.4,+Y,0)):$P(^(0),U),Y=""XY "":""BLOOD BANK"",1:""AMBULATORY CARE"")"
^DD(67.91148,.01,3)="Answer must be 2 characters in length. Or 'XX' for AMBULATORY CARE Treating Speciality."
^DD(67.91148,.01,21,0)="^^1^1^2940317^^"
^DD(67.91148,.01,21,1,0)="Code for treating specialty."
^DD(67.91148,.01,"DT")="2930825"
^DD(67.91148,.03,0)="TREATING SPECIALITY NAME^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(67.91148,.03,3)="Answer must be 3-30 characters in length."
^DD(67.91148,.03,5,1,0)="67.91148^.01^2"
^DD(67.91148,.03,9)="^"
^DD(67.91148,.03,21,0)="^^1^1^2940317^^"
^DD(67.91148,.03,21,1,0)="Name of the treating specialty."
^DD(67.91148,.03,"DT")="2930320"
^DD(67.91148,1,0)="CNT^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.91148,1,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.91148,1,21,0)="^^1^1^2940317^^"
^DD(67.91148,1,21,1,0)="Number of treating specialty counts."
^DD(67.91148,1,"DT")="2920527"
^DD(67.91148,"B","CNT",1)=""
^DD(67.91148,"B","TREATING SPECIALITY CODE",.01)=""
^DD(67.91148,"B","TREATING SPECIALITY NAME",.03)=""
^DD(67.91148,"GL",0,1,.01)=""
^DD(67.91148,"GL",0,2,1)=""
^DD(67.91148,"GL",0,3,.03)=""
^DD(67.91148,"IX",.01)=""
^DD(67.99999,0)="FIELD^^1^3"
^DD(67.99999,0,"DI")="Y^Y"
^DD(67.99999,0,"DT")="2960528"
^DD(67.99999,0,"IX","B",67.99999,.01)=""
^DD(67.99999,0,"NM","ARCHIVED LAB MONTHLY WORKLOADS")=""
^DD(67.99999,0,"VR")="5.2"
^DD(67.99999,0,"VRPK")="LR"
^DD(67.99999,.01,0)="PRIMARY INSTITUTION^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(67.99999,.01,1,0)="^.1^^-1"
^DD(67.99999,.01,1,1,0)="67.99999^B"
^DD(67.99999,.01,1,1,1)="S ^LAR(67.99999,""B"",$E(X,1,30),DA)="""""
^DD(67.99999,.01,1,1,2)="K ^LAR(67.99999,""B"",$E(X,1,30),DA)"
^DD(67.99999,.01,1,1,"DT")="2920818"
^DD(67.99999,.01,3)="Answer must be 1-30 characters in length."
^DD(67.99999,.01,21,0)="^^1^1^2950515^^^^"
^DD(67.99999,.01,21,1,0)=" The reporting institution for this report"
^DD(67.99999,.01,"DT")="2940405"
^DD(67.99999,.02,0)="PRINT NAME INSTITUTION^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(67.99999,.02,3)="Answer must be 1-35 characters in length."
^DD(67.99999,.02,21,0)="^^1^1^2950515^^^^"
^DD(67.99999,.02,21,1,0)="The reporting institution for this report"
^DD(67.99999,.02,"DT")="2941104"
^DD(67.99999,1,0)="DIVISION^67.9999901A^^1;0"
^DD(67.99999,1,21,0)="^^3^3^2950202^^"
^DD(67.99999,1,21,1,0)="  This field contains what division this site is identified by. In most cases"
^DD(67.99999,1,21,2,0)="the primary and the division are one in the same. This is field becomes very"
^DD(67.99999,1,21,3,0)="important a sites which have multi-divisional status."
^DD(67.99999,"B","DIVISION",1)=""
^DD(67.99999,"B","PRIMARY INSTITUTION",.01)=""
^DD(67.99999,"B","PRINT NAME INSTITUTION",.02)=""
^DD(67.99999,"GL",0,1,.01)=""
^DD(67.99999,"GL",0,2,.02)=""
^DD(67.99999,"GL",1,0,1)=""
^DD(67.99999,"IX",.01)=""
^DD(67.99999,"RQ",.01)=""
^DD(67.99999,"SB",67.9999901,1)=""
^DD(67.9999901,0)="DIVISION SUB-FIELD^^1^3"
^DD(67.9999901,0,"DT")="2960528"
^DD(67.9999901,0,"IX","B",67.9999901,.01)=""
^DD(67.9999901,0,"NM","DIVISION")=""
^DD(67.9999901,0,"UP")="67.99999"
^DD(67.9999901,.01,0)="DIVISION^MNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(67.9999901,.01,1,0)="^.1^^-1"
^DD(67.9999901,.01,1,2,0)="67.9999901^B"
^DD(67.9999901,.01,1,2,1)="S ^LAR(67.99999,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.9999901,.01,1,2,2)="K ^LAR(67.99999,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.9999901,.01,1,2,"DT")="2920818"
^DD(67.9999901,.01,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(67.9999901,.01,21,0)="^^1^1^2950202^^^^"
^DD(67.9999901,.01,21,1,0)="This field contains what division this site is identified by."
^DD(67.9999901,.01,"DT")="2950202"
^DD(67.9999901,.02,0)="PRINT NAME DIVISION^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(67.9999901,.02,3)="Answer must be 1-35 characters in length."
^DD(67.9999901,.02,"DT")="2941104"
^DD(67.9999901,1,0)="MONTH^67.9999911D^^1;0"
^DD(67.9999901,"B","DIVISION",.01)=""
^DD(67.9999901,"B","MONTH",1)=""
^DD(67.9999901,"B","PRINT NAME DIVISION",.02)=""
^DD(67.9999901,"GL",0,1,.01)=""
^DD(67.9999901,"GL",0,2,.02)=""
^DD(67.9999901,"GL",1,0,1)=""
^DD(67.9999901,"IX",.01)=""
^DD(67.9999901,"SB",67.9999911,1)=""
^DD(67.9999911,0)="MONTH SUB-FIELD^^4^5"
^DD(67.9999911,0,"DT")="2960528"
^DD(67.9999911,0,"IX","B",67.9999911,.01)=""
^DD(67.9999911,0,"NM","MONTH")=""
^DD(67.9999911,0,"UP")="67.9999901"
^DD(67.9999911,.01,0)="MONTH^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,5)_""00"""
^DD(67.9999911,.01,1,0)="^.1"
^DD(67.9999911,.01,1,1,0)="67.9999911^B"
^DD(67.9999911,.01,1,1,1)="S ^LAR(67.99999,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.9999911,.01,1,1,2)="K ^LAR(67.99999,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.9999911,.01,"DT")="2920623"
^DD(67.9999911,1,0)="CERTIFIED BY^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(67.9999911,1,3)="Answer must be 1-35 characters in length."
^DD(67.9999911,1,"DT")="2951024"
^DD(67.9999911,2,0)="DATE COMPILED^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(67.9999911,2,"DT")="2920527"
^DD(67.9999911,3,0)="MESSAGE NUMBER^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(67.9999911,3,3)="Answer must be 1-50 characters in length."
^DD(67.9999911,3,"DT")="2960226"
^DD(67.9999911,4,0)="WKLD CODE^67.99999114A^^1;0"
^DD(67.9999911,"B","CERTIFIED BY",1)=""
^DD(67.9999911,"B","DATE COMPILED",2)=""
^DD(67.9999911,"B","MESSAGE NUMBER",3)=""
^DD(67.9999911,"B","MONTH",.01)=""
^DD(67.9999911,"B","WKLD CODE",4)=""
^DD(67.9999911,"GL",0,1,.01)=""
^DD(67.9999911,"GL",0,2,1)=""
^DD(67.9999911,"GL",0,3,2)=""
^DD(67.9999911,"GL",0,4,3)=""
^DD(67.9999911,"GL",1,0,4)=""
^DD(67.9999911,"IX",.01)=""
^DD(67.9999911,"SB",67.99999114,4)=""
^DD(67.99999114,0)="WKLD CODE SUB-FIELD^^12^15"
^DD(67.99999114,0,"DT")="2960528"
^DD(67.99999114,0,"IX","B",67.99999114,.01)=""
^DD(67.99999114,0,"NM","WKLD CODE")=""
^DD(67.99999114,0,"UP")="67.9999911"
^DD(67.99999114,.01,0)="WKLD CODE^MFX^^0;1^K:$L(X)>10!($L(X)<9)!('$D(^LAM(""E"",X))) X"
^DD(67.99999114,.01,1,0)="^.1^^-1"
^DD(67.99999114,.01,1,1,0)="67.99999114^B"
^DD(67.99999114,.01,1,1,1)="S ^LAR(67.99999,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.99999114,.01,1,1,2)="K ^LAR(67.99999,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.99999114,.01,3)="Answer must be 9-10 characters in length."
^DD(67.99999114,.01,"DT")="2940405"
^DD(67.99999114,.03,0)="WKLD CODE NAME^F^^0;9^K:$L(X)>60!($L(X)<3) X"
^DD(67.99999114,.03,3)="Answer must be 3-60 characters in length."
^DD(67.99999114,.03,9)="^"
^DD(67.99999114,.03,"DT")="2960528"
^DD(67.99999114,1,0)="IN PATIENT CNT^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,1,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.99999114,1,"DT")="2920527"
^DD(67.99999114,2,0)="OUT PATIENT CNT^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,2,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.99999114,2,"DT")="2920527"
^DD(67.99999114,3,0)="OTHER PATIENT CNT^NJ6,0^^0;4^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,3,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.99999114,3,"DT")="2920527"
^DD(67.99999114,4,0)="QC CNT^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,4,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.99999114,4,"DT")="2920527"
^DD(67.99999114,5,0)="IN PATIENT STATS^NJ6,0^^0;6^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,5,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.99999114,5,"DT")="2921106"
^DD(67.99999114,6,0)="TOT STATS^NJ6,0^^0;7^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,6,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.99999114,6,"DT")="2921106"
^DD(67.99999114,7,0)="MANUAL INPUT DATA^NJ7,0^^0;8^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,7,3)="Type a Number between 0 and 1000000, 0 Decimal Digits"
^DD(67.99999114,7,"DT")="2920527"
^DD(67.99999114,7.5,0)="SEND OUT TEST^NJ6,0^^0;10^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,7.5,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.99999114,7.5,21,0)="^^5^5^2930415^"
^DD(67.99999114,7.5,21,1,0)=" This field contains the tests which are performed by some other lab than"
^DD(67.99999114,7.5,21,2,0)="the one filing LMIP reports. All test sent of a reference/referral lab,"
^DD(67.99999114,7.5,21,3,0)="research lab, medical school, commercial are included in this total."
^DD(67.99999114,7.5,21,4,0)="  The suffix portion of the WKLD code determine if the procedure is send"
^DD(67.99999114,7.5,23,0)="^^3^3^2930415^"
^DD(67.99999114,7.5,23,1,0)="  This field is the same for total for all send out/referred testing."
^DD(67.99999114,7.5,23,2,0)="Only wkld codes with a suffix between 8000-8999 will have a value in"
^DD(67.99999114,7.5,23,3,0)="this field."
^DD(67.99999114,7.5,"DT")="2930421"
^DD(67.99999114,8,0)="TREATING SPECIALTY^67.999991148A^^1;0"
^DD(67.99999114,8,"DT")="2951103"
^DD(67.99999114,9,0)="REPORTABLE TEST COUNT^CJ10,0^^ ; ^X ^DD(67.99999114,9,9.2) S X=X+$P(Y(67.99999114,9,1),U,8) S X=$J(X,0,0)"
^DD(67.99999114,9,9)="^"
^DD(67.99999114,9,9.01)="67.99999114^7;67.99999114^3;67.99999114^2;67.99999114^1"
^DD(67.99999114,9,9.1)="IN PATIENT CNT+OUT PATIENT CNT+OTHER PATIENT CNT+MANUAL INPUT DATA"
^DD(67.99999114,9,9.2)="S Y(67.99999114,9,1)=$S($D(^LAR(67.99999,D0,1,D1,1,D2,1,D3,0)):^(0),1:"""") S X=$P(Y(67.99999114,9,1),U,2)+$P(Y(67.99999114,9,1),U,3)+$P(Y(67.99999114,9,1),U,4)"
^DD(67.99999114,10,0)="LMIP BILLABLE TEST^S^1:YES;^2;1^Q"
^DD(67.99999114,10,3)="Answer yes if this procedure should be reported to LMIP"
^DD(67.99999114,10,21,0)="^^5^5^2930320^^"
^DD(67.99999114,10,21,1,0)=" If this procedure should be reported to the National Data base as"
^DD(67.99999114,10,21,2,0)="an LMIP defined procedure, this field will be set to yes by the"
^DD(67.99999114,10,21,3,0)="data extracting program. This field should not be manually edited."
^DD(67.99999114,10,21,4,0)="To have this field set to yes, edit the REPORTABLE PROCEDURE field"
^DD(67.99999114,10,23,0)="^^2^2^2930320^^"
^DD(67.99999114,10,23,1,0)=" When the data is transfered for CAP WORKLOAD file at the end of each"
^DD(67.99999114,10,23,2,0)="month this field is marked accordingly."
^DD(67.99999114,10,"DT")="2930320"
^DD(67.99999114,11,0)="REP/STD^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<-10000)!(X?.E1"".""1N.N) X"
^DD(67.99999114,11,3)="Type a Number between -10000 and 99999, 0 Decimal Digits"
^DD(67.99999114,11,"DT")="2941104"
^DD(67.99999114,12,0)="OTHERS^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.99999114,12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(67.99999114,12,"DT")="2941104"
^DD(67.99999114,"B","IN PATIENT CNT",1)=""
^DD(67.99999114,"B","IN PATIENT STATS",5)=""
^DD(67.99999114,"B","LMIP BILLABLE TEST",10)=""
^DD(67.99999114,"B","MANUAL INPUT DATA",7)=""
^DD(67.99999114,"B","OTHER PATIENT CNT",3)=""
^DD(67.99999114,"B","OTHERS",12)=""
^DD(67.99999114,"B","OUT PATIENT CNT",2)=""
^DD(67.99999114,"B","QC CNT",4)=""
^DD(67.99999114,"B","REP/STD",11)=""
^DD(67.99999114,"B","REPORTABLE TEST COUNT",9)=""
^DD(67.99999114,"B","SEND OUT TEST",7.5)=""
^DD(67.99999114,"B","TOT STATS",6)=""
^DD(67.99999114,"B","TREATING SPECIALTY",8)=""
^DD(67.99999114,"B","WKLD CODE",.01)=""
^DD(67.99999114,"B","WKLD CODE NAME",.03)=""
^DD(67.99999114,"GL",0,1,.01)=""
^DD(67.99999114,"GL",0,2,1)=""
^DD(67.99999114,"GL",0,3,2)=""
^DD(67.99999114,"GL",0,4,3)=""
^DD(67.99999114,"GL",0,5,4)=""
^DD(67.99999114,"GL",0,6,5)=""
^DD(67.99999114,"GL",0,7,6)=""
^DD(67.99999114,"GL",0,8,7)=""
^DD(67.99999114,"GL",0,9,.03)=""
^DD(67.99999114,"GL",0,10,7.5)=""
^DD(67.99999114,"GL",0,11,11)=""
^DD(67.99999114,"GL",0,12,12)=""
^DD(67.99999114,"GL",1,0,8)=""
^DD(67.99999114,"GL",2,1,10)=""
^DD(67.99999114,"IX",.01)=""
^DD(67.99999114,"SB",67.999991148,8)=""
^DD(67.999991148,0)="TREATING SPECIALTY SUB-FIELD^^1^3"
^DD(67.999991148,0,"IX","B",67.999991148,.01)=""
^DD(67.999991148,0,"NM","TREATING SPECIALTY")=""
^DD(67.999991148,0,"UP")="67.99999114"
^DD(67.999991148,.01,0)="TREATING SPECIALTY CODE^MFX^^0;1^Q:(X=""XX ""!(X=""XY ""))  S:$E(X)=""X""&($L(X)=2) X=X_"" "" S X=$S($L(X)=1:0_0_X,$L(X)=2:0_X,1:X) K:$L(X)>3!($L(X)<2)!('$D(^DIC(42.4,+X,0))#2) X"
^DD(67.999991148,.01,1,0)="^.1^^-1"
^DD(67.999991148,.01,1,1,0)="67.999991148^B"
^DD(67.999991148,.01,1,1,1)="S ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(67.999991148,.01,1,1,2)="K ^LAR(67.99999,DA(4),1,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(67.999991148,.01,3)="Answer must be 2 characters in length. Or 'XX' for AMBULATORY CARE Treating Specialty."
^DD(67.999991148,.01,"DT")="2951103"
^DD(67.999991148,.03,0)="TREATING SPECIALTY NAME^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(67.999991148,.03,3)="Answer must be 3-30 characters in length."
^DD(67.999991148,.03,"DT")="2951103"
^DD(67.999991148,1,0)="CNT^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(67.999991148,1,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(67.999991148,1,"DT")="2920527"
^DD(67.999991148,"B","CNT",1)=""
^DD(67.999991148,"B","TREATING SPECIALTY CODE",.01)=""
^DD(67.999991148,"B","TREATING SPECIALTY NAME",.03)=""
^DD(67.999991148,"GL",0,1,.01)=""
^DD(67.999991148,"GL",0,2,1)=""
^DD(67.999991148,"GL",0,3,.03)=""
^DD(67.999991148,"IX",.01)=""
^DD(68,0)="FIELD^NL^11^35"
^DD(68,0,"DDA")="N"
^DD(68,0,"DT")="3021105"
^DD(68,0,"ID",.05)="W """""
^DD(68,0,"ID",.06)="W """""
^DD(68,0,"ID",.08)="W """""
^DD(68,0,"ID",.09)="W """""
^DD(68,0,"IX","AA",68.04,4)=""
^DD(68,0,"IX","AC",68.02,13)=""
^DD(68,0,"IX","AD",68,.095)=""
^DD(68,0,"IX","AE",68,.04)=""
^DD(68,0,"IX","AF",68.02,16.1)=""
^DD(68,0,"IX","B",68,.01)=""
^DD(68,0,"IX","B",68,.09)=""
^DD(68,0,"IX","C",68.02,16)=""
^DD(68,0,"IX","D",68.02,16.3)=""
^DD(68,0,"NM","ACCESSION")=""
^DD(68,0,"PT",60.11,1)=""
^DD(68,0,"PT",62.02,.01)=""
^DD(68,0,"PT",62.4,11)=""
^DD(68,0,"PT",62.41,7)=""
^DD(68,0,"PT",62.9001,.02)=""
^DD(68,0,"PT",64,21)=""
^DD(68,0,"PT",64.03,6)=""
^DD(68,0,"PT",64.1111,6)=""
^DD(68,0,"PT",64.1111,7)=""
^DD(68,0,"PT",64.1111,7.5)=""
^DD(68,0,"PT",65.31,.04)=""
^DD(68,0,"PT",65.31,.05)=""
^DD(68,0,"PT",65.9,.09)=""
^DD(68,0,"PT",68,.04)=""
^DD(68,0,"PT",68.14,4)=""
^DD(68,0,"PT",68.14,5)=""
^DD(68,0,"PT",68.14,6)=""
^DD(68,0,"PT",68.2,1)=""
^DD(68,0,"PT",68.2,1.5)=""
^DD(68,0,"PT",68.2,1.7)=""
^DD(68,0,"PT",68.21,4)=""
^DD(68,0,"PT",68.22,.01)=""
^DD(68,0,"PT",68.23,2)=""
^DD(68,0,"PT",68.4,.01)=""
^DD(68,0,"PT",69.03,3)=""
^DD(68,0,"PT",69.11,9)=""
^DD(68,0,"PT",69.2,.01)=""
^DD(68,0,"PT",69.9008,.06)=""
^DD(68,0,"PT",69.9618,618)=""
^DD(68,0,"PT",69.98,.1)=""
^DD(68,0,"PT",69.98,.11)=""
^DD(68,0,"PT",69.981,.02)=""
^DD(68,0,"PT",69.981,.03)=""
^DD(68,0,"PT",69.981,.04)=""
^DD(68,0,"PT",69.981,.05)=""
^DD(68,0,"VR")="5.2"
^DD(68,0,"VRPK")="LR"
^DD(68,.01,0)="AREA^RF^^0;1^K:$L(X)>20!($L(X)<2) X"
^DD(68,.01,1,0)="^.1"
^DD(68,.01,1,1,0)="68^B"
^DD(68,.01,1,1,1)="S ^LRO(68,""B"",$E(X,1,30),DA)="""""
^DD(68,.01,1,1,2)="K ^LRO(68,""B"",$E(X,1,30),DA)"
^DD(68,.01,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(68,.01,21,0)="^^1^1^2841120^"
^DD(68,.01,21,1,0)="The accession area of the Lab."
^DD(68,.01,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(68,.01,"DT")="2830128"
^DD(68,.02,0)="LR SUBSCRIPT^RS^CH:CHEM, HEM, TOX, RIA, SER, etc.;MI:MICROBIOLOGY;EM:ELECTRON MICROSCOPY;SP:SURGICAL PATHOLOGY;CY:CYTOLOGY;AU:AUTOPSY;BB:BLOOD BANK;^0;2^Q"
^DD(68,.02,3)=""
^DD(68,.02,21,0)="^^1^1^2841120^"
^DD(68,.02,21,1,0)="This represents the functional area of the Lab.  Must be chosen from a set of codes."
^DD(68,.02,"DT")="2841025"
^DD(68,.03,0)="CLEAN UP^RS^D:DAILY;W:WEEKLY;M:MONTHLY;Q:QUARTERLY;Y:YEARLY;^0;3^Q"
^DD(68,.03,5,1,0)="68^.05^3"
^DD(68,.03,9)="^"
^DD(68,.03,21,0)="^^2^2^2841120^^"
^DD(68,.03,21,1,0)="Triggered by the Accession Transform field."
^DD(68,.03,21,2,0)="Determines frequency of clean up on accession lists."
^DD(68,.03,"DT")="2821108"
^DD(68,.04,0)="COMMON ACCESSION #'S WITH AREA^*P68'^LRO(68,^0;4^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68,.04,1,0)="^.1"
^DD(68,.04,1,1,0)="68^AE"
^DD(68,.04,1,1,1)="S ^LRO(68,""AE"",$E(X,1,30),DA)="""""
^DD(68,.04,1,1,2)="K ^LRO(68,""AE"",$E(X,1,30),DA)"
^DD(68,.04,1,1,"DT")="2921210"
^DD(68,.04,3)="IF THIS WORKLIST IS TO BE NUMBERED IN PARALLEL WITH ANOTHER, WHICH ONE."
^DD(68,.04,12)="You can not select an accession area designated Work Area."
^DD(68,.04,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(68,.04,21,0)="^^3^3^2931104^^^"
^DD(68,.04,21,1,0)="If another accession area is designated here, that other accession area"
^DD(68,.04,21,2,0)="will be used to find the next ""available"" accession number which will be"
^DD(68,.04,21,3,0)="updated on the other accession area."
^DD(68,.04,"DT")="2921210"
^DD(68,.05,0)="ACCESSION TRANSFORM^R*P62.07'^LAB(62.07,^0;5^S DIC(""S"")=""I $L($P(^(0),U,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68,.05,1,0)="^.1"
^DD(68,.05,1,2,0)="^^TRIGGER^68^.051"
^DD(68,.05,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.1)):^(.1),1:"""") S X=$E(Y(1),1,220) S DIU=X K Y X ^DD(68,.05,1,2,1.1) X ^DD(68,.05,1,2,1.4)"
^DD(68,.05,1,2,1.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,.1)):^(.1),1:""""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1)"
^DD(68,.05,1,2,1.4)="S DIH=$S($D(^LRO(68,DIV(0),.1)):^(.1),1:""""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",220-$L(DIV))_Y),DIH=68,DIG=.051 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.05,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.1)):^(.1),1:"""") S X=$E(Y(1),1,220) S DIU=X K Y S X="""" X ^DD(68,.05,1,2,2.4)"
^DD(68,.05,1,2,2.4)="S DIH=$S($D(^LRO(68,DIV(0),.1)):^(.1),1:""""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",220-$L(DIV))_Y),DIH=68,DIG=.051 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.05,1,2,"CREATE VALUE")="ACCESSION TRANSFORM:(EXECUTE CODE)"
^DD(68,.05,1,2,"DELETE VALUE")="@"
^DD(68,.05,1,2,"FIELD")="ACC CODE"
^DD(68,.05,1,3,0)="^^TRIGGER^68^.03"
^DD(68,.05,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(68,.03,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^LRO(68,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1) S DIU=X K Y X ^DD(68,.05,1,3,1.1) X ^DD(68,.05,1,3,1.4)"
^DD(68,.05,1,3,1,9.2)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(103)=$C(59)_$S($D(^DD(62.07,2,0)):$P(^(0),U,3),1:""""),Y(102)=$S($D(^LAB(62.07,D0,0)):^(0),1:"""")"
^DD(68,.05,1,3,1.1)="X ^DD(68,.05,1,3,1,9.2) S Y(101)=X S X=$P($P(Y(103),$C(59)_$P(Y(102),U,2)_"":"",2),$C(59),1) S D0=Y(1)"
^DD(68,.05,1,3,1.4)="S DIH=$S($D(^LRO(68,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=68,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.05,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(2)=$C(59)_$S($D(^DD(68,.03,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^LRO(68,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59),1) S DIU=X K Y X ^DD(68,.05,1,3,2.1) X ^DD(68,.05,1,3,2.4)"
^DD(68,.05,1,3,2,9.2)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(103)=$C(59)_$S($D(^DD(62.07,2,0)):$P(^(0),U,3),1:""""),Y(102)=$S($D(^LAB(62.07,D0,0)):^(0),1:"""")"
^DD(68,.05,1,3,2.1)="X ^DD(68,.05,1,3,2,9.2) S Y(101)=X S X=$P($P(Y(103),$C(59)_$P(Y(102),U,2)_"":"",2),$C(59),1) S D0=Y(1)"
^DD(68,.05,1,3,2.4)="S DIH=$S($D(^LRO(68,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=68,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.05,1,3,"CREATE VALUE")="ACCESSION TRANSFORM:(PURGE CONTROL)"
^DD(68,.05,1,3,"DELETE VALUE")="ACCESSION TRANSFORM:(PURGE CONTROL)"
^DD(68,.05,1,3,"FIELD")="CLEAN UP"
^DD(68,.05,12)="ACCESSION CONTROL MUST BE DEFINED"
^DD(68,.05,12.1)="S DIC(""S"")=""I $L($P(^(0),U,2))"""
^DD(68,.05,21,0)="^^2^2^2860113^^"
^DD(68,.05,21,1,0)="Determines when a new accession list begins."
^DD(68,.05,21,2,0)="Points to the EXECUTE CODE file."
^DD(68,.05,"DT")="2831019"
^DD(68,.051,0)="ACC CODE^F^^.1;E1,220^K:$L(X)>220!($L(X)<1) X"
^DD(68,.051,3)="ANSWER MUST BE 1-220 CHARACTERS IN LENGTH"
^DD(68,.051,5,1,0)="68^.05^2"
^DD(68,.051,9)="@"
^DD(68,.051,21,0)="^^1^1^2841120^"
^DD(68,.051,21,1,0)="Mumps code that is triggered by the Accession Transform field."
^DD(68,.06,0)="VERIFICATION CODE^*P62.07'^LAB(62.07,^0;6^S DIC(""S"")=""I $P(^(0),U,3)=""""V"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68,.06,1,0)="^.1"
^DD(68,.06,1,1,0)="^^TRIGGER^68^.061"
^DD(68,.06,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.2)):^(.2),1:"""") S X=$E(Y(1),1,220) S DIU=X K Y X ^DD(68,.06,1,1,1.1) X ^DD(68,.06,1,1,1.4)"
^DD(68,.06,1,1,1.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,.1)):^(.1),1:""""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1)"
^DD(68,.06,1,1,1.4)="S DIH=$S($D(^LRO(68,DIV(0),.2)):^(.2),1:""""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.2)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",220-$L(DIV))_Y),DIH=68,DIG=.061 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.06,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.2)):^(.2),1:"""") S X=$E(Y(1),1,220) S DIU=X K Y S X="""" X ^DD(68,.06,1,1,2.4)"
^DD(68,.06,1,1,2.4)="S DIH=$S($D(^LRO(68,DIV(0),.2)):^(.2),1:""""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.2)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",220-$L(DIV))_Y),DIH=68,DIG=.061 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.06,1,1,"CREATE VALUE")="VERIFICATION CODE:(EXECUTE CODE)"
^DD(68,.06,1,1,"DELETE VALUE")="@"
^DD(68,.06,1,1,"FIELD")="VER CODE"
^DD(68,.06,12)="Only allow 'VERIFICATION' type of the EXECUTE CODE file"
^DD(68,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""V"""""""
^DD(68,.06,21,0)="^^1^1^2841120^"
^DD(68,.06,21,1,0)="Points to EXECUTE CODE file."
^DD(68,.06,"DT")="2840913"
^DD(68,.061,0)="VER CODE^F^^.2;E1,220^K:$L(X)>220!($L(X)<1) X"
^DD(68,.061,3)="ANSWER MUST BE 1-220 CHARACTERS IN LENGTH"
^DD(68,.061,5,1,0)="68^.06^1"
^DD(68,.061,9)="@"
^DD(68,.061,21,0)="^^1^1^2841120^"
^DD(68,.061,21,1,0)="Triggered by the Verification Code field."
^DD(68,.07,0)="*IDENTITY CONTROL^P62.07'^LAB(62.07,^0;7^Q"
^DD(68,.07,1,0)="^.1"
^DD(68,.07,1,1,0)="^^TRIGGER^68^.071"
^DD(68,.07,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.3)):^(.3),1:"""") S X=$E(Y(1),1,220) S DIU=X K Y X ^DD(68,.07,1,1,1.1) X ^DD(68,.07,1,1,1.4)"
^DD(68,.07,1,1,1.1)="S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^LAB(62.07,+D0,0)) D0=-1 S Y(102)=$S($D(^LAB(62.07,D0,.1)):^(.1),1:""""),Y(101)=X S X=$E(Y(102),1,220) S D0=Y(1)"
^DD(68,.07,1,1,1.4)="S DIH=$S($D(^LRO(68,DIV(0),.3)):^(.3),1:""""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.3)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",220-$L(DIV))_Y),DIH=68,DIG=.071 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.07,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68,D0,.3)):^(.3),1:"""") S X=$E(Y(1),1,220) S DIU=X K Y S X="""" X ^DD(68,.07,1,1,2.4)"
^DD(68,.07,1,1,2.4)="S DIH=$S($D(^LRO(68,DIV(0),.3)):^(.3),1:""""),DIV=X S DE=0-$L(DIH),Y=$E(DIH,221,999),^(.3)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",220-$L(DIV))_Y),DIH=68,DIG=.071 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68,.07,1,1,"CREATE VALUE")="IDENTITY CONTROL:(EXECUTE CODE)"
^DD(68,.07,1,1,"DELETE VALUE")="@"
^DD(68,.07,1,1,"FIELD")="IDENT CODE"
^DD(68,.07,21,0)="^^1^1^2940317^^^"
^DD(68,.07,21,1,0)="No longer used.  Will be deleted in later version."
^DD(68,.071,0)="*IDENT CODE^F^^.3;E1,220^K:$L(X)>220!($L(X)<1) X"
^DD(68,.071,3)="ANSWER MUST BE 1-220 CHARACTERS IN LENGTH"
^DD(68,.071,5,1,0)="68^.07^1"
^DD(68,.071,9)="^"
^DD(68,.071,21,0)="^^1^1^2940317^^^"
^DD(68,.071,21,1,0)="No longer used.  Will be deleted in later version."
^DD(68,.08,0)="PRINT ORDER^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68,.08,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(68,.08,21,0)="^^1^1^2841120^"
^DD(68,.08,21,1,0)="The print order of the Accession Area.  If the entry is less than 1 it will not be displayed."
^DD(68,.08,"DT")="2841001"
^DD(68,.085,0)="BYPASS ROLLOVER^S^1:YES;0:NO;^0;10^Q"
^DD(68,.085,21,0)="^^1^1^2860815^^^"
^DD(68,.085,21,1,0)="If you choose not to bypass rollover (i.e., have a null entry), then any unverified data will be ""rolled over"" to the next day.  You will not be allowed to have a duplicate accession number."
^DD(68,.085,"DT")="2870714"
^DD(68,.09,0)="ABBREVIATION^RFX^^0;11^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X I $D(X) K:X["" ""!$D(^LRO(68,""B"",X)) X"
^DD(68,.09,1,0)="^.1"
^DD(68,.09,1,1,0)="68^B^MNEMONIC"
^DD(68,.09,1,1,1)="S ^LRO(68,""B"",$E(X,1,30),DA)=1"
^DD(68,.09,1,1,2)="K ^LRO(68,""B"",$E(X,1,30),DA)"
^DD(68,.09,3)="ANSWER MUST BE A UNIQUE 2-5 CHARACTER CODE AND NOT CONTAIN A SPACE"
^DD(68,.09,21,0)="^^1^1^2940317^^^"
^DD(68,.09,21,1,0)="Abbreviation for the accession area.  Must have programmer privileges to alter this entry."
^DD(68,.09,"DT")="2850130"
^DD(68,.091,0)="ASSOCIATED DIVISION^68.03PA^^3;0"
^DD(68,.091,"DT")="2950731"
^DD(68,.092,0)="TYPE OF ACCESSION NUMBER^S^S:SHORT;L:LONG;^.4;2^Q"
^DD(68,.092,3)="Select the type of Accession Number that will be barcoded and passed in messages.  If nothing is entered, the default will be 'S'hort."
^DD(68,.092,21,0)="^^41^41^2960322^^^^"
^DD(68,.092,21,1,0)="This field determines whether a full unique accession number is used for"
^DD(68,.092,21,2,0)="barcoding and messages between instruments.  The unique accession number"
^DD(68,.092,21,3,0)="is built from three different numbers, the accession area, the date, and"
^DD(68,.092,21,4,0)="the accession entry number. If 'S'hort is selected, the accession number"
^DD(68,.092,21,5,0)="used in barcodes and for input at the instrument keypad is treated the "
^DD(68,.092,21,6,0)="same as it was traditionally.  The 'L'ong unique accession will always be"
^DD(68,.092,21,7,0)="generated, it just won't be used in communicating with the instrument, or "
^DD(68,.092,21,8,0)="for barcoding.  "
^DD(68,.092,21,9,0)="Examples of the four accession transform"
^DD(68,.092,21,10,0)="types are:"
^DD(68,.092,21,11,0)=""
^DD(68,.092,21,12,0)=" Daily/Weekly:   3242889999"
^DD(68,.092,21,13,0)=" where     32 is the Accession area identifier (field .091)"
^DD(68,.092,21,14,0)="            4 is the last digit of the year (1994)"
^DD(68,.092,21,15,0)="          288 is the Julian date for Oct 15, 1994"
^DD(68,.092,21,16,0)="         9999 is the 9,999th accession for that date"
^DD(68,.092,21,17,0)=" If the 'L'ong version was 3242889999, 'S'hort would be 9999"
^DD(68,.092,21,18,0)=" If the 'L'ong version was 3242880001, 'S'hort would be 1"
^DD(68,.092,21,19,0)=""
^DD(68,.092,21,20,0)=" Yearly:   3294999999"
^DD(68,.092,21,21,0)=" where      32 is the Accession area identifier (field .091)"
^DD(68,.092,21,22,0)="            94 is the last two digits of the year (1994)"
^DD(68,.092,21,23,0)="        999999 is the 999,999th accession for that year"
^DD(68,.092,21,24,0)=" If the 'L'ong version was 3294999999, 'S'hort would be 999999"
^DD(68,.092,21,25,0)=" If the 'L'ong version was 3294000001, 'S'hort would be 1"
^DD(68,.092,21,26,0)=""
^DD(68,.092,21,27,0)=" Quarterly:   3240499999"
^DD(68,.092,21,28,0)=" where      32 is the Accession area identifier (field .091)"
^DD(68,.092,21,29,0)="             4 is the last digit of the year (1994)"
^DD(68,.092,21,30,0)="            04 is the fourth quarter of 1994"
^DD(68,.092,21,31,0)="         99999 is the 99,999th accession for that quarter"
^DD(68,.092,21,32,0)=" If the 'L'ong version was 3240499999, 'S'hort would be 99999"
^DD(68,.092,21,33,0)=" If the 'L'ong version was 3240400001, 'S'hort would be 1"
^DD(68,.092,21,34,0)=""
^DD(68,.092,21,35,0)=" Monthly:   3241299999"
^DD(68,.092,21,36,0)=" where      32 is the Accession area identifier (field .091)"
^DD(68,.092,21,37,0)="             4 is the last digit of the year (1994)"
^DD(68,.092,21,38,0)="            12 is the twelfth month of 1994"
^DD(68,.092,21,39,0)="         99999 is the 99,999th accession for that month"
^DD(68,.092,21,40,0)=" If the 'L'ong version was 3241299999, 'S'hort would be 99999"
^DD(68,.092,21,41,0)=" If the 'L'ong version was 3241200001, 'S'hort would be 1"
^DD(68,.092,"DT")="2941115"
^DD(68,.095,0)="*LAB SECTION^R*P62.2^LAB(62.2,^0;13^S DIC(""S"")=""I $P(^(0),U,2)=$P(^LRO(68,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68,.095,1,0)="^.1"
^DD(68,.095,1,1,0)="68^AD"
^DD(68,.095,1,1,1)="S ^LRO(68,""AD"",$E(X,1,30),DA)="""""
^DD(68,.095,1,1,2)="K ^LRO(68,""AD"",$E(X,1,30),DA)"
^DD(68,.095,12)="LR subscripts must match."
^DD(68,.095,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$P(^LRO(68,DA,0),U,2)"""
^DD(68,.095,21,0)="^^3^3^2910326^^"
^DD(68,.095,21,1,0)="  THIS FIELD HAS BEEN MARKED FOR DELETION IN FUTURE VERSIONS"
^DD(68,.095,21,2,0)="THE FIELD LAB DIVISION (#.19) WILL BE USED INSTEAD PER WORKLOAD"
^DD(68,.095,21,3,0)="REVISION."
^DD(68,.095,23,0)="^^2^2^2910326^"
^DD(68,.095,23,1,0)=" The data in this field will be ignored for the collection of work load"
^DD(68,.095,23,2,0)="data."
^DD(68,.095,"DT")="2910326"
^DD(68,.097,0)="NON LAB ACCESSION AREA^S^1:YES;0:NO;^0;21^Q"
^DD(68,.097,21,0)="^^14^14^2980311^"
^DD(68,.097,21,1,0)=" This field indicates if this particular accession area is operated by"
^DD(68,.097,21,2,0)="another service other than Pathology & Laboratory Medicine. If this"
^DD(68,.097,21,3,0)="accession area in staffed or funded from non Pathology sources, mark this"
^DD(68,.097,21,4,0)="field yes."
^DD(68,.097,21,5,0)="   An example would be Blood Gas laboratory staffed or funded by"
^DD(68,.097,21,6,0)="Medicine service."
^DD(68,.097,21,7,0)=" "
^DD(68,.097,21,8,0)="HOWEVER"
^DD(68,.097,21,9,0)="If this accession area is used by Point of Care (ie. Nurses entering"
^DD(68,.097,21,10,0)="finger stick glucose) do not set this field to yes. Because in this case"
^DD(68,.097,21,11,0)="the location is relevant to DSS database."
^DD(68,.097,21,12,0)=" "
^DD(68,.097,21,13,0)="This field is used by the Laboratory DSS workload extraction routine to"
^DD(68,.097,21,14,0)="determine if the patient location should be passed or not."
^DD(68,.097,"DT")="2980311"
^DD(68,.1,0)="RESPONSIBLE OFFICIAL^P200'^VA(200,^0;9^Q"
^DD(68,.1,3)=""
^DD(68,.1,21,0)="^.001^1^1^3040427^^^"
^DD(68,.1,21,1,0)="The responsible official in the laboratory.  Usually the Chief of Laboratory Service, or his designee."
^DD(68,.1,"DT")="3040427"
^DD(68,.11,0)="INHIBIT AREA LABEL PRINTING^S^0:NO;1:YES;^0;12^Q"
^DD(68,.11,3)="ENTER 'YES' TO STOP ALL LABELS FOR THIS ACCESSION AREA. 'NO' OTHER WISE."
^DD(68,.11,21,0)="^^1^1^2841120^"
^DD(68,.11,21,1,0)="A YES entry stops all label printing for this accession area."
^DD(68,.11,"DT")="2840911"
^DD(68,.19,0)="LAB DIVISION^RS^AP:ANATOMIC PATHOLOGY;CP:CLINICAL PATHOLOGY;^0;19^Q"
^DD(68,.19,21,0)="^^3^3^2931104^^^"
^DD(68,.19,21,1,0)="  This field will be used to determine which lab division a particular"
^DD(68,.19,21,2,0)="accession area belongs.  If this field is not filled in, CP (Clinical"
^DD(68,.19,21,3,0)="Pathology ) will be assumed."
^DD(68,.19,23,0)="^^3^3^2931104^^^"
^DD(68,.19,23,1,0)="  There can only be two possible laboratory divisions. Anatomical Pathology"
^DD(68,.19,23,2,0)="or Clinical Pathology.  This field is used to group workload reports and "
^DD(68,.19,23,3,0)="data."
^DD(68,.19,"DT")="2910326"
^DD(68,.4,0)="NUMERIC IDENTIFIER^FX^^.4;1^K:X'?1.2NU!($E(X)=0) X X:$D(X) ^DD(68,.4,9.2)"
^DD(68,.4,3)="Type a 1-2 character code using the digits 1-9 and/or the letters A-Z (uppercase only)."
^DD(68,.4,9.2)="N LR4264 S LR4264=0 F  S LR4264=$O(^LRO(68,LR4264)) Q:'LR4264  K:$P($G(^LRO(68,LR4264,.4)),U)=X&(DA'=LR4264) X D:'$D(X) EN^DDIOL(""Identifier has already been used in Accession Area: ""_$P(^(0),U),"""",""!!?5"") Q:'$D(X)"
^DD(68,.4,21,0)="^^20^20^2970915^^^"
^DD(68,.4,21,1,0)="This field is used to build the unique accession identifier number."
^DD(68,.4,21,2,0)="It is used as the first two characters of the number.  Use the numbers 1-9"
^DD(68,.4,21,3,0)="and uppercase letters A-Z to designate the identifier. For example, if"
^DD(68,.4,21,4,0)="you enter 99 all accession identifiers for this accession area will"
^DD(68,.4,21,5,0)="start with 99, e.g. 9923400025."
^DD(68,.4,21,6,0)=" "
^DD(68,.4,21,7,0)="If a single character is used the system will append a leading zero to"
^DD(68,.4,21,8,0)="the unique identifier generated."
^DD(68,.4,21,9,0)=" "
^DD(68,.4,21,10,0)="No two accession areas can use the same identifier."
^DD(68,.4,21,11,0)=" "
^DD(68,.4,21,12,0)="Changing the identifier should only be performed when accessioning is not"
^DD(68,.4,21,13,0)="occurring and when a situation requires it since personnel will memorize"
^DD(68,.4,21,14,0)="this identifier as representing the accesson area."
^DD(68,.4,21,15,0)=" "
^DD(68,.4,21,16,0)="Do NOT switch identifiers between active accession areas since this could"
^DD(68,.4,21,17,0)="compromise the uniqueness of the resulting unique identifier (UID). The"
^DD(68,.4,21,18,0)="software when generating a UID checks for the existence of the UID it will"
^DD(68,.4,21,19,0)="create for an accession. If it currently exists the UID being created will"
^DD(68,.4,21,20,0)="have ""00"" as the numeric identifier."
^DD(68,.4,"DT")="2970404"
^DD(68,.7,0)="Lock for load/work list build^S^0:NO;1:YES;^.7;1^Q"
^DD(68,.7,3)="This locks the accession to allow only 1 load/work list to build at a time."
^DD(68,.7,21,0)="^^2^2^2920203^^^"
^DD(68,.7,21,1,0)="This locks the accession to allow only ONE"
^DD(68,.7,21,2,0)="load/work list to build at a time."
^DD(68,.7,"DT")="2870724"
^DD(68,.8,0)="LAB OOS LOCATION^*P44'^SC(^.8;1^S DIC(""S"")=""I $P(^(0),U)[""""LAB DIV"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68,.8,12)="Locations are Name Spaced"
^DD(68,.8,12.1)="S DIC(""S"")=""I $P(^(0),U)[""""LAB DIV"""""""
^DD(68,.8,21,0)="^^31^31^2961024^"
^DD(68,.8,21,1,0)="Occassion Of Service (OOS)"
^DD(68,.8,21,2,0)=" "
^DD(68,.8,21,3,0)=" This field is used for passing data to the PCE API. This API is used"
^DD(68,.8,21,4,0)="to capture CPT codes for laboratory procedures."
^DD(68,.8,21,5,0)=" "
^DD(68,.8,21,6,0)="Special OOS Hospital locations have been created that are solely used for"
^DD(68,.8,21,7,0)="recording workload (No count locations). These OOS location all begin with"
^DD(68,.8,21,8,0)="'LAB DIV' in their names."
^DD(68,.8,21,9,0)=" "
^DD(68,.8,21,10,0)="Example of name:"
^DD(68,.8,21,11,0)="LAB DIV 600 OOS ID 108"
^DD(68,.8,21,12,0)="Where 600 is the Station Number from the Institution file (#4)."
^DD(68,.8,21,13,0)="Where 600 is the division Station Number where the work is done."
^DD(68,.8,21,14,0)="Where 108 is the OOS ID (stop code) for the service doing the work."
^DD(68,.8,21,15,0)=" "
^DD(68,.8,21,16,0)="Note: The stop code could be one assigned to another service, ie Medicine."
^DD(68,.8,21,17,0)="Stop Codes are not limited to Laboratory 108."
^DD(68,.8,21,18,0)=" "
^DD(68,.8,21,19,0)="The Laboratory Information Manager has special options used to create new"
^DD(68,.8,21,20,0)="OOS locations in HOSPITAL LOCATION file. These options are used when and"
^DD(68,.8,21,21,0)="new division is established or a new stop code is required."
^DD(68,.8,21,22,0)=" "
^DD(68,.8,21,23,0)="The location names are constructed by the option and should not be altered"
^DD(68,.8,21,24,0)="using FileMan. The naming convention is critical to the ability to assign"
^DD(68,.8,21,25,0)="OOS Hospital Locations to Laboratory Accession (#68) file."
^DD(68,.8,21,26,0)=" "
^DD(68,.8,21,27,0)="If a given Accession Area in the Accession file (#68) does not have a"
^DD(68,.8,21,28,0)="LAB OOS LOCATION S LOCATION (#.8) Hospital Location assigned, the DEFAULT"
^DD(68,.8,21,29,0)="LAB OOS LOCATION (#.8) from the LABORATORY SITE (#69.9) file will be used."
^DD(68,.8,21,30,0)="If the DEFAULT LAB OOS LOCATION field is not defined, no workload will be"
^DD(68,.8,21,31,0)="captured."
^DD(68,.8,"DT")="2961024"
^DD(68,.9,0)="USER ACCESS AUTHORIZATION^P19.1'^DIC(19.1,^0;14^Q"
^DD(68,.9,3)=""
^DD(68,.9,21,0)="^^3^3^2910228^^^^"
^DD(68,.9,21,1,0)="If left blank, any lab person may access this accession area.  If filled"
^DD(68,.9,21,2,0)="in, only lab persons holding the key that is entered here may use"
^DD(68,.9,21,3,0)="this accession area."
^DD(68,.9,"DT")="2881114"
^DD(68,1,0)="INSTRUMENTATION CONTROLS^68.09PA^^.5;0"
^DD(68,1,21,0)="^^2^2^2931104^^^^"
^DD(68,1,21,1,0)="Select the instrument (if appropriate, otherwise use the MANUAL selection)"
^DD(68,1,21,2,0)="to be associated with the controls you will be selecting."
^DD(68,2,0)="DATE^68.01DA^^1;0"
^DD(68,2,21,0)="^^1^1^2990520^^^^"
^DD(68,2,21,1,0)="The date of the accession."
^DD(68,2,"DT")="2910313"
^DD(68,5,0)="BAR CODE PRINT^S^0:NONE;1:YES;2:CODE39;3:CODE39 WITH CHECK DIGIT;4:CODE128;^0;15^Q"
^DD(68,5,20,0)="^.3LA^1^1"
^DD(68,5,20,1,0)="BARCODE"
^DD(68,5,21,0)="^^2^2^2970314^^^^"
^DD(68,5,21,1,0)=" This field is used by the label print utilities to determine if"
^DD(68,5,21,2,0)="bar code labels should be printed for this accession area."
^DD(68,5,23,0)="^^2^2^2970314^^^^"
^DD(68,5,23,1,0)=" The routine LRLABLD creates an array LRBAR(ACCESSION AREA) from the"
^DD(68,5,23,2,0)="LRLBL variable to determine if bar code labels should be printed."
^DD(68,5,"DT")="2970331"
^DD(68,5.1,0)="BAR CODE PAD^NJ2,0^^.4;3^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68,5.1,3)="Type a Number between 1 and 15, 0 Decimal Digits"
^DD(68,5.1,20,0)="^.3LA^1^1"
^DD(68,5.1,20,1,0)="BARCODE"
^DD(68,5.1,21,0)="^^12^12^2980202^^^"
^DD(68,5.1,21,1,0)="Enter the number of zeros (""0"") to pad an accession number when printing"
^DD(68,5.1,21,2,0)="a bar code using the accession number. Used when site needs a minimum length"
^DD(68,5.1,21,3,0)="bar code on labels."
^DD(68,5.1,21,4,0)=" "
^DD(68,5.1,21,5,0)="Example if need a four digit bar code then enter four."
^DD(68,5.1,21,6,0)="        This would produce the following: "
^DD(68,5.1,21,7,0)="        Accession number       Bar Code"
^DD(68,5.1,21,8,0)="              1                  0001"
^DD(68,5.1,21,9,0)="             12                  0012"
^DD(68,5.1,21,10,0)="            123                  0123"
^DD(68,5.1,21,11,0)="           1234                  1234"
^DD(68,5.1,21,12,0)="          12345                 12345"
^DD(68,5.1,"DT")="2970311"
^DD(68,5.2,0)="ALTERNATE LABEL ENTRY^F^^.4;4^K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X"
^DD(68,5.2,3)="Answer must be 1-8 uppercase alpha and/or numeric characters in length."
^DD(68,5.2,9)="@"
^DD(68,5.2,21,0)="^^8^8^2971217^^^^"
^DD(68,5.2,21,1,0)="Site can enter an alternate label entry point to be used instead of the"
^DD(68,5.2,21,2,0)="standard lab label routine entry point defined in file LABORATORY SITE"
^DD(68,5.2,21,3,0)="(#69.9)."
^DD(68,5.2,21,4,0)=" "
^DD(68,5.2,21,5,0)="This field overrides the label routine settings in file LABORATORY SITE"
^DD(68,5.2,21,6,0)="(#69.9) for this accession area. Field ALTERNATE LABEL ROUTINE (#5.3)"
^DD(68,5.2,21,7,0)="must be completed for the software to use this field. See description"
^DD(68,5.2,21,8,0)="of field #5.3."
^DD(68,5.2,"DT")="2971217"
^DD(68,5.3,0)="ALTERNATE LABEL ROUTINE^F^^.4;5^K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X"
^DD(68,5.3,3)="Answer must be 1-8 uppercase alpha and/or numeric characters in length."
^DD(68,5.3,9)="@"
^DD(68,5.3,21,0)="^^6^6^2980706^^^^"
^DD(68,5.3,21,1,0)="Site can enter an alternate label routine to be used instead of the"
^DD(68,5.3,21,2,0)="standard lab label routine defined in file LABORATORY SITE (#69.9)."
^DD(68,5.3,21,3,0)=" "
^DD(68,5.3,21,4,0)="This field overrides the label routine settings in file LABORATORY SITE"
^DD(68,5.3,21,5,0)="(#69.9) for this accession area. It is used in conjunction with field"
^DD(68,5.3,21,6,0)="ALTERNATE LABEL ENTRY (#5.2) for building the variable LRLABEL."
^DD(68,5.3,"DT")="2971217"
^DD(68,8,0)="Reserved^S^1:2X5 UNEVEN;2:ORDER # FIRST;3:MEDLAB;4:SITE FILE;5:SITE DEVELOPED VAF 10-1392;^0;18^Q"
^DD(68,8,21,0)="^^1^1^2940907^^^"
^DD(68,8,21,1,0)="Reserved for future use."
^DD(68,8,21,2,0)="the same choices you have for the entire lab. If you have selected"
^DD(68,8,21,3,0)="special label in this file then the routine will use this field to"
^DD(68,8,21,4,0)="determine what label style to us for this accession area. The field"
^DD(68,8,21,5,0)="Bar Code Printer will determine where the label will print. Remember"
^DD(68,8,21,6,0)="these three field work together. The Bar code printer, the special"
^DD(68,8,21,7,0)="label, and the label type."
^DD(68,8,21,8,0)=" "
^DD(68,8,21,9,0)="  If you selected special label and leave this field blank the default"
^DD(68,8,21,10,0)="will be the 2X5 uneven will be used."
^DD(68,8,21,11,0)=" "
^DD(68,8,21,12,0)="  NOTE **** These are the same selection available under field #"
^DD(68,8,21,13,0)="302 of the LABORATORY SITE file (#69.9), LABEL TYPE."
^DD(68,8,"DT")="2921018"
^DD(68,9,0)="WORK AREA^S^WORK AREA:WORK AREA;^0;17^Q"
^DD(68,9,21,0)="^^7^7^2931018^^"
^DD(68,9,21,1,0)=" This field should only be edited if this accession area is used for"
^DD(68,9,21,2,0)="the purpose of workload definitions. This accession area is then used"
^DD(68,9,21,3,0)="with load/worklist to define the area of the lab which should receive"
^DD(68,9,21,4,0)="WKLD credit."
^DD(68,9,21,5,0)=" "
^DD(68,9,21,6,0)="SPECIMENS CAN NOT BE ACCESSIONED INTO THIS ACCESSION AREA. IT IS SOLELY"
^DD(68,9,21,7,0)="FOR THE USE WKLD DEFAULT ANSWERS FOR LMIP/WKLD DATA COLLECTION."
^DD(68,9,"DT")="2911118"
^DD(68,10,0)="WORKLOAD ON^S^1:YES;^0;16^Q"
^DD(68,10,21,0)="^^4^4^2930327^"
^DD(68,10,21,1,0)="  this field is used to activate wkld collection. Each accession area"
^DD(68,10,21,2,0)="can be turned on independently. In order for this field to trigger wkld"
^DD(68,10,21,3,0)="collection, the field WKLD STATS ON (#17) in the LABORATORY SITE (#69.9)"
^DD(68,10,21,4,0)="file must also indicate ON."
^DD(68,10,"DT")="2921031"
^DD(68,11,0)="COLLECT STD/QC/REPEATS^S^1:YES;^0;20^Q"
^DD(68,11,21,0)="^^7^7^2931126^"
^DD(68,11,21,1,0)=" If you wish to have the verification process to prompt the user for"
^DD(68,11,21,2,0)="Standards, QC and Repeats after each session enter a Yes."
^DD(68,11,21,3,0)=" This will cause the counts entered to be added to all test"
^DD(68,11,21,4,0)="the user verified during that particular session."
^DD(68,11,21,5,0)=" The function of entering this data can be also done by the option"
^DD(68,11,21,6,0)="STD/QC/REPS/MANUAL WKLD COUNT [LR WKLD STD/QC/REPS] found on the "
^DD(68,11,21,7,0)="Process Menu [LR DO!]."
^DD(68,11,"DT")="2931126"
^DD(68,12,0)="EXTERNAL SERVICE AREA^S^0:NO;1:YES;^0;22^Q"
^DD(68,12,21,0)="^.001^1^1^3060125^^^^"
^DD(68,12,21,1,0)="This field determines if the Accession Area is defined for send out tests."
^DD(68,12,"DT")="3030423"
^DD(68,"B","*IDENT CODE",.071)=""
^DD(68,"B","*IDENTITY CONTROL",.07)=""
^DD(68,"B","*LAB SECTION",.095)=""
^DD(68,"B","ABBREVIATION",.09)=""
^DD(68,"B","ACC CODE",.051)=""
^DD(68,"B","ACCESSION TRANSFORM",.05)=""
^DD(68,"B","ALTERNATE LABEL ENTRY",5.2)=""
^DD(68,"B","ALTERNATE LABEL ROUTINE",5.3)=""
^DD(68,"B","AREA",.01)=""
^DD(68,"B","ASSOCIATED DIVISION",.091)=""
^DD(68,"B","BAR CODE PAD",5.1)=""
^DD(68,"B","BAR CODE PRINT",5)=""
^DD(68,"B","BYPASS ROLLOVER",.085)=""
^DD(68,"B","CLEAN UP",.03)=""
^DD(68,"B","COLLECT STD/QC/REPEATS",11)=""
^DD(68,"B","COMMON ACCESSION #'S WITH AREA",.04)=""
^DD(68,"B","DATE",2)=""
^DD(68,"B","EXTERNAL SERVICE AREA",12)=""
^DD(68,"B","INHIBIT AREA LABEL PRINTING",.11)=""
^DD(68,"B","INSTRUMENTATION CONTROLS",1)=""
^DD(68,"B","LAB DIVISION",.19)=""
^DD(68,"B","LAB OOS LOCATION",.8)=""
^DD(68,"B","LR SUBSCRIPT",.02)=""
^DD(68,"B","Lock for load/work list build",.7)=""
^DD(68,"B","NON LAB ACCESSION AREA",.097)=""
^DD(68,"B","NUMERIC IDENTIFIER",.4)=""
^DD(68,"B","PRINT ORDER",.08)=""
^DD(68,"B","RESPONSIBLE OFFICIAL",.1)=""
^DD(68,"B","Reserved",8)=""
^DD(68,"B","TYPE OF ACCESSION NUMBER",.092)=""
^DD(68,"B","USER ACCESS AUTHORIZATION",.9)=""
^DD(68,"B","VER CODE",.061)=""
^DD(68,"B","VERIFICATION CODE",.06)=""
^DD(68,"B","WORK AREA",9)=""
^DD(68,"B","WORKLOAD ON",10)=""
^DD(68,"GL",0,1,.01)=""
^DD(68,"GL",0,2,.02)=""
^DD(68,"GL",0,3,.03)=""
^DD(68,"GL",0,4,.04)=""
^DD(68,"GL",0,5,.05)=""
^DD(68,"GL",0,6,.06)=""
^DD(68,"GL",0,7,.07)=""
^DD(68,"GL",0,8,.08)=""
^DD(68,"GL",0,9,.1)=""
^DD(68,"GL",0,10,.085)=""
^DD(68,"GL",0,11,.09)=""
^DD(68,"GL",0,12,.11)=""
^DD(68,"GL",0,13,.095)=""
^DD(68,"GL",0,14,.9)=""
^DD(68,"GL",0,15,5)=""
^DD(68,"GL",0,16,10)=""
^DD(68,"GL",0,17,9)=""
^DD(68,"GL",0,18,8)=""
^DD(68,"GL",0,19,.19)=""
^DD(68,"GL",0,20,11)=""
^DD(68,"GL",0,21,.097)=""
^DD(68,"GL",0,22,12)=""
^DD(68,"GL",.1,"E1,220",.051)=""
^DD(68,"GL",.2,"E1,220",.061)=""
^DD(68,"GL",.3,"E1,220",.071)=""
^DD(68,"GL",.4,1,.4)=""
^DD(68,"GL",.4,2,.092)=""
^DD(68,"GL",.4,3,5.1)=""
^DD(68,"GL",.4,4,5.2)=""
^DD(68,"GL",.4,5,5.3)=""
^DD(68,"GL",.5,0,1)=""
^DD(68,"GL",.7,1,.7)=""
^DD(68,"GL",.8,1,.8)=""
^DD(68,"GL",1,0,2)=""
^DD(68,"GL",3,0,.091)=""
^DD(68,"GR","BARCODE",5,1)=""
^DD(68,"GR","BARCODE",5.1,1)=""
^DD(68,"IX",.01)=""
^DD(68,"IX",.04)=""
^DD(68,"IX",.05)=""
^DD(68,"IX",.06)=""
^DD(68,"IX",.07)=""
^DD(68,"IX",.09)=""
^DD(68,"IX",.095)=""
^DD(68,"RQ",.01)=""
^DD(68,"RQ",.02)=""
^DD(68,"RQ",.03)=""
^DD(68,"RQ",.05)=""
^DD(68,"RQ",.09)=""
^DD(68,"RQ",.095)=""
^DD(68,"RQ",.19)=""
^DD(68,"SB",68.01,2)=""
^DD(68,"SB",68.03,.091)=""
^DD(68,"SB",68.09,1)=""
^DD(68.01,0)="DATE SUB-FIELD^NL^7^8"
^DD(68.01,0,"DT")="3021105"
^DD(68.01,0,"IX","AC",68.02,26)=""
^DD(68.01,0,"IX","AE",68.02,93)=""
^DD(68.01,0,"NM","DATE")=""
^DD(68.01,0,"UP")="68"
^DD(68.01,.01,0)="DATE^DX^^0;1^S %DT=""E"" D ^%DT S X=Y,DINUM=Y K:Y<1 X,DINUM"
^DD(68.01,.01,1,0)="^.1^^0"
^DD(68.01,.01,21,0)="^^1^1^2920113^^"
^DD(68.01,.01,21,1,0)="The date of the accession."
^DD(68.01,.01,"DT")="2840817"
^DD(68.01,1,0)="ACCESSION NUMBER^68.02PA^^1;0"
^DD(68.01,1,21,0)="^^1^1^2990520^^^^"
^DD(68.01,1,21,1,0)="The numeric part of the accession."
^DD(68.01,2,0)="*CURRENT INITIALS^F^^2;1^K:$L(X)>6!($L(X)<2) X"
^DD(68.01,2,3)="ANSWER MUST BE 2-6 CHARACTERS IN LENGTH"
^DD(68.01,2,21,0)="^^1^1^2930719^^"
^DD(68.01,2,21,1,0)="Will be deleted in future versions."
^DD(68.01,2,21,2,0)="the test(s)."
^DD(68.01,2,"DT")="2930719"
^DD(68.01,3,0)="CURRENT ACCESSION NUMBER^F^^2;2^K:$L(X)>8!($L(X)<1) X"
^DD(68.01,3,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(68.01,3,21,0)="^^1^1^2841126^^"
^DD(68.01,3,21,1,0)="The last used accession number."
^DD(68.01,4,0)="*CURRENT IDENTITY^F^^2;3^K:$L(X)>19!($L(X)<1) X"
^DD(68.01,4,3)="ANSWER MUST BE 1-19 CHARACTERS IN LENGTH"
^DD(68.01,4,21,0)="^^1^1^2940317^^^"
^DD(68.01,4,21,1,0)="No longer used.  Will be deleted in later versions. 1/89."
^DD(68.01,5,0)="CURRENT VERIFY ACC #^NJ5,0^^2;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.01,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(68.01,5,21,0)="^^1^1^2841126^"
^DD(68.01,5,21,1,0)="The last verified accession number."
^DD(68.01,6,0)="BULL ALGORITHM CONTROL DATA^68.07PA^^3;0"
^DD(68.01,6,21,0)="^^1^1^2841126^"
^DD(68.01,6,21,1,0)="Data is stored here for use in Bull's algorithm."
^DD(68.01,7,0)="MULTI-RULE VA QC^68.11PA^^4;0"
^DD(68.01,7,21,0)="^^2^2^2841127^^"
^DD(68.01,7,21,1,0)="Quality control comparisons based on Westergard's suggested use of"
^DD(68.01,7,21,2,0)="the Multi-rule Shewhart determinations are stored under this multiple."
^DD(68.01,"B","*CURRENT IDENTITY",4)=""
^DD(68.01,"B","*CURRENT INITIALS",2)=""
^DD(68.01,"B","ACCESSION NUMBER",1)=""
^DD(68.01,"B","BULL ALGORITHM CONTROL DATA",6)=""
^DD(68.01,"B","CURRENT ACCESSION NUMBER",3)=""
^DD(68.01,"B","CURRENT VERIFY ACC #",5)=""
^DD(68.01,"B","DATE",.01)=""
^DD(68.01,"B","MULTI-RULE VA QC",7)=""
^DD(68.01,"GL",0,1,.01)=""
^DD(68.01,"GL",1,0,1)=""
^DD(68.01,"GL",2,1,2)=""
^DD(68.01,"GL",2,2,3)=""
^DD(68.01,"GL",2,3,4)=""
^DD(68.01,"GL",2,4,5)=""
^DD(68.01,"GL",3,0,6)=""
^DD(68.01,"GL",4,0,7)=""
^DD(68.01,"SB",68.02,1)=""
^DD(68.01,"SB",68.07,6)=""
^DD(68.01,"SB",68.11,7)=""
^DD(68.02,0)="ACCESSION NUMBER SUB-FIELD^NL^94^40"
^DD(68.02,0,"DT")="3021105"
^DD(68.02,0,"IX","AC",68.02,13)=""
^DD(68.02,0,"IX","AD",68.02,15)=""
^DD(68.02,0,"IX","AE",68.02,.01)=""
^DD(68.02,0,"IX","AE",68.02,93)=""
^DD(68.02,0,"IX","AVS",68.02,.01)=""
^DD(68.02,0,"IX","AVS",68.02,13)=""
^DD(68.02,0,"IX","C",68.02,5)=""
^DD(68.02,0,"IX","D",68.02,14)=""
^DD(68.02,0,"IX","E",68.02,12)=""
^DD(68.02,0,"NM","ACCESSION NUMBER")=""
^DD(68.02,0,"UP")="68.01"
^DD(68.02,.001,0)="LOG^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(68.02,.001,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(68.02,.001,21,0)="^^1^1^3050314^^^^"
^DD(68.02,.001,21,1,0)="The numeric part of the accession."
^DD(68.02,.001,"DT")="3050314"
^DD(68.02,.01,0)="LRDFN^MRP63'^LR(^0;1^Q"
^DD(68.02,.01,1,0)="^.1^^0"
^DD(68.02,.01,1,1,0)="68.02^AE^MUMPS"
^DD(68.02,.01,1,1,1)="Q  ;S:ACCESSION HAS BEEN COUNTED FOR WKLD ^LRO(68,LRAA,1,LRAD,1,LRAN,""AE"")="""""
^DD(68.02,.01,1,1,2)="Q  ;NOT KILLED"
^DD(68.02,.01,1,2,0)="68.02^AVS^MUMPS"
^DD(68.02,.01,1,2,1)="Q  ;S ^LRO(""AVS"",LRAA,LRAD,LRAN)=LRDFN_U_LRIDT"
^DD(68.02,.01,1,2,2)="Q"
^DD(68.02,.01,3)=""
^DD(68.02,.01,21,0)="^^1^1^2920113^^"
^DD(68.02,.01,21,1,0)="The internal pointer to file 63 is stored here."
^DD(68.02,.01,"DT")="2890726"
^DD(68.02,.02,0)="PARENT FILE^CJ12^^ ; ^X ^DD(68.02,.02,9.2) S Y(68.02,.02,101)=$S($D(^LR(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(+$P(Y(68.02,.02,101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=Y(68.02,.02,2)"
^DD(68.02,.02,9)="^"
^DD(68.02,.02,9.01)="63^.02;68.02^.01"
^DD(68.02,.02,9.1)="LRDFN:PARENT FILE"
^DD(68.02,.02,9.2)="S Y(68.02,.02,2)=$S($D(D0):D0,1:""""),Y(68.02,.02,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""""),D0=$P(Y(68.02,.02,1),U,1) S:'$D(^LR(+D0,0)) D0=-1"
^DD(68.02,.02,21,0)="^^1^1^2920113^^"
^DD(68.02,.02,21,1,0)="The computed field for the File # (field 1)."
^DD(68.02,.03,0)="NAME^CJ30^^ ; ^X ^DD(68.02,.03,9.2) S Y(68.02,.03,101)=$S($D(^LR(D0,0)):^(0),1:""""),Y(68.02,.03,102)=X,Y=$P(Y(68.02,.03,101),U,3) X:$D(^DD(63,.03,2)) ^(2) S X=Y S D0=Y(68.02,.03,2)"
^DD(68.02,.03,9)="^"
^DD(68.02,.03,9.01)="63^.03;68.02^.01"
^DD(68.02,.03,9.1)="LRDFN:NAME"
^DD(68.02,.03,9.2)="S Y(68.02,.03,2)=$S($D(D0):D0,1:""""),Y(68.02,.03,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""""),D0=$P(Y(68.02,.03,1),U,1) S:'$D(^LR(+D0,0)) D0=-1"
^DD(68.02,.03,21,0)="^^1^1^2920113^^"
^DD(68.02,.03,21,1,0)="The computed field for the entity's name."
^DD(68.02,.09,0)="HOSPITAL ID^CJ11^^ ; ^X ^DD(68.02,.09,9.2) X $P(^DD(63,.09,0),U,5,99) S Y(68.02,.09,101)=X S X=Y(68.02,.09,101) S D0=Y(68.02,.09,2)"
^DD(68.02,.09,9)="^"
^DD(68.02,.09,9.01)="63^.09;68.02^.01"
^DD(68.02,.09,9.1)="LRDFN:HOSPITAL ID"
^DD(68.02,.09,9.2)="S Y(68.02,.09,2)=$S($D(D0):D0,1:""""),Y(68.02,.09,1)=$S($D(^LRO(68,D0,1,D1,1,D2,0)):^(0),1:""""),D0=$P(Y(68.02,.09,1),U,1) S:'$D(^LR(+D0,0)) D0=-1"
^DD(68.02,.09,21,0)="^^1^1^2920113^^"
^DD(68.02,.09,21,1,0)="The computed field for the entity's hospital ID."
^DD(68.02,.09,"DT")="2840123"
^DD(68.02,1,0)="FILE #^P1'^DIC(^0;2^Q"
^DD(68.02,1,3)=""
^DD(68.02,1,21,0)="^^2^2^3011211^"
^DD(68.02,1,21,1,0)="The pointer to the File of Files for the entity in field .01 is stored "
^DD(68.02,1,21,2,0)="here."
^DD(68.02,1,"DT")="3011211"
^DD(68.02,2,0)="ORIGINAL ACCN DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(68.02,2,21,0)="^^1^1^2920113^^"
^DD(68.02,2,21,1,0)="The date part of the original accession is stored here."
^DD(68.02,2,"DT")="2840410"
^DD(68.02,3,0)="DATE ORDERED^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(68.02,3,21,0)="^^1^1^2920113^^"
^DD(68.02,3,21,1,0)="The date the order was placed is stored here."
^DD(68.02,4,0)="SPECIMEN NUMBER^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.02,4,1,0)="^.1^^0"
^DD(68.02,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(68.02,4,21,0)="^^1^1^2920113^^^"
^DD(68.02,4,21,1,0)="The internal specimen number is stored here."
^DD(68.02,4,"DT")="2880223"
^DD(68.02,5,0)="IDENTITY^F^^0;6^K:$L(X)>11!($L(X)<1) X"
^DD(68.02,5,1,0)="^.1"
^DD(68.02,5,1,1,0)="68.02^C"
^DD(68.02,5,1,1,1)="S ^LRO(68,DA(2),1,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(68.02,5,1,1,2)="K ^LRO(68,DA(2),1,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(68.02,5,3)="ANSWER MUST BE 1-11 CHARACTERS IN LENGTH"
^DD(68.02,5,21,0)="^^1^1^2940317^^^"
^DD(68.02,5,21,1,0)="The identity from e.g. reference labs etc. is stored here."
^DD(68.02,6,0)="REPORT ROUTING LOCATION^RF'X^^0;7^K:$L(X)>30!($L(X)<2) X I $D(X) X:X=""?"" ^DD(68.02,6,4) Q:X=""?""  S LRLLOC=X,DIC(0)=""EQMZ"",DIC=44 D ^DIC S:$D(Y(0)) X=$P(Y(0),U,1) X:Y<1 ^DD(68.02,6,9.2) Q:'$D(X)  S:X']"""" X=""UNK"" S:$D(LRDFN) ^LR(+LRDFN,.1)=X"
^DD(68.02,6,3)=""
^DD(68.02,6,4)="S X=""?"",DIC(0)=""Q"",DIC=""^SC("",D=""B"" K DO D DQ^DICQ K DIC S DIC=DIE D DO^DIC1"
^DD(68.02,6,9.2)="K X R !?3,""NON-STANDARD LOCATION!, OK? N//"",YN:300 I $T S:YN[""Y"" X=LRLLOC"
^DD(68.02,6,21,0)="^^2^2^2920113^^^"
^DD(68.02,6,21,1,0)="The service/location from which the original order came.  The report"
^DD(68.02,6,21,2,0)="is routed back to this location."
^DD(68.02,6,"DT")="2890918"
^DD(68.02,6.5,0)="PROVIDER^R*P200'^VA(200,^0;8^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.02,6.5,3)=""
^DD(68.02,6.5,4)=""
^DD(68.02,6.5,9.2)="K X R !?3,""PROVIDER NOT ON FILE!,  OK? N//"",YN:300 I $T S:YN[""Y"" X=PROV"
^DD(68.02,6.5,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(68.02,6.5,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(68.02,6.5,21,0)="^^1^1^2931130^^^^"
^DD(68.02,6.5,21,1,0)="The internal number of the provider requesting the test(s) is stored here."
^DD(68.02,6.5,"DT")="2931130"
^DD(68.02,6.6,0)="TREATING SPECIALITY^RP45.7'^DIC(45.7,^0;9^Q"
^DD(68.02,6.6,3)=""
^DD(68.02,6.6,21,0)="^^1^1^2940317^^^^"
^DD(68.02,6.6,21,1,0)=" The treating specialty of the location requesting the test."
^DD(68.02,6.6,23,0)="^^2^2^2940317^^"
^DD(68.02,6.6,23,1,0)=" This node may be set from the default treating specialty field (#607) of"
^DD(68.02,6.6,23,2,0)="the LABORATORY SITE file (#69.9). The 19th. peice of LRPARAM variable."
^DD(68.02,6.6,"DT")="2860204"
^DD(68.02,6.7,0)="LOG-IN PERSON^P200'^VA(200,^0;10^Q"
^DD(68.02,6.7,21,0)="^^1^1^2940317^^^"
^DD(68.02,6.7,21,1,0)="The pointer to the person (NEW PERSON file) creating this accession is stored here."
^DD(68.02,6.7,"DT")="2910630"
^DD(68.02,8,0)="HARDWARE SPECIAL NUMBERS^F^^2;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(68.02,8,1,0)="^.1^^0"
^DD(68.02,8,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(68.02,8,21,0)="^^1^1^2920113^^"
^DD(68.02,8,21,1,0)="Data from automated instruments may be stored here for debugging purposes."
^DD(68.02,8,"DT")="2850531"
^DD(68.02,9,0)="DRAW TIME^D^^3;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(68.02,9,1,0)="^.1^^0"
^DD(68.02,9,21,0)="^^1^1^2920113^^"
^DD(68.02,9,21,1,0)="The date/time the specimen was taken."
^DD(68.02,9,"DT")="2881208"
^DD(68.02,10,0)="DATE/TIME OBTAINED INEXACT^S^0:NO;1:YES;^3;2^Q"
^DD(68.02,10,21,0)="^^1^1^2920113^^^"
^DD(68.02,10,21,1,0)="This field has a ""NO"" if the draw time is estimated or unknown."
^DD(68.02,10,"DT")="2870714"
^DD(68.02,11,0)="TESTS^68.04PA^^4;0"
^DD(68.02,11,21,0)="^^1^1^2940317^^^^"
^DD(68.02,11,21,1,0)="The pointers to the Laboratory Tests for this accession."
^DD(68.02,12,0)="LAB ARRIVAL TIME^D^^3;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(68.02,12,1,0)="^.1"
^DD(68.02,12,1,1,0)="68.02^E"
^DD(68.02,12,1,1,1)="S ^LRO(68,DA(2),1,DA(1),1,""E"",$E(X,1,30),DA)="""""
^DD(68.02,12,1,1,2)="K ^LRO(68,DA(2),1,DA(1),1,""E"",$E(X,1,30),DA)"
^DD(68.02,12,21,0)="^^1^1^2841126^"
^DD(68.02,12,21,1,0)="The date/time the specimen arrived at the lab."
^DD(68.02,13,0)="DATE/TIME RESULTS AVAILABLE^D^^3;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(68.02,13,1,0)="^.1"
^DD(68.02,13,1,1,0)="68^AC^MUMPS"
^DD(68.02,13,1,1,1)="D AC^LRXREF1"
^DD(68.02,13,1,1,2)="D AC1^LRXREF1"
^DD(68.02,13,1,2,0)="68.02^AVS^MUMPS"
^DD(68.02,13,1,2,1)="D:$D(DIU(0)) AVS1^LRXREF D:'$D(DIU(0)) AVS3^LRXREF"
^DD(68.02,13,1,2,2)="D:$D(DIU(0)) AVS2^LRXREF D:'$D(DIU(0)) AVS4^LRXREF"
^DD(68.02,13,21,0)="^^1^1^2860617^^"
^DD(68.02,13,21,1,0)="The date/time all results for the accession are available."
^DD(68.02,13,"DT")="2900213"
^DD(68.02,13.5,0)="INVERSE DATE^DX^^3;5^S %DT=""ET"" D ^%DT S X=9999999-Y K:Y<1 X"
^DD(68.02,13.5,21,0)="^^1^1^2851114^^"
^DD(68.02,13.5,21,1,0)="9999999 minus the internal entry in field 9"
^DD(68.02,13.5,"DT")="2870713"
^DD(68.02,13.6,0)="COMMENT^F^^3;6^K:$L(X)>80!($L(X)<1) X"
^DD(68.02,13.6,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(68.02,13.6,21,0)="1"
^DD(68.02,13.6,21,1,0)="A one line comment for the accession."
^DD(68.02,13.6,"DT")="2840411"
^DD(68.02,14,0)="ORDER #^F^^.1;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(68.02,14,1,0)="^.1"
^DD(68.02,14,1,1,0)="68.02^D"
^DD(68.02,14,1,1,1)="S ^LRO(68,DA(2),1,DA(1),1,""D"",$E(X,1,30),DA)="""""
^DD(68.02,14,1,1,2)="K ^LRO(68,DA(2),1,DA(1),1,""D"",$E(X,1,30),DA)"
^DD(68.02,14,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(68.02,14,21,0)="^^1^1^2841126^"
^DD(68.02,14,21,1,0)="The original order number is stored here."
^DD(68.02,15,0)="ACCESSION^F^^.2;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7) X"
^DD(68.02,15,.1)="PRINTABLE ACCESSION"
^DD(68.02,15,1,0)="^.1^^0"
^DD(68.02,15,3)="ANSWER MUST BE ACCESSION, e.g., CH 0428 125"
^DD(68.02,15,21,0)="^^1^1^2841126^"
^DD(68.02,15,21,1,0)="The printable form of the Accession is stored here."
^DD(68.02,15,"DT")="3050303"
^DD(68.02,15.1,0)="IN COMMON ACCESSION^F^^AD;1^K:$L(X)>15!($L(X)<7) X"
^DD(68.02,15.1,3)="Answer must be 7-15 characters in length"
^DD(68.02,15.1,21,0)="^^3^3^3050303^"
^DD(68.02,15.1,21,1,0)="When this accession area is 'in common' with another accession"
^DD(68.02,15.1,21,2,0)="area the printable form of the 'in common' accession is stored"
^DD(68.02,15.1,21,3,0)="here."
^DD(68.02,15.1,"DT")="3050303"
^DD(68.02,16,0)="UID^FX^^.3;1^K:$L(X)>15!($L(X)<10) X"
^DD(68.02,16,1,0)="^.1"
^DD(68.02,16,1,1,0)="68^C"
^DD(68.02,16,1,1,1)="S:'$D(^LRO(68,""C"",$E(X,1,30))) ^LRO(68,""C"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(68.02,16,1,1,2)="K ^LRO(68,""C"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(68.02,16,1,1,3)="DO NOT DELETE THIS XREF"
^DD(68.02,16,1,1,"DT")="2940522"
^DD(68.02,16,3)="Answer must be 10-15 characters in length."
^DD(68.02,16,21,0)="^^3^3^2970716^"
^DD(68.02,16,21,1,0)=" This is the UID used by the HOST LEDI system for this order/accession."
^DD(68.02,16,21,2,0)=" "
^DD(68.02,16,21,3,0)="This field is used by the LEDI software."
^DD(68.02,16,"DT")="2970226"
^DD(68.02,16.1,0)="ORDERING SITE^*P4'^DIC(4,^.3;2^S DIC(""S"")=""I $G(^DIC(4,Y,99))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.02,16.1,1,0)="^.1"
^DD(68.02,16.1,1,1,0)="68^AF"
^DD(68.02,16.1,1,1,1)="S ^LRO(68,""AF"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(68.02,16.1,1,1,2)="K ^LRO(68,""AF"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(68.02,16.1,1,1,"DT")="2961221"
^DD(68.02,16.1,12)="Select Sites with station numbers only"
^DD(68.02,16.1,12.1)="S DIC(""S"")=""I $G(^DIC(4,Y,99))"""
^DD(68.02,16.1,21,0)="^^7^7^2970712^"
^DD(68.02,16.1,21,1,0)=" This field contains the pointer to the INSTITUTION file for the"
^DD(68.02,16.1,21,2,0)="MailMan domain location of the computer system. All LEDI results are"
^DD(68.02,16.1,21,3,0)="returned to the Ordering computer system."
^DD(68.02,16.1,21,4,0)=" "
^DD(68.02,16.1,21,5,0)="Location to send LEDI HL7 result messages."
^DD(68.02,16.1,21,6,0)=" "
^DD(68.02,16.1,21,7,0)="This field is used by LEDI software."
^DD(68.02,16.1,"DT")="2970226"
^DD(68.02,16.2,0)="COLLECTING SITE^P4'^DIC(4,^.3;3^Q"
^DD(68.02,16.2,3)=""
^DD(68.02,16.2,21,0)="^^5^5^2970712^"
^DD(68.02,16.2,21,1,0)=" This field contain the pointer to the INSTITUTION file for the actual"
^DD(68.02,16.2,21,2,0)="collection site. The ordering site is the MailMan location of the computer"
^DD(68.02,16.2,21,3,0)="system. MailMan domain location and the collecting site may be different."
^DD(68.02,16.2,21,4,0)=" "
^DD(68.02,16.2,21,5,0)="This field is used by LEDI software."
^DD(68.02,16.2,"DT")="2970226"
^DD(68.02,16.3,0)="HOST UID^F^^.3;4^K:$L(X)>15!($L(X)<10) X"
^DD(68.02,16.3,1,0)="^.1"
^DD(68.02,16.3,1,1,0)="68^D"
^DD(68.02,16.3,1,1,1)="S:'$D(^LRO(68,""D"",$E(X,1,30))) ^LRO(68,""D"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(68.02,16.3,1,1,2)="K ^LRO(68,""D"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(68.02,16.3,1,1,"DT")="2970129"
^DD(68.02,16.3,3)="Answer must be 10-15 characters in length."
^DD(68.02,16.3,21,0)="^^7^7^2970712^"
^DD(68.02,16.3,21,1,0)=" Each Order/Accession is given a HOST UID. The UID is stored in this"
^DD(68.02,16.3,21,2,0)="location. If LEDI software is used to accession specimens, usually the"
^DD(68.02,16.3,21,3,0)="collecting sites UID is used to track specimens. If the collecting UID"
^DD(68.02,16.3,21,4,0)="conflict is the HOST system number sequence, the HOST UID will be used"
^DD(68.02,16.3,21,5,0)="instead of the collecting site's UID."
^DD(68.02,16.3,21,6,0)=" "
^DD(68.02,16.3,21,7,0)="This field is used by LEDI software."
^DD(68.02,16.3,"DT")="2970226"
^DD(68.02,16.4,0)="ORDERING SITE UID^F^^.3;5^K:$L(X)>15!($L(X)<10) X"
^DD(68.02,16.4,3)="Answer must be 10-15 characters in length."
^DD(68.02,16.4,21,0)="^^3^3^2970712^^"
^DD(68.02,16.4,21,1,0)=" This field contains the collecting sites UID for this specimen."
^DD(68.02,16.4,21,2,0)=" "
^DD(68.02,16.4,21,3,0)="This field is used by LEDI software."
^DD(68.02,16.4,"DT")="2970226"
^DD(68.02,26,0)="DIV^P4'^DIC(4,^.4;1^Q"
^DD(68.02,26,1,0)="^.1"
^DD(68.02,26,1,1,0)="68.01^AC"
^DD(68.02,26,1,1,1)="S ^LRO(68,DA(2),1,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(68.02,26,1,1,2)="K ^LRO(68,DA(2),1,""AC"",$E(X,1,30),DA(1),DA)"
^DD(68.02,26,1,1,"%D",0)="^^3^3^2950810^"
^DD(68.02,26,1,1,"%D",1,0)="This cross reference is used to determine which accession belong to a"
^DD(68.02,26,1,1,"%D",2,0)="particular division. Every accession may not appear in this X-Ref. Care"
^DD(68.02,26,1,1,"%D",3,0)="should be taken when using the X-Ref."
^DD(68.02,26,1,1,"DT")="2950810"
^DD(68.02,26,21,0)="^^4^4^2950810^"
^DD(68.02,26,21,1,0)=" This field contains the division of the person ordering the test"
^DD(68.02,26,21,2,0)="for this accession number. The DUZ(2) is used to determine the division"
^DD(68.02,26,21,3,0)="pointer. In some cases this field may be blank, example auto accession"
^DD(68.02,26,21,4,0)="controls."
^DD(68.02,26,"DT")="2950810"
^DD(68.02,30,0)="PCE ENC #^F^^PCE;1^K:$L(X)>80!($L(X)<1) X"
^DD(68.02,30,3)="Answer must be 1-80 characters in length."
^DD(68.02,30,21,0)="^.001^11^11^3021105^^"
^DD(68.02,30,21,1,0)="This field contains a list of PCE Encounters generated for this accession."
^DD(68.02,30,21,2,0)="If there are multiple encounter numbers for this accession, they are"
^DD(68.02,30,21,3,0)="separated by ';'."
^DD(68.02,30,21,4,0)=" "
^DD(68.02,30,21,5,0)="This field is only populated if professional service PCE workload is"
^DD(68.02,30,21,6,0)="generated. This is usually the type of PCE workload generated by"
^DD(68.02,30,21,7,0)="Pathologist reporting anatomical pathology services."
^DD(68.02,30,21,8,0)=" "
^DD(68.02,30,21,9,0)="PCE workload is only generated for those hospital locations with the type"
^DD(68.02,30,21,10,0)="of clinic, module or other. No PCE workload is generated for in-patient"
^DD(68.02,30,21,11,0)="locations."
^DD(68.02,30,"DT")="3021105"
^DD(68.02,50,0)="SPECIMEN^68.05PA^^5;0"
^DD(68.02,50,21,0)="^^2^2^2931107^^^"
^DD(68.02,50,21,1,0)="The site/specimen from the Topography Field file.  There may be more"
^DD(68.02,50,21,2,0)="than one specimen for certain types of accessions."
^DD(68.02,60,0)="NUMBER OF SLIDES^NJ2,0^^6;1^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.02,60,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 20"
^DD(68.02,60,21,0)="^^1^1^2841127^^"
^DD(68.02,60,21,1,0)="The number of slides prepared for path examination."
^DD(68.02,60,"DT")="2830302"
^DD(68.02,61,0)="PARAFFIN BLOCK(S)^NJ2,0^^6;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.02,61,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(68.02,61,21,0)="^^1^1^2841127^"
^DD(68.02,61,21,1,0)="The number of paraffin blocks prepared for path examination."
^DD(68.02,61,"DT")="2830302"
^DD(68.02,80,0)="PROGRESS NOTES^68.06A^^7;0"
^DD(68.02,80,21,0)="^^1^1^2931105^^"
^DD(68.02,80,21,1,0)="Progress notes on the accession."
^DD(68.02,91,0)="CURRENT ACCESSION DATE^D^^9;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(68.02,91,3)="Don't change"
^DD(68.02,91,21,0)="^^3^3^2851001^"
^DD(68.02,91,21,1,0)="This field is set by the roll-over routine in the original accession"
^DD(68.02,91,21,2,0)="to point to the current accession date for accessions that have"
^DD(68.02,91,21,3,0)="rolled over."
^DD(68.02,91,"DT")="2851001"
^DD(68.02,92,0)="LOCATION TYPE^S^C:CLINIC;M:MODULE;W:WARD;Z:OTHER;N:NON-CLINIC STOP;F:FILE AREA;I:IMAGING;OR:OPERATION ROOM;^0;11^Q"
^DD(68.02,92,21,0)="^^4^4^2940317^^"
^DD(68.02,92,21,1,0)="  This field holds the type of hospital location.  $P(^SC(X,0),U,3)"
^DD(68.02,92,21,2,0)="It is used primarily for WKLD calculations. Since the patient"
^DD(68.02,92,21,3,0)="may be discharged or admitted before the WKLD calculation routines run."
^DD(68.02,92,21,4,0)="This field holds a permanent location type."
^DD(68.02,92,"DT")="2960120"
^DD(68.02,93,0)="COUNT FOR WKLD^S^1:YES;0:NO;1:yes;0:no;^0;12^Q"
^DD(68.02,93,1,0)="^.1"
^DD(68.02,93,1,1,0)="68.02^AE^MUMPS"
^DD(68.02,93,1,1,1)="I $D(^LRO(68,DA(2),1,DA(1),DA,0)),$P(^(0),U,12) S ^(""AE"")="""""
^DD(68.02,93,1,1,2)="I $D(^LRO(68,DA(2),1,DA(1),DA,0)),'$P(^(0),U,12) K ^(""AE"")"
^DD(68.02,93,3)="Enter 1 if this accession number has been counted for WKLD"
^DD(68.02,93,21,0)="^^3^3^2931107^^^"
^DD(68.02,93,21,1,0)=" This field is set to 1 if this accession has been counted for "
^DD(68.02,93,21,2,0)="workload. This is set automatically by the tally routines."
^DD(68.02,93,21,3,0)="  NOTE: THIS FIELD SHOULD NOT BE SET MANUALLY."
^DD(68.02,93,"DT")="2931105"
^DD(68.02,94,0)="ORDERING LOCATION^P44'^SC(^0;13^Q"
^DD(68.02,94,3)="This is the location that is ordering the test."
^DD(68.02,94,21,0)="^^1^1^2930327^"
^DD(68.02,94,21,1,0)=" This field contains the location placing the order for this patient."
^DD(68.02,94,"DT")="2900110"
^DD(68.02,"B","ACCESSION",15)=""
^DD(68.02,"B","COLLECTING SITE",16.2)=""
^DD(68.02,"B","COMMENT",13.6)=""
^DD(68.02,"B","COUNT FOR WKLD",93)=""
^DD(68.02,"B","CURRENT ACCESSION DATE",91)=""
^DD(68.02,"B","DATE ORDERED",3)=""
^DD(68.02,"B","DATE/TIME OBTAINED INEXACT",10)=""
^DD(68.02,"B","DATE/TIME RESULTS AVAILABLE",13)=""
^DD(68.02,"B","DIV",26)=""
^DD(68.02,"B","DRAW TIME",9)=""
^DD(68.02,"B","FILE #",1)=""
^DD(68.02,"B","HARDWARE SPECIAL NUMBERS",8)=""
^DD(68.02,"B","HOSPITAL ID",.09)=""
^DD(68.02,"B","HOST UID",16.3)=""
^DD(68.02,"B","IDENTITY",5)=""
^DD(68.02,"B","IN COMMON ACCESSION",15.1)=""
^DD(68.02,"B","INVERSE DATE",13.5)=""
^DD(68.02,"B","LAB ARRIVAL TIME",12)=""
^DD(68.02,"B","LOCATION TYPE",92)=""
^DD(68.02,"B","LOG",.001)=""
^DD(68.02,"B","LOG-IN PERSON",6.7)=""
^DD(68.02,"B","LRDFN",.01)=""
^DD(68.02,"B","NAME",.03)=""
^DD(68.02,"B","NUMBER OF SLIDES",60)=""
^DD(68.02,"B","ORDER #",14)=""
^DD(68.02,"B","ORDERING LOCATION",94)=""
^DD(68.02,"B","ORDERING SITE",16.1)=""
^DD(68.02,"B","ORDERING SITE UID",16.4)=""
^DD(68.02,"B","ORIGINAL ACCN DATE",2)=""
^DD(68.02,"B","PARAFFIN BLOCK(S)",61)=""
^DD(68.02,"B","PARENT FILE",.02)=""
^DD(68.02,"B","PCE ENC #",30)=""
^DD(68.02,"B","PRINTABLE ACCESSION",15)="1"
^DD(68.02,"B","PROGRESS NOTES",80)=""
^DD(68.02,"B","PROVIDER",6.5)=""
^DD(68.02,"B","REPORT ROUTING LOCATION",6)=""
^DD(68.02,"B","SPECIMEN",50)=""
^DD(68.02,"B","SPECIMEN NUMBER",4)=""
^DD(68.02,"B","TESTS",11)=""
^DD(68.02,"B","TREATING SPECIALITY",6.6)=""
^DD(68.02,"B","UID",16)=""
^DD(68.02,"GL",0,1,.01)=""
^DD(68.02,"GL",0,2,1)=""
^DD(68.02,"GL",0,3,2)=""
^DD(68.02,"GL",0,4,3)=""
^DD(68.02,"GL",0,5,4)=""
^DD(68.02,"GL",0,6,5)=""
^DD(68.02,"GL",0,7,6)=""
^DD(68.02,"GL",0,8,6.5)=""
^DD(68.02,"GL",0,9,6.6)=""
^DD(68.02,"GL",0,10,6.7)=""
^DD(68.02,"GL",0,11,92)=""
^DD(68.02,"GL",0,12,93)=""
^DD(68.02,"GL",0,13,94)=""
^DD(68.02,"GL",.1,1,14)=""
^DD(68.02,"GL",.2,1,15)=""
^DD(68.02,"GL",.3,1,16)=""
^DD(68.02,"GL",.3,2,16.1)=""
^DD(68.02,"GL",.3,3,16.2)=""
^DD(68.02,"GL",.3,4,16.3)=""
^DD(68.02,"GL",.3,5,16.4)=""
^DD(68.02,"GL",.4,1,26)=""
^DD(68.02,"GL",2,"E1,200",8)=""
^DD(68.02,"GL",3,1,9)=""
^DD(68.02,"GL",3,2,10)=""
^DD(68.02,"GL",3,3,12)=""
^DD(68.02,"GL",3,4,13)=""
^DD(68.02,"GL",3,5,13.5)=""
^DD(68.02,"GL",3,6,13.6)=""
^DD(68.02,"GL",4,0,11)=""
^DD(68.02,"GL",5,0,50)=""
^DD(68.02,"GL",6,1,60)=""
^DD(68.02,"GL",6,2,61)=""
^DD(68.02,"GL",7,0,80)=""
^DD(68.02,"GL",9,1,91)=""
^DD(68.02,"GL","AD",1,15.1)=""
^DD(68.02,"GL","PCE",1,30)=""
^DD(68.02,"IX",.01)=""
^DD(68.02,"IX",5)=""
^DD(68.02,"IX",12)=""
^DD(68.02,"IX",13)=""
^DD(68.02,"IX",14)=""
^DD(68.02,"IX",16)=""
^DD(68.02,"IX",16.1)=""
^DD(68.02,"IX",16.3)=""
^DD(68.02,"IX",26)=""
^DD(68.02,"IX",93)=""
^DD(68.02,"RQ",.01)=""
^DD(68.02,"RQ",6)=""
^DD(68.02,"RQ",6.5)=""
^DD(68.02,"RQ",6.6)=""
^DD(68.02,"SB",68.04,11)=""
^DD(68.02,"SB",68.05,50)=""
^DD(68.02,"SB",68.06,80)=""
^DD(68.03,0)="ASSOCIATED DIVISION SUB-FIELD^^.01^1"
^DD(68.03,0,"DT")="2950802"
^DD(68.03,0,"IX","B",68.03,.01)=""
^DD(68.03,0,"NM","ASSOCIATED DIVISION")=""
^DD(68.03,0,"UP")="68"
^DD(68.03,.01,0)="ASSOCIATED DIVISION^M*P4'X^DIC(4,^0;1^S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(68.03,.01,1,0)="^.1"
^DD(68.03,.01,1,1,0)="68.03^B"
^DD(68.03,.01,1,1,1)="S ^LRO(68,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(68.03,.01,1,1,2)="K ^LRO(68,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(68.03,.01,12)="Allows only divisions related to site."
^DD(68.03,.01,12.1)="S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"""
^DD(68.03,.01,"DT")="2960130"
^DD(68.03,"B","ASSOCIATED DIVISION",.01)=""
^DD(68.03,"GL",0,1,.01)=""
^DD(68.03,"IX",.01)=""
^DD(68.04,0)="TESTS SUB-FIELD^NL^9^12"
^DD(68.04,0,"DT")="2930325"
^DD(68.04,0,"IX","AB",68.14,.01)=""
^DD(68.04,0,"IX","AC",68.04,4)=""
^DD(68.04,0,"IX","AD",68.04,4)=""
^DD(68.04,0,"IX","B",68.04,.01)=""
^DD(68.04,0,"NM","TESTS")=""
^DD(68.04,0,"UP")="68.02"
^DD(68.04,.01,0)=" TEST^MP60'^LAB(60,^0;1^Q"
^DD(68.04,.01,1,0)="^.1^^0"
^DD(68.04,.01,1,1,0)="68.04^B"
^DD(68.04,.01,1,1,1)="S ^LRO(68,DA(3),1,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(68.04,.01,1,1,2)="K ^LRO(68,DA(3),1,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(68.04,.01,21,0)="^^1^1^2930325^^^^"
^DD(68.04,.01,21,1,0)="The pointers to the Laboratory Tests for this accession."
^DD(68.04,.01,"DT")="2930325"
^DD(68.04,1,0)="URGENCY OF TEST^RP62.05'^LAB(62.05,^0;2^Q"
^DD(68.04,1,21,0)="^^1^1^2920113^^"
^DD(68.04,1,21,1,0)="The urgency of the test being completed, e.g. stat, routine, etc."
^DD(68.04,1,21,2,0)="  There is a special urgency used only for workload recording called"
^DD(68.04,1,21,3,0)="WKL. This urgency indicates that this test was not ordered directly,"
^DD(68.04,1,21,4,0)="but was added to the accession to support certain workload functions."
^DD(68.04,1,"DT")="2841109"
^DD(68.04,2,0)="LOAD LIST ENTRY^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(68.04,2,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(68.04,2,21,0)="^^2^2^2920113^^"
^DD(68.04,2,21,1,0)="The load/work list location is stored here in "";"" piece format."
^DD(68.04,2,21,2,0)="""load list pointer;tray;cup"""
^DD(68.04,2,"DT")="2840123"
^DD(68.04,3,0)="TECHNOLOGIST^P200'^VA(200,^0;4^Q"
^DD(68.04,3,3)=""
^DD(68.04,3,21,0)="^^3^3^2920302^^^^"
^DD(68.04,3,21,1,0)=" The DUZ of the person verifying the test."
^DD(68.04,3,21,2,0)="NOTE: This field previously contained technologist initials."
^DD(68.04,3,21,3,0)="Converted with the release of version 5.2."
^DD(68.04,3,"DT")="2920302"
^DD(68.04,4,0)="COMPLETE DATE^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(68.04,4,1,0)="^.1"
^DD(68.04,4,1,1,0)="68.04^AC^MUMPS"
^DD(68.04,4,1,1,1)="S ^LRO(68,DA(3),1,DA(2),1,""AC"",X,DA(1))="""""
^DD(68.04,4,1,1,2)="K ^LRO(68,DA(3),1,DA(2),1,""AC"",X,DA(1))"
^DD(68.04,4,1,2,0)="68.04^AD^MUMPS"
^DD(68.04,4,1,2,1)="S ^LRO(68,DA(3),1,DA(2),1,""AD"",+$P(X,""."",1),DA(1))="""""
^DD(68.04,4,1,2,2)="K ^LRO(68,DA(3),1,DA(2),1,""AD"",+$P(X,""."",1),DA(1))"
^DD(68.04,4,1,3,0)="68^AA^MUMPS"
^DD(68.04,4,1,3,1)="S A=$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7) S:'A ^LRO(68,""AA"",DA(3)_""|""_DA(2)_""|""_DA(1)_""|""_DA)="""""
^DD(68.04,4,1,3,2)="K ^LRO(68,""AA"",DA(3)_""|""_DA(2)_""|""_DA(1)_""|""_DA)"
^DD(68.04,4,1,3,"%D",0)="^^1^1^2910124^"
^DD(68.04,4,1,3,"%D",1,0)="Sets x-ref for WKLD workload"
^DD(68.04,4,1,3,"DT")="2910124"
^DD(68.04,4,1,4,0)="^^TRIGGER^68.04^5.1"
^DD(68.04,4,1,4,1)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(68.04,4,1,4,1.1) X ^DD(68.04,4,1,4,1.4)"
^DD(68.04,4,1,4,1.1)="S X=DIV S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0"
^DD(68.04,4,1,4,1.4)="S DIH=$S($D(^LRO(68,DIV(0),1,DIV(1),1,DIV(2),4,DIV(3),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=68.04,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68.04,4,1,4,2)="K DIV S DIV=X,D0=DA(3),DIV(0)=D0,D1=DA(2),DIV(1)=D1,D2=DA(1),DIV(2)=D2,D3=DA,DIV(3)=D3 S Y(1)=$S($D(^LRO(68,D0,1,D1,1,D2,4,D3,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(68.04,4,1,4,2.1) X ^DD(68.04,4,1,4,2.4)"
^DD(68.04,4,1,4,2.1)="S X=DIV S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0"
^DD(68.04,4,1,4,2.4)="S DIH=$S($D(^LRO(68,DIV(0),1,DIV(1),1,DIV(2),4,DIV(3),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=68.04,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68.04,4,1,4,3)="Use to indicate some change has be make to the complete date."
^DD(68.04,4,1,4,"%D",0)="^^1^1^2910514^"
^DD(68.04,4,1,4,"%D",1,0)=" This trigger sets the Amis Tally field to 0"
^DD(68.04,4,1,4,"CREATE VALUE")="S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0"
^DD(68.04,4,1,4,"DELETE VALUE")="S X=0,$P(^LRO(68,DA(3),1,DA(2),1,DA(1),4,DA,0),U,7)=0"
^DD(68.04,4,1,4,"DT")="2910514"
^DD(68.04,4,1,4,"FIELD")="TALL"
^DD(68.04,4,3)="Null or 0 represents an incomplete test, date/time represents when completed."
^DD(68.04,4,21,0)="^^1^1^2920113^^"
^DD(68.04,4,21,1,0)="If null, the test is incomplete.  Otherwise, it is the date/time of completion."
^DD(68.04,4,"DT")="2910514"
^DD(68.04,5,0)="DISPOSITION^F^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(68.04,5,3)="Answer must be 1-25 characters in length."
^DD(68.04,5,"DT")="2981119"
^DD(68.04,5.1,0)="TALLY TO WKLD^SI^1:YES;0:HAS NOT;^0;7^Q"
^DD(68.04,5.1,1,0)="^.1^^0"
^DD(68.04,5.1,3)=""
^DD(68.04,5.1,5,1,0)="68.04^4^4"
^DD(68.04,5.1,21,0)="^^4^4^2931202^^^^"
^DD(68.04,5.1,21,1,0)="If test was counted for WKLD workload, workload file entry"
^DD(68.04,5.1,21,2,0)=" is entered here."
^DD(68.04,5.1,21,3,0)=" This flag prevents the test from being counted"
^DD(68.04,5.1,21,4,0)=" more than once."
^DD(68.04,5.1,21,5,0)="UPDATE THIS FIELD AUTOMATICALLY."
^DD(68.04,5.1,"DT")="2931105"
^DD(68.04,6,0)="WKLD CODE^68.14P^^1;0"
^DD(68.04,6,21,0)="^^3^3^2940317^^^^"
^DD(68.04,6,21,1,0)=" This sub file is devoted entirely to workload functions. The data"
^DD(68.04,6,21,2,0)="is stuffed automatically by routines at the time of verification of the"
^DD(68.04,6,21,3,0)="test."
^DD(68.04,7,0)="*IDENTITY^F^^7;1^K:$L(X)>4!($L(X)<1) X"
^DD(68.04,7,3)="Answer must be 1-4 characters in length."
^DD(68.04,7,21,0)="^^1^1^2940317^^^"
^DD(68.04,7,21,1,0)="Will deleted in future versions."
^DD(68.04,7,"DT")="2910110"
^DD(68.04,8,0)="WKLD SUFFIX^F^^0;8^K:$L(X)>4!($L(X)<1) X"
^DD(68.04,8,3)="Answer must be 1-4 characters in length."
^DD(68.04,8,21,0)="^^5^5^2931107^^^"
^DD(68.04,8,21,1,0)=" This field contains the WKLD code suffix used to identify the method"
^DD(68.04,8,21,2,0)="used to verify this particular test. The suffix is stuffed at"
^DD(68.04,8,21,3,0)="the time of verification automatically. This field can be used to sort"
^DD(68.04,8,21,4,0)="methods used to assay various test."
^DD(68.04,8,21,5,0)="  The decimal point of the WKLD code suffix is stripped off."
^DD(68.04,8,"DT")="2910208"
^DD(68.04,8.1,0)="PARENT TEST^P60'^LAB(60,^0;9^Q"
^DD(68.04,8.1,21,0)="^^2^2^2961211^"
^DD(68.04,8.1,21,1,0)=" This field contains the parent ordered test. In the case of panel test,"
^DD(68.04,8.1,21,2,0)="this field will contain the original ordered test."
^DD(68.04,8.1,"DT")="2961211"
^DD(68.04,9,0)="SHIPPING MANIFEST^P62.8'^LAHM(62.8,^0;10^Q"
^DD(68.04,9,3)="Enter the shipping manifest that this test is on."
^DD(68.04,9,21,0)="^^4^4^2970602^"
^DD(68.04,9,21,1,0)="This fields is used at the collection site to determine the exact"
^DD(68.04,9,21,2,0)="placement of each test.  This field will contain the shipping manifest"
^DD(68.04,9,21,3,0)="code for referral or send out lab tests.  For all local tests the field"
^DD(68.04,9,21,4,0)="will be null."
^DD(68.04,9,"DT")="2970422"
^DD(68.04,"B"," TEST",.01)=""
^DD(68.04,"B","*IDENTITY",7)=""
^DD(68.04,"B","COMPLETE DATE",4)=""
^DD(68.04,"B","DISPOSITION",5)=""
^DD(68.04,"B","LOAD LIST ENTRY",2)=""
^DD(68.04,"B","PARENT TEST",8.1)=""
^DD(68.04,"B","SHIPPING MANIFEST",9)=""
^DD(68.04,"B","TALLY TO WKLD",5.1)=""
^DD(68.04,"B","TECHNOLOGIST",3)=""
^DD(68.04,"B","URGENCY OF TEST",1)=""
^DD(68.04,"B","WKLD CODE",6)=""
^DD(68.04,"B","WKLD SUFFIX",8)=""
^DD(68.04,"GL",0,1,.01)=""
^DD(68.04,"GL",0,2,1)=""
^DD(68.04,"GL",0,3,2)=""
^DD(68.04,"GL",0,4,3)=""
^DD(68.04,"GL",0,5,4)=""
^DD(68.04,"GL",0,6,5)=""
^DD(68.04,"GL",0,7,5.1)=""
^DD(68.04,"GL",0,8,8)=""
^DD(68.04,"GL",0,9,8.1)=""
^DD(68.04,"GL",0,10,9)=""
^DD(68.04,"GL",1,0,6)=""
^DD(68.04,"GL",7,1,7)=""
^DD(68.04,"IX",.01)=""
^DD(68.04,"IX",4)=""
^DD(68.04,"RQ",1)=""
^DD(68.04,"SB",68.14,6)=""
^DD(68.05,0)="SPECIMEN SUB-FIELD^NL^2^3"
^DD(68.05,0,"NM","SPECIMEN")=""
^DD(68.05,0,"UP")="68.02"
^DD(68.05,.01,0)="SPECIMEN^P61'^LAB(61,^0;1^Q"
^DD(68.05,.01,21,0)="^^2^2^2841127^^"
^DD(68.05,.01,21,1,0)="The site/specimen from the Topography field file.  There may be"
^DD(68.05,.01,21,2,0)="more than one specimen for certain types of accessions."
^DD(68.05,.01,"DT")="2830302"
^DD(68.05,1,0)="COLLECTION SAMPLE^P62'^LAB(62,^0;2^Q"
^DD(68.05,1,21,0)="^^1^1^2841127^"
^DD(68.05,1,21,1,0)="The collection sample is from file 62."
^DD(68.05,1,"DT")="2840322"
^DD(68.05,2,0)="TEST^68.13PA^^T;0"
^DD(68.05,2,12)="SELECT ONLY SPECIAL STAINS"
^DD(68.05,2,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""""
^DD(68.05,2,21,0)="^^1^1^2930327^"
^DD(68.05,2,21,1,0)=" This field contains the test ordered for this patient/specimen"
^DD(68.05,"B","COLLECTION SAMPLE",1)=""
^DD(68.05,"B","SPECIMEN",.01)=""
^DD(68.05,"B","TEST",2)=""
^DD(68.05,"GL",0,1,.01)=""
^DD(68.05,"GL",0,2,1)=""
^DD(68.05,"GL","T",0,2)=""
^DD(68.05,"SB",68.13,2)=""
^DD(68.06,0)="PROGRESS NOTES SUB-FIELD^NL^.01^1"
^DD(68.06,0,"NM","PROGRESS NOTES")=""
^DD(68.06,0,"UP")="68.02"
^DD(68.06,.01,0)="PROGRESS NOTES^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(68.06,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(68.06,.01,21,0)="^^1^1^2841127^"
^DD(68.06,.01,21,1,0)="Progress notes on the accession."
^DD(68.06,"B","PROGRESS NOTES",.01)=""
^DD(68.06,"GL",0,1,.01)=""
^DD(68.07,0)="BULL ALGORITHM CONTROL DATA SUB-FIELD^NL^4^5"
^DD(68.07,0,"NM","BULL ALGORITHM CONTROL DATA")=""
^DD(68.07,0,"UP")="68.01"
^DD(68.07,.01,0)="METHOD CONTROL DATA^P62.4'X^LAB(62.4,^0;1^S DINUM=X"
^DD(68.07,.01,1,0)="^.1^^0"
^DD(68.07,.01,3)=""
^DD(68.07,.01,21,0)="^^1^1^2841126^"
^DD(68.07,.01,21,1,0)="Data is stored here for use in Bull's algorithm."
^DD(68.07,.01,"DT")="2831106"
^DD(68.07,1,0)="CONTROL DATA^68.08A^^1;0"
^DD(68.07,1,21,0)="^^1^1^2841126^"
^DD(68.07,1,21,1,0)="Data from the running average of Bull's algorithm is stored here."
^DD(68.07,2,0)="MEAN DATA VALUE 1^NJ7,3^^0;2^K:+X'=X!(X>999)!(X<-99)!(X?.E1"".""4N.N) X"
^DD(68.07,2,3)="TYPE A NUMBER BETWEEN -99 AND 999"
^DD(68.07,2,21,0)="^^1^1^2841126^"
^DD(68.07,2,21,1,0)="The Mean Data Value 1 from the Auto Instrument file is reproduced here."
^DD(68.07,2,"DT")="2831105"
^DD(68.07,3,0)="MEAN DATA VALUE 2^NJ7,3^^0;3^K:+X'=X!(X>999)!(X<-99)!(X?.E1"".""4N.N) X"
^DD(68.07,3,3)="TYPE A NUMBER BETWEEN -99 AND 999"
^DD(68.07,3,21,0)="^^1^1^2841126^"
^DD(68.07,3,21,1,0)="The Mean Data Value 2 from the Auto Instrument file is reproduced here."
^DD(68.07,4,0)="MEAN DATA VALUE 3^NJ7,3^^0;4^K:+X'=X!(X>999)!(X<-99)!(X?.E1"".""4N.N) X"
^DD(68.07,4,3)="TYPE A NUMBER BETWEEN -99 AND 999"
^DD(68.07,4,21,0)="^^1^1^2841126^"
^DD(68.07,4,21,1,0)="The Mean Data Value 3 from the Auto Instrument file is reproduced here."
^DD(68.07,"B","CONTROL DATA",1)=""
^DD(68.07,"B","MEAN DATA VALUE 1",2)=""
^DD(68.07,"B","MEAN DATA VALUE 2",3)=""
^DD(68.07,"B","MEAN DATA VALUE 3",4)=""
^DD(68.07,"B","METHOD CONTROL DATA",.01)=""
^DD(68.07,"GL",0,1,.01)=""
^DD(68.07,"GL",0,2,2)=""
^DD(68.07,"GL",0,3,3)=""
^DD(68.07,"GL",0,4,4)=""
^DD(68.07,"GL",1,0,1)=""
^DD(68.07,"SB",68.08,1)=""
^DD(68.08,0)="CONTROL DATA SUB-FIELD^NL^.01^1"
^DD(68.08,0,"NM","CONTROL DATA")=""
^DD(68.08,0,"UP")="68.07"
^DD(68.08,.01,0)="CONTROL DATA^MF^^0;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(68.08,.01,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(68.08,.01,21,0)="^^1^1^2841127^^"
^DD(68.08,.01,21,1,0)="Data from the running average of Bull's algorithm is stored here."
^DD(68.08,.01,"DT")="2831105"
^DD(68.08,"B","CONTROL DATA",.01)=""
^DD(68.08,"GL",0,"E1,250",.01)=""
^DD(68.09,0)="INSTRUMENTATION CONTROLS SUB-FIELD^NL^1^2"
^DD(68.09,0,"NM","INSTRUMENTATION CONTROLS")=""
^DD(68.09,0,"UP")="68"
^DD(68.09,.01,0)="INSTRUMENTATION CONTROLS^P62.4'X^LAB(62.4,^0;1^S DINUM=X"
^DD(68.09,.01,21,0)="^^3^3^2841126^^"
^DD(68.09,.01,21,1,0)="You may only change the selection you have chosen by ""selecting"""
^DD(68.09,.01,21,2,0)="another one.  If you wish to change THIS one, you must delete it first."
^DD(68.09,.01,21,3,0)="(The internal FileMan number is significant, so we can't change the text.)"
^DD(68.09,.01,"DT")="2831106"
^DD(68.09,1,0)="CONTROL NAME^68.1PA^^1;0"
^DD(68.09,1,21,0)="^^2^2^2850725^^"
^DD(68.09,1,21,1,0)="The control that should always be placed with the accession number to be"
^DD(68.09,1,21,2,0)="defined with the ACC # field .001"
^DD(68.09,"B","CONTROL NAME",1)=""
^DD(68.09,"B","INSTRUMENTATION CONTROLS",.01)=""
^DD(68.09,"GL",0,1,.01)=""
^DD(68.09,"GL",1,0,1)=""
^DD(68.09,"SB",68.1,1)=""
^DD(68.1,0)="CONTROL NAME SUB-FIELD^NL^.01^2"
^DD(68.1,0,"NM","CONTROL NAME")=""
^DD(68.1,0,"UP")="68.09"
^DD(68.1,.001,0)="ACC #^NJ6,0X^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N)!$D(^LRO(68,DA(1),.5,DA,X)) X"
^DD(68.1,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(68.1,.001,4)="W ""  NUMBER MUST NOT BE A DUPLICATE"""
^DD(68.1,.001,21,0)="^^3^3^2841126^"
^DD(68.1,.001,21,1,0)="The numeric part of the accession to be assigned for the indicated"
^DD(68.1,.001,21,2,0)="control, if the number is available and automatic accessioning of"
^DD(68.1,.001,21,3,0)="controls is tasked."
^DD(68.1,.001,"DT")="2870720"
^DD(68.1,.01,0)="CONTROL NAME^MP62.3'^LAB(62.3,^0;1^Q"
^DD(68.1,.01,21,0)="^^1^1^2850725^"
^DD(68.1,.01,21,1,0)="The control that should always be placed with the accession number to be defined with the ACC # field .001."
^DD(68.1,.01,"DT")="2831106"
^DD(68.1,"B","ACC #",.001)=""
^DD(68.1,"B","CONTROL NAME",.01)=""
^DD(68.1,"GL",0,1,.01)=""
^DD(68.11,0)="MULTI-RULE VA QC SUB-FIELD^NL^2^3"
^DD(68.11,0,"NM","MULTI-RULE VA QC")=""
^DD(68.11,0,"UP")="68.01"
^DD(68.11,.01,0)="CONTROL NAME^MP62.3'X^LAB(62.3,^0;1^S DINUM=X"
^DD(68.11,.01,21,0)="^^2^2^2841127^^"
^DD(68.11,.01,21,1,0)="The name of the Quality Control to be used in Westergard's suggested"
^DD(68.11,.01,21,2,0)="use of the Multi-rule Shewhart determinations."
^DD(68.11,.01,"DT")="2831224"
^DD(68.11,1,0)="CONTROL DATA^68.12PA^^1;0"
^DD(68.11,1,21,0)="^^2^2^2841127^^^"
^DD(68.11,1,21,1,0)="Data from the Multi-rule Shewhart determinations are stored here for"
^DD(68.11,1,21,2,0)="intermediate computations."
^DD(68.11,2,0)="REJECT REASON^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(68.11,2,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(68.11,2,21,0)="^^1^1^2841127^"
^DD(68.11,2,21,1,0)="A brief description of the reason to re-examine the controls."
^DD(68.11,2,"DT")="2831226"
^DD(68.11,"B","CONTROL DATA",1)=""
^DD(68.11,"B","CONTROL NAME",.01)=""
^DD(68.11,"B","REJECT REASON",2)=""
^DD(68.11,"GL",0,1,.01)=""
^DD(68.11,"GL",0,2,2)=""
^DD(68.11,"GL",1,0,1)=""
^DD(68.11,"SB",68.12,1)=""
^DD(68.12,0)="CONTROL DATA SUB-FIELD^NL^.01^1"
^DD(68.12,0,"NM","CONTROL DATA")=""
^DD(68.12,0,"UP")="68.11"
^DD(68.12,.01,0)="CONTROL DATA^M*P60'X^LAB(60,^0;E1,250^S DIC(""S"")=""I $L($P(^(0),U,5))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(68.12,.01,3)=""
^DD(68.12,.01,12)="THE TEST MUST HAVE A STORAGE PLACE"
^DD(68.12,.01,12.1)="S DIC(""S"")=""I $L($P(^(0),U,5))"""
^DD(68.12,.01,21,0)="^^2^2^2841127^"
^DD(68.12,.01,21,1,0)="Data from the Multi-rule Shewhart determinations are stored here for"
^DD(68.12,.01,21,2,0)="intermediate computations."
^DD(68.12,.01,"DT")="2831225"
^DD(68.12,"B","CONTROL DATA",.01)=""
^DD(68.12,"GL",0,"E1,250",.01)=""
^DD(68.13,0)="TEST SUB-FIELD^NL^2^3"
^DD(68.13,0,"NM","TEST")=""
^DD(68.13,0,"UP")="68.05"
^DD(68.13,.01,0)="TEST^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(68.13,.01,21,0)="^^1^1^2841127^"
^DD(68.13,.01,21,1,0)="The procedures to be done on a particular specimen."
^DD(68.13,.01,"DT")="2840411"
^DD(68.13,1,0)="TISSUE BLOCK(S)^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(68.13,1,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(68.13,1,21,0)="^^1^1^2841127^"
^DD(68.13,1,21,1,0)="Used for path examination."
^DD(68.13,1,"DT")="2840411"
^DD(68.13,2,0)="TOTAL SLIDES^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.13,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(68.13,2,21,0)="^^1^1^2930327^"
^DD(68.13,2,21,1,0)=" This field contains the number of slides used to process this specimen."
^DD(68.13,2,"DT")="2860407"
^DD(68.13,"B","TEST",.01)=""
^DD(68.13,"B","TISSUE BLOCK(S)",1)=""
^DD(68.13,"B","TOTAL SLIDES",2)=""
^DD(68.13,"GL",0,1,.01)=""
^DD(68.13,"GL",0,2,1)=""
^DD(68.13,"GL",0,3,2)=""
^DD(68.14,0)="WKLD CODE SUB-FIELD^NL^12^12"
^DD(68.14,0,"DT")="2920331"
^DD(68.14,0,"NM","WKLD CODE")=""
^DD(68.14,0,"UP")="68.04"
^DD(68.14,.01,0)="WKLD CODE^MP64'O^LAM(^0;1^Q"
^DD(68.14,.01,1,0)="^.1^^0"
^DD(68.14,.01,1,1,0)="68.04^AB"
^DD(68.14,.01,1,1,1)="S ^LRO(68,DA(4),1,DA(3),1,DA(2),4,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(68.14,.01,1,1,2)="K ^LRO(68,DA(4),1,DA(3),1,DA(2),4,""AB"",$E(X,1,30),DA(1),DA)"
^DD(68.14,.01,2)="S Y(0)=Y I $G(Y) S Y=$P($G(^LAM(+Y(0),0)),U) S:$P($G(^LAM(+Y(0),0)),U,5) Y=""+""_$P(^(0),U)"
^DD(68.14,.01,2.1)="S Y(0)=Y I $G(Y) S Y=$P($G(^LAM(+Y(0),0)),U) S:$P($G(^LAM(+Y(0),0)),U,5) Y=""+""_$P(^(0),U)"
^DD(68.14,.01,3)="Enter WKLD code for this test."
^DD(68.14,.01,4)=""
^DD(68.14,.01,21,0)="^^1^1^2931107^^^^"
^DD(68.14,.01,21,1,0)="WKLD codes associated with test/procedure are entered here."
^DD(68.14,.01,"DT")="2940429"
^DD(68.14,.02,0)="TEST MULTIPLY FACTOR^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.14,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(68.14,.02,21,0)="^^1^1^2910227^^^"
^DD(68.14,.02,21,1,0)="Enter the number of times the WKLD code is used for the test/procedure."
^DD(68.14,.02,21,2,0)="to obtain the correct total weight. The default value is 1. This number"
^DD(68.14,.02,21,3,0)="is used to determine the total weight to credited for this test."
^DD(68.14,.02,21,4,0)=" This is the number of times this test has been counted."
^DD(68.14,.02,"DT")="2910227"
^DD(68.14,.03,0)="WKLD CODE COUNTED^S^1:YES;0:NO;^0;3^Q"
^DD(68.14,.03,21,0)="^^4^4^2931107^^"
^DD(68.14,.03,21,1,0)=" This field is used by the workload compiling routine to prevent the"
^DD(68.14,.03,21,2,0)="WKLD code from being counted twice. The number 1 indicates the weight"
^DD(68.14,.03,21,3,0)="has been captured for this WKLD code."
^DD(68.14,.03,21,4,0)="  NOTE: THIS FIELD SHOULD NOT BE MANUALLY EDITED."
^DD(68.14,.03,"DT")="2900507"
^DD(68.14,.04,0)="WKLD CODE TALLY^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.14,.04,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(68.14,.04,21,0)="^^3^3^2931107^^"
^DD(68.14,.04,21,1,0)="A WKLD code may have several individual counts."
^DD(68.14,.04,21,2,0)=" Each time a count is made it is added to the WKLD"
^DD(68.14,.04,21,3,0)=" code tally and the WKLD CODE COUNTED flag is set to zero."
^DD(68.14,.04,21,4,0)=" This field is utilized when additional work has been added to a part"
^DD(68.14,.04,21,5,0)="icular WKLD code. Microbioloby is a area which many require a WKLD code"
^DD(68.14,.04,21,6,0)="be counted more than once. This field then contains the total number"
^DD(68.14,.04,21,7,0)="of times the WKLD code weight has been multiplied."
^DD(68.14,.04,21,8,0)="  NOTE: THIS FIELD SHOULD NOT BE MANUALLY EDITED."
^DD(68.14,.04,"DT")="2900507"
^DD(68.14,.05,0)="WKLD CODE REPEAT COUNT^NJ3,0^^0;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.14,.05,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(68.14,.05,21,0)="^^3^3^2931107^^^"
^DD(68.14,.05,21,1,0)="  This field is not being presently used. It may be used in the"
^DD(68.14,.05,21,2,0)="future to automatically capture repeat workload. Another field"
^DD(68.14,.05,21,3,0)="in ^LRO(64.1, is being used to capture this data from manual entry."
^DD(68.14,.05,"DT")="2900516"
^DD(68.14,1,0)="COMPLETION TIME^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(68.14,1,1,0)="^.1^^0"
^DD(68.14,1,21,0)="^^3^3^2920113^^"
^DD(68.14,1,21,1,0)=" This field conatins the completion time for this individual WKLD code"
^DD(68.14,1,21,2,0)="procedure. It calulated at the time of verification by the routines"
^DD(68.14,1,21,3,0)="which stuff the data into this field."
^DD(68.14,1,"DT")="2901229"
^DD(68.14,2,0)="USER^P200'^VA(200,^0;7^Q"
^DD(68.14,2,21,0)="^^3^3^2940317^^"
^DD(68.14,2,21,1,0)="  This field contains the person (NEW PERSON file) which verified this "
^DD(68.14,2,21,2,0)="particular portion of the test. This field is automatically stuffed at "
^DD(68.14,2,21,3,0)="the time of verification."
^DD(68.14,2,"DT")="2920331"
^DD(68.14,3,0)="INSTITUTION^P4'^DIC(4,^0;8^Q"
^DD(68.14,3,21,0)="^^3^3^2910730^"
^DD(68.14,3,21,1,0)="  This is the institution the verifying person used when logging on"
^DD(68.14,3,21,2,0)="to the system. This field allow the workload from Multi-Div sites"
^DD(68.14,3,21,3,0)="to be stored and counted separately."
^DD(68.14,3,23,0)="^^1^1^2910730^"
^DD(68.14,3,23,1,0)=" The value of DUZ(2) is used for this field."
^DD(68.14,3,"DT")="2901227"
^DD(68.14,4,0)="MAJOR SECTION^P68'^LRO(68,^0;9^Q"
^DD(68.14,4,21,0)="^^2^2^2910730^^"
^DD(68.14,4,21,1,0)="  This field contains the accession area which should recieve credit for"
^DD(68.14,4,21,2,0)="this workload. ie CHEMISTRY"
^DD(68.14,4,23,0)="^^3^3^2910730^^"
^DD(68.14,4,23,1,0)="  This data is obtained when the user selects a worklist. The worklist"
^DD(68.14,4,23,2,0)="has this data predefined. The default value is the accession area which"
^DD(68.14,4,23,3,0)="contains the data."
^DD(68.14,4,"DT")="2910326"
^DD(68.14,5,0)="LAB SUBSECTION^P68'^LRO(68,^0;10^Q"
^DD(68.14,5,21,0)="^^3^3^2910730^^^^"
^DD(68.14,5,21,1,0)=" This the second level used for identifying where workload credit should"
^DD(68.14,5,21,2,0)="be credited."
^DD(68.14,5,21,3,0)=" ie. SPECIAL CHEMISTRY"
^DD(68.14,5,22)=""
^DD(68.14,5,23,0)="^^3^3^2910730^^^^"
^DD(68.14,5,23,1,0)=" This data is obtained when the user selects a worklist. The worklist"
^DD(68.14,5,23,2,0)="has this data predefined. The default is the accession area which"
^DD(68.14,5,23,3,0)="contains the data."
^DD(68.14,5,"DT")="2901228"
^DD(68.14,6,0)="WORK AREA^*P68'^LRO(68,^0;11^S DIC(""S"")=""I $L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.14,6,12)="Select only accession areas identified as Work Areas."
^DD(68.14,6,12.1)="S DIC(""S"")=""I $L($P(^(0),U,17))"""
^DD(68.14,6,21,0)="^^3^3^2931107^^^"
^DD(68.14,6,21,1,0)=" This is the lowest level used to credit workload. This field may be"
^DD(68.14,6,21,2,0)="the same as the LAB SUBSECTION entry."
^DD(68.14,6,21,3,0)=" i.e., ELECTROPHORESIS"
^DD(68.14,6,23,0)="^^3^3^2931107^^^"
^DD(68.14,6,23,1,0)=" This data is obtained when the user selects a worklist. The worklist"
^DD(68.14,6,23,2,0)="has this data predefined. The default is the entry in either LAB"
^DD(68.14,6,23,3,0)="SUBSECTION  or the value found in MAJOR SECTION entries."
^DD(68.14,6,"DT")="2910313"
^DD(68.14,12,0)="MANUAL EDIT^S^1:YES;^0;12^Q"
^DD(68.14,12,21,0)="^^2^2^2920113^^"
^DD(68.14,12,21,1,0)=" If this data is entered manually via a edit template. This field would"
^DD(68.14,12,21,2,0)="indicate if the data was not stuffed automatically."
^DD(68.14,12,"DT")="2910410"
^DD(68.14,"B","COMPLETION TIME",1)=""
^DD(68.14,"B","INSTITUTION",3)=""
^DD(68.14,"B","LAB SUBSECTION",5)=""
^DD(68.14,"B","MAJOR SECTION",4)=""
^DD(68.14,"B","MANUAL EDIT",12)=""
^DD(68.14,"B","TEST MULTIPLY FACTOR",.02)=""
^DD(68.14,"B","USER",2)=""
^DD(68.14,"B","WKLD CODE",.01)=""
^DD(68.14,"B","WKLD CODE COUNTED",.03)=""
^DD(68.14,"B","WKLD CODE REPEAT COUNT",.05)=""
^DD(68.14,"B","WKLD CODE TALLY",.04)=""
^DD(68.14,"B","WORK AREA",6)=""
^DD(68.14,"GL",0,1,.01)=""
^DD(68.14,"GL",0,2,.02)=""
^DD(68.14,"GL",0,3,.03)=""
^DD(68.14,"GL",0,4,.04)=""
^DD(68.14,"GL",0,5,.05)=""
^DD(68.14,"GL",0,6,1)=""
^DD(68.14,"GL",0,7,2)=""
^DD(68.14,"GL",0,8,3)=""
^DD(68.14,"GL",0,9,4)=""
^DD(68.14,"GL",0,10,5)=""
^DD(68.14,"GL",0,11,6)=""
^DD(68.14,"GL",0,12,12)=""
^DD(68.14,"IX",.01)=""
^DD(68.2,0)="FIELD^NL^52^28"
^DD(68.2,0,"DDA")="N"
^DD(68.2,0,"DT")="3041122"
^DD(68.2,0,"IX","B",68.2,.01)=""
^DD(68.2,0,"NM","LOAD/WORK LIST")=""
^DD(68.2,0,"PT",62.4,3)=""
^DD(68.2,0,"VR")="5.2"
^DD(68.2,0,"VRPK")="LR"
^DD(68.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(68.2,.01,1,0)="^.1"
^DD(68.2,.01,1,1,0)="68.2^B"
^DD(68.2,.01,1,1,1)="S ^LRO(68.2,""B"",$E(X,1,30),DA)="""""
^DD(68.2,.01,1,1,2)="K ^LRO(68.2,""B"",$E(X,1,30),DA)"
^DD(68.2,.01,3)="Answer must be 2-30 characters in length."
^DD(68.2,.01,21,0)="^^1^1^2920102^^^^"
^DD(68.2,.01,21,1,0)="Name of the load or work list."
^DD(68.2,.01,"DT")="2911213"
^DD(68.2,.02,0)="LOAD TRANSFORM^*P62.07'^LAB(62.07,^0;2^S DIC(""S"")=""I $P(^(0),U,3)[""""L"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.2,.02,12)="EXECUTE CODES APPROPRIATE FOR LOAD TRANSFORM"
^DD(68.2,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,3)[""""L"""""""
^DD(68.2,.02,21,0)="^^3^3^2841121^^^"
^DD(68.2,.02,21,1,0)="This entry controls the algorithm for placing work on the list."
^DD(68.2,.02,21,2,0)="Inquire to the EXECUTE CODES file (Loadlist types) for specifics."
^DD(68.2,.02,21,3,0)="Leave this blank unless you want more sophisticated placement."
^DD(68.2,.02,"DT")="2840330"
^DD(68.2,.03,0)="TYPE^RS^0:SEQUENCE/BATCH;1:TRAY,CUP;2:POINT OF CARE;^0;3^Q"
^DD(68.2,.03,1,0)="^.1^^0"
^DD(68.2,.03,21,0)="^^2^2^3011004^"
^DD(68.2,.03,21,1,0)="Determines if this list is a sequence/batch, tray,cup or Point of"
^DD(68.2,.03,21,2,0)="Care (POC) type of load/work list."
^DD(68.2,.03,23,0)="^^6^6^3011004^"
^DD(68.2,.03,23,1,0)="Point of Care (POC) is a type of interface that downloads and stores"
^DD(68.2,.03,23,2,0)="results for a bed side analyzer (device) ie. Glucometers"
^DD(68.2,.03,23,3,0)=" "
^DD(68.2,.03,23,4,0)="Accession and verification procedures are modified to accommodate POC"
^DD(68.2,.03,23,5,0)="type of data storage. POC results are not verified in the classical"
^DD(68.2,.03,23,6,0)="laboratory method."
^DD(68.2,.03,"DT")="3011004"
^DD(68.2,.04,0)="CUPS PER TRAY^RNJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.2,.04,3)="Enter the number of samples on a tray or rack (0 if not a tray instrument)"
^DD(68.2,.04,21,0)="^^1^1^2860513^^"
^DD(68.2,.04,21,1,0)="Contains number of cups per tray if a tray,cup type."
^DD(68.2,.04,21,2,0)="If you are using Sequence/Batch enter a Zero (0)"
^DD(68.2,.04,"DT")="2840825"
^DD(68.2,.05,0)="FULL TRAY'S ONLY^RS^0:NO;1:YES;^0;5^Q"
^DD(68.2,.05,3)="ANSWER YES IF YOU WANT ONLY FULL TRAY'S PUT ON THE LIST"
^DD(68.2,.05,21,0)="^^1^1^2841121^"
^DD(68.2,.05,21,1,0)="If you want to accept full trays only set this field to YES."
^DD(68.2,.05,"DT")="2840402"
^DD(68.2,.06,0)="EXPAND PANELS ON PRINT^S^0:NO;1:YES;^0;6^Q"
^DD(68.2,.06,3)="ANSWER YES IF YOU WANT ALL TEST PANELS ENPANDED WHEN PRINTED."
^DD(68.2,.06,21,0)="^^1^1^2841121^"
^DD(68.2,.06,21,1,0)="If you want test panels expanded to display all tests when printed, this field must contain YES."
^DD(68.2,.06,"DT")="2840404"
^DD(68.2,.07,0)="INITIAL SETUP^*P62.07'^LAB(62.07,^0;7^S DIC(""S"")=""I $P(^(0),U,3)[""""L"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.2,.07,3)=""
^DD(68.2,.07,12)="EXECUTE CODES APPROPRIATE FOR INITIAL SETUP"
^DD(68.2,.07,12.1)="S DIC(""S"")=""I $P(^(0),U,3)[""""L"""""""
^DD(68.2,.07,21,0)="^^3^3^2841121^^"
^DD(68.2,.07,21,1,0)="This code would be used each time a load or work list is built for the"
^DD(68.2,.07,21,2,0)="first time after it has been ""cleared"".  ""Special"" initialization may"
^DD(68.2,.07,21,3,0)="be customized through the EXECUTE CODE chosen."
^DD(68.2,.07,"DT")="2840910"
^DD(68.2,.08,0)="VERIFY BY^S^A:ACCESSION;M:MACHINE SEQUENCE;T:TRAY;W:WORKLIST;^0;8^Q"
^DD(68.2,.08,3)="This entry will force the way this Load/Work list works."
^DD(68.2,.08,21,0)="^^1^1^2841121^"
^DD(68.2,.08,21,1,0)="Determines the method of verification for this list."
^DD(68.2,.08,"DT")="2840822"
^DD(68.2,.09,0)="SUPPRESS SEQUENCE #^S^0:NO;1:YES;^0;9^Q"
^DD(68.2,.09,21,0)="^^1^1^2850725^"
^DD(68.2,.09,21,1,0)="""YES"" will suppress the sequence # listing."
^DD(68.2,.09,"DT")="2931130"
^DD(68.2,.1,0)="INCLUDE UNCOLLECTED ACCESSIONS^S^0:NO;1:YES;^0;10^Q"
^DD(68.2,.1,3)="A 'YES' IN THIS FIELD WILL INCLUDE ALL ACCESSION THAT HAVE TESTS FOR THE PROFILE."
^DD(68.2,.1,21,0)="^^3^3^2850105^^"
^DD(68.2,.1,21,1,0)="This field is used to tell the load list routine whether to include"
^DD(68.2,.1,21,2,0)="(if set to YES) ALL accessions that have the tests in the profile, or"
^DD(68.2,.1,21,3,0)="(if set to NO) only accessions that have ARRIVED in the lab."
^DD(68.2,.1,"DT")="2850104"
^DD(68.2,.11,0)="SHORT TEST LIST^S^0:NO;1:YES;^0;11^Q"
^DD(68.2,.11,3)="Enter YES if you want a short list of the tests."
^DD(68.2,.11,21,0)="^^1^1^2850725^"
^DD(68.2,.11,21,1,0)="If this field contains ""YES"" a short test list will be generated."
^DD(68.2,.11,"DT")="2850722"
^DD(68.2,.12,0)="AUTO MICRO EDIT TEMPLATE^*P62.07'^LAB(62.07,^0;13^S DIC(""S"")=""I $P(^(0),U,3)=""""E"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.2,.12,3)="Enter the execute code to be used when verifying Auto Micro results "
^DD(68.2,.12,12)="SELECT ONLY EDIT TYPE TEMPLATES"
^DD(68.2,.12,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""E"""""""
^DD(68.2,.12,21,0)="^^1^1^2930719^^^"
^DD(68.2,.12,21,1,0)=" Select Execute Code to be associated with this Load/worklist."
^DD(68.2,.12,"DT")="2890605"
^DD(68.2,.14,0)="WKLD METHOD^P64.2'^LAB(64.2,^SUF;1^Q"
^DD(68.2,.14,1,0)="^.1"
^DD(68.2,.14,1,1,0)="^^TRIGGER^68.2^.15"
^DD(68.2,.14,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(68.2,.14,1,1,1.1) S DIH=$G(^LRO(68.2,DIV(0),""SUF"")),DIV=X S $P(^(""SUF""),U,2)=DIV,DIH=68.2,DIG=.15 D ^DICR"
^DD(68.2,.14,1,1,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.2,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(68.2,.14,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^LRO(68.2,DIV(0),""SUF"")),DIV=X S $P(^(""SUF""),U,2)=DIV,DIH=68.2,DIG=.15 D ^DICR"
^DD(68.2,.14,1,1,3)="Sets the WKLD CODE SUFFIX NAME into .15"
^DD(68.2,.14,1,1,"%D",0)="^^1^1^3010918^"
^DD(68.2,.14,1,1,"%D",1,0)="This trigger will stuff the WKLD CODE SUFFIX name (.01) into field #.15."
^DD(68.2,.14,1,1,"CREATE VALUE")="WKLD METHOD:NAME"
^DD(68.2,.14,1,1,"DELETE VALUE")="@"
^DD(68.2,.14,1,1,"DT")="3010918"
^DD(68.2,.14,1,1,"FIELD")="WKLD CODE METHOD NAME"
^DD(68.2,.14,1,2,0)="^^TRIGGER^68.2^.16"
^DD(68.2,.14,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(68.2,.14,1,2,1.1) S DIH=$G(^LRO(68.2,DIV(0),""SUF"")),DIV=X S $P(^(""SUF""),U,3)=DIV,DIH=68.2,DIG=.16 D ^DICR"
^DD(68.2,.14,1,2,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^LAB(64.2,+D0,0)) D0=-1 S Y(101)=$S($D(^LAB(64.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(68.2,.14,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LRO(68.2,D0,""SUF"")):^(""SUF""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^LRO(68.2,DIV(0),""SUF"")),DIV=X S $P(^(""SUF""),U,3)=DIV,DIH=68.2,DIG=.16 D ^DICR"
^DD(68.2,.14,1,2,3)="Sets the WKLD CODE SUFFIX number into .16"
^DD(68.2,.14,1,2,"%D",0)="^^1^1^3010918^"
^DD(68.2,.14,1,2,"%D",1,0)="This trigger will stuff the WKLD CODE SUFFIX number into field # .16."
^DD(68.2,.14,1,2,"CREATE VALUE")="WKLD METHOD:WKLD SUFFIX CODE"
^DD(68.2,.14,1,2,"DELETE VALUE")="@"
^DD(68.2,.14,1,2,"DT")="3010918"
^DD(68.2,.14,1,2,"FIELD")="WKLD CODE SUFFIX"
^DD(68.2,.14,21,0)="^^4^4^2901221^"
^DD(68.2,.14,21,1,0)="This field will be used as default response when setting up WKLD code during"
^DD(68.2,.14,21,2,0)="verification. This field updated after the technologist confirm the method"
^DD(68.2,.14,21,3,0)="for this particular verification session.  The name and suffix number are"
^DD(68.2,.14,21,4,0)="automatically stuff for the user."
^DD(68.2,.14,"DT")="3010918"
^DD(68.2,.15,0)="WKLD CODE METHOD NAME^F^^SUF;2^K:$L(X)>40!($L(X)<1) X"
^DD(68.2,.15,3)="Answer must be 1-40 characters in length."
^DD(68.2,.15,5,1,0)="68.2^.14^1"
^DD(68.2,.15,9)="^"
^DD(68.2,.15,21,0)="^^2^2^2931107^^"
^DD(68.2,.15,21,1,0)="  The field should contain the subsection which should receive credit"
^DD(68.2,.15,21,2,0)="for workload any time a user selects this worklist."
^DD(68.2,.15,"DT")="2901221"
^DD(68.2,.16,0)="WKLD CODE SUFFIX^FX^^SUF;3^K:$L(X)>5!($L(X)<4) X"
^DD(68.2,.16,3)="Answer must be 4 characters in length."
^DD(68.2,.16,5,1,0)="68.2^.14^2"
^DD(68.2,.16,9)="^"
^DD(68.2,.16,21,0)="^^3^3^2930327^"
^DD(68.2,.16,21,1,0)=" This field indicates what is the standard default method used by this"
^DD(68.2,.16,21,2,0)="particular LOAD/WORK LIST. This suffix is appended to prefix or procedure"
^DD(68.2,.16,21,3,0)="wkld code for each test verified."
^DD(68.2,.16,"DT")="2920707"
^DD(68.2,1,0)="MAJOR ACCESSION AREA^P68'^LRO(68,^SUF;7^Q"
^DD(68.2,1,21,0)="^^4^4^2910730^^"
^DD(68.2,1,21,1,0)="  This field contains the major accession area which should recieve the"
^DD(68.2,1,21,2,0)="workload credit. Anytime a user selects this worklist the entry will be"
^DD(68.2,1,21,3,0)="used to tally workload."
^DD(68.2,1,21,4,0)=" NOTE: THIS FIELD IS ASSOCIATED WITH WORKLOAD."
^DD(68.2,1,"DT")="2901227"
^DD(68.2,1.5,0)="LAB SUBSECTION^P68'^LRO(68,^SUF;8^Q"
^DD(68.2,1.5,21,0)="^^3^3^2910731^"
^DD(68.2,1.5,21,1,0)="  This is the next level down from the Major Accession area. An example"
^DD(68.2,1.5,21,2,0)="might be, chemistry is the major accession area and Sp chemistry would"
^DD(68.2,1.5,21,3,0)="be the lab subsection."
^DD(68.2,1.5,"DT")="2901227"
^DD(68.2,1.7,0)="WORK AREA^*P68'^LRO(68,^SUF;9^S DIC(""S"")=""I $L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.2,1.7,12)="Select only accession area identified as work areas."
^DD(68.2,1.7,12.1)="S DIC(""S"")=""I $L($P(^(0),U,17))"""
^DD(68.2,1.7,21,0)="^^14^14^2910731^"
^DD(68.2,1.7,21,1,0)="  This is the lowest level of work distribution. Generally this would"
^DD(68.2,1.7,21,2,0)="indicate the work bench where the work is to be done. An example might"
^DD(68.2,1.7,21,3,0)="be Chemistry (major accession area), Sp Chemistry (lab sub section) and"
^DD(68.2,1.7,21,4,0)="Drug screens (work area)."
^DD(68.2,1.7,21,5,0)=" "
^DD(68.2,1.7,21,6,0)="  Note: The default for, major accession area, lab sub section and work area"
^DD(68.2,1.7,21,7,0)="is the entry above it. The order is as follows:"
^DD(68.2,1.7,21,8,0)=" Major accession area           Default is the accession area of the test."
^DD(68.2,1.7,21,9,0)=" Lab Subsection                 Default is the Major accession area."
^DD(68.2,1.7,21,10,0)=" Work Area                      Default is the Lab Subsection."
^DD(68.2,1.7,21,11,0)=" "
^DD(68.2,1.7,21,12,0)="  If none of these fields are filled in, then the default answer for all"
^DD(68.2,1.7,21,13,0)="is the accession area of the test. This means the reports will not"
^DD(68.2,1.7,21,14,0)="be broken down into separate areas for any management reports."
^DD(68.2,1.7,"DT")="2910220"
^DD(68.2,2,0)="RUN or TRAY NUMBER^68.21^^1;0"
^DD(68.2,2,9)="^"
^DD(68.2,2,21,0)="^^1^1^2990428^^^^"
^DD(68.2,2,21,1,0)="All data in this multiple field is computer generated."
^DD(68.2,11,0)="DATE OF SETUP^D^^2;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(68.2,11,3)=""
^DD(68.2,11,21,0)="^^1^1^2841127^"
^DD(68.2,11,21,1,0)="The date the load/work list was created is stored here."
^DD(68.2,11,"DT")="2840720"
^DD(68.2,12,0)="FIRST TRAY^NJ3,0^^2;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.2,12,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(68.2,12,21,0)="^^1^1^2841127^"
^DD(68.2,12,21,1,0)="The first tray built on the last ""build"" is stored here."
^DD(68.2,12,"DT")="2840720"
^DD(68.2,13,0)="STARTING CUP^NJ4,0^^2;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.2,13,3)="THIS IS THE STARTING CUP FOR THE LAST RUN"
^DD(68.2,13,21,0)="^^1^1^2841127^"
^DD(68.2,13,21,1,0)="The starting cup (or sequence number) on the last ""build"" is stored here."
^DD(68.2,13,"DT")="2840330"
^DD(68.2,14,0)="LAST TRAY^NJ4,0^^2;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(68.2,14,3)="THIS IS THE STARTING CUP FOR THE LAST RUN"
^DD(68.2,14,21,0)="^^1^1^2841127^"
^DD(68.2,14,21,1,0)="The last tray built on the last ""build"" is stored here."
^DD(68.2,15,0)="LAST CUP^NJ4,0^^2;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.2,15,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(68.2,15,21,0)="^^1^1^2841127^"
^DD(68.2,15,21,1,0)="The last cup (or sequence number) on the last ""build"" is stored here."
^DD(68.2,15,"DT")="2840720"
^DD(68.2,30,0)="BUILDING IN PROGRESS^S^0:NO;1:YES;^3;1^Q"
^DD(68.2,30,3)="THIS FIELD SHOULD NOT BE EDITED WHEN CREATING A NEW LOAD LIST."
^DD(68.2,30,21,0)="^^5^5^2850419^^"
^DD(68.2,30,21,1,0)="While the load list is being built, the program sets this flag to YES."
^DD(68.2,30,21,2,0)="At the completion of building, this flag is returned to NO.  The purpose"
^DD(68.2,30,21,3,0)="is to keep multiple users from competing for the same load list at the"
^DD(68.2,30,21,4,0)="same time.  If the flag is left set, set to NO to continue building load"
^DD(68.2,30,21,5,0)="lists."
^DD(68.2,30,"DT")="2850410"
^DD(68.2,50,0)="PROFILE^68.23I^^10;0"
^DD(68.2,50,21,0)="^^3^3^2940317^^^^"
^DD(68.2,50,21,1,0)="Only ONE load or work list can exist at a time.  But more than one profile"
^DD(68.2,50,21,2,0)="can be defined to make ""alternate"" groupings of tests for the load/worklist"
^DD(68.2,50,21,3,0)="which might be used on an infrequent or non-standard basis."
^DD(68.2,51,0)="USER ACCESS AUTHORIZATION^P19.1'^DIC(19.1,^0;12^Q"
^DD(68.2,51,3)=""
^DD(68.2,51,21,0)="^^2^2^2880828^"
^DD(68.2,51,21,1,0)="If left blank, any lab person may access this load/worklist. If filled in"
^DD(68.2,51,21,2,0)="only lab person holding the authorization may use this load/worklist."
^DD(68.2,51,"DT")="2881114"
^DD(68.2,52,0)="ADDITIONAL LAB TESTS^68.3P^^4;0"
^DD(68.2,52,21,0)="^^1^1^2910712^"
^DD(68.2,52,21,1,0)=" To used for any additional WKLD codes used for this particular W/L."
^DD(68.2,"B","ADDITIONAL LAB TESTS",52)=""
^DD(68.2,"B","AUTO MICRO EDIT TEMPLATE",.12)=""
^DD(68.2,"B","BUILDING IN PROGRESS",30)=""
^DD(68.2,"B","CUPS PER TRAY",.04)=""
^DD(68.2,"B","DATE OF SETUP",11)=""
^DD(68.2,"B","EXPAND PANELS ON PRINT",.06)=""
^DD(68.2,"B","FIRST TRAY",12)=""
^DD(68.2,"B","FULL TRAY'S ONLY",.05)=""
^DD(68.2,"B","INCLUDE UNCOLLECTED ACCESSIONS",.1)=""
^DD(68.2,"B","INITIAL SETUP",.07)=""
^DD(68.2,"B","LAB SUBSECTION",1.5)=""
^DD(68.2,"B","LAST CUP",15)=""
^DD(68.2,"B","LAST TRAY",14)=""
^DD(68.2,"B","LOAD TRANSFORM",.02)=""
^DD(68.2,"B","MAJOR ACCESSION AREA",1)=""
^DD(68.2,"B","NAME",.01)=""
^DD(68.2,"B","PROFILE",50)=""
^DD(68.2,"B","RUN or TRAY NUMBER",2)=""
^DD(68.2,"B","SHORT TEST LIST",.11)=""
^DD(68.2,"B","STARTING CUP",13)=""
^DD(68.2,"B","SUPPRESS SEQUENCE #",.09)=""
^DD(68.2,"B","TYPE",.03)=""
^DD(68.2,"B","USER ACCESS AUTHORIZATION",51)=""
^DD(68.2,"B","VERIFY BY",.08)=""
^DD(68.2,"B","WKLD CODE METHOD NAME",.15)=""
^DD(68.2,"B","WKLD CODE SUFFIX",.16)=""
^DD(68.2,"B","WKLD METHOD",.14)=""
^DD(68.2,"B","WORK AREA",1.7)=""
^DD(68.2,"GL",0,1,.01)=""
^DD(68.2,"GL",0,2,.02)=""
^DD(68.2,"GL",0,3,.03)=""
^DD(68.2,"GL",0,4,.04)=""
^DD(68.2,"GL",0,5,.05)=""
^DD(68.2,"GL",0,6,.06)=""
^DD(68.2,"GL",0,7,.07)=""
^DD(68.2,"GL",0,8,.08)=""
^DD(68.2,"GL",0,9,.09)=""
^DD(68.2,"GL",0,10,.1)=""
^DD(68.2,"GL",0,11,.11)=""
^DD(68.2,"GL",0,12,51)=""
^DD(68.2,"GL",0,13,.12)=""
^DD(68.2,"GL",1,0,2)=""
^DD(68.2,"GL",2,1,11)=""
^DD(68.2,"GL",2,2,12)=""
^DD(68.2,"GL",2,3,13)=""
^DD(68.2,"GL",2,4,14)=""
^DD(68.2,"GL",2,5,15)=""
^DD(68.2,"GL",3,1,30)=""
^DD(68.2,"GL",4,0,52)=""
^DD(68.2,"GL",10,0,50)=""
^DD(68.2,"GL","SUF",1,.14)=""
^DD(68.2,"GL","SUF",2,.15)=""
^DD(68.2,"GL","SUF",3,.16)=""
^DD(68.2,"GL","SUF",7,1)=""
^DD(68.2,"GL","SUF",8,1.5)=""
^DD(68.2,"GL","SUF",9,1.7)=""
^DD(68.2,"IX",.01)=""
^DD(68.2,"IX",.14)=""
^DD(68.2,"RQ",.01)=""
^DD(68.2,"RQ",.03)=""
^DD(68.2,"RQ",.04)=""
^DD(68.2,"RQ",.05)=""
^DD(68.2,"SB",68.21,2)=""
^DD(68.2,"SB",68.23,50)=""
^DD(68.2,"SB",68.3,52)=""
^DD(68.21,0)="RUN or TRAY NUMBER SUB-FIELD^NL^21^6"
^DD(68.21,0,"DT")="2920106"
^DD(68.21,0,"NM","RUN or TRAY NUMBER")=""
^DD(68.21,0,"UP")="68.2"
^DD(68.21,.01,0)="RUN or TRAY NUMBER^NJ2,0X^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(68.21,.01,.1)="TRAY"
^DD(68.21,.01,1,0)="^.1^^0"
^DD(68.21,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(68.21,.01,21,0)="^^1^1^2841128^^^"
^DD(68.21,.01,21,1,0)="Cannot be altered except by programmer."
^DD(68.21,2,0)="DATE ^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(68.21,2,21,0)="^^1^1^2841121^"
^DD(68.21,2,21,1,0)="The date part of the run number."
^DD(68.21,3,0)="TECH.^RP200'^VA(200,^0;3^S DIC(""S"")=""I $D(^XUSEC(""""LRLAB"""",Y))"" D ^DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(68.21,3,12)="ONLY USER GROUP LAB"
^DD(68.21,3,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""LRLAB"""",Y))"""
^DD(68.21,3,21,0)="^^1^1^3040923^"
^DD(68.21,3,21,1,0)="Points to the USER file that have the 'LRLAB' security key assigned."
^DD(68.21,3,"DT")="3040923"
^DD(68.21,4,0)="ACCESSION AREA^R*P68'^LRO(68,^0;4^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.21,4,12)=" You can not select an accession area designated Work Area."
^DD(68.21,4,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(68.21,4,"DT")="2920106"
^DD(68.21,10,0)="SEQUENCE or CUP NUMBER^68.22PA^^1;0"
^DD(68.21,10,21,0)="^^1^1^2940317^^"
^DD(68.21,10,21,1,0)="Where the data is stored in the LAH global."
^DD(68.21,21,0)="DOWNLOAD PARAMETERS^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(68.21,21,3)="This is loaded by the download build routine."
^DD(68.21,21,"DT")="2870812"
^DD(68.21,"B","ACCESSION AREA",4)=""
^DD(68.21,"B","DATE ",2)=""
^DD(68.21,"B","DOWNLOAD PARAMETERS",21)=""
^DD(68.21,"B","RUN or TRAY NUMBER",.01)=""
^DD(68.21,"B","SEQUENCE or CUP NUMBER",10)=""
^DD(68.21,"B","TECH.",3)=""
^DD(68.21,"B","TRAY",.01)="1"
^DD(68.21,"GL",0,1,.01)=""
^DD(68.21,"GL",0,2,2)=""
^DD(68.21,"GL",0,3,3)=""
^DD(68.21,"GL",0,4,4)=""
^DD(68.21,"GL",1,0,10)=""
^DD(68.21,"GL",2,1,21)=""
^DD(68.21,"RQ",3)=""
^DD(68.21,"RQ",4)=""
^DD(68.21,"SB",68.22,10)=""
^DD(68.22,0)="SEQUENCE or CUP NUMBER SUB-FIELD^NL^21^8"
^DD(68.22,0,"DT")="2920106"
^DD(68.22,0,"NM","SEQUENCE or CUP NUMBER")=""
^DD(68.22,0,"UP")="68.21"
^DD(68.22,.01,0)="ACCESSION AREA^M*P68'^LRO(68,^0;1^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.22,.01,1,0)="^.1^^0"
^DD(68.22,.01,3)=""
^DD(68.22,.01,12)="You can not select an accession area designated Work Area."
^DD(68.22,.01,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(68.22,.01,21,0)="^^1^1^2841127^^"
^DD(68.22,.01,21,1,0)="The pointer to the accession area."
^DD(68.22,.01,"DT")="2920106"
^DD(68.22,1,0)="ACCESSION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(68.22,1,21,0)="^^1^1^2841127^"
^DD(68.22,1,21,1,0)="The date part of the accession."
^DD(68.22,1,"DT")="2840129"
^DD(68.22,2,0)="ACCESSION ENTRY^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.22,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(68.22,2,21,0)="^^1^1^2841127^"
^DD(68.22,2,21,1,0)="The numeric part of the accession."
^DD(68.22,2,"DT")="2840129"
^DD(68.22,3,0)="PROFILE^RNJ5,0^^0;4^K:+X'=X!(X>99999)!(X<.01)!(X?.E1"".""1N.N) X"
^DD(68.22,3,3)="Enter the profile number used to build this cup."
^DD(68.22,3,"DT")="2870714"
^DD(68.22,4,0)="SPECIMEN^P61'^LAB(61,^0;5^Q"
^DD(68.22,4,3)="Used by the download program."
^DD(68.22,4,"DT")="2870812"
^DD(68.22,5,0)="TEST or PANEL NUMBER^68.225A^^3;0"
^DD(68.22,5,21,0)="^^5^5^2890323^"
^DD(68.22,5,21,1,0)="This field let the tech select the test/panel number to be sent to the"
^DD(68.22,5,21,2,0)="MicroScan. The number entered is from the table I or the MicroScan"
^DD(68.22,5,21,3,0)=" documentation."
^DD(68.22,5,21,4,0)="To be easier to use this this should be come a pointer to a file that contains"
^DD(68.22,5,21,5,0)="the code to send."
^DD(68.22,9,0)="TESTS^68.222PA^^1;0"
^DD(68.22,21,0)="DOWNLOAD RECORD^F^^2;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(68.22,21,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(68.22,21,21,0)="^^2^2^2940317^^"
^DD(68.22,21,21,1,0)="This will hold the record to be sent for a download of the test requests"
^DD(68.22,21,21,2,0)="awaiting protocol conversion."
^DD(68.22,21,"DT")="2870806"
^DD(68.22,"B","ACCESSION AREA",.01)=""
^DD(68.22,"B","ACCESSION DATE",1)=""
^DD(68.22,"B","ACCESSION ENTRY",2)=""
^DD(68.22,"B","DOWNLOAD RECORD",21)=""
^DD(68.22,"B","PROFILE",3)=""
^DD(68.22,"B","SPECIMEN",4)=""
^DD(68.22,"B","TEST or PANEL NUMBER",5)=""
^DD(68.22,"B","TESTS",9)=""
^DD(68.22,"GL",0,1,.01)=""
^DD(68.22,"GL",0,2,1)=""
^DD(68.22,"GL",0,3,2)=""
^DD(68.22,"GL",0,4,3)=""
^DD(68.22,"GL",0,5,4)=""
^DD(68.22,"GL",1,0,9)=""
^DD(68.22,"GL",2,"E1,250",21)=""
^DD(68.22,"GL",3,0,5)=""
^DD(68.22,"RQ",3)=""
^DD(68.22,"SB",68.222,9)=""
^DD(68.22,"SB",68.225,5)=""
^DD(68.222,0)="TESTS SUB-FIELD^^.02^2"
^DD(68.222,0,"NM","TESTS")=""
^DD(68.222,0,"UP")="68.22"
^DD(68.222,.01,0)="TESTS^P60'IX^LAB(60,^0;1^S DINUM=X"
^DD(68.222,.01,1,0)="^.1^^0"
^DD(68.222,.01,3)="These are the tests to run on this cup."
^DD(68.222,.01,"DT")="2870714"
^DD(68.222,.02,0)="URGENCY OF TEST^P62.05'^LAB(62.05,^0;2^Q"
^DD(68.222,.02,"DT")="2870714"
^DD(68.222,"B","TESTS",.01)=""
^DD(68.222,"B","URGENCY OF TEST",.02)=""
^DD(68.222,"GL",0,1,.01)=""
^DD(68.222,"GL",0,2,.02)=""
^DD(68.225,0)="TEST or PANEL NUMBER SUB-FIELD^^1^2"
^DD(68.225,0,"NM","TEST or PANEL NUMBER")=""
^DD(68.225,0,"UP")="68.22"
^DD(68.225,.01,0)="TEST or PANEL NUMBER^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.225,.01,1,0)="^.1^^0"
^DD(68.225,.01,3)="Enter the Test/Panel number of the test to be done."
^DD(68.225,.01,"DT")="2890323"
^DD(68.225,1,0)="ISOLATE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.225,1,3)="Enter a ISOLATE number or leave blank"
^DD(68.225,1,21,0)="^^3^3^2890323^"
^DD(68.225,1,21,1,0)="This is the ISOLATE number of the test to be run. If the number "
^DD(68.225,1,21,2,0)="is not known or might conflict with anoter isolate number for this"
^DD(68.225,1,21,3,0)="accession, then leave blank and the MicroScan will assign one."
^DD(68.225,1,"DT")="2890323"
^DD(68.225,"B","ISOLATE",1)=""
^DD(68.225,"B","TEST or PANEL NUMBER",.01)=""
^DD(68.225,"GL",0,1,.01)=""
^DD(68.225,"GL",0,2,1)=""
^DD(68.23,0)="PROFILE SUB-FIELD^NL^6^10"
^DD(68.23,0,"DT")="3041122"
^DD(68.23,0,"ID",2)="W:$D(^(0)) ""   "",$S($D(^LRO(68,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(68.23,0,"IX","B",68.23,.01)=""
^DD(68.23,0,"NM","PROFILE")=""
^DD(68.23,0,"UP")="68.2"
^DD(68.23,.01,0)="PROFILE^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(68.23,.01,1,0)="^.1"
^DD(68.23,.01,1,1,0)="68.23^B"
^DD(68.23,.01,1,1,1)="S ^LRO(68.2,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(68.23,.01,1,1,2)="K ^LRO(68.2,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(68.23,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(68.23,.01,21,0)="^^3^3^2870716^^"
^DD(68.23,.01,21,1,0)="Only ONE load or work list can exist at a time.  But more than one"
^DD(68.23,.01,21,2,0)="profile can be defined to make ""alternate"" groupings of tests for the"
^DD(68.23,.01,21,3,0)="load/worklist which might be used on an infrequent or non-standard basis."
^DD(68.23,.01,"DT")="2840129"
^DD(68.23,1,0)="TEST^68.24PA^^1;0"
^DD(68.23,1,21,0)="^^2^2^2841127^"
^DD(68.23,1,21,1,0)="These are the tests to be brought onto the load/work list from the"
^DD(68.23,1,21,2,0)="accessions."
^DD(68.23,2,0)="ACCESSION AREA^R*P68'^LRO(68,^0;2^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(68.23,2,12)=" You can not select an accession area designated Work Area."
^DD(68.23,2,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(68.23,2,21,0)="^^1^1^2841127^"
^DD(68.23,2,21,1,0)="This is the default accession area to use to build the load/work list."
^DD(68.23,2,"DT")="2920106"
^DD(68.23,2.1,0)="UID VERIFICATION^S^0:PROFILE ACCESSION AREA ONLY;1:ANY ACCESSION AREA;^0;3^Q"
^DD(68.23,2.1,3)="Select how verifying by UID will select accessions."
^DD(68.23,2.1,21,0)="^^9^9^2980226^^"
^DD(68.23,2.1,21,1,0)="When verifying by Lab Universal Identifier (UID) the site can configure"
^DD(68.23,2.1,21,2,0)="how accessions are selected."
^DD(68.23,2.1,21,3,0)=" "
^DD(68.23,2.1,21,4,0)="If ""PROFILE ACCESSION AREA ONLY"" is selected then only those UIDs which"
^DD(68.23,2.1,21,5,0)="are from the accession area designated for this profile can be selected."
^DD(68.23,2.1,21,6,0)=" "
^DD(68.23,2.1,21,7,0)="If ""ANY ACCESSION AREA"" is selected then a UID from any accession area"
^DD(68.23,2.1,21,8,0)="can be selected. Note that an accession from a different area should have"
^DD(68.23,2.1,21,9,0)="tests that would be in this editing profile. "
^DD(68.23,2.1,"DT")="2980226"
^DD(68.23,2.2,0)="STORE DUPLICATE COMMENTS^S^0:NO;1:YES;^0;4^Q"
^DD(68.23,2.2,3)="Should duplicate comments be stored with results."
^DD(68.23,2.2,21,0)="^^12^12^3020808^^"
^DD(68.23,2.2,21,1,0)="When the Laboratory result verifying software is processing"
^DD(68.23,2.2,21,2,0)="comments associated with a load/work list result, this field"
^DD(68.23,2.2,21,3,0)="determines how duplicate comments are processed. If set to"
^DD(68.23,2.2,21,4,0)="""NO"" (default if no value) then a comment that matches a"
^DD(68.23,2.2,21,5,0)="previously stored comment will not be stored with the result."
^DD(68.23,2.2,21,6,0)="If set to ""YES"" then the duplicate check is not performed and"
^DD(68.23,2.2,21,7,0)="the comment is stored with the results irregardless if the"
^DD(68.23,2.2,21,8,0)="comment already exists."
^DD(68.23,2.2,21,9,0)=" "
^DD(68.23,2.2,21,10,0)="Setting it to ""YES"" will allow the handling of multiple line"
^DD(68.23,2.2,21,11,0)="comments which contain the same comment more than once and are"
^DD(68.23,2.2,21,12,0)="still clinically significant."
^DD(68.23,2.2,"DT")="3020808"
^DD(68.23,2.3,0)="DEFAULT REFERENCE LABORATORY^P4'^DIC(4,^0;5^Q"
^DD(68.23,2.3,3)="Specify the default performing laboratory for this profile."
^DD(68.23,2.3,21,0)="^^3^3^3040423^^"
^DD(68.23,2.3,21,1,0)="The performing laboratory that is commonly associated with this profile."
^DD(68.23,2.3,21,2,0)="It will be presented as the default performing laboratory when a user"
^DD(68.23,2.3,21,3,0)="is setting up a verifying session using this profile."
^DD(68.23,2.3,"DT")="3040423"
^DD(68.23,3,0)="TRAY # FOR CONTROL^68.25A^^2;0"
^DD(68.23,3,21,0)="^^3^3^2840910^^^^"
^DD(68.23,3,21,1,0)="Enter the tray number appropriate for the controls you will next be"
^DD(68.23,3,21,2,0)="choosing.  If this is a worklist or sequence loadlist, the ""tray"" is"
^DD(68.23,3,21,3,0)="always ""1""."
^DD(68.23,4,0)="Specimen to EXCLUDE^68.27P^^3;0"
^DD(68.23,4,21,0)="^^2^2^2940317^^^^"
^DD(68.23,4,21,1,0)="If any specimens are specified here, accessions of these specimen(s)"
^DD(68.23,4,21,2,0)="will NOT be included on the work/load list."
^DD(68.23,5,0)="CONTROLS TO BEGIN WORKLIST^68.28P^^4;0"
^DD(68.23,5,21,0)="^^2^2^2840913^^^^"
^DD(68.23,5,21,1,0)="This multiple has the controls that are to be placed on the worklist"
^DD(68.23,5,21,2,0)="at the beginning of the list."
^DD(68.23,6,0)="CONTROLS TO END WORKLIST^68.29P^^5;0"
^DD(68.23,6,21,0)="^^2^2^2841128^^"
^DD(68.23,6,21,1,0)="This multiple has the controls that are to be blaced on the worklist"
^DD(68.23,6,21,2,0)="at the end of the list."
^DD(68.23,"B","ACCESSION AREA",2)=""
^DD(68.23,"B","CONTROLS TO BEGIN WORKLIST",5)=""
^DD(68.23,"B","CONTROLS TO END WORKLIST",6)=""
^DD(68.23,"B","DEFAULT REFERENCE LABORATORY",2.3)=""
^DD(68.23,"B","PROFILE",.01)=""
^DD(68.23,"B","STORE DUPLICATE COMMENTS",2.2)=""
^DD(68.23,"B","Specimen to EXCLUDE",4)=""
^DD(68.23,"B","TEST",1)=""
^DD(68.23,"B","TRAY # FOR CONTROL",3)=""
^DD(68.23,"B","UID VERIFICATION",2.1)=""
^DD(68.23,"GL",0,1,.01)=""
^DD(68.23,"GL",0,2,2)=""
^DD(68.23,"GL",0,3,2.1)=""
^DD(68.23,"GL",0,4,2.2)=""
^DD(68.23,"GL",0,5,2.3)=""
^DD(68.23,"GL",1,0,1)=""
^DD(68.23,"GL",2,0,3)=""
^DD(68.23,"GL",3,0,4)=""
^DD(68.23,"GL",4,0,5)=""
^DD(68.23,"GL",5,0,6)=""
^DD(68.23,"IX",.01)=""
^DD(68.23,"RQ",2)=""
^DD(68.23,"SB",68.24,1)=""
^DD(68.23,"SB",68.25,3)=""
^DD(68.23,"SB",68.27,4)=""
^DD(68.23,"SB",68.28,5)=""
^DD(68.23,"SB",68.29,6)=""
^DD(68.24,0)="TEST SUB-FIELD^NL^4^5"
^DD(68.24,0,"DT")="3041122"
^DD(68.24,0,"IX","AC",68.24,2)=""
^DD(68.24,0,"IX","AO",68.24,.01)=""
^DD(68.24,0,"IX","B",68.24,.01)=""
^DD(68.24,0,"NM","TEST")=""
^DD(68.24,0,"UP")="68.23"
^DD(68.24,.01,0)="TEST^MP60'^LAB(60,^0;1^Q"
^DD(68.24,.01,1,0)="^.1"
^DD(68.24,.01,1,1,0)="68.24^B"
^DD(68.24,.01,1,1,1)="S ^LRO(68.2,DA(2),10,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(68.24,.01,1,1,2)="K ^LRO(68.2,DA(2),10,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(68.24,.01,1,2,0)="^^TRIGGER^68.24^2"
^DD(68.24,.01,1,2,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(68.2,D0,10,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(68.24,.01,1,2,1.4)"
^DD(68.24,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2"
^DD(68.24,.01,1,2,1.4)="S DIH=$S($D(^LRO(68.2,DIV(0),10,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=68.24,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68.24,.01,1,2,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^LRO(68.2,D0,10,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(68.24,.01,1,2,2.4)"
^DD(68.24,.01,1,2,2.4)="S DIH=$S($D(^LRO(68.2,DIV(0),10,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=68.24,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(68.24,.01,1,2,"CREATE VALUE")="""1"""
^DD(68.24,.01,1,2,"DELETE VALUE")="@"
^DD(68.24,.01,1,2,"FIELD")="BUILD"
^DD(68.24,.01,1,3,0)="68.24^AO^MUMPS"
^DD(68.24,.01,1,3,1)="S LRINST=DA(2),LRPROF=DA(1) D BUILD^LRLLP4"
^DD(68.24,.01,1,3,2)="K ^LRO(68.2,DA(2),10,DA(1),1,""AO"")"
^DD(68.24,.01,1,3,3)="This X-ref is built by BUILD^LRLLP4 if it doesn't exist. It is the expansion of all panels in this profile."
^DD(68.24,.01,21,0)="^^2^2^2841127^"
^DD(68.24,.01,21,1,0)="These are the tests to be brought onto the load/work list from the"
^DD(68.24,.01,21,2,0)="accessions."
^DD(68.24,.01,"DT")="2861002"
^DD(68.24,1,0)="SPECIMEN^P61'^LAB(61,^0;2^Q"
^DD(68.24,1,21,0)="^^3^3^2841127^"
^DD(68.24,1,21,1,0)="This field should have data if the test previously defined is to be"
^DD(68.24,1,21,2,0)="included from a given accession only if the site/specimen defined"
^DD(68.24,1,21,3,0)="matches with this entry."
^DD(68.24,1,"DT")="2840402"
^DD(68.24,2,0)="BUILD NAME ONLY^S^0:NO;1:YES;^0;3^Q"
^DD(68.24,2,1,0)="^.1"
^DD(68.24,2,1,1,0)="68.24^AC^MUMPS"
^DD(68.24,2,1,1,1)="K ^LRO(68.2,DA(2),10,DA(1),1,""AO"") ;D BUILD^LRLLP4"
^DD(68.24,2,1,1,2)="K ^LRO(68.2,DA(2),10,DA(1),1,""AO"")"
^DD(68.24,2,5,1,0)="68.24^.01^2"
^DD(68.24,2,21,0)="^^9^9^2850410^^"
^DD(68.24,2,21,1,0)="If the test previously defined is not the/a panel to define the"
^DD(68.24,2,21,2,0)="workpattern, this entry should be ""yes"".  The panel from file 60"
^DD(68.24,2,21,3,0)="defines the order of the workpattern, if more than one panel is"
^DD(68.24,2,21,4,0)="NOT a ""Build Name Only"", the workpattern will be scrambled if the"
^DD(68.24,2,21,5,0)="tests in the panels have some of the same tests.  A ""yes"" means"
^DD(68.24,2,21,6,0)="the test name is to be used solely for purposes of identifying the"
^DD(68.24,2,21,7,0)="test(s) to be brought from an accession to the load/work list."
^DD(68.24,2,21,8,0)=" "
^DD(68.24,2,21,9,0)="I.E.:  If ""Yes"", don't use this entry to define the order of display."
^DD(68.24,2,"DT")="2860117"
^DD(68.24,3,0)="POC WKLD METHOD^P64.2'^LAB(64.2,^0;4^Q"
^DD(68.24,3,3)="Enter the workload method suffix to be associated with this POC test."
^DD(68.24,3,21,0)="^^4^4^3040817^^"
^DD(68.24,3,21,1,0)="Designates the WKLD method suffix to be assigned to this Point of Care"
^DD(68.24,3,21,2,0)="(POC) test results when this test is ordered. This allows multiple POC"
^DD(68.24,3,21,3,0)="vendor systems to be interfaced to VistA via one POC interface and still"
^DD(68.24,3,21,4,0)="assign the appropriate methodology to the test result."
^DD(68.24,3,"DT")="3040817"
^DD(68.24,4,0)="POC COLLECTION SAMPLE^P62'^LAB(62,^0;5^Q"
^DD(68.24,4,3)="Enter the related collection sample for this test/specimen"
^DD(68.24,4,21,0)="^^2^2^3050525^^"
^DD(68.24,4,21,1,0)="Allows the site to specify the collection sample to use when"
^DD(68.24,4,21,2,0)="ordering this test and specimen combination. "
^DD(68.24,4,"DT")="3050525"
^DD(68.24,"B","BUILD NAME ONLY",2)=""
^DD(68.24,"B","POC COLLECTION SAMPLE",4)=""
^DD(68.24,"B","POC WKLD METHOD",3)=""
^DD(68.24,"B","SPECIMEN",1)=""
^DD(68.24,"B","TEST",.01)=""
^DD(68.24,"GL",0,1,.01)=""
^DD(68.24,"GL",0,2,1)=""
^DD(68.24,"GL",0,3,2)=""
^DD(68.24,"GL",0,4,3)=""
^DD(68.24,"GL",0,5,4)=""
^DD(68.24,"IX",.01)=""
^DD(68.24,"IX",2)=""
^DD(68.25,0)="TRAY # FOR CONTROL SUB-FIELD^NL^10^2"
^DD(68.25,0,"NM","TRAY # FOR CONTROL")=""
^DD(68.25,0,"UP")="68.23"
^DD(68.25,.01,0)="TRAY #^MNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(68.25,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(68.25,.01,21,0)="^^3^3^2840911^^^^"
^DD(68.25,.01,21,1,0)="Enter the tray number appropriate for the controls you will next be"
^DD(68.25,.01,21,2,0)="choosing.  If this is a worklist or sequence loadlist, the ""tray"" is"
^DD(68.25,.01,21,3,0)="always ""1""."
^DD(68.25,.01,"DT")="2840910"
^DD(68.25,10,0)="CONTROL^68.26PA^^1;0"
^DD(68.25,10,21,0)="^^3^3^2840911^^^^"
^DD(68.25,10,21,1,0)="Identify the control appropriate for this ""tray"".  If you need to"
^DD(68.25,10,21,2,0)="specify more than one of the ""same"" control, use quotation marks around"
^DD(68.25,10,21,3,0)="the control name and the FileMan will allow you to add as many as you like."
^DD(68.25,"B","CONTROL",10)=""
^DD(68.25,"B","TRAY #",.01)=""
^DD(68.25,"GL",0,1,.01)=""
^DD(68.25,"GL",1,0,10)=""
^DD(68.25,"SB",68.26,10)=""
^DD(68.26,0)="CONTROL SUB-FIELD^NL^.01^2"
^DD(68.26,0,"NM","CONTROL")=""
^DD(68.26,0,"UP")="68.25"
^DD(68.26,.001,0)="CUP or SEQUENCE #^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.26,.001,3)="When the list encounters this position, the control specified goes here."
^DD(68.26,.001,21,0)="^^3^3^2840910^^"
^DD(68.26,.001,21,1,0)="This is the actual CUP position (if things are running by TRAY/CUP)"
^DD(68.26,.001,21,2,0)="or the SEQUENCE position (if it's a sequence or worklist).  When the Load"
^DD(68.26,.001,21,3,0)="or Work list encounters this position, the control specified goes here."
^DD(68.26,.001,"DT")="2840502"
^DD(68.26,.01,0)="CONTROL^MP62.3'^LAB(62.3,^0;1^Q"
^DD(68.26,.01,21,0)="^^3^3^2840911^"
^DD(68.26,.01,21,1,0)="Identify the control appropriate for this ""tray"".  If you need to"
^DD(68.26,.01,21,2,0)="specify more than one of the ""same"" control, use quotation marks around"
^DD(68.26,.01,21,3,0)="the control name and the FileMan will allow you to add as many as you like."
^DD(68.26,.01,"DT")="2840502"
^DD(68.26,"B","CONTROL",.01)=""
^DD(68.26,"B","CUP or SEQUENCE #",.001)=""
^DD(68.26,"GL",0,1,.01)=""
^DD(68.27,0)="Specimen to EXCLUDE SUB-FIELD^NL^.01^1"
^DD(68.27,0,"NM","Specimen to EXCLUDE")=""
^DD(68.27,0,"UP")="68.23"
^DD(68.27,.01,0)="Specimens to EXCLUDE!^MP61'^LAB(61,^0;1^Q"
^DD(68.27,.01,21,0)="^^2^2^2940317^^"
^DD(68.27,.01,21,1,0)="If any specimens are specified here, accessions of these specimen(s)"
^DD(68.27,.01,21,2,0)="will NOT be included on the work/load list."
^DD(68.27,.01,"DT")="2840913"
^DD(68.27,"B","Specimens to EXCLUDE!",.01)=""
^DD(68.27,"GL",0,1,.01)=""
^DD(68.28,0)="CONTROLS TO BEGIN WORKLIST SUB-FIELD^NL^.01^2"
^DD(68.28,0,"NM","CONTROLS TO BEGIN WORKLIST")=""
^DD(68.28,0,"UP")="68.23"
^DD(68.28,.001,0)="Enter the control's rank^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.28,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(68.28,.001,21,0)="^^2^2^2841128^^^"
^DD(68.28,.001,21,1,0)="This is the order the control appears relative to any other controls"
^DD(68.28,.001,21,2,0)="at the beginning of the work."
^DD(68.28,.001,"DT")="2840913"
^DD(68.28,.01,0)="CONTROLS TO BEGIN WORKLIST^MP62.3'^LAB(62.3,^0;1^Q"
^DD(68.28,.01,21,0)="^^3^3^2840913^^^^"
^DD(68.28,.01,21,1,0)="This is one of the controls to be placed at the beginning of the"
^DD(68.28,.01,21,2,0)="worklist.  The rank you associate it with will determine its order"
^DD(68.28,.01,21,3,0)="relative to any other accessions at the beginning of the worklist."
^DD(68.28,.01,"DT")="2840913"
^DD(68.28,"B","CONTROLS TO BEGIN WORKLIST",.01)=""
^DD(68.28,"B","Enter the control's rank",.001)=""
^DD(68.28,"GL",0,1,.01)=""
^DD(68.29,0)="CONTROLS TO END WORKLIST SUB-FIELD^NL^.01^2"
^DD(68.29,0,"NM","CONTROLS TO END WORKLIST")=""
^DD(68.29,0,"UP")="68.23"
^DD(68.29,.001,0)="Enter the control's rank^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.29,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(68.29,.001,21,0)="^^2^2^2841128^"
^DD(68.29,.001,21,1,0)="This is the order the control appears relative to any other controls"
^DD(68.29,.001,21,2,0)="at the end of the work."
^DD(68.29,.001,"DT")="2840913"
^DD(68.29,.01,0)="CONTROLS TO END WORKLIST^MP62.3'^LAB(62.3,^0;1^Q"
^DD(68.29,.01,21,0)="^^3^3^2840913^^"
^DD(68.29,.01,21,1,0)="This is one of the controls to be placed at the end of the worklist."
^DD(68.29,.01,21,2,0)="The rank you associate it with will determine it's order relative to"
^DD(68.29,.01,21,3,0)="any other controls at the end of the worklist."
^DD(68.29,.01,"DT")="2840913"
^DD(68.29,"B","CONTROLS TO END WORKLIST",.01)=""
^DD(68.29,"B","Enter the control's rank",.001)=""
^DD(68.29,"GL",0,1,.01)=""
^DD(68.3,0)="ADDITIONAL LAB TESTS SUB-FIELD^^.01^1"
^DD(68.3,0,"DT")="2910712"
^DD(68.3,0,"NM","ADDITIONAL LAB TESTS")=""
^DD(68.3,0,"UP")="68.2"
^DD(68.3,.01,0)="ADDITIONAL LAB TESTS^MP60'X^LAB(60,^0;1^S DINUM=X"
^DD(68.3,.01,1,0)="^.1^^0"
^DD(68.3,.01,21,0)="^^5^5^2910731^"
^DD(68.3,.01,21,1,0)=" If this particular load work list should have addition WKLD workload"
^DD(68.3,.01,21,2,0)="counts. Enter the test in the Laboratory Test file (#60) which contain"
^DD(68.3,.01,21,3,0)="the verify WKLD codes (field #500). These WKLD codes will be included"
^DD(68.3,.01,21,4,0)="with each verified test."
^DD(68.3,.01,21,5,0)="  An example might be instrument setup for a batch instrument."
^DD(68.3,.01,"DT")="2910712"
^DD(68.3,"B","ADDITIONAL LAB TESTS",.01)=""
^DD(68.3,"GL",0,1,.01)=""
^DD(68.4,0)="FIELD^^1^2"
^DD(68.4,0,"IX","B",68.4,.01)=""
^DD(68.4,0,"NM","WORKLIST HEADINGS")=""
^DD(68.4,0,"VR")="5.2"
^DD(68.4,.01,0)="NAME^P68'X^LRO(68,^0;1^Q"
^DD(68.4,.01,1,0)="^.1^^-1"
^DD(68.4,.01,1,1,0)="68.4^B"
^DD(68.4,.01,1,1,1)="S ^DIC(68.4,""B"",$E(X,1,30),DA)="""""
^DD(68.4,.01,1,1,2)="K ^DIC(68.4,""B"",$E(X,1,30),DA)"
^DD(68.4,.01,3)=""
^DD(68.4,.01,21,0)="^^1^1^2841121^"
^DD(68.4,.01,21,1,0)="Name of accession area.  Points to the ACCESSION file (#68).  Programmer privileges required."
^DD(68.4,1,0)="LINE #^68.41^^1;0"
^DD(68.4,1,21,0)="^^1^1^2841121^"
^DD(68.4,1,21,1,0)="Contains a line number for the special heading."
^DD(68.4,"B","LINE #",1)=""
^DD(68.4,"B","NAME",.01)=""
^DD(68.4,"GL",0,1,.01)=""
^DD(68.4,"GL",1,0,1)=""
^DD(68.4,"IX",.01)=""
^DD(68.4,"SB",68.41,1)=""
^DD(68.41,0)="LINE # SUB-FIELD^NL^4^5"
^DD(68.41,0,"NM","LINE #")=""
^DD(68.41,0,"UP")="68.4"
^DD(68.41,.01,0)="LINE #^MRNJ2,0^^0;1^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(68.41,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 10"
^DD(68.41,.01,21,0)="^^1^1^2841121^"
^DD(68.41,.01,21,1,0)="Contains a line number for the special heading."
^DD(68.41,1,0)="COLUMN #1^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(68.41,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(68.41,1,21,0)="^^1^1^2841121^"
^DD(68.41,1,21,1,0)="Contains the textual heading for the first column."
^DD(68.41,2,0)="COLUMN #2^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(68.41,2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(68.41,2,21,0)="^^1^1^2841121^"
^DD(68.41,2,21,1,0)="Contains the textual heading for the second column."
^DD(68.41,3,0)="COLUMN #3^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(68.41,3,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(68.41,3,21,0)="^^1^1^2841121^"
^DD(68.41,3,21,1,0)="Contains the textual heading for the third column."
^DD(68.41,4,0)="COLUMN #4^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(68.41,4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(68.41,4,21,0)="^^1^1^2841121^"
^DD(68.41,4,21,1,0)="Contains the textual heading for the fourth column."
^DD(68.41,"B","COLUMN #1",1)=""
^DD(68.41,"B","COLUMN #2",2)=""
^DD(68.41,"B","COLUMN #3",3)=""
^DD(68.41,"B","COLUMN #4",4)=""
^DD(68.41,"B","LINE #",.01)=""
^DD(68.41,"GL",0,1,.01)=""
^DD(68.41,"GL",0,2,1)=""
^DD(68.41,"GL",0,3,2)=""
^DD(68.41,"GL",0,4,3)=""
^DD(68.41,"GL",0,5,4)=""
^DD(68.41,"RQ",.01)=""
^DD(69,0)="FIELD^NL^1^3"
^DD(69,0,"ACT")="W !,""  "",!"
^DD(69,0,"DDA")="N"
^DD(69,0,"DT")="3021108"
^DD(69,0,"IX","AA",69.01,13)=""
^DD(69,0,"IX","AC",69.03,14)=""
^DD(69,0,"IX","AD",69.03,16)=""
^DD(69,0,"IX","AE",69.03,10)=""
^DD(69,0,"IX","AN",69.01,21)=""
^DD(69,0,"IX","B",69,.01)=""
^DD(69,0,"IX","C",69.01,9.5)=""
^DD(69,0,"IX","D",69.01,.01)=""
^DD(69,0,"NM","LAB ORDER ENTRY")=""
^DD(69,0,"VR")="5.2"
^DD(69,0,"VRPK")="LR"
^DD(69,.01,0)="DATE ORDERED^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=Y K:Y<1 X,DINUM"
^DD(69,.01,1,0)="^.1"
^DD(69,.01,1,1,0)="69^B"
^DD(69,.01,1,1,1)="S ^LRO(69,""B"",$E(X,1,30),DA)="""""
^DD(69,.01,1,1,2)="K ^LRO(69,""B"",$E(X,1,30),DA)"
^DD(69,.01,3)=""
^DD(69,.01,21,0)="^^1^1^2841123^"
^DD(69,.01,21,1,0)="Date of order."
^DD(69,.01,"DT")="2870914"
^DD(69,.5,0)="CURRENT ORDER NUMBER^NJ7,0^^2;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69,.5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999"
^DD(69,.5,21,0)="^^1^1^2841129^"
^DD(69,.5,21,1,0)="The count of the order number for the current year."
^DD(69,.5,"DEL",1,0)="I '$D(^XUSEC(""LRLIASON"",DUZ))"
^DD(69,.5,"DT")="2840503"
^DD(69,1,0)="SPECIMEN #^69.01PA^^1;0"
^DD(69,1,21,0)="^^1^1^2950609^^^^"
^DD(69,1,21,1,0)="The sequential specimen number."
^DD(69,"B","CURRENT ORDER NUMBER",.5)=""
^DD(69,"B","DATE ORDERED",.01)=""
^DD(69,"B","SPECIMEN #",1)=""
^DD(69,"GL",0,1,.01)=""
^DD(69,"GL",1,0,1)=""
^DD(69,"GL",2,1,.5)=""
^DD(69,"IX",.01)=""
^DD(69,"RQ",.01)=""
^DD(69,"SB",69.01,1)=""
^DD(69.01,0)="SPECIMEN # SUB-FIELD^NL^30^29"
^DD(69.01,0,"DT")="3021108"
^DD(69.01,0,"IX","AA",69.01,.01)=""
^DD(69.01,0,"IX","AC",69.01,8)=""
^DD(69.01,0,"IX","AD",69.01,8)=""
^DD(69.01,0,"IX","AL",69.01,21)=""
^DD(69.01,0,"IX","AN",69.01,21)=""
^DD(69.01,0,"IX","AN2",69.01,21)=""
^DD(69.01,0,"IX","AP",69.01,21)=""
^DD(69.01,0,"IX","AR",69.01,21)=""
^DD(69.01,0,"NM","SPECIMEN #")=""
^DD(69.01,0,"UP")="69"
^DD(69.01,.001,0)="SPECIMEN #^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.01,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(69.01,.001,21,0)="^^1^1^2841129^"
^DD(69.01,.001,21,1,0)="The sequence number of individual specimens on orders for a given date."
^DD(69.01,.01,0)="LRDFN^RP63'O^LR(^0;1^Q"
^DD(69.01,.01,.1)=""
^DD(69.01,.01,1,0)="^.1"
^DD(69.01,.01,1,1,0)="69.01^AA"
^DD(69.01,.01,1,1,1)="S ^LRO(69,DA(1),1,""AA"",$E(X,1,30),DA)="""""
^DD(69.01,.01,1,1,2)="K ^LRO(69,DA(1),1,""AA"",$E(X,1,30),DA)"
^DD(69.01,.01,1,2,0)="69^D^MUMPS"
^DD(69.01,.01,1,2,1)="S ^LRO(69,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(69.01,.01,1,2,2)="K ^LRO(69,""D"",$E(X,1,30),DA(1),DA)"
^DD(69.01,.01,2)="S Y(0)=Y S Y1=^DIC($P(^LR(Y(0),0),U,2),0,""GL"")_$P(^LR(Y(0),0),U,3)_"",0)"",Y=$P(@Y1,U) K Y1"
^DD(69.01,.01,2.1)="S Y1=^DIC($P(^LR(Y(0),0),U,2),0,""GL"")_$P(^LR(Y(0),0),U,3)_"",0)"",Y=$P(@Y1,U) K Y1"
^DD(69.01,.01,21,0)="^^1^1^2890626^^"
^DD(69.01,.01,21,1,0)="The internal number in the Lab Data file 63."
^DD(69.01,.01,"DT")="2900830"
^DD(69.01,.02,0)="PARENT FILE^CJ12^^ ; ^X ^DD(69.01,.02,9.2) S Y(69.01,.02,101)=$S($D(^LR(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(+$P(Y(69.01,.02,101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=Y(69.01,.02,2)"
^DD(69.01,.02,9)="^"
^DD(69.01,.02,9.01)="63^.02;69.01^.01"
^DD(69.01,.02,9.1)="LRDFN:PARENT FILE"
^DD(69.01,.02,9.2)="S Y(69.01,.02,2)=$S($D(D0):D0,1:""""),Y(69.01,.02,1)=$S($D(^LRO(69,D0,1,D1,0)):^(0),1:""""),D0=$P(Y(69.01,.02,1),U,1) S:'$D(^LR(+D0,0)) D0=-1"
^DD(69.01,.02,21,0)="^^1^1^2841129^"
^DD(69.01,.02,21,1,0)="Computed field to give the parent file of the data in file 63."
^DD(69.01,.03,0)="NAME^CJ30^^ ; ^X ^DD(69.01,.03,9.2) S Y(69.01,.03,101)=$S($D(^LR(D0,0)):^(0),1:""""),Y(69.01,.03,102)=X,Y=$P(Y(69.01,.03,101),U,3) X:$D(^DD(63,.03,2)) ^(2) S X=Y S D0=Y(69.01,.03,2)"
^DD(69.01,.03,9)="^"
^DD(69.01,.03,9.01)="63^.03;69.01^.01"
^DD(69.01,.03,9.1)="LRDFN:NAME"
^DD(69.01,.03,9.2)="S Y(69.01,.03,2)=$S($D(D0):D0,1:""""),Y(69.01,.03,1)=$S($D(^LRO(69,D0,1,D1,0)):^(0),1:""""),D0=$P(Y(69.01,.03,1),U,1) S:'$D(^LR(+D0,0)) D0=-1"
^DD(69.01,.03,21,0)="^^2^2^2841129^"
^DD(69.01,.03,21,1,0)="Computed field to give the name of the entry of the data in file 63 from"
^DD(69.01,.03,21,2,0)="the parent file for that entry."
^DD(69.01,.11,0)="OERR ORDER #^F^^0;11^K:$L(X)>15!($L(X)<1) X"
^DD(69.01,.11,3)="Answer must be 1-15 characters in length."
^DD(69.01,.11,21,0)="^^2^2^2960409^"
^DD(69.01,.11,21,1,0)="This field is used to store the OE/RR order number that links Lab with"
^DD(69.01,.11,21,2,0)="OE/RR."
^DD(69.01,.11,"DT")="2960409"
^DD(69.01,1,0)="ENTERING PERSON^RP200^VA(200,^0;2^Q"
^DD(69.01,1,21,0)="^^1^1^2841129^^"
^DD(69.01,1,21,1,0)="Points to NEW PERSON file.  Automatically stored."
^DD(69.01,1,"DT")="2920331"
^DD(69.01,2,0)="SPECIMEN^69.02PA^^4;0"
^DD(69.01,2,21,0)="^^2^2^2841129^"
^DD(69.01,2,21,1,0)="Points to the specimen(s) for the given order.  (Some areas of lab"
^DD(69.01,2,21,2,0)="treat a collection of samples as a SINGLE collection ""sample"")."
^DD(69.01,3,0)="COLLECTION SAMPLE^RP62^LAB(62,^0;3^Q"
^DD(69.01,3,21,0)="^^1^1^2841129^"
^DD(69.01,3,21,1,0)="Points to the collection sample appropriate for the test(s) ordered."
^DD(69.01,4,0)="LAB,IMM OR WARD COLLECT^S^LC:LAB COLLECT;WC:WARD COLLECT;SP:SEND PATIENT;I:IMM. LAB COLLECT;P:POC;^0;4^Q"
^DD(69.01,4,21,0)="^^1^1^2840827^"
^DD(69.01,4,21,1,0)="This designates how the sample or specimen is to reach the lab."
^DD(69.01,4,"DT")="3010601"
^DD(69.01,5,0)="DATE/TIME ORDERED^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(69.01,5,3)="ENTER THE CURRENT DATE@TIME"
^DD(69.01,5,21,0)="^^1^1^2850830^^^"
^DD(69.01,5,21,1,0)="Self explanatory."
^DD(69.01,5.5,0)="EST. DATE/TIME OF COLLECTION^D^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.01,5.5,21,0)="^^1^1^2920113^"
^DD(69.01,5.5,21,1,0)="This is the estimated time of the collection."
^DD(69.01,5.5,"DT")="2850816"
^DD(69.01,6,0)="TEST^69.03PA^^2;0"
^DD(69.01,6,21,0)="^^1^1^2950609^^^^"
^DD(69.01,6,21,1,0)="The tests for the specimen."
^DD(69.01,7,0)="PROVIDER^R*P200'^VA(200,^0;6^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"",D=""AK.PROVIDER"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.01,7,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(69.01,7,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U)))"""
^DD(69.01,7,21,0)="^^1^1^2841129^"
^DD(69.01,7,21,1,0)="The person signing for the order."
^DD(69.01,7,"DT")="2920904"
^DD(69.01,8,0)="REPORT ROUTING LOCATION^R*P44'XO^SC(^0;7^K:$L(X)<2!($L(X)>30) X I $D(X) X:X=""?"" ^DD(69.01,8,4) Q:X=""?""  S L1=X,DIC(0)=""EQMZ"",DIC=44 D ^DIC S:$D(Y(0)) X=$P(Y(0),U,1) X:Y<1 ^DD(69.01,8,9.2) Q:'$D(X)  S:X']"""" X=""UNK"" S:$D(LRDFN) ^LR(+LRDFN,.1)=X"
^DD(69.01,8,1,0)="^.1"
^DD(69.01,8,1,1,0)="69.01^AC"
^DD(69.01,8,1,1,1)="S ^LRO(69,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(69.01,8,1,1,2)="K ^LRO(69,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(69.01,8,1,1,3)="AC x-ref is set equal to 1 if the entry is on the collection list"
^DD(69.01,8,1,2,0)="69.01^AD^MUMPS"
^DD(69.01,8,1,2,1)="I $P(^LRO(69,DA(1),1,DA,0),U,4)=""LC"" S ^LRO(69,DA(1),1,""AD"",$E(X,1,30),$P(^LRO(69,DA(1),1,DA,0),U,1),DA)="""""
^DD(69.01,8,1,2,2)="K ^LRO(69,DA(1),1,""AD"",$E(X,1,30),$P(^LRO(69,DA(1),1,DA,0),U,1),DA)"
^DD(69.01,8,2)="S Y(0)=Y S Y(0)=Y"
^DD(69.01,8,2.1)="S Y(0)=Y"
^DD(69.01,8,3)=""
^DD(69.01,8,4)="S X=""?"",DIC(0)=""Q"",DIC=""^SC("",D=""B"" K DO D DQ^DICQ K DIC S DIC=DIE D DO^DIC1"
^DD(69.01,8,9.2)="K X R !?3,""NON-STANDARD LOCATION!, OK? N//"",YN:300 I $T S:YN[""Y"" X=L1"
^DD(69.01,8,21,0)="^^2^2^2841129^"
^DD(69.01,8,21,1,0)="The service or location from which the order is originating, and"
^DD(69.01,8,21,2,0)="where the report will be returned."
^DD(69.01,8,"DT")="2950209"
^DD(69.01,9.5,0)="ORDER #^F^^.1;1^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(69.01,9.5,1,0)="^.1"
^DD(69.01,9.5,1,1,0)="69^C^MUMPS"
^DD(69.01,9.5,1,1,1)="D C^LRXREF1"
^DD(69.01,9.5,1,1,2)="K ^LRO(69,""C"",+X,DA(1),DA)"
^DD(69.01,9.5,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(69.01,9.5,21,0)="^^1^1^2841129^"
^DD(69.01,9.5,21,1,0)="The unique assigned order number for an ordering session for one ""patient""."
^DD(69.01,10,0)="DATE/TIME OF COLLECTION^RDX^^1;1^S %DT(0)=""-N"",%DT=""EPTX"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(69.01,10,3)="DATE/TIME CAN'T BE IN THE FUTURE"
^DD(69.01,10,21,0)="^^1^1^2841129^"
^DD(69.01,10,21,1,0)="When the specimen was collected from the ""patient""."
^DD(69.01,10,"DT")="2940318"
^DD(69.01,11,0)="DATE/TIME OBTAINED INEXACT^S^1:YES;0:NO;^1;2^Q"
^DD(69.01,11,21,0)="^^2^2^2841129^"
^DD(69.01,11,21,1,0)="If the time the specimen is obtained is not even approximate, this field"
^DD(69.01,11,21,2,0)="is set to yes."
^DD(69.01,11,"DT")="2870714"
^DD(69.01,12,0)="COLLECTOR^RP200^VA(200,^1;3^Q"
^DD(69.01,12,21,0)="^^1^1^2841129^"
^DD(69.01,12,21,1,0)="The phlebotomist who is accessioning the collected order."
^DD(69.01,12,"DT")="2920331"
^DD(69.01,13,0)="COLLECTION STATUS^S^C:COLLECTED;U:UNCOLLECTED;M:MERGE;^1;4^Q"
^DD(69.01,13,1,0)="^.1"
^DD(69.01,13,1,1,0)="69^AA^MUMPS"
^DD(69.01,13,1,1,1)="S:'$P(^LRO(69,DA(1),1,DA,0),U,10) ^LRO(69,""AA"",DA(1)_""|""_DA)="""""
^DD(69.01,13,1,1,2)="K ^LRO(69,""AA"",DA(1)_""|""_DA)"
^DD(69.01,13,1,1,"%D",0)="^^2^2^2910410^^"
^DD(69.01,13,1,1,"%D",1,0)=" This cross reference is used to tally WKLD work load. It is deleted"
^DD(69.01,13,1,1,"%D",2,0)="after the tally has been made."
^DD(69.01,13,1,1,"DT")="2910410"
^DD(69.01,13,21,0)="^^1^1^2841129^"
^DD(69.01,13,21,1,0)="This indicates whether the order is collected or uncollected."
^DD(69.01,13,"DT")="2890329"
^DD(69.01,14,0)="*VOLUME^F^^1;5^K:$L(X)>10!($L(X)<1) X"
^DD(69.01,14,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(69.01,14,21,0)="^^1^1^2870708^^"
^DD(69.01,14,21,1,0)="No longer used."
^DD(69.01,15,0)="COMMENT^F^^1;6^K:$L(X)>80!($L(X)<2) X"
^DD(69.01,15,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(69.01,15,21,0)="^^1^1^2841129^"
^DD(69.01,15,21,1,0)="Single line comment about the order."
^DD(69.01,16,0)="WARD COMMENTS ON SPECIMEN^69.04^^6;0"
^DD(69.01,16,21,0)="^^1^1^2841129^"
^DD(69.01,16,21,1,0)="Comments about the order."
^DD(69.01,20,0)="LAB ARRIVAL TIME^D^^3;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.01,20,1,0)="^.1^^0"
^DD(69.01,20,21,0)="^^1^1^2850830^^"
^DD(69.01,20,21,1,0)="Self explanatory."
^DD(69.01,20,"DT")="3000829"
^DD(69.01,21,0)="DATE/TIME RESULTS AVAILABLE^D^^3;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.01,21,1,0)="^.1"
^DD(69.01,21,1,1,0)="69.01^AR^MUMPS"
^DD(69.01,21,1,1,1)="D AR1^LRXREF,AR2^LRXREF"
^DD(69.01,21,1,1,2)="D AR1^LRXREF,AR3^LRXREF"
^DD(69.01,21,1,2,0)="69.01^AP^MUMPS"
^DD(69.01,21,1,2,1)="D AP^LRXREF,AP1^LRXREF"
^DD(69.01,21,1,2,2)="D AP^LRXREF,AP2^LRXREF"
^DD(69.01,21,1,3,0)="69.01^AL^MUMPS"
^DD(69.01,21,1,3,1)="D AL^LRXREF,AL1^LRXREF"
^DD(69.01,21,1,3,2)="D AL^LRXREF,AL2^LRXREF"
^DD(69.01,21,1,4,0)="69^AN^MUMPS"
^DD(69.01,21,1,4,1)="D AN1^LRXREF"
^DD(69.01,21,1,4,2)="D AN2^LRXREF"
^DD(69.01,21,1,5,0)="69.01^AN2^MUMPS"
^DD(69.01,21,1,5,1)="S ^LRO(69,DA(1),1,""AN"",$E($P(^LRO(69,DA(1),1,DA,0),U,7),1,15),$P(^(0),U,1),9999999-$P(^LRO(69,DA(1),1,DA,1),U,1))="""""
^DD(69.01,21,1,5,2)="K ^LRO(69,DA(1),1,""AN"",$E($P(^LRO(69,DA(1),1,DA,0),U,7),1,15),$P(^(0),U,1),9999999-$P(^LRO(69,DA(1),1,DA,1),U,1))"
^DD(69.01,21,21,0)="^^1^1^2841129^"
^DD(69.01,21,21,1,0)="This is the date/time ALL results for this specimen are complete."
^DD(69.01,21,"DT")="2890807"
^DD(69.01,22,0)="MERGE ORDER #^F^^1;7^K:$L(X)>15!($L(X)<1) X"
^DD(69.01,22,3)="Answer must be 1-15 characters in length."
^DD(69.01,22,21,0)="^^2^2^2930720^^"
^DD(69.01,22,21,1,0)=" If this order was merged with another order, the order number for that"
^DD(69.01,22,21,2,0)="order is entered here. Automatically stuffed by the system."
^DD(69.01,22,"DT")="2890329"
^DD(69.01,23,0)="ORDERING LOCATION^P44'^SC(^0;9^Q"
^DD(69.01,23,3)="This is the location that is ordering the test."
^DD(69.01,23,21,0)="^^2^2^2930327^"
^DD(69.01,23,21,1,0)=" This field contains the location ordering the test and to whom completed"
^DD(69.01,23,21,2,0)="results will be sent."
^DD(69.01,23,"DT")="2891212"
^DD(69.01,24,0)="COUNTED FOR WORKLOAD^S^1:YES;^0;10^Q"
^DD(69.01,24,21,0)="^^2^2^2960710^"
^DD(69.01,24,21,1,0)=" If this accession has been tallied to wkld totals, a yes will be stuffed"
^DD(69.01,24,21,2,0)="into this field by the software which runs in the background."
^DD(69.01,24,"DT")="2910321"
^DD(69.01,25,0)="INSTITUTION^P4'^DIC(4,^1;8^Q"
^DD(69.01,25,21,0)="^^3^3^2930327^^"
^DD(69.01,25,21,1,0)=" This field contains the institution entering the request for this particular"
^DD(69.01,25,21,2,0)="test. This field becomes very important when dealing with multi-divisional"
^DD(69.01,25,21,3,0)="sites."
^DD(69.01,25,"DT")="2910410"
^DD(69.01,30,0)="PCE ENC #^F^^PCE;1^K:$L(X)>30!($L(X)<1) X"
^DD(69.01,30,3)="Answer must be 1-30 characters in length."
^DD(69.01,30,21,0)="^^9^9^2981112^"
^DD(69.01,30,21,1,0)=" This field contains a list of PCE Encounters generated for this specimen."
^DD(69.01,30,21,2,0)="If ther are multiple laboratory accession areas required for this order,"
^DD(69.01,30,21,3,0)="encounter numbers will be stored separated by semi-colons."
^DD(69.01,30,21,4,0)=" "
^DD(69.01,30,21,5,0)="This field is also used to control the building of the ^LRO(69,""AE"")"
^DD(69.01,30,21,6,0)="should LAB ORDER ENTRY (#69) file were to be re-indexed. If the field is"
^DD(69.01,30,21,7,0)="defined then the Cancel By field DD(69.03,10,0) will not recreate the"
^DD(69.01,30,21,8,0)="X-Reference. The ^LRO(69,""AE"") cross reference is used to pass deleted"
^DD(69.01,30,21,9,0)="test information to PCE so that the billing record can be updated."
^DD(69.01,30,"DT")="2970318"
^DD(69.01,"B","*VOLUME",14)=""
^DD(69.01,"B","COLLECTION SAMPLE",3)=""
^DD(69.01,"B","COLLECTION STATUS",13)=""
^DD(69.01,"B","COLLECTOR",12)=""
^DD(69.01,"B","COMMENT",15)=""
^DD(69.01,"B","COUNTED FOR WORKLOAD",24)=""
^DD(69.01,"B","DATE/TIME OBTAINED INEXACT",11)=""
^DD(69.01,"B","DATE/TIME OF COLLECTION",10)=""
^DD(69.01,"B","DATE/TIME ORDERED",5)=""
^DD(69.01,"B","DATE/TIME RESULTS AVAILABLE",21)=""
^DD(69.01,"B","ENTERING PERSON",1)=""
^DD(69.01,"B","EST. DATE/TIME OF COLLECTION",5.5)=""
^DD(69.01,"B","INSTITUTION",25)=""
^DD(69.01,"B","LAB ARRIVAL TIME",20)=""
^DD(69.01,"B","LAB,IMM OR WARD COLLECT",4)=""
^DD(69.01,"B","LRDFN",.01)=""
^DD(69.01,"B","MERGE ORDER #",22)=""
^DD(69.01,"B","NAME",.03)=""
^DD(69.01,"B","OERR ORDER #",.11)=""
^DD(69.01,"B","ORDER #",9.5)=""
^DD(69.01,"B","ORDERING LOCATION",23)=""
^DD(69.01,"B","PARENT FILE",.02)=""
^DD(69.01,"B","PCE ENC #",30)=""
^DD(69.01,"B","PROVIDER",7)=""
^DD(69.01,"B","REPORT ROUTING LOCATION",8)=""
^DD(69.01,"B","SPECIMEN",2)=""
^DD(69.01,"B","SPECIMEN #",.001)=""
^DD(69.01,"B","TEST",6)=""
^DD(69.01,"B","WARD COMMENTS ON SPECIMEN",16)=""
^DD(69.01,"GL",0,1,.01)=""
^DD(69.01,"GL",0,2,1)=""
^DD(69.01,"GL",0,3,3)=""
^DD(69.01,"GL",0,4,4)=""
^DD(69.01,"GL",0,5,5)=""
^DD(69.01,"GL",0,6,7)=""
^DD(69.01,"GL",0,7,8)=""
^DD(69.01,"GL",0,8,5.5)=""
^DD(69.01,"GL",0,9,23)=""
^DD(69.01,"GL",0,10,24)=""
^DD(69.01,"GL",0,11,.11)=""
^DD(69.01,"GL",.1,1,9.5)=""
^DD(69.01,"GL",1,1,10)=""
^DD(69.01,"GL",1,2,11)=""
^DD(69.01,"GL",1,3,12)=""
^DD(69.01,"GL",1,4,13)=""
^DD(69.01,"GL",1,5,14)=""
^DD(69.01,"GL",1,6,15)=""
^DD(69.01,"GL",1,7,22)=""
^DD(69.01,"GL",1,8,25)=""
^DD(69.01,"GL",2,0,6)=""
^DD(69.01,"GL",3,1,20)=""
^DD(69.01,"GL",3,2,21)=""
^DD(69.01,"GL",4,0,2)=""
^DD(69.01,"GL",6,0,16)=""
^DD(69.01,"GL","PCE",1,30)=""
^DD(69.01,"IX",.01)=""
^DD(69.01,"IX",8)=""
^DD(69.01,"IX",9.5)=""
^DD(69.01,"IX",13)=""
^DD(69.01,"IX",21)=""
^DD(69.01,"RQ",.01)=""
^DD(69.01,"RQ",1)=""
^DD(69.01,"RQ",3)=""
^DD(69.01,"RQ",7)=""
^DD(69.01,"RQ",8)=""
^DD(69.01,"RQ",10)=""
^DD(69.01,"RQ",12)=""
^DD(69.01,"SB",69.02,2)=""
^DD(69.01,"SB",69.03,6)=""
^DD(69.01,"SB",69.04,16)=""
^DD(69.02,0)="SPECIMEN SUB-FIELD^NL^.01^1"
^DD(69.02,0,"NM","SPECIMEN")=""
^DD(69.02,0,"UP")="69.01"
^DD(69.02,.01,0)="SPECIMEN^MP61^LAB(61,^0;1^Q"
^DD(69.02,.01,1,0)="^.1^^0"
^DD(69.02,.01,21,0)="^^1^1^2841129^"
^DD(69.02,.01,21,1,0)="Points to the specimen for the given order."
^DD(69.02,"B","SPECIMEN",.01)=""
^DD(69.02,"GL",0,1,.01)=""
^DD(69.03,0)="TEST SUB-FIELD^NL^99.1^24"
^DD(69.03,0,"DT")="3021108"
^DD(69.03,0,"IX","AT",69.03,.01)=""
^DD(69.03,0,"IX","B",69.03,.01)=""
^DD(69.03,0,"NM","TEST")=""
^DD(69.03,0,"UP")="69.01"
^DD(69.03,.01,0)="TEST/PROCEDURE^*P60'^LAB(60,^0;1^S DIC(""S"")=""I """"N""""'[$P(^(0),U,3)!$D(^XUSEC(""""LRSUPER"""",DUZ))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.03,.01,1,0)="^.1^^-1"
^DD(69.03,.01,1,1,0)="69.03^B"
^DD(69.03,.01,1,1,1)="S ^LRO(69,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(69.03,.01,1,1,2)="K ^LRO(69,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(69.03,.01,1,2,0)="69.03^AT^MUMPS"
^DD(69.03,.01,1,2,1)="D AT^LRXREF1 ;  S ^LRO(69,""AT"",LRDFN,LRTEST,LRSPEC,LRODT)=""This is used for maximum test order frequency."",^(-LRODT)="""""
^DD(69.03,.01,1,2,2)="D ATD^LRXREF1 ;  K ^LRO(69,""AT"",LRDFN,LRTEST,LRSPEC,LRODT),^(-LRODT)"
^DD(69.03,.01,3)=""
^DD(69.03,.01,12)="CHOOSE ORDERABLE TESTS ONLY"
^DD(69.03,.01,12.1)="S DIC(""S"")=""I """"N""""'[$P(^(0),U,3)!$D(^XUSEC(""""LRSUPER"""",DUZ))"""
^DD(69.03,.01,12.2)="I ""N""'[$P(^(0),U,3)!$D(^XUSEC(""LRSUPER"",DUZ))"
^DD(69.03,.01,21,0)="^^1^1^2950609^^^"
^DD(69.03,.01,21,1,0)="The tests for the specimen."
^DD(69.03,.01,"DT")="3021108"
^DD(69.03,1,0)="URGENCY^P62.05'^LAB(62.05,^0;2^Q"
^DD(69.03,1,3)=""
^DD(69.03,1,21,0)="^^1^1^2841129^"
^DD(69.03,1,21,1,0)="Routine, Stat, etc."
^DD(69.03,1,"DT")="2830824"
^DD(69.03,2,0)="ACCESSION DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.03,2,21,0)="^^1^1^2841129^"
^DD(69.03,2,21,1,0)="The date piece of the accession."
^DD(69.03,3,0)="ACCESSION AREA^*P68'^LRO(68,^0;4^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.03,3,12)="Can not select an Work Area Accession area."
^DD(69.03,3,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(69.03,3,21,0)="^^1^1^2850830^^"
^DD(69.03,3,21,1,0)="The accession area where the test may be found."
^DD(69.03,3,"DT")="2920106"
^DD(69.03,4,0)="ACCESSION NUMBER^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.03,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(69.03,4,21,0)="^^1^1^2841129^"
^DD(69.03,4,21,1,0)="The number piece of the accession where the test may be found."
^DD(69.03,5,0)="COMBINED ON ORDER^NJ7,0^^0;6^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.03,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999"
^DD(69.03,5,21,0)="^^3^3^2841129^^"
^DD(69.03,5,21,1,0)="If the test has been combined with another order (i.e., this test is"
^DD(69.03,5,21,2,0)="a duplication of part of another order), this points to the order with"
^DD(69.03,5,21,3,0)="which the test has been combined."
^DD(69.03,5,"DT")="2840829"
^DD(69.03,6,0)="OERR INTERNAL FILE #^P100'^OR(100,^0;7^Q"
^DD(69.03,6,3)="Answer must be 1-20 characters in length and is automatically entered."
^DD(69.03,6,21,0)="^^2^2^2930720^^^"
^DD(69.03,6,21,1,0)="This provides the link to the correlate entry of the test ordered as"
^DD(69.03,6,21,2,0)="it appears in OERR."
^DD(69.03,6,"DT")="2930720"
^DD(69.03,7,0)="PANEL EXPLODED^S^1:YES;^0;8^Q"
^DD(69.03,7,3)="Enter a '1' if the panel has no accession area assigned and has been exploded and accessioned."
^DD(69.03,7,21,0)="^^2^2^2910228^^"
^DD(69.03,7,21,1,0)="Used to determine if panel with no accession area assigned has previously"
^DD(69.03,7,21,2,0)="been exploded and accessioned."
^DD(69.03,7,"DT")="2910228"
^DD(69.03,8,0)="STATUS^S^CA:Canceled;IP:Accepted;^0;9^Q"
^DD(69.03,8,3)="Enter the status code for this ordered test."
^DD(69.03,8,21,0)="^^3^3^2970714^^^^"
^DD(69.03,8,21,1,0)="This is the internal status for this test."
^DD(69.03,8,21,2,0)="It is used to identify an order when it is canceled, and/or when"
^DD(69.03,8,21,3,0)="it is accepted by OE/RR."
^DD(69.03,8,"DT")="2960409"
^DD(69.03,9,0)="ORIGIN^S^W:Ward;L:Lab;P:Phone;V:Verbal;S:Standard Lab Protocol;^0;10^Q"
^DD(69.03,9,3)="Enter the origin of this ordered test."
^DD(69.03,9,21,0)="^^2^2^2970714^^^"
^DD(69.03,9,21,1,0)="This is how the test was ordered/entered into the system using the Lab (LR)"
^DD(69.03,9,21,2,0)="options."
^DD(69.03,9,"DT")="2960409"
^DD(69.03,10,0)="CANCELED BY^P200'^VA(200,^0;11^Q"
^DD(69.03,10,1,0)="^.1"
^DD(69.03,10,1,1,0)="69^AE^MUMPS"
^DD(69.03,10,1,1,1)="S:'$D(^LRO(69,DA(2),1,DA(1),""PCE"")) ^LRO(69,""AE"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(69.03,10,1,1,2)="K ^LRO(69,""AE"",$E(1,30),DA(2),DA(1),DA)"
^DD(69.03,10,1,1,3)="This cross reference is used to update PCE of canceled test"
^DD(69.03,10,1,1,"%D",0)="^^6^6^2981026^"
^DD(69.03,10,1,1,"%D",1,0)=" This cross reference is set when a test is canceled. The Lab PCE API uses"
^DD(69.03,10,1,1,"%D",2,0)="these entries to notify PCE that this test was not performed. After"
^DD(69.03,10,1,1,"%D",3,0)="notification of PCE the X-ref is removed."
^DD(69.03,10,1,1,"%D",4,0)=" "
^DD(69.03,10,1,1,"%D",5,0)="This X-ref should not be set if no initial notification to PCE that this"
^DD(69.03,10,1,1,"%D",6,0)="test was done."
^DD(69.03,10,1,1,"DT")="2981026"
^DD(69.03,10,3)="Enter the person who canceled the order."
^DD(69.03,10,21,0)="^^1^1^2960409^"
^DD(69.03,10,21,1,0)="This is the person who canceled this test."
^DD(69.03,10,"DT")="2981026"
^DD(69.03,11,0)="PCE COUNTED^S^0:NOT COUNTED;1:COUNTED;^0;12^Q"
^DD(69.03,11,21,0)="^^2^2^2960614^"
^DD(69.03,11,21,1,0)="This field is used to indicate that the test has been counted for"
^DD(69.03,11,21,2,0)="a patient encounter (PCE)."
^DD(69.03,11,"DT")="2960614"
^DD(69.03,12,0)="PCE VISIT #^NJ13,0^^0;13^K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.03,12,3)="Type a Number between 0 and 9999999999999, 0 Decimal Digits"
^DD(69.03,12,21,0)="^^7^7^2961019^"
^DD(69.03,12,21,1,0)=" This field contains the NPCDB generated visit number. If this has the PCE"
^DD(69.03,12,21,2,0)="counted field set to 1, this field will contain the visit number if the"
^DD(69.03,12,21,3,0)="call to the API was successful."
^DD(69.03,12,21,4,0)=" "
^DD(69.03,12,21,5,0)="This field became effective as of 11/1/96. Data submitted the NPCDB prior"
^DD(69.03,12,21,6,0)="to the installation of LR*5.2*138 will not contain visit number"
^DD(69.03,12,21,7,0)="information."
^DD(69.03,12,"DT")="2961019"
^DD(69.03,13,0)="UID^F^^.3;1^K:$L(X)>15!($L(X)<10) X"
^DD(69.03,13,3)="Answer must be 10-15 characters in length."
^DD(69.03,13,21,0)="^^3^3^2970712^"
^DD(69.03,13,21,1,0)=" This is the UID used by the HOST LEDI system for this order/accession."
^DD(69.03,13,21,2,0)=" "
^DD(69.03,13,21,3,0)="This field is used by LEDI software."
^DD(69.03,13,"DT")="2970127"
^DD(69.03,14,0)="ORDERING SITE^*P4'^DIC(4,^.3;2^S DIC(""S"")=""I $G(^(Y,99))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.03,14,1,0)="^.1"
^DD(69.03,14,1,1,0)="69^AC"
^DD(69.03,14,1,1,1)="S ^LRO(69,""AC"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(69.03,14,1,1,2)="K ^LRO(69,""AC"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(69.03,14,1,1,"DT")="2961221"
^DD(69.03,14,12)="Must have a site number defined"
^DD(69.03,14,12.1)="S DIC(""S"")=""I $G(^(Y,99))"""
^DD(69.03,14,21,0)="^^7^7^2970712^"
^DD(69.03,14,21,1,0)=" This field contains the pointer to the INSTITUTION file for the"
^DD(69.03,14,21,2,0)="MailMan domain location of the computer system. All LEDI results are"
^DD(69.03,14,21,3,0)="returned to the Ordering computer system."
^DD(69.03,14,21,4,0)=" "
^DD(69.03,14,21,5,0)="Location to send LEDI HL7 result messages."
^DD(69.03,14,21,6,0)=" "
^DD(69.03,14,21,7,0)="This field is used by LEDI software."
^DD(69.03,14,"DT")="2961221"
^DD(69.03,15,0)="COLLECTING SITE^P4'^DIC(4,^.3;3^Q"
^DD(69.03,15,3)=""
^DD(69.03,15,21,0)="^^5^5^2970712^"
^DD(69.03,15,21,1,0)=" This field contain the pointer to the INSTITUTION file for the actual"
^DD(69.03,15,21,2,0)="collection site. The ordering site is the MailMan location of the computer"
^DD(69.03,15,21,3,0)="system. MailMan domain location and the collecting site may be different."
^DD(69.03,15,21,4,0)=" "
^DD(69.03,15,21,5,0)="This field is used by LEDI software."
^DD(69.03,15,"DT")="2970226"
^DD(69.03,16,0)="HOST UID^F^^.3;4^K:$L(X)>15!($L(X)<10) X"
^DD(69.03,16,1,0)="^.1"
^DD(69.03,16,1,1,0)="69^AD"
^DD(69.03,16,1,1,1)="S ^LRO(69,""AD"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(69.03,16,1,1,2)="K ^LRO(69,""AD"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(69.03,16,1,1,"DT")="2961221"
^DD(69.03,16,3)="Answer must be 10-15 characters in length."
^DD(69.03,16,21,0)="^^7^7^2970712^"
^DD(69.03,16,21,1,0)=" Each Order/Accession is given a HOST UID. The UID is stored in this"
^DD(69.03,16,21,2,0)="location. If LEDI software is used to accession specimens, usually the"
^DD(69.03,16,21,3,0)="collecting sites UID is used to track specimens. If the collecting UID"
^DD(69.03,16,21,4,0)="conflict is the HOST system number sequence, the HOST UID will be used"
^DD(69.03,16,21,5,0)="instead of the collecting site's UID."
^DD(69.03,16,21,6,0)=" "
^DD(69.03,16,21,7,0)="This field is used by LEDI software."
^DD(69.03,16,"DT")="2970127"
^DD(69.03,17,0)="ORDERING SITE UID^F^^.3;5^K:$L(X)>15!($L(X)<10) X"
^DD(69.03,17,3)="Answer must be 10-15 characters in length."
^DD(69.03,17,21,0)="^^3^3^2970712^^"
^DD(69.03,17,21,1,0)=" This field contains the collecting sites UID for this specimen."
^DD(69.03,17,21,2,0)=" "
^DD(69.03,17,21,3,0)="This field is used by LEDI software."
^DD(69.03,17,"DT")="2970226"
^DD(69.03,20,0)="COMBINED FROM^F^^0;14^K:$L(X)>30!($L(X)<3) X"
^DD(69.03,20,3)="Answer must be 3-30 characters in length."
^DD(69.03,20,21,0)="^^1^1^2970326^"
^DD(69.03,20,21,1,0)="This is a reference to the entry that this test was combined from."
^DD(69.03,20,"DT")="2970326"
^DD(69.03,21,0)="ICD-9 CODES^69.05P^^2;0"
^DD(69.03,21,21,0)="^^1^1^3030924^"
^DD(69.03,21,21,1,0)="ICD-9 ordering diagnosis code."
^DD(69.03,21,"DT")="3030917"
^DD(69.03,22,0)="DATE OF SERVICE^D^^3;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(69.03,22,21,0)="^.001^2^2^3051114^^"
^DD(69.03,22,21,1,0)="This is the Date of Service to be sent to the billing application for"
^DD(69.03,22,21,2,0)="billing."
^DD(69.03,22,"DT")="3051210"
^DD(69.03,22.1,0)="PANEL PENDING^S^0:NO;1:YES;^3;2^Q"
^DD(69.03,22.1,1,0)="^.1^^0"
^DD(69.03,22.1,21,0)="^^4^4^3051114^"
^DD(69.03,22.1,21,1,0)="This field will be set to ""YES"" in the case where an AMA/Billable"
^DD(69.03,22.1,21,2,0)="Panel still has one or more atomic tests ""pending"" verified"
^DD(69.03,22.1,21,3,0)="results."
^DD(69.03,22.1,21,4,0)="  "
^DD(69.03,22.1,"DT")="3051210"
^DD(69.03,99,0)="TEST COMMENTS^69.399^^1;0"
^DD(69.03,99.1,0)="CANCEL REASON^69.3991^^1.1;0"
^DD(69.03,"B","ACCESSION AREA",3)=""
^DD(69.03,"B","ACCESSION DATE",2)=""
^DD(69.03,"B","ACCESSION NUMBER",4)=""
^DD(69.03,"B","CANCEL REASON",99.1)=""
^DD(69.03,"B","CANCELED BY",10)=""
^DD(69.03,"B","COLLECTING SITE",15)=""
^DD(69.03,"B","COMBINED FROM",20)=""
^DD(69.03,"B","COMBINED ON ORDER",5)=""
^DD(69.03,"B","DATE OF SERVICE",22)=""
^DD(69.03,"B","HOST UID",16)=""
^DD(69.03,"B","ICD-9 CODES",21)=""
^DD(69.03,"B","OERR INTERNAL FILE #",6)=""
^DD(69.03,"B","ORDERING SITE",14)=""
^DD(69.03,"B","ORDERING SITE UID",17)=""
^DD(69.03,"B","ORIGIN",9)=""
^DD(69.03,"B","PANEL EXPLODED",7)=""
^DD(69.03,"B","PANEL PENDING",22.1)=""
^DD(69.03,"B","PCE COUNTED",11)=""
^DD(69.03,"B","PCE VISIT #",12)=""
^DD(69.03,"B","STATUS",8)=""
^DD(69.03,"B","TEST COMMENTS",99)=""
^DD(69.03,"B","TEST/PROCEDURE",.01)=""
^DD(69.03,"B","UID",13)=""
^DD(69.03,"B","URGENCY",1)=""
^DD(69.03,"GL",0,1,.01)=""
^DD(69.03,"GL",0,2,1)=""
^DD(69.03,"GL",0,3,2)=""
^DD(69.03,"GL",0,4,3)=""
^DD(69.03,"GL",0,5,4)=""
^DD(69.03,"GL",0,6,5)=""
^DD(69.03,"GL",0,7,6)=""
^DD(69.03,"GL",0,8,7)=""
^DD(69.03,"GL",0,9,8)=""
^DD(69.03,"GL",0,10,9)=""
^DD(69.03,"GL",0,11,10)=""
^DD(69.03,"GL",0,12,11)=""
^DD(69.03,"GL",0,13,12)=""
^DD(69.03,"GL",0,14,20)=""
^DD(69.03,"GL",.3,1,13)=""
^DD(69.03,"GL",.3,2,14)=""
^DD(69.03,"GL",.3,3,15)=""
^DD(69.03,"GL",.3,4,16)=""
^DD(69.03,"GL",.3,5,17)=""
^DD(69.03,"GL",1,0,99)=""
^DD(69.03,"GL",1.1,0,99.1)=""
^DD(69.03,"GL",2,0,21)=""
^DD(69.03,"GL",3,1,22)=""
^DD(69.03,"GL",3,2,22.1)=""
^DD(69.03,"IX",.01)=""
^DD(69.03,"IX",10)=""
^DD(69.03,"IX",14)=""
^DD(69.03,"IX",16)=""
^DD(69.03,"SB",69.05,21)=""
^DD(69.03,"SB",69.399,99)=""
^DD(69.03,"SB",69.3991,99.1)=""
^DD(69.04,0)="WARD COMMENTS ON SPECIMEN SUB-FIELD^NL^.01^1"
^DD(69.04,0,"NM","WARD COMMENTS ON SPECIMEN")=""
^DD(69.04,0,"UP")="69.01"
^DD(69.04,.01,0)="WARD COMMENTS ON SPECIMEN^W^^0;1^Q"
^DD(69.04,.01,21,0)="^^1^1^2841129^"
^DD(69.04,.01,21,1,0)="Comments about the order."
^DD(69.04,.01,"DT")="2841001"
^DD(69.04,"B","WARD COMMENTS ON SPECIMEN",.01)=""
^DD(69.04,"GL",0,1,.01)=""
^DD(69.05,0)="ICD-9 CODES SUB-FIELD^^8^9"
^DD(69.05,0,"DT")="3040322"
^DD(69.05,0,"IX","B",69.05,.01)=""
^DD(69.05,0,"NM","ICD-9 CODES")=""
^DD(69.05,0,"UP")="69.03"
^DD(69.05,.01,0)="ICD-9 CODES^P80'^ICD9(^0;1^Q"
^DD(69.05,.01,1,0)="^.1"
^DD(69.05,.01,1,1,0)="69.05^B"
^DD(69.05,.01,1,1,1)="S ^LRO(69,DA(3),1,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(69.05,.01,1,1,2)="K ^LRO(69,DA(3),1,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(69.05,.01,21,0)="^^5^5^3040210^"
^DD(69.05,.01,21,1,0)="ICD-9 ordering diagnosis code.  For CPRS laboratory orders, the ordering"
^DD(69.05,.01,21,2,0)="provider enters this diagnosis via CPRS.  For internal laboratory orders,"
^DD(69.05,.01,21,3,0)="the provider must indicate the diagnosis code on paper for entry by the"
^DD(69.05,.01,21,4,0)="laboratory staff.  When the lab test is resulted, the ordering diagnosis"
^DD(69.05,.01,21,5,0)="code will be sent to PCE/PTF for billing purposes."
^DD(69.05,.01,"DT")="3040210"
^DD(69.05,1,0)="SERVICE CONNECTION INDICATOR^S^0:NO;1:YES;^0;2^Q"
^DD(69.05,1,21,0)="^.001^5^5^3030924^^^"
^DD(69.05,1,21,1,0)="Indicates if the care provided is for a service connected or non-service"
^DD(69.05,1,21,2,0)="connected condition.  The ordering provider is responsible for providing"
^DD(69.05,1,21,3,0)="Service Connection indicator to the laboratory via CPRS entry or, for internal"
^DD(69.05,1,21,4,0)="laboratory orders, on paper.  The Service Connection indicator"
^DD(69.05,1,21,5,0)="is sent to PCE/PTF at verification."
^DD(69.05,1,"DT")="3030917"
^DD(69.05,2,0)="COMBAT VETERAN^S^0:NO;1:YES;^0;3^Q"
^DD(69.05,2,21,0)="^^5^5^3040123^"
^DD(69.05,2,21,1,0)="Indicates if the care provided is to treat a condition related to Combat "
^DD(69.05,2,21,2,0)="Veteran exposure.  The ordering provider is responsible for providing the "
^DD(69.05,2,21,3,0)="Combat Veteran indicator to the laboratory via CPRS entry or, for internal"
^DD(69.05,2,21,4,0)="laboratory orders, on paper.  The Combat Veteran indicator is sent to PCE"
^DD(69.05,2,21,5,0)="at verification."
^DD(69.05,2,"DT")="3040123"
^DD(69.05,3,0)="AGENT ORANGE^S^0:NO;1:YES;^0;4^Q"
^DD(69.05,3,21,0)="^.001^5^5^3060131^^"
^DD(69.05,3,21,1,0)="Indicates if the care provided is to treat a condition related to Agent "
^DD(69.05,3,21,2,0)="Orange exposure.  The ordering provider is responsible for providing the "
^DD(69.05,3,21,3,0)="Agent Orange indicator to the laboratory via CPRS entry or, for internal "
^DD(69.05,3,21,4,0)="laboratory orders, on paper.  The Agent Orange indicator is sent to PCE "
^DD(69.05,3,21,5,0)="at verification."
^DD(69.05,3,"DT")="3040123"
^DD(69.05,4,0)="IONIZING RADIATION^S^0:NO;1:YES;^0;5^Q"
^DD(69.05,4,21,0)="^^5^5^3040123^"
^DD(69.05,4,21,1,0)="Indicates if the care provided is to treat a condition related to Ionizing"
^DD(69.05,4,21,2,0)="Radiation exposure.  The ordering provider is responsible for ible for "
^DD(69.05,4,21,3,0)="providing the Ionizing Radiation indicator to the laboratory via CPRS"
^DD(69.05,4,21,4,0)="entry or, for internal laboratory orders, on paper.  The Ionizing "
^DD(69.05,4,21,5,0)="Radiation indicator is sent to PCE at verification."
^DD(69.05,4,"DT")="3040123"
^DD(69.05,5,0)="ENVIRONMENTAL CONTAMINANTS^S^0:NO;1:YES;^0;6^Q"
^DD(69.05,5,21,0)="^^5^5^3040123^"
^DD(69.05,5,21,1,0)="Indicates if the care provided is to treat a condition related to "
^DD(69.05,5,21,2,0)="Environmental Contaminants.  The ordering provider is responsible for "
^DD(69.05,5,21,3,0)="providing the Environmental Contaminants indicator to the laboratory via "
^DD(69.05,5,21,4,0)="CPRS entry or, for internal laboratory orders, on paper.  The "
^DD(69.05,5,21,5,0)="Environmental Contaminants indicator is sent to PCE at verification."
^DD(69.05,5,"DT")="3040123"
^DD(69.05,6,0)="MILITARY SEXUAL TRAUMA^S^0:NO;1:YES;^0;7^Q"
^DD(69.05,6,21,0)="^.001^4^4^3060104^^^"
^DD(69.05,6,21,1,0)="Indicates if the care provided is to treat a condition related to MST.  "
^DD(69.05,6,21,2,0)="The ordering provider is responsible for providing the Environmental MST"
^DD(69.05,6,21,3,0)="indicator to the laboratory via CPRS entry or, for internal laboratory "
^DD(69.05,6,21,4,0)="orders, on paper.  The MST indicator is sent to PCE at verification."
^DD(69.05,6,"DT")="3051223"
^DD(69.05,7,0)="HEAD AND NECK CANCER^S^0:NO;1:YES;^0;8^Q"
^DD(69.05,7,21,0)="^.001^5^5^3060104^^^^"
^DD(69.05,7,21,1,0)="Indicates if the care provided is to treat a condition related to Head "
^DD(69.05,7,21,2,0)="and Neck Cancer. The ordering provider is responsible for providing the "
^DD(69.05,7,21,3,0)="Head and Neck Cancer indicator to the laboratory via CPRS entry or, for "
^DD(69.05,7,21,4,0)="internal laboratory orders, on paper.  The Head and Neck Cancer indicator"
^DD(69.05,7,21,5,0)="is sent to PCE at verification."
^DD(69.05,7,"DT")="3051223"
^DD(69.05,8,0)="PRIMARY DIAGNOSIS^S^1:YES;0:NO;^0;9^Q"
^DD(69.05,8,21,0)="^^1^1^3040322^"
^DD(69.05,8,21,1,0)="This diagnosis is the primary diagnosis."
^DD(69.05,8,"DT")="3040322"
^DD(69.05,"B","AGENT ORANGE",3)=""
^DD(69.05,"B","COMBAT VETERAN",2)=""
^DD(69.05,"B","ENVIRONMENTAL CONTAMINANTS",5)=""
^DD(69.05,"B","HEAD AND NECK CANCER",7)=""
^DD(69.05,"B","ICD-9 CODES",.01)=""
^DD(69.05,"B","IONIZING RADIATION",4)=""
^DD(69.05,"B","MILITARY SEXUAL TRAUMA",6)=""
^DD(69.05,"B","PRIMARY DIAGNOSIS",8)=""
^DD(69.05,"B","SERVICE CONNECTION INDICATOR",1)=""
^DD(69.05,"GL",0,1,.01)=""
^DD(69.05,"GL",0,2,1)=""
^DD(69.05,"GL",0,3,2)=""
^DD(69.05,"GL",0,4,3)=""
^DD(69.05,"GL",0,5,4)=""
^DD(69.05,"GL",0,6,5)=""
^DD(69.05,"GL",0,7,6)=""
^DD(69.05,"GL",0,8,7)=""
^DD(69.05,"GL",0,9,8)=""
^DD(69.05,"IX",.01)=""
^DD(69.1,0)="FIELD^^1^3"
^DD(69.1,0,"DT")="2920106"
^DD(69.1,0,"IX","B",69.1,.01)=""
^DD(69.1,0,"IX","LRPH",69.11,.01)=""
^DD(69.1,0,"IX","LRPH1",69.11,4)=""
^DD(69.1,0,"NM","COLLECTION LIST")=""
^DD(69.1,0,"VR")="5.2"
^DD(69.1,.01,0)="COLLECTION ROUTE^RNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(69.1,.01,1,0)="^.1"
^DD(69.1,.01,1,1,0)="69.1^B"
^DD(69.1,.01,1,1,1)="S ^LRO(69.1,""B"",$E(X,1,30),DA)="""""
^DD(69.1,.01,1,1,2)="K ^LRO(69.1,""B"",$E(X,1,30),DA)"
^DD(69.1,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(69.1,.01,21,0)="^^1^1^2930327^"
^DD(69.1,.01,21,1,0)=" This field contains the numeric order of the collection list.^"
^DD(69.1,.01,"DT")="2870430"
^DD(69.1,.02,0)="DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.1,.02,21,0)="^^1^1^2930327^"
^DD(69.1,.02,21,1,0)=" This field contains the date of this collection list."
^DD(69.1,1,0)="TEST^69.11P^^1;0"
^DD(69.1,1,21,0)="^^1^1^2930327^"
^DD(69.1,1,21,1,0)=" This field contains the a listing of test to be collected from this patient."
^DD(69.1,"B","COLLECTION ROUTE",.01)=""
^DD(69.1,"B","DATE",.02)=""
^DD(69.1,"B","TEST",1)=""
^DD(69.1,"GL",0,1,.01)=""
^DD(69.1,"GL",0,2,.02)=""
^DD(69.1,"GL",1,0,1)=""
^DD(69.1,"IX",.01)=""
^DD(69.1,"RQ",.01)=""
^DD(69.1,"SB",69.11,1)=""
^DD(69.11,0)="TEST SUB-FIELD^^11^12"
^DD(69.11,0,"DT")="2920106"
^DD(69.11,0,"IX","B",69.11,.01)=""
^DD(69.11,0,"IX","LRPH",69.11,.01)=""
^DD(69.11,0,"IX","LRPH1",69.11,4)=""
^DD(69.11,0,"NM","TEST")=""
^DD(69.11,0,"UP")="69.1"
^DD(69.11,.01,0)="TEST^MP60'^LAB(60,^0;1^Q"
^DD(69.11,.01,1,0)="^.1"
^DD(69.11,.01,1,1,0)="69.11^B"
^DD(69.11,.01,1,1,1)="S ^LRO(69.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(69.11,.01,1,1,2)="K ^LRO(69.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(69.11,.01,1,2,0)="69.1^LRPH^MUMPS"
^DD(69.11,.01,1,2,1)="S ^LRO(69.1,""LRPH"",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5),$P(^(0),U,10),$P(^(0),U,11),$P(^(0),U,1))=$P(^(0),U,1)"
^DD(69.11,.01,1,2,2)="K ^LRO(69.1,""LRPH"",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5),$P(^(0),U,10),$P(^(0),U,11),$P(^(0),U,1))"
^DD(69.11,.01,"DT")="2890807"
^DD(69.11,1,0)="LOCATION^FX^^0;2^S DIC=44,DIC(0)=""QELM"" K DO D ^DIC S:Y>0 X=$P(^SC(+Y,0),U,2) S DIC=DIE K:Y<0!('$L(X)) X"
^DD(69.11,1,3)=""
^DD(69.11,1,21,0)="^^1^1^2930720^"
^DD(69.11,1,21,1,0)=" The location of the patient in the hospital."
^DD(69.11,2,0)="ROOM/BED^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(69.11,2,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(69.11,2,21,0)="^^1^1^2930720^"
^DD(69.11,2,21,1,0)=" The room and bed of the patient in the hospital ward."
^DD(69.11,3,0)="LRDFN^P63'^LR(^0;4^Q"
^DD(69.11,4,0)="SPECIMEN #^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.11,4,1,0)="^.1"
^DD(69.11,4,1,1,0)="69.1^LRPH1^MUMPS"
^DD(69.11,4,1,1,1)="S ^LRO(69.1,""LRPH"",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5))=$P(^(0),U,6)_""^""_""LC""_""^""_$P(^(0),U,8)_""^""_$P(^(0),U,9)_""^""_DA"
^DD(69.11,4,1,1,2)="K ^LRO(69.1,""LRPH"",1,$P(^LRO(69.1,DA(1),1,DA,0),U,2),$P(^(0),U,3),$P(^(0),U,4),$P(^(0),U,5))"
^DD(69.11,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(69.11,4,"DT")="2890919"
^DD(69.11,5,0)="COLLECTION SAMPLE^P62'^LAB(62,^0;6^Q"
^DD(69.11,6,0)="LAB COLLECT^S^LC:LAB COLLECT;WC:WARD COLLECT;^0;7^Q"
^DD(69.11,7,0)="BUILD DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.11,7,21,0)="^^1^1^2930720^"
^DD(69.11,7,21,1,0)=" The date the collection list was built."
^DD(69.11,8,0)="ACCESSION DATE^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.11,8,21,0)="^^1^1^2930720^"
^DD(69.11,8,21,1,0)=" The date the specimen was accessioned."
^DD(69.11,9,0)="ACCESSION AREA^*P68'^LRO(68,^0;10^S DIC(""S"")=""I '$L($P(^(0),U,17))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.11,9,12)="Can not select Work Area accession area."
^DD(69.11,9,12.1)="S DIC(""S"")=""I '$L($P(^(0),U,17))"""
^DD(69.11,9,21,0)="^^1^1^2930720^"
^DD(69.11,9,21,1,0)=" The accession area where this test will be performed."
^DD(69.11,9,"DT")="2920106"
^DD(69.11,10,0)="ACCESSION NUMBER^NJ7,0^^0;11^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.11,10,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999"
^DD(69.11,10,21,0)="^^1^1^2930720^^"
^DD(69.11,10,21,1,0)=" The accession number for the specimen."
^DD(69.11,11,0)="ORDERING LOCATION^P44'^SC(^0;12^Q"
^DD(69.11,11,3)="This is the location that is ordered the test."
^DD(69.11,11,21,0)="^^1^1^2930720^"
^DD(69.11,11,21,1,0)=" The location that orginated this order."
^DD(69.11,11,"DT")="2891212"
^DD(69.11,"B","ACCESSION AREA",9)=""
^DD(69.11,"B","ACCESSION DATE",8)=""
^DD(69.11,"B","ACCESSION NUMBER",10)=""
^DD(69.11,"B","BUILD DATE",7)=""
^DD(69.11,"B","COLLECTION SAMPLE",5)=""
^DD(69.11,"B","LAB COLLECT",6)=""
^DD(69.11,"B","LOCATION",1)=""
^DD(69.11,"B","LRDFN",3)=""
^DD(69.11,"B","ORDERING LOCATION",11)=""
^DD(69.11,"B","ROOM/BED",2)=""
^DD(69.11,"B","SPECIMEN #",4)=""
^DD(69.11,"B","TEST",.01)=""
^DD(69.11,"GL",0,1,.01)=""
^DD(69.11,"GL",0,2,1)=""
^DD(69.11,"GL",0,3,2)=""
^DD(69.11,"GL",0,4,3)=""
^DD(69.11,"GL",0,5,4)=""
^DD(69.11,"GL",0,6,5)=""
^DD(69.11,"GL",0,7,6)=""
^DD(69.11,"GL",0,8,7)=""
^DD(69.11,"GL",0,9,8)=""
^DD(69.11,"GL",0,10,9)=""
^DD(69.11,"GL",0,11,10)=""
^DD(69.11,"GL",0,12,11)=""
^DD(69.11,"IX",.01)=""
^DD(69.11,"IX",4)=""
^DD(69.2,0)="FIELD^NL^999^31"
^DD(69.2,0,"DT")="2940401"
^DD(69.2,0,"IX","B",69.2,.01)=""
^DD(69.2,0,"IX","C",69.2,.02)=""
^DD(69.2,0,"NM","LAB SECTION PRINT")=""
^DD(69.2,0,"VR")="5.2"
^DD(69.2,.01,0)="NAME^RP68'X^LRO(68,^0;1^I $D(X) S DINUM=X"
^DD(69.2,.01,1,0)="^.1"
^DD(69.2,.01,1,1,0)="69.2^B"
^DD(69.2,.01,1,1,1)="S ^LRO(69.2,""B"",$E(X,1,30),DA)="""""
^DD(69.2,.01,1,1,2)="K ^LRO(69.2,""B"",$E(X,1,30),DA)"
^DD(69.2,.01,1,1,"DT")="2920730"
^DD(69.2,.01,3)=""
^DD(69.2,.01,21,0)="^^1^1^2930329^^"
^DD(69.2,.01,21,1,0)="The name of the Lab section print pointed to the Accession file."
^DD(69.2,.01,"DT")="2920730"
^DD(69.2,.02,0)="ABBREVIATION^RF^^0;2^K:$L(X)>5!($L(X)<2)!'(X?.AN) X"
^DD(69.2,.02,1,0)="^.1"
^DD(69.2,.02,1,1,0)="69.2^C"
^DD(69.2,.02,1,1,1)="S ^LRO(69.2,""C"",$E(X,1,30),DA)="""""
^DD(69.2,.02,1,1,2)="K ^LRO(69.2,""C"",$E(X,1,30),DA)"
^DD(69.2,.02,3)="ANSWER MUST BE 2-5 CHARACTERS IN LENGTH"
^DD(69.2,.02,21,0)="^^1^1^2930329^^"
^DD(69.2,.02,21,1,0)="Abbreviation to the name of the Lab section print"
^DD(69.2,.02,"DT")="2870116"
^DD(69.2,.03,0)="REPORT HEADER 1^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(69.2,.03,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(69.2,.03,4)="W !,""Enter the heading you want displayed when path report is  printed."",!"
^DD(69.2,.03,21,0)="^^1^1^2850910^^"
^DD(69.2,.03,21,1,0)="First header in path report after Post operative Diagnosis.  The routine used is LRSPRPT (CY/EM/SP patient report)."
^DD(69.2,.03,"DT")="2850318"
^DD(69.2,.04,0)="REPORT HEADER 2^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(69.2,.04,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(69.2,.04,4)="W !,""Enter the heading you want displayed when path report is printed."",!"
^DD(69.2,.04,21,0)="^^1^1^2850910^^^"
^DD(69.2,.04,21,1,0)="Second header in path report after Post operative Diagnosis.  The routine used is LRSPRPT (CY/EM/SP patient report)."
^DD(69.2,.04,"DT")="2850318"
^DD(69.2,.05,0)="PRINT SNOMED/ICD CODES^S^1:LOWER CASE;0:UPPER CASE;^0;5^Q"
^DD(69.2,.05,21,0)="^^1^1^2850910^^^"
^DD(69.2,.05,21,1,0)="If lower case is to be printed for SNOMED and ICD9CM codes enter 1 or LOWER CASE."
^DD(69.2,.05,"DT")="2860709"
^DD(69.2,.06,0)="GROSS DESCRIPTION SPACING^S^D:DOUBLE;S:SINGLE;^0;6^Q"
^DD(69.2,.06,21,0)="^^1^1^2850910^^"
^DD(69.2,.06,21,1,0)="If double spacing, gross descriptions for anatomic path microscopic examinations will be double spaced, otherwise single spacing will be used."
^DD(69.2,.06,"DT")="2850809"
^DD(69.2,.07,0)="LINES IN A LABEL^NJ2,0^^0;7^K:+X'=X!(X>20)!(X<5)!(X?.E1"".""1N.N) X"
^DD(69.2,.07,3)="TYPE A WHOLE NUMBER BETWEEN 5 AND 20"
^DD(69.2,.07,21,0)="^^3^3^2860529^^^"
^DD(69.2,.07,21,1,0)="The number of lines from the top of one label to the top of the"
^DD(69.2,.07,21,2,0)=" next label.  This is used as the default value when printing"
^DD(69.2,.07,21,3,0)=" various labels."
^DD(69.2,.07,"DT")="2860529"
^DD(69.2,.08,0)="ACCESSION PREFIX^F^^0;8^K:$L(X)>3!($L(X)<1) X"
^DD(69.2,.08,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(69.2,.08,21,0)="^^7^7^2880118^^^^"
^DD(69.2,.08,21,1,0)="If accession prefix is entered the path report will"
^DD(69.2,.08,21,2,0)=" have the accession number printed as follows:"
^DD(69.2,.08,21,3,0)=" PREFIX yr accession#"
^DD(69.2,.08,21,4,0)=" Ex. If S entered for the prefix, accession # is 123 and year 87"
^DD(69.2,.08,21,5,0)=" the path report will print the accession as S87 123"
^DD(69.2,.08,21,6,0)=" If you want a space after S enter a space after the 'S'."
^DD(69.2,.08,21,7,0)=" To eliminate the prefix and date delete the entry. (ex. S//@ )."
^DD(69.2,.09,0)="PRINT SF-515 LINES^S^0:NO;1:YES;^0;9^Q"
^DD(69.2,.09,21,0)="^^2^2^2880713^^^"
^DD(69.2,.09,21,1,0)="YES- Prints all dashed lines in the SF-515 form"
^DD(69.2,.09,21,2,0)=" NO- Does not print all lines"
^DD(69.2,.09,"DT")="2880713"
^DD(69.2,.1,0)="ASK TC CODES^S^1:YES;0:NO;1:yes;0:no;^0;10^Q"
^DD(69.2,.1,21,0)="^^1^1^2900917^^^"
^DD(69.2,.1,21,1,0)="Allows coding cases for tissue committee"
^DD(69.2,.1,"DT")="2891205"
^DD(69.2,.11,0)="ROUTINE PROCEDURE 1^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.2,.11,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(69.2,.11,21,0)="^^2^2^2911223^"
^DD(69.2,.11,21,1,0)="Number of times procedure is routinely performed."
^DD(69.2,.11,21,2,0)=" For EM the number of thick sections made per block."
^DD(69.2,.11,"DT")="2911223"
^DD(69.2,.12,0)="ROUTINE PROCEDURE 2^NJ2,0^^0;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.2,.12,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(69.2,.12,21,0)="^^2^2^2911223^"
^DD(69.2,.12,21,1,0)="Number of times routine procedure is performed."
^DD(69.2,.12,21,2,0)=" For EM the number of grids routinely made per block."
^DD(69.2,.13,0)="REPORT HEADER 3^F^^0;13^K:$L(X)>30!($L(X)<1) X"
^DD(69.2,.13,3)="Answer must be 1-30 characters in length."
^DD(69.2,.13,21,0)="^^3^3^2930916^^^^"
^DD(69.2,.13,21,1,0)="Third header in path report after Post operative Diagnosis.  The "
^DD(69.2,.13,21,2,0)="routine used is LRSPRPT CY/EM/SP patient report)."
^DD(69.2,.13,21,3,0)=" For surgical pathology this header will be the frozen section report."
^DD(69.2,.13,"DT")="2930201"
^DD(69.2,.14,0)="REPORT HEADER 4^F^^0;14^K:$L(X)>30!($L(X)<1) X"
^DD(69.2,.14,3)="Answer must be 1-30 characters in length."
^DD(69.2,.14,21,0)="^^3^3^2930715^^^"
^DD(69.2,.14,21,1,0)="Fourth header in path report after post op dx."
^DD(69.2,.14,21,2,0)=" The routine used is LRSPRPT."
^DD(69.2,.14,21,3,0)=" For surgical pathology this header will be the diagnosis field."
^DD(69.2,.14,"DT")="2930715"
^DD(69.2,.21,0)="NEW PG FOR SUPPLEMENTARY RPT^S^1:YES;0:NO;1:yes;0:no;^.2;1^Q"
^DD(69.2,.21,21,0)="^^2^2^2930928^^"
^DD(69.2,.21,21,1,0)="If a page feed is wanted before printing the supplementary report a "
^DD(69.2,.21,21,2,0)="'YES' is entered."
^DD(69.2,.21,"DT")="2930928"
^DD(69.2,.3,0)="SLIDE LABEL^69.22A^^.3;0"
^DD(69.2,.3,21,0)="^^1^1^2940826^^"
^DD(69.2,.3,21,1,0)="Enter the name of the type of preparation or technique used for specimens."
^DD(69.2,1,0)="INCOMPLETE REPORTS QUEUE^69.21A^^1;0"
^DD(69.2,1,21,0)="^^2^2^2870916^^^"
^DD(69.2,1,21,1,0)="Here are stored the temporary list of specimens logged-in for printing at time of microscopic exam.  The report will contain all past specimens with their SNOMED coding in free text form for Surg path, cytopath, and EM."
^DD(69.2,1,21,2,0)=" If there are gross descriptions they will be part of the print-out."
^DD(69.2,2,0)="COMPLETED REPORTS QUEUE^69.23A^^2;0"
^DD(69.2,2,21,0)="^^2^2^2850725^^"
^DD(69.2,2,21,1,0)="This is a temporary list of final path reports to be printed on demand."
^DD(69.2,2,21,2,0)=" Entries automatically are entered when the microscopic diagnoses or supplementary are entered for Surg path, Cytopath or Electron microscopy."
^DD(69.2,3,0)="INTERIM REPORT NUMBER^69.29A^^3;0"
^DD(69.2,3,21,0)="^^1^1^2930327^"
^DD(69.2,3,21,1,0)=" This field contains the numeric sequence of this particular interim report."
^DD(69.2,4,0)="REPORTS ON DEMAND^69.27PA^^4;0"
^DD(69.2,4,21,0)="^^1^1^2930329^"
^DD(69.2,4,21,1,0)="Name of the report on demand from the Lab Data file"
^DD(69.2,5,0)="ENTRY NUMBER^69.24A^^5;0"
^DD(69.2,5,21,0)="^^1^1^2930331^"
^DD(69.2,5,21,1,0)="Entry number to appropriate file"
^DD(69.2,6,0)="GENERIC LIST^69.26A^^6;0"
^DD(69.2,6,21,0)="^^1^1^2930330^"
^DD(69.2,6,21,1,0)="Generic label name"
^DD(69.2,7,0)="USER REQUEST LIST^69.28PA^^7;0"
^DD(69.2,7,21,0)="^^1^1^2930330^"
^DD(69.2,7,21,1,0)="Names of users from file 200"
^DD(69.2,8,0)="FILE^69.31A^^8;0"
^DD(69.2,8,21,0)="^^1^1^2860102^^^"
^DD(69.2,8,21,1,0)="Files for temporary lists of entries."
^DD(69.2,9,0)="LABELS^69.25A^^9;0"
^DD(69.2,9,21,0)="^^1^1^2930330^"
^DD(69.2,9,21,1,0)="ID number of label"
^DD(69.2,10,0)="SNOMED & TC CODING^69.38^^10;0"
^DD(69.2,10,21,0)="^^2^2^2900726^"
^DD(69.2,10,21,1,0)="Text entered here will appear on the preliminary pathology report "
^DD(69.2,10,21,2,0)="after the cum path summary."
^DD(69.2,11,0)="TOPOGRAPHY CATEGORY^69.211IA^^11;0"
^DD(69.2,11,21,0)="^^1^1^2930331^"
^DD(69.2,11,21,1,0)="SNOMED coded topography categories"
^DD(69.2,12,0)="MORPHOLOGY ENTRY^69.212PA^^12;0"
^DD(69.2,12,21,0)="^^1^1^2930331^"
^DD(69.2,12,21,1,0)="SNOMED morphology entries"
^DD(69.2,60,0)="TEST LIST NUMBER^69.33A^^60;0"
^DD(69.2,60,21,0)="^^1^1^2860310^"
^DD(69.2,60,21,1,0)="The list number for a group of selected lab tests."
^DD(69.2,61,0)="TOPOGRAPHY^69.61PA^^61;0"
^DD(69.2,61,21,0)="^^4^4^2860201^^^^"
^DD(69.2,61,21,1,0)="For entries the most recent results of tests selected below will be displayed or printed. "
^DD(69.2,61,21,2,0)=" Ex. You may want to know the results of selected chemistries for a patient who has just had a liver biopsy.  Topography entered would be LIVER"
^DD(69.2,61,21,3,0)=" For blood bank the tests entered will be displayed whenever a "
^DD(69.2,61,21,4,0)=" crossmatch is ordered or when components are displayed."
^DD(69.2,999,0)="DATA CHANGE DATE^69.299DA^^999;0"
^DD(69.2,999,21,0)="^^1^1^2930330^"
^DD(69.2,999,21,1,0)="Date of the Data change"
^DD(69.2,"B","ABBREVIATION",.02)=""
^DD(69.2,"B","ACCESSION PREFIX",.08)=""
^DD(69.2,"B","ASK TC CODES",.1)=""
^DD(69.2,"B","COMPLETED REPORTS QUEUE",2)=""
^DD(69.2,"B","DATA CHANGE DATE",999)=""
^DD(69.2,"B","ENTRY NUMBER",5)=""
^DD(69.2,"B","FILE",8)=""
^DD(69.2,"B","GENERIC LIST",6)=""
^DD(69.2,"B","GROSS DESCRIPTION SPACING",.06)=""
^DD(69.2,"B","INCOMPLETE REPORTS QUEUE",1)=""
^DD(69.2,"B","INTERIM REPORT NUMBER",3)=""
^DD(69.2,"B","LABELS",9)=""
^DD(69.2,"B","LINES IN A LABEL",.07)=""
^DD(69.2,"B","MORPHOLOGY ENTRY",12)=""
^DD(69.2,"B","NAME",.01)=""
^DD(69.2,"B","NEW PG FOR SUPPLEMENTARY RPT",.21)=""
^DD(69.2,"B","PRINT SF-515 LINES",.09)=""
^DD(69.2,"B","PRINT SNOMED/ICD CODES",.05)=""
^DD(69.2,"B","REPORT HEADER 1",.03)=""
^DD(69.2,"B","REPORT HEADER 2",.04)=""
^DD(69.2,"B","REPORT HEADER 3",.13)=""
^DD(69.2,"B","REPORT HEADER 4",.14)=""
^DD(69.2,"B","REPORTS ON DEMAND",4)=""
^DD(69.2,"B","ROUTINE PROCEDURE 1",.11)=""
^DD(69.2,"B","ROUTINE PROCEDURE 2",.12)=""
^DD(69.2,"B","SLIDE LABEL",.3)=""
^DD(69.2,"B","SNOMED & TC CODING",10)=""
^DD(69.2,"B","TEST LIST NUMBER",60)=""
^DD(69.2,"B","TOPOGRAPHY",61)=""
^DD(69.2,"B","TOPOGRAPHY CATEGORY",11)=""
^DD(69.2,"B","USER REQUEST LIST",7)=""
^DD(69.2,"GL",0,1,.01)=""
^DD(69.2,"GL",0,2,.02)=""
^DD(69.2,"GL",0,3,.03)=""
^DD(69.2,"GL",0,4,.04)=""
^DD(69.2,"GL",0,5,.05)=""
^DD(69.2,"GL",0,6,.06)=""
^DD(69.2,"GL",0,7,.07)=""
^DD(69.2,"GL",0,8,.08)=""
^DD(69.2,"GL",0,9,.09)=""
^DD(69.2,"GL",0,10,.1)=""
^DD(69.2,"GL",0,11,.11)=""
^DD(69.2,"GL",0,12,.12)=""
^DD(69.2,"GL",0,13,.13)=""
^DD(69.2,"GL",0,14,.14)=""
^DD(69.2,"GL",.2,1,.21)=""
^DD(69.2,"GL",.3,0,.3)=""
^DD(69.2,"GL",1,0,1)=""
^DD(69.2,"GL",2,0,2)=""
^DD(69.2,"GL",3,0,3)=""
^DD(69.2,"GL",4,0,4)=""
^DD(69.2,"GL",5,0,5)=""
^DD(69.2,"GL",6,0,6)=""
^DD(69.2,"GL",7,0,7)=""
^DD(69.2,"GL",8,0,8)=""
^DD(69.2,"GL",9,0,9)=""
^DD(69.2,"GL",10,0,10)=""
^DD(69.2,"GL",11,0,11)=""
^DD(69.2,"GL",12,0,12)=""
^DD(69.2,"GL",60,0,60)=""
^DD(69.2,"GL",61,0,61)=""
^DD(69.2,"GL",999,0,999)=""
^DD(69.2,"IX",.01)=""
^DD(69.2,"IX",.02)=""
^DD(69.2,"RQ",.01)=""
^DD(69.2,"RQ",.02)=""
^DD(69.2,"SB",69.21,1)=""
^DD(69.2,"SB",69.211,11)=""
^DD(69.2,"SB",69.212,12)=""
^DD(69.2,"SB",69.22,.3)=""
^DD(69.2,"SB",69.23,2)=""
^DD(69.2,"SB",69.24,5)=""
^DD(69.2,"SB",69.25,9)=""
^DD(69.2,"SB",69.26,6)=""
^DD(69.2,"SB",69.27,4)=""
^DD(69.2,"SB",69.28,7)=""
^DD(69.2,"SB",69.29,3)=""
^DD(69.2,"SB",69.299,999)=""
^DD(69.2,"SB",69.31,8)=""
^DD(69.2,"SB",69.33,60)=""
^DD(69.2,"SB",69.38,10)=""
^DD(69.2,"SB",69.61,61)=""
^DD(69.21,0)="INCOMPLETE REPORTS QUEUE SUB-FIELD^NL^2^3"
^DD(69.21,0,"NM","INCOMPLETE REPORTS QUEUE")=""
^DD(69.21,0,"UP")="69.2"
^DD(69.21,.01,0)="LRDFN^MNJ10,0I^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.21,.01,.1)="Internal entry in lab data file"
^DD(69.21,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999"
^DD(69.21,.01,"DT")="2860101"
^DD(69.21,1,0)="INVERSE DATE^RNJ13,5^^0;2^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(69.21,1,1,0)="^.1^^0"
^DD(69.21,1,3)="TYPE A NUMBER BETWEEN 0 AND 9999999.99999"
^DD(69.21,1,"DT")="2870723"
^DD(69.21,2,0)="ACCESSION DATE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(69.21,2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.21,2,21,0)="^^2^2^2870916^^^^"
^DD(69.21,2,21,1,0)="When specimen was accessioned. Stored in external date format."
^DD(69.21,2,21,2,0)=" Usually only the year will be present."
^DD(69.21,2,"DT")="2870916"
^DD(69.21,"B","ACCESSION DATE",2)=""
^DD(69.21,"B","INVERSE DATE",1)=""
^DD(69.21,"B","LRDFN",.01)=""
^DD(69.21,"GL",0,1,.01)=""
^DD(69.21,"GL",0,2,1)=""
^DD(69.21,"GL",0,3,2)=""
^DD(69.21,"RQ",1)=""
^DD(69.211,0)="TOPOGRAPHY CATEGORY SUB-FIELD^^.02^2"
^DD(69.211,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(69.211,0,"IX","B",69.211,.01)=""
^DD(69.211,0,"NM","TOPOGRAPHY CATEGORY")=""
^DD(69.211,0,"UP")="69.2"
^DD(69.211,.01,0)="TOPOGRAPHY CATEGORY^MFX^^0;1^K:$L(X)>7!($L(X)<1)!'(X?1UN.UN) X I $D(X) F X(1)=1:1:$L(X) I ""0123456789XY""'[$E(X,X(1)) K X Q"
^DD(69.211,.01,1,0)="^.1"
^DD(69.211,.01,1,1,0)="69.211^B"
^DD(69.211,.01,1,1,1)="S ^LRO(69.2,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(69.211,.01,1,1,2)="K ^LRO(69.2,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(69.211,.01,3)="Answer must be 1-7 characters in length and contain only digits, and/or the letters ABCDEFXY."
^DD(69.211,.01,4)="W !?5,""One character entered -> most general"",!?5,""All 7 characters entered -> most specific"""
^DD(69.211,.01,21,0)="^^3^3^2930331^^^"
^DD(69.211,.01,21,1,0)="Provides a default list of topography selections for anatomic pathology "
^DD(69.211,.01,21,2,0)="searches and reports.  For example if 28 is a selection then all "
^DD(69.211,.01,21,3,0)="SNOMED coded topographies beginning with 28 will be selected."
^DD(69.211,.01,"DT")="2900726"
^DD(69.211,.02,0)="COMMENT^RF^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(69.211,.02,3)="Answer must be 2-30 characters in length."
^DD(69.211,.02,21,0)="^^1^1^2900726^"
^DD(69.211,.02,21,1,0)="Enter a comment associated with the topography category entry."
^DD(69.211,.02,"DT")="2900726"
^DD(69.211,"B","COMMENT",.02)=""
^DD(69.211,"B","TOPOGRAPHY CATEGORY",.01)=""
^DD(69.211,"GL",0,1,.01)=""
^DD(69.211,"GL",0,2,.02)=""
^DD(69.211,"IX",.01)=""
^DD(69.211,"RQ",.02)=""
^DD(69.212,0)="MORPHOLOGY ENTRY SUB-FIELD^^.01^1"
^DD(69.212,0,"DT")="2920102"
^DD(69.212,0,"NM","MORPHOLOGY ENTRY")=""
^DD(69.212,0,"UP")="69.2"
^DD(69.212,.01,0)="MORPHOLOGY ENTRY^MP61.1'X^LAB(61.1,^0;1^S:$D(X) DINUM=X"
^DD(69.212,.01,1,0)="^.1^^0"
^DD(69.212,.01,21,0)="^^3^3^2930331^^"
^DD(69.212,.01,21,1,0)="List of SNOMED morphology entries for various reports are kept here."
^DD(69.212,.01,21,2,0)=" For cytopathology option [LRAPCYPCT] this is a default list for"
^DD(69.212,.01,21,3,0)=" calculating %normal, atypical, suspicious and malignant cases."
^DD(69.212,.01,"DT")="2920102"
^DD(69.212,"B","MORPHOLOGY ENTRY",.01)=""
^DD(69.212,"GL",0,1,.01)=""
^DD(69.22,0)="SLIDE LABEL SUB-FIELD^^.02^2"
^DD(69.22,0,"DT")="2940401"
^DD(69.22,0,"IX","B",69.22,.01)=""
^DD(69.22,0,"NM","SLIDE LABEL")=""
^DD(69.22,0,"UP")="69.2"
^DD(69.22,.01,0)="SLIDE LABEL^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(69.22,.01,1,0)="^.1"
^DD(69.22,.01,1,1,0)="69.22^B"
^DD(69.22,.01,1,1,1)="S ^LRO(69.2,DA(1),.3,""B"",$E(X,1,30),DA)="""""
^DD(69.22,.01,1,1,2)="K ^LRO(69.2,DA(1),.3,""B"",$E(X,1,30),DA)"
^DD(69.22,.01,3)="Answer must be 1-30 characters in length."
^DD(69.22,.01,"DT")="2940401"
^DD(69.22,.02,0)="PRINT NAME^F^^0;2^K:$L(X)>9!($L(X)<1) X"
^DD(69.22,.02,3)="Answer must be 1-9 characters in length."
^DD(69.22,.02,21,0)="^^1^1^2940826^"
^DD(69.22,.02,21,1,0)="Enter the actual text you want printed on the slide label."
^DD(69.22,.02,"DT")="2940401"
^DD(69.22,"B","PRINT NAME",.02)=""
^DD(69.22,"B","SLIDE LABEL",.01)=""
^DD(69.22,"GL",0,1,.01)=""
^DD(69.22,"GL",0,2,.02)=""
^DD(69.22,"IX",.01)=""
^DD(69.23,0)="COMPLETED REPORTS QUEUE SUB-FIELD^NL^2^3"
^DD(69.23,0,"NM","COMPLETED REPORTS QUEUE")=""
^DD(69.23,0,"UP")="69.2"
^DD(69.23,.01,0)="LRDFN^MNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.23,.01,.1)="Internal entry number in labata file"
^DD(69.23,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(69.23,.01,21,0)="^^1^1^2870723^^"
^DD(69.23,.01,21,1,0)="This is a temporary list of final path reports to be printed on demand.  Entries automatically are entered when the microscopic diagnoses or supplementary are entered for Surg path, Cytopath or Electron microscopy."
^DD(69.23,.01,"DT")="2840911"
^DD(69.23,1,0)="INVERSE DATE^NJ13,5^^0;2^K:+X'=X!(X>9999999.99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(69.23,1,3)="TYPE A NUMBER BETWEEN 0 AND 9999999.99999"
^DD(69.23,1,"DT")="2870723"
^DD(69.23,2,0)="ACCESSION DATE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(69.23,2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.23,2,21,0)="^^2^2^2870916^"
^DD(69.23,2,21,1,0)="When specimen accessioned. Stored in external date format."
^DD(69.23,2,21,2,0)=" Usually only the year will be stored."
^DD(69.23,2,"DT")="2870916"
^DD(69.23,"B","ACCESSION DATE",2)=""
^DD(69.23,"B","INVERSE DATE",1)=""
^DD(69.23,"B","LRDFN",.01)=""
^DD(69.23,"GL",0,1,.01)=""
^DD(69.23,"GL",0,2,1)=""
^DD(69.23,"GL",0,3,2)=""
^DD(69.24,0)="ENTRY NUMBER SUB-FIELD^NL^.03^3"
^DD(69.24,0,"IX","C",69.24,.03)=""
^DD(69.24,0,"NM","ENTRY NUMBER")=""
^DD(69.24,0,"UP")="69.2"
^DD(69.24,.01,0)="ENTRY NUMBER^MNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(69.24,.01,.1)="Entry number in appropriate file"
^DD(69.24,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(69.24,.01,"DT")="2850412"
^DD(69.24,.02,0)="PARENT FILE^NJ8,4^^0;2^K:+X'=X!(X>999)!(X<2)!(X?.E1"".""5N.N) X"
^DD(69.24,.02,3)="TYPE A NUMBER BETWEEN 2 AND 999"
^DD(69.24,.02,"DT")="2850412"
^DD(69.24,.03,0)="NAME^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(69.24,.03,1,0)="^.1"
^DD(69.24,.03,1,1,0)="69.24^C"
^DD(69.24,.03,1,1,1)="S ^LRO(69.2,DA(1),5,""C"",$E(X,1,30),DA)="""""
^DD(69.24,.03,1,1,2)="K ^LRO(69.2,DA(1),5,""C"",$E(X,1,30),DA)"
^DD(69.24,.03,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.24,.03,21,0)="^^1^1^2930720^"
^DD(69.24,.03,21,1,0)=" Name of the patient."
^DD(69.24,.03,"DT")="2850412"
^DD(69.24,"B","ENTRY NUMBER",.01)=""
^DD(69.24,"B","NAME",.03)=""
^DD(69.24,"B","PARENT FILE",.02)=""
^DD(69.24,"GL",0,1,.01)=""
^DD(69.24,"GL",0,2,.02)=""
^DD(69.24,"GL",0,3,.03)=""
^DD(69.24,"IX",.03)=""
^DD(69.25,0)="LABELS SUB-FIELD^NL^.05^5"
^DD(69.25,0,"NM","LABELS")=""
^DD(69.25,0,"UP")="69.2"
^DD(69.25,.01,0)="LABEL ID^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(69.25,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.25,.01,"DT")="2850814"
^DD(69.25,.02,0)="LINE 1^F^^0;2^K:$L(X)>42!($L(X)<2) X"
^DD(69.25,.02,3)="ANSWER MUST BE 2-42 CHARACTERS IN LENGTH"
^DD(69.25,.02,"DT")="2850814"
^DD(69.25,.03,0)="LINE 2^F^^0;3^K:$L(X)>42!($L(X)<2) X"
^DD(69.25,.03,3)="ANSWER MUST BE 2-42 CHARACTERS IN LENGTH"
^DD(69.25,.04,0)="LINE 3^F^^0;4^K:$L(X)>42!($L(X)<2) X"
^DD(69.25,.04,3)="ANSWER MUST BE 2-42 CHARACTERS IN LENGTH"
^DD(69.25,.05,0)="LINE 4^F^^0;5^K:$L(X)>42!($L(X)<2) X"
^DD(69.25,.05,3)="ANSWER MUST BE 2-42 CHARACTERS IN LENGTH"
^DD(69.25,"B","LABEL ID",.01)=""
^DD(69.25,"B","LINE 1",.02)=""
^DD(69.25,"B","LINE 2",.03)=""
^DD(69.25,"B","LINE 3",.04)=""
^DD(69.25,"B","LINE 4",.05)=""
^DD(69.25,"GL",0,1,.01)=""
^DD(69.25,"GL",0,2,.02)=""
^DD(69.25,"GL",0,3,.03)=""
^DD(69.25,"GL",0,4,.04)=""
^DD(69.25,"GL",0,5,.05)=""
^DD(69.26,0)="GENERIC LIST SUB-FIELD^NL^.05^5"
^DD(69.26,0,"NM","GENERIC LIST")=""
^DD(69.26,0,"UP")="69.2"
^DD(69.26,.01,0)="GENERIC LABEL^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(69.26,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.26,.01,21,0)="^^1^1^2930720^"
^DD(69.26,.01,21,1,0)=" The name of the generic label."
^DD(69.26,.01,"DT")="2870916"
^DD(69.26,.02,0)="ITEM 2^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(69.26,.02,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.26,.02,21,0)="^^1^1^2930720^"
^DD(69.26,.02,21,1,0)=" First line of the label."
^DD(69.26,.02,"DT")="2850819"
^DD(69.26,.03,0)="ITEM 3^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(69.26,.03,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.26,.03,21,0)="^^1^1^2930720^"
^DD(69.26,.03,21,1,0)=" The second line of the label."
^DD(69.26,.03,"DT")="2850819"
^DD(69.26,.04,0)="ITEM 4^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(69.26,.04,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.26,.04,21,0)="^^1^1^2930720^"
^DD(69.26,.04,21,1,0)=" Third line of the label."
^DD(69.26,.04,"DT")="2850819"
^DD(69.26,.05,0)="ITEM 5^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(69.26,.05,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.26,.05,21,0)="^^1^1^2930720^"
^DD(69.26,.05,21,1,0)=" The forth line of the label."
^DD(69.26,.05,"DT")="2850819"
^DD(69.26,"B","GENERIC LABEL",.01)=""
^DD(69.26,"B","ITEM 2",.02)=""
^DD(69.26,"B","ITEM 3",.03)=""
^DD(69.26,"B","ITEM 4",.04)=""
^DD(69.26,"B","ITEM 5",.05)=""
^DD(69.26,"GL",0,1,.01)=""
^DD(69.26,"GL",0,2,.02)=""
^DD(69.26,"GL",0,3,.03)=""
^DD(69.26,"GL",0,4,.04)=""
^DD(69.26,"GL",0,5,.05)=""
^DD(69.27,0)="REPORTS ON DEMAND SUB-FIELD^NL^.1^5"
^DD(69.27,0,"NM","REPORTS ON DEMAND")=""
^DD(69.27,0,"UP")="69.2"
^DD(69.27,.01,0)="REPORTS ON DEMAND^MP63'X^LR(^0;1^I $D(X) S DINUM=X"
^DD(69.27,.01,21,0)="^^1^1^2930720^"
^DD(69.27,.01,21,1,0)=" Pointer to LAB DATA file (#63)."
^DD(69.27,.01,"DT")="2841024"
^DD(69.27,.02,0)="NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(69.27,.02,1,0)="^.1^^0"
^DD(69.27,.02,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(69.27,.02,"DT")="2851102"
^DD(69.27,.03,0)="SEX^S^M:MALE;F:FEMALE;^0;3^Q"
^DD(69.27,.03,"DT")="2851101"
^DD(69.27,.04,0)="DOB^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.27,.04,21,0)="^^1^1^2930720^"
^DD(69.27,.04,21,1,0)="  Date of Birth."
^DD(69.27,.04,"DT")="2851101"
^DD(69.27,.1,0)="ID^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(69.27,.1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.27,.1,21,0)="^^1^1^2930720^"
^DD(69.27,.1,21,1,0)=" Usually the SSN of the patient."
^DD(69.27,.1,"DT")="2851101"
^DD(69.27,"B","DOB",.04)=""
^DD(69.27,"B","ID",.1)=""
^DD(69.27,"B","NAME",.02)=""
^DD(69.27,"B","REPORTS ON DEMAND",.01)=""
^DD(69.27,"B","SEX",.03)=""
^DD(69.27,"GL",0,1,.01)=""
^DD(69.27,"GL",0,2,.02)=""
^DD(69.27,"GL",0,3,.03)=""
^DD(69.27,"GL",0,4,.04)=""
^DD(69.27,"GL",0,10,.1)=""
^DD(69.28,0)="USER REQUEST LIST SUB-FIELD^NL^60^4"
^DD(69.28,0,"DT")="2930117"
^DD(69.28,0,"NM","USER REQUEST LIST")=""
^DD(69.28,0,"UP")="69.2"
^DD(69.28,.01,0)="USER^RP200X'^VA(200,^0;1^Q"
^DD(69.28,.01,21,0)="^^1^1^2930720^"
^DD(69.28,.01,21,1,0)=" Points to the NEW PERSON file (#200)."
^DD(69.28,.01,"DT")="2930117"
^DD(69.28,.02,0)="LAST DATE USED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.28,.02,21,0)="^^1^1^2930720^"
^DD(69.28,.02,21,1,0)=" The last date this was printed."
^DD(69.28,.02,"DT")="2851102"
^DD(69.28,1,0)="LRDFN^69.3PA^^1;0"
^DD(69.28,60,0)="LAB TEST GROUP^69.35A^^60;0"
^DD(69.28,"B","LAB TEST GROUP",60)=""
^DD(69.28,"B","LAST DATE USED",.02)=""
^DD(69.28,"B","LRDFN",1)=""
^DD(69.28,"B","USER",.01)=""
^DD(69.28,"GL",0,1,.01)=""
^DD(69.28,"GL",0,2,.02)=""
^DD(69.28,"GL",1,0,1)=""
^DD(69.28,"GL",60,0,60)=""
^DD(69.28,"RQ",.01)=""
^DD(69.28,"SB",69.3,1)=""
^DD(69.28,"SB",69.35,60)=""
^DD(69.29,0)="INTERIM REPORT NUMBER SUB-FIELD^NL^1^2"
^DD(69.29,0,"IX","C",69.29,1)=""
^DD(69.29,0,"NM","INTERIM REPORT NUMBER")=""
^DD(69.29,0,"UP")="69.2"
^DD(69.29,.01,0)="INTERIM REPORT NUMBER^MNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S DINUM=X"
^DD(69.29,.01,3)="Enter internal number of Lab Results File"
^DD(69.29,.01,"DT")="2840608"
^DD(69.29,1,0)="LOCATION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(69.29,1,1,0)="^.1"
^DD(69.29,1,1,1,0)="69.29^C"
^DD(69.29,1,1,1,1)="S ^LRO(69.2,DA(1),3,""C"",$E(X,1,30),DA)="""""
^DD(69.29,1,1,1,2)="K ^LRO(69.2,DA(1),3,""C"",$E(X,1,30),DA)"
^DD(69.29,1,3)="Enter patient location"
^DD(69.29,1,"DT")="2840608"
^DD(69.29,"B","INTERIM REPORT NUMBER",.01)=""
^DD(69.29,"B","LOCATION",1)=""
^DD(69.29,"GL",0,1,.01)=""
^DD(69.29,"GL",0,2,1)=""
^DD(69.29,"IX",1)=""
^DD(69.29,"RQ",1)=""
^DD(69.299,0)="DATA CHANGE DATE SUB-FIELD^NL^1^9"
^DD(69.299,0,"NM","DATA CHANGE DATE")=""
^DD(69.299,0,"UP")="69.2"
^DD(69.299,.01,0)="DATA CHANGE DATE^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=Y"
^DD(69.299,.01,21,0)="^^1^1^2930720^^"
^DD(69.299,.01,21,1,0)="Date the data was changed."
^DD(69.299,.01,"DT")="2850605"
^DD(69.299,.02,0)="PERSON CHANGING DATA^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(69.299,.02,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.299,.02,"DT")="2850515"
^DD(69.299,.03,0)="DATA ELEMENT^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(69.299,.03,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.299,.03,21,0)="^^1^1^2930720^"
^DD(69.299,.03,21,1,0)=" Name of the test being edited."
^DD(69.299,.03,"DT")="2850515"
^DD(69.299,.04,0)="OLD VALUE^F^^0;4^K:$L(X)>45!($L(X)<1) X"
^DD(69.299,.04,3)="ANSWER MUST BE 1-45 CHARACTERS IN LENGTH"
^DD(69.299,.04,21,0)="^^1^1^2930720^"
^DD(69.299,.04,21,1,0)=" Previous test result."
^DD(69.299,.04,"DT")="2880311"
^DD(69.299,.05,0)="NEW VALUE^F^^0;5^K:$L(X)>45!($L(X)<1) X"
^DD(69.299,.05,3)="ANSWER MUST BE 1-45 CHARACTERS IN LENGTH"
^DD(69.299,.05,21,0)="^^1^1^2930720^"
^DD(69.299,.05,21,1,0)=" New test result."
^DD(69.299,.05,"DT")="2880311"
^DD(69.299,.06,0)="FILE^F^^0;6^K:$L(X)>38!($L(X)<2) X"
^DD(69.299,.06,3)="ANSWER MUST BE 2-38 CHARACTERS IN LENGTH"
^DD(69.299,.06,21,0)="^^1^1^2930720^"
^DD(69.299,.06,21,1,0)=" File where the data is stored."
^DD(69.299,.06,"DT")="2850606"
^DD(69.299,.07,0)="FILE ENTRY^F^^0;7^K:$L(X)>30!($L(X)<2) X"
^DD(69.299,.07,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.299,.07,21,0)="^^1^1^2930720^"
^DD(69.299,.07,21,1,0)=" The numeric entry of the file."
^DD(69.299,.07,"DT")="2850605"
^DD(69.299,.08,0)="INTERNAL FILE #^F^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(69.299,.08,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(69.299,.08,21,0)="^^1^1^2930720^"
^DD(69.299,.08,21,1,0)=" The internal number where the data is stored."
^DD(69.299,.08,"DT")="2860517"
^DD(69.299,1,0)="SUBFILE FIELD NAME^69.37A^^1;0"
^DD(69.299,"B","DATA CHANGE DATE",.01)=""
^DD(69.299,"B","DATA ELEMENT",.03)=""
^DD(69.299,"B","FILE",.06)=""
^DD(69.299,"B","FILE ENTRY",.07)=""
^DD(69.299,"B","INTERNAL FILE #",.08)=""
^DD(69.299,"B","NEW VALUE",.05)=""
^DD(69.299,"B","OLD VALUE",.04)=""
^DD(69.299,"B","PERSON CHANGING DATA",.02)=""
^DD(69.299,"B","SUBFILE FIELD NAME",1)=""
^DD(69.299,"GL",0,1,.01)=""
^DD(69.299,"GL",0,2,.02)=""
^DD(69.299,"GL",0,3,.03)=""
^DD(69.299,"GL",0,4,.04)=""
^DD(69.299,"GL",0,5,.05)=""
^DD(69.299,"GL",0,6,.06)=""
^DD(69.299,"GL",0,7,.07)=""
^DD(69.299,"GL",0,8,.08)=""
^DD(69.299,"GL",1,0,1)=""
^DD(69.299,"SB",69.37,1)=""
^DD(69.3,0)="LRDFN SUB-FIELD^NL^1^8"
^DD(69.3,0,"IX","C",69.3,.02)=""
^DD(69.3,0,"IX","D",69.3,1)=""
^DD(69.3,0,"NM","LRDFN")=""
^DD(69.3,0,"UP")="69.28"
^DD(69.3,.01,0)="LRDFN^MP63X^LR(^0;1^S DINUM=X"
^DD(69.3,.01,21,0)="^^1^1^2930720^"
^DD(69.3,.01,21,1,0)=" Internal file number in the LAB DATA file (#63)."
^DD(69.3,.01,"DT")="2851102"
^DD(69.3,.02,0)="PATIENT NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(69.3,.02,1,0)="^.1"
^DD(69.3,.02,1,1,0)="69.3^C"
^DD(69.3,.02,1,1,1)="S ^LRO(69.2,DA(2),7,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(69.3,.02,1,1,2)="K ^LRO(69.2,DA(2),7,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(69.3,.02,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(69.3,.02,21,0)="^^1^1^2930720^"
^DD(69.3,.02,21,1,0)=" Patient's name."
^DD(69.3,.02,"DT")="2851102"
^DD(69.3,.03,0)="SEX^S^F:FEMALE;M:MALE;^0;3^Q"
^DD(69.3,.03,"DT")="2851102"
^DD(69.3,.04,0)="DOB^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.3,.04,21,0)="^^1^1^2930720^"
^DD(69.3,.04,21,1,0)=" Date of birth."
^DD(69.3,.04,"DT")="2851102"
^DD(69.3,.05,0)="LOCATION^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(69.3,.05,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.3,.05,"DT")="2860926"
^DD(69.3,.06,0)="VA PATIENT NUMBER^P2'I^DPT(^0;6^Q"
^DD(69.3,.06,21,0)="^^2^2^2880612^"
^DD(69.3,.06,21,1,0)="If patient is entered in file 2 the internal file number (DFN)"
^DD(69.3,.06,21,2,0)=" for file 2 will appear here."
^DD(69.3,.06,"DT")="2880612"
^DD(69.3,.1,0)="ID^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(69.3,.1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.3,.1,"DT")="2851102"
^DD(69.3,1,0)="PATIENT GROUP^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X?1AN.ANP) X"
^DD(69.3,1,1,0)="^.1"
^DD(69.3,1,1,1,0)="69.3^D"
^DD(69.3,1,1,1,1)="S ^LRO(69.2,DA(2),7,DA(1),1,""D"",$E(X,1,30),DA)="""""
^DD(69.3,1,1,1,2)="K ^LRO(69.2,DA(2),7,DA(1),1,""D"",$E(X,1,30),DA)"
^DD(69.3,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH AND BEGIN WITH A LETTER OR DIGIT"
^DD(69.3,1,4)="I $D(LRAA) W !?5,""Your present patient groups are:"" S A=0 F A(1)=0:0 S A=$O(^LRO(69.2,LRAA,7,DUZ,1,""D"",A)) Q:A=""""  W !?9,A"
^DD(69.3,1,21,0)="^^1^1^2870526^"
^DD(69.3,1,21,1,0)="To print only a specific group of patients enter that group name here."
^DD(69.3,1,"DT")="2870526"
^DD(69.3,"B","DOB",.04)=""
^DD(69.3,"B","ID",.1)=""
^DD(69.3,"B","LOCATION",.05)=""
^DD(69.3,"B","LRDFN",.01)=""
^DD(69.3,"B","PATIENT GROUP",1)=""
^DD(69.3,"B","PATIENT NAME",.02)=""
^DD(69.3,"B","SEX",.03)=""
^DD(69.3,"B","VA PATIENT NUMBER",.06)=""
^DD(69.3,"GL",0,1,.01)=""
^DD(69.3,"GL",0,2,.02)=""
^DD(69.3,"GL",0,3,.03)=""
^DD(69.3,"GL",0,4,.04)=""
^DD(69.3,"GL",0,5,.05)=""
^DD(69.3,"GL",0,6,.06)=""
^DD(69.3,"GL",0,10,.1)=""
^DD(69.3,"GL",1,1,1)=""
^DD(69.3,"IX",.02)=""
^DD(69.3,"IX",1)=""
^DD(69.31,0)="FILE SUB-FIELD^NL^1^5"
^DD(69.31,0,"DT")="2930407"
^DD(69.31,0,"NM","FILE")=""
^DD(69.31,0,"UP")="69.2"
^DD(69.31,.01,0)="FILE^MNJ5,2X^^0;1^K:+X'=X!(X>68)!(X<63)!(X?.E1"".""3N.N) X I $D(X) S DINUM=X"
^DD(69.31,.01,3)="TYPE A NUMBER BETWEEN 63 AND 68"
^DD(69.31,.01,21,0)="^^1^1^2860102^^^"
^DD(69.31,.01,21,1,0)="List of selected entries in a file."
^DD(69.31,.01,"DT")="2860101"
^DD(69.31,.02,0)="START DATE^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(69.31,.02,3)="ENTER FREE TEXT DATE AS mmm dd yyyy"
^DD(69.31,.02,"DT")="2860101"
^DD(69.31,.03,0)="END DATE^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(69.31,.03,3)="ENTER FREE TEXT DATE AS mmm dd yyyy"
^DD(69.31,.03,"DT")="2860101"
^DD(69.31,.04,0)="USER^P200'^VA(200,^0;4^Q"
^DD(69.31,.04,21,0)="^^1^1^2871013^"
^DD(69.31,.04,21,1,0)="Person who created list of entries"
^DD(69.31,.04,"DT")="2930407"
^DD(69.31,1,0)="FILE ENTRY^69.32A^^1;0"
^DD(69.31,"B","END DATE",.03)=""
^DD(69.31,"B","FILE",.01)=""
^DD(69.31,"B","FILE ENTRY",1)=""
^DD(69.31,"B","START DATE",.02)=""
^DD(69.31,"B","USER",.04)=""
^DD(69.31,"GL",0,1,.01)=""
^DD(69.31,"GL",0,2,.02)=""
^DD(69.31,"GL",0,3,.03)=""
^DD(69.31,"GL",0,4,.04)=""
^DD(69.31,"GL",1,0,1)=""
^DD(69.31,"SB",69.32,1)=""
^DD(69.32,0)="FILE ENTRY SUB-FIELD^NL^1^4"
^DD(69.32,0,"IX","B",69.32,.01)=""
^DD(69.32,0,"NM","FILE ENTRY")=""
^DD(69.32,0,"UP")="69.31"
^DD(69.32,.001,0)="NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.32,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999"
^DD(69.32,.001,"DT")="2860101"
^DD(69.32,.01,0)="FILE ENTRY NAME^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(69.32,.01,1,0)="^.1"
^DD(69.32,.01,1,1,0)="69.32^B"
^DD(69.32,.01,1,1,1)="S ^LRO(69.2,DA(2),8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(69.32,.01,1,1,2)="K ^LRO(69.2,DA(2),8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(69.32,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(69.32,.01,21,0)="^^1^1^2870902^^"
^DD(69.32,.01,21,1,0)="Enter the name of the entry in the file (.01 field)"
^DD(69.32,.01,"DT")="2860101"
^DD(69.32,.02,0)="ENTRY COMMENT^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(69.32,.02,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.32,.02,21,0)="^^1^1^2870902^"
^DD(69.32,.02,21,1,0)="Description to identify the specific entry"
^DD(69.32,.02,"DT")="2870902"
^DD(69.32,1,0)="DATE^69.321DA^^1;0"
^DD(69.32,"B","DATE",1)=""
^DD(69.32,"B","ENTRY COMMENT",.02)=""
^DD(69.32,"B","FILE ENTRY NAME",.01)=""
^DD(69.32,"B","NUMBER",.001)=""
^DD(69.32,"GL",0,1,.01)=""
^DD(69.32,"GL",0,2,.02)=""
^DD(69.32,"GL",1,0,1)=""
^DD(69.32,"IX",.01)=""
^DD(69.32,"SB",69.321,1)=""
^DD(69.321,0)="DATE SUB-FIELD^^1^5"
^DD(69.321,0,"NM","DATE")=""
^DD(69.321,0,"UP")="69.32"
^DD(69.321,.01,0)="DATE^MD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.321,.01,1,0)="^.1^^0"
^DD(69.321,.01,"DT")="2870902"
^DD(69.321,.02,0)="RELATED TEXT^F^^0;2^K:$L(X)>40!($L(X)<2) X"
^DD(69.321,.02,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(69.321,.02,"DT")="2870902"
^DD(69.321,.03,0)="MORE RELATED TEXT^F^^0;3^K:$L(X)>40!($L(X)<2) X"
^DD(69.321,.03,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(69.321,.03,"DT")="2870902"
^DD(69.321,.04,0)="DATE ENTRY PRINTED?^S^1:YES;0:NO;^0;4^Q"
^DD(69.321,.04,21,0)="^^2^2^2870902^"
^DD(69.321,.04,21,1,0)="If entry was printed then 'YES' should be entered."
^DD(69.321,.04,21,2,0)=" If entry was not printed then it should not be deleted."
^DD(69.321,.04,"DT")="2870902"
^DD(69.321,1,0)="COMMENT^69.3211A^^1;0"
^DD(69.321,"B","COMMENT",1)=""
^DD(69.321,"B","DATE",.01)=""
^DD(69.321,"B","DATE ENTRY PRINTED?",.04)=""
^DD(69.321,"B","MORE RELATED TEXT",.03)=""
^DD(69.321,"B","RELATED TEXT",.02)=""
^DD(69.321,"GL",0,1,.01)=""
^DD(69.321,"GL",0,2,.02)=""
^DD(69.321,"GL",0,3,.03)=""
^DD(69.321,"GL",0,4,.04)=""
^DD(69.321,"GL",1,0,1)=""
^DD(69.321,"SB",69.3211,1)=""
^DD(69.3211,0)="COMMENT SUB-FIELD^^.01^1"
^DD(69.3211,0,"NM","COMMENT")=""
^DD(69.3211,0,"UP")="69.321"
^DD(69.3211,.01,0)="COMMENT^MF^^0;1^K:$L(X)>80!($L(X)<2) X"
^DD(69.3211,.01,1,0)="^.1^^0"
^DD(69.3211,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(69.3211,.01,"DT")="2870902"
^DD(69.3211,"B","COMMENT",.01)=""
^DD(69.3211,"GL",0,1,.01)=""
^DD(69.33,0)="TEST LIST NUMBER SUB-FIELD^NL^1^2"
^DD(69.33,0,"NM","TEST LIST NUMBER")=""
^DD(69.33,0,"UP")="69.2"
^DD(69.33,.01,0)="TEST LIST NUMBER^MNJ2,0X^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(69.33,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(69.33,.01,"DT")="2860324"
^DD(69.33,1,0)="TEST^69.34PA^^1;0"
^DD(69.33,1,12)="Selects only chem, heme, tox, ser, etc."
^DD(69.33,1,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(69.33,"B","TEST",1)=""
^DD(69.33,"B","TEST LIST NUMBER",.01)=""
^DD(69.33,"GL",0,1,.01)=""
^DD(69.33,"GL",1,0,1)=""
^DD(69.33,"SB",69.34,1)=""
^DD(69.34,0)="TEST SUB-FIELD^NL^.03^4"
^DD(69.34,0,"NM","TEST")=""
^DD(69.34,0,"UP")="69.33"
^DD(69.34,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.34,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 7"
^DD(69.34,.001,"DT")="2860310"
^DD(69.34,.01,0)="TEST^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.34,.01,"DT")="2860310"
^DD(69.34,.02,0)="SPECIMEN^RP61'X^LAB(61,^0;2^I $D(X) S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,""Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test."",! K X"
^DD(69.34,.02,3)="Specimen test is performed on.  This must be a specimen entered in the lab test file for the test specified."
^DD(69.34,.02,4)="S X(1)=+^LRO(69.2,DA(2),60,DA(1),1,DA,0) I $O(^LAB(60,X(1),0)) W !?5,""SELECT FROM "" F II=0:0 S II=+$O(^LAB(60,X(1),1,II)) Q:II<1  I $D(^(II,0)) W !?20,$P(^(0),U)"
^DD(69.34,.02,"DT")="2880217"
^DD(69.34,.03,0)="VALUE^RFX^^0;3^K:$L(X)>10!($L(X)<2) X I $D(X) K:$E(X)'=""<""&($E(X)'="">"")&($E(X)'=""["")&($E(X)'=""="") X"
^DD(69.34,.03,3)="Enter <,>,[ or = followed by the value"
^DD(69.34,.03,4)="W ""     Answer must be 2-10 characters in length."""
^DD(69.34,.03,"DT")="2880217"
^DD(69.34,"B","NUMBER",.001)=""
^DD(69.34,"B","SPECIMEN",.02)=""
^DD(69.34,"B","TEST",.01)=""
^DD(69.34,"B","VALUE",.03)=""
^DD(69.34,"GL",0,1,.01)=""
^DD(69.34,"GL",0,2,.02)=""
^DD(69.34,"GL",0,3,.03)=""
^DD(69.34,"RQ",.02)=""
^DD(69.34,"RQ",.03)=""
^DD(69.35,0)="LAB TEST GROUP SUB-FIELD^NL^1^2"
^DD(69.35,0,"NM","LAB TEST GROUP")=""
^DD(69.35,0,"UP")="69.28"
^DD(69.35,.01,0)="LAB TEST GROUP^MNJ2,0X^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(69.35,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(69.35,.01,21,0)="^^1^1^2860325^^"
^DD(69.35,.01,21,1,0)="You can have one or more groups. Each group can have up to 7 tests."
^DD(69.35,.01,"DT")="2860325"
^DD(69.35,1,0)="TEST^69.36PA^^1;0"
^DD(69.35,1,12)="Selects chem, hem, ser, tox, RIA tests"
^DD(69.35,1,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(69.35,"B","LAB TEST GROUP",.01)=""
^DD(69.35,"B","TEST",1)=""
^DD(69.35,"GL",0,1,.01)=""
^DD(69.35,"GL",1,0,1)=""
^DD(69.35,"SB",69.36,1)=""
^DD(69.36,0)="TEST SUB-FIELD^NL^.01^2"
^DD(69.36,0,"NM","TEST")=""
^DD(69.36,0,"UP")="69.35"
^DD(69.36,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.36,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 7"
^DD(69.36,.001,"DT")="2860313"
^DD(69.36,.01,0)="TEST^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.36,.01,12)="Tests with results stored in CH subscript of file 63"
^DD(69.36,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(69.36,.01,21,0)="^^2^2^2860315^"
^DD(69.36,.01,21,1,0)="Up to 7 tests allowed.  The number will determine placement of the"
^DD(69.36,.01,21,2,0)=" test on the display or print."
^DD(69.36,.01,"DT")="2860325"
^DD(69.36,"B","NUMBER",.001)=""
^DD(69.36,"B","TEST",.01)=""
^DD(69.36,"GL",0,1,.01)=""
^DD(69.37,0)="SUBFILE FIELD NAME SUB-FIELD^^.03^3"
^DD(69.37,0,"IX","B",69.37,.01)=""
^DD(69.37,0,"NM","SUBFILE FIELD NAME")=""
^DD(69.37,0,"UP")="69.299"
^DD(69.37,.01,0)="SUBFILE FIELD NAME^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(69.37,.01,1,0)="^.1"
^DD(69.37,.01,1,1,0)="69.37^B"
^DD(69.37,.01,1,1,1)="S ^LRO(69.2,DA(2),999,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(69.37,.01,1,1,2)="K ^LRO(69.2,DA(2),999,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(69.37,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.37,.01,"DT")="2860512"
^DD(69.37,.02,0)="SUBFILE FIELD ENTRY^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(69.37,.02,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(69.37,.02,"DT")="2860512"
^DD(69.37,.03,0)="SUBFILE FIELD #^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(69.37,.03,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(69.37,.03,"DT")="2860512"
^DD(69.37,"B","SUBFILE FIELD #",.03)=""
^DD(69.37,"B","SUBFILE FIELD ENTRY",.02)=""
^DD(69.37,"B","SUBFILE FIELD NAME",.01)=""
^DD(69.37,"GL",0,1,.01)=""
^DD(69.37,"GL",0,2,.02)=""
^DD(69.37,"GL",0,3,.03)=""
^DD(69.37,"IX",.01)=""
^DD(69.38,0)="SNOMED & TC CODING SUB-FIELD^^.01^1"
^DD(69.38,0,"NM","SNOMED & TC CODING")=""
^DD(69.38,0,"UP")="69.2"
^DD(69.38,.01,0)="SNOMED & TC CODING^W^^0;1^Q"
^DD(69.38,.01,21,0)="^^2^2^2900726^"
^DD(69.38,.01,21,1,0)="Text entered here will appear on the preliminary pathology report "
^DD(69.38,.01,21,2,0)="after the cum path summary."
^DD(69.38,.01,"DT")="2891205"
^DD(69.38,"B","SNOMED & TC CODING",.01)=""
^DD(69.38,"GL",0,1,.01)=""
^DD(69.399,0)="TEST COMMENTS SUB-FIELD^^.01^1"
^DD(69.399,0,"DT")="2960409"
^DD(69.399,0,"NM","TEST COMMENTS")=""
^DD(69.399,0,"UP")="69.03"
^DD(69.399,.01,0)="TEST COMMENTS^W^^0;1^Q"
^DD(69.399,.01,3)="Enter the comments for this test."
^DD(69.399,.01,21,0)="^^1^1^2970703^^"
^DD(69.399,.01,21,1,0)="This is the comments associated with the test."
^DD(69.399,.01,"DT")="2960409"
^DD(69.399,"B","TEST COMMENTS",.01)=""
^DD(69.399,"GL",0,1,.01)=""
^DD(69.3991,0)="CANCEL REASON SUB-FIELD^^.01^1"
^DD(69.3991,0,"DT")="2980129"
^DD(69.3991,0,"NM","CANCEL REASON")=""
^DD(69.3991,0,"UP")="69.03"
^DD(69.3991,.01,0)="CANCEL REASON^W^^0;1^Q"
^DD(69.3991,.01,3)="Enter a free text reason for cancelling this test."
^DD(69.3991,.01,21,0)="^^1^1^2980129^"
^DD(69.3991,.01,21,1,0)="This is the free text reason for cancelling a test."
^DD(69.3991,.01,"DT")="2980129"
^DD(69.3991,"B","CANCEL REASON",.01)=""
^DD(69.3991,"GL",0,1,.01)=""
^DD(69.4,0)="FIELD^^5^6"
^DD(69.4,0,"DDA")="N"
^DD(69.4,0,"DT")="2961204"
^DD(69.4,0,"IX","B",69.4,.01)=""
^DD(69.4,0,"NM","LAB SEARCH/EXTRACT PROTOCOL")=""
^DD(69.4,0,"PT",69.5,12)=""
^DD(69.4,0,"VR")="5.2"
^DD(69.4,0,"VRPK")="LR"
^DD(69.4,.01,0)="PROTOCOL^RP101'X^ORD(101,^0;1^S DINUM=X"
^DD(69.4,.01,1,0)="^.1"
^DD(69.4,.01,1,1,0)="69.4^B"
^DD(69.4,.01,1,1,1)="S ^LAB(69.4,""B"",$E(X,1,30),DA)="""""
^DD(69.4,.01,1,1,2)="K ^LAB(69.4,""B"",$E(X,1,30),DA)"
^DD(69.4,.01,3)="Select the Protocol that will be used to build the extract message."
^DD(69.4,.01,21,0)="^^3^3^2980609^"
^DD(69.4,.01,21,1,0)="This is the entry in the Protocol file (#101) that will be used to build"
^DD(69.4,.01,21,2,0)="the HL7 Message. This allows additional parameters to be associated with "
^DD(69.4,.01,21,3,0)="the protocol."
^DD(69.4,.01,"DT")="2961108"
^DD(69.4,1,0)="Report Mail Group^P3.8'^XMB(3.8,^0;2^Q"
^DD(69.4,1,3)="Select which mail group will receive the verification report."
^DD(69.4,1,21,0)="^^1^1^2980609^"
^DD(69.4,1,21,1,0)="This is the mail group that will receive the verification report."
^DD(69.4,1,"DT")="2961108"
^DD(69.4,2,0)="Message Size^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(69.4,2,3)="Enter the maximum number of lines a message may contain (100 to 999999) before it breaks into another message."
^DD(69.4,2,21,0)="^^3^3^2980609^^"
^DD(69.4,2,21,1,0)="This determines how big the HL7 message will be before it breaks into another"
^DD(69.4,2,21,2,0)="message."
^DD(69.4,2,21,3,0)=""
^DD(69.4,2,"DT")="2961204"
^DD(69.4,3,0)="Send Alert^S^1:YES;^0;4^Q"
^DD(69.4,3,3)="Enter '1' or 'YES' to send an alert when a search is run automatically.  Leave this field blank if no alert is desired. "
^DD(69.4,3,21,0)="^^3^3^2980610^^^"
^DD(69.4,3,21,1,0)="When this field is set to '1' or 'YES' an alert is transmitted to the"
^DD(69.4,3,21,2,0)="recipients listed in the RECEIVE ALERTS field when a search is run"
^DD(69.4,3,21,3,0)="automatically for this protocol."
^DD(69.4,3,"DT")="2970731"
^DD(69.4,4,0)="Title^F^^0;5^K:$L(X)>40!($L(X)<2) X"
^DD(69.4,4,3)="Enter a new title (2 to 40 characters) for the Verification report. If this field is left blank the default title ""Verification Report"" will be used."
^DD(69.4,4,21,0)="^^1^1^2980609^"
^DD(69.4,4,21,1,0)="This field will over-ride the default title for the Verification Report."
^DD(69.4,4,"DT")="2970801"
^DD(69.4,5,0)="Receive Alerts^69.45V^^1;0"
^DD(69.4,5,21,0)="^^2^2^2980708^"
^DD(69.4,5,21,1,0)="This is the User(s) or Group that will receive alerts stating"
^DD(69.4,5,21,2,0)="the extract has run automatically."
^DD(69.4,"B","Message Size",2)=""
^DD(69.4,"B","PROTOCOL",.01)=""
^DD(69.4,"B","Receive Alerts",5)=""
^DD(69.4,"B","Report Mail Group",1)=""
^DD(69.4,"B","Send Alert",3)=""
^DD(69.4,"B","Title",4)=""
^DD(69.4,"GL",0,1,.01)=""
^DD(69.4,"GL",0,2,1)=""
^DD(69.4,"GL",0,3,2)=""
^DD(69.4,"GL",0,4,3)=""
^DD(69.4,"GL",0,5,4)=""
^DD(69.4,"GL",1,0,5)=""
^DD(69.4,"IX",.01)=""
^DD(69.4,"RQ",.01)=""
^DD(69.4,"SB",69.45,5)=""
^DD(69.45,0)="Receive Alerts SUB-FIELD^^.01^1"
^DD(69.45,0,"DT")="2970805"
^DD(69.45,0,"IX","B",69.45,.01)=""
^DD(69.45,0,"NM","Receive Alerts")=""
^DD(69.45,0,"UP")="69.4"
^DD(69.45,.01,0)="Receive Alerts^MV^^0;1^Q"
^DD(69.45,.01,1,0)="^.1"
^DD(69.45,.01,1,1,0)="69.45^B"
^DD(69.45,.01,1,1,1)="S ^LAB(69.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(69.45,.01,1,1,2)="K ^LAB(69.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(69.45,.01,1,1,3)="Required Index for Variable Pointer"
^DD(69.45,.01,3)="Select the User(s) or Group responsible for receiving alerts that the search has been run automatically."
^DD(69.45,.01,21,0)="^^2^2^2980609^"
^DD(69.45,.01,21,1,0)="This is the user(s) or Group that will receive alerts that the search has"
^DD(69.45,.01,21,2,0)="been run automatically."
^DD(69.45,.01,"DT")="2970805"
^DD(69.45,.01,"V",0)="^.12P^2^2"
^DD(69.45,.01,"V",1,0)="200^Responsible User^1^U^^n"
^DD(69.45,.01,"V",2,0)="3.8^Responsible Group^2^G^^n"
^DD(69.45,.01,"V","B",3.8,2)=""
^DD(69.45,.01,"V","B",200,1)=""
^DD(69.45,.01,"V","M","Responsible Group",2)=""
^DD(69.45,.01,"V","M","Responsible User",1)=""
^DD(69.45,.01,"V","O",1,1)=""
^DD(69.45,.01,"V","O",2,2)=""
^DD(69.45,.01,"V","P","G",2)=""
^DD(69.45,.01,"V","P","U",1)=""
^DD(69.45,"B","Receive Alerts",.01)=""
^DD(69.45,"GL",0,1,.01)=""
^DD(69.45,"IX",.01)=""
^DD(69.5,0)="FIELD^^19^22"
^DD(69.5,0,"DDA")="N"
^DD(69.5,0,"DT")="3040324"
^DD(69.5,0,"IX","B",69.5,.01)=""
^DD(69.5,0,"IX","C",69.5,.05)=""
^DD(69.5,0,"IX","D",69.5,.01)=""
^DD(69.5,0,"NM","LAB SEARCH/EXTRACT")=""
^DD(69.5,0,"VR")="5.2"
^DD(69.5,0,"VRPK")="LR"
^DD(69.5,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(69.5,.01,1,0)="^.1"
^DD(69.5,.01,1,1,0)="69.5^B"
^DD(69.5,.01,1,1,1)="S ^LAB(69.5,""B"",$E(X,1,30),DA)="""""
^DD(69.5,.01,1,1,2)="K ^LAB(69.5,""B"",$E(X,1,30),DA)"
^DD(69.5,.01,1,2,0)="69.5^D^MUMPS"
^DD(69.5,.01,1,2,1)="D UP^LRXREF S ^LAB(69.5,""D"",X,DA)="""""
^DD(69.5,.01,1,2,2)="D UP^LRXREF K ^LAB(69.5,""D"",X,DA)"
^DD(69.5,.01,1,2,"%D",0)="^^2^2^3040316^"
^DD(69.5,.01,1,2,"%D",1,0)="The name is converted to upper case and stored in the ""D"" x-ref for easier"
^DD(69.5,.01,1,2,"%D",2,0)="lookup.  ^LAB(69.5,""D"",UPPERCASE NAME, IEN)"
^DD(69.5,.01,1,2,"DT")="3040316"
^DD(69.5,.01,3)="Enter a Name (3 to 30 characters) for the Search/Extract parameter you are defining."
^DD(69.5,.01,21,0)="^.001^1^1^3040120^^^^"
^DD(69.5,.01,21,1,0)="This is the name of the Search/Extract parameter you are defining."
^DD(69.5,.01,"DT")="3040316"
^DD(69.5,.05,0)="REFERENCE NUMBER^NJ3,0XI^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N)!(X'>99)!$D(^LAB(69.5,""C"",X)) X"
^DD(69.5,.05,1,0)="^.1"
^DD(69.5,.05,1,1,0)="69.5^C"
^DD(69.5,.05,1,1,1)="S ^LAB(69.5,""C"",$E(X,1,30),DA)="""""
^DD(69.5,.05,1,1,2)="K ^LAB(69.5,""C"",$E(X,1,30),DA)"
^DD(69.5,.05,1,1,"DT")="2961108"
^DD(69.5,.05,3)="Type a unique number between 100 and 999 to identify this entry. Numbers from 1 to 99 are reserved for future use."
^DD(69.5,.05,21,0)="^^1^1^2980609^^^"
^DD(69.5,.05,21,1,0)="This is a unique number used to identify this entry."
^DD(69.5,.05,"DT")="2961129"
^DD(69.5,1,0)="INACTIVE^S^1:YES;0:NO;^0;2^Q"
^DD(69.5,1,3)="'1' or 'YES' indicates that this is an inactive entry. '0' or 'NO' indicates that this is an active entry."
^DD(69.5,1,21,0)="^.001^1^1^3030501^^^"
^DD(69.5,1,21,1,0)="This defines if this entry is active or not."
^DD(69.5,1,"DT")="3020619"
^DD(69.5,2,0)="LAB TEST^69.52P^^1;0"
^DD(69.5,2,21,0)="^^1^1^2980609^"
^DD(69.5,2,21,1,0)="This is the test that is to be searched for and retrieved."
^DD(69.5,3,0)="ETIOLOGY^69.53P^^2;0"
^DD(69.5,3,21,0)="^^1^1^2970212^"
^DD(69.5,3,21,1,0)="This defines the Etiology to search for."
^DD(69.5,4,0)="ICD9^69.54P^^3;0"
^DD(69.5,4,21,0)="^^1^1^2980609^^"
^DD(69.5,4,21,1,0)="This defines the ICD9 to search for."
^DD(69.5,5,0)="ANTIMICROBIAL SUSCEPTIBILITY^69.55P^^4;0"
^DD(69.5,5,21,0)="^.001^2^2^3040323^^"
^DD(69.5,5,21,1,0)="This determines that if any of the Etiologies selected are to be resistant"
^DD(69.5,5,21,2,0)="to any Antimicrobials."
^DD(69.5,5,"DT")="2970122"
^DD(69.5,6,0)="INCLUDED SITES^69.56P^^5;0"
^DD(69.5,6,21,0)="^^1^1^2980609^^"
^DD(69.5,6,21,1,0)="This determines what Topography to screen for."
^DD(69.5,6,"DT")="2961004"
^DD(69.5,7,0)="EXCLUDED SITES^69.57P^^6;0"
^DD(69.5,7,21,0)="^^1^1^2970212^"
^DD(69.5,7,21,1,0)="This determines what Topography to screen out."
^DD(69.5,8,0)="SNOMED CODES^69.58^^9;0"
^DD(69.5,8,21,0)="^^1^1^2980609^^"
^DD(69.5,8,21,1,0)="This is a list of SNOMED codes to be included in the search."
^DD(69.5,9,0)="RUN DATE^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.5,9,.1)=""
^DD(69.5,9,3)="Enter the date that the last Auto Search/Extract processed."
^DD(69.5,9,21,0)="^^1^1^2980609^^"
^DD(69.5,9,21,1,0)="The date that the last Auto Search/Extract processed"
^DD(69.5,9,"DT")="2970206"
^DD(69.5,10,0)="CYCLE^S^M:MONTHLY;D:DAILY;^0;5^Q"
^DD(69.5,10,1,0)="^.1"
^DD(69.5,10,1,1,0)="^^TRIGGER^69.5^10.5"
^DD(69.5,10,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(69.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(69.5,10,1,1,1.4)"
^DD(69.5,10,1,1,1.4)="S DIH=$S($D(^LAB(69.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.5,DIG=10.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.5,10,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(69.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(69.5,10,1,1,2.4)"
^DD(69.5,10,1,1,2.4)="S DIH=$S($D(^LAB(69.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.5,DIG=10.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.5,10,1,1,"CREATE VALUE")=""""""
^DD(69.5,10,1,1,"DELETE VALUE")=""""""
^DD(69.5,10,1,1,"FIELD")="LAG DAY"
^DD(69.5,10,3)="Select whether this parameter is to be used 'D'aily or 'M'onthly"
^DD(69.5,10,21,0)="^^2^2^2980609^^^^"
^DD(69.5,10,21,1,0)="This field defines how often the this entry is acted upon by the nightly task."
^DD(69.5,10,21,2,0)=""
^DD(69.5,10,"DT")="2971203"
^DD(69.5,10.5,0)="LAG DAYS^NJ2,0X^^0;3^S CYC=$P(^LAB(69.5,DA,0),U,5),MAX=$S(CYC=""D"":99,CYC=""M"":26,1:0) K:+X'=X!(X>MAX)!(X<1)!(X?.E1"".""1N.N) X K MAX,CYC"
^DD(69.5,10.5,3)="Enter the numbers of lag days desired. The amount allowed will very depending on the cycle type."
^DD(69.5,10.5,5,1,0)="69.5^10^1"
^DD(69.5,10.5,21,0)="^^2^2^2980609^"
^DD(69.5,10.5,21,1,0)="This is the number of days that the search should wait after the test was"
^DD(69.5,10.5,21,2,0)="ordered to ensure that the results have been entered in the system."
^DD(69.5,10.5,"DT")="2970904"
^DD(69.5,11,0)="FIRST ENCOUNTER^S^1:YES;0:NO;^0;6^Q"
^DD(69.5,11,3)="Enter '1' to limit the output to the first encounter for the patient. '0' will list all encounters."
^DD(69.5,11,21,0)="^^2^2^2980609^^^"
^DD(69.5,11,21,1,0)="This determines if after the first encounter is found and extracted should"
^DD(69.5,11,21,2,0)="sequential encounters be extracted."
^DD(69.5,11,"DT")="2961230"
^DD(69.5,12,0)="PROTOCOL^P69.4I^LAB(69.4,^0;7^Q"
^DD(69.5,12,3)="Select the Protocol to be used to define the output messages."
^DD(69.5,12,21,0)="^^2^2^2980609^^"
^DD(69.5,12,21,1,0)="This defines what protocol is associated with the parameters."
^DD(69.5,12,21,2,0)=""
^DD(69.5,12,"DT")="3031106"
^DD(69.5,13,0)="FOLLOW PTF^S^1:YES;0:NO;^0;8^Q"
^DD(69.5,13,3)="'YES' or '1' indicates that the PTF record will be followed until a discharge has been entered.  "
^DD(69.5,13,21,0)="^^2^2^2980609^"
^DD(69.5,13,21,1,0)="This determines whether the discharge information should be updated upon"
^DD(69.5,13,21,2,0)="discharge if a inpatient encounter does not have an existing discharge."
^DD(69.5,13,"DT")="2961017"
^DD(69.5,14,0)="PTF^69.514PA^^7;0"
^DD(69.5,14,21,0)="^^1^1^2980609^"
^DD(69.5,14,21,1,0)="This is the PTF file enty to be followed."
^DD(69.5,15,0)="Description^69.515^^8;0"
^DD(69.5,15,21,0)="^^1^1^2980609^^^^"
^DD(69.5,15,21,1,0)="This is the general description for the entry."
^DD(69.5,16,0)="SEX^S^M:MALE;F:FEMALE;O:OTHER;^0;10^Q"
^DD(69.5,16,3)="Enter the sex code to be included in the search. Leave blank if all types are to be included."
^DD(69.5,16,21,0)="^^2^2^2980708^^"
^DD(69.5,16,21,1,0)="This is the sex code to be included in the search.  All types will be"
^DD(69.5,16,21,2,0)="included if this field is left blank."
^DD(69.5,16,"DT")="2971117"
^DD(69.5,17,0)="BEFORE DATE OF BIRTH^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.5,17,3)="Enter a date to screen out patients born after the date entered."
^DD(69.5,17,21,0)="^^1^1^2980609^"
^DD(69.5,17,21,1,0)="Patients born after the date entered will not be included in the report."
^DD(69.5,17,"DT")="2971117"
^DD(69.5,18,0)="AFTER DATE OF BIRTH^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.5,18,3)="A birthdate to screen patients. ie patients DOB after 1/1/1950."
^DD(69.5,18,21,0)="^^1^1^2980609^"
^DD(69.5,18,21,1,0)="Persons born before the date entered will not be included in the report."
^DD(69.5,18,"DT")="2971117"
^DD(69.5,19,0)="PREVIOUS CYCLE^NJ2,0I^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1.N) X"
^DD(69.5,19,3)="Type a number between 1 and 99."
^DD(69.5,19,21,0)="^.001^5^5^3030320^^"
^DD(69.5,19,21,1,0)="By entering a number here the Lab search engine knows to look at a "
^DD(69.5,19,21,2,0)="previous cycle for updates to data. How far back it looks is based on the "
^DD(69.5,19,21,3,0)="cycle and number entered. For example if the cycle is monthly and the "
^DD(69.5,19,21,4,0)="previous cycle is 1 then the search engine will also search 1 month back"
^DD(69.5,19,21,5,0)="for data."
^DD(69.5,19,"DT")="3030909"
^DD(69.5,"B","AFTER DATE OF BIRTH",18)=""
^DD(69.5,"B","ANTIMICROBIAL SUSCEPTIBILITY",5)=""
^DD(69.5,"B","BEFORE DATE OF BIRTH",17)=""
^DD(69.5,"B","CYCLE",10)=""
^DD(69.5,"B","Description",15)=""
^DD(69.5,"B","ETIOLOGY",3)=""
^DD(69.5,"B","EXCLUDED SITES",7)=""
^DD(69.5,"B","FIRST ENCOUNTER",11)=""
^DD(69.5,"B","FOLLOW PTF",13)=""
^DD(69.5,"B","ICD9",4)=""
^DD(69.5,"B","INACTIVE",1)=""
^DD(69.5,"B","INCLUDED SITES",6)=""
^DD(69.5,"B","LAB TEST",2)=""
^DD(69.5,"B","LAG DAYS",10.5)=""
^DD(69.5,"B","NAME",.01)=""
^DD(69.5,"B","PREVIOUS CYCLE",19)=""
^DD(69.5,"B","PROTOCOL",12)=""
^DD(69.5,"B","PTF",14)=""
^DD(69.5,"B","REFERENCE NUMBER",.05)=""
^DD(69.5,"B","RUN DATE",9)=""
^DD(69.5,"B","SEX",16)=""
^DD(69.5,"B","SNOMED CODES",8)=""
^DD(69.5,"GL",0,1,.01)=""
^DD(69.5,"GL",0,2,1)=""
^DD(69.5,"GL",0,3,10.5)=""
^DD(69.5,"GL",0,4,9)=""
^DD(69.5,"GL",0,5,10)=""
^DD(69.5,"GL",0,6,11)=""
^DD(69.5,"GL",0,7,12)=""
^DD(69.5,"GL",0,8,13)=""
^DD(69.5,"GL",0,9,.05)=""
^DD(69.5,"GL",0,10,16)=""
^DD(69.5,"GL",0,11,17)=""
^DD(69.5,"GL",0,12,18)=""
^DD(69.5,"GL",0,13,19)=""
^DD(69.5,"GL",1,0,2)=""
^DD(69.5,"GL",2,0,3)=""
^DD(69.5,"GL",3,0,4)=""
^DD(69.5,"GL",4,0,5)=""
^DD(69.5,"GL",5,0,6)=""
^DD(69.5,"GL",6,0,7)=""
^DD(69.5,"GL",7,0,14)=""
^DD(69.5,"GL",8,0,15)=""
^DD(69.5,"GL",9,0,8)=""
^DD(69.5,"IX",.01)=""
^DD(69.5,"IX",.05)=""
^DD(69.5,"IX",10)=""
^DD(69.5,"RQ",.01)=""
^DD(69.5,"SB",69.514,14)=""
^DD(69.5,"SB",69.515,15)=""
^DD(69.5,"SB",69.52,2)=""
^DD(69.5,"SB",69.53,3)=""
^DD(69.5,"SB",69.54,4)=""
^DD(69.5,"SB",69.55,5)=""
^DD(69.5,"SB",69.56,6)=""
^DD(69.5,"SB",69.57,7)=""
^DD(69.5,"SB",69.58,8)=""
^DD(69.51,0)="FIELD^^.01^1"
^DD(69.51,0,"DDA")="N"
^DD(69.51,0,"DT")="3000602"
^DD(69.51,0,"IX","B",69.51,.01)=""
^DD(69.51,0,"NM","LREPI REMINDER LINK")=""
^DD(69.51,0,"VR")="5.2"
^DD(69.51,0,"VRPK")="LR"
^DD(69.51,.01,0)="REMINDER^RP811.9'^PXD(811.9,^0;1^Q"
^DD(69.51,.01,.1)="POINTER TO CLINICAL REMINDER"
^DD(69.51,.01,1,0)="^.1"
^DD(69.51,.01,1,1,0)="69.51^B"
^DD(69.51,.01,1,1,1)="S ^LAB(69.51,""B"",$E(X,1,30),DA)="""""
^DD(69.51,.01,1,1,2)="K ^LAB(69.51,""B"",$E(X,1,30),DA)"
^DD(69.51,.01,3)="Select an entry from the REMINDER DEFINITION (#811.9) file."
^DD(69.51,.01,21,0)="^^3^3^3000602^"
^DD(69.51,.01,21,1,0)="This field holds a pointer to the REMINDER DEFINITION (#811.9) file. These"
^DD(69.51,.01,21,2,0)="entries will be used to determine which Clinical Reminders will be used to"
^DD(69.51,.01,21,3,0)="generate data for the Hepatitis C registry."
^DD(69.51,.01,"DT")="3000602"
^DD(69.51,"B","POINTER TO CLINICAL REMINDER",.01)="1"
^DD(69.51,"B","REMINDER",.01)=""
^DD(69.51,"GL",0,1,.01)=""
^DD(69.51,"IX",.01)=""
^DD(69.51,"RQ",.01)=""
^DD(69.514,0)="PTF SUB-FIELD^^1^2"
^DD(69.514,0,"DT")="2961231"
^DD(69.514,0,"IX","B",69.514,.01)=""
^DD(69.514,0,"NM","PTF")=""
^DD(69.514,0,"UP")="69.5"
^DD(69.514,.01,0)="PTF^P45'^DGPT(^0;1^Q"
^DD(69.514,.01,1,0)="^.1"
^DD(69.514,.01,1,1,0)="69.514^B"
^DD(69.514,.01,1,1,1)="S ^LAB(69.5,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(69.514,.01,1,1,2)="K ^LAB(69.5,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(69.514,.01,3)="Enter the PTF file entry to be followed."
^DD(69.514,.01,21,0)="^^1^1^2980609^"
^DD(69.514,.01,21,1,0)="This is the PTF file entry to be followed."
^DD(69.514,.01,"DT")="2961017"
^DD(69.514,1,0)="DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.514,1,3)="Enter the date that the Inpatient discharge information was included in the report as an update."
^DD(69.514,1,21,0)="^^2^2^2980609^^"
^DD(69.514,1,21,1,0)="This is the date that the Inpatient discharge information was included "
^DD(69.514,1,21,2,0)="in the report as a update."
^DD(69.514,1,"DT")="2961231"
^DD(69.514,"B","DATE",1)=""
^DD(69.514,"B","PTF",.01)=""
^DD(69.514,"GL",0,1,.01)=""
^DD(69.514,"GL",0,2,1)=""
^DD(69.514,"IX",.01)=""
^DD(69.515,0)="Description SUB-FIELD^^.01^1"
^DD(69.515,0,"DT")="2961202"
^DD(69.515,0,"NM","Description")=""
^DD(69.515,0,"UP")="69.5"
^DD(69.515,.01,0)="Description^W^^0;1^Q"
^DD(69.515,.01,3)="Enter the general description for this entry."
^DD(69.515,.01,21,0)="^^1^1^2980609^^"
^DD(69.515,.01,21,1,0)="This is the general description for this entry."
^DD(69.515,.01,"DT")="2961202"
^DD(69.515,"B","Description",.01)=""
^DD(69.515,"GL",0,1,.01)=""
^DD(69.52,0)="LAB TEST SUB-FIELD^^2^3"
^DD(69.52,0,"DT")="2980205"
^DD(69.52,0,"IX","B",69.52,.01)=""
^DD(69.52,0,"NM","LAB TEST")=""
^DD(69.52,0,"UP")="69.5"
^DD(69.52,.01,0)="LAB TEST^M*P60'X^LAB(60,^0;1^S DIC(""S"")=""I $P($G(^(0)),U,4)=""""CH""""!($P($G(^(0)),U,4)=""""CY"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.52,.01,1,0)="^.1"
^DD(69.52,.01,1,1,0)="69.52^B"
^DD(69.52,.01,1,1,1)="S ^LAB(69.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(69.52,.01,1,1,2)="K ^LAB(69.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(69.52,.01,3)="Enter the lab test that is to be searched for and retrieved. Consider this synonymous with chemistry, serology, hematology ""blood/serum"" or Cytology tests."
^DD(69.52,.01,12)="Only CH subscripts are selectable."
^DD(69.52,.01,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,4)=""""CH""""!($P($G(^(0)),U,4)=""""CY"""")"""
^DD(69.52,.01,21,0)="^^1^1^2980609^^"
^DD(69.52,.01,21,1,0)="This is the lab test that is to be searched for and retrieved."
^DD(69.52,.01,"DT")="2980204"
^DD(69.52,1,0)="INDICATOR^S^1:Use Reference Ranges;2:Contains;3:Greater Than;4:Less Than;5:Equal To;^0;2^Q"
^DD(69.52,1,3)="Select the code that will determine how to match lab results."
^DD(69.52,1,21,0)="^^1^1^2970212^"
^DD(69.52,1,21,1,0)="This indicates if the search for the lab test is conditional."
^DD(69.52,1,"DT")="2970205"
^DD(69.52,2,0)="INDICATED VALUE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(69.52,2,3)="Enter the data to be compared using the INDICATOR field."
^DD(69.52,2,21,0)="^^1^1^2980609^^"
^DD(69.52,2,21,1,0)="If the search is conditional this defines the criteria. "
^DD(69.52,2,"DT")="2980205"
^DD(69.52,"B","INDICATED VALUE",2)=""
^DD(69.52,"B","INDICATOR",1)=""
^DD(69.52,"B","LAB TEST",.01)=""
^DD(69.52,"GL",0,1,.01)=""
^DD(69.52,"GL",0,2,1)=""
^DD(69.52,"GL",0,3,2)=""
^DD(69.52,"IX",.01)=""
^DD(69.53,0)="ETIOLOGY SUB-FIELD^^.01^1"
^DD(69.53,0,"DT")="2960829"
^DD(69.53,0,"IX","B",69.53,.01)=""
^DD(69.53,0,"NM","ETIOLOGY")=""
^DD(69.53,0,"UP")="69.5"
^DD(69.53,.01,0)="ETIOLOGY^MP61.2'^LAB(61.2,^0;1^Q"
^DD(69.53,.01,1,0)="^.1"
^DD(69.53,.01,1,1,0)="69.53^B"
^DD(69.53,.01,1,1,1)="S ^LAB(69.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(69.53,.01,1,1,2)="K ^LAB(69.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(69.53,.01,3)="Select the Etiology to search for."
^DD(69.53,.01,21,0)="^^1^1^2970212^"
^DD(69.53,.01,21,1,0)="This defines the Etiology to search for. Select the appropriate Etiology."
^DD(69.53,.01,"DT")="2960829"
^DD(69.53,"B","ETIOLOGY",.01)=""
^DD(69.53,"GL",0,1,.01)=""
^DD(69.53,"IX",.01)=""
^DD(69.54,0)="ICD9 SUB-FIELD^^.01^1"
^DD(69.54,0,"DT")="2960909"
^DD(69.54,0,"IX","B",69.54,.01)=""
^DD(69.54,0,"NM","ICD9")=""
^DD(69.54,0,"UP")="69.5"
^DD(69.54,.01,0)="ICD9^MP80'^ICD9(^0;1^Q"
^DD(69.54,.01,1,0)="^.1^^-1"
^DD(69.54,.01,1,1,0)="69.54^B"
^DD(69.54,.01,1,1,1)="S ^LAB(69.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(69.54,.01,1,1,2)="K ^LAB(69.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(69.54,.01,3)="Select the ICDM-9 standardized code, used nationwide in federal and non-federal /private health care facilities, to be included in the search."
^DD(69.54,.01,21,0)="^^1^1^2980609^^"
^DD(69.54,.01,21,1,0)="This defines the ICD9 to search for."
^DD(69.54,.01,"DT")="2961011"
^DD(69.54,"B","ICD9",.01)=""
^DD(69.54,"GL",0,1,.01)=""
^DD(69.54,"IX",.01)=""
^DD(69.55,0)="ANTIMICROBIAL SUSCEPTIBILITY SUB-FIELD^^2^3"
^DD(69.55,0,"DT")="3040324"
^DD(69.55,0,"IX","B",69.55,.01)=""
^DD(69.55,0,"NM","ANTIMICROBIAL SUSCEPTIBILITY")=""
^DD(69.55,0,"UP")="69.5"
^DD(69.55,.01,0)="ANTIMICROBIAL SUSCEPTIBILITY^MP62.06'^LAB(62.06,^0;1^Q"
^DD(69.55,.01,1,0)="^.1"
^DD(69.55,.01,1,1,0)="69.55^B"
^DD(69.55,.01,1,1,1)="S ^LAB(69.5,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(69.55,.01,1,1,2)="K ^LAB(69.5,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(69.55,.01,3)="Enter the Antimicrobial that will be used in screening out sensitive Etiologies."
^DD(69.55,.01,21,0)="^.001^4^4^3040323^^"
^DD(69.55,.01,21,1,0)="This determines that if any of the Etiologies selected are to be resistant"
^DD(69.55,.01,21,2,0)="to any Antimicrobials. Select the appropriate Antimicrobials to screen out the"
^DD(69.55,.01,21,3,0)="Etiologies."
^DD(69.55,.01,21,4,0)=""
^DD(69.55,.01,"DT")="2970122"
^DD(69.55,1,0)="INDICATOR^S^1:Use Reference Ranges;2:Contains;3:Greater Than;4:Less Than;5:Equal To;^0;2^Q"
^DD(69.55,1,3)="Select the code that will determine how to match lab results."
^DD(69.55,1,21,0)="^^1^1^3040324^"
^DD(69.55,1,21,1,0)="This indicates if the search for the lab test is conditional."
^DD(69.55,1,"DT")="3040324"
^DD(69.55,2,0)="INDICATED VALUE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(69.55,2,3)="Enter the data to be compared using the INDICATOR field."
^DD(69.55,2,21,0)="^^1^1^3040324^"
^DD(69.55,2,21,1,0)="If the search is conditional this defines the criteria."
^DD(69.55,2,"DT")="3040324"
^DD(69.55,"B","ANTIMICROBIAL SUSCEPTIBILITY",.01)=""
^DD(69.55,"B","INDICATED VALUE",2)=""
^DD(69.55,"B","INDICATOR",1)=""
^DD(69.55,"GL",0,1,.01)=""
^DD(69.55,"GL",0,2,1)=""
^DD(69.55,"GL",0,3,2)=""
^DD(69.55,"IX",.01)=""
^DD(69.56,0)="INCLUDED SITES SUB-FIELD^^.01^1"
^DD(69.56,0,"DT")="2961004"
^DD(69.56,0,"IX","B",69.56,.01)=""
^DD(69.56,0,"NM","INCLUDED SITES")=""
^DD(69.56,0,"UP")="69.5"
^DD(69.56,.01,0)="TOPOGRAPHY^MP61'^LAB(61,^0;1^Q"
^DD(69.56,.01,1,0)="^.1"
^DD(69.56,.01,1,1,0)="69.56^B"
^DD(69.56,.01,1,1,1)="S ^LAB(69.5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(69.56,.01,1,1,2)="K ^LAB(69.5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(69.56,.01,3)="Selection of a Topography screens all others out except the ones selected. For ""ALL"" leave blank. Not to be used in conjunction with the exclude Topography selection."
^DD(69.56,.01,21,0)="^^2^2^2970212^"
^DD(69.56,.01,21,1,0)="This determines what Topography to screen for. Select the appropriate "
^DD(69.56,.01,21,2,0)="Topography to include in the extract. "
^DD(69.56,.01,"DT")="2961004"
^DD(69.56,"B","TOPOGRAPHY",.01)=""
^DD(69.56,"GL",0,1,.01)=""
^DD(69.56,"IX",.01)=""
^DD(69.57,0)="EXCLUDED SITES SUB-FIELD^^.01^1"
^DD(69.57,0,"DT")="2961004"
^DD(69.57,0,"IX","B",69.57,.01)=""
^DD(69.57,0,"NM","EXCLUDED SITES")=""
^DD(69.57,0,"UP")="69.5"
^DD(69.57,.01,0)="TOPOGRAPHY^MP61'^LAB(61,^0;1^Q"
^DD(69.57,.01,1,0)="^.1"
^DD(69.57,.01,1,1,0)="69.57^B"
^DD(69.57,.01,1,1,1)="S ^LAB(69.5,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(69.57,.01,1,1,2)="K ^LAB(69.5,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(69.57,.01,3)="Select the Topography to screen out. Not to be used in conjunction with the Include Topography selection."
^DD(69.57,.01,21,0)="^^2^2^2970212^"
^DD(69.57,.01,21,1,0)="This determines what Topography to screen out. Select the appropriate "
^DD(69.57,.01,21,2,0)="Topography to be excluded from the extract. "
^DD(69.57,.01,"DT")="2961004"
^DD(69.57,"B","TOPOGRAPHY",.01)=""
^DD(69.57,"GL",0,1,.01)=""
^DD(69.57,"IX",.01)=""
^DD(69.58,0)="SNOMED CODES SUB-FIELD^^.01^1"
^DD(69.58,0,"DT")="2970820"
^DD(69.58,0,"IX","B",69.58,.01)=""
^DD(69.58,0,"NM","SNOMED CODES")=""
^DD(69.58,0,"UP")="69.5"
^DD(69.58,.01,0)="SNOMED CODES^MF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(69.58,.01,1,0)="^.1"
^DD(69.58,.01,1,1,0)="69.58^B"
^DD(69.58,.01,1,1,1)="S ^LAB(69.5,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(69.58,.01,1,1,2)="K ^LAB(69.5,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(69.58,.01,3)="Enter any SNOMED codes to be included in the search. Enter one code per line."
^DD(69.58,.01,21,0)="^^1^1^2980609^"
^DD(69.58,.01,21,1,0)="This is a list of SNOMED code to be included in the search."
^DD(69.58,.01,"DT")="2970820"
^DD(69.58,"B","SNOMED CODES",.01)=""
^DD(69.58,"GL",0,1,.01)=""
^DD(69.58,"IX",.01)=""
^DD(69.6,0)="FIELD^^700.04^29"
^DD(69.6,0,"DDA")="N"
^DD(69.6,0,"DT")="3040224"
^DD(69.6,0,"ID","W1")="N LRX S LRX=^(0) D EN^DDIOL(""Pat ID: ""_$P(LRX,U,9)_""  DOB: ""_$$FMTE^XLFDT($P(LRX,U,3),1)_""  Sex: ""_$$EXTERNAL^DILFD(69.6,.02,"""",$P(LRX,U,2)),,""!"")"
^DD(69.6,0,"ID","W2")="N LRX S LRX=^(0) D EN^DDIOL(""Spec ID: ""_$P(LRX,U,6)_""  Manifest: ""_$P(LRX,U,14)_""  Site: ""_$$EXTERNAL^DILFD(69.6,1,"""",$P(LRX,U,4)),,""!"")"
^DD(69.6,0,"IX","AC",69.6,2)=""
^DD(69.6,0,"IX","AD",69.6,18)=""
^DD(69.6,0,"IX","AE",69.6,2)=""
^DD(69.6,0,"IX","AF",69.6,3)=""
^DD(69.6,0,"IX","B",69.6,.01)=""
^DD(69.6,0,"IX","C",69.6,.09)=""
^DD(69.6,0,"IX","D",69.6,18)=""
^DD(69.6,0,"IX","E",69.6,3)=""
^DD(69.6,0,"IX","RST",69.6,1)=""
^DD(69.6,0,"IX","RST1",69.6,3)=""
^DD(69.6,0,"NM","LAB PENDING ORDERS ENTRY")=""
^DD(69.6,0,"VR")="5.2"
^DD(69.6,0,"VRPK")="LR"
^DD(69.6,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'["","") X I $D(X) S X=$$LRPNM^LRAFUNC(X) K:$L(X)>30!($L(X)>30) X"
^DD(69.6,.01,1,0)="^.1"
^DD(69.6,.01,1,1,0)="69.6^B"
^DD(69.6,.01,1,1,1)="S ^LRO(69.6,""B"",$E(X,1,30),DA)="""""
^DD(69.6,.01,1,1,2)="K ^LRO(69.6,""B"",$E(X,1,30),DA)"
^DD(69.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(69.6,.02,0)="SEX^S^M:MALE;F:FEMALE;U:UNKNOWN;^0;2^Q"
^DD(69.6,.02,3)=""
^DD(69.6,.02,"DT")="2970209"
^DD(69.6,.03,0)="DOB^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,.03,"DT")="2961113"
^DD(69.6,.06,0)="RACE^F^^.1;1^K:$L(X)>60!($L(X)<1) X"
^DD(69.6,.06,3)="Answer must be 1-60 characters in length."
^DD(69.6,.06,21,0)="^^1^1^3040224^"
^DD(69.6,.06,21,1,0)="Stores the patient's race using HL7 code and text."
^DD(69.6,.06,"DT")="3040224"
^DD(69.6,.09,0)="PAT ID^F^^0;9^K:$L(X)>30!($L(X)<5) X"
^DD(69.6,.09,1,0)="^.1"
^DD(69.6,.09,1,1,0)="69.6^C"
^DD(69.6,.09,1,1,1)="S ^LRO(69.6,""C"",$E(X,1,30),DA)="""""
^DD(69.6,.09,1,1,2)="K ^LRO(69.6,""C"",$E(X,1,30),DA)"
^DD(69.6,.09,1,1,"DT")="2961125"
^DD(69.6,.09,3)="Answer must be 5-30 characters in length."
^DD(69.6,.09,"DT")="2991208"
^DD(69.6,1,0)="ORDERING SITE^P4'^DIC(4,^0;4^Q"
^DD(69.6,1,1,0)="^.1"
^DD(69.6,1,1,1,0)="69.6^RST^MUMPS"
^DD(69.6,1,1,1,1)="S:($P(^LRO(69.6,DA,0),U,4)'="""")&($P(^(0),U,6)'="""") ^LRO(69.6,""RST"",$P(^(0),U,4),$P(^(0),U,6),DA)="""""
^DD(69.6,1,1,1,2)="K:$P(^LRO(69.6,DA,0),U,6)'="""" ^LRO(69.6,""RST"",X,$P(^(0),U,6),DA)"
^DD(69.6,1,1,1,"%D",0)="^^6^6^2970602^"
^DD(69.6,1,1,1,"%D",1,0)="The format is as follows:"
^DD(69.6,1,1,1,"%D",2,0)="^LRO(69.6,""RST"",ORDERING SITE,ORDERING SITE UID,DA)="""""
^DD(69.6,1,1,1,"%D",3,0)=" "
^DD(69.6,1,1,1,"%D",4,0)="This cross reference is used to identify unique id's by ordering site. The"
^DD(69.6,1,1,1,"%D",5,0)="cross reference is useful for packaging multiple results for a site into"
^DD(69.6,1,1,1,"%D",6,0)="one message."
^DD(69.6,1,1,1,"DT")="2970520"
^DD(69.6,1,"DT")="2970520"
^DD(69.6,2,0)="COLLECTING SITE^P4'^DIC(4,^0;5^Q"
^DD(69.6,2,1,0)="^.1"
^DD(69.6,2,1,1,0)="69.6^AC^MUMPS"
^DD(69.6,2,1,1,1)="S ^LRO(69.6,""AC"",$P(^LRO(69.6,DA,0),U,4),$P(^(0),U,5),DA)="""""
^DD(69.6,2,1,1,2)="K ^LRO(69.6,""AC"",$P(^LRO(69.6,DA,0),U,4),$P(^(0),U,5),DA)"
^DD(69.6,2,1,1,"%D",0)="^^4^4^2970616^"
^DD(69.6,2,1,1,"%D",1,0)="This MUMPS cross reference is used to sort pending orders for an ordering"
^DD(69.6,2,1,1,"%D",2,0)="site by collecting site.  The format is shown below."
^DD(69.6,2,1,1,"%D",3,0)=" "
^DD(69.6,2,1,1,"%D",4,0)=" ^LRO(69.6,""AC"",ORDERING SITE (pointer),COLLECTING SITE (pointer),IEN) = """""
^DD(69.6,2,1,1,"DT")="2961125"
^DD(69.6,2,1,2,0)="69.6^AE^MUMPS"
^DD(69.6,2,1,2,1)="S ^LRO(69.6,""AE"",$P(^LRO(69.6,DA,0),U,5),DA)="""""
^DD(69.6,2,1,2,2)="K ^LRO(69.6,""AE"",$P(^LRO(69.6,DA,0),U,5),DA)"
^DD(69.6,2,1,2,"%D",0)="^^4^4^2970616^"
^DD(69.6,2,1,2,"%D",1,0)="This MUMPS cross reference is used to sort pending orders by collecting"
^DD(69.6,2,1,2,"%D",2,0)="site.  The format is shown below."
^DD(69.6,2,1,2,"%D",3,0)=" "
^DD(69.6,2,1,2,"%D",4,0)="   ^LRO(69.6,""AE"",COLLECTING SITE (pointer),IEN) = """""
^DD(69.6,2,1,2,"DT")="2970215"
^DD(69.6,2,3)=""
^DD(69.6,2,"DT")="2970226"
^DD(69.6,3,0)="ORDERING SITE UID^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(69.6,3,1,0)="^.1"
^DD(69.6,3,1,1,0)="69.6^E"
^DD(69.6,3,1,1,1)="S ^LRO(69.6,""E"",$E(X,1,30),DA)="""""
^DD(69.6,3,1,1,2)="K ^LRO(69.6,""E"",$E(X,1,30),DA)"
^DD(69.6,3,1,1,"DT")="3020412"
^DD(69.6,3,1,2,0)="69.6^RST1^MUMPS"
^DD(69.6,3,1,2,1)="S:($P(^LRO(69.6,DA,0),U,4)'="""")&($P(^(0),U,6)'="""") ^LRO(69.6,""RST"",$P(^(0),U,4),$P(^(0),U,6),DA)="""""
^DD(69.6,3,1,2,2)="K:$P(^LRO(69.6,DA,0),U,4)'="""" ^LRO(69.6,""RST"",$P(^(0),U,4),X,DA)"
^DD(69.6,3,1,2,"%D",0)="^^6^6^2970602^"
^DD(69.6,3,1,2,"%D",1,0)="The format is as follows:"
^DD(69.6,3,1,2,"%D",2,0)="^LRO(69.6,""RST"",ORDERING SITE,ORDERING SITE UID,DA)="""""
^DD(69.6,3,1,2,"%D",3,0)=" "
^DD(69.6,3,1,2,"%D",4,0)="This cross reference is used to identify unique id's by ordering site."
^DD(69.6,3,1,2,"%D",5,0)="The cross reference is useful for packaging multiple results for a site"
^DD(69.6,3,1,2,"%D",6,0)="into one message."
^DD(69.6,3,1,2,"DT")="2970520"
^DD(69.6,3,1,3,0)="69.6^AF^MUMPS"
^DD(69.6,3,1,3,1)="S LRX=$P(^LRO(69.6,DA,0),U,14) I $L(LRX) S ^LRO(69.6,""AD"",LRX,X,DA)="""""
^DD(69.6,3,1,3,2)="S LRX=$P(^LRO(69.6,DA,0),U,14) I $L(LRX) K ^LRO(69.6,""AD"",LRX,X,DA)"
^DD(69.6,3,1,3,"%D",0)="^^4^4^2970616^"
^DD(69.6,3,1,3,"%D",1,0)="This MUMPS cross reference is used to sort pending orders for a shipping"
^DD(69.6,3,1,3,"%D",2,0)="manifest by ordering site UID.  The format is shown below."
^DD(69.6,3,1,3,"%D",3,0)=" "
^DD(69.6,3,1,3,"%D",4,0)="   ^LRO(69.6,""AD"",SHIPPING MANIFEST,ORDERING SITE UID,IEN) = """""
^DD(69.6,3,1,3,"DT")="2970520"
^DD(69.6,3,3)="Answer must be 1-30 characters in length."
^DD(69.6,3,"DT")="3020412"
^DD(69.6,3.2,0)="ORDERING SITE ACC #^F^^0;12^K:$L(X)>20!($L(X)<1) X"
^DD(69.6,3.2,3)="Answer must be 1-20 characters in length."
^DD(69.6,3.2,"DT")="2991208"
^DD(69.6,4,0)="SPECIMEN^P61'^LAB(61,^0;7^Q"
^DD(69.6,4,"DT")="2961113"
^DD(69.6,5,0)="COLLECTION SAMPLE^P62'^LAB(62,^0;8^Q"
^DD(69.6,5,"DT")="2961113"
^DD(69.6,6,0)="SPECIMEN STATUS^*P64.061'^LAB(64.061,^0;10^S DIC(""S"")=""I $P(^(0),U,7)=""""U"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.6,6,3)=""
^DD(69.6,6,12)="ALLOWS ONLY THE SELECTION OF A STATUS"
^DD(69.6,6,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""U"""""""
^DD(69.6,6,"DT")="2970529"
^DD(69.6,7,0)="FILE REF^P67'^LRT(67,^0;11^Q"
^DD(69.6,7,"DT")="2970227"
^DD(69.6,9,0)="VISIT NUMBER^NJ8,0^^0;13^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.6,9,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(69.6,9,"DT")="2961126"
^DD(69.6,10,0)="ORDERED DATE/TIME^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,10,"DT")="2961114"
^DD(69.6,11,0)="COLLECTED DATE/TIME^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,11,"DT")="2961114"
^DD(69.6,11.1,0)="COLLECTION END DATE/TIME^D^^1;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,11.1,3)="Enter the date/time that the specimen collection ended."
^DD(69.6,11.1,21,0)="^^3^3^3010425^"
^DD(69.6,11.1,21,1,0)="Used to record the collection end date/time of specimen collection"
^DD(69.6,11.1,21,2,0)="when the specimen has a timed collection, i.e. 24 hour urine,"
^DD(69.6,11.1,21,3,0)="72 hour stool, etc."
^DD(69.6,11.1,"DT")="3010425"
^DD(69.6,12,0)="SHIPPED DATE/TIME^D^^1;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,12,"DT")="2961114"
^DD(69.6,13,0)="RECD DATE/TIME^D^^1;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,13,"DT")="2961114"
^DD(69.6,14,0)="TRANS DATE/TIME^D^^1;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,14,"DT")="2961114"
^DD(69.6,15,0)="DATA ACCEPT DATE/TIME^D^^1;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,15,"DT")="2961114"
^DD(69.6,16,0)="COMPLETE DATE/TIME^D^^1;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.6,16,"DT")="2961114"
^DD(69.6,17,0)="INCOMING MESS #^F^^1;8^K:$L(X)>15!($L(X)<1) X"
^DD(69.6,17,3)="Answer must be 1-15 characters in length."
^DD(69.6,17,"DT")="2961125"
^DD(69.6,18,0)="SHIPPING MANIFEST^F^^0;14^K:$L(X)>30!($L(X)<3) X"
^DD(69.6,18,1,0)="^.1"
^DD(69.6,18,1,1,0)="69.6^AD^MUMPS"
^DD(69.6,18,1,1,1)="S LRX=$P(^LRO(69.6,DA,0),U,6) I $L(LRX) S ^LRO(69.6,""AD"",X,LRX,DA)="""""
^DD(69.6,18,1,1,2)="S LRX=$P(^LRO(69.6,DA,0),U,6) I $L(LRX) K ^LRO(69.6,""AD"",X,LRX,DA)"
^DD(69.6,18,1,1,"%D",0)="^^4^4^2970616^"
^DD(69.6,18,1,1,"%D",1,0)="This MUMPS cross reference is used to sort pending orders for a shipping"
^DD(69.6,18,1,1,"%D",2,0)="manifest by ordering site UID.  The format is shown below."
^DD(69.6,18,1,1,"%D",3,0)=" "
^DD(69.6,18,1,1,"%D",4,0)="   ^LRO(69.6,""AD"",SHIPPING MANIFEST,ORDERING SITE UID,IEN) = """""
^DD(69.6,18,1,1,"DT")="2970517"
^DD(69.6,18,1,2,0)="69.6^D"
^DD(69.6,18,1,2,1)="S ^LRO(69.6,""D"",$E(X,1,30),DA)="""""
^DD(69.6,18,1,2,2)="K ^LRO(69.6,""D"",$E(X,1,30),DA)"
^DD(69.6,18,1,2,"%D",0)="^^1^1^2970821^"
^DD(69.6,18,1,2,"%D",1,0)=" This X-Ref is used to allow FileMan lookup on shipping manifest numbers."
^DD(69.6,18,1,2,"DT")="2970821"
^DD(69.6,18,3)="Enter in the 3-30 character invoice number of the shipped specimen."
^DD(69.6,18,21,0)="^^2^2^2970502^"
^DD(69.6,18,21,1,0)="This field should contain the invoice number from the collection labs"
^DD(69.6,18,21,2,0)="SHIPPING MANIFEST file."
^DD(69.6,18,"DT")="2970821"
^DD(69.6,20,0)="ORDERED TESTS^69.64A^^2;0"
^DD(69.6,99,0)="COMMENTS^69.699^^99;0"
^DD(69.6,700,0)="HL ENCODING CHARACTERS^F^^700;E1,5^K:$L(X)>5!($L(X)<1) X"
^DD(69.6,700,3)="Answer must be 1-5 characters in length"
^DD(69.6,700,10)="HL7 ORM order message"
^DD(69.6,700,21,0)="^^4^4^3010904^^^"
^DD(69.6,700,21,1,0)="Stores the HL7 field separator and encoding characters from the"
^DD(69.6,700,21,2,0)="HL7 message used to create this pending order entry. This allows"
^DD(69.6,700,21,3,0)="the HL7 data that is saved from the message to be processed and"
^DD(69.6,700,21,4,0)="returned to the placer."
^DD(69.6,700,"DT")="3010904"
^DD(69.6,700.02,0)="HL PID-2^F^^700.02;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(69.6,700.02,3)="Answer must be 1-250 characters in length"
^DD(69.6,700.02,10)="HL7 ORM order message"
^DD(69.6,700.02,21,0)="^^2^2^3010904^^^"
^DD(69.6,700.02,21,1,0)="Stores the placer's patient identification information from PID-2"
^DD(69.6,700.02,21,2,0)="for transmittal back to the placer when the order is completed."
^DD(69.6,700.02,"DT")="3030221"
^DD(69.6,700.04,0)="HL PID-4^F^^700.04;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(69.6,700.04,3)="Answer must be 1-250 characters in length"
^DD(69.6,700.04,10)="HL7 ORM order message"
^DD(69.6,700.04,21,0)="^^2^2^3010831^^"
^DD(69.6,700.04,21,1,0)="Stores the placer's patient identification information from PID-4"
^DD(69.6,700.04,21,2,0)="for transmittal back to the placer when the order is completed. "
^DD(69.6,700.04,"DT")="3030221"
^DD(69.6,"B","COLLECTED DATE/TIME",11)=""
^DD(69.6,"B","COLLECTING SITE",2)=""
^DD(69.6,"B","COLLECTION END DATE/TIME",11.1)=""
^DD(69.6,"B","COLLECTION SAMPLE",5)=""
^DD(69.6,"B","COMMENTS",99)=""
^DD(69.6,"B","COMPLETE DATE/TIME",16)=""
^DD(69.6,"B","DATA ACCEPT DATE/TIME",15)=""
^DD(69.6,"B","DOB",.03)=""
^DD(69.6,"B","FILE REF",7)=""
^DD(69.6,"B","HL ENCODING CHARACTERS",700)=""
^DD(69.6,"B","HL PID-2",700.02)=""
^DD(69.6,"B","HL PID-4",700.04)=""
^DD(69.6,"B","INCOMING MESS #",17)=""
^DD(69.6,"B","NAME",.01)=""
^DD(69.6,"B","ORDERED DATE/TIME",10)=""
^DD(69.6,"B","ORDERED TESTS",20)=""
^DD(69.6,"B","ORDERING SITE",1)=""
^DD(69.6,"B","ORDERING SITE ACC #",3.2)=""
^DD(69.6,"B","ORDERING SITE UID",3)=""
^DD(69.6,"B","PAT ID",.09)=""
^DD(69.6,"B","RACE",.06)=""
^DD(69.6,"B","RECD DATE/TIME",13)=""
^DD(69.6,"B","SEX",.02)=""
^DD(69.6,"B","SHIPPED DATE/TIME",12)=""
^DD(69.6,"B","SHIPPING MANIFEST",18)=""
^DD(69.6,"B","SPECIMEN",4)=""
^DD(69.6,"B","SPECIMEN STATUS",6)=""
^DD(69.6,"B","TRANS DATE/TIME",14)=""
^DD(69.6,"B","VISIT NUMBER",9)=""
^DD(69.6,"GL",0,1,.01)=""
^DD(69.6,"GL",0,2,.02)=""
^DD(69.6,"GL",0,3,.03)=""
^DD(69.6,"GL",0,4,1)=""
^DD(69.6,"GL",0,5,2)=""
^DD(69.6,"GL",0,6,3)=""
^DD(69.6,"GL",0,7,4)=""
^DD(69.6,"GL",0,8,5)=""
^DD(69.6,"GL",0,9,.09)=""
^DD(69.6,"GL",0,10,6)=""
^DD(69.6,"GL",0,11,7)=""
^DD(69.6,"GL",0,12,3.2)=""
^DD(69.6,"GL",0,13,9)=""
^DD(69.6,"GL",0,14,18)=""
^DD(69.6,"GL",.1,1,.06)=""
^DD(69.6,"GL",1,1,10)=""
^DD(69.6,"GL",1,2,11)=""
^DD(69.6,"GL",1,3,12)=""
^DD(69.6,"GL",1,4,13)=""
^DD(69.6,"GL",1,5,14)=""
^DD(69.6,"GL",1,6,15)=""
^DD(69.6,"GL",1,7,16)=""
^DD(69.6,"GL",1,8,17)=""
^DD(69.6,"GL",1,9,11.1)=""
^DD(69.6,"GL",2,0,20)=""
^DD(69.6,"GL",99,0,99)=""
^DD(69.6,"GL",700,"E1,5",700)=""
^DD(69.6,"GL",700.02,"E1,250",700.02)=""
^DD(69.6,"GL",700.04,"E1,250",700.04)=""
^DD(69.6,"IX",.01)=""
^DD(69.6,"IX",.09)=""
^DD(69.6,"IX",1)=""
^DD(69.6,"IX",2)=""
^DD(69.6,"IX",3)=""
^DD(69.6,"IX",18)=""
^DD(69.6,"RQ",.01)=""
^DD(69.6,"SB",69.64,20)=""
^DD(69.6,"SB",69.699,99)=""
^DD(69.61,0)="TOPOGRAPHY SUB-FIELD^NL^2^3"
^DD(69.61,0,"NM","TOPOGRAPHY")=""
^DD(69.61,0,"UP")="69.2"
^DD(69.61,.01,0)="TOPOGRAPHY^MP61X^LAB(61,^0;1^S DINUM=X"
^DD(69.61,.01,21,0)="^^1^1^2860201^^^^"
^DD(69.61,.01,21,1,0)="Enter here the specimen or organ/tissue that will be associated with the preselected tests to be displayed or printed."
^DD(69.61,.01,"DT")="2850604"
^DD(69.61,1,0)="TEST TO DISPLAY^69.62IPA^^1;0"
^DD(69.61,1,21,0)="^^1^1^2850910^^^^"
^DD(69.61,1,21,1,0)="Most recent results, if any, will be displayed for tests selected associated with a specific topography indicated above when that organ or tissue is submitted to anatomic pathology."
^DD(69.61,2,0)="TEST TO PRINT^69.63PAI^^2;0"
^DD(69.61,2,12)="Selects only tests with the 'CH' subscript"
^DD(69.61,2,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(69.61,"B","TEST TO DISPLAY",1)=""
^DD(69.61,"B","TEST TO PRINT",2)=""
^DD(69.61,"B","TOPOGRAPHY",.01)=""
^DD(69.61,"GL",0,1,.01)=""
^DD(69.61,"GL",1,0,1)=""
^DD(69.61,"GL",2,0,2)=""
^DD(69.61,"SB",69.62,1)=""
^DD(69.61,"SB",69.63,2)=""
^DD(69.62,0)="TEST TO DISPLAY SUB-FIELD^NL^.02^3"
^DD(69.62,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LAB(61,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(61,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(69.62,0,"NM","TEST TO DISPLAY")=""
^DD(69.62,0,"UP")="69.61"
^DD(69.62,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.62,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(69.62,.001,"DT")="2850719"
^DD(69.62,.01,0)="TEST TO DISPLAY^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.62,.01,1,0)="^.1^^0"
^DD(69.62,.01,12)="Selects only single chem, hem, tox, ser, etc. tests"
^DD(69.62,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""""
^DD(69.62,.01,21,0)="^^2^2^2851103^^^^"
^DD(69.62,.01,21,1,0)="Most recent results, if any, will be displayed for tests selected "
^DD(69.62,.01,21,2,0)=" associated with a specimen."
^DD(69.62,.01,"DT")="2890918"
^DD(69.62,.02,0)="SPECIMEN^RP61'X^LAB(61,^0;2^I $D(X) S X(1)=+^LRO(69.2,DA(2),61,DA(1),1,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,""Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test"",! K X"
^DD(69.62,.02,"DT")="2851104"
^DD(69.62,"B","NUMBER",.001)=""
^DD(69.62,"B","SPECIMEN",.02)=""
^DD(69.62,"B","TEST TO DISPLAY",.01)=""
^DD(69.62,"GL",0,1,.01)=""
^DD(69.62,"GL",0,2,.02)=""
^DD(69.62,"RQ",.02)=""
^DD(69.63,0)="TEST TO PRINT SUB-FIELD^NL^.02^3"
^DD(69.63,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LAB(61,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(61,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(69.63,0,"NM","TEST TO PRINT")=""
^DD(69.63,0,"UP")="69.61"
^DD(69.63,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.63,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(69.63,.001,"DT")="2860201"
^DD(69.63,.01,0)="TEST TO PRINT^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P(^(0),U,5)[""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.63,.01,1,0)="^.1^^0"
^DD(69.63,.01,"DT")="2890918"
^DD(69.63,.02,0)="SPECIMEN^RP61'X^LAB(61,^0;2^I $D(X) S X(1)=+^LRO(69.2,DA(2),61,DA(1),2,DA,0) I '$D(^LAB(60,X(1),1,X)) W *7,!,""Not in SITE/SPECIMEN FIELD OF LAB TEST FILE for this test"",! K X"
^DD(69.63,.02,"DT")="2860201"
^DD(69.63,"B","NUMBER",.001)=""
^DD(69.63,"B","SPECIMEN",.02)=""
^DD(69.63,"B","TEST TO PRINT",.01)=""
^DD(69.63,"GL",0,1,.01)=""
^DD(69.63,"GL",0,2,.02)=""
^DD(69.63,"RQ",.02)=""
^DD(69.64,0)="ORDERED TESTS SUB-FIELD^^700.19^16"
^DD(69.64,0,"DT")="3020503"
^DD(69.64,0,"IX","B",69.64,.01)=""
^DD(69.64,0,"IX","C",69.64,1)=""
^DD(69.64,0,"NM","ORDERED TESTS")=""
^DD(69.64,0,"UP")="69.6"
^DD(69.64,.01,0)="NLT TEST^F^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(69.64,.01,1,0)="^.1"
^DD(69.64,.01,1,1,0)="69.64^B"
^DD(69.64,.01,1,1,1)="S ^LRO(69.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(69.64,.01,1,1,2)="K ^LRO(69.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(69.64,.01,3)="Answer must be 1-60 characters in length."
^DD(69.64,.01,"DT")="2970523"
^DD(69.64,1,0)="NLT CODE^F^^0;2^K:$L(X)>15!($L(X)<5) X"
^DD(69.64,1,1,0)="^.1"
^DD(69.64,1,1,1,0)="69.64^C"
^DD(69.64,1,1,1,1)="S ^LRO(69.6,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(69.64,1,1,1,2)="K ^LRO(69.6,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(69.64,1,1,1,"DT")="2970218"
^DD(69.64,1,3)="Answer must be 5-15 characters in length."
^DD(69.64,1,"DT")="2970218"
^DD(69.64,2,0)="REMOTE TEST NAME^F^^0;3^K:$L(X)>50!($L(X)<2) X"
^DD(69.64,2,3)="Answer must be 2-50 characters in length."
^DD(69.64,2,"DT")="2970218"
^DD(69.64,3,0)="REMOTE TEST #^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(69.64,3,3)="Answer must be 1-10 characters in length."
^DD(69.64,3,"DT")="2970218"
^DD(69.64,4,0)="REMOTE URGENCY^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(69.64,4,3)="Answer must be 1-10 characters in length."
^DD(69.64,4,10)="HL7 ORM order message"
^DD(69.64,4,21,0)="^^1^1^3010831^"
^DD(69.64,4,21,1,0)="Stores the HL7 test urgency from the placer's order message."
^DD(69.64,4,"DT")="3010904"
^DD(69.64,5,0)="TEST STATUS^*P64.061'^LAB(64.061,^0;6^S DIC(""S"")=""I $P(^(0),U,7)=""""U"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.64,5,3)=""
^DD(69.64,5,12)="ALLOWS ONLY THE SELECTION OF STATUS"
^DD(69.64,5,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""U"""""""
^DD(69.64,5,"DT")="2970529"
^DD(69.64,7,0)="OUT GOING MESS #^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(69.64,7,3)="Answer must be 1-20 characters in length."
^DD(69.64,7,"DT")="2970218"
^DD(69.64,8,0)="ACCESSION D/T^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(69.64,8,"DT")="2970518"
^DD(69.64,9,0)="HOST UID^F^^0;9^K:$L(X)>15!($L(X)<5) X"
^DD(69.64,9,3)="Answer must be 5-15 characters in length."
^DD(69.64,9,"DT")="2970518"
^DD(69.64,10,0)="COMPLETE D/T^D^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(69.64,10,"DT")="2970519"
^DD(69.64,11,0)="HOST TEST^P60'^LAB(60,^0;11^Q"
^DD(69.64,11,3)="Enter the host's laboratory test which corresponds to the remote's ordered test."
^DD(69.64,11,21,0)="^^6^6^3010904^^^"
^DD(69.64,11,21,1,0)="This field stores the host's file 60 test which should be ordered"
^DD(69.64,11,21,2,0)="when processing referral lab orders. It's built by the LEDI software"
^DD(69.64,11,21,3,0)="when processing the HL7 ORM order message. Based on the test code"
^DD(69.64,11,21,4,0)="from the message and the corresponding shipping configuration "
^DD(69.64,11,21,5,0)="associated with the placer, the appropriate host test is selected"
^DD(69.64,11,21,6,0)="and stored in this field."
^DD(69.64,11,"DT")="3010904"
^DD(69.64,12,0)="HOST URGENCY^*P62.05'^LAB(62.05,^0;12^S DIC(""S"")=""I Y<50"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.64,12,3)="Enter the urgency to order this test at the host site."
^DD(69.64,12,12)="Only non-workload urgencies can be selected."
^DD(69.64,12,12.1)="S DIC(""S"")=""I Y<50"""
^DD(69.64,12,21,0)="^^5^5^3010904^^^^"
^DD(69.64,12,21,1,0)="This field stores the host's local urgency which should be used "
^DD(69.64,12,21,2,0)="when processing referral lab orders. It's built by the LEDI software"
^DD(69.64,12,21,3,0)="when processing the HL7 ORM order message. Based on the HL7 urgency"
^DD(69.64,12,21,4,0)="from the message and the corresponding shipping configuration the"
^DD(69.64,12,21,5,0)="appropriate host urgency for the order is determined."
^DD(69.64,12,"DT")="3010904"
^DD(69.64,13,0)="ORDERING PROVIDER^F^^1;1^K:$L(X)>40!($L(X)<1) X"
^DD(69.64,13,3)="Answer must be 1-40 characters in length."
^DD(69.64,13,10)="HL7 ORM order message"
^DD(69.64,13,21,0)="^^3^3^3010904^^^"
^DD(69.64,13,21,1,0)="The name of the provider ordering this test. It is derived from"
^DD(69.64,13,21,2,0)="the HL7 ORM order message and contains the human readable name"
^DD(69.64,13,21,3,0)="of the ordering provider."
^DD(69.64,13,"DT")="3010904"
^DD(69.64,700.04,0)="HL OBR-4^F^^700.04;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(69.64,700.04,.1)="UNIVERSAL SERVICE ID"
^DD(69.64,700.04,3)="Answer must be 1-200 characters in length"
^DD(69.64,700.04,10)="HL7 ORM order message"
^DD(69.64,700.04,21,0)="^^1^1^3010904^^^"
^DD(69.64,700.04,21,1,0)="The placer's specimen identifier from the HL7 ORM order message."
^DD(69.64,700.04,"DT")="3010904"
^DD(69.64,700.18,0)="HL OBR-18^F^^700.18;E1,60^K:$L(X)>60!($L(X)<1) X"
^DD(69.64,700.18,.1)="PLACER FIELD 1"
^DD(69.64,700.18,3)="Answer must be 1-60 characters in length"
^DD(69.64,700.18,10)="HL7 ORM order message"
^DD(69.64,700.18,21,0)="^^5^5^3010904^^"
^DD(69.64,700.18,21,1,0)="Stores the placer's field #1 from the OBR segment of the HL7"
^DD(69.64,700.18,21,2,0)="ORM order message. This field is returned to the placer when"
^DD(69.64,700.18,21,3,0)="the HL7 ORU result message is created and transmitted to"
^DD(69.64,700.18,21,4,0)="the placer. The HL7 standard requires that the filler of an"
^DD(69.64,700.18,21,5,0)="order return to the placer the value of this field."
^DD(69.64,700.18,"DT")="3010904"
^DD(69.64,700.19,0)="HL OBR-19^F^^700.19;E1,60^K:$L(X)>60!($L(X)<1) X"
^DD(69.64,700.19,.1)="PLACER FIELD 2"
^DD(69.64,700.19,3)="Answer must be 1-60 characters in length"
^DD(69.64,700.19,10)="HL7 ORM order message"
^DD(69.64,700.19,21,0)="^^5^5^3010904^^"
^DD(69.64,700.19,21,1,0)="Stores the placer's field #2 from the OBR segment of the HL7"
^DD(69.64,700.19,21,2,0)="ORM order message. This field is returned to the placer when"
^DD(69.64,700.19,21,3,0)="the HL7 ORU result message is created and transmitted to"
^DD(69.64,700.19,21,4,0)="the placer. The HL7 standard requires that the filler of an"
^DD(69.64,700.19,21,5,0)="order return to the placer the value of this field."
^DD(69.64,700.19,"DT")="3010904"
^DD(69.64,"B","ACCESSION D/T",8)=""
^DD(69.64,"B","COMPLETE D/T",10)=""
^DD(69.64,"B","HL OBR-18",700.18)=""
^DD(69.64,"B","HL OBR-19",700.19)=""
^DD(69.64,"B","HL OBR-4",700.04)=""
^DD(69.64,"B","HOST TEST",11)=""
^DD(69.64,"B","HOST UID",9)=""
^DD(69.64,"B","HOST URGENCY",12)=""
^DD(69.64,"B","NLT CODE",1)=""
^DD(69.64,"B","NLT TEST",.01)=""
^DD(69.64,"B","ORDERING PROVIDER",13)=""
^DD(69.64,"B","OUT GOING MESS #",7)=""
^DD(69.64,"B","PLACER FIELD 1",700.18)="1"
^DD(69.64,"B","PLACER FIELD 2",700.19)="1"
^DD(69.64,"B","REMOTE TEST #",3)=""
^DD(69.64,"B","REMOTE TEST NAME",2)=""
^DD(69.64,"B","REMOTE URGENCY",4)=""
^DD(69.64,"B","TEST STATUS",5)=""
^DD(69.64,"B","UNIVERSAL SERVICE ID",700.04)="1"
^DD(69.64,"GL",0,1,.01)=""
^DD(69.64,"GL",0,2,1)=""
^DD(69.64,"GL",0,3,2)=""
^DD(69.64,"GL",0,4,3)=""
^DD(69.64,"GL",0,5,4)=""
^DD(69.64,"GL",0,6,5)=""
^DD(69.64,"GL",0,7,8)=""
^DD(69.64,"GL",0,8,7)=""
^DD(69.64,"GL",0,9,9)=""
^DD(69.64,"GL",0,10,10)=""
^DD(69.64,"GL",0,11,11)=""
^DD(69.64,"GL",0,12,12)=""
^DD(69.64,"GL",1,1,13)=""
^DD(69.64,"GL",700.04,"E1,200",700.04)=""
^DD(69.64,"GL",700.18,"E1,60",700.18)=""
^DD(69.64,"GL",700.19,"E1,60",700.19)=""
^DD(69.64,"IX",.01)=""
^DD(69.64,"IX",1)=""
^DD(69.699,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(69.699,0,"NM","COMMENTS")=""
^DD(69.699,0,"UP")="69.6"
^DD(69.699,.01,0)="COMMENTS^W^^0;1^Q"
^DD(69.699,.01,"DT")="2961125"
^DD(69.699,"B","COMMENTS",.01)=""
^DD(69.699,"GL",0,1,.01)=""
^DD(69.9,0)="FIELD^^619^85"
^DD(69.9,0,"DDA")="N"
^DD(69.9,0,"DT")="2940913"
^DD(69.9,0,"IX","AC",69.9,.01)=""
^DD(69.9,0,"IX","AXX",69.9,501)=""
^DD(69.9,0,"IX","AXX1",69.9,504)=""
^DD(69.9,0,"IX","AXX2",69.9,502)=""
^DD(69.9,0,"IX","AXX3",69.9,503)=""
^DD(69.9,0,"IX","AXX5",69.9,500)=""
^DD(69.9,0,"IX","AXX6",69.9,505)=""
^DD(69.9,0,"IX","AXX7",69.9,506)=""
^DD(69.9,0,"IX","AXX8",69.9,507)=""
^DD(69.9,0,"IX","B",69.9,.01)=""
^DD(69.9,0,"IX","LRCNVRTED",69.9,.01)=""
^DD(69.9,0,"NM","LABORATORY SITE")=""
^DD(69.9,0,"VR")="5.2"
^DD(69.9,.01,0)="SITE NAME^RFX^^0;1^S:'$D(^LAB(69.9,1,0)) DINUM=1 K:$D(^LAB(69.9,1,0)) X"
^DD(69.9,.01,1,0)="^.1"
^DD(69.9,.01,1,1,0)="69.9^B"
^DD(69.9,.01,1,1,1)="S ^LAB(69.9,""B"",$E(X,1,30),DA)="""""
^DD(69.9,.01,1,1,2)="K ^LAB(69.9,""B"",$E(X,1,30),DA)"
^DD(69.9,.01,1,2,0)="69.9^AC^MUMPS"
^DD(69.9,.01,1,2,1)="S:'$D(^LAB(69.9,1,1)) ^(1)="""" S:'$D(^(2)) ^(2)="""" S:'$D(^(3)) ^(3)="""" S:'$D(^(5)) ^(5)="""""
^DD(69.9,.01,1,2,2)="Q"
^DD(69.9,.01,1,3,0)="69.9^LRCNVRTED^MUMPS"
^DD(69.9,.01,1,3,1)="Q"
^DD(69.9,.01,1,3,2)="Q"
^DD(69.9,.01,1,3,"%D",0)="^^3^3^2971022^"
^DD(69.9,.01,1,3,"%D",1,0)="Set when the CPRS conversion is finished."
^DD(69.9,.01,1,3,"%D",2,0)="The node set is ^LRO(69,""LRCNVRTED"") since the conversion is on"
^DD(69.9,.01,1,3,"%D",3,0)="file 69."
^DD(69.9,.01,1,3,"DT")="2971022"
^DD(69.9,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(69.9,.01,21,0)="^^1^1^2851001^^^^"
^DD(69.9,.01,21,1,0)="There can be only one entry in this file."
^DD(69.9,.01,"DT")="2971022"
^DD(69.9,.18,0)="BLOOD DONOR UNIT ID PREFIX^NJ1,0^^0;18^K:+X'=X!(X>3)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,.18,3)="Type a Number between 1 and 3"
^DD(69.9,.18,4)="W ?5,""Ex. Donor ID:ABC12345 Eye readable prefix:ABC # of characters=3"""
^DD(69.9,.18,21,0)="^^4^4^2890119^^^^"
^DD(69.9,.18,21,1,0)="The number of eye readable (non bar coded) characters"
^DD(69.9,.18,21,2,0)=" as a prefix in the blood donor unit ID."
^DD(69.9,.18,21,3,0)=" A x-ref will be set ^DD(65.54,4,1,3,1) for the unit ID to exclude"
^DD(69.9,.18,21,4,0)=" this prefix."
^DD(69.9,.18,"DT")="2890117"
^DD(69.9,.8,0)="DEFAULT LAB OOS LOCATION^*P44'^SC(^.8;1^S DIC(""S"")=""I $P(^(0),U)[""""LAB DIV"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.9,.8,12)="All valid locations are namespaced"
^DD(69.9,.8,12.1)="S DIC(""S"")=""I $P(^(0),U)[""""LAB DIV"""""""
^DD(69.9,.8,21,0)="^^7^7^2961024^"
^DD(69.9,.8,21,1,0)="Occassion Of Service (OOS)"
^DD(69.9,.8,21,2,0)=" "
^DD(69.9,.8,21,3,0)="This field contains the default laboratory OOS location use to capture"
^DD(69.9,.8,21,4,0)="NPCDB workload. This field should contain the primary institution's"
^DD(69.9,.8,21,5,0)="laboratory OOS location. This location is used whenever a given Accession"
^DD(69.9,.8,21,6,0)="Area does not have a specific LAB OOS LOCATION assigned to capture NPCDB"
^DD(69.9,.8,21,7,0)="workload."
^DD(69.9,.8,"DEL",1,0)="I 1"
^DD(69.9,.8,"DT")="2961024"
^DD(69.9,3,0)="DEFAULT INSTITUTION^P4'^DIC(4,^10;1^Q"
^DD(69.9,3,21,0)="^.001^8^8^3030430^^^^"
^DD(69.9,3,21,1,0)="  Certain workload functions are performed in the background, that is"
^DD(69.9,3,21,2,0)="a user is not identified. In this circumstance, the system has no way"
^DD(69.9,3,21,3,0)="of identifying the institution the workload should be credited. This"
^DD(69.9,3,21,4,0)="field is the default value to be used by the system."
^DD(69.9,3,21,5,0)="  Enter the institution which should be considered the primary reporting"
^DD(69.9,3,21,6,0)="institution. If this site is a multidivisional site, enter the parent"
^DD(69.9,3,21,7,0)="institution in this field."
^DD(69.9,3,21,8,0)="  If this field is not filled in the Mailman domain value will be used."
^DD(69.9,3,"DT")="2910410"
^DD(69.9,5.1,0)="IMMED LAB COLLECT DIV.^69.9006P^^7;0"
^DD(69.9,5.1,21,0)="^^5^5^2931107^^^"
^DD(69.9,5.1,21,1,0)=" If your laboratory provides specimen collection service outside"
^DD(69.9,5.1,21,2,0)="of the normal routine collection, use this subfile to enter data about"
^DD(69.9,5.1,21,3,0)="your particular site. The parameters of Immediate Lab Collect define one"
^DD(69.9,5.1,21,4,0)="institution. Therefore, multidivisional sites can have different parameters"
^DD(69.9,5.1,21,5,0)="for each division."
^DD(69.9,5.1,"DT")="2920304"
^DD(69.9,8,0)="BLOOD BANK DEFAULTS^69.98A^^8;0"
^DD(69.9,8,21,0)="^^1^1^2951201^^^"
^DD(69.9,8,21,1,0)="Defaults for Donor, Inventory, and Patient portions of the blood bank."
^DD(69.9,8.1,0)="BLOOD BANK DIVISION^69.981PA^^8.1;0"
^DD(69.9,8.1,21,0)="^^2^2^2960725^^"
^DD(69.9,8.1,21,1,0)="  Indicate here which institution will be considered primary for this"
^DD(69.9,8.1,21,2,0)="site."
^DD(69.9,8.1,"DT")="2960725"
^DD(69.9,9,0)="HOSPITAL SITE^69.99P^^9;0"
^DD(69.9,9,21,0)="^^2^2^2900829^^"
^DD(69.9,9,21,1,0)="This is where parameters are selected for sites throughout the hospital"
^DD(69.9,9,21,2,0)="to control various aspects of lab order entry through OE/RR."
^DD(69.9,9,"DT")="2910418"
^DD(69.9,10,0)="*ASK PROVIDER^SI^1:YES;0:NO;^0;2^Q"
^DD(69.9,10,21,0)="^^3^3^2940528^^^^"
^DD(69.9,10,21,1,0)=" Because of OERR Alert generation, a provider must be entered for all ordered"
^DD(69.9,10,21,2,0)="test. Therefore this field is no longer active. It will be deleted in a"
^DD(69.9,10,21,3,0)="later version."
^DD(69.9,10,"DT")="2940528"
^DD(69.9,11,0)="QUE CH,HE,etc VERIFIED TEST(S)^S^1:YES;0:NO;^0;3^Q"
^DD(69.9,11,21,0)="^^1^1^2841121^^"
^DD(69.9,11,21,1,0)="If the verified test notice is to be automatically queued, this field must contain YES."
^DD(69.9,11.1,0)="ASK FROZEN SECTION^S^1:YES;0:NO;1:yes;0:no;^11;1^Q"
^DD(69.9,11.1,21,0)="^^2^2^2921202^"
^DD(69.9,11.1,21,1,0)="If frozen sections are to be put in a separate field (DD(63.08,1.3)"
^DD(69.9,11.1,21,2,0)=" 'YES' should be entered."
^DD(69.9,11.1,"DT")="2921202"
^DD(69.9,11.2,0)="ASK SURG PATH DIAGNOSIS^S^1:YES;0:NO;1:yes;0:no;^11;2^Q"
^DD(69.9,11.2,21,0)="^^2^2^2930715^"
^DD(69.9,11.2,21,1,0)="If diagnoses are to be put in a separate field 'YES' should "
^DD(69.9,11.2,21,2,0)="be entered."
^DD(69.9,11.2,"DT")="2930715"
^DD(69.9,11.3,0)="ASK CYTOPATH DIAGNOSIS^S^1:YES;0:NO;1:yes;0:no;^11;3^Q"
^DD(69.9,11.3,3)=""
^DD(69.9,11.3,21,0)="^^2^2^2930715^"
^DD(69.9,11.3,21,1,0)="If diagnoses are to be put in a separate field 'YES' should "
^DD(69.9,11.3,21,2,0)="be entered."
^DD(69.9,11.3,"DT")="2930715"
^DD(69.9,11.4,0)="ASK EM DIAGNOSIS^S^1:YES;0:NO;1:yes;0:no;^11;4^Q"
^DD(69.9,11.4,3)=""
^DD(69.9,11.4,21,0)="^^2^2^2930715^"
^DD(69.9,11.4,21,1,0)="If diagnoses are to be put in a separate field 'YES' should "
^DD(69.9,11.4,21,2,0)="be entered."
^DD(69.9,11.4,"DT")="2930715"
^DD(69.9,11.5,0)="QUE MICRO VERIFIED TESTS(S)^S^1:YES;0:NO;^0;5^Q"
^DD(69.9,11.5,21,0)="^^2^2^2851001^"
^DD(69.9,11.5,21,1,0)="If technologist approved work is to be automatically queued, this field"
^DD(69.9,11.5,21,2,0)="must contain YES."
^DD(69.9,11.5,"DT")="2850730"
^DD(69.9,12,0)="PRINT LABELS^S^1:YES;0:NO;^0;4^Q"
^DD(69.9,12,21,0)="^^1^1^2841121^"
^DD(69.9,12,21,1,0)="If you want labels automatically printed, this field must contain YES."
^DD(69.9,13,0)="ALLOW LAB TO ADD PATIENTS^RS^0:NO;^0;6^Q"
^DD(69.9,13,21,0)="^^2^2^3030902^^^^"
^DD(69.9,13,21,1,0)="This field is not functional.  It is no longer used to allow Lab to add "
^DD(69.9,13,21,2,0)="patients to the Patient file.    "
^DD(69.9,13,"DT")="3030902"
^DD(69.9,14,0)="CHOICE OF ACCESSION NUMBERS^S^1:ALLOWED;0:NOT ALLOWED;^0;8^Q"
^DD(69.9,14,21,0)="^^1^1^2841121^^"
^DD(69.9,14,21,1,0)="If you are running this system in parallel with another, setting this field to YES enables you to change or choose accession numbers.  When actually running, this field should be set to NO."
^DD(69.9,14,"DT")="2840918"
^DD(69.9,15,0)="GRACE PERIOD FOR ORDERS^RNJ3,0^^0;9^K:+X'=X!(X>999)!(X<7)!(X?.E1"".""1N.N) X"
^DD(69.9,15,3)="Enter the number of days back to keep inactive orders (# 7 to 999)"
^DD(69.9,15,21,0)="^^1^1^2841121^"
^DD(69.9,15,21,1,0)="This is the number of days that inactive orders will be kept.  (Minimum is 7 days.)"
^DD(69.9,15,"DT")="2840921"
^DD(69.9,16,0)="GRACE PERIOD FOR CUMULATIVE^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,16,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(69.9,16,21,0)="^^5^5^2880803^^^^"
^DD(69.9,16,21,1,0)="The cumulative report (^LAC global) will be purged automatically when"
^DD(69.9,16,21,2,0)="the cumulative report is run.  Inpatient data is not purged.  Patients"
^DD(69.9,16,21,3,0)="currently enrolled in clinics are not purged.  All other data (inactive"
^DD(69.9,16,21,4,0)="for the number of days specified by this field) is purged."
^DD(69.9,16,21,5,0)="No entry means that no data will be purged."
^DD(69.9,16,"DT")="2861008"
^DD(69.9,17,0)="WKLD STATS ON^S^1:YES;^0;14^Q"
^DD(69.9,17,3)="Enter YES to have WKLD Workload statistics collected."
^DD(69.9,17,21,0)="^^11^11^2940317^^^^"
^DD(69.9,17,21,1,0)="To have WKLD statistics collected at the time of accessioning and"
^DD(69.9,17,21,2,0)="verification, set this field to YES."
^DD(69.9,17,21,3,0)="  This is the primary switch to turn on workload collection. This"
^DD(69.9,17,21,4,0)="entry turns off the entire function."
^DD(69.9,17,21,5,0)="  There is also a secondary switch (field) which allow each accession"
^DD(69.9,17,21,6,0)="area to be turned on independently. It must also be answered yes to"
^DD(69.9,17,21,7,0)="allow workload data collection in that specific accession area. "
^DD(69.9,17,21,8,0)=" It is located in the ACCESSION AREA file (#68), WORKLOAD ON field"
^DD(69.9,17,21,9,0)="(#10)."
^DD(69.9,17,21,10,0)="  NOTE: BOTH FIELDS MUST BE ANSWERED YES TO ALLOW WORKLOAD DATA TO"
^DD(69.9,17,21,11,0)="BE ACCUMULATED."
^DD(69.9,17,"DT")="2920211"
^DD(69.9,17.1,0)="*AMIS/CAP DEFAULT^S^1:YES;^0;15^Q"
^DD(69.9,17.1,21,0)="^^2^2^2940317^^^^"
^DD(69.9,17.1,21,1,0)=" This field is marked for deletion. It is no longer used after version"
^DD(69.9,17.1,21,2,0)="5.2 Workload release."
^DD(69.9,17.1,21,3,0)="default AMIS/CAP code for each test."
^DD(69.9,17.1,21,4,0)=" "
^DD(69.9,17.1,21,5,0)="A YES entry means that the defaults setup in file 60 will be used"
^DD(69.9,17.1,21,6,0)="and no extra AMIS/CAP related questions are asked at the time of verification"
^DD(69.9,17.1,21,7,0)="unless you have indicated in the field ASK AMIS/CAP CODES in file 60 that"
^DD(69.9,17.1,21,8,0)="the specific test on the accession being verified should have the"
^DD(69.9,17.1,21,9,0)="AMIS/CAP code questions asked."
^DD(69.9,17.1,"DT")="2920302"
^DD(69.9,18,0)="*GRACE PERIOD FOR STATISTICS^NJ3,0^^1;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.9,18,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(69.9,18,21,0)="^^2^2^2921106^^^^"
^DD(69.9,18,21,1,0)="NOTE: THIS FIELD NO LONGER SERVES THIS FUNCTION. IT WILL BE DELETED"
^DD(69.9,18,21,2,0)="IN 18 MONTHS AFTER THE RELEASE OF V 5.2."
^DD(69.9,18,21,3,0)="field to determine the number of days to go back to before purging"
^DD(69.9,18,21,4,0)="data from these files.  Allow enough time for you to get your"
^DD(69.9,18,21,5,0)="monthly or quarterly lab statistics reports."
^DD(69.9,18,"DT")="2921106"
^DD(69.9,19,0)="GRACE PERIOD FOR INACTIVITY^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,19,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(69.9,19,21,0)="^^3^3^2890801^"
^DD(69.9,19,21,1,0)="Enter the number of days that a patient has to be inactive (no lab orders),"
^DD(69.9,19,21,2,0)="for the ""Force cumulative data to permanent page"" option to identify the"
^DD(69.9,19,21,3,0)="patient data as qualified to be forced to permanent."
^DD(69.9,19,"DT")="2880803"
^DD(69.9,20,0)="DAYS BACK FOR DELTA CHECKS^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.9,20,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(69.9,20,21,0)="^^1^1^2841121^^"
^DD(69.9,20,21,1,0)="The number of days going backwards to use for delta checking."
^DD(69.9,20,"DT")="2840911"
^DD(69.9,95.3,0)="LOINC HISTORICAL MAPPING DATE^D^^95;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.9,95.3,21,0)="^.001^3^3^3020215^^"
^DD(69.9,95.3,21,1,0)="This is the date that the LOINC Historical mapping was completed. The LAB "
^DD(69.9,95.3,21,2,0)="DATA LOINC Mapping [LR LOINC HISTORICAL MAPPER 63] option populates this "
^DD(69.9,95.3,21,3,0)="field after it has successfully completed all mapping."
^DD(69.9,95.3,23,0)="^.001^2^2^3020215^^^"
^DD(69.9,95.3,23,1,0)="The Hepatitis C registry uses this field to determine if historical LOINC "
^DD(69.9,95.3,23,2,0)="mapping has been completed."
^DD(69.9,95.3,"DT")="3020212"
^DD(69.9,95.31,0)="LOINC HISTORICAL LAST LRDFN^NJ7,0^^95;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,95.31,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(69.9,95.31,21,0)="^^2^2^3020212^"
^DD(69.9,95.31,21,1,0)="This field contains the last LRDFN that was mapped by the LAB "
^DD(69.9,95.31,21,2,0)="DATA LOINC Mapping [LR LOINC HISTORICAL MAPPER 63] option."
^DD(69.9,95.31,"DT")="3020212"
^DD(69.9,100,0)="DEFAULT BLOOD SPECIMEN^RP61'^LAB(61,^1;1^Q"
^DD(69.9,100,21,0)="^^1^1^2841121^"
^DD(69.9,100,21,1,0)="The blood specimen that will be used as a default choice."
^DD(69.9,101,0)="DEFAULT URINE SPECIMEN^RP61'^LAB(61,^1;2^Q"
^DD(69.9,101,3)=""
^DD(69.9,101,21,0)="^^1^1^2841129^"
^DD(69.9,101,21,1,0)="The urine specimen that will be used as a default choice."
^DD(69.9,102,0)="DEFAULT SERUM SPECIMEN^RP61'^LAB(61,^1;3^Q"
^DD(69.9,102,3)=""
^DD(69.9,102,21,0)="^^1^1^2841121^"
^DD(69.9,102,21,1,0)="The serum specimen that will be used as a default choice."
^DD(69.9,103,0)="DEFAULT PLASMA SPECIMEN^RP61'^LAB(61,^1;4^Q"
^DD(69.9,103,3)=""
^DD(69.9,103,21,0)="^^1^1^2841121^"
^DD(69.9,103,21,1,0)="The plasma specimen that will be used as a default choice."
^DD(69.9,104,0)="DEFAULT UNKNOWN SPECIMEN^RP61'^LAB(61,^1;5^Q"
^DD(69.9,104,3)=""
^DD(69.9,104,21,0)="^^1^1^2841121^"
^DD(69.9,104,21,1,0)="When the specimen is unknown, this is the specimen that will be chosen."
^DD(69.9,150.1,0)="DEFAULT NATURE OF ORDER^*P100.02'^ORD(100.02,^OR;1^S DIC(""S"")=""I '$$SCREEN^XTID(100.02,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.9,150.1,3)="Enter the default nature of order for the package."
^DD(69.9,150.1,12)="Data Standardization of NATURE OF ORDER file #100.02"
^DD(69.9,150.1,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.02,,Y_"""","""")"""
^DD(69.9,150.1,21,0)="^.001^2^2^3060210^^^^"
^DD(69.9,150.1,21,1,0)="This is the default Nature of order for orders placed with Lab options."
^DD(69.9,150.1,21,2,0)="This field points to OE/RR's Nature of order file."
^DD(69.9,150.1,"DT")="3060210"
^DD(69.9,150.2,0)="DEFAULT DC REASON^*P100.03'^ORD(100.03,^OR;2^S DIC(""S"")=""I '$$SCREEN^XTID(100.03,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.9,150.2,3)="Enter the Default DC Reason for the package."
^DD(69.9,150.2,12)="Data Standardization of ORDER REASON #100.03"
^DD(69.9,150.2,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.03,,Y_"""","""")"""
^DD(69.9,150.2,21,0)="^.001^2^2^3060207^^^"
^DD(69.9,150.2,21,1,0)="This is the default DC Reason used when orders are canceled or deleted"
^DD(69.9,150.2,21,2,0)="with Lab options.  This field points to OE/RR's Order Reason file."
^DD(69.9,150.2,"DT")="3060207"
^DD(69.9,200,0)="MICRO SURVEY REPORT DEFAULTS^69.9002S^^MIS;0"
^DD(69.9,200,21,0)="^^2^2^2930327^"
^DD(69.9,200,21,1,0)="  This field contains the default parameters used to print Micro survey"
^DD(69.9,200,21,2,0)="report."
^DD(69.9,201,0)="MICRO TREND REPORT DEFAULTS^69.9005S^^MIT;0"
^DD(69.9,201,21,0)="^^1^1^2930327^"
^DD(69.9,201,21,1,0)=" This field contains the default parameters for the Micro Trend Report."
^DD(69.9,202,0)="MICRO REPORT FORMAT^S^I:INTERPRETATION ONLY;R:RESULT ONLY;B:BOTH INTERPRETATION AND RESULT;^0;11^Q"
^DD(69.9,202,21,0)="^^4^4^2860609^^^"
^DD(69.9,202,21,1,0)="The output of the microbiology patient's report can display antibiotic"
^DD(69.9,202,21,2,0)="susceptiblities as:  I - interpretation only,  R - results only, or"
^DD(69.9,202,21,3,0)="B - both interpretation and results.  No entry will default to"
^DD(69.9,202,21,4,0)="interpretation only."
^DD(69.9,202,"DT")="2860606"
^DD(69.9,203,0)="MICRO DEFAULT TEMPLATE^FX^^1;10^K:$L(X)>30!($L(X)<2) X I $D(X) X:X=""?"" ^DD(69.9,203,4) Q:X=""?""  S DIC(0)=""EQM"",DIC=""^DIE("",DIC(""S"")=""I $P(^(0),U,4)=63"" D ^DIC S X=$P(Y,U,2) K:Y<1 X"
^DD(69.9,203,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.9,203,4)="S X=""?"",DIC(0)=""Q"",DIC=""^DIE("",DIC(""S"")=""I $P(^(0),U,4)=63"",D=""B"" K DO D DQ^DICQ K DIC S DIC=DIE D DO^DIC1"
^DD(69.9,203,21,0)="^^3^3^2870714^^"
^DD(69.9,203,21,1,0)="Contains the edit template name that will be used for entering"
^DD(69.9,203,21,2,0)="antimicrobial results for those organisms that do not have a"
^DD(69.9,203,21,3,0)="SUSCEPTIBILITY EDIT TEMPLATE defined in the ETIOLOGY file."
^DD(69.9,203,"DT")="2870714"
^DD(69.9,204,0)="MICRO OTHER TEMPLATE^FX^^1;11^K:$L(X)>30!($L(X)<2) X I $D(X) X:X=""?"" ^DD(69.9,204,4) Q:X=""?""  S DIC(0)=""EQM"",DIC=""^DIE("",DIC(""S"")=""I $P(^(0),U,4)=63"" D ^DIC S X=$P(Y,U,2) K:Y<1 X"
^DD(69.9,204,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.9,204,4)="S X=""?"",DIC(0)=""Q"",DIC=""^DIE("",DIC(""S"")=""I $P(^(0),U,4)=63"",D=""B"" K DO D DQ^DICQ K DIC S DIC=DIE D DO^DIC1"
^DD(69.9,204,21,0)="^^4^4^2870714^^"
^DD(69.9,204,21,1,0)="Contains the edit template name that will be used for entering "
^DD(69.9,204,21,2,0)="antimicobial results that are not on the template specific for the "
^DD(69.9,204,21,3,0)="organism.  Generally, this template will include all antibiotic fields "
^DD(69.9,204,21,4,0)="being reported."
^DD(69.9,204,"DT")="2870714"
^DD(69.9,210,0)="DOWNLOAD FULL DATA^S^0:NO;1:YES;^1;7^Q"
^DD(69.9,210,3)="Answer y to pass all available data to instrument.  No to pass only required data."
^DD(69.9,210,21,0)="^^9^9^2900818^^^"
^DD(69.9,210,21,1,0)="This field is used to determine how much data is to be downloaded to"
^DD(69.9,210,21,2,0)="an instrument. If this field is set to download full data it will send"
^DD(69.9,210,21,3,0)="data for all those instrument fields we have data for.  A caution when"
^DD(69.9,210,21,4,0)="setting this field is that the more data sent to the instrument the"
^DD(69.9,210,21,5,0)="larger the records get and the longer it takes to complete a download."
^DD(69.9,210,21,6,0)="Also if there is limited disk space on the instrument you may  overrun"
^DD(69.9,210,21,7,0)="the space available causing the download to abort before you have all"
^DD(69.9,210,21,8,0)="the data downloaded.  This may cause the instrument to stop its"
^DD(69.9,210,21,9,0)="processing until you correct the problem."
^DD(69.9,210,"DT")="2880707"
^DD(69.9,300,0)="HOLD-OVER SORT URGENCY^RNJ4,1^^3;1^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""2N.N) X"
^DD(69.9,300,3)="ENTER A NUMBER BETWEEN 0 AND 10 THAT IS THE URGENCY OF HOLD-OVERS IN BUILDING A LOAD LIST. 0 IS BEFORE STAT, 10 AFTER ROUTINE, SEE THE URGENCY FILE FOR NUMBERS."
^DD(69.9,300,21,0)="^^1^1^2841121^"
^DD(69.9,300,21,1,0)="This is the urgency of hold-overs in building a load list.  '0' is before STAT, and '10' is after ROUTINE.  Choose from the numbers listed in the URGENCY file."
^DD(69.9,300,"DT")="2840705"
^DD(69.9,301,0)="DEFAULT URGENCY^RP62.05'^LAB(62.05,^3;2^Q"
^DD(69.9,301,21,0)="^^1^1^2841129^"
^DD(69.9,301,21,1,0)="The urgency that will be used as the default choice, usually Routine."
^DD(69.9,301,"DT")="2840705"
^DD(69.9,302,0)="LABEL TYPE^S^1:2X5 UNEVEN;2:ORDER # FIRST;3:MEDLAB;4:SITE FILE;5:SITE DEVELOPED (VAF 10-1392);6:INTERMEC 1X3;^3;3^Q"
^DD(69.9,302,3)="LEAVE NULL TO GET THE DEFAULT LABEL"
^DD(69.9,302,21,0)="^^4^4^2920826^^^^"
^DD(69.9,302,21,1,0)="Determines the format of the label that is printed.  Choice of predefined"
^DD(69.9,302,21,2,0)=" default label (Null), 2x5 uneven (SLC special #1), or Order # first (#2),"
^DD(69.9,302,21,3,0)=" Medlab 7 part (#3), Site file label (routine LRLABEL4, #4), Site"
^DD(69.9,302,21,4,0)=" developed (VAF 10-1392) label (routine LRLABEL5, #5)."
^DD(69.9,302,21,5,0)="Intermec printer, label stock No. 049114 1X3 inch (routine LRLABEL6, #6)"
^DD(69.9,302,"DT")="2920901"
^DD(69.9,303,0)="LOG PRINTER FOR ROUTINE LC^*P3.5'X^%ZIS(1,^3;4^K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)=""EMQ"" D ^DIC S X=$P(Y,U,2),DIC=DIE K:Y<1 X"
^DD(69.9,303,.1)=""
^DD(69.9,303,3)="ENTER THE NAME OF THE DEVICE TO PRINT THE LAB COLECT LOG ON."
^DD(69.9,303,21,0)="^^3^3^2920304^^^"
^DD(69.9,303,21,1,0)="This is the device you want the Routine Lab Collect Request to print on."
^DD(69.9,303,21,2,0)="  It is recommended that this printer be different one than the"
^DD(69.9,303,21,3,0)="one use for immediate lab collect listing."
^DD(69.9,303,"DT")="2920304"
^DD(69.9,304,0)="RESERVED FIELD #1^RS^0:NO;1:YES;^3;5^Q"
^DD(69.9,304,3)="THIS IS SET TO 1 IF YOU HAVE A FOREIGN CPU WHICH MAY NEED A COPY OF THE PATIENT AND OR LAB DATA."
^DD(69.9,304,21,0)="^^3^3^2920110^^"
^DD(69.9,304,21,1,0)=" This field is reserved for future development. Will be used to indicate"
^DD(69.9,304,21,2,0)="if data can be transferred to a foreign computer."
^DD(69.9,304,21,3,0)="  NOT PRESENTLY USED"
^DD(69.9,304,"DT")="2920110"
^DD(69.9,350,0)="PRINTER DIVISION^69.9007P^^3.5;0"
^DD(69.9,350,21,0)="^^5^5^2960917^^"
^DD(69.9,350,21,1,0)="This sub-file is for multidivisional sites that wish to print lab collect"
^DD(69.9,350,21,2,0)="orders at separate divisions.  If this field is left blank, then the #303"
^DD(69.9,350,21,3,0)="Log Printer for Routine LC is used.  Also, this sub-file is for multi-"
^DD(69.9,350,21,4,0)="divisional sites that wish to have default label printers from LABLABEL to"
^DD(69.9,350,21,5,0)="a division specific printer."
^DD(69.9,360,0)="LABEL DEVICE^69.9008P^^3.6;0"
^DD(69.9,360,21,0)="^^3^3^2980706^^"
^DD(69.9,360,21,1,0)="Used by Laboratory software to identify which devices are label printers."
^DD(69.9,360,21,2,0)="This allows the software to handle various types of label printers and"
^DD(69.9,360,21,3,0)="label stock."
^DD(69.9,400,0)="PHLEBOTOMY ORDER CUT-OFF TIME^69.9001^^4;0"
^DD(69.9,400,21,0)="^^3^3^2890627^^^^"
^DD(69.9,400,21,1,0)="The order cut-off time for associated collection time.  Time is in 24 hour"
^DD(69.9,400,21,2,0)="format.  Orders placed after the cut-off time will be put on the next"
^DD(69.9,400,21,3,0)="routine lab collection."
^DD(69.9,500,0)="COLLECT THURSDAY ORDERS IN ^RNJ1,0^^5;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,500,1,0)="^.1"
^DD(69.9,500,1,1,0)="69.9^AXX5^MUMPS"
^DD(69.9,500,1,1,1)="D FRI^LR7OV1(X=1)"
^DD(69.9,500,1,1,2)="D FRI^LR7OV1(X=1)"
^DD(69.9,500,1,1,"%D",0)="^^1^1^2971106^"
^DD(69.9,500,1,1,"%D",1,0)="Triggers LR COLLECT FRIDAY parameter in CPRS."
^DD(69.9,500,1,1,"DT")="2971106"
^DD(69.9,500,3)="ENTER THE NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECT"
^DD(69.9,500,21,0)="^^1^1^2841121^^"
^DD(69.9,500,21,1,0)="The number of days until the next phlebotomy collection."
^DD(69.9,500,"DT")="2971106"
^DD(69.9,501,0)="COLLECT FRIDAYS ORDERS IN^RNJ1,0^^5;2^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,501,1,0)="^.1"
^DD(69.9,501,1,1,0)="69.9^AXX^MUMPS"
^DD(69.9,501,1,1,1)="D SAT^LR7OV1(X=1)"
^DD(69.9,501,1,1,2)="D SAT^LR7OV1(X=1)"
^DD(69.9,501,1,1,"%D",0)="^^1^1^2971106^^^^"
^DD(69.9,501,1,1,"%D",1,0)="Triggers LR COLLECT SATURDAY parameter in CPRS."
^DD(69.9,501,1,1,"DT")="2971106"
^DD(69.9,501,3)="ENTER THE NUMBER OF DAYS TILL THE NEXT PHLEBOTOMY COLLECTION"
^DD(69.9,501,21,0)="^^1^1^2841121^"
^DD(69.9,501,21,1,0)="The number of days until the next phlebotomy collection."
^DD(69.9,501,"DT")="2971106"
^DD(69.9,502,0)="COLLECT SATURDAYS ORDERS IN^RNJ1,0^^5;3^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,502,1,0)="^.1"
^DD(69.9,502,1,1,0)="69.9^AXX2^MUMPS"
^DD(69.9,502,1,1,1)="D SUN^LR7OV1(X=1)"
^DD(69.9,502,1,1,2)="D SUN^LR7OV1(X=1)"
^DD(69.9,502,1,1,"%D",0)="^^1^1^2971106^"
^DD(69.9,502,1,1,"%D",1,0)="Triggers LR COLLECT SUNDAY parameter in CPRS."
^DD(69.9,502,1,1,"DT")="2971106"
^DD(69.9,502,3)="ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION."
^DD(69.9,502,21,0)="^^1^1^2841121^"
^DD(69.9,502,21,1,0)="The number of days until the next phlebotomy collection."
^DD(69.9,502,"DT")="2971106"
^DD(69.9,503,0)="COLLECT SUNDAYS ORDERS IN^RNJ1,0^^5;4^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,503,1,0)="^.1"
^DD(69.9,503,1,1,0)="69.9^AXX3^MUMPS"
^DD(69.9,503,1,1,1)="D MON^LR7OV1(X=1)"
^DD(69.9,503,1,1,2)="D MON^LR7OV1(X=1)"
^DD(69.9,503,1,1,"%D",0)="^^1^1^2971106^"
^DD(69.9,503,1,1,"%D",1,0)="Triggers LR COLLECT MONDAY parameter in CPRS."
^DD(69.9,503,1,1,"DT")="2971106"
^DD(69.9,503,3)="ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION."
^DD(69.9,503,21,0)="^^1^1^2841121^"
^DD(69.9,503,21,1,0)="The number of days until the next phlebotomy collection."
^DD(69.9,503,"DT")="2971106"
^DD(69.9,504,0)="COLLECT MONDAYS ORDERS IN^RNJ1,0^^5;5^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,504,1,0)="^.1"
^DD(69.9,504,1,1,0)="69.9^AXX1^MUMPS"
^DD(69.9,504,1,1,1)="D TUES^LR7OV1(X=1)"
^DD(69.9,504,1,1,2)="D TUES^LR7OV1(X=1)"
^DD(69.9,504,1,1,"%D",0)="^^1^1^2971106^^"
^DD(69.9,504,1,1,"%D",1,0)="Triggers LR COLLECT TUESDAY parameter in CPRS."
^DD(69.9,504,1,1,"DT")="2971106"
^DD(69.9,504,3)="ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION."
^DD(69.9,504,21,0)="^^1^1^2841121^"
^DD(69.9,504,21,1,0)="The number of days until the next phlebotomy collection."
^DD(69.9,504,"DT")="2971106"
^DD(69.9,505,0)="COLLECT TUESDAYS ORDERS IN^RNJ1,0^^5;6^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,505,1,0)="^.1"
^DD(69.9,505,1,1,0)="69.9^AXX6^MUMPS"
^DD(69.9,505,1,1,1)="D WED^LR7OV1(X=1)"
^DD(69.9,505,1,1,2)="D WED^LR7OV1(X=1)"
^DD(69.9,505,1,1,"%D",0)="^^1^1^2971106^"
^DD(69.9,505,1,1,"%D",1,0)="Triggers LR COLLECT WEDNESDAY parameter in CPRS."
^DD(69.9,505,1,1,"DT")="2971106"
^DD(69.9,505,3)="ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION."
^DD(69.9,505,21,0)="^^1^1^2841121^"
^DD(69.9,505,21,1,0)="The number of days until the next phlebotomy collection."
^DD(69.9,505,"DT")="2971106"
^DD(69.9,506,0)="COLLECT WEDNESDAYS ORDERS IN^RNJ1,0^^5;7^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,506,1,0)="^.1"
^DD(69.9,506,1,1,0)="69.9^AXX7^MUMPS"
^DD(69.9,506,1,1,1)="D THURS^LR7OV1(X=1)"
^DD(69.9,506,1,1,2)="D THURS^LR7OV1(X=1)"
^DD(69.9,506,1,1,"%D",0)="^^1^1^2971106^"
^DD(69.9,506,1,1,"%D",1,0)="Triggers LR COLLECT THURSDAY parameter in CPRS."
^DD(69.9,506,1,1,"DT")="2971106"
^DD(69.9,506,3)="ENTER WITH NUMBER OF DAYS TILL NEXT PHLEBOTOMY COLLECTION."
^DD(69.9,506,21,0)="^^1^1^2841121^"
^DD(69.9,506,21,1,0)="The number of days until the next phlebotomy collection."
^DD(69.9,506,"DT")="2971106"
^DD(69.9,507,0)="IGNORE HOLIDAYS^S^0:NO;1:YES;^0;10^Q"
^DD(69.9,507,1,0)="^.1"
^DD(69.9,507,1,1,0)="69.9^AXX8^MUMPS"
^DD(69.9,507,1,1,1)="D HOL^LR7OV1(X)"
^DD(69.9,507,1,1,2)="D HOL^LR7OV1("""")"
^DD(69.9,507,1,1,"%D",0)="^^1^1^2971106^^"
^DD(69.9,507,1,1,"%D",1,0)="Triggers LR IGNORE HOLIDAYS parameter in CPRS."
^DD(69.9,507,1,1,"DT")="2971106"
^DD(69.9,507,3)="If set to yes, Then the lab collects on holidays."
^DD(69.9,507,21,0)="^^2^2^2930327^"
^DD(69.9,507,21,1,0)="  This field indicates if this institution operates at full service during"
^DD(69.9,507,21,2,0)="federal holidays."
^DD(69.9,507,"DT")="2971106"
^DD(69.9,509,0)="EXCEPTED LOCATIONS^69.9004P^^2;0"
^DD(69.9,509,12)="Only allow locations with abbreviations."
^DD(69.9,509,12.1)="S DIC(""S"")=""I $P(^(0),U,2)]"""""""""""
^DD(69.9,509,21,0)="^^2^2^2930327^"
^DD(69.9,509,21,1,0)=" This field contains those locations which have special printing or specimen"
^DD(69.9,509,21,2,0)="collection status apart from other hospital locations."
^DD(69.9,510,0)="BUILDING COLLECTION LIST^S^0:NO;1:YES;^5;10^Q"
^DD(69.9,510,3)="Do NOT set this to YES. If this is set to YES the collection list will not build."
^DD(69.9,510,21,0)="^^3^3^2870804^^^^"
^DD(69.9,510,21,1,0)="This field is here only to allow a site to reset it if the system stopped"
^DD(69.9,510,21,2,0)="during the building of the phlebotomy collection list."
^DD(69.9,510,21,3,0)="IF THE USER SETS THIS TO YES THE COLLECTION LIST WILL NOT WORK!!!"
^DD(69.9,510,"DT")="2850204"
^DD(69.9,511,0)="COLLECTION LIST BUILD $H^FXO^^5;11^K:$L(X)>20!($L(X)<1) X"
^DD(69.9,511,2)="S Y(0)=Y S Y=$$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(Y),1)"
^DD(69.9,511,2.1)="S Y=$$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(Y),1)"
^DD(69.9,511,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(69.9,511,21,0)="^^3^3^2870720^^"
^DD(69.9,511,21,1,0)="This field is used and filled in by the collection list when it is"
^DD(69.9,511,21,2,0)="built.  It contains the date that the list was built."
^DD(69.9,511,21,3,0)="For troubleshooting purposes only."
^DD(69.9,511,"DT")="2921031"
^DD(69.9,512,0)="COLLECTION LIST BUILDER (DUZ)^NJ6,0^^5;12^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,512,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(69.9,512,21,0)="^^3^3^2870720^^"
^DD(69.9,512,21,1,0)="This field is used and filled in by the collection list when it is "
^DD(69.9,512,21,2,0)="built.  It contains the DUZ of the user that built the list."
^DD(69.9,512,21,3,0)="For troubleshooting purposes only."
^DD(69.9,512,"DT")="2870107"
^DD(69.9,513,0)="COLLECTION LIST TIME^D^^5;14^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(69.9,513,21,0)="^^3^3^2870720^^"
^DD(69.9,513,21,1,0)="This field is used and filled in by the collection list when it is"
^DD(69.9,513,21,2,0)="built.  It contains the time that the list is built."
^DD(69.9,513,21,3,0)="For troubleshooting purposes only."
^DD(69.9,513,"DT")="2870107"
^DD(69.9,514,0)="COLLECTION LIST PRINT COUNT^NJ6,0^^5;15^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9,514,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(69.9,514,21,0)="^^4^4^2870720^^"
^DD(69.9,514,21,1,0)="This field is used and filled in by the collection list when it is"
^DD(69.9,514,21,2,0)="built and printed.  It contains a count of the number of times"
^DD(69.9,514,21,3,0)="a collection list is printed."
^DD(69.9,514,21,4,0)="For troubleshooting purposes only."
^DD(69.9,514,"DT")="2870107"
^DD(69.9,520,0)="DATE ROLLOVER LAST RUN^FO^^RO;1^K:$L(X)>10!($L(X)<3) X"
^DD(69.9,520,2)="S Y(0)=Y S Y=$$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(Y),1)"
^DD(69.9,520,2.1)="S Y=$$DDDATE^LRAFUNC1($$CDHTFM^LRAFUNC1(Y),1)"
^DD(69.9,520,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(69.9,520,21,0)="^^1^1^2910228^"
^DD(69.9,520,21,1,0)="This field contains the date that Rollover last run."
^DD(69.9,520,"DT")="2921106"
^DD(69.9,521,0)="ROLLOVER RUNNING^S^0:NO;1:YES;^RO;2^Q"
^DD(69.9,521,21,0)="^^1^1^2870328^^"
^DD(69.9,521,21,1,0)="This field will be automatically set to YES when rollover is running."
^DD(69.9,521,"DT")="2851113"
^DD(69.9,530,0)="STANDARD LOCATIONS ONLY^S^1:YES;^1;8^Q"
^DD(69.9,530,21,0)="^^3^3^2870720^^"
^DD(69.9,530,21,1,0)="If you want to restrict accessioning to only allow the entry of"
^DD(69.9,530,21,2,0)="standard locations (locations defined in the Hospital location"
^DD(69.9,530,21,3,0)="file), set this field to YES."
^DD(69.9,530,"DT")="2870109"
^DD(69.9,600,0)="ARCHIVE DATA^69.9003A^^6;0"
^DD(69.9,600,21,0)="^^2^2^2930327^"
^DD(69.9,600,21,1,0)=" This field contains a history of archive activity done in the past. It"
^DD(69.9,600,21,2,0)="also may contain information concerning archive process in progress."
^DD(69.9,601,0)="DEFAULT PROVIDER^S^1:YES;^0;16^Q"
^DD(69.9,601,3)="Enter name a 1 if you want to be defaulted with a provider if patient is an outpatient."
^DD(69.9,601,21,0)="^^2^2^2890830^"
^DD(69.9,601,21,1,0)="Enter a 1 if you want to be defaulted with a provider if the patient is"
^DD(69.9,601,21,2,0)="an outpatient."
^DD(69.9,601,"DT")="2931130"
^DD(69.9,602,0)="COMBINE TEST DURING ORDER^S^1:YES;0:NO;^0;17^Q"
^DD(69.9,602,3)="Answer YES if you wish to have the combine test feature activatied"
^DD(69.9,602,21,0)="^^6^6^2881214^^"
^DD(69.9,602,21,1,0)="   This field allows a site to turn on or off the feature of combining test with in"
^DD(69.9,602,21,2,0)="a panel which have the same sample and urgency during the ordering process."
^DD(69.9,602,21,3,0)="The software will check here first before attempting to combine single test"
^DD(69.9,602,21,4,0)="with profiles. If there are certain test which never should be combined,"
^DD(69.9,602,21,5,0)="edit ^LAB(60, field SHOULD NOT BE COMBINE. Then this test will not be combine with"
^DD(69.9,602,21,6,0)="any other panel during ordering process."
^DD(69.9,602,"DT")="2881214"
^DD(69.9,603,0)="LAST LRDFN ARCHIVE SEARCH^NJ8,0^^LRDFN;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.9,603,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(69.9,603,21,0)="^^2^2^2890626^"
^DD(69.9,603,21,1,0)="This field contains the last LRDFN that was found that required archiving"
^DD(69.9,603,21,2,0)="during the search process of lab archive."
^DD(69.9,603,"DT")="2890626"
^DD(69.9,604,0)="LAST PURGED LRDFN FROM ARCHIVE^NJ8,0^^PURGE LRDFN;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.9,604,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(69.9,604,21,0)="^^2^2^2890626^"
^DD(69.9,604,21,1,0)="This is the last LRDFN that the archive process had purged from the"
^DD(69.9,604,21,2,0)="LAR global."
^DD(69.9,604,"DT")="2890626"
^DD(69.9,605,0)="TAPE NUMBER^NJ4,0^^TAPE;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.9,605,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(69.9,605,21,0)="^^2^2^2890626^"
^DD(69.9,605,21,1,0)="This field contains the tape number that the archive process is using"
^DD(69.9,605,21,2,0)="during the output of archive data to a tape media."
^DD(69.9,605,"DT")="2890626"
^DD(69.9,606,0)="# OF DAYS FOR ERRORS^NJ2,0^^ER;1^K:+X'=X!(X>30)!(X<3)!(X?.E1"".""1N.N) X"
^DD(69.9,606,3)="Type a Number between 3 and 30, 0 Decimal Digits"
^DD(69.9,606,21,0)="^^3^3^2900501^"
^DD(69.9,606,21,1,0)=" This field is used by the ^LABERR routine to determine the how many days"
^DD(69.9,606,21,2,0)="before auto-instrument errors will be purged out of ^LA(""ERR""). If this"
^DD(69.9,606,21,3,0)="entry is blank, a default value of 3 days will be used."
^DD(69.9,606,"DT")="2900501"
^DD(69.9,607,0)="DEFAULT OPT TREATING SP. ^P45.7'^DIC(45.7,^0;19^Q"
^DD(69.9,607,3)="Select the treating speciality for ALL out patient care."
^DD(69.9,607,21,0)="^^6^6^2910321^^"
^DD(69.9,607,21,1,0)=" This field will be used as the default treating speciality for all"
^DD(69.9,607,21,2,0)="out patient workload data collection for WKLD. It is recommended that"
^DD(69.9,607,21,3,0)="an entry in the FACILITY TREATING SPECIALITY (#45.7) be made for"
^DD(69.9,607,21,4,0)="AMBULATORY CARE."
^DD(69.9,607,21,5,0)="  Then use that entry in this field.  IF THIS FIELD IS BLANK, THEN"
^DD(69.9,607,21,6,0)="THERE WILL BE NO TREATING SPECIALITY FOR OUTPATIENT WORKLOAD."
^DD(69.9,607,21,7,0)="PURPOSES."
^DD(69.9,607,"DT")="2910306"
^DD(69.9,608,0)="LRNIGHT^F^^NITE;1^K:$L(X)>20!($L(X)<1) X"
^DD(69.9,608,3)="Answer must be 1-20 characters in length."
^DD(69.9,608,21,0)="^^7^7^2910307^"
^DD(69.9,608,21,1,0)="This node is used for preventing two copies of the WORKLOAD data"
^DD(69.9,608,21,2,0)="collection routine from being executed at the same time.  This"
^DD(69.9,608,21,3,0)="node contains the date/time that the WORKLOAD collection routine"
^DD(69.9,608,21,4,0)="began processing the data.  The node is set to null when the "
^DD(69.9,608,21,5,0)="process completes.  This node should NOT be set through FILEMAN."
^DD(69.9,608,21,6,0)="TO RECOVER AFTER A SYSTEM FAILURE: DELETE THIS ENTRY TO ALLOW THE"
^DD(69.9,608,21,7,0)="WORKLOAD COLLECTION ROUTINE TO PROCEED."
^DD(69.9,608,23,0)="^^4^4^2910307^"
^DD(69.9,608,23,1,0)="The routine, LRCAPV2, checks this node for NULL before executing."
^DD(69.9,608,23,2,0)="It is set with date/time/seconds during the routine's execution."
^DD(69.9,608,23,3,0)="The routine sets it to NULL just before it terminates."
^DD(69.9,608,23,4,0)="    The option, LRTASK NIGHTY, will kill this node on system startup."
^DD(69.9,608,"DT")="2910307"
^DD(69.9,609,0)="PHLEB/STOP CODE RUNNING^D^^NITE;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.9,609,3)="Answer must be 7-25 characters in length. See documentation "
^DD(69.9,609,21,0)="^^3^3^2930720^^^^"
^DD(69.9,609,21,1,0)="  Do not enter a date in this field. Doing so may stop the data collection"
^DD(69.9,609,21,2,0)="process. The routines will fill in the field during the data collection"
^DD(69.9,609,21,3,0)="process and delete the date when the process has gone to a normal completion."
^DD(69.9,609,21,4,0)="  If the system goes down during the data collection process, you must delete the date from this field. When the scheduled run time occures, the data collect-"
^DD(69.9,609,21,5,0)="ion will continue automatically."
^DD(69.9,609,21,6,0)=" However if the routine error doing the collection process this field"
^DD(69.9,609,21,7,0)="will contain the word 'ERROR' followed by the date when the error occured."
^DD(69.9,609,21,8,0)="If this is the case, you may wish to contact your IRM service for assistance."
^DD(69.9,609,21,9,0)="If the error appears two days in session, contact your IRM service."
^DD(69.9,609,23,0)="^^0^0^2930720^^^^"
^DD(69.9,609,23,1,0)="  This field has the word ERROR in it, this means that data for the"
^DD(69.9,609,23,2,0)="date logged has some form of corruption."
^DD(69.9,609,23,3,0)="will not process the data."
^DD(69.9,609,"DT")="2920625"
^DD(69.9,611,0)="CLINIC STOP CODE^P40.7'^DIC(40.7,^NITE;3^Q"
^DD(69.9,611,21,0)="^^4^4^2930720^^^^"
^DD(69.9,611,21,1,0)=" Enter the clinic stop code to used by the laboratory for the MAS"
^DD(69.9,611,21,2,0)="package stop code credit.  Generally the code number is 108. Select"
^DD(69.9,611,21,3,0)="the stop code with the STOP CODE of 108."
^DD(69.9,611,21,4,0)=" NOTE: THE DEFAULT VALUE IS 108."
^DD(69.9,611,"DT")="2910705"
^DD(69.9,612,0)="COUNTING BB WORKLOAD^F^^NITE;4^K:$L(X)>25!($L(X)<7) X"
^DD(69.9,612,3)="Answer must be 7-25 characters in length. See Documentation"
^DD(69.9,612,21,0)="^^2^2^2940426^^"
^DD(69.9,612,21,1,0)=" This field is filled in by the routine while it processes the Blood Bank"
^DD(69.9,612,21,2,0)="workload."
^DD(69.9,612,"DT")="2910705"
^DD(69.9,613,0)="URGENCY ALERT^P62.05'^LAB(62.05,^0;20^Q"
^DD(69.9,613,12)=" Urgency which will trigger alert to be flashed on the verification screen."
^DD(69.9,613,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(69.9,613,21,0)="^^10^10^2940913^^^^"
^DD(69.9,613,21,1,0)=" This field is used as a cutoff level (urgency) to control the"
^DD(69.9,613,21,2,0)="flashing the urgency alert display during verification."
^DD(69.9,613,21,3,0)="  Any urgency equal or less than this urgency will cause the"
^DD(69.9,613,21,4,0)="display to flash."
^DD(69.9,613,21,5,0)="  For example, if you enter the urgency of OUTPATIENT, it has a"
^DD(69.9,613,21,6,0)="value of 3. Then the urgencies of STAT, ASAP and OUTPATIENT for any "
^DD(69.9,613,21,7,0)="accession will be flashed on the screen when data is entered."
^DD(69.9,613,21,8,0)="    NOTE - If your ternimal type file is setup incorrectly or the"
^DD(69.9,613,21,9,0)="terminal you are using does not support reverse video, the urgency"
^DD(69.9,613,21,10,0)="will not flash, it will merely be displayed."
^DD(69.9,613,23,0)="^^1^1^2940913^^^^"
^DD(69.9,613,23,1,0)=" Settings for video display are set in the routine LRPARAM."
^DD(69.9,613,"DT")="2940913"
^DD(69.9,614,0)="*TRAMSMIT CLINIC STOP CODES^S^1:YES;^NITE;5^Q"
^DD(69.9,614,21,0)="^^11^11^2960816^^"
^DD(69.9,614,21,1,0)=" This field is no longer used to control reporting of clinic stop codes."
^DD(69.9,614,21,2,0)="The PCE package has replaced the  clinic stop codes with CPT codes for"
^DD(69.9,614,21,3,0)="each test collected. You should now use PCE/VSIT ON (#615) in "
^DD(69.9,614,21,4,0)="LABORATORY SITE (#69.9) file to control both clinic stop code and CPT code"
^DD(69.9,614,21,5,0)="transmission. Patch LR*5.2*127 automatically sets the PCE/VSIT ON field"
^DD(69.9,614,21,6,0)="to report both clinic stop and CPT codes. It expected that beginning with"
^DD(69.9,614,21,7,0)="Oct. 1, 1996 VA DHCP will begin reporting workload using CPT codes. Logic"
^DD(69.9,614,21,8,0)="has been built into the software to determine when to start reporting CPT"
^DD(69.9,614,21,9,0)="codes to the PCE package."
^DD(69.9,614,21,10,0)=" "
^DD(69.9,614,21,11,0)="This field will be retired in future version."
^DD(69.9,614,"DT")="2960816"
^DD(69.9,615,0)="PCE/VSIT ON^S^0:OFF;1:PCE/VSIT ONLY;2:BOTH PCE/VSIT AND STOP CODES;^VSIT;1^Q"
^DD(69.9,615,21,0)="^^9^9^2960709^"
^DD(69.9,615,21,1,0)=" This field controls how clinic stop codes are reported. Laboratory"
^DD(69.9,615,21,2,0)="encounters are being converted from Clinic Stop Codes to CPT codes. CPT"
^DD(69.9,615,21,3,0)="codes are passed via a PCE interface."
^DD(69.9,615,21,4,0)=" "
^DD(69.9,615,21,5,0)=" Enter OFF to stop all reporting."
^DD(69.9,615,21,6,0)=" Enter PCE/VSIT to send only CPT codes and no Clinic Stop Code"
^DD(69.9,615,21,7,0)="  Reporting."
^DD(69.9,615,21,8,0)=" Enter BOTH PCE/VSIT AND STOP CODES to continue sending Stop codes"
^DD(69.9,615,21,9,0)="  in addition to CPT Codes."
^DD(69.9,615,"DT")="2960614"
^DD(69.9,616,0)="COLLECT WKLD LOG FILE DATA^S^1:YES;^NITE;6^Q"
^DD(69.9,616,21,0)="^^18^18^2960821^"
^DD(69.9,616,21,1,0)="The use of this field must be coordinated with the local DSS program"
^DD(69.9,616,21,2,0)="official. New functionality now extracts this data in batch mode."
^DD(69.9,616,21,3,0)="All data in this file is purged before each batch data extraction"
^DD(69.9,616,21,4,0)="session."
^DD(69.9,616,21,5,0)=" "
^DD(69.9,616,21,6,0)="HIGHLY RECOMMEND THIS FIELD BE SET TO NULL"
^DD(69.9,616,21,7,0)=" "
^DD(69.9,616,21,8,0)=" "
^DD(69.9,616,21,9,0)=" This field controls if data should be accumulated in the "
^DD(69.9,616,21,10,0)="WKLD LOG FILE (#64.03). This file can be used for special onsite"
^DD(69.9,616,21,11,0)="local interest in laboratory workload. This file contains information"
^DD(69.9,616,21,12,0)="about what test are performed by the laboratory. Any special cost"
^DD(69.9,616,21,13,0)="analysis study can make use of this file without having to actually"
^DD(69.9,616,21,14,0)="navigate through various globals to obtain data. DSS/DMSS project"
^DD(69.9,616,21,15,0)="will find the file very useful."
^DD(69.9,616,21,16,0)="  Also there is an option provided to allow printing of this file"
^DD(69.9,616,21,17,0)="with suitable cell separators for downloading to spread sheets operating"
^DD(69.9,616,21,18,0)="on PC based systems."
^DD(69.9,616,"DT")="2930414"
^DD(69.9,617,0)="PCE DEFAULT PROVIDER^*P200'^VA(200,^12;1^S DIC(""S"")=""I '$P(^(0),U,11),$$GET^XUA4A72(Y)>0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.9,617,12)="No termination date and has a person class"
^DD(69.9,617,12.1)="S DIC(""S"")=""I '$P(^(0),U,11),$$GET^XUA4A72(Y)>0"""
^DD(69.9,617,21,0)="^^13^13^2970318^"
^DD(69.9,617,21,1,0)=" The provider entered will be used if the ordering provider has been"
^DD(69.9,617,21,2,0)="terminated or does not have a person class assigned on the date of the"
^DD(69.9,617,21,3,0)="encounter (LAB ARRIVAL TIME). Great care should be taken not to terminate"
^DD(69.9,617,21,4,0)="or remove the default provider's person class. In addition the person"
^DD(69.9,617,21,5,0)="class should be appropriate for a primary care provider. Failure to enter"
^DD(69.9,617,21,6,0)="or the removal of the default provider will cause ALL WORKLOAD REPORTING"
^DD(69.9,617,21,7,0)="TO STOP. No workload will be passed to PCE and no laboratory phlebotomy"
^DD(69.9,617,21,8,0)="workload will be collected."
^DD(69.9,617,21,9,0)=" "
^DD(69.9,617,21,10,0)="If this field is vacant or the default provider becomes invalid NO"
^DD(69.9,617,21,11,0)="WORKLOAD IS COLLECTED. None of the workload data is lost. The workload"
^DD(69.9,617,21,12,0)="processing software will resume processing stored data once a valid"
^DD(69.9,617,21,13,0)="default provider is entered."
^DD(69.9,617,"DT")="2970318"
^DD(69.9,618,0)="DIVISION PARAMETERS^69.9618P^^14;0"
^DD(69.9,618,12)="Must have a station number assigned"
^DD(69.9,618,12.1)="S DIC(""S"")=""I $G(^(99),U)"""
^DD(69.9,619,0)="AP ESIG ON^S^1:YES;0:NO;^15;1^Q"
^DD(69.9,619,1,0)="^.1^^0"
^DD(69.9,619,3)="Enter 'Y' or 'N'"
^DD(69.9,619,21,0)="^.001^6^6^3011025^^"
^DD(69.9,619,21,1,0)="This field is used to activate the electronic signature function for Anatomic"
^DD(69.9,619,21,2,0)="Pathology reports.  If the flag is turned on, at the time a report is"
^DD(69.9,619,21,3,0)="verified/released, the user will be prompted for an electronic signature.  The"
^DD(69.9,619,21,4,0)="document will then be stored in TIU.  If the flag is off, the report will be"
^DD(69.9,619,21,5,0)="verified/released without electronic signature and the document will not be"
^DD(69.9,619,21,6,0)="stored in TIU."
^DD(69.9,619,"DEL",1,0)="I"
^DD(69.9,619,"DT")="3011031"
^DD(69.9,620,0)="PANEL PROCESS DATE^D^^VSIT;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.9,620,21,0)="^.001^3^3^3060207^^^^"
^DD(69.9,620,21,1,0)="The day of the month used for processing panel tests that contain "
^DD(69.9,620,21,2,0)="pending atomic tests for the prior calendar month.  This should be"
^DD(69.9,620,21,3,0)="one day prior to the monthly PCE roll-up date."
^DD(69.9,620,"DT")="3051215"
^DD(69.9,"B","# OF DAYS FOR ERRORS",606)=""
^DD(69.9,"B","*AMIS/CAP DEFAULT",17.1)=""
^DD(69.9,"B","*ASK PROVIDER",10)=""
^DD(69.9,"B","*GRACE PERIOD FOR STATISTICS",18)=""
^DD(69.9,"B","*TRAMSMIT CLINIC STOP CODES",614)=""
^DD(69.9,"B","ALLOW LAB TO ADD PATIENTS",13)=""
^DD(69.9,"B","AP ESIG ON",619)=""
^DD(69.9,"B","ARCHIVE DATA",600)=""
^DD(69.9,"B","ASK CYTOPATH DIAGNOSIS",11.3)=""
^DD(69.9,"B","ASK EM DIAGNOSIS",11.4)=""
^DD(69.9,"B","ASK FROZEN SECTION",11.1)=""
^DD(69.9,"B","ASK SURG PATH DIAGNOSIS",11.2)=""
^DD(69.9,"B","BLOOD BANK DEFAULTS",8)=""
^DD(69.9,"B","BLOOD BANK DIVISION",8.1)=""
^DD(69.9,"B","BLOOD DONOR UNIT ID PREFIX",.18)=""
^DD(69.9,"B","BUILDING COLLECTION LIST",510)=""
^DD(69.9,"B","CHOICE OF ACCESSION NUMBERS",14)=""
^DD(69.9,"B","CLINIC STOP CODE",611)=""
^DD(69.9,"B","COLLECT FRIDAYS ORDERS IN",501)=""
^DD(69.9,"B","COLLECT MONDAYS ORDERS IN",504)=""
^DD(69.9,"B","COLLECT SATURDAYS ORDERS IN",502)=""
^DD(69.9,"B","COLLECT SUNDAYS ORDERS IN",503)=""
^DD(69.9,"B","COLLECT THURSDAY ORDERS IN ",500)=""
^DD(69.9,"B","COLLECT TUESDAYS ORDERS IN",505)=""
^DD(69.9,"B","COLLECT WEDNESDAYS ORDERS IN",506)=""
^DD(69.9,"B","COLLECT WKLD LOG FILE DATA",616)=""
^DD(69.9,"B","COLLECTION LIST BUILD $H",511)=""
^DD(69.9,"B","COLLECTION LIST BUILDER (DUZ)",512)=""
^DD(69.9,"B","COLLECTION LIST PRINT COUNT",514)=""
^DD(69.9,"B","COLLECTION LIST TIME",513)=""
^DD(69.9,"B","COMBINE TEST DURING ORDER",602)=""
^DD(69.9,"B","COUNTING BB WORKLOAD",612)=""
^DD(69.9,"B","DATE ROLLOVER LAST RUN",520)=""
^DD(69.9,"B","DAYS BACK FOR DELTA CHECKS",20)=""
^DD(69.9,"B","DEFAULT BLOOD SPECIMEN",100)=""
^DD(69.9,"B","DEFAULT DC REASON",150.2)=""
^DD(69.9,"B","DEFAULT INSTITUTION",3)=""
^DD(69.9,"B","DEFAULT LAB OOS LOCATION",.8)=""
^DD(69.9,"B","DEFAULT NATURE OF ORDER",150.1)=""
^DD(69.9,"B","DEFAULT OPT TREATING SP. ",607)=""
^DD(69.9,"B","DEFAULT PLASMA SPECIMEN",103)=""
^DD(69.9,"B","DEFAULT PROVIDER",601)=""
^DD(69.9,"B","DEFAULT SERUM SPECIMEN",102)=""
^DD(69.9,"B","DEFAULT UNKNOWN SPECIMEN",104)=""
^DD(69.9,"B","DEFAULT URGENCY",301)=""
^DD(69.9,"B","DEFAULT URINE SPECIMEN",101)=""
^DD(69.9,"B","DIVISION PARAMETERS",618)=""
^DD(69.9,"B","DOWNLOAD FULL DATA",210)=""
^DD(69.9,"B","EXCEPTED LOCATIONS",509)=""
^DD(69.9,"B","GRACE PERIOD FOR CUMULATIVE",16)=""
^DD(69.9,"B","GRACE PERIOD FOR INACTIVITY",19)=""
^DD(69.9,"B","GRACE PERIOD FOR ORDERS",15)=""
^DD(69.9,"B","HOLD-OVER SORT URGENCY",300)=""
^DD(69.9,"B","HOSPITAL SITE",9)=""
^DD(69.9,"B","IGNORE HOLIDAYS",507)=""
^DD(69.9,"B","IMMED LAB COLLECT DIV.",5.1)=""
^DD(69.9,"B","LABEL DEVICE",360)=""
^DD(69.9,"B","LABEL TYPE",302)=""
^DD(69.9,"B","LAST LRDFN ARCHIVE SEARCH",603)=""
^DD(69.9,"B","LAST PURGED LRDFN FROM ARCHIVE",604)=""
^DD(69.9,"B","LOG PRINTER FOR ROUTINE LC",303)=""
^DD(69.9,"B","LOINC HISTORICAL LAST LRDFN",95.31)=""
^DD(69.9,"B","LOINC HISTORICAL MAPPING DATE",95.3)=""
^DD(69.9,"B","LRNIGHT",608)=""
^DD(69.9,"B","MICRO DEFAULT TEMPLATE",203)=""
^DD(69.9,"B","MICRO OTHER TEMPLATE",204)=""
^DD(69.9,"B","MICRO REPORT FORMAT",202)=""
^DD(69.9,"B","MICRO SURVEY REPORT DEFAULTS",200)=""
^DD(69.9,"B","MICRO TREND REPORT DEFAULTS",201)=""
^DD(69.9,"B","PANEL PROCESS DATE",620)=""
^DD(69.9,"B","PCE DEFAULT PROVIDER",617)=""
^DD(69.9,"B","PCE/VSIT ON",615)=""
^DD(69.9,"B","PHLEB/STOP CODE RUNNING",609)=""
^DD(69.9,"B","PHLEBOTOMY ORDER CUT-OFF TIME",400)=""
^DD(69.9,"B","PRINT LABELS",12)=""
^DD(69.9,"B","PRINTER DIVISION",350)=""
^DD(69.9,"B","QUE CH,HE,etc VERIFIED TEST(S)",11)=""
^DD(69.9,"B","QUE MICRO VERIFIED TESTS(S)",11.5)=""
^DD(69.9,"B","RESERVED FIELD #1",304)=""
^DD(69.9,"B","ROLLOVER RUNNING",521)=""
^DD(69.9,"B","SITE NAME",.01)=""
^DD(69.9,"B","STANDARD LOCATIONS ONLY",530)=""
^DD(69.9,"B","TAPE NUMBER",605)=""
^DD(69.9,"B","URGENCY ALERT",613)=""
^DD(69.9,"B","WKLD STATS ON",17)=""
^DD(69.9,"GL",0,1,.01)=""
^DD(69.9,"GL",0,2,10)=""
^DD(69.9,"GL",0,3,11)=""
^DD(69.9,"GL",0,4,12)=""
^DD(69.9,"GL",0,5,11.5)=""
^DD(69.9,"GL",0,6,13)=""
^DD(69.9,"GL",0,7,20)=""
^DD(69.9,"GL",0,8,14)=""
^DD(69.9,"GL",0,9,15)=""
^DD(69.9,"GL",0,10,507)=""
^DD(69.9,"GL",0,11,202)=""
^DD(69.9,"GL",0,12,16)=""
^DD(69.9,"GL",0,13,19)=""
^DD(69.9,"GL",0,14,17)=""
^DD(69.9,"GL",0,15,17.1)=""
^DD(69.9,"GL",0,16,601)=""
^DD(69.9,"GL",0,17,602)=""
^DD(69.9,"GL",0,18,.18)=""
^DD(69.9,"GL",0,19,607)=""
^DD(69.9,"GL",0,20,613)=""
^DD(69.9,"GL",.8,1,.8)=""
^DD(69.9,"GL",1,1,100)=""
^DD(69.9,"GL",1,2,101)=""
^DD(69.9,"GL",1,3,102)=""
^DD(69.9,"GL",1,4,103)=""
^DD(69.9,"GL",1,5,104)=""
^DD(69.9,"GL",1,7,210)=""
^DD(69.9,"GL",1,8,530)=""
^DD(69.9,"GL",1,9,18)=""
^DD(69.9,"GL",1,10,203)=""
^DD(69.9,"GL",1,11,204)=""
^DD(69.9,"GL",2,0,509)=""
^DD(69.9,"GL",3,1,300)=""
^DD(69.9,"GL",3,2,301)=""
^DD(69.9,"GL",3,3,302)=""
^DD(69.9,"GL",3,4,303)=""
^DD(69.9,"GL",3,5,304)=""
^DD(69.9,"GL",3.5,0,350)=""
^DD(69.9,"GL",3.6,0,360)=""
^DD(69.9,"GL",4,0,400)=""
^DD(69.9,"GL",5,1,500)=""
^DD(69.9,"GL",5,2,501)=""
^DD(69.9,"GL",5,3,502)=""
^DD(69.9,"GL",5,4,503)=""
^DD(69.9,"GL",5,5,504)=""
^DD(69.9,"GL",5,6,505)=""
^DD(69.9,"GL",5,7,506)=""
^DD(69.9,"GL",5,10,510)=""
^DD(69.9,"GL",5,11,511)=""
^DD(69.9,"GL",5,12,512)=""
^DD(69.9,"GL",5,14,513)=""
^DD(69.9,"GL",5,15,514)=""
^DD(69.9,"GL",6,0,600)=""
^DD(69.9,"GL",7,0,5.1)=""
^DD(69.9,"GL",8,0,8)=""
^DD(69.9,"GL",8.1,0,8.1)=""
^DD(69.9,"GL",9,0,9)=""
^DD(69.9,"GL",10,1,3)=""
^DD(69.9,"GL",11,1,11.1)=""
^DD(69.9,"GL",11,2,11.2)=""
^DD(69.9,"GL",11,3,11.3)=""
^DD(69.9,"GL",11,4,11.4)=""
^DD(69.9,"GL",12,1,617)=""
^DD(69.9,"GL",14,0,618)=""
^DD(69.9,"GL",15,1,619)=""
^DD(69.9,"GL",95,1,95.3)=""
^DD(69.9,"GL",95,2,95.31)=""
^DD(69.9,"GL","ER",1,606)=""
^DD(69.9,"GL","LRDFN",1,603)=""
^DD(69.9,"GL","MIS",0,200)=""
^DD(69.9,"GL","MIT",0,201)=""
^DD(69.9,"GL","NITE",1,608)=""
^DD(69.9,"GL","NITE",2,609)=""
^DD(69.9,"GL","NITE",3,611)=""
^DD(69.9,"GL","NITE",4,612)=""
^DD(69.9,"GL","NITE",5,614)=""
^DD(69.9,"GL","NITE",6,616)=""
^DD(69.9,"GL","OR",1,150.1)=""
^DD(69.9,"GL","OR",2,150.2)=""
^DD(69.9,"GL","PURGE LRDFN",1,604)=""
^DD(69.9,"GL","RO",1,520)=""
^DD(69.9,"GL","RO",2,521)=""
^DD(69.9,"GL","TAPE",1,605)=""
^DD(69.9,"GL","VSIT",1,615)=""
^DD(69.9,"GL","VSIT",2,620)=""
^DD(69.9,"IX",.01)=""
^DD(69.9,"IX",500)=""
^DD(69.9,"IX",501)=""
^DD(69.9,"IX",502)=""
^DD(69.9,"IX",503)=""
^DD(69.9,"IX",504)=""
^DD(69.9,"IX",505)=""
^DD(69.9,"IX",506)=""
^DD(69.9,"IX",507)=""
^DD(69.9,"RQ",.01)=""
^DD(69.9,"RQ",13)=""
^DD(69.9,"RQ",15)=""
^DD(69.9,"RQ",100)=""
^DD(69.9,"RQ",101)=""
^DD(69.9,"RQ",102)=""
^DD(69.9,"RQ",103)=""
^DD(69.9,"RQ",104)=""
^DD(69.9,"RQ",300)=""
^DD(69.9,"RQ",301)=""
^DD(69.9,"RQ",304)=""
^DD(69.9,"RQ",500)=""
^DD(69.9,"RQ",501)=""
^DD(69.9,"RQ",502)=""
^DD(69.9,"RQ",503)=""
^DD(69.9,"RQ",504)=""
^DD(69.9,"RQ",505)=""
^DD(69.9,"RQ",506)=""
^DD(69.9,"SB",69.9001,400)=""
^DD(69.9,"SB",69.9002,200)=""
^DD(69.9,"SB",69.9003,600)=""
^DD(69.9,"SB",69.9004,509)=""
^DD(69.9,"SB",69.9005,201)=""
^DD(69.9,"SB",69.9006,5.1)=""
^DD(69.9,"SB",69.9007,350)=""
^DD(69.9,"SB",69.9008,360)=""
^DD(69.9,"SB",69.9618,618)=""
^DD(69.9,"SB",69.98,8)=""
^DD(69.9,"SB",69.981,8.1)=""
^DD(69.9,"SB",69.99,9)=""
^DD(69.9001,0)="PHLEBOTOMY ORDER CUT-OFF TIME SUB-FIELD^NL^3^4"
^DD(69.9001,0,"DT")="2911001"
^DD(69.9001,0,"IX","AC",69.9001,2)=""
^DD(69.9001,0,"IX","AXC",69.9001,1)=""
^DD(69.9001,0,"IX","AXC1",69.9001,3)=""
^DD(69.9001,0,"IX","AXC2",69.9001,.01)=""
^DD(69.9001,0,"NM","PHLEBOTOMY ORDER CUT-OFF TIME")=""
^DD(69.9001,0,"UP")="69.9"
^DD(69.9001,.01,0)="PHLEBOTOMY ORDER CUT-OFF TIME^MRNJ5,0X^^0;1^K:X'?4N X I $D(X) S DINUM=$E(X,1,2)*3600+($E(X,3,4)*60)"
^DD(69.9001,.01,1,0)="^.1"
^DD(69.9001,.01,1,1,0)="69.9001^AXC2^MUMPS"
^DD(69.9001,.01,1,1,1)="Q"
^DD(69.9001,.01,1,1,2)="Q:'$$XPARCK^LR7OV2  I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),""^"",4)) N X D DEL^XPAR($$DIV^LR7OV1($P(^(0),""^"",4)),""LR PHLEBOTOMY COLLECTION"",DA)"
^DD(69.9001,.01,1,1,"%D",0)="^^1^1^2980828^^^"
^DD(69.9001,.01,1,1,"%D",1,0)="Update CPRS Collection parameter"
^DD(69.9001,.01,1,1,"DT")="2980828"
^DD(69.9001,.01,3)="ENTER TIME IN MILITARY TIME FORMAT, e.g. 0630"
^DD(69.9001,.01,21,0)="^^3^3^2890627^^^^"
^DD(69.9001,.01,21,1,0)="The order cutoff time for associated collection time. Time is in 24 hour"
^DD(69.9001,.01,21,2,0)="format.  Orders placed after the cut-off time will be put on the next"
^DD(69.9001,.01,21,3,0)="routine lab collection."
^DD(69.9001,.01,"DT")="2980828"
^DD(69.9001,1,0)="PHLEBOTOMY COLLECTION TIME^RNJ4,0X^^0;2^K:X'?4N!($E(X,3,4)>59)!(+X>2400)!(X<$P(^LAB(69.9,DA(1),4,DA,0),""^"")) X"
^DD(69.9001,1,1,0)="^.1"
^DD(69.9001,1,1,1,0)="^^TRIGGER^69.9001^2"
^DD(69.9001,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.9,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(69.9001,1,1,1,1.1) X ^DD(69.9001,1,1,1,1.4)"
^DD(69.9001,1,1,1,1.1)="S X=DIV S Y=$S($D(^LAB(69.9,DA(1),4,DA,0)):$P(^(0),""^"",2),1:"""") I $L(Y) S X=$E(Y,1,2)*3600+($E(X,3,4)*60)"
^DD(69.9001,1,1,1,1.4)="S DIH=$S($D(^LAB(69.9,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.9001,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.9001,1,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.9,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(69.9001,1,1,1,2.4)"
^DD(69.9001,1,1,1,2.4)="S DIH=$S($D(^LAB(69.9,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.9001,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.9001,1,1,1,"CREATE VALUE")="S Y=$S($D(^LAB(69.9,DA(1),4,DA,0)):$P(^(0),""^"",2),1:"""") I $L(Y) S X=$E(Y,1,2)*3600+($E(X,3,4)*60)"
^DD(69.9001,1,1,1,"DELETE VALUE")="@"
^DD(69.9001,1,1,1,"FIELD")="$H FORMAT"
^DD(69.9001,1,1,2,0)="69.9001^AXC^MUMPS"
^DD(69.9001,1,1,2,1)="I $P($G(^LAB(69.9,DA(1),4,DA,0)),""^"",4) D COLTIM^LR7OV1($P(^(0),""^"",4),DA,X)"
^DD(69.9001,1,1,2,2)="Q:'$$XPARCK^LR7OV2  I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),""^"",4)) N X D DEL^XPAR($$DIV^LR7OV1($P(^(0),""^"",4)),""LR PHLEBOTOMY COLLECTION"",DA)"
^DD(69.9001,1,1,2,"%D",0)="^^1^1^2980828^^^"
^DD(69.9001,1,1,2,"%D",1,0)="Triggers LR PHLEBOTOMY COLLECTION parameter in CPRS."
^DD(69.9001,1,1,2,"DT")="2980828"
^DD(69.9001,1,3)="ENTER TIME IN MILITARY TIME FORMAT, e.g. 0630 (must be after CUT-OFF TIME)"
^DD(69.9001,1,21,0)="^^1^1^2890117^^^^"
^DD(69.9001,1,21,1,0)="This is the default time for the routine phlebotomy collection."
^DD(69.9001,1,"DT")="2980828"
^DD(69.9001,2,0)="$H FORMAT FOR COLLECTION TIME^RNJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9001,2,1,0)="^.1"
^DD(69.9001,2,1,1,0)="69.9001^AC"
^DD(69.9001,2,1,1,1)="S ^LAB(69.9,DA(1),4,""AC"",$E(X,1,30),DA)="""""
^DD(69.9001,2,1,1,2)="K ^LAB(69.9,DA(1),4,""AC"",$E(X,1,30),DA)"
^DD(69.9001,2,3)=""
^DD(69.9001,2,5,1,0)="69.9001^1^1"
^DD(69.9001,2,9)="^"
^DD(69.9001,2,21,0)="^^2^2^2880415^"
^DD(69.9001,2,21,1,0)="This field is computed from what is entered in the PHLEBOTOMY"
^DD(69.9001,2,21,2,0)="COLLECTION field."
^DD(69.9001,2,"DT")="2880415"
^DD(69.9001,3,0)="DIVISION^P4'^DIC(4,^0;4^Q"
^DD(69.9001,3,1,0)="^.1"
^DD(69.9001,3,1,1,0)="69.9001^AXC1^MUMPS"
^DD(69.9001,3,1,1,1)="I $L($P($G(^LAB(69.9,DA(1),4,DA,0)),""^"",2)) D COLTIM^LR7OV1(X,DA,$P(^(0),""^"",2))"
^DD(69.9001,3,1,1,2)="Q:'$$XPARCK^LR7OV2  D DEL^XPAR($$DIV^LR7OV1(X),""LR PHLEBOTOMY COLLECTION"",DA)"
^DD(69.9001,3,1,1,"%D",0)="^^1^1^2980828^^^"
^DD(69.9001,3,1,1,"%D",1,0)="Triggers LR PHLEBOTOMY COLLECTION parameter in CPRS."
^DD(69.9001,3,1,1,"DT")="2980828"
^DD(69.9001,3,3)="Enter the Division this collection time applies to."
^DD(69.9001,3,21,0)="^^3^3^2911001^"
^DD(69.9001,3,21,1,0)="Allows a multi-division site to define which collection times are"
^DD(69.9001,3,21,2,0)="applicable to which division.  OE/RR-LAB interface uses this to screen"
^DD(69.9001,3,21,3,0)="out times for Lab Collection."
^DD(69.9001,3,21,4,0)="DUZ(2) ((users division)) and only allows them to select from collection"
^DD(69.9001,3,21,5,0)="times that are appropriate for their division."
^DD(69.9001,3,"DT")="2980828"
^DD(69.9001,"B","$H FORMAT FOR COLLECTION TIME",2)=""
^DD(69.9001,"B","DIVISION",3)=""
^DD(69.9001,"B","PHLEBOTOMY COLLECTION TIME",1)=""
^DD(69.9001,"B","PHLEBOTOMY ORDER CUT-OFF TIME",.01)=""
^DD(69.9001,"GL",0,1,.01)=""
^DD(69.9001,"GL",0,2,1)=""
^DD(69.9001,"GL",0,3,2)=""
^DD(69.9001,"GL",0,4,3)=""
^DD(69.9001,"IX",.01)=""
^DD(69.9001,"IX",1)=""
^DD(69.9001,"IX",2)=""
^DD(69.9001,"IX",3)=""
^DD(69.9001,"RQ",.01)=""
^DD(69.9001,"RQ",1)=""
^DD(69.9001,"RQ",2)=""
^DD(69.9002,0)="MICRO SURVEY REPORT DEFAULTS SUB-FIELD^NL^.01^1"
^DD(69.9002,0,"IX","B",69.9002,.01)=""
^DD(69.9002,0,"NM","MICRO SURVEY REPORT DEFAULTS")=""
^DD(69.9002,0,"UP")="69.9"
^DD(69.9002,.01,0)="MICRO SURVEY REPORT DEFAULTS^MS^P:PATIENT;D:PHYSICIAN;L:LOCATION;C:COLLECTION SAMPLE;O:ORGANISM;^0;1^Q"
^DD(69.9002,.01,1,0)="^.1"
^DD(69.9002,.01,1,1,0)="69.9002^B"
^DD(69.9002,.01,1,1,1)="S ^LAB(69.9,DA(1),""MIS"",""B"",$E(X,1,30),DA)="""""
^DD(69.9002,.01,1,1,2)="K ^LAB(69.9,DA(1),""MIS"",""B"",$E(X,1,30),DA)"
^DD(69.9002,.01,21,0)="^^5^5^2860530^^^"
^DD(69.9002,.01,21,1,0)="If present, the individual entries are used as the default of (A)LL for"
^DD(69.9002,.01,21,2,0)="the questions on the Infection Control Survey Report."
^DD(69.9002,.01,21,3,0)="If Collection Sample is present then all surveys will display the"
^DD(69.9002,.01,21,4,0)="collection sample (Samp); otherwise, the survey will display the"
^DD(69.9002,.01,21,5,0)="site/specimen (Spec)."
^DD(69.9002,.01,"DT")="2860115"
^DD(69.9002,"B","MICRO SURVEY REPORT DEFAULTS",.01)=""
^DD(69.9002,"GL",0,1,.01)=""
^DD(69.9002,"IX",.01)=""
^DD(69.9003,0)="ARCHIVE DATA SUB-FIELD^NL^4^5"
^DD(69.9003,0,"NM","ARCHIVE DATA")=""
^DD(69.9003,0,"UP")="69.9"
^DD(69.9003,.01,0)="LOGICAL NAME^FX^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(69.9003,.01,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(69.9003,.01,21,0)="^^1^1^2851001^"
^DD(69.9003,.01,21,1,0)="The logical name for the archive media."
^DD(69.9003,.01,"DT")="2850819"
^DD(69.9003,1,0)="PHYSICAL NAME^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(69.9003,1,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(69.9003,1,21,0)="^^1^1^2851001^"
^DD(69.9003,1,21,1,0)="The physical name for the archive media."
^DD(69.9003,1,"DT")="2850830"
^DD(69.9003,2,0)="RUN DATE^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.9003,2,3)=""
^DD(69.9003,2,21,0)="^^1^1^2851001^^^"
^DD(69.9003,2,21,1,0)="The date on which the particular archive run is made."
^DD(69.9003,2,"DT")="2850819"
^DD(69.9003,3,0)="STATUS^S^1:Searching;2:Search done;3:Clear;4:Purging;5:Purge done;^0;4^Q"
^DD(69.9003,3,21,0)="^^1^1^2851001^"
^DD(69.9003,3,21,1,0)="This field indicates the current status of the archive process."
^DD(69.9003,3,"DT")="2850821"
^DD(69.9003,4,0)="FOR DATA BEFORE DATE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(69.9003,4,21,0)="^^1^1^2851001^"
^DD(69.9003,4,21,1,0)="The date prior to which data may be archived."
^DD(69.9003,4,"DT")="2850819"
^DD(69.9003,"B","FOR DATA BEFORE DATE",4)=""
^DD(69.9003,"B","LOGICAL NAME",.01)=""
^DD(69.9003,"B","PHYSICAL NAME",1)=""
^DD(69.9003,"B","RUN DATE",2)=""
^DD(69.9003,"B","STATUS",3)=""
^DD(69.9003,"GL",0,1,.01)=""
^DD(69.9003,"GL",0,2,1)=""
^DD(69.9003,"GL",0,3,2)=""
^DD(69.9003,"GL",0,4,3)=""
^DD(69.9003,"GL",0,5,4)=""
^DD(69.9004,0)="EXCEPTED LOCATIONS SUB-FIELD^NL^.01^1"
^DD(69.9004,0,"IX","AC",69.9004,.01)=""
^DD(69.9004,0,"IX","AXE",69.9004,.01)=""
^DD(69.9004,0,"NM","EXCEPTED LOCATIONS")=""
^DD(69.9004,0,"UP")="69.9"
^DD(69.9004,.01,0)="EXCEPTED LOCATIONS^M*P44'X^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,2)]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(69.9004,.01,1,0)="^.1"
^DD(69.9004,.01,1,1,0)="69.9004^AC^MUMPS"
^DD(69.9004,.01,1,1,1)="S %=$P(^SC(X,0),U,2) Q:'$L(%)  S ^LAB(69.9,DA(1),2,""AC"",%)="""""
^DD(69.9004,.01,1,1,2)="S %=$P(^SC(X,0),U,2) Q:'$L(%)  K ^LAB(69.9,DA(1),2,""AC"",%)"
^DD(69.9004,.01,1,2,0)="69.9004^AXE^MUMPS"
^DD(69.9004,.01,1,2,1)="D EXCEPTED^LR7OV1(X,1,1)"
^DD(69.9004,.01,1,2,2)="D EXCEPTED^LR7OV1(X,1,0)"
^DD(69.9004,.01,1,2,"%D",0)="^^1^1^2971106^^"
^DD(69.9004,.01,1,2,"%D",1,0)="Triggers the LR EXCEPTED LOCATIONS parameter in CPRS."
^DD(69.9004,.01,1,2,"DT")="2971106"
^DD(69.9004,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)]"""""""""""
^DD(69.9004,.01,21,0)="^^2^2^2910130^"
^DD(69.9004,.01,21,1,0)="Collections for Saturday's, Sunday's, Holidays, etc. are never skipped"
^DD(69.9004,.01,21,2,0)="for locations in this field."
^DD(69.9004,.01,"DT")="2971106"
^DD(69.9004,"B","EXCEPTED LOCATIONS",.01)=""
^DD(69.9004,"GL",0,1,.01)=""
^DD(69.9004,"IX",.01)=""
^DD(69.9005,0)="MICRO TREND REPORT DEFAULTS SUB-FIELD^NL^.01^1"
^DD(69.9005,0,"IX","B",69.9005,.01)=""
^DD(69.9005,0,"NM","MICRO TREND REPORT DEFAULTS")=""
^DD(69.9005,0,"UP")="69.9"
^DD(69.9005,.01,0)="MICRO TREND REPORT DEFAULTS^MS^P:PATIENT;D:PHYSICIAN;L:LOCATION;S:SITE/SPECIMEN;C:COLLECTION SAMPLE;O:ORGANISM;^0;1^Q"
^DD(69.9005,.01,1,0)="^.1"
^DD(69.9005,.01,1,1,0)="69.9005^B"
^DD(69.9005,.01,1,1,1)="S ^LAB(69.9,DA(1),""MIT"",""B"",$E(X,1,30),DA)="""""
^DD(69.9005,.01,1,1,2)="K ^LAB(69.9,DA(1),""MIT"",""B"",$E(X,1,30),DA)"
^DD(69.9005,.01,21,0)="^^2^2^2860530^^"
^DD(69.9005,.01,21,1,0)="If present, the individual entries are used as the default of (A)LL for"
^DD(69.9005,.01,21,2,0)="the questions on the Antibiotic Trend Report."
^DD(69.9005,.01,"DT")="2860114"
^DD(69.9005,"B","MICRO TREND REPORT DEFAULTS",.01)=""
^DD(69.9005,"GL",0,1,.01)=""
^DD(69.9005,"IX",.01)=""
^DD(69.9006,0)="IMMED LAB COLLECT DIV. SUB-FIELD^^8^27"
^DD(69.9006,0,"DT")="2930720"
^DD(69.9006,0,"IX","AC",69.9006,1.1)=""
^DD(69.9006,0,"IX","AD",69.9006,2.1)=""
^DD(69.9006,0,"IX","AE",69.9006,3.1)=""
^DD(69.9006,0,"IX","AF",69.9006,4.1)=""
^DD(69.9006,0,"IX","AG",69.9006,5.1)=""
^DD(69.9006,0,"IX","AH",69.9006,6.1)=""
^DD(69.9006,0,"IX","AI",69.9006,7.1)=""
^DD(69.9006,0,"NM","IMMED LAB COLLECT DIV.")=""
^DD(69.9006,0,"UP")="69.9"
^DD(69.9006,.01,0)="IMMED COLLECTION DIV.^MP4'X^DIC(4,^0;1^I $D(X) S DINUM=X"
^DD(69.9006,.01,1,0)="^.1^^0"
^DD(69.9006,.01,"DT")="2911203"
^DD(69.9006,.03,0)="HOLIDAYS ?^S^1:YES;^0;2^Q"
^DD(69.9006,.03,"DT")="2911202"
^DD(69.9006,.05,0)="IMMED LAB COLLECT PRINTER^P3.5'X^%ZIS(1,^0;3^S:Y>0 X=$P(Y,U,2)"
^DD(69.9006,.05,3)=""
^DD(69.9006,.05,21,0)="^^3^3^2930720^^"
^DD(69.9006,.05,21,1,0)=" This is the printer to which Immediate Lab Collect request will print."
^DD(69.9006,.05,21,2,0)="It is recommended that this printer be different than the printer used"
^DD(69.9006,.05,21,3,0)="for logging routine lab collect."
^DD(69.9006,.05,"DT")="2930720"
^DD(69.9006,.06,0)="MINIMUM RESPONSE TIME^NJ2,0^^0;4^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,.06,3)="Number of minutes lead time for collection, number 1-60"
^DD(69.9006,.06,"DT")="2911203"
^DD(69.9006,.07,0)="MAXIUM HOURS AHEAD ALLOWED^NJ2,0^^0;5^K:+X'=X!(X>96)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,.07,3)="Number 1-96 hrs to allow orders into the future"
^DD(69.9006,.07,"DT")="2911203"
^DD(69.9006,1,0)="SUNDAY^S^1:YES;^SUN;1^Q"
^DD(69.9006,1,"DT")="2911202"
^DD(69.9006,1.1,0)="SUN START TIME^NJ4,0X^^SUN;2^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,1.1,1,0)="^.1"
^DD(69.9006,1.1,1,1,0)="69.9006^AC^MUMPS"
^DD(69.9006,1.1,1,1,1)="Q"
^DD(69.9006,1.1,1,1,2)="Q"
^DD(69.9006,1.1,1,1,"DT")="2920114"
^DD(69.9006,1.1,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,1.1,"DT")="2920114"
^DD(69.9006,1.2,0)="SUN END TIME^NJ4,0X^^SUN;3^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N)!(X<$P(^LAB(69.9,1,7,DA,""SUN""),U,2)) X"
^DD(69.9006,1.2,3)="Number between 1 and 2359, 0 Decimal Digits [AND Must be greater than Start Time]"
^DD(69.9006,1.2,23,0)="^^8^8^2920114^"
^DD(69.9006,1.2,23,1,0)="  I am using the DG variable in the input transform because FM doesn't"
^DD(69.9006,1.2,23,2,0)="set the zeroth node until after I need to check to ensure that the end"
^DD(69.9006,1.2,23,3,0)="time is greater than the start time. I have mentioned this fact to the"
^DD(69.9006,1.2,23,4,0)="FM developers. This is a work around until this can be addressed by the"
^DD(69.9006,1.2,23,5,0)="developers."
^DD(69.9006,1.2,23,6,0)=" "
^DD(69.9006,1.2,23,7,0)="  NOTE: This problem only occurs when you are editing the field for the"
^DD(69.9006,1.2,23,8,0)="first time."
^DD(69.9006,1.2,"DT")="2920114"
^DD(69.9006,2,0)="MONDAY^S^1:YES;^MON;1^Q"
^DD(69.9006,2,"DT")="2911202"
^DD(69.9006,2.1,0)="MON START TIME^NJ4,0^^MON;2^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,2.1,1,0)="^.1"
^DD(69.9006,2.1,1,1,0)="69.9006^AD^MUMPS"
^DD(69.9006,2.1,1,1,1)="Q"
^DD(69.9006,2.1,1,1,2)="Q"
^DD(69.9006,2.1,1,1,"DT")="2920114"
^DD(69.9006,2.1,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,2.1,"DT")="2920114"
^DD(69.9006,2.2,0)="MON END TIME^NJ4,0X^^MON;3^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N)!(X<$P(^LAB(69.9,1,7,DA,""MON""),U,2)) X"
^DD(69.9006,2.2,3)="Number between 1 and 2359, 0 Decimal Digits [AND greater than start time]"
^DD(69.9006,2.2,"DT")="2920114"
^DD(69.9006,3,0)="TUESDAY^S^1:Y;^TUE;1^Q"
^DD(69.9006,3,"DT")="2911202"
^DD(69.9006,3.1,0)="TUE START TIME^NJ4,0^^TUE;2^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,3.1,1,0)="^.1"
^DD(69.9006,3.1,1,1,0)="69.9006^AE^MUMPS"
^DD(69.9006,3.1,1,1,1)="Q"
^DD(69.9006,3.1,1,1,2)="Q"
^DD(69.9006,3.1,1,1,"DT")="2920114"
^DD(69.9006,3.1,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,3.1,"DT")="2920114"
^DD(69.9006,3.2,0)="TUE END TIME^NJ4,0X^^TUE;3^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N)!(X<$P(^LAB(69.9,1,7,DA,""TUE""),U,2)) X"
^DD(69.9006,3.2,3)="Number between 1 and 2359, 0 Decimal Digits [AND greater than start time]"
^DD(69.9006,3.2,"DT")="2920114"
^DD(69.9006,4,0)="WEDNESDAY^S^1:Y;^WED;1^Q"
^DD(69.9006,4,"DT")="2911203"
^DD(69.9006,4.1,0)="WED START TIME^NJ4,0^^WED;2^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,4.1,1,0)="^.1"
^DD(69.9006,4.1,1,1,0)="69.9006^AF^MUMPS"
^DD(69.9006,4.1,1,1,1)="Q"
^DD(69.9006,4.1,1,1,2)="Q"
^DD(69.9006,4.1,1,1,"DT")="2920114"
^DD(69.9006,4.1,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,4.1,"DT")="2920114"
^DD(69.9006,4.2,0)="WED END TIME^NJ4,0X^^WED;3^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N)!(X<$P(^LAB(69.9,1,7,DA,""WED""),U,2)) X"
^DD(69.9006,4.2,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,4.2,"DT")="2920114"
^DD(69.9006,5,0)="THURSDAY^S^1:YES;^THU;1^Q"
^DD(69.9006,5,"DT")="2911203"
^DD(69.9006,5.1,0)="THU START TIME^NJ4,0^^THU;2^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,5.1,1,0)="^.1"
^DD(69.9006,5.1,1,1,0)="69.9006^AG^MUMPS"
^DD(69.9006,5.1,1,1,1)="Q"
^DD(69.9006,5.1,1,1,2)="Q"
^DD(69.9006,5.1,1,1,"DT")="2920114"
^DD(69.9006,5.1,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,5.1,"DT")="2920114"
^DD(69.9006,5.2,0)="THU END TIME^NJ4,0X^^THU;3^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N)!(X<$P(^LAB(69.9,1,7,DA,""THU""),U,2)) X"
^DD(69.9006,5.2,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,5.2,"DT")="2920114"
^DD(69.9006,6,0)="FRIDAY^S^1:YES;^FRI;1^Q"
^DD(69.9006,6,"DT")="2911203"
^DD(69.9006,6.1,0)="FRI START TIME^NJ4,0^^FRI;2^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,6.1,1,0)="^.1"
^DD(69.9006,6.1,1,1,0)="69.9006^AH^MUMPS"
^DD(69.9006,6.1,1,1,1)="Q"
^DD(69.9006,6.1,1,1,2)="Q"
^DD(69.9006,6.1,1,1,"DT")="2920114"
^DD(69.9006,6.1,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,6.1,"DT")="2920114"
^DD(69.9006,6.2,0)="FRI END TIME^NJ4,0X^^FRI;3^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N)!(X<$P(^LAB(69.9,1,7,DA,""FRI""),U,2)) X"
^DD(69.9006,6.2,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,6.2,"DT")="2920114"
^DD(69.9006,7,0)="SATURDAY^S^1:Y;^SAT;1^Q"
^DD(69.9006,7,"DT")="2911203"
^DD(69.9006,7.1,0)="SAT START TIME^NJ4,0^^SAT;2^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9006,7.1,1,0)="^.1"
^DD(69.9006,7.1,1,1,0)="69.9006^AI^MUMPS"
^DD(69.9006,7.1,1,1,1)="Q"
^DD(69.9006,7.1,1,1,2)="Q"
^DD(69.9006,7.1,1,1,"DT")="2920114"
^DD(69.9006,7.1,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,7.1,"DT")="2920114"
^DD(69.9006,7.2,0)="SAT END TIME^NJ4,0X^^SAT;3^K:+X'=X!(X>2359)!(X<1)!(X?.E1"".""1N.N)!(X<$P(^LAB(69.9,1,7,DA,""SAT""),U,2)) X"
^DD(69.9006,7.2,3)="Type a Number between 1 and 2359, 0 Decimal Digits"
^DD(69.9006,7.2,"DT")="2920114"
^DD(69.9006,8,0)="IMMED COLLECT ON^S^1:YES;^0;6^Q"
^DD(69.9006,8,"DT")="2921019"
^DD(69.9006,"B","FRI END TIME",6.2)=""
^DD(69.9006,"B","FRI START TIME",6.1)=""
^DD(69.9006,"B","FRIDAY",6)=""
^DD(69.9006,"B","HOLIDAYS ?",.03)=""
^DD(69.9006,"B","IMMED COLLECT ON",8)=""
^DD(69.9006,"B","IMMED COLLECTION DIV.",.01)=""
^DD(69.9006,"B","IMMED LAB COLLECT PRINTER",.05)=""
^DD(69.9006,"B","MAXIUM HOURS AHEAD ALLOWED",.07)=""
^DD(69.9006,"B","MINIMUM RESPONSE TIME",.06)=""
^DD(69.9006,"B","MON END TIME",2.2)=""
^DD(69.9006,"B","MON START TIME",2.1)=""
^DD(69.9006,"B","MONDAY",2)=""
^DD(69.9006,"B","SAT END TIME",7.2)=""
^DD(69.9006,"B","SAT START TIME",7.1)=""
^DD(69.9006,"B","SATURDAY",7)=""
^DD(69.9006,"B","SUN END TIME",1.2)=""
^DD(69.9006,"B","SUN START TIME",1.1)=""
^DD(69.9006,"B","SUNDAY",1)=""
^DD(69.9006,"B","THU END TIME",5.2)=""
^DD(69.9006,"B","THU START TIME",5.1)=""
^DD(69.9006,"B","THURSDAY",5)=""
^DD(69.9006,"B","TUE END TIME",3.2)=""
^DD(69.9006,"B","TUE START TIME",3.1)=""
^DD(69.9006,"B","TUESDAY",3)=""
^DD(69.9006,"B","WED END TIME",4.2)=""
^DD(69.9006,"B","WED START TIME",4.1)=""
^DD(69.9006,"B","WEDNESDAY",4)=""
^DD(69.9006,"GL",0,1,.01)=""
^DD(69.9006,"GL",0,2,.03)=""
^DD(69.9006,"GL",0,3,.05)=""
^DD(69.9006,"GL",0,4,.06)=""
^DD(69.9006,"GL",0,5,.07)=""
^DD(69.9006,"GL",0,6,8)=""
^DD(69.9006,"GL","FRI",1,6)=""
^DD(69.9006,"GL","FRI",2,6.1)=""
^DD(69.9006,"GL","FRI",3,6.2)=""
^DD(69.9006,"GL","MON",1,2)=""
^DD(69.9006,"GL","MON",2,2.1)=""
^DD(69.9006,"GL","MON",3,2.2)=""
^DD(69.9006,"GL","SAT",1,7)=""
^DD(69.9006,"GL","SAT",2,7.1)=""
^DD(69.9006,"GL","SAT",3,7.2)=""
^DD(69.9006,"GL","SUN",1,1)=""
^DD(69.9006,"GL","SUN",2,1.1)=""
^DD(69.9006,"GL","SUN",3,1.2)=""
^DD(69.9006,"GL","THU",1,5)=""
^DD(69.9006,"GL","THU",2,5.1)=""
^DD(69.9006,"GL","THU",3,5.2)=""
^DD(69.9006,"GL","TUE",1,3)=""
^DD(69.9006,"GL","TUE",2,3.1)=""
^DD(69.9006,"GL","TUE",3,3.2)=""
^DD(69.9006,"GL","WED",1,4)=""
^DD(69.9006,"GL","WED",2,4.1)=""
^DD(69.9006,"GL","WED",3,4.2)=""
^DD(69.9006,"IX",1.1)=""
^DD(69.9006,"IX",2.1)=""
^DD(69.9006,"IX",3.1)=""
^DD(69.9006,"IX",4.1)=""
^DD(69.9006,"IX",5.1)=""
^DD(69.9006,"IX",6.1)=""
^DD(69.9006,"IX",7.1)=""
^DD(69.9007,0)="PRINTER DIVISION SUB-FIELD^^.03^3"
^DD(69.9007,0,"DT")="2960917"
^DD(69.9007,0,"IX","B",69.9007,.01)=""
^DD(69.9007,0,"NM","PRINTER DIVISION")=""
^DD(69.9007,0,"UP")="69.9"
^DD(69.9007,.01,0)="PRINTER DIVISION^P4'X^DIC(4,^0;1^I $D(X) S DINUM=X"
^DD(69.9007,.01,1,0)="^.1"
^DD(69.9007,.01,1,1,0)="69.9007^B"
^DD(69.9007,.01,1,1,1)="S ^LAB(69.9,DA(1),3.5,""B"",$E(X,1,30),DA)="""""
^DD(69.9007,.01,1,1,2)="K ^LAB(69.9,DA(1),3.5,""B"",$E(X,1,30),DA)"
^DD(69.9007,.01,21,0)="^^1^1^2960917^^"
^DD(69.9007,.01,21,1,0)="This field should be set equal to the DUZ(2) value."
^DD(69.9007,.01,"DT")="2960917"
^DD(69.9007,.02,0)="LOG PRINTER FOR ROUTINE LC^P3.5'X^%ZIS(1,^0;2^K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)=""EMQ"" S X=$P(Y,U,2),DIC=DIE K:Y<1 X"
^DD(69.9007,.02,3)="Enter the name of the device to print the lab collect log on."
^DD(69.9007,.02,21,0)="^^4^4^2960917^"
^DD(69.9007,.02,21,1,0)="This is the device you want the Routine Lab Collect Request to print on."
^DD(69.9007,.02,21,2,0)="It is recommended that this printer be different one than the one used for"
^DD(69.9007,.02,21,3,0)="immediate collect listing.  If this field is vacant, the program defaults "
^DD(69.9007,.02,21,4,0)="to field #303 Log Printer for Routine LC."
^DD(69.9007,.02,"DT")="2960917"
^DD(69.9007,.03,0)="ACCESSION PRINTER^P3.5'X^%ZIS(1,^0;3^K:$L(X)>20!($L(X)<1) X I $D(X) S DIC(0)=""EMQ"" S X=$P(Y,U,2),DIC=DIE K:Y<1 X"
^DD(69.9007,.03,3)="Enter the name of the default label device."
^DD(69.9007,.03,"DT")="2960917"
^DD(69.9007,"B","ACCESSION PRINTER",.03)=""
^DD(69.9007,"B","LOG PRINTER FOR ROUTINE LC",.02)=""
^DD(69.9007,"B","PRINTER DIVISION",.01)=""
^DD(69.9007,"GL",0,1,.01)=""
^DD(69.9007,"GL",0,2,.02)=""
^DD(69.9007,"GL",0,3,.03)=""
^DD(69.9007,"IX",.01)=""
^DD(69.9008,0)="LABEL DEVICE SUB-FIELD^^.06^6"
^DD(69.9008,0,"DT")="2980710"
^DD(69.9008,0,"IX","B",69.9008,.01)=""
^DD(69.9008,0,"NM","LABEL DEVICE")=""
^DD(69.9008,0,"UP")="69.9"
^DD(69.9008,.01,0)="LABEL DEVICE^MP3.5'X^%ZIS(1,^0;1^Q"
^DD(69.9008,.01,1,0)="^.1"
^DD(69.9008,.01,1,1,0)="69.9008^B"
^DD(69.9008,.01,1,1,1)="S ^LAB(69.9,DA(1),3.6,""B"",$E(X,1,30),DA)="""""
^DD(69.9008,.01,1,1,2)="K ^LAB(69.9,DA(1),3.6,""B"",$E(X,1,30),DA)"
^DD(69.9008,.01,3)="Enter the name of a device used for Lab label printing."
^DD(69.9008,.01,21,0)="^^4^4^2980706^^"
^DD(69.9008,.01,21,1,0)="Used by Laboratory software to identify which devices are label printers."
^DD(69.9008,.01,21,2,0)="This allows the software to handle various types of label printers and"
^DD(69.9008,.01,21,3,0)="label stock concurrently. It should be useful at multi-divisional and"
^DD(69.9008,.01,21,4,0)="integrated sites that use a variety of dissimilar equipment/label stock."
^DD(69.9008,.01,"DT")="2970113"
^DD(69.9008,.02,0)="PRINTER TYPE^S^0:OTHER;1:INTERMEC 3000/4000 SERIES;2:ZEBRA ZPL II COMPATIBLE;^0;2^Q"
^DD(69.9008,.02,3)="Enter the type of label printer attached to this device."
^DD(69.9008,.02,21,0)="^^9^9^2980720^^^^"
^DD(69.9008,.02,21,1,0)="Used to designate if device is a specialized label printer that is"
^DD(69.9008,.02,21,2,0)="supported by Lab software and to determine the specialized Lab label"
^DD(69.9008,.02,21,3,0)="routine to use."
^DD(69.9008,.02,21,4,0)=" "
^DD(69.9008,.02,21,5,0)="Use ""OTHER"" when the printer is not compatible with the supported"
^DD(69.9008,.02,21,6,0)="printers."
^DD(69.9008,.02,21,7,0)=" "
^DD(69.9008,.02,21,8,0)="When Lab supports other manufacturers of label printers, they will be added"
^DD(69.9008,.02,21,9,0)="as supported printers to this field."
^DD(69.9008,.02,"DT")="2991006"
^DD(69.9008,.03,0)="LABEL STOCK^S^0:OTHER;1:1X3;2:1X2;3:2.5X4 10 PART;^0;3^Q"
^DD(69.9008,.03,3)="Select the type of label stock loaded in this device."
^DD(69.9008,.03,21,0)="^^2^2^2980706^"
^DD(69.9008,.03,21,1,0)="This field is used to designate the type of label stock that is"
^DD(69.9008,.03,21,2,0)="installed in this printer."
^DD(69.9008,.03,"DT")="2991209"
^DD(69.9008,.04,0)="ALTERNATE LABEL ENTRY^F^^0;4^K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X"
^DD(69.9008,.04,3)="Answer must be 1-8 uppercase alpha and/or numeric characters in length."
^DD(69.9008,.04,9)="@"
^DD(69.9008,.04,21,0)="^^4^4^2980706^^^^"
^DD(69.9008,.04,21,1,0)="Site can enter an alternate label entry point to be used instead of "
^DD(69.9008,.04,21,2,0)="the standard lab label routines used by the lab package when printing"
^DD(69.9008,.04,21,3,0)="labels using this device. Field ALTERNATE LABEL ROUTINE (#.05) must be"
^DD(69.9008,.04,21,4,0)="completed for software to use this field."
^DD(69.9008,.04,"DT")="2971205"
^DD(69.9008,.05,0)="ALTERNATE LABEL ROUTINE^F^^0;5^K:$L(X)>8!($L(X)<1)!'(X?1.8UN) X"
^DD(69.9008,.05,3)="Answer must be 1-8 uppercase alpha and/or numeric characters in length."
^DD(69.9008,.05,9)="@"
^DD(69.9008,.05,21,0)="^^3^3^2980706^^^^"
^DD(69.9008,.05,21,1,0)="Site can enter an alternate label routine to be used instead of the standard"
^DD(69.9008,.05,21,2,0)="lab label routines used by the lab package when printing labels using this"
^DD(69.9008,.05,21,3,0)="device."
^DD(69.9008,.05,"DT")="2971205"
^DD(69.9008,.06,0)="DEFAULT ACCESSION AREA^P68'^LRO(68,^0;6^Q"
^DD(69.9008,.06,3)="Select accession area to use for default characteristics."
^DD(69.9008,.06,21,0)="^^10^10^2980706^^^"
^DD(69.9008,.06,21,1,0)="This field is used by the label software when printing test or future"
^DD(69.9008,.06,21,2,0)="order labels. When printing these types of labels, there is no accession"
^DD(69.9008,.06,21,3,0)="area identified to obtain additional label characteristics such as type"
^DD(69.9008,.06,21,4,0)="of barcode or accession area alternate label routine."
^DD(69.9008,.06,21,5,0)=" "
^DD(69.9008,.06,21,6,0)="The accession area designated for this device will be used by the software"
^DD(69.9008,.06,21,7,0)="to obtain accession area specific characteristics when printing labels which"
^DD(69.9008,.06,21,8,0)="are not associated with any particular accession area. Examples of these"
^DD(69.9008,.06,21,9,0)="characteristics are barcode type, number of pad digits for barcode number,"
^DD(69.9008,.06,21,10,0)="and alternate label routine."
^DD(69.9008,.06,"DT")="2970828"
^DD(69.9008,"B","ALTERNATE LABEL ENTRY",.04)=""
^DD(69.9008,"B","ALTERNATE LABEL ROUTINE",.05)=""
^DD(69.9008,"B","DEFAULT ACCESSION AREA",.06)=""
^DD(69.9008,"B","LABEL DEVICE",.01)=""
^DD(69.9008,"B","LABEL STOCK",.03)=""
^DD(69.9008,"B","PRINTER TYPE",.02)=""
^DD(69.9008,"GL",0,1,.01)=""
^DD(69.9008,"GL",0,2,.02)=""
^DD(69.9008,"GL",0,3,.03)=""
^DD(69.9008,"GL",0,4,.04)=""
^DD(69.9008,"GL",0,5,.05)=""
^DD(69.9008,"GL",0,6,.06)=""
^DD(69.9008,"IX",.01)=""
^DD(69.91,0)="FIELD^^6^7"
^DD(69.91,0,"DDA")="N"
^DD(69.91,0,"DT")="2930317"
^DD(69.91,0,"ID",2)="W:$D(^(""0"")) ""   "",$$FMTE^XLFDT($P(^(""0""),U,3),""5Z"")"
^DD(69.91,0,"IX","B",69.91,.01)=""
^DD(69.91,0,"IX","C",69.9113,.01)=""
^DD(69.91,0,"NM","LR ROUTINE INTEGRITY CHECKER")=""
^DD(69.91,0,"VR")="5.2"
^DD(69.91,0,"VRPK")="LR"
^DD(69.91,.01,0)="Version #^RF^^0;1^K:$L(X)>10!($L(X)<3) X"
^DD(69.91,.01,1,0)="^.1"
^DD(69.91,.01,1,1,0)="69.91^B"
^DD(69.91,.01,1,1,1)="S ^LAB(69.91,""B"",$E(X,1,30),DA)="""""
^DD(69.91,.01,1,1,2)="K ^LAB(69.91,""B"",$E(X,1,30),DA)"
^DD(69.91,.01,3)="ANSWER MUST BE 3-6 CHARACTERS IN LENGTH"
^DD(69.91,.01,21,0)="^^1^1^2881205^^"
^DD(69.91,.01,21,1,0)="    The version number for this set of exported routines"
^DD(69.91,1,0)="Routine^69.911^^ROU;0"
^DD(69.91,1,20,0)="^.3LA^1^1"
^DD(69.91,1,20,1,0)="LR"
^DD(69.91,1,21,0)="^^1^1^2920203^^^^"
^DD(69.91,1,21,1,0)="   Enter the name of the routine to be exported"
^DD(69.91,2,0)="Distribution Date^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(69.91,2,21,0)="^^1^1^2930327^"
^DD(69.91,2,21,1,0)=" This field contains the distrubution date of this version."
^DD(69.91,3,0)="DELETED OPTIONS^69.913^^DO;0"
^DD(69.91,3,21,0)="^^2^2^2930327^"
^DD(69.91,3,21,1,0)=" This field contains a list of options which are being deleted or being"
^DD(69.91,3,21,2,0)="moved from one menu to another during version installation."
^DD(69.91,4,0)="DELETE PRINT TEMPLATE^69.914A^^PRT;0"
^DD(69.91,4,21,0)="^^2^2^2930327^^"
^DD(69.91,4,21,1,0)=" A list of print templates which are obsolete or being replaced by"
^DD(69.91,4,21,2,0)="another template using new file structure."
^DD(69.91,4,23,0)="^^2^2^2930317^"
^DD(69.91,4,23,1,0)=" The post init routine LROPUD uses this field during clean up/deletion"
^DD(69.91,4,23,2,0)="process."
^DD(69.91,5,0)="DELETE SORT TEMPLATE^69.915A^^SORT;0"
^DD(69.91,5,21,0)="^^2^2^2930327^^"
^DD(69.91,5,21,1,0)=" This field contains a list of obsolete or replaced sort templates using"
^DD(69.91,5,21,2,0)="the new file structure."
^DD(69.91,5,23,0)="^^1^1^2930317^"
^DD(69.91,5,23,1,0)=" The post init routine LROPUD uses this field to delete sort templates."
^DD(69.91,6,0)="DELETE EDIT TEMPLATE^69.916A^^EDIT;0"
^DD(69.91,6,21,0)="^^2^2^2930317^"
^DD(69.91,6,21,1,0)=" This field contains a list of edit/input templates which are obsolete"
^DD(69.91,6,21,2,0)="or being replaced by templates based on the new file structure."
^DD(69.91,6,23,0)="^^3^3^2930317^"
^DD(69.91,6,23,1,0)="  The post init routine LROPUD uses this field to delete edit templates"
^DD(69.91,6,23,2,0)="which are obsolete or being replaced by new templates based on the new"
^DD(69.91,6,23,3,0)="file structure."
^DD(69.91,"B","DELETE EDIT TEMPLATE",6)=""
^DD(69.91,"B","DELETE PRINT TEMPLATE",4)=""
^DD(69.91,"B","DELETE SORT TEMPLATE",5)=""
^DD(69.91,"B","DELETED OPTIONS",3)=""
^DD(69.91,"B","Distribution Date",2)=""
^DD(69.91,"B","Routine",1)=""
^DD(69.91,"B","Version #",.01)=""
^DD(69.91,"GL",0,1,.01)=""
^DD(69.91,"GL",0,2,2)=""
^DD(69.91,"GL","DO",0,3)=""
^DD(69.91,"GL","EDIT",0,6)=""
^DD(69.91,"GL","PRT",0,4)=""
^DD(69.91,"GL","ROU",0,1)=""
^DD(69.91,"GL","SORT",0,5)=""
^DD(69.91,"GR","LR",1,1)=""
^DD(69.91,"IX",.01)=""
^DD(69.91,"RQ",.01)=""
^DD(69.91,"RQ",2)=""
^DD(69.91,"SB",69.911,1)=""
^DD(69.91,"SB",69.913,3)=""
^DD(69.91,"SB",69.914,4)=""
^DD(69.91,"SB",69.915,5)=""
^DD(69.91,"SB",69.916,6)=""
^DD(69.911,0)="Routine SUB-FIELD^^3^5"
^DD(69.911,0,"DT")="2921019"
^DD(69.911,0,"IX","B",69.911,.01)=""
^DD(69.911,0,"IX","C",69.9113,.01)=""
^DD(69.911,0,"NM","Routine")=""
^DD(69.911,0,"UP")="69.91"
^DD(69.911,.01,0)="Routine^MFX^^0;1^K:$L(X)>8!($L(X)<3)!'(""L""[$E(X)) X I $D(X) X ^%ZOSF(""TEST"") K:'$T X I $D(X) D SCREEN^LRNITEG"
^DD(69.911,.01,1,0)="^.1"
^DD(69.911,.01,1,1,0)="69.911^B"
^DD(69.911,.01,1,1,1)="S ^LAB(69.91,DA(1),""ROU"",""B"",$E(X,1,30),DA)="""""
^DD(69.911,.01,1,1,2)="K ^LAB(69.91,DA(1),""ROU"",""B"",$E(X,1,30),DA)"
^DD(69.911,.01,1,2,0)="^^TRIGGER^69.911^1"
^DD(69.911,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,""ROU"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(69.911,.01,1,2,1.1) X ^DD(69.911,.01,1,2,1.4)"
^DD(69.911,.01,1,2,1.1)="S X=DIV D EN^LRNITEG,SIZE^LRNITEG S X=SIZE"
^DD(69.911,.01,1,2,1.4)="S DIH=$S($D(^LAB(69.91,DIV(0),""ROU"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=69.911,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.911,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,""ROU"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(69.911,.01,1,2,2.4)"
^DD(69.911,.01,1,2,2.4)="S DIH=$S($D(^LAB(69.91,DIV(0),""ROU"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=69.911,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.911,.01,1,2,"CREATE VALUE")="D EN^LRNITEG,SIZE^LRNITEG S X=SIZE"
^DD(69.911,.01,1,2,"DELETE VALUE")="@"
^DD(69.911,.01,1,2,"FIELD")="Routine Size ($L)"
^DD(69.911,.01,1,3,0)="^^TRIGGER^69.911^2"
^DD(69.911,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,""ROU"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(69.911,.01,1,3,1.1) X ^DD(69.911,.01,1,3,1.4)"
^DD(69.911,.01,1,3,1.1)="S X=XBIT"
^DD(69.911,.01,1,3,1.4)="S DIH=$S($D(^LAB(69.91,DIV(0),""ROU"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.911,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.911,.01,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,""ROU"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(69.911,.01,1,3,2.4)"
^DD(69.911,.01,1,3,2.4)="S DIH=$S($D(^LAB(69.91,DIV(0),""ROU"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=69.911,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.911,.01,1,3,"CREATE VALUE")="D EN^LRNITEG,SIZE^LRNITEG S X=XBIT"
^DD(69.911,.01,1,3,"DELETE VALUE")="@"
^DD(69.911,.01,1,3,"FIELD")="Routine Bit Size ($A)"
^DD(69.911,.01,1,4,0)="^^TRIGGER^69.911^2.5"
^DD(69.911,.01,1,4,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,""ROU"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(69.911,.01,1,4,1.1) X ^DD(69.911,.01,1,4,1.4)"
^DD(69.911,.01,1,4,1.1)="S X=DIV D CKSUM^LRNITEG S X=XSUM"
^DD(69.911,.01,1,4,1.4)="S DIH=$S($D(^LAB(69.91,DIV(0),""ROU"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=69.911,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.911,.01,1,4,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^LAB(69.91,D0,""ROU"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(69.911,.01,1,4,2.4)"
^DD(69.911,.01,1,4,2.4)="S DIH=$S($D(^LAB(69.91,DIV(0),""ROU"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=69.911,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(69.911,.01,1,4,"CREATE VALUE")="D CKSUM^LRNITEG S X=XSUM"
^DD(69.911,.01,1,4,"DELETE VALUE")="@"
^DD(69.911,.01,1,4,"FIELD")="Check Sum"
^DD(69.911,.01,3)="ANSWER MUST BE 3-8 CHARACTERS IN LENGTH WHICH BEGIN WITH 'L'"
^DD(69.911,.01,10)="LABORATORY PACKAGE ROUTINES"
^DD(69.911,.01,21,0)="^^1^1^2890103^^^^"
^DD(69.911,.01,21,1,0)="   Enter name of a Laboratory Routine  Must begin with 'L'"
^DD(69.911,.01,21,2,0)=" Or you may enter a patch number."
^DD(69.911,.01,"AUDIT")=""
^DD(69.911,.01,"DT")="2901030"
^DD(69.911,1,0)="Routine Size ($L)^NJ4,0I^^0;2^K:+X'=X!(X>4500)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.911,1,1,0)="^.1^^0"
^DD(69.911,1,3)="Type a Number between 1 and 4500, 0 Decimal Digits"
^DD(69.911,1,5,1,0)="69.911^.01^2"
^DD(69.911,1,21,0)="^^2^2^2901030^^^^"
^DD(69.911,1,21,1,0)="This is the size ($L) of the routine determined by LRNITEG"
^DD(69.911,1,21,2,0)="This does not include the 1 st. line of the routine.. It is not Editable."
^DD(69.911,1,"AUDIT")=""
^DD(69.911,1,"DT")="2890705"
^DD(69.911,2,0)="Routine Bit Size ($A)^NJ7,0I^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.911,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(69.911,2,5,1,0)="69.911^.01^3"
^DD(69.911,2,21,0)="^^3^3^2901030^^^"
^DD(69.911,2,21,1,0)=" Enter the routine bit size as derived by LRNITEG"
^DD(69.911,2,21,2,0)="This value does not include the 1 st Line or the routine."
^DD(69.911,2,21,3,0)="   Sum of all the ASCI charaters in the routines."
^DD(69.911,2,"AUDIT")=""
^DD(69.911,2,"DT")="2890705"
^DD(69.911,2.5,0)="Check Sum^NJ9,0IO^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.911,2.5,2)="S Y(0)=Y S Y=$S(Y=1:""Can't Compute"",+Y=0:""Not Computed"",1:Y)"
^DD(69.911,2.5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(69.911,2.5,5,1,0)="69.911^.01^4"
^DD(69.911,2.5,21,0)="^^6^6^2910125^^^^"
^DD(69.911,2.5,21,1,0)="This is the check sum provided by the ^%ZOSF(""RSUM"") node and the CHECKSUM"
^DD(69.911,2.5,21,2,0)="value shown on the FORUM patch module. This is a True check sum value."
^DD(69.911,2.5,21,3,0)="It does not include the second line of the routine in the"
^DD(69.911,2.5,21,4,0)="calculation, therefore it does not ensure that the patch number"
^DD(69.911,2.5,21,5,0)="has been placed in that line. ie **45**. This line is checked however"
^DD(69.911,2.5,21,6,0)="by the $L and the $A nodes."
^DD(69.911,2.5,"DT")="2901031"
^DD(69.911,3,0)="Patch #^69.9113^^1;0"
^DD(69.911,"B","Check Sum",2.5)=""
^DD(69.911,"B","Patch #",3)=""
^DD(69.911,"B","Routine",.01)=""
^DD(69.911,"B","Routine Bit Size ($A)",2)=""
^DD(69.911,"B","Routine Size ($L)",1)=""
^DD(69.911,"GL",0,1,.01)=""
^DD(69.911,"GL",0,2,1)=""
^DD(69.911,"GL",0,3,2)=""
^DD(69.911,"GL",0,4,2.5)=""
^DD(69.911,"GL",1,0,3)=""
^DD(69.911,"IX",.01)=""
^DD(69.911,"SB",69.9113,3)=""
^DD(69.9113,0)="Patch # SUB-FIELD^^.01^1"
^DD(69.9113,0,"DT")="2921019"
^DD(69.9113,0,"NM","Patch #")=""
^DD(69.9113,0,"UP")="69.911"
^DD(69.9113,.01,0)="Patch #^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.9113,.01,1,0)="^.1"
^DD(69.9113,.01,1,1,0)="69.911^C"
^DD(69.9113,.01,1,1,1)="S ^LAB(69.91,DA(2),""ROU"",""C"",$E(X,1,30),DA(1),DA)="""""
^DD(69.9113,.01,1,1,2)="K ^LAB(69.91,DA(2),""ROU"",""C"",$E(X,1,30),DA(1),DA)"
^DD(69.9113,.01,1,2,0)="69.91^C"
^DD(69.9113,.01,1,2,1)="S ^LAB(69.91,""C"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(69.9113,.01,1,2,2)="K ^LAB(69.91,""C"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(69.9113,.01,1,2,"DT")="2921019"
^DD(69.9113,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(69.9113,.01,21,0)="^^1^1^2921019^"
^DD(69.9113,.01,21,1,0)=" Enter a patch number if appropriate."
^DD(69.9113,.01,"DT")="2881228"
^DD(69.9113,"B","Patch #",.01)=""
^DD(69.9113,"GL",0,1,.01)=""
^DD(69.9113,"IX",.01)=""
^DD(69.913,0)="DELETED OPTIONS SUB-FIELD^^3^4"
^DD(69.913,0,"DT")="2930224"
^DD(69.913,0,"IX","B",69.913,.01)=""
^DD(69.913,0,"IX","C",69.913,1)=""
^DD(69.913,0,"NM","DELETED OPTIONS")=""
^DD(69.913,0,"UP")="69.91"
^DD(69.913,.01,0)="DELETED OPTIONS^MF^^0;1^K:$L(X)>45!($L(X)<3) X"
^DD(69.913,.01,1,0)="^.1^^-1"
^DD(69.913,.01,1,1,0)="69.913^B"
^DD(69.913,.01,1,1,1)="S ^LAB(69.91,DA(1),""DO"",""B"",$E(X,1,30),DA)="""""
^DD(69.913,.01,1,1,2)="K ^LAB(69.91,DA(1),""DO"",""B"",$E(X,1,30),DA)"
^DD(69.913,.01,3)="Enter the MENU TEXT of the option being deleted."
^DD(69.913,.01,"DT")="2930224"
^DD(69.913,1,0)="OPTION NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X"
^DD(69.913,1,1,0)="^.1"
^DD(69.913,1,1,1,0)="69.913^C"
^DD(69.913,1,1,1,1)="S ^LAB(69.91,DA(1),""DO"",""C"",$E(X,1,30),DA)="""""
^DD(69.913,1,1,1,2)="K ^LAB(69.91,DA(1),""DO"",""C"",$E(X,1,30),DA)"
^DD(69.913,1,3)="Answer must be 3-60 characters in length."
^DD(69.913,1,"DT")="2930224"
^DD(69.913,2,0)="REPOINT^S^1:YES;0:NO;^0;3^Q"
^DD(69.913,2,"DT")="2890329"
^DD(69.913,3,0)="REPOINT TO OPTION^F^^0;4^K:$L(X)>45!($L(X)<3) X"
^DD(69.913,3,3)="Enter the name of the option to which repointing."
^DD(69.913,3,"DT")="2890329"
^DD(69.913,"B","DELETED OPTIONS",.01)=""
^DD(69.913,"B","OPTION NAME",1)=""
^DD(69.913,"B","REPOINT",2)=""
^DD(69.913,"B","REPOINT TO OPTION",3)=""
^DD(69.913,"GL",0,1,.01)=""
^DD(69.913,"GL",0,2,1)=""
^DD(69.913,"GL",0,3,2)=""
^DD(69.913,"GL",0,4,3)=""
^DD(69.913,"IX",.01)=""
^DD(69.913,"IX",1)=""
^DD(69.914,0)="DELETE PRINT TEMPLATE SUB-FIELD^^.01^1"
^DD(69.914,0,"DT")="2930317"
^DD(69.914,0,"IX","B",69.914,.01)=""
^DD(69.914,0,"NM","DELETE PRINT TEMPLATE")=""
^DD(69.914,0,"UP")="69.91"
^DD(69.914,.01,0)="DELETE PRINT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(69.914,.01,1,0)="^.1"
^DD(69.914,.01,1,1,0)="69.914^B"
^DD(69.914,.01,1,1,1)="S ^LAB(69.91,DA(1),""PRT"",""B"",$E(X,1,30),DA)="""""
^DD(69.914,.01,1,1,2)="K ^LAB(69.91,DA(1),""PRT"",""B"",$E(X,1,30),DA)"
^DD(69.914,.01,3)="Answer must be 1-50 characters in length."
^DD(69.914,.01,"DT")="2930317"
^DD(69.914,"B","DELETE PRINT TEMPLATE",.01)=""
^DD(69.914,"GL",0,1,.01)=""
^DD(69.914,"IX",.01)=""
^DD(69.915,0)="DELETE SORT TEMPLATE SUB-FIELD^^.01^1"
^DD(69.915,0,"DT")="2930317"
^DD(69.915,0,"IX","B",69.915,.01)=""
^DD(69.915,0,"NM","DELETE SORT TEMPLATE")=""
^DD(69.915,0,"UP")="69.91"
^DD(69.915,.01,0)="DELETE SORT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(69.915,.01,1,0)="^.1"
^DD(69.915,.01,1,1,0)="69.915^B"
^DD(69.915,.01,1,1,1)="S ^LAB(69.91,DA(1),""SORT"",""B"",$E(X,1,30),DA)="""""
^DD(69.915,.01,1,1,2)="K ^LAB(69.91,DA(1),""SORT"",""B"",$E(X,1,30),DA)"
^DD(69.915,.01,3)="Answer must be 1-50 characters in length."
^DD(69.915,.01,"DT")="2930317"
^DD(69.915,"B","DELETE SORT TEMPLATE",.01)=""
^DD(69.915,"GL",0,1,.01)=""
^DD(69.915,"IX",.01)=""
^DD(69.916,0)="DELETE EDIT TEMPLATE SUB-FIELD^^.01^1"
^DD(69.916,0,"DT")="2930317"
^DD(69.916,0,"IX","B",69.916,.01)=""
^DD(69.916,0,"NM","DELETE EDIT TEMPLATE")=""
^DD(69.916,0,"UP")="69.91"
^DD(69.916,.01,0)="DELETE EDIT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(69.916,.01,1,0)="^.1"
^DD(69.916,.01,1,1,0)="69.916^B"
^DD(69.916,.01,1,1,1)="S ^LAB(69.91,DA(1),""EDIT"",""B"",$E(X,1,30),DA)="""""
^DD(69.916,.01,1,1,2)="K ^LAB(69.91,DA(1),""EDIT"",""B"",$E(X,1,30),DA)"
^DD(69.916,.01,3)="Answer must be 1-50 characters in length."
^DD(69.916,.01,"DT")="2930317"
^DD(69.916,"B","DELETE EDIT TEMPLATE",.01)=""
^DD(69.916,"GL",0,1,.01)=""
^DD(69.916,"IX",.01)=""
^DD(69.9618,0)="DIVISION PARAMETERS SUB-FIELD^^618^2"
^DD(69.9618,0,"DT")="2991017"
^DD(69.9618,0,"IX","B",69.9618,.01)=""
^DD(69.9618,0,"NM","DIVISION PARAMETERS")=""
^DD(69.9618,0,"UP")="69.9"
^DD(69.9618,.01,0)="DIVISION PARAMETERS^M*P4'X^DIC(4,^0;1^S DIC(""S"")=""I $G(^(99),U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(69.9618,.01,1,0)="^.1"
^DD(69.9618,.01,1,1,0)="69.9618^B"
^DD(69.9618,.01,1,1,1)="S ^LAB(69.9,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(69.9618,.01,1,1,2)="K ^LAB(69.9,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(69.9618,.01,12)="Select Institutions having station numbers only"
^DD(69.9618,.01,12.1)="S DIC(""S"")=""I $G(^(99),U)"""
^DD(69.9618,.01,21,0)="0"
^DD(69.9618,.01,"DT")="2991017"
^DD(69.9618,618,0)="VENIPUNCTURE DEFAULT ACC AREA^P68'^LRO(68,^20;1^Q"
^DD(69.9618,618,21,0)="^.001^6^6^3000601^^"
^DD(69.9618,618,21,1,0)="This field will allow the site to assign the venipuncture LMIP workload to"
^DD(69.9618,618,21,2,0)="a specific ACCESSION AREA. If this field is blank, the venipuncture"
^DD(69.9618,618,21,3,0)="workload software will use the ACCESSION AREA name that begins with 'HEM'."
^DD(69.9618,618,21,4,0)="If there is no ACCESSION AREA with a name beginning with 'HEM', ACCESSION"
^DD(69.9618,618,21,5,0)="AREA the internal file number of 10 will be used as the default"
^DD(69.9618,618,21,6,0)="Venipuncture Accession Area."
^DD(69.9618,618,"DT")="3000427"
^DD(69.9618,"B","DIVISION PARAMETERS",.01)=""
^DD(69.9618,"B","VENIPUNCTURE DEFAULT ACC AREA",618)=""
^DD(69.9618,"GL",0,1,.01)=""
^DD(69.9618,"GL",20,1,618)=""
^DD(69.9618,"IX",.01)=""
^DD(69.98,0)="BLOOD BANK DEFAULTS SUB-FIELD^^.11^11"
^DD(69.98,0,"DT")="2920731"
^DD(69.98,0,"IX","B",69.98,.01)=""
^DD(69.98,0,"NM","BLOOD BANK DEFAULTS")=""
^DD(69.98,0,"UP")="69.9"
^DD(69.98,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(69.98,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 8"
^DD(69.98,.001,"DT")="2870113"
^DD(69.98,.01,0)="BLOOD BANK OPTION^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(69.98,.01,1,0)="^.1"
^DD(69.98,.01,1,1,0)="69.98^B"
^DD(69.98,.01,1,1,1)="S ^LAB(69.9,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(69.98,.01,1,1,2)="K ^LAB(69.9,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(69.98,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(69.98,.01,"DT")="2870113"
^DD(69.98,.02,0)="FIRST DEFAULT^S^1:YES;0:NO;^0;2^Q"
^DD(69.98,.02,21,0)="^^3^3^2921227^^^^"
^DD(69.98,.02,21,1,0)=" DONOR: Move ABO/Rh test results to inventory file"
^DD(69.98,.02,21,2,0)=" INVENTORY:"
^DD(69.98,.02,21,3,0)=" PATIENT: Direct Coombs testing default"
^DD(69.98,.02,"DT")="2870107"
^DD(69.98,.03,0)="SECOND DEFAULT^S^1:YES;0:NO;^0;3^Q"
^DD(69.98,.03,3)=""
^DD(69.98,.03,21,0)="^^1^1^2880617^^^"
^DD(69.98,.03,21,1,0)="DONOR: ASK MILITARY RANK"
^DD(69.98,.04,0)="THIRD DEFAULT^S^1:YES;0:NO;^0;4^Q"
^DD(69.98,.04,3)=""
^DD(69.98,.04,21,0)="^^1^1^2930401^^^^"
^DD(69.98,.04,21,1,0)=" DONOR: ASK BAG LOT NUMBER"
^DD(69.98,.05,0)="FOURTH DEFAULT^S^1:YES;0:NO;^0;5^Q"
^DD(69.98,.05,3)=""
^DD(69.98,.05,21,0)="^^1^1^2930401^^"
^DD(69.98,.05,21,1,0)="DONOR: ASK SOCIAL SECURITY NUMBER"
^DD(69.98,.06,0)="FIFTH DEFAULT^S^1:YES;0:NO;^0;6^Q"
^DD(69.98,.06,3)="DONOR: Turn on ALT testing"
^DD(69.98,.06,21,0)="^^1^1^2951201^"
^DD(69.98,.06,21,1,0)="DONOR: Turn on ALT testing"
^DD(69.98,.07,0)="SIXTH DEFAULT^S^1:YES;0:NO;^0;7^Q"
^DD(69.98,.07,3)="DONOR: Turn on HIV ANTIGEN testing"
^DD(69.98,.07,21,0)="^^1^1^2951201^^"
^DD(69.98,.07,21,1,0)="DONOR: Turn on HIV ANTIGEN testing"
^DD(69.98,.08,0)="SEVENTH DEFAULT^S^1:YES;0:NO;^0;8^Q"
^DD(69.98,.08,3)=""
^DD(69.98,.1,0)="major section^P68'^LRO(68,^0;10^Q"
^DD(69.98,.1,"DT")="2920731"
^DD(69.98,.11,0)="subsection^P68'^LRO(68,^0;11^Q"
^DD(69.98,.11,3)=""
^DD(69.98,.11,"DT")="2920731"
^DD(69.98,"B","BLOOD BANK OPTION",.01)=""
^DD(69.98,"B","FIFTH DEFAULT",.06)=""
^DD(69.98,"B","FIRST DEFAULT",.02)=""
^DD(69.98,"B","FOURTH DEFAULT",.05)=""
^DD(69.98,"B","NUMBER",.001)=""
^DD(69.98,"B","SECOND DEFAULT",.03)=""
^DD(69.98,"B","SEVENTH DEFAULT",.08)=""
^DD(69.98,"B","SIXTH DEFAULT",.07)=""
^DD(69.98,"B","THIRD DEFAULT",.04)=""
^DD(69.98,"B","major section",.1)=""
^DD(69.98,"B","subsection",.11)=""
^DD(69.98,"GL",0,1,.01)=""
^DD(69.98,"GL",0,2,.02)=""
^DD(69.98,"GL",0,3,.03)=""
^DD(69.98,"GL",0,4,.04)=""
^DD(69.98,"GL",0,5,.05)=""
^DD(69.98,"GL",0,6,.06)=""
^DD(69.98,"GL",0,7,.07)=""
^DD(69.98,"GL",0,8,.08)=""
^DD(69.98,"GL",0,10,.1)=""
^DD(69.98,"GL",0,11,.11)=""
^DD(69.98,"IX",.01)=""
^DD(69.981,0)="BLOOD BANK INSTITUTION SUB-FIELD^^.06^6"
^DD(69.981,0,"DT")="2921101"
^DD(69.981,0,"IX","B",69.981,.01)=""
^DD(69.981,0,"NM","BLOOD BANK INSTITUTION")=""
^DD(69.981,0,"UP")="69.9"
^DD(69.981,.01,0)="BLOOD BANK DIVISION^M*P4'X^DIC(4,^0;1^S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(69.981,.01,1,0)="^.1"
^DD(69.981,.01,1,1,0)="69.981^B"
^DD(69.981,.01,1,1,1)="S ^LAB(69.9,DA(1),8.1,""B"",$E(X,1,30),DA)="""""
^DD(69.981,.01,1,1,2)="K ^LAB(69.9,DA(1),8.1,""B"",$E(X,1,30),DA)"
^DD(69.981,.01,12)="Allows only divisions for site."
^DD(69.981,.01,12.1)="S DIC(""S"")=""I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE"""
^DD(69.981,.01,"DT")="2960725"
^DD(69.981,.02,0)="INVENTORY MAJOR SECTION^P68'^LRO(68,^0;2^Q"
^DD(69.981,.02,"DT")="2921101"
^DD(69.981,.03,0)="INVENTORY SUBSECTION^P68'^LRO(68,^0;3^Q"
^DD(69.981,.03,3)=""
^DD(69.981,.03,"DT")="2921101"
^DD(69.981,.04,0)="DONOR MAJOR SECTION^P68'^LRO(68,^0;4^Q"
^DD(69.981,.04,"DT")="2921101"
^DD(69.981,.05,0)="DONOR SUBSECTION^P68'^LRO(68,^0;5^Q"
^DD(69.981,.05,"DT")="2921101"
^DD(69.981,.06,0)="MULTIPLE ACCESSION AREA^S^1:YES;1:yes;0:NO;0:no;^0;6^Q"
^DD(69.981,.06,"DT")="2950705"
^DD(69.981,"B","BLOOD BANK DIVISION",.01)=""
^DD(69.981,"B","DONOR MAJOR SECTION",.04)=""
^DD(69.981,"B","DONOR SUBSECTION",.05)=""
^DD(69.981,"B","INVENTORY MAJOR SECTION",.02)=""
^DD(69.981,"B","INVENTORY SUBSECTION",.03)=""
^DD(69.981,"B","MULTIPLE ACCESSION AREA",.06)=""
^DD(69.981,"GL",0,1,.01)=""
^DD(69.981,"GL",0,2,.02)=""
^DD(69.981,"GL",0,3,.03)=""
^DD(69.981,"GL",0,4,.04)=""
^DD(69.981,"GL",0,5,.05)=""
^DD(69.981,"GL",0,6,.06)=""
^DD(69.981,"IX",.01)=""
^DD(69.99,0)="HOSPITAL SITE SUB-FIELD^^5^4"
^DD(69.99,0,"DT")="2910531"
^DD(69.99,0,"IX","AXM",69.99,.01)=""
^DD(69.99,0,"IX","AXM1",69.99,1)=""
^DD(69.99,0,"IX","AXT",69.99,.01)=""
^DD(69.99,0,"IX","AXT1",69.99,5)=""
^DD(69.99,0,"IX","AXU",69.99,.01)=""
^DD(69.99,0,"IX","AXU1",69.99,4)=""
^DD(69.99,0,"NM","HOSPITAL SITE")=""
^DD(69.99,0,"UP")="69.9"
^DD(69.99,.01,0)="HOSPITAL SITE^MP44'X^SC(^0;1^S DINUM=X"
^DD(69.99,.01,1,0)="^.1"
^DD(69.99,.01,1,1,0)="69.99^AXM^MUMPS"
^DD(69.99,.01,1,1,1)="I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1(X,1,$P(^(0),""^"",2))"
^DD(69.99,.01,1,1,2)="I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1(X,1,"""")"
^DD(69.99,.01,1,1,"%D",0)="^^1^1^2971106^^^^"
^DD(69.99,.01,1,1,"%D",1,0)="Trigger LR MAX DAYS CONTINUOUS parameter in CPRS."
^DD(69.99,.01,1,1,"DT")="2971106"
^DD(69.99,.01,1,2,0)="69.99^AXU^MUMPS"
^DD(69.99,.01,1,2,1)="I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1(X,1,$S($P(^(0),""^"",5):""YES"",1:""NO""))"
^DD(69.99,.01,1,2,2)="D URG^LR7OV1(X,1,""NO"")"
^DD(69.99,.01,1,2,"%D",0)="^^1^1^2971106^^^^"
^DD(69.99,.01,1,2,"%D",1,0)="Trigger the LR ASK URGENCY parameter in CPRS."
^DD(69.99,.01,1,2,"DT")="2971106"
^DD(69.99,.01,1,3,0)="69.99^AXT^MUMPS"
^DD(69.99,.01,1,3,1)="I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1(X,1,$P(^(0),""^"",6))"
^DD(69.99,.01,1,3,2)="I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1(X,1,"""")"
^DD(69.99,.01,1,3,"%D",0)="^^1^1^2971106^^"
^DD(69.99,.01,1,3,"%D",1,0)="Triggers the LR DEFAULT TYPE QUICK parameter in CPRS."
^DD(69.99,.01,1,3,"DT")="2971106"
^DD(69.99,.01,21,0)="^^1^1^2900702^"
^DD(69.99,.01,21,1,0)="This is the hospital site where parameters may aply."
^DD(69.99,.01,"DT")="2971106"
^DD(69.99,1,0)="MAX DAYS FOR CONTINUOUS ORDERS^NJ3,0^^0;2^K:+X'=X!(X>370)!(X<0)!(X?.E1"".""1N.N) X"
^DD(69.99,1,1,0)="^.1"
^DD(69.99,1,1,1,0)="69.99^AXM1^MUMPS"
^DD(69.99,1,1,1,1)="I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1($P(^(0),""^""),1,X)"
^DD(69.99,1,1,1,2)="I $G(^LAB(69.9,DA(1),9,DA,0)) D MAXDAY^LR7OV1($P(^(0),""^""),1,"""")"
^DD(69.99,1,1,1,"%D",0)="^^1^1^2971106^^^"
^DD(69.99,1,1,1,"%D",1,0)="Trigger LR MAX DAYS CONTINUOUS parameter in CPRS."
^DD(69.99,1,1,1,"DT")="2971106"
^DD(69.99,1,3)="Type a Number between 0 and 370, 0 Decimal Digits"
^DD(69.99,1,21,0)="^.001^2^2^3010404^^^"
^DD(69.99,1,21,1,0)="This is the maximum number of days that multiple-continuous orders"
^DD(69.99,1,21,2,0)="can be placed for this location."
^DD(69.99,1,"DT")="3010404"
^DD(69.99,4,0)="ASK URGENCY^S^0:NO;1:YES;^0;5^Q"
^DD(69.99,4,1,0)="^.1"
^DD(69.99,4,1,1,0)="69.99^AXU1^MUMPS"
^DD(69.99,4,1,1,1)="I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1($P(^(0),""^""),1,X)"
^DD(69.99,4,1,1,2)="I $G(^LAB(69.9,DA(1),9,DA,0)) D URG^LR7OV1($P(^(0),""^""),1,"""")"
^DD(69.99,4,1,1,"%D",0)="^^1^1^2971106^^^"
^DD(69.99,4,1,1,"%D",1,0)="Triggers LR ASK URGENCY parameter in CPRS."
^DD(69.99,4,1,1,"DT")="2971106"
^DD(69.99,4,21,0)="^^3^3^2910528^^^^"
^DD(69.99,4,21,1,0)="Answer YES to this field to prompt with urgency for every test when "
^DD(69.99,4,21,2,0)="ordering through OE/RR.  Tests with a forced urgency as defined in the"
^DD(69.99,4,21,3,0)="Laboratory test file overide this parameter."
^DD(69.99,4,"DT")="2971106"
^DD(69.99,5,0)="DEFAULT TYPE FOR QUICK ORDERS^S^WC:WARD COLLECT;SP:SEND PATIENT;LC:LAB COLLECT;^0;6^Q"
^DD(69.99,5,1,0)="^.1"
^DD(69.99,5,1,1,0)="69.99^AXT1^MUMPS"
^DD(69.99,5,1,1,1)="I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1($P(^(0),""^""),1,X)"
^DD(69.99,5,1,1,2)="I $G(^LAB(69.9,DA(1),9,DA,0)) D TYPE^LR7OV1($P(^(0),""^""),1,"""")"
^DD(69.99,5,1,1,"%D",0)="^^1^1^2971106^^"
^DD(69.99,5,1,1,"%D",1,0)="Triggers the LR DEFAULT TYPE QUICK parameter in CPRS."
^DD(69.99,5,1,1,"DT")="2971106"
^DD(69.99,5,3)="Enter the type of collection (Ward collect, Send patient or Lab collect) that Quick Orders should use."
^DD(69.99,5,21,0)="^^3^3^2910528^^^"
^DD(69.99,5,21,1,0)="The entry in this field will determine the type of collection that 'Quick"
^DD(69.99,5,21,2,0)="Orders' will have assigned to them."
^DD(69.99,5,21,3,0)="ex: Ward Collect, Send Patient or Lab Collect"
^DD(69.99,5,"DT")="2971106"
^DD(69.99,"B","ASK URGENCY",4)=""
^DD(69.99,"B","DEFAULT TYPE FOR QUICK ORDERS",5)=""
^DD(69.99,"B","HOSPITAL SITE",.01)=""
^DD(69.99,"B","MAX DAYS FOR CONTINUOUS ORDERS",1)=""
^DD(69.99,"GL",0,1,.01)=""
^DD(69.99,"GL",0,2,1)=""
^DD(69.99,"GL",0,5,4)=""
^DD(69.99,"GL",0,6,5)=""
^DD(69.99,"IX",.01)=""
^DD(69.99,"IX",1)=""
^DD(69.99,"IX",4)=""
^DD(69.99,"IX",5)=""
^DD(70,0)="FIELD^^1901^11"
^DD(70,0,"DDA")="N"
^DD(70,0,"DT")="2970421"
^DD(70,0,"ID",.04)="W """""
^DD(70,0,"ID",.05)="W """""
^DD(70,0,"IX","AC",70.03,45)=""
^DD(70,0,"IX","AD",70.03,13)=""
^DD(70,0,"IX","ADC",70.03,.01)=""
^DD(70,0,"IX","AE",70.03,3)=""
^DD(70,0,"IX","AO",70.03,11)=""
^DD(70,0,"IX","AR",70.02,.01)=""
^DD(70,0,"IX","ARES",70.09,.01)=""
^DD(70,0,"IX","AS",70.03,3)=""
^DD(70,0,"IX","ASTF",70.11,.01)=""
^DD(70,0,"IX","AVSIT",70.03,27)=""
^DD(70,0,"IX","B",70,.01)=""
^DD(70,0,"NM","RAD/NUC MED PATIENT")=""
^DD(70,0,"VR")="5.0"
^DD(70,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(70,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(70,.01,.1)="NAME OF THIS RAD/NUC MED PATIENT"
^DD(70,.01,1,0)="^.1^^-2"
^DD(70,.01,1,1,0)="70^B"
^DD(70,.01,1,1,1)="S ^RADPT(""B"",$E(X,1,30),DA)="""""
^DD(70,.01,1,1,2)="K ^RADPT(""B"",$E(X,1,30),DA)"
^DD(70,.01,1,1,"%D",0)="^^1^1^2940517^^"
^DD(70,.01,1,1,"%D",1,0)="     Regular cross reference assigned to the '.01' field."
^DD(70,.01,3)="Enter the name of the appropriate Radiology/Nuclear Medicine patient."
^DD(70,.01,4)=""
^DD(70,.01,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70,.01,21,0)="^^11^11^2970625^^"
^DD(70,.01,21,1,0)="This field gives the name of this Radiology/Nuclear Medicine patient.  The"
^DD(70,.01,21,2,0)="system obtains this information from the main 'PATIENT' file (#2).  It is"
^DD(70,.01,21,3,0)="not stored in the 'RAD/NUC MED PATIENT' file (#70)."
^DD(70,.01,21,4,0)=" "
^DD(70,.01,21,5,0)="         ALLOWABLE WAYS TO ENTER PATIENT NAME:"
^DD(70,.01,21,6,0)="         -------------------------------------"
^DD(70,.01,21,7,0)="           -Patient's last name (to reduce typing errors,"
^DD(70,.01,21,8,0)="            enter only first few letters of last name)"
^DD(70,.01,21,9,0)="           -Last 4 digits of patient's Social Security Number"
^DD(70,.01,21,10,0)="           -First letter of patient's last name and last 4"
^DD(70,.01,21,11,0)="            digits of patient's Social Security Number."
^DD(70,.01,"DT")="2940525"
^DD(70,.03,0)="DATE OF BIRTH^DC^^ ; ^X ^DD(70,.03,9.2) S X=$P(Y(70,.03,101),U,3) S D0=Y(70,.03,2)"
^DD(70,.03,.1)="DATE OF BIRTH OF THIS RAD/NUC MED PATIENT"
^DD(70,.03,3)=""
^DD(70,.03,9)="^"
^DD(70,.03,9.01)="2^.03;70^.01"
^DD(70,.03,9.1)="#.01:#.03"
^DD(70,.03,9.2)="S Y(70,.03,2)=$S($D(D0):D0,1:""""),Y(70,.03,1)=$S($D(^RADPT(D0,0)):^(0),1:""""),D0=$P(Y(70,.03,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(70,.03,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(70,.03,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70,.03,21,0)="^^4^4^2941006^"
^DD(70,.03,21,1,0)="This field is computed by the system to be the date of birth of this"
^DD(70,.03,21,2,0)="Radiology/Nuclear Medicine patient.  The system obtains this information"
^DD(70,.03,21,3,0)="from the main 'PATIENT' file (#2).  It is not stored in the 'RAD/NUC MED"
^DD(70,.03,21,4,0)="PATIENT' file (#70)."
^DD(70,.03,"DT")="2940525"
^DD(70,.033,0)="AGE^CJ8,0^^ ; ^X ^DD(70,.033,9.2) S X=Y(70,.033,101) S D0=Y(70,.033,2)"
^DD(70,.033,.1)="AGE OF THIS RAD/NUC MED PATIENT "
^DD(70,.033,3)=""
^DD(70,.033,9)="^"
^DD(70,.033,9.01)="2^.033;70^.01"
^DD(70,.033,9.1)="#.01:#.033"
^DD(70,.033,9.2)="S Y(70,.033,2)=$S($D(D0):D0,1:""""),Y(70,.033,1)=$S($D(^RADPT(D0,0)):^(0),1:""""),D0=$P(Y(70,.033,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S Y(70,.033,101)=X"
^DD(70,.033,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70,.033,21,0)="^^4^4^2940525^"
^DD(70,.033,21,1,0)="This field is computed by the system to the age of this Radiology/Nuclear"
^DD(70,.033,21,2,0)="Medicine patient. The system obtains this information from the main"
^DD(70,.033,21,3,0)="'PATIENT' file (#2)."
^DD(70,.033,21,4,0)="It is not stored in the 'RAD/NUC MED PATIENT' file (#70)."
^DD(70,.033,"DT")="2940525"
^DD(70,.04,0)="USUAL CATEGORY^RS^O:OUTPATIENT;C:CONTRACT;S:SHARING;R:RESEARCH;E:EMPLOYEE;^0;4^Q"
^DD(70,.04,.1)="USUAL CATEGORY OF THIS RAD/NUC MED EXAM"
^DD(70,.04,3)="This is the usual category of exam (Outpatient, Contract, Sharing, Research, or Employee) for this Radiology/Nuclear Medicine patient."
^DD(70,.04,10)="RAD/NUC MED SERVICE"
^DD(70,.04,21,0)="^^4^4^2941006^"
^DD(70,.04,21,1,0)="This field contains a default value used during the exam registration"
^DD(70,.04,21,2,0)="process to indicate the category of exam for this Radiology/Nuclear"
^DD(70,.04,21,3,0)="Medicine patient. Available categories are: 'O' for OUTPATIENT, 'C' for"
^DD(70,.04,21,4,0)="CONTRACT, 'S' for SHARING, 'R' for RESEARCH, and 'E' for EMPLOYEE."
^DD(70,.04,"DT")="2940525"
^DD(70,.06,0)="USER WHO ENTERED PATIENT^P200'^VA(200,^0;6^Q"
^DD(70,.06,.1)="THE USER WHO ENTERED THIS PATIENT INTO THE RAD/NUC MED SYSTEM"
^DD(70,.06,3)="This field contains the name of the person who entered this patient into the Radiology/Nuclear Medicine system."
^DD(70,.06,10)="SYSTEM GENERATED"
^DD(70,.06,21,0)="^^3^3^2940517^^"
^DD(70,.06,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the person who"
^DD(70,.06,21,2,0)="entered this patient into the Radiology/Nuclear Medicine system.  It is"
^DD(70,.06,21,3,0)="filled in by the system from information the user entered at sign-on."
^DD(70,.06,"DT")="2940525"
^DD(70,.09,0)="SSN^CJ9,0^^ ; ^X ^DD(70,.09,9.2) S X=$P(Y(70,.09,101),U,9) S D0=Y(70,.09,2)"
^DD(70,.09,.1)="SOCIAL SECURITY NUMBER OF THIS RAD/NUC MED PATIENT"
^DD(70,.09,3)=""
^DD(70,.09,9)="^"
^DD(70,.09,9.01)="2^.09;70^.01"
^DD(70,.09,9.1)="#.01:#.09"
^DD(70,.09,9.2)="S Y(70,.09,2)=$S($D(D0):D0,1:""""),Y(70,.09,1)=$S($D(^RADPT(D0,0)):^(0),1:""""),D0=$P(Y(70,.09,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(70,.09,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(70,.09,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70,.09,21,0)="^^4^4^2940525^"
^DD(70,.09,21,1,0)="This field is computed by the system to the social security number of"
^DD(70,.09,21,2,0)="this Radiology/Nuclear Medicine patient.  The system obtains this"
^DD(70,.09,21,3,0)="information from the main 'PATIENT' file (#2).  It is not stored in the"
^DD(70,.09,21,4,0)="'RAD/NUC MED PATIENT' file (#70)."
^DD(70,.09,"DT")="2940525"
^DD(70,.361,0)="ELIGIBILITY CODE^CJ30^^ ; ^X ^DD(70,.361,9.2) S X=$S('$D(^DIC(8,+$P(Y(70,.361,101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=Y(70,.361,2)"
^DD(70,.361,.1)="ELIGIBILITY CODE OF THIS RAD/NUC MED PATIENT"
^DD(70,.361,3)=""
^DD(70,.361,9)="^"
^DD(70,.361,9.01)="2^.361;70^.01"
^DD(70,.361,9.1)="#.01:#.361"
^DD(70,.361,9.2)="S Y(70,.361,2)=$S($D(D0):D0,1:""""),Y(70,.361,1)=$S($D(^RADPT(D0,0)):^(0),1:""""),D0=$P(Y(70,.361,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(70,.361,101)=$S($D(^DPT(D0,.36)):^(.36),1:"""")"
^DD(70,.361,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70,.361,21,0)="^^4^4^2940525^"
^DD(70,.361,21,1,0)="This field is computed by the system to the eligibility code of this"
^DD(70,.361,21,2,0)="Radiology/Nuclear Medicine patient from information obtained from the main"
^DD(70,.361,21,3,0)="'PATIENT' file (#2)."
^DD(70,.361,21,4,0)="It is not stored in the 'RAD/NUC MED PATIENT' file (#70)."
^DD(70,.361,"DT")="2940525"
^DD(70,1,0)="NARRATIVE^F^^1;1^K:$L(X)>250!($L(X)<3) X"
^DD(70,1,.1)="NARRATIVE ABOUT THIS RAD/NUC MED PATIENT"
^DD(70,1,3)="Enter a brief description, between 3 and 250 characters in length, about this Radiology/Nuclear Medicine patient."
^DD(70,1,10)="RAD/NUC MED RECEPTIONIST "
^DD(70,1,21,0)="^^4^4^2940525^^^"
^DD(70,1,21,1,0)="This field may contain a brief note (up to 250 characters) about"
^DD(70,1,21,2,0)="this Radiology/Nuclear Medicine patient. It may describe the personality"
^DD(70,1,21,3,0)="or any unusual characteristic to identify this Radiology/Nuclear Medicine"
^DD(70,1,21,4,0)="patient."
^DD(70,1,"DT")="2940525"
^DD(70,2,0)="REGISTERED EXAMS^70.02DA^^DT;0"
^DD(70,2,.1)="REGISTERED EXAMS SUB-FIELD"
^DD(70,2,10)=""
^DD(70,2,21,0)="^^2^2^2980109^^^^"
^DD(70,2,21,1,0)="This is a multiple field containing information about the patient's"
^DD(70,2,21,2,0)="registered Radiology/Nuclear Medicine exams."
^DD(70,2,"DT")="2970818"
^DD(70,50,0)="OUTSIDE FILMS REGISTRY^70.06ID^^O;0"
^DD(70,50,.1)="OUTSIDE FILMS REGISTRY SUB-FIELD"
^DD(70,50,21,0)="^^2^2^2940518^^^^"
^DD(70,50,21,1,0)="This is a multiple field containing information about this patient's"
^DD(70,50,21,2,0)="films obtained from an outside source."
^DD(70,1901,0)="IS PATIENT A VETERAN?^CJ8^^ ; ^X ^DD(70,1901,9.3) S X=$P($P(Y(70,1901,102),$C(59)_$P(Y(70,1901,101),U,1)_"":"",2),$C(59),1) S D0=Y(70,1901,2)"
^DD(70,1901,.1)="IS THIS PATIENT A VETERAN?"
^DD(70,1901,9)="^"
^DD(70,1901,9.01)="2^1901;70^.01"
^DD(70,1901,9.1)="#.01:#1901"
^DD(70,1901,9.2)="S Y(70,1901,2)=$S($D(D0):D0,1:""""),Y(70,1901,1)=$S($D(^RADPT(D0,0)):^(0),1:""""),D0=$P(Y(70,1901,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(70,1901,9.3)="X ^DD(70,1901,9.2) S Y(70,1901,102)=$C(59)_$S($D(^DD(2,1901,0)):$P(^(0),U,3),1:""""),Y(70,1901,101)=$S($D(^DPT(D0,""VET"")):^(""VET""),1:"""")"
^DD(70,1901,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70,1901,21,0)="^^3^3^2940608^"
^DD(70,1901,21,1,0)="This field is computed by the system and indicates whether this patient"
^DD(70,1901,21,2,0)="is a veteran or not.  The system obtains this information from the"
^DD(70,1901,21,3,0)="main 'PATIENT' file (#2).  It is not stored in this file (#70)."
^DD(70,"B","AGE",.033)=""
^DD(70,"B","DATE OF BIRTH",.03)=""
^DD(70,"B","ELIGIBILITY CODE",.361)=""
^DD(70,"B","IS PATIENT A VETERAN?",1901)=""
^DD(70,"B","IS THIS PATIENT A VETERAN?",1901)="1"
^DD(70,"B","NAME",.01)=""
^DD(70,"B","NARRATIVE",1)=""
^DD(70,"B","OUTSIDE FILMS REGISTRY",50)=""
^DD(70,"B","REGISTERED EXAMS",2)=""
^DD(70,"B","REGISTERED EXAMS SUB-FIELD",2)="1"
^DD(70,"B","SSN",.09)=""
^DD(70,"B","USER WHO ENTERED PATIENT",.06)=""
^DD(70,"B","USUAL CATEGORY",.04)=""
^DD(70,"GL",0,1,.01)=""
^DD(70,"GL",0,4,.04)=""
^DD(70,"GL",0,6,.06)=""
^DD(70,"GL",1,1,1)=""
^DD(70,"GL","DT",0,2)=""
^DD(70,"GL","O",0,50)=""
^DD(70,"IX",.01)=""
^DD(70,"RQ",.01)=""
^DD(70,"RQ",.04)=""
^DD(70,"SB",70.02,2)=""
^DD(70,"SB",70.06,50)=""
^DD(70.02,0)="REGISTERED EXAMS SUB-FIELD^NL^50^6"
^DD(70.02,0,"DT")="2970421"
^DD(70.02,0,"IX","AP",70.03,2)=""
^DD(70.02,0,"IX","B",70.02,.01)=""
^DD(70.02,0,"NM","REGISTERED EXAMS")=""
^DD(70.02,0,"UP")="70"
^DD(70.02,.01,0)="EXAM DATE^DX^^0;1^X ^DD(70.02,.01,9.2) S %DT=""RET"",%DT(0)=-$$FMADD^XLFDT($$NOW^XLFDT,0,$S($D(RAHRS):RAHRS,1:168),0,0) D ^%DT K %DT S X=Y K:Y<0 X S:$D(X) DINUM=9999999.9999-X"
^DD(70.02,.01,.1)="DATE AND TIME OF THIS EXAM."
^DD(70.02,.01,1,0)="^.1"
^DD(70.02,.01,1,1,0)="70.02^B"
^DD(70.02,.01,1,1,1)="S ^RADPT(DA(1),""DT"",""B"",$E(X,1,30),DA)="""""
^DD(70.02,.01,1,1,2)="K ^RADPT(DA(1),""DT"",""B"",$E(X,1,30),DA)"
^DD(70.02,.01,1,1,"%D",0)="^^1^1^2940517^"
^DD(70.02,.01,1,1,"%D",1,0)="     Regular cross reference on the '.01' field."
^DD(70.02,.01,1,3,0)="70^AR"
^DD(70.02,.01,1,3,1)="S ^RADPT(""AR"",$E(X,1,30),DA(1),DA)="""""
^DD(70.02,.01,1,3,2)="K ^RADPT(""AR"",$E(X,1,30),DA(1),DA)"
^DD(70.02,.01,1,3,"%D",0)="^^2^2^2940517^"
^DD(70.02,.01,1,3,"%D",1,0)="This cross reference is the exam date and DFN. It is used on"
^DD(70.02,.01,1,3,"%D",2,0)="most work load reports including AMIS."
^DD(70.02,.01,3)="Enter the date of the examination."
^DD(70.02,.01,9.2)="I $D(RAMDIV) N RAHRS S RAHRS=+$P($G(^RA(79,+RAMDIV,.1)),""^"",24)"
^DD(70.02,.01,10)="RECEPTIONIST "
^DD(70.02,.01,21,0)="^^3^3^2940608^"
^DD(70.02,.01,21,1,0)="This field contains the date and also the time of this Imaging exam.  The"
^DD(70.02,.01,21,2,0)="system stores the exam dates in reverse chronological order to produce"
^DD(70.02,.01,21,3,0)="reports efficiently."
^DD(70.02,.01,"DT")="2950309"
^DD(70.02,2,0)="TYPE OF IMAGING^P79.2'^RA(79.2,^0;2^Q"
^DD(70.02,2,.1)="THE TYPE OF IMAGING USED FOR THIS EXAM."
^DD(70.02,2,3)="This field is automatically filled in by the program and indicates the type of imaging used for this exam."
^DD(70.02,2,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70.02,2,21,0)="^^6^6^2940608^"
^DD(70.02,2,21,1,0)="This field points to the 'IMAGING TYPE' file (#79.2) to indicate the type"
^DD(70.02,2,21,2,0)="of imaging used for this exam.  It is filled in by the system with the"
^DD(70.02,2,21,3,0)="appropriate system name.  For example, when in General Radiology, this"
^DD(70.02,2,21,4,0)="field is filled in with 'GENERAL RADIOLOGY'.  Examples of other imaging"
^DD(70.02,2,21,5,0)="types this field may use are Nuclear Medicine, Nuclear Magnetic Resonance,"
^DD(70.02,2,21,6,0)="and Ultrasound."
^DD(70.02,2,"DT")="2940608"
^DD(70.02,3,0)="HOSPITAL DIVISION^RP79'^RA(79,^0;3^Q"
^DD(70.02,3,.1)="HOSPITAL DIVISION WHERE THIS EXAM WAS PERFORMED"
^DD(70.02,3,3)="This field is automatically filled in by the program with the medical center division."
^DD(70.02,3,10)="SYSTEM GENERATED"
^DD(70.02,3,21,0)="^^6^6^2940608^"
^DD(70.02,3,21,1,0)="This field points to the 'RAD/NUC MED DIVISION' file (#79) to indicate the"
^DD(70.02,3,21,2,0)="name of the hospital division where this imaging exam was performed."
^DD(70.02,3,21,3,0)="Normally, a hospital has only one division however, some medical centers"
^DD(70.02,3,21,4,0)="have multiple divisions.  This field allows the system to compile"
^DD(70.02,3,21,5,0)="statistics by division.  This field is filled in by the system from the"
^DD(70.02,3,21,6,0)="information the user enters at sign-on."
^DD(70.02,3,"DT")="2940608"
^DD(70.02,4,0)="IMAGING LOCATION^RP79.1'^RA(79.1,^0;4^Q"
^DD(70.02,4,.1)="IMAGING LOCATION WHERE THE EXAM WAS PERFORMED"
^DD(70.02,4,1,0)="^.1^^0"
^DD(70.02,4,3)="This field is automatically filled in by the program with the name of the imaging location."
^DD(70.02,4,10)="SYSTEM GENERATED"
^DD(70.02,4,21,0)="^^6^6^2940608^"
^DD(70.02,4,21,1,0)="This field points to the 'IMAGING LOCATIONS' file (#79.1) to indicate"
^DD(70.02,4,21,2,0)="the name of the imaging location within the hospital division where the"
^DD(70.02,4,21,3,0)="exam was performed. Normally, a hospital has only one imaging location,"
^DD(70.02,4,21,4,0)="however, some medical centers have multiple imaging locations within the"
^DD(70.02,4,21,5,0)="division.  This field is filled in by the system from information the user"
^DD(70.02,4,21,6,0)="enters at sign-on."
^DD(70.02,4,"DT")="2940608"
^DD(70.02,5,0)="EXAM SET^S^1:YES;^0;5^Q"
^DD(70.02,5,3)="Enter YES if all the exams on this date/time are part of the same set."
^DD(70.02,5,21,0)="^^4^4^2941018^"
^DD(70.02,5,21,1,0)="If all the exams under this date/time are considered part of the same set"
^DD(70.02,5,21,2,0)="of exams, this field should be answered YES.  Exam sets are created when a"
^DD(70.02,5,21,3,0)="parent type procedure is registered.  Any non-parent type procedures"
^DD(70.02,5,21,4,0)="registered at the same time are also considered part of the exam set."
^DD(70.02,5,"DT")="2941018"
^DD(70.02,50,0)="EXAMINATIONS^70.03IA^^P;0"
^DD(70.02,50,.1)="EXAMINATIONS SUB-FIELD"
^DD(70.02,50,21,0)="^.001^3^3^3010608^^^^"
^DD(70.02,50,21,1,0)="This is a multiple field containing information on all imaging"
^DD(70.02,50,21,2,0)="examinations performed during this patient visit.  All exams (cases)"
^DD(70.02,50,21,3,0)="within one exam date must be of the same imaging type."
^DD(70.02,"B","DATE AND TIME OF THIS EXAM.",.01)="1"
^DD(70.02,"B","EXAM DATE",.01)=""
^DD(70.02,"B","EXAM SET",5)=""
^DD(70.02,"B","EXAMINATIONS",50)=""
^DD(70.02,"B","EXAMINATIONS SUB-FIELD",50)="1"
^DD(70.02,"B","HOSPITAL DIVISION",3)=""
^DD(70.02,"B","IMAGING LOCATION",4)=""
^DD(70.02,"B","TYPE OF IMAGING",2)=""
^DD(70.02,"GL",0,1,.01)=""
^DD(70.02,"GL",0,2,2)=""
^DD(70.02,"GL",0,3,3)=""
^DD(70.02,"GL",0,4,4)=""
^DD(70.02,"GL",0,5,5)=""
^DD(70.02,"GL","P",0,50)=""
^DD(70.02,"IX",.01)=""
^DD(70.02,"RQ",3)=""
^DD(70.02,"RQ",4)=""
^DD(70.02,"SB",70.03,50)=""
^DD(70.03,0)="EXAMINATIONS SUB-FIELD^NL^500^47"
^DD(70.03,0,"DT")="2990805"
^DD(70.03,0,"ID",2)="W:$D(^(""0"")) ""   "",$S($D(^RAMIS(71,+$P(^(""0""),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(70.03,0,"IX","ABLTN",70.03,.01)=""
^DD(70.03,0,"IX","ACM",70.03,16)=""
^DD(70.03,0,"IX","ARES",70.03,12)=""
^DD(70.03,0,"IX","ASTF",70.03,15)=""
^DD(70.03,0,"IX","AUPN",70.03,27)=""
^DD(70.03,0,"IX","AW",70.03,2)=""
^DD(70.03,0,"IX","B",70.03,.01)=""
^DD(70.03,0,"IX","NMD",70.03,500)=""
^DD(70.03,0,"NM","EXAMINATIONS")=""
^DD(70.03,0,"UP")="70.02"
^DD(70.03,.01,0)="CASE NUMBER^NJ5,0X^^0;1^X ^DD(70.03,.01,9.2) I $D(X) S RASET=1 D CN^RAREG1 I $D(X) W:'$D(RAOVER) !!?4,""Case Number: "",X,!?4,""----------------"""
^DD(70.03,.01,.1)="CASE NUMBER OF THIS IMAGING EXAM"
^DD(70.03,.01,1,0)="^.1^^-1"
^DD(70.03,.01,1,1,0)="70.03^B"
^DD(70.03,.01,1,1,1)="S ^RADPT(DA(2),""DT"",DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(70.03,.01,1,1,2)="K ^RADPT(DA(2),""DT"",DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(70.03,.01,1,1,3)="DO NOT DELETE"
^DD(70.03,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(70.03,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up by case number."
^DD(70.03,.01,1,2,0)="70.03^ABLTN^MUMPS"
^DD(70.03,.01,1,2,1)="Q"
^DD(70.03,.01,1,2,2)="D:$D(RABULL) ^RABUL1 Q"
^DD(70.03,.01,1,2,3)="Do not delete."
^DD(70.03,.01,1,2,"%D",0)="^^4^4^2940517^"
^DD(70.03,.01,1,2,"%D",1,0)="     This mumps cross-reference will act like a bulletin cross-reference."
^DD(70.03,.01,1,2,"%D",2,0)="The delete logic executes the RABUL1 routine.  This routine will send a"
^DD(70.03,.01,1,2,"%D",3,0)="bulletin to the RAD/NUC MED EXAM DELETED mail group when an exam is"
^DD(70.03,.01,1,2,"%D",4,0)="deleted."
^DD(70.03,.01,1,2,"DT")="2940203"
^DD(70.03,.01,1,4,0)="70^ADC^MUMPS"
^DD(70.03,.01,1,4,1)="S ^RADPT(""ADC"",$E(+^RADPT(DA(2),""DT"",DA(1),0),4,7)_$E(+^(0),2,3)_""-""_X,DA(2),DA(1),DA)="""""
^DD(70.03,.01,1,4,2)="K ^RADPT(""ADC"",$E(+^RADPT(DA(2),""DT"",DA(1),0),4,7)_$E(+^(0),2,3)_""-""_X,DA(2),DA(1),DA)"
^DD(70.03,.01,1,4,"%D",0)="^^1^1^2940517^"
^DD(70.03,.01,1,4,"%D",1,0)="This is the date (MMDDYY) - CASE # cross reference."
^DD(70.03,.01,3)="This field contains the computer generated case number of this exam."
^DD(70.03,.01,4)="S RADT=$P($P(^RADPT(DA(2),""DT"",DA(1),0),U),"".""),RASET=0,RATYPE=+$O(^RA(79.2,""B"",""GENERAL RADIOLOGY"",0)) D:'$D(^RA(79.2,RATYPE,0)) EN^DDIOL(""Img.Typ. undef!"","""",""!"") I $D(^(0)) D CN^RAREG1 D EN^DDIOL(""NEW case# this dt must = '""_X_""'."","""",""!"")"
^DD(70.03,.01,9.2)="S RADT=$P($P(^RADPT(DA(2),""DT"",DA(1),0),U),"".""),RATYPE=+$O(^RA(79.2,""B"",""GENERAL RADIOLOGY"",0)) I '$D(^RA(79.2,RATYPE,0)) K RADT,RATYPE,X D EN^DDIOL(""Type of imaging is not defined in file 79.2."","""",""!"")"
^DD(70.03,.01,10)="SYSTEM GENERATED"
^DD(70.03,.01,11,0)="^.2LAP"
^DD(70.03,.01,21,0)="^.001^6^6^3010608^^^^"
^DD(70.03,.01,21,1,0)="This field contains the computer generated case number of this"
^DD(70.03,.01,21,2,0)="Imaging exam.  The case number is used to quickly track and call up the"
^DD(70.03,.01,21,3,0)="exam as it is processed through the Rad/Nuc Med system.  The case numbers"
^DD(70.03,.01,21,4,0)="are generated by the system in sequential order."
^DD(70.03,.01,21,5,0)=" "
^DD(70.03,.01,21,6,0)="NOTE:  Case numbers are not allowed to exceed 99,999."
^DD(70.03,.01,"DT")="2940608"
^DD(70.03,2,0)="PROCEDURE^*P71'X^RAMIS(71,^0;2^S DIC(""S"")=""I $$ACTC^RACPTCSV"" X ^DD(70.03,2,9.2)"
^DD(70.03,2,.1)="PROCEDURE ASSOCIATED WITH THIS CASE NUMBER"
^DD(70.03,2,1,0)="^.1"
^DD(70.03,2,1,1,0)="70.02^AP"
^DD(70.03,2,1,1,1)="S ^RADPT(DA(2),""DT"",""AP"",$E(X,1,30),DA(1),DA)="""""
^DD(70.03,2,1,1,2)="K ^RADPT(DA(2),""DT"",""AP"",$E(X,1,30),DA(1),DA)"
^DD(70.03,2,1,1,"%D",0)="^^1^1^2940517^"
^DD(70.03,2,1,1,"%D",1,0)="Used to screen duplicate entries at the time of entry."
^DD(70.03,2,1,2,0)="70.03^AW^MUMPS"
^DD(70.03,2,1,2,1)="Q"
^DD(70.03,2,1,2,2)="D DW^RACPTMSC"
^DD(70.03,2,1,2,"%D",0)="^.101^2^2^3000303^^"
^DD(70.03,2,1,2,"%D",1,0)="Whenever the PROCEDURE is changed, we need to delete all its former CPT"
^DD(70.03,2,1,2,"%D",2,0)="Modifiers and warn of any existing Procedure Modifiers."
^DD(70.03,2,1,2,"DT")="3000303"
^DD(70.03,2,3)="Enter the name of the procedure."
^DD(70.03,2,9.2)="D ^DIC X:X="" "" ^DD(70.03,2,9.3) S:X="" "" Y=-1 K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) PRC^RAUTL8"
^DD(70.03,2,9.3)="D EN^DDIOL(""Spacebar return feature not allowed!"","""",""!?5"")"
^DD(70.03,2,10)="RECEPTIONIST"
^DD(70.03,2,12)="Only active procedures allowed, imaging type of exam should be same as procedure, contrast media use must be OK'd if previous adverse reaction on record."
^DD(70.03,2,12.1)="S DIC(""S"")=""I $$ACTC^RACPTCSV"""
^DD(70.03,2,21,0)="^.001^10^10^3030429^^^^"
^DD(70.03,2,21,1,0)="This field points to the 'RAD/NUC MED PROCEDURES' file (#71) to indicate"
^DD(70.03,2,21,2,0)="the Imaging procedure associated with this case number."
^DD(70.03,2,21,3,0)=" "
^DD(70.03,2,21,4,0)=" "
^DD(70.03,2,21,5,0)="   ALLOWABLE WAYS TO ENTER THE IMAGING PROCEDURE FOR"
^DD(70.03,2,21,6,0)="THIS CASE NUMBER:"
^DD(70.03,2,21,7,0)="   ---------------------------------------------------------------------"
^DD(70.03,2,21,8,0)="          -Name of procedure"
^DD(70.03,2,21,9,0)="          -CPT Code"
^DD(70.03,2,21,10,0)="          -Site specific synonym"
^DD(70.03,2,"DT")="3030404"
^DD(70.03,3,0)="EXAM STATUS^R*P72'X^RA(72,^0;3^S DIC(""S"")=""N RAIMGTY S RAIMGTY=+$P($G(^RADPT(DA(2),""""DT"""",DA(1),0)),U,2) I $P(^RA(72,+Y,0),U,7)=RAIMGTY"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D ^RASTREQ:'$D(RAOVER)&($D(X))"
^DD(70.03,3,.1)="STATUS OF THIS EXAM"
^DD(70.03,3,1,0)="^.1"
^DD(70.03,3,1,1,0)="70^AE^MUMPS"
^DD(70.03,3,1,1,1)="N RA,RAIMGTY S RA(0)=$G(^RADPT(DA(2),""DT"",DA(1),0)),RAIMGTY=$P($G(^RA(79.2,+$P(RA(0),U,2),0)),U) I RAIMGTY]"""" X:('$D(^RA(72,""AA"",RAIMGTY,9,X)))&('$D(^RA(72,""AA"",RAIMGTY,0,X))) ^DD(70.03,3,9.2)"
^DD(70.03,3,1,1,2)="K ^RADPT(""AE"",+$P($G(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0)),U),DA(2),DA(1),DA)"
^DD(70.03,3,1,1,3)="Please do not delete this cross reference."
^DD(70.03,3,1,1,"%D",0)="^.101^1^1^3010122^^^"
^DD(70.03,3,1,1,"%D",1,0)="Used to look-up exams that are active/incomplete."
^DD(70.03,3,1,1,"DT")="3010122"
^DD(70.03,3,1,3,0)="70^AS^MUMPS"
^DD(70.03,3,1,3,1)="N RA,RAIMGTY S RA(0)=$G(^RADPT(DA(2),""DT"",DA(1),0)),RAIMGTY=+$P(RA(0),U,2),RAIMGTY=$P($G(^RA(79.2,RAIMGTY,0)),U) I RAIMGTY]"""" S:('$D(^RA(72,""AA"",RAIMGTY,9,X)))&('$D(^RA(72,""AA"",RAIMGTY,0,X))) ^RADPT(""AS"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(70.03,3,1,3,2)="K ^RADPT(""AS"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(70.03,3,1,3,"%D",0)="^.101^1^1^3010122^^"
^DD(70.03,3,1,3,"%D",1,0)="Used to produce a list of active/incomplete exams."
^DD(70.03,3,1,3,"DT")="3010122"
^DD(70.03,3,3)="Select the appropriate Exam Status."
^DD(70.03,3,4)="D HELP^RASTREQ"
^DD(70.03,3,9.2)="S:$P($G(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0)),U)]"""" ^RADPT(""AE"",$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),U),DA(2),DA(1),DA)="""""
^DD(70.03,3,10)="SYSTEM DETERMINED"
^DD(70.03,3,12)="Choose only those Exam statuses that have the same Imaging Type of our Registered Exam."
^DD(70.03,3,12.1)="S DIC(""S"")=""N RAIMGTY S RAIMGTY=+$P($G(^RADPT(DA(2),""""DT"""",DA(1),0)),U,2) I $P(^RA(72,+Y,0),U,7)=RAIMGTY"""
^DD(70.03,3,21,0)="^.001^4^4^3001205^^^^"
^DD(70.03,3,21,1,0)="This field points to the 'EXAMINATION STATUS' file (#72) to indicate the"
^DD(70.03,3,21,2,0)="current status of this Imaging exam.  The status is determined and updated"
^DD(70.03,3,21,3,0)="by the system according to the information entered during the various data"
^DD(70.03,3,21,4,0)="entry processes."
^DD(70.03,3,"DT")="3010122"
^DD(70.03,3.5,0)="REASON FOR CANCELLATION^*P75.2'^RA(75.2,^0;23^S DIC(""S"")=""I $P(^(0),U,2)=1!($P(^(0),U,2)=9)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.03,3.5,3)="This field points to the 'RAD/NUC MED REASON' file to indicate the reason the exam was cancelled."
^DD(70.03,3.5,12)="Type of Reason must equal CANCEL REQUEST or GENERAL REQUEST."
^DD(70.03,3.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1!($P(^(0),U,2)=9)"""
^DD(70.03,3.5,21,0)="^^1^1^2940608^^"
^DD(70.03,3.5,21,1,0)="This is the reason this exam was cancelled."
^DD(70.03,3.5,"DT")="2930127"
^DD(70.03,4,0)="CATEGORY OF EXAM^RSX^I:INPATIENT;O:OUTPATIENT;C:CONTRACT;S:SHARING;E:EMPLOYEE;R:RESEARCH;^0;4^I $D(X),$E(X)=""I"" S DFN=DA(2),VAINDT=9999999.9999-DA(1) D ADM^VADPT2 I 'VADMVT K X W !?3,""Patient not an inpatient at registration time."",!"
^DD(70.03,4,.1)="CATEGORY OF THIS EXAM"
^DD(70.03,4,3)="Enter the exam category for this case number."
^DD(70.03,4,10)="RECEPTIONIST"
^DD(70.03,4,21,0)="^^15^15^2940608^"
^DD(70.03,4,21,1,0)="This field contains the exam category associated with this case number."
^DD(70.03,4,21,2,0)="It is used to compile workload statistics and various management"
^DD(70.03,4,21,3,0)="reports (i.e. AMIS and RCS14-4).  Available exam categories are: 'I' for"
^DD(70.03,4,21,4,0)="INPATIENT, 'O' for OUTPATIENT, 'C' for CONTRACT, 'S' for SHARING, 'E'"
^DD(70.03,4,21,5,0)="for EMPLOYEE, and 'R' for RESEARCH."
^DD(70.03,4,21,6,0)=" "
^DD(70.03,4,21,7,0)="When the 'category of exam' is asked during the exam registration process,"
^DD(70.03,4,21,8,0)="the default value asked is the value in the 'usual category' field.  Of"
^DD(70.03,4,21,9,0)="course, if the patient is an inpatient, the default value will always"
^DD(70.03,4,21,10,0)="be 'inpatient'."
^DD(70.03,4,21,11,0)=" "
^DD(70.03,4,21,12,0)="An inpatient may have a 'category of exam' of 'contract', 'sharing', or"
^DD(70.03,4,21,13,0)="'research' for its associated case number if the exam procedure is not"
^DD(70.03,4,21,14,0)="directly related with their hospital stay.  (i.e. An inpatient who has an"
^DD(70.03,4,21,15,0)="imaging exam performed for research purposes.)"
^DD(70.03,4,"DT")="2940608"
^DD(70.03,6,0)="WARD^P42'^DIC(42,^0;6^Q"
^DD(70.03,6,.1)="WARD LOCATION OF RAD/NUC MED INPATIENT"
^DD(70.03,6,1,0)="^.1^^0"
^DD(70.03,6,3)="This is the ward where the patient was residing at the time of the exam."
^DD(70.03,6,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70.03,6,21,0)="^^6^6^2940517^^^^"
^DD(70.03,6,21,1,0)="This field points to the 'WARD LOCATION' file (#42) to indicate the name"
^DD(70.03,6,21,2,0)="of the hospital ward where the inpatient was admitted at the time the"
^DD(70.03,6,21,3,0)="Radiology/Nuclear Med exam was performed."
^DD(70.03,6,21,4,0)="  "
^DD(70.03,6,21,5,0)="This field is filled in by the system from information entered by the ADT "
^DD(70.03,6,21,6,0)="system and is updated at the time the exam report is first printed."
^DD(70.03,6,"DT")="2940517"
^DD(70.03,7,0)="SERVICE^P49'^DIC(49,^0;7^Q"
^DD(70.03,7,.1)="SERVICE TREATING THIS RAD/NUC MED INPATIENT"
^DD(70.03,7,3)="This field is filled in by the system and indicates the service treating the patient at the time of the exam."
^DD(70.03,7,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70.03,7,21,0)="^^4^4^2940517^^^^"
^DD(70.03,7,21,1,0)="This field is used for Rad/Nuc Med patients who are inpatients. It points"
^DD(70.03,7,21,2,0)="to the 'HOSPITAL SERVICE' file (#49) to indicate the name of the service"
^DD(70.03,7,21,3,0)="treating the patient and is filled in by the system from information"
^DD(70.03,7,21,4,0)="entered by the ADT system. "
^DD(70.03,7,"DT")="2940517"
^DD(70.03,8,0)="PRINCIPAL CLINIC^*P44'^SC(^0;8^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.03,8,.1)="REFERRING PRINCIPAL CLINIC"
^DD(70.03,8,3)="Enter the name of the clinic that referred this patient."
^DD(70.03,8,10)="RAD/NUC MED RECEPTIONIST"
^DD(70.03,8,12)="Screen to allow any ""C"" type location."
^DD(70.03,8,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(70.03,8,21,0)="^.001^7^7^3040527^^"
^DD(70.03,8,21,1,0)="This field is used for exams with a 'category of exam' of 'outpatient'"
^DD(70.03,8,21,2,0)="or 'employee'.  It points to the 'HOSPITAL LOCATION' file (#44) to"
^DD(70.03,8,21,3,0)="indicate the name of the principle clinic that referred the patient to"
^DD(70.03,8,21,4,0)="Radiology/Nuclear Medicine for the exam.  If the appropriate Report"
^DD(70.03,8,21,5,0)="Distribution Queue is active, the report for this exam will automatically"
^DD(70.03,8,21,6,0)="be placed in the queue for this clinic, or in the current ward if the"
^DD(70.03,8,21,7,0)="patient is admitted before the report is verified."
^DD(70.03,8,"DT")="3040527"
^DD(70.03,9,0)="CONTRACT/SHARING SOURCE^*P34'^DIC(34,^0;9^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.03,9,.1)="REFERRING CONTRACT/SHARING AGREEMENT"
^DD(70.03,9,3)="Enter the Contract or Sharing Agreement source that referred this patient."
^DD(70.03,9,10)="RAD/NUC MED RECEPTIONIST"
^DD(70.03,9,12)="Only active agreements are selectable."
^DD(70.03,9,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"""
^DD(70.03,9,21,0)="^^4^4^2940517^^^^"
^DD(70.03,9,21,1,0)="This field is used for exams with a 'category of exam' of 'contract' "
^DD(70.03,9,21,2,0)="or 'sharing'.  It points to the 'CONTRACT/SHARING AGREEMENTS' file (#34)"
^DD(70.03,9,21,3,0)="to indicate the name of the contract or sharing agreement that referred"
^DD(70.03,9,21,4,0)="this patient to Radiology/Nuclear Medicine for the exam."
^DD(70.03,9,"DT")="2910808"
^DD(70.03,9.5,0)="RESEARCH SOURCE^F^^R;1^K:$L(X)>40!($L(X)<3) X"
^DD(70.03,9.5,.1)="REFERRING RESEARCH SOURCE"
^DD(70.03,9.5,3)="Enter the research source that referred this patient."
^DD(70.03,9.5,10)="RAD/NUC MED RECEPTIONIST"
^DD(70.03,9.5,21,0)="^^3^3^2940517^^^^"
^DD(70.03,9.5,21,1,0)="This field is used for exams with a 'category of exam' of 'research'."
^DD(70.03,9.5,21,2,0)="This field contains the name (3-40 characters) of the research source"
^DD(70.03,9.5,21,3,0)="that referred the patient to Radiology/Nuclear Medicine for the exam."
^DD(70.03,9.5,"DT")="2840914"
^DD(70.03,10,0)="CONTRAST MEDIA USED^S^Y:YES;N:NO;^0;10^Q"
^DD(70.03,10,.1)="CONTRAST MEDIA USED IN THIS RAD/NUC MED EXAM?"
^DD(70.03,10,3)="Enter YES if a contrast was used during this exam."
^DD(70.03,10,10)="RAD/NUC MED TECHNOLOGIST"
^DD(70.03,10,21,0)="^.001^11^11^3031217^^"
^DD(70.03,10,21,1,0)="This field contains a value to indicate if a contrast medium was, or if "
^DD(70.03,10,21,2,0)="contrast media were used during this Rad/Nuc Med exam.  Available values"
^DD(70.03,10,21,3,0)="are: 'Y' for YES and 'N' for NO."
^DD(70.03,10,21,4,0)=" "
^DD(70.03,10,21,5,0)="If the Rad/Nuc Med procedure does not involve the use of a contrast, the"
^DD(70.03,10,21,6,0)="field is automatically filled in with NO by the system but the user is"
^DD(70.03,10,21,7,0)="prompted with this question."
^DD(70.03,10,21,8,0)=" "
^DD(70.03,10,21,9,0)="Conversely, if the Rad/Nuc Med procedure does not involve the use of a "
^DD(70.03,10,21,10,0)="contrast, the field is automatically filled in with NO by the system but"
^DD(70.03,10,21,11,0)="the user is prompted with this question."
^DD(70.03,10,23,0)="^^1^1^3031217^"
^DD(70.03,10,23,1,0)="Modified, description and help text only, with the release of RA*5*45."
^DD(70.03,10,"DT")="2940517"
^DD(70.03,11,0)="IMAGING ORDER^P75.1'^RAO(75.1,^0;11^Q"
^DD(70.03,11,1,0)="^.1"
^DD(70.03,11,1,1,0)="70^AO"
^DD(70.03,11,1,1,1)="S ^RADPT(""AO"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(70.03,11,1,1,2)="K ^RADPT(""AO"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(70.03,11,1,1,"%D",0)="^^1^1^2940517^"
^DD(70.03,11,1,1,"%D",1,0)="Used to link the Radiology/Nuclear Medicine Request/Order to the Exam."
^DD(70.03,11,3)="This field contains the order from the 'RAD/NUC MED ORDERS' file that is associated with this exam."
^DD(70.03,11,21,0)="^.001^4^4^3040628^^^^"
^DD(70.03,11,21,1,0)="This field points to the 'RAD/NUC MED ORDERS' File (#75.1). It contains"
^DD(70.03,11,21,2,0)="the order associated with this exam. This field will only contain data if"
^DD(70.03,11,21,3,0)="the exam has an 'ACTIVE' order associated with it.  When orders are"
^DD(70.03,11,21,4,0)="purged, the pointer in this field is also purged."
^DD(70.03,11,23,0)="^.001^2^2^3040628^^"
^DD(70.03,11,23,1,0)="Patch RA*5*41 will dis-allow purging of orders from the Radiology/Nuclear "
^DD(70.03,11,23,2,0)="Medicine application."
^DD(70.03,11,"DT")="2940608"
^DD(70.03,12,0)="PRIMARY INTERPRETING RESIDENT^*P200'X^VA(200,^0;12^S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""R"""",+Y,""""PRI"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) EN^RAUTL8(X,70,.DA)"
^DD(70.03,12,.1)="PRIMARY INTERPRETING RESIDENT WHO READ FILMS"
^DD(70.03,12,1,0)="^.1"
^DD(70.03,12,1,1,0)="70.03^ARES^MUMPS"
^DD(70.03,12,1,1,1)="S RADA=$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),""^"",17) I RADA K RAKILL S RASET="""",RAXREF=""ARES"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RASET,RAXREF,RARAD"
^DD(70.03,12,1,1,2)="S RADA=$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),""^"",17) I RADA K RASET S RAKILL="""",RAXREF=""ARES"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RAKILL,RAXREF,RARAD"
^DD(70.03,12,1,1,"%D",0)="^^4^4^2940606^"
^DD(70.03,12,1,1,"%D",1,0)="This cross reference sets the 'ARES' cross reference in the Rad/Nuc Med"
^DD(70.03,12,1,1,"%D",2,0)="Reports file.  The 'ARES' cross reference is used during the on-line"
^DD(70.03,12,1,1,"%D",3,0)="verification process to determine the reports that a specific interpreting"
^DD(70.03,12,1,1,"%D",4,0)="resident needs to verify."
^DD(70.03,12,1,1,"DT")="2911118"
^DD(70.03,12,3)="Enter the name of the Primary Resident who interpreted the images for this exam."
^DD(70.03,12,10)="RAD/NUC MED TECHNOLOGIST"
^DD(70.03,12,12)="Personnel must be classified as Interpreting Resident, and have access to an imaging location with the imaging type of this exam."
^DD(70.03,12,12.1)="S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""R"""",+Y,""""PRI"""")"""
^DD(70.03,12,21,0)="^^11^11^2971114^"
^DD(70.03,12,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the"
^DD(70.03,12,21,2,0)="name of the primary interpreting resident who read the films of this exam."
^DD(70.03,12,21,3,0)="If interpreting staff is required to review this resident's results, then"
^DD(70.03,12,21,4,0)="the 'primary interpreting staff' field must also be filled in.  Primary"
^DD(70.03,12,21,5,0)="Interpreting Resident must be classified as an interpreting resident, and"
^DD(70.03,12,21,6,0)="must have access to at least one imaging location that matches the imaging"
^DD(70.03,12,21,7,0)="type of the exam."
^DD(70.03,12,21,8,0)=" "
^DD(70.03,12,21,9,0)="Depending on the requirements set up in the 'EXAMINATION STATUS' file"
^DD(70.03,12,21,10,0)="(#72), it may be necessary for this field to be filled in before the"
^DD(70.03,12,21,11,0)="'exam status' can be considered complete."
^DD(70.03,12,"DEL",1,0)="S RAMULT=""SRR"" D NODEL^RADD1"
^DD(70.03,12,"DT")="2970428"
^DD(70.03,13,0)="PRIMARY DIAGNOSTIC CODE^*P78.3'^RA(78.3,^0;13^S DIC(""S"")=""I $$PDC^RADD1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.03,13,.1)="PRIMARY DIAGNOSTIC CODE OF THIS RAD/NUC MED EXAM"
^DD(70.03,13,1,0)="^.1"
^DD(70.03,13,1,1,0)="70^AD^MUMPS"
^DD(70.03,13,1,1,1)="I $D(^RA(78.3,X,0)),'$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),U,20),$P(^RA(78.3,X,0),U,3)=""Y"" S ^RADPT(""AD"",X,DA(2),DA(1),DA)="""""
^DD(70.03,13,1,1,2)="S:X'=$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),U,13) $P(^(0),U,20)="""" K ^RADPT(""AD"",X,DA(2),DA(1),DA)"
^DD(70.03,13,1,1,"%D",0)="^.101^1^1^3010119^^^"
^DD(70.03,13,1,1,"%D",1,0)="Used to produce the Abnormal Exam Report."
^DD(70.03,13,1,1,"DT")="3010119"
^DD(70.03,13,3)="Enter the primary diagnostic code for this exam."
^DD(70.03,13,10)="INTERPRETING PHYSICIAN"
^DD(70.03,13,12)="Select only Diagnostic codes that have not been entered in the Secondary diagnoses field."
^DD(70.03,13,12.1)="S DIC(""S"")=""I $$PDC^RADD1"""
^DD(70.03,13,21,0)="^^11^11^2941013^"
^DD(70.03,13,21,1,0)="This field is used at sites that decide to enter diagnostic codes for"
^DD(70.03,13,21,2,0)="exams, as designated in the Examination Status file parameters. It points"
^DD(70.03,13,21,3,0)="to a short diagnostic code in the 'DIAGNOSTIC CODES' file (#78.3) to"
^DD(70.03,13,21,4,0)="indicate the primary diagnostic code associated with this exam. If filled"
^DD(70.03,13,21,5,0)="in, this field can be used in the search criteria for database searches."
^DD(70.03,13,21,6,0)="For example, the database can be searched for all 'normal' chest"
^DD(70.03,13,21,7,0)="procedures performed during a specific time period."
^DD(70.03,13,21,8,0)=" "
^DD(70.03,13,21,9,0)="Depending on the requirements set up in the 'EXAMINATION STATUS' file"
^DD(70.03,13,21,10,0)="(#72), it may be necessary for this field to be filled in before the 'exam"
^DD(70.03,13,21,11,0)="status' can be considered complete."
^DD(70.03,13,"DEL",1,0)="S RAMULT=""DX"" D NODEL^RADD1"
^DD(70.03,13,"DT")="3010119"
^DD(70.03,13.1,0)="SECONDARY DIAGNOSTIC CODE^70.14PA^^DX;0"
^DD(70.03,13.1,.1)="SECONDARY DIAGNOSTIC CODE SUB-FIELD"
^DD(70.03,13.1,12)="Select only Diagnostic codes that have not been entered in the Primary Diagnosis field"
^DD(70.03,13.1,12.1)="S DIC(""S"")=""I $$SDC^RADD1"""
^DD(70.03,13.1,21,0)="^^1^1^2980109^^^^"
^DD(70.03,13.1,21,1,0)="This field contains additional Diagnostic Codes for this Rad/Nuc Med exam."
^DD(70.03,13.1,"DT")="2940622"
^DD(70.03,14,0)="REQUESTING PHYSICIAN^R*P200'X^VA(200,^0;14^S DIC(""S"")=""I $$PROV^RABWORD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.03,14,.1)="NAME OF THE REQUESTING PHYSICIAN"
^DD(70.03,14,3)="Enter the name of the person requesting this exam."
^DD(70.03,14,10)="RAD/NUC MED RECEPTIONIST"
^DD(70.03,14,12)="Provider must be active."
^DD(70.03,14,12.1)="S DIC(""S"")=""I $$PROV^RABWORD"""
^DD(70.03,14,21,0)="^.001^3^3^3030827^^^^"
^DD(70.03,14,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the name of"
^DD(70.03,14,21,2,0)="the person who requested this Rad/Nuc Med exam.  This person is not always a"
^DD(70.03,14,21,3,0)="physician.  (i.e. A nurse might request the exam.)"
^DD(70.03,14,"DT")="3030827"
^DD(70.03,15,0)="PRIMARY INTERPRETING STAFF^*P200'X^VA(200,^0;15^S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""S"""",+Y,""""PRI"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) EN^RAUTL8(X,60,.DA)"
^DD(70.03,15,.1)="PRIMARY STAFF WHO INTERPRETED IMAGES"
^DD(70.03,15,1,0)="^.1"
^DD(70.03,15,1,1,0)="70.03^ASTF^MUMPS"
^DD(70.03,15,1,1,1)="S RADA=$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),""^"",17) I RADA K RAKILL S RASET="""",RAXREF=""ASTF"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RASET,RAXREF,RARAD"
^DD(70.03,15,1,1,2)="S RADA=$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),""^"",17) I RADA K RASET S RAKILL="""",RAXREF=""ASTF"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RAKILL,RAXREF,RARAD"
^DD(70.03,15,1,1,"%D",0)="^^4^4^2940606^"
^DD(70.03,15,1,1,"%D",1,0)="This cross reference sets the 'ASTF' cross reference in the Rad/Nuc Med"
^DD(70.03,15,1,1,"%D",2,0)="Reports file.  The 'ASTF' cross reference is used during the on-line"
^DD(70.03,15,1,1,"%D",3,0)="verification process to determine the reports that a specific interpreting"
^DD(70.03,15,1,1,"%D",4,0)="staff needs to verify."
^DD(70.03,15,1,1,"DT")="2911118"
^DD(70.03,15,3)="Enter the name of the primary staff who interpreted these images."
^DD(70.03,15,10)="TRANSCRIPTIONIST"
^DD(70.03,15,12)="Personnel must be classified as Interpreting Staff Physician, and have access to an imaging location with the imaging type of this exam."
^DD(70.03,15,12.1)="S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""S"""",+Y,""""PRI"""")"""
^DD(70.03,15,21,0)="^^8^8^2971114^"
^DD(70.03,15,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the name of"
^DD(70.03,15,21,2,0)="the primary staff who interpreted the images.  Primary Staff must have"
^DD(70.03,15,21,3,0)="Rad/Nuc Med personnel classification of 'staff', and must have access to"
^DD(70.03,15,21,4,0)="at least one imaging location of the same imaging type as the exam."
^DD(70.03,15,21,5,0)=" "
^DD(70.03,15,21,6,0)="Depending on the requirements set up in the 'EXAMINATION STATUS' file"
^DD(70.03,15,21,7,0)="(#72), it may be necessary for this field to be filled in before the"
^DD(70.03,15,21,8,0)="'exam status' can be considered complete."
^DD(70.03,15,"DEL",1,0)="S RAMULT=""SSR"" D NODEL^RADD1"
^DD(70.03,15,"DT")="2970429"
^DD(70.03,16,0)="COMPLICATION^P78.1'^RA(78.1,^0;16^Q"
^DD(70.03,16,.1)="EXAM COMPLICATION"
^DD(70.03,16,1,0)="^.1"
^DD(70.03,16,1,1,0)="70.03^ACM^MUMPS"
^DD(70.03,16,1,1,1)="I $P($G(^RA(78.1,+X,0)),U,2)=""Y"",$$RADD^GMRARAD(DA(2),""o"",""Y"")"
^DD(70.03,16,1,1,2)="Q"
^DD(70.03,16,1,1,3)="Do not delete !"
^DD(70.03,16,1,1,"%D",0)="^^3^3^2940810^"
^DD(70.03,16,1,1,"%D",1,0)="If a complication is entered that indicates a reaction to contrast"
^DD(70.03,16,1,1,"%D",2,0)="media, a contrast media allergy record will be created in the ATS"
^DD(70.03,16,1,1,"%D",3,0)="package (File #120.8)."
^DD(70.03,16,1,1,"DT")="2940810"
^DD(70.03,16,3)="If the patient experienced any complication during the exam, enter it here."
^DD(70.03,16,10)="TECHNOLOGIST"
^DD(70.03,16,21,0)="^^8^8^2970801^"
^DD(70.03,16,21,1,0)="This field points to the 'COMPLICATION TYPES' file (#78.1) to indicate"
^DD(70.03,16,21,2,0)="if this patient experienced any complication during the exam procedure."
^DD(70.03,16,21,3,0)="(i.e. Reaction to Contrast Medium)"
^DD(70.03,16,21,4,0)=" "
^DD(70.03,16,21,5,0)="If a reaction to the contrast medium did occur, then the system triggers"
^DD(70.03,16,21,6,0)="the addition of contrast media as an allergen in the Adverse Reaction"
^DD(70.03,16,21,7,0)="Tracking (ART) package without leaving the Radiology/Nuclear Medicine"
^DD(70.03,16,21,8,0)="option."
^DD(70.03,16,"DT")="2940810"
^DD(70.03,16.5,0)="COMPLICATION TEXT^F^^COMP;1^K:$L(X)>100!($L(X)<4) X"
^DD(70.03,16.5,.1)="COMPLICATION DESCRIPTION"
^DD(70.03,16.5,3)="Enter a brief (4-100 characters) description of the complication."
^DD(70.03,16.5,10)="TECHNOLOGIST"
^DD(70.03,16.5,21,0)="^^4^4^2941012^"
^DD(70.03,16.5,21,1,0)="This field is used to give a brief explanation (4-100 characters) "
^DD(70.03,16.5,21,2,0)="to describe the exam complication.  The text entered will appear on the"
^DD(70.03,16.5,21,3,0)="Complications Report, and under the 'Comment' caption in the detailed"
^DD(70.03,16.5,21,4,0)="exam view of the Profile of Rad/Nuc Med Exams."
^DD(70.03,16.5,"DT")="2850207"
^DD(70.03,17,0)="REPORT TEXT^P74'I^RARPT(^0;17^Q"
^DD(70.03,17,.1)="TEXT OF IMAGING REPORT"
^DD(70.03,17,3)="This field contains the report text."
^DD(70.03,17,10)="SYSTEM GENERATED"
^DD(70.03,17,21,0)="^^3^3^2961120^^"
^DD(70.03,17,21,1,0)="This field points to the 'RAD/NUC MED REPORTS' file (#74) to indicate the"
^DD(70.03,17,21,2,0)="report text associated with this exam.  It is filled in by the system and"
^DD(70.03,17,21,3,0)="is not seen by the user."
^DD(70.03,17,"DT")="2940608"
^DD(70.03,18,0)="PRIMARY CAMERA/EQUIP/RM^*P78.6'^RA(78.6,^0;18^S DIC(""S"")=""I $D(^RA(79.1,+$P(^RADPT(DA(2),""""DT"""",DA(1),0),U,4),""""R"""",+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.03,18,.1)="THE PRIMARY CAMERA/EQUIPMENT/ROOM"
^DD(70.03,18,3)="Enter the primary camera/equipment/room used for this exam."
^DD(70.03,18,10)="TECHNOLOGIST"
^DD(70.03,18,12)="Allow only cameras, equipment and rooms associated with the registration location."
^DD(70.03,18,12.1)="S DIC(""S"")=""I $D(^RA(79.1,+$P(^RADPT(DA(2),""""DT"""",DA(1),0),U,4),""""R"""",+Y,0))"""
^DD(70.03,18,21,0)="^^7^7^2970213^"
^DD(70.03,18,21,1,0)="This field points to the 'CAMERA/EQUIP/RM' file (#78.6) for the name of"
^DD(70.03,18,21,2,0)="the primary camera/equipment/room where the imaging exam was performed."
^DD(70.03,18,21,3,0)="Usually there is only one camera/equipment/room per procedure."
^DD(70.03,18,21,4,0)=" "
^DD(70.03,18,21,5,0)="Depending on the requirements set up in the 'EXAMINATION STATUS' file"
^DD(70.03,18,21,6,0)="(#72), it may be necessary for this field to be filled in before the"
^DD(70.03,18,21,7,0)="'exam status' can be considered complete."
^DD(70.03,18,"DT")="2940606"
^DD(70.03,19,0)="BEDSECTION^P42.4'^DIC(42.4,^0;19^Q"
^DD(70.03,19,.1)="BEDSECTION OF THE RAD/NUC MED PATIENT"
^DD(70.03,19,3)="This field contains the patient's bedsection and is automatically filled in by the system."
^DD(70.03,19,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(70.03,19,21,0)="^^3^3^2941122^"
^DD(70.03,19,21,1,0)="This field points to the 'SPECIALTY' file (#42.4) to indicate the name of"
^DD(70.03,19,21,2,0)="the bedsection of Rad/Nuc Med patients who are inpatients.  This field is"
^DD(70.03,19,21,3,0)="filled in by the system from information entered by the ADT system."
^DD(70.03,19,"DT")="2940517"
^DD(70.03,20,0)="DIAGNOSTIC PRINT DATE^DI^^0;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(70.03,20,.1)="PRINT DATE OF ABNORMAL EXAM REPORT"
^DD(70.03,20,1,0)="^.1^^0"
^DD(70.03,20,3)="This field contains the date that this exam appeared on the 'Abnormal Exam Report'."
^DD(70.03,20,9)="^"
^DD(70.03,20,10)="SYSTEM GENERATED"
^DD(70.03,20,21,0)="^^11^11^2941013^"
^DD(70.03,20,21,1,0)="If any diagnostic code associated with this exam requires immediate"
^DD(70.03,20,21,2,0)="notification of the physican, this field is filled in with the"
^DD(70.03,20,21,3,0)="date that this exam appeared on the 'Abnormal Exam Report'. The report"
^DD(70.03,20,21,4,0)="prints a warning indicating abnormal results of the Rad/Nuc Med exam."
^DD(70.03,20,21,5,0)="The report is used by Radiology/Nuclear Medicine to help make sure that the "
^DD(70.03,20,21,6,0)="physican is notified of the results of the abnormal exam."
^DD(70.03,20,21,7,0)=" "
^DD(70.03,20,21,8,0)="The date is filled in on this field when this report is printed so"
^DD(70.03,20,21,9,0)="the next time the report is printed this exam will not appear again."
^DD(70.03,20,21,10,0)=" "
^DD(70.03,20,21,11,0)="This field is filled in by the system and is not seen by the user."
^DD(70.03,20,"DT")="2850207"
^DD(70.03,21,0)="REQUESTED DATE^D^^0;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(70.03,21,.1)="DATE THE RAD/NUC MED EXAM WAS REQUESTED"
^DD(70.03,21,3)="Enter the date this exam was requested."
^DD(70.03,21,10)="TRANSCRIPTIONIST"
^DD(70.03,21,21,0)="^^6^6^2941013^^"
^DD(70.03,21,21,1,0)="This field contains the date the Rad/Nuc Med exam was requested.  "
^DD(70.03,21,21,2,0)=" "
^DD(70.03,21,21,3,0)="Depending on the site's specifications, this field may or may not be"
^DD(70.03,21,21,4,0)="asked of the transcriptionist.  By default, it is populated automatically,"
^DD(70.03,21,21,5,0)="at the time an exam is registered, with the Request date in the Rad/Nuc"
^DD(70.03,21,21,6,0)="Med Order file."
^DD(70.03,21,"DT")="2940517"
^DD(70.03,22,0)="REQUESTING LOCATION^P44'^SC(^0;22^Q"
^DD(70.03,22,3)="Enter the name of the hospital location requesting the exam."
^DD(70.03,22,21,0)="^^4^4^3070627^"
^DD(70.03,22,21,1,0)="This field points to the 'HOSPITAL LOCATION' file (#44) to indicate the "
^DD(70.03,22,21,2,0)="name of the hospital location that is requesting the exam. By default, it"
^DD(70.03,22,21,3,0)="is populated automatically, using data from the Rad/Nuc Med Orders file,"
^DD(70.03,22,21,4,0)="at the time an exam is registered."
^DD(70.03,22,23,0)="^^1^1^3070627^"
^DD(70.03,22,23,1,0)="This field has been modified with the release of patch: RA*5.0*86."
^DD(70.03,22,"DT")="2880426"
^DD(70.03,23,0)="CLINIC STOP RECORDED?^S^Y:YES;^0;24^Q"
^DD(70.03,23,3)="A 'Y' for 'YES' is entered in this field when clinic stop information has been entered in the Scheduling Visits file for this exam."
^DD(70.03,23,21,0)="^^2^2^2940517^"
^DD(70.03,23,21,1,0)="This field contains a YES when clinic stop information has been"
^DD(70.03,23,21,2,0)="entered in the Scheduling Visits file for this exam."
^DD(70.03,23,"DT")="2910117"
^DD(70.03,25,0)="MEMBER OF SET^S^1:Yes,separate reports;2:Yes,combined report;^0;25^Q"
^DD(70.03,25,3)="If this case is a descendant of a single ordered parent procedure, this field should be set to 'Yes'."
^DD(70.03,25,21,0)="^^8^8^2960321^^^^"
^DD(70.03,25,21,1,0)="This field is automatically populated by the system.  "
^DD(70.03,25,21,2,0)="If this case was registered as a 'descendant' of a 'parent' procedure,"
^DD(70.03,25,21,3,0)="   the field value is set to"
^DD(70.03,25,21,4,0)="   '1' if all cases in the set are to have separate reports"
^DD(70.03,25,21,5,0)="   '2' if all cases in the set are to be combined into one report."
^DD(70.03,25,21,6,0)="All cases belonging to a 'parent' are created from the same order."
^DD(70.03,25,21,7,0)="The system must check all members of the set of descendants to determine"
^DD(70.03,25,21,8,0)="the new order status whenever the exam status changes on any member."
^DD(70.03,25,"DT")="2960321"
^DD(70.03,26,0)="CREDIT METHOD^S^0:Regular Credit;1:Interpretation Only;2:No Credit;3:Technical Component Only;^0;26^Q"
^DD(70.03,26,3)="Enter the type of credit this location will receive for this examination."
^DD(70.03,26,9.2)="D EN^DDIOL(""'Interpreting Only' and 'Technical Component Only' are for future use."","""",""!"")"
^DD(70.03,26,21,0)="^.001^10^10^3030826^^^"
^DD(70.03,26,21,1,0)="This field indicates the type of credit this location receives for"
^DD(70.03,26,21,2,0)="examinations.  This field is populated automatically by the system at the"
^DD(70.03,26,21,3,0)="time an exam is registered based on the Credit Method entered for the"
^DD(70.03,26,21,4,0)="Imaging Location where the exam is registered.  If only the interpretation"
^DD(70.03,26,21,5,0)="was done at this facility, code 1 should be used.  If the exam was"
^DD(70.03,26,21,6,0)="performed at this facility, but the interpretation was done elsewhere,"
^DD(70.03,26,21,7,0)="code 3 should be used.  If both the exam and interpretation were done at"
^DD(70.03,26,21,8,0)="this facility, code 0 should be used. If the entire exam was done outside"
^DD(70.03,26,21,9,0)="the facility and exam data is being entered for the purposes of"
^DD(70.03,26,21,10,0)="record-keeping only, code 2 should be used."
^DD(70.03,26,"DT")="3030826"
^DD(70.03,27,0)="VISIT^P9000010'^AUPNVSIT(^0;27^Q"
^DD(70.03,27,1,0)="^.1"
^DD(70.03,27,1,1,0)="70^AVSIT"
^DD(70.03,27,1,1,1)="S ^RADPT(""AVSIT"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(70.03,27,1,1,2)="K ^RADPT(""AVSIT"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(70.03,27,1,1,3)="Do not delete."
^DD(70.03,27,1,1,"%D",0)="^^1^1^2960605^"
^DD(70.03,27,1,1,"%D",1,0)="This is a regular, non-lookup file wide cross reference on the Visit. "
^DD(70.03,27,1,1,"DT")="2960605"
^DD(70.03,27,1,2,0)="70.03^AUPN^MUMPS"
^DD(70.03,27,1,2,1)="N RAX S RAX=X,X=""AUPNVSIT"" X ^%ZOSF(""TEST"") S X=RAX D:$T ADD^AUPNVSIT"
^DD(70.03,27,1,2,2)="N RAX S RAX=X,X=""AUPNVSIT"" X ^%ZOSF(""TEST"") S X=RAX D:$T SUB^AUPNVSIT"
^DD(70.03,27,1,2,3)="Do not delete."
^DD(70.03,27,1,2,"%D",0)="^^2^2^2960605^"
^DD(70.03,27,1,2,"%D",1,0)="This cross reference will invoke software which tracks the number of 'V'"
^DD(70.03,27,1,2,"%D",2,0)="file entries pointing to a specific visit."
^DD(70.03,27,1,2,"DT")="2960605"
^DD(70.03,27,3)="Enter the visit to which this examination is related."
^DD(70.03,27,21,0)="^^1^1^2960605^"
^DD(70.03,27,21,1,0)="This field links the examination of a patient to a specific visit."
^DD(70.03,27,"DT")="2960605"
^DD(70.03,29,0)="DOSAGE TICKET PRINTED?^S^1:Yes;^0;29^Q"
^DD(70.03,29,3)="If the dosage ticket has been printed for the exam this field should be set to 'Yes'."
^DD(70.03,29,21,0)="^^6^6^2970113^"
^DD(70.03,29,21,1,0)="This field indicates if a dosage ticket has been printed for each"
^DD(70.03,29,21,2,0)="radiopharmaceutical associated with this examination.  Once this process"
^DD(70.03,29,21,3,0)="has completed for a particular exam status, all further status updates"
^DD(70.03,29,21,4,0)="will not print dosage tickets.  If an examination is cancelled, the dosage"
^DD(70.03,29,21,5,0)="ticket field is cleared.  Only if the exam is re-registered will the"
^DD(70.03,29,21,6,0)="dosage ticket again print for the examination."
^DD(70.03,29,"DT")="2970113"
^DD(70.03,30,0)="HL7 EXAMINED MSG SENT?^S^Y:Yes;^0;30^Q"
^DD(70.03,30,3)=""
^DD(70.03,30,10)="SYSTEM GENERATED"
^DD(70.03,30,"DT")="2961120"
^DD(70.03,40,0)="PURGED DATE^DI^^PURGE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(70.03,40,.1)="THE DATE THIS EXAM WAS PURGED"
^DD(70.03,40,3)="This field contains the last purge date associated with this exam."
^DD(70.03,40,9)="^"
^DD(70.03,40,10)="SYSTEM GENERATED"
^DD(70.03,40,21,0)="^^1^1^2941013^"
^DD(70.03,40,21,1,0)="This field contains the last purge date associated with this exam."
^DD(70.03,40,"DT")="2850606"
^DD(70.03,45,0)="PREVENT PURGE^S^n:NO PURGE;o:OK TO PURGE;^NOPURGE;1^Q"
^DD(70.03,45,1,0)="^.1"
^DD(70.03,45,1,1,0)="70^AC^MUMPS"
^DD(70.03,45,1,1,1)="S:$D(^RARPT(+$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),U,17),0)) ^(""NOPURGE"")=X"
^DD(70.03,45,1,1,2)="K:$D(^RARPT(+$P(^RADPT(DA(2),""DT"",DA(1),""P"",DA,0),U,17),0)) ^(""NOPURGE"")"
^DD(70.03,45,1,1,"%D",0)="^^1^1^2940518^"
^DD(70.03,45,1,1,"%D",1,0)="Used to determine which exams and reports to purge."
^DD(70.03,45,3)="Enter 'n' for NO PURGE if the data for this exam should not be purged or 'o' if it is OK to purge the data."
^DD(70.03,45,21,0)="^^3^3^2970523^^^"
^DD(70.03,45,21,1,0)="If this field is set to 'NO PURGE' then the data for this exam will not be"
^DD(70.03,45,21,2,0)="purged or archived, nor will the report associated with this exam be"
^DD(70.03,45,21,3,0)="purged or archived."
^DD(70.03,45,"DT")="2940322"
^DD(70.03,46,0)="REASON FOR NOT PURGING^70.346SA^^NOPURSN;0"
^DD(70.03,46,21,0)="^^1^1^2970421^^"
^DD(70.03,46,21,1,0)="This field indicates why the examination should not be purged."
^DD(70.03,46,"DT")="2960621"
^DD(70.03,50,0)="FILM SIZE^70.04PA^^F;0"
^DD(70.03,50,.1)="SIZE OF FILM SUB-FIELD"
^DD(70.03,50,10)=" "
^DD(70.03,50,21,0)="^^2^2^2941013^"
^DD(70.03,50,21,1,0)="This is a multiple field containing the sizes of the films used and films"
^DD(70.03,50,21,2,0)="wasted during this exam."
^DD(70.03,60,0)="SECONDARY INTERPRETING STAFF^70.11PA^^SSR;0"
^DD(70.03,60,.1)="SECONDARY INTERPRETING STAFF SUB-FIELD"
^DD(70.03,60,12)="Personnel must be classified as Interpreting Staff, and have access to an imaging location with the imaging type of this exam."
^DD(70.03,60,12.1)="S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""S"""",+Y,""""SEC""""),$$SSR^RAUTL8"""
^DD(70.03,60,21,0)="^^2^2^2971114^^^^"
^DD(70.03,60,21,1,0)="This multiple tracks additional Staff who have interpreted the images of"
^DD(70.03,60,21,2,0)="an exam."
^DD(70.03,60,"DT")="2940606"
^DD(70.03,70,0)="SECONDARY INTERPRET'G RESIDENT^70.09PA^^SRR;0"
^DD(70.03,70,.1)="SECONDARY INTERPRETING RESIDENT SUB-FIELD"
^DD(70.03,70,12)="Personnel must be classified as Interpreting Resident, and have access to an imaging location with the imaging type of the exam."
^DD(70.03,70,12.1)="S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""R"""",+Y,""""SEC""""),$$S^RAUTL8"""
^DD(70.03,70,21,0)="^^2^2^2971114^^^^"
^DD(70.03,70,21,1,0)="This multiple tracks additional Interpreting Residents who interpreted the"
^DD(70.03,70,21,2,0)="images of an exam."
^DD(70.03,70,"DT")="2940606"
^DD(70.03,75,0)="EXAM STATUS TIMES^70.05DA^^T;0"
^DD(70.03,75,.1)="EXAM STATUS CHANGES SUB-FIELD"
^DD(70.03,75,10)=""
^DD(70.03,75,21,0)="^^9^9^2940517^^"
^DD(70.03,75,21,1,0)="This is a multiple field containing a log of when the exam status was"
^DD(70.03,75,21,2,0)="changed from one status to another."
^DD(70.03,75,21,3,0)=" "
^DD(70.03,75,21,4,0)="Depending on how the system parameters are set up, this field may or"
^DD(70.03,75,21,5,0)="may not be filled in."
^DD(70.03,75,21,6,0)=" "
^DD(70.03,75,21,7,0)="Because the mass override process will degrade system performance by"
^DD(70.03,75,21,8,0)="slowing the system down, it should be run at specified times only. (i.e."
^DD(70.03,75,21,9,0)="one week per quarter)"
^DD(70.03,100,0)="ACTIVITY LOG^70.07DA^^L;0"
^DD(70.03,100,.1)="LOG OF EXAM ACTIONS SUB-FIELD"
^DD(70.03,100,10)=" "
^DD(70.03,100,21,0)="^^5^5^2941013^"
^DD(70.03,100,21,1,0)="This is a multiple field containing a log of actions that have been taken "
^DD(70.03,100,21,2,0)="on this exam record during processing of this exam.  "
^DD(70.03,100,21,3,0)=" "
^DD(70.03,100,21,4,0)="Use the function that allows you to View Exam by Case No. within the Exam"
^DD(70.03,100,21,5,0)="Entry/Edit menu to view this activity log."
^DD(70.03,125,0)="PROCEDURE MODIFIERS^70.1P^^M;0"
^DD(70.03,125,.1)="MODIFIERS OF THIS EXAM SUB-FIELD"
^DD(70.03,125,10)=""
^DD(70.03,125,21,0)="^^2^2^2990805^^^^"
^DD(70.03,125,21,1,0)="This multiple field is used to give the imaging modifiers that are"
^DD(70.03,125,21,2,0)="associated with this exam."
^DD(70.03,125,"DT")="2990805"
^DD(70.03,135,0)="CPT MODIFIERS^70.3135P^^CMOD;0"
^DD(70.03,135,12)="screen in CPT modifiers that agree with CPT for this exam"
^DD(70.03,135,12.1)="S DIC(""S"")=""I $$SCRN^RACPTMSC(+Y)"""
^DD(70.03,175,0)="TECHNOLOGIST^70.12PA^^TC;0"
^DD(70.03,175,.1)="TECHNOLOGIST SUB-FIELD"
^DD(70.03,175,21,0)="^^5^5^2970514^^^^"
^DD(70.03,175,21,1,0)="This multiple field is used to give the names of technologists who performed"
^DD(70.03,175,21,2,0)="this exam."
^DD(70.03,175,21,3,0)=" "
^DD(70.03,175,21,4,0)="Depending on the site's specifications, this field may or may not be"
^DD(70.03,175,21,5,0)="filled in."
^DD(70.03,175,"DT")="2970514"
^DD(70.03,200,0)="MEDICATIONS^70.15PA^^RX;0"
^DD(70.03,200,"DT")="2961212"
^DD(70.03,225,0)="CONTRAST MEDIA^70.3225S^^CM;0"
^DD(70.03,250,0)="CONTRAST MEDIA ACTIVITY LOG^70.16DA^^AUD;0"
^DD(70.03,400,0)="CLINICAL HISTORY FOR EXAM^70.13^^H;0"
^DD(70.03,400,21,0)="^^7^7^2950112^^^^"
^DD(70.03,400,21,1,0)="This field may contain a written clinical history of the patient as well"
^DD(70.03,400,21,2,0)="as instructions to the interpreting physician .  For example, the"
^DD(70.03,400,21,3,0)="instructions might be to interpret the images to rule out the possibility"
^DD(70.03,400,21,4,0)="of a patient having a certain disease."
^DD(70.03,400,21,5,0)=" "
^DD(70.03,400,21,6,0)="This field is used as the 'Clinical History' that appears on the printed"
^DD(70.03,400,21,7,0)="report for each exam associated with this visit."
^DD(70.03,400,23,0)="^^1^1^2950112^^^^"
^DD(70.03,400,23,1,0)=" "
^DD(70.03,500,0)="NUCLEAR MED DATA^P70.2'^RADPTN(^0;28^Q"
^DD(70.03,500,1,0)="^.1"
^DD(70.03,500,1,1,0)="70.03^NMD^MUMPS"
^DD(70.03,500,1,1,1)="Q"
^DD(70.03,500,1,1,2)="Q:$D(RAIEN702)  N DA,DIK S DA=X,DIK=""^RADPTN("" D ^DIK"
^DD(70.03,500,1,1,"%D",0)="^^1^1^2960926^^^^"
^DD(70.03,500,1,1,"%D",1,0)="delete pointed-to record in file 70.2 when field 500 is deleted"
^DD(70.03,500,1,1,"DT")="2960926"
^DD(70.03,500,3)="Enter exam data related to radiopharmaceuticals."
^DD(70.03,500,21,0)="^^3^3^2960814^^"
^DD(70.03,500,21,1,0)="Radiopharmaceutical data may be automatically entered, if it exists on the"
^DD(70.03,500,21,2,0)="procedure file.  It is also editable during case edit options and may be"
^DD(70.03,500,21,3,0)="configured for editing during status tracking."
^DD(70.03,500,23,0)="^^3^3^2960814^"
^DD(70.03,500,23,1,0)="On an exam, this field is used to point to an entry in the Nuc Med Exam"
^DD(70.03,500,23,2,0)="file #70.2 which contains radiopharmaceutical data for the case.  Within"
^DD(70.03,500,23,3,0)="the pointed-to file is a multiple for radiopharms."
^DD(70.03,500,"DT")="2960926"
^DD(70.03,"B","ACTIVITY LOG",100)=""
^DD(70.03,"B","BEDSECTION",19)=""
^DD(70.03,"B","CASE NUMBER",.01)=""
^DD(70.03,"B","CATEGORY OF EXAM",4)=""
^DD(70.03,"B","CATEGORY OF THIS EXAM",4)="1"
^DD(70.03,"B","CLINIC STOP RECORDED?",23)=""
^DD(70.03,"B","CLINICAL HISTORY FOR EXAM",400)=""
^DD(70.03,"B","COMPLICATION",16)=""
^DD(70.03,"B","COMPLICATION DESCRIPTION",16.5)="1"
^DD(70.03,"B","COMPLICATION TEXT",16.5)=""
^DD(70.03,"B","CONTRACT/SHARING SOURCE",9)=""
^DD(70.03,"B","CONTRAST MEDIA",225)=""
^DD(70.03,"B","CONTRAST MEDIA ACTIVITY LOG",250)=""
^DD(70.03,"B","CONTRAST MEDIA USED",10)=""
^DD(70.03,"B","CPT MODIFIERS",135)=""
^DD(70.03,"B","CREDIT METHOD",26)=""
^DD(70.03,"B","DIAGNOSTIC PRINT DATE",20)=""
^DD(70.03,"B","DOSAGE TICKET PRINTED?",29)=""
^DD(70.03,"B","EXAM COMPLICATION",16)="1"
^DD(70.03,"B","EXAM STATUS",3)=""
^DD(70.03,"B","EXAM STATUS CHANGES SUB-FIELD",75)="1"
^DD(70.03,"B","EXAM STATUS TIMES",75)=""
^DD(70.03,"B","FILM SIZE",50)=""
^DD(70.03,"B","HL7 EXAMINED MSG SENT?",30)=""
^DD(70.03,"B","IMAGING ORDER",11)=""
^DD(70.03,"B","LOG OF EXAM ACTIONS SUB-FIELD",100)="1"
^DD(70.03,"B","MEDICATIONS",200)=""
^DD(70.03,"B","MEMBER OF SET",25)=""
^DD(70.03,"B","NUCLEAR MED DATA",500)=""
^DD(70.03,"B","PREVENT PURGE",45)=""
^DD(70.03,"B","PRIMARY CAMERA/EQUIP/RM",18)=""
^DD(70.03,"B","PRIMARY DIAGNOSTIC CODE",13)=""
^DD(70.03,"B","PRIMARY INTERPRETING RESIDENT",12)=""
^DD(70.03,"B","PRIMARY INTERPRETING STAFF",15)=""
^DD(70.03,"B","PRINCIPAL CLINIC",8)=""
^DD(70.03,"B","PROCEDURE",2)=""
^DD(70.03,"B","PROCEDURE MODIFIERS",125)=""
^DD(70.03,"B","PURGED DATE",40)=""
^DD(70.03,"B","REASON FOR CANCELLATION",3.5)=""
^DD(70.03,"B","REASON FOR NOT PURGING",46)=""
^DD(70.03,"B","REFERRING PRINCIPAL CLINIC",8)="1"
^DD(70.03,"B","REFERRING RESEARCH SOURCE",9.5)="1"
^DD(70.03,"B","REPORT TEXT",17)=""
^DD(70.03,"B","REQUESTED DATE",21)=""
^DD(70.03,"B","REQUESTING LOCATION",22)=""
^DD(70.03,"B","REQUESTING PHYSICIAN",14)=""
^DD(70.03,"B","RESEARCH SOURCE",9.5)=""
^DD(70.03,"B","SECONDARY DIAGNOSTIC CODE",13.1)=""
^DD(70.03,"B","SECONDARY INTERPRET'G RESIDENT",70)=""
^DD(70.03,"B","SECONDARY INTERPRETING STAFF",60)=""
^DD(70.03,"B","SERVICE",7)=""
^DD(70.03,"B","SIZE OF FILM SUB-FIELD",50)="1"
^DD(70.03,"B","STATUS OF THIS EXAM",3)="1"
^DD(70.03,"B","TECHNOLOGIST",175)=""
^DD(70.03,"B","TECHNOLOGIST SUB-FIELD",175)="1"
^DD(70.03,"B","TEXT OF IMAGING REPORT",17)="1"
^DD(70.03,"B","THE DATE THIS EXAM WAS PURGED",40)="1"
^DD(70.03,"B","VISIT",27)=""
^DD(70.03,"B","WARD",6)=""
^DD(70.03,"GL",0,1,.01)=""
^DD(70.03,"GL",0,2,2)=""
^DD(70.03,"GL",0,3,3)=""
^DD(70.03,"GL",0,4,4)=""
^DD(70.03,"GL",0,6,6)=""
^DD(70.03,"GL",0,7,7)=""
^DD(70.03,"GL",0,8,8)=""
^DD(70.03,"GL",0,9,9)=""
^DD(70.03,"GL",0,10,10)=""
^DD(70.03,"GL",0,11,11)=""
^DD(70.03,"GL",0,12,12)=""
^DD(70.03,"GL",0,13,13)=""
^DD(70.03,"GL",0,14,14)=""
^DD(70.03,"GL",0,15,15)=""
^DD(70.03,"GL",0,16,16)=""
^DD(70.03,"GL",0,17,17)=""
^DD(70.03,"GL",0,18,18)=""
^DD(70.03,"GL",0,19,19)=""
^DD(70.03,"GL",0,20,20)=""
^DD(70.03,"GL",0,21,21)=""
^DD(70.03,"GL",0,22,22)=""
^DD(70.03,"GL",0,23,3.5)=""
^DD(70.03,"GL",0,24,23)=""
^DD(70.03,"GL",0,25,25)=""
^DD(70.03,"GL",0,26,26)=""
^DD(70.03,"GL",0,27,27)=""
^DD(70.03,"GL",0,28,500)=""
^DD(70.03,"GL",0,29,29)=""
^DD(70.03,"GL",0,30,30)=""
^DD(70.03,"GL","AUD",0,250)=""
^DD(70.03,"GL","CM",0,225)=""
^DD(70.03,"GL","CMOD",0,135)=""
^DD(70.03,"GL","COMP",1,16.5)=""
^DD(70.03,"GL","DX",0,13.1)=""
^DD(70.03,"GL","F",0,50)=""
^DD(70.03,"GL","H",0,400)=""
^DD(70.03,"GL","L",0,100)=""
^DD(70.03,"GL","M",0,125)=""
^DD(70.03,"GL","NOPURGE",1,45)=""
^DD(70.03,"GL","NOPURSN",0,46)=""
^DD(70.03,"GL","PURGE",1,40)=""
^DD(70.03,"GL","R",1,9.5)=""
^DD(70.03,"GL","RX",0,200)=""
^DD(70.03,"GL","SRR",0,70)=""
^DD(70.03,"GL","SSR",0,60)=""
^DD(70.03,"GL","T",0,75)=""
^DD(70.03,"GL","TC",0,175)=""
^DD(70.03,"IX",.01)=""
^DD(70.03,"IX",2)=""
^DD(70.03,"IX",3)=""
^DD(70.03,"IX",11)=""
^DD(70.03,"IX",12)=""
^DD(70.03,"IX",13)=""
^DD(70.03,"IX",15)=""
^DD(70.03,"IX",16)=""
^DD(70.03,"IX",27)=""
^DD(70.03,"IX",45)=""
^DD(70.03,"IX",500)=""
^DD(70.03,"RQ",3)=""
^DD(70.03,"RQ",4)=""
^DD(70.03,"RQ",14)=""
^DD(70.03,"SB",70.04,50)=""
^DD(70.03,"SB",70.05,75)=""
^DD(70.03,"SB",70.07,100)=""
^DD(70.03,"SB",70.09,70)=""
^DD(70.03,"SB",70.1,125)=""
^DD(70.03,"SB",70.11,60)=""
^DD(70.03,"SB",70.12,175)=""
^DD(70.03,"SB",70.13,400)=""
^DD(70.03,"SB",70.14,13.1)=""
^DD(70.03,"SB",70.15,200)=""
^DD(70.03,"SB",70.16,250)=""
^DD(70.03,"SB",70.3135,135)=""
^DD(70.03,"SB",70.3225,225)=""
^DD(70.03,"SB",70.346,46)=""
^DD(70.04,0)="FILM SIZE SUB-FIELD^NL^2^2"
^DD(70.04,0,"DT")="2940106"
^DD(70.04,0,"NM","FILM SIZE")=""
^DD(70.04,0,"UP")="70.03"
^DD(70.04,.01,0)="FILM SIZE^M*P78.4'^RA(78.4,^0;1^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.04,.01,.1)="SIZE OF FILM USED FOR EXAM"
^DD(70.04,.01,3)="Enter a film size used or wasted during this exam."
^DD(70.04,.01,10)="SYSTEM GENERATED"
^DD(70.04,.01,12)="Only active film sizes are selectable."
^DD(70.04,.01,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"""
^DD(70.04,.01,21,0)="^^3^3^2941013^^"
^DD(70.04,.01,21,1,0)="This field points to the 'FILM SIZES' file (#78.4) to indicate the "
^DD(70.04,.01,21,2,0)="size of the film used during the Rad/Nuc Med exam.  Users may also enter"
^DD(70.04,.01,21,3,0)="film sizes that have been wasted during the exam."
^DD(70.04,.01,"DT")="2910808"
^DD(70.04,2,0)="AMOUNT(#films or cine ft)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(70.04,2,.1)="AMOUNT OF FILM USED/WASTED FOR EXAM"
^DD(70.04,2,3)="Enter the amount of film, between 0 and 999, used or wasted during this exam."
^DD(70.04,2,10)="SYSTEM GENERATED"
^DD(70.04,2,21,0)="^^6^6^2941013^"
^DD(70.04,2,21,1,0)="This field contains the amount of film (a number between 0 and 999) used"
^DD(70.04,2,21,2,0)="or wasted during the Rad/Nuc Med exam."
^DD(70.04,2,21,3,0)=" "
^DD(70.04,2,21,4,0)="The amount represents either the number of that film size or the"
^DD(70.04,2,21,5,0)="number of cine feet of that film size.  On the 'Film Usage Report',  "
^DD(70.04,2,21,6,0)="these two amounts are distinguished from each other."
^DD(70.04,2,"DT")="2941013"
^DD(70.04,"B","AMOUNT(#films or cine ft)",2)=""
^DD(70.04,"B","FILM SIZE",.01)=""
^DD(70.04,"B","SIZE OF FILM USED FOR EXAM",.01)="1"
^DD(70.04,"GL",0,1,.01)=""
^DD(70.04,"GL",0,2,2)=""
^DD(70.05,0)="EXAM STATUS TIMES SUB-FIELD^NL^3^3"
^DD(70.05,0,"DT")="2940303"
^DD(70.05,0,"NM","EXAM STATUS TIMES")=""
^DD(70.05,0,"UP")="70.03"
^DD(70.05,.01,0)="STATUS CHANGE DATE/TIME^DX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X D SCDTC^RADD1 K:Y<1 X"
^DD(70.05,.01,.1)="THE DATE AND TIME OF THE STATUS CHANGE"
^DD(70.05,.01,3)="This field should contain the date and time the exam status was changed."
^DD(70.05,.01,10)="DEPENDS ON SYSTEM PARAMETERS - SYSTEM GENERATED OR RAD/NUC MED USER"
^DD(70.05,.01,21,0)="^^6^6^2940517^^^^"
^DD(70.05,.01,21,1,0)="This field contains the date and the time that the exam status was changed."
^DD(70.05,.01,21,2,0)=" "
^DD(70.05,.01,21,3,0)="Depending on how the system parameters are set up on site, this field may "
^DD(70.05,.01,21,4,0)="or may not be filled in.  If the system parameter is set up to have this"
^DD(70.05,.01,21,5,0)="field filled in, then the system allows the user to have the option of"
^DD(70.05,.01,21,6,0)="filling in this field or having the field  filled in by the system."
^DD(70.05,.01,"DT")="2940426"
^DD(70.05,2,0)="NEW STATUS^R*P72'X^RA(72,^0;2^S DIC(""S"")=""N RAIMGTY S RAIMGTY=+$P($G(^RADPT(DA(3),""""DT"""",DA(2),0)),U,2) I $P(^RA(72,+Y,0),U,7)=RAIMGTY"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.05,2,.1)="THE NEW EXAM STATUS"
^DD(70.05,2,3)="Select the appropriate Examination Status."
^DD(70.05,2,10)="SYSTEM GENERATED"
^DD(70.05,2,12)="Select Exam Statuses with the same Imaging Type."
^DD(70.05,2,12.1)="S DIC(""S"")=""N RAIMGTY S RAIMGTY=+$P($G(^RADPT(DA(3),""""DT"""",DA(2),0)),U,2) I $P(^RA(72,+Y,0),U,7)=RAIMGTY"""
^DD(70.05,2,21,0)="^^2^2^2941013^^^^"
^DD(70.05,2,21,1,0)="This field points to the 'EXAMINATION STATUS' file (#72) to indicate"
^DD(70.05,2,21,2,0)="the new exam status."
^DD(70.05,2,"DT")="2940428"
^DD(70.05,3,0)="COMPUTER USER^RP200'^VA(200,^0;3^Q"
^DD(70.05,3,.1)="USER DOING PROCESSING DURING STATUS CHANGE"
^DD(70.05,3,3)="This field contains the name of the person doing the processing at the time of the exam status change."
^DD(70.05,3,10)="SYSTEM GENERATED"
^DD(70.05,3,21,0)="^^3^3^2940517^^^^"
^DD(70.05,3,21,1,0)="This field points to the 'NEW PERSON file (#200) to indicate the person"
^DD(70.05,3,21,2,0)="doing the processing at the time the exam status was changed."
^DD(70.05,3,21,3,0)="This field is filled in by the system and is not seen by the user."
^DD(70.05,3,"DT")="2900302"
^DD(70.05,"B","COMPUTER USER",3)=""
^DD(70.05,"B","NEW STATUS",2)=""
^DD(70.05,"B","STATUS CHANGE DATE/TIME",.01)=""
^DD(70.05,"B","THE NEW EXAM STATUS",2)="1"
^DD(70.05,"GL",0,1,.01)=""
^DD(70.05,"GL",0,2,2)=""
^DD(70.05,"GL",0,3,3)=""
^DD(70.05,"RQ",2)=""
^DD(70.05,"RQ",3)=""
^DD(70.06,0)="OUTSIDE FILMS REGISTRY SUB-FIELD^NL^100^8"
^DD(70.06,0,"ID",20)="W:$D(^(""1"")) ""   "",$P(^(""1""),U,1)"
^DD(70.06,0,"NM","OUTSIDE FILMS REGISTRY")=""
^DD(70.06,0,"UP")="70"
^DD(70.06,.01,0)="OUTSIDE FILMS REGISTER DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(70.06,.01,.1)="THE DATE THE OUTSIDE FILMS WERE REGISTERED"
^DD(70.06,.01,3)="Enter the date this patient's films were received from the outside source and registered."
^DD(70.06,.01,10)="FILE ROOM CLERK"
^DD(70.06,.01,21,0)="^^2^2^2940518^^^^"
^DD(70.06,.01,21,1,0)="This field contains the date this patient's films were received from"
^DD(70.06,.01,21,2,0)="the outside source and registered."
^DD(70.06,.01,"DT")="2840828"
^DD(70.06,2,0)="NEEDED BACK DATE^DX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$D(^RADPT(DA(1),""O"",DA,0)),X<+^(0) W !?3,""The date the films are needed back can not be prior to the outside films register date!"" K X"
^DD(70.06,2,.1)="THE DATE THE OUTSIDE FILMS ARE NEEDED BACK"
^DD(70.06,2,3)="Enter the date the outside source wants this patient's films returned or the date they are sent back."
^DD(70.06,2,10)="FILE ROOM CLERK"
^DD(70.06,2,21,0)="^^2^2^2940518^^^^"
^DD(70.06,2,21,1,0)="This field contains the requested date that the outside source wants"
^DD(70.06,2,21,2,0)="this patient's films back on or the date the films are to be sent back."
^DD(70.06,2,"DT")="2890112"
^DD(70.06,3,0)="RETURNED DATE^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$D(^RADPT(DA(1),""O"",DA,0)),X<+^(0) W !?3,""The return date can not be prior to the outside films register date!"" K X"
^DD(70.06,3,.1)="THE DATE ACTUALLY RETURNED"
^DD(70.06,3,3)="Enter the date this patient's films were returned to the outside source."
^DD(70.06,3,10)="FILE ROOM CLERK"
^DD(70.06,3,21,0)="^^2^2^2940518^^^^"
^DD(70.06,3,21,1,0)="This field contains the date that this patient's outside films were"
^DD(70.06,3,21,2,0)="actually returned to the outside source."
^DD(70.06,3,"DT")="2890112"
^DD(70.06,4,0)="SOURCE OF FILMS^F^^0;4^K:$L(X)>80!($L(X)<3) X"
^DD(70.06,4,.1)="THE OUTSIDE SOURCE OF THESE FILMS"
^DD(70.06,4,3)="Enter a name, between 3 and 80 characters in length, of the source of this patient's outside films. (ie. General Hospital)"
^DD(70.06,4,10)="FILE ROOM CLERK"
^DD(70.06,4,21,0)="^^2^2^2940518^^^^"
^DD(70.06,4,21,1,0)="This field contains the name (3-80 characters) of the source of this "
^DD(70.06,4,21,2,0)="patient's outside films. (ie. General Hospital)"
^DD(70.06,4,"DT")="2840828"
^DD(70.06,5,0)="ASK FOR 'OK' BEFORE RETURNING?^RS^Y:YES;N:NO;^0;5^Q"
^DD(70.06,5,.1)="ASK FOR 'OK' BEFORE RETURNING OUTSIDE FILMS?"
^DD(70.06,5,3)="Enter 'Y' for YES if these films require approval by a supervisor before returning them to their outside source. Enter 'N' for NO if they do not."
^DD(70.06,5,10)="SUPERVISOR"
^DD(70.06,5,21,0)="^^8^8^2940518^^^^"
^DD(70.06,5,21,1,0)="This field contains a value to indicate if these outside films require"
^DD(70.06,5,21,2,0)="the approval of the supervisor before returning to their source since"
^DD(70.06,5,21,3,0)="some films should be kept on file.  Available values are: 'Y' for YES and"
^DD(70.06,5,21,4,0)="'N' for NO.  If the value is YES, then a flag is set to designate 'OK'"
^DD(70.06,5,21,5,0)="needed before return."
^DD(70.06,5,21,6,0)=" "
^DD(70.06,5,21,7,0)="The activity log can be used to determine who sent the films back.  It can"
^DD(70.06,5,21,8,0)="be displayed using the 'Inquire' option of File Manager."
^DD(70.06,5,"DT")="2840830"
^DD(70.06,6,0)="HAS RETURN BEEN OK'ed?^S^Y:YES;N:NO;^0;6^Q"
^DD(70.06,6,.1)="HAS RETURN OF OUTSIDE FILMS BEEN OK'ed?"
^DD(70.06,6,3)="Enter 'Y' for YES or 'N' for NO to indicate whether or not these films have been approved for return by a supervisor to the outside source."
^DD(70.06,6,10)="FILE ROOM CLERK"
^DD(70.06,6,21,0)="^^4^4^2940518^^^^"
^DD(70.06,6,21,1,0)="This field is used for outside films which are designated as requiring the"
^DD(70.06,6,21,2,0)="supervisor's approval before return to the outside source.  It contains a"
^DD(70.06,6,21,3,0)="'Y' for YES or 'N' for NO to indicate if these outside films have been"
^DD(70.06,6,21,4,0)="approved for return yet."
^DD(70.06,6,"DT")="2840830"
^DD(70.06,20,0)="REMARKS^F^^1;1^K:$L(X)>240!($L(X)<2) X"
^DD(70.06,20,.1)="REMARKS ABOUT THE OUTSIDE FILMS"
^DD(70.06,20,3)="Enter a brief comment, between 2 and 240 characters in length, to identify the type of outside film. (ie. Chest Films)"
^DD(70.06,20,10)="FILE ROOM CLERK"
^DD(70.06,20,21,0)="^^3^3^2940518^^^^"
^DD(70.06,20,21,1,0)="This field contains a brief comment (2-240 characters) about the outside"
^DD(70.06,20,21,2,0)="films.  It is used mainly to identify what type the outside film is. "
^DD(70.06,20,21,3,0)="(ie. Chest Films)"
^DD(70.06,20,"DT")="2840830"
^DD(70.06,100,0)="ACTIVITY LOG^70.08DA^^L;0"
^DD(70.06,100,.1)="ACTIVITY LOG SUB-FIELD"
^DD(70.06,100,21,0)="^^5^5^2940518^^^^"
^DD(70.06,100,21,1,0)="This is a multiple field containing a log of actions that have been taken "
^DD(70.06,100,21,2,0)="on this outside film record. "
^DD(70.06,100,21,3,0)=" "
^DD(70.06,100,21,4,0)="The activity log can be used to resolve any discrepancies.  It can be "
^DD(70.06,100,21,5,0)="displayed using the 'Inquire' option of File Manager."
^DD(70.06,"B","ACTIVITY LOG",100)=""
^DD(70.06,"B","ACTIVITY LOG SUB-FIELD",100)="1"
^DD(70.06,"B","ASK FOR 'OK' BEFORE RETURNING?",5)=""
^DD(70.06,"B","HAS RETURN BEEN OK'ed?",6)=""
^DD(70.06,"B","NEEDED BACK DATE",2)=""
^DD(70.06,"B","OUTSIDE FILMS REGISTER DATE",.01)=""
^DD(70.06,"B","REMARKS",20)=""
^DD(70.06,"B","RETURNED DATE",3)=""
^DD(70.06,"B","SOURCE OF FILMS",4)=""
^DD(70.06,"B","THE DATE ACTUALLY RETURNED",3)="1"
^DD(70.06,"GL",0,1,.01)=""
^DD(70.06,"GL",0,2,2)=""
^DD(70.06,"GL",0,3,3)=""
^DD(70.06,"GL",0,4,4)=""
^DD(70.06,"GL",0,5,5)=""
^DD(70.06,"GL",0,6,6)=""
^DD(70.06,"GL",1,1,20)=""
^DD(70.06,"GL","L",0,100)=""
^DD(70.06,"RQ",5)=""
^DD(70.06,"SB",70.08,100)=""
^DD(70.07,0)="ACTIVITY LOG SUB-FIELD^NL^4^4"
^DD(70.07,0,"NM","ACTIVITY LOG")=""
^DD(70.07,0,"UP")="70.03"
^DD(70.07,.01,0)="LOG DATE^RDI^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(70.07,.01,.1)="DATE OF ACTION ON EXAM"
^DD(70.07,.01,3)="This field contains a system generated date/time that an action was taken on this record."
^DD(70.07,.01,10)="SYSTEM GENERATED"
^DD(70.07,.01,21,0)="^^2^2^2940517^^^^"
^DD(70.07,.01,21,1,0)="This field contains the date and time that the action was taken on this "
^DD(70.07,.01,21,2,0)="exam record. This field is filled in by the system."
^DD(70.07,.01,"DT")="2841130"
^DD(70.07,2,0)="TYPE OF ACTION^RSI^E:EXAM ENTRY;C:EDIT BY CASE NO.;P:EDIT BY PATIENT;D:DIAGNOSIS ENTRY BY CASE NO.;S:EXAM STATUS TRACKING;X:CANCELLED;O:COMPLETE STATUS OVERRIDE;U:UPDATE STATUS;N:NO PURGING SPECIFIED;^0;2^Q"
^DD(70.07,2,.1)="THE TYPE OF ACTION ON EXAM"
^DD(70.07,2,3)="This field contains a system generated code for the activity associated with this exam."
^DD(70.07,2,10)="SYSTEM GENERATED"
^DD(70.07,2,21,0)="^^2^2^2941013^"
^DD(70.07,2,21,1,0)="This field contains the type of action that was taken on this exam record "
^DD(70.07,2,21,2,0)="during processing of this exam."
^DD(70.07,2,"DT")="2910213"
^DD(70.07,3,0)="COMPUTER USER^RP200'I^VA(200,^0;3^Q"
^DD(70.07,3,.1)="THE PERSON DOING EXAM PROCESSING"
^DD(70.07,3,3)="This field contains the name of the person doing the exam processing at the time the action was taken."
^DD(70.07,3,10)="SYSTEM GENERATED"
^DD(70.07,3,21,0)="^^3^3^2940517^^^^"
^DD(70.07,3,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate "
^DD(70.07,3,21,2,0)="the person doing the exam processing at the time the action was taken "
^DD(70.07,3,21,3,0)="on this exam record."
^DD(70.07,3,"DT")="2900302"
^DD(70.07,4,0)="TECHNOLOGIST COMMENT^F^^TCOM;E1,245^K:$L(X)>245!($L(X)<3)!'(X?1A.ANP) X"
^DD(70.07,4,3)="Answer must be 3-245 characters in length."
^DD(70.07,4,21,0)="^^3^3^3000825^"
^DD(70.07,4,21,1,0)="This field tracks the comments of the Technologist as the exam"
^DD(70.07,4,21,2,0)="is edited.  Information, pertinent to the editing of the exam, "
^DD(70.07,4,21,3,0)="should be entered here."
^DD(70.07,4,"DT")="3000602"
^DD(70.07,"B","COMPUTER USER",3)=""
^DD(70.07,"B","DATE OF ACTION ON EXAM",.01)="1"
^DD(70.07,"B","LOG DATE",.01)=""
^DD(70.07,"B","TECHNOLOGIST COMMENT",4)=""
^DD(70.07,"B","THE TYPE OF ACTION ON EXAM",2)="1"
^DD(70.07,"B","TYPE OF ACTION",2)=""
^DD(70.07,"GL",0,1,.01)=""
^DD(70.07,"GL",0,2,2)=""
^DD(70.07,"GL",0,3,3)=""
^DD(70.07,"GL","TCOM","E1,245",4)=""
^DD(70.07,"RQ",.01)=""
^DD(70.07,"RQ",2)=""
^DD(70.07,"RQ",3)=""
^DD(70.08,0)="ACTIVITY LOG SUB-FIELD^NL^3^3"
^DD(70.08,0,"NM","ACTIVITY LOG")=""
^DD(70.08,0,"UP")="70.06"
^DD(70.08,.01,0)="LOG DATE^RDI^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(70.08,.01,.1)="DATE OF ACTION ON THIS OUTSIDE FILM RECORD"
^DD(70.08,.01,3)="Enter a date and time that action was taken on this outside film record."
^DD(70.08,.01,10)="SYSTEM GENERATED"
^DD(70.08,.01,21,0)="^^2^2^2940518^^^^"
^DD(70.08,.01,21,1,0)="This field contains the date and the time that the action was taken on"
^DD(70.08,.01,21,2,0)="this outside film record."
^DD(70.08,.01,"DT")="2841114"
^DD(70.08,2,0)="TYPE OF ACTION^RSI^A:ADD FILMS TO REGISTRY;S:INDICATED FILM NEEDS SUPERVISOR'S OK;E:EDIT REGISTRY;^0;2^Q"
^DD(70.08,2,.1)="THE TYPE OF ACTION ON THE OUTSIDE FILM"
^DD(70.08,2,3)="Enter the type of action that was taken on this outside film during processing."
^DD(70.08,2,10)="SYSTEM GENERATED"
^DD(70.08,2,21,0)="^^4^4^2940518^^^^"
^DD(70.08,2,21,1,0)="This field contains the type of action that was performed on this outside"
^DD(70.08,2,21,2,0)="film during processing.  Available types include:  'A' for ADD FILMS TO"
^DD(70.08,2,21,3,0)="REGISTRY, 'S' for INDICATED FILM NEEDS SUPERVISOR'S OK, and 'E' for EDIT"
^DD(70.08,2,21,4,0)="REGISTRY."
^DD(70.08,2,"DT")="2841114"
^DD(70.08,3,0)="COMPUTER USER^RP200'I^VA(200,^0;3^Q"
^DD(70.08,3,.1)="THE PERSON DOING THE OUTSIDE FILM REGISTERING"
^DD(70.08,3,3)="This field contains the name of the computer user doing the processing at the time action was performed on this outside film."
^DD(70.08,3,10)="SYSTEM GENERATED"
^DD(70.08,3,21,0)="^^3^3^2940518^^^^"
^DD(70.08,3,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate "
^DD(70.08,3,21,2,0)="the person doing the processing at the time the action was performed "
^DD(70.08,3,21,3,0)="on this outside film."
^DD(70.08,3,"DT")="2900302"
^DD(70.08,"B","COMPUTER USER",3)=""
^DD(70.08,"B","LOG DATE",.01)=""
^DD(70.08,"B","TYPE OF ACTION",2)=""
^DD(70.08,"GL",0,1,.01)=""
^DD(70.08,"GL",0,2,2)=""
^DD(70.08,"GL",0,3,3)=""
^DD(70.08,"RQ",.01)=""
^DD(70.08,"RQ",2)=""
^DD(70.08,"RQ",3)=""
^DD(70.09,0)="SECONDARY INTERPRET'G RESIDENT SUB-FIELD^NL^.01^1"
^DD(70.09,0,"IX","B",70.09,.01)=""
^DD(70.09,0,"NM","SECONDARY INTERPRET'G RESIDENT")=""
^DD(70.09,0,"UP")="70.03"
^DD(70.09,.01,0)="SECONDARY INTERPRET'G RESIDENT^M*P200'X^VA(200,^0;1^S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""R"""",+Y,""""SEC""""),$$S^RAUTL8"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.09,.01,.1)="SECONDARY INTERPRETING RESIDENT"
^DD(70.09,.01,1,0)="^.1"
^DD(70.09,.01,1,1,0)="70^ARES^MUMPS"
^DD(70.09,.01,1,1,1)="S RADA=$P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0),""^"",17) I RADA K RAKILL S RASET="""",RAXREF=""ARES"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RASET,RAXREF,RARAD"
^DD(70.09,.01,1,1,2)="S RADA=$P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0),""^"",17) I RADA K RASET S RAKILL="""",RAXREF=""ARES"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RAKILL,RAXREF,RARAD"
^DD(70.09,.01,1,1,"%D",0)="^^3^3^2940606^"
^DD(70.09,.01,1,1,"%D",1,0)="This cross reference sets the 'ARES' cross reference used during the"
^DD(70.09,.01,1,1,"%D",2,0)="on-line verification process to determine the reports that a specific"
^DD(70.09,.01,1,1,"%D",3,0)="interpreting resident needs to verify."
^DD(70.09,.01,1,1,"DT")="2940307"
^DD(70.09,.01,1,2,0)="70.09^B"
^DD(70.09,.01,1,2,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""SRR"",""B"",$E(X,1,30),DA)="""""
^DD(70.09,.01,1,2,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""SRR"",""B"",$E(X,1,30),DA)"
^DD(70.09,.01,1,2,3)="DO NOT DELETE"
^DD(70.09,.01,1,2,"%D",0)="^^1^1^2950111^"
^DD(70.09,.01,1,2,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(70.09,.01,1,2,"DT")="2940308"
^DD(70.09,.01,3)="Enter name of resident who is NOT the Primary Interpreting Resident and NOT a Secondary Interpreting Resident whose name has already been entered."
^DD(70.09,.01,12)="Only active interpreting resident physicians may be selected"
^DD(70.09,.01,12.1)="S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""R"""",+Y,""""SEC""""),$$S^RAUTL8"""
^DD(70.09,.01,21,0)="^^6^6^2971114^^"
^DD(70.09,.01,21,1,0)="This field points to the ""NEW PERSON"" file (#200) to indicate the names"
^DD(70.09,.01,21,2,0)="of other Residents in addition to the Primary Interpreting Resident"
^DD(70.09,.01,21,3,0)="who interpreted the images of this exam.  Secondary Interpreting Residents"
^DD(70.09,.01,21,4,0)="cannot be the same as the Primary Interpreting Resident, must have"
^DD(70.09,.01,21,5,0)="resident classification, and must have access to at least one imaging"
^DD(70.09,.01,21,6,0)="location with an imaging type matching that of the exam."
^DD(70.09,.01,"DT")="2970428"
^DD(70.09,"B","SECONDARY INTERPRET'G RESIDENT",.01)=""
^DD(70.09,"GL",0,1,.01)=""
^DD(70.09,"IX",.01)=""
^DD(70.1,0)="PROCEDURE MODIFIERS SUB-FIELD^NL^.01^1"
^DD(70.1,0,"DT")="2961230"
^DD(70.1,0,"IX","B",70.1,.01)=""
^DD(70.1,0,"NM","PROCEDURE MODIFIERS")=""
^DD(70.1,0,"UP")="70.03"
^DD(70.1,.01,0)="PROCEDURE MODIFIERS^M*P71.2'X^RAMIS(71.2,^0;1^S DIC(""S"")=""X ^DD(70.1,.01,9.2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.1,.01,.1)="PROCEDURE MODIFIERS OF THIS EXAM"
^DD(70.1,.01,1,0)="^.1"
^DD(70.1,.01,1,1,0)="70.1^B"
^DD(70.1,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(70.1,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(70.1,.01,1,1,3)="DO NOT DELETE"
^DD(70.1,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(70.1,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(70.1,.01,3)="Enter any appropriate procedure modifiers for this exam."
^DD(70.1,.01,9.2)="N RASERIES I $D(^RAMIS(71.2,""AB"",(+$$ITYPE^RASITE(+$P($G(^RADPT(D0,""DT"",D1,""P"",D2,0)),U,2))),+Y)),$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""":1,1:0)"
^DD(70.1,.01,10)=" RECEPTIONIST"
^DD(70.1,.01,12)="Only procedure modifiers with the appropriate imaging type can be selected.  In addition, if the procedure is 'SERIES', it must not have AMIS CREDIT INDICATOR"
^DD(70.1,.01,12.1)="S DIC(""S"")=""X ^DD(70.1,.01,9.2)"""
^DD(70.1,.01,21,0)="^^3^3^2990805^^^^"
^DD(70.1,.01,21,1,0)="This field points to the 'PROCEDURE MODIFIERS' file (#71.2) to give"
^DD(70.1,.01,21,2,0)="details and further describe this exam.  Modifier examples include,"
^DD(70.1,.01,21,3,0)="'LEFT', 'RIGHT', 'BILATERAL', 'OPERATING ROOM',and 'PORTABLE' exams."
^DD(70.1,.01,"DT")="2990805"
^DD(70.1,"B","PROCEDURE MODIFIERS",.01)=""
^DD(70.1,"GL",0,1,.01)=""
^DD(70.1,"IX",.01)=""
^DD(70.11,0)="SECONDARY INTERPRETING STAFF SUB-FIELD^NL^.01^1"
^DD(70.11,0,"IX","B",70.11,.01)=""
^DD(70.11,0,"NM","SECONDARY INTERPRETING STAFF")=""
^DD(70.11,0,"UP")="70.03"
^DD(70.11,.01,0)="SECONDARY INTERPRETING STAFF^M*P200'X^VA(200,^0;1^S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""S"""",+Y,""""SEC""""),$$SSR^RAUTL8"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.11,.01,1,0)="^.1"
^DD(70.11,.01,1,1,0)="70.11^B"
^DD(70.11,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""SSR"",""B"",$E(X,1,30),DA)="""""
^DD(70.11,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""SSR"",""B"",$E(X,1,30),DA)"
^DD(70.11,.01,1,1,3)="DO NOT DELETE"
^DD(70.11,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(70.11,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(70.11,.01,1,2,0)="70^ASTF^MUMPS"
^DD(70.11,.01,1,2,1)="S RADA=$P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0),""^"",17) I RADA K RAKILL S RASET="""",RAXREF=""ASTF"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RASET,RAXREF,RARAD"
^DD(70.11,.01,1,2,2)="S RADA=$P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),0),""^"",17) I RADA K RASET S RAKILL="""",RAXREF=""ASTF"",RARAD=X D:$S('$D(^RARPT(RADA,0)):0,$P(^(0),U,5)=""V"":0,1:1) XREF1^RAUTL2 K RAKILL,RAXREF,RARAD"
^DD(70.11,.01,1,2,"%D",0)="^^4^4^2940606^"
^DD(70.11,.01,1,2,"%D",1,0)="This cross reference sets the 'ASTF' cross reference in the Rad/Nuc Med"
^DD(70.11,.01,1,2,"%D",2,0)="Reports file (#74). The 'ASTF' cross reference is used during the on-line"
^DD(70.11,.01,1,2,"%D",3,0)="verification process to determine the reports that a specific interpreting"
^DD(70.11,.01,1,2,"%D",4,0)="staff needs to verify."
^DD(70.11,.01,1,2,"DT")="2940224"
^DD(70.11,.01,3)="Enter name of staff who is NOT the Primary Interpreting Staff and NOT a Secondary Interpreting Staff whose name has already been entered."
^DD(70.11,.01,12)="Only active interpreting staff physicians may be selected"
^DD(70.11,.01,12.1)="S DIC(""S"")=""I $$SCRN^RAUTL8(.DA,""""S"""",+Y,""""SEC""""),$$SSR^RAUTL8"""
^DD(70.11,.01,21,0)="^^5^5^2971114^^^^"
^DD(70.11,.01,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the names"
^DD(70.11,.01,21,2,0)="of other interpreting Staff in addition to the Primary Interpreting Staff"
^DD(70.11,.01,21,3,0)="who interpreted images of this exam.  Secondary Interpreting Staff must be"
^DD(70.11,.01,21,4,0)="classified as 'staff' and must have access to at least one imaging"
^DD(70.11,.01,21,5,0)="location with an imaging type matching that of the exam."
^DD(70.11,.01,"DT")="2970428"
^DD(70.11,"B","SECONDARY INTERPRETING STAFF",.01)=""
^DD(70.11,"GL",0,1,.01)=""
^DD(70.11,"IX",.01)=""
^DD(70.12,0)="TECHNOLOGIST SUB-FIELD^NL^.01^1"
^DD(70.12,0,"NM","TECHNOLOGIST")=""
^DD(70.12,0,"UP")="70.03"
^DD(70.12,.01,0)="TECHNOLOGIST^M*P200'X^VA(200,^0;1^S DIC(""S"")=""I $D(^VA(200,+Y,""""RAC"""")),$S('$D(^VA(200,+Y,""""RA"""")):1,'$P(^(""""RA""""),U,3):1,DT'>$P(^(""""RA""""),U,3):1,1:0),$D(^VA(200,""""ARC"""",""""T"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.12,.01,.1)="TECHNOLOGISTS PERFORMING THIS EXAM"
^DD(70.12,.01,3)="Enter the name of the technologist who performed this exam."
^DD(70.12,.01,10)="TECHNOLOGIST"
^DD(70.12,.01,12)="Only active rad/nuc med users classified as technologists may be selected."
^DD(70.12,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,+Y,""""RAC"""")),$S('$D(^VA(200,+Y,""""RA"""")):1,'$P(^(""""RA""""),U,3):1,DT'>$P(^(""""RA""""),U,3):1,1:0),$D(^VA(200,""""ARC"""",""""T"""",+Y))"""
^DD(70.12,.01,21,0)="^^2^2^2940608^^^^"
^DD(70.12,.01,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the "
^DD(70.12,.01,21,2,0)="technologists who performed this exam."
^DD(70.12,.01,"DT")="2940307"
^DD(70.12,"B","TECHNOLOGIST",.01)=""
^DD(70.12,"GL",0,1,.01)=""
^DD(70.13,0)="CLINICAL HISTORY FOR EXAM SUB-FIELD^^.01^1"
^DD(70.13,0,"NM","CLINICAL HISTORY FOR EXAM")=""
^DD(70.13,0,"UP")="70.03"
^DD(70.13,.01,0)="CLINICAL HISTORY FOR EXAM^W^^0;1^Q"
^DD(70.13,.01,.1)="CLINICAL HISTORY PERTINENT TO PROCEDURE"
^DD(70.13,.01,3)="This field contains the patient's clinical history pertinent to this procedure and any instructions to the physician interpreting the images for the exam."
^DD(70.13,.01,21,0)="^^4^4^2950112^"
^DD(70.13,.01,21,1,0)="This field contains the patient's clinical history pertinent to the"
^DD(70.13,.01,21,2,0)="procedure as well as instructions to the physician interpreting the images"
^DD(70.13,.01,21,3,0)="for the exam.  It should explain why the procedure is being requested; for"
^DD(70.13,.01,21,4,0)="example, to confirm or rule out a disease."
^DD(70.13,.01,23,0)="^^1^1^2950112^^^^"
^DD(70.13,.01,23,1,0)=" "
^DD(70.13,.01,"DT")="2950112"
^DD(70.13,"B","CLINICAL HISTORY FOR EXAM",.01)=""
^DD(70.13,"GL",0,1,.01)=""
^DD(70.14,0)="SECONDARY DIAGNOSTIC CODE SUB-FIELD^NL^1^2"
^DD(70.14,0,"DT")="2940622"
^DD(70.14,0,"IX","AD",70.14,.01)=""
^DD(70.14,0,"IX","B",70.14,.01)=""
^DD(70.14,0,"NM","SECONDARY DIAGNOSTIC CODE")=""
^DD(70.14,0,"UP")="70.03"
^DD(70.14,.01,0)="SECONDARY DIAGNOSTIC CODE^M*P78.3'X^RA(78.3,^0;1^S DIC(""S"")=""I $$SDC^RADD1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.14,.01,.1)="SECONDARY DIAGNOSTIC CODE OF THIS RAD/NUC MED EXAM"
^DD(70.14,.01,1,0)="^.1"
^DD(70.14,.01,1,1,0)="70.14^B"
^DD(70.14,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""DX"",""B"",$E(X,1,30),DA)="""""
^DD(70.14,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""DX"",""B"",$E(X,1,30),DA)"
^DD(70.14,.01,1,1,3)="DO NOT DELETE"
^DD(70.14,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(70.14,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(70.14,.01,1,2,0)="70.14^AD^MUMPS"
^DD(70.14,.01,1,2,1)="I $D(^RA(78.3,X,0)),'$P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""DX"",DA,0),U,2),$P(^RA(78.3,X,0),U,3)=""Y"" S ^RADPT(""AD"",X,DA(3),DA(2),DA(1))="""""
^DD(70.14,.01,1,2,2)="S:X'=$P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""DX"",DA,0),U,1) $P(^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""DX"",DA,0),U,2)="""" K ^RADPT(""AD"",X,DA(3),DA(2),DA(1))"
^DD(70.14,.01,1,2,3)="Used to produce the Abnormal Exam Report"
^DD(70.14,.01,1,2,"%D",0)="^.101^4^4^3010119^^^"
^DD(70.14,.01,1,2,"%D",1,0)="This Mumps cross reference updates the 'AD' cross reference when the PRINT"
^DD(70.14,.01,1,2,"%D",2,0)="ON EXCEPTIONS LIST field (#3) of the DIAGNOSTIC CODES File (78.3) for that"
^DD(70.14,.01,1,2,"%D",3,0)="diagnostic code entry is set to 'Y'es.  The 'AD' cross reference is used"
^DD(70.14,.01,1,2,"%D",4,0)="to generate the ABNORMAL EXAM REPORT."
^DD(70.14,.01,1,2,"DT")="3010119"
^DD(70.14,.01,3)="Enter any appropriate secondary diagnostic codes for this exam."
^DD(70.14,.01,12)="Shows Diagnostic codes that have not been entered in the Primary Diagnostic Code field."
^DD(70.14,.01,12.1)="S DIC(""S"")=""I $$SDC^RADD1"""
^DD(70.14,.01,21,0)="^^6^6^2980109^^^"
^DD(70.14,.01,21,1,0)="This field is used at sites that decide that diagnostic codes will be"
^DD(70.14,.01,21,2,0)="asked or required for exams, as designated by the parameters on the"
^DD(70.14,.01,21,3,0)="Examination Status file.  If the primary diagnostic code is entered, the"
^DD(70.14,.01,21,4,0)="system will also prompt for secondary diagnostic codes.  It points to a"
^DD(70.14,.01,21,5,0)="short diagnostic code in the 'DIAGNOSTIC CODES' file (#78.3) to indicate"
^DD(70.14,.01,21,6,0)="additional diagnostic codes associated with this exam."
^DD(70.14,.01,"DT")="3010119"
^DD(70.14,1,0)="SECONDARY DX PRINT DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(70.14,1,.1)="SECONDARY DX PRINT DATE OF ABNORMAL EXAM REPORT"
^DD(70.14,1,3)="This field is filled by the system when an abnormal report is printed."
^DD(70.14,1,21,0)="^^11^11^2980109^^^^"
^DD(70.14,1,21,1,0)="If the secondary diagnostic code associated with this exam requires"
^DD(70.14,1,21,2,0)="immediate notification of the physician, this field is filled in with"
^DD(70.14,1,21,3,0)="the date that this exam appeared on the 'Abnormal Exam Report'. The"
^DD(70.14,1,21,4,0)="report prints a warning indicating abnormal results of the Rad/Nuc Med"
^DD(70.14,1,21,5,0)="exam.  The report is used by Radiology/Nuclear Medicine to help make sure"
^DD(70.14,1,21,6,0)="that the physician is notified of the results of the abnormal exam."
^DD(70.14,1,21,7,0)=" "
^DD(70.14,1,21,8,0)="The date is filled in on this field when this report is printed so the"
^DD(70.14,1,21,9,0)="next time the report is printed this exam will not appear again."
^DD(70.14,1,21,10,0)=" "
^DD(70.14,1,21,11,0)="This field is filled in by the system and is not seen by the user."
^DD(70.14,1,"DT")="2940510"
^DD(70.14,"B","SECONDARY DIAGNOSTIC CODE",.01)=""
^DD(70.14,"B","SECONDARY DX PRINT DATE",1)=""
^DD(70.14,"GL",0,1,.01)=""
^DD(70.14,"GL",0,2,1)=""
^DD(70.14,"IX",.01)=""
^DD(70.15,0)="MEDICATIONS SUB-FIELD^^4^4"
^DD(70.15,0,"DT")="2960826"
^DD(70.15,0,"IX","B",70.15,.01)=""
^DD(70.15,0,"NM","MEDICATIONS")=""
^DD(70.15,0,"UP")="70.03"
^DD(70.15,.01,0)="MED ADMINISTERED^M*P50'X^PSDRUG(^0;1^S DIC(""S"")=""I $$DCHK^RADD1(""""P"""",9999999.9999-DA(1),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.15,.01,1,0)="^.1"
^DD(70.15,.01,1,1,0)="70.15^B"
^DD(70.15,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""RX"",""B"",$E(X,1,30),DA)="""""
^DD(70.15,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""RX"",""B"",$E(X,1,30),DA)"
^DD(70.15,.01,3)="Enter medication administered during this exam."
^DD(70.15,.01,10)="Entered by system during Registration if default values exist in file 71; edited during case edit"
^DD(70.15,.01,11,0)="^.2LAP"
^DD(70.15,.01,12)="Only pharmaceuticals that are active on this exam date are allowed."
^DD(70.15,.01,12.1)="S DIC(""S"")=""I $$DCHK^RADD1(""""P"""",9999999.9999-DA(1),+Y)"""
^DD(70.15,.01,21,0)="^^4^4^2961220^^^"
^DD(70.15,.01,21,1,0)="If any medications were administered to the patient during this exam, they"
^DD(70.15,.01,21,2,0)="may be recorded here.  If medications are associated with a procedure"
^DD(70.15,.01,21,3,0)="during system set-up, the system will enter them automatically when the"
^DD(70.15,.01,21,4,0)="procedure is registered."
^DD(70.15,.01,"DT")="2961212"
^DD(70.15,2,0)="MED DOSE^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(70.15,2,3)="Answer must be 3-30 characters in length, and must include dosage and unit of measure.  Format:  999.99 ml"
^DD(70.15,2,10)="Entered by system if default values exist in file 71; edited during case edit."
^DD(70.15,2,21,0)="^^2^2^2960823^"
^DD(70.15,2,21,1,0)="Enter the dose and unit of measure for this pharmaceutical.  Example:  2"
^DD(70.15,2,21,2,0)="capsules."
^DD(70.15,2,"DT")="2961212"
^DD(70.15,3,0)="DATE/TIME MED ADMINISTERED^DX^^0;3^S %DT=""ETXR"",%DT(0)=$$FMADD^XLFDT((9999999.9999-DA(2)),-7) D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(70.15,3,3)="Enter the date/time this dose was administered (must not precede the exam date/time by more than seven days)."
^DD(70.15,3,10)="Entered during case edit or status tracking."
^DD(70.15,3,21,0)="^^1^1^2961220^^^"
^DD(70.15,3,21,1,0)="The date and time this dosage was administered should be recorded here."
^DD(70.15,3,"DT")="2961220"
^DD(70.15,4,0)="PERSON WHO ADMINISTERED MED^*P200'X^VA(200,^0;4^S DIC(""S"")=""I $$MEDOSE^RADD2(+Y,9999999.9999-DA(2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.15,4,3)="Enter the name of the clinician who administered this medication."
^DD(70.15,4,10)="Entered during case edit or status tracking."
^DD(70.15,4,12)="The individual must be authorized to write med orders."
^DD(70.15,4,12.1)="S DIC(""S"")=""I $$MEDOSE^RADD2(+Y,9999999.9999-DA(2))"""
^DD(70.15,4,21,0)="^^2^2^2970108^^"
^DD(70.15,4,21,1,0)="The name of the radiology/nuclear medicine clinician who administered this"
^DD(70.15,4,21,2,0)="medication to the patient should be entered here."
^DD(70.15,4,"DT")="2970108"
^DD(70.15,"B","DATE/TIME MED ADMINISTERED",3)=""
^DD(70.15,"B","MED ADMINISTERED",.01)=""
^DD(70.15,"B","MED DOSE",2)=""
^DD(70.15,"B","PERSON WHO ADMINISTERED MED",4)=""
^DD(70.15,"GL",0,1,.01)=""
^DD(70.15,"GL",0,2,2)=""
^DD(70.15,"GL",0,3,3)=""
^DD(70.15,"GL",0,4,4)=""
^DD(70.15,"IX",.01)=""
^DD(70.16,0)="CONTRAST MEDIA ACTIVITY LOG SUB-FIELD^^3^3"
^DD(70.16,0,"DT")="3031231"
^DD(70.16,0,"IX","B",70.16,.01)=""
^DD(70.16,0,"NM","CONTRAST MEDIA ACTIVITY LOG")=""
^DD(70.16,0,"UP")="70.03"
^DD(70.16,.01,0)="DATE/TIME EDITED^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(70.16,.01,1,0)="^.1"
^DD(70.16,.01,1,1,0)="70.16^B"
^DD(70.16,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""AUD"",""B"",$E(X,1,30),DA)="""""
^DD(70.16,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""AUD"",""B"",$E(X,1,30),DA)"
^DD(70.16,.01,3)="This field contains a system generated date/time of when the contrast medium or media was edited for this Rad/Nuc Med exam."
^DD(70.16,.01,21,0)="^.001^2^2^3031231^^"
^DD(70.16,.01,21,1,0)="This field tracks the date/time the contrast medium or media data was"
^DD(70.16,.01,21,2,0)="edited for this specific Rad/Nuc Med exam."
^DD(70.16,.01,23,0)="^^1^1^3031231^"
^DD(70.16,.01,23,1,0)="Added with the release of RA*5*45"
^DD(70.16,.01,"DT")="3031231"
^DD(70.16,2,0)="PRIOR CONTRAST MEDIA VALUE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(70.16,2,3)="This field contains the system generated contrast medium or media data of the Rad/Nuc Med exam prior to edit."
^DD(70.16,2,21,0)="^^2^2^3031231^"
^DD(70.16,2,21,1,0)="This field tracks the contrast media of the Rad/Nuc Med exam before the"
^DD(70.16,2,21,2,0)="edit occurs."
^DD(70.16,2,"DT")="3031231"
^DD(70.16,3,0)="USER WHO EDITED CONTRAST^P200'^VA(200,^0;3^Q"
^DD(70.16,3,3)="This is a system generated field that tracks the name of the person editing the contrast media data for this Rad/Nuc Med exam."
^DD(70.16,3,21,0)="^^2^2^3031231^"
^DD(70.16,3,21,1,0)="This field tracks the person editing the contrast media data for this"
^DD(70.16,3,21,2,0)="Rad/Nuc Med exam."
^DD(70.16,3,"DT")="3040107"
^DD(70.16,"B","DATE/TIME EDITED",.01)=""
^DD(70.16,"B","PRIOR CONTRAST MEDIA VALUE",2)=""
^DD(70.16,"B","USER WHO EDITED CONTRAST",3)=""
^DD(70.16,"GL",0,1,.01)=""
^DD(70.16,"GL",0,2,2)=""
^DD(70.16,"GL",0,3,3)=""
^DD(70.16,"IX",.01)=""
^DD(70.2,0)="FIELD^^100^4"
^DD(70.2,0,"DDA")="N"
^DD(70.2,0,"DT")="2970804"
^DD(70.2,0,"ID",2)="D EN^DDIOL(""Exam Date: ""_$$FMTE^XLFDT($P(^(0),""^"",2),""1P""),"""",""?0"")"
^DD(70.2,0,"ID",3)="D EN^DDIOL(""Case No: ""_$P(^(0),""^"",3),"""",""?55"")"
^DD(70.2,0,"IX","AA1",70.2,.01)=""
^DD(70.2,0,"IX","AA2",70.2,2)=""
^DD(70.2,0,"IX","AA3",70.2,3)=""
^DD(70.2,0,"IX","AB",70.2,2)=""
^DD(70.2,0,"IX","B",70.2,.01)=""
^DD(70.2,0,"NM","NUC MED EXAM DATA")=""
^DD(70.2,0,"PT",70.03,500)=""
^DD(70.2,0,"VR")="5.0"
^DD(70.2,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(70.2,.01,0)="PATIENT^RP2'X^DPT(^0;1^Q"
^DD(70.2,.01,.1)=""
^DD(70.2,.01,1,0)="^.1"
^DD(70.2,.01,1,1,0)="70.2^B"
^DD(70.2,.01,1,1,1)="S ^RADPTN(""B"",$E(X,1,30),DA)="""""
^DD(70.2,.01,1,1,2)="K ^RADPTN(""B"",$E(X,1,30),DA)"
^DD(70.2,.01,1,2,0)="70.2^AA1^MUMPS"
^DD(70.2,.01,1,2,1)="N RA S RA=$G(^RADPTN(DA,0)),RA(2)=$P(RA,""^"",2),RA(3)=$P(RA,""^"",3) S:RA(2)]""""&(RA(3)]"""") ^RADPTN(""AA"",X,RA(2),RA(3),DA)="""""
^DD(70.2,.01,1,2,2)="N RA S RA=$G(^RADPTN(DA,0)),RA(2)=$P(RA,""^"",2),RA(3)=$P(RA,""^"",3) K:RA(2)]""""&(RA(3)]"""") ^RADPTN(""AA"",X,RA(2),RA(3),DA)"
^DD(70.2,.01,1,2,"DT")="2951109"
^DD(70.2,.01,3)="Enter the name of the patient."
^DD(70.2,.01,7.5)=";K:'$D(RAIMGTY) X D EN^DDIOL(""   FileMan selections not allowed!"","""",""?0"")"
^DD(70.2,.01,21,0)="^^1^1^2960814^^^^"
^DD(70.2,.01,21,1,0)="    The name of the patient for this exam."
^DD(70.2,.01,23,0)="^^5^5^2960814^^"
^DD(70.2,.01,23,1,0)="This field is one of three at the top level of this file used as a"
^DD(70.2,.01,23,2,0)="""back-pointer"" to the case subrecord in the Rad/Nuc Med patient file #70"
^DD(70.2,.01,23,3,0)="to which the multiple radiopharmaceutical data applies.  This field is"
^DD(70.2,.01,23,4,0)="automatically populated when the record is created during Registration or"
^DD(70.2,.01,23,5,0)="case editing."
^DD(70.2,.01,"DT")="2951201"
^DD(70.2,2,0)="EXAM DATE/TIME^RDX^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(70.2,2,1,0)="^.1"
^DD(70.2,2,1,1,0)="70.2^AB"
^DD(70.2,2,1,1,1)="S ^RADPTN(""AB"",$E(X,1,30),DA)="""""
^DD(70.2,2,1,1,2)="K ^RADPTN(""AB"",$E(X,1,30),DA)"
^DD(70.2,2,1,1,"DT")="2970725"
^DD(70.2,2,1,2,0)="70.2^AA2^MUMPS"
^DD(70.2,2,1,2,1)="N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,""^""),RA(3)=$P(RA,""^"",3) S:RA(1)]""""&(RA(3)]"""") ^RADPTN(""AA"",RA(1),X,RA(3),DA)="""""
^DD(70.2,2,1,2,2)="N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,""^""),RA(3)=$P(RA,""^"",3) K:RA(1)]""""&(RA(3)]"""") ^RADPTN(""AA"",RA(1),X,RA(3),DA)"
^DD(70.2,2,1,2,"%D",0)="^^5^5^2980316^"
^DD(70.2,2,1,2,"%D",1,0)="This M x-ref is used to relate entries in this file to the main entry for"
^DD(70.2,2,1,2,"%D",2,0)="the exam in the Rad/Nuc Med Patient file #70.  "
^DD(70.2,2,1,2,"%D",3,0)=" "
^DD(70.2,2,1,2,"%D",4,0)="Format: ^RADPTN(""AB"",DFN,Exam_Date,Case)"
^DD(70.2,2,1,2,"%D",5,0)="Ex:     ^RADPTN(""AB"",6552,2980103.1415,265)"
^DD(70.2,2,1,2,"DT")="2951109"
^DD(70.2,2,3)="Enter the date/time of this exam."
^DD(70.2,2,21,0)="^^3^3^2960814^^^"
^DD(70.2,2,21,1,0)="This is the date/time this exam took place and should be an exact match to"
^DD(70.2,2,21,2,0)="an existing exam in the Rad/Nuc Med Patient file #70.  It is automatically"
^DD(70.2,2,21,3,0)="populated when records are created in file 70.2."
^DD(70.2,2,23,0)="^^4^4^2960814^"
^DD(70.2,2,23,1,0)="This field is one of three fields used to identify the case (3rd level"
^DD(70.2,2,23,2,0)="multiple subrecord) in the Rad/Nuc Med Patient file #70 to which the"
^DD(70.2,2,23,3,0)="radiopharmaceutical data applies.  It is automatically populated when the"
^DD(70.2,2,23,4,0)="record in file 70.2 is created during Registration or case editing."
^DD(70.2,2,"DT")="2970725"
^DD(70.2,3,0)="CASE NUMBER^RNJ5,0X^^0;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(70.2,3,1,0)="^.1"
^DD(70.2,3,1,1,0)="70.2^AA3^MUMPS"
^DD(70.2,3,1,1,1)="N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,""^""),RA(2)=$P(RA,""^"",2) S:RA(1)]""""&(RA(2)]"""") ^RADPTN(""AA"",RA(1),RA(2),X,DA)="""""
^DD(70.2,3,1,1,2)="N RA S RA=$G(^RADPTN(DA,0)),RA(1)=$P(RA,""^""),RA(2)=$P(RA,""^"",2) K:RA(1)]""""&(RA(2)]"""") ^RADPTN(""AA"",RA(1),RA(2),X,DA)"
^DD(70.2,3,1,1,"DT")="2951109"
^DD(70.2,3,3)="Enter a Number between 1 and 99999, 0 Decimal Digits"
^DD(70.2,3,21,0)="^^2^2^2960814^^^"
^DD(70.2,3,21,1,0)="The case number for this exam should be an exact match to an existing case"
^DD(70.2,3,21,2,0)="number in the Rad/Nuc Med patient file #70."
^DD(70.2,3,23,0)="^^5^5^2960814^"
^DD(70.2,3,23,1,0)="This field is automatically populated when the record in file 70.2 is"
^DD(70.2,3,23,2,0)="created during Registration or case editing. It is one of three fields"
^DD(70.2,3,23,3,0)="used as a ""back-pointer"" to identify the case (3rd multiple level"
^DD(70.2,3,23,4,0)="subrecord) in the Rad/Nuc Med Patient file #70 to which the"
^DD(70.2,3,23,5,0)="radiopharmaceutical data applies."
^DD(70.2,3,"DT")="2951109"
^DD(70.2,100,0)="RADIOPHARMACEUTICALS^70.21PA^^NUC;0"
^DD(70.2,100,21,0)="^^4^4^2970805^^^^"
^DD(70.2,100,21,1,0)="If radiopharmaceutical(s) have been associated with a nuclear med"
^DD(70.2,100,21,2,0)="procedure, they will be automatically entered by the system when the case"
^DD(70.2,100,21,3,0)="is registered.  Radiopharmaceuticals associated with a case may be"
^DD(70.2,100,21,4,0)="deleted or added during case editing."
^DD(70.2,"B","CASE NUMBER",3)=""
^DD(70.2,"B","EXAM DATE/TIME",2)=""
^DD(70.2,"B","PATIENT",.01)=""
^DD(70.2,"B","RADIOPHARMACEUTICALS",100)=""
^DD(70.2,"GL",0,1,.01)=""
^DD(70.2,"GL",0,2,2)=""
^DD(70.2,"GL",0,3,3)=""
^DD(70.2,"GL","NUC",0,100)=""
^DD(70.2,"IX",.01)=""
^DD(70.2,"IX",2)=""
^DD(70.2,"IX",3)=""
^DD(70.2,"RQ",.01)=""
^DD(70.2,"RQ",2)=""
^DD(70.2,"RQ",3)=""
^DD(70.2,"SB",70.21,100)=""
^DD(70.21,0)="RADIOPHARMACEUTICALS SUB-FIELD^^15^16"
^DD(70.21,0,"DT")="2970804"
^DD(70.21,0,"IX","B",70.21,.01)=""
^DD(70.21,0,"NM","RADIOPHARMACEUTICALS")=""
^DD(70.21,0,"UP")="70.2"
^DD(70.21,.01,0)="RADIOPHARMACEUTICAL^M*P50'^PSDRUG(^0;1^S DIC(""S"")=""N RADT S RADT=$P($G(^RADPTN(D0,0)),""""^"""",2) I $$DCHK^RADD1(""""R"""",RADT,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.21,.01,1,0)="^.1"
^DD(70.21,.01,1,1,0)="70.21^B"
^DD(70.21,.01,1,1,1)="S ^RADPTN(DA(1),""NUC"",""B"",$E(X,1,30),DA)="""""
^DD(70.21,.01,1,1,2)="K ^RADPTN(DA(1),""NUC"",""B"",$E(X,1,30),DA)"
^DD(70.21,.01,3)="Enter the radiopharmaceutical associated with this examination."
^DD(70.21,.01,12)="Enter only active radiopharmaceuticals with an appropriate drug classification."
^DD(70.21,.01,12.1)="S DIC(""S"")=""N RADT S RADT=$P($G(^RADPTN(D0,0)),""""^"""",2) I $$DCHK^RADD1(""""R"""",RADT,+Y)"""
^DD(70.21,.01,21,0)="^^2^2^2970620^^^^"
^DD(70.21,.01,21,1,0)="A radiopharmaceutical associated with this examination should be entered"
^DD(70.21,.01,21,2,0)="here.  Radiopharm entry is mandatory for printing dosage tickets."
^DD(70.21,.01,"DT")="2970702"
^DD(70.21,2,0)="PRESCRIBED DOSE BY MD OVERRIDE^NJ10,4^^0;2^K:+X'=X!(X>99999.9999)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(70.21,2,.1)="PRESCRIBED DOSE BY MD OVERRIDE (in mCi)"
^DD(70.21,2,3)="Enter prescribed dose between .0001 and 99999.9999.  Unit of Measure is mCi."
^DD(70.21,2,21,0)="^^4^4^2970620^^^^"
^DD(70.21,2,21,1,0)="This is the dosage (in mCi) of this radiopharmaceutical as prescribed by"
^DD(70.21,2,21,2,0)="an MD. It must be a value between .0001 and 99999.9999. This field is"
^DD(70.21,2,21,3,0)="mandatory to print dosage tickets, or if an MD prescribed this dosage"
^DD(70.21,2,21,4,0)="because it is outside the usual dosage range."
^DD(70.21,2,"DT")="2970514"
^DD(70.21,3,0)="PRESCRIBING PHYSICIAN^*P200'^VA(200,^0;3^S DIC(""S"")=""I $$VALADM^RADD1(D0,+Y,"""""""",1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.21,3,3)="Enter the physician who prescribed this radiopharm dosage."
^DD(70.21,3,12)="Must be Staff or Resident, and have active AUTHORIZATION TO WRITE MED ORDERS"
^DD(70.21,3,12.1)="S DIC(""S"")=""I $$VALADM^RADD1(D0,+Y,"""""""",1)"""
^DD(70.21,3,21,0)="^^1^1^2960826^^"
^DD(70.21,3,21,1,0)="The physician who prescribed the radiopharmaceutical can be entered here."
^DD(70.21,3,"DT")="2960826"
^DD(70.21,4,0)="ACTIVITY DRAWN (in mCi)^NJ10,4X^^0;4^K:+X'=X!(X>99999.9999)!(X<.0001)!(X?.E1"".""5N.N) X X:$G(X) ^DD(70.21,4,9.2)"
^DD(70.21,4,.1)="ACTIVITY DRAWN (in mCi)"
^DD(70.21,4,3)="Enter activity drawn between .0001 and 99999.9999.  Unit of Measure is mCi."
^DD(70.21,4,9.2)="K:$G(^RADPTN(+$G(DA(1)),""NUC"",+$G(DA),0))&($P(^(0),""^"",7))&($P(^(0),""^"",7)>X) X D:'$D(X) EN^DDIOL(""This value cannot be less than DOSE ADMINISTERED."","""",""!!?10"")"
^DD(70.21,4,21,0)="^^2^2^2970514^^^^"
^DD(70.21,4,21,1,0)="This is the radiopharmaceutical activity drawn to be administered to the"
^DD(70.21,4,21,2,0)="patient.  The unit of measure is mCi."
^DD(70.21,4,"DT")="2970514"
^DD(70.21,5,0)="DATE/TIME DRAWN^DX^^0;5^S %DT=""ETXR"",%DT(0)=$$FMADD^XLFDT($P($G(^RADPTN(D0,0)),""^"",2),-7) D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(70.21,5,3)="Enter the date/time the radiopharmaceutical was drawn.  The date/time drawn may precede the exam date/time by as much as seven days."
^DD(70.21,5,21,0)="^^4^4^2961218^"
^DD(70.21,5,21,1,0)="The date and time the radiopharmaceutical was drawn can be entered here."
^DD(70.21,5,21,2,0)="If the facility is configured for printing dosage tickets, date/time drawn"
^DD(70.21,5,21,3,0)="is mandatory.  Date/time drawn can precede the exam date/time by as much"
^DD(70.21,5,21,4,0)="as seven days."
^DD(70.21,5,"DT")="2961218"
^DD(70.21,6,0)="PERSON WHO MEASURED DOSE^*P200'^VA(200,^0;6^S DIC(""S"")=""I $$VALADM^RADD1(D0,+Y,"""""""",0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.21,6,3)="Enter the name of the individual who measured the amount of radiopharmaceutical drawn."
^DD(70.21,6,12)="Must be Staff or Resident or Technoligist"
^DD(70.21,6,12.1)="S DIC(""S"")=""I $$VALADM^RADD1(D0,+Y,"""""""",0)"""
^DD(70.21,6,21,0)="^^4^4^2960925^^^"
^DD(70.21,6,21,1,0)="The clinician who measured the amount of radiopharmaceutical drawn can be"
^DD(70.21,6,21,2,0)="entered here. This person must have a Rad/Nuc Med Personnel Classification"
^DD(70.21,6,21,3,0)="other than ""clerk"".  If the facility is configured for printing dosage"
^DD(70.21,6,21,4,0)="tickets, entering the person who measured the dose is mandatory."
^DD(70.21,6,"DT")="2960826"
^DD(70.21,7,0)="DOSE ADMINISTERED^NJ10,4X^^0;7^K:+X'=X!(X>99999.9999)!(X<.0001)!(X?.E1"".""5N.N) X X:$G(X) ^DD(70.21,7,9.2)"
^DD(70.21,7,.1)="DOSE ADMINISTERED (in mCi)"
^DD(70.21,7,3)="Enter radiopharm dosage between .0001 and 99999.9999.  Unit of Measure is mCi."
^DD(70.21,7,9.2)="K:$G(^RADPTN(+$G(DA(1)),""NUC"",+$G(DA),0))&($P(^(0),""^"",4))&($P(^(0),""^"",4)<X) X D:'$D(X) EN^DDIOL(""This value cannot be greater than ACTIVITY DRAWN."","""",""!!?10"")"
^DD(70.21,7,10)=""
^DD(70.21,7,21,0)="^^1^1^2970514^^^^"
^DD(70.21,7,21,1,0)="The radiopharmaceutical dosage actually administered to the patient."
^DD(70.21,7,"DT")="2970514"
^DD(70.21,8,0)="DATE/TIME DOSE ADMINISTERED^DX^^0;8^S %DT=""ETXR"",%DT(0)=$S($P($G(^RADPTN(D0,""NUC"",D1,0)),""^"",5)]"""":$P(^(0),""^"",5),1:$$FMADD^XLFDT($P($G(^RADPTN(D0,0)),""^"",2),-7)) D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(70.21,8,3)="Enter the date/time this radiopharmaceutical was administered."
^DD(70.21,8,10)=""
^DD(70.21,8,21,0)="^^3^3^2961220^^"
^DD(70.21,8,21,1,0)="This is the date/time the radiopharamceutical was administered to the"
^DD(70.21,8,21,2,0)="patient.  The date/time administered must not precede the exam date/time"
^DD(70.21,8,21,3,0)="by more than seven days."
^DD(70.21,8,"DT")="2961218"
^DD(70.21,9,0)="PERSON WHO ADMINISTERED DOSE^*P200'^VA(200,^0;9^S DIC(""S"")=""I $$VALADM^RADD1(D0,+Y,"""""""",0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.21,9,3)="Enter the clinician who administered the dose."
^DD(70.21,9,10)=""
^DD(70.21,9,12)="Must be Staff or Resident or Technologist"
^DD(70.21,9,12.1)="S DIC(""S"")=""I $$VALADM^RADD1(D0,+Y,"""""""",0)"""
^DD(70.21,9,21,0)="^^2^2^2960827^^^^"
^DD(70.21,9,21,1,0)="This is the individual who administered the dose.  This individual must"
^DD(70.21,9,21,2,0)="have Rad/Nuc Med Classification."
^DD(70.21,9,"DT")="2960826"
^DD(70.21,10,0)="WITNESS TO DOSE ADMINISTRATION^*P200'^VA(200,^0;10^S DIC(""S"")=""N RAPAD S RAPAD=+$P($G(^RADPTN(DA(1),""""NUC"""",DA,0)),""""^"""",9) I +Y'=RAPAD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.21,10,3)="Enter a person who witnessed the administration of the radiopharm."
^DD(70.21,10,10)=""
^DD(70.21,10,12)="The person witnessing the dose administered cannot be the same person who administers the dose."
^DD(70.21,10,12.1)="S DIC(""S"")=""N RAPAD S RAPAD=+$P($G(^RADPTN(DA(1),""""NUC"""",DA,0)),""""^"""",9) I +Y'=RAPAD"""
^DD(70.21,10,21,0)="^^2^2^2970725^^"
^DD(70.21,10,21,1,0)="A person, if any, who witnessed the radiopharm dosage administration can"
^DD(70.21,10,21,2,0)="be entered here."
^DD(70.21,10,"DT")="2970725"
^DD(70.21,11,0)="ROUTE OF ADMINISTRATION^P71.6'^RAMIS(71.6,^0;11^Q"
^DD(70.21,11,3)="Enter the route of administration for this radiopharmaceutical."
^DD(70.21,11,21,0)="^^1^1^2960815^^"
^DD(70.21,11,21,1,0)="This is the route of administration for this radiopharmaceutical."
^DD(70.21,11,"DT")="2960620"
^DD(70.21,12,0)="SITE OF ADMINISTRATION^*P71.7'^RAMIS(71.7,^0;12^S DIC(""S"")=""N RA702 S RA702=$G(^RADPTN(DA(1),""""NUC"""",DA,0)) I $S(+$P(RA702,""""^"""",11):$D(^RAMIS(71.6,+$P(RA702,""""^"""",11),""""SITE"""",""""B"""",+Y)),1:1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.21,12,3)="Enter the site of administration for this radiopharmaceutical."
^DD(70.21,12,12)="Select the Site Of Administration based on the Route Of Administration (field 11, sub-file 70.21)"
^DD(70.21,12,12.1)="S DIC(""S"")=""N RA702 S RA702=$G(^RADPTN(DA(1),""""NUC"""",DA,0)) I $S(+$P(RA702,""""^"""",11):$D(^RAMIS(71.6,+$P(RA702,""""^"""",11),""""SITE"""",""""B"""",+Y)),1:1)"""
^DD(70.21,12,21,0)="^^1^1^2960925^^^^"
^DD(70.21,12,21,1,0)="This is the site of administration for this radiopharmaceutical."
^DD(70.21,12,"DT")="2960925"
^DD(70.21,12.5,0)="SITE OF ADMIN TEXT^F^^SITX;1^K:$L(X)>45!($L(X)<3) X"
^DD(70.21,12.5,3)="Answer must be 3-45 characters in length."
^DD(70.21,12.5,"DT")="2960918"
^DD(70.21,13,0)="LOT NO.^*P71.9^RAMIS(71.9,^0;13^S DIC(""S"")=""I $P(^(0),U,6)="""""""",$$SCRLOT^RADD3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.21,13,3)="Enter the lot number for this radiopharmaceutical."
^DD(70.21,13,12)="LOT must be active, its Exp. date must follow exam d/t (and dose adm date if entered), and its radiopharm must match Exam's radiopharm."
^DD(70.21,13,12.1)="S DIC(""S"")=""I $P(^(0),U,6)="""""""",$$SCRLOT^RADD3"""
^DD(70.21,13,21,0)="^^3^3^2970805^^^^"
^DD(70.21,13,21,1,0)="This field identifies the lot number for this radiopharmaceutical. The"
^DD(70.21,13,21,2,0)="'Lot number' can be the number of the batch, vial, syringe, or kit.  Lot"
^DD(70.21,13,21,3,0)="number is mandatory for printing dosage tickets."
^DD(70.21,13,"DT")="2970804"
^DD(70.21,14,0)="VOLUME (in ml or caplets)^FXO^^0;14^S X=$$VOL^RADD1(X) K:X="""" X"
^DD(70.21,14,2)="S Y(0)=Y S Y=+Y_"" ""_$S($P(Y,"" "",2)=""c"":""caplet"",1:""ml"") S:+Y>1&($E($P(Y,"" "",2),1)=""c"") Y=Y_""s"""
^DD(70.21,14,2.1)="S Y=+Y_"" ""_$S($P(Y,"" "",2)=""c"":""caplet"",1:""ml"") S:+Y>1&($E($P(Y,"" "",2),1)=""c"") Y=Y_""s"""
^DD(70.21,14,3)="Enter the volume of the radiopharmaceutical administered. (Ex: 1.5m  3c)"
^DD(70.21,14,21,0)="^^3^3^2961122^^^"
^DD(70.21,14,21,1,0)="This field indicates the volume of the radiopharmaceutical administered."
^DD(70.21,14,21,2,0)="The units of measure will either be 'c' for caplets or 'm' for"
^DD(70.21,14,21,3,0)="milliliters.  The number must be in the range of: 1-99999.99"
^DD(70.21,14,"DT")="2961217"
^DD(70.21,15,0)="FORM^S^L:Liquid;G:Gas;A:Aerosol;P:Solid (pill);S:Solid (other);^0;15^Q"
^DD(70.21,15,3)="Enter the form in which this radiopharmaceutical was administered."
^DD(70.21,15,21,0)="^^8^8^2960917^^"
^DD(70.21,15,21,1,0)="This field indicates the form in which the radiopharmaceutical was"
^DD(70.21,15,21,2,0)="administered."
^DD(70.21,15,21,3,0)=" "
^DD(70.21,15,21,4,0)="   Liquid            (ex: all injections)"
^DD(70.21,15,21,5,0)="   Gas               (ex: xenon, krypton)"
^DD(70.21,15,21,6,0)="   Aerosol           (ex: DTPA aerosol)"
^DD(70.21,15,21,7,0)="   Solid (pill)      (ex: I-123 or I-131 pill, schilling test)"
^DD(70.21,15,21,8,0)="   Solid (other)     (ex: radioactive egg for gastric emptying time)"
^DD(70.21,15,"DT")="2960912"
^DD(70.21,"B","ACTIVITY DRAWN (in mCi)",4)="1"
^DD(70.21,"B","DATE/TIME DOSE ADMINISTERED",8)=""
^DD(70.21,"B","DATE/TIME DRAWN",5)=""
^DD(70.21,"B","DOSE ADMINISTERED",7)=""
^DD(70.21,"B","DOSE ADMINISTERED (in mCi)",7)="1"
^DD(70.21,"B","FORM",15)=""
^DD(70.21,"B","LOT NO.",13)=""
^DD(70.21,"B","PERSON WHO ADMINISTERED DOSE",9)=""
^DD(70.21,"B","PERSON WHO MEASURED DOSE",6)=""
^DD(70.21,"B","PRESCRIBED DOSE BY MD OVERRIDE",2)=""
^DD(70.21,"B","PRESCRIBING PHYSICIAN",3)=""
^DD(70.21,"B","RADIOPHARMACEUTICAL",.01)=""
^DD(70.21,"B","ROUTE OF ADMINISTRATION",11)=""
^DD(70.21,"B","SITE OF ADMIN TEXT",12.5)=""
^DD(70.21,"B","SITE OF ADMINISTRATION",12)=""
^DD(70.21,"B","VOLUME (in ml or caplets)",14)=""
^DD(70.21,"B","WITNESS TO DOSE ADMINISTRATION",10)=""
^DD(70.21,"GL",0,1,.01)=""
^DD(70.21,"GL",0,2,2)=""
^DD(70.21,"GL",0,3,3)=""
^DD(70.21,"GL",0,4,4)=""
^DD(70.21,"GL",0,5,5)=""
^DD(70.21,"GL",0,6,6)=""
^DD(70.21,"GL",0,7,7)=""
^DD(70.21,"GL",0,8,8)=""
^DD(70.21,"GL",0,9,9)=""
^DD(70.21,"GL",0,10,10)=""
^DD(70.21,"GL",0,11,11)=""
^DD(70.21,"GL",0,12,12)=""
^DD(70.21,"GL",0,13,13)=""
^DD(70.21,"GL",0,14,14)=""
^DD(70.21,"GL",0,15,15)=""
^DD(70.21,"GL","SITX",1,12.5)=""
^DD(70.21,"IX",.01)=""
^DD(70.3135,0)="CPT MODIFIERS SUB-FIELD^^.01^1"
^DD(70.3135,0,"DT")="2990805"
^DD(70.3135,0,"IX","B",70.3135,.01)=""
^DD(70.3135,0,"NM","CPT MODIFIERS")=""
^DD(70.3135,0,"UP")="70.03"
^DD(70.3135,.01,0)="CPT MODIFIERS^M*P81.3'^DIC(81.3,^0;1^S DIC(""S"")=""I $$SCRN^RACPTMSC(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(70.3135,.01,.1)="CPT MODIFIERS OF THIS EXAM"
^DD(70.3135,.01,1,0)="^.1"
^DD(70.3135,.01,1,1,0)="70.3135^B"
^DD(70.3135,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""CMOD"",""B"",$E(X,1,30),DA)="""""
^DD(70.3135,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""CMOD"",""B"",$E(X,1,30),DA)"
^DD(70.3135,.01,3)="Choose one or more CPT Modifiers, one at a time."
^DD(70.3135,.01,12)="CPT Modifier must agree with CPT code"
^DD(70.3135,.01,12.1)="S DIC(""S"")=""I $$SCRN^RACPTMSC(+Y)"""
^DD(70.3135,.01,21,0)="^^3^3^2990805^^^^"
^DD(70.3135,.01,21,1,0)="This field is screened to accept only those CPT Modifiers that agree"
^DD(70.3135,.01,21,2,0)="with this exam's CPT CODE and EXAM DATE.  The screen code calls the CPT"
^DD(70.3135,.01,21,3,0)="package to evaluate the ""CPT code"" and ""CPT Modifier"" pair."
^DD(70.3135,.01,"DT")="2990805"
^DD(70.3135,"B","CPT MODIFIERS",.01)=""
^DD(70.3135,"B","CPT MODIFIERS OF THIS EXAM",.01)="1"
^DD(70.3135,"GL",0,1,.01)=""
^DD(70.3135,"IX",.01)=""
^DD(70.3225,0)="CONTRAST MEDIA SUB-FIELD^^.01^1"
^DD(70.3225,0,"DT")="3041207"
^DD(70.3225,0,"IX","B",70.3225,.01)=""
^DD(70.3225,0,"NM","CONTRAST MEDIA")=""
^DD(70.3225,0,"UP")="70.03"
^DD(70.3225,.01,0)="CONTRAST MEDIA^MS^I:Ionic Iodinated;N:Non-ionic Iodinated;L:Gadolinium;C:Cholecystographic;G:Gastrografin;B:Barium;M:unspecified contrast media;^0;1^Q"
^DD(70.3225,.01,1,0)="^.1"
^DD(70.3225,.01,1,1,0)="70.3225^B"
^DD(70.3225,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""CM"",""B"",$E(X,1,30),DA)="""""
^DD(70.3225,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""CM"",""B"",$E(X,1,30),DA)"
^DD(70.3225,.01,3)="Enter the contrast agent(s) associated with this exam."
^DD(70.3225,.01,7.5)="S X=$$UP^XLFSTR(X)"
^DD(70.3225,.01,21,0)="^.001^2^2^3041207^^^^"
^DD(70.3225,.01,21,1,0)="This field identifies the contrast agent(s) associated with this Rad/Nuc "
^DD(70.3225,.01,21,2,0)="Med exam."
^DD(70.3225,.01,23,0)="^.001^1^1^3041207^^^^"
^DD(70.3225,.01,23,1,0)="This field was added with RA*5*45."
^DD(70.3225,.01,"DT")="3041207"
^DD(70.3225,"B","CONTRAST MEDIA",.01)=""
^DD(70.3225,"GL",0,1,.01)=""
^DD(70.3225,"IX",.01)=""
^DD(70.346,0)="REASON FOR NOT PURGING SUB-FIELD^^.01^1"
^DD(70.346,0,"DT")="2970421"
^DD(70.346,0,"IX","B",70.346,.01)=""
^DD(70.346,0,"NM","REASON FOR NOT PURGING")=""
^DD(70.346,0,"UP")="70.03"
^DD(70.346,.01,0)="REASON FOR NOT PURGING^MS^a:Agent Orange Exposure;c:Cancer/Tumor Registry;e:Employee;m:Mammography;p:Persian Gulf War;r:Radiation Exposure;t:Teaching;^0;1^Q"
^DD(70.346,.01,1,0)="^.1"
^DD(70.346,.01,1,1,0)="70.346^B"
^DD(70.346,.01,1,1,1)="S ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""NOPURSN"",""B"",$E(X,1,30),DA)="""""
^DD(70.346,.01,1,1,2)="K ^RADPT(DA(3),""DT"",DA(2),""P"",DA(1),""NOPURSN"",""B"",$E(X,1,30),DA)"
^DD(70.346,.01,3)="Enter one or more reasons why the exam should not be purged."
^DD(70.346,.01,21,0)="^^1^1^2970421^^^"
^DD(70.346,.01,21,1,0)="This field indicates why the examination should not be purged."
^DD(70.346,.01,"DT")="2970421"
^DD(70.346,"B","REASON FOR NOT PURGING",.01)=""
^DD(70.346,"GL",0,1,.01)=""
^DD(70.346,"IX",.01)=""
^DD(71,0)="FIELD^^731^34"
^DD(71,0,"DDA")="N"
^DD(71,0,"DT")="2970514"
^DD(71,0,"ID","WRITE")="D EN^DDIOL($$PRCCPT^RADD1(),"""",""?54"")"
^DD(71,0,"IX","AC",71.03,.01)=""
^DD(71,0,"IX","ADESC",71.05,.01)=""
^DD(71,0,"IX","AIMG",71,12)=""
^DD(71,0,"IX","B",71,.01)=""
^DD(71,0,"IX","C",71,.01)=""
^DD(71,0,"IX","CM",71,20)=""
^DD(71,0,"IX","D",71,9)=""
^DD(71,0,"IX","E",71.01,.01)=""
^DD(71,0,"IX","F",71.01,.01)=""
^DD(71,0,"NM","RAD/NUC MED PROCEDURES")=""
^DD(71,0,"PT",70.03,2)=""
^DD(71,0,"PT",71.05,.01)=""
^DD(71,0,"PT",71.3,.01)=""
^DD(71,0,"PT",75.1,2)=""
^DD(71,0,"PT",100.1,.01)=""
^DD(71,0,"PT",101,6)=""
^DD(71,0,"PT",142.14,.01)=""
^DD(71,0,"PT",160.075,6)=""
^DD(71,0,"PT",727.814,10)=""
^DD(71,0,"PT",810.31,.04)=""
^DD(71,0,"PT",810.32,.01)=""
^DD(71,0,"PT",811.371,1)=""
^DD(71,0,"PT",811.52,.01)=""
^DD(71,0,"PT",811.902,.01)=""
^DD(71,0,"PT",2005,62)=""
^DD(71,0,"PT",2005.1,62)=""
^DD(71,0,"VR")="5.0"
^DD(71,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71,.01,0)="NAME^RsFX^^0;1^K:X[""""""""!($A(X)=45) X S:$D(X) X=$$UP^XLFSTR(X) K:$L(X)>60!($L(X)<3) X I $D(X) K:'+$$UNI30^RAUTL14(+$G(DA),X) X"
^DD(71,.01,.1)="NAME OF THE RAD/NUC MED PROCEDURE"
^DD(71,.01,1,0)="^.1"
^DD(71,.01,1,1,0)="71^B"
^DD(71,.01,1,1,1)="S ^RAMIS(71,""B"",$E(X,1,60),DA)="""""
^DD(71,.01,1,1,2)="K ^RAMIS(71,""B"",$E(X,1,60),DA)"
^DD(71,.01,1,1,3)="PLEASE DON'T DELETE"
^DD(71,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(71,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(71,.01,1,2,0)="71^C^MUMPS"
^DD(71,.01,1,2,1)="S ^RAMIS(71,""C"",$$LOW^XLFSTR($E(X,1,60)),DA)="""""
^DD(71,.01,1,2,2)="K ^RAMIS(71,""C"",$$LOW^XLFSTR($E(X,1,60)),DA)"
^DD(71,.01,1,2,3)="Please don't delete lowercase x-ref"
^DD(71,.01,1,2,"%D",0)="^^3^3^2940801^"
^DD(71,.01,1,2,"%D",1,0)="This x-ref makes it possible to enter procedure names in lowercase on a"
^DD(71,.01,1,2,"%D",2,0)="look-up without invoking the CPT file look-up before the Rad/NM Procedure"
^DD(71,.01,1,2,"%D",3,0)="file look-up."
^DD(71,.01,1,2,"DT")="2940801"
^DD(71,.01,3)="Enter the name of the procedure.  Procedure names may be 1 to 60 characters in length, with the first 30 characters being unique.  Also, "";"" and ""^"" are not allowed as characters."
^DD(71,.01,10)="RAD/NUC MED COORDINATOR"
^DD(71,.01,21,0)="^^3^3^3020227^"
^DD(71,.01,21,1,0)="This field contains the name (3-60 characters) of this rad/nuc med"
^DD(71,.01,21,2,0)="procedure.  The first thirty characters of the procedure name must be"
^DD(71,.01,21,3,0)="unique.  Also, "";"" and ""^"" are not allowed as characters."
^DD(71,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Procedures cannot be deleted. Instead, inactivate the procedure"",,""!,$C(7)"")"
^DD(71,.01,"DT")="2940831"
^DD(71,2,0)="SUPPRESS RADIOPHARM PROMPT^S^0:Ask Radiopharmaceutical;1:Suppress Radiopharmaceutical prompt;^0;2^Q"
^DD(71,2,.1)="SUPPRESS RADIOPHARMACEUTICAL PROMPT"
^DD(71,2,3)="Enter '1' if the radiopharmaceutical prompt(s) should be suppressed when this procedure is performed on a patient."
^DD(71,2,21,0)="^^17^17^2970430^"
^DD(71,2,21,1,0)="This question only applies to procedures with an imaging type that use"
^DD(71,2,21,2,0)="radiopharmaceuticals (i.e. nuclear medicine or cardiology studies). If the"
^DD(71,2,21,3,0)="exam status set-up for the affected imaging types specifies that"
^DD(71,2,21,4,0)="radiopharmaceutical data should be asked and/or required to progress to"
^DD(71,2,21,5,0)="various statuses, this field can be used to over-ride that requirement."
^DD(71,2,21,6,0)=" "
^DD(71,2,21,7,0)="Available categories are defined as follows:"
^DD(71,2,21,8,0)=" "
^DD(71,2,21,9,0)="    0 or blank - Always ask for Radiopharmaceutical if and when exam"
^DD(71,2,21,10,0)="        status parameters specify (this is the default)."
^DD(71,2,21,11,0)=" "
^DD(71,2,21,12,0)="    1 - Suppress the radiopharmaceutical prompts.  Never ask or require"
^DD(71,2,21,13,0)="        Radiopharmaceutical even if exam status parameters specify that a"
^DD(71,2,21,14,0)="        Radiopharmaceutical should be entered. Even if default"
^DD(71,2,21,15,0)="        Radiopharmaceuticals are entered for the procedure they will not"
^DD(71,2,21,16,0)="        be automatically entered on the exam record by the system when the"
^DD(71,2,21,17,0)="        case is registered."
^DD(71,2,"DT")="2970430"
^DD(71,3,0)="REQUIRED FLASH CARD PRINTER^P3.5'^%ZIS(1,^0;3^Q"
^DD(71,3,.1)="REQUIRED FLASH CARD PRINTER FOR THIS IMAGING PROCEDURE"
^DD(71,3,3)="Select a device which will print flash cards for this procedure."
^DD(71,3,4)=""
^DD(71,3,10)="COMPUTER SITE MANAGER"
^DD(71,3,21,0)="^^8^8^2950306^"
^DD(71,3,21,1,0)="This field contains the name (1-20 characters) of the location where the"
^DD(71,3,21,2,0)="flash cards for this procedure are to be printed.  Normally, the flash"
^DD(71,3,21,3,0)="cards are printed at the reception desk, however, for particular"
^DD(71,3,21,4,0)="procedures the flash cards may be printed at a different location such as"
^DD(71,3,21,5,0)="where the exam is to be performed."
^DD(71,3,21,6,0)=" "
^DD(71,3,21,7,0)="NOTE:  The exam labels will print out on the flash card printer associated"
^DD(71,3,21,8,0)="       with the imaging location parameter (e.g., the reception desk)."
^DD(71,3,"DT")="2960207"
^DD(71,4,0)="REQUIRED FLASH CARD FORMAT^P78.2'^RA(78.2,^0;4^Q"
^DD(71,4,.1)="REQUIRED FLASH CARD FORMAT FOR THIS RAD/NUC MED PROCEDURE"
^DD(71,4,3)="Enter the format for this flash card."
^DD(71,4,10)="RAD/NUC MED COORDINATOR"
^DD(71,4,21,0)="^^4^4^2940518^^^^"
^DD(71,4,21,1,0)="This field is used to define the format of the flash card.  Normally,"
^DD(71,4,21,2,0)="the standard default format for the user's rad/nuc med location is used,"
^DD(71,4,21,3,0)="however, particular procedures may require a flash card format that is"
^DD(71,4,21,4,0)="different than the standard format."
^DD(71,4,"DT")="2940518"
^DD(71,5,0)="PROMPT FOR MEDS^S^y:YES;^0;5^Q"
^DD(71,5,3)="Enter 'Y' if case edits and status tracking should prompt for meds administered for this procedure."
^DD(71,5,21,0)="^^5^5^2970523^^^^"
^DD(71,5,21,1,0)="If this field is set to YES, case edits will prompt for meds administered"
^DD(71,5,21,2,0)="for this procedure.  To make Status Tracking prompt for meds administered,"
^DD(71,5,21,3,0)="this field is set to YES, and the Examination Status parameter 'Ask"
^DD(71,5,21,4,0)="Medications & Dosages' is set to yes for one or more statuses of the"
^DD(71,5,21,5,0)="procedure's imaging type."
^DD(71,5,"DT")="2970108"
^DD(71,6,0)="TYPE OF PROCEDURE^RSX^B:BROAD;D:DETAILED;S:SERIES;P:PARENT;^0;6^K:$$EN^RAUTL18(D0,X) X"
^DD(71,6,.1)="TYPE OF RAD/NUC MED PROCEDURE"
^DD(71,6,3)="Enter the appropriate procedure type."
^DD(71,6,10)="RAD/NUC MED COORDINATOR"
^DD(71,6,21,0)="^^12^12^2941115^"
^DD(71,6,21,1,0)="This field contains a value to indicate the type of rad/nuc med procedure."
^DD(71,6,21,2,0)="Valid choices are: 'B' for Broad, 'D' for Detailed, 'S' for Series, and"
^DD(71,6,21,3,0)="'P' for Parent. 'Broad' can be used when the procedure is being initially"
^DD(71,6,21,4,0)="registered, but must be changed by the technologist to 'Detailed' or"
^DD(71,6,21,5,0)="'Series' procedure before the exam is completed.  'Series' is used when"
^DD(71,6,21,6,0)="there is more than one AMIS code associated with this exam procedure."
^DD(71,6,21,7,0)="'Parent' procedures should be used to pre-define a group of procedures"
^DD(71,6,21,8,0)="(descendents).  When a procedure is marked as a 'Parent', the system will"
^DD(71,6,21,9,0)="ask for its 'descendents' (other procedures in this file that are part of"
^DD(71,6,21,10,0)="the procedure group). During the 'Register an Exam' option, these"
^DD(71,6,21,11,0)="'descendent' procedures will be registered as a set under one exam"
^DD(71,6,21,12,0)="date/time."
^DD(71,6,"DT")="2941013"
^DD(71,7,0)="STAFF REVIEW REQUIRED^S^Y:YES;N:NO;^0;7^Q"
^DD(71,7,.1)="IS STAFF REVIEW OF REPORTS REQUIRED?"
^DD(71,7,3)="Enter a 'YES' if this procedure requires that an interpreting staff physician review the interpreting resident's report."
^DD(71,7,10)="RAD/NUC MED COORDINATOR"
^DD(71,7,21,0)="^^3^3^2941116^^"
^DD(71,7,21,1,0)="This field contains a 'Yes' or 'No' value to indicate if this procedure"
^DD(71,7,21,2,0)="requires an interpreting staff physician's review of the interpreting"
^DD(71,7,21,3,0)="resident's report results."
^DD(71,7,"DT")="2841129"
^DD(71,8,0)="ORIGINAL PROCEDURE?^SI^Y:YES;N:NO;^0;8^Q"
^DD(71,8,.1)="IS THIS A PROCEDURE SENT AS PART OF THE PACKAGE?"
^DD(71,8,3)="If this field contains a 'YES', the procedure cannot be modified."
^DD(71,8,9)="^"
^DD(71,8,10)="SYSTEM GENERATED"
^DD(71,8,21,0)="^^8^8^2940518^^^^"
^DD(71,8,21,1,0)="This field contains a 'Yes' or 'No' value which indicates if this"
^DD(71,8,21,2,0)="procedure is from the original group of 535 procedures sent with this"
^DD(71,8,21,3,0)="system or if this procedure has been set up by the site.  The original"
^DD(71,8,21,4,0)="535 procedures are filled in with 'Yes'.  "
^DD(71,8,21,5,0)=" "
^DD(71,8,21,6,0)="The system allows the name field of the file to be changed for any "
^DD(71,8,21,7,0)="procedure that has a 'No' in this field.  Always use the Procedure Edit "
^DD(71,8,21,8,0)="Function of the system to modify this Procedure File."
^DD(71,8,"DT")="2921207"
^DD(71,9,0)="CPT CODE^P81'X^ICPT(^0;9^D CPTCHK^RADD1(+$G(Y)) Q"
^DD(71,9,.1)="CURRENT PROCEDURAL TERMINOLOGY CODE"
^DD(71,9,1,0)="^.1"
^DD(71,9,1,1,0)="71^D"
^DD(71,9,1,1,1)="S ^RAMIS(71,""D"",$E(X,1,30),DA)="""""
^DD(71,9,1,1,2)="K ^RAMIS(71,""D"",$E(X,1,30),DA)"
^DD(71,9,1,1,"%D",0)="^^1^1^2910815^"
^DD(71,9,1,1,"%D",1,0)="Used to look-up procedures by CPT code."
^DD(71,9,3)="Enter the appropriate CPT for this procedure."
^DD(71,9,10)="RAD/NUC MED COORDINATOR"
^DD(71,9,21,0)="^^3^3^2941019^^^^"
^DD(71,9,21,1,0)="This field contains the CPT code (must be a number) for this"
^DD(71,9,21,2,0)="procedure. All CPT (Current Procedural Terminology) codes are issued"
^DD(71,9,21,3,0)="by the AMA. The CPT File is the responsibility of MAS.  "
^DD(71,9,23,0)="^^3^3^2941019^"
^DD(71,9,23,1,0)="     The input transform checks to see if the CPT code input is inactive."
^DD(71,9,23,2,0)="The user is issued a message if the CPT code is nationally inactive.  This"
^DD(71,9,23,3,0)="input transform prevents the user from selecting inactive CPT codes."
^DD(71,9,"DT")="2940907"
^DD(71,10,0)="COST OF PROCEDURE^NJ8,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(71,10,.1)="COST OF THIS RAD/NUC MED PROCEDURE"
^DD(71,10,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(71,10,21,0)="^^1^1^2970916^^^^"
^DD(71,10,21,1,0)="This field may be used in the future for possible third party billing."
^DD(71,10,"DT")="2940518"
^DD(71,11,0)="RAD/NM PHYS APPROVAL REQUIRED^S^y:YES;n:NO;^0;11^Q"
^DD(71,11,.1)="IS RAD/NM PHYSICIAN APPROVAL REQUIRED TO REQUEST THIS PROCEDURE?"
^DD(71,11,3)="Enter a 'YES' if requesting this procedure needs the approval of a physician in the appropriate imaging service."
^DD(71,11,10)="RAD/NUC MED COORDINATOR"
^DD(71,11,21,0)="^^5^5^2940606^"
^DD(71,11,21,1,0)="This field is set to indicate whether or not requesting this procedure"
^DD(71,11,21,2,0)="requires a Radiology or Nuclear Med physician 's approval. If this field"
^DD(71,11,21,3,0)="contains a 'Yes', the appropriate Imaging Service must be contacted to"
^DD(71,11,21,4,0)="request the procedure. If this field is set to 'No', the procedure can be"
^DD(71,11,21,5,0)="requested without this approval."
^DD(71,11,"DT")="2940606"
^DD(71,12,0)="TYPE OF IMAGING^RP79.2'X^RA(79.2,^0;12^D EN2^RAUTL14"
^DD(71,12,1,0)="^.1^^-1"
^DD(71,12,1,1,0)="71^AIMG"
^DD(71,12,1,1,1)="S ^RAMIS(71,""AIMG"",$E(X,1,30),DA)="""""
^DD(71,12,1,1,2)="K ^RAMIS(71,""AIMG"",$E(X,1,30),DA)"
^DD(71,12,1,1,3)="Do not delete!"
^DD(71,12,1,1,"%D",0)="^^2^2^2941005^"
^DD(71,12,1,1,"%D",1,0)="This cross reference is used to identify all procedures with a particular"
^DD(71,12,1,1,"%D",2,0)="imaging type."
^DD(71,12,1,1,"DT")="2941005"
^DD(71,12,3)="Enter an appropriate imaging type for this procedure."
^DD(71,12,21,0)="^^1^1^2940518^^^"
^DD(71,12,21,1,0)="This field is used to associate a particular imaging type to a procedure."
^DD(71,12,23,0)="^^1^1^2940518^^^"
^DD(71,12,23,1,0)="Procedures may be screened by type of imaging."
^DD(71,12,"DT")="2941011"
^DD(71,13,0)="HEALTH SUMMARY WITH REQUEST^*P142'^GMT(142,^0;13^S DIC(""S"")=""I $TR($P(^(0),U,1),""""gmtshadocpn"""",""""GMTSHADOCPN"""")'=""""GMTS HS ADHOC OPTION"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71,13,3)="If you want the health summary to print with the request, enter a health summary type here."
^DD(71,13,12)="Do not choose the 'GMTS HS ADHOC OPTION'."
^DD(71,13,12.1)="S DIC(""S"")=""I $TR($P(^(0),U,1),""""gmtshadocpn"""",""""GMTSHADOCPN"""")'=""""GMTS HS ADHOC OPTION"""""""
^DD(71,13,21,0)="^^3^3^2950720^^^"
^DD(71,13,21,1,0)="This field points to the HEALTH SUMMARY TYPE file.  When a request is made"
^DD(71,13,21,2,0)="this field is checked for an associated Health Summary type and, if one"
^DD(71,13,21,3,0)="exists, it is printed along with the request."
^DD(71,13,23,0)="^^2^2^2950720^^"
^DD(71,13,23,1,0)="This field once resided in the IMAGING LOCATIONS file.  Field number"
^DD(71,13,23,2,0)="seventeen, node zero and piece position seventeen."
^DD(71,13,"DT")="2950608"
^DD(71,14,0)="DEFAULT CAMERA/EQUIP/RM^P78.6'^RA(78.6,^0;14^Q"
^DD(71,14,3)="Enter the default camera/equip/rm for this procedure."
^DD(71,14,21,0)="^^4^4^2960716^"
^DD(71,14,21,1,0)="If a camera/equip/rm associated with this procedure is entered here by the"
^DD(71,14,21,2,0)="ADPAC, it will automatically be entered in the patient's exam record"
^DD(71,14,21,3,0)="as the primary camera/equip/rm when this procedure is registered. The user"
^DD(71,14,21,4,0)="will be able to edit this through exam edit options."
^DD(71,14,"DT")="2951108"
^DD(71,15,0)="PRINT PROCEDURE BARCODE^CJ30^^ ; ^N RA71,RABAR S RA71=$G(^RAMIS(71,D0,0)),RABAR=$E($P(RA71,""^""),1,30) D PSET^%ZISP W:IOBARON]""""&(IOBAROFF]"""") @IOBARON,RABAR,@IOBAROFF D PKILL^%ZISP S X="""""
^DD(71,15,9)="^"
^DD(71,15,9.01)=""
^DD(71,15,9.1)="N RA71,RABAR S RA71=$G(^RAMIS(71,D0,0)),RABAR=$E($P(RA71,""^""),1,30) D PSET^%ZISP W:IOBARON]""""&(IOBAROFF]"""") @IOBARON,RABAR,@IOBAROFF D PKILL^%ZISP S X="""""
^DD(71,15,21,0)="^^2^2^2960124^"
^DD(71,15,21,1,0)="This field can be used on FileMan printouts to print the first thirty"
^DD(71,15,21,2,0)="characters of the procedure name in a barcode format."
^DD(71,15,"DT")="2960124"
^DD(71,16,0)="PRINT CPT BARCODE^CJ8^^ ; ^N RA81,RACPT S RA81=+$P($G(^RAMIS(71,D0,0)),""^"",9) Q:'RA81  S RACPT=$P($G(^ICPT(RA81,0)),""^"") D PSET^%ZISP W:IOBARON]""""&(IOBAROFF]"""") @IOBARON,RACPT,@IOBAROFF D PKILL^%ZISP S X="""""
^DD(71,16,9)="^"
^DD(71,16,9.01)=""
^DD(71,16,9.1)="N RA81,RACPT S RA81=+$P($G(^RAMIS(71,D0,0)),""^"",9) Q:'RA81  S RACPT=$P($G(^ICPT(RA81,0)),""^"") D PSET^%ZISP W:IOBARON]""""&(IOBAROFF]"""") @IOBARON,RACPT,@IOBAROFF D PKILL^%ZISP S X="""""
^DD(71,16,21,0)="^^1^1^2960122^"
^DD(71,16,21,1,0)="This field can be used on FileMan printouts to print the CPT barcode."
^DD(71,16,"DT")="2960124"
^DD(71,17,0)="DISPLAY ED DESC WHEN ORDERED^S^y:YES;n:NO;^0;17^Q"
^DD(71,17,3)="Enter 'YES' if the Educational Description is to be displayed when this procedure is ordered."
^DD(71,17,21,0)="^^4^4^2960228^^"
^DD(71,17,21,1,0)="If the Educational Description of a procedure should be displayed along"
^DD(71,17,21,2,0)="with the procedure message (if any) at the time the procedure is ordered,"
^DD(71,17,21,3,0)="enter 'Yes'.  If only the procedure message should be displayed, enter"
^DD(71,17,21,4,0)="'No'."
^DD(71,17,"DT")="2960223"
^DD(71,18,0)="SINGLE REPORT^S^Y:YES;^0;18^Q"
^DD(71,18,3)="Enter YES if the descendants from this procedure should have their data combined into 1 report"
^DD(71,18,21,0)="^^9^9^2960503^"
^DD(71,18,21,1,0)="This field should only be used for parent procedures."
^DD(71,18,21,2,0)="If this field is left un-answered, then the reporting of this procedure's"
^DD(71,18,21,3,0)="   descendants will be put into separate reports, as in Rad/NM v4.5"
^DD(71,18,21,4,0)="If this field is answered 'Y', then the reporting of this procedure's"
^DD(71,18,21,5,0)="   descendants will be combined into one report, where the case"
^DD(71,18,21,6,0)="   records for these descendants will have the same data for"
^DD(71,18,21,7,0)="   report text, impression, verifier, pre-verifier, verifier,"
^DD(71,18,21,8,0)="   staff(prim & sec), residents(prim & sec), and diagnoses, and"
^DD(71,18,21,9,0)="   all other report-related fields."
^DD(71,18,"DT")="2960322"
^DD(71,19,0)="PROMPT FOR RADIOPHARM RX^S^y:YES;^0;19^Q"
^DD(71,19,3)="Answer 'Yes' if case edits should prompt for Radiopharmaceutical Prescription information for this procedure."
^DD(71,19,21,0)="^^10^10^2970807^^"
^DD(71,19,21,1,0)="This field applies only to Detailed or Series procedures with an Imaging"
^DD(71,19,21,2,0)="Type that uses radiopharmaceuticals. It controls whether case edit and"
^DD(71,19,21,3,0)="status tracking options prompt for prescribing physician, prescribed"
^DD(71,19,21,4,0)="radiopharmaceutical dose and witness to dose administration. If you answer"
^DD(71,19,21,5,0)="'YES' to this field, prescriber prompts will appear for any"
^DD(71,19,21,6,0)="radiopharmaceuticals entered for this procedure.  If this field is left"
^DD(71,19,21,7,0)="blank, prescriber and witness prompts will not appear.  If this field is"
^DD(71,19,21,8,0)="set to 'YES', Status Tracking will prompt during each edit session until"
^DD(71,19,21,9,0)="the data is entered; case edits will always prompt, even if prescriber"
^DD(71,19,21,10,0)="and witness data has already been entered."
^DD(71,19,"DT")="2970108"
^DD(71,20,0)="CONTRAST MEDIA USED^S^Y:Yes;N:No;^0;20^Q"
^DD(71,20,1,0)="^.1"
^DD(71,20,1,1,0)="71^CM"
^DD(71,20,1,1,1)="S ^RAMIS(71,""CM"",$E(X,1,30),DA)="""""
^DD(71,20,1,1,2)="K ^RAMIS(71,""CM"",$E(X,1,30),DA)"
^DD(71,20,1,1,3)="Please do not delete."
^DD(71,20,1,1,"%D",0)="^^4^4^3031031^"
^DD(71,20,1,1,"%D",1,0)="Tracks which Rad/Nuc Med Procedures have associated contrast media or "
^DD(71,20,1,1,"%D",2,0)="medium. This cross-reference is used to display the procedure/contrast "
^DD(71,20,1,1,"%D",3,0)="media or medium link as efficiently (by not hitting every record) as"
^DD(71,20,1,1,"%D",4,0)="possible."
^DD(71,20,1,1,"DT")="3031031"
^DD(71,20,3)="Enter 'Yes' if a contrast agent is used with this procedure."
^DD(71,20,21,0)="^.001^3^3^3031106^^^"
^DD(71,20,21,1,0)="This field contains a value to indicate if a contrast agent is used"
^DD(71,20,21,2,0)="with this Rad/Nuc Med procedure. Acceptable values are: 'Y' for 'Yes'"
^DD(71,20,21,3,0)="and 'N' for 'No'."
^DD(71,20,23,0)="^^1^1^3031106^"
^DD(71,20,23,1,0)="Added with RA*5*45"
^DD(71,20,"DT")="3031031"
^DD(71,50,0)="DEFAULT RADIOPHARMACEUTICALS^71.08PA^^NUC;0"
^DD(71,50,21,0)="^^6^6^2961230^^^^"
^DD(71,50,21,1,0)="Default radiopharmaceuticals and related information are edited by"
^DD(71,50,21,2,0)="ADPACs during system set-up.  If default radiopharmaceutical(s) are"
^DD(71,50,21,3,0)="entered for a procedure, they will be automatically entered on the patient"
^DD(71,50,21,4,0)="record each time this procedure is registered.  Information entered"
^DD(71,50,21,5,0)="by the ADPAC related to the radiopharmaceutical may appear during case"
^DD(71,50,21,6,0)="edit as a default response or may be used for edit checking."
^DD(71,55,0)="DEFAULT MEDICATIONS^71.055PA^^P;0"
^DD(71,55,21,0)="^^5^5^2970523^^^"
^DD(71,55,21,1,0)="Default medication(s) may be entered by the ADPAC for a procedure.  If"
^DD(71,55,21,2,0)="they are entered, the system will automatically enter them on the"
^DD(71,55,21,3,0)="patient's exam record whenever the procedure is registered."
^DD(71,55,21,4,0)="NOTE: Default Radiopharmaceuticals may NOT be entered here; they should be"
^DD(71,55,21,5,0)="entered on a separate field."
^DD(71,55,"DT")="2961212"
^DD(71,75,0)="FILMS NEEDED^71.02P^^F;0"
^DD(71,75,.1)="FILMS NEEDED SUB-FIELD"
^DD(71,75,21,0)="^^2^2^2940518^^^^"
^DD(71,75,21,1,0)="This is a multiple field containing information about the films usually"
^DD(71,75,21,2,0)="needed for this procedure."
^DD(71,100,0)="INACTIVATION DATE^DX^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X D:$D(^RAMIS(71.3,""B"",DA)) INDTCHK^RADD1(DA)"
^DD(71,100,.1)="DATE OF INACTIVATION OF THIS PROCEDURE"
^DD(71,100,3)="Enter the date this procedure became inactive."
^DD(71,100,10)="RAD/NUC MED COORDINATOR"
^DD(71,100,21,0)="^^8^8^2941019^"
^DD(71,100,21,1,0)="This field contains the date this procedure was inactivated by"
^DD(71,100,21,2,0)="the rad/nuc med coordinator. Until the day following the inactivation date, "
^DD(71,100,21,3,0)="the procedure appears on the active procedure list and may be selected."
^DD(71,100,21,4,0)="If this procedure is active in the Common Procedure file, it must be"
^DD(71,100,21,5,0)="removed from the active common procedure list before an inactivation date"
^DD(71,100,21,6,0)="can be entered."
^DD(71,100,21,7,0)=" "
^DD(71,100,21,8,0)="Procedures should always be inactivated instead of deleted."
^DD(71,100,"DT")="2940906"
^DD(71,125,0)="CONTRAST MEDIA^71.0125S^^CM;0"
^DD(71,125,21,0)="^.001^2^2^3031216^^^^"
^DD(71,125,21,1,0)="This field identifies the contrast agent(s) associated with this"
^DD(71,125,21,2,0)="Rad/Nuc Med procedure."
^DD(71,125,23,0)="^.001^1^1^3031216^^^"
^DD(71,125,23,1,0)="This field was added with RA*5*45."
^DD(71,135,0)="DEFAULT CPT MODIFIERS(PROC)^71.0135P^^DCM;0"
^DD(71,150,0)="SYNONYM^71.01^^1;0"
^DD(71,150,.1)="SYNONYM SUB-FIELD"
^DD(71,150,21,0)="^^2^2^2940518^^^^"
^DD(71,150,21,1,0)="This is a multiple field which allows procedure names to be cross-referenced"
^DD(71,150,21,2,0)="by their synonyms."
^DD(71,175,0)="AMIS CODES^71.03PA^^2;0"
^DD(71,175,.1)="AMIS CODES SUB-FIELD"
^DD(71,175,21,0)="^^2^2^2940608^^^^"
^DD(71,175,21,1,0)="This is a multiple field containing information for the AMIS codes"
^DD(71,175,21,2,0)="associated with this procedure."
^DD(71,200,0)="MESSAGE^71.04P^^3;0"
^DD(71,200,21,0)="^^1^1^2960409^^^^"
^DD(71,200,21,1,0)="This is a multiple, used to select messages that pertain to this procedure."
^DD(71,250,0)="CONTRAST MEDIA ACTIVITY LOG^71.06DA^^AUD;0"
^DD(71,300,0)="DESCENDENTS^71.05P^^4;0"
^DD(71,300,21,0)="^^4^4^2950714^^^^"
^DD(71,300,21,1,0)="This is a multiple field containing procedures that are considered"
^DD(71,300,21,2,0)="descendents of this parent procedure.  Only 'Parent' procedures may have"
^DD(71,300,21,3,0)="descendents.  If a 'Parent' procedure is ordered, its descendents will be"
^DD(71,300,21,4,0)="registered during the registration function."
^DD(71,400,0)="NEW PROCEDURE MESSAGE^71.07^^PMES;0"
^DD(71,400,"DT")="2960719"
^DD(71,500,0)="EDUCATIONAL DESCRIPTION^71.09^^EDU;0"
^DD(71,500,21,0)="^^6^6^2960228^"
^DD(71,500,21,1,0)="The text entered here should describe the procedure.  It may be used by"
^DD(71,500,21,2,0)="clinicians who are trying to familiarize themselves with imaging"
^DD(71,500,21,3,0)="procedures that are available via an option within this software system."
^DD(71,500,21,4,0)="This text can also be displayed along with the procedure message during"
^DD(71,500,21,5,0)="the ordering process if the Rad/Nuc Med Procedure file parameter that"
^DD(71,500,21,6,0)="controls displaying it when ordered is set to 'Yes'."
^DD(71,731,0)="MODALITY^71.0731P^^MDL;0"
^DD(71,"B","AMIS CODES",175)=""
^DD(71,"B","AMIS CODES SUB-FIELD",175)="1"
^DD(71,"B","CONTRAST MEDIA",125)=""
^DD(71,"B","CONTRAST MEDIA ACTIVITY LOG",250)=""
^DD(71,"B","CONTRAST MEDIA USED",20)=""
^DD(71,"B","COST OF PROCEDURE",10)=""
^DD(71,"B","CPT CODE",9)=""
^DD(71,"B","DEFAULT CAMERA/EQUIP/RM",14)=""
^DD(71,"B","DEFAULT CPT MODIFIERS(PROC)",135)=""
^DD(71,"B","DEFAULT MEDICATIONS",55)=""
^DD(71,"B","DEFAULT RADIOPHARMACEUTICALS",50)=""
^DD(71,"B","DESCENDENTS",300)=""
^DD(71,"B","DISPLAY ED DESC WHEN ORDERED",17)=""
^DD(71,"B","EDUCATIONAL DESCRIPTION",500)=""
^DD(71,"B","FILMS NEEDED",75)=""
^DD(71,"B","FILMS NEEDED SUB-FIELD",75)="1"
^DD(71,"B","HEALTH SUMMARY WITH REQUEST",13)=""
^DD(71,"B","INACTIVATION DATE",100)=""
^DD(71,"B","MESSAGE",200)=""
^DD(71,"B","MODALITY",731)=""
^DD(71,"B","NAME",.01)=""
^DD(71,"B","NEW PROCEDURE MESSAGE",400)=""
^DD(71,"B","ORIGINAL PROCEDURE?",8)=""
^DD(71,"B","PRINT CPT BARCODE",16)=""
^DD(71,"B","PRINT PROCEDURE BARCODE",15)=""
^DD(71,"B","PROMPT FOR MEDS",5)=""
^DD(71,"B","PROMPT FOR RADIOPHARM RX",19)=""
^DD(71,"B","RAD/NM PHYS APPROVAL REQUIRED",11)=""
^DD(71,"B","REQUIRED FLASH CARD FORMAT",4)=""
^DD(71,"B","REQUIRED FLASH CARD PRINTER",3)=""
^DD(71,"B","SINGLE REPORT",18)=""
^DD(71,"B","STAFF REVIEW REQUIRED",7)=""
^DD(71,"B","SUPPRESS RADIOPHARM PROMPT",2)=""
^DD(71,"B","SYNONYM",150)=""
^DD(71,"B","SYNONYM SUB-FIELD",150)="1"
^DD(71,"B","TYPE OF IMAGING",12)=""
^DD(71,"B","TYPE OF PROCEDURE",6)=""
^DD(71,"B","TYPE OF RAD/NUC MED PROCEDURE",6)="1"
^DD(71,"GL",0,1,.01)=""
^DD(71,"GL",0,2,2)=""
^DD(71,"GL",0,3,3)=""
^DD(71,"GL",0,4,4)=""
^DD(71,"GL",0,5,5)=""
^DD(71,"GL",0,6,6)=""
^DD(71,"GL",0,7,7)=""
^DD(71,"GL",0,8,8)=""
^DD(71,"GL",0,9,9)=""
^DD(71,"GL",0,10,10)=""
^DD(71,"GL",0,11,11)=""
^DD(71,"GL",0,12,12)=""
^DD(71,"GL",0,13,13)=""
^DD(71,"GL",0,14,14)=""
^DD(71,"GL",0,17,17)=""
^DD(71,"GL",0,18,18)=""
^DD(71,"GL",0,19,19)=""
^DD(71,"GL",0,20,20)=""
^DD(71,"GL",1,0,150)=""
^DD(71,"GL",2,0,175)=""
^DD(71,"GL",3,0,200)=""
^DD(71,"GL",4,0,300)=""
^DD(71,"GL","AUD",0,250)=""
^DD(71,"GL","CM",0,125)=""
^DD(71,"GL","DCM",0,135)=""
^DD(71,"GL","EDU",0,500)=""
^DD(71,"GL","F",0,75)=""
^DD(71,"GL","I",1,100)=""
^DD(71,"GL","MDL",0,731)=""
^DD(71,"GL","NUC",0,50)=""
^DD(71,"GL","P",0,55)=""
^DD(71,"GL","PMES",0,400)=""
^DD(71,"IX",.01)=""
^DD(71,"IX",9)=""
^DD(71,"IX",12)=""
^DD(71,"IX",20)=""
^DD(71,"RQ",.01)=""
^DD(71,"RQ",6)=""
^DD(71,"RQ",12)=""
^DD(71,"SB",71.01,150)=""
^DD(71,"SB",71.0125,125)=""
^DD(71,"SB",71.0135,135)=""
^DD(71,"SB",71.02,75)=""
^DD(71,"SB",71.03,175)=""
^DD(71,"SB",71.04,200)=""
^DD(71,"SB",71.05,300)=""
^DD(71,"SB",71.055,55)=""
^DD(71,"SB",71.06,250)=""
^DD(71,"SB",71.07,400)=""
^DD(71,"SB",71.0731,731)=""
^DD(71,"SB",71.08,50)=""
^DD(71,"SB",71.09,500)=""
^DD(71.01,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(71.01,0,"DT")="2910624"
^DD(71.01,0,"NM","SYNONYM")=""
^DD(71.01,0,"UP")="71"
^DD(71.01,.01,0)="SYNONYM^MFX^^0;1^K:X[""""""""!($A(X)=45)!(X["","") X I $D(X) K:$L(X)>15!($L(X)<2) X"
^DD(71.01,.01,.1)="SYNONYMS FOR THIS PROCEDURE"
^DD(71.01,.01,1,0)="^.1"
^DD(71.01,.01,1,1,0)="71^E"
^DD(71.01,.01,1,1,1)="S ^RAMIS(71,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(71.01,.01,1,1,2)="K ^RAMIS(71,""E"",$E(X,1,30),DA(1),DA)"
^DD(71.01,.01,1,1,"%D",0)="^^1^1^2910815^"
^DD(71.01,.01,1,1,"%D",1,0)="Used to look-up procedures by synonym."
^DD(71.01,.01,1,2,0)="71^F^MUMPS"
^DD(71.01,.01,1,2,1)="S ^RAMIS(71,""F"",$$LOW^XLFSTR($E(X,1,30)),DA(1),DA)="""""
^DD(71.01,.01,1,2,2)="K ^RAMIS(71,""F"",$$LOW^XLFSTR($E(X,1,30)),DA(1),DA)"
^DD(71.01,.01,1,2,3)="Do not delete!"
^DD(71.01,.01,1,2,"%D",0)="^^1^1^2950815^^"
^DD(71.01,.01,1,2,"%D",1,0)="    Lowercase cross reference for synonyms. "
^DD(71.01,.01,1,2,"DT")="2950815"
^DD(71.01,.01,3)="Answer must be 2-15 characters in length.  Commas are not allowed."
^DD(71.01,.01,10)="RAD/NUC MED COORDINATOR"
^DD(71.01,.01,21,0)="^^7^7^2940518^^^^"
^DD(71.01,.01,21,1,0)="This field may contain a synonym (2-15 characters) for the procedure.  It "
^DD(71.01,.01,21,2,0)="is recommended that frequently performed procedures be given at least one "
^DD(71.01,.01,21,3,0)="synonym because it allows the procedure to be quickly called up by its "
^DD(71.01,.01,21,4,0)="synonym and as a result, processing time is saved."
^DD(71.01,.01,21,5,0)=" "
^DD(71.01,.01,21,6,0)="Synonyms are assigned by each site and there is no limit as to how many"
^DD(71.01,.01,21,7,0)="synonyms a procedure may have."
^DD(71.01,.01,"DT")="2950815"
^DD(71.01,"B","SYNONYM",.01)=""
^DD(71.01,"B","SYNONYMS FOR THIS PROCEDURE",.01)="1"
^DD(71.01,"GL",0,1,.01)=""
^DD(71.01,"IX",.01)=""
^DD(71.0125,0)="CONTRAST MEDIA SUB-FIELD^^.01^1"
^DD(71.0125,0,"DT")="3041207"
^DD(71.0125,0,"IX","B",71.0125,.01)=""
^DD(71.0125,0,"NM","CONTRAST MEDIA")=""
^DD(71.0125,0,"UP")="71"
^DD(71.0125,.01,0)="CONTRAST MEDIA^MS^I:Ionic Iodinated;N:Non-ionic Iodinated;L:Gadolinium;C:Cholecystographic;G:Gastrografin;B:Barium;M:unspecified contrast media;^0;1^Q"
^DD(71.0125,.01,1,0)="^.1"
^DD(71.0125,.01,1,1,0)="71.0125^B"
^DD(71.0125,.01,1,1,1)="S ^RAMIS(71,DA(1),""CM"",""B"",$E(X,1,30),DA)="""""
^DD(71.0125,.01,1,1,2)="K ^RAMIS(71,DA(1),""CM"",""B"",$E(X,1,30),DA)"
^DD(71.0125,.01,3)="Enter the contrast agent(s) associated with this procedure. "
^DD(71.0125,.01,7.5)="S X=$$UP^XLFSTR(X)"
^DD(71.0125,.01,21,0)="^.001^2^2^3041207^^"
^DD(71.0125,.01,21,1,0)="This field identifies the contrast agent(s) associated with this Rad/Nuc"
^DD(71.0125,.01,21,2,0)="Med procedure."
^DD(71.0125,.01,"DT")="3041207"
^DD(71.0125,"B","CONTRAST MEDIA",.01)=""
^DD(71.0125,"GL",0,1,.01)=""
^DD(71.0125,"IX",.01)=""
^DD(71.0135,0)="DEFAULT CPT MODIFIERS(PROC) SUB-FIELD^^.01^1"
^DD(71.0135,0,"DT")="3000428"
^DD(71.0135,0,"IX","B",71.0135,.01)=""
^DD(71.0135,0,"NM","DEFAULT CPT MODIFIERS(PROC)")=""
^DD(71.0135,0,"UP")="71"
^DD(71.0135,.01,0)="DEFAULT CPT MODIFIERS(PROC)^M*P81.3'^DIC(81.3,^0;1^S DIC(""S"")=""I $$SDP^RACPTMSC(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.0135,.01,1,0)="^.1"
^DD(71.0135,.01,1,1,0)="71.0135^B"
^DD(71.0135,.01,1,1,1)="S ^RAMIS(71,DA(1),""DCM"",""B"",$E(X,1,30),DA)="""""
^DD(71.0135,.01,1,1,2)="K ^RAMIS(71,DA(1),""DCM"",""B"",$E(X,1,30),DA)"
^DD(71.0135,.01,3)=""
^DD(71.0135,.01,4)="D EHDP^RACPTMSC"
^DD(71.0135,.01,12)="Your entry will be screened, using the CPT Package's CPT Modifier - CPT CODE pairing definition."
^DD(71.0135,.01,12.1)="S DIC(""S"")=""I $$SDP^RACPTMSC(+Y)"""
^DD(71.0135,.01,23,0)="^.001^6^6^3000428^^^^"
^DD(71.0135,.01,23,1,0)="One or more default CPT Modifiers may be entered for this"
^DD(71.0135,.01,23,2,0)="procedure.  Each entry will be screened against the CPT CODE"
^DD(71.0135,.01,23,3,0)="for this procedure."
^DD(71.0135,.01,23,4,0)=" "
^DD(71.0135,.01,23,5,0)="Whatever are entered here will be stuffed into the exam"
^DD(71.0135,.01,23,6,0)="record that has this procedure, during exam registration."
^DD(71.0135,.01,"DT")="3000428"
^DD(71.0135,"B","DEFAULT CPT MODIFIERS(PROC)",.01)=""
^DD(71.0135,"GL",0,1,.01)=""
^DD(71.0135,"IX",.01)=""
^DD(71.02,0)="FILMS NEEDED SUB-FIELD^NL^2^2"
^DD(71.02,0,"DT")="2940110"
^DD(71.02,0,"NM","FILMS NEEDED")=""
^DD(71.02,0,"UP")="71"
^DD(71.02,.01,0)="FILM TYPE^M*P78.4'^RA(78.4,^0;1^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0),('$D(^RA(78.4,""""AW"""",1,+Y)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.02,.01,.1)="TYPE OF FILM NEEDED FOR THIS PROCEDURE"
^DD(71.02,.01,3)="For those frequently performed procedures, enter a film type."
^DD(71.02,.01,10)="RAD/NUC MED COORDINATOR"
^DD(71.02,.01,12)="Only active non wasted film types are selectable."
^DD(71.02,.01,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0),('$D(^RA(78.4,""""AW"""",1,+Y)))"""
^DD(71.02,.01,21,0)="^^11^11^2941116^"
^DD(71.02,.01,21,1,0)="This field contains a default value of the type of film (from the Film"
^DD(71.02,.01,21,2,0)="Sizes File) usually needed for this procedure."
^DD(71.02,.01,21,3,0)=" "
^DD(71.02,.01,21,4,0)="During the exam registration process, the system checks this field"
^DD(71.02,.01,21,5,0)="for data.  If data is present, then the information in this field is"
^DD(71.02,.01,21,6,0)="automatically entered into the 'Film Type' field of the exam record.  The"
^DD(71.02,.01,21,7,0)="technologist is allowed to modify this data after performing the exam."
^DD(71.02,.01,21,8,0)=" "
^DD(71.02,.01,21,9,0)="Only procedures that are performed a relatively high number of times"
^DD(71.02,.01,21,10,0)="should have data entered for this field.  The procedure, 'CHEST PA&LAT',"
^DD(71.02,.01,21,11,0)="is a good example."
^DD(71.02,.01,"DT")="2940110"
^DD(71.02,2,0)="NORMAL AMOUNT NEEDED FOR EXAM^NJ2,0^^0;2^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(71.02,2,.1)="NORMAL AMOUNT OF FILM NEEDED FOR THIS EXAM PROCEDURE"
^DD(71.02,2,3)="Enter a number, between 1 and 10, which contains a default for the normal amount of film usually required for this procedure."
^DD(71.02,2,10)="RAD/NUC MED COORDINATOR"
^DD(71.02,2,21,0)="^^11^11^2941019^"
^DD(71.02,2,21,1,0)="This field contains a default value (a number 1-10) of the normal amount "
^DD(71.02,2,21,2,0)="of film usually required for this procedure. "
^DD(71.02,2,21,3,0)=" "
^DD(71.02,2,21,4,0)="During the exam registration process, the system checks this field for"
^DD(71.02,2,21,5,0)="data.  If data is present, then the information in this field is stuffed"
^DD(71.02,2,21,6,0)="into the 'Number Used' field of the exam record.  The technologist is"
^DD(71.02,2,21,7,0)="allowed to modify this data after performing the exam."
^DD(71.02,2,21,8,0)=" "
^DD(71.02,2,21,9,0)="Only procedures that are performed a relatively high number of times"
^DD(71.02,2,21,10,0)="should have data entered for this field.  The procedure, 'CHEST PA&LAT',"
^DD(71.02,2,21,11,0)="is a good example."
^DD(71.02,2,"DT")="2840831"
^DD(71.02,"B","FILM TYPE",.01)=""
^DD(71.02,"B","NORMAL AMOUNT NEEDED FOR EXAM",2)=""
^DD(71.02,"GL",0,1,.01)=""
^DD(71.02,"GL",0,2,2)=""
^DD(71.03,0)="AMIS CODES SUB-FIELD^NL^4^4"
^DD(71.03,0,"DT")="2921112"
^DD(71.03,0,"NM","AMIS CODES")=""
^DD(71.03,0,"UP")="71"
^DD(71.03,.01,0)="AMIS CODE^MP71.1'X^RAMIS(71.1,^0;1^D DD71^RASITE Q"
^DD(71.03,.01,.1)="AMIS CODE FOR THIS PROCEDURE"
^DD(71.03,.01,1,0)="^.1^^-1"
^DD(71.03,.01,1,1,0)="71^AC"
^DD(71.03,.01,1,1,1)="S ^RAMIS(71,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(71.03,.01,1,1,2)="K ^RAMIS(71,""AC"",$E(X,1,30),DA(1),DA)"
^DD(71.03,.01,1,1,"%D",0)="^^2^2^3040721^"
^DD(71.03,.01,1,1,"%D",1,0)="This cross reference is used to determine the AMIS codes associated with"
^DD(71.03,.01,1,1,"%D",2,0)="a procedure."
^DD(71.03,.01,1,1,"DT")="2910624"
^DD(71.03,.01,3)="Enter a valid AMIS code for this procedure."
^DD(71.03,.01,10)="RAD/NUC MED COORDINATOR"
^DD(71.03,.01,21,0)="^^7^7^2941019^"
^DD(71.03,.01,21,1,0)="This field contains the valid AMIS code(s) (from the Major AMIS Codes"
^DD(71.03,.01,21,2,0)="File) associated with this exam procedure."
^DD(71.03,.01,21,3,0)=" "
^DD(71.03,.01,21,4,0)="There may be more than one AMIS code associated with each procedure.  If the"
^DD(71.03,.01,21,5,0)="procedure type is 'Detailed', there will be one AMIS code.  If the "
^DD(71.03,.01,21,6,0)="procedure type is 'Series', there will be more than one AMIS code.  'Broad'"
^DD(71.03,.01,21,7,0)="types of procedures have no AMIS code."
^DD(71.03,.01,"DT")="2921112"
^DD(71.03,2,0)="AMIS WEIGHT MULTIPLIER^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(71.03,2,.1)="AMIS WEIGHT MULTIPLIER ASSOCIATED WITH THIS EXAM"
^DD(71.03,2,3)="Enter a number, between 0 and 99, to indicate the number of times to multiply the weighted work units associated with this AMIS code."
^DD(71.03,2,10)="RAD/NUC MED COORDINATOR"
^DD(71.03,2,21,0)="^^15^15^2941019^^"
^DD(71.03,2,21,1,0)="This field contains a number (0-99) to indicate to the various workload"
^DD(71.03,2,21,2,0)="report routines how many times to multiply the weighted work units"
^DD(71.03,2,21,3,0)="associated with the AMIS code.  The weight for each AMIS code is stored"
^DD(71.03,2,21,4,0)="in the 'MAJOR RAD/NUC MED AMIS CODE' file."
^DD(71.03,2,21,5,0)=" "
^DD(71.03,2,21,6,0)="Most multipliers will be 1.  However, there are some that are greater"
^DD(71.03,2,21,7,0)="than 1.  For example, the procedure called 'UPPER GI + SMALL BOWEL' has"
^DD(71.03,2,21,8,0)="the AMIS code 9-GASTROINTESTINAL which has a weight of 6 work units."
^DD(71.03,2,21,9,0)="But, the AMIS multiplier is 2.  Therefore on the workload reports, the"
^DD(71.03,2,21,10,0)="site will get credit for 12 weighted work units each time it is performed."
^DD(71.03,2,21,11,0)=" "
^DD(71.03,2,21,12,0)="Radiology Central Office has directed that the weighted work unit for"
^DD(71.03,2,21,13,0)="Ultrasound procedures involving multiple organs in the same visit can be"
^DD(71.03,2,21,14,0)="counted only once if the organs are located close to each other.  (i.e."
^DD(71.03,2,21,15,0)="Liver and Gallbladder)"
^DD(71.03,2,"DT")="2850215"
^DD(71.03,3,0)="BILATERAL?^S^Y:YES;N:NO;^0;3^Q"
^DD(71.03,3,.1)="IS THIS A BILATERAL PROCEDURE?"
^DD(71.03,3,3)="Enter a 'YES' if this procedure is considered bilateral."
^DD(71.03,3,10)="RAD/NUC MED COORDINATOR"
^DD(71.03,3,21,0)="^^6^6^2941019^"
^DD(71.03,3,21,1,0)="This field will contain a 'Yes' to indicate that this is a bilateral"
^DD(71.03,3,21,2,0)="procedure or a 'No' if it is not a bilateral procedure.  If it contains"
^DD(71.03,3,21,3,0)="a 'Yes', then the system multiplies the AMIS weight by 2. "
^DD(71.03,3,21,4,0)=" "
^DD(71.03,3,21,5,0)="No harm is done by indicating the 'Multiplier' as '2' and 'Bilateral' as"
^DD(71.03,3,21,6,0)="'Yes'.  The system will only use '2' as the multiplier, not (2*2) '4'."
^DD(71.03,3,"DT")="2850216"
^DD(71.03,4,0)="CT HEAD OR BODY?^S^H:HEAD;B:BODY;^0;4^Q"
^DD(71.03,4,.1)="IS THIS CT OF THE HEAD OR BODY?"
^DD(71.03,4,10)="RAD/NUC MED COORDINATOR"
^DD(71.03,4,21,0)="^^9^9^2940608^"
^DD(71.03,4,21,1,0)="This field contains a 'B' or 'H' value to indicate if this CT procedure is"
^DD(71.03,4,21,2,0)="of the 'body' or of the 'head' area."
^DD(71.03,4,21,3,0)=" "
^DD(71.03,4,21,4,0)="Radiology Central Office has directed that the weighted work unit for two"
^DD(71.03,4,21,5,0)="CT procedures performed in the same visit can be counted twice only if the"
^DD(71.03,4,21,6,0)="procedures are performed on the 'head' and the 'body' areas.  If two CT's"
^DD(71.03,4,21,7,0)="are performed on the 'head' area during the same visit, then the weighted"
^DD(71.03,4,21,8,0)="work unit for the CT is counted only once.  The same is true for two CT's"
^DD(71.03,4,21,9,0)="performed on the 'body' area during a visit."
^DD(71.03,4,"DT")="2850216"
^DD(71.03,"B","AMIS CODE",.01)=""
^DD(71.03,"B","AMIS CODE FOR THIS PROCEDURE",.01)="1"
^DD(71.03,"B","AMIS WEIGHT MULTIPLIER",2)=""
^DD(71.03,"B","BILATERAL?",3)=""
^DD(71.03,"B","CT HEAD OR BODY?",4)=""
^DD(71.03,"B","IS THIS A BILATERAL PROCEDURE?",3)="1"
^DD(71.03,"GL",0,1,.01)=""
^DD(71.03,"GL",0,2,2)=""
^DD(71.03,"GL",0,3,3)=""
^DD(71.03,"GL",0,4,4)=""
^DD(71.03,"IX",.01)=""
^DD(71.04,0)="MESSAGE SUB-FIELD^^.01^1"
^DD(71.04,0,"IX","B",71.04,.01)=""
^DD(71.04,0,"NM","MESSAGE")=""
^DD(71.04,0,"UP")="71"
^DD(71.04,.01,0)="MESSAGE^MP71.4'^RAMIS(71.4,^0;1^Q"
^DD(71.04,.01,1,0)="^.1"
^DD(71.04,.01,1,1,0)="71.04^B"
^DD(71.04,.01,1,1,1)="S ^RAMIS(71,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(71.04,.01,1,1,2)="K ^RAMIS(71,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(71.04,.01,1,1,3)="DO NOT DELETE"
^DD(71.04,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(71.04,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(71.04,.01,3)="Select one or more messages that should be displayed to the individual requesting this procedure at the time the request is entered."
^DD(71.04,.01,21,0)="^^2^2^2960409^^^"
^DD(71.04,.01,21,1,0)="This field contains any message from the RAD/NUC PROCEDURE MESSAGE file"
^DD(71.04,.01,21,2,0)="that relate to this procedure."
^DD(71.04,.01,"DT")="2910304"
^DD(71.04,"B","MESSAGE",.01)=""
^DD(71.04,"GL",0,1,.01)=""
^DD(71.04,"IX",.01)=""
^DD(71.05,0)="DESCENDENTS SUB-FIELD^^.01^1"
^DD(71.05,0,"DT")="2950714"
^DD(71.05,0,"IX","B",71.05,.01)=""
^DD(71.05,0,"NM","DESCENDENTS")=""
^DD(71.05,0,"UP")="71"
^DD(71.05,.01,0)="DESCENDENTS^M*P71'X^RAMIS(71,^0;1^S DIC(""S"")=""I $$DESC^RAUTL17(D0,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.05,.01,1,0)="^.1"
^DD(71.05,.01,1,1,0)="71.05^B"
^DD(71.05,.01,1,1,1)="S ^RAMIS(71,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(71.05,.01,1,1,2)="K ^RAMIS(71,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(71.05,.01,1,1,3)="DO NOT DELETE"
^DD(71.05,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(71.05,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(71.05,.01,1,2,0)="71^ADESC"
^DD(71.05,.01,1,2,1)="S ^RAMIS(71,""ADESC"",$E(X,1,30),DA(1),DA)="""""
^DD(71.05,.01,1,2,2)="K ^RAMIS(71,""ADESC"",$E(X,1,30),DA(1),DA)"
^DD(71.05,.01,1,2,3)="Do not delete."
^DD(71.05,.01,1,2,"%D",0)="^^1^1^2950112^"
^DD(71.05,.01,1,2,"%D",1,0)="This cross reference is used to find a descendent's parent procedure."
^DD(71.05,.01,1,2,"DT")="2941013"
^DD(71.05,.01,3)="Enter a procedure name which is related to the parent procedure."
^DD(71.05,.01,12)="Select only active detailed or series procedures of the same imaging type as the parent."
^DD(71.05,.01,12.1)="S DIC(""S"")=""I $$DESC^RAUTL17(D0,+Y)"""
^DD(71.05,.01,21,0)="^^3^3^2950714^^^^"
^DD(71.05,.01,21,1,0)="This field links related procedures to one parent procedure.  When a"
^DD(71.05,.01,21,2,0)="parent procedure is ordered, its descendents are registered during the"
^DD(71.05,.01,21,3,0)="registration function."
^DD(71.05,.01,"DEL",1,0)="I $$DELDESC^RADD3(.DA)"
^DD(71.05,.01,"DT")="2950714"
^DD(71.05,"B","DESCENDENTS",.01)=""
^DD(71.05,"GL",0,1,.01)=""
^DD(71.05,"IX",.01)=""
^DD(71.055,0)="DEFAULT MEDICATIONS SUB-FIELD^^2^2"
^DD(71.055,0,"DT")="2970419"
^DD(71.055,0,"IX","B",71.055,.01)=""
^DD(71.055,0,"NM","DEFAULT MEDICATIONS")=""
^DD(71.055,0,"UP")="71"
^DD(71.055,.01,0)="DEFAULT MEDICATION^M*P50'^PSDRUG(^0;1^S DIC(""S"")=""I $$DCHK^RADD1(""""P"""",DT,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.055,.01,1,0)="^.1"
^DD(71.055,.01,1,1,0)="71.055^B"
^DD(71.055,.01,1,1,1)="S ^RAMIS(71,DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(71.055,.01,1,1,2)="K ^RAMIS(71,DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(71.055,.01,3)="Enter a medication routinely used with this procedure."
^DD(71.055,.01,12)="Only active non-radiopharmaceuticals may be selected."
^DD(71.055,.01,12.1)="S DIC(""S"")=""I $$DCHK^RADD1(""""P"""",DT,+Y)"""
^DD(71.055,.01,21,0)="^^5^5^2970523^^^"
^DD(71.055,.01,21,1,0)="Default medication(s) may be entered by the ADPAC for a procedure.  If"
^DD(71.055,.01,21,2,0)="they are entered, the system will automatically enter them on the"
^DD(71.055,.01,21,3,0)="patient's exam record whenever the procedure is registered."
^DD(71.055,.01,21,4,0)="NOTE:  Default Radiopharmaceuticals may NOT be entered here; they should"
^DD(71.055,.01,21,5,0)="be entered on a separate field."
^DD(71.055,.01,"DT")="2970419"
^DD(71.055,2,0)="DEFAULT MED DOSE^FX^^0;2^K:$L(X)>40!($L(X)<3)!((X'?0.5N0.1"".""0.3N1"" ""1.30A)&(X'?0.5N0.1"".""0.3N1.30A)) X"
^DD(71.055,2,3)="Enter the default medication dosage."
^DD(71.055,2,21,0)="^^6^6^2970419^^"
^DD(71.055,2,21,1,0)="This is the default dose of this medication when administered for this"
^DD(71.055,2,21,2,0)="procedure.  If a default dose is entered for this medication it will be"
^DD(71.055,2,21,3,0)="automatically entered on the patient's exam record at the time this"
^DD(71.055,2,21,4,0)="procedure is registered.  Acceptable formats are: 99999.999"
^DD(71.055,2,21,5,0)="unit_of_measure -OR- 99999 unit_of_measure.  Unit_Of_Measure may be"
^DD(71.055,2,21,6,0)="between 1-30 characters in length.  Example:  2.5 mg"
^DD(71.055,2,"DT")="2961212"
^DD(71.055,"B","DEFAULT MED DOSE",2)=""
^DD(71.055,"B","DEFAULT MEDICATION",.01)=""
^DD(71.055,"GL",0,1,.01)=""
^DD(71.055,"GL",0,2,2)=""
^DD(71.055,"IX",.01)=""
^DD(71.06,0)="CONTRAST MEDIA ACTIVITY LOG SUB-FIELD^^3^3"
^DD(71.06,0,"DT")="3031202"
^DD(71.06,0,"IX","B",71.06,.01)=""
^DD(71.06,0,"NM","CONTRAST MEDIA ACTIVITY LOG")=""
^DD(71.06,0,"UP")="71"
^DD(71.06,.01,0)="DATE/TIME EDITED^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(71.06,.01,1,0)="^.1"
^DD(71.06,.01,1,1,0)="71.06^B"
^DD(71.06,.01,1,1,1)="S ^RAMIS(71,DA(1),""AUD"",""B"",$E(X,1,30),DA)="""""
^DD(71.06,.01,1,1,2)="K ^RAMIS(71,DA(1),""AUD"",""B"",$E(X,1,30),DA)"
^DD(71.06,.01,1,1,3)="Do not delete; used in the generation of the contrast media history report."
^DD(71.06,.01,1,1,"%D",0)="^.101^2^2^3031205^^"
^DD(71.06,.01,1,1,"%D",1,0)="This cross-reference is used to generate a report that displays the "
^DD(71.06,.01,1,1,"%D",2,0)="Contrast Media history for Rad/Nuc Med Procedure (#71) file records. "
^DD(71.06,.01,1,1,"DT")="3031205"
^DD(71.06,.01,3)="This field contains a system generated date/time of when the contrast medium or media data was edited for this Rad/Nuc Med Procedure file record."
^DD(71.06,.01,21,0)="^.001^2^2^3031202^^"
^DD(71.06,.01,21,1,0)="This field tracks the date/time the contrast medium or media data was edited"
^DD(71.06,.01,21,2,0)="for this specific Rad/Nuc Med Procedure file record."
^DD(71.06,.01,23,0)="^.001^4^4^3031202^^"
^DD(71.06,.01,23,1,0)="The data in this sub-file will be triggered from a M cross-reference on "
^DD(71.06,.01,23,2,0)="the CONTRAST MEDIA field resident in the CONTRAST MEDIA sub-file."
^DD(71.06,.01,23,3,0)=" "
^DD(71.06,.01,23,4,0)="The CONTRAST MEDIA sub-file is: 71.0125, .01 is the field."
^DD(71.06,.01,"DT")="3031205"
^DD(71.06,2,0)="PRIOR CONTRAST MEDIA VALUE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(71.06,2,3)="This field contains the system generated contrast medium or media data of the Rad/Nuc Med Procedure record prior to edit."
^DD(71.06,2,21,0)="^^2^2^3031202^"
^DD(71.06,2,21,1,0)="This field tracks the contrast media of the procedure before the edit"
^DD(71.06,2,21,2,0)="occurs."
^DD(71.06,2,"DT")="3031202"
^DD(71.06,3,0)="USER WHO EDITED CONTRAST^P200'^VA(200,^0;3^Q"
^DD(71.06,3,3)="This is a system generated field that tracks the name of the person editing the contrast media data for this procedure."
^DD(71.06,3,21,0)="^^2^2^3031202^"
^DD(71.06,3,21,1,0)="This field tracks the person editing the contrast media data for this"
^DD(71.06,3,21,2,0)="procedure."
^DD(71.06,3,"DT")="3031202"
^DD(71.06,"B","DATE/TIME EDITED",.01)=""
^DD(71.06,"B","PRIOR CONTRAST MEDIA VALUE",2)=""
^DD(71.06,"B","USER WHO EDITED CONTRAST",3)=""
^DD(71.06,"GL",0,1,.01)=""
^DD(71.06,"GL",0,2,2)=""
^DD(71.06,"GL",0,3,3)=""
^DD(71.06,"IX",.01)=""
^DD(71.07,0)="NEW PROCEDURE MESSAGE SUB-FIELD^^.01^1"
^DD(71.07,0,"DT")="2960221"
^DD(71.07,0,"NM","NEW PROCEDURE MESSAGE")=""
^DD(71.07,0,"UP")="71"
^DD(71.07,.01,0)="NEW PROCEDURE MESSAGE^W^^0;1^Q"
^DD(71.07,.01,3)="Enter the appropriate message for this procedure."
^DD(71.07,.01,21,0)="^^2^2^2960221^^"
^DD(71.07,.01,21,1,0)="This field contains messages concerning special requirements when ordering"
^DD(71.07,.01,21,2,0)="a procedure.  Messages cannot begin with punctuation marks."
^DD(71.07,.01,"DT")="2960719"
^DD(71.07,"B","NEW PROCEDURE MESSAGE",.01)=""
^DD(71.07,"GL",0,1,.01)=""
^DD(71.0731,0)="MODALITY SUB-FIELD^^.01^1"
^DD(71.0731,0,"DT")="2990405"
^DD(71.0731,0,"IX","B",71.0731,.01)=""
^DD(71.0731,0,"NM","MODALITY")=""
^DD(71.0731,0,"UP")="71"
^DD(71.0731,.01,0)="MODALITY^MP73.1'^RAMIS(73.1,^0;1^Q"
^DD(71.0731,.01,1,0)="^.1"
^DD(71.0731,.01,1,1,0)="71.0731^B"
^DD(71.0731,.01,1,1,1)="S ^RAMIS(71,DA(1),""MDL"",""B"",$E(X,1,30),DA)="""""
^DD(71.0731,.01,1,1,2)="K ^RAMIS(71,DA(1),""MDL"",""B"",$E(X,1,30),DA)"
^DD(71.0731,.01,3)="Choose a modality from the pre-defined list"
^DD(71.0731,.01,"DT")="2990405"
^DD(71.0731,"B","MODALITY",.01)=""
^DD(71.0731,"GL",0,1,.01)=""
^DD(71.0731,"IX",.01)=""
^DD(71.08,0)="DEFAULT RADIOPHARMACEUTICALS SUB-FIELD^^7^7"
^DD(71.08,0,"DT")="2970514"
^DD(71.08,0,"IX","B",71.08,.01)=""
^DD(71.08,0,"NM","DEFAULT RADIOPHARMACEUTICALS")=""
^DD(71.08,0,"UP")="71"
^DD(71.08,.01,0)="DEFAULT RADIOPHARMACEUTICAL^M*P50'^PSDRUG(^0;1^S DIC(""S"")=""I $$DCHK^RADD1(""""R"""",DT,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.08,.01,1,0)="^.1"
^DD(71.08,.01,1,1,0)="71.08^B"
^DD(71.08,.01,1,1,1)="S ^RAMIS(71,DA(1),""NUC"",""B"",$E(X,1,30),DA)="""""
^DD(71.08,.01,1,1,2)="K ^RAMIS(71,DA(1),""NUC"",""B"",$E(X,1,30),DA)"
^DD(71.08,.01,3)="Enter default radiopharmaceutical associated with this nuclear medicine procedure."
^DD(71.08,.01,10)="Rad/Nuc Med ADPAC"
^DD(71.08,.01,12)="Only active radiopharmaceuticals are valid."
^DD(71.08,.01,12.1)="S DIC(""S"")=""I $$DCHK^RADD1(""""R"""",DT,+Y)"""
^DD(71.08,.01,21,0)="^^7^7^2960925^^^"
^DD(71.08,.01,21,1,0)="The radiopharmaceutical entered here will be automatically entered as a"
^DD(71.08,.01,21,2,0)="radiopharmaceutical on patients' nuclear med exam records during"
^DD(71.08,.01,21,3,0)="registration.  This information can be changed, if necessary, during case"
^DD(71.08,.01,21,4,0)="edit.  If nothing is entered in this field, no radiopharmaceuticals will"
^DD(71.08,.01,21,5,0)="be automatically entered during registration for this procedure.  No"
^DD(71.08,.01,21,6,0)="default radiopharmaceuticals may be used on 'parent' or 'broad' type"
^DD(71.08,.01,21,7,0)="procedures."
^DD(71.08,.01,"DT")="2960122"
^DD(71.08,2,0)="USUAL DOSE^NJ10,4X^^0;2^K:((X/10*10)'=+X!(+X=0))!(X>99999.9999)!(X<.0001)!(X?.E1"".""5N.N) X X:$D(X) ^DD(71.08,2,9.2)"
^DD(71.08,2,.1)="USUAL DOSE (in mCi)"
^DD(71.08,2,3)="Enter usual dose between .0001 and 99999.9999, expressed in mCi."
^DD(71.08,2,9.2)="K:'$$USUAL^RADD2(.DA,$G(X)) X"
^DD(71.08,2,10)="Rad/Nuc Med ADPAC"
^DD(71.08,2,21,0)="^^4^4^2970514^^^^"
^DD(71.08,2,21,1,0)="This is the usual dosage (in mCi) associated with this"
^DD(71.08,2,21,2,0)="radiopharmaceutical.  It will appear as an informational item on the"
^DD(71.08,2,21,3,0)="screen just before the user is prompted for the actual Dose.  If nothing"
^DD(71.08,2,21,4,0)="is entered in this field, no usual dose information will be displayed."
^DD(71.08,2,"DT")="2970514"
^DD(71.08,3,0)="DFLT ROUTE OF ADMINISTRATION^P71.6'^RAMIS(71.6,^0;3^Q"
^DD(71.08,3,3)="Enter the default route of administration when this radiopharmaceutical is administered for this procedure."
^DD(71.08,3,10)="Rad/Nuc Med ADPAC"
^DD(71.08,3,21,0)="^^5^5^2960716^^^^"
^DD(71.08,3,21,1,0)="This is the route of administration commonly associated with this"
^DD(71.08,3,21,2,0)="radiopharmaceutical for this procedure.  It will appear as the default"
^DD(71.08,3,21,3,0)="response when the route of administration is asked during case editing."
^DD(71.08,3,21,4,0)="If nothing is entered in this field, no default route of administration"
^DD(71.08,3,21,5,0)="will be displayed."
^DD(71.08,3,"DT")="2960614"
^DD(71.08,4,0)="DEFAULT SITE OF ADMINISTRATION^*P71.7'^RAMIS(71.7,^0;4^S DIC(""S"")=""N RA7108 S RA7108=$G(^RAMIS(71,DA(1),""""NUC"""",DA,0)) I $S(+$P(RA7108,""""^"""",3):$D(^RAMIS(71.6,+$P(RA7108,""""^"""",3),""""SITE"""",""""B"""",+Y)),1:1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.08,4,3)="Enter the default site of administration when this radiopharmaceutical is entered for this procedure."
^DD(71.08,4,10)="Rad/Nuc Med ADPAC"
^DD(71.08,4,12)="for nuclear med only, must be valid site defined for this route"
^DD(71.08,4,12.1)="S DIC(""S"")=""N RA7108 S RA7108=$G(^RAMIS(71,DA(1),""""NUC"""",DA,0)) I $S(+$P(RA7108,""""^"""",3):$D(^RAMIS(71.6,+$P(RA7108,""""^"""",3),""""SITE"""",""""B"""",+Y)),1:1)"""
^DD(71.08,4,21,0)="^^5^5^2960925^^^^"
^DD(71.08,4,21,1,0)="The default bodily site for administering this radiopharmaceutical for"
^DD(71.08,4,21,2,0)="this procedure should be entered here.  The system will use this as a"
^DD(71.08,4,21,3,0)="default response during case editing.  If nothing is entered here, there"
^DD(71.08,4,21,4,0)="will be no default response to the Site of Administration question during"
^DD(71.08,4,21,5,0)="case editing."
^DD(71.08,4,"DT")="2960925"
^DD(71.08,5,0)="HIGH ADULT DOSE^RNJ10,4X^^0;5^K:((X/10*10)'=+X!(+X=0))!(X>99999.9999)!(X<.0001)!(X?.E1"".""5N.N) X X:$D(X) ^DD(71.08,5,9.2)"
^DD(71.08,5,.1)="HIGH ADULT DOSE (in mCi)"
^DD(71.08,5,3)="Enter upper dosage limit between .0001 and 99999.9999, expressed in mCi."
^DD(71.08,5,9.2)="N RALDSE S RALDSE=+$P($G(^RAMIS(71,DA(1),""NUC"",DA,0)),""^"",6) D:X<RALDSE EN^DDIOL(""The High Adult Dose must be greater than the Low Adult Dose of: ""_RALDSE) K:X<RALDSE X"
^DD(71.08,5,10)="Rad/Nuc Med ADPAC"
^DD(71.08,5,21,0)="^^6^6^2970514^^^"
^DD(71.08,5,21,1,0)="This is the highest usual adult dosage commonly associated with this"
^DD(71.08,5,21,2,0)="radiopharmaceutical when administered for this procedure.  The system will"
^DD(71.08,5,21,3,0)="display this value and the low adult dose when asking for the actual"
^DD(71.08,5,21,4,0)="dosage during case editing.  If the dosage entered for an exam falls"
^DD(71.08,5,21,5,0)="outside of the usual high/low range, the person editing the case will see"
^DD(71.08,5,21,6,0)="a warning message.  This is a mandatory data item."
^DD(71.08,5,"DT")="2970514"
^DD(71.08,6,0)="LOW ADULT DOSE^NJ10,4^^0;6^K:+X'=X!(X>99999.9999)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(71.08,6,.1)="LOW ADULT DOSE (in mCi)"
^DD(71.08,6,3)="Enter the lower dosage limit between .0001 and 99999.9999, expressed in mCi."
^DD(71.08,6,10)="Rad/Nuc Med ADPAC"
^DD(71.08,6,21,0)="^^7^7^2970514^^^"
^DD(71.08,6,21,1,0)="This is the lowest usual adult dosage commonly associated with this"
^DD(71.08,6,21,2,0)="radiopharmaceutical when administered for this procedure.  The system will"
^DD(71.08,6,21,3,0)="display this value and the high adult dose when asking for the actual"
^DD(71.08,6,21,4,0)="dosage during case editing.  If the dosage entered for an exam falls"
^DD(71.08,6,21,5,0)="outside of the usual high/low range, the person editing the case will see"
^DD(71.08,6,21,6,0)="a warning message.  If you do not want a warning to appear no matter how"
^DD(71.08,6,21,7,0)="low the dosage entered, do not enter a low range dosage here."
^DD(71.08,6,"DT")="2970514"
^DD(71.08,7,0)="DEFAULT FORM^S^L:Liquid;G:Gas;A:Aerosol;P:Solid (Pill);S:Solid (Other);^0;7^Q"
^DD(71.08,7,3)="Enter the default form of the Radiopharmaceutical."
^DD(71.08,7,21,0)="^^9^9^2970419^^"
^DD(71.08,7,21,1,0)="This is the form of this Radiopharmaceutical when used in this procedure."
^DD(71.08,7,21,2,0)="If entered, it will be used as the default answer to the 'Form' prompt"
^DD(71.08,7,21,3,0)="during case edits.  Choices are as follows:"
^DD(71.08,7,21,4,0)=" "
^DD(71.08,7,21,5,0)="  Liquid          (e.g. all injections)"
^DD(71.08,7,21,6,0)="  Gas             (e.g. xenon, krypton)"
^DD(71.08,7,21,7,0)="  Aerosol         (e.g.  DTPA aerosol)"
^DD(71.08,7,21,8,0)="  Solid (Pill)    (e.g. I-123 or I-131 pill, schilling test)"
^DD(71.08,7,21,9,0)="  Solid (Other)   (e.g. radioactive egg for gastric emptying time)"
^DD(71.08,7,"DT")="2960917"
^DD(71.08,"B","DEFAULT FORM",7)=""
^DD(71.08,"B","DEFAULT RADIOPHARMACEUTICAL",.01)=""
^DD(71.08,"B","DEFAULT SITE OF ADMINISTRATION",4)=""
^DD(71.08,"B","DFLT ROUTE OF ADMINISTRATION",3)=""
^DD(71.08,"B","HIGH ADULT DOSE",5)=""
^DD(71.08,"B","HIGH ADULT DOSE (in mCi)",5)="1"
^DD(71.08,"B","LOW ADULT DOSE",6)=""
^DD(71.08,"B","LOW ADULT DOSE (in mCi)",6)="1"
^DD(71.08,"B","USUAL DOSE",2)=""
^DD(71.08,"B","USUAL DOSE (in mCi)",2)="1"
^DD(71.08,"GL",0,1,.01)=""
^DD(71.08,"GL",0,2,2)=""
^DD(71.08,"GL",0,3,3)=""
^DD(71.08,"GL",0,4,4)=""
^DD(71.08,"GL",0,5,5)=""
^DD(71.08,"GL",0,6,6)=""
^DD(71.08,"GL",0,7,7)=""
^DD(71.08,"IX",.01)=""
^DD(71.08,"RQ",5)=""
^DD(71.09,0)="EDUCATIONAL DESCRIPTION SUB-FIELD^^.01^1"
^DD(71.09,0,"DT")="2960221"
^DD(71.09,0,"NM","EDUCATIONAL DESCRIPTION")=""
^DD(71.09,0,"UP")="71"
^DD(71.09,.01,0)="EDUCATIONAL DESCRIPTION^W^^0;1^Q"
^DD(71.09,.01,3)="Enter description, purpose, and educational information about this procedure."
^DD(71.09,.01,21,0)="^^7^7^2960228^"
^DD(71.09,.01,21,1,0)="The text entered here should describe the procedure and give information"
^DD(71.09,.01,21,2,0)="about its purpose in confirming or eliminating various diagnoses.  It may"
^DD(71.09,.01,21,3,0)="be used for educational purposes by clinicians who are trying to"
^DD(71.09,.01,21,4,0)="familiarize themselves with imaging procedures that are available. This"
^DD(71.09,.01,21,5,0)="text can also be displayed along with the Procedure Message during the"
^DD(71.09,.01,21,6,0)="ordering process if the Rad/Nuc Med Procedure file parameter that controls"
^DD(71.09,.01,21,7,0)="displaying when ordered is set to 'Yes'."
^DD(71.09,.01,"DT")="2960221"
^DD(71.09,"B","EDUCATIONAL DESCRIPTION",.01)=""
^DD(71.09,"GL",0,1,.01)=""
^DD(71.1,0)="FIELD^^2^3"
^DD(71.1,0,"DDA")="N"
^DD(71.1,0,"DT")="2921112"
^DD(71.1,0,"IX","B",71.1,.01)=""
^DD(71.1,0,"NM","MAJOR RAD/NUC MED AMIS CODES")=""
^DD(71.1,0,"PT",71.03,.01)=""
^DD(71.1,0,"VR")="5.0"
^DD(71.1,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.1,.001,0)="MAJOR AMIS CODE^NJ2,0^^ ^K:+X'=X!(X>27)!(X<1)!(X?.E1"".""1N.N) X"
^DD(71.1,.001,.1)="MAJOR RAD/NUC MED AMIS CODE"
^DD(71.1,.001,3)="Type a Number between 1 and 27, 0 Decimal Digits"
^DD(71.1,.001,10)="CENTRAL OFFICE"
^DD(71.1,.001,21,0)="^^5^5^3040203^"
^DD(71.1,.001,21,1,0)="This field contains the number, between 1 and 27, of this major AMIS code."
^DD(71.1,.001,21,2,0)="AMIS codes are used in the compilation of various workload reports, "
^DD(71.1,.001,21,3,0)="including the AMIS Report. On certain reports that are sorted by"
^DD(71.1,.001,21,4,0)="procedure, the sort is actually done by the AMIS category of the"
^DD(71.1,.001,21,5,0)="procedure."
^DD(71.1,.001,"DT")="2940518"
^DD(71.1,.01,0)="DESCRIPTION^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(71.1,.01,.1)="DESCRIPTION OF THIS MAJOR AMIS CODE"
^DD(71.1,.01,1,0)="^.1"
^DD(71.1,.01,1,1,0)="71.1^B"
^DD(71.1,.01,1,1,1)="S ^RAMIS(71.1,""B"",$E(X,1,30),DA)="""""
^DD(71.1,.01,1,1,2)="K ^RAMIS(71.1,""B"",$E(X,1,30),DA)"
^DD(71.1,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(71.1,.01,1,1,"%D",1,0)="     Regular 'B' crosss reference assigned by FileMan."
^DD(71.1,.01,3)="Enter a brief description, between 3 and 50 characters, of this AMIS code."
^DD(71.1,.01,10)="CENTRAL OFFICE"
^DD(71.1,.01,21,0)="^^6^6^2941025^"
^DD(71.1,.01,21,1,0)="This field contains a brief description, 3-50 characters, of this AMIS code."
^DD(71.1,.01,21,2,0)="AMIS codes are used in the compilation of various workload reports,"
^DD(71.1,.01,21,3,0)="including the AMIS Report."
^DD(71.1,.01,21,4,0)=" "
^DD(71.1,.01,21,5,0)="Since the AMIS codes are assigned by the Radiology Central Office, they"
^DD(71.1,.01,21,6,0)="should not be changed without the approval of the Central Office."
^DD(71.1,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Major AMIS codes can not be deleted."",,""!,$C(7)"")"
^DD(71.1,.01,"DT")="2940608"
^DD(71.1,2,0)="WEIGHT^RNJ2,0^^0;2^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1N.N) X"
^DD(71.1,2,.1)="WEIGHTED WORK UNIT OF THIS MAJOR AMIS CODE"
^DD(71.1,2,3)="Enter a number, between 1 and 80, for the weighted work unit associated with this AMIS code. These weights are assigned by Radiology CO!"
^DD(71.1,2,10)="CENTRAL OFFICE"
^DD(71.1,2,21,0)="^^6^6^2940608^^^^"
^DD(71.1,2,21,1,0)="This field contains the weighted work unit, a number between 1 and 80,"
^DD(71.1,2,21,2,0)="associated with this AMIS code.  These weights are used in the compilation"
^DD(71.1,2,21,3,0)="of various workload reports, including the AMIS Report."
^DD(71.1,2,21,4,0)=" "
^DD(71.1,2,21,5,0)="Since these weights are assigned by the Radiology Central Office, they"
^DD(71.1,2,21,6,0)="should not be changed without the approval of the Central Office."
^DD(71.1,2,"DT")="2850104"
^DD(71.1,"B","DESCRIPTION",.01)=""
^DD(71.1,"B","MAJOR AMIS CODE",.001)=""
^DD(71.1,"B","MAJOR RAD/NUC MED AMIS CODE",.001)="1"
^DD(71.1,"B","WEIGHT",2)=""
^DD(71.1,"GL",0,1,.01)=""
^DD(71.1,"GL",0,2,2)=""
^DD(71.1,"IX",.01)=""
^DD(71.1,"RQ",.01)=""
^DD(71.1,"RQ",2)=""
^DD(71.2,0)="FIELD^^4^3"
^DD(71.2,0,"DDA")="N"
^DD(71.2,0,"DT")="2940421"
^DD(71.2,0,"IX","AB",71.23,.01)=""
^DD(71.2,0,"IX","B",71.2,.01)=""
^DD(71.2,0,"NM","PROCEDURE MODIFIERS")=""
^DD(71.2,0,"PT",70.1,.01)=""
^DD(71.2,0,"PT",71.312,.01)=""
^DD(71.2,0,"PT",75.1125,.01)=""
^DD(71.2,0,"VR")="5.0"
^DD(71.2,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.2,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(71.2,.01,.1)="NAME OF THIS PROCEDURE MODIFIER"
^DD(71.2,.01,1,0)="^.1"
^DD(71.2,.01,1,1,0)="71.2^B"
^DD(71.2,.01,1,1,1)="S ^RAMIS(71.2,""B"",$E(X,1,30),DA)="""""
^DD(71.2,.01,1,1,2)="K ^RAMIS(71.2,""B"",$E(X,1,30),DA)"
^DD(71.2,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(71.2,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(71.2,.01,3)="Enter modifier name (2 - 30 characters)."
^DD(71.2,.01,10)="RAD/NUC MED COORDINATOR"
^DD(71.2,.01,21,0)="^^7^7^2940608^"
^DD(71.2,.01,21,1,0)="This field contains the name of the procedure modifier.  Procedure"
^DD(71.2,.01,21,2,0)="modifiers are used to further describe the procedure performed and can be"
^DD(71.2,.01,21,3,0)="from 2-30 characters in length."
^DD(71.2,.01,21,4,0)=" "
^DD(71.2,.01,21,5,0)="Following are examples of procedure modifiers which are included in"
^DD(71.2,.01,21,6,0)="the system:  Portable, Operating Room, Bilateral, Left, Right.  Sites may"
^DD(71.2,.01,21,7,0)="add additional procedure modifiers."
^DD(71.2,.01,"DT")="2850411"
^DD(71.2,3,0)="TYPE OF IMAGING^71.23PA^^1;0"
^DD(71.2,3,21,0)="^^3^3^2940518^^^^"
^DD(71.2,3,21,1,0)="This field contains the name of the type of imaging from the"
^DD(71.2,3,21,2,0)="'Imaging Type' file.  Enter imaging types for which this modifier"
^DD(71.2,3,21,3,0)="is valid."
^DD(71.2,4,0)="AMIS CREDIT INDICATOR^S^b:BILATERAL;o:OPERATING ROOM;p:PORTABLE;^0;2^Q"
^DD(71.2,4,1,0)="^.1^^0"
^DD(71.2,4,3)="If this modifier receives extra AMIS credit, enter the type of credit indicator it requires."
^DD(71.2,4,21,0)="^^3^3^2941026^"
^DD(71.2,4,21,1,0)="This is the AMIS credit indicator used in workload reports for this"
^DD(71.2,4,21,2,0)="modifier.  If this modifier is a bilateral, operating room or portable"
^DD(71.2,4,21,3,0)="type of modifier, this field should be used to indicate that."
^DD(71.2,4,"DT")="2940510"
^DD(71.2,"B","AMIS CREDIT INDICATOR",4)=""
^DD(71.2,"B","NAME",.01)=""
^DD(71.2,"B","TYPE OF IMAGING",3)=""
^DD(71.2,"GL",0,1,.01)=""
^DD(71.2,"GL",0,2,4)=""
^DD(71.2,"GL",1,0,3)=""
^DD(71.2,"IX",.01)=""
^DD(71.2,"RQ",.01)=""
^DD(71.2,"SB",71.23,3)=""
^DD(71.23,0)="TYPE OF IMAGING SUB-FIELD^^.01^1"
^DD(71.23,0,"DT")="2940421"
^DD(71.23,0,"NM","TYPE OF IMAGING")=""
^DD(71.23,0,"UP")="71.2"
^DD(71.23,.01,0)="TYPE OF IMAGING^MP79.2'^RA(79.2,^0;1^Q"
^DD(71.23,.01,1,0)="^.1"
^DD(71.23,.01,1,1,0)="71.2^AB"
^DD(71.23,.01,1,1,1)="S ^RAMIS(71.2,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(71.23,.01,1,1,2)="K ^RAMIS(71.2,""AB"",$E(X,1,30),DA(1),DA)"
^DD(71.23,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(71.23,.01,1,1,"%D",1,0)="     Non-lookup cross reference 'AB' on sub-file 71.23."
^DD(71.23,.01,1,1,"DT")="2940413"
^DD(71.23,.01,3)="Enter the imaging type(s) for which this modifier is valid."
^DD(71.23,.01,21,0)="^^3^3^2940518^^^^"
^DD(71.23,.01,21,1,0)="This field contains the names of the types of imaging from the"
^DD(71.23,.01,21,2,0)="'Imaging Type' file.  Enter imaging types for which this modifier"
^DD(71.23,.01,21,3,0)="is valid."
^DD(71.23,.01,"DT")="2940421"
^DD(71.23,"B","TYPE OF IMAGING",.01)=""
^DD(71.23,"GL",0,1,.01)=""
^DD(71.23,"IX",.01)=""
^DD(71.3,0)="FIELD^^13^11"
^DD(71.3,0,"DDA")="N"
^DD(71.3,0,"DT")="2961230"
^DD(71.3,0,"IX","AA",71.3,3)=""
^DD(71.3,0,"IX","AD",71.3,.01)=""
^DD(71.3,0,"IX","AE",71.3,.01)=""
^DD(71.3,0,"IX","B",71.3,.01)=""
^DD(71.3,0,"NM","RAD/NUC MED COMMON PROCEDURE")=""
^DD(71.3,0,"VR")="5.0"
^DD(71.3,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.3,.01,0)="PROCEDURE^R*P71'X^RAMIS(71,^0;1^S DIC(""S"")=""I $$EN1^RADD2(X,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:+$O(^RAMIS(71.3,""B"",+$G(X),0)) X D:$D(X) EN6^RAUTL17($P($G(^RAMIS(71,X,0)),U,12),X)"
^DD(71.3,.01,1,0)="^.1"
^DD(71.3,.01,1,1,0)="71.3^B"
^DD(71.3,.01,1,1,1)="S ^RAMIS(71.3,""B"",$E(X,1,30),DA)="""""
^DD(71.3,.01,1,1,2)="K ^RAMIS(71.3,""B"",$E(X,1,30),DA)"
^DD(71.3,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(71.3,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(71.3,.01,1,2,0)="71.3^AD^MUMPS"
^DD(71.3,.01,1,2,1)="S:$P(^RAMIS(71.3,DA,0),U,3)]"""" ^RAMIS(71.3,""AC"",$P(^(0),U,3),$E(X,1,30),DA)="""""
^DD(71.3,.01,1,2,2)="K:$P(^RAMIS(71.3,DA,0),U,3)]"""" ^RAMIS(71.3,""AC"",$P(^(0),U,3),$E(X,1,30),DA)"
^DD(71.3,.01,1,2,"%D",0)="^^1^1^2940518^"
^DD(71.3,.01,1,2,"%D",1,0)="Used to look-up common procedures by procedure name."
^DD(71.3,.01,1,3,0)="71.3^AE^MUMPS"
^DD(71.3,.01,1,3,1)="D EN5^RAUTL17(DA,$$EN3^RAUTL17(X),$P($G(^RAMIS(71.3,DA,0)),U,4),""S"")"
^DD(71.3,.01,1,3,2)="D EN5^RAUTL17(DA,$$EN3^RAUTL17(X),$P($G(^RAMIS(71.3,DA,0)),U,4),""K"")"
^DD(71.3,.01,1,3,3)="Do not delete."
^DD(71.3,.01,1,3,"%D",0)="^^3^3^2941011^"
^DD(71.3,.01,1,3,"%D",1,0)="This cross-reference updates the 'AA' cross-reference when the procedure"
^DD(71.3,.01,1,3,"%D",2,0)="changes.  It sets/kills the following node:"
^DD(71.3,.01,1,3,"%D",3,0)="^RAMIS(71.3,""AA"",Imaging_Type_IEN,Sequence_Number,DA)"
^DD(71.3,.01,1,3,"DT")="2941011"
^DD(71.3,.01,3)="Enter a procedure name."
^DD(71.3,.01,9.2)="D EN^DDIOL(""`""_$P($G(^RAMIS(71,+X,0)),""^"")_""' already exists as a Common Procedure."")"
^DD(71.3,.01,12)="Only active procedures may be selected."
^DD(71.3,.01,12.1)="S DIC(""S"")=""I $$EN1^RADD2(X,Y)"""
^DD(71.3,.01,21,0)="^^2^2^2950720^^"
^DD(71.3,.01,21,1,0)="This field is an ""active"" entry from your RAD/NUC MED PROCEDURES file"
^DD(71.3,.01,21,2,0)="(#71)."
^DD(71.3,.01,"DT")="2950720"
^DD(71.3,.01,"LAYGO",1,0)="X:+$O(^RAMIS(71.3,""B"",+X,0)) ^DD(71.3,.01,9.2) I '+$O(^RAMIS(71.3,""B"",+X,0))"
^DD(71.3,3,0)="SEQUENCE NUMBER^NJ3,0X^^0;4^K:+X'=X!(X>40)!(X<1)!(X?.E1"".""1N.N)!($D(^RAMIS(71.3,""AA"",$$EN3^RAUTL17($P($G(^RAMIS(71.3,D0,0)),U)),X))) X"
^DD(71.3,3,1,0)="^.1"
^DD(71.3,3,1,1,0)="71.3^AA^MUMPS"
^DD(71.3,3,1,1,1)="D EN5^RAUTL17(DA,$$EN3^RAUTL17($P($G(^RAMIS(71.3,DA,0)),U)),X,""S"")"
^DD(71.3,3,1,1,2)="D EN5^RAUTL17(DA,$$EN3^RAUTL17($P($G(^RAMIS(71.3,DA,0)),U)),X,""K"")"
^DD(71.3,3,1,1,3)="Do not delete."
^DD(71.3,3,1,1,"%D",0)="^^3^3^2941011^"
^DD(71.3,3,1,1,"%D",1,0)="Used for the generation of the common procedure list. Only"
^DD(71.3,3,1,1,"%D",2,0)="active procedures have the ""AA"" X-reference set. Sets/kills the following"
^DD(71.3,3,1,1,"%D",3,0)="node: ^RAMIS(71.3,""AA"",Imaging_Type_IEN,Sequence_Number,DA)"
^DD(71.3,3,1,1,"DT")="2941011"
^DD(71.3,3,3)="Type a Number between 1 and 40, 0 Decimal Digits. Must be UNIQUE!"
^DD(71.3,3,4)="D EN3^RAUTL18(+$G(DA))"
^DD(71.3,3,5,1,0)="71.3^4^1"
^DD(71.3,3,21,0)="^^2^2^2941018^^^^"
^DD(71.3,3,21,1,0)="This is a unique number that puts a procedure on the"
^DD(71.3,3,21,2,0)="common procedure display and allows selection by this number."
^DD(71.3,3,"DT")="2941011"
^DD(71.3,4,0)="INACTIVE^S^Y:yes;^0;5^Q"
^DD(71.3,4,1,0)="^.1"
^DD(71.3,4,1,1,0)="^^TRIGGER^71.3^3"
^DD(71.3,4,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAMIS(71.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(71.3,4,1,1,1.4)"
^DD(71.3,4,1,1,1.4)="S DIH=$S($D(^RAMIS(71.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=71.3,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(71.3,4,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAMIS(71.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(71.3,4,1,1,2.4)"
^DD(71.3,4,1,1,2.4)="S DIH=$S($D(^RAMIS(71.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=71.3,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(71.3,4,1,1,3)="Do not delete."
^DD(71.3,4,1,1,"%D",0)="^^2^2^2940518^"
^DD(71.3,4,1,1,"%D",1,0)="     Deletes the 'AA' cross reference when the 'Inactive' field is set to"
^DD(71.3,4,1,1,"%D",2,0)="'Yes'."
^DD(71.3,4,1,1,"CREATE VALUE")=""""""
^DD(71.3,4,1,1,"DELETE VALUE")=""""""
^DD(71.3,4,1,1,"DT")="2951122"
^DD(71.3,4,1,1,"FIELD")="SE"
^DD(71.3,4,3)="Enter 'Y'es if you do not want this procedure displayed during order entry."
^DD(71.3,4,21,0)="^^2^2^2960619^^^^"
^DD(71.3,4,21,1,0)="This field should be answered 'yes' if you do not want"
^DD(71.3,4,21,2,0)="the procedure to show up on display during order entry."
^DD(71.3,4,"DEL",1,0)="I $$REACMMN^RADD3(.DA)"
^DD(71.3,4,"DT")="2900313"
^DD(71.3,6,0)="CATEGORY OF EXAM^S^I:INPATIENT;O:OUTPATIENT;C:CONTRACT;S:SHARING;E:EMPLOYEE;R:RESEARCH;^0;6^Q"
^DD(71.3,6,3)="If an entry is not made for this field, the category of 'Inpatient' will automatically be entered for each request generated from the protocol that is built for this procedure."
^DD(71.3,6,21,0)="^^6^6^2940524^"
^DD(71.3,6,21,1,0)="This field contains a category for this procedure of 'I' for"
^DD(71.3,6,21,2,0)="inpatient, 'O' for outpatient, 'C' for Contract, 'S' for "
^DD(71.3,6,21,3,0)="sharing, 'E' for employee, or 'R' for research."
^DD(71.3,6,21,4,0)="If an entry is not made for this field, the category of 'Inpatient'"
^DD(71.3,6,21,5,0)="will be automatically entered for each request generated from"
^DD(71.3,6,21,6,0)="the protocal that is built for this procedure."
^DD(71.3,6,"DT")="2910507"
^DD(71.3,7,0)="REQUESTED DATE^S^TODAY:TODAY;TODAY+1:TOMORROW;^0;7^Q"
^DD(71.3,7,3)="If an entry is not made in this field, the date of today (TODAY) will automatically be entered for each request generated from the protocol that is built for this procedure."
^DD(71.3,7,21,0)="^^2^2^2940524^^"
^DD(71.3,7,21,1,0)="Enter the date on which you would like the exam done."
^DD(71.3,7,21,2,0)="This field should not be interpreted as an appointment date."
^DD(71.3,7,"DT")="2910508"
^DD(71.3,8,0)="IMAGING LOCATION^R*P79.1'^RA(79.1,^0;8^S DIC(""S"")=""I $$SUBMITQ^RAUTL13(DA,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.3,8,3)="Enter the imaging location for this procedure."
^DD(71.3,8,12)="The imaging type of the procedure and the imaging type of the location must be the same."
^DD(71.3,8,12.1)="S DIC(""S"")=""I $$SUBMITQ^RAUTL13(DA,+Y)"""
^DD(71.3,8,21,0)="^^3^3^2940929^^^^"
^DD(71.3,8,21,1,0)="This field contains the imaging location for this procedure. Only an"
^DD(71.3,8,21,2,0)="imaging location is selectable.  The procedure request will be printed at"
^DD(71.3,8,21,3,0)="this location."
^DD(71.3,8,"DT")="2940929"
^DD(71.3,9,0)="MODE OF TRANSPORT^S^a:AMBULATORY;p:PORTABLE;s:STRETCHER;w:WHEEL CHAIR;^0;9^Q"
^DD(71.3,9,3)="If an entry is not made in this field, the mode of transport of 'ambulatory' will automatically be entered for each request generated from the protocol that is built for this procedure."
^DD(71.3,9,21,0)="^^2^2^2940524^"
^DD(71.3,9,21,1,0)="Enter the mode of transport, 'a' for ambulatory, 'p' for portable,"
^DD(71.3,9,21,2,0)="'s' for stretcher, and 'w' for wheelchair."
^DD(71.3,9,"DT")="2910507"
^DD(71.3,10,0)="ISOLATION PROCEDURES^S^y:YES;n:NO;^0;10^Q"
^DD(71.3,10,3)="If an entry is not made in this field, a value of 'NO' (isolation procedures not required) will automatically be entered for each request generated from the protocol that is built for this procedure."
^DD(71.3,10,21,0)="^^1^1^2940524^"
^DD(71.3,10,21,1,0)="Enter 'y'es if isolation procedures are required for this procedure."
^DD(71.3,10,"DT")="2910507"
^DD(71.3,11,0)="REQUEST URGENCY^S^1:STAT;2:URGENT;9:ROUTINE;^0;11^Q"
^DD(71.3,11,3)="If an entry is not made in this field, a request urgency of 'ROUTINE' will automatically be entered for each request generated from the protocol that is built for this procedure."
^DD(71.3,11,21,0)="^^1^1^2940524^"
^DD(71.3,11,21,1,0)="Enter the urgency of this request."
^DD(71.3,11,"DT")="2910507"
^DD(71.3,12,0)="PROCEDURE MODIFIERS^71.312P^^M;0"
^DD(71.3,12,21,0)="^^3^3^2990806^^^^"
^DD(71.3,12,21,1,0)="This field identifies the Procedure Modifiers that are associated"
^DD(71.3,12,21,2,0)="with this Common Procedure.  Common Procedures may have more than one"
^DD(71.3,12,21,3,0)="Procedure Modifier association."
^DD(71.3,12,"DT")="2990806"
^DD(71.3,13,0)="NAME OF ORDERABLE ITEM^RFX^^0;13^K:$L(X)>63!($L(X)<3) X I $D(X) D UPPER^RAUTL4 I $D(^ORD(101,""C"",Y)) W !,""An item with this name already exists in file 101."" K X"
^DD(71.3,13,3)="Answer must be 3-63 characters in length."
^DD(71.3,13,21,0)="^^2^2^2940524^^^"
^DD(71.3,13,21,1,0)="This is the name (menu text) that the person ordering this procedure will"
^DD(71.3,13,21,2,0)="see when they are placing orders in the OE/RR package."
^DD(71.3,13,"DT")="2910509"
^DD(71.3,"B","CATEGORY OF EXAM",6)=""
^DD(71.3,"B","IMAGING LOCATION",8)=""
^DD(71.3,"B","INACTIVE",4)=""
^DD(71.3,"B","ISOLATION PROCEDURES",10)=""
^DD(71.3,"B","MODE OF TRANSPORT",9)=""
^DD(71.3,"B","NAME OF ORDERABLE ITEM",13)=""
^DD(71.3,"B","PROCEDURE",.01)=""
^DD(71.3,"B","PROCEDURE MODIFIERS",12)=""
^DD(71.3,"B","REQUEST URGENCY",11)=""
^DD(71.3,"B","REQUESTED DATE",7)=""
^DD(71.3,"B","SEQUENCE NUMBER",3)=""
^DD(71.3,"GL",0,1,.01)=""
^DD(71.3,"GL",0,4,3)=""
^DD(71.3,"GL",0,5,4)=""
^DD(71.3,"GL",0,6,6)=""
^DD(71.3,"GL",0,7,7)=""
^DD(71.3,"GL",0,8,8)=""
^DD(71.3,"GL",0,9,9)=""
^DD(71.3,"GL",0,10,10)=""
^DD(71.3,"GL",0,11,11)=""
^DD(71.3,"GL",0,13,13)=""
^DD(71.3,"GL","M",0,12)=""
^DD(71.3,"IX",.01)=""
^DD(71.3,"IX",3)=""
^DD(71.3,"IX",4)=""
^DD(71.3,"RQ",.01)=""
^DD(71.3,"RQ",8)=""
^DD(71.3,"RQ",13)=""
^DD(71.3,"SB",71.312,12)=""
^DD(71.312,0)="PROCEDURE MODIFIERS SUB-FIELD^^.01^1"
^DD(71.312,0,"DT")="2961230"
^DD(71.312,0,"IX","B",71.312,.01)=""
^DD(71.312,0,"NM","PROCEDURE MODIFIERS")=""
^DD(71.312,0,"UP")="71.3"
^DD(71.312,.01,0)="PROCEDURE MODIFIERS^M*P71.2'X^RAMIS(71.2,^0;1^S DIC(""S"")=""N RASERIES I $D(^RAMIS(71.2,""""AB"""",(+$$ITYPE^RASITE(+$P($G(^RAMIS(71.3,D0,0)),U))),+Y)),$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""""""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.312,.01,1,0)="^.1"
^DD(71.312,.01,1,1,0)="71.312^B"
^DD(71.312,.01,1,1,1)="S ^RAMIS(71.3,DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(71.312,.01,1,1,2)="K ^RAMIS(71.3,DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(71.312,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(71.312,.01,1,1,"%D",1,0)="     Regular filewide 'B' cross reference assigned by FileMan."
^DD(71.312,.01,3)="This multiple field is used to associate one or more rad/nuc med Procedure Modifiers with the procedure being ordered."
^DD(71.312,.01,12)="Only Procedure Modifiers associated with the imaging type may be selected. In addition, if the procedure is 'SERIES', it must not have AMIS CREDIT INDICATOR"
^DD(71.312,.01,12.1)="S DIC(""S"")=""N RASERIES I $D(^RAMIS(71.2,""""AB"""",(+$$ITYPE^RASITE(+$P($G(^RAMIS(71.3,D0,0)),U))),+Y)),$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""""""":1,1:0)"""
^DD(71.312,.01,21,0)="^^1^1^2990806^^^^"
^DD(71.312,.01,21,1,0)="Enter the Procedure modifier(s) associated with this procedure."
^DD(71.312,.01,"DT")="2990806"
^DD(71.312,"B","PROCEDURE MODIFIERS",.01)=""
^DD(71.312,"GL",0,1,.01)=""
^DD(71.312,"IX",.01)=""
^DD(71.4,0)="FIELD^^.01^1"
^DD(71.4,0,"DDA")="N"
^DD(71.4,0,"ID","WRITE")="N RA714 S RA714=$P(^(0),""^""),RA714(1)=$E(RA714,31,999),RA714(1,""F"")=""?0"",RA714(2)="" "" D:$G(DZ)[""?"" EN^DDIOL(.RA714)"
^DD(71.4,0,"IX","B",71.4,.01)=""
^DD(71.4,0,"NM","RAD/NUC MED PROCEDURE MESSAGE")=""
^DD(71.4,0,"PT",71.04,.01)=""
^DD(71.4,0,"VR")="5.0"
^DD(71.4,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.4,.01,0)="TEXT^RF^^0;1^K:$L(X)>240!($L(X)<3)!'(X'?1P.E) X"
^DD(71.4,.01,1,0)="^.1"
^DD(71.4,.01,1,1,0)="71.4^B"
^DD(71.4,.01,1,1,1)="S ^RAMIS(71.4,""B"",$E(X,1,30),DA)="""""
^DD(71.4,.01,1,1,2)="K ^RAMIS(71.4,""B"",$E(X,1,30),DA)"
^DD(71.4,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(71.4,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(71.4,.01,3)="Message can be 3-240 characters in length. It cannot be preceded with punctuation."
^DD(71.4,.01,21,0)="^^4^4^2940916^"
^DD(71.4,.01,21,1,0)="This field contains messages concerning special requirements when ordering"
^DD(71.4,.01,21,2,0)="a procedure.  One or more of these messages can be tied to a procedure"
^DD(71.4,.01,21,3,0)="in the RAD/NUC MED PROCEDURES file (#71).  Messages cannot begin with"
^DD(71.4,.01,21,4,0)="punctuation marks."
^DD(71.4,.01,"DEL",1,0)="I $G(DUZ(0))'=""@"""
^DD(71.4,"B","TEXT",.01)=""
^DD(71.4,"GL",0,1,.01)=""
^DD(71.4,"IX",.01)=""
^DD(71.4,"RQ",.01)=""
^DD(71.5,0)="FIELD^^.01^1"
^DD(71.5,0,"DDA")="N"
^DD(71.5,0,"DT")="2940819"
^DD(71.5,0,"ID","WRITE")="N RA S RA(0)=$G(^DIC(40.7,+$G(Y),0)),RA(3)=$S($P(RA(0),""^"",3)]"""":""(Inactive)"",1:"""") W:RA(3)]"""" ""   ""_RA(3)"
^DD(71.5,0,"IX","B",71.5,.01)=""
^DD(71.5,0,"NM","IMAGING STOP CODES")=""
^DD(71.5,0,"VR")="5.0"
^DD(71.5,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.5,.01,0)="VALID CODE^R*P40.7'X^DIC(40.7,^0;1^S DINUM=X S DIC(""S"")=""I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.5,.01,.1)="VALID STOP CODE"
^DD(71.5,.01,1,0)="^.1"
^DD(71.5,.01,1,1,0)="71.5^B"
^DD(71.5,.01,1,1,1)="S ^RAMIS(71.5,""B"",$E(X,1,30),DA)="""""
^DD(71.5,.01,1,1,2)="K ^RAMIS(71.5,""B"",$E(X,1,30),DA)"
^DD(71.5,.01,1,1,3)="DO NOT DELETE"
^DD(71.5,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(71.5,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(71.5,.01,3)="Enter a stop code that is currently valid for Imaging procedures."
^DD(71.5,.01,12)="Inactive Stop Codes are invalid.  Stop Code 900 cannot be used."
^DD(71.5,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=900&$S('$P(^(0),U,3):1,$P(^(0),U,3)>DT:1,1:0)"""
^DD(71.5,.01,21,0)="^^5^5^2970210^"
^DD(71.5,.01,21,1,0)="Only stop codes valid for imaging should be entered in this file."
^DD(71.5,.01,21,2,0)="When a stop code becomes invalid, it should be deleted from this file."
^DD(71.5,.01,21,3,0)="When a new stop code becomes valid for imaging procedures, it should"
^DD(71.5,.01,21,4,0)="be added to this file.  Entries are used as a selection list when editing"
^DD(71.5,.01,21,5,0)="the DSS ID of an imaging location."
^DD(71.5,.01,23,0)="^^6^6^2970210^^^"
^DD(71.5,.01,23,1,0)="The entries in this file are used as a screen for selecting stop codes to"
^DD(71.5,.01,23,2,0)="associate with Radiology/Nuclear Medicine procedures.  The principal"
^DD(71.5,.01,23,3,0)="clinic field of the Imaging Locations file is also screened using the"
^DD(71.5,.01,23,4,0)="entries in this file to make sure the principal clinic chosen has an"
^DD(71.5,.01,23,5,0)="imaging stop code.  Keeping these codes in a separate file makes them"
^DD(71.5,.01,23,6,0)="maintainable by the sites."
^DD(71.5,.01,"DT")="2940819"
^DD(71.5,"B","VALID CODE",.01)=""
^DD(71.5,"B","VALID STOP CODE",.01)="1"
^DD(71.5,"GL",0,1,.01)=""
^DD(71.5,"IX",.01)=""
^DD(71.5,"RQ",.01)=""
^DD(71.6,0)="FIELD^^100^4"
^DD(71.6,0,"DDA")="N"
^DD(71.6,0,"DT")="2960826"
^DD(71.6,0,"IX","B",71.6,.01)=""
^DD(71.6,0,"IX","C",71.61,.01)=""
^DD(71.6,0,"IX","LOW",71.6,.01)=""
^DD(71.6,0,"NM","ROUTE OF ADMINISTRATION")=""
^DD(71.6,0,"PT",70.21,11)=""
^DD(71.6,0,"PT",71.08,3)=""
^DD(71.6,0,"VR")="5.0"
^DD(71.6,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.6,.01,0)="NAME^RFX^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(71.6,.01,1,0)="^.1"
^DD(71.6,.01,1,1,0)="71.6^B"
^DD(71.6,.01,1,1,1)="S ^RAMIS(71.6,""B"",$E(X,1,30),DA)="""""
^DD(71.6,.01,1,1,2)="K ^RAMIS(71.6,""B"",$E(X,1,30),DA)"
^DD(71.6,.01,1,2,0)="71.6^LOW^MUMPS"
^DD(71.6,.01,1,2,1)="S ^RAMIS(71.6,""LOW"",$$LOW^XLFSTR($E(X,1,30)),DA)="""""
^DD(71.6,.01,1,2,2)="K ^RAMIS(71.6,""LOW"",$$LOW^XLFSTR($E(X,1,30)),DA)"
^DD(71.6,.01,1,2,3)="Don't delete."
^DD(71.6,.01,1,2,"%D",0)="^^1^1^2960826^"
^DD(71.6,.01,1,2,"%D",1,0)="This cross-reference makes it possible to retrieve entries in lowercase."
^DD(71.6,.01,1,2,"DT")="2960826"
^DD(71.6,.01,3)="Enter a route of drug administration."
^DD(71.6,.01,21,0)="^^2^2^2960716^^"
^DD(71.6,.01,21,1,0)="This is the route of administration for pharmaceuticals or"
^DD(71.6,.01,21,2,0)="radiopharmaceuticals administered during an imaging procedure."
^DD(71.6,.01,"DEL",1,0)="I 1 W !,""Deletion not allowed!    """
^DD(71.6,.01,"DT")="2960826"
^DD(71.6,2,0)="VALID SITES OF ADMINISTRATION^71.62PA^^SITE;0"
^DD(71.6,2,21,0)="^^3^3^2960716^"
^DD(71.6,2,21,1,0)="Bodily sites of drug administration appropriate for this route of"
^DD(71.6,2,21,2,0)="administration should be entered here.  During case edit, users will be"
^DD(71.6,2,21,3,0)="restricted to selecting only the sites entered here."
^DD(71.6,3,0)="PROMPT FOR FREE TEXT SITE?^S^Y:Yes;^0;3^Q"
^DD(71.6,3,3)="Enter 'Yes' only if a predictable list of sites cannot be associated with this route."
^DD(71.6,3,21,0)="^^7^7^2960716^"
^DD(71.6,3,21,1,0)="This field should be answered 'Yes' only if selection of this route of"
^DD(71.6,3,21,2,0)="administration should trigger a prompt asking for a ""free text"" site of"
^DD(71.6,3,21,3,0)="administration rather than restricting users to selecting a site entered"
^DD(71.6,3,21,4,0)="as a valid site of administration for this route.  An example might be a"
^DD(71.6,3,21,5,0)="route of administration where there are so many possible sites of"
^DD(71.6,3,21,6,0)="administration that it is impractical to associate them all with the"
^DD(71.6,3,21,7,0)="route."
^DD(71.6,3,"DT")="2960617"
^DD(71.6,100,0)="SYNONYMS^71.61A^^SYN;0"
^DD(71.6,"B","NAME",.01)=""
^DD(71.6,"B","PROMPT FOR FREE TEXT SITE?",3)=""
^DD(71.6,"B","SYNONYMS",100)=""
^DD(71.6,"B","VALID SITES OF ADMINISTRATION",2)=""
^DD(71.6,"GL",0,1,.01)=""
^DD(71.6,"GL",0,3,3)=""
^DD(71.6,"GL","SITE",0,2)=""
^DD(71.6,"GL","SYN",0,100)=""
^DD(71.6,"IX",.01)=""
^DD(71.6,"RQ",.01)=""
^DD(71.6,"SB",71.61,100)=""
^DD(71.6,"SB",71.62,2)=""
^DD(71.61,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(71.61,0,"DT")="2960826"
^DD(71.61,0,"IX","B",71.61,.01)=""
^DD(71.61,0,"NM","SYNONYMS")=""
^DD(71.61,0,"UP")="71.6"
^DD(71.61,.01,0)="SYNONYMS^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(71.61,.01,1,0)="^.1"
^DD(71.61,.01,1,1,0)="71.61^B"
^DD(71.61,.01,1,1,1)="S ^RAMIS(71.6,DA(1),""SYN"",""B"",$E(X,1,30),DA)="""""
^DD(71.61,.01,1,1,2)="K ^RAMIS(71.6,DA(1),""SYN"",""B"",$E(X,1,30),DA)"
^DD(71.61,.01,1,2,0)="71.6^C"
^DD(71.61,.01,1,2,1)="S ^RAMIS(71.6,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(71.61,.01,1,2,2)="K ^RAMIS(71.6,""C"",$E(X,1,30),DA(1),DA)"
^DD(71.61,.01,1,2,3)="Don't delete"
^DD(71.61,.01,1,2,"%D",0)="^^2^2^2960826^"
^DD(71.61,.01,1,2,"%D",1,0)="This is a regular file-wide cross reference so that synonyms can be used"
^DD(71.61,.01,1,2,"%D",2,0)="for look-up."
^DD(71.61,.01,1,2,"DT")="2960826"
^DD(71.61,.01,3)="Synonym must be 1-30 characters in length."
^DD(71.61,.01,21,0)="^^3^3^2960826^"
^DD(71.61,.01,21,1,0)="Terms commonly used to identify routes of administration may be entered"
^DD(71.61,.01,21,2,0)="here.  The system will use synonyms, in addition to the name of the route,"
^DD(71.61,.01,21,3,0)="for look-up when users select entries from this file."
^DD(71.61,.01,"DT")="2960826"
^DD(71.61,"B","SYNONYMS",.01)=""
^DD(71.61,"GL",0,1,.01)=""
^DD(71.61,"IX",.01)=""
^DD(71.62,0)="VALID SITES OF ADMINISTRATION SUB-FIELD^^.01^1"
^DD(71.62,0,"DT")="2960617"
^DD(71.62,0,"IX","B",71.62,.01)=""
^DD(71.62,0,"NM","VALID SITES OF ADMINISTRATION")=""
^DD(71.62,0,"UP")="71.6"
^DD(71.62,.01,0)="VALID SITES OF ADMINISTRATION^MP71.7'^RAMIS(71.7,^0;1^Q"
^DD(71.62,.01,1,0)="^.1"
^DD(71.62,.01,1,1,0)="71.62^B"
^DD(71.62,.01,1,1,1)="S ^RAMIS(71.6,DA(1),""SITE"",""B"",$E(X,1,30),DA)="""""
^DD(71.62,.01,1,1,2)="K ^RAMIS(71.6,DA(1),""SITE"",""B"",$E(X,1,30),DA)"
^DD(71.62,.01,3)="Enter a valid site of drug administration for this route of administration."
^DD(71.62,.01,21,0)="^^3^3^2960716^"
^DD(71.62,.01,21,1,0)="Valid sites of drug administration for this route of administration should"
^DD(71.62,.01,21,2,0)="be entered here.  During case edits, users will be restricted to selecting"
^DD(71.62,.01,21,3,0)="only sites entered here when this route of administration is used."
^DD(71.62,.01,"DT")="2960617"
^DD(71.62,"B","VALID SITES OF ADMINISTRATION",.01)=""
^DD(71.62,"GL",0,1,.01)=""
^DD(71.62,"IX",.01)=""
^DD(71.7,0)="FIELD^^100^2"
^DD(71.7,0,"DDA")="N"
^DD(71.7,0,"DT")="2960826"
^DD(71.7,0,"IX","B",71.7,.01)=""
^DD(71.7,0,"IX","D",71.701,.01)=""
^DD(71.7,0,"NM","SITE OF ADMINISTRATION")=""
^DD(71.7,0,"PT",70.21,12)=""
^DD(71.7,0,"PT",71.08,4)=""
^DD(71.7,0,"PT",71.62,.01)=""
^DD(71.7,0,"VR")="5.0"
^DD(71.7,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.7,.01,0)="NAME^RFX^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(71.7,.01,1,0)="^.1"
^DD(71.7,.01,1,1,0)="71.7^B"
^DD(71.7,.01,1,1,1)="S ^RAMIS(71.7,""B"",$E(X,1,30),DA)="""""
^DD(71.7,.01,1,1,2)="K ^RAMIS(71.7,""B"",$E(X,1,30),DA)"
^DD(71.7,.01,3)="Enter a site of drug administration."
^DD(71.7,.01,21,0)="^^1^1^2960918^^"
^DD(71.7,.01,21,1,0)="This is the name of the site of drug administration used in imaging exams."
^DD(71.7,.01,"DEL",1,0)="I 1 W !,""Deletion not allowed!    """
^DD(71.7,.01,"DT")="2960826"
^DD(71.7,100,0)="SYNONYM^71.701A^^SYN;0"
^DD(71.7,"B","NAME",.01)=""
^DD(71.7,"B","SYNONYM",100)=""
^DD(71.7,"GL",0,1,.01)=""
^DD(71.7,"GL","SYN",0,100)=""
^DD(71.7,"IX",.01)=""
^DD(71.7,"RQ",.01)=""
^DD(71.7,"SB",71.701,100)=""
^DD(71.701,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(71.701,0,"DT")="2960826"
^DD(71.701,0,"IX","B",71.701,.01)=""
^DD(71.701,0,"NM","SYNONYM")=""
^DD(71.701,0,"UP")="71.7"
^DD(71.701,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(71.701,.01,1,0)="^.1"
^DD(71.701,.01,1,1,0)="71.701^B"
^DD(71.701,.01,1,1,1)="S ^RAMIS(71.7,DA(1),""SYN"",""B"",$E(X,1,30),DA)="""""
^DD(71.701,.01,1,1,2)="K ^RAMIS(71.7,DA(1),""SYN"",""B"",$E(X,1,30),DA)"
^DD(71.701,.01,1,2,0)="71.7^D"
^DD(71.701,.01,1,2,1)="S ^RAMIS(71.7,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(71.701,.01,1,2,2)="K ^RAMIS(71.7,""D"",$E(X,1,30),DA(1),DA)"
^DD(71.701,.01,1,2,3)="Don't delete"
^DD(71.701,.01,1,2,"%D",0)="^^2^2^2960826^"
^DD(71.701,.01,1,2,"%D",1,0)="This is a regular file-wide cross-reference that is necessary for users to"
^DD(71.701,.01,1,2,"%D",2,0)="be able to look up entries by their synonyms."
^DD(71.701,.01,1,2,"DT")="2960826"
^DD(71.701,.01,3)="Synonym must be 1-30 characters in length."
^DD(71.701,.01,21,0)="^^3^3^2960826^"
^DD(71.701,.01,21,1,0)="Terms commonly used to refer to the site of drug administration may be"
^DD(71.701,.01,21,2,0)="entered here.  The system will use synonyms as well as the name of the"
^DD(71.701,.01,21,3,0)="site when users are selecting entries in this file."
^DD(71.701,.01,"DT")="2960826"
^DD(71.701,"B","SYNONYM",.01)=""
^DD(71.701,"GL",0,1,.01)=""
^DD(71.701,"IX",.01)=""
^DD(71.8,0)="FIELD^^.01^1"
^DD(71.8,0,"DDA")="N"
^DD(71.8,0,"DT")="2960617"
^DD(71.8,0,"IX","B",71.8,.01)=""
^DD(71.8,0,"NM","RADIOPHARMACEUTICAL SOURCE")=""
^DD(71.8,0,"PT",71.9,2)=""
^DD(71.8,0,"VR")="5.0"
^DD(71.8,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.8,.01,0)="VENDOR/PHARMACY^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(71.8,.01,1,0)="^.1"
^DD(71.8,.01,1,1,0)="71.8^B"
^DD(71.8,.01,1,1,1)="S ^RAMIS(71.8,""B"",$E(X,1,30),DA)="""""
^DD(71.8,.01,1,1,2)="K ^RAMIS(71.8,""B"",$E(X,1,30),DA)"
^DD(71.8,.01,3)="Enter the name of the vendor or pharmacy."
^DD(71.8,.01,21,0)="^^3^3^2960826^^"
^DD(71.8,.01,21,1,0)="This field identifies the radiopharmaceutical source.  It may contain the"
^DD(71.8,.01,21,2,0)="name of a vendor, a pharmacy, or any other source of radiopharmaceuticals"
^DD(71.8,.01,21,3,0)="for a facility."
^DD(71.8,.01,"DEL",1,0)="I 1 W *7,!,""Radiopharmaceutical sources cannot be deleted.    """
^DD(71.8,.01,"DT")="2960826"
^DD(71.8,"B","VENDOR/PHARMACY",.01)=""
^DD(71.8,"GL",0,1,.01)=""
^DD(71.8,"IX",.01)=""
^DD(71.8,"RQ",.01)=""
^DD(71.9,0)="FIELD^^6^6"
^DD(71.9,0,"DDA")="N"
^DD(71.9,0,"DT")="2970117"
^DD(71.9,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RAMIS(71.8,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(71.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(71.9,0,"ID",3)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(71.9,0,"ID",4)="W ""   "",$P(^(0),U,4)"
^DD(71.9,0,"ID",5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSDRUG(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(71.9,0,"IX","B",71.9,.01)=""
^DD(71.9,0,"IX","C",71.9,2)=""
^DD(71.9,0,"IX","TX",71.9,.01)=""
^DD(71.9,0,"NM","RADIOPHARMACEUTICAL LOT")=""
^DD(71.9,0,"PT",70.21,13)=""
^DD(71.9,0,"VR")="5.0"
^DD(71.9,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(71.9,.01,0)="NUMBER/ID^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X?.APN) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(71.9,.01,1,0)="^.1"
^DD(71.9,.01,1,1,0)="71.9^B"
^DD(71.9,.01,1,1,1)="S ^RAMIS(71.9,""B"",$E(X,1,30),DA)="""""
^DD(71.9,.01,1,1,2)="K ^RAMIS(71.9,""B"",$E(X,1,30),DA)"
^DD(71.9,.01,1,2,0)="71.9^TX^MUMPS"
^DD(71.9,.01,1,2,1)="S ^RAMIS(71.9,""TX"",$E(X,1,30)_"" "",DA)="""""
^DD(71.9,.01,1,2,2)="K ^RAMIS(71.9,""TX"",$E(X,1,30)_"" "",DA)"
^DD(71.9,.01,1,2,3)="Do not delete."
^DD(71.9,.01,1,2,"%D",0)="^^3^3^2960826^"
^DD(71.9,.01,1,2,"%D",1,0)="This cross-reference is necessary to convert all-numeric entries to text"
^DD(71.9,.01,1,2,"%D",2,0)="so that look-up can be done when the user enters the first few numbers"
^DD(71.9,.01,1,2,"%D",3,0)="rather than the entire field value."
^DD(71.9,.01,1,2,"DT")="2960826"
^DD(71.9,.01,3)="Answer must be 3-30 characters in length."
^DD(71.9,.01,7.5)="D DUPL^RANMED1"
^DD(71.9,.01,21,0)="^^3^3^2970804^^^^"
^DD(71.9,.01,21,1,0)="This field identifies the radiopharmaceutical lot.  Alternatively,"
^DD(71.9,.01,21,2,0)="identifying names or numbers of batches, vials, syringes, or kits may also"
^DD(71.9,.01,21,3,0)="be recorded here."
^DD(71.9,.01,"DEL",1,0)="I 1 W *7,!,""Radiopharmaceutical lots cannot be deleted.    """
^DD(71.9,.01,"DT")="2960826"
^DD(71.9,2,0)="SOURCE^RP71.8'X^RAMIS(71.8,^0;2^D PAIR^RADD3 Q"
^DD(71.9,2,1,0)="^.1^^-1"
^DD(71.9,2,1,1,0)="71.9^C"
^DD(71.9,2,1,1,1)="S ^RAMIS(71.9,""C"",$E(X,1,30),DA)="""""
^DD(71.9,2,1,1,2)="K ^RAMIS(71.9,""C"",$E(X,1,30),DA)"
^DD(71.9,2,1,1,3)="Don't delete"
^DD(71.9,2,1,1,"%D",0)="^^2^2^2960826^^"
^DD(71.9,2,1,1,"%D",1,0)="This cross-reference is a regular look-up cross-reference necessary to be"
^DD(71.9,2,1,1,"%D",2,0)="able to look up lots by source/vendor."
^DD(71.9,2,1,1,"DT")="2960826"
^DD(71.9,2,3)="Enter this source/vendor of the radiopharmaceutical unit."
^DD(71.9,2,21,0)="^^2^2^2960826^^^^"
^DD(71.9,2,21,1,0)="This field identifies the source of this radiopharmaceutical lot, batch,"
^DD(71.9,2,21,2,0)="vial, syringe, or kit."
^DD(71.9,2,"DT")="2960826"
^DD(71.9,3,0)="EXPIRATION DATE^DX^^0;3^S %DT=""EXT"" D ^%DT S X=Y K:Y<1!($$FMDIFF^XLFDT(Y,DT)>730.5)!($$FMDIFF^XLFDT(Y,DT)<-365.25) X D:'$D(X) EN^DDIOL(""This date must be no more than 2 yrs in the future, or 1 yr in the past."","""",""!!?1"")"
^DD(71.9,3,3)="Enter the expiration date of this radiopharmaceutical unit."
^DD(71.9,3,21,0)="^^6^6^2990514^^"
^DD(71.9,3,21,1,0)="This is the date this radiopharmaceutical unit expires. This field must be"
^DD(71.9,3,21,2,0)="entered in order to print dosage tickets for exams associated with this"
^DD(71.9,3,21,3,0)="radiopharmaceutical unit."
^DD(71.9,3,21,4,0)=" "
^DD(71.9,3,21,5,0)="This date must be no more than 2 years in the future, and no more than 1"
^DD(71.9,3,21,6,0)="year in the past."
^DD(71.9,3,"DT")="2990514"
^DD(71.9,4,0)="KIT #^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(71.9,4,3)="Answer must be 1-15 characters in length."
^DD(71.9,4,21,0)="^^1^1^2970102^^"
^DD(71.9,4,21,1,0)="This is the kit number for this radiopharmaceutical unit, if applicable."
^DD(71.9,4,"DT")="2970102"
^DD(71.9,5,0)="RADIOPHARM^*P50'^PSDRUG(^0;5^S DIC(""S"")=""I $$DCHK^RADD1(""""R"""",DT,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(71.9,5,3)="Enter radiopharmaceutical associated with this Lot."
^DD(71.9,5,12)="Only active radiopharmaceuticals are valid."
^DD(71.9,5,12.1)="S DIC(""S"")=""I $$DCHK^RADD1(""""R"""",DT,+Y)"""
^DD(71.9,5,"DT")="2960925"
^DD(71.9,6,0)="INACTIVE^S^Y:YES;^0;6^Q"
^DD(71.9,6,3)="Enter  Y  if this Lot is not to be used anymore."
^DD(71.9,6,21,0)="^^2^2^2970117^^^^"
^DD(71.9,6,21,1,0)="When a particularLot should not be used anymore, enter  Y  in this"
^DD(71.9,6,21,2,0)="field to inactive the Lot #."
^DD(71.9,6,"DT")="2970117"
^DD(71.9,"B","EXPIRATION DATE",3)=""
^DD(71.9,"B","INACTIVE",6)=""
^DD(71.9,"B","KIT #",4)=""
^DD(71.9,"B","NUMBER/ID",.01)=""
^DD(71.9,"B","RADIOPHARM",5)=""
^DD(71.9,"B","SOURCE",2)=""
^DD(71.9,"GL",0,1,.01)=""
^DD(71.9,"GL",0,2,2)=""
^DD(71.9,"GL",0,3,3)=""
^DD(71.9,"GL",0,4,4)=""
^DD(71.9,"GL",0,5,5)=""
^DD(71.9,"GL",0,6,6)=""
^DD(71.9,"IX",.01)=""
^DD(71.9,"IX",2)=""
^DD(71.9,"RQ",.01)=""
^DD(71.9,"RQ",2)=""
^DD(72,0)="FIELD^^9^61"
^DD(72,0,"DDA")="N"
^DD(72,0,"DT")="2970312"
^DD(72,0,"ID",7)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RA(79.2,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(79.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(72,0,"IX","AA1",72,3)=""
^DD(72,0,"IX","AA2",72,7)=""
^DD(72,0,"IX","AVC",72,9)=""
^DD(72,0,"IX","B",72,.01)=""
^DD(72,0,"NM","EXAMINATION STATUS")=""
^DD(72,0,"PT",70.03,3)=""
^DD(72,0,"PT",70.05,2)=""
^DD(72,0,"PT",72,2)=""
^DD(72,0,"VR")="5.0"
^DD(72,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(72,.01,0)="STATUS^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(72,.01,.1)="Name of Current Exam Status"
^DD(72,.01,1,0)="^.1"
^DD(72,.01,1,1,0)="72^B"
^DD(72,.01,1,1,1)="S ^RA(72,""B"",$E(X,1,30),DA)="""""
^DD(72,.01,1,1,2)="K ^RA(72,""B"",$E(X,1,30),DA)"
^DD(72,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(72,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(72,.01,3)="Enter a name for an exam status, between 3 and 30 non-numeric characters, to the current exam status being defined."
^DD(72,.01,10)="RAD/NUC MED COORDINATOR"
^DD(72,.01,21,0)="^^6^6^2940518^^^^"
^DD(72,.01,21,1,0)="This field contains the name given to the current exam status being"
^DD(72,.01,21,2,0)="defined. The exam status denotes what stage of the exam process the"
^DD(72,.01,21,3,0)="exam is currently in."
^DD(72,.01,21,4,0)=" "
^DD(72,.01,21,5,0)="Exam status names are assigned by each site and must be between"
^DD(72,.01,21,6,0)="3 and 30 non-numeric characters in length."
^DD(72,.01,"DEL",1,0)="I 1 W !,""Exam Status should not be deleted. Refer to user documentation for this option."""
^DD(72,.01,"DT")="2960718"
^DD(72,.11,0)="TECHNOLOGIST REQUIRED?^RS^Y:YES;N:NO;^.1;1^Q"
^DD(72,.11,.1)="Technologist Required ?"
^DD(72,.11,3)="Enter 'YES' if the name of a technologist is required for an exam to be moved into the current status being defined."
^DD(72,.11,10)="RAD/NUC MED COORDINATOR"
^DD(72,.11,21,0)="^^3^3^2960719^^^^"
^DD(72,.11,21,1,0)="This site-specific field may be set to 'Yes' to require that the name of"
^DD(72,.11,21,2,0)="the technologist must be entered in order for an exam to be moved into the"
^DD(72,.11,21,3,0)="current status being defined."
^DD(72,.11,"DT")="2960718"
^DD(72,.111,0)="REPORT ENTERED REQUIRED?^RS^Y:YES;N:NO;^.1;11^Q"
^DD(72,.111,.1)="Report Entered required ?"
^DD(72,.111,3)="Enter 'YES' if a report is required to reach this status being defined."
^DD(72,.111,10)="RAD/NUC MED COORDINATOR"
^DD(72,.111,21,0)="^^4^4^2970827^"
^DD(72,.111,21,1,0)="This site-specific field may be set to 'Yes' to require that a report be"
^DD(72,.111,21,2,0)="entered in order for an exam to be moved into the current status being"
^DD(72,.111,21,3,0)="defined.  This refers to report record, not the report text field within"
^DD(72,.111,21,4,0)="the record."
^DD(72,.111,"DT")="2960718"
^DD(72,.112,0)="VERIFIED REPORT REQUIRED?^RS^Y:YES;N:NO;^.1;12^Q"
^DD(72,.112,.1)="Verified Report required ?"
^DD(72,.112,3)="Enter 'YES' if a verified report is required for this status."
^DD(72,.112,10)="RAD/NUC MED COORDINATOR"
^DD(72,.112,21,0)="^^3^3^2940518^^^^"
^DD(72,.112,21,1,0)="This site-specific field may be set to 'Yes' to require that the report"
^DD(72,.112,21,2,0)="be verified in order for an exam to be moved into the current status"
^DD(72,.112,21,3,0)="being defined."
^DD(72,.112,"DT")="2960718"
^DD(72,.113,0)="PROCEDURE MODIFIERS REQUIRED?^S^Y:YES;N:NO;^.1;13^Q"
^DD(72,.113,.1)="Procedure Modifiers required ?"
^DD(72,.113,3)="If an exam requires at least 1 procedure modifier for completion, answer 'Y'."
^DD(72,.113,"DT")="2990806"
^DD(72,.114,0)="CPT MODIFIERS REQUIRED?^S^Y:YES;N:NO;^.1;14^Q"
^DD(72,.114,.1)="CPT Modifiers required ?"
^DD(72,.114,3)="If an exam requires at least 1 CPT modifier for completion, answer 'Y'."
^DD(72,.114,"DT")="2990806"
^DD(72,.116,0)="IMPRESSION REQUIRED?^S^Y:YES;N:NO;^.1;16^Q"
^DD(72,.116,.1)="Impression required ?"
^DD(72,.116,3)="Enter 'YES' if a report inpression is required for this status."
^DD(72,.116,10)="RAD/NUC MED COORDINATOR"
^DD(72,.116,21,0)="^^3^3^2940518^^^^"
^DD(72,.116,21,1,0)="This site-specific field may be set to 'Yes' to require that a report"
^DD(72,.116,21,2,0)="impression be entered in order for an exam to be moved into the current"
^DD(72,.116,21,3,0)="status being defined."
^DD(72,.116,"DT")="2960718"
^DD(72,.12,0)="RESIDENT OR STAFF REQUIRED?^RS^Y:YES;N:NO;^.1;2^Q"
^DD(72,.12,.1)="Resident Or Staff Required ?"
^DD(72,.12,3)="Enter 'YES' if an interpreting resident or staff is required for this status."
^DD(72,.12,10)="RAD/NUC MED COORDINATOR"
^DD(72,.12,21,0)="^^3^3^2940606^"
^DD(72,.12,21,1,0)="This site-specific field may be set to 'Yes' to require that an"
^DD(72,.12,21,2,0)="interpreting resident or staff physician be entered in order for an exam"
^DD(72,.12,21,3,0)="to be moved into the current status being defined."
^DD(72,.12,"DT")="2960718"
^DD(72,.13,0)="DETAILED PROCEDURE REQUIRED?^RS^Y:YES;N:NO;^.1;3^Q"
^DD(72,.13,.1)="Detailed Procedure required ?"
^DD(72,.13,3)="Enter 'Y'es if a 'Detailed' procedure type is required for this status."
^DD(72,.13,10)="RAD/NUC MED COORDINATOR"
^DD(72,.13,21,0)="^^6^6^2970320^^^^"
^DD(72,.13,21,1,0)="This site-specific field may be set to 'Yes' to require that a 'Detailed'"
^DD(72,.13,21,2,0)="procedure type be entered in order for an exam to be moved into the current"
^DD(72,.13,21,3,0)="status being defined.  If the 'division' parameter requiring that a"
^DD(72,.13,21,4,0)="'Detailed' procedure type be entered during initial exam registration is"
^DD(72,.13,21,5,0)="set to 'Yes', then the 'division' requirement takes precedence over this"
^DD(72,.13,21,6,0)="requirement."
^DD(72,.13,"DT")="2960718"
^DD(72,.14,0)="FILM ENTRY REQUIRED?^RS^Y:YES;N:NO;^.1;4^Q"
^DD(72,.14,.1)="Film Entry Required ?"
^DD(72,.14,3)="Enter 'Y'es if a film entry is required for this status."
^DD(72,.14,10)="RAD/NUC MED COORDINATOR"
^DD(72,.14,21,0)="^^3^3^2940518^^^^"
^DD(72,.14,21,1,0)="This site-specific field may be set to 'Yes' to denote that film entry"
^DD(72,.14,21,2,0)="is required in order for an exam to be moved into the current status being"
^DD(72,.14,21,3,0)="defined."
^DD(72,.14,"DT")="2960718"
^DD(72,.15,0)="DIAGNOSTIC CODE REQUIRED?^RS^Y:YES;N:NO;^.1;5^Q"
^DD(72,.15,.1)="Diagnostic Code Required ?"
^DD(72,.15,3)="Enter 'Y'es if a diagnostic code is required for this status."
^DD(72,.15,10)="RAD/NUC MED COORDINATOR"
^DD(72,.15,21,0)="^^3^3^2940518^^^^"
^DD(72,.15,21,1,0)="This site-specific field may be set to 'Yes' to require that the diagnostic"
^DD(72,.15,21,2,0)="code be entered in order for an exam to be moved into the current status"
^DD(72,.15,21,3,0)="being defined."
^DD(72,.15,"DT")="2960718"
^DD(72,.16,0)="CAMERA/EQUIP/RM REQUIRED?^RS^Y:YES;N:NO;^.1;6^Q"
^DD(72,.16,.1)="Camera/Equip/Rm Required ?"
^DD(72,.16,3)="Enter 'Y'es if a camera/equip/rm is required for this status."
^DD(72,.16,10)="RAD/NUC MED COORDINATOR"
^DD(72,.16,21,0)="^^3^3^2940603^"
^DD(72,.16,21,1,0)="This site-specific field may be set to 'Yes' to require that the"
^DD(72,.16,21,2,0)="camera/equip/rm be entered in order for an exam to be moved into the"
^DD(72,.16,21,3,0)="current status being defined."
^DD(72,.16,"DT")="2960718"
^DD(72,.21,0)="ASK FOR TECHNOLOGIST?^RS^Y:YES;N:NO;^.2;1^Q"
^DD(72,.21,.1)="Ask for Technologist ?"
^DD(72,.21,3)="Enter 'Y'es if the user should be prompted for a technologist's name."
^DD(72,.21,10)="RAD/NUC MED COORDINATOR"
^DD(72,.21,21,0)="^^4^4^2960619^^^^"
^DD(72,.21,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.21,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.21,21,3,0)="the rad/nuc med system.  If this field is set to 'Yes', then the user will"
^DD(72,.21,21,4,0)="be prompted for the technologist in order to update an exam to this status."
^DD(72,.21,"DT")="2960718"
^DD(72,.211,0)="ASK FOR USER CODE?^RS^Y:YES;N:NO;^.2;11^Q"
^DD(72,.211,.1)="Ask for User Code ?"
^DD(72,.211,3)="Enter 'Y'es if the user should be prompted for his/her user code."
^DD(72,.211,10)="RAD/NUC MED COORDINATOR"
^DD(72,.211,21,0)="^^4^4^2940518^^^^"
^DD(72,.211,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.211,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.211,21,3,0)="the rad/nuc med system.  If this field is set to 'Yes', then the user will"
^DD(72,.211,21,4,0)="be prompted for their user code in order to update an exam to this status."
^DD(72,.211,"DT")="2960718"
^DD(72,.213,0)="ASK PROCEDURE MODIFIERS?^S^Y:YES;N:NO;^.2;13^Q"
^DD(72,.213,.1)="Ask for Procedure Modifiers ?"
^DD(72,.213,3)="If Procedure Modifiers should be asked in Status Tracking, answer 'Y'."
^DD(72,.213,"DT")="2990806"
^DD(72,.214,0)="ASK CPT MODIFIERS?^S^Y:YES;N:NO;^.2;14^Q"
^DD(72,.214,.1)="Ask for CPT Modifiers ?"
^DD(72,.214,3)="If CPT Modifiers should be asked in Status Tracking, answer 'Y'."
^DD(72,.214,"DT")="2990806"
^DD(72,.22,0)="ASK FOR INTERPRETING PHYS?^RS^Y:YES;N:NO;^.2;2^Q"
^DD(72,.22,.1)="Ask For Interpreting Physician ?"
^DD(72,.22,3)="Enter 'Y'es if the user should be prompted for an interpreting physician to update to this status."
^DD(72,.22,10)="RAD/NUC MED COORDINATOR"
^DD(72,.22,21,0)="^^5^5^2940606^"
^DD(72,.22,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.22,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.22,21,3,0)="the Rad/Nuc Med system.  If this field is set to 'Yes', then the user will"
^DD(72,.22,21,4,0)="be prompted for both the 'resident' and 'staff' interpreting physicians in"
^DD(72,.22,21,5,0)="order to update an exam to this status."
^DD(72,.22,"DT")="2960718"
^DD(72,.23,0)="ASK FOR PROCEDURE?^RS^Y:YES;N:NO;^.2;3^Q"
^DD(72,.23,.1)="Ask for Procedure ?"
^DD(72,.23,3)="Enter 'Y'es if the user should be prompted for a procedure to update the exam to this status."
^DD(72,.23,10)="RAD/NUC MED COORDINATOR"
^DD(72,.23,21,0)="^^4^4^2940518^^^^"
^DD(72,.23,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.23,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.23,21,3,0)="the rad/nuc med system. If this field is set to 'Yes', then the user will be"
^DD(72,.23,21,4,0)="prompted for the procedure in order to update an exam to this status."
^DD(72,.23,"DT")="2960718"
^DD(72,.24,0)="ASK FOR FILM DATA?^RS^Y:YES;N:NO;^.2;4^Q"
^DD(72,.24,.1)="Ask For Film Data ?"
^DD(72,.24,3)="Enter 'Y'es if the user should be prompted for the film data."
^DD(72,.24,10)="RAD/NUC MED COORDINATOR"
^DD(72,.24,21,0)="^^4^4^2940518^^^^"
^DD(72,.24,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.24,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.24,21,3,0)="the rad/nuc med system. If this field is set to 'Yes', then the user will be"
^DD(72,.24,21,4,0)="prompted for the film data in order to update an exam to this status."
^DD(72,.24,"DT")="2960718"
^DD(72,.25,0)="ASK FOR DIAGNOSTIC CODE?^RS^Y:YES;N:NO;^.2;5^Q"
^DD(72,.25,.1)="Ask For Diagnostic Code ?"
^DD(72,.25,3)="Enter 'Y'es if the user should be prompted for a diagnostic code to update this exam status."
^DD(72,.25,10)="RAD/NUC MED COORDINATOR"
^DD(72,.25,21,0)="^^5^5^2940518^^^^"
^DD(72,.25,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.25,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.25,21,3,0)="the rad/nuc med system. If this field is set to 'Yes', then the user will"
^DD(72,.25,21,4,0)="be prompted for the diagnostic code in order to update an exam to this"
^DD(72,.25,21,5,0)="status."
^DD(72,.25,"DT")="2960718"
^DD(72,.26,0)="ASK FOR CAMERA/EQUIP/RM?^RS^Y:YES;N:NO;^.2;6^Q"
^DD(72,.26,.1)="Ask For Camera/Equip/Rm ?"
^DD(72,.26,3)="Enter 'Y'es if the user should be prompted for a camera/equip/rm to update the exam to this status."
^DD(72,.26,10)="RAD/NUC MED COORDINATOR"
^DD(72,.26,21,0)="^^5^5^2960617^^"
^DD(72,.26,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.26,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.26,21,3,0)="the rad/nuc med system. If this field is set to 'Yes', then the user will"
^DD(72,.26,21,4,0)="be prompted for the camera/equip/rm in order to update an exam to this"
^DD(72,.26,21,5,0)="status."
^DD(72,.26,"DT")="2960718"
^DD(72,.27,0)="ASK MEDICATIONS & DOSAGES?^RS^Y:YES;N:NO;^.2;7^Q"
^DD(72,.27,.1)="Ask Medications & Dosages ?"
^DD(72,.27,3)="Enter 'Y'es if the user should be prompted for medications and dosages before an exam of this imaging type reaches this status."
^DD(72,.27,21,0)="^^7^7^2970110^"
^DD(72,.27,21,1,0)="This parameter works in conjunction with a parameter on the Rad/Nuc Med"
^DD(72,.27,21,2,0)="Procedure file #71. Depending on how this field is answered, the user may"
^DD(72,.27,21,3,0)="or may not be prompted for medications during exam status tracking.  If"
^DD(72,.27,21,4,0)="this field is set to 'Yes', AND the 'Prompt for Meds' field of the"
^DD(72,.27,21,5,0)="procedure (in the Rad/Nuc Med Procedure file #71) is set to 'Yes', then"
^DD(72,.27,21,6,0)="the user will be prompted for the 'Medication' and 'Dose' in order to"
^DD(72,.27,21,7,0)="update an exam of this imaging type to this status."
^DD(72,.27,"DT")="2961213"
^DD(72,.28,0)="ASK MED ADM DT/TIME/PERSON?^RS^Y:YES;N:NO;^.2;8^Q"
^DD(72,.28,.1)="Ask Medication Admin Dt/Time & Person ?"
^DD(72,.28,3)="Enter 'Y'es if the user should be prompted for Medication admin date/time and Person who administered dose for exams of this imaging type."
^DD(72,.28,21,0)="^^6^6^2961213^"
^DD(72,.28,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.28,21,2,0)="prompted for medication administration date/time and administering person"
^DD(72,.28,21,3,0)="while using the exam status tracking function of the Rad/Nuc Med system."
^DD(72,.28,21,4,0)="If this field is set to 'Yes', then the user will be prompted for the date"
^DD(72,.28,21,5,0)="and time the medication was administered and the person who administered"
^DD(72,.28,21,6,0)="the dose in order to update an exam of this imaging type to this status."
^DD(72,.28,"DT")="2961213"
^DD(72,.31,0)="CLINIC REPORT?^S^y:YES;n:NO;^.3;1^Q"
^DD(72,.31,.1)="Clinic Report should include exams of this status ?"
^DD(72,.31,3)="Enter 'Y'es if exams in this status should be included in the 'Clinic Workload Report'."
^DD(72,.31,10)="RAD/NUC MED COORDINATOR"
^DD(72,.31,21,0)="^^7^7^2940518^^^^"
^DD(72,.31,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.31,21,2,0)="exam status currently being defined should be included in the 'Clinic"
^DD(72,.31,21,3,0)="Workload Report'."
^DD(72,.31,21,4,0)=" "
^DD(72,.31,21,5,0)="When the workload report routine is processing an exam that is in"
^DD(72,.31,21,6,0)="the exam status currently being defined, it will check this parameter"
^DD(72,.31,21,7,0)="to determine whether to include the exam in the report compilation."
^DD(72,.31,"DT")="2960722"
^DD(72,.311,0)="CAMERA/EQUIP/RM REPORT?^S^y:YES;n:NO;^.3;11^Q"
^DD(72,.311,.1)="Camera/Equip/Rm Report should include exams of this status ?"
^DD(72,.311,3)="Enter 'Y'es if exams in this status should be included in the 'Camera/Equip/Rm Workload Report'."
^DD(72,.311,10)="RAD/NUC MED COORDINATOR"
^DD(72,.311,21,0)="^^7^7^2940603^"
^DD(72,.311,21,1,0)="Set this parameter to 'YES',  to indicate that exams with the exam status"
^DD(72,.311,21,2,0)="currently being defined should be included in the 'Camera/Equip/Rm"
^DD(72,.311,21,3,0)="Workload Report'."
^DD(72,.311,21,4,0)=" "
^DD(72,.311,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.311,21,6,0)="exam status currently being defined, it will check this parameter"
^DD(72,.311,21,7,0)="to determine whether to include the exam in the report compilation."
^DD(72,.311,"DT")="2960722"
^DD(72,.312,0)="PHYSICIAN REPORT?^S^y:YES;n:NO;^.3;12^Q"
^DD(72,.312,.1)="Physician Report should include exams of this status ?"
^DD(72,.312,3)="Enter 'Y'es if exams in this status should be included in the 'Physician Workload Report'."
^DD(72,.312,10)="RAD/NUC MED COORDINATOR"
^DD(72,.312,21,0)="^^7^7^2940518^^^^"
^DD(72,.312,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.312,21,2,0)="exam status currently being defined should be included in the 'Physician"
^DD(72,.312,21,3,0)="Workload Report'."
^DD(72,.312,21,4,0)=" "
^DD(72,.312,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.312,21,6,0)="exam status currently being defined, it will check this parameter to "
^DD(72,.312,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.312,"DT")="2960722"
^DD(72,.313,0)="RESIDENT REPORT?^S^y:YES;n:NO;^.3;13^Q"
^DD(72,.313,.1)="Resident Report should include exams of this status ?"
^DD(72,.313,3)="Enter 'Y'es if exams in this status should be included on the 'Resident Workload Report'."
^DD(72,.313,10)="RAD/NUC MED COORDINATOR"
^DD(72,.313,21,0)="^^7^7^2940518^^^^"
^DD(72,.313,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.313,21,2,0)="exam status currently being defined should be included in the 'Resident"
^DD(72,.313,21,3,0)="Workload Report'."
^DD(72,.313,21,4,0)=" "
^DD(72,.313,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.313,21,6,0)="status currently being defined, it will check this parameter to determine"
^DD(72,.313,21,7,0)="whether to include the exam in the report compilation."
^DD(72,.313,"DT")="2960722"
^DD(72,.314,0)="STAFF REPORT?^S^y:YES;n:NO;^.3;14^Q"
^DD(72,.314,.1)="Staff Report should include exams of this status ?"
^DD(72,.314,3)="Enter 'Y'es if the exams with this status should be included on the 'Staff Workload Report'."
^DD(72,.314,10)="RAD/NUC MED COORDINATOR"
^DD(72,.314,21,0)="^^7^7^2940518^^^^"
^DD(72,.314,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.314,21,2,0)="exam status currently being defined should be included in the 'Staff"
^DD(72,.314,21,3,0)="Workload Report'."
^DD(72,.314,21,4,0)=" "
^DD(72,.314,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.314,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.314,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.314,"DT")="2960722"
^DD(72,.315,0)="DELINQUENT STATUS REPORT?^S^y:YES;n:NO;^.3;15^Q"
^DD(72,.315,.1)="Delinquent Status Report should include exams of this status ?"
^DD(72,.315,3)="Enter 'Y'es at this prompt if the exams in this status should be included on the 'Delinquent Status Report'."
^DD(72,.315,10)="RAD/NUC MED COORDINATOR"
^DD(72,.315,21,0)="^^7^7^2940518^^^^"
^DD(72,.315,21,1,0)="Set this parameter to 'YES', to indicate that exams with the exam status"
^DD(72,.315,21,2,0)="currently being defined should be included in the 'Delinquent Status"
^DD(72,.315,21,3,0)="Report'."
^DD(72,.315,21,4,0)=" "
^DD(72,.315,21,5,0)="When the report routine is processing an exam that is in the exam"
^DD(72,.315,21,6,0)="status currently being defined, it will check this parameter to"
^DD(72,.315,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.315,"DT")="2960722"
^DD(72,.32,0)="PTF BEDSECTION REPORT?^S^y:YES;n:NO;^.3;2^Q"
^DD(72,.32,.1)="PTF Bedsection Report should include exams of this status ?"
^DD(72,.32,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'PTF Bedsection Workload Report'."
^DD(72,.32,10)="RAD/NUC MED COORDINATOR"
^DD(72,.32,21,0)="^^7^7^2940518^^^^"
^DD(72,.32,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.32,21,2,0)="exam status currently being defined should be included in the 'PTF"
^DD(72,.32,21,3,0)="Bedsection Workload Report'."
^DD(72,.32,21,4,0)=" "
^DD(72,.32,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.32,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.32,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.32,"DT")="2960722"
^DD(72,.33,0)="SERVICE REPORT?^S^y:YES;n:NO;^.3;3^Q"
^DD(72,.33,.1)="Service Report (Workload) should include exams of this status ?"
^DD(72,.33,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'Service Workload Report'."
^DD(72,.33,10)="RAD/NUC MED COORDINATOR"
^DD(72,.33,21,0)="^^7^7^2940518^^^^"
^DD(72,.33,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.33,21,2,0)="exam status currently being defined should be included in the 'Service"
^DD(72,.33,21,3,0)="Workload Report'."
^DD(72,.33,21,4,0)=" "
^DD(72,.33,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.33,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.33,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.33,"DT")="2960722"
^DD(72,.34,0)="SHARING/CONTRACT REPORT?^S^y:YES;n:NO;^.3;4^Q"
^DD(72,.34,.1)="Sharing/Contract Report (Workload) should include exams of this status ?"
^DD(72,.34,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'Sharing/Contract Workload Report'."
^DD(72,.34,10)="RAD/NUC MED COORDINATOR"
^DD(72,.34,21,0)="^^7^7^2940518^^^^"
^DD(72,.34,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.34,21,2,0)="exam status currently being defined should be included in the 'Sharing/"
^DD(72,.34,21,3,0)="Contract Workload Report'."
^DD(72,.34,21,4,0)=" "
^DD(72,.34,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.34,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.34,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.34,"DT")="2960722"
^DD(72,.35,0)="WARD REPORT?^S^y:YES;n:NO;^.3;5^Q"
^DD(72,.35,.1)="Ward Report (Workload) should include exams of this status ?"
^DD(72,.35,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'Ward Workload Report'."
^DD(72,.35,10)="RAD/NUC MED COORDINATOR"
^DD(72,.35,21,0)="^^7^7^2940518^^^^"
^DD(72,.35,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.35,21,2,0)="exam status currently being defined should be included in the 'Ward"
^DD(72,.35,21,3,0)="Workload Report'."
^DD(72,.35,21,4,0)=" "
^DD(72,.35,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.35,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.35,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.35,"DT")="2960722"
^DD(72,.36,0)="FILM USAGE REPORT?^S^y:YES;n:NO;^.3;6^Q"
^DD(72,.36,.1)="Film Usage Report (Workload) should include exams of this status ?"
^DD(72,.36,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'Film Usage Workload Report'."
^DD(72,.36,10)="RAD/NUC MED COORDINATOR"
^DD(72,.36,21,0)="^^7^7^2940518^^^^"
^DD(72,.36,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.36,21,2,0)="exam status currently being defined should be included in the 'Film"
^DD(72,.36,21,3,0)="Usage Workload Report'."
^DD(72,.36,21,4,0)=" "
^DD(72,.36,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.36,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.36,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.36,"DT")="2960722"
^DD(72,.37,0)="TECHNOLOGIST REPORT?^S^y:YES;n:NO;^.3;7^Q"
^DD(72,.37,.1)="Technologist Report (Workload) should include exams of this status ?"
^DD(72,.37,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'Technologist Workload Report'."
^DD(72,.37,10)="RAD/NUC MED COORDINATOR"
^DD(72,.37,21,0)="^^7^7^2940518^^^^"
^DD(72,.37,21,1,0)="Set this parameter to 'YES' to indicate that exams with the exam"
^DD(72,.37,21,2,0)="status currently being defined should be included in the 'Technologist"
^DD(72,.37,21,3,0)="Workload Report'."
^DD(72,.37,21,4,0)=" "
^DD(72,.37,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.37,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.37,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.37,"DT")="2960722"
^DD(72,.38,0)="AMIS REPORT?^S^y:YES;n:NO;^.3;8^Q"
^DD(72,.38,.1)="AMIS Report (Workload) should include exams of this status ?"
^DD(72,.38,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'AMIS Workload Report'."
^DD(72,.38,10)="RAD/NUC MED COORDINATOR"
^DD(72,.38,21,0)="^^7^7^2940518^^^^"
^DD(72,.38,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.38,21,2,0)="exam status currently being defined should be included in the 'AMIS"
^DD(72,.38,21,3,0)="Workload Report'."
^DD(72,.38,21,4,0)=" "
^DD(72,.38,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.38,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.38,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.38,"DT")="2960722"
^DD(72,.39,0)="DETAILED PROCEDURE REPORT?^S^y:YES;n:NO;^.3;9^Q"
^DD(72,.39,.1)="Detailed Procedure Report (Workload) should include exams of this status ?"
^DD(72,.39,3)="Enter 'Y'es at this prompt if the exams with this status should be included on the 'Detailed Procedure Workload Report'."
^DD(72,.39,10)="RAD/NUC MED COORDINATOR"
^DD(72,.39,21,0)="^^7^7^2940518^^^^"
^DD(72,.39,21,1,0)="Set this parameter to 'YES', to indicate that exams with the"
^DD(72,.39,21,2,0)="exam status currently being defined should be included in the 'Detailed"
^DD(72,.39,21,3,0)="Procedure Workload Report'."
^DD(72,.39,21,4,0)=" "
^DD(72,.39,21,5,0)="When the workload report routine is processing an exam that is in the"
^DD(72,.39,21,6,0)="exam status currently being defined, it will check this parameter to"
^DD(72,.39,21,7,0)="determine whether to include the exam in the report compilation."
^DD(72,.39,"DT")="2960722"
^DD(72,.51,0)="RADIOPHARMS/DOSAGES REQUIRED?^RS^Y:YES;N:NO;^.5;1^Q"
^DD(72,.51,.1)="Radiopharms & Dosages required ?"
^DD(72,.51,3)="Enter 'Y'es if radiopharms and dosages are required for this status."
^DD(72,.51,21,0)="^^7^7^2970110^"
^DD(72,.51,21,1,0)="This site-specific field may be set to 'Yes' to require that the"
^DD(72,.51,21,2,0)="'Radiopharmaceuticals' and 'Dose' be entered in order for an exam of this"
^DD(72,.51,21,3,0)="imaging type to be moved into the current status being defined."
^DD(72,.51,21,4,0)=" "
^DD(72,.51,21,5,0)="Note:  To override the requirement for radiopharmaceutical on an"
^DD(72,.51,21,6,0)="individual procedure, set the 'Ask Radiopharmaceutical' field of the"
^DD(72,.51,21,7,0)="Rad/Nuc Med Procedure file to 'Never' for that procedure."
^DD(72,.51,"DT")="2960718"
^DD(72,.53,0)="ACTIVITY DRAWN REQUIRED?^RS^Y:YES;N:NO;^.5;3^Q"
^DD(72,.53,.1)="Activity Drawn required (Radiopharm) ?"
^DD(72,.53,3)="Enter 'Y'es if the activity of radiopharm drawn is required for exam status change."
^DD(72,.53,21,0)="^^3^3^2961217^^"
^DD(72,.53,21,1,0)="This site-specific field may be set to 'Yes' to require that the 'Activity"
^DD(72,.53,21,2,0)="Drawn' be required in order for an exam of this imaging type to be moved"
^DD(72,.53,21,3,0)="into the current status being defined."
^DD(72,.53,"DT")="2961217"
^DD(72,.54,0)="DRAWN DT/TIME/PERSON REQUIRED?^RS^Y:YES;N:NO;^.5;4^Q"
^DD(72,.54,.1)="Drawn Dt/Time and Person required (Radiopharm) ?"
^DD(72,.54,3)="Enter 'Y'es if the Dt/time of radiopharm measure and Person who measured dose are required for this status."
^DD(72,.54,21,0)="^^4^4^2960807^"
^DD(72,.54,21,1,0)="This site-specific field may be set to 'Yes' to require that the"
^DD(72,.54,21,2,0)="'Date/time of measure' and 'Person who measured dose' be entered in order"
^DD(72,.54,21,3,0)="for an exam of this imaging type to be moved into the current status being"
^DD(72,.54,21,4,0)="defined."
^DD(72,.54,"DT")="2960722"
^DD(72,.55,0)="ADM DT/TIME/PERSON REQUIRED?^RS^Y:YES;N:NO;^.5;5^Q"
^DD(72,.55,.1)="Admin Dt/Time/Person required (Radiopharm) ?"
^DD(72,.55,3)="Enter 'Y'es if the dt/tm of radiopharm dose administration and person who administered dose are required for this status."
^DD(72,.55,21,0)="^^4^4^2960619^^^"
^DD(72,.55,21,1,0)="This site-specific field may be set to 'Yes' to require that the "
^DD(72,.55,21,2,0)="'Date/Time of dose administration' and 'Person who administered dose'"
^DD(72,.55,21,3,0)="be entered in order for an exam to be moved into the current status"
^DD(72,.55,21,4,0)="being defined."
^DD(72,.55,"DT")="2960722"
^DD(72,.57,0)="ROUTE/SITE REQUIRED?^RS^Y:YES;N:NO;^.5;7^Q"
^DD(72,.57,.1)="Route/Site required (Radiopharm administered) ?"
^DD(72,.57,3)="Enter 'Y'es if the route and site of radiopharm administration are required for this status."
^DD(72,.57,21,0)="^^4^4^2960807^"
^DD(72,.57,21,1,0)="This site-specific field may be set to 'Yes' to require that the 'Route of"
^DD(72,.57,21,2,0)="Administration' and 'Site of Administration' be entered in order for an"
^DD(72,.57,21,3,0)="exam of this imaging type to be moved into the current status being"
^DD(72,.57,21,4,0)="defined."
^DD(72,.57,"DT")="2960722"
^DD(72,.58,0)="LOT NO. REQUIRED?^RS^Y:YES;N:NO;^.5;8^Q"
^DD(72,.58,.1)="Lot No. required (Radiopharm) ?"
^DD(72,.58,3)="Enter 'Y'es if the radiopharmaceutical Lot No. is required to reach this status."
^DD(72,.58,21,0)="^^3^3^2960807^"
^DD(72,.58,21,1,0)="This site-specific field may be set to 'Yes' to require that the 'Lot No.'"
^DD(72,.58,21,2,0)="be entered in order for an exam of this imaging type to be moved into the"
^DD(72,.58,21,3,0)="current status being defined."
^DD(72,.58,"DT")="2960722"
^DD(72,.59,0)="VOLUME/FORM REQUIRED?^RS^Y:YES;N:NO;^.5;9^Q"
^DD(72,.59,.1)="Volume/Form required (Radiopharm) ?"
^DD(72,.59,3)="Enter 'Y'es if the volume and form of the radiopharmaceutical is required for this status."
^DD(72,.59,21,0)="^^3^3^2960807^"
^DD(72,.59,21,1,0)="This site-specific field may be set to 'Yes' to require that the 'Volume',"
^DD(72,.59,21,2,0)="'Form', and 'Other form' be entered in order for an exam of this imaging"
^DD(72,.59,21,3,0)="type to reach the current status being defined."
^DD(72,.59,"DT")="2960722"
^DD(72,.61,0)="ASK RADIOPHARMS AND DOSAGES?^RS^Y:YES;N:NO;^.6;1^Q"
^DD(72,.61,.1)="Ask Radiopharmaceuticals and Dosages ?"
^DD(72,.61,3)="Enter 'Y'es if the user should be prompted for Radiopharmaceuticals and Dosages when updating to this status."
^DD(72,.61,21,0)="^^10^10^2970110^"
^DD(72,.61,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.61,21,2,0)="prompted for radiopharmaceuticals and doses while using the exam status"
^DD(72,.61,21,3,0)="tracking function of the Rad/Nuc Med system.  If this field is set to"
^DD(72,.61,21,4,0)="'Yes', then the user will be prompted for the 'Radiopharmaceutical' and"
^DD(72,.61,21,5,0)="'Dose' in order to update an exam of this imaging type to this status."
^DD(72,.61,21,6,0)=" "
^DD(72,.61,21,7,0)="Note:  To override this parameter, and turn OFF the prompt for"
^DD(72,.61,21,8,0)="radiopharmaceuticals on an individual procedure, set the 'Ask"
^DD(72,.61,21,9,0)="Radiopharmaceutical' field of the Rad/Nuc Med Procedure file to 'Never'"
^DD(72,.61,21,10,0)="for that procedure."
^DD(72,.61,"DT")="2960722"
^DD(72,.611,0)="PRINT DOSAGE TICKET?^RS^Y:YES;N:NO;^.6;11^Q"
^DD(72,.611,.1)="Print Dosage Ticket when exam reaches this status ?"
^DD(72,.611,3)="Enter 'Y'es if a dosage ticket should be printed when an exam using radiopharmaceuticals reaches this status."
^DD(72,.611,21,0)="^^13^13^2970116^"
^DD(72,.611,21,1,0)="If an exam of this imaging type that uses radiopharmaceuticals reaches"
^DD(72,.611,21,2,0)="this status, a Dosage Ticket will be printed if the following are also"
^DD(72,.611,21,3,0)="true:"
^DD(72,.611,21,4,0)=" "
^DD(72,.611,21,5,0)="1. A valid print device has been assigned to the Imaging Location."
^DD(72,.611,21,6,0)=" "
^DD(72,.611,21,7,0)="2. ""Yes"" has been answered for the following prompts at this (or lower)"
^DD(72,.611,21,8,0)="status for this imaging type:"
^DD(72,.611,21,9,0)=" "
^DD(72,.611,21,10,0)="         Radiopharms/dosages required"
^DD(72,.611,21,11,0)="         Amount Drawn required"
^DD(72,.611,21,12,0)="         Drawn dt/time/person required"
^DD(72,.611,21,13,0)="         Lot No. Required"
^DD(72,.611,"DT")="2960722"
^DD(72,.63,0)="ASK ACTIVITY DRAWN?^RS^Y:YES;N:NO;^.6;3^Q"
^DD(72,.63,.1)="Ask Activity Drawn (Radiopharmaceutical) ?"
^DD(72,.63,3)="Enter 'Y'es if the user should be prompted for the radiopharmaceutical Activity Drawn."
^DD(72,.63,21,0)="^^5^5^2961217^^^"
^DD(72,.63,21,1,0)="Depending on how each site sets up this field, the user may or may not"
^DD(72,.63,21,2,0)="be prompted for activity of radiopharmaceutical drawn while using the exam"
^DD(72,.63,21,3,0)="status tracking function of the Rad/Nuc Med system.  If this field is set"
^DD(72,.63,21,4,0)="to 'Yes', then the user will be prompted for the Activity Drawn in order"
^DD(72,.63,21,5,0)="to update an exam of this imaging type to this status."
^DD(72,.63,"DT")="2961217"
^DD(72,.64,0)="ASK DRAWN DT/TIME/PERSON?^RS^Y:YES;N:NO;^.6;4^Q"
^DD(72,.64,.1)="Ask Drawn Dt/Time & Person (Radiopharmaceutical) ?"
^DD(72,.64,3)="Enter 'Y'es if the user should be prompted for the Date/time of measure and Person who measured radiopharmaceutical dose."
^DD(72,.64,21,0)="^^6^6^2960807^"
^DD(72,.64,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.64,21,2,0)="prompted for data related to radiopharmaceutical drawn while using the"
^DD(72,.64,21,3,0)="exam status tracking function of the Rad/Nuc Med system.  If this field is"
^DD(72,.64,21,4,0)="set to 'Yes', then the user will be prompted for 'Date/time of measure'"
^DD(72,.64,21,5,0)="and 'Person who measured dose' when updating an exam of this imaging type"
^DD(72,.64,21,6,0)="to this status."
^DD(72,.64,"DT")="2960722"
^DD(72,.65,0)="ASK ADM DT/TIME/PERSON?^RS^Y:YES;N:NO;^.6;5^Q"
^DD(72,.65,.1)="Ask Admin Dt/Time & Person (Radiopharmaceutical) ?"
^DD(72,.65,3)="Enter 'Y'es if the user should be prompted for Date/time of dose administration and Person who administered dose."
^DD(72,.65,21,0)="^^6^6^2960807^"
^DD(72,.65,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.65,21,2,0)="prompted with this field while using the exam status tracking function of"
^DD(72,.65,21,3,0)="the Rad/Nuc Med system.  If this field is set to 'Yes', then the user will"
^DD(72,.65,21,4,0)="be prompted for the 'Date/time of dose administration' and 'Person who"
^DD(72,.65,21,5,0)="administered dose' in order to update an exam of this imaging type to this"
^DD(72,.65,21,6,0)="status."
^DD(72,.65,"DT")="2960722"
^DD(72,.67,0)="ASK ROUTE/SITE OF ADM?^RS^Y:YES;N:NO;^.6;7^Q"
^DD(72,.67,.1)="Ask Route/Site of Admin (Radiopharm) ?"
^DD(72,.67,3)="Enter 'Y'es if the user should be prompted for the Route and Site of radiopharm administration."
^DD(72,.67,21,0)="^^6^6^2960807^"
^DD(72,.67,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.67,21,2,0)="prompted for radiopharm route and site while using the exam status"
^DD(72,.67,21,3,0)="tracking function of the Rad/Nuc Med system.  If this field is set to"
^DD(72,.67,21,4,0)="'Yes', then the user will be prompted for the 'Route of administration'"
^DD(72,.67,21,5,0)="and 'Site of administration' in order to update an exam of this imaging"
^DD(72,.67,21,6,0)="type to this status."
^DD(72,.67,"DT")="2960722"
^DD(72,.68,0)="ASK LOT NO.?^RS^Y:YES;N:NO;^.6;8^Q"
^DD(72,.68,.1)="Ask Lot No. (Radiopharm) ?"
^DD(72,.68,3)="Enter 'Y'es if the user should be prompted for the radiopharmaceutical Lot number."
^DD(72,.68,21,0)="^^5^5^2960807^"
^DD(72,.68,21,1,0)="Depending on how each site sets up this field, the user may or may not"
^DD(72,.68,21,2,0)="be prompted for radiopharmaceutical lot while using the exam status"
^DD(72,.68,21,3,0)="tracking function of the Rad/Nuc Med system.  If this field is set to"
^DD(72,.68,21,4,0)="'Yes', then the user will be prompted for 'Lot No.' in order to update an"
^DD(72,.68,21,5,0)="exam of this imaging type to this status."
^DD(72,.68,"DT")="2960722"
^DD(72,.69,0)="ASK VOLUME/FORM?^RS^Y:YES;N:NO;^.6;9^Q"
^DD(72,.69,.1)="Ask Volume/Form (Radiopharm) ?"
^DD(72,.69,3)="Enter 'Y'es if the user should be prompted for Volume and Form of the radiopharmaceutical."
^DD(72,.69,21,0)="^^6^6^2960807^"
^DD(72,.69,21,1,0)="Depending on how each site sets up this field, the user may or may not be"
^DD(72,.69,21,2,0)="prompted for radiopharmaceutical lot and form while using the exam status"
^DD(72,.69,21,3,0)="tracking function of the Rad/Nuc Med system.  If this field is set to"
^DD(72,.69,21,4,0)="'Yes', then the user will be prompted for 'Volume', 'Form', and, if"
^DD(72,.69,21,5,0)="necessary, 'Other form' in order to update an exam of this imaging type to"
^DD(72,.69,21,6,0)="this status."
^DD(72,.69,"DT")="2960722"
^DD(72,1,0)="GENERATE EXAM ALERT?^S^y:YES;n:NO;^ALERT;1^Q"
^DD(72,1,.1)="Generate exam alert for requesting physician ?"
^DD(72,1,3)="Enter 'YES' if this exam status should generate an alert to the requesting physician that the patient has been examined."
^DD(72,1,21,0)="^^2^2^2940518^"
^DD(72,1,21,1,0)="This field contains a YES if the exam status should generate an alert"
^DD(72,1,21,2,0)="to the requesting physician that the patient has been examined."
^DD(72,1,"DT")="2960723"
^DD(72,2,0)="DEFAULT NEXT STATUS^*P72'^RA(72,^0;2^S DIC(""S"")=""N RA S RA(0)=$G(^RA(72,DA,0)),RA(7)=$P(RA(0),U,7) I +Y'=DA,($P(^RA(72,+Y,0),U,7)=RA(7)),$P(^RA(72,+Y,0),U,3)]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(72,2,.1)="Default next status for exam"
^DD(72,2,3)="The 'Exam Status Tracking' function uses this 'Default Next Status' field in determining which prompts to ask the user."
^DD(72,2,10)="RAD/NUC MED COORDINATOR"
^DD(72,2,12)="The 'Default Next Status' may only point to an Exam Status of the same Imaging type that's NOT itself and must have an Order No."
^DD(72,2,12.1)="S DIC(""S"")=""N RA S RA(0)=$G(^RA(72,DA,0)),RA(7)=$P(RA(0),U,7) I +Y'=DA,($P(^RA(72,+Y,0),U,7)=RA(7)),$P(^RA(72,+Y,0),U,3)]"""""""""""
^DD(72,2,21,0)="^^7^7^2970317^"
^DD(72,2,21,1,0)="During the Exam Status Tracking function, if an exam is in the status you"
^DD(72,2,21,2,0)="are currently editing, the system will present the 'default next status'"
^DD(72,2,21,3,0)="you enter here as the status to be reached next.  The status tracking"
^DD(72,2,21,4,0)="function will use the default next status to determine which prompts to"
^DD(72,2,21,5,0)="ask.  If the parameters of the default next status are met, the exam will"
^DD(72,2,21,6,0)="be placed in that status. Only active statuses with an order number can be"
^DD(72,2,21,7,0)="entered."
^DD(72,2,"DT")="2970312"
^DD(72,3,0)="ORDER^NJ1,0X^^0;3^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X X ^DD(72,3,9.2):$D(X) X ^DD(72,3,9.3):$D(X)"
^DD(72,3,.1)="Order in sequence of status progression"
^DD(72,3,1,0)="^.1^^-2"
^DD(72,3,1,2,0)="72^AA1^MUMPS"
^DD(72,3,1,2,1)="N RA S RA(0)=$G(^RA(72,DA,0)),RA(7)=+$P(RA(0),U,7),RA(7)=$P($G(^RA(79.2,RA(7),0)),U) S:RA(7)]"""" ^RA(72,""AA"",RA(7),X,DA)="""""
^DD(72,3,1,2,2)="N RA S RA(0)=$G(^RA(72,DA,0)),RA(7)=+$P(RA(0),U,7),RA(7)=$P($G(^RA(79.2,RA(7),0)),U) K:RA(7)]"""" ^RA(72,""AA"",RA(7),X,DA)"
^DD(72,3,1,2,3)="Do not delete."
^DD(72,3,1,2,"%D",0)="^^2^2^2940223^"
^DD(72,3,1,2,"%D",1,0)="     This xref links the Imaging Type with the Order field in the"
^DD(72,3,1,2,"%D",2,0)="Examination Status file."
^DD(72,3,1,2,"DT")="2940223"
^DD(72,3,3)="Enter an order number, between 1 and 8, for the logical order this exam status falls into."
^DD(72,3,9.2)="I $D(^RA(72,DA,0)),$P(^(0),""^"",3)=9,$P(^(0),""^"",3)'=X K X W !?3,""Changing the order for the number '9' status is prohibited."",!?3,""You can change the name of this status and then add a new "",!?3,""status with '"",$P(^(0),""^""),""' as its name."""
^DD(72,3,9.3)="N RA S RA(0)=$G(^RA(72,DA,0)),RA(7)=+$P(RA(0),U,7),RA(7)=$P($G(^RA(79.2,RA(7),0)),U) I RA(7)]"""",($D(^RA(72,""AA"",RA(7),X))) X ^DD(72,3,9.4)"
^DD(72,3,9.4)="S RA=+$O(^RA(72,""AA"",RA(7),X,0)) W !?5,""This order number '""_X_""' is associated with the following data:"" X ^DD(72,3,9.5)"
^DD(72,3,9.5)="W !?5,""Examination Status: ""_$P($G(^RA(72,RA,0)),U) W !?5,""Type Of Imaging: ""_RA(7),""  Try again"" K X"
^DD(72,3,10)="RAD/NUC MED COORDINATOR"
^DD(72,3,21,0)="^^10^10^2970611^^^"
^DD(72,3,21,1,0)="This field contains the logical order that this exam status falls into."
^DD(72,3,21,2,0)="The order of the stages is set up by each site and must be a number between"
^DD(72,3,21,3,0)="1 and 8."
^DD(72,3,21,4,0)=" "
^DD(72,3,21,5,0)="If this order field is left blank, then the 'Exam Status Tracking' function"
^DD(72,3,21,6,0)="will not use this exam status.  Exam status 'CANCELLED' is reserved and has"
^DD(72,3,21,7,0)="an order of '0'. Exam status 'COMPLETE' is reserved and has an order of"
^DD(72,3,21,8,0)="'9'.  The status that has the order of '1' should represent the first"
^DD(72,3,21,9,0)="status an exam attains as soon as it is registered (usually 'WAITING FOR"
^DD(72,3,21,10,0)="EXAM')."
^DD(72,3,"DT")="2960723"
^DD(72,4,0)="USER KEY NEEDED^*P19.1'^DIC(19.1,^0;4^S DIC(""S"")=""I $E($P(^(0),U,1),1,2)=""""RA"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(72,4,.1)="User Key needed to move an exam to this status"
^DD(72,4,3)="Enter the name of a security key here if the user needs a key to move an exam into this status."
^DD(72,4,10)="RAD/NUC MED COORDINATOR"
^DD(72,4,12)="Only Radiology/Nuclear Medicine keys may be chosen."
^DD(72,4,12.1)="S DIC(""S"")=""I $E($P(^(0),U,1),1,2)=""""RA"""""""
^DD(72,4,21,0)="^^7^7^2941115^"
^DD(72,4,21,1,0)="When extra protection is desired on an exam status, use this field to"
^DD(72,4,21,2,0)="define the security key.  If this field is set to a valid security key,"
^DD(72,4,21,3,0)="then the user will need that key in order to move an exam into this status."
^DD(72,4,21,4,0)=" "
^DD(72,4,21,5,0)="If a key is desired, IRM will have to create it and allocate it to the"
^DD(72,4,21,6,0)="appropriate users.  It is the coordinator's responsibility to enter this"
^DD(72,4,21,7,0)="key into this field."
^DD(72,4,"DT")="2960723"
^DD(72,5,0)="APPEAR ON STATUS TRACKING?^S^Y:YES;N:NO;^0;5^Q"
^DD(72,5,.1)="Should this Status appear in Status Tracking ?"
^DD(72,5,3)="To display this status in the 'status tracking' function, enter a 'Y'es here."
^DD(72,5,10)="RAD/NUC MED COORDINATOR"
^DD(72,5,21,0)="^^13^13^2941129^"
^DD(72,5,21,1,0)="If the value of this field is 'YES', then the 'status tracking' function"
^DD(72,5,21,2,0)="will display this status in it's appropriate order.  Otherwise, this status"
^DD(72,5,21,3,0)="will not appear."
^DD(72,5,21,4,0)=" "
^DD(72,5,21,5,0)="An example of when this field would be set to 'NO' is for a status called"
^DD(72,5,21,6,0)="'TRANSCRIBED'.   Many times after a report is transcribed it may not be"
^DD(72,5,21,7,0)="verified for a day or two and the number of 'TRANSCRIBED' exams may get"
^DD(72,5,21,8,0)="very large.  If 'TRANSCRIBED' was displayed in the status tracking"
^DD(72,5,21,9,0)="function, then the system performance would suffer because all these exams"
^DD(72,5,21,10,0)="would have to be processed and displayed."
^DD(72,5,21,11,0)=" "
^DD(72,5,21,12,0)="Status Tracking of 'COMPLETE' exams is not allowed. Historical cases"
^DD(72,5,21,13,0)="should not appear on status tracking."
^DD(72,5,"DT")="2960718"
^DD(72,6,0)="ALLOW CANCELLING?^S^y:YES;n:NO;^0;6^Q"
^DD(72,6,.1)="Can an exam be cancelled while in this status ?"
^DD(72,6,3)="Enter a 'Y'es at this prompt if the user is allowed to cancel an exam while it is in this status."
^DD(72,6,10)="RAD/NUC MED COORDINATOR"
^DD(72,6,21,0)="^^6^6^2940518^^^^"
^DD(72,6,21,1,0)="While an exam is in the current status, should the user be allowed to"
^DD(72,6,21,2,0)="cancel an exam ?  Answer with 'YES', to allow cancelling and 'NO', to"
^DD(72,6,21,3,0)="disallow cancelling."
^DD(72,6,21,4,0)=" "
^DD(72,6,21,5,0)="If no entry is made in this field for the current status, then the"
^DD(72,6,21,6,0)="user will NOT be allowed to cancel the exam."
^DD(72,6,"DT")="2960718"
^DD(72,7,0)="TYPE OF IMAGING^RP79.2'^RA(79.2,^0;7^Q"
^DD(72,7,1,0)="^.1"
^DD(72,7,1,1,0)="72^AA2^MUMPS"
^DD(72,7,1,1,1)="N RA S RA(0)=$G(^RA(72,DA,0)),RA(3)=$P(RA(0),U,3),RA(7)=$P($G(^RA(79.2,X,0)),U) S:RA(3)]""""&(RA(7)]"""") ^RA(72,""AA"",RA(7),RA(3),DA)="""""
^DD(72,7,1,1,2)="N RA S RA(0)=$G(^RA(72,DA,0)),RA(3)=$P(RA(0),U,3),RA(7)=$P($G(^RA(79.2,X,0)),U) K:RA(3)]""""&(RA(7)]"""") ^RA(72,""AA"",RA(7),RA(3),DA)"
^DD(72,7,1,1,3)="Do not delete."
^DD(72,7,1,1,"%D",0)="^^2^2^2940223^"
^DD(72,7,1,1,"%D",1,0)="     This xref links the Imaging Type with the data in the Order field in"
^DD(72,7,1,1,"%D",2,0)="the Examination Status file."
^DD(72,7,1,1,"DT")="2940223"
^DD(72,7,3)="Enter the appropriate Imaging Type for this Examination Status entry."
^DD(72,7,21,0)="^^2^2^2940518^^^"
^DD(72,7,21,1,0)="     This field identifies each Examination Status with a specific Imaging"
^DD(72,7,21,2,0)="Type."
^DD(72,7,23,0)="^^2^2^2940518^^^"
^DD(72,7,23,1,0)="     Pointer to the 'Imaging Type' file (79.2).  LAYGO is not allowed, and"
^DD(72,7,23,2,0)="there is not a screen for the 'Imaging Type' file."
^DD(72,7,"DT")="2940223"
^DD(72,8,0)="GENERATE EXAMINED HL7 MESSAGE^S^Y:YES;^0;8^Q"
^DD(72,8,.1)="Generate Examined HL7 Message"
^DD(72,8,3)="Enter 'Yes' if this exam status should generate an HL7 message broadcasting that the patient has been examined."
^DD(72,8,21,0)="^^2^2^2961210^^^^"
^DD(72,8,21,1,0)="This field indicates if an HL7 message should be generated when a patient"
^DD(72,8,21,2,0)="is examined."
^DD(72,8,"DT")="2961213"
^DD(72,9,0)="VISTARAD CATEGORY^S^W:Waiting for Exam;E:Examined;D:Dictated/Interpreted;T:Transcribed;^0;9^Q"
^DD(72,9,.1)="VistaRad Category"
^DD(72,9,1,0)="^.1"
^DD(72,9,1,1,0)="72^AVC"
^DD(72,9,1,1,1)="S ^RA(72,""AVC"",$E(X,1,30),DA)="""""
^DD(72,9,1,1,2)="K ^RA(72,""AVC"",$E(X,1,30),DA)"
^DD(72,9,1,1,"DT")="3000823"
^DD(72,9,4)="D EHVC^RARIC1"
^DD(72,9,21,0)="^^4^4^3020419^"
^DD(72,9,21,1,0)=" W -- Waiting for Exam"
^DD(72,9,21,2,0)=" E -- assigned when tech has completed image acquisition"
^DD(72,9,21,3,0)=" D -- assigned when the radiologist has completed the diagnostic reading"
^DD(72,9,21,4,0)=" T -- assigned when the report has been transcribed"
^DD(72,9,"DT")="3000823"
^DD(72,"B","ACTIVITY DRAWN REQUIRED?",.53)=""
^DD(72,"B","ADM DT/TIME/PERSON REQUIRED?",.55)=""
^DD(72,"B","ALLOW CANCELLING?",6)=""
^DD(72,"B","AMIS REPORT?",.38)=""
^DD(72,"B","APPEAR ON STATUS TRACKING?",5)=""
^DD(72,"B","ASK ACTIVITY DRAWN?",.63)=""
^DD(72,"B","ASK ADM DT/TIME/PERSON?",.65)=""
^DD(72,"B","ASK CPT MODIFIERS?",.214)=""
^DD(72,"B","ASK DRAWN DT/TIME/PERSON?",.64)=""
^DD(72,"B","ASK FOR CAMERA/EQUIP/RM?",.26)=""
^DD(72,"B","ASK FOR DIAGNOSTIC CODE?",.25)=""
^DD(72,"B","ASK FOR FILM DATA?",.24)=""
^DD(72,"B","ASK FOR INTERPRETING PHYS?",.22)=""
^DD(72,"B","ASK FOR PROCEDURE?",.23)=""
^DD(72,"B","ASK FOR TECHNOLOGIST?",.21)=""
^DD(72,"B","ASK FOR USER CODE?",.211)=""
^DD(72,"B","ASK LOT NO.?",.68)=""
^DD(72,"B","ASK MED ADM DT/TIME/PERSON?",.28)=""
^DD(72,"B","ASK MEDICATIONS & DOSAGES?",.27)=""
^DD(72,"B","ASK PROCEDURE MODIFIERS?",.213)=""
^DD(72,"B","ASK RADIOPHARMS AND DOSAGES?",.61)=""
^DD(72,"B","ASK ROUTE/SITE OF ADM?",.67)=""
^DD(72,"B","ASK VOLUME/FORM?",.69)=""
^DD(72,"B","Ask For Camera/Equip/Rm ?",.26)="1"
^DD(72,"B","Ask For Diagnostic Code ?",.25)="1"
^DD(72,"B","Ask For Film Data ?",.24)="1"
^DD(72,"B","Ask Lot No. (Radiopharm) ?",.68)="1"
^DD(72,"B","Ask Medications & Dosages ?",.27)="1"
^DD(72,"B","Ask Volume/Form (Radiopharm) ?",.69)="1"
^DD(72,"B","Ask for CPT Modifiers ?",.214)="1"
^DD(72,"B","Ask for Procedure ?",.23)="1"
^DD(72,"B","Ask for Procedure Modifiers ?",.213)="1"
^DD(72,"B","Ask for Technologist ?",.21)="1"
^DD(72,"B","Ask for User Code ?",.211)="1"
^DD(72,"B","CAMERA/EQUIP/RM REPORT?",.311)=""
^DD(72,"B","CAMERA/EQUIP/RM REQUIRED?",.16)=""
^DD(72,"B","CLINIC REPORT?",.31)=""
^DD(72,"B","CPT MODIFIERS REQUIRED?",.114)=""
^DD(72,"B","CPT Modifiers required ?",.114)="1"
^DD(72,"B","Camera/Equip/Rm Required ?",.16)="1"
^DD(72,"B","DEFAULT NEXT STATUS",2)=""
^DD(72,"B","DELINQUENT STATUS REPORT?",.315)=""
^DD(72,"B","DETAILED PROCEDURE REPORT?",.39)=""
^DD(72,"B","DETAILED PROCEDURE REQUIRED?",.13)=""
^DD(72,"B","DIAGNOSTIC CODE REQUIRED?",.15)=""
^DD(72,"B","DRAWN DT/TIME/PERSON REQUIRED?",.54)=""
^DD(72,"B","Default next status for exam",2)="1"
^DD(72,"B","Detailed Procedure required ?",.13)="1"
^DD(72,"B","Diagnostic Code Required ?",.15)="1"
^DD(72,"B","FILM ENTRY REQUIRED?",.14)=""
^DD(72,"B","FILM USAGE REPORT?",.36)=""
^DD(72,"B","Film Entry Required ?",.14)="1"
^DD(72,"B","GENERATE EXAM ALERT?",1)=""
^DD(72,"B","GENERATE EXAMINED HL7 MESSAGE",8)=""
^DD(72,"B","Generate Examined HL7 Message",8)="1"
^DD(72,"B","IMPRESSION REQUIRED?",.116)=""
^DD(72,"B","Impression required ?",.116)="1"
^DD(72,"B","LOT NO. REQUIRED?",.58)=""
^DD(72,"B","Name of Current Exam Status",.01)="1"
^DD(72,"B","ORDER",3)=""
^DD(72,"B","PHYSICIAN REPORT?",.312)=""
^DD(72,"B","PRINT DOSAGE TICKET?",.611)=""
^DD(72,"B","PROCEDURE MODIFIERS REQUIRED?",.113)=""
^DD(72,"B","PTF BEDSECTION REPORT?",.32)=""
^DD(72,"B","Procedure Modifiers required ?",.113)="1"
^DD(72,"B","RADIOPHARMS/DOSAGES REQUIRED?",.51)=""
^DD(72,"B","REPORT ENTERED REQUIRED?",.111)=""
^DD(72,"B","RESIDENT OR STAFF REQUIRED?",.12)=""
^DD(72,"B","RESIDENT REPORT?",.313)=""
^DD(72,"B","ROUTE/SITE REQUIRED?",.57)=""
^DD(72,"B","Report Entered required ?",.111)="1"
^DD(72,"B","Resident Or Staff Required ?",.12)="1"
^DD(72,"B","SERVICE REPORT?",.33)=""
^DD(72,"B","SHARING/CONTRACT REPORT?",.34)=""
^DD(72,"B","STAFF REPORT?",.314)=""
^DD(72,"B","STATUS",.01)=""
^DD(72,"B","TECHNOLOGIST REPORT?",.37)=""
^DD(72,"B","TECHNOLOGIST REQUIRED?",.11)=""
^DD(72,"B","TYPE OF IMAGING",7)=""
^DD(72,"B","Technologist Required ?",.11)="1"
^DD(72,"B","USER KEY NEEDED",4)=""
^DD(72,"B","VERIFIED REPORT REQUIRED?",.112)=""
^DD(72,"B","VISTARAD CATEGORY",9)=""
^DD(72,"B","VOLUME/FORM REQUIRED?",.59)=""
^DD(72,"B","Verified Report required ?",.112)="1"
^DD(72,"B","VistaRad Category",9)="1"
^DD(72,"B","WARD REPORT?",.35)=""
^DD(72,"GL",0,1,.01)=""
^DD(72,"GL",0,2,2)=""
^DD(72,"GL",0,3,3)=""
^DD(72,"GL",0,4,4)=""
^DD(72,"GL",0,5,5)=""
^DD(72,"GL",0,6,6)=""
^DD(72,"GL",0,7,7)=""
^DD(72,"GL",0,8,8)=""
^DD(72,"GL",0,9,9)=""
^DD(72,"GL",.1,1,.11)=""
^DD(72,"GL",.1,2,.12)=""
^DD(72,"GL",.1,3,.13)=""
^DD(72,"GL",.1,4,.14)=""
^DD(72,"GL",.1,5,.15)=""
^DD(72,"GL",.1,6,.16)=""
^DD(72,"GL",.1,11,.111)=""
^DD(72,"GL",.1,12,.112)=""
^DD(72,"GL",.1,13,.113)=""
^DD(72,"GL",.1,14,.114)=""
^DD(72,"GL",.1,16,.116)=""
^DD(72,"GL",.2,1,.21)=""
^DD(72,"GL",.2,2,.22)=""
^DD(72,"GL",.2,3,.23)=""
^DD(72,"GL",.2,4,.24)=""
^DD(72,"GL",.2,5,.25)=""
^DD(72,"GL",.2,6,.26)=""
^DD(72,"GL",.2,7,.27)=""
^DD(72,"GL",.2,8,.28)=""
^DD(72,"GL",.2,11,.211)=""
^DD(72,"GL",.2,13,.213)=""
^DD(72,"GL",.2,14,.214)=""
^DD(72,"GL",.3,1,.31)=""
^DD(72,"GL",.3,2,.32)=""
^DD(72,"GL",.3,3,.33)=""
^DD(72,"GL",.3,4,.34)=""
^DD(72,"GL",.3,5,.35)=""
^DD(72,"GL",.3,6,.36)=""
^DD(72,"GL",.3,7,.37)=""
^DD(72,"GL",.3,8,.38)=""
^DD(72,"GL",.3,9,.39)=""
^DD(72,"GL",.3,11,.311)=""
^DD(72,"GL",.3,12,.312)=""
^DD(72,"GL",.3,13,.313)=""
^DD(72,"GL",.3,14,.314)=""
^DD(72,"GL",.3,15,.315)=""
^DD(72,"GL",.5,1,.51)=""
^DD(72,"GL",.5,3,.53)=""
^DD(72,"GL",.5,4,.54)=""
^DD(72,"GL",.5,5,.55)=""
^DD(72,"GL",.5,7,.57)=""
^DD(72,"GL",.5,8,.58)=""
^DD(72,"GL",.5,9,.59)=""
^DD(72,"GL",.6,1,.61)=""
^DD(72,"GL",.6,3,.63)=""
^DD(72,"GL",.6,4,.64)=""
^DD(72,"GL",.6,5,.65)=""
^DD(72,"GL",.6,7,.67)=""
^DD(72,"GL",.6,8,.68)=""
^DD(72,"GL",.6,9,.69)=""
^DD(72,"GL",.6,11,.611)=""
^DD(72,"GL","ALERT",1,1)=""
^DD(72,"IX",.01)=""
^DD(72,"IX",3)=""
^DD(72,"IX",7)=""
^DD(72,"IX",9)=""
^DD(72,"RQ",.01)=""
^DD(72,"RQ",.11)=""
^DD(72,"RQ",.111)=""
^DD(72,"RQ",.112)=""
^DD(72,"RQ",.12)=""
^DD(72,"RQ",.13)=""
^DD(72,"RQ",.14)=""
^DD(72,"RQ",.15)=""
^DD(72,"RQ",.16)=""
^DD(72,"RQ",.21)=""
^DD(72,"RQ",.211)=""
^DD(72,"RQ",.22)=""
^DD(72,"RQ",.23)=""
^DD(72,"RQ",.24)=""
^DD(72,"RQ",.25)=""
^DD(72,"RQ",.26)=""
^DD(72,"RQ",.27)=""
^DD(72,"RQ",.28)=""
^DD(72,"RQ",.51)=""
^DD(72,"RQ",.53)=""
^DD(72,"RQ",.54)=""
^DD(72,"RQ",.55)=""
^DD(72,"RQ",.57)=""
^DD(72,"RQ",.58)=""
^DD(72,"RQ",.59)=""
^DD(72,"RQ",.61)=""
^DD(72,"RQ",.611)=""
^DD(72,"RQ",.63)=""
^DD(72,"RQ",.64)=""
^DD(72,"RQ",.65)=""
^DD(72,"RQ",.67)=""
^DD(72,"RQ",.68)=""
^DD(72,"RQ",.69)=""
^DD(72,"RQ",7)=""
^DD(73.1,0)="FIELD^^3^4"
^DD(73.1,0,"DDA")="N"
^DD(73.1,0,"DT")="2981218"
^DD(73.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(73.1,0,"ID",2)="W:$P(@(DIC_""Y,0)""),U,3)]"""" ""  ("",$E($P(^DD(73.1,2,0),$P(@(DIC_""Y,0)""),U,3)_"":"",2),1,$F($P(^DD(73.1,2,0),$P(@(DIC_""Y,0)""),U,3)_"":"",2),"";"")-2),"")"""
^DD(73.1,0,"IX","B",73.1,.01)=""
^DD(73.1,0,"NM","RAD MODALITY DEFINED TERMS")=""
^DD(73.1,0,"PT",71.0731,.01)=""
^DD(73.1,0,"PT",73.1,3)=""
^DD(73.1,0,"PT",2006.675,.01)=""
^DD(73.1,0,"VR")="5.0"
^DD(73.1,0,"VRPK")="RA"
^DD(73.1,.01,0)="MODALITY ABBREVIATION^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(73.1,.01,1,0)="^.1"
^DD(73.1,.01,1,1,0)="73.1^B"
^DD(73.1,.01,1,1,1)="S ^RAMIS(73.1,""B"",$E(X,1,30),DA)="""""
^DD(73.1,.01,1,1,2)="K ^RAMIS(73.1,""B"",$E(X,1,30),DA)"
^DD(73.1,.01,3)="Answer must be 2 characters in length."
^DD(73.1,.01,21,0)="^^2^2^2981218^"
^DD(73.1,.01,21,1,0)="Two-letter code for the modality, as defined by the DICOM Standards (PS"
^DD(73.1,.01,21,2,0)="3.3)."
^DD(73.1,.01,"DT")="2980909"
^DD(73.1,1,0)="MODALITY NAME^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(73.1,1,3)="Answer must be 3-60 characters in length."
^DD(73.1,1,21,0)="^^1^1^2981218^"
^DD(73.1,1,21,1,0)="Name of the modality."
^DD(73.1,1,"DT")="2980909"
^DD(73.1,2,0)="STATUS^S^R:Retired;^0;3^Q"
^DD(73.1,2,3)=""
^DD(73.1,2,21,0)="^^4^4^2981218^"
^DD(73.1,2,21,1,0)="Code 'R' for Retired, indicates that the corresponding modality has been"
^DD(73.1,2,21,2,0)="defined as Retired by the DICOM Standards (PS 3.3-1998).  A retired"
^DD(73.1,2,21,3,0)="modality may be used, however it is strongly encouraged to implement a"
^DD(73.1,2,21,4,0)="newer modality."
^DD(73.1,2,"DT")="2981218"
^DD(73.1,3,0)="REPLACED BY^P73.1'^RAMIS(73.1,^0;4^Q"
^DD(73.1,3,3)="Enter replacement Modality for this retired entry"
^DD(73.1,3,21,0)="^^2^2^2981218^"
^DD(73.1,3,21,1,0)="The name of the replacing modality as defined in the DICOM Standards (PS"
^DD(73.1,3,21,2,0)="3.3-1998)"
^DD(73.1,3,"DT")="2980921"
^DD(73.1,"B","MODALITY ABBREVIATION",.01)=""
^DD(73.1,"B","MODALITY NAME",1)=""
^DD(73.1,"B","REPLACED BY",3)=""
^DD(73.1,"B","STATUS",2)=""
^DD(73.1,"GL",0,1,.01)=""
^DD(73.1,"GL",0,2,1)=""
^DD(73.1,"GL",0,3,2)=""
^DD(73.1,"GL",0,4,3)=""
^DD(73.1,"IX",.01)=""
^DD(73.1,"RQ",.01)=""
^DD(73.2,0)="FIELD^^8^8"
^DD(73.2,0,"DT")="3061113"
^DD(73.2,0,"IX","AC",73.2,2)=""
^DD(73.2,0,"IX","B",73.2,.01)=""
^DD(73.2,0,"NM","RADIOLOGY CPT BY PROCEDURE TYPE")=""
^DD(73.2,0,"VR")="5.0"
^DD(73.2,0,"VRPK")="RA"
^DD(73.2,.01,0)="CODE^RFI^^0;1^K:$L(X)>5!($L(X)<5)!'(X'?1P.E) X"
^DD(73.2,.01,1,0)="^.1"
^DD(73.2,.01,1,1,0)="73.2^B"
^DD(73.2,.01,1,1,1)="S ^RA(73.2,""B"",$E(X,1,30),DA)="""""
^DD(73.2,.01,1,1,2)="K ^RA(73.2,""B"",$E(X,1,30),DA)"
^DD(73.2,.01,3)="Answer must be 5 characters in length."
^DD(73.2,.01,21,0)="^^2^2^3060920^"
^DD(73.2,.01,21,1,0)="This is the CPT Code for a procedure that may be used by the "
^DD(73.2,.01,21,2,0)="Radiology/Nuclear Medicine application."
^DD(73.2,.01,"DT")="3060925"
^DD(73.2,2,0)="WAIT TIMES PROCEDURE TYPE^FI^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(73.2,2,1,0)="^.1"
^DD(73.2,2,1,1,0)="73.2^AC"
^DD(73.2,2,1,1,1)="S ^RA(73.2,""AC"",$E(X,1,30),DA)="""""
^DD(73.2,2,1,1,2)="K ^RA(73.2,""AC"",$E(X,1,30),DA)"
^DD(73.2,2,1,1,"%D",0)="^^1^1^3061113^"
^DD(73.2,2,1,1,"%D",1,0)="WANT CROSS-REFERENCE TO BE USED FOR LOOKUP AS WELL AS FOR SORTING? NO"
^DD(73.2,2,1,1,"DT")="3061113"
^DD(73.2,2,3)="Answer must be 3-30 characters in length."
^DD(73.2,2,21,0)="^^2^2^3061113^"
^DD(73.2,2,21,1,0)="This is the type of imaging that the CPT Code belongs to.  This may be "
^DD(73.2,2,21,2,0)="different from the type of imaging in the IMAGING TYPE file (#79.2)."
^DD(73.2,2,"DT")="3061113"
^DD(73.2,3,0)="PROCEDURE SUBCATEGORY^FI^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(73.2,3,3)="Answer must be 2-30 characters in length."
^DD(73.2,3,21,0)="^.001^1^1^3061113^^"
^DD(73.2,3,21,1,0)="This is the type of operation or film that was used to make the image."
^DD(73.2,3,"DT")="3061113"
^DD(73.2,4,0)="RVU PROCEDURE TYPE^FI^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(73.2,4,3)="Answer must be 3-30 characters in length."
^DD(73.2,4,21,0)="^^1^1^3061113^"
^DD(73.2,4,21,1,0)="This is type of imaging that will be used in RVU reports."
^DD(73.2,4,"DT")="3061113"
^DD(73.2,5,0)="DESCRIPTOR^FI^^1;1^K:$L(X)>150!($L(X)<3) X"
^DD(73.2,5,3)="Answer must be 3-150 characters in length."
^DD(73.2,5,21,0)="^^3^3^3061113^"
^DD(73.2,5,21,1,0)="This is the long description of the CPT Code, which may be slightly "
^DD(73.2,5,21,2,0)="different from the description for the same CPT Code in the CPT file "
^DD(73.2,5,21,3,0)="(#81)."
^DD(73.2,5,"DT")="3061113"
^DD(73.2,6,0)="CMS WORK RVU^NJ6,2I^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(73.2,6,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(73.2,6,21,0)="^.001^2^2^3061113^^"
^DD(73.2,6,21,1,0)="This is the Centers for Medicare and Medicaid Services' published values "
^DD(73.2,6,21,2,0)="for Work Relative Value Unit for the procedure with this CPT Code."
^DD(73.2,6,"DT")="3061113"
^DD(73.2,7,0)="VA GAP WRVU^NJ6,2I^^0;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(73.2,7,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(73.2,7,21,0)="^^2^2^3061113^"
^DD(73.2,7,21,1,0)="RVU value created for VA use for codes that have no RVU value because "
^DD(73.2,7,21,2,0)="they are designed as carrier defined by Medicare."
^DD(73.2,7,"DT")="3061113"
^DD(73.2,8,0)="BI-RADS PROCEDURE^SI^Y:Yes;^0;8^Q"
^DD(73.2,8,21,0)="^^2^2^3061113^"
^DD(73.2,8,21,1,0)="This conttains a ""Yes"" if this CPT Code is a BI-RADS procedure; otherwise "
^DD(73.2,8,21,2,0)="nothing (null)."
^DD(73.2,8,"DT")="3061113"
^DD(73.2,"B","BI-RADS PROCEDURE",8)=""
^DD(73.2,"B","CMS WORK RVU",6)=""
^DD(73.2,"B","CODE",.01)=""
^DD(73.2,"B","DESCRIPTOR",5)=""
^DD(73.2,"B","PROCEDURE SUBCATEGORY",3)=""
^DD(73.2,"B","RVU PROCEDURE TYPE",4)=""
^DD(73.2,"B","VA GAP WRVU",7)=""
^DD(73.2,"B","WAIT TIMES PROCEDURE TYPE",2)=""
^DD(73.2,"GL",0,1,.01)=""
^DD(73.2,"GL",0,2,2)=""
^DD(73.2,"GL",0,3,3)=""
^DD(73.2,"GL",0,4,4)=""
^DD(73.2,"GL",0,6,6)=""
^DD(73.2,"GL",0,7,7)=""
^DD(73.2,"GL",0,8,8)=""
^DD(73.2,"GL",1,1,5)=""
^DD(73.2,"IX",.01)=""
^DD(73.2,"IX",2)=""
^DD(73.2,"RQ",.01)=""
^DD(74,0)="FIELD^^2005^47"
^DD(74,0,"ACT")="N DFN S DFN=$P(^RARPT(+Y,0),""^"",2) S Y=DFN D ^DGSEC"
^DD(74,0,"DDA")="N"
^DD(74,0,"DT")="2970205"
^DD(74,0,"ID",2)="W:$D(^(0)) ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(74,0,"ID","WRITE")="W $$EN2^RADD2"
^DD(74,0,"IX","AA",74,7)=""
^DD(74,0,"IX","ABLTN",74,.01)=""
^DD(74,0,"IX","ABLTN1",74,5)=""
^DD(74,0,"IX","AC",74,9.3)=""
^DD(74,0,"IX","AD",74,11)=""
^DD(74,0,"IX","ARES",74,5)=""
^DD(74,0,"IX","ASTAT",74,5)=""
^DD(74,0,"IX","ASTF",74,5)=""
^DD(74,0,"IX","B",74,.01)=""
^DD(74,0,"IX","C",74,2)=""
^DD(74,0,"IX","SET",74.05,.01)=""
^DD(74,0,"NM","RAD/NUC MED REPORTS")=""
^DD(74,0,"PT",70.03,17)=""
^DD(74,0,"PT",74.21,.01)=""
^DD(74,0,"PT",74.4,.01)=""
^DD(74,0,"PT",2005,61)=""
^DD(74,0,"PT",2005.1,61)=""
^DD(74,0,"PT",2006.563,48)=""
^DD(74,0,"PT",2006.563,70)=""
^DD(74,0,"PT",2006.563,71)=""
^DD(74,0,"PT",2006.563,91)=""
^DD(74,0,"PT",2006.563,92)=""
^DD(74,0,"PT",2006.563,98)=""
^DD(74,0,"PT",2006.565,4)=""
^DD(74,0,"PT",2006.565,8)=""
^DD(74,0,"VR")="5.0"
^DD(74,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(74,.01,0)="DAY-CASE#^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<8)!'(X?6N1""-""1N.N) X"
^DD(74,.01,.1)="DATE AND CASE NUMBER OF EXAM"
^DD(74,.01,1,0)="^.1"
^DD(74,.01,1,1,0)="74^B"
^DD(74,.01,1,1,1)="S ^RARPT(""B"",$E(X,1,30),DA)="""""
^DD(74,.01,1,1,2)="K ^RARPT(""B"",$E(X,1,30),DA)"
^DD(74,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(74,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(74,.01,1,2,0)="74^ABLTN^MUMPS"
^DD(74,.01,1,2,1)="Q"
^DD(74,.01,1,2,2)="D:+$G(RAPRG74) ^RABUL3 Q"
^DD(74,.01,1,2,3)="Do not delete."
^DD(74,.01,1,2,"%D",0)="^^2^2^2941129^"
^DD(74,.01,1,2,"%D",1,0)="     This bulletin will be delivered to all the members of the RAD/NUC MED"
^DD(74,.01,1,2,"%D",2,0)="REPORT DELETION mail group when a report is deleted."
^DD(74,.01,1,2,"DT")="2940204"
^DD(74,.01,3)="Answer must be 8-12 characters in length.  Format: 010196-354"
^DD(74,.01,10)="SYSTEM GENERATED"
^DD(74,.01,21,0)="^^4^4^2970804^^^^"
^DD(74,.01,21,1,0)="This field contains the date and case number of the imaging exam"
^DD(74,.01,21,2,0)="associated with this report.  The system fills in this field with"
^DD(74,.01,21,3,0)="information obtained from the 'RAD/NUC MED PATIENT' file (#70) according"
^DD(74,.01,21,4,0)="to the case number selected by the transcriptionist."
^DD(74,.01,"DT")="2960828"
^DD(74,2,0)="PATIENT NAME^RP2'I^DPT(^0;2^Q"
^DD(74,2,.1)="NAME OF RAD/NUC MED PATIENT"
^DD(74,2,1,0)="^.1"
^DD(74,2,1,1,0)="74^C"
^DD(74,2,1,1,1)="S ^RARPT(""C"",$E(X,1,30),DA)="""""
^DD(74,2,1,1,2)="K ^RARPT(""C"",$E(X,1,30),DA)"
^DD(74,2,1,1,"%D",0)="^^1^1^2910815^"
^DD(74,2,1,1,"%D",1,0)="Used to look-up reports by patient."
^DD(74,2,3)="This field contains the patient name."
^DD(74,2,10)="SYSTEM GENERATED"
^DD(74,2,21,0)="^^4^4^2940525^"
^DD(74,2,21,1,0)="This field contains the name of the rad/nuc med patient associated with"
^DD(74,2,21,2,0)="this report.  The system fills in this field with data obtained from the"
^DD(74,2,21,3,0)="'RAD/NUC MED PATIENT' file (#70) according to the case number"
^DD(74,2,21,4,0)="selected by the transcriptionist."
^DD(74,2,"DT")="2940518"
^DD(74,3,0)="EXAM DATE/TIME^RDI^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(74,3,.1)="DATE AND TIME OF EXAM"
^DD(74,3,3)="This field contains the date and time of the exam associated with this report."
^DD(74,3,10)="SYSTEM GENERATED"
^DD(74,3,21,0)="^^4^4^2940525^"
^DD(74,3,21,1,0)="This field contains the date and the time of the exam associated with this"
^DD(74,3,21,2,0)="report.  The system fills in this field with data obtained from the"
^DD(74,3,21,3,0)="'RAD/NUC MED PATIENT' file (#70) according to the case number selected by"
^DD(74,3,21,4,0)="the transcriptionist."
^DD(74,3,"AUDIT")="n"
^DD(74,3,"DT")="2950925"
^DD(74,4,0)="CASE NUMBER^RNJ4,0I^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(74,4,.1)="CASE NUMBER OF THIS EXAM"
^DD(74,4,1,0)="^.1^^0"
^DD(74,4,3)="This field contains the case number of the exam."
^DD(74,4,10)="SYSTEM GENERATED"
^DD(74,4,21,0)="^^3^3^2940525^"
^DD(74,4,21,1,0)="This field contains the completed case number of the exam associated with"
^DD(74,4,21,2,0)="this report.  The system fills in the data for this field with information"
^DD(74,4,21,3,0)="obtained from the 'RAD/NUC MED PATIENT' file (#70)."
^DD(74,4,"DT")="2841121"
^DD(74,4.5,0)="OTHER CASE#^74.05^^1;0"
^DD(74,5,0)="REPORT STATUS^RSX^V:VERIFIED;R:RELEASED/NOT VERIFIED;PD:PROBLEM DRAFT;D:DRAFT;^0;5^D EN1^RAUTL4"
^DD(74,5,.1)="STATUS OF THIS REPORT"
^DD(74,5,1,0)="^.1"
^DD(74,5,1,1,0)="74^ABLTN1^MUMPS"
^DD(74,5,1,1,1)="Q"
^DD(74,5,1,1,2)="D ^RABUL2 Q"
^DD(74,5,1,1,3)="Do not delete."
^DD(74,5,1,1,"%D",0)="^^2^2^2940204^"
^DD(74,5,1,1,"%D",1,0)="     Send a bulletin to the RADIOLOGY REPORT UNVERIFIED mail group if the"
^DD(74,5,1,1,"%D",2,0)="status of a report is changed from 'Verified'."
^DD(74,5,1,1,"DT")="2940204"
^DD(74,5,1,2,0)="74^ARES^MUMPS"
^DD(74,5,1,2,1)="N RAXREF K RAKILL I X'=""V"" S RAXREF=""ARES"",RARAD=12,RASET="""" D XREF^RAUTL2 S RASECOND=""SRR"" D SECXREF^RADD1 K RARAD,RASET"
^DD(74,5,1,2,2)="N RAXREF K RASET S RAXREF=""ARES"",RARAD=12,RAKILL="""" D XREF^RAUTL2 S RASECOND=""SRR"" D SECXREF^RADD1 K RAKILL,RARAD"
^DD(74,5,1,2,"%D",0)="^^2^2^2960321^^^^"
^DD(74,5,1,2,"%D",1,0)="Used to generate a list of unverified reports by resident responsible"
^DD(74,5,1,2,"%D",2,0)="for report."
^DD(74,5,1,2,"DT")="2960321"
^DD(74,5,1,3,0)="74^ASTF^MUMPS"
^DD(74,5,1,3,1)="N RAXREF K RAKILL I X'=""V"" S RAXREF=""ASTF"",RARAD=15,RASET="""" D XREF^RAUTL2 S RASECOND=""SSR"" D SECXREF^RADD1 K RARAD,RASEC"
^DD(74,5,1,3,2)="N RAXREF K RASET S RAXREF=""ASTF"",RARAD=15,RAKILL="""" D XREF^RAUTL2 S RASECOND=""SSR"" D SECXREF^RADD1 K RAKILL,RARAD"
^DD(74,5,1,3,"%D",0)="^^2^2^2960321^^"
^DD(74,5,1,3,"%D",1,0)="Used to generate a list of unverified reports by the interpreting staff"
^DD(74,5,1,3,"%D",2,0)="responsible for them."
^DD(74,5,1,3,"DT")="2960321"
^DD(74,5,1,4,0)="74^ASTAT^MUMPS"
^DD(74,5,1,4,1)="S:""Vv""'[$E(X) ^RARPT(""ASTAT"",$E(X,1,30),DA)="""""
^DD(74,5,1,4,2)="K ^RARPT(""ASTAT"",$E(X,1,30),DA)"
^DD(74,5,1,4,3)="Needed for the Unverified Report."
^DD(74,5,1,4,"%D",0)="^^2^2^2941116^"
^DD(74,5,1,4,"%D",1,0)="This cross reference will be used to track the status of non-verified"
^DD(74,5,1,4,"%D",2,0)="reports for the Unverified Report."
^DD(74,5,1,4,"DT")="2941116"
^DD(74,5,3)="Enter the status of this report."
^DD(74,5,10)="SYSTEM GENERATED"
^DD(74,5,21,0)="^^21^21^2961118^"
^DD(74,5,21,1,0)="This field contains a value to indicate the status of this report.  Valid"
^DD(74,5,21,2,0)="choices are: 'V' for Verified, 'R' for Released/Not Verified, 'PD' for"
^DD(74,5,21,3,0)="Problem Draft, and 'D' for Draft."
^DD(74,5,21,4,0)=" "
^DD(74,5,21,5,0)="If a report has 'V' (verified) status, the report has been verified by the"
^DD(74,5,21,6,0)="interpreting physician and is available for display outside the rad/nuc"
^DD(74,5,21,7,0)="med department to appropriate users such as ward clerks, nurses, and"
^DD(74,5,21,8,0)="physicians."
^DD(74,5,21,9,0)=" "
^DD(74,5,21,10,0)="If a report has 'D' (draft) status or 'PD' (problem draft) status, the"
^DD(74,5,21,11,0)="report can only be displayed in the rad/nuc med department.  A statement"
^DD(74,5,21,12,0)="to the interpreting physician will be printed at the end of reports with"
^DD(74,5,21,13,0)="the 'PD' status describing the problem."
^DD(74,5,21,14,0)=" "
^DD(74,5,21,15,0)="If the status 'R' (released/not verified) is allowed, a report with this"
^DD(74,5,21,16,0)="status is available for display outside the rad/nuc med department even"
^DD(74,5,21,17,0)="though it has not been verified by the interpreting physician .  The 'R'"
^DD(74,5,21,18,0)="status is only allowed if the parameter which controls this feature,"
^DD(74,5,21,19,0)="'Allow Released/Unverified' of the 'RAD/NUC MED DIVISION' file (#79), is"
^DD(74,5,21,20,0)="set to 'Yes'. Use the 'Display Report' option of the system to view"
^DD(74,5,21,21,0)="reports with this status."
^DD(74,5,23,0)="^^6^6^2961118^^^"
^DD(74,5,23,1,0)="     The 'RAD/NUC MED REPORT UNVERIFIED' bulletin uses a variable called"
^DD(74,5,23,2,0)="RASTATX.  This variable is one character in length.  Some of the codes are"
^DD(74,5,23,3,0)="greater than one character in length, i.e, 'PD'.  In this case, the RABUL2"
^DD(74,5,23,4,0)="routine must resolve RASTATX to its full internal format.  If sets of"
^DD(74,5,23,5,0)="codes are added to the data dictionary which are longer than one character"
^DD(74,5,23,6,0)="in length, the RABUL2 should be modified to reflect these changes."
^DD(74,5,"DT")="2960321"
^DD(74,6,0)="DATE REPORT ENTERED^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(74,6,.1)="DATE AND TIME REPORT WAS ENTERED INTO SYSTEM"
^DD(74,6,1,0)="^.1^^0"
^DD(74,6,3)="This field contains the date and time the report was entered into the system."
^DD(74,6,10)="SYSTEM GENERATED"
^DD(74,6,21,0)="^^2^2^2940608^"
^DD(74,6,21,1,0)="This field contains the date and time that the report was entered into the"
^DD(74,6,21,2,0)="system by the transcriptionist."
^DD(74,6,"DT")="2910904"
^DD(74,7,0)="VERIFIED DATE^DI^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(74,7,.1)="DATE AND TIME NOTICE OF VERIFICATION WAS ENTERED INTO SYSTEM"
^DD(74,7,1,0)="^.1"
^DD(74,7,1,1,0)="74^AA^MUMPS"
^DD(74,7,1,1,1)="S ^RARPT(""AA"",9999999.9999-$E(X,1,30),DA)="""""
^DD(74,7,1,1,2)="K ^RARPT(""AA"",9999999.9999-$E(X,1,30),DA)"
^DD(74,7,1,1,"%D",0)="^^1^1^2910815^"
^DD(74,7,1,1,"%D",1,0)="Date reports were verified in inverse date format."
^DD(74,7,3)="This is the date and time the report was verified by the interpreting physician."
^DD(74,7,10)="SYSTEM GENERATED"
^DD(74,7,21,0)="^^8^8^2940607^"
^DD(74,7,21,1,0)="As of July, 1985, this field contains the date and the time that it was"
^DD(74,7,21,2,0)="indicated to the system that the report was verified by the interpreting"
^DD(74,7,21,3,0)="physician."
^DD(74,7,21,4,0)=" "
^DD(74,7,21,5,0)="An option allowing online verification lets the interpreting physician"
^DD(74,7,21,6,0)="verify the report directly via a CRT.  As a result, there will"
^DD(74,7,21,7,0)="be no discrepency between the date/time the physician verified the"
^DD(74,7,21,8,0)="report and the date/time it was indicated to the system."
^DD(74,7,"DT")="2910605"
^DD(74,8,0)="REPORTED DATE^DX^^0;8^S %DT=""EX"",%DT(0)=$P($G(^RARPT(D0,0)),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(74,8,.1)="DATE THE REPORT WAS DICTATED"
^DD(74,8,1,0)="^.1^^0"
^DD(74,8,3)="Enter the date the interpreting physician dictated this report.  The exam date must precede the reported date."
^DD(74,8,10)="INTERPRETING PHYSICIAN"
^DD(74,8,21,0)="^^4^4^2940606^"
^DD(74,8,21,1,0)="This field contains the date that the interpreting physician dictated this"
^DD(74,8,21,2,0)="report. The transcriptionist enters this date from the dictation tape."
^DD(74,8,21,3,0)="If the physician is using a voice recognition system for dictation, this"
^DD(74,8,21,4,0)="date is entered at the time the report is transmitted to DHCP."
^DD(74,8,"DT")="2940104"
^DD(74,9,0)="VERIFYING PHYSICIAN^*P200'X^VA(200,^0;9^S DIC(""S"")=""N RAINADT X ^DD(74,9,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),$D(^XUSEC(""""RA VERIFY"""",+Y)),($D(^VA(200,""""ARC"""",""""R"""",+Y))!($D(^VA(200,""""ARC"""",""""S"""",+Y))))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(74,9,.1)="VERIFYING INTERPRETING PHYSICIAN"
^DD(74,9,3)="Enter the name of the interpreting physician that verified this report."
^DD(74,9,9.2)="S RAINADT=+$P($G(^VA(200,+Y,""PS"")),""^"",4)"
^DD(74,9,12)="Allows only 'staff' or 'resident' interpreting physicians who hold the 'RA VERIFY' key to verify reports."
^DD(74,9,12.1)="S DIC(""S"")=""N RAINADT X ^DD(74,9,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),$D(^XUSEC(""""RA VERIFY"""",+Y)),($D(^VA(200,""""ARC"""",""""R"""",+Y))!($D(^VA(200,""""ARC"""",""""S"""",+Y))))"""
^DD(74,9,21,0)="^^3^3^2940607^^"
^DD(74,9,21,1,0)="This field is a pointer to the 'NEW PERSON file (#200). Only 'staff' or"
^DD(74,9,21,2,0)="'resident' interpreting physicians are allowed to be selected. This field"
^DD(74,9,21,3,0)="contains the name of the interpreting physician who verified the report."
^DD(74,9,"DT")="2950821"
^DD(74,9.1,0)="TELERADIOLOGY PHYSICIAN NAME^FI^^TT;1^K:$L(X)>50!($L(X)<3) X"
^DD(74,9.1,3)="Enter the name of the teleradiologist that verified the report. The answer must be 3-50 characters in length."
^DD(74,9.1,21,0)="^.001^2^2^3080430^^^"
^DD(74,9.1,21,1,0)="This field identifies the name of the teleradiologist who verified "
^DD(74,9.1,21,2,0)="(signed) the report."
^DD(74,9.1,23,0)="^.001^9^9^3080430^^"
^DD(74,9.1,23,1,0)="The name of the teleradiologist and their National Provider Identification"
^DD(74,9.1,23,2,0)="(NPI) are not manually entered."
^DD(74,9.1,23,3,0)=" "
^DD(74,9.1,23,4,0)="The login to the ScImage application is our identity verification process."
^DD(74,9.1,23,5,0)="Each of the individual physician's credentials, their name and their NPI,"
^DD(74,9.1,23,6,0)="are part of their ScImage user profile."
^DD(74,9.1,23,7,0)=" "
^DD(74,9.1,23,8,0)="The TELERADIOLOGY PHYSICIAN NAME attribute is passed when reporting a"
^DD(74,9.1,23,9,0)="case."
^DD(74,9.1,"DT")="3070913"
^DD(74,9.2,0)="TELERADIOLOGY PHYSICIAN NPI^FI^^TT;2^K:$L(X)>10!($L(X)<10) X"
^DD(74,9.2,3)="Enter the NPI of the teleradiologist who verified the report. The NPI is a ten digit number."
^DD(74,9.2,21,0)="^.001^2^2^3080430^^^^"
^DD(74,9.2,21,1,0)="This field identified the National Provider ID (NPI) of the"
^DD(74,9.2,21,2,0)="teleradiologist who verified (signed) the report."
^DD(74,9.2,23,0)="^^8^8^3080430^"
^DD(74,9.2,23,1,0)="The name of the teleradiologist and their National Provider Identification"
^DD(74,9.2,23,2,0)="(NPI) are not manually entered."
^DD(74,9.2,23,3,0)=" "
^DD(74,9.2,23,4,0)="The login to the ScImage application is our identity verification process."
^DD(74,9.2,23,5,0)="Each of the individual physician's credentials, their name and their NPI,"
^DD(74,9.2,23,6,0)="are part of their ScImage user profile."
^DD(74,9.2,23,7,0)=" "
^DD(74,9.2,23,8,0)="The TELERADIOLOGY PHYSICIAN NPI attribute is passed when reporting a case."
^DD(74,9.2,"DT")="3070913"
^DD(74,9.3,0)="REPORT VERIFIED BY COTS APP^P771'^HL(771,^TT;3^Q"
^DD(74,9.3,1,0)="^.1"
^DD(74,9.3,1,1,0)="74^AC"
^DD(74,9.3,1,1,1)="S ^RARPT(""AC"",$E(X,1,30),DA)="""""
^DD(74,9.3,1,1,2)="K ^RARPT(""AC"",$E(X,1,30),DA)"
^DD(74,9.3,1,1,"DT")="3070808"
^DD(74,9.3,3)="Enter the HL7 APPLICATION PARAMETER that identifies the COTS application used to dictate and verify this radiology report."
^DD(74,9.3,21,0)="^^8^8^3070807^"
^DD(74,9.3,21,1,0)="This field identifies the Commercial Off the Shelf (COTS) application "
^DD(74,9.3,21,2,0)="used to dictate and verify a radiology report. Examples of values for "
^DD(74,9.3,21,3,0)="this field, though these need not be the only permissible values, are: "
^DD(74,9.3,21,4,0)="RA-PSCRIBE-TCP, RA-SCIMAGE-TCP, and "
^DD(74,9.3,21,5,0)="RA-TALKLINK-TCP.                           "
^DD(74,9.3,21,6,0)=" "
^DD(74,9.3,21,7,0)="If the report was dictated through the use of the VistA Radiology/Nuclear "
^DD(74,9.3,21,8,0)="Medicine application the field will be null."
^DD(74,9.3,"DT")="3080430"
^DD(74,10,0)="ELECTRONIC SIGNATURE CODE^FIO^^0;10^K:$L(X)>50!($L(X)<1) X"
^DD(74,10,2)="S Y(0)=Y S Y=""  <Hidden>"""
^DD(74,10,2.1)="S Y=""  <Hidden>"""
^DD(74,10,3)="This is the system generated electronic signature code of the verifying interpreting physician."
^DD(74,10,21,0)="^.001^2^2^3030821^^^^"
^DD(74,10,21,1,0)="This field is computed by the system to the electronic signature code of"
^DD(74,10,21,2,0)="the verifying interpreting physician."
^DD(74,10,23,0)="^^13^13^3030821^"
^DD(74,10,23,1,0)="The upper limit on this field has been extended to fifty characters from"
^DD(74,10,23,2,0)="thirty characters.  This is the result of patch RA*5*43.  The data from"
^DD(74,10,23,3,0)="the SIGNATURE BLOCK PRINTED NAME (SBPN, field #20.2) field in the NEW"
^DD(74,10,23,4,0)="PERSON file can have a maximum of forty characters."
^DD(74,10,23,5,0)=" "
^DD(74,10,23,6,0)="When conditions are met, the Rad/Nuc Med application fails to store data "
^DD(74,10,23,7,0)="in the ELECTRONIC SIGNATURE CODE (ESC, field #10) on the RAD/NUC MED "
^DD(74,10,23,8,0)="REPORTS (#74) file because data exceeds the number of characters the ESC "
^DD(74,10,23,9,0)="field allows."
^DD(74,10,23,10,0)=" "
^DD(74,10,23,11,0)="This patch bumps the upper limit of characters on the ESC field from "
^DD(74,10,23,12,0)="thirty characters to fifty characters, thus exceeding the upper limit "
^DD(74,10,23,13,0)="imposed on the SBPN field by ten characters."
^DD(74,10,"DT")="3030821"
^DD(74,11,0)="TRANSCRIPTIONIST^*P200'^VA(200,^T;1^S DIC(""S"")=""I $D(^(""""RAC""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(74,11,1,0)="^.1"
^DD(74,11,1,1,0)="74^AD^MUMPS"
^DD(74,11,1,1,1)="S:$P($G(^RARPT(DA,0)),U,6)]"""" ^RARPT(""AD"",$E(X,1,30),$P(^RARPT(DA,0),U,6),DA)="""""
^DD(74,11,1,1,2)="K:$P($G(^RARPT(DA,0)),U,6)]"""" ^RARPT(""AD"",$E(X,1,30),$P(^RARPT(DA,0),U,6),DA)"
^DD(74,11,1,1,"%D",0)="^.101^1^1^3010119^^^^"
^DD(74,11,1,1,"%D",1,0)="Used to identify the user who transcribed the report."
^DD(74,11,1,1,"DT")="3010119"
^DD(74,11,3)="This field contains the name of the transcriptionist."
^DD(74,11,12)="Must have a Radiology/Nuclear Medicine classification."
^DD(74,11,12.1)="S DIC(""S"")=""I $D(^(""""RAC""""))"""
^DD(74,11,21,0)="^^1^1^2940608^^"
^DD(74,11,21,1,0)="Rad/nuc med personnel who entered the report."
^DD(74,11,23,0)="^^2^2^2940608^^^^"
^DD(74,11,23,1,0)="This field is populated by the system with the"
^DD(74,11,23,2,0)="Rad/nuc med user that transcribes the report."
^DD(74,11,"DT")="3010119"
^DD(74,13,0)="DATE REPORT PRINTED^D^^0;11^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(74,13,3)="This is the date the report was first printed."
^DD(74,13,21,0)="^^3^3^2940525^"
^DD(74,13,21,1,0)="This is the date this report was first printed.  Before a report is"
^DD(74,13,21,2,0)="printed for the first time the patient location is updated, if necessary,"
^DD(74,13,21,3,0)="in the 'RAD/NUC MED PATIENT' file (#70) at the Examinations multiple."
^DD(74,13,"DT")="2910219"
^DD(74,14,0)="PRE-VERIFICATION DATE/TIME^D^^0;12^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(74,14,3)="Enter the date and time this report was pre-verified."
^DD(74,14,21,0)="^^2^2^2940606^"
^DD(74,14,21,1,0)="This is the date and time a report was pre-verified by an Interpreting"
^DD(74,14,21,2,0)="Resident or Staff."
^DD(74,14,"DT")="2940207"
^DD(74,15,0)="PRE-VERIFICATION USER^*P200'^VA(200,^0;13^S DIC(""S"")=""N RAINADT X ^DD(74,15,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),($D(^VA(200,""""ARC"""",""""R"""",+Y))!($D(^VA(200,""""ARC"""",""""S"""",+Y))))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(74,15,3)="This is the Interpreting Resident or Staff who pre-verified the report."
^DD(74,15,9.2)="S RAINADT=+$P($G(^VA(200,+Y,""PS"")),""^"",4)"
^DD(74,15,12)="Must have Rad/Nuc Med 'Staff' or 'Resident' personnel classification."
^DD(74,15,12.1)="S DIC(""S"")=""N RAINADT X ^DD(74,15,9.2) I $S('RAINADT:1,DT'>RAINADT:1,1:0),($D(^VA(200,""""ARC"""",""""R"""",+Y))!($D(^VA(200,""""ARC"""",""""S"""",+Y))))"""
^DD(74,15,21,0)="^^2^2^2941213^^^"
^DD(74,15,21,1,0)="This is the Interpreting Resident or Staff Physician who pre-verified the"
^DD(74,15,21,2,0)="report."
^DD(74,15,"DT")="2950821"
^DD(74,16,0)="PRE-VERIFICATION E-SIG^FO^^0;14^K:$L(X)>30!($L(X)<6) X"
^DD(74,16,.1)="PRE-VERIFICATION ELECTRONIC SIGNATURE CODE"
^DD(74,16,2)="S Y(0)=Y S Y=""  <Hidden>"""
^DD(74,16,2.1)="S Y=""  <Hidden>"""
^DD(74,16,3)="This is the electronic signature of the Interpreting Resident or Staff who pre-verified this report."
^DD(74,16,21,0)="^^2^2^2940606^"
^DD(74,16,21,1,0)="This is the electronic signature code of the Interpreting Resident or"
^DD(74,16,21,2,0)="Staff who pre-verified this report."
^DD(74,16,"DT")="2960905"
^DD(74,17,0)="STATUS CHANGED TO VERIFIED BY^P200'^VA(200,^0;17^Q"
^DD(74,17,3)="Enter the individual who is actually signed on and responsible for changing the status of the report to 'verified'."
^DD(74,17,21,0)="^^2^2^2960906^^"
^DD(74,17,21,1,0)="This field will record the individual who is signed on and responsible for"
^DD(74,17,21,2,0)="the changing the report status to 'verified'."
^DD(74,17,"DT")="2960906"
^DD(74,25,0)="PROBLEM STATEMENT^F^^P;E1,240^K:$L(X)>240!($L(X)<2) X"
^DD(74,25,.1)="STATEMENT TO DESCRIBE PROBLEM ENCOUNTERED IN TRANSCRIPTION"
^DD(74,25,3)="Enter 2-240 char's describing the problem encountered while transcribing this report."
^DD(74,25,10)="TRANSCRIPTIONIST"
^DD(74,25,21,0)="^^7^7^2970512^^"
^DD(74,25,21,1,0)="This field may contain a note from the transcriptionist to the"
^DD(74,25,21,2,0)="interpreting physician if any problems were encountered during the"
^DD(74,25,21,3,0)="transcribing of this report. This message can be between 2 and 240"
^DD(74,25,21,4,0)="characters in length and is used to describe the problem."
^DD(74,25,21,5,0)=" "
^DD(74,25,21,6,0)="This field is available for use only if the status of the report is 'PD'"
^DD(74,25,21,7,0)="(problem draft)."
^DD(74,25,"DT")="2850523"
^DD(74,40,0)="PURGED DATE^DI^^PURGE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(74,40,.1)="DATE OF LAST PURGE"
^DD(74,40,3)="This field contains the date and time the data for this report was purged."
^DD(74,40,9)="^"
^DD(74,40,10)="SYSTEM GENERATED"
^DD(74,40,21,0)="^^3^3^2940518^^^^"
^DD(74,40,21,1,0)="This field contains the date and the time that the 'Purge Data' option of"
^DD(74,40,21,2,0)="the system was last used to purge the clinical history, report text, and the"
^DD(74,40,21,3,0)="activity log of this report."
^DD(74,40,"DT")="2850606"
^DD(74,45,0)="NO PURGE INDICATOR^S^n:NO PURGE;o:OK TO PURGE;^NOPURGE;1^Q"
^DD(74,45,3)="If this field is set to 'NO PURGE', then this report will not be purged."
^DD(74,45,21,0)="^^5^5^2940518^^^"
^DD(74,45,21,1,0)="If this field is set to 'NO PURGE', then the report will not"
^DD(74,45,21,2,0)="be purged or archived."
^DD(74,45,21,3,0)=" "
^DD(74,45,21,4,0)="This field is set when the corresponding field of the associated"
^DD(74,45,21,5,0)="exam is set to 'NO PURGE'."
^DD(74,45,"DT")="2860205"
^DD(74,53,0)="HOSPITAL DIVISION^CJ30^^ ; ^S RAEXFLD=""DIV"" D ^RARTFLDS K RAEXFLD"
^DD(74,53,.1)="HOSPITAL DIVISION WHERE EXAM WAS PERFORMED"
^DD(74,53,9)="^"
^DD(74,53,9.01)=""
^DD(74,53,9.1)="S RAEXFLD=""DIV"" D ^RARTFLDS K RAEXFLD"
^DD(74,53,10)="SYSTEM GENERATED"
^DD(74,53,21,0)="^^2^2^2940518^^^^"
^DD(74,53,21,1,0)="This field is computed by the system to the name of the hospital"
^DD(74,53,21,2,0)="division where the exam associated with this exam report was performed."
^DD(74,54,0)="IMAGING LOCATION^CJ30^^ ; ^S RAEXFLD=""LOC"" D ^RARTFLDS K RAEXFLD"
^DD(74,54,.1)="IMAGING LOCATION WHERE EXAM WAS PERFORMED"
^DD(74,54,9)="^"
^DD(74,54,9.01)=""
^DD(74,54,9.1)="S RAEXFLD=""LOC"" D ^RARTFLDS K RAEXFLD"
^DD(74,54,10)="SYSTEM GENERATED"
^DD(74,54,21,0)="^^3^3^2940518^^^^"
^DD(74,54,21,1,0)="This field is computed by the system to the name of the imaging location"
^DD(74,54,21,2,0)="within the hospital division where the exam associated with this exam"
^DD(74,54,21,3,0)="report was performed."
^DD(74,86,0)="INTERPRETING IMAGING LOCATION^*P79.1'^RA(79.1,^BA;1^S DIC(""S"")=""I $$SIIL^RABWRTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(74,86,3)="Enter the imaging location where the interpretation was performed."
^DD(74,86,12)="Location must not be 'Performed Only', and its Img Type must match Exam's Img Type (if exam is available.)"
^DD(74,86,12.1)="S DIC(""S"")=""I $$SIIL^RABWRTE"""
^DD(74,86,21,0)="^.001^2^2^3040218^^^^"
^DD(74,86,21,1,0)="This is the imaging location where the interpretation was performed."
^DD(74,86,21,2,0)="It is a pointer to the Imaging Location file (#79.1)."
^DD(74,86,"DT")="3030827"
^DD(74,100,0)="ACTIVITY LOG^74.01DA^^L;0"
^DD(74,100,.1)="ACTIVITY LOG SUB-FIELD"
^DD(74,100,3)=""
^DD(74,100,21,0)="^^2^2^2940518^^^"
^DD(74,100,21,1,0)="This is a multiple field containing a log of actions that have been taken"
^DD(74,100,21,2,0)="on this report record."
^DD(74,102,0)="PROCEDURE^CJ30^^ ; ^S RAEXFLD=""PROC"" D ^RARTFLDS K RAEXFLD"
^DD(74,102,.1)="NAME OF THE PROCEDURE ASSOCIATED WITH THIS REPORT"
^DD(74,102,9)="^"
^DD(74,102,9.01)=""
^DD(74,102,9.1)="S RAEXFLD=""PROC"" D ^RARTFLDS K RAEXFLD"
^DD(74,102,10)="SYSTEM GENERATED"
^DD(74,102,21,0)="^^2^2^2940518^^^^"
^DD(74,102,21,1,0)="This field is filled in by the system with the name of the rad/nuc med"
^DD(74,102,21,2,0)="procedure associated with this report."
^DD(74,102,"DT")="2841121"
^DD(74,103,0)="EXAM STATUS^CJ30^^ ; ^S RAEXFLD=""EXAM"" D ^RARTFLDS K RAEXFLD"
^DD(74,103,.1)="STATUS OF THE EXAM ASSOCIATED WITH THIS REPORT"
^DD(74,103,9)="^"
^DD(74,103,9.01)=""
^DD(74,103,9.1)="S RAEXFLD=""EXAM"" D ^RARTFLDS K RAEXFLD"
^DD(74,103,10)="SYSTEM GENERATED"
^DD(74,103,21,0)="^^2^2^2940518^^^^"
^DD(74,103,21,1,0)="This field is filled in by the system with the exam status of the exam"
^DD(74,103,21,2,0)="associated with this report."
^DD(74,104,0)="CATEGORY OF EXAM^CJ30^^ ; ^S RAEXFLD=""CAT"" D ^RARTFLDS K RAEXFLD"
^DD(74,104,.1)="CATEGORY OF THE EXAM ASSOCIATED WITH THIS REPORT"
^DD(74,104,9)="^"
^DD(74,104,9.01)=""
^DD(74,104,9.1)="S RAEXFLD=""CAT"" D ^RARTFLDS K RAEXFLD"
^DD(74,104,10)="SYSTEM GENERATED"
^DD(74,104,21,0)="^^2^2^2940518^^^^"
^DD(74,104,21,1,0)="This field is computed by the system to the category of the exam"
^DD(74,104,21,2,0)="associated with this report."
^DD(74,106,0)="WARD^CJ30^^ ; ^S RAEXFLD=""WARD"" D ^RARTFLDS K RAEXFLD"
^DD(74,106,.1)="WARD LOCATION OF RAD/NUC MED INPATIENT"
^DD(74,106,9)="^"
^DD(74,106,9.01)=""
^DD(74,106,9.1)="S RAEXFLD=""WARD"" D ^RARTFLDS K RAEXFLD"
^DD(74,106,10)="SYSTEM GENERATED"
^DD(74,106,21,0)="^^3^3^2940518^^^^"
^DD(74,106,21,1,0)="This field is computed by the system to the name of the hospital ward"
^DD(74,106,21,2,0)="where the inpatient associated with this exam report resided at the"
^DD(74,106,21,3,0)="time this report was first printed."
^DD(74,106,22)=""
^DD(74,106,"DT")="2940518"
^DD(74,107,0)="SERVICE^CJ30^^ ; ^S RAEXFLD=""SERV"" D ^RARTFLDS K RAEXFLD"
^DD(74,107,.1)="SERVICE TREATING THE RAD/NUC MED INPATIENT"
^DD(74,107,9)="^"
^DD(74,107,9.01)=""
^DD(74,107,9.1)="S RAEXFLD=""SERV"" D ^RARTFLDS K RAEXFLD"
^DD(74,107,10)="SYSTEM GENERATED"
^DD(74,107,21,0)="^^2^2^2940518^^^^"
^DD(74,107,21,1,0)="This field is computed by the system to the name of the service treating"
^DD(74,107,21,2,0)="the inpatient associated with this exam report."
^DD(74,107,"DT")="2940518"
^DD(74,108,0)="PRINCIPAL CLINIC^CJ30^^ ; ^S RAEXFLD=""CLINIC"" D ^RARTFLDS K RAEXFLD"
^DD(74,108,.1)="REFERRING PRINCIPAL CLINIC"
^DD(74,108,9)="^"
^DD(74,108,9.01)=""
^DD(74,108,9.1)="S RAEXFLD=""CLINIC"" D ^RARTFLDS K RAEXFLD"
^DD(74,108,10)="SYSTEM GENERATED"
^DD(74,108,21,0)="^^3^3^2940518^^^^"
^DD(74,108,21,1,0)="This field is computed by the system to the name of the outpatient clinic"
^DD(74,108,21,2,0)="that referred the patient associated with this exam report to rad/nuc med"
^DD(74,108,21,3,0)="for the exam."
^DD(74,108,"DT")="2841121"
^DD(74,109,0)="CONTRACT/SHARING SOURCE^CJ30^^ ; ^S RAEXFLD=""CONT"" D ^RARTFLDS K RARTFLD"
^DD(74,109,.1)="REFERRING CONTRACT/SHARING AGREEMENT"
^DD(74,109,9)="^"
^DD(74,109,9.01)=""
^DD(74,109,9.1)="S RAEXFLD=""CONT"" D ^RARTFLDS K RARTFLD"
^DD(74,109,10)="SYSTEM GENERATED"
^DD(74,109,21,0)="^^3^3^2940518^^^^"
^DD(74,109,21,1,0)="This field is computed by the system to the name of the contract or"
^DD(74,109,21,2,0)="sharing agreement that referred the patient associated with this exam"
^DD(74,109,21,3,0)="report to rad/nuc med."
^DD(74,109.5,0)="RESEARCH SOURCE^CJ30^^ ; ^S RAEXFLD=""RSCH"" D ^RARTFLDS K RAEXFLD"
^DD(74,109.5,.1)="REFERRING RESEARCH SOURCE"
^DD(74,109.5,9)="^"
^DD(74,109.5,9.01)=""
^DD(74,109.5,9.1)="S RAEXFLD=""RSCH"" D ^RARTFLDS K RAEXFLD"
^DD(74,109.5,10)="SYSTEM GENERATED"
^DD(74,109.5,21,0)="^^2^2^2940518^^^^"
^DD(74,109.5,21,1,0)="This field is computed by the system to the name of the research source"
^DD(74,109.5,21,2,0)="that referred the patient associated with this exam report to rad/nuc med."
^DD(74,109.5,"DT")="2850712"
^DD(74,112,0)="PRIMARY INTERPRETING RESIDENT^CJ30X^^ ; ^S RAEXFLD=""RES"" D ^RARTFLDS K RAEXFLD"
^DD(74,112,.1)="PRIMARY INTERPRETING RESIDENT WHO ANALYZED IMAGES"
^DD(74,112,9)="^"
^DD(74,112,9.01)=""
^DD(74,112,9.1)="S RAEXFLD=""RES"" D ^RARTFLDS K RAEXFLD"
^DD(74,112,10)="SYSTEM GENERATED"
^DD(74,112,21,0)="^^3^3^2940606^"
^DD(74,112,21,1,0)="This field is computed by the system to the name of the primary"
^DD(74,112,21,2,0)="interpreting resident who interprets the images associated with this exam"
^DD(74,112,21,3,0)="report."
^DD(74,112,"DT")="2940607"
^DD(74,113,0)="PRIMARY DIAGNOSTIC CODE^CJ30^^ ; ^S RAEXFLD=""DIAG"" D ^RARTFLDS K RAEXFLD"
^DD(74,113,.1)="PRIMARY DIAGNOSTIC CODE OF THE RAD/NUC MED EXAM"
^DD(74,113,9)="^"
^DD(74,113,9.01)=""
^DD(74,113,9.1)="S RAEXFLD=""DIAG"" D ^RARTFLDS K RAEXFLD"
^DD(74,113,10)="SYSTEM GENERATED"
^DD(74,113,21,0)="^^2^2^2940713^"
^DD(74,113,21,1,0)="This field is computed by the system to the primary diagnostic code"
^DD(74,113,21,2,0)="associated with this exam report."
^DD(74,113,"DT")="2940518"
^DD(74,114,0)="REQUESTING PHYSICIAN^CJ30^^ ; ^S RAEXFLD=""PHY"" D ^RARTFLDS K RAEXFLD"
^DD(74,114,.1)="NAME OF THE REQUESTING PHYSICIAN"
^DD(74,114,9)="^"
^DD(74,114,9.01)=""
^DD(74,114,9.1)="S RAEXFLD=""PHY"" D ^RARTFLDS K RAEXFLD"
^DD(74,114,10)="SYSTEM GENERATED"
^DD(74,114,21,0)="^^3^3^2940518^^^^"
^DD(74,114,21,1,0)="This field is computed by the system to the name of the person who"
^DD(74,114,21,2,0)="requested the exam associated with this report.  This person does not have"
^DD(74,114,21,3,0)="to be a physician.  (ie. It might be a nurse.)"
^DD(74,114,"DT")="2841121"
^DD(74,115,0)="PRIMARY INTERPRETING STAFF^CJ30^^ ; ^S RAEXFLD=""STAFF"" D ^RARTFLDS K RAEXFLD"
^DD(74,115,.1)="PRIMARY INTERPRETING STAFF WHO ANALYZED IMAGES"
^DD(74,115,9)="^"
^DD(74,115,9.01)=""
^DD(74,115,9.1)="S RAEXFLD=""STAFF"" D ^RARTFLDS K RAEXFLD"
^DD(74,115,10)="SYSTEM GENERATED"
^DD(74,115,21,0)="^^2^2^2940607^^"
^DD(74,115,21,1,0)="This field is computed by the system to the name of the primary"
^DD(74,115,21,2,0)="interpreting staff who interprets the images associated with this report."
^DD(74,115,"DT")="2940607"
^DD(74,116,0)="COMPLICATION^CJ30^^ ; ^S RAEXFLD=""COMP"" D ^RARTFLDS K RAEXFLD"
^DD(74,116,.1)="EXAM COMPLICATION"
^DD(74,116,9)="^"
^DD(74,116,9.01)=""
^DD(74,116,9.1)="S RAEXFLD=""COMP"" D ^RARTFLDS K RAEXFLD"
^DD(74,116,10)="SYSTEM GENERATED"
^DD(74,116,21,0)="^^2^2^2940518^^^^"
^DD(74,116,21,1,0)="This field is computed by the system to the complication that may have"
^DD(74,116,21,2,0)="occurred during the exam procedure associated with this exam report."
^DD(74,118,0)="PRIMARY CAMERA/EQUIP/RM^CJ30^^ ; ^S RAEXFLD=""EXRM"" D ^RARTFLDS K RAEXFLD"
^DD(74,118,.1)="NAME OF PRIMARY CAMERA/EQUIP/RM"
^DD(74,118,9)="^"
^DD(74,118,9.01)=""
^DD(74,118,9.1)="S RAEXFLD=""EXRM"" D ^RARTFLDS K RAEXFLD"
^DD(74,118,10)="SYSTEM GENERATED"
^DD(74,118,21,0)="^^3^3^2940603^"
^DD(74,118,21,1,0)="This field is computed by the system to the name of the primary"
^DD(74,118,21,2,0)="camera/equip/rm where the exam associated with this exam report was"
^DD(74,118,21,3,0)="performed."
^DD(74,118,"DT")="2940603"
^DD(74,119,0)="BEDSECTION^CJ30^^ ; ^S RAEXFLD=""BED"" D ^RARTFLDS K RAEXFLD"
^DD(74,119,.1)="BEDSECTION OF THE RAD/NUC MED PATIENT"
^DD(74,119,9)="^"
^DD(74,119,9.01)=""
^DD(74,119,9.1)="S RAEXFLD=""BED"" D ^RARTFLDS K RAEXFLD"
^DD(74,119,10)="SYSTEM GENERATED"
^DD(74,119,21,0)="^^2^2^2940518^^^^"
^DD(74,119,21,1,0)="This field is computed by the system to the name of the bedsection"
^DD(74,119,21,2,0)="of the rad/nuc med inpatient associated with this exam report."
^DD(74,119,"DT")="2940518"
^DD(74,200,0)="REPORT TEXT^74.02^^R;0"
^DD(74,200,.1)="REPORT TEXT FOR THIS EXAM"
^DD(74,200,10)="INTERPRETING PHYSICIAN"
^DD(74,200,21,0)="^^8^8^2941213^"
^DD(74,200,21,1,0)="This field contains the report text for the imaging exam. The report"
^DD(74,200,21,2,0)="text is written by the interpreting physician and may be entered into the"
^DD(74,200,21,3,0)="system by a transcriptionist.  A report may also be entered into DHCP when"
^DD(74,200,21,4,0)="the interpreting physician uses a voice recognition system."
^DD(74,200,21,5,0)=" "
^DD(74,200,21,6,0)="If the interpreting physician requests a standard report, the information"
^DD(74,200,21,7,0)="in this field is copied from the 'Report Text' field of the 'Standard"
^DD(74,200,21,8,0)="Reports' file."
^DD(74,300,0)="IMPRESSION TEXT^74.03^^I;0"
^DD(74,300,.1)="IMPRESSION TEXT FOR THIS EXAM"
^DD(74,300,10)="INTERPRETING PHYSICIAN"
^DD(74,300,21,0)="^^10^10^2940607^"
^DD(74,300,21,1,0)="This field contains the 'impression text' of the rad/nuc med exam"
^DD(74,300,21,2,0)="associated with this report.  The 'impression text' gives a quick summary"
^DD(74,300,21,3,0)="of the 'report text'.  It is written by the interpreting physician and is"
^DD(74,300,21,4,0)="entered into the system by the transcriptionist. The system will allow the"
^DD(74,300,21,5,0)="interpreting physician to directly enter this information into the"
^DD(74,300,21,6,0)="'impression text' field through a voice recognition system."
^DD(74,300,21,7,0)=" "
^DD(74,300,21,8,0)="If the interpreting physician requests a standard report, the information"
^DD(74,300,21,9,0)="in this field is copied from the 'impression text' field of the 'Standard"
^DD(74,300,21,10,0)="Reports' file."
^DD(74,400,0)="ADDITIONAL CLINICAL HISTORY^74.04^^H;0"
^DD(74,400,.1)="CLINICAL HISTORY FOR THIS EXAM "
^DD(74,400,10)="INTERPRETING PHYSICIAN"
^DD(74,400,21,0)="^.001^9^9^3010829^^"
^DD(74,400,21,1,0)="This field may contain a patient's clinical history as well as"
^DD(74,400,21,2,0)="instructions to the interpreting physician.  For example, the"
^DD(74,400,21,3,0)="instructions might be for the physician to interpret the exam images to"
^DD(74,400,21,4,0)="rule out the possibility of the patient having a certain disease."
^DD(74,400,21,5,0)=" "
^DD(74,400,21,6,0)="The 'additional clinical history' is written by the interpreting physician"
^DD(74,400,21,7,0)="and is entered into the system by the transcriptionist.  Voice Recognition"
^DD(74,400,21,8,0)="systems allow the interpreting physician to directly enter this"
^DD(74,400,21,9,0)="information into the 'additional clinical history' field."
^DD(74,400,"DT")="3010103"
^DD(74,1000,0)="ERROR REPORTS^74.06DA^^ERR;0"
^DD(74,1000,21,0)="^^4^4^2960301^"
^DD(74,1000,21,1,0)="This multiple subfile contains date-stamped reports that were unverified"
^DD(74,1000,21,2,0)="and amended.  The previous verified data that existed before the report"
^DD(74,1000,21,3,0)="was amended is stored here.  As a security precaution, these fields are"
^DD(74,1000,21,4,0)="released to the site as uneditable."
^DD(74,2005,0)="IMAGE^74.02005PA^^2005;0"
^DD(74,2005,21,0)="^^1^1^2941209^^^"
^DD(74,2005,21,1,0)="This multiple field holds pointer values to the Image file (2005)."
^DD(74,2005,"DT")="2941209"
^DD(74,"B","ACTIVITY LOG",100)=""
^DD(74,"B","ACTIVITY LOG SUB-FIELD",100)="1"
^DD(74,"B","ADDITIONAL CLINICAL HISTORY",400)=""
^DD(74,"B","BEDSECTION",119)=""
^DD(74,"B","CASE NUMBER",4)=""
^DD(74,"B","CASE NUMBER OF THIS EXAM",4)="1"
^DD(74,"B","CATEGORY OF EXAM",104)=""
^DD(74,"B","COMPLICATION",116)=""
^DD(74,"B","CONTRACT/SHARING SOURCE",109)=""
^DD(74,"B","DATE AND CASE NUMBER OF EXAM",.01)="1"
^DD(74,"B","DATE AND TIME OF EXAM",3)="1"
^DD(74,"B","DATE OF LAST PURGE",40)="1"
^DD(74,"B","DATE REPORT ENTERED",6)=""
^DD(74,"B","DATE REPORT PRINTED",13)=""
^DD(74,"B","DATE THE REPORT WAS DICTATED",8)="1"
^DD(74,"B","DAY-CASE#",.01)=""
^DD(74,"B","ELECTRONIC SIGNATURE CODE",10)=""
^DD(74,"B","ERROR REPORTS",1000)=""
^DD(74,"B","EXAM COMPLICATION",116)="1"
^DD(74,"B","EXAM DATE/TIME",3)=""
^DD(74,"B","EXAM STATUS",103)=""
^DD(74,"B","HOSPITAL DIVISION",53)=""
^DD(74,"B","IMAGE",2005)=""
^DD(74,"B","IMAGING LOCATION",54)=""
^DD(74,"B","IMPRESSION TEXT",300)=""
^DD(74,"B","IMPRESSION TEXT FOR THIS EXAM",300)="1"
^DD(74,"B","INTERPRETING IMAGING LOCATION",86)=""
^DD(74,"B","NAME OF RAD/NUC MED PATIENT",2)="1"
^DD(74,"B","NO PURGE INDICATOR",45)=""
^DD(74,"B","OTHER CASE#",4.5)=""
^DD(74,"B","PATIENT NAME",2)=""
^DD(74,"B","PRE-VERIFICATION DATE/TIME",14)=""
^DD(74,"B","PRE-VERIFICATION E-SIG",16)=""
^DD(74,"B","PRE-VERIFICATION USER",15)=""
^DD(74,"B","PRIMARY CAMERA/EQUIP/RM",118)=""
^DD(74,"B","PRIMARY DIAGNOSTIC CODE",113)=""
^DD(74,"B","PRIMARY INTERPRETING RESIDENT",112)=""
^DD(74,"B","PRIMARY INTERPRETING STAFF",115)=""
^DD(74,"B","PRINCIPAL CLINIC",108)=""
^DD(74,"B","PROBLEM STATEMENT",25)=""
^DD(74,"B","PROCEDURE",102)=""
^DD(74,"B","PURGED DATE",40)=""
^DD(74,"B","REFERRING PRINCIPAL CLINIC",108)="1"
^DD(74,"B","REFERRING RESEARCH SOURCE",109.5)="1"
^DD(74,"B","REPORT STATUS",5)=""
^DD(74,"B","REPORT TEXT",200)=""
^DD(74,"B","REPORT TEXT FOR THIS EXAM",200)="1"
^DD(74,"B","REPORT VERIFIED BY COTS APP",9.3)=""
^DD(74,"B","REPORTED DATE",8)=""
^DD(74,"B","REQUESTING PHYSICIAN",114)=""
^DD(74,"B","RESEARCH SOURCE",109.5)=""
^DD(74,"B","SERVICE",107)=""
^DD(74,"B","STATUS CHANGED TO VERIFIED BY",17)=""
^DD(74,"B","STATUS OF THIS REPORT",5)="1"
^DD(74,"B","TELERADIOLOGY PHYSICIAN NAME",9.1)=""
^DD(74,"B","TELERADIOLOGY PHYSICIAN NPI",9.2)=""
^DD(74,"B","TRANSCRIPTIONIST",11)=""
^DD(74,"B","VERIFIED DATE",7)=""
^DD(74,"B","VERIFYING PHYSICIAN",9)=""
^DD(74,"B","WARD",106)=""
^DD(74,"GL",0,1,.01)=""
^DD(74,"GL",0,2,2)=""
^DD(74,"GL",0,3,3)=""
^DD(74,"GL",0,4,4)=""
^DD(74,"GL",0,5,5)=""
^DD(74,"GL",0,6,6)=""
^DD(74,"GL",0,7,7)=""
^DD(74,"GL",0,8,8)=""
^DD(74,"GL",0,9,9)=""
^DD(74,"GL",0,10,10)=""
^DD(74,"GL",0,11,13)=""
^DD(74,"GL",0,12,14)=""
^DD(74,"GL",0,13,15)=""
^DD(74,"GL",0,14,16)=""
^DD(74,"GL",0,17,17)=""
^DD(74,"GL",1,0,4.5)=""
^DD(74,"GL",2005,0,2005)=""
^DD(74,"GL","BA",1,86)=""
^DD(74,"GL","ERR",0,1000)=""
^DD(74,"GL","H",0,400)=""
^DD(74,"GL","I",0,300)=""
^DD(74,"GL","L",0,100)=""
^DD(74,"GL","NOPURGE",1,45)=""
^DD(74,"GL","P","E1,240",25)=""
^DD(74,"GL","PURGE",1,40)=""
^DD(74,"GL","R",0,200)=""
^DD(74,"GL","T",1,11)=""
^DD(74,"GL","TT",1,9.1)=""
^DD(74,"GL","TT",2,9.2)=""
^DD(74,"GL","TT",3,9.3)=""
^DD(74,"IX",.01)=""
^DD(74,"IX",2)=""
^DD(74,"IX",5)=""
^DD(74,"IX",7)=""
^DD(74,"IX",9.3)=""
^DD(74,"IX",11)=""
^DD(74,"RQ",.01)=""
^DD(74,"RQ",2)=""
^DD(74,"RQ",3)=""
^DD(74,"RQ",4)=""
^DD(74,"RQ",5)=""
^DD(74,"SB",74.01,100)=""
^DD(74,"SB",74.02,200)=""
^DD(74,"SB",74.02005,2005)=""
^DD(74,"SB",74.03,300)=""
^DD(74,"SB",74.04,400)=""
^DD(74,"SB",74.05,4.5)=""
^DD(74,"SB",74.06,1000)=""
^DD(74.01,0)="ACTIVITY LOG SUB-FIELD^NL^3^3"
^DD(74.01,0,"DT")="2970205"
^DD(74.01,0,"NM","ACTIVITY LOG")=""
^DD(74.01,0,"UP")="74"
^DD(74.01,.01,0)="LOG DATE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(74.01,.01,.1)="DATE OF ACTION ON THIS REPORT RECORD"
^DD(74.01,.01,3)="System generated date and time that action was taken on this report."
^DD(74.01,.01,10)="SYSTEM GENERATED"
^DD(74.01,.01,21,0)="^^2^2^2940518^^^^"
^DD(74.01,.01,21,1,0)="This field contains the date and the time that the action was taken on this"
^DD(74.01,.01,21,2,0)="report record."
^DD(74.01,2,0)="TYPE OF ACTION^RS^I:INITIAL REPORT TRANSCRIPTION;E:REPORT EDIT;V:VERIFIED;U:REPORT UNVERIFIED;C:IMAGES COLLECTED;P:PRE-VERIFIED;^0;2^Q"
^DD(74.01,2,.1)="TYPE OF ACTION ON REPORT RECORD"
^DD(74.01,2,3)="This is the action type for this report."
^DD(74.01,2,10)="SYSTEM GENERATED"
^DD(74.01,2,21,0)="^^4^4^2970205^"
^DD(74.01,2,21,1,0)="This field contains the type of action that was taken on this report"
^DD(74.01,2,21,2,0)="record.  Available types of action are:  'I' for initial report"
^DD(74.01,2,21,3,0)="transcription, 'E' for report edit, 'V' for verified, 'U' for"
^DD(74.01,2,21,4,0)="unverified, 'P' for pre-verified, and 'C' for digitized images collected."
^DD(74.01,2,"DT")="2970205"
^DD(74.01,3,0)="COMPUTER USER^RP200'^VA(200,^0;3^Q"
^DD(74.01,3,.1)="USER AT THE TIME ACTION TAKEN ON REPORT RECORD"
^DD(74.01,3,3)="This field contains the name of the computer user at the time the action was taken on this report."
^DD(74.01,3,10)="SYSTEM GENERATED"
^DD(74.01,3,21,0)="^^2^2^2941213^"
^DD(74.01,3,21,1,0)="This field points to  the 'NEW PERSON' file and is used to record the user"
^DD(74.01,3,21,2,0)="who took an action on this report record."
^DD(74.01,3,"DT")="2900302"
^DD(74.01,"B","COMPUTER USER",3)=""
^DD(74.01,"B","LOG DATE",.01)=""
^DD(74.01,"B","TYPE OF ACTION",2)=""
^DD(74.01,"GL",0,1,.01)=""
^DD(74.01,"GL",0,2,2)=""
^DD(74.01,"GL",0,3,3)=""
^DD(74.01,"RQ",.01)=""
^DD(74.01,"RQ",2)=""
^DD(74.01,"RQ",3)=""
^DD(74.02,0)="REPORT TEXT SUB-FIELD^NL^.01^1"
^DD(74.02,0,"NM","REPORT TEXT")=""
^DD(74.02,0,"UP")="74"
^DD(74.02,.01,0)="REPORT TEXT^W^^0;1^Q"
^DD(74.02,.01,3)="Enter the text of the report for the exam."
^DD(74.02,.01,21,0)="^^10^10^2940608^"
^DD(74.02,.01,21,1,0)="This field contains the report text for the imaging exam. The report text"
^DD(74.02,.01,21,2,0)="is provided by the interpreting physician and is entered into the system"
^DD(74.02,.01,21,3,0)="by a transcriptionist.  The report resides in the 'report text' field."
^DD(74.02,.01,21,4,0)="The report may also be entered directly by the physician if the physician"
^DD(74.02,.01,21,5,0)="is using a voice recognition system."
^DD(74.02,.01,21,6,0)=" "
^DD(74.02,.01,21,7,0)=" "
^DD(74.02,.01,21,8,0)="If the interpreting physician requests a standard report, the information"
^DD(74.02,.01,21,9,0)="in this field is copied from the 'report text' field of the 'Standard"
^DD(74.02,.01,21,10,0)="Reports' file."
^DD(74.02,"B","REPORT TEXT",.01)=""
^DD(74.02,"GL",0,1,.01)=""
^DD(74.02005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(74.02005,0,"DT")="2941202"
^DD(74.02005,0,"IX","B",74.02005,.01)=""
^DD(74.02005,0,"NM","IMAGE")=""
^DD(74.02005,0,"UP")="74"
^DD(74.02005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(74.02005,.01,1,0)="^.1"
^DD(74.02005,.01,1,1,0)="74.02005^B"
^DD(74.02005,.01,1,1,1)="S ^RARPT(DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(74.02005,.01,1,1,2)="K ^RARPT(DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(74.02005,.01,1,1,3)="DO NOT DELETE"
^DD(74.02005,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(74.02005,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(74.02005,.01,21,0)="^^2^2^2941209^^"
^DD(74.02005,.01,21,1,0)="This field holds the pointer value for an image located in the Image file"
^DD(74.02005,.01,21,2,0)="(2005). "
^DD(74.02005,.01,"DT")="2941209"
^DD(74.02005,"B","IMAGE",.01)=""
^DD(74.02005,"GL",0,1,.01)=""
^DD(74.02005,"IX",.01)=""
^DD(74.03,0)="IMPRESSION TEXT SUB-FIELD^NL^.01^1"
^DD(74.03,0,"NM","IMPRESSION TEXT")=""
^DD(74.03,0,"UP")="74"
^DD(74.03,.01,0)="IMPRESSION TEXT^W^^0;1^Q"
^DD(74.03,.01,3)="Enter the impression text (summary) of the exam."
^DD(74.03,.01,21,0)="^^9^9^2940606^"
^DD(74.03,.01,21,1,0)="This field contains the 'impression text' of the rad/nuc med exam"
^DD(74.03,.01,21,2,0)="associated with this report. The 'impression text' provides a summary of"
^DD(74.03,.01,21,3,0)="the 'report text' and is entered into the system by the transcriptionist ."
^DD(74.03,.01,21,4,0)="Voice recognition systems allows the interpreting physician to directly"
^DD(74.03,.01,21,5,0)="enter this information into the 'impression text' field."
^DD(74.03,.01,21,6,0)=" "
^DD(74.03,.01,21,7,0)="If the interpreting physician requests a standard report, the information"
^DD(74.03,.01,21,8,0)="in this field is copied from the 'impression text' field of the 'Standard"
^DD(74.03,.01,21,9,0)="reports' file."
^DD(74.03,.01,"DT")="2850305"
^DD(74.03,"B","IMPRESSION TEXT",.01)=""
^DD(74.03,"GL",0,1,.01)=""
^DD(74.04,0)="ADDITIONAL CLINICAL HISTORY SUB-FIELD^NL^.01^1"
^DD(74.04,0,"DT")="3010103"
^DD(74.04,0,"NM","ADDITIONAL CLINICAL HISTORY")=""
^DD(74.04,0,"UP")="74"
^DD(74.04,.01,0)="ADDITIONAL CLINICAL HISTORY^W^^0;1^Q"
^DD(74.04,.01,3)="Enter the patient's clinical history."
^DD(74.04,.01,21,0)="^.001^8^8^3010829^^^"
^DD(74.04,.01,21,1,0)="This field may contain a patient's clinical history as well as"
^DD(74.04,.01,21,2,0)="instructions to the interpreting physician."
^DD(74.04,.01,21,3,0)=" "
^DD(74.04,.01,21,4,0)="The additional clinical history is dictated by the interpreting physician"
^DD(74.04,.01,21,5,0)="as provided from the request and entered into the system by the"
^DD(74.04,.01,21,6,0)="transcriptionist. An enhancement of the system, now allows the"
^DD(74.04,.01,21,7,0)="interpreting physician to directly enter this information into the"
^DD(74.04,.01,21,8,0)="'additional clinical history' field using a voice recognition system."
^DD(74.04,.01,"DT")="3010103"
^DD(74.04,"B","ADDITIONAL CLINICAL HISTORY",.01)=""
^DD(74.04,"GL",0,1,.01)=""
^DD(74.05,0)="OTHER CASE# SUB-FIELD^^.01^1"
^DD(74.05,0,"DT")="2960208"
^DD(74.05,0,"IX","B",74.05,.01)=""
^DD(74.05,0,"NM","OTHER CASE#")=""
^DD(74.05,0,"UP")="74"
^DD(74.05,.01,0)="OTHER CASE#^F^^0;1^K:$L(X)>12!($L(X)<8)!'(X?6N1""-""1N.N) X"
^DD(74.05,.01,1,0)="^.1"
^DD(74.05,.01,1,1,0)="74.05^B"
^DD(74.05,.01,1,1,1)="S ^RARPT(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(74.05,.01,1,1,2)="K ^RARPT(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(74.05,.01,1,2,0)="74^SET"
^DD(74.05,.01,1,2,1)="S ^RARPT(""SET"",$E(X,1,30),DA(1),DA)="""""
^DD(74.05,.01,1,2,2)="K ^RARPT(""SET"",$E(X,1,30),DA(1),DA)"
^DD(74.05,.01,1,2,"DT")="2960208"
^DD(74.05,.01,3)="LONG CASE NUMBER IN THE SAME MEMBER SET AS THIS RECORD'S CASE #"
^DD(74.05,.01,"DT")="2960208"
^DD(74.05,"B","OTHER CASE#",.01)=""
^DD(74.05,"GL",0,1,.01)=""
^DD(74.05,"IX",.01)=""
^DD(74.06,0)="ERROR REPORTS SUB-FIELD^^2^2"
^DD(74.06,0,"DT")="2960301"
^DD(74.06,0,"IX","B",74.06,.01)=""
^DD(74.06,0,"NM","ERROR REPORTS")=""
^DD(74.06,0,"UP")="74"
^DD(74.06,.01,0)="DATE/TIME OF RPT SAVE^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(74.06,.01,1,0)="^.1"
^DD(74.06,.01,1,1,0)="74.06^B"
^DD(74.06,.01,1,1,1)="S ^RARPT(DA(1),""ERR"",""B"",$E(X,1,30),DA)="""""
^DD(74.06,.01,1,1,2)="K ^RARPT(DA(1),""ERR"",""B"",$E(X,1,30),DA)"
^DD(74.06,.01,3)="Enter the date/time the report was unverified and saved."
^DD(74.06,.01,21,0)="^^4^4^2960301^"
^DD(74.06,.01,21,1,0)="This field will track the date/time of changes to unverified"
^DD(74.06,.01,21,2,0)="Radiology/Nuclear Medicine reports.  If a report is unverified, a skeletal"
^DD(74.06,.01,21,3,0)="structure of the report prior to amendments will be saved under this"
^DD(74.06,.01,21,4,0)="date/time."
^DD(74.06,.01,"DT")="2960301"
^DD(74.06,2,0)="ERRONEOUS REPORT^74.62^^RPT;0"
^DD(74.06,2,21,0)="^^10^10^2960301^"
^DD(74.06,2,21,1,0)="This field contains the version of a radiology/nuclear medicine report"
^DD(74.06,2,21,2,0)="prior to amendments.  It is saved at the time the report is unverified."
^DD(74.06,2,21,3,0)="Data retained includes any of the following that existed on the record at"
^DD(74.06,2,21,4,0)="the time it was unverified: Procedure/modifiers, Clinical History,"
^DD(74.06,2,21,5,0)="Impression, Report Text, Primary and Secondary Diagnostic Codes, Verifier"
^DD(74.06,2,21,6,0)="name/date/esig, Pre-verifier name/date/esig, Primary and Secondary Staff"
^DD(74.06,2,21,7,0)="and Residents."
^DD(74.06,2,21,8,0)=" "
^DD(74.06,2,21,9,0)="This data is stored in a subfile that supports multiple occurrences of"
^DD(74.06,2,21,10,0)="amendments for one report."
^DD(74.06,"B","DATE/TIME OF RPT SAVE",.01)=""
^DD(74.06,"B","ERRONEOUS REPORT",2)=""
^DD(74.06,"GL",0,1,.01)=""
^DD(74.06,"GL","RPT",0,2)=""
^DD(74.06,"IX",.01)=""
^DD(74.06,"SB",74.62,2)=""
^DD(74.1,0)="FIELD^^300^4"
^DD(74.1,0,"DDA")="N"
^DD(74.1,0,"DT")="2940518"
^DD(74.1,0,"IX","B",74.1,.01)=""
^DD(74.1,0,"NM","STANDARD REPORTS")=""
^DD(74.1,0,"VR")="5.0"
^DD(74.1,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(74.1,.001,0)="REPORT NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(74.1,.001,.1)="NUMBER OF THIS STANDARD REPORT"
^DD(74.1,.001,3)="Enter a <RET> to accept the number assigned by the system, or a number between 1 and 999 for this standard report."
^DD(74.1,.001,10)="SYSTEM GENERATED"
^DD(74.1,.001,21,0)="^^4^4^2940518^^^^"
^DD(74.1,.001,21,1,0)="This field contains the number of this standard report. This provides a"
^DD(74.1,.001,21,2,0)="way to do quick look-ups of a report by its report number."
^DD(74.1,.001,21,3,0)=" "
^DD(74.1,.001,21,4,0)="Report numbers are assigned by the system and are between 1 and 999."
^DD(74.1,.001,"DT")="2850320"
^DD(74.1,.01,0)="STANDARD REPORT^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(74.1,.01,.1)="NAME OF THIS STANDARD REPORT"
^DD(74.1,.01,1,0)="^.1"
^DD(74.1,.01,1,1,0)="74.1^B"
^DD(74.1,.01,1,1,1)="S ^RA(74.1,""B"",$E(X,1,30),DA)="""""
^DD(74.1,.01,1,1,2)="K ^RA(74.1,""B"",$E(X,1,30),DA)"
^DD(74.1,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(74.1,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(74.1,.01,3)="Answer must be 3-30 characters in length."
^DD(74.1,.01,10)="RAD/NUC MED COORDINATOR"
^DD(74.1,.01,21,0)="^^3^3^2940518^^^^"
^DD(74.1,.01,21,1,0)="This field contains the name of this standard report.  Names are assigned"
^DD(74.1,.01,21,2,0)="by the rad/nuc med coordinator at each site and must be between 3 and 30"
^DD(74.1,.01,21,3,0)="non-numeric characters in length."
^DD(74.1,.01,"DT")="2940518"
^DD(74.1,200,0)="REPORT TEXT^74.11^^R;0"
^DD(74.1,200,.1)="TEXT OF THIS STANDARD REPORT"
^DD(74.1,200,10)="RAD/NUC MED COORDINATOR"
^DD(74.1,200,21,0)="^^5^5^2940518^^^^"
^DD(74.1,200,21,1,0)="This field contains the text associated with this standard report."
^DD(74.1,200,21,2,0)=" "
^DD(74.1,200,21,3,0)="When this standard report is chosen to be associated with an exam, the"
^DD(74.1,200,21,4,0)="information in this field is copied into the 'report text' field for that"
^DD(74.1,200,21,5,0)="exam."
^DD(74.1,300,0)="IMPRESSION^74.12^^I;0"
^DD(74.1,300,.1)="IMPRESSION ASSOCIATED WITH THIS STANDARD REPORT."
^DD(74.1,300,10)="RAD/NUC MED COORDINATOR"
^DD(74.1,300,21,0)="^^6^6^2940518^^"
^DD(74.1,300,21,1,0)="This field contains the impression associated with this standard report."
^DD(74.1,300,21,2,0)="The impression is used to give a quick summary of the report text."
^DD(74.1,300,21,3,0)=" "
^DD(74.1,300,21,4,0)="When this standard report is chosen to be associated with an exam, the"
^DD(74.1,300,21,5,0)="information in this field is copied into the 'impression text' field for"
^DD(74.1,300,21,6,0)="that exam."
^DD(74.1,"B","IMPRESSION",300)=""
^DD(74.1,"B","NAME OF THIS STANDARD REPORT",.01)="1"
^DD(74.1,"B","NUMBER OF THIS STANDARD REPORT",.001)="1"
^DD(74.1,"B","REPORT NUMBER",.001)=""
^DD(74.1,"B","REPORT TEXT",200)=""
^DD(74.1,"B","STANDARD REPORT",.01)=""
^DD(74.1,"B","TEXT OF THIS STANDARD REPORT",200)="1"
^DD(74.1,"GL",0,1,.01)=""
^DD(74.1,"GL","I",0,300)=""
^DD(74.1,"GL","R",0,200)=""
^DD(74.1,"IX",.01)=""
^DD(74.1,"RQ",.01)=""
^DD(74.1,"SB",74.11,200)=""
^DD(74.1,"SB",74.12,300)=""
^DD(74.11,0)="REPORT TEXT SUB-FIELD^NL^.01^1"
^DD(74.11,0,"NM","REPORT TEXT")=""
^DD(74.11,0,"UP")="74.1"
^DD(74.11,.01,0)="REPORT TEXT^W^^0;1^Q"
^DD(74.11,.01,3)="Enter the text for this standard report."
^DD(74.11,.01,21,0)="^^5^5^2940518^^^"
^DD(74.11,.01,21,1,0)="This field contains the text associated with this standard report."
^DD(74.11,.01,21,2,0)=" "
^DD(74.11,.01,21,3,0)="When this standard report is chosen to be associated with an exam,"
^DD(74.11,.01,21,4,0)="the information in this field is copied into the 'report text' field"
^DD(74.11,.01,21,5,0)="for that exam."
^DD(74.11,"B","REPORT TEXT",.01)=""
^DD(74.11,"GL",0,1,.01)=""
^DD(74.12,0)="IMPRESSION SUB-FIELD^NL^.01^1"
^DD(74.12,0,"NM","IMPRESSION")=""
^DD(74.12,0,"UP")="74.1"
^DD(74.12,.01,0)="IMPRESSION^W^^0;1^Q"
^DD(74.12,.01,3)="Enter the impression associated with this standard report."
^DD(74.12,.01,21,0)="^^6^6^2940518^^"
^DD(74.12,.01,21,1,0)="This field contains the impression associated with this standard"
^DD(74.12,.01,21,2,0)="report. The impression is used to give a summary of the report text."
^DD(74.12,.01,21,3,0)=" "
^DD(74.12,.01,21,4,0)="When this standard report is chosen to be associated with an exam,"
^DD(74.12,.01,21,5,0)="the information in this field is copied into the 'impression text'"
^DD(74.12,.01,21,6,0)="field for that exam."
^DD(74.12,.01,"DT")="2850415"
^DD(74.12,"B","IMPRESSION",.01)=""
^DD(74.12,"GL",0,1,.01)=""
^DD(74.2,0)="FIELD^^25^5"
^DD(74.2,0,"DDA")="N"
^DD(74.2,0,"ID",2)="W:$D(^(0)) ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_(1700+$E($P(^(0),U,2),1,3))"
^DD(74.2,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(74.2,0,"IX","B",74.2,.01)=""
^DD(74.2,0,"IX","C",74.2,3)=""
^DD(74.2,0,"IX","D",74.21,.01)=""
^DD(74.2,0,"IX","E",74.2,4)=""
^DD(74.2,0,"IX","F",74.2,2)=""
^DD(74.2,0,"NM","REPORT BATCHES")=""
^DD(74.2,0,"VR")="5.0"
^DD(74.2,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(74.2,.01,0)="BATCH NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.UNP) X"
^DD(74.2,.01,.1)="NAME OF THIS REPORT BATCH"
^DD(74.2,.01,1,0)="^.1"
^DD(74.2,.01,1,1,0)="74.2^B"
^DD(74.2,.01,1,1,1)="S ^RABTCH(74.2,""B"",$E(X,1,30),DA)="""""
^DD(74.2,.01,1,1,2)="K ^RABTCH(74.2,""B"",$E(X,1,30),DA)"
^DD(74.2,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(74.2,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(74.2,.01,3)="Enter a batch name (3-30 characters)."
^DD(74.2,.01,10)="RAD/NUC MED TRANSCRIPTIONIST"
^DD(74.2,.01,21,0)="^^10^10^2940607^"
^DD(74.2,.01,21,1,0)="This field contains the name given to this report batch by the"
^DD(74.2,.01,21,2,0)="transcriptionist when creating this batch.  Batch names must be between"
^DD(74.2,.01,21,3,0)="3 and 30 characters in length."
^DD(74.2,.01,21,4,0)=" "
^DD(74.2,.01,21,5,0)="Usually the batch is given the name of the interpreting physician who"
^DD(74.2,.01,21,6,0)="dictated the reports onto audio tape."
^DD(74.2,.01,21,7,0)=" "
^DD(74.2,.01,21,8,0)="More than one transcriptionist may enter batches with the same name but"
^DD(74.2,.01,21,9,0)="the user is only allowed to remove and add reports to batches associated"
^DD(74.2,.01,21,10,0)="with his/her user access code."
^DD(74.2,.01,"DT")="2850522"
^DD(74.2,2,0)="DATE/TIME BATCH CREATED^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(74.2,2,.1)="DATE AND TIME THIS BATCH WAS CREATED"
^DD(74.2,2,1,0)="^.1"
^DD(74.2,2,1,1,0)="74.2^F"
^DD(74.2,2,1,1,1)="S ^RABTCH(74.2,""F"",$E(X,1,30),DA)="""""
^DD(74.2,2,1,1,2)="K ^RABTCH(74.2,""F"",$E(X,1,30),DA)"
^DD(74.2,2,1,1,3)="Do not delete."
^DD(74.2,2,1,1,"%D",0)="^^1^1^2970206^"
^DD(74.2,2,1,1,"%D",1,0)="This cross-reference will track the creation date/time of the batch."
^DD(74.2,2,1,1,"DT")="2970206"
^DD(74.2,2,3)="This field contains the date and time the batch was created."
^DD(74.2,2,10)="SYSTEM GENERATED"
^DD(74.2,2,21,0)="^^2^2^2940519^^^^"
^DD(74.2,2,21,1,0)="This field is filled in by the system with the date and time this batch"
^DD(74.2,2,21,2,0)="was created by the transcriptionist."
^DD(74.2,2,"DT")="2970206"
^DD(74.2,3,0)="USER WHO CREATED BATCH^P200'^VA(200,^0;3^Q"
^DD(74.2,3,.1)="NAME OF USER WHO CREATED THIS BATCH"
^DD(74.2,3,1,0)="^.1"
^DD(74.2,3,1,1,0)="74.2^C"
^DD(74.2,3,1,1,1)="S ^RABTCH(74.2,""C"",$E(X,1,30),DA)="""""
^DD(74.2,3,1,1,2)="K ^RABTCH(74.2,""C"",$E(X,1,30),DA)"
^DD(74.2,3,1,1,"%D",0)="^^1^1^2910815^"
^DD(74.2,3,1,1,"%D",1,0)="Used to look-up batches by the user who created them."
^DD(74.2,3,3)="This field contains the system generated name of the person who created the batch."
^DD(74.2,3,10)="SYSTEM GENERATED"
^DD(74.2,3,21,0)="^^2^2^2940519^^^^"
^DD(74.2,3,21,1,0)="This field is filled in by the system with the user name of the person who"
^DD(74.2,3,21,2,0)="created this batch."
^DD(74.2,3,"DT")="2900302"
^DD(74.2,4,0)="DATE/TIME BATCH WAS PRINTED^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(74.2,4,.1)="DATE AND TIME THIS BATCH WAS LAST PRINTED"
^DD(74.2,4,1,0)="^.1"
^DD(74.2,4,1,1,0)="74.2^E"
^DD(74.2,4,1,1,1)="S ^RABTCH(74.2,""E"",$E(X,1,30),DA)="""""
^DD(74.2,4,1,1,2)="K ^RABTCH(74.2,""E"",$E(X,1,30),DA)"
^DD(74.2,4,1,1,3)="Do not delete."
^DD(74.2,4,1,1,"%D",0)="^^2^2^2940214^"
^DD(74.2,4,1,1,"%D",1,0)="     This cross-reference will help us traverse the file efficiently for"
^DD(74.2,4,1,1,"%D",2,0)="the 'RA BTCHDEL DT' option."
^DD(74.2,4,1,1,"DT")="2940214"
^DD(74.2,4,3)="This is the date and time this report batch was printed."
^DD(74.2,4,10)="SYSTEM GENERATED"
^DD(74.2,4,21,0)="^^5^5^2940519^^^^"
^DD(74.2,4,21,1,0)="This field is filled in by the system with the date and time this report"
^DD(74.2,4,21,2,0)="batch was last printed using the 'Print a Batch' option of the system."
^DD(74.2,4,21,3,0)=" "
^DD(74.2,4,21,4,0)="After a batch has been printed, the transcriptionist may no longer use the"
^DD(74.2,4,21,5,0)="'Report Enter/Edit' option of the system to add reports to this batch. "
^DD(74.2,4,"DT")="2940214"
^DD(74.2,25,0)="REPORTS^74.21PA^^R;0"
^DD(74.2,25,.1)="REPORTS SUB-FIELD"
^DD(74.2,25,21,0)="^^1^1^2940608^^^^"
^DD(74.2,25,21,1,0)="This multiple field contains information about the reports in this batch."
^DD(74.2,"B","BATCH NAME",.01)=""
^DD(74.2,"B","DATE/TIME BATCH CREATED",2)=""
^DD(74.2,"B","DATE/TIME BATCH WAS PRINTED",4)=""
^DD(74.2,"B","NAME OF THIS REPORT BATCH",.01)="1"
^DD(74.2,"B","REPORTS",25)=""
^DD(74.2,"B","REPORTS SUB-FIELD",25)="1"
^DD(74.2,"B","USER WHO CREATED BATCH",3)=""
^DD(74.2,"GL",0,1,.01)=""
^DD(74.2,"GL",0,2,2)=""
^DD(74.2,"GL",0,3,3)=""
^DD(74.2,"GL",0,4,4)=""
^DD(74.2,"GL","R",0,25)=""
^DD(74.2,"IX",.01)=""
^DD(74.2,"IX",2)=""
^DD(74.2,"IX",3)=""
^DD(74.2,"IX",4)=""
^DD(74.2,"RQ",.01)=""
^DD(74.2,"SB",74.21,25)=""
^DD(74.21,0)="REPORTS SUB-FIELD^NL^2^2"
^DD(74.21,0,"NM","REPORTS")=""
^DD(74.21,0,"UP")="74.2"
^DD(74.21,.01,0)="REPORT^MP74'X^RARPT(^0;1^Q"
^DD(74.21,.01,.1)="NAME OF THIS REPORT"
^DD(74.21,.01,1,0)="^.1"
^DD(74.21,.01,1,1,0)="74.2^D"
^DD(74.21,.01,1,1,1)="S ^RABTCH(74.2,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(74.21,.01,1,1,2)="K ^RABTCH(74.2,""D"",$E(X,1,30),DA(1),DA)"
^DD(74.21,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(74.21,.01,1,1,"%D",1,0)="Used to look-up batches by report."
^DD(74.21,.01,3)="Enter the name of a report."
^DD(74.21,.01,10)="TRANSCRIPTIONIST"
^DD(74.21,.01,21,0)="^^2^2^2940608^"
^DD(74.21,.01,21,1,0)="This field points to a report in the RAD/NUC MED REPORTS"
^DD(74.21,.01,21,2,0)="file."
^DD(74.21,.01,"DT")="2850430"
^DD(74.21,2,0)="REPORT PRINTED^S^Y:YES;N:NO;^0;2^Q"
^DD(74.21,2,.1)="WAS REPORT PRINTED FROM BATCH?"
^DD(74.21,2,3)="This field contains a 'No' if this report has not been printed from the batch and a 'Yes' if it has."
^DD(74.21,2,10)="SYSTEM GENERATED"
^DD(74.21,2,21,0)="^^3^3^2940608^^^^"
^DD(74.21,2,21,1,0)="If this report has been printed from batch previously, this field will be"
^DD(74.21,2,21,2,0)="filled in by the system with 'Yes'.  Otherwise, the report has never been"
^DD(74.21,2,21,3,0)="printed from batch and will contain a 'No'."
^DD(74.21,2,"DT")="2850430"
^DD(74.21,"B","NAME OF THIS REPORT",.01)="1"
^DD(74.21,"B","REPORT",.01)=""
^DD(74.21,"B","REPORT PRINTED",2)=""
^DD(74.21,"B","WAS REPORT PRINTED FROM BATCH?",2)="1"
^DD(74.21,"GL",0,1,.01)=""
^DD(74.21,"GL",0,2,2)=""
^DD(74.21,"IX",.01)=""
^DD(74.3,0)="FIELD^^125^5"
^DD(74.3,0,"DDA")="N"
^DD(74.3,0,"DT")="2970711"
^DD(74.3,0,"IX","B",74.3,.01)=""
^DD(74.3,0,"NM","REPORT DISTRIBUTION QUEUE")=""
^DD(74.3,0,"PT",74.4,11)=""
^DD(74.3,0,"VR")="5.0"
^DD(74.3,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(74.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(74.3,.01,1,0)="^.1"
^DD(74.3,.01,1,1,0)="74.3^B"
^DD(74.3,.01,1,1,1)="S ^RABTCH(74.3,""B"",$E(X,1,30),DA)="""""
^DD(74.3,.01,1,1,2)="K ^RABTCH(74.3,""B"",$E(X,1,30),DA)"
^DD(74.3,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(74.3,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(74.3,.01,3)="Enter the name (3-30 characters) of a report distribution queue."
^DD(74.3,.01,10)="RAD/NUC MED COORDINATOR"
^DD(74.3,.01,21,0)="^^2^2^2940519^^^^"
^DD(74.3,.01,21,1,0)="This field contains the name given to the report distribution queue."
^DD(74.3,.01,21,2,0)="Distribution queue names must be between 3 and 30 characters in length."
^DD(74.3,2,0)="CATEGORY OF REPORTS^S^I:INPATIENT;O:OUTPATIENT;N:NON WARD OR CLINIC;A:ALL REPORTS;^0;2^Q"
^DD(74.3,2,1,0)="^.1^^0"
^DD(74.3,2,3)="Select the appropriate category."
^DD(74.3,2,10)="RAD/NUC MED SERVICE"
^DD(74.3,2,21,0)="^^3^3^2940525^^^^"
^DD(74.3,2,21,1,0)="This field contains the categories available for rad/nuc med reports."
^DD(74.3,2,21,2,0)="Choices are : 'I' for inpatient, 'O' for outpatient, 'N' for non ward"
^DD(74.3,2,21,3,0)="or clinic, 'A' for all reports."
^DD(74.3,2,"DT")="2860114"
^DD(74.3,75,0)="TOP OF PAGE MESSAGE^F^^M;1^K:$L(X)>79!($L(X)<5) X"
^DD(74.3,75,3)="Enter a message (5-79 characters) to be displayed with the report distribution queue."
^DD(74.3,75,10)="RAD/NUC MED COORDINATOR"
^DD(74.3,75,21,0)="^^3^3^2940519^^^^"
^DD(74.3,75,21,1,0)="This field contains a site-defined message to be displayed with the"
^DD(74.3,75,21,2,0)="report distribution queue. The message must be 5-79 characters in"
^DD(74.3,75,21,3,0)="length."
^DD(74.3,75,"DT")="2851125"
^DD(74.3,100,0)="ACTIVITY LOG^74.33DA^^L;0"
^DD(74.3,100,21,0)="^^2^2^2940519^"
^DD(74.3,100,21,1,0)="This is a multiple field that tracks activity associated with the"
^DD(74.3,100,21,2,0)="distribution queue."
^DD(74.3,125,0)="INACTIVATION DATE^DX^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X D:$D(X) RDQ^RAUTL5(D0)"
^DD(74.3,125,3)="This is the date the distribution queue was inactivated."
^DD(74.3,125,10)="RAD/NUC MED COORDINATOR"
^DD(74.3,125,21,0)="^^3^3^2940519^^^"
^DD(74.3,125,21,1,0)="This field contains the date that this distribution queue was inactivated"
^DD(74.3,125,21,2,0)="by the rad/nuc med coordinator.  Until the day following the inactivation "
^DD(74.3,125,21,3,0)="date, the distribution queue may be selected."
^DD(74.3,125,"DT")="2940105"
^DD(74.3,"B","ACTIVITY LOG",100)=""
^DD(74.3,"B","CATEGORY OF REPORTS",2)=""
^DD(74.3,"B","INACTIVATION DATE",125)=""
^DD(74.3,"B","NAME",.01)=""
^DD(74.3,"B","TOP OF PAGE MESSAGE",75)=""
^DD(74.3,"GL",0,1,.01)=""
^DD(74.3,"GL",0,2,2)=""
^DD(74.3,"GL","I",1,125)=""
^DD(74.3,"GL","L",0,100)=""
^DD(74.3,"GL","M",1,75)=""
^DD(74.3,"IX",.01)=""
^DD(74.3,"RQ",.01)=""
^DD(74.3,"SB",74.33,100)=""
^DD(74.33,0)="ACTIVITY LOG SUB-FIELD^NL^5^5"
^DD(74.33,0,"NM","ACTIVITY LOG")=""
^DD(74.33,0,"UP")="74.3"
^DD(74.33,.01,0)="LOG DATE^DX^^0;1^S %DT=""ESTRX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=9999999.9999-X"
^DD(74.33,.01,3)="This field contains the system generated date that the activity occurred."
^DD(74.33,.01,10)="SYSTEM GENERATED"
^DD(74.33,.01,21,0)="^^1^1^2940519^^^^"
^DD(74.33,.01,21,1,0)="This field contains the date the activity occurred."
^DD(74.33,.01,"DT")="2940124"
^DD(74.33,2,0)="TYPE OF ACTION^S^P:PRINT REPORTS;R:RE-PRINT REPORTS;^0;2^Q"
^DD(74.33,2,3)="This field contains a system generated type of action."
^DD(74.33,2,10)="SYSTEM GENERATED"
^DD(74.33,2,21,0)="^^2^2^2940519^^^^"
^DD(74.33,2,21,1,0)="This field contains the type of action which occurred for a particular"
^DD(74.33,2,21,2,0)="distribution queue. The actions are 'Printed' or 'Reprinted'."
^DD(74.33,2,"DT")="2851125"
^DD(74.33,3,0)="COMPUTER USER^P200'^VA(200,^0;3^Q"
^DD(74.33,3,3)="This field contains a system generated name of the user who took the action."
^DD(74.33,3,10)="SYSTEM GENERATED"
^DD(74.33,3,21,0)="^^1^1^2940519^^^^"
^DD(74.33,3,21,1,0)="This field is a pointer to the NEW PERSON file (#200)."
^DD(74.33,3,"DT")="2900302"
^DD(74.33,4,0)="COMMENT^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(74.33,4,3)="Enter comments (1-20 characters) for this distribution queue."
^DD(74.33,4,10)="RAD/NUC MED SERVICE"
^DD(74.33,4,11,0)="^.2LAP"
^DD(74.33,4,21,0)="^^4^4^2940519^^^^"
^DD(74.33,4,21,1,0)="This is a free text field to allow the user to provide comments"
^DD(74.33,4,21,2,0)="associated with the distribution queue activity. Answers must be"
^DD(74.33,4,21,3,0)="1-20 characters in length."
^DD(74.33,4,21,4,0)=" "
^DD(74.33,4,"DT")="2860116"
^DD(74.33,5,0)="NO. OF REPORTS PRINTED^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(74.33,5,3)="This field contains the number of reports printed for this queue."
^DD(74.33,5,10)="SYSTEM GENERATED"
^DD(74.33,5,21,0)="^^2^2^2940519^^^"
^DD(74.33,5,21,1,0)="This field contains the number of reports printed for a particular "
^DD(74.33,5,21,2,0)="distribution queue. "
^DD(74.33,5,"DT")="2860116"
^DD(74.33,"B","COMMENT",4)=""
^DD(74.33,"B","COMPUTER USER",3)=""
^DD(74.33,"B","LOG DATE",.01)=""
^DD(74.33,"B","NO. OF REPORTS PRINTED",5)=""
^DD(74.33,"B","TYPE OF ACTION",2)=""
^DD(74.33,"GL",0,1,.01)=""
^DD(74.33,"GL",0,2,2)=""
^DD(74.33,"GL",0,3,3)=""
^DD(74.33,"GL",0,4,4)=""
^DD(74.33,"GL",0,5,5)=""
^DD(74.4,0)="FIELD^^12^8"
^DD(74.4,0,"DDA")="N"
^DD(74.4,0,"DT")="2960201"
^DD(74.4,0,"IX","AD",74.4,4)=""
^DD(74.4,0,"IX","B",74.4,.01)=""
^DD(74.4,0,"IX","C",74.4,11)=""
^DD(74.4,0,"NM","REPORT DISTRIBUTION")=""
^DD(74.4,0,"VR")="5.0"
^DD(74.4,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(74.4,.01,0)="REPORT^R*P74'X^RARPT(^0;1^S DIC(""S"")=""I $P(^(0),U,5)=""""V"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(74.4,.01,1,0)="^.1"
^DD(74.4,.01,1,1,0)="74.4^B"
^DD(74.4,.01,1,1,1)="S ^RABTCH(74.4,""B"",$E(X,1,30),DA)="""""
^DD(74.4,.01,1,1,2)="K ^RABTCH(74.4,""B"",$E(X,1,30),DA)"
^DD(74.4,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(74.4,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(74.4,.01,3)="Select the name of a report."
^DD(74.4,.01,10)="RAD/NUC MED TRANSCRIPTIONIST"
^DD(74.4,.01,12)="Verified reports only."
^DD(74.4,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""V"""""""
^DD(74.4,.01,21,0)="^^1^1^2940525^"
^DD(74.4,.01,21,1,0)="This is a pointer to 'RAD/NUC MED REPORTS' file (#74)."
^DD(74.4,.01,"DT")="2860529"
^DD(74.4,2,0)="DATE PLACED IN RPT DIST FILE^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(74.4,2,3)="This is a system generated date for when the report was entered into the Report Distribution Queue."
^DD(74.4,2,10)="SYSTEM GENERATED"
^DD(74.4,2,21,0)="^^2^2^2940519^^^^"
^DD(74.4,2,21,1,0)="This field contains the date the report was entered into the "
^DD(74.4,2,21,2,0)="Report Distribution Queue."
^DD(74.4,2,"DT")="2860521"
^DD(74.4,3,0)="COMPUTER USER^P200'^VA(200,^0;3^Q"
^DD(74.4,3,3)="This is the name of the computer user."
^DD(74.4,3,10)="SYSTEM GENERATED"
^DD(74.4,3,21,0)="^^1^1^2940519^^^^"
^DD(74.4,3,21,1,0)="Pointer to the NEW PERSON file (#200)."
^DD(74.4,3,"DT")="2900302"
^DD(74.4,4,0)="PRINT DATE/TIME^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(74.4,4,1,0)="^.1"
^DD(74.4,4,1,1,0)="74.4^AD"
^DD(74.4,4,1,1,1)="S ^RABTCH(74.4,""AD"",$E(X,1,30),DA)="""""
^DD(74.4,4,1,1,2)="K ^RABTCH(74.4,""AD"",$E(X,1,30),DA)"
^DD(74.4,4,1,1,"%D",0)="^^1^1^2940613^^"
^DD(74.4,4,1,1,"%D",1,0)="Used to generate a list of reports by date printed."
^DD(74.4,4,3)="This is the date and time the report was printed."
^DD(74.4,4,10)="SYSTEM GENERATED"
^DD(74.4,4,21,0)="^^1^1^2940519^^^^"
^DD(74.4,4,21,1,0)="This field contains the date and time the report was initially printed."
^DD(74.4,4,"DT")="2860521"
^DD(74.4,6,0)="WARD^P42'^DIC(42,^0;6^Q"
^DD(74.4,6,3)="This is the distribution queue ward."
^DD(74.4,6,10)="SYSTEM GENERATED"
^DD(74.4,6,21,0)="^^1^1^2940519^^^^"
^DD(74.4,6,21,1,0)="Pointer to the Ward Location File(#42)"
^DD(74.4,6,"DT")="2930115"
^DD(74.4,8,0)="PRINCIPAL CLINIC^P44'^SC(^0;8^Q"
^DD(74.4,8,3)="This is the distribution queue clinic."
^DD(74.4,8,10)="SYSTEM GENERATED"
^DD(74.4,8,21,0)="^^1^1^2940519^^^"
^DD(74.4,8,21,1,0)="Pointer to the Hospital Location File(#44)."
^DD(74.4,8,"DT")="2930115"
^DD(74.4,11,0)="DISTRIBUTION QUEUE^P74.3'^RABTCH(74.3,^0;11^Q"
^DD(74.4,11,1,0)="^.1^^-1"
^DD(74.4,11,1,1,0)="74.4^C"
^DD(74.4,11,1,1,1)="S ^RABTCH(74.4,""C"",$E(X,1,30),DA)="""""
^DD(74.4,11,1,1,2)="K ^RABTCH(74.4,""C"",$E(X,1,30),DA)"
^DD(74.4,11,1,1,"%D",0)="^^1^1^2910815^^"
^DD(74.4,11,1,1,"%D",1,0)="Used to look-up batches by distribution queue."
^DD(74.4,11,3)="This is the distribution queue."
^DD(74.4,11,10)="SYSTEM GENERATED"
^DD(74.4,11,21,0)="^^1^1^2940519^^^^"
^DD(74.4,11,21,1,0)="Pointer to the Report Distribution Queue File(#74.3)."
^DD(74.4,11,"DT")="2860528"
^DD(74.4,12,0)="REQUESTING PHYSICIAN^P200'^VA(200,^0;12^Q"
^DD(74.4,12,3)="Enter the name of the person who had requested the exam associated with this report."
^DD(74.4,12,21,0)="^^3^3^2960201^"
^DD(74.4,12,21,1,0)="This field points to the NEW PERSON file (#200) to indicate the name of"
^DD(74.4,12,21,2,0)="the person who requested this Rad/Nuc Med exam.  This person is not always"
^DD(74.4,12,21,3,0)="a physician.  (i.e. A nurse might request the exam.)"
^DD(74.4,12,"DT")="2960201"
^DD(74.4,"B","COMPUTER USER",3)=""
^DD(74.4,"B","DATE PLACED IN RPT DIST FILE",2)=""
^DD(74.4,"B","DISTRIBUTION QUEUE",11)=""
^DD(74.4,"B","PRINCIPAL CLINIC",8)=""
^DD(74.4,"B","PRINT DATE/TIME",4)=""
^DD(74.4,"B","REPORT",.01)=""
^DD(74.4,"B","REQUESTING PHYSICIAN",12)=""
^DD(74.4,"B","WARD",6)=""
^DD(74.4,"GL",0,1,.01)=""
^DD(74.4,"GL",0,2,2)=""
^DD(74.4,"GL",0,3,3)=""
^DD(74.4,"GL",0,4,4)=""
^DD(74.4,"GL",0,6,6)=""
^DD(74.4,"GL",0,8,8)=""
^DD(74.4,"GL",0,11,11)=""
^DD(74.4,"GL",0,12,12)=""
^DD(74.4,"IX",.01)=""
^DD(74.4,"IX",4)=""
^DD(74.4,"IX",11)=""
^DD(74.4,"RQ",.01)=""
^DD(74.62,0)="ERRONEOUS REPORT SUB-FIELD^^.01^1"
^DD(74.62,0,"DT")="2960301"
^DD(74.62,0,"NM","ERRONEOUS REPORT")=""
^DD(74.62,0,"UP")="74.06"
^DD(74.62,.01,0)="ERRONEOUS REPORT^W^^0;1^Q"
^DD(74.62,.01,3)="Enter the old version of the report before it was unverified."
^DD(74.62,.01,21,0)="^^10^10^2960301^^"
^DD(74.62,.01,21,1,0)="This field contains the version of a radiology/nuclear medicine report"
^DD(74.62,.01,21,2,0)="prior to amendments.  It is saved at the time the report is unverified."
^DD(74.62,.01,21,3,0)="Data retained includes any of the following that existed on the record at"
^DD(74.62,.01,21,4,0)="the time it was unverified: Procedure/modifiers, Clinical History,"
^DD(74.62,.01,21,5,0)="Impression, Report Text, Primary and Secondary Diagnostic Codes, Verifier"
^DD(74.62,.01,21,6,0)="name/date/esig, Pre-verifier name/date/esig, Primary and Secondary Staff"
^DD(74.62,.01,21,7,0)="and Residents."
^DD(74.62,.01,21,8,0)=" "
^DD(74.62,.01,21,9,0)="This data is stored in a subfile that supports multiple occurrences of"
^DD(74.62,.01,21,10,0)="amendments for one report."
^DD(74.62,.01,"DT")="2960301"
^DD(74.62,"B","ERRONEOUS REPORT",.01)=""
^DD(74.62,"GL",0,1,.01)=""
^DD(75.1,0)="FIELD^^400^42"
^DD(75.1,0,"DDA")="N"
^DD(75.1,0,"DT")="3000525"
^DD(75.1,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RAMIS(71,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(71,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(75.1,0,"ID",16)="W ""   "",$E($P(^(0),U,16),4,5)_""-""_$E($P(^(0),U,16),6,7)_""-""_$E($P(^(0),U,16),2,3)"
^DD(75.1,0,"IX","AC",75.1,21)=""
^DD(75.1,0,"IX","ACHN",75.1,5)=""
^DD(75.1,0,"IX","AD",75.1,23)=""
^DD(75.1,0,"IX","AO",75.1,18)=""
^DD(75.1,0,"IX","AP",75.1,2)=""
^DD(75.1,0,"IX","AS",75.1,5)=""
^DD(75.1,0,"IX","B",75.1,.01)=""
^DD(75.1,0,"NM","RAD/NUC MED ORDERS")=""
^DD(75.1,0,"PT",70.03,11)=""
^DD(75.1,0,"PT",375,15.01)=""
^DD(75.1,0,"VR")="5.0"
^DD(75.1,0,"VRPK")="RA"
^DD(75.1,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(75.1,.01,.1)="NAME OF THIS RAD/NUC MED PATIENT"
^DD(75.1,.01,1,0)="^.1"
^DD(75.1,.01,1,1,0)="75.1^B"
^DD(75.1,.01,1,1,1)="S ^RAO(75.1,""B"",$E(X,1,30),DA)="""""
^DD(75.1,.01,1,1,2)="K ^RAO(75.1,""B"",$E(X,1,30),DA)"
^DD(75.1,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(75.1,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(75.1,.01,1,2,0)="^^TRIGGER^75.1^15"
^DD(75.1,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAO(75.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(75.1,.01,1,2,1.4)"
^DD(75.1,.01,1,2,1.4)="S DIH=$S($D(^RAO(75.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,15)=DIV,DIH=75.1,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(75.1,.01,1,2,2)="Q"
^DD(75.1,.01,1,2,3)="Do not delete."
^DD(75.1,.01,1,2,"%D",0)="^^1^1^2951122^^^"
^DD(75.1,.01,1,2,"%D",1,0)="Tracks the user who entered the request."
^DD(75.1,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(75.1,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(75.1,.01,1,2,"DT")="2951122"
^DD(75.1,.01,1,2,"FIELD")="USER ENTERING REQ"
^DD(75.1,.01,1,3,0)="^^TRIGGER^75.1^16"
^DD(75.1,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RAO(75.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(75.1,.01,1,3,1.1) X ^DD(75.1,.01,1,3,1.4)"
^DD(75.1,.01,1,3,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(75.1,.01,1,3,1.4)="S DIH=$S($D(^RAO(75.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=75.1,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(75.1,.01,1,3,2)="Q"
^DD(75.1,.01,1,3,3)="Do not delete."
^DD(75.1,.01,1,3,"%D",0)="^^1^1^2951122^^"
^DD(75.1,.01,1,3,"%D",1,0)="    Tracks when the request was entered."
^DD(75.1,.01,1,3,"CREATE VALUE")="NOW"
^DD(75.1,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(75.1,.01,1,3,"DT")="2951122"
^DD(75.1,.01,1,3,"FIELD")="REQUEST ENTERED DATE/TIME"
^DD(75.1,.01,3)="Select a patient name."
^DD(75.1,.01,4)=""
^DD(75.1,.01,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(75.1,.01,21,0)="^^11^11^2940525^"
^DD(75.1,.01,21,1,0)="This field gives the name of this rad/nuc med patient. The system obtains"
^DD(75.1,.01,21,2,0)="this information from the main 'PATIENT' file (#2).  It is not stored"
^DD(75.1,.01,21,3,0)="in the 'RAD/NUC MED PATIENT' file (#70)."
^DD(75.1,.01,21,4,0)=" "
^DD(75.1,.01,21,5,0)="         ALLOWABLE WAYS TO ENTER PATIENT NAME:"
^DD(75.1,.01,21,6,0)="         ------------------------------------"
^DD(75.1,.01,21,7,0)="           -Patient's last name (to reduce typing errors,"
^DD(75.1,.01,21,8,0)="            enter only first few letters of last name)"
^DD(75.1,.01,21,9,0)="           -Last 4 digits of patient's Social Security Number"
^DD(75.1,.01,21,10,0)="           -First letter of patient's last name and last 4"
^DD(75.1,.01,21,11,0)="            digits of patient's Social Security Number."
^DD(75.1,.01,"DT")="2951122"
^DD(75.1,1.1,0)="REASON FOR STUDY^RF^^.1;1^K:$L(X)>64!($L(X)<3) X"
^DD(75.1,1.1,3)="The reason for study must be 3-64 characters in length."
^DD(75.1,1.1,21,0)="^^3^3^3060531^"
^DD(75.1,1.1,21,1,0)="The reason for the study is often a short patient history summarizing the "
^DD(75.1,1.1,21,2,0)="condition of the patient and giving background information as to why the "
^DD(75.1,1.1,21,3,0)="study has been initiated."
^DD(75.1,1.1,23,0)="^^4^4^3060531^"
^DD(75.1,1.1,23,1,0)="The 'REASON FOR STUDY' field was added as a result of NSR: 20050606"
^DD(75.1,1.1,23,2,0)="'Standardize Vista RIS messaging interface to current IHE specs')."
^DD(75.1,1.1,23,3,0)=" "
^DD(75.1,1.1,23,4,0)="This field was exported in patch RA*5.0*75."
^DD(75.1,1.1,"DT")="3050823"
^DD(75.1,2,0)="PROCEDURE^*P71'X^RAMIS(71,^0;2^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) ORDPRC^RAUTL2"
^DD(75.1,2,.1)="IMAGING PROCEDURE ASSOCIATED WITH THIS REQUEST"
^DD(75.1,2,1,0)="^.1"
^DD(75.1,2,1,1,0)="75.1^AP^MUMPS"
^DD(75.1,2,1,1,1)="S:$P(^RAO(75.1,DA,0),""^"",21) ^RAO(75.1,""AP"",+$P(^RAO(75.1,DA,0),U),X,9999999.9999-$P(^(0),U,21),DA)="""""
^DD(75.1,2,1,1,2)="K:$P(^RAO(75.1,DA,0),""^"",21) ^RAO(75.1,""AP"",+$P(^RAO(75.1,DA,0),U),X,9999999.9999-$P(^(0),U,21),DA)"
^DD(75.1,2,1,1,"%D",0)="^^1^1^2910815^"
^DD(75.1,2,1,1,"%D",1,0)="Used to screen duplicate requests at time of entry."
^DD(75.1,2,3)="Enter the appropriate Imaging procedure."
^DD(75.1,2,10)="MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE"
^DD(75.1,2,12)="Only Active Procedures Allowed."
^DD(75.1,2,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"""
^DD(75.1,2,21,0)="^^10^10^2940608^"
^DD(75.1,2,21,1,0)="This field points to the 'RAD/NUC MED PROCEDURES' file (#71) to indicate"
^DD(75.1,2,21,2,0)="the Imaging procedure associated with this request."
^DD(75.1,2,21,3,0)=" "
^DD(75.1,2,21,4,0)=" "
^DD(75.1,2,21,5,0)="   ALLOWABLE WAYS TO ENTER THE RADIOLOGY/NUCLEAR MEDICINE PROCEDURE FOR"
^DD(75.1,2,21,6,0)="THIS REQUEST:"
^DD(75.1,2,21,7,0)="   -----------------------------------------------------------------"
^DD(75.1,2,21,8,0)="          -Name of procedure"
^DD(75.1,2,21,9,0)="          -CPT Code"
^DD(75.1,2,21,10,0)="          -Site specific synonym"
^DD(75.1,2,"DT")="2940608"
^DD(75.1,3,0)="TYPE OF IMAGING^P79.2'^RA(79.2,^0;3^Q"
^DD(75.1,3,.1)="THE TYPE OF IMAGING FOR THIS REQUESTED EXAM"
^DD(75.1,3,3)="This field contains the type of imaging used for this procedure."
^DD(75.1,3,10)="SYSTEM GENERATED"
^DD(75.1,3,21,0)="^^6^6^2941213^"
^DD(75.1,3,21,1,0)="This field points to the 'IMAGING TYPE' file (#79.2) to indicate the type"
^DD(75.1,3,21,2,0)="of imaging used for this rad/nuc med request. It is filled in by the"
^DD(75.1,3,21,3,0)="system with the appropriate type of imaging (i.e. GENERAL RADIOLOGY,"
^DD(75.1,3,21,4,0)="NUCLEAR MEDICINE, ULTRASOUND, CT SCAN, MAGNETIC RESONANCE IMAGING,"
^DD(75.1,3,21,5,0)="VASCULAR LAB, etc.).  For example, when a General Radiology procedure is"
^DD(75.1,3,21,6,0)="chosen, this field is filled in with 'GENERAL RADIOLOGY'."
^DD(75.1,3,"DT")="2880414"
^DD(75.1,4,0)="CATEGORY OF EXAM^SX^I:INPATIENT;O:OUTPATIENT;C:CONTRACT;S:SHARING;E:EMPLOYEE;R:RESEARCH;^0;4^Q"
^DD(75.1,4,.1)="CATEGORY OF THIS RAD/NUC MED REQUEST"
^DD(75.1,4,3)="Enter the appropriate exam category for this request."
^DD(75.1,4,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,4,21,0)="^^5^5^2940519^^^^"
^DD(75.1,4,21,1,0)="This field contains the exam category associated with this request."
^DD(75.1,4,21,2,0)="It is used to compile various workload statistics and various management"
^DD(75.1,4,21,3,0)="reports (i.e. AMIS and RCS14-4). Available exam categories are: 'I'"
^DD(75.1,4,21,4,0)="for INPATIENT, 'O' for OUTPATIENT, 'C' for CONTRACT, 'E' for EMPLOYEE,"
^DD(75.1,4,21,5,0)="and 'R' for RESEARCH."
^DD(75.1,4,"DT")="2940519"
^DD(75.1,5,0)="REQUEST STATUS^SX^1:DISCONTINUED;2:COMPLETE;3:HOLD;5:PENDING;6:ACTIVE;8:SCHEDULED;11:UNRELEASED;^0;5^S:X=1!(X=3) RAXBUL=X D:X=1!(X=3) EN^RABUL(RAXBUL) S:$G(RAXBUL)=1!($G(RAXBUL)=3) X=RAXBUL K RAXBUL"
^DD(75.1,5,.1)="STATUS OF THIS REQUEST"
^DD(75.1,5,1,0)="^.1"
^DD(75.1,5,1,1,0)="75.1^AS^MUMPS"
^DD(75.1,5,1,1,1)="S ^RAO(75.1,""AS"",+$P(^RAO(75.1,DA,0),U),X,DA)="""""
^DD(75.1,5,1,1,2)="K ^RAO(75.1,""AS"",+$P(^RAO(75.1,DA,0),U),X,DA)"
^DD(75.1,5,1,1,"%D",0)="^^1^1^2940608^"
^DD(75.1,5,1,1,"%D",1,0)="List Imaging requests by request status."
^DD(75.1,5,1,2,0)="75.1^ACHN^MUMPS"
^DD(75.1,5,1,2,1)="D:$$ORVR^RAORDU()=2.5&((X=1)!(X=3)) CH^RADD2(DA,X)"
^DD(75.1,5,1,2,2)="Q"
^DD(75.1,5,1,2,3)="Do not delete."
^DD(75.1,5,1,2,"%D",0)="^^4^4^2960503^"
^DD(75.1,5,1,2,"%D",1,0)="This cross reference will fire off the 'Radiology Request Cancel/Hold'"
^DD(75.1,5,1,2,"%D",2,0)="notification defined in the OE/RR NOTIFICATIONS file when the environment"
^DD(75.1,5,1,2,"%D",3,0)="is running OE/RR 2.5 and the status of the order is changed to either"
^DD(75.1,5,1,2,"%D",4,0)="'discontinued' or 'hold'."
^DD(75.1,5,1,2,"DT")="2960503"
^DD(75.1,5,3)="This status is system generated."
^DD(75.1,5,10)="SYSTEM GENERATED"
^DD(75.1,5,21,0)="^^3^3^2940608^^^^"
^DD(75.1,5,21,1,0)="This field is a set type field. The statuses in this field"
^DD(75.1,5,21,2,0)="should correspond in name and number to those in the OE/RR"
^DD(75.1,5,21,3,0)="'ORDER STATUS' file (#100.01)."
^DD(75.1,5,"DT")="2960503"
^DD(75.1,6,0)="REQUEST URGENCY^S^1:STAT;2:URGENT;9:ROUTINE;^0;6^Q"
^DD(75.1,6,3)="Enter the appropriate urgency for the request."
^DD(75.1,6,10)="MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE"
^DD(75.1,6,20,0)="^.3LA^^0"
^DD(75.1,6,21,0)="^^3^3^2990813^^^^"
^DD(75.1,6,21,1,0)="This field value defaults to 'ROUTINE', when entering a new request for an"
^DD(75.1,6,21,2,0)="imaging exam."
^DD(75.1,6,21,3,0)="Available Urgencies are: ROUTINE, URGENT and STAT."
^DD(75.1,6,"DT")="2990813"
^DD(75.1,7,0)="ORDER^P100'^OR(100,^0;7^Q"
^DD(75.1,7,3)="Enter the appropriate order."
^DD(75.1,7,10)="RAD/OE INTERFACE"
^DD(75.1,7,21,0)="^^4^4^2970721^^^^"
^DD(75.1,7,21,1,0)="This field points to the Order Entry/Results Reporting (OE/RR)"
^DD(75.1,7,21,2,0)="'ORDER' File (#100). This field will only contain data if the"
^DD(75.1,7,21,3,0)="OE/RR Package is running and the Radiology/Nuclear Medicine package "
^DD(75.1,7,21,4,0)="is available through OE/RR."
^DD(75.1,7,"DT")="2890210"
^DD(75.1,8,0)="APPROVING RAD/NUC MED PHYS^*P200'X^VA(200,^0;8^S DIC(""S"")=""I $S('$D(^(""""RA"""")):1,'$P(^(""""RA""""),U,3):1,DT'>$P(^(""""RA""""),U,3):1,1:0),$D(^VA(200,""""ARC"""",""""S"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(75.1,8,3)="Enter the name of the approving imaging service physician."
^DD(75.1,8,10)="RAD/NUC MED SERVICE"
^DD(75.1,8,11,0)="^.2LAP"
^DD(75.1,8,12)="Personnel must be classified as Interpreting Staff Physician."
^DD(75.1,8,12.1)="S DIC(""S"")=""I $S('$D(^(""""RA"""")):1,'$P(^(""""RA""""),U,3):1,DT'>$P(^(""""RA""""),U,3):1,1:0),$D(^VA(200,""""ARC"""",""""S"""",+Y))"""
^DD(75.1,8,21,0)="^^3^3^2991104^^"
^DD(75.1,8,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the name of"
^DD(75.1,8,21,2,0)="the radiology or nuclear medicine physician who approved this order."
^DD(75.1,8,21,3,0)="Procedures which require an approving physician are site specific."
^DD(75.1,8,"DT")="2991104"
^DD(75.1,9,0)="CONTRACT/SHARING SOURCE^*P34'^DIC(34,^0;9^S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(75.1,9,.1)="REFERRING CONTRACT/SHARING AGREEMENT"
^DD(75.1,9,3)="Enter the contract or sharing agreement that referred this patient."
^DD(75.1,9,10)="MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE"
^DD(75.1,9,12)="Only active agreements are selectable."
^DD(75.1,9,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""):1,1:0)"""
^DD(75.1,9,21,0)="^^4^4^2940608^"
^DD(75.1,9,21,1,0)="This field is used for exams with a 'category of exam' of 'contract' or"
^DD(75.1,9,21,2,0)="'sharing'. It points to the 'CONTRACT/SHARING AGREEMENTS' file (#34) to"
^DD(75.1,9,21,3,0)="indicate the name of the contract or sharing agreement that referred"
^DD(75.1,9,21,4,0)="this patient to the imaging service for this exam."
^DD(75.1,9,"DT")="2910808"
^DD(75.1,9.5,0)="RESEARCH SOURCE^F^^R;1^K:$L(X)>40!($L(X)<3) X"
^DD(75.1,9.5,.1)="REFERRING RESEARCH SOURCE"
^DD(75.1,9.5,3)="Enter the research source (3-40 characters) that referred this patient."
^DD(75.1,9.5,10)="MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE"
^DD(75.1,9.5,21,0)="^^3^3^2940608^"
^DD(75.1,9.5,21,1,0)="This field is used for exams with a 'category of exam' of 'research'."
^DD(75.1,9.5,21,2,0)="This field contains the name (3-40 characters) of the research source"
^DD(75.1,9.5,21,3,0)="that referred this patient to the imaging service for this exam."
^DD(75.1,9.5,"DT")="2880329"
^DD(75.1,10,0)="REASON^P75.2'^RA(75.2,^0;10^Q"
^DD(75.1,10,3)="Select the reason for the 'HOLD' or 'CANCELLED' status."
^DD(75.1,10,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,10,21,0)="^^2^2^2941104^^"
^DD(75.1,10,21,1,0)="This field points to the 'RAD/NUC MED REASON' file (#75.2) to indicate"
^DD(75.1,10,21,2,0)="the reason a request is placed in the 'HOLD' or 'CANCELLED' status."
^DD(75.1,10,"DT")="2880624"
^DD(75.1,11,0)="ORIGINAL REQUEST CHANGED^S^y:YES;n:NO;^0;11^Q"
^DD(75.1,11,3)="Enter whether or not the original request was changed by the Radiology or Nuclear Medicine Service."
^DD(75.1,11,10)="RAD/NUC MED SERVICE"
^DD(75.1,11,11,0)="^.2LAP"
^DD(75.1,11,21,0)="^^8^8^2950314^"
^DD(75.1,11,21,1,0)="This field contains a value to indicate if the information contained in"
^DD(75.1,11,21,2,0)="the original request was changed by Rad/Nuc Med Service. Available values"
^DD(75.1,11,21,3,0)="are: 'Y' for 'Yes' and 'N' for 'NO""."
^DD(75.1,11,21,4,0)=" "
^DD(75.1,11,21,5,0)="This field is populated when the request moves to a 'complete' status.  If"
^DD(75.1,11,21,6,0)="the procedure on the request is a 'parent' procedure, this field will"
^DD(75.1,11,21,7,0)="always be set to 'yes' since it is not the parent procedure that is"
^DD(75.1,11,21,8,0)="actually performed."
^DD(75.1,11,"DT")="2880711"
^DD(75.1,12,0)="PRE-OP SCHEDULED DATE/TIME^D^^0;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(75.1,12,.1)="PRE-OP SCHEDULED DATE (TIME optional)"
^DD(75.1,12,3)="If a pre-op has been scheduled, enter the date and time."
^DD(75.1,12,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,12,21,0)="^^2^2^2940519^^^^"
^DD(75.1,12,21,1,0)="This field contains the date/time if a patient"
^DD(75.1,12,21,2,0)="has a pre-op scheduled."
^DD(75.1,12,"DT")="2910702"
^DD(75.1,13,0)="PREGNANT^RS^y:YES;n:NO;u:UNKNOWN;^0;13^Q"
^DD(75.1,13,3)="Enter the pregnancy status of the patient."
^DD(75.1,13,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,13,21,0)="^.001^4^4^3000525^^^^"
^DD(75.1,13,21,1,0)="This field contains a value to indicate if the patient is pregnant."
^DD(75.1,13,21,2,0)="Available values are 'Y' for 'Yes' and 'N' for 'No'. If 'Yes', a "
^DD(75.1,13,21,3,0)="warning message is displayed to the receptionist when this patient is"
^DD(75.1,13,21,4,0)="registered for the procedure requested."
^DD(75.1,13,"DT")="2971117"
^DD(75.1,14,0)="REQUESTING PHYSICIAN^R*P200'X^VA(200,^0;14^S DIC(""S"")=""I $$PROV^RABWORD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(75.1,14,.1)="NAME OF THE REQUESTING PHYSICIAN"
^DD(75.1,14,3)="Enter the name of the person requesting this exam."
^DD(75.1,14,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,14,12)="Provider must be active."
^DD(75.1,14,12.1)="S DIC(""S"")=""I $$PROV^RABWORD"""
^DD(75.1,14,21,0)="^.001^3^3^3030827^^^^"
^DD(75.1,14,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the name of"
^DD(75.1,14,21,2,0)="the person who requested this rad/nuc med exam. This person is not always a"
^DD(75.1,14,21,3,0)="physician.  (i.e. A nurse might request the exam.)"
^DD(75.1,14,"AUDIT")="n"
^DD(75.1,14,"DT")="3040301"
^DD(75.1,15,0)="USER ENTERING REQUEST^P200'^VA(200,^0;15^Q"
^DD(75.1,15,3)="This field contains the name of the person entering the request."
^DD(75.1,15,5,1,0)="75.1^.01^2"
^DD(75.1,15,9)="^"
^DD(75.1,15,10)="SYSTEM GENERATED"
^DD(75.1,15,21,0)="^^3^3^2940519^^^^"
^DD(75.1,15,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate"
^DD(75.1,15,21,2,0)="the person entering the request into the rad/nuc med system."
^DD(75.1,15,21,3,0)="It is filled in by the system from information the user entered at sign-on."
^DD(75.1,15,"DT")="2900302"
^DD(75.1,16,0)="REQUEST ENTERED DATE/TIME^D^^0;16^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(75.1,16,1,0)="^.1^^0"
^DD(75.1,16,3)="This is the date and time the request was entered."
^DD(75.1,16,5,1,0)="75.1^.01^3"
^DD(75.1,16,10)="MEDICAL ADMINISTRATION OR IMAGING SERVICE"
^DD(75.1,16,21,0)="^^2^2^2940608^"
^DD(75.1,16,21,1,0)="This field contains the date and time the request was entered into the"
^DD(75.1,16,21,2,0)="system."
^DD(75.1,16,"DT")="2880926"
^DD(75.1,17,0)="PAST VISIT DATE/TIME^D^^0;17^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(75.1,17,3)="This is the last date and time the patient visited the Radiology/Nuclear Medicine Service."
^DD(75.1,17,10)="SYSTEM DETERMINED"
^DD(75.1,17,21,0)="^^2^2^2940519^^^"
^DD(75.1,17,21,1,0)="This field contains the date and time of the patient's last recorded"
^DD(75.1,17,21,2,0)="visit to the Radiology/Nuclear Medicine Service."
^DD(75.1,17,"DT")="2880824"
^DD(75.1,18,0)="LAST ACTIVITY DATE/TIME^D^^0;18^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(75.1,18,1,0)="^.1"
^DD(75.1,18,1,1,0)="75.1^AO"
^DD(75.1,18,1,1,1)="S ^RAO(75.1,""AO"",$E(X,1,30),DA)="""""
^DD(75.1,18,1,1,2)="K ^RAO(75.1,""AO"",$E(X,1,30),DA)"
^DD(75.1,18,1,1,"%D",0)="^^1^1^2910815^"
^DD(75.1,18,1,1,"%D",1,0)="Used to generate a list of requests by last activity date/time."
^DD(75.1,18,3)="This is the date and time of the last action on this request."
^DD(75.1,18,10)="SYSTEM GENERATED"
^DD(75.1,18,21,0)="^^2^2^2940519^^^^"
^DD(75.1,18,21,1,0)="This field contains the date and time the last action was taken on this"
^DD(75.1,18,21,2,0)="request."
^DD(75.1,18,"DT")="2880831"
^DD(75.1,19,0)="MODE OF TRANSPORT^S^a:AMBULATORY;p:PORTABLE;s:STRETCHER;w:WHEEL CHAIR;^0;19^Q"
^DD(75.1,19,3)="Enter the mode of transport for this patient."
^DD(75.1,19,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,19,21,0)="^^3^3^2940519^^^^"
^DD(75.1,19,21,1,0)="This field contains the mode of transport which the patient will"
^DD(75.1,19,21,2,0)="require when the exam is performed. Available categories are :"
^DD(75.1,19,21,3,0)="AMBULATORY, PORTABLE, STRETCHER and WHEEL CHAIR."
^DD(75.1,19,"DT")="2890213"
^DD(75.1,20,0)="IMAGING LOCATION^*P79.1'^RA(79.1,^0;20^S DIC(""S"")=""I $$SUBMIT^RAUTL13(DA,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(75.1,20,1,0)="^.1^^0"
^DD(75.1,20,3)="This is the imaging location of the exam."
^DD(75.1,20,10)="SYSTEM GENERATED"
^DD(75.1,20,12)="Imaging Location's imaging type must match procedure's imaging type."
^DD(75.1,20,12.1)="S DIC(""S"")=""I $$SUBMIT^RAUTL13(DA,+Y)"""
^DD(75.1,20,21,0)="^^3^3^2941213^"
^DD(75.1,20,21,1,0)="This field points to the 'IMAGING LOCATIONS' file (#79.1) to indicate"
^DD(75.1,20,21,2,0)="the name of the imaging location within the hospital division where the"
^DD(75.1,20,21,3,0)="rad/nuc med exam is to be performed."
^DD(75.1,20,"DT")="2940809"
^DD(75.1,21,0)="DATE DESIRED (Not guaranteed)^D^^0;21^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(75.1,21,.1)="REQUESTED DATE (TIME optional)"
^DD(75.1,21,1,0)="^.1"
^DD(75.1,21,1,1,0)="75.1^AC^MUMPS"
^DD(75.1,21,1,1,1)="S ^RAO(75.1,""AP"",+$P(^RAO(75.1,DA,0),U),+$P(^(0),U,2),9999999.9999-$E(X,1,30),DA)="""""
^DD(75.1,21,1,1,2)="K ^RAO(75.1,""AP"",+$P(^RAO(75.1,DA,0),U),+$P(^(0),U,2),9999999.9999-$E(X,1,30),DA)"
^DD(75.1,21,1,1,"%D",0)="^^1^1^2911113^^^"
^DD(75.1,21,1,1,"%D",1,0)="This cross-reference is used for the verification process in OE/RR."
^DD(75.1,21,1,1,"DT")="2911113"
^DD(75.1,21,3)="Enter the date on which you would like the exam done."
^DD(75.1,21,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,21,21,0)="^^2^2^2960709^^"
^DD(75.1,21,21,1,0)="This field contains the date for which the rad/nuc med exam is requested."
^DD(75.1,21,21,2,0)="This field should not be interpreted as an appointment date."
^DD(75.1,21,"DT")="2940415"
^DD(75.1,22,0)="REQUESTING LOCATION^P44'^SC(^0;22^Q"
^DD(75.1,22,3)="Enter the name of the hospital location requesting the exam."
^DD(75.1,22,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED SERVICE"
^DD(75.1,22,21,0)="^.001^2^2^3080227^^^^"
^DD(75.1,22,21,1,0)="This field points to the 'HOSPITAL LOCATION' file (#44) to indicate the"
^DD(75.1,22,21,2,0)="name of the hospital location that is requesting the exam."
^DD(75.1,22,23,0)="^.001^1^1^3080227^^^^"
^DD(75.1,22,23,1,0)="This field has been modified with the release of patch: RA*5.0*86."
^DD(75.1,22,"DT")="3080227"
^DD(75.1,23,0)="SCHEDULED DATE (TIME optional)^DX^^0;23^S %DT=""EFT"" D ^%DT S X=Y K:Y<1 X"
^DD(75.1,23,1,0)="^.1"
^DD(75.1,23,1,1,0)="75.1^AD^MUMPS"
^DD(75.1,23,1,1,1)="S ^RAO(75.1,""AD"",X,+$P(^RAO(75.1,DA,0),U),DA)="""""
^DD(75.1,23,1,1,2)="K ^RAO(75.1,""AD"",X,+$P(^RAO(75.1,DA,0),U),DA)"
^DD(75.1,23,1,1,"%D",0)="^^1^1^2910815^"
^DD(75.1,23,1,1,"%D",1,0)="Used to print log of scheduled requests."
^DD(75.1,23,3)="Enter the scheduled date for this exam."
^DD(75.1,23,10)="RAD/NUC MED SERVICE"
^DD(75.1,23,11,0)="^.2LAP"
^DD(75.1,23,21,0)="^^1^1^2940519^^^"
^DD(75.1,23,21,1,0)="This field contains the scheduled date and time of the requested exam."
^DD(75.1,23,"DT")="2931122"
^DD(75.1,24,0)="ISOLATION PROCEDURES^S^y:YES;n:NO;^0;24^Q"
^DD(75.1,24,.1)="IS PATIENT ON ISOLATION PROCEDURES?"
^DD(75.1,24,3)="Enter 'Y'es if the patient is on isolation."
^DD(75.1,24,10)="MEDICAL ADMINISTRATION SERVICE OR IMAGING SERVICE"
^DD(75.1,24,21,0)="^^5^5^2940608^"
^DD(75.1,24,21,1,0)="This field contains 'YES' if the patient is on isolation procedures"
^DD(75.1,24,21,2,0)="at the time the request is submitted, or 'NO' if the patient is not."
^DD(75.1,24,21,3,0)="If the patient is on isolation procedures the following message will"
^DD(75.1,24,21,4,0)="be displayed on the request printed in the imaging service location:"
^DD(75.1,24,21,5,0)=" ** Universal Isolation Precautions **"
^DD(75.1,24,"DT")="2940118"
^DD(75.1,25,0)="HOLD DESCRIPTION^75.125^^1;0"
^DD(75.1,25,21,0)="^^2^2^2940519^"
^DD(75.1,25,21,1,0)="This is a word processing field for entering the reason"
^DD(75.1,25,21,2,0)="an order is on hold."
^DD(75.1,26,0)="NATURE OF (NEW) ORDER ACTIVITY^S^w:WRITTEN;v:VERBAL;p:TELEPHONED;s:SERVICE CORRECTION;i:POLICY;e:PHYSICIAN ENTERED;^0;26^Q"
^DD(75.1,26,3)="Select the code that most closely describes why you are entering this order."
^DD(75.1,26,4)="I $L($T(NA1^ORX1)) D NA1^ORX1(""I """"WVPSIE""""[$P(^(0),""""^"""",2)"")"
^DD(75.1,26,21,0)="^^7^7^2970110^^"
^DD(75.1,26,21,1,0)="This is the Nature of Order Activity for newly entered orders through the"
^DD(75.1,26,21,2,0)="Radiology/Nuclear Medicine 'back door' order entry option.  This"
^DD(75.1,26,21,3,0)="information is needed to clarify which actions should be taken as a result"
^DD(75.1,26,21,4,0)="of entering this order.  Depending on the facility configuration of the"
^DD(75.1,26,21,5,0)="Nature of Order Activity in the OE/RR software, the code entered here may"
^DD(75.1,26,21,6,0)="or may not trigger alerts for electronic signatures and chart copy"
^DD(75.1,26,21,7,0)="printing."
^DD(75.1,26,"DT")="2970111"
^DD(75.1,27,0)="CANCEL DESCRIPTION^F^^0;27^K:$L(X)>40!($L(X)<3) X"
^DD(75.1,27,3)="Enter the reason for the CANCELED status"
^DD(75.1,27,21,0)="^^7^7^3000412^"
^DD(75.1,27,21,1,0)="This field indicates the reason a request is"
^DD(75.1,27,21,2,0)="placed in the 'CANCELED' status via CPRS"
^DD(75.1,27,21,3,0)="(front-door) only. The description matches an"
^DD(75.1,27,21,4,0)="entry on file #100.03. If not canceled using"
^DD(75.1,27,21,5,0)="CPRS, then this field will be empty and the"
^DD(75.1,27,21,6,0)="REASON field (field 10) will be populated"
^DD(75.1,27,21,7,0)="instead."
^DD(75.1,27,"DT")="3000412"
^DD(75.1,75,0)="REQUEST STATUS TIMES^75.12DA^^T;0"
^DD(75.1,75,21,0)="^^3^3^2960209^^^"
^DD(75.1,75,21,1,0)="This field is a multiple that contains dates and times the status of the"
^DD(75.1,75,21,2,0)="request is changed. The status changes will only be recorded if the"
^DD(75.1,75,21,3,0)="Division Parameter 'Track Request Status Changes' is set to 'YES'."
^DD(75.1,90,0)="PFSS ACCOUNT REFERENCE^RP375'I^IBBAA(375,^0;28^Q"
^DD(75.1,90,3)="This value is filled in by the system.  Do NOT change the value of this field."
^DD(75.1,90,21,0)="^.001^4^4^3050728^^^"
^DD(75.1,90,21,1,0)="This field points to the PFSS ACCOUNT file (#375).  The value is returned "
^DD(75.1,90,21,2,0)="from the GETACCT^IBBAPI, which Radiology silently invokes whenever an "
^DD(75.1,90,21,3,0)="order is placed, whether from the Front Door (CPRS) or from the Back Door "
^DD(75.1,90,21,4,0)="(Vista Radiology)."
^DD(75.1,90,23,0)="^^2^2^3050728^"
^DD(75.1,90,23,1,0)="Calls referencing PFSS Account Reference (field 90 file #75.1)) "
^DD(75.1,90,23,2,0)="uses DBIA #4741"
^DD(75.1,90,"DT")="3050622"
^DD(75.1,91,0)="PRIMARY ORDERING ICD DIAGNOSIS^RP80'^ICD9(^BA;1^Q"
^DD(75.1,91,3)="Enter the ICD Diagnosis primarily responsible for this order."
^DD(75.1,91,21,0)="^.001^1^1^3030922^^^"
^DD(75.1,91,21,1,0)="This field contains the Primary ICD Diagnosis responsible for this order."
^DD(75.1,91,"DT")="3030918"
^DD(75.1,92,0)="PRIMARY DX RELATED TO SC^S^0:NO;1:YES;^BA;2^Q"
^DD(75.1,92,3)="If this order is for treating a Service Connected related problem, enter ""YES"" here."
^DD(75.1,92,21,0)="^.001^2^2^3030922^^^^"
^DD(75.1,92,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.1,92,21,2,0)="a VA patient based on a Service Connected related problem."
^DD(75.1,92,"DT")="3030922"
^DD(75.1,93,0)="PRIMARY DX RELATED TO AO^S^0:NO;1:YES;^BA;3^Q"
^DD(75.1,93,3)="If this order is for treating an Agent Orange related problem, enter ""YES"" here."
^DD(75.1,93,21,0)="^.001^2^2^3040218^^^"
^DD(75.1,93,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.1,93,21,2,0)="a VA patient based on an Agent Orange related problem."
^DD(75.1,93,"DT")="3030922"
^DD(75.1,94,0)="PRIMARY DX RELATED TO IR^S^0:NO;1:YES;^BA;4^Q"
^DD(75.1,94,3)="If this order is for treating an Ionizing Radiation related problem, enter ""YES"" here."
^DD(75.1,94,21,0)="^.001^2^2^3030923^^"
^DD(75.1,94,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.1,94,21,2,0)="a VA patient based on an Ionizing Radiation related problem."
^DD(75.1,94,"DT")="3030922"
^DD(75.1,95,0)="PRIMARY DX RELATED TO EC^S^0:NO;1:YES;^BA;5^Q"
^DD(75.1,95,3)="If this order is for treating an Environmental Contaminant related problem, enter ""YES"" here."
^DD(75.1,95,21,0)="^.001^2^2^3030923^^"
^DD(75.1,95,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.1,95,21,2,0)="a VA patient based on an Environmental Contaminant related problem."
^DD(75.1,95,"DT")="3030922"
^DD(75.1,96,0)="PRIMARY DX RELATED TO MST^S^0:NO;1:YES;^BA;6^Q"
^DD(75.1,96,3)="If this order is for treating a Military Sexual Trauma related problem, enter ""YES"" here. "
^DD(75.1,96,21,0)="^^2^2^3030922^"
^DD(75.1,96,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.1,96,21,2,0)="a VA patient based on a Military Sexual Trauma related problem."
^DD(75.1,96,"DT")="3030922"
^DD(75.1,97,0)="PRIMARY DX RELATED TO HNC^S^0:NO;1:YES;^BA;7^Q"
^DD(75.1,97,3)="If this order is for treating a Head and Neck cancer (HNC) related problem, enter ""YES"" here."
^DD(75.1,97,21,0)="^^2^2^3040526^"
^DD(75.1,97,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.1,97,21,2,0)="a VA patient based on a Head and Neck cancer (HNC) related problem."
^DD(75.1,97,"DT")="3040526"
^DD(75.1,98,0)="SECONDARY ORDERING ICD DIAG.^75.13PA^^BAS;0"
^DD(75.1,99,0)="PRIMARY DX RELATED TO CV^S^0:NO;1:YES;^BA;8^Q"
^DD(75.1,99,3)="If this order is for treating a Combat Veteran related problem, enter ""YES"" here."
^DD(75.1,99,21,0)="^.001^2^2^3040310^^"
^DD(75.1,99,21,1,0)="This field will be used to indicate if this order was for treating a VA "
^DD(75.1,99,21,2,0)="patient based on an Combat Veteran related problem."
^DD(75.1,99,"DT")="3040218"
^DD(75.1,125,0)="PROCEDURE MODIFIERS^75.1125PA^^M;0"
^DD(75.1,125,21,0)="^^2^2^2990806^^^^"
^DD(75.1,125,21,1,0)="This multiple field is used to store the rad/nuc med procedure modifiers"
^DD(75.1,125,21,2,0)="that are associated with this exam."
^DD(75.1,125,"DT")="2990806"
^DD(75.1,400,0)="CLINICAL HISTORY FOR EXAM^75.11^^H;0"
^DD(75.1,400,10)="MEDICAL ADMINISTRATION SERVICE OR RAD/NUC MED RECEPTIONIST"
^DD(75.1,400,21,0)="^^8^8^2950112^"
^DD(75.1,400,21,1,0)="This field may contain a written clinical history pertinent to the"
^DD(75.1,400,21,2,0)="procedure requested, as well as instructions to the interpreting"
^DD(75.1,400,21,3,0)="physician. For example, the instructions might be for the interpreting"
^DD(75.1,400,21,4,0)="physician to read the exam films to rule out the possibility of a patient"
^DD(75.1,400,21,5,0)="having a certain disease."
^DD(75.1,400,21,6,0)=" "
^DD(75.1,400,21,7,0)="This field is used as the 'Clinical History' that appears on the"
^DD(75.1,400,21,8,0)="printed report for each exam associated with this visit."
^DD(75.1,"B","APPROVING RAD/NUC MED PHYS",8)=""
^DD(75.1,"B","CANCEL DESCRIPTION",27)=""
^DD(75.1,"B","CATEGORY OF EXAM",4)=""
^DD(75.1,"B","CLINICAL HISTORY FOR EXAM",400)=""
^DD(75.1,"B","CONTRACT/SHARING SOURCE",9)=""
^DD(75.1,"B","DATE DESIRED (Not guaranteed)",21)=""
^DD(75.1,"B","HOLD DESCRIPTION",25)=""
^DD(75.1,"B","IMAGING LOCATION",20)=""
^DD(75.1,"B","ISOLATION PROCEDURES",24)=""
^DD(75.1,"B","LAST ACTIVITY DATE/TIME",18)=""
^DD(75.1,"B","MODE OF TRANSPORT",19)=""
^DD(75.1,"B","NAME",.01)=""
^DD(75.1,"B","NATURE OF (NEW) ORDER ACTIVITY",26)=""
^DD(75.1,"B","ORDER",7)=""
^DD(75.1,"B","ORIGINAL REQUEST CHANGED",11)=""
^DD(75.1,"B","PAST VISIT DATE/TIME",17)=""
^DD(75.1,"B","PFSS ACCOUNT REFERENCE",90)=""
^DD(75.1,"B","PRE-OP SCHEDULED DATE/TIME",12)=""
^DD(75.1,"B","PREGNANT",13)=""
^DD(75.1,"B","PRIMARY DX RELATED TO AO",93)=""
^DD(75.1,"B","PRIMARY DX RELATED TO CV",99)=""
^DD(75.1,"B","PRIMARY DX RELATED TO EC",95)=""
^DD(75.1,"B","PRIMARY DX RELATED TO HNC",97)=""
^DD(75.1,"B","PRIMARY DX RELATED TO IR",94)=""
^DD(75.1,"B","PRIMARY DX RELATED TO MST",96)=""
^DD(75.1,"B","PRIMARY DX RELATED TO SC",92)=""
^DD(75.1,"B","PRIMARY ORDERING ICD DIAGNOSIS",91)=""
^DD(75.1,"B","PROCEDURE",2)=""
^DD(75.1,"B","PROCEDURE MODIFIERS",125)=""
^DD(75.1,"B","REASON",10)=""
^DD(75.1,"B","REASON FOR STUDY",1.1)=""
^DD(75.1,"B","REFERRING RESEARCH SOURCE",9.5)="1"
^DD(75.1,"B","REQUEST ENTERED DATE/TIME",16)=""
^DD(75.1,"B","REQUEST STATUS",5)=""
^DD(75.1,"B","REQUEST STATUS TIMES",75)=""
^DD(75.1,"B","REQUEST URGENCY",6)=""
^DD(75.1,"B","REQUESTED DATE (TIME optional)",21)="1"
^DD(75.1,"B","REQUESTING LOCATION",22)=""
^DD(75.1,"B","REQUESTING PHYSICIAN",14)=""
^DD(75.1,"B","RESEARCH SOURCE",9.5)=""
^DD(75.1,"B","SCHEDULED DATE (TIME optional)",23)=""
^DD(75.1,"B","SECONDARY ORDERING ICD DIAG.",98)=""
^DD(75.1,"B","STATUS OF THIS REQUEST",5)="1"
^DD(75.1,"B","TYPE OF IMAGING",3)=""
^DD(75.1,"B","USER ENTERING REQUEST",15)=""
^DD(75.1,"GL",0,1,.01)=""
^DD(75.1,"GL",0,2,2)=""
^DD(75.1,"GL",0,3,3)=""
^DD(75.1,"GL",0,4,4)=""
^DD(75.1,"GL",0,5,5)=""
^DD(75.1,"GL",0,6,6)=""
^DD(75.1,"GL",0,7,7)=""
^DD(75.1,"GL",0,8,8)=""
^DD(75.1,"GL",0,9,9)=""
^DD(75.1,"GL",0,10,10)=""
^DD(75.1,"GL",0,11,11)=""
^DD(75.1,"GL",0,12,12)=""
^DD(75.1,"GL",0,13,13)=""
^DD(75.1,"GL",0,14,14)=""
^DD(75.1,"GL",0,15,15)=""
^DD(75.1,"GL",0,16,16)=""
^DD(75.1,"GL",0,17,17)=""
^DD(75.1,"GL",0,18,18)=""
^DD(75.1,"GL",0,19,19)=""
^DD(75.1,"GL",0,20,20)=""
^DD(75.1,"GL",0,21,21)=""
^DD(75.1,"GL",0,22,22)=""
^DD(75.1,"GL",0,23,23)=""
^DD(75.1,"GL",0,24,24)=""
^DD(75.1,"GL",0,26,26)=""
^DD(75.1,"GL",0,27,27)=""
^DD(75.1,"GL",0,28,90)=""
^DD(75.1,"GL",.1,1,1.1)=""
^DD(75.1,"GL",1,0,25)=""
^DD(75.1,"GL","BA",1,91)=""
^DD(75.1,"GL","BA",2,92)=""
^DD(75.1,"GL","BA",3,93)=""
^DD(75.1,"GL","BA",4,94)=""
^DD(75.1,"GL","BA",5,95)=""
^DD(75.1,"GL","BA",6,96)=""
^DD(75.1,"GL","BA",7,97)=""
^DD(75.1,"GL","BA",8,99)=""
^DD(75.1,"GL","BAS",0,98)=""
^DD(75.1,"GL","H",0,400)=""
^DD(75.1,"GL","M",0,125)=""
^DD(75.1,"GL","R",1,9.5)=""
^DD(75.1,"GL","T",0,75)=""
^DD(75.1,"IX",.01)=""
^DD(75.1,"IX",2)=""
^DD(75.1,"IX",5)=""
^DD(75.1,"IX",18)=""
^DD(75.1,"IX",21)=""
^DD(75.1,"IX",23)=""
^DD(75.1,"RQ",.01)=""
^DD(75.1,"RQ",1.1)=""
^DD(75.1,"RQ",13)=""
^DD(75.1,"RQ",14)=""
^DD(75.1,"RQ",90)=""
^DD(75.1,"RQ",91)=""
^DD(75.1,"SB",75.11,400)=""
^DD(75.1,"SB",75.1125,125)=""
^DD(75.1,"SB",75.12,75)=""
^DD(75.1,"SB",75.125,25)=""
^DD(75.1,"SB",75.13,98)=""
^DD(75.11,0)="CLINICAL HISTORY FOR EXAM SUB-FIELD^^.01^1"
^DD(75.11,0,"NM","CLINICAL HISTORY FOR EXAM")=""
^DD(75.11,0,"UP")="75.1"
^DD(75.11,.01,0)="CLINICAL HISTORY FOR EXAM^W^^0;1^Q"
^DD(75.11,.01,.1)="CLINICAL HISTORY PERTINENT TO PROCEDURE"
^DD(75.11,.01,3)="Enter the patient's clinical history pertinent to the procedure and/or any specific instructions for the interpreting physician."
^DD(75.11,.01,21,0)="^^6^6^2950112^"
^DD(75.11,.01,21,1,0)="This field may contain a written clinical history pertinent to the"
^DD(75.11,.01,21,2,0)="procedure ordered as well as instructions to the interpreting physician."
^DD(75.11,.01,21,3,0)="For example, the instructions might be for the interpreting physician to"
^DD(75.11,.01,21,4,0)="read the exam films to rule out the possibilty of the patient having a"
^DD(75.11,.01,21,5,0)="certain disease. This field is used as the 'Clinical History' that appears"
^DD(75.11,.01,21,6,0)="on the printed report for each exam associated with this visit."
^DD(75.11,.01,"DT")="2950112"
^DD(75.11,"B","CLINICAL HISTORY FOR EXAM",.01)=""
^DD(75.11,"GL",0,1,.01)=""
^DD(75.1125,0)="PROCEDURE MODIFIERS SUB-FIELD^^.01^1"
^DD(75.1125,0,"DT")="2961230"
^DD(75.1125,0,"IX","B",75.1125,.01)=""
^DD(75.1125,0,"NM","PROCEDURE MODIFIERS")=""
^DD(75.1125,0,"UP")="75.1"
^DD(75.1125,.01,0)="PROCEDURE MODIFIERS^M*P71.2'X^RAMIS(71.2,^0;1^S DIC(""S"")=""N RASERIES I +$D(^RAMIS(71.2,""""AB"""",(+$$ITYPE^RASITE($$GET^RAPRI(D0))),+Y)),$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""""""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(75.1125,.01,.1)="MODIFIERS OF THIS REQUEST SUB-FIELD"
^DD(75.1125,.01,1,0)="^.1"
^DD(75.1125,.01,1,1,0)="75.1125^B"
^DD(75.1125,.01,1,1,1)="S ^RAO(75.1,DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(75.1125,.01,1,1,2)="K ^RAO(75.1,DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(75.1125,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(75.1125,.01,1,1,"%D",1,0)="     Regular filewide 'B' cross reference assigned by FileMan."
^DD(75.1125,.01,3)="Enter any appropriate procedure modifier(s)."
^DD(75.1125,.01,10)="RAD/NUC MED COORDINATOR"
^DD(75.1125,.01,12)="Select procedure modifiers which have the same imaging type as the procedure.  In addition, if the procedure is 'SERIES', it must not have AMIS CREDIT INDICATOR"
^DD(75.1125,.01,12.1)="S DIC(""S"")=""N RASERIES I +$D(^RAMIS(71.2,""""AB"""",(+$$ITYPE^RASITE($$GET^RAPRI(D0))),+Y)),$S('$G(RASERIES):1,$P(^RAMIS(71.2,+Y,0),U,2)="""""""":1,1:0)"""
^DD(75.1125,.01,21,0)="^^2^2^2990806^^^^"
^DD(75.1125,.01,21,1,0)="This multiple field is used to provide rad/nuc med procedure modifiers"
^DD(75.1125,.01,21,2,0)="that are associated with this order."
^DD(75.1125,.01,"DT")="2990806"
^DD(75.1125,"B","PROCEDURE MODIFIERS",.01)=""
^DD(75.1125,"GL",0,1,.01)=""
^DD(75.1125,"IX",.01)=""
^DD(75.12,0)="REQUEST STATUS TIMES SUB-FIELD^^4^4"
^DD(75.12,0,"DT")="2910502"
^DD(75.12,0,"NM","REQUEST STATUS TIMES")=""
^DD(75.12,0,"UP")="75.1"
^DD(75.12,.01,0)="STATUS CHANGE DATE/TIME^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(75.12,.01,.1)="THE DATE AND TIME OF THE STATUS CHANGE"
^DD(75.12,.01,3)="Enter the date that the request status was changed."
^DD(75.12,.01,10)="SYSTEM GENERATED OR RAD/NUC MED USER"
^DD(75.12,.01,21,0)="^^2^2^2960209^^^^"
^DD(75.12,.01,21,1,0)="This field contains the date and time that the request status was"
^DD(75.12,.01,21,2,0)="changed."
^DD(75.12,.01,"DT")="2880624"
^DD(75.12,2,0)="NEW STATUS^S^1:DISCONTINUED;2:COMPLETE;3:HOLD;5:PENDING;6:ACTIVE;8:SCHEDULED;11:UNRELEASED;^0;2^Q"
^DD(75.12,2,3)="This is a system generated status for the order."
^DD(75.12,2,10)="SYSTEM GENERATED"
^DD(75.12,2,21,0)="^^3^3^2940524^^"
^DD(75.12,2,21,1,0)="This field contains the new status an order is placed into. The available "
^DD(75.12,2,21,2,0)="statuses are: 'Discontinued', 'Complete', 'Hold', 'Pending', 'Active',"
^DD(75.12,2,21,3,0)="and 'Scheduled'."
^DD(75.12,2,"DT")="2910502"
^DD(75.12,3,0)="COMPUTER USER^P200'^VA(200,^0;3^Q"
^DD(75.12,3,3)="This is the name of the user when the status was changed."
^DD(75.12,3,10)="SYSTEM GENERATED"
^DD(75.12,3,21,0)="^^2^2^2941221^"
^DD(75.12,3,21,1,0)="This field points to the 'NEW PERSON' file (#200) to indicate the person"
^DD(75.12,3,21,2,0)="doing the processing that caused the request status to change."
^DD(75.12,3,"DT")="2900302"
^DD(75.12,4,0)="REASON^P75.2'^RA(75.2,^0;4^Q"
^DD(75.12,4,3)="Enter the reason the request was placed on hold or cancelled."
^DD(75.12,4,10)="MEDICAL ADMINISTRATIVE SERVICE OR RAD/NUC MED SERVICE"
^DD(75.12,4,21,0)="^^2^2^2941221^"
^DD(75.12,4,21,1,0)="This field is a pointer to the 'Radiology Reason' file (#75.2) to indicate"
^DD(75.12,4,21,2,0)="the reason a request is placed in the 'Hold' or 'Cancelled' status."
^DD(75.12,4,"DT")="2880624"
^DD(75.12,"B","COMPUTER USER",3)=""
^DD(75.12,"B","NEW STATUS",2)=""
^DD(75.12,"B","REASON",4)=""
^DD(75.12,"B","STATUS CHANGE DATE/TIME",.01)=""
^DD(75.12,"GL",0,1,.01)=""
^DD(75.12,"GL",0,2,2)=""
^DD(75.12,"GL",0,3,3)=""
^DD(75.12,"GL",0,4,4)=""
^DD(75.125,0)="HOLD DESCRIPTION SUB-FIELD^^.01^1"
^DD(75.125,0,"NM","HOLD DESCRIPTION")=""
^DD(75.125,0,"UP")="75.1"
^DD(75.125,.01,0)="HOLD DESCRIPTION^WL^^0;1^Q"
^DD(75.125,.01,3)="Explain the reason this order is on hold."
^DD(75.125,.01,21,0)="^^1^1^2940519^"
^DD(75.125,.01,21,1,0)="This is the reason for placing this order on hold."
^DD(75.125,.01,"DT")="2900622"
^DD(75.125,"B","HOLD DESCRIPTION",.01)=""
^DD(75.125,"GL",0,1,.01)=""
^DD(75.13,0)="SECONDARY ORDERING ICD DIAG. SUB-FIELD^^8^8"
^DD(75.13,0,"DT")="3040218"
^DD(75.13,0,"IX","B",75.13,.01)=""
^DD(75.13,0,"NM","SECONDARY ORDERING ICD DIAG.")=""
^DD(75.13,0,"UP")="75.1"
^DD(75.13,.01,0)="SECONDARY ORDERING ICD DIAG.^MP80'^ICD9(^0;1^Q"
^DD(75.13,.01,1,0)="^.1"
^DD(75.13,.01,1,1,0)="75.13^B"
^DD(75.13,.01,1,1,1)="S ^RAO(75.1,DA(1),""BAS"",""B"",$E(X,1,30),DA)="""""
^DD(75.13,.01,1,1,2)="K ^RAO(75.1,DA(1),""BAS"",""B"",$E(X,1,30),DA)"
^DD(75.13,.01,3)="Enter an ICD diagnosis secindarily responsible for this order."
^DD(75.13,.01,21,0)="^.001^1^1^3030922^^"
^DD(75.13,.01,21,1,0)="This field contains a Secondary Diagnosis responsible for this order."
^DD(75.13,.01,"DT")="3030918"
^DD(75.13,2,0)="SECONDARY DX RELATED TO SC^S^0:NO;1:YES;^0;2^Q"
^DD(75.13,2,3)="If this order is for treating a Service Connected related problem, enter ""YES"" here."
^DD(75.13,2,21,0)="^^2^2^3030922^"
^DD(75.13,2,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.13,2,21,2,0)="a VA patient based on a Service Connected related problem."
^DD(75.13,2,"DT")="3030922"
^DD(75.13,3,0)="SECONDARY DX RELATED TO AO^S^0:NO;1:YES;^0;3^Q"
^DD(75.13,3,3)="If this order is for treating an Agent Orange related problem, enter ""YES"" here."
^DD(75.13,3,21,0)="^.001^2^2^3040218^^"
^DD(75.13,3,21,1,0)="This field will be used to indicate if this order was for treating "
^DD(75.13,3,21,2,0)="a VA patient based on an Agent Orange related problem."
^DD(75.13,3,"DT")="3030922"
^DD(75.13,4,0)="SECONDARY DX RELATED TO IR^S^0:NO;1:YES;^0;4^Q"
^DD(75.13,4,3)="If this order is for treating an Ionizing Radiation related problem,enter ""YES"" here."
^DD(75.13,4,21,0)="^^2^2^3030922^"
^DD(75.13,4,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.13,4,21,2,0)="a VA patient based on an Ionizing Radiation related problem."
^DD(75.13,4,"DT")="3030922"
^DD(75.13,5,0)="SECONDARY DX RELATED TO EC^S^0:NO;1:YES;^0;5^Q"
^DD(75.13,5,3)="If this order is for treating an Environmental Contaminant related problem,enter ""YES"" here."
^DD(75.13,5,21,0)="^^2^2^3030922^"
^DD(75.13,5,21,1,0)="This field will be used to indicate if this order was for treating "
^DD(75.13,5,21,2,0)="a VA patient based on an Environmental Contaminant related problem."
^DD(75.13,5,"DT")="3030922"
^DD(75.13,6,0)="SECONDARY DX RELATED TO MST^S^0:NO;1:YES;^0;6^Q"
^DD(75.13,6,3)="If this order is for treating a Military Sexual Trauma related problem, enter ""YES"" here."
^DD(75.13,6,21,0)="^^2^2^3030922^"
^DD(75.13,6,21,1,0)="This field will be used to indicate if this order was for treating"
^DD(75.13,6,21,2,0)="a VA patient based on a Military Sexual Trauma related problem."
^DD(75.13,6,"DT")="3030922"
^DD(75.13,7,0)="SECONDARY DX RELATED TO HNC^S^0:NO;1:YES;^0;7^Q"
^DD(75.13,7,3)="If this order is for treating a Head and Neck cancer (HNC) related problem, enter ""YES"" here."
^DD(75.13,7,21,0)="^^2^2^3040526^"
^DD(75.13,7,21,1,0)="This field will be used to indicate if this order was for treating "
^DD(75.13,7,21,2,0)="a VA patient based on a Head and Neck cancer (HNC) related problem."
^DD(75.13,7,"DT")="3040526"
^DD(75.13,8,0)="SECONDARY DX RELATED TO CV^S^0:NO;1:YES;^0;8^Q"
^DD(75.13,8,3)="If this order is for treating a Combat Veteran related problem, enter ""YES"" here."
^DD(75.13,8,21,0)="^^2^2^3040218^"
^DD(75.13,8,21,1,0)="This field will be used to indicate if this order was for treating a VA "
^DD(75.13,8,21,2,0)="patient based on a Combat Veteran related problem."
^DD(75.13,8,"DT")="3040218"
^DD(75.13,"B","SECONDARY DX RELATED TO AO",3)=""
^DD(75.13,"B","SECONDARY DX RELATED TO CV",8)=""
^DD(75.13,"B","SECONDARY DX RELATED TO EC",5)=""
^DD(75.13,"B","SECONDARY DX RELATED TO HNC",7)=""
^DD(75.13,"B","SECONDARY DX RELATED TO IR",4)=""
^DD(75.13,"B","SECONDARY DX RELATED TO MST",6)=""
^DD(75.13,"B","SECONDARY DX RELATED TO SC",2)=""
^DD(75.13,"B","SECONDARY ORDERING ICD DIAG.",.01)=""
^DD(75.13,"GL",0,1,.01)=""
^DD(75.13,"GL",0,2,2)=""
^DD(75.13,"GL",0,3,3)=""
^DD(75.13,"GL",0,4,4)=""
^DD(75.13,"GL",0,5,5)=""
^DD(75.13,"GL",0,6,6)=""
^DD(75.13,"GL",0,7,7)=""
^DD(75.13,"GL",0,8,8)=""
^DD(75.13,"IX",.01)=""
^DD(75.2,0)="FIELD^^4^5"
^DD(75.2,0,"DDA")="N"
^DD(75.2,0,"DT")="2970111"
^DD(75.2,0,"ID","WRITE")="W ?60,""Synonym: "",$P(^(0),U,3)"
^DD(75.2,0,"IX","B",75.2,.01)=""
^DD(75.2,0,"IX","S",75.2,3)=""
^DD(75.2,0,"NM","RAD/NUC MED REASON")=""
^DD(75.2,0,"PT",70.03,3.5)=""
^DD(75.2,0,"PT",75.1,10)=""
^DD(75.2,0,"PT",75.12,4)=""
^DD(75.2,0,"VR")="5.0"
^DD(75.2,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(75.2,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(75.2,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(75.2,.001,10)="SYSTEM GENERATED"
^DD(75.2,.001,21,0)="^^2^2^2940525^"
^DD(75.2,.001,21,1,0)="This field contains the number associated with the reasons listed in"
^DD(75.2,.001,21,2,0)="the 'RAD/NUC MED REASON' file (#75.2)."
^DD(75.2,.001,"DEL",1,0)="I 1"
^DD(75.2,.001,"DT")="2880829"
^DD(75.2,.01,0)="REASON^RF^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(75.2,.01,1,0)="^.1"
^DD(75.2,.01,1,1,0)="75.2^B"
^DD(75.2,.01,1,1,1)="S ^RA(75.2,""B"",$E(X,1,30),DA)="""""
^DD(75.2,.01,1,1,2)="K ^RA(75.2,""B"",$E(X,1,30),DA)"
^DD(75.2,.01,1,1,"%D",0)="^^1^1^2941228^^"
^DD(75.2,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(75.2,.01,3)="ANSWER MUST BE 3-70 CHARACTERS IN LENGTH"
^DD(75.2,.01,10)="SYSTEM GENERATED"
^DD(75.2,.01,21,0)="^^2^2^2940524^^^^"
^DD(75.2,.01,21,1,0)="This field contains the allowable reasons a user may choose from when"
^DD(75.2,.01,21,2,0)="placing an order in the category of 'HOLD' or 'CANCELLED'."
^DD(75.2,.01,"DEL",1,0)="I 1"
^DD(75.2,2,0)="TYPE OF REASON^S^1:CANCEL REQUEST;3:HOLD REQUEST;9:GENERAL REQUEST;^0;2^Q"
^DD(75.2,2,3)="Enter the type of reason, '1' for cancel, '3' for hold, or '9' for general."
^DD(75.2,2,10)="SYSTEM GENERATED"
^DD(75.2,2,21,0)="^^4^4^2970409^"
^DD(75.2,2,21,1,0)="This field contains internally stored code. '1' will stand for 'Cancel"
^DD(75.2,2,21,2,0)="Request'. '3' will stand for 'Hold Request'. '9' will stand for 'General"
^DD(75.2,2,21,3,0)="Request'.  A type code must be assigned to a reason in order to make it"
^DD(75.2,2,21,4,0)="selectable by users."
^DD(75.2,2,"DT")="2880628"
^DD(75.2,3,0)="SYNONYM^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<2) X"
^DD(75.2,3,1,0)="^.1"
^DD(75.2,3,1,1,0)="75.2^S"
^DD(75.2,3,1,1,1)="S ^RA(75.2,""S"",$E(X,1,30),DA)="""""
^DD(75.2,3,1,1,2)="K ^RA(75.2,""S"",$E(X,1,30),DA)"
^DD(75.2,3,1,1,"%D",0)="^^1^1^2910815^"
^DD(75.2,3,1,1,"%D",1,0)="Allows look-up of reason by synonym."
^DD(75.2,3,3)="Enter a synonym (2-15 characters) for this reason."
^DD(75.2,3,10)="SYSTEM GENERATED"
^DD(75.2,3,21,0)="^^4^4^2940524^^^"
^DD(75.2,3,21,1,0)="This field may contain a synonym (2-15 characters) for the reason."
^DD(75.2,3,21,2,0)="It is recommended that frequently used reasons be given at least one"
^DD(75.2,3,21,3,0)="synonym to allow the reason to be called up rapidly, resulting in  "
^DD(75.2,3,21,4,0)="processing time to be saved."
^DD(75.2,3,"DT")="2880829"
^DD(75.2,4,0)="NATURE OF ORDER ACTIVITY^RS^w:WRITTEN;v:VERBAL;p:TELEPHONED;s:SERVICE CORRECTION;x:REJECTED;d:DUPLICATE;i:POLICY;e:PHYSICIAN ENTERED;a:AUTO;^0;4^Q"
^DD(75.2,4,3)="Enter the code that most closely describes this reason when used to hold or cancel an order."
^DD(75.2,4,4)="I $L($T(NA1^ORX1)) D NA1^ORX1()"
^DD(75.2,4,21,0)="^^10^10^2970113^^"
^DD(75.2,4,21,1,0)="The Nature of Order Activity determines actions that OE/RR will take when"
^DD(75.2,4,21,2,0)="it is notified that an order was held or canceled by the imaging service."
^DD(75.2,4,21,3,0)="The Nature of Order Activity you enter here may trigger or suppress OE/RR"
^DD(75.2,4,21,4,0)="printing of a chart copy of the hold or cancel order.  It may also"
^DD(75.2,4,21,5,0)="trigger or suppress OE/RR alerting the original requesting physician"
^DD(75.2,4,21,6,0)="that his/her electronic signature is needed.  The master file of Nature of"
^DD(75.2,4,21,7,0)="Order Activities resides within the OE/RR software and may be configured"
^DD(75.2,4,21,8,0)="different at each facility.  The Radiology/Nuclear Med ADPAC should"
^DD(75.2,4,21,9,0)="coordinate Nature of Order Activity set-up with the OE/RR or clinical"
^DD(75.2,4,21,10,0)="coordinator."
^DD(75.2,4,"DT")="2970113"
^DD(75.2,"B","NATURE OF ORDER ACTIVITY",4)=""
^DD(75.2,"B","NUMBER",.001)=""
^DD(75.2,"B","REASON",.01)=""
^DD(75.2,"B","SYNONYM",3)=""
^DD(75.2,"B","TYPE OF REASON",2)=""
^DD(75.2,"GL",0,1,.01)=""
^DD(75.2,"GL",0,2,2)=""
^DD(75.2,"GL",0,3,3)=""
^DD(75.2,"GL",0,4,4)=""
^DD(75.2,"IX",.01)=""
^DD(75.2,"IX",3)=""
^DD(75.2,"RQ",.01)=""
^DD(75.2,"RQ",4)=""
^DD(78.1,0)="FIELD^^2^2"
^DD(78.1,0,"DDA")="N"
^DD(78.1,0,"IX","B",78.1,.01)=""
^DD(78.1,0,"NM","COMPLICATION TYPES")=""
^DD(78.1,0,"PT",70.03,16)=""
^DD(78.1,0,"VR")="5.0"
^DD(78.1,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(78.1,.01,0)="COMPLICATION^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(78.1,.01,.1)="COMPLICATION ASSOCIATED WITH AN EXAM"
^DD(78.1,.01,1,0)="^.1"
^DD(78.1,.01,1,1,0)="78.1^B"
^DD(78.1,.01,1,1,1)="S ^RA(78.1,""B"",$E(X,1,30),DA)="""""
^DD(78.1,.01,1,1,2)="K ^RA(78.1,""B"",$E(X,1,30),DA)"
^DD(78.1,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.1,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(78.1,.01,3)="Enter a type of complication, between 3 and 30 characters in length, that may be associated with an exam."
^DD(78.1,.01,10)="RAD/NUC MED COORDINATOR"
^DD(78.1,.01,21,0)="^^7^7^2940829^"
^DD(78.1,.01,21,1,0)="This field contains the name of the type of complication that may be"
^DD(78.1,.01,21,2,0)="associated with an exam.  "
^DD(78.1,.01,21,3,0)=" "
^DD(78.1,.01,21,4,0)="Initially, the system contains two complication types:  'Contrast"
^DD(78.1,.01,21,5,0)="Reaction', and 'No Complication'.  Other complication types may be entered"
^DD(78.1,.01,21,6,0)="by the rad/nuc med coordinator at each site and can be 3 to 30 characters"
^DD(78.1,.01,21,7,0)="in length."
^DD(78.1,.01,"DT")="2840903"
^DD(78.1,2,0)="CONTRAST MEDIUM REACTION?^RS^Y:YES;N:NO;^0;2^Q"
^DD(78.1,2,.1)="CONTRAST MEDIUM REACTION COMPLICATION TYPE"
^DD(78.1,2,3)="Enter 'Y' for YES if the complication is a contrast medium reaction."
^DD(78.1,2,10)="RAD/NUC MED COORDINATOR"
^DD(78.1,2,21,0)="^^8^8^2941221^"
^DD(78.1,2,21,1,0)="This field is used to indicate that a patient has had an allergic reaction"
^DD(78.1,2,21,2,0)="to the contrast medium used during an exam.  If this field contains a 'Yes',"
^DD(78.1,2,21,3,0)="then it triggers a contrast medium as an allergen in the Allergy Tracking"
^DD(78.1,2,21,4,0)="System.  As a result, whenever the patient is registered for a procedure"
^DD(78.1,2,21,5,0)="that involves contrast material, a warning message is displayed to the"
^DD(78.1,2,21,6,0)="receptionist.  Answering 'Yes' to this field also affects the"
^DD(78.1,2,21,7,0)="Complications Report, since contrast medium reaction complications"
^DD(78.1,2,21,8,0)="are tallied in an extra total line."
^DD(78.1,2,"DT")="2841125"
^DD(78.1,"B","COMPLICATION",.01)=""
^DD(78.1,"B","CONTRAST MEDIUM REACTION?",2)=""
^DD(78.1,"GL",0,1,.01)=""
^DD(78.1,"GL",0,2,2)=""
^DD(78.1,"IX",.01)=""
^DD(78.1,"RQ",.01)=""
^DD(78.1,"RQ",2)=""
^DD(78.2,0)="FIELD^^100^4"
^DD(78.2,0,"DDA")="N"
^DD(78.2,0,"DT")="2940524"
^DD(78.2,0,"IX","B",78.2,.01)=""
^DD(78.2,0,"NM","LBL/HDR/FTR FORMATS")=""
^DD(78.2,0,"PT",71,4)=""
^DD(78.2,0,"PT",79.1,7)=""
^DD(78.2,0,"PT",79.1,9)=""
^DD(78.2,0,"PT",79.1,11)=""
^DD(78.2,0,"PT",79.1,12)=""
^DD(78.2,0,"PT",79.1,13)=""
^DD(78.2,0,"VR")="5.0"
^DD(78.2,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(78.2,.01,0)="FORMAT NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(78.2,.01,.1)="NAME OF THIS FORMAT"
^DD(78.2,.01,1,0)="^.1"
^DD(78.2,.01,1,1,0)="78.2^B"
^DD(78.2,.01,1,1,1)="S ^RA(78.2,""B"",$E(X,1,30),DA)="""""
^DD(78.2,.01,1,1,2)="K ^RA(78.2,""B"",$E(X,1,30),DA)"
^DD(78.2,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.2,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(78.2,.01,3)="Answer must be 3-30 characters in length."
^DD(78.2,.01,10)="RAD/NUC MED COORDINATOR"
^DD(78.2,.01,21,0)="^^13^13^2940711^"
^DD(78.2,.01,21,1,0)="This field contains the name associated with this format. Format names"
^DD(78.2,.01,21,2,0)="are assigned by each site and must be 3 to 30 non-numeric characters in"
^DD(78.2,.01,21,3,0)="length."
^DD(78.2,.01,21,4,0)=" "
^DD(78.2,.01,21,5,0)="Following are the potential uses of the formats you are defining:"
^DD(78.2,.01,21,6,0)="        1) Flash cards"
^DD(78.2,.01,21,7,0)="        2) Jacket labels"
^DD(78.2,.01,21,8,0)="        3) Exam labels"
^DD(78.2,.01,21,9,0)="        4) Report headers"
^DD(78.2,.01,21,10,0)="        5) Report footers"
^DD(78.2,.01,21,11,0)=" "
^DD(78.2,.01,21,12,0)="This field is pointed to by the corresponding rad/nuc med location"
^DD(78.2,.01,21,13,0)="parameters of the 'Imaging Locations' file."
^DD(78.2,.01,"DT")="2940524"
^DD(78.2,2,0)="NUMBER OF ROWS IN FORMAT^RNJ2,0^^0;2^K:+X'=X!(X>66)!(X<1)!(X?.E1"".""1N.N) X"
^DD(78.2,2,.1)="NUMBER OF ROWS DEFINED IN THIS FORMAT"
^DD(78.2,2,3)="Enter the number of rows in this format, between 1 and 66. This number does not correspond to the line where the format should begin printing!"
^DD(78.2,2,10)="RAD/NUC MED COORDINATOR"
^DD(78.2,2,21,0)="^^11^11^2940524^"
^DD(78.2,2,21,1,0)="This field contains the number of rows desired in this format. The total"
^DD(78.2,2,21,2,0)="number of rows allowed is limited to 66."
^DD(78.2,2,21,3,0)=" "
^DD(78.2,2,21,4,0)="The amount of rows may be set greater than the actual amount of lines"
^DD(78.2,2,21,5,0)="necessary for the printing of the format."
^DD(78.2,2,21,6,0)=" "
^DD(78.2,2,21,7,0)="For example, if it is desired to have a blank line at the beginning, the"
^DD(78.2,2,21,8,0)="first print field can be set to start at row 2 to produce the blank line"
^DD(78.2,2,21,9,0)="at the beginning.  Also, blank lines may be added at the end by having the"
^DD(78.2,2,21,10,0)="total number of rows greater than the line number where the last print"
^DD(78.2,2,21,11,0)="field actually prints."
^DD(78.2,2,"DT")="2850724"
^DD(78.2,50,0)="PRINT FIELDS^78.21IP^^1;0"
^DD(78.2,50,.1)="PRINT FIELDS SUB-FIELD"
^DD(78.2,50,21,0)="^^2^2^2940524^^^"
^DD(78.2,50,21,1,0)="This multiple field contains information about how to set up the fields"
^DD(78.2,50,21,2,0)="that will be printed for this format."
^DD(78.2,100,0)="COMPILED LOGIC^78.22^^E;0"
^DD(78.2,100,.1)="COMPILED CODE OF THIS FORMAT"
^DD(78.2,100,10)="SYSTEM GENERATED"
^DD(78.2,100,21,0)="^^6^6^2940524^"
^DD(78.2,100,21,1,0)="This field contains the mumps source code produced as a result of defining"
^DD(78.2,100,21,2,0)="the print fields.  It is executed when this format is used by the"
^DD(78.2,100,21,3,0)="rad/nuc med system."
^DD(78.2,100,21,4,0)=" "
^DD(78.2,100,21,5,0)="This word processing, multiple field is system generated and never seen"
^DD(78.2,100,21,6,0)="by the user."
^DD(78.2,"B","COMPILED CODE OF THIS FORMAT",100)="1"
^DD(78.2,"B","COMPILED LOGIC",100)=""
^DD(78.2,"B","FORMAT NAME",.01)=""
^DD(78.2,"B","NAME OF THIS FORMAT",.01)="1"
^DD(78.2,"B","NUMBER OF ROWS IN FORMAT",2)=""
^DD(78.2,"B","PRINT FIELDS",50)=""
^DD(78.2,"B","PRINT FIELDS SUB-FIELD",50)="1"
^DD(78.2,"GL",0,1,.01)=""
^DD(78.2,"GL",0,2,2)=""
^DD(78.2,"GL",1,0,50)=""
^DD(78.2,"GL","E",0,100)=""
^DD(78.2,"IX",.01)=""
^DD(78.2,"RQ",.01)=""
^DD(78.2,"RQ",2)=""
^DD(78.2,"SB",78.21,50)=""
^DD(78.2,"SB",78.22,100)=""
^DD(78.21,0)="PRINT FIELDS SUB-FIELD^NL^5^5"
^DD(78.21,0,"ID","WRITE")="I $D(^(0)),$P(^(0),""^"",1)=12 W ""  "",$P(^(0),U,5)"
^DD(78.21,0,"IX","B",78.21,.01)=""
^DD(78.21,0,"NM","PRINT FIELDS")=""
^DD(78.21,0,"UP")="78.2"
^DD(78.21,.01,0)="FIELD^MP78.7'^RA(78.7,^0;1^Q"
^DD(78.21,.01,.1)="FIELD TO BE PRINTED"
^DD(78.21,.01,1,0)="^.1"
^DD(78.21,.01,1,1,0)="78.21^B"
^DD(78.21,.01,1,1,1)="S ^RA(78.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(78.21,.01,1,1,2)="K ^RA(78.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(78.21,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.21,.01,1,1,"%D",1,0)="     Regular filewide 'B' cross reference assigned by FileMan."
^DD(78.21,.01,3)="Select the print field you want."
^DD(78.21,.01,10)="RAD/NUC MED COORDINATOR"
^DD(78.21,.01,21,0)="^^6^6^2940524^^^^"
^DD(78.21,.01,21,1,0)="This is the field selected from the 28 defined in the 'Label Print Fields'"
^DD(78.21,.01,21,2,0)="file."
^DD(78.21,.01,21,3,0)=" "
^DD(78.21,.01,21,4,0)="If the field is to be printed twice, it should be enclosed in double"
^DD(78.21,.01,21,5,0)="quotes.  This is of particular interest if more than one 'free text' field"
^DD(78.21,.01,21,6,0)="is desired."
^DD(78.21,.01,"DT")="2850107"
^DD(78.21,2,0)="ROW^NJ2,0^^0;2^K:+X'=X!(X>66)!(X<1)!(X?.E1"".""1N.N) X"
^DD(78.21,2,.1)="THE ROW THE FIELD SHOULD START PRINTING ON"
^DD(78.21,2,3)="Enter a number, between 1 and 66, to indicate which row this field will be printed on."
^DD(78.21,2,10)="RAD/NUC MED COORDINATOR"
^DD(78.21,2,21,0)="^^2^2^2940524^^^^"
^DD(78.21,2,21,1,0)="This field defines which row the field will be printed on.  It is"
^DD(78.21,2,21,2,0)="site-specific and must be a number between 1 and 66."
^DD(78.21,2,"DT")="2850307"
^DD(78.21,3,0)="COLUMN^NJ2,0^^0;3^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1N.N) X"
^DD(78.21,3,.1)="THE COLUMN THE FIELD SHOULD START PRINTING ON"
^DD(78.21,3,3)="Enter a number, between 1 and 80, to indicate what column this field's title will begin on."
^DD(78.21,3,10)="RAD/NUC MED COORDINATOR"
^DD(78.21,3,21,0)="^^5^5^2940524^^^^"
^DD(78.21,3,21,1,0)="This field defines which column the field's title will start on.  It is"
^DD(78.21,3,21,2,0)="site-specific and must be a number between 1 and 80."
^DD(78.21,3,21,3,0)=" "
^DD(78.21,3,21,4,0)="If no title is to be printed, then the actual field value will start on"
^DD(78.21,3,21,5,0)="this column."
^DD(78.21,3,"DT")="2841217"
^DD(78.21,4,0)="TITLE (OPTIONAL)^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(78.21,4,.1)="TITLE OF THIS PRINT FIELD"
^DD(78.21,4,3)="Enter a title, between 1 and 15 characters, to be printed for this field."
^DD(78.21,4,10)="RAD/NUC MED COORDINATOR"
^DD(78.21,4,21,0)="^^8^8^2940524^^^^"
^DD(78.21,4,21,1,0)="This field contains the title to be printed for this field. It must be"
^DD(78.21,4,21,2,0)="between 1 and 15 characters in length."
^DD(78.21,4,21,3,0)=" "
^DD(78.21,4,21,4,0)="A default value for this field is filled in by the system if no title is"
^DD(78.21,4,21,5,0)="entered."
^DD(78.21,4,21,6,0)=" "
^DD(78.21,4,21,7,0)="If no title is desired, then the value 'NONE' should be entered in this"
^DD(78.21,4,21,8,0)="field."
^DD(78.21,4,"DT")="2850329"
^DD(78.21,5,0)="LITERAL TEXT^F^^0;5^K:$L(X)>80!($L(X)<1) X"
^DD(78.21,5,.1)="TEXT TO BE PRINTED FOR THIS FORMAT"
^DD(78.21,5,3)="Enter text you want to appear."
^DD(78.21,5,10)="RAD/NUC MED COORDINATOR"
^DD(78.21,5,21,0)="^^3^3^2940524^^^^"
^DD(78.21,5,21,1,0)="Text, up to 80 characters in length, may be entered here for 'free text'"
^DD(78.21,5,21,2,0)="field types.  For example, 'VA Medical Center' may be typed here to appear"
^DD(78.21,5,21,3,0)="in the report header."
^DD(78.21,5,"DT")="2850307"
^DD(78.21,"B","COLUMN",3)=""
^DD(78.21,"B","FIELD",.01)=""
^DD(78.21,"B","FIELD TO BE PRINTED",.01)="1"
^DD(78.21,"B","LITERAL TEXT",5)=""
^DD(78.21,"B","ROW",2)=""
^DD(78.21,"B","TITLE (OPTIONAL)",4)=""
^DD(78.21,"B","TITLE OF THIS PRINT FIELD",4)="1"
^DD(78.21,"GL",0,1,.01)=""
^DD(78.21,"GL",0,2,2)=""
^DD(78.21,"GL",0,3,3)=""
^DD(78.21,"GL",0,4,4)=""
^DD(78.21,"GL",0,5,5)=""
^DD(78.21,"IX",.01)=""
^DD(78.22,0)="COMPILED LOGIC SUB-FIELD^NL^.01^1"
^DD(78.22,0,"NM","COMPILED LOGIC")=""
^DD(78.22,0,"UP")="78.2"
^DD(78.22,.01,0)="COMPILED LOGIC^W^^0;1^Q"
^DD(78.22,.01,3)="This field is the system generated mumps code for this format."
^DD(78.22,.01,21,0)="^^6^6^2940524^"
^DD(78.22,.01,21,1,0)="This field contains the mumps source code produced as a result of defining"
^DD(78.22,.01,21,2,0)="the print fields. It is executed when this format is used by the rad/nuc"
^DD(78.22,.01,21,3,0)="med system."
^DD(78.22,.01,21,4,0)=" "
^DD(78.22,.01,21,5,0)="This word processing, multiple field is system generated and never seen by"
^DD(78.22,.01,21,6,0)="the user."
^DD(78.22,.01,"DT")="2850424"
^DD(78.22,"B","COMPILED LOGIC",.01)=""
^DD(78.22,"GL",0,1,.01)=""
^DD(78.3,0)="FIELD^^5^6"
^DD(78.3,0,"DT")="2961223"
^DD(78.3,0,"IX","B",78.3,.01)=""
^DD(78.3,0,"NM","DIAGNOSTIC CODES")=""
^DD(78.3,0,"PT",70.03,13)=""
^DD(78.3,0,"PT",70.14,.01)=""
^DD(78.3,0,"PT",79.7,2.1)=""
^DD(78.3,0,"PT",79.7,2.2)=""
^DD(78.3,0,"PT",727.814,14)=""
^DD(78.3,0,"PT",790.32,.02)=""
^DD(78.3,0,"VR")="5.0"
^DD(78.3,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(78.3,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(78.3,.001,.1)="NUMBER OF THIS DIAGNOSTIC CODE"
^DD(78.3,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(78.3,.001,10)="SYSTEM GENERATED"
^DD(78.3,.001,21,0)="^^5^5^2941108^^^^"
^DD(78.3,.001,21,1,0)="This field contains the number of this diagnostic code.  This provides"
^DD(78.3,.001,21,2,0)="a way to do quick look-ups of a diagnostic code by its number."
^DD(78.3,.001,21,3,0)=" "
^DD(78.3,.001,21,4,0)="Diagnostic code numbers are assigned by the system and are between 1 and"
^DD(78.3,.001,21,5,0)="99999."
^DD(78.3,.001,"DT")="2941108"
^DD(78.3,.01,0)="DIAGNOSTIC CODE^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(78.3,.01,.1)="NAME OF THE DIAGNOSTIC CODE"
^DD(78.3,.01,1,0)="^.1"
^DD(78.3,.01,1,1,0)="78.3^B"
^DD(78.3,.01,1,1,1)="S ^RA(78.3,""B"",$E(X,1,30),DA)="""""
^DD(78.3,.01,1,1,2)="K ^RA(78.3,""B"",$E(X,1,30),DA)"
^DD(78.3,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.3,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(78.3,.01,3)="Enter a short diagnostic code, between 3 and 60 characters in length, to indicate the results of the image analysis."
^DD(78.3,.01,10)="RAD/NUC MED COORDINATOR"
^DD(78.3,.01,21,0)="^^9^9^3020918^"
^DD(78.3,.01,21,1,0)="This field contains a short diagnostic code to indicate the results of"
^DD(78.3,.01,21,2,0)="the interpreting physician's analysis of the images.  Diagnostic codes"
^DD(78.3,.01,21,3,0)="can be between 3 and 60 characters in length and can be used as a basis"
^DD(78.3,.01,21,4,0)="for database searches.  (ie. How many 'Normal' chest exams were performed"
^DD(78.3,.01,21,5,0)="during a specific time period?)"
^DD(78.3,.01,21,6,0)=" "
^DD(78.3,.01,21,7,0)="Eight diagnostic codes are included with the original package.  Other"
^DD(78.3,.01,21,8,0)="site-specific diagnostic codes may be entered by the rad/nuc med"
^DD(78.3,.01,21,9,0)="coordinator at each site."
^DD(78.3,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Diagnostic Codes cannot be deleted. Inactivate to remove."",,""!,$C(7)"")"
^DD(78.3,.01,"DT")="3020918"
^DD(78.3,2,0)="DESCRIPTION^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(78.3,2,.1)="DESCRIPTION OF THE DIAGNOSTIC CODE"
^DD(78.3,2,3)="Enter a description of the diagnostic code between 1 and 80 characters in length."
^DD(78.3,2,10)="RAD/NUC MED COORDINATOR"
^DD(78.3,2,21,0)="^^2^2^2940524^^^^"
^DD(78.3,2,21,1,0)="This field is used to give a description of the diagnostic code and may"
^DD(78.3,2,21,2,0)="be from 1-80 characters in length."
^DD(78.3,2,"DT")="2840829"
^DD(78.3,3,0)="PRINT ON ABNORMAL REPORT^S^Y:YES;N:NO;^0;3^Q"
^DD(78.3,3,.1)="SHOULD THIS DIAGNOSTIC CODE SHOW UP ON ABNORMAL EXAM REPORT?"
^DD(78.3,3,3)="Enter 'Y' for YES if this code should print on the Abnormal Exam Report."
^DD(78.3,3,10)="RAD/NUC MED COORDINATOR"
^DD(78.3,3,21,0)="^^6^6^2970923^"
^DD(78.3,3,21,1,0)="This field contains a 'Yes' or 'No' value to indicate if exams with this"
^DD(78.3,3,21,2,0)="diagnostic code should be printed on the 'Abnormal Exam Report'.  The"
^DD(78.3,3,21,3,0)="report is used to ensure that the physician is notified of abnormal"
^DD(78.3,3,21,4,0)="results of an exam.  This field must be set to 'Yes' before the diagnostic"
^DD(78.3,3,21,5,0)="code is entered on the exam in order for that exam to appear on the"
^DD(78.3,3,21,6,0)="'Abnormal Exam Report'."
^DD(78.3,3,"DT")="2941115"
^DD(78.3,4,0)="GENERATE ABNORMAL ALERT?^S^y:YES;n:NO;^0;4^Q"
^DD(78.3,4,3)="Answering 'YES' indicates that whenever this diagnostic code is entered for a report an abnormal alert should be sent to the attending/requesting physician."
^DD(78.3,4,21,0)="^^2^2^2950110^^^"
^DD(78.3,4,21,1,0)="If this code should generate an abnormal alert, enter 'y', yes at this"
^DD(78.3,4,21,2,0)="prompt."
^DD(78.3,4,"DT")="2910725"
^DD(78.3,5,0)="INACTIVE^S^Y:YES;^0;5^Q"
^DD(78.3,5,3)="Enter  Y  to inactive this diagnostic code, or delete the  Y  to re-activate this code."
^DD(78.3,5,"DT")="2961223"
^DD(78.3,"B","DESCRIPTION",2)=""
^DD(78.3,"B","DIAGNOSTIC CODE",.01)=""
^DD(78.3,"B","GENERATE ABNORMAL ALERT?",4)=""
^DD(78.3,"B","INACTIVE",5)=""
^DD(78.3,"B","NAME OF THE DIAGNOSTIC CODE",.01)="1"
^DD(78.3,"B","NUMBER",.001)=""
^DD(78.3,"B","NUMBER OF THIS DIAGNOSTIC CODE",.001)="1"
^DD(78.3,"B","PRINT ON ABNORMAL REPORT",3)=""
^DD(78.3,"GL",0,1,.01)=""
^DD(78.3,"GL",0,2,2)=""
^DD(78.3,"GL",0,3,3)=""
^DD(78.3,"GL",0,4,4)=""
^DD(78.3,"GL",0,5,5)=""
^DD(78.3,"IX",.01)=""
^DD(78.3,"RQ",.01)=""
^DD(78.4,0)="FIELD^^6^6"
^DD(78.4,0,"DT")="2940113"
^DD(78.4,0,"IX","AUW",78.4,6)=""
^DD(78.4,0,"IX","AW",78.4,5)=""
^DD(78.4,0,"IX","B",78.4,.01)=""
^DD(78.4,0,"NM","FILM SIZES")=""
^DD(78.4,0,"PT",70.04,.01)=""
^DD(78.4,0,"PT",71.02,.01)=""
^DD(78.4,0,"PT",78.4,6)=""
^DD(78.4,0,"VR")="5.0"
^DD(78.4,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(78.4,.01,0)="FILM^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(78.4,.01,.1)="NAME OF THIS FILM TYPE"
^DD(78.4,.01,1,0)="^.1"
^DD(78.4,.01,1,1,0)="78.4^B"
^DD(78.4,.01,1,1,1)="S ^RA(78.4,""B"",$E(X,1,30),DA)="""""
^DD(78.4,.01,1,1,2)="K ^RA(78.4,""B"",$E(X,1,30),DA)"
^DD(78.4,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.4,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(78.4,.01,3)="Enter a name for a type of film, between 3 and 30 characters in length."
^DD(78.4,.01,10)="RAD/NUC MED COORDINATOR"
^DD(78.4,.01,21,0)="^^19^19^2941222^"
^DD(78.4,.01,21,1,0)="This field contains the names of the types of films that the hospital uses"
^DD(78.4,.01,21,2,0)="in performing rad/nuc med exams."
^DD(78.4,.01,21,3,0)=" "
^DD(78.4,.01,21,4,0)="The names are specified by the rad/nuc med coordinator at each site and"
^DD(78.4,.01,21,5,0)="must be 3 to 30 characters in length.  They should be set up with unique"
^DD(78.4,.01,21,6,0)="first few characters to allow the technologist to use the first few"
^DD(78.4,.01,21,7,0)="characters only to specify a film type.  This speeds up processing time"
^DD(78.4,.01,21,8,0)="when this field is used for exam status tracking."
^DD(78.4,.01,21,9,0)=" "
^DD(78.4,.01,21,10,0)="For procedures which do not involve films, 'No Films' may be entered here."
^DD(78.4,.01,21,11,0)=" "
^DD(78.4,.01,21,12,0)="For entries that indicate a 'wasted' film type, it is recommended that the"
^DD(78.4,.01,21,13,0)="name should begin with 'W.' or 'W-' to be easily recognized during case"
^DD(78.4,.01,21,14,0)="editing.  For example:  '10x14' and 'W-10x14' would both be entered, and"
^DD(78.4,.01,21,15,0)="W-10x14 would be the 'wasted' film type.  When editing the 'W-10x14"
^DD(78.4,.01,21,16,0)="entry, you would answer 'Yes' at the 'Wasted Film?' prompt and enter"
^DD(78.4,.01,21,17,0)="'10x14' at the 'Analogous Unwasted Film Size' prompt.  When editing the"
^DD(78.4,.01,21,18,0)="'10x14' entry, answer 'No' at the 'Wasted Film?' prompt and you will not"
^DD(78.4,.01,21,19,0)="be prompted for 'Analogous Unwasted Film Size'."
^DD(78.4,.01,"DEL",1,0)="I 1 W *7,!,""Film Sizes can not be deleted"""
^DD(78.4,.01,"DT")="2840903"
^DD(78.4,2,0)="IS THIS A 'CINE' FILM SIZE?^RS^Y:YES;N:NO;^0;2^Q"
^DD(78.4,2,.1)="IS THIS FILM TYPE A 'CINE' FILM SIZE?"
^DD(78.4,2,3)="Enter 'Y'es if this is a cine film type."
^DD(78.4,2,10)="RAD/NUC MED COORDINATOR"
^DD(78.4,2,21,0)="^^3^3^2940524^^^"
^DD(78.4,2,21,1,0)="If this field contains a 'Yes', it indicates that this is cine feet film"
^DD(78.4,2,21,2,0)="type.  The system uses this information in compiling the AMIS reports and"
^DD(78.4,2,21,3,0)="the Film Usage Reports."
^DD(78.4,2,"DT")="2850111"
^DD(78.4,3,0)="FLUORO ONLY?^S^Y:YES;N:NO;^0;3^Q"
^DD(78.4,3,.1)="USED FOR FLUORO ONLY EXAM?"
^DD(78.4,3,3)="A 'YES' in this field means film was not required; it was fluoro only."
^DD(78.4,3,10)="RAD/NUC MED COORDINATOR"
^DD(78.4,3,21,0)="^^2^2^2941222^"
^DD(78.4,3,21,1,0)="If this field contains a 'Yes', exams for which this is entered as the"
^DD(78.4,3,21,2,0)="film size are assumed to be 'Fluoro Only', not requiring the use of films."
^DD(78.4,3,"DT")="2941222"
^DD(78.4,4,0)="INACTIVATION DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(78.4,4,3)="This is the date that this film size was inactivated."
^DD(78.4,4,21,0)="^^1^1^2940524^"
^DD(78.4,4,21,1,0)="Enter a date if this film size becomes inactive or is no longer needed."
^DD(78.4,4,"DT")="2910808"
^DD(78.4,5,0)="WASTED FILM?^*S^1:YES;^0;4^Q"
^DD(78.4,5,1,0)="^.1"
^DD(78.4,5,1,1,0)="78.4^AW"
^DD(78.4,5,1,1,1)="S ^RA(78.4,""AW"",$E(X,1,30),DA)="""""
^DD(78.4,5,1,1,2)="K ^RA(78.4,""AW"",$E(X,1,30),DA)"
^DD(78.4,5,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.4,5,1,1,"%D",1,0)="Non-lookup cross reference to quickly identify wasted film."
^DD(78.4,5,1,1,"DT")="2940106"
^DD(78.4,5,1,2,0)="^^TRIGGER^78.4^6"
^DD(78.4,5,1,2,1)="Q"
^DD(78.4,5,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RA(78.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$S($D(^RA(78.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=78.4,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(78.4,5,1,2,3)="Do not delete."
^DD(78.4,5,1,2,"%D",0)="^^2^2^2940518^"
^DD(78.4,5,1,2,"%D",1,0)="     Upon deletion, the 'Analogous Unwasted Film Size' field is purged."
^DD(78.4,5,1,2,"%D",2,0)="No action is taken when this field is populated."
^DD(78.4,5,1,2,"CREATE VALUE")="NO EFFECT"
^DD(78.4,5,1,2,"DELETE VALUE")="@"
^DD(78.4,5,1,2,"DT")="2940110"
^DD(78.4,5,1,2,"FIELD")="ANALOGOUS UNWASTED FILM SIZE"
^DD(78.4,5,3)="Enter 'Yes' if this is a wasted film type."
^DD(78.4,5,12)="'Yes' is not allowed for this entry if it has been selected as the Analogous Unwasted Film for another film size."
^DD(78.4,5,12.1)="S DIC(""S"")=""I '$D(^RA(78.4,""""AUW"""",D0))"""
^DD(78.4,5,21,0)="^^2^2^2941230^"
^DD(78.4,5,21,1,0)="This field indicates that this film will be considered a wasted film type"
^DD(78.4,5,21,2,0)="and will be included on the 'Wasted Film report'."
^DD(78.4,5,"DT")="2940127"
^DD(78.4,6,0)="ANALOGOUS UNWASTED FILM SIZE^*P78.4'^RA(78.4,^0;5^S DIC(""S"")=""I $D(^RA(78.4,""""AW"""",1,D0)),('$D(^RA(78.4,""""AW"""",1,+Y)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(78.4,6,1,0)="^.1"
^DD(78.4,6,1,1,0)="78.4^AUW"
^DD(78.4,6,1,1,1)="S ^RA(78.4,""AUW"",$E(X,1,30),DA)="""""
^DD(78.4,6,1,1,2)="K ^RA(78.4,""AUW"",$E(X,1,30),DA)"
^DD(78.4,6,1,1,3)="Do not delete."
^DD(78.4,6,1,1,"%D",0)="^^3^3^2940518^"
^DD(78.4,6,1,1,"%D",1,0)="     This cross reference will prevent the user from changing all films"
^DD(78.4,6,1,1,"%D",2,0)="populating the 'Analogous Unwasted Film Size' field into a 'Wasted Film"
^DD(78.4,6,1,1,"%D",3,0)="Size'.  A screen will be placed in the 'Wasted Film' field."
^DD(78.4,6,1,1,"DT")="2940113"
^DD(78.4,6,3)="Enter the corresponding film size which is not deemed wasted."
^DD(78.4,6,5,1,0)="78.4^5^2"
^DD(78.4,6,12)="The selection process of an unwasted film choice will only occur when the 'Wasted Film' field is set to 'Yes'."
^DD(78.4,6,12.1)="S DIC(""S"")=""I $D(^RA(78.4,""""AW"""",1,D0)),('$D(^RA(78.4,""""AW"""",1,+Y)))"""
^DD(78.4,6,21,0)="^^1^1^2940524^^^"
^DD(78.4,6,21,1,0)="Identifies a corresponding film size which is not wasted."
^DD(78.4,6,23,0)="^^3^3^2940524^^"
^DD(78.4,6,23,1,0)="     Warning: This field should only be populated iff the 'Wasted Film'"
^DD(78.4,6,23,2,0)="field is set to 'Yes'.  If the 'Wasted Film' field is 'null', the"
^DD(78.4,6,23,3,0)="'Analogous Unwasted Film Size' field should be set to 'null'."
^DD(78.4,6,"DT")="2940113"
^DD(78.4,"B","ANALOGOUS UNWASTED FILM SIZE",6)=""
^DD(78.4,"B","FILM",.01)=""
^DD(78.4,"B","FLUORO ONLY?",3)=""
^DD(78.4,"B","INACTIVATION DATE",4)=""
^DD(78.4,"B","IS THIS A 'CINE' FILM SIZE?",2)=""
^DD(78.4,"B","NAME OF THIS FILM TYPE",.01)="1"
^DD(78.4,"B","USED FOR FLUORO ONLY EXAM?",3)="1"
^DD(78.4,"B","WASTED FILM?",5)=""
^DD(78.4,"GL",0,1,.01)=""
^DD(78.4,"GL",0,2,2)=""
^DD(78.4,"GL",0,3,3)=""
^DD(78.4,"GL",0,4,5)=""
^DD(78.4,"GL",0,5,6)=""
^DD(78.4,"GL","I",1,4)=""
^DD(78.4,"IX",.01)=""
^DD(78.4,"IX",5)=""
^DD(78.4,"IX",6)=""
^DD(78.4,"RQ",.01)=""
^DD(78.4,"RQ",2)=""
^DD(78.6,0)="FIELD^^2^2"
^DD(78.6,0,"DT")="2960619"
^DD(78.6,0,"ID",2)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(78.6,0,"IX","B",78.6,.01)=""
^DD(78.6,0,"IX","C",78.6,2)=""
^DD(78.6,0,"NM","CAMERA/EQUIP/RM")=""
^DD(78.6,0,"PT",70.03,18)=""
^DD(78.6,0,"PT",71,14)=""
^DD(78.6,0,"PT",79.12,.01)=""
^DD(78.6,0,"VR")="5.0"
^DD(78.6,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(78.6,.01,0)="CAMERA/EQUIP/RM^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(78.6,.01,.1)="CAMERA/EQUIPMENT/ROOM"
^DD(78.6,.01,1,0)="^.1"
^DD(78.6,.01,1,1,0)="78.6^B"
^DD(78.6,.01,1,1,1)="S ^RA(78.6,""B"",$E(X,1,30),DA)="""""
^DD(78.6,.01,1,1,2)="K ^RA(78.6,""B"",$E(X,1,30),DA)"
^DD(78.6,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.6,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(78.6,.01,3)="Enter a name for this camera/equip/rm, between 1 and 30 characters in length."
^DD(78.6,.01,10)="RAD/NUC MED COORDINATOR"
^DD(78.6,.01,21,0)="^^2^2^2940913^^"
^DD(78.6,.01,21,1,0)="This field contains the name of this camera/equipment/room.  Names"
^DD(78.6,.01,21,2,0)="must be between 1 and 30 characters in length."
^DD(78.6,.01,"DT")="2940603"
^DD(78.6,2,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X"
^DD(78.6,2,.1)="DESCRIPTION OF THIS CAMERA/EQUIPMENT/ROOM"
^DD(78.6,2,1,0)="^.1"
^DD(78.6,2,1,1,0)="78.6^C"
^DD(78.6,2,1,1,1)="S ^RA(78.6,""C"",$E(X,1,30),DA)="""""
^DD(78.6,2,1,1,2)="K ^RA(78.6,""C"",$E(X,1,30),DA)"
^DD(78.6,2,1,1,"%D",0)="^^1^1^2940603^"
^DD(78.6,2,1,1,"%D",1,0)="Allows look-up of camera/equip/rm by description."
^DD(78.6,2,3)="Enter a brief description, between 3 and 40 characters in length, to define the types of procedures performed."
^DD(78.6,2,10)="COORDINATOR"
^DD(78.6,2,21,0)="^^4^4^2940824^^"
^DD(78.6,2,21,1,0)="This field is used to describe this camera/equipment/room and define what"
^DD(78.6,2,21,2,0)="types of procedures may be performed there.  'Triple Head Spec Scanner'"
^DD(78.6,2,21,3,0)="is an example of a description.  Descriptions may be between 3 and 40"
^DD(78.6,2,21,4,0)="characters in length."
^DD(78.6,2,"DT")="2940603"
^DD(78.6,"B","CAMERA/EQUIP/RM",.01)=""
^DD(78.6,"B","CAMERA/EQUIPMENT/ROOM",.01)="1"
^DD(78.6,"B","DESCRIPTION",2)=""
^DD(78.6,"GL",0,1,.01)=""
^DD(78.6,"GL",0,2,2)=""
^DD(78.6,"IX",.01)=""
^DD(78.6,"IX",2)=""
^DD(78.6,"RQ",.01)=""
^DD(78.7,0)="FIELD^^100^7"
^DD(78.7,0,"DDA")="N"
^DD(78.7,0,"DT")="2960405"
^DD(78.7,0,"IX","AC",78.7,2)=""
^DD(78.7,0,"IX","B",78.7,.01)=""
^DD(78.7,0,"IX","C",78.7,5)=""
^DD(78.7,0,"NM","LABEL PRINT FIELDS")=""
^DD(78.7,0,"PT",78.21,.01)=""
^DD(78.7,0,"VR")="5.0"
^DD(78.7,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(78.7,.01,0)="PRINT FIELD^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(78.7,.01,.1)="NAME OF THIS PRINT FIELD"
^DD(78.7,.01,1,0)="^.1"
^DD(78.7,.01,1,1,0)="78.7^B"
^DD(78.7,.01,1,1,1)="S ^RA(78.7,""B"",$E(X,1,30),DA)="""""
^DD(78.7,.01,1,1,2)="K ^RA(78.7,""B"",$E(X,1,30),DA)"
^DD(78.7,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(78.7,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(78.7,.01,3)="Enter a name (3-30 characters) for this print field."
^DD(78.7,.01,10)="RAD/NUC MED DEVELOPER"
^DD(78.7,.01,21,0)="^^4^4^2940526^^^^"
^DD(78.7,.01,21,1,0)="This field contains the name of this print field.  It is available for the"
^DD(78.7,.01,21,2,0)="print formats of flash cards, exam labels, jacket labels, report headers,"
^DD(78.7,.01,21,3,0)="and report footers.  Print field names must be between 3 and 30"
^DD(78.7,.01,21,4,0)="non-numeric characters in length."
^DD(78.7,.01,"DEL",1,0)="I 1 W *7,!,""Label Print Fields can not be deleted"""
^DD(78.7,.01,"DT")="2940526"
^DD(78.7,2,0)="TYPE OF DATA^SI^P:PATIENT DEMOGRAPHICS;V:VISIT SPECIFIC;E:EXAM SPECIFIC;O:OTHER;^0;2^Q"
^DD(78.7,2,.1)="TYPE OF DATA IN THIS PRINT FIELD"
^DD(78.7,2,1,0)="^.1"
^DD(78.7,2,1,1,0)="78.7^AC"
^DD(78.7,2,1,1,1)="S ^RA(78.7,""AC"",$E(X,1,30),DA)="""""
^DD(78.7,2,1,1,2)="K ^RA(78.7,""AC"",$E(X,1,30),DA)"
^DD(78.7,2,1,1,"%D",0)="^^2^2^2910815^"
^DD(78.7,2,1,1,"%D",1,0)="Generates a list of label print fields grouped by type of data"
^DD(78.7,2,1,1,"%D",2,0)="stored in the field."
^DD(78.7,2,3)="Select a data type for this field."
^DD(78.7,2,10)="RAD/NUC MED DEVELOPER"
^DD(78.7,2,21,0)="^^6^6^2940526^^^^"
^DD(78.7,2,21,1,0)="This field contains the data type of this print field.  Following are the"
^DD(78.7,2,21,2,0)="available types of data, explanations, and examples of each type."
^DD(78.7,2,21,3,0)="    'P' for patient demographics     ie. Date of birth"
^DD(78.7,2,21,4,0)="    'V' for visit specific           ie. Hospital division"
^DD(78.7,2,21,5,0)="    'E' for exam specific            ie. Technologist who performed exam"
^DD(78.7,2,21,6,0)="    'O' for other                    ie. Page # on report header"
^DD(78.7,2,"DT")="2890207"
^DD(78.7,3,0)="DEFAULT TITLE^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(78.7,3,.1)="DEFAULT TITLE FOR THIS PRINT FIELD"
^DD(78.7,3,3)="Enter a default title (3-20 characters)."
^DD(78.7,3,10)="RAD/NUC MED DEVELOPER"
^DD(78.7,3,21,0)="^^4^4^2940526^^^^"
^DD(78.7,3,21,1,0)="This field contains the default title of this print field.  It may be"
^DD(78.7,3,21,2,0)="between 3 and 20 characters in length and will appear on any of the print"
^DD(78.7,3,21,3,0)="formats that do not have a title specified in the 'Flash Card Formats' file "
^DD(78.7,3,21,4,0)="for this print field."
^DD(78.7,3,"DT")="2850309"
^DD(78.7,4,0)="TEST VALUE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(78.7,4,.1)="TEST VALUE OF THIS PRINT FIELD"
^DD(78.7,4,3)="Enter an example value of 1 to 30 characters."
^DD(78.7,4,10)="RAD/NUC MED DEVELOPER"
^DD(78.7,4,21,0)="^^3^3^2940526^^^^"
^DD(78.7,4,21,1,0)="This field contains an example value of this print field between 1 and 30"
^DD(78.7,4,21,2,0)="characters in length.  It is used as an example when setting up the"
^DD(78.7,4,21,3,0)="various print formats."
^DD(78.7,5,0)="INTERNAL VARIABLE^F^^0;5^K:$L(X)>8!($L(X)<1)!'(X?.A) X"
^DD(78.7,5,.1)="INTERNAL VARIABLE OF THIS PRINT FIELD"
^DD(78.7,5,1,0)="^.1"
^DD(78.7,5,1,1,0)="78.7^C"
^DD(78.7,5,1,1,1)="S ^RA(78.7,""C"",$E(X,1,30),DA)="""""
^DD(78.7,5,1,1,2)="K ^RA(78.7,""C"",$E(X,1,30),DA)"
^DD(78.7,5,1,1,"%D",0)="^^1^1^2910815^^"
^DD(78.7,5,1,1,"%D",1,0)="Allows look-up of label print field by internal variable."
^DD(78.7,5,3)="This is a local variable name associated with this print field."
^DD(78.7,5,10)="RAD/NUC MED DEVELOPER"
^DD(78.7,5,21,0)="^^4^4^2950410^"
^DD(78.7,5,21,1,0)="This is the MUMPS local variable name that this print field will be"
^DD(78.7,5,21,2,0)="associated with when the print format is used by the system.  It is"
^DD(78.7,5,21,3,0)="assigned by the developer and must be between 1 and 8 characters in"
^DD(78.7,5,21,4,0)="length."
^DD(78.7,5,"DT")="2950410"
^DD(78.7,6,0)="UNIQUE^S^Y:YES;^0;6^Q"
^DD(78.7,6,3)="Is this field shared among cases that belong to the same print set"
^DD(78.7,6,21,0)="^^9^9^2970311^^"
^DD(78.7,6,21,1,0)="When this field is printed in a report, and the report is a combined"
^DD(78.7,6,21,2,0)="report of several cases that belong to the same report, then this field"
^DD(78.7,6,21,3,0)="value will be trailed by a '+'.  The purpose of this character is to give"
^DD(78.7,6,21,4,0)="the user a visual cue that there is additional data that cannot be printed"
^DD(78.7,6,21,5,0)="within the space confines of a label or report header or footer.  For"
^DD(78.7,6,21,6,0)="example, print sets include several different procedures but not all of"
^DD(78.7,6,21,7,0)="them will fit on a report header or a label, so a single procedure name is"
^DD(78.7,6,21,8,0)="printed with a '+' to indicate that there are more procedures in the print"
^DD(78.7,6,21,9,0)="set."
^DD(78.7,6,"DT")="2960503"
^DD(78.7,100,0)="MUMPS CODE TO SET VARIABLE^FXI^^E;E1,240^K X W !,""UNEDITABLE"" Q  K:$L(X)>240!($L(X)<1) X"
^DD(78.7,100,.1)="MUMPS CODE TO SET THE INTERNAL VARIABLE FOR THIS PRINT FIELD"
^DD(78.7,100,3)="This is the MUMPS code to set the internal variable to a value."
^DD(78.7,100,9)="^"
^DD(78.7,100,10)="RAD/NUC MED DEVELOPER"
^DD(78.7,100,21,0)="^^3^3^2960328^^^^"
^DD(78.7,100,21,1,0)="This is the MUMPS code that sets the 'Internal Variable' to the"
^DD(78.7,100,21,2,0)="appropriate value.  It is executed when this print field is used to print"
^DD(78.7,100,21,3,0)="the appropriate data and is between 1 and 240 characters in length."
^DD(78.7,100,"DT")="2960328"
^DD(78.7,"B","DEFAULT TITLE",3)=""
^DD(78.7,"B","INTERNAL VARIABLE",5)=""
^DD(78.7,"B","MUMPS CODE TO SET VARIABLE",100)=""
^DD(78.7,"B","NAME OF THIS PRINT FIELD",.01)="1"
^DD(78.7,"B","PRINT FIELD",.01)=""
^DD(78.7,"B","TEST VALUE",4)=""
^DD(78.7,"B","TEST VALUE OF THIS PRINT FIELD",4)="1"
^DD(78.7,"B","TYPE OF DATA",2)=""
^DD(78.7,"B","UNIQUE",6)=""
^DD(78.7,"GL",0,1,.01)=""
^DD(78.7,"GL",0,2,2)=""
^DD(78.7,"GL",0,3,3)=""
^DD(78.7,"GL",0,4,4)=""
^DD(78.7,"GL",0,5,5)=""
^DD(78.7,"GL",0,6,6)=""
^DD(78.7,"GL","E","E1,240",100)=""
^DD(78.7,"IX",.01)=""
^DD(78.7,"IX",2)=""
^DD(78.7,"IX",5)=""
^DD(78.7,"RQ",.01)=""
^DD(79,0)="FIELD^^2300.6^37"
^DD(79,0,"DT")="3020716"
^DD(79,0,"IX","AC",79,.17)=""
^DD(79,0,"IX","AC1",79,.121)=""
^DD(79,0,"IX","AL",79.01,.01)=""
^DD(79,0,"IX","B",79,.01)=""
^DD(79,0,"NM","RAD/NUC MED DIVISION")=""
^DD(79,0,"PT",70.02,3)=""
^DD(79,0,"PT",79.1,25)=""
^DD(79,0,"VR")="5.0"
^DD(79,0,"VRPK")="RA"
^DD(79,.01,0)="DIVISION^RP4'XI^DIC(4,^0;1^S DINUM=X"
^DD(79,.01,.1)="RAD/NUC MED DIVISION OF HOSPITAL"
^DD(79,.01,1,0)="^.1"
^DD(79,.01,1,1,0)="79^B"
^DD(79,.01,1,1,1)="S ^RA(79,""B"",$E(X,1,30),DA)="""""
^DD(79,.01,1,1,2)="K ^RA(79,""B"",$E(X,1,30),DA)"
^DD(79,.01,1,1,"%D",0)="^^2^2^2940518^"
^DD(79,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan.  DINUM'ed with the"
^DD(79,.01,1,1,"%D",2,0)="Institution file (4)."
^DD(79,.01,3)="Enter the name of the division."
^DD(79,.01,10)="RAD/NUC MED COORDINATOR"
^DD(79,.01,21,0)="^.001^1^1^3000517^^^^"
^DD(79,.01,21,1,0)="This field contains the name of this division."
^DD(79,.01,"DT")="2941107"
^DD(79,.11,0)="TRACK EXAM STATUS CHANGES^S^Y:yes;N:no;^.1;10^Q"
^DD(79,.11,.1)="SHOULD SYSTEM COLLECT EXAM STATUS CHANGE TIME DATA?"
^DD(79,.11,3)="Enter 'Y'es to track exam status changes."
^DD(79,.11,10)="RAD/NUC MED COORDINATOR"
^DD(79,.11,21,0)="^^3^3^2960812^^^^"
^DD(79,.11,21,1,0)="This 'division' parameter can be set to 'Yes' to collect the date and the"
^DD(79,.11,21,2,0)="time of exam status changes.  If the data is collected, it is stored with"
^DD(79,.11,21,3,0)="the case in the Activity Log subfile of the Rad/Nuc Med Patient file."
^DD(79,.11,"DT")="2910225"
^DD(79,.111,0)="ASK EXAM STATUS TIME^S^Y:yes;N:no;^.1;11^Q"
^DD(79,.111,.1)="SHOULD EXAM STATUS CHANGE TIME BE ASKED?"
^DD(79,.111,3)="Enter 'Y'es is you want the user asked the time of the status change."
^DD(79,.111,10)="RAD/NUC MED COORDINATOR"
^DD(79,.111,21,0)="^^9^9^2960812^"
^DD(79,.111,21,1,0)="This 'division' parameter is used if the 'Track Exam Status Changes'"
^DD(79,.111,21,2,0)="parameter is set to 'Yes'.  This parameter may be set to 'Yes' to indicate"
^DD(79,.111,21,3,0)="that the user should be asked the time of the status change. If this"
^DD(79,.111,21,4,0)="parameter is set to 'No', then the system automatically uses the current"
^DD(79,.111,21,5,0)="date and time."
^DD(79,.111,21,6,0)=" "
^DD(79,.111,21,7,0)="(If exam data is entered significantly later than the patient is actually"
^DD(79,.111,21,8,0)="processed, then this parameter could be set to 'Yes' so that the user can"
^DD(79,.111,21,9,0)="put in the actual time the work was done.)"
^DD(79,.111,"DT")="2910225"
^DD(79,.112,0)="ALLOW STANDARD REPORTS^S^Y:yes;N:no;^.1;12^Q"
^DD(79,.112,.1)="SHOULD STANDARD REPORTS BE ALLOWED?"
^DD(79,.112,3)="Enter 'Y'es if you want the transcriptionist to be able to select a standard report."
^DD(79,.112,10)="RAD/NUC MED COORDINATOR"
^DD(79,.112,21,0)="^^3^3^2940526^"
^DD(79,.112,21,1,0)="This 'division' parameter can be set to 'Yes' if the transcriptionist"
^DD(79,.112,21,2,0)="should be given the opportunity to select a standard report during the"
^DD(79,.112,21,3,0)="report entry/edit process."
^DD(79,.112,"DT")="2910225"
^DD(79,.113,0)="ALLOW BATCHING OF REPORTS^S^Y:yes;N:no;^.1;13^Q"
^DD(79,.113,.1)="SHOULD BATCHING OF REPORTS BE ALLOWED?"
^DD(79,.113,3)="Enter 'Y'es if the transcriptionist should be allowed to batch reports."
^DD(79,.113,10)="RAD/NUC MED COORDINATOR"
^DD(79,.113,21,0)="^^10^10^2941222^"
^DD(79,.113,21,1,0)="This 'division' parameter can be set to 'Yes' if the transcriptionist"
^DD(79,.113,21,2,0)="should be given the opportunity to place reports in a batch during report"
^DD(79,.113,21,3,0)="entry."
^DD(79,.113,21,4,0)=" "
^DD(79,.113,21,5,0)="    Batching of reports has the following advantages:"
^DD(79,.113,21,6,0)="    1)  Reports can be re-printed easily"
^DD(79,.113,21,7,0)="    2)  Two or more users are allowed to use the same"
^DD(79,.113,21,8,0)="        report printer without interweaving of reports"
^DD(79,.113,21,9,0)="    3)  Allows for batch verifying of reports"
^DD(79,.113,21,10,0)="    4)  Provides a mechanism for logical grouping of reports"
^DD(79,.113,"DT")="2910225"
^DD(79,.114,0)="ALLOW COPYING OF REPORTS^S^Y:yes;N:no;^.1;14^Q"
^DD(79,.114,.1)="SHOULD COPYING OF REPORTS BE ALLOWED?"
^DD(79,.114,3)="Enter 'Y'es if the transcriptionist should be able to copy the contents of one report into another. "
^DD(79,.114,10)="RAD/NUC MED COORDINATOR"
^DD(79,.114,21,0)="^^3^3^2941222^"
^DD(79,.114,21,1,0)="This 'division' parameter can be set to 'Yes' if the transcriptionist"
^DD(79,.114,21,2,0)="should be given the opportunity to copy the contents of one report into"
^DD(79,.114,21,3,0)="another.  The report text and impression will be copied."
^DD(79,.114,"DT")="2910225"
^DD(79,.115,0)="ALLOW 'RELEASED/UNVERIFIED'^S^Y:yes;N:no;^.1;15^Q"
^DD(79,.115,.1)="SHOULD 'RELEASED/UNVERIFIED' REPORT STATUS BE ALLOWED?"
^DD(79,.115,3)="Enter 'Y'es if 'Released/Unverified' reports should be allowed."
^DD(79,.115,10)="RAD/NUC MED COORDINATOR"
^DD(79,.115,21,0)="^^3^3^2941222^"
^DD(79,.115,21,1,0)="This 'division' parameter can be set to 'Yes' to allow reports to have the"
^DD(79,.115,21,2,0)="status 'RELEASED/UNVERIFIED' which permits the displaying of the report to"
^DD(79,.115,21,3,0)="users outside of the Imaging service even if it is unverified."
^DD(79,.115,"DT")="2910225"
^DD(79,.116,0)="IMPRESSION REQUIRED ON REPORTS^S^Y:yes;N:no;^.1;16^Q"
^DD(79,.116,.1)="IS IMPRESSION REQUIRED ON REPORTS?"
^DD(79,.116,3)="Enter 'Y'es if an impression is required."
^DD(79,.116,10)="RAD/NUC MED COORDINATOR"
^DD(79,.116,21,0)="^^3^3^2950926^^"
^DD(79,.116,21,1,0)="This 'division' parameter can be set to 'Yes' to indicate that an"
^DD(79,.116,21,2,0)="impression is required to be given on a report before:  1) the report can"
^DD(79,.116,21,3,0)="be verified and  2) the exam can be considered 'complete'."
^DD(79,.116,"DT")="2910225"
^DD(79,.117,0)="ASK 'REQUESTED DATE'^S^Y:yes;N:no;^.1;17^Q"
^DD(79,.117,.1)="SHOULD 'REQUESTED DATE' BE ASKED?"
^DD(79,.117,3)="Enter 'Y'es if the transcriptionist should be prompted for the desired date. "
^DD(79,.117,10)="RAD/NUC MED COORDINATOR"
^DD(79,.117,21,0)="^^2^2^2941228^^"
^DD(79,.117,21,1,0)="This 'division' parameter can be set to 'Yes' if the transcriptionist"
^DD(79,.117,21,2,0)="should be prompted for the Desired Date for the exam."
^DD(79,.117,23,0)="^^3^3^2941228^"
^DD(79,.117,23,1,0)="This field is set to 'YES' by the system.  The ADPAC never edits it.  It"
^DD(79,.117,23,2,0)="is not asked in the Division Parameter Set-up option.  Instead, the edit"
^DD(79,.117,23,3,0)="template for the set-up stuffs 'YES' in the field."
^DD(79,.117,"DT")="2910225"
^DD(79,.118,0)="ALLOW VERIFYING BY RESIDENTS^S^Y:yes;N:no;^.1;18^Q"
^DD(79,.118,3)="Enter 'Y'es if interpreting residents should be allowed to verify other interpreting physicians' reports."
^DD(79,.118,21,0)="^^12^12^2941222^"
^DD(79,.118,21,1,0)="This 'division' parameter can be set to 'Yes' to allow interpreting"
^DD(79,.118,21,2,0)="residents to verify other interpreting physicians' reports while using the"
^DD(79,.118,21,3,0)="'On-line Verifying of Reports' option."
^DD(79,.118,21,4,0)=" "
^DD(79,.118,21,5,0)="If the parameter is set to 'Yes' then only those residents whose"
^DD(79,.118,21,6,0)="individual parameter (ALLOW VERIFYING OF OTHERS) in the 'New Person' file"
^DD(79,.118,21,7,0)="is also set to 'Yes' will be allowed to verify other interpreting"
^DD(79,.118,21,8,0)="physicians' reports."
^DD(79,.118,21,9,0)=" "
^DD(79,.118,21,10,0)="If this division parameter is set to 'No' then no residents will be"
^DD(79,.118,21,11,0)="allowed to verify other physicians' reports, regardless of how the"
^DD(79,.118,21,12,0)="individual parameter is set in the 'New Person' file."
^DD(79,.118,"DT")="2910225"
^DD(79,.119,0)="TRACK REQUEST STATUS CHANGES^S^y:YES;n:NO;^.1;19^Q"
^DD(79,.119,3)="Enter 'Y'es if you want to track request status changes."
^DD(79,.119,21,0)="^^5^5^2941222^"
^DD(79,.119,21,1,0)="This 'division' parameter can be set 'Yes' to collect the date and the"
^DD(79,.119,21,2,0)="time of request status changes.  If data is collected the new status,"
^DD(79,.119,21,3,0)="computer user, and, sometimes, the reason for the status change, are"
^DD(79,.119,21,4,0)="stored with the order in the Request Status Times subfile of the Rad/Nuc"
^DD(79,.119,21,5,0)="Med Orders file."
^DD(79,.119,"DT")="2880626"
^DD(79,.12,0)="PRINT FLASH CARD FOR EACH EXAM^S^Y:yes;N:no;^.1;2^Q"
^DD(79,.12,.1)="SHOULD FLASH CARD BE PRINTED FOR EACH EXAM?"
^DD(79,.12,3)="Enter 'Y'es if you want a flash card printed for each exam (i.e. case)."
^DD(79,.12,10)="RAD/NUC MED COORDINATOR"
^DD(79,.12,21,0)="^^3^3^2941228^"
^DD(79,.12,21,1,0)="This 'division' parameter can be set to 'Yes' if one flash card should be"
^DD(79,.12,21,2,0)="printed for each exam (i.e. case). If this parameter is set to 'Yes', then"
^DD(79,.12,21,3,0)="the 'location' parameter, 'How Many Flashcards Per Visit' is ignored."
^DD(79,.12,"DT")="2910225"
^DD(79,.121,0)="ASK 'IMAGING LOCATION'^S^y:YES;n:NO;^.1;21^Q"
^DD(79,.121,1,0)="^.1"
^DD(79,.121,1,1,0)="79^AC1^MUMPS"
^DD(79,.121,1,1,1)="D:+$$ORVR^RAORDU()>2.5 PUT^XPAR(DA_"";DIC(4,"",""RA SUBMIT PROMPT"",1,$S(X=""y"":1,1:0))"
^DD(79,.121,1,1,2)="Q"
^DD(79,.121,1,1,3)="Do not delete!"
^DD(79,.121,1,1,"%D",0)="^^4^4^2950712^"
^DD(79,.121,1,1,"%D",1,0)="    This cross-reference updates a mirror image parameter field in the"
^DD(79,.121,1,1,"%D",2,0)="OE/RR package.  OE/RR stores this parameter so they can determine if the"
^DD(79,.121,1,1,"%D",3,0)="'SUBMIT REQUEST TO' question was asked for a particular division in the"
^DD(79,.121,1,1,"%D",4,0)="Radiology/Nuclear Medicine software."
^DD(79,.121,1,1,"DT")="2950712"
^DD(79,.121,3)="Enter 'y'es if the user should be asked for an imaging location when requesting an exam."
^DD(79,.121,21,0)="^^6^6^2970317^^^"
^DD(79,.121,21,1,0)="This division 'parameter' can be set to 'Yes' to indicate that the user"
^DD(79,.121,21,2,0)="should be asked when requesting an exam, which 'Imaging Location' the"
^DD(79,.121,21,3,0)="request should be forwarded to.  It is recommended that this field be set"
^DD(79,.121,21,4,0)="to 'Yes' to facilitate sorting of requests by imaging location for various"
^DD(79,.121,21,5,0)="reports.  Answering 'Yes' to this questions causes the 'SUBMIT REQUEST TO:'"
^DD(79,.121,21,6,0)="prompt to appear after a request is created."
^DD(79,.121,"DT")="2950712"
^DD(79,.122,0)="ALLOW RPTS ON CANCELLED CASES?^S^Y:yes;N:no;^.1;22^Q"
^DD(79,.122,.1)="ALLOW USER TO ENTER A REPORT FOR A CASE THAT IS CANCELLED"
^DD(79,.122,3)="Enter 'Y'es if a user without the RA MGR key can enter a report on a cancelled case."
^DD(79,.122,21,0)="^^2^2^2940526^^^"
^DD(79,.122,21,1,0)="This field will determine if a user who does not have the RA MGR key"
^DD(79,.122,21,2,0)="may enter a report for an exam that has a status of CANCELLED."
^DD(79,.122,"DT")="2940114"
^DD(79,.124,0)="TIME LIMIT FOR FUTURE EXAMS^NJ3,0^^.1;24^K:+X'=X!(X>168)!(X<0)!(X?.E1"".""1N.N) X"
^DD(79,.124,3)="Enter the number of hours in the future (0-168) that a user may register a patient for an exam."
^DD(79,.124,21,0)="^^3^3^2940526^"
^DD(79,.124,21,1,0)="This is the maximum number of hours in the future that a user may register"
^DD(79,.124,21,2,0)="a patient for an exam.  If this prompt is bypassed, the user may not"
^DD(79,.124,21,3,0)="register a patient at a future date."
^DD(79,.124,23,0)="^^5^5^2940526^^"
^DD(79,.124,23,1,0)="     This data will be used as an upper limit when the user inputs the"
^DD(79,.124,23,2,0)="Exam Date.  (.01 field of subfile 70.02 within file 70)"
^DD(79,.124,23,3,0)="This division parameter was added to allow sites to prevent future"
^DD(79,.124,23,4,0)="registration if they wish, as well as to set reasonable limits so that"
^DD(79,.124,23,5,0)="dates in the future are not entered in error."
^DD(79,.124,"DT")="2940329"
^DD(79,.125,0)="WARNING ON RPTS NOT YET VERIF?^S^Y:yes;N:no;^.1;25^Q"
^DD(79,.125,.1)="PRINT WARNING ON REPORTS NOT YET VERIFIED?"
^DD(79,.125,3)="Enter 'yes' to get the report status printed on unverified reports."
^DD(79,.125,21,0)="^^6^6^2991001^^"
^DD(79,.125,21,1,0)="If this field is set to 'Yes' results reports in any status except"
^DD(79,.125,21,2,0)="'Verified' will print the status surrounded by asterisks under the body of"
^DD(79,.125,21,3,0)="the report.  If this field is set to 'No' or left unanswered, the status"
^DD(79,.125,21,4,0)="box will not print on reports not yet verified.  This can be used to make"
^DD(79,.125,21,5,0)="sure that hardcopies of unverified results reports are not accidentally"
^DD(79,.125,21,6,0)="placed in patient charts or interpreted as the final results."
^DD(79,.125,"DT")="2960918"
^DD(79,.126,0)="AUTO E-MAIL TO REQ. PHYS?^S^1:yes;^.1;26^Q"
^DD(79,.126,3)="Enter 'Y'es to automatically send Requesting Physicians the radiology reports via e-mail."
^DD(79,.126,21,0)="^^4^4^2991001^^^"
^DD(79,.126,21,1,0)="Entering 'Y'es will turn on a feature that automatically sends the"
^DD(79,.126,21,2,0)="Radiology/Nuclear Medicine findings report to the Requesting Physician"
^DD(79,.126,21,3,0)="via e-mail at the time it is verified.  If this field is left blank,"
^DD(79,.126,21,4,0)="verified reports will not be e-mailed to the requesting physician."
^DD(79,.126,"DT")="2960129"
^DD(79,.127,0)="ALLOW E-SIG ON COTS HL7 RPTS^S^Y:yes;N:no;^.1;27^Q"
^DD(79,.127,3)="Enter 'Y' to allow VISTA e-sig on COTS reports."
^DD(79,.127,21,0)="^^6^6^2991001^^^"
^DD(79,.127,21,1,0)="Entering 'Y' will turn on a feature that automatically adds the Electronic"
^DD(79,.127,21,2,0)="Signature Block printed name of the Verifying Physician that signed the"
^DD(79,.127,21,3,0)="report being transmitted to Rad/Nuc Med via an HL7 interface to a COTS"
^DD(79,.127,21,4,0)="voice reporting system.  This parameter is only checked for COTS HL7"
^DD(79,.127,21,5,0)="interfaces that use the Generate/Process Routine 'RAHLTCPB' in the "
^DD(79,.127,21,6,0)="subscriber protocol."
^DD(79,.127,"DT")="2991001"
^DD(79,.128,0)="INTERPRETING STAFF REQ'D?^S^Y:YES;N:NO;^.1;28^Q"
^DD(79,.128,3)="Is Interpreting Staff Required for this Divison?"
^DD(79,.128,21,0)="^^3^3^2991230^^"
^DD(79,.128,21,1,0)="This field should be set to YES if you require entry of 'PRIMARY"
^DD(79,.128,21,2,0)="INTERPRETING STAFF' (file 70, field #15) to be mandatory for this"
^DD(79,.128,21,3,0)="division when entering Diagnostic data or Reports."
^DD(79,.128,"DT")="2991227"
^DD(79,.129,0)="HL7 RECEIVING APPLICATIONS^79.02PA^^HL7;0"
^DD(79,.129,21,0)="^.001^1^1^3001025^^^"
^DD(79,.129,21,1,0)="This field holds a list of pointers to the HL7 APPLICATIONS file (#771)."
^DD(79,.16,0)="AUTO USER CODE FILING^S^Y:yes;N:no;^.1;6^Q"
^DD(79,.16,.1)="SHOULD USER CODE BE AUTOMATICALLY FILLED IN?"
^DD(79,.16,3)="Enter 'Y'es if you don't want users asked for their codes when processing exams."
^DD(79,.16,10)="RAD/NUC MED COORDINATOR"
^DD(79,.16,21,0)="^^6^6^2941228^^^^"
^DD(79,.16,21,1,0)="This 'division' parameter can be set to indicate that the user should be"
^DD(79,.16,21,2,0)="asked for their access code during the processing of exams and reports of "
^DD(79,.16,21,3,0)="which various activity logs are kept.  If this parameter is set to 'Yes',"
^DD(79,.16,21,4,0)="then the system automatically uses the user code associated with the"
^DD(79,.16,21,5,0)="initial logon.  If this parameter is set to 'No', then the system asks the"
^DD(79,.16,21,6,0)="access code during each process. "
^DD(79,.16,23,0)="^^3^3^2941228^"
^DD(79,.16,23,1,0)="This field is becoming obsolete.  It was used with PDP's before the"
^DD(79,.16,23,2,0)="existence of virtual terminals.  This field should normally be set to"
^DD(79,.16,23,3,0)="'YES'."
^DD(79,.16,"DT")="2910225"
^DD(79,.17,0)="DETAILED PROCEDURE REQUIRED^S^Y:yes;N:no;^.1;7^Q"
^DD(79,.17,.1)="IS 'DETAILED' PROCEDURE REQUIRED?"
^DD(79,.17,1,0)="^.1"
^DD(79,.17,1,1,0)="79^AC^MUMPS"
^DD(79,.17,1,1,1)="D:+$$ORVR^RAORDU()>2.5 PUT^XPAR(DA_"";DIC(4,"",""RA REQUIRE DETAILED"",1,$S(X=""Y"":1,1:0))"
^DD(79,.17,1,1,2)="Q"
^DD(79,.17,1,1,3)="Do not delete."
^DD(79,.17,1,1,"%D",0)="^^4^4^2941222^"
^DD(79,.17,1,1,"%D",1,0)="     This cross-reference updates a mirror image parameter field in the"
^DD(79,.17,1,1,"%D",2,0)="OE/RR package.  OE/RR stores this parameter so that they can determine"
^DD(79,.17,1,1,"%D",3,0)="whether to allow 'Broad' type procedures to be ordered at a given"
^DD(79,.17,1,1,"%D",4,0)="division."
^DD(79,.17,1,1,"DT")="2941222"
^DD(79,.17,3)="Enter 'Y'es if a 'detailed', 'parent' or 'series' exam is required during initial exam request/registration."
^DD(79,.17,10)="RAD/NUC MED COORDINATOR"
^DD(79,.17,21,0)="^^7^7^2970320^"
^DD(79,.17,21,1,0)="This 'division' parameter can be set to 'Yes' if the entry of a"
^DD(79,.17,21,2,0)="'detailed', 'series' or 'parent' procedure type should be required during"
^DD(79,.17,21,3,0)="the initial exam registration or request."
^DD(79,.17,21,4,0)=" "
^DD(79,.17,21,5,0)="If this parameter is set to 'No', then the user can enter 'broad' procedure"
^DD(79,.17,21,6,0)="type, but this must be changed to 'detailed' or 'series' before the exam"
^DD(79,.17,21,7,0)="status can be changed to 'complete'."
^DD(79,.17,"DT")="2941222"
^DD(79,.18,0)="PRINT JACKET LBLS W/EACH VISIT^S^Y:yes;N:no;^.1;8^Q"
^DD(79,.18,.1)="SHOULD JACKET LABELS BE PRINTED WITH EACH VISIT?"
^DD(79,.18,3)="Enter 'Y'es to print jacket labels with each visit."
^DD(79,.18,10)="RAD/NUC MED COORDINATOR"
^DD(79,.18,21,0)="^^6^6^2940608^"
^DD(79,.18,21,1,0)="This 'division' parameter can be set to 'Yes' to indicate that a jacket"
^DD(79,.18,21,2,0)="label should be printed automatically during each visit."
^DD(79,.18,21,3,0)=" "
^DD(79,.18,21,4,0)="If this field is set to YES and the field 'HOW MANY JACKET LABELS PER"
^DD(79,.18,21,5,0)="VISIT' in the IMAGING LOCATIONS (79.1) file is set to zero, then the"
^DD(79,.18,21,6,0)="default will become two (i.e., two jacket labels will print out)."
^DD(79,.18,"DT")="2910225"
^DD(79,.19,0)="ASK 'CAMERA/EQUIP/RM'^S^Y:yes;N:no;^.1;9^Q"
^DD(79,.19,.1)="SHOULD 'CAMERA/EQUIP/RM' BE ASKED?"
^DD(79,.19,3)="Enter 'Y'es if user should be asked for camera/equip/rm when editing an exam."
^DD(79,.19,10)="COORDINATOR"
^DD(79,.19,21,0)="^^2^2^2940603^"
^DD(79,.19,21,1,0)="This 'division' parameter can be set to 'Yes' to indicate that the"
^DD(79,.19,21,2,0)="'camera/equip/rm' should be asked during exam editing."
^DD(79,.19,"DT")="2940603"
^DD(79,25,0)="CONTRAST REACTION MESSAGE^F^^CON;1^K:$L(X)>70!($L(X)<5) X"
^DD(79,25,.1)="SHOULD CONTRAST REACTION MESSAGE BE DISPLAYED?"
^DD(79,25,3)="Enter a warning message, between 5 and 70 characters in length, to be displayed for patients who have had a reaction to contrast medium."
^DD(79,25,10)="RAD/NUC MED COORDINATOR"
^DD(79,25,21,0)="^^7^7^2940526^^^^"
^DD(79,25,21,1,0)="This is an optional field that may contain a site-defined message to be"
^DD(79,25,21,2,0)="displayed with the warning message for patients who have had a reaction"
^DD(79,25,21,3,0)="to the contrast medium.  For example, it may contain a reminder to use"
^DD(79,25,21,4,0)="a yellow sticker for this patient's films."
^DD(79,25,21,5,0)=" "
^DD(79,25,21,6,0)="This field is only used for exams which may involve the use of contrast "
^DD(79,25,21,7,0)="medium.  The message must be 5-70 characters in length."
^DD(79,25,"DT")="2841129"
^DD(79,50,0)="IMAGING LOCATIONS^79.01P^^L;0"
^DD(79,50,.1)="IMAGING LOCATIONS SUB-FIELD"
^DD(79,50,21,0)="^^4^4^2970110^"
^DD(79,50,21,1,0)="This field points to file #79.1 to indicate"
^DD(79,50,21,2,0)="the name of the Imaging location associated with this"
^DD(79,50,21,3,0)="division."
^DD(79,50,21,4,0)="A location may be associated with only one division."
^DD(79,50,"DT")="2940608"
^DD(79,75,0)="CLINICAL HISTORY MESSAGE^F^^HIS;1^K:$L(X)>70!($L(X)<5) X"
^DD(79,75,3)="Enter a warning message, between 5 and 70 characters in length, to be displayed prior to prompting for clinical history when requesting an exam."
^DD(79,75,21,0)="^^4^4^2940526^^^^"
^DD(79,75,21,1,0)="This is an optional field that may contain a site-defined message to be"
^DD(79,75,21,2,0)="displayed with a warning message which will be displayed in"
^DD(79,75,21,3,0)="order entry, immediately proceeding the clinical history prompt."
^DD(79,75,21,4,0)="The message must be 5-70 characters in length."
^DD(79,75,"DT")="2871224"
^DD(79,100,0)="RESOURCE DEVICE^*P3.5'^%ZIS(1,^RDEV;1^S DIC(""S"")=""I $P(^(""""TYPE""""),""""^"""")=""""RES"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79,100,3)="Enter the Resource Device for this division."
^DD(79,100,12)="Only devices whose TYPE is 'Resource' may be selected."
^DD(79,100,12.1)="S DIC(""S"")=""I $P(^(""""TYPE""""),""""^"""")=""""RES"""""""
^DD(79,100,21,0)="^^10^10^2961101^"
^DD(79,100,21,1,0)="A Resource device may be entered here if the facility wishes to control"
^DD(79,100,21,2,0)="the rate at which tasked exam status updates are released to be processed."
^DD(79,100,21,3,0)="This is advised if the facility is experiencing drastic system slowdowns"
^DD(79,100,21,4,0)="due to periodic heavy use of the online report verification and batch"
^DD(79,100,21,5,0)="verification of reports options, which can queue a large number of tasks"
^DD(79,100,21,6,0)="at once.  However, if the facility chooses to enter a Resource Device in"
^DD(79,100,21,7,0)="this field, IRM should be careful to completely follow all directions in"
^DD(79,100,21,8,0)="Kernel documentation after a system crash to bring this Resource Device"
^DD(79,100,21,9,0)="back up.  Failure to follow those directions could result in Rad/Nuc Med"
^DD(79,100,21,10,0)="tasks being severely delayed, and data corruption."
^DD(79,100,"DT")="2961101"
^DD(79,125,0)="RPHARM DOSE WARNING MESSAGE^79.0125^^RWARN;0"
^DD(79,125,21,0)="^^5^5^2970110^^"
^DD(79,125,21,1,0)="This field contains the message displayed to the user when the dose falls"
^DD(79,125,21,2,0)="outside the range of the 'Low Adult Dose' and the 'High Adult Dose'"
^DD(79,125,21,3,0)="fields.  These fields reside in the Default Radiopharmaceuticals multiple"
^DD(79,125,21,4,0)="in the Rad/Nuc Med Procedures file.  Use the 'Procedure Enter/Edit' option"
^DD(79,125,21,5,0)="to adjust these values."
^DD(79,150,0)="USER PREFERS LONG DISPLAY^79.03P^^LDIS;0"
^DD(79,150,"DT")="3020716"
^DD(79,175,0)="PERF INDIC SMTP E-MAIL ADDRESS^79.0175^^1;0"
^DD(79,175,"DT")="3030808"
^DD(79,2300.1,0)="LAST DFN CONVERTED (75.1)^F^^PATCH23;1^K:$L(X)>7!($L(X)<1) X"
^DD(79,2300.1,3)="Answer must be 1-7 characters in length."
^DD(79,2300.1,21,0)="^^3^3^2940526^^"
^DD(79,2300.1,21,1,0)="This field was added with Patch 23 (RA*4*23). The value should be a number"
^DD(79,2300.1,21,2,0)="or the word 'DONE'. If the value is a number, then the data conversion"
^DD(79,2300.1,21,3,0)="routine did not complete successfully."
^DD(79,2300.1,"DT")="2931223"
^DD(79,2300.2,0)="CONVERSION START TIME (75.1)^D^^PATCH23;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(79,2300.2,3)="This is the date and time the conversion began."
^DD(79,2300.2,21,0)="^^2^2^2940526^^^^"
^DD(79,2300.2,21,1,0)="This field was added with Patch 23 (RA*4*23). It contains the date and"
^DD(79,2300.2,21,2,0)="time the data conversion for File 75.1 began."
^DD(79,2300.2,"DT")="2931223"
^DD(79,2300.3,0)="CONVERSION STOP TIME (75.1)^D^^PATCH23;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(79,2300.3,3)="This is the date and time the conversion of file #75.1 finished."
^DD(79,2300.3,21,0)="^^2^2^2940526^^^"
^DD(79,2300.3,21,1,0)="This field was added with Patch 23 (RA*4*23). It contains the date and"
^DD(79,2300.3,21,2,0)="time the data conversion for File 75.1 finished."
^DD(79,2300.3,"DT")="2931223"
^DD(79,2300.4,0)="LAST DFN CONVERTED (70)^F^^PATCH23;4^K:$L(X)>23!($L(X)<1) X"
^DD(79,2300.4,3)="Answer must be 1-23 characters in length."
^DD(79,2300.4,21,0)="^^4^4^2940526^^^^"
^DD(79,2300.4,21,1,0)="This field was added with Patch 23 (RA*4*23). The value should be a series"
^DD(79,2300.4,21,2,0)="of numbers separated by slashes (e.g., 123/456/789) or the word 'DONE'. If"
^DD(79,2300.4,21,3,0)="the value is a group of numbers, then the data conversion routine did not"
^DD(79,2300.4,21,4,0)="complete successfully."
^DD(79,2300.4,"DT")="2931223"
^DD(79,2300.5,0)="CONVERSION START TIME (70)^D^^PATCH23;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(79,2300.5,3)="This is the date and time the conversion of file #70 began."
^DD(79,2300.5,21,0)="^^2^2^2940526^^^"
^DD(79,2300.5,21,1,0)="This field was added with Patch 23 (RA*4*23). It contains the date and"
^DD(79,2300.5,21,2,0)="time the data conversion for File 70 began."
^DD(79,2300.5,"DT")="2931223"
^DD(79,2300.6,0)="CONVERSION STOP TIME (70)^D^^PATCH23;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(79,2300.6,3)="This is the date and time the conversion of file #70 finished."
^DD(79,2300.6,21,0)="^^2^2^2940526^^"
^DD(79,2300.6,21,1,0)="This field was added with Patch 23 (RA*4*23). It contains the date and"
^DD(79,2300.6,21,2,0)="time the data conversion for File 70 finished."
^DD(79,2300.6,"DT")="2931223"
^DD(79,"B","ALLOW 'RELEASED/UNVERIFIED'",.115)=""
^DD(79,"B","ALLOW BATCHING OF REPORTS",.113)=""
^DD(79,"B","ALLOW COPYING OF REPORTS",.114)=""
^DD(79,"B","ALLOW E-SIG ON COTS HL7 RPTS",.127)=""
^DD(79,"B","ALLOW RPTS ON CANCELLED CASES?",.122)=""
^DD(79,"B","ALLOW STANDARD REPORTS",.112)=""
^DD(79,"B","ALLOW VERIFYING BY RESIDENTS",.118)=""
^DD(79,"B","ASK 'CAMERA/EQUIP/RM'",.19)=""
^DD(79,"B","ASK 'IMAGING LOCATION'",.121)=""
^DD(79,"B","ASK 'REQUESTED DATE'",.117)=""
^DD(79,"B","ASK EXAM STATUS TIME",.111)=""
^DD(79,"B","AUTO E-MAIL TO REQ. PHYS?",.126)=""
^DD(79,"B","AUTO USER CODE FILING",.16)=""
^DD(79,"B","CLINICAL HISTORY MESSAGE",75)=""
^DD(79,"B","CONTRAST REACTION MESSAGE",25)=""
^DD(79,"B","CONVERSION START TIME (70)",2300.5)=""
^DD(79,"B","CONVERSION START TIME (75.1)",2300.2)=""
^DD(79,"B","CONVERSION STOP TIME (70)",2300.6)=""
^DD(79,"B","CONVERSION STOP TIME (75.1)",2300.3)=""
^DD(79,"B","DETAILED PROCEDURE REQUIRED",.17)=""
^DD(79,"B","DIVISION",.01)=""
^DD(79,"B","HL7 RECEIVING APPLICATIONS",.129)=""
^DD(79,"B","IMAGING LOCATIONS",50)=""
^DD(79,"B","IMAGING LOCATIONS SUB-FIELD",50)="1"
^DD(79,"B","IMPRESSION REQUIRED ON REPORTS",.116)=""
^DD(79,"B","INTERPRETING STAFF REQ'D?",.128)=""
^DD(79,"B","LAST DFN CONVERTED (70)",2300.4)=""
^DD(79,"B","LAST DFN CONVERTED (75.1)",2300.1)=""
^DD(79,"B","PERF INDIC SMTP E-MAIL ADDRESS",175)=""
^DD(79,"B","PRINT FLASH CARD FOR EACH EXAM",.12)=""
^DD(79,"B","PRINT JACKET LBLS W/EACH VISIT",.18)=""
^DD(79,"B","RESOURCE DEVICE",100)=""
^DD(79,"B","RPHARM DOSE WARNING MESSAGE",125)=""
^DD(79,"B","TIME LIMIT FOR FUTURE EXAMS",.124)=""
^DD(79,"B","TRACK EXAM STATUS CHANGES",.11)=""
^DD(79,"B","TRACK REQUEST STATUS CHANGES",.119)=""
^DD(79,"B","USER PREFERS LONG DISPLAY",150)=""
^DD(79,"B","WARNING ON RPTS NOT YET VERIF?",.125)=""
^DD(79,"GL",0,1,.01)=""
^DD(79,"GL",.1,2,.12)=""
^DD(79,"GL",.1,6,.16)=""
^DD(79,"GL",.1,7,.17)=""
^DD(79,"GL",.1,8,.18)=""
^DD(79,"GL",.1,9,.19)=""
^DD(79,"GL",.1,10,.11)=""
^DD(79,"GL",.1,11,.111)=""
^DD(79,"GL",.1,12,.112)=""
^DD(79,"GL",.1,13,.113)=""
^DD(79,"GL",.1,14,.114)=""
^DD(79,"GL",.1,15,.115)=""
^DD(79,"GL",.1,16,.116)=""
^DD(79,"GL",.1,17,.117)=""
^DD(79,"GL",.1,18,.118)=""
^DD(79,"GL",.1,19,.119)=""
^DD(79,"GL",.1,21,.121)=""
^DD(79,"GL",.1,22,.122)=""
^DD(79,"GL",.1,24,.124)=""
^DD(79,"GL",.1,25,.125)=""
^DD(79,"GL",.1,26,.126)=""
^DD(79,"GL",.1,27,.127)=""
^DD(79,"GL",.1,28,.128)=""
^DD(79,"GL",1,0,175)=""
^DD(79,"GL","CON",1,25)=""
^DD(79,"GL","HIS",1,75)=""
^DD(79,"GL","HL7",0,.129)=""
^DD(79,"GL","L",0,50)=""
^DD(79,"GL","LDIS",0,150)=""
^DD(79,"GL","PATCH23",1,2300.1)=""
^DD(79,"GL","PATCH23",2,2300.2)=""
^DD(79,"GL","PATCH23",3,2300.3)=""
^DD(79,"GL","PATCH23",4,2300.4)=""
^DD(79,"GL","PATCH23",5,2300.5)=""
^DD(79,"GL","PATCH23",6,2300.6)=""
^DD(79,"GL","RDEV",1,100)=""
^DD(79,"GL","RWARN",0,125)=""
^DD(79,"IX",.01)=""
^DD(79,"IX",.121)=""
^DD(79,"IX",.17)=""
^DD(79,"RQ",.01)=""
^DD(79,"SB",79.01,50)=""
^DD(79,"SB",79.0125,125)=""
^DD(79,"SB",79.0175,175)=""
^DD(79,"SB",79.02,.129)=""
^DD(79,"SB",79.03,150)=""
^DD(79.01,0)="IMAGING LOCATIONS SUB-FIELD^NL^.01^1"
^DD(79.01,0,"IX","B",79.01,.01)=""
^DD(79.01,0,"NM","IMAGING LOCATIONS")=""
^DD(79.01,0,"UP")="79"
^DD(79.01,.01,0)="IMAGING LOCATION^MP79.1X^RA(79.1,^0;1^X ^DD(79.01,.01,9.2) K RADIV I $D(X) S DINUM=X"
^DD(79.01,.01,.1)="IMAGING LOCATION ASSOCIATED WITH THIS DIVISION"
^DD(79.01,.01,1,0)="^.1^^-1"
^DD(79.01,.01,1,1,0)="79.01^B"
^DD(79.01,.01,1,1,1)="S ^RA(79,DA(1),""L"",""B"",$E(X,1,30),DA)="""""
^DD(79.01,.01,1,1,2)="K ^RA(79,DA(1),""L"",""B"",$E(X,1,30),DA)"
^DD(79.01,.01,1,1,"%D",0)="^^1^1^2940518^"
^DD(79.01,.01,1,1,"%D",1,0)="     Regular filewide 'B' cross reference assigned by FileMan."
^DD(79.01,.01,1,2,0)="79^AL"
^DD(79.01,.01,1,2,1)="S ^RA(79,""AL"",$E(X,1,30),DA(1),DA)="""""
^DD(79.01,.01,1,2,2)="K ^RA(79,""AL"",$E(X,1,30),DA(1),DA)"
^DD(79.01,.01,1,2,"%D",0)="^^2^2^2940609^"
^DD(79.01,.01,1,2,"%D",1,0)="Allows the generation of a list of Imaging Locations associated with a"
^DD(79.01,.01,1,2,"%D",2,0)="Rad/Nuc Med Division."
^DD(79.01,.01,1,3,0)="^^TRIGGER^79.1^25"
^DD(79.01,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(79.01,.01,1,3,9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=Y(1) S DIU=X K Y X ^DD(79.01,.01,1,3,1.1) X ^DD(79.01,.01,1,3,1.4)"
^DD(79.01,.01,1,3,1.1)="S X=DIV S Y(1)=$S($D(^RA(79,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X"
^DD(79.01,.01,1,3,1.4)="S DIH=$S($D(^RA(79.1,DIV(0),""DIV"")):^(""DIV""),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(""DIV"")=DIV_$S(%]"""":U_%,1:""""),DIH=79.1,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(79.01,.01,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(79.01,.01,1,3,9.2) S X=$S('$D(^DIC(4,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=Y(1) S DIU=X K Y S X=DIV S X="""" X ^DD(79.01,.01,1,3,2.4)"
^DD(79.01,.01,1,3,2.4)="S DIH=$S($D(^RA(79.1,DIV(0),""DIV"")):^(""DIV""),1:""""),DIV=X I $D(^(0)) S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(""DIV"")=DIV_$S(%]"""":U_%,1:""""),DIH=79.1,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(79.01,.01,1,3,9.2)="S Y(1)=$S($D(D0):D0,1:""""),D0=X S:'$D(^RA(79.1,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^RA(79.1,D0,""DIV"")):^(""DIV""),1:"""")"
^DD(79.01,.01,1,3,"%D",0)="^^2^2^2940518^"
^DD(79.01,.01,1,3,"%D",1,0)="     Triggers entries into the Radiology/Nuclear Medicine Division field"
^DD(79.01,.01,1,3,"%D",2,0)="in the Radiology/Nuclear Medicine Location file."
^DD(79.01,.01,1,3,"CREATE VALUE")="INTERNAL(DIVISION)"
^DD(79.01,.01,1,3,"DELETE VALUE")="@"
^DD(79.01,.01,1,3,"FIELD")="#.01:#25"
^DD(79.01,.01,3)="Enter a location for this division."
^DD(79.01,.01,9.2)="I $D(^RA(79,""AL"",X)) S RADIV=$O(^(X,0)) Q:RADIV'>0  I RADIV'=DA(1) W !!,""Location is already assigned to the "",$S($D(^DIC(4,RADIV,0)):$P(^(0),U,1),1:""Unknown""),"" division!"" K X"
^DD(79.01,.01,10)="RAD/NUC MED COORDINATOR"
^DD(79.01,.01,21,0)="^^4^4^2970110^^^"
^DD(79.01,.01,21,1,0)="This field points to file #79.1 to indicate"
^DD(79.01,.01,21,2,0)="the name of the Imaging location associated with this"
^DD(79.01,.01,21,3,0)="division."
^DD(79.01,.01,21,4,0)="A location may be associated with only one division."
^DD(79.01,.01,"DT")="2940608"
^DD(79.01,"B","IMAGING LOCATION",.01)=""
^DD(79.01,"GL",0,1,.01)=""
^DD(79.01,"IX",.01)=""
^DD(79.0125,0)="RPHARM DOSE WARNING MESSAGE SUB-FIELD^^.01^1"
^DD(79.0125,0,"DT")="2970110"
^DD(79.0125,0,"NM","RPHARM DOSE WARNING MESSAGE")=""
^DD(79.0125,0,"UP")="79"
^DD(79.0125,.01,0)="RPHARM DOSE WARNING MESSAGE^W^^0;1^Q"
^DD(79.0125,.01,3)="Enter the message displayed to the user when the dosage entered falls outside the limits imposed by the Default Radiopharamaceutical parameters for this procedure."
^DD(79.0125,.01,21,0)="^^5^5^2970110^^"
^DD(79.0125,.01,21,1,0)="This field contains the message displayed to the user when the dose falls"
^DD(79.0125,.01,21,2,0)="outside the range of the 'Low Adult Dose' and the 'High Adult Dose'"
^DD(79.0125,.01,21,3,0)="fields.  These fields reside in the Default Radiopharmaceuticals multiple"
^DD(79.0125,.01,21,4,0)="in the Rad/Nuc Med Procedures file.  Use the 'Procedure Enter/Edit' option"
^DD(79.0125,.01,21,5,0)="to adjust these values."
^DD(79.0125,.01,"DT")="2970110"
^DD(79.0125,"B","RPHARM DOSE WARNING MESSAGE",.01)=""
^DD(79.0125,"GL",0,1,.01)=""
^DD(79.0175,0)="PERF INDIC SMTP E-MAIL ADDRESS SUB-FIELD^^1^2"
^DD(79.0175,0,"DT")="3030808"
^DD(79.0175,0,"IX","B",79.0175,.01)=""
^DD(79.0175,0,"NM","PERF INDIC SMTP E-MAIL ADDRESS")=""
^DD(79.0175,0,"UP")="79"
^DD(79.0175,.01,0)="PERF INDC SMTP E-MAIL ADDRESS^MF^^0;1^K:$L(X)>60!($L(X)<12) X"
^DD(79.0175,.01,.1)="PERF INDIC SMTP MAIL ADDRESS"
^DD(79.0175,.01,1,0)="^.1"
^DD(79.0175,.01,1,1,0)="79.0175^B"
^DD(79.0175,.01,1,1,1)="S ^RA(79,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(79.0175,.01,1,1,2)="K ^RA(79,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(79.0175,.01,3)="Enter ""??"" for more info on SMTP addresses.  Length of address must be between 12 and 60 characters."
^DD(79.0175,.01,21,0)="^.001^30^30^3051212^^^^"
^DD(79.0175,.01,21,1,0)="  "
^DD(79.0175,.01,21,2,0)="This is the SMTP address for the OUTLOOK mail group or person who should"
^DD(79.0175,.01,21,3,0)="receive the Radiology Performance Indicator Summary Report.  The SMTP "
^DD(79.0175,.01,21,4,0)="address is the form of the e-mail address that a user from the Internet "
^DD(79.0175,.01,21,5,0)="would use when sending e-mail to Outlook."
^DD(79.0175,.01,21,6,0)=" "
^DD(79.0175,.01,21,7,0)="The SMTP address of the mail group or user can be found as follows from "
^DD(79.0175,.01,21,8,0)="the OUTLOOK Address Book:"
^DD(79.0175,.01,21,9,0)="   1. Double click on the name of the Mail Group or person"
^DD(79.0175,.01,21,10,0)="      from the Outlook Address Book"
^DD(79.0175,.01,21,11,0)="   2. Select the ""E-mail Addresses"" tab"
^DD(79.0175,.01,21,12,0)="   3. The SMTP address is displayed after the first ""SMTP:"" line."
^DD(79.0175,.01,21,13,0)="      It will have the format <name>@med.va.gov"
^DD(79.0175,.01,21,14,0)=" "
^DD(79.0175,.01,21,15,0)="For example:"
^DD(79.0175,.01,21,16,0)="   In the address book, there's a group name called ""VAH FAKE Report""."
^DD(79.0175,.01,21,17,0)="   To find that group name's SMTP address from OUTLOOK:"
^DD(79.0175,.01,21,18,0)="      1. Tools --> Address Book"
^DD(79.0175,.01,21,19,0)="      2. Enter  VAH FAKE Report  inside the box called"
^DD(79.0175,.01,21,20,0)="           ""Type Name or Select from List:"""
^DD(79.0175,.01,21,21,0)="      3. A new screen entitled ""VAH FAKE Report Properties"" should be "
^DD(79.0175,.01,21,22,0)="            displayed."
^DD(79.0175,.01,21,23,0)="      4. Click on the tab entitled ""E-mail Addresses"""
^DD(79.0175,.01,21,24,0)="      5. A new box should be displayed."
^DD(79.0175,.01,21,25,0)="      6. The ""SMTP:"" line would have the SMTP address for ""VAH FAKE"
^DD(79.0175,.01,21,26,0)="         Report"".  It would be something like:  VAHFAKEReport@va.med.gov"
^DD(79.0175,.01,21,27,0)="         Note:"
^DD(79.0175,.01,21,28,0)="         If there is an ""SMTP:"" line and another ""smtp:"" line, use"
^DD(79.0175,.01,21,29,0)="         the SMTP address from the all caps ""SMTP:"" line."
^DD(79.0175,.01,21,30,0)="      7. The e-mail address you enter MUST end in @med.va.gov"
^DD(79.0175,.01,"DT")="3030808"
^DD(79.0175,1,0)="OQP PERFORMANCE MGMT?^S^Y:YES;N:NO;^0;2^Q"
^DD(79.0175,1,3)="Enter  Y  if this address is for Headquarters, so that it will not receive manually initiated reports, but will only receive the automatic mid-month report."
^DD(79.0175,1,21,0)="^^14^14^3050808^"
^DD(79.0175,1,21,1,0)="This field is used to flag the Outlook SMTP address for Headquarters."
^DD(79.0175,1,21,2,0)=" "
^DD(79.0175,1,21,3,0)="The performance indicator options will check this field to determine "
^DD(79.0175,1,21,4,0)="if a report should be sent to the corresponding SMTP address."
^DD(79.0175,1,21,5,0)=" "
^DD(79.0175,1,21,6,0)="If this field is ""Y"", then the corresponding SMTP address would "
^DD(79.0175,1,21,7,0)="receive the automatic mid-month report.  But it will only receive"
^DD(79.0175,1,21,8,0)="manually initiated reports if that report was requested for "
^DD(79.0175,1,21,9,0)="(1) a full month's data (any full month in the past), and "
^DD(79.0175,1,21,10,0)="(2) the user replies ""Y"" to the question about sending the output "
^DD(79.0175,1,21,11,0)="to ""OQP Performance Mgmt""."
^DD(79.0175,1,21,12,0)=" "
^DD(79.0175,1,21,13,0)="If this field is ""N"", then the corresponding SMTP address would"
^DD(79.0175,1,21,14,0)="receive all reports, whether automatic or manually initiated."
^DD(79.0175,1,"DT")="3050805"
^DD(79.0175,"B","OQP PERFORMANCE MGMT?",1)=""
^DD(79.0175,"B","PERF INDC SMTP E-MAIL ADDRESS",.01)=""
^DD(79.0175,"B","PERF INDIC SMTP MAIL ADDRESS",.01)="1"
^DD(79.0175,"GL",0,1,.01)=""
^DD(79.0175,"GL",0,2,1)=""
^DD(79.0175,"IX",.01)=""
^DD(79.02,0)="HL7 RECEIVING APPLICATIONS SUB-FIELD^^.01^1"
^DD(79.02,0,"DT")="3001025"
^DD(79.02,0,"IX","B",79.02,.01)=""
^DD(79.02,0,"NM","HL7 RECEIVING APPLICATIONS")=""
^DD(79.02,0,"UP")="79"
^DD(79.02,.01,0)="HL7 RECEIVING APPLICATION^M*P771'^HL(771,^0;1^S DIC(""S"")=""I $$GET1^DIQ(771,+Y,.01)[""""RA-"""",$$GET1^DIQ(771,+Y,2)=""""ACTIVE"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79.02,.01,1,0)="^.1"
^DD(79.02,.01,1,1,0)="79.02^B"
^DD(79.02,.01,1,1,1)="S ^RA(79,DA(1),""HL7"",""B"",$E(X,1,30),DA)="""""
^DD(79.02,.01,1,1,2)="K ^RA(79,DA(1),""HL7"",""B"",$E(X,1,30),DA)"
^DD(79.02,.01,3)="Enter an HL7 APPLICATION to receive messages from this DIVISION."
^DD(79.02,.01,12)="Selection limited to Active Radiology HL7 Applications only"
^DD(79.02,.01,12.1)="S DIC(""S"")=""I $$GET1^DIQ(771,+Y,.01)[""""RA-"""",$$GET1^DIQ(771,+Y,2)=""""ACTIVE"""""""
^DD(79.02,.01,21,0)="^^15^15^3001025^"
^DD(79.02,.01,21,1,0)="Pointer to the HL7 APPLICATIONS file (#771)."
^DD(79.02,.01,21,2,0)=" "
^DD(79.02,.01,21,3,0)="If the Radiology HL7 Subscriber protocols (file #101) have been "
^DD(79.02,.01,21,4,0)="setup to use ROUTING LOGIC, then HL7 RECEIVING APPLICATIONS should "
^DD(79.02,.01,21,5,0)="be defined. This DIVISION will then send HL7 messages to the HL7 "
^DD(79.02,.01,21,6,0)="RECEIVING APPLICATIONS defined only."
^DD(79.02,.01,21,7,0)=" "
^DD(79.02,.01,21,8,0)="If no HL7 RECEIVING APPLICATIONS are set when ROUTING LOGIC is being "
^DD(79.02,.01,21,9,0)="used, no HL7 messages will be created for this DIVISION."
^DD(79.02,.01,21,10,0)=" "
^DD(79.02,.01,21,11,0)="If ROUTING LOGIC is not being used and no HL7 RECEIVING APPLICATIONS"
^DD(79.02,.01,21,12,0)="are set, then messages will be sent to all Radiology Subscriber "
^DD(79.02,.01,21,13,0)="protocols, as normal."
^DD(79.02,.01,21,14,0)=" "
^DD(79.02,.01,21,15,0)="If in doubt, do not put entries in this field."
^DD(79.02,.01,23,0)="^^6^6^3001025^"
^DD(79.02,.01,23,1,0)="Entries in this field will be ineffectual unless the Radiology HL7 "
^DD(79.02,.01,23,2,0)="routing routine (^RAHLROUT) is specified in the ROUTING LOGIC field "
^DD(79.02,.01,23,3,0)="of the appropriate subscriber PROTOCOLs (File #101)."
^DD(79.02,.01,23,4,0)=" "
^DD(79.02,.01,23,5,0)="Refer to the Radiology/Nuclear Medicine HL7 Interfaces Specification"
^DD(79.02,.01,23,6,0)="document for more details."
^DD(79.02,.01,"DT")="3001025"
^DD(79.02,"B","HL7 RECEIVING APPLICATION",.01)=""
^DD(79.02,"GL",0,1,.01)=""
^DD(79.02,"IX",.01)=""
^DD(79.03,0)="USER PREFERS LONG DISPLAY SUB-FIELD^^.01^1"
^DD(79.03,0,"DT")="3020716"
^DD(79.03,0,"IX","B",79.03,.01)=""
^DD(79.03,0,"NM","USER PREFERS LONG DISPLAY")=""
^DD(79.03,0,"UP")="79"
^DD(79.03,.01,0)="USER PREFERS LONG DISPLAY^MP200'^VA(200,^0;1^Q"
^DD(79.03,.01,1,0)="^.1"
^DD(79.03,.01,1,1,0)="79.03^B"
^DD(79.03,.01,1,1,1)="S ^RA(79,DA(1),""LDIS"",""B"",$E(X,1,30),DA)="""""
^DD(79.03,.01,1,1,2)="K ^RA(79,DA(1),""LDIS"",""B"",$E(X,1,30),DA)"
^DD(79.03,.01,3)="Enter name of user who prefers the long display of procedures in Radiology reports."
^DD(79.03,.01,21,0)="^^5^5^3020716^"
^DD(79.03,.01,21,1,0)="This multiple field will store names of users who prefer to see the "
^DD(79.03,.01,21,2,0)="long (or traditional) display of procedure, procedure modifiers, and "
^DD(79.03,.01,21,3,0)="CPT modifiers in all reports where they are displayed."
^DD(79.03,.01,21,4,0)=" "
^DD(79.03,.01,21,5,0)="Data will be entered by a Radiology package option."
^DD(79.03,.01,"DT")="3020716"
^DD(79.03,"B","USER PREFERS LONG DISPLAY",.01)=""
^DD(79.03,"GL",0,1,.01)=""
^DD(79.03,"IX",.01)=""
^DD(79.1,0)="FIELD^^150^29"
^DD(79.1,0,"DDA")="N"
^DD(79.1,0,"DT")="2970626"
^DD(79.1,0,"ID",6)="D EN^DDIOL($$GETID^RADD3(+Y),"""",""?32"")"
^DD(79.1,0,"IX","B",79.1,.01)=""
^DD(79.1,0,"IX","BIMG",79.1,6)=""
^DD(79.1,0,"NM","IMAGING LOCATIONS")=""
^DD(79.1,0,"PT",70.02,4)=""
^DD(79.1,0,"PT",71.3,8)=""
^DD(79.1,0,"PT",74,86)=""
^DD(79.1,0,"PT",75.1,20)=""
^DD(79.1,0,"PT",79.01,.01)=""
^DD(79.1,0,"PT",200.074,.01)=""
^DD(79.1,0,"PT",727.814,11)=""
^DD(79.1,0,"VR")="5.0"
^DD(79.1,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(79.1,.01,0)="LOCATION^R*P44I^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""",'$D(^(""""I"""")),($D(^RAMIS(71.5,""""B"""",+$P(^(0),U,7))))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79.1,.01,.1)="IMAGING LOCATION"
^DD(79.1,.01,1,0)="^.1^^-1"
^DD(79.1,.01,1,1,0)="79.1^B"
^DD(79.1,.01,1,1,1)="S ^RA(79.1,""B"",$E(X,1,30),DA)="""""
^DD(79.1,.01,1,1,2)="K ^RA(79.1,""B"",$E(X,1,30),DA)"
^DD(79.1,.01,1,1,3)="DO NOT DELETE"
^DD(79.1,.01,1,1,"%D",0)="^^1^1^2950111^^"
^DD(79.1,.01,1,1,"%D",1,0)="     Regular 'B' cross reference assigned by FileMan."
^DD(79.1,.01,3)="Select the appropriate location."
^DD(79.1,.01,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,.01,12)="Entry must be an active ""Clinic"" type with a valid imaging Stop Code in the Hospital Location file."
^DD(79.1,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""",'$D(^(""""I"""")),($D(^RAMIS(71.5,""""B"""",+$P(^(0),U,7))))"""
^DD(79.1,.01,21,0)="^.001^11^11^3030805^^^^"
^DD(79.1,.01,21,1,0)="This field points to the Hospital Location File, and contains the name of"
^DD(79.1,.01,21,2,0)="this location.  The Hospital Location pointed to should be a COUNT clinic,"
^DD(79.1,.01,21,3,0)="with a type of 'CLINIC', and should be a clinic that prohibits making"
^DD(79.1,.01,21,4,0)="appointments or creating appointment patterns.  The Stop Code of the"
^DD(79.1,.01,21,5,0)="clinic in file #44 should be a valid imaging stop code (i.e. an entry in"
^DD(79.1,.01,21,6,0)="file #71.5) and should match the DSS ID field #22 of the Imaging Location"
^DD(79.1,.01,21,7,0)="in file #79.1.  The Institution of this clinic in file #44 should match"
^DD(79.1,.01,21,8,0)="the Rad/Nuc Med Division to which this Imaging Location is assigned."
^DD(79.1,.01,21,9,0)=" "
^DD(79.1,.01,21,10,0)="Coordination with MAS personnel is necessary to add locations to the"
^DD(79.1,.01,21,11,0)="Hospital Location file."
^DD(79.1,.01,23,0)="^.001^1^1^3030805^^"
^DD(79.1,.01,23,1,0)="Cannot edit this field through FileMan, part of patch RA*5*42."
^DD(79.1,.01,"DEL",1,0)="I 1 W !?5,$C(7),""Imaging Locations CANNOT be deleted!"""
^DD(79.1,.01,"DT")="3030805"
^DD(79.1,2,0)="HOW MANY FLASH CARDS PER VISIT^NJ2,0^^0;2^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(79.1,2,.1)="HOW MANY FLASH CARDS TO PRINT PER VISIT?"
^DD(79.1,2,3)="Enter a number, between 0 and 10, for the number of flash cards to print per patient visit."
^DD(79.1,2,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,2,21,0)="^^4^4^2940719^"
^DD(79.1,2,21,1,0)="This imaging 'locations' parameter is used to set up the number of flash"
^DD(79.1,2,21,2,0)="cards to print per patient visit.  It must contain a whole number"
^DD(79.1,2,21,3,0)="between 0 and 10.  If the Division parameter 'Print Flash Card for each"
^DD(79.1,2,21,4,0)="exam' is set to 'Yes', this location parameter is ignored."
^DD(79.1,3,0)="FLASH CARD PRINTER NAME^P3.5'^%ZIS(1,^0;3^Q"
^DD(79.1,3,.1)="NAME OF THE DEVICE TO PRINT FLASH CARDS ON"
^DD(79.1,3,3)="Select the device where the flash cards and exam labels are to be printed."
^DD(79.1,3,4)=""
^DD(79.1,3,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,3,21,0)="^^4^4^2940526^"
^DD(79.1,3,21,1,0)="This 'locations' parameter can contain the device name (1-20 characters)"
^DD(79.1,3,21,2,0)="that flash cards and exam labels are to be printed on.  If this field is"
^DD(79.1,3,21,3,0)="filled in, the system automatically queues the process and the user is not"
^DD(79.1,3,21,4,0)="asked the device question."
^DD(79.1,3,"DT")="2960207"
^DD(79.1,4,0)="HOW MANY JACKET LBLS PER VISIT^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(79.1,4,.1)="HOW MANY JACKET LABELS TO PRINT PER VISIT?"
^DD(79.1,4,3)="Enter a number, between 0 and 10, for the number of jacket labels to print per patient visit."
^DD(79.1,4,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,4,21,0)="^^3^3^2940526^"
^DD(79.1,4,21,1,0)="This 'locations' parameter is used to set up the number of jacket labels"
^DD(79.1,4,21,2,0)="to print per patient visit."
^DD(79.1,4,21,3,0)="It must contain a whole number between 0 and 10."
^DD(79.1,5,0)="JACKET LABEL PRINTER NAME^P3.5'^%ZIS(1,^0;5^Q"
^DD(79.1,5,.1)="NAME OF THE DEVICE TO PRINT JACKET LABELS ON"
^DD(79.1,5,3)="Select the device where the jacket labels are to be printed."
^DD(79.1,5,4)=""
^DD(79.1,5,10)="SITE MANAGER"
^DD(79.1,5,21,0)="^^4^4^2940526^"
^DD(79.1,5,21,1,0)="This 'locations' parameter can contain the device name (1-20 characters)"
^DD(79.1,5,21,2,0)="that the jacket labels are to be printed on.  If this field is filled in,"
^DD(79.1,5,21,3,0)="the system automatically queues the process and the user is not asked the"
^DD(79.1,5,21,4,0)="device question."
^DD(79.1,5,"DT")="2960207"
^DD(79.1,6,0)="TYPE OF IMAGING^RP79.2'X^RA(79.2,^0;6^D:'$D(^RA(79.1,""BIMG"",+Y)) EN1^RAUTL14 Q"
^DD(79.1,6,.1)="THE TYPE OF IMAGING USED FOR THE EXAM"
^DD(79.1,6,1,0)="^.1"
^DD(79.1,6,1,1,0)="79.1^BIMG"
^DD(79.1,6,1,1,1)="S ^RA(79.1,""BIMG"",$E(X,1,30),DA)="""""
^DD(79.1,6,1,1,2)="K ^RA(79.1,""BIMG"",$E(X,1,30),DA)"
^DD(79.1,6,1,1,3)="DO NOT DELETE"
^DD(79.1,6,1,1,"%D",0)="^^2^2^2950111^"
^DD(79.1,6,1,1,"%D",1,0)="Used to determine if a given Imaging Type is assigned to one or more"
^DD(79.1,6,1,1,"%D",2,0)="locations."
^DD(79.1,6,1,1,"DT")="2940809"
^DD(79.1,6,3)="Enter an imaging type for this location."
^DD(79.1,6,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,6,21,0)="^^17^17^2950328^^^"
^DD(79.1,6,21,1,0)="This 'locations' parameter can contain the name of the type of imaging"
^DD(79.1,6,21,2,0)="from the 'Imaging Type' file.  If this field is filled in, the system"
^DD(79.1,6,21,3,0)="automatically fills in the proper imaging type on the registration record."
^DD(79.1,6,21,4,0)=" "
^DD(79.1,6,21,5,0)="Assigning an new imaging type (i.e. one not previously selected for any"
^DD(79.1,6,21,6,0)="other location) implies that procedures of the new imaging type are"
^DD(79.1,6,21,7,0)="performed under a separate service or section at your site, and separate"
^DD(79.1,6,21,8,0)="workload report is desired. For instance, at some sites Ultrasound may be"
^DD(79.1,6,21,9,0)="done separately from Radiology, and it would be appropriate to assign the"
^DD(79.1,6,21,10,0)="'Ultrasound' imaging type to one or more locations.  Once the 'Ultrasound'"
^DD(79.1,6,21,11,0)="imaging type is ""activated"" in this way, and procedures designated as"
^DD(79.1,6,21,12,0)="'Ultrasound' imaging type have been registered, the system will report"
^DD(79.1,6,21,13,0)="Ultrasound workload separately from Radiology workload."
^DD(79.1,6,21,14,0)=" "
^DD(79.1,6,21,15,0)="NOTE:  The 'Cardiology Studies' imaging type should NOT be assigned to a"
^DD(79.1,6,21,16,0)="location unless nuclear cardiology studies are done under a service other"
^DD(79.1,6,21,17,0)="than Nuclear Medicine."
^DD(79.1,6,"DT")="2950328"
^DD(79.1,7,0)="DEFAULT FLASH CARD FORMAT^P78.2'^RA(78.2,^0;7^Q"
^DD(79.1,7,.1)="DEFAULT FLASH CARD FORMAT TO PRINT"
^DD(79.1,7,3)="Enter the default flash card format for this location."
^DD(79.1,7,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,7,21,0)="^^3^3^2940526^"
^DD(79.1,7,21,1,0)="This 'locations' parameter can contain the default format (from the 'Flash"
^DD(79.1,7,21,2,0)="Cards Formats' file) to be used when queueing a flash card to print.  This"
^DD(79.1,7,21,3,0)="format is the default 'flash card' for the current location."
^DD(79.1,7,"DT")="2841001"
^DD(79.1,8,0)="HOW MANY EXAM LABELS PER EXAM^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(79.1,8,.1)="HOW MANY EXAM LABELS TO PRINT PER CASE?"
^DD(79.1,8,3)="Enter a number, between 0 and 10, for the number of exam labels to print per registered case."
^DD(79.1,8,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,8,21,0)="^^3^3^2970723^"
^DD(79.1,8,21,1,0)="This imaging location parameter is used to set up the number of exam"
^DD(79.1,8,21,2,0)="labels to print per registered case.  It must contain a whole number"
^DD(79.1,8,21,3,0)="between 0 and 9."
^DD(79.1,8,"DT")="2970723"
^DD(79.1,9,0)="DEFAULT EXAM LABEL FORMAT^P78.2'^RA(78.2,^0;9^Q"
^DD(79.1,9,.1)="DEFAULT EXAM LABEL FORMAT TO PRINT"
^DD(79.1,9,3)="Enter an exam label format to be used as the default format for this location."
^DD(79.1,9,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,9,21,0)="^^5^5^2940608^"
^DD(79.1,9,21,1,0)="This imaging 'locations' parameter can contain the default format (from"
^DD(79.1,9,21,2,0)="the 'Flash Cards Formats File') to be used when queueing an exam label to"
^DD(79.1,9,21,3,0)="print.  This format is the default 'exam label' for the current location."
^DD(79.1,9,21,4,0)=" "
^DD(79.1,9,21,5,0)="Exam labels always print after flash card labels are printed."
^DD(79.1,9,"DT")="2841120"
^DD(79.1,10,0)="REPORT PRINTER NAME^P3.5'^%ZIS(1,^0;10^Q"
^DD(79.1,10,.1)="NAME OF THE DEVICE TO PRINT REPORTS ON"
^DD(79.1,10,3)="Select a device where the reports are to be printed."
^DD(79.1,10,4)=""
^DD(79.1,10,10)="SITE MANAGER"
^DD(79.1,10,21,0)="^^4^4^2940526^"
^DD(79.1,10,21,1,0)="This 'locations' parameter can contain the device name (1-20 characters)"
^DD(79.1,10,21,2,0)="that reports are to be printed on.  If this field is filled in, the system"
^DD(79.1,10,21,3,0)="automatically queues the process and the user is not asked the device"
^DD(79.1,10,21,4,0)="question."
^DD(79.1,10,"DT")="2960207"
^DD(79.1,11,0)="DEFAULT JACKET LABEL FORMAT^P78.2'^RA(78.2,^0;11^Q"
^DD(79.1,11,.1)="DEFAULT JACKET LABEL FORMAT TO PRINT"
^DD(79.1,11,3)="Enter a format for jacket labels to be used as the default format for this location."
^DD(79.1,11,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,11,21,0)="^^3^3^2940526^"
^DD(79.1,11,21,1,0)="This 'locations' parameter can contain the default format (from the 'Flash"
^DD(79.1,11,21,2,0)="Cards Formats' file) to be used when queueing a jacket label to print."
^DD(79.1,11,21,3,0)="This format is the default 'jacket label' for the current location."
^DD(79.1,11,"DT")="2841130"
^DD(79.1,12,0)="DEFAULT REPORT HEADER FORMAT^P78.2'^RA(78.2,^0;12^Q"
^DD(79.1,12,.1)="DEFAULT REPORT HEADER FORMAT TO PRINT"
^DD(79.1,12,3)="Enter a default report header for this location."
^DD(79.1,12,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,12,21,0)="^^3^3^2940526^"
^DD(79.1,12,21,1,0)="This 'locations' parameter can contain the default format (from the 'Flash"
^DD(79.1,12,21,2,0)="Cards Formats' file) to be used when queing a report to print. This format"
^DD(79.1,12,21,3,0)="is the default 'header' for the current location."
^DD(79.1,12,"DT")="2850305"
^DD(79.1,13,0)="DEFAULT REPORT FOOTER FORMAT^P78.2'^RA(78.2,^0;13^Q"
^DD(79.1,13,.1)="DEFAULT REPORT FOOTER FORMAT TO PRINT"
^DD(79.1,13,3)="Enter a default report footer for this location."
^DD(79.1,13,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,13,21,0)="^^3^3^2940526^"
^DD(79.1,13,21,1,0)="This 'locations' parameter can contain the default format (from the 'Flash"
^DD(79.1,13,21,2,0)="Cards Formats' file) to be used when queing a report to print. This format"
^DD(79.1,13,21,3,0)="is the default 'footer' for the current location."
^DD(79.1,14,0)="REPORT LEFT MARGIN^NJ2,0^^0;14^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(79.1,14,.1)="LEFT MARGIN FOR REPORT TEXT"
^DD(79.1,14,3)="Enter a number, between 0 and 20, to indicate which column the text fields should begin printing."
^DD(79.1,14,21,0)="^^3^3^2940526^^^^"
^DD(79.1,14,21,1,0)="This field indicates which column the text for 'clinical history',"
^DD(79.1,14,21,2,0)="'report' and 'impression' should start at when printing the report."
^DD(79.1,14,21,3,0)="Enter a number between 1 and 20."
^DD(79.1,14,"DT")="2860418"
^DD(79.1,15,0)="REPORT RIGHT MARGIN^NJ3,0^^0;15^K:+X'=X!(X>130)!(X<50)!(X?.E1"".""1N.N) X"
^DD(79.1,15,.1)="RIGHT MARGIN FOR REPORT TEXT"
^DD(79.1,15,3)="Enter a number, between 50 and 130, to indicate which column the text fields should end printing."
^DD(79.1,15,21,0)="^^3^3^2940526^^^^"
^DD(79.1,15,21,1,0)="This field indicates which column the text for 'clinical history',"
^DD(79.1,15,21,2,0)="'report' and 'impression' should end at when printing the report."
^DD(79.1,15,21,3,0)="Enter a number between 50 and 130."
^DD(79.1,15,"DT")="2860418"
^DD(79.1,16,0)="REQUEST PRINTER NAME^P3.5'^%ZIS(1,^0;16^Q"
^DD(79.1,16,.1)="NAME OF THE DEVICE TO PRINT REQUESTS ON"
^DD(79.1,16,3)="Select a device where the requests are to be printed."
^DD(79.1,16,4)=""
^DD(79.1,16,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,16,21,0)="^^5^5^2940526^"
^DD(79.1,16,21,1,0)="This 'locations' parameter can contain the device name (1-20 characters)"
^DD(79.1,16,21,2,0)="that requests are to be printed on. If this field is filled in, the system"
^DD(79.1,16,21,3,0)="automatically queues the process to the specified device. If this field is"
^DD(79.1,16,21,4,0)="not filled in the request is not automatically queued to print to any"
^DD(79.1,16,21,5,0)="device."
^DD(79.1,16,"DT")="2960207"
^DD(79.1,17,0)="ALLOW 'RELEASED/NOT VERIFIED'^S^Y:yes;N:no;^0;17^Q"
^DD(79.1,17,3)="Enter 'Y'es if 'Released/Not Verified' reports should be allowed."
^DD(79.1,17,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,17,21,0)="^^4^4^2970203^"
^DD(79.1,17,21,1,0)="This Imaging Location parameter can be set to 'Yes' to allow reports to"
^DD(79.1,17,21,2,0)="have the status 'RELEASED/NOT VERIFIED' which permits the displaying "
^DD(79.1,17,21,3,0)="of the report to users outside of the Imaging service even if it is"
^DD(79.1,17,21,4,0)="not yet verified."
^DD(79.1,17,"DT")="2970203"
^DD(79.1,18,0)="PRINT DX CODES IN REPORT?^S^Y:yes;N:no;^0;18^Q"
^DD(79.1,18,.1)="PRINT DIAGNOSTIC CODES IN THE BODY OF THE REPORT?"
^DD(79.1,18,3)="Enter 'Y'es if you want the diagnostic codes to print on the report."
^DD(79.1,18,21,0)="^^5^5^2961209^"
^DD(79.1,18,21,1,0)="If this field is set to Yes, all primary and secondary diagnostic codes"
^DD(79.1,18,21,2,0)="associated with the exam will be printed on the exam report.  (Note: Since"
^DD(79.1,18,21,3,0)="the primary diagnostic code may be printed in exam report headers and"
^DD(79.1,18,21,4,0)="footers, you may also need to change report header and footer set-ups to"
^DD(79.1,18,21,5,0)="get the diagnostic codes printed exactly as you wish.)"
^DD(79.1,18,"DT")="2940524"
^DD(79.1,19,0)="INACTIVE^DX^^0;19^S %DT=""ESTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(79.1,19,3)="Enter the date the Imaging Location was inactivated.  The date entered cannot be a date in the future."
^DD(79.1,19,21,0)="^^3^3^2960619^^^^"
^DD(79.1,19,21,1,0)="Contains the date the Imaging Location was inactivated.  Orders cannot be"
^DD(79.1,19,21,2,0)="submitted to an inactive location and cases cannot be registered in an"
^DD(79.1,19,21,3,0)="inactive location."
^DD(79.1,19,"DT")="2950404"
^DD(79.1,20,0)="URGENT REQUEST ALERTS?^S^Y:yes;^0;20^Q"
^DD(79.1,20,3)="Answer 'Yes' if you want alerts to be sent to Imaging Personnel recipients for URGENT requests."
^DD(79.1,20,21,0)="^^6^6^2961209^"
^DD(79.1,20,21,1,0)="This field will determine if alerts will be sent to the Imaging Personnel"
^DD(79.1,20,21,2,0)="defined in the STAT REQUEST ALERT RECIPIENTS field.  If this field is set "
^DD(79.1,20,21,3,0)="to 'Yes', then all the users in the STAT REQUEST ALERT RECIPIENTS field "
^DD(79.1,20,21,4,0)="will be sent an alert for urgent requests. To use this feature, the"
^DD(79.1,20,21,5,0)="Division parameter 'Ask Imaging Location' must be set to 'YES', and OE/RR"
^DD(79.1,20,21,6,0)="Version 3.0 or higher must be installed."
^DD(79.1,20,"DT")="2960214"
^DD(79.1,21,0)="CREDIT METHOD^S^0:Regular Credit;1:Interpretation Only;2:No Credit;3:Technical Component Only;^0;21^Q"
^DD(79.1,21,3)="Enter the type of credit this location will receive for this examination."
^DD(79.1,21,9.2)="D EN^DDIOL(""'Interpreting Only' and 'Technical Component Only' are for future use."","""",""!"")"
^DD(79.1,21,21,0)="9^.001^9^9^3031002^^^^"
^DD(79.1,21,21,1,0)="This field indicates the type of credit this location receives for"
^DD(79.1,21,21,2,0)="examinations.  The default is REGULAR (code 0), which means that for this"
^DD(79.1,21,21,3,0)="imaging location both the exam and the interpretation are done at your"
^DD(79.1,21,21,4,0)="facility. If this imaging location has been set up to register exams done"
^DD(79.1,21,21,5,0)="in another facility, with the imaging interpretation only done at this"
^DD(79.1,21,21,6,0)="facility, enter code 1.  If exams are done in this location, but"
^DD(79.1,21,21,7,0)="interpretation is done elsewhere, enter code 3.  If both the exam and the"
^DD(79.1,21,21,8,0)="interpretation are done elsewhere, and exams entered for this imaging"
^DD(79.1,21,21,9,0)="location are entered only for record-keeping purposes, enter code 2."
^DD(79.1,21,"DT")="3030826"
^DD(79.1,22,0)="DSS ID^*P40.7'^DIC(40.7,^0;22^S DIC(""S"")=""I $D(^RAMIS(71.5,""""B"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79.1,22,3)="Enter a valid stop code for this imaging location."
^DD(79.1,22,12)="Only Stop Codes entered in the Imaging Stop Codes file may be selected."
^DD(79.1,22,12.1)="S DIC(""S"")=""I $D(^RAMIS(71.5,""""B"""",+Y))"""
^DD(79.1,22,21,0)="^^6^6^2960522^^"
^DD(79.1,22,21,1,0)="DSS ID will be used to identify the general outpatient area where an"
^DD(79.1,22,21,2,0)="imaging exam was done.  It is used only by DSS, and only when processing"
^DD(79.1,22,21,3,0)="outpatients. It is roughly equivalent to the ""Stop Codes"" previously used"
^DD(79.1,22,21,4,0)="for crediting outpatient exams.  Only entries also in the Imaging Stop"
^DD(79.1,22,21,5,0)="Codes file #71.5 (which must be updated yearly by the Radiology/Nuclear"
^DD(79.1,22,21,6,0)="Medicine ADPAC) are valid."
^DD(79.1,22,"DT")="2960520"
^DD(79.1,23,0)="DOSAGE TICKET PRINTER^P3.5'^%ZIS(1,^0;23^Q"
^DD(79.1,23,.1)="PHARMACEUTICAL DOSAGE TICKET PRINTING DEVICE"
^DD(79.1,23,3)="Enter the device to print the radiopharmaceutical dosage ticket"
^DD(79.1,23,21,0)="^^7^7^2960808^"
^DD(79.1,23,21,1,0)="This question only applies to imaging locations with an imaging type"
^DD(79.1,23,21,2,0)="where radiopharmaceuticals are used (i.e. nuclear medicine and cardiology"
^DD(79.1,23,21,3,0)="studies). If the facility's exam status parameters are configured to print"
^DD(79.1,23,21,4,0)="Radiopharmaceutical dosage tickets when exams reach a specified status,"
^DD(79.1,23,21,5,0)="and name of the printer device is entered here, then dosage tickets for"
^DD(79.1,23,21,6,0)="nuclear medicine procedures registered in this location will print on this"
^DD(79.1,23,21,7,0)="device."
^DD(79.1,23,"DT")="2960619"
^DD(79.1,24,0)="CANCELLED REQUEST PRINTER^P3.5'^%ZIS(1,^0;24^Q"
^DD(79.1,24,3)="Enter the device receiving the cancelled request. "
^DD(79.1,24,21,0)="^^2^2^2960905^"
^DD(79.1,24,21,1,0)="This field specifies the device where the cancelled request will be"
^DD(79.1,24,21,2,0)="output."
^DD(79.1,24,"DT")="2960905"
^DD(79.1,25,0)="RAD/NUC MED DIVISION^P79'I^RA(79,^DIV;1^Q"
^DD(79.1,25,.1)="RAD/NUC MED HOSPITAL DIVISION"
^DD(79.1,25,3)="Enter the name of the division associated with this location."
^DD(79.1,25,5,1,0)="79.01^.01^3"
^DD(79.1,25,9)="^"
^DD(79.1,25,10)="RAD/NUC MED COORDINATOR"
^DD(79.1,25,21,0)="^^3^3^2940526^^^"
^DD(79.1,25,21,1,0)="This field contains the name of the Radiology/Nuclear Medicine 'division'"
^DD(79.1,25,21,2,0)="that this 'location' is associated with.  A 'location' can only be"
^DD(79.1,25,21,3,0)="associated with one 'division'."
^DD(79.1,25,"DT")="2940525"
^DD(79.1,26,0)="VOICE DICTATION AUTO-PRINT^S^Y:yes;^0;26^Q"
^DD(79.1,26,3)="Enter  Y  if you want to have a report automatically printed when voice dictation is used to enter a report."
^DD(79.1,26,21,0)="^^3^3^2970626^^^^"
^DD(79.1,26,21,1,0)="If this field is  Y  , and voice dictation is used to enter a report,"
^DD(79.1,26,21,2,0)="a copy of the report will be automatically printed on the device"
^DD(79.1,26,21,3,0)="defined in field REPORT PRINTER NAME."
^DD(79.1,26,"DT")="2970626"
^DD(79.1,100,0)="CAMERAS/EQUIP/RMS^79.12P^^R;0"
^DD(79.1,100,.1)="CAMERA/EQUIP/RMS SUB-FIELD"
^DD(79.1,100,21,0)="^^2^2^2940913^^^"
^DD(79.1,100,21,1,0)="This is a multiple field containing the cameras/equip/rms associated with"
^DD(79.1,100,21,2,0)="this 'location'."
^DD(79.1,100,"DT")="2940603"
^DD(79.1,135,0)="DEFAULT CPT MODIFIERS(LOC)^79.1135P^^DCM;0"
^DD(79.1,150,0)="STAT REQUEST ALERT RECIPIENTS^79.13PA^^REC;0"
^DD(79.1,150,21,0)="^^6^6^2970305^^"
^DD(79.1,150,21,1,0)="Names entered here will be used as recipients of an alert when new STAT"
^DD(79.1,150,21,2,0)="requests for Imaging exams are submitted to this Imaging Location. To use"
^DD(79.1,150,21,3,0)="this feature, the division parameter 'ASK IMAGING LOCATION' must be set to"
^DD(79.1,150,21,4,0)="'Yes', and OE/RR Version 3.0 or higher must be installed. If the URGENT"
^DD(79.1,150,21,5,0)="alert is turned on, the recipients entered here will also receive alerts"
^DD(79.1,150,21,6,0)="when an URGENT request is entered."
^DD(79.1,150,"DT")="2960214"
^DD(79.1,"B","ALLOW 'RELEASED/NOT VERIFIED'",17)=""
^DD(79.1,"B","CAMERA/EQUIP/RMS SUB-FIELD",100)="1"
^DD(79.1,"B","CAMERAS/EQUIP/RMS",100)=""
^DD(79.1,"B","CANCELLED REQUEST PRINTER",24)=""
^DD(79.1,"B","CREDIT METHOD",21)=""
^DD(79.1,"B","DEFAULT CPT MODIFIERS(LOC)",135)=""
^DD(79.1,"B","DEFAULT EXAM LABEL FORMAT",9)=""
^DD(79.1,"B","DEFAULT FLASH CARD FORMAT",7)=""
^DD(79.1,"B","DEFAULT JACKET LABEL FORMAT",11)=""
^DD(79.1,"B","DEFAULT REPORT FOOTER FORMAT",13)=""
^DD(79.1,"B","DEFAULT REPORT HEADER FORMAT",12)=""
^DD(79.1,"B","DOSAGE TICKET PRINTER",23)=""
^DD(79.1,"B","DSS ID",22)=""
^DD(79.1,"B","FLASH CARD PRINTER NAME",3)=""
^DD(79.1,"B","HOW MANY EXAM LABELS PER EXAM",8)=""
^DD(79.1,"B","HOW MANY FLASH CARDS PER VISIT",2)=""
^DD(79.1,"B","HOW MANY JACKET LBLS PER VISIT",4)=""
^DD(79.1,"B","IMAGING LOCATION",.01)="1"
^DD(79.1,"B","INACTIVE",19)=""
^DD(79.1,"B","JACKET LABEL PRINTER NAME",5)=""
^DD(79.1,"B","LEFT MARGIN FOR REPORT TEXT",14)="1"
^DD(79.1,"B","LOCATION",.01)=""
^DD(79.1,"B","PRINT DX CODES IN REPORT?",18)=""
^DD(79.1,"B","RAD/NUC MED DIVISION",25)=""
^DD(79.1,"B","RAD/NUC MED HOSPITAL DIVISION",25)="1"
^DD(79.1,"B","REPORT LEFT MARGIN",14)=""
^DD(79.1,"B","REPORT PRINTER NAME",10)=""
^DD(79.1,"B","REPORT RIGHT MARGIN",15)=""
^DD(79.1,"B","REQUEST PRINTER NAME",16)=""
^DD(79.1,"B","RIGHT MARGIN FOR REPORT TEXT",15)="1"
^DD(79.1,"B","STAT REQUEST ALERT RECIPIENTS",150)=""
^DD(79.1,"B","TYPE OF IMAGING",6)=""
^DD(79.1,"B","URGENT REQUEST ALERTS?",20)=""
^DD(79.1,"B","VOICE DICTATION AUTO-PRINT",26)=""
^DD(79.1,"GL",0,1,.01)=""
^DD(79.1,"GL",0,2,2)=""
^DD(79.1,"GL",0,3,3)=""
^DD(79.1,"GL",0,4,4)=""
^DD(79.1,"GL",0,5,5)=""
^DD(79.1,"GL",0,6,6)=""
^DD(79.1,"GL",0,7,7)=""
^DD(79.1,"GL",0,8,8)=""
^DD(79.1,"GL",0,9,9)=""
^DD(79.1,"GL",0,10,10)=""
^DD(79.1,"GL",0,11,11)=""
^DD(79.1,"GL",0,12,12)=""
^DD(79.1,"GL",0,13,13)=""
^DD(79.1,"GL",0,14,14)=""
^DD(79.1,"GL",0,15,15)=""
^DD(79.1,"GL",0,16,16)=""
^DD(79.1,"GL",0,17,17)=""
^DD(79.1,"GL",0,18,18)=""
^DD(79.1,"GL",0,19,19)=""
^DD(79.1,"GL",0,20,20)=""
^DD(79.1,"GL",0,21,21)=""
^DD(79.1,"GL",0,22,22)=""
^DD(79.1,"GL",0,23,23)=""
^DD(79.1,"GL",0,24,24)=""
^DD(79.1,"GL",0,26,26)=""
^DD(79.1,"GL","DCM",0,135)=""
^DD(79.1,"GL","DIV",1,25)=""
^DD(79.1,"GL","R",0,100)=""
^DD(79.1,"GL","REC",0,150)=""
^DD(79.1,"IX",.01)=""
^DD(79.1,"IX",6)=""
^DD(79.1,"RQ",.01)=""
^DD(79.1,"RQ",6)=""
^DD(79.1,"SB",79.1135,135)=""
^DD(79.1,"SB",79.12,100)=""
^DD(79.1,"SB",79.13,150)=""
^DD(79.1135,0)="DEFAULT CPT MODIFIERS(LOC) SUB-FIELD^^.01^1"
^DD(79.1135,0,"DT")="3000428"
^DD(79.1135,0,"IX","B",79.1135,.01)=""
^DD(79.1135,0,"NM","DEFAULT CPT MODIFIERS(LOC)")=""
^DD(79.1135,0,"UP")="79.1"
^DD(79.1135,.01,0)="DEFAULT CPT MODIFIERS(LOC)^M*P81.3'^DIC(81.3,^0;1^S DIC(""S"")=""I $$SDL^RACPTMSC(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79.1135,.01,1,0)="^.1"
^DD(79.1135,.01,1,1,0)="79.1135^B"
^DD(79.1135,.01,1,1,1)="S ^RA(79.1,DA(1),""DCM"",""B"",$E(X,1,30),DA)="""""
^DD(79.1135,.01,1,1,2)="K ^RA(79.1,DA(1),""DCM"",""B"",$E(X,1,30),DA)"
^DD(79.1135,.01,3)=""
^DD(79.1135,.01,4)="D EHDL^RACPTMSC"
^DD(79.1135,.01,12)="VA local modifiers are automatically screened out (rejected.)"
^DD(79.1135,.01,12.1)="S DIC(""S"")=""I $$SDL^RACPTMSC(+Y)"""
^DD(79.1135,.01,23,0)="^^10^10^3000516^"
^DD(79.1135,.01,23,1,0)="One or more default CPT Modifiers may be entered for this"
^DD(79.1135,.01,23,2,0)="location; however, the entry cannot be screened against"
^DD(79.1135,.01,23,3,0)="a CPT CODE, because there is no CPT CODE to compare with."
^DD(79.1135,.01,23,4,0)="The only screening done would be to eliminate VA local"
^DD(79.1135,.01,23,5,0)="modifiers."
^DD(79.1135,.01,23,6,0)=" "
^DD(79.1135,.01,23,7,0)="Whatever are entered here will be stuffed into the exam"
^DD(79.1135,.01,23,8,0)="record that is registered under this location, IF AND"
^DD(79.1135,.01,23,9,0)="ONLY IF that procedure being registered does not"
^DD(79.1135,.01,23,10,0)="already have default CPT Modifiers."
^DD(79.1135,.01,"DT")="3000428"
^DD(79.1135,"B","DEFAULT CPT MODIFIERS(LOC)",.01)=""
^DD(79.1135,"GL",0,1,.01)=""
^DD(79.1135,"IX",.01)=""
^DD(79.12,0)="CAMERAS/EQUIP/RMS SUB-FIELD^NL^.01^1"
^DD(79.12,0,"NM","CAMERAS/EQUIP/RMS")=""
^DD(79.12,0,"UP")="79.1"
^DD(79.12,.01,0)="CAMERA/EQUIP/RM^MP78.6X^RA(78.6,^0;1^S DINUM=X Q"
^DD(79.12,.01,.1)="CAMERAS/EQUIP/RMS ASSOCIATED WITH THIS 'LOCATION'"
^DD(79.12,.01,3)="Enter all the cameras/equip/rms for this location."
^DD(79.12,.01,10)="COORDINATOR"
^DD(79.12,.01,21,0)="^^4^4^2940913^"
^DD(79.12,.01,21,1,0)="This field contains a list of cameras/equip/rms (from the"
^DD(79.12,.01,21,2,0)="'Camera/Equip/Rm' file) that can be chosen when entering data for exams"
^DD(79.12,.01,21,3,0)="done in this 'location'. Cameras/equip/rms can be used by more than one"
^DD(79.12,.01,21,4,0)="'location'."
^DD(79.12,.01,"DT")="2940603"
^DD(79.12,"B","CAMERA/EQUIP/RM",.01)=""
^DD(79.12,"GL",0,1,.01)=""
^DD(79.13,0)="STAT REQUEST ALERT RECIPIENTS SUB-FIELD^^.01^1"
^DD(79.13,0,"DT")="2960213"
^DD(79.13,0,"IX","B",79.13,.01)=""
^DD(79.13,0,"NM","STAT REQUEST ALERT RECIPIENTS")=""
^DD(79.13,0,"UP")="79.1"
^DD(79.13,.01,0)="STAT REQUEST ALERT RECIPIENTS^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $O(^VA(200,+Y,""""RAC"""",0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79.13,.01,1,0)="^.1"
^DD(79.13,.01,1,1,0)="79.13^B"
^DD(79.13,.01,1,1,1)="S ^RA(79.1,DA(1),""REC"",""B"",$E(X,1,30),DA)="""""
^DD(79.13,.01,1,1,2)="K ^RA(79.1,DA(1),""REC"",""B"",$E(X,1,30),DA)"
^DD(79.13,.01,3)="Enter Rad/Nuc Med personnel who should be notified if a request priority is 'STAT'."
^DD(79.13,.01,12)="Recipients must have Rad/Nuc Med personnel classification."
^DD(79.13,.01,12.1)="S DIC(""S"")=""I $O(^VA(200,+Y,""""RAC"""",0))"""
^DD(79.13,.01,21,0)="^^5^5^2960216^"
^DD(79.13,.01,21,1,0)="Recipients must have a Radiology/Nuclear Medicine personnel"
^DD(79.13,.01,21,2,0)="classification.  They will receive an alert whenever a STAT request is"
^DD(79.13,.01,21,3,0)="submitted to this Imaging Location.  To use this feature, the division"
^DD(79.13,.01,21,4,0)="parameter, 'ASK IMAGING LOCATION' must be set to 'Yes', and OE/RR Version"
^DD(79.13,.01,21,5,0)="3.0 or higher must be installed."
^DD(79.13,.01,"DT")="2960214"
^DD(79.13,"B","STAT REQUEST ALERT RECIPIENTS",.01)=""
^DD(79.13,"GL",0,1,.01)=""
^DD(79.13,"IX",.01)=""
^DD(79.2,0)="FIELD^^100^15"
^DD(79.2,0,"DDA")="N"
^DD(79.2,0,"DT")="2960620"
^DD(79.2,0,"IX","AA",79.2,.01)=""
^DD(79.2,0,"IX","AC",79.2,4)=""
^DD(79.2,0,"IX","B",79.2,.01)=""
^DD(79.2,0,"IX","C",79.2,3)=""
^DD(79.2,0,"NM","IMAGING TYPE")=""
^DD(79.2,0,"PT",70.02,2)=""
^DD(79.2,0,"PT",71,12)=""
^DD(79.2,0,"PT",71.23,.01)=""
^DD(79.2,0,"PT",72,7)=""
^DD(79.2,0,"PT",75.1,3)=""
^DD(79.2,0,"PT",79.1,6)=""
^DD(79.2,0,"PT",727.814,20)=""
^DD(79.2,0,"PT",2006.583,4)=""
^DD(79.2,0,"VR")="5.0"
^DD(79.2,0,"VRPK")="RADIOLOGY/NUCLEAR MEDICINE"
^DD(79.2,.01,0)="TYPE OF IMAGING^RFI^^0;1^K:$L(X)>30!($L(X)<5) X"
^DD(79.2,.01,.1)="NAME OF THIS TYPE OF IMAGING"
^DD(79.2,.01,1,0)="^.1"
^DD(79.2,.01,1,1,0)="79.2^B"
^DD(79.2,.01,1,1,1)="S ^RA(79.2,""B"",$E(X,1,30),DA)="""""
^DD(79.2,.01,1,1,2)="K ^RA(79.2,""B"",$E(X,1,30),DA)"
^DD(79.2,.01,1,1,3)="DO NOT DELETE"
^DD(79.2,.01,1,1,"%D",0)="^^1^1^2950111^"
^DD(79.2,.01,1,1,"%D",1,0)="Regular B cross-reference used for look-up."
^DD(79.2,.01,1,2,0)="79.2^AA^MUMPS"
^DD(79.2,.01,1,2,1)="N RA S RA=0 F  S RA=$O(^RA(72,RA)) Q:RA'>0  S RA(0)=$G(^RA(72,RA,0)),RA(7)=+$P(RA(0),""^"",7),RA(3)=$P(RA(0),""^"",3) S:RA(7)=DA&(RA(3)]"""") ^RA(72,""AA"",X,RA(3),RA)="""""
^DD(79.2,.01,1,2,2)="K ^RA(72,""AA"",X)"
^DD(79.2,.01,1,2,3)="Do not delete."
^DD(79.2,.01,1,2,"%D",0)="^^2^2^2941117^^"
^DD(79.2,.01,1,2,"%D",1,0)="     When the Imaging Type name is changed, this M cross reference update"
^DD(79.2,.01,1,2,"%D",2,0)="the ""AA"" cross reference in the Examination Status file."
^DD(79.2,.01,1,2,"DT")="2941117"
^DD(79.2,.01,3)="Enter the name of a type of imaging."
^DD(79.2,.01,10)="SYSTEM GENERATED"
^DD(79.2,.01,21,0)="^^3^3^2970313^"
^DD(79.2,.01,21,1,0)="This field contains the name of this type of imaging.  DO NOT ADD, EDIT OR"
^DD(79.2,.01,21,2,0)="DELETE imaging type names; this will cause problems between the"
^DD(79.2,.01,21,3,0)="Radiology/Nuclear Med and Order Entry interface."
^DD(79.2,.01,"DEL",1,0)="I 1 W !?5,$C(7),""Entries in the 'IMAGING TYPE' file cannot be deleted!"""
^DD(79.2,.01,"DT")="2950620"
^DD(79.2,.11,0)="ACTIVITY LOG CUT-OFF^NJ5,0^^.1;1^K:+X'=X!(X>99999)!(X<90)!(X?.E1"".""1N.N) X"
^DD(79.2,.11,.1)="ACTIVITY LOG CUT-OFF DATE"
^DD(79.2,.11,3)="Enter a number between 90 and 99999, to indicate the number of days to keep the various activity logs on-line."
^DD(79.2,.11,10)="RAD/NUC MED COORDINATOR"
^DD(79.2,.11,21,0)="^.001^5^5^3020128^^^"
^DD(79.2,.11,21,1,0)="This field contains the imaging type parameter that tells the purge"
^DD(79.2,.11,21,2,0)="routine of the module how many days to keep the various activity logs"
^DD(79.2,.11,21,3,0)="on-line.  The amount of days is a whole number between 90 and 99999 and is"
^DD(79.2,.11,21,4,0)="determined at each site by the package coordinator and the computer"
^DD(79.2,.11,21,5,0)="site manager."
^DD(79.2,.11,"DT")="3020128"
^DD(79.2,.12,0)="REPORT CUT-OFF^NJ5,0^^.1;2^K:+X'=X!(X>99999)!(X<90)!(X?.E1"".""1N.N) X"
^DD(79.2,.12,.1)="REPORT CUT-OFF DATE"
^DD(79.2,.12,3)="Enter a number between 90 and 99999, to indicate the number of days to keep the reports on-line."
^DD(79.2,.12,10)="RAD/NUC MED COORDINATOR"
^DD(79.2,.12,21,0)="^.001^6^6^3020128^^"
^DD(79.2,.12,21,1,0)="This field contains the imaging type parameter that tells the purge"
^DD(79.2,.12,21,2,0)="routine of the module how many days to keep the reports on-line.  The"
^DD(79.2,.12,21,3,0)="report 'impression' will always stay on-line even after the reports"
^DD(79.2,.12,21,4,0)="are purged.  The amount of days is a whole number between 90 and 99999"
^DD(79.2,.12,21,5,0)="and is determined at each site by the package coordinator and the"
^DD(79.2,.12,21,6,0)="computer site manager."
^DD(79.2,.12,"DT")="3020128"
^DD(79.2,.13,0)="CLINICAL HISTORY CUT-OFF^NJ5,0^^.1;3^K:+X'=X!(X>99999)!(X<90)!(X?.E1"".""1N.N) X"
^DD(79.2,.13,.1)="CLINICAL HISTORY CUT-OFF DATE"
^DD(79.2,.13,3)="Enter a number between 90 and 99999, to indicate the number of days to keep the clinical history of the visit and exam on-line."
^DD(79.2,.13,10)="RAD/NUC MED COORDINATOR"
^DD(79.2,.13,21,0)="^.001^5^5^3020128^^"
^DD(79.2,.13,21,1,0)="This field contains the imaging type parameter that tells the purge"
^DD(79.2,.13,21,2,0)="routine of the module how many days to keep the clinical history"
^DD(79.2,.13,21,3,0)="of the visit on-line.  The amount of days is a whole number between 90 and"
^DD(79.2,.13,21,4,0)="99999 and is determined by the package coordinator and the computer"
^DD(79.2,.13,21,5,0)="site manager."
^DD(79.2,.13,"DT")="3020128"
^DD(79.2,.14,0)="TRACKING TIME CUT-OFF^NJ5,0^^.1;4^K:+X'=X!(X>99999)!(X<90)!(X?.E1"".""1N.N) X"
^DD(79.2,.14,.1)="TRACKING TIME CUT-OFF DATE"
^DD(79.2,.14,3)="Enter a number between 90 and 99999, to indicate the number of days to keep the 'tracking time' information on-line."
^DD(79.2,.14,10)="RAD/NUC MED COORDINATOR"
^DD(79.2,.14,21,0)="^.001^7^7^3020128^^"
^DD(79.2,.14,21,1,0)="This field applies to sites that are using the tracking function of the"
^DD(79.2,.14,21,2,0)="system to record when the exam status changes from one status to another."
^DD(79.2,.14,21,3,0)="It contains the imaging type parameter that tells the purge routine of"
^DD(79.2,.14,21,4,0)="the module how many days to keep the 'tracking time' information on-line."
^DD(79.2,.14,21,5,0)="The amount of days is a whole number between 90 and 99999 and is"
^DD(79.2,.14,21,6,0)="determined at each site by the package coordinator and the computer"
^DD(79.2,.14,21,7,0)="site manager."
^DD(79.2,.14,"DT")="3020128"
^DD(79.2,.16,0)="ORDER DATA CUT-OFF^NJ5,0^^.1;6^K:+X'=X!(X>99999)!(X<30)!(X?.E1"".""1N.N) X"
^DD(79.2,.16,3)="Enter a number between 30 and 99999, to indicate the number of days to keep the order data on-line."
^DD(79.2,.16,21,0)="^.001^4^4^3020128^^"
^DD(79.2,.16,21,1,0)="This field contains the imaging type parameter that tells the purge"
^DD(79.2,.16,21,2,0)="routine of the module how many days to keep the orders on-line. The"
^DD(79.2,.16,21,3,0)="amount of days is a whole number between 30 and 99999 and is determined"
^DD(79.2,.16,21,4,0)="by the package coordinator and the computer site manager."
^DD(79.2,.16,"DT")="3020128"
^DD(79.2,3,0)="ABBREVIATION^RFI^^0;3^K:$L(X)>4!($L(X)<1) X"
^DD(79.2,3,.1)="ABBREVIATION ASSOCIATED WITH THIS IMAGING TYPE"
^DD(79.2,3,1,0)="^.1"
^DD(79.2,3,1,1,0)="79.2^C"
^DD(79.2,3,1,1,1)="S ^RA(79.2,""C"",$E(X,1,30),DA)="""""
^DD(79.2,3,1,1,2)="K ^RA(79.2,""C"",$E(X,1,30),DA)"
^DD(79.2,3,1,1,"%D",0)="^^1^1^2910815^"
^DD(79.2,3,1,1,"%D",1,0)="Allows for the look-up of an imaging location by abbreviation."
^DD(79.2,3,3)="Enter an abbreviation (1-4 characters) for this imaging type."
^DD(79.2,3,10)="DEVELOPER"
^DD(79.2,3,21,0)="^^5^5^2970313^"
^DD(79.2,3,21,1,0)="This is the abbreviation associated with this type of imaging.  It is"
^DD(79.2,3,21,2,0)="between 1 and 4 characters in length and is used as a cross reference and"
^DD(79.2,3,21,3,0)="for quick look ups. DO NOT CHANGE ABBREVIATIONS; changing abbreviations"
^DD(79.2,3,21,4,0)="will cause problems between the Order Entry and Radiology/Nuc Med"
^DD(79.2,3,21,5,0)="interface."
^DD(79.2,3,"DT")="2950620"
^DD(79.2,4,0)="OPERATING CONDITIONS^RS^N:NORMAL;E:EMERGENCY(NORMAL COMPUTER DOWN);^0;4^Q"
^DD(79.2,4,.1)="OPERATING CONDITIONS IMAGING PARAMETER"
^DD(79.2,4,1,0)="^.1"
^DD(79.2,4,1,1,0)="79.2^AC"
^DD(79.2,4,1,1,1)="S ^RA(79.2,""AC"",$E(X,1,30),DA)="""""
^DD(79.2,4,1,1,2)="K ^RA(79.2,""AC"",$E(X,1,30),DA)"
^DD(79.2,4,1,1,"%D",0)="^^1^1^2910815^"
^DD(79.2,4,1,1,"%D",1,0)="Gives the current operating condition for an imaging location."
^DD(79.2,4,3)="Enter 'N' for normal conditions, 'E' for emergency conditions."
^DD(79.2,4,10)="PACKAGE COORDINATOR"
^DD(79.2,4,21,0)="^^8^8^2940609^"
^DD(79.2,4,21,1,0)="This field contains the hardware conditions parameter that tells the system"
^DD(79.2,4,21,2,0)="the type of operating conditions that are in effect.  The available"
^DD(79.2,4,21,3,0)="conditions are: 'N' for normal and 'E' for emergency."
^DD(79.2,4,21,4,0)=" "
^DD(79.2,4,21,5,0)="Under NORMAL conditions, the system uses the parameters set up"
^DD(79.2,4,21,6,0)="in the 'Imaging Locations' file to determine which input and printer"
^DD(79.2,4,21,7,0)="devices to use.  Under EMERGENCY conditions, the system ignores all the"
^DD(79.2,4,21,8,0)="location parameters set up and the user is prompted for this information."
^DD(79.2,4,"DT")="2841120"
^DD(79.2,5,0)="RADIOPHARMACEUTICALS USED?^S^Y:YES;N:NO;^0;5^Q"
^DD(79.2,5,.1)="WILL RADIOPHARMACEUTICALS BE USED?"
^DD(79.2,5,3)="Enter a 'Y'es if this imaging type involves the use of radiopharmaceuticals."
^DD(79.2,5,21,0)="^^3^3^2960808^"
^DD(79.2,5,21,1,0)="This field is used to determine if radiopharmaceuticals will be used"
^DD(79.2,5,21,2,0)="for this imaging type.  If so, then the nuclear medicine logic paths of"
^DD(79.2,5,21,3,0)="this software will be triggered at all appropriate points."
^DD(79.2,5,"DT")="2960620"
^DD(79.2,25,0)="NEXT CASE NUMBER^NJ5,0I^^CN;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(79.2,25,.1)="CASE NUMBER OF NEXT EXAM"
^DD(79.2,25,3)="This field contains the next case number."
^DD(79.2,25,9)="^"
^DD(79.2,25,10)="SYSTEM GENERATED"
^DD(79.2,25,21,0)="^^4^4^2940526^^^^"
^DD(79.2,25,21,1,0)="This field is used to contain the next available case number for this"
^DD(79.2,25,21,2,0)="type of imaging.  Case numbers are generated by the system in sequential"
^DD(79.2,25,21,3,0)="order and are available for reuse the following week after the exam status"
^DD(79.2,25,21,4,0)="becomes complete.  Case numbers are recycled on Sunday at 12:01 AM."
^DD(79.2,25,"DT")="2841005"
^DD(79.2,26,0)="CASE NUMBER TURNOVER DATE^DI^^CN;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(79.2,26,.1)="DATE WHEN THE CASE NUMBERS ARE RESET"
^DD(79.2,26,3)="This field contains the next date the case numbers will be recycled."
^DD(79.2,26,9)="^"
^DD(79.2,26,10)="DEVELOPER"
^DD(79.2,26,21,0)="^^2^2^2940526^^^^"
^DD(79.2,26,21,1,0)="This field contains the date the case numbers are scheduled to be recycled."
^DD(79.2,26,21,2,0)="This date will always be the next Sunday's date."
^DD(79.2,26,"DT")="2850612"
^DD(79.2,50,0)="INTRODUCTION TEXT^79.21^^1;0"
^DD(79.2,50,.1)="INTRODUCTION TEXT FOR THIS IMAGING TYPE"
^DD(79.2,50,10)="DEVELOPER"
^DD(79.2,50,21,0)="^^3^3^2940526^"
^DD(79.2,50,21,1,0)="This field provides a quick installation guide to be displayed when the"
^DD(79.2,50,21,2,0)="rad/nuc med system is initialized or reinitialized.  It describes aspects"
^DD(79.2,50,21,3,0)="of the module to the site manager and how to proceed."
^DD(79.2,90,0)="PFSS Dept. Code^RFI^^0;6^K:$L(X)>3!($L(X)<3) X"
^DD(79.2,90,3)="Do NOT change the value of this field."
^DD(79.2,90,21,0)="^^2^2^3050622^"
^DD(79.2,90,21,1,0)="The 3 character numeric code represents the Department Code used by the "
^DD(79.2,90,21,2,0)="PFSS project."
^DD(79.2,90,"DT")="3050622"
^DD(79.2,100,0)="ACTIVITY LOG^79.23DA^^L;0"
^DD(79.2,100,.1)="ACTIVITY LOG SUB-FIELD"
^DD(79.2,100,21,0)="^^2^2^2940526^^"
^DD(79.2,100,21,1,0)="This multiple field contains a log of actions that have been taken on this"
^DD(79.2,100,21,2,0)="imaging record."
^DD(79.2,200,0)="WORK RVU (wRVU) SCALING FACTOR^79.22A^^CY;0"
^DD(79.2,200,21,0)="^.001^2^2^3051118^^^^"
^DD(79.2,200,21,1,0)="Identifies the 'Society of Chairmen in Academic Radiology Departments' "
^DD(79.2,200,21,2,0)="(SCARD) scaling factor for a specific imaging type by calendar year. "
^DD(79.2,"B","ABBREVIATION",3)=""
^DD(79.2,"B","ACTIVITY LOG",100)=""
^DD(79.2,"B","ACTIVITY LOG CUT-OFF",.11)=""
^DD(79.2,"B","ACTIVITY LOG CUT-OFF DATE",.11)="1"
^DD(79.2,"B","ACTIVITY LOG SUB-FIELD",100)="1"
^DD(79.2,"B","CASE NUMBER OF NEXT EXAM",25)="1"
^DD(79.2,"B","CASE NUMBER TURNOVER DATE",26)=""
^DD(79.2,"B","CLINICAL HISTORY CUT-OFF",.13)=""
^DD(79.2,"B","CLINICAL HISTORY CUT-OFF DATE",.13)="1"
^DD(79.2,"B","INTRODUCTION TEXT",50)=""
^DD(79.2,"B","NAME OF THIS TYPE OF IMAGING",.01)="1"
^DD(79.2,"B","NEXT CASE NUMBER",25)=""
^DD(79.2,"B","OPERATING CONDITIONS",4)=""
^DD(79.2,"B","ORDER DATA CUT-OFF",.16)=""
^DD(79.2,"B","PFSS Dept. Code",90)=""
^DD(79.2,"B","RADIOPHARMACEUTICALS USED?",5)=""
^DD(79.2,"B","REPORT CUT-OFF",.12)=""
^DD(79.2,"B","REPORT CUT-OFF DATE",.12)="1"
^DD(79.2,"B","TRACKING TIME CUT-OFF",.14)=""
^DD(79.2,"B","TRACKING TIME CUT-OFF DATE",.14)="1"
^DD(79.2,"B","TYPE OF IMAGING",.01)=""
^DD(79.2,"B","WORK RVU (wRVU) SCALING FACTOR",200)=""
^DD(79.2,"GL",0,1,.01)=""
^DD(79.2,"GL",0,3,3)=""
^DD(79.2,"GL",0,4,4)=""
^DD(79.2,"GL",0,5,5)=""
^DD(79.2,"GL",0,6,90)=""
^DD(79.2,"GL",.1,1,.11)=""
^DD(79.2,"GL",.1,2,.12)=""
^DD(79.2,"GL",.1,3,.13)=""
^DD(79.2,"GL",.1,4,.14)=""
^DD(79.2,"GL",.1,6,.16)=""
^DD(79.2,"GL",1,0,50)=""
^DD(79.2,"GL","CN",1,25)=""
^DD(79.2,"GL","CN",2,26)=""
^DD(79.2,"GL","CY",0,200)=""
^DD(79.2,"GL","L",0,100)=""
^DD(79.2,"IX",.01)=""
^DD(79.2,"IX",3)=""
^DD(79.2,"IX",4)=""
^DD(79.2,"RQ",.01)=""
^DD(79.2,"RQ",3)=""
^DD(79.2,"RQ",4)=""
^DD(79.2,"RQ",90)=""
^DD(79.2,"SB",79.21,50)=""
^DD(79.2,"SB",79.22,200)=""
^DD(79.2,"SB",79.23,100)=""
^DD(79.21,0)="INTRODUCTION TEXT SUB-FIELD^NL^.01^1"
^DD(79.21,0,"NM","INTRODUCTION TEXT")=""
^DD(79.21,0,"UP")="79.2"
^DD(79.21,.01,0)="INTRODUCTION TEXT^W^^0;1^Q"
^DD(79.21,.01,3)="This field contains a quick installation guide."
^DD(79.21,.01,21,0)="^^3^3^2940526^^"
^DD(79.21,.01,21,1,0)="This field provides a quick installation guide to be displayed when the"
^DD(79.21,.01,21,2,0)="rad/nuc med system is initialized or re-initialized. It describes the"
^DD(79.21,.01,21,3,0)="aspects of the module and how to proceed for the site manager."
^DD(79.21,.01,"DT")="2850321"
^DD(79.21,"B","INTRODUCTION TEXT",.01)=""
^DD(79.21,"GL",0,1,.01)=""
^DD(79.22,0)="WORK RVU (wRVU) SCALING FACTOR SUB-FIELD^^2^2"
^DD(79.22,0,"DT")="3051118"
^DD(79.22,0,"IX","B",79.22,.01)=""
^DD(79.22,0,"NM","WORK RVU (wRVU) SCALING FACTOR")=""
^DD(79.22,0,"UP")="79.2"
^DD(79.22,.01,0)="CALENDAR YEAR^NJ4,0^^0;1^K:+X'=X!(X>2099)!(X<1980)!(X?.E1"".""1N.N) X"
^DD(79.22,.01,1,0)="^.1"
^DD(79.22,.01,1,1,0)="79.22^B"
^DD(79.22,.01,1,1,1)="S ^RA(79.2,DA(1),""CY"",""B"",$E(X,1,30),DA)="""""
^DD(79.22,.01,1,1,2)="K ^RA(79.2,DA(1),""CY"",""B"",$E(X,1,30),DA)"
^DD(79.22,.01,3)="Enter a four digit calendar year between 1980 and 2099."
^DD(79.22,.01,21,0)="^^3^3^3051118^"
^DD(79.22,.01,21,1,0)="This field identifies the calendar year to associate a specific 'Society"
^DD(79.22,.01,21,2,0)="of Chairmen in Academic Radiology Departments' (SCARD) scaling factor to "
^DD(79.22,.01,21,3,0)="imaging type specific procedures with an associated wRVU value."
^DD(79.22,.01,"DT")="3051118"
^DD(79.22,2,0)="SCALING FACTOR^NJ5,2^^0;2^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(79.22,2,3)="This is the scaling factor to be applied to a wRVU value for this imaging type."
^DD(79.22,2,21,0)="^^2^2^3051118^"
^DD(79.22,2,21,1,0)="This field identifies the appropriate scaling factor applied to the wRVU"
^DD(79.22,2,21,2,0)="value for an imaging type specific rad/nuc med procedure."
^DD(79.22,2,"DT")="3051118"
^DD(79.22,"B","CALENDAR YEAR",.01)=""
^DD(79.22,"B","SCALING FACTOR",2)=""
^DD(79.22,"GL",0,1,.01)=""
^DD(79.22,"GL",0,2,2)=""
^DD(79.22,"IX",.01)=""
^DD(79.23,0)="ACTIVITY LOG SUB-FIELD^NL^6^6"
^DD(79.23,0,"NM","ACTIVITY LOG")=""
^DD(79.23,0,"UP")="79.2"
^DD(79.23,.01,0)="LOG DATE^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(79.23,.01,.1)="DATE OF ACTION ON THIS IMAGING RECORD"
^DD(79.23,.01,3)="This field contains a system generated date and time when action was taken on this imaging record."
^DD(79.23,.01,10)="SYSTEM GENERATED"
^DD(79.23,.01,21,0)="^^2^2^2940526^^^^"
^DD(79.23,.01,21,1,0)="This field is filled in automatically by the system with the date and"
^DD(79.23,.01,21,2,0)="the time that the action was taken on this imaging record."
^DD(79.23,.01,"DT")="2940526"
^DD(79.23,2,0)="TYPE OF ACTION^S^P:DATA PURGE COMPLETE;C:CHANGE IMAGE TYPE PARAMETERS;S:SCHEDULE DATA PURGE;O:ON-LINE CRITERIA MODIFIED;^0;2^Q"
^DD(79.23,2,.1)="TYPE OF ACTION ON IMAGING RECORD"
^DD(79.23,2,3)="This is the type of action that was taken on this imaging record."
^DD(79.23,2,10)="SYSTEM GENERATED"
^DD(79.23,2,21,0)="^^4^4^2940526^^^^"
^DD(79.23,2,21,1,0)="This field is filled in automatically by the system with the type of"
^DD(79.23,2,21,2,0)="action that was taken on this imaging record.  Available types of action"
^DD(79.23,2,21,3,0)="are:  'P' for data purge complete, 'C' for change image type parameters,"
^DD(79.23,2,21,4,0)="'S' for schedule data purge, and 'O' for on-line criteria modified."
^DD(79.23,2,"DT")="2850606"
^DD(79.23,3,0)="COMPUTER USER^P200'^VA(200,^0;3^Q"
^DD(79.23,3,.1)="USER AT THE TIME ACTION TAKEN ON IMAGING RECORD"
^DD(79.23,3,3)="This is the name of the user at the time the action was taken."
^DD(79.23,3,10)="SYSTEM GENERATED"
^DD(79.23,3,21,0)="^^3^3^2940526^^^^"
^DD(79.23,3,21,1,0)="This field points to the 'NEW PERSON' file and is used "
^DD(79.23,3,21,2,0)="to record the user doing the processing at the time the action "
^DD(79.23,3,21,3,0)="was taken on this imaging record."
^DD(79.23,3,"DT")="2900302"
^DD(79.23,4,0)="NO. OF EXAM RECORDS PROCESSED^NJ9,0I^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(79.23,4,.1)="EXAM RECORDS PROCESSED DURING DATA PURGE"
^DD(79.23,4,3)="This is the number of records purged that had data."
^DD(79.23,4,10)="SYSTEM GENERATED"
^DD(79.23,4,21,0)="^^5^5^2940526^^^^"
^DD(79.23,4,21,1,0)="This field is automatically entered by the system after the data purge"
^DD(79.23,4,21,2,0)="routine is finished purging.  This statistic is compiled during the"
^DD(79.23,4,21,3,0)="data purge.  It represents the number of exam records that had at least some"
^DD(79.23,4,21,4,0)="data purged.  Depending on the values of the 'cut-off-days' parameter, the"
^DD(79.23,4,21,5,0)="type of data purged may vary."
^DD(79.23,4,"DT")="2850606"
^DD(79.23,5,0)="NO. OF REPORTS PROCESSED^NJ9,0I^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(79.23,5,.1)="REPORT RECORDS PROCESSED DURING DATA PURGE"
^DD(79.23,5,3)="This is the number of report records purged that had some data."
^DD(79.23,5,21,0)="^^5^5^2940526^^^^"
^DD(79.23,5,21,1,0)="This field is automatically entered by the system after the data purge"
^DD(79.23,5,21,2,0)="routine is finished purging. This statistic is compiled during the"
^DD(79.23,5,21,3,0)="data purge. It represents the number of report records that had at least"
^DD(79.23,5,21,4,0)="some data purged. Depending on the values of the 'cut-off-days' parameters,"
^DD(79.23,5,21,5,0)="the type of data purged may vary."
^DD(79.23,5,"DT")="2850606"
^DD(79.23,6,0)="NO. OF REQUESTS PROCESSED^NJ9,0I^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(79.23,6,.1)="REQUEST RECORDS PROCESSED DURING DATA PURGE"
^DD(79.23,6,3)="This is the number of request records purged."
^DD(79.23,6,21,0)="^^4^4^2940526^^^"
^DD(79.23,6,21,1,0)="This field is automatically entered by the system after the data"
^DD(79.23,6,21,2,0)="purge routine is finished purging. This statistic is compiled"
^DD(79.23,6,21,3,0)="during the data purge. It represents the number of request records"
^DD(79.23,6,21,4,0)="that have been purged."
^DD(79.23,6,"DT")="2890202"
^DD(79.23,"B","COMPUTER USER",3)=""
^DD(79.23,"B","LOG DATE",.01)=""
^DD(79.23,"B","NO. OF EXAM RECORDS PROCESSED",4)=""
^DD(79.23,"B","NO. OF REPORTS PROCESSED",5)=""
^DD(79.23,"B","NO. OF REQUESTS PROCESSED",6)=""
^DD(79.23,"B","TYPE OF ACTION",2)=""
^DD(79.23,"GL",0,1,.01)=""
^DD(79.23,"GL",0,2,2)=""
^DD(79.23,"GL",0,3,3)=""
^DD(79.23,"GL",0,4,4)=""
^DD(79.23,"GL",0,5,5)=""
^DD(79.23,"GL",0,6,6)=""
^DD(79.3,0)="FIELD^^1^7"
^DD(79.3,0,"DT")="2990323"
^DD(79.3,0,"IX","AA",79.3,.02)=""
^DD(79.3,0,"IX","AB",79.3,.06)=""
^DD(79.3,0,"IX","B",79.3,.01)=""
^DD(79.3,0,"NM","HL7 Message Exceptions File")=""
^DD(79.3,0,"VR")="5.0"
^DD(79.3,0,"VRPK")="RA"
^DD(79.3,.01,0)="EXCEPTION DATE/TIME^RD^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(79.3,.01,.1)="EXCEPTION DATE/TIME"
^DD(79.3,.01,1,0)="^.1"
^DD(79.3,.01,1,1,0)="79.3^B"
^DD(79.3,.01,1,1,1)="S ^RA(79.3,""B"",$E(X,1,30),DA)="""""
^DD(79.3,.01,1,1,2)="K ^RA(79.3,""B"",$E(X,1,30),DA)"
^DD(79.3,.01,3)="Enter the date and time the exception occurred."
^DD(79.3,.01,21,0)="^^1^1^2990323^^"
^DD(79.3,.01,21,1,0)="This is the date/time of the exception message"
^DD(79.3,.01,"DT")="2990323"
^DD(79.3,.02,0)="SENDING APPLICATION^RP771'^HL(771,^0;2^Q"
^DD(79.3,.02,1,0)="^.1"
^DD(79.3,.02,1,1,0)="79.3^AA"
^DD(79.3,.02,1,1,1)="S ^RA(79.3,""AA"",$E(X,1,30),DA)="""""
^DD(79.3,.02,1,1,2)="K ^RA(79.3,""AA"",$E(X,1,30),DA)"
^DD(79.3,.02,1,1,"DT")="2990323"
^DD(79.3,.02,3)="Enter the appropriate Rad/Nuc Med HL7 Application."
^DD(79.3,.02,21,0)="^^1^1^2990323^^^^"
^DD(79.3,.02,21,1,0)="The Sending Application which generated the exception message."
^DD(79.3,.02,"DT")="2990323"
^DD(79.3,.03,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(79.3,.03,3)="Enter the name of the patient."
^DD(79.3,.03,21,0)="^^1^1^2990323^"
^DD(79.3,.03,21,1,0)="This is the patient name linked to the exception message."
^DD(79.3,.03,"DT")="2990323"
^DD(79.3,.04,0)="CASE NUMBER^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(79.3,.04,3)="Enter the case number of the exam if applicable for this exception"
^DD(79.3,.04,21,0)="^^1^1^2990323^"
^DD(79.3,.04,21,1,0)="This is the case number of the exam for our message exception."
^DD(79.3,.04,"DT")="2990323"
^DD(79.3,.05,0)="HL7 MESSAGE^RP773'^HLMA(^0;5^Q"
^DD(79.3,.05,3)="Enter the HL7 Message that was rejected"
^DD(79.3,.05,21,0)="^^1^1^2990323^"
^DD(79.3,.05,21,1,0)="This is the HL7 Message that was rejected"
^DD(79.3,.05,"DT")="2990323"
^DD(79.3,.06,0)="USER^P200'^VA(200,^0;6^Q"
^DD(79.3,.06,1,0)="^.1"
^DD(79.3,.06,1,1,0)="79.3^AB"
^DD(79.3,.06,1,1,1)="S ^RA(79.3,""AB"",$E(X,1,30),DA)="""""
^DD(79.3,.06,1,1,2)="K ^RA(79.3,""AB"",$E(X,1,30),DA)"
^DD(79.3,.06,1,1,"DT")="2990323"
^DD(79.3,.06,3)="Enter the Radiology User associated with this message exception"
^DD(79.3,.06,21,0)="^^1^1^2990323^"
^DD(79.3,.06,21,1,0)="This is the name of the radiology user linked to the message exception"
^DD(79.3,.06,"DT")="2990323"
^DD(79.3,1,0)="ERROR^RF^^ERR;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(79.3,1,3)="Enter the error associated with this exception."
^DD(79.3,1,21,0)="^^1^1^2990323^"
^DD(79.3,1,21,1,0)="This is the reason that this message was rejected."
^DD(79.3,1,"DT")="2990323"
^DD(79.3,"B","CASE NUMBER",.04)=""
^DD(79.3,"B","ERROR",1)=""
^DD(79.3,"B","EXCEPTION DATE/TIME",.01)="1"
^DD(79.3,"B","HL7 MESSAGE",.05)=""
^DD(79.3,"B","PATIENT",.03)=""
^DD(79.3,"B","SENDING APPLICATION",.02)=""
^DD(79.3,"B","USER",.06)=""
^DD(79.3,"GL",0,1,.01)=""
^DD(79.3,"GL",0,2,.02)=""
^DD(79.3,"GL",0,3,.03)=""
^DD(79.3,"GL",0,4,.04)=""
^DD(79.3,"GL",0,5,.05)=""
^DD(79.3,"GL",0,6,.06)=""
^DD(79.3,"GL","ERR","E1,245",1)=""
^DD(79.3,"IX",.01)=""
^DD(79.3,"IX",.02)=""
^DD(79.3,"IX",.06)=""
^DD(79.3,"RQ",.01)=""
^DD(79.3,"RQ",.02)=""
^DD(79.3,"RQ",.05)=""
^DD(79.3,"RQ",1)=""
^DD(79.7,0)="FIELD^^1.3^8"
^DD(79.7,0,"DDA")="N"
^DD(79.7,0,"DT")="3080102"
^DD(79.7,0,"IX","B",79.7,.01)=""
^DD(79.7,0,"NM","RAD/NUC MED HL7 APPLICATION EXCEPTION")=""
^DD(79.7,0,"VR")="5.0"
^DD(79.7,0,"VRPK")="RA"
^DD(79.7,.01,0)="HL7 APPLICATION NAME^R*P771'X^HL(771,^0;1^S DIC(""S"")=""I $E(X,1,2)=""""RA"""""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(79.7,.01,1,0)="^.1"
^DD(79.7,.01,1,1,0)="79.7^B"
^DD(79.7,.01,1,1,1)="S ^RA(79.7,""B"",$E(X,1,30),DA)="""""
^DD(79.7,.01,1,1,2)="K ^RA(79.7,""B"",$E(X,1,30),DA)"
^DD(79.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(79.7,.01,12)="VistA Radiology HL7 applications are the only HL7 applications selectable."
^DD(79.7,.01,12.1)="S DIC(""S"")=""I $E(X,1,2)=""""RA"""""""
^DD(79.7,.01,21,0)="^^3^3^3070418^"
^DD(79.7,.01,21,1,0)="This field allows the user to select a 'RA' namespaced HL7 APPLICATION "
^DD(79.7,.01,21,2,0)="PARAMETER (#771) file record in which exceptions are defined that impact "
^DD(79.7,.01,21,3,0)="HL7 message routing."
^DD(79.7,.01,"DT")="3070403"
^DD(79.7,1,0)="TELERADIOLOGY APPLICATION^S^0:No;1:Yes;^0;2^Q"
^DD(79.7,1,3)="Type NO for local or YES for teleradiology (Default=NO)."
^DD(79.7,1,"DT")="3080102"
^DD(79.7,1.1,0)="TELERADIOLOGIST KEYWORD^F^^0;3^K:$L(X)>40!($L(X)<5) X"
^DD(79.7,1.1,3)="Answer must be 5-40 characters in length"
^DD(79.7,1.1,23,0)="^^4^4^3070731^"
^DD(79.7,1.1,23,1,0)="The text tag included in Report/Impression section of a dictated report "
^DD(79.7,1.1,23,2,0)="that indicates that the teleradiologist name and NPI will follow. For "
^DD(79.7,1.1,23,3,0)="example, using a tag of 'Report dictated by Teleradiologist:' as a tag:"
^DD(79.7,1.1,23,4,0)="Report dictated by Teleradiologist: Doe,John E-1234567891"
^DD(79.7,1.1,"DT")="3070731"
^DD(79.7,1.2,0)="RELEASE STUDY KEYWORD^F^^0;4^K:$L(X)>60!($L(X)<5) X"
^DD(79.7,1.2,3)="Answer must be 5-60 characters in length"
^DD(79.7,1.2,23,0)="^^4^4^3070731^"
^DD(79.7,1.2,23,1,0)="The text marker included in Report/Impression section of a dictated "
^DD(79.7,1.2,23,2,0)="report that indicates that the study was released for local reading. "
^DD(79.7,1.2,23,3,0)="For example, 'Released for local dictation by National Teleradiology'"
^DD(79.7,1.2,23,4,0)="might be an used as a marker."
^DD(79.7,1.2,"DT")="3070731"
^DD(79.7,1.3,0)="APPLICATION TYPE^RS^O:Other;S:Speech Recognition;P:PACS;^0;5^Q"
^DD(79.7,1.3,23,0)="^^6^6^3080102^"
^DD(79.7,1.3,23,1,0)="Only unique single characters should be used as"
^DD(79.7,1.3,23,2,0)="internal values of this field."
^DD(79.7,1.3,23,3,0)=" "
^DD(79.7,1.3,23,4,0)="Currently, only the 'S:Speech Recognition' value is "
^DD(79.7,1.3,23,5,0)="used (to exclude speech recognition workstations from "
^DD(79.7,1.3,23,6,0)="some HL7 transmissions)."
^DD(79.7,1.3,"DT")="3080102"
^DD(79.7,2,0)="MESSAGE TYPE^79.72P^^1;0"
^DD(79.7,2,21,0)="^.001^2^2^3070419^^"
^DD(79.7,2,21,1,0)="This field identifies the HL7 message type. This field is a pointer"
^DD(79.7,2,21,2,0)="to HL7 MESSAGE TYPE (#771.2) file."
^DD(79.7,2,"DT")="3070419"
^DD(79.7,2.1,0)="DEFAULT DX FOR 'R' REPORT^*P78.3'^RA(78.3,^2;1^S DIC(""S"")=""I +Y'<2000"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79.7,2.1,3)="Enter the appropriate diagnostic code associated with a released/not verified teleradiology report."
^DD(79.7,2.1,12)="Internal Entry Numbers (IEN) for diagnostic code related to the National Teleradiology initiative assume IEN values of two thousand or greater."
^DD(79.7,2.1,12.1)="S DIC(""S"")=""I +Y'<2000"""
^DD(79.7,2.1,21,0)="^.001^5^5^3070907^^"
^DD(79.7,2.1,21,1,0)="This field identifies the diagnostic code associated with a released/not "
^DD(79.7,2.1,21,2,0)="verified teleradiology report."
^DD(79.7,2.1,21,3,0)=" "
^DD(79.7,2.1,21,4,0)="A released/not verified teleradiology report indicates that the report is"
^DD(79.7,2.1,21,5,0)="being locked by a teleradiologist at the National Teleradiology Center."
^DD(79.7,2.1,"DT")="3070907"
^DD(79.7,2.2,0)="DEFAULT DX FOR 'F' REPORT^*P78.3'^RA(78.3,^2;2^S DIC(""S"")=""I +Y'<2000"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(79.7,2.2,3)="Enter the appropriate diagnostic code associated with a signed ('finalized') teleradiology report."
^DD(79.7,2.2,12)="Internal Entry Numbers (IEN) for diagnostic code related to the National Teleradiology initiative assume IEN values of two thousand or greater."
^DD(79.7,2.2,12.1)="S DIC(""S"")=""I +Y'<2000"""
^DD(79.7,2.2,21,0)="^^5^5^3070907^"
^DD(79.7,2.2,21,1,0)="This field identifies the diagnostic code associated with a signed or "
^DD(79.7,2.2,21,2,0)="verified teleradiology report."
^DD(79.7,2.2,21,3,0)=" "
^DD(79.7,2.2,21,4,0)="A verified teleradiology report indicates that the report was signed by a"
^DD(79.7,2.2,21,5,0)="teleradiologist working for the National Teleradiology Center."
^DD(79.7,2.2,"DT")="3070907"
^DD(79.7,"B","APPLICATION TYPE",1.3)=""
^DD(79.7,"B","DEFAULT DX FOR 'F' REPORT",2.2)=""
^DD(79.7,"B","DEFAULT DX FOR 'R' REPORT",2.1)=""
^DD(79.7,"B","HL7 APPLICATION NAME",.01)=""
^DD(79.7,"B","MESSAGE TYPE",2)=""
^DD(79.7,"B","RELEASE STUDY KEYWORD",1.2)=""
^DD(79.7,"B","TELERADIOLOGIST KEYWORD",1.1)=""
^DD(79.7,"B","TELERADIOLOGY APPLICATION",1)=""
^DD(79.7,"GL",0,1,.01)=""
^DD(79.7,"GL",0,2,1)=""
^DD(79.7,"GL",0,3,1.1)=""
^DD(79.7,"GL",0,4,1.2)=""
^DD(79.7,"GL",0,5,1.3)=""
^DD(79.7,"GL",1,0,2)=""
^DD(79.7,"GL",2,1,2.1)=""
^DD(79.7,"GL",2,2,2.2)=""
^DD(79.7,"IX",.01)=""
^DD(79.7,"RQ",.01)=""
^DD(79.7,"RQ",1.3)=""
^DD(79.7,"SB",79.72,2)=""
^DD(79.72,0)="MESSAGE TYPE SUB-FIELD^^1^2"
^DD(79.72,0,"DT")="3070404"
^DD(79.72,0,"IX","B",79.72,.01)=""
^DD(79.72,0,"NM","MESSAGE TYPE")=""
^DD(79.72,0,"UP")="79.7"
^DD(79.72,.01,0)="MESSAGE TYPE^MP771.2'X^HL(771.2,^0;1^S:$D(X) DINUM=X Q"
^DD(79.72,.01,1,0)="^.1"
^DD(79.72,.01,1,1,0)="79.72^B"
^DD(79.72,.01,1,1,1)="S ^RA(79.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(79.72,.01,1,1,2)="K ^RA(79.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(79.72,.01,3)="Select HL7 Message Type"
^DD(79.72,.01,21,0)="^.001^3^3^3070419^^"
^DD(79.72,.01,21,1,0)="This field identifies the HL7 message type. This field is a pointer"
^DD(79.72,.01,21,2,0)="to HL7 MESSAGE TYPE (#771.2) file and may be set to values such as: ORM "
^DD(79.72,.01,21,3,0)="(order message) or ORU (unsolicited observation message)."
^DD(79.72,.01,"DT")="3070419"
^DD(79.72,1,0)="EVENT TYPE^79.721P^^1;0"
^DD(79.72,1,21,0)="^^2^2^3070419^"
^DD(79.72,1,21,1,0)="This field identifies the HL7 event type. This field is a pointer to HL7"
^DD(79.72,1,21,2,0)="EVENT TYPE CODE (#779.001) file."
^DD(79.72,1,"DT")="3070419"
^DD(79.72,"B","EVENT TYPE",1)=""
^DD(79.72,"B","MESSAGE TYPE",.01)=""
^DD(79.72,"GL",0,1,.01)=""
^DD(79.72,"GL",1,0,1)=""
^DD(79.72,"IX",.01)=""
^DD(79.72,"SB",79.721,1)=""
^DD(79.721,0)="EVENT TYPE SUB-FIELD^^1^2"
^DD(79.721,0,"DT")="3070404"
^DD(79.721,0,"IX","B",79.721,.01)=""
^DD(79.721,0,"NM","EVENT TYPE")=""
^DD(79.721,0,"UP")="79.72"
^DD(79.721,.01,0)="EVENT TYPE^P779.001'X^HL(779.001,^0;1^S:$D(X) DINUM=X Q"
^DD(79.721,.01,1,0)="^.1"
^DD(79.721,.01,1,1,0)="79.721^B"
^DD(79.721,.01,1,1,1)="S ^RA(79.7,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(79.721,.01,1,1,2)="K ^RA(79.7,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(79.721,.01,3)="Select HL7 Event Type"
^DD(79.721,.01,21,0)="^^3^3^3070419^"
^DD(79.721,.01,21,1,0)="This field identifies the HL7 event type. This field is a pointer to HL7"
^DD(79.721,.01,21,2,0)="EVENT TYPE CODE (#779.001) file and may be set to values such as: O01 "
^DD(79.721,.01,21,3,0)="(Oh-zero-one) or RO1 (R-zero-one)."
^DD(79.721,.01,"DT")="3070419"
^DD(79.721,1,0)="HL7 VERSION^79.7211P^^1;0"
^DD(79.721,1,21,0)="^.001^2^2^3070419^^"
^DD(79.721,1,21,1,0)="This field identifies the HL7 version. This field is a pointer to HL7"
^DD(79.721,1,21,2,0)="VERSION (#771.5) file."
^DD(79.721,1,"DT")="3070419"
^DD(79.721,"B","EVENT TYPE",.01)=""
^DD(79.721,"B","HL7 VERSION",1)=""
^DD(79.721,"GL",0,1,.01)=""
^DD(79.721,"GL",1,0,1)=""
^DD(79.721,"IX",.01)=""
^DD(79.721,"SB",79.7211,1)=""
^DD(79.7211,0)="HL7 VERSION SUB-FIELD^^4^5"
^DD(79.7211,0,"DT")="3070404"
^DD(79.7211,0,"IX","B",79.7211,.01)=""
^DD(79.7211,0,"NM","HL7 VERSION")=""
^DD(79.7211,0,"UP")="79.721"
^DD(79.7211,.01,0)="HL7 VERSION^P771.5'X^HL(771.5,^0;1^S:$D(X) DINUM=X Q"
^DD(79.7211,.01,.1)="HL7 VERSION"
^DD(79.7211,.01,1,0)="^.1"
^DD(79.7211,.01,1,1,0)="79.7211^B"
^DD(79.7211,.01,1,1,1)="S ^RA(79.7,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(79.7211,.01,1,1,2)="K ^RA(79.7,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(79.7211,.01,21,0)="^^3^3^3070419^"
^DD(79.7211,.01,21,1,0)="This field identifies the HL7 version. This field is a pointer to HL7"
^DD(79.7211,.01,21,2,0)="VERSION (#771.5) file. The following values 2.3, 2.4, & 2.5 are"
^DD(79.7211,.01,21,3,0)="legitimate HL7 versions."
^DD(79.7211,.01,"DT")="3070419"
^DD(79.7211,1,0)="RETURN HL7 TO SENDER^S^1:Yes;0:No;^0;2^Q"
^DD(79.7211,1,3)="Type Yes or No"
^DD(79.7211,1,21,0)="^^5^5^3070419^"
^DD(79.7211,1,21,1,0)="This field indicates if an inbound HL7 message to the VistA "
^DD(79.7211,1,21,2,0)="Radiology/Nuclear Medicine application is to be re-broadcast to the"
^DD(79.7211,1,21,3,0)="original sender of the HL7 message."
^DD(79.7211,1,21,4,0)=" "
^DD(79.7211,1,21,5,0)="The default value is 'NO'."
^DD(79.7211,1,"DT")="3070419"
^DD(79.7211,2,0)="INBOUND SEGMENT CODING^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(79.7211,2,3)="Enter Standard MUMPS code"
^DD(79.7211,2,21,0)="^^5^5^3070419^"
^DD(79.7211,2,21,1,0)="For an inbound HL7 messages this field will contain M code to handle"
^DD(79.7211,2,21,2,0)="business rule exceptions which are to be applied to HL7 segments."
^DD(79.7211,2,21,3,0)=" "
^DD(79.7211,2,21,4,0)="The M code in this field will be executed before the HL7 segment is"
^DD(79.7211,2,21,5,0)="processed."
^DD(79.7211,2,"DT")="3070419"
^DD(79.7211,3,0)="OUTBOUND SEGMENT CODING^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(79.7211,3,3)="Enter Standard MUMPS code"
^DD(79.7211,3,21,0)="^^8^8^3070419^"
^DD(79.7211,3,21,1,0)="For Outbound message: M coding to handle exceptions on Segment level. "
^DD(79.7211,3,21,2,0)="Coding is invoked before the Segment is processed."
^DD(79.7211,3,21,3,0)=" "
^DD(79.7211,3,21,4,0)="For an outbound HL7 messages this field will contain M code to handle"
^DD(79.7211,3,21,5,0)="business rule exceptions which are to be applied to HL7 segments."
^DD(79.7211,3,21,6,0)=" "
^DD(79.7211,3,21,7,0)="The M code in this field will be executed before the HL7 segment is"
^DD(79.7211,3,21,8,0)="broadcast as part of a HL7 message."
^DD(79.7211,3,"DT")="3070419"
^DD(79.7211,4,0)="HL7 FIELD EXCEPTIONS^79.72114^^3;0"
^DD(79.7211,4,21,0)="^.001^2^2^3070419^^"
^DD(79.7211,4,21,1,0)="This field will contain M code to handle business rule exceptions which"
^DD(79.7211,4,21,2,0)="are to be applied to HL7 fields."
^DD(79.7211,4,"DT")="3070419"
^DD(79.7211,"B","HL7 FIELD EXCEPTIONS",4)=""
^DD(79.7211,"B","HL7 VERSION",.01)="1"
^DD(79.7211,"B","INBOUND SEGMENT CODING",2)=""
^DD(79.7211,"B","OUTBOUND SEGMENT CODING",3)=""
^DD(79.7211,"B","RETURN HL7 TO SENDER",1)=""
^DD(79.7211,"GL",0,1,.01)=""
^DD(79.7211,"GL",0,2,1)=""
^DD(79.7211,"GL",1,"E1,245",2)=""
^DD(79.7211,"GL",2,"E1,245",3)=""
^DD(79.7211,"GL",3,0,4)=""
^DD(79.7211,"IX",.01)=""
^DD(79.7211,"SB",79.72114,4)=""
^DD(79.72114,0)="HL7 FIELD EXCEPTIONS SUB-FIELD^^2^3"
^DD(79.72114,0,"DT")="3070404"
^DD(79.72114,0,"IX","B",79.72114,.01)=""
^DD(79.72114,0,"NM","HL7 FIELD EXCEPTIONS")=""
^DD(79.72114,0,"UP")="79.7211"
^DD(79.72114,.01,0)="HL7 FIELD EXCEPTIONS NAME^F^^0;1^K:$L(X)>10!($L(X)<3) X"
^DD(79.72114,.01,1,0)="^.1"
^DD(79.72114,.01,1,1,0)="79.72114^B"
^DD(79.72114,.01,1,1,1)="S ^RA(79.7,DA(4),1,DA(3),1,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(79.72114,.01,1,1,2)="K ^RA(79.7,DA(4),1,DA(3),1,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(79.72114,.01,3)="Answer must be 3-10 characters in length"
^DD(79.72114,.01,21,0)="^^6^6^3070419^"
^DD(79.72114,.01,21,1,0)="This field will contain M code to handle business rule exceptions which"
^DD(79.72114,.01,21,2,0)="are to be applied to HL7 fields.  "
^DD(79.72114,.01,21,3,0)=" "
^DD(79.72114,.01,21,4,0)="An example of a HL7 FIELD EXCEPTIONS NAME would be: 'OBR-32'. 'OBR' is the"
^DD(79.72114,.01,21,5,0)="HL7 segments and thirty-two in the piece position on that segment to which"
^DD(79.72114,.01,21,6,0)="the business rule exception will be applied."
^DD(79.72114,.01,"DT")="3070419"
^DD(79.72114,1,0)="INBOUND HL7 FIELD CODING^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(79.72114,1,3)="Enter Standard MUMPS code"
^DD(79.72114,1,21,0)="^^5^5^3070419^"
^DD(79.72114,1,21,1,0)="For an inbound HL7 messages this field will contain M code to handle"
^DD(79.72114,1,21,2,0)="business rule exceptions which are to be applied to HL7 fields."
^DD(79.72114,1,21,3,0)=" "
^DD(79.72114,1,21,4,0)="The M code in this field will be executed before the HL7 field is"
^DD(79.72114,1,21,5,0)="processed."
^DD(79.72114,1,"DT")="3070419"
^DD(79.72114,2,0)="OUTBOUND HL7 FIELD CODING^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(79.72114,2,3)="Enter Standard MUMPS code"
^DD(79.72114,2,21,0)="^^5^5^3070419^"
^DD(79.72114,2,21,1,0)="For an outbound HL7 messages this field will contain M code to handle"
^DD(79.72114,2,21,2,0)="business rule exceptions which are to be applied to HL7 fields."
^DD(79.72114,2,21,3,0)=" "
^DD(79.72114,2,21,4,0)="The M code in this field will be executed before the HL7 field is"
^DD(79.72114,2,21,5,0)="broadcast as part of a HL7 message.         "
^DD(79.72114,2,"DT")="3070419"
^DD(79.72114,"B","HL7 FIELD EXCEPTIONS NAME",.01)=""
^DD(79.72114,"B","INBOUND HL7 FIELD CODING",1)=""
^DD(79.72114,"B","OUTBOUND HL7 FIELD CODING",2)=""
^DD(79.72114,"GL",0,1,.01)=""
^DD(79.72114,"GL",1,"E1,245",1)=""
^DD(79.72114,"GL",2,"E1,245",2)=""
^DD(79.72114,"IX",.01)=""
^DD(80,0)="FIELD^^103^32"
^DD(80,0,"DDA")="N"
^DD(80,0,"DT")="3070829"
^DD(80,0,"ID",3)="D EN^DDIOL(("" ""_$$IDDXS^ICDID(+Y)),"""",""?0"")"
^DD(80,0,"IX","AB",80,.01)=""
^DD(80,0,"IX","ACC",80.03,.01)=""
^DD(80,0,"IX","ACT1",80,.01)=""
^DD(80,0,"IX","ACT2",80.066,.01)=""
^DD(80,0,"IX","ACT3",80.066,.02)=""
^DD(80,0,"IX","AST",80.067,.01)=""
^DD(80,0,"IX","BA",80,.01)=""
^DD(80,0,"IX","BAA",80,.01)=""
^DD(80,0,"IX","D",80,10)=""
^DD(80,0,"NM","ICD DIAGNOSIS")=""
^DD(80,0,"PT",27.17,3)=""
^DD(80,0,"PT",31.01,.01)=""
^DD(80,0,"PT",44.11,.01)=""
^DD(80,0,"PT",45,79)=""
^DD(80,0,"PT",45,79.16)=""
^DD(80,0,"PT",45,79.17)=""
^DD(80,0,"PT",45,79.18)=""
^DD(80,0,"PT",45,79.19)=""
^DD(80,0,"PT",45,79.201)=""
^DD(80,0,"PT",45,79.21)=""
^DD(80,0,"PT",45,79.22)=""
^DD(80,0,"PT",45,79.23)=""
^DD(80,0,"PT",45,79.24)=""
^DD(80,0,"PT",45,79.241)=""
^DD(80,0,"PT",45,79.242)=""
^DD(80,0,"PT",45,79.243)=""
^DD(80,0,"PT",45,79.244)=""
^DD(80,0,"PT",45,80)=""
^DD(80,0,"PT",45.02,5)=""
^DD(80,0,"PT",45.02,6)=""
^DD(80,0,"PT",45.02,7)=""
^DD(80,0,"PT",45.02,8)=""
^DD(80,0,"PT",45.02,9)=""
^DD(80,0,"PT",45.02,11)=""
^DD(80,0,"PT",45.02,12)=""
^DD(80,0,"PT",45.02,13)=""
^DD(80,0,"PT",45.02,14)=""
^DD(80,0,"PT",45.02,15)=""
^DD(80,0,"PT",45.06,.04)=""
^DD(80,0,"PT",45.89,.02)=""
^DD(80,0,"PT",46,.04)=""
^DD(80,0,"PT",46,.05)=""
^DD(80,0,"PT",46,.06)=""
^DD(80,0,"PT",46,.07)=""
^DD(80,0,"PT",46,.21)=""
^DD(80,0,"PT",46,.22)=""
^DD(80,0,"PT",46,.23)=""
^DD(80,0,"PT",46,.24)=""
^DD(80,0,"PT",46.1,.01)=""
^DD(80,0,"PT",52.052311,.01)=""
^DD(80,0,"PT",52.41311,.01)=""
^DD(80,0,"PT",63.203,.01)=""
^DD(80,0,"PT",63.808,.01)=""
^DD(80,0,"PT",63.88,.01)=""
^DD(80,0,"PT",63.901,.01)=""
^DD(80,0,"PT",64.018,.01)=""
^DD(80,0,"PT",64.811718,.01)=""
^DD(80,0,"PT",69.05,.01)=""
^DD(80,0,"PT",69.54,.01)=""
^DD(80,0,"PT",75.1,91)=""
^DD(80,0,"PT",75.13,.01)=""
^DD(80,0,"PT",80.01,.01)=""
^DD(80,0,"PT",80.02,.01)=""
^DD(80,0,"PT",80.03,.01)=""
^DD(80,0,"PT",90,113)=""
^DD(80,0,"PT",90,113.6)=""
^DD(80,0,"PT",90.1,.01)=""
^DD(80,0,"PT",90.16,.01)=""
^DD(80,0,"PT",90.17,.01)=""
^DD(80,0,"PT",100.051,.01)=""
^DD(80,0,"PT",130,32.5)=""
^DD(80,0,"PT",130,66)=""
^DD(80,0,"PT",130,253)=""
^DD(80,0,"PT",130,286)=""
^DD(80,0,"PT",130,343)=""
^DD(80,0,"PT",130,344)=""
^DD(80,0,"PT",130,392)=""
^DD(80,0,"PT",130,489)=""
^DD(80,0,"PT",130.13,4)=""
^DD(80,0,"PT",130.17,3)=""
^DD(80,0,"PT",130.18,3)=""
^DD(80,0,"PT",130.22,6)=""
^DD(80,0,"PT",136,.03)=""
^DD(80,0,"PT",136.02,.01)=""
^DD(80,0,"PT",136.04,.01)=""
^DD(80,0,"PT",136.32,.01)=""
^DD(80,0,"PT",160,19)=""
^DD(80,0,"PT",160,25)=""
^DD(80,0,"PT",160,25.1)=""
^DD(80,0,"PT",160,25.2)=""
^DD(80,0,"PT",160,25.3)=""
^DD(80,0,"PT",160,25.4)=""
^DD(80,0,"PT",160,25.5)=""
^DD(80,0,"PT",160,25.6)=""
^DD(80,0,"PT",160,25.7)=""
^DD(80,0,"PT",160,25.8)=""
^DD(80,0,"PT",160,25.9)=""
^DD(80,0,"PT",160.075,8)=""
^DD(80,0,"PT",162.03,28)=""
^DD(80,0,"PT",162.5,30)=""
^DD(80,0,"PT",162.5,31)=""
^DD(80,0,"PT",162.5,32)=""
^DD(80,0,"PT",162.5,33)=""
^DD(80,0,"PT",162.5,34)=""
^DD(80,0,"PT",165.5,1400)=""
^DD(80,0,"PT",165.5,1400.1)=""
^DD(80,0,"PT",165.5,1400.2)=""
^DD(80,0,"PT",165.5,1400.3)=""
^DD(80,0,"PT",165.5,1400.4)=""
^DD(80,0,"PT",165.5,1400.5)=""
^DD(80,0,"PT",165.5,1426)=""
^DD(80,0,"PT",165.5,1426.1)=""
^DD(80,0,"PT",165.5,1426.2)=""
^DD(80,0,"PT",165.5,1426.3)=""
^DD(80,0,"PT",165.5,1426.4)=""
^DD(80,0,"PT",165.5,1571)=""
^DD(80,0,"PT",165.5,1571.1)=""
^DD(80,0,"PT",165.5,1571.2)=""
^DD(80,0,"PT",165.5,1571.3)=""
^DD(80,0,"PT",165.5,1571.4)=""
^DD(80,0,"PT",165.5,1571.5)=""
^DD(80,0,"PT",165.5,1579)=""
^DD(80,0,"PT",165.5,1579.1)=""
^DD(80,0,"PT",165.5,1579.2)=""
^DD(80,0,"PT",165.5,1579.3)=""
^DD(80,0,"PT",165.5,1579.4)=""
^DD(80,0,"PT",200.0351,.01)=""
^DD(80,0,"PT",350.9,1.29)=""
^DD(80,0,"PT",351.612,.01)=""
^DD(80,0,"PT",356.2,.14)=""
^DD(80,0,"PT",356.9,.01)=""
^DD(80,0,"PT",362.3,.01)=""
^DD(80,0,"PT",373.04,.03)=""
^DD(80,0,"PT",375.04,.03)=""
^DD(80,0,"PT",399,64)=""
^DD(80,0,"PT",399,65)=""
^DD(80,0,"PT",399,66)=""
^DD(80,0,"PT",399,67)=""
^DD(80,0,"PT",399,68)=""
^DD(80,0,"PT",399,215)=""
^DD(80,0,"PT",399.0304,7)=""
^DD(80,0,"PT",409.43,.01)=""
^DD(80,0,"PT",627.8,1)=""
^DD(80,0,"PT",627.99,1)=""
^DD(80,0,"PT",627.99,30)=""
^DD(80,0,"PT",631,18)=""
^DD(80,0,"PT",631,46)=""
^DD(80,0,"PT",632.033,.01)=""
^DD(80,0,"PT",660,8.8)=""
^DD(80,0,"PT",660,30)=""
^DD(80,0,"PT",660,31)=""
^DD(80,0,"PT",660,32)=""
^DD(80,0,"PT",660,33)=""
^DD(80,0,"PT",665.193,30)=""
^DD(80,0,"PT",665.193,31)=""
^DD(80,0,"PT",665.193,32)=""
^DD(80,0,"PT",665.193,33)=""
^DD(80,0,"PT",665.194,7)=""
^DD(80,0,"PT",665.723191,9)=""
^DD(80,0,"PT",668,1.6)=""
^DD(80,0,"PT",668,30)=""
^DD(80,0,"PT",668,31)=""
^DD(80,0,"PT",668,32)=""
^DD(80,0,"PT",668,33)=""
^DD(80,0,"PT",691.19,.01)=""
^DD(80,0,"PT",691.46,.01)=""
^DD(80,0,"PT",691.58,.01)=""
^DD(80,0,"PT",691.69,.01)=""
^DD(80,0,"PT",691.704,.01)=""
^DD(80,0,"PT",691.806,.01)=""
^DD(80,0,"PT",691.9001,.01)=""
^DD(80,0,"PT",692.03,.01)=""
^DD(80,0,"PT",693,2)=""
^DD(80,0,"PT",694.02,.01)=""
^DD(80,0,"PT",697.5,4)=""
^DD(80,0,"PT",697.51,.01)=""
^DD(80,0,"PT",698.02,.01)=""
^DD(80,0,"PT",698.12,.01)=""
^DD(80,0,"PT",698.22,.01)=""
^DD(80,0,"PT",698.32,.01)=""
^DD(80,0,"PT",699.03,.01)=""
^DD(80,0,"PT",699.54,.01)=""
^DD(80,0,"PT",700.05,.01)=""
^DD(80,0,"PT",701.01,.01)=""
^DD(80,0,"PT",721,20)=""
^DD(80,0,"PT",721.038,.01)=""
^DD(80,0,"PT",801.41,15)=""
^DD(80,0,"PT",801.41,18)=""
^DD(80,0,"PT",801.4118,.01)=""
^DD(80,0,"PT",811.23102,.01)=""
^DD(80,0,"PT",811.31,.01)=""
^DD(80,0,"PT",8925.9,.06)=""
^DD(80,0,"PT",8984.1,.02)=""
^DD(80,0,"PT",8984.2,.02)=""
^DD(80,0,"PT",509850.1,.01)=""
^DD(80,0,"PT",9000010.07,.01)=""
^DD(80,0,"PT",9000010.11,.08)=""
^DD(80,0,"PT",9000010.11,.09)=""
^DD(80,0,"PT",9000010.11,.1)=""
^DD(80,0,"PT",9000010.11,.11)=""
^DD(80,0,"PT",9000010.11,.12)=""
^DD(80,0,"PT",9000010.11,.13)=""
^DD(80,0,"PT",9000010.11,.14)=""
^DD(80,0,"PT",9000010.11,.15)=""
^DD(80,0,"PT",9000010.12,.08)=""
^DD(80,0,"PT",9000010.12,.09)=""
^DD(80,0,"PT",9000010.12,.1)=""
^DD(80,0,"PT",9000010.12,.11)=""
^DD(80,0,"PT",9000010.12,.12)=""
^DD(80,0,"PT",9000010.12,.13)=""
^DD(80,0,"PT",9000010.12,.14)=""
^DD(80,0,"PT",9000010.12,.15)=""
^DD(80,0,"PT",9000010.18,.05)=""
^DD(80,0,"PT",9000010.18,.09)=""
^DD(80,0,"PT",9000010.18,.1)=""
^DD(80,0,"PT",9000010.18,.11)=""
^DD(80,0,"PT",9000010.18,.12)=""
^DD(80,0,"PT",9000010.18,.13)=""
^DD(80,0,"PT",9000010.18,.14)=""
^DD(80,0,"PT",9000010.18,.15)=""
^DD(80,0,"PT",9000011,.01)=""
^DD(80,0,"PT",9002313.992274,.01)=""
^DD(80,0,"VR")="18.0"
^DD(80,0,"VRPK")="ICD"
^DD(80,0,"VRRV")="29^3071001"
^DD(80,.01,0)="CODE NUMBER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.E1""."".N) X"
^DD(80,.01,1,0)="^.1"
^DD(80,.01,1,1,0)="80^BA^MUMPS"
^DD(80,.01,1,1,1)="S ^ICD9(""BA"",X_"" "",DA)="""""
^DD(80,.01,1,1,2)="K ^ICD9(""BA"",X_"" "",DA)"
^DD(80,.01,1,1,"%D",0)="^^2^2^2940314^"
^DD(80,.01,1,1,"%D",1,0)="This forces X to be regarded as a string, thus disallowing the dropping of"
^DD(80,.01,1,1,"%D",2,0)="leading or final '0's."
^DD(80,.01,1,2,0)="80^AB^MUMPS"
^DD(80,.01,1,2,1)="S ^ICD9(""AB"",X_"" "",DA)="""""
^DD(80,.01,1,2,2)="K ^ICD9(""AB"",X_"" "",DA)"
^DD(80,.01,1,2,"%D",0)="^^2^2^2940314^"
^DD(80,.01,1,2,"%D",1,0)="This forces X to be regarded as a string, thus disallowing the dropping of"
^DD(80,.01,1,2,"%D",2,0)="leading or final '0's."
^DD(80,.01,1,3,0)="80^BAA^MUMPS"
^DD(80,.01,1,3,1)="S:+X\1[$P(X,""."",1) ^ICD9(""BA"",+X,DA)="""""
^DD(80,.01,1,3,2)="K:+X\1[$P(X,""."",1) ^ICD9(""BA"",+X,DA)"
^DD(80,.01,1,3,"%D",0)="^^2^2^2940314^"
^DD(80,.01,1,3,"%D",1,0)="This x-references under the integral part of the code number, within"
^DD(80,.01,1,3,"%D",2,0)="the ""BA"" node, to allow selection from the integral part only."
^DD(80,.01,1,4,0)="80^ACT1^MUMPS"
^DD(80,.01,1,4,1)="D SAHC^ICD9IDX"
^DD(80,.01,1,4,2)="D KAHC^ICD9IDX"
^DD(80,.01,1,4,"%D",0)="^.101^1^1^3030305^^"
^DD(80,.01,1,4,"%D",1,0)="Set and Kill Activation History"
^DD(80,.01,1,4,"DT")="3030221"
^DD(80,.01,3)="Answer must be 1-7 characters in length and contain a decimal point (e.g.: 042.)"
^DD(80,.01,21,0)="^.001^2^2^3010313^^^"
^DD(80,.01,21,1,0)=" "
^DD(80,.01,21,2,0)="ICD 9 code number"
^DD(80,.01,"DT")="3030221"
^DD(80,.01,"LAYGO",1,0)="I 1"
^DD(80,2,0)="IDENTIFIER^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(80,2,.1)="DRG FLAGS"
^DD(80,2,3)="Enter one or more valid codes."
^DD(80,2,4)="D ^ICDHLPD"
^DD(80,2,21,0)="^.001^1^1^3010313^^^^"
^DD(80,2,21,1,0)="This field contains Identifier codes providing more detail on the DRG."
^DD(80,3,0)="DIAGNOSIS^RF^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(80,3,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(80,3,21,0)="^.001^2^2^3021114^^"
^DD(80,3,21,1,0)=" "
^DD(80,3,21,2,0)="Diagnosis that code represents."
^DD(80,5,0)="MAJOR DIAGNOSTIC CATEGORY^P80.3'^ICM(^0;5^Q"
^DD(80,5,21,0)="^^2^2^2940307^"
^DD(80,5,21,1,0)=" "
^DD(80,5,21,2,0)="MDC within which this code falls."
^DD(80,5.5,0)="MDC13^NJ2,0^^0;6^K:+X'=X!(X>13)!(X<13)!(X?.E1"".""1N.N) X"
^DD(80,5.5,3)="Type a Number between 13 and 13, 0 Decimal Digits"
^DD(80,5.5,21,0)="^^2^2^2940307^"
^DD(80,5.5,21,1,0)=" "
^DD(80,5.5,21,2,0)="Entered if MDC=13."
^DD(80,5.7,0)="MDC24^S^0:PRINCIPAL DX;1:HEAD;2:CHEST;3:ABDOMEN;4:KIDNEY;5:URINARY;6:PELVIS;7:UPPER LIMB;8:LOWER LIMB;^0;12^Q"
^DD(80,5.7,3)="REFLECTS MULTIPLE SIGNIFICANT TRAUMA BODY SITE"
^DD(80,5.7,21,0)="^^2^2^2940307^"
^DD(80,5.7,21,1,0)=" "
^DD(80,5.7,21,2,0)="Code entry of body site of Multiple Significant Trauma."
^DD(80,5.7,"DT")="2910305"
^DD(80,5.9,0)="MDC25^S^1:HIV INFECTION;2:MAJOR HIV CONDITION;3:NON-MAJOR HIV CONDITION;^0;13^Q"
^DD(80,5.9,3)="REFLECTS HIV DXLS OR RELATED CONDITION"
^DD(80,5.9,21,0)="^^2^2^2940307^"
^DD(80,5.9,21,1,0)=" "
^DD(80,5.9,21,2,0)="Set of codes refers to type of HIV code or related condition."
^DD(80,5.9,"DT")="2910305"
^DD(80,8,0)="ICD EXPANDED^S^1:YES;0:NO;^0;8^Q"
^DD(80,8,3)="USED WITH VA ONLY CODES"
^DD(80,8,21,0)="^^1^1^2940308^"
^DD(80,8,21,1,0)="This field contains thr ICD code as expanded by the VA"
^DD(80,9.5,0)="SEX^S^M:MALE;F:FEMALE;^0;10^Q"
^DD(80,9.5,21,0)="^.001^2^2^3021017^^^^"
^DD(80,9.5,21,1,0)=" "
^DD(80,9.5,21,2,0)="F = Female; M = Male; Blank otherwise"
^DD(80,9.5,"DT")="3021017"
^DD(80,10,0)="DESCRIPTION^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X"
^DD(80,10,1,0)="^.1"
^DD(80,10,1,1,0)="80^D^MUMPS"
^DD(80,10,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""~!@#$%&*()_+`-=[]{};'\:|,./?<> """"""[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^ICD9(""D"",I,DA)="""""
^DD(80,10,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""~!@#$%&*()_+`-=[]{};'\:|,./?<> """"""[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31 K ^ICD9(""D"",I,DA)"
^DD(80,10,1,1,"%D",0)="^.101^1^1^2890517^^^"
^DD(80,10,1,1,"%D",1,0)="This is a KWIC x-ref, allowing selection by Key Words."
^DD(80,10,1,1,"DT")="2890517"
^DD(80,10,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(80,10,21,0)="^.001^2^2^3020904^^"
^DD(80,10,21,1,0)=" "
^DD(80,10,21,2,0)="Complete description of ICD9 diagnosis represented by code."
^DD(80,10,"DT")="2890517"
^DD(80,14,0)="AGE LOW^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80,14,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(80,14,21,0)="^^2^2^3030227^"
^DD(80,14,21,1,0)="Code reasonable for age within Age(low) and"
^DD(80,14,21,2,0)="Age(high) values.  Blank, otherwise."
^DD(80,14,"DT")="3030227"
^DD(80,15,0)="AGE HIGH^NJ3,0^^0;15^K:+X'=X!(X>124)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80,15,3)="Type a Number between 0 and 124, 0 Decimal Digits"
^DD(80,15,21,0)="^.001^2^2^3041021^^"
^DD(80,15,21,1,0)="Code reasonable for age within Age(low) and"
^DD(80,15,21,2,0)="Age(high) values.  Blank, otherwise."
^DD(80,15,"DT")="3041021"
^DD(80,16,0)="ACTIVATION DATE^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80,16,3)="Enter date the ICD Code was activated."
^DD(80,16,21,0)="^^1^1^3030220^"
^DD(80,16,21,1,0)="Date the ICD code becomes/became activated."
^DD(80,16,"DT")="3030220"
^DD(80,20,0)="ICD9 CODES NOT TO USE WITH^80.01P^^N;0"
^DD(80,20,21,0)="^^1^1^2940314^^"
^DD(80,20,21,1,0)="ICD9 codes that cannot be used in conjunction with this code."
^DD(80,30,0)="ICD9 CODES REQUIRED WITH^80.02P^^R;0"
^DD(80,30,21,0)="^^1^1^2940307^"
^DD(80,30,21,1,0)="Codes required when this code is used."
^DD(80,40,0)="CODE NOT CC WITH^80.03P^^2;0"
^DD(80,40,21,0)="^.001^1^1^3010313^^^"
^DD(80,40,21,1,0)="Code not considered as Complication/comorbidity with this code."
^DD(80,60,0)="DRGa^P80.2'^ICD(^DRG;1^Q"
^DD(80,60,21,0)="^^1^1^2940307^"
^DD(80,60,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80,61,0)="DRGb^P80.2'^ICD(^DRG;2^Q"
^DD(80,61,3)=""
^DD(80,61,21,0)="^^1^1^2940307^"
^DD(80,61,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80,62,0)="DRGc^P80.2'^ICD(^DRG;3^Q"
^DD(80,62,3)=""
^DD(80,62,21,0)="^^1^1^2940307^"
^DD(80,62,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80,63,0)="DRGd^P80.2'^ICD(^DRG;4^Q"
^DD(80,63,3)=""
^DD(80,63,21,0)="^^1^1^2940307^^^"
^DD(80,63,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of"
^DD(80,64,0)="DRGe^P80.2'^ICD(^DRG;5^Q"
^DD(80,64,3)=""
^DD(80,64,21,0)="^^1^1^2940307^"
^DD(80,64,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80,65,0)="DRGf^P80.2'^ICD(^DRG;6^Q"
^DD(80,65,21,0)="^^1^1^2940307^"
^DD(80,65,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80,66,0)="EFFECTIVE DATE^80.066DA^^66;0"
^DD(80,66,21,0)="^.001^2^2^3040916^^^^"
^DD(80,66,21,1,0)="This multiple contains versioned information for an ICD code."
^DD(80,66,21,2,0)="A new entry is created whenever an ICD code's status is changed."
^DD(80,67,0)="DIAGNOSIS (VERSIONED)^80.067D^^67;0"
^DD(80,67,21,0)="^^2^2^3040310^"
^DD(80,67,21,1,0)="This is a history of the Diagnosis (short text) to include the date the "
^DD(80,67,21,2,0)="text was first used along with the text."
^DD(80,68,0)="DESCRIPTION (VERSIONED)^80.068D^^68;0"
^DD(80,68,21,0)="^^2^2^3040310^"
^DD(80,68,21,1,0)="This is a history of the descriptive text to include the date the text "
^DD(80,68,21,2,0)="was first used and the text used."
^DD(80,70,0)="COMPLICATION/COMORBIDITY^S^1:COMPLICATION/COMORBIDITY;^0;7^Q"
^DD(80,70,21,0)="^^1^1^2940307^"
^DD(80,70,21,1,0)="Set =1 if this ICD9 refers to code with c/c."
^DD(80,70,"DT")="2890526"
^DD(80,71,0)="DRG GROUPER EFFECTIVE DATE^80.071D^^3;0"
^DD(80,71,21,0)="^.001^1^1^3040916^^^^"
^DD(80,71,21,1,0)="ICD Diagnosis code effective date used to resolve corresponding DRGs."
^DD(80,71,"DT")="3040729"
^DD(80,72,0)="MDC EFFECTIVE DATE^80.072D^^4;0"
^DD(80,72,21,0)="^^3^3^3041213^"
^DD(80,72,21,1,0)="Major Diagnostic Category (MDC) effective date associated with ICD "
^DD(80,72,21,2,0)="Diagnosis. A new MDC effective date will be created each fiscal year for "
^DD(80,72,21,3,0)="year versioning of the MDCs."
^DD(80,100,0)="INACTIVE FLAG^S^1:INACTIVE;^0;9^Q"
^DD(80,100,21,0)="^.001^1^1^3010313^^^^"
^DD(80,100,21,1,0)="Set =1 when this code is  no longer active."
^DD(80,101,0)="UNACCEPTABLE AS PRINCIPAL DX^S^1:YES;^0;4^Q"
^DD(80,101,21,0)="^^1^1^2940308^"
^DD(80,101,21,1,0)="This field contains a flag indicating that this code is unacceptable as the principal diagnosis."
^DD(80,101,"DT")="3030703"
^DD(80,102,0)="INACTIVE DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80,102,3)="Enter the date that this diagnosis becomes inactive."
^DD(80,102,21,0)="^.001^1^1^3010313^^"
^DD(80,102,21,1,0)="Date as of which this code is inactive."
^DD(80,102,"DT")="2890815"
^DD(80,103,0)="VERSIONED CC^80.0103D^^69;0"
^DD(80,103,21,0)="^^2^2^3071001^"
^DD(80,103,21,1,0)="This is a history of the Complication/Comorbidity (CC) status for the "
^DD(80,103,21,2,0)="diagnosis and includes the CC status with the date it became effective."
^DD(80,"B","ACTIVATION DATE",16)=""
^DD(80,"B","AGE HIGH",15)=""
^DD(80,"B","AGE LOW",14)=""
^DD(80,"B","CODE NOT CC WITH",40)=""
^DD(80,"B","CODE NUMBER",.01)=""
^DD(80,"B","COMPLICATION/COMORBIDITY",70)=""
^DD(80,"B","DESCRIPTION",10)=""
^DD(80,"B","DESCRIPTION (VERSIONED)",68)=""
^DD(80,"B","DIAGNOSIS",3)=""
^DD(80,"B","DIAGNOSIS (VERSIONED)",67)=""
^DD(80,"B","DRG FLAGS",2)="1"
^DD(80,"B","DRG GROUPER EFFECTIVE DATE",71)=""
^DD(80,"B","DRGa",60)=""
^DD(80,"B","DRGb",61)=""
^DD(80,"B","DRGc",62)=""
^DD(80,"B","DRGd",63)=""
^DD(80,"B","DRGe",64)=""
^DD(80,"B","DRGf",65)=""
^DD(80,"B","EFFECTIVE DATE",66)=""
^DD(80,"B","ICD EXPANDED",8)=""
^DD(80,"B","ICD9 CODES NOT TO USE WITH",20)=""
^DD(80,"B","ICD9 CODES REQUIRED WITH",30)=""
^DD(80,"B","IDENTIFIER",2)=""
^DD(80,"B","INACTIVE DATE",102)=""
^DD(80,"B","INACTIVE FLAG",100)=""
^DD(80,"B","MAJOR DIAGNOSTIC CATEGORY",5)=""
^DD(80,"B","MDC EFFECTIVE DATE",72)=""
^DD(80,"B","MDC13",5.5)=""
^DD(80,"B","MDC24",5.7)=""
^DD(80,"B","MDC25",5.9)=""
^DD(80,"B","SEX",9.5)=""
^DD(80,"B","UNACCEPTABLE AS PRINCIPAL DX",101)=""
^DD(80,"B","VERSIONED CC",103)=""
^DD(80,"GL",0,1,.01)=""
^DD(80,"GL",0,2,2)=""
^DD(80,"GL",0,3,3)=""
^DD(80,"GL",0,4,101)=""
^DD(80,"GL",0,5,5)=""
^DD(80,"GL",0,6,5.5)=""
^DD(80,"GL",0,7,70)=""
^DD(80,"GL",0,8,8)=""
^DD(80,"GL",0,9,100)=""
^DD(80,"GL",0,10,9.5)=""
^DD(80,"GL",0,11,102)=""
^DD(80,"GL",0,12,5.7)=""
^DD(80,"GL",0,13,5.9)=""
^DD(80,"GL",0,14,14)=""
^DD(80,"GL",0,15,15)=""
^DD(80,"GL",0,16,16)=""
^DD(80,"GL",1,1,10)=""
^DD(80,"GL",2,0,40)=""
^DD(80,"GL",3,0,71)=""
^DD(80,"GL",4,0,72)=""
^DD(80,"GL",66,0,66)=""
^DD(80,"GL",67,0,67)=""
^DD(80,"GL",68,0,68)=""
^DD(80,"GL",69,0,103)=""
^DD(80,"GL","DRG",1,60)=""
^DD(80,"GL","DRG",2,61)=""
^DD(80,"GL","DRG",3,62)=""
^DD(80,"GL","DRG",4,63)=""
^DD(80,"GL","DRG",5,64)=""
^DD(80,"GL","DRG",6,65)=""
^DD(80,"GL","N",0,20)=""
^DD(80,"GL","R",0,30)=""
^DD(80,"IX",.01)=""
^DD(80,"IX",10)=""
^DD(80,"RQ",.01)=""
^DD(80,"RQ",3)=""
^DD(80,"SB",80.01,20)=""
^DD(80,"SB",80.0103,103)=""
^DD(80,"SB",80.02,30)=""
^DD(80,"SB",80.03,40)=""
^DD(80,"SB",80.066,66)=""
^DD(80,"SB",80.067,67)=""
^DD(80,"SB",80.068,68)=""
^DD(80,"SB",80.071,71)=""
^DD(80,"SB",80.072,72)=""
^DD(80.01,0)="ICD9 CODES NOT TO USE WITH SUB-FIELD^^.01^1"
^DD(80.01,0,"IX","B",80.01,.01)=""
^DD(80.01,0,"NM","ICD9 CODES NOT TO USE WITH")=""
^DD(80.01,0,"UP")="80"
^DD(80.01,.01,0)="ICD9 CODES NOT TO USE WITH^MP80'X^ICD9(^0;1^S DINUM=X"
^DD(80.01,.01,1,0)="^.1"
^DD(80.01,.01,1,1,0)="80.01^B"
^DD(80.01,.01,1,1,1)="S ^ICD9(DA(1),""N"",""B"",$E(X,1,30),DA)="""""
^DD(80.01,.01,1,1,2)="K ^ICD9(DA(1),""N"",""B"",$E(X,1,30),DA)"
^DD(80.01,"B","ICD9 CODES NOT TO USE WITH",.01)=""
^DD(80.01,"GL",0,1,.01)=""
^DD(80.01,"IX",.01)=""
^DD(80.0103,0)="VERSIONED CC SUB-FIELD^^1^2"
^DD(80.0103,0,"DT")="3070829"
^DD(80.0103,0,"IX","B",80.0103,.01)=""
^DD(80.0103,0,"NM","VERSIONED CC")=""
^DD(80.0103,0,"UP")="80"
^DD(80.0103,.01,0)="EFFECTIVE DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(80.0103,.01,1,0)="^.1"
^DD(80.0103,.01,1,1,0)="80.0103^B"
^DD(80.0103,.01,1,1,1)="S ^ICD9(DA(1),69,""B"",$E(X,1,30),DA)="""""
^DD(80.0103,.01,1,1,2)="K ^ICD9(DA(1),69,""B"",$E(X,1,30),DA)"
^DD(80.0103,.01,1,1,"%D",0)="^^5^5^3071001^"
^DD(80.0103,.01,1,1,"%D",1,0)="^ICD9(IEN1,69,""B"",EFF,IEN2) - Where IEN1 is the internal entry "
^DD(80.0103,.01,1,1,"%D",2,0)="number in the ICD-9 Diagnosis file #80, EFF is the effective date"
^DD(80.0103,.01,1,1,"%D",3,0)="for Complication/Comorbidity (CC) status and IEN2 is the internal"
^DD(80.0103,.01,1,1,"%D",4,0)="entry number in the VERSIONED CC multiple where the versioned "
^DD(80.0103,.01,1,1,"%D",5,0)="Complication/Comorbidity (CC) status is stored."
^DD(80.0103,.01,3)="Must be a FileMan date"
^DD(80.0103,.01,21,0)="^^2^2^3071001^"
^DD(80.0103,.01,21,1,0)="This is the date the Complication/Comorbidity (CC) status became "
^DD(80.0103,.01,21,2,0)="effective."
^DD(80.0103,.01,"DT")="3071001"
^DD(80.0103,1,0)="COMPLICATION/COMORBIDITY^S^0:non-CC;1:CC;2:MCC;^0;2^Q"
^DD(80.0103,1,3)="0 for nonCC, 1 for CC, or 2 for MCC"
^DD(80.0103,1,21,0)="^^3^3^3071001^"
^DD(80.0103,1,21,1,0)="This is the Complication/Comorbidity (CC) status.  It may have a status"
^DD(80.0103,1,21,2,0)="of Non-Complication/Comorbidity, Complication/Comorbidity, or Major "
^DD(80.0103,1,21,3,0)="Complication/Comorbidity."
^DD(80.0103,1,"DT")="3071001"
^DD(80.0103,"B","COMPLICATION/COMORBIDITY",1)=""
^DD(80.0103,"B","EFFECTIVE DATE",.01)=""
^DD(80.0103,"GL",0,1,.01)=""
^DD(80.0103,"GL",0,2,1)=""
^DD(80.0103,"IX",.01)=""
^DD(80.02,0)="ICD9 CODES REQUIRED WITH SUB-FIELD^^.01^1"
^DD(80.02,0,"IX","B",80.02,.01)=""
^DD(80.02,0,"NM","ICD9 CODES REQUIRED WITH")=""
^DD(80.02,0,"UP")="80"
^DD(80.02,.01,0)="ICD9 CODES REQUIRED WITH^MP80'X^ICD9(^0;1^S DINUM=X"
^DD(80.02,.01,1,0)="^.1"
^DD(80.02,.01,1,1,0)="80.02^B"
^DD(80.02,.01,1,1,1)="S ^ICD9(DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(80.02,.01,1,1,2)="K ^ICD9(DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(80.02,"B","ICD9 CODES REQUIRED WITH",.01)=""
^DD(80.02,"GL",0,1,.01)=""
^DD(80.02,"IX",.01)=""
^DD(80.03,0)="CODE NOT CC WITH SUB-FIELD^^.01^1"
^DD(80.03,0,"NM","CODE NOT CC WITH")=""
^DD(80.03,0,"UP")="80"
^DD(80.03,.01,0)="CODES NOT CC WITH^MP80'^ICD9(^0;1^Q"
^DD(80.03,.01,1,0)="^.1^^-1"
^DD(80.03,.01,1,1,0)="80^ACC^MUMPS"
^DD(80.03,.01,1,1,1)="S ^ICD9(""ACC"",DA(1),X)="""""
^DD(80.03,.01,1,1,2)="K ^ICD9(""ACC"",DA(1),X)"
^DD(80.03,.01,1,1,"%D",0)="^^2^2^2940314^"
^DD(80.03,.01,1,1,"%D",1,0)="This sets a x-ref based on the ICD9 code as the first subscript, and"
^DD(80.03,.01,1,1,"%D",2,0)="the ""CODE NOT CC WITH"" as the second."
^DD(80.03,.01,3)="Enter the ICD diagnosis wich are required with this diagnosis."
^DD(80.03,.01,21,0)="^^1^1^2940308^"
^DD(80.03,.01,21,1,0)="This field contains  Code not considered as Complication/comorbidity with this code."
^DD(80.03,.01,"DT")="2960826"
^DD(80.03,"B","CODES NOT CC WITH",.01)=""
^DD(80.03,"GL",0,1,.01)=""
^DD(80.03,"IX",.01)=""
^DD(80.066,0)="EFFECTIVE DATE SUB-FIELD^^65^8"
^DD(80.066,0,"DT")="3030221"
^DD(80.066,0,"IX","B",80.066,.01)=""
^DD(80.066,0,"NM","EFFECTIVE DATE")=""
^DD(80.066,0,"UP")="80"
^DD(80.066,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.066,.01,1,0)="^.1"
^DD(80.066,.01,1,1,0)="80.066^B"
^DD(80.066,.01,1,1,1)="S ^ICD9(DA(1),66,""B"",$E(X,1,30),DA)="""""
^DD(80.066,.01,1,1,2)="K ^ICD9(DA(1),66,""B"",$E(X,1,30),DA)"
^DD(80.066,.01,1,2,0)="80^ACT2^MUMPS"
^DD(80.066,.01,1,2,1)="D SAHD^ICD9IDX"
^DD(80.066,.01,1,2,2)="D KAHD^ICD9IDX"
^DD(80.066,.01,1,2,"%D",0)="^.101^1^1^3030305^^"
^DD(80.066,.01,1,2,"%D",1,0)="Set and Kill Activation History"
^DD(80.066,.01,1,2,"DT")="3030221"
^DD(80.066,.01,21,0)="^.001^1^1^3030221^^^^"
^DD(80.066,.01,21,1,0)="Date versioned information becomes/became effective."
^DD(80.066,.01,"DT")="3030221"
^DD(80.066,.02,0)="STATUS^RS^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(80.066,.02,1,0)="^.1"
^DD(80.066,.02,1,1,0)="80^ACT3^MUMPS"
^DD(80.066,.02,1,1,1)="D SAHS^ICD9IDX"
^DD(80.066,.02,1,1,2)="D KAHS^ICD9IDX"
^DD(80.066,.02,1,1,"%D",0)="^.101^1^1^3030305^^"
^DD(80.066,.02,1,1,"%D",1,0)="Set and Kill Activation History"
^DD(80.066,.02,1,1,"DT")="3030221"
^DD(80.066,.02,3)="Enter status of code."
^DD(80.066,.02,21,0)="^.001^1^1^3030221^^"
^DD(80.066,.02,21,1,0)="Set = 1 when the code is active."
^DD(80.066,.02,"DT")="3030221"
^DD(80.066,60,0)="DRGa^P80.2'^ICD(^DRG;1^Q"
^DD(80.066,60,3)="ENTER FIRST DRG CODE"
^DD(80.066,60,21,0)="^^1^1^3030407^"
^DD(80.066,60,21,1,0)="DRG CODE ASSOCIATED WITH DIAGNOSIS CODE"
^DD(80.066,60,"DT")="3030407"
^DD(80.066,61,0)="DRGb^P80.2'^ICD(^DRG;2^Q"
^DD(80.066,61,21,0)="^^1^1^3030407^"
^DD(80.066,61,21,1,0)="DRG CODE ASSOCIATED WITH DIAGNOSIS CODE"
^DD(80.066,61,"DT")="3030407"
^DD(80.066,62,0)="DRBc^P80.2'^ICD(^DRG;3^Q"
^DD(80.066,62,"DT")="3030407"
^DD(80.066,63,0)="DRBd^P80.2'^ICD(^DRG;4^Q"
^DD(80.066,63,"DT")="3030407"
^DD(80.066,64,0)="DRGe^P80.2'^ICD(^DRG;5^Q"
^DD(80.066,64,"DT")="3030407"
^DD(80.066,65,0)="DRGf^P80.2'^ICD(^DRG;6^Q"
^DD(80.066,65,"DT")="3030407"
^DD(80.066,"B","DRBc",62)=""
^DD(80.066,"B","DRBd",63)=""
^DD(80.066,"B","DRGa",60)=""
^DD(80.066,"B","DRGb",61)=""
^DD(80.066,"B","DRGe",64)=""
^DD(80.066,"B","DRGf",65)=""
^DD(80.066,"B","EFFECTIVE DATE",.01)=""
^DD(80.066,"B","STATUS",.02)=""
^DD(80.066,"GL",0,1,.01)=""
^DD(80.066,"GL",0,2,.02)=""
^DD(80.066,"GL","DRG",1,60)=""
^DD(80.066,"GL","DRG",2,61)=""
^DD(80.066,"GL","DRG",3,62)=""
^DD(80.066,"GL","DRG",4,63)=""
^DD(80.066,"GL","DRG",5,64)=""
^DD(80.066,"GL","DRG",6,65)=""
^DD(80.066,"IX",.01)=""
^DD(80.066,"IX",.02)=""
^DD(80.066,"RQ",.01)=""
^DD(80.066,"RQ",.02)=""
^DD(80.067,0)="DIAGNOSIS (VERSIONED) SUB-FIELD^^1^2"
^DD(80.067,0,"DT")="3040310"
^DD(80.067,0,"IX","B",80.067,.01)=""
^DD(80.067,0,"NM","DIAGNOSIS (VERSIONED)")=""
^DD(80.067,0,"UP")="80"
^DD(80.067,.01,0)="VERSION DATE^MRD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2781001>X X"
^DD(80.067,.01,1,0)="^.1"
^DD(80.067,.01,1,1,0)="80.067^B"
^DD(80.067,.01,1,1,1)="S ^ICD9(DA(1),67,""B"",$E(X,1,30),DA)="""""
^DD(80.067,.01,1,1,2)="K ^ICD9(DA(1),67,""B"",$E(X,1,30),DA)"
^DD(80.067,.01,1,1,"%D",0)="^^4^4^3040310^"
^DD(80.067,.01,1,1,"%D",1,0)="^ICD9(IEN1,67,""B"",EFF,IEN2) - Where IEN1 is the internal entry number in "
^DD(80.067,.01,1,1,"%D",2,0)="the ICD-9 Diagnosis file #80, EFF is the effective date for the diagnosis"
^DD(80.067,.01,1,1,"%D",3,0)="(short text), and IEN2 is the internal entry number in the DIAGNOSIS"
^DD(80.067,.01,1,1,"%D",4,0)="(VERSIONED) multiple where the versioned short text is stored."
^DD(80.067,.01,1,2,0)="80^AST^MUMPS"
^DD(80.067,.01,1,2,1)="S:$L($P($G(^ICD9(DA(1),0)),""^"",1)) ^ICD9(""AST"",($P($G(^ICD9(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(80.067,.01,1,2,2)="K:$L($P($G(^ICD9(DA(1),0)),""^"",1)) ^ICD9(""AST"",($P($G(^ICD9(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(80.067,.01,1,2,"%D",0)="^^5^5^3040310^"
^DD(80.067,.01,1,2,"%D",1,0)="^ICD9(""AST"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the ICD-9 Diagnosis"
^DD(80.067,.01,1,2,"%D",2,0)="Code, EFF is the effective date for the diagnosis text (short text), IEN1"
^DD(80.067,.01,1,2,"%D",3,0)="is the internal entry number in the ICD-9 Diagnosis file (#80) and IEN2 is"
^DD(80.067,.01,1,2,"%D",4,0)="the internal entry number in the DIAGNOSIS (VERSIONED) multiple where the"
^DD(80.067,.01,1,2,"%D",5,0)="versioned short text is stored."
^DD(80.067,.01,1,2,"DT")="3040310"
^DD(80.067,.01,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 1978"
^DD(80.067,.01,21,0)="^^1^1^3040310^"
^DD(80.067,.01,21,1,0)="This is the date the diagnosis text was first used."
^DD(80.067,.01,"DT")="3040319"
^DD(80.067,1,0)="DIAGNOSIS (VERSIONED)^RF^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(80.067,1,3)="Answer must be 2-30 characters in length"
^DD(80.067,1,21,0)="^^1^1^3040310^"
^DD(80.067,1,21,1,0)="This is the diagnosis that was used beginning on the 'effective date.'"
^DD(80.067,1,"DT")="3040319"
^DD(80.067,"B","DIAGNOSIS (VERSIONED)",1)=""
^DD(80.067,"B","VERSION DATE",.01)=""
^DD(80.067,"GL",0,1,.01)=""
^DD(80.067,"GL",0,2,1)=""
^DD(80.067,"IX",.01)=""
^DD(80.067,"RQ",.01)=""
^DD(80.067,"RQ",1)=""
^DD(80.068,0)="DESCRIPTION (VERSIONED) SUB-FIELD^^1^2"
^DD(80.068,0,"DT")="3040310"
^DD(80.068,0,"IX","ADS",80.068,.01)=""
^DD(80.068,0,"IX","B",80.068,.01)=""
^DD(80.068,0,"NM","DESCRIPTION (VERSIONED)")=""
^DD(80.068,0,"UP")="80"
^DD(80.068,.01,0)="VERSION DATE^MRD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2781001>X X"
^DD(80.068,.01,1,0)="^.1"
^DD(80.068,.01,1,1,0)="80.068^B"
^DD(80.068,.01,1,1,1)="S ^ICD9(DA(1),68,""B"",$E(X,1,30),DA)="""""
^DD(80.068,.01,1,1,2)="K ^ICD9(DA(1),68,""B"",$E(X,1,30),DA)"
^DD(80.068,.01,1,1,"%D",0)="^^5^5^3040310^"
^DD(80.068,.01,1,1,"%D",1,0)="^ICD9(IEN1,68,""B"",EFF,IEN2) - Where IEN1 is the internal entry number in "
^DD(80.068,.01,1,1,"%D",2,0)="the ICD-9 Diagnosis file #80, EFF is the effective date for the "
^DD(80.068,.01,1,1,"%D",3,0)="description (long text), and IEN2 is the internal entry number in the"
^DD(80.068,.01,1,1,"%D",4,0)="DESCRIPTION (VERSIONED) multiple where the versioned description is"
^DD(80.068,.01,1,1,"%D",5,0)="stored."
^DD(80.068,.01,1,2,0)="80.068^ADS^MUMPS"
^DD(80.068,.01,1,2,1)="S:$L($P($G(^ICD9(DA(1),0)),""^"",1)) ^ICD9(""ADS"",($P($G(^ICD9(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(80.068,.01,1,2,2)="K:$L($P($G(^ICD9(DA(1),0)),""^"",1)) ^ICD9(""ADS"",($P($G(^ICD9(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(80.068,.01,1,2,"%D",0)="^^5^5^3040310^"
^DD(80.068,.01,1,2,"%D",1,0)="^ICD9(""ADS"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the ICD-9 Diagnosis"
^DD(80.068,.01,1,2,"%D",2,0)="Code, EFF is the effective date for the description (long text), IEN1 is"
^DD(80.068,.01,1,2,"%D",3,0)="the internal entry number in the ICD-9 Diagnosis file (#80) and IEN2 is"
^DD(80.068,.01,1,2,"%D",4,0)="the internal entry number in the DESCRIPTION (VERSIONED) multiple where"
^DD(80.068,.01,1,2,"%D",5,0)="the versioned long text is stored."
^DD(80.068,.01,1,2,"DT")="3040310"
^DD(80.068,.01,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 1978"
^DD(80.068,.01,21,0)="^^1^1^3040310^"
^DD(80.068,.01,21,1,0)="This is the date the description was first used."
^DD(80.068,.01,"DT")="3040319"
^DD(80.068,1,0)="DESCRIPTION (VERSIONED)^RF^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(80.068,1,3)="Answer must be 1-245 characters in length"
^DD(80.068,1,21,0)="^^2^2^3040310^"
^DD(80.068,1,21,1,0)="This is the description (long text) that was in used on the 'effective "
^DD(80.068,1,21,2,0)="date.'"
^DD(80.068,1,"DT")="3040319"
^DD(80.068,"B","DESCRIPTION (VERSIONED)",1)=""
^DD(80.068,"B","VERSION DATE",.01)=""
^DD(80.068,"GL",0,1,.01)=""
^DD(80.068,"GL",1,1,1)=""
^DD(80.068,"IX",.01)=""
^DD(80.068,"RQ",.01)=""
^DD(80.068,"RQ",1)=""
^DD(80.071,0)="DRG GROUPER EFFECTIVE DATE SUB-FIELD^^1^2"
^DD(80.071,0,"DT")="3040914"
^DD(80.071,0,"IX","B",80.071,.01)=""
^DD(80.071,0,"NM","DRG GROUPER EFFECTIVE DATE")=""
^DD(80.071,0,"UP")="80"
^DD(80.071,.01,0)="DRG GROUPER EFFECTIVE DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.071,.01,1,0)="^.1"
^DD(80.071,.01,1,1,0)="80.071^B"
^DD(80.071,.01,1,1,1)="S ^ICD9(DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(80.071,.01,1,1,2)="K ^ICD9(DA(1),3,""B"",$E(X,1,30),DA)"
^DD(80.071,.01,21,0)="^.001^4^4^3040913^^"
^DD(80.071,.01,21,1,0)="This field sets the effective date for the DRGs for a given fiscal year. "
^DD(80.071,.01,21,2,0)="It should normally be the first day of October of the fiscal year. Each"
^DD(80.071,.01,21,3,0)="year a new entry will be created and the DRGs hierarchy will reside within"
^DD(80.071,.01,21,4,0)="this field."
^DD(80.071,.01,"DT")="3040729"
^DD(80.071,1,0)="DRG^80.711P^^1;0"
^DD(80.071,"B","DRG",1)=""
^DD(80.071,"B","DRG GROUPER EFFECTIVE DATE",.01)=""
^DD(80.071,"GL",0,1,.01)=""
^DD(80.071,"GL",1,0,1)=""
^DD(80.071,"IX",.01)=""
^DD(80.071,"SB",80.711,1)=""
^DD(80.072,0)="MDC EFFECTIVE DATE SUB-FIELD^^1^2"
^DD(80.072,0,"DT")="3040825"
^DD(80.072,0,"IX","B",80.072,.01)=""
^DD(80.072,0,"NM","MDC EFFECTIVE DATE")=""
^DD(80.072,0,"UP")="80"
^DD(80.072,.01,0)="MDC EFFECTIVE DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.072,.01,1,0)="^.1"
^DD(80.072,.01,1,1,0)="80.072^B"
^DD(80.072,.01,1,1,1)="S ^ICD9(DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(80.072,.01,1,1,2)="K ^ICD9(DA(1),4,""B"",$E(X,1,30),DA)"
^DD(80.072,.01,"DT")="3040825"
^DD(80.072,1,0)="MDC^P80.3'^ICM(^0;2^Q"
^DD(80.072,1,21,0)="^.001^2^2^3040914^^"
^DD(80.072,1,21,1,0)="Major Diagnostic Category (MDC) associated with ICD Diagnosis for a "
^DD(80.072,1,21,2,0)="given fiscal year."
^DD(80.072,1,"DT")="3040825"
^DD(80.072,"B","MDC",1)=""
^DD(80.072,"B","MDC EFFECTIVE DATE",.01)=""
^DD(80.072,"GL",0,1,.01)=""
^DD(80.072,"GL",0,2,1)=""
^DD(80.072,"IX",.01)=""
^DD(80.1,0)="FIELD^NL^102^22"
^DD(80.1,0,"DT")="3040823"
^DD(80.1,0,"ID",4)="D EN^DDIOL(("" ""_$$IDOPS^ICDID(+Y)),"""",""?0"")"
^DD(80.1,0,"IX","AB",80.1,.01)=""
^DD(80.1,0,"IX","ACT1",80.1,.01)=""
^DD(80.1,0,"IX","ACT2",80.166,.01)=""
^DD(80.1,0,"IX","ACT3",80.166,.02)=""
^DD(80.1,0,"IX","ADS",80.168,.01)=""
^DD(80.1,0,"IX","AST",80.167,.01)=""
^DD(80.1,0,"IX","BA",80.1,.01)=""
^DD(80.1,0,"IX","BAA",80.1,.01)=""
^DD(80.1,0,"IX","D",80.1,10)=""
^DD(80.1,0,"IX","E",80.1,4)=""
^DD(80.1,0,"NM","ICD OPERATION/PROCEDURE")=""
^DD(80.1,0,"PT",27.17,3)=""
^DD(80.1,0,"PT",45,45.01)=""
^DD(80.1,0,"PT",45,45.02)=""
^DD(80.1,0,"PT",45,45.03)=""
^DD(80.1,0,"PT",45,45.04)=""
^DD(80.1,0,"PT",45,45.05)=""
^DD(80.1,0,"PT",45.01,8)=""
^DD(80.1,0,"PT",45.01,9)=""
^DD(80.1,0,"PT",45.01,10)=""
^DD(80.1,0,"PT",45.01,11)=""
^DD(80.1,0,"PT",45.01,12)=""
^DD(80.1,0,"PT",45.05,4)=""
^DD(80.1,0,"PT",45.05,5)=""
^DD(80.1,0,"PT",45.05,6)=""
^DD(80.1,0,"PT",45.05,7)=""
^DD(80.1,0,"PT",45.05,8)=""
^DD(80.1,0,"PT",45.89,.02)=""
^DD(80.1,0,"PT",162.5,40)=""
^DD(80.1,0,"PT",162.5,41)=""
^DD(80.1,0,"PT",162.5,42)=""
^DD(80.1,0,"PT",162.5,43)=""
^DD(80.1,0,"PT",162.5,44)=""
^DD(80.1,0,"PT",356.91,.01)=""
^DD(80.1,0,"PT",399,54)=""
^DD(80.1,0,"PT",399,55)=""
^DD(80.1,0,"PT",399,56)=""
^DD(80.1,0,"PT",399,304)=""
^DD(80.1,0,"PT",399.0304,.01)=""
^DD(80.1,0,"PT",694.801,.01)=""
^DD(80.1,0,"PT",790.2,.09)=""
^DD(80.1,0,"PT",811.32,.01)=""
^DD(80.1,0,"PT",8984.1,.02)=""
^DD(80.1,0,"PT",8984.2,.02)=""
^DD(80.1,0,"VR")="18.0"
^DD(80.1,0,"VRPK")="ICD"
^DD(80.1,0,"VRRV")="29^3071001"
^DD(80.1,.01,0)="CODE NUMBER^RF^^0;1^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1)!'(X?.N1""."".N) X"
^DD(80.1,.01,.1)="ICD9 OPERATION/PROCEDURE CODE"
^DD(80.1,.01,1,0)="^.1"
^DD(80.1,.01,1,1,0)="80.1^BA^MUMPS"
^DD(80.1,.01,1,1,1)="S ^ICD0(""BA"",X_"" "",DA)="""""
^DD(80.1,.01,1,1,2)="K ^ICD0(""BA"",X_"" "",DA)"
^DD(80.1,.01,1,1,"%D",0)="^^2^2^2940314^"
^DD(80.1,.01,1,1,"%D",1,0)="This forces X to be regarded as a string, thus disallowing the dropping of"
^DD(80.1,.01,1,1,"%D",2,0)="final '0's."
^DD(80.1,.01,1,2,0)="80.1^BAA^MUMPS"
^DD(80.1,.01,1,2,1)="S:+X[$P(X,""."",1) ^ICD0(""BA"",+X,DA)="""""
^DD(80.1,.01,1,2,2)="K:+X[$P(X,""."",1) ^ICD0(""BA"",+X,DA)"
^DD(80.1,.01,1,2,"%D",0)="^^1^1^2940314^"
^DD(80.1,.01,1,2,"%D",1,0)="This cross ref. looks at the integral portion of the code, and sort by that."
^DD(80.1,.01,1,3,0)="80.1^AB"
^DD(80.1,.01,1,3,1)="S ^ICD0(""AB"",$E(X,1,30),DA)="""""
^DD(80.1,.01,1,3,2)="K ^ICD0(""AB"",$E(X,1,30),DA)"
^DD(80.1,.01,1,3,"%D",0)="^^2^2^2940314^^^^"
^DD(80.1,.01,1,3,"%D",1,0)="This forces X to be regarded as a string, thus disallowing the dropping of"
^DD(80.1,.01,1,3,"%D",2,0)="final '0's."
^DD(80.1,.01,1,4,0)="80.1^ACT1^MUMPS"
^DD(80.1,.01,1,4,1)="D SAHC^ICD0IDX"
^DD(80.1,.01,1,4,2)="D KAHC^ICD0IDX"
^DD(80.1,.01,1,4,"%D",0)="^.101^1^1^3030305^^"
^DD(80.1,.01,1,4,"%D",1,0)="Set and Kill Activation History"
^DD(80.1,.01,1,4,"DT")="3030221"
^DD(80.1,.01,3)="Answer must be 1-6 characters in length and contain a decimal point."
^DD(80.1,.01,21,0)="^^1^1^2941229^^"
^DD(80.1,.01,21,1,0)="ICD9 procedure or operation code"
^DD(80.1,.01,"DT")="3030221"
^DD(80.1,.01,"LAYGO",1,0)="I 1"
^DD(80.1,2,0)="IDENTIFIER^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(80.1,2,.1)="Codes for determining DRG"
^DD(80.1,2,3)="Enter one or more valid codes."
^DD(80.1,2,4)="D ^ICDHLPO"
^DD(80.1,2,21,0)="^^1^1^2940308^"
^DD(80.1,2,21,1,0)="This field contains Operations Identifiers."
^DD(80.1,4,0)="OPERATION/PROCEDURE^F^^0;4^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(80.1,4,1,0)="^.1"
^DD(80.1,4,1,1,0)="80.1^E"
^DD(80.1,4,1,1,1)="S ^ICD0(""E"",$E(X,1,30),DA)="""""
^DD(80.1,4,1,1,2)="K ^ICD0(""E"",$E(X,1,30),DA)"
^DD(80.1,4,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(80.1,4,21,0)="^^1^1^2940307^"
^DD(80.1,4,21,1,0)="Name of Operation or Procedure that code refers to."
^DD(80.1,5,0)="MDC24^S^1:CRANIAL;2:LIMB;3:OTHER OR;^0;3^Q"
^DD(80.1,5,3)="MDC24 1:DRG484, 2:DRG485, 3:DRG486"
^DD(80.1,5,21,0)="^^2^2^2940307^"
^DD(80.1,5,21,1,0)="Set of codes refers to body site of procedure, when for a Multiple"
^DD(80.1,5,21,2,0)="Significant Trauma (MDC 24)"
^DD(80.1,5,"DT")="2910305"
^DD(80.1,7,0)="MAJOR DIAGNOSTIC CATEGORY^80.12PA^^MDC;0"
^DD(80.1,7,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(80.1,7,21,0)="^^1^1^2940308^^^"
^DD(80.1,7,21,1,0)="Major Diagnostic Category which this code may fall under."
^DD(80.1,8,0)="ICD EXPANDED^S^1:YES;0:NO;^0;8^Q"
^DD(80.1,8,21,0)="^^1^1^2870505^"
^DD(80.1,8,21,1,0)="VA ONLY CODES."
^DD(80.1,9.5,0)="USE ONLY WITH SEX^S^M:MALE;F:FEMALE;^0;10^Q"
^DD(80.1,9.5,3)="Enter the sex for which this operation/procedure code can only be used with, if applicable."
^DD(80.1,9.5,21,0)="^^1^1^2940307^^"
^DD(80.1,9.5,21,1,0)="Set of codes containing the sex if operation/procedure is gender-specific."
^DD(80.1,10,0)="DESCRIPTION^F^^1;1^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<2) X"
^DD(80.1,10,1,0)="^.1"
^DD(80.1,10,1,1,0)="80.1^D^MUMPS"
^DD(80.1,10,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""~!@#$%&*()_+`-=[]{};'\:|,./?<> """"""[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^ICD0(""D"",I,DA)="""""
^DD(80.1,10,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""~!@#$%&*()_+`-=[]{};'\:|,./?<> """"""[I S I=$E(X,%1,%-1),%1=%+1 I $L(I)>2,$L(I)<31 K ^ICD0(""D"",I,DA)"
^DD(80.1,10,1,1,"%D",0)="^^1^1^2940314^"
^DD(80.1,10,1,1,"%D",1,0)="This is a KWIC x-ref, on Key Words."
^DD(80.1,10,3)="ANSWER MUST BE 2-245 CHARACTERS IN LENGTH"
^DD(80.1,10,21,0)="^^1^1^2940307^"
^DD(80.1,10,21,1,0)="More complete description of operation or procedure."
^DD(80.1,12,0)="ACTIVATION DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.1,12,3)="Enter date ICD Code was activated."
^DD(80.1,12,21,0)="^^1^1^3030220^"
^DD(80.1,12,21,1,0)="Date the ICD code becomes/became activated."
^DD(80.1,12,"DT")="3030220"
^DD(80.1,20,0)="MAJOR O.R. PROC^F^^M;1^K:$L(X)>10!($L(X)<1) X"
^DD(80.1,20,3)="Answer must be 1-10 characters in length."
^DD(80.1,20,4)="D MAJ^ICDHLPD"
^DD(80.1,20,21,0)="^^1^1^2940307^"
^DD(80.1,20,21,1,0)="Is this defined as a Major O.R. Procedure?"
^DD(80.1,20,"DT")="2920312"
^DD(80.1,50,0)="OPERATION LENGTH^NJ3,0^^SR;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.1,50,3)="Type a whole number between 0 and 999 which gives the standard length of this operation in minutes."
^DD(80.1,50,21,0)="^^1^1^2940307^"
^DD(80.1,50,21,1,0)="Number of minutes for average length of time for this operation."
^DD(80.1,51,0)="REQUESTED BLOOD KIND^F^^SR;2^K:$L(X)>12!($L(X)<3) X"
^DD(80.1,51,3)="Answer must be 3-12 characters in length."
^DD(80.1,51,21,0)="^^1^1^2940308^"
^DD(80.1,51,21,1,0)="This field contains the requested blood kind."
^DD(80.1,51,"DT")="2910506"
^DD(80.1,52,0)="NUMBER OF BLOOD UNITS^NJ4,0^^SR;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.1,52,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(80.1,52,21,0)="^^1^1^2940307^"
^DD(80.1,52,21,1,0)="Number of Units of blood usually required."
^DD(80.1,53,0)="SCREEN OR TYPE^S^X:CROSS-MATCH;S:TYPE OR SCREEN;^SR;4^Q"
^DD(80.1,53,21,0)="^^1^1^2940308^"
^DD(80.1,53,21,1,0)="This field contains a code indicating screening or cross-matching."
^DD(80.1,54,0)="ANESTHESIA RUG^NJ3,0^^SR;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.1,54,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(80.1,54,21,0)="^^1^1^2940308^"
^DD(80.1,54,21,1,0)="This field contains the Resource Utilization Group for the Anesthesia."
^DD(80.1,55,0)="ACS NAME^F^^SR;6^K:$L(X)>30!($L(X)<2) X"
^DD(80.1,55,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(80.1,55,21,0)="^^1^1^2940308^"
^DD(80.1,55,21,1,0)="This field contains the ACS name."
^DD(80.1,66,0)="EFFECTIVE DATE^80.166DA^^66;0"
^DD(80.1,67,0)="OPERATION/PROC (VERSIONED)^80.167D^^67;0"
^DD(80.1,67,21,0)="^^2^2^3040310^"
^DD(80.1,67,21,1,0)="This is a history of the operation/procedure (short text) to include the"
^DD(80.1,67,21,2,0)="date the text was first used along with the text."
^DD(80.1,67,"DT")="3040310"
^DD(80.1,68,0)="DESCRIPTION (VERSIONED)^80.168D^^68;0"
^DD(80.1,68,21,0)="^^2^2^3040310^"
^DD(80.1,68,21,1,0)="This is a history of the descriptive text to include the date the text "
^DD(80.1,68,21,2,0)="was first used and the text used."
^DD(80.1,71,0)="DRG GROUPER EFFECTIVE DATE^80.171D^^2;0"
^DD(80.1,71,21,0)="^.001^4^4^3041001^^^^"
^DD(80.1,71,21,1,0)="This field sets the effective date for the DRGs for a given fiscal year. "
^DD(80.1,71,21,2,0)="It should normally be the first day of October of the fiscal year. Each"
^DD(80.1,71,21,3,0)="year a new entry will be created and the DRG's hierachy will reside within"
^DD(80.1,71,21,4,0)="this field."
^DD(80.1,71,"DT")="3040729"
^DD(80.1,100,0)="INACTIVE FLAG^S^1:INACTIVE CODE;^0;9^Q"
^DD(80.1,100,3)="Enter if code can no longer be used."
^DD(80.1,100,21,0)="^^1^1^2940307^"
^DD(80.1,100,21,1,0)="Set to 1 when code is inactivated."
^DD(80.1,102,0)="INACTIVE DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.1,102,3)="Enter date this Operation/Procedure becomes inactive."
^DD(80.1,102,21,0)="^^1^1^2940307^"
^DD(80.1,102,21,1,0)="Date as of which code is inactive."
^DD(80.1,102,"DT")="2890815"
^DD(80.1,"B","ACS NAME",55)=""
^DD(80.1,"B","ACTIVATION DATE",12)=""
^DD(80.1,"B","ANESTHESIA RUG",54)=""
^DD(80.1,"B","CODE NUMBER",.01)=""
^DD(80.1,"B","Codes for determining DRG",2)="1"
^DD(80.1,"B","DESCRIPTION",10)=""
^DD(80.1,"B","DESCRIPTION (VERSIONED)",68)=""
^DD(80.1,"B","DRG GROUPER EFFECTIVE DATE",71)=""
^DD(80.1,"B","EFFECTIVE DATE",66)=""
^DD(80.1,"B","ICD EXPANDED",8)=""
^DD(80.1,"B","ICD9 OPERATION/PROCEDURE CODE",.01)="1"
^DD(80.1,"B","IDENTIFIER",2)=""
^DD(80.1,"B","INACTIVE DATE",102)=""
^DD(80.1,"B","INACTIVE FLAG",100)=""
^DD(80.1,"B","MAJOR DIAGNOSTIC CATEGORY",7)=""
^DD(80.1,"B","MAJOR O.R. PROC",20)=""
^DD(80.1,"B","MDC24",5)=""
^DD(80.1,"B","NUMBER OF BLOOD UNITS",52)=""
^DD(80.1,"B","OPERATION LENGTH",50)=""
^DD(80.1,"B","OPERATION/PROC (VERSIONED)",67)=""
^DD(80.1,"B","OPERATION/PROCEDURE",4)=""
^DD(80.1,"B","REQUESTED BLOOD KIND",51)=""
^DD(80.1,"B","SCREEN OR TYPE",53)=""
^DD(80.1,"B","USE ONLY WITH SEX",9.5)=""
^DD(80.1,"GL",0,1,.01)=""
^DD(80.1,"GL",0,2,2)=""
^DD(80.1,"GL",0,3,5)=""
^DD(80.1,"GL",0,4,4)=""
^DD(80.1,"GL",0,8,8)=""
^DD(80.1,"GL",0,9,100)=""
^DD(80.1,"GL",0,10,9.5)=""
^DD(80.1,"GL",0,11,102)=""
^DD(80.1,"GL",0,12,12)=""
^DD(80.1,"GL",1,1,10)=""
^DD(80.1,"GL",2,0,71)=""
^DD(80.1,"GL",66,0,66)=""
^DD(80.1,"GL",67,0,67)=""
^DD(80.1,"GL",68,0,68)=""
^DD(80.1,"GL","M",1,20)=""
^DD(80.1,"GL","MDC",0,7)=""
^DD(80.1,"GL","SR",1,50)=""
^DD(80.1,"GL","SR",2,51)=""
^DD(80.1,"GL","SR",3,52)=""
^DD(80.1,"GL","SR",4,53)=""
^DD(80.1,"GL","SR",5,54)=""
^DD(80.1,"GL","SR",6,55)=""
^DD(80.1,"IX",.01)=""
^DD(80.1,"IX",4)=""
^DD(80.1,"IX",10)=""
^DD(80.1,"RQ",.01)=""
^DD(80.1,"SB",80.12,7)=""
^DD(80.1,"SB",80.166,66)=""
^DD(80.1,"SB",80.167,67)=""
^DD(80.1,"SB",80.168,68)=""
^DD(80.1,"SB",80.171,71)=""
^DD(80.12,0)="MAJOR DIAGNOSTIC CATEGORY SUB-FIELD^NL^6^7"
^DD(80.12,0,"NM","MAJOR DIAGNOSTIC CATEGORY")=""
^DD(80.12,0,"UP")="80.1"
^DD(80.12,.01,0)="MAJOR DIAGNOSTIC CATEGORY^MP80.3'X^ICM(^0;1^S DINUM=X"
^DD(80.12,.01,21,0)="^^1^1^2940308^"
^DD(80.12,.01,21,1,0)="This field contains the Major Diagnostic Category which this code may fall under."
^DD(80.12,1,0)="DRGa^P80.2'^ICD(^DRG;1^Q"
^DD(80.12,1,21,0)="^^1^1^2940307^"
^DD(80.12,1,21,1,0)="DRG for this procedure/operation"
^DD(80.12,1,"DT")="2890328"
^DD(80.12,2,0)="DRGb^P80.2'^ICD(^DRG;2^Q"
^DD(80.12,2,3)=""
^DD(80.12,2,21,0)="^^1^1^2940307^"
^DD(80.12,2,21,1,0)="DRG for this procedure/operation"
^DD(80.12,2,"DT")="2890328"
^DD(80.12,3,0)="DRGc^P80.2'^ICD(^DRG;3^Q"
^DD(80.12,3,3)=""
^DD(80.12,3,21,0)="^^1^1^2940307^"
^DD(80.12,3,21,1,0)="DRG for this procedure/operation"
^DD(80.12,3,"DT")="2890328"
^DD(80.12,4,0)="DRGd^P80.2'^ICD(^DRG;4^Q"
^DD(80.12,4,3)=""
^DD(80.12,4,21,0)="^^1^1^2940307^"
^DD(80.12,4,21,1,0)="DRG for this procedure/operation"
^DD(80.12,4,"DT")="2890328"
^DD(80.12,5,0)="DRGe^P80.2'^ICD(^DRG;5^Q"
^DD(80.12,5,3)=""
^DD(80.12,5,21,0)="^^1^1^2940307^"
^DD(80.12,5,21,1,0)="DRG for this procedure/operation"
^DD(80.12,5,"DT")="2890328"
^DD(80.12,6,0)="DRGf^P80.2'^ICD(^DRG;6^Q"
^DD(80.12,6,21,0)="^^1^1^2940307^"
^DD(80.12,6,21,1,0)="DRG for this procedure/operation"
^DD(80.12,6,"DT")="2890328"
^DD(80.12,"B","DRGa",1)=""
^DD(80.12,"B","DRGb",2)=""
^DD(80.12,"B","DRGc",3)=""
^DD(80.12,"B","DRGd",4)=""
^DD(80.12,"B","DRGe",5)=""
^DD(80.12,"B","DRGf",6)=""
^DD(80.12,"B","MAJOR DIAGNOSTIC CATEGORY",.01)=""
^DD(80.12,"GL",0,1,.01)=""
^DD(80.12,"GL","DRG",1,1)=""
^DD(80.12,"GL","DRG",2,2)=""
^DD(80.12,"GL","DRG",3,3)=""
^DD(80.12,"GL","DRG",4,4)=""
^DD(80.12,"GL","DRG",5,5)=""
^DD(80.12,"GL","DRG",6,6)=""
^DD(80.166,0)="EFFECTIVE DATE SUB-FIELD^^65^8"
^DD(80.166,0,"DT")="3030221"
^DD(80.166,0,"IX","B",80.166,.01)=""
^DD(80.166,0,"NM","EFFECTIVE DATE")=""
^DD(80.166,0,"UP")="80.1"
^DD(80.166,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.166,.01,1,0)="^.1"
^DD(80.166,.01,1,1,0)="80.166^B"
^DD(80.166,.01,1,1,1)="S ^ICD0(DA(1),66,""B"",$E(X,1,30),DA)="""""
^DD(80.166,.01,1,1,2)="K ^ICD0(DA(1),66,""B"",$E(X,1,30),DA)"
^DD(80.166,.01,1,2,0)="80.1^ACT2^MUMPS"
^DD(80.166,.01,1,2,1)="D SAHD^ICD0IDX"
^DD(80.166,.01,1,2,2)="D KAHD^ICD0IDX"
^DD(80.166,.01,1,2,"%D",0)="^.101^1^1^3030305^^"
^DD(80.166,.01,1,2,"%D",1,0)="Set and Kill Activation History"
^DD(80.166,.01,1,2,"DT")="3030221"
^DD(80.166,.01,21,0)="^.001^1^1^3030221^^"
^DD(80.166,.01,21,1,0)="Date versioned information becomes/became effective."
^DD(80.166,.01,"DT")="3030221"
^DD(80.166,.02,0)="STATUS^RS^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(80.166,.02,1,0)="^.1"
^DD(80.166,.02,1,1,0)="80.1^ACT3^MUMPS"
^DD(80.166,.02,1,1,1)="D SAHS^ICD0IDX"
^DD(80.166,.02,1,1,2)="D KAHS^ICD0IDX"
^DD(80.166,.02,1,1,"%D",0)="^.101^1^1^3030305^^"
^DD(80.166,.02,1,1,"%D",1,0)="Set and Kill Activation History"
^DD(80.166,.02,1,1,"DT")="3030221"
^DD(80.166,.02,3)="Enter code status."
^DD(80.166,.02,21,0)="^.001^1^1^3030221^^^"
^DD(80.166,.02,21,1,0)="Set = 1 when the code is active."
^DD(80.166,.02,"DT")="3030221"
^DD(80.166,60,0)="DRGa^P80.2'^ICD(^DRG;1^Q"
^DD(80.166,60,3)="ENTER POINTER TO DRG FILE"
^DD(80.166,60,21,0)="^^1^1^3030407^"
^DD(80.166,60,21,1,0)="ENTER DRG CODE FOR OP/PROC CD "
^DD(80.166,60,"DT")="3030407"
^DD(80.166,61,0)="DRGb^P80.2'^ICD(^DRG;2^Q"
^DD(80.166,61,21,0)="^^1^1^3030407^"
^DD(80.166,61,21,1,0)="DRG CODE ASSOCIATED WITH OP/PROCEDURE CODE"
^DD(80.166,61,"DT")="3030407"
^DD(80.166,62,0)="DRGc^P80.2'^ICD(^DRG;3^Q"
^DD(80.166,62,"DT")="3030407"
^DD(80.166,63,0)="DRGd^P80.2'^ICD(^DRG;4^Q"
^DD(80.166,63,"DT")="3030407"
^DD(80.166,64,0)="DRGe^P80.2'^ICD(^DRG;5^Q"
^DD(80.166,64,"DT")="3030407"
^DD(80.166,65,0)="DRGf^P80.2'^ICD(^DRG;6^Q"
^DD(80.166,65,"DT")="3030407"
^DD(80.166,"B","DRGa",60)=""
^DD(80.166,"B","DRGb",61)=""
^DD(80.166,"B","DRGc",62)=""
^DD(80.166,"B","DRGd",63)=""
^DD(80.166,"B","DRGe",64)=""
^DD(80.166,"B","DRGf",65)=""
^DD(80.166,"B","EFFECTIVE DATE",.01)=""
^DD(80.166,"B","STATUS",.02)=""
^DD(80.166,"GL",0,1,.01)=""
^DD(80.166,"GL",0,2,.02)=""
^DD(80.166,"GL","DRG",1,60)=""
^DD(80.166,"GL","DRG",2,61)=""
^DD(80.166,"GL","DRG",3,62)=""
^DD(80.166,"GL","DRG",4,63)=""
^DD(80.166,"GL","DRG",5,64)=""
^DD(80.166,"GL","DRG",6,65)=""
^DD(80.166,"IX",.01)=""
^DD(80.166,"IX",.02)=""
^DD(80.166,"RQ",.01)=""
^DD(80.166,"RQ",.02)=""
^DD(80.167,0)="OPERATION/PROC (VERSIONED) SUB-FIELD^^1^2"
^DD(80.167,0,"DT")="3040310"
^DD(80.167,0,"IX","B",80.167,.01)=""
^DD(80.167,0,"NM","OPERATION/PROC (VERSIONED)")=""
^DD(80.167,0,"UP")="80.1"
^DD(80.167,.01,0)="VERSION DATE^MRD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2781001>X X"
^DD(80.167,.01,1,0)="^.1"
^DD(80.167,.01,1,1,0)="80.167^B"
^DD(80.167,.01,1,1,1)="S ^ICD0(DA(1),67,""B"",$E(X,1,30),DA)="""""
^DD(80.167,.01,1,1,2)="K ^ICD0(DA(1),67,""B"",$E(X,1,30),DA)"
^DD(80.167,.01,1,1,"%D",0)="^^5^5^3040310^"
^DD(80.167,.01,1,1,"%D",1,0)="^ICD0(IEN1,67,""B"",EFF,IEN2) - Where IEN1 is the internal entry number in "
^DD(80.167,.01,1,1,"%D",2,0)="the ICD Operation/Procedure file #80.1, EFF is the effective date for the"
^DD(80.167,.01,1,1,"%D",3,0)="operation/procedure (short text), and IEN2 is the internal entry number"
^DD(80.167,.01,1,1,"%D",4,0)="in the OPERATION/PROCEDURE (VERSIONED) multiple where the versioned short"
^DD(80.167,.01,1,1,"%D",5,0)="text is stored."
^DD(80.167,.01,1,2,0)="80.1^AST^MUMPS"
^DD(80.167,.01,1,2,1)="S:$L($P($G(^ICD0(DA(1),0)),""^"",1)) ^ICD0(""AST"",($P($G(^ICD0(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(80.167,.01,1,2,2)="K:$L($P($G(^ICD0(DA(1),0)),""^"",1)) ^ICD0(""AST"",($P($G(^ICD0(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(80.167,.01,1,2,"%D",0)="^^6^6^3040310^"
^DD(80.167,.01,1,2,"%D",1,0)="^ICD0(""AST"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the ICD "
^DD(80.167,.01,1,2,"%D",2,0)="operation/procedure Code, EFF is the effective date for the "
^DD(80.167,.01,1,2,"%D",3,0)="operation/procedure (short text), IEN1 is the internal entry number"
^DD(80.167,.01,1,2,"%D",4,0)="in the ICD-9 Operation/Procedure file (#80.1) and IEN2 is the internal"
^DD(80.167,.01,1,2,"%D",5,0)="entry number in the OPERATION/PROCEDURE (VERSIONED) multiple where the"
^DD(80.167,.01,1,2,"%D",6,0)="versioned short text is stored."
^DD(80.167,.01,1,2,"DT")="3040310"
^DD(80.167,.01,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 1978"
^DD(80.167,.01,21,0)="^^1^1^3040310^"
^DD(80.167,.01,21,1,0)="This is the date the operation/procedure was first used.  "
^DD(80.167,.01,"DT")="3040319"
^DD(80.167,1,0)="OPERATION/PROC (VERSIONED)^RF^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(80.167,1,3)="Answer must be 2-50 characters in length"
^DD(80.167,1,21,0)="^^2^2^3040310^"
^DD(80.167,1,21,1,0)="This is the operations/procedure (short text) that was used beginning on"
^DD(80.167,1,21,2,0)="the 'effective date.'"
^DD(80.167,1,"DT")="3040319"
^DD(80.167,"B","OPERATION/PROC (VERSIONED)",1)=""
^DD(80.167,"B","VERSION DATE",.01)=""
^DD(80.167,"GL",0,1,.01)=""
^DD(80.167,"GL",0,2,1)=""
^DD(80.167,"IX",.01)=""
^DD(80.167,"RQ",.01)=""
^DD(80.167,"RQ",1)=""
^DD(80.168,0)="DESCRIPTION (VERSIONED) SUB-FIELD^^1^2"
^DD(80.168,0,"DT")="3040310"
^DD(80.168,0,"IX","B",80.168,.01)=""
^DD(80.168,0,"NM","DESCRIPTION (VERSIONED)")=""
^DD(80.168,0,"UP")="80.1"
^DD(80.168,.01,0)="VERSION DATE^MRD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2781001>X X"
^DD(80.168,.01,1,0)="^.1"
^DD(80.168,.01,1,1,0)="80.168^B"
^DD(80.168,.01,1,1,1)="S ^ICD0(DA(1),68,""B"",$E(X,1,30),DA)="""""
^DD(80.168,.01,1,1,2)="K ^ICD0(DA(1),68,""B"",$E(X,1,30),DA)"
^DD(80.168,.01,1,1,"%D",0)="^^5^5^3040310^"
^DD(80.168,.01,1,1,"%D",1,0)="^ICD0(IEN1,68,""B"",EFF,IEN2) - Where IEN1 is the internal entry number in "
^DD(80.168,.01,1,1,"%D",2,0)="the ICD-9 Operation/Procedure file #80.1, EFF is the effective date for"
^DD(80.168,.01,1,1,"%D",3,0)="the description (long text), and IEN2 is the internal entry number in the"
^DD(80.168,.01,1,1,"%D",4,0)="DESCRIPTION (VERSIONED) multiple where the versioned procedure description"
^DD(80.168,.01,1,1,"%D",5,0)="is stored."
^DD(80.168,.01,1,2,0)="80.1^ADS^MUMPS"
^DD(80.168,.01,1,2,1)="S:$L($P($G(^ICD0(DA(1),0)),""^"",1)) ^ICD0(""ADS"",($P($G(^ICD0(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(80.168,.01,1,2,2)="K:$L($P($G(^ICD0(DA(1),0)),""^"",1)) ^ICD0(""ADS"",($P($G(^ICD0(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(80.168,.01,1,2,"%D",0)="^^6^6^3040310^"
^DD(80.168,.01,1,2,"%D",1,0)="^ICD0(""ADS"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the ICD-9 "
^DD(80.168,.01,1,2,"%D",2,0)="Operation/Procedure Code, EFF is the effective date for the description"
^DD(80.168,.01,1,2,"%D",3,0)="(long text), IEN1 is the internal entry number in the ICD-9 "
^DD(80.168,.01,1,2,"%D",4,0)="Operation/Procedure file (#80.1) and IEN2 is the internal entry number in"
^DD(80.168,.01,1,2,"%D",5,0)="the DESCRIPTION (VERSIONED) multiple where the versioned long text is"
^DD(80.168,.01,1,2,"%D",6,0)="stored.  "
^DD(80.168,.01,1,2,"DT")="3040310"
^DD(80.168,.01,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 1978"
^DD(80.168,.01,21,0)="^^1^1^3040310^"
^DD(80.168,.01,21,1,0)="This is the date the description was first used.  "
^DD(80.168,.01,"DT")="3040319"
^DD(80.168,1,0)="DESCRIPTION (VERSIONED)^RF^^1;1^K:$L(X)>245!($L(X)<2) X"
^DD(80.168,1,3)="Answer must be 2-245 characters in length"
^DD(80.168,1,21,0)="^^2^2^3040310^"
^DD(80.168,1,21,1,0)="This is the description (long text) that was in used on the 'effective "
^DD(80.168,1,21,2,0)="date.' "
^DD(80.168,1,"DT")="3040319"
^DD(80.168,"B","DESCRIPTION (VERSIONED)",1)=""
^DD(80.168,"B","VERSION DATE",.01)=""
^DD(80.168,"GL",0,1,.01)=""
^DD(80.168,"GL",1,1,1)=""
^DD(80.168,"IX",.01)=""
^DD(80.168,"RQ",.01)=""
^DD(80.168,"RQ",1)=""
^DD(80.171,0)="DRG GROUPER EFFECTIVE DATE SUB-FIELD^^1^2"
^DD(80.171,0,"DT")="3040823"
^DD(80.171,0,"IX","B",80.171,.01)=""
^DD(80.171,0,"NM","DRG GROUPER EFFECTIVE DATE")=""
^DD(80.171,0,"UP")="80.1"
^DD(80.171,.01,0)="DRG GROUPER EFFECTIVE DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.171,.01,1,0)="^.1"
^DD(80.171,.01,1,1,0)="80.171^B"
^DD(80.171,.01,1,1,1)="S ^ICD0(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(80.171,.01,1,1,2)="K ^ICD0(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(80.171,.01,21,0)="^.001^4^4^3040913^^"
^DD(80.171,.01,21,1,0)="This field sets the effective date for the DRGs for a given fiscal year. "
^DD(80.171,.01,21,2,0)="It should normally be the first day of October of the fiscal year. Each"
^DD(80.171,.01,21,3,0)="year a new entry will be created and the DRG's hierachy will reside within"
^DD(80.171,.01,21,4,0)="this field."
^DD(80.171,.01,"DT")="3040729"
^DD(80.171,1,0)="MAJOR DIAGNOSTIC CATEGORY^80.1711P^^1;0"
^DD(80.171,1,21,0)="^.001^1^1^3041001^^"
^DD(80.171,1,21,1,0)="Major Diagnostic Category (MDC) associated with ICD Operation/Procedure."
^DD(80.171,"B","DRG GROUPER EFFECTIVE DATE",.01)=""
^DD(80.171,"B","MAJOR DIAGNOSTIC CATEGORY",1)=""
^DD(80.171,"GL",0,1,.01)=""
^DD(80.171,"GL",1,0,1)=""
^DD(80.171,"IX",.01)=""
^DD(80.171,"SB",80.1711,1)=""
^DD(80.1711,0)="MAJOR DIAGNOSTIC CATEGORY SUB-FIELD^^1^2"
^DD(80.1711,0,"DT")="3040823"
^DD(80.1711,0,"IX","B",80.1711,.01)=""
^DD(80.1711,0,"NM","MAJOR DIAGNOSTIC CATEGORY")=""
^DD(80.1711,0,"UP")="80.171"
^DD(80.1711,.01,0)="MAJOR DIAGNOSTIC CATEGORY^MP80.3'^ICM(^0;1^Q"
^DD(80.1711,.01,1,0)="^.1"
^DD(80.1711,.01,1,1,0)="80.1711^B"
^DD(80.1711,.01,1,1,1)="S ^ICD0(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(80.1711,.01,1,1,2)="K ^ICD0(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(80.1711,.01,3)="Enter DRG associated with ICD code"
^DD(80.1711,.01,"DT")="3040823"
^DD(80.1711,1,0)="DRG^80.17111P^^1;0"
^DD(80.1711,1,21,0)="^.001^2^2^3041001^^"
^DD(80.1711,1,21,1,0)="DRG(s) associated with corresponding ICD Operation/Procedure for a given"
^DD(80.1711,1,21,2,0)="fiscal year."
^DD(80.1711,"B","DRG",1)=""
^DD(80.1711,"B","MAJOR DIAGNOSTIC CATEGORY",.01)=""
^DD(80.1711,"GL",0,1,.01)=""
^DD(80.1711,"GL",1,0,1)=""
^DD(80.1711,"IX",.01)=""
^DD(80.1711,"SB",80.17111,1)=""
^DD(80.17111,0)="DRG SUB-FIELD^^.01^1"
^DD(80.17111,0,"DT")="3040823"
^DD(80.17111,0,"IX","B",80.17111,.01)=""
^DD(80.17111,0,"NM","DRG")=""
^DD(80.17111,0,"UP")="80.1711"
^DD(80.17111,.01,0)="DRG^MP80.2'^ICD(^0;1^Q"
^DD(80.17111,.01,1,0)="^.1"
^DD(80.17111,.01,1,1,0)="80.17111^B"
^DD(80.17111,.01,1,1,1)="S ^ICD0(DA(3),2,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(80.17111,.01,1,1,2)="K ^ICD0(DA(3),2,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(80.17111,.01,"DT")="3040823"
^DD(80.17111,"B","DRG",.01)=""
^DD(80.17111,"GL",0,1,.01)=""
^DD(80.17111,"IX",.01)=""
^DD(80.2,0)="FIELD^NL^900^23"
^DD(80.2,0,"DT")="3040310"
^DD(80.2,0,"ID",15)="D EN^DDIOL(("" ""_$$IDDGS^ICDID(+Y)),"""",""?0"")"
^DD(80.2,0,"IX","ADS",80.268,.01)=""
^DD(80.2,0,"IX","B",80.2,.01)=""
^DD(80.2,0,"NM","DRG")=""
^DD(80.2,0,"PT",45.02,20)=""
^DD(80.2,0,"PT",45.84,6)=""
^DD(80.2,0,"PT",80,60)=""
^DD(80.2,0,"PT",80,61)=""
^DD(80.2,0,"PT",80,62)=""
^DD(80.2,0,"PT",80,63)=""
^DD(80.2,0,"PT",80,64)=""
^DD(80.2,0,"PT",80,65)=""
^DD(80.2,0,"PT",80.066,60)=""
^DD(80.2,0,"PT",80.066,61)=""
^DD(80.2,0,"PT",80.066,62)=""
^DD(80.2,0,"PT",80.066,63)=""
^DD(80.2,0,"PT",80.066,64)=""
^DD(80.2,0,"PT",80.066,65)=""
^DD(80.2,0,"PT",80.12,1)=""
^DD(80.2,0,"PT",80.12,2)=""
^DD(80.2,0,"PT",80.12,3)=""
^DD(80.2,0,"PT",80.12,4)=""
^DD(80.2,0,"PT",80.12,5)=""
^DD(80.2,0,"PT",80.12,6)=""
^DD(80.2,0,"PT",80.166,60)=""
^DD(80.2,0,"PT",80.166,61)=""
^DD(80.2,0,"PT",80.166,62)=""
^DD(80.2,0,"PT",80.166,63)=""
^DD(80.2,0,"PT",80.166,64)=""
^DD(80.2,0,"PT",80.166,65)=""
^DD(80.2,0,"PT",80.17111,.01)=""
^DD(80.2,0,"PT",80.7,60)=""
^DD(80.2,0,"PT",80.7,61)=""
^DD(80.2,0,"PT",80.7,62)=""
^DD(80.2,0,"PT",80.7,63)=""
^DD(80.2,0,"PT",80.7,64)=""
^DD(80.2,0,"PT",80.7,65)=""
^DD(80.2,0,"PT",80.711,.01)=""
^DD(80.2,0,"PT",80.82,1)=""
^DD(80.2,0,"PT",80.82,2)=""
^DD(80.2,0,"PT",80.82,3)=""
^DD(80.2,0,"PT",80.82,4)=""
^DD(80.2,0,"PT",80.82,5)=""
^DD(80.2,0,"PT",80.82,6)=""
^DD(80.2,0,"PT",162.5,24)=""
^DD(80.2,0,"PT",351.61,1.01)=""
^DD(80.2,0,"PT",356.5,.01)=""
^DD(80.2,0,"PT",356.93,.01)=""
^DD(80.2,0,"PT",363.2,.01)=""
^DD(80.2,0,"PT",727.802,31)=""
^DD(80.2,0,"PT",727.82,31)=""
^DD(80.2,0,"VR")="18.0"
^DD(80.2,0,"VRPK")="ICD"
^DD(80.2,0,"VRRV")="24^3061001"
^DD(80.2,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.2,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(80.2,.001,21,0)="^^1^1^2940307^"
^DD(80.2,.001,21,1,0)="This is the DRG number"
^DD(80.2,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(80.2,.01,1,0)="^.1"
^DD(80.2,.01,1,1,0)="80.2^B"
^DD(80.2,.01,1,1,1)="S ^ICD(""B"",$E(X,1,30),DA)="""""
^DD(80.2,.01,1,1,2)="K ^ICD(""B"",$E(X,1,30),DA)"
^DD(80.2,.01,1,1,"%D",0)="^^2^2^3040310^"
^DD(80.2,.01,1,1,"%D",1,0)="^ICD(""B"",DRG,IEN) - Where DRG is the DRG's Name and IEN is the internal"
^DD(80.2,.01,1,1,"%D",2,0)="entry number in the DRG file #80.2 where the DRG is stored."
^DD(80.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(80.2,.01,21,0)="^^1^1^2940307^"
^DD(80.2,.01,21,1,0)="This is the DRG number with ""DRG"" affixed as a prefix."
^DD(80.2,.06,0)="SURGERY^S^1:YES;^0;6^Q"
^DD(80.2,.06,21,0)="^^1^1^2940307^"
^DD(80.2,.06,21,1,0)="This is a flag set =1 if this is a surgical DRG."
^DD(80.2,1,0)="DESCRIPTION^80.21A^^1;0"
^DD(80.2,1,21,0)="^^1^1^2940307^"
^DD(80.2,1,21,1,0)="This is the description of the DRG"
^DD(80.2,2,0)="WEIGHT^NJ8,3^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(80.2,2,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(80.2,2,21,0)="^^1^1^2940308^^^"
^DD(80.2,2,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG."
^DD(80.2,2,"DT")="2901213"
^DD(80.2,3,0)="LOW TRIM(days)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.2,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.2,3,21,0)="^^1^1^2940307^"
^DD(80.2,3,21,1,0)="Lowest # days of stay for this DRG"
^DD(80.2,4,0)="HIGH TRIM(days)^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.2,4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(80.2,4,21,0)="^^1^1^2940307^"
^DD(80.2,4,21,1,0)="Highest # of days of stay for this DRG"
^DD(80.2,4,"DT")="2901213"
^DD(80.2,5,0)="MDC#^RP80.3'^ICM(^0;5^Q"
^DD(80.2,5,.1)="MAJOR DIAGNOSTIC CATEGORY"
^DD(80.2,5,3)="Enter the MDC name or number this DRG is associated with."
^DD(80.2,5,21,0)="^^1^1^2940308^^"
^DD(80.2,5,21,1,0)="MDC for this DRG."
^DD(80.2,5,"DT")="2840320"
^DD(80.2,7,0)="WEIGHT(nonAffil)^NJ8,2^^0;7^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.2,7,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(80.2,7,21,0)="^^1^1^2940308^^^"
^DD(80.2,7,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG."
^DD(80.2,7,"DT")="2851212"
^DD(80.2,7.5,0)="WEIGHT(IntAffil)^NJ8,2^^0;11^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.2,7.5,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(80.2,7.5,21,0)="^^1^1^2940308^^^^"
^DD(80.2,7.5,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG."
^DD(80.2,7.5,"DT")="2851212"
^DD(80.2,10,0)="AVG LENGTH OF STAY(days)^NJ8,2^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.2,10,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(80.2,10,21,0)="^^1^1^2940307^"
^DD(80.2,10,21,1,0)="Average Length of Stay for this DRG"
^DD(80.2,10,"DT")="2840327"
^DD(80.2,11,0)="LOCAL LOW TRIM(Days)^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.2,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.2,11,21,0)="^^1^1^2940307^"
^DD(80.2,11,21,1,0)="Low # days of stay for this (local) facility"
^DD(80.2,11,"DT")="2840310"
^DD(80.2,12,0)="LOCAL HIGH TRIM(Days)^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.2,12,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(80.2,12,21,0)="^^1^1^2940307^"
^DD(80.2,12,21,1,0)="High # days of stay for this (local) facility"
^DD(80.2,12,"DT")="2901213"
^DD(80.2,13,0)="LOCAL BREAKEVEN^NJ5,1^^0;12^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""2N.N) X"
^DD(80.2,13,3)="Type a Number between 0 and 366, 1 Decimal Digit"
^DD(80.2,13,21,0)="^^2^2^2940308^^"
^DD(80.2,13,21,1,0)="The day on which the actual cost of care equals the estimated allocation"
^DD(80.2,13,21,2,0)="for the assigned medical center."
^DD(80.2,13,"DT")="2880315"
^DD(80.2,14,0)="ACTIVATION DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.2,14,3)="ENTER ACTIVATION DATE FOR THE DRG CODE"
^DD(80.2,14,21,0)="^^1^1^3030407^"
^DD(80.2,14,21,1,0)="ACTIVATION DATE FOR THE DRG CODE"
^DD(80.2,14,"DT")="3030407"
^DD(80.2,15,0)="INACTIVE^S^1:INACTIVE;0:ACTIVE;^0;14^Q"
^DD(80.2,15,21,0)="^^1^1^3030407^"
^DD(80.2,15,21,1,0)="INACTIVE FLAG FOR DRG CODE"
^DD(80.2,15,"DT")="3030407"
^DD(80.2,16,0)="INACTIVATION DATE^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.2,16,3)="ENTER DATE CODE BECAME INACTIVE"
^DD(80.2,16,21,0)="^^1^1^3030407^"
^DD(80.2,16,21,1,0)="DATE THAT THE CODE BECAME INACTIVE"
^DD(80.2,16,"DT")="3030407"
^DD(80.2,20,0)="FISCAL YEAR WEIGHTS&TRIMS^80.22D^^FY;0"
^DD(80.2,20,21,0)="^.001^1^1^3040922^^^"
^DD(80.2,20,21,1,0)="Weight and Trims by fiscal year"
^DD(80.2,30,0)="BREAKEVEN FISCAL YEAR/QUARTER^80.23^^BE;0"
^DD(80.2,30,21,0)="^^1^1^2980210^^"
^DD(80.2,30,21,1,0)="This field contains the breakeven FY quarter."
^DD(80.2,66,0)="EFFECTIVE DATE^80.266D^^66;0"
^DD(80.2,68,0)="DESCRIPTION (VERSIONED)^80.268D^^68;0"
^DD(80.2,68,21,0)="^^2^2^3040310^"
^DD(80.2,68,21,1,0)="This is a history of the descriptive text to include the date the text "
^DD(80.2,68,21,2,0)="was first used and the text used."
^DD(80.2,71,0)="DRG GROUPER EFFECIVE DATE^80.271D^^2;0"
^DD(80.2,900,0)="REFERENCE^F^^MC1;1^K:$L(X)>30!($L(X)<3) X"
^DD(80.2,900,3)="Answer must be 3-30 characters in length."
^DD(80.2,900,21,0)="^.001^1^1^3041001^^"
^DD(80.2,900,21,1,0)="This field contains the name of the routine that contains the grouper logic for this field."
^DD(80.2,900,"DT")="2920316"
^DD(80.2,"B","ACTIVATION DATE",14)=""
^DD(80.2,"B","AVG LENGTH OF STAY(days)",10)=""
^DD(80.2,"B","BREAKEVEN FISCAL YEAR/QUARTER",30)=""
^DD(80.2,"B","DESCRIPTION",1)=""
^DD(80.2,"B","DESCRIPTION (VERSIONED)",68)=""
^DD(80.2,"B","DRG GROUPER EFFECIVE DATE",71)=""
^DD(80.2,"B","EFFECTIVE DATE",66)=""
^DD(80.2,"B","FISCAL YEAR WEIGHTS&TRIMS",20)=""
^DD(80.2,"B","HIGH TRIM(days)",4)=""
^DD(80.2,"B","INACTIVATION DATE",16)=""
^DD(80.2,"B","INACTIVE",15)=""
^DD(80.2,"B","LOCAL BREAKEVEN",13)=""
^DD(80.2,"B","LOCAL HIGH TRIM(Days)",12)=""
^DD(80.2,"B","LOCAL LOW TRIM(Days)",11)=""
^DD(80.2,"B","LOW TRIM(days)",3)=""
^DD(80.2,"B","MAJOR DIAGNOSTIC CATEGORY",5)="1"
^DD(80.2,"B","MDC#",5)=""
^DD(80.2,"B","NAME",.01)=""
^DD(80.2,"B","NUMBER",.001)=""
^DD(80.2,"B","REFERENCE",900)=""
^DD(80.2,"B","SURGERY",.06)=""
^DD(80.2,"B","WEIGHT",2)=""
^DD(80.2,"B","WEIGHT(IntAffil)",7.5)=""
^DD(80.2,"B","WEIGHT(nonAffil)",7)=""
^DD(80.2,"GL",0,1,.01)=""
^DD(80.2,"GL",0,2,2)=""
^DD(80.2,"GL",0,3,3)=""
^DD(80.2,"GL",0,4,4)=""
^DD(80.2,"GL",0,5,5)=""
^DD(80.2,"GL",0,6,.06)=""
^DD(80.2,"GL",0,7,7)=""
^DD(80.2,"GL",0,8,10)=""
^DD(80.2,"GL",0,9,11)=""
^DD(80.2,"GL",0,10,12)=""
^DD(80.2,"GL",0,11,7.5)=""
^DD(80.2,"GL",0,12,13)=""
^DD(80.2,"GL",0,13,14)=""
^DD(80.2,"GL",0,14,15)=""
^DD(80.2,"GL",0,15,16)=""
^DD(80.2,"GL",1,0,1)=""
^DD(80.2,"GL",2,0,71)=""
^DD(80.2,"GL",66,0,66)=""
^DD(80.2,"GL",68,0,68)=""
^DD(80.2,"GL","BE",0,30)=""
^DD(80.2,"GL","FY",0,20)=""
^DD(80.2,"GL","MC1",1,900)=""
^DD(80.2,"IX",.01)=""
^DD(80.2,"RQ",.01)=""
^DD(80.2,"RQ",5)=""
^DD(80.2,"SB",80.21,1)=""
^DD(80.2,"SB",80.22,20)=""
^DD(80.2,"SB",80.23,30)=""
^DD(80.2,"SB",80.266,66)=""
^DD(80.2,"SB",80.268,68)=""
^DD(80.2,"SB",80.271,71)=""
^DD(80.21,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(80.21,0,"IX","B",80.21,.01)=""
^DD(80.21,0,"NM","DESCRIPTION")=""
^DD(80.21,0,"UP")="80.2"
^DD(80.21,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(80.21,.01,1,0)="^.1"
^DD(80.21,.01,1,1,0)="80.21^B"
^DD(80.21,.01,1,1,1)="S ^ICD(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(80.21,.01,1,1,2)="K ^ICD(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(80.21,.01,1,1,"DT")="2970528"
^DD(80.21,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(80.21,.01,"DT")="2970528"
^DD(80.21,"B","DESCRIPTION",.01)=""
^DD(80.21,"GL",0,1,.01)=""
^DD(80.21,"IX",.01)=""
^DD(80.22,0)="FISCAL YEAR WEIGHTS&TRIMS SUB-FIELD^NL^7^9"
^DD(80.22,0,"NM","FISCAL YEAR WEIGHTS&TRIMS")=""
^DD(80.22,0,"UP")="80.2"
^DD(80.22,.01,0)="FISCAL YEAR WEIGHTS&TRIMS^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:4991231<X!(2800000>X) X I $D(X) S X=$E(X,1,3)_""0000"",DINUM=X"
^DD(80.22,.01,1,0)="^.1^^0"
^DD(80.22,.01,3)="TYPE A YEAR BETWEEN 1980 AND 2100"
^DD(80.22,.01,21,0)="^^1^1^2980105^^^"
^DD(80.22,.01,21,1,0)="This field contains the weights and trims by FY."
^DD(80.22,.01,"DT")="2980211"
^DD(80.22,2,0)="WEIGHT^NJ9,3^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(80.22,2,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(80.22,2,21,0)="^^1^1^2940308^^"
^DD(80.22,2,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY."
^DD(80.22,2,"DT")="2901213"
^DD(80.22,2.5,0)="WEIGHT(nonAffil)^NJ7,2^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.22,2.5,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(80.22,2.5,21,0)="^^1^1^2940308^^"
^DD(80.22,2.5,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY."
^DD(80.22,2.5,"DT")="2851211"
^DD(80.22,2.6,0)="WEIGHT(IntAfill)^NJ8,2^^0;10^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.22,2.6,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(80.22,2.6,21,0)="^^1^1^2940308^^"
^DD(80.22,2.6,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY."
^DD(80.22,2.6,"DT")="2851211"
^DD(80.22,3,0)="LOW TRIM(days)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.22,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.22,3,21,0)="^^1^1^2940308^"
^DD(80.22,3,21,1,0)="This field contains the low trim days for a given FY."
^DD(80.22,3,"DT")="2840310"
^DD(80.22,4,0)="HIGH TRIM(days)^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.22,4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(80.22,4,21,0)="^^1^1^2940308^"
^DD(80.22,4,21,1,0)="This field contains the high trim days for a given FY."
^DD(80.22,4,"DT")="2901213"
^DD(80.22,4.5,0)="AVG LENGTH OF STAY(days)^NJ9,2^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.22,4.5,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(80.22,4.5,21,0)="^^1^1^2940308^"
^DD(80.22,4.5,21,1,0)="This field contains the average length of stay for a given FY."
^DD(80.22,4.5,"DT")="2840320"
^DD(80.22,6,0)="LOCAL LOW TRIM(days)^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.22,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.22,6,21,0)="^^1^1^2940308^"
^DD(80.22,6,21,1,0)="This field contains the local low trim days for a given FY."
^DD(80.22,6,"DT")="2840310"
^DD(80.22,7,0)="LOCAL HIGH TRIM(days)^NJ3,0^^0;7^K:+X'=X!(X>400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.22,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 400"
^DD(80.22,7,21,0)="^^1^1^2940308^"
^DD(80.22,7,21,1,0)=" This field contains the local high trim days for a given FY"
^DD(80.22,7,"DT")="2840320"
^DD(80.22,"B","AVG LENGTH OF STAY(days)",4.5)=""
^DD(80.22,"B","FISCAL YEAR WEIGHTS&TRIMS",.01)=""
^DD(80.22,"B","HIGH TRIM(days)",4)=""
^DD(80.22,"B","LOCAL HIGH TRIM(days)",7)=""
^DD(80.22,"B","LOCAL LOW TRIM(days)",6)=""
^DD(80.22,"B","LOW TRIM(days)",3)=""
^DD(80.22,"B","WEIGHT",2)=""
^DD(80.22,"B","WEIGHT(IntAfill)",2.6)=""
^DD(80.22,"B","WEIGHT(nonAffil)",2.5)=""
^DD(80.22,"GL",0,1,.01)=""
^DD(80.22,"GL",0,2,2)=""
^DD(80.22,"GL",0,3,3)=""
^DD(80.22,"GL",0,4,4)=""
^DD(80.22,"GL",0,6,6)=""
^DD(80.22,"GL",0,7,7)=""
^DD(80.22,"GL",0,8,2.5)=""
^DD(80.22,"GL",0,9,4.5)=""
^DD(80.22,"GL",0,10,2.6)=""
^DD(80.23,0)="BREAKEVEN FISCAL YEAR/QUARTER SUB-FIELD^^2^3"
^DD(80.23,0,"NM","BREAKEVEN FISCAL YEAR/QUARTER")=""
^DD(80.23,0,"UP")="80.2"
^DD(80.23,.01,0)="BREAKEVEN FISCAL YEAR/QUARTER^NJ3,0XO^^0;1^K:X'?3N!($E(X,3)>4!'$E(X,3)) X I $D(X) S:X>799 X=19_X S:X<800 X=20_X I $D(X) S DINUM=X"
^DD(80.23,.01,2)="S Y(0)=Y S Y=$E(Y,3,5)"
^DD(80.23,.01,2.1)="S Y=$E(Y,3,5)"
^DD(80.23,.01,3)="Enter fiscal year/quarter as 861 for fiscal year 86, first quarter"
^DD(80.23,.01,21,0)="^^1^1^2940308^"
^DD(80.23,.01,21,1,0)="This field contains the breakeven FY quarter."
^DD(80.23,.01,"DT")="2980114"
^DD(80.23,1,0)="SERVICE^80.24SA^^S;0"
^DD(80.23,1,21,0)="^^1^1^2940308^"
^DD(80.23,1,21,1,0)="This field contains the service for which this breakeven applies."
^DD(80.23,2,0)="MEDICAL CENTER BREAKEVEN^RNJ5,1^^0;2^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""2N.N) X"
^DD(80.23,2,3)="Type a Number between 0 and 366, 1 Decimal Digit allowed"
^DD(80.23,2,21,0)="^^1^1^2940308^"
^DD(80.23,2,21,1,0)="This field contains the breakeven days for the Medical Center."
^DD(80.23,2,"DT")="2870805"
^DD(80.23,"B","BREAKEVEN FISCAL YEAR/QUARTER",.01)=""
^DD(80.23,"B","MEDICAL CENTER BREAKEVEN",2)=""
^DD(80.23,"B","SERVICE",1)=""
^DD(80.23,"GL",0,1,.01)=""
^DD(80.23,"GL",0,2,2)=""
^DD(80.23,"GL","S",0,1)=""
^DD(80.23,"RQ",2)=""
^DD(80.23,"SB",80.24,1)=""
^DD(80.24,0)="SERVICE SUB-FIELD^^1^2"
^DD(80.24,0,"NM","SERVICE")=""
^DD(80.24,0,"UP")="80.23"
^DD(80.24,.01,0)="SERVICE^SX^1:MEDICINE;2:NEUROLOGY;3:PSYCHIATRY;4:REHAB MEDICINE;5:SURGERY;^0;1^I $D(X) S DINUM=X"
^DD(80.24,.01,3)="Enter the service for the breakeven factor"
^DD(80.24,.01,21,0)="^^1^1^2940308^"
^DD(80.24,.01,21,1,0)="This field contains the service for which this breakeven applies."
^DD(80.24,.01,"DT")="2870313"
^DD(80.24,1,0)="BREAK EVEN DAYS^RNJ5,1^^0;2^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""2N.N) X"
^DD(80.24,1,3)="Type a Number between 0 and 366, 1 Decimal Digit allowed"
^DD(80.24,1,21,0)="^^1^1^2940308^^"
^DD(80.24,1,21,1,0)="This field contains the Breakeven days for the given service."
^DD(80.24,1,"DT")="2870805"
^DD(80.24,"B","BREAK EVEN DAYS",1)=""
^DD(80.24,"B","SERVICE",.01)=""
^DD(80.24,"GL",0,1,.01)=""
^DD(80.24,"GL",0,2,1)=""
^DD(80.24,"RQ",1)=""
^DD(80.266,0)="EFFECTIVE DATE SUB-FIELD^^.06^4"
^DD(80.266,0,"DT")="3030407"
^DD(80.266,0,"IX","B",80.266,.01)=""
^DD(80.266,0,"NM","EFFECTIVE DATE")=""
^DD(80.266,0,"UP")="80.2"
^DD(80.266,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.266,.01,1,0)="^.1"
^DD(80.266,.01,1,1,0)="80.266^B"
^DD(80.266,.01,1,1,1)="S ^ICD(DA(1),66,""B"",$E(X,1,30),DA)="""""
^DD(80.266,.01,1,1,2)="K ^ICD(DA(1),66,""B"",$E(X,1,30),DA)"
^DD(80.266,.01,3)="ENTER THE EFFECITVE DATE FOR THE DRG DATA TO BE RETAINED"
^DD(80.266,.01,21,0)="^^1^1^3030407^"
^DD(80.266,.01,21,1,0)="EFFECTIVE DATE OF THE CODE SET VERSIONED LEVEL"
^DD(80.266,.01,"DT")="3030407"
^DD(80.266,.03,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;3^Q"
^DD(80.266,.03,3)="ENTER 1 FOR ACTIVE 0 FOR INACTIVE"
^DD(80.266,.03,21,0)="^^1^1^3030407^"
^DD(80.266,.03,21,1,0)="STATUS FLAG FOR DRG CODE"
^DD(80.266,.03,"DT")="3030407"
^DD(80.266,.05,0)="MDC#^RP80.3'^ICM(^0;5^Q"
^DD(80.266,.05,3)="ENTER POINTER TO MAJOR DIAGNOSIS CODE FILE"
^DD(80.266,.05,21,0)="^^1^1^3030407^"
^DD(80.266,.05,21,1,0)="POINTER TO MAJOR DIAGNOSIS CODE FILE"
^DD(80.266,.05,"DT")="3030407"
^DD(80.266,.06,0)="SURGERY^RS^1:YES;0:NO;^0;6^Q"
^DD(80.266,.06,"DT")="3030407"
^DD(80.266,"B","EFFECTIVE DATE",.01)=""
^DD(80.266,"B","MDC#",.05)=""
^DD(80.266,"B","STATUS",.03)=""
^DD(80.266,"B","SURGERY",.06)=""
^DD(80.266,"GL",0,1,.01)=""
^DD(80.266,"GL",0,3,.03)=""
^DD(80.266,"GL",0,5,.05)=""
^DD(80.266,"GL",0,6,.06)=""
^DD(80.266,"IX",.01)=""
^DD(80.266,"RQ",.01)=""
^DD(80.266,"RQ",.03)=""
^DD(80.266,"RQ",.05)=""
^DD(80.266,"RQ",.06)=""
^DD(80.268,0)="DESCRIPTION (VERSIONED) SUB-FIELD^^1^2"
^DD(80.268,0,"DT")="3040310"
^DD(80.268,0,"IX","B",80.268,.01)=""
^DD(80.268,0,"NM","DESCRIPTION (VERSIONED)")=""
^DD(80.268,0,"UP")="80.2"
^DD(80.268,.01,0)="EFFECTIVE DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2781001>X X"
^DD(80.268,.01,1,0)="^.1"
^DD(80.268,.01,1,1,0)="80.268^B"
^DD(80.268,.01,1,1,1)="S ^ICD(DA(1),68,""B"",$E(X,1,30),DA)="""""
^DD(80.268,.01,1,1,2)="K ^ICD(DA(1),68,""B"",$E(X,1,30),DA)"
^DD(80.268,.01,1,1,"%D",0)="^^4^4^3040310^"
^DD(80.268,.01,1,1,"%D",1,0)="^ICD(IEN1,68,""B"",EFF,IEN2) - Where IEN1 is the internal entry number in "
^DD(80.268,.01,1,1,"%D",2,0)="the DRG file #80.2, EFF is the effective date for the description (long "
^DD(80.268,.01,1,1,"%D",3,0)="text), and IEN2 is the internal entry number in the DESCRIPTION "
^DD(80.268,.01,1,1,"%D",4,0)="(VERSIONED) multiple where the versioned description is stored.  "
^DD(80.268,.01,1,2,0)="80.2^ADS^MUMPS"
^DD(80.268,.01,1,2,1)="S:$L($P($G(^ICD(DA(1),0)),""^"",1)) ^ICD(""ADS"",($P($G(^ICD(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(80.268,.01,1,2,2)="K:$L($P($G(^ICD(DA(1),0)),""^"",1)) ^ICD(""ADS"",($P($G(^ICD(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(80.268,.01,1,2,"%D",0)="^^5^5^3040310^"
^DD(80.268,.01,1,2,"%D",1,0)="^ICD(""ADS"",(DRG_"" ""),EFF,IEN1,IEN2) - Where DRG is the DRG Name, EFF is "
^DD(80.268,.01,1,2,"%D",2,0)="the effective date for the description (long text), IEN1 is the internal "
^DD(80.268,.01,1,2,"%D",3,0)="entry number in the DRG file (#80.2) and IEN2 is the internal entry "
^DD(80.268,.01,1,2,"%D",4,0)="number in the DESCRIPTION (VERSIONED) multiple where the versioned long "
^DD(80.268,.01,1,2,"%D",5,0)="text is stored.  "
^DD(80.268,.01,1,2,"DT")="3040310"
^DD(80.268,.01,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 1978"
^DD(80.268,.01,21,0)="^^1^1^3040310^"
^DD(80.268,.01,21,1,0)="This is the date the description was first used."
^DD(80.268,.01,"DT")="3040310"
^DD(80.268,1,0)="DESCRIPTION^80.2681^^1;0"
^DD(80.268,1,21,0)="^^1^1^3040310^"
^DD(80.268,1,21,1,0)="This is the long description (multiple line). "
^DD(80.268,"B","DESCRIPTION",1)=""
^DD(80.268,"B","EFFECTIVE DATE",.01)=""
^DD(80.268,"GL",0,1,.01)=""
^DD(80.268,"GL",1,0,1)=""
^DD(80.268,"IX",.01)=""
^DD(80.268,"SB",80.2681,1)=""
^DD(80.2681,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(80.2681,0,"DT")="3040310"
^DD(80.2681,0,"IX","B",80.2681,.01)=""
^DD(80.2681,0,"NM","DESCRIPTION")=""
^DD(80.2681,0,"UP")="80.268"
^DD(80.2681,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(80.2681,.01,1,0)="^.1"
^DD(80.2681,.01,1,1,0)="80.2681^B"
^DD(80.2681,.01,1,1,1)="S ^ICD(DA(2),68,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(80.2681,.01,1,1,2)="K ^ICD(DA(2),68,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(80.2681,.01,1,1,"%D",0)="^^5^5^3040311^"
^DD(80.2681,.01,1,1,"%D",1,0)="^ICD(IEN3,68,IEN2,1,""B"",TEXT,IEN1) - Where IEN3 is the internal entry"
^DD(80.2681,.01,1,1,"%D",2,0)="number to the DRG file #80.2, IEN2 is the internal entry number of "
^DD(80.2681,.01,1,1,"%D",3,0)="the DESCRIPTION (VERSIONED) multiple #80.268, TEXT is a single line of "
^DD(80.2681,.01,1,1,"%D",4,0)="text of a multiple lined description, and IEN1 is the internal entry "
^DD(80.2681,.01,1,1,"%D",5,0)="number of the DESCRIPTION sub-file #80.2681 where the text is stored."
^DD(80.2681,.01,3)="Answer must be 1-80 characters in length"
^DD(80.2681,.01,21,0)="^^1^1^3040310^"
^DD(80.2681,.01,21,1,0)="This is a single line of text for a multiple lined description."
^DD(80.2681,.01,"DT")="3040310"
^DD(80.2681,"B","DESCRIPTION",.01)=""
^DD(80.2681,"GL",0,1,.01)=""
^DD(80.2681,"IX",.01)=""
^DD(80.271,0)="DRG GROUPER EFFECIVE DATE SUB-FIELD^^1^2"
^DD(80.271,0,"DT")="3040729"
^DD(80.271,0,"IX","B",80.271,.01)=""
^DD(80.271,0,"NM","DRG GROUPER EFFECIVE DATE")=""
^DD(80.271,0,"UP")="80.2"
^DD(80.271,.01,0)="DRG GROUPER EFFECIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.271,.01,1,0)="^.1"
^DD(80.271,.01,1,1,0)="80.271^B"
^DD(80.271,.01,1,1,1)="S ^ICD(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(80.271,.01,1,1,2)="K ^ICD(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(80.271,.01,21,0)="^^4^4^3040729^"
^DD(80.271,.01,21,1,0)="This field sets the effective date for the DRGs reference table for a"
^DD(80.271,.01,21,2,0)="given fiscal year. It should normally be the first day of October of the"
^DD(80.271,.01,21,3,0)="fiscal year. Each year a new entry will be created and the DRG's "
^DD(80.271,.01,21,4,0)="reference table to be used will reside within this field."
^DD(80.271,.01,"DT")="3040729"
^DD(80.271,1,0)="REFERENCE^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(80.271,1,3)="Answer must be 3-30 characters in length."
^DD(80.271,1,21,0)="^^2^2^3041001^"
^DD(80.271,1,21,1,0)="This field contains the name of the routine that contains the grouper "
^DD(80.271,1,21,2,0)="logic for this field."
^DD(80.271,1,"DT")="3040729"
^DD(80.271,"B","DRG GROUPER EFFECIVE DATE",.01)=""
^DD(80.271,"B","REFERENCE",1)=""
^DD(80.271,"GL",0,1,.01)=""
^DD(80.271,"GL",0,3,1)=""
^DD(80.271,"IX",.01)=""
^DD(80.3,0)="FIELD^NL^1^3"
^DD(80.3,0,"IX","B",80.3,.01)=""
^DD(80.3,0,"IX","C",80.31,.01)=""
^DD(80.3,0,"NM","MAJOR DIAGNOSTIC CATEGORY")=""
^DD(80.3,0,"PT",80,5)=""
^DD(80.3,0,"PT",80.072,1)=""
^DD(80.3,0,"PT",80.12,.01)=""
^DD(80.3,0,"PT",80.1711,.01)=""
^DD(80.3,0,"PT",80.2,5)=""
^DD(80.3,0,"PT",80.266,.05)=""
^DD(80.3,0,"PT",80.7,5)=""
^DD(80.3,0,"PT",80.82,.01)=""
^DD(80.3,0,"PT",80.9,5)=""
^DD(80.3,0,"VR")="14.0"
^DD(80.3,0,"VRPK")="ICD"
^DD(80.3,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.3,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(80.3,.001,21,0)="^^1^1^2940307^"
^DD(80.3,.001,21,1,0)="corresponds to the MDC #."
^DD(80.3,.001,"DT")="2901029"
^DD(80.3,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(80.3,.01,.1)="MAJOR DIAGNOSTIC CATEGORY"
^DD(80.3,.01,1,0)="^.1"
^DD(80.3,.01,1,1,0)="80.3^B"
^DD(80.3,.01,1,1,1)="S ^ICM(""B"",$E(X,1,30),DA)="""""
^DD(80.3,.01,1,1,2)="K ^ICM(""B"",$E(X,1,30),DA)"
^DD(80.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(80.3,.01,21,0)="^^1^1^2940307^"
^DD(80.3,.01,21,1,0)="Name of the MDC."
^DD(80.3,1,0)="DISORDER/PROCEDURE^80.31A^^1;0"
^DD(80.3,1,21,0)="^^1^1^2940307^"
^DD(80.3,1,21,1,0)="Disorder/procedure associated with this MDC."
^DD(80.3,"B","DISORDER/PROCEDURE",1)=""
^DD(80.3,"B","MAJOR DIAGNOSTIC CATEGORY",.01)="1"
^DD(80.3,"B","NAME",.01)=""
^DD(80.3,"B","NUMBER",.001)=""
^DD(80.3,"GL",0,1,.01)=""
^DD(80.3,"GL",1,0,1)=""
^DD(80.3,"IX",.01)=""
^DD(80.3,"RQ",.01)=""
^DD(80.3,"SB",80.31,1)=""
^DD(80.31,0)="DISORDER/PROCEDURE SUB-FIELD^NL^99^9"
^DD(80.31,0,"IX","B",80.31,.01)=""
^DD(80.31,0,"NM","DISORDER/PROCEDURE")=""
^DD(80.31,0,"UP")="80.3"
^DD(80.31,.01,0)="DISORDER/PROCEDURE^MF^^0;1^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(80.31,.01,1,0)="^.1"
^DD(80.31,.01,1,2,0)="80.3^C"
^DD(80.31,.01,1,2,1)="S ^ICM(""C"",$E(X,1,30),DA(1),DA)="""""
^DD(80.31,.01,1,2,2)="K ^ICM(""C"",$E(X,1,30),DA(1),DA)"
^DD(80.31,.01,1,3,0)="80.31^B^MUMPS"
^DD(80.31,.01,1,3,1)="S ^ICM(DA(1),1,""B"",X,DA)="""""
^DD(80.31,.01,1,3,2)="K ^ICM(DA(1),1,""B"",X,DA)"
^DD(80.31,.01,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(80.31,.01,"DT")="2830321"
^DD(80.31,1,0)="SURGERY^S^1:YES;^0;2^Q"
^DD(80.31,1,21,0)="^^1^1^2940307^"
^DD(80.31,1,21,1,0)="Flag set to 1 if this is surgery"
^DD(80.31,2,0)="DRGa^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.31,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(80.31,2,21,0)="^^1^1^2940307^"
^DD(80.31,2,21,1,0)="DRG associated with."
^DD(80.31,3,0)="DRGb^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.31,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(80.31,3,21,0)="^^1^1^2940307^"
^DD(80.31,3,21,1,0)="DRG associated with."
^DD(80.31,4,0)="DRGc^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.31,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(80.31,4,21,0)="^^1^1^2940307^"
^DD(80.31,4,21,1,0)="DRG associated with."
^DD(80.31,5,0)="DRGd^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.31,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(80.31,5,21,0)="^^1^1^2940307^"
^DD(80.31,5,21,1,0)="DRG associated with."
^DD(80.31,6,0)="DRGe^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.31,6,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(80.31,6,21,0)="^^1^1^2940307^"
^DD(80.31,6,21,1,0)="DRG associated with."
^DD(80.31,7,0)="DRGf^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.31,7,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(80.31,7,21,0)="^^1^1^2940307^"
^DD(80.31,7,21,1,0)="DRG associated with."
^DD(80.31,7,"DT")="2830317"
^DD(80.31,99,0)="MUMPS CODE^80.32A^^1;0"
^DD(80.31,99,10)=""
^DD(80.31,99,21,0)="^^2^2^2940308^"
^DD(80.31,99,21,1,0)="This field contains MUMPS code used for considering age, c/c and other"
^DD(80.31,99,21,2,0)="DRG determining factors."
^DD(80.31,"B","DISORDER/PROCEDURE",.01)=""
^DD(80.31,"B","DRGa",2)=""
^DD(80.31,"B","DRGb",3)=""
^DD(80.31,"B","DRGc",4)=""
^DD(80.31,"B","DRGd",5)=""
^DD(80.31,"B","DRGe",6)=""
^DD(80.31,"B","DRGf",7)=""
^DD(80.31,"B","MUMPS CODE",99)=""
^DD(80.31,"B","SURGERY",1)=""
^DD(80.31,"GL",0,1,.01)=""
^DD(80.31,"GL",0,2,1)=""
^DD(80.31,"GL",0,3,2)=""
^DD(80.31,"GL",0,4,3)=""
^DD(80.31,"GL",0,5,4)=""
^DD(80.31,"GL",0,6,5)=""
^DD(80.31,"GL",0,7,6)=""
^DD(80.31,"GL",0,8,7)=""
^DD(80.31,"GL",1,0,99)=""
^DD(80.31,"IX",.01)=""
^DD(80.31,"SB",80.32,99)=""
^DD(80.32,0)="MUMPS CODE SUB-FIELD^NL^.01^1"
^DD(80.32,0,"NM","MUMPS CODE")=""
^DD(80.32,0,"UP")="80.31"
^DD(80.32,.01,0)="MUMPS CODE^MF^^0;E1,200^K:$L(X)>250!($L(X)<1) X"
^DD(80.32,.01,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(80.32,.01,8.5)="@"
^DD(80.32,.01,9)="@"
^DD(80.32,.01,21,0)="^^2^2^2940308^"
^DD(80.32,.01,21,1,0)="This field contains MUMPS code used for considering age, c/c and other"
^DD(80.32,.01,21,2,0)="DRG determining factors."
^DD(80.32,"B","MUMPS CODE",.01)=""
^DD(80.32,"GL",0,"E1,200",.01)=""
^DD(80.7,0)="FIELD^^102^23"
^DD(80.7,0,"ID",3)="W ""   "",$P(^(0),U,3)"
^DD(80.7,0,"ID",70)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(80,70,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,7)_"""":"""",2),$C(59),1)"")"
^DD(80.7,0,"NM","TEMPORARY DIAGNOSES")=""
^DD(80.7,0,"PT",80.71,.01)=""
^DD(80.7,0,"PT",80.72,.01)=""
^DD(80.7,0,"PT",80.73,.01)=""
^DD(80.7,0,"VR")="14.0"
^DD(80.7,0,"VRPK")="ICD"
^DD(80.7,.01,0)="CODE NUMBER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1)!'(X?.E1""."".N) X"
^DD(80.7,.01,1,0)="^.1^^0"
^DD(80.7,.01,3)="Answer must be 1-7 characters in length and contain a decimal point (e.g.: 042.)"
^DD(80.7,.01,21,0)="^^2^2^2941229^^"
^DD(80.7,.01,21,1,0)=" "
^DD(80.7,.01,21,2,0)="ICD 9 code number"
^DD(80.7,.01,"DT")="2970403"
^DD(80.7,2,0)="IDENTIFIER^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(80.7,2,.1)="DRG FLAGS"
^DD(80.7,2,3)="Enter one or more valid codes."
^DD(80.7,2,4)="D ^ICDHLPD"
^DD(80.7,2,21,0)="^^1^1^2941216^^"
^DD(80.7,2,21,1,0)="This field contains Identifier codes providing more detail on the DRG."
^DD(80.7,3,0)="DIAGNOSIS^RF^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(80.7,3,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(80.7,3,21,0)="^^2^2^2940307^"
^DD(80.7,3,21,1,0)=" "
^DD(80.7,3,21,2,0)="Diagnosis that code represents."
^DD(80.7,5,0)="MAJOR DIAGNOSTIC CATEGORY^P80.3'^ICM(^0;5^Q"
^DD(80.7,5,21,0)="^^2^2^2940307^"
^DD(80.7,5,21,1,0)=" "
^DD(80.7,5,21,2,0)="MDC within which this code falls."
^DD(80.7,5.5,0)="MDC13^NJ2,0^^0;6^K:+X'=X!(X>13)!(X<13)!(X?.E1"".""1N.N) X"
^DD(80.7,5.5,3)="Type a Number between 13 and 13, 0 Decimal Digits"
^DD(80.7,5.5,21,0)="^^2^2^2940307^"
^DD(80.7,5.5,21,1,0)=" "
^DD(80.7,5.5,21,2,0)="Entered if MDC=13."
^DD(80.7,5.7,0)="MDC24^S^0:PRINCIPAL DX;1:HEAD;2:CHEST;3:ABDOMEN;4:KIDNEY;5:URINARY;6:PELVIS;7:UPPER LIMB;8:LOWER LIMB;^0;12^Q"
^DD(80.7,5.7,3)="REFLECTS MULTIPLE SIGNIFICANT TRAUMA BODY SITE"
^DD(80.7,5.7,21,0)="^^2^2^2940307^"
^DD(80.7,5.7,21,1,0)=" "
^DD(80.7,5.7,21,2,0)="Code entry of body site of Multiple Significant Trauma."
^DD(80.7,5.7,"DT")="2910305"
^DD(80.7,5.9,0)="MDC25^S^1:HIV INFECTION;2:MAJOR HIV CONDITION;3:NON-MAJOR HIV CONDITION;^0;13^Q"
^DD(80.7,5.9,3)="REFLECTS HIV DXLS OR RELATED CONDITION"
^DD(80.7,5.9,21,0)="^^2^2^2940307^"
^DD(80.7,5.9,21,1,0)=" "
^DD(80.7,5.9,21,2,0)="Set of codes refers to type of HIV code or related condition."
^DD(80.7,5.9,"DT")="2910305"
^DD(80.7,8,0)="ICD EXPANDED^S^1:YES;0:NO;^0;8^Q"
^DD(80.7,8,3)="USED WITH VA ONLY CODES"
^DD(80.7,8,21,0)="^^1^1^2940308^"
^DD(80.7,8,21,1,0)="This field contains thr ICD code as expanded by the VA"
^DD(80.7,9.5,0)="USE ONLY WITH SEX^S^M:MALE;F:FEMALE;^0;10^Q"
^DD(80.7,9.5,21,0)="^^2^2^2940307^"
^DD(80.7,9.5,21,1,0)=" "
^DD(80.7,9.5,21,2,0)="For codes that are gender-specific, enter sex."
^DD(80.7,10,0)="DESCRIPTION^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X"
^DD(80.7,10,1,0)="^.1^^0"
^DD(80.7,10,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(80.7,10,21,0)="^^2^2^2940307^"
^DD(80.7,10,21,1,0)=" "
^DD(80.7,10,21,2,0)="Complete description of ICD9 diagnosis represented by code."
^DD(80.7,10,"DT")="2970403"
^DD(80.7,20,0)="ICD9 CODES NOT TO USE WITH^80.71P^^N;0"
^DD(80.7,20,21,0)="^^1^1^2940314^^"
^DD(80.7,20,21,1,0)="ICD9 codes that cannot be used in conjunction with this code."
^DD(80.7,30,0)="ICD9 CODES REQUIRED WITH^80.72P^^R;0"
^DD(80.7,30,21,0)="^^1^1^2940307^"
^DD(80.7,30,21,1,0)="Codes required when this code is used."
^DD(80.7,40,0)="CODE NOT CC WITH^80.73P^^2;0"
^DD(80.7,40,21,0)="^^1^1^2940308^^"
^DD(80.7,40,21,1,0)="Code not considered as Complication/comorbidity with this code."
^DD(80.7,60,0)="DRGa^P80.2'^ICD(^DRG;1^Q"
^DD(80.7,60,21,0)="^^1^1^2940307^"
^DD(80.7,60,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80.7,61,0)="DRGb^P80.2'^ICD(^DRG;2^Q"
^DD(80.7,61,3)=""
^DD(80.7,61,21,0)="^^1^1^2940307^"
^DD(80.7,61,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80.7,62,0)="DRGc^P80.2'^ICD(^DRG;3^Q"
^DD(80.7,62,3)=""
^DD(80.7,62,21,0)="^^1^1^2940307^"
^DD(80.7,62,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80.7,63,0)="DRGd^P80.2'^ICD(^DRG;4^Q"
^DD(80.7,63,3)=""
^DD(80.7,63,21,0)="^^1^1^2940307^^^"
^DD(80.7,63,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of"
^DD(80.7,64,0)="DRGe^P80.2'^ICD(^DRG;5^Q"
^DD(80.7,64,3)=""
^DD(80.7,64,21,0)="^^1^1^2940307^"
^DD(80.7,64,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80.7,65,0)="DRGf^P80.2'^ICD(^DRG;6^Q"
^DD(80.7,65,21,0)="^^1^1^2940307^"
^DD(80.7,65,21,1,0)="DRG (Diagnostic Related Group) that this code may be part of."
^DD(80.7,70,0)="COMPLICATION/COMORBIDITY^S^1:COMPLICATION/COMORBIDITY;^0;7^Q"
^DD(80.7,70,21,0)="^^1^1^2940307^"
^DD(80.7,70,21,1,0)="Set =1 if this ICD9 refers to code with c/c."
^DD(80.7,70,"DT")="2890526"
^DD(80.7,100,0)="INACTIVE FLAG^S^1:INACTIVE;^0;9^Q"
^DD(80.7,100,21,0)="^^1^1^2940307^^"
^DD(80.7,100,21,1,0)="Set =1 when this code is  no longer active."
^DD(80.7,101,0)="UNACCEPTABLE AS PRINCIPAL DX^S^1:YES;^0;4^Q"
^DD(80.7,101,21,0)="^^1^1^2940308^"
^DD(80.7,101,21,1,0)="This field contains a flag indicating that this code is unacceptable as the principal diagnosis."
^DD(80.7,102,0)="INACTIVE DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.7,102,3)="Enter the date that this diagnosis becomes inactive."
^DD(80.7,102,21,0)="^^1^1^2940307^"
^DD(80.7,102,21,1,0)="Date as of which this code is inactive."
^DD(80.7,102,"DT")="2890815"
^DD(80.7,"B","CODE NOT CC WITH",40)=""
^DD(80.7,"B","CODE NUMBER",.01)=""
^DD(80.7,"B","COMPLICATION/COMORBIDITY",70)=""
^DD(80.7,"B","DESCRIPTION",10)=""
^DD(80.7,"B","DIAGNOSIS",3)=""
^DD(80.7,"B","DRG FLAGS",2)="1"
^DD(80.7,"B","DRGa",60)=""
^DD(80.7,"B","DRGb",61)=""
^DD(80.7,"B","DRGc",62)=""
^DD(80.7,"B","DRGd",63)=""
^DD(80.7,"B","DRGe",64)=""
^DD(80.7,"B","DRGf",65)=""
^DD(80.7,"B","ICD EXPANDED",8)=""
^DD(80.7,"B","ICD9 CODES NOT TO USE WITH",20)=""
^DD(80.7,"B","ICD9 CODES REQUIRED WITH",30)=""
^DD(80.7,"B","IDENTIFIER",2)=""
^DD(80.7,"B","INACTIVE DATE",102)=""
^DD(80.7,"B","INACTIVE FLAG",100)=""
^DD(80.7,"B","MAJOR DIAGNOSTIC CATEGORY",5)=""
^DD(80.7,"B","MDC13",5.5)=""
^DD(80.7,"B","MDC24",5.7)=""
^DD(80.7,"B","MDC25",5.9)=""
^DD(80.7,"B","UNACCEPTABLE AS PRINCIPAL DX",101)=""
^DD(80.7,"B","USE ONLY WITH SEX",9.5)=""
^DD(80.7,"GL",0,1,.01)=""
^DD(80.7,"GL",0,2,2)=""
^DD(80.7,"GL",0,3,3)=""
^DD(80.7,"GL",0,4,101)=""
^DD(80.7,"GL",0,5,5)=""
^DD(80.7,"GL",0,6,5.5)=""
^DD(80.7,"GL",0,7,70)=""
^DD(80.7,"GL",0,8,8)=""
^DD(80.7,"GL",0,9,100)=""
^DD(80.7,"GL",0,10,9.5)=""
^DD(80.7,"GL",0,11,102)=""
^DD(80.7,"GL",0,12,5.7)=""
^DD(80.7,"GL",0,13,5.9)=""
^DD(80.7,"GL",1,1,10)=""
^DD(80.7,"GL",2,0,40)=""
^DD(80.7,"GL","DRG",1,60)=""
^DD(80.7,"GL","DRG",2,61)=""
^DD(80.7,"GL","DRG",3,62)=""
^DD(80.7,"GL","DRG",4,63)=""
^DD(80.7,"GL","DRG",5,64)=""
^DD(80.7,"GL","DRG",6,65)=""
^DD(80.7,"GL","N",0,20)=""
^DD(80.7,"GL","R",0,30)=""
^DD(80.7,"RQ",.01)=""
^DD(80.7,"RQ",3)=""
^DD(80.7,"SB",80.71,20)=""
^DD(80.7,"SB",80.72,30)=""
^DD(80.7,"SB",80.73,40)=""
^DD(80.71,0)="ICD9 CODES NOT TO USE WITH SUB-FIELD^^.01^1"
^DD(80.71,0,"IX","B",80.71,.01)=""
^DD(80.71,0,"NM","ICD9 CODES NOT TO USE WITH")=""
^DD(80.71,0,"UP")="80.7"
^DD(80.71,.01,0)="ICD9 CODES NOT TO USE WITH^MP80.7'X^ICDYZ(80.7,^0;1^S DINUM=X"
^DD(80.71,.01,1,0)="^.1"
^DD(80.71,.01,1,1,0)="80.71^B"
^DD(80.71,.01,1,1,1)="S ^ICDYZ(80.7,DA(1),""N"",""B"",$E(X,1,30),DA)="""""
^DD(80.71,.01,1,1,2)="K ^ICDYZ(80.7,DA(1),""N"",""B"",$E(X,1,30),DA)"
^DD(80.71,"B","ICD9 CODES NOT TO USE WITH",.01)=""
^DD(80.71,"GL",0,1,.01)=""
^DD(80.71,"IX",.01)=""
^DD(80.711,0)="DRG SUB-FIELD^^.01^1"
^DD(80.711,0,"DT")="3040914"
^DD(80.711,0,"IX","B",80.711,.01)=""
^DD(80.711,0,"NM","DRG")=""
^DD(80.711,0,"UP")="80.071"
^DD(80.711,.01,0)="DRG^MP80.2'^ICD(^0;1^Q"
^DD(80.711,.01,1,0)="^.1"
^DD(80.711,.01,1,1,0)="80.711^B"
^DD(80.711,.01,1,1,1)="S ^ICD9(DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(80.711,.01,1,1,2)="K ^ICD9(DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(80.711,.01,3)="Enter DRG associated with ICD code"
^DD(80.711,.01,21,0)="^^2^2^3040914^"
^DD(80.711,.01,21,1,0)="DRG(s) associated with corresponding ICD Diagnosis for a given fiscal"
^DD(80.711,.01,21,2,0)="year."
^DD(80.711,.01,"DT")="3040914"
^DD(80.711,"B","DRG",.01)=""
^DD(80.711,"GL",0,1,.01)=""
^DD(80.711,"IX",.01)=""
^DD(80.72,0)="ICD9 CODES REQUIRED WITH SUB-FIELD^^.01^1"
^DD(80.72,0,"IX","B",80.72,.01)=""
^DD(80.72,0,"NM","ICD9 CODES REQUIRED WITH")=""
^DD(80.72,0,"UP")="80.7"
^DD(80.72,.01,0)="ICD9 CODES REQUIRED WITH^MP80.7'X^ICDYZ(80.7,^0;1^S DINUM=X"
^DD(80.72,.01,1,0)="^.1"
^DD(80.72,.01,1,1,0)="80.72^B"
^DD(80.72,.01,1,1,1)="S ^ICDYZ(80.7,DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(80.72,.01,1,1,2)="K ^ICDYZ(80.7,DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(80.72,"B","ICD9 CODES REQUIRED WITH",.01)=""
^DD(80.72,"GL",0,1,.01)=""
^DD(80.72,"IX",.01)=""
^DD(80.73,0)="CODE NOT CC WITH SUB-FIELD^^.01^1"
^DD(80.73,0,"NM","CODE NOT CC WITH")=""
^DD(80.73,0,"UP")="80.7"
^DD(80.73,.01,0)="CODES NOT CC WITH^MP80.7'^ICDYZ(80.7,^0;1^Q"
^DD(80.73,.01,1,0)="^.1^^0"
^DD(80.73,.01,21,0)="^^1^1^2940308^"
^DD(80.73,.01,21,1,0)="This field contains  Code not considered as Complication/comorbidity with this code."
^DD(80.73,.01,"DT")="2970403"
^DD(80.73,"B","CODES NOT CC WITH",.01)=""
^DD(80.73,"GL",0,1,.01)=""
^DD(80.8,0)="FIELD^NL^102^17"
^DD(80.8,0,"ID",4)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,4)"
^DD(80.8,0,"ID",10)="W:$D(^(""1"")) ""   "",$P(^(""1""),U,1)"
^DD(80.8,0,"NM","TEMPORARY PROCEDURES")=""
^DD(80.8,0,"VR")="14.0"
^DD(80.8,0,"VRPK")="ICD"
^DD(80.8,.01,0)="CODE NUMBER^RF^^0;1^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1)!'(X?.N1""."".N) X"
^DD(80.8,.01,.1)="ICD9 OPERATION/PROCEDURE CODE"
^DD(80.8,.01,1,0)="^.1^^0"
^DD(80.8,.01,3)="Answer must be 1-6 characters in length and contain a decimal point."
^DD(80.8,.01,21,0)="^^1^1^2941229^^"
^DD(80.8,.01,21,1,0)="ICD9 procedure or operation code"
^DD(80.8,.01,"DT")="2970403"
^DD(80.8,2,0)="IDENTIFIER^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(80.8,2,.1)="Codes for determining DRG"
^DD(80.8,2,3)="Enter one or more valid codes."
^DD(80.8,2,4)="D ^ICDHLPO"
^DD(80.8,2,21,0)="^^1^1^2940308^"
^DD(80.8,2,21,1,0)="This field contains Operations Identifiers."
^DD(80.8,4,0)="OPERATION/PROCEDURE^F^^0;4^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(80.8,4,1,0)="^.1^^0"
^DD(80.8,4,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(80.8,4,21,0)="^^1^1^2940307^"
^DD(80.8,4,21,1,0)="Name of Operation or Procedure that code refers to."
^DD(80.8,4,"DT")="2970403"
^DD(80.8,5,0)="MDC24^S^1:CRANIAL;2:LIMB;3:OTHER OR;^0;3^Q"
^DD(80.8,5,3)="MDC24 1:DRG484, 2:DRG485, 3:DRG486"
^DD(80.8,5,21,0)="^^2^2^2940307^"
^DD(80.8,5,21,1,0)="Set of codes refers to body site of procedure, when for a Multiple"
^DD(80.8,5,21,2,0)="Significant Trauma (MDC 24)"
^DD(80.8,5,"DT")="2910305"
^DD(80.8,7,0)="MAJOR DIAGNOSTIC CATEGORY^80.82PA^^MDC;0"
^DD(80.8,7,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(80.8,7,21,0)="^^1^1^2940308^^^"
^DD(80.8,7,21,1,0)="Major Diagnostic Category which this code may fall under."
^DD(80.8,8,0)="ICD EXPANDED^S^1:YES;0:NO;^0;8^Q"
^DD(80.8,8,21,0)="^^1^1^2870505^"
^DD(80.8,8,21,1,0)="VA ONLY CODES."
^DD(80.8,9.5,0)="USE ONLY WITH SEX^S^M:MALE;F:FEMALE;^0;10^Q"
^DD(80.8,9.5,3)="Enter the sex for which this operation/procedure code can only be used with, if applicable."
^DD(80.8,9.5,21,0)="^^1^1^2940307^^"
^DD(80.8,9.5,21,1,0)="Set of codes containing the sex if operation/procedure is gender-specific."
^DD(80.8,10,0)="DESCRIPTION^F^^1;1^K:X[""""""""!(X'?.ANP)!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<2) X"
^DD(80.8,10,1,0)="^.1^^0"
^DD(80.8,10,3)="ANSWER MUST BE 2-245 CHARACTERS IN LENGTH"
^DD(80.8,10,21,0)="^^1^1^2940307^"
^DD(80.8,10,21,1,0)="More complete description of operation or procedure."
^DD(80.8,10,"DT")="2970403"
^DD(80.8,20,0)="MAJOR O.R. PROC^F^^M;1^K:$L(X)>10!($L(X)<1) X"
^DD(80.8,20,3)="Answer must be 1-10 characters in length."
^DD(80.8,20,4)="D MAJ^ICDHLPD"
^DD(80.8,20,21,0)="^^1^1^2940307^"
^DD(80.8,20,21,1,0)="Is this defined as a Major O.R. Procedure?"
^DD(80.8,20,"DT")="2920312"
^DD(80.8,50,0)="OPERATION LENGTH^NJ3,0^^SR;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.8,50,3)="Type a whole number between 0 and 999 which gives the standard length of this operation in minutes."
^DD(80.8,50,21,0)="^^1^1^2940307^"
^DD(80.8,50,21,1,0)="Number of minutes for average length of time for this operation."
^DD(80.8,51,0)="REQUESTED BLOOD KIND^F^^SR;2^K:$L(X)>12!($L(X)<3) X"
^DD(80.8,51,3)="Answer must be 3-12 characters in length."
^DD(80.8,51,21,0)="^^1^1^2940308^"
^DD(80.8,51,21,1,0)="This field contains the requested blood kind."
^DD(80.8,51,"DT")="2910506"
^DD(80.8,52,0)="NUMBER OF BLOOD UNITS^NJ4,0^^SR;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.8,52,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(80.8,52,21,0)="^^1^1^2940307^"
^DD(80.8,52,21,1,0)="Number of Units of blood usually required."
^DD(80.8,53,0)="SCREEN OR TYPE^S^X:CROSS-MATCH;S:TYPE OR SCREEN;^SR;4^Q"
^DD(80.8,53,21,0)="^^1^1^2940308^"
^DD(80.8,53,21,1,0)="This field contains a code indicating screening or cross-matching."
^DD(80.8,54,0)="ANESTHESIA RUG^NJ3,0^^SR;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.8,54,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(80.8,54,21,0)="^^1^1^2940308^"
^DD(80.8,54,21,1,0)="This field contains the Resource Utilization Group for the Anesthesia."
^DD(80.8,55,0)="ACS NAME^F^^SR;6^K:$L(X)>30!($L(X)<2) X"
^DD(80.8,55,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(80.8,55,21,0)="^^1^1^2940308^"
^DD(80.8,55,21,1,0)="This field contains the ACS name."
^DD(80.8,100,0)="INACTIVE FLAG^S^1:INACTIVE CODE;^0;9^Q"
^DD(80.8,100,3)="Enter if code can no longer be used."
^DD(80.8,100,21,0)="^^1^1^2940307^"
^DD(80.8,100,21,1,0)="Set to 1 when code is inactivated."
^DD(80.8,102,0)="INACTIVE DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(80.8,102,3)="Enter date this Operation/Procedure becomes inactive."
^DD(80.8,102,21,0)="^^1^1^2940307^"
^DD(80.8,102,21,1,0)="Date as of which code is inactive."
^DD(80.8,102,"DT")="2890815"
^DD(80.8,"B","ACS NAME",55)=""
^DD(80.8,"B","ANESTHESIA RUG",54)=""
^DD(80.8,"B","CODE NUMBER",.01)=""
^DD(80.8,"B","Codes for determining DRG",2)="1"
^DD(80.8,"B","DESCRIPTION",10)=""
^DD(80.8,"B","ICD EXPANDED",8)=""
^DD(80.8,"B","ICD9 OPERATION/PROCEDURE CODE",.01)="1"
^DD(80.8,"B","IDENTIFIER",2)=""
^DD(80.8,"B","INACTIVE DATE",102)=""
^DD(80.8,"B","INACTIVE FLAG",100)=""
^DD(80.8,"B","MAJOR DIAGNOSTIC CATEGORY",7)=""
^DD(80.8,"B","MAJOR O.R. PROC",20)=""
^DD(80.8,"B","MDC24",5)=""
^DD(80.8,"B","NUMBER OF BLOOD UNITS",52)=""
^DD(80.8,"B","OPERATION LENGTH",50)=""
^DD(80.8,"B","OPERATION/PROCEDURE",4)=""
^DD(80.8,"B","REQUESTED BLOOD KIND",51)=""
^DD(80.8,"B","SCREEN OR TYPE",53)=""
^DD(80.8,"B","USE ONLY WITH SEX",9.5)=""
^DD(80.8,"GL",0,1,.01)=""
^DD(80.8,"GL",0,2,2)=""
^DD(80.8,"GL",0,3,5)=""
^DD(80.8,"GL",0,4,4)=""
^DD(80.8,"GL",0,8,8)=""
^DD(80.8,"GL",0,9,100)=""
^DD(80.8,"GL",0,10,9.5)=""
^DD(80.8,"GL",0,11,102)=""
^DD(80.8,"GL",1,1,10)=""
^DD(80.8,"GL","M",1,20)=""
^DD(80.8,"GL","MDC",0,7)=""
^DD(80.8,"GL","SR",1,50)=""
^DD(80.8,"GL","SR",2,51)=""
^DD(80.8,"GL","SR",3,52)=""
^DD(80.8,"GL","SR",4,53)=""
^DD(80.8,"GL","SR",5,54)=""
^DD(80.8,"GL","SR",6,55)=""
^DD(80.8,"RQ",.01)=""
^DD(80.8,"SB",80.82,7)=""
^DD(80.82,0)="MAJOR DIAGNOSTIC CATEGORY SUB-FIELD^NL^6^7"
^DD(80.82,0,"NM","MAJOR DIAGNOSTIC CATEGORY")=""
^DD(80.82,0,"UP")="80.8"
^DD(80.82,.01,0)="MAJOR DIAGNOSTIC CATEGORY^MP80.3'X^ICM(^0;1^S DINUM=X"
^DD(80.82,.01,21,0)="^^1^1^2940308^"
^DD(80.82,.01,21,1,0)="This field contains the Major Diagnostic Category which this code may fall under."
^DD(80.82,1,0)="DRGa^P80.2'^ICD(^DRG;1^Q"
^DD(80.82,1,21,0)="^^1^1^2940307^"
^DD(80.82,1,21,1,0)="DRG for this procedure/operation"
^DD(80.82,1,"DT")="2890328"
^DD(80.82,2,0)="DRGb^P80.2'^ICD(^DRG;2^Q"
^DD(80.82,2,3)=""
^DD(80.82,2,21,0)="^^1^1^2940307^"
^DD(80.82,2,21,1,0)="DRG for this procedure/operation"
^DD(80.82,2,"DT")="2890328"
^DD(80.82,3,0)="DRGc^P80.2'^ICD(^DRG;3^Q"
^DD(80.82,3,3)=""
^DD(80.82,3,21,0)="^^1^1^2940307^"
^DD(80.82,3,21,1,0)="DRG for this procedure/operation"
^DD(80.82,3,"DT")="2890328"
^DD(80.82,4,0)="DRGd^P80.2'^ICD(^DRG;4^Q"
^DD(80.82,4,3)=""
^DD(80.82,4,21,0)="^^1^1^2940307^"
^DD(80.82,4,21,1,0)="DRG for this procedure/operation"
^DD(80.82,4,"DT")="2890328"
^DD(80.82,5,0)="DRGe^P80.2'^ICD(^DRG;5^Q"
^DD(80.82,5,3)=""
^DD(80.82,5,21,0)="^^1^1^2940307^"
^DD(80.82,5,21,1,0)="DRG for this procedure/operation"
^DD(80.82,5,"DT")="2890328"
^DD(80.82,6,0)="DRGf^P80.2'^ICD(^DRG;6^Q"
^DD(80.82,6,21,0)="^^1^1^2940307^"
^DD(80.82,6,21,1,0)="DRG for this procedure/operation"
^DD(80.82,6,"DT")="2890328"
^DD(80.82,"B","DRGa",1)=""
^DD(80.82,"B","DRGb",2)=""
^DD(80.82,"B","DRGc",3)=""
^DD(80.82,"B","DRGd",4)=""
^DD(80.82,"B","DRGe",5)=""
^DD(80.82,"B","DRGf",6)=""
^DD(80.82,"B","MAJOR DIAGNOSTIC CATEGORY",.01)=""
^DD(80.82,"GL",0,1,.01)=""
^DD(80.82,"GL","DRG",1,1)=""
^DD(80.82,"GL","DRG",2,2)=""
^DD(80.82,"GL","DRG",3,3)=""
^DD(80.82,"GL","DRG",4,4)=""
^DD(80.82,"GL","DRG",5,5)=""
^DD(80.82,"GL","DRG",6,6)=""
^DD(80.9,0)="FIELD^NL^900^18"
^DD(80.9,0,"IX","B",80.9,.01)=""
^DD(80.9,0,"NM","TEMPORARY DRG FILE")=""
^DD(80.9,0,"VR")="14.0"
^DD(80.9,0,"VRPK")="ICD"
^DD(80.9,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(80.9,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(80.9,.001,21,0)="^^1^1^2940307^"
^DD(80.9,.001,21,1,0)="This is the DRG number"
^DD(80.9,.01,0)="NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(80.9,.01,1,0)="^.1^^0"
^DD(80.9,.01,1,1,0)="80.9^B"
^DD(80.9,.01,1,1,1)="S ^ICDYZ(80.9,""B"",$E(X,1,30),DA)="""""
^DD(80.9,.01,1,1,2)="K ^ICDYZ(80.9,""B"",$E(X,1,30),DA)"
^DD(80.9,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(80.9,.01,21,0)="^^1^1^2940307^"
^DD(80.9,.01,21,1,0)="This is the DRG number with ""DRG"" affixed as a prefix."
^DD(80.9,.01,"DT")="2970403"
^DD(80.9,.06,0)="SURGERY^S^1:YES;^0;6^Q"
^DD(80.9,.06,21,0)="^^1^1^2940307^"
^DD(80.9,.06,21,1,0)="This is a flag set =1 if this is a surgical DRG."
^DD(80.9,1,0)="DESCRIPTION^80.91A^^1;0"
^DD(80.9,1,21,0)="^^1^1^2940307^"
^DD(80.9,1,21,1,0)="This is the description of the DRG"
^DD(80.9,2,0)="WEIGHT^NJ8,3^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(80.9,2,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(80.9,2,21,0)="^^1^1^2940308^^^"
^DD(80.9,2,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG."
^DD(80.9,2,"DT")="2901213"
^DD(80.9,3,0)="LOW TRIM(days)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.9,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.9,3,21,0)="^^1^1^2940307^"
^DD(80.9,3,21,1,0)="Lowest # days of stay for this DRG"
^DD(80.9,4,0)="HIGH TRIM(days)^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.9,4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(80.9,4,21,0)="^^1^1^2940307^"
^DD(80.9,4,21,1,0)="Highest # of days of stay for this DRG"
^DD(80.9,4,"DT")="2901213"
^DD(80.9,5,0)="MDC#^RP80.3'^ICM(^0;5^Q"
^DD(80.9,5,.1)="MAJOR DIAGNOSTIC CATEGORY"
^DD(80.9,5,3)="Enter the MDC name or number this DRG is associated with."
^DD(80.9,5,21,0)="^^1^1^2940308^^"
^DD(80.9,5,21,1,0)="MDC for this DRG."
^DD(80.9,5,"DT")="2840320"
^DD(80.9,7,0)="WEIGHT(nonAffil)^NJ8,2^^0;7^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.9,7,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(80.9,7,21,0)="^^1^1^2940308^^^"
^DD(80.9,7,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG."
^DD(80.9,7,"DT")="2851212"
^DD(80.9,7.5,0)="WEIGHT(IntAffil)^NJ8,2^^0;11^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.9,7.5,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(80.9,7.5,21,0)="^^1^1^2940308^^^^"
^DD(80.9,7.5,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG."
^DD(80.9,7.5,"DT")="2851212"
^DD(80.9,8,0)="*MUMPS CODE^FX^^MC;E1,250^K:$L(X)>250!($L(X)<1) X D ^DIM"
^DD(80.9,8,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(80.9,8,8.5)="@"
^DD(80.9,8,9)="@"
^DD(80.9,8,"DT")="2920312"
^DD(80.9,10,0)="AVG LENGTH OF STAY(days)^NJ8,2^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.9,10,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(80.9,10,21,0)="^^1^1^2940307^"
^DD(80.9,10,21,1,0)="Average Length of Stay for this DRG"
^DD(80.9,10,"DT")="2840327"
^DD(80.9,11,0)="LOCAL LOW TRIM(Days)^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.9,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.9,11,21,0)="^^1^1^2940307^"
^DD(80.9,11,21,1,0)="Low # days of stay for this (local) facility"
^DD(80.9,11,"DT")="2840310"
^DD(80.9,12,0)="LOCAL HIGH TRIM(Days)^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.9,12,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(80.9,12,21,0)="^^1^1^2940307^"
^DD(80.9,12,21,1,0)="High # days of stay for this (local) facility"
^DD(80.9,12,"DT")="2901213"
^DD(80.9,13,0)="LOCAL BREAKEVEN^NJ5,1^^0;12^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""2N.N) X"
^DD(80.9,13,3)="Type a Number between 0 and 366, 1 Decimal Digit"
^DD(80.9,13,21,0)="^^2^2^2940308^^"
^DD(80.9,13,21,1,0)="The day on which the actual cost of care equals the estimated allocation"
^DD(80.9,13,21,2,0)="for the assigned medical center."
^DD(80.9,13,"DT")="2880315"
^DD(80.9,20,0)="FISCAL YEAR WEIGHTS&TRIMS^80.92^^FY;0"
^DD(80.9,20,21,0)="^^1^1^2940307^"
^DD(80.9,20,21,1,0)="Weight and Trims by fiscal year"
^DD(80.9,30,0)="BREAKEVEN FISCAL YEAR/QUARTER^80.93^^BE;0"
^DD(80.9,30,21,0)="^^1^1^2940308^"
^DD(80.9,30,21,1,0)="This field contains the breakeven FY quarter."
^DD(80.9,900,0)="REFERENCE^F^^MC1;1^K:$L(X)>30!($L(X)<3) X"
^DD(80.9,900,3)="Answer must be 3-30 characters in length."
^DD(80.9,900,21,0)="^^1^1^2940308^"
^DD(80.9,900,21,1,0)="This field contains the name of the routine that contains the grouper logic for this field."
^DD(80.9,900,"DT")="2920316"
^DD(80.9,"B","*MUMPS CODE",8)=""
^DD(80.9,"B","AVG LENGTH OF STAY(days)",10)=""
^DD(80.9,"B","BREAKEVEN FISCAL YEAR/QUARTER",30)=""
^DD(80.9,"B","DESCRIPTION",1)=""
^DD(80.9,"B","FISCAL YEAR WEIGHTS&TRIMS",20)=""
^DD(80.9,"B","HIGH TRIM(days)",4)=""
^DD(80.9,"B","LOCAL BREAKEVEN",13)=""
^DD(80.9,"B","LOCAL HIGH TRIM(Days)",12)=""
^DD(80.9,"B","LOCAL LOW TRIM(Days)",11)=""
^DD(80.9,"B","LOW TRIM(days)",3)=""
^DD(80.9,"B","MAJOR DIAGNOSTIC CATEGORY",5)="1"
^DD(80.9,"B","MDC#",5)=""
^DD(80.9,"B","NAME",.01)=""
^DD(80.9,"B","NUMBER",.001)=""
^DD(80.9,"B","REFERENCE",900)=""
^DD(80.9,"B","SURGERY",.06)=""
^DD(80.9,"B","WEIGHT",2)=""
^DD(80.9,"B","WEIGHT(IntAffil)",7.5)=""
^DD(80.9,"B","WEIGHT(nonAffil)",7)=""
^DD(80.9,"GL",0,1,.01)=""
^DD(80.9,"GL",0,2,2)=""
^DD(80.9,"GL",0,3,3)=""
^DD(80.9,"GL",0,4,4)=""
^DD(80.9,"GL",0,5,5)=""
^DD(80.9,"GL",0,6,.06)=""
^DD(80.9,"GL",0,7,7)=""
^DD(80.9,"GL",0,8,10)=""
^DD(80.9,"GL",0,9,11)=""
^DD(80.9,"GL",0,10,12)=""
^DD(80.9,"GL",0,11,7.5)=""
^DD(80.9,"GL",0,12,13)=""
^DD(80.9,"GL",1,0,1)=""
^DD(80.9,"GL","BE",0,30)=""
^DD(80.9,"GL","FY",0,20)=""
^DD(80.9,"GL","MC","E1,250",8)=""
^DD(80.9,"GL","MC1",1,900)=""
^DD(80.9,"IX",.01)=""
^DD(80.9,"RQ",.01)=""
^DD(80.9,"RQ",5)=""
^DD(80.9,"SB",80.91,1)=""
^DD(80.9,"SB",80.92,20)=""
^DD(80.9,"SB",80.93,30)=""
^DD(80.91,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(80.91,0,"NM","DESCRIPTION")=""
^DD(80.91,0,"UP")="80.9"
^DD(80.91,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(80.91,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(80.91,"B","DESCRIPTION",.01)=""
^DD(80.91,"GL",0,1,.01)=""
^DD(80.92,0)="FISCAL YEAR WEIGHTS&TRIMS SUB-FIELD^NL^7^9"
^DD(80.92,0,"NM","FISCAL YEAR WEIGHTS&TRIMS")=""
^DD(80.92,0,"UP")="80.9"
^DD(80.92,.01,0)="FISCAL YEAR WEIGHTS&TRIMS^MNJ2,0X^^0;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(80.92,.01,3)="Enter the fiscal year for data (ex: '84' for fiscal year 1984)"
^DD(80.92,.01,21,0)="^^1^1^2940308^^"
^DD(80.92,.01,21,1,0)="This field contains the weights and trims by FY."
^DD(80.92,.01,"DT")="2840320"
^DD(80.92,2,0)="WEIGHT^NJ9,3^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(80.92,2,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(80.92,2,21,0)="^^1^1^2940308^^"
^DD(80.92,2,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY."
^DD(80.92,2,"DT")="2901213"
^DD(80.92,2.5,0)="WEIGHT(nonAffil)^NJ7,2^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.92,2.5,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(80.92,2.5,21,0)="^^1^1^2940308^^"
^DD(80.92,2.5,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY."
^DD(80.92,2.5,"DT")="2851211"
^DD(80.92,2.6,0)="WEIGHT(IntAfill)^NJ8,2^^0;10^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.92,2.6,3)="TYPE A NUMBER BETWEEN 0 AND 10000"
^DD(80.92,2.6,21,0)="^^1^1^2940308^^"
^DD(80.92,2.6,21,1,0)="This field contains the weighted work unit (WWU) value assigned to the DRG for a given FY."
^DD(80.92,2.6,"DT")="2851211"
^DD(80.92,3,0)="LOW TRIM(days)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.92,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.92,3,21,0)="^^1^1^2940308^"
^DD(80.92,3,21,1,0)="This field contains the low trim days for a given FY."
^DD(80.92,3,"DT")="2840310"
^DD(80.92,4,0)="HIGH TRIM(days)^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.92,4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(80.92,4,21,0)="^^1^1^2940308^"
^DD(80.92,4,21,1,0)="This field contains the high trim days for a given FY."
^DD(80.92,4,"DT")="2901213"
^DD(80.92,4.5,0)="AVG LENGTH OF STAY(days)^NJ9,2^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(80.92,4.5,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(80.92,4.5,21,0)="^^1^1^2940308^"
^DD(80.92,4.5,21,1,0)="This field contains the average length of stay for a given FY."
^DD(80.92,4.5,"DT")="2840320"
^DD(80.92,6,0)="LOCAL LOW TRIM(days)^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.92,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(80.92,6,21,0)="^^1^1^2940308^"
^DD(80.92,6,21,1,0)="This field contains the local low trim days for a given FY."
^DD(80.92,6,"DT")="2840310"
^DD(80.92,7,0)="LOCAL HIGH TRIM(days)^NJ3,0^^0;7^K:+X'=X!(X>400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(80.92,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 400"
^DD(80.92,7,21,0)="^^1^1^2940308^"
^DD(80.92,7,21,1,0)=" This field contains the local high trim days for a given FY"
^DD(80.92,7,"DT")="2840320"
^DD(80.92,"B","AVG LENGTH OF STAY(days)",4.5)=""
^DD(80.92,"B","FISCAL YEAR WEIGHTS&TRIMS",.01)=""
^DD(80.92,"B","HIGH TRIM(days)",4)=""
^DD(80.92,"B","LOCAL HIGH TRIM(days)",7)=""
^DD(80.92,"B","LOCAL LOW TRIM(days)",6)=""
^DD(80.92,"B","LOW TRIM(days)",3)=""
^DD(80.92,"B","WEIGHT",2)=""
^DD(80.92,"B","WEIGHT(IntAfill)",2.6)=""
^DD(80.92,"B","WEIGHT(nonAffil)",2.5)=""
^DD(80.92,"GL",0,1,.01)=""
^DD(80.92,"GL",0,2,2)=""
^DD(80.92,"GL",0,3,3)=""
^DD(80.92,"GL",0,4,4)=""
^DD(80.92,"GL",0,6,6)=""
^DD(80.92,"GL",0,7,7)=""
^DD(80.92,"GL",0,8,2.5)=""
^DD(80.92,"GL",0,9,4.5)=""
^DD(80.92,"GL",0,10,2.6)=""
^DD(80.93,0)="BREAKEVEN FISCAL YEAR/QUARTER SUB-FIELD^^2^3"
^DD(80.93,0,"NM","BREAKEVEN FISCAL YEAR/QUARTER")=""
^DD(80.93,0,"UP")="80.9"
^DD(80.93,.01,0)="BREAKEVEN FISCAL YEAR/QUARTER^NJ3,0X^^0;1^K:+X'=X!(X>994)!(X<801)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(80.93,.01,3)="Enter fiscal year/quarter as 861 for fiscal year 86, first quarter"
^DD(80.93,.01,21,0)="^^1^1^2940308^"
^DD(80.93,.01,21,1,0)="This field contains the breakeven FY quarter."
^DD(80.93,.01,"DT")="2880429"
^DD(80.93,1,0)="SERVICE^80.94SA^^S;0"
^DD(80.93,1,21,0)="^^1^1^2940308^"
^DD(80.93,1,21,1,0)="This field contains the service for which this breakeven applies."
^DD(80.93,2,0)="MEDICAL CENTER BREAKEVEN^RNJ5,1^^0;2^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""2N.N) X"
^DD(80.93,2,3)="Type a Number between 0 and 366, 1 Decimal Digit allowed"
^DD(80.93,2,21,0)="^^1^1^2940308^"
^DD(80.93,2,21,1,0)="This field contains the breakeven days for the Medical Center."
^DD(80.93,2,"DT")="2870805"
^DD(80.93,"B","BREAKEVEN FISCAL YEAR/QUARTER",.01)=""
^DD(80.93,"B","MEDICAL CENTER BREAKEVEN",2)=""
^DD(80.93,"B","SERVICE",1)=""
^DD(80.93,"GL",0,1,.01)=""
^DD(80.93,"GL",0,2,2)=""
^DD(80.93,"GL","S",0,1)=""
^DD(80.93,"RQ",2)=""
^DD(80.93,"SB",80.94,1)=""
^DD(80.94,0)="SERVICE SUB-FIELD^^1^2"
^DD(80.94,0,"NM","SERVICE")=""
^DD(80.94,0,"UP")="80.93"
^DD(80.94,.01,0)="SERVICE^SX^1:MEDICINE;2:NEUROLOGY;3:PSYCHIATRY;4:REHAB MEDICINE;5:SURGERY;^0;1^I $D(X) S DINUM=X"
^DD(80.94,.01,3)="Enter the service for the breakeven factor"
^DD(80.94,.01,21,0)="^^1^1^2940308^"
^DD(80.94,.01,21,1,0)="This field contains the service for which this breakeven applies."
^DD(80.94,.01,"DT")="2870313"
^DD(80.94,1,0)="BREAK EVEN DAYS^RNJ5,1^^0;2^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""2N.N) X"
^DD(80.94,1,3)="Type a Number between 0 and 366, 1 Decimal Digit allowed"
^DD(80.94,1,21,0)="^^1^1^2940308^^"
^DD(80.94,1,21,1,0)="This field contains the Breakeven days for the given service."
^DD(80.94,1,"DT")="2870805"
^DD(80.94,"B","BREAK EVEN DAYS",1)=""
^DD(80.94,"B","SERVICE",.01)=""
^DD(80.94,"GL",0,1,.01)=""
^DD(80.94,"GL",0,2,1)=""
^DD(80.94,"RQ",1)=""
^DD(81,0)="FIELD^^62^14"
^DD(81,0,"DDA")="N"
^DD(81,0,"DT")="3040311"
^DD(81,0,"ID",2)="D EN^DDIOL((""  ""_$$IDCPS^ICPTID(+Y)),"""",""?0"") D:$D(SRSITE) ^SROCPT"
^DD(81,0,"ID",5)="D EN^DDIOL((""   ""_$$IDCP^ICPTID(+Y,5)),"""",""?0"")"
^DD(81,0,"IX","ACT1",81,.01)=""
^DD(81,0,"IX","ACT2",81.02,.01)=""
^DD(81,0,"IX","ACT3",81.02,.02)=""
^DD(81,0,"IX","ADS",81.062,.01)=""
^DD(81,0,"IX","AST",81.061,.01)=""
^DD(81,0,"IX","B",81,.01)=""
^DD(81,0,"IX","BA",81,.01)=""
^DD(81,0,"IX","C",81.01,.01)=""
^DD(81,0,"IX","D",81,3)=""
^DD(81,0,"IX","E",81,.01)=""
^DD(81,0,"IX","F",81,.01)=""
^DD(81,0,"NM","CPT")=""
^DD(81,0,"PT",27.17,3)=""
^DD(81,0,"PT",46,.01)=""
^DD(81,0,"PT",60,506)=""
^DD(81,0,"PT",60,507)=""
^DD(81,0,"PT",60.196,.01)=""
^DD(81,0,"PT",64.018,.01)=""
^DD(81,0,"PT",64.811718,.01)=""
^DD(81,0,"PT",66.5,.01)=""
^DD(81,0,"PT",71,9)=""
^DD(81,0,"PT",130,27)=""
^DD(81,0,"PT",130.16,3)=""
^DD(81,0,"PT",131.251,.01)=""
^DD(81,0,"PT",136,.02)=""
^DD(81,0,"PT",136.03,.01)=""
^DD(81,0,"PT",137,.01)=""
^DD(81,0,"PT",142.14,.01)=""
^DD(81,0,"PT",162.03,.01)=""
^DD(81,0,"PT",350.4,.02)=""
^DD(81,0,"PT",350.41,.01)=""
^DD(81,0,"PT",350.71,.06)=""
^DD(81,0,"PT",350.9,1.3)=""
^DD(81,0,"PT",351.613,.01)=""
^DD(81,0,"PT",357.69,.01)=""
^DD(81,0,"PT",363.2,.01)=""
^DD(81,0,"PT",363.33,.03)=""
^DD(81,0,"PT",363.33,.04)=""
^DD(81,0,"PT",373,3.03)=""
^DD(81,0,"PT",375,3.03)=""
^DD(81,0,"PT",399,51)=""
^DD(81,0,"PT",399,52)=""
^DD(81,0,"PT",399,53)=""
^DD(81,0,"PT",399,57)=""
^DD(81,0,"PT",399,58)=""
^DD(81,0,"PT",399,59)=""
^DD(81,0,"PT",399,304)=""
^DD(81,0,"PT",399.0304,.01)=""
^DD(81,0,"PT",399.042,.06)=""
^DD(81,0,"PT",409.51,21)=""
^DD(81,0,"PT",409.51,22)=""
^DD(81,0,"PT",409.51,23)=""
^DD(81,0,"PT",409.51,24)=""
^DD(81,0,"PT",409.51,25)=""
^DD(81,0,"PT",445.781,.01)=""
^DD(81,0,"PT",446.1,130.01)=""
^DD(81,0,"PT",632.032,.01)=""
^DD(81,0,"PT",660,4.1)=""
^DD(81,0,"PT",661.1,2)=""
^DD(81,0,"PT",690.5,.01)=""
^DD(81,0,"PT",694.801,.01)=""
^DD(81,0,"PT",697.21,.01)=""
^DD(81,0,"PT",720,5)=""
^DD(81,0,"PT",720.2,52.1)=""
^DD(81,0,"PT",720.3,52.1)=""
^DD(81,0,"PT",721,8)=""
^DD(81,0,"PT",721,19)=""
^DD(81,0,"PT",725,4)=""
^DD(81,0,"PT",790.2,.08)=""
^DD(81,0,"PT",801.41,15)=""
^DD(81,0,"PT",801.41,18)=""
^DD(81,0,"PT",801.4118,.01)=""
^DD(81,0,"PT",811.1,.01)=""
^DD(81,0,"PT",811.1,.02)=""
^DD(81,0,"PT",811.23104,.01)=""
^DD(81,0,"PT",811.371,.01)=""
^DD(81,0,"PT",811.381,.01)=""
^DD(81,0,"PT",2006.67,.01)=""
^DD(81,0,"PT",509850.4,.01)=""
^DD(81,0,"PT",9000010.18,.01)=""
^DD(81,0,"VR")="6.0"
^DD(81,0,"VRPK")="ICPT"
^DD(81,0,"VRRV")="41^3080401"
^DD(81,.01,0)="CPT CODE^RFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1A4N!(X?5N)!(X?4N1A))!(X'?.ANP) X"
^DD(81,.01,1,0)="^.1"
^DD(81,.01,1,1,0)="81^B"
^DD(81,.01,1,1,1)="S ^ICPT(""B"",$E(X,1,30),DA)="""""
^DD(81,.01,1,1,2)="K ^ICPT(""B"",$E(X,1,30),DA)"
^DD(81,.01,1,2,0)="81^E^MUMPS"
^DD(81,.01,1,2,1)="I +X,+X<10000 S ^ICPT(""E"",+X,DA)="""""
^DD(81,.01,1,2,2)="I +X,+X<10000 K ^ICPT(""E"",+X,DA)"
^DD(81,.01,1,3,0)="81^F^MUMPS"
^DD(81,.01,1,3,1)="I 'X S ^ICPT(""F"",$E(X,1,30),DA)="""""
^DD(81,.01,1,3,2)="I 'X K ^ICPT(""F"",$E(X,1,30),DA)"
^DD(81,.01,1,4,0)="81^BA^MUMPS"
^DD(81,.01,1,4,1)="S ^ICPT(""BA"",X_"" "",DA)="""""
^DD(81,.01,1,4,2)="K ^ICPT(""BA"",X_"" "",DA)"
^DD(81,.01,1,4,"DT")="2940217"
^DD(81,.01,1,5,0)="81^ACT1^MUMPS"
^DD(81,.01,1,5,1)="D SAHC^ICPTIDX"
^DD(81,.01,1,5,2)="D KAHC^ICPTIDX"
^DD(81,.01,1,5,"%D",0)="^.101^1^1^3030305^^^^"
^DD(81,.01,1,5,"%D",1,0)="Set and Kill Activation History."
^DD(81,.01,1,5,"DT")="3030221"
^DD(81,.01,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(81,.01,21,0)="^.001^6^6^3030325^^^^"
^DD(81,.01,21,1,0)="This file contains both CPT from the AMA and HCFA. The AMA entries"
^DD(81,.01,21,2,0)="will have an internal number less than 99999. The AMA CPT are '5'"
^DD(81,.01,21,3,0)="numbers that coorespond to the internal number. The HCFA codes will"
^DD(81,.01,21,4,0)="have an internal number of 100000 or greater. These codes are '1'"
^DD(81,.01,21,5,0)="alpha followed by '4' numbers, which will NOT correspond to the"
^DD(81,.01,21,6,0)="internal number."
^DD(81,.01,"DT")="3030221"
^DD(81,.01,"LAYGO",1,0)="I 1"
^DD(81,2,0)="SHORT NAME^FX^^0;2^K:($A(X)=45) X I $D(X) K:$L(X)>28!($L(X)<1) X"
^DD(81,2,1,0)="^.1^^0"
^DD(81,2,3)="ANSWER MUST BE 1-28 CHARACTERS IN LENGTH"
^DD(81,2,21,0)="^^2^2^2920214^^"
^DD(81,2,21,1,0)="This field contains a short description of the CPT code. It must be "
^DD(81,2,21,2,0)="between 1 and 28 characters."
^DD(81,2,"DT")="2901020"
^DD(81,3,0)="CPT CATEGORY^*P81.1'^DIC(81.1,^0;3^S DIC(""S"")=""I $P(^(0),U,2)=""""s"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(81,3,1,0)="^.1"
^DD(81,3,1,1,0)="81^D"
^DD(81,3,1,1,1)="S ^ICPT(""D"",$E(X,1,30),DA)="""""
^DD(81,3,1,1,2)="K ^ICPT(""D"",$E(X,1,30),DA)"
^DD(81,3,12)="Allow only 'sub-categories'."
^DD(81,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""s"""""""
^DD(81,3,21,0)="^^2^2^2920214^"
^DD(81,3,21,1,0)="This field contains the CPT Category associated with CPT Code.   It"
^DD(81,3,21,2,0)="is a pointer to the CPT Category File."
^DD(81,3,"DT")="2880819"
^DD(81,5,0)="INACTIVE FLAG^S^1:INACTIVE CODE;^0;4^Q"
^DD(81,5,3)="Enter if code is no longer used."
^DD(81,5,21,0)="^^3^3^2981231^^^"
^DD(81,5,21,1,0)="This field is used to inactivate a CPT code. If this field contains a"
^DD(81,5,21,2,0)="'1' then the code is inactive. During the annual update of the CPT file "
^DD(81,5,21,3,0)="no entries are deleted; they are inactivated by setting this flag."
^DD(81,6,0)="SOURCE^S^C:CPT;H:HCPCS;L:LOCAL;^0;6^Q"
^DD(81,6,21,0)="^^1^1^2980421^^^"
^DD(81,6,21,1,0)="Contains the source of the code - CPT, HCPCS or Local."
^DD(81,6,"DT")="2970310"
^DD(81,7,0)="INACTIVE DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(81,7,3)="Enter date the CPT Code is deactivated."
^DD(81,7,21,0)="^.001^1^1^3030220^^"
^DD(81,7,21,1,0)="Date the CPT code becomes/became inactivated."
^DD(81,7,"DT")="3030220"
^DD(81,8,0)="ACTIVE DATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(81,8,3)="Enter date the CPT Code is activated."
^DD(81,8,21,0)="^^1^1^3030220^"
^DD(81,8,21,1,0)="Date the CPT code becomes/became activated."
^DD(81,8,"DT")="3030220"
^DD(81,10.01,0)="AGE(LOW)^NJ2,0^^10;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(81,10.01,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(81,10.01,21,0)="^^2^2^3030110^"
^DD(81,10.01,21,1,0)="Code reasonable for age within Age(low) and Age(high) values.  Blank, "
^DD(81,10.01,21,2,0)="otherwise."
^DD(81,10.01,"DT")="3030110"
^DD(81,10.02,0)="AGE(HIGH)^NJ2,0^^10;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(81,10.02,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(81,10.02,21,0)="^^2^2^3030110^"
^DD(81,10.02,21,1,0)="Code reasonable for age within Age(low) and Age(high) values.  Blank,"
^DD(81,10.02,21,2,0)="otherwise."
^DD(81,10.02,"DT")="3030110"
^DD(81,10.03,0)="SEX^S^M:MALE;F:FEMALE;^10;3^Q"
^DD(81,10.03,21,0)="^.001^1^1^3030110^^"
^DD(81,10.03,21,1,0)="Code acceptable if: F = Female; M = Male. Blank otherwise."
^DD(81,10.03,"DT")="3030110"
^DD(81,50,0)="DESCRIPTION^81.01A^^D;0"
^DD(81,50,21,0)="^^1^1^2920214^"
^DD(81,50,21,1,0)="This multiple contains the descriptions for various CPT codes."
^DD(81,60,0)="EFFECTIVE DATE^81.02DA^^60;0"
^DD(81,61,0)="SHORT NAME (VERSIONED)^81.061D^^61;0"
^DD(81,61,21,0)="^^2^2^3040311^"
^DD(81,61,21,1,0)="This is a history of the Procedures (short text) to include the date the"
^DD(81,61,21,2,0)="text was first used along with the text."
^DD(81,62,0)="DESCRIPTION (VERSIONED)^81.062D^^62;0"
^DD(81,62,21,0)="^^2^2^3040311^"
^DD(81,62,21,1,0)="This is a history of the descriptive text to include the date the "
^DD(81,62,21,2,0)="text was first used and the text used."
^DD(81,"B","ACTIVE DATE",8)=""
^DD(81,"B","AGE(HIGH)",10.02)=""
^DD(81,"B","AGE(LOW)",10.01)=""
^DD(81,"B","CPT CATEGORY",3)=""
^DD(81,"B","CPT CODE",.01)=""
^DD(81,"B","DESCRIPTION",50)=""
^DD(81,"B","DESCRIPTION (VERSIONED)",62)=""
^DD(81,"B","EFFECTIVE DATE",60)=""
^DD(81,"B","INACTIVE DATE",7)=""
^DD(81,"B","INACTIVE FLAG",5)=""
^DD(81,"B","SEX",10.03)=""
^DD(81,"B","SHORT NAME",2)=""
^DD(81,"B","SHORT NAME (VERSIONED)",61)=""
^DD(81,"B","SOURCE",6)=""
^DD(81,"GL",0,1,.01)=""
^DD(81,"GL",0,2,2)=""
^DD(81,"GL",0,3,3)=""
^DD(81,"GL",0,4,5)=""
^DD(81,"GL",0,6,6)=""
^DD(81,"GL",0,7,7)=""
^DD(81,"GL",0,8,8)=""
^DD(81,"GL",10,1,10.01)=""
^DD(81,"GL",10,2,10.02)=""
^DD(81,"GL",10,3,10.03)=""
^DD(81,"GL",60,0,60)=""
^DD(81,"GL",61,0,61)=""
^DD(81,"GL",62,0,62)=""
^DD(81,"GL","D",0,50)=""
^DD(81,"IX",.01)=""
^DD(81,"IX",3)=""
^DD(81,"RQ",.01)=""
^DD(81,"SB",81.01,50)=""
^DD(81,"SB",81.02,60)=""
^DD(81,"SB",81.061,61)=""
^DD(81,"SB",81.062,62)=""
^DD(81.01,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(81.01,0,"IX","B",81.01,.01)=""
^DD(81.01,0,"NM","DESCRIPTION")=""
^DD(81.01,0,"UP")="81"
^DD(81.01,.01,0)="DESCRIPTION^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X"
^DD(81.01,.01,1,0)="^.1"
^DD(81.01,.01,1,1,0)="81.01^B"
^DD(81.01,.01,1,1,1)="S ^ICPT(DA(1),""D"",""B"",$E(X,1,30),DA)="""""
^DD(81.01,.01,1,1,2)="K ^ICPT(DA(1),""D"",""B"",$E(X,1,30),DA)"
^DD(81.01,.01,1,2,0)="81^C^MUMPS"
^DD(81.01,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890""""""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(81.01,.01,9.9)'[I S ^ICPT(""C"",I,DA(1),DA)="""""
^DD(81.01,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890""""""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ICPT(""C"",I,DA(1),DA)"
^DD(81.01,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(81.01,.01,9.9)=";^AND^THE^THEN^FOR^FROM^OTHER^THAN^WITH^THEIR^SOME^THIS^INCLUDING^ALL^OTHERWISE^SPECIFIED^ANY^NOT^ONLY^EACH^MORE^ONE^TWO^LESS^PROCEDURES^WITHOUT^TYPE^AREA^EXCEPT^INVOLVING^SAME^PER^DAYS^BUT^ALA^III^EXCEPT^NUMBERS^UNLESS^"
^DD(81.01,.01,21,0)="^^1^1^2920214^^"
^DD(81.01,.01,21,1,0)="This field contains the full description of the CPT code."
^DD(81.01,.01,"DT")="2880823"
^DD(81.01,"B","DESCRIPTION",.01)=""
^DD(81.01,"GL",0,1,.01)=""
^DD(81.01,"IX",.01)=""
^DD(81.02,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(81.02,0,"DT")="3030221"
^DD(81.02,0,"IX","B",81.02,.01)=""
^DD(81.02,0,"NM","EFFECTIVE DATE")=""
^DD(81.02,0,"UP")="81"
^DD(81.02,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(81.02,.01,1,0)="^.1"
^DD(81.02,.01,1,1,0)="81.02^B"
^DD(81.02,.01,1,1,1)="S ^ICPT(DA(1),60,""B"",$E(X,1,30),DA)="""""
^DD(81.02,.01,1,1,2)="K ^ICPT(DA(1),60,""B"",$E(X,1,30),DA)"
^DD(81.02,.01,1,2,0)="81^ACT2^MUMPS"
^DD(81.02,.01,1,2,1)="D SAHD^ICPTIDX"
^DD(81.02,.01,1,2,2)="D KAHD^ICPTIDX"
^DD(81.02,.01,1,2,"%D",0)="^.101^1^1^3030305^^^"
^DD(81.02,.01,1,2,"%D",1,0)="Set and Kill Activation History."
^DD(81.02,.01,1,2,"DT")="3030221"
^DD(81.02,.01,21,0)="^.001^1^1^3030221^^"
^DD(81.02,.01,21,1,0)="Date from which current status is effective."
^DD(81.02,.01,"DT")="3030221"
^DD(81.02,.02,0)="STATUS^RS^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(81.02,.02,1,0)="^.1"
^DD(81.02,.02,1,1,0)="81^ACT3^MUMPS"
^DD(81.02,.02,1,1,1)="D SAHS^ICPTIDX"
^DD(81.02,.02,1,1,2)="D KAHS^ICPTIDX"
^DD(81.02,.02,1,1,"%D",0)="^.101^1^1^3030305^^^"
^DD(81.02,.02,1,1,"%D",1,0)="Set and Kill Activation History."
^DD(81.02,.02,1,1,"DT")="3030221"
^DD(81.02,.02,"DT")="3030221"
^DD(81.02,"B","EFFECTIVE DATE",.01)=""
^DD(81.02,"B","STATUS",.02)=""
^DD(81.02,"GL",0,1,.01)=""
^DD(81.02,"GL",0,2,.02)=""
^DD(81.02,"IX",.01)=""
^DD(81.02,"IX",.02)=""
^DD(81.02,"RQ",.01)=""
^DD(81.02,"RQ",.02)=""
^DD(81.061,0)="SHORT NAME (VERSIONED) SUB-FIELD^^1^2"
^DD(81.061,0,"DT")="3040311"
^DD(81.061,0,"IX","B",81.061,.01)=""
^DD(81.061,0,"NM","SHORT NAME (VERSIONED)")=""
^DD(81.061,0,"UP")="81"
^DD(81.061,.01,0)="VERSION DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2790101>X X"
^DD(81.061,.01,1,0)="^.1"
^DD(81.061,.01,1,1,0)="81.061^B"
^DD(81.061,.01,1,1,1)="S ^ICPT(DA(1),61,""B"",$E(X,1,30),DA)="""""
^DD(81.061,.01,1,1,2)="K ^ICPT(DA(1),61,""B"",$E(X,1,30),DA)"
^DD(81.061,.01,1,1,"%D",0)="^^5^5^3040311^"
^DD(81.061,.01,1,1,"%D",1,0)="^ICPT(IEN1,61,""B"",EFF,IEN2) - Where IEN1 is the internal entry "
^DD(81.061,.01,1,1,"%D",2,0)="number in the CPT-4 Procedure file #81, EFF is the effective date "
^DD(81.061,.01,1,1,"%D",3,0)="for the procedure (short text), and IEN2 is the internal entry "
^DD(81.061,.01,1,1,"%D",4,0)="number in the SHORT NAME (VERSIONED) multiple where the versioned "
^DD(81.061,.01,1,1,"%D",5,0)="short text is stored."
^DD(81.061,.01,1,2,0)="81^AST^MUMPS"
^DD(81.061,.01,1,2,1)="S:$L($P($G(^ICPT(DA(1),0)),""^"",1)) ^ICPT(""AST"",($P($G(^ICPT(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(81.061,.01,1,2,2)="K:$L($P($G(^ICPT(DA(1),0)),""^"",1)) ^ICPT(""AST"",($P($G(^ICPT(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(81.061,.01,1,2,"%D",0)="^^5^5^3040311^"
^DD(81.061,.01,1,2,"%D",1,0)="^ICPT(""AST"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the CPT-4 Procedure "
^DD(81.061,.01,1,2,"%D",2,0)="Code, EFF is the effective date for the procedure text (short text), IEN1 "
^DD(81.061,.01,1,2,"%D",3,0)="is the internal entry number in the CPT-4 Procedure file (#81) and IEN2 "
^DD(81.061,.01,1,2,"%D",4,0)="is the internal entry number in the SHORT NAME (VERSIONED) multiple where "
^DD(81.061,.01,1,2,"%D",5,0)="the versioned short text is stored."
^DD(81.061,.01,1,2,"DT")="3040311"
^DD(81.061,.01,3)="TYPE A DATE NOT EARLIER THAN JAN 01, 1979"
^DD(81.061,.01,21,0)="^^1^1^3040311^"
^DD(81.061,.01,21,1,0)="This is the date the procedure text was first used."
^DD(81.061,.01,"DT")="3040319"
^DD(81.061,1,0)="SHORT NAME (VERSIONED)^F^^0;2^K:$L(X)>28!($L(X)<1) X"
^DD(81.061,1,3)="Answer must be 1-28 characters in length"
^DD(81.061,1,21,0)="^^1^1^3040311^"
^DD(81.061,1,21,1,0)="This is the procedure that was used beginning on the 'effective date.'"
^DD(81.061,1,"DT")="3040319"
^DD(81.061,"B","SHORT NAME (VERSIONED)",1)=""
^DD(81.061,"B","VERSION DATE",.01)=""
^DD(81.061,"GL",0,1,.01)=""
^DD(81.061,"GL",0,2,1)=""
^DD(81.061,"IX",.01)=""
^DD(81.062,0)="DESCRIPTION (VERSIONED) SUB-FIELD^^1^2"
^DD(81.062,0,"DT")="3040311"
^DD(81.062,0,"IX","B",81.062,.01)=""
^DD(81.062,0,"NM","DESCRIPTION (VERSIONED)")=""
^DD(81.062,0,"UP")="81"
^DD(81.062,.01,0)="VERSION DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2790101>X X"
^DD(81.062,.01,1,0)="^.1"
^DD(81.062,.01,1,1,0)="81.062^B"
^DD(81.062,.01,1,1,1)="S ^ICPT(DA(1),62,""B"",$E(X,1,30),DA)="""""
^DD(81.062,.01,1,1,2)="K ^ICPT(DA(1),62,""B"",$E(X,1,30),DA)"
^DD(81.062,.01,1,1,"%D",0)="^^5^5^3040311^"
^DD(81.062,.01,1,1,"%D",1,0)="^ICPT(IEN1,62,""B"",EFF,IEN2) - Where IEN1 is the internal entry number in "
^DD(81.062,.01,1,1,"%D",2,0)="the CPT-4 Procedure file #81, EFF is the effective date for the "
^DD(81.062,.01,1,1,"%D",3,0)="description (long text), and IEN2 is the internal entry number in the  "
^DD(81.062,.01,1,1,"%D",4,0)="DESCRIPTION (VERSIONED) multiple where the versioned procedure "
^DD(81.062,.01,1,1,"%D",5,0)="description is stored."
^DD(81.062,.01,1,2,0)="81^ADS^MUMPS"
^DD(81.062,.01,1,2,1)="S:$L($P($G(^ICPT(DA(1),0)),""^"",1)) ^ICPT(""ADS"",($P($G(^ICPT(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(81.062,.01,1,2,2)="K:$L($P($G(^ICPT(DA(1),0)),""^"",1)) ^ICPT(""ADS"",($P($G(^ICPT(DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(81.062,.01,1,2,"%D",0)="^^5^5^3040311^"
^DD(81.062,.01,1,2,"%D",1,0)="^ICPT(""ADS"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the CPT-4 Procedure "
^DD(81.062,.01,1,2,"%D",2,0)="Code, EFF is the effective date for the description (long text), IEN1 is "
^DD(81.062,.01,1,2,"%D",3,0)="the internal entry number in the CPT-4 Procedure file (#81) and IEN2 is "
^DD(81.062,.01,1,2,"%D",4,0)="the internal entry number in the DESCRIPTION (VERSIONED) multiple where "
^DD(81.062,.01,1,2,"%D",5,0)="the versioned long text is stored.  "
^DD(81.062,.01,1,2,"DT")="3040311"
^DD(81.062,.01,3)="TYPE A DATE NOT EARLIER THAN JAN 01, 1979"
^DD(81.062,.01,21,0)="^^1^1^3040311^"
^DD(81.062,.01,21,1,0)="This is the date the description was first used."
^DD(81.062,.01,"DT")="3040319"
^DD(81.062,1,0)="DESCRIPTION (VERSIONED)^81.621^^1;0"
^DD(81.062,1,21,0)="^^1^1^3040311^"
^DD(81.062,1,21,1,0)="This is the long description (multiple line). "
^DD(81.062,1,"DT")="3040319"
^DD(81.062,"B","DESCRIPTION (VERSIONED)",1)=""
^DD(81.062,"B","VERSION DATE",.01)=""
^DD(81.062,"GL",0,1,.01)=""
^DD(81.062,"GL",1,0,1)=""
^DD(81.062,"IX",.01)=""
^DD(81.062,"SB",81.621,1)=""
^DD(81.1,0)="FIELD^^100^7"
^DD(81.1,0,"DDA")="N"
^DD(81.1,0,"DT")="3050119"
^DD(81.1,0,"IX","B",81.1,.01)=""
^DD(81.1,0,"IX","C",81.1,3)=""
^DD(81.1,0,"IX","M",81.1,5)=""
^DD(81.1,0,"IX","R",81.1,5)=""
^DD(81.1,0,"IX","R2",81.1,4)=""
^DD(81.1,0,"NM","CPT CATEGORY")=""
^DD(81.1,0,"PT",81,3)=""
^DD(81.1,0,"PT",81.1,3)=""
^DD(81.1,0,"VR")="6.0"
^DD(81.1,0,"VRPK")="ICPT"
^DD(81.1,0,"VRRV")="41^3080401"
^DD(81.1,.01,0)="CATEGORY NAME^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X"
^DD(81.1,.01,1,0)="^.1"
^DD(81.1,.01,1,1,0)="81.1^B"
^DD(81.1,.01,1,1,1)="S ^DIC(81.1,""B"",$E(X,1,63),DA)="""""
^DD(81.1,.01,1,1,2)="K ^DIC(81.1,""B"",$E(X,1,63),DA)"
^DD(81.1,.01,3)="ANSWER MUST BE 3-80 CHARACTERS IN LENGTH"
^DD(81.1,.01,21,0)="^^2^2^2930611^^"
^DD(81.1,.01,21,1,0)="This field contains the category name associated with specified CPT"
^DD(81.1,.01,21,2,0)="Code."
^DD(81.1,2,0)="TYPE OF CATEGORY^S^m:MAJOR CATEGORY;s:SUB-CATEGORY;^0;2^Q"
^DD(81.1,2,21,0)="^^4^4^2920214^^"
^DD(81.1,2,21,1,0)="This field contains the type of category associated with specified CPT"
^DD(81.1,2,21,2,0)="code."
^DD(81.1,2,21,3,0)="It is a set of codes where 'm' - Major Category"
^DD(81.1,2,21,4,0)="                           's' - Sub-Category"
^DD(81.1,3,0)="MAJOR CATEGORY^*P81.1'^DIC(81.1,^0;3^S DIC(""S"")=""I $P(^(0),U,2)=""""m"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(81.1,3,1,0)="^.1"
^DD(81.1,3,1,1,0)="81.1^C"
^DD(81.1,3,1,1,1)="S ^DIC(81.1,""C"",$E(X,1,30),DA)="""""
^DD(81.1,3,1,1,2)="K ^DIC(81.1,""C"",$E(X,1,30),DA)"
^DD(81.1,3,12)="Allow only 'major' categories."
^DD(81.1,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""m"""""""
^DD(81.1,3,21,0)="^^2^2^2920214^^"
^DD(81.1,3,21,1,0)="This field contains the Major Category associated with specified CPT"
^DD(81.1,3,21,2,0)="Code.  It is a pointer to the CPT Category File."
^DD(81.1,3,"DT")="2880919"
^DD(81.1,4,0)="BEGIN CPT RANGE^F^^0;4^K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X"
^DD(81.1,4,1,0)="^.1"
^DD(81.1,4,1,1,0)="81.1^R2^MUMPS"
^DD(81.1,4,1,1,1)="I $P($G(^DIC(81.1,DA,0)),U,5)]"""" D CBSET^ICPTCR(DA,X)"
^DD(81.1,4,1,1,2)="I $P($G(^DIC(81.1,DA,0)),U,5)]"""" D CBKIL^ICPTCR(DA,X)"
^DD(81.1,4,1,1,"%D",0)="^^2^2^2970312^^^"
^DD(81.1,4,1,1,"%D",1,0)="This updates the cross reference on the begin/end ranges for a category"
^DD(81.1,4,1,1,"%D",2,0)="The cross reference looks like:  ^DIC(81.1,<""R"" or ""M"">,<begin cpt range>,DA)"
^DD(81.1,4,1,1,"DT")="2970312"
^DD(81.1,4,3)="Answer must be 5 characters in length"
^DD(81.1,4,21,0)="^^1^1^2970311^^"
^DD(81.1,4,21,1,0)="Lowest CPT/HCPCS code to which this category applies."
^DD(81.1,4,"DT")="3050119"
^DD(81.1,5,0)="END CPT RANGE^F^^0;5^K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X"
^DD(81.1,5,1,0)="^.1"
^DD(81.1,5,1,1,0)="81.1^M^MUMPS"
^DD(81.1,5,1,1,1)="I $P(^DIC(81.1,DA,0),U,2)=""m"" D CSET^ICPTCR(DA,X,""M"")"
^DD(81.1,5,1,1,2)="I $P(^DIC(81.1,DA,0),U,2)=""m"" D CKIL^ICPTCR(DA,""M"")"
^DD(81.1,5,1,1,"%D",0)="^^7^7^2970311^^"
^DD(81.1,5,1,1,"%D",1,0)="This cross reference is for major categories."
^DD(81.1,5,1,1,"%D",2,0)="The format is:"
^DD(81.1,5,1,1,"%D",3,0)=" "
^DD(81.1,5,1,1,"%D",4,0)="^DIC(81.1,""M"",<begin cpt range>,DA) = <end cpt range>"
^DD(81.1,5,1,1,"%D",5,0)=" "
^DD(81.1,5,1,1,"%D",6,0)="where the ranges have been converted to numeric formats, using"
^DD(81.1,5,1,1,"%D",7,0)="$A if HCPCS codes."
^DD(81.1,5,1,1,"DT")="2970311"
^DD(81.1,5,1,2,0)="81.1^R^MUMPS"
^DD(81.1,5,1,2,1)="I $P(^DIC(81.1,DA,0),U,2)'=""m"" D CSET^ICPTCR(DA,X,""R"")"
^DD(81.1,5,1,2,2)="I $P(^DIC(81.1,DA,0),U,2)'=""m"" D CKIL^ICPTCR(DA,""R"")"
^DD(81.1,5,1,2,"%D",0)="^^4^4^2970311^"
^DD(81.1,5,1,2,"%D",1,0)="This cross reference is for other than major categories."
^DD(81.1,5,1,2,"%D",2,0)="The format is: ^DIC(81.1,""R"",<begin cpt range>,DA) = <end cpt range>"
^DD(81.1,5,1,2,"%D",3,0)="where the ranges have been converted to numeric formats, using"
^DD(81.1,5,1,2,"%D",4,0)="$A if HCPCS codes."
^DD(81.1,5,1,2,"DT")="2970311"
^DD(81.1,5,3)="Answer must be 5 characters in length"
^DD(81.1,5,21,0)="^^1^1^2970311^^"
^DD(81.1,5,21,1,0)="Highest CPT/HCPCS code to which this category applies."
^DD(81.1,5,"DT")="3050119"
^DD(81.1,6,0)="SOURCE^S^C:CPT;H:HCPCS;^0;6^Q"
^DD(81.1,6,21,0)="^^1^1^2970310^"
^DD(81.1,6,21,1,0)="Category defined by CPT or HCPCS."
^DD(81.1,6,"DT")="2970310"
^DD(81.1,100,0)="DESCRIPTION^81.11^^D;0"
^DD(81.1,100,21,0)="^^1^1^2920214^"
^DD(81.1,100,21,1,0)="This field contains the full description of the  CPT Category chosen."
^DD(81.1,"B","BEGIN CPT RANGE",4)=""
^DD(81.1,"B","CATEGORY NAME",.01)=""
^DD(81.1,"B","DESCRIPTION",100)=""
^DD(81.1,"B","END CPT RANGE",5)=""
^DD(81.1,"B","MAJOR CATEGORY",3)=""
^DD(81.1,"B","SOURCE",6)=""
^DD(81.1,"B","TYPE OF CATEGORY",2)=""
^DD(81.1,"GL",0,1,.01)=""
^DD(81.1,"GL",0,2,2)=""
^DD(81.1,"GL",0,3,3)=""
^DD(81.1,"GL",0,4,4)=""
^DD(81.1,"GL",0,5,5)=""
^DD(81.1,"GL",0,6,6)=""
^DD(81.1,"GL","D",0,100)=""
^DD(81.1,"IX",.01)=""
^DD(81.1,"IX",3)=""
^DD(81.1,"IX",4)=""
^DD(81.1,"IX",5)=""
^DD(81.1,"RQ",.01)=""
^DD(81.1,"SB",81.11,100)=""
^DD(81.11,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(81.11,0,"NM","DESCRIPTION")=""
^DD(81.11,0,"UP")="81.1"
^DD(81.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(81.11,"B","DESCRIPTION",.01)=""
^DD(81.11,"GL",0,1,.01)=""
^DD(81.2,0)="FIELD^^1^3"
^DD(81.2,0,"DT")="2970310"
^DD(81.2,0,"IX","B",81.2,.01)=""
^DD(81.2,0,"NM","CPT COPYRIGHT")=""
^DD(81.2,0,"VR")="6.0"
^DD(81.2,0,"VRPK")="ICPT"
^DD(81.2,0,"VRRV")="41^3080401"
^DD(81.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(81.2,.01,1,0)="^.1"
^DD(81.2,.01,1,1,0)="81.2^B"
^DD(81.2,.01,1,1,1)="S ^DIC(81.2,""B"",$E(X,1,30),DA)="""""
^DD(81.2,.01,1,1,2)="K ^DIC(81.2,""B"",$E(X,1,30),DA)"
^DD(81.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(81.2,.01,21,0)="^^2^2^2920214^^"
^DD(81.2,.01,21,1,0)="This field contains the name of the copyright notice. Currently there is"
^DD(81.2,.01,21,2,0)="only one entry for the CPT copyright."
^DD(81.2,.02,0)="DISTRIBUTION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(81.2,.02,21,0)="^^1^1^2970310^"
^DD(81.2,.02,21,1,0)="Distribution of current codes."
^DD(81.2,.02,"DT")="2970310"
^DD(81.2,1,0)="SIGNON COPYRIGHT MESSAGE^81.21^^1;0"
^DD(81.2,1,21,0)="^^2^2^2920214^^"
^DD(81.2,1,21,1,0)="This field contains the CPT copyright notice as it was agreed to by "
^DD(81.2,1,21,2,0)="the AMA and the VA."
^DD(81.2,"B","DISTRIBUTION DATE",.02)=""
^DD(81.2,"B","NAME",.01)=""
^DD(81.2,"B","SIGNON COPYRIGHT MESSAGE",1)=""
^DD(81.2,"GL",0,1,.01)=""
^DD(81.2,"GL",0,2,.02)=""
^DD(81.2,"GL",1,0,1)=""
^DD(81.2,"IX",.01)=""
^DD(81.2,"RQ",.01)=""
^DD(81.2,"SB",81.21,1)=""
^DD(81.21,0)="SIGNON COPYRIGHT MESSAGE SUB-FIELD^^.01^1"
^DD(81.21,0,"NM","SIGNON COPYRIGHT MESSAGE")=""
^DD(81.21,0,"UP")="81.2"
^DD(81.21,.01,0)="SIGNON COPYRIGHT MESSAGE^WL^^0;1^Q"
^DD(81.21,"B","SIGNON COPYRIGHT MESSAGE",.01)=""
^DD(81.21,"GL",0,1,.01)=""
^DD(81.3,0)="FIELD^^62^12"
^DD(81.3,0,0)="^9000010.181P"
^DD(81.3,0,"DDA")="N"
^DD(81.3,0,"DT")="3040319"
^DD(81.3,0,"ID",.02)="D EN^DDIOL((""  ""_$$IDMDS^ICPTID(+Y)),"""",""?0"")"
^DD(81.3,0,"ID",5)="D EN^DDIOL((""   ""_$$IDMD^ICPTID(+Y,5)),"""",""?0"")"
^DD(81.3,0,"IX","ACT1",81.3,.01)=""
^DD(81.3,0,"IX","ACT2",81.33,.01)=""
^DD(81.3,0,"IX","ACT3",81.33,.02)=""
^DD(81.3,0,"IX","ASD",81.362,.01)=""
^DD(81.3,0,"IX","AST",81.361,.01)=""
^DD(81.3,0,"IX","B",81.3,.01)=""
^DD(81.3,0,"IX","BA",81.3,.01)=""
^DD(81.3,0,"IX","C",81.3,.02)=""
^DD(81.3,0,"IX","D",81.3,.03)=""
^DD(81.3,0,"IX","M",81.32,.01)=""
^DD(81.3,0,"IX","MR",81.32,.02)=""
^DD(81.3,0,"NM","CPT MODIFIER")=""
^DD(81.3,0,"PT",46,.02)=""
^DD(81.3,0,"PT",46,.03)=""
^DD(81.3,0,"PT",70.3135,.01)=""
^DD(81.3,0,"PT",71.0135,.01)=""
^DD(81.3,0,"PT",79.1135,.01)=""
^DD(81.3,0,"PT",130.028,.01)=""
^DD(81.3,0,"PT",130.164,.01)=""
^DD(81.3,0,"PT",136.01,.01)=""
^DD(81.3,0,"PT",136.31,.01)=""
^DD(81.3,0,"PT",162.06,.01)=""
^DD(81.3,0,"PT",363.2,.07)=""
^DD(81.3,0,"PT",399.0304,14)=""
^DD(81.3,0,"PT",399.30416,.02)=""
^DD(81.3,0,"PT",632.321,.01)=""
^DD(81.3,0,"PT",721.036,.01)=""
^DD(81.3,0,"PT",509850.5,.01)=""
^DD(81.3,0,"PT",9000010.181,.01)=""
^DD(81.3,0,"VR")="6.0"
^DD(81.3,0,"VRPK")="ICPT"
^DD(81.3,0,"VRRV")="41^3080401"
^DD(81.3,.01,0)="MODIFIER^RF^^0;1^K:$L(X)>5!($L(X)<2)!'(X'?1P.E) X"
^DD(81.3,.01,1,0)="^.1"
^DD(81.3,.01,1,1,0)="81.3^B"
^DD(81.3,.01,1,1,1)="S ^DIC(81.3,""B"",$E(X,1,30),DA)="""""
^DD(81.3,.01,1,1,2)="K ^DIC(81.3,""B"",$E(X,1,30),DA)"
^DD(81.3,.01,1,1,"%D",0)="^^1^1^2970327^^"
^DD(81.3,.01,1,1,"%D",1,0)="This cross-reference allows look-up by modifier."
^DD(81.3,.01,1,2,0)="81.3^BA^MUMPS"
^DD(81.3,.01,1,2,1)="S ^DIC(81.3,""BA"",X_"" "",DA)="""""
^DD(81.3,.01,1,2,2)="K ^DIC(81.3,""BA"",X_"" "",DA)"
^DD(81.3,.01,1,2,"DT")="3030307"
^DD(81.3,.01,1,3,0)="81.3^ACT1^MUMPS"
^DD(81.3,.01,1,3,1)="D SAHC^ICPTMIDX"
^DD(81.3,.01,1,3,2)="D KAHC^ICPTMIDX"
^DD(81.3,.01,1,3,"%D",0)="^^1^1^3030307^"
^DD(81.3,.01,1,3,"%D",1,0)="Set and Kill Activation History."
^DD(81.3,.01,1,3,"DT")="3030307"
^DD(81.3,.01,3)="Answer must be 2-5 characters in length."
^DD(81.3,.01,21,0)="^^1^1^2990908^^^"
^DD(81.3,.01,21,1,0)="This field contains the modifier."
^DD(81.3,.01,"DT")="3030307"
^DD(81.3,.01,"LAYGO",1,0)="I 1"
^DD(81.3,.02,0)="NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(81.3,.02,1,0)="^.1"
^DD(81.3,.02,1,1,0)="81.3^C"
^DD(81.3,.02,1,1,1)="S ^DIC(81.3,""C"",$E(X,1,30),DA)="""""
^DD(81.3,.02,1,1,2)="K ^DIC(81.3,""C"",$E(X,1,30),DA)"
^DD(81.3,.02,1,1,"%D",0)="^^1^1^2940405^"
^DD(81.3,.02,1,1,"%D",1,0)="This cross-reference allows look-up by name."
^DD(81.3,.02,1,1,"DT")="2940405"
^DD(81.3,.02,3)="Answer must be 1-60 characters in length."
^DD(81.3,.02,21,0)="^^1^1^2940405^"
^DD(81.3,.02,21,1,0)="This field contains a brief description of the modifier."
^DD(81.3,.02,"DT")="2940405"
^DD(81.3,.03,0)="CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5) X"
^DD(81.3,.03,1,0)="^.1"
^DD(81.3,.03,1,1,0)="81.3^D"
^DD(81.3,.03,1,1,1)="S ^DIC(81.3,""D"",$E(X,1,30),DA)="""""
^DD(81.3,.03,1,1,2)="K ^DIC(81.3,""D"",$E(X,1,30),DA)"
^DD(81.3,.03,1,1,"%D",0)="^^1^1^2940405^"
^DD(81.3,.03,1,1,"%D",1,0)="This cross-reference allows look-up by code."
^DD(81.3,.03,1,1,"DT")="2940405"
^DD(81.3,.03,3)="Answer must be 5 characters in length."
^DD(81.3,.03,21,0)="^^1^1^2990908^^"
^DD(81.3,.03,21,1,0)="This field contains the modifier code."
^DD(81.3,.03,"DT")="2940405"
^DD(81.3,.04,0)="SOURCE^S^C:CPT;H:HCPCS;V:VA NATIONAL;^0;4^Q"
^DD(81.3,.04,3)=""
^DD(81.3,.04,21,0)="^^3^3^2970310^^"
^DD(81.3,.04,21,1,0)="This field contains the modifier source.  For example, the source could be"
^DD(81.3,.04,21,2,0)="either American Medical Association (AMA) or Health Care Financing"
^DD(81.3,.04,21,3,0)="Administration (HCFA)."
^DD(81.3,.04,"DT")="2970310"
^DD(81.3,5,0)="INACTIVE FLAG^S^1:INACTIVE;^0;5^Q"
^DD(81.3,5,21,0)="^^1^1^2970312^^"
^DD(81.3,5,21,1,0)="This is 1 if the modifier is currently inactive."
^DD(81.3,5,"DT")="2970310"
^DD(81.3,7,0)="INACTIVE DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(81.3,7,3)="Enter date the CPT Modifier became deactivated."
^DD(81.3,7,21,0)="^^1^1^3030227^"
^DD(81.3,7,21,1,0)="Date the CPT Modifier becomes/became inactivated."
^DD(81.3,7,"DT")="3030227"
^DD(81.3,8,0)="ACTIVE DATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(81.3,8,3)="Enter date the CPT Modifier is activated."
^DD(81.3,8,21,0)="^^1^1^3030227^"
^DD(81.3,8,21,1,0)="Date the CPT Modifier becomes/became activated."
^DD(81.3,8,"DT")="3030227"
^DD(81.3,10,0)="RANGE^81.32A^^10;0"
^DD(81.3,50,0)="DESCRIPTION^81.31^^D;0"
^DD(81.3,50,21,0)="^^1^1^2940405^"
^DD(81.3,50,21,1,0)="This field contains a detailed description of the modifier."
^DD(81.3,60,0)="EFFECTIVE DATE^81.33DA^^60;0"
^DD(81.3,61,0)="NAME (VERSIONED)^81.361D^^61;0"
^DD(81.3,61,21,0)="^^2^2^3040311^"
^DD(81.3,61,21,1,0)="This is a history of the CPT Modifiers (short text) to include the date"
^DD(81.3,61,21,2,0)="the text was first used along with the text."
^DD(81.3,62,0)="DESCRIPTION (VERSIONED)^81.362D^^62;0"
^DD(81.3,62,21,0)="^^2^2^3040311^"
^DD(81.3,62,21,1,0)="This is a history of the CPT Modifiers descriptions (long text) to "
^DD(81.3,62,21,2,0)="include the date the text was first used along with the text.  "
^DD(81.3,"B","ACTIVE DATE",8)=""
^DD(81.3,"B","CODE",.03)=""
^DD(81.3,"B","DESCRIPTION",50)=""
^DD(81.3,"B","DESCRIPTION (VERSIONED)",62)=""
^DD(81.3,"B","EFFECTIVE DATE",60)=""
^DD(81.3,"B","INACTIVE DATE",7)=""
^DD(81.3,"B","INACTIVE FLAG",5)=""
^DD(81.3,"B","MODIFIER",.01)=""
^DD(81.3,"B","NAME",.02)=""
^DD(81.3,"B","NAME (VERSIONED)",61)=""
^DD(81.3,"B","RANGE",10)=""
^DD(81.3,"B","SOURCE",.04)=""
^DD(81.3,"GL",0,1,.01)=""
^DD(81.3,"GL",0,2,.02)=""
^DD(81.3,"GL",0,3,.03)=""
^DD(81.3,"GL",0,4,.04)=""
^DD(81.3,"GL",0,5,5)=""
^DD(81.3,"GL",0,7,7)=""
^DD(81.3,"GL",0,8,8)=""
^DD(81.3,"GL",10,0,10)=""
^DD(81.3,"GL",60,0,60)=""
^DD(81.3,"GL",61,0,61)=""
^DD(81.3,"GL",62,0,62)=""
^DD(81.3,"GL","D",0,50)=""
^DD(81.3,"IX",.01)=""
^DD(81.3,"IX",.02)=""
^DD(81.3,"IX",.03)=""
^DD(81.3,"RQ",.01)=""
^DD(81.3,"RQ",.02)=""
^DD(81.3,"SB",81.31,50)=""
^DD(81.3,"SB",81.32,10)=""
^DD(81.3,"SB",81.33,60)=""
^DD(81.3,"SB",81.361,61)=""
^DD(81.3,"SB",81.362,62)=""
^DD(81.31,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(81.31,0,"DT")="2940331"
^DD(81.31,0,"NM","DESCRIPTION")=""
^DD(81.31,0,"UP")="81.3"
^DD(81.31,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(81.31,.01,"DT")="2940331"
^DD(81.31,"B","DESCRIPTION",.01)=""
^DD(81.31,"GL",0,1,.01)=""
^DD(81.32,0)="RANGE SUB-FIELD^^.04^4"
^DD(81.32,0,"DT")="3001227"
^DD(81.32,0,"IX","B",81.32,.01)=""
^DD(81.32,0,"IX","M",81.32,.02)=""
^DD(81.32,0,"IX","M2",81.32,.01)=""
^DD(81.32,0,"NM","RANGE")=""
^DD(81.32,0,"UP")="81.3"
^DD(81.32,.01,0)="BEGIN CPT RANGE^MRFX^^0;1^K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X"
^DD(81.32,.01,1,0)="^.1"
^DD(81.32,.01,1,1,0)="81.32^B"
^DD(81.32,.01,1,1,1)="S ^DIC(81.3,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(81.32,.01,1,1,2)="K ^DIC(81.3,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(81.32,.01,1,2,0)="81.32^M2^MUMPS"
^DD(81.32,.01,1,2,1)="I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"""" D MBSET^ICPTCR(.DA,X)"
^DD(81.32,.01,1,2,2)="I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"""" D MBKIL^ICPTCR(.DA,X)"
^DD(81.32,.01,1,2,"%D",0)="^^1^1^2970312^"
^DD(81.32,.01,1,2,"%D",1,0)="Same as x-ref on END CPT RANGE, but updated if BEGIN RANGE changed."
^DD(81.32,.01,1,2,"DT")="2970312"
^DD(81.32,.01,1,3,0)="81.3^M^MUMPS"
^DD(81.32,.01,1,3,1)="I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"""" D MBSET^ICPTCR(.DA,X,1)"
^DD(81.32,.01,1,3,2)="I $P($G(^DIC(81.3,DA(1),10,DA,0)),U,2)]"""" D MBKIL^ICPTCR(.DA,X,1)"
^DD(81.32,.01,1,3,"%D",0)="^^4^4^2970327^"
^DD(81.32,.01,1,3,"%D",1,0)="Whole file cross reference by range."
^DD(81.32,.01,1,3,"%D",2,0)="^DIC(81.3,<begin range>,<end range>,<mod ien>)=mult. record #"
^DD(81.32,.01,1,3,"%D",3,0)=" "
^DD(81.32,.01,1,3,"%D",4,0)="HCPCS code ranges converted to numeric using $A."
^DD(81.32,.01,1,3,"DT")="2970327"
^DD(81.32,.01,3)="Answer must be 5 characters in length."
^DD(81.32,.01,21,0)="^^1^1^2970312^^^^"
^DD(81.32,.01,21,1,0)="First code for which this modifier is applicable."
^DD(81.32,.01,"DT")="3020124"
^DD(81.32,.02,0)="END CPT RANGE^RFX^^0;2^K:$L(X)>5!($L(X)<5)!'(X?5N!(X?1U4N)!(X?4N1U)) X"
^DD(81.32,.02,1,0)="^.1"
^DD(81.32,.02,1,1,0)="81.32^M^MUMPS"
^DD(81.32,.02,1,1,1)="D MSET^ICPTCR(.DA,X)"
^DD(81.32,.02,1,1,2)="D MKIL^ICPTCR(.DA,X)"
^DD(81.32,.02,1,1,"%D",0)="^^5^5^2970310^^^"
^DD(81.32,.02,1,1,"%D",1,0)="The cross reference format is:"
^DD(81.32,.02,1,1,"%D",2,0)="^DIC(81.3,DA(1),""M"",<begin cpt range>) = <end cpt range>"
^DD(81.32,.02,1,1,"%D",3,0)=" "
^DD(81.32,.02,1,1,"%D",4,0)="The cpt ranges have been converted to numeric formats, using $A, if HCPCS"
^DD(81.32,.02,1,1,"%D",5,0)="codes."
^DD(81.32,.02,1,1,"DT")="2970310"
^DD(81.32,.02,1,2,0)="81.3^MR^MUMPS"
^DD(81.32,.02,1,2,1)="D MSET^ICPTCR(.DA,X,1)"
^DD(81.32,.02,1,2,2)="D MKIL^ICPTCR(.DA,X,1)"
^DD(81.32,.02,1,2,"%D",0)="^^1^1^2970327^"
^DD(81.32,.02,1,2,"%D",1,0)="See description of M cross reference on BEGIN RANGE"
^DD(81.32,.02,1,2,"DT")="2970327"
^DD(81.32,.02,3)="Answer must be 5 characters in length."
^DD(81.32,.02,"DT")="3020124"
^DD(81.32,.03,0)="ACTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:2990101>X X"
^DD(81.32,.03,3)="Enter the date this range is considered active"
^DD(81.32,.03,"DT")="3001227"
^DD(81.32,.04,0)="INACTIVE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(81.32,.04,3)="Enter the date this range becomes inactive"
^DD(81.32,.04,"DT")="3001227"
^DD(81.32,"B","ACTIVE DATE",.03)=""
^DD(81.32,"B","BEGIN CPT RANGE",.01)=""
^DD(81.32,"B","END CPT RANGE",.02)=""
^DD(81.32,"B","INACTIVE DATE",.04)=""
^DD(81.32,"GL",0,1,.01)=""
^DD(81.32,"GL",0,2,.02)=""
^DD(81.32,"GL",0,3,.03)=""
^DD(81.32,"GL",0,4,.04)=""
^DD(81.32,"IX",.01)=""
^DD(81.32,"IX",.02)=""
^DD(81.32,"RQ",.01)=""
^DD(81.32,"RQ",.02)=""
^DD(81.33,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(81.33,0,"DT")="2970310"
^DD(81.33,0,"IX","B",81.33,.01)=""
^DD(81.33,0,"NM","EFFECTIVE DATE")=""
^DD(81.33,0,"UP")="81.3"
^DD(81.33,.01,0)="EFFECTIVE DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(81.33,.01,1,0)="^.1"
^DD(81.33,.01,1,1,0)="81.33^B"
^DD(81.33,.01,1,1,1)="S ^DIC(81.3,DA(1),60,""B"",$E(X,1,30),DA)="""""
^DD(81.33,.01,1,1,2)="K ^DIC(81.3,DA(1),60,""B"",$E(X,1,30),DA)"
^DD(81.33,.01,1,2,0)="81.3^ACT2^MUMPS"
^DD(81.33,.01,1,2,1)="D SAHD^ICPTMIDX"
^DD(81.33,.01,1,2,2)="D KAHD^ICPTMIDX"
^DD(81.33,.01,1,2,"%D",0)="^^1^1^3030307^"
^DD(81.33,.01,1,2,"%D",1,0)="Set and Kill Activation History."
^DD(81.33,.01,1,2,"DT")="3030307"
^DD(81.33,.01,"DT")="3030307"
^DD(81.33,.02,0)="STATUS^S^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(81.33,.02,1,0)="^.1"
^DD(81.33,.02,1,1,0)="81.3^ACT3^MUMPS"
^DD(81.33,.02,1,1,1)="D SAHS^ICPTMIDX"
^DD(81.33,.02,1,1,2)="D KAHS^ICPTMIDX"
^DD(81.33,.02,1,1,"%D",0)="^^1^1^3030307^"
^DD(81.33,.02,1,1,"%D",1,0)="Set and Kill Activation History."
^DD(81.33,.02,1,1,"DT")="3030307"
^DD(81.33,.02,"DT")="3030307"
^DD(81.33,"B","EFFECTIVE DATE",.01)=""
^DD(81.33,"B","STATUS",.02)=""
^DD(81.33,"GL",0,1,.01)=""
^DD(81.33,"GL",0,2,.02)=""
^DD(81.33,"IX",.01)=""
^DD(81.33,"IX",.02)=""
^DD(81.361,0)="NAME (VERSIONED) SUB-FIELD^^1^2"
^DD(81.361,0,"DT")="3040311"
^DD(81.361,0,"IX","B",81.361,.01)=""
^DD(81.361,0,"NM","NAME (VERSIONED)")=""
^DD(81.361,0,"UP")="81.3"
^DD(81.361,.01,0)="VERSION DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2790101>X X"
^DD(81.361,.01,1,0)="^.1"
^DD(81.361,.01,1,1,0)="81.361^B"
^DD(81.361,.01,1,1,1)="S ^DIC(81.3,DA(1),61,""B"",$E(X,1,30),DA)="""""
^DD(81.361,.01,1,1,2)="K ^DIC(81.3,DA(1),61,""B"",$E(X,1,30),DA)"
^DD(81.361,.01,1,1,"%D",0)="^^4^4^3040311^"
^DD(81.361,.01,1,1,"%D",1,0)="^DIC(81.3,IEN1,61,""B"",EFF,IEN2) - Where IEN1 is the internal entry number"
^DD(81.361,.01,1,1,"%D",2,0)="in the CPT-4 Modifier file #81.3, EFF is the effective date for the"
^DD(81.361,.01,1,1,"%D",3,0)="modifier name (short text), and IEN2 is the internal entry number in the"
^DD(81.361,.01,1,1,"%D",4,0)="NAME (VERSIONED) multiple where the versioned short text is stored."
^DD(81.361,.01,1,2,0)="81.3^AST^MUMPS"
^DD(81.361,.01,1,2,1)="S:$L($P($G(^DIC(81.3,DA(1),0)),""^"",1)) ^DIC(81.3,""AST"",($P($G(^DIC(81.3,DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(81.361,.01,1,2,2)="K:$L($P($G(^DIC(81.3,DA(1),0)),""^"",1)) ^DIC(81.3,""AST"",($P($G(^DIC(81.3,DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(81.361,.01,1,2,"%D",0)="^^5^5^3040311^"
^DD(81.361,.01,1,2,"%D",1,0)="^DIC(81.3,""AST"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the CPT-4 "
^DD(81.361,.01,1,2,"%D",2,0)="Modifier Code, EFF is the effective date for the modifier text (short "
^DD(81.361,.01,1,2,"%D",3,0)="text), IEN1 is the internal entry number in the CPT-4 Modifier file "
^DD(81.361,.01,1,2,"%D",4,0)="(#81.3) and IEN2 is the internal entry number in the SHORT NAME "
^DD(81.361,.01,1,2,"%D",5,0)="(VERSIONED) multiple where the versioned short text is stored.  "
^DD(81.361,.01,1,2,"DT")="3040311"
^DD(81.361,.01,3)="TYPE A DATE NOT EARLIER THAN JAN 01, 1979"
^DD(81.361,.01,21,0)="^^1^1^3040311^"
^DD(81.361,.01,21,1,0)="This is the date the modifier text was first used."
^DD(81.361,.01,"DT")="3040319"
^DD(81.361,1,0)="NAME (VERSIONED)^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(81.361,1,3)="Answer must be 1-60 characters in length"
^DD(81.361,1,21,0)="^^1^1^3040311^"
^DD(81.361,1,21,1,0)="This is the modifier that was used beginning on the 'effective date.'"
^DD(81.361,1,"DT")="3040319"
^DD(81.361,"B","NAME (VERSIONED)",1)=""
^DD(81.361,"B","VERSION DATE",.01)=""
^DD(81.361,"GL",0,1,.01)=""
^DD(81.361,"GL",0,2,1)=""
^DD(81.361,"IX",.01)=""
^DD(81.362,0)="DESCRIPTION (VERSIONED) SUB-FIELD^^1^2"
^DD(81.362,0,"DT")="3040319"
^DD(81.362,0,"IX","B",81.362,.01)=""
^DD(81.362,0,"NM","DESCRIPTION (VERSIONED)")=""
^DD(81.362,0,"UP")="81.3"
^DD(81.362,.01,0)="VERSION DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2790101>X X"
^DD(81.362,.01,1,0)="^.1"
^DD(81.362,.01,1,1,0)="81.362^B"
^DD(81.362,.01,1,1,1)="S ^DIC(81.3,DA(1),62,""B"",$E(X,1,30),DA)="""""
^DD(81.362,.01,1,1,2)="K ^DIC(81.3,DA(1),62,""B"",$E(X,1,30),DA)"
^DD(81.362,.01,1,1,"%D",0)="^^5^5^3040311^"
^DD(81.362,.01,1,1,"%D",1,0)="^DIC(81.3,IEN1,62,""B"",EFF,IEN2) - Where IEN1 is the internal entry number "
^DD(81.362,.01,1,1,"%D",2,0)="in the CPT-4 Modifier file #81.3, EFF is the effective date for the "
^DD(81.362,.01,1,1,"%D",3,0)="description (long text), and IEN2 is the internal entry number in the "
^DD(81.362,.01,1,1,"%D",4,0)="DESCRIPTION (VERSIONED) multiple where the versioned procedure "
^DD(81.362,.01,1,1,"%D",5,0)="description is stored.  "
^DD(81.362,.01,1,2,0)="81.3^ASD^MUMPS"
^DD(81.362,.01,1,2,1)="S:$L($P($G(^DIC(81.3,DA(1),0)),""^"",1)) ^DIC(81.3,""ADS"",($P($G(^DIC(81.3,DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)="""""
^DD(81.362,.01,1,2,2)="K:$L($P($G(^DIC(81.3,DA(1),0)),""^"",1)) ^DIC(81.3,""ADS"",($P($G(^DIC(81.3,DA(1),0)),""^"",1)_"" ""),+X,DA(1),DA)"
^DD(81.362,.01,1,2,"%D",0)="^^5^5^3040311^"
^DD(81.362,.01,1,2,"%D",1,0)="^DIC(81.3,""ADS"",(CODE_"" ""),EFF,IEN1,IEN2) - Where CODE is the CPT-4 "
^DD(81.362,.01,1,2,"%D",2,0)="Procedure Code, EFF is the effective date for the description (long "
^DD(81.362,.01,1,2,"%D",3,0)="text), IEN1 is the internal entry number in the CPT-4 Procedure file "
^DD(81.362,.01,1,2,"%D",4,0)="(#81.3) and IEN2 is the internal entry number in the DESCRIPTION "
^DD(81.362,.01,1,2,"%D",5,0)="(VERSIONED) multiple where the versioned long text is stored.  "
^DD(81.362,.01,1,2,"DT")="3040311"
^DD(81.362,.01,3)="TYPE A DATE NOT EARLIER THAN JAN 01, 1979"
^DD(81.362,.01,21,0)="^^1^1^3040311^"
^DD(81.362,.01,21,1,0)="This is the date the description was first used."
^DD(81.362,.01,"DT")="3040319"
^DD(81.362,1,0)="DESCRIPTION (VERSIONED)^81.372^^1;0"
^DD(81.362,1,"DT")="3040319"
^DD(81.362,"B","DESCRIPTION (VERSIONED)",1)=""
^DD(81.362,"B","VERSION DATE",.01)=""
^DD(81.362,"GL",0,1,.01)=""
^DD(81.362,"GL",1,0,1)=""
^DD(81.362,"IX",.01)=""
^DD(81.362,"SB",81.372,1)=""
^DD(81.372,0)="DESCRIPTION (VERSIONED) SUB-FIELD^^.01^1"
^DD(81.372,0,"DT")="3040319"
^DD(81.372,0,"NM","DESCRIPTION (VERSIONED)")=""
^DD(81.372,0,"UP")="81.362"
^DD(81.372,.01,0)="DESCRIPTION (VERSIONED)^W^^0;1"
^DD(81.372,.01,21,0)="^^1^1^3040311^"
^DD(81.372,.01,21,1,0)="This is the long description (multiple line) of the CPT Modifier."
^DD(81.372,.01,"DT")="3040319"
^DD(81.372,"B","DESCRIPTION (VERSIONED)",.01)=""
^DD(81.372,"GL",0,1,.01)=""
^DD(81.621,0)="DESCRIPTION (VERSIONED) SUB-FIELD^^.01^1"
^DD(81.621,0,"DT")="3040311"
^DD(81.621,0,"IX","B",81.621,.01)=""
^DD(81.621,0,"NM","DESCRIPTION (VERSIONED)")=""
^DD(81.621,0,"UP")="81.062"
^DD(81.621,.01,0)="DESCRIPTION (VERSIONED)^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(81.621,.01,1,0)="^.1"
^DD(81.621,.01,1,1,0)="81.621^B"
^DD(81.621,.01,1,1,1)="S ^ICPT(DA(2),62,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(81.621,.01,1,1,2)="K ^ICPT(DA(2),62,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(81.621,.01,1,1,"%D",0)="^^5^5^3040311^"
^DD(81.621,.01,1,1,"%D",1,0)="^ICPT(IEN3,62,IEN2,1,""B"",TEXT,IEN1) - Where IEN3 is the internal entry "
^DD(81.621,.01,1,1,"%D",2,0)="number to the DRG file #81, IEN2 is the internal entry number of the"
^DD(81.621,.01,1,1,"%D",3,0)="DESCRIPTION (VERSIONED) multiple #81.062, TEXT is a single line of text of"
^DD(81.621,.01,1,1,"%D",4,0)="a multiple lined description, and IEN1 is the internal entry number of the"
^DD(81.621,.01,1,1,"%D",5,0)="DESCRIPTION sub-file #81.621 where the text is stored."
^DD(81.621,.01,3)="Answer must be 1-80 characters in length"
^DD(81.621,.01,21,0)="^^1^1^3040311^"
^DD(81.621,.01,21,1,0)="This is a single line of a multiple line description."
^DD(81.621,.01,"DT")="3040319"
^DD(81.621,"B","DESCRIPTION (VERSIONED)",.01)=""
^DD(81.621,"GL",0,1,.01)=""
^DD(81.621,"IX",.01)=""
^DD(90,0)="FIELD^NL^117^23"
^DD(90,0,"DDA")="N"
^DD(90,0,"DT")="2931207"
^DD(90,0,"IX","B",90,.01)=""
^DD(90,0,"NM","MEDICAL RECORD")=""
^DD(90,0,"PT",627.99,.01)=""
^DD(90,0,"VR")="5.01"
^DD(90,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(90,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(90,.001,21,0)="^^1^1^2850306^^"
^DD(90,.001,21,1,0)="This is the internal file number of the diagnosis."
^DD(90,.001,"DT")="2840406"
^DD(90,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X Q"
^DD(90,.01,1,0)="^.1"
^DD(90,.01,1,1,0)="90^B"
^DD(90,.01,1,1,1)="S ^MR(""B"",$E(X,1,30),DA)="""""
^DD(90,.01,1,1,2)="K ^MR(""B"",$E(X,1,30),DA)"
^DD(90,.01,3)=""
^DD(90,.01,9)="^"
^DD(90,.01,21,0)="^^1^1^2850117^"
^DD(90,.01,21,1,0)="This is the patient's name."
^DD(90,.01,"DT")="2840830"
^DD(90,100,0)="PHY^90.01D^^PE;0"
^DD(90,100,21,0)="^^1^1^2930322^^^^"
^DD(90,100,21,1,0)="This field contains the results of the physical examination."
^DD(90,100,21,2,0)="concerning the patient's overall condition associated with the"
^DD(90,100,21,3,0)="systems identified. "
^DD(90,100,21,4,0)="   "
^DD(90,100,21,5,0)="The user may enter one of three responses:  1) Within NORMAL"
^DD(90,100,21,6,0)="Limits; 2) OMITTED; 3) ABNORMAL.  If ""3"" is entered, the user"
^DD(90,100,21,7,0)="will be asked to describe the abnormality."
^DD(90,100,21,8,0)="    "
^DD(90,101,0)="*PRINCIPAL DSM-III DX DATE^D^^DX1;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(90,101,.1)="PRINCIPAL DSM-III DX DATE"
^DD(90,101,21,0)="^^1^1^2850117^"
^DD(90,101,21,1,0)="This is the date the principal DSM-II diagnosis was entered."
^DD(90,101,"DT")="2840510"
^DD(90,102,0)="*PRINCIPAL DSM-III DIAGNOSIS^RP627'^DIC(627,^DX1;2^Q"
^DD(90,102,.1)="PRINCIPAL DSM-III DIAGNOSIS"
^DD(90,102,1,0)="^.1^^0"
^DD(90,102,3)=""
^DD(90,102,21,0)="^^1^1^2850611^^"
^DD(90,102,21,1,0)="This is the DSM-III code for the diagnosis which is the primary reason for treatment."
^DD(90,102,"DT")="2841011"
^DD(90,102,"V",0)="^.12P^1^1"
^DD(90,102,"V",1,0)="90^ADFL IADF^1^MR(^n^n"
^DD(90,102,"V","B",90,1)=""
^DD(90,102,"V","M","ADFL IADF",1)=""
^DD(90,102,"V","O",1,1)=""
^DD(90,102,"V","P","MR(",1)=""
^DD(90,102.4,0)="*X DSM-III DIAGNOSIS DATE^RD^^DX1;3^S %DT=""EX"" D ^%DT S X=Y K:2990000<X!(2700000>X) X"
^DD(90,102.4,.1)="X DSM-III DIAGNOSIS DATE"
^DD(90,102.4,3)="TYPE A DATE BETWEEN 1970 AND 1999"
^DD(90,102.4,21,0)="^^1^1^2850723^^^"
^DD(90,102.4,21,1,0)="This is the date the DSM-III X diagnosis was entered."
^DD(90,102.4,"DT")="2840224"
^DD(90,102.6,0)="*X DSM-III DIAGNOSIS^RP627'^DIC(627,^DX1;4^Q"
^DD(90,102.6,1,0)="^.1^^0"
^DD(90,102.6,21,0)="^^1^1^2850117^"
^DD(90,102.6,21,1,0)="This is the DSM-III diagnosis accounting for the largest percentage of the length of stay."
^DD(90,102.6,"DT")="2841012"
^DD(90,103,0)="*DSM-III DIAGNOSIS^90.04PA^^DX;0"
^DD(90,103,21,0)="^^1^1^2850723^^"
^DD(90,103,21,1,0)="This is the code of the DSM-III diagnosis."
^DD(90,103,21,2,0)="conform to DSM-III-R criteria.  Mandated June 1987."
^DD(90,104,0)="*AXIS 4^S^1:NONE;2:MINIMAL;3:MILD;4:MODERATE;5:SEVERE;6:EXTREME;7:CATASTROPHIC;0:UNSPECIFIED;^DXM;1^Q"
^DD(90,104,.1)="SEVERITY OF PSYCHOSOCIAL STRESSORS"
^DD(90,104,1,0)="^.1"
^DD(90,104,1,1,0)="^^TRIGGER^90^105"
^DD(90,104,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,""DXM"")):^(""DXM""),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y S X=DT S X=X X ^DD(90,104,1,1,1.4)"
^DD(90,104,1,1,1.4)="S DIH=$S($D(^MR(DIV(0),""DXM"")):^(""DXM""),1:""""),DIV=X S %=$P(DIH,U,3,999),^(""DXM"")=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90,DIG=105 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90,104,1,1,2)="Q"
^DD(90,104,1,1,"CREATE VALUE")="TODAY"
^DD(90,104,1,1,"DELETE VALUE")="NO EFFECT"
^DD(90,104,1,1,"FIELD")="AXIS 4 DATE"
^DD(90,104,1,2,0)="^^TRIGGER^90^106"
^DD(90,104,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,""DXM"")):^(""DXM""),1:"""") S X=$P(Y(1),U,3) S DIU=X K Y S X=DUZ X ^DD(90,104,1,2,1.4)"
^DD(90,104,1,2,1.4)="S DIH=$S($D(^MR(DIV(0),""DXM"")):^(""DXM""),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),^(""DXM"")=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90,DIG=106 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90,104,1,2,2)="Q"
^DD(90,104,1,2,"CREATE VALUE")="S X=DUZ"
^DD(90,104,1,2,"DELETE VALUE")="NO EFFECT"
^DD(90,104,1,2,"FIELD")="AXIS 4 BY"
^DD(90,104,21,0)="^^1^1^2850117^"
^DD(90,104,21,1,0)="This is the rating code for severity of psychosicial stressor."
^DD(90,104,"DT")="2840224"
^DD(90,105,0)="*AXIS 4 DATE^D^^DXM;2^S %DT=""EX"" D ^%DT S X=Y K:2990000<X!(2700000>X) X"
^DD(90,105,.1)="AXIS 4 DATE"
^DD(90,105,3)="TYPE A DATE BETWEEN 1970 AND 1999"
^DD(90,105,5,1,0)="90^104^1"
^DD(90,105,21,0)="^^1^1^2850117^"
^DD(90,105,21,1,0)="This is the date a given psychosocial stressor code is entered."
^DD(90,105,"DT")="2840224"
^DD(90,106,0)="*AXIS 4 BY^P200'^VA(200,^DXM;3^Q"
^DD(90,106,.1)="AXIS 4 BY"
^DD(90,106,3)=""
^DD(90,106,5,1,0)="90^104^2"
^DD(90,106,9)="^"
^DD(90,106,21,0)="^^1^1^2850117^"
^DD(90,106,21,1,0)="This is the name of the user entering a given psychosical stressor code."
^DD(90,106,"DT")="2840425"
^DD(90,107,0)="*AXIS 5^S^1:SUPERIOR;2:VERY GOOD;3:GOOD;4:FAIR;5:POOR;6:VERY POOR;7:GROSSLY IMPAIRED;0:UNSPECIFIED;^DXM;4^Q"
^DD(90,107,.1)="HIGHEST LEVEL OF ADAPTIVE FUNCTIONING PAST YEAR"
^DD(90,107,1,0)="^.1"
^DD(90,107,1,1,0)="^^TRIGGER^90^108"
^DD(90,107,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,""DXM"")):^(""DXM""),1:"""") S X=$P(Y(1),U,5) S DIU=X K Y S X=DT S X=X X ^DD(90,107,1,1,1.4)"
^DD(90,107,1,1,1.4)="S DIH=$S($D(^MR(DIV(0),""DXM"")):^(""DXM""),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),^(""DXM"")=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90,DIG=108 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90,107,1,1,2)="Q"
^DD(90,107,1,1,"CREATE VALUE")="TODAY"
^DD(90,107,1,1,"DELETE VALUE")="NO EFFECT"
^DD(90,107,1,1,"FIELD")="AXIS 5 D"
^DD(90,107,1,2,0)="^^TRIGGER^90^109"
^DD(90,107,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MR(D0,""DXM"")):^(""DXM""),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y S X=DUZ X ^DD(90,107,1,2,1.4)"
^DD(90,107,1,2,1.4)="S DIH=$S($D(^MR(DIV(0),""DXM"")):^(""DXM""),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),^(""DXM"")=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90,DIG=109 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90,107,1,2,2)="Q"
^DD(90,107,1,2,"CREATE VALUE")="S X=DUZ"
^DD(90,107,1,2,"DELETE VALUE")="NO EFFECT"
^DD(90,107,1,2,"FIELD")="AXIS 5 B"
^DD(90,107,21,0)="^^1^1^2850117^^"
^DD(90,107,21,1,0)="This is the rating code for highest level of adaptive functioning past year."
^DD(90,107,"DT")="2840224"
^DD(90,108,0)="*AXIS 5 DATE^D^^DXM;5^S %DT=""EX"" D ^%DT S X=Y K:2990000<X!(2700000>X) X"
^DD(90,108,.1)="AXIS 5 DATE"
^DD(90,108,3)="TYPE A DATE BETWEEN 1970 AND 1999"
^DD(90,108,5,1,0)="90^107^1"
^DD(90,108,21,0)="^^1^1^2850117^"
^DD(90,108,21,1,0)="This is the date a given adaptive functioning code is entered."
^DD(90,108,"DT")="2840224"
^DD(90,109,0)="*AXIS 5 BY^P200'^VA(200,^DXM;6^Q"
^DD(90,109,.1)="AXIS 5 BY"
^DD(90,109,3)=""
^DD(90,109,5,1,0)="90^107^2"
^DD(90,109,9)="^"
^DD(90,109,21,0)="^^1^1^2850611^^"
^DD(90,109,21,1,0)="This is the name of the user entering a given adaptive functioning code."
^DD(90,109,"DT")="2840425"
^DD(90,110,0)="*PAST PRINCIPAL DX^90.06PA^^PDX;0"
^DD(90,110,21,0)="^^1^1^2850117^"
^DD(90,110,21,1,0)="This is the past DSM-III diagnosis that was the primary reason for treatment."
^DD(90,111,0)="*PAST X DIAGNOSIS^90.07PA^^XDX;0"
^DD(90,111,21,0)="^^1^1^2850611^^^"
^DD(90,111,21,1,0)="This is the past DSM-III code which accounted for the largest percentage of the length of stay."
^DD(90,112,0)="*PRINCIPLE ICD9 DX DATE^D^^DX2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(90,112,.1)="PRINCIPLE ICD9 DX DATE"
^DD(90,112,21,0)="^^1^1^2850117^"
^DD(90,112,21,1,0)="This is the date the principal ICD9 diagnosis was entered."
^DD(90,112,"DT")="2841005"
^DD(90,113,0)="*PRINCIPAL ICD9 DIAGNOSIS^RP80'^ICD9(^DX2;2^Q"
^DD(90,113,.1)="PRINCIPAL ICD9 DIAGNOSIS"
^DD(90,113,1,0)="^.1^^0"
^DD(90,113,21,0)="^^1^1^2850117^"
^DD(90,113,21,1,0)="This is the ICD9 code for the diagnosis which is the primary reason for treatment."
^DD(90,113,"DT")="2841012"
^DD(90,113.4,0)="*X ICD9 DIAGNOSIS DATE^D^^DX2;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(90,113.4,.1)="X ICD9 DIAGNOSIS DATE"
^DD(90,113.4,21,0)="^^1^1^2850117^"
^DD(90,113.4,21,1,0)="This is the date the ICD9 X diagnosis was entered."
^DD(90,113.4,"DT")="2841005"
^DD(90,113.6,0)="*X ICD9 DIAGNOSIS^P80'^ICD9(^DX2;4^Q"
^DD(90,113.6,.1)="X ICD9 DIAGNOSIS"
^DD(90,113.6,1,0)="^.1^^0"
^DD(90,113.6,21,0)="^^1^1^2850117^"
^DD(90,113.6,21,1,0)="This is the ICD9 diagnosis accounting for the largest percentage of the length of stay."
^DD(90,113.6,"DT")="2841012"
^DD(90,115,0)="*ICD9 DIAGNOSIS^90.1PA^^PHDX;0"
^DD(90,115,21,0)="^^1^1^2850117^"
^DD(90,115,21,1,0)="This is the code of the ICD9 diagnosis."
^DD(90,116,0)="*PAST PRINCIPAL ICD9 DX^90.16PA^^PPDX;0"
^DD(90,116,21,0)="^^1^1^2850117^"
^DD(90,116,21,1,0)="This is the past ICD9 diagnosis that was the primary reason for treatment."
^DD(90,117,0)="*PAST ICD9 X DIAGNOSIS^90.17PA^^XPDX;0"
^DD(90,117,21,0)="^^1^1^2850117^"
^DD(90,117,21,1,0)="This is the past ICD9 diagnosis code which accounted for the largest percentage of length of stay."
^DD(90,"B","*AXIS 4",104)=""
^DD(90,"B","*AXIS 4 BY",106)=""
^DD(90,"B","*AXIS 4 DATE",105)=""
^DD(90,"B","*AXIS 5",107)=""
^DD(90,"B","*AXIS 5 BY",109)=""
^DD(90,"B","*AXIS 5 DATE",108)=""
^DD(90,"B","*DSM-III DIAGNOSIS",103)=""
^DD(90,"B","*ICD9 DIAGNOSIS",115)=""
^DD(90,"B","*PAST ICD9 X DIAGNOSIS",117)=""
^DD(90,"B","*PAST PRINCIPAL DX",110)=""
^DD(90,"B","*PAST PRINCIPAL ICD9 DX",116)=""
^DD(90,"B","*PAST X DIAGNOSIS",111)=""
^DD(90,"B","*PRINCIPAL DSM-III DIAGNOSIS",102)=""
^DD(90,"B","*PRINCIPAL DSM-III DX DATE",101)=""
^DD(90,"B","*PRINCIPAL ICD9 DIAGNOSIS",113)=""
^DD(90,"B","*PRINCIPLE ICD9 DX DATE",112)=""
^DD(90,"B","*X DSM-III DIAGNOSIS",102.6)=""
^DD(90,"B","*X DSM-III DIAGNOSIS DATE",102.4)=""
^DD(90,"B","*X ICD9 DIAGNOSIS",113.6)=""
^DD(90,"B","*X ICD9 DIAGNOSIS DATE",113.4)=""
^DD(90,"B","AXIS 4 BY",106)="1"
^DD(90,"B","AXIS 4 DATE",105)="1"
^DD(90,"B","AXIS 5 BY",109)="1"
^DD(90,"B","AXIS 5 DATE",108)="1"
^DD(90,"B","NAME",.01)=""
^DD(90,"B","NUMBER",.001)=""
^DD(90,"B","PHY",100)=""
^DD(90,"B","PRINCIPAL DSM-III DIAGNOSIS",102)="1"
^DD(90,"B","PRINCIPAL DSM-III DX DATE",101)="1"
^DD(90,"B","PRINCIPAL ICD9 DIAGNOSIS",113)="1"
^DD(90,"B","PRINCIPLE ICD9 DX DATE",112)="1"
^DD(90,"B","X DSM-III DIAGNOSIS DATE",102.4)="1"
^DD(90,"B","X ICD9 DIAGNOSIS",113.6)="1"
^DD(90,"B","X ICD9 DIAGNOSIS DATE",113.4)="1"
^DD(90,"GL",0,1,.01)=""
^DD(90,"GL","DX",0,103)=""
^DD(90,"GL","DX1",1,101)=""
^DD(90,"GL","DX1",2,102)=""
^DD(90,"GL","DX1",3,102.4)=""
^DD(90,"GL","DX1",4,102.6)=""
^DD(90,"GL","DX2",1,112)=""
^DD(90,"GL","DX2",2,113)=""
^DD(90,"GL","DX2",3,113.4)=""
^DD(90,"GL","DX2",4,113.6)=""
^DD(90,"GL","DXM",1,104)=""
^DD(90,"GL","DXM",2,105)=""
^DD(90,"GL","DXM",3,106)=""
^DD(90,"GL","DXM",4,107)=""
^DD(90,"GL","DXM",5,108)=""
^DD(90,"GL","DXM",6,109)=""
^DD(90,"GL","PDX",0,110)=""
^DD(90,"GL","PE",0,100)=""
^DD(90,"GL","PHDX",0,115)=""
^DD(90,"GL","PPDX",0,116)=""
^DD(90,"GL","XDX",0,111)=""
^DD(90,"GL","XPDX",0,117)=""
^DD(90,"IX",.01)=""
^DD(90,"IX",104)=""
^DD(90,"IX",107)=""
^DD(90,"RQ",.01)=""
^DD(90,"RQ",102)=""
^DD(90,"RQ",102.4)=""
^DD(90,"RQ",102.6)=""
^DD(90,"RQ",113)=""
^DD(90,"SB",90.01,100)=""
^DD(90,"SB",90.04,103)=""
^DD(90,"SB",90.06,110)=""
^DD(90,"SB",90.07,111)=""
^DD(90,"SB",90.1,115)=""
^DD(90,"SB",90.16,116)=""
^DD(90,"SB",90.17,117)=""
^DD(90.01,0)="PHY SUB-FIELD^NL^34^61"
^DD(90.01,0,"IX","B",90.01,.01)=""
^DD(90.01,0,"NM","PHY")=""
^DD(90.01,0,"UP")="90"
^DD(90.01,.01,0)="PHY^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(90.01,.01,1,0)="^.1"
^DD(90.01,.01,1,1,0)="90.01^B"
^DD(90.01,.01,1,1,1)="S ^MR(DA(1),""PE"",""B"",X,DA)="""""
^DD(90.01,.01,1,1,2)="K ^MR(DA(1),""PE"",""B"",X,DA)"
^DD(90.01,.01,3)="ENTER TODAYS DATE IF A NEW EXAM, ENTER AN EXISTING DATE TO EDIT OR LIST."
^DD(90.01,.01,21,0)="^^1^1^2980316^^"
^DD(90.01,.01,21,1,0)="Date of Physical Exam."
^DD(90.01,.02,0)="HEIGHT IN INCHES^N^^0;2^K:X>120!(+X'=X)!(X<30) X"
^DD(90.01,.02,3)="TYPE A NUMBER BETWEEN 30 AND 120"
^DD(90.01,.02,21,0)="^^1^1^2930201^"
^DD(90.01,.02,21,1,0)="Patent's height in inches."
^DD(90.01,.02,"DT")="2870223"
^DD(90.01,.03,0)="WEIGHT IN POUNDS^N^^0;3^K:X>400!(+X'=X)!(X<40) X"
^DD(90.01,.03,3)="TYPE A NUMBER BETWEEN 40 AND 400"
^DD(90.01,.03,21,0)="^^1^1^2930201^"
^DD(90.01,.03,21,1,0)="Patient's weight in pounds."
^DD(90.01,.03,"DT")="2870223"
^DD(90.01,.04,0)="TEMP.^RN^^0;4^K:X>120!(+X'=X)!(X<60) X"
^DD(90.01,.04,3)="TYPE A NUMBER BETWEEN 60 AND 120"
^DD(90.01,.04,21,0)="^^1^1^2930201^"
^DD(90.01,.04,21,1,0)="Patient's temperature (fahrenheit)."
^DD(90.01,.04,"DT")="2870220"
^DD(90.01,.05,0)="PULSE^RF^^0;5^K:+X>190!(+X<40)!($L(X)>10) X"
^DD(90.01,.05,3)="TYPE A NUMBER BETWEEN 40 AND 190"
^DD(90.01,.05,21,0)="^^1^1^2930201^"
^DD(90.01,.05,21,1,0)="Patient's observed pulse."
^DD(90.01,.06,0)="B.P.^RF^^0;6^K:$L(X)>7!($L(X)<5)!'(X?2N.N1""/""2N.N) X"
^DD(90.01,.06,3)="MAXIMUM LENGTH: 7, MINIMUM LENGTH: 5"
^DD(90.01,.06,21,0)="^^1^1^2930201^"
^DD(90.01,.06,21,1,0)="Patient's Blood Pressure."
^DD(90.01,.07,0)="RESPS.^RN^^0;7^K:(X>60)!(X\1'=X)!(X<5) X"
^DD(90.01,.07,3)="ENTER RESP. BETWEEN 5 AND 60"
^DD(90.01,.07,21,0)="^^1^1^2930201^"
^DD(90.01,.07,21,1,0)="Patient's observed respirations per minute."
^DD(90.01,.9,0)="GENERAL APPEARANCE^FR^^.8;1^K:$L(X)>200 X"
^DD(90.01,.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,.9,21,0)="^^1^1^2930201^"
^DD(90.01,.9,21,1,0)="Patient's general appearance."
^DD(90.01,.9,"DT")="2860523"
^DD(90.01,2,0)="HEAD^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;1^Q"
^DD(90.01,2,3)="Enter 'O' for 'Omitted'; 'A' for 'Abnormal'"
^DD(90.01,2,21,0)="^^1^1^2930202^^^"
^DD(90.01,2,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,2,"DT")="2840912"
^DD(90.01,2.9,0)="HEAD AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^1;9^K:$L(X)>200 X"
^DD(90.01,2.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,2.9,21,0)="^^1^1^2930201^"
^DD(90.01,2.9,21,1,0)="Abnormalities observed of patient's head."
^DD(90.01,2.9,"DT")="2860523"
^DD(90.01,3,0)="EYES^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;2^Q"
^DD(90.01,3,21,0)="^^1^1^2930202^^"
^DD(90.01,3,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,3,"DT")="2840913"
^DD(90.01,3.1,0)="EOM^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^2;1^Q"
^DD(90.01,3.1,3)=""
^DD(90.01,3.1,21,0)="^^1^1^2930202^^"
^DD(90.01,3.1,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,3.1,"DT")="2840912"
^DD(90.01,3.2,0)="PUPIL SIZE^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^2;2^Q"
^DD(90.01,3.2,3)=""
^DD(90.01,3.2,21,0)="^^1^1^2930202^^"
^DD(90.01,3.2,21,1,0)="Set of codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,3.2,"DT")="2840912"
^DD(90.01,3.3,0)="FUNDI^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^2;3^Q"
^DD(90.01,3.3,3)=""
^DD(90.01,3.3,21,0)="^^1^1^2930202^^"
^DD(90.01,3.3,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,3.3,"DT")="2840912"
^DD(90.01,3.4,0)="RLA^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^2;4^Q"
^DD(90.01,3.4,3)=""
^DD(90.01,3.4,21,0)="^^1^1^2930202^^"
^DD(90.01,3.4,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,3.4,"DT")="2840912"
^DD(90.01,3.9,0)="EYES AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^2;9^K:$L(X)>200 X"
^DD(90.01,3.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,3.9,21,0)="^^1^1^2930202^^"
^DD(90.01,3.9,21,1,0)="Abnormalities observed of the patient's eyes."
^DD(90.01,3.9,"DT")="2860523"
^DD(90.01,4,0)="EARS^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;3^Q"
^DD(90.01,4,3)=""
^DD(90.01,4,21,0)="^^1^1^2930202^^^"
^DD(90.01,4,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,4,"DT")="2840913"
^DD(90.01,4.1,0)="HEARING^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^3;1^Q"
^DD(90.01,4.1,3)=""
^DD(90.01,4.1,21,0)="^^1^1^2930202^"
^DD(90.01,4.1,21,1,0)="Set of Codes: 1=within mormal limits, 2=omitted, 3=abnormal."
^DD(90.01,4.1,"DT")="2840912"
^DD(90.01,4.2,0)="EXTERNAL MEATUS^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^3;2^Q"
^DD(90.01,4.2,3)=""
^DD(90.01,4.2,21,0)="^^1^1^2930202^"
^DD(90.01,4.2,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,4.2,"DT")="2840912"
^DD(90.01,4.3,0)="DRUMS^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^3;3^Q"
^DD(90.01,4.3,3)=""
^DD(90.01,4.3,21,0)="^^1^1^2930202^"
^DD(90.01,4.3,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,4.3,"DT")="2840912"
^DD(90.01,4.9,0)="EARS AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^3;9^K:$L(X)>200 X"
^DD(90.01,4.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,4.9,21,0)="^^1^1^2930202^"
^DD(90.01,4.9,21,1,0)="Abnormalities observed of the patient's ears."
^DD(90.01,4.9,"DT")="2860523"
^DD(90.01,5,0)="NOSE^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;4^Q"
^DD(90.01,5,3)=""
^DD(90.01,5,21,0)="^^1^1^2930202^"
^DD(90.01,5,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,5,"DT")="2840912"
^DD(90.01,5.9,0)="NOSE AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^4;9^K:$L(X)>200 X"
^DD(90.01,5.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,5.9,21,0)="^^1^1^2930202^"
^DD(90.01,5.9,21,1,0)="Abnormalities observed of the patient's nose."
^DD(90.01,5.9,"DT")="2860523"
^DD(90.01,6,0)="MOUTH^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;5^Q"
^DD(90.01,6,3)=""
^DD(90.01,6,21,0)="^^1^1^2930202^"
^DD(90.01,6,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,6,"DT")="2840912"
^DD(90.01,6.9,0)="MOUTH AB^F^^5;9^K:$L(X)>200!($L(X)<0) X"
^DD(90.01,6.9,3)="ANSWER MUST BE 0-200 CHARACTERS IN LENGTH"
^DD(90.01,6.9,21,0)="^^1^1^2930202^"
^DD(90.01,6.9,21,1,0)="Abnormalities observed of the patient's mouth."
^DD(90.01,6.9,"DT")="2831104"
^DD(90.01,7,0)="NECK^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;6^Q"
^DD(90.01,7,3)=""
^DD(90.01,7,21,0)="^^1^1^2930202^"
^DD(90.01,7,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,7,"DT")="2840912"
^DD(90.01,7.9,0)="NECK AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^6;9^K:$L(X)>200 X"
^DD(90.01,7.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,7.9,21,0)="^^1^1^2930202^"
^DD(90.01,7.9,21,1,0)="Abnormalities observed of the patient's neck."
^DD(90.01,7.9,"DT")="2860523"
^DD(90.01,8,0)="CHEST AND BREASTS^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;7^Q"
^DD(90.01,8,3)=""
^DD(90.01,8,21,0)="^^1^1^2930202^"
^DD(90.01,8,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,8,"DT")="2840912"
^DD(90.01,8.9,0)="CHEST AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^7;9^K:$L(X)>200 X"
^DD(90.01,8.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,8.9,21,0)="^^1^1^2930202^"
^DD(90.01,8.9,21,1,0)="Abnormalities observed of the patient's chest and/or breast(s)."
^DD(90.01,8.9,"DT")="2860523"
^DD(90.01,9,0)="LUNGS^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;8^Q"
^DD(90.01,9,3)=""
^DD(90.01,9,21,0)="^^1^1^2930202^"
^DD(90.01,9,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,9,"DT")="2840912"
^DD(90.01,9.9,0)="LUNGS AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^8;9^K:$L(X)>200 X"
^DD(90.01,9.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,9.9,21,0)="^^1^1^2930202^"
^DD(90.01,9.9,21,1,0)="Abnormalities observed of the patient's lung(s)."
^DD(90.01,9.9,"DT")="2860523"
^DD(90.01,10,0)="HEART^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;9^Q"
^DD(90.01,10,3)=""
^DD(90.01,10,21,0)="^^1^1^2930202^"
^DD(90.01,10,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,10,"DT")="2840912"
^DD(90.01,10.9,0)="HEART AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^9;9^K:$L(X)>200 X"
^DD(90.01,10.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,10.9,21,0)="^^1^1^2930202^"
^DD(90.01,10.9,21,1,0)="Abnormalities observed of the patient's heart."
^DD(90.01,10.9,"DT")="2860523"
^DD(90.01,11,0)="ABDOMEN^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;10^Q"
^DD(90.01,11,3)=""
^DD(90.01,11,21,0)="^^1^1^2930202^"
^DD(90.01,11,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,11,"DT")="2840912"
^DD(90.01,11.9,0)="ABDOMEN AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^10;9^K:$L(X)>200 X"
^DD(90.01,11.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,11.9,21,0)="^^1^1^2930202^"
^DD(90.01,11.9,21,1,0)="Abnormalities observed of the patient's abdomen."
^DD(90.01,11.9,"DT")="2860523"
^DD(90.01,12,0)="GENITALIA^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;11^Q"
^DD(90.01,12,3)=""
^DD(90.01,12,21,0)="^^1^1^2930202^"
^DD(90.01,12,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,12,"DT")="2840913"
^DD(90.01,12.1,0)="TESTES^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^11;1^Q"
^DD(90.01,12.1,21,0)="^^1^1^2930202^"
^DD(90.01,12.1,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,12.1,"DT")="2840912"
^DD(90.01,12.2,0)="EPIDIDYMIDES^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^11;2^Q"
^DD(90.01,12.2,21,0)="^^1^1^2930202^"
^DD(90.01,12.2,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,12.2,"DT")="2840912"
^DD(90.01,12.3,0)="PENIS^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^11;3^Q"
^DD(90.01,12.3,3)=""
^DD(90.01,12.3,21,0)="^^1^1^2930202^"
^DD(90.01,12.3,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,12.3,"DT")="2840912"
^DD(90.01,12.4,0)="PROSTATE^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^11;4^Q"
^DD(90.01,12.4,3)=""
^DD(90.01,12.4,21,0)="^^1^1^2930202^"
^DD(90.01,12.4,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,12.4,"DT")="2840912"
^DD(90.01,12.9,0)="GENITALIA AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^11;9^K:$L(X)>200 X"
^DD(90.01,12.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,12.9,21,0)="^^1^1^2930202^"
^DD(90.01,12.9,21,1,0)="Abnormalities observed of the patient's genitalia."
^DD(90.01,12.9,"DT")="2860523"
^DD(90.01,13,0)="PELVIC^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;12^Q"
^DD(90.01,13,3)=""
^DD(90.01,13,21,0)="^^1^1^2930202^"
^DD(90.01,13,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,13,"DT")="2840912"
^DD(90.01,13.9,0)="PELVIC AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^12;9^K:$L(X)>200 X"
^DD(90.01,13.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,13.9,21,0)="^^1^1^2930202^"
^DD(90.01,13.9,21,1,0)="Abnormalities observed of the patient's pelvis/pelvic area."
^DD(90.01,13.9,"DT")="2860523"
^DD(90.01,14,0)="RECTUM^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;13^Q"
^DD(90.01,14,3)=""
^DD(90.01,14,21,0)="^^1^1^2930202^"
^DD(90.01,14,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,14,"DT")="2840912"
^DD(90.01,14.9,0)="RECTUM AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^13;9^K:$L(X)>200 X"
^DD(90.01,14.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,14.9,21,0)="^^1^1^2930202^"
^DD(90.01,14.9,21,1,0)="Abnormalities observed of the patient's rectum."
^DD(90.01,14.9,"DT")="2860523"
^DD(90.01,15,0)="BACK^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;14^Q"
^DD(90.01,15,3)=""
^DD(90.01,15,21,0)="^^1^1^2930202^"
^DD(90.01,15,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abmormal."
^DD(90.01,15,"DT")="2840912"
^DD(90.01,15.9,0)="BACK AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^14;9^K:$L(X)>200 X"
^DD(90.01,15.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,15.9,21,0)="^^1^1^2930202^"
^DD(90.01,15.9,21,1,0)="Abnormalities observed of the patient's back."
^DD(90.01,15.9,"DT")="2860523"
^DD(90.01,16,0)="EXTREMITIES^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;15^Q"
^DD(90.01,16,3)=""
^DD(90.01,16,21,0)="^^1^1^2930202^"
^DD(90.01,16,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,16,"DT")="2840912"
^DD(90.01,16.9,0)="EXTREMITIES AB^F^1:NORMAL;2:OMITTED;3:ABNORMAL;^15;9^K:$L(X)>200 X"
^DD(90.01,16.9,3)="MAXIMUM LENGTH: 200, MINIMUM LENGTH: 1"
^DD(90.01,16.9,21,0)="^^1^1^2930202^"
^DD(90.01,16.9,21,1,0)="Abnormalities observed of the patient's extremities."
^DD(90.01,16.9,"DT")="2860523"
^DD(90.01,17,0)="NEUROLOGICAL^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;16^Q"
^DD(90.01,17,21,0)="^^1^1^2930202^"
^DD(90.01,17,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,17,"DT")="2840912"
^DD(90.01,17.9,0)="NEUROLOGICAL AB^F^^16;9^K:$L(X)>200!($L(X)<1) X"
^DD(90.01,17.9,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(90.01,17.9,21,0)="^^1^1^2930202^"
^DD(90.01,17.9,21,1,0)="Patient neurological abnormalities observed."
^DD(90.01,18,0)="SKIN^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;17^Q"
^DD(90.01,18,21,0)="^^1^1^2930202^"
^DD(90.01,18,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,18,"DT")="2840912"
^DD(90.01,18.9,0)="SKIN AB^F^^17;9^K:$L(X)>200!($L(X)<1) X"
^DD(90.01,18.9,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(90.01,18.9,21,0)="^^1^1^2930202^"
^DD(90.01,18.9,21,1,0)="Abnormalities observed of the patient's skin."
^DD(90.01,19,0)="LYMPH^S^1:WITHIN NORMAL LIMITS;2:OMITTED;3:ABNORMAL;^.9;18^Q"
^DD(90.01,19,21,0)="^^1^1^2930202^"
^DD(90.01,19,21,1,0)="Set of Codes: 1=within normal limits, 2=omitted, 3=abnormal."
^DD(90.01,19,"DT")="2840912"
^DD(90.01,19.9,0)="LYMPH AB^F^^18;9^K:$L(X)>200!($L(X)<1) X"
^DD(90.01,19.9,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(90.01,19.9,21,0)="^^1^1^2930202^"
^DD(90.01,19.9,21,1,0)="Abnormalities observed of the patient's lymph system."
^DD(90.01,29,0)="EXAMINER^RP200'^VA(200,^0;10^Q"
^DD(90.01,29,3)="ENTER YOUR CODE.  CALL COMPUTER SECTION IF YOU DON'T HAVE ONE"
^DD(90.01,29,21,0)="^^2^2^2930322^^"
^DD(90.01,29,21,1,0)="Enter the name of the person examining the patient.  It is stored internally"
^DD(90.01,29,21,2,0)="as a pointer value to the NEW PERSON file (#200) for the examiner."
^DD(90.01,29,"DT")="2850430"
^DD(90.01,30,0)="COMMENTS^90.02^^19;0"
^DD(90.01,30,21,0)="^^1^1^2930202^"
^DD(90.01,30,21,1,0)="Comments relating to the physical exam."
^DD(90.01,31,0)="INITIAL IMPRESSION^90.03^^20;0"
^DD(90.01,31,21,0)="^^1^1^2930202^"
^DD(90.01,31,21,1,0)="Examiner's initial impression."
^DD(90.01,32,0)="HEIGHT IN CENTIMETERS^NJ3,0^^0;8^K:+X'=X!(X>300)!(X<75)!(X?.E1"".""1N.N) X"
^DD(90.01,32,3)="TYPE A WHOLE NUMBER BETWEEN 75 AND 300"
^DD(90.01,32,21,0)="^^1^1^2930202^"
^DD(90.01,32,21,1,0)="Patient's height in centimeters."
^DD(90.01,32,"DT")="2870220"
^DD(90.01,33,0)="WEIGHT IN KILOGRAMS^NJ3,0^^0;9^K:+X'=X!(X>180)!(X<18)!(X?.E1"".""1N.N) X"
^DD(90.01,33,3)="TYPE A WHOLE NUMBER BETWEEN 18 AND 180"
^DD(90.01,33,21,0)="^^1^1^2930202^"
^DD(90.01,33,21,1,0)="Patient's weight in kilograms."
^DD(90.01,33,"DT")="2870223"
^DD(90.01,34,0)="TEMPERATURE CENTIGRADE^NJ4,1^^0;11^K:+X'=X!(X>50)!(X<15)!(X?.E1"".""2N.N) X"
^DD(90.01,34,3)="TYPE A NUMBER BETWEEN 15 AND 50"
^DD(90.01,34,21,0)="^^1^1^2930202^"
^DD(90.01,34,21,1,0)="Patient's temperature in centigrades."
^DD(90.01,34,"DT")="2870223"
^DD(90.01,"B","ABDOMEN",11)=""
^DD(90.01,"B","ABDOMEN AB",11.9)=""
^DD(90.01,"B","B.P.",.06)=""
^DD(90.01,"B","BACK",15)=""
^DD(90.01,"B","BACK AB",15.9)=""
^DD(90.01,"B","CHEST AB",8.9)=""
^DD(90.01,"B","CHEST AND BREASTS",8)=""
^DD(90.01,"B","COMMENTS",30)=""
^DD(90.01,"B","DRUMS",4.3)=""
^DD(90.01,"B","EARS",4)=""
^DD(90.01,"B","EARS AB",4.9)=""
^DD(90.01,"B","EOM",3.1)=""
^DD(90.01,"B","EPIDIDYMIDES",12.2)=""
^DD(90.01,"B","EXAMINER",29)=""
^DD(90.01,"B","EXTERNAL MEATUS",4.2)=""
^DD(90.01,"B","EXTREMITIES",16)=""
^DD(90.01,"B","EXTREMITIES AB",16.9)=""
^DD(90.01,"B","EYES",3)=""
^DD(90.01,"B","EYES AB",3.9)=""
^DD(90.01,"B","FUNDI",3.3)=""
^DD(90.01,"B","GENERAL APPEARANCE",.9)=""
^DD(90.01,"B","GENITALIA",12)=""
^DD(90.01,"B","GENITALIA AB",12.9)=""
^DD(90.01,"B","HEAD",2)=""
^DD(90.01,"B","HEAD AB",2.9)=""
^DD(90.01,"B","HEARING",4.1)=""
^DD(90.01,"B","HEART",10)=""
^DD(90.01,"B","HEART AB",10.9)=""
^DD(90.01,"B","HEIGHT IN CENTIMETERS",32)=""
^DD(90.01,"B","HEIGHT IN INCHES",.02)=""
^DD(90.01,"B","INITIAL IMPRESSION",31)=""
^DD(90.01,"B","LUNGS",9)=""
^DD(90.01,"B","LUNGS AB",9.9)=""
^DD(90.01,"B","LYMPH",19)=""
^DD(90.01,"B","LYMPH AB",19.9)=""
^DD(90.01,"B","MOUTH",6)=""
^DD(90.01,"B","MOUTH AB",6.9)=""
^DD(90.01,"B","NECK",7)=""
^DD(90.01,"B","NECK AB",7.9)=""
^DD(90.01,"B","NEUROLOGICAL",17)=""
^DD(90.01,"B","NEUROLOGICAL AB",17.9)=""
^DD(90.01,"B","NOSE",5)=""
^DD(90.01,"B","NOSE AB",5.9)=""
^DD(90.01,"B","PELVIC",13)=""
^DD(90.01,"B","PELVIC AB",13.9)=""
^DD(90.01,"B","PENIS",12.3)=""
^DD(90.01,"B","PHY",.01)=""
^DD(90.01,"B","PROSTATE",12.4)=""
^DD(90.01,"B","PULSE",.05)=""
^DD(90.01,"B","PUPIL SIZE",3.2)=""
^DD(90.01,"B","RECTUM",14)=""
^DD(90.01,"B","RECTUM AB",14.9)=""
^DD(90.01,"B","RESPS.",.07)=""
^DD(90.01,"B","RLA",3.4)=""
^DD(90.01,"B","SKIN",18)=""
^DD(90.01,"B","SKIN AB",18.9)=""
^DD(90.01,"B","TEMP.",.04)=""
^DD(90.01,"B","TEMPERATURE CENTIGRADE",34)=""
^DD(90.01,"B","TESTES",12.1)=""
^DD(90.01,"B","WEIGHT IN KILOGRAMS",33)=""
^DD(90.01,"B","WEIGHT IN POUNDS",.03)=""
^DD(90.01,"GL",0,1,.01)=""
^DD(90.01,"GL",0,2,.02)=""
^DD(90.01,"GL",0,3,.03)=""
^DD(90.01,"GL",0,4,.04)=""
^DD(90.01,"GL",0,5,.05)=""
^DD(90.01,"GL",0,6,.06)=""
^DD(90.01,"GL",0,7,.07)=""
^DD(90.01,"GL",0,8,32)=""
^DD(90.01,"GL",0,9,33)=""
^DD(90.01,"GL",0,10,29)=""
^DD(90.01,"GL",0,11,34)=""
^DD(90.01,"GL",.8,1,.9)=""
^DD(90.01,"GL",.9,1,2)=""
^DD(90.01,"GL",.9,2,3)=""
^DD(90.01,"GL",.9,3,4)=""
^DD(90.01,"GL",.9,4,5)=""
^DD(90.01,"GL",.9,5,6)=""
^DD(90.01,"GL",.9,6,7)=""
^DD(90.01,"GL",.9,7,8)=""
^DD(90.01,"GL",.9,8,9)=""
^DD(90.01,"GL",.9,9,10)=""
^DD(90.01,"GL",.9,10,11)=""
^DD(90.01,"GL",.9,11,12)=""
^DD(90.01,"GL",.9,12,13)=""
^DD(90.01,"GL",.9,13,14)=""
^DD(90.01,"GL",.9,14,15)=""
^DD(90.01,"GL",.9,15,16)=""
^DD(90.01,"GL",.9,16,17)=""
^DD(90.01,"GL",.9,17,18)=""
^DD(90.01,"GL",.9,18,19)=""
^DD(90.01,"GL",1,9,2.9)=""
^DD(90.01,"GL",2,1,3.1)=""
^DD(90.01,"GL",2,2,3.2)=""
^DD(90.01,"GL",2,3,3.3)=""
^DD(90.01,"GL",2,4,3.4)=""
^DD(90.01,"GL",2,9,3.9)=""
^DD(90.01,"GL",3,1,4.1)=""
^DD(90.01,"GL",3,2,4.2)=""
^DD(90.01,"GL",3,3,4.3)=""
^DD(90.01,"GL",3,9,4.9)=""
^DD(90.01,"GL",4,9,5.9)=""
^DD(90.01,"GL",5,9,6.9)=""
^DD(90.01,"GL",6,9,7.9)=""
^DD(90.01,"GL",7,9,8.9)=""
^DD(90.01,"GL",8,9,9.9)=""
^DD(90.01,"GL",9,9,10.9)=""
^DD(90.01,"GL",10,9,11.9)=""
^DD(90.01,"GL",11,1,12.1)=""
^DD(90.01,"GL",11,2,12.2)=""
^DD(90.01,"GL",11,3,12.3)=""
^DD(90.01,"GL",11,4,12.4)=""
^DD(90.01,"GL",11,9,12.9)=""
^DD(90.01,"GL",12,9,13.9)=""
^DD(90.01,"GL",13,9,14.9)=""
^DD(90.01,"GL",14,9,15.9)=""
^DD(90.01,"GL",15,9,16.9)=""
^DD(90.01,"GL",16,9,17.9)=""
^DD(90.01,"GL",17,9,18.9)=""
^DD(90.01,"GL",18,9,19.9)=""
^DD(90.01,"GL",19,0,30)=""
^DD(90.01,"GL",20,0,31)=""
^DD(90.01,"IX",.01)=""
^DD(90.01,"RQ",.04)=""
^DD(90.01,"RQ",.05)=""
^DD(90.01,"RQ",.06)=""
^DD(90.01,"RQ",.07)=""
^DD(90.01,"RQ",.9)=""
^DD(90.01,"RQ",29)=""
^DD(90.01,"SB",90.02,30)=""
^DD(90.01,"SB",90.03,31)=""
^DD(90.02,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(90.02,0,"NM","COMMENTS")=""
^DD(90.02,0,"UP")="90.01"
^DD(90.02,.01,0)="COMMENTS^W^^0;1^Q"
^DD(90.02,.01,21,0)="^^2^2^2930202^"
^DD(90.02,.01,21,1,0)="Comments entered by the examiner relating to the physical exam of the"
^DD(90.02,.01,21,2,0)="patient."
^DD(90.02,"B","COMMENTS",.01)=""
^DD(90.02,"GL",0,1,.01)=""
^DD(90.03,0)="INITIAL IMPRESSION SUB-FIELD^NL^.01^1"
^DD(90.03,0,"NM","INITIAL IMPRESSION")=""
^DD(90.03,0,"UP")="90.01"
^DD(90.03,.01,0)="INITIAL IMPRESSION^W^^0;1^Q"
^DD(90.03,.01,21,0)="^^1^1^2930202^"
^DD(90.03,.01,21,1,0)="Examiner's initial impression of the patient's condition."
^DD(90.03,"B","INITIAL IMPRESSION",.01)=""
^DD(90.03,"GL",0,1,.01)=""
^DD(90.04,0)="*DSM-III DIAGNOSIS SUB-FIELD^NL^3^5"
^DD(90.04,0,"DT")="2931207"
^DD(90.04,0,"IX","B",90.04,.01)=""
^DD(90.04,0,"IX","CH",90.05,.01)=""
^DD(90.04,0,"NM","*DSM-III DIAGNOSIS")=""
^DD(90.04,0,"UP")="90"
^DD(90.04,.001,0)="*NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(90.04,.001,.1)="NUMBER"
^DD(90.04,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(90.04,.001,"DT")="2840301"
^DD(90.04,.01,0)="*DSM-III DIAGNOSIS^RP627'^DIC(627,^0;1^Q"
^DD(90.04,.01,1,0)="^.1"
^DD(90.04,.01,1,1,0)="90.04^B"
^DD(90.04,.01,1,1,1)="S ^MR(DA(1),""DX"",""B"",$E(X,1,30),DA)="""""
^DD(90.04,.01,1,1,2)="K ^MR(DA(1),""DX"",""B"",$E(X,1,30),DA)"
^DD(90.04,.01,3)="ENTER DSM-III CODE NUMBER OR ONE MOST DESCRIPTIVE WORD."
^DD(90.04,.01,"DT")="2841005"
^DD(90.04,.01,"V",0)="^.12P^2^2"
^DD(90.04,.01,"V",1,0)="627^DSM-III data^2^MR(^n^n"
^DD(90.04,.01,"V",2,0)="627.7^DSM data^1^YSD(627.7,^y^y"
^DD(90.04,.01,"V",2,1)="S DIC(""S"")=""I $P(^(0),U,2)=4"""
^DD(90.04,.01,"V",2,2)="Only DSM-IV codes can be selected..."
^DD(90.04,.01,"V","B",627,1)=""
^DD(90.04,.01,"V","B",627.7,2)=""
^DD(90.04,.01,"V","M","DSM data",2)=""
^DD(90.04,.01,"V","M","DSM-III data",1)=""
^DD(90.04,.01,"V","O",1,2)=""
^DD(90.04,.01,"V","O",2,1)=""
^DD(90.04,.01,"V","P","MR(",1)=""
^DD(90.04,.01,"V","P","YSD(627.7,",2)=""
^DD(90.04,1,0)="*DSM-III QUALIFIER DATE^90.05DA^^1;0"
^DD(90.04,1,21,0)="^^2^2^2890119^^"
^DD(90.04,1,21,1,0)="DX entries are qualified with PROVISIONAL, BY HISTORY, VERIFIED, etc."
^DD(90.04,1,21,2,0)="DX qualifier date must be entered first."
^DD(90.04,2,0)="*STATUS^S^A:ACTIVE;I:INACTIVE;U:UNKNOWN;^0;2^Q"
^DD(90.04,2,.1)="STATUS"
^DD(90.04,2,"DT")="2840301"
^DD(90.04,3,0)="*STATUS DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:2990000<X!(2800000>X) X"
^DD(90.04,3,.1)="STATUS DATE"
^DD(90.04,3,3)="TYPE A DATE BETWEEN 1980 AND 1999"
^DD(90.04,3,"DT")="2840215"
^DD(90.04,"B","*DSM-III DIAGNOSIS",.01)=""
^DD(90.04,"B","*DSM-III QUALIFIER DATE",1)=""
^DD(90.04,"B","*NUMBER",.001)=""
^DD(90.04,"B","*STATUS",2)=""
^DD(90.04,"B","*STATUS DATE",3)=""
^DD(90.04,"B","NUMBER",.001)="1"
^DD(90.04,"B","STATUS",2)="1"
^DD(90.04,"B","STATUS DATE",3)="1"
^DD(90.04,"GL",0,1,.01)=""
^DD(90.04,"GL",0,2,2)=""
^DD(90.04,"GL",0,3,3)=""
^DD(90.04,"GL",1,0,1)=""
^DD(90.04,"IX",.01)=""
^DD(90.04,"RQ",.01)=""
^DD(90.04,"SB",90.05,1)=""
^DD(90.05,0)="*DSM-III QUALIFIER DATE SUB-FIELD^NL^6^5"
^DD(90.05,0,"NM","*DSM-III QUALIFIER DATE")=""
^DD(90.05,0,"UP")="90.04"
^DD(90.05,.01,0)="*DSM-III QUALIFIER DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:DT<X X"
^DD(90.05,.01,.1)="DSM-III QUALIFIER DATE"
^DD(90.05,.01,1,0)="^.1"
^DD(90.05,.01,1,1,0)="90.04^CH^MUMPS"
^DD(90.05,.01,1,1,1)="S ^MR(DA(2),""DX"",""CH"",9999999-X,DA(1),DA)="""""
^DD(90.05,.01,1,1,2)="K ^MR(DA(2),""DX"",""CH"",9999999-X,DA(1),DA)"
^DD(90.05,.01,3)=""
^DD(90.05,.01,21,0)="^^2^2^2850723^^^^"
^DD(90.05,.01,21,1,0)="Diagnosis entries are qualified with PROVISIONAL, BY HISTORY,"
^DD(90.05,.01,21,2,0)="VERIFIED, etc.  Diagnosis qualifier date must be entered first."
^DD(90.05,.01,"DT")="2840215"
^DD(90.05,1,0)="*DSM-III QUALIFIER^RSX^P:PROVISIONAL;R:RULE OUT;H:BY HISTORY;V:VERIFIED;N:NOT FOUND;^0;2^I $D(V),(X=""V""),'V K X W ""MUST HAVE CLINICAL PRIVILEGE TO VERIFY"" Q"
^DD(90.05,1,.1)="DSM-III QUALIFIER"
^DD(90.05,1,3)="Diagnosis entries are qualified by PROVISIONAL, VERIFIED, By HISTORY, etc."
^DD(90.05,1,"DT")="2841127"
^DD(90.05,2,0)="*ACCESS CODE^RP200'^VA(200,^0;3^Q"
^DD(90.05,2,.1)="ACCESS CODE"
^DD(90.05,2,"DT")="2890119"
^DD(90.05,3,0)="*COMMENT^F^^0;4^K:$L(X)>65!($L(X)<2) X"
^DD(90.05,3,.1)="COMMENT"
^DD(90.05,3,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(90.05,3,"DT")="2890119"
^DD(90.05,6,0)="*OLD COMMENT^F^^0;6^K:$L(X)>80!($L(X)<2) X"
^DD(90.05,6,.1)="OLD COMMENT"
^DD(90.05,6,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(90.05,6,"DT")="2840229"
^DD(90.05,"B","*ACCESS CODE",2)=""
^DD(90.05,"B","*COMMENT",3)=""
^DD(90.05,"B","*DSM-III QUALIFIER",1)=""
^DD(90.05,"B","*DSM-III QUALIFIER DATE",.01)=""
^DD(90.05,"B","*OLD COMMENT",6)=""
^DD(90.05,"B","ACCESS CODE",2)="1"
^DD(90.05,"B","COMMENT",3)="1"
^DD(90.05,"B","DSM-III QUALIFIER",1)="1"
^DD(90.05,"B","DSM-III QUALIFIER DATE",.01)="1"
^DD(90.05,"B","OLD COMMENT",6)="1"
^DD(90.05,"GL",0,1,.01)=""
^DD(90.05,"GL",0,2,1)=""
^DD(90.05,"GL",0,3,2)=""
^DD(90.05,"GL",0,4,3)=""
^DD(90.05,"GL",0,6,6)=""
^DD(90.05,"IX",.01)=""
^DD(90.05,"RQ",.01)=""
^DD(90.05,"RQ",1)=""
^DD(90.05,"RQ",2)=""
^DD(90.06,0)="*PAST PRINCIPAL DX SUB-FIELD^NL^2^3"
^DD(90.06,0,"DT")="2931207"
^DD(90.06,0,"NM","*PAST PRINCIPAL DX")=""
^DD(90.06,0,"UP")="90"
^DD(90.06,.01,0)="*PAST PRINCIPAL DX^RP627'^DIC(627,^0;1^Q"
^DD(90.06,.01,.1)="PAST PRINCIPAL DX"
^DD(90.06,.01,1,0)="^.1^^0"
^DD(90.06,.01,3)=""
^DD(90.06,.01,9)="^"
^DD(90.06,.01,"DT")="2841011"
^DD(90.06,1,0)="*DATE PAST PRINCIPAL DX^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(90.06,1,.1)="DATE PAST PRINCIPAL DX"
^DD(90.06,1,1,0)="^.1"
^DD(90.06,1,1,1,0)="^^TRIGGER^90.06^2"
^DD(90.06,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 X ^DD(90.06,1,1,1,9.2) S X=$P($G(^VA(200,+$P(Y(102),U,3),0)),U) S D1=Y(1) S DIU=X K Y S X=DIV S X=DUZ X ^DD(90.06,1,1,1,1.4)"
^DD(90.06,1,1,1,1.4)="S DIH=$S($D(^MR(DIV(0),""PDX"",DIV(1),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90.06,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90.06,1,1,1,2)="Q"
^DD(90.06,1,1,1,9.2)="S Y(1)=$S($D(D1):D1,1:"""") S X=2841100 K DIC S Y=-1,DIC=""^MR(D0,""""PDX"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S D1=+Y,DIV(1)=+Y S Y(102)=$S($D(^MR(D0,""PDX"",D1,0)):^(0),1:"""")"
^DD(90.06,1,1,1,"CREATE VALUE")="S X=DUZ"
^DD(90.06,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(90.06,1,1,1,"FIELD")="110:110:DIAGNOSIS BY"
^DD(90.06,1,9)="^"
^DD(90.06,1,"DT")="2841010"
^DD(90.06,2,0)="*DIAGNOSIS BY^RP200'^VA(200,^0;3^Q"
^DD(90.06,2,.1)="DIAGNOSIS BY"
^DD(90.06,2,5,1,0)="90.06^1^1"
^DD(90.06,2,9)="^"
^DD(90.06,2,"DT")="2840229"
^DD(90.06,"B","*DATE PAST PRINCIPAL DX",1)=""
^DD(90.06,"B","*DIAGNOSIS BY",2)=""
^DD(90.06,"B","*PAST PRINCIPAL DX",.01)=""
^DD(90.06,"B","DATE PAST PRINCIPAL DX",1)="1"
^DD(90.06,"B","DIAGNOSIS BY",2)="1"
^DD(90.06,"B","PAST PRINCIPAL DX",.01)="1"
^DD(90.06,"GL",0,1,.01)=""
^DD(90.06,"GL",0,2,1)=""
^DD(90.06,"GL",0,3,2)=""
^DD(90.06,"IX",1)=""
^DD(90.06,"RQ",.01)=""
^DD(90.06,"RQ",1)=""
^DD(90.06,"RQ",2)=""
^DD(90.07,0)="*PAST X DIAGNOSIS SUB-FIELD^NL^2^3"
^DD(90.07,0,"DT")="2931207"
^DD(90.07,0,"NM","*PAST X DIAGNOSIS")=""
^DD(90.07,0,"UP")="90"
^DD(90.07,.01,0)="*PAST X DIAGNOSIS^RP627'^DIC(627,^0;1^Q"
^DD(90.07,.01,.1)="PAST X DIAGNOSIS"
^DD(90.07,.01,1,0)="^.1^^0"
^DD(90.07,.01,3)=""
^DD(90.07,.01,9)="^"
^DD(90.07,.01,"DT")="2841025"
^DD(90.07,1,0)="*PAST X DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(90.07,1,.1)="PAST X DATE"
^DD(90.07,1,1,0)="^.1"
^DD(90.07,1,1,1,0)="^^TRIGGER^90.07^2"
^DD(90.07,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 X ^DD(90.07,1,1,1,9.2) S X=$P($G(^VA(200,+$P(Y(102),U,3),0)),U) S D1=Y(1) S DIU=X K Y S X=DIV S X=DUZ X ^DD(90.07,1,1,1,1.4)"
^DD(90.07,1,1,1,1.4)="S DIH=$S($D(^MR(DIV(0),""XDX"",DIV(1),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90.07,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90.07,1,1,1,2)="Q"
^DD(90.07,1,1,1,9.2)="S Y(1)=$S($D(D1):D1,1:"""") S X=2841101 K DIC S Y=-1,DIC=""^MR(D0,""""XDX"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S D1=+Y,DIV(1)=+Y S Y(102)=$S($D(^MR(D0,""XDX"",D1,0)):^(0),1:"""")"
^DD(90.07,1,1,1,"CREATE VALUE")="S X=DUZ"
^DD(90.07,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(90.07,1,1,1,"FIELD")="111:111:DIAGNOSIS BY"
^DD(90.07,1,9)="^"
^DD(90.07,1,"DT")="2841010"
^DD(90.07,2,0)="*DIAGNOSIS BY^RP200'^VA(200,^0;3^Q"
^DD(90.07,2,.1)="DIAGNOSIS BY"
^DD(90.07,2,5,1,0)="90.07^1^1"
^DD(90.07,2,9)="^"
^DD(90.07,2,"DT")="2840229"
^DD(90.07,"B","*DIAGNOSIS BY",2)=""
^DD(90.07,"B","*PAST X DATE",1)=""
^DD(90.07,"B","*PAST X DIAGNOSIS",.01)=""
^DD(90.07,"B","DIAGNOSIS BY",2)="1"
^DD(90.07,"B","PAST X DATE",1)="1"
^DD(90.07,"B","PAST X DIAGNOSIS",.01)="1"
^DD(90.07,"GL",0,1,.01)=""
^DD(90.07,"GL",0,2,1)=""
^DD(90.07,"GL",0,3,2)=""
^DD(90.07,"IX",1)=""
^DD(90.07,"RQ",.01)=""
^DD(90.07,"RQ",1)=""
^DD(90.07,"RQ",2)=""
^DD(90.1,0)="*ICD9 DIAGNOSIS SUB-FIELD^NL^3^5"
^DD(90.1,0,"IX","B",90.1,.01)=""
^DD(90.1,0,"IX","CH",90.11,.01)=""
^DD(90.1,0,"NM","*ICD9 DIAGNOSIS")=""
^DD(90.1,0,"UP")="90"
^DD(90.1,.001,0)="*NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(90.1,.001,.1)="NUMBER"
^DD(90.1,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(90.1,.001,"DT")="2840828"
^DD(90.1,.01,0)="*ICD9 DIAGNOSIS^P80'^ICD9(^0;1^Q"
^DD(90.1,.01,.1)="ICD9 DIAGNOSIS"
^DD(90.1,.01,1,0)="^.1"
^DD(90.1,.01,1,1,0)="90.1^B"
^DD(90.1,.01,1,1,1)="S ^MR(DA(1),""PHDX"",""B"",$E(X,1,30),DA)="""""
^DD(90.1,.01,1,1,2)="K ^MR(DA(1),""PHDX"",""B"",$E(X,1,30),DA)"
^DD(90.1,.01,"DT")="2840829"
^DD(90.1,1,0)="*ICD9 QUALIFIER DATE^90.11DA^^1;0"
^DD(90.1,1,21,0)="^^1^1^2840831^^"
^DD(90.1,1,21,1,0)="Sets date for entry type, e.g., provisional, verified, etc."
^DD(90.1,2,0)="*STATUS^S^A:ACTIVE;I:INACTIVE;U:UNKNOWN;^0;2^Q"
^DD(90.1,2,.1)="STATUS"
^DD(90.1,2,"DT")="2840828"
^DD(90.1,3,0)="*STATUS DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(90.1,3,.1)="STATUS DATE"
^DD(90.1,3,"DT")="2840828"
^DD(90.1,"B","*ICD9 DIAGNOSIS",.01)=""
^DD(90.1,"B","*ICD9 QUALIFIER DATE",1)=""
^DD(90.1,"B","*NUMBER",.001)=""
^DD(90.1,"B","*STATUS",2)=""
^DD(90.1,"B","*STATUS DATE",3)=""
^DD(90.1,"B","ICD9 DIAGNOSIS",.01)="1"
^DD(90.1,"B","NUMBER",.001)="1"
^DD(90.1,"B","STATUS",2)="1"
^DD(90.1,"B","STATUS DATE",3)="1"
^DD(90.1,"GL",0,1,.01)=""
^DD(90.1,"GL",0,2,2)=""
^DD(90.1,"GL",0,3,3)=""
^DD(90.1,"GL",1,0,1)=""
^DD(90.1,"IX",.01)=""
^DD(90.1,"SB",90.11,1)=""
^DD(90.11,0)="*ICD9 QUALIFIER DATE SUB-FIELD^NL^3^4"
^DD(90.11,0,"NM","*ICD9 QUALIFIER DATE")=""
^DD(90.11,0,"UP")="90.1"
^DD(90.11,.01,0)="*ICD9 QUALIFIER DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(90.11,.01,.1)="ICD9 QUALIFIER DATE"
^DD(90.11,.01,1,0)="^.1"
^DD(90.11,.01,1,1,0)="90.1^CH^MUMPS"
^DD(90.11,.01,1,1,1)="S ^MR(DA(2),""PHDX"",""CH"",9999999-X,DA(1),DA)="""""
^DD(90.11,.01,1,1,2)="K ^MR(DA(2),""PHDX"",""CH"",9999999-X,DA(1),DA)"
^DD(90.11,.01,3)=""
^DD(90.11,.01,21,0)="^^2^2^2841005^^"
^DD(90.11,.01,21,1,0)="Diagnosis entries are qualified by PROVISIONAL, BY HISTORY, VERIFIED, etc."
^DD(90.11,.01,21,2,0)="Diagnosis qualifier date must be entered first."
^DD(90.11,.01,"DT")="2840829"
^DD(90.11,1,0)="*ICD9 QUALIFIER^RSX^P:PROVISIONAL;R:RULE OUT;H:BY HISTORY;V:VERIFIED;N:NOT FOUND;^0;2^I $D(V),(X=""V""),'V K X W ""MUST HAVE CLINICAL PRIVILEGE TO VERIFY"" Q"
^DD(90.11,1,.1)="ICD9 QUALIFIER"
^DD(90.11,1,3)="Diagnosis entries are qualified by PROVISIONAL, VERIFIED, By HISTORY, etc."
^DD(90.11,1,"DT")="2850211"
^DD(90.11,2,0)="*USER^RP200'^VA(200,^0;3^Q"
^DD(90.11,2,.1)="USER"
^DD(90.11,2,"DT")="2840828"
^DD(90.11,3,0)="*COMMENT^F^^0;4^K:$L(X)>70!($L(X)<3) X"
^DD(90.11,3,.1)="COMMENT"
^DD(90.11,3,3)="ANSWER MUST BE 3-70 CHARACTERS IN LENGTH"
^DD(90.11,3,"DT")="2840828"
^DD(90.11,"B","*COMMENT",3)=""
^DD(90.11,"B","*ICD9 QUALIFIER",1)=""
^DD(90.11,"B","*ICD9 QUALIFIER DATE",.01)=""
^DD(90.11,"B","*USER",2)=""
^DD(90.11,"B","COMMENT",3)="1"
^DD(90.11,"B","ICD9 QUALIFIER",1)="1"
^DD(90.11,"B","ICD9 QUALIFIER DATE",.01)="1"
^DD(90.11,"B","USER",2)="1"
^DD(90.11,"GL",0,1,.01)=""
^DD(90.11,"GL",0,2,1)=""
^DD(90.11,"GL",0,3,2)=""
^DD(90.11,"GL",0,4,3)=""
^DD(90.11,"IX",.01)=""
^DD(90.11,"RQ",1)=""
^DD(90.11,"RQ",2)=""
^DD(90.16,0)="*PAST PRINCIPAL ICD9 DX SUB-FIELD^NL^2^3"
^DD(90.16,0,"NM","*PAST PRINCIPAL ICD9 DX")=""
^DD(90.16,0,"UP")="90"
^DD(90.16,.01,0)="*PAST PRINCIPAL ICD9 DX^RP80'^ICD9(^0;1^Q"
^DD(90.16,.01,.1)="PAST PRINCIPAL ICD9 DX"
^DD(90.16,.01,1,0)="^.1^^0"
^DD(90.16,.01,3)=""
^DD(90.16,.01,9)="^"
^DD(90.16,.01,"DT")="2841025"
^DD(90.16,1,0)="*DATE PAST PRINCIPAL ICD9 DX^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(90.16,1,.1)="DATE PAST PRINCIPAL ICD9 DX"
^DD(90.16,1,1,0)="^.1"
^DD(90.16,1,1,1,0)="^^TRIGGER^90.16^2"
^DD(90.16,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 X ^DD(90.16,1,1,1,9.2) S X=$P($G(^VA(200,+$P(Y(102),U,3),0)),U) S D1=Y(1) S DIU=X K Y S X=DIV S X=DUZ X ^DD(90.16,1,1,1,1.4)"
^DD(90.16,1,1,1,1.4)="S DIH=$S($D(^MR(DIV(0),""PPDX"",DIV(1),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90.16,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90.16,1,1,1,2)="Q"
^DD(90.16,1,1,1,9.2)="S Y(1)=$S($D(D1):D1,1:"""") S X=2841106 K DIC S Y=-1,DIC=""^MR(D0,""""PPDX"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S D1=+Y,DIV(1)=+Y S Y(102)=$S($D(^MR(D0,""PPDX"",D1,0)):^(0),1:"""")"
^DD(90.16,1,1,1,"CREATE VALUE")="S X=DUZ"
^DD(90.16,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(90.16,1,1,1,"FIELD")="116:116:ICD9 DIAGNOSIS BY"
^DD(90.16,1,9)="^"
^DD(90.16,1,"DT")="2841010"
^DD(90.16,2,0)="*ICD9 DIAGNOSIS BY^P200'^VA(200,^0;3^Q"
^DD(90.16,2,.1)="ICD9 DIAGNOSIS BY"
^DD(90.16,2,5,1,0)="90.16^1^1"
^DD(90.16,2,9)="^"
^DD(90.16,2,"DT")="2841005"
^DD(90.16,"B","*DATE PAST PRINCIPAL ICD9 DX",1)=""
^DD(90.16,"B","*ICD9 DIAGNOSIS BY",2)=""
^DD(90.16,"B","*PAST PRINCIPAL ICD9 DX",.01)=""
^DD(90.16,"B","DATE PAST PRINCIPAL ICD9 DX",1)="1"
^DD(90.16,"B","ICD9 DIAGNOSIS BY",2)="1"
^DD(90.16,"B","PAST PRINCIPAL ICD9 DX",.01)="1"
^DD(90.16,"GL",0,1,.01)=""
^DD(90.16,"GL",0,2,1)=""
^DD(90.16,"GL",0,3,2)=""
^DD(90.16,"IX",1)=""
^DD(90.16,"RQ",.01)=""
^DD(90.17,0)="*PAST ICD9 X DIAGNOSIS SUB-FIELD^NL^2^3"
^DD(90.17,0,"NM","*PAST ICD9 X DIAGNOSIS")=""
^DD(90.17,0,"UP")="90"
^DD(90.17,.01,0)="*PAST ICD9 X DIAGNOSIS^P80'^ICD9(^0;1^Q"
^DD(90.17,.01,.1)="PAST ICD9 X DIAGNOSIS"
^DD(90.17,.01,1,0)="^.1^^0"
^DD(90.17,.01,3)=""
^DD(90.17,.01,9)="^"
^DD(90.17,.01,"DT")="2841025"
^DD(90.17,1,0)="*PAST ICD9 X DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(90.17,1,.1)="PAST ICD9 X DATE"
^DD(90.17,1,1,0)="^.1"
^DD(90.17,1,1,1,0)="^^TRIGGER^90.17^2"
^DD(90.17,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 X ^DD(90.17,1,1,1,9.2) S X=$P($G(^VA(200,+$P(Y(102),U,3),0)),U) S D1=Y(1) S DIU=X K Y S X=DIV S X=DUZ X ^DD(90.17,1,1,1,1.4)"
^DD(90.17,1,1,1,1.4)="S DIH=$S($D(^MR(DIV(0),""XPDX"",DIV(1),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=90.17,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(90.17,1,1,1,2)="Q"
^DD(90.17,1,1,1,9.2)="S Y(1)=$S($D(D1):D1,1:"""") S X=2841107 K DIC S Y=-1,DIC=""^MR(D0,""""XPDX"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S D1=+Y,DIV(1)=+Y S Y(102)=$S($D(^MR(D0,""XPDX"",D1,0)):^(0),1:"""")"
^DD(90.17,1,1,1,"CREATE VALUE")="S X=DUZ"
^DD(90.17,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(90.17,1,1,1,"FIELD")="117:117:ICD9 X DIAGNOSIS BY"
^DD(90.17,1,9)="^"
^DD(90.17,1,"DT")="2841010"
^DD(90.17,2,0)="*ICD9 X DIAGNOSIS BY^P200'^VA(200,^0;3^Q"
^DD(90.17,2,.1)="ICD9 X DIAGNOSIS BY"
^DD(90.17,2,5,1,0)="90.17^1^1"
^DD(90.17,2,9)="^"
^DD(90.17,2,"DT")="2841005"
^DD(90.17,"B","*ICD9 X DIAGNOSIS BY",2)=""
^DD(90.17,"B","*PAST ICD9 X DATE",1)=""
^DD(90.17,"B","*PAST ICD9 X DIAGNOSIS",.01)=""
^DD(90.17,"B","ICD9 X DIAGNOSIS BY",2)="1"
^DD(90.17,"B","PAST ICD9 X DATE",1)="1"
^DD(90.17,"B","PAST ICD9 X DIAGNOSIS",.01)="1"
^DD(90.17,"GL",0,1,.01)=""
^DD(90.17,"GL",0,2,1)=""
^DD(90.17,"GL",0,3,2)=""
^DD(90.17,"IX",1)=""
^DD(95,0)="FIELD^^1^6"
^DD(95,0,"DDA")="N"
^DD(95,0,"IX","B",95,.01)=""
^DD(95,0,"IX","C",95,.02)=""
^DD(95,0,"NM","LAB JOURNAL")=""
^DD(95,0,"PT",61.02,2)=""
^DD(95,0,"PT",61.12,2)=""
^DD(95,0,"PT",61.21,2)=""
^DD(95,0,"PT",61.32,2)=""
^DD(95,0,"PT",61.411,2)=""
^DD(95,0,"PT",61.52,2)=""
^DD(95,0,"PT",61.62,2)=""
^DD(95,0,"VR")="5.2"
^DD(95,.01,0)="JOURNAL ABBREVIATION^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(95,.01,.1)="INDEX MEDICUS ABBREVIATION"
^DD(95,.01,1,0)="^.1"
^DD(95,.01,1,1,0)="95^B"
^DD(95,.01,1,1,1)="S ^LAB(95,""B"",$E(X,1,30),DA)="""""
^DD(95,.01,1,1,2)="K ^LAB(95,""B"",$E(X,1,30),DA)"
^DD(95,.01,1,1,"DT")="2930823"
^DD(95,.01,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(95,.01,21,0)="^^1^1^2860730^^^"
^DD(95,.01,21,1,0)="Please use the standard abbreviation of the medical journal that appears in INDEX MEDICUS"
^DD(95,.01,"DEL",1,0)="I 1"
^DD(95,.01,"DT")="2930823"
^DD(95,.02,0)="FULL NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<2) X"
^DD(95,.02,1,0)="^.1"
^DD(95,.02,1,1,0)="95^C"
^DD(95,.02,1,1,1)="S ^LAB(95,""C"",$E(X,1,30),DA)="""""
^DD(95,.02,1,1,2)="K ^LAB(95,""C"",$E(X,1,30),DA)"
^DD(95,.02,1,1,"DT")="2930823"
^DD(95,.02,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(95,.02,21,0)="^^1^1^2930329^"
^DD(95,.02,21,1,0)="Full name of the Lab journal entry"
^DD(95,.02,"DT")="2930823"
^DD(95,.03,0)="CITY OF PUBLICATION^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(95,.03,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(95,.03,21,0)="^^1^1^2930329^"
^DD(95,.03,21,1,0)="City where journal was published"
^DD(95,.03,"DT")="2860709"
^DD(95,.04,0)="NLM CALL NUMBER^F^^0;4^K:$L(X)>30!($L(X)<2) X"
^DD(95,.04,.1)="NATIONAL LIBRARY OF MED CALL NUMBER"
^DD(95,.04,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(95,.04,21,0)="^^1^1^2930329^"
^DD(95,.04,21,1,0)="The National Library of Medicine call number"
^DD(95,.04,"DT")="2860709"
^DD(95,.05,0)="NLM TITLE CONTROL NUMBER^F^^0;5^K:$L(X)>9!($L(X)<9) X"
^DD(95,.05,3)="ANSWER MUST BE 9 CHARACTERS IN LENGTH"
^DD(95,.05,21,0)="^^1^1^2930329^"
^DD(95,.05,21,1,0)="The National Library of Medicine title control number"
^DD(95,.05,"DT")="2860709"
^DD(95,1,0)="COMMENT^95.01^^1;0"
^DD(95,1,21,0)="^^1^1^2930329^"
^DD(95,1,21,1,0)="Any comment referencing this journal entry"
^DD(95,"B","CITY OF PUBLICATION",.03)=""
^DD(95,"B","COMMENT",1)=""
^DD(95,"B","FULL NAME",.02)=""
^DD(95,"B","INDEX MEDICUS ABBREVIATION",.01)="1"
^DD(95,"B","JOURNAL ABBREVIATION",.01)=""
^DD(95,"B","NLM CALL NUMBER",.04)=""
^DD(95,"B","NLM TITLE CONTROL NUMBER",.05)=""
^DD(95,"GL",0,1,.01)=""
^DD(95,"GL",0,2,.02)=""
^DD(95,"GL",0,3,.03)=""
^DD(95,"GL",0,4,.04)=""
^DD(95,"GL",0,5,.05)=""
^DD(95,"GL",1,0,1)=""
^DD(95,"IX",.01)=""
^DD(95,"IX",.02)=""
^DD(95,"RQ",.01)=""
^DD(95,"SB",95.01,1)=""
^DD(95.01,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(95.01,0,"NM","COMMENT")=""
^DD(95.01,0,"UP")="95"
^DD(95.01,.01,0)="COMMENT^W^^0;1^Q"
^DD(95.01,.01,"DT")="2860305"
^DD(95.01,"B","COMMENT",.01)=""
^DD(95.01,"GL",0,1,.01)=""
^DD(95.11,0)="FIELD^^20^21"
^DD(95.11,0,"DDA")="N"
^DD(95.11,0,"DT")="2950817"
^DD(95.11,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(95.11,0,"ID",4)="W ""   "",$E($P(^(0),U,5),4,5)_""-""_$E($P(^(0),U,5),6,7)_""-""_$E($P(^(0),U,5),2,3)"
^DD(95.11,0,"ID",5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(95.11,0,"ID",7)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(95.11,7,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,8)_"""":"""",2),$C(59),1)"")"
^DD(95.11,0,"ID",7.5)="S %I=Y,Y=$S('$D(^(2)):"""",$D(^VA(200,+$P(^(2),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(95.11,0,"IX","B",95.11,.01)=""
^DD(95.11,0,"IX","C",95.11,1)=""
^DD(95.11,0,"IX","O",95.11,7)=""
^DD(95.11,0,"NM","LAB ARCHIVAL ACTIVITY")=""
^DD(95.11,0,"VR")="5.2"
^DD(95.11,0,"VRPK")="LR"
^DD(95.11,.01,0)="ARCHIVE NUMBER^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(95.11,.01,1,0)="^.1"
^DD(95.11,.01,1,1,0)="95.11^B"
^DD(95.11,.01,1,1,1)="S ^LAB(95.11,""B"",$E(X,1,30),DA)="""""
^DD(95.11,.01,1,1,2)="K ^LAB(95.11,""B"",$E(X,1,30),DA)"
^DD(95.11,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(95.11,.01,21,0)="^^2^2^2950410^^"
^DD(95.11,.01,21,1,0)="This is a sequential number of an arhive activity."
^DD(95.11,.01,21,2,0)="Example: Archival activity number 1 would be the first archive performed."
^DD(95.11,.01,"DT")="2950410"
^DD(95.11,1,0)="FILE^P1'^DIC(^0;2^Q"
^DD(95.11,1,1,0)="^.1"
^DD(95.11,1,1,1,0)="95.11^C"
^DD(95.11,1,1,1,1)="S ^LAB(95.11,""C"",$E(X,1,30),DA)="""""
^DD(95.11,1,1,1,2)="K ^LAB(95.11,""C"",$E(X,1,30),DA)"
^DD(95.11,1,1,1,"%D",0)="^^1^1^2950410^"
^DD(95.11,1,1,1,"%D",1,0)="This cross-reference allows lookup by file."
^DD(95.11,1,1,1,"DT")="2950410"
^DD(95.11,1,3)="Enter the file that this archival activity will effect."
^DD(95.11,1,21,0)="^^1^1^2950410^"
^DD(95.11,1,21,1,0)="This is the source file."
^DD(95.11,1,"DT")="2950410"
^DD(95.11,2,0)="SEARCH TEMPLATE^RP.401'^DIBT(^0;3^Q"
^DD(95.11,2,3)="Enter the name of the sort/search template that you wish to use."
^DD(95.11,2,21,0)="^^1^1^2950410^^^"
^DD(95.11,2,21,1,0)="This is the sort/search template for this archival activity."
^DD(95.11,2,"DT")="2950410"
^DD(95.11,3,0)="PRINT TEMPLATE^R*P.4'X^DIPT(^0;4^S DIC(""S"")=""I $P(^(0),U,8)=""_$S($D(DIAX):2,1:1)_"",$P(^(0),U,4)=$P(^LAB(95.11,DA,0),U,2)"",DIC(0)=""QE"",D=""F""++$P(^LAB(95.11,DA,0),U,2) D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(95.11,3,3)="Enter the name of the FILEGRAM OR EXTRACT print template that you wish to use."
^DD(95.11,3,12)="Select a print template in Filegram or Extract Format."
^DD(95.11,3,12.1)="S DIC(""S"")=""I $P(^(0),U,8)=""_$S($D(DIAX):2,1:1)_"",$P(^(0),U,4)=$P(^LAB(95.11,DA,0),U,2)"""
^DD(95.11,3,21,0)="^^1^1^2950410^^"
^DD(95.11,3,21,1,0)="This is the extrtact print template used in this archival activity."
^DD(95.11,3,"DT")="2950410"
^DD(95.11,4,0)="SELECT DATE^RD^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(95.11,4,3)="Enter the select date of this archival activity."
^DD(95.11,4,21,0)="^^1^1^2950410^^^"
^DD(95.11,4,21,1,0)="This is the select date of the archival activity."
^DD(95.11,4,"DT")="2950410"
^DD(95.11,5,0)="ARCHIVER^P200'^VA(200,^0;6^Q"
^DD(95.11,5,3)="Enter the name of the user that is doing the archiving."
^DD(95.11,5,21,0)="^^1^1^2950410^"
^DD(95.11,5,21,1,0)="This is the name of the user who is performing the archiving."
^DD(95.11,5,"DT")="2950410"
^DD(95.11,6,0)="NUMBER OF ITEMS TO ARCHIVE^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(95.11,6,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(95.11,6,21,0)="^^1^1^2950410^^"
^DD(95.11,6,21,1,0)="This is the number of items to archive."
^DD(95.11,6,"DT")="2950410"
^DD(95.11,7,0)="ARCHIVAL STATUS^S^1:SELECTED;2:ARCHIVED;3:CLEARED;90:PURGED;^0;8^Q"
^DD(95.11,7,1,0)="^.1"
^DD(95.11,7,1,1,0)="95.11^O^MUMPS"
^DD(95.11,7,1,1,1)="S ^LAB(95.11,""O"",X,+$P(^LAB(95.11,DA,0),U,2),DA)="""""
^DD(95.11,7,1,1,2)="K ^LAB(95.11,""O"",X,+$P(^LAB(95.11,DA,0),U,2),DA)"
^DD(95.11,7,1,1,"%D",0)="^^1^1^2950501^^^"
^DD(95.11,7,1,1,"%D",1,0)="This cross-reference identifies the active archival activity for a file."
^DD(95.11,7,1,1,"DT")="2950501"
^DD(95.11,7,21,0)="^^1^1^2950410^^"
^DD(95.11,7,21,1,0)="This is the status of the archival activity."
^DD(95.11,7,"DT")="2950501"
^DD(95.11,7.5,0)="SELECTOR^P200'^VA(200,^2;1^Q"
^DD(95.11,7.5,3)="This is the person who selected entries for archival."
^DD(95.11,7.5,21,0)="^^1^1^2950410^"
^DD(95.11,7.5,21,1,0)="This is the person who selected entries for archival."
^DD(95.11,7.5,"DT")="2950410"
^DD(95.11,8,0)="PURGER^P200'^VA(200,^0;9^Q"
^DD(95.11,8,21,0)="^^1^1^2950410^"
^DD(95.11,8,21,1,0)="This is the person who performs the purge."
^DD(95.11,8,"DT")="2950410"
^DD(95.11,9,0)="ARCHIVE DATE^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(95.11,9,3)="Enter the archive date of this archival activity."
^DD(95.11,9,21,0)="^^1^1^2950410^"
^DD(95.11,9,21,1,0)="This is the archive date of this archival activity."
^DD(95.11,9,"DT")="2950410"
^DD(95.11,10,0)="PURGE DATE^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(95.11,10,3)="Enter the purge date of this archival activity."
^DD(95.11,10,21,0)="^^1^1^2950410^"
^DD(95.11,10,21,1,0)="This is the purge date of this archival activity."
^DD(95.11,10,"DT")="2950410"
^DD(95.11,11,0)="DATE LAST PRINTED^D^^0;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(95.11,11,3)="Enter the date that the listing of items to be archived was last printed."
^DD(95.11,11,21,0)="^^1^1^2950410^^"
^DD(95.11,11,21,1,0)="This is the date that the listing of items to be archived was last printed."
^DD(95.11,11,"DT")="2950410"
^DD(95.11,12,0)="ARCHIVING ACTION IN PROGRESS^S^1:SELECTING;2:ARCHIVING;3:CLEARING;90:PURGING;99:CANCELLING;^0;13^Q"
^DD(95.11,12,3)="Entry will be made here by system when user begins performing some action to this ARCHIVAL ACTIVITY and will be deleted when action is complete, to lock out other users."
^DD(95.11,12,21,0)="^^3^3^2950608^^^"
^DD(95.11,12,21,1,0)="Entry will be made here by system when user begins performing some"
^DD(95.11,12,21,2,0)="action to this ARCHIVAL ACTIVITY and will be deleted when action is"
^DD(95.11,12,21,3,0)="complete, to lock out other users."
^DD(95.11,12,"DT")="2950608"
^DD(95.11,13,0)="DATE/TIME ACTIVITY BEGAN^D^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(95.11,13,3)="Date/time user began archiving action currently in progress."
^DD(95.11,13,21,0)="^^1^1^2950410^"
^DD(95.11,13,21,1,0)="This is the date/time the archiving action currently in progress began."
^DD(95.11,13,"DT")="2950410"
^DD(95.11,14,0)="USER PERFORMING ACTION^P200'^VA(200,^0;15^Q"
^DD(95.11,14,3)="User that initiated the archiving action."
^DD(95.11,14,21,0)="^^1^1^2950410^"
^DD(95.11,14,21,1,0)="This is the user that initiated the archiving action."
^DD(95.11,14,"DT")="2950410"
^DD(95.11,15,0)="DESTINATION FILE^P1'^DIC(^0;16^Q"
^DD(95.11,15,3)="Ente the number of the destination file for this archival activity."
^DD(95.11,15,21,0)="^^2^2^2950410^"
^DD(95.11,15,21,1,0)="This field holds the number of the destination file for this"
^DD(95.11,15,21,2,0)="archival activity."
^DD(95.11,15,"DT")="2950410"
^DD(95.11,16,0)="ARCHIVE DEVICE LABEL^F^^0;17^K:$L(X)>45!($L(X)<2) X"
^DD(95.11,16,3)="Answer must be 2-45 characters in length."
^DD(95.11,16,21,0)="^^2^2^2950410^"
^DD(95.11,16,21,1,0)="This field holds the label information that identifies your "
^DD(95.11,16,21,2,0)="archival medium."
^DD(95.11,16,"DT")="2950410"
^DD(95.11,18,0)="ARCHIVE TASK NUMBER^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(95.11,18,3)="Answer must be 1-30 characters in length."
^DD(95.11,18,21,0)="^^2^2^2950613^"
^DD(95.11,18,21,1,0)="This is the task number of the Archive data option for this"
^DD(95.11,18,21,2,0)="Lab archival activity."
^DD(95.11,18,"DT")="2950613"
^DD(95.11,19,0)="BEGINNING DATE^D^^1;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(95.11,19,3)="This field is entered through the archive routines."
^DD(95.11,19,21,0)="^^1^1^2951002^"
^DD(95.11,19,21,1,0)="The selected date to begin archiving."
^DD(95.11,19,"DT")="2950817"
^DD(95.11,20,0)="ENDING DATE^D^^1;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(95.11,20,3)="This field is entered through the archive routines."
^DD(95.11,20,21,0)="^^1^1^2951002^"
^DD(95.11,20,21,1,0)="The selected date to end archiving."
^DD(95.11,20,"DT")="2950817"
^DD(95.11,"B","ARCHIVAL STATUS",7)=""
^DD(95.11,"B","ARCHIVE DATE",9)=""
^DD(95.11,"B","ARCHIVE DEVICE LABEL",16)=""
^DD(95.11,"B","ARCHIVE NUMBER",.01)=""
^DD(95.11,"B","ARCHIVE TASK NUMBER",18)=""
^DD(95.11,"B","ARCHIVER",5)=""
^DD(95.11,"B","ARCHIVING ACTION IN PROGRESS",12)=""
^DD(95.11,"B","BEGINNING DATE",19)=""
^DD(95.11,"B","DATE LAST PRINTED",11)=""
^DD(95.11,"B","DATE/TIME ACTIVITY BEGAN",13)=""
^DD(95.11,"B","DESTINATION FILE",15)=""
^DD(95.11,"B","ENDING DATE",20)=""
^DD(95.11,"B","FILE",1)=""
^DD(95.11,"B","NUMBER OF ITEMS TO ARCHIVE",6)=""
^DD(95.11,"B","PRINT TEMPLATE",3)=""
^DD(95.11,"B","PURGE DATE",10)=""
^DD(95.11,"B","PURGER",8)=""
^DD(95.11,"B","SEARCH TEMPLATE",2)=""
^DD(95.11,"B","SELECT DATE",4)=""
^DD(95.11,"B","SELECTOR",7.5)=""
^DD(95.11,"B","USER PERFORMING ACTION",14)=""
^DD(95.11,"GL",0,1,.01)=""
^DD(95.11,"GL",0,2,1)=""
^DD(95.11,"GL",0,3,2)=""
^DD(95.11,"GL",0,4,3)=""
^DD(95.11,"GL",0,5,4)=""
^DD(95.11,"GL",0,6,5)=""
^DD(95.11,"GL",0,7,6)=""
^DD(95.11,"GL",0,8,7)=""
^DD(95.11,"GL",0,9,8)=""
^DD(95.11,"GL",0,10,9)=""
^DD(95.11,"GL",0,11,10)=""
^DD(95.11,"GL",0,12,11)=""
^DD(95.11,"GL",0,13,12)=""
^DD(95.11,"GL",0,14,13)=""
^DD(95.11,"GL",0,15,14)=""
^DD(95.11,"GL",0,16,15)=""
^DD(95.11,"GL",0,17,16)=""
^DD(95.11,"GL",1,1,19)=""
^DD(95.11,"GL",1,2,20)=""
^DD(95.11,"GL",2,1,7.5)=""
^DD(95.11,"GL",2,2,18)=""
^DD(95.11,"IX",.01)=""
^DD(95.11,"IX",1)=""
^DD(95.11,"IX",7)=""
^DD(95.11,"RQ",.01)=""
^DD(95.11,"RQ",2)=""
^DD(95.11,"RQ",3)=""
^DD(95.11,"RQ",4)=""
^DD(95.3,0)="FIELD^^99.991^44"
^DD(95.3,0,"DDA")="N"
^DD(95.3,0,"DT")="3050815"
^DD(95.3,0,"ID",15)="W ""-"",$P(^(0),U,15),"" VUID "",$P($G(^(""VUID"")),U)"
^DD(95.3,0,"ID",80)="W:$D(^(80)) !,""   "",$P(^(80),U,1)"
^DD(95.3,0,"IX","AC",95.3,34)=""
^DD(95.3,0,"IX","AD",95.3,20)=""
^DD(95.3,0,"IX","AVUID",95.3,99.99)=""
^DD(95.3,0,"IX","B",95.3,.01)=""
^DD(95.3,0,"IX","C",95.3,1)=""
^DD(95.3,0,"IX","D",95.39,.01)=""
^DD(95.3,0,"IX","E",95.3,81)=""
^DD(95.3,0,"IX","VR",95.3,.01)=""
^DD(95.3,0,"NM","LAB LOINC")=""
^DD(95.3,0,"PT",60.01,95.3)=""
^DD(95.3,0,"PT",62.801,1.14)=""
^DD(95.3,0,"PT",62.801,1.24)=""
^DD(95.3,0,"PT",62.801,2.14)=""
^DD(95.3,0,"PT",62.801,2.24)=""
^DD(95.3,0,"PT",62.801,2.34)=""
^DD(95.3,0,"PT",62.9001,1.16)=""
^DD(95.3,0,"PT",62.9001,1.26)=""
^DD(95.3,0,"PT",62.9001,2.16)=""
^DD(95.3,0,"PT",62.9001,2.26)=""
^DD(95.3,0,"PT",62.9001,2.36)=""
^DD(95.3,0,"PT",64,25)=""
^DD(95.3,0,"PT",64.02,4)=""
^DD(95.3,0,"PT",64.8117,26)=""
^DD(95.3,0,"PT",95.3,21)=""
^DD(95.3,0,"PT",522008.01,.01)=""
^DD(95.3,0,"VR")="5.2"
^DD(95.3,0,"VRPK")="LR"
^DD(95.3,0,"VRRV")="2.14"
^DD(95.3,.001,0)="SEQUENCE^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(95.3,.001,3)="Type a number between 1 and 9999999, 0 Decimal Digits"
^DD(95.3,.001,9)="^"
^DD(95.3,.001,"DT")="3040901"
^DD(95.3,.01,0)="CODE^RNJ7,0OXI^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(95.3,.01,.1)="LOINC_CODE"
^DD(95.3,.01,1,0)="^.1"
^DD(95.3,.01,1,1,0)="95.3^B"
^DD(95.3,.01,1,1,1)="S ^LAB(95.3,""B"",$E(X,1,30),DA)="""""
^DD(95.3,.01,1,1,2)="K ^LAB(95.3,""B"",$E(X,1,30),DA)"
^DD(95.3,.01,1,1,"DT")="2980923"
^DD(95.3,.01,1,2,0)="95.3^VR^MUMPS"
^DD(95.3,.01,1,2,1)="S ^LAB(95.3,""VR"")=$G(^LAB(95.3,""VR""))"
^DD(95.3,.01,1,2,2)="Q"
^DD(95.3,.01,1,2,3)="This is the version of the data files loaded."
^DD(95.3,.01,1,2,"%D",0)="^^11^11^3030909^"
^DD(95.3,.01,1,2,"%D",1,0)="This X-ref is used to determine the patch # and the version of the data "
^DD(95.3,.01,1,2,"%D",2,0)="loaded on the system. This differs from the version node of the DDs "
^DD(95.3,.01,1,2,"%D",3,0)="(field definition). This field is set by the post install routine and "
^DD(95.3,.01,1,2,"%D",4,0)="should not be directly edited."
^DD(95.3,.01,1,2,"%D",5,0)=" "
^DD(95.3,.01,1,2,"%D",6,0)="Format of the node is LOINC VERSION_2nd line of the post install patch "
^DD(95.3,.01,1,2,"%D",7,0)="routine. Looks like:"
^DD(95.3,.01,1,2,"%D",8,0)="^LAB(95.3,""VR"") = 2.09;;5.2;LAB SERVICE;**274**;Sep 27,1994"
^DD(95.3,.01,1,2,"%D",9,0)=" "
^DD(95.3,.01,1,2,"%D",10,0)="There is an alternate location of version number stored in the DDs."
^DD(95.3,.01,1,2,"%D",11,0)="^DD(95.3,0,""VRRV"") = 2.09"
^DD(95.3,.01,1,2,"DT")="3030909"
^DD(95.3,.01,2)="S Y(0)=Y S:Y]"""" Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(95.3,.01,2.1)="S:Y]"""" Y=$S($L($P($G(^LAB(95.3,Y,0)),U,15)):Y_""-""_$P(^LAB(95.3,Y,0),U,15),1:Y)"
^DD(95.3,.01,3)="The unique LOINC code."
^DD(95.3,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(95.3,.01,9)="^"
^DD(95.3,.01,21,0)="^^1^1^3050505^"
^DD(95.3,.01,21,1,0)="The unique LOINC code in numeric form."
^DD(95.3,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(95.3,.01,"DT")="3050214"
^DD(95.3,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(95.3,1,0)="COMPONENT^P95.31'^LAB(95.31,^0;2^Q"
^DD(95.3,1,1,0)="^.1"
^DD(95.3,1,1,1,0)="95.3^C"
^DD(95.3,1,1,1,1)="S ^LAB(95.3,""C"",$E(X,1,30),DA)="""""
^DD(95.3,1,1,1,2)="K ^LAB(95.3,""C"",$E(X,1,30),DA)"
^DD(95.3,1,1,1,"DT")="2960418"
^DD(95.3,1,9)="^"
^DD(95.3,1,21,0)="^^2^2^2981010^"
^DD(95.3,1,21,1,0)="The name of the component or analyte measured e.g., potassium,"
^DD(95.3,1,21,2,0)="hemoglobin, or hepatitis C antigen."
^DD(95.3,1,"DT")="2980924"
^DD(95.3,1.5,0)="CHALLENGE^*P64.061'^LAB(64.061,^0;3^S DIC(""S"")=""I $P(^(0),U,7)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(95.3,1.5,1,0)="^.1^^0"
^DD(95.3,1.5,9)="^"
^DD(95.3,1.5,12)="TYPE=CHALLENGE"
^DD(95.3,1.5,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""C"""""""
^DD(95.3,1.5,21,0)="^^2^2^2981013^^"
^DD(95.3,1.5,21,1,0)="This field contains information necessary to interpret ""challenge"""
^DD(95.3,1.5,21,2,0)="(or loading or tolerance) tests."
^DD(95.3,1.5,"DT")="2980924"
^DD(95.3,1.6,0)="ADJUSTMENT^*P64.061'^LAB(64.061,^0;4^S DIC(""S"")=""I $P(^(0),U,7)=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(95.3,1.6,1,0)="^.1^^0"
^DD(95.3,1.6,9)="^"
^DD(95.3,1.6,12)="TYPE=ADJUSTMENT"
^DD(95.3,1.6,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""A"""""""
^DD(95.3,1.6,21,0)="^^2^2^2981010^"
^DD(95.3,1.6,21,1,0)="This field contains calculations that adjust or correct some"
^DD(95.3,1.6,21,2,0)="measured value."
^DD(95.3,1.6,"DT")="2980924"
^DD(95.3,1.7,0)="NON-PATIENT SPECIMEN^*P64.061'^LAB(64.061,^0;5^S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(95.3,1.7,1,0)="^.1^^0"
^DD(95.3,1.7,3)=""
^DD(95.3,1.7,9)="^"
^DD(95.3,1.7,12)="TYPE=SPECIMEN"
^DD(95.3,1.7,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""S"""""""
^DD(95.3,1.7,21,0)="^^5^5^2981106^^"
^DD(95.3,1.7,21,1,0)="The second subpart of the system distinguishes observations on the"
^DD(95.3,1.7,21,2,0)="patient (or samples taken from the patient or donor) from observations"
^DD(95.3,1.7,21,3,0)="on non-patient materials that relate to the patient, e.g. a blood"
^DD(95.3,1.7,21,4,0)="product unit (BPU).  When the person or super system is not included"
^DD(95.3,1.7,21,5,0)="in a name, it can be assumed to be the patient."
^DD(95.3,1.7,"DT")="2981106"
^DD(95.3,2,0)="PROPERTY^*P64.061'I^LAB(64.061,^0;6^S DIC(""S"")=""I $P(^(0),U,7)=""""PR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(95.3,2,1,0)="^.1^^0"
^DD(95.3,2,9)="^"
^DD(95.3,2,12)="TYPE=PROPERTY"
^DD(95.3,2,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""PR"""""""
^DD(95.3,2,21,0)="^^2^2^2981010^"
^DD(95.3,2,21,1,0)="This field contains the property measured- e.g., a mass concentration"
^DD(95.3,2,21,2,0)="or enzyme activity."
^DD(95.3,2,"DT")="3010824"
^DD(95.3,3,0)="TIME ASPECT^P64.061'^LAB(64.061,^0;7^Q"
^DD(95.3,3,.1)="TIME_ASPCT"
^DD(95.3,3,1,0)="^.1^^0"
^DD(95.3,3,9)="^"
^DD(95.3,3,21,0)="^^1^1^2981010^"
^DD(95.3,3,21,1,0)="Point or moment in time vs. time interval, e.g., 24-hour urine."
^DD(95.3,3,"DT")="2981027"
^DD(95.3,3.1,0)="TIME MODIFIER^*P64.061'^LAB(64.061,^0;17^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(95.3,3.1,.1)="TIME_MOD"
^DD(95.3,3.1,9)="^"
^DD(95.3,3.1,12)="TYPE=MEASUREMENTS"
^DD(95.3,3.1,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(95.3,3.1,21,0)="^^7^7^2990107^^"
^DD(95.3,3.1,21,1,0)="The second and optional subpart of the time component allows an"
^DD(95.3,3.1,21,2,0)="indication of some sub selection or integration of the measures"
^DD(95.3,3.1,21,3,0)="taken over the defined period of time, so 8H^MAX heart rate would"
^DD(95.3,3.1,21,4,0)="be the highest heart rate observed over 8H(Shift), MIN, MAX, FIRST,"
^DD(95.3,3.1,21,5,0)="LAST, MEAN are the other possible values for this subpart.  When"
^DD(95.3,3.1,21,6,0)="nothing is stored in this subpart, we assume a mean value over the"
^DD(95.3,3.1,21,7,0)="time period in question."
^DD(95.3,3.1,"DT")="2981027"
^DD(95.3,4,0)="SYSTEM^P64.061'^LAB(64.061,^0;8^Q"
^DD(95.3,4,1,0)="^.1^^0"
^DD(95.3,4,9)="^"
^DD(95.3,4,21,0)="^^1^1^2981013^"
^DD(95.3,4,21,1,0)="This field contains the specimen."
^DD(95.3,4,"DT")="2981009"
^DD(95.3,5,0)="SCALE TYPE^P64.061'^LAB(64.061,^0;9^Q"
^DD(95.3,5,.1)="SCALE_TYP"
^DD(95.3,5,1,0)="^.1^^0"
^DD(95.3,5,9)="^"
^DD(95.3,5,21,0)="^^4^4^2990119^^^"
^DD(95.3,5,21,1,0)="The field contains the data part of the test name which specifies the "
^DD(95.3,5,21,2,0)="scale of the measure, and is a required part.  The abbreviation of the"
^DD(95.3,5,21,3,0)="type of scale (previously called precision), should be used in the fully"
^DD(95.3,5,21,4,0)="specified name."
^DD(95.3,5,"DT")="2981027"
^DD(95.3,6,0)="METHOD TYPE^P64.2'^LAB(64.2,^0;10^Q"
^DD(95.3,6,.1)="METHOD_TYP"
^DD(95.3,6,1,0)="^.1^^0"
^DD(95.3,6,9)="^"
^DD(95.3,6,21,0)="^.001^6^6^3010724^^^^"
^DD(95.3,6,21,1,0)="The method by which the test was performed.  Methods need only be"
^DD(95.3,6,21,2,0)="expressed as part of the name when they provide a distinction between"
^DD(95.3,6,21,3,0)="tests that measure the same component (analyte) but which have different"
^DD(95.3,6,21,4,0)="clinical significance or have different clinical reference ranges.  For"
^DD(95.3,6,21,5,0)="instance, whole blood glucose tested with a chemstrip might be distinguished"
^DD(95.3,6,21,6,0)="in the method field."
^DD(95.3,6,"DT")="3010724"
^DD(95.3,7,0)="CLASS^P64.061'^LAB(64.061,^0;11^Q"
^DD(95.3,7,9)="^"
^DD(95.3,7,21,0)="^^3^3^2981014^"
^DD(95.3,7,21,1,0)="An arbitrary classification of the terms for grouping related"
^DD(95.3,7,21,2,0)="observations together.  Some examples are CHEM for Chemistry,"
^DD(95.3,7,21,3,0)="MICRO for Microbiology, and BLDBK for Blood Bank."
^DD(95.3,7,"DT")="2981029"
^DD(95.3,8,0)="SOURCE^F^^0;12^K:$L(X)>10!($L(X)<1) X"
^DD(95.3,8,3)="Answer must be 1-10 characters in length."
^DD(95.3,8,9)="^"
^DD(95.3,8,21,0)="^^1^1^2981014^"
^DD(95.3,8,21,1,0)="Source is a field for internal use of the LOINC committee."
^DD(95.3,8,"DT")="2980928"
^DD(95.3,10,0)="UNITS^P64.061'^LAB(64.061,^0;14^Q"
^DD(95.3,10,9)="^"
^DD(95.3,10,21,0)="^^1^1^2981015^"
^DD(95.3,10,21,1,0)="This field contains the units of measure for the test of this specimen."
^DD(95.3,10,"DT")="2981102"
^DD(95.3,11,0)="NORMAL RANGE^F^^0;13^K:$L(X)>20!($L(X)<1) X"
^DD(95.3,11,.1)="NORM_RANGE"
^DD(95.3,11,3)="Answer must be 1-20 characters in length."
^DD(95.3,11,9)="^"
^DD(95.3,11,21,0)="^^1^1^2981015^"
^DD(95.3,11,21,1,0)="Normal Range - Example answers from real tests."
^DD(95.3,11,"DT")="2981027"
^DD(95.3,13,0)="MOLAR MASS^F^^0;16^K:$L(X)>15!($L(X)<1) X"
^DD(95.3,13,.1)="MOLAR_MASS"
^DD(95.3,13,3)="Answer must be 1-15 characters in length."
^DD(95.3,13,9)="^"
^DD(95.3,13,21,0)="^^3^3^2981015^^"
^DD(95.3,13,21,1,0)="Molecular weights: This field contains the molecular weights of"
^DD(95.3,13,21,2,0)="chemical moieties when they are provided to LOINC.  This release"
^DD(95.3,13,21,3,0)="contains values kindly contributed by IUPAC."
^DD(95.3,13,"DT")="2981027"
^DD(95.3,15,0)="CHECK DIGIT^NJ1,0^^0;15^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(95.3,15,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(95.3,15,9)="^"
^DD(95.3,15,21,0)="^^16^16^3030902^"
^DD(95.3,15,21,1,0)="Note: the data contained in this field contains some incorrect values due "
^DD(95.3,15,21,2,0)="to errors in LOINC released database. When check digit computation errors "
^DD(95.3,15,21,3,0)="are discovered - STATUS (#20) field is marked as DEL preventing the code "
^DD(95.3,15,21,4,0)="from being assigned. Once a LOINC has be released it never deleted from "
^DD(95.3,15,21,5,0)="the database."
^DD(95.3,15,21,6,0)=" "
^DD(95.3,15,21,7,0)=" "
^DD(95.3,15,21,8,0)="This field contains the LOINC number modulo 10 check digit."
^DD(95.3,15,21,9,0)="The instruction for calculating a Mod 10 check digit is as follows:"
^DD(95.3,15,21,10,0)="(1) Take the odd digit positions counting from the right"
^DD(95.3,15,21,11,0)="(2) Multiply by 2"
^DD(95.3,15,21,12,0)="(3) Take the even digits starting from the right"
^DD(95.3,15,21,13,0)="(4) Append these to the front of the results of (2)"
^DD(95.3,15,21,14,0)="(5) Add the digits of (4) together"
^DD(95.3,15,21,15,0)="(6) Find the next highest multiple of 10"
^DD(95.3,15,21,16,0)="(7) Subtract (5) from (6)"
^DD(95.3,15,"DT")="2990604"
^DD(95.3,20,0)="STATUS^S^1:DEL;^4;1^Q"
^DD(95.3,20,1,0)="^.1"
^DD(95.3,20,1,1,0)="95.3^AD"
^DD(95.3,20,1,1,1)="S ^LAB(95.3,""AD"",$E(X,1,30),DA)="""""
^DD(95.3,20,1,1,2)="K ^LAB(95.3,""AD"",$E(X,1,30),DA)"
^DD(95.3,20,1,1,3)="List of Status"
^DD(95.3,20,1,1,"%D",0)="^.101^2^2^3050602^^"
^DD(95.3,20,1,1,"%D",1,0)="This cross reference will provide a listing of those LOINC codes that have"
^DD(95.3,20,1,1,"%D",2,0)=" status update."
^DD(95.3,20,1,1,"DT")="3050602"
^DD(95.3,20,3)="Enter 1 for deleted."
^DD(95.3,20,9)="^"
^DD(95.3,20,21,0)="^^5^5^2981014^"
^DD(95.3,20,21,1,0)="Deprecated or superseded status indicated by DEL in this field"
^DD(95.3,20,21,2,0)="(otherwise blank).  Used to mark terms as the database evolves."
^DD(95.3,20,21,3,0)="LOINC codes will never be reused nor will they be removed from"
^DD(95.3,20,21,4,0)="the database, they will instead be cross-referenced to superseding"
^DD(95.3,20,21,5,0)="terms in the MAP_TO field."
^DD(95.3,20,"DT")="3050602"
^DD(95.3,21,0)="MAP TO^P95.3'^LAB(95.3,^4;2^Q"
^DD(95.3,21,.1)="MAP_TO"
^DD(95.3,21,3)=""
^DD(95.3,21,9)="^"
^DD(95.3,21,21,0)="^^4^4^2981014^"
^DD(95.3,21,21,1,0)="Used when a field has been dropped from the active database (by"
^DD(95.3,21,21,2,0)="entering ""DEL"" in the Status field) because it has been replaced"
^DD(95.3,21,21,3,0)="by an updated term.  In those cases, Map_To contains the LOINC"
^DD(95.3,21,21,4,0)="code of the new term that should be used."
^DD(95.3,21,"DT")="3050214"
^DD(95.3,22,0)="DATE LAST CHANGED^D^^4;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(95.3,22,.1)="DT_LAST_CH"
^DD(95.3,22,9)="^"
^DD(95.3,22,21,0)="^^1^1^2981014^"
^DD(95.3,22,21,1,0)="Date last changed, in the format YYYYMMDD."
^DD(95.3,22,"DT")="2981027"
^DD(95.3,23,0)="CHANGE TYPE^F^^4;4^K:$L(X)>3!($L(X)<1) X"
^DD(95.3,23,.1)="CHNG_TYPE"
^DD(95.3,23,3)="Answer must be 1-3 characters in length."
^DD(95.3,23,9)="^"
^DD(95.3,23,21,0)="^^3^3^2981014^"
^DD(95.3,23,21,1,0)="Change Type Code.  DEL= Delete; ADD=add, NAM=change to Analyte/"
^DD(95.3,23,21,2,0)="Component (field #2); MAJ=change to name field other than #2"
^DD(95.3,23,21,3,0)="(#3-#7); MIN=change to field other than name."
^DD(95.3,23,"DT")="2981027"
^DD(95.3,24,0)="CHANGE REASON^F^^4;5^K:$L(X)>205!($L(X)<1) X"
^DD(95.3,24,.1)="CHNG_REAS"
^DD(95.3,24,3)="Answer must be 1-205 characters in length."
^DD(95.3,24,9)="^"
^DD(95.3,24,21,0)="^^2^2^3000105^^"
^DD(95.3,24,21,1,0)="Reason term was changed.  If a term has been changed, the reason"
^DD(95.3,24,21,2,0)="for the change is detailed here."
^DD(95.3,24,"DT")="3000105"
^DD(95.3,30,0)="EUCLIDES CODE^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(95.3,30,.1)="EUCLIDE_CD"
^DD(95.3,30,3)="Answer must be 1-10 characters in length."
^DD(95.3,30,9)="^"
^DD(95.3,30,21,0)="^^2^2^2981014^"
^DD(95.3,30,21,1,0)="EUCLIDES analyte code.  The Euclides code identifies the analyte"
^DD(95.3,30,21,2,0)="(the first subpart of the first part of the name.)"
^DD(95.3,30,"DT")="2981027"
^DD(95.3,31,0)="ASTM CODE^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(95.3,31,.1)="ASTM_CD"
^DD(95.3,31,3)="Answer must be 1-10 characters in length."
^DD(95.3,31,9)="^"
^DD(95.3,31,21,0)="^^3^3^2981014^"
^DD(95.3,31,21,1,0)="The ASTM codes apply to only a few of the tests (e.g., cell counts,"
^DD(95.3,31,21,2,0)="antibiotic sensitivities).  These are the codes included in the "
^DD(95.3,31,21,3,0)="appendices of HL7 and ASTM E1238-94."
^DD(95.3,31,"DT")="2981027"
^DD(95.3,32,0)="IUPAC CODE^F^^1;3^K:$L(X)>12!($L(X)<1) X"
^DD(95.3,32,.1)="IUPAC_CD"
^DD(95.3,32,3)="Answer must be 1-12 characters in length."
^DD(95.3,32,9)="^"
^DD(95.3,32,21,0)="^.001^1^1^3010814^^"
^DD(95.3,32,21,1,0)="The IUPAC code identifies the component, kind of property, and system."
^DD(95.3,32,"DT")="3010814"
^DD(95.3,33,0)="SNOMED CODE^F^^1;4^K:$L(X)>9!($L(X)<1) X"
^DD(95.3,33,.1)="SNOMED_CD"
^DD(95.3,33,3)="Answer must be 1-9 characters in length."
^DD(95.3,33,9)="^"
^DD(95.3,33,21,0)="^^1^1^2981015^"
^DD(95.3,33,21,1,0)="SNOMED Code (future versions).  Not currently used."
^DD(95.3,33,"DT")="2990727"
^DD(95.3,34,0)="VA CODE^F^^1;5^K:$L(X)>30!($L(X)<1) X"
^DD(95.3,34,.1)="VA_CD"
^DD(95.3,34,1,0)="^.1"
^DD(95.3,34,1,1,0)="95.3^AC"
^DD(95.3,34,1,1,1)="S ^LAB(95.3,""AC"",$E(X,1,30),DA)="""""
^DD(95.3,34,1,1,2)="K ^LAB(95.3,""AC"",$E(X,1,30),DA)"
^DD(95.3,34,1,1,3)="Contains the VA UID number"
^DD(95.3,34,1,1,"%D",0)="^^2^2^3050427^"
^DD(95.3,34,1,1,"%D",1,0)="This X-Ref will contains the VUID for this LOINC code."
^DD(95.3,34,1,1,"%D",2,0)="^LAB(95.3,""AC"",VUID,DA)="""""
^DD(95.3,34,1,1,"DT")="3050427"
^DD(95.3,34,3)="Answer must be 1-30 characters in length."
^DD(95.3,34,9)="^"
^DD(95.3,34,21,0)="^^2^2^3050427^"
^DD(95.3,34,21,1,0)="This field contains the VA Unique Identifier (VUID). This number is"
^DD(95.3,34,21,2,0)="assigned by the VA Master File Server (MFS)."
^DD(95.3,34,"DT")="3050427"
^DD(95.3,35,0)="METPATH CODE^F^^1;6^K:$L(X)>10!($L(X)<1) X"
^DD(95.3,35,.1)="METPATH_CODE"
^DD(95.3,35,3)="Answer must be 1-10 characters in length."
^DD(95.3,35,9)="^"
^DD(95.3,35,21,0)="^^1^1^2981015^"
^DD(95.3,35,21,1,0)="Metpath Code.  Not currently used."
^DD(95.3,35,"DT")="2981027"
^DD(95.3,36,0)="HCFA CODE^F^^1;7^K:$L(X)>10!($L(X)<1) X"
^DD(95.3,36,.1)="HCFA_CODE"
^DD(95.3,36,3)="Answer must be 1-10 characters in length."
^DD(95.3,36,9)="^"
^DD(95.3,36,21,0)="^^1^1^2981015^"
^DD(95.3,36,21,1,0)="HCFA code (future versions).  Not currently used."
^DD(95.3,36,"DT")="2981027"
^DD(95.3,37,0)="CDC CODE^F^^1;8^K:$L(X)>15!($L(X)<1) X"
^DD(95.3,37,.1)="CDC_CODE"
^DD(95.3,37,3)="Answer must be 1-15 characters in length."
^DD(95.3,37,9)="^"
^DD(95.3,37,21,0)="^^3^3^2991229^^"
^DD(95.3,37,21,1,0)="Code from the CDC Complexity file which maps laboratory tests"
^DD(95.3,37,21,2,0)="to the instruments used to perform them.  These codes are at the"
^DD(95.3,37,21,3,0)="analyte level, not the test instrument level."
^DD(95.3,37,"DT")="2991229"
^DD(95.3,38,0)="GPI CODE^F^^1;9^K:$L(X)>25!($L(X)<1) X"
^DD(95.3,38,.1)="GPI_CD"
^DD(95.3,38,3)="Answer must be 1-25 characters in length."
^DD(95.3,38,9)="^"
^DD(95.3,38,21,0)="^^2^2^2991229^^"
^DD(95.3,38,21,1,0)="GPI Code. For drugs, this field contains a map to the Medispan GPI"
^DD(95.3,38,21,2,0)="codes, a hierarchical system of classifying pharmaceutical products."
^DD(95.3,38,"DT")="2991229"
^DD(95.3,40,0)="IUPAC ANALYTE CODE^F^^1;11^K:$L(X)>15!($L(X)<1) X"
^DD(95.3,40,.1)="IUPC_ANLT_CD"
^DD(95.3,40,3)="Answer must be 1-15 characters in length."
^DD(95.3,40,9)="^"
^DD(95.3,40,21,0)="^^3^3^2981015^"
^DD(95.3,40,21,1,0)="IUPAC analyte code:  This field contains the Chemical Abstract service"
^DD(95.3,40,21,2,0)="number or the Enzyme Nomenclature number for the chemical components"
^DD(95.3,40,21,3,0)="for chemicals and/or enzymes.  These were also contributed by IUPAC."
^DD(95.3,40,"DT")="2981027"
^DD(95.3,41,0)="CLASSTYPE^S^1:LABORATORY;2:CLINICAL;3:CLAIMS;4:SURVEYS;^3;1^Q"
^DD(95.3,41,9)="^"
^DD(95.3,41,21,0)="^^5^5^3030911^"
^DD(95.3,41,21,1,0)="This field is used to indicate the source of this code. There are at least"
^DD(95.3,41,21,2,0)="four general areas. Laboratory Class, Clinical Class, Claims"
^DD(95.3,41,21,3,0)="Attachment and Surveys."
^DD(95.3,41,21,4,0)="The selections are available on the Regenstrief RELMA class"
^DD(95.3,41,21,5,0)="restriction window."
^DD(95.3,41,"DT")="3030911"
^DD(95.3,50,0)="RELATED NAMES^95.39^^50;0"
^DD(95.3,50,21,0)="^^4^4^2990225^^^^"
^DD(95.3,50,21,1,0)="A synonym intended to make it easier to find a given observation by"
^DD(95.3,50,21,2,0)="providing other names by which the observation may be known.  For a"
^DD(95.3,50,21,3,0)="drug level, for example, we include the trade names of that drug under"
^DD(95.3,50,21,4,0)="the related names."
^DD(95.3,50,"DT")="2981027"
^DD(95.3,56,0)="UNITS REQUIRED^S^1:YES;0:NO;Y:YES;N:NO;^0;18^Q"
^DD(95.3,56,9)="^"
^DD(95.3,56,21,0)="^^2^2^3030904^"
^DD(95.3,56,21,1,0)="This field indicates that units are required when this LOINC code is"
^DD(95.3,56,21,2,0)="included in an OBX segment in a HIPPA attachment."
^DD(95.3,56,"DT")="3030904"
^DD(95.3,60,0)="ANSWERLIST^95.33A^^2;0"
^DD(95.3,60,21,0)="^^4^4^2981120^"
^DD(95.3,60,21,1,0)="The list of answers for results that are reportable from a multiple choice"
^DD(95.3,60,21,2,0)="list (e.g., the answers for the term of DISPOSITION OF BLOOD PACK are"
^DD(95.3,60,21,3,0)="GIVEN; PARTIALLY GIVEN;DISCARDED).  The field provides examples, not"
^DD(95.3,60,21,4,0)="required answer lists."
^DD(95.3,70,0)="SCOPE^95.32A^^70;0"
^DD(95.3,80,0)="FULLY SPECIFIED NAME^FI^^80;1^K:$L(X)>250!($L(X)<1) X"
^DD(95.3,80,1,0)="^.1^^0"
^DD(95.3,80,3)="Answer must be 1-250 characters in length."
^DD(95.3,80,9)="^"
^DD(95.3,80,21,0)="^^6^6^2990107^"
^DD(95.3,80,21,1,0)="This field contains the fully specified name of the LOINC code."
^DD(95.3,80,21,2,0)="It has five or six major parts including: the name of the component"
^DD(95.3,80,21,3,0)="or analyte measured, the property observed, the timing of the measurement,"
^DD(95.3,80,21,4,0)="the type of sample, the scale of measurement, and where relevant,"
^DD(95.3,80,21,5,0)="the method of the measurement.  The colon character, "":"", is part of the"
^DD(95.3,80,21,6,0)="name and is used to separate the main parts of the name."
^DD(95.3,80,"DT")="3031106"
^DD(95.3,81,0)="SHORTNAME^FI^^81;1^K:$L(X)>80!($L(X)<1) X"
^DD(95.3,81,1,0)="^.1"
^DD(95.3,81,1,1,0)="95.3^E"
^DD(95.3,81,1,1,1)="S ^LAB(95.3,""E"",$E(X,1,30),DA)="""""
^DD(95.3,81,1,1,2)="K ^LAB(95.3,""E"",$E(X,1,30),DA)"
^DD(95.3,81,1,1,3)="LOINC Short name"
^DD(95.3,81,1,1,"%D",0)="^^3^3^3030911^"
^DD(95.3,81,1,1,"%D",1,0)="This cross reference contains the LOINC short name for selected codes. "
^DD(95.3,81,1,1,"%D",2,0)="The field is a concatenation of the fully specified LOINC Name. Not all "
^DD(95.3,81,1,1,"%D",3,0)="LOINC codes have short name as issued by Regenstrief Institute."
^DD(95.3,81,1,1,"DT")="3030911"
^DD(95.3,81,3)="Answer must be 1-80 characters in length."
^DD(95.3,81,9)="^"
^DD(95.3,81,21,0)="^^4^4^3030903^"
^DD(95.3,81,21,1,0)="This field was introduced in LOINC version 2.07, the field is a "
^DD(95.3,81,21,2,0)="concatenation of the fully specified LOINC name. This field maybe used as "
^DD(95.3,81,21,3,0)="the test name on reports rather than the fully specified name in FULLY "
^DD(95.3,81,21,4,0)="SPECIFIED NAME (#80) field."
^DD(95.3,81,"DT")="3031106"
^DD(95.3,99,0)="COMMENTS^95.399^^99;0"
^DD(95.3,99,21,0)="^^1^1^2981014^"
^DD(95.3,99,21,1,0)="Free-text comments relating to the test result."
^DD(95.3,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(95.3,99.98,9)="^"
^DD(95.3,99.98,21,0)="^.001^2^2^3050428^^"
^DD(95.3,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(95.3,99.98,21,2,0)="Term/Concept."
^DD(95.3,99.98,"DT")="3050428"
^DD(95.3,99.99,0)="VUID^RFI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(95.3,99.99,1,0)="^.1"
^DD(95.3,99.99,1,1,0)="95.3^AVUID^MUMPS"
^DD(95.3,99.99,1,1,1)="S ^LAB(95.3,""AVUID"",$E(X,1,30),DA)="""""
^DD(95.3,99.99,1,1,2)="K ^LAB(95.3,""AVUID"",$E(X,1,30),DA)"
^DD(95.3,99.99,1,1,3)="This cross-reference is by VUID."
^DD(95.3,99.99,1,1,"DT")="3050426"
^DD(95.3,99.99,3)="Answer must be 1-20 digits in length."
^DD(95.3,99.99,9)="^"
^DD(95.3,99.99,21,0)="^.001^2^2^3050503^^^"
^DD(95.3,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference "
^DD(95.3,99.99,21,2,0)="terms VHA wide."
^DD(95.3,99.99,"DT")="3050503"
^DD(95.3,99.991,0)="EFFECTIVE DATE/TIME^95.3099DA^^TERMSTATUS;0"
^DD(95.3,99.991,9)="^"
^DD(95.3,99.991,21,0)="^^1^1^3050815^"
^DD(95.3,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(95.3,"B","ADJUSTMENT",1.6)=""
^DD(95.3,"B","ANSWERLIST",60)=""
^DD(95.3,"B","ASTM CODE",31)=""
^DD(95.3,"B","ASTM_CD",31)="1"
^DD(95.3,"B","CDC CODE",37)=""
^DD(95.3,"B","CDC_CODE",37)="1"
^DD(95.3,"B","CHALLENGE",1.5)=""
^DD(95.3,"B","CHANGE REASON",24)=""
^DD(95.3,"B","CHANGE TYPE",23)=""
^DD(95.3,"B","CHECK DIGIT",15)=""
^DD(95.3,"B","CHNG_REAS",24)="1"
^DD(95.3,"B","CHNG_TYPE",23)="1"
^DD(95.3,"B","CLASS",7)=""
^DD(95.3,"B","CLASSTYPE",41)=""
^DD(95.3,"B","CODE",.01)=""
^DD(95.3,"B","COMMENTS",99)=""
^DD(95.3,"B","COMPONENT",1)=""
^DD(95.3,"B","DATE LAST CHANGED",22)=""
^DD(95.3,"B","DT_LAST_CH",22)="1"
^DD(95.3,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(95.3,"B","EUCLIDES CODE",30)=""
^DD(95.3,"B","EUCLIDE_CD",30)="1"
^DD(95.3,"B","FULLY SPECIFIED NAME",80)=""
^DD(95.3,"B","GPI CODE",38)=""
^DD(95.3,"B","GPI_CD",38)="1"
^DD(95.3,"B","HCFA CODE",36)=""
^DD(95.3,"B","HCFA_CODE",36)="1"
^DD(95.3,"B","IUPAC ANALYTE CODE",40)=""
^DD(95.3,"B","IUPAC CODE",32)=""
^DD(95.3,"B","IUPAC_CD",32)="1"
^DD(95.3,"B","IUPC_ANLT_CD",40)="1"
^DD(95.3,"B","LOINC_CODE",.01)="1"
^DD(95.3,"B","MAP TO",21)=""
^DD(95.3,"B","MAP_TO",21)="1"
^DD(95.3,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(95.3,"B","METHOD TYPE",6)=""
^DD(95.3,"B","METHOD_TYP",6)="1"
^DD(95.3,"B","METPATH CODE",35)=""
^DD(95.3,"B","METPATH_CODE",35)="1"
^DD(95.3,"B","MOLAR MASS",13)=""
^DD(95.3,"B","MOLAR_MASS",13)="1"
^DD(95.3,"B","NON-PATIENT SPECIMEN",1.7)=""
^DD(95.3,"B","NORMAL RANGE",11)=""
^DD(95.3,"B","NORM_RANGE",11)="1"
^DD(95.3,"B","PROPERTY",2)=""
^DD(95.3,"B","RELATED NAMES",50)=""
^DD(95.3,"B","SCALE TYPE",5)=""
^DD(95.3,"B","SCALE_TYP",5)="1"
^DD(95.3,"B","SCOPE",70)=""
^DD(95.3,"B","SEQUENCE",.001)=""
^DD(95.3,"B","SHORTNAME",81)=""
^DD(95.3,"B","SNOMED CODE",33)=""
^DD(95.3,"B","SNOMED_CD",33)="1"
^DD(95.3,"B","SOURCE",8)=""
^DD(95.3,"B","STATUS",20)=""
^DD(95.3,"B","SYSTEM",4)=""
^DD(95.3,"B","TIME ASPECT",3)=""
^DD(95.3,"B","TIME MODIFIER",3.1)=""
^DD(95.3,"B","TIME_ASPCT",3)="1"
^DD(95.3,"B","TIME_MOD",3.1)="1"
^DD(95.3,"B","UNITS",10)=""
^DD(95.3,"B","UNITS REQUIRED",56)=""
^DD(95.3,"B","VA CODE",34)=""
^DD(95.3,"B","VA_CD",34)="1"
^DD(95.3,"B","VUID",99.99)=""
^DD(95.3,"GL",0,1,.01)=""
^DD(95.3,"GL",0,2,1)=""
^DD(95.3,"GL",0,3,1.5)=""
^DD(95.3,"GL",0,4,1.6)=""
^DD(95.3,"GL",0,5,1.7)=""
^DD(95.3,"GL",0,6,2)=""
^DD(95.3,"GL",0,7,3)=""
^DD(95.3,"GL",0,8,4)=""
^DD(95.3,"GL",0,9,5)=""
^DD(95.3,"GL",0,10,6)=""
^DD(95.3,"GL",0,11,7)=""
^DD(95.3,"GL",0,12,8)=""
^DD(95.3,"GL",0,13,11)=""
^DD(95.3,"GL",0,14,10)=""
^DD(95.3,"GL",0,15,15)=""
^DD(95.3,"GL",0,16,13)=""
^DD(95.3,"GL",0,17,3.1)=""
^DD(95.3,"GL",0,18,56)=""
^DD(95.3,"GL",1,1,30)=""
^DD(95.3,"GL",1,2,31)=""
^DD(95.3,"GL",1,3,32)=""
^DD(95.3,"GL",1,4,33)=""
^DD(95.3,"GL",1,5,34)=""
^DD(95.3,"GL",1,6,35)=""
^DD(95.3,"GL",1,7,36)=""
^DD(95.3,"GL",1,8,37)=""
^DD(95.3,"GL",1,9,38)=""
^DD(95.3,"GL",1,11,40)=""
^DD(95.3,"GL",2,0,60)=""
^DD(95.3,"GL",3,1,41)=""
^DD(95.3,"GL",4,1,20)=""
^DD(95.3,"GL",4,2,21)=""
^DD(95.3,"GL",4,3,22)=""
^DD(95.3,"GL",4,4,23)=""
^DD(95.3,"GL",4,5,24)=""
^DD(95.3,"GL",50,0,50)=""
^DD(95.3,"GL",70,0,70)=""
^DD(95.3,"GL",80,1,80)=""
^DD(95.3,"GL",81,1,81)=""
^DD(95.3,"GL",99,0,99)=""
^DD(95.3,"GL","TERMSTATUS",0,99.991)=""
^DD(95.3,"GL","VUID",1,99.99)=""
^DD(95.3,"GL","VUID",2,99.98)=""
^DD(95.3,"IX",.01)=""
^DD(95.3,"IX",1)=""
^DD(95.3,"IX",20)=""
^DD(95.3,"IX",34)=""
^DD(95.3,"IX",81)=""
^DD(95.3,"IX",99.99)=""
^DD(95.3,"RQ",.01)=""
^DD(95.3,"RQ",99.98)=""
^DD(95.3,"RQ",99.99)=""
^DD(95.3,"SB",95.3099,99.991)=""
^DD(95.3,"SB",95.32,70)=""
^DD(95.3,"SB",95.33,60)=""
^DD(95.3,"SB",95.39,50)=""
^DD(95.3,"SB",95.399,99)=""
^DD(95.3099,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(95.3099,0,"DT")="3050815"
^DD(95.3099,0,"IX","B",95.3099,.01)=""
^DD(95.3099,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(95.3099,0,"UP")="95.3"
^DD(95.3099,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(95.3099,.01,1,0)="^.1"
^DD(95.3099,.01,1,1,0)="95.3099^B"
^DD(95.3099,.01,1,1,1)="S ^LAB(95.3,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(95.3099,.01,1,1,2)="K ^LAB(95.3,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(95.3099,.01,9)="^"
^DD(95.3099,.01,21,0)="^.001^2^2^3050503^^^"
^DD(95.3099,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(95.3099,.01,21,2,0)="established."
^DD(95.3099,.01,"DT")="3050503"
^DD(95.3099,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(95.3099,.02,9)="^"
^DD(95.3099,.02,21,0)="^.001^4^4^3050428^^"
^DD(95.3099,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(95.3099,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(95.3099,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(95.3099,.02,21,4,0)="accessible by the application to display legacy data."
^DD(95.3099,.02,"DT")="3060102"
^DD(95.3099,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(95.3099,"B","STATUS",.02)=""
^DD(95.3099,"GL",0,1,.01)=""
^DD(95.3099,"GL",0,2,.02)=""
^DD(95.3099,"IX",.01)=""
^DD(95.3099,"RQ",.01)=""
^DD(95.3099,"RQ",.02)=""
^DD(95.31,0)="FIELD^^10^5"
^DD(95.31,0,"DDA")="N"
^DD(95.31,0,"DT")="3040901"
^DD(95.31,0,"IX","B",95.31,.01)=""
^DD(95.31,0,"IX","C",95.42,.01)=""
^DD(95.31,0,"IX","VR",95.31,.01)=""
^DD(95.31,0,"NM","LAB LOINC COMPONENT")=""
^DD(95.31,0,"PT",95.3,1)=""
^DD(95.31,0,"VR")="5.2"
^DD(95.31,0,"VRPK")="LR"
^DD(95.31,0,"VRRV")="2.14"
^DD(95.31,.001,0)="SEQUENCE^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(95.31,.001,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(95.31,.001,"DT")="3040901"
^DD(95.31,.01,0)="COMPONENT^RFI^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(95.31,.01,1,0)="^.1"
^DD(95.31,.01,1,1,0)="95.31^B^MUMPS"
^DD(95.31,.01,1,1,1)="S ^LAB(95.31,""B"",$E(X,1,120),DA)="""""
^DD(95.31,.01,1,1,2)="K ^LAB(95.31,""B"",$E(X,1,120),DA)"
^DD(95.31,.01,1,1,"DT")="3000103"
^DD(95.31,.01,1,2,0)="95.31^VR^MUMPS"
^DD(95.31,.01,1,2,1)="S ^LAB(95.31,""VR"")=$G(^LAB(95.31,""VR""))"
^DD(95.31,.01,1,2,2)="Q"
^DD(95.31,.01,1,2,3)="Contains the data version info"
^DD(95.31,.01,1,2,"%D",0)="^^3^3^3031106^"
^DD(95.31,.01,1,2,"%D",1,0)="This X-Ref contains the patch number the populated the file. This is "
^DD(95.31,.01,1,2,"%D",2,0)="different than the software version."
^DD(95.31,.01,1,2,"%D",3,0)="The format is the second line of the install patch routine set."
^DD(95.31,.01,1,2,"DT")="3031106"
^DD(95.31,.01,3)="Answer must be 1-240 characters in length."
^DD(95.31,.01,21,0)="^^2^2^3000103^^^^"
^DD(95.31,.01,21,1,0)="The name of the component or analyte measured e.g., potassium,"
^DD(95.31,.01,21,2,0)="hemoglobin, or hepatitis C antigen."
^DD(95.31,.01,"DEL",1,0)="I 1"
^DD(95.31,.01,"DT")="3050628"
^DD(95.31,1,0)="DESCRIPTIVE NAME^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(95.31,1,3)="Answer must be 1-250 characters in length."
^DD(95.31,1,21,0)="^^1^1^2981106^"
^DD(95.31,1,21,1,0)="The descriptive name of the component or analyte measured."
^DD(95.31,1,"DT")="2960809"
^DD(95.31,2,0)="DISPLAY NAME^F^^2;1^K:$L(X)>40!($L(X)<1) X"
^DD(95.31,2,3)="Answer must be 1-40 characters in length."
^DD(95.31,2,21,0)="^^1^1^2981106^"
^DD(95.31,2,21,1,0)="The display name of the component or analyte measured."
^DD(95.31,2,"DT")="2960503"
^DD(95.31,10,0)="RELATED NAME^95.42^^10;0"
^DD(95.31,10,21,0)="^^1^1^2981106^"
^DD(95.31,10,21,1,0)="This field contains related names of the component or analyte measured."
^DD(95.31,"B","COMPONENT",.01)=""
^DD(95.31,"B","DESCRIPTIVE NAME",1)=""
^DD(95.31,"B","DISPLAY NAME",2)=""
^DD(95.31,"B","RELATED NAME",10)=""
^DD(95.31,"B","SEQUENCE",.001)=""
^DD(95.31,"GL",0,1,.01)=""
^DD(95.31,"GL",1,1,1)=""
^DD(95.31,"GL",2,1,2)=""
^DD(95.31,"GL",10,0,10)=""
^DD(95.31,"IX",.01)=""
^DD(95.31,"RQ",.01)=""
^DD(95.31,"SB",95.42,10)=""
^DD(95.32,0)="SCOPE SUB-FIELD^^.01^1"
^DD(95.32,0,"DT")="2981120"
^DD(95.32,0,"IX","B",95.32,.01)=""
^DD(95.32,0,"NM","SCOPE")=""
^DD(95.32,0,"UP")="95.3"
^DD(95.32,.01,0)="SCOPE^F^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(95.32,.01,1,0)="^.1"
^DD(95.32,.01,1,1,0)="95.32^B"
^DD(95.32,.01,1,1,1)="S ^LAB(95.3,DA(1),70,""B"",$E(X,1,30),DA)="""""
^DD(95.32,.01,1,1,2)="K ^LAB(95.3,DA(1),70,""B"",$E(X,1,30),DA)"
^DD(95.32,.01,3)="Answer must be 1-240 characters in length."
^DD(95.32,.01,9)="^"
^DD(95.32,.01,21,0)="^^1^1^2981120^"
^DD(95.32,.01,21,1,0)="Not currently used."
^DD(95.32,.01,"DT")="2981120"
^DD(95.32,"B","SCOPE",.01)=""
^DD(95.32,"GL",0,1,.01)=""
^DD(95.32,"IX",.01)=""
^DD(95.33,0)="ANSWERLIST SUB-FIELD^^.01^1"
^DD(95.33,0,"DT")="2981120"
^DD(95.33,0,"IX","B",95.33,.01)=""
^DD(95.33,0,"NM","ANSWERLIST")=""
^DD(95.33,0,"UP")="95.3"
^DD(95.33,.01,0)="ANSWERLIST^F^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(95.33,.01,1,0)="^.1"
^DD(95.33,.01,1,1,0)="95.33^B"
^DD(95.33,.01,1,1,1)="S ^LAB(95.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(95.33,.01,1,1,2)="K ^LAB(95.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(95.33,.01,3)="Answer must be 1-200 characters in length."
^DD(95.33,.01,9)="^"
^DD(95.33,.01,21,0)="^^4^4^2981120^^"
^DD(95.33,.01,21,1,0)="The list of answers for results that are reportable from a multiple choice"
^DD(95.33,.01,21,2,0)="list (e.g., the answers for the term DISPOSITION OF BLOOD PACK are GIVEN;"
^DD(95.33,.01,21,3,0)="PARTIALLY GIVEN;DISCARDED).  The field provides examples, not required"
^DD(95.33,.01,21,4,0)="answer lists."
^DD(95.33,.01,"DT")="2981120"
^DD(95.33,"B","ANSWERLIST",.01)=""
^DD(95.33,"GL",0,1,.01)=""
^DD(95.33,"IX",.01)=""
^DD(95.39,0)="RELATED NAMES SUB-FIELD^^.01^1"
^DD(95.39,0,0)="^95.39"
^DD(95.39,0,"IX","B",95.39,.01)=""
^DD(95.39,0,"NM","RELATED NAMES")=""
^DD(95.39,0,"UP")="95.3"
^DD(95.39,.01,0)="RELATED NAMES^MF^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(95.39,.01,.1)="RELAT_NMS"
^DD(95.39,.01,1,0)="^.1"
^DD(95.39,.01,1,1,0)="95.39^B"
^DD(95.39,.01,1,1,1)="S ^LAB(95.3,DA(1),50,""B"",$E(X,1,30),DA)="""""
^DD(95.39,.01,1,1,2)="K ^LAB(95.3,DA(1),50,""B"",$E(X,1,30),DA)"
^DD(95.39,.01,1,2,0)="95.3^D"
^DD(95.39,.01,1,2,1)="S ^LAB(95.3,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(95.39,.01,1,2,2)="K ^LAB(95.3,""D"",$E(X,1,30),DA(1),DA)"
^DD(95.39,.01,1,2,"DT")="2960318"
^DD(95.39,.01,3)="Answer must be 1-240 characters in length."
^DD(95.39,.01,9)="^"
^DD(95.39,.01,21,0)="^^4^4^2990225^^"
^DD(95.39,.01,21,1,0)="A synonym intended to make it easier to find a given observation"
^DD(95.39,.01,21,2,0)="by providing other names by which the observation may be known."
^DD(95.39,.01,21,3,0)="For a drug level, for example, we include the trade names of that"
^DD(95.39,.01,21,4,0)="drug under related names."
^DD(95.39,.01,"DT")="2981027"
^DD(95.39,"B","RELATED NAMES",.01)=""
^DD(95.39,"B","RELAT_NMS",.01)="1"
^DD(95.39,"GL",0,1,.01)=""
^DD(95.39,"IX",.01)=""
^DD(95.399,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(95.399,0,"NM","COMMENTS")=""
^DD(95.399,0,"UP")="95.3"
^DD(95.399,.01,0)="COMMENTS^W^^0;1^Q"
^DD(95.399,.01,"DT")="2960220"
^DD(95.399,"B","COMMENTS",.01)=""
^DD(95.399,"GL",0,1,.01)=""
^DD(95.42,0)="RELATED NAME SUB-FIELD^^.01^1"
^DD(95.42,0,"IX","B",95.42,.01)=""
^DD(95.42,0,"NM","RELATED NAME")=""
^DD(95.42,0,"UP")="95.31"
^DD(95.42,.01,0)="RELATED NAME^MF^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(95.42,.01,1,0)="^.1"
^DD(95.42,.01,1,2,0)="95.31^C"
^DD(95.42,.01,1,2,1)="S ^LAB(95.31,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(95.42,.01,1,2,2)="K ^LAB(95.31,""C"",$E(X,1,30),DA(1),DA)"
^DD(95.42,.01,1,2,"DT")="3010816"
^DD(95.42,.01,1,3,0)="95.42^B^MUMPS"
^DD(95.42,.01,1,3,1)="S ^LAB(95.31,DA(1),10,""B"",$E(X,1,60),DA)="""""
^DD(95.42,.01,1,3,2)="K ^LAB(95.31,DA(1),10,""B"",$E(X,1,60),DA)"
^DD(95.42,.01,1,3,"DT")="3010816"
^DD(95.42,.01,3)="Answer must be 1-250 characters in length."
^DD(95.42,.01,21,0)="^^1^1^2981106^"
^DD(95.42,.01,21,1,0)="A related name of the component or analyte measured."
^DD(95.42,.01,"DT")="3010816"
^DD(95.42,"B","RELATED NAME",.01)=""
^DD(95.42,"GL",0,1,.01)=""
^DD(95.42,"IX",.01)=""
^DD(99,0)="FIELD^^25^7"
^DD(99,0,"DDA")="N"
^DD(99,0,"IX","B",99,.01)=""
^DD(99,0,"NM","PT. TEXT")=""
^DD(99,0,"VR")="5.01"
^DD(99,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(99,.01,1,0)="^.1"
^DD(99,.01,1,1,0)="99^B"
^DD(99,.01,1,1,1)="S ^PTX(""B"",$E(X,1,30),DA)="""""
^DD(99,.01,1,1,2)="K ^PTX(""B"",$E(X,1,30),DA)"
^DD(99,.01,3)=""
^DD(99,.01,21,0)="^^1^1^2850225^^"
^DD(99,.01,21,1,0)="This is the patient's name"
^DD(99,.01,"DT")="2850809"
^DD(99,10,0)="*PROGRESS NOTES^99.01DA^^PN;0"
^DD(99,10,21,0)="^^2^2^2890206^^^^"
^DD(99,10,21,1,0)="This is the text of notes entered by clinicians."
^DD(99,10,21,2,0)="   "
^DD(99,11,0)="HISTORY PART ONE^99.05DA^^HX;0"
^DD(99,11,21,0)="^^1^1^2850117^"
^DD(99,11,21,1,0)="This is the text of the patient's chief complaint, history of present illness, and current medications."
^DD(99,12,0)="*TXP DESCRIPTION^99.13D^^TP;0"
^DD(99,12,21,0)="^^1^1^2890206^^"
^DD(99,12,21,1,0)="This is the text of descriptive information about patient for treatment plans."
^DD(99,13,0)="*TXP ADDITIONAL PLANS^99.16D^^TPA;0"
^DD(99,13,21,0)="^^1^1^2890206^^"
^DD(99,13,21,1,0)="This is the text of additional treatment plans."
^DD(99,20,0)="CRISIS NOTES^99.29D^^CN;0"
^DD(99,20,21,0)="^^1^1^2850117^"
^DD(99,20,21,1,0)="This is the text of crisis notes on patients."
^DD(99,20,21,2,0)="upon selection of the patient's name.  Only designated "
^DD(99,20,21,3,0)="DHCP-users will be shown the crisis note."
^DD(99,25,0)="MESSAGES^99.39D^^MS;0"
^DD(99,25,21,0)="^^1^1^2850117^^"
^DD(99,25,21,1,0)="This is the text of clinically useful patient information."
^DD(99,25,21,2,0)="A note will be broadcasted upon selection of the patient's"
^DD(99,25,21,3,0)="name indicating a message is available for review at the"
^DD(99,25,21,4,0)="discretion of the caretaker.  Only designated DHCP-users"
^DD(99,25,21,5,0)="will have access to this function."
^DD(99,"B","*PROGRESS NOTES",10)=""
^DD(99,"B","*TXP ADDITIONAL PLANS",13)=""
^DD(99,"B","*TXP DESCRIPTION",12)=""
^DD(99,"B","CRISIS NOTES",20)=""
^DD(99,"B","HISTORY PART ONE",11)=""
^DD(99,"B","MESSAGES",25)=""
^DD(99,"B","NAME",.01)=""
^DD(99,"GL",0,1,.01)=""
^DD(99,"GL","CN",0,20)=""
^DD(99,"GL","HX",0,11)=""
^DD(99,"GL","MS",0,25)=""
^DD(99,"GL","PN",0,10)=""
^DD(99,"GL","TP",0,12)=""
^DD(99,"GL","TPA",0,13)=""
^DD(99,"IX",.01)=""
^DD(99,"RQ",.01)=""
^DD(99,"SB",99.01,10)=""
^DD(99,"SB",99.05,11)=""
^DD(99,"SB",99.13,12)=""
^DD(99,"SB",99.16,13)=""
^DD(99,"SB",99.29,20)=""
^DD(99,"SB",99.39,25)=""
^DD(99.01,0)="*PROGRESS NOTES SUB-FIELD^NL^1^2"
^DD(99.01,0,"NM","*PROGRESS NOTES")=""
^DD(99.01,0,"UP")="99"
^DD(99.01,.01,0)="*PN DATE^DX^^0;1^S %DT=""E"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.01,.01,.1)="PN DATE"
^DD(99.01,.01,21,0)="^^1^1^2890206^^^"
^DD(99.01,.01,21,1,0)="Date note entered."
^DD(99.01,.01,"DT")="2830919"
^DD(99.01,1,0)="*STAFF^99.02P^^1;0"
^DD(99.01,1,21,0)="^^1^1^2890206^^^^"
^DD(99.01,1,21,1,0)="Caretaker responsible for content of progress note."
^DD(99.01,"B","*PN DATE",.01)=""
^DD(99.01,"B","*STAFF",1)=""
^DD(99.01,"B","PN DATE",.01)="1"
^DD(99.01,"GL",0,1,.01)=""
^DD(99.01,"GL",1,0,1)=""
^DD(99.01,"SB",99.02,1)=""
^DD(99.02,0)="*STAFF SUB-FIELD^NL^1^2"
^DD(99.02,0,"IX","B",99.02,.01)=""
^DD(99.02,0,"NM","*STAFF")=""
^DD(99.02,0,"UP")="99.01"
^DD(99.02,.01,0)="*STAFF^P200'X^VA(200,^0;1^S DINUM=X"
^DD(99.02,.01,.1)="STAFF"
^DD(99.02,.01,1,0)="^.1"
^DD(99.02,.01,1,1,0)="99.02^B"
^DD(99.02,.01,1,1,1)="S ^PTX(DA(2),""PN"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(99.02,.01,1,1,2)="K ^PTX(DA(2),""PN"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(99.02,.01,"DT")="2890120"
^DD(99.02,1,0)="*DATE/TIME^99.03D^^1;0"
^DD(99.02,1,21,0)="^^1^1^2890206^^^"
^DD(99.02,1,21,1,0)="Date and time of contents of progress note."
^DD(99.02,"B","*DATE/TIME",1)=""
^DD(99.02,"B","*STAFF",.01)=""
^DD(99.02,"B","STAFF",.01)="1"
^DD(99.02,"GL",0,1,.01)=""
^DD(99.02,"GL",1,0,1)=""
^DD(99.02,"IX",.01)=""
^DD(99.02,"SB",99.03,1)=""
^DD(99.03,0)="*DATE/TIME SUB-FIELD^NL^1^2"
^DD(99.03,0,"NM","*DATE/TIME")=""
^DD(99.03,0,"UP")="99.02"
^DD(99.03,.01,0)="*DATE/TIME^DX^^0;1^S %DT=""ETX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.03,.01,.1)="DATE/TIME"
^DD(99.03,.01,"DT")="2890120"
^DD(99.03,1,0)="*TEXT^99.04^^1;0"
^DD(99.03,"B","*DATE/TIME",.01)=""
^DD(99.03,"B","*TEXT",1)=""
^DD(99.03,"B","DATE/TIME",.01)="1"
^DD(99.03,"GL",0,1,.01)=""
^DD(99.03,"GL",1,0,1)=""
^DD(99.03,"SB",99.04,1)=""
^DD(99.04,0)="*TEXT SUB-FIELD^NL^.01^1"
^DD(99.04,0,"NM","*TEXT")=""
^DD(99.04,0,"UP")="99.03"
^DD(99.04,.01,0)="*TEXT^W^^0;1^Q"
^DD(99.04,.01,.1)="TEXT"
^DD(99.04,.01,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(99.04,.01,"DT")="2890119"
^DD(99.04,"B","*TEXT",.01)=""
^DD(99.04,"B","TEXT",.01)="1"
^DD(99.04,"GL",0,1,.01)=""
^DD(99.05,0)="HISTORY PART ONE SUB-FIELD^NL^1^2"
^DD(99.05,0,"NM","HISTORY PART ONE")=""
^DD(99.05,0,"UP")="99"
^DD(99.05,.01,0)="HX1 DATE^DX^^0;1^S %DT=""E"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.05,1,0)="STAFF^99.06P^^1;0"
^DD(99.05,1,21,0)="^^1^1^2890119^^^"
^DD(99.05,1,21,1,0)="Personnel responsible for information entered into this file."
^DD(99.05,"B","HX1 DATE",.01)=""
^DD(99.05,"B","STAFF",1)=""
^DD(99.05,"GL",0,1,.01)=""
^DD(99.05,"GL",1,0,1)=""
^DD(99.05,"SB",99.06,1)=""
^DD(99.06,0)="STAFF SUB-FIELD^NL^3^4"
^DD(99.06,0,"NM","STAFF")=""
^DD(99.06,0,"UP")="99.05"
^DD(99.06,.01,0)="STAFF NAME^RP200'X^VA(200,^0;1^S DINUM=X Q"
^DD(99.06,1,0)="CHIEF COMPLAINT DATE^99.07D^^1;0"
^DD(99.06,1,21,0)="^^1^1^2881017^"
^DD(99.06,1,21,1,0)="Date this chief complaint was determined."
^DD(99.06,2,0)="HX OF PRES ILLNESS DATE^99.09D^^2;0"
^DD(99.06,2,21,0)="^^1^1^2881017^"
^DD(99.06,2,21,1,0)="Date history of present illness interview was obtained."
^DD(99.06,3,0)="CURRENT MEDS DATE^99.11D^^3;0"
^DD(99.06,3,21,0)="^^2^2^2881017^"
^DD(99.06,3,21,1,0)="Date information regarding medications acknowledged by a"
^DD(99.06,3,21,2,0)="patient was obtained."
^DD(99.06,"B","CHIEF COMPLAINT DATE",1)=""
^DD(99.06,"B","CURRENT MEDS DATE",3)=""
^DD(99.06,"B","HX OF PRES ILLNESS DATE",2)=""
^DD(99.06,"B","STAFF NAME",.01)=""
^DD(99.06,"GL",0,1,.01)=""
^DD(99.06,"GL",1,0,1)=""
^DD(99.06,"GL",2,0,2)=""
^DD(99.06,"GL",3,0,3)=""
^DD(99.06,"RQ",.01)=""
^DD(99.06,"SB",99.07,1)=""
^DD(99.06,"SB",99.09,2)=""
^DD(99.06,"SB",99.11,3)=""
^DD(99.07,0)="CHIEF COMPLAINT DATE SUB-FIELD^NL^1^2"
^DD(99.07,0,"NM","CHIEF COMPLAINT DATE")=""
^DD(99.07,0,"UP")="99.06"
^DD(99.07,.01,0)="COMPLAINT DATE^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(99.07,1,0)="CHIEF COMPLAINT^99.08^^1;0"
^DD(99.07,1,21,0)="^^1^1^2881017^"
^DD(99.07,1,21,1,0)="Primary reason for request for clinical care."
^DD(99.07,"B","CHIEF COMPLAINT",1)=""
^DD(99.07,"B","COMPLAINT DATE",.01)=""
^DD(99.07,"GL",0,1,.01)=""
^DD(99.07,"GL",1,0,1)=""
^DD(99.07,"SB",99.08,1)=""
^DD(99.08,0)="CHIEF COMPLAINT SUB-FIELD^NL^.01^1"
^DD(99.08,0,"NM","CHIEF COMPLAINT")=""
^DD(99.08,0,"UP")="99.07"
^DD(99.08,.01,0)="CHIEF COMPLAINT^W^^0;1^Q"
^DD(99.08,.01,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(99.08,.01,"DT")="2840711"
^DD(99.08,"B","CHIEF COMPLAINT",.01)=""
^DD(99.08,"GL",0,1,.01)=""
^DD(99.09,0)="HX OF PRES ILLNESS DATE SUB-FIELD^NL^1^2"
^DD(99.09,0,"NM","HX OF PRES ILLNESS DATE")=""
^DD(99.09,0,"UP")="99.06"
^DD(99.09,.01,0)="HX DATE^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(99.09,1,0)="HX OF PRESENT ILLNESS^99.1^^1;0"
^DD(99.09,1,21,0)="^^1^1^2881017^"
^DD(99.09,1,21,1,0)="Responses to a history of present illness interview."
^DD(99.09,"B","HX DATE",.01)=""
^DD(99.09,"B","HX OF PRESENT ILLNESS",1)=""
^DD(99.09,"GL",0,1,.01)=""
^DD(99.09,"GL",1,0,1)=""
^DD(99.09,"SB",99.1,1)=""
^DD(99.1,0)="HX OF PRESENT ILLNESS SUB-FIELD^NL^.01^1"
^DD(99.1,0,"NM","HX OF PRESENT ILLNESS")=""
^DD(99.1,0,"UP")="99.09"
^DD(99.1,.01,0)="HX OF PRESENT ILLNESS^W^^0;1^Q"
^DD(99.1,.01,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(99.1,.01,"DT")="2840711"
^DD(99.1,"B","HX OF PRESENT ILLNESS",.01)=""
^DD(99.1,"GL",0,1,.01)=""
^DD(99.11,0)="CURRENT MEDS DATE SUB-FIELD^NL^1^2"
^DD(99.11,0,"NM","CURRENT MEDS DATE")=""
^DD(99.11,0,"UP")="99.06"
^DD(99.11,.01,0)="MEDS DATE^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(99.11,1,0)="CURRENT MEDS AND SOURCE^99.12^^1;0"
^DD(99.11,1,21,0)="^^3^3^2881017^"
^DD(99.11,1,21,1,0)="A list of medications and their sources currently being used"
^DD(99.11,1,21,2,0)="by a patient as can be determined by a caretaker with the "
^DD(99.11,1,21,3,0)="assistance of the patient."
^DD(99.11,"B","CURRENT MEDS AND SOURCE",1)=""
^DD(99.11,"B","MEDS DATE",.01)=""
^DD(99.11,"GL",0,1,.01)=""
^DD(99.11,"GL",1,0,1)=""
^DD(99.11,"SB",99.12,1)=""
^DD(99.12,0)="CURRENT MEDS AND SOURCE SUB-FIELD^NL^.01^1"
^DD(99.12,0,"NM","CURRENT MEDS AND SOURCE")=""
^DD(99.12,0,"UP")="99.11"
^DD(99.12,.01,0)="MEDS TEXT^MF^^0;1^K:$L(X)>65!($L(X)<2) X"
^DD(99.12,.01,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(99.12,"B","MEDS TEXT",.01)=""
^DD(99.12,"GL",0,1,.01)=""
^DD(99.13,0)="*TXP DESCRIPTION SUB-FIELD^NL^1^2"
^DD(99.13,0,"NM","*TXP DESCRIPTION")=""
^DD(99.13,0,"UP")="99"
^DD(99.13,.01,0)="*TXP DATE^DX^^0;1^S %DT=""E"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.13,.01,.1)="TXP DATE"
^DD(99.13,1,0)="*STAFF^99.14P^^1;0"
^DD(99.13,"B","*STAFF",1)=""
^DD(99.13,"B","*TXP DATE",.01)=""
^DD(99.13,"B","TXP DATE",.01)="1"
^DD(99.13,"GL",0,1,.01)=""
^DD(99.13,"GL",1,0,1)=""
^DD(99.13,"SB",99.14,1)=""
^DD(99.14,0)="*STAFF SUB-FIELD^NL^2^3"
^DD(99.14,0,"NM","*STAFF")=""
^DD(99.14,0,"UP")="99.13"
^DD(99.14,.01,0)="*STAFF NAME^P200'X^VA(200,^0;1^S DINUM=X Q"
^DD(99.14,.01,.1)="STAFF NAME"
^DD(99.14,1,0)="*DATE/TIME^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(99.14,1,.1)="DATE/TIME"
^DD(99.14,2,0)="*DESCRIPTIVE INFORMATION^99.15^^1;0"
^DD(99.14,"B","*DATE/TIME",1)=""
^DD(99.14,"B","*DESCRIPTIVE INFORMATION",2)=""
^DD(99.14,"B","*STAFF NAME",.01)=""
^DD(99.14,"B","DATE/TIME",1)="1"
^DD(99.14,"B","STAFF NAME",.01)="1"
^DD(99.14,"GL",0,1,.01)=""
^DD(99.14,"GL",0,2,1)=""
^DD(99.14,"GL",1,0,2)=""
^DD(99.14,"SB",99.15,2)=""
^DD(99.15,0)="*DESCRIPTIVE INFORMATION SUB-FIELD^NL^.01^1"
^DD(99.15,0,"NM","*DESCRIPTIVE INFORMATION")=""
^DD(99.15,0,"UP")="99.14"
^DD(99.15,.01,0)="*DESCRIPTIVE TEXT^MF^^0;1^K:$L(X)>65!($L(X)<2) X"
^DD(99.15,.01,.1)="DESCRIPTIVE TEXT"
^DD(99.15,.01,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(99.15,"B","*DESCRIPTIVE TEXT",.01)=""
^DD(99.15,"B","DESCRIPTIVE TEXT",.01)="1"
^DD(99.15,"GL",0,1,.01)=""
^DD(99.16,0)="*TXP ADDITIONAL PLANS SUB-FIELD^NL^1^2"
^DD(99.16,0,"NM","*TXP ADDITIONAL PLANS")=""
^DD(99.16,0,"UP")="99"
^DD(99.16,.01,0)="*ADDITIONAL PLANS DATE^DX^^0;1^S %DT=""E"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.16,.01,.1)="ADDITIONAL PLANS DATE"
^DD(99.16,1,0)="*STAFF^99.17P^^1;0"
^DD(99.16,"B","*ADDITIONAL PLANS DATE",.01)=""
^DD(99.16,"B","*STAFF",1)=""
^DD(99.16,"B","ADDITIONAL PLANS DATE",.01)="1"
^DD(99.16,"GL",0,1,.01)=""
^DD(99.16,"GL",1,0,1)=""
^DD(99.16,"SB",99.17,1)=""
^DD(99.17,0)="*STAFF SUB-FIELD^NL^2^3"
^DD(99.17,0,"NM","*STAFF")=""
^DD(99.17,0,"UP")="99.16"
^DD(99.17,.01,0)="*STAFF NAME^P200'X^VA(200,^0;1^S DINUM=X Q"
^DD(99.17,.01,.1)="STAFF NAME"
^DD(99.17,1,0)="*DATE/TIME^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(99.17,1,.1)="DATE/TIME"
^DD(99.17,2,0)="*ADDITIONAL PLANS^99.18^^1;0"
^DD(99.17,"B","*ADDITIONAL PLANS",2)=""
^DD(99.17,"B","*DATE/TIME",1)=""
^DD(99.17,"B","*STAFF NAME",.01)=""
^DD(99.17,"B","DATE/TIME",1)="1"
^DD(99.17,"B","STAFF NAME",.01)="1"
^DD(99.17,"GL",0,1,.01)=""
^DD(99.17,"GL",0,2,1)=""
^DD(99.17,"GL",1,0,2)=""
^DD(99.17,"SB",99.18,2)=""
^DD(99.18,0)="*ADDITIONAL PLANS SUB-FIELD^NL^.01^1"
^DD(99.18,0,"NM","*ADDITIONAL PLANS")=""
^DD(99.18,0,"UP")="99.17"
^DD(99.18,.01,0)="*PLANS TEXT^MF^^0;1^K:$L(X)>65!($L(X)<2) X"
^DD(99.18,.01,.1)="PLANS TEXT"
^DD(99.18,.01,3)="ANSWER MUST BE 2-65 CHARACTERS IN LENGTH"
^DD(99.18,"B","*PLANS TEXT",.01)=""
^DD(99.18,"B","PLANS TEXT",.01)="1"
^DD(99.18,"GL",0,1,.01)=""
^DD(99.29,0)="CRISIS NOTES SUB-FIELD^NL^1^2"
^DD(99.29,0,"NM","CRISIS NOTES")=""
^DD(99.29,0,"UP")="99"
^DD(99.29,.01,0)="CRISIS NOTE DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.29,.01,"DT")="2840711"
^DD(99.29,1,0)="STAFF^99.3PA^^1;0"
^DD(99.29,1,21,0)="^^1^1^2881017^^"
^DD(99.29,1,21,1,0)="Personnel responsible for entering a crisis note into the system."
^DD(99.29,"B","CRISIS NOTE DATE",.01)=""
^DD(99.29,"B","STAFF",1)=""
^DD(99.29,"GL",0,1,.01)=""
^DD(99.29,"GL",1,0,1)=""
^DD(99.29,"SB",99.3,1)=""
^DD(99.3,0)="STAFF SUB-FIELD^NL^1^2"
^DD(99.3,0,"NM","STAFF")=""
^DD(99.3,0,"UP")="99.29"
^DD(99.3,.01,0)="STAFF^P200'X^VA(200,^0;1^S DINUM=X Q"
^DD(99.3,.01,"DT")="2840711"
^DD(99.3,1,0)="DATE/TIME^99.31D^^1;0"
^DD(99.3,1,21,0)="^^1^1^2881017^^"
^DD(99.3,1,21,1,0)="Date and time a crisis note was entered into the system."
^DD(99.3,"B","DATE/TIME",1)=""
^DD(99.3,"B","STAFF",.01)=""
^DD(99.3,"GL",0,1,.01)=""
^DD(99.3,"GL",1,0,1)=""
^DD(99.3,"SB",99.31,1)=""
^DD(99.31,0)="DATE/TIME SUB-FIELD^NL^2^3"
^DD(99.31,0,"NM","DATE/TIME")=""
^DD(99.31,0,"UP")="99.3"
^DD(99.31,.01,0)="DATE/TIME^DX^^0;1^S %DT=""ETX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.31,.01,"DT")="2840711"
^DD(99.31,1,0)="TEXT^99.32^^1;0"
^DD(99.31,1,21,0)="^^1^1^2881017^"
^DD(99.31,1,21,1,0)="Crisis note narrative."
^DD(99.31,2,0)="PERMANENT?^S^P:PERMANENT;T:TEMPORARY;^2;1^Q"
^DD(99.31,2,21,0)="^^2^2^2881017^"
^DD(99.31,2,21,1,0)="A flag denoting whether or not this crisis note should be"
^DD(99.31,2,21,2,0)="made a permanent part of a patient's medical record."
^DD(99.31,2,"DT")="2840717"
^DD(99.31,"B","DATE/TIME",.01)=""
^DD(99.31,"B","PERMANENT?",2)=""
^DD(99.31,"B","TEXT",1)=""
^DD(99.31,"GL",0,1,.01)=""
^DD(99.31,"GL",1,0,1)=""
^DD(99.31,"GL",2,1,2)=""
^DD(99.31,"SB",99.32,1)=""
^DD(99.32,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(99.32,0,"NM","TEXT")=""
^DD(99.32,0,"UP")="99.31"
^DD(99.32,.01,0)="TEXT^W^^0;1^Q"
^DD(99.32,.01,"DT")="2840711"
^DD(99.32,"B","TEXT",.01)=""
^DD(99.32,"GL",0,1,.01)=""
^DD(99.39,0)="MESSAGES SUB-FIELD^NL^1^2"
^DD(99.39,0,"NM","MESSAGES")=""
^DD(99.39,0,"UP")="99"
^DD(99.39,.01,0)="MESSAGE DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.39,.01,"DT")="2840712"
^DD(99.39,1,0)="STAFF^99.4PA^^1;0"
^DD(99.39,1,21,0)="^^1^1^2881017^^"
^DD(99.39,1,21,1,0)="Personnel responsible for entry of message into the system."
^DD(99.39,"B","MESSAGE DATE",.01)=""
^DD(99.39,"B","STAFF",1)=""
^DD(99.39,"GL",0,1,.01)=""
^DD(99.39,"GL",1,0,1)=""
^DD(99.39,"SB",99.4,1)=""
^DD(99.4,0)="STAFF SUB-FIELD^NL^1^2"
^DD(99.4,0,"NM","STAFF")=""
^DD(99.4,0,"UP")="99.39"
^DD(99.4,.01,0)="STAFF^P200'X^VA(200,^0;1^S DINUM=X Q"
^DD(99.4,.01,"DT")="2840712"
^DD(99.4,1,0)="DATE/TIME^99.41DA^^1;0"
^DD(99.4,1,21,0)="^^1^1^2881017^^"
^DD(99.4,1,21,1,0)="Date and time message was entered into the system."
^DD(99.4,"B","DATE/TIME",1)=""
^DD(99.4,"B","STAFF",.01)=""
^DD(99.4,"GL",0,1,.01)=""
^DD(99.4,"GL",1,0,1)=""
^DD(99.4,"SB",99.41,1)=""
^DD(99.41,0)="DATE/TIME SUB-FIELD^NL^2^3"
^DD(99.41,0,"NM","DATE/TIME")=""
^DD(99.41,0,"UP")="99.4"
^DD(99.41,.01,0)="DATE/TIME^DX^^0;1^S %DT=""ETX"" D ^%DT S X=Y,DINUM=9999999-Y K:Y<1 X"
^DD(99.41,.01,"DT")="2840712"
^DD(99.41,1,0)="TEXT^99.42^^1;0"
^DD(99.41,1,21,0)="^^1^1^2881017^"
^DD(99.41,1,21,1,0)="Message context."
^DD(99.41,2,0)="PERMANENT?^S^P:PERMANENT;T:TEMPORARY;^2;1^Q"
^DD(99.41,2,21,0)="^^2^2^2881017^"
^DD(99.41,2,21,1,0)="A flag denoting whether or not this message should be made"
^DD(99.41,2,21,2,0)="a permanent part of the patient's clinical record."
^DD(99.41,2,"DT")="2840717"
^DD(99.41,"B","DATE/TIME",.01)=""
^DD(99.41,"B","PERMANENT?",2)=""
^DD(99.41,"B","TEXT",1)=""
^DD(99.41,"GL",0,1,.01)=""
^DD(99.41,"GL",1,0,1)=""
^DD(99.41,"GL",2,1,2)=""
^DD(99.41,"SB",99.42,1)=""
^DD(99.42,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(99.42,0,"NM","TEXT")=""
^DD(99.42,0,"UP")="99.41"
^DD(99.42,.01,0)="TEXT^W^^0;1^Q"
^DD(99.42,.01,"DT")="2840712"
^DD(99.42,"B","TEXT",.01)=""
^DD(99.42,"GL",0,1,.01)=""
^DD(100,0)="FIELD^^96^62"
^DD(100,0,"DDA")="N"
^DD(100,0,"DIK")="ORD2"
^DD(100,0,"DIKOLD")="ORD2"
^DD(100,0,"DT")="3030521"
^DD(100,0,"IX","AC",100,.02)=""
^DD(100,0,"IX","AC1",100.008,.01)=""
^DD(100,0,"IX","ACT1",100,.02)=""
^DD(100,0,"IX","ACT2",100,23)=""
^DD(100,0,"IX","ACT3",100.008,.01)=""
^DD(100,0,"IX","AD",100,21)=""
^DD(100,0,"IX","AE",100,22)=""
^DD(100,0,"IX","AF",100.008,.01)=""
^DD(100,0,"IX","AOI",100.001,.01)=""
^DD(100,0,"IX","AOI1",100,.02)=""
^DD(100,0,"IX","AOI2",100,21)=""
^DD(100,0,"IX","AR",100,.02)=""
^DD(100,0,"IX","AR1",100.008,16)=""
^DD(100,0,"IX","AS",100,.02)=""
^DD(100,0,"IX","AS1",100.008,.01)=""
^DD(100,0,"IX","AS2",100.008,4)=""
^DD(100,0,"IX","AW",100,.02)=""
^DD(100,0,"IX","AW1",100,23)=""
^DD(100,0,"IX","AW2",100,21)=""
^DD(100,0,"IX","AZ",100,.01)=""
^DD(100,0,"NM","ORDER")=""
^DD(100,0,"PT",53.1,125)=""
^DD(100,0,"PT",55.05,7)=""
^DD(100,0,"PT",69.03,6)=""
^DD(100,0,"PT",75.1,7)=""
^DD(100,0,"PT",100,9)=""
^DD(100,0,"PT",100,9.1)=""
^DD(100,0,"PT",100,36)=""
^DD(100,0,"PT",100.002,.01)=""
^DD(100,0,"PT",100.2,4)=""
^DD(100,0,"PT",100.26,.01)=""
^DD(100,0,"PT",100.27,.01)=""
^DD(100,0,"PT",100.99,14)=""
^DD(100,0,"PT",102.4,.01)=""
^DD(100,0,"PT",115,20)=""
^DD(100,0,"PT",115.01,10)=""
^DD(100,0,"PT",115.016,.05)=""
^DD(100,0,"PT",115.016,13.5)=""
^DD(100,0,"PT",115.016,17.5)=""
^DD(100,0,"PT",115.016,21.5)=""
^DD(100,0,"PT",115.017,11)=""
^DD(100,0,"PT",115.017,14)=""
^DD(100,0,"PT",115.02,13)=""
^DD(100,0,"PT",115.03,11)=""
^DD(100,0,"PT",115.03,12)=""
^DD(100,0,"PT",115.04,13)=""
^DD(100,0,"PT",115.05,6)=""
^DD(100,0,"PT",115.06,7)=""
^DD(100,0,"PT",120.55,.01)=""
^DD(100,0,"PT",123,.03)=""
^DD(100,0,"PT",130,100)=""
^DD(100,0,"PT",373,.08)=""
^DD(100,0,"PT",668,19)=""
^DD(100,0,"PT",691,1000)=""
^DD(100,0,"PT",691.1,1000)=""
^DD(100,0,"PT",691.5,1000)=""
^DD(100,0,"PT",691.6,1000)=""
^DD(100,0,"PT",691.7,1000)=""
^DD(100,0,"PT",691.8,1000)=""
^DD(100,0,"PT",694,1000)=""
^DD(100,0,"PT",698,1000)=""
^DD(100,0,"PT",698.1,1000)=""
^DD(100,0,"PT",698.2,1000)=""
^DD(100,0,"PT",698.3,1000)=""
^DD(100,0,"PT",699,1000)=""
^DD(100,0,"PT",699.5,1000)=""
^DD(100,0,"PT",700,1000)=""
^DD(100,0,"PT",701,1000)=""
^DD(100,0,"PT",8925,1210)=""
^DD(100,0,"PT",9000010.18,.17)=""
^DD(100,0,"VR")="3.0"
^DD(100,0,"VRPK")="OR"
^DD(100,.01,0)="ORDER #^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<0) X I $D(X) S DINUM=X"
^DD(100,.01,.1)=""
^DD(100,.01,1,0)="^.1"
^DD(100,.01,1,1,0)="100^AZ^MUMPS"
^DD(100,.01,1,1,1)="S ^OR(100,""AZ"",DA,$P(^OR(100,DA,0),U,2))="""""
^DD(100,.01,1,1,2)="Q"
^DD(100,.01,1,1,"DT")="2990107"
^DD(100,.01,3)="Enter the order number."
^DD(100,.01,21,0)="^^1^1^2920225^^^^"
^DD(100,.01,21,1,0)="This is the internal order number of the file."
^DD(100,.01,"DT")="2990107"
^DD(100,.02,0)="OBJECT OF ORDER^RV^^0;2^Q"
^DD(100,.02,1,0)="^.1^^-1"
^DD(100,.02,1,2,0)="100^AC^MUMPS"
^DD(100,.02,1,2,1)="D SETALL^ORDD100(DA)"
^DD(100,.02,1,2,2)="D KILALL^ORDD100(DA)"
^DD(100,.02,1,2,"%D",0)="^^4^4^2971028^"
^DD(100,.02,1,2,"%D",1,0)="^OR(100,""AC"",ORVP,9999999-ORLOG,ORIFN,DA)"
^DD(100,.02,1,2,"%D",2,0)="Allows retrieval of ""active"" orders; includes orders with any kind of"
^DD(100,.02,1,2,"%D",3,0)="active status, as well as those that have ended w/in the Active Orders"
^DD(100,.02,1,2,"%D",4,0)="Context Hours."
^DD(100,.02,1,2,"DT")="2960830"
^DD(100,.02,1,5,0)="100^AS^MUMPS"
^DD(100,.02,1,5,1)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,8,ORDA)) Q:ORDA'>0  D S1^ORDD100(DA,ORDA,X)"
^DD(100,.02,1,5,2)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,9,ORDA)) Q:ORDA'>0  D S2^ORDD100(DA,ORDA,X)"
^DD(100,.02,1,5,"%D",0)="^^2^2^2971028^^^"
^DD(100,.02,1,5,"%D",1,0)="^OR(100,""AS"",ORVP,9999999-ORLOG,ORIFN,DA)"
^DD(100,.02,1,5,"%D",2,0)="Allows retrieval of unsigned orders."
^DD(100,.02,1,5,"DT")="2910624"
^DD(100,.02,1,7,0)="100^AR^MUMPS"
^DD(100,.02,1,7,1)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,8,ORDA)) Q:ORDA'>0  D RS^ORDD100(DA,ORDA,X)"
^DD(100,.02,1,7,2)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,8,ORDA)) Q:ORDA'>0  D RK^ORDD100(DA,ORDA,X)"
^DD(100,.02,1,7,"%D",0)="^^2^2^2980602^"
^DD(100,.02,1,7,"%D",1,0)="^OR(100,""AR"",ORVP,9999999-ORRDT,ORIFN,ORDA)"
^DD(100,.02,1,7,"%D",2,0)="Allows retrieval of orders by inverse date released."
^DD(100,.02,1,7,"DT")="2980602"
^DD(100,.02,1,9,0)="100^AW^MUMPS"
^DD(100,.02,1,9,1)="D WS^ORDD100"
^DD(100,.02,1,9,2)="D WK^ORDD100"
^DD(100,.02,1,9,"%D",0)="^^2^2^2971028^^^"
^DD(100,.02,1,9,"%D",1,0)="^OR(100,""AW"",ORVP,ORDG,ORSTRT,ORIFN)"
^DD(100,.02,1,9,"%D",2,0)="Allows retrieval of orders by display group."
^DD(100,.02,1,9,"DT")="2920526"
^DD(100,.02,1,10,0)="100^AOI1^MUMPS"
^DD(100,.02,1,10,1)="D OI1^ORDD100A(DA)"
^DD(100,.02,1,10,2)="D OI2^ORDD100A(DA)"
^DD(100,.02,1,10,"%D",0)="^^2^2^2971028^^^"
^DD(100,.02,1,10,"%D",1,0)="^OR(100,""AOI"",ORIT,ORVP,9999999-ORSTRT,ORIFN)"
^DD(100,.02,1,10,"%D",2,0)="Allows retrieval of patients for whom an item has been ordered."
^DD(100,.02,1,10,"DT")="2960404"
^DD(100,.02,1,11,0)="100^ACT1^MUMPS"
^DD(100,.02,1,11,1)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,8,ORDA)) Q:ORDA'>0  D ACT1^ORDD100A(DA,ORDA,,X)"
^DD(100,.02,1,11,2)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,8,ORDA)) Q:ORDA'>0  D ACT2^ORDD100A(DA,ORDA,,X)"
^DD(100,.02,1,11,"%D",0)="^^2^2^2971028^^^^"
^DD(100,.02,1,11,"%D",1,0)="^OR(100,""ACT"",ORVP,9999999-ORLOG,ORDG,ORIFN,DA)"
^DD(100,.02,1,11,"%D",2,0)="Allows retrieval of orders in reverse-chronological order."
^DD(100,.02,1,11,"DT")="2960801"
^DD(100,.02,3)="Enter the name of a patient."
^DD(100,.02,21,0)="^^2^2^2920224^^^^"
^DD(100,.02,21,1,0)="This is the individual object of the order.  Depending on the parent "
^DD(100,.02,21,2,0)="file entry, this would be the Patient, Control Point, etc."
^DD(100,.02,"DT")="3020612"
^DD(100,.02,"V",0)="^.12P^3^2"
^DD(100,.02,"V",1,0)="2^PATIENT^1^P^n^n"
^DD(100,.02,"V",3,0)="67^REFERRAL^6^R^n^n"
^DD(100,.02,"V","B",2,1)=""
^DD(100,.02,"V","B",67,3)=""
^DD(100,.02,"V","M","PATIENT",1)=""
^DD(100,.02,"V","M","REFERRAL",3)=""
^DD(100,.02,"V","O",1,1)=""
^DD(100,.02,"V","O",6,3)=""
^DD(100,.02,"V","P","P",1)=""
^DD(100,.02,"V","P","R",3)=""
^DD(100,.1,0)="ORDERABLE ITEMS^100.001PA^^.1;0"
^DD(100,.1,21,0)="^^1^1^2950622^^"
^DD(100,.1,21,1,0)="This multiple contains the items being ordered."
^DD(100,.1,"DT")="2950622"
^DD(100,.8,0)="ORDER ACTIONS^100.008DA^^8;0"
^DD(100,.8,3)="Enter the order that this order relates to."
^DD(100,.8,21,0)="^^2^2^2971219^^^^"
^DD(100,.8,21,1,0)="These are the actions taken on this order, including the signature and"
^DD(100,.8,21,2,0)="verification required to release to the service."
^DD(100,.8,"DT")="2951027"
^DD(100,.9,0)="ORDER CHECKS^100.09P^^9;0"
^DD(100,.9,21,0)="^^1^1^2971025^^^"
^DD(100,.9,21,1,0)="This is the list of order checks found for this order."
^DD(100,1,0)="CURRENT AGENT/PROVIDER^P200'^VA(200,^0;4^Q"
^DD(100,1,3)="Enter the name of the requesting clinician for this order."
^DD(100,1,21,0)="^^1^1^2970306^^^^"
^DD(100,1,21,1,0)="This is the person who is responsible for the order."
^DD(100,1,"DT")="2970306"
^DD(100,2,0)="DIALOG^RV^^0;5^Q"
^DD(100,2,1,0)="^.1^^0"
^DD(100,2,3)="Enter the dialog that was used to create this order."
^DD(100,2,21,0)="^^1^1^2951120^^^^"
^DD(100,2,21,1,0)="This is the dialog that created this order."
^DD(100,2,"DT")="2951101"
^DD(100,2,"V",0)="^.12P^2^2"
^DD(100,2,"V",1,0)="19^OPTION^1^OPT^^n"
^DD(100,2,"V",2,0)="101^PROTOCOL^2^PRO^^n"
^DD(100,2,"V",3,0)="101.41^DIALOG^3^DLG^n^n"
^DD(100,2,"V","B",19,1)=""
^DD(100,2,"V","B",101,2)=""
^DD(100,2,"V","B",101.41,3)=""
^DD(100,2,"V","M","DIALOG",3)=""
^DD(100,2,"V","M","OPTION",1)=""
^DD(100,2,"V","M","PROTOCOL",2)=""
^DD(100,2,"V","O",1,1)=""
^DD(100,2,"V","O",2,2)=""
^DD(100,2,"V","O",3,3)=""
^DD(100,2,"V","P","DLG",3)=""
^DD(100,2,"V","P","OPT",1)=""
^DD(100,2,"V","P","PRO",2)=""
^DD(100,3,0)="WHO ENTERED^P200'^VA(200,^0;6^Q"
^DD(100,3,3)="Enter the name of the person who entered this order."
^DD(100,3,21,0)="^^1^1^2920224^^^^"
^DD(100,3,21,1,0)="This is the USER who entered the information about the order."
^DD(100,3,"DT")="2900820"
^DD(100,4,0)="WHEN ENTERED^D^^0;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100,4,1,0)="^.1^^0"
^DD(100,4,3)="Enter the date/time when this order was entered."
^DD(100,4,21,0)="^^1^1^2920224^^^^"
^DD(100,4,21,1,0)="This is the date/time of completion of the initiation of the order."
^DD(100,4,"DT")="2961224"
^DD(100,4.5,0)="RESPONSES^100.045A^^4.5;0"
^DD(100,4.5,21,0)="^^1^1^2970926^^^^"
^DD(100,4.5,21,1,0)="This contains the responses to an order dialog."
^DD(100,4.5,"DT")="2910905"
^DD(100,5,0)="STATUS^*P100.01'^ORD(100.01,^3;3^S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100,5,1,0)="^.1^^0"
^DD(100,5,3)="Enter the status of this order."
^DD(100,5,12)="Data Standardization of Order Status file #100.01"
^DD(100,5,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"""
^DD(100,5,21,0)="^.001^1^1^3060223^^^^"
^DD(100,5,21,1,0)="This is the status of the order."
^DD(100,5,"DT")="3060223"
^DD(100,5.1,0)="ORDER DIAGNOSES^100.051PA^^5.1;0"
^DD(100,5.1,21,0)="^^1^1^3031216^"
^DD(100,5.1,21,1,0)="These are the the diagnoses associated with this order."
^DD(100,6,0)="PATIENT LOCATION^V^^0;10^Q"
^DD(100,6,3)="Enter the location of the patient."
^DD(100,6,21,0)="^^1^1^2920224^^^^"
^DD(100,6,21,1,0)="This is the hospital location from which the order originated."
^DD(100,6,"DT")="2970508"
^DD(100,6,"V",0)="^.12P^1^1"
^DD(100,6,"V",1,0)="44^HOSPITAL LOCATION^1^H^n^n"
^DD(100,6,"V","B",44,1)=""
^DD(100,6,"V","M","HOSPITAL LOCATION",1)=""
^DD(100,6,"V","O",1,1)=""
^DD(100,6,"V","P","H",1)=""
^DD(100,7,0)="ITEM ORDERED^V^^3;4^Q"
^DD(100,7,1,0)="^.1^^0"
^DD(100,7,3)="Enter the item ordered."
^DD(100,7,21,0)="^^1^1^2971027^^^^"
^DD(100,7,21,1,0)="This is the variable pointer to the file and item ordered. "
^DD(100,7,"DT")="2890131"
^DD(100,7,"V",0)="^.12P^3^2"
^DD(100,7,"V",1,0)="19^PROTOCOL^1^MISC^^n"
^DD(100,7,"V",2,0)="60^LAB TEST^2^LAB^^n"
^DD(100,7,"V",3,0)="101.41^ORDER DIALOG^3^DIALOG^n^n"
^DD(100,7,"V","B",19,1)=""
^DD(100,7,"V","B",60,2)=""
^DD(100,7,"V","B",101.41,3)=""
^DD(100,7,"V","M","LAB TEST",2)=""
^DD(100,7,"V","M","ORDER DIALOG",3)=""
^DD(100,7,"V","M","PROTOCOL",1)=""
^DD(100,7,"V","O",1,1)=""
^DD(100,7,"V","O",2,2)=""
^DD(100,7,"V","O",3,3)=""
^DD(100,7,"V","P","DIALOG",3)=""
^DD(100,7,"V","P","LAB",2)=""
^DD(100,7,"V","P","MISC",1)=""
^DD(100,8,0)="VEILED^S^1:VEILED;0:UNVEILED;^3;8^Q"
^DD(100,8,21,0)="^^3^3^2920224^^"
^DD(100,8,21,1,0)="This field is set when creating an order to prevent the order from"
^DD(100,8,21,2,0)="being displayed on the review screen until the order is complete and"
^DD(100,8,21,3,0)="accepted."
^DD(100,8,"DT")="2890816"
^DD(100,8.1,0)="TYPE^S^0:STANDARD;1:EDIT;2:RENEW;4:HOLD;6:DISCONTINUE;B:BCMA;C:COPY;X:TRANSFER;P:PACKAGE;^3;11^Q"
^DD(100,8.1,3)="The type of order is determined by the action a user takes when processing orders."
^DD(100,8.1,21,0)="^.001^2^2^3030815^^"
^DD(100,8.1,21,1,0)="This field is used to determine the type of order that is being processed."
^DD(100,8.1,21,2,0)="Different things happen depending on the order type."
^DD(100,8.1,"DT")="3030815"
^DD(100,9,0)="REPLACED ORDER^P100'^OR(100,^3;5^Q"
^DD(100,9,3)="Enter the number of the order that this order replaces."
^DD(100,9,21,0)="^^2^2^2951027^^^^"
^DD(100,9,21,1,0)="This is the order number of the order which was replaced by this order,"
^DD(100,9,21,2,0)="either by editing or renewal."
^DD(100,9,"DT")="2960202"
^DD(100,9.1,0)="REPLACEMENT ORDER^P100'^OR(100,^3;6^Q"
^DD(100,9.1,3)="Enter the number of the order that replaces this one."
^DD(100,9.1,21,0)="^^2^2^2970701^"
^DD(100,9.1,21,1,0)="This is the order number of the order that replaces this one, either"
^DD(100,9.1,21,2,0)="by edit or renewal."
^DD(100,9.1,"DT")="2970701"
^DD(100,10,0)="PATIENT CLASS^S^I:INPATIENT;O:OUTPATIENT;^0;12^Q"
^DD(100,10,3)="Enter the patient's classification for this order."
^DD(100,10,21,0)="^^2^2^2960918^"
^DD(100,10,21,1,0)="This is the patient's inpatient classification for this order; an inpatient"
^DD(100,10,21,2,0)="may have some orders performed on an outpatient basis."
^DD(100,10,"DT")="2960918"
^DD(100,11,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^0;13^Q"
^DD(100,11,3)="Enter the treating specialty associated with this order."
^DD(100,11,21,0)="^^1^1^2920423^^^^"
^DD(100,11,21,1,0)="This is the TREATING SPECIALTY associated with this order."
^DD(100,11,"DT")="2870522"
^DD(100,12,0)="PACKAGE^RP9.4'^DIC(9.4,^0;14^Q"
^DD(100,12,1,0)="^.1^^0"
^DD(100,12,3)="Enter the package that is generating this order."
^DD(100,12,21,0)="^^1^1^2920226^^^^"
^DD(100,12,21,1,0)="This is the package creating the order."
^DD(100,12,"DT")="2880307"
^DD(100,13,0)="COST^NJ11,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(100,13,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(100,13,21,0)="^^1^1^2920224^^^^"
^DD(100,13,21,1,0)="This is the cost of filling this order."
^DD(100,13,"DT")="2871202"
^DD(100,14,0)="SIGNATURE REQUIRED^S^0:NONE;1:ORELSE;2:ORES;^0;16^Q"
^DD(100,14,3)="Enter the OR key required to sign this order"
^DD(100,14,21,0)="^^4^4^2970314^"
^DD(100,14,21,1,0)="This is the OR key required to sign this order.  If set to 2, only users"
^DD(100,14,21,2,0)="with the ORES key will be allowed to sign this order; if set to 1, users"
^DD(100,14,21,3,0)="with either the ORELSE or ORES keys will be allowed to sign.  A 0 or """""
^DD(100,14,21,4,0)="indicates that no signature is required."
^DD(100,14,"DT")="2970314"
^DD(100,15,0)="EVENT^P100.2'^ORE(100.2,^0;17^Q"
^DD(100,15,1,0)="^.1^^0"
^DD(100,15,3)="Enter the event this order should be delayed for."
^DD(100,15,21,0)="^.001^1^1^3020425^^^"
^DD(100,15,21,1,0)="This is the event that this order's release is/was delayed till."
^DD(100,15,"DT")="3020425"
^DD(100,16,0)="PATIENT APPOINTMENT^D^^0;18^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(100,16,21,0)="^^2^2^3031230^"
^DD(100,16,21,1,0)="This is the appointment date/time for outpatients and is only entered "
^DD(100,16,21,2,0)="when inpatient medications are ordered for them."
^DD(100,16,"DT")="3031230"
^DD(100,20,0)="CHILDREN^100.002PA^^2;0"
^DD(100,20,3)="Enter the children associated with this order."
^DD(100,20,21,0)="^^2^2^2920224^^^^"
^DD(100,20,21,1,0)="This field allows a single order or set of orders to be linked "
^DD(100,20,21,2,0)="to a parent order."
^DD(100,21,0)="START DATE^D^^0;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(100,21,1,0)="^.1"
^DD(100,21,1,1,0)="100^AD^MUMPS"
^DD(100,21,1,1,1)="D SS^ORDD100"
^DD(100,21,1,1,2)="D SK^ORDD100"
^DD(100,21,1,1,"%D",0)="^^3^3^2971028^^"
^DD(100,21,1,1,"%D",1,0)="^OR(100,""AD"",ORSTRT,ORIFN)"
^DD(100,21,1,1,"%D",2,0)="Allows retrieval of orders by start date; set only for future orders"
^DD(100,21,1,1,"%D",3,0)="that are scheduled."
^DD(100,21,1,1,"DT")="2970312"
^DD(100,21,1,2,0)="100^AW2^MUMPS"
^DD(100,21,1,2,1)="D WS^ORDD100"
^DD(100,21,1,2,2)="D WK^ORDD100"
^DD(100,21,1,2,"%D",0)="^^2^2^2971028^"
^DD(100,21,1,2,"%D",1,0)="^OR(100,""AW"",ORVP,ORDG,ORSTRT,ORIFN)"
^DD(100,21,1,2,"%D",2,0)="Allows retrieval of orders by display group."
^DD(100,21,1,2,"DT")="2970312"
^DD(100,21,1,3,0)="100^AOI2^MUMPS"
^DD(100,21,1,3,1)="D OI1^ORDD100A(DA)"
^DD(100,21,1,3,2)="D OI2^ORDD100A(DA)"
^DD(100,21,1,3,"%D",0)="^^2^2^2971028^^"
^DD(100,21,1,3,"%D",1,0)="^OR(100,""AOI"",ORIT,ORVP,9999999-ORSTRT,ORIFN)"
^DD(100,21,1,3,"%D",2,0)="Allows retrieval of patients for whom an item has been ordered."
^DD(100,21,1,3,"DT")="2970312"
^DD(100,21,3)="Enter the start date/time for this order"
^DD(100,21,21,0)="^^1^1^2970312^^^^"
^DD(100,21,21,1,0)="This is the start date/time of the order."
^DD(100,21,"DT")="2970312"
^DD(100,22,0)="STOP DATE^DX^^0;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P(^OR(100,DA,0),""^"",8) K X"
^DD(100,22,1,0)="^.1"
^DD(100,22,1,1,0)="100^AE^MUMPS"
^DD(100,22,1,1,1)="D ES^ORDD100A"
^DD(100,22,1,1,2)="D EK^ORDD100A"
^DD(100,22,1,1,"%D",0)="^^3^3^2971028^^^"
^DD(100,22,1,1,"%D",1,0)="^OR(100,""AE"",ORSTOP,ORIFN)"
^DD(100,22,1,1,"%D",2,0)="Allows retrieval of orders by expiration date; set only for orders that"
^DD(100,22,1,1,"%D",3,0)="have not already completed, expired, or been discontinued or canceled."
^DD(100,22,1,1,"DT")="2960625"
^DD(100,22,3)="STOP DATE must be after the START DATE."
^DD(100,22,21,0)="^^1^1^2970710^^^^"
^DD(100,22,21,1,0)="This is the stop date/time of the order."
^DD(100,22,"DT")="2960625"
^DD(100,23,0)="TO^RP100.98'^ORD(100.98,^0;11^Q"
^DD(100,23,1,0)="^.1^^-1"
^DD(100,23,1,1,0)="100^AW1^MUMPS"
^DD(100,23,1,1,1)="D WS^ORDD100"
^DD(100,23,1,1,2)="D WK^ORDD100"
^DD(100,23,1,1,"%D",0)="^^2^2^2971028^"
^DD(100,23,1,1,"%D",1,0)="^OR(100,""AW"",ORVP,ORDG,ORSTRT,ORIFN)"
^DD(100,23,1,1,"%D",2,0)="Allows retrieval of orders by display group."
^DD(100,23,1,1,"DT")="2920601"
^DD(100,23,1,3,0)="100^ACT2^MUMPS"
^DD(100,23,1,3,1)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,8,ORDA)) Q:ORDA'>0  D ACT1^ORDD100A(DA,ORDA,,,X)"
^DD(100,23,1,3,2)="N ORDA S ORDA=0 F  S ORDA=$O(^OR(100,DA,8,ORDA)) Q:ORDA'>0  D ACT2^ORDD100A(DA,ORDA,,,X)"
^DD(100,23,1,3,"%D",0)="^^2^2^2971028^^^^"
^DD(100,23,1,3,"%D",1,0)="^OR(100,""ACT"",ORVP,9999999-ORLOG,ORDG,ORIFN,DA)"
^DD(100,23,1,3,"%D",2,0)="Allows retrieval of orders in reverse-chronological order."
^DD(100,23,1,3,"DT")="2960801"
^DD(100,23,3)="Enter the service that generates this order."
^DD(100,23,21,0)="^^2^2^2920224^^^^"
^DD(100,23,21,1,0)="This is the service to which the order is referred."
^DD(100,23,21,2,0)="This is used to determine the display group in which the order appears."
^DD(100,23,"DT")="2961017"
^DD(100,23,"V",0)="^.12P"
^DD(100,30,0)="CURRENT ACTION^NJ3,0^^3;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100,30,1,0)="^.1^^0"
^DD(100,30,3)="Enter the item number of the action currently being taken on this order"
^DD(100,30,21,0)="^^3^3^2961031^^^^"
^DD(100,30,21,1,0)="This is the item number of the action in the Order Actions multiple that"
^DD(100,30,21,2,0)="is currently being carried out on this order; it will be used to build"
^DD(100,30,21,3,0)="the text for the Current Orders list."
^DD(100,30,"DT")="2961030"
^DD(100,31,0)="DATE OF LAST ACTIVITY^D^^3;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(100,31,3)="Enter the date of last activity for this order."
^DD(100,31,21,0)="^^1^1^2970306^^^^"
^DD(100,31,21,1,0)="This is the date/time the order was last updated."
^DD(100,31,"DT")="2970306"
^DD(100,32,0)="GRACE DAYS BEFORE PURGE^NJ3,0^^3;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100,32,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(100,32,21,0)="^^8^8^2970306^^^^"
^DD(100,32,21,1,0)="This is the number of days to hold an order from the"
^DD(100,32,21,2,0)="date of last activity. The order in OE/RR may be "
^DD(100,32,21,3,0)="purged after this date."
^DD(100,32,21,4,0)="The default is 30 days.  If a package needs the order"
^DD(100,32,21,5,0)="retained for a period longer than 30 days, this can"
^DD(100,32,21,6,0)="be specified when the order is created by setting the"
^DD(100,32,21,7,0)="variable ORPURG to the appropriate number of days before"
^DD(100,32,21,8,0)="calling FILE^ORX."
^DD(100,32,"DT")="2970306"
^DD(100,33,0)="PACKAGE REFERENCE^F^^4;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(100,33,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(100,33,21,0)="^^4^4^2960801^^^^"
^DD(100,33,21,1,0)="This information allows the package to link the order in OR"
^DD(100,33,21,2,0)="with its more detailed order information in the individual package."
^DD(100,33,21,3,0)="It is the package's responsibility to define and determine the"
^DD(100,33,21,4,0)="structure of this information."
^DD(100,33,"DT")="2850807"
^DD(100,35,0)="ALERT ON RESULTS^P200'^VA(200,^3;10^Q"
^DD(100,35,3)="Enter the name of the user to be alerted when results for this order become available."
^DD(100,35,21,0)="^.001^3^3^3011210^^^"
^DD(100,35,21,1,0)="This field contains the user who requested to be alerted when results"
^DD(100,35,21,2,0)="for this order become available.  Only lab, radiology, and consult orders"
^DD(100,35,21,3,0)="will generate results."
^DD(100,35,"DT")="3011210"
^DD(100,36,0)="PARENT^P100'^OR(100,^3;9^Q"
^DD(100,36,3)="Enter the parent, if this order is its child."
^DD(100,36,21,0)="^^1^1^2920423^^^"
^DD(100,36,21,1,0)="This is the parent of an order that may have a parent/child relationship."
^DD(100,36,"DT")="2900116"
^DD(100,51,0)="SERVICE CONNECTED CONDITION^S^1:YES;0:NO;^5;1^Q"
^DD(100,51,3)="Enter YES if this order is for treatment of a service-connected condition."
^DD(100,51,21,0)="^.001^5^5^3010921^^"
^DD(100,51,21,1,0)="When signing orders, the provider may be asked if this order is for"
^DD(100,51,21,2,0)="treatment of  a service-connected condition; his/her response to this"
^DD(100,51,21,3,0)="question will be stored in this field.  Currently this question is only"
^DD(100,51,21,4,0)="asked for Outpatient Medications, and the response is passed to that"
^DD(100,51,21,5,0)="package with the new order."
^DD(100,51,"DT")="3010921"
^DD(100,52,0)="MST^S^1:YES;0:NO;^5;2^Q"
^DD(100,52,.1)="MILITARY SEXUAL TRAUMA"
^DD(100,52,3)="Enter YES if this order is for treatment of a condition due to MST."
^DD(100,52,21,0)="^^6^6^3010925^"
^DD(100,52,21,1,0)="If a patient has been identified as having been treated for Military"
^DD(100,52,21,2,0)="Sexual Trauma (MST), then the provider may be asked when signing the"
^DD(100,52,21,3,0)="order if it is for treatment of a condition related to MST and his/her"
^DD(100,52,21,4,0)="response to this question will be stored in this field.  Currently this"
^DD(100,52,21,5,0)="question is only asked for Outpatient Medications, and the response is"
^DD(100,52,21,6,0)="passed to that package with the new order."
^DD(100,52,"DT")="3010925"
^DD(100,53,0)="AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^5;3^Q"
^DD(100,53,3)="Enter YES if this order is for treatment of a condition due to Agent Orange exposure during Vietnam service."
^DD(100,53,21,0)="^^6^6^3010925^"
^DD(100,53,21,1,0)="If a patient has been identified as having been exposed to Agent Orange"
^DD(100,53,21,2,0)="(AO) during service in Vietnam, then the provider may be asked when"
^DD(100,53,21,3,0)="signing the order if it is for treatment of a condition related to AO"
^DD(100,53,21,4,0)="and his/her response to this question will be stored in this field."
^DD(100,53,21,5,0)="Currently this question is only asked for Outpatient Medications, and"
^DD(100,53,21,6,0)="the response is passed to that package with the new order."
^DD(100,53,"DT")="3010921"
^DD(100,54,0)="IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^5;4^Q"
^DD(100,54,3)="Enter YES if this order is for treatment of a condition due to ionizing radiation exposure during military service."
^DD(100,54,21,0)="^^7^7^3010925^"
^DD(100,54,21,1,0)="If a patient has been identified as having been treated for exposure to"
^DD(100,54,21,2,0)="ionizing radiation (IR) during military service, then the provider may"
^DD(100,54,21,3,0)="be asked when signing the order if it is for treatment of a condition"
^DD(100,54,21,4,0)="related to IR and his/her response to this question will be stored in"
^DD(100,54,21,5,0)="this field.  Currently this question is only asked for Outpatient"
^DD(100,54,21,6,0)="Medications, and the response is passed to that package with the new"
^DD(100,54,21,7,0)="order."
^DD(100,54,"DT")="3010921"
^DD(100,55,0)="ENVIRONMENTAL CONTAMINANTS^S^1:YES;0:NO;^5;5^Q"
^DD(100,55,3)="Enter YES if this order is for treatment of a condition due to environmental contaminant exposure during the Persian Gulf War."
^DD(100,55,21,0)="^.001^7^7^3010921^^"
^DD(100,55,21,1,0)="If a patient has been identified as having been treated for exposure to"
^DD(100,55,21,2,0)="environmental contaminants (EC) during the Persian Gulf War, then the"
^DD(100,55,21,3,0)="provider may be asked when signing the order if it is for treatment of a"
^DD(100,55,21,4,0)="condition related to EC and his/her response to this question will be"
^DD(100,55,21,5,0)="stored in this field.  Currently this question is only asked for"
^DD(100,55,21,6,0)="Outpatient Medications, and the response is passed to that package with"
^DD(100,55,21,7,0)="the new order."
^DD(100,55,"DT")="3010921"
^DD(100,56,0)="HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^5;6^Q"
^DD(100,56,3)="Enter YES if this order is for treatment of head or neck cancer due to nose or throat radium treatments while in the military."
^DD(100,56,21,0)="^^7^7^3010925^"
^DD(100,56,21,1,0)="If a patient has been identified as having been treated for head or neck"
^DD(100,56,21,2,0)="cancer due to nose or throat radium treatments while in the military,"
^DD(100,56,21,3,0)="then the provider may be asked when signing the order if it is for"
^DD(100,56,21,4,0)="treatment of head or neck cancer and his/her response to this question"
^DD(100,56,21,5,0)="will be stored in this field.  Currently this question is only asked for"
^DD(100,56,21,6,0)="Outpatient Medications, and the response is passed to that package with"
^DD(100,56,21,7,0)="the new order."
^DD(100,56,"DT")="3010925"
^DD(100,57,0)="COMBAT VETERAN^S^1:YES;0:NO;^5;7^Q"
^DD(100,57,3)="Enter YES if this order is for treatment of a condition related to combat."
^DD(100,57,21,0)="^^5^5^3031117^"
^DD(100,57,21,1,0)="When signing orders, the provider may be asked if this order is for"
^DD(100,57,21,2,0)="treatment of a combat-related condition; his/her response to this"
^DD(100,57,21,3,0)="question will be stored in this field.  Currently this question is only"
^DD(100,57,21,4,0)="asked for Outpatient Medications, and the response is passed to that"
^DD(100,57,21,5,0)="package with the new order."
^DD(100,57,"DT")="3031117"
^DD(100,61,0)="NATURE OF DC^*P100.02'^ORD(100.02,^6;1^S DIC(""S"")=""I '$$SCREEN^XTID(100.02,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100,61,3)="Enter the nature of this dc order"
^DD(100,61,12)="Data Standardization of Nature of Order file #100.02"
^DD(100,61,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.02,,Y_"""","""")"""
^DD(100,61,21,0)="^.001^4^4^3060223^^^^"
^DD(100,61,21,1,0)="Orders that are DC'ed because they have been duplicated do not create a"
^DD(100,61,21,2,0)="DC order, nor is a chart copy or electronic signature notification"
^DD(100,61,21,3,0)="generated.  If this is a CHANGE IN THERAPY, then a DC order is generated"
^DD(100,61,21,4,0)="that must be signed, and a chart copy of the new DC request is printed."
^DD(100,61,"DT")="3060223"
^DD(100,62,0)="DC'ed BY^P200'^VA(200,^6;2^Q"
^DD(100,62,3)="Enter the name of the person who DC'ed this order"
^DD(100,62,21,0)="^^1^1^2970312^"
^DD(100,62,21,1,0)="This is the person who DC'ed this order."
^DD(100,62,"DT")="2970312"
^DD(100,63,0)="DC DATE/TIME^D^^6;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100,63,3)="Enter the date/time this order was DC'ed."
^DD(100,63,21,0)="^^1^1^2970312^"
^DD(100,63,21,1,0)="This is the date/time the order was DC'ed."
^DD(100,63,"DT")="2970312"
^DD(100,64,0)="DC REASON^P100.03'^ORD(100.03,^6;4^Q"
^DD(100,64,3)="Enter the reason why this order was DC'ed."
^DD(100,64,21,0)="^^1^1^2970312^"
^DD(100,64,21,1,0)="This is the reason this order was DC'ed, i.e. ""Patient discharged."""
^DD(100,64,"DT")="2970312"
^DD(100,65,0)="DC REASON TEXT^F^^6;5^K:$L(X)>80!($L(X)<1) X"
^DD(100,65,3)="Answer must be 1-80 characters in length."
^DD(100,65,21,0)="^^1^1^2970312^^"
^DD(100,65,21,1,0)="This is the text of the DC reason."
^DD(100,65,"DT")="2970312"
^DD(100,66,0)="COMPLETED^D^^6;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100,66,3)="Enter the date/time this order was completed."
^DD(100,66,21,0)="^^1^1^2990519^^"
^DD(100,66,21,1,0)="This is the date/time the order was marked as complete."
^DD(100,66,"DT")="2990519"
^DD(100,67,0)="COMPLETED BY^P200'^VA(200,^6;7^Q"
^DD(100,67,3)="Enter the name of the person who completed this order."
^DD(100,67,21,0)="^^1^1^2990519^"
^DD(100,67,21,1,0)="This is the person who marked this order as complete."
^DD(100,67,"DT")="2990519"
^DD(100,68,0)="DC EVENT^P100.2'^ORE(100.2,^6;8^Q"
^DD(100,68,3)="Enter the event that caused this order to terminate."
^DD(100,68,21,0)="^.001^1^1^3020425^^^"
^DD(100,68,21,1,0)="This is the event that automatically discontinued this order."
^DD(100,68,"DT")="3020425"
^DD(100,71,0)="RESULTS DATE/TIME^D^^7;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(100,71,3)="Enter the date/time this order was resulted."
^DD(100,71,21,0)="^.001^2^2^3020930^^"
^DD(100,71,21,1,0)="This field contains the date/time that results became available for this"
^DD(100,71,21,2,0)="order; only Lab, Radiology, and Consult orders have results."
^DD(100,71,"DT")="3030402"
^DD(100,72,0)="ABNORMAL RESULTS^S^1:YES;^7;2^Q"
^DD(100,72,3)="Enter YES if the results of this order are abnormal."
^DD(100,72,21,0)="^.001^1^1^3021007^^"
^DD(100,72,21,1,0)="This field indicates whether the results for this order were abnormal, or outside of normal ranges."
^DD(100,72,"DT")="3020930"
^DD(100,73,0)="FINDINGS^F^^7;3^K:$L(X)>80!($L(X)<1) X"
^DD(100,73,3)="Answer must be 1-80 characters in length."
^DD(100,73,21,0)="^^2^2^3020930^"
^DD(100,73,21,1,0)="This field contains the text of any significant findings for the results"
^DD(100,73,21,2,0)="of this order."
^DD(100,73,"DT")="3020930"
^DD(100,80,0)="V POV^100.04PA^^10.5;0"
^DD(100,90,0)="BA SERVICE CONNECTED CONDITION^S^1:YES;0:NO;^5.2;1^Q"
^DD(100,90,3)="Enter YES if this order is for treatment of a service-connected condition."
^DD(100,90,21,0)="^.001^1^1^3040123^^"
^DD(100,90,21,1,0)="When signing orders, the provider may be asked if this order is for treatment of a service-connected condition; his/her response to this question will be stored in this field."
^DD(100,90,"DT")="3040123"
^DD(100,91,0)="BA MILITARY SEXUAL TRAUMA^S^1:YES;0:NO;^5.2;2^Q"
^DD(100,91,3)="Enter YES if this order is for treatment of a condition due to MST."
^DD(100,91,"DT")="3040123"
^DD(100,92,0)="BA AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^5.2;3^Q"
^DD(100,92,3)="Enter YES if this order is for treatment of a condition due to Agent Oragne exposure during Vietnam service."
^DD(100,92,"DT")="3040123"
^DD(100,93,0)="BA IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^5.2;4^Q"
^DD(100,93,3)="Enter YES if this order is for treatment of a condition due to ionizing radiation exposure during military service."
^DD(100,93,"DT")="3040123"
^DD(100,94,0)="BA ENVIRONMENTAL CONTAMINANTS^S^1:YES;0:NO;^5.2;5^Q"
^DD(100,94,3)="Enter YES if this ordre is for treatmetn of a condition due to environmental contaminant exposure during the Persian Gulf War."
^DD(100,94,"DT")="3040123"
^DD(100,95,0)="BA HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^5.2;6^Q"
^DD(100,95,3)="Enter YES if this order is for treatment of head or neck cancer due to nose or throat radium treatments while in the military."
^DD(100,95,"DT")="3040123"
^DD(100,96,0)="BA COMBAT VETERAN^S^1:YES;0:NO;^5.2;7^Q"
^DD(100,96,3)="Enter YES if this order is for treatment of a condition related to combat."
^DD(100,96,"DT")="3040123"
^DD(100,97,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^5.5;1^Q"
^DD(100,97,21,0)="^.001^3^3^3050607^^^"
^DD(100,97,21,1,0)="The PFSS Account Reference field stores the PFSS Account Reference "
^DD(100,97,21,2,0)="associated with the order. The field is a pointer to the PFSS Account "
^DD(100,97,21,3,0)="Reference file (#375)."
^DD(100,97,"DT")="3050602"
^DD(100,"B","ABNORMAL RESULTS",72)=""
^DD(100,"B","AGENT ORANGE EXPOSURE",53)=""
^DD(100,"B","ALERT ON RESULTS",35)=""
^DD(100,"B","BA AGENT ORANGE EXPOSURE",92)=""
^DD(100,"B","BA COMBAT VETERAN",96)=""
^DD(100,"B","BA ENVIRONMENTAL CONTAMINANTS",94)=""
^DD(100,"B","BA HEAD AND/OR NECK CANCER",95)=""
^DD(100,"B","BA IONIZING RADIATION EXPOSURE",93)=""
^DD(100,"B","BA MILITARY SEXUAL TRAUMA",91)=""
^DD(100,"B","BA SERVICE CONNECTED CONDITION",90)=""
^DD(100,"B","CHILDREN",20)=""
^DD(100,"B","COMBAT VETERAN",57)=""
^DD(100,"B","COMPLETED",66)=""
^DD(100,"B","COMPLETED BY",67)=""
^DD(100,"B","COST",13)=""
^DD(100,"B","CURRENT ACTION",30)=""
^DD(100,"B","CURRENT AGENT/PROVIDER",1)=""
^DD(100,"B","DATE OF LAST ACTIVITY",31)=""
^DD(100,"B","DC DATE/TIME",63)=""
^DD(100,"B","DC EVENT",68)=""
^DD(100,"B","DC REASON",64)=""
^DD(100,"B","DC REASON TEXT",65)=""
^DD(100,"B","DC'ed BY",62)=""
^DD(100,"B","DIALOG",2)=""
^DD(100,"B","ENVIRONMENTAL CONTAMINANTS",55)=""
^DD(100,"B","EVENT",15)=""
^DD(100,"B","FINDINGS",73)=""
^DD(100,"B","GRACE DAYS BEFORE PURGE",32)=""
^DD(100,"B","HEAD AND/OR NECK CANCER",56)=""
^DD(100,"B","IONIZING RADIATION EXPOSURE",54)=""
^DD(100,"B","ITEM ORDERED",7)=""
^DD(100,"B","MILITARY SEXUAL TRAUMA",52)="1"
^DD(100,"B","MST",52)=""
^DD(100,"B","NATURE OF DC",61)=""
^DD(100,"B","OBJECT OF ORDER",.02)=""
^DD(100,"B","ORDER #",.01)=""
^DD(100,"B","ORDER ACTIONS",.8)=""
^DD(100,"B","ORDER CHECKS",.9)=""
^DD(100,"B","ORDER DIAGNOSES",5.1)=""
^DD(100,"B","ORDERABLE ITEMS",.1)=""
^DD(100,"B","PACKAGE",12)=""
^DD(100,"B","PACKAGE REFERENCE",33)=""
^DD(100,"B","PARENT",36)=""
^DD(100,"B","PATIENT APPOINTMENT",16)=""
^DD(100,"B","PATIENT CLASS",10)=""
^DD(100,"B","PATIENT LOCATION",6)=""
^DD(100,"B","PFSS ACCOUNT REFERENCE",97)=""
^DD(100,"B","REPLACED ORDER",9)=""
^DD(100,"B","REPLACEMENT ORDER",9.1)=""
^DD(100,"B","RESPONSES",4.5)=""
^DD(100,"B","RESULTS DATE/TIME",71)=""
^DD(100,"B","SERVICE CONNECTED CONDITION",51)=""
^DD(100,"B","SIGNATURE REQUIRED",14)=""
^DD(100,"B","START DATE",21)=""
^DD(100,"B","STATUS",5)=""
^DD(100,"B","STOP DATE",22)=""
^DD(100,"B","TO",23)=""
^DD(100,"B","TREATING SPECIALTY",11)=""
^DD(100,"B","TYPE",8.1)=""
^DD(100,"B","V POV",80)=""
^DD(100,"B","VEILED",8)=""
^DD(100,"B","WHEN ENTERED",4)=""
^DD(100,"B","WHO ENTERED",3)=""
^DD(100,"GL",0,1,.01)=""
^DD(100,"GL",0,2,.02)=""
^DD(100,"GL",0,4,1)=""
^DD(100,"GL",0,5,2)=""
^DD(100,"GL",0,6,3)=""
^DD(100,"GL",0,7,4)=""
^DD(100,"GL",0,8,21)=""
^DD(100,"GL",0,9,22)=""
^DD(100,"GL",0,10,6)=""
^DD(100,"GL",0,11,23)=""
^DD(100,"GL",0,12,10)=""
^DD(100,"GL",0,13,11)=""
^DD(100,"GL",0,14,12)=""
^DD(100,"GL",0,15,13)=""
^DD(100,"GL",0,16,14)=""
^DD(100,"GL",0,17,15)=""
^DD(100,"GL",0,18,16)=""
^DD(100,"GL",.1,0,.1)=""
^DD(100,"GL",2,0,20)=""
^DD(100,"GL",3,1,31)=""
^DD(100,"GL",3,2,32)=""
^DD(100,"GL",3,3,5)=""
^DD(100,"GL",3,4,7)=""
^DD(100,"GL",3,5,9)=""
^DD(100,"GL",3,6,9.1)=""
^DD(100,"GL",3,7,30)=""
^DD(100,"GL",3,8,8)=""
^DD(100,"GL",3,9,36)=""
^DD(100,"GL",3,10,35)=""
^DD(100,"GL",3,11,8.1)=""
^DD(100,"GL",4,"E1,200",33)=""
^DD(100,"GL",4.5,0,4.5)=""
^DD(100,"GL",5,1,51)=""
^DD(100,"GL",5,2,52)=""
^DD(100,"GL",5,3,53)=""
^DD(100,"GL",5,4,54)=""
^DD(100,"GL",5,5,55)=""
^DD(100,"GL",5,6,56)=""
^DD(100,"GL",5,7,57)=""
^DD(100,"GL",5.1,0,5.1)=""
^DD(100,"GL",5.2,1,90)=""
^DD(100,"GL",5.2,2,91)=""
^DD(100,"GL",5.2,3,92)=""
^DD(100,"GL",5.2,4,93)=""
^DD(100,"GL",5.2,5,94)=""
^DD(100,"GL",5.2,6,95)=""
^DD(100,"GL",5.2,7,96)=""
^DD(100,"GL",5.5,1,97)=""
^DD(100,"GL",6,1,61)=""
^DD(100,"GL",6,2,62)=""
^DD(100,"GL",6,3,63)=""
^DD(100,"GL",6,4,64)=""
^DD(100,"GL",6,5,65)=""
^DD(100,"GL",6,6,66)=""
^DD(100,"GL",6,7,67)=""
^DD(100,"GL",6,8,68)=""
^DD(100,"GL",7,1,71)=""
^DD(100,"GL",7,2,72)=""
^DD(100,"GL",7,3,73)=""
^DD(100,"GL",8,0,.8)=""
^DD(100,"GL",9,0,.9)=""
^DD(100,"GL",10.5,0,80)=""
^DD(100,"IX",.01)=""
^DD(100,"IX",.02)=""
^DD(100,"IX",21)=""
^DD(100,"IX",22)=""
^DD(100,"IX",23)=""
^DD(100,"RQ",.01)=""
^DD(100,"RQ",.02)=""
^DD(100,"RQ",2)=""
^DD(100,"RQ",12)=""
^DD(100,"RQ",23)=""
^DD(100,"SB",100.001,.1)=""
^DD(100,"SB",100.002,20)=""
^DD(100,"SB",100.008,.8)=""
^DD(100,"SB",100.04,80)=""
^DD(100,"SB",100.045,4.5)=""
^DD(100,"SB",100.051,5.1)=""
^DD(100,"SB",100.09,.9)=""
^DD(100.001,0)="ORDERABLE ITEMS SUB-FIELD^^.01^1"
^DD(100.001,0,"DIK")="ORD2"
^DD(100.001,0,"DT")="2950622"
^DD(100.001,0,"IX","B",100.001,.01)=""
^DD(100.001,0,"NM","ORDERABLE ITEMS")=""
^DD(100.001,0,"UP")="100"
^DD(100.001,.01,0)="ORDERABLE ITEM^MP101.43'^ORD(101.43,^0;1^Q"
^DD(100.001,.01,1,0)="^.1"
^DD(100.001,.01,1,1,0)="100.001^B"
^DD(100.001,.01,1,1,1)="S ^OR(100,DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(100.001,.01,1,1,2)="K ^OR(100,DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(100.001,.01,1,2,0)="100^AOI^MUMPS"
^DD(100.001,.01,1,2,1)="D OI1^ORDD100A(DA(1))"
^DD(100.001,.01,1,2,2)="D OI2^ORDD100A(DA(1))"
^DD(100.001,.01,1,2,"%D",0)="^^2^2^2971028^^"
^DD(100.001,.01,1,2,"%D",1,0)="^OR(100,""AOI"",ORIT,ORVP,9999999-ORSTRT,ORIFN)"
^DD(100.001,.01,1,2,"%D",2,0)="Allows retrieval of patients for whom an item has been ordered."
^DD(100.001,.01,1,2,"DT")="2960404"
^DD(100.001,.01,3)="Enter the item you wish to order."
^DD(100.001,.01,21,0)="^^2^2^2950622^"
^DD(100.001,.01,21,1,0)="This is the actual item (test, procedure, diet, drug, etc) being ordered"
^DD(100.001,.01,21,2,0)="from the Orderable Items file."
^DD(100.001,.01,"DT")="2960404"
^DD(100.001,"B","ORDERABLE ITEM",.01)=""
^DD(100.001,"GL",0,1,.01)=""
^DD(100.001,"IX",.01)=""
^DD(100.002,0)="CHILDREN SUB-FIELD^NL^.01^1"
^DD(100.002,0,"DIK")="ORD2"
^DD(100.002,0,"IX","AL",100.002,.01)=""
^DD(100.002,0,"NM","CHILDREN")=""
^DD(100.002,0,"UP")="100"
^DD(100.002,.01,0)="CHILDREN^M*P100X^OR(100,^0;1^D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(100.002,.01,1,0)="^.1^^0"
^DD(100.002,.01,1,1,0)="100.002^AL^MUMPS"
^DD(100.002,.01,1,1,1)="S P=$P(^OR(100,DA(1),0),""^"",2),P2=$P(^(0),""^"",8),P1=$S($D(^(3)):$P(^(3),""^"",4),1:"""") I P,P1,P2 S ^OR(100,""AL"",P,P1,P2,DA,DA(1))="""""
^DD(100.002,.01,1,1,2)="S P=$P(^OR(100,DA(1),0),""^"",2),P2=$P(^(0),""^"",8),P1=$S($D(^(3)):$P(^(3),""^"",4),1:"""") I P,P1,P2 K ^OR(100,""AL"",P,P1,P2,DA,DA(1))"
^DD(100.002,.01,3)="Enter the children associated with this order."
^DD(100.002,.01,21,0)="^^2^2^2920224^^^^"
^DD(100.002,.01,21,1,0)="These are the orders which compose this entry "
^DD(100.002,.01,21,2,0)="and have this entry in the Parent field."
^DD(100.002,.01,"DT")="2900116"
^DD(100.002,"B","CHILDREN",.01)=""
^DD(100.002,"GL",0,1,.01)=""
^DD(100.002,"IX",.01)=""
^DD(100.008,0)="ORDER ACTIONS SUB-FIELD^^74^41"
^DD(100.008,0,"DIK")="ORD2"
^DD(100.008,0,"DT")="3020425"
^DD(100.008,0,"IX","C",100.008,2)=""
^DD(100.008,0,"NM","ORDER ACTIONS")=""
^DD(100.008,0,"UP")="100"
^DD(100.008,.01,0)="DATE/TIME ORDERED^RD^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,.01,1,0)="^.1"
^DD(100.008,.01,1,1,0)="100^ACT3^MUMPS"
^DD(100.008,.01,1,1,1)="N ORDA S ORDA=DA(1) D ACT1^ORDD100A(ORDA,DA)"
^DD(100.008,.01,1,1,2)="N ORDA S ORDA=DA(1) D ACT2^ORDD100A(ORDA,DA)"
^DD(100.008,.01,1,1,"%D",0)="^^2^2^2971028^^^^"
^DD(100.008,.01,1,1,"%D",1,0)="^OR(100,""ACT"",ORVP,9999999-ORLOG,ORDG,ORIFN,DA)"
^DD(100.008,.01,1,1,"%D",2,0)="Allows retrieval of orders in reverse-chronological order."
^DD(100.008,.01,1,1,"DT")="2961224"
^DD(100.008,.01,1,2,0)="100^AC1^MUMPS"
^DD(100.008,.01,1,2,1)="N X1,X2 S X1=DA(1),X2=DA D SET^ORDD100(X1,X2)"
^DD(100.008,.01,1,2,2)="N X1,X2 S X1=DA(1),X2=DA D KIL^ORDD100(X1,X2)"
^DD(100.008,.01,1,2,"%D",0)="^^4^4^2971028^"
^DD(100.008,.01,1,2,"%D",1,0)="^OR(100,""AC"",ORVP,9999999-ORLOG,ORIFN,DA)"
^DD(100.008,.01,1,2,"%D",2,0)="Allows retrieval of ""active"" orders; includes orders with any kind of"
^DD(100.008,.01,1,2,"%D",3,0)="active status, as well as those that have ended w/in the Active Orders"
^DD(100.008,.01,1,2,"%D",4,0)="Context Hours."
^DD(100.008,.01,1,2,"DT")="2960830"
^DD(100.008,.01,1,3,0)="100^AS1^MUMPS"
^DD(100.008,.01,1,3,1)="N ORDA S ORDA=DA(1) D S1^ORDD100(ORDA,DA,"""",X)"
^DD(100.008,.01,1,3,2)="N ORDA S ORDA=DA(1) D S2^ORDD100(ORDA,DA,"""",X)"
^DD(100.008,.01,1,3,"%D",0)="^^2^2^2971028^^^"
^DD(100.008,.01,1,3,"%D",1,0)="^OR(100,""AS"",ORVP,9999999-ORLOG,ORIFN,DA)"
^DD(100.008,.01,1,3,"%D",2,0)="Allows retrieval of unsigned orders."
^DD(100.008,.01,1,3,"DT")="2970107"
^DD(100.008,.01,1,4,0)="100^AF"
^DD(100.008,.01,1,4,1)="S ^OR(100,""AF"",$E(X,1,30),DA(1),DA)="""""
^DD(100.008,.01,1,4,2)="K ^OR(100,""AF"",$E(X,1,30),DA(1),DA)"
^DD(100.008,.01,1,4,"DT")="2970814"
^DD(100.008,.01,3)="Enter the date/time this action was ordered."
^DD(100.008,.01,21,0)="^^1^1^2951027^^"
^DD(100.008,.01,21,1,0)="This is the date/time this action was ordered."
^DD(100.008,.01,"DT")="2970814"
^DD(100.008,.1,0)="ORDER TEXT^100.0081^^.1;0"
^DD(100.008,.1,21,0)="^^1^1^3000727^"
^DD(100.008,.1,21,1,0)="This is the text of the order."
^DD(100.008,.2,0)="EXTERNAL TEXT^100.0082^^.2;0"
^DD(100.008,.2,9)="@"
^DD(100.008,.2,21,0)="^.001^4^4^3020326^^^^"
^DD(100.008,.2,21,1,0)="This is the text of the order stored in external format."
^DD(100.008,.2,21,2,0)="DO NOT EDIT THIS FIELD!  This field is used to create a Digital Signature."
^DD(100.008,.2,21,3,0)="Editing this field will render the Digital Signature invalid and prevent"
^DD(100.008,.2,21,4,0)="the order from being processed."
^DD(100.008,.2,"DT")="3020326"
^DD(100.008,1,0)="REASON FOR ACTION/REJECT^F^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(100.008,1,3)="Answer must be 1-240 characters in length."
^DD(100.008,1,21,0)="^^2^2^2970308^"
^DD(100.008,1,21,1,0)="This is the reason returned by the package why this action is being"
^DD(100.008,1,21,2,0)="taken or rejected."
^DD(100.008,1,"DT")="2970308"
^DD(100.008,2,0)="ACTION^RS^NW:NEW;DC:DISCONTINUE;HD:HOLD;RL:RELEASE HOLD;XX:CHANGE;^0;2^Q"
^DD(100.008,2,1,0)="^.1"
^DD(100.008,2,1,1,0)="100.008^C"
^DD(100.008,2,1,1,1)="S ^OR(100,DA(1),8,""C"",$E(X,1,30),DA)="""""
^DD(100.008,2,1,1,2)="K ^OR(100,DA(1),8,""C"",$E(X,1,30),DA)"
^DD(100.008,2,1,1,"DT")="2960202"
^DD(100.008,2,3)="Enter the action to be taken on this order."
^DD(100.008,2,21,0)="^.001^1^1^3000712^^^^"
^DD(100.008,2,21,1,0)="This is the action being ordered."
^DD(100.008,2,"DT")="3000712"
^DD(100.008,3,0)="PROVIDER^P200'^VA(200,^0;3^Q"
^DD(100.008,3,3)="Enter the name of the requesting clinician for this order."
^DD(100.008,3,21,0)="^^1^1^2970310^^"
^DD(100.008,3,21,1,0)="This is the requestor of this order."
^DD(100.008,3,"DT")="2970310"
^DD(100.008,4,0)="SIGNATURE STATUS^S^0:ON CHART w/written orders;1:ELECTRONIC;2:NOT SIGNED;3:NOT REQUIRED;4:ON CHART w/printed orders;5:NOT REQUIRED due to cancel;6:SERVICE CORRECTION to signed order;7:DIGITALLY SIGNED;8:ON PARENT order;^0;4^Q"
^DD(100.008,4,1,0)="^.1"
^DD(100.008,4,1,1,0)="100^AS2^MUMPS"
^DD(100.008,4,1,1,1)="N ORDA S ORDA=DA(1) D S1^ORDD100(ORDA,DA)"
^DD(100.008,4,1,1,2)="N ORDA S ORDA=DA(1) D S2^ORDD100(ORDA,DA)"
^DD(100.008,4,1,1,"%D",0)="^^2^2^2971028^^"
^DD(100.008,4,1,1,"%D",1,0)="^OR(100,""AS"",ORVP,9999999-ORLOG,ORIFN,DA)"
^DD(100.008,4,1,1,"%D",2,0)="Allows retrieval of unsigned orders."
^DD(100.008,4,1,1,"DT")="2961224"
^DD(100.008,4,3)="Select 0=On chart-written, 1=Electronic, 2=Not Signed, 3=Not Required, 4=On chart-printed, 5=Not Required-cancelled, 6=Service Correction, 7=Digitally Signed, 8=On Parent Order"
^DD(100.008,4,21,0)="^.001^4^4^3060309^^^^"
^DD(100.008,4,21,1,0)="This is the signature status of the order.  Entries with a null value"
^DD(100.008,4,21,2,0)="in this field are assumed to have been entered through the back door"
^DD(100.008,4,21,3,0)="via specific package order entry options and do not require signature"
^DD(100.008,4,21,4,0)="unless so specified by the package."
^DD(100.008,4,"DT")="3060309"
^DD(100.008,5,0)="SIGNED BY^*P200'^VA(200,^0;5^I $D(^XUSEC(""ORES"",DUZ)) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.008,5,3)="Enter the person signing this order."
^DD(100.008,5,12)="Only users with the ORES key allowed."
^DD(100.008,5,12.1)="I $D(^XUSEC(""ORES"",DUZ))"
^DD(100.008,5,21,0)="^^4^4^2960525^^"
^DD(100.008,5,21,1,0)="This is the user who entered his/her electronic signature code to"
^DD(100.008,5,21,2,0)="authenticate this order.  It will be replaced by an encryption of"
^DD(100.008,5,21,3,0)="the name and title of the signer, along with a checksum of the order"
^DD(100.008,5,21,4,0)="text, as soon as we figure out how to do that. :)"
^DD(100.008,5,"DT")="2960525"
^DD(100.008,6,0)="DATE/TIME SIGNED^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,6,3)="Enter the date/time the order was electronically signed."
^DD(100.008,6,21,0)="^^1^1^2951027^"
^DD(100.008,6,21,1,0)="This is the date/time that the order was electronically signed."
^DD(100.008,6,"DT")="2951027"
^DD(100.008,7,0)="SIGNED ON CHART^P200'^VA(200,^0;7^Q"
^DD(100.008,7,3)="Enter the person who specified that this order was signed on the patient's chart."
^DD(100.008,7,21,0)="^^1^1^2951027^"
^DD(100.008,7,21,1,0)="This is the person who released an order based on a signature in the chart."
^DD(100.008,7,"DT")="2951027"
^DD(100.008,8,0)="VERIFYING NURSE^P200'^VA(200,^0;8^Q"
^DD(100.008,8,3)="Enter the name of the nurse who verified this order."
^DD(100.008,8,21,0)="^^1^1^2951027^"
^DD(100.008,8,21,1,0)="This is the nurse who acknowledged or verified the accuracy of this order."
^DD(100.008,8,"DT")="2951027"
^DD(100.008,9,0)="DATE/TIME NURSE VERIFIED^D^^0;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,9,3)="Enter the date/time the order was verified by a nurse."
^DD(100.008,9,21,0)="^^2^2^2951027^"
^DD(100.008,9,21,1,0)="This is the date/time that the order was acknowledged or verified by a"
^DD(100.008,9,21,2,0)="nurse."
^DD(100.008,9,"DT")="2951027"
^DD(100.008,10,0)="VERIFYING CLERK^P200'^VA(200,^0;10^Q"
^DD(100.008,10,3)="Enter the name of the ward clerk who verified this order."
^DD(100.008,10,21,0)="^^2^2^2951027^"
^DD(100.008,10,21,1,0)="This is the ward clerk who took off this order, if it was not transmitted"
^DD(100.008,10,21,2,0)="directly to the service for action."
^DD(100.008,10,"DT")="2951027"
^DD(100.008,11,0)="DATE/TIME CLERK VERIFIED^D^^0;11^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,11,3)="Enter the date/time this order was verified."
^DD(100.008,11,21,0)="^^1^1^2951027^"
^DD(100.008,11,21,1,0)="This is the date/time that the ward clerk took off this order."
^DD(100.008,11,"DT")="2951027"
^DD(100.008,12,0)="NATURE OF ORDER^*P100.02'^ORD(100.02,^0;12^S DIC(""S"")=""I '$$SCREEN^XTID(100.02,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.008,12,3)="Enter how this order originated"
^DD(100.008,12,12)="Data Standardization of Nature of Order file #100.02"
^DD(100.008,12,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.02,,Y_"""","""")"""
^DD(100.008,12,21,0)="^.001^1^1^3060223^^^^"
^DD(100.008,12,21,1,0)="This specifies the nature of the order or how it originated."
^DD(100.008,12,"DT")="3060223"
^DD(100.008,13,0)="ENTERED BY^P200'^VA(200,^0;13^Q"
^DD(100.008,13,3)="Enter the name of the person who entered this order."
^DD(100.008,13,21,0)="^^2^2^2960408^"
^DD(100.008,13,21,1,0)="This is the user who entered the information about this order into the"
^DD(100.008,13,21,2,0)="computer."
^DD(100.008,13,"DT")="2960408"
^DD(100.008,14,0)="TEXT REFERENCE^NJ3,0^^0;14^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.008,14,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(100.008,14,21,0)="^.001^2^2^3000724^^^"
^DD(100.008,14,21,1,0)="This field contains a reference to the Order Action entry containing"
^DD(100.008,14,21,2,0)="the text for this order."
^DD(100.008,14,"DT")="3000724"
^DD(100.008,15,0)="RELEASE STATUS^S^11:unreleased;10:pre-release;13:rejected;12:dc/edit;^0;15^Q"
^DD(100.008,15,3)="Enter the status of this action request."
^DD(100.008,15,21,0)="^.001^2^2^3000712^^^"
^DD(100.008,15,21,1,0)="This field tracks the status of the request for this action; this is NOT"
^DD(100.008,15,21,2,0)="the same as the order status."
^DD(100.008,15,"DT")="3000712"
^DD(100.008,16,0)="RELEASE DATE/TIME^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,16,1,0)="^.1"
^DD(100.008,16,1,1,0)="100^AR1^MUMPS"
^DD(100.008,16,1,1,1)="N ORDER S ORDER=DA(1) D RS^ORDD100(ORDER,DA,,X)"
^DD(100.008,16,1,1,2)="N ORDER S ORDER=DA(1) D RK^ORDD100(ORDER,DA,,X)"
^DD(100.008,16,1,1,"%D",0)="^^2^2^2980602^"
^DD(100.008,16,1,1,"%D",1,0)="^OR(100,""AR"",ORVP,9999999-ORRDT,ORIFN,ORDA)"
^DD(100.008,16,1,1,"%D",2,0)="Allows retrieval of orders by inverse date released."
^DD(100.008,16,1,1,"DT")="2980602"
^DD(100.008,16,3)="Enter the date/time this order was released to the service"
^DD(100.008,16,21,0)="^^1^1^2970312^"
^DD(100.008,16,21,1,0)="This is the date/time the order was released to the service for action."
^DD(100.008,16,"DT")="2980602"
^DD(100.008,17,0)="RELEASING PERSON^P200'^VA(200,^0;17^Q"
^DD(100.008,17,3)="Enter the name of the person releasing the order"
^DD(100.008,17,21,0)="^^1^1^2970312^"
^DD(100.008,17,21,1,0)="This is the person who released the order to the service for action."
^DD(100.008,17,"DT")="2970312"
^DD(100.008,18,0)="CHART REVIEWED BY^P200'^VA(200,^0;18^Q"
^DD(100.008,18,3)="Enter the name of the person who reviewed this order in the chart."
^DD(100.008,18,21,0)="^^2^2^2980508^^"
^DD(100.008,18,21,1,0)="This field contains the name of the user who performed the chart review"
^DD(100.008,18,21,2,0)="that included this order."
^DD(100.008,18,"DT")="2980508"
^DD(100.008,19,0)="DATE/TIME CHART REVIEWED^D^^0;19^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,19,3)="Enter the date/time this order was reviewed in the chart."
^DD(100.008,19,21,0)="^^2^2^2980508^"
^DD(100.008,19,21,1,0)="This field contains the date/time that a chart review was performed, that"
^DD(100.008,19,21,2,0)="included this order."
^DD(100.008,19,"DT")="2980508"
^DD(100.008,21,0)="DC/HOLD UNTIL^D^^2;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,21,3)="Enter the date/time the hold should be removed from this order"
^DD(100.008,21,21,0)="^^6^6^2970519^^^"
^DD(100.008,21,21,1,0)="This is the date/time the hold was or will be removed from this order; if"
^DD(100.008,21,21,2,0)="a future date/time is entered at the time of holding the order, the hold"
^DD(100.008,21,21,3,0)="will be automatically removed when this date/time is reached."
^DD(100.008,21,21,4,0)="  "
^DD(100.008,21,21,5,0)="If this order is reinstated after being cancelled, this is the date/time"
^DD(100.008,21,21,6,0)="the cancel status was removed from this order."
^DD(100.008,21,"DT")="2970519"
^DD(100.008,22,0)="DC/HOLD RELEASED BY^P200'^VA(200,^2;2^Q"
^DD(100.008,22,3)="Enter the name of the person who removed the hold on this order"
^DD(100.008,22,21,0)="^^1^1^2970519^^^"
^DD(100.008,22,21,1,0)="This is the user who released the cancel or hold on this order."
^DD(100.008,22,"DT")="2970519"
^DD(100.008,23,0)="DIGITAL SIGNATURE^FI^^2;3^K:$L(X)>100!($L(X)<1) X"
^DD(100.008,23,3)="Answer must be 1-100 characters in length."
^DD(100.008,23,8.5)="^"
^DD(100.008,23,9)="^"
^DD(100.008,23,21,0)="^.001^1^1^3020314^^^"
^DD(100.008,23,21,1,0)="This is the digital signature of the order."
^DD(100.008,23,"DT")="3020314"
^DD(100.008,24,0)="DRUG SCHEDULE^F^^2;4^K:$L(X)>3!($L(X)<1) X"
^DD(100.008,24,3)="Answer must be 1-3 characters in length."
^DD(100.008,24,21,0)="^^11^11^3020425^"
^DD(100.008,24,21,1,0)=" This is the CS FEDERAL SCHEDULE of the drug as defined in the National"
^DD(100.008,24,21,2,0)=" Drug file (VA PRODUCT #50.68).  Pharmacy package further refines the"
^DD(100.008,24,21,3,0)=" schedule to:"
^DD(100.008,24,21,4,0)="   1    Sch. I Nar."
^DD(100.008,24,21,5,0)="   2    II"
^DD(100.008,24,21,6,0)="   2n   II Non-Nar."
^DD(100.008,24,21,7,0)="   3    III"
^DD(100.008,24,21,8,0)="   3n   III Non-Nar."
^DD(100.008,24,21,9,0)="   4    IV"
^DD(100.008,24,21,10,0)="   5    V"
^DD(100.008,24,21,11,0)="   0    other active drugs"
^DD(100.008,24,"DT")="3020425"
^DD(100.008,25,0)="DIGITAL SIGNATURE REQUIRED^S^0:NO;1:YES;^2;5^Q"
^DD(100.008,25,3)=""
^DD(100.008,25,21,0)="^^1^1^3020322^"
^DD(100.008,25,21,1,0)="This field is set if a Digital Signature is required."
^DD(100.008,25,"DT")="3020322"
^DD(100.008,31,0)="FLAGGED^S^1:YES;0:NO;^3;1^Q"
^DD(100.008,31,3)="Enter YES if this order is being flagged"
^DD(100.008,31,21,0)="^^1^1^2970308^"
^DD(100.008,31,21,1,0)="This indicates that this order has been flagged."
^DD(100.008,31,"DT")="2970308"
^DD(100.008,32,0)="BULLETIN^P3.9'^XMB(3.9,^3;2^Q"
^DD(100.008,32,3)="Enter the message sent regarding this flag"
^DD(100.008,32,21,0)="^^1^1^2970308^"
^DD(100.008,32,21,1,0)="This is the bulletin sent as a result of flagging this order."
^DD(100.008,32,"DT")="2970308"
^DD(100.008,33,0)="DATE/TIME FLAGGED^D^^3;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,33,3)="Enter the date/time this order was flagged"
^DD(100.008,33,21,0)="^^1^1^2970308^"
^DD(100.008,33,21,1,0)="This is the date/time when this order was flagged."
^DD(100.008,33,"DT")="2970308"
^DD(100.008,34,0)="FLAGGED BY^P200'^VA(200,^3;4^Q"
^DD(100.008,34,3)="Enter the name of the person who flagged this order"
^DD(100.008,34,21,0)="^^1^1^2970308^"
^DD(100.008,34,21,1,0)="This is the user who flagged this order."
^DD(100.008,34,"DT")="2970308"
^DD(100.008,35,0)="REASON FOR FLAG^F^^3;5^K:$L(X)>80!($L(X)<1) X"
^DD(100.008,35,3)="Answer must be 1-80 characters in length."
^DD(100.008,35,21,0)="^^3^3^2970308^"
^DD(100.008,35,21,1,0)="This is the reason this order was flagged; it will be included in the"
^DD(100.008,35,21,2,0)="bulletin generated, as well as included in the text of this order until"
^DD(100.008,35,21,3,0)="this order is unflagged."
^DD(100.008,35,"DT")="2970308"
^DD(100.008,36,0)="DATE/TIME UNFLAGGED^D^^3;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,36,3)="Enter the date/time this order was unflagged"
^DD(100.008,36,21,0)="^^1^1^2970308^"
^DD(100.008,36,21,1,0)="This is the date/time this order was unflagged."
^DD(100.008,36,"DT")="2970308"
^DD(100.008,37,0)="UNFLAGGED BY^P200'^VA(200,^3;7^Q"
^DD(100.008,37,3)="Enter the name of the person who unflagged this order"
^DD(100.008,37,21,0)="^^1^1^2970308^"
^DD(100.008,37,21,1,0)="This is the user who unflagged this order."
^DD(100.008,37,"DT")="2970308"
^DD(100.008,38,0)="REASON FOR UNFLAG^F^^3;8^K:$L(X)>80!($L(X)<1) X"
^DD(100.008,38,3)="Answer must be 1-80 characters in length."
^DD(100.008,38,21,0)="^^2^2^2970308^"
^DD(100.008,38,21,1,0)="This is the reason for unflagging this order, usually a response to the"
^DD(100.008,38,21,2,0)="reason for flag."
^DD(100.008,38,"DT")="2970308"
^DD(100.008,39,0)="ALERTED PROVIDER^P200'^VA(200,^3;9^Q"
^DD(100.008,39,3)="Enter the name of the user who should be alerted to this flag."
^DD(100.008,39,21,0)="^^1^1^2991216^"
^DD(100.008,39,21,1,0)="This is the user who was alerted to the flag."
^DD(100.008,39,"DT")="2991216"
^DD(100.008,50,0)="WARD COMMENTS^100.0085^^5;0"
^DD(100.008,50,21,0)="^^1^1^2971219^"
^DD(100.008,50,21,1,0)="This is where ward or clinic comments on orders are stored."
^DD(100.008,71,0)="CHART COPY PRINTED^S^0:NO;1:YES;^7;1^Q"
^DD(100.008,71,3)="ENTRY OF 'YES' MEANS CHART COPY HAS PRINTED."
^DD(100.008,71,21,0)="^^1^1^2990707^^"
^DD(100.008,71,21,1,0)="This field is set to YES when the chart copy has printed."
^DD(100.008,71,"DT")="2980521"
^DD(100.008,72,0)="CHART COPY PRINTED WHEN^D^^7;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.008,72,3)="ENTER THE 1ST TIME THE CHART COPY PRINTED."
^DD(100.008,72,21,0)="^^1^1^2980521^"
^DD(100.008,72,21,1,0)="This field stores the date/time the chart copy 1st printed."
^DD(100.008,72,"DT")="2980521"
^DD(100.008,73,0)="CHART COPY PRINTED BY^P200'^VA(200,^7;3^Q"
^DD(100.008,73,3)="ENTER THE PERSON WHO PRINTED THE 1ST CHART COPY"
^DD(100.008,73,21,0)="^^1^1^2980521^"
^DD(100.008,73,21,1,0)="This field contains the person signed on when the chart copy 1st printed."
^DD(100.008,73,"DT")="2980521"
^DD(100.008,74,0)="CHART COPY PRINTER^F^^7;4^K:$L(X)>50!($L(X)<2) X"
^DD(100.008,74,3)="Answer must be 2-50 characters in length."
^DD(100.008,74,21,0)="^^1^1^2980521^"
^DD(100.008,74,21,1,0)="This is the device that the chart copy was 1st sent to."
^DD(100.008,74,"DT")="2980521"
^DD(100.008,"B","ACTION",2)=""
^DD(100.008,"B","ALERTED PROVIDER",39)=""
^DD(100.008,"B","BULLETIN",32)=""
^DD(100.008,"B","CHART COPY PRINTED",71)=""
^DD(100.008,"B","CHART COPY PRINTED BY",73)=""
^DD(100.008,"B","CHART COPY PRINTED WHEN",72)=""
^DD(100.008,"B","CHART COPY PRINTER",74)=""
^DD(100.008,"B","CHART REVIEWED BY",18)=""
^DD(100.008,"B","DATE/TIME CHART REVIEWED",19)=""
^DD(100.008,"B","DATE/TIME CLERK VERIFIED",11)=""
^DD(100.008,"B","DATE/TIME FLAGGED",33)=""
^DD(100.008,"B","DATE/TIME NURSE VERIFIED",9)=""
^DD(100.008,"B","DATE/TIME ORDERED",.01)=""
^DD(100.008,"B","DATE/TIME SIGNED",6)=""
^DD(100.008,"B","DATE/TIME UNFLAGGED",36)=""
^DD(100.008,"B","DC/HOLD RELEASED BY",22)=""
^DD(100.008,"B","DC/HOLD UNTIL",21)=""
^DD(100.008,"B","DIGITAL SIGNATURE",23)=""
^DD(100.008,"B","DIGITAL SIGNATURE REQUIRED",25)=""
^DD(100.008,"B","DRUG SCHEDULE",24)=""
^DD(100.008,"B","ENTERED BY",13)=""
^DD(100.008,"B","EXTERNAL TEXT",.2)=""
^DD(100.008,"B","FLAGGED",31)=""
^DD(100.008,"B","FLAGGED BY",34)=""
^DD(100.008,"B","NATURE OF ORDER",12)=""
^DD(100.008,"B","ORDER TEXT",.1)=""
^DD(100.008,"B","PROVIDER",3)=""
^DD(100.008,"B","REASON FOR ACTION/REJECT",1)=""
^DD(100.008,"B","REASON FOR FLAG",35)=""
^DD(100.008,"B","REASON FOR UNFLAG",38)=""
^DD(100.008,"B","RELEASE DATE/TIME",16)=""
^DD(100.008,"B","RELEASE STATUS",15)=""
^DD(100.008,"B","RELEASING PERSON",17)=""
^DD(100.008,"B","SIGNATURE STATUS",4)=""
^DD(100.008,"B","SIGNED BY",5)=""
^DD(100.008,"B","SIGNED ON CHART",7)=""
^DD(100.008,"B","TEXT REFERENCE",14)=""
^DD(100.008,"B","UNFLAGGED BY",37)=""
^DD(100.008,"B","VERIFYING CLERK",10)=""
^DD(100.008,"B","VERIFYING NURSE",8)=""
^DD(100.008,"B","WARD COMMENTS",50)=""
^DD(100.008,"GL",0,1,.01)=""
^DD(100.008,"GL",0,2,2)=""
^DD(100.008,"GL",0,3,3)=""
^DD(100.008,"GL",0,4,4)=""
^DD(100.008,"GL",0,5,5)=""
^DD(100.008,"GL",0,6,6)=""
^DD(100.008,"GL",0,7,7)=""
^DD(100.008,"GL",0,8,8)=""
^DD(100.008,"GL",0,9,9)=""
^DD(100.008,"GL",0,10,10)=""
^DD(100.008,"GL",0,11,11)=""
^DD(100.008,"GL",0,12,12)=""
^DD(100.008,"GL",0,13,13)=""
^DD(100.008,"GL",0,14,14)=""
^DD(100.008,"GL",0,15,15)=""
^DD(100.008,"GL",0,16,16)=""
^DD(100.008,"GL",0,17,17)=""
^DD(100.008,"GL",0,18,18)=""
^DD(100.008,"GL",0,19,19)=""
^DD(100.008,"GL",.1,0,.1)=""
^DD(100.008,"GL",.2,0,.2)=""
^DD(100.008,"GL",1,1,1)=""
^DD(100.008,"GL",2,1,21)=""
^DD(100.008,"GL",2,2,22)=""
^DD(100.008,"GL",2,3,23)=""
^DD(100.008,"GL",2,4,24)=""
^DD(100.008,"GL",2,5,25)=""
^DD(100.008,"GL",3,1,31)=""
^DD(100.008,"GL",3,2,32)=""
^DD(100.008,"GL",3,3,33)=""
^DD(100.008,"GL",3,4,34)=""
^DD(100.008,"GL",3,5,35)=""
^DD(100.008,"GL",3,6,36)=""
^DD(100.008,"GL",3,7,37)=""
^DD(100.008,"GL",3,8,38)=""
^DD(100.008,"GL",3,9,39)=""
^DD(100.008,"GL",5,0,50)=""
^DD(100.008,"GL",7,1,71)=""
^DD(100.008,"GL",7,2,72)=""
^DD(100.008,"GL",7,3,73)=""
^DD(100.008,"GL",7,4,74)=""
^DD(100.008,"IX",.01)=""
^DD(100.008,"IX",2)=""
^DD(100.008,"IX",4)=""
^DD(100.008,"IX",16)=""
^DD(100.008,"RQ",.01)=""
^DD(100.008,"RQ",2)=""
^DD(100.008,"SB",100.0081,.1)=""
^DD(100.008,"SB",100.0082,.2)=""
^DD(100.008,"SB",100.0085,50)=""
^DD(100.0081,0)="ORDER TEXT SUB-FIELD^^.01^1"
^DD(100.0081,0,"DT")="3000724"
^DD(100.0081,0,"NM","ORDER TEXT")=""
^DD(100.0081,0,"UP")="100.008"
^DD(100.0081,.01,0)="ORDER TEXT^WL^^0;1^Q"
^DD(100.0081,.01,3)="Enter the text of this order."
^DD(100.0081,.01,21,0)="^.001^1^1^3000727^^"
^DD(100.0081,.01,21,1,0)="This is the text of the order."
^DD(100.0081,.01,"DT")="3000724"
^DD(100.0081,"B","ORDER TEXT",.01)=""
^DD(100.0081,"GL",0,1,.01)=""
^DD(100.0082,0)="EXTERNAL TEXT SUB-FIELD^^.01^1"
^DD(100.0082,0,"DT")="3020312"
^DD(100.0082,0,"NM","EXTERNAL TEXT")=""
^DD(100.0082,0,"UP")="100.008"
^DD(100.0082,.01,0)="EXTERNAL TEXT^WL^^0;1^Q"
^DD(100.0082,.01,8.5)="^"
^DD(100.0082,.01,9)="^"
^DD(100.0082,.01,21,0)="^.001^4^4^3020326^^^^"
^DD(100.0082,.01,21,1,0)="This is the text of the order stored in external format.  This field is used"
^DD(100.0082,.01,21,2,0)="along with the Digital Signature to validate the integrity of the order."
^DD(100.0082,.01,21,3,0)="DO NOT MODIFY THE DATA IN THIS FIELD!  Changing anything in this field"
^DD(100.0082,.01,21,4,0)="will invalidate the order."
^DD(100.0082,.01,"DT")="3020326"
^DD(100.0082,"B","EXTERNAL TEXT",.01)=""
^DD(100.0082,"GL",0,1,.01)=""
^DD(100.0085,0)="WARD COMMENTS SUB-FIELD^^.01^1"
^DD(100.0085,0,"DT")="2970308"
^DD(100.0085,0,"NM","WARD COMMENTS")=""
^DD(100.0085,0,"UP")="100.008"
^DD(100.0085,.01,0)="WARD COMMENTS^WL^^0;1^Q"
^DD(100.0085,.01,3)="Enter any additional comments on this order"
^DD(100.0085,.01,21,0)="^^3^3^2970308^"
^DD(100.0085,.01,21,1,0)="This field contains additional comments or instructions regarding this"
^DD(100.0085,.01,21,2,0)="order; these will be included in a detailed display of this order, but"
^DD(100.0085,.01,21,3,0)="not transmitted to the ancillary service."
^DD(100.0085,.01,"DT")="2970308"
^DD(100.0085,"B","WARD COMMENTS",.01)=""
^DD(100.0085,"GL",0,1,.01)=""
^DD(100.01,0)="FIELD^^99.991^8"
^DD(100.01,0,"DDA")="N"
^DD(100.01,0,"DT")="3060224"
^DD(100.01,0,"ID",.1)="W:$D(^(.1)) ""   "",$E(^(.1),1,245)"
^DD(100.01,0,"IX","AVUID",100.01,99.99)=""
^DD(100.01,0,"IX","B",100.01,.01)=""
^DD(100.01,0,"NM","ORDER STATUS")=""
^DD(100.01,0,"PT",100,5)=""
^DD(100.01,0,"PT",100.03,.08)=""
^DD(100.01,0,"PT",115.02,14)=""
^DD(100.01,0,"PT",123,8)=""
^DD(100.01,0,"PT",123.1,1)=""
^DD(100.01,0,"VR")="3.0"
^DD(100.01,0,"VRPK")="OR"
^DD(100.01,.001,0)="NUMBER^NJ7,0X^^ ^;K:X'?1.2N X I $D(X),X<1!((X>9)&(X'=99)) K X"
^DD(100.01,.001,3)="ALL ENTRIES IN THIS FILE ARE RESERVED."
^DD(100.01,.001,9)="^"
^DD(100.01,.001,21,0)="^.001^2^2^3060516^^^^"
^DD(100.01,.001,21,1,0)="This is the number of the status entry."
^DD(100.01,.001,21,2,0)="All entries are reserved."
^DD(100.01,.001,"DT")="3060516"
^DD(100.01,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(100.01,.01,1,0)="^.1"
^DD(100.01,.01,1,1,0)="100.01^B"
^DD(100.01,.01,1,1,1)="S ^ORD(100.01,""B"",$E(X,1,30),DA)="""""
^DD(100.01,.01,1,1,2)="K ^ORD(100.01,""B"",$E(X,1,30),DA)"
^DD(100.01,.01,3)="Answer must be 3-20 characters in length."
^DD(100.01,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(100.01,.01,9)="^"
^DD(100.01,.01,21,0)="^.001^1^1^3060224^^^^"
^DD(100.01,.01,21,1,0)="This is the name of the status."
^DD(100.01,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(100.01,.01,"DT")="3060512"
^DD(100.01,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(100.01,.02,0)="SHORT NAME^F^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(100.01,.02,3)="Answer must be 1-4 characters in length."
^DD(100.01,.02,9)="^"
^DD(100.01,.02,21,0)="^^2^2^2971219^"
^DD(100.01,.02,21,1,0)="This is a shorter version of the status name to be displayed on the"
^DD(100.01,.02,21,2,0)="Orders tab of the CPRS Chart."
^DD(100.01,.02,"DT")="2961218"
^DD(100.01,.1,0)="ABBREVIATION^F^^.1;E1,245^K:$L(X)>3!($L(X)<1) X"
^DD(100.01,.1,3)="Answer must be 1-3 characters in length."
^DD(100.01,.1,9)="^"
^DD(100.01,.1,21,0)="^^5^5^2971219^^^^"
^DD(100.01,.1,21,1,0)="This is the abbreviation of the status to be displayed on order"
^DD(100.01,.1,21,2,0)="reviews and printouts."
^DD(100.01,.1,21,3,0)="The abbreviation is placed in its own node of the global and the entire"
^DD(100.01,.1,21,4,0)="node is reserved.  This allows for the possibility of an abbreviation"
^DD(100.01,.1,21,5,0)="which contains an up arrow."
^DD(100.01,.1,"DT")="3060512"
^DD(100.01,2,0)="DESCRIPTION^100.12^^1;0"
^DD(100.01,2,3)="Enter the description of this status."
^DD(100.01,2,21,0)="^^1^1^2970619^^^^"
^DD(100.01,2,21,1,0)="This is the description of the status."
^DD(100.01,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(100.01,99.98,9)="^"
^DD(100.01,99.98,21,0)="^^2^2^3051118^"
^DD(100.01,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(100.01,99.98,21,2,0)="Term/Concept."
^DD(100.01,99.98,"DT")="3051118"
^DD(100.01,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(100.01,99.99,1,0)="^.1"
^DD(100.01,99.99,1,1,0)="100.01^AVUID"
^DD(100.01,99.99,1,1,1)="S ^ORD(100.01,""AVUID"",$E(X,1,30),DA)="""""
^DD(100.01,99.99,1,1,2)="K ^ORD(100.01,""AVUID"",$E(X,1,30),DA)"
^DD(100.01,99.99,1,1,"%D",0)="^^1^1^3051118^"
^DD(100.01,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(100.01,99.99,1,1,"DT")="3051118"
^DD(100.01,99.99,3)="Answer must be 1-20 digits in length."
^DD(100.01,99.99,9)="^"
^DD(100.01,99.99,21,0)="^^2^2^3051118^"
^DD(100.01,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(100.01,99.99,21,2,0)="terms VHA wide."
^DD(100.01,99.99,"DT")="3051118"
^DD(100.01,99.991,0)="EFFECTIVE DATE/TIME^100.0199DA^^TERMSTATUS;0"
^DD(100.01,99.991,21,0)="^^1^1^3051118^"
^DD(100.01,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(100.01,"B","ABBREVIATION",.1)=""
^DD(100.01,"B","DESCRIPTION",2)=""
^DD(100.01,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(100.01,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(100.01,"B","NAME",.01)=""
^DD(100.01,"B","NUMBER",.001)=""
^DD(100.01,"B","SHORT NAME",.02)=""
^DD(100.01,"B","VUID",99.99)=""
^DD(100.01,"GL",0,1,.01)=""
^DD(100.01,"GL",0,2,.02)=""
^DD(100.01,"GL",.1,"E1,245",.1)=""
^DD(100.01,"GL",1,0,2)=""
^DD(100.01,"GL","TERMSTATUS",0,99.991)=""
^DD(100.01,"GL","VUID",1,99.99)=""
^DD(100.01,"GL","VUID",2,99.98)=""
^DD(100.01,"IX",.01)=""
^DD(100.01,"IX",99.99)=""
^DD(100.01,"RQ",.01)=""
^DD(100.01,"RQ",99.98)=""
^DD(100.01,"RQ",99.99)=""
^DD(100.01,"SB",100.0199,99.991)=""
^DD(100.01,"SB",100.12,2)=""
^DD(100.0199,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(100.0199,0,"DT")="3051118"
^DD(100.0199,0,"IX","B",100.0199,.01)=""
^DD(100.0199,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(100.0199,0,"UP")="100.01"
^DD(100.0199,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(100.0199,.01,1,0)="^.1"
^DD(100.0199,.01,1,1,0)="100.0199^B"
^DD(100.0199,.01,1,1,1)="S ^ORD(100.01,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(100.0199,.01,1,1,2)="K ^ORD(100.01,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(100.0199,.01,1,1,"%D",0)="^^1^1^3051118^"
^DD(100.0199,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(100.0199,.01,9)="^"
^DD(100.0199,.01,21,0)="^^1^1^3051118^"
^DD(100.0199,.01,21,1,0)="This is the date/time when the Status of the reference term was established."
^DD(100.0199,.01,"DT")="3051118"
^DD(100.0199,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(100.0199,.02,9)="^"
^DD(100.0199,.02,21,0)="^^4^4^3051118^"
^DD(100.0199,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'.  If "
^DD(100.0199,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(100.0199,.02,21,3,0)="particular patient event.  If 'INACTIVE', then the term will only be "
^DD(100.0199,.02,21,4,0)="accessible by the application to display legacy data."
^DD(100.0199,.02,"DT")="3051118"
^DD(100.0199,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(100.0199,"B","STATUS",.02)=""
^DD(100.0199,"GL",0,1,.01)=""
^DD(100.0199,"GL",0,2,.02)=""
^DD(100.0199,"IX",.01)=""
^DD(100.0199,"RQ",.01)=""
^DD(100.0199,"RQ",.02)=""
^DD(100.02,0)="FIELD^^99.991^16"
^DD(100.02,0,"DDA")="N"
^DD(100.02,0,"DT")="3051118"
^DD(100.02,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(100.02,0,"IX","AC",100.02,.03)=""
^DD(100.02,0,"IX","AVUID",100.02,99.99)=""
^DD(100.02,0,"IX","B",100.02,.01)=""
^DD(100.02,0,"IX","C",100.02,.02)=""
^DD(100.02,0,"NM","NATURE OF ORDER")=""
^DD(100.02,0,"PT",69.9,150.1)=""
^DD(100.02,0,"PT",100,61)=""
^DD(100.02,0,"PT",100.008,12)=""
^DD(100.02,0,"PT",100.03,.07)=""
^DD(100.02,0,"VR")="3.0"
^DD(100.02,0,"VRPK")="OR"
^DD(100.02,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.02,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(100.02,.001,9)="^"
^DD(100.02,.001,"DT")="2961210"
^DD(100.02,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(100.02,.01,1,0)="^.1"
^DD(100.02,.01,1,1,0)="100.02^B"
^DD(100.02,.01,1,1,1)="S ^ORD(100.02,""B"",$E(X,1,30),DA)="""""
^DD(100.02,.01,1,1,2)="K ^ORD(100.02,""B"",$E(X,1,30),DA)"
^DD(100.02,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(100.02,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(100.02,.01,9)="^"
^DD(100.02,.01,21,0)="^^1^1^2961211^"
^DD(100.02,.01,21,1,0)="This is the name of the Nature of Order."
^DD(100.02,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(100.02,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(100.02,.02,0)="CODE^RF^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(100.02,.02,1,0)="^.1"
^DD(100.02,.02,1,1,0)="100.02^C"
^DD(100.02,.02,1,1,1)="S ^ORD(100.02,""C"",$E(X,1,30),DA)="""""
^DD(100.02,.02,1,1,2)="K ^ORD(100.02,""C"",$E(X,1,30),DA)"
^DD(100.02,.02,1,1,"DT")="2961218"
^DD(100.02,.02,3)="Answer must be 1-3 characters in length."
^DD(100.02,.02,9)="^"
^DD(100.02,.02,21,0)="^^2^2^2971219^"
^DD(100.02,.02,21,1,0)="This is a single character abbreviation that is used in HL7 messages"
^DD(100.02,.02,21,2,0)="between CPRS and the ancillary packages."
^DD(100.02,.02,"DT")="2961218"
^DD(100.02,.03,0)="NON-INTERACTIVE^S^0:INTERACTIVE;1:NON-INTERACTIVE;^0;3^Q"
^DD(100.02,.03,1,0)="^.1"
^DD(100.02,.03,1,1,0)="100.02^AC"
^DD(100.02,.03,1,1,1)="S ^ORD(100.02,""AC"",$E(X,1,30),DA)="""""
^DD(100.02,.03,1,1,2)="K ^ORD(100.02,""AC"",$E(X,1,30),DA)"
^DD(100.02,.03,1,1,"DT")="2961118"
^DD(100.02,.03,9)="^"
^DD(100.02,.03,21,0)="^^2^2^2961211^"
^DD(100.02,.03,21,1,0)="This field identifies this entry for interactive or non-interactive"
^DD(100.02,.03,21,2,0)="use."
^DD(100.02,.03,"DT")="2961211"
^DD(100.02,.04,0)="INACTIVE^S^0:ACTIVE;1:INACTIVE;^0;4^Q"
^DD(100.02,.04,9)="^"
^DD(100.02,.04,21,0)="^^1^1^2961211^"
^DD(100.02,.04,21,1,0)="This field is used to inactivate a nature of order."
^DD(100.02,.04,"DT")="2961210"
^DD(100.02,.05,0)="FRONT/BACKDOOR^S^F:frontdoor;B:backdoor;X:both;^0;5^Q"
^DD(100.02,.05,9)="^"
^DD(100.02,.05,21,0)="^^3^3^2961211^"
^DD(100.02,.05,21,1,0)="This field is used to identify entries that are used during an OE/RR"
^DD(100.02,.05,21,2,0)="dialog (frontdoor), and entries that are used by ancillary services"
^DD(100.02,.05,21,3,0)="(backdoor)."
^DD(100.02,.05,"DT")="2961211"
^DD(100.02,.06,0)="DC ONLY^S^1:YES;0:NO;^0;6^Q"
^DD(100.02,.06,3)="Enter YES if this entry is only used for DC actions."
^DD(100.02,.06,9)="^"
^DD(100.02,.06,21,0)="^^2^2^2971219^"
^DD(100.02,.06,21,1,0)="This is a flag that determines if this nature is to be used only when"
^DD(100.02,.06,21,2,0)="discontinuing an order."
^DD(100.02,.06,"DT")="2970108"
^DD(100.02,.11,0)="CREATE ACTION^S^0:NO;1:YES;^1;1^Q"
^DD(100.02,.11,3)="Enter YES if an order action should be created and signed, or NO to simply update the status of this order"
^DD(100.02,.11,9)="^"
^DD(100.02,.11,21,0)="^^2^2^2970228^^^^"
^DD(100.02,.11,21,1,0)="This field determines if an entry will be created in the Order Action"
^DD(100.02,.11,21,2,0)="multiple for this order; if not, then only a status update will occur."
^DD(100.02,.11,"DT")="2970228"
^DD(100.02,.12,0)="PRINT CHART COPY^S^0:NO;1:YES;^1;2^Q"
^DD(100.02,.12,9)="^"
^DD(100.02,.12,21,0)="^^1^1^2970122^^"
^DD(100.02,.12,21,1,0)="This field determines if this entry/action should generate a Chart copy."
^DD(100.02,.12,"DT")="2961210"
^DD(100.02,.13,0)="PRINT DAILY SUMMARY^S^0:NO;1:YES;^1;3^Q"
^DD(100.02,.13,9)="^"
^DD(100.02,.13,21,0)="^^2^2^2961211^"
^DD(100.02,.13,21,1,0)="This field determines if this entry/action should appear on the"
^DD(100.02,.13,21,2,0)="Daily Order Summary."
^DD(100.02,.13,"DT")="2961210"
^DD(100.02,.14,0)="DEFAULT SIGNATURE STATUS^S^0:ON CHART w/written orders;1:ELECTRONIC;2:NOT SIGNED;3:NOT REQUIRED;4:ON CHART w/printed orders;5:NOT REQUIRED due to cancel;6:SERVICE CORRECTION to signed order;^1;4^Q"
^DD(100.02,.14,3)="Enter the signature status to be assigned for this nature of order"
^DD(100.02,.14,9)="^"
^DD(100.02,.14,21,0)="^^2^2^2970228^^^^"
^DD(100.02,.14,21,1,0)="This is the signature status that will be assigned to an order having this"
^DD(100.02,.14,21,2,0)="nature; if a signature is not applicable, this field should be null."
^DD(100.02,.14,"DT")="2970228"
^DD(100.02,.15,0)="PRINT WORK COPY^S^0:NO;1:YES;^1;5^Q"
^DD(100.02,.15,9)="^"
^DD(100.02,.15,21,0)="^^1^1^2970122^"
^DD(100.02,.15,21,1,0)="This field determines if this entry/action should generate a Work Copy."
^DD(100.02,.15,"DT")="2970122"
^DD(100.02,.16,0)="INCLUDE IN ACTIVE ORDERS^S^1:YES;0:NO;^1;6^Q"
^DD(100.02,.16,3)="Enter YES if an order dc'd with this nature should appear in the Active Orders list."
^DD(100.02,.16,9)="^"
^DD(100.02,.16,21,0)="^^3^3^3000712^"
^DD(100.02,.16,21,1,0)="This determines if orders dc'd with this nature are included in the Active"
^DD(100.02,.16,21,2,0)="Orders list; if so, they will be shown for the number of hours specified"
^DD(100.02,.16,21,3,0)="by the Active Orders Context Hours parameter, as with other dc'd orders."
^DD(100.02,.16,"DT")="3000712"
^DD(100.02,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(100.02,99.98,9)="^"
^DD(100.02,99.98,21,0)="^^2^2^3051118^"
^DD(100.02,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(100.02,99.98,21,2,0)="Term/Concept."
^DD(100.02,99.98,"DT")="3051118"
^DD(100.02,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(100.02,99.99,1,0)="^.1"
^DD(100.02,99.99,1,1,0)="100.02^AVUID"
^DD(100.02,99.99,1,1,1)="S ^ORD(100.02,""AVUID"",$E(X,1,30),DA)="""""
^DD(100.02,99.99,1,1,2)="K ^ORD(100.02,""AVUID"",$E(X,1,30),DA)"
^DD(100.02,99.99,1,1,"%D",0)="^^1^1^3051118^"
^DD(100.02,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(100.02,99.99,1,1,"DT")="3051118"
^DD(100.02,99.99,3)="Answer must be 1-20 digits in length."
^DD(100.02,99.99,9)="^"
^DD(100.02,99.99,21,0)="^^2^2^3051118^"
^DD(100.02,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference "
^DD(100.02,99.99,21,2,0)="terms VHA wide."
^DD(100.02,99.99,"DT")="3051118"
^DD(100.02,99.991,0)="EFFECTIVE DATE/TIME^100.0299DA^^TERMSTATUS;0"
^DD(100.02,99.991,21,0)="^^1^1^3051118^"
^DD(100.02,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(100.02,"B","CODE",.02)=""
^DD(100.02,"B","CREATE ACTION",.11)=""
^DD(100.02,"B","DC ONLY",.06)=""
^DD(100.02,"B","DEFAULT SIGNATURE STATUS",.14)=""
^DD(100.02,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(100.02,"B","FRONT/BACKDOOR",.05)=""
^DD(100.02,"B","INACTIVE",.04)=""
^DD(100.02,"B","INCLUDE IN ACTIVE ORDERS",.16)=""
^DD(100.02,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(100.02,"B","NAME",.01)=""
^DD(100.02,"B","NON-INTERACTIVE",.03)=""
^DD(100.02,"B","NUMBER",.001)=""
^DD(100.02,"B","PRINT CHART COPY",.12)=""
^DD(100.02,"B","PRINT DAILY SUMMARY",.13)=""
^DD(100.02,"B","PRINT WORK COPY",.15)=""
^DD(100.02,"B","VUID",99.99)=""
^DD(100.02,"GL",0,1,.01)=""
^DD(100.02,"GL",0,2,.02)=""
^DD(100.02,"GL",0,3,.03)=""
^DD(100.02,"GL",0,4,.04)=""
^DD(100.02,"GL",0,5,.05)=""
^DD(100.02,"GL",0,6,.06)=""
^DD(100.02,"GL",1,1,.11)=""
^DD(100.02,"GL",1,2,.12)=""
^DD(100.02,"GL",1,3,.13)=""
^DD(100.02,"GL",1,4,.14)=""
^DD(100.02,"GL",1,5,.15)=""
^DD(100.02,"GL",1,6,.16)=""
^DD(100.02,"GL","TERMSTATUS",0,99.991)=""
^DD(100.02,"GL","VUID",1,99.99)=""
^DD(100.02,"GL","VUID",2,99.98)=""
^DD(100.02,"IX",.01)=""
^DD(100.02,"IX",.02)=""
^DD(100.02,"IX",.03)=""
^DD(100.02,"IX",99.99)=""
^DD(100.02,"RQ",.01)=""
^DD(100.02,"RQ",.02)=""
^DD(100.02,"RQ",99.98)=""
^DD(100.02,"RQ",99.99)=""
^DD(100.02,"SB",100.0299,99.991)=""
^DD(100.0299,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(100.0299,0,"DT")="3051118"
^DD(100.0299,0,"IX","B",100.0299,.01)=""
^DD(100.0299,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(100.0299,0,"UP")="100.02"
^DD(100.0299,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(100.0299,.01,1,0)="^.1"
^DD(100.0299,.01,1,1,0)="100.0299^B"
^DD(100.0299,.01,1,1,1)="S ^ORD(100.02,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(100.0299,.01,1,1,2)="K ^ORD(100.02,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(100.0299,.01,1,1,"%D",0)="^^1^1^3051118^"
^DD(100.0299,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(100.0299,.01,9)="^"
^DD(100.0299,.01,21,0)="^^1^1^3051118^"
^DD(100.0299,.01,21,1,0)="This is the date/time when the Status of the reference term was established."
^DD(100.0299,.01,"DT")="3051118"
^DD(100.0299,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(100.0299,.02,9)="^"
^DD(100.0299,.02,21,0)="^^4^4^3051118^"
^DD(100.0299,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'.  If "
^DD(100.0299,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(100.0299,.02,21,3,0)="particular patient event.  If 'INACTIVE', then the term will only be "
^DD(100.0299,.02,21,4,0)="accessible by the application to display legacy data."
^DD(100.0299,.02,"DT")="3051118"
^DD(100.0299,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(100.0299,"B","STATUS",.02)=""
^DD(100.0299,"GL",0,1,.01)=""
^DD(100.0299,"GL",0,2,.02)=""
^DD(100.0299,"IX",.01)=""
^DD(100.0299,"RQ",.01)=""
^DD(100.0299,"RQ",.02)=""
^DD(100.03,0)="FIELD^^.08^7"
^DD(100.03,0,"DDA")="N"
^DD(100.03,0,"DT")="2980717"
^DD(100.03,0,"IX","B",100.03,.01)=""
^DD(100.03,0,"IX","C",100.03,.06)=""
^DD(100.03,0,"IX","D",100.03,.01)=""
^DD(100.03,0,"IX","S",100.03,.03)=""
^DD(100.03,0,"NM","ORDER REASON")=""
^DD(100.03,0,"PT",69.9,150.2)=""
^DD(100.03,0,"PT",100,64)=""
^DD(100.03,0,"PT",100.6,4)=""
^DD(100.03,0,"VR")="3.0"
^DD(100.03,0,"VRPK")="OR"
^DD(100.03,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(100.03,.01,1,0)="^.1"
^DD(100.03,.01,1,1,0)="100.03^B"
^DD(100.03,.01,1,1,1)="S ^ORD(100.03,""B"",$E(X,1,30),DA)="""""
^DD(100.03,.01,1,1,2)="K ^ORD(100.03,""B"",$E(X,1,30),DA)"
^DD(100.03,.01,1,2,0)="100.03^D^MUMPS"
^DD(100.03,.01,1,2,1)="S ^ORD(100.03,""D"",$$UP^XLFSTR(X),DA)="""""
^DD(100.03,.01,1,2,2)="K ^ORD(100.03,""D"",$$UP^XLFSTR(X),DA)"
^DD(100.03,.01,1,2,"%D",0)="^^1^1^2980319^"
^DD(100.03,.01,1,2,"%D",1,0)="Allows for lookup by Name in uppercase."
^DD(100.03,.01,1,2,"DT")="2980319"
^DD(100.03,.01,3)="Answer must be 3-40 characters in length."
^DD(100.03,.01,21,0)="^^1^1^2961211^"
^DD(100.03,.01,21,1,0)="This is the name of the DC Reason."
^DD(100.03,.01,"DT")="2980319"
^DD(100.03,.03,0)="SYNONYM^F^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(100.03,.03,1,0)="^.1"
^DD(100.03,.03,1,1,0)="100.03^S"
^DD(100.03,.03,1,1,1)="S ^ORD(100.03,""S"",$E(X,1,30),DA)="""""
^DD(100.03,.03,1,1,2)="K ^ORD(100.03,""S"",$E(X,1,30),DA)"
^DD(100.03,.03,1,1,"DT")="2961210"
^DD(100.03,.03,3)="Answer must be 1-3 characters in length."
^DD(100.03,.03,21,0)="^^1^1^2961211^"
^DD(100.03,.03,21,1,0)="This is the synonym for this reason and is used on a file lookup."
^DD(100.03,.03,"DT")="2961211"
^DD(100.03,.04,0)="INACTIVE^S^0:ACTIVE;1:INACTIVE;^0;4^Q"
^DD(100.03,.04,3)=""
^DD(100.03,.04,21,0)="^^1^1^2961211^"
^DD(100.03,.04,21,1,0)="This field is used to inactivate a DC Reason."
^DD(100.03,.04,"DT")="2961211"
^DD(100.03,.05,0)="PACKAGE^P9.4'^DIC(9.4,^0;5^Q"
^DD(100.03,.05,21,0)="^^1^1^2961211^"
^DD(100.03,.05,21,1,0)="This is the package that this reason applies to."
^DD(100.03,.05,"DT")="2961210"
^DD(100.03,.06,0)="CODE^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(100.03,.06,1,0)="^.1"
^DD(100.03,.06,1,1,0)="100.03^C"
^DD(100.03,.06,1,1,1)="S ^ORD(100.03,""C"",$E(X,1,30),DA)="""""
^DD(100.03,.06,1,1,2)="K ^ORD(100.03,""C"",$E(X,1,30),DA)"
^DD(100.03,.06,1,1,"%D",0)="^^1^1^2970425^"
^DD(100.03,.06,1,1,"%D",1,0)="This is used for lookup by code."
^DD(100.03,.06,1,1,"DT")="2970425"
^DD(100.03,.06,3)="Answer must be 1-10 characters in length."
^DD(100.03,.06,21,0)="^^5^5^2961211^"
^DD(100.03,.06,21,1,0)="This is a code that is used to identify this DC Reason."
^DD(100.03,.06,21,2,0)="This field is not manditory.  If a code is not defined, then the internal"
^DD(100.03,.06,21,3,0)="number of the file entry is used to identify this reason.  Radiology"
^DD(100.03,.06,21,4,0)="uses this field for it's reasons to identify the entry with it's"
^DD(100.03,.06,21,5,0)="corresponding entry in the Radiology Reasons file."
^DD(100.03,.06,"DT")="2970425"
^DD(100.03,.07,0)="NATURE OF ACTIVITY^RP100.02'^ORD(100.02,^0;7^Q"
^DD(100.03,.07,3)="Enter the nature of order activity for this reason."
^DD(100.03,.07,21,0)="^^3^3^2980505^^^^"
^DD(100.03,.07,21,1,0)="This field is used to categorize DC reasons into types that OE/RR"
^DD(100.03,.07,21,2,0)="can take action on.  The actions and types are defined in the"
^DD(100.03,.07,21,3,0)="Nature of order file."
^DD(100.03,.07,"DT")="2980417"
^DD(100.03,.08,0)="MESSAGE STATUS^P100.01'^ORD(100.01,^0;8^Q"
^DD(100.03,.08,3)="Enter the order status associated with this order reason."
^DD(100.03,.08,21,0)="^^5^5^2970725^"
^DD(100.03,.08,21,1,0)="This field is used to identify the status an order will be set to"
^DD(100.03,.08,21,2,0)="when this order reason is selected.  This is currently used by"
^DD(100.03,.08,21,3,0)="backdoor lab options when orders/accessions are canceled.  If the field"
^DD(100.03,.08,21,4,0)="is blank, lab sends the HL7 status update message with a status of DC"
^DD(100.03,.08,21,5,0)="(the default); otherwise it will use the status in this field."
^DD(100.03,.08,"DT")="2970725"
^DD(100.03,"B","CODE",.06)=""
^DD(100.03,"B","INACTIVE",.04)=""
^DD(100.03,"B","MESSAGE STATUS",.08)=""
^DD(100.03,"B","NAME",.01)=""
^DD(100.03,"B","NATURE OF ACTIVITY",.07)=""
^DD(100.03,"B","PACKAGE",.05)=""
^DD(100.03,"B","SYNONYM",.03)=""
^DD(100.03,"GL",0,1,.01)=""
^DD(100.03,"GL",0,3,.03)=""
^DD(100.03,"GL",0,4,.04)=""
^DD(100.03,"GL",0,5,.05)=""
^DD(100.03,"GL",0,6,.06)=""
^DD(100.03,"GL",0,7,.07)=""
^DD(100.03,"GL",0,8,.08)=""
^DD(100.03,"IX",.01)=""
^DD(100.03,"IX",.03)=""
^DD(100.03,"IX",.06)=""
^DD(100.03,"RQ",.01)=""
^DD(100.03,"RQ",.07)=""
^DD(100.04,0)="V POV SUB-FIELD^^.01^1"
^DD(100.04,0,"DIK")="ORD2"
^DD(100.04,0,"DT")="3030620"
^DD(100.04,0,"IX","B",100.04,.01)=""
^DD(100.04,0,"NM","V POV")=""
^DD(100.04,0,"UP")="100"
^DD(100.04,.01,0)="V POV^P9000010.07'^AUPNVPOV(^0;1^Q"
^DD(100.04,.01,1,0)="^.1"
^DD(100.04,.01,1,1,0)="100.04^B"
^DD(100.04,.01,1,1,1)="S ^OR(100,DA(1),10.5,""B"",$E(X,1,30),DA)="""""
^DD(100.04,.01,1,1,2)="K ^OR(100,DA(1),10.5,""B"",$E(X,1,30),DA)"
^DD(100.04,.01,3)="This is a pointer to the V POV File and a multiple."
^DD(100.04,.01,"DT")="3030620"
^DD(100.04,"B","V POV",.01)=""
^DD(100.04,"GL",0,1,.01)=""
^DD(100.04,"IX",.01)=""
^DD(100.045,0)="RESPONSES SUB-FIELD^^2^6"
^DD(100.045,0,"DIK")="ORD2"
^DD(100.045,0,"DT")="2961003"
^DD(100.045,0,"IX","ID",100.045,.04)=""
^DD(100.045,0,"NM","RESPONSES")=""
^DD(100.045,0,"UP")="100"
^DD(100.045,.01,0)="ITEM ENTRY^NJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.045,.01,1,0)="^.1^^0"
^DD(100.045,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(100.045,.01,21,0)="^^2^2^2950707^^"
^DD(100.045,.01,21,1,0)="This is the internal entry number of the prompt in the Item multiple"
^DD(100.045,.01,21,2,0)="by which this response was obtained."
^DD(100.045,.01,"DT")="2910904"
^DD(100.045,.02,0)="DIALOG^P101.41'^ORD(101.41,^0;2^Q"
^DD(100.045,.02,3)="Select the dialog prompt from which this response was generated."
^DD(100.045,.02,21,0)="^^2^2^2950707^^"
^DD(100.045,.02,21,1,0)="This is a pointer to the dialog prompt, which is in the Order Dialog file"
^DD(100.045,.02,21,2,0)="as type prompt."
^DD(100.045,.02,"DT")="2950707"
^DD(100.045,.03,0)="INSTANCE^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.045,.03,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(100.045,.03,21,0)="^^2^2^2920225^"
^DD(100.045,.03,21,1,0)="In the case of multiple answers for the same item, this identifies the"
^DD(100.045,.03,21,2,0)="individual instance."
^DD(100.045,.03,"DT")="2910805"
^DD(100.045,.04,0)="ID^F^^0;4^K:$L(X)>10!($L(X)<2) X"
^DD(100.045,.04,1,0)="^.1"
^DD(100.045,.04,1,1,0)="100.045^ID"
^DD(100.045,.04,1,1,1)="S ^OR(100,DA(1),4.5,""ID"",$E(X,1,30),DA)="""""
^DD(100.045,.04,1,1,2)="K ^OR(100,DA(1),4.5,""ID"",$E(X,1,30),DA)"
^DD(100.045,.04,1,1,"DT")="2961003"
^DD(100.045,.04,3)="Answer must be 2-10 characters in length."
^DD(100.045,.04,21,0)="^^2^2^2961003^"
^DD(100.045,.04,21,1,0)="This field assigns a free text identifier to this response value, for quick"
^DD(100.045,.04,21,2,0)="access to certain values in this order."
^DD(100.045,.04,"DT")="2961003"
^DD(100.045,1,0)="VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(100.045,1,3)="Answer must be 1-245 characters in length."
^DD(100.045,1,21,0)="^^2^2^2920225^"
^DD(100.045,1,21,1,0)="This contains the actual response, unless the value is a word processing"
^DD(100.045,1,21,2,0)="type."
^DD(100.045,1,"DT")="2910805"
^DD(100.045,2,0)="TEXT^100.0451^^2;0"
^DD(100.045,2,21,0)="^^1^1^2970926^^"
^DD(100.045,2,21,1,0)="This contains responses to items that are a word processing type."
^DD(100.045,"B","DIALOG",.02)=""
^DD(100.045,"B","ID",.04)=""
^DD(100.045,"B","INSTANCE",.03)=""
^DD(100.045,"B","ITEM ENTRY",.01)=""
^DD(100.045,"B","TEXT",2)=""
^DD(100.045,"B","VALUE",1)=""
^DD(100.045,"GL",0,1,.01)=""
^DD(100.045,"GL",0,2,.02)=""
^DD(100.045,"GL",0,3,.03)=""
^DD(100.045,"GL",0,4,.04)=""
^DD(100.045,"GL",1,"E1,245",1)=""
^DD(100.045,"GL",2,0,2)=""
^DD(100.045,"IX",.04)=""
^DD(100.045,"SB",100.0451,2)=""
^DD(100.0451,0)="TEXT SUB-FIELD^^.01^1"
^DD(100.0451,0,"DT")="2910805"
^DD(100.0451,0,"NM","TEXT")=""
^DD(100.0451,0,"UP")="100.045"
^DD(100.0451,.01,0)="TEXT^WL^^0;1^Q"
^DD(100.0451,.01,3)="Enter text."
^DD(100.0451,.01,"DT")="2910805"
^DD(100.0451,"B","TEXT",.01)=""
^DD(100.0451,"GL",0,1,.01)=""
^DD(100.051,0)="ORDER DIAGNOSES SUB-FIELD^^1^2"
^DD(100.051,0,"DIK")="ORD2"
^DD(100.051,0,"DT")="3031216"
^DD(100.051,0,"IX","B",100.051,.01)=""
^DD(100.051,0,"NM","ORDER DIAGNOSES")=""
^DD(100.051,0,"UP")="100"
^DD(100.051,.01,0)="ORDER DIAGNOSES^P80'^ICD9(^0;1^Q"
^DD(100.051,.01,1,0)="^.1"
^DD(100.051,.01,1,1,0)="100.051^B"
^DD(100.051,.01,1,1,1)="S ^OR(100,DA(1),5.1,""B"",$E(X,1,30),DA)="""""
^DD(100.051,.01,1,1,2)="K ^OR(100,DA(1),5.1,""B"",$E(X,1,30),DA)"
^DD(100.051,.01,3)="Enter the diagnosis code for this order."
^DD(100.051,.01,"DT")="3031216"
^DD(100.051,1,0)="EXPRESSION^P757.01'^LEX(757.01,^0;2^Q"
^DD(100.051,1,"DT")="3040714"
^DD(100.051,"B","EXPRESSION",1)=""
^DD(100.051,"B","ORDER DIAGNOSES",.01)=""
^DD(100.051,"GL",0,1,.01)=""
^DD(100.051,"GL",0,2,1)=""
^DD(100.051,"IX",.01)=""
^DD(100.09,0)="ORDER CHECKS SUB-FIELD^^1^6"
^DD(100.09,0,"DIK")="ORD2"
^DD(100.09,0,"DT")="2971025"
^DD(100.09,0,"IX","B",100.09,.01)=""
^DD(100.09,0,"NM","ORDER CHECKS")=""
^DD(100.09,0,"UP")="100"
^DD(100.09,.01,0)="ORDER CHECK^MP100.8'^ORD(100.8,^0;1^Q"
^DD(100.09,.01,1,0)="^.1"
^DD(100.09,.01,1,1,0)="100.09^B"
^DD(100.09,.01,1,1,1)="S ^OR(100,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(100.09,.01,1,1,2)="K ^OR(100,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(100.09,.01,3)="Enter an order check found for this order."
^DD(100.09,.01,21,0)="^^1^1^2971025^^"
^DD(100.09,.01,21,1,0)="This is an order check that was found to be true for this order."
^DD(100.09,.01,"DT")="2971025"
^DD(100.09,.02,0)="CLINICAL DANGER LEVEL^S^1:HIGH;2:MODERATE;3:LOW;^0;2^Q"
^DD(100.09,.02,3)="Enter the clinical danger level of this order check."
^DD(100.09,.02,21,0)="^^3^3^2960424^"
^DD(100.09,.02,21,1,0)="This is the clinical danger level associated with this check; checks"
^DD(100.09,.02,21,2,0)="flagged as 'HIGH' danger level will require a justification for"
^DD(100.09,.02,21,3,0)="overriding it and releasing the order."
^DD(100.09,.02,"DT")="2960424"
^DD(100.09,.04,0)="OVERRIDE REASON^F^^0;4^K:$L(X)>80!($L(X)<1) X"
^DD(100.09,.04,3)="Answer must be 1-80 characters in length."
^DD(100.09,.04,21,0)="^^2^2^2960424^"
^DD(100.09,.04,21,1,0)="This is the reason entered by the user as the justification for"
^DD(100.09,.04,21,2,0)="overriding the order check and releasing the order."
^DD(100.09,.04,"DT")="2960424"
^DD(100.09,.05,0)="OVERRIDDEN BY^P200'^VA(200,^0;5^Q"
^DD(100.09,.05,3)="Enter the name of the person who is overriding this order check"
^DD(100.09,.05,21,0)="^^2^2^2960613^"
^DD(100.09,.05,21,1,0)="This is the user who chose to override this order check and entered the"
^DD(100.09,.05,21,2,0)="reason why."
^DD(100.09,.05,"DT")="2960613"
^DD(100.09,.06,0)="DATE/TIME OVERRIDDEN^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(100.09,.06,3)="Enter the date/time this order check was overridden."
^DD(100.09,.06,21,0)="^^1^1^2960613^"
^DD(100.09,.06,21,1,0)="This is the date/time when this order check occurred and was overridden."
^DD(100.09,.06,"DT")="2960613"
^DD(100.09,1,0)="ORDER CHECK MESSAGE^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(100.09,1,3)="Answer must be 1-245 characters in length."
^DD(100.09,1,21,0)="^^1^1^2990518^"
^DD(100.09,1,21,1,0)="This is the actual text of the order check that was displayed to the user."
^DD(100.09,1,"DT")="2990518"
^DD(100.09,"B","CLINICAL DANGER LEVEL",.02)=""
^DD(100.09,"B","DATE/TIME OVERRIDDEN",.06)=""
^DD(100.09,"B","ORDER CHECK",.01)=""
^DD(100.09,"B","ORDER CHECK MESSAGE",1)=""
^DD(100.09,"B","OVERRIDDEN BY",.05)=""
^DD(100.09,"B","OVERRIDE REASON",.04)=""
^DD(100.09,"GL",0,1,.01)=""
^DD(100.09,"GL",0,2,.02)=""
^DD(100.09,"GL",0,4,.04)=""
^DD(100.09,"GL",0,5,.05)=""
^DD(100.09,"GL",0,6,.06)=""
^DD(100.09,"GL",1,1,1)=""
^DD(100.09,"IX",.01)=""
^DD(100.1,0)="FIELD^^2^3"
^DD(100.1,0,"IX","B",100.1,.01)=""
^DD(100.1,0,"NM","ORDER STATISTICS")=""
^DD(100.1,.01,0)="NAME^RV^^0;1^Q"
^DD(100.1,.01,1,0)="^.1"
^DD(100.1,.01,1,1,0)="100.1^B"
^DD(100.1,.01,1,1,1)="S ^OR(100.1,""B"",$E(X,1,30),DA)="""""
^DD(100.1,.01,1,1,2)="K ^OR(100.1,""B"",$E(X,1,30),DA)"
^DD(100.1,.01,3)="Enter the item ordered."
^DD(100.1,.01,21,0)="^^1^1^2920224^^"
^DD(100.1,.01,21,1,0)="This is the name of an item."
^DD(100.1,.01,"V",0)="^.12P^5^5"
^DD(100.1,.01,"V",1,0)="101^PROTOCOL^1^PRTCL^^n"
^DD(100.1,.01,"V",2,0)="60^LAB^2^LAB"
^DD(100.1,.01,"V",3,0)="50^DRUG^3^DRUG"
^DD(100.1,.01,"V",4,0)="19^OPT^4^OPT"
^DD(100.1,.01,"V",5,0)="71^RADIOLOGY^5^RAD"
^DD(100.1,.01,"V","B",19,4)=""
^DD(100.1,.01,"V","B",50,3)=""
^DD(100.1,.01,"V","B",60,2)=""
^DD(100.1,.01,"V","B",71,5)=""
^DD(100.1,.01,"V","B",101,1)=""
^DD(100.1,.01,"V","M","DRUG",3)=""
^DD(100.1,.01,"V","M","LAB",2)=""
^DD(100.1,.01,"V","M","OPT",4)=""
^DD(100.1,.01,"V","M","PROTOCOL",1)=""
^DD(100.1,.01,"V","M","RADIOLOGY",5)=""
^DD(100.1,.01,"V","O",1,1)=""
^DD(100.1,.01,"V","O",2,2)=""
^DD(100.1,.01,"V","O",3,3)=""
^DD(100.1,.01,"V","O",4,4)=""
^DD(100.1,.01,"V","O",5,5)=""
^DD(100.1,.01,"V","P","DRUG",3)=""
^DD(100.1,.01,"V","P","LAB",2)=""
^DD(100.1,.01,"V","P","OPT",4)=""
^DD(100.1,.01,"V","P","PRTCL",1)=""
^DD(100.1,.01,"V","P","RAD",5)=""
^DD(100.1,1,0)="COUNT^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(100.1,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(100.1,1,21,0)="^^1^1^2920224^^"
^DD(100.1,1,21,1,0)="This is the count of items ordered."
^DD(100.1,2,0)="PACKAGE^P9.4'^DIC(9.4,^0;3^Q"
^DD(100.1,2,3)="Enter the package that corresponds to this order."
^DD(100.1,2,21,0)="^^1^1^2920224^^"
^DD(100.1,2,21,1,0)="This is the package that the item was ordered from."
^DD(100.1,"B","COUNT",1)=""
^DD(100.1,"B","NAME",.01)=""
^DD(100.1,"B","PACKAGE",2)=""
^DD(100.1,"GL",0,1,.01)=""
^DD(100.1,"GL",0,2,1)=""
^DD(100.1,"GL",0,3,2)=""
^DD(100.1,"IX",.01)=""
^DD(100.1,"RQ",.01)=""
^DD(100.12,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(100.12,0,"NM","DESCRIPTION")=""
^DD(100.12,0,"UP")="100.01"
^DD(100.12,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(100.12,.01,3)="Enter the description of this status."
^DD(100.12,.01,9)="^"
^DD(100.12,.01,21,0)="^^1^1^2920224^^"
^DD(100.12,.01,21,1,0)="This is the description of the status."
^DD(100.12,.01,"DT")="2871202"
^DD(100.12,"B","DESCRIPTION",.01)=""
^DD(100.12,"GL",0,1,.01)=""
^DD(100.2,0)="FIELD^^30^14"
^DD(100.2,0,"DDA")="N"
^DD(100.2,0,"DT")="3020923"
^DD(100.2,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ORD(100.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(100.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(100.2,0,"ID",11)="W:$D(^(1)) ""   "",$E($P(^(1),U,1),4,5)_""-""_$E($P(^(1),U,1),6,7)_""-""_$E($P(^(1),U,1),2,3)"
^DD(100.2,0,"IX","AO",100.2,4)=""
^DD(100.2,0,"IX","ASR",100.2,14)=""
^DD(100.2,0,"IX","B",100.2,.01)=""
^DD(100.2,0,"IX","DAD",100.2,15)=""
^DD(100.2,0,"IX","DC",100.2,13)=""
^DD(100.2,0,"IX","E",100.2,2)=""
^DD(100.2,0,"NM","OE/RR PATIENT EVENT")=""
^DD(100.2,0,"PT",100,15)=""
^DD(100.2,0,"PT",100,68)=""
^DD(100.2,0,"PT",100.2,15)=""
^DD(100.2,0,"VR")="3.0"
^DD(100.2,0,"VRPK")="OR"
^DD(100.2,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(100.2,.01,1,0)="^.1"
^DD(100.2,.01,1,1,0)="100.2^B"
^DD(100.2,.01,1,1,1)="S ^ORE(100.2,""B"",$E(X,1,30),DA)="""""
^DD(100.2,.01,1,1,2)="K ^ORE(100.2,""B"",$E(X,1,30),DA)"
^DD(100.2,.01,3)="Enter the name of the patient."
^DD(100.2,.01,21,0)="^^2^2^3020718^"
^DD(100.2,.01,21,1,0)="This is a pointer to the patient file and is the patient associated with "
^DD(100.2,.01,21,2,0)="this event."
^DD(100.2,.01,"DT")="3020508"
^DD(100.2,1,0)="ACTIVITY^100.25DA^^10;0"
^DD(100.2,1,21,0)="^.001^2^2^3020718^^"
^DD(100.2,1,21,1,0)="This multiple contains a log of actions taken on this event that are"
^DD(100.2,1,21,2,0)="relevant to the release or discontinuance of orders."
^DD(100.2,2,0)="EVENT^P100.5'^ORD(100.5,^0;2^Q"
^DD(100.2,2,1,0)="^.1"
^DD(100.2,2,1,1,0)="100.2^E"
^DD(100.2,2,1,1,1)="S ^ORE(100.2,""E"",$E(X,1,30),DA)="""""
^DD(100.2,2,1,1,2)="K ^ORE(100.2,""E"",$E(X,1,30),DA)"
^DD(100.2,2,1,1,"DT")="3020425"
^DD(100.2,2,3)="Enter an event for which delayed orders are to be released for this patient."
^DD(100.2,2,21,0)="^^3^3^3020718^"
^DD(100.2,2,21,1,0)="This field is a pointer to the OE/RR RELEASE EVENTS file, which defines"
^DD(100.2,2,21,2,0)="the conditions under which delayed orders are to be released for this"
^DD(100.2,2,21,3,0)="patient event, if delayed orders are related to this event."
^DD(100.2,2,"DT")="3020425"
^DD(100.2,3,0)="ADMISSION^P405'^DGPM(^0;3^Q"
^DD(100.2,3,3)="Enter the admission during which this event is to occur."
^DD(100.2,3,21,0)="^^6^6^3020718^"
^DD(100.2,3,21,1,0)="This field is a pointer to the Admission movement for which this event"
^DD(100.2,3,21,2,0)="is valid; this will be the current admission if the patient is an "
^DD(100.2,3,21,3,0)="inpatient when delayed orders are written, otherwise the admission "
^DD(100.2,3,21,4,0)="movement will be stuffed in when the patient is admitted and the orders "
^DD(100.2,3,21,5,0)="released.  If the patient is discharged without this event having been"
^DD(100.2,3,21,6,0)="processed, it will be retired and any orders still delayed will be lapsed."
^DD(100.2,3,"DT")="3020425"
^DD(100.2,4,0)="ORDER^P100'^OR(100,^0;4^Q"
^DD(100.2,4,1,0)="^.1"
^DD(100.2,4,1,1,0)="100.2^AO"
^DD(100.2,4,1,1,1)="S ^ORE(100.2,""AO"",$E(X,1,30),DA)="""""
^DD(100.2,4,1,1,2)="K ^ORE(100.2,""AO"",$E(X,1,30),DA)"
^DD(100.2,4,1,1,"DT")="3020425"
^DD(100.2,4,3)="Enter the number of the doctor's order for this event."
^DD(100.2,4,21,0)="^^2^2^3020718^"
^DD(100.2,4,21,1,0)="This field is a pointer to the doctor's order requesting that this event"
^DD(100.2,4,21,2,0)="occur for this patient when delayed orders are written."
^DD(100.2,4,"DT")="3020425"
^DD(100.2,5,0)="CREATED ON^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.2,5,3)="Enter the date and time this event was created for this patient."
^DD(100.2,5,21,0)="^^2^2^3020425^"
^DD(100.2,5,21,1,0)="This field is the timestamp of when this event was entered into the file"
^DD(100.2,5,21,2,0)="for this patient."
^DD(100.2,5,"DT")="3020425"
^DD(100.2,6,0)="CREATED BY^P200'^VA(200,^0;6^Q"
^DD(100.2,6,3)="Enter the name of the user that created this event for this patient."
^DD(100.2,6,21,0)="^^2^2^3020425^"
^DD(100.2,6,21,1,0)="This field is a pointer to the user who entered this event into the file"
^DD(100.2,6,21,2,0)="for this patient."
^DD(100.2,6,"DT")="3020425"
^DD(100.2,11,0)="EVENT DATE/TIME^D^^1;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.2,11,3)="Enter the date and time this event occurred."
^DD(100.2,11,21,0)="^.001^4^4^3020718^^^"
^DD(100.2,11,21,1,0)="This field is the date and time that this event occurred for this patient;"
^DD(100.2,11,21,2,0)="if the event is an MAS movement, this time will be the DATE/TIME from"
^DD(100.2,11,21,3,0)="the PATIENT MOVEMENT file which may be slightly different than the"
^DD(100.2,11,21,4,0)="actual time that this event was processed by the event driver."
^DD(100.2,11,"DT")="3020425"
^DD(100.2,12,0)="PATIENT MOVEMENT^P405'^DGPM(^1;2^Q"
^DD(100.2,12,3)="Enter the MAS Movement that satisfied this event for this patient."
^DD(100.2,12,21,0)="^^3^3^3020425^"
^DD(100.2,12,21,1,0)="This field is a pointer to the MAS Patient Movement that satisfied this"
^DD(100.2,12,21,2,0)="event for this patient; any changes to this movement that alter the"
^DD(100.2,12,21,3,0)="conditions of the event will be tracked in the Activity log."
^DD(100.2,12,"DT")="3020425"
^DD(100.2,13,0)="AUTO-DC RULE^P100.6'^ORD(100.6,^1;3^Q"
^DD(100.2,13,1,0)="^.1"
^DD(100.2,13,1,1,0)="100.2^DC"
^DD(100.2,13,1,1,1)="S ^ORE(100.2,""DC"",$E(X,1,30),DA)="""""
^DD(100.2,13,1,1,2)="K ^ORE(100.2,""DC"",$E(X,1,30),DA)"
^DD(100.2,13,1,1,"DT")="3020426"
^DD(100.2,13,3)="Enter the rule that was used when auto-dc'ing orders for this event."
^DD(100.2,13,21,0)="^^4^4^3020425^"
^DD(100.2,13,21,1,0)="This field is the Auto-DC Rule from file #100.6 that was used to"
^DD(100.2,13,21,2,0)="automatically discontinue active orders when this event occurred.  Those"
^DD(100.2,13,21,3,0)="orders that were dc'd are listed in the Discontinued Orders multiple of"
^DD(100.2,13,21,4,0)="this file."
^DD(100.2,13,"DT")="3020426"
^DD(100.2,14,0)="SURGERY^P130'^SRF(^1;4^Q"
^DD(100.2,14,1,0)="^.1"
^DD(100.2,14,1,1,0)="100.2^ASR"
^DD(100.2,14,1,1,1)="S ^ORE(100.2,""ASR"",$E(X,1,30),DA)="""""
^DD(100.2,14,1,1,2)="K ^ORE(100.2,""ASR"",$E(X,1,30),DA)"
^DD(100.2,14,1,1,"DT")="3020425"
^DD(100.2,14,3)="Enter the surgery case that satisfied this event for this patient."
^DD(100.2,14,21,0)="^^3^3^3020425^"
^DD(100.2,14,21,1,0)="This field is a pointer to the Surgery case that satisfied this event for"
^DD(100.2,14,21,2,0)="this patient when the TIME PAT OUT OR field was entered; any changes to"
^DD(100.2,14,21,3,0)="this field will be tracked in the Activity log."
^DD(100.2,14,"DT")="3020425"
^DD(100.2,15,0)="PARENT^P100.2'^ORE(100.2,^1;5^Q"
^DD(100.2,15,1,0)="^.1"
^DD(100.2,15,1,1,0)="100.2^DAD"
^DD(100.2,15,1,1,1)="S ^ORE(100.2,""DAD"",$E(X,1,30),DA)="""""
^DD(100.2,15,1,1,2)="K ^ORE(100.2,""DAD"",$E(X,1,30),DA)"
^DD(100.2,15,1,1,"DT")="3020823"
^DD(100.2,15,3)="Enter the Patient Event that will trigger the release of this one."
^DD(100.2,15,21,0)="^^4^4^3020823^"
^DD(100.2,15,21,1,0)="This field is a ""parent"" event, allowing multiple Patient Events to be"
^DD(100.2,15,21,2,0)="collected together for release at the same time based on the same criteria;"
^DD(100.2,15,21,3,0)="the parent event tracks the release criteria, while each ""child"" event"
^DD(100.2,15,21,4,0)="defines a particular set of orders to be released on that event."
^DD(100.2,15,"DT")="3020823"
^DD(100.2,20,0)="RELEASED ORDERS^100.26PA^^2;0"
^DD(100.2,20,21,0)="^.001^3^3^3020923^^"
^DD(100.2,20,21,1,0)="This multiple field contains the delayed orders that were released based"
^DD(100.2,20,21,2,0)="on the release event defined in the OE/RR RELEASE EVENTS file #100.5 when"
^DD(100.2,20,21,3,0)="this event occurred."
^DD(100.2,30,0)="DISCONTINUED ORDERS^100.27PA^^3;0"
^DD(100.2,30,21,0)="^.001^3^3^3020916^^"
^DD(100.2,30,21,1,0)="This multiple contains the orders that were automatically discontinued"
^DD(100.2,30,21,2,0)="based on the rules defined in the OE/RR AUTO-DC RULES file #100.6 when"
^DD(100.2,30,21,3,0)="this event occurred."
^DD(100.2,"B","ACTIVITY",1)=""
^DD(100.2,"B","ADMISSION",3)=""
^DD(100.2,"B","AUTO-DC RULE",13)=""
^DD(100.2,"B","CREATED BY",6)=""
^DD(100.2,"B","CREATED ON",5)=""
^DD(100.2,"B","DISCONTINUED ORDERS",30)=""
^DD(100.2,"B","EVENT",2)=""
^DD(100.2,"B","EVENT DATE/TIME",11)=""
^DD(100.2,"B","ORDER",4)=""
^DD(100.2,"B","PARENT",15)=""
^DD(100.2,"B","PATIENT",.01)=""
^DD(100.2,"B","PATIENT MOVEMENT",12)=""
^DD(100.2,"B","RELEASED ORDERS",20)=""
^DD(100.2,"B","SURGERY",14)=""
^DD(100.2,"GL",0,1,.01)=""
^DD(100.2,"GL",0,2,2)=""
^DD(100.2,"GL",0,3,3)=""
^DD(100.2,"GL",0,4,4)=""
^DD(100.2,"GL",0,5,5)=""
^DD(100.2,"GL",0,6,6)=""
^DD(100.2,"GL",1,1,11)=""
^DD(100.2,"GL",1,2,12)=""
^DD(100.2,"GL",1,3,13)=""
^DD(100.2,"GL",1,4,14)=""
^DD(100.2,"GL",1,5,15)=""
^DD(100.2,"GL",2,0,20)=""
^DD(100.2,"GL",3,0,30)=""
^DD(100.2,"GL",10,0,1)=""
^DD(100.2,"IX",.01)=""
^DD(100.2,"IX",2)=""
^DD(100.2,"IX",4)=""
^DD(100.2,"IX",13)=""
^DD(100.2,"IX",14)=""
^DD(100.2,"IX",15)=""
^DD(100.2,"RQ",.01)=""
^DD(100.2,"SB",100.25,1)=""
^DD(100.2,"SB",100.26,20)=""
^DD(100.2,"SB",100.27,30)=""
^DD(100.21,0)="FIELD^^10^10"
^DD(100.21,0,"DDA")="N"
^DD(100.21,0,"DT")="2991215"
^DD(100.21,0,"IX","AB",100.2101,.01)=""
^DD(100.21,0,"IX","AC",100.213,.01)=""
^DD(100.21,0,"IX","B",100.21,.01)=""
^DD(100.21,0,"IX","C",100.212,.01)=""
^DD(100.21,0,"IX","D",100.21,.1)=""
^DD(100.21,0,"NM","OE/RR LIST")=""
^DD(100.21,0,"PT",100.241,.01)=""
^DD(100.21,0,"PT",123.53,.01)=""
^DD(100.21,0,"PT",123.54,2)=""
^DD(100.21,0,"PT",123.57,.01)=""
^DD(100.21,0,"PT",123.58,.01)=""
^DD(100.21,0,"PT",183,.01)=""
^DD(100.21,0,"PT",200,101.02)=""
^DD(100.21,0,"PT",810.17,.01)=""
^DD(100.21,0,"PT",8989.5,.01)=""
^DD(100.21,0,"VR")="3.0"
^DD(100.21,0,"VRPK")="OR"
^DD(100.21,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!($D(^OR(100.21,""B"",X))) X"
^DD(100.21,.01,1,0)="^.1"
^DD(100.21,.01,1,1,0)="100.21^B"
^DD(100.21,.01,1,1,1)="S ^OR(100.21,""B"",$E(X,1,30),DA)="""""
^DD(100.21,.01,1,1,2)="K ^OR(100.21,""B"",$E(X,1,30),DA)"
^DD(100.21,.01,1,2,0)="^^TRIGGER^100.21^.1"
^DD(100.21,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OR(100.21,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(100.21,.01,1,2,1.1) X ^DD(100.21,.01,1,2,1.4)"
^DD(100.21,.01,1,2,1.1)="S X=DIV S X=DIV X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)"
^DD(100.21,.01,1,2,1.4)="S DIH=$S($D(^OR(100.21,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=100.21,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(100.21,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OR(100.21,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(100.21,.01,1,2,2.4)"
^DD(100.21,.01,1,2,2.4)="S DIH=$S($D(^OR(100.21,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=100.21,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(100.21,.01,1,2,"CREATE VALUE")="$E(UPPERCASE(NAME),1,30)"
^DD(100.21,.01,1,2,"DELETE VALUE")="@"
^DD(100.21,.01,1,2,"DT")="2910227"
^DD(100.21,.01,1,2,"FIELD")="UPPER CASE"
^DD(100.21,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT BE WHOLLY NUMERIC OR START WITH PUNCTUATION.  IT MUST ALSO BE UNIQUE."
^DD(100.21,.01,21,0)="^^1^1^2990818^^^^"
^DD(100.21,.01,21,1,0)="This is the name of the list being defined."
^DD(100.21,.01,"DEL",123.5,0)="I '($E($G(XQY0),1,4)=""ORLP"") W !,""Deletion of Team Lists only alowed through CPRS menu options.  """
^DD(100.21,.01,"DT")="2911220"
^DD(100.21,.1,0)="UPPER CASE^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(100.21,.1,1,0)="^.1"
^DD(100.21,.1,1,1,0)="100.21^D"
^DD(100.21,.1,1,1,1)="S ^OR(100.21,""D"",$E(X,1,30),DA)="""""
^DD(100.21,.1,1,1,2)="K ^OR(100.21,""D"",$E(X,1,30),DA)"
^DD(100.21,.1,1,1,"%D",0)="^^1^1^2990818^^"
^DD(100.21,.1,1,1,"%D",1,0)="The ""D"" cross-reference is used to look-up list names in upper case."
^DD(100.21,.1,1,1,"DT")="2910227"
^DD(100.21,.1,3)="Answer must be 1-30 characters in length."
^DD(100.21,.1,5,1,0)="100.21^.01^2"
^DD(100.21,.1,9)="^"
^DD(100.21,.1,21,0)="^^1^1^2920416^^^"
^DD(100.21,.1,21,1,0)="This is the name of the list in upper case.  Used for look-up."
^DD(100.21,.1,"DT")="2910227"
^DD(100.21,1,0)="TYPE^RS^P:PERSONAL PATIENT;TA:TEAM PATIENT AUTOLINKED;TM:TEAM PATIENT MANUAL;MRAL:MANUAL REMOVAL/AUTOLINK ADDITION;^0;2^Q"
^DD(100.21,1,1,0)="^.1"
^DD(100.21,1,1,1,0)="^^TRIGGER^100.21^1.6"
^DD(100.21,1,1,1,1)="X ^DD(100.21,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^OR(100.21,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(100.21,1,1,1,1.4)"
^DD(100.21,1,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^OR(100.21,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1))="""""
^DD(100.21,1,1,1,1.4)="S DIH=$S($D(^OR(100.21,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=100.21,DIG=1.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(100.21,1,1,1,2)="Q"
^DD(100.21,1,1,1,3)="Original creator's identity cannot be changed."
^DD(100.21,1,1,1,"%D",0)="^^2^2^2990818^"
^DD(100.21,1,1,1,"%D",1,0)="This field is used to store the indentity of the user who created the Team"
^DD(100.21,1,1,1,"%D",2,0)="list."
^DD(100.21,1,1,1,"CREATE CONDITION")="CREATOR="""""
^DD(100.21,1,1,1,"CREATE VALUE")="S X=DUZ"
^DD(100.21,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(100.21,1,1,1,"DT")="2990810"
^DD(100.21,1,1,1,"FIELD")="CREATOR"
^DD(100.21,1,1,2,0)="^^TRIGGER^100.21^1.65"
^DD(100.21,1,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^OR(100.21,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7)="""" I X S X=DIV S Y(1)=$S($D(^OR(100.21,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(100.21,1,1,2,1.4)"
^DD(100.21,1,1,2,1.4)="S DIH=$S($D(^OR(100.21,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=100.21,DIG=1.65 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(100.21,1,1,2,2)="Q"
^DD(100.21,1,1,2,"%D",0)="^^1^1^2990818^"
^DD(100.21,1,1,2,"%D",1,0)="Trigger fills CREATION D/T field."
^DD(100.21,1,1,2,"CREATE CONDITION")="CREATION D/T="""""
^DD(100.21,1,1,2,"CREATE VALUE")="S X=DT"
^DD(100.21,1,1,2,"DELETE VALUE")="NO EFFECT"
^DD(100.21,1,1,2,"DT")="2990818"
^DD(100.21,1,1,2,"FIELD")="CREATION D/T"
^DD(100.21,1,3)="Enter 'P' for Personal list, 'TA' for a Team Patient Autolinked list, 'TM' for a Team List manually updated list, 'MRAL' for a Team list with Autolinked additions and manual removal."
^DD(100.21,1,21,0)="^^12^12^2990817^^^^"
^DD(100.21,1,21,1,0)="This is the type of list being defined.  List type currently includes"
^DD(100.21,1,21,2,0)="team and personal."
^DD(100.21,1,21,3,0)="o  Team lists"
^DD(100.21,1,21,4,0)="     o  TM - Manually maintained (addition and removal)"
^DD(100.21,1,21,5,0)="     o  TA - Maintained by Autolinks for addition and removal of patients."
^DD(100.21,1,21,6,0)="     o  MRAL - Manual removal of patients from the list with Autolink"
^DD(100.21,1,21,7,0)="        addition of patients to the list."
^DD(100.21,1,21,8,0)=" "
^DD(100.21,1,21,9,0)="o  Personal lists"
^DD(100.21,1,21,10,0)="     o  P - Manually maintained (addition and removal)"
^DD(100.21,1,21,11,0)=" "
^DD(100.21,1,21,12,0)=" "
^DD(100.21,1,"DT")="2990818"
^DD(100.21,1.5,0)="DEVICE^P3.5'^%ZIS(1,^0;4^Q"
^DD(100.21,1.5,3)="Enter the device to be linked with this list."
^DD(100.21,1.5,21,0)="^^1^1^2971201^"
^DD(100.21,1.5,21,1,0)="Device from the DEVICE file linked to the list."
^DD(100.21,1.5,"DT")="2971201"
^DD(100.21,1.6,0)="CREATOR^P200'I^VA(200,^0;5^Q"
^DD(100.21,1.6,.1)="Creator of Team List"
^DD(100.21,1.6,3)="Entry in this field is handled by Fileman."
^DD(100.21,1.6,5,1,0)="100.21^1^1"
^DD(100.21,1.6,9)="^"
^DD(100.21,1.6,21,0)="^^1^1^2990810^^^^"
^DD(100.21,1.6,21,1,0)="This is the IEN of the user who creates the Team List."
^DD(100.21,1.6,"DT")="2990811"
^DD(100.21,1.65,0)="CREATION D/T^D^^0;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(100.21,1.65,3)="Date and time of list creation."
^DD(100.21,1.65,5,1,0)="100.21^1^2"
^DD(100.21,1.65,21,0)="^^1^1^2990818^^^"
^DD(100.21,1.65,21,1,0)="This field stores the date of creation of the list."
^DD(100.21,1.65,"DT")="2990818"
^DD(100.21,1.7,0)="SUBSCRIBE^S^Y:YES;N:NO;^0;6^Q"
^DD(100.21,1.7,3)="YES means users can add or remove themselves as team members (providers)."
^DD(100.21,1.7,21,0)="^^4^4^2990811^"
^DD(100.21,1.7,21,1,0)="This field stores either a Y or N (for YES or NO) entry and is used in"
^DD(100.21,1.7,21,2,0)="CPRS to determine whether or not individual users will be allowed to add"
^DD(100.21,1.7,21,3,0)="or remove themselves as members of the team list if it is of autolink"
^DD(100.21,1.7,21,4,0)="type."
^DD(100.21,1.7,"DT")="2990811"
^DD(100.21,2,0)="USER^100.212PA^^1;0"
^DD(100.21,2,3)="Enter the users associated with this list."
^DD(100.21,2,21,0)="^.001^3^3^3000316^^^^"
^DD(100.21,2,21,1,0)="These are the user(s) that belong to the list.  If the list is of type"
^DD(100.21,2,21,2,0)="TEAM PATIENT or PERSONAL PATIENT, users on the list may receive clinical "
^DD(100.21,2,21,3,0)="notifications for patients also on the list."
^DD(100.21,3,0)="AUTOLINK^100.213IAV^^2;0"
^DD(100.21,3,21,0)="^.001^9^9^3000411^^^^"
^DD(100.21,3,21,1,0)="This field is used to link the list with WARDs, ROOM-BEDs,"
^DD(100.21,3,21,2,0)="PROVIDERs, TREATING SPECIALTYs, or CLINICs.  This field  "
^DD(100.21,3,21,3,0)="points to the entry in the file where the link is to "
^DD(100.21,3,21,4,0)="occur.  When ADT movement occur for patients, they are"
^DD(100.21,3,21,5,0)="added to the appropriate OE/RR lists as identified by the"
^DD(100.21,3,21,6,0)="AUTOLINK field (via ""AC"" cross-ref)."
^DD(100.21,3,21,7,0)="Lists with autolink providers are updated (patient added) when the PROVIDER"
^DD(100.21,3,21,8,0)="link matches the entry at the PRIMARY CARE PHYSICIAN or ATTENDING"
^DD(100.21,3,21,9,0)="PHYSICIAN prompts."
^DD(100.21,10,0)="MEMBER^100.2101AV^^10;0"
^DD(100.21,10,3)="Enter the members for this list."
^DD(100.21,10,21,0)="^^3^3^2971201^^^^"
^DD(100.21,10,21,1,0)="The list member is an item on the list.  The member for personal and team "
^DD(100.21,10,21,2,0)="patient lists is a patient (if list type is P or T, this field points to"
^DD(100.21,10,21,3,0)="the patient file.)"
^DD(100.21,"B","AUTOLINK",3)=""
^DD(100.21,"B","CREATION D/T",1.65)=""
^DD(100.21,"B","CREATOR",1.6)=""
^DD(100.21,"B","Creator of Team List",1.6)="1"
^DD(100.21,"B","DEVICE",1.5)=""
^DD(100.21,"B","MEMBER",10)=""
^DD(100.21,"B","NAME",.01)=""
^DD(100.21,"B","SUBSCRIBE",1.7)=""
^DD(100.21,"B","TYPE",1)=""
^DD(100.21,"B","UPPER CASE",.1)=""
^DD(100.21,"B","USER",2)=""
^DD(100.21,"GL",0,1,.01)=""
^DD(100.21,"GL",0,2,1)=""
^DD(100.21,"GL",0,3,.1)=""
^DD(100.21,"GL",0,4,1.5)=""
^DD(100.21,"GL",0,5,1.6)=""
^DD(100.21,"GL",0,6,1.7)=""
^DD(100.21,"GL",0,7,1.65)=""
^DD(100.21,"GL",1,0,2)=""
^DD(100.21,"GL",2,0,3)=""
^DD(100.21,"GL",10,0,10)=""
^DD(100.21,"IX",.01)=""
^DD(100.21,"IX",.1)=""
^DD(100.21,"IX",1)=""
^DD(100.21,"RQ",.01)=""
^DD(100.21,"RQ",.1)=""
^DD(100.21,"RQ",1)=""
^DD(100.21,"SB",100.2101,10)=""
^DD(100.21,"SB",100.212,2)=""
^DD(100.21,"SB",100.213,3)=""
^DD(100.2101,0)="MEMBER SUB-FIELD^^2^3"
^DD(100.2101,0,"DT")="2910530"
^DD(100.2101,0,"IX","B",100.2101,.01)=""
^DD(100.2101,0,"NM","MEMBER")=""
^DD(100.2101,0,"UP")="100.21"
^DD(100.2101,.01,0)="MEMBER^MV^^0;1^Q"
^DD(100.2101,.01,1,0)="^.1"
^DD(100.2101,.01,1,1,0)="100.2101^B"
^DD(100.2101,.01,1,1,1)="S ^OR(100.21,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(100.2101,.01,1,1,2)="K ^OR(100.21,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(100.2101,.01,1,1,3)="Required Index for Variable Pointer"
^DD(100.2101,.01,1,2,0)="100.21^AB"
^DD(100.2101,.01,1,2,1)="S ^OR(100.21,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(100.2101,.01,1,2,2)="K ^OR(100.21,""AB"",$E(X,1,30),DA(1),DA)"
^DD(100.2101,.01,1,2,"%D",0)="^^1^1^2920427^"
^DD(100.2101,.01,1,2,"%D",1,0)="The ""AB"" cross-reference is used to look-up members (patients) on a list."
^DD(100.2101,.01,3)="If the list is a personal or team patient list, enter the patient(s) you want associated with this list."
^DD(100.2101,.01,21,0)="^^1^1^2940427^^^^"
^DD(100.2101,.01,21,1,0)="An item on the list, member is a patient if the list type is P or T."
^DD(100.2101,.01,"DT")="2900531"
^DD(100.2101,.01,"V",0)="^.12P^1^1"
^DD(100.2101,.01,"V",1,0)="2^PATIENT^1^PT^^n"
^DD(100.2101,.01,"V","B",2,1)=""
^DD(100.2101,.01,"V","M","PATIENT",1)=""
^DD(100.2101,.01,"V","O",1,1)=""
^DD(100.2101,.01,"V","P","PT",1)=""
^DD(100.2101,1,0)="VIEW DATE/TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.2101,1,3)="Enter the Date/time this list was last viewed."
^DD(100.2101,1,21,0)="^^1^1^2920423^^^^"
^DD(100.2101,1,21,1,0)="This is the date/time this item was last viewed."
^DD(100.2101,1,"DT")="2900904"
^DD(100.2101,2,0)="*NOTIFICATION SELECTION^100.21019P^^100.9;0"
^DD(100.2101,2,3)="Enter the notifications you want to receive."
^DD(100.2101,2,21,0)="^^1^1^2971201^^^^"
^DD(100.2101,2,21,1,0)="This field is unused and will be deleted post-CPRS 1."
^DD(100.2101,2,"DT")="2971201"
^DD(100.2101,"B","*NOTIFICATION SELECTION",2)=""
^DD(100.2101,"B","MEMBER",.01)=""
^DD(100.2101,"B","VIEW DATE/TIME",1)=""
^DD(100.2101,"GL",0,1,.01)=""
^DD(100.2101,"GL",0,2,1)=""
^DD(100.2101,"GL",100.9,0,2)=""
^DD(100.2101,"IX",.01)=""
^DD(100.2101,"SB",100.21019,2)=""
^DD(100.21019,0)="*NOTIFICATION SELECTION SUB-FIELD^^.01^1"
^DD(100.21019,0,"DT")="2910530"
^DD(100.21019,0,"IX","B",100.21019,.01)=""
^DD(100.21019,0,"NM","*NOTIFICATION SELECTION")=""
^DD(100.21019,0,"UP")="100.2101"
^DD(100.21019,.01,0)="*NOTIFICATION SELECTION^MP100.9'^ORD(100.9,^0;1^Q"
^DD(100.21019,.01,1,0)="^.1"
^DD(100.21019,.01,1,1,0)="100.21019^B"
^DD(100.21019,.01,1,1,1)="S ^OR(100.21,DA(2),10,DA(1),100.9,""B"",$E(X,1,30),DA)="""""
^DD(100.21019,.01,1,1,2)="K ^OR(100.21,DA(2),10,DA(1),100.9,""B"",$E(X,1,30),DA)"
^DD(100.21019,.01,3)="Enter the notification(s) you want to receive for this patient."
^DD(100.21019,.01,"DT")="2971201"
^DD(100.21019,"B","*NOTIFICATION SELECTION",.01)=""
^DD(100.21019,"GL",0,1,.01)=""
^DD(100.21019,"IX",.01)=""
^DD(100.212,0)="USER SUB-FIELD^^1^2"
^DD(100.212,0,"DT")="2990512"
^DD(100.212,0,"NM","USER")=""
^DD(100.212,0,"UP")="100.21"
^DD(100.212,.01,0)="USER^*P200'X^VA(200,^0;1^S DIC(""S"")=""I +($$ACTIVE^XUSER(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$G(X) DINUM=X"
^DD(100.212,.01,1,0)="^.1^^-1"
^DD(100.212,.01,1,2,0)="100.21^C"
^DD(100.212,.01,1,2,1)="S ^OR(100.21,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(100.212,.01,1,2,2)="K ^OR(100.21,""C"",$E(X,1,30),DA(1),DA)"
^DD(100.212,.01,1,2,"%D",0)="^^1^1^2920427^"
^DD(100.212,.01,1,2,"%D",1,0)="The ""C"" cross-reference is used to look-up users/recipients on a list."
^DD(100.212,.01,3)="Enter the user(s) you want associated with this list. User(s) may receive clinical notifications for patients also on the list."
^DD(100.212,.01,12)="Screen will filter out inactive users from the selection list."
^DD(100.212,.01,12.1)="S DIC(""S"")=""I +($$ACTIVE^XUSER(Y))"""
^DD(100.212,.01,21,0)="^.001^3^3^3000316^^^^"
^DD(100.212,.01,21,1,0)="This is a user that belongs to the list.  If the list is of type"
^DD(100.212,.01,21,2,0)="TEAM PATIENT or PERSONAL PATIENT, users on the list may receive clinical "
^DD(100.212,.01,21,3,0)="notifications for patients also on the list."
^DD(100.212,.01,"DT")="2990512"
^DD(100.212,1,0)="LAST DATE/TIME USED^D^^0;2^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.212,1,3)="Enter the date/time last used for this user"
^DD(100.212,1,21,0)="^^1^1^2990505^^^^"
^DD(100.212,1,21,1,0)="This is the date/time that the user last used this list."
^DD(100.212,1,"DT")="2900601"
^DD(100.212,"B","LAST DATE/TIME USED",1)=""
^DD(100.212,"B","USER",.01)=""
^DD(100.212,"GL",0,1,.01)=""
^DD(100.212,"GL",0,2,1)=""
^DD(100.212,"IX",.01)=""
^DD(100.213,0)="AUTOLINK SUB-FIELD^^1^2"
^DD(100.213,0,"DT")="2991215"
^DD(100.213,0,"IX","B",100.213,.01)=""
^DD(100.213,0,"NM","AUTOLINK")=""
^DD(100.213,0,"UP")="100.21"
^DD(100.213,.01,0)="AUTOLINK^V^^0;1^Q"
^DD(100.213,.01,1,0)="^.1"
^DD(100.213,.01,1,1,0)="100.213^B"
^DD(100.213,.01,1,1,1)="S ^OR(100.21,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(100.213,.01,1,1,2)="K ^OR(100.21,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(100.213,.01,1,1,3)="Required Index for Variable Pointer"
^DD(100.213,.01,1,2,0)="100.21^AC"
^DD(100.213,.01,1,2,1)="S ^OR(100.21,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(100.213,.01,1,2,2)="K ^OR(100.21,""AC"",$E(X,1,30),DA(1),DA)"
^DD(100.213,.01,1,2,"%D",0)="^^1^1^2920427^^"
^DD(100.213,.01,1,2,"%D",1,0)="Index allowing cross-referencing the list file by AUTOLINK."
^DD(100.213,.01,1,2,"DT")="2920225"
^DD(100.213,.01,3)="Enter the file and entry this list will be linked to for automatic patient updates during ADT patient movements and CLINIC enrollments."
^DD(100.213,.01,21,0)="^.001^2^2^3000411^^^^"
^DD(100.213,.01,21,1,0)="Links for automatic patient addition/removal based on ADT movements and"
^DD(100.213,.01,21,2,0)="CLINIC enrollments."
^DD(100.213,.01,"DT")="2991215"
^DD(100.213,.01,"V",0)="^.12P^5^5"
^DD(100.213,.01,"V",1,0)="42^WARD^1^W^y^n"
^DD(100.213,.01,"V",1,1)="S DIC(""S"")=""I '$$WINACT^ORLP3U1(+Y)"""
^DD(100.213,.01,"V",1,2)="ACTIVE WARDS"
^DD(100.213,.01,"V",2,0)="405.4^ROOM-BED^2^R^^n"
^DD(100.213,.01,"V",3,0)="200^PROVIDER^3^P^y^n"
^DD(100.213,.01,"V",3,1)="S DIC(""S"")=""I $D(X),$D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U))),$$ACTIVE^XUSER(+Y)"""
^DD(100.213,.01,"V",3,2)="Only active providers allowed"
^DD(100.213,.01,"V",4,0)="45.7^SPECIALTY^4^S^^n"
^DD(100.213,.01,"V",5,0)="44^CLINIC^5^C^y^n"
^DD(100.213,.01,"V",5,1)="S DIC(""S"")=""I $D(X),$P(^SC(+Y,0),U,3)=""""C"""",$$ACTLOC^ORWU(+Y)=1"""
^DD(100.213,.01,"V",5,2)="Searches for active CLINICs only."
^DD(100.213,.01,"V","B",42,1)=""
^DD(100.213,.01,"V","B",44,5)=""
^DD(100.213,.01,"V","B",45.7,4)=""
^DD(100.213,.01,"V","B",200,3)=""
^DD(100.213,.01,"V","B",405.4,2)=""
^DD(100.213,.01,"V","M","CLINIC",5)=""
^DD(100.213,.01,"V","M","PROVIDER",3)=""
^DD(100.213,.01,"V","M","ROOM-BED",2)=""
^DD(100.213,.01,"V","M","SPECIALTY",4)=""
^DD(100.213,.01,"V","M","WARD",1)=""
^DD(100.213,.01,"V","O",1,1)=""
^DD(100.213,.01,"V","O",2,2)=""
^DD(100.213,.01,"V","O",3,3)=""
^DD(100.213,.01,"V","O",4,4)=""
^DD(100.213,.01,"V","O",5,5)=""
^DD(100.213,.01,"V","P","C",5)=""
^DD(100.213,.01,"V","P","P",3)=""
^DD(100.213,.01,"V","P","R",2)=""
^DD(100.213,.01,"V","P","S",4)=""
^DD(100.213,.01,"V","P","W",1)=""
^DD(100.213,1,0)="PRIMARY OR ATTENDING^*S^P:primary;A:attending;B:both;^0;2^Q"
^DD(100.213,1,3)="Answer with one of the above codes to link this provider to all patients for which he is their Primary Care physician, Attending physician or acts as either for all inpatients."
^DD(100.213,1,12)="Select how provider autolink will work."
^DD(100.213,1,12.1)="S DIC(""S"")=""I $P(^OR(100.21,DA(1),2,DA,0),U)[""""VA(200"""""""
^DD(100.213,1,21,0)="^^14^14^2990506^^^^"
^DD(100.213,1,21,1,0)="This field will determine how the Autolinks for Providers will work. If the"
^DD(100.213,1,21,2,0)="field is set to;"
^DD(100.213,1,21,3,0)=""
^DD(100.213,1,21,4,0)="""P"" - Primary:  The autolink will add patients to the list that have the"
^DD(100.213,1,21,5,0)="pointed to provider assigned to them thru the MAS options as PROVIDER."
^DD(100.213,1,21,6,0)=""
^DD(100.213,1,21,7,0)="""A"" - Attending:  The autolink will add patients to the list that have the"
^DD(100.213,1,21,8,0)="pointed to provider assigned to them thru the MAS options as ATTENDING"
^DD(100.213,1,21,9,0)="PHYSICIAN."
^DD(100.213,1,21,10,0)=""
^DD(100.213,1,21,11,0)="""B"" - Both:  The autolink will add patients to the list that have the pointed"
^DD(100.213,1,21,12,0)="to provider assigned to them thru the MAS options as  'PROVIDER' and those"
^DD(100.213,1,21,13,0)="patients that have the pointed to provider assigned to them as ATTENDING"
^DD(100.213,1,21,14,0)="PHYSICIAN."
^DD(100.213,1,23,0)="^^1^1^2990506^^^^"
^DD(100.213,1,23,1,0)="To autolink patients to either PROVIDER, ATTENDING PHYSICIAN or both."
^DD(100.213,1,"DT")="2940428"
^DD(100.213,"B","AUTOLINK",.01)=""
^DD(100.213,"B","PRIMARY OR ATTENDING",1)=""
^DD(100.213,"GL",0,1,.01)=""
^DD(100.213,"GL",0,2,1)=""
^DD(100.213,"IX",.01)=""
^DD(100.22,0)="FIELD^^2^10"
^DD(100.22,0,"DDA")="N"
^DD(100.22,0,"DT")="2990126"
^DD(100.22,0,"IX","B",100.22,.01)=""
^DD(100.22,0,"NM","OE/RR PRINT FIELDS")=""
^DD(100.22,0,"PT",100.231,.01)=""
^DD(100.22,0,"VR")="3.0"
^DD(100.22,0,"VRPK")="OR"
^DD(100.22,.001,0)="NUMBER^NJ5,0X^^ ^K:+X'=X!(X>99999)!(X>$S(DUZ(0)[""@"":99999,1:1000))!(X?.E1"".""1N.N) X"
^DD(100.22,.001,3)="Type a Number between 1 and 1000, 0 Decimal Digits. >1000 are reserved."
^DD(100.22,.001,21,0)="^^1^1^2920224^^^"
^DD(100.22,.001,21,1,0)="This is the record number associated with the OE/RR PRINT FIELD entry."
^DD(100.22,.001,"DT")="2910503"
^DD(100.22,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(100.22,.01,1,0)="^.1"
^DD(100.22,.01,1,1,0)="100.22^B"
^DD(100.22,.01,1,1,1)="S ^ORD(100.22,""B"",$E(X,1,30),DA)="""""
^DD(100.22,.01,1,1,2)="K ^ORD(100.22,""B"",$E(X,1,30),DA)"
^DD(100.22,.01,3)="Answer must be 3-30 characters in length."
^DD(100.22,.01,21,0)="^^1^1^2920224^^^^"
^DD(100.22,.01,21,1,0)="This is the name of the OE/RR PRINT FIELD entry."
^DD(100.22,.01,"DT")="2910430"
^DD(100.22,.02,0)="DEFAULT CAPTION^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(100.22,.02,3)="Answer must be 1-20 characters in length."
^DD(100.22,.02,21,0)="^^2^2^2920224^^^^"
^DD(100.22,.02,21,1,0)="This is the caption to be used for printing this field, when no other is"
^DD(100.22,.02,21,2,0)="offered."
^DD(100.22,.02,"DT")="2910205"
^DD(100.22,.03,0)="EXAMPLE ENTRY^F^^0;3^K:$L(X)>132!($L(X)<1) X"
^DD(100.22,.03,3)="Answer must be 1-132 characters in length."
^DD(100.22,.03,21,0)="^^5^5^2920224^^"
^DD(100.22,.03,21,1,0)="This field is used to store sample data for this OE/RR PRINT FIELDS entry."
^DD(100.22,.03,21,2,0)="It should be representative of the raw data to which the VARIABLE field"
^DD(100.22,.03,21,3,0)="will be set (i.e., if ORSTDT=2910430.0700 is a possible value of the"
^DD(100.22,.03,21,4,0)="VARIABLE for the START DATE/TIME field, then the example entry for that"
^DD(100.22,.03,21,5,0)="field might be set to 2910430.0700."
^DD(100.22,.03,"DT")="2910218"
^DD(100.22,.04,0)="VARIABLE^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(100.22,.04,3)="Answer must be 1-20 characters in length."
^DD(100.22,.04,21,0)="^^3^3^2920224^^"
^DD(100.22,.04,21,1,0)="This is the variable which will be printed for this OE/RR PRINT FIELD in"
^DD(100.22,.04,21,2,0)="each record.  If it is NOT an environmental variable (e.g., DT), then it"
^DD(100.22,.04,21,3,0)="will be SET by executing the CODE FOR SETTING VARIABLE node."
^DD(100.22,.04,"DT")="2910205"
^DD(100.22,.05,0)="FORMATTING FUNCTION^FX^^0;5^K:$L(X)>8!($L(X)<1) X I @(""$T(""_X_""^ORU)']"""""""""") K X"
^DD(100.22,.05,3)="Enter the formatting function name (e.g., NAME, or DATE)."
^DD(100.22,.05,21,0)="^^3^3^2920224^^^^"
^DD(100.22,.05,21,1,0)="This field names the extrinsic function, currently found in ^ORU, which is"
^DD(100.22,.05,21,2,0)="used for formatting the output of a given OE/RR PRINT FIELD (e.g., NAME^ORU,"
^DD(100.22,.05,21,3,0)="or DATE^ORU).  Enter the line tag only, omitting the routine name."
^DD(100.22,.05,"DT")="2911003"
^DD(100.22,.06,0)="TYPE^S^0:COMPILE;1:EXECUTE;^0;6^Q"
^DD(100.22,.06,3)="This field determines if the print field will be compiled or executed."
^DD(100.22,.06,21,0)="^^18^18^2970303^^^"
^DD(100.22,.06,21,1,0)="When a print field in used in a print format it is generally compiled"
^DD(100.22,.06,21,2,0)="based on the variable and the code for setting the variable.  This is"
^DD(100.22,.06,21,3,0)="the default for most print fields. "
^DD(100.22,.06,21,4,0)=" "
^DD(100.22,.06,21,5,0)="For more complex print fields it is also possible to execute code directly"
^DD(100.22,.06,21,6,0)="to do the printing.  Setting this field to EXECUTE (1) will allow this"
^DD(100.22,.06,21,7,0)="functionality.  It will use the code in the field: CODE FOR SETTING"
^DD(100.22,.06,21,8,0)="VARIABLE to perform its function."
^DD(100.22,.06,21,9,0)=" "
^DD(100.22,.06,21,10,0)="When this field is used there is generally just one print field for the"
^DD(100.22,.06,21,11,0)="print format being defined.  The code for this print field does all the"
^DD(100.22,.06,21,12,0)="printing/writing for the entire format."
^DD(100.22,.06,21,13,0)=" "
^DD(100.22,.06,21,14,0)="The code should check for the variable ORTEST when executing.  ORTEST is a"
^DD(100.22,.06,21,15,0)="flag that is used to test a print format, used by the Clinical Coordinator"
^DD(100.22,.06,21,16,0)="when defining print formats. e.g.:"
^DD(100.22,.06,21,17,0)="I $G(ORTEST) W !,""This is an example"" Q"
^DD(100.22,.06,21,18,0)="...else do the real thing"
^DD(100.22,.06,23,0)="^^9^9^2970303^^^"
^DD(100.22,.06,23,1,0)="Print fields that have a type of EXECUTE need to be able to respond"
^DD(100.22,.06,23,2,0)="to the print formats utilities.  The code needs to check for the "
^DD(100.22,.06,23,3,0)="existance of the variable ORTEST.  If this variable is around then"
^DD(100.22,.06,23,4,0)="the code should print out an example or description of what the"
^DD(100.22,.06,23,5,0)="execute code will print, and then quit.  If ORTEST does not exist"
^DD(100.22,.06,23,6,0)="then the execute code should be allowed to continue."
^DD(100.22,.06,23,7,0)=" "
^DD(100.22,.06,23,8,0)="If the execute code prints more than one line, the appropriate checks"
^DD(100.22,.06,23,9,0)="for bottom of page and doing form feeds should be done."
^DD(100.22,.06,"DT")="2960529"
^DD(100.22,.07,0)="PACKAGE RESTRICTION^P9.4'^DIC(9.4,^0;7^Q"
^DD(100.22,.07,3)="Don't make an entry here, unless this is a package specific print field."
^DD(100.22,.07,21,0)="^^5^5^2990126^"
^DD(100.22,.07,21,1,0)="This field should only have a value if this print field is for package"
^DD(100.22,.07,21,2,0)="specific code.  This would be fields like Lab Accession # or Consult"
^DD(100.22,.07,21,3,0)="Urgency.  Entries with this field set will be compared to the package"
^DD(100.22,.07,21,4,0)="value of the order being printed.  If it doesn't match this print field"
^DD(100.22,.07,21,5,0)="will be skipped for that order."
^DD(100.22,.07,"DT")="2990127"
^DD(100.22,1,0)="CODE FOR SETTING VARIABLE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(100.22,1,3)="This is Standard MUMPS code."
^DD(100.22,1,8.5)="@"
^DD(100.22,1,9)="@"
^DD(100.22,1,21,0)="^^2^2^2960529^^^^"
^DD(100.22,1,21,1,0)="This is the Standard MUMPS code used for SETTING the VARIABLE printed in"
^DD(100.22,1,21,2,0)="each record for this OE/RR PRINT FIELDS entry."
^DD(100.22,1,"DT")="2910214"
^DD(100.22,2,0)="WORD PROCESSING^100.222^^2;0"
^DD(100.22,2,21,0)="^^3^3^2920225^^"
^DD(100.22,2,21,1,0)="If present, the word-processing type data in this field will be presented"
^DD(100.22,2,21,2,0)="in lieu of the EXAMPLE ENTRY data, when the FORMATTING FUNCTION is specified"
^DD(100.22,2,21,3,0)="to be WORD (e.g., REASON FOR REQUEST)."
^DD(100.22,"B","CODE FOR SETTING VARIABLE",1)=""
^DD(100.22,"B","DEFAULT CAPTION",.02)=""
^DD(100.22,"B","EXAMPLE ENTRY",.03)=""
^DD(100.22,"B","FORMATTING FUNCTION",.05)=""
^DD(100.22,"B","NAME",.01)=""
^DD(100.22,"B","NUMBER",.001)=""
^DD(100.22,"B","PACKAGE RESTRICTION",.07)=""
^DD(100.22,"B","TYPE",.06)=""
^DD(100.22,"B","VARIABLE",.04)=""
^DD(100.22,"B","WORD PROCESSING",2)=""
^DD(100.22,"GL",0,1,.01)=""
^DD(100.22,"GL",0,2,.02)=""
^DD(100.22,"GL",0,3,.03)=""
^DD(100.22,"GL",0,4,.04)=""
^DD(100.22,"GL",0,5,.05)=""
^DD(100.22,"GL",0,6,.06)=""
^DD(100.22,"GL",0,7,.07)=""
^DD(100.22,"GL",1,"E1,245",1)=""
^DD(100.22,"GL",2,0,2)=""
^DD(100.22,"IX",.01)=""
^DD(100.22,"RQ",.01)=""
^DD(100.22,"SB",100.222,2)=""
^DD(100.222,0)="WORD PROCESSING SUB-FIELD^^.01^1"
^DD(100.222,0,"DT")="2910712"
^DD(100.222,0,"NM","WORD PROCESSING")=""
^DD(100.222,0,"UP")="100.22"
^DD(100.222,.01,0)="WORD PROCESSING^W^^0;1^Q"
^DD(100.222,.01,"DT")="2910712"
^DD(100.222,"B","WORD PROCESSING",.01)=""
^DD(100.222,"GL",0,1,.01)=""
^DD(100.23,0)="FIELD^^4^10"
^DD(100.23,0,"DDA")="N"
^DD(100.23,0,"DT")="2990617"
^DD(100.23,0,"IX","B",100.23,.01)=""
^DD(100.23,0,"NM","OE/RR PRINT FORMATS")=""
^DD(100.23,0,"PT",100.99,26)=""
^DD(100.23,0,"PT",100.99,27)=""
^DD(100.23,0,"PT",100.99,28)=""
^DD(100.23,0,"PT",100.9901,.03)=""
^DD(100.23,0,"PT",100.9901,.04)=""
^DD(100.23,0,"PT",100.9901,.06)=""
^DD(100.23,0,"PT",100.9901,.07)=""
^DD(100.23,0,"PT",100.9901,.08)=""
^DD(100.23,0,"VR")="3.0"
^DD(100.23,0,"VRPK")="OR"
^DD(100.23,.001,0)="NUMBER^NJ5,0X^^ ^K:+X'=X!(X>99999)!(X>$S(DUZ(0)[""@"":99999,1:1000))!(X?.E1"".""1N.N) X"
^DD(100.23,.001,3)="Type a Number between 1 and 1000, 0 Decimal Digits. >1000 are reserved."
^DD(100.23,.001,21,0)="^^1^1^2920224^"
^DD(100.23,.001,21,1,0)="Internal number of the format."
^DD(100.23,.001,"DT")="2910503"
^DD(100.23,.01,0)="NAME^F^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(100.23,.01,1,0)="^.1"
^DD(100.23,.01,1,1,0)="100.23^B"
^DD(100.23,.01,1,1,1)="S ^ORD(100.23,""B"",$E(X,1,30),DA)="""""
^DD(100.23,.01,1,1,2)="K ^ORD(100.23,""B"",$E(X,1,30),DA)"
^DD(100.23,.01,3)="Answer must be 3-50 characters in length."
^DD(100.23,.01,21,0)="^^1^1^2920224^"
^DD(100.23,.01,21,1,0)="This is the name of the format."
^DD(100.23,.01,"DEL",1,0)="I DA'>999"
^DD(100.23,.01,"DT")="2990617"
^DD(100.23,.02,0)="ROWS^NJ2,0^^0;2^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.23,.02,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(100.23,.02,21,0)="^^2^2^2920224^"
^DD(100.23,.02,21,1,0)="This is the number of rows on the screen/form that this format"
^DD(100.23,.02,21,2,0)="will occupy."
^DD(100.23,.02,"DT")="2910205"
^DD(100.23,.03,0)="COLUMNS^NJ3,0^^0;3^K:+X'=X!(X>132)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.23,.03,3)="Type a Number between 1 and 132, 0 Decimal Digits"
^DD(100.23,.03,21,0)="^^1^1^2920224^"
^DD(100.23,.03,21,1,0)="This is the total number of columns that this format will occupy."
^DD(100.23,.03,"DT")="2910205"
^DD(100.23,.04,0)="ORDER TEXT LENGTH^NJ3,0^^0;4^K:+X'=X!(X>132)!(X<3)!(X?.E1"".""1N.N) X"
^DD(100.23,.04,3)="Type a Number between 3 and 132, 0 Decimal Digits"
^DD(100.23,.04,21,0)="^^9^9^2980729^"
^DD(100.23,.04,21,1,0)="This field is specifically used in formats that use the Order Text field"
^DD(100.23,.04,21,2,0)="for displaying the order text within a format.  The value in this field"
^DD(100.23,.04,21,3,0)="is the length that the order text will use, and is the same value that is"
^DD(100.23,.04,21,4,0)="put in the FORMAT field for the Order Text field definition.  The"
^DD(100.23,.04,21,5,0)="exported value is 36.  This value is necessary to correctly calculate"
^DD(100.23,.04,21,6,0)="the number of lines available for printing an order.  If you create a"
^DD(100.23,.04,21,7,0)="customized version of this format, and you change the value of the"
^DD(100.23,.04,21,8,0)="FORMAT field for Order Text, make sure this field is also changed"
^DD(100.23,.04,21,9,0)="to match."
^DD(100.23,.04,"DT")="2980729"
^DD(100.23,.05,0)="SINGLE^S^0:NO;1:YES;^0;5^Q"
^DD(100.23,.05,3)="Enter YES if this format is not associated with a Header or Footer"
^DD(100.23,.05,21,0)="^^3^3^2980818^"
^DD(100.23,.05,21,1,0)="This field is used to identify formats that are not used with a Header or"
^DD(100.23,.05,21,2,0)="Footer format.  Labels are a good example.  This field is used by the"
^DD(100.23,.05,21,3,0)="OE/RR print utility to keep special formats properly aligned."
^DD(100.23,.05,"DT")="2980818"
^DD(100.23,1,0)="FIELDS^100.231PI^^1;0"
^DD(100.23,1,3)="Enter the fields to be used in this format."
^DD(100.23,1,21,0)="^^1^1^2920423^^"
^DD(100.23,1,21,1,0)="Each format includes one or more fields that are compiled here."
^DD(100.23,2,0)="COMPILED CODE^100.232^^2;0"
^DD(100.23,2,3)="Do not enter anything here."
^DD(100.23,2,21,0)="^^3^3^2990127^^"
^DD(100.23,2,21,1,0)="This is the MUMPS code that is compiled when using the PRINT FORMATS"
^DD(100.23,2,21,2,0)="utility in OE/RR to build print formats.  This field should not be"
^DD(100.23,2,21,3,0)="edited."
^DD(100.23,3,0)="SCREEN^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(100.23,3,3)="This is Standard MUMPS code that may be used to screen print-outs."
^DD(100.23,3,21,0)="^^2^2^2920224^"
^DD(100.23,3,21,1,0)="This is MUMPS code that is used to screen out the printing of a format"
^DD(100.23,3,21,2,0)="for special circumstances."
^DD(100.23,3,23,0)="^^3^3^2920224^"
^DD(100.23,3,23,1,0)="This should be in the form of other Fileman type screens that set the"
^DD(100.23,3,23,2,0)="value of $T by use of an IF command.  If the screen sets $T=1 then the"
^DD(100.23,3,23,3,0)="format will be printed."
^DD(100.23,3,"DT")="2910417"
^DD(100.23,4,0)="SILENT CODE^100.234^^4;0"
^DD(100.23,4,21,0)="^^2^2^2990201^"
^DD(100.23,4,21,1,0)="This field contains M code that gets executed by 'Silent API's' to"
^DD(100.23,4,21,2,0)="produce formatted text arrays for use in GUI or other applications."
^DD(100.23,"B","COLUMNS",.03)=""
^DD(100.23,"B","COMPILED CODE",2)=""
^DD(100.23,"B","FIELDS",1)=""
^DD(100.23,"B","NAME",.01)=""
^DD(100.23,"B","NUMBER",.001)=""
^DD(100.23,"B","ORDER TEXT LENGTH",.04)=""
^DD(100.23,"B","ROWS",.02)=""
^DD(100.23,"B","SCREEN",3)=""
^DD(100.23,"B","SILENT CODE",4)=""
^DD(100.23,"B","SINGLE",.05)=""
^DD(100.23,"GL",0,1,.01)=""
^DD(100.23,"GL",0,2,.02)=""
^DD(100.23,"GL",0,3,.03)=""
^DD(100.23,"GL",0,4,.04)=""
^DD(100.23,"GL",0,5,.05)=""
^DD(100.23,"GL",1,0,1)=""
^DD(100.23,"GL",2,0,2)=""
^DD(100.23,"GL",3,"E1,245",3)=""
^DD(100.23,"GL",4,0,4)=""
^DD(100.23,"IX",.01)=""
^DD(100.23,"SB",100.231,1)=""
^DD(100.23,"SB",100.232,2)=""
^DD(100.23,"SB",100.234,4)=""
^DD(100.231,0)="FIELDS SUB-FIELD^^.07^7"
^DD(100.231,0,"DT")="2910423"
^DD(100.231,0,"ID",.02)="W ""   Row: "",$J($P(^(0),U,2),3)"
^DD(100.231,0,"ID",.03)="W ""   Col: "",$J($P(^(0),U,3),3)"
^DD(100.231,0,"ID",.04)="W ""   Caption: "",$P(^(0),U,4)"
^DD(100.231,0,"IX","B",100.231,.01)=""
^DD(100.231,0,"NM","FIELDS")=""
^DD(100.231,0,"UP")="100.23"
^DD(100.231,.01,0)="FIELDS^MP100.22'X^ORD(100.22,^0;1^"
^DD(100.231,.01,1,0)="^.1"
^DD(100.231,.01,1,1,0)="100.231^B"
^DD(100.231,.01,1,1,1)="S ^ORD(100.23,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(100.231,.01,1,1,2)="K ^ORD(100.23,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(100.231,.01,3)="Enter the field to be added to this format."
^DD(100.231,.01,21,0)="^^2^2^2920224^"
^DD(100.231,.01,21,1,0)="The allowable choices come from the OE/RR PRINT FIELDS FILE and"
^DD(100.231,.01,21,2,0)="are grouped here to make up a format."
^DD(100.231,.01,"DT")="2910816"
^DD(100.231,.02,0)="ROW^NJ2,0^^0;2^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.231,.02,3)="Enter the row number where this field should be printed."
^DD(100.231,.02,21,0)="^^1^1^2920224^"
^DD(100.231,.02,21,1,0)="This is the row that selected field will print on."
^DD(100.231,.02,"DT")="2910205"
^DD(100.231,.03,0)="COLUMN^NJ3,0^^0;3^K:+X'=X!(X>132)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.231,.03,3)="Enter the column number where this field should be printed."
^DD(100.231,.03,21,0)="^^1^1^2920224^"
^DD(100.231,.03,21,1,0)="This is the column that the selected field will print on."
^DD(100.231,.03,"DT")="2910205"
^DD(100.231,.04,0)="CAPTION (Optional)^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(100.231,.04,3)="Answer must be 1-20 characters in length."
^DD(100.231,.04,21,0)="^^4^4^2920224^"
^DD(100.231,.04,21,1,0)="This is the caption to be used when printing this field.  Caption is "
^DD(100.231,.04,21,2,0)="optional.  If this entry is blank, the default caption from the OE/RR"
^DD(100.231,.04,21,3,0)="PRINT FIELDS file for this field is used.  If no caption is desired"
^DD(100.231,.04,21,4,0)="for this field, enter the word NONE."
^DD(100.231,.04,"DT")="2910205"
^DD(100.231,.05,0)="LITERAL TEXT^F^^0;5^K:$L(X)>80!($L(X)<1) X"
^DD(100.231,.05,3)="Enter 1-80 characters if this is a free text field."
^DD(100.231,.05,21,0)="^^2^2^2920224^"
^DD(100.231,.05,21,1,0)="This is used for FREE TEXT fields.  If the field selected is FREE TEXT,"
^DD(100.231,.05,21,2,0)="enter here the text that is to be printed."
^DD(100.231,.05,"DT")="2910205"
^DD(100.231,.06,0)="FORMAT^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(100.231,.06,3)="Enter the format specifier of the selected field."
^DD(100.231,.06,4)="D HELP^ORUH"
^DD(100.231,.06,21,0)="^^2^2^2920224^^^^"
^DD(100.231,.06,21,1,0)="Enter the format in which you want the selected print field to appear."
^DD(100.231,.06,21,2,0)="e.g., MM/DD/YY HR:MIN for date/time fields, or LAST, FIRST MI for names."
^DD(100.231,.06,"DT")="2910423"
^DD(100.231,.07,0)="SUPPRESS CAPTION^S^0:NO;1:YES;^0;7^Q"
^DD(100.231,.07,3)="Answer YES to suppress printing of caption when no data for field."
^DD(100.231,.07,21,0)="^^2^2^2970312^^^"
^DD(100.231,.07,21,1,0)="This field, if set to YES, will suppress the printing of a caption"
^DD(100.231,.07,21,2,0)="when data for this field is not present."
^DD(100.231,.07,"DT")="2920423"
^DD(100.231,"B","CAPTION (Optional)",.04)=""
^DD(100.231,"B","COLUMN",.03)=""
^DD(100.231,"B","FIELDS",.01)=""
^DD(100.231,"B","FORMAT",.06)=""
^DD(100.231,"B","LITERAL TEXT",.05)=""
^DD(100.231,"B","ROW",.02)=""
^DD(100.231,"B","SUPPRESS CAPTION",.07)=""
^DD(100.231,"GL",0,1,.01)=""
^DD(100.231,"GL",0,2,.02)=""
^DD(100.231,"GL",0,3,.03)=""
^DD(100.231,"GL",0,4,.04)=""
^DD(100.231,"GL",0,5,.05)=""
^DD(100.231,"GL",0,6,.06)=""
^DD(100.231,"GL",0,7,.07)=""
^DD(100.231,"IX",.01)=""
^DD(100.232,0)="COMPILED CODE SUB-FIELD^^.01^1"
^DD(100.232,0,"DT")="2910214"
^DD(100.232,0,"NM","COMPILED CODE")=""
^DD(100.232,0,"UP")="100.23"
^DD(100.232,.01,0)="COMPILED CODE^WL^^0;1^Q"
^DD(100.232,.01,3)="Do not enter anything here."
^DD(100.232,.01,21,0)="^^2^2^2990127^^"
^DD(100.232,.01,21,1,0)="This is a line of pre-compiled MUMPS code that is generated as a result"
^DD(100.232,.01,21,2,0)="of entries made in other fields for this print format."
^DD(100.232,.01,"DT")="2910214"
^DD(100.232,"B","COMPILED CODE",.01)=""
^DD(100.232,"GL",0,1,.01)=""
^DD(100.234,0)="SILENT CODE SUB-FIELD^^.01^1"
^DD(100.234,0,"DT")="2990127"
^DD(100.234,0,"NM","SILENT CODE")=""
^DD(100.234,0,"UP")="100.23"
^DD(100.234,.01,0)="SILENT CODE^WL^^0;1^Q"
^DD(100.234,.01,21,0)="^^2^2^2990201^^^^"
^DD(100.234,.01,21,1,0)="This is the code generated to produce formatted Print Formats to"
^DD(100.234,.01,21,2,0)="be used in Silent calls."
^DD(100.234,.01,"DT")="2990127"
^DD(100.234,"B","SILENT CODE",.01)=""
^DD(100.234,"GL",0,1,.01)=""
^DD(100.24,0)="FIELD^^1^2"
^DD(100.24,0,"DDA")="N"
^DD(100.24,0,"DT")="3000426"
^DD(100.24,0,"IX","B",100.24,.01)=""
^DD(100.24,0,"NM","OE/RR PT SEL COMBO")=""
^DD(100.24,0,"VR")="3.0"
^DD(100.24,0,"VRPK")="OR"
^DD(100.24,.01,0)="NAME^R*P200'X^VA(200,^0;1^S DIC(""S"")=""I $D(X),$$ACTIVE^XUSER(+Y),+Y=DUZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$G(X) DINUM=X"
^DD(100.24,.01,.1)="USER IEN"
^DD(100.24,.01,1,0)="^.1"
^DD(100.24,.01,1,1,0)="100.24^B"
^DD(100.24,.01,1,1,1)="S ^OR(100.24,""B"",$E(X,1,30),DA)="""""
^DD(100.24,.01,1,1,2)="K ^OR(100.24,""B"",$E(X,1,30),DA)"
^DD(100.24,.01,3)="Current, active user only."
^DD(100.24,.01,12)="Current, active user only."
^DD(100.24,.01,12.1)="S DIC(""S"")=""I $D(X),$$ACTIVE^XUSER(+Y),+Y=DUZ"""
^DD(100.24,.01,21,0)="^.001^2^2^3000427^^^^"
^DD(100.24,.01,21,1,0)="This field stores the IEN (from the NEW PERSON file) of the user of this"
^DD(100.24,.01,21,2,0)="Combination."
^DD(100.24,.01,23,0)="^^1^1^3000427^"
^DD(100.24,.01,23,1,0)="The field is DINUM; thus only one record per user is allowed."
^DD(100.24,.01,"DT")="3000427"
^DD(100.24,1,0)="COMBINATION ITEM^100.241V^^.01;0"
^DD(100.24,1,21,0)="^^1^1^3000426^^^^"
^DD(100.24,1,21,1,0)="This is the sub-file multiple for the combination source entries."
^DD(100.24,1,"DT")="3000406"
^DD(100.24,"B","COMBINATION ITEM",1)=""
^DD(100.24,"B","NAME",.01)=""
^DD(100.24,"B","USER IEN",.01)="1"
^DD(100.24,"GL",0,1,.01)=""
^DD(100.24,"GL",.01,0,1)=""
^DD(100.24,"IX",.01)=""
^DD(100.24,"RQ",.01)=""
^DD(100.24,"SB",100.241,1)=""
^DD(100.241,0)="COMBINATION ITEM SUB-FIELD^^.01^1"
^DD(100.241,0,"DT")="3000405"
^DD(100.241,0,"IX","B",100.241,.01)=""
^DD(100.241,0,"NM","COMBINATION ITEM")=""
^DD(100.241,0,"UP")="100.24"
^DD(100.241,.01,0)="COMBINATION ITEM^MV^^0;1^Q"
^DD(100.241,.01,.1)="ITEM"
^DD(100.241,.01,1,0)="^.1"
^DD(100.241,.01,1,1,0)="100.241^B"
^DD(100.241,.01,1,1,1)="S ^OR(100.24,DA(1),.01,""B"",$E(X,1,30),DA)="""""
^DD(100.241,.01,1,1,2)="K ^OR(100.24,DA(1),.01,""B"",$E(X,1,30),DA)"
^DD(100.241,.01,1,1,3)="Required Index for Variable Pointer"
^DD(100.241,.01,3)="Enter or select the desired source for this combination."
^DD(100.241,.01,21,0)="^^1^1^3000426^^^^"
^DD(100.241,.01,21,1,0)="This variable-pointer multiple stores the combination source entries."
^DD(100.241,.01,"DT")="3000406"
^DD(100.241,.01,"V",0)="^.12P^5^5"
^DD(100.241,.01,"V",1,0)="42^WARD^1^W^y^n"
^DD(100.241,.01,"V",1,1)="S DIC(""S"")=""I '$$WINACT^ORLP3U1(+Y)"""
^DD(100.241,.01,"V",1,2)="Searches for active wards only."
^DD(100.241,.01,"V",2,0)="200^PROVIDER^2^P^y^n"
^DD(100.241,.01,"V",2,1)="S DIC(""S"")=""I $D(X),$D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U))),$$ACTIVE^XUSER(+Y)"""
^DD(100.241,.01,"V",2,2)="Searches for active providers only."
^DD(100.241,.01,"V",3,0)="45.7^SPECIALTY^3^S^^n"
^DD(100.241,.01,"V",4,0)="100.21^TEAM LIST^4^T^^n"
^DD(100.241,.01,"V",5,0)="44^CLINIC^5^C^y^n"
^DD(100.241,.01,"V",5,1)="S DIC(""S"")=""I $D(X),$P(^SC(+Y,0),U,3)=""""C"""",$$ACTLOC^ORWU(+Y)=1"""
^DD(100.241,.01,"V",5,2)="Searches for active clinics only."
^DD(100.241,.01,"V","B",42,1)=""
^DD(100.241,.01,"V","B",44,5)=""
^DD(100.241,.01,"V","B",45.7,3)=""
^DD(100.241,.01,"V","B",100.21,4)=""
^DD(100.241,.01,"V","B",200,2)=""
^DD(100.241,.01,"V","M","CLINIC",5)=""
^DD(100.241,.01,"V","M","PROVIDER",2)=""
^DD(100.241,.01,"V","M","SPECIALTY",3)=""
^DD(100.241,.01,"V","M","TEAM LIST",4)=""
^DD(100.241,.01,"V","M","WARD",1)=""
^DD(100.241,.01,"V","O",1,1)=""
^DD(100.241,.01,"V","O",2,2)=""
^DD(100.241,.01,"V","O",3,3)=""
^DD(100.241,.01,"V","O",4,4)=""
^DD(100.241,.01,"V","O",5,5)=""
^DD(100.241,.01,"V","P","C",5)=""
^DD(100.241,.01,"V","P","P",2)=""
^DD(100.241,.01,"V","P","S",3)=""
^DD(100.241,.01,"V","P","T",4)=""
^DD(100.241,.01,"V","P","W",1)=""
^DD(100.241,"B","COMBINATION ITEM",.01)=""
^DD(100.241,"B","ITEM",.01)="1"
^DD(100.241,"GL",0,1,.01)=""
^DD(100.241,"IX",.01)=""
^DD(100.25,0)="ACTIVITY SUB-FIELD^^7^7"
^DD(100.25,0,"DT")="3020425"
^DD(100.25,0,"IX","B",100.25,.01)=""
^DD(100.25,0,"NM","ACTIVITY")=""
^DD(100.25,0,"UP")="100.2"
^DD(100.25,.01,0)="DATE/TIME OF ACTIVITY^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.25,.01,1,0)="^.1"
^DD(100.25,.01,1,1,0)="100.25^B"
^DD(100.25,.01,1,1,1)="S ^ORE(100.2,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(100.25,.01,1,1,2)="K ^ORE(100.2,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(100.25,.01,3)="Enter the date and time that action was taken on this event."
^DD(100.25,.01,21,0)="^^1^1^3020718^"
^DD(100.25,.01,21,1,0)="This is the actual date and time that the activity occurred."
^DD(100.25,.01,"DT")="3020425"
^DD(100.25,2,0)="TYPE OF EVENT ACTIVITY^RS^NW:NEW;ED:EDITED;RE:REENTERED;MN:MANUALLY RELEASED;LP:LAPSED;DL:DELETED;CA:CANCELLED;^0;2^Q"
^DD(100.25,2,3)="Enter the type of action that was taken on this event."
^DD(100.25,2,21,0)="^^6^6^3020718^"
^DD(100.25,2,21,1,0)="This field is a code indicating the type of activity that occurred.  This "
^DD(100.25,2,21,2,0)="may be new, edited, re-entered, manually released, deleted or cancelled."
^DD(100.25,2,21,3,0)=" "
^DD(100.25,2,21,4,0)="An event may also be ""lapsed"" if it stays unprocessed beyond the time"
^DD(100.25,2,21,5,0)="frame defined by the ""Lapse in #Days"" field of the OE/RR RELEASE EVENTS"
^DD(100.25,2,21,6,0)="file #100.5 for this event."
^DD(100.25,2,"DT")="3020425"
^DD(100.25,3,0)="USER^P200'^VA(200,^0;3^Q"
^DD(100.25,3,3)="Enter the user taking this action on the event."
^DD(100.25,3,21,0)="^^1^1^3020718^"
^DD(100.25,3,21,1,0)="This field is the user who entered or modified the activity."
^DD(100.25,3,"DT")="3020425"
^DD(100.25,4,0)="EVENT TYPE^S^A:ADMISSION;T:TRANSFER;D:DISCHARGE;O:OUT OF O.R.;S:SPECIALTY CHANGE;^0;4^Q"
^DD(100.25,4,3)="Enter the type of event that was processed."
^DD(100.25,4,21,0)="^^2^2^3020718^"
^DD(100.25,4,21,1,0)="This field is the type of event that was processed.  This could be "
^DD(100.25,4,21,2,0)="admission, discharge, transfer, out of O.R., or specialty change."
^DD(100.25,4,"DT")="3020425"
^DD(100.25,5,0)="MAS MOVEMENT TYPE^P405.2'^DG(405.2,^0;5^Q"
^DD(100.25,5,3)="If this event is an MAS patient movement, enter the movement type."
^DD(100.25,5,21,0)="^^2^2^3020718^"
^DD(100.25,5,21,1,0)="This field is the MAS Movement Type of the activity that was processed, if"
^DD(100.25,5,21,2,0)="it was an MAS patient movement."
^DD(100.25,5,"DT")="3020425"
^DD(100.25,6,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^0;6^Q"
^DD(100.25,6,3)="Enter the treating specialty associated with this event."
^DD(100.25,6,21,0)="^^2^2^3020718^"
^DD(100.25,6,21,1,0)="This field is the treating specialty associated with this activity, if it"
^DD(100.25,6,21,2,0)="is an MAS patient movement."
^DD(100.25,6,"DT")="3020425"
^DD(100.25,7,0)="WARD LOCATION^P42'^DIC(42,^0;7^Q"
^DD(100.25,7,3)="Enter the ward location associated with this event."
^DD(100.25,7,21,0)="^^2^2^3020718^"
^DD(100.25,7,21,1,0)="This field is the ward location associated with this activity, if it is an"
^DD(100.25,7,21,2,0)="MAS patient movement."
^DD(100.25,7,"DT")="3020425"
^DD(100.25,"B","DATE/TIME OF ACTIVITY",.01)=""
^DD(100.25,"B","EVENT TYPE",4)=""
^DD(100.25,"B","MAS MOVEMENT TYPE",5)=""
^DD(100.25,"B","TREATING SPECIALTY",6)=""
^DD(100.25,"B","TYPE OF EVENT ACTIVITY",2)=""
^DD(100.25,"B","USER",3)=""
^DD(100.25,"B","WARD LOCATION",7)=""
^DD(100.25,"GL",0,1,.01)=""
^DD(100.25,"GL",0,2,2)=""
^DD(100.25,"GL",0,3,3)=""
^DD(100.25,"GL",0,4,4)=""
^DD(100.25,"GL",0,5,5)=""
^DD(100.25,"GL",0,6,6)=""
^DD(100.25,"GL",0,7,7)=""
^DD(100.25,"IX",.01)=""
^DD(100.25,"RQ",2)=""
^DD(100.26,0)="RELEASED ORDERS SUB-FIELD^^2^2"
^DD(100.26,0,"DT")="3020923"
^DD(100.26,0,"NM","RELEASED ORDERS")=""
^DD(100.26,0,"UP")="100.2"
^DD(100.26,.01,0)="RELEASED ORDER^MP100'X^OR(100,^0;1^S:$D(X) DINUM=X"
^DD(100.26,.01,1,0)="^.1^^0"
^DD(100.26,.01,3)="Enter the number of a delayed order that was released by this event."
^DD(100.26,.01,21,0)="^^2^2^3020718^"
^DD(100.26,.01,21,1,0)="This field is a pointer to the Orders file #100 of an order that was "
^DD(100.26,.01,21,2,0)="released as a result of the event occurring."
^DD(100.26,.01,"DT")="3020425"
^DD(100.26,2,0)="BY ACTION^S^MN:MANUAL RELEASE;ES:SIGNATURE;^0;2^Q"
^DD(100.26,2,3)="Enter the action that released this order."
^DD(100.26,2,21,0)="^^4^4^3020923^"
^DD(100.26,2,21,1,0)="This is the CPRS action that released this order to the service, instead"
^DD(100.26,2,21,2,0)="of the specified OE/RR RELEASE EVENT.  These orders are tracked here so"
^DD(100.26,2,21,3,0)="that they can all be displayed in the ""Auto-DC/Release Events"" view,"
^DD(100.26,2,21,4,0)="including the complete movement data in the Detailed Display."
^DD(100.26,2,"DT")="3020923"
^DD(100.26,"B","BY ACTION",2)=""
^DD(100.26,"B","RELEASED ORDER",.01)=""
^DD(100.26,"GL",0,1,.01)=""
^DD(100.26,"GL",0,2,2)=""
^DD(100.27,0)="DISCONTINUED ORDERS SUB-FIELD^^2^2"
^DD(100.27,0,"DT")="3020916"
^DD(100.27,0,"NM","DISCONTINUED ORDERS")=""
^DD(100.27,0,"UP")="100.2"
^DD(100.27,.01,0)="DISCONTINUED ORDER^MP100'X^OR(100,^0;1^S:$D(X) DINUM=X"
^DD(100.27,.01,1,0)="^.1^^0"
^DD(100.27,.01,3)="Enter the number of an order that was automatically discontinued by this event."
^DD(100.27,.01,21,0)="^^1^1^3020425^"
^DD(100.27,.01,21,1,0)="This field is the number of the order in the Orders file #100."
^DD(100.27,.01,"DT")="3020425"
^DD(100.27,2,0)="BY PACKAGE^S^FH:DIETETICS;LR:LABORATORY;PS:PHARMACY;^0;2^Q"
^DD(100.27,2,3)="Enter the package that auto-dc'd this order."
^DD(100.27,2,21,0)="^^5^5^3020916^"
^DD(100.27,2,21,1,0)="This is the VistA package whose protocol on the DGPM MOVEMENT EVENTS"
^DD(100.27,2,21,2,0)="driver caused this order to auto-dc, instead of the OE/RR AUTO-DC RULE."
^DD(100.27,2,21,3,0)="These orders are tracked here so that they can all be displayed in the"
^DD(100.27,2,21,4,0)="""Auto-DC/Release Events"" view, including the complete movement data in"
^DD(100.27,2,21,5,0)="the Detailed Display."
^DD(100.27,2,"DT")="3020916"
^DD(100.27,"B","BY PACKAGE",2)=""
^DD(100.27,"B","DISCONTINUED ORDER",.01)=""
^DD(100.27,"GL",0,1,.01)=""
^DD(100.27,"GL",0,2,2)=""
^DD(100.4,0)="FIELD^^5^6"
^DD(100.4,0,"DT")="2961016"
^DD(100.4,0,"NM","OE/RR ERRORS")=""
^DD(100.4,0,"VR")="3.0"
^DD(100.4,0,"VRPK")="ORDER ENTRY/RESULTS REPORTING"
^DD(100.4,.01,0)="DATE/TIME^MRDI^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(100.4,.01,1,0)="^.1^^0"
^DD(100.4,.01,3)="Enter the date time of the error."
^DD(100.4,.01,21,0)="^^1^1^2920224^^"
^DD(100.4,.01,21,1,0)="This is the date/time the error occurred."
^DD(100.4,.01,"DT")="2890315"
^DD(100.4,1,0)="ION^FI^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(100.4,1,3)="Enter the device name that the error occurred on."
^DD(100.4,1,21,0)="^^1^1^2920224^^"
^DD(100.4,1,21,1,0)="This is the name of the device that the error occurred on."
^DD(100.4,1,"DT")="2890315"
^DD(100.4,2,0)="DUZ^P200'I^VA(200,^0;3^Q"
^DD(100.4,2,3)="Enter the internal DUZ of the user when the error occurred."
^DD(100.4,2,21,0)="^^1^1^2920224^^^"
^DD(100.4,2,21,1,0)="This is a pointer to the user that was signed on when the error occurred."
^DD(100.4,2,"DT")="2900820"
^DD(100.4,3,0)="ERROR TYPE^FI^^0;4^K:$L(X)>80!($L(X)<1) X"
^DD(100.4,3,3)="Enter the type of error."
^DD(100.4,3,21,0)="^^1^1^2920224^^"
^DD(100.4,3,21,1,0)="This is the type of error that caused the failure."
^DD(100.4,3,"DT")="2890318"
^DD(100.4,4,0)="TASK^RNJ11,0I^^0;5^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.4,4,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(100.4,4,21,0)="^^2^2^2920224^^"
^DD(100.4,4,21,1,0)="This is a pointer to the task in ^%ZTSK that will purge this entry from"
^DD(100.4,4,21,2,0)="this file."
^DD(100.4,4,"DT")="2890315"
^DD(100.4,5,0)="ERROR TEXT^100.45^^1;0"
^DD(100.4,5,21,0)="^^2^2^2971219^"
^DD(100.4,5,21,1,0)="This contains a description of the error; if the error occurred within"
^DD(100.4,5,21,2,0)="the processing of HL7 messages, the message itself may be stored here."
^DD(100.4,"B","DATE/TIME",.01)=""
^DD(100.4,"B","DUZ",2)=""
^DD(100.4,"B","ERROR TEXT",5)=""
^DD(100.4,"B","ERROR TYPE",3)=""
^DD(100.4,"B","ION",1)=""
^DD(100.4,"B","TASK",4)=""
^DD(100.4,"GL",0,1,.01)=""
^DD(100.4,"GL",0,2,1)=""
^DD(100.4,"GL",0,3,2)=""
^DD(100.4,"GL",0,4,3)=""
^DD(100.4,"GL",0,5,4)=""
^DD(100.4,"GL",1,0,5)=""
^DD(100.4,"RQ",.01)=""
^DD(100.4,"RQ",4)=""
^DD(100.4,"SB",100.45,5)=""
^DD(100.45,0)="ERROR TEXT SUB-FIELD^^.01^1"
^DD(100.45,0,"DT")="2961016"
^DD(100.45,0,"NM","ERROR TEXT")=""
^DD(100.45,0,"UP")="100.4"
^DD(100.45,.01,0)="ERROR TEXT^WL^^0;1^Q"
^DD(100.45,.01,21,0)="^^4^4^2961016^"
^DD(100.45,.01,21,1,0)=" "
^DD(100.45,.01,21,2,0)="  This field contains other information about the error that"
^DD(100.45,.01,21,3,0)="could not be contained within the Error Type field."
^DD(100.45,.01,21,4,0)=" "
^DD(100.45,.01,"DT")="2961016"
^DD(100.45,"B","ERROR TEXT",.01)=""
^DD(100.45,"GL",0,1,.01)=""
^DD(100.5,0)="FIELD^^14^17"
^DD(100.5,0,"DDA")="N"
^DD(100.5,0,"DT")="3020709"
^DD(100.5,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(100.5,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(100.5,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(100.5,0,"IX","ADT",100.5,2)=""
^DD(100.5,0,"IX","B",100.5,.01)=""
^DD(100.5,0,"IX","DAD",100.5,14)=""
^DD(100.5,0,"NM","OE/RR RELEASE EVENTS")=""
^DD(100.5,0,"PT",100.2,2)=""
^DD(100.5,0,"PT",100.5,14)=""
^DD(100.5,0,"VR")="3.0"
^DD(100.5,0,"VRPK")="OR"
^DD(100.5,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(100.5,.01,1,0)="^.1"
^DD(100.5,.01,1,1,0)="100.5^B"
^DD(100.5,.01,1,1,1)="S ^ORD(100.5,""B"",$E(X,1,30),DA)="""""
^DD(100.5,.01,1,1,2)="K ^ORD(100.5,""B"",$E(X,1,30),DA)"
^DD(100.5,.01,3)="Answer must be 3-50 characters in length."
^DD(100.5,.01,21,0)="^.001^2^2^3020426^^^^"
^DD(100.5,.01,21,1,0)="This is the name of the event, used to uniquely identify it in the file;"
^DD(100.5,.01,21,2,0)="it is visible in the Event Editor only."
^DD(100.5,.01,"AUDIT")=""
^DD(100.5,.01,"DEL",.01,0)="I $$CANDEL^OREV1(100.5)"
^DD(100.5,.01,"DT")="3020329"
^DD(100.5,.1,0)="SHORT NAME^F^^0;10^K:$L(X)>15!($L(X)<1) X"
^DD(100.5,.1,3)="Answer must be 1-15 characters in length."
^DD(100.5,.1,21,0)="^^3^3^3020305^"
^DD(100.5,.1,21,1,0)="This field contains a shorter version of the Display Text, to be used"
^DD(100.5,.1,21,2,0)="for displaying and grouping delayed orders on the Orders tab where space"
^DD(100.5,.1,21,3,0)="is limited."
^DD(100.5,.1,"DT")="3011217"
^DD(100.5,1,0)="INACTIVATED^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.5,1,3)="Enter the date and time this event was (or will be) inactivated."
^DD(100.5,1,21,0)="^.001^6^6^3020709^^^^"
^DD(100.5,1,21,1,0)="This field contains the date and time that this event became inactive;"
^DD(100.5,1,21,2,0)="once this date/time has passed, this event may no longer be selected for"
^DD(100.5,1,21,3,0)="delaying orders, however any orders already delayed for this event will"
^DD(100.5,1,21,4,0)="still be released when the event occurs.  If this date/time is in the"
^DD(100.5,1,21,5,0)="future, this event may continue to be selected for delaying orders until"
^DD(100.5,1,21,6,0)="this time passes."
^DD(100.5,1,"DT")="3020910"
^DD(100.5,1.5,0)="ACTIVATION HISTORY^100.52DA^^2;0"
^DD(100.5,2,0)="TYPE OF EVENT^RS^A:ADMISSION;T:TRANSFER;D:DISCHARGE;O:O.R.;M:MANUAL RELEASE;^0;2^Q"
^DD(100.5,2,1,0)="^.1"
^DD(100.5,2,1,1,0)="100.5^ADT"
^DD(100.5,2,1,1,1)="S ^ORD(100.5,""ADT"",$E(X,1,30),DA)="""""
^DD(100.5,2,1,1,2)="K ^ORD(100.5,""ADT"",$E(X,1,30),DA)"
^DD(100.5,2,1,1,"DT")="3011005"
^DD(100.5,2,3)="Enter the type of event that should cause delayed orders to be released."
^DD(100.5,2,21,0)="^^6^6^3020305^"
^DD(100.5,2,21,1,0)="This is the event that should cause delayed orders to be released to the"
^DD(100.5,2,21,2,0)="service(s) for action; for OR events, the orders will be released when "
^DD(100.5,2,21,3,0)="the TIME PAT OUT OF OR field is entered in the Surgery package.  Orders"
^DD(100.5,2,21,4,0)="delayed for Manual Release will not be automatically released by CPRS at"
^DD(100.5,2,21,5,0)="all and can only be released via the ""Release to Service"" action by a"
^DD(100.5,2,21,6,0)="user holding the ORES or ORELSE key."
^DD(100.5,2,"DT")="3020225"
^DD(100.5,3,0)="DIVISION^RP4'^DIC(4,^0;3^Q"
^DD(100.5,3,3)="Enter the division this event will be used for."
^DD(100.5,3,21,0)="^^2^2^3020305^"
^DD(100.5,3,21,1,0)="This is the division that this event will apply to; for transfers across"
^DD(100.5,3,21,2,0)="divisions, this should be the new division that the patient is going to."
^DD(100.5,3,"DT")="3020213"
^DD(100.5,4,0)="EVENT ORDER DIALOG^*P101.41'^ORD(101.41,^0;4^S DIC(""S"")=""I $P(^(0),U,4)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.5,4,3)="Enter the dialog to be used to create an order for this event."
^DD(100.5,4,12)="Only DIALOG type entries may be selected."
^DD(100.5,4,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""D"""""""
^DD(100.5,4,21,0)="^.001^5^5^3020514^^"
^DD(100.5,4,21,1,0)="This should be the dialog for a generic order requesting this event; if"
^DD(100.5,4,21,2,0)="such an order is not necessary for this event, leave this empty.  Unlike"
^DD(100.5,4,21,3,0)="other delayed orders, the order created by this dialog will become"
^DD(100.5,4,21,4,0)="active right away when signed and be visible on the Active Orders view"
^DD(100.5,4,21,5,0)="as well as with the delayed orders on the Orders tab."
^DD(100.5,4,"DT")="3020514"
^DD(100.5,5,0)="ORDER SET/MENU^*P101.41'^ORD(101.41,^0;5^S DIC(""S"")=""I $P(^(0),U,4)'=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.5,5,3)="Enter the order set/menu to present to the user when delaying orders for this event."
^DD(100.5,5,12)="Select any ORDER DIALOG entry EXCEPT prompt types."
^DD(100.5,5,12.1)="S DIC(""S"")=""I $P(^(0),U,4)'=""""P"""""""
^DD(100.5,5,21,0)="^^6^6^3020514^"
^DD(100.5,5,21,1,0)="This is a menu or order set containing items that are either necessary"
^DD(100.5,5,21,2,0)="or commonly ordered when this event occurs.  It will be invoked right"
^DD(100.5,5,21,3,0)="away when first placing delayed orders for this event; if an EVENT ORDER"
^DD(100.5,5,21,4,0)="DIALOG was defined for this event, this order set will be presented to the"
^DD(100.5,5,21,5,0)="user immediately following that dialog.  You may enter any type of order"
^DD(100.5,5,21,6,0)="dialog except prompt types."
^DD(100.5,5,"DT")="3020514"
^DD(100.5,6,0)="LAPSE IN #DAYS^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.5,6,1,0)="^.1^^0"
^DD(100.5,6,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(100.5,6,21,0)="^^7^7^3020305^"
^DD(100.5,6,21,1,0)="This is the number of days to allow orders for this event to remain"
^DD(100.5,6,21,2,0)="delayed for a patient.  Patient Events are evaluated whenever delayed"
^DD(100.5,6,21,3,0)="orders are acted upon or viewed, and if this number of days has passed"
^DD(100.5,6,21,4,0)="since delayed orders were entered for this event for the patient then"
^DD(100.5,6,21,5,0)="the status of all orders delayed for this event will be changed to"
^DD(100.5,6,21,6,0)="""lapsed"" and the Patient Event itself will be terminated.  The orders"
^DD(100.5,6,21,7,0)="can no longer be released to the service then."
^DD(100.5,6,"DT")="3011005"
^DD(100.5,7,0)="MAS MOVEMENT TYPE^*P405.2'^DG(405.2,^0;7^D SCR^OREV1 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.5,7,3)="For ADT events, enter an MAS Movement Type to further define the event if necessary."
^DD(100.5,7,12)="You may only select MAS MOVEMENT TYPES that are associated with the TYPE field selected above."
^DD(100.5,7,12.1)="D SCR^OREV1"
^DD(100.5,7,21,0)="^^7^7^3020305^"
^DD(100.5,7,21,1,0)="This is an MAS Movement Type that can further define this event; it is"
^DD(100.5,7,21,2,0)="optional, but if defined then it must match the patient's movement data"
^DD(100.5,7,21,3,0)="to satisfy the event and cause any delayed orders to be released.  For"
^DD(100.5,7,21,4,0)="example, to have delayed orders released when a patient returns from"
^DD(100.5,7,21,5,0)="pass enter the movement type of AUTH ABSENCE 96 HOURS OR LESS, or leave"
^DD(100.5,7,21,6,0)="this field empty to have the transfer event defined by other criteria"
^DD(100.5,7,21,7,0)="such as treating specialty or ward location."
^DD(100.5,7,"DT")="3020110"
^DD(100.5,8,0)="DISPLAY TEXT^RF^^0;8^K:$L(X)>60!($L(X)<3) X"
^DD(100.5,8,3)="Answer must be 3-60 characters in length."
^DD(100.5,8,21,0)="^^2^2^3020305^"
^DD(100.5,8,21,1,0)="This field is the name of the event as it will appear to the user in"
^DD(100.5,8,21,2,0)="CPRS."
^DD(100.5,8,"DT")="3020910"
^DD(100.5,9,0)="ORDERING PARAMETERS LOCATION^P44'^SC(^0;9^Q"
^DD(100.5,9,3)="The location specified in this field is the location the release event will use to retrieve its ordering parameters."
^DD(100.5,9,21,0)="^.001^4^4^3020524^^"
^DD(100.5,9,21,1,0)="Many order dialogs use parameters that depend on location; this field"
^DD(100.5,9,21,2,0)="will be used as the default location for retrieving those parameter"
^DD(100.5,9,21,3,0)="values when delaying orders to this event.  The patient's actual"
^DD(100.5,9,21,4,0)="location will be saved with the order at the time of its release."
^DD(100.5,9,"DT")="3020305"
^DD(100.5,10,0)="INCLUDED TREATING SPECIALTIES^100.51P^^TS;0"
^DD(100.5,10,21,0)="^.001^3^3^3030108^^^"
^DD(100.5,10,21,1,0)="These are treating specialties that can satisfy this event; if the"
^DD(100.5,10,21,2,0)="patient's new specialty matches one in this list then orders delayed"
^DD(100.5,10,21,3,0)="for this event may be released."
^DD(100.5,11,0)="INCLUDED LOCATIONS^100.511P^^LOC;0"
^DD(100.5,11,21,0)="^.001^3^3^3020708^^^^"
^DD(100.5,11,21,1,0)="These are ward locations that can satisfy this event; if the patient's new"
^DD(100.5,11,21,2,0)="location matches one in this list then orders delayed for this event may"
^DD(100.5,11,21,3,0)="be released."
^DD(100.5,12,0)="EDIT HISTORY^100.512DA^^9;0"
^DD(100.5,13,0)="COPY ACTIVE ORDERS^S^1:YES;0:NO;^0;11^Q"
^DD(100.5,13,3)="Enter YES if the user should be prompted to copy active orders when writing new delayed orders for this event."
^DD(100.5,13,21,0)="^^14^14^3020529^"
^DD(100.5,13,21,1,0)="This field determines whether or not the user will be presented "
^DD(100.5,13,21,2,0)="with the patient's active orders, which may then be copied to the "
^DD(100.5,13,21,3,0)="delayed event being created."
^DD(100.5,13,21,4,0)=" "
^DD(100.5,13,21,5,0)="If this field is set to no then the user will not see the "
^DD(100.5,13,21,6,0)="patient's active orders and will not be allowed to copy any "
^DD(100.5,13,21,7,0)="current orders."
^DD(100.5,13,21,8,0)=" "
^DD(100.5,13,21,9,0)="If this field is set to yes then the user will be shown the "
^DD(100.5,13,21,10,0)="patient's active orders and the user may select orders to be "
^DD(100.5,13,21,11,0)="copied to the delayed event.  The list of active orders will be "
^DD(100.5,13,21,12,0)="presented to the user after the ORDER DIALOG for the release "
^DD(100.5,13,21,13,0)="event is processed (if it exists) and before the ORDER SET/MENU "
^DD(100.5,13,21,14,0)="for the release event is processed (if it exists)."
^DD(100.5,13,"DT")="3020513"
^DD(100.5,14,0)="PARENT^P100.5'^ORD(100.5,^0;12^Q"
^DD(100.5,14,1,0)="^.1"
^DD(100.5,14,1,1,0)="100.5^DAD"
^DD(100.5,14,1,1,1)="S ^ORD(100.5,""DAD"",$E(X,1,30),DA)="""""
^DD(100.5,14,1,1,2)="K ^ORD(100.5,""DAD"",$E(X,1,30),DA)"
^DD(100.5,14,1,1,"DT")="3020828"
^DD(100.5,14,3)="Enter release event that will be the ""parent"" event for this event"
^DD(100.5,14,21,0)="^^8^8^3020826^"
^DD(100.5,14,21,1,0)="For release events that have a common trigger event (e.g. same"
^DD(100.5,14,21,2,0)="treating specialty or same locations) but require different names"
^DD(100.5,14,21,3,0)="or display text a parent-child relationship can be set up.  The parent"
^DD(100.5,14,21,4,0)="contains the base trigger event logic while the child contains the"
^DD(100.5,14,21,5,0)="information unique to this event.  In a sense, the child events are"
^DD(100.5,14,21,6,0)="""synonyms"" to the parent event as all childen are related to the parent."
^DD(100.5,14,21,7,0)="When the trigger event occurs that would release orders for the parent"
^DD(100.5,14,21,8,0)="all the child orders related to that parent are also released."
^DD(100.5,14,"DT")="3020828"
^DD(100.5,"B","ACTIVATION HISTORY",1.5)=""
^DD(100.5,"B","COPY ACTIVE ORDERS",13)=""
^DD(100.5,"B","DISPLAY TEXT",8)=""
^DD(100.5,"B","DIVISION",3)=""
^DD(100.5,"B","EDIT HISTORY",12)=""
^DD(100.5,"B","EVENT ORDER DIALOG",4)=""
^DD(100.5,"B","INACTIVATED",1)=""
^DD(100.5,"B","INCLUDED LOCATIONS",11)=""
^DD(100.5,"B","INCLUDED TREATING SPECIALTIES",10)=""
^DD(100.5,"B","LAPSE IN #DAYS",6)=""
^DD(100.5,"B","MAS MOVEMENT TYPE",7)=""
^DD(100.5,"B","NAME",.01)=""
^DD(100.5,"B","ORDER SET/MENU",5)=""
^DD(100.5,"B","ORDERING PARAMETERS LOCATION",9)=""
^DD(100.5,"B","PARENT",14)=""
^DD(100.5,"B","SHORT NAME",.1)=""
^DD(100.5,"B","TYPE OF EVENT",2)=""
^DD(100.5,"GL",0,1,.01)=""
^DD(100.5,"GL",0,2,2)=""
^DD(100.5,"GL",0,3,3)=""
^DD(100.5,"GL",0,4,4)=""
^DD(100.5,"GL",0,5,5)=""
^DD(100.5,"GL",0,6,6)=""
^DD(100.5,"GL",0,7,7)=""
^DD(100.5,"GL",0,8,8)=""
^DD(100.5,"GL",0,9,9)=""
^DD(100.5,"GL",0,10,.1)=""
^DD(100.5,"GL",0,11,13)=""
^DD(100.5,"GL",0,12,14)=""
^DD(100.5,"GL",1,1,1)=""
^DD(100.5,"GL",2,0,1.5)=""
^DD(100.5,"GL",9,0,12)=""
^DD(100.5,"GL","LOC",0,11)=""
^DD(100.5,"GL","TS",0,10)=""
^DD(100.5,"IX",.01)=""
^DD(100.5,"IX",2)=""
^DD(100.5,"IX",14)=""
^DD(100.5,"RQ",.01)=""
^DD(100.5,"RQ",2)=""
^DD(100.5,"RQ",3)=""
^DD(100.5,"RQ",8)=""
^DD(100.5,"SB",100.51,10)=""
^DD(100.5,"SB",100.511,11)=""
^DD(100.5,"SB",100.512,12)=""
^DD(100.5,"SB",100.52,1.5)=""
^DD(100.51,0)="INCLUDED TREATING SPECIALTIES SUB-FIELD^^1^2"
^DD(100.51,0,"DT")="3030114"
^DD(100.51,0,"IX","B",100.51,.01)=""
^DD(100.51,0,"IX","DEF",100.51,1)=""
^DD(100.51,0,"NM","INCLUDED TREATING SPECIALTIES")=""
^DD(100.51,0,"UP")="100.5"
^DD(100.51,.01,0)="INCLUDED TREATING SPECIALTIES^M*P45.7'^DIC(45.7,^0;1^S DIC(""S"")=""I $G(^ORD(100.5,$G(DA(1),DA),1))!('$G(^ORD(100.5,$G(DA(1),DA),1))&'$$INUSE^OREV1(""""TS""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.51,.01,1,0)="^.1"
^DD(100.51,.01,1,1,0)="100.51^B"
^DD(100.51,.01,1,1,1)="S ^ORD(100.5,DA(1),""TS"",""B"",$E(X,1,30),DA)="""""
^DD(100.51,.01,1,1,2)="K ^ORD(100.5,DA(1),""TS"",""B"",$E(X,1,30),DA)"
^DD(100.51,.01,3)="Enter a treating specialty that will satisfy this event, when the patient is transferred to it.  If locations are also defined then both must be true for orders to be released."
^DD(100.51,.01,12)="If entry is active only treating specialties that are not in use may be selected."
^DD(100.51,.01,12.1)="S DIC(""S"")=""I $G(^ORD(100.5,$G(DA(1),DA),1))!('$G(^ORD(100.5,$G(DA(1),DA),1))&'$$INUSE^OREV1(""""TS""""))"""
^DD(100.51,.01,21,0)="^^7^7^3020708^"
^DD(100.51,.01,21,1,0)="This is a treating specialty that can satisfy this event; if defined,"
^DD(100.51,.01,21,2,0)="then the patient's new specialty must match one in this list for any"
^DD(100.51,.01,21,3,0)="delayed orders to be released.  A specialty may only be included in one"
^DD(100.51,.01,21,4,0)="active delay event at a time."
^DD(100.51,.01,21,5,0)=" "
^DD(100.51,.01,21,6,0)="If locations are also defined for this event then both the treating"
^DD(100.51,.01,21,7,0)="specialty and the location must match for orders to be released."
^DD(100.51,.01,"DT")="3030114"
^DD(100.51,1,0)="DEFAULT^*S^1:YES;^0;2^Q"
^DD(100.51,1,1,0)="^.1"
^DD(100.51,1,1,1,0)="100.51^DEF"
^DD(100.51,1,1,1,1)="S ^ORD(100.5,DA(1),""TS"",""DEF"",$E(X,1,30),DA)="""""
^DD(100.51,1,1,1,2)="K ^ORD(100.5,DA(1),""TS"",""DEF"",$E(X,1,30),DA)"
^DD(100.51,1,1,1,"%D",0)="^^1^1^3020911^"
^DD(100.51,1,1,1,"%D",1,0)="This field identifies which treating specialty should be the ""default"""
^DD(100.51,1,1,1,"DT")="3020911"
^DD(100.51,1,3)="If you set a default treating specialty then this value will be stuffed in at the treating specialty prompt when using the OR GXMOVE EVENT dialog."
^DD(100.51,1,4)="D DEFHELP^OREV3"
^DD(100.51,1,12)="Only one default treating specialty may be defined for each release event."
^DD(100.51,1,12.1)="S DIC(""S"")=""I '$D(^ORD(100.5,DA(1),""""TS"""",""""DEF""""))"""
^DD(100.51,1,"DT")="3020911"
^DD(100.51,"B","DEFAULT",1)=""
^DD(100.51,"B","INCLUDED TREATING SPECIALTIES",.01)=""
^DD(100.51,"GL",0,1,.01)=""
^DD(100.51,"GL",0,2,1)=""
^DD(100.51,"IX",.01)=""
^DD(100.51,"IX",1)=""
^DD(100.511,0)="INCLUDED LOCATIONS SUB-FIELD^^.01^1"
^DD(100.511,0,"DT")="3030114"
^DD(100.511,0,"IX","B",100.511,.01)=""
^DD(100.511,0,"NM","INCLUDED LOCATIONS")=""
^DD(100.511,0,"UP")="100.5"
^DD(100.511,.01,0)="INCLUDED LOCATIONS^M*P42'^DIC(42,^0;1^S DIC(""S"")=""I $G(^ORD(100.5,$G(DA(1),DA),1))!('$G(^ORD(100.5,$G(DA(1),DA),1))&'$$INUSE^OREV1(""""LOC""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.511,.01,1,0)="^.1"
^DD(100.511,.01,1,1,0)="100.511^B"
^DD(100.511,.01,1,1,1)="S ^ORD(100.5,DA(1),""LOC"",""B"",$E(X,1,30),DA)="""""
^DD(100.511,.01,1,1,2)="K ^ORD(100.5,DA(1),""LOC"",""B"",$E(X,1,30),DA)"
^DD(100.511,.01,3)="Enter a location that will satisfy this event, when the patient is transferred to it.  If treating specialties are also defined then both must be true for orders to release."
^DD(100.511,.01,12)="If this entry is active you may only pick locations that aren't currently in use."
^DD(100.511,.01,12.1)="S DIC(""S"")=""I $G(^ORD(100.5,$G(DA(1),DA),1))!('$G(^ORD(100.5,$G(DA(1),DA),1))&'$$INUSE^OREV1(""""LOC""""))"""
^DD(100.511,.01,21,0)="^.001^8^8^3030114^^"
^DD(100.511,.01,21,1,0)="This is a ward location that can satisfy this event; if defined, then"
^DD(100.511,.01,21,2,0)="the patient's new location must match one in this list for any delayed"
^DD(100.511,.01,21,3,0)="orders to be released.  A location may only be included in one active"
^DD(100.511,.01,21,4,0)="delay event at a time."
^DD(100.511,.01,21,5,0)=" "
^DD(100.511,.01,21,6,0)="If this event also has treating specialties defined then both the"
^DD(100.511,.01,21,7,0)="location and the treating specialty must match for orders to be"
^DD(100.511,.01,21,8,0)="released."
^DD(100.511,.01,"DT")="3030114"
^DD(100.511,"B","INCLUDED LOCATIONS",.01)=""
^DD(100.511,"GL",0,1,.01)=""
^DD(100.511,"IX",.01)=""
^DD(100.512,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(100.512,0,"DT")="3020423"
^DD(100.512,0,"IX","B",100.512,.01)=""
^DD(100.512,0,"NM","EDIT HISTORY")=""
^DD(100.512,0,"UP")="100.5"
^DD(100.512,.01,0)="EDIT HISTORY^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.512,.01,1,0)="^.1"
^DD(100.512,.01,1,1,0)="100.512^B"
^DD(100.512,.01,1,1,1)="S ^ORD(100.5,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(100.512,.01,1,1,2)="K ^ORD(100.5,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(100.512,.01,21,0)="^^2^2^3020423^"
^DD(100.512,.01,21,1,0)="This field will track when an event was added.  It also tracks when"
^DD(100.512,.01,21,2,0)="the edit option was used on this event."
^DD(100.512,.01,"DT")="3020423"
^DD(100.512,1,0)="WHO ENTERED/EDITED^P200'^VA(200,^0;2^Q"
^DD(100.512,1,21,0)="^^1^1^3020423^"
^DD(100.512,1,21,1,0)="This field identifies the person who entered or edited the event"
^DD(100.512,1,"DT")="3020423"
^DD(100.512,2,0)="ACTION^S^N:NEW;E:EDIT;^0;3^Q"
^DD(100.512,2,21,0)="^^2^2^3020423^"
^DD(100.512,2,21,1,0)="This field describes whether the event was newly entered or if it"
^DD(100.512,2,21,2,0)="was edited."
^DD(100.512,2,"DT")="3020423"
^DD(100.512,"B","ACTION",2)=""
^DD(100.512,"B","EDIT HISTORY",.01)=""
^DD(100.512,"B","WHO ENTERED/EDITED",1)=""
^DD(100.512,"GL",0,1,.01)=""
^DD(100.512,"GL",0,2,1)=""
^DD(100.512,"GL",0,3,2)=""
^DD(100.512,"IX",.01)=""
^DD(100.52,0)="ACTIVATION HISTORY SUB-FIELD^^1^2"
^DD(100.52,0,"DT")="3020709"
^DD(100.52,0,"IX","ACT",100.52,.01)=""
^DD(100.52,0,"IX","ACT",100.52,1)=""
^DD(100.52,0,"IX","B",100.52,.01)=""
^DD(100.52,0,"NM","ACTIVATION HISTORY")=""
^DD(100.52,0,"UP")="100.5"
^DD(100.52,.01,0)="ACTIVATION DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.52,.01,1,0)="^.1^^-1"
^DD(100.52,.01,1,1,0)="100.52^B"
^DD(100.52,.01,1,1,1)="S ^ORD(100.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(100.52,.01,1,1,2)="K ^ORD(100.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(100.52,.01,1,2,0)="100.52^ACT^MUMPS"
^DD(100.52,.01,1,2,1)="S ^ORD(100.5,DA(1),2,""ACT"",DA)="""""
^DD(100.52,.01,1,2,2)="Q"
^DD(100.52,.01,1,2,"DT")="3020107"
^DD(100.52,.01,"DT")="3020709"
^DD(100.52,1,0)="INACTIVATION DATE/TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.52,1,1,0)="^.1^^0"
^DD(100.52,1,1,1,0)="100.52^ACT^MUMPS"
^DD(100.52,1,1,1,1)="K ^ORD(100.5,DA(1),2,""ACT"")"
^DD(100.52,1,1,1,2)="Q"
^DD(100.52,1,1,1,"DT")="3020107"
^DD(100.52,1,"DT")="3020709"
^DD(100.52,"B","ACTIVATION DATE/TIME",.01)=""
^DD(100.52,"B","INACTIVATION DATE/TIME",1)=""
^DD(100.52,"GL",0,1,.01)=""
^DD(100.52,"GL",0,2,1)=""
^DD(100.52,"IX",.01)=""
^DD(100.52,"IX",1)=""
^DD(100.6,0)="FIELD^^100^16"
^DD(100.6,0,"DDA")="N"
^DD(100.6,0,"DT")="3020709"
^DD(100.6,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(100.6,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(100.6,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(100.6,0,"IX","B",100.6,.01)=""
^DD(100.6,0,"IX","D",100.6,3)=""
^DD(100.6,0,"NM","OE/RR AUTO-DC RULES")=""
^DD(100.6,0,"PT",100.2,13)=""
^DD(100.6,0,"VR")="3.0"
^DD(100.6,0,"VRPK")="OR"
^DD(100.6,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(100.6,.01,1,0)="^.1"
^DD(100.6,.01,1,1,0)="100.6^B"
^DD(100.6,.01,1,1,1)="S ^ORD(100.6,""B"",$E(X,1,30),DA)="""""
^DD(100.6,.01,1,1,2)="K ^ORD(100.6,""B"",$E(X,1,30),DA)"
^DD(100.6,.01,3)="Answer must be 3-50 characters in length."
^DD(100.6,.01,21,0)="^^2^2^3020304^"
^DD(100.6,.01,21,1,0)="This is the name of the rule, used to identify it uniquely in the file;"
^DD(100.6,.01,21,2,0)="it is visible in the Rule Editor only."
^DD(100.6,.01,"DEL",.01,0)="I $$CANDEL^OREV1(100.6)"
^DD(100.6,.01,"DT")="3020426"
^DD(100.6,1,0)="INACTIVATED^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.6,1,1,0)="^.1^^0"
^DD(100.6,1,3)="Enter the date/time this rule was inactivated."
^DD(100.6,1,21,0)="^.001^2^2^3020709^^^"
^DD(100.6,1,21,1,0)="This is the date/time this rule is no longer considered active; after this"
^DD(100.6,1,21,2,0)="date/time, this rule will no longer apply."
^DD(100.6,1,"DT")="3020709"
^DD(100.6,1.5,0)="ACTIVATION HISTORY^100.61DA^^2;0"
^DD(100.6,2,0)="TYPE OF EVENT^RS^A:ADMISSION;T:TRANSFER;D:DISCHARGE;S:SPECIALTY TRANSFER;O:O.R.;^0;2^Q"
^DD(100.6,2,3)="Enter the type of event that should trigger orders to be auto-dc'd."
^DD(100.6,2,21,0)="^.001^3^3^3020304^^^^"
^DD(100.6,2,21,1,0)="This is the event that should cause orders to be automatically "
^DD(100.6,2,21,2,0)="discontinued; for OR events, the orders will be discontinued when the"
^DD(100.6,2,21,3,0)="TIME PAT OUT OF OR field is entered in the Surgery package."
^DD(100.6,2,"DT")="3020206"
^DD(100.6,3,0)="DIVISION^RP4'^DIC(4,^0;3^Q"
^DD(100.6,3,1,0)="^.1^^-1"
^DD(100.6,3,1,2,0)="100.6^D"
^DD(100.6,3,1,2,1)="S ^ORD(100.6,""D"",$E(X,1,30),DA)="""""
^DD(100.6,3,1,2,2)="K ^ORD(100.6,""D"",$E(X,1,30),DA)"
^DD(100.6,3,1,2,"DT")="3020128"
^DD(100.6,3,3)="Enter the division this auto-dc rule applies to."
^DD(100.6,3,21,0)="^.001^3^3^3020304^^^^"
^DD(100.6,3,21,1,0)="This is the division that this auto-dc rule should be applied to; for"
^DD(100.6,3,21,2,0)="a transfer across divisions, this should be the new division that the"
^DD(100.6,3,21,3,0)="patient is going to."
^DD(100.6,3,"DT")="3020523"
^DD(100.6,4,0)="DC REASON^P100.03'^ORD(100.03,^0;4^Q"
^DD(100.6,4,3)="Enter the reason to be saved with the order when dc'd."
^DD(100.6,4,21,0)="^^2^2^3020305^"
^DD(100.6,4,21,1,0)="This is the reason that will be saved with the order indicating why it"
^DD(100.6,4,21,2,0)="was automatically discontinued."
^DD(100.6,4,"DT")="3020126"
^DD(100.6,5,0)="DISPLAY TEXT^RF^^0;5^K:$L(X)>60!($L(X)<3) X"
^DD(100.6,5,3)="Answer must be 3-60 characters in length."
^DD(100.6,5,21,0)="^^2^2^3020305^"
^DD(100.6,5,21,1,0)="This field is the name of the rule as it will appear to the user in"
^DD(100.6,5,21,2,0)="CPRS."
^DD(100.6,5,"DT")="3020301"
^DD(100.6,6,0)="EXCEPT FROM OBSERVATION^S^0:NO;1:IF READMITTING;2:YES;^0;6^Q"
^DD(100.6,6,3)="If discharge from an observation specialty should be an exception to this rule, enter YES or IF READMITTING."
^DD(100.6,6,21,0)="^.001^10^10^3020312^^"
^DD(100.6,6,21,1,0)="This indicates if an observation treating specialty should prevent this"
^DD(100.6,6,21,2,0)="rule from being applied, when the patient is discharged from it.  Enter"
^DD(100.6,6,21,3,0)="YES if an observation specialty should always be considered an exception"
^DD(100.6,6,21,4,0)="to this rule, or NO to never consider it.  IF READMITTED will cause the"
^DD(100.6,6,21,5,0)="clerk to be asked if the patient will be immediately admitted again, and"
^DD(100.6,6,21,6,0)="a response of YES will prevent this rule from being applied; because it"
^DD(100.6,6,21,7,0)="requires user interaction, this value should only be used with the non-"
^DD(100.6,6,21,8,0)="tasked OR GUA EVENT PROCESSOR NOTASK protocol on DGPM MOVEMENT EVENTS,"
^DD(100.6,6,21,9,0)="otherwise a value of NO will be assumed and this rule will be applied"
^DD(100.6,6,21,10,0)="without exception."
^DD(100.6,6,"DT")="3020312"
^DD(100.6,30,0)="MAS MOVEMENT TYPES^100.63P^^3;0"
^DD(100.6,30,21,0)="^.001^2^2^3020305^^^^"
^DD(100.6,30,21,1,0)="These are the MAS Movement Types that define this event; when an MAS event"
^DD(100.6,30,21,2,0)="occurs for one of these types, this rule will be processed if active."
^DD(100.6,30,"DT")="3020206"
^DD(100.6,40,0)="EXCLUDED TREATING SPECIALTIES^100.64P^^4;0"
^DD(100.6,40,21,0)="^.001^3^3^3020305^^^"
^DD(100.6,40,21,1,0)="These are treating specialties that will cause this rule to not be"
^DD(100.6,40,21,2,0)="processed, if the EXCEPT FROM and TO specialties match the patient's"
^DD(100.6,40,21,3,0)="transfer."
^DD(100.6,50,0)="INCLUDED LOCATIONS^100.62^^5;0"
^DD(100.6,60,0)="INCLUDED DIVISIONS^100.66P^^6;0"
^DD(100.6,60,21,0)="^.001^2^2^3020305^^"
^DD(100.6,60,21,1,0)="These are the divisions that will cause this rule to be processed, if the"
^DD(100.6,60,21,2,0)="FROM division matches the patient's transfer."
^DD(100.6,70,0)="INCLUDED PACKAGES^100.67P^^7;0"
^DD(100.6,70,21,0)="^.001^2^2^3020305^^^^"
^DD(100.6,70,21,1,0)="These are the packages whose orders are to be automatically discontinued"
^DD(100.6,70,21,2,0)="when this rule is processed."
^DD(100.6,80,0)="EXCLUDED ORDERABLE ITEMS^100.68P^^8;0"
^DD(100.6,80,21,0)="^.001^3^3^3020305^^"
^DD(100.6,80,21,1,0)="These are the orderable items that are NOT to be automatically"
^DD(100.6,80,21,2,0)="discontinued when this rule is processed, even if an order for it belongs"
^DD(100.6,80,21,3,0)="to a package in the INCLUDED PACKAGES multiple."
^DD(100.6,81,0)="EDIT HISTORY^100.681DA^^9;0"
^DD(100.6,100,0)="EXCLUDED DISPLAY GROUP^100.65P^^10;0"
^DD(100.6,"B","ACTIVATION HISTORY",1.5)=""
^DD(100.6,"B","DC REASON",4)=""
^DD(100.6,"B","DISPLAY TEXT",5)=""
^DD(100.6,"B","DIVISION",3)=""
^DD(100.6,"B","EDIT HISTORY",81)=""
^DD(100.6,"B","EXCEPT FROM OBSERVATION",6)=""
^DD(100.6,"B","EXCLUDED DISPLAY GROUP",100)=""
^DD(100.6,"B","EXCLUDED ORDERABLE ITEMS",80)=""
^DD(100.6,"B","EXCLUDED TREATING SPECIALTIES",40)=""
^DD(100.6,"B","INACTIVATED",1)=""
^DD(100.6,"B","INCLUDED DIVISIONS",60)=""
^DD(100.6,"B","INCLUDED LOCATIONS",50)=""
^DD(100.6,"B","INCLUDED PACKAGES",70)=""
^DD(100.6,"B","MAS MOVEMENT TYPES",30)=""
^DD(100.6,"B","NAME",.01)=""
^DD(100.6,"B","TYPE OF EVENT",2)=""
^DD(100.6,"GL",0,1,.01)=""
^DD(100.6,"GL",0,2,2)=""
^DD(100.6,"GL",0,3,3)=""
^DD(100.6,"GL",0,4,4)=""
^DD(100.6,"GL",0,5,5)=""
^DD(100.6,"GL",0,6,6)=""
^DD(100.6,"GL",1,1,1)=""
^DD(100.6,"GL",2,0,1.5)=""
^DD(100.6,"GL",3,0,30)=""
^DD(100.6,"GL",4,0,40)=""
^DD(100.6,"GL",5,0,50)=""
^DD(100.6,"GL",6,0,60)=""
^DD(100.6,"GL",7,0,70)=""
^DD(100.6,"GL",8,0,80)=""
^DD(100.6,"GL",9,0,81)=""
^DD(100.6,"GL",10,0,100)=""
^DD(100.6,"IX",.01)=""
^DD(100.6,"IX",3)=""
^DD(100.6,"RQ",.01)=""
^DD(100.6,"RQ",2)=""
^DD(100.6,"RQ",3)=""
^DD(100.6,"RQ",5)=""
^DD(100.6,"SB",100.61,1.5)=""
^DD(100.6,"SB",100.62,50)=""
^DD(100.6,"SB",100.63,30)=""
^DD(100.6,"SB",100.64,40)=""
^DD(100.6,"SB",100.65,100)=""
^DD(100.6,"SB",100.66,60)=""
^DD(100.6,"SB",100.67,70)=""
^DD(100.6,"SB",100.68,80)=""
^DD(100.6,"SB",100.681,81)=""
^DD(100.61,0)="ACTIVATION HISTORY SUB-FIELD^^1^2"
^DD(100.61,0,"DT")="3020709"
^DD(100.61,0,"IX","ACT",100.61,.01)=""
^DD(100.61,0,"IX","ACT",100.61,1)=""
^DD(100.61,0,"IX","B",100.61,.01)=""
^DD(100.61,0,"NM","ACTIVATION HISTORY")=""
^DD(100.61,0,"UP")="100.6"
^DD(100.61,.01,0)="ACTIVATION DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.61,.01,1,0)="^.1^^-1"
^DD(100.61,.01,1,1,0)="100.61^B"
^DD(100.61,.01,1,1,1)="S ^ORD(100.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(100.61,.01,1,1,2)="K ^ORD(100.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(100.61,.01,1,2,0)="100.61^ACT^MUMPS"
^DD(100.61,.01,1,2,1)="S ^ORD(100.6,DA(1),2,""ACT"",DA)="""""
^DD(100.61,.01,1,2,2)="Q"
^DD(100.61,.01,1,2,"DT")="3020206"
^DD(100.61,.01,"DT")="3020709"
^DD(100.61,1,0)="INACTIVATION DATE/TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.61,1,1,0)="^.1^^0"
^DD(100.61,1,1,1,0)="100.61^ACT^MUMPS"
^DD(100.61,1,1,1,1)="K ^ORD(100.6,DA(1),2,""ACT"")"
^DD(100.61,1,1,1,2)="Q"
^DD(100.61,1,1,1,"DT")="3020206"
^DD(100.61,1,"DT")="3020709"
^DD(100.61,"B","ACTIVATION DATE/TIME",.01)=""
^DD(100.61,"B","INACTIVATION DATE/TIME",1)=""
^DD(100.61,"GL",0,1,.01)=""
^DD(100.61,"GL",0,2,1)=""
^DD(100.61,"IX",.01)=""
^DD(100.61,"IX",1)=""
^DD(100.62,0)="INCLUDED LOCATIONS SUB-FIELD^^4^5"
^DD(100.62,0,"DT")="3020523"
^DD(100.62,0,"IX","B",100.62,.01)=""
^DD(100.62,0,"NM","INCLUDED LOCATIONS")=""
^DD(100.62,0,"UP")="100.6"
^DD(100.62,.01,0)="INCLUDED LOCATIONS ID^MF^^0;1^K:$L(X)>70!($L(X)<1) X"
^DD(100.62,.01,1,0)="^.1"
^DD(100.62,.01,1,1,0)="100.62^B"
^DD(100.62,.01,1,1,1)="S ^ORD(100.6,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(100.62,.01,1,1,2)="K ^ORD(100.6,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(100.62,.01,3)="Answer must be 1-70 characters in length.  FROM - TO entries included in this multiple will cause orders to auto-dc."
^DD(100.62,.01,21,0)="^.001^10^10^3020529^^"
^DD(100.62,.01,21,1,0)="Enter an ID (free text) that will represent an entry in the "
^DD(100.62,.01,21,2,0)="FROM - TO location matrix.  The value of the ID field is"
^DD(100.62,.01,21,3,0)="insignificant as it simply represents a place holder.  You"
^DD(100.62,.01,21,4,0)="can use any naming or numbering convention that you want."
^DD(100.62,.01,21,5,0)=" "
^DD(100.62,.01,21,6,0)="Orders will not auto-dc for location (ward) type transfers "
^DD(100.62,.01,21,7,0)="unless the transfer from and transfer to locations are "
^DD(100.62,.01,21,8,0)="identified within the INCLUDED LOCATIONS from - to entries.  "
^DD(100.62,.01,21,9,0)="If the transfer from and to locations are found in this "
^DD(100.62,.01,21,10,0)="multiple then orders will auto-dc."
^DD(100.62,.01,"DT")="3020523"
^DD(100.62,1,0)="FROM ALL LOCATIONS^S^1:YES;0:NO;^0;2^Q"
^DD(100.62,1,3)="Enter 1 or Yes if want to select ALL locations for the FROM field."
^DD(100.62,1,21,0)="^.001^4^4^3020523^^"
^DD(100.62,1,21,1,0)="This is a hospital location that will cause this rule to be applied; if"
^DD(100.62,1,21,2,0)="no specialty change occurs with the transfer, then the patient must be"
^DD(100.62,1,21,3,0)="moving from this location to one listed in the TO LOCATION multiple for"
^DD(100.62,1,21,4,0)="active orders to be discontinued."
^DD(100.62,1,"DT")="3020523"
^DD(100.62,2,0)="FROM LOCATION^P44'^SC(^0;3^Q"
^DD(100.62,2,3)="Enter location patient is coming FROM."
^DD(100.62,2,21,0)="^.001^7^7^3020522^^"
^DD(100.62,2,21,1,0)="If you did not select YES for the FROM ALL LOCATIONS field then you must "
^DD(100.62,2,21,2,0)="select an individual field for the patient to be coming FROM."
^DD(100.62,2,21,3,0)=" "
^DD(100.62,2,21,4,0)="This is a hospital location that will cause this rule to be applied; if"
^DD(100.62,2,21,5,0)="no specialty change occurs with the transfer, then the patient must be"
^DD(100.62,2,21,6,0)="moving from this location to one listed in the TO LOCATION multiple for"
^DD(100.62,2,21,7,0)="active orders to be discontinued."
^DD(100.62,2,"DT")="3020523"
^DD(100.62,3,0)="TO ALL LOCATIONS^S^1:YES;0:NO;^0;4^Q"
^DD(100.62,3,3)="Enter 1 or Yes if want to select ALL locations for the TO field."
^DD(100.62,3,21,0)="^^4^4^3020522^"
^DD(100.62,3,21,1,0)="This is a hospital location that will cause this rule to be applied; if"
^DD(100.62,3,21,2,0)="no specialty change occurs with the transfer, then the patient must be"
^DD(100.62,3,21,3,0)="moving to this location from the FROM LOCATION for active orders to be"
^DD(100.62,3,21,4,0)="discontinued."
^DD(100.62,3,"DT")="3020523"
^DD(100.62,4,0)="TO LOCATION^P44'^SC(^0;5^Q"
^DD(100.62,4,3)="Enter location patient is moving TO"
^DD(100.62,4,21,0)="^^8^8^3020522^"
^DD(100.62,4,21,1,0)="If you did not set the TO ALL LOCATIONS field to YES then you must "
^DD(100.62,4,21,2,0)="specify the location the patient is moving TO that will match with the "
^DD(100.62,4,21,3,0)="selection made for the FROM location (either all or individual)."
^DD(100.62,4,21,4,0)=" "
^DD(100.62,4,21,5,0)="This is a hospital location that will cause this rule to be applied; if"
^DD(100.62,4,21,6,0)="no specialty change occurs with the transfer, then the patient must be"
^DD(100.62,4,21,7,0)="moving to this location from the FROM LOCATION for active orders to be"
^DD(100.62,4,21,8,0)="discontinued."
^DD(100.62,4,"DT")="3020523"
^DD(100.62,"B","FROM ALL LOCATIONS",1)=""
^DD(100.62,"B","FROM LOCATION",2)=""
^DD(100.62,"B","INCLUDED LOCATIONS ID",.01)=""
^DD(100.62,"B","TO ALL LOCATIONS",3)=""
^DD(100.62,"B","TO LOCATION",4)=""
^DD(100.62,"GL",0,1,.01)=""
^DD(100.62,"GL",0,2,1)=""
^DD(100.62,"GL",0,3,2)=""
^DD(100.62,"GL",0,4,3)=""
^DD(100.62,"GL",0,5,4)=""
^DD(100.62,"IX",.01)=""
^DD(100.63,0)="MAS MOVEMENT TYPES SUB-FIELD^^.01^1"
^DD(100.63,0,"DT")="3020213"
^DD(100.63,0,"IX","B",100.63,.01)=""
^DD(100.63,0,"NM","MAS MOVEMENT TYPES")=""
^DD(100.63,0,"UP")="100.6"
^DD(100.63,.01,0)="MAS MOVEMENT TYPE^M*P405.2'^DG(405.2,^0;1^D SCR^OREV1 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.63,.01,1,0)="^.1^^-1"
^DD(100.63,.01,1,1,0)="100.63^B"
^DD(100.63,.01,1,1,1)="S ^ORD(100.6,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(100.63,.01,1,1,2)="K ^ORD(100.6,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(100.63,.01,3)="Enter a movement type to further define this rule."
^DD(100.63,.01,12)="Select an MAS MOVEMENT TYPE that can be used with the TYPE OF EVENT that you selected."
^DD(100.63,.01,12.1)="D SCR^OREV1"
^DD(100.63,.01,21,0)="^^6^6^3020305^"
^DD(100.63,.01,21,1,0)="Movement Type(s) more completely define the trigger event for this rule,"
^DD(100.63,.01,21,2,0)="to allow for different rules on various types of MAS events.  For"
^DD(100.63,.01,21,3,0)="example, to define a rule for cancelling orders when a patient dies"
^DD(100.63,.01,21,4,0)="enter the movement types DEATH and DEATH WITH AUTOPSY; a movement type"
^DD(100.63,.01,21,5,0)="may only be used in one active rule, so omit these types when creating"
^DD(100.63,.01,21,6,0)="other Discharge rules."
^DD(100.63,.01,"DT")="3020523"
^DD(100.63,"B","MAS MOVEMENT TYPE",.01)=""
^DD(100.63,"GL",0,1,.01)=""
^DD(100.63,"IX",.01)=""
^DD(100.64,0)="EXCLUDED TREATING SPECIALTIES SUB-FIELD^^1^2"
^DD(100.64,0,"DT")="3020126"
^DD(100.64,0,"IX","B",100.64,.01)=""
^DD(100.64,0,"NM","EXCLUDED TREATING SPECIALTIES")=""
^DD(100.64,0,"UP")="100.6"
^DD(100.64,.01,0)="EXCEPT FROM SPECIALTY^MP45.7'X^DIC(45.7,^0;1^S:$G(X) DINUM=X"
^DD(100.64,.01,1,0)="^.1"
^DD(100.64,.01,1,1,0)="100.64^B"
^DD(100.64,.01,1,1,1)="S ^ORD(100.6,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(100.64,.01,1,1,2)="K ^ORD(100.6,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(100.64,.01,3)="Enter a specialty that is an exception to this rule, when the patient is transferred from it."
^DD(100.64,.01,21,0)="^^4^4^3020305^"
^DD(100.64,.01,21,1,0)="This is a treating specialty that will prevent this rule from being"
^DD(100.64,.01,21,2,0)="applied; specialty transfer rules will discontinue active orders unless"
^DD(100.64,.01,21,3,0)="the patient is being transferred from this specialty to one listed in "
^DD(100.64,.01,21,4,0)="the TO SPECIALTY multiple."
^DD(100.64,.01,"DT")="3020128"
^DD(100.64,1,0)="TO SPECIALTY^100.641P^^1;0"
^DD(100.64,1,21,0)="^.001^3^3^3020305^^^"
^DD(100.64,1,21,1,0)="These are treating specialties that will cause this rule to not be"
^DD(100.64,1,21,2,0)="processed, if the EXCEPT FROM and TO specialties match the patient's"
^DD(100.64,1,21,3,0)="transfer."
^DD(100.64,"B","EXCEPT FROM SPECIALTY",.01)=""
^DD(100.64,"B","TO SPECIALTY",1)=""
^DD(100.64,"GL",0,1,.01)=""
^DD(100.64,"GL",1,0,1)=""
^DD(100.64,"IX",.01)=""
^DD(100.64,"SB",100.641,1)=""
^DD(100.641,0)="TO SPECIALTY SUB-FIELD^^.01^1"
^DD(100.641,0,"DT")="3020126"
^DD(100.641,0,"IX","B",100.641,.01)=""
^DD(100.641,0,"NM","TO SPECIALTY")=""
^DD(100.641,0,"UP")="100.64"
^DD(100.641,.01,0)="TO SPECIALTY^MP45.7'X^DIC(45.7,^0;1^S:$G(X) DINUM=X"
^DD(100.641,.01,1,0)="^.1"
^DD(100.641,.01,1,1,0)="100.641^B"
^DD(100.641,.01,1,1,1)="S ^ORD(100.6,DA(2),4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(100.641,.01,1,1,2)="K ^ORD(100.6,DA(2),4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(100.641,.01,3)="Enter a specialty that is an exception to this rule, when the patient is transferred to it."
^DD(100.641,.01,21,0)="^.001^4^4^3020305^^"
^DD(100.641,.01,21,1,0)="This is a treating specialty that will prevent this rule from being"
^DD(100.641,.01,21,2,0)="applied; specialty transfer rules will discontinue active orders unless"
^DD(100.641,.01,21,3,0)="the patient is being transferred to this specialty from the EXCEPT FROM"
^DD(100.641,.01,21,4,0)="SPECIALTY."
^DD(100.641,.01,"DT")="3020128"
^DD(100.641,"B","TO SPECIALTY",.01)=""
^DD(100.641,"GL",0,1,.01)=""
^DD(100.641,"IX",.01)=""
^DD(100.65,0)="EXCLUDED DISPLAY GROUP SUB-FIELD^^.01^1"
^DD(100.65,0,"DT")="3020703"
^DD(100.65,0,"IX","B",100.65,.01)=""
^DD(100.65,0,"NM","EXCLUDED DISPLAY GROUP")=""
^DD(100.65,0,"UP")="100.6"
^DD(100.65,.01,0)="EXCEPT ORDERS IN DISPLAY GROUP^MP100.98'^ORD(100.98,^0;1^Q"
^DD(100.65,.01,1,0)="^.1"
^DD(100.65,.01,1,1,0)="100.65^B"
^DD(100.65,.01,1,1,1)="S ^ORD(100.6,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(100.65,.01,1,1,2)="K ^ORD(100.6,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(100.65,.01,3)="Orders related to this display group will not be auto-discontinued"
^DD(100.65,.01,21,0)="^^9^9^3020703^"
^DD(100.65,.01,21,1,0)=" "
^DD(100.65,.01,21,2,0)="Any order related to the display group entered in the excluded "
^DD(100.65,.01,21,3,0)="display group multiple will be exempt from any"
^DD(100.65,.01,21,4,0)="auto-discontinuing normally triggered by this rule."
^DD(100.65,.01,21,5,0)=" "
^DD(100.65,.01,21,6,0)="You can use the excluded display group to protect a group of "
^DD(100.65,.01,21,7,0)="orders from being auto-discontinued.  If an order belonging to"
^DD(100.65,.01,21,8,0)="this display group is found while processing this rule it will"
^DD(100.65,.01,21,9,0)="be skipped and not be auto-discontinued."
^DD(100.65,.01,"DT")="3020703"
^DD(100.65,"B","EXCEPT ORDERS IN DISPLAY GROUP",.01)=""
^DD(100.65,"GL",0,1,.01)=""
^DD(100.65,"IX",.01)=""
^DD(100.66,0)="INCLUDED DIVISIONS SUB-FIELD^^.01^1"
^DD(100.66,0,"DT")="3020126"
^DD(100.66,0,"IX","B",100.66,.01)=""
^DD(100.66,0,"NM","INCLUDED DIVISIONS")=""
^DD(100.66,0,"UP")="100.6"
^DD(100.66,.01,0)="FROM DIVISION^MP4'X^DIC(4,^0;1^S:$G(X) DINUM=X"
^DD(100.66,.01,1,0)="^.1"
^DD(100.66,.01,1,1,0)="100.66^B"
^DD(100.66,.01,1,1,1)="S ^ORD(100.6,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(100.66,.01,1,1,2)="K ^ORD(100.6,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(100.66,.01,3)="Enter a division that will satisfy this rule, when the patient is transferred from it."
^DD(100.66,.01,21,0)="^^3^3^3020305^"
^DD(100.66,.01,21,1,0)="This is a division that will cause this rule to be applied; if no"
^DD(100.66,.01,21,2,0)="specialty change occurs with the transfer, then the patient must be "
^DD(100.66,.01,21,3,0)="moving from this division for active orders to be discontinued."
^DD(100.66,.01,"DT")="3020128"
^DD(100.66,"B","FROM DIVISION",.01)=""
^DD(100.66,"GL",0,1,.01)=""
^DD(100.66,"IX",.01)=""
^DD(100.67,0)="INCLUDED PACKAGES SUB-FIELD^^.01^1"
^DD(100.67,0,"DT")="3020329"
^DD(100.67,0,"IX","B",100.67,.01)=""
^DD(100.67,0,"NM","INCLUDED PACKAGES")=""
^DD(100.67,0,"UP")="100.6"
^DD(100.67,.01,0)="TYPE OF ORDERS TO DC^M*P9.4'^DIC(9.4,^0;1^S DIC(""S"")=""I """"^GMRC^FH^LR^PSJ^PSO^PSIV^RA^OR^""""[(""""^""""_$P(^(0),U,2)_""""^"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.67,.01,1,0)="^.1"
^DD(100.67,.01,1,1,0)="100.67^B"
^DD(100.67,.01,1,1,1)="S ^ORD(100.6,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(100.67,.01,1,1,2)="K ^ORD(100.6,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(100.67,.01,3)="Enter a package whose orders should be dc'd by this rule."
^DD(100.67,.01,12)="Choose a package whose orders can be entered within CPRS"
^DD(100.67,.01,12.1)="S DIC(""S"")=""I """"^GMRC^FH^LR^PSJ^PSO^PSIV^RA^OR^""""[(""""^""""_$P(^(0),U,2)_""""^"""")"""
^DD(100.67,.01,21,0)="^^2^2^3020305^"
^DD(100.67,.01,21,1,0)="This is a package whose active orders are to be automatically "
^DD(100.67,.01,21,2,0)="discontinued when the conditions of this rule are satisfied."
^DD(100.67,.01,"DT")="3020329"
^DD(100.67,"B","TYPE OF ORDERS TO DC",.01)=""
^DD(100.67,"GL",0,1,.01)=""
^DD(100.67,"IX",.01)=""
^DD(100.68,0)="EXCLUDED ORDERABLE ITEMS SUB-FIELD^^.01^1"
^DD(100.68,0,"DT")="3020703"
^DD(100.68,0,"IX","B",100.68,.01)=""
^DD(100.68,0,"NM","EXCLUDED ORDERABLE ITEMS")=""
^DD(100.68,0,"UP")="100.6"
^DD(100.68,.01,0)="EXCEPT FOR ORDERABLE ITEM^M*P101.43'^ORD(101.43,^0;1^S DIC(""S"")=""I '$G(^ORD(101.43,Y,.1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(100.68,.01,1,0)="^.1"
^DD(100.68,.01,1,1,0)="100.68^B"
^DD(100.68,.01,1,1,1)="S ^ORD(100.6,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(100.68,.01,1,1,2)="K ^ORD(100.6,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(100.68,.01,3)="Enter an orderable item that should not be dc'd by this rule."
^DD(100.68,.01,12)="Only ""active"" orderable items can be selected"
^DD(100.68,.01,12.1)="S DIC(""S"")=""I '$G(^ORD(101.43,Y,.1))"""
^DD(100.68,.01,21,0)="^.001^4^4^3020703^^^"
^DD(100.68,.01,21,1,0)="This is an orderable item that will be exempt from any automatic"
^DD(100.68,.01,21,2,0)="discontinuing of orders normally triggered by this rule; if an active"
^DD(100.68,.01,21,3,0)="order for this item is encountered while processing this rule, it will"
^DD(100.68,.01,21,4,0)="be skipped and not discontinued."
^DD(100.68,.01,"DT")="3020703"
^DD(100.68,"B","EXCEPT FOR ORDERABLE ITEM",.01)=""
^DD(100.68,"GL",0,1,.01)=""
^DD(100.68,"IX",.01)=""
^DD(100.681,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(100.681,0,"DT")="3020423"
^DD(100.681,0,"IX","B",100.681,.01)=""
^DD(100.681,0,"NM","EDIT HISTORY")=""
^DD(100.681,0,"UP")="100.6"
^DD(100.681,.01,0)="EDIT HISTORY^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.681,.01,1,0)="^.1"
^DD(100.681,.01,1,1,0)="100.681^B"
^DD(100.681,.01,1,1,1)="S ^ORD(100.6,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(100.681,.01,1,1,2)="K ^ORD(100.6,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(100.681,.01,21,0)="^^1^1^3020423^"
^DD(100.681,.01,21,1,0)="Tracks the entering and editing of rules."
^DD(100.681,.01,"DT")="3020423"
^DD(100.681,1,0)="WHO ENTERED/EDITED^P200'^VA(200,^0;2^Q"
^DD(100.681,1,21,0)="^^1^1^3020423^"
^DD(100.681,1,21,1,0)="Name of person who added or edited this rule"
^DD(100.681,1,"DT")="3020423"
^DD(100.681,2,0)="ACTION^S^N:NEW;E:EDIT;^0;3^Q"
^DD(100.681,2,21,0)="^^1^1^3020423^"
^DD(100.681,2,21,1,0)="What action was taken on the rule?"
^DD(100.681,2,"DT")="3020423"
^DD(100.681,"B","ACTION",2)=""
^DD(100.681,"B","EDIT HISTORY",.01)=""
^DD(100.681,"B","WHO ENTERED/EDITED",1)=""
^DD(100.681,"GL",0,1,.01)=""
^DD(100.681,"GL",0,2,1)=""
^DD(100.681,"GL",0,3,2)=""
^DD(100.681,"IX",.01)=""
^DD(100.8,0)="FIELD^^2^2"
^DD(100.8,0,"DDA")="N"
^DD(100.8,0,"DT")="3010429"
^DD(100.8,0,"IX","B",100.8,.01)=""
^DD(100.8,0,"NM","ORDER CHECKS")=""
^DD(100.8,0,"PT",100.09,.01)=""
^DD(100.8,0,"PT",860.22,2)=""
^DD(100.8,0,"VR")="3.0"
^DD(100.8,0,"VRPK")="OR"
^DD(100.8,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(100.8,.01,.1)="ORDER CHECK NAME"
^DD(100.8,.01,1,0)="^.1"
^DD(100.8,.01,1,1,0)="100.8^B"
^DD(100.8,.01,1,1,1)="S ^ORD(100.8,""B"",$E(X,1,30),DA)="""""
^DD(100.8,.01,1,1,2)="K ^ORD(100.8,""B"",$E(X,1,30),DA)"
^DD(100.8,.01,3)="Answer must be 3-45 characters in length."
^DD(100.8,.01,21,0)="^^1^1^2970731^"
^DD(100.8,.01,21,1,0)="This is the name of the order check."
^DD(100.8,.01,23,0)="^^2^2^2970731^"
^DD(100.8,.01,23,1,0)="This is the name of the order check.  It is used in identifying how to "
^DD(100.8,.01,23,2,0)="process order checks within OE/RR-CPRS."
^DD(100.8,.01,"DT")="2970731"
^DD(100.8,2,0)="DESCRIPTION^100.82^^1;0"
^DD(100.8,2,21,0)="^^1^1^3010430^"
^DD(100.8,2,21,1,0)="This field describes the order check."
^DD(100.8,"B","DESCRIPTION",2)=""
^DD(100.8,"B","NAME",.01)=""
^DD(100.8,"B","ORDER CHECK NAME",.01)="1"
^DD(100.8,"GL",0,1,.01)=""
^DD(100.8,"GL",1,0,2)=""
^DD(100.8,"IX",.01)=""
^DD(100.8,"RQ",.01)=""
^DD(100.8,"SB",100.82,2)=""
^DD(100.82,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(100.82,0,"DT")="3010429"
^DD(100.82,0,"NM","DESCRIPTION")=""
^DD(100.82,0,"UP")="100.8"
^DD(100.82,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(100.82,.01,21,0)="^^1^1^3010429^"
^DD(100.82,.01,21,1,0)="This text describes the order check."
^DD(100.82,.01,"DT")="3010429"
^DD(100.82,"B","DESCRIPTION",.01)=""
^DD(100.82,"GL",0,1,.01)=""
^DD(100.9,0)="FIELD^^5^12"
^DD(100.9,0,"DDA")="N"
^DD(100.9,0,"DT")="2990412"
^DD(100.9,0,"IX","B",100.9,.01)=""
^DD(100.9,0,"IX","C",100.9,.02)=""
^DD(100.9,0,"IX","D",100.9,.03)=""
^DD(100.9,0,"NM","OE/RR NOTIFICATIONS")=""
^DD(100.9,0,"PT",100.21019,.01)=""
^DD(100.9,0,"PT",860.22,3)=""
^DD(100.9,0,"VR")="3.0"
^DD(100.9,0,"VRPK")="OR"
^DD(100.9,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.9,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(100.9,.001,21,0)="5^^2^2^2970719^^"
^DD(100.9,.001,21,1,0)="This is the internal entry number assigned to a notification.  Entries"
^DD(100.9,.001,21,2,0)="1 through 999 are reserved for the releasing package, OE/RR Notifications."
^DD(100.9,.001,21,3,0)="To add site specific notifications, prefix the Notification Number with"
^DD(100.9,.001,21,4,0)="your site number (e.g., Site specific Nuclear Medicine Results Notification"
^DD(100.9,.001,21,5,0)="at Salt Lake might be assigned ""66001"")."
^DD(100.9,.001,23,0)="^^3^3^2970719^^^"
^DD(100.9,.001,23,1,0)="This field is used by DHCP packages triggering notifications (Lab, MAS, etc)"
^DD(100.9,.001,23,2,0)="to send the correct message and parameters to OE/RR.  These numbers must not"
^DD(100.9,.001,23,3,0)="be altered in any fashion."
^DD(100.9,.001,"DT")="2910520"
^DD(100.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(100.9,.01,1,0)="^.1"
^DD(100.9,.01,1,1,0)="100.9^B"
^DD(100.9,.01,1,1,1)="S ^ORD(100.9,""B"",$E(X,1,30),DA)="""""
^DD(100.9,.01,1,1,2)="K ^ORD(100.9,""B"",$E(X,1,30),DA)"
^DD(100.9,.01,1,2,0)="^^TRIGGER^100.9^.02"
^DD(100.9,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ORD(100.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""OR"" X ^DD(100.9,.01,1,2,1.4)"
^DD(100.9,.01,1,2,1.4)="S DIH=$S($D(^ORD(100.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=100.9,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(100.9,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ORD(100.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=X X ^DD(100.9,.01,1,2,2.4)"
^DD(100.9,.01,1,2,2.4)="S DIH=$S($D(^ORD(100.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=100.9,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(100.9,.01,1,2,"%D",0)="^^2^2^2920505^"
^DD(100.9,.01,1,2,"%D",1,0)="Automatically trigger the setting of the PACKAGE ID field with ""OR"""
^DD(100.9,.01,1,2,"%D",2,0)="to indicate ORder entry when a notification is created."
^DD(100.9,.01,1,2,"CREATE VALUE")="""OR"""
^DD(100.9,.01,1,2,"DELETE VALUE")="OLD NAME"
^DD(100.9,.01,1,2,"DT")="2920505"
^DD(100.9,.01,1,2,"FIELD")="PACKAGE ID"
^DD(100.9,.01,3)="Answer must be 3-30 characters in length. Enter the name of the notification.  The name should match the entry in the MESSAGE TEXT field as closely as possible."
^DD(100.9,.01,21,0)="^^4^4^2990416^^^^"
^DD(100.9,.01,21,1,0)="This is the name of the notification.  It should match the text in the"
^DD(100.9,.01,21,2,0)="MESSAGE TEXT field as closely as possible (it may be an abbreviated version"
^DD(100.9,.01,21,3,0)="of the entry in MESSAGE TEXT.)  This field is displayed to users when"
^DD(100.9,.01,21,4,0)="selecting or reviewing entries in this file (100.9)."
^DD(100.9,.01,"DT")="2920505"
^DD(100.9,.02,0)="PACKAGE ID^RFX^^0;2^S X=""OR"" ;K:X[""""""""!($A(X)=^ X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(100.9,.02,1,0)="^.1"
^DD(100.9,.02,1,1,0)="100.9^C"
^DD(100.9,.02,1,1,1)="S ^ORD(100.9,""C"",$E(X,1,30),DA)="""""
^DD(100.9,.02,1,1,2)="K ^ORD(100.9,""C"",$E(X,1,30),DA)"
^DD(100.9,.02,1,1,"%D",0)="^^2^2^2920427^^"
^DD(100.9,.02,1,1,"%D",1,0)="This cross-reference provides a way to group notifications by package or "
^DD(100.9,.02,1,1,"%D",2,0)="other category."
^DD(100.9,.02,1,1,"DT")="2910429"
^DD(100.9,.02,3)="Always enter ""OR"" in this field.  This field is used to create the XQAID field passed to the XQALERT entry points.  It will typically be the Package ID. "
^DD(100.9,.02,5,1,0)="100.9^.01^2"
^DD(100.9,.02,9)="^"
^DD(100.9,.02,21,0)="^^10^10^2990416^^^^"
^DD(100.9,.02,21,1,0)="This entry should always be ""OR"" to indicate the alert (notification) is "
^DD(100.9,.02,21,2,0)="processed by OE/RR.  ""OR"" is stuffed via a trigger x-ref in field .01."
^DD(100.9,.02,21,3,0)="This Package ID will have "";DFN;NIEN"" concatenated to the end of it, to"
^DD(100.9,.02,21,4,0)="make the XQAID variable which is used by the XQALERT routine to provide a"
^DD(100.9,.02,21,5,0)="unique cross-reference.  The order entry notification system will check"
^DD(100.9,.02,21,6,0)="the New person file to determine if this message is already pending for"
^DD(100.9,.02,21,7,0)="the user.  If it already exists, the user will not receive a second message."
^DD(100.9,.02,21,8,0)=" "
^DD(100.9,.02,21,9,0)="DFN is the Patient File internal entry number."
^DD(100.9,.02,21,10,0)="NIEN is the Notification File internal entry number."
^DD(100.9,.02,"DT")="2911008"
^DD(100.9,.03,0)="MESSAGE TEXT^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>51!($L(X)<3) X"
^DD(100.9,.03,1,0)="^.1"
^DD(100.9,.03,1,1,0)="100.9^D"
^DD(100.9,.03,1,1,1)="S ^ORD(100.9,""D"",$E(X,1,30),DA)="""""
^DD(100.9,.03,1,1,2)="K ^ORD(100.9,""D"",$E(X,1,30),DA)"
^DD(100.9,.03,1,1,"%D",0)="^^1^1^2910429^"
^DD(100.9,.03,1,1,"%D",1,0)="This cross reference provides a look-up based on the Message Text."
^DD(100.9,.03,1,1,"DT")="2910429"
^DD(100.9,.03,3)="Answer must be 3-51 characters in length.  This entry is used as the actual text of the notification (MESSAGE TYPE = 'NOT') or the default text (MESSAGE TEXT = 'PKG')."
^DD(100.9,.03,21,0)="^^6^6^2920224^^^^"
^DD(100.9,.03,21,1,0)="This text will be appended to the Patient last name and last 4 characters of"
^DD(100.9,.03,21,2,0)="the social security number to create the order notification text."
^DD(100.9,.03,21,3,0)="(e.g., SMITH (4356): Unsigned orders. - Where ""Unsigned orders."" is the "
^DD(100.9,.03,21,4,0)="content of MESSAGE TEXT.)  Text entered into this field is the default text"
^DD(100.9,.03,21,5,0)="for notifications where the text message usually comes from the package"
^DD(100.9,.03,21,6,0)="(MESSAGE TYPE = PKG)."
^DD(100.9,.03,"DT")="2911008"
^DD(100.9,.04,0)="MESSAGE TYPE^RS^PKG:PACKAGE PROVIDES A VARIABLE MESSAGE;NOT:NOTIFICATION FILE PROVIDES MESSAGE;^0;4^Q"
^DD(100.9,.04,3)="Messages can be provided by the NOTIFICATION file where they are defined with the notification 'NOT' or they can be variable messages supplied by the package 'PKG' when the notification is triggered."
^DD(100.9,.04,21,0)="^^1^1^2960503^^^^"
^DD(100.9,.04,21,1,0)="MESSAGE TYPE field is used as a flag to determine where the message text originates.  If from the NOTIFICATION file, MESSAGE TYPE is 'NOT.'  If the message comes from the package, MESSAGE TYPE is 'PKG.'"
^DD(100.9,.04,"DT")="2910627"
^DD(100.9,.05,0)="ACTION FLAG^RS^I:INFORMATION ONLY;R:RUN ROUTINE;^0;5^Q"
^DD(100.9,.05,3)="Enter 'I' if the user is to take no follow-up action for this notification.  Enter 'R' if the user is to take a follow-up action after viewing this notification (e.g. Sign an unsigned order.)"
^DD(100.9,.05,21,0)="^^7^7^2920417^^^^"
^DD(100.9,.05,21,1,0)="This a mandatory flag used to regulate processing in XQALERT processing."
^DD(100.9,.05,21,2,0)="The flag is set to I to indicate the notification is for INFORMATION ONLY - "
^DD(100.9,.05,21,3,0)="no follow-up action is to be taken.  'I' notifications are deleted as each"
^DD(100.9,.05,21,4,0)="user reviews them.  'R' notifications have a follow-up action associated"
^DD(100.9,.05,21,5,0)="with them.  The user will be taken to another routine or option when they"
^DD(100.9,.05,21,6,0)="select a notification with ACTION FLAG = R and a follow-up routine/option"
^DD(100.9,.05,21,7,0)="is defined."
^DD(100.9,.05,"DT")="2910627"
^DD(100.9,.06,0)="ENTRY POINT^F^^0;6^K:$L(X)>8!($L(X)<1) X"
^DD(100.9,.06,3)="Answer must be 1-8 characters in length.  This should be the tag to be concatenated with the ROUTINE NAME (.07) field.  It is the entry point for follow-up action in that routine."
^DD(100.9,.06,21,0)="^^2^2^2920224^^^"
^DD(100.9,.06,21,1,0)="This is an optional field used to create the XQAROU variable to be used by"
^DD(100.9,.06,21,2,0)="the XQALERT routine.  This field represents the TAG in tag^routine. "
^DD(100.9,.06,"DT")="2910429"
^DD(100.9,.07,0)="ROUTINE NAME^F^^0;7^K:$L(X)>8!($L(X)<2) X"
^DD(100.9,.07,3)="Answer must be 2-8 characters in length.  This is concatenated with the ENTRY POINT (.06) to create XQAROU.  It is the routine where the follow-up action (if any) for this notification is initiated."
^DD(100.9,.07,21,0)="^^2^2^2920224^^^"
^DD(100.9,.07,21,1,0)="This is an optional variable identifying a routine or tag(field .06)^routine"
^DD(100.9,.07,21,2,0)="used to create XQAROU for processing by XQALERT."
^DD(100.9,.07,"DT")="2910429"
^DD(100.9,1,0)="NON-MENU TYPE OPTION ACTION^P19'^DIC(19,^1;1^Q"
^DD(100.9,1,3)="This field is for future enhancements.  It is currently (5/92) unused."
^DD(100.9,1,21,0)="^^5^5^2920506^^^^"
^DD(100.9,1,21,1,0)="This is an optional field used to create the variable XQAOPT for use"
^DD(100.9,1,21,2,0)="by XQALERT.  It should indicate a non-menu type option on the user's"
^DD(100.9,1,21,3,0)="primary or secondary menu, not on the Common menu.  The phantom jump "
^DD(100.9,1,21,4,0)="is used to navigate to the destination option and will check pathway"
^DD(100.9,1,21,5,0)="restrictions in doing so."
^DD(100.9,1,"DT")="2910429"
^DD(100.9,1.5,0)="RELATED PACKAGE^F^^1;2^K:$L(X)>30!($L(X)<2) X"
^DD(100.9,1.5,3)="Answer must be 2-30 characters in length.  Enter the appropriate name of the package where the notification originates (e.g., LAB, MAS, Pharmacy.)"
^DD(100.9,1.5,21,0)="^^1^1^2920224^^^"
^DD(100.9,1.5,21,1,0)="This field contains the name of the package where the notification originates or is triggered (e.g., LAB, MAS, Pharmacy.)"
^DD(100.9,1.5,"DT")="2910627"
^DD(100.9,4,0)="DESCRIPTION^RF^^4;1^K:$L(X)>250!($L(X)<3) X"
^DD(100.9,4,3)="Answer must be 3-250 characters in length.  Enter a description of the notification with emphasis on what triggers the notification and what actions delete it."
^DD(100.9,4,21,0)="^^2^2^2950711^^^"
^DD(100.9,4,21,1,0)="This field contains free text describing the notification, how it is trig-"
^DD(100.9,4,21,2,0)="gered and what action(s) delete it."
^DD(100.9,4,"DT")="2950424"
^DD(100.9,5,0)="FOLLOW-UP TYPE^S^0:REPORT;1:COSIGN_PN;2:EXPIRING_ORDER;3:FLAGGED_ORDER;4:ORDER;5:UNLINKED;6:NEW_CONSULT;7:NEW_ORDER;8:COSIGN_ORDER;9:ES_ORDER;10:UNSIGN_PN;11:UNVERIFIED_MED;^3;2^Q"
^DD(100.9,5,3)="Enter the follow-up code correspond to the notification's follow-up action.  If unsure, leave blank."
^DD(100.9,5,21,0)="^^5^5^2990412^^^^"
^DD(100.9,5,21,1,0)="This field contains the type of follow-up action to be taken.  It is used "
^DD(100.9,5,21,2,0)="by the application managing the follow-up action  (e.g. GUI interface) to"
^DD(100.9,5,21,3,0)="initiate the proper follow-up action separate from the underlying data "
^DD(100.9,5,21,4,0)="base and application layers.  Example follow-up types include: report,"
^DD(100.9,5,21,5,0)="e/s, flag."
^DD(100.9,5,23,0)="^^6^6^2990412^^^^"
^DD(100.9,5,23,1,0)="This field is basically a flag for the environment (e.g. GUI - Delphi)"
^DD(100.9,5,23,2,0)="handling notification follow-up to initiate the appropriate action.  For"
^DD(100.9,5,23,3,0)="example if the type was report, the data returned in the API call would be"
^DD(100.9,5,23,4,0)="stuffed into a generic text box for display; whereas if the type was"
^DD(100.9,5,23,5,0)="flag, the follow-up action would be to find and display all flagged orders"
^DD(100.9,5,23,6,0)="for the patient and allow unflagging."
^DD(100.9,5,"DT")="2990412"
^DD(100.9,"B","ACTION FLAG",.05)=""
^DD(100.9,"B","DESCRIPTION",4)=""
^DD(100.9,"B","ENTRY POINT",.06)=""
^DD(100.9,"B","FOLLOW-UP TYPE",5)=""
^DD(100.9,"B","MESSAGE TEXT",.03)=""
^DD(100.9,"B","MESSAGE TYPE",.04)=""
^DD(100.9,"B","NAME",.01)=""
^DD(100.9,"B","NON-MENU TYPE OPTION ACTION",1)=""
^DD(100.9,"B","NUMBER",.001)=""
^DD(100.9,"B","PACKAGE ID",.02)=""
^DD(100.9,"B","RELATED PACKAGE",1.5)=""
^DD(100.9,"B","ROUTINE NAME",.07)=""
^DD(100.9,"GL",0,1,.01)=""
^DD(100.9,"GL",0,2,.02)=""
^DD(100.9,"GL",0,3,.03)=""
^DD(100.9,"GL",0,4,.04)=""
^DD(100.9,"GL",0,5,.05)=""
^DD(100.9,"GL",0,6,.06)=""
^DD(100.9,"GL",0,7,.07)=""
^DD(100.9,"GL",1,1,1)=""
^DD(100.9,"GL",1,2,1.5)=""
^DD(100.9,"GL",3,2,5)=""
^DD(100.9,"GL",4,1,4)=""
^DD(100.9,"IX",.01)=""
^DD(100.9,"IX",.02)=""
^DD(100.9,"IX",.03)=""
^DD(100.9,"RQ",.01)=""
^DD(100.9,"RQ",.02)=""
^DD(100.9,"RQ",.03)=""
^DD(100.9,"RQ",.04)=""
^DD(100.9,"RQ",.05)=""
^DD(100.9,"RQ",4)=""
^DD(100.98,0)="FIELD^^4^5"
^DD(100.98,0,"DDA")="N"
^DD(100.98,0,"DT")="2960814"
^DD(100.98,0,"IX","AD",100.981,.01)=""
^DD(100.98,0,"IX","B",100.98,.01)=""
^DD(100.98,0,"IX","B",100.98,3)=""
^DD(100.98,0,"NM","DISPLAY GROUP")=""
^DD(100.98,0,"PT",100,23)=""
^DD(100.98,0,"PT",100.65,.01)=""
^DD(100.98,0,"PT",100.981,.01)=""
^DD(100.98,0,"PT",100.995,1.1)=""
^DD(100.98,0,"PT",101.41,5)=""
^DD(100.98,0,"PT",101.43,5)=""
^DD(100.98,0,"PT",123.5,123.01)=""
^DD(100.98,0,"VR")="3.0"
^DD(100.98,0,"VRPK")="ORDER ENTRY/RESULTS REPORTING"
^DD(100.98,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(100.98,.01,1,0)="^.1^^-1"
^DD(100.98,.01,1,1,0)="100.98^B"
^DD(100.98,.01,1,1,1)="S ^ORD(100.98,""B"",$E(X,1,30),DA)="""""
^DD(100.98,.01,1,1,2)="K ^ORD(100.98,""B"",$E(X,1,30),DA)"
^DD(100.98,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(100.98,.01,4)=""
^DD(100.98,.01,21,0)="^^3^3^2920224^^^^"
^DD(100.98,.01,21,1,0)="This is the name of the display group for a particular kind of order."
^DD(100.98,.01,21,2,0)="The display group generally corresponds to a hospital service or part"
^DD(100.98,.01,21,3,0)="of a service."
^DD(100.98,.01,"DT")="2890131"
^DD(100.98,1,0)="MEMBER^100.981P^^1;0"
^DD(100.98,1,3)="Enter a display group as a member."
^DD(100.98,1,21,0)="^^3^3^2920224^^^^"
^DD(100.98,1,21,1,0)="This is a list of specific display groups that `belong' to the display"
^DD(100.98,1,21,2,0)="group listed in the NAME field.  (This is similar to menu items in the"
^DD(100.98,1,21,3,0)="OPTION File.)"
^DD(100.98,2,0)="MIXED NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(100.98,2,3)="Answer must be 1-30 characters in length."
^DD(100.98,2,21,0)="^^3^3^2960617^"
^DD(100.98,2,21,1,0)="This field contains a mixed case name for the display group.  The name "
^DD(100.98,2,21,2,0)="should be as short as possible without being obscure.  This name is "
^DD(100.98,2,21,3,0)="primarily intended for use in the windows display of orders."
^DD(100.98,2,"DT")="2960617"
^DD(100.98,3,0)="SHORT NAME^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(100.98,3,1,0)="^.1"
^DD(100.98,3,1,1,0)="100.98^B^MNEMONIC"
^DD(100.98,3,1,1,1)="S:'$D(^ORD(100.98,""B"",$E(X,1,30),DA)) ^(DA)=1"
^DD(100.98,3,1,1,2)="I $D(^ORD(100.98,""B"",$E(X,1,30),DA)),^(DA) K ^(DA)"
^DD(100.98,3,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(100.98,3,21,0)="^^2^2^2920224^^^"
^DD(100.98,3,21,1,0)="This is an abbreviation for the display group to be used in displays and"
^DD(100.98,3,21,2,0)="reports."
^DD(100.98,3,"DT")="2880308"
^DD(100.98,4,0)="DEFAULT DIALOG^P101.41'^ORD(101.41,^0;4^Q"
^DD(100.98,4,3)="Enter the default ordering dialog for this display group."
^DD(100.98,4,21,0)="^^2^2^2960815^^"
^DD(100.98,4,21,1,0)="This is the dialog that will be used as the default definition when"
^DD(100.98,4,21,2,0)="placing quick orders associated with this display group."
^DD(100.98,4,"DT")="2960814"
^DD(100.98,"B","DEFAULT DIALOG",4)=""
^DD(100.98,"B","MEMBER",1)=""
^DD(100.98,"B","MIXED NAME",2)=""
^DD(100.98,"B","NAME",.01)=""
^DD(100.98,"B","SHORT NAME",3)=""
^DD(100.98,"GL",0,1,.01)=""
^DD(100.98,"GL",0,2,2)=""
^DD(100.98,"GL",0,3,3)=""
^DD(100.98,"GL",0,4,4)=""
^DD(100.98,"GL",1,0,1)=""
^DD(100.98,"IX",.01)=""
^DD(100.98,"IX",3)=""
^DD(100.98,"RQ",.01)=""
^DD(100.98,"SB",100.981,1)=""
^DD(100.981,0)="MEMBER SUB-FIELD^^.01^2"
^DD(100.981,0,"DT")="2920601"
^DD(100.981,0,"IX","B",100.981,.01)=""
^DD(100.981,0,"NM","MEMBER")=""
^DD(100.981,0,"UP")="100.98"
^DD(100.981,.001,0)="SEQUENCE^NJ5,1^^ ^K:+X'=X!(X>900)!(X<0)!(X?.E1"".""2N.N) X"
^DD(100.981,.001,3)="Type a Number between 0 and 900, 1 Decimal Digit"
^DD(100.981,.001,21,0)="^^2^2^2920601^"
^DD(100.981,.001,21,1,0)="This is the sequence of the member in the display group for reporting"
^DD(100.981,.001,21,2,0)="purposes."
^DD(100.981,.001,"DT")="2920601"
^DD(100.981,.01,0)="MEMBER^MP100.98X^ORD(100.98,^0;1^S ORDDF=100.98 D TREE^ORDD101"
^DD(100.981,.01,1,0)="^.1"
^DD(100.981,.01,1,1,0)="100.981^B"
^DD(100.981,.01,1,1,1)="S ^ORD(100.98,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(100.981,.01,1,1,2)="K ^ORD(100.98,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(100.981,.01,1,2,0)="100.98^AD^MUMPS"
^DD(100.981,.01,1,2,1)="S ^ORD(100.98,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(100.981,.01,1,2,2)="K ^ORD(100.98,""AD"",$E(X,1,30),DA(1),DA)"
^DD(100.981,.01,1,2,"%D",0)="^^2^2^2971217^^"
^DD(100.981,.01,1,2,"%D",1,0)="^ORD(100.98,""AD"",ORMEM,ORGRP,DA)"
^DD(100.981,.01,1,2,"%D",2,0)="Provides backwards pointer from member to parent group."
^DD(100.981,.01,3)="Enter a display group.  A display group that is an ancestor may not also be a member."
^DD(100.981,.01,4)=""
^DD(100.981,.01,21,0)="^^2^2^2920224^^^"
^DD(100.981,.01,21,1,0)="This is a display group listed in the NAME field. (This is similar to a"
^DD(100.981,.01,21,2,0)="menu item in the OPTION File.)"
^DD(100.981,.01,"DT")="2890207"
^DD(100.981,"B","MEMBER",.01)=""
^DD(100.981,"B","SEQUENCE",.001)=""
^DD(100.981,"GL",0,1,.01)=""
^DD(100.981,"IX",.01)=""
^DD(100.99,0)="FIELD^^300^58"
^DD(100.99,0,"DT")="2971026"
^DD(100.99,0,"IX","B",100.99,.01)=""
^DD(100.99,0,"NM","ORDER PARAMETERS")=""
^DD(100.99,0,"VR")="3.0"
^DD(100.99,0,"VRPK")="ORDER ENTRY/RESULTS REPORTING"
^DD(100.99,.001,0)="NUMBER^NJ1,0I^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.99,.001,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(100.99,.001,21,0)="^^1^1^2920224^^^^"
^DD(100.99,.001,21,1,0)="This is the internal number of this file."
^DD(100.99,.001,"DT")="2890302"
^DD(100.99,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45)!'(X'?1P.E) X"
^DD(100.99,.01,1,0)="^.1"
^DD(100.99,.01,1,1,0)="100.99^B"
^DD(100.99,.01,1,1,1)="S ^ORD(100.99,""B"",$E(X,1,30),DA)="""""
^DD(100.99,.01,1,1,2)="K ^ORD(100.99,""B"",$E(X,1,30),DA)"
^DD(100.99,.01,3)="There can be only one entry."
^DD(100.99,.01,21,0)="^^1^1^2920331^^^^"
^DD(100.99,.01,21,1,0)="This is an arbitrary name for the single entry in this file."
^DD(100.99,.01,"DT")="2890726"
^DD(100.99,1,0)="CURRENT ORDER #^NJ10,0I^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(100.99,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999999"
^DD(100.99,1,21,0)="^^1^1^2920224^^^^"
^DD(100.99,1,21,1,0)="This is the current order # on the system."
^DD(100.99,1,"DT")="2870813"
^DD(100.99,2,0)="SYSTEM PARAMETERS^100.992^^1;0"
^DD(100.99,2,3)="Enter the names of the CPU's on your system."
^DD(100.99,2,21,0)="^^3^3^2920224^^^^"
^DD(100.99,2,21,1,0)="This is the name of the system as found in the global node"
^DD(100.99,2,21,2,0)="^%ZOSF(""VOL"").  An entry should be made here for each CPU"
^DD(100.99,2,21,3,0)="system that generates orders."
^DD(100.99,3,0)="TREATING SPECIALTY^S^0:NOT ASK;1:ASK;^0;3^Q"
^DD(100.99,3,3)="Enter 0 to not ask, or 1 to ask for treating specialty when placing orders."
^DD(100.99,3,21,0)="^^4^4^2920224^^^^"
^DD(100.99,3,21,1,0)="This is a site parameter which controls the prompt for TREATING SPECIALTY"
^DD(100.99,3,21,2,0)="when defining patient demographics.  If set to NOT ASK, the prompt will"
^DD(100.99,3,21,3,0)="not be displayed; and TREATING SPECIALTY will only be defined for the order"
^DD(100.99,3,21,4,0)="if it can be found."
^DD(100.99,3,"DT")="2871201"
^DD(100.99,3.01,0)="OR3 CONVERSION COMPLETE?^RS^0:NO;1:YES;^CONV;1^Q"
^DD(100.99,3.01,3)="Will be entered by conversion as 1 when conversion complete or 0 if in progress."
^DD(100.99,3.01,21,0)="^^4^4^2970802^"
^DD(100.99,3.01,21,1,0)="This field is maintained by the Order Entry/Results Reporting version 3.0"
^DD(100.99,3.01,21,2,0)="conversion of orders.  It will be initialized to 0 at the start of the"
^DD(100.99,3.01,21,3,0)="conversion and updated to 1 when the conversion is complete.  It is"
^DD(100.99,3.01,21,4,0)="important that this field not be edited."
^DD(100.99,3.01,"DT")="2970802"
^DD(100.99,3.02,0)="OR3 INPATIENT CONVERSION START^RD^^CONV;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.99,3.02,3)="This field will contain the date/time the conversion of inpatients started"
^DD(100.99,3.02,21,0)="^^2^2^2970802^"
^DD(100.99,3.02,21,1,0)="This field will be maintained by the OE/RR version 3 conversion.  It will"
^DD(100.99,3.02,21,2,0)="be set to the time the conversion of orders for inpatients started."
^DD(100.99,3.02,"DT")="2970802"
^DD(100.99,3.03,0)="OR3 INPATIENT CONVERSION STOP^RD^^CONV;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.99,3.03,3)="This field will contain the time the conversion of orders for inpatients stopped."
^DD(100.99,3.03,21,0)="^^2^2^2970802^"
^DD(100.99,3.03,21,1,0)="This field will be maintained by the OE/RR version 3 order conversion.  It"
^DD(100.99,3.03,21,2,0)="will contain the time the conversion of orders for inpatients completed."
^DD(100.99,3.03,"DT")="2970802"
^DD(100.99,3.04,0)="OR3 INPATIENT LOCATION UP TO^F^^CONV;4^K:$L(X)>50!($L(X)<2) X"
^DD(100.99,3.04,3)="Answer must be 2-50 characters in length."
^DD(100.99,3.04,21,0)="^^3^3^2970802^"
^DD(100.99,3.04,21,1,0)="This field will contain the name of the location the conversion is"
^DD(100.99,3.04,21,2,0)="currently up to if still converting orders for current inpatients.  If"
^DD(100.99,3.04,21,3,0)="that step is complete, this field will be blank."
^DD(100.99,3.04,"DT")="2970806"
^DD(100.99,3.05,0)="OR3 INPATIENT DFN UP TO^P2'^DPT(^CONV;5^Q"
^DD(100.99,3.05,3)="This field will contain the inpatient record for which orders are currently being converted."
^DD(100.99,3.05,21,0)="^^4^4^2970802^"
^DD(100.99,3.05,21,1,0)="If the OE/RR version 3.0 order conversion is converting orders for"
^DD(100.99,3.05,21,2,0)="inpatients, this field will contain the patient the conversion is"
^DD(100.99,3.05,21,3,0)="currently up to.  If the inpatient order conversion is complete, this"
^DD(100.99,3.05,21,4,0)="field will be null."
^DD(100.99,3.05,"DT")="2970806"
^DD(100.99,3.06,0)="OR3 BACKGROUND JOB START^RD^^CONV;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.99,3.06,3)="This field will contain the time the conversion of orders for patients with recent and future activity started."
^DD(100.99,3.06,21,0)="^^4^4^2970802^"
^DD(100.99,3.06,21,1,0)="This field is maintained by the OE/RR version 3 orders conversion.  If the"
^DD(100.99,3.06,21,2,0)="conversion is up to phase 2 (which converts orders for recently seen"
^DD(100.99,3.06,21,3,0)="patients and those scheduled to be seen in the near future), this field"
^DD(100.99,3.06,21,4,0)="will contain the date phase 2 of the conversion started."
^DD(100.99,3.06,"DT")="2970803"
^DD(100.99,3.07,0)="OR3 BACKGROUND JOB STOP^RD^^CONV;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.99,3.07,3)="This field will contain the time the conversion of orders for recently seen patients completed."
^DD(100.99,3.07,21,0)="^^4^4^2970802^"
^DD(100.99,3.07,21,1,0)="This field is maintained by the OE/RR version 3 orders conversion.  If the"
^DD(100.99,3.07,21,2,0)="conversion has completed phase 2 (which converts orders for recently seen"
^DD(100.99,3.07,21,3,0)="patients and those scheduled to be seen in the near future), this field"
^DD(100.99,3.07,21,4,0)="will contain the date phase 2 of the conversion completed."
^DD(100.99,3.07,"DT")="2970803"
^DD(100.99,3.08,0)="OR3 BACKGROUND JOB STAGE^NJ1,0^^CONV;8^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1N.N) X"
^DD(100.99,3.08,3)="Type a Number between 0 and 7, 0 Decimal Digits"
^DD(100.99,3.08,21,0)="^^13^13^2971026^"
^DD(100.99,3.08,21,1,0)="This field is maintained by the OE/RR version 3 conversion.  If the"
^DD(100.99,3.08,21,2,0)="conversion is in the background job, this will keep track of the stage of"
^DD(100.99,3.08,21,3,0)="the background process it is on.  Once the background job is complete,"
^DD(100.99,3.08,21,4,0)="this field will be deleted.  The stages are:"
^DD(100.99,3.08,21,5,0)=" "
^DD(100.99,3.08,21,6,0)="  0.  Populate multiple of patient orders to convert "
^DD(100.99,3.08,21,7,0)="  1.  Current inpatients."
^DD(100.99,3.08,21,8,0)="  2.  Patients with future scheduled admissions"
^DD(100.99,3.08,21,9,0)="  3.  patients on waiting list"
^DD(100.99,3.08,21,10,0)="  4.  patients with discharges in the last 4 weeks"
^DD(100.99,3.08,21,11,0)="  5.  patients with appointments in last 4 weeks and next 4 weeks"
^DD(100.99,3.08,21,12,0)="  6.  all remaining patients in DPT"
^DD(100.99,3.08,21,13,0)="  7.  orders not associated with DPT"
^DD(100.99,3.08,"DT")="2971026"
^DD(100.99,3.09,0)="OR3 BACKGROUND JOB UP TO^F^^CONV;9^K:$L(X)>30!($L(X)<1) X"
^DD(100.99,3.09,3)="Answer must be 1-30 characters in length."
^DD(100.99,3.09,21,0)="^^5^5^2970803^"
^DD(100.99,3.09,21,1,0)="This field is maintained by the OE/RR orders conversion.  If the"
^DD(100.99,3.09,21,2,0)="background job process is running, this will keep track of the last value"
^DD(100.99,3.09,21,3,0)="processed for the current stage.  If the background job stops and needs to"
^DD(100.99,3.09,21,4,0)="be restarted, this field will allow restart from where the process left"
^DD(100.99,3.09,21,5,0)="off."
^DD(100.99,3.09,"DT")="2970806"
^DD(100.99,3.1,0)="OR3 BACKGROUND JOB TASK^NJ15,0^^CONV;10^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.99,3.1,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(100.99,3.1,21,0)="^^4^4^2970803^^"
^DD(100.99,3.1,21,1,0)="This field is maintained by the OE/RR orders conversion.  If the"
^DD(100.99,3.1,21,2,0)="conversion is in the background job portion, this field will contain the"
^DD(100.99,3.1,21,3,0)="task number (ZTSK) of the background process job.  This will assist in"
^DD(100.99,3.1,21,4,0)="providing the status of the job and allowing restart should the job stop."
^DD(100.99,3.1,"DT")="2970806"
^DD(100.99,3.11,0)="OR3 BACKGROUND JOB STOP?^S^1:YES;0:NO;^CONV;11^Q"
^DD(100.99,3.11,3)="Enter YES to cause the conversion to cleanly stop.  Otherwise, enter NO."
^DD(100.99,3.11,21,0)="^^5^5^2970803^"
^DD(100.99,3.11,21,1,0)="Should you wish to stop the background job process for any reason during"
^DD(100.99,3.11,21,2,0)="the OE/RR version 3.0 orders conversion, you can call STOP^OR3CONV and"
^DD(100.99,3.11,21,3,0)="this field will be set to yes.  The conversion will check for this field"
^DD(100.99,3.11,21,4,0)="and when it finds it set, it will allow the conversion to make a clean"
^DD(100.99,3.11,21,5,0)="stop.  RESTART^OR3CONV may be used to restart the task."
^DD(100.99,3.11,"DT")="2970806"
^DD(100.99,3.12,0)="OR3 PATIENTS CONVERTED^NJ15,0^^CONV;12^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.99,3.12,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(100.99,3.12,21,0)="^^3^3^2970815^"
^DD(100.99,3.12,21,1,0)="This field will be maintained by the Order Entry/Results Reporting version"
^DD(100.99,3.12,21,2,0)="3.0 orders conversion.  It will keep a counter of the number of patients"
^DD(100.99,3.12,21,3,0)="that have been converted."
^DD(100.99,3.12,"DT")="2970815"
^DD(100.99,4,0)="ADD MENU DEFAULT^V^^0;9^Q"
^DD(100.99,4,3)="To define a system wide menu for adding orders, enter that menu here."
^DD(100.99,4,21,0)="^^10^10^2920224^^^^"
^DD(100.99,4,21,1,0)="This field is the default menu used to add orders.  If this field has no"
^DD(100.99,4,21,2,0)="entry, then the ORADD menu will be used as the default.  This field is"
^DD(100.99,4,21,3,0)="for sites that wish to customize the ORADD menu by creating another menu"
^DD(100.99,4,21,4,0)="in a local namespace (ORZADD) so that local changes won't be overwritten"
^DD(100.99,4,21,5,0)="when new versions of OE/RR are installed.  When a customized menu structure"
^DD(100.99,4,21,6,0)="has been created for local use of OE/RR, it should be put in this field."
^DD(100.99,4,21,7,0)=" "
^DD(100.99,4,21,8,0)="Starting with Version II of OE/RR, menus can be set up in file 101 for"
^DD(100.99,4,21,9,0)="specific users or groups of users and assigned on an individual basis via"
^DD(100.99,4,21,10,0)="the Clinical Coordinators menu."
^DD(100.99,4,"DT")="2890318"
^DD(100.99,4,"V",0)="^.12P^2^2"
^DD(100.99,4,"V",1,0)="101^PROTOCOL^1^ORD^^n"
^DD(100.99,4,"V",2,0)="19^OPTION^2^OPT^^n"
^DD(100.99,4,"V","B",19,2)=""
^DD(100.99,4,"V","B",101,1)=""
^DD(100.99,4,"V","M","OPTION",2)=""
^DD(100.99,4,"V","M","PROTOCOL",1)=""
^DD(100.99,4,"V","O",1,1)=""
^DD(100.99,4,"V","O",2,2)=""
^DD(100.99,4,"V","P","OPT",2)=""
^DD(100.99,4,"V","P","ORD",1)=""
^DD(100.99,5,0)="PACKAGE PARAMETERS^100.995P^^5;0"
^DD(100.99,5,3)="Do not edit these parameters unless instructed to by package release notes."
^DD(100.99,5,21,0)="^^3^3^2920224^^^^"
^DD(100.99,5,21,1,0)="This field allows each package to define its own set of parameters."
^DD(100.99,5,21,2,0)="The entries in this multiple field are exported much the same as"
^DD(100.99,5,21,3,0)="entries in the PACKAGE File are exported when a package is initialized."
^DD(100.99,6,0)="SHOW STATUS DESCRIPTION^S^0:NO;1:YES;^0;10^Q"
^DD(100.99,6,3)="Enter YES to have the full status description displayed on the detailed order display."
^DD(100.99,6,21,0)="^^3^3^2920224^^^^"
^DD(100.99,6,21,1,0)="This field allows the description associated with a status to be"
^DD(100.99,6,21,2,0)="displayed with the current status of an order when a detailed"
^DD(100.99,6,21,3,0)="display is requested."
^DD(100.99,6,"DT")="2890328"
^DD(100.99,7,0)="SHOW PATIENT NAME^S^0:NO;1:YES;^0;11^Q"
^DD(100.99,7,3)="Enter YES to have the patient name displayed every time a protocol is invoked in OE/RR."
^DD(100.99,7,21,0)="^^2^2^2920423^^^^"
^DD(100.99,7,21,1,0)="This field allows the patient name to be displayed each time an order"
^DD(100.99,7,21,2,0)="action is executed after the subheader during ADD NEW ORDERS option."
^DD(100.99,7,"DT")="2890817"
^DD(100.99,8,0)="ACTIVE ORDERS CONTEXT HOURS^NJ2,0^^0;12^K:+X'=X!(X>72)!(X<0)!(X?.E1"".""1N.N) X"
^DD(100.99,8,3)="Enter the number of hours to include completed, DC'ed, Expired orders in an Active Orders display."
^DD(100.99,8,21,0)="^^2^2^2921130^^^^"
^DD(100.99,8,21,1,0)="This field defines the number of hours that orders remain in the"
^DD(100.99,8,21,2,0)="""Current Orders"" context after they have been completed."
^DD(100.99,8,"DT")="2910713"
^DD(100.99,9,0)="REVIEW ON PATIENT MVMT^S^0:NO;1:YES;^0;13^Q"
^DD(100.99,9,3)="Enter YES to review patient orders whenever a patient movement or clinic appointmemt occurs."
^DD(100.99,9,21,0)="^^2^2^2921204^^^^"
^DD(100.99,9,21,1,0)="This field allows orders to be reviewed when a patient is transferred"
^DD(100.99,9,21,2,0)="or discharged, and when a clinic appointment is made or cancelled."
^DD(100.99,9,"DT")="2901001"
^DD(100.99,10,0)="SINGLE USER/SUSPEND FILER^S^1:YES;0:NO;^0;4^Q"
^DD(100.99,10,3)="Do not enter anything in this field."
^DD(100.99,10,8.5)="@"
^DD(100.99,10,9)="@"
^DD(100.99,10,21,0)="^^9^9^2920423^^^^"
^DD(100.99,10,21,1,0)="This is a parameter that can be set for single user systems (PC's) that"
^DD(100.99,10,21,2,0)="do not allow multiple jobs to run simultaneously.  This is needed since"
^DD(100.99,10,21,3,0)="OE/RR uses a background filer.  If this field is set to YES then tasks"
^DD(100.99,10,21,4,0)="that normally are run in the background will run in real time.  For"
^DD(100.99,10,21,5,0)="demo/training purposes, not to be used in a production environment."
^DD(100.99,10,21,6,0)=" "
^DD(100.99,10,21,7,0)="This field is also used to shut down or suspend the background filer."
^DD(100.99,10,21,8,0)="The filer needs to be suspended when the ^ORYX global is being moved"
^DD(100.99,10,21,9,0)="or a new version of OE/RR is being installed."
^DD(100.99,10,"DT")="2890124"
^DD(100.99,11,0)="INITIALS ON SUMMARY^S^1:YES;0:NO;^0;14^Q"
^DD(100.99,11,3)="Enter YES to have the initials of the person who entered the order on the OE/RR summary reports."
^DD(100.99,11,21,0)="^^4^4^2920423^^^^"
^DD(100.99,11,21,1,0)="This field allows the initials of the person who entered the order to"
^DD(100.99,11,21,2,0)="be displayed on the OE/RR summary reports.  The initials take up an"
^DD(100.99,11,21,3,0)="additional line on the display and are shown just below the Ord'd date"
^DD(100.99,11,21,4,0)="time."
^DD(100.99,11,"DT")="2901127"
^DD(100.99,12,0)="DEFAULT PROVIDER^S^0:NO;1:YES;^0;15^Q"
^DD(100.99,12,3)="Enter YES to have the attending physician as a default prompt when entering orders."
^DD(100.99,12,21,0)="^^2^2^2920224^^^"
^DD(100.99,12,21,1,0)="This field allows the attending physician to be prompted as a default"
^DD(100.99,12,21,2,0)="when adding new orders."
^DD(100.99,12,"DT")="2910110"
^DD(100.99,13,0)="LAST PURGE DATE^DI^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(100.99,13,3)="Do not enter anything in this field."
^DD(100.99,13,21,0)="^^2^2^2970306^^^^"
^DD(100.99,13,21,1,0)="This field contains the date that the OE/RR purge utility was"
^DD(100.99,13,21,2,0)="last started."
^DD(100.99,13,"DT")="2970306"
^DD(100.99,14,0)="LAST ORDER PURGED^P100'I^OR(100,^0;6^Q"
^DD(100.99,14,3)="Do not enter anything in this field."
^DD(100.99,14,21,0)="^^2^2^2920224^^^^"
^DD(100.99,14,21,1,0)="This field contains the last order number purged by the OE/RR"
^DD(100.99,14,21,2,0)="purge utility."
^DD(100.99,14,"DT")="2900315"
^DD(100.99,15,0)="ERROR DAYS^NJ2,0^^0;7^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(100.99,15,3)="Enter the number of days you want OE/RR errors to remain on the system."
^DD(100.99,15,21,0)="^^3^3^2920224^^^^"
^DD(100.99,15,21,1,0)="This field tells OE/RR how long to keep the record of failed"
^DD(100.99,15,21,2,0)="tasks in the OE/RR ERROR file."
^DD(100.99,15,21,3,0)="If no entry is put in this field then errors are kept for 2 days."
^DD(100.99,15,"DT")="2890315"
^DD(100.99,16,0)="DEBUG^S^0:OFF;1:ON;^0;8^Q"
^DD(100.99,16,3)="Enter YES to put OE/RR in debug mode."
^DD(100.99,16,21,0)="^^5^5^2920224^^^^"
^DD(100.99,16,21,1,0)="This field is used by package developers to help debug transaction"
^DD(100.99,16,21,2,0)="failures with their package and OE/RR.  If this field is turned ON,"
^DD(100.99,16,21,3,0)="then transactions are not processed thru the background filer and"
^DD(100.99,16,21,4,0)="a message is displayed when a transaction fails.  This field should"
^DD(100.99,16,21,5,0)="be turned OFF at all other times."
^DD(100.99,16,"DT")="2890318"
^DD(100.99,17,0)="INSTALLATION FLAG^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(100.99,17,3)="An entry in this field disables protocols in OE/RR."
^DD(100.99,17,21,0)="^^3^3^2920429^"
^DD(100.99,17,21,1,0)="This field is used during installation to disable OE/RR protocols."
^DD(100.99,17,21,2,0)="There should only be an entry here during OE/RR installation. "
^DD(100.99,17,21,3,0)="The entry is provided by the OE/RR installation process."
^DD(100.99,17,"DT")="2920429"
^DD(100.99,18,0)="CONFIRM PROVIDER^S^0:NO;1:YES (Default NO);2:YES (Exclude ORES);3:YES (Default YES);^0;17^Q"
^DD(100.99,18,21,0)="^^6^6^2970122^^^^"
^DD(100.99,18,21,1,0)="This field will allow an additional prompt to confirm the provider"
^DD(100.99,18,21,2,0)="selection when adding new orders."
^DD(100.99,18,21,3,0)="Entering 2 in this field will exclude holders of the ORES key"
^DD(100.99,18,21,4,0)="(providers) from this check."
^DD(100.99,18,21,5,0)="Notice that these parameters also control the default presented to the user:"
^DD(100.99,18,21,6,0)="'Are you sure? <no -or- yes>'"
^DD(100.99,18,"DT")="2960411"
^DD(100.99,19,0)="SHOW LAB #^S^0:NO;1:YES;^0;18^Q"
^DD(100.99,19,21,0)="^^9^9^2960522^"
^DD(100.99,19,21,1,0)="This field controls the listing of lab orders for holders"
^DD(100.99,19,21,2,0)="of the ORES key, after the electronic signature has been"
^DD(100.99,19,21,3,0)="entered when entering new orders.  If Physicians want to"
^DD(100.99,19,21,4,0)="see the lab order # with the order after entering and signing"
^DD(100.99,19,21,5,0)="the orders, this parameter must be set to YES. "
^DD(100.99,19,21,6,0)="The Lab Order # is not displayed on the new orders screen."
^DD(100.99,19,21,7,0)="Only after the order is released to Lab service is the number"
^DD(100.99,19,21,8,0)="assigned.  All other users get the listing regardless of"
^DD(100.99,19,21,9,0)="what this parameter is set to."
^DD(100.99,19,"DT")="2960522"
^DD(100.99,20,0)="PACKAGE SITE PARAMETERS^100.9901P^^20;0"
^DD(100.99,20,3)="Enter Hospital site parameters here."
^DD(100.99,20,21,0)="^^2^2^2920224^^^^"
^DD(100.99,20,21,1,0)="Here are the package specific parameters that can be modified by"
^DD(100.99,20,21,2,0)="the installation site."
^DD(100.99,21,0)="ELECTRONIC SIGNATURE^S^0:NO;1:YES;^2;1^Q"
^DD(100.99,21,3)="Enter YES to turn electronic signature functionality on."
^DD(100.99,21,21,0)="^^6^6^2920224^^^^"
^DD(100.99,21,21,1,0)="This field allows electronic signature functionality to be used."
^DD(100.99,21,21,2,0)="Use of this functionality requires some initial setup before it can"
^DD(100.99,21,21,3,0)="be turned on.  Users have to be assigned keys that allow them to"
^DD(100.99,21,21,4,0)="perform verification steps in the order entry process.  They also"
^DD(100.99,21,21,5,0)="have to be given an electronic signature code.  This also has an "
^DD(100.99,21,21,6,0)="effect on who can be selected as the person requesting the order."
^DD(100.99,21,"DT")="2910220"
^DD(100.99,22,0)="ELECTRONIC RECORD^S^0:NO;1:YES;2:YES (ALLOW S.O.C.);3:YES (ALLOW S.O.C & WRITTEN);4:YES (Exempt Service Entered);^2;2^Q"
^DD(100.99,22,21,0)="11^^27^27^2960524^^^^"
^DD(100.99,22,21,1,0)="A site can use this field to select 1 of 4 modes for Electronic Signature:"
^DD(100.99,22,21,2,0)="0>No change from current Electronic Signature functionality."
^DD(100.99,22,21,3,0)="1>Yes  All orders must be signed online."
^DD(100.99,22,21,4,0)="Signature on chart is not allowed"
^DD(100.99,22,21,5,0)="All orders are filed initially with a signature status of Unsigned and"
^DD(100.99,22,21,6,0)="a notification for electronic signature is sent to the ordering provider."
^DD(100.99,22,21,7,0)="2>Yes (Allow S.O.C)  All orders are signed online, but for"
^DD(100.99,22,21,8,0)="those cases where an order is written and signed on the paper chart,"
^DD(100.99,22,21,9,0)="you can so specify.  Backdoor orders send a notification for electronic"
^DD(100.99,22,21,10,0)="signature and require a signature, unless the order has a Nature of "
^DD(100.99,22,21,11,0)="Order set to null."
^DD(100.99,22,21,12,0)="3>Yes (Allow S.O.C. & Written)  Is the same as option 2 except that it"
^DD(100.99,22,21,13,0)="will allow orders sent from the ancillary packages with a nature of"
^DD(100.99,22,21,14,0)="order of Written to be entered without requiring an electronic signature."
^DD(100.99,22,21,15,0)="4>Yes (Exempt Service Entered)  Is the same as option 2 except that it"
^DD(100.99,22,21,16,0)="will allow orders sent from the ancillary packages that have not defined"
^DD(100.99,22,21,17,0)="a nature of order to be entered without requiring an electronic signature."
^DD(100.99,22,21,18,0)="This is the way 'backdoor' orders were handled before the changes "
^DD(100.99,22,21,19,0)="introduced with this new field (added with patch OR*2.5*46) were added."
^DD(100.99,22,21,20,0)="As of the release of patch OR*2.5*46 only Pharmacy and Lab have a way"
^DD(100.99,22,21,21,0)="of dealing with the nature of order from the backdoor.  So until the"
^DD(100.99,22,21,22,0)="rest of the backdoor interfaces can deal with this, option 4 is the "
^DD(100.99,22,21,23,0)="least disruptive method of evolution, and still get the enhancements for"
^DD(100.99,22,21,24,0)="notification and signing of verbal orders."
^DD(100.99,22,21,25,0)="   "
^DD(100.99,22,21,26,0)="For options 1,2,3 & 4, the default for the prompt ""Do you want to mark"
^DD(100.99,22,21,27,0)="these orders as 'Signed on Chart'"" is changed to NO."
^DD(100.99,22,"DT")="2960524"
^DD(100.99,23,0)="UNSIGNED ORDERS SCREEN^S^0:All;1:Select;^2;3^Q"
^DD(100.99,23,21,0)="^^13^13^2960418^^^"
^DD(100.99,23,21,1,0)="This field controls the type of review screen that is used"
^DD(100.99,23,21,2,0)="for new/unsigned orders. "
^DD(100.99,23,21,3,0)="Without this parameter, the user has to sign all orders when entering "
^DD(100.99,23,21,4,0)="new orders or presented with new /unsigned orders when"
^DD(100.99,23,21,5,0)="leaving the review screen.  Setting this parameter to 1 (Select) will force"
^DD(100.99,23,21,6,0)="the use of the standard review screen of unsigned orders.  This 'new' screen"
^DD(100.99,23,21,7,0)="allow the user to select the order sign by number, range of numbers or all"
^DD(100.99,23,21,8,0)="orders by entering the keyword ""all"""
^DD(100.99,23,21,9,0)="  "
^DD(100.99,23,21,10,0)="If a site sets the UNSIGNED ORDERS SCREEN parameter to Select, the default"
^DD(100.99,23,21,11,0)="prompt for all users will be 'Accept Orders'.  This default can be overridden"
^DD(100.99,23,21,12,0)="for physicians (holders of the ORES key), by appropriately setting a new"
^DD(100.99,23,21,13,0)="parameter, NEW ORDERS DEFAULT - PROVIDER to 1 - SIGN & RELEASE."
^DD(100.99,23,"DT")="2960215"
^DD(100.99,24,0)="NEW ORDERS DEFAULT - PROVIDER^S^0:ACCEPT ORDERS;1:SIGN & RELEASE;^2;4^Q"
^DD(100.99,24,21,0)="^^3^3^2971219^^^"
^DD(100.99,24,21,1,0)="This parameter determines the default prompt for providers"
^DD(100.99,24,21,2,0)="when the UNSIGNED ORDERS SCREEN parameter is set to SELECT."
^DD(100.99,24,21,3,0)="The default is ACCEPT ORDERS."
^DD(100.99,24,"DT")="2960311"
^DD(100.99,25,0)="HOSPITAL SITE^100.9925P^^25;0"
^DD(100.99,25,3)="Enter parameters here for various sites in the hospital (wards, clinics, etc.)"
^DD(100.99,25,21,0)="^^2^2^2920423^^^^"
^DD(100.99,25,21,1,0)="This field allows parameters to be set up for each location in the "
^DD(100.99,25,21,2,0)="hospital that uses OE/RR."
^DD(100.99,26,0)="CHART COPY FORMAT^P100.23'^ORD(100.23,^2;6^Q"
^DD(100.99,26,3)="Enter the format for the chart copy."
^DD(100.99,26,21,0)="^^2^2^2920224^^^"
^DD(100.99,26,21,1,0)="This is the format used when printing chart copies of the orders for the"
^DD(100.99,26,21,2,0)="hospital."
^DD(100.99,26,"DT")="2910418"
^DD(100.99,27,0)="CHART COPY HEADER^P100.23'^ORD(100.23,^2;7^Q"
^DD(100.99,27,3)="Enter the format for the chart copy header."
^DD(100.99,27,21,0)="^^2^2^2920224^^^"
^DD(100.99,27,21,1,0)="This is the format used to print the header of the chart copies of orders"
^DD(100.99,27,21,2,0)="for the hospital."
^DD(100.99,27,"DT")="2910418"
^DD(100.99,28,0)="CHART COPY FOOTER^P100.23'^ORD(100.23,^2;8^Q"
^DD(100.99,28,3)="Enter the format for the chart copy footer."
^DD(100.99,28,21,0)="^^2^2^2920224^^^"
^DD(100.99,28,21,1,0)="This is the format used to print the footer of the chart copies of orders"
^DD(100.99,28,21,2,0)="for the hospital."
^DD(100.99,28,"DT")="2910418"
^DD(100.99,29,0)="EXPAND CONTINUOUS ORDERS^S^1:EXPAND ON CHART;0:DON'T EXPAND ON CHART;^2;5^Q"
^DD(100.99,29,3)="Specify how continuous orders are to appear on the chart copies."
^DD(100.99,29,21,0)="^^19^19^2920909^^^^"
^DD(100.99,29,21,1,0)="This is a site parameter to enable continuous orders (i.e., orders with a"
^DD(100.99,29,21,2,0)="continuous schedule, e.g., QD or Q4H) to be expanded or not on the chart"
^DD(100.99,29,21,3,0)="copy.  If set to 1 (EXPAND ON CHART) an order for GLUCOSE BLOOD SERUM with"
^DD(100.99,29,21,4,0)="the schedule QD would appear on the chart as:"
^DD(100.99,29,21,5,0)=" "
^DD(100.99,29,21,6,0)="05/17 11:04  GLUCOSE BLOOD SERUM                            Marcus Welby, MD"
^DD(100.99,29,21,7,0)="              LB #805    WC   ROUTINE"
^DD(100.99,29,21,8,0)=" "
^DD(100.99,29,21,9,0)="05/18 11:04  GLUCOSE BLOOD SERUM                            Marcus Welby, MD"
^DD(100.99,29,21,10,0)="              LB #806    WC   ROUTINE"
^DD(100.99,29,21,11,0)=" "
^DD(100.99,29,21,12,0)="05/19 11:04  GLUCOSE BLOOD SERUM                            Marcus Welby, MD"
^DD(100.99,29,21,13,0)="              LB #807    WC   ROUTINE"
^DD(100.99,29,21,14,0)=" "
^DD(100.99,29,21,15,0)="If instead, the field is set to 0 (DON'T EXPAND ON CHART) the same order"
^DD(100.99,29,21,16,0)="would appear as:"
^DD(100.99,29,21,17,0)=" "
^DD(100.99,29,21,18,0)="05/17 11:04  GLUCOSE BLOOD SERUM     QD                     Marcus Welby, MD"
^DD(100.99,29,21,19,0)="05/19 11:04   LB #805    WC   ROUTINE"
^DD(100.99,29,"DT")="2910517"
^DD(100.99,30,0)="STOP DATES FOR GENERIC ORDERS^S^1:YES;0:NO;^2;9^Q"
^DD(100.99,30,3)="An entry of YES will prompt users for the entry of a stop date to be associated with generic text orders."
^DD(100.99,30,21,0)="^^3^3^2951107^^^^"
^DD(100.99,30,21,1,0)="This field will be checked to decide whether stop dates should be prompted"
^DD(100.99,30,21,2,0)="for when generic text orders are entered through OE/RR."
^DD(100.99,30,21,3,0)="An entry of YES will cause users to be prompted."
^DD(100.99,30,"DT")="2950509"
^DD(100.99,31,0)="DEFAULT GENERIC STOP DATE^NJ3,0^^2;10^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(100.99,31,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(100.99,31,21,0)="^^6^6^2951107^^^"
^DD(100.99,31,21,1,0)="This field will accept the number of days in the future that will"
^DD(100.99,31,21,2,0)="determine the default stop date presented to users when placing generic"
^DD(100.99,31,21,3,0)="orders.  "
^DD(100.99,31,21,4,0)=" "
^DD(100.99,31,21,5,0)="Example: An entry of 5 will cause the stop date presented to users to be 5"
^DD(100.99,31,21,6,0)="days from today."
^DD(100.99,31,"DT")="2951024"
^DD(100.99,32,0)="NOTIFICATION TO PHYSICIAN^S^0:ALL;1:INPAT ATTENDING;^2;11^Q"
^DD(100.99,32,21,0)="^^8^8^2971216^^^"
^DD(100.99,32,21,1,0)="This field controls the sending of notifications to attending"
^DD(100.99,32,21,2,0)="and primary physicians.  Set this field to 0 to have both the"
^DD(100.99,32,21,3,0)="attending an primary physicians receive alerts for both inpatients"
^DD(100.99,32,21,4,0)="and outpatients.  Set this field to 1 to have only the attending"
^DD(100.99,32,21,5,0)="physician receive alerts for only inpatients.  The default is to"
^DD(100.99,32,21,6,0)="have both attending and primary physician receive all alerts (0)."
^DD(100.99,32,21,7,0)=" "
^DD(100.99,32,21,8,0)="In any case the ordering provider will always get the alert."
^DD(100.99,32,23,0)="^^2^2^2971216^^^"
^DD(100.99,32,23,1,0)="More codes can be added if the need arises, but will require the"
^DD(100.99,32,23,2,0)="routine ORB to be modified."
^DD(100.99,32,"DT")="2960312"
^DD(100.99,33,0)="LAST LAB CLEAN-UP #^NJ13,1^^2;12^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(100.99,33,3)="Type a Number between 1 and 99999999999, 1 Decimal Digit"
^DD(100.99,33,21,0)="^^2^2^2960312^"
^DD(100.99,33,21,1,0)="This is the last order number that was processed as part of the"
^DD(100.99,33,21,2,0)="Lab order cleanup option."
^DD(100.99,33,"DT")="2960312"
^DD(100.99,34,0)="ALLOW DC REASON^S^0:NO;1:YES;^2;13^Q"
^DD(100.99,34,21,0)="^^12^12^2960502^^^^"
^DD(100.99,34,21,1,0)="This field allows the user to enter a reason for entering a DC"
^DD(100.99,34,21,2,0)="order.  If the reason is DUPLICATE ORDER, then the order is"
^DD(100.99,34,21,3,0)="simply DC'ed and no chart copies are printed or notifications"
^DD(100.99,34,21,4,0)="sent.  If the reason is CHANGE IN THERAPY, then chart copies"
^DD(100.99,34,21,5,0)="and notifications are sent.  DC's resulting from a CHANGE IN"
^DD(100.99,34,21,6,0)="THERAPY are so noted in the text of the DC order.  The"
^DD(100.99,34,21,7,0)="order DC'ed will show the name & title of the user that DC'ed"
^DD(100.99,34,21,8,0)="the order."
^DD(100.99,34,21,9,0)=" "
^DD(100.99,34,21,10,0)="There are 2 cases where the DC Reason prompt does not apply."
^DD(100.99,34,21,11,0)="DC'ing any Generic (text) order will not get the DC Reason prompt."
^DD(100.99,34,21,12,0)="Holders of the ORES key will not get the DC Reason prompt."
^DD(100.99,34,"DT")="2960323"
^DD(100.99,35,0)="ALLOW DC REASON BACKDOOR^S^0:NO;1:YES;^2;14^Q"
^DD(100.99,35,21,0)="^^5^5^2960502^^^^"
^DD(100.99,35,21,1,0)="This field allows the same functionality as the parameter:"
^DD(100.99,35,21,2,0)="ALLOW DC REASON for orders DC'ed from the ancillary packages"
^DD(100.99,35,21,3,0)="(backdoor)."
^DD(100.99,35,21,4,0)=" "
^DD(100.99,35,21,5,0)=" "
^DD(100.99,35,"DT")="2960326"
^DD(100.99,36,0)="DC OF GENERIC ORDERS^S^0:WARD TRANSFER;1:SPECIALTY TRANSFER;^2;15^Q"
^DD(100.99,36,21,0)="^^8^8^2960418^^"
^DD(100.99,36,21,1,0)="This field controls the DC'ing of Generic orders.  If this field"
^DD(100.99,36,21,2,0)="is set to 1, then Generic orders are DC'ed only when a patient's"
^DD(100.99,36,21,3,0)="Treating Specialty changes.  If set to 0, then the Generic orders"
^DD(100.99,36,21,4,0)="are DC'ed when the patient's Ward Location changes."
^DD(100.99,36,21,5,0)="   "
^DD(100.99,36,21,6,0)="The automatic DC'ing of orders only happens when one of the protocols"
^DD(100.99,36,21,7,0)="OR GUA DC GEN ORD ON TRANS* are placed on the DGPM MOVEMENT EVENTS"
^DD(100.99,36,21,8,0)="protocol."
^DD(100.99,36,"DT")="2960328"
^DD(100.99,37,0)="LAPSE DAYS^NJ3,0^^2;16^K:+X'=X!(X>900)!(X<7)!(X?.E1"".""1N.N) X"
^DD(100.99,37,3)="Type a Number between 7 and 900, 0 Decimal Digits"
^DD(100.99,37,21,0)="^^16^16^2960418^^^"
^DD(100.99,37,21,1,0)="The Lab Order clean-up utility on the ORE MGR menu looks at this field"
^DD(100.99,37,21,2,0)="to decide when to put pending lab orders with old start dates in"
^DD(100.99,37,21,3,0)="a lapsed state.  Orders with a Lapsed status (l) are no longer shown"
^DD(100.99,37,21,4,0)="in the current orders context."
^DD(100.99,37,21,5,0)="This is used as a default for order clean-up.  A new menu of"
^DD(100.99,37,21,6,0)="clean-up utilities (ORE MGR) is being exported with items ORE XREF and ORE"
^DD(100.99,37,21,7,0)="LAB ORDER CLEANUP.  The ORE XREF (Clean-up OE/RR Cross References) option"
^DD(100.99,37,21,8,0)="will check cross references in file 100 for accuracy.  The ORE LAB ORDER"
^DD(100.99,37,21,9,0)="CLEANUP (Clean-up Lab Orders in OE/RR and Lab files) option will check for"
^DD(100.99,37,21,10,0)="inconsistencies between OR/RR and Lab files and attempts to correct them."
^DD(100.99,37,21,11,0)="The Lab Order clean-up utility on the ORE MGR menu looks at LAPSE DAYS to"
^DD(100.99,37,21,12,0)="decide when to put pending lab orders with old start dates in a lapsed state."
^DD(100.99,37,21,13,0)="Orders with a Lapsed status (l) are no longer shown in the current orders"
^DD(100.99,37,21,14,0)="context.  Another parameters is being exported called LAST LAB CLEAN-UP."
^DD(100.99,37,21,15,0)="This holds the last ORIFN that was processed during the last clean-up, and is"
^DD(100.99,37,21,16,0)="used as a default number to start with the next time the option is run."
^DD(100.99,37,"DT")="2960328"
^DD(100.99,38,0)="RESTRICT REQUESTOR^S^0:NO;1:YES (ORELSE);2:YES (ORELSE & OREMAS);^2;17^Q"
^DD(100.99,38,21,0)="^^8^8^2970122^^^^"
^DD(100.99,38,21,1,0)="This field allows a site to restrict the selection of providers"
^DD(100.99,38,21,2,0)="when adding new orders at the 'Requesting CLINICIAN: ' prompt for"
^DD(100.99,38,21,3,0)="holders of the ORELSE and OREMAS key.  The restriction being that"
^DD(100.99,38,21,4,0)="they cannot select themselves as the requestor even though they may"
^DD(100.99,38,21,5,0)="also hold the PROVIDER key."
^DD(100.99,38,21,6,0)=" "
^DD(100.99,38,21,7,0)="  1 YES (ORELSE)          -restricts only holders of the ORELSE key."
^DD(100.99,38,21,8,0)="  2 YES (ORELSE & OREMAS) -restricts holders of either key."
^DD(100.99,38,"DT")="2960422"
^DD(100.99,39,0)="AUTO UNFLAG^S^0:NO;1:YES;^2;18^Q"
^DD(100.99,39,21,0)="^^3^3^2960417^"
^DD(100.99,39,21,1,0)="This parameter, when set to YES, will automatically cancel"
^DD(100.99,39,21,2,0)="the Flag Orders Notification and unflag all orders for a"
^DD(100.99,39,21,3,0)="patient when a user process a Flagged Orders Notification."
^DD(100.99,39,"DT")="2960417"
^DD(100.99,101,0)="CONVERTED PROTOCOLS^100.99101P^^101;0"
^DD(100.99,101,21,0)="^^2^2^2970915^^"
^DD(100.99,101,21,1,0)="This is a list of the protocols for which corresponding entries have been"
^DD(100.99,101,21,2,0)="created in the Order Dialog file."
^DD(100.99,101.41,0)="UNSUCCESSFUL DIALOGS^100.99141P^^101.41;0"
^DD(100.99,101.41,21,0)="^^2^2^2970915^"
^DD(100.99,101.41,21,1,0)="This is a list of the protocols for which corresponding entries were not"
^DD(100.99,101.41,21,2,0)="successfully created in the Order Dialog file."
^DD(100.99,200,0)="LAST USER PREFERENCE CONVERTED^NJ7,0^^200;1^K:+X'=X!(X>9999999)!(X<-1)!(X?.E1"".""1N.N) X"
^DD(100.99,200,3)="Type a Number between -1 and 9999999, 0 Decimal Digits"
^DD(100.99,200,21,0)="^^2^2^2970915^^"
^DD(100.99,200,21,1,0)="This field contains the last entry processed in the New Person file #200"
^DD(100.99,200,21,2,0)="when converting Add Orders menus in the post-init of CPRS."
^DD(100.99,200,"DT")="2970915"
^DD(100.99,201,0)="CONVERSION COMPLETED^S^1:YES;^200;2^Q"
^DD(100.99,201,3)="Enter YES if the menu conversion is completed."
^DD(100.99,201,21,0)="^^2^2^2970915^^"
^DD(100.99,201,21,1,0)="This field is a flag to determine if the conversion of the Add Orders"
^DD(100.99,201,21,2,0)="menus from the Protocol file to the Order Dialog file is completed."
^DD(100.99,201,"DT")="2970915"
^DD(100.99,300,0)="OR3 PATIENTS TO CONVERT^100.9903PA^^PTCONV;0"
^DD(100.99,300,21,0)="^^3^3^2970809^"
^DD(100.99,300,21,1,0)="This multiple will store patients that have not yet been converted by the"
^DD(100.99,300,21,2,0)="OE/RR version 3.0 (CPRS) orders conversion.  It is maintained by the"
^DD(100.99,300,21,3,0)="conversion and should not be edited or updated."
^DD(100.99,"B","ACTIVE ORDERS CONTEXT HOURS",8)=""
^DD(100.99,"B","ADD MENU DEFAULT",4)=""
^DD(100.99,"B","ALLOW DC REASON",34)=""
^DD(100.99,"B","ALLOW DC REASON BACKDOOR",35)=""
^DD(100.99,"B","AUTO UNFLAG",39)=""
^DD(100.99,"B","CHART COPY FOOTER",28)=""
^DD(100.99,"B","CHART COPY FORMAT",26)=""
^DD(100.99,"B","CHART COPY HEADER",27)=""
^DD(100.99,"B","CONFIRM PROVIDER",18)=""
^DD(100.99,"B","CONVERSION COMPLETED",201)=""
^DD(100.99,"B","CONVERTED PROTOCOLS",101)=""
^DD(100.99,"B","CURRENT ORDER #",1)=""
^DD(100.99,"B","DC OF GENERIC ORDERS",36)=""
^DD(100.99,"B","DEBUG",16)=""
^DD(100.99,"B","DEFAULT GENERIC STOP DATE",31)=""
^DD(100.99,"B","DEFAULT PROVIDER",12)=""
^DD(100.99,"B","ELECTRONIC RECORD",22)=""
^DD(100.99,"B","ELECTRONIC SIGNATURE",21)=""
^DD(100.99,"B","ERROR DAYS",15)=""
^DD(100.99,"B","EXPAND CONTINUOUS ORDERS",29)=""
^DD(100.99,"B","HOSPITAL SITE",25)=""
^DD(100.99,"B","INITIALS ON SUMMARY",11)=""
^DD(100.99,"B","INSTALLATION FLAG",17)=""
^DD(100.99,"B","LAPSE DAYS",37)=""
^DD(100.99,"B","LAST LAB CLEAN-UP #",33)=""
^DD(100.99,"B","LAST ORDER PURGED",14)=""
^DD(100.99,"B","LAST PURGE DATE",13)=""
^DD(100.99,"B","LAST USER PREFERENCE CONVERTED",200)=""
^DD(100.99,"B","NAME",.01)=""
^DD(100.99,"B","NEW ORDERS DEFAULT - PROVIDER",24)=""
^DD(100.99,"B","NOTIFICATION TO PHYSICIAN",32)=""
^DD(100.99,"B","NUMBER",.001)=""
^DD(100.99,"B","OR3 BACKGROUND JOB STAGE",3.08)=""
^DD(100.99,"B","OR3 BACKGROUND JOB START",3.06)=""
^DD(100.99,"B","OR3 BACKGROUND JOB STOP",3.07)=""
^DD(100.99,"B","OR3 BACKGROUND JOB STOP?",3.11)=""
^DD(100.99,"B","OR3 BACKGROUND JOB TASK",3.1)=""
^DD(100.99,"B","OR3 BACKGROUND JOB UP TO",3.09)=""
^DD(100.99,"B","OR3 CONVERSION COMPLETE?",3.01)=""
^DD(100.99,"B","OR3 INPATIENT CONVERSION START",3.02)=""
^DD(100.99,"B","OR3 INPATIENT CONVERSION STOP",3.03)=""
^DD(100.99,"B","OR3 INPATIENT DFN UP TO",3.05)=""
^DD(100.99,"B","OR3 INPATIENT LOCATION UP TO",3.04)=""
^DD(100.99,"B","OR3 PATIENTS CONVERTED",3.12)=""
^DD(100.99,"B","OR3 PATIENTS TO CONVERT",300)=""
^DD(100.99,"B","PACKAGE PARAMETERS",5)=""
^DD(100.99,"B","PACKAGE SITE PARAMETERS",20)=""
^DD(100.99,"B","RESTRICT REQUESTOR",38)=""
^DD(100.99,"B","REVIEW ON PATIENT MVMT",9)=""
^DD(100.99,"B","SHOW LAB #",19)=""
^DD(100.99,"B","SHOW PATIENT NAME",7)=""
^DD(100.99,"B","SHOW STATUS DESCRIPTION",6)=""
^DD(100.99,"B","SINGLE USER/SUSPEND FILER",10)=""
^DD(100.99,"B","STOP DATES FOR GENERIC ORDERS",30)=""
^DD(100.99,"B","SYSTEM PARAMETERS",2)=""
^DD(100.99,"B","TREATING SPECIALTY",3)=""
^DD(100.99,"B","UNSIGNED ORDERS SCREEN",23)=""
^DD(100.99,"B","UNSUCCESSFUL DIALOGS",101.41)=""
^DD(100.99,"GL",0,1,.01)=""
^DD(100.99,"GL",0,2,1)=""
^DD(100.99,"GL",0,3,3)=""
^DD(100.99,"GL",0,4,10)=""
^DD(100.99,"GL",0,5,13)=""
^DD(100.99,"GL",0,6,14)=""
^DD(100.99,"GL",0,7,15)=""
^DD(100.99,"GL",0,8,16)=""
^DD(100.99,"GL",0,9,4)=""
^DD(100.99,"GL",0,10,6)=""
^DD(100.99,"GL",0,11,7)=""
^DD(100.99,"GL",0,12,8)=""
^DD(100.99,"GL",0,13,9)=""
^DD(100.99,"GL",0,14,11)=""
^DD(100.99,"GL",0,15,12)=""
^DD(100.99,"GL",0,16,17)=""
^DD(100.99,"GL",0,17,18)=""
^DD(100.99,"GL",0,18,19)=""
^DD(100.99,"GL",1,0,2)=""
^DD(100.99,"GL",2,1,21)=""
^DD(100.99,"GL",2,2,22)=""
^DD(100.99,"GL",2,3,23)=""
^DD(100.99,"GL",2,4,24)=""
^DD(100.99,"GL",2,5,29)=""
^DD(100.99,"GL",2,6,26)=""
^DD(100.99,"GL",2,7,27)=""
^DD(100.99,"GL",2,8,28)=""
^DD(100.99,"GL",2,9,30)=""
^DD(100.99,"GL",2,10,31)=""
^DD(100.99,"GL",2,11,32)=""
^DD(100.99,"GL",2,12,33)=""
^DD(100.99,"GL",2,13,34)=""
^DD(100.99,"GL",2,14,35)=""
^DD(100.99,"GL",2,15,36)=""
^DD(100.99,"GL",2,16,37)=""
^DD(100.99,"GL",2,17,38)=""
^DD(100.99,"GL",2,18,39)=""
^DD(100.99,"GL",5,0,5)=""
^DD(100.99,"GL",20,0,20)=""
^DD(100.99,"GL",25,0,25)=""
^DD(100.99,"GL",101,0,101)=""
^DD(100.99,"GL",101.41,0,101.41)=""
^DD(100.99,"GL",200,1,200)=""
^DD(100.99,"GL",200,2,201)=""
^DD(100.99,"GL","CONV",1,3.01)=""
^DD(100.99,"GL","CONV",2,3.02)=""
^DD(100.99,"GL","CONV",3,3.03)=""
^DD(100.99,"GL","CONV",4,3.04)=""
^DD(100.99,"GL","CONV",5,3.05)=""
^DD(100.99,"GL","CONV",6,3.06)=""
^DD(100.99,"GL","CONV",7,3.07)=""
^DD(100.99,"GL","CONV",8,3.08)=""
^DD(100.99,"GL","CONV",9,3.09)=""
^DD(100.99,"GL","CONV",10,3.1)=""
^DD(100.99,"GL","CONV",11,3.11)=""
^DD(100.99,"GL","CONV",12,3.12)=""
^DD(100.99,"GL","PTCONV",0,300)=""
^DD(100.99,"IX",.01)=""
^DD(100.99,"RQ",.01)=""
^DD(100.99,"RQ",3.01)=""
^DD(100.99,"RQ",3.02)=""
^DD(100.99,"RQ",3.03)=""
^DD(100.99,"RQ",3.06)=""
^DD(100.99,"RQ",3.07)=""
^DD(100.99,"SB",100.9901,20)=""
^DD(100.99,"SB",100.9903,300)=""
^DD(100.99,"SB",100.99101,101)=""
^DD(100.99,"SB",100.99141,101.41)=""
^DD(100.99,"SB",100.992,2)=""
^DD(100.99,"SB",100.9925,25)=""
^DD(100.99,"SB",100.995,5)=""
^DD(100.9901,0)="PACKAGE SITE PARAMETERS SUB-FIELD^^1^9"
^DD(100.9901,0,"DT")="2920713"
^DD(100.9901,0,"NM","PACKAGE SITE PARAMETERS")=""
^DD(100.9901,0,"UP")="100.99"
^DD(100.9901,.01,0)="PACKAGE SITE PARAMETERS^MP9.4'X^DIC(9.4,^0;1^S DINUM=X"
^DD(100.9901,.01,1,0)="^.1^^0"
^DD(100.9901,.01,3)="Enter the name of the package to enter hospital parameters."
^DD(100.9901,.01,21,0)="^^2^2^2920224^^^"
^DD(100.9901,.01,21,1,0)="This field is a pointer to the PACKAGE file and is used to define"
^DD(100.9901,.01,21,2,0)="package parameters at the site."
^DD(100.9901,.01,"DT")="2910208"
^DD(100.9901,.02,0)="ON^S^0:NO;1:YES;^0;2^Q"
^DD(100.9901,.02,3)="Enter YES to turn on the interface for this package."
^DD(100.9901,.02,21,0)="^^6^6^2920224^^^^"
^DD(100.9901,.02,21,1,0)="This field is used to turn on or off order entry for a given package."
^DD(100.9901,.02,21,2,0)="If turned off, the OE/RR routines will not create new entries in File"
^DD(100.9901,.02,21,3,0)="100 for this package."
^DD(100.9901,.02,21,4,0)=" "
^DD(100.9901,.02,21,5,0)="Once a package is turned on, it should be left on to keep the ancillary"
^DD(100.9901,.02,21,6,0)="package and the OE/RR package concurrent."
^DD(100.9901,.02,"DT")="2910208"
^DD(100.9901,.03,0)="WARD LABEL FORMAT^P100.23'^ORD(100.23,^0;3^Q"
^DD(100.9901,.03,3)="Enter the ward label format for this package."
^DD(100.9901,.03,21,0)="^^2^2^2920224^^^^"
^DD(100.9901,.03,21,1,0)="This is the label format to be used when printing labels for this"
^DD(100.9901,.03,21,2,0)="package."
^DD(100.9901,.03,"DT")="2910418"
^DD(100.9901,.04,0)="WARD REQUISITION FORMAT^P100.23'^ORD(100.23,^0;4^Q"
^DD(100.9901,.04,3)="Enter the ward requisition format for this package."
^DD(100.9901,.04,21,0)="^^2^2^2920224^^^^"
^DD(100.9901,.04,21,1,0)="This is the requisition format to be used when printing requisitions"
^DD(100.9901,.04,21,2,0)="for this package."
^DD(100.9901,.04,"DT")="2910418"
^DD(100.9901,.05,0)="SERVICE COPY DEFAULT DEVICE^P3.5'^%ZIS(1,^0;5^Q"
^DD(100.9901,.05,3)="Enter the Service copy default device for this package."
^DD(100.9901,.05,21,0)="^^4^4^2920714^^^^"
^DD(100.9901,.05,21,1,0)="This is the printer that is to be used when printing order copies"
^DD(100.9901,.05,21,2,0)="to the service for this package.  NOTE:  If SERVICE COPY PRINT DEVICE(s)"
^DD(100.9901,.05,21,3,0)="are defined in the HOSPITAL SITE multiple for this package, then copies "
^DD(100.9901,.05,21,4,0)="will be printed to THOSE devices, overriding the DEFAULT."
^DD(100.9901,.05,"DT")="2920714"
^DD(100.9901,.06,0)="SERVICE COPY FORMAT^P100.23'^ORD(100.23,^0;6^Q"
^DD(100.9901,.06,3)="Enter the Service copy format for this package."
^DD(100.9901,.06,21,0)="^^2^2^2920224^^^"
^DD(100.9901,.06,21,1,0)="This is the format to be used when printing order copies to the"
^DD(100.9901,.06,21,2,0)="service for this package."
^DD(100.9901,.06,"DT")="2920130"
^DD(100.9901,.07,0)="SERVICE COPY HEADER^P100.23'^ORD(100.23,^0;7^Q"
^DD(100.9901,.07,3)="Enter the Service copy header for this package."
^DD(100.9901,.07,21,0)="^^2^2^2920224^^^"
^DD(100.9901,.07,21,1,0)="This is the format to be used for the header portion of the order "
^DD(100.9901,.07,21,2,0)="copy to the service for this package."
^DD(100.9901,.07,"DT")="2920130"
^DD(100.9901,.08,0)="SERVICE COPY FOOTER^P100.23'^ORD(100.23,^0;8^Q"
^DD(100.9901,.08,3)="Enter the Service copy footer for this package."
^DD(100.9901,.08,21,0)="^^2^2^2920224^^^"
^DD(100.9901,.08,21,1,0)="This is the format to be used for the footer portion of the order"
^DD(100.9901,.08,21,2,0)="copy to the service for this package."
^DD(100.9901,.08,"DT")="2920130"
^DD(100.9901,1,0)="HOSPITAL SITE^100.99011P^^1;0"
^DD(100.9901,1,21,0)="^^3^3^2920714^^"
^DD(100.9901,1,21,1,0)="This multiple allows each package to have multiple service copy print"
^DD(100.9901,1,21,2,0)="devices.  Such a model is often necessary at multidivisional sites, or"
^DD(100.9901,1,21,3,0)="for DHCP packages which serve multiple hospital services."
^DD(100.9901,"B","HOSPITAL SITE",1)=""
^DD(100.9901,"B","ON",.02)=""
^DD(100.9901,"B","PACKAGE SITE PARAMETERS",.01)=""
^DD(100.9901,"B","SERVICE COPY DEFAULT DEVICE",.05)=""
^DD(100.9901,"B","SERVICE COPY FOOTER",.08)=""
^DD(100.9901,"B","SERVICE COPY FORMAT",.06)=""
^DD(100.9901,"B","SERVICE COPY HEADER",.07)=""
^DD(100.9901,"B","WARD LABEL FORMAT",.03)=""
^DD(100.9901,"B","WARD REQUISITION FORMAT",.04)=""
^DD(100.9901,"GL",0,1,.01)=""
^DD(100.9901,"GL",0,2,.02)=""
^DD(100.9901,"GL",0,3,.03)=""
^DD(100.9901,"GL",0,4,.04)=""
^DD(100.9901,"GL",0,5,.05)=""
^DD(100.9901,"GL",0,6,.06)=""
^DD(100.9901,"GL",0,7,.07)=""
^DD(100.9901,"GL",0,8,.08)=""
^DD(100.9901,"GL",1,0,1)=""
^DD(100.9901,"SB",100.99011,1)=""
^DD(100.99011,0)="HOSPITAL SITE SUB-FIELD^^.02^2"
^DD(100.99011,0,"DT")="2920713"
^DD(100.99011,0,"NM","HOSPITAL SITE")=""
^DD(100.99011,0,"UP")="100.9901"
^DD(100.99011,.01,0)="HOSPITAL SITE^MP44'X^SC(^0;1^S DINUM=X"
^DD(100.99011,.01,1,0)="^.1^^0"
^DD(100.99011,.01,3)="Enter the ordering location."
^DD(100.99011,.01,21,0)="^^4^4^2920714^^"
^DD(100.99011,.01,21,1,0)="This is the PATIENT's location within the hospital at the time when the"
^DD(100.99011,.01,21,2,0)="order is placed.  Inpatient locations are known to the system, whereas"
^DD(100.99011,.01,21,3,0)="outpatient ordering locations are asked of the user at the time when the"
^DD(100.99011,.01,21,4,0)="order is entered."
^DD(100.99011,.01,"DT")="2920713"
^DD(100.99011,.02,0)="SERVICE COPY PRINT DEVICE^P3.5'^%ZIS(1,^0;2^Q"
^DD(100.99011,.02,3)="Enter the service copy printer for this package at the given location."
^DD(100.99011,.02,21,0)="^^6^6^2920714^^"
^DD(100.99011,.02,21,1,0)="This is the device to which service copies will be printed for the"
^DD(100.99011,.02,21,2,0)="corresponding hospital location.  (e.g., if the patient is admitted"
^DD(100.99011,.02,21,3,0)="to ward 1A, for which the SERVICE COPY PRINT DEVICE is called P1A,"
^DD(100.99011,.02,21,4,0)="for the IV MEDICATIONS package, then service copies of all of that"
^DD(100.99011,.02,21,5,0)="patient's IV orders will be printed to P1A, overriding the SERVICE "
^DD(100.99011,.02,21,6,0)="COPY DEFAULT DEVICE, if one has been defined."
^DD(100.99011,.02,"DT")="2920713"
^DD(100.99011,"B","HOSPITAL SITE",.01)=""
^DD(100.99011,"B","SERVICE COPY PRINT DEVICE",.02)=""
^DD(100.99011,"GL",0,1,.01)=""
^DD(100.99011,"GL",0,2,.02)=""
^DD(100.9903,0)="OR3 PATIENTS TO CONVERT SUB-FIELD^^.01^1"
^DD(100.9903,0,"DT")="2970809"
^DD(100.9903,0,"IX","B",100.9903,.01)=""
^DD(100.9903,0,"NM","OR3 PATIENTS TO CONVERT")=""
^DD(100.9903,0,"UP")="100.99"
^DD(100.9903,.01,0)="OR3 PATIENTS TO CONVERT^P2'X^DPT(^0;1^S DINUM=X"
^DD(100.9903,.01,1,0)="^.1"
^DD(100.9903,.01,1,1,0)="100.9903^B"
^DD(100.9903,.01,1,1,1)="S ^ORD(100.99,DA(1),""PTCONV"",""B"",$E(X,1,30),DA)="""""
^DD(100.9903,.01,1,1,2)="K ^ORD(100.99,DA(1),""PTCONV"",""B"",$E(X,1,30),DA)"
^DD(100.9903,.01,3)="This field will store the patients that have not been converted or are in the process of being converted by teh OE/RR v3 orders conversion."
^DD(100.9903,.01,21,0)="^^2^2^2970809^"
^DD(100.9903,.01,21,1,0)="This multiple is maintained by the OE/RR version 3 orders conversion.  It"
^DD(100.9903,.01,21,2,0)="will keep a list of patients that have not yet been converted."
^DD(100.9903,.01,"DT")="2970809"
^DD(100.9903,"B","OR3 PATIENTS TO CONVERT",.01)=""
^DD(100.9903,"GL",0,1,.01)=""
^DD(100.9903,"IX",.01)=""
^DD(100.99101,0)="CONVERTED PROTOCOLS SUB-FIELD^^1^2"
^DD(100.99101,0,"DT")="2970915"
^DD(100.99101,0,"IX","B",100.99101,.01)=""
^DD(100.99101,0,"NM","CONVERTED PROTOCOLS")=""
^DD(100.99101,0,"UP")="100.99"
^DD(100.99101,.01,0)="PROTOCOL^MP101'X^ORD(101,^0;1^S DINUM=X"
^DD(100.99101,.01,1,0)="^.1"
^DD(100.99101,.01,1,1,0)="100.99101^B"
^DD(100.99101,.01,1,1,1)="S ^ORD(100.99,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(100.99101,.01,1,1,2)="K ^ORD(100.99,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(100.99101,.01,3)="Enter the name of the protocol with a corresponding entry in the Order Dialog file."
^DD(100.99101,.01,21,0)="^^2^2^2970915^"
^DD(100.99101,.01,21,1,0)="This is a protocol for which an entry in the Order Dialog file has been"
^DD(100.99101,.01,21,2,0)="successfully created."
^DD(100.99101,.01,"DT")="2970915"
^DD(100.99101,1,0)="LAST ITEM CONVERTED^NJ6,2^^0;2^K:+X'=X!(X>999.99)!(X<-1)!(X?.E1"".""3N.N) X"
^DD(100.99101,1,3)="Type a Number between -1 and 999.99, 2 Decimal Digits"
^DD(100.99101,1,21,0)="^^4^4^2970915^"
^DD(100.99101,1,21,1,0)="This field contains the sequence number of the last item converted for"
^DD(100.99101,1,21,2,0)="protocols of type menu, protocol menu, and extended action; when all"
^DD(100.99101,1,21,3,0)="the items under this protocol have been converted, this value will be"
^DD(100.99101,1,21,4,0)="set to -1."
^DD(100.99101,1,"DT")="2970915"
^DD(100.99101,"B","LAST ITEM CONVERTED",1)=""
^DD(100.99101,"B","PROTOCOL",.01)=""
^DD(100.99101,"GL",0,1,.01)=""
^DD(100.99101,"GL",0,2,1)=""
^DD(100.99101,"IX",.01)=""
^DD(100.99141,0)="UNSUCCESSFUL DIALOGS SUB-FIELD^^1^2"
^DD(100.99141,0,"DT")="2970915"
^DD(100.99141,0,"IX","B",100.99141,.01)=""
^DD(100.99141,0,"NM","UNSUCCESSFUL DIALOGS")=""
^DD(100.99141,0,"UP")="100.99"
^DD(100.99141,.01,0)="PROTOCOL^MP101'X^ORD(101,^0;1^S DINUM=X"
^DD(100.99141,.01,1,0)="^.1"
^DD(100.99141,.01,1,1,0)="100.99141^B"
^DD(100.99141,.01,1,1,1)="S ^ORD(100.99,DA(1),101.41,""B"",$E(X,1,30),DA)="""""
^DD(100.99141,.01,1,1,2)="K ^ORD(100.99,DA(1),101.41,""B"",$E(X,1,30),DA)"
^DD(100.99141,.01,3)="Enter the name of a protocol that was not successfully converted to an Order Dialog."
^DD(100.99141,.01,21,0)="^^2^2^2970915^"
^DD(100.99141,.01,21,1,0)="This is a protocol for which an entry in the Order Dialog file has not"
^DD(100.99141,.01,21,2,0)="been successfully created."
^DD(100.99141,.01,"DT")="2970915"
^DD(100.99141,1,0)="ERROR MESSAGE^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(100.99141,1,3)="Answer must be 1-100 characters in length."
^DD(100.99141,1,21,0)="^^2^2^2970915^"
^DD(100.99141,1,21,1,0)="This is the reason why this protocol could not be converted to an"
^DD(100.99141,1,21,2,0)="Order Dialog entry."
^DD(100.99141,1,"DT")="2970915"
^DD(100.99141,"B","ERROR MESSAGE",1)=""
^DD(100.99141,"B","PROTOCOL",.01)=""
^DD(100.99141,"GL",0,1,.01)=""
^DD(100.99141,"GL",0,2,1)=""
^DD(100.99141,"IX",.01)=""
^DD(100.992,0)="SYSTEM PARAMETERS SUB-FIELD^^1^3"
^DD(100.992,0,"IX","B",100.992,.01)=""
^DD(100.992,0,"NM","SYSTEM PARAMETERS")=""
^DD(100.992,0,"UP")="100.99"
^DD(100.992,.001,0)="NUMBER^NJ4,0X^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S:'(X#10) X=X+1"
^DD(100.992,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(100.992,.001,21,0)="^^1^1^2920224^^^^"
^DD(100.992,.001,21,1,0)="This is the number of the entry."
^DD(100.992,.001,"DT")="2871201"
^DD(100.992,.01,0)="SYSTEM PARAMETERS^MRF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(100.992,.01,1,0)="^.1"
^DD(100.992,.01,1,1,0)="100.992^B"
^DD(100.992,.01,1,1,1)="S ^ORD(100.99,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(100.992,.01,1,1,2)="K ^ORD(100.99,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(100.992,.01,3)="Enter the name of the CPU as found in ^%ZOSF(""VOL"")."
^DD(100.992,.01,4)="W !,""The ^%ZOSF(""""VOL"""") node on this system is equal to: ""_^%ZOSF(""VOL"")"
^DD(100.992,.01,21,0)="^^3^3^2920224^^^^"
^DD(100.992,.01,21,1,0)="This is the name of the system as found in the global node"
^DD(100.992,.01,21,2,0)="^%ZOSF(""VOL"").  An entry should be made here for each CPU"
^DD(100.992,.01,21,3,0)="system that generates orders."
^DD(100.992,.01,"DT")="2871029"
^DD(100.992,1,0)="EVENT FILER SHUTDOWN^SI^0:NO;1:YES;^0;2^Q"
^DD(100.992,1,3)="Do not enter anything here."
^DD(100.992,1,21,0)="^^2^2^2920224^^^^"
^DD(100.992,1,21,1,0)="This field is used by the option ORTRNOFF to shutdown the"
^DD(100.992,1,21,2,0)="OE/RR background filer. It is not to be edited."
^DD(100.992,1,"DT")="2890316"
^DD(100.992,"B","EVENT FILER SHUTDOWN",1)=""
^DD(100.992,"B","NUMBER",.001)=""
^DD(100.992,"B","SYSTEM PARAMETERS",.01)=""
^DD(100.992,"GL",0,1,.01)=""
^DD(100.992,"GL",0,2,1)=""
^DD(100.992,"IX",.01)=""
^DD(100.992,"RQ",.01)=""
^DD(100.9925,0)="HOSPITAL SITE SUB-FIELD^^1.1^10"
^DD(100.9925,0,"DT")="2920304"
^DD(100.9925,0,"IX","B",100.9925,.01)=""
^DD(100.9925,0,"NM","HOSPITAL SITE")=""
^DD(100.9925,0,"UP")="100.99"
^DD(100.9925,.01,0)="HOSPITAL SITE^MP44'X^SC(^0;1^S DINUM=X"
^DD(100.9925,.01,1,0)="^.1"
^DD(100.9925,.01,1,1,0)="100.9925^B"
^DD(100.9925,.01,1,1,1)="S ^ORD(100.99,DA(1),25,""B"",$E(X,1,30),DA)="""""
^DD(100.9925,.01,1,1,2)="K ^ORD(100.99,DA(1),25,""B"",$E(X,1,30),DA)"
^DD(100.9925,.01,3)="Enter the name of the hospital location (ward, clinic) for these parameters."
^DD(100.9925,.01,21,0)="^^1^1^2920224^^^"
^DD(100.9925,.01,21,1,0)="This is the hospital site for which these parameters apply."
^DD(100.9925,.01,"DT")="2910215"
^DD(100.9925,.03,0)="PROMPT FOR CHART COPY^S^0:DON'T PROMPT;1:PROMPT AND ASK DEVICE;2:PROMPT AND NOT ASK DEVICE;*:DON'T PRINT;^0;3^Q"
^DD(100.9925,.03,3)="Specify how the printing of chart copies will work for this location."
^DD(100.9925,.03,21,0)="^^7^7^2920224^^^^"
^DD(100.9925,.03,21,1,0)="This field allows various levels of user interaction for printing a"
^DD(100.9925,.03,21,2,0)="chart copy of the orders."
^DD(100.9925,.03,21,3,0)=" "
^DD(100.9925,.03,21,4,0)="  ENTER 0 for no prompts- chart copy is automatically generated."
^DD(100.9925,.03,21,5,0)="        1 to prompt for chart copy and ask which printer should be used."
^DD(100.9925,.03,21,6,0)="        2 to prompt for chart copy and automatically print to the"
^DD(100.9925,.03,21,7,0)="          printer defined in the CHART COPY PRINT DEVICE field."
^DD(100.9925,.03,21,8,0)="        * to disable automatic printing of the CHART COPY."
^DD(100.9925,.03,22)=""
^DD(100.9925,.03,"DT")="2910717"
^DD(100.9925,.04,0)="CHART COPY PRINT DEVICE^P3.5'^%ZIS(1,^0;4^Q"
^DD(100.9925,.04,3)="Enter name of printer for printing chart copies."
^DD(100.9925,.04,21,0)="^^5^5^2920224^^^^"
^DD(100.9925,.04,21,1,0)="This is the printer on the ward/clinic/other where the chart copy"
^DD(100.9925,.04,21,2,0)="should be printed.  If the field PROMPT FOR CHART COPY is 0 or 2, this"
^DD(100.9925,.04,21,3,0)="printer is automatically used to print the report.  If the field"
^DD(100.9925,.04,21,4,0)="PROMPT FOR CHART COPY is 1, the user is asked for device with"
^DD(100.9925,.04,21,5,0)="the entry in this field as a default."
^DD(100.9925,.04,"DT")="2910418"
^DD(100.9925,.05,0)="LABEL PRINT DEVICE^P3.5'^%ZIS(1,^0;5^Q"
^DD(100.9925,.05,3)="Enter name of printer for printing labels."
^DD(100.9925,.05,21,0)="^^5^5^2920224^^^^"
^DD(100.9925,.05,21,1,0)="This is the printer on the ward/clinic/other where the label should"
^DD(100.9925,.05,21,2,0)="be printed.  If the field PROMPT FOR LABELS is 0 or 2, this printer"
^DD(100.9925,.05,21,3,0)="is automatically used to print the labels.  If the field PROMPT FOR"
^DD(100.9925,.05,21,4,0)="LABELS is 1, the user is asked for device with the entry in this field"
^DD(100.9925,.05,21,5,0)="as a default."
^DD(100.9925,.05,"DT")="2910215"
^DD(100.9925,.06,0)="REQUISITION PRINT DEVICE^P3.5'^%ZIS(1,^0;6^Q"
^DD(100.9925,.06,3)="Enter name of printer for printing requisitions."
^DD(100.9925,.06,21,0)="^^5^5^2920224^^^^"
^DD(100.9925,.06,21,1,0)="This is the printer on the ward/clinic/other where the requisition"
^DD(100.9925,.06,21,2,0)="should be printed.  If the field PROMPT FOR REQUISITIONS is 0 or 2,"
^DD(100.9925,.06,21,3,0)="this printer is automatically used to print the requisitions.  If the"
^DD(100.9925,.06,21,4,0)="field PROMPT FOR REQUISITIONS is 1, the user is asked for device with"
^DD(100.9925,.06,21,5,0)="the entry in this field as a default."
^DD(100.9925,.06,"DT")="2910215"
^DD(100.9925,.07,0)="PROMPT FOR LABELS^S^0:DON'T PROMPT;1:PROMPT AND ASK DEVICE;2:PROMPT AND NOT ASK DEVICE;*:DON'T PRINT;^0;7^Q"
^DD(100.9925,.07,3)="Specify how the printing of labels will work for this location."
^DD(100.9925,.07,21,0)="^^7^7^2920224^^^^"
^DD(100.9925,.07,21,1,0)="This field allows various levels of user interaction for printing a "
^DD(100.9925,.07,21,2,0)="label on the ward for orders."
^DD(100.9925,.07,21,3,0)=" "
^DD(100.9925,.07,21,4,0)="  ENTER 0 for no prompts- labels are automatically generated."
^DD(100.9925,.07,21,5,0)="        1 to prompt for labels and ask which printer should be used."
^DD(100.9925,.07,21,6,0)="        2 to prompt for labels and automatically print to the printer"
^DD(100.9925,.07,21,7,0)="          defined in the LABEL PRINT DEVICE field."
^DD(100.9925,.07,21,8,0)="        * to disable automatic printing of LABELS."
^DD(100.9925,.07,"DT")="2910717"
^DD(100.9925,.08,0)="PROMPT FOR REQUISITIONS^S^0:DON'T PROMPT;1:PROMPT AND ASK DEVICE;2:PROMPT AND NOT ASK DEVICE;*:DON'T PRINT;^0;8^Q"
^DD(100.9925,.08,3)="Specify how the printing of labels will work for this location."
^DD(100.9925,.08,21,0)="^^7^7^2920423^^^^"
^DD(100.9925,.08,21,1,0)="This field allows various levels of user interaction for printing a"
^DD(100.9925,.08,21,2,0)="requisition on the ward for orders."
^DD(100.9925,.08,21,3,0)=" "
^DD(100.9925,.08,21,4,0)="ENTER 0 for no prompts- requisitions are automatically generated."
^DD(100.9925,.08,21,5,0)="1 to prompt for requisitions and which printer should be used."
^DD(100.9925,.08,21,6,0)="2 to prompt for requisitions and automatically print to the"
^DD(100.9925,.08,21,7,0)="  printer defined in the REQUISITION PRINT DEVICE field."
^DD(100.9925,.08,21,8,0)="        * to disable automatic printing of REQUISITIONS."
^DD(100.9925,.08,"DT")="2910717"
^DD(100.9925,.09,0)="PRINT DAILY ORDER SUMMARY^S^0:NO, DON'T PRINT;1:YES, PRINT;^0;9^Q"
^DD(100.9925,.09,3)="Specify whether daily order summary will print for this location."
^DD(100.9925,.09,21,0)="^^3^3^2920225^^^^"
^DD(100.9925,.09,21,1,0)="This parameter specifies to the nightly background job ORTASK 24HR SUMMARY"
^DD(100.9925,.09,21,2,0)="that a daily order summary should be queued to the device specified in the"
^DD(100.9925,.09,21,3,0)="DAILY ORDER SUMMARY DEVICE field."
^DD(100.9925,.09,"DT")="2920225"
^DD(100.9925,1,0)="DAILY ORDER SUMMARY DEVICE^P3.5'^%ZIS(1,^0;10^Q"
^DD(100.9925,1,3)="Enter the name of the device to automatically print the daily order summary."
^DD(100.9925,1,21,0)="^^2^2^2920225^^^^"
^DD(100.9925,1,21,1,0)="This field specifies the device on which the DAILY ORDER SUMMARY should"
^DD(100.9925,1,21,2,0)="be queued by the nightly scheduled option ORTASK 24 HOUR SUMMARY."
^DD(100.9925,1,"DT")="2910517"
^DD(100.9925,1.1,0)="PRINT CHART COPY SUMMARY^S^0:NO, DON'T PRINT;1:YES, PRINT;^0;11^Q"
^DD(100.9925,1.1,3)="Specify whether chart copy summary will print for this location."
^DD(100.9925,1.1,21,0)="^^3^3^2920226^^^^"
^DD(100.9925,1.1,21,1,0)="This parameter specifies to the nightly background job ORTASK 24HR CHART"
^DD(100.9925,1.1,21,2,0)="COPIES that a daily Chart Copy summary should be queued to the device"
^DD(100.9925,1.1,21,3,0)="specified by the CHART COPY DEVICE field."
^DD(100.9925,1.1,"DT")="2920225"
^DD(100.9925,"B","CHART COPY PRINT DEVICE",.04)=""
^DD(100.9925,"B","DAILY ORDER SUMMARY DEVICE",1)=""
^DD(100.9925,"B","HOSPITAL SITE",.01)=""
^DD(100.9925,"B","LABEL PRINT DEVICE",.05)=""
^DD(100.9925,"B","PRINT CHART COPY SUMMARY",1.1)=""
^DD(100.9925,"B","PRINT DAILY ORDER SUMMARY",.09)=""
^DD(100.9925,"B","PROMPT FOR CHART COPY",.03)=""
^DD(100.9925,"B","PROMPT FOR LABELS",.07)=""
^DD(100.9925,"B","PROMPT FOR REQUISITIONS",.08)=""
^DD(100.9925,"B","REQUISITION PRINT DEVICE",.06)=""
^DD(100.9925,"GL",0,1,.01)=""
^DD(100.9925,"GL",0,3,.03)=""
^DD(100.9925,"GL",0,4,.04)=""
^DD(100.9925,"GL",0,5,.05)=""
^DD(100.9925,"GL",0,6,.06)=""
^DD(100.9925,"GL",0,7,.07)=""
^DD(100.9925,"GL",0,8,.08)=""
^DD(100.9925,"GL",0,9,.09)=""
^DD(100.9925,"GL",0,10,1)=""
^DD(100.9925,"GL",0,11,1.1)=""
^DD(100.9925,"IX",.01)=""
^DD(100.995,0)="PACKAGE PARAMETERS SUB-FIELD^^15^10"
^DD(100.995,0,"DT")="2920729"
^DD(100.995,0,"NM","PACKAGE PARAMETERS")=""
^DD(100.995,0,"UP")="100.99"
^DD(100.995,.01,0)="PACKAGE PARAMETERS^MP9.4'X^DIC(9.4,^0;1^S DINUM=X"
^DD(100.995,.01,1,0)="^.1^^0"
^DD(100.995,.01,3)="Do not edit these parameters unless instructed to by package release notes."
^DD(100.995,.01,21,0)="^^1^1^2920224^^^^"
^DD(100.995,.01,21,1,0)="This is the package for which the parameters apply."
^DD(100.995,.01,"DT")="2890209"
^DD(100.995,1,0)="*ON^S^0:NO;1:YES;^0;3^Q"
^DD(100.995,1,3)="Not in use."
^DD(100.995,1,21,0)="^^2^2^2920224^^^^"
^DD(100.995,1,21,1,0)="This field is no longer in use.   It has been moved to the PACKAGE"
^DD(100.995,1,21,2,0)="SITE PARAMETERS multiple of this file."
^DD(100.995,1,23,0)="^^4^4^2920224^^^^"
^DD(100.995,1,23,1,0)="This field is being replaced by a new field in this file under the"
^DD(100.995,1,23,2,0)="multiple PACKAGE SITE PARAMETERS called ON.  The reason for this is"
^DD(100.995,1,23,3,0)="to protect this field from being overwritten by new package"
^DD(100.995,1,23,4,0)="installations."
^DD(100.995,1,"DT")="2910208"
^DD(100.995,1.1,0)="DISPLAY GROUP DEFAULT^P100.98'^ORD(100.98,^0;4^Q"
^DD(100.995,1.1,3)="Enter your package Display Group to be used as a default when creating orders."
^DD(100.995,1.1,21,0)="^^5^5^2920729^^^^"
^DD(100.995,1.1,21,1,0)="This field is used as a default display group for orders created by"
^DD(100.995,1.1,21,2,0)="this package.  If the variable ORTO is not defined correctly when"
^DD(100.995,1.1,21,3,0)="creating the order, this default will be used.  This is ultimately used"
^DD(100.995,1.1,21,4,0)="in reporting for grouping related orders via relationships found in "
^DD(100.995,1.1,21,5,0)="the DISPLAY GROUP file."
^DD(100.995,1.1,"DT")="2920729"
^DD(100.995,1.2,0)="EXPORT NAMESPACE^F^^0;2^K:$L(X)>8!($L(X)<2) X"
^DD(100.995,1.2,3)="Enter your package namespace for which you want to export protocols."
^DD(100.995,1.2,21,0)="^^5^5^2920224^^^^"
^DD(100.995,1.2,21,1,0)="This field is used to define a namespace for exporting protocols from"
^DD(100.995,1.2,21,2,0)="the PROTOCOL file (101).  Any protocol name that begins with the"
^DD(100.995,1.2,21,3,0)="namespace entered in this field can be exported by running the routine"
^DD(100.995,1.2,21,4,0)="ORVOM.  The initialization routines created by ORVOM can then be run"
^DD(100.995,1.2,21,5,0)="at the time of package initialization to set up these protocols."
^DD(100.995,1.2,"DT")="2901015"
^DD(100.995,2,0)="TRANSACTION CODE^KI^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(100.995,2,3)="This is Standard MUMPS code."
^DD(100.995,2,21,0)="^^2^2^2920224^^^^"
^DD(100.995,2,21,1,0)="If transaction based, this is the code executed for the package when the"
^DD(100.995,2,21,2,0)="user accepts the new orders."
^DD(100.995,2,"DT")="2920116"
^DD(100.995,3,0)="SETUP ACTION^KI^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(100.995,3,3)="This is Standard MUMPS code."
^DD(100.995,3,21,0)="^^2^2^2920224^^^^"
^DD(100.995,3,21,1,0)="This is the MUMPS code that is executed by OE/RR upon the first occurrence"
^DD(100.995,3,21,2,0)="of a package's protocol after selecting a patient name for ordering."
^DD(100.995,3,"DT")="2920521"
^DD(100.995,4,0)="CLEAN-UP ACTION^KI^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(100.995,4,3)="This is Standard MUMPS code."
^DD(100.995,4,21,0)="^^4^4^2920224^^^^"
^DD(100.995,4,21,1,0)="This is the MUMPS code that is executed by OE/RR after a patient's orders"
^DD(100.995,4,21,2,0)="have been processed."
^DD(100.995,4,21,3,0)="Only the CLEAN-UP ACTION for packages selected during a patient's"
^DD(100.995,4,21,4,0)="ordering session are executed."
^DD(100.995,4,"DT")="2911106"
^DD(100.995,5,0)="PROTOCOL SET^100.9955^^5;0"
^DD(100.995,5,3)="Enter a name for the protocol set used to create protocols for this package."
^DD(100.995,5,21,0)="^^3^3^2920224^^^^"
^DD(100.995,5,21,1,0)="This set of fields is used by a clinical coordinator utility to define"
^DD(100.995,5,21,2,0)="protocols in the PROTOCOL file for specific procedures that are orderable"
^DD(100.995,5,21,3,0)="for ancillary services."
^DD(100.995,10,0)="PROTOCOL TO EXPORT^100.9951PA^^1;0"
^DD(100.995,10,3)="Enter the name of the protocol you want to export."
^DD(100.995,10,21,0)="^^1^1^2920224^^^^"
^DD(100.995,10,21,1,0)="Protocols entered in this multiple will be exported with this package."
^DD(100.995,15,0)="PATIENT SELECT ACTION^K^^15;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(100.995,15,3)="This is Standard MUMPS code."
^DD(100.995,15,21,0)="^^10^10^2920224^^^"
^DD(100.995,15,21,1,0)="This is package specific code that is to be executed whenever the patient"
^DD(100.995,15,21,2,0)="is selected for any action within order entry.  Be very careful what you"
^DD(100.995,15,21,3,0)="put here!  It could have a significant impact on the responsiveness of the"
^DD(100.995,15,21,4,0)="Select Patient prompt."
^DD(100.995,15,21,5,0)=" "
^DD(100.995,15,21,6,0)="The following variables can be expected when this field is executed."
^DD(100.995,15,21,7,0)="These variables must not be changed:"
^DD(100.995,15,21,8,0)=" "
^DD(100.995,15,21,9,0)="       ORVP - Variable pointer reference of patient"
^DD(100.995,15,21,10,0)=" "
^DD(100.995,15,"DT")="2891101"
^DD(100.995,"B","*ON",1)=""
^DD(100.995,"B","CLEAN-UP ACTION",4)=""
^DD(100.995,"B","DISPLAY GROUP DEFAULT",1.1)=""
^DD(100.995,"B","EXPORT NAMESPACE",1.2)=""
^DD(100.995,"B","PACKAGE PARAMETERS",.01)=""
^DD(100.995,"B","PATIENT SELECT ACTION",15)=""
^DD(100.995,"B","PROTOCOL SET",5)=""
^DD(100.995,"B","PROTOCOL TO EXPORT",10)=""
^DD(100.995,"B","SETUP ACTION",3)=""
^DD(100.995,"B","TRANSACTION CODE",2)=""
^DD(100.995,"GL",0,1,.01)=""
^DD(100.995,"GL",0,2,1.2)=""
^DD(100.995,"GL",0,3,1)=""
^DD(100.995,"GL",0,4,1.1)=""
^DD(100.995,"GL",1,0,10)=""
^DD(100.995,"GL",2,"E1,245",2)=""
^DD(100.995,"GL",3,"E1,245",3)=""
^DD(100.995,"GL",4,"E1,245",4)=""
^DD(100.995,"GL",5,0,5)=""
^DD(100.995,"GL",15,"E1,245",15)=""
^DD(100.995,"SB",100.9951,10)=""
^DD(100.995,"SB",100.9955,5)=""
^DD(100.9951,0)="PROTOCOL TO EXPORT SUB-FIELD^^1^2"
^DD(100.9951,0,"NM","PROTOCOL TO EXPORT")=""
^DD(100.9951,0,"UP")="100.995"
^DD(100.9951,.01,0)="PROTOCOL TO EXPORT^MP101'^ORD(101,^0;1^Q"
^DD(100.9951,.01,1,0)="^.1^^0"
^DD(100.9951,.01,3)="Enter the name of the protocol you want to export."
^DD(100.9951,.01,21,0)="^^4^4^2920224^^^"
^DD(100.9951,.01,21,1,0)="Protocols entered in this field can be exported from the PROTOCOL file"
^DD(100.9951,.01,21,2,0)="by running the routine ORVOM.  The initialization routines created by"
^DD(100.9951,.01,21,3,0)="ORVOM are then run at the time of package initialization to install"
^DD(100.9951,.01,21,4,0)="the protocols."
^DD(100.9951,.01,"DT")="2901026"
^DD(100.9951,1,0)="MENU^100.99511PA^^1;0"
^DD(100.9951,1,3)="Enter the name of the menu outside your namespace that you want this protocol to be exported on."
^DD(100.9951,1,21,0)="^^3^3^2920224^^^"
^DD(100.9951,1,21,1,0)="This field allows a package to install its protocols on menus that"
^DD(100.9951,1,21,2,0)="may be in a different namespace.  The protocol is installed at the"
^DD(100.9951,1,21,3,0)="installation site if the menu exists on that system."
^DD(100.9951,"B","MENU",1)=""
^DD(100.9951,"B","PROTOCOL TO EXPORT",.01)=""
^DD(100.9951,"GL",0,1,.01)=""
^DD(100.9951,"GL",1,0,1)=""
^DD(100.9951,"SB",100.99511,1)=""
^DD(100.99511,0)="MENU SUB-FIELD^^.01^1"
^DD(100.99511,0,"NM","MENU")=""
^DD(100.99511,0,"UP")="100.9951"
^DD(100.99511,.01,0)="MENU^MP101'^ORD(101,^0;1^Q"
^DD(100.99511,.01,1,0)="^.1^^0"
^DD(100.99511,.01,3)="Enter the name of the menu outside your namespace that you want this protocol to be exported on."
^DD(100.99511,.01,21,0)="^^1^1^2920224^^^^"
^DD(100.99511,.01,21,1,0)="This is the menu to install your protocols on."
^DD(100.99511,.01,"DT")="2901026"
^DD(100.99511,"B","MENU",.01)=""
^DD(100.99511,"GL",0,1,.01)=""
^DD(100.9955,0)="PROTOCOL SET SUB-FIELD^^1^4"
^DD(100.9955,0,"DT")="2920115"
^DD(100.9955,0,"IX","B",100.9955,.01)=""
^DD(100.9955,0,"NM","PROTOCOL SET")=""
^DD(100.9955,0,"UP")="100.995"
^DD(100.9955,.01,0)="PROTOCOL SET^MF^^0;1^K:$L(X)>8!($L(X)<2) X"
^DD(100.9955,.01,1,0)="^.1"
^DD(100.9955,.01,1,1,0)="100.9955^B"
^DD(100.9955,.01,1,1,1)="S ^ORD(100.99,DA(2),5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(100.9955,.01,1,1,2)="K ^ORD(100.99,DA(2),5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(100.9955,.01,3)="Enter a name for the protocol set used to create protocols for this package."
^DD(100.9955,.01,21,0)="^^2^2^2920224^^^^"
^DD(100.9955,.01,21,1,0)="This is an arbitrary name given to a specific set of protocols.  Different"
^DD(100.9955,.01,21,2,0)="protocol sets must be defined for each procedure file pointed to."
^DD(100.9955,.01,"DT")="2910403"
^DD(100.9955,.02,0)="PROCEDURE FILE^P1'^DIC(^0;2^Q"
^DD(100.9955,.02,3)="Enter the file to choose from when building protocols."
^DD(100.9955,.02,21,0)="^^2^2^2920224^^^^"
^DD(100.9955,.02,21,1,0)="This is the procedure file that is used for this set for defining"
^DD(100.9955,.02,21,2,0)="orderable procedures."
^DD(100.9955,.02,"DT")="2910403"
^DD(100.9955,.03,0)="DEFAULT PROTOCOL^P101'^ORD(101,^0;3^Q"
^DD(100.9955,.03,3)="Enter the protocol to use as the default when building protocols."
^DD(100.9955,.03,21,0)="^^8^8^2920521^^^^"
^DD(100.9955,.03,21,1,0)="This is the protocol that is used as a template for creating specific"
^DD(100.9955,.03,21,2,0)="protocols for each procedure selected.  A generic protocol should"
^DD(100.9955,.03,21,3,0)="be pointed to here.  The name and display text of the protocol created"
^DD(100.9955,.03,21,4,0)="from this utility has the name of the procedure.  Everything else"
^DD(100.9955,.03,21,5,0)="is taken from the generic protocol."
^DD(100.9955,.03,21,6,0)=" "
^DD(100.9955,.03,21,7,0)="The entry and exit actions of the generic protocol must be able"
^DD(100.9955,.03,21,8,0)="to process any of the procedures/protocols created from this set."
^DD(100.9955,.03,"DT")="2910403"
^DD(100.9955,1,0)="INDEPENDENT CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(100.9955,1,3)="This is Standard MUMPS code."
^DD(100.9955,1,21,0)="^^5^5^2920224^^^"
^DD(100.9955,1,21,1,0)="This field is provided for packages that have specialized utilities"
^DD(100.9955,1,21,2,0)="for building protocols.  If an entry is in this field, it will be used"
^DD(100.9955,1,21,3,0)="instead of the generic means of using the procedure file field.  Having"
^DD(100.9955,1,21,4,0)="this provides the clinical coordinator a central point for building"
^DD(100.9955,1,21,5,0)="menus in OE/RR."
^DD(100.9955,1,"DT")="2920115"
^DD(100.9955,"B","DEFAULT PROTOCOL",.03)=""
^DD(100.9955,"B","INDEPENDENT CODE",1)=""
^DD(100.9955,"B","PROCEDURE FILE",.02)=""
^DD(100.9955,"B","PROTOCOL SET",.01)=""
^DD(100.9955,"GL",0,1,.01)=""
^DD(100.9955,"GL",0,2,.02)=""
^DD(100.9955,"GL",0,3,.03)=""
^DD(100.9955,"GL",1,"E1,245",1)=""
^DD(100.9955,"IX",.01)=""
^DD(101,0)="FIELD^^775^61"
^DD(101,0,"DDA")="N"
^DD(101,0,"DIK")="XQORC"
^DD(101,0,"DIKOLD")="XQORC"
^DD(101,0,"DT")="2991207"
^DD(101,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(101,0,"ID",44)="W:$D(^(4)) ""   "",$P(^(4),U,4)"
^DD(101,0,"IX","AB",101.0775,.01)=""
^DD(101,0,"IX","AD",101.01,.01)=""
^DD(101,0,"IX","AE",101,6)=""
^DD(101,0,"IX","AHL1",101,770.1)=""
^DD(101,0,"IX","AHL1A",101,770.3)=""
^DD(101,0,"IX","AHL1B",101,770.4)=""
^DD(101,0,"IX","AHL1C",101,770.95)=""
^DD(101,0,"IX","AHL2",101,770.2)=""
^DD(101,0,"IX","AHL21",101,770.1)=""
^DD(101,0,"IX","AHL21A",101,770.3)=""
^DD(101,0,"IX","AHL21C",101,770.95)=""
^DD(101,0,"IX","AM",101,99)=""
^DD(101,0,"IX","AM1",101,1)=""
^DD(101,0,"IX","AM41",101,41)=""
^DD(101,0,"IX","B",101,.01)=""
^DD(101,0,"IX","B",101.02,.01)=""
^DD(101,0,"IX","C",101,1)=""
^DD(101,0,"IX","K",101.03,.01)=""
^DD(101,0,"IX","K1",101,1)=""
^DD(101,0,"IX","K2",101.02,.01)=""
^DD(101,0,"IX","S",101.07,.01)=""
^DD(101,0,"NM","PROTOCOL")=""
^DD(101,0,"PT",1.1,4.2)=""
^DD(101,0,"PT",57.1,1)=""
^DD(101,0,"PT",69.4,.01)=""
^DD(101,0,"PT",100,2)=""
^DD(101,0,"PT",100.1,.01)=""
^DD(101,0,"PT",100.99,4)=""
^DD(101,0,"PT",100.99101,.01)=""
^DD(101,0,"PT",100.99141,.01)=""
^DD(101,0,"PT",100.9951,.01)=""
^DD(101,0,"PT",100.99511,.01)=""
^DD(101,0,"PT",100.9955,.03)=""
^DD(101,0,"PT",101.01,.01)=""
^DD(101,0,"PT",101.01,4)=""
^DD(101,0,"PT",101.0775,.01)=""
^DD(101,0,"PT",123,4)=""
^DD(101,0,"PT",123,5)=""
^DD(101,0,"PT",123,6)=""
^DD(101,0,"PT",123.5,123.02)=""
^DD(101,0,"PT",123.5,123.03)=""
^DD(101,0,"PT",123.5,123.04)=""
^DD(101,0,"PT",123.5101,.01)=""
^DD(101,0,"PT",123.99,.01)=""
^DD(101,0,"PT",577,.07)=""
^DD(101,0,"PT",772,10)=""
^DD(101,0,"PT",773,8)=""
^DD(101,0,"PT",798.1,13)=""
^DD(101,0,"PT",995,1)=""
^DD(101,0,"PT",8930.8,.04)=""
^DD(101,0,"PT",9000010,.25)=""
^DD(101,0,"VR")="1.6"
^DD(101,0,"VRPK")="HL"
^DD(101,.01,0)="NAME^FX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) D CHKNAME^XQORD101 I $D(X) K:$L(X)>63!($L(X)<3) X"
^DD(101,.01,1,0)="^.1"
^DD(101,.01,1,1,0)="101^B"
^DD(101,.01,1,1,1)="S ^ORD(101,""B"",$E(X,1,63),DA)="""""
^DD(101,.01,1,1,2)="K ^ORD(101,""B"",$E(X,1,63),DA)"
^DD(101,.01,1,2,0)="^^TRIGGER^101^5"
^DD(101,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ORD(101,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(101,.01,1,2,1.4)"
^DD(101,.01,1,2,1.4)="S DIH=$S($D(^ORD(101,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=101,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(101,.01,1,2,2)="Q"
^DD(101,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(101,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(101,.01,1,2,"FIELD")="CREATOR"
^DD(101,.01,3)="Enter a name that is preceded by the package namespace."
^DD(101,.01,21,0)="^^1^1^2920731^^^^"
^DD(101,.01,21,1,0)="A unique name, which is preceded by the package namespace."
^DD(101,.01,"DT")="2920617"
^DD(101,.01,"V",0)="^.12P^1^1"
^DD(101,.01,"V",1,0)="60^LABORATORY TEST^1^LAB^^n"
^DD(101,.01,"V","B",60,1)=""
^DD(101,.01,"V","M","LABORATORY TEST",1)=""
^DD(101,.01,"V","O",1,1)=""
^DD(101,.01,"V","P","LAB",1)=""
^DD(101,1,0)="ITEM TEXT^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<3) X"
^DD(101,1,1,0)="^.1"
^DD(101,1,1,1,0)="101^C"
^DD(101,1,1,1,1)="S ORKX=X D UP^XQORDD1 S ^ORD(101,""C"",$E(X,1,63),DA)="""",X=ORKX K ORKX"
^DD(101,1,1,1,2)="S ORKX=X D UP^XQORDD1 K ^ORD(101,""C"",$E(X,1,63),DA) S X=ORKX K ORKX"
^DD(101,1,1,2,0)="101^AM1^MUMPS"
^DD(101,1,1,2,1)="D REDO^XQORD101"
^DD(101,1,1,2,2)="D REDO^XQORD101"
^DD(101,1,1,3,0)="101^K1^MUMPS"
^DD(101,1,1,3,1)="D K11^XQORDD1"
^DD(101,1,1,3,2)="D K12^XQORDD1"
^DD(101,1,3)="ANSWER MUST BE 3-63 CHARACTERS IN LENGTH"
^DD(101,1,21,0)="^^1^1^2920224^^^^"
^DD(101,1,21,1,0)="The protocol's text as it appears to the user on the menu or subheader."
^DD(101,1,"DT")="2890303"
^DD(101,1.1,0)="SYNONYM^101.02A^^2;0"
^DD(101,1.1,3)="Enter a synonym for this protocol"
^DD(101,1.1,21,0)="^^1^1^2920224^^^^"
^DD(101,1.1,21,1,0)="This is another name for the protocol that may be used on lookup."
^DD(101,1.11,0)="PRINT NAME^F^^.1;1^K:$L(X)>7!($L(X)<1) X"
^DD(101,1.11,3)="Answer must be 1-7 characters in length."
^DD(101,1.11,21,0)="^^2^2^2920224^"
^DD(101,1.11,21,1,0)="This is a shortened version of the item text to be used on print-outs"
^DD(101,1.11,21,2,0)="where the name must be abbreviated."
^DD(101,1.11,"DT")="2910808"
^DD(101,2,0)="DISABLE^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(101,2,3)="Enter text to disable this protocol (1-40 characters)."
^DD(101,2,21,0)="^^3^3^2920224^^"
^DD(101,2,21,1,0)="This field disables use of the protocol when there is text in it.  The"
^DD(101,2,21,2,0)="text should be a short message explaining why use of the protocol has"
^DD(101,2,21,3,0)="been disabled, as it will be displayed if the protocol is selected."
^DD(101,2,"DT")="2881207"
^DD(101,3,0)="LOCK^FX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) Q:$D(^DIC(19.1,""B"",X))  W !,*7,""Key name must match exactly with a key in SECURITY KEY file."" K X"
^DD(101,3,.1)="The name of the key required of the user to access this option"
^DD(101,3,1,0)="^.1^^0"
^DD(101,3,3)="Enter the exact name of the key required to access this option."
^DD(101,3,4)="S X=""??"",DIC=19.1,DIC(0)=""E"" I $D(^DIC(19.1,0)),$P(^(0),U,3) W ""CURRENT LOCKS:"" D ^DIC W !"
^DD(101,3,21,0)="^^3^3^2920224^^^^"
^DD(101,3,21,1,0)="This field is used to deny access to users who have this option"
^DD(101,3,21,2,0)="as part of their menu. If an option has a lock, then only users"
^DD(101,3,21,3,0)="who hold the matching key can access it."
^DD(101,3,"DT")="2900327"
^DD(101,3.5,0)="DESCRIPTION^101.06^^1;0"
^DD(101,3.5,3)="Enter a description for this protocol"
^DD(101,3.5,21,0)="^^1^1^2920224^^^"
^DD(101,3.5,21,1,0)="This field contains a brief explanation of the protocol."
^DD(101,3.9,0)="PROHIBITED TIMES^F^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?4N1""-""4N) X"
^DD(101,3.9,1,0)="^.1^^0"
^DD(101,3.9,3)="Enter the times in military format that this protocol cannot be used."
^DD(101,3.9,21,0)="^^3^3^2920423^^^^"
^DD(101,3.9,21,1,0)="This specifies a time range during which this option cannot be accessed."
^DD(101,3.9,21,2,0)="The time should be entered in military format. For example, to"
^DD(101,3.9,21,3,0)="prohibit an option from running between 9 AM and 2 PM, enter 0900-1400."
^DD(101,3.9,"DT")="2900327"
^DD(101,4,0)="TYPE^RS^A:action;M:menu;O:protocol;Q:protocol menu;L:limited protocol;X:extended action;D:dialog;T:term;E:event driver;S:subscriber;^0;4^Q"
^DD(101,4,1,0)="^.1^^0"
^DD(101,4,3)="Specify a type for this protocol."
^DD(101,4,21,0)="^^16^16^2920224^^^^"
^DD(101,4,21,1,0)="This field defines the type of protocol to be executed.  Types Q, O, and"
^DD(101,4,21,2,0)="L are strictly related to the 'Add orders' function."
^DD(101,4,21,3,0)="  Q = Protocol menu - used for displaying and selecting orderable items"
^DD(101,4,21,4,0)="during the add sequence. When this type of protocol is encountered"
^DD(101,4,21,5,0)="OE/RR will ask the 'Select PATIENT:,' 'LOCATION:,' 'Provider:'"
^DD(101,4,21,6,0)="prompts and execute the transaction logic for the new orders"
^DD(101,4,21,7,0)="screen.  This is also true for type O and L."
^DD(101,4,21,8,0)="O = Protocol - same as Q but the protocol is the item selected."
^DD(101,4,21,9,0)="Protocols are directly executed when encountered."
^DD(101,4,21,10,0)="L = Limited protocol - same as O but any existing sub-items are"
^DD(101,4,21,11,0)="not executed."
^DD(101,4,21,12,0)="M = Menu - used for displaying and selecting items."
^DD(101,4,21,13,0)="X = Extended action - protocols of this type execute the entry action"
^DD(101,4,21,14,0)="plus all sub-items."
^DD(101,4,21,15,0)="  A = Action - same as X but any existing sub-items are"
^DD(101,4,21,16,0)="not executed."
^DD(101,4,21,17,0)="  X = Extended action - protocols of this type execute the entry action"
^DD(101,4,21,18,0)="      plus all sub-items."
^DD(101,4,21,19,0)=" "
^DD(101,4,21,20,0)="  A = Action - same as X but any existing sub-items are"
^DD(101,4,21,21,0)="      not executed."
^DD(101,4,"DT")="2940722"
^DD(101,5,0)="CREATOR^RP200'^VA(200,^0;5^Q"
^DD(101,5,3)="Enter the creator of this protocol."
^DD(101,5,5,1,0)="101^.01^2"
^DD(101,5,9)="^"
^DD(101,5,21,0)="^^1^1^2920224^^^"
^DD(101,5,21,1,0)="This field identifies who created the protocol."
^DD(101,5,"DT")="2900820"
^DD(101,6,0)="FILE LINK^V^^5;1^Q"
^DD(101,6,1,0)="^.1^^-1"
^DD(101,6,1,1,0)="101^AE"
^DD(101,6,1,1,1)="S ^ORD(101,""AE"",$E(X,1,30),DA)="""""
^DD(101,6,1,1,2)="K ^ORD(101,""AE"",$E(X,1,30),DA)"
^DD(101,6,3)="Enter the file, if any, that this protocol is linked to."
^DD(101,6,21,0)="^^2^2^2920224^^^^"
^DD(101,6,21,1,0)="This field is a variable pointer which may point to the entry in a file"
^DD(101,6,21,2,0)="to which a protocol is linked."
^DD(101,6,21,3,0)=""
^DD(101,6,"DT")="2910419"
^DD(101,6,"V",0)="^.12P^9^9"
^DD(101,6,"V",1,0)="19^OPTION^1^OPT^^n"
^DD(101,6,"V",2,0)="60^LAB^2^LAB^^n"
^DD(101,6,"V",3,0)="62^SAMPLE^3^SAM^^n"
^DD(101,6,"V",4,0)="61^SPECIMEN^4^SPEC^^n"
^DD(101,6,"V",5,0)="71^RADIOLOGY PROCEDURE^5^RAD^^n"
^DD(101,6,"V",6,0)="62.05^URGENCY^6^URG^^n"
^DD(101,6,"V",7,0)="62.07^EXECUTE CODE^7^EXE^^n"
^DD(101,6,"V",8,0)="123.5^SERVICE^8^S^n^n"
^DD(101,6,"V",9,0)="123.1^ACTION TYPES^9^A^^n"
^DD(101,6,"V","B",19,1)=""
^DD(101,6,"V","B",60,2)=""
^DD(101,6,"V","B",61,4)=""
^DD(101,6,"V","B",62,3)=""
^DD(101,6,"V","B",62.05,6)=""
^DD(101,6,"V","B",62.07,7)=""
^DD(101,6,"V","B",71,5)=""
^DD(101,6,"V","B",123.1,9)=""
^DD(101,6,"V","B",123.5,8)=""
^DD(101,6,"V","M","ACTION TYPES",9)=""
^DD(101,6,"V","M","EXECUTE CODE",7)=""
^DD(101,6,"V","M","LAB",2)=""
^DD(101,6,"V","M","OPTION",1)=""
^DD(101,6,"V","M","RADIOLOGY PROCEDURE",5)=""
^DD(101,6,"V","M","SAMPLE",3)=""
^DD(101,6,"V","M","SERVICE",8)=""
^DD(101,6,"V","M","SPECIMEN",4)=""
^DD(101,6,"V","M","URGENCY",6)=""
^DD(101,6,"V","O",1,1)=""
^DD(101,6,"V","O",2,2)=""
^DD(101,6,"V","O",3,3)=""
^DD(101,6,"V","O",4,4)=""
^DD(101,6,"V","O",5,5)=""
^DD(101,6,"V","O",6,6)=""
^DD(101,6,"V","O",7,7)=""
^DD(101,6,"V","O",8,8)=""
^DD(101,6,"V","O",9,9)=""
^DD(101,6,"V","P","A",9)=""
^DD(101,6,"V","P","EXE",7)=""
^DD(101,6,"V","P","LAB",2)=""
^DD(101,6,"V","P","OPT",1)=""
^DD(101,6,"V","P","RAD",5)=""
^DD(101,6,"V","P","S",8)=""
^DD(101,6,"V","P","SAM",3)=""
^DD(101,6,"V","P","SPEC",4)=""
^DD(101,6,"V","P","URG",6)=""
^DD(101,8,0)="COST^NJ10,2^^5;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(101,8,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(101,8,21,0)="^^1^1^2920224^^"
^DD(101,8,21,1,0)="This is the cost of filling the order associated with this protocol."
^DD(101,8,"DT")="2890426"
^DD(101,10,0)="ITEM^101.01PA^^10;0"
^DD(101,10,3)="Enter items for this protocol."
^DD(101,10,21,0)="^^1^1^2920731^^^^"
^DD(101,10,21,1,0)="This is the item multiple for a protocol"
^DD(101,12,0)="PACKAGE^P9.4'^DIC(9.4,^0;12^Q"
^DD(101,12,3)="Enter the package for this protocol."
^DD(101,12,21,0)="^^1^1^2920224^^"
^DD(101,12,21,1,0)="Pointer to Package File (#9.4)."
^DD(101,12,"DT")="2881128"
^DD(101,15,0)="EXIT ACTION^K^^15;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,15,3)="ENTER STANDARD MUMPS CODE"
^DD(101,15,8.5)="@"
^DD(101,15,9)="@"
^DD(101,15,21,0)="^^2^2^2920224^^^"
^DD(101,15,21,1,0)="This field contains MUMPS code which will be executed on leaving"
^DD(101,15,21,2,0)="this option.  It is only applicable to Menu types."
^DD(101,15,"DT")="2881121"
^DD(101,20,0)="ENTRY ACTION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,20,3)="ENTER STANDARD MUMPS CODE"
^DD(101,20,8.5)="@"
^DD(101,20,9)="@"
^DD(101,20,21,0)="^^2^2^2920224^^"
^DD(101,20,21,1,0)="This field contains MUMPS code which will be executed on entering"
^DD(101,20,21,2,0)="this option.  It is applicable to Menu and Action types."
^DD(101,20,"DT")="2881121"
^DD(101,21,0)="REQUIRED VARIABLES^101.021A^^21;0"
^DD(101,21,3)="Enter the required variables for this protocol."
^DD(101,21,21,0)="^^4^4^2920224^^"
^DD(101,21,21,1,0)="This lists the variables that must be defined for the proper execution of"
^DD(101,21,21,2,0)="this protocol.  This aids in documenting the protocol.  Also, in the case"
^DD(101,21,21,3,0)="of ';' jumping, the variables defined as required may be newed before"
^DD(101,21,21,4,0)="jumping, thus preserving the context when returning from the jump."
^DD(101,24,0)="SCREEN^K^^24;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,24,3)="This is standard MUMPS code to screen an item from processing."
^DD(101,24,8.5)="@"
^DD(101,24,9)="@"
^DD(101,24,21,0)="^^4^4^2920224^^"
^DD(101,24,21,1,0)="This field contains MUMPS code that screens out menu items or the"
^DD(101,24,21,2,0)="execution of particular items in a protocol.  Before each item is"
^DD(101,24,21,3,0)="displayed or executed, the screen is executed and the item is only"
^DD(101,24,21,4,0)="processed if $T is true."
^DD(101,24,"DT")="2890426"
^DD(101,26,0)="HEADER^K^^26;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,26,3)="Enter standard MUMPS code that will used to replace the header on the menu."
^DD(101,26,9)="@"
^DD(101,26,21,0)="^^2^2^2920224^^"
^DD(101,26,21,1,0)="In the case of menus (type M or Q), this contains MUMPS code that is "
^DD(101,26,21,2,0)="executed to display a header for the menu."
^DD(101,26,"DT")="2881205"
^DD(101,27,0)="MENU HELP^K^^27;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,27,3)="Enter standard MUMPS code that will be used to supplement the standard help prompt for this entry."
^DD(101,27,9)="@"
^DD(101,27,21,0)="^^2^2^2920224^^"
^DD(101,27,21,1,0)="This contains MUMPS code that displays additional help to that already"
^DD(101,27,21,2,0)="given with the menu."
^DD(101,27,"DT")="2881207"
^DD(101,28,0)="MENU PROMPT^F^^28;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(101,28,3)="Enter a replacement prompt for selecting items on this menu."
^DD(101,28,21,0)="^^2^2^2920224^^"
^DD(101,28,21,1,0)="This contains text to replace the standard ""Select Item: "" prompt normally"
^DD(101,28,21,2,0)="given with a menu."
^DD(101,28,"DT")="2881207"
^DD(101,29,0)="MENU DEFAULT^F^^29;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(101,29,3)="Enter a default for the menu prompt."
^DD(101,29,21,0)="^^2^2^2920224^^"
^DD(101,29,21,1,0)="This field contains a default response (i.e., default selection from the"
^DD(101,29,21,2,0)="menu), if desired."
^DD(101,29,"DT")="2920210"
^DD(101,30,0)="DIC {DIC}^F^^30;E1,64^K:$L(X)>64!($L(X)<1) X"
^DD(101,30,3)="Answer must be 1-64 characters in length."
^DD(101,30,21,0)="^^3^3^2920224^^"
^DD(101,30,21,1,0)="This field is used as the global reference passed to ^DIC for a file"
^DD(101,30,21,2,0)="look-up.  The entry should be in the regular format for a call to ^DIC"
^DD(101,30,21,3,0)="i.e. ^GL(41,"
^DD(101,30,"DT")="2910312"
^DD(101,41,0)="COLUMN WIDTH^NJ3,0^^4;1^K:+X'=X!(X>132)!(X<25)!(X?.E1"".""1N.N) X"
^DD(101,41,1,0)="^.1"
^DD(101,41,1,1,0)="101^AM41^MUMPS"
^DD(101,41,1,1,1)="D REDO^XQORD101"
^DD(101,41,1,1,2)="D REDO^XQORD101"
^DD(101,41,3)="Type a Number between 25 and 132, 0 Decimal Digits"
^DD(101,41,21,0)="^^2^2^2920224^^"
^DD(101,41,21,1,0)="This is the width, in characters, for each column on a menu.  For example,"
^DD(101,41,21,2,0)="to have 3 columns on an 80 character device, enter a column width of 26."
^DD(101,41,"DT")="2881207"
^DD(101,42,0)="MNEMONIC WIDTH^NJ1,0^^4;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101,42,1,0)="^.1^^0"
^DD(101,42,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(101,42,21,0)="^^2^2^2920224^^"
^DD(101,42,21,1,0)="This field allows the width allowed for mnemonics to be varied.  The"
^DD(101,42,21,2,0)="default width is 5."
^DD(101,42,"DT")="2890211"
^DD(101,43,0)="PATH SWITCH^S^Y:YES;N:NO;^4;3^Q"
^DD(101,43,3)="Enter Y for YES, N for NO, ?? for detailed description."
^DD(101,43,21,0)="^^5^5^2920224^^"
^DD(101,43,21,1,0)="This allows the user, when traversing back UP the tree of protocols, to"
^DD(101,43,21,2,0)="select a new path back down the tree.  In other words, the menu is"
^DD(101,43,21,3,0)="redisplayed when returning to that menu's level in the tree, and processing"
^DD(101,43,21,4,0)="back down the tree is possible from that point.  If nothing is selected"
^DD(101,43,21,5,0)="from the menu, the path continues back up the tree."
^DD(101,43,"DT")="2881207"
^DD(101,44,0)="IDENTIFIER^F^^4;4^K:$L(X)>63!($L(X)<1) X"
^DD(101,44,3)="Answer must be 1-63 characters in length."
^DD(101,44,21,0)="3^^3^3^2920224^^^"
^DD(101,44,21,1,0)="Entries into this file can be given identifiers to show context, function"
^DD(101,44,21,2,0)="and/or relationships.  For example, Digoxin may exist in the file as three"
^DD(101,44,21,3,0)="different entries with identifiers of SERUM, PLASMA and Drug."
^DD(101,44,"DT")="2891130"
^DD(101,99,0)="TIMESTAMP^F^^99;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(101,99,1,0)="^.1"
^DD(101,99,1,1,0)="101^AM^MUMPS"
^DD(101,99,1,1,1)="D SET^XQORD101"
^DD(101,99,1,1,2)="D KILL^XQORD101"
^DD(101,99,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(101,99,21,0)="^^2^2^2920224^^^^"
^DD(101,99,21,1,0)="This contains the $H time that fields which are necessary to menu display"
^DD(101,99,21,2,0)="were last changed."
^DD(101,99,"DT")="2881122"
^DD(101,100,0)="*ORDER PRINT ACTION^K^^100;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,100,3)="ENTER STANDARD MUMPS CODE"
^DD(101,100,9)="@"
^DD(101,100,21,0)="^^4^4^2920224^^^^"
^DD(101,100,21,1,0)="***NOTICE- THIS FIELD WILL BE REMOVED IN A FUTURE VERSION***"
^DD(101,100,21,2,0)="Package action when a detailed listing of an order is requested."
^DD(101,100,21,3,0)="Included in this file for backward compatability with earlier versions"
^DD(101,100,21,4,0)="of OE/RR."
^DD(101,100,"DT")="2881209"
^DD(101,100.1,0)="*ORDER CANCEL ACTION^K^^100.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,100.1,3)="ENTER STANDARD MUMPS CODE"
^DD(101,100.1,9)="@"
^DD(101,100.1,21,0)="^^3^3^2920224^^^^"
^DD(101,100.1,21,1,0)="***NOTICE- THIS FIELD WILL BE REMOVED IN A FUTURE VERSION***"
^DD(101,100.1,21,2,0)="Package action when an order is cancelled or discontinued.  Included in"
^DD(101,100.1,21,3,0)="this file for backward compatability with earlier versions of OE/RR."
^DD(101,100.1,"DT")="2881209"
^DD(101,100.2,0)="*ORDER PURGE ACTION^K^^100.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,100.2,3)="ENTER STANDARD MUMPS CODE"
^DD(101,100.2,9)="@"
^DD(101,100.2,21,0)="^^3^3^2920224^^^^"
^DD(101,100.2,21,1,0)="***NOTICE- THIS FIELD WILL BE REMOVED IN A FUTURE VERSION***"
^DD(101,100.2,21,2,0)="Package action when an order is to be purged from file 100.  Included in"
^DD(101,100.2,21,3,0)="this file for backward compatability with earlier versions of OE/RR."
^DD(101,100.2,"DT")="2881209"
^DD(101,100.3,0)="ACCESS^101.03P^^3;0"
^DD(101,100.3,3)="Enter a security key to limit access to this protocol."
^DD(101,100.3,21,0)="^^2^2^2920224^^^"
^DD(101,100.3,21,1,0)="This multiple contains the list of security keys which allow access to"
^DD(101,100.3,21,2,0)="the protocol.  If there are no keys, all users have access."
^DD(101,101.01,0)="REQUIRES SIGNATURE^S^0:PHYSICIAN SIGNATURE;1:NO SIGNATURE REQUIRED;^101.01;1^Q"
^DD(101,101.01,3)="Enter a '1' if this protocol does not require a physician signature."
^DD(101,101.01,21,0)="^^4^4^2920225^"
^DD(101,101.01,21,1,0)="This field is used to specify an orderable/protocol that does not"
^DD(101,101.01,21,2,0)="require a physician signature in OE/RR.  Some of the things entered"
^DD(101,101.01,21,3,0)="in OE/RR are considered instructions and don't require physician"
^DD(101,101.01,21,4,0)="signature.  An example of this might be an entry for an Early/Late tray."
^DD(101,101.01,"DT")="2910809"
^DD(101,101.041,0)="DOMAIN (DATA TYPE)^S^D:date/time;F:free text;L:list or range;N:numeric;S:set of codes;Y:yes/no;P:pointer;M:menu;W:word processing;^101.04;1^Q"
^DD(101,101.041,3)="Enter the appropriate type for this prompt."
^DD(101,101.041,21,0)="^^2^2^2920225^"
^DD(101,101.041,21,1,0)="This is the data type of a term (i.e. protocol of type term) used in a"
^DD(101,101.041,21,2,0)="dialog."
^DD(101,101.041,"DT")="2910819"
^DD(101,101.042,0)="DEFAULT PROMPT^F^^101.04;2^K:$L(X)>30!($L(X)<1) X"
^DD(101,101.042,3)="Answer must be 1-30 characters in length."
^DD(101,101.042,21,0)="^^3^3^2920225^"
^DD(101,101.042,21,1,0)="For this term, this is the prompt that is automatically used when the"
^DD(101,101.042,21,2,0)="term is used as an item in a dialog.  The prompt may be modified at the"
^DD(101,101.042,21,3,0)="item level."
^DD(101,101.042,"DT")="2910819"
^DD(101,101.043,0)="DEFAULT ANSWER^F^^101.04;3^K:$L(X)>80!($L(X)<1) X"
^DD(101,101.043,3)="Answer must be 1-80 characters in length."
^DD(101,101.043,21,0)="^^3^3^2920225^"
^DD(101,101.043,21,1,0)="For a term protocol, this is the default answer that is automatically used"
^DD(101,101.043,21,2,0)="when the term is used as an item in a dialog.  The default may be modified"
^DD(101,101.043,21,3,0)="at the item level."
^DD(101,101.043,"DT")="2910819"
^DD(101,101.0431,0)="DEFAULT WORD PROCESSING ANSWER^101.0431^^101.0431;0"
^DD(101,101.0431,21,0)="^^2^2^2920225^"
^DD(101,101.0431,21,1,0)="This is text used as a template for an item in a dialog that is a word"
^DD(101,101.0431,21,2,0)="processing type."
^DD(101,101.044,0)="DEFAULT HELP^F^^101.04;4^K:$L(X)>80!($L(X)<1) X"
^DD(101,101.044,3)="Answer must be 1-80 characters in length."
^DD(101,101.044,21,0)="^^3^3^2920225^"
^DD(101,101.044,21,1,0)="For a term protocol, this is the help text that is automatically used when"
^DD(101,101.044,21,2,0)="the term is used as an item in a dialog.  The help text may be replaced at"
^DD(101,101.044,21,3,0)="the item level."
^DD(101,101.044,"DT")="2910819"
^DD(101,101.045,0)="DOMAIN PARAMETER^F^^101.04;5^K:$L(X)>56!($L(X)<1) X"
^DD(101,101.045,3)="Answer must be 1-56 characters in length."
^DD(101,101.045,21,0)="^^3^3^2920225^"
^DD(101,101.045,21,1,0)="This is a parameter that may be used to further specify the data type"
^DD(101,101.045,21,2,0)="(i.e. input transform) for a term protocol.  The parameter is what would"
^DD(101,101.045,21,3,0)="be placed in the second up-arrow piece of DIR(0) when calling the reader."
^DD(101,101.045,"DT")="2911126"
^DD(101,101.05,0)="METHOD^101.05I^^101.05;0"
^DD(101,101.05,21,0)="^^2^2^2920224^^"
^DD(101,101.05,21,1,0)="This number identifies individual methods (actions) that may be invoked"
^DD(101,101.05,21,2,0)="for this protocol."
^DD(101,101.05,23,0)="^^1^1^2920224^^"
^DD(101,101.05,23,1,0)="Method numbers correspond to ORACTION numbers."
^DD(101,101.07,0)="SET MEMBERSHIP^101.07^^101.07;0"
^DD(101,101.07,21,0)="^^3^3^2920224^^"
^DD(101,101.07,21,1,0)="This is a namespaced name of a set.  If this is entered, a cross reference"
^DD(101,101.07,21,2,0)="of the format ""S.set membership"" is created.  This allows rapid lookups on"
^DD(101,101.07,21,3,0)="subsets of the Protocol file."
^DD(101,770.1,0)="SENDING APPLICATION^P771^HL(771,^770;1^Q"
^DD(101,770.1,.1)=""
^DD(101,770.1,1,0)="^.1"
^DD(101,770.1,1,1,0)="101^AHL1^MUMPS"
^DD(101,770.1,1,1,1)="N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,""^"",3)&($P(HL770,""^"",4))&($P(HL770,""^"",10)) ^ORD(101,""AHL1"",X,$P(HL770,""^"",3),$P(HL770,""^"",4),$P(HL770,""^"",10),DA)="""""
^DD(101,770.1,1,1,2)="N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,""^"",3)&($P(HL770,""^"",4))&($P(HL770,""^"",10)) ^ORD(101,""AHL1"",X,$P(HL770,""^"",3),$P(HL770,""^"",4),$P(HL770,""^"",10),DA)"
^DD(101,770.1,1,1,3)="This cross reference is required to look up the protocol related to an incoming message."
^DD(101,770.1,1,1,"%D",0)="^^5^5^2990714^"
^DD(101,770.1,1,1,"%D",1,0)="This cross reference is used to look up the protocol related to an incoming "
^DD(101,770.1,1,1,"%D",2,0)="message at the time the incoming message is received.  This cross reference"
^DD(101,770.1,1,1,"%D",3,0)="is composed of values from the Server Application, Message Type, Event"
^DD(101,770.1,1,1,"%D",4,0)="Type and Version ID fields. This cross reference works in conjunction with"
^DD(101,770.1,1,1,"%D",5,0)="the AHL1A, AHL1B and AHL1C cross references."
^DD(101,770.1,1,1,"DT")="2990714"
^DD(101,770.1,1,2,0)="101^AHL21^MUMPS"
^DD(101,770.1,1,2,1)="N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,""^"",3)&($P(HL770,""^"",10)) ^ORD(101,""AHL21"",X,$P(HL770,""^"",3),$P(HL770,""^"",10),DA)="""""
^DD(101,770.1,1,2,2)="N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,""^"",3)&($P(HL770,""^"",10)) ^ORD(101,""AHL21"",X,$P(HL770,""^"",3),$P(HL770,""^"",10),DA)"
^DD(101,770.1,1,2,3)="This cross reference is required to look up the protocol related to an incoming message without an event type."
^DD(101,770.1,1,2,"%D",0)="^^5^5^2990714^"
^DD(101,770.1,1,2,"%D",1,0)="This cross reference is used to look up the protocol related to an"
^DD(101,770.1,1,2,"%D",2,0)="incoming message without an event type at the time the incoming message is"
^DD(101,770.1,1,2,"%D",3,0)="received.  This cross reference is composed of values from the Server"
^DD(101,770.1,1,2,"%D",4,0)="Application, Message Type, and Version ID fields.  This cross reference"
^DD(101,770.1,1,2,"%D",5,0)="works in conjunction with the AHL21A and AHL21C cross references."
^DD(101,770.1,1,2,"DT")="2990714"
^DD(101,770.1,3)="Enter the application that initiates the transaction."
^DD(101,770.1,21,0)="^^2^2^2990707^^^"
^DD(101,770.1,21,1,0)="Enter the name of the application that initiates a transaction. It"
^DD(101,770.1,21,2,0)="is required only when defining an EVENT POINT protocol."
^DD(101,770.1,"DT")="2990714"
^DD(101,770.11,0)="RESPONSE MESSAGE TYPE^P771.2'^HL(771.2,^770;11^Q"
^DD(101,770.11,3)="Enter the message type of the expected response."
^DD(101,770.11,21,0)="^^11^11^2990713^"
^DD(101,770.11,21,1,0)="Enter the message type of the expected RESPONSE. It should only be defined"
^DD(101,770.11,21,2,0)="on a SUBSCRIBER PROTOCOL."
^DD(101,770.11,21,3,0)=" "
^DD(101,770.11,21,4,0)="NOTE:"
^DD(101,770.11,21,5,0)="In a contract between the initiating system and the responding system, the"
^DD(101,770.11,21,6,0)="Event Driver protocol defines the characteristics of the INITIATING"
^DD(101,770.11,21,7,0)="SYSTEM. The Initiating System initiates either queries or unsolicited"
^DD(101,770.11,21,8,0)="update messages. A Subscriber Protocol defines the characteristics of the"
^DD(101,770.11,21,9,0)="RESPONDING SYSTEM. The responding system completes a transaction by"
^DD(101,770.11,21,10,0)="returning either an acknowledgement and/or a response to the specific"
^DD(101,770.11,21,11,0)="query message."
^DD(101,770.11,"DT")="2990617"
^DD(101,770.14,0)="BATCH/FILE MESSAGE COMMIT ACK^S^1:YES;0:NO;^770;14^Q"
^DD(101,770.14,21,0)="^^6^6^2980923^^"
^DD(101,770.14,21,1,0)="In a bi-directional interface, this field will be used "
^DD(101,770.14,21,2,0)="to determine whether or not a Batch or File message should"
^DD(101,770.14,21,3,0)="send or receive a Commit Acknowledgement.  A Batch or File"
^DD(101,770.14,21,4,0)="message will always send/receive an Application Ack. This"
^DD(101,770.14,21,5,0)="feature is non-standard according to HL7.  It is needed to"
^DD(101,770.14,21,6,0)="insure the receipt of a message."
^DD(101,770.14,"DT")="2980728"
^DD(101,770.2,0)="RECEIVING APPLICATION^P771^HL(771,^770;2^Q"
^DD(101,770.2,.1)=""
^DD(101,770.2,1,0)="^.1"
^DD(101,770.2,1,1,0)="101^AHL2"
^DD(101,770.2,1,1,1)="S ^ORD(101,""AHL2"",$E(X,1,30),DA)="""""
^DD(101,770.2,1,1,2)="K ^ORD(101,""AHL2"",$E(X,1,30),DA)"
^DD(101,770.2,1,1,3)="This cross reference is needed to provide a list of Client (Subscriber) protocols."
^DD(101,770.2,1,1,"%D",0)="^^2^2^2950223^"
^DD(101,770.2,1,1,"%D",1,0)="This cross reference is used to provide a list of Client (Subscriber)"
^DD(101,770.2,1,1,"%D",2,0)="protocols."
^DD(101,770.2,1,1,"DT")="2950223"
^DD(101,770.2,3)="The application that will receive the message."
^DD(101,770.2,21,0)="^^3^3^2990706^"
^DD(101,770.2,21,1,0)="This is the application that receives a message. It is otherwise known as"
^DD(101,770.2,21,2,0)="the ""responding"" application when a transaction takes place. This"
^DD(101,770.2,21,3,0)="information is required for SUBSCRIBER protocols only."
^DD(101,770.2,"DT")="2990713"
^DD(101,770.3,0)="TRANSACTION MESSAGE TYPE^P771.2'^HL(771.2,^770;3^Q"
^DD(101,770.3,.1)=""
^DD(101,770.3,1,0)="^.1"
^DD(101,770.3,1,1,0)="101^AHL1A^MUMPS"
^DD(101,770.3,1,1,1)="N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,""^"")&($P(HL770,""^"",4))&($P(HL770,""^"",10)) ^ORD(101,""AHL1"",$P(HL770,""^""),X,$P(HL770,""^"",4),$P(HL770,""^"",10),DA)="""""
^DD(101,770.3,1,1,2)="N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,""^"")&($P(HL770,""^"",4))&($P(HL770,""^"",10)) ^ORD(101,""AHL1"",$P(HL770,""^""),X,$P(HL770,""^"",4),$P(HL770,""^"",10),DA)"
^DD(101,770.3,1,1,3)="This cross reference is required to look up the protocol related to an incoming message."
^DD(101,770.3,1,1,"%D",0)="^^5^5^2990714^"
^DD(101,770.3,1,1,"%D",1,0)="This cross reference is used to look up the protocol related to an incoming "
^DD(101,770.3,1,1,"%D",2,0)="message at the time the incoming message is received.  This cross reference"
^DD(101,770.3,1,1,"%D",3,0)="is composed of values from the Server Application, Message Type, Event"
^DD(101,770.3,1,1,"%D",4,0)="Type and Version ID fields. This cross reference works in conjunction with"
^DD(101,770.3,1,1,"%D",5,0)="the AHL1, AHL1B and AHL1C cross references."
^DD(101,770.3,1,1,"DT")="2990714"
^DD(101,770.3,1,2,0)="101^AHL21A^MUMPS"
^DD(101,770.3,1,2,1)="N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,""^"")&($P(HL770,""^"",10)) ^ORD(101,""AHL21"",$P(HL770,""^""),X,$P(HL770,""^"",10),DA)="""""
^DD(101,770.3,1,2,2)="N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,""^"")&($P(HL770,""^"",10)) ^ORD(101,""AHL21"",$P(HL770,""^""),X,$P(HL770,""^"",10),DA)"
^DD(101,770.3,1,2,3)="This cross reference is required to look up the protocol related to an incoming message without an event type."
^DD(101,770.3,1,2,"%D",0)="^^5^5^2990714^"
^DD(101,770.3,1,2,"%D",1,0)="This cross reference is used to look up the protocol related to an"
^DD(101,770.3,1,2,"%D",2,0)="incoming message without an event type at the time the incoming message is"
^DD(101,770.3,1,2,"%D",3,0)="received.  This cross reference is composed of values from the Server"
^DD(101,770.3,1,2,"%D",4,0)="Application, Message Type and Version ID fields. This cross reference"
^DD(101,770.3,1,2,"%D",5,0)="works in conjunction with the AHL21 and AHL21C cross references."
^DD(101,770.3,1,2,"DT")="2990714"
^DD(101,770.3,3)="Enter the HL7 MESSAGE TYPE that is sent by the initiating system."
^DD(101,770.3,21,0)="^^12^12^2990713^^"
^DD(101,770.3,21,1,0)="Enter the name of the message type for the the message that is sent from"
^DD(101,770.3,21,2,0)="the initiating system. When initiating a new transaction, this field is"
^DD(101,770.3,21,3,0)="referenced when generating the header for the outbound message."
^DD(101,770.3,21,4,0)=" "
^DD(101,770.3,21,5,0)="NOTE:"
^DD(101,770.3,21,6,0)="In a contract between the initiating system and the responding system, the"
^DD(101,770.3,21,7,0)="Event Driver protocol defines the characteristics of the INITIATING"
^DD(101,770.3,21,8,0)="SYSTEM. The Initiating System initiates either queries or unsolicited"
^DD(101,770.3,21,9,0)="update messages. A Subscriber Protocol defines the characteristics of the"
^DD(101,770.3,21,10,0)="RESPONDING SYSTEM. The responding system completes a transaction by"
^DD(101,770.3,21,11,0)="returning either an acknowledgement and/or a response to the specific"
^DD(101,770.3,21,12,0)="query message."
^DD(101,770.3,"DT")="2990714"
^DD(101,770.4,0)="EVENT TYPE^P779.001'^HL(779.001,^770;4^Q"
^DD(101,770.4,1,0)="^.1^^-1"
^DD(101,770.4,1,1,0)="101^AHL1B^MUMPS"
^DD(101,770.4,1,1,1)="N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,""^"")&($P(HL770,""^"",3))&($P(HL770,""^"",10)) ^ORD(101,""AHL1"",$P(HL770,""^""),$P(HL770,""^"",3),X,$P(HL770,""^"",10),DA)="""""
^DD(101,770.4,1,1,2)="N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,""^"")&($P(HL770,""^"",3))&($P(HL770,""^"",10)) ^ORD(101,""AHL1"",$P(HL770,""^""),$P(HL770,""^"",3),X,$P(HL770,""^"",10),DA)"
^DD(101,770.4,1,1,3)="This cross reference is required to look up the protocol related to an incoming message."
^DD(101,770.4,1,1,"%D",0)="^^5^5^2990714^"
^DD(101,770.4,1,1,"%D",1,0)="This cross reference is used to look up the protocol related to an incoming "
^DD(101,770.4,1,1,"%D",2,0)="message at the time the incoming message is received.  This cross reference"
^DD(101,770.4,1,1,"%D",3,0)="is composed of values from the Server Application, Message Type, Event"
^DD(101,770.4,1,1,"%D",4,0)="Type, and Version ID fields.  This cross reference works in conjunction"
^DD(101,770.4,1,1,"%D",5,0)="with the AHL1, AHL1A, and AHL1C cross references."
^DD(101,770.4,1,1,"DT")="2990714"
^DD(101,770.4,3)="The event type associated with the message to be generated."
^DD(101,770.4,21,0)="^^27^27^2990712^"
^DD(101,770.4,21,1,0)="This is the HL7 Event Type code for the message represented by this"
^DD(101,770.4,21,2,0)="protocol. In HL7, the message type and event type of an application"
^DD(101,770.4,21,3,0)="response message may be different from the original message."
^DD(101,770.4,21,4,0)=" "
^DD(101,770.4,21,5,0)="If this is an event point protocol, enter the event type"
^DD(101,770.4,21,6,0)="corresponding to the initial message generated by the SENDING APPLICATION."
^DD(101,770.4,21,7,0)=" "
^DD(101,770.4,21,8,0)=" "
^DD(101,770.4,21,9,0)="If this is a subscriber protocol, then enter the event type corresponding"
^DD(101,770.4,21,10,0)="to the RECEIVING APPLICATION response. Note that an event type is not"
^DD(101,770.4,21,11,0)="required when responding with a general acknowledgement (ACK) and the"
^DD(101,770.4,21,12,0)="receiving application does not always need to generate a response."
^DD(101,770.4,21,13,0)=" "
^DD(101,770.4,21,14,0)="NOTE:"
^DD(101,770.4,21,15,0)=" "
^DD(101,770.4,21,16,0)="1. In ""original acknowledgement mode"" the receiving application always"
^DD(101,770.4,21,17,0)="generates the response."
^DD(101,770.4,21,18,0)="2. In ""enhanced acknowledgement mode"" the HL7 package may be configured to"
^DD(101,770.4,21,19,0)="produce a ""commit ack"" before the application receives the message. If the"
^DD(101,770.4,21,20,0)="receiving application does not need to generate a response in addition to"
^DD(101,770.4,21,21,0)="the ack, then the event type is the same as the original message (and the"
^DD(101,770.4,21,22,0)="message type would be ACK)"
^DD(101,770.4,21,23,0)="3. In ""enhanced acknowledgement mode with two-phase commit"" the HL7"
^DD(101,770.4,21,24,0)="package generates a commit ack, and passes the message to the application."
^DD(101,770.4,21,25,0)="The second phase of the transaction occurs when the application is ready"
^DD(101,770.4,21,26,0)="to initiate a response. This is interpreted as the start of a new"
^DD(101,770.4,21,27,0)="transaction and may require a commit ack itself."
^DD(101,770.4,"DT")="2990714"
^DD(101,770.5,0)="MESSAGE STRUCTURE^P779.005'^HL(779.005,^770;5^Q"
^DD(101,770.5,3)="Enter the HL7 message structure code."
^DD(101,770.5,21,0)="^^1^1^3000119^"
^DD(101,770.5,21,1,0)="The message structure is associated with the message type and event type defined by HL7 v2.3.1 and beyond."
^DD(101,770.5,"DT")="3000119"
^DD(101,770.6,0)="PROCESSING ID^S^D:debug;^770;6^Q"
^DD(101,770.6,3)="Set this only for DEBUG MODE. Use HL7 site params for Test or Production"
^DD(101,770.6,21,0)="^^13^13^3000509^"
^DD(101,770.6,21,1,0)="This field describes how a message should be processed once it is handed"
^DD(101,770.6,21,2,0)="off to the receiving application. "
^DD(101,770.6,21,3,0)=" "
^DD(101,770.6,21,4,0)="PROCESSING ID is a required field in the HL7 message header. However, the"
^DD(101,770.6,21,5,0)="Event Driver protocol entry is only used whenset to DEBUG. Data for the"
^DD(101,770.6,21,6,0)="header is normally derived from the HL COMMUNICATION SERVER FILE. If"
^DD(101,770.6,21,7,0)="testing a transaction in Debug mode, make sure it is changed on both the"
^DD(101,770.6,21,8,0)="sending and receiving system."
^DD(101,770.6,21,9,0)=" "
^DD(101,770.6,21,10,0)=" "
^DD(101,770.6,21,11,0)="The receiving application developer should consider checking this portion"
^DD(101,770.6,21,12,0)="of the header before filing data on a production system. Training and"
^DD(101,770.6,21,13,0)="Debug messages may not be suitable for filing."
^DD(101,770.6,"DT")="3000509"
^DD(101,770.7,0)="LOGICAL LINK^P870'^HLCS(870,^770;7^Q"
^DD(101,770.7,3)="This field should be left blank for internal DHCP to DHCP communications.  Otherwise, this field associates the event protocol with the communication information needed to transmit a message."
^DD(101,770.7,21,0)="^^5^5^2990712^"
^DD(101,770.7,21,1,0)="This field is used with a SUBSCRIBER PROTOCOL to describe the network path"
^DD(101,770.7,21,2,0)="to the subscriber. It is most often used with a fixed point-to-point"
^DD(101,770.7,21,3,0)="interface between Vista and another system, e.g., a local COTS application"
^DD(101,770.7,21,4,0)="or another Vista facility. See the documentation on use of the ROUTING"
^DD(101,770.7,21,5,0)="LOGIC field and ""dynamic addressing"" for more complex routing scenarios."
^DD(101,770.7,"DT")="2941017"
^DD(101,770.8,0)="ACCEPT ACK CODE^P779.003'^HL(779.003,^770;8^Q"
^DD(101,770.8,3)="This field specifies the method for handling accept acknowledgements to a message."
^DD(101,770.8,21,0)="^^4^4^2990712^"
^DD(101,770.8,21,1,0)="This field defines whether or not a COMMIT ACK will be generated by the"
^DD(101,770.8,21,2,0)="HL7 package. This only applies to transactions using version 2.2 and"
^DD(101,770.8,21,3,0)="higher of the HL7 Standard. See Chapter 2 of the HL7 Standard for details"
^DD(101,770.8,21,4,0)="of Enhanced Mode Acknowledgements."
^DD(101,770.8,"DT")="2940928"
^DD(101,770.9,0)="APPLICATION ACK TYPE^P779.003'^HL(779.003,^770;9^Q"
^DD(101,770.9,3)="This field specifies the method for handling application acknowledgements to a message."
^DD(101,770.9,21,0)="^^27^27^2990712^"
^DD(101,770.9,21,1,0)="For transactions using versions 2.2 and higher of the HL7 standard, this"
^DD(101,770.9,21,2,0)="field defines whether or not the receiving application is expected to"
^DD(101,770.9,21,3,0)="return an acknowledgement. Enhanced Mode Application Acks are always"
^DD(101,770.9,21,4,0)="initiated as a new transaction. The following is an example of a 2-phased"
^DD(101,770.9,21,5,0)="acknowledgement over a tcp connection."
^DD(101,770.9,21,6,0)=" "
^DD(101,770.9,21,7,0)=" "
^DD(101,770.9,21,8,0)="(A)INITIATING SYSTEM         (B)RESPONDING SYSTEM"
^DD(101,770.9,21,9,0)=" "
^DD(101,770.9,21,10,0)="PHASE I"
^DD(101,770.9,21,11,0)="Open connection to B"
^DD(101,770.9,21,12,0)="send ADT/A04----------------->receive ADT/A04"
^DD(101,770.9,21,13,0)="                              validate header"
^DD(101,770.9,21,14,0)="                              commit to safe storage"
^DD(101,770.9,21,15,0)="receive CA<-------------------send CA to A"
^DD(101,770.9,21,16,0)="Close connection"
^DD(101,770.9,21,17,0)=" "
^DD(101,770.9,21,18,0)="PHASE II"
^DD(101,770.9,21,19,0)="                              handoff to receiving Application"
^DD(101,770.9,21,20,0)="                              parse and validate message content"
^DD(101,770.9,21,21,0)="                              generate APPLICATION ACCEPT ACK"
^DD(101,770.9,21,22,0)="                              Open connection to A"
^DD(101,770.9,21,23,0)="receive AA<-------------------send AA"
^DD(101,770.9,21,24,0)="validate header"
^DD(101,770.9,21,25,0)="commit to safe storage"
^DD(101,770.9,21,26,0)="send CA to B------------------>receive CA"
^DD(101,770.9,21,27,0)="                               close connection"
^DD(101,770.9,"DT")="2940928"
^DD(101,770.95,0)="VERSION ID^P771.5'^HL(771.5,^770;10^Q"
^DD(101,770.95,1,0)="^.1"
^DD(101,770.95,1,1,0)="101^AHL1C^MUMPS"
^DD(101,770.95,1,1,1)="N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,""^"")&($P(HL770,""^"",3))&($P(HL770,""^"",4)) ^ORD(101,""AHL1"",$P(HL770,""^""),$P(HL770,""^"",3),$P(HL770,""^"",4),X,DA)="""""
^DD(101,770.95,1,1,2)="N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,""^"")&($P(HL770,""^"",3))&($P(HL770,""^"",4)) ^ORD(101,""AHL1"",$P(HL770,""^""),$P(HL770,""^"",3),$P(HL770,""^"",4),X,DA)"
^DD(101,770.95,1,1,3)="This cross reference is required to look up the protocol related to an incoming message."
^DD(101,770.95,1,1,"%D",0)="^^5^5^2990714^^^^"
^DD(101,770.95,1,1,"%D",1,0)="This cross reference is used to look up the protocol related to an"
^DD(101,770.95,1,1,"%D",2,0)="incoming message at the time the incoming message is received.  This cross"
^DD(101,770.95,1,1,"%D",3,0)="reference is composed of values from the Server Application, Message Type,"
^DD(101,770.95,1,1,"%D",4,0)="Event Type, and Version ID fields.  This cross reference works in"
^DD(101,770.95,1,1,"%D",5,0)="conjunction with the AHL1, AHL1A, and AHL1B cross references."
^DD(101,770.95,1,1,"DT")="2990714"
^DD(101,770.95,1,2,0)="101^AHL21C^MUMPS"
^DD(101,770.95,1,2,1)="N HL770 S HL770=$G(^ORD(101,DA,770)) S:$P(HL770,""^"")&($P(HL770,""^"",3)) ^ORD(101,""AHL21"",$P(HL770,""^""),$P(HL770,""^"",3),X,DA)="""""
^DD(101,770.95,1,2,2)="N HL770 S HL770=$G(^ORD(101,DA,770)) K:$P(HL770,""^"")&($P(HL770,""^"",3)) ^ORD(101,""AHL21"",$P(HL770,""^""),$P(HL770,""^"",3),X,DA)"
^DD(101,770.95,1,2,3)="This cross reference is required to look up the protocol related to an incoming message without an event type."
^DD(101,770.95,1,2,"%D",0)="^^5^5^2990714^^^^"
^DD(101,770.95,1,2,"%D",1,0)="This cross reference is used to look up the protocol related to an"
^DD(101,770.95,1,2,"%D",2,0)="incoming message without an event type at the time the incoming message is"
^DD(101,770.95,1,2,"%D",3,0)="received.  This cross reference is composed of values from the Server"
^DD(101,770.95,1,2,"%D",4,0)="Application, Message Type, and Version ID fields.  This cross reference"
^DD(101,770.95,1,2,"%D",5,0)="works in conjunction with the AHL21 and AHL21A cross references."
^DD(101,770.95,1,2,"DT")="2990714"
^DD(101,770.95,3)="Enter the version of the HL7 Standard used to implement this transaction"
^DD(101,770.95,12)="Only version IDs assigned to the Message Type selected are applicable."
^DD(101,770.95,12.1)="S DIC(""S"")=""N HLX S HLX=+$P(^ORD(101,DA,770),U,3) I $S('HLX:0,'$O(^HL(771.2,HLX,""""V"""",0)):0,1:$D(^HL(771.2,HLX,""""V"""",""""B"""",+$O(^HL(771.5,""""B"""",X,0)))))"""
^DD(101,770.95,21,0)="^^4^4^2990712^"
^DD(101,770.95,21,1,0)="Enter the version of the HL7 standard used to implement this transaction."
^DD(101,770.95,21,2,0)=" "
^DD(101,770.95,21,3,0)="Note that a screen has been added to insure that the version selected"
^DD(101,770.95,21,4,0)="corresponds to the appropriate version of the Message Type defined."
^DD(101,770.95,"DT")="2990824"
^DD(101,771,0)="PROCESSING ROUTINE^K^^771;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,771,3)="  This is Standard MUMPS code."
^DD(101,771,9)="@"
^DD(101,771,21,0)="^^4^4^2990712^"
^DD(101,771,21,1,0)="This field is executed on the receiving system. It defines the routine"
^DD(101,771,21,2,0)="used to process the original inbound message in a transaction and to"
^DD(101,771,21,3,0)="GENERATE and APPLICATION response/ACK back to the sending system using the"
^DD(101,771,21,4,0)="entry point, GENACK^HLMA1."
^DD(101,771,"DT")="2990712"
^DD(101,772,0)="RESPONSE PROCESSING ROUTINE^K^^772;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,772,3)="Code that executes the routine to generate an acknowledgement message (for a subscriber application) or to process an acknowledgement message (for a server application).  This is Standard MUMPS code."
^DD(101,772,9)="@"
^DD(101,772,21,0)="^^7^7^2990712^"
^DD(101,772,21,1,0)="This field is executed on the sending system when an Acknowledgement or"
^DD(101,772,21,2,0)="Query response is received. The message ID of the original message is"
^DD(101,772,21,3,0)="always contained within the response. This is used to identify the"
^DD(101,772,21,4,0)="location of the original message and the corresponding event point"
^DD(101,772,21,5,0)="protocol. Note that this pertains to Original and Enhanced Mode"
^DD(101,772,21,6,0)="Application Acks only. The HL7 package generates and processes"
^DD(101,772,21,7,0)="Enhanced mode Commit Accepts internally."
^DD(101,772,"DT")="2990712"
^DD(101,773.1,0)="SENDING FACILITY REQUIRED?^S^1:YES;0:NO;^773;1^Q"
^DD(101,773.1,3)="Enter 'Y' for 'YES' if the sending facility field is required in the message header segment."
^DD(101,773.1,"DT")="2940928"
^DD(101,773.2,0)="RECEIVING FACILITY REQUIRED?^S^1:YES;0:NO;^773;2^Q"
^DD(101,773.2,3)="Enter 'Y' for 'YES' if the receiving facility field is required in the message header segment."
^DD(101,773.2,"DT")="2940928"
^DD(101,773.3,0)="SECURITY REQUIRED?^S^1:YES;0:NO;^773;3^Q"
^DD(101,773.3,3)="Enter 'Y' for 'YES' if the security field is required in the message header segment."
^DD(101,773.3,"DT")="2940928"
^DD(101,773.4,0)="DATE/TIME OF MESSAGE REQUIRED?^S^1:YES;0:NO;^773;4^Q"
^DD(101,773.4,3)="Enter 'Y' for 'YES' if the date/time of message field is required in the message header segment."
^DD(101,773.4,"DT")="2990712"
^DD(101,774,0)="ROUTING LOGIC^K^^774;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101,774,3)="This is Standard MUMPS code."
^DD(101,774,9)="@"
^DD(101,774,21,0)="^^11^11^2990712^"
^DD(101,774,21,1,0)="M code in this field is executed only when a message is in an OUTBOUND"
^DD(101,774,21,2,0)="state. Normally, Vista HL7 'broadcasts' a message to all subscribers"
^DD(101,774,21,3,0)="whenever a message is generated. However, in some cases, a client may need"
^DD(101,774,21,4,0)="to receive the message only if it matches a particular condition. This"
^DD(101,774,21,5,0)="field allows you to set up screening logic to interpret the message and"
^DD(101,774,21,6,0)="dynamically address the message to those interested in the data when it"
^DD(101,774,21,7,0)="meets these conditions. The output of your routing logic routine should be"
^DD(101,774,21,8,0)="the creation of a list of additional message recipients set into the"
^DD(101,774,21,9,0)="HLL(""LINKS"") array."
^DD(101,774,21,10,0)=" "
^DD(101,774,21,11,0)="For details on dynamic addressing, see the documentation for HL*1.6*14."
^DD(101,774,"DT")="2960924"
^DD(101,775,0)="SUBSCRIBERS^101.0775PA^^775;0"
^DD(101,775,12)="Type field must be a Subscriber"
^DD(101,775,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""S"""""""
^DD(101,"B","*ORDER CANCEL ACTION",100.1)=""
^DD(101,"B","*ORDER PRINT ACTION",100)=""
^DD(101,"B","*ORDER PURGE ACTION",100.2)=""
^DD(101,"B","ACCEPT ACK CODE",770.8)=""
^DD(101,"B","ACCESS",100.3)=""
^DD(101,"B","APPLICATION ACK TYPE",770.9)=""
^DD(101,"B","BATCH/FILE MESSAGE COMMIT ACK",770.14)=""
^DD(101,"B","COLUMN WIDTH",41)=""
^DD(101,"B","COST",8)=""
^DD(101,"B","CREATOR",5)=""
^DD(101,"B","DATE/TIME OF MESSAGE REQUIRED?",773.4)=""
^DD(101,"B","DEFAULT ANSWER",101.043)=""
^DD(101,"B","DEFAULT HELP",101.044)=""
^DD(101,"B","DEFAULT PROMPT",101.042)=""
^DD(101,"B","DEFAULT WORD PROCESSING ANSWER",101.0431)=""
^DD(101,"B","DESCRIPTION",3.5)=""
^DD(101,"B","DIC {DIC}",30)=""
^DD(101,"B","DISABLE",2)=""
^DD(101,"B","DOMAIN (DATA TYPE)",101.041)=""
^DD(101,"B","DOMAIN PARAMETER",101.045)=""
^DD(101,"B","ENTRY ACTION",20)=""
^DD(101,"B","EVENT TYPE",770.4)=""
^DD(101,"B","EXIT ACTION",15)=""
^DD(101,"B","FILE LINK",6)=""
^DD(101,"B","HEADER",26)=""
^DD(101,"B","IDENTIFIER",44)=""
^DD(101,"B","ITEM",10)=""
^DD(101,"B","ITEM TEXT",1)=""
^DD(101,"B","LOCK",3)=""
^DD(101,"B","LOGICAL LINK",770.7)=""
^DD(101,"B","MENU DEFAULT",29)=""
^DD(101,"B","MENU HELP",27)=""
^DD(101,"B","MENU PROMPT",28)=""
^DD(101,"B","MESSAGE STRUCTURE",770.5)=""
^DD(101,"B","METHOD",101.05)=""
^DD(101,"B","MNEMONIC WIDTH",42)=""
^DD(101,"B","NAME",.01)=""
^DD(101,"B","PACKAGE",12)=""
^DD(101,"B","PATH SWITCH",43)=""
^DD(101,"B","PRINT NAME",1.11)=""
^DD(101,"B","PROCESSING ID",770.6)=""
^DD(101,"B","PROCESSING ROUTINE",771)=""
^DD(101,"B","PROHIBITED TIMES",3.9)=""
^DD(101,"B","RECEIVING APPLICATION",770.2)=""
^DD(101,"B","RECEIVING FACILITY REQUIRED?",773.2)=""
^DD(101,"B","REQUIRED VARIABLES",21)=""
^DD(101,"B","REQUIRES SIGNATURE",101.01)=""
^DD(101,"B","RESPONSE MESSAGE TYPE",770.11)=""
^DD(101,"B","RESPONSE PROCESSING ROUTINE",772)=""
^DD(101,"B","ROUTING LOGIC",774)=""
^DD(101,"B","SCREEN",24)=""
^DD(101,"B","SECURITY REQUIRED?",773.3)=""
^DD(101,"B","SENDING APPLICATION",770.1)=""
^DD(101,"B","SENDING FACILITY REQUIRED?",773.1)=""
^DD(101,"B","SET MEMBERSHIP",101.07)=""
^DD(101,"B","SUBSCRIBERS",775)=""
^DD(101,"B","SYNONYM",1.1)=""
^DD(101,"B","TIMESTAMP",99)=""
^DD(101,"B","TRANSACTION MESSAGE TYPE",770.3)=""
^DD(101,"B","TYPE",4)=""
^DD(101,"B","VERSION ID",770.95)=""
^DD(101,"GL",0,1,.01)=""
^DD(101,"GL",0,2,1)=""
^DD(101,"GL",0,3,2)=""
^DD(101,"GL",0,4,4)=""
^DD(101,"GL",0,5,5)=""
^DD(101,"GL",0,6,3)=""
^DD(101,"GL",0,9,3.9)=""
^DD(101,"GL",0,12,12)=""
^DD(101,"GL",.1,1,1.11)=""
^DD(101,"GL",1,0,3.5)=""
^DD(101,"GL",2,0,1.1)=""
^DD(101,"GL",3,0,100.3)=""
^DD(101,"GL",4,1,41)=""
^DD(101,"GL",4,2,42)=""
^DD(101,"GL",4,3,43)=""
^DD(101,"GL",4,4,44)=""
^DD(101,"GL",5,1,6)=""
^DD(101,"GL",5,2,8)=""
^DD(101,"GL",10,0,10)=""
^DD(101,"GL",15,"E1,245",15)=""
^DD(101,"GL",20,"E1,245",20)=""
^DD(101,"GL",21,0,21)=""
^DD(101,"GL",24,"E1,245",24)=""
^DD(101,"GL",26,"E1,245",26)=""
^DD(101,"GL",27,"E1,245",27)=""
^DD(101,"GL",28,"E1,245",28)=""
^DD(101,"GL",29,"E1,245",29)=""
^DD(101,"GL",30,"E1,64",30)=""
^DD(101,"GL",99,1,99)=""
^DD(101,"GL",100,"E1,245",100)=""
^DD(101,"GL",100.1,"E1,245",100.1)=""
^DD(101,"GL",100.2,"E1,245",100.2)=""
^DD(101,"GL",101.01,1,101.01)=""
^DD(101,"GL",101.04,1,101.041)=""
^DD(101,"GL",101.04,2,101.042)=""
^DD(101,"GL",101.04,3,101.043)=""
^DD(101,"GL",101.04,4,101.044)=""
^DD(101,"GL",101.04,5,101.045)=""
^DD(101,"GL",101.0431,0,101.0431)=""
^DD(101,"GL",101.05,0,101.05)=""
^DD(101,"GL",101.07,0,101.07)=""
^DD(101,"GL",770,1,770.1)=""
^DD(101,"GL",770,2,770.2)=""
^DD(101,"GL",770,3,770.3)=""
^DD(101,"GL",770,4,770.4)=""
^DD(101,"GL",770,5,770.5)=""
^DD(101,"GL",770,6,770.6)=""
^DD(101,"GL",770,7,770.7)=""
^DD(101,"GL",770,8,770.8)=""
^DD(101,"GL",770,9,770.9)=""
^DD(101,"GL",770,10,770.95)=""
^DD(101,"GL",770,11,770.11)=""
^DD(101,"GL",770,14,770.14)=""
^DD(101,"GL",771,"E1,245",771)=""
^DD(101,"GL",772,"E1,245",772)=""
^DD(101,"GL",773,1,773.1)=""
^DD(101,"GL",773,2,773.2)=""
^DD(101,"GL",773,3,773.3)=""
^DD(101,"GL",773,4,773.4)=""
^DD(101,"GL",774,"E1,245",774)=""
^DD(101,"GL",775,0,775)=""
^DD(101,"IX",.01)=""
^DD(101,"IX",1)=""
^DD(101,"IX",6)=""
^DD(101,"IX",41)=""
^DD(101,"IX",99)=""
^DD(101,"IX",770.1)=""
^DD(101,"IX",770.2)=""
^DD(101,"IX",770.3)=""
^DD(101,"IX",770.4)=""
^DD(101,"IX",770.95)=""
^DD(101,"RQ",4)=""
^DD(101,"RQ",5)=""
^DD(101,"SB",101.01,10)=""
^DD(101,"SB",101.02,1.1)=""
^DD(101,"SB",101.021,21)=""
^DD(101,"SB",101.03,100.3)=""
^DD(101,"SB",101.0431,101.0431)=""
^DD(101,"SB",101.05,101.05)=""
^DD(101,"SB",101.06,3.5)=""
^DD(101,"SB",101.07,101.07)=""
^DD(101,"SB",101.0775,775)=""
^DD(101.01,0)="ITEM SUB-FIELD^^14^10"
^DD(101.01,0,"DIK")="XQORC"
^DD(101.01,0,"DT")="2910911"
^DD(101.01,0,"IX","AMM",101.01,.01)=""
^DD(101.01,0,"IX","AMM2",101.01,2)=""
^DD(101.01,0,"IX","AMM3",101.01,3)=""
^DD(101.01,0,"IX","AMM5",101.01,5)=""
^DD(101.01,0,"IX","AMM6",101.01,6)=""
^DD(101.01,0,"IX","B",101.01,.01)=""
^DD(101.01,0,"NM","ITEM")=""
^DD(101.01,0,"UP")="101"
^DD(101.01,.01,0)="ITEM^MP101'X^ORD(101,^0;1^S ORDDF=101 D TREE^XQORD101"
^DD(101.01,.01,1,0)="^.1"
^DD(101.01,.01,1,1,0)="101.01^B"
^DD(101.01,.01,1,1,1)="S ^ORD(101,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(101.01,.01,1,1,2)="K ^ORD(101,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(101.01,.01,1,2,0)="101.01^AMM^MUMPS"
^DD(101.01,.01,1,2,1)="D REDOX^XQORD101"
^DD(101.01,.01,1,2,2)="D REDOX^XQORD101"
^DD(101.01,.01,1,3,0)="101^AD"
^DD(101.01,.01,1,3,1)="S ^ORD(101,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(101.01,.01,1,3,2)="K ^ORD(101,""AD"",$E(X,1,30),DA(1),DA)"
^DD(101.01,.01,1,4,0)="^^TRIGGER^101.01^11"
^DD(101.01,.01,1,4,1)="X ^DD(101.01,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(101.01,.01,1,4,1.1) X ^DD(101.01,.01,1,4,1.4)"
^DD(101.01,.01,1,4,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ORD(101,+D0,0)) D0=-1 S Y(101)=$S($D(^ORD(101,D0,101.04)):^(101.04),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)"
^DD(101.01,.01,1,4,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(101.01,.01,1,4,69.3) S Y(101)=$S($D(^ORD(101,D0,0)):^(0),1:"""") S X=$P(Y(101),U,4),X=X S X=X=""T"",Y=X,X=Y(5),X=X&Y S D0=I(0,0) S D1=I(1,0)"
^DD(101.01,.01,1,4,1.4)="S DIH=$S($D(^ORD(101,DIV(0),10,DIV(1),1)):^(1),1:""""),DIV=X S $P(^(1),U,1)=DIV,DIH=101.01,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(101.01,.01,1,4,2)="Q"
^DD(101.01,.01,1,4,69.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(4)=$S($D(^ORD(101,D0,0)):^(0),1:""""),Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"""") S X=$P(Y(1),U,1)"
^DD(101.01,.01,1,4,69.3)="X ^DD(101.01,.01,1,4,69.2) S X=X="""",Y(2)=X,Y(3)=X S X=$P(Y(4),U,4),X=X S X=X=""D"",Y=X,X=Y(2),X=X&Y,Y(5)=X,Y(6)=X,D0=Y(0) S:'$D(^ORD(101,+D0,0)) D0=-1"
^DD(101.01,.01,1,4,"%D",0)="^^2^2^2910911^"
^DD(101.01,.01,1,4,"%D",1,0)="On adding an item initially, stuff the prompt field with the default prompt"
^DD(101.01,.01,1,4,"%D",2,0)="if the item is a term."
^DD(101.01,.01,1,4,"CREATE CONDITION")="(PROMPT="""")&(INTERNAL(TYPE)=""D"")&(INTERNAL(ITEM:TYPE)=""T"")"
^DD(101.01,.01,1,4,"CREATE VALUE")="ITEM:DEFAULT PROMPT"
^DD(101.01,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(101.01,.01,1,4,"DT")="2910911"
^DD(101.01,.01,1,4,"FIELD")="PROMPT"
^DD(101.01,.01,1,5,0)="^^TRIGGER^101.01^12"
^DD(101.01,.01,1,5,1)="X ^DD(101.01,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(101.01,.01,1,5,1.1) X ^DD(101.01,.01,1,5,1.4)"
^DD(101.01,.01,1,5,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ORD(101,+D0,0)) D0=-1 S Y(101)=$S($D(^ORD(101,D0,101.04)):^(101.04),1:"""") S X=$P(Y(101),U,3) S D0=I(0,0) S D1=I(1,0)"
^DD(101.01,.01,1,5,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(101.01,.01,1,5,69.3) S Y(101)=$S($D(^ORD(101,D0,0)):^(0),1:"""") S X=$P(Y(101),U,4),X=X S X=X=""T"",Y=X,X=Y(5),X=X&Y S D0=I(0,0) S D1=I(1,0)"
^DD(101.01,.01,1,5,1.4)="S DIH=$S($D(^ORD(101,DIV(0),10,DIV(1),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=101.01,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(101.01,.01,1,5,2)="Q"
^DD(101.01,.01,1,5,69.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(4)=$S($D(^ORD(101,D0,0)):^(0),1:""""),Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"""") S X=$P(Y(1),U,2)"
^DD(101.01,.01,1,5,69.3)="X ^DD(101.01,.01,1,5,69.2) S X=X="""",Y(2)=X,Y(3)=X S X=$P(Y(4),U,4),X=X S X=X=""D"",Y=X,X=Y(2),X=X&Y,Y(5)=X,Y(6)=X,D0=Y(0) S:'$D(^ORD(101,+D0,0)) D0=-1"
^DD(101.01,.01,1,5,"%D",0)="^^2^2^2910911^"
^DD(101.01,.01,1,5,"%D",1,0)="On adding an item initially, stuff the default field with the default"
^DD(101.01,.01,1,5,"%D",2,0)="answer if the item is a term."
^DD(101.01,.01,1,5,"CREATE CONDITION")="(DEFAULT="""")&(INTERNAL(TYPE)=""D"")&(INTERNAL(ITEM:TYPE)=""T"")"
^DD(101.01,.01,1,5,"CREATE VALUE")="ITEM:DEFAULT ANSWER"
^DD(101.01,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(101.01,.01,1,5,"DT")="2910911"
^DD(101.01,.01,1,5,"FIELD")="DEFAULT"
^DD(101.01,.01,1,6,0)="^^TRIGGER^101.01^13"
^DD(101.01,.01,1,6,1)="X ^DD(101.01,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(101.01,.01,1,6,1.1) X ^DD(101.01,.01,1,6,1.4)"
^DD(101.01,.01,1,6,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ORD(101,+D0,0)) D0=-1 S Y(101)=$S($D(^ORD(101,D0,101.04)):^(101.04),1:"""") S X=$P(Y(101),U,4) S D0=I(0,0) S D1=I(1,0)"
^DD(101.01,.01,1,6,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(101.01,.01,1,6,69.3) S Y(101)=$S($D(^ORD(101,D0,0)):^(0),1:"""") S X=$P(Y(101),U,4),X=X S X=X=""T"",Y=X,X=Y(5),X=X&Y S D0=I(0,0) S D1=I(1,0)"
^DD(101.01,.01,1,6,1.4)="S DIH=$S($D(^ORD(101,DIV(0),10,DIV(1),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=101.01,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(101.01,.01,1,6,2)="Q"
^DD(101.01,.01,1,6,69.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(4)=$S($D(^ORD(101,D0,0)):^(0),1:""""),Y(1)=$S($D(^ORD(101,D0,10,D1,1)):^(1),1:"""") S X=$P(Y(1),U,3)"
^DD(101.01,.01,1,6,69.3)="X ^DD(101.01,.01,1,6,69.2) S X=X="""",Y(2)=X,Y(3)=X S X=$P(Y(4),U,4),X=X S X=X=""D"",Y=X,X=Y(2),X=X&Y,Y(5)=X,Y(6)=X,D0=Y(0) S:'$D(^ORD(101,+D0,0)) D0=-1"
^DD(101.01,.01,1,6,"%D",0)="^^2^2^2910911^"
^DD(101.01,.01,1,6,"%D",1,0)="On adding an item initially, stuff the help field with the default help"
^DD(101.01,.01,1,6,"%D",2,0)="if the item is a term."
^DD(101.01,.01,1,6,"CREATE CONDITION")="(HELP="""")&(INTERNAL(TYPE)=""D"")&(INTERNAL(ITEM:TYPE)=""T"")"
^DD(101.01,.01,1,6,"CREATE VALUE")="ITEM:DEFAULT HELP"
^DD(101.01,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(101.01,.01,1,6,"DT")="2910911"
^DD(101.01,.01,1,6,"FIELD")="HELP"
^DD(101.01,.01,3)="Enter a protocol.  A protocol that is an ancestor may not also be a sub-item."
^DD(101.01,.01,21,0)="^^3^3^2920731^^^^"
^DD(101.01,.01,21,1,0)="This points to a protocol which is subordinate to this protocol."
^DD(101.01,.01,21,2,0)="NOTE:  The parent protocol or one of its ancestors may not be entered"
^DD(101.01,.01,21,3,0)="as an item."
^DD(101.01,.01,"DT")="2910911"
^DD(101.01,2,0)="MNEMONIC^FX^^0;2^I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(101.01,2,1,0)="^.1"
^DD(101.01,2,1,1,0)="101.01^AMM2^MUMPS"
^DD(101.01,2,1,1,1)="D REDOX^XQORD101"
^DD(101.01,2,1,1,2)="D REDOX^XQORD101"
^DD(101.01,2,3)="Enter a Mnemonic to be used when this protocol is displayed for selection (1-4 characters)."
^DD(101.01,2,21,0)="^^1^1^2920224^^"
^DD(101.01,2,21,1,0)="This is a short abbreviation for the item."
^DD(101.01,2,"DT")="2890104"
^DD(101.01,3,0)="SEQUENCE^NJ6,2^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(101.01,3,1,0)="^.1"
^DD(101.01,3,1,1,0)="101.01^AMM3^MUMPS"
^DD(101.01,3,1,1,1)="D REDOX^XQORD101"
^DD(101.01,3,1,1,2)="D REDOX^XQORD101"
^DD(101.01,3,3)="Enter a number for sequencing this item with other items when displayed."
^DD(101.01,3,21,0)="^^4^4^2920224^^"
^DD(101.01,3,21,1,0)="This is the order in which items in the list should be processed.  In the"
^DD(101.01,3,21,2,0)="case of menus, the items are displayed in the order derived from this"
^DD(101.01,3,21,3,0)="field.  In the case of protocols and extended actions, the items are"
^DD(101.01,3,21,4,0)="executed in the order derived from this field."
^DD(101.01,3,"DT")="2910911"
^DD(101.01,4,0)="MODIFYING ACTION^P101X^ORD(101,^0;4^S ORDDF=101 D TREE^XQORD101"
^DD(101.01,4,21,0)="^^5^5^2920224^^^"
^DD(101.01,4,21,1,0)="This points to a protocol which is executed before the item for this same"
^DD(101.01,4,21,2,0)="entry is executed.  This allows the possibility of creating protocols"
^DD(101.01,4,21,3,0)="which set up special variables, etc., according to the context of the"
^DD(101.01,4,21,4,0)="protocol.  It also allows screens at the item level if the variables"
^DD(101.01,4,21,5,0)="ORQUIT or ORABORT are used to prevent execution of the item."
^DD(101.01,4,"DT")="2890502"
^DD(101.01,5,0)="FORMAT CODE^S^O:output only;H:header;^0;5^Q"
^DD(101.01,5,1,0)="^.1"
^DD(101.01,5,1,1,0)="101.01^AMM5^MUMPS"
^DD(101.01,5,1,1,1)="D REDOX^XQORD101"
^DD(101.01,5,1,1,2)="D REDOX^XQORD101"
^DD(101.01,5,1,1,"%D",0)="^^1^1^2910911^"
^DD(101.01,5,1,1,"%D",1,0)="Update protocol timestamp when FORMAT CODE changed."
^DD(101.01,5,1,1,"DT")="2910911"
^DD(101.01,5,3)="Enter OUTPUT ONLY if this item should be displayed only, HEADER if this item should start printing over the mnemonic."
^DD(101.01,5,21,0)="^^2^2^2920225^"
^DD(101.01,5,21,1,0)="This allows items used on menus for formatting purposes to be made"
^DD(101.01,5,21,2,0)="unselectable (sub-headers, blank lines, etc.)."
^DD(101.01,5,"DT")="2910911"
^DD(101.01,6,0)="DISPLAY NAME^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(101.01,6,1,0)="^.1"
^DD(101.01,6,1,1,0)="101.01^AMM6^MUMPS"
^DD(101.01,6,1,1,1)="D REDOX^XQORD101"
^DD(101.01,6,1,1,2)="D REDOX^XQORD101"
^DD(101.01,6,1,1,"%D",0)="^^1^1^2910911^"
^DD(101.01,6,1,1,"%D",1,0)="Update protocol timestamp whenever DISPLAY NAME is changed."
^DD(101.01,6,1,1,"DT")="2910911"
^DD(101.01,6,3)="Answer must be 1-40 characters in length."
^DD(101.01,6,21,0)="^^4^4^2920225^"
^DD(101.01,6,21,1,0)="This allows the item text that normally appears on the menu to be"
^DD(101.01,6,21,2,0)="displayed.  For example, this field may be used to set up menus so"
^DD(101.01,6,21,3,0)="that items are displayed in mixed case, even though the item text may"
^DD(101.01,6,21,4,0)="all be in upper case."
^DD(101.01,6,"DT")="2910911"
^DD(101.01,11,0)="PROMPT^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(101.01,11,3)="Answer must be 1-30 characters in length."
^DD(101.01,11,5,1,0)="101.01^.01^4"
^DD(101.01,11,21,0)="^^1^1^2920225^"
^DD(101.01,11,21,1,0)="This is the actual prompt displayed for this item in the dialog."
^DD(101.01,11,"DT")="2910819"
^DD(101.01,12,0)="DEFAULT^F^^1;2^K:$L(X)>80!($L(X)<1) X"
^DD(101.01,12,3)="Answer must be 1-80 characters in length."
^DD(101.01,12,5,1,0)="101.01^.01^5"
^DD(101.01,12,21,0)="^^1^1^2920225^"
^DD(101.01,12,21,1,0)="This is the default response for this item in the dialog."
^DD(101.01,12,"DT")="2910819"
^DD(101.01,13,0)="HELP^F^^1;3^K:$L(X)>80!($L(X)<1) X"
^DD(101.01,13,3)="Answer must be 1-80 characters in length."
^DD(101.01,13,5,1,0)="101.01^.01^6"
^DD(101.01,13,21,0)="^^1^1^2920225^"
^DD(101.01,13,21,1,0)="This is the help text displayed for this item in the dialog."
^DD(101.01,13,"DT")="2910819"
^DD(101.01,14,0)="MODE^F^^1;4^K:$L(X)>5!($L(X)<1) X"
^DD(101.01,14,3)="Answer must be 1-5 characters in length."
^DD(101.01,14,21,0)="^^6^6^2920225^"
^DD(101.01,14,21,1,0)="This tells how this item should be treated when processing the dialog."
^DD(101.01,14,21,2,0)="  S - suppresses inclusion of the prompt when creating the text generated"
^DD(101.01,14,21,3,0)="      by the dialog."
^DD(101.01,14,21,4,0)="  E - allows the item to only be presented when editing an existing"
^DD(101.01,14,21,5,0)="      response."
^DD(101.01,14,21,6,0)="  R - identifies the field as required."
^DD(101.01,14,"DT")="2910906"
^DD(101.01,"B","DEFAULT",12)=""
^DD(101.01,"B","DISPLAY NAME",6)=""
^DD(101.01,"B","FORMAT CODE",5)=""
^DD(101.01,"B","HELP",13)=""
^DD(101.01,"B","ITEM",.01)=""
^DD(101.01,"B","MNEMONIC",2)=""
^DD(101.01,"B","MODE",14)=""
^DD(101.01,"B","MODIFYING ACTION",4)=""
^DD(101.01,"B","PROMPT",11)=""
^DD(101.01,"B","SEQUENCE",3)=""
^DD(101.01,"GL",0,1,.01)=""
^DD(101.01,"GL",0,2,2)=""
^DD(101.01,"GL",0,3,3)=""
^DD(101.01,"GL",0,4,4)=""
^DD(101.01,"GL",0,5,5)=""
^DD(101.01,"GL",0,6,6)=""
^DD(101.01,"GL",1,1,11)=""
^DD(101.01,"GL",1,2,12)=""
^DD(101.01,"GL",1,3,13)=""
^DD(101.01,"GL",1,4,14)=""
^DD(101.01,"IX",.01)=""
^DD(101.01,"IX",2)=""
^DD(101.01,"IX",3)=""
^DD(101.01,"IX",5)=""
^DD(101.01,"IX",6)=""
^DD(101.02,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(101.02,0,"DIK")="XQORC"
^DD(101.02,0,"IX","AM1V1",101.02,.01)=""
^DD(101.02,0,"IX","B",101.02,.01)=""
^DD(101.02,0,"NM","SYNONYM")=""
^DD(101.02,0,"UP")="101"
^DD(101.02,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<1) X"
^DD(101.02,.01,1,0)="^.1"
^DD(101.02,.01,1,1,0)="101.02^B"
^DD(101.02,.01,1,1,1)="S ^ORD(101,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(101.02,.01,1,1,2)="K ^ORD(101,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(101.02,.01,1,2,0)="101^B^MNEMONIC"
^DD(101.02,.01,1,2,1)="S:'$D(^ORD(101,""B"",$E(X,1,30),DA(1),DA)) ^(DA)=1"
^DD(101.02,.01,1,2,2)="I $D(^ORD(101,""B"",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)"
^DD(101.02,.01,1,3,0)="101^K2^MUMPS"
^DD(101.02,.01,1,3,1)="D K21^XQORDD1"
^DD(101.02,.01,1,3,2)="D K22^XQORDD1"
^DD(101.02,.01,1,4,0)="101.02^AM1V1^MUMPS"
^DD(101.02,.01,1,4,1)="D REDOM^XQORD101"
^DD(101.02,.01,1,4,2)="D REDOM^XQORD101"
^DD(101.02,.01,1,4,"%D",0)="^^1^1^2911031^"
^DD(101.02,.01,1,4,"%D",1,0)="Updates timestamps on menus containing this item."
^DD(101.02,.01,1,4,"DT")="2911031"
^DD(101.02,.01,3)="Enter a synonym for this protocol (1-65 characters)"
^DD(101.02,.01,"DT")="2911031"
^DD(101.02,"B","SYNONYM",.01)=""
^DD(101.02,"GL",0,1,.01)=""
^DD(101.02,"IX",.01)=""
^DD(101.021,0)="REQUIRED VARIABLES SUB-FIELD^^.01^1"
^DD(101.021,0,"DIK")="XQORC"
^DD(101.021,0,"IX","B",101.021,.01)=""
^DD(101.021,0,"NM","REQUIRED VARIABLES")=""
^DD(101.021,0,"UP")="101"
^DD(101.021,.01,0)="REQUIRED VARIABLES^MF^^0;1^K:$L(X)>30!($L(X)<1)!'(X?1A.E) X"
^DD(101.021,.01,1,0)="^.1"
^DD(101.021,.01,1,1,0)="101.021^B"
^DD(101.021,.01,1,1,1)="S ^ORD(101,DA(1),21,""B"",$E(X,1,30),DA)="""""
^DD(101.021,.01,1,1,2)="K ^ORD(101,DA(1),21,""B"",$E(X,1,30),DA)"
^DD(101.021,.01,3)="Enter the required variable."
^DD(101.021,.01,"DT")="2881209"
^DD(101.021,"B","REQUIRED VARIABLES",.01)=""
^DD(101.021,"GL",0,1,.01)=""
^DD(101.021,"IX",.01)=""
^DD(101.03,0)="ACCESS SUB-FIELD^^.01^1"
^DD(101.03,0,"DIK")="XQORC"
^DD(101.03,0,"IX","B",101.03,.01)=""
^DD(101.03,0,"IX","K",101.03,.01)=""
^DD(101.03,0,"NM","ACCESS")=""
^DD(101.03,0,"UP")="101"
^DD(101.03,.01,0)="ACCESS^MP19.1'^DIC(19.1,^0;1^Q"
^DD(101.03,.01,1,0)="^.1"
^DD(101.03,.01,1,1,0)="101.03^B"
^DD(101.03,.01,1,1,1)="S ^ORD(101,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(101.03,.01,1,1,2)="K ^ORD(101,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(101.03,.01,1,2,0)="101.03^K^MUMPS"
^DD(101.03,.01,1,2,1)="D K31^XQORDD1"
^DD(101.03,.01,1,2,2)="D K32^XQORDD1"
^DD(101.03,.01,3)="Enter a security key to limit access to this protocol."
^DD(101.03,.01,"DT")="2900327"
^DD(101.03,"B","ACCESS",.01)=""
^DD(101.03,"GL",0,1,.01)=""
^DD(101.03,"IX",.01)=""
^DD(101.0431,0)="DEFAULT WORD PROCESSING ANSWER SUB-FIELD^^.01^1"
^DD(101.0431,0,"DT")="2911212"
^DD(101.0431,0,"NM","DEFAULT WORD PROCESSING ANSWER")=""
^DD(101.0431,0,"UP")="101"
^DD(101.0431,.01,0)="DEFAULT WORD PROCESSING ANSWER^WL^^0;1^Q"
^DD(101.0431,.01,3)="Enter the text that should be the template for this word processing item."
^DD(101.0431,.01,"DT")="2911212"
^DD(101.0431,"B","DEFAULT WORD PROCESSING ANSWER",.01)=""
^DD(101.0431,"GL",0,1,.01)=""
^DD(101.05,0)="METHOD SUB-FIELD^^.02^2"
^DD(101.05,0,"DT")="2910401"
^DD(101.05,0,"ID",.02)="W:$D(^(1)) ""   "",$E(^(1),1,245)"
^DD(101.05,0,"NM","METHOD")=""
^DD(101.05,0,"UP")="101"
^DD(101.05,.01,0)="METHOD^MNJ2,0X^^0;1^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(101.05,.01,1,0)="^.1^^0"
^DD(101.05,.01,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(101.05,.01,21,0)="^^2^2^2920225^"
^DD(101.05,.01,21,1,0)="This is reserved for future use.  The numeric values of this field"
^DD(101.05,.01,21,2,0)="currently correspond to OE/RR actions."
^DD(101.05,.01,"DT")="2910614"
^DD(101.05,.02,0)="METHOD ACTION^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.05,.02,3)="This is Standard MUMPS code."
^DD(101.05,.02,21,0)="^^1^1^2920225^"
^DD(101.05,.02,21,1,0)="This is the code necessary to implement the method."
^DD(101.05,.02,"DT")="2910401"
^DD(101.05,"B","METHOD",.01)=""
^DD(101.05,"B","METHOD ACTION",.02)=""
^DD(101.05,"GL",0,1,.01)=""
^DD(101.05,"GL",1,"E1,245",.02)=""
^DD(101.06,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(101.06,0,"IX","B",101.06,.01)=""
^DD(101.06,0,"NM","DESCRIPTION")=""
^DD(101.06,0,"UP")="101"
^DD(101.06,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(101.06,.01,1,0)="^.1"
^DD(101.06,.01,1,1,0)="101.06^B"
^DD(101.06,.01,1,1,1)="S ^ORD(101,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(101.06,.01,1,1,2)="K ^ORD(101,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(101.06,.01,3)="Enter a description for this protocol"
^DD(101.06,.01,21,0)="^^1^1^2920224^"
^DD(101.06,.01,21,1,0)="This is the protocol description."
^DD(101.06,.01,"DT")="2881121"
^DD(101.06,"B","DESCRIPTION",.01)=""
^DD(101.06,"GL",0,1,.01)=""
^DD(101.06,"IX",.01)=""
^DD(101.07,0)="SET MEMBERSHIP SUB-FIELD^^.01^1"
^DD(101.07,0,"DIK")="XQORC"
^DD(101.07,0,"DT")="2910401"
^DD(101.07,0,"IX","B",101.07,.01)=""
^DD(101.07,0,"NM","SET MEMBERSHIP")=""
^DD(101.07,0,"UP")="101"
^DD(101.07,.01,0)="SET MEMBERSHIP^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<2) X"
^DD(101.07,.01,1,0)="^.1"
^DD(101.07,.01,1,1,0)="101.07^B"
^DD(101.07,.01,1,1,1)="S ^ORD(101,DA(1),101.07,""B"",$E(X,1,30),DA)="""""
^DD(101.07,.01,1,1,2)="K ^ORD(101,DA(1),101.07,""B"",$E(X,1,30),DA)"
^DD(101.07,.01,1,2,0)="101^S^MUMPS"
^DD(101.07,.01,1,2,1)="I $L($P(^ORD(101,DA(1),0),""^"",2)) S ^ORD(101,""S.""_X,$P(^ORD(101,DA(1),0),""^"",2),DA(1))="""""
^DD(101.07,.01,1,2,2)="I $L($P(^ORD(101,DA(1),0),""^"",2)) K ^ORD(101,""S.""_X,$P(^ORD(101,DA(1),0),""^"",2),DA(1))"
^DD(101.07,.01,1,2,"DT")="2910401"
^DD(101.07,.01,3)="Answer must be 2-8 characters in length."
^DD(101.07,.01,"DT")="2910401"
^DD(101.07,"B","SET MEMBERSHIP",.01)=""
^DD(101.07,"GL",0,1,.01)=""
^DD(101.07,"IX",.01)=""
^DD(101.0775,0)="SUBSCRIBERS SUB-FIELD^^.01^1"
^DD(101.0775,0,"DIK")="XQORC"
^DD(101.0775,0,"DT")="2990722"
^DD(101.0775,0,"IX","B",101.0775,.01)=""
^DD(101.0775,0,"NM","SUBSCRIBERS")=""
^DD(101.0775,0,"UP")="101"
^DD(101.0775,.01,0)="SUBSCRIBERS^M*P101^ORD(101,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(101.0775,.01,1,0)="^.1"
^DD(101.0775,.01,1,1,0)="101.0775^B"
^DD(101.0775,.01,1,1,1)="S ^ORD(101,DA(1),775,""B"",$E(X,1,30),DA)="""""
^DD(101.0775,.01,1,1,2)="K ^ORD(101,DA(1),775,""B"",$E(X,1,30),DA)"
^DD(101.0775,.01,1,2,0)="101^AB"
^DD(101.0775,.01,1,2,1)="S ^ORD(101,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(101.0775,.01,1,2,2)="K ^ORD(101,""AB"",$E(X,1,30),DA(1),DA)"
^DD(101.0775,.01,1,2,"DT")="2990722"
^DD(101.0775,.01,12)="Type must be Subscriber"
^DD(101.0775,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""S"""""""
^DD(101.0775,.01,21,0)="^^2^2^2990722^"
^DD(101.0775,.01,21,1,0)="This contains Protocols of Type, Subscribers, who are subscribing to this Event"
^DD(101.0775,.01,21,2,0)="Drivers."
^DD(101.0775,.01,"DT")="2990722"
^DD(101.0775,"B","SUBSCRIBERS",.01)=""
^DD(101.0775,"GL",0,1,.01)=""
^DD(101.0775,"IX",.01)=""
^DD(101.11,0)="FIELD^^1^3"
^DD(101.11,0,"DT")="2910904"
^DD(101.11,0,"NM","XQOR WORD PROCESSING")=""
^DD(101.11,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.11,.001,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(101.11,.001,21,0)="^^2^2^2920225^"
^DD(101.11,.001,21,1,0)="This is the internal entry number that uniquely identifies this section"
^DD(101.11,.001,21,2,0)="of text."
^DD(101.11,.001,"DT")="2910904"
^DD(101.11,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(101.11,.01,1,0)="^.1^^0"
^DD(101.11,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(101.11,.01,21,0)="^^1^1^2920225^^"
^DD(101.11,.01,21,1,0)="This identifies the text by a name or the date/time it was created."
^DD(101.11,.01,"DT")="2920427"
^DD(101.11,1,0)="TEXT^101.111^^1;0"
^DD(101.11,1,21,0)="^^1^1^2920225^"
^DD(101.11,1,21,1,0)="This contains the actual text that has been entered."
^DD(101.11,"B","NAME",.01)=""
^DD(101.11,"B","NUMBER",.001)=""
^DD(101.11,"B","TEXT",1)=""
^DD(101.11,"GL",0,1,.01)=""
^DD(101.11,"GL",1,0,1)=""
^DD(101.11,"RQ",.01)=""
^DD(101.11,"SB",101.111,1)=""
^DD(101.111,0)="TEXT SUB-FIELD^^.01^1"
^DD(101.111,0,"DT")="2910904"
^DD(101.111,0,"NM","TEXT")=""
^DD(101.111,0,"UP")="101.11"
^DD(101.111,.01,0)="TEXT^WL^^0;1^Q"
^DD(101.111,.01,"DT")="2910904"
^DD(101.111,"B","TEXT",.01)=""
^DD(101.111,"GL",0,1,.01)=""
^DD(101.13,0)="FIELD^^1^2"
^DD(101.13,0,"DDA")="N"
^DD(101.13,0,"DT")="3020313"
^DD(101.13,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(101.13,0,"IX","B",101.13,.01)=""
^DD(101.13,0,"NM","OR CPRS TABS")=""
^DD(101.13,0,"PT",200.010113,.01)=""
^DD(101.13,0,"VR")="3.0"
^DD(101.13,0,"VRPK")="OR"
^DD(101.13,.01,0)="TAB NAME^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(101.13,.01,1,0)="^.1"
^DD(101.13,.01,1,1,0)="101.13^B"
^DD(101.13,.01,1,1,1)="S ^ORD(101.13,""B"",$E(X,1,30),DA)="""""
^DD(101.13,.01,1,1,2)="K ^ORD(101.13,""B"",$E(X,1,30),DA)"
^DD(101.13,.01,3)="Answer must be 3 characters in length"
^DD(101.13,.01,8.5)="@"
^DD(101.13,.01,9)="@"
^DD(101.13,.01,21,0)="^^1^1^3020313^"
^DD(101.13,.01,21,1,0)="This field stores CPRS GUI Cover Sheet tab acronyms."
^DD(101.13,.01,"DT")="3020314"
^DD(101.13,1,0)="TAB DESCRIPTION^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(101.13,1,3)="Answer must be 1-35 characters in length"
^DD(101.13,1,21,0)="^^1^1^3020313^"
^DD(101.13,1,21,1,0)="This field stores descriptions of CPRS GUI Cover Sheet tab acronyms."
^DD(101.13,1,"DT")="3020314"
^DD(101.13,"B","TAB DESCRIPTION",1)=""
^DD(101.13,"B","TAB NAME",.01)=""
^DD(101.13,"GL",0,1,.01)=""
^DD(101.13,"GL",0,2,1)=""
^DD(101.13,"IX",.01)=""
^DD(101.13,"RQ",.01)=""
^DD(101.15,0)="FIELD^^2^5"
^DD(101.15,0,"DT")="3010621"
^DD(101.15,0,"IX","B",101.15,.01)=""
^DD(101.15,0,"NM","OE/RR COM OBJECTS")=""
^DD(101.15,0,"PT",8927,.17)=""
^DD(101.15,0,"VR")="3.0"
^DD(101.15,0,"VRPK")="OR"
^DD(101.15,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(101.15,.01,1,0)="^.1^^0"
^DD(101.15,.01,1,1,0)="101.15^B"
^DD(101.15,.01,1,1,1)="S ^ORD(101.15,""B"",$E(X,1,30),DA)="""""
^DD(101.15,.01,1,1,2)="K ^ORD(101.15,""B"",$E(X,1,30),DA)"
^DD(101.15,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(101.15,.01,"DT")="3010629"
^DD(101.15,.02,0)="OBJECT GUID^RF^^0;2^K:$L(X)>38!($L(X)<38)!'(X?1""{""8(1U,1N)1""-""4(1U,1N)1""-""4(1U,1N)1""-""4(1U,1N)1""-""12(1U,1N)1""}"") X"
^DD(101.15,.02,3)="Enter Valid GUI in {XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX} format"
^DD(101.15,.02,21,0)="^.001^1^1^3010620^^^^"
^DD(101.15,.02,21,1,0)="COM Object GUID"
^DD(101.15,.02,"DT")="3010620"
^DD(101.15,.03,0)="INACTIVE^S^I:INACTIVE;^0;3^Q"
^DD(101.15,.03,3)="Inactivate COM Object"
^DD(101.15,.03,"DT")="3010620"
^DD(101.15,.04,0)="PARAM1^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(101.15,.04,3)="Answer must be 1-30 characters in length."
^DD(101.15,.04,21,0)="^.001^1^1^3010621^^"
^DD(101.15,.04,21,1,0)="Optional parameter to pass to COM object as PARAM1 "
^DD(101.15,.04,"DT")="3010621"
^DD(101.15,2,0)="DESCRIPTION^101.152^^2;0"
^DD(101.15,2,21,0)="^^2^2^3010628^"
^DD(101.15,2,21,1,0)="Optional description of COM Object.  Should include any contact"
^DD(101.15,2,21,2,0)="information for vendor or other provider of the COM Object."
^DD(101.15,"B","DESCRIPTION",2)=""
^DD(101.15,"B","INACTIVE",.03)=""
^DD(101.15,"B","NAME",.01)=""
^DD(101.15,"B","OBJECT GUID",.02)=""
^DD(101.15,"B","PARAM1",.04)=""
^DD(101.15,"GL",0,1,.01)=""
^DD(101.15,"GL",0,2,.02)=""
^DD(101.15,"GL",0,3,.03)=""
^DD(101.15,"GL",0,4,.04)=""
^DD(101.15,"GL",2,0,2)=""
^DD(101.15,"IX",.01)=""
^DD(101.15,"RQ",.01)=""
^DD(101.15,"RQ",.02)=""
^DD(101.15,"SB",101.152,2)=""
^DD(101.152,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(101.152,0,"DT")="3010620"
^DD(101.152,0,"NM","DESCRIPTION")=""
^DD(101.152,0,"UP")="101.15"
^DD(101.152,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(101.152,.01,3)="COM Object Description"
^DD(101.152,.01,21,0)="^^1^1^3010620^"
^DD(101.152,.01,21,1,0)="COM Object Description"
^DD(101.152,.01,"DT")="3010620"
^DD(101.152,"B","DESCRIPTION",.01)=""
^DD(101.152,"GL",0,1,.01)=""
^DD(101.24,0)="FIELD^^.47^40"
^DD(101.24,0,"DDA")="N"
^DD(101.24,0,"DT")="3051006"
^DD(101.24,0,"ID",.23)="W:$D(^(2)) ""   "",$P(^(2),U,3)"
^DD(101.24,0,"ID",.24)="W:$D(^(2)) ""   "",$P(^(2),U,4)"
^DD(101.24,0,"IX","AC",101.24,.02)=""
^DD(101.24,0,"IX","B",101.24,.01)=""
^DD(101.24,0,"NM","OE/RR REPORT")=""
^DD(101.24,0,"PT",101.24,.18)=""
^DD(101.24,0,"PT",101.241,.01)=""
^DD(101.24,0,"VR")="3.0"
^DD(101.24,0,"VRPK")="OR"
^DD(101.24,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.24,.001,3)="Type a Number between 1 and 10000, 0 Decimal Digits"
^DD(101.24,.001,21,0)="^^1^1^3000921^"
^DD(101.24,.001,21,1,0)="This is the Number field for the file."
^DD(101.24,.001,"DT")="3000920"
^DD(101.24,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(101.24,.01,1,0)="^.1^^-1"
^DD(101.24,.01,1,1,0)="101.24^B"
^DD(101.24,.01,1,1,1)="S ^ORD(101.24,""B"",$E(X,1,30),DA)="""""
^DD(101.24,.01,1,1,2)="K ^ORD(101.24,""B"",$E(X,1,30),DA)"
^DD(101.24,.01,3)="Answer must be 3-30 characters in length."
^DD(101.24,.01,21,0)="^^1^1^3000921^"
^DD(101.24,.01,21,1,0)="This is the Name of the report."
^DD(101.24,.01,"DT")="3010510"
^DD(101.24,.02,0)="ID^RF^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(101.24,.02,1,0)="^.1"
^DD(101.24,.02,1,1,0)="101.24^AC"
^DD(101.24,.02,1,1,1)="S ^ORD(101.24,""AC"",$E(X,1,30),DA)="""""
^DD(101.24,.02,1,1,2)="K ^ORD(101.24,""AC"",$E(X,1,30),DA)"
^DD(101.24,.02,1,1,"DT")="3001005"
^DD(101.24,.02,3)="Answer must be 1-10 characters in length."
^DD(101.24,.02,21,0)="^^4^4^3000921^"
^DD(101.24,.02,21,1,0)="This is the code that identifies the report.  Each tab in CPRS that"
^DD(101.24,.02,21,2,0)="uses reports looks for this ID in order to process the report."
^DD(101.24,.02,21,3,0)="Each tab also uses a unique set of ID's.  An ID of 5 on the Reports"
^DD(101.24,.02,21,4,0)="Tab may not identify the same report on a different tab."
^DD(101.24,.02,"DT")="3001005"
^DD(101.24,.03,0)="REMOTE^S^1:YES;2:REMOTE ONLY;^0;3^Q"
^DD(101.24,.03,21,0)="^^2^2^3000921^"
^DD(101.24,.03,21,1,0)="This field is used to identify which reports allow remote access through"
^DD(101.24,.03,21,2,0)="Remote Data Views."
^DD(101.24,.03,"DT")="3050512"
^DD(101.24,.04,0)="QUALIFIER^S^1:HSType;2:DateTime;3:Imaging;4:NutrAssess;19:MedicineProcedure;39:ListView;5:HSComponent;6:HSWPComponent;28:Surgery;^0;4^Q"
^DD(101.24,.04,21,0)="^.001^2^2^3010531^^^"
^DD(101.24,.04,21,1,0)="This field identifies which qualifier to use when processing the report."
^DD(101.24,.04,21,2,0)="Examples of qualifiers are HSType, DateTime, Imaging and NutrAssess."
^DD(101.24,.04,"DT")="3011004"
^DD(101.24,.05,0)="ROUTINE^FI^^0;5^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.05,3)="Answer must be 1-8 characters in length."
^DD(101.24,.05,8.5)="@"
^DD(101.24,.05,9)="@"
^DD(101.24,.05,21,0)="^.001^1^1^3001026^^^"
^DD(101.24,.05,21,1,0)="This is the routine that is invoked to produce the report."
^DD(101.24,.05,23,0)="^.001^2^2^3001026^^"
^DD(101.24,.05,23,1,0)="The Labs Tab does not have a value for this field.  The CPRS executable"
^DD(101.24,.05,23,2,0)="calls separate RPC's for each report."
^DD(101.24,.05,"DT")="3040126"
^DD(101.24,.06,0)="ENTRY POINT^FI^^0;6^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.06,3)="Answer must be 1-8 characters in length."
^DD(101.24,.06,8.5)="@"
^DD(101.24,.06,9)="@"
^DD(101.24,.06,21,0)="^.001^2^2^3001026^^"
^DD(101.24,.06,21,1,0)="This is the entry point for the ROUTINE that is invoked to produce the"
^DD(101.24,.06,21,2,0)="report."
^DD(101.24,.06,23,0)="^.001^2^2^3001026^^"
^DD(101.24,.06,23,1,0)="The Labs Tab does not have a value for this field.  The CPRS executable"
^DD(101.24,.06,23,2,0)="calls separate RPC's for each report."
^DD(101.24,.06,"DT")="3040126"
^DD(101.24,.07,0)="CATEGORY^S^0:FIXED;1:FIXED W/DATE;2:FIXED W/HEADER;3:FIXED W/DATE&HEADER;4:SPECIALIZED;5:GRAPHIC;6:LISTVIEW;^0;7^Q"
^DD(101.24,.07,3)="Enter a category for this report"
^DD(101.24,.07,21,0)="^^2^2^3001004^"
^DD(101.24,.07,21,1,0)="This field puts reports into a category that is evaluated by the GUI"
^DD(101.24,.07,21,2,0)="when the report is processed."
^DD(101.24,.07,"DT")="3010215"
^DD(101.24,.08,0)="TAB^S^R:REPORTS TAB;L:LABS TAB;C:COVER SHEET;CD:COVER SHEET DETAILS;^0;8^Q"
^DD(101.24,.08,3)="Enter the appropriate code for this report."
^DD(101.24,.08,21,0)="^.001^1^1^3001003^^"
^DD(101.24,.08,21,1,0)="This fields identifies the appropriate tab for a report in CPRS."
^DD(101.24,.08,"DT")="3001011"
^DD(101.24,.09,0)="MIXEDCASE^S^1:YES;^0;9^Q"
^DD(101.24,.09,3)="Enter YES to display the list in mixed case"
^DD(101.24,.09,21,0)="^^2^2^3001004^"
^DD(101.24,.09,21,1,0)="This is used in the cover sheet and is used to display the returned"
^DD(101.24,.09,21,2,0)="list in mixed case."
^DD(101.24,.09,"DT")="3001004"
^DD(101.24,.1,0)="INVERT^S^1:YES;^0;10^Q"
^DD(101.24,.1,3)="Enter YES to have the returned list inverted."
^DD(101.24,.1,21,0)="^^1^1^3001004^"
^DD(101.24,.1,21,1,0)="This field is used to invert a list of data returned in the Cover sheet"
^DD(101.24,.1,"DT")="3001004"
^DD(101.24,.11,0)="TEXT COLOR^S^Black:BLACK;Maroon:MAROON;Green:GREEN;Olive:OLIVE;Purple:PURPLE;Teal:TEAL;Red:RED;Lime:LIME;Yellow:YELLOW;Blue:BLUE;Fuchsia:FUCHSIA;Aqua:AQUA;^0;11^Q"
^DD(101.24,.11,3)="Enter the color for the text"
^DD(101.24,.11,21,0)="^^1^1^3001004^"
^DD(101.24,.11,21,1,0)="This field determines the text color for the returned data."
^DD(101.24,.11,"DT")="3001004"
^DD(101.24,.12,0)="TYPE^S^R:REPORT;H:HTML;L:LISTMAN ONLY;S:SELECTION LIST;V:LISTVIEW;M:MENU;G:GRAPH;^0;12^Q"
^DD(101.24,.12,3)="Enter the type for this entry."
^DD(101.24,.12,21,0)="^.001^1^1^3001017^^"
^DD(101.24,.12,21,1,0)="This field identifies the type for an entry."
^DD(101.24,.12,"DT")="3041208"
^DD(101.24,.13,0)="RPC^P8994'^XWB(8994,^0;13^Q"
^DD(101.24,.13,3)="Select the RPC that produces this report."
^DD(101.24,.13,21,0)="^^1^1^3001004^"
^DD(101.24,.13,21,1,0)="This is the RPC that is called inside the GUI to produce the report."
^DD(101.24,.13,"DT")="3001004"
^DD(101.24,.14,0)="DATE FORMAT^S^D:DATE ONLY;T:DATE WITH TIME;^0;14^Q"
^DD(101.24,.14,3)="Enter the code for the desired date format."
^DD(101.24,.14,21,0)="^^1^1^3001004^"
^DD(101.24,.14,21,1,0)="This field determines what kind of format to display date/time fields."
^DD(101.24,.14,"DT")="3001004"
^DD(101.24,.15,0)="DATE PIECE^NJ2,0^^0;15^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.24,.15,3)="Type a Number between 1 and 15, 0 Decimal Digits"
^DD(101.24,.15,21,0)="^^2^2^3001004^"
^DD(101.24,.15,21,1,0)="This is used on the Cover Sheet to determine which piece the date field"
^DD(101.24,.15,21,2,0)="occupies."
^DD(101.24,.15,"DT")="3001004"
^DD(101.24,.16,0)="TAB POSITIONS^F^^0;16^K:$L(X)>15!($L(X)<1) X"
^DD(101.24,.16,3)="Answer must be 1-15 characters in length."
^DD(101.24,.16,21,0)="^^2^2^3001005^"
^DD(101.24,.16,21,1,0)="This is the value that will be used for the Tab property for the listbox"
^DD(101.24,.16,21,2,0)="associated with this report on the Cover Sheet."
^DD(101.24,.16,"DT")="3001005"
^DD(101.24,.17,0)="PIECES^F^^0;17^K:$L(X)>20!($L(X)<1) X"
^DD(101.24,.17,3)="Answer must be 1-20 characters in length."
^DD(101.24,.17,21,0)="^^2^2^3001011^"
^DD(101.24,.17,21,1,0)="This field is used by the Cover Sheet to determine what pieces of data"
^DD(101.24,.17,21,2,0)="to display in the listbox."
^DD(101.24,.17,"DT")="3001011"
^DD(101.24,.18,0)="DETAIL REPORT^*P101.24'^ORD(101.24,^0;18^S DIC(""S"")=""I $P(^(0),""""^"""",8)=""""CD"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(101.24,.18,3)="Enter the report to get the details for this report."
^DD(101.24,.18,12)="Allow only Cover sheet detail type reports"
^DD(101.24,.18,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",8)=""""CD"""""""
^DD(101.24,.18,21,0)="^^1^1^3001011^"
^DD(101.24,.18,21,1,0)="This field is used to get the details of an item on the cover sheet."
^DD(101.24,.18,"DT")="3001011"
^DD(101.24,.19,0)="REPORT TAG^FI^^0;19^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.19,3)="Answer must be 1-8 characters in length."
^DD(101.24,.19,21,0)="^.001^1^1^3010503^^"
^DD(101.24,.19,21,1,0)="This is the entry point tag for a report extract."
^DD(101.24,.19,"DT")="3040126"
^DD(101.24,.191,0)="REPORT ROUTINE^FI^^0;20^K:$L(X)>8!($L(X)<3) X"
^DD(101.24,.191,3)="Answer must be 3-8 characters in length."
^DD(101.24,.191,21,0)="^.001^1^1^3010503^^"
^DD(101.24,.191,21,1,0)="This is the routine associated with the REPORT TAG for report extracts."
^DD(101.24,.191,"DT")="3040126"
^DD(101.24,.192,0)="REPORT COMPONENT^P142.1'^GMT(142.1,^0;21^Q"
^DD(101.24,.192,21,0)="^.001^1^1^3010503^^"
^DD(101.24,.192,21,1,0)="This is the report component associated with this report."
^DD(101.24,.192,"DT")="3010503"
^DD(101.24,.21,0)="PARAM 1^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^DD(101.24,.21,3)="Answer must be 1-30 characters in length."
^DD(101.24,.21,21,0)="^^1^1^3001004^"
^DD(101.24,.21,21,1,0)="This is the 1st parameter passed to the RPC, if needed."
^DD(101.24,.21,"DT")="3001004"
^DD(101.24,.22,0)="PARAM 2^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(101.24,.22,3)="Answer must be 1-30 characters in length."
^DD(101.24,.22,21,0)="^^1^1^3001004^"
^DD(101.24,.22,21,1,0)="This is the 2nd parameter passed to the RPC, if needed."
^DD(101.24,.22,"DT")="3001004"
^DD(101.24,.23,0)="HEADING^F^^2;3^K:$L(X)>75!($L(X)<1) X"
^DD(101.24,.23,1,0)="^.1^^0"
^DD(101.24,.23,3)="Answer must be 1-75 characters in length."
^DD(101.24,.23,21,0)="^^1^1^3001031^"
^DD(101.24,.23,21,1,0)="This is the heading used on the Cover sheet for the list of items."
^DD(101.24,.23,"DT")="3010510"
^DD(101.24,.24,0)="DESCRIPTIVE TEXT^RF^^2;4^K:$L(X)>55!($L(X)<2) X"
^DD(101.24,.24,3)="Answer must be 2-55 characters in length."
^DD(101.24,.24,21,0)="^.001^2^2^3010510^^"
^DD(101.24,.24,21,1,0)="This is a more descriptive name than what might be included in the "
^DD(101.24,.24,21,2,0)="NAME field."
^DD(101.24,.24,"DT")="3010510"
^DD(101.24,.25,0)="NODE^F^^2;5^K:$L(X)>10!($L(X)<1) X"
^DD(101.24,.25,3)="Answer must be 1-10 characters in length."
^DD(101.24,.25,21,0)="^^2^2^3001005^"
^DD(101.24,.25,21,1,0)="This is used by the Cover Sheet routines to define the node in the ^XTMP"
^DD(101.24,.25,21,2,0)="global to store the data."
^DD(101.24,.25,"DT")="3001005"
^DD(101.24,.26,0)="PRINT TAG^FI^^2;6^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.26,3)="Answer must be 1-8 characters in length."
^DD(101.24,.26,21,0)="^^2^2^3010614^"
^DD(101.24,.26,21,1,0)="This is the entry point tag used when printing reports that do their own"
^DD(101.24,.26,21,2,0)="Write statements."
^DD(101.24,.26,"DT")="3040126"
^DD(101.24,.27,0)="PRINT ROUTINE^FI^^2;7^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.27,3)="Answer must be 1-8 characters in length."
^DD(101.24,.27,21,0)="^^2^2^3010614^"
^DD(101.24,.27,21,1,0)="This is the entry point routine used when printing reports that do their own"
^DD(101.24,.27,21,2,0)="Write statements."
^DD(101.24,.27,"DT")="3040126"
^DD(101.24,.28,0)="EXTRACT TAG^FI^^2;8^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.28,3)="Answer must be 1-8 characters in length."
^DD(101.24,.28,21,0)="^^2^2^3010711^"
^DD(101.24,.28,21,1,0)="This is the entry point for the extract routine that pulls the data from"
^DD(101.24,.28,21,2,0)="package API's and/or package files."
^DD(101.24,.28,"DT")="3051222"
^DD(101.24,.29,0)="EXTRACT ROUTINE^FI^^2;9^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.29,3)="Answer must be 1-8 characters in length."
^DD(101.24,.29,21,0)="^^2^2^3010711^"
^DD(101.24,.29,21,1,0)="This is the extract routine that pulls data from package API's and/or"
^DD(101.24,.29,21,2,0)="package files."
^DD(101.24,.29,"DT")="3040126"
^DD(101.24,.41,0)="SORT ORDER^F^^4;1^K:$L(X)>15!($L(X)<3)!'(X?1N1"":""1N) X"
^DD(101.24,.41,3)="Answer must be 3-15 characters in length."
^DD(101.24,.41,21,0)="^^6^6^3010717^"
^DD(101.24,.41,21,1,0)="This field is used when sorting columns of data on at grid within CPRS."
^DD(101.24,.41,21,2,0)="It determines the sort order to be used in a multi-column sort.  The"
^DD(101.24,.41,21,3,0)="primary sort column is always the column header clicked on by the user."
^DD(101.24,.41,21,4,0)="If this field has values in the form #:#, then a multi-column sort is"
^DD(101.24,.41,21,5,0)="done, using the column numbers identified in this field for the second"
^DD(101.24,.41,21,6,0)="and third level sorting."
^DD(101.24,.41,"DT")="3010717"
^DD(101.24,.42,0)="MAXIMUM DAYS BACK^NJ4,0^^4;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.24,.42,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(101.24,.42,21,0)="^^1^1^3011004^"
^DD(101.24,.42,21,1,0)="This field restricts the report date range to the maximum value specified."
^DD(101.24,.42,"DT")="3011004"
^DD(101.24,.43,0)="FHIE REPORT^F^^4;3^K:$L(X)>10!($L(X)<2) X"
^DD(101.24,.43,3)="Answer must be 2-10 characters in length."
^DD(101.24,.43,21,0)="^.001^3^3^3040126^^^^"
^DD(101.24,.43,21,1,0)="This field identifies reports that are available through FHIE."
^DD(101.24,.43,21,2,0)="The item in this field is the code for the report available through"
^DD(101.24,.43,21,3,0)="the FHIE server."
^DD(101.24,.43,23,0)="^.001^3^3^3040126^^^^"
^DD(101.24,.43,23,1,0)="This field is not looked at by reports that have a 'listview' format."
^DD(101.24,.43,23,2,0)="It is only used by straight text reports that go through the routine:"
^DD(101.24,.43,23,3,0)="  ORDV01"
^DD(101.24,.43,"DT")="3031008"
^DD(101.24,.44,0)="DIRECT^S^0:NO;1:YES;^4;4^Q"
^DD(101.24,.44,3)="ENTER YES TO MAKE DIRECT REMOTE DATA CALLS"
^DD(101.24,.44,21,0)="^^4^4^3050201^"
^DD(101.24,.44,21,1,0)="This field allows a report to make a direct remote data call to"
^DD(101.24,.44,21,2,0)="a remote site.  Use caution in setting this field to yes.  It has"
^DD(101.24,.44,21,3,0)="the effect of disabling CPRS until the remote call is finished, but"
^DD(101.24,.44,21,4,0)="also may speed up the query by bypassing taskman latency."
^DD(101.24,.44,"DT")="3050201"
^DD(101.24,.45,0)="HDR REPORT^S^1:YES;^4;5^Q"
^DD(101.24,.45,3)="Enter 'YES' if this report comes from the HDR."
^DD(101.24,.45,21,0)="^^1^1^3051006^"
^DD(101.24,.45,21,1,0)="This field flags reports that are generated from the HDR."
^DD(101.24,.45,"DT")="3051006"
^DD(101.24,.46,0)="HDR ROUTINE^F^^4;6^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.46,3)="Answer must be 1-8 characters in length."
^DD(101.24,.46,21,0)="^^1^1^3051006^"
^DD(101.24,.46,21,1,0)="This is the HDR routine that modifies HDR data for CPRS."
^DD(101.24,.46,"DT")="3051006"
^DD(101.24,.47,0)="HDR ENTRY POINT^F^^4;7^K:$L(X)>8!($L(X)<1) X"
^DD(101.24,.47,3)="Answer must be 1-8 characters in length."
^DD(101.24,.47,21,0)="^^1^1^3051006^"
^DD(101.24,.47,21,1,0)="This is the HDR entry point that modifies HDR data for CPRS."
^DD(101.24,.47,"DT")="3051006"
^DD(101.24,3,0)="COLUMN HEADERS^101.243^^3;0"
^DD(101.24,10,0)="ITEM^101.241P^^10;0"
^DD(101.24,"B","CATEGORY",.07)=""
^DD(101.24,"B","COLUMN HEADERS",3)=""
^DD(101.24,"B","DATE FORMAT",.14)=""
^DD(101.24,"B","DATE PIECE",.15)=""
^DD(101.24,"B","DESCRIPTIVE TEXT",.24)=""
^DD(101.24,"B","DETAIL REPORT",.18)=""
^DD(101.24,"B","DIRECT",.44)=""
^DD(101.24,"B","ENTRY POINT",.06)=""
^DD(101.24,"B","EXTRACT ROUTINE",.29)=""
^DD(101.24,"B","EXTRACT TAG",.28)=""
^DD(101.24,"B","FHIE REPORT",.43)=""
^DD(101.24,"B","HDR ENTRY POINT",.47)=""
^DD(101.24,"B","HDR REPORT",.45)=""
^DD(101.24,"B","HDR ROUTINE",.46)=""
^DD(101.24,"B","HEADING",.23)=""
^DD(101.24,"B","ID",.02)=""
^DD(101.24,"B","INVERT",.1)=""
^DD(101.24,"B","ITEM",10)=""
^DD(101.24,"B","MAXIMUM DAYS BACK",.42)=""
^DD(101.24,"B","MIXEDCASE",.09)=""
^DD(101.24,"B","NAME",.01)=""
^DD(101.24,"B","NODE",.25)=""
^DD(101.24,"B","NUMBER",.001)=""
^DD(101.24,"B","PARAM 1",.21)=""
^DD(101.24,"B","PARAM 2",.22)=""
^DD(101.24,"B","PIECES",.17)=""
^DD(101.24,"B","PRINT ROUTINE",.27)=""
^DD(101.24,"B","PRINT TAG",.26)=""
^DD(101.24,"B","QUALIFIER",.04)=""
^DD(101.24,"B","REMOTE",.03)=""
^DD(101.24,"B","REPORT COMPONENT",.192)=""
^DD(101.24,"B","REPORT ROUTINE",.191)=""
^DD(101.24,"B","REPORT TAG",.19)=""
^DD(101.24,"B","ROUTINE",.05)=""
^DD(101.24,"B","RPC",.13)=""
^DD(101.24,"B","SORT ORDER",.41)=""
^DD(101.24,"B","TAB",.08)=""
^DD(101.24,"B","TAB POSITIONS",.16)=""
^DD(101.24,"B","TEXT COLOR",.11)=""
^DD(101.24,"B","TYPE",.12)=""
^DD(101.24,"GL",0,1,.01)=""
^DD(101.24,"GL",0,2,.02)=""
^DD(101.24,"GL",0,3,.03)=""
^DD(101.24,"GL",0,4,.04)=""
^DD(101.24,"GL",0,5,.05)=""
^DD(101.24,"GL",0,6,.06)=""
^DD(101.24,"GL",0,7,.07)=""
^DD(101.24,"GL",0,8,.08)=""
^DD(101.24,"GL",0,9,.09)=""
^DD(101.24,"GL",0,10,.1)=""
^DD(101.24,"GL",0,11,.11)=""
^DD(101.24,"GL",0,12,.12)=""
^DD(101.24,"GL",0,13,.13)=""
^DD(101.24,"GL",0,14,.14)=""
^DD(101.24,"GL",0,15,.15)=""
^DD(101.24,"GL",0,16,.16)=""
^DD(101.24,"GL",0,17,.17)=""
^DD(101.24,"GL",0,18,.18)=""
^DD(101.24,"GL",0,19,.19)=""
^DD(101.24,"GL",0,20,.191)=""
^DD(101.24,"GL",0,21,.192)=""
^DD(101.24,"GL",2,1,.21)=""
^DD(101.24,"GL",2,2,.22)=""
^DD(101.24,"GL",2,3,.23)=""
^DD(101.24,"GL",2,4,.24)=""
^DD(101.24,"GL",2,5,.25)=""
^DD(101.24,"GL",2,6,.26)=""
^DD(101.24,"GL",2,7,.27)=""
^DD(101.24,"GL",2,8,.28)=""
^DD(101.24,"GL",2,9,.29)=""
^DD(101.24,"GL",3,0,3)=""
^DD(101.24,"GL",4,1,.41)=""
^DD(101.24,"GL",4,2,.42)=""
^DD(101.24,"GL",4,3,.43)=""
^DD(101.24,"GL",4,4,.44)=""
^DD(101.24,"GL",4,5,.45)=""
^DD(101.24,"GL",4,6,.46)=""
^DD(101.24,"GL",4,7,.47)=""
^DD(101.24,"GL",10,0,10)=""
^DD(101.24,"IX",.01)=""
^DD(101.24,"IX",.02)=""
^DD(101.24,"RQ",.01)=""
^DD(101.24,"RQ",.02)=""
^DD(101.24,"RQ",.24)=""
^DD(101.24,"SB",101.241,10)=""
^DD(101.24,"SB",101.243,3)=""
^DD(101.241,0)="ITEM SUB-FIELD^^.03^3"
^DD(101.241,0,"DT")="3010215"
^DD(101.241,0,"IX","B",101.241,.01)=""
^DD(101.241,0,"NM","ITEM")=""
^DD(101.241,0,"UP")="101.24"
^DD(101.241,.01,0)="ITEM^MP101.24^ORD(101.24,^0;1^Q"
^DD(101.241,.01,1,0)="^.1"
^DD(101.241,.01,1,1,0)="101.241^B"
^DD(101.241,.01,1,1,1)="S ^ORD(101.24,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(101.241,.01,1,1,2)="K ^ORD(101.24,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(101.241,.01,3)=""
^DD(101.241,.01,21,0)="^^1^1^3010215^"
^DD(101.241,.01,21,1,0)="This is used in building a treeview of reports for CPRS GUI."
^DD(101.241,.01,"DT")="3010215"
^DD(101.241,.02,0)="HEADER TEXT^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(101.241,.02,3)="Answer must be 1-30 characters in length."
^DD(101.241,.02,21,0)="^^1^1^3010215^"
^DD(101.241,.02,21,1,0)="This is the header to be used."
^DD(101.241,.02,"DT")="3010215"
^DD(101.241,.03,0)="SEQUENCE^NJ7,1^^0;3^K:+X'=X!(X>99999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(101.241,.03,3)="Type a Number between .1 and 99999, 1 Decimal Digit"
^DD(101.241,.03,21,0)="^^1^1^3010215^"
^DD(101.241,.03,21,1,0)="This is the sequence number for this report."
^DD(101.241,.03,"DT")="3010215"
^DD(101.241,"B","HEADER TEXT",.02)=""
^DD(101.241,"B","ITEM",.01)=""
^DD(101.241,"B","SEQUENCE",.03)=""
^DD(101.241,"GL",0,1,.01)=""
^DD(101.241,"GL",0,2,.02)=""
^DD(101.241,"GL",0,3,.03)=""
^DD(101.241,"IX",.01)=""
^DD(101.243,0)="COLUMN HEADERS SUB-FIELD^^1^11"
^DD(101.243,0,"DT")="3051006"
^DD(101.243,0,"IX","B",101.243,.01)=""
^DD(101.243,0,"IX","C",101.243,.03)=""
^DD(101.243,0,"NM","COLUMN HEADERS")=""
^DD(101.243,0,"UP")="101.24"
^DD(101.243,.01,0)="COLUMN HEADERS^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(101.243,.01,1,0)="^.1"
^DD(101.243,.01,1,1,0)="101.243^B"
^DD(101.243,.01,1,1,1)="S ^ORD(101.24,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(101.243,.01,1,1,2)="K ^ORD(101.24,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(101.243,.01,3)="Answer must be 1-60 characters in length."
^DD(101.243,.01,21,0)="^.001^1^1^3010709^^^^"
^DD(101.243,.01,21,1,0)="These are the column headings used on a report in ListView format."
^DD(101.243,.01,"DT")="3010709"
^DD(101.243,.02,0)="VISIBLE^S^0:YES;1:NO;^0;2^Q"
^DD(101.243,.02,3)="Set this field to NO to hide the column."
^DD(101.243,.02,21,0)="^^1^1^3010420^"
^DD(101.243,.02,21,1,0)="This field determines the visible property of the column."
^DD(101.243,.02,"DT")="3010420"
^DD(101.243,.03,0)="SEQUENCE^NJ6,1^^0;3^K:+X'=X!(X>9999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(101.243,.03,1,0)="^.1"
^DD(101.243,.03,1,1,0)="101.243^C"
^DD(101.243,.03,1,1,1)="S ^ORD(101.24,DA(1),3,""C"",$E(X,1,30),DA)="""""
^DD(101.243,.03,1,1,2)="K ^ORD(101.24,DA(1),3,""C"",$E(X,1,30),DA)"
^DD(101.243,.03,1,1,"DT")="3010321"
^DD(101.243,.03,3)="Type a Number between .1 and 9999, 1 Decimal Digit"
^DD(101.243,.03,21,0)="^^1^1^3010215^"
^DD(101.243,.03,21,1,0)="This is the sequence for the column header."
^DD(101.243,.03,"DT")="3010321"
^DD(101.243,.04,0)="TYPE^S^0:SINGLE PIECE VALUE;1:WORD PROCESSING;^0;4^Q"
^DD(101.243,.04,3)="Enter '1' if the value of this column contains multiple lines of text."
^DD(101.243,.04,21,0)="^^1^1^3010420^"
^DD(101.243,.04,21,1,0)="This field identifies columns that contain multiple lines of text."
^DD(101.243,.04,"DT")="3010420"
^DD(101.243,.05,0)="INCLUDE ON DETAIL^S^0:NO;1:YES;^0;5^Q"
^DD(101.243,.05,3)="Enter YES to include this field in detailed report"
^DD(101.243,.05,21,0)="^.001^2^2^3010628^^^^"
^DD(101.243,.05,21,1,0)="This field is used to determine what data to include in the details of"
^DD(101.243,.05,21,2,0)="a report."
^DD(101.243,.05,"DT")="3010628"
^DD(101.243,.06,0)="PRINT LENGTH^NJ2,0^^0;6^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.243,.06,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(101.243,.06,21,0)="^^1^1^3010628^"
^DD(101.243,.06,21,1,0)="This is the field length used when printing this column on a report."
^DD(101.243,.06,"DT")="3010628"
^DD(101.243,.07,0)="INCLUDE ON PRINT^S^0:NO;1:YES;^0;7^Q"
^DD(101.243,.07,21,0)="^^2^2^3010628^"
^DD(101.243,.07,21,1,0)="This field determines which columns are included when a printout is"
^DD(101.243,.07,21,2,0)="requested."
^DD(101.243,.07,"DT")="3010628"
^DD(101.243,.08,0)="PRINT TITLE^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(101.243,.08,3)="Answer must be 1-20 characters in length."
^DD(101.243,.08,21,0)="^^1^1^3010628^"
^DD(101.243,.08,21,1,0)="This field is used when printing this field in lieu of the Column Header."
^DD(101.243,.08,"DT")="3010628"
^DD(101.243,.09,0)="DATA TYPE^S^0:FREE TEXT;1:NUMERIC;2:DATE/TIME;^0;9^Q"
^DD(101.243,.09,3)="Enter the type of data that is in this column."
^DD(101.243,.09,21,0)="^.001^3^3^3010718^^"
^DD(101.243,.09,21,1,0)="This is the data type of the column.  It is used when sorting columns."
^DD(101.243,.09,21,2,0)="The default data type is 0 - FREE TEXT.  If no value is entered, it is"
^DD(101.243,.09,21,3,0)="assumed to be FREE TEXT."
^DD(101.243,.09,"DT")="3010718"
^DD(101.243,.1,0)="WIDTH^NJ4,0^^0;10^K:+X'=X!(X>4000)!(X<-2)!(X?.E1"".""1N.N) X"
^DD(101.243,.1,3)="Type a Number between -2 and 4000, 0 Decimal Digits"
^DD(101.243,.1,21,0)="^^5^5^3010727^"
^DD(101.243,.1,21,1,0)="This field is for the column width.  No value needs to be entered because"
^DD(101.243,.1,21,2,0)="the value is actually obtained from a User level parameter.  The field"
^DD(101.243,.1,21,3,0)="is defined here to reserve the 10 piece of this node so that future"
^DD(101.243,.1,21,4,0)="field definitions won't break the RPC used in CPRS to get column properties"
^DD(101.243,.1,21,5,0)="where the width is stored in the 10 piece."
^DD(101.243,.1,"DT")="3010727"
^DD(101.243,1,0)="HDR MODIFIER^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.243,1,3)="This is Standard MUMPS code."
^DD(101.243,1,9)="@"
^DD(101.243,1,21,0)="^^5^5^3051006^"
^DD(101.243,1,21,1,0)="This is code executed when HDR data needs to be modified."
^DD(101.243,1,21,2,0)="When this field is executed, the variable ORX will have the value"
^DD(101.243,1,21,3,0)="passed in from the HDR.  If this value needs to be manipulated, set the"
^DD(101.243,1,21,4,0)="new value into ORX.  If the value is ignored (not to be displayed),"
^DD(101.243,1,21,5,0)="then set the value of ORX=""-1-"""
^DD(101.243,1,"DT")="3051006"
^DD(101.243,"B","COLUMN HEADERS",.01)=""
^DD(101.243,"B","DATA TYPE",.09)=""
^DD(101.243,"B","HDR MODIFIER",1)=""
^DD(101.243,"B","INCLUDE ON DETAIL",.05)=""
^DD(101.243,"B","INCLUDE ON PRINT",.07)=""
^DD(101.243,"B","PRINT LENGTH",.06)=""
^DD(101.243,"B","PRINT TITLE",.08)=""
^DD(101.243,"B","SEQUENCE",.03)=""
^DD(101.243,"B","TYPE",.04)=""
^DD(101.243,"B","VISIBLE",.02)=""
^DD(101.243,"B","WIDTH",.1)=""
^DD(101.243,"GL",0,1,.01)=""
^DD(101.243,"GL",0,2,.02)=""
^DD(101.243,"GL",0,3,.03)=""
^DD(101.243,"GL",0,4,.04)=""
^DD(101.243,"GL",0,5,.05)=""
^DD(101.243,"GL",0,6,.06)=""
^DD(101.243,"GL",0,7,.07)=""
^DD(101.243,"GL",0,8,.08)=""
^DD(101.243,"GL",0,9,.09)=""
^DD(101.243,"GL",0,10,.1)=""
^DD(101.243,"GL",1,"E1,245",1)=""
^DD(101.243,"IX",.01)=""
^DD(101.243,"IX",.03)=""
^DD(101.3,0)="FIELD^^6^5"
^DD(101.3,0,"IX","B",101.3,.01)=""
^DD(101.3,0,"NM","ORDER EXECUTE CODES")=""
^DD(101.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(101.3,.01,1,0)="^.1"
^DD(101.3,.01,1,1,0)="101.3^B"
^DD(101.3,.01,1,1,1)="S ^ORD(101.3,""B"",$E(X,1,30),DA)="""""
^DD(101.3,.01,1,1,2)="K ^ORD(101.3,""B"",$E(X,1,30),DA)"
^DD(101.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(101.3,.01,21,0)="^^1^1^2890216^"
^DD(101.3,.01,21,1,0)="This is the name of the executable code."
^DD(101.3,1,0)="EXECUTE CODE^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.3,1,3)="This is Standard MUMPS code."
^DD(101.3,1,"DT")="2890726"
^DD(101.3,2,0)="TYPE^RS^C:COMMENT;X:XECUTE;R:RECOVERABLE ERROR;^0;2^Q"
^DD(101.3,2,3)="Enter a type for this execute code."
^DD(101.3,2,21,0)="^^1^1^2890216^"
^DD(101.3,2,21,1,0)="This fields identifies the type for an execute code."
^DD(101.3,2,"DT")="2890320"
^DD(101.3,5,0)="OPERATING SYSTEM^101.35P^^2;0"
^DD(101.3,6,0)="DESCRIPTION^101.36^^1;0"
^DD(101.3,6,3)="Enter a description for this execute code."
^DD(101.3,6,21,0)="^^1^1^2890216^"
^DD(101.3,6,21,1,0)="This field contains a description of what the execute code does."
^DD(101.3,"B","DESCRIPTION",6)=""
^DD(101.3,"B","EXECUTE CODE",1)=""
^DD(101.3,"B","NAME",.01)=""
^DD(101.3,"B","OPERATING SYSTEM",5)=""
^DD(101.3,"B","TYPE",2)=""
^DD(101.3,"GL",0,1,.01)=""
^DD(101.3,"GL",0,2,2)=""
^DD(101.3,"GL",.1,"E1,245",1)=""
^DD(101.3,"GL",1,0,6)=""
^DD(101.3,"GL",2,0,5)=""
^DD(101.3,"IX",.01)=""
^DD(101.3,"RQ",.01)=""
^DD(101.3,"RQ",2)=""
^DD(101.3,"SB",101.35,5)=""
^DD(101.3,"SB",101.36,6)=""
^DD(101.35,0)="OPERATING SYSTEM SUB-FIELD^^.01^1"
^DD(101.35,0,"IX","B",101.35,.01)=""
^DD(101.35,0,"NM","OPERATING SYSTEM")=""
^DD(101.35,0,"UP")="101.3"
^DD(101.35,.01,0)="OPERATING SYSTEM^P.7'^DD(""OS"",^0;1^Q"
^DD(101.35,.01,1,0)="^.1^^-1"
^DD(101.35,.01,1,1,0)="101.35^B"
^DD(101.35,.01,1,1,1)="S ^ORD(101.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(101.35,.01,1,1,2)="K ^ORD(101.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(101.35,.01,3)="Enter the operating system that applies to this execute code."
^DD(101.35,.01,"DT")="2890321"
^DD(101.35,"B","OPERATING SYSTEM",.01)=""
^DD(101.35,"GL",0,1,.01)=""
^DD(101.35,"IX",.01)=""
^DD(101.36,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(101.36,0,"NM","DESCRIPTION")=""
^DD(101.36,0,"UP")="101.3"
^DD(101.36,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(101.36,.01,3)="Enter a description for this execute code."
^DD(101.36,"B","DESCRIPTION",.01)=""
^DD(101.36,"GL",0,1,.01)=""
^DD(101.41,0)="FIELD^^99^30"
^DD(101.41,0,"DDA")="N"
^DD(101.41,0,"DT")="2980501"
^DD(101.41,0,"IX","AB",101.41,.01)=""
^DD(101.41,0,"IX","AD",101.412,2)=""
^DD(101.41,0,"IX","AM",101.41,99)=""
^DD(101.41,0,"IX","AM2",101.41,2)=""
^DD(101.41,0,"IX","AM51",101.41,51)=""
^DD(101.41,0,"IX","AM52",101.41,52)=""
^DD(101.41,0,"IX","AMM",101.412,.01)=""
^DD(101.41,0,"IX","AMM2",101.412,2)=""
^DD(101.41,0,"IX","AMM3",101.412,3)=""
^DD(101.41,0,"IX","AMM4",101.412,4)=""
^DD(101.41,0,"IX","AMM5",101.412,5)=""
^DD(101.41,0,"IX","APKG",101.41,7)=""
^DD(101.41,0,"IX","B",101.41,.01)=""
^DD(101.41,0,"IX","C",101.41,2)=""
^DD(101.41,0,"NM","ORDER DIALOG")=""
^DD(101.41,0,"PT",100,2)=""
^DD(101.41,0,"PT",100,7)=""
^DD(101.41,0,"PT",100.045,.02)=""
^DD(101.41,0,"PT",100.5,4)=""
^DD(101.41,0,"PT",100.5,5)=""
^DD(101.41,0,"PT",100.98,4)=""
^DD(101.41,0,"PT",101.412,1)=""
^DD(101.41,0,"PT",101.412,2)=""
^DD(101.41,0,"PT",101.415,2)=""
^DD(101.41,0,"PT",101.416,.02)=""
^DD(101.41,0,"PT",101.441,.01)=""
^DD(101.41,0,"PT",801.41,15)=""
^DD(101.41,0,"PT",801.4118,.01)=""
^DD(101.41,0,"VR")="3.0"
^DD(101.41,0,"VRPK")="OR"
^DD(101.41,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<3)!'(X'?1P.E) X"
^DD(101.41,.01,1,0)="^.1"
^DD(101.41,.01,1,1,0)="101.41^B"
^DD(101.41,.01,1,1,1)="S ^ORD(101.41,""B"",$E(X,1,30),DA)="""""
^DD(101.41,.01,1,1,2)="K ^ORD(101.41,""B"",$E(X,1,30),DA)"
^DD(101.41,.01,1,2,0)="101.41^AB"
^DD(101.41,.01,1,2,1)="S ^ORD(101.41,""AB"",$E(X,1,63),DA)="""""
^DD(101.41,.01,1,2,2)="K ^ORD(101.41,""AB"",$E(X,1,63),DA)"
^DD(101.41,.01,1,2,"%D",0)="^^1^1^2971020^"
^DD(101.41,.01,1,2,"%D",1,0)="This is a regular index on the full 63 characters of the Name field."
^DD(101.41,.01,1,2,"DT")="2971020"
^DD(101.41,.01,3)="Answer must be 3-63 characters in length."
^DD(101.41,.01,21,0)="^^3^3^2971219^"
^DD(101.41,.01,21,1,0)="This is the name of the dialog; entries that were converted from the"
^DD(101.41,.01,21,2,0)="Protocol file will retain the same name.  Namespacing is not required,"
^DD(101.41,.01,21,3,0)="but still encouraged."
^DD(101.41,.01,"DT")="2971020"
^DD(101.41,2,0)="DISPLAY TEXT^FX^^0;2^K:$L(X)>80!($L(X)<3)!($$CHKNAM^ORUTL(X)) X"
^DD(101.41,2,1,0)="^.1"
^DD(101.41,2,1,1,0)="101.41^C"
^DD(101.41,2,1,1,1)="S ^ORD(101.41,""C"",$$UP^XLFSTR($E(X,1,63)),DA)="""""
^DD(101.41,2,1,1,2)="K ^ORD(101.41,""C"",$$UP^XLFSTR($E(X,1,63)),DA)"
^DD(101.41,2,1,1,"DT")="2950112"
^DD(101.41,2,1,2,0)="101.41^AM2^MUMPS"
^DD(101.41,2,1,2,1)="D REDOM^ORDD41"
^DD(101.41,2,1,2,2)="D REDOM^ORDD41"
^DD(101.41,2,1,2,"%D",0)="^^1^1^2990210^"
^DD(101.41,2,1,2,"%D",1,0)="Update TIMESTAMP whenever DISPLAY TEXT is changed."
^DD(101.41,2,1,2,"DT")="2990210"
^DD(101.41,2,3)="Answer must be 3-80 characters in length and cannot contain a semicolon (;), a comma (,), an up-arrow (^), a dash (-), or an equal sign (=). "
^DD(101.41,2,21,0)="^.001^1^1^3010913^^^^"
^DD(101.41,2,21,1,0)="The text of this dialog's name as it appears on a menu or subheader."
^DD(101.41,2,"DT")="3000823"
^DD(101.41,3,0)="DISABLE^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(101.41,3,3)="Enter a message here to disable this dialog, 1-40 characters in length."
^DD(101.41,3,21,0)="^^3^3^2950112^"
^DD(101.41,3,21,1,0)="This field disables use of this dialog when it contains text.  The text"
^DD(101.41,3,21,2,0)="should be a short message explaining why use of this dialog has been"
^DD(101.41,3,21,3,0)="disabled, as it will be displayed if this dialog is selected."
^DD(101.41,3,"DT")="2950112"
^DD(101.41,4,0)="TYPE^RS^P:prompt;D:dialog;Q:quick order;O:order set;M:menu;A:action;^0;4^Q"
^DD(101.41,4,3)="Specify a type for this dialog."
^DD(101.41,4,21,0)="^^5^5^2950716^^^^"
^DD(101.41,4,21,1,0)="This field defines the type of order dialog to be processed.  Control"
^DD(101.41,4,21,2,0)="will be passed to the OE/RR Dialog Processor for dialog items; menu types"
^DD(101.41,4,21,3,0)="are used for displaying and selecting dialog items.  Action types will only"
^DD(101.41,4,21,4,0)="execute the entry and exit actions, ignoring any items that may exist; these"
^DD(101.41,4,21,5,0)="dialogs should not create entries in the Orders file."
^DD(101.41,4,"DT")="2950716"
^DD(101.41,5,0)="DISPLAY GROUP^P100.98'^ORD(100.98,^0;5^Q"
^DD(101.41,5,3)="Enter the display group containing orderable items defined by this dialog."
^DD(101.41,5,21,0)="^^3^3^2950112^"
^DD(101.41,5,21,1,0)="This field determines what display group this dialog has been defined for."
^DD(101.41,5,21,2,0)="It will define which orderable items are selectable with this dialog,"
^DD(101.41,5,21,3,0)="as well as what service to send the order to when it is complete."
^DD(101.41,5,"DT")="2950112"
^DD(101.41,6,0)="SIGNATURE REQUIRED^S^0:NONE;1:ORELSE;2:ORES;^0;6^Q"
^DD(101.41,6,3)="Enter the OR key required to sign orders created by this dialog"
^DD(101.41,6,21,0)="^^6^6^2970318^^"
^DD(101.41,6,21,1,0)="This field indicates what signature will be required for orders created by"
^DD(101.41,6,21,2,0)="this dialog, to be considered complete and ready to release to the service"
^DD(101.41,6,21,3,0)="for action.  If this flag is set to NO and the dialog contains a prompt"
^DD(101.41,6,21,4,0)="for item(s) from the Orderable Item file, the order created may still"
^DD(101.41,6,21,5,0)="require a signature if any of the items ordered are individually flagged"
^DD(101.41,6,21,6,0)="as requiring a signature."
^DD(101.41,6,"DT")="2970318"
^DD(101.41,7,0)="PACKAGE^P9.4'^DIC(9.4,^0;7^Q"
^DD(101.41,7,1,0)="^.1"
^DD(101.41,7,1,1,0)="101.41^APKG"
^DD(101.41,7,1,1,1)="S ^ORD(101.41,""APKG"",$E(X,1,30),DA)="""""
^DD(101.41,7,1,1,2)="K ^ORD(101.41,""APKG"",$E(X,1,30),DA)"
^DD(101.41,7,1,1,"DT")="2970325"
^DD(101.41,7,3)="Enter the VISTA package that is to receive orders created by this dialog."
^DD(101.41,7,21,0)="^^3^3^2950208^"
^DD(101.41,7,21,1,0)="This is the VISTA package that is intended to receive orders created by"
^DD(101.41,7,21,2,0)="this dialog; this is required for creating the HL7 messages to pass the"
^DD(101.41,7,21,3,0)="order."
^DD(101.41,7,"DT")="2970325"
^DD(101.41,8,0)="VERIFY ORDER^S^1:YES;0:NO;^0;8^Q"
^DD(101.41,8,3)="Enter YES to have orders created by this dialog presented to the user before saving, with the opportunity to edit."
^DD(101.41,8,21,0)="^^3^3^2950623^"
^DD(101.41,8,21,1,0)="This field is a flag, which determines if the order created by this dialog"
^DD(101.41,8,21,2,0)="will be presented to the user for verification before saving in the Orders"
^DD(101.41,8,21,3,0)="file; for most quick orders, this flag should be set to 0 (no)."
^DD(101.41,8,"DT")="2950623"
^DD(101.41,9,0)="ASK FOR ANOTHER ORDER^S^0:NO;1:YES;2:YES-DON'T ASK;^0;9^Q"
^DD(101.41,9,3)="Enter YES to have the user asked to enter another order from this dialog before exiting."
^DD(101.41,9,21,0)="^^6^6^2970616^^^"
^DD(101.41,9,21,1,0)="This field allows the user to add another order from this dialog, when the"
^DD(101.41,9,21,2,0)="initial order is accepted and placed; if set to YES, the user will be"
^DD(101.41,9,21,3,0)="asked ""Add another <dialog display text> order?"" to allow for either"
^DD(101.41,9,21,4,0)="exiting the processor or adding an additional order of the same type."
^DD(101.41,9,21,5,0)="This field can also be set to YES-DON'T ASK to force the processor to"
^DD(101.41,9,21,6,0)="automatically drop into prompting for another order without asking first."
^DD(101.41,9,"DT")="2970616"
^DD(101.41,10,0)="ITEMS^101.412IA^^10;0"
^DD(101.41,10,21,0)="^^5^5^2990211^^^^"
^DD(101.41,10,21,1,0)="This field contains the components for dialogs:"
^DD(101.41,10,21,2,0)="     Dialogs      -> prompts"
^DD(101.41,10,21,3,0)="     Quick orders -> prompts (completed)"
^DD(101.41,10,21,4,0)="     Order sets   -> dialogs or quick orders"
^DD(101.41,10,21,5,0)="     Menus        -> dialogs, quick orders, or order sets"
^DD(101.41,11,0)="DATA TYPE^S^D:date/time;R:free text date/time;F:free text;N:numeric;S:set of codes;Y:yes/no;P:pointer;W:word processing;^1;1^Q"
^DD(101.41,11,3)="Enter the type of data to be collected at this prompt."
^DD(101.41,11,21,0)="^^2^2^2950823^^"
^DD(101.41,11,21,1,0)="This is the type of data being prompted for; this field is used to define"
^DD(101.41,11,21,2,0)="a call to the reader (^DIR) in most cases."
^DD(101.41,11,23,0)="^^1^1^2950823^^"
^DD(101.41,11,23,1,0)="Used with Prompt-type only."
^DD(101.41,11,"DT")="2950407"
^DD(101.41,12,0)="DOMAIN^F^^1;2^K:$L(X)>235!($L(X)<1) X"
^DD(101.41,12,3)="Answer must be 1-235 characters in length."
^DD(101.41,12,21,0)="^^3^3^2990225^^^^"
^DD(101.41,12,21,1,0)="This is a parameter that may be used to further specify the data type."
^DD(101.41,12,21,2,0)="The string stored here should be appropriate for the second ^-piece of"
^DD(101.41,12,21,3,0)="DIR(0) when used with the data type field."
^DD(101.41,12,23,0)="^^1^1^2990225^^^^"
^DD(101.41,12,23,1,0)="Used with Prompt-type only."
^DD(101.41,12,"DT")="2990225"
^DD(101.41,13,0)="ID^F^^1;3^K:$L(X)>10!($L(X)<2) X"
^DD(101.41,13,3)="Answer must be 2-10 characters in length."
^DD(101.41,13,21,0)="^.001^20^20^3010727^^"
^DD(101.41,13,21,1,0)="This field may contain a single word identifier which will be"
^DD(101.41,13,21,2,0)="stored with the user response in the Orders file #100, where it"
^DD(101.41,13,21,3,0)="will be indexed for quick reference to certain values in the"
^DD(101.41,13,21,4,0)="order dialog.  The following are some examples of values"
^DD(101.41,13,21,5,0)="currently in use:"
^DD(101.41,13,21,6,0)=" "
^DD(101.41,13,21,7,0)="   START      -> Start date/time"
^DD(101.41,13,21,8,0)="   STOP       -> Stop date/time"
^DD(101.41,13,21,9,0)="   SCHEDULE   -> Administration Schedule"
^DD(101.41,13,21,10,0)="   ORDERABLE  -> Orderable Item"
^DD(101.41,13,21,11,0)="   DRUG       -> Dispense Drug"
^DD(101.41,13,21,12,0)="   CANCEL     -> Cancel Future Orders flag"
^DD(101.41,13,21,13,0)="   COMMENT    -> Word processing comments"
^DD(101.41,13,21,14,0)=" "
^DD(101.41,13,21,15,0)="These values must be unique among entries within an order dialog"
^DD(101.41,13,21,16,0)="but do not need to be unique across the entire file.  Be sure to"
^DD(101.41,13,21,17,0)="check the IDs assigned to generic text entries to make sure that"
^DD(101.41,13,21,18,0)="all IDs are unique.  In order to avoid potential problems it's"
^DD(101.41,13,21,19,0)="recommended that you use unique IDs for any local entries that you"
^DD(101.41,13,21,20,0)="create."
^DD(101.41,13,"DT")="2960215"
^DD(101.41,17,0)="VALIDATION^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.41,17,3)="This is Standard MUMPS code."
^DD(101.41,17,9)="@"
^DD(101.41,17,21,0)="^^3^3^2960912^"
^DD(101.41,17,21,1,0)="This is MUMPS code that will be executed at the time of releasing an"
^DD(101.41,17,21,2,0)="order created with this dialog; dialog responses may be checked again"
^DD(101.41,17,21,3,0)="here before releasing the order to the service."
^DD(101.41,17,"DT")="2960912"
^DD(101.41,19,0)="ADDITIONAL TEXT^K^^9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.41,19,3)="This is Standard MUMPS code."
^DD(101.41,19,9)="@"
^DD(101.41,19,21,0)="^^3^3^2960405^^"
^DD(101.41,19,21,1,0)="This is MUMPS code that will be executed when order ORIFN created by this"
^DD(101.41,19,21,2,0)="dialog is about to be displayed; any string that should be appended to the"
^DD(101.41,19,21,3,0)="order text should be returned in Y."
^DD(101.41,19,"DT")="2960405"
^DD(101.41,20,0)="DESCRIPTION^101.411^^2;0"
^DD(101.41,20,21,0)="^^1^1^2971219^"
^DD(101.41,20,21,1,0)="This is a description of the dialog and its uses."
^DD(101.41,21,0)="RESPONSES^101.416^^6;0"
^DD(101.41,21,21,0)="^^2^2^2971219^"
^DD(101.41,21,21,1,0)="This multiple contains any responses to prompts that have been pre-answered"
^DD(101.41,21,21,2,0)="to create a quick order."
^DD(101.41,30,0)="ENTRY ACTION^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.41,30,3)="This is Standard MUMPS code."
^DD(101.41,30,9)="@"
^DD(101.41,30,21,0)="^^4^4^2950425^"
^DD(101.41,30,21,1,0)="This is MUMPS code that will be executed at the top of a dialog, prior to"
^DD(101.41,30,21,2,0)="the execution of any prompts; it may perform functions such as listing"
^DD(101.41,30,21,3,0)="the recent Radiology exams before ordering a new one, or alerting the"
^DD(101.41,30,21,4,0)="user to an existing diet order before making a change."
^DD(101.41,30,"DT")="2950425"
^DD(101.41,31,0)="QUICK SETUP^K^^3.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.41,31,3)="This is Standard MUMPS code."
^DD(101.41,31,9)="@"
^DD(101.41,31,21,0)="^^3^3^2970113^"
^DD(101.41,31,21,1,0)="This is MUMPS code that will be executed in the place of the Entry Action"
^DD(101.41,31,21,2,0)="when creating quick orders for this dialog; variables may be set here"
^DD(101.41,31,21,3,0)="instead to bypass the usual dependence on specific patient values."
^DD(101.41,31,"DT")="2970113"
^DD(101.41,40,0)="EXIT ACTION^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.41,40,3)="This is Standard MUMPS code."
^DD(101.41,40,9)="@"
^DD(101.41,40,21,0)="^^2^2^2950622^"
^DD(101.41,40,21,1,0)="This is MUMPS code that will be executed upon completion of processing the"
^DD(101.41,40,21,2,0)="dialog; it is currently used only with dialog-type entries."
^DD(101.41,40,"DT")="2950622"
^DD(101.41,50,0)="CONTROLS^101.415A^^50;0"
^DD(101.41,51,0)="COLUMN WIDTH^NJ3,0^^5;1^K:+X'=X!(X>240)!(X<20)!(X?.E1"".""1N.N) X"
^DD(101.41,51,1,0)="^.1"
^DD(101.41,51,1,1,0)="101.41^AM51^MUMPS"
^DD(101.41,51,1,1,1)="D REDO^ORDD41"
^DD(101.41,51,1,1,2)="D REDO^ORDD41"
^DD(101.41,51,1,1,"%D",0)="^^1^1^2990210^"
^DD(101.41,51,1,1,"%D",1,0)="Update TIMESTAMP whenever COLUMN WIDTH is changed."
^DD(101.41,51,1,1,"DT")="2990210"
^DD(101.41,51,3)="Type a Number between 20 and 240, 0 Decimal Digits"
^DD(101.41,51,21,0)="^^2^2^2950623^"
^DD(101.41,51,21,1,0)="This is the width, in characters, for each column in a menu.  For example,"
^DD(101.41,51,21,2,0)="to have 3 columns on an 80 character device, enter a width of 26."
^DD(101.41,51,"DT")="2990210"
^DD(101.41,52,0)="MNEMONIC WIDTH^NJ1,0^^5;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.41,52,1,0)="^.1"
^DD(101.41,52,1,1,0)="101.41^AM52^MUMPS"
^DD(101.41,52,1,1,1)="D REDO^ORDD41"
^DD(101.41,52,1,1,2)="D REDO^ORDD41"
^DD(101.41,52,1,1,"%D",0)="^^1^1^2990210^"
^DD(101.41,52,1,1,"%D",1,0)="Update TIMESTAMP whenever MNEMONIC WIDTH is changed."
^DD(101.41,52,1,1,"DT")="2990210"
^DD(101.41,52,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(101.41,52,21,0)="^^2^2^2950623^"
^DD(101.41,52,21,1,0)="This field allows the width of item mnemonics to be varied; the default"
^DD(101.41,52,21,2,0)="value is 5."
^DD(101.41,52,"DT")="2990210"
^DD(101.41,53,0)="PATH SWITCH^S^1:YES;0:NO;^5;3^Q"
^DD(101.41,53,3)="Enter YES if this menu should be redisplayed when traversing back up the menu tree."
^DD(101.41,53,21,0)="^^5^5^2950623^"
^DD(101.41,53,21,1,0)="This switch allows the user, when traversing back UP the tree of menus and"
^DD(101.41,53,21,2,0)="items, to select a new path back down the tree.  In other words, the menu"
^DD(101.41,53,21,3,0)="is redisplayed when returning to that menu's level in the tree and"
^DD(101.41,53,21,4,0)="processing back down the tree is possible from that point.  If nothing is"
^DD(101.41,53,21,5,0)="selected from the menu, the path continues back up the tree."
^DD(101.41,53,"DT")="2950623"
^DD(101.41,54,0)="LISTBOX TEXT^F^^5;4^K:$L(X)>30!($L(X)<1) X"
^DD(101.41,54,3)="Answer must be 1-30 characters in length."
^DD(101.41,54,"DT")="2960524"
^DD(101.41,55,0)="WINDOW FORM ID^NJ4,0^^5;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(101.41,55,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(101.41,55,21,0)="^.001^23^23^3010727^^"
^DD(101.41,55,21,1,0)="This field tells the GUI DELPHI code which form to use to process the"
^DD(101.41,55,21,2,0)="order dialog.  Each number represents a unique form.  Following are some"
^DD(101.41,55,21,3,0)="of the more common codes and their corresponding form in DELPHI."
^DD(101.41,55,21,4,0)=" "
^DD(101.41,55,21,5,0)="    Form Name     Windows Form ID"
^DD(101.41,55,21,6,0)="    ---------     ---------------"
^DD(101.41,55,21,7,0)="  OD_ACTIVITY           100"
^DD(101.41,55,21,8,0)="  OD_ALLERGY            105"
^DD(101.41,55,21,9,0)="  OD_CONSULT            110"
^DD(101.41,55,21,10,0)="  OD_PROCEDURE          112"
^DD(101.41,55,21,11,0)="  OD_DIET_TXT           115"
^DD(101.41,55,21,12,0)="  OD_DIET               117"
^DD(101.41,55,21,13,0)="  OD_LAB                120"
^DD(101.41,55,21,14,0)="  OD_MEDINPT            130"
^DD(101.41,55,21,15,0)="  OD_MEDS               135"
^DD(101.41,55,21,16,0)="  OD_MEDOUTPT           140"
^DD(101.41,55,21,17,0)="  OD_NURSING            150"
^DD(101.41,55,21,18,0)="  OD_MISC               151"
^DD(101.41,55,21,19,0)="  OD_GENERIC            152"
^DD(101.41,55,21,20,0)="  OD_IMAGING            160"
^DD(101.41,55,21,21,0)="  OD_VITALS             171 "
^DD(101.41,55,21,22,0)="  OD_MEDIV              180"
^DD(101.41,55,21,23,0)="  OD_TEXTONLY           999"
^DD(101.41,55,"DT")="2960804"
^DD(101.41,56,0)="CREATE PARENT ORDER^S^1:YES;0:NO;^5;6^Q"
^DD(101.41,56,3)="Enter YES if a parent order should be created for this order set"
^DD(101.41,56,21,0)="^^6^6^2970227^"
^DD(101.41,56,21,1,0)="This flag indicates whether a parent order should be created to group"
^DD(101.41,56,21,2,0)="together all the orders created by this order set; this flag is only"
^DD(101.41,56,21,3,0)="valid with SET type order dialogs.  If this value is YES, a parent"
^DD(101.41,56,21,4,0)="order will be created, and only the parent will be presented on the"
^DD(101.41,56,21,5,0)="orders list for display and action; NO will prevent a parent from being"
^DD(101.41,56,21,6,0)="created and all orders will be created and displayed independently."
^DD(101.41,56,"DT")="2970227"
^DD(101.41,57,0)="DISPLAY SUBHEADER^S^1:YES;0:NO;^5;7^Q"
^DD(101.41,57,3)="Enter YES if a subheader should be displayed as each order in this set is processed"
^DD(101.41,57,21,0)="^^3^3^2970227^"
^DD(101.41,57,21,1,0)="This flag indicates whether a subheader is to be displayed for each order"
^DD(101.41,57,21,2,0)="in this set as it is processed and placed; this flag is only valid with"
^DD(101.41,57,21,3,0)="SET type order dialogs."
^DD(101.41,57,"DT")="2970227"
^DD(101.41,58,0)="AUTO-ACCEPT QUICK ORDER^S^1:YES;^5;8^Q"
^DD(101.41,58,3)="Enter 'Yes' if the order should be placed without displaying the dialog window."
^DD(101.41,58,21,0)="^^2^2^2980902^"
^DD(101.41,58,21,1,0)="This can be set to yes for a quick order so that it can be placed simply"
^DD(101.41,58,21,2,0)="by clicking on it in the GUI (no ordering dialog is displayed)."
^DD(101.41,58,"DT")="2980902"
^DD(101.41,99,0)="TIMESTAMP^F^^99;1^K:$L(X)>15!($L(X)<1) X"
^DD(101.41,99,1,0)="^.1"
^DD(101.41,99,1,1,0)="101.41^AM^MUMPS"
^DD(101.41,99,1,1,1)="D SET^ORDD41(DA)"
^DD(101.41,99,1,1,2)="D KILL^ORDD41(DA)"
^DD(101.41,99,1,1,"%D",0)="^^2^2^2990210^"
^DD(101.41,99,1,1,"%D",1,0)="Recompiles order dialog menus in ^XUTL(""XQORM"",<dialog#>_"";ORD(101.41,"")"
^DD(101.41,99,1,1,"%D",2,0)="whenever fields necessary to displaying the menu are changed."
^DD(101.41,99,1,1,"DT")="2990210"
^DD(101.41,99,3)="Answer must be 1-15 characters in length."
^DD(101.41,99,21,0)="^^2^2^2980501^"
^DD(101.41,99,21,1,0)="For menus, this contains the $H time the menu was last compiled for use"
^DD(101.41,99,21,2,0)="with the Unwinder utility (^XQOR)."
^DD(101.41,99,"DT")="2990210"
^DD(101.41,"B","ADDITIONAL TEXT",19)=""
^DD(101.41,"B","ASK FOR ANOTHER ORDER",9)=""
^DD(101.41,"B","AUTO-ACCEPT QUICK ORDER",58)=""
^DD(101.41,"B","COLUMN WIDTH",51)=""
^DD(101.41,"B","CONTROLS",50)=""
^DD(101.41,"B","CREATE PARENT ORDER",56)=""
^DD(101.41,"B","DATA TYPE",11)=""
^DD(101.41,"B","DESCRIPTION",20)=""
^DD(101.41,"B","DISABLE",3)=""
^DD(101.41,"B","DISPLAY GROUP",5)=""
^DD(101.41,"B","DISPLAY SUBHEADER",57)=""
^DD(101.41,"B","DISPLAY TEXT",2)=""
^DD(101.41,"B","DOMAIN",12)=""
^DD(101.41,"B","ENTRY ACTION",30)=""
^DD(101.41,"B","EXIT ACTION",40)=""
^DD(101.41,"B","ID",13)=""
^DD(101.41,"B","ITEMS",10)=""
^DD(101.41,"B","LISTBOX TEXT",54)=""
^DD(101.41,"B","MNEMONIC WIDTH",52)=""
^DD(101.41,"B","NAME",.01)=""
^DD(101.41,"B","PACKAGE",7)=""
^DD(101.41,"B","PATH SWITCH",53)=""
^DD(101.41,"B","QUICK SETUP",31)=""
^DD(101.41,"B","RESPONSES",21)=""
^DD(101.41,"B","SIGNATURE REQUIRED",6)=""
^DD(101.41,"B","TIMESTAMP",99)=""
^DD(101.41,"B","TYPE",4)=""
^DD(101.41,"B","VALIDATION",17)=""
^DD(101.41,"B","VERIFY ORDER",8)=""
^DD(101.41,"B","WINDOW FORM ID",55)=""
^DD(101.41,"GL",0,1,.01)=""
^DD(101.41,"GL",0,2,2)=""
^DD(101.41,"GL",0,3,3)=""
^DD(101.41,"GL",0,4,4)=""
^DD(101.41,"GL",0,5,5)=""
^DD(101.41,"GL",0,6,6)=""
^DD(101.41,"GL",0,7,7)=""
^DD(101.41,"GL",0,8,8)=""
^DD(101.41,"GL",0,9,9)=""
^DD(101.41,"GL",1,1,11)=""
^DD(101.41,"GL",1,2,12)=""
^DD(101.41,"GL",1,3,13)=""
^DD(101.41,"GL",2,0,20)=""
^DD(101.41,"GL",3,"E1,245",30)=""
^DD(101.41,"GL",3.1,"E1,245",31)=""
^DD(101.41,"GL",4,"E1,245",40)=""
^DD(101.41,"GL",5,1,51)=""
^DD(101.41,"GL",5,2,52)=""
^DD(101.41,"GL",5,3,53)=""
^DD(101.41,"GL",5,4,54)=""
^DD(101.41,"GL",5,5,55)=""
^DD(101.41,"GL",5,6,56)=""
^DD(101.41,"GL",5,7,57)=""
^DD(101.41,"GL",5,8,58)=""
^DD(101.41,"GL",6,0,21)=""
^DD(101.41,"GL",7,"E1,245",17)=""
^DD(101.41,"GL",9,"E1,245",19)=""
^DD(101.41,"GL",10,0,10)=""
^DD(101.41,"GL",50,0,50)=""
^DD(101.41,"GL",99,1,99)=""
^DD(101.41,"IX",.01)=""
^DD(101.41,"IX",2)=""
^DD(101.41,"IX",7)=""
^DD(101.41,"IX",51)=""
^DD(101.41,"IX",52)=""
^DD(101.41,"IX",99)=""
^DD(101.41,"RQ",.01)=""
^DD(101.41,"RQ",4)=""
^DD(101.41,"SB",101.411,20)=""
^DD(101.41,"SB",101.412,10)=""
^DD(101.41,"SB",101.415,50)=""
^DD(101.41,"SB",101.416,21)=""
^DD(101.411,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(101.411,0,"DT")="2950407"
^DD(101.411,0,"NM","DESCRIPTION")=""
^DD(101.411,0,"UP")="101.41"
^DD(101.411,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(101.411,.01,3)="Enter a description of this dialog."
^DD(101.411,.01,21,0)="^^1^1^2950425^^"
^DD(101.411,.01,21,1,0)="This field contains a description of the content and use of this dialog."
^DD(101.411,.01,"DT")="2950407"
^DD(101.411,"B","DESCRIPTION",.01)=""
^DD(101.411,"GL",0,1,.01)=""
^DD(101.412,0)="ITEMS SUB-FIELD^^117^37"
^DD(101.412,0,"DT")="2971117"
^DD(101.412,0,"ID","WRITE")="N OR0,ORNM S OR0=^(0) I $P(OR0,U,2) S ORNM=$P($G(^ORD(101.41,+$P(OR0,U,2),0)),U) D:$L(ORNM) EN^DDIOL(ORNM,,""?10"")"
^DD(101.412,0,"IX","ATXT",101.412,21)=""
^DD(101.412,0,"IX","B",101.412,.01)=""
^DD(101.412,0,"IX","D",101.412,2)=""
^DD(101.412,0,"IX","DAD",101.412,1)=""
^DD(101.412,0,"IX","DAD1",101.412,.01)=""
^DD(101.412,0,"NM","ITEMS")=""
^DD(101.412,0,"UP")="101.41"
^DD(101.412,.01,0)="SEQUENCE^MNJ5,1^^0;1^K:+X'=X!(X>999.9)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(101.412,.01,1,0)="^.1"
^DD(101.412,.01,1,1,0)="101.412^B"
^DD(101.412,.01,1,1,1)="S ^ORD(101.41,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(101.412,.01,1,1,2)="K ^ORD(101.41,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(101.412,.01,1,2,0)="101.412^DAD1^MUMPS"
^DD(101.412,.01,1,2,1)="N ORP S ORP=$P(^ORD(101.41,DA(1),10,DA,0),U,11) S:ORP ^ORD(101.41,DA(1),10,""DAD"",ORP,X,DA)="""""
^DD(101.412,.01,1,2,2)="N ORP S ORP=$P(^ORD(101.41,DA(1),10,DA,0),U,11) K:ORP ^ORD(101.41,DA(1),10,""DAD"",ORP,X,DA)"
^DD(101.412,.01,1,2,"%D",0)="^^1^1^2950511^"
^DD(101.412,.01,1,2,"%D",1,0)="Allows retrieval of 'child' prompts in sequence by parent."
^DD(101.412,.01,1,2,"DT")="2950511"
^DD(101.412,.01,1,3,0)="101.41^AMM^MUMPS"
^DD(101.412,.01,1,3,1)="D REDOX^ORDD41"
^DD(101.412,.01,1,3,2)="D REDOX^ORDD41"
^DD(101.412,.01,1,3,"%D",0)="^^1^1^2990210^"
^DD(101.412,.01,1,3,"%D",1,0)="Update TIMESTAMP whenever SEQUENCE is changed."
^DD(101.412,.01,1,3,"DT")="2990210"
^DD(101.412,.01,3)="Type a Number between .1 and 999.9, 1 Decimal Digit"
^DD(101.412,.01,21,0)="^^2^2^2971117^^^^"
^DD(101.412,.01,21,1,0)="This field specifies the order in which this item will be displayed or"
^DD(101.412,.01,21,2,0)="processed."
^DD(101.412,.01,"DT")="2990210"
^DD(101.412,.1,0)="INPUT TRANSFORM^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,.1,3)="This is Standard MUMPS code."
^DD(101.412,.1,9)="@"
^DD(101.412,.1,21,0)="^^2^2^2950816^"
^DD(101.412,.1,21,1,0)="This is code that will be used as the third piece of DIR(0) when asking"
^DD(101.412,.1,21,2,0)="this prompt."
^DD(101.412,.1,"DT")="2950816"
^DD(101.412,1,0)="PARENT^P101.41'^ORD(101.41,^0;11^Q"
^DD(101.412,1,1,0)="^.1"
^DD(101.412,1,1,1,0)="101.412^DAD^MUMPS"
^DD(101.412,1,1,1,1)="S ^ORD(101.41,DA(1),10,""DAD"",X,$P(^ORD(101.41,DA(1),10,DA,0),U),DA)="""""
^DD(101.412,1,1,1,2)="K ^ORD(101.41,DA(1),10,""DAD"",X,$P(^ORD(101.41,DA(1),10,DA,0),U),DA)"
^DD(101.412,1,1,1,"%D",0)="^^1^1^2950511^^"
^DD(101.412,1,1,1,"%D",1,0)="Allows retrieval of 'child' prompts in sequence by parent."
^DD(101.412,1,1,1,"DT")="2950511"
^DD(101.412,1,3)="If this prompt is subordinate to another in this dialog, enter the parent prompt here"
^DD(101.412,1,21,0)="^^4^4^2950511^"
^DD(101.412,1,21,1,0)="This field controls the behavior of this prompt.  If a parent is defined"
^DD(101.412,1,21,2,0)="here, this prompt will be asked from within the parent's dialog; when it"
^DD(101.412,1,21,3,0)="is invoked independently based on its position sequence number, the child"
^DD(101.412,1,21,4,0)="prompt will be ignored."
^DD(101.412,1,"DT")="2950511"
^DD(101.412,2,0)="ITEM^P101.41'X^ORD(101.41,^0;2^D TREE^ORDD41"
^DD(101.412,2,1,0)="^.1"
^DD(101.412,2,1,1,0)="101.41^AD"
^DD(101.412,2,1,1,1)="S ^ORD(101.41,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(101.412,2,1,1,2)="K ^ORD(101.41,""AD"",$E(X,1,30),DA(1),DA)"
^DD(101.412,2,1,1,"DT")="2950123"
^DD(101.412,2,1,2,0)="101.412^D"
^DD(101.412,2,1,2,1)="S ^ORD(101.41,DA(1),10,""D"",$E(X,1,30),DA)="""""
^DD(101.412,2,1,2,2)="K ^ORD(101.41,DA(1),10,""D"",$E(X,1,30),DA)"
^DD(101.412,2,1,2,"DT")="2950411"
^DD(101.412,2,1,3,0)="101.41^AMM2^MUMPS"
^DD(101.412,2,1,3,1)="D REDOX^ORDD41"
^DD(101.412,2,1,3,2)="D REDOX^ORDD41"
^DD(101.412,2,1,3,"%D",0)="^^1^1^2990210^"
^DD(101.412,2,1,3,"%D",1,0)="Update TIMESTAMP whenever ITEM is changed."
^DD(101.412,2,1,3,"DT")="2990210"
^DD(101.412,2,3)="Enter an order dialog; a dialog that is an ancestor may not also be a sub-item."
^DD(101.412,2,21,0)="^^3^3^2950123^"
^DD(101.412,2,21,1,0)="This field points to an order dialog which is subordinate to this dialog."
^DD(101.412,2,21,2,0)="NOTE:  The parent dialog menu or one of its ancestors may not be entered"
^DD(101.412,2,21,3,0)="as an item."
^DD(101.412,2,"DT")="2990217"
^DD(101.412,3,0)="MNEMONIC^FX^^0;3^K:$L(X)>4!($L(X)<1)!(+X=X&($L(X,""."")>1))!($$CHKMNE^ORUTL(X)) X"
^DD(101.412,3,1,0)="^.1"
^DD(101.412,3,1,1,0)="101.41^AMM3^MUMPS"
^DD(101.412,3,1,1,1)="D REDOX^ORDD41"
^DD(101.412,3,1,1,2)="D REDOX^ORDD41"
^DD(101.412,3,1,1,"%D",0)="^^1^1^2990210^"
^DD(101.412,3,1,1,"%D",1,0)="Update TIMESTAMP whenever MNEMONIC is changed."
^DD(101.412,3,1,1,"DT")="2990210"
^DD(101.412,3,3)="Enter a mnemonic to be used when this dialog is displayed for selection, 1-4 characters in length with no decimal places if numeric. Standard list manager mnemonics may not be used."
^DD(101.412,3,21,0)="^.001^2^2^3010727^^^^"
^DD(101.412,3,21,1,0)="This is a short abbreviation for this item dialog to be used when this"
^DD(101.412,3,21,2,0)="dialog is displayed for selection."
^DD(101.412,3,"DT")="3000822"
^DD(101.412,4,0)="DISPLAY TEXT^FX^^0;4^K:$L(X)>80!($L(X)<1)!($$CHKNAM^ORUTL(X)) X"
^DD(101.412,4,1,0)="^.1"
^DD(101.412,4,1,1,0)="101.41^AMM4^MUMPS"
^DD(101.412,4,1,1,1)="D REDOX^ORDD41"
^DD(101.412,4,1,1,2)="D REDOX^ORDD41"
^DD(101.412,4,1,1,"%D",0)="^^1^1^2990210^"
^DD(101.412,4,1,1,"%D",1,0)="Update TIMESTAMP whenever DISPLAY TEXT is changed."
^DD(101.412,4,1,1,"DT")="2990210"
^DD(101.412,4,3)="Answer must be 1-80 characters in length and cannot contain a semicolon (;), a comma (,), an up-arrow (^), a dash (-), or an equal sign (=)."
^DD(101.412,4,21,0)="^.001^2^2^3010419^^^^"
^DD(101.412,4,21,1,0)="This field allows the text that normally appears for this item to be"
^DD(101.412,4,21,2,0)="replaced with alternate text for use in this dialog or menu."
^DD(101.412,4,"DT")="3000823"
^DD(101.412,5,0)="DISPLAY ONLY?^S^0:NO;1:YES;2:YES-HEADER;^0;5^Q"
^DD(101.412,5,1,0)="^.1"
^DD(101.412,5,1,1,0)="101.41^AMM5^MUMPS"
^DD(101.412,5,1,1,1)="D REDOX^ORDD41"
^DD(101.412,5,1,1,2)="D REDOX^ORDD41"
^DD(101.412,5,1,1,"%D",0)="^^1^1^2990210^"
^DD(101.412,5,1,1,"%D",1,0)="Update TIMESTAMP whenever DISPLAY ONLY? is changed."
^DD(101.412,5,1,1,"DT")="2990210"
^DD(101.412,5,3)="Enter YES if this item is text for display only and not a selectable item."
^DD(101.412,5,21,0)="^^3^3^2970409^^^^"
^DD(101.412,5,21,1,0)="This field identifies an item as being free text for display purposes"
^DD(101.412,5,21,2,0)="only.  The text in the Display Text field will be displayed, but it"
^DD(101.412,5,21,3,0)="is not selectable; if designated as a header, the text will be underlined."
^DD(101.412,5,"DT")="2990210"
^DD(101.412,6,0)="REQUIRED^S^1:YES;0:NO;^0;6^Q"
^DD(101.412,6,3)="Enter YES if a response to this prompt is mandatory."
^DD(101.412,6,21,0)="^^1^1^2950407^"
^DD(101.412,6,21,1,0)="This field indicates that the user must enter a response to this prompt."
^DD(101.412,6,"DT")="2950407"
^DD(101.412,7,0)="MULTIPLE VALUED^S^1:YES;0:NO;^0;7^Q"
^DD(101.412,7,3)="Enter YES if this prompt is to be asked multiple times."
^DD(101.412,7,21,0)="^^3^3^2950407^"
^DD(101.412,7,21,1,0)="This field determines if this prompt will be allowed to have multiple"
^DD(101.412,7,21,2,0)="values, or be prompted for only once; if this prompt is a sub-dialog,"
^DD(101.412,7,21,3,0)="the entire dialog will be asked once or many times, as a group."
^DD(101.412,7,"DT")="2950407"
^DD(101.412,7.1,0)="MAX NUMBER OF MULTIPLES^NJ2,0^^0;12^K:+X'=X!(X>99)!(X<2)!(X?.E1"".""1N.N) X"
^DD(101.412,7.1,3)="Type a Number between 2 and 99, 0 Decimal Digits"
^DD(101.412,7.1,21,0)="^^4^4^2950815^"
^DD(101.412,7.1,21,1,0)="This is the maximum number of values that may be entered for this prompt,"
^DD(101.412,7.1,21,2,0)="if it is flagged as being multiple-valued.  For example, a diet order may"
^DD(101.412,7.1,21,3,0)="have up to 5 diet modifications entered, where 5 is the maximum allowed"
^DD(101.412,7.1,21,4,0)="that would be entered here."
^DD(101.412,7.1,"DT")="2950815"
^DD(101.412,7.2,0)="TITLE^F^^0;13^K:$L(X)>30!($L(X)<3) X"
^DD(101.412,7.2,3)="Answer must be 3-30 characters in length."
^DD(101.412,7.2,21,0)="^^8^8^2970430^^"
^DD(101.412,7.2,21,1,0)="This is text that will be used in place of the prompt when the order is"
^DD(101.412,7.2,21,2,0)="displayed for place, edit, or cancel, or at the top of a multiple-valued"
^DD(101.412,7.2,21,3,0)="prompt.  The Display Text for the prompt will be used together with the"
^DD(101.412,7.2,21,4,0)="instance number to prompt for user input; for example if Title=""Lab Tests:"""
^DD(101.412,7.2,21,5,0)="and Display Text=""Test:"" the user would see"
^DD(101.412,7.2,21,6,0)="  Lab Tests:"
^DD(101.412,7.2,21,7,0)="  1. Test:"
^DD(101.412,7.2,21,8,0)="  2. Test:"
^DD(101.412,7.2,"DT")="2950815"
^DD(101.412,7.3,0)="PROMPT^F^^0;14^K:$L(X)>10!($L(X)<1) X"
^DD(101.412,7.3,3)="Answer must be 1-10 characters in length."
^DD(101.412,7.3,21,0)="^^3^3^2970618^"
^DD(101.412,7.3,21,1,0)="This field contains text that will be appended to the beginning of the"
^DD(101.412,7.3,21,2,0)="display text when prompting for additional values; if this field is"
^DD(101.412,7.3,21,3,0)="empty, then ""Another "" will be used."
^DD(101.412,7.3,"DT")="2970618"
^DD(101.412,8,0)="ASK ON EDIT ONLY^S^1:YES;0:NO;^0;8^Q"
^DD(101.412,8,3)="Enter YES if this prompt should not be asked initially when creating this order, only if the user chooses to edit the order."
^DD(101.412,8,21,0)="^^4^4^2960112^^^"
^DD(101.412,8,21,1,0)="This field determines the behaviour of the dialog driver for this prompt;"
^DD(101.412,8,21,2,0)="if no value or the defined default is usually correct for this prompt,"
^DD(101.412,8,21,3,0)="enter YES here to have this prompt skipped on the first pass through this"
^DD(101.412,8,21,4,0)="dialog when creating an order."
^DD(101.412,8,"DT")="2950407"
^DD(101.412,9,0)="ASK ON ACTION^F^^0;9^K:$L(X)>3!($L(X)<1) X"
^DD(101.412,9,3)="Answer must be 1-3 characters in length."
^DD(101.412,9,21,0)="^^6^6^2970708^^^"
^DD(101.412,9,21,1,0)="This field determines the behaviour of the dialog driver for this prompt"
^DD(101.412,9,21,2,0)="when taking a particular action on an order created by this dialog.  If"
^DD(101.412,9,21,3,0)="this string contains ""R"", this prompt will be asked when renewing an order;"
^DD(101.412,9,21,4,0)="if this string contains ""C"", this prompt will be asked when changing an"
^DD(101.412,9,21,5,0)="order; if this string contains ""W"", this prompt will be asked when"
^DD(101.412,9,21,6,0)="rewriting an order."
^DD(101.412,9,"DT")="2970708"
^DD(101.412,10,0)="INDEX^F^^0;10^K:$L(X)>25!($L(X)<1) X"
^DD(101.412,10,3)="Answer must be 1-25 characters in length."
^DD(101.412,10,21,0)="^^3^3^2950713^^^"
^DD(101.412,10,21,1,0)="For pointer-type prompts, this is the index to use when searching the file;"
^DD(101.412,10,21,2,0)="it must be in the form of a regular cross-reference.  To search on multiple"
^DD(101.412,10,21,3,0)="indices, enter a string of index names separated by semi-colons, i.e. ""B;C""."
^DD(101.412,10,"DT")="2950713"
^DD(101.412,11,0)="HELP MESSAGE^F^^1;1^K:$L(X)>160!($L(X)<1) X"
^DD(101.412,11,3)="Answer must be 1-160 characters in length."
^DD(101.412,11,21,0)="^^2^2^2970609^^"
^DD(101.412,11,21,1,0)="This field contains the help message to be presented when the user enters"
^DD(101.412,11,21,2,0)="a question mark at this prompt."
^DD(101.412,11,"DT")="2970609"
^DD(101.412,12,0)="SPECIAL LOOKUP ROUTINE^F^^1;2^K:$L(X)>20!($L(X)<3) X"
^DD(101.412,12,3)="Enter the routine to use instead of DIC to do this lookup, as [TAG;]ROUTINE"
^DD(101.412,12,21,0)="^^3^3^2970609^"
^DD(101.412,12,21,1,0)="This field contains a routine to execute that will replace the standard"
^DD(101.412,12,21,2,0)="DIC lookup for this prompt; it must be entered here as LINETAG;ROUTINE"
^DD(101.412,12,21,3,0)="using a ; instead of ^ and where LINETAG is optional."
^DD(101.412,12,"DT")="2970609"
^DD(101.412,13,0)="ASK ON CONDITION^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,13,3)="This is MUMPS code that sets $T to determine if this prompt should be asked, or given a default value and bypassed."
^DD(101.412,13,9)="@"
^DD(101.412,13,21,0)="^^5^5^2950407^"
^DD(101.412,13,21,1,0)="This is MUMPS code that sets $T to determine if this prompt should be asked"
^DD(101.412,13,21,2,0)="or simply given a default value and presented to the user for acceptance"
^DD(101.412,13,21,3,0)="or editing.  For example, the prompt ""Pregnant: "" may have code here to"
^DD(101.412,13,21,4,0)="check the sex of the current patient, i.e. I ORSEX=""F"" will allow it to be"
^DD(101.412,13,21,5,0)="asked only for female patients."
^DD(101.412,13,"DT")="2950407"
^DD(101.412,14,0)="SCREEN^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,14,3)="This is Standard MUMPS code."
^DD(101.412,14,9)="@"
^DD(101.412,14,21,0)="^^2^2^2950407^"
^DD(101.412,14,21,1,0)="For pointer-type prompts, this field may contain MUMPS code that will be"
^DD(101.412,14,21,2,0)="set into DIC(""S"") to screen the possible choices in the pointed-to file."
^DD(101.412,14,"DT")="2950407"
^DD(101.412,15,0)="POST-SELECTION ACTION^K^^5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,15,3)="This is Standard MUMPS code."
^DD(101.412,15,9)="@"
^DD(101.412,15,21,0)="^^3^3^2970923^^^^"
^DD(101.412,15,21,1,0)="This is code that will be executed after a response is entered to this"
^DD(101.412,15,21,2,0)="prompt; if this prompt should be re-asked, kill the variable DONE."
^DD(101.412,15,21,3,0)="If execution of the ordering dialog should be stopped, set ORQUIT=1."
^DD(101.412,15,"DT")="2970923"
^DD(101.412,16,0)="XECUTABLE HELP^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,16,3)="This is Standard MUMPS code."
^DD(101.412,16,9)="@"
^DD(101.412,16,21,0)="^^2^2^2950407^"
^DD(101.412,16,21,1,0)="This is code that is to be executed when the user enters two or more"
^DD(101.412,16,21,2,0)="question marks at this prompt."
^DD(101.412,16,"DT")="2950407"
^DD(101.412,17,0)="DEFAULT^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,17,3)="This is Standard MUMPS code."
^DD(101.412,17,9)="@"
^DD(101.412,17,21,0)="^^2^2^2971219^^^^"
^DD(101.412,17,21,1,0)="This is code that is to be executed to determine the appropriate default"
^DD(101.412,17,21,2,0)="value for this prompt, setting Y=internal form of this value."
^DD(101.412,17,"DT")="2950519"
^DD(101.412,18,0)="DEFAULT WORD-PROCESSING TEXT^101.41218^^8;0"
^DD(101.412,18,21,0)="^^1^1^2971219^"
^DD(101.412,18,21,1,0)="This is default text to be stuffed into this word-processing prompt."
^DD(101.412,19,0)="ENTRY ACTION^K^^9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,19,3)="This is Standard MUMPS code."
^DD(101.412,19,9)="@"
^DD(101.412,19,21,0)="^^3^3^2970609^"
^DD(101.412,19,21,1,0)="This is code that will be executed at the beginning of the processing of"
^DD(101.412,19,21,2,0)="this prompt, before the Default and Ask on Condition fields are executed;"
^DD(101.412,19,21,3,0)="any special setup required for this field should be done here."
^DD(101.412,19,"DT")="2970609"
^DD(101.412,20,0)="EXIT ACTION^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,20,3)="This is Standard MUMPS code."
^DD(101.412,20,9)="@"
^DD(101.412,20,21,0)="^^3^3^2970609^"
^DD(101.412,20,21,1,0)="This is code that will be executed at the very end of the processing of"
^DD(101.412,20,21,2,0)="this prompt, after prompting and the Validation field is executed;"
^DD(101.412,20,21,3,0)="any special cleanup should be done here."
^DD(101.412,20,"DT")="2970609"
^DD(101.412,21,0)="ORDER TEXT SEQUENCE^NJ5,2^^2;1^K:+X'=X!(X>99.99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(101.412,21,1,0)="^.1"
^DD(101.412,21,1,1,0)="101.412^ATXT"
^DD(101.412,21,1,1,1)="S ^ORD(101.41,DA(1),10,""ATXT"",$E(X,1,30),DA)="""""
^DD(101.412,21,1,1,2)="K ^ORD(101.41,DA(1),10,""ATXT"",$E(X,1,30),DA)"
^DD(101.412,21,1,1,"%D",0)="^^1^1^2960226^"
^DD(101.412,21,1,1,"%D",1,0)="Used to build order text."
^DD(101.412,21,1,1,"DT")="2960226"
^DD(101.412,21,3)="Enter the order in which this value should be added to the order text, as a number between 1 and 99.99; leave this field blank to prevent this value from being included"
^DD(101.412,21,21,0)="^^3^3^2970607^^^"
^DD(101.412,21,21,1,0)="This field indicates the order in which values will be concatenated"
^DD(101.412,21,21,2,0)="together to build the order text; this may differ from the prompting"
^DD(101.412,21,21,3,0)="order defined in the .01 Sequence field."
^DD(101.412,21,"DT")="2960226"
^DD(101.412,22,0)="FORMAT^F^^2;2^K:$L(X)>10!($L(X)<1) X"
^DD(101.412,22,3)="Answer must be 1-10 characters in length."
^DD(101.412,22,21,0)="^^15^15^2971207^^^^"
^DD(101.412,22,21,1,0)="This is a string of characters that will define any exceptions to how"
^DD(101.412,22,21,2,0)="the external form of this value is generated.  Possible values include:"
^DD(101.412,22,21,3,0)="  Pointer         -> <field #>~<piece in RPC list of field #>, default =.01"
^DD(101.412,22,21,4,0)="  Set of Codes    -> 1~<piece in RPC list of code> to use code for name"
^DD(101.412,22,21,5,0)="  Date/Time       -> Format string to pass $$FMTE^XLFDT (default = 2)"
^DD(101.412,22,21,6,0)="  "
^DD(101.412,22,21,7,0)="  Suppress value  -> @"
^DD(101.412,22,21,8,0)="  Replace value   -> @<ptr> where ptr is the Dialog IEN of the prompt"
^DD(101.412,22,21,9,0)="                      whose value, when present, supersedes this value"
^DD(101.412,22,21,10,0)="  Required value  -> *<ptr> where ptr is the Dialog IEN of the prompt"
^DD(101.412,22,21,11,0)="                      whose value is required to be present to include"
^DD(101.412,22,21,12,0)="                      this value"
^DD(101.412,22,21,13,0)="  Ignore if same  -> =<ptr> where ptr is the Dialog IEN of the prompt"
^DD(101.412,22,21,14,0)="                      whose value, if the external form is the same,"
^DD(101.412,22,21,15,0)="                      supersedes this value"
^DD(101.412,22,"DT")="2960226"
^DD(101.412,23,0)="OMIT TEXT^F^^2;3^K:$L(X)>30!($L(X)<1) X"
^DD(101.412,23,3)="Answer must be 1-30 characters in length."
^DD(101.412,23,21,0)="^^3^3^2970829^^^^"
^DD(101.412,23,21,1,0)="This is the external form of a value that is not to be included when building"
^DD(101.412,23,21,2,0)="the order text.  E.g. to include the urgency in the order text unless it"
^DD(101.412,23,21,3,0)="is routine, enter ""ROUTINE"" here."
^DD(101.412,23,"DT")="2970829"
^DD(101.412,24,0)="LEADING TEXT^F^^2;4^K:$L(X)>80!($L(X)<1) X"
^DD(101.412,24,3)="Answer must be 1-80 characters in length."
^DD(101.412,24,21,0)="^^3^3^2970724^^^^"
^DD(101.412,24,21,1,0)="This field contains text that will be appended to the order text"
^DD(101.412,24,21,2,0)="immediately in front of this value, e.g. ""Instructions:"".  If this text"
^DD(101.412,24,21,3,0)="is contained in a variable, enter @NAME where NAME is the variable name."
^DD(101.412,24,"DT")="2970724"
^DD(101.412,25,0)="TRAILING TEXT^F^^2;5^K:$L(X)>80!($L(X)<1) X"
^DD(101.412,25,3)="Answer must be 1-80 characters in length."
^DD(101.412,25,21,0)="^^3^3^2970724^^^^"
^DD(101.412,25,21,1,0)="This field contains text that will be appended to the order text"
^DD(101.412,25,21,2,0)="immediately following this value, e.g. ""refills"".  If this text is"
^DD(101.412,25,21,3,0)="contained in a variable, enter @NAME where NAME is the variable name."
^DD(101.412,25,"DT")="2970724"
^DD(101.412,26,0)="START NEW LINE^S^1:YES;0:NO;^2;6^Q"
^DD(101.412,26,3)="Enter YES if this value should begin on a new line in the order text."
^DD(101.412,26,21,0)="0^^2^2^2970911^"
^DD(101.412,26,21,1,0)="This field determines if this value is concatenated onto the current line"
^DD(101.412,26,21,2,0)="when building the order text, or if a new line is started with this value."
^DD(101.412,26,"DT")="2970911"
^DD(101.412,27,0)="WORD-WRAP^S^1:DON'T WRAP;0:WRAP;^2;7^Q"
^DD(101.412,27,3)="Enter 'Don't Wrap' to have the text be added line-by-line as it is stored; the default formatting is 'Wrap'."
^DD(101.412,27,21,0)="^^3^3^2970926^^^"
^DD(101.412,27,21,1,0)="This field determines if this text should be wrapped when added to the"
^DD(101.412,27,21,2,0)="order text, or appended line by line as stored in the file; this is only"
^DD(101.412,27,21,3,0)="used for word-processing type prompts."
^DD(101.412,27,"DT")="2970926"
^DD(101.412,101,0)="WINDOWS CONTROL^F^^W;1^K:$L(X)>30!($L(X)<1) X"
^DD(101.412,101,3)="Answer must be 1-30 characters in length."
^DD(101.412,101,21,0)="^^2^2^2950715^"
^DD(101.412,101,21,1,0)="Stores the type of Windows control necessary to get the data for this"
^DD(101.412,101,21,2,0)="prompt."
^DD(101.412,101,"DT")="2960517"
^DD(101.412,102,0)="API NAME^F^^W;2^K:$L(X)>30!($L(X)<1) X"
^DD(101.412,102,3)="Answer must be 1-30 characters in length."
^DD(101.412,102,21,0)="^^3^3^2950715^"
^DD(101.412,102,21,1,0)="This is the API that should be called when the control is used.  How the API"
^DD(101.412,102,21,2,0)="is used varys with the control.  Examples are: filling list boxes, getting"
^DD(101.412,102,21,3,0)="boilerplate text, etc."
^DD(101.412,102,"DT")="2951002"
^DD(101.412,103,0)="API PARAMETER #1^F^^W;3^K:$L(X)>30!($L(X)<1) X"
^DD(101.412,103,3)="Answer must be 1-30 characters in length."
^DD(101.412,103,21,0)="^^1^1^2950715^"
^DD(101.412,103,21,1,0)="A parameter that is used by the API call may be stored here."
^DD(101.412,103,"DT")="2950715"
^DD(101.412,113,0)="WINDOWS CONDITION^K^^W3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,113,3)="This is Standard MUMPS code."
^DD(101.412,113,9)="@"
^DD(101.412,113,21,0)="^^3^3^2950715^"
^DD(101.412,113,21,1,0)="This is silent code that is executed when building the dialog for windows."
^DD(101.412,113,21,2,0)="It identifies which prompts should be included in the dialog.  The condition"
^DD(101.412,113,21,3,0)="should leave $T false if the prompt should not be asked."
^DD(101.412,113,"DT")="2950715"
^DD(101.412,117,0)="WINDOWS DEFAULT^K^^W7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(101.412,117,3)="This is Standard MUMPS code."
^DD(101.412,117,9)="@"
^DD(101.412,117,21,0)="^^2^2^2950715^"
^DD(101.412,117,21,1,0)="This code should silently set the default value of a prompt when it is "
^DD(101.412,117,21,2,0)="selected."
^DD(101.412,117,"DT")="2950715"
^DD(101.412,"B","API NAME",102)=""
^DD(101.412,"B","API PARAMETER #1",103)=""
^DD(101.412,"B","ASK ON ACTION",9)=""
^DD(101.412,"B","ASK ON CONDITION",13)=""
^DD(101.412,"B","ASK ON EDIT ONLY",8)=""
^DD(101.412,"B","DEFAULT",17)=""
^DD(101.412,"B","DEFAULT WORD-PROCESSING TEXT",18)=""
^DD(101.412,"B","DISPLAY ONLY?",5)=""
^DD(101.412,"B","DISPLAY TEXT",4)=""
^DD(101.412,"B","ENTRY ACTION",19)=""
^DD(101.412,"B","EXIT ACTION",20)=""
^DD(101.412,"B","FORMAT",22)=""
^DD(101.412,"B","HELP MESSAGE",11)=""
^DD(101.412,"B","INDEX",10)=""
^DD(101.412,"B","INPUT TRANSFORM",.1)=""
^DD(101.412,"B","ITEM",2)=""
^DD(101.412,"B","LEADING TEXT",24)=""
^DD(101.412,"B","MAX NUMBER OF MULTIPLES",7.1)=""
^DD(101.412,"B","MNEMONIC",3)=""
^DD(101.412,"B","MULTIPLE VALUED",7)=""
^DD(101.412,"B","OMIT TEXT",23)=""
^DD(101.412,"B","ORDER TEXT SEQUENCE",21)=""
^DD(101.412,"B","PARENT",1)=""
^DD(101.412,"B","POST-SELECTION ACTION",15)=""
^DD(101.412,"B","PROMPT",7.3)=""
^DD(101.412,"B","REQUIRED",6)=""
^DD(101.412,"B","SCREEN",14)=""
^DD(101.412,"B","SEQUENCE",.01)=""
^DD(101.412,"B","SPECIAL LOOKUP ROUTINE",12)=""
^DD(101.412,"B","START NEW LINE",26)=""
^DD(101.412,"B","TITLE",7.2)=""
^DD(101.412,"B","TRAILING TEXT",25)=""
^DD(101.412,"B","WINDOWS CONDITION",113)=""
^DD(101.412,"B","WINDOWS CONTROL",101)=""
^DD(101.412,"B","WINDOWS DEFAULT",117)=""
^DD(101.412,"B","WORD-WRAP",27)=""
^DD(101.412,"B","XECUTABLE HELP",16)=""
^DD(101.412,"GL",0,1,.01)=""
^DD(101.412,"GL",0,2,2)=""
^DD(101.412,"GL",0,3,3)=""
^DD(101.412,"GL",0,4,4)=""
^DD(101.412,"GL",0,5,5)=""
^DD(101.412,"GL",0,6,6)=""
^DD(101.412,"GL",0,7,7)=""
^DD(101.412,"GL",0,8,8)=""
^DD(101.412,"GL",0,9,9)=""
^DD(101.412,"GL",0,10,10)=""
^DD(101.412,"GL",0,11,1)=""
^DD(101.412,"GL",0,12,7.1)=""
^DD(101.412,"GL",0,13,7.2)=""
^DD(101.412,"GL",0,14,7.3)=""
^DD(101.412,"GL",.1,"E1,245",.1)=""
^DD(101.412,"GL",1,1,11)=""
^DD(101.412,"GL",1,2,12)=""
^DD(101.412,"GL",2,1,21)=""
^DD(101.412,"GL",2,2,22)=""
^DD(101.412,"GL",2,3,23)=""
^DD(101.412,"GL",2,4,24)=""
^DD(101.412,"GL",2,5,25)=""
^DD(101.412,"GL",2,6,26)=""
^DD(101.412,"GL",2,7,27)=""
^DD(101.412,"GL",3,"E1,245",13)=""
^DD(101.412,"GL",4,"E1,245",14)=""
^DD(101.412,"GL",5,"E1,245",15)=""
^DD(101.412,"GL",6,"E1,245",16)=""
^DD(101.412,"GL",7,"E1,245",17)=""
^DD(101.412,"GL",8,0,18)=""
^DD(101.412,"GL",9,"E1,245",19)=""
^DD(101.412,"GL",10,"E1,245",20)=""
^DD(101.412,"GL","W",1,101)=""
^DD(101.412,"GL","W",2,102)=""
^DD(101.412,"GL","W",3,103)=""
^DD(101.412,"GL","W3","E1,245",113)=""
^DD(101.412,"GL","W7","E1,245",117)=""
^DD(101.412,"IX",.01)=""
^DD(101.412,"IX",1)=""
^DD(101.412,"IX",2)=""
^DD(101.412,"IX",3)=""
^DD(101.412,"IX",4)=""
^DD(101.412,"IX",5)=""
^DD(101.412,"IX",21)=""
^DD(101.412,"SB",101.41218,18)=""
^DD(101.41218,0)="DEFAULT WORD-PROCESSING TEXT SUB-FIELD^^.01^1"
^DD(101.41218,0,"DT")="2950407"
^DD(101.41218,0,"NM","DEFAULT WORD-PROCESSING TEXT")=""
^DD(101.41218,0,"UP")="101.412"
^DD(101.41218,.01,0)="DEFAULT WORD-PROCESSING TEXT^W^^0;1^Q"
^DD(101.41218,.01,3)="Enter the default response for a word-processing type prompt."
^DD(101.41218,.01,21,0)="^^2^2^2950407^"
^DD(101.41218,.01,21,1,0)="This field contains the text to be presented as the default for this prompt,"
^DD(101.41218,.01,21,2,0)="for word-processing type prompts."
^DD(101.41218,.01,"DT")="2950407"
^DD(101.41218,"B","DEFAULT WORD-PROCESSING TEXT",.01)=""
^DD(101.41218,"GL",0,1,.01)=""
^DD(101.415,0)="CONTROLS SUB-FIELD^^14^14"
^DD(101.415,0,"DT")="2960202"
^DD(101.415,0,"IX","AC",101.415,3)=""
^DD(101.415,0,"IX","B",101.415,.01)=""
^DD(101.415,0,"NM","CONTROLS")=""
^DD(101.415,0,"UP")="101.41"
^DD(101.415,.01,0)="LOGICAL NAME^MF^^0;1^K:$L(X)>8!($L(X)<1)!'(X?1.8U) X"
^DD(101.415,.01,1,0)="^.1"
^DD(101.415,.01,1,1,0)="101.415^B"
^DD(101.415,.01,1,1,1)="S ^ORD(101.41,DA(1),50,""B"",$E(X,1,30),DA)="""""
^DD(101.415,.01,1,1,2)="K ^ORD(101.41,DA(1),50,""B"",$E(X,1,30),DA)"
^DD(101.415,.01,3)="Answer must be 1-8 characters in length."
^DD(101.415,.01,21,0)="^^1^1^2960202^"
^DD(101.415,.01,21,1,0)="This is the name by which controls can refer to each other."
^DD(101.415,.01,"DT")="2960202"
^DD(101.415,2,0)="ITEM^P101.41'^ORD(101.41,^0;2^Q"
^DD(101.415,2,"DT")="2960202"
^DD(101.415,3,0)="CREATE SEQUENCE^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.415,3,1,0)="^.1"
^DD(101.415,3,1,1,0)="101.415^AC"
^DD(101.415,3,1,1,1)="S ^ORD(101.41,DA(1),50,""AC"",$E(X,1,30),DA)="""""
^DD(101.415,3,1,1,2)="K ^ORD(101.41,DA(1),50,""AC"",$E(X,1,30),DA)"
^DD(101.415,3,1,1,"%D",0)="^^2^2^2960202^"
^DD(101.415,3,1,1,"%D",1,0)="The 'AC' cross-reference puts in window controls in order by creation "
^DD(101.415,3,1,1,"%D",2,0)="sequence."
^DD(101.415,3,1,1,"DT")="2960202"
^DD(101.415,3,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(101.415,3,"DT")="2960202"
^DD(101.415,4,0)="CONTROL TYPE^S^0:Label;1:Button;2:Edit;3:Memo;4:ListBox;5:SimpleCombo;6:DropDownList;7:LongCombo;^0;4^Q"
^DD(101.415,4,"DT")="2960202"
^DD(101.415,5,0)="LABEL^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(101.415,5,3)="Answer must be 1-30 characters in length."
^DD(101.415,5,"DT")="2960202"
^DD(101.415,6,0)="BESIDE^F^^0;6^K:$L(X)>8!($L(X)<1) X"
^DD(101.415,6,3)="Answer must be 1-8 characters in length."
^DD(101.415,6,"DT")="2960202"
^DD(101.415,7,0)="BELOW^F^^0;7^K:$L(X)>8!($L(X)<1) X"
^DD(101.415,7,3)="Answer must be 1-8 characters in length."
^DD(101.415,7,"DT")="2960202"
^DD(101.415,8,0)="WIDTH^NJ6,4^^0;8^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""5N.N) X"
^DD(101.415,8,3)="Type a Number between 0 and 1, 4 Decimal Digits"
^DD(101.415,8,"DT")="2960202"
^DD(101.415,9,0)="LEFT CONTROL^F^^0;9^K:$L(X)>8!($L(X)<1) X"
^DD(101.415,9,3)="Answer must be 1-8 characters in length."
^DD(101.415,9,"DT")="2960202"
^DD(101.415,10,0)="RIGHT CONTROL^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^DD(101.415,10,3)="Answer must be 1-8 characters in length."
^DD(101.415,10,"DT")="2960202"
^DD(101.415,11,0)="HEIGHT^NJ2,0^^0;11^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.415,11,3)="Type a Number between 1 and 15, 0 Decimal Digits"
^DD(101.415,11,"DT")="2960202"
^DD(101.415,12,0)="UPPER CONTROL^F^^0;12^K:$L(X)>8!($L(X)<1) X"
^DD(101.415,12,3)="Answer must be 1-8 characters in length."
^DD(101.415,12,"DT")="2960202"
^DD(101.415,13,0)="LOWER CONTROL^F^^0;13^K:$L(X)>8!($L(X)<1) X"
^DD(101.415,13,3)="Answer must be 1-8 characters in length."
^DD(101.415,13,"DT")="2960202"
^DD(101.415,14,0)="TAB SEQUENCE^NJ2,0^^0;14^K:+X'=X!(X>89)!(X<0)!(X?.E1"".""1N.N) X"
^DD(101.415,14,3)="Type a Number between 0 and 89, 0 Decimal Digits"
^DD(101.415,14,"DT")="2960202"
^DD(101.415,"B","BELOW",7)=""
^DD(101.415,"B","BESIDE",6)=""
^DD(101.415,"B","CONTROL TYPE",4)=""
^DD(101.415,"B","CREATE SEQUENCE",3)=""
^DD(101.415,"B","HEIGHT",11)=""
^DD(101.415,"B","ITEM",2)=""
^DD(101.415,"B","LABEL",5)=""
^DD(101.415,"B","LEFT CONTROL",9)=""
^DD(101.415,"B","LOGICAL NAME",.01)=""
^DD(101.415,"B","LOWER CONTROL",13)=""
^DD(101.415,"B","RIGHT CONTROL",10)=""
^DD(101.415,"B","TAB SEQUENCE",14)=""
^DD(101.415,"B","UPPER CONTROL",12)=""
^DD(101.415,"B","WIDTH",8)=""
^DD(101.415,"GL",0,1,.01)=""
^DD(101.415,"GL",0,2,2)=""
^DD(101.415,"GL",0,3,3)=""
^DD(101.415,"GL",0,4,4)=""
^DD(101.415,"GL",0,5,5)=""
^DD(101.415,"GL",0,6,6)=""
^DD(101.415,"GL",0,7,7)=""
^DD(101.415,"GL",0,8,8)=""
^DD(101.415,"GL",0,9,9)=""
^DD(101.415,"GL",0,10,10)=""
^DD(101.415,"GL",0,11,11)=""
^DD(101.415,"GL",0,12,12)=""
^DD(101.415,"GL",0,13,13)=""
^DD(101.415,"GL",0,14,14)=""
^DD(101.415,"IX",.01)=""
^DD(101.415,"IX",3)=""
^DD(101.416,0)="RESPONSES SUB-FIELD^^2^5"
^DD(101.416,0,"DT")="2960717"
^DD(101.416,0,"IX","D",101.416,.02)=""
^DD(101.416,0,"NM","RESPONSES")=""
^DD(101.416,0,"UP")="101.41"
^DD(101.416,.01,0)="ITEM ENTRY^MNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.416,.01,1,0)="^.1^^0"
^DD(101.416,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(101.416,.01,21,0)="^^2^2^2971219^^^"
^DD(101.416,.01,21,1,0)="This is the internal entry number of the prompt in the Item multiple"
^DD(101.416,.01,21,2,0)="by which this response was obtained."
^DD(101.416,.01,"DT")="2961118"
^DD(101.416,.02,0)="DIALOG^P101.41'^ORD(101.41,^0;2^Q"
^DD(101.416,.02,1,0)="^.1"
^DD(101.416,.02,1,1,0)="101.416^D"
^DD(101.416,.02,1,1,1)="S ^ORD(101.41,DA(1),6,""D"",$E(X,1,30),DA)="""""
^DD(101.416,.02,1,1,2)="K ^ORD(101.41,DA(1),6,""D"",$E(X,1,30),DA)"
^DD(101.416,.02,1,1,"DT")="2961118"
^DD(101.416,.02,3)="Select the dialog prompt from which this response was generated."
^DD(101.416,.02,21,0)="^^2^2^2960717^"
^DD(101.416,.02,21,1,0)="This is a pointer to the dialog prompt, which is in the Order Dialog file"
^DD(101.416,.02,21,2,0)="as type prompt."
^DD(101.416,.02,"DT")="2961118"
^DD(101.416,.03,0)="INSTANCE^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.416,.03,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(101.416,.03,21,0)="^^2^2^2960717^"
^DD(101.416,.03,21,1,0)="In the case of multiple answers for the same item, this identifies the"
^DD(101.416,.03,21,2,0)="individual instance."
^DD(101.416,.03,"DT")="2960717"
^DD(101.416,1,0)="VALUE^FO^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(101.416,1,2)="S Y(0)=Y S Y=$$OUTPUT^ORCMEDT5(Y)"
^DD(101.416,1,2.1)="S Y=$$OUTPUT^ORCMEDT5(Y)"
^DD(101.416,1,3)="Answer must be 1-245 characters in length."
^DD(101.416,1,21,0)="^^2^2^2971219^^"
^DD(101.416,1,21,1,0)="This contains the actual response, unless the value is a word processing"
^DD(101.416,1,21,2,0)="type."
^DD(101.416,1,"DT")="2980717"
^DD(101.416,2,0)="TEXT^101.4162^^2;0"
^DD(101.416,2,21,0)="^^1^1^2971219^"
^DD(101.416,2,21,1,0)="This contains the actual response, for word-processing type prompts."
^DD(101.416,2,"DT")="2960717"
^DD(101.416,"B","DIALOG",.02)=""
^DD(101.416,"B","INSTANCE",.03)=""
^DD(101.416,"B","ITEM ENTRY",.01)=""
^DD(101.416,"B","TEXT",2)=""
^DD(101.416,"B","VALUE",1)=""
^DD(101.416,"GL",0,1,.01)=""
^DD(101.416,"GL",0,2,.02)=""
^DD(101.416,"GL",0,3,.03)=""
^DD(101.416,"GL",1,1,1)=""
^DD(101.416,"GL",2,0,2)=""
^DD(101.416,"IX",.02)=""
^DD(101.416,"SB",101.4162,2)=""
^DD(101.4162,0)="TEXT SUB-FIELD^^.01^1"
^DD(101.4162,0,"DT")="2960717"
^DD(101.4162,0,"NM","TEXT")=""
^DD(101.4162,0,"UP")="101.416"
^DD(101.4162,.01,0)="TEXT^WL^^0;1^Q"
^DD(101.4162,.01,21,0)="^^1^1^2960717^^"
^DD(101.4162,.01,21,1,0)="This contains responses to items that are a word processing type."
^DD(101.4162,.01,"DT")="2960717"
^DD(101.4162,"B","TEXT",.01)=""
^DD(101.4162,"GL",0,1,.01)=""
^DD(101.42,0)="FIELD^^2^3"
^DD(101.42,0,"DDA")="N"
^DD(101.42,0,"DT")="2980108"
^DD(101.42,0,"IX","B",101.42,.01)=""
^DD(101.42,0,"IX","C",101.42,2)=""
^DD(101.42,0,"IX","S",101.421,.01)=""
^DD(101.42,0,"IX","S1",101.42,.01)=""
^DD(101.42,0,"NM","ORDER URGENCY")=""
^DD(101.42,0,"VR")="3.0"
^DD(101.42,0,"VRPK")="OR"
^DD(101.42,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(101.42,.01,1,0)="^.1"
^DD(101.42,.01,1,1,0)="101.42^B"
^DD(101.42,.01,1,1,1)="S ^ORD(101.42,""B"",$E(X,1,30),DA)="""""
^DD(101.42,.01,1,1,2)="K ^ORD(101.42,""B"",$E(X,1,30),DA)"
^DD(101.42,.01,1,2,0)="101.42^S1^MUMPS"
^DD(101.42,.01,1,2,1)="N ORS,ORSX S ORS=0 F  S ORS=$O(^ORD(101.42,DA,1,ORS)) Q:ORS'>0  S ORSX=$P(^(ORS,0),U),^ORD(101.42,""S.""_ORSX,$$UP^XLFSTR(X),DA)="""""
^DD(101.42,.01,1,2,2)="N ORS,ORSX S ORS=0 F  S ORS=$O(^ORD(101.42,DA,1,ORS)) Q:ORS'>0  S ORSX=$P(^(ORS,0),U) K ^ORD(101.42,""S.""_ORSX,$$UP^XLFSTR(X),DA)"
^DD(101.42,.01,1,2,"%D",0)="^^2^2^2980109^"
^DD(101.42,.01,1,2,"%D",1,0)="^ORD(101.42,""S.USAGE"",NAME,DA)"
^DD(101.42,.01,1,2,"%D",2,0)="Allows retrieval of urgencies assigned to a particular usage context."
^DD(101.42,.01,1,2,"DT")="2980109"
^DD(101.42,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(101.42,.01,21,0)="^^3^3^2950829^"
^DD(101.42,.01,21,1,0)="This is an urgency that may be requested for an order; the Parameters"
^DD(101.42,.01,21,2,0)="Definition file will contain the different combinations that are allowable"
^DD(101.42,.01,21,3,0)="in different dialogs."
^DD(101.42,.01,"DT")="2980109"
^DD(101.42,1,0)="USAGE^101.421A^^1;0"
^DD(101.42,1,21,0)="^^1^1^2980304^^^"
^DD(101.42,1,21,1,0)="This multiple contains all the possible ways to use this urgency."
^DD(101.42,2,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(101.42,2,1,0)="^.1"
^DD(101.42,2,1,1,0)="101.42^C"
^DD(101.42,2,1,1,1)="S ^ORD(101.42,""C"",$E(X,1,30),DA)="""""
^DD(101.42,2,1,1,2)="K ^ORD(101.42,""C"",$E(X,1,30),DA)"
^DD(101.42,2,1,1,"DT")="2950831"
^DD(101.42,2,3)="Answer must be 1-5 characters in length."
^DD(101.42,2,21,0)="^^2^2^2950829^^"
^DD(101.42,2,21,1,0)="This field contains the abbreviation to be used in HL7 messages and some"
^DD(101.42,2,21,2,0)="displays."
^DD(101.42,2,"DT")="2970722"
^DD(101.42,"B","ABBREVIATION",2)=""
^DD(101.42,"B","NAME",.01)=""
^DD(101.42,"B","USAGE",1)=""
^DD(101.42,"GL",0,1,.01)=""
^DD(101.42,"GL",0,2,2)=""
^DD(101.42,"GL",1,0,1)=""
^DD(101.42,"IX",.01)=""
^DD(101.42,"IX",2)=""
^DD(101.42,"RQ",.01)=""
^DD(101.42,"SB",101.421,1)=""
^DD(101.421,0)="USAGE SUB-FIELD^^.01^1"
^DD(101.421,0,"DT")="2980108"
^DD(101.421,0,"IX","B",101.421,.01)=""
^DD(101.421,0,"NM","USAGE")=""
^DD(101.421,0,"UP")="101.42"
^DD(101.421,.01,0)="USAGE^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(101.421,.01,1,0)="^.1"
^DD(101.421,.01,1,1,0)="101.421^B"
^DD(101.421,.01,1,1,1)="S ^ORD(101.42,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(101.421,.01,1,1,2)="K ^ORD(101.42,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(101.421,.01,1,2,0)="101.42^S^MUMPS"
^DD(101.421,.01,1,2,1)="S ^ORD(101.42,""S.""_X,$$UP^XLFSTR($P(^ORD(101.42,DA(1),0),U)),DA(1))="""""
^DD(101.421,.01,1,2,2)="K ^ORD(101.42,""S.""_X,$$UP^XLFSTR($P(^ORD(101.42,DA(1),0),U)),DA(1))"
^DD(101.421,.01,1,2,"%D",0)="^^2^2^2980109^"
^DD(101.421,.01,1,2,"%D",1,0)="^ORD(101.42,""S.USAGE"",NAME,DA)"
^DD(101.421,.01,1,2,"%D",2,0)="Allows retrieval of urgencies assigned to a particular usage context."
^DD(101.421,.01,1,2,"DT")="2980109"
^DD(101.421,.01,3)="Answer must be 1-10 characters in length."
^DD(101.421,.01,21,0)="^^10^10^2980304^"
^DD(101.421,.01,21,1,0)="This field is a string identifying a use for this urgency; it will"
^DD(101.421,.01,21,2,0)="typically be a package namespace (or variation of) to indicate this"
^DD(101.421,.01,21,3,0)="urgency is selectable in that package's ordering dialog.  Entries"
^DD(101.421,.01,21,4,0)="currently in use are:"
^DD(101.421,.01,21,5,0)="       GMRCO = Outpatient Consults or Procedures"
^DD(101.421,.01,21,6,0)="       GMRCR = Inpatient Procedure Requests"
^DD(101.421,.01,21,7,0)="       GMRCT = Inpatient Consults"
^DD(101.421,.01,21,8,0)="       PSJ   = Inpatient Medications"
^DD(101.421,.01,21,9,0)="       PSO   = Outpatient Medications"
^DD(101.421,.01,21,10,0)="       RA    = Radiology/Nuclear Medicine"
^DD(101.421,.01,"DT")="2980109"
^DD(101.421,"B","USAGE",.01)=""
^DD(101.421,"GL",0,1,.01)=""
^DD(101.421,"IX",.01)=""
^DD(101.43,0)="FIELD^^123.1^37"
^DD(101.43,0,"DDA")="N"
^DD(101.43,0,"DT")="2971216"
^DD(101.43,0,"IX","AQO",101.439,2)=""
^DD(101.43,0,"IX","B",101.43,.01)=""
^DD(101.43,0,"IX","B",101.432,.01)=""
^DD(101.43,0,"IX","C",101.43,3)=""
^DD(101.43,0,"IX","C1",101.439,.01)=""
^DD(101.43,0,"IX","C2",101.43,.01)=""
^DD(101.43,0,"IX","CD",101.43,.1)=""
^DD(101.43,0,"IX","COMMON",101.43,71.4)=""
^DD(101.43,0,"IX","COMMON1",101.43,71.3)=""
^DD(101.43,0,"IX","COMMON2",101.43,.01)=""
^DD(101.43,0,"IX","ID",101.43,2)=""
^DD(101.43,0,"IX","S",101.439,.01)=""
^DD(101.43,0,"IX","S0",101.43,.01)=""
^DD(101.43,0,"IX","S1",101.43,111.1)=""
^DD(101.43,0,"IX","S10",101.43,50.7)=""
^DD(101.43,0,"IX","S2",101.43,71.3)=""
^DD(101.43,0,"IX","S3",101.43,60.6)=""
^DD(101.43,0,"IX","S4",101.43,50.1)=""
^DD(101.43,0,"IX","S5",101.43,50.2)=""
^DD(101.43,0,"IX","S6",101.43,50.3)=""
^DD(101.43,0,"IX","S7",101.43,5)=""
^DD(101.43,0,"IX","S8",101.43,50.4)=""
^DD(101.43,0,"IX","S9",101.43,50.5)=""
^DD(101.43,0,"IX","SD",101.43,.1)=""
^DD(101.43,0,"IX","SS",101.432,.01)=""
^DD(101.43,0,"IX","SS1",101.439,.01)=""
^DD(101.43,0,"IX","SS2",101.43,.01)=""
^DD(101.43,0,"IX","SSD",101.43,.1)=""
^DD(101.43,0,"IX","SST",101.43,60.7)=""
^DD(101.43,0,"IX","ST",101.43,60.7)=""
^DD(101.43,0,"NM","ORDERABLE ITEMS")=""
^DD(101.43,0,"PT",100,7)=""
^DD(101.43,0,"PT",100.001,.01)=""
^DD(101.43,0,"PT",100.68,.01)=""
^DD(101.43,0,"PT",101.442,.01)=""
^DD(101.43,0,"PT",801.41,17)=""
^DD(101.43,0,"PT",801.43,.02)=""
^DD(101.43,0,"PT",810.31,.04)=""
^DD(101.43,0,"PT",810.32,.01)=""
^DD(101.43,0,"PT",811.52,.01)=""
^DD(101.43,0,"PT",811.902,.01)=""
^DD(101.43,0,"VR")="3.0"
^DD(101.43,0,"VRPK")="ORDER ENTRY/RESULTS REPORTING"
^DD(101.43,.01,0)="NAME^RFX^^0;1^K:$L(X)>63!($L(X)<3)!($$CHKNAM^ORUTL(X,"";^"")) X"
^DD(101.43,.01,1,0)="^.1^^-1"
^DD(101.43,.01,1,1,0)="101.43^B"
^DD(101.43,.01,1,1,1)="S ^ORD(101.43,""B"",$E(X,1,30),DA)="""""
^DD(101.43,.01,1,1,2)="K ^ORD(101.43,""B"",$E(X,1,30),DA)"
^DD(101.43,.01,1,2,0)="101.43^C2^MUMPS"
^DD(101.43,.01,1,2,1)="N CD,IN S CD=$P(^ORD(101.43,DA,0),U,3),IN=$G(^(.1)) D CS^ORDD43(X,CD,IN)"
^DD(101.43,.01,1,2,2)="N CD S CD=$P(^ORD(101.43,DA,0),U,3) D CK^ORDD43(X,CD)"
^DD(101.43,.01,1,2,"%D",0)="^^1^1^2990316^^^"
^DD(101.43,.01,1,2,"%D",1,0)="Allows retrieval of items by code within Sets."
^DD(101.43,.01,1,2,"DT")="2950713"
^DD(101.43,.01,1,3,0)="101.43^S0^MUMPS"
^DD(101.43,.01,1,3,1)="N IN,TYP S IN=$G(^ORD(101.43,DA,.1)),TYP=$P($G(^(""LR"")),U,7) D SS^ORDD43(X,IN,TYP)"
^DD(101.43,.01,1,3,2)="D SK^ORDD43(X)"
^DD(101.43,.01,1,3,"%D",0)="^^2^2^2990316^^^^"
^DD(101.43,.01,1,3,"%D",1,0)="Allows retrieval of orderable items via the Set ""S"" xrefs:"
^DD(101.43,.01,1,3,"%D",2,0)="^ORD(101.43,""S.<set>"",NAME,DA)"
^DD(101.43,.01,1,3,"DT")="2950810"
^DD(101.43,.01,1,4,0)="101.43^COMMON2^MUMPS"
^DD(101.43,.01,1,4,1)="N IT,CP S IT=$P($G(^ORD(101.43,DA,""RA"")),U,3),CP=$P($G(^(""RA"")),U,4) D SETRA^ORDD43(X,IT,CP)"
^DD(101.43,.01,1,4,2)="N IT,CP S IT=$P($G(^ORD(101.43,DA,""RA"")),U,3),CP=$P($G(^(""RA"")),U,4) D KILLRA^ORDD43(X,IT,CP)"
^DD(101.43,.01,1,4,"%D",0)="^^2^2^2990316^^^"
^DD(101.43,.01,1,4,"%D",1,0)="Allows retrieval of Radiology common procedures alphabetically within"
^DD(101.43,.01,1,4,"%D",2,0)="imaging types."
^DD(101.43,.01,1,4,"DT")="2950725"
^DD(101.43,.01,1,5,0)="101.43^SS2^MUMPS"
^DD(101.43,.01,1,5,1)="N IN,TYP S IN=$G(^ORD(101.43,DA,.1)),TYP=$P($G(^(""LR"")),U,7) D SS1^ORDD43(X,IN,TYP)"
^DD(101.43,.01,1,5,2)="D SK1^ORDD43(X)"
^DD(101.43,.01,1,5,"%D",0)="^^2^2^2990316^^^"
^DD(101.43,.01,1,5,"%D",1,0)="Allows retrieval of items by synonym via the Set ""S"" xrefs:"
^DD(101.43,.01,1,5,"%D",2,0)="^ORD(101.43,""S.<set>"",SYNONYM,DA)"
^DD(101.43,.01,1,5,"DT")="2950810"
^DD(101.43,.01,3)="Answer must be 3-63 characters in length and cannot contain a semicolon (;) or an up-arrow (^)"
^DD(101.43,.01,21,0)="2^.001^1^1^3010510^^^^"
^DD(101.43,.01,21,1,0)="This is the name of this item that will be used for displaying and searching."
^DD(101.43,.01,"DT")="3010419"
^DD(101.43,.01,"V",0)="^.12P^1^1"
^DD(101.43,.01,"V",1,0)="60^LABORATORY TEST^1^LAB^^n"
^DD(101.43,.01,"V","B",60,1)=""
^DD(101.43,.01,"V","M","LABORATORY TEST",1)=""
^DD(101.43,.01,"V","O",1,1)=""
^DD(101.43,.01,"V","P","LAB",1)=""
^DD(101.43,.1,0)="INACTIVATED^D^^.1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(101.43,.1,1,0)="^.1"
^DD(101.43,.1,1,1,0)="101.43^SD^MUMPS"
^DD(101.43,.1,1,1,1)="N NM,TYP S NM=$P(^ORD(101.43,DA,0),U),TYP=$P($G(^(""LR"")),U,7) D SS^ORDD43(NM,X,TYP)"
^DD(101.43,.1,1,1,2)="N NM,TYP S NM=$P(^ORD(101.43,DA,0),U),TYP=$P($G(^(""LR"")),U,7) D SS^ORDD43(NM,,TYP)"
^DD(101.43,.1,1,1,"%D",0)="^^1^1^2960814^"
^DD(101.43,.1,1,1,"%D",1,0)="Allows retrieval of orderable items by set."
^DD(101.43,.1,1,1,"DT")="2960814"
^DD(101.43,.1,1,2,0)="101.43^SSD^MUMPS"
^DD(101.43,.1,1,2,1)="N NM,TYP S NM=$P(^ORD(101.43,DA,0),U),TYP=$P($G(^(""LR"")),U,7) D SS1^ORDD43(NM,X,TYP)"
^DD(101.43,.1,1,2,2)="N NM,TYP S NM=$P(^ORD(101.43,DA,0),U),TYP=$P($G(^(""LR"")),U,7) D SS1^ORDD43(NM,,TYP)"
^DD(101.43,.1,1,2,"%D",0)="^^1^1^2960814^"
^DD(101.43,.1,1,2,"%D",1,0)="Allows retrieval of items by synonym via the Set ""S"" xrefs."
^DD(101.43,.1,1,2,"DT")="2960814"
^DD(101.43,.1,1,3,0)="101.43^CD^MUMPS"
^DD(101.43,.1,1,3,1)="N NM,CD S NM=$P(^ORD(101.43,DA,0),U),CD=$P(^(0),U,3) D CS^ORDD43(NM,CD,X)"
^DD(101.43,.1,1,3,2)="N NM,CD S NM=$P(^ORD(101.43,DA,0),U),CD=$P(^(0),U,3) D CS^ORDD43(NM,CD)"
^DD(101.43,.1,1,3,"%D",0)="^^1^1^2960814^"
^DD(101.43,.1,1,3,"%D",1,0)="Allows retrieval of items by code within Sets."
^DD(101.43,.1,1,3,"DT")="2960814"
^DD(101.43,.1,3)="Enter the date and time after which this item may no longer be ordered."
^DD(101.43,.1,21,0)="^^3^3^2950303^"
^DD(101.43,.1,21,1,0)="This is a date and time for inactivating this item.  If this field has a"
^DD(101.43,.1,21,2,0)="value, this item will not ba available to select for ordering after this"
^DD(101.43,.1,21,3,0)="date."
^DD(101.43,.1,"DT")="2960814"
^DD(101.43,.91,0)="NOTIFY ON ORDER^S^1:YES;0:NO;^.9;1^Q"
^DD(101.43,.91,3)="Enter YES if a notification should be generated whenever this item is ordered."
^DD(101.43,.91,21,0)="^^2^2^2950523^"
^DD(101.43,.91,21,1,0)="This field is a flag to determine if a notification should be generated"
^DD(101.43,.91,21,2,0)="whenever an order for this item is placed."
^DD(101.43,.91,"DT")="2950523"
^DD(101.43,.92,0)="NOTIFY WHEN RESULTED^S^1:YES;0:NO;^.9;2^Q"
^DD(101.43,.92,3)="Enter YES if a notification should be generated when an order for this item is resulted."
^DD(101.43,.92,21,0)="^^2^2^2950523^"
^DD(101.43,.92,21,1,0)="This field is a flag to determine if a notification should be sent when"
^DD(101.43,.92,21,2,0)="results are posted for an order for this item."
^DD(101.43,.92,"DT")="2950523"
^DD(101.43,1,0)="SYNONYMS^101.432A^^2;0"
^DD(101.43,1,21,0)="^^2^2^2990223^^"
^DD(101.43,1,21,1,0)="This multiple contains synonyms for this orderable item, used when"
^DD(101.43,1,21,2,0)="searching the file."
^DD(101.43,1.1,0)="PACKAGE NAME^RF^^0;8^K:$L(X)>63!($L(X)<3) X"
^DD(101.43,1.1,1,0)="^.1^^0"
^DD(101.43,1.1,3)="Answer must be 3-63 characters in length."
^DD(101.43,1.1,21,0)="^^1^1^2960910^^^^"
^DD(101.43,1.1,21,1,0)="This is the name of this item as defined by the filling service."
^DD(101.43,1.1,"DT")="2960920"
^DD(101.43,2,0)="ID^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(101.43,2,1,0)="^.1"
^DD(101.43,2,1,1,0)="101.43^ID"
^DD(101.43,2,1,1,1)="S ^ORD(101.43,""ID"",$E(X,1,30),DA)="""""
^DD(101.43,2,1,1,2)="K ^ORD(101.43,""ID"",$E(X,1,30),DA)"
^DD(101.43,2,1,1,"DT")="2950303"
^DD(101.43,2,3)="Answer must be 3-30 characters in length."
^DD(101.43,2,21,0)="^^4^4^2950303^^"
^DD(101.43,2,21,1,0)="This is a unique identifier for this item, created from the primary key"
^DD(101.43,2,21,2,0)="passed in the Orderable Items update message from each package; it will"
^DD(101.43,2,21,3,0)="be in the form of ""package code;99XXX"" where XXX indicates the package"
^DD(101.43,2,21,4,0)="table originating this item (i.e. RAP, LRT, etc)."
^DD(101.43,2,"DT")="2950303"
^DD(101.43,3,0)="CODE^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(101.43,3,1,0)="^.1"
^DD(101.43,3,1,1,0)="101.43^C^MUMPS"
^DD(101.43,3,1,1,1)="N NM,IN S NM=$P(^ORD(101.43,DA,0),U),IN=$G(^(.1)) D CS^ORDD43(NM,X,IN)"
^DD(101.43,3,1,1,2)="N NM S NM=$P(^ORD(101.43,DA,0),U) D CK^ORDD43(NM,X)"
^DD(101.43,3,1,1,"%D",0)="^^1^1^2950713^^^^"
^DD(101.43,3,1,1,"%D",1,0)="Allows retrieval of items by code within Sets."
^DD(101.43,3,1,1,"DT")="2950713"
^DD(101.43,3,3)="Answer must be 1-10 characters in length."
^DD(101.43,3,21,0)="^^2^2^2950303^"
^DD(101.43,3,21,1,0)="This is the code assigned to this item by the authoritative package,"
^DD(101.43,3,21,2,0)="from a national standard coding system such as CPT or SNOMED."
^DD(101.43,3,"DT")="2950713"
^DD(101.43,4,0)="CODING SYSTEM^S^NDF:NATIONAL DRUG FILE;CPT4:CPT4;NLT:NATIONAL LAB TEST FILE;^0;4^Q"
^DD(101.43,4,3)="Enter the coding system in which this item has been coded."
^DD(101.43,4,21,0)="^^1^1^2960213^^"
^DD(101.43,4,21,1,0)="This is the system used to generate the code assigned in field 3."
^DD(101.43,4,"DT")="2960213"
^DD(101.43,5,0)="DISPLAY GROUP^P100.98'^ORD(100.98,^0;5^Q"
^DD(101.43,5,1,0)="^.1"
^DD(101.43,5,1,1,0)="101.43^S7^MUMPS"
^DD(101.43,5,1,1,1)="N ORX S ORX=$P(^ORD(100.98,X,0),U,3) D:$L(ORX) SET^ORDD43(ORX,DA)"
^DD(101.43,5,1,1,2)="N ORX S ORX=$P(^ORD(100.98,X,0),U,3) D:$L(ORX) KILL^ORDD43(ORX,DA)"
^DD(101.43,5,1,1,"%D",0)="^^1^1^2950303^"
^DD(101.43,5,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,5,1,1,"DT")="2950303"
^DD(101.43,5,3)="Enter the display group this orderable item belongs to."
^DD(101.43,5,21,0)="^^4^4^2950303^"
^DD(101.43,5,21,1,0)="This is the display group that this item is a menber of; this field is"
^DD(101.43,5,21,2,0)="used for a variety of purposes such as narrowing a search for an item,"
^DD(101.43,5,21,3,0)="sorting and grouping orders, and passing the order to the service"
^DD(101.43,5,21,4,0)="for filling."
^DD(101.43,5,"DT")="2950303"
^DD(101.43,6,0)="COST^NJ10,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(101.43,6,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(101.43,6,21,0)="^^1^1^2950303^"
^DD(101.43,6,21,1,0)="This is the [approximate] cost of filling an order for this item."
^DD(101.43,6,"DT")="2950303"
^DD(101.43,7,0)="AUTHORIZATION^S^0:NO SIGNATURE REQUIRED;1:PHYSICIAN;2:SPECIALIST;3:SERVICE CHIEF;4:COSIGNATURE;^0;7^Q"
^DD(101.43,7,3)="Enter the level of authorization required to release an order for this item."
^DD(101.43,7,21,0)="^^3^3^2950303^"
^DD(101.43,7,21,1,0)="This field is used to identify the level of authentication necessary to"
^DD(101.43,7,21,2,0)="release an order for this item; it will be replaced by the Clinical"
^DD(101.43,7,21,3,0)="Authorization and Subscription Utility (CASU) when it becomes available."
^DD(101.43,7,"DT")="2950303"
^DD(101.43,8,0)="ORDER MESSAGE^101.438^^8;0"
^DD(101.43,8,21,0)="^^2^2^2971219^"
^DD(101.43,8,21,1,0)="This field contains text that is to be displayed to the user whenever"
^DD(101.43,8,21,2,0)="this item is selected to be ordered."
^DD(101.43,9,0)="SET MEMBERSHIP^101.439A^^9;0"
^DD(101.43,9,21,0)="^^3^3^2941117^"
^DD(101.43,9,21,1,0)="This field contains the names of sets to which this orderable item belongs."
^DD(101.43,9,21,2,0)="When a set name is entered here, a cross-reference of the format ""S.name"""
^DD(101.43,9,21,3,0)="is created, allowing rapid lookups on this file."
^DD(101.43,10,0)="COMPONENTS^101.431A^^10;0"
^DD(101.43,10,21,0)="^^2^2^2960411^^^"
^DD(101.43,10,21,1,0)="This multiple contains the components of this orderable item, i.e. drug"
^DD(101.43,10,21,2,0)="ingredients or tests in a lab panel."
^DD(101.43,50.1,0)="INPATIENT MED^S^0:NO;1:YES;2:YES-IV;^PS;1^Q"
^DD(101.43,50.1,1,0)="^.1"
^DD(101.43,50.1,1,1,0)="101.43^S4^MUMPS"
^DD(101.43,50.1,1,1,1)="D SET^ORDD43(""UD RX"",DA):X,SET^ORDD43(""IVM RX"",DA):X=2"
^DD(101.43,50.1,1,1,2)="D KILL^ORDD43(""UD RX"",DA):X,KILL^ORDD43(""IVM RX"",DA):X=2"
^DD(101.43,50.1,1,1,"%D",0)="^^1^1^2950623^^^^"
^DD(101.43,50.1,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,50.1,1,1,"DT")="2950623"
^DD(101.43,50.1,3)="Enter YES if this drug is selectable for an inpatient med order."
^DD(101.43,50.1,21,0)="^^1^1^2970624^^"
^DD(101.43,50.1,21,1,0)="This field indicates if this drug is selectable for an inpatient med order."
^DD(101.43,50.1,"DT")="2970624"
^DD(101.43,50.2,0)="OUTPATIENT MED^S^1:YES;0:NO;^PS;2^Q"
^DD(101.43,50.2,1,0)="^.1"
^DD(101.43,50.2,1,1,0)="101.43^S5^MUMPS"
^DD(101.43,50.2,1,1,1)="D:X SET^ORDD43(""O RX"",DA)"
^DD(101.43,50.2,1,1,2)="D:X KILL^ORDD43(""O RX"",DA)"
^DD(101.43,50.2,1,1,"%D",0)="^^1^1^2950112^^"
^DD(101.43,50.2,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,50.2,1,1,"DT")="2950112"
^DD(101.43,50.2,3)="Enter YES if this drug is selectable for an outpatient med order."
^DD(101.43,50.2,21,0)="^^1^1^2950112^"
^DD(101.43,50.2,21,1,0)="This field indicates if this drug is selectable for an outpatient med order."
^DD(101.43,50.2,"DT")="2950112"
^DD(101.43,50.3,0)="IV BASE^S^1:YES;0:NO;^PS;3^Q"
^DD(101.43,50.3,1,0)="^.1"
^DD(101.43,50.3,1,1,0)="101.43^S6^MUMPS"
^DD(101.43,50.3,1,1,1)="D:X SET^ORDD43(""IVB RX"",DA)"
^DD(101.43,50.3,1,1,2)="D:X KILL^ORDD43(""IVB RX"",DA)"
^DD(101.43,50.3,1,1,"%D",0)="^^1^1^2950623^^^"
^DD(101.43,50.3,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,50.3,1,1,"DT")="2950623"
^DD(101.43,50.3,3)="Enter YES if this drug is selectable as a base for an IV Fluid order."
^DD(101.43,50.3,21,0)="^^2^2^2950112^"
^DD(101.43,50.3,21,1,0)="This field indicates if this drug is selectable as a base for an IV Fluid"
^DD(101.43,50.3,21,2,0)="order."
^DD(101.43,50.3,"DT")="2950623"
^DD(101.43,50.4,0)="IV ADDITIVE^S^1:YES;0:NO;^PS;4^Q"
^DD(101.43,50.4,1,0)="^.1"
^DD(101.43,50.4,1,1,0)="101.43^S8^MUMPS"
^DD(101.43,50.4,1,1,1)="D:X SET^ORDD43(""IVA RX"",DA)"
^DD(101.43,50.4,1,1,2)="D:X KILL^ORDD43(""IVA RX"",DA)"
^DD(101.43,50.4,1,1,"%D",0)="^^1^1^2950623^^^"
^DD(101.43,50.4,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,50.4,1,1,"DT")="2950623"
^DD(101.43,50.4,3)="Enter YES if this drug is selectable as an additive for an IV Fluid order."
^DD(101.43,50.4,21,0)="^^2^2^2950112^"
^DD(101.43,50.4,21,1,0)="This field indicates if this drug is selectable as an additive for an IV"
^DD(101.43,50.4,21,2,0)="Fluid order."
^DD(101.43,50.4,"DT")="2950623"
^DD(101.43,50.5,0)="SUPPLY^S^1:YES;0:NO;^PS;5^Q"
^DD(101.43,50.5,1,0)="^.1"
^DD(101.43,50.5,1,1,0)="101.43^S9^MUMPS"
^DD(101.43,50.5,1,1,1)="D:X SET^ORDD43(""SPLY"",DA)"
^DD(101.43,50.5,1,1,2)="D:X KILL^ORDD43(""SPLY"",DA)"
^DD(101.43,50.5,1,1,"%D",0)="^^1^1^2960402^"
^DD(101.43,50.5,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,50.5,1,1,"DT")="2960402"
^DD(101.43,50.5,3)="Enter YES if this item is selectable for a medication supply order."
^DD(101.43,50.5,21,0)="^^2^2^2960402^"
^DD(101.43,50.5,21,1,0)="This field indicates if this item is selectable for a medication supply"
^DD(101.43,50.5,21,2,0)="order."
^DD(101.43,50.5,"DT")="2960402"
^DD(101.43,50.6,0)="NON-FORMULARY^S^1:YES;0:NO;^PS;6^Q"
^DD(101.43,50.6,3)="Enter YES if this orderable item in not in the local formulary."
^DD(101.43,50.6,21,0)="^^1^1^3000828^"
^DD(101.43,50.6,21,1,0)="This field indicates if this item is available in the local formulary."
^DD(101.43,50.6,"DT")="3000828"
^DD(101.43,50.7,0)="NON-VA MEDS^S^1:YES;0:NO;^PS;7^Q"
^DD(101.43,50.7,1,0)="^.1"
^DD(101.43,50.7,1,10,0)="101.43^S10^MUMPS"
^DD(101.43,50.7,1,10,1)="D:X SET^ORDD43(""NV RX"",DA)"
^DD(101.43,50.7,1,10,2)="D:X KILL^ORDD43(""NV RX"",DA)"
^DD(101.43,50.7,1,10,"%D",0)="^.101^1^1^3030214^^"
^DD(101.43,50.7,1,10,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,50.7,1,10,"DT")="3030214"
^DD(101.43,50.7,3)="Enter YES if this drug is selectable for a non-VA med order."
^DD(101.43,50.7,21,0)="^.001^1^1^3030305^^^^"
^DD(101.43,50.7,21,1,0)="This field indicates if this drug is selectable for a non-VA med order."
^DD(101.43,50.7,"DT")="3030214"
^DD(101.43,60.1,0)="SPECIMEN^F^^LR;1^K:$L(X)>100!($L(X)<1) X"
^DD(101.43,60.1,3)="Answer must be 1-100 characters in length."
^DD(101.43,60.1,21,0)="^^4^4^2950509^^"
^DD(101.43,60.1,21,1,0)="This is the specimen to be collected for this test; it is in the 6-piece"
^DD(101.43,60.1,21,2,0)="HL7 format, where the first 3 pieces are the code, name, and system of"
^DD(101.43,60.1,21,3,0)="the SNOMED code for this specimen, and the last 3 pieces are similarly"
^DD(101.43,60.1,21,4,0)="from the local Site/Specimen file."
^DD(101.43,60.1,"DT")="2950509"
^DD(101.43,60.2,0)="CAN LAB COLLECT^S^1:YES;0:NO;^LR;2^Q"
^DD(101.43,60.2,3)="Enter YES if the phlebotomy team can collect this specimen."
^DD(101.43,60.2,21,0)="^^1^1^2950208^"
^DD(101.43,60.2,21,1,0)="This identifies which specimens the lab phlebotomy team can collect."
^DD(101.43,60.2,"DT")="2950208"
^DD(101.43,60.3,0)="SEQUENCE^NJ2,0^^LR;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.43,60.3,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(101.43,60.3,21,0)="^^2^2^2950208^"
^DD(101.43,60.3,21,1,0)="This field indicates the order in which specimens are presented for"
^DD(101.43,60.3,21,2,0)="selection, the first being the most often selected and the default."
^DD(101.43,60.3,"DT")="2950208"
^DD(101.43,60.4,0)="MAX ORDER FREQUENCY^NJ3,0^^LR;4^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.43,60.4,3)="Type a Number between 1 and 120, 0 Decimal Digits"
^DD(101.43,60.4,21,0)="^^3^3^2950208^"
^DD(101.43,60.4,21,1,0)="This is used to control how often this item may be ordered within a given"
^DD(101.43,60.4,21,2,0)="time period.  This item may be ordered only once within the number of days"
^DD(101.43,60.4,21,3,0)="specified in this field."
^DD(101.43,60.4,"DT")="2950208"
^DD(101.43,60.5,0)="DAILY ORDER MAX^NJ2,0^^LR;5^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.43,60.5,3)="Type a Number between 1 and 50, 0 Decimal Digits"
^DD(101.43,60.5,21,0)="^^2^2^2950208^"
^DD(101.43,60.5,21,1,0)="This is the number of times within a given day that this item may be"
^DD(101.43,60.5,21,2,0)="ordered."
^DD(101.43,60.5,"DT")="2950208"
^DD(101.43,60.6,0)="LAB SECTION^S^CH:CHEMISTRY;MI:MICROBIOLOGY;BB:BLOOD BANK;EM:ELECTRON MICROSCOPY;SP:SURGICAL PATHOLOGY;AU:AUTOPSY;CY:CYTOLOGY;^LR;6^Q"
^DD(101.43,60.6,1,0)="^.1"
^DD(101.43,60.6,1,1,0)="101.43^S3^MUMPS"
^DD(101.43,60.6,1,1,1)="N ORX S ORX=$S(X=""BB"":""BB"",X=""CH"":""CH"",X=""MI"":""CH"",1:""AP"") D SET^ORDD43(ORX,DA)"
^DD(101.43,60.6,1,1,2)="N ORX S ORX=$S(X=""BB"":""BB"",X=""CH"":""CH"",X=""MI"":""CH"",1:""AP"") D KILL^ORDD43(ORX,DA)"
^DD(101.43,60.6,1,1,"%D",0)="^^1^1^2950208^"
^DD(101.43,60.6,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,60.6,1,1,"DT")="2950208"
^DD(101.43,60.6,3)="Enter the lab section for this test."
^DD(101.43,60.6,21,0)="^^2^2^2960529^^"
^DD(101.43,60.6,21,1,0)="This is the lab section to which orders for this test and sample will be"
^DD(101.43,60.6,21,2,0)="sent."
^DD(101.43,60.6,"DT")="2960529"
^DD(101.43,60.7,0)="TYPE^S^I:input;O:output;B:both;N:neither;^LR;7^Q"
^DD(101.43,60.7,1,0)="^.1"
^DD(101.43,60.7,1,1,0)="101.43^ST^MUMPS"
^DD(101.43,60.7,1,1,1)="N NM,IN S NM=$P(^ORD(101.43,DA,0),U),IN=$G(^(.1)) D SS^ORDD43(NM,IN,X)"
^DD(101.43,60.7,1,1,2)="N NM S NM=$P(^ORD(101.43,DA,0),U) D SK^ORDD43(NM)"
^DD(101.43,60.7,1,1,"%D",0)="^^1^1^2960911^"
^DD(101.43,60.7,1,1,"%D",1,0)="Allows retrieval of orderable items by set."
^DD(101.43,60.7,1,1,"DT")="2960911"
^DD(101.43,60.7,1,2,0)="101.43^SST^MUMPS"
^DD(101.43,60.7,1,2,1)="N NM,IN S NM=$P(^ORD(101.43,DA,0),U),IN=$G(^(.1)) D SS1^ORDD43(NM,IN,X)"
^DD(101.43,60.7,1,2,2)="N NM S NM=$P(^ORD(101.43,DA,0),U) D SK1^ORDD43(NM)"
^DD(101.43,60.7,1,2,"%D",0)="^^1^1^2960911^"
^DD(101.43,60.7,1,2,"%D",1,0)="Allows retrieval of items by synonym via the Set ""S"" xrefs."
^DD(101.43,60.7,1,2,"DT")="2960911"
^DD(101.43,60.7,3)="Enter I if this test is orderable, O if it is only for results reporting, B if it may be used for both purposes, or N for neither."
^DD(101.43,60.7,21,0)="^^2^2^2970703^^"
^DD(101.43,60.7,21,1,0)="This field indicates if this item may be selected when ordering a lab"
^DD(101.43,60.7,21,2,0)="test, and/or if it is included in this file for results reporting only."
^DD(101.43,60.7,"DT")="2970703"
^DD(101.43,71.1,0)="CONTRAST MEDIA^F^^RA;1^K:$L(X)>7!($L(X)<1) X"
^DD(101.43,71.1,3)="Answer must be 1-7 characters in length"
^DD(101.43,71.1,21,0)="^^14^14^3050106^"
^DD(101.43,71.1,21,1,0)="This field indicates what contrast media, if any, is used by this"
^DD(101.43,71.1,21,2,0)="radiologic procedure where:"
^DD(101.43,71.1,21,3,0)=" "
^DD(101.43,71.1,21,4,0)="      I = Ionic Iodinated"
^DD(101.43,71.1,21,5,0)="      N = Non-ionic Iodinated"
^DD(101.43,71.1,21,6,0)="      L = Gadolinium"
^DD(101.43,71.1,21,7,0)="      C = Cholecystographic"
^DD(101.43,71.1,21,8,0)="      G = Gastrografin"
^DD(101.43,71.1,21,9,0)="      B = Barium"
^DD(101.43,71.1,21,10,0)="      M = Unspecified contrast media"
^DD(101.43,71.1,21,11,0)=" "
^DD(101.43,71.1,21,12,0)="This value may consist of as many of these flags as are appropriate for"
^DD(101.43,71.1,21,13,0)="this procedure; if empty, no contrast media is assumed.  This field is "
^DD(101.43,71.1,21,14,0)="used primarily for Order Checking."
^DD(101.43,71.1,"DT")="3050915"
^DD(101.43,71.2,0)="PROCEDURE TYPE^S^B:BROAD;D:DETAILED;S:SERIES;P:PARENT;^RA;2^Q"
^DD(101.43,71.2,3)="Enter the type of radiologic procedure for this item."
^DD(101.43,71.2,21,0)="^^2^2^2941116^"
^DD(101.43,71.2,21,1,0)="This field identifies the procedure type for this orderable item whether"
^DD(101.43,71.2,21,2,0)="broad or detailed, a series or parent exam."
^DD(101.43,71.2,"DT")="2941116"
^DD(101.43,71.3,0)="IMAGING TYPE^S^RAD:RADIOLOGY;CT:CT SCAN;MRI:MAGNETIC RESONANCE IMAGING;ANI:ANGIO/NEURO/INTERVENTIONAL;CARD:CARDIOLOGY STUDIES;NM:NUCLEAR MEDICINE;US:ULTRASOUND;VAS:VASCULAR LAB;MAM:MAMMOGRAPHY;^RA;3^Q"
^DD(101.43,71.3,1,0)="^.1"
^DD(101.43,71.3,1,1,0)="101.43^S2^MUMPS"
^DD(101.43,71.3,1,1,1)="D SET^ORDD43(X,DA)"
^DD(101.43,71.3,1,1,2)="D KILL^ORDD43(X,DA)"
^DD(101.43,71.3,1,1,"%D",0)="^^1^1^2950112^^"
^DD(101.43,71.3,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,71.3,1,1,"DT")="2950112"
^DD(101.43,71.3,1,2,0)="101.43^COMMON1^MUMPS"
^DD(101.43,71.3,1,2,1)="N CP,NM S NM=$P(^ORD(101.43,DA,0),U),CP=$P($G(^(""RA"")),U,4) D SETRA^ORDD43(NM,X,CP)"
^DD(101.43,71.3,1,2,2)="N CP,NM S NM=$P(^ORD(101.43,DA,0),U),CP=$P($G(^(""RA"")),U,4) D KILLRA^ORDD43(NM,X,CP)"
^DD(101.43,71.3,1,2,"%D",0)="^^2^2^2950725^^^"
^DD(101.43,71.3,1,2,"%D",1,0)="Allows retrieval of Radiology common procedures alphabetically within"
^DD(101.43,71.3,1,2,"%D",2,0)="imaging types."
^DD(101.43,71.3,1,2,"DT")="2950711"
^DD(101.43,71.3,3)="Enter the type of imaging for this procedure."
^DD(101.43,71.3,21,0)="^^1^1^2971216^^"
^DD(101.43,71.3,21,1,0)="This is the imaging type of this radiology procedure."
^DD(101.43,71.3,"DT")="2971216"
^DD(101.43,71.4,0)="COMMON PROCEDURE^S^1:YES;0:NO;^RA;4^Q"
^DD(101.43,71.4,1,0)="^.1"
^DD(101.43,71.4,1,1,0)="101.43^COMMON^MUMPS"
^DD(101.43,71.4,1,1,1)="N IT,NM S NM=$P(^ORD(101.43,DA,0),U),IT=$P($G(^(""RA"")),U,3) D SETRA^ORDD43(NM,IT,X)"
^DD(101.43,71.4,1,1,2)="N IT,NM S NM=$P(^ORD(101.43,DA,0),U),IT=$P($G(^(""RA"")),U,3) D KILLRA^ORDD43(NM,IT,X)"
^DD(101.43,71.4,1,1,"%D",0)="^^2^2^2960910^^^^"
^DD(101.43,71.4,1,1,"%D",1,0)="Allows retrieval of Radiology common procedures alphabetically within"
^DD(101.43,71.4,1,1,"%D",2,0)="imaging types."
^DD(101.43,71.4,1,1,"DT")="2960910"
^DD(101.43,71.4,3)="Enter YES if this is a commonly ordered procedure."
^DD(101.43,71.4,21,0)="^^3^3^2950711^^"
^DD(101.43,71.4,21,1,0)="This field indicates that this procedure is commonly ordered from"
^DD(101.43,71.4,21,2,0)="Radiology, and is an entry in the Radiology Common Procedures file;"
^DD(101.43,71.4,21,3,0)="the number stored here is the sequence number for display."
^DD(101.43,71.4,"DT")="2960910"
^DD(101.43,111.1,0)="DIET TYPE^S^D:DIET;T:TUBEFEEDING PRODUCT;^FH;1^Q"
^DD(101.43,111.1,1,0)="^.1"
^DD(101.43,111.1,1,1,0)="101.43^S1^MUMPS"
^DD(101.43,111.1,1,1,1)="N ORX S ORX=$S(X=""T"":""TF"",1:""DO"") D SET^ORDD43(ORX,DA)"
^DD(101.43,111.1,1,1,2)="N ORX S ORX=$S(X=""T"":""TF"",1:""DO"") D KILL^ORDD43(ORX,DA)"
^DD(101.43,111.1,1,1,"%D",0)="^^1^1^2950502^^^"
^DD(101.43,111.1,1,1,"%D",1,0)="Creates an entry in SET multiple."
^DD(101.43,111.1,1,1,"DT")="2950502"
^DD(101.43,111.1,3)="Enter the diet type for this orderable item."
^DD(101.43,111.1,21,0)="^^2^2^2941116^"
^DD(101.43,111.1,21,1,0)="This field identifies the diet type associated with this orderable item,"
^DD(101.43,111.1,21,2,0)="if the order is for a diet modification or a tubefeeding product."
^DD(101.43,111.1,"DT")="2950502"
^DD(101.43,111.2,0)="PRECEDENCE^NJ2,0^^FH;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(101.43,111.2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(101.43,111.2,21,0)="^^2^2^2971219^^"
^DD(101.43,111.2,21,1,0)="This field is used to avoid conflicting diet modifications; items with"
^DD(101.43,111.2,21,2,0)="the same precedence number may not be selected together."
^DD(101.43,111.2,"DT")="2941116"
^DD(101.43,111.3,0)="ASK EXPIRATION DATE?^S^Y:YES;N:NO;^FH;3^Q"
^DD(101.43,111.3,3)="Enter YES if the user should be asked for an expiration date when this diet is ordered"
^DD(101.43,111.3,21,0)="^^2^2^2971219^"
^DD(101.43,111.3,21,1,0)="This is a flag that determines if a stop date should be prompted for"
^DD(101.43,111.3,21,2,0)="when placing an order for this diet."
^DD(101.43,111.3,"DT")="2961101"
^DD(101.43,123.1,0)="SERVICE USAGE^S^1:GROUPER ONLY;2:TRACKING ONLY;^CS;1^Q"
^DD(101.43,123.1,3)="Enter the usage of this service if it may NOT be selectable for ordering, 1 for grouping only or 2 for tracking only."
^DD(101.43,123.1,21,0)="^^4^4^2971023^"
^DD(101.43,123.1,21,1,0)="This field contains the usage of this consult service; a value here"
^DD(101.43,123.1,21,2,0)="indicates that this service may NOT be selectable for ordering.  Services"
^DD(101.43,123.1,21,3,0)="with a 1 are used for grouping purposes only, and a 2 indicates that"
^DD(101.43,123.1,21,4,0)="only service personnel may order or forward consults to this service."
^DD(101.43,123.1,"DT")="2971023"
^DD(101.43,"B","ASK EXPIRATION DATE?",111.3)=""
^DD(101.43,"B","AUTHORIZATION",7)=""
^DD(101.43,"B","CAN LAB COLLECT",60.2)=""
^DD(101.43,"B","CODE",3)=""
^DD(101.43,"B","CODING SYSTEM",4)=""
^DD(101.43,"B","COMMON PROCEDURE",71.4)=""
^DD(101.43,"B","COMPONENTS",10)=""
^DD(101.43,"B","CONTRAST MEDIA",71.1)=""
^DD(101.43,"B","COST",6)=""
^DD(101.43,"B","DAILY ORDER MAX",60.5)=""
^DD(101.43,"B","DIET TYPE",111.1)=""
^DD(101.43,"B","DISPLAY GROUP",5)=""
^DD(101.43,"B","ID",2)=""
^DD(101.43,"B","IMAGING TYPE",71.3)=""
^DD(101.43,"B","INACTIVATED",.1)=""
^DD(101.43,"B","INPATIENT MED",50.1)=""
^DD(101.43,"B","IV ADDITIVE",50.4)=""
^DD(101.43,"B","IV BASE",50.3)=""
^DD(101.43,"B","LAB SECTION",60.6)=""
^DD(101.43,"B","MAX ORDER FREQUENCY",60.4)=""
^DD(101.43,"B","NAME",.01)=""
^DD(101.43,"B","NON-FORMULARY",50.6)=""
^DD(101.43,"B","NON-VA MEDS",50.7)=""
^DD(101.43,"B","NOTIFY ON ORDER",.91)=""
^DD(101.43,"B","NOTIFY WHEN RESULTED",.92)=""
^DD(101.43,"B","ORDER MESSAGE",8)=""
^DD(101.43,"B","OUTPATIENT MED",50.2)=""
^DD(101.43,"B","PACKAGE NAME",1.1)=""
^DD(101.43,"B","PRECEDENCE",111.2)=""
^DD(101.43,"B","PROCEDURE TYPE",71.2)=""
^DD(101.43,"B","SEQUENCE",60.3)=""
^DD(101.43,"B","SERVICE USAGE",123.1)=""
^DD(101.43,"B","SET MEMBERSHIP",9)=""
^DD(101.43,"B","SPECIMEN",60.1)=""
^DD(101.43,"B","SUPPLY",50.5)=""
^DD(101.43,"B","SYNONYMS",1)=""
^DD(101.43,"B","TYPE",60.7)=""
^DD(101.43,"GL",0,1,.01)=""
^DD(101.43,"GL",0,2,2)=""
^DD(101.43,"GL",0,3,3)=""
^DD(101.43,"GL",0,4,4)=""
^DD(101.43,"GL",0,5,5)=""
^DD(101.43,"GL",0,6,6)=""
^DD(101.43,"GL",0,7,7)=""
^DD(101.43,"GL",0,8,1.1)=""
^DD(101.43,"GL",.1,1,.1)=""
^DD(101.43,"GL",.9,1,.91)=""
^DD(101.43,"GL",.9,2,.92)=""
^DD(101.43,"GL",2,0,1)=""
^DD(101.43,"GL",8,0,8)=""
^DD(101.43,"GL",9,0,9)=""
^DD(101.43,"GL",10,0,10)=""
^DD(101.43,"GL","CS",1,123.1)=""
^DD(101.43,"GL","FH",1,111.1)=""
^DD(101.43,"GL","FH",2,111.2)=""
^DD(101.43,"GL","FH",3,111.3)=""
^DD(101.43,"GL","LR",1,60.1)=""
^DD(101.43,"GL","LR",2,60.2)=""
^DD(101.43,"GL","LR",3,60.3)=""
^DD(101.43,"GL","LR",4,60.4)=""
^DD(101.43,"GL","LR",5,60.5)=""
^DD(101.43,"GL","LR",6,60.6)=""
^DD(101.43,"GL","LR",7,60.7)=""
^DD(101.43,"GL","PS",1,50.1)=""
^DD(101.43,"GL","PS",2,50.2)=""
^DD(101.43,"GL","PS",3,50.3)=""
^DD(101.43,"GL","PS",4,50.4)=""
^DD(101.43,"GL","PS",5,50.5)=""
^DD(101.43,"GL","PS",6,50.6)=""
^DD(101.43,"GL","PS",7,50.7)=""
^DD(101.43,"GL","RA",1,71.1)=""
^DD(101.43,"GL","RA",2,71.2)=""
^DD(101.43,"GL","RA",3,71.3)=""
^DD(101.43,"GL","RA",4,71.4)=""
^DD(101.43,"IX",.01)=""
^DD(101.43,"IX",.1)=""
^DD(101.43,"IX",2)=""
^DD(101.43,"IX",3)=""
^DD(101.43,"IX",5)=""
^DD(101.43,"IX",50.1)=""
^DD(101.43,"IX",50.2)=""
^DD(101.43,"IX",50.3)=""
^DD(101.43,"IX",50.4)=""
^DD(101.43,"IX",50.5)=""
^DD(101.43,"IX",50.7)=""
^DD(101.43,"IX",60.6)=""
^DD(101.43,"IX",60.7)=""
^DD(101.43,"IX",71.3)=""
^DD(101.43,"IX",71.4)=""
^DD(101.43,"IX",111.1)=""
^DD(101.43,"RQ",.01)=""
^DD(101.43,"RQ",1.1)=""
^DD(101.43,"RQ",2)=""
^DD(101.43,"SB",101.431,10)=""
^DD(101.43,"SB",101.432,1)=""
^DD(101.43,"SB",101.438,8)=""
^DD(101.43,"SB",101.439,9)=""
^DD(101.431,0)="COMPONENTS SUB-FIELD^^4^4"
^DD(101.431,0,"DT")="2960411"
^DD(101.431,0,"IX","AID",101.431,2)=""
^DD(101.431,0,"IX","B",101.431,.01)=""
^DD(101.431,0,"NM","COMPONENTS")=""
^DD(101.431,0,"UP")="101.43"
^DD(101.431,.01,0)="NAME^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(101.431,.01,1,0)="^.1"
^DD(101.431,.01,1,1,0)="101.431^B"
^DD(101.431,.01,1,1,1)="S ^ORD(101.43,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(101.431,.01,1,1,2)="K ^ORD(101.43,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(101.431,.01,3)="Answer must be 1-60 characters in length."
^DD(101.431,.01,21,0)="^^1^1^2960411^"
^DD(101.431,.01,21,1,0)="This is the name of a component of this orderable item."
^DD(101.431,.01,"DT")="2960411"
^DD(101.431,2,0)="ID^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(101.431,2,1,0)="^.1"
^DD(101.431,2,1,1,0)="101.431^AID"
^DD(101.431,2,1,1,1)="S ^ORD(101.43,DA(1),10,""AID"",$E(X,1,30),DA)="""""
^DD(101.431,2,1,1,2)="K ^ORD(101.43,DA(1),10,""AID"",$E(X,1,30),DA)"
^DD(101.431,2,1,1,"DT")="2960411"
^DD(101.431,2,3)="Answer must be 1-20 characters in length."
^DD(101.431,2,21,0)="^^4^4^2960411^"
^DD(101.431,2,21,1,0)="This is an identifier for this component, created from the 6-piece coded"
^DD(101.431,2,21,2,0)="format passed in the Orderable Items update message from each package."
^DD(101.431,2,21,3,0)="It should be stored in the form of ""package code;99XXX"" where XXX "
^DD(101.431,2,21,4,0)="indicates the package table originating this item (i.e. RAP, LRT, etc.)."
^DD(101.431,2,"DT")="2960411"
^DD(101.431,3,0)="CODE^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(101.431,3,3)="Answer must be 1-10 characters in length."
^DD(101.431,3,21,0)="^^2^2^2960411^"
^DD(101.431,3,21,1,0)="This is the code assigned to this item by the authoritative package from a"
^DD(101.431,3,21,2,0)="national standard coding system such as CPT or SNOMED."
^DD(101.431,3,"DT")="2960411"
^DD(101.431,4,0)="CODING SYSTEM^S^NDF:NATIONAL DRUG FILE;CPT4:CPT4;NLT:NATIONAL LAB TEST FILE;^0;4^Q"
^DD(101.431,4,3)="Enter the coding system in which this item has been coded."
^DD(101.431,4,21,0)="^^1^1^2960411^"
^DD(101.431,4,21,1,0)="This is the system used to generate the code assigned in field 3."
^DD(101.431,4,"DT")="2960411"
^DD(101.431,"B","CODE",3)=""
^DD(101.431,"B","CODING SYSTEM",4)=""
^DD(101.431,"B","ID",2)=""
^DD(101.431,"B","NAME",.01)=""
^DD(101.431,"GL",0,1,.01)=""
^DD(101.431,"GL",0,2,2)=""
^DD(101.431,"GL",0,3,3)=""
^DD(101.431,"GL",0,4,4)=""
^DD(101.431,"IX",.01)=""
^DD(101.431,"IX",2)=""
^DD(101.432,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(101.432,0,"DT")="2950303"
^DD(101.432,0,"IX","B",101.432,.01)=""
^DD(101.432,0,"NM","SYNONYMS")=""
^DD(101.432,0,"UP")="101.43"
^DD(101.432,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>63!($L(X)<1) X"
^DD(101.432,.01,1,0)="^.1"
^DD(101.432,.01,1,1,0)="101.432^B"
^DD(101.432,.01,1,1,1)="S ^ORD(101.43,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(101.432,.01,1,1,2)="K ^ORD(101.43,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(101.432,.01,1,2,0)="101.43^B^MNEMONIC"
^DD(101.432,.01,1,2,1)="S:'$D(^ORD(101.43,""B"",$E(X,1,30),DA(1),DA)) ^(DA)=1"
^DD(101.432,.01,1,2,2)="I $D(^ORD(101.43,""B"",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)"
^DD(101.432,.01,1,2,"DT")="2950303"
^DD(101.432,.01,1,3,0)="101.43^SS^MUMPS"
^DD(101.432,.01,1,3,1)="D SS3^ORDD43"
^DD(101.432,.01,1,3,2)="D SK3^ORDD43"
^DD(101.432,.01,1,3,"%D",0)="^^2^2^2990316^^^^"
^DD(101.432,.01,1,3,"%D",1,0)="Allows retrieval of items by synonym via the Set ""S"" xrefs:"
^DD(101.432,.01,1,3,"%D",2,0)="^ORD(101.43,""S.<set>"",SYNONYM,DA)"
^DD(101.432,.01,1,3,"DT")="2950810"
^DD(101.432,.01,3)="Answer must be 1-63 characters in length."
^DD(101.432,.01,21,0)="^^1^1^2990223^^"
^DD(101.432,.01,21,1,0)="This is a synonym for this orderable item."
^DD(101.432,.01,"DT")="2990223"
^DD(101.432,"B","SYNONYM",.01)=""
^DD(101.432,"GL",0,1,.01)=""
^DD(101.432,"IX",.01)=""
^DD(101.438,0)="ORDER MESSAGE SUB-FIELD^^.01^1"
^DD(101.438,0,"DT")="2941205"
^DD(101.438,0,"NM","ORDER MESSAGE")=""
^DD(101.438,0,"UP")="101.43"
^DD(101.438,.01,0)="ORDER MESSAGE^WL^^0;1^Q"
^DD(101.438,.01,3)="Enter a message to be displayed whenever this item is ordered."
^DD(101.438,.01,21,0)="^^2^2^2971219^^^"
^DD(101.438,.01,21,1,0)="This field contains text that is to be displayed to the user whenever"
^DD(101.438,.01,21,2,0)="this item is selected to be ordered."
^DD(101.438,.01,"DT")="2941205"
^DD(101.438,"B","ORDER MESSAGE",.01)=""
^DD(101.438,"GL",0,1,.01)=""
^DD(101.439,0)="SET MEMBERSHIP SUB-FIELD^^2^2"
^DD(101.439,0,"DT")="2941117"
^DD(101.439,0,"IX","B",101.439,.01)=""
^DD(101.439,0,"NM","SET MEMBERSHIP")=""
^DD(101.439,0,"UP")="101.43"
^DD(101.439,.01,0)="SET^MF^^0;1^K:$L(X)>8!($L(X)<2) X"
^DD(101.439,.01,1,0)="^.1"
^DD(101.439,.01,1,1,0)="101.439^B"
^DD(101.439,.01,1,1,1)="S ^ORD(101.43,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(101.439,.01,1,1,2)="K ^ORD(101.43,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(101.439,.01,1,2,0)="101.43^S^MUMPS"
^DD(101.439,.01,1,2,1)="Q:$P($G(^ORD(101.43,DA(1),""LR"")),U,7)=""O""  N NM,IN S NM=$P(^(0),U),IN=$G(^(.1)) S:$L(NM) ^ORD(101.43,""S.""_X,$$UP^XLFSTR(NM),DA(1))=U_NM_U_IN"
^DD(101.439,.01,1,2,2)="N NM S NM=$P(^ORD(101.43,DA(1),0),U) K:$L(NM) ^ORD(101.43,""S.""_X,$$UP^XLFSTR(NM),DA(1))"
^DD(101.439,.01,1,2,"%D",0)="^^1^1^2960806^^^^"
^DD(101.439,.01,1,2,"%D",1,0)="Allows retrieval of orderable items by set."
^DD(101.439,.01,1,2,"DT")="2960806"
^DD(101.439,.01,1,3,0)="101.43^SS1^MUMPS"
^DD(101.439,.01,1,3,1)="D SS2^ORDD43"
^DD(101.439,.01,1,3,2)="D SK2^ORDD43"
^DD(101.439,.01,1,3,"%D",0)="^^1^1^2960806^^^^"
^DD(101.439,.01,1,3,"%D",1,0)="Allows retrieval of items by synonym via the Set ""S"" xrefs."
^DD(101.439,.01,1,3,"DT")="2960806"
^DD(101.439,.01,1,4,0)="101.43^C1^MUMPS"
^DD(101.439,.01,1,4,1)="N CD,NM,IN S NM=$P(^ORD(101.43,DA(1),0),U),CD=$P(^(0),U,3),IN=$G(^(.1)) S:$L(CD) ^ORD(101.43,""C.""_X,$$UP^XLFSTR(CD_"" ""_NM),DA(1))=U_(CD_"" ""_NM)_U_IN"
^DD(101.439,.01,1,4,2)="N CD,NM S NM=$P(^ORD(101.43,DA(1),0),U),CD=$P(^(0),U,3) K:$L(CD) ^ORD(101.43,""C.""_X,$$UP^XLFSTR(CD_"" ""_NM),DA(1))"
^DD(101.439,.01,1,4,"%D",0)="^^1^1^2960806^^^^"
^DD(101.439,.01,1,4,"%D",1,0)="Allows retrieval of items by code within Sets."
^DD(101.439,.01,1,4,"DT")="2950713"
^DD(101.439,.01,3)="Answer must be 2-8 characters in length."
^DD(101.439,.01,21,0)="^^1^1^2941117^^^^"
^DD(101.439,.01,21,1,0)="This is the name of a set to which this orderable item belongs."
^DD(101.439,.01,"DT")="2960806"
^DD(101.439,2,0)="QO ONLY^S^1:YES;^0;2^Q"
^DD(101.439,2,1,0)="^.1"
^DD(101.439,2,1,1,0)="101.43^AQO^MUMPS"
^DD(101.439,2,1,1,1)="D QO^ORDD43(X)"
^DD(101.439,2,1,1,2)="D QO^ORDD43("""")"
^DD(101.439,2,1,1,"%D",0)="^^3^3^3021106^"
^DD(101.439,2,1,1,"%D",1,0)="This index adds data to the 5th piece of the ""S.xxx"" xrefs to tell CPRS"
^DD(101.439,2,1,1,"%D",2,0)="GUI whether or not to allow this item to be selectable in the regular"
^DD(101.439,2,1,1,"%D",3,0)="order dialog for the set, or if it should be orderable via quick orders."
^DD(101.439,2,1,1,"DT")="3021106"
^DD(101.439,2,3)="Enter YES if this item should only be orderable via quick orders."
^DD(101.439,2,21,0)="^^2^2^3021106^"
^DD(101.439,2,21,1,0)="This field determines if the item may be ordered via the regular order"
^DD(101.439,2,21,2,0)="dialog for this Set, or only via predefined quick orders."
^DD(101.439,2,"DT")="3021106"
^DD(101.439,"B","QO ONLY",2)=""
^DD(101.439,"B","SET",.01)=""
^DD(101.439,"GL",0,1,.01)=""
^DD(101.439,"GL",0,2,2)=""
^DD(101.439,"IX",.01)=""
^DD(101.439,"IX",2)=""
^DD(101.44,0)="FIELD^^20^4"
^DD(101.44,0,"DDA")="N"
^DD(101.44,0,"DT")="3001112"
^DD(101.44,0,"IX","B",101.44,.01)=""
^DD(101.44,0,"IX","C",101.441,.01)=""
^DD(101.44,0,"NM","ORDER QUICK VIEW")=""
^DD(101.44,0,"VR")="3.0"
^DD(101.44,0,"VRPK")="OR"
^DD(101.44,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(101.44,.01,1,0)="^.1"
^DD(101.44,.01,1,1,0)="101.44^B"
^DD(101.44,.01,1,1,1)="S ^ORD(101.44,""B"",$E(X,1,30),DA)="""""
^DD(101.44,.01,1,1,2)="K ^ORD(101.44,""B"",$E(X,1,30),DA)"
^DD(101.44,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(101.44,.01,21,0)="^^2^2^3010416^"
^DD(101.44,.01,21,1,0)="This is the name for the list to be displayed by a Windows Listview"
^DD(101.44,.01,21,2,0)="control."
^DD(101.44,.01,23,0)="^^3^3^3010416^"
^DD(101.44,.01,23,1,0)="Quick order lists will be in the namespace, ORWDQ.  Orderable item lists"
^DD(101.44,.01,23,2,0)="will be in the namespace, ORWDSET.  Lists that are about to be purged will"
^DD(101.44,.01,23,3,0)="be in the namespace, ORWDOLD."
^DD(101.44,6,0)="LAST UPDATE^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(101.44,6,3)="Answer must be 1-15 characters in length."
^DD(101.44,6,21,0)="^.001^1^1^3010416^^^"
^DD(101.44,6,21,1,0)="The contains the time when the items in the list were last built."
^DD(101.44,6,23,0)="^.001^1^1^3010416^^"
^DD(101.44,6,23,1,0)="Timestamp is in $H format."
^DD(101.44,6,"DT")="3001023"
^DD(101.44,10,0)="QUICK ORDER^101.441PA^^10;0"
^DD(101.44,10,21,0)="^^1^1^3010416^"
^DD(101.44,10,21,1,0)="This multiple contains the quick orders that belong to a given list."
^DD(101.44,20,0)="SET MEMBER^101.442PA^^20;0"
^DD(101.44,20,21,0)="^^2^2^3010416^"
^DD(101.44,20,21,1,0)="This multiple contains the orderable items in a specific subset (lab,"
^DD(101.44,20,21,2,0)="inpatient meds, diets, etc.)."
^DD(101.44,"B","LAST UPDATE",6)=""
^DD(101.44,"B","NAME",.01)=""
^DD(101.44,"B","QUICK ORDER",10)=""
^DD(101.44,"B","SET MEMBER",20)=""
^DD(101.44,"GL",0,1,.01)=""
^DD(101.44,"GL",0,6,6)=""
^DD(101.44,"GL",10,0,10)=""
^DD(101.44,"GL",20,0,20)=""
^DD(101.44,"IX",.01)=""
^DD(101.44,"RQ",.01)=""
^DD(101.44,"SB",101.441,10)=""
^DD(101.44,"SB",101.442,20)=""
^DD(101.441,0)="QUICK ORDER SUB-FIELD^^2^2"
^DD(101.441,0,"DT")="3001023"
^DD(101.441,0,"IX","AC",101.441,2)=""
^DD(101.441,0,"NM","QUICK ORDER")=""
^DD(101.441,0,"UP")="101.44"
^DD(101.441,.01,0)="QUICK ORDER^MP101.41'^ORD(101.41,^0;1^Q"
^DD(101.441,.01,1,0)="^.1"
^DD(101.441,.01,1,1,0)="101.44^C"
^DD(101.441,.01,1,1,1)="S ^ORD(101.44,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(101.441,.01,1,1,2)="K ^ORD(101.44,""C"",$E(X,1,30),DA(1),DA)"
^DD(101.441,.01,1,1,"%D",0)="^^3^3^3060227^"
^DD(101.441,.01,1,1,"%D",1,0)="This cross reference is used to ensure that quick order views of"
^DD(101.441,.01,1,1,"%D",2,0)="personal quick orders are deleted when personal quick orders"
^DD(101.441,.01,1,1,"%D",3,0)="are deleted."
^DD(101.441,.01,1,1,"DT")="3060227"
^DD(101.441,.01,3)="Select a quick order."
^DD(101.441,.01,21,0)="^.001^1^1^3010416^^"
^DD(101.441,.01,21,1,0)="This points to a quick order in the Order Dialog file (101.41)."
^DD(101.441,.01,"DT")="3060227"
^DD(101.441,2,0)="DISPLAY TEXT^F^^0;2^K:$L(X)>132!($L(X)<1) X"
^DD(101.441,2,1,0)="^.1"
^DD(101.441,2,1,1,0)="101.441^AC^MUMPS"
^DD(101.441,2,1,1,1)="S ^ORD(101.44,DA(1),10,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(101.441,2,1,1,2)="K ^ORD(101.44,DA(1),10,""C"",$$UP^XLFSTR(X),DA)"
^DD(101.441,2,1,1,"%D",0)="^^2^2^3010416^"
^DD(101.441,2,1,1,"%D",1,0)="Indexes the view list alphabetically by uppercase display text.  Used for"
^DD(101.441,2,1,1,"%D",2,0)="synchronizing the list with what is typed by the user."
^DD(101.441,2,1,1,"DT")="3001023"
^DD(101.441,2,3)="Answer must be 1-132 characters in length."
^DD(101.441,2,21,0)="^.001^1^1^3010416^^"
^DD(101.441,2,21,1,0)="This contains the text to display in the view list."
^DD(101.441,2,"DT")="3001023"
^DD(101.441,"B","DISPLAY TEXT",2)=""
^DD(101.441,"B","QUICK ORDER",.01)=""
^DD(101.441,"GL",0,1,.01)=""
^DD(101.441,"GL",0,2,2)=""
^DD(101.441,"IX",.01)=""
^DD(101.441,"IX",2)=""
^DD(101.442,0)="SET MEMBER SUB-FIELD^^2^2"
^DD(101.442,0,"DT")="3001112"
^DD(101.442,0,"IX","AC",101.442,2)=""
^DD(101.442,0,"IX","B",101.442,.01)=""
^DD(101.442,0,"NM","SET MEMBER")=""
^DD(101.442,0,"UP")="101.44"
^DD(101.442,.01,0)="SET MEMBER^MP101.43'^ORD(101.43,^0;1^Q"
^DD(101.442,.01,1,0)="^.1^^0"
^DD(101.442,.01,1,1,0)="101.442^B"
^DD(101.442,.01,1,1,1)="S ^ORD(101.44,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(101.442,.01,1,1,2)="K ^ORD(101.44,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(101.442,.01,3)="Enter a member for this orderable item set."
^DD(101.442,.01,21,0)="^.001^1^1^3010416^^^"
^DD(101.442,.01,21,1,0)="This points to an item in the Orderable Item file (101.43)."
^DD(101.442,.01,"DT")="3001112"
^DD(101.442,2,0)="DISPLAY TEXT^F^^0;2^K:$L(X)>132!($L(X)<1) X"
^DD(101.442,2,1,0)="^.1"
^DD(101.442,2,1,1,0)="101.442^AC^MUMPS"
^DD(101.442,2,1,1,1)="S ^ORD(101.44,DA(1),20,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(101.442,2,1,1,2)="K ^ORD(101.44,DA(1),20,""C"",$$UP^XLFSTR(X),DA)"
^DD(101.442,2,1,1,"%D",0)="^^2^2^3010416^"
^DD(101.442,2,1,1,"%D",1,0)="Indexes the view list alphabetically by uppercase display text.  Used for"
^DD(101.442,2,1,1,"%D",2,0)="synchronizing the list with what is typed by the user."
^DD(101.442,2,1,1,"DT")="3001112"
^DD(101.442,2,3)="Answer must be 1-132 characters in length."
^DD(101.442,2,21,0)="^^1^1^3010416^"
^DD(101.442,2,21,1,0)="This is the text that is displayed in the view list."
^DD(101.442,2,"DT")="3001112"
^DD(101.442,"B","DISPLAY TEXT",2)=""
^DD(101.442,"B","SET MEMBER",.01)=""
^DD(101.442,"GL",0,1,.01)=""
^DD(101.442,"GL",0,2,2)=""
^DD(101.442,"IX",.01)=""
^DD(101.442,"IX",2)=""
^DD(102.21,0)="FIELD^^20^9"
^DD(102.21,0,"DDA")="N"
^DD(102.21,0,"DT")="3021103"
^DD(102.21,0,"IX","B",102.21,.01)=""
^DD(102.21,0,"IX","C",102.21,.01)=""
^DD(102.21,0,"IX","T",102.21,7)=""
^DD(102.21,0,"NM","CPRS QUERY DEFINITION")=""
^DD(102.21,0,"PT",102.21,6)=""
^DD(102.21,0,"PT",102.211,2)=""
^DD(102.21,0,"VR")="3.0"
^DD(102.21,0,"VRPK")="OR"
^DD(102.21,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(102.21,.01,1,0)="^.1"
^DD(102.21,.01,1,1,0)="102.21^B"
^DD(102.21,.01,1,1,1)="S ^ORD(102.21,""B"",$E(X,1,30),DA)="""""
^DD(102.21,.01,1,1,2)="K ^ORD(102.21,""B"",$E(X,1,30),DA)"
^DD(102.21,.01,1,2,0)="102.21^C^MUMPS"
^DD(102.21,.01,1,2,1)="S ^ORD(102.21,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(102.21,.01,1,2,2)="K ^ORD(102.21,""C"",$$UP^XLFSTR(X),DA)"
^DD(102.21,.01,1,2,"%D",0)="^^1^1^3020924^"
^DD(102.21,.01,1,2,"%D",1,0)="Upper case xref for full lookup"
^DD(102.21,.01,1,2,"DT")="3020924"
^DD(102.21,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(102.21,.01,21,0)="^^3^3^3030110^"
^DD(102.21,.01,21,1,0)="This is the name of the report or criterion.  Personally created reports "
^DD(102.21,.01,21,2,0)="are stored as RPTUduz user-created-name.  This assures uniqueness of "
^DD(102.21,.01,21,3,0)="personal custom reports."
^DD(102.21,.01,"DT")="3020924"
^DD(102.21,2,0)="DISPLAY TEXT^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(102.21,2,3)="Answer must be 3-30 characters in length."
^DD(102.21,2,21,0)="^^2^2^3020908^"
^DD(102.21,2,21,1,0)="This is the text that is displayed in the list box when selecting a"
^DD(102.21,2,21,2,0)="criterion or a report."
^DD(102.21,2,"DT")="3020908"
^DD(102.21,3,0)="DISABLE^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(102.21,3,3)="Answer must be 3-30 characters in length."
^DD(102.21,3,21,0)="^^1^1^3020908^"
^DD(102.21,3,21,1,0)="This is the text that is desplayed when the definition is disabled."
^DD(102.21,3,"DT")="3020908"
^DD(102.21,4,0)="TYPE^RS^C:constraint;R:report;S:search item;B:baseline;^0;4^Q"
^DD(102.21,4,3)="Enter the type of this definition (constraint, search item, or report)."
^DD(102.21,4,21,0)="^^1^1^3020908^"
^DD(102.21,4,21,1,0)="This specifies whether the record is a report or a criterion."
^DD(102.21,4,"DT")="3020916"
^DD(102.21,5,0)="OWNER^P200'^VA(200,^0;5^Q"
^DD(102.21,5,3)="Enter the person to whom this report belongs."
^DD(102.21,5,21,0)="^^1^1^3020908^"
^DD(102.21,5,21,1,0)="This contains the owner of a custom report."
^DD(102.21,5,"DT")="3020908"
^DD(102.21,6,0)="PARENT^P102.21'^ORD(102.21,^0;6^Q"
^DD(102.21,6,3)="Select the search item that this entry is subordinate to."
^DD(102.21,6,12)="Only criteria may have a hierarchical relationship at this time."
^DD(102.21,6,12.1)="I $P(^ORD(102.21,Y,0),U,4)=""C"""
^DD(102.21,6,21,0)="^^2^2^3020908^"
^DD(102.21,6,21,1,0)="This identifies the entry that is the parent criterion.  Criteria may"
^DD(102.21,6,21,2,0)="appear in a hierarchy."
^DD(102.21,6,"DT")="3020916"
^DD(102.21,7,0)="TAG^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<1000000)!(X?.E1"".""1N.N) X"
^DD(102.21,7,1,0)="^.1"
^DD(102.21,7,1,1,0)="102.21^T"
^DD(102.21,7,1,1,1)="S ^ORD(102.21,""T"",$E(X,1,30),DA)="""""
^DD(102.21,7,1,1,2)="K ^ORD(102.21,""T"",$E(X,1,30),DA)"
^DD(102.21,7,1,1,"%D",0)="^^1^1^3021026^"
^DD(102.21,7,1,1,"%D",1,0)="Allows looking up a report name by the windows tag"
^DD(102.21,7,1,1,"DT")="3021026"
^DD(102.21,7,3)="Type a Number between 1000000 and 9999999, 0 Decimal Digits"
^DD(102.21,7,21,0)="^^2^2^3021026^"
^DD(102.21,7,21,1,0)="This contains an integer that matches the Tag property of the Windows"
^DD(102.21,7,21,2,0)="control that references this criterion."
^DD(102.21,7,"DT")="3021103"
^DD(102.21,10,0)="QUERY TEXT^102.211A^^1;0"
^DD(102.21,10,21,0)="^^2^2^3020908^"
^DD(102.21,10,21,1,0)="This multiple allows a sequence of captions to be defined that comprise"
^DD(102.21,10,21,2,0)="the default text of a query description."
^DD(102.21,20,0)="FORMAT^102.212^^2;0"
^DD(102.21,20,21,0)="^.001^2^2^3020928^^"
^DD(102.21,20,21,1,0)="This multiple contains formatting information for the columns of the"
^DD(102.21,20,21,2,0)="report."
^DD(102.21,"B","DISABLE",3)=""
^DD(102.21,"B","DISPLAY TEXT",2)=""
^DD(102.21,"B","FORMAT",20)=""
^DD(102.21,"B","NAME",.01)=""
^DD(102.21,"B","OWNER",5)=""
^DD(102.21,"B","PARENT",6)=""
^DD(102.21,"B","QUERY TEXT",10)=""
^DD(102.21,"B","TAG",7)=""
^DD(102.21,"B","TYPE",4)=""
^DD(102.21,"GL",0,1,.01)=""
^DD(102.21,"GL",0,2,2)=""
^DD(102.21,"GL",0,3,3)=""
^DD(102.21,"GL",0,4,4)=""
^DD(102.21,"GL",0,5,5)=""
^DD(102.21,"GL",0,6,6)=""
^DD(102.21,"GL",0,7,7)=""
^DD(102.21,"GL",1,0,10)=""
^DD(102.21,"GL",2,0,20)=""
^DD(102.21,"IX",.01)=""
^DD(102.21,"IX",7)=""
^DD(102.21,"RQ",.01)=""
^DD(102.21,"RQ",4)=""
^DD(102.21,"SB",102.211,10)=""
^DD(102.21,"SB",102.212,20)=""
^DD(102.211,0)="QUERY TEXT SUB-FIELD^^10^5"
^DD(102.211,0,"DT")="3020908"
^DD(102.211,0,"IX","B",102.211,.01)=""
^DD(102.211,0,"NM","QUERY TEXT")=""
^DD(102.211,0,"UP")="102.21"
^DD(102.211,.01,0)="SEQUENCE^MNJ7,2^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(102.211,.01,1,0)="^.1"
^DD(102.211,.01,1,1,0)="102.211^B"
^DD(102.211,.01,1,1,1)="S ^ORD(102.21,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(102.211,.01,1,1,2)="K ^ORD(102.21,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(102.211,.01,3)="Type a Number between 1 and 9999, 2 Decimal Digits"
^DD(102.211,.01,21,0)="^.001^1^1^3020908^^"
^DD(102.211,.01,21,1,0)="This specifies the sequence of each caption that appears in the query text."
^DD(102.211,.01,"DT")="3030207"
^DD(102.211,2,0)="CRITERION^P102.21'^ORD(102.21,^0;2^Q"
^DD(102.211,2,3)="Enter the criterion to which this caption applies."
^DD(102.211,2,21,0)="^^2^2^3020908^"
^DD(102.211,2,21,1,0)="This is the criterion that is the 'parent' of the specific query text"
^DD(102.211,2,21,2,0)="caption."
^DD(102.211,2,"DT")="3020908"
^DD(102.211,3,0)="CONSTRAINT^P102.22'^ORD(102.22,^0;3^Q"
^DD(102.211,3,3)="Enter the constraint (parameter) which is mapped to the editor for this value."
^DD(102.211,3,21,0)="^^2^2^3020908^"
^DD(102.211,3,21,1,0)="This identifies the constraint (parameter) used for this query and the"
^DD(102.211,3,21,2,0)="range of values possible along with the editor that should be used."
^DD(102.211,3,"DT")="3020908"
^DD(102.211,4,0)="CAPTION^F^^0;4^K:$L(X)>80!($L(X)<1) X"
^DD(102.211,4,3)="Answer must be 1-80 characters in length."
^DD(102.211,4,21,0)="^.001^1^1^3021111^^"
^DD(102.211,4,21,1,0)="This is the caption text that appears for the query."
^DD(102.211,4,"DT")="3020908"
^DD(102.211,10,0)="VALUES^102.2111^^1;0"
^DD(102.211,"B","CAPTION",4)=""
^DD(102.211,"B","CONSTRAINT",3)=""
^DD(102.211,"B","CRITERION",2)=""
^DD(102.211,"B","SEQUENCE",.01)=""
^DD(102.211,"B","VALUES",10)=""
^DD(102.211,"GL",0,1,.01)=""
^DD(102.211,"GL",0,2,2)=""
^DD(102.211,"GL",0,3,3)=""
^DD(102.211,"GL",0,4,4)=""
^DD(102.211,"GL",1,0,10)=""
^DD(102.211,"IX",.01)=""
^DD(102.211,"SB",102.2111,10)=""
^DD(102.2111,0)="VALUES SUB-FIELD^^.01^1"
^DD(102.2111,0,"DT")="3020908"
^DD(102.2111,0,"IX","B",102.2111,.01)=""
^DD(102.2111,0,"NM","VALUES")=""
^DD(102.2111,0,"UP")="102.211"
^DD(102.2111,.01,0)="VALUE^MF^^0;1^K:$L(X)>235!($L(X)<1) X"
^DD(102.2111,.01,1,0)="^.1"
^DD(102.2111,.01,1,1,0)="102.2111^B"
^DD(102.2111,.01,1,1,1)="S ^ORD(102.21,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(102.2111,.01,1,1,2)="K ^ORD(102.21,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(102.2111,.01,3)="Answer must be 1-235 characters in length."
^DD(102.2111,.01,21,0)="^.001^1^1^3020918^^"
^DD(102.2111,.01,21,1,0)="This constains the actual values passed as constraints to this query."
^DD(102.2111,.01,"DT")="3020918"
^DD(102.2111,"B","VALUE",.01)=""
^DD(102.2111,"GL",0,1,.01)=""
^DD(102.2111,"IX",.01)=""
^DD(102.212,0)="FORMAT SUB-FIELD^^3^3"
^DD(102.212,0,"DT")="3020924"
^DD(102.212,0,"IX","B",102.212,.01)=""
^DD(102.212,0,"NM","FORMAT")=""
^DD(102.212,0,"UP")="102.21"
^DD(102.212,.01,0)="COLUMN^MNJ10,2^^0;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(102.212,.01,1,0)="^.1"
^DD(102.212,.01,1,1,0)="102.212^B"
^DD(102.212,.01,1,1,1)="S ^ORD(102.21,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(102.212,.01,1,1,2)="K ^ORD(102.21,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(102.212,.01,3)="Type a Number between 0 and 9999999, 2 Decimal Digits"
^DD(102.212,.01,21,0)="^.001^1^1^3020928^^^"
^DD(102.212,.01,21,1,0)="This is the sequence number for the column."
^DD(102.212,.01,"DT")="3020928"
^DD(102.212,2,0)="DISPLAY FIELD^P102.24'^ORD(102.24,^0;2^Q"
^DD(102.212,2,3)="Select the Display Field for this sequence (column) number."
^DD(102.212,2,21,0)="^^2^2^3020924^"
^DD(102.212,2,21,1,0)="This specifies which field should be displayed in this column of the"
^DD(102.212,2,21,2,0)="report."
^DD(102.212,2,"DT")="3020924"
^DD(102.212,3,0)="PIXEL WIDTH^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(102.212,3,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(102.212,3,21,0)="^^1^1^3020924^"
^DD(102.212,3,21,1,0)="This specifies the initial width of the column in pixels."
^DD(102.212,3,"DT")="3020924"
^DD(102.212,"B","COLUMN",.01)=""
^DD(102.212,"B","DISPLAY FIELD",2)=""
^DD(102.212,"B","PIXEL WIDTH",3)=""
^DD(102.212,"GL",0,1,.01)=""
^DD(102.212,"GL",0,2,2)=""
^DD(102.212,"GL",0,3,3)=""
^DD(102.212,"IX",.01)=""
^DD(102.22,0)="FIELD^^2^2"
^DD(102.22,0,"DT")="3020904"
^DD(102.22,0,"IX","B",102.22,.01)=""
^DD(102.22,0,"IX","C",102.22,.01)=""
^DD(102.22,0,"NM","CPRS QUERY CONSTRAINT")=""
^DD(102.22,0,"PT",102.211,3)=""
^DD(102.22,0,"VR")="3.0"
^DD(102.22,0,"VRPK")="OR"
^DD(102.22,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(102.22,.01,1,0)="^.1"
^DD(102.22,.01,1,1,0)="102.22^B"
^DD(102.22,.01,1,1,1)="S ^ORD(102.22,""B"",$E(X,1,30),DA)="""""
^DD(102.22,.01,1,1,2)="K ^ORD(102.22,""B"",$E(X,1,30),DA)"
^DD(102.22,.01,1,2,0)="102.22^C^MUMPS"
^DD(102.22,.01,1,2,1)="S ^ORD(102.22,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(102.22,.01,1,2,2)="K ^ORD(102.22,""C"",$$UP^XLFSTR(X),DA)"
^DD(102.22,.01,1,2,"%D",0)="^.101^1^1^3020924^^"
^DD(102.22,.01,1,2,"%D",1,0)="Uppercase name for lookup."
^DD(102.22,.01,1,2,"DT")="3020906"
^DD(102.22,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(102.22,.01,21,0)="^^3^3^3030110^"
^DD(102.22,.01,21,1,0)="This is the name of the constraint.  The graphical interface references"
^DD(102.22,.01,21,2,0)="values for the constraint using this name.  The constraint is passed"
^DD(102.22,.01,21,3,0)="into the query processer as a name=value pair, also using this name."
^DD(102.22,.01,"DT")="3020906"
^DD(102.22,2,0)="EDITOR^RP102.23'^ORD(102.23,^0;2^Q"
^DD(102.22,2,3)="Enter the editor that should be invoked for this constraint."
^DD(102.22,2,21,0)="^^2^2^3020904^"
^DD(102.22,2,21,1,0)="Identifies the editor that would be used in the graphical interface that"
^DD(102.22,2,21,2,0)="should be used whenever the constraint needs to be modified."
^DD(102.22,2,"DT")="3020904"
^DD(102.22,"B","EDITOR",2)=""
^DD(102.22,"B","NAME",.01)=""
^DD(102.22,"GL",0,1,.01)=""
^DD(102.22,"GL",0,2,2)=""
^DD(102.22,"IX",.01)=""
^DD(102.22,"RQ",.01)=""
^DD(102.22,"RQ",2)=""
^DD(102.23,0)="FIELD^^.01^2"
^DD(102.23,0,"DDA")="N"
^DD(102.23,0,"DT")="3030115"
^DD(102.23,0,"IX","B",102.23,.01)=""
^DD(102.23,0,"IX","C",102.23,.01)=""
^DD(102.23,0,"NM","CPRS QUERY EDIT CONTROL")=""
^DD(102.23,0,"PT",102.22,2)=""
^DD(102.23,0,"VR")="3.0"
^DD(102.23,0,"VRPK")="OR"
^DD(102.23,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(102.23,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(102.23,.001,21,0)="^^2^2^3030115^"
^DD(102.23,.001,21,1,0)="This is the integer constant by which the specific editor is identified"
^DD(102.23,.001,21,2,0)="by the client software."
^DD(102.23,.001,"DT")="3030115"
^DD(102.23,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(102.23,.01,1,0)="^.1"
^DD(102.23,.01,1,1,0)="102.23^B"
^DD(102.23,.01,1,1,1)="S ^ORD(102.23,""B"",$E(X,1,30),DA)="""""
^DD(102.23,.01,1,1,2)="K ^ORD(102.23,""B"",$E(X,1,30),DA)"
^DD(102.23,.01,1,2,0)="102.23^C^MUMPS"
^DD(102.23,.01,1,2,1)="S ^ORD(102.23,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(102.23,.01,1,2,2)="K ^ORD(102.23,""C"",$$UP^XLFSTR(X),DA)"
^DD(102.23,.01,1,2,"%D",0)="^.101^1^1^3020906^^"
^DD(102.23,.01,1,2,"%D",1,0)="Uppercase cross reference for the name field."
^DD(102.23,.01,1,2,"DT")="3020906"
^DD(102.23,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(102.23,.01,21,0)="^^1^1^3030110^"
^DD(102.23,.01,21,1,0)="The is the human-readable name of the editor."
^DD(102.23,.01,"DT")="3020909"
^DD(102.23,"B","NAME",.01)=""
^DD(102.23,"B","NUMBER",.001)=""
^DD(102.23,"GL",0,1,.01)=""
^DD(102.23,"IX",.01)=""
^DD(102.23,"RQ",.01)=""
^DD(102.24,0)="FIELD^^10^5"
^DD(102.24,0,"DT")="3020925"
^DD(102.24,0,"IX","B",102.24,.01)=""
^DD(102.24,0,"IX","C",102.24,.01)=""
^DD(102.24,0,"NM","CPRS QUERY DISPLAY FIELDS")=""
^DD(102.24,0,"PT",102.212,2)=""
^DD(102.24,0,"VR")="3.0"
^DD(102.24,0,"VRPK")="OR"
^DD(102.24,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(102.24,.01,1,0)="^.1"
^DD(102.24,.01,1,1,0)="102.24^B"
^DD(102.24,.01,1,1,1)="S ^ORD(102.24,""B"",$E(X,1,30),DA)="""""
^DD(102.24,.01,1,1,2)="K ^ORD(102.24,""B"",$E(X,1,30),DA)"
^DD(102.24,.01,1,2,0)="102.24^C^MUMPS"
^DD(102.24,.01,1,2,1)="S ^ORD(102.24,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(102.24,.01,1,2,2)="K ^ORD(102.24,""C"",$$UP^XLFSTR(X),DA)"
^DD(102.24,.01,1,2,"%D",0)="^^1^1^3020929^"
^DD(102.24,.01,1,2,"%D",1,0)="Uppercase index for lookup"
^DD(102.24,.01,1,2,"DT")="3020929"
^DD(102.24,.01,3)="Answer must be 3-30 characters in length."
^DD(102.24,.01,21,0)="^.001^1^1^3030110^^"
^DD(102.24,.01,21,1,0)="Reference field name (used by software)."
^DD(102.24,.01,"DT")="3020929"
^DD(102.24,2,0)="DISPLAY TEXT^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(102.24,2,3)="Answer must be 3-30 characters in length."
^DD(102.24,2,21,0)="^^2^2^3020924^"
^DD(102.24,2,21,1,0)="This is the text that is displayed in the listbox when selecting fields"
^DD(102.24,2,21,2,0)="for the report."
^DD(102.24,2,"DT")="3020924"
^DD(102.24,3,0)="HEADER TEXT^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(102.24,3,3)="Answer must be 3-30 characters in length."
^DD(102.24,3,21,0)="^^1^1^3020924^"
^DD(102.24,3,21,1,0)="This is the default text to be used in the header of the report."
^DD(102.24,3,"DT")="3020924"
^DD(102.24,4,0)="SORT TYPE^S^D:date/time;F:free text;N:numeric;^0;4^Q"
^DD(102.24,4,3)="Enter the type of sorting that applies to this field."
^DD(102.24,4,21,0)="^^3^3^3020924^"
^DD(102.24,4,21,1,0)="Specifies the type of sort when the column is sorted.  Date/Time sorts"
^DD(102.24,4,21,2,0)="use the internal date/time to sort.  Free text sorts use the visible"
^DD(102.24,4,21,3,0)="text for the sort."
^DD(102.24,4,"DT")="3020925"
^DD(102.24,10,0)="SAMPLE DATA^102.241^^1;0"
^DD(102.24,10,21,0)="^.001^2^2^3021006^^"
^DD(102.24,10,21,1,0)="This multiple contains sample data for this type of field that may be"
^DD(102.24,10,21,2,0)="in a preview report."
^DD(102.24,"B","DISPLAY TEXT",2)=""
^DD(102.24,"B","HEADER TEXT",3)=""
^DD(102.24,"B","NAME",.01)=""
^DD(102.24,"B","SAMPLE DATA",10)=""
^DD(102.24,"B","SORT TYPE",4)=""
^DD(102.24,"GL",0,1,.01)=""
^DD(102.24,"GL",0,2,2)=""
^DD(102.24,"GL",0,3,3)=""
^DD(102.24,"GL",0,4,4)=""
^DD(102.24,"GL",1,0,10)=""
^DD(102.24,"IX",.01)=""
^DD(102.24,"RQ",.01)=""
^DD(102.24,"RQ",2)=""
^DD(102.24,"SB",102.241,10)=""
^DD(102.241,0)="SAMPLE DATA SUB-FIELD^^.01^1"
^DD(102.241,0,"DT")="3020925"
^DD(102.241,0,"IX","B",102.241,.01)=""
^DD(102.241,0,"NM","SAMPLE DATA")=""
^DD(102.241,0,"UP")="102.24"
^DD(102.241,.01,0)="VALUE^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(102.241,.01,1,0)="^.1"
^DD(102.241,.01,1,1,0)="102.241^B"
^DD(102.241,.01,1,1,1)="S ^ORD(102.24,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(102.241,.01,1,1,2)="K ^ORD(102.24,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(102.241,.01,3)="Answer must be 1-80 characters in length."
^DD(102.241,.01,21,0)="^.001^2^2^3021006^^^^"
^DD(102.241,.01,21,1,0)="This value should be either a string of text or a date/time in internal"
^DD(102.241,.01,21,2,0)="Fileman format."
^DD(102.241,.01,"DT")="3020925"
^DD(102.241,"B","VALUE",.01)=""
^DD(102.241,"GL",0,1,.01)=""
^DD(102.241,"IX",.01)=""
^DD(102.3,0)="FIELD^^10^11"
^DD(102.3,0,"DT")="3030605"
^DD(102.3,0,"IX","B",102.3,.01)=""
^DD(102.3,0,"IX","C",102.3,3)=""
^DD(102.3,0,"NM","PATIENT TASK")=""
^DD(102.3,0,"VR")="1.0"
^DD(102.3,0,"VRPK")="ORRC"
^DD(102.3,.01,0)="CREATED^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(102.3,.01,1,0)="^.1"
^DD(102.3,.01,1,1,0)="102.3^B"
^DD(102.3,.01,1,1,1)="S ^ORRT(102.3,""B"",$E(X,1,30),DA)="""""
^DD(102.3,.01,1,1,2)="K ^ORRT(102.3,""B"",$E(X,1,30),DA)"
^DD(102.3,.01,3)="Enter the date and time this task was created."
^DD(102.3,.01,21,0)="^^1^1^3030112^"
^DD(102.3,.01,21,1,0)="This is the date and time the task was created."
^DD(102.3,.01,"DT")="3030112"
^DD(102.3,1,0)="SUBJECT^RF^^1;1^K:$L(X)>100!($L(X)<1) X"
^DD(102.3,1,3)="Answer must be 1-100 characters in length."
^DD(102.3,1,21,0)="^.001^1^1^3030112^^"
^DD(102.3,1,21,1,0)="This is a description of the task."
^DD(102.3,1,"DT")="3030112"
^DD(102.3,2,0)="USER^P200'^VA(200,^0;2^Q"
^DD(102.3,2,3)="Enter the user who created this task."
^DD(102.3,2,21,0)="^^1^1^3030112^"
^DD(102.3,2,21,1,0)="This is the user who created the task for this patient."
^DD(102.3,2,"DT")="3030112"
^DD(102.3,3,0)="PATIENT^RP2'^DPT(^0;3^Q"
^DD(102.3,3,1,0)="^.1"
^DD(102.3,3,1,1,0)="102.3^C"
^DD(102.3,3,1,1,1)="S ^ORRT(102.3,""C"",$E(X,1,30),DA)="""""
^DD(102.3,3,1,1,2)="K ^ORRT(102.3,""C"",$E(X,1,30),DA)"
^DD(102.3,3,1,1,"DT")="3030204"
^DD(102.3,3,3)="Enter the patient who is the object of this task."
^DD(102.3,3,21,0)="^^1^1^3030112^"
^DD(102.3,3,21,1,0)="This is the patient that this task applies to."
^DD(102.3,3,"DT")="3030605"
^DD(102.3,4,0)="PRIORITY^S^L:LOW;M:MEDIUM;H:HIGH;^0;4^Q"
^DD(102.3,4,3)="Enter the priority of this task."
^DD(102.3,4,21,0)="^^1^1^3030112^"
^DD(102.3,4,21,1,0)="This is the priority for accomplishing this task."
^DD(102.3,4,"DT")="3030112"
^DD(102.3,5,0)="DUE DATE^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(102.3,5,3)="Enter the date [and time] by which this task is to be completed."
^DD(102.3,5,21,0)="^^1^1^3030112^"
^DD(102.3,5,21,1,0)="This is the date [and time] by which this task should be completed."
^DD(102.3,5,"DT")="3030112"
^DD(102.3,6,0)="COMPLETED^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(102.3,6,3)="Enter the date and time this task was completed."
^DD(102.3,6,21,0)="^.001^1^1^3030112^^^"
^DD(102.3,6,21,1,0)="This field indicates when this task was completed."
^DD(102.3,6,"DT")="3030605"
^DD(102.3,7,0)="COMPLETED BY^P200'^VA(200,^0;7^Q"
^DD(102.3,7,3)="Enter the user who completed this task."
^DD(102.3,7,21,0)="^^1^1^3030112^"
^DD(102.3,7,21,1,0)="This is the user who marked this task as complete."
^DD(102.3,7,"DT")="3030112"
^DD(102.3,8,0)="CANCELED^D^^0;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(102.3,8,3)="Enter the date and time this task was canceled."
^DD(102.3,8,21,0)="^^1^1^3030605^"
^DD(102.3,8,21,1,0)="This field indicates when this task was canceled."
^DD(102.3,8,"DT")="3030605"
^DD(102.3,9,0)="CANCELED BY^P200'^VA(200,^0;9^Q"
^DD(102.3,9,3)="Enter the user who canceled this task."
^DD(102.3,9,21,0)="^^1^1^3030605^"
^DD(102.3,9,21,1,0)="This is the user who marked this task as canceled."
^DD(102.3,9,"DT")="3030605"
^DD(102.3,10,0)="LINKED ITEMS^102.31A^^2;0"
^DD(102.3,10,21,0)="^.001^2^2^3030206^^"
^DD(102.3,10,21,1,0)="This multiple contains identifiers for items that have been linked to"
^DD(102.3,10,21,2,0)="this task."
^DD(102.3,10,23,0)="^.001^5^5^3030206^^"
^DD(102.3,10,23,1,0)="Entries will be a string consisting of two ':' delimited pieces, where "
^DD(102.3,10,23,2,0)="the first will be three uppercase letters indicating the file or source "
^DD(102.3,10,23,3,0)="of the data (i.e. ORD=Orders file #100, DOC=TIU Documents file #8925, etc)"
^DD(102.3,10,23,4,0)="and the second will be a data string containing whatever is needed to"
^DD(102.3,10,23,5,0)="identify the item in that file."
^DD(102.3,"B","CANCELED",8)=""
^DD(102.3,"B","CANCELED BY",9)=""
^DD(102.3,"B","COMPLETED",6)=""
^DD(102.3,"B","COMPLETED BY",7)=""
^DD(102.3,"B","CREATED",.01)=""
^DD(102.3,"B","DUE DATE",5)=""
^DD(102.3,"B","LINKED ITEMS",10)=""
^DD(102.3,"B","PATIENT",3)=""
^DD(102.3,"B","PRIORITY",4)=""
^DD(102.3,"B","SUBJECT",1)=""
^DD(102.3,"B","USER",2)=""
^DD(102.3,"GL",0,1,.01)=""
^DD(102.3,"GL",0,2,2)=""
^DD(102.3,"GL",0,3,3)=""
^DD(102.3,"GL",0,4,4)=""
^DD(102.3,"GL",0,5,5)=""
^DD(102.3,"GL",0,6,6)=""
^DD(102.3,"GL",0,7,7)=""
^DD(102.3,"GL",0,8,8)=""
^DD(102.3,"GL",0,9,9)=""
^DD(102.3,"GL",1,1,1)=""
^DD(102.3,"GL",2,0,10)=""
^DD(102.3,"IX",.01)=""
^DD(102.3,"IX",3)=""
^DD(102.3,"RQ",.01)=""
^DD(102.3,"RQ",1)=""
^DD(102.3,"RQ",3)=""
^DD(102.3,"SB",102.31,10)=""
^DD(102.31,0)="LINKED ITEMS SUB-FIELD^^.01^1"
^DD(102.31,0,"DT")="3030206"
^DD(102.31,0,"IX","B",102.31,.01)=""
^DD(102.31,0,"NM","LINKED ITEMS")=""
^DD(102.31,0,"UP")="102.3"
^DD(102.31,.01,0)="ITEM^MF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(102.31,.01,1,0)="^.1"
^DD(102.31,.01,1,1,0)="102.31^B"
^DD(102.31,.01,1,1,1)="S ^ORRT(102.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(102.31,.01,1,1,2)="K ^ORRT(102.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(102.31,.01,3)="Answer must be 3-50 characters in length."
^DD(102.31,.01,21,0)="^.001^1^1^3030206^^^^"
^DD(102.31,.01,21,1,0)="This is an item that is relevant to this task."
^DD(102.31,.01,"DT")="3030206"
^DD(102.31,"B","ITEM",.01)=""
^DD(102.31,"GL",0,1,.01)=""
^DD(102.31,"IX",.01)=""
^DD(102.4,0)="FIELD^^3^3"
^DD(102.4,0,"DT")="3030124"
^DD(102.4,0,"IX","B",102.4,.01)=""
^DD(102.4,0,"NM","ORDER ACKNOWLEDGEMENT")=""
^DD(102.4,0,"VR")="1.0"
^DD(102.4,0,"VRPK")="ORRC"
^DD(102.4,.01,0)="ORDER^RP100'^OR(100,^0;1^Q"
^DD(102.4,.01,1,0)="^.1"
^DD(102.4,.01,1,1,0)="102.4^B"
^DD(102.4,.01,1,1,1)="S ^ORA(102.4,""B"",$E(X,1,30),DA)="""""
^DD(102.4,.01,1,1,2)="K ^ORA(102.4,""B"",$E(X,1,30),DA)"
^DD(102.4,.01,3)="Enter the number of an order with results."
^DD(102.4,.01,21,0)="^^2^2^3030124^"
^DD(102.4,.01,21,1,0)="This field contains the number of an order with results from the Orders"
^DD(102.4,.01,21,2,0)="file #100."
^DD(102.4,.01,"DT")="3030124"
^DD(102.4,2,0)="PROVIDER^P200'^VA(200,^0;2^Q"
^DD(102.4,2,3)="Enter the name of the ordering provider for this order."
^DD(102.4,2,21,0)="^^3^3^3030124^"
^DD(102.4,2,21,1,0)="This field contains the provider from the New Person file #200 who placed"
^DD(102.4,2,21,2,0)="this order; this order will be presented to this user in the Care "
^DD(102.4,2,21,3,0)="Management dashboard to view and acknowledge the results."
^DD(102.4,2,"DT")="3030124"
^DD(102.4,3,0)="ACKNOWLEDGED^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(102.4,3,3)="Enter the date/time the results of the order were acknowledged."
^DD(102.4,3,21,0)="^^2^2^3030124^"
^DD(102.4,3,21,1,0)="This field is the date/time that the results of this order were viewed"
^DD(102.4,3,21,2,0)="and acknowledged in the Care Management dashboard."
^DD(102.4,3,"DT")="3030124"
^DD(102.4,"B","ACKNOWLEDGED",3)=""
^DD(102.4,"B","ORDER",.01)=""
^DD(102.4,"B","PROVIDER",2)=""
^DD(102.4,"GL",0,1,.01)=""
^DD(102.4,"GL",0,2,2)=""
^DD(102.4,"GL",0,3,3)=""
^DD(102.4,"IX",.01)=""
^DD(102.4,"RQ",.01)=""
^DD(111,0)="FIELD^^99^9"
^DD(111,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(111,0,"IX","AC",111,99)=""
^DD(111,0,"IX","B",111,.01)=""
^DD(111,0,"IX","C",111,1)=""
^DD(111,0,"IX","D",111.01,.01)=""
^DD(111,0,"NM","DIETS")=" "
^DD(111,0,"PT",111.1,1)=""
^DD(111,0,"PT",111.1,2)=""
^DD(111,0,"PT",111.1,3)=""
^DD(111,0,"PT",111.1,4)=""
^DD(111,0,"PT",111.1,5)=""
^DD(111,0,"PT",115.016,1)=""
^DD(111,0,"PT",115.016,6)=""
^DD(111,0,"PT",115.016,7)=""
^DD(111,0,"PT",115.016,8)=""
^DD(111,0,"PT",115.016,9)=""
^DD(111,0,"PT",115.016,10)=""
^DD(111,0,"PT",115.017,3)=""
^DD(111,0,"PT",115.018,5)=""
^DD(111,0,"PT",115.02,1)=""
^DD(111,0,"PT",115.02,2)=""
^DD(111,0,"PT",115.02,3)=""
^DD(111,0,"PT",115.02,4)=""
^DD(111,0,"PT",115.02,5)=""
^DD(111,0,"PT",119.6,15)=""
^DD(111,0,"PT",119.9,4)=""
^DD(111,0,"PT",119.9,5)=""
^DD(111,0,"PT",119.9,6)=""
^DD(111,0,"PT",119.9,7)=""
^DD(111,0,"PT",119.9,8)=""
^DD(111,0,"PT",119.9,40)=""
^DD(111,0,"PT",119.9,41)=""
^DD(111,0,"PT",119.9,42)=""
^DD(111,0,"PT",119.9,43)=""
^DD(111,0,"PT",119.9,44)=""
^DD(111,0,"PT",119.9,45)=""
^DD(111,0,"PT",119.9,46)=""
^DD(111,0,"PT",119.9,47)=""
^DD(111,0,"PT",119.9,48)=""
^DD(111,0,"PT",119.9,49)=""
^DD(111,0,"SCR")="I '$D(^FH(111,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(111,0,"VR")="5.5"
^DD(111,0,"VRPK")="DIETETICS"
^DD(111,.01,0)="NAME^RFa^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(111,.01,1,0)="^.1"
^DD(111,.01,1,1,0)="111^B"
^DD(111,.01,1,1,1)="S ^FH(111,""B"",$E(X,1,30),DA)="""""
^DD(111,.01,1,1,2)="K ^FH(111,""B"",$E(X,1,30),DA)"
^DD(111,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(111,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(111,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(111,.01,21,0)="^.001^2^2^3030219^^^"
^DD(111,.01,21,1,0)="This field contains the name of a diet or diet modification as"
^DD(111,.01,21,2,0)="it would normally be known to ward/medical personnel."
^DD(111,.01,"AUDIT")="y"
^DD(111,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(111,.01,"DT")="2880108"
^DD(111,1,0)="SYNONYM^F^^0;2^K:$L(X)>12!($L(X)<1) X"
^DD(111,1,1,0)="^.1"
^DD(111,1,1,1,0)="111^C"
^DD(111,1,1,1,1)="S ^FH(111,""C"",$E(X,1,30),DA)="""""
^DD(111,1,1,1,2)="K ^FH(111,""C"",$E(X,1,30),DA)"
^DD(111,1,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(111,1,21,0)="^^2^2^2891120^^^"
^DD(111,1,21,1,0)="This field may contain a synonym for the diet name; the synonym"
^DD(111,1,21,2,0)="is generally terminology known and used by ward/medical personnel."
^DD(111,1,"DT")="2850202"
^DD(111,2,0)="ASK EXPIRATION DATE?^S^Y:YES;N:NO;^0;3^Q"
^DD(111,2,21,0)="^^4^4^2880709^"
^DD(111,2,21,1,0)="This field, when answered YES, will result in the user"
^DD(111,2,21,2,0)="being prompted for a diet expiration date (as well as the"
^DD(111,2,21,3,0)="start date) whenever this diet is contained in a total"
^DD(111,2,21,4,0)="diet order."
^DD(111,2,"DT")="2850608"
^DD(111,3,0)="DIET PRECEDENCE^RNJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(111,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(111,3,21,0)="^^6^6^2880709^"
^DD(111,3,21,1,0)="This is a numerical value which performs two functions:"
^DD(111,3,21,2,0)="no two diet modifications with the same precedence may be"
^DD(111,3,21,3,0)="selected. The same number can therefore be assigned to"
^DD(111,3,21,4,0)="mutually-exclusive diet modifications. Secondly, the diet"
^DD(111,3,21,5,0)="modifications will be listed in precedence order, from"
^DD(111,3,21,6,0)="low to high."
^DD(111,3,"DT")="2850129"
^DD(111,4,0)="PRODUCTION DIET^R*P116.2'^FH(116.2,^0;5^S DIC(""S"")=""I $P(^(0),""""^"""",4)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(111,4,12)="Include only non-combo production diets."
^DD(111,4,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)'=""""Y"""""""
^DD(111,4,21,0)="^^3^3^2880709^"
^DD(111,4,21,1,0)="This field contains the Production Diet entry (file 116.2) which"
^DD(111,4,21,2,0)="would be prepared for this diet modification were it to stand"
^DD(111,4,21,3,0)="alone from other diet modifications."
^DD(111,4,"DT")="2870713"
^DD(111,5,0)="BULLETIN CLINICIAN?^S^Y:YES;N:NO;^0;6^Q"
^DD(111,5,21,0)="^^3^3^3070130^"
^DD(111,5,21,1,0)="This field, if answered YES, will result in a bulletin being"
^DD(111,5,21,2,0)="sent to the clinician(s) responsible for the ward on which the"
^DD(111,5,21,3,0)="patient resides any time this diet modification is ordered."
^DD(111,5,"DT")="2850608"
^DD(111,6,0)="ABBREVIATED LABEL^RF^^0;7^K:$L(X)>12!($L(X)<1) X"
^DD(111,6,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(111,6,21,0)="^^3^3^2880709^"
^DD(111,6,21,1,0)="This is an abbreviated label title used on diet cards; the"
^DD(111,6,21,2,0)="terminology and abbreviations will normally be those used"
^DD(111,6,21,3,0)="by dietetic personnel."
^DD(111,6,"DT")="2850202"
^DD(111,10,0)="ALTERNATE NAME^111.01^^AN;0"
^DD(111,10,21,0)="^^3^3^2880714^^"
^DD(111,10,21,1,0)="This field may be used for any number of alternate names for"
^DD(111,10,21,2,0)="the diet modification. These alternative names will normally"
^DD(111,10,21,3,0)="be those used by ward/medical personnel."
^DD(111,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(111,99,1,0)="^.1"
^DD(111,99,1,1,0)="111^AC^MUMPS"
^DD(111,99,1,1,1)="K:X'=""Y"" ^FH(111,DA,""I"")"
^DD(111,99,1,1,2)="K ^FH(111,DA,""I"")"
^DD(111,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(111,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(111,99,1,1,"%D",2,0)="inactive entries."
^DD(111,99,21,0)="^^2^2^2931116^^"
^DD(111,99,21,1,0)="This field, if answered YES, will prohibit further selection"
^DD(111,99,21,2,0)="of this diet modification by ward personnel."
^DD(111,99,"DT")="2860813"
^DD(111,"AUDIT",.01)=""
^DD(111,"B","ABBREVIATED LABEL",6)=""
^DD(111,"B","ALTERNATE NAME",10)=""
^DD(111,"B","ASK EXPIRATION DATE?",2)=""
^DD(111,"B","BULLETIN CLINICIAN?",5)=""
^DD(111,"B","DIET PRECEDENCE",3)=""
^DD(111,"B","INACTIVE?",99)=""
^DD(111,"B","NAME",.01)=""
^DD(111,"B","PRODUCTION DIET",4)=""
^DD(111,"B","SYNONYM",1)=""
^DD(111,"GL",0,1,.01)=""
^DD(111,"GL",0,2,1)=""
^DD(111,"GL",0,3,2)=""
^DD(111,"GL",0,4,3)=""
^DD(111,"GL",0,5,4)=""
^DD(111,"GL",0,6,5)=""
^DD(111,"GL",0,7,6)=""
^DD(111,"GL","AN",0,10)=""
^DD(111,"GL","I",1,99)=""
^DD(111,"IX",.01)=""
^DD(111,"IX",1)=""
^DD(111,"IX",99)=""
^DD(111,"RQ",.01)=""
^DD(111,"RQ",3)=""
^DD(111,"RQ",4)=""
^DD(111,"RQ",6)=""
^DD(111,"SB",111.01,10)=""
^DD(111.01,0)="ALTERNATE NAME SUB-FIELD^NL^.01^1"
^DD(111.01,0,"NM","ALTERNATE NAME")=" "
^DD(111.01,0,"UP")="111"
^DD(111.01,.01,0)="ALTERNATE NAME^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(111.01,.01,1,0)="^.1"
^DD(111.01,.01,1,1,0)="111^D"
^DD(111.01,.01,1,1,1)="S ^FH(111,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(111.01,.01,1,1,2)="K ^FH(111,""D"",$E(X,1,30),DA(1),DA)"
^DD(111.01,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(111.01,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the ALTERNATE NAME field."
^DD(111.01,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(111.01,.01,21,0)="^^1^1^2880714^"
^DD(111.01,.01,21,1,0)="This field contains an alternate name for the diet."
^DD(111.01,.01,"DT")="2900510"
^DD(111.01,"B","ALTERNATE NAME",.01)=""
^DD(111.01,"GL",0,1,.01)=""
^DD(111.01,"IX",.01)=""
^DD(111.1,0)="FIELD^^99^16"
^DD(111.1,0,"DDA")="N"
^DD(111.1,0,"DT")="2950418"
^DD(111.1,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(111.1,0,"IX","AC",111.1,99)=""
^DD(111.1,0,"IX","B",111.1,.01)=""
^DD(111.1,0,"NM","DIET PATTERNS")=""
^DD(111.1,0,"SCR")="I '$D(^FH(111.1,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(111.1,0,"VR")="5.5"
^DD(111.1,0,"VRPK")="DIETETICS"
^DD(111.1,.01,0)="NAME^RF^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(111.1,.01,1,0)="^.1"
^DD(111.1,.01,1,1,0)="111.1^B"
^DD(111.1,.01,1,1,1)="S ^FH(111.1,""B"",$E(X,1,30),DA)="""""
^DD(111.1,.01,1,1,2)="K ^FH(111.1,""B"",$E(X,1,30),DA)"
^DD(111.1,.01,3)="Answer must be 3-70 characters in length."
^DD(111.1,.01,21,0)="^^1^1^2940721^^^^"
^DD(111.1,.01,21,1,0)="This field contains the names of the diet or the diet modification ordered."
^DD(111.1,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(111.1,.01,"DT")="2940103"
^DD(111.1,1,0)="DIET1^P111'^FH(111,^0;2^Q"
^DD(111.1,1,21,0)="^^2^2^2940526^^^^"
^DD(111.1,1,21,1,0)="This is the first diet modification selected from the Diets (111)"
^DD(111.1,1,21,2,0)="file."
^DD(111.1,1,"DT")="2931130"
^DD(111.1,2,0)="DIET2^P111'^FH(111,^0;3^Q"
^DD(111.1,2,21,0)="^^2^2^2940526^^"
^DD(111.1,2,21,1,0)="This is the second diet modification selected from the Diets (111)"
^DD(111.1,2,21,2,0)="file."
^DD(111.1,2,"DT")="2931130"
^DD(111.1,3,0)="DIET3^P111'^FH(111,^0;4^Q"
^DD(111.1,3,21,0)="^^2^2^2940526^"
^DD(111.1,3,21,1,0)="This is the third diet modification selected from the Diets (111)"
^DD(111.1,3,21,2,0)="file."
^DD(111.1,3,"DT")="2931130"
^DD(111.1,4,0)="DIET4^P111'^FH(111,^0;5^Q"
^DD(111.1,4,21,0)="^^2^2^2940526^"
^DD(111.1,4,21,1,0)="This is the fourth diet modification selected from the Diets (111)"
^DD(111.1,4,21,2,0)="file."
^DD(111.1,4,"DT")="2931130"
^DD(111.1,5,0)="DIET5^P111'^FH(111,^0;6^Q"
^DD(111.1,5,21,0)="^^2^2^2940526^"
^DD(111.1,5,21,1,0)="This is the fifth diet modification selected from the Diets (111)"
^DD(111.1,5,21,2,0)="file."
^DD(111.1,5,"DT")="2931130"
^DD(111.1,10,0)="PRODUCTION DIET^P116.2'^FH(116.2,^0;7^Q"
^DD(111.1,10,21,0)="^^4^4^2950707^^"
^DD(111.1,10,21,1,0)="This is a pointer to the Production Diet (116.2) file and is the"
^DD(111.1,10,21,2,0)="outcome of the 'diet recoding' algorithm which is based upon the"
^DD(111.1,10,21,3,0)="diet modifications selected.  It is not present for NPO types of"
^DD(111.1,10,21,4,0)="orders."
^DD(111.1,10,"DT")="2931130"
^DD(111.1,15,0)="BREAKFAST MODIFICATIONS^111.115P^^B;0"
^DD(111.1,15,21,0)="^^2^2^2950403^^^^"
^DD(111.1,15,21,1,0)="This multiple contains all the breakfast Recipe Categories selected"
^DD(111.1,15,21,2,0)="and their quantities."
^DD(111.1,15.5,0)="ASSOCIATED STANDING ORDERS (B)^111.11P^^BS;0"
^DD(111.1,15.5,21,0)="^^2^2^2950717^^^^"
^DD(111.1,15.5,21,1,0)="This multiple contains all the Standing Orders selected from file"
^DD(111.1,15.5,21,2,0)="118.3 for breakfast."
^DD(111.1,15.5,"DT")="2940721"
^DD(111.1,16,0)="NOON MODIFICATIONS^111.116P^^N;0"
^DD(111.1,16,21,0)="^^2^2^2940526^"
^DD(111.1,16,21,1,0)="This multiple contains all the noon Recipe Categories selected"
^DD(111.1,16,21,2,0)="and their quantities."
^DD(111.1,16.5,0)="ASSOCIATED STANDING ORDERS (N)^111.12P^^NS;0"
^DD(111.1,16.5,21,0)="^^2^2^2940721^"
^DD(111.1,16.5,21,1,0)="This multiple contains all the Standing Orders selected from file 118.3"
^DD(111.1,16.5,21,2,0)="for noon."
^DD(111.1,16.5,"DT")="2940721"
^DD(111.1,17,0)="EVENING MODIFICATIONS^111.117P^^E;0"
^DD(111.1,17,21,0)="^^2^2^2940526^^"
^DD(111.1,17,21,1,0)="This multiple contains all the evening Recipe Categories selected"
^DD(111.1,17,21,2,0)="and their quantities."
^DD(111.1,17.5,0)="ASSOCIATED STANDING ORDERS (E)^111.13P^^ES;0"
^DD(111.1,17.5,21,0)="^^2^2^2950717^^"
^DD(111.1,17.5,21,1,0)="This multiple contains all the Standing Orders selected from file"
^DD(111.1,17.5,21,2,0)="118.3 for evening."
^DD(111.1,17.5,"DT")="2940721"
^DD(111.1,18,0)="ASSOCIATED SF MENU^*P118.1'^FH(118.1,^0;8^S DIC(""S"")=""I Y'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(111.1,18,12)="Cannot enter INDIVIDUALIZED Supplemental Menu"
^DD(111.1,18,12.1)="S DIC(""S"")=""I Y'=1"""
^DD(111.1,18,21,0)="^^3^3^2950717^^^^"
^DD(111.1,18,21,1,0)="This field will contain the Supplemental Feeding Menu, from file 118.1,"
^DD(111.1,18,21,2,0)="that will be added to the patient's supplemental feeding entry when"
^DD(111.1,18,21,3,0)="this diet or diet modification is ordered for the patient."
^DD(111.1,18,"DT")="2940727"
^DD(111.1,19,0)="DIET RESTRICTION^111.119P^^RES;0"
^DD(111.1,19,12)="This screen allows the user to only select the dislikes from the Food Preference file."
^DD(111.1,19,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""""
^DD(111.1,19,21,0)="^^2^2^2950403^^^"
^DD(111.1,19,21,1,0)="This multiple contains all the Diet restrictions associated to the"
^DD(111.1,19,21,2,0)="Diet modification."
^DD(111.1,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(111.1,99,1,0)="^.1"
^DD(111.1,99,1,1,0)="111.1^AC^MUMPS"
^DD(111.1,99,1,1,1)="K:X'=""Y"" ^FH(111.1,DA,""I"")"
^DD(111.1,99,1,1,2)="K ^FH(111.1,DA,""I"")"
^DD(111.1,99,1,1,"%D",0)="^^2^2^3000202"
^DD(111.1,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(111.1,99,1,1,"%D",2,0)="inactive entries."
^DD(111.1,99,21,0)="^^2^2^3000202"
^DD(111.1,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(111.1,99,21,2,0)="further selection of this entry."
^DD(111.1,99,"DT")="3000223"
^DD(111.1,"B","ASSOCIATED SF MENU",18)=""
^DD(111.1,"B","ASSOCIATED STANDING ORDERS (B)",15.5)=""
^DD(111.1,"B","ASSOCIATED STANDING ORDERS (E)",17.5)=""
^DD(111.1,"B","ASSOCIATED STANDING ORDERS (N)",16.5)=""
^DD(111.1,"B","BREAKFAST MODIFICATIONS",15)=""
^DD(111.1,"B","DIET RESTRICTION",19)=""
^DD(111.1,"B","DIET1",1)=""
^DD(111.1,"B","DIET2",2)=""
^DD(111.1,"B","DIET3",3)=""
^DD(111.1,"B","DIET4",4)=""
^DD(111.1,"B","DIET5",5)=""
^DD(111.1,"B","EVENING MODIFICATIONS",17)=""
^DD(111.1,"B","INACTIVE?",99)=""
^DD(111.1,"B","NAME",.01)=""
^DD(111.1,"B","NOON MODIFICATIONS",16)=""
^DD(111.1,"B","PRODUCTION DIET",10)=""
^DD(111.1,"GL",0,1,.01)=""
^DD(111.1,"GL",0,2,1)=""
^DD(111.1,"GL",0,3,2)=""
^DD(111.1,"GL",0,4,3)=""
^DD(111.1,"GL",0,5,4)=""
^DD(111.1,"GL",0,6,5)=""
^DD(111.1,"GL",0,7,10)=""
^DD(111.1,"GL",0,8,18)=""
^DD(111.1,"GL","B",0,15)=""
^DD(111.1,"GL","BS",0,15.5)=""
^DD(111.1,"GL","E",0,17)=""
^DD(111.1,"GL","ES",0,17.5)=""
^DD(111.1,"GL","I",1,99)=""
^DD(111.1,"GL","N",0,16)=""
^DD(111.1,"GL","NS",0,16.5)=""
^DD(111.1,"GL","RES",0,19)=""
^DD(111.1,"IX",.01)=""
^DD(111.1,"IX",99)=""
^DD(111.1,"RQ",.01)=""
^DD(111.1,"SB",111.11,15.5)=""
^DD(111.1,"SB",111.115,15)=""
^DD(111.1,"SB",111.116,16)=""
^DD(111.1,"SB",111.117,17)=""
^DD(111.1,"SB",111.119,19)=""
^DD(111.1,"SB",111.12,16.5)=""
^DD(111.1,"SB",111.13,17.5)=""
^DD(111.11,0)="ASSOCIATED STANDING ORDERS (B) SUB-FIELD^^1^2"
^DD(111.11,0,"DT")="2940722"
^DD(111.11,0,"IX","B",111.11,.01)=""
^DD(111.11,0,"NM","ASSOCIATED STANDING ORDERS (B)")=""
^DD(111.11,0,"UP")="111.1"
^DD(111.11,.01,0)="ASSOCIATED STANDING ORDERS (B)^MP118.3'^FH(118.3,^0;1^Q"
^DD(111.11,.01,1,0)="^.1"
^DD(111.11,.01,1,1,0)="111.11^B"
^DD(111.11,.01,1,1,1)="S ^FH(111.1,DA(1),""BS"",""B"",$E(X,1,30),DA)="""""
^DD(111.11,.01,1,1,2)="K ^FH(111.1,DA(1),""BS"",""B"",$E(X,1,30),DA)"
^DD(111.11,.01,21,0)="^^3^3^2950717^^^^"
^DD(111.11,.01,21,1,0)="The Standing Orders on this multiple will all be added to the patient's"
^DD(111.11,.01,21,2,0)="Standing Order entries for the meal breakfast when this diet or diet"
^DD(111.11,.01,21,3,0)="modification is ordered for the patient."
^DD(111.11,.01,"DT")="2940721"
^DD(111.11,1,0)="QUANTITY^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(111.11,1,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(111.11,1,21,0)="^^1^1^2940722^^"
^DD(111.11,1,21,1,0)="This is the quantity of the Standing Order."
^DD(111.11,1,"DT")="2940722"
^DD(111.11,"B","ASSOCIATED STANDING ORDERS (B)",.01)=""
^DD(111.11,"B","QUANTITY",1)=""
^DD(111.11,"GL",0,1,.01)=""
^DD(111.11,"GL",0,2,1)=""
^DD(111.11,"IX",.01)=""
^DD(111.115,0)="BREAKFAST MODIFICATIONS SUB-FIELD^^1^2"
^DD(111.115,0,"DT")="2940706"
^DD(111.115,0,"IX","B",111.115,.01)=""
^DD(111.115,0,"NM","BREAKFAST MODIFICATIONS")=""
^DD(111.115,0,"UP")="111.1"
^DD(111.115,.01,0)="BREAKFAST MODIFICATIONS^MP114.1'^FH(114.1,^0;1^Q"
^DD(111.115,.01,1,0)="^.1"
^DD(111.115,.01,1,1,0)="111.115^B"
^DD(111.115,.01,1,1,1)="S ^FH(111.1,DA(1),""B"",""B"",$E(X,1,30),DA)="""""
^DD(111.115,.01,1,1,2)="K ^FH(111.1,DA(1),""B"",""B"",$E(X,1,30),DA)"
^DD(111.115,.01,3)=""
^DD(111.115,.01,21,0)="^^5^5^2950403^^^^"
^DD(111.115,.01,21,1,0)="This is the Recipe Category selected from file (114.1) for the"
^DD(111.115,.01,21,2,0)="breakfast meal for the selected diet modifications.  It determines"
^DD(111.115,.01,21,3,0)="which recipes each patient under the diet modifications will"
^DD(111.115,.01,21,4,0)="receive on the Tray Ticket.  This Recipe Category is also used"
^DD(111.115,.01,21,5,0)="in producing the Diet Cards."
^DD(111.115,.01,"DT")="2940103"
^DD(111.115,1,0)="QUANTITY^RNJ4,2^^0;2^K:+X'=X!(X>9.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(111.115,1,3)="Type a Number between 0 and 9.99, 2 Decimal Digits"
^DD(111.115,1,21,0)="^^3^3^2940722^^^^"
^DD(111.115,1,21,1,0)="This is the selected quantity for the Recipe Category.  This quantity"
^DD(111.115,1,21,2,0)="determines the amount of the recipe on the Tray Ticket.  If a zero"
^DD(111.115,1,21,3,0)="is entered, the recipe is omitted."
^DD(111.115,1,"DT")="2940706"
^DD(111.115,"B","BREAKFAST MODIFICATIONS",.01)=""
^DD(111.115,"B","QUANTITY",1)=""
^DD(111.115,"GL",0,1,.01)=""
^DD(111.115,"GL",0,2,1)=""
^DD(111.115,"IX",.01)=""
^DD(111.115,"RQ",1)=""
^DD(111.116,0)="NOON MODIFICATIONS SUB-FIELD^^1^2"
^DD(111.116,0,"DT")="2940706"
^DD(111.116,0,"IX","B",111.116,.01)=""
^DD(111.116,0,"NM","NOON MODIFICATIONS")=""
^DD(111.116,0,"UP")="111.1"
^DD(111.116,.01,0)="NOON MODIFICATIONS^MP114.1'^FH(114.1,^0;1^Q"
^DD(111.116,.01,1,0)="^.1"
^DD(111.116,.01,1,1,0)="111.116^B"
^DD(111.116,.01,1,1,1)="S ^FH(111.1,DA(1),""N"",""B"",$E(X,1,30),DA)="""""
^DD(111.116,.01,1,1,2)="K ^FH(111.1,DA(1),""N"",""B"",$E(X,1,30),DA)"
^DD(111.116,.01,21,0)="^^5^5^2940526^^^"
^DD(111.116,.01,21,1,0)="This is the Recipe Category selected from the file (114.1) for the"
^DD(111.116,.01,21,2,0)="noon meal for the selected diet modifications.  It determines"
^DD(111.116,.01,21,3,0)="which recipes each patient under the diet modifications will"
^DD(111.116,.01,21,4,0)="receive on the Tray Ticket.  This Recipe Category is also used"
^DD(111.116,.01,21,5,0)="in producing the Diet Cards."
^DD(111.116,.01,"DT")="2940103"
^DD(111.116,1,0)="QUANTITY^RNJ4,2^^0;2^K:+X'=X!(X>9.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(111.116,1,3)="Type a Number between 0 and 9.99, 2 Decimal Digits"
^DD(111.116,1,21,0)="^^3^3^2940526^^"
^DD(111.116,1,21,1,0)="This is the selected quantity for the Recipe Category.  This quantity"
^DD(111.116,1,21,2,0)="determines the amount of the recipe on the Tray Ticket.  If a zero"
^DD(111.116,1,21,3,0)="is entered, the recipe is omitted."
^DD(111.116,1,"DT")="2940706"
^DD(111.116,"B","NOON MODIFICATIONS",.01)=""
^DD(111.116,"B","QUANTITY",1)=""
^DD(111.116,"GL",0,1,.01)=""
^DD(111.116,"GL",0,2,1)=""
^DD(111.116,"IX",.01)=""
^DD(111.116,"RQ",1)=""
^DD(111.117,0)="EVENING MODIFICATIONS SUB-FIELD^^1^2"
^DD(111.117,0,"DT")="2940706"
^DD(111.117,0,"IX","B",111.117,.01)=""
^DD(111.117,0,"NM","EVENING MODIFICATIONS")=""
^DD(111.117,0,"UP")="111.1"
^DD(111.117,.01,0)="EVENING MODIFICATIONS^MP114.1'^FH(114.1,^0;1^Q"
^DD(111.117,.01,1,0)="^.1"
^DD(111.117,.01,1,1,0)="111.117^B"
^DD(111.117,.01,1,1,1)="S ^FH(111.1,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(111.117,.01,1,1,2)="K ^FH(111.1,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(111.117,.01,21,0)="^^5^5^2940526^^^"
^DD(111.117,.01,21,1,0)="This is the Recipe Category selected from the file (114.1) for the"
^DD(111.117,.01,21,2,0)="evening meal for the selected diet modifications.  It determines"
^DD(111.117,.01,21,3,0)="which recipes each patient under the diet modifications will"
^DD(111.117,.01,21,4,0)="receive on the Tray Ticket.  This Recipe Category is also used"
^DD(111.117,.01,21,5,0)="in producing the Diet Cards."
^DD(111.117,.01,"DT")="2940103"
^DD(111.117,1,0)="QUANTITY^RNJ4,2^^0;2^K:+X'=X!(X>9.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(111.117,1,3)="Type a Number between 0 and 9.99, 2 Decimal Digits"
^DD(111.117,1,21,0)="^^3^3^2940526^"
^DD(111.117,1,21,1,0)="This is the selected quantity for the Recipe Category.  This quantity"
^DD(111.117,1,21,2,0)="determines the amount of the recipe on the Tray Ticket.  If a zero"
^DD(111.117,1,21,3,0)="is entered, the recipe is omitted."
^DD(111.117,1,"DT")="2940706"
^DD(111.117,"B","EVENING MODIFICATIONS",.01)=""
^DD(111.117,"B","QUANTITY",1)=""
^DD(111.117,"GL",0,1,.01)=""
^DD(111.117,"GL",0,2,1)=""
^DD(111.117,"IX",.01)=""
^DD(111.117,"RQ",1)=""
^DD(111.119,0)="DIET RESTRICTION SUB-FIELD^^1^2"
^DD(111.119,0,"DT")="2950418"
^DD(111.119,0,"IX","B",111.119,.01)=""
^DD(111.119,0,"NM","DIET RESTRICTION")=""
^DD(111.119,0,"UP")="111.1"
^DD(111.119,.01,0)="DIET RESTRICTION^M*P115.2'^FH(115.2,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(111.119,.01,1,0)="^.1"
^DD(111.119,.01,1,1,0)="111.119^B"
^DD(111.119,.01,1,1,1)="S ^FH(111.1,DA(1),""RES"",""B"",$E(X,1,30),DA)="""""
^DD(111.119,.01,1,1,2)="K ^FH(111.1,DA(1),""RES"",""B"",$E(X,1,30),DA)"
^DD(111.119,.01,12)="This screen allows the user to only select the dislikes from the Food Preference file."
^DD(111.119,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""""
^DD(111.119,.01,21,0)="^^1^1^2950403^^^^"
^DD(111.119,.01,21,1,0)="This is the dislike food preference from the file (115.2)."
^DD(111.119,.01,"DT")="2950403"
^DD(111.119,1,0)="MEALS^RFX^^0;2^S:$P(""ALL"",X,1)="""" X=""BNE"" S %=X,X="""" S:%[""B"" X=""B"" S:%[""N"" X=X_""N"" S:%[""E"" X=X_""E"" K:$L(%)'=$L(X) X K %"
^DD(111.119,1,3)="Answer should be a string of meals (e.g., B or BN or BNE) or A for all meals."
^DD(111.119,1,21,0)="^^2^2^2950418^^^"
^DD(111.119,1,21,1,0)="This field contains the meals (B N and E) for which this diet"
^DD(111.119,1,21,2,0)="restriction is applicable."
^DD(111.119,1,"DT")="2950418"
^DD(111.119,"B","DIET RESTRICTION",.01)=""
^DD(111.119,"B","MEALS",1)=""
^DD(111.119,"GL",0,1,.01)=""
^DD(111.119,"GL",0,2,1)=""
^DD(111.119,"IX",.01)=""
^DD(111.119,"RQ",1)=""
^DD(111.12,0)="ASSOCIATED STANDING ORDERS (N) SUB-FIELD^^1^2"
^DD(111.12,0,"DT")="2940722"
^DD(111.12,0,"IX","B",111.12,.01)=""
^DD(111.12,0,"NM","ASSOCIATED STANDING ORDERS (N)")=""
^DD(111.12,0,"UP")="111.1"
^DD(111.12,.01,0)="ASSOCIATED STANDING ORDERS (N)^MP118.3'^FH(118.3,^0;1^Q"
^DD(111.12,.01,1,0)="^.1"
^DD(111.12,.01,1,1,0)="111.12^B"
^DD(111.12,.01,1,1,1)="S ^FH(111.1,DA(1),""NS"",""B"",$E(X,1,30),DA)="""""
^DD(111.12,.01,1,1,2)="K ^FH(111.1,DA(1),""NS"",""B"",$E(X,1,30),DA)"
^DD(111.12,.01,21,0)="^^3^3^2950717^^"
^DD(111.12,.01,21,1,0)="The Standing Orders on this multiple will all be added to the patient's"
^DD(111.12,.01,21,2,0)="Standing Order entries for the meal noon when this diet or diet"
^DD(111.12,.01,21,3,0)="modification is ordered for the patient."
^DD(111.12,.01,"DT")="2940721"
^DD(111.12,1,0)="QUANTITY^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(111.12,1,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(111.12,1,21,0)="^^1^1^2940722^"
^DD(111.12,1,21,1,0)="This is the quantity of the Standing Order."
^DD(111.12,1,"DT")="2940722"
^DD(111.12,"B","ASSOCIATED STANDING ORDERS (N)",.01)=""
^DD(111.12,"B","QUANTITY",1)=""
^DD(111.12,"GL",0,1,.01)=""
^DD(111.12,"GL",0,2,1)=""
^DD(111.12,"IX",.01)=""
^DD(111.13,0)="ASSOCIATED STANDING ORDERS (E) SUB-FIELD^^1^2"
^DD(111.13,0,"DT")="2940722"
^DD(111.13,0,"IX","B",111.13,.01)=""
^DD(111.13,0,"NM","ASSOCIATED STANDING ORDERS (E)")=""
^DD(111.13,0,"UP")="111.1"
^DD(111.13,.01,0)="ASSOCIATED STANDING ORDERS (E)^MP118.3'^FH(118.3,^0;1^Q"
^DD(111.13,.01,1,0)="^.1"
^DD(111.13,.01,1,1,0)="111.13^B"
^DD(111.13,.01,1,1,1)="S ^FH(111.1,DA(1),""ES"",""B"",$E(X,1,30),DA)="""""
^DD(111.13,.01,1,1,2)="K ^FH(111.1,DA(1),""ES"",""B"",$E(X,1,30),DA)"
^DD(111.13,.01,21,0)="^^3^3^2950717^^"
^DD(111.13,.01,21,1,0)="The Standing Orders on this multiple will all be added to the patient's"
^DD(111.13,.01,21,2,0)="Standing Order entries for the evening meal when this diet or diet"
^DD(111.13,.01,21,3,0)="modification is ordered for the patient."
^DD(111.13,.01,"DT")="2940721"
^DD(111.13,1,0)="QUANTITY^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(111.13,1,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(111.13,1,21,0)="^^1^1^2940722^"
^DD(111.13,1,21,1,0)="This is the quantity of the Standing Order."
^DD(111.13,1,"DT")="2940722"
^DD(111.13,"B","ASSOCIATED STANDING ORDERS (E)",.01)=""
^DD(111.13,"B","QUANTITY",1)=""
^DD(111.13,"GL",0,1,.01)=""
^DD(111.13,"GL",0,2,1)=""
^DD(111.13,"IX",.01)=""
^DD(112,0)="FIELD^^99^76"
^DD(112,0,"DT")="2930520"
^DD(112,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(112,0,"IX","AC",112,4)=""
^DD(112,0,"IX","AC",112,99)=""
^DD(112,0,"IX","AD",112,4.2)=""
^DD(112,0,"IX","AE",112,4.4)=""
^DD(112,0,"IX","AQ",112,.01)=""
^DD(112,0,"IX","B",112,.01)=""
^DD(112,0,"IX","B",112,4.2)=""
^DD(112,0,"IX","C",112,1)=""
^DD(112,0,"NM","FOOD NUTRIENTS")=""
^DD(112,0,"PT",112.63,.01)=""
^DD(112,0,"PT",113,27)=""
^DD(112,0,"PT",114,102)=""
^DD(112,0,"PT",114.01,2)=""
^DD(112,0,"SCR")="I '$D(^FH(112,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(112,0,"VR")="5.5"
^DD(112,0,"VRPK")="DIETETICS"
^DD(112,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(112,.01,1,0)="^.1"
^DD(112,.01,1,1,0)="112^B"
^DD(112,.01,1,1,1)="S ^FHNU(""B"",$E(X,1,30),DA)="""""
^DD(112,.01,1,1,2)="K ^FHNU(""B"",$E(X,1,30),DA)"
^DD(112,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(112,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(112,.01,1,2,0)="112^AQ^MUMPS"
^DD(112,.01,1,2,1)="I $D(^FHNU(DA,.6)),$P(^(.6),""^"",1)=""Y"" S ^FHNU(""AQ"",$E(X,1,30),DA)="""""
^DD(112,.01,1,2,2)="K ^FHNU(""AQ"",$E(X,1,30),DA)"
^DD(112,.01,1,2,"%D",0)="^^2^2^2940824^"
^DD(112,.01,1,2,"%D",1,0)="If Field 4 is Yes, then the name is set under an ""AQ"" quick-list for"
^DD(112,.01,1,2,"%D",2,0)="rapid selection."
^DD(112,.01,3)="ANSWER MUST BE 3-60 CHARACTERS IN LENGTH"
^DD(112,.01,21,0)="^^1^1^2880717^"
^DD(112,.01,21,1,0)="This field contains the name of the food nutrient item."
^DD(112,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(112,.01,"DT")="2850406"
^DD(112,1,0)="CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(112,1,1,0)="^.1"
^DD(112,1,1,1,0)="112^C"
^DD(112,1,1,1,1)="S ^FHNU(""C"",$E(X,1,30),DA)="""""
^DD(112,1,1,1,2)="K ^FHNU(""C"",$E(X,1,30),DA)"
^DD(112,1,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(112,1,21,0)="^^3^3^2880717^"
^DD(112,1,21,1,0)="This field, if present, contains the USDA code of the food"
^DD(112,1,21,2,0)="nutrient item. It may be either a Revised Handbook 8 number"
^DD(112,1,21,3,0)="or a Handbook 456 number."
^DD(112,2,0)="COMMON UNITS^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(112,2,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(112,2,21,0)="^^3^3^2880717^"
^DD(112,2,21,1,0)="This field represents the type of common units used (e.g., oz.,"
^DD(112,2,21,2,0)="serving, each) when quantities are to be represented in common"
^DD(112,2,21,3,0)="units."
^DD(112,3,0)="GRAMS/COMMON UNIT^NJ8,3^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,3,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(112,3,21,0)="^^2^2^2930510^^"
^DD(112,3,21,1,0)="This field contains the number of grams in the common unit"
^DD(112,3,21,2,0)="specified for this nutrient."
^DD(112,4,0)="ORIGINAL NAME ON QUICK LIST?^S^Y:YES;N:NO;^.6;1^Q"
^DD(112,4,1,0)="^.1"
^DD(112,4,1,1,0)="112^AC^MUMPS"
^DD(112,4,1,1,1)="I X=""Y"" S X1=$P(^FHNU(DA,0),U,1) S:X1'="""" ^FHNU(""AQ"",$E(X1,1,30),DA)="""""
^DD(112,4,1,1,2)="S X1=$P(^FHNU(DA,0),U,1) K:X1'="""" ^FHNU(""AQ"",$E(X1,1,30),DA)"
^DD(112,4,1,1,"%D",0)="^^2^2^2940824^"
^DD(112,4,1,1,"%D",1,0)="If Field is Yes, then Name (.01 Field) is set under ""AQ"" Quick List"
^DD(112,4,1,1,"%D",2,0)="for rapid selection."
^DD(112,4,21,0)="^^3^3^2880717^"
^DD(112,4,21,1,0)="This field, when answered YES, means that the main name"
^DD(112,4,21,2,0)="of this nutrient will be on a Quick List for rapid look-up."
^DD(112,4,21,3,0)="In short, this is a commonly used item."
^DD(112,4,"DT")="2850615"
^DD(112,4.2,0)="ALTERNATE NAME^F^^.6;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X"
^DD(112,4.2,1,0)="^.1"
^DD(112,4.2,1,1,0)="112^B^MNEMONIC"
^DD(112,4.2,1,1,1)="S:'$D(^FHNU(""B"",$E(X,1,30),DA)) ^(DA)=1"
^DD(112,4.2,1,1,2)="I $D(^FHNU(""B"",$E(X,1,30),DA)),^(DA) K ^(DA)"
^DD(112,4.2,1,1,"%D",0)="^^1^1^2911118^"
^DD(112,4.2,1,1,"%D",1,0)="This is the normal B cross-reference of the ALTERNATE NAME field."
^DD(112,4.2,1,2,0)="112^AD^MUMPS"
^DD(112,4.2,1,2,1)="I $D(^FHNU(DA,.6)),$P(^(.6),U,3)=""Y"" S ^FHNU(""AQ"",$E(X,1,30),DA)="""""
^DD(112,4.2,1,2,2)="K ^FHNU(""AQ"",$E(X,1,30),DA)"
^DD(112,4.2,1,2,"%D",0)="^^2^2^2940824^"
^DD(112,4.2,1,2,"%D",1,0)="If Field 4.4 is Yes, then this Alternate Name is set under the ""AQ"""
^DD(112,4.2,1,2,"%D",2,0)="Quick List for rapid selection."
^DD(112,4.2,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(112,4.2,21,0)="^^1^1^2880717^"
^DD(112,4.2,21,1,0)="This field may contain an alternate name for the nutrient item."
^DD(112,4.2,"DT")="2900510"
^DD(112,4.4,0)="ALT NAME QUICK LIST?^S^Y:YES;N:NO;^.6;3^Q"
^DD(112,4.4,1,0)="^.1"
^DD(112,4.4,1,1,0)="112^AE^MUMPS"
^DD(112,4.4,1,1,1)="I X=""Y"" S X1=$P(^FHNU(DA,.6),U,2) S:X1'="""" ^FHNU(""AQ"",$E(X1,1,30),DA)="""""
^DD(112,4.4,1,1,2)="S X1=$P(^FHNU(DA,.6),U,2) K:X1'="""" ^FHNU(""AQ"",$E(X1,1,30),DA)"
^DD(112,4.4,1,1,"%D",0)="^^2^2^2940824^"
^DD(112,4.4,1,1,"%D",1,0)="This field, when answered Yes, will result in the Alternate Name (Field"
^DD(112,4.4,1,1,"%D",2,0)="4.2) being placed under the ""AQ"" Quick List for rapid selection."
^DD(112,4.4,21,0)="^^2^2^2880717^"
^DD(112,4.4,21,1,0)="This field, when answered YES, means that the alternate name"
^DD(112,4.4,21,2,0)="of this nutrient is also on the Quick List for rapid look-up."
^DD(112,4.4,"DT")="2850615"
^DD(112,5,0)="% AS PURCHASED^NJ3,0^^0;5^K:+X'=X!(X>600)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112,5,3)="Type a Number between 0 and 600, 0 Decimal Digits"
^DD(112,5,21,0)="^^2^2^2930520^^^^"
^DD(112,5,21,1,0)="This field contains the percentage of the as purchased weight"
^DD(112,5,21,2,0)="that is present after preparation."
^DD(112,5,"DT")="2930520"
^DD(112,6,0)="EDITABLE?^SI^Y:YES;N:NO;^0;6^Q"
^DD(112,6,3)="N means that entry cannot be edited (USDA data)"
^DD(112,6,21,0)="^^3^3^2880717^"
^DD(112,6,21,1,0)="This field, when answered NO, means that the item is an USDA"
^DD(112,6,21,2,0)="item and that the Handbook values for the various nutrients"
^DD(112,6,21,3,0)="cannot be edited by dietetic personnel."
^DD(112,6,"DT")="2850322"
^DD(112,7,0)="TYPE^S^E:EDIBLE;R:RAW/RARE;X:RECIPE;^0;7^Q"
^DD(112,7,21,0)="^^3^3^2921111^^^^"
^DD(112,7,21,1,0)="This field, if E, will allow selection of edible foods for energy"
^DD(112,7,21,2,0)="analyses; if R, can be selected for recipe analyses."
^DD(112,7,21,3,0)="If X, analysis is of a recipe in File 114 and cannot be selected."
^DD(112,7,"DT")="2921111"
^DD(112,11,0)="PROTEIN; GM/100G^NJ9,3^^1;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,11,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,11,21,0)="^^1^1^2880710^"
^DD(112,11,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,12,0)="LIPIDS; GM/100G^NJ9,3^^1;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,12,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,12,21,0)="^^1^1^2930510^^"
^DD(112,12,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,13,0)="CARBOHYDRATE; GM/100G^NJ9,3^^1;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,13,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,13,21,0)="^^1^1^2880710^"
^DD(112,13,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,14,0)="FOOD ENERGY; KCAL/100G^NJ9,3^^1;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,14,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,14,21,0)="^^1^1^2880710^"
^DD(112,14,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,15,0)="WATER; GM/100G^NJ9,3^^1;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,15,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,15,21,0)="^^1^1^2880710^"
^DD(112,15,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,18,0)="CALCIUM; MG/100G^NJ9,3^^1;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,18,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,18,21,0)="^^1^1^2880710^"
^DD(112,18,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,19,0)="IRON; MG/100G^NJ9,3^^1;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,19,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,19,21,0)="^^1^1^2880710^"
^DD(112,19,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,20,0)="MAGNESIUM; MG/100G^NJ9,3^^1;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,20,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,20,21,0)="^^1^1^2880710^"
^DD(112,20,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,21,0)="PHOSPHORUS; MG/100G^NJ9,3^^1;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,21,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,21,21,0)="^^1^1^2880710^"
^DD(112,21,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,22,0)="POTASSIUM; MG/100G^NJ9,3^^1;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,22,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,22,21,0)="^^1^1^2880710^"
^DD(112,22,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,23,0)="SODIUM; MG/100G^NJ9,3^^1;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,23,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,23,21,0)="^^1^1^2880710^"
^DD(112,23,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,24,0)="ZINC; MG/100G^NJ9,3^^1;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,24,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,24,21,0)="^^1^1^2880710^"
^DD(112,24,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,25,0)="COPPER; MG/100G^NJ9,3^^1;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,25,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,25,21,0)="^^1^1^2880710^"
^DD(112,25,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,26,0)="MANGANESE; MG/100G^NJ9,3^^1;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,26,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,26,21,0)="^^1^1^2880710^"
^DD(112,26,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,27,0)="ALPHA TOCOPHEROL; MG/100G^NJ9,3^^1;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,27,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,27,21,0)="^^1^1^2880710^"
^DD(112,27,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,28,0)="VITAMIN A; IU/100G^NJ9,3^^1;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,28,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,28,21,0)="^^1^1^2880710^"
^DD(112,28,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,29,0)="ASCORBIC ACID; MG/100G^NJ9,3^^1;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,29,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,29,21,0)="^^1^1^2880710^"
^DD(112,29,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,30,0)="THIAMIN; MG/100G^NJ9,3^^1;20^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,30,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,30,21,0)="^^1^1^2880710^"
^DD(112,30,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,31,0)="RIBOFLAVIN; MG/100G^NJ9,3^^2;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,31,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,31,21,0)="^^1^1^2880710^"
^DD(112,31,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,32,0)="NIACIN; MG/100G^NJ9,3^^2;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,32,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,32,21,0)="^^1^1^2930510^^"
^DD(112,32,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,33,0)="PANTOTHENIC ACID; MG/100G^NJ9,3^^2;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,33,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,33,21,0)="^^1^1^2880710^"
^DD(112,33,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,34,0)="VITAMIN B6; MG/100G^NJ9,3^^2;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,34,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,34,21,0)="^^1^1^2880710^"
^DD(112,34,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,35,0)="FOLATE; MCG/100G^NJ9,3^^2;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,35,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,35,21,0)="^^1^1^2880710^"
^DD(112,35,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,36,0)="VITAMIN B12; MCG/100G^NJ9,3^^2;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,36,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,36,21,0)="^^1^1^2880710^"
^DD(112,36,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,37,0)="LINOLEIC ACID; GM/100G^NJ9,3^^2;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,37,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,37,21,0)="^^1^1^2880710^"
^DD(112,37,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,38,0)="LINOLENIC ACID; GM/100G^NJ9,3^^2;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,38,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,38,21,0)="^^1^1^2880710^"
^DD(112,38,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,39,0)="CHOLESTEROL; MG/100G^NJ9,3^^2;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,39,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,39,21,0)="^^1^1^2880710^"
^DD(112,39,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,40,0)="SATURATED FAT; GM/100G^NJ10,3^^2;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,40,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,40,21,0)="^^1^1^2880710^"
^DD(112,40,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,41,0)="MONOUNSATURATED FAT; GM/100G^NJ10,3^^2;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,41,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,41,21,0)="^^1^1^2880710^"
^DD(112,41,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,42,0)="POLYUNSATURATED FAT; GM/100G^NJ10,3^^2;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,42,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,42,21,0)="^^1^1^2880710^"
^DD(112,42,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,43,0)="VITAMIN A; RE/100G^NJ9,3^^2;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,43,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,43,21,0)="^^1^1^2880710^"
^DD(112,43,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,43,"DT")="2891204"
^DD(112,44,0)="ASH; GM/100G^NJ9,3^^2;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,44,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,44,21,0)="^^1^1^2880710^"
^DD(112,44,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,44,"DT")="2891204"
^DD(112,45,0)="ALCOHOL; GM/100G^NJ9,3^^2;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,45,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,45,21,0)="^^1^1^2880710^"
^DD(112,45,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,46,0)="CAFFEINE; MG/100G^NJ9,3^^2;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,46,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,46,21,0)="^^1^1^2880710^"
^DD(112,46,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,46,"DT")="2891204"
^DD(112,47,0)="TOTAL DIETARY FIBER; GM/100G^NJ9,3^^2;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,47,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,47,21,0)="^^1^1^2880710^"
^DD(112,47,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,48,0)="TOTAL TOCOPHEROL; MG/100G^NJ9,3^^2;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,48,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,48,21,0)="^^1^1^2880710^"
^DD(112,48,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,51,0)="TRYPTOPHAN; GM/100G^NJ9,3^^3;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,51,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,51,21,0)="^^1^1^2880710^"
^DD(112,51,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,52,0)="THREONINE; GM/100G^NJ9,3^^3;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,52,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,52,21,0)="^^1^1^2880710^"
^DD(112,52,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,53,0)="ISOLEUCINE; GM/100G^NJ9,3^^3;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,53,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,53,21,0)="^^1^1^2880710^"
^DD(112,53,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,54,0)="LEUCINE; GM/100G^NJ9,3^^3;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,54,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,54,21,0)="^^1^1^2880710^"
^DD(112,54,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,55,0)="LYSINE; GM/100G^NJ9,3^^3;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,55,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,55,21,0)="^^1^1^2880710^"
^DD(112,55,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,56,0)="METHIONINE; GM/100G^NJ9,3^^3;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,56,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,56,21,0)="^^1^1^2880710^"
^DD(112,56,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,57,0)="CYSTINE; GM/100G^NJ9,3^^3;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,57,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,57,21,0)="^^1^1^2880710^"
^DD(112,57,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,58,0)="PHENYLALANINE; GM/100G^NJ9,3^^3;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,58,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,58,21,0)="^^1^1^2880710^"
^DD(112,58,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,59,0)="TYROSINE; GM/100G^NJ9,3^^3;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,59,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,59,21,0)="^^1^1^2940802^^"
^DD(112,59,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,59,"DT")="2940802"
^DD(112,60,0)="VALINE; GM/100G^NJ9,3^^3;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,60,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,60,21,0)="^^1^1^2880710^"
^DD(112,60,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,61,0)="ARGININE; GM/100G^NJ9,3^^3;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,61,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,61,21,0)="^^1^1^2880710^"
^DD(112,61,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,62,0)="HISTIDINE; GM/100G^NJ9,3^^3;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,62,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,62,21,0)="^^1^1^2880710^"
^DD(112,62,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,63,0)="ALANINE; GM/100G^NJ9,3^^3;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,63,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,63,21,0)="^^1^1^2880710^"
^DD(112,63,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,64,0)="ASPARTIC ACID; GM/100G^NJ9,3^^3;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,64,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,64,21,0)="^^1^1^2880710^"
^DD(112,64,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,65,0)="GLUTAMIC ACID; GM/100G^NJ9,3^^3;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,65,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,65,21,0)="^^1^1^2880710^"
^DD(112,65,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,66,0)="GLYCINE; GM/100G^NJ9,3^^3;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,66,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,66,21,0)="^^1^1^2880710^"
^DD(112,66,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,67,0)="PROLINE; GM/100G^NJ9,3^^3;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,67,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,67,21,0)="^^1^1^2880710^"
^DD(112,67,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,68,0)="SERINE; GM/100G^NJ9,3^^3;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,68,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,68,21,0)="^^1^1^2880710^"
^DD(112,68,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,68,"DT")="2891204"
^DD(112,71,0)="CAPRIC ACID; GM/100G^NJ9,3^^4;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,71,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,71,21,0)="^^1^1^2880710^"
^DD(112,71,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,71,"DT")="2891205"
^DD(112,72,0)="LAURIC ACID; GM/100G^NJ9,3^^4;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,72,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,72,21,0)="^^1^1^2880710^"
^DD(112,72,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,73,0)="MYRISTIC ACID; GM/100G^NJ9,3^^4;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,73,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,73,21,0)="^^1^1^2880710^"
^DD(112,73,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,74,0)="PALMITIC ACID; GM/100G^NJ9,3^^4;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,74,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,74,21,0)="^^1^1^2880710^"
^DD(112,74,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,75,0)="PALMITOLEIC ACID; GM/100G^NJ9,3^^4;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,75,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,75,21,0)="^^1^1^2880710^"
^DD(112,75,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,76,0)="STEARIC ACID; GM/100G^NJ9,3^^4;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,76,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,76,21,0)="^^1^1^2880710^"
^DD(112,76,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,77,0)="OLEIC ACID; GM/100G^NJ9,3^^4;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,77,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,77,21,0)="^^1^1^2880710^"
^DD(112,77,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,78,0)="ARACHIDONIC ACID; GM/100G^NJ9,3^^4;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112,78,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,78,21,0)="^^1^1^2880710^"
^DD(112,78,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,79,0)="VITAMIN K; MCG/100G^NJ6,2^^4;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(112,79,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(112,79,21,0)="^^1^1^2921107^"
^DD(112,79,21,1,0)="This is the value per 100 gms. of this nutrient"
^DD(112,79,"DT")="2920704"
^DD(112,80,0)="SELENIUM; MCG/100G^NJ6,2^^4;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(112,80,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(112,80,21,0)="^^1^1^2921107^"
^DD(112,80,21,1,0)="This is the value per 100 gms. of this nutrient."
^DD(112,80,"DT")="2920704"
^DD(112,98,0)="SOURCE OF DATA^F^^20;1^K:$L(X)>80!($L(X)<1) X"
^DD(112,98,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,98,21,0)="^^1^1^2880710^"
^DD(112,98,21,1,0)="This is the value per 100 grams for this nutrient."
^DD(112,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(112,99,1,0)="^.1"
^DD(112,99,1,1,0)="112^AC^MUMPS"
^DD(112,99,1,1,1)="K:X'=""Y"" ^FHNU(DA,""I"")"
^DD(112,99,1,1,2)="K ^FHNU(DA,""I"")"
^DD(112,99,1,1,"%D",0)="^.101^2^2^3070820^^"
^DD(112,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(112,99,1,1,"%D",2,0)="inactive entries."
^DD(112,99,1,1,"DT")="3070820"
^DD(112,99,3)="Type a Number between 0 and 99999, 3 Decimal Digits"
^DD(112,99,21,0)="^.001^2^2^3070816^"
^DD(112,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(112,99,21,2,0)="further selection of this entry."
^DD(112,99,"DT")="3070820"
^DD(112,"B","% AS PURCHASED",5)=""
^DD(112,"B","ALANINE; GM/100G",63)=""
^DD(112,"B","ALCOHOL; GM/100G",45)=""
^DD(112,"B","ALPHA TOCOPHEROL; MG/100G",27)=""
^DD(112,"B","ALT NAME QUICK LIST?",4.4)=""
^DD(112,"B","ALTERNATE NAME",4.2)=""
^DD(112,"B","ARACHIDONIC ACID; GM/100G",78)=""
^DD(112,"B","ARGININE; GM/100G",61)=""
^DD(112,"B","ASCORBIC ACID; MG/100G",29)=""
^DD(112,"B","ASH; GM/100G",44)=""
^DD(112,"B","ASPARTIC ACID; GM/100G",64)=""
^DD(112,"B","CAFFEINE; MG/100G",46)=""
^DD(112,"B","CALCIUM; MG/100G",18)=""
^DD(112,"B","CAPRIC ACID; GM/100G",71)=""
^DD(112,"B","CARBOHYDRATE; GM/100G",13)=""
^DD(112,"B","CHOLESTEROL; MG/100G",39)=""
^DD(112,"B","CODE",1)=""
^DD(112,"B","COMMON UNITS",2)=""
^DD(112,"B","COPPER; MG/100G",25)=""
^DD(112,"B","CYSTINE; GM/100G",57)=""
^DD(112,"B","EDITABLE?",6)=""
^DD(112,"B","FOLATE; MCG/100G",35)=""
^DD(112,"B","FOOD ENERGY; KCAL/100G",14)=""
^DD(112,"B","GLUTAMIC ACID; GM/100G",65)=""
^DD(112,"B","GLYCINE; GM/100G",66)=""
^DD(112,"B","GRAMS/COMMON UNIT",3)=""
^DD(112,"B","HISTIDINE; GM/100G",62)=""
^DD(112,"B","INACTIVE?",99)=""
^DD(112,"B","IRON; MG/100G",19)=""
^DD(112,"B","ISOLEUCINE; GM/100G",53)=""
^DD(112,"B","LAURIC ACID; GM/100G",72)=""
^DD(112,"B","LEUCINE; GM/100G",54)=""
^DD(112,"B","LINOLEIC ACID; GM/100G",37)=""
^DD(112,"B","LINOLENIC ACID; GM/100G",38)=""
^DD(112,"B","LIPIDS; GM/100G",12)=""
^DD(112,"B","LYSINE; GM/100G",55)=""
^DD(112,"B","MAGNESIUM; MG/100G",20)=""
^DD(112,"B","MANGANESE; MG/100G",26)=""
^DD(112,"B","METHIONINE; GM/100G",56)=""
^DD(112,"B","MONOUNSATURATED FAT; GM/100G",41)=""
^DD(112,"B","MYRISTIC ACID; GM/100G",73)=""
^DD(112,"B","NAME",.01)=""
^DD(112,"B","NIACIN; MG/100G",32)=""
^DD(112,"B","OLEIC ACID; GM/100G",77)=""
^DD(112,"B","ORIGINAL NAME ON QUICK LIST?",4)=""
^DD(112,"B","PALMITIC ACID; GM/100G",74)=""
^DD(112,"B","PALMITOLEIC ACID; GM/100G",75)=""
^DD(112,"B","PANTOTHENIC ACID; MG/100G",33)=""
^DD(112,"B","PHENYLALANINE; GM/100G",58)=""
^DD(112,"B","PHOSPHORUS; MG/100G",21)=""
^DD(112,"B","POLYUNSATURATED FAT; GM/100G",42)=""
^DD(112,"B","POTASSIUM; MG/100G",22)=""
^DD(112,"B","PROLINE; GM/100G",67)=""
^DD(112,"B","PROTEIN; GM/100G",11)=""
^DD(112,"B","RIBOFLAVIN; MG/100G",31)=""
^DD(112,"B","SATURATED FAT; GM/100G",40)=""
^DD(112,"B","SELENIUM; MCG/100G",80)=""
^DD(112,"B","SERINE; GM/100G",68)=""
^DD(112,"B","SODIUM; MG/100G",23)=""
^DD(112,"B","SOURCE OF DATA",98)=""
^DD(112,"B","STEARIC ACID; GM/100G",76)=""
^DD(112,"B","THIAMIN; MG/100G",30)=""
^DD(112,"B","THREONINE; GM/100G",52)=""
^DD(112,"B","TOTAL DIETARY FIBER; GM/100G",47)=""
^DD(112,"B","TOTAL TOCOPHEROL; MG/100G",48)=""
^DD(112,"B","TRYPTOPHAN; GM/100G",51)=""
^DD(112,"B","TYPE",7)=""
^DD(112,"B","TYROSINE; GM/100G",59)=""
^DD(112,"B","VALINE; GM/100G",60)=""
^DD(112,"B","VITAMIN A; IU/100G",28)=""
^DD(112,"B","VITAMIN A; RE/100G",43)=""
^DD(112,"B","VITAMIN B12; MCG/100G",36)=""
^DD(112,"B","VITAMIN B6; MG/100G",34)=""
^DD(112,"B","VITAMIN K; MCG/100G",79)=""
^DD(112,"B","WATER; GM/100G",15)=""
^DD(112,"B","ZINC; MG/100G",24)=""
^DD(112,"GL",0,1,.01)=""
^DD(112,"GL",0,2,1)=""
^DD(112,"GL",0,3,2)=""
^DD(112,"GL",0,4,3)=""
^DD(112,"GL",0,5,5)=""
^DD(112,"GL",0,6,6)=""
^DD(112,"GL",0,7,7)=""
^DD(112,"GL",.6,1,4)=""
^DD(112,"GL",.6,2,4.2)=""
^DD(112,"GL",.6,3,4.4)=""
^DD(112,"GL",1,1,11)=""
^DD(112,"GL",1,2,12)=""
^DD(112,"GL",1,3,13)=""
^DD(112,"GL",1,4,14)=""
^DD(112,"GL",1,5,15)=""
^DD(112,"GL",1,8,18)=""
^DD(112,"GL",1,9,19)=""
^DD(112,"GL",1,10,20)=""
^DD(112,"GL",1,11,21)=""
^DD(112,"GL",1,12,22)=""
^DD(112,"GL",1,13,23)=""
^DD(112,"GL",1,14,24)=""
^DD(112,"GL",1,15,25)=""
^DD(112,"GL",1,16,26)=""
^DD(112,"GL",1,17,27)=""
^DD(112,"GL",1,18,28)=""
^DD(112,"GL",1,19,29)=""
^DD(112,"GL",1,20,30)=""
^DD(112,"GL",2,1,31)=""
^DD(112,"GL",2,2,32)=""
^DD(112,"GL",2,3,33)=""
^DD(112,"GL",2,4,34)=""
^DD(112,"GL",2,5,35)=""
^DD(112,"GL",2,6,36)=""
^DD(112,"GL",2,7,37)=""
^DD(112,"GL",2,8,38)=""
^DD(112,"GL",2,9,39)=""
^DD(112,"GL",2,10,40)=""
^DD(112,"GL",2,11,41)=""
^DD(112,"GL",2,12,42)=""
^DD(112,"GL",2,13,43)=""
^DD(112,"GL",2,14,44)=""
^DD(112,"GL",2,15,45)=""
^DD(112,"GL",2,16,46)=""
^DD(112,"GL",2,17,47)=""
^DD(112,"GL",2,18,48)=""
^DD(112,"GL",3,1,51)=""
^DD(112,"GL",3,2,52)=""
^DD(112,"GL",3,3,53)=""
^DD(112,"GL",3,4,54)=""
^DD(112,"GL",3,5,55)=""
^DD(112,"GL",3,6,56)=""
^DD(112,"GL",3,7,57)=""
^DD(112,"GL",3,8,58)=""
^DD(112,"GL",3,9,59)=""
^DD(112,"GL",3,10,60)=""
^DD(112,"GL",3,11,61)=""
^DD(112,"GL",3,12,62)=""
^DD(112,"GL",3,13,63)=""
^DD(112,"GL",3,14,64)=""
^DD(112,"GL",3,15,65)=""
^DD(112,"GL",3,16,66)=""
^DD(112,"GL",3,17,67)=""
^DD(112,"GL",3,18,68)=""
^DD(112,"GL",4,1,71)=""
^DD(112,"GL",4,2,72)=""
^DD(112,"GL",4,3,73)=""
^DD(112,"GL",4,4,74)=""
^DD(112,"GL",4,5,75)=""
^DD(112,"GL",4,6,76)=""
^DD(112,"GL",4,7,77)=""
^DD(112,"GL",4,8,78)=""
^DD(112,"GL",4,9,79)=""
^DD(112,"GL",4,10,80)=""
^DD(112,"GL",20,1,98)=""
^DD(112,"GL","I",1,99)=""
^DD(112,"IX",.01)=""
^DD(112,"IX",1)=""
^DD(112,"IX",4)=""
^DD(112,"IX",4.2)=""
^DD(112,"IX",4.4)=""
^DD(112,"IX",99)=""
^DD(112,"RQ",.01)=""
^DD(112.2,0)="FIELD^^26^28"
^DD(112.2,0,"DDA")="N"
^DD(112.2,0,"DT")="3020415"
^DD(112.2,0,"IX","B",112.2,.01)=""
^DD(112.2,0,"IX","C",112.2,.5)=""
^DD(112.2,0,"NM","DRI VALUES")=""
^DD(112.2,0,"VR")="5.5"
^DD(112.2,0,"VRPK")="DIETETICS"
^DD(112.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(112.2,.01,1,0)="^.1"
^DD(112.2,.01,1,1,0)="112.2^B"
^DD(112.2,.01,1,1,1)="S ^FH(112.2,""B"",$E(X,1,30),DA)="""""
^DD(112.2,.01,1,1,2)="K ^FH(112.2,""B"",$E(X,1,30),DA)"
^DD(112.2,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(112.2,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(112.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(112.2,.01,21,0)="^^2^2^2880717^"
^DD(112.2,.01,21,1,0)="This field contains the name of a category of people for whom"
^DD(112.2,.01,21,2,0)="Recommended Dietary Allowance values have been published."
^DD(112.2,.5,0)="MNEMONIC^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(112.2,.5,1,0)="^.1"
^DD(112.2,.5,1,1,0)="112.2^C"
^DD(112.2,.5,1,1,1)="S ^FH(112.2,""C"",$E(X,1,30),DA)="""""
^DD(112.2,.5,1,1,2)="K ^FH(112.2,""C"",$E(X,1,30),DA)"
^DD(112.2,.5,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(112.2,.5,21,0)="^^2^2^2950221^^^"
^DD(112.2,.5,21,1,0)="This is a short name, or mnemonic, for the RDA category of"
^DD(112.2,.5,21,2,0)="persons."
^DD(112.2,.5,"DT")="2950221"
^DD(112.2,1,0)="PROTEIN GM.^NJ5,1^^1;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(112.2,1,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(112.2,1,21,0)="^^2^2^2880717^^^"
^DD(112.2,1,21,1,0)="This field represents the recommended amount of Protein per"
^DD(112.2,1,21,2,0)="day for this RDA group."
^DD(112.2,2,0)="VITAMIN A RE^NJ4,0^^1;2^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,2,3)="Type a Number between 0 and 3000, 0 Decimal Digits"
^DD(112.2,2,21,0)="^^2^2^2891211^^^^"
^DD(112.2,2,21,1,0)="This field represents the recommended amount of Vitamin A in"
^DD(112.2,2,21,2,0)="Retinol Equivalents per day for this RDA group."
^DD(112.2,2,"DT")="2891211"
^DD(112.2,3,0)="VITAMIN E MG^NJ3,0^^1;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(112.2,3,21,0)="^^2^2^2880717^^^"
^DD(112.2,3,21,1,0)="This field represents the recommended amount of Vitamin E per"
^DD(112.2,3,21,2,0)="day for this RDA group."
^DD(112.2,4,0)="VITAMIN C MG^NJ3,0^^1;4^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,4,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(112.2,4,21,0)="^.001^2^2^3020408^^^"
^DD(112.2,4,21,1,0)="This field represents the recommended amount of Vitamin C per"
^DD(112.2,4,21,2,0)="day for this RDA group."
^DD(112.2,4,"DT")="3020408"
^DD(112.2,5,0)="THIAMIN MG^NJ3,1^^1;5^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(112.2,5,3)="TYPE A NUMBER BETWEEN 0 AND 3"
^DD(112.2,5,21,0)="^^2^2^2880717^^"
^DD(112.2,5,21,1,0)="This field represents the recommended amount of Thiamin per"
^DD(112.2,5,21,2,0)="day for this RDA group."
^DD(112.2,6,0)="RIBOFLAVIN MG^NJ3,1^^1;6^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(112.2,6,3)="TYPE A NUMBER BETWEEN 0 AND 3"
^DD(112.2,6,21,0)="^^2^2^2880717^^"
^DD(112.2,6,21,1,0)="This field represents the recommended amount of Riboflavin per"
^DD(112.2,6,21,2,0)="day for this RDA group."
^DD(112.2,7,0)="NIACIN MG^NJ2,0^^1;7^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 50"
^DD(112.2,7,21,0)="^^2^2^2880717^^"
^DD(112.2,7,21,1,0)="This field represents the recommended amount of Niacin per"
^DD(112.2,7,21,2,0)="day for this RDA group."
^DD(112.2,8,0)="VITAMIN B6 MG^NJ3,1^^1;8^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""2N.N) X"
^DD(112.2,8,3)="TYPE A NUMBER BETWEEN 0 AND 5"
^DD(112.2,8,21,0)="^^2^2^2880717^^"
^DD(112.2,8,21,1,0)="This field represents the recommended amount of Vitamin B6 per"
^DD(112.2,8,21,2,0)="day for this RDA group."
^DD(112.2,9,0)="FOLATE MCG^NJ4,0^^1;9^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(112.2,9,21,0)="^^2^2^2891117^^^"
^DD(112.2,9,21,1,0)="This field represents the recommended amount of Folate per"
^DD(112.2,9,21,2,0)="day for this RDA group."
^DD(112.2,10,0)="VITAMIN B12 MCG^NJ3,1^^1;10^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""2N.N) X"
^DD(112.2,10,3)="Type a Number between 0 and 5, 1 Decimal Digit"
^DD(112.2,10,21,0)="^.001^2^2^3020409^^^^"
^DD(112.2,10,21,1,0)="This field represents the recommended amount of Vitamin B12 per"
^DD(112.2,10,21,2,0)="day for this RDA group."
^DD(112.2,10,"DT")="3020409"
^DD(112.2,11,0)="CALCIUM MG^NJ4,0^^1;11^K:+X'=X!(X>2000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2000"
^DD(112.2,11,21,0)="^^2^2^2880717^^"
^DD(112.2,11,21,1,0)="This field represents the recommended amount of Calcium per"
^DD(112.2,11,21,2,0)="day for this RDA group."
^DD(112.2,12,0)="PHOSPHORUS MG^NJ4,0^^1;12^K:+X'=X!(X>2000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2000"
^DD(112.2,12,21,0)="^^2^2^2880717^^"
^DD(112.2,12,21,1,0)="This field represents the recommended amount of Phosphorus per"
^DD(112.2,12,21,2,0)="day for this RDA group."
^DD(112.2,13,0)="MAGNESIUM MG^NJ4,0^^1;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,13,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(112.2,13,21,0)="^^2^2^2880717^^"
^DD(112.2,13,21,1,0)="This field represents the recommended amount of Magnesium per"
^DD(112.2,13,21,2,0)="day for this RDA group."
^DD(112.2,14,0)="IRON MG^NJ3,0^^1;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,14,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(112.2,14,21,0)="^^2^2^2880717^^"
^DD(112.2,14,21,1,0)="This field represents the recommended amount of Iron per"
^DD(112.2,14,21,2,0)="day for this RDA group."
^DD(112.2,15,0)="ZINC MG^NJ2,0^^1;15^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,15,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 50"
^DD(112.2,15,21,0)="^^2^2^2880717^^"
^DD(112.2,15,21,1,0)="This field represents the recommended amount of Zinc per"
^DD(112.2,15,21,2,0)="day for this RDA group."
^DD(112.2,16,0)="PANTOTHENIC ACID MG^NJ4,1^^1;16^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""2N.N) X"
^DD(112.2,16,3)="TYPE A NUMBER BETWEEN 0 AND 20"
^DD(112.2,16,21,0)="^^2^2^2880717^^"
^DD(112.2,16,21,1,0)="This field represents the recommended amount of Pantothenic Acid per"
^DD(112.2,16,21,2,0)="day for this RDA group."
^DD(112.2,17,0)="COPPER MG^NJ4,2^^1;17^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""3N.N) X"
^DD(112.2,17,3)="Type a Number between 0 and 9, 2 Decimal Digits"
^DD(112.2,17,21,0)="^.001^2^2^3020410^^^^"
^DD(112.2,17,21,1,0)="This field represents the recommended amount of Copper per"
^DD(112.2,17,21,2,0)="day for this RDA group."
^DD(112.2,17,"DT")="3020410"
^DD(112.2,18,0)="MANGANESE MG^NJ5,2^^1;18^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""3N.N) X"
^DD(112.2,18,3)="TYPE A NUMBER BETWEEN 0 AND 20"
^DD(112.2,18,21,0)="^^2^2^2880717^^"
^DD(112.2,18,21,1,0)="This field represents the recommended amount of Manganese per"
^DD(112.2,18,21,2,0)="day for this RDA group."
^DD(112.2,19,0)="SODIUM MG^NJ4,0^^1;19^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,19,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 5000"
^DD(112.2,19,21,0)="^^2^2^2880717^^"
^DD(112.2,19,21,1,0)="This field represents the recommended amount of Sodium per"
^DD(112.2,19,21,2,0)="day for this RDA group."
^DD(112.2,20,0)="POTASSIUM MG^NJ5,0^^1;20^K:+X'=X!(X>20000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,20,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 20000"
^DD(112.2,20,21,0)="^^2^2^2880717^^"
^DD(112.2,20,21,1,0)="This field represents the recommended amount of Potassium per"
^DD(112.2,20,21,2,0)="day for this RDA group."
^DD(112.2,21,0)="BIOTIN MCG^NJ2,0^^1;21^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,21,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(112.2,21,21,0)="^.001^2^2^3020404^^"
^DD(112.2,21,21,1,0)="This field represents the recommended amount of Biotin"
^DD(112.2,21,21,2,0)="per day for this DRI group."
^DD(112.2,21,"DT")="3020404"
^DD(112.2,22,0)="SELENIUM MCG^NJ6,2^^1;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(112.2,22,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(112.2,22,21,0)="^.001^2^2^3020404^^^^"
^DD(112.2,22,21,1,0)="This field represents the recommended amount of Selenium"
^DD(112.2,22,21,2,0)="per day for this RDA group."
^DD(112.2,22,"DT")="2920704"
^DD(112.2,23,0)="CHOLINE MG^NJ3,0^^1;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,23,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(112.2,23,21,0)="^^2^2^3020404^"
^DD(112.2,23,21,1,0)="This field represents the recommended amount of Choline per"
^DD(112.2,23,21,2,0)="day for this RDA group."
^DD(112.2,23,"DT")="3020404"
^DD(112.2,24,0)="VITAMIN D MCG^NJ2,0^^1;24^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(112.2,24,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(112.2,24,21,0)="^.001^2^2^3020404^^"
^DD(112.2,24,21,1,0)="This field represents the recommended amount of Vitamin D per"
^DD(112.2,24,21,2,0)="day for this RDA group."
^DD(112.2,24,"DT")="3020404"
^DD(112.2,25,0)="FLUORIDE MG^NJ5,2^^1;25^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(112.2,25,3)="Type a Number between 0 and 99, 2 Decimal Digits"
^DD(112.2,25,21,0)="^^2^2^3020404^"
^DD(112.2,25,21,1,0)="This field represents the recommended amount of Fluoride per"
^DD(112.2,25,21,2,0)="day for this RDA group."
^DD(112.2,25,"DT")="3020404"
^DD(112.2,26,0)="VITAMIN K MCG^NJ6,2^^1;26^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(112.2,26,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(112.2,26,21,0)="^^2^2^3020415^"
^DD(112.2,26,21,1,0)="This field represents the recommended amount of Vitamin K"
^DD(112.2,26,21,2,0)="per day for this DRI group."
^DD(112.2,26,"DT")="3020415"
^DD(112.2,"B","BIOTIN MCG",21)=""
^DD(112.2,"B","CALCIUM MG",11)=""
^DD(112.2,"B","CHOLINE MG",23)=""
^DD(112.2,"B","COPPER MG",17)=""
^DD(112.2,"B","FLUORIDE MG",25)=""
^DD(112.2,"B","FOLATE MCG",9)=""
^DD(112.2,"B","IRON MG",14)=""
^DD(112.2,"B","MAGNESIUM MG",13)=""
^DD(112.2,"B","MANGANESE MG",18)=""
^DD(112.2,"B","MNEMONIC",.5)=""
^DD(112.2,"B","NAME",.01)=""
^DD(112.2,"B","NIACIN MG",7)=""
^DD(112.2,"B","PANTOTHENIC ACID MG",16)=""
^DD(112.2,"B","PHOSPHORUS MG",12)=""
^DD(112.2,"B","POTASSIUM MG",20)=""
^DD(112.2,"B","PROTEIN GM.",1)=""
^DD(112.2,"B","RIBOFLAVIN MG",6)=""
^DD(112.2,"B","SELENIUM MCG",22)=""
^DD(112.2,"B","SODIUM MG",19)=""
^DD(112.2,"B","THIAMIN MG",5)=""
^DD(112.2,"B","VITAMIN A RE",2)=""
^DD(112.2,"B","VITAMIN B12 MCG",10)=""
^DD(112.2,"B","VITAMIN B6 MG",8)=""
^DD(112.2,"B","VITAMIN C MG",4)=""
^DD(112.2,"B","VITAMIN D MCG",24)=""
^DD(112.2,"B","VITAMIN E MG",3)=""
^DD(112.2,"B","VITAMIN K MCG",26)=""
^DD(112.2,"B","ZINC MG",15)=""
^DD(112.2,"GL",0,1,.01)=""
^DD(112.2,"GL",0,2,.5)=""
^DD(112.2,"GL",1,1,1)=""
^DD(112.2,"GL",1,2,2)=""
^DD(112.2,"GL",1,3,3)=""
^DD(112.2,"GL",1,4,4)=""
^DD(112.2,"GL",1,5,5)=""
^DD(112.2,"GL",1,6,6)=""
^DD(112.2,"GL",1,7,7)=""
^DD(112.2,"GL",1,8,8)=""
^DD(112.2,"GL",1,9,9)=""
^DD(112.2,"GL",1,10,10)=""
^DD(112.2,"GL",1,11,11)=""
^DD(112.2,"GL",1,12,12)=""
^DD(112.2,"GL",1,13,13)=""
^DD(112.2,"GL",1,14,14)=""
^DD(112.2,"GL",1,15,15)=""
^DD(112.2,"GL",1,16,16)=""
^DD(112.2,"GL",1,17,17)=""
^DD(112.2,"GL",1,18,18)=""
^DD(112.2,"GL",1,19,19)=""
^DD(112.2,"GL",1,20,20)=""
^DD(112.2,"GL",1,21,21)=""
^DD(112.2,"GL",1,22,22)=""
^DD(112.2,"GL",1,23,23)=""
^DD(112.2,"GL",1,24,24)=""
^DD(112.2,"GL",1,25,25)=""
^DD(112.2,"GL",1,26,26)=""
^DD(112.2,"IX",.01)=""
^DD(112.2,"IX",.5)=""
^DD(112.2,"RQ",.01)=""
^DD(112.6,0)="FIELD^^2^6"
^DD(112.6,0,"DT")="2931124"
^DD(112.6,0,"ID","WRIT")="D:$D(^(""0"")) EN^DDIOL($E($P(^(""0""),U,3),4,5)_""-""_$E($P(^(""0""),U,3),6,7)_""-""_$E($P(^(""0""),U,3),2,3),"""",""?3"")"
^DD(112.6,0,"IX","B",112.6,.01)=""
^DD(112.6,0,"NM","USER MENU")=""
^DD(112.6,0,"VR")="5.5"
^DD(112.6,0,"VRPK")="DIETETICS"
^DD(112.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(112.6,.01,1,0)="^.1"
^DD(112.6,.01,1,1,0)="112.6^B"
^DD(112.6,.01,1,1,1)="S ^FHUM(""B"",$E(X,1,30),DA)="""""
^DD(112.6,.01,1,1,2)="K ^FHUM(""B"",$E(X,1,30),DA)"
^DD(112.6,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(112.6,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(112.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(112.6,.01,21,0)="^^3^3^2880717^"
^DD(112.6,.01,21,1,0)="This field contains the name of a user menu. This is a list of"
^DD(112.6,.01,21,2,0)="food items, and amounts, that a user wishes to have analyzed"
^DD(112.6,.01,21,3,0)="for nutrient content."
^DD(112.6,.01,"DT")="2850517"
^DD(112.6,.6,0)="UNITS^RS^C:COMMON;G:GRAMS;^0;2^Q"
^DD(112.6,.6,21,0)="^^2^2^2940616^^"
^DD(112.6,.6,21,1,0)="This field indicates whether common units are used in specifying"
^DD(112.6,.6,21,2,0)="quantities or whether grams are used throughout."
^DD(112.6,.6,"DT")="2841102"
^DD(112.6,.7,0)="DATE ENTERED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(112.6,.7,21,0)="^^2^2^2880717^"
^DD(112.6,.7,21,1,0)="This field indicates the date on which this user menu was first"
^DD(112.6,.7,21,2,0)="created."
^DD(112.6,.7,"DT")="2841102"
^DD(112.6,.8,0)="USER^P200'^VA(200,^0;4^Q"
^DD(112.6,.8,21,0)="^^1^1^2880717^"
^DD(112.6,.8,21,1,0)="This field indicates the person who first created the user menu."
^DD(112.6,.8,"DT")="2841102"
^DD(112.6,1,0)="DAY NUMBER^112.61^^1;0"
^DD(112.6,1,21,0)="^^3^3^2931116^^^^"
^DD(112.6,1,21,1,0)="This field contains the sequence number, or day number, of the"
^DD(112.6,1,21,2,0)="days represented by this menu. It is normally 1 to the maximum"
^DD(112.6,1,21,3,0)="number of used entered."
^DD(112.6,2,0)="RECIPE MENU?^S^1:YES;0:NO;^0;5^Q"
^DD(112.6,2,21,0)="^^2^2^2950221^^^^"
^DD(112.6,2,21,1,0)="This field, if answered yes, means this user menu is a recipe"
^DD(112.6,2,21,2,0)="menu else, if answered no, means it is not."
^DD(112.6,2,"DT")="2931116"
^DD(112.6,"B","DATE ENTERED",.7)=""
^DD(112.6,"B","DAY NUMBER",1)=""
^DD(112.6,"B","NAME",.01)=""
^DD(112.6,"B","RECIPE MENU?",2)=""
^DD(112.6,"B","UNITS",.6)=""
^DD(112.6,"B","USER",.8)=""
^DD(112.6,"GL",0,1,.01)=""
^DD(112.6,"GL",0,2,.6)=""
^DD(112.6,"GL",0,3,.7)=""
^DD(112.6,"GL",0,4,.8)=""
^DD(112.6,"GL",0,5,2)=""
^DD(112.6,"GL",1,0,1)=""
^DD(112.6,"IX",.01)=""
^DD(112.6,"RQ",.01)=""
^DD(112.6,"RQ",.6)=""
^DD(112.6,"SB",112.61,1)=""
^DD(112.61,0)="DAY NUMBER SUB-FIELD^NL^1^2"
^DD(112.61,0,"DT")="2931124"
^DD(112.61,0,"NM","DAY NUMBER")=""
^DD(112.61,0,"UP")="112.6"
^DD(112.61,.01,0)="DAY NUMBER^MRNJ2,0X^^0;1^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(112.61,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 7"
^DD(112.61,.01,21,0)="^^1^1^2931117^^"
^DD(112.61,.01,21,1,0)="This is the day number for which meals will be entered."
^DD(112.61,.01,"DT")="2931117"
^DD(112.61,1,0)="MEAL NUMBER^112.62^^1;0"
^DD(112.61,1,21,0)="^^4^4^2931117^^"
^DD(112.61,1,21,1,0)="This is the meal number for which food items will be entered."
^DD(112.61,1,21,2,0)="It is merely a sequence number and individual meals, such as"
^DD(112.61,1,21,3,0)="breakfast, noon, and evening are not referenced as such since"
^DD(112.61,1,21,4,0)="meals may be snack times, or other eating times."
^DD(112.61,"B","DAY NUMBER",.01)=""
^DD(112.61,"B","MEAL NUMBER",1)=""
^DD(112.61,"GL",0,1,.01)=""
^DD(112.61,"GL",1,0,1)=""
^DD(112.61,"RQ",.01)=""
^DD(112.61,"SB",112.62,1)=""
^DD(112.62,0)="MEAL NUMBER SUB-FIELD^NL^4^5"
^DD(112.62,0,"DT")="2931124"
^DD(112.62,0,"NM","MEAL NUMBER")=""
^DD(112.62,0,"UP")="112.61"
^DD(112.62,.01,0)="MEAL NUMBER^MRNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(112.62,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 6"
^DD(112.62,.01,21,0)="^^1^1^2931116^^"
^DD(112.62,.01,21,1,0)="This is the meal number for which food items will be entered."
^DD(112.62,.01,"DT")="2931116"
^DD(112.62,1,0)="FOOD ITEM^112.63P^^1;0"
^DD(112.62,1,21,0)="^^2^2^2931117^^^"
^DD(112.62,1,21,1,0)="This multiple represents the food items, selected from the"
^DD(112.62,1,21,2,0)="Food Nutrient file, which are represented in the meal."
^DD(112.62,2,0)="MEAL^P116.1'^FH(116.1,^0;2^Q"
^DD(112.62,2,21,0)="^^1^1^2931220^^^^"
^DD(112.62,2,21,1,0)="This field represents the meal file."
^DD(112.62,2,"DT")="2931117"
^DD(112.62,3,0)="PRODUCTION DIET^P116.2^FH(116.2,^0;3^Q"
^DD(112.62,3,3)=""
^DD(112.62,3,21,0)="^^2^2^2931124^^^^"
^DD(112.62,3,21,1,0)="This is a pointer to the Production Diet file (116.2) to indicate"
^DD(112.62,3,21,2,0)="the Production Diet which associates with the menu."
^DD(112.62,3,"DT")="2931124"
^DD(112.62,4,0)="RECIPE^112.64P^^2;0"
^DD(112.62,4,21,0)="^^2^2^2931117^^"
^DD(112.62,4,21,1,0)="This multiple stores the selected recipes from the Recipe file"
^DD(112.62,4,21,2,0)="used for the Meal Analysis."
^DD(112.62,"B","FOOD ITEM",1)=""
^DD(112.62,"B","MEAL",2)=""
^DD(112.62,"B","MEAL NUMBER",.01)=""
^DD(112.62,"B","PRODUCTION DIET",3)=""
^DD(112.62,"B","RECIPE",4)=""
^DD(112.62,"GL",0,1,.01)=""
^DD(112.62,"GL",0,2,2)=""
^DD(112.62,"GL",0,3,3)=""
^DD(112.62,"GL",1,0,1)=""
^DD(112.62,"GL",2,0,4)=""
^DD(112.62,"RQ",.01)=""
^DD(112.62,"SB",112.63,1)=""
^DD(112.62,"SB",112.64,4)=""
^DD(112.63,0)="FOOD ITEM SUB-FIELD^NL^1^2"
^DD(112.63,0,"NM","FOOD ITEM")=""
^DD(112.63,0,"UP")="112.62"
^DD(112.63,.01,0)="FOOD ITEM^MP112'X^FHNU(^0;1^S:$D(X) DINUM=X"
^DD(112.63,.01,21,0)="^^1^1^2931117^^^^"
^DD(112.63,.01,21,1,0)="This is the food item selected from the Food Nutrient file."
^DD(112.63,.01,"DT")="2841114"
^DD(112.63,1,0)="AMOUNT^NJ9,3^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(112.63,1,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(112.63,1,21,0)="^^3^3^2931117^^^^"
^DD(112.63,1,21,1,0)="This is the amount of the food item. If grams were selected as"
^DD(112.63,1,21,2,0)="the units type, then the amount is in grams. If common units"
^DD(112.63,1,21,3,0)="were selected, the amount is in terms of those common units."
^DD(112.63,1,"DT")="2851127"
^DD(112.63,"B","AMOUNT",1)=""
^DD(112.63,"B","FOOD ITEM",.01)=""
^DD(112.63,"GL",0,1,.01)=""
^DD(112.63,"GL",0,2,1)=""
^DD(112.64,0)="RECIPE SUB-FIELD^^1^2"
^DD(112.64,0,"DT")="2931117"
^DD(112.64,0,"NM","RECIPE")=""
^DD(112.64,0,"UP")="112.62"
^DD(112.64,.01,0)="RECIPE^MP114'X^FH(114,^0;1^S:$D(X) DINUM=X"
^DD(112.64,.01,1,0)="^.1^^0"
^DD(112.64,.01,21,0)="^^1^1^2931220^^^^"
^DD(112.64,.01,21,1,0)="This is the recipe selected from the Recipe file."
^DD(112.64,.01,"DT")="2931123"
^DD(112.64,1,0)="SERVING PORTION^NJ6,1^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(112.64,1,3)="Type a Number between 1 and 9999, 1 Decimal Digit"
^DD(112.64,1,21,0)="^^1^1^2931117^"
^DD(112.64,1,21,1,0)="This is the serving portion of the recipe."
^DD(112.64,1,"DT")="2931117"
^DD(112.64,"B","RECIPE",.01)=""
^DD(112.64,"B","SERVING PORTION",1)=""
^DD(112.64,"GL",0,1,.01)=""
^DD(112.64,"GL",0,2,1)=""
^DD(113,0)="FIELD^^99^23"
^DD(113,0,"DT")="2930211"
^DD(113,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(113,0,"IX","AC",113,99)=""
^DD(113,0,"IX","B",113,.01)=""
^DD(113,0,"IX","C",113,2)=""
^DD(113,0,"NM","INGREDIENT")=""
^DD(113,0,"PT",114.01,.01)=""
^DD(113,0,"SCR")="I '$D(^FH(113,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(113,0,"VR")="5.5"
^DD(113,0,"VRPK")="DIETETICS"
^DD(113,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(113,.01,1,0)="^.1"
^DD(113,.01,1,1,0)="113^B"
^DD(113,.01,1,1,1)="S ^FHING(""B"",$E(X,1,30),DA)="""""
^DD(113,.01,1,1,2)="K ^FHING(""B"",$E(X,1,30),DA)"
^DD(113,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(113,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(113,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(113,.01,21,0)="^^2^2^2880710^"
^DD(113,.01,21,1,0)="This is the name of the ingredient which is an ordered item"
^DD(113,.01,21,2,0)="generally and which is used in the preparation of recipes."
^DD(113,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(113,1,0)="SUPPLY DESCRIPTION^RF^^0;2^K:$L(X)>21!($L(X)<3) X"
^DD(113,1,3)="ANSWER MUST BE 3-21 CHARACTERS IN LENGTH"
^DD(113,1,21,0)="^^2^2^2880710^"
^DD(113,1,21,1,0)="This is a short description which will be used on purchase"
^DD(113,1,21,2,0)="orders."
^DD(113,1,"DT")="2880227"
^DD(113,2,0)="STOCK NUMBER^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<1) X"
^DD(113,2,1,0)="^.1"
^DD(113,2,1,1,0)="113^C^MUMPS"
^DD(113,2,1,1,1)="S ^FHING(""C"",$E(X,$L(X)-3,$L(X)),DA)="""""
^DD(113,2,1,1,2)="K ^FHING(""C"",$E(X,$L(X)-3,$L(X)),DA)"
^DD(113,2,1,1,"%D",0)="^^2^2^2940824^"
^DD(113,2,1,1,"%D",1,0)="This cross-reference consists of the last 4 characters of the"
^DD(113,2,1,1,"%D",2,0)="Stock Number which has been entered."
^DD(113,2,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(113,2,21,0)="^^3^3^2880710^"
^DD(113,2,21,1,0)="This is the Federal Stock Number (with hyphens) for items"
^DD(113,2,21,2,0)="obtained from VA Depots or DLA. It may be the local vendor's"
^DD(113,2,21,3,0)="number for other items."
^DD(113,2,"DT")="2880227"
^DD(113,3,0)="VENDOR^P113.2^FH(113.2,^0;4^Q"
^DD(113,3,21,0)="^^2^2^2880710^"
^DD(113,3,21,1,0)="This field indicates the current vendor from whom the item"
^DD(113,3,21,2,0)="is procured."
^DD(113,3,"DT")="2861023"
^DD(113,4,0)="UNIT OF PURCHASE (U/P)^RF^^0;5^K:$L(X)>2!($L(X)<2) X"
^DD(113,4,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(113,4,21,0)="^^3^3^2890208^^"
^DD(113,4,21,1,0)="This is a two-character abbreviation indicating the unit"
^DD(113,4,21,2,0)="of purchase and is such things as CN for can, PK for"
^DD(113,4,21,3,0)="package, CS for case, etc."
^DD(113,4,"DT")="2890208"
^DD(113,5,0)="DIETETIC UNIT OF ISSUE^RP119.1X^FH(119.1,^0;6^I $D(X) S X=$P(^FH(119.1,+X,0),""^"",1)"
^DD(113,5,21,0)="^^3^3^2920522^^^"
^DD(113,5,21,1,0)="This is the unit of issue that dietetic personnel or supply"
^DD(113,5,21,2,0)="personnel use for dispensing the item to ingredient control."
^DD(113,5,21,3,0)="It is generally a #10-can or similar description."
^DD(113,6,0)="ORDERING MULTIPLE (OF U/P)^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(113,6,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(113,6,21,0)="^^4^4^2880710^"
^DD(113,6,21,1,0)="If the vendor requires that the unit of purchase be bought"
^DD(113,6,21,2,0)="in some multiple, like 6 or 12 or 24, then that multiple"
^DD(113,6,21,3,0)="is indicated here. VA Depot is the most common vendor"
^DD(113,6,21,4,0)="requiring such multiples."
^DD(113,6,"DT")="2880227"
^DD(113,7,0)="NO. OF ISSUE UNITS IN A U/P^RNJ9,4^^0;8^K:+X'=X!(X>9999)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(113,7,3)="TYPE A NUMBER BETWEEN .0001 AND 9999"
^DD(113,7,21,0)="^^4^4^2880710^"
^DD(113,7,21,1,0)="This is the number of Dietetic issue units in a unit of"
^DD(113,7,21,2,0)="purchase. If the U/P (unit of Purchase) is a CS that"
^DD(113,7,21,3,0)="contains 6 #10-cans and the Dietetic Issue unit is"
^DD(113,7,21,4,0)="a #10-can then the value is 6."
^DD(113,8,0)="PRICE/UNIT OF PURCHASE^NJ8,3^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(113,8,1,0)="^.1^^0"
^DD(113,8,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(113,8,21,0)="^^2^2^2920717^^^^"
^DD(113,8,21,1,0)="This field contains the most recent price of the unit"
^DD(113,8,21,2,0)="of purchase from the vendor."
^DD(113,8,"AUDIT")="n"
^DD(113,8,"DT")="2920717"
^DD(113,9,0)="REORDER LEVEL (IN U/P)^NJ5,0^^0;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(113,9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(113,9,21,0)="^^3^3^2880710^"
^DD(113,9,21,1,0)="This field indicates that when the on-hand quantity drops"
^DD(113,9,21,2,0)="below this value (the re-order level), then additional"
^DD(113,9,21,3,0)="quantities should be ordered."
^DD(113,9,"DT")="2930413"
^DD(113,10,0)="ON HAND (IN U/P)^NJ8,2^^0;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(113,10,3)="Type a Number between 0 and 99999, 2 Decimal Digits"
^DD(113,10,21,0)="^^1^1^2920720^^^^"
^DD(113,10,21,1,0)="This field contains the number of issue units that are on hand."
^DD(113,10,"DT")="2930413"
^DD(113,11,0)="STORAGE LOCATION^P113.1'^FH(113.1,^0;12^Q"
^DD(113,11,21,0)="^^3^3^2880710^"
^DD(113,11,21,1,0)="This field indicates the storage location (File 113.1) where"
^DD(113,11,21,2,0)="dietetics normally stores the item and where the stockroom"
^DD(113,11,21,3,0)="requisition clerk will normally obtain it."
^DD(113,20,0)="FOOD GROUP^RNJ1,0^^0;13^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(113,20,3)="Type a Number between 1 and 6, 0 Decimal Digits"
^DD(113,20,21,0)="^^2^2^2941214^^^"
^DD(113,20,21,1,0)="This field contains the food group designated by the VA"
^DD(113,20,21,2,0)="for this ingredient item."
^DD(113,20,"DT")="2890712"
^DD(113,23,0)="RECIPE UNIT^RSX^LB:LB;GAL:GAL;EACH:EACH;^0;16^W *7,*7,!!,""BEWARE! a change in the RECIPE UNIT has considerable impact on the RECIPE data!"" Q"
^DD(113,23,3)=""
^DD(113,23,12)="Only Units valid as Recipe Units may be chosen"
^DD(113,23,12.1)="S DIC(""S"")=""I Y<7"""
^DD(113,23,21,0)="^^9^9^2880710^"
^DD(113,23,21,1,0)="This field contains LB, GAL, or EACH and is used to indicate"
^DD(113,23,21,2,0)="whether weight (LB), volumetric (GAL) or each (EACH) units"
^DD(113,23,21,3,0)="are to be used in recipes to indicate the quantity required"
^DD(113,23,21,4,0)="of this item. Amounts are stored in that file in these units."
^DD(113,23,21,5,0)=" "
^DD(113,23,21,6,0)="It is extremely important that this field NOT be changed unless"
^DD(113,23,21,7,0)="it is certain that no recipes use this ingredient. Changing"
^DD(113,23,21,8,0)="the field will invalidate the quantities shown in any recipe"
^DD(113,23,21,9,0)="using the item."
^DD(113,23,"DT")="2871115"
^DD(113,24,0)="# OF REC UNITS/ISSUE UNIT^RNJ9,4^^0;17^K:+X'=X!(X>9999)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(113,24,3)="TYPE A NUMBER BETWEEN .0001 AND 9999"
^DD(113,24,21,0)="^^2^2^2880710^"
^DD(113,24,21,1,0)="This field indicates the number of recipe units contained in"
^DD(113,24,21,2,0)="a Dietetic Issue unit."
^DD(113,25,0)="INVENTORY?^S^Y:YES;N:NO;^0;19^Q"
^DD(113,25,21,0)="^^4^4^2920428^^"
^DD(113,25,21,1,0)="This field, when answered YES, will indicate that inventorying"
^DD(113,25,21,2,0)="of this item is desired. It is often NO for such items as"
^DD(113,25,21,3,0)="condiment packs in cases of 2000 which are replenished as"
^DD(113,25,21,4,0)="needed."
^DD(113,25,"DT")="2871018"
^DD(113,26,0)="THAW DAYS^NJ1,0^^0;20^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(113,26,3)="Type a Number between 0 and 3, 0 Decimal Digits"
^DD(113,26,21,0)="^^2^2^2880710^"
^DD(113,26,21,1,0)="If this is a frozen item requiring thawing before use, then"
^DD(113,26,21,2,0)="the number of thaw days should be indicated."
^DD(113,26,"DT")="2871018"
^DD(113,27,0)="NUTRIENT DATA REFERENCE^P112'^FHNU(^0;21^Q"
^DD(113,27,21,0)="^^4^4^2930331^^"
^DD(113,27,21,1,0)="This is a pointer to the nutrient in File 112 which most closely"
^DD(113,27,21,2,0)="approximates the cooked ingredient. It will be used as a default"
^DD(113,27,21,3,0)="nutrient when performing a nutrient analysis of a recipe containing"
^DD(113,27,21,4,0)="this ingredient."
^DD(113,27,"DT")="2930331"
^DD(113,28,0)="WEIGHT OF RECIPE UNIT IN LBS.^NJ7,3^^0;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(113,28,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(113,28,21,0)="^^3^3^2911204^"
^DD(113,28,21,1,0)="This value represents the weight of the recipe unit in pounds and"
^DD(113,28,21,2,0)="is required in performing nutrient analyses of recipes containing"
^DD(113,28,21,3,0)="this ingredient."
^DD(113,28,"DT")="2910821"
^DD(113,29,0)="DATE COST LAST UPDATED^D^^0;23^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(113,29,21,0)="^^1^1^2920813^^"
^DD(113,29,21,1,0)="This field contains the date the cost was last updated."
^DD(113,29,"DT")="2920813"
^DD(113,30,0)="DATE QOH LAST UPDATED^D^^0;24^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(113,30,21,0)="^^1^1^2920813^^"
^DD(113,30,21,1,0)="This field contains the date the quantity on hand was last updated."
^DD(113,30,"DT")="2920813"
^DD(113,31,0)="MASTER ITEM #^P441^PRC(441,^0;25^Q"
^DD(113,31,3)=""
^DD(113,31,21,0)="^^1^1^2930211^^^^"
^DD(113,31,21,1,0)="This field contains the Master Item number for the ingredient."
^DD(113,31,"DT")="2930211"
^DD(113,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(113,99,1,0)="^.1"
^DD(113,99,1,1,0)="113^AC^MUMPS"
^DD(113,99,1,1,1)="K:X'=""Y"" ^FHING(DA,""I"")"
^DD(113,99,1,1,2)="K ^FHING(DA,""I"")"
^DD(113,99,1,1,"%D",0)="^.101^2^2^3010926^^"
^DD(113,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(113,99,1,1,"%D",2,0)="inactive entries."
^DD(113,99,1,1,"DT")="3010926"
^DD(113,99,21,0)="^^2^2^3000202"
^DD(113,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(113,99,21,2,0)="further selection of this entry."
^DD(113,99,"DT")="3010926"
^DD(113,"B","# OF REC UNITS/ISSUE UNIT",24)=""
^DD(113,"B","DATE COST LAST UPDATED",29)=""
^DD(113,"B","DATE QOH LAST UPDATED",30)=""
^DD(113,"B","DIETETIC UNIT OF ISSUE",5)=""
^DD(113,"B","FOOD GROUP",20)=""
^DD(113,"B","INACTIVE?",99)=""
^DD(113,"B","INVENTORY?",25)=""
^DD(113,"B","MASTER ITEM #",31)=""
^DD(113,"B","NAME",.01)=""
^DD(113,"B","NO. OF ISSUE UNITS IN A U/P",7)=""
^DD(113,"B","NUTRIENT DATA REFERENCE",27)=""
^DD(113,"B","ON HAND (IN U/P)",10)=""
^DD(113,"B","ORDERING MULTIPLE (OF U/P)",6)=""
^DD(113,"B","PRICE/UNIT OF PURCHASE",8)=""
^DD(113,"B","RECIPE UNIT",23)=""
^DD(113,"B","REORDER LEVEL (IN U/P)",9)=""
^DD(113,"B","STOCK NUMBER",2)=""
^DD(113,"B","STORAGE LOCATION",11)=""
^DD(113,"B","SUPPLY DESCRIPTION",1)=""
^DD(113,"B","THAW DAYS",26)=""
^DD(113,"B","UNIT OF PURCHASE (U/P)",4)=""
^DD(113,"B","VENDOR",3)=""
^DD(113,"B","WEIGHT OF RECIPE UNIT IN LBS.",28)=""
^DD(113,"GL",0,1,.01)=""
^DD(113,"GL",0,2,1)=""
^DD(113,"GL",0,3,2)=""
^DD(113,"GL",0,4,3)=""
^DD(113,"GL",0,5,4)=""
^DD(113,"GL",0,6,5)=""
^DD(113,"GL",0,7,6)=""
^DD(113,"GL",0,8,7)=""
^DD(113,"GL",0,9,8)=""
^DD(113,"GL",0,10,9)=""
^DD(113,"GL",0,11,10)=""
^DD(113,"GL",0,12,11)=""
^DD(113,"GL",0,13,20)=""
^DD(113,"GL",0,16,23)=""
^DD(113,"GL",0,17,24)=""
^DD(113,"GL",0,19,25)=""
^DD(113,"GL",0,20,26)=""
^DD(113,"GL",0,21,27)=""
^DD(113,"GL",0,22,28)=""
^DD(113,"GL",0,23,29)=""
^DD(113,"GL",0,24,30)=""
^DD(113,"GL",0,25,31)=""
^DD(113,"GL","I",1,99)=""
^DD(113,"IX",.01)=""
^DD(113,"IX",2)=""
^DD(113,"IX",99)=""
^DD(113,"RQ",.01)=""
^DD(113,"RQ",1)=""
^DD(113,"RQ",4)=""
^DD(113,"RQ",5)=""
^DD(113,"RQ",7)=""
^DD(113,"RQ",20)=""
^DD(113,"RQ",23)=""
^DD(113,"RQ",24)=""
^DD(113.1,0)="FIELD^^99^4"
^DD(113.1,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(113.1,0,"IX","AC",113.1,99)=""
^DD(113.1,0,"IX","B",113.1,.01)=""
^DD(113.1,0,"IX","C",113.1,1)=""
^DD(113.1,0,"NM","STORAGE LOCATION")=""
^DD(113.1,0,"PT",113,11)=""
^DD(113.1,0,"SCR")="I '$D(^FH(113.1,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(113.1,0,"VR")="5.5"
^DD(113.1,0,"VRPK")="DIETETICS"
^DD(113.1,.01,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(113.1,.01,1,0)="^.1"
^DD(113.1,.01,1,1,0)="113.1^B"
^DD(113.1,.01,1,1,1)="S ^FH(113.1,""B"",$E(X,1,30),DA)="""""
^DD(113.1,.01,1,1,2)="K ^FH(113.1,""B"",$E(X,1,30),DA)"
^DD(113.1,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(113.1,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(113.1,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(113.1,.01,21,0)="^^4^4^2920812^^"
^DD(113.1,.01,21,1,0)="This is the name of a storage location where ingredients are"
^DD(113.1,.01,21,2,0)="stored (e.g., particular freezers, dry goods rooms, etc.). It"
^DD(113.1,.01,21,3,0)="is used by the Ingredient file to indicate where the"
^DD(113.1,.01,21,4,0)="ingredient is stocked."
^DD(113.1,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(113.1,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(113.1,1,1,0)="^.1"
^DD(113.1,1,1,1,0)="113.1^C"
^DD(113.1,1,1,1,1)="S ^FH(113.1,""C"",$E(X,1,30),DA)="""""
^DD(113.1,1,1,1,2)="K ^FH(113.1,""C"",$E(X,1,30),DA)"
^DD(113.1,1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(113.1,1,21,0)="^^2^2^2880709^"
^DD(113.1,1,21,1,0)="This is a short abbreviation used on various print-outs in lieu"
^DD(113.1,1,21,2,0)="of the longer full name. It should be unique."
^DD(113.1,1,"DT")="2901119"
^DD(113.1,2,0)="PRINT ORDER^RNJ2,0^^0;3^K:+X'=X!(X>49)!(X<1)!(X?.E1"".""1N.N) X"
^DD(113.1,2,3)="Type a Number between 1 and 49, 0 Decimal Digits"
^DD(113.1,2,21,0)="^^4^4^2920812^^^^"
^DD(113.1,2,21,1,0)="When ingredient pull lists are generated and sorted by storage"
^DD(113.1,2,21,2,0)="location, this field contains the print order of the various"
^DD(113.1,2,21,3,0)="storage locations. It is numeric and will print from low to"
^DD(113.1,2,21,4,0)="high."
^DD(113.1,2,"DT")="2880328"
^DD(113.1,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(113.1,99,1,0)="^.1"
^DD(113.1,99,1,1,0)="113.1^AC^MUMPS"
^DD(113.1,99,1,1,1)="K:X'=""Y"" ^FH(113.1,DA,""I"")"
^DD(113.1,99,1,1,2)="K ^FH(113.1,DA,""I"")"
^DD(113.1,99,1,1,"%D",0)="^^2^2^3000202"
^DD(113.1,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(113.1,99,1,1,"%D",2,0)="inactive entries."
^DD(113.1,99,21,0)="^^2^2^3000202"
^DD(113.1,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(113.1,99,21,2,0)="further selection of this entry."
^DD(113.1,99,"DT")="3000223"
^DD(113.1,"B","CODE",1)=""
^DD(113.1,"B","INACTIVE?",99)=""
^DD(113.1,"B","NAME",.01)=""
^DD(113.1,"B","PRINT ORDER",2)=""
^DD(113.1,"GL",0,1,.01)=""
^DD(113.1,"GL",0,2,1)=""
^DD(113.1,"GL",0,3,2)=""
^DD(113.1,"GL","I",1,99)=""
^DD(113.1,"IX",.01)=""
^DD(113.1,"IX",1)=""
^DD(113.1,"IX",99)=""
^DD(113.1,"RQ",.01)=""
^DD(113.1,"RQ",1)=""
^DD(113.1,"RQ",2)=""
^DD(113.2,0)="FIELD^^99^8"
^DD(113.2,0,"DT")="2930312"
^DD(113.2,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(113.2,0,"IX","AC",113.2,99)=""
^DD(113.2,0,"IX","B",113.2,.01)=""
^DD(113.2,0,"NM","FH VENDOR")=""
^DD(113.2,0,"PT",113,3)=""
^DD(113.2,0,"SCR")="I '$D(^FH(113.2,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(113.2,0,"VR")="5.5"
^DD(113.2,0,"VRPK")="DIETETICS"
^DD(113.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(113.2,.01,1,0)="^.1"
^DD(113.2,.01,1,1,0)="113.2^B"
^DD(113.2,.01,1,1,1)="S ^FH(113.2,""B"",$E(X,1,30),DA)="""""
^DD(113.2,.01,1,1,2)="K ^FH(113.2,""B"",$E(X,1,30),DA)"
^DD(113.2,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(113.2,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(113.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(113.2,.01,21,0)="^^1^1^2880710^"
^DD(113.2,.01,21,1,0)="This is the name of a vendor from whom ingredients are ordered."
^DD(113.2,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(113.2,.01,"DT")="2930312"
^DD(113.2,1,0)="1ST ADDRESS LINE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(113.2,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(113.2,1,21,0)="^^2^2^2880710^"
^DD(113.2,1,21,1,0)="This field contains the first address line following the"
^DD(113.2,1,21,2,0)="vendor's name."
^DD(113.2,1,"DT")="2850606"
^DD(113.2,2,0)="2ND ADDRESS LINE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(113.2,2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(113.2,2,21,0)="^^1^1^2880710^"
^DD(113.2,2,21,1,0)="This field may contain a second address line if necessary."
^DD(113.2,2,"DT")="2850606"
^DD(113.2,3,0)="3RD ADDRESS LINE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(113.2,3,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(113.2,3,21,0)="^^1^1^2880710^"
^DD(113.2,3,21,1,0)="This field may contain a third address line if necessary."
^DD(113.2,3,"DT")="2850606"
^DD(113.2,4,0)="CITY, STATE ZIP^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(113.2,4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(113.2,4,21,0)="^^2^2^2880710^"
^DD(113.2,4,21,1,0)="This field contains the last address line showing city, state"
^DD(113.2,4,21,2,0)="and zip code."
^DD(113.2,4,"DT")="2850606"
^DD(113.2,6,0)="CONTACT^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(113.2,6,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(113.2,6,21,0)="^^2^2^2880710^"
^DD(113.2,6,21,1,0)="This is the name of person who is the usual contact person"
^DD(113.2,6,21,2,0)="with the vendor."
^DD(113.2,6,"DT")="2850606"
^DD(113.2,7,0)="TELEPHONE^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(113.2,7,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(113.2,7,21,0)="^^2^2^2880710^"
^DD(113.2,7,21,1,0)="This field contains the telephone number of the vendor contact"
^DD(113.2,7,21,2,0)="person."
^DD(113.2,7,"DT")="2850606"
^DD(113.2,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(113.2,99,1,0)="^.1"
^DD(113.2,99,1,1,0)="113.2^AC^MUMPS"
^DD(113.2,99,1,1,1)="K:X'=""Y"" ^FH(113.2,DA,""I"")"
^DD(113.2,99,1,1,2)="K ^FH(113.2,DA,""I"")"
^DD(113.2,99,1,1,"%D",0)="^^2^2^3000202"
^DD(113.2,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(113.2,99,1,1,"%D",2,0)="inactive entries."
^DD(113.2,99,21,0)="^^2^2^3000202"
^DD(113.2,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(113.2,99,21,2,0)="further selection of this entry."
^DD(113.2,99,"DT")="3000223"
^DD(113.2,"B","1ST ADDRESS LINE",1)=""
^DD(113.2,"B","2ND ADDRESS LINE",2)=""
^DD(113.2,"B","3RD ADDRESS LINE",3)=""
^DD(113.2,"B","CITY, STATE ZIP",4)=""
^DD(113.2,"B","CONTACT",6)=""
^DD(113.2,"B","INACTIVE?",99)=""
^DD(113.2,"B","NAME",.01)=""
^DD(113.2,"B","TELEPHONE",7)=""
^DD(113.2,"GL",0,1,.01)=""
^DD(113.2,"GL",0,2,1)=""
^DD(113.2,"GL",0,3,2)=""
^DD(113.2,"GL",0,4,3)=""
^DD(113.2,"GL",0,5,4)=""
^DD(113.2,"GL",0,6,6)=""
^DD(113.2,"GL",0,7,7)=""
^DD(113.2,"GL","I",1,99)=""
^DD(113.2,"IX",.01)=""
^DD(113.2,"IX",99)=""
^DD(113.2,"RQ",.01)=""
^DD(114,0)="FIELD^^103^19"
^DD(114,0,"DT")="2950428"
^DD(114,0,"ID","WRITE")="I $D(^(""Z"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(114,0,"IX","AB",114.03,.01)=""
^DD(114,0,"IX","AC",114,99)=""
^DD(114,0,"IX","B",114,.01)=""
^DD(114,0,"IX","C",114,8)=""
^DD(114,0,"NM","RECIPE")=""
^DD(114,0,"PT",112.64,.01)=""
^DD(114,0,"PT",114.03,.01)=""
^DD(114,0,"PT",115.2,3)=""
^DD(114,0,"PT",115.21,.01)=""
^DD(114,0,"PT",116.11,.01)=""
^DD(114,0,"PT",118,11)=""
^DD(114,0,"PT",118.2,11)=""
^DD(114,0,"SCR")="I '$D(^FH(114,+Y,""Z""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(114,0,"VR")="5.5"
^DD(114,0,"VRPK")="FH"
^DD(114,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(114,.01,1,0)="^.1"
^DD(114,.01,1,1,0)="114^B"
^DD(114,.01,1,1,1)="S ^FH(114,""B"",$E(X,1,30),DA)="""""
^DD(114,.01,1,1,2)="K ^FH(114,""B"",$E(X,1,30),DA)"
^DD(114,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(114,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(114,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(114,.01,21,0)="^^3^3^2940701^^"
^DD(114,.01,21,1,0)="This is the name of the recipe. A recipe is anything served and"
^DD(114,.01,21,2,0)="may consist of a single ingredient which requires no"
^DD(114,.01,21,3,0)="preparation."
^DD(114,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(114,.01,"DT")="2860102"
^DD(114,1,0)="INGREDIENT^114.01PA^^I;0"
^DD(114,1,21,0)="^^1^1^2880717^"
^DD(114,1,21,1,0)="This multiple contains the ingredients used in the recipe."
^DD(114,1.5,0)="EMBEDDED RECIPE^114.03PA^^R;0"
^DD(114,1.5,21,0)="^^4^4^2881117^^^^"
^DD(114,1.5,21,1,0)="This field contains recipes which are 'embedded' in this recipe."
^DD(114,1.5,21,2,0)="For example, a hot roast beef sandwich might contain bread"
^DD(114,1.5,21,3,0)="as an ingredient but roast beef as an embedded recipe and"
^DD(114,1.5,21,4,0)="perhaps even brown gravy as another embedded recipe."
^DD(114,2,0)="NUMBER OF PORTIONS^RNJ4,0^^0;2^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(114,2,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(114,2,21,0)="^^3^3^2881117^^^"
^DD(114,2,21,1,0)="This is the yield, in terms of number of portions, of the"
^DD(114,2,21,2,0)="recipe. It should be within a factor of 10 of the normal quantity"
^DD(114,2,21,3,0)="needed and need not be 100."
^DD(114,2,"DT")="2881117"
^DD(114,3,0)="PORTION SIZE^RFX^^0;3^K:$L(X)>8!($L(X)<1) X I $D(X) D EN3^FHREC1"
^DD(114,3,3)="ANSWER MUST BE A NUMBER FOLLOWED BY OZ, FLOZ OR EACH"
^DD(114,3,21,0)="^^2^2^2930916^^^^"
^DD(114,3,21,1,0)="This is a short description of the portion size, e.g., 3-oz. or"
^DD(114,3,21,2,0)="1 each. Size must be a number followed by OZ, EACH or FLOZ."
^DD(114,3,"DT")="2880918"
^DD(114,4,0)="PREPARATION TIME^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(114,4,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(114,4,21,0)="^^2^2^2880717^"
^DD(114,4,21,1,0)="This field indicates the amount of preparation time this"
^DD(114,4,21,2,0)="recipe will require."
^DD(114,5,0)="EQUIPMENT^114.05P^^E;0"
^DD(114,5,3)=""
^DD(114,5,21,0)="^^2^2^2880919^"
^DD(114,5,21,1,0)="This multiple is used to indicate the various types of equipment"
^DD(114,5,21,2,0)="necessary to produce this recipe."
^DD(114,5,"DT")="2871114"
^DD(114,6,0)="SERVING UTENSIL^P114.3'^FH(114.3,^0;6^Q"
^DD(114,6,3)=""
^DD(114,6,21,0)="^^2^2^2930127^^"
^DD(114,6,21,1,0)="This field indicates the primary serving utensil which will be"
^DD(114,6,21,2,0)="required by tray line personnel or cafeteria line personnel."
^DD(114,6,"DT")="2871114"
^DD(114,7,0)="DEFAULT CATEGORY^RP114.1'^FH(114.1,^0;7^Q"
^DD(114,7,3)=""
^DD(114,7,21,0)="^^4^4^2880717^"
^DD(114,7,21,1,0)="This is the primary category of the recipe. Selection does not"
^DD(114,7,21,2,0)="prohibit the use of the recipe in other ways (e.g., a 'salad'"
^DD(114,7,21,3,0)="being used for dessert) but does influence the printing order"
^DD(114,7,21,4,0)="of the recipe in various lists."
^DD(114,7,"DT")="2940120"
^DD(114,8,0)="SYNONYM^F^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3) X"
^DD(114,8,1,0)="^.1"
^DD(114,8,1,1,0)="114^C"
^DD(114,8,1,1,1)="S ^FH(114,""C"",$E(X,1,30),DA)="""""
^DD(114,8,1,1,2)="K ^FH(114,""C"",$E(X,1,30),DA)"
^DD(114,8,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(114,8,21,0)="^^2^2^2880717^"
^DD(114,8,21,1,0)="This field may contain a synonym, or alternate name, for the"
^DD(114,8,21,2,0)="recipe."
^DD(114,8,"DT")="2861024"
^DD(114,9,0)="# DAYS PRE-PREP^NJ1,0^^0;10^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(114,9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 3"
^DD(114,9,21,0)="^^3^3^2880717^"
^DD(114,9,21,1,0)="This field contains the number of days in advance that the recipe"
^DD(114,9,21,2,0)="must be prepared. It need be answered only when non-zero, that is,"
^DD(114,9,21,3,0)="when the recipe is prepared in advance of the serving day."
^DD(114,9,"DT")="2861208"
^DD(114,10,0)="PRINT RECIPE^SO^Y:YES;N:NO;^0;8^Q"
^DD(114,10,2)="S Y(0)=Y S:Y="""" Y=""Y"""
^DD(114,10,2.1)="S:Y="""" Y=""Y"""
^DD(114,10,21,0)="^^5^5^2910506^^"
^DD(114,10,21,1,0)="This field, when answered NO, will inhibit the printing of the"
^DD(114,10,21,2,0)="recipe even when such printing is requested as part of the"
^DD(114,10,21,3,0)="production summary. It is generally used to inhibit printing"
^DD(114,10,21,4,0)="of one-ingredient recipes or those which require no"
^DD(114,10,21,5,0)="preparation."
^DD(114,10,"DT")="2861024"
^DD(114,11,0)="PRE-PREP STATE^S^M:MIX;D:DEHYDRATED;F:FROZEN;C:CANNED;X:CONCENTRATED;S:SCRATCH;I:IND/R-T-S;P:PARTIALLY PREP;R:R-T-S;^0;11^Q"
^DD(114,11,21,0)="^^3^3^2880913^^"
^DD(114,11,21,1,0)="This field indicates the state of the recipe, i.e., whether"
^DD(114,11,21,2,0)="a canned item, dehydrated, partially prepared, ready-to-serve,"
^DD(114,11,21,3,0)="etc."
^DD(114,11,"DT")="2880913"
^DD(114,12,0)="PREPARATION AREA^P114.2'^FH(114.2,^0;12^Q"
^DD(114,12,21,0)="^^2^2^2880717^"
^DD(114,12,21,1,0)="This field indicates the preparation area of the kitchen where"
^DD(114,12,21,2,0)="the recipe would normally be prepared."
^DD(114,12,"DT")="2871017"
^DD(114,20,0)="DIRECTIONS^114.02^^X;0"
^DD(114,20,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(114,20,21,0)="^^7^7^2880717^^"
^DD(114,20,21,1,0)="This field contains the directions for the preparation of"
^DD(114,20,21,2,0)="the recipe. References to absolute quantities of an"
^DD(114,20,21,3,0)="ingredient should not be made since the recipe will normally"
^DD(114,20,21,4,0)="be printed in an 'adjusted' form -- that is, the number of"
^DD(114,20,21,5,0)="portions will be adjusted and hence the individual ingredient"
^DD(114,20,21,6,0)="amounts will vary from those entered for the yield of the"
^DD(114,20,21,7,0)="recipe."
^DD(114,99,0)="INACTIVE?^S^Y:YES;N:NO;^Z;1^Q"
^DD(114,99,1,0)="^.1"
^DD(114,99,1,1,0)="114^AC^MUMPS"
^DD(114,99,1,1,1)="K:X'=""Y"" ^FH(114,DA,""Z"")"
^DD(114,99,1,1,2)="K ^FH(114,DA,""Z"")"
^DD(114,99,1,1,"%D",0)="^^2^2^3000202"
^DD(114,99,1,1,"%D",1,0)="This cross-reference is used to create an 'Z' node for"
^DD(114,99,1,1,"%D",2,0)="inactive entries."
^DD(114,99,21,0)="^.001^2^2^3000414^"
^DD(114,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(114,99,21,2,0)="further selection of this entry."
^DD(114,99,"DT")="3000223"
^DD(114,101,0)="COST/PORTION^NJ6,3^^0;13^K:+X'=X!(X>30)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(114,101,3)="Type a Number between .001 and 30, 3 Decimal Digits"
^DD(114,101,21,0)="^^2^2^2910506^^^^"
^DD(114,101,21,1,0)="This field contains the cost per portion of the recipe based upon"
^DD(114,101,21,2,0)="the current prices shown in the Ingredient file (113)."
^DD(114,101,"DT")="2871018"
^DD(114,102,0)="ASSOCIATED NUTRIENT ANALYSIS^P112'^FHNU(^0;14^Q"
^DD(114,102,21,0)="^^2^2^2930423^"
^DD(114,102,21,1,0)="This is a pointer to the Nutrient file (112) and contains the"
^DD(114,102,21,2,0)="nutrient analysis of this recipe."
^DD(114,102,"DT")="2921111"
^DD(114,103,0)="DIABETIC EXCHANGE^114.0103P^^DBX;0"
^DD(114,103,21,0)="^^2^2^2950501^^^^"
^DD(114,103,21,1,0)="This multiple contains the Diabetic exchanges associated with this"
^DD(114,103,21,2,0)="recipe.  It is use to handle the Diabetic calculated diets."
^DD(114,"B","# DAYS PRE-PREP",9)=""
^DD(114,"B","ASSOCIATED NUTRIENT ANALYSIS",102)=""
^DD(114,"B","COST/PORTION",101)=""
^DD(114,"B","DEFAULT CATEGORY",7)=""
^DD(114,"B","DIABETIC EXCHANGE",103)=""
^DD(114,"B","DIRECTIONS",20)=""
^DD(114,"B","EMBEDDED RECIPE",1.5)=""
^DD(114,"B","EQUIPMENT",5)=""
^DD(114,"B","INACTIVE?",99)=""
^DD(114,"B","INGREDIENT",1)=""
^DD(114,"B","NAME",.01)=""
^DD(114,"B","NUMBER OF PORTIONS",2)=""
^DD(114,"B","PORTION SIZE",3)=""
^DD(114,"B","PRE-PREP STATE",11)=""
^DD(114,"B","PREPARATION AREA",12)=""
^DD(114,"B","PREPARATION TIME",4)=""
^DD(114,"B","PRINT RECIPE",10)=""
^DD(114,"B","SERVING UTENSIL",6)=""
^DD(114,"B","SYNONYM",8)=""
^DD(114,"GL",0,1,.01)=""
^DD(114,"GL",0,2,2)=""
^DD(114,"GL",0,3,3)=""
^DD(114,"GL",0,4,4)=""
^DD(114,"GL",0,6,6)=""
^DD(114,"GL",0,7,7)=""
^DD(114,"GL",0,8,10)=""
^DD(114,"GL",0,9,8)=""
^DD(114,"GL",0,10,9)=""
^DD(114,"GL",0,11,11)=""
^DD(114,"GL",0,12,12)=""
^DD(114,"GL",0,13,101)=""
^DD(114,"GL",0,14,102)=""
^DD(114,"GL","DBX",0,103)=""
^DD(114,"GL","E",0,5)=""
^DD(114,"GL","I",0,1)=""
^DD(114,"GL","R",0,1.5)=""
^DD(114,"GL","X",0,20)=""
^DD(114,"GL","Z",1,99)=""
^DD(114,"IX",.01)=""
^DD(114,"IX",8)=""
^DD(114,"IX",99)=""
^DD(114,"RQ",.01)=""
^DD(114,"RQ",2)=""
^DD(114,"RQ",3)=""
^DD(114,"RQ",7)=""
^DD(114,"SB",114.01,1)=""
^DD(114,"SB",114.0103,103)=""
^DD(114,"SB",114.02,20)=""
^DD(114,"SB",114.03,1.5)=""
^DD(114,"SB",114.05,5)=""
^DD(114.01,0)="INGREDIENT SUB-FIELD^NL^3^4"
^DD(114.01,0,"DT")="2921111"
^DD(114.01,0,"NM","INGREDIENT")=""
^DD(114.01,0,"UP")="114"
^DD(114.01,.01,0)="INGREDIENT^MP113'X^FHING(^0;1^K:$D(^FHING(X,""I"")) X Q"
^DD(114.01,.01,21,0)="^^2^2^2880717^"
^DD(114.01,.01,21,1,0)="This field contains the name of an ingredient used in the"
^DD(114.01,.01,21,2,0)="recipe."
^DD(114.01,.01,"DT")="3010926"
^DD(114.01,1,0)="QUANTITY^RNJ7,2XO^^0;2^S I9=+^FH(114,D0,""I"",D1,0),UNT=$P(^FHING(I9,0),U,16) D EN1^FHREC1 I $D(X) K:X<.00001!(X>5000) X"
^DD(114.01,1,2)="S Y(0)=Y S I9=+^FH(114,D0,""I"",D1,0),UNT=$P(^FHING(I9,0),U,16) D:Y'="""" EN2^FHREC1"
^DD(114.01,1,2.1)="S I9=+^FH(114,D0,""I"",D1,0),UNT=$P(^FHING(I9,0),U,16) D:Y'="""" EN2^FHREC1"
^DD(114.01,1,3)="Enter Quantity in proper units"
^DD(114.01,1,21,0)="^^3^3^2920113^^^^"
^DD(114.01,1,21,1,0)="This field contains the quantity of the ingredient required. The"
^DD(114.01,1,21,2,0)="units are the 'Recipe Unit' as contained in the Ingredient file"
^DD(114.01,1,21,3,0)="for this ingredient."
^DD(114.01,1,"DT")="2860812"
^DD(114.01,2,0)="ASSOCIATED NUTRIENT^P112'^FHNU(^0;3^Q"
^DD(114.01,2,21,0)="^^3^3^2930423^"
^DD(114.01,2,21,1,0)="This field is a pointer to the Nutrient file (112) and indicates"
^DD(114.01,2,21,2,0)="the nutrient most closely associated with this ingredient after"
^DD(114.01,2,21,3,0)="preparation."
^DD(114.01,2,"DT")="2921111"
^DD(114.01,3,0)="NUTRIENT AMOUNT IN LBS.^NJ10,5^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(114.01,3,3)="Type a Number between 0 and 9999, 5 Decimal Digits"
^DD(114.01,3,21,0)="^^4^4^2930423^"
^DD(114.01,3,21,1,0)="This value is the amount of the ingredient, in pounds, for"
^DD(114.01,3,21,2,0)="Nutrient Analysis purposes after taking into account removal"
^DD(114.01,3,21,3,0)="of non-edible amounts of the ingredient and any expansion or"
^DD(114.01,3,21,4,0)="shrinkage due to preparation."
^DD(114.01,3,"DT")="2921111"
^DD(114.01,"B","ASSOCIATED NUTRIENT",2)=""
^DD(114.01,"B","INGREDIENT",.01)=""
^DD(114.01,"B","NUTRIENT AMOUNT IN LBS.",3)=""
^DD(114.01,"B","QUANTITY",1)=""
^DD(114.01,"GL",0,1,.01)=""
^DD(114.01,"GL",0,2,1)=""
^DD(114.01,"GL",0,3,2)=""
^DD(114.01,"GL",0,4,3)=""
^DD(114.01,"RQ",1)=""
^DD(114.0103,0)="DIABETIC EXCHANGE SUB-FIELD^^1^2"
^DD(114.0103,0,"DT")="2950428"
^DD(114.0103,0,"IX","B",114.0103,.01)=""
^DD(114.0103,0,"NM","DIABETIC EXCHANGE")=""
^DD(114.0103,0,"UP")="114"
^DD(114.0103,.01,0)="DIABETIC EXCHANGE^MP114.1'^FH(114.1,^0;1^Q"
^DD(114.0103,.01,1,0)="^.1"
^DD(114.0103,.01,1,1,0)="114.0103^B"
^DD(114.0103,.01,1,1,1)="S ^FH(114,DA(1),""DBX"",""B"",$E(X,1,30),DA)="""""
^DD(114.0103,.01,1,1,2)="K ^FH(114,DA(1),""DBX"",""B"",$E(X,1,30),DA)"
^DD(114.0103,.01,21,0)="^^2^2^2950428^^^^"
^DD(114.0103,.01,21,1,0)="This multiple contains the Diabetic exchanges associated with"
^DD(114.0103,.01,21,2,0)="this recipe."
^DD(114.0103,.01,"DT")="2950428"
^DD(114.0103,1,0)="QUANTITY^RNJ1,0^^0;2^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(114.0103,1,3)="Type a Number between 1 and 5, 0 Decimal Digits"
^DD(114.0103,1,21,0)="^^3^3^2950501^^^^"
^DD(114.0103,1,21,1,0)="This is the quantity of the Diabetic exchange that needs to be"
^DD(114.0103,1,21,2,0)="omitted when the recipe is used in a meal for the Diabetic"
^DD(114.0103,1,21,3,0)="calculated diets."
^DD(114.0103,1,"DT")="2950428"
^DD(114.0103,"B","DIABETIC EXCHANGE",.01)=""
^DD(114.0103,"B","QUANTITY",1)=""
^DD(114.0103,"GL",0,1,.01)=""
^DD(114.0103,"GL",0,2,1)=""
^DD(114.0103,"IX",.01)=""
^DD(114.0103,"RQ",1)=""
^DD(114.02,0)="DIRECTIONS SUB-FIELD^NL^.01^1"
^DD(114.02,0,"NM","DIRECTIONS")=""
^DD(114.02,0,"UP")="114"
^DD(114.02,.01,0)="DIRECTIONS^W^^0;1^Q"
^DD(114.02,.01,21,0)="^^2^2^2880717^"
^DD(114.02,.01,21,1,0)="This field contains the text of the recipe preparation"
^DD(114.02,.01,21,2,0)="instructions."
^DD(114.02,.01,"DT")="2840822"
^DD(114.02,"B","DIRECTIONS",.01)=""
^DD(114.02,"GL",0,1,.01)=""
^DD(114.03,0)="EMBEDDED RECIPE SUB-FIELD^NL^1^2"
^DD(114.03,0,"NM","EMBEDDED RECIPE")=""
^DD(114.03,0,"UP")="114"
^DD(114.03,.01,0)="EMBEDDED RECIPE^M*P114'X^FH(114,^0;1^S DIC(""S"")=""I +Y'=D0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(114.03,.01,1,0)="^.1"
^DD(114.03,.01,1,1,0)="114^AB"
^DD(114.03,.01,1,1,1)="S ^FH(114,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(114.03,.01,1,1,2)="K ^FH(114,""AB"",$E(X,1,30),DA(1),DA)"
^DD(114.03,.01,1,1,"%D",0)="^^3^3^3070816^"
^DD(114.03,.01,1,1,"%D",1,0)="Cross-reference the file by embedded recipes so that embedded recipes"
^DD(114.03,.01,1,1,"%D",2,0)="can be excluded from patient trays that may have an allergy or food "
^DD(114.03,.01,1,1,"%D",3,0)="preference to a recipe."
^DD(114.03,.01,1,1,"DT")="3070816"
^DD(114.03,.01,12)="Don't allow selection of current recipe"
^DD(114.03,.01,12.1)="S DIC(""S"")=""I +Y'=D0"""
^DD(114.03,.01,21,0)="^^3^3^2880914^^"
^DD(114.03,.01,21,1,0)="This field contains the name of a recipe which is to be"
^DD(114.03,.01,21,2,0)="embedded in the present one. The embedded recipe cannot be"
^DD(114.03,.01,21,3,0)="the same as the present recipe."
^DD(114.03,.01,"DT")="3070816"
^DD(114.03,1,0)="NO. OF PORTIONS^RNJ7,2^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(114.03,1,3)="TYPE A NUMBER BETWEEN 0 AND 9999"
^DD(114.03,1,21,0)="^^2^2^2881117^^"
^DD(114.03,1,21,1,0)="This is the number of portions of the embedded recipe required"
^DD(114.03,1,21,2,0)="in the present recipe."
^DD(114.03,1,"DT")="2851222"
^DD(114.03,"B","EMBEDDED RECIPE",.01)=""
^DD(114.03,"B","NO. OF PORTIONS",1)=""
^DD(114.03,"GL",0,1,.01)=""
^DD(114.03,"GL",0,2,1)=""
^DD(114.03,"IX",.01)=""
^DD(114.03,"RQ",1)=""
^DD(114.05,0)="EQUIPMENT SUB-FIELD^^.01^1"
^DD(114.05,0,"IX","B",114.05,.01)=""
^DD(114.05,0,"NM","EQUIPMENT")=""
^DD(114.05,0,"UP")="114"
^DD(114.05,.01,0)="EQUIPMENT^MP114.4^FH(114.4,^0;1^Q"
^DD(114.05,.01,1,0)="^.1"
^DD(114.05,.01,1,1,0)="114.05^B"
^DD(114.05,.01,1,1,1)="S ^FH(114,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(114.05,.01,1,1,2)="K ^FH(114,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(114.05,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(114.05,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the EQUIPMENT field."
^DD(114.05,.01,21,0)="^^3^3^2880919^"
^DD(114.05,.01,21,1,0)="This field contains a pointer to the Equipment file (114.4) and"
^DD(114.05,.01,21,2,0)="indicates an item of equipment used in the production of this"
^DD(114.05,.01,21,3,0)="recipe."
^DD(114.05,.01,"DT")="2880914"
^DD(114.05,"B","EQUIPMENT",.01)=""
^DD(114.05,"GL",0,1,.01)=""
^DD(114.05,"IX",.01)=""
^DD(114.1,0)="FIELD^^99^4"
^DD(114.1,0,"DT")="2950428"
^DD(114.1,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(114.1,0,"IX","AC",114.1,99)=""
^DD(114.1,0,"IX","B",114.1,.01)=""
^DD(114.1,0,"IX","C",114.1,1)=""
^DD(114.1,0,"NM","RECIPE CATEGORY")=""
^DD(114.1,0,"PT",111.115,.01)=""
^DD(114.1,0,"PT",111.116,.01)=""
^DD(114.1,0,"PT",111.117,.01)=""
^DD(114.1,0,"PT",114,7)=""
^DD(114.1,0,"PT",114.0103,.01)=""
^DD(114.1,0,"PT",116.11,3)=""
^DD(114.1,0,"PT",116.12,.01)=""
^DD(114.1,0,"SCR")="I '$D(^FH(114.1,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(114.1,0,"VR")="5.5"
^DD(114.1,0,"VRPK")="DIETETICS"
^DD(114.1,.01,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X"
^DD(114.1,.01,1,0)="^.1"
^DD(114.1,.01,1,1,0)="114.1^B"
^DD(114.1,.01,1,1,1)="S ^FH(114.1,""B"",$E(X,1,30),DA)="""""
^DD(114.1,.01,1,1,2)="K ^FH(114.1,""B"",$E(X,1,30),DA)"
^DD(114.1,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(114.1,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(114.1,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(114.1,.01,21,0)="^^3^3^2880709^"
^DD(114.1,.01,21,1,0)="This is the name of a category of recipes (e.g., beverages,"
^DD(114.1,.01,21,2,0)="condiments, entree meats, etc.) which are used to sort the"
^DD(114.1,.01,21,3,0)="recipe items on the various meal lists."
^DD(114.1,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(114.1,1,0)="CODE^RFX^^0;2^K:X[""""""""!$A(X)=45 X I $D(X) D TR^FH K:X'?1U.1U1N.1""X"" X I $D(X) S Y=$O(^FH(114.1,""C"",X,0)) I Y>0,Y-DA W *7,""  Code used by "",$P(^FH(114.1,Y,0),""^"",1) K X"
^DD(114.1,1,1,0)="^.1"
^DD(114.1,1,1,1,0)="114.1^C"
^DD(114.1,1,1,1,1)="S ^FH(114.1,""C"",$E(X,1,30),DA)="""""
^DD(114.1,1,1,1,2)="K ^FH(114.1,""C"",$E(X,1,30),DA)"
^DD(114.1,1,3)="ANSWER MUST BE ONE TO TWO CHARACTERS AND A NUMBER OR ONE TO TWO CHARACTERS, A NUMBER AND AN 'X' AT THE END."
^DD(114.1,1,21,0)="^^3^3^2950502^^^^"
^DD(114.1,1,21,1,0)="This field represents a short code for the recipe category. It"
^DD(114.1,1,21,2,0)="consists of one to two characters and a number or one to two characters,"
^DD(114.1,1,21,3,0)="a number, and an 'X' used when printing tray assembly tickets."
^DD(114.1,1,"DT")="2950428"
^DD(114.1,2,0)="MEAL PRINT ORDER^RNJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(114.1,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(114.1,2,21,0)="^^3^3^2880717^"
^DD(114.1,2,21,1,0)="This value is used to sort recipes for printing as meals. The"
^DD(114.1,2,21,2,0)="value indicates the relative print order, from low to high, of"
^DD(114.1,2,21,3,0)="recipes in this recipe category."
^DD(114.1,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(114.1,99,1,0)="^.1"
^DD(114.1,99,1,1,0)="114.1^AC^MUMPS"
^DD(114.1,99,1,1,1)="K:X'=""Y"" ^FH(114.1,DA,""I"")"
^DD(114.1,99,1,1,2)="K ^FH(114.1,DA,""I"")"
^DD(114.1,99,1,1,"%D",0)="^^1^1^2940701^"
^DD(114.1,99,1,1,"%D",1,0)="This is a cross reference for Recipe Categories that are inactive."
^DD(114.1,99,1,1,"DT")="2940701"
^DD(114.1,99,21,0)="^^2^2^2950221^^^^"
^DD(114.1,99,21,1,0)="This field, when answered YES, will prohibit further selection"
^DD(114.1,99,21,2,0)="of this Recipe Category."
^DD(114.1,99,"DT")="2940701"
^DD(114.1,"B","CODE",1)=""
^DD(114.1,"B","INACTIVE?",99)=""
^DD(114.1,"B","MEAL PRINT ORDER",2)=""
^DD(114.1,"B","NAME",.01)=""
^DD(114.1,"GL",0,1,.01)=""
^DD(114.1,"GL",0,2,1)=""
^DD(114.1,"GL",0,3,2)=""
^DD(114.1,"GL","I",1,99)=""
^DD(114.1,"IX",.01)=""
^DD(114.1,"IX",1)=""
^DD(114.1,"IX",99)=""
^DD(114.1,"RQ",.01)=""
^DD(114.1,"RQ",1)=""
^DD(114.1,"RQ",2)=""
^DD(114.2,0)="FIELD^^99^4"
^DD(114.2,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(114.2,0,"IX","AC",114.2,99)=""
^DD(114.2,0,"IX","B",114.2,.01)=""
^DD(114.2,0,"NM","PREPARATION AREA")=""
^DD(114.2,0,"PT",114,12)=""
^DD(114.2,0,"SCR")="I '$D(^FH(114.2,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(114.2,0,"VR")="5.5"
^DD(114.2,0,"VRPK")="DIETETICS"
^DD(114.2,.01,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X"
^DD(114.2,.01,1,0)="^.1"
^DD(114.2,.01,1,1,0)="114.2^B"
^DD(114.2,.01,1,1,1)="S ^FH(114.2,""B"",$E(X,1,30),DA)="""""
^DD(114.2,.01,1,1,2)="K ^FH(114.2,""B"",$E(X,1,30),DA)"
^DD(114.2,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(114.2,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(114.2,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(114.2,.01,21,0)="^^2^2^2880709^"
^DD(114.2,.01,21,1,0)="This is the name of an area where recipes are prepared (e.g.,"
^DD(114.2,.01,21,2,0)="salad area, bakery, etc.)."
^DD(114.2,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(114.2,1,0)="CODE^RF^^0;2^K:$L(X)>5!($L(X)<2) X"
^DD(114.2,1,3)="ANSWER MUST BE 2-5 CHARACTERS IN LENGTH"
^DD(114.2,1,21,0)="^^3^3^2880709^"
^DD(114.2,1,21,1,0)="This is a short abbreviation for the preparation area. It is used"
^DD(114.2,1,21,2,0)="on various lists where it is not practical to print the longer"
^DD(114.2,1,21,3,0)="full name. It should be unique."
^DD(114.2,2,0)="PRINT ORDER^RNJ2,0^^0;3^K:+X'=X!(X>49)!(X<1)!(X?.E1"".""1N.N) X"
^DD(114.2,2,3)="Type a Number between 1 and 49, 0 Decimal Digits"
^DD(114.2,2,21,0)="^^3^3^2880709^"
^DD(114.2,2,21,1,0)="This is a numeric value indicating the print order (from low to"
^DD(114.2,2,21,2,0)="high) of various preparation areas when the list is sorted by"
^DD(114.2,2,21,3,0)="preparation area."
^DD(114.2,2,"DT")="2880328"
^DD(114.2,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(114.2,99,1,0)="^.1"
^DD(114.2,99,1,1,0)="114.2^AC^MUMPS"
^DD(114.2,99,1,1,1)="K:X'=""Y"" ^FH(114.2,DA,""I"")"
^DD(114.2,99,1,1,2)="K ^FH(114.2,DA,""I"")"
^DD(114.2,99,1,1,"%D",0)="^^2^2^3000202"
^DD(114.2,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(114.2,99,1,1,"%D",2,0)="inactive entries."
^DD(114.2,99,21,0)="^^2^2^3000202"
^DD(114.2,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(114.2,99,21,2,0)="further selection of this entry."
^DD(114.2,99,"DT")="3000223"
^DD(114.2,"B","CODE",1)=""
^DD(114.2,"B","INACTIVE?",99)=""
^DD(114.2,"B","NAME",.01)=""
^DD(114.2,"B","PRINT ORDER",2)=""
^DD(114.2,"GL",0,1,.01)=""
^DD(114.2,"GL",0,2,1)=""
^DD(114.2,"GL",0,3,2)=""
^DD(114.2,"GL","I",1,99)=""
^DD(114.2,"IX",.01)=""
^DD(114.2,"IX",99)=""
^DD(114.2,"RQ",.01)=""
^DD(114.2,"RQ",1)=""
^DD(114.2,"RQ",2)=""
^DD(114.3,0)="FIELD^^99^2"
^DD(114.3,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(114.3,0,"IX","AC",114.3,99)=""
^DD(114.3,0,"IX","B",114.3,.01)=""
^DD(114.3,0,"NM","SERVING UTENSIL")=""
^DD(114.3,0,"PT",114,6)=""
^DD(114.3,0,"SCR")="I '$D(^FH(114.3,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(114.3,0,"VR")="5.5"
^DD(114.3,0,"VRPK")="DIETETICS"
^DD(114.3,.01,0)="NAME^RF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(114.3,.01,1,0)="^.1"
^DD(114.3,.01,1,1,0)="114.3^B"
^DD(114.3,.01,1,1,1)="S ^FH(114.3,""B"",$E(X,1,30),DA)="""""
^DD(114.3,.01,1,1,2)="K ^FH(114.3,""B"",$E(X,1,30),DA)"
^DD(114.3,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(114.3,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(114.3,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(114.3,.01,21,0)="^^3^3^2880709^"
^DD(114.3,.01,21,1,0)="This is the name of a serving utensil. It is used by the recipe"
^DD(114.3,.01,21,2,0)="file to indicate the usual utensil used by tray line personnel"
^DD(114.3,.01,21,3,0)="or others to serve the recipe item."
^DD(114.3,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(114.3,.01,"DT")="2871115"
^DD(114.3,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(114.3,99,1,0)="^.1"
^DD(114.3,99,1,1,0)="114.3^AC^MUMPS"
^DD(114.3,99,1,1,1)="K:X'=""Y"" ^FH(114.3,DA,""I"")"
^DD(114.3,99,1,1,2)="K ^FH(114.3,DA,""I"")"
^DD(114.3,99,1,1,"%D",0)="^^2^2^3000202"
^DD(114.3,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(114.3,99,1,1,"%D",2,0)="inactive entries."
^DD(114.3,99,21,0)="^^2^2^3000202"
^DD(114.3,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(114.3,99,21,2,0)="further selection of this entry."
^DD(114.3,99,"DT")="3000223"
^DD(114.3,"B","INACTIVE?",99)=""
^DD(114.3,"B","NAME",.01)=""
^DD(114.3,"GL",0,1,.01)=""
^DD(114.3,"GL","I",1,99)=""
^DD(114.3,"IX",.01)=""
^DD(114.3,"IX",99)=""
^DD(114.3,"RQ",.01)=""
^DD(114.4,0)="FIELD^^99^2"
^DD(114.4,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(114.4,0,"IX","AC",114.4,99)=""
^DD(114.4,0,"IX","B",114.4,.01)=""
^DD(114.4,0,"NM","EQUIPMENT")=""
^DD(114.4,0,"PT",114.05,.01)=""
^DD(114.4,0,"SCR")="I '$D(^FH(114.4,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(114.4,0,"VR")="5.5"
^DD(114.4,0,"VRPK")="DIETETICS"
^DD(114.4,.01,0)="NAME^RF^^0;1^K:$L(X)>21!($L(X)<3) X"
^DD(114.4,.01,1,0)="^.1"
^DD(114.4,.01,1,1,0)="114.4^B"
^DD(114.4,.01,1,1,1)="S ^FH(114.4,""B"",$E(X,1,30),DA)="""""
^DD(114.4,.01,1,1,2)="K ^FH(114.4,""B"",$E(X,1,30),DA)"
^DD(114.4,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(114.4,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(114.4,.01,3)="ANSWER MUST BE 3-21 CHARACTERS IN LENGTH"
^DD(114.4,.01,21,0)="^^3^3^2880709^"
^DD(114.4,.01,21,1,0)="This is the name of an equipment item (large kettle, convection"
^DD(114.4,.01,21,2,0)="oven, etc.) and is used by the recipe file to indicate the"
^DD(114.4,.01,21,3,0)="usual preparation equipment needed."
^DD(114.4,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(114.4,.01,"DT")="2880117"
^DD(114.4,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(114.4,99,1,0)="^.1"
^DD(114.4,99,1,1,0)="114.4^AC^MUMPS"
^DD(114.4,99,1,1,1)="K:X'=""Y"" ^FH(114.4,DA,""I"")"
^DD(114.4,99,1,1,2)="K ^FH(114.4,DA,""I"")"
^DD(114.4,99,1,1,"%D",0)="^^2^2^3000202"
^DD(114.4,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(114.4,99,1,1,"%D",2,0)="inactive entries."
^DD(114.4,99,21,0)="^^2^2^3000202"
^DD(114.4,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(114.4,99,21,2,0)="further selection of this entry."
^DD(114.4,99,"DT")="3000223"
^DD(114.4,"B","INACTIVE?",99)=""
^DD(114.4,"B","NAME",.01)=""
^DD(114.4,"GL",0,1,.01)=""
^DD(114.4,"GL","I",1,99)=""
^DD(114.4,"IX",.01)=""
^DD(114.4,"IX",99)=""
^DD(114.4,"RQ",.01)=""
^DD(115,0)="FIELD^^21^13"
^DD(115,0,"DDA")="N"
^DD(115,0,"DT")="3070808"
^DD(115,0,"IX","ADLT",115.05,.01)=""
^DD(115,0,"IX","ADR",115.03,.01)=""
^DD(115,0,"IX","ADRU",115.03,4)=""
^DD(115,0,"IX","ADRV",115.03,7)=""
^DD(115,0,"IX","ADTF",115.01,1.3)=""
^DD(115,0,"IX","AIS",115.01,9)=""
^DD(115,0,"IX","AOO",115.06,4)=""
^DD(115,0,"IX","ASP",115.08,1)=""
^DD(115,0,"IX","ASP1",115.08,5)=""
^DD(115,0,"IX","AW",115.01,13)=""
^DD(115,0,"IX","B",115,.01)=""
^DD(115,0,"IX","C",115.016,2)=""
^DD(115,0,"IX","D",115,19)=""
^DD(115,0,"IX","E",115.011,64)=""
^DD(115,0,"IX","GM",115.018,.01)=""
^DD(115,0,"IX","IP",115,19)=""
^DD(115,0,"IX","OP",115.016,.01)=""
^DD(115,0,"IX","RM",115.016,.01)=""
^DD(115,0,"IX","SM",115.017,.01)=""
^DD(115,0,"NM","NUTRITION PERSON")=""
^DD(115,0,"PT",119.8,2)=""
^DD(115,0,"VR")="5.5"
^DD(115,0,"VRPK")="FH"
^DD(115,.01,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<2)!'(X?1""P""1.11N!(X?1""N""1.11N)) X"
^DD(115,.01,1,0)="^.1"
^DD(115,.01,1,1,0)="115^B"
^DD(115,.01,1,1,1)="S ^FHPT(""B"",$E(X,1,30),DA)="""""
^DD(115,.01,1,1,2)="K ^FHPT(""B"",$E(X,1,30),DA)"
^DD(115,.01,1,1,"%D",0)="^^2^2^3030219^"
^DD(115,.01,1,1,"%D",1,0)="A standard ""B"" cross-reference on the .01 field for file 115."
^DD(115,.01,1,1,"%D",2,0)="Added 2/19/2003."
^DD(115,.01,1,1,"DT")="3030219"
^DD(115,.01,3)="Answer must be 2-15 characters in length."
^DD(115,.01,21,0)="^.001^14^14^3060412^^^^"
^DD(115,.01,21,1,0)="Beginning with the Outpatient Meals release this field will simply be a"
^DD(115,.01,21,2,0)="free text field.  This file will need to point to either File #2 or File #200"
^DD(115,.01,21,3,0)="and those pointer values will be stored in fields #14 & #15 respectively."
^DD(115,.01,21,4,0)="Those 2 fields will be mutually exclusive, ie, each entry in this file must"
^DD(115,.01,21,5,0)="have a pointer value in EITHER field #14 OR field #15, BUT NOT BOTH."
^DD(115,.01,21,6,0)=""
^DD(115,.01,21,7,0)="Previously, this field was a pointer to the main ^DPT file and had the same"
^DD(115,.01,21,8,0)="internal number as that file. Thus, the patient's name was the ^DPT name."
^DD(115,.01,21,9,0)="This was no longer feasible since it was necessary to point to file #200 also."
^DD(115,.01,21,10,0)=""
^DD(115,.01,21,11,0)="This field will now store either ""P"" followed by a pointer value to file #2"
^DD(115,.01,21,12,0)="or an ""N"" followed by a pointer value to #200.  For example, this field"
^DD(115,.01,21,13,0)="might store P27 for IEN #27 in file #2.  Or this field might store N1866 for"
^DD(115,.01,21,14,0)="IEN #1866 in file #200."
^DD(115,.01,"DT")="3060412"
^DD(115,1,0)="ADMISSION^115.01D^^A;0"
^DD(115,1,21,0)="^.001^2^2^3070712^^^^"
^DD(115,1,21,1,0)="This multiple contains all dietetic information pertaining"
^DD(115,1,21,2,0)="to this particular admission."
^DD(115,1,"DT")="2920103"
^DD(115,10,0)="FOOD PREFERENCES^115.09PA^^P;0"
^DD(115,10,21,0)="^.001^1^1^3030623^^^"
^DD(115,10,21,1,0)="This multiple contains the food preferences selected by the patient."
^DD(115,11,0)="NUTRITION ASSESSMENT^115.011DI^^N;0"
^DD(115,11,21,0)="^.001^2^2^3070808^^^^"
^DD(115,11,21,1,0)="This field contains Nutrition Assessments performed"
^DD(115,11,21,2,0)="for this patient."
^DD(115,12,0)="NUTRITION STATUS^115.012D^^S;0"
^DD(115,12,21,0)="^.001^2^2^3031014^^^^"
^DD(115,12,21,1,0)="This multiple contains the nutrition assessment"
^DD(115,12,21,2,0)="statuses that have been entered for this patient."
^DD(115,14,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(115,14,21,0)="^.001^4^4^3030416^^"
^DD(115,14,21,1,0)="This field, if populated, will contain a pointer to the Patient (#2) file,"
^DD(115,14,21,2,0)="if the Nutrition Person is a patient.  This field and field #15 are mutually"
^DD(115,14,21,3,0)="exclusive, in other words each entry in this file should have a value in"
^DD(115,14,21,4,0)="either this field or field #15."
^DD(115,14,"DT")="3030210"
^DD(115,15,0)="NEW PERSON^P200'^VA(200,^0;4^Q"
^DD(115,15,21,0)="^.001^4^4^3030416^^"
^DD(115,15,21,1,0)="This field, if populated, will contain a pointer to the New Person (#200)"
^DD(115,15,21,2,0)="file, if the Nutrition Person is a NOT a patient.  This field and field #14"
^DD(115,15,21,3,0)="are mutually exclusive, in other words each entry in this file should have"
^DD(115,15,21,4,0)="a value in either this field or field #14."
^DD(115,15,"DT")="3030210"
^DD(115,16,0)="RECURRING MEALS^115.016D^^OP;0"
^DD(115,16,21,0)="^.001^1^1^3060926^^^^"
^DD(115,16,21,1,0)="This multiple stores the recurring meals data."
^DD(115,16,"DT")="3030417"
^DD(115,17,0)="SPECIAL MEALS^115.017D^^SM;0"
^DD(115,17,21,0)="^.001^1^1^3060720^^^^"
^DD(115,17,21,1,0)="This multiple stores special meals data."
^DD(115,18,0)="GUEST MEALS^115.018D^^GM;0"
^DD(115,18,21,0)="^.001^1^1^3060720^^^^"
^DD(115,18,21,1,0)="This multiple stores the guest meals data."
^DD(115,19,0)="ISOLATION/PRECAUTION (OUTPT)^P119.4'^FH(119.4,^0;5^Q"
^DD(115,19,1,0)="^.1"
^DD(115,19,1,1,0)="115^IP^MUMPS"
^DD(115,19,1,1,1)="S ^FHPT(""IP"",DA)="""""
^DD(115,19,1,1,2)="K ^FHPT(""IP"",DA)"
^DD(115,19,1,1,"%D",0)="^^1^1^3030923^"
^DD(115,19,1,1,"%D",1,0)="Cross reference for outpatient isolations/precautions."
^DD(115,19,1,1,"DT")="3030923"
^DD(115,19,1,2,0)="115^D^MUMPS"
^DD(115,19,1,2,1)="Q"
^DD(115,19,1,2,2)="D CNIP100^FHOMRC2"
^DD(115,19,1,2,"%D",0)="^^2^2^3050505^"
^DD(115,19,1,2,"%D",1,0)="If OUTPATIENT ISOLATION/PRECAUTION is canceled/deleted send an"
^DD(115,19,1,2,"%D",2,0)="update/backdoor message to OERR/CPRS."
^DD(115,19,1,2,"DT")="3050505"
^DD(115,19,21,0)="^^4^4^3030918^"
^DD(115,19,21,1,0)="This field, if present, indicates that the outpatient is presently"
^DD(115,19,21,2,0)="on isolation or special precautions.  Note: this field is for outpatients"
^DD(115,19,21,3,0)="and is different from the isolation/precautions field for inpatients which"
^DD(115,19,21,4,0)="is associated with a specific admission."
^DD(115,19,"DT")="3050505"
^DD(115,20,0)="IP OE/RR ORDER (OUTPT)^P100'^OR(100,^0;6^Q"
^DD(115,20,21,0)="^^1^1^3040122^"
^DD(115,20,21,1,0)="Pointer to File #100 for I/P's entered thru OE/RR."
^DD(115,20,"DT")="3040122"
^DD(115,21,0)="ALERT^115.12D^^D;0"
^DD(115,21,21,0)="^^1^1^3070516^"
^DD(115,21,21,1,0)="This is a multiple for food/drug alert for a patient."
^DD(115,"B","ADMISSION",1)=""
^DD(115,"B","ALERT",21)=""
^DD(115,"B","FOOD PREFERENCES",10)=""
^DD(115,"B","GUEST MEALS",18)=""
^DD(115,"B","IP OE/RR ORDER (OUTPT)",20)=""
^DD(115,"B","ISOLATION/PRECAUTION (OUTPT)",19)=""
^DD(115,"B","NAME",.01)=""
^DD(115,"B","NEW PERSON",15)=""
^DD(115,"B","NUTRITION ASSESSMENT",11)=""
^DD(115,"B","NUTRITION STATUS",12)=""
^DD(115,"B","PATIENT",14)=""
^DD(115,"B","RECURRING MEALS",16)=""
^DD(115,"B","SPECIAL MEALS",17)=""
^DD(115,"GL",0,1,.01)=""
^DD(115,"GL",0,3,14)=""
^DD(115,"GL",0,4,15)=""
^DD(115,"GL",0,5,19)=""
^DD(115,"GL",0,6,20)=""
^DD(115,"GL","A",0,1)=""
^DD(115,"GL","D",0,21)=""
^DD(115,"GL","GM",0,18)=""
^DD(115,"GL","N",0,11)=""
^DD(115,"GL","OP",0,16)=""
^DD(115,"GL","P",0,10)=""
^DD(115,"GL","S",0,12)=""
^DD(115,"GL","SM",0,17)=""
^DD(115,"IX",.01)=""
^DD(115,"IX",19)=""
^DD(115,"RQ",.01)=""
^DD(115,"SB",115.01,1)=""
^DD(115,"SB",115.011,11)=""
^DD(115,"SB",115.012,12)=""
^DD(115,"SB",115.016,16)=""
^DD(115,"SB",115.017,17)=""
^DD(115,"SB",115.018,18)=""
^DD(115,"SB",115.09,10)=""
^DD(115,"SB",115.12,21)=""
^DD(115.01,0)="ADMISSION SUB-FIELD^NL^90^24"
^DD(115.01,0,"DT")="3060711"
^DD(115.01,0,"NM","ADMISSION")=""
^DD(115.01,0,"UP")="115"
^DD(115.01,.01,0)="ADMISSION^D^^0;1^S %DT=""ETS"" D ^%DT S X=Y K:Y<1 X"
^DD(115.01,.01,21,0)="^^3^3^2911204^^^^"
^DD(115.01,.01,21,1,0)="This is the date/time of admission. The admission has the same"
^DD(115.01,.01,21,2,0)="date/time and internal number as the corresponding MAS"
^DD(115.01,.01,21,3,0)="admission stored in ^DPT."
^DD(115.01,1.1,0)="CURRENT DIET ORDER^NJ5,0I^^0;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.01,1.1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(115.01,1.1,9)="^"
^DD(115.01,1.1,21,0)="^^2^2^2950613^^^^"
^DD(115.01,1.1,21,1,0)="This field is actually a pointer to the current diet order"
^DD(115.01,1.1,21,2,0)="stored in Field 3."
^DD(115.01,1.1,"DT")="2880515"
^DD(115.01,1.2,0)="DIET ORDER EXPIRATION^DI^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.01,1.2,9)="^"
^DD(115.01,1.2,21,0)="^^3^3^2950613^^^^"
^DD(115.01,1.2,21,1,0)="This field contains the date/time of expiration of the current"
^DD(115.01,1.2,21,2,0)="diet pointed to by Field 1.1. If null, the current diet has"
^DD(115.01,1.2,21,3,0)="no expiration date/time."
^DD(115.01,1.2,"DT")="2880515"
^DD(115.01,1.3,0)="CURRENT TF ORDER^NJ5,0I^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.01,1.3,1,0)="^.1"
^DD(115.01,1.3,1,1,0)="115^ADTF^MUMPS"
^DD(115.01,1.3,1,1,1)="S ^FHPT(""ADTF"",DA(1),DA)="""""
^DD(115.01,1.3,1,1,2)="K ^FHPT(""ADTF"",DA(1),DA)"
^DD(115.01,1.3,1,1,"%D",0)="^^2^2^2940824^"
^DD(115.01,1.3,1,1,"%D",1,0)="This is a list of Patients by Admission who have a current"
^DD(115.01,1.3,1,1,"%D",2,0)="Tubefeeding Order."
^DD(115.01,1.3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(115.01,1.3,9)="^"
^DD(115.01,1.3,21,0)="3^^3^3^2950613^^^"
^DD(115.01,1.3,21,1,0)="This field is actually a pointer to the current Tubefeeding Order"
^DD(115.01,1.3,21,2,0)="stored in Field 40. If null, no current tubefeeding order"
^DD(115.01,1.3,21,3,0)="exists."
^DD(115.01,1.3,"DT")="2850718"
^DD(115.01,2.1,0)="CURRENT SERVICE^SI^C:CAFETERIA;T:TRAY;D:DINING ROOM;^0;5^Q"
^DD(115.01,2.1,21,0)="^^3^3^2920512^^^^"
^DD(115.01,2.1,21,1,0)="This field contains the most recent type of service (tray,"
^DD(115.01,2.1,21,2,0)="cafeteria or dining room) selected for the patient. It is"
^DD(115.01,2.1,21,3,0)="used as a default for future orders."
^DD(115.01,2.1,"DT")="2880515"
^DD(115.01,3,0)="DIET^115.02A^^DI;0"
^DD(115.01,3,21,0)="^.001^2^2^3060329^^^^"
^DD(115.01,3,21,1,0)="This multiple contains the individual diet orders which have"
^DD(115.01,3,21,2,0)="been entered during this admission."
^DD(115.01,4,0)="DIET SEQUENCE^115.14DA^^AC;0"
^DD(115.01,4,21,0)="^^5^5^2911223^^^"
^DD(115.01,4,21,1,0)="This multiple indicates the sequence in which the diet orders"
^DD(115.01,4,21,2,0)="actually become effective. Since orders entered later supercede"
^DD(115.01,4,21,3,0)="earlier orders, the sequence times may not be the same as those"
^DD(115.01,4,21,4,0)="of the original order. This multiple is the outcome of a"
^DD(115.01,4,21,5,0)="recursive templating schemata."
^DD(115.01,6,0)="CURRENT SF ORDER^NJ4,0I^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.01,6,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(115.01,6,21,0)="^^4^4^2880710^"
^DD(115.01,6,21,1,0)="This field is actually a pointer to the Supplemental Feeding"
^DD(115.01,6,21,2,0)="multiple (Field 20) and, if present, indicates which order"
^DD(115.01,6,21,3,0)="is presently in effect. It is updated any time any diet"
^DD(115.01,6,21,4,0)="activity involving supplemental feedings takes place."
^DD(115.01,6,"DT")="2880515"
^DD(115.01,9,0)="ISOLATION/PRECAUTION^P119.4'^FH(119.4,^0;10^Q"
^DD(115.01,9,1,0)="^.1"
^DD(115.01,9,1,1,0)="115^AIS^MUMPS"
^DD(115.01,9,1,1,1)="S ^FHPT(""AIS"",DA(1),DA)="""""
^DD(115.01,9,1,1,2)="K ^FHPT(""AIS"",DA(1),DA)"
^DD(115.01,9,1,1,"%D",0)="^^1^1^2940824^"
^DD(115.01,9,1,1,"%D",1,0)="This cross-reference is a list of patients on isolation/precautions."
^DD(115.01,9,3)=""
^DD(115.01,9,21,0)="^.001^2^2^3030918^^"
^DD(115.01,9,21,1,0)="This field, if present, indicates that the patient is presently"
^DD(115.01,9,21,2,0)="on isolation or special precautions."
^DD(115.01,9,"DT")="2871010"
^DD(115.01,10,0)="OE/RR ISOLATION ORDER^P100^OR(100,^0;13^Q"
^DD(115.01,10,21,0)="^^2^2^2890919^"
^DD(115.01,10,21,1,0)="This field contains the OE/RR file order pointer corresponding"
^DD(115.01,10,21,2,0)="to the current Isolation/Precautions."
^DD(115.01,10,"DT")="2890919"
^DD(115.01,11,0)="LAST LABEL WARD^P119.6'I^FH(119.6,^0;11^Q"
^DD(115.01,11,3)=""
^DD(115.01,11,21,0)="^^4^4^2930121^^"
^DD(115.01,11,21,1,0)="This field contains the internal number of the ward (from File 42)"
^DD(115.01,11,21,2,0)="for which the last diet card label was prepared. Whenever a"
^DD(115.01,11,21,3,0)="label run is made, this field is compared with the current ward"
^DD(115.01,11,21,4,0)="and, if different, a new label is prepared."
^DD(115.01,11,"DT")="2860702"
^DD(115.01,12,0)="LAST LABEL ROOM^FI^^0;12^K:$L(X)>10!($L(X)<1) X"
^DD(115.01,12,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(115.01,12,21,0)="^^4^4^2880710^"
^DD(115.01,12,21,1,0)="This field contains the room-bed for which the last diet card"
^DD(115.01,12,21,2,0)="label was prepared. Whenever a label run is made, this field"
^DD(115.01,12,21,3,0)="is compared with the current room-bed and, if different, a new"
^DD(115.01,12,21,4,0)="label is prepared."
^DD(115.01,12,"DT")="2850826"
^DD(115.01,13,0)="DIETETIC WARD^P119.6'^FH(119.6,^0;8^Q"
^DD(115.01,13,1,0)="^.1"
^DD(115.01,13,1,1,0)="115^AW^MUMPS"
^DD(115.01,13,1,1,1)="S ^FHPT(""AW"",X,DA(1))=DA"
^DD(115.01,13,1,1,2)="K ^FHPT(""AW"",X,DA(1))"
^DD(115.01,13,1,1,"%D",0)="^^2^2^2940824^"
^DD(115.01,13,1,1,"%D",1,0)="This is a cross-reference of Dietetic Ward by Patient. The"
^DD(115.01,13,1,1,"%D",2,0)="cross-reference is set to the admission number."
^DD(115.01,13,1,1,"DT")="2930408"
^DD(115.01,13,21,0)="^^2^2^2911204^"
^DD(115.01,13,21,1,0)="This field indicates the Dietetic Ward on which the patient is currently"
^DD(115.01,13,21,2,0)="residing."
^DD(115.01,13,"DT")="2930408"
^DD(115.01,14,0)="ROOM-BED^P405.4'^DG(405.4,^0;9^Q"
^DD(115.01,14,21,0)="^^2^2^2911204^"
^DD(115.01,14,21,1,0)="This field contains the free-text room-bed in which the patient is"
^DD(115.01,14,21,2,0)="currently residing."
^DD(115.01,14,"DT")="2911023"
^DD(115.01,18,0)="DISCHARGE DATE/TIME^D^^0;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.01,18,21,0)="^^3^3^2911223^^"
^DD(115.01,18,21,1,0)="This is the date/time a discharge was processed. It may differ from the"
^DD(115.01,18,21,2,0)="date/time selected by the MAS clerk. It is used if the discharge is"
^DD(115.01,18,21,3,0)="deleted."
^DD(115.01,18,"DT")="2911129"
^DD(115.01,20,0)="SUPPLEMENTAL FEEDING^115.07^^SF;0"
^DD(115.01,20,12)="Cannot select bulk nourishments"
^DD(115.01,20,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.01,20,21,0)="^^2^2^2910708^^^^"
^DD(115.01,20,21,1,0)="This multiple contains the various supplemental feeding orders"
^DD(115.01,20,21,2,0)="which have been entered for the patient."
^DD(115.01,20,"DT")="2850604"
^DD(115.01,30,0)="STANDING ORDERS^115.08^^SP;0"
^DD(115.01,30,12)="Cannot select bulk nourishments"
^DD(115.01,30,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.01,30,21,0)="^.001^2^2^3051102^^^^"
^DD(115.01,30,21,1,0)="This field contains standing orders entered for the patient"
^DD(115.01,30,21,2,0)="during this admission."
^DD(115.01,40,0)="TUBEFEEDING^115.04D^^TF;0"
^DD(115.01,40,21,0)="^.001^2^2^3070712^^^^"
^DD(115.01,40,21,1,0)="This multiple contains all tubefeeding orders entered during"
^DD(115.01,40,21,2,0)="this admission."
^DD(115.01,50,0)="EARLY/LATE TRAY^115.05D^^EL;0"
^DD(115.01,50,21,0)="^.001^2^2^3030204^^^^"
^DD(115.01,50,21,1,0)="This multiple contains all early/late tray requests ordered"
^DD(115.01,50,21,2,0)="for this patient."
^DD(115.01,80,0)="CONSULTATION^115.03IDA^^DR;0"
^DD(115.01,80,21,0)="^^2^2^2880909^^^"
^DD(115.01,80,21,1,0)="This multiple contains all of the dietetic consults ordered"
^DD(115.01,80,21,2,0)="during this admission."
^DD(115.01,85,0)="ADDITIONAL ORDERS^115.06A^^OO;0"
^DD(115.01,85,21,0)="^.001^1^1^3021030^^^^"
^DD(115.01,85,21,1,0)="This multiple contains all Additional Orders entered during this admission."
^DD(115.01,85,21,2,0)="admission."
^DD(115.01,90,0)="Monitors^115.11^^MO;0"
^DD(115.01,99,0)="DATE/TIME TICKET LAST PRINTED^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.01,99,21,0)="^^5^5^2950420^^^^"
^DD(115.01,99,21,1,0)="This is the date/time of the last Tray Ticket generated for this"
^DD(115.01,99,21,2,0)="patient.  It is used, when the user only want to print the ticket"
^DD(115.01,99,21,3,0)="for the patient when there is a diet order, supplemental feeding,"
^DD(115.01,99,21,4,0)="food preference, isolation, standing order, or location change after"
^DD(115.01,99,21,5,0)="this date/time."
^DD(115.01,99,"DT")="2940926"
^DD(115.01,100,0)="DATE/TIME CARD LAST PRINTED^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.01,100,21,0)="^^5^5^2950420^^^^"
^DD(115.01,100,21,1,0)="This is the date/time of the last diet card generated for this"
^DD(115.01,100,21,2,0)="patient.  It is used, when the user only want to print the card"
^DD(115.01,100,21,3,0)="for the patient when there is a diet order, supplemental feeding,"
^DD(115.01,100,21,4,0)="food preference, isolation, standing order, or location change after"
^DD(115.01,100,21,5,0)="this date/time."
^DD(115.01,100,"DT")="2940926"
^DD(115.01,"B","ADDITIONAL ORDERS",85)=""
^DD(115.01,"B","ADMISSION",.01)=""
^DD(115.01,"B","CONSULTATION",80)=""
^DD(115.01,"B","CURRENT DIET ORDER",1.1)=""
^DD(115.01,"B","CURRENT SERVICE",2.1)=""
^DD(115.01,"B","CURRENT SF ORDER",6)=""
^DD(115.01,"B","CURRENT TF ORDER",1.3)=""
^DD(115.01,"B","DATE/TIME CARD LAST PRINTED",100)=""
^DD(115.01,"B","DATE/TIME TICKET LAST PRINTED",99)=""
^DD(115.01,"B","DIET",3)=""
^DD(115.01,"B","DIET ORDER EXPIRATION",1.2)=""
^DD(115.01,"B","DIET SEQUENCE",4)=""
^DD(115.01,"B","DIETETIC WARD",13)=""
^DD(115.01,"B","DISCHARGE DATE/TIME",18)=""
^DD(115.01,"B","EARLY/LATE TRAY",50)=""
^DD(115.01,"B","ISOLATION/PRECAUTION",9)=""
^DD(115.01,"B","LAST LABEL ROOM",12)=""
^DD(115.01,"B","LAST LABEL WARD",11)=""
^DD(115.01,"B","Monitors",90)=""
^DD(115.01,"B","OE/RR ISOLATION ORDER",10)=""
^DD(115.01,"B","ROOM-BED",14)=""
^DD(115.01,"B","STANDING ORDERS",30)=""
^DD(115.01,"B","SUPPLEMENTAL FEEDING",20)=""
^DD(115.01,"B","TUBEFEEDING",40)=""
^DD(115.01,"GL",0,1,.01)=""
^DD(115.01,"GL",0,2,1.1)=""
^DD(115.01,"GL",0,3,1.2)=""
^DD(115.01,"GL",0,4,1.3)=""
^DD(115.01,"GL",0,5,2.1)=""
^DD(115.01,"GL",0,7,6)=""
^DD(115.01,"GL",0,8,13)=""
^DD(115.01,"GL",0,9,14)=""
^DD(115.01,"GL",0,10,9)=""
^DD(115.01,"GL",0,11,11)=""
^DD(115.01,"GL",0,12,12)=""
^DD(115.01,"GL",0,13,10)=""
^DD(115.01,"GL",0,14,18)=""
^DD(115.01,"GL",0,15,99)=""
^DD(115.01,"GL",0,16,100)=""
^DD(115.01,"GL","AC",0,4)=""
^DD(115.01,"GL","DI",0,3)=""
^DD(115.01,"GL","DR",0,80)=""
^DD(115.01,"GL","EL",0,50)=""
^DD(115.01,"GL","MO",0,90)=""
^DD(115.01,"GL","OO",0,85)=""
^DD(115.01,"GL","SF",0,20)=""
^DD(115.01,"GL","SP",0,30)=""
^DD(115.01,"GL","TF",0,40)=""
^DD(115.01,"IX",1.3)=""
^DD(115.01,"IX",9)=""
^DD(115.01,"IX",13)=""
^DD(115.01,"SB",115.02,3)=""
^DD(115.01,"SB",115.03,80)=""
^DD(115.01,"SB",115.04,40)=""
^DD(115.01,"SB",115.05,50)=""
^DD(115.01,"SB",115.06,85)=""
^DD(115.01,"SB",115.07,20)=""
^DD(115.01,"SB",115.08,30)=""
^DD(115.01,"SB",115.11,90)=""
^DD(115.01,"SB",115.14,4)=""
^DD(115.011,0)="NUTRITION ASSESSMENT SUB-FIELD^^87^66"
^DD(115.011,0,"DT")="3070808"
^DD(115.011,0,"ID",65)="W:$D(^(""DI"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(115.011,65,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""DI""""),U,6)_"""":"""",2),$C(59),1)"")"
^DD(115.011,0,"IX","B",115.011,.01)=""
^DD(115.011,0,"NM","NUTRITION ASSESSMENT")=""
^DD(115.011,0,"UP")="115"
^DD(115.011,.01,0)="NUTRITION ASSESSMENT^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.011,.01,1,0)="^.1"
^DD(115.011,.01,1,1,0)="115.011^B"
^DD(115.011,.01,1,1,1)="S ^FHPT(DA(1),""N"",""B"",$E(X,1,30),DA)="""""
^DD(115.011,.01,1,1,2)="K ^FHPT(DA(1),""N"",""B"",$E(X,1,30),DA)"
^DD(115.011,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.011,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NUTRITION ASSESSMENT field."
^DD(115.011,.01,21,0)="^^2^2^2891107^^^"
^DD(115.011,.01,21,1,0)="This field contains the date the nutrition assessment was"
^DD(115.011,.01,21,2,0)="performed."
^DD(115.011,.01,"DT")="2891107"
^DD(115.011,1,0)="SEX^RS^M:MALE;F:FEMALE;^0;2^Q"
^DD(115.011,1,21,0)="^^2^2^2891121^"
^DD(115.011,1,21,1,0)="This field contains a M or F corresponding to the sex of"
^DD(115.011,1,21,2,0)="the subject."
^DD(115.011,1,"DT")="2890702"
^DD(115.011,2,0)="AGE^RNJ6,2^^0;3^K:+X'=X!(X>140)!(X<0)!(X?.E1"".""3N.N) X"
^DD(115.011,2,3)="Type a Number between 0 and 140, 2 Decimal Digits"
^DD(115.011,2,21,0)="^^2^2^2891121^"
^DD(115.011,2,21,1,0)="This field contains the age, in years, of the subject at the"
^DD(115.011,2,21,2,0)="time of the assessment."
^DD(115.011,2,"DT")="2890702"
^DD(115.011,3,0)="HEIGHT^NJ4,1^^0;4^K:+X'=X!(X>96)!(X<12)!(X?.E1"".""2N.N) X"
^DD(115.011,3,3)="Type a Number between 12 and 96, 1 Decimal Digit"
^DD(115.011,3,21,0)="^^1^1^2920521^^^"
^DD(115.011,3,21,1,0)="This field contains the height, in inches, of the subject."
^DD(115.011,3,"DT")="2890705"
^DD(115.011,4,0)="HEIGHT PARAMETERS^S^S:STATED;K:KNEE HEIGHT;^0;5^Q"
^DD(115.011,4,3)="Answer must be 1-2 characters in length."
^DD(115.011,4,9)="@"
^DD(115.011,4,21,0)="^^2^2^2920520^^^"
^DD(115.011,4,21,1,0)="This field contains parameters relating to height; in particular,"
^DD(115.011,4,21,2,0)="an S would mean stated rather than measured."
^DD(115.011,4,"DT")="2900411"
^DD(115.011,5,0)="WEIGHT^NJ3,0^^0;6^K:+X'=X!(X>750)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,5,3)="Type a Number between 0 and 750, 0 Decimal Digits"
^DD(115.011,5,21,0)="^^1^1^2900411^^"
^DD(115.011,5,21,1,0)="This field contains the weight, in pounds, of the subject."
^DD(115.011,5,"DT")="2900411"
^DD(115.011,6,0)="WEIGHT PARAMETERS^S^A:ANTHROPOMETRIC;S:STATED;^0;7^Q"
^DD(115.011,6,3)="Answer must be 1 character in length."
^DD(115.011,6,21,0)="^^2^2^2900411^^"
^DD(115.011,6,21,1,0)="This field contains parameters relating to weight; in particular,"
^DD(115.011,6,21,2,0)="an S would mean stated rather than measured."
^DD(115.011,6,"DT")="2900411"
^DD(115.011,7,0)="DATE WEIGHT TAKEN^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(115.011,7,21,0)="^^1^1^2891121^"
^DD(115.011,7,21,1,0)="This is the date the weight was determined."
^DD(115.011,7,"DT")="2890705"
^DD(115.011,8,0)="USUAL WEIGHT^NJ3,0^^0;9^K:+X'=X!(X>750)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,8,3)="Type a Number between 0 and 750, 0 Decimal Digits"
^DD(115.011,8,21,0)="^^1^1^2900411^^"
^DD(115.011,8,21,1,0)="This is the usual weight, in pounds, of the subject."
^DD(115.011,8,"DT")="2900411"
^DD(115.011,9,0)="IDEAL BODY WEIGHT^NJ3,0^^0;10^K:+X'=X!(X>750)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,9,3)="Type a Number between 0 and 750, 0 Decimal Digits"
^DD(115.011,9,21,0)="^^1^1^2900411^^"
^DD(115.011,9,21,1,0)="This is the ideal body weight, in pounds, of the subject."
^DD(115.011,9,"DT")="2900411"
^DD(115.011,10,0)="FRAME SIZE^S^S:SMALL;M:MEDIUM;L:LARGE;^0;11^Q"
^DD(115.011,10,21,0)="^^2^2^2891121^"
^DD(115.011,10,21,1,0)="This is the frame size of the individual, expressed as Small,"
^DD(115.011,10,21,2,0)="Medium or Large."
^DD(115.011,10,"DT")="2890705"
^DD(115.011,11,0)="AMPUTATION %^NJ4,1^^0;12^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""2N.N) X"
^DD(115.011,11,3)="Type a Number between 0 and 50, 1 Decimal Digit"
^DD(115.011,11,21,0)="^^2^2^2891121^"
^DD(115.011,11,21,1,0)="This is the percentage of total body weight missing due to"
^DD(115.011,11,21,2,0)="amputations."
^DD(115.011,11,"DT")="2890705"
^DD(115.011,15,0)="KCAL REQUIRED^NJ5,0^^0;16^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,15,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(115.011,15,21,0)="^^2^2^2891121^"
^DD(115.011,15,21,1,0)="This is the total energy needs of the patient expressed in"
^DD(115.011,15,21,2,0)="calories."
^DD(115.011,15,"DT")="2890705"
^DD(115.011,16,0)="PROTEIN (GM) REQUIRED^NJ3,0^^0;17^K:+X'=X!(X>400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,16,3)="Type a Number between 0 and 400, 0 Decimal Digits"
^DD(115.011,16,21,0)="^^1^1^2891121^"
^DD(115.011,16,21,1,0)="This is the protein requirements of the person."
^DD(115.011,16,"DT")="2890705"
^DD(115.011,17,0)="FLUID (ML/DAY) REQUIRED^NJ5,0^^0;18^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,17,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(115.011,17,21,0)="^^1^1^2891121^^"
^DD(115.011,17,21,1,0)="This is the fluid requirements, in ml/day, of the person."
^DD(115.011,17,"DT")="2890705"
^DD(115.011,18,0)="RISK CATEGORY^P115.4'^FH(115.4,^0;19^Q"
^DD(115.011,18,21,0)="^^2^2^2891121^"
^DD(115.011,18,21,1,0)="This is a pointer to the Nutrition Status file (115.4) indicating"
^DD(115.011,18,21,2,0)="the current status of the patient for this assessment."
^DD(115.011,18,"DT")="2890705"
^DD(115.011,19,0)="NUTRITION PROBLEM^P115.3'^FH(115.3,^0;20^Q"
^DD(115.011,19,21,0)="^^3^3^2891121^"
^DD(115.011,19,21,1,0)="This is a pointer to the Nutrition Classification file (115.3)"
^DD(115.011,19,21,2,0)="indicating the current classification of the patient for"
^DD(115.011,19,21,3,0)="this assessment."
^DD(115.011,19,"DT")="2890705"
^DD(115.011,20,0)="APPEARANCE^F^^2;1^K:$L(X)>60!($L(X)<1) X"
^DD(115.011,20,3)="Answer must be 1-60 characters in length."
^DD(115.011,20,21,0)="^^3^3^2900411^^"
^DD(115.011,20,21,1,0)="This field is used to store the a free-text description of the"
^DD(115.011,20,21,2,0)="appearance of the patient when such notation may be of importance"
^DD(115.011,20,21,3,0)="in understanding or treating the patient."
^DD(115.011,20,"DT")="2900411"
^DD(115.011,21,0)="BODY MASS INDEX^NJ4,1^^0;21^K:+X'=X!(X>50)!(X<10)!(X?.E1"".""2N.N) X"
^DD(115.011,21,3)="Type a Number between 10 and 50, 1 Decimal Digit"
^DD(115.011,21,21,0)="^^2^2^2900404^"
^DD(115.011,21,21,1,0)="This field contains the Body Mass Index calculated from the"
^DD(115.011,21,21,2,0)="height and weight."
^DD(115.011,21,"DT")="2900404"
^DD(115.011,22,0)="BODY MASS INDEX %^NJ2,0^^0;22^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,22,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(115.011,22,21,0)="^^2^2^2910506^^"
^DD(115.011,22,21,1,0)="This field contains the percentile rank of the Body Mass Index"
^DD(115.011,22,21,2,0)="value."
^DD(115.011,22,"DT")="2900404"
^DD(115.011,23,0)="NITROGEN BALANCE^NJ2,0^^0;25^K:+X'=X!(X>99)!(X<-99)!(X?.E1"".""1N.N) X"
^DD(115.011,23,3)="Type a Number between -99 and 99, 0 Decimal Digits"
^DD(115.011,23,21,0)="^^2^2^2900625^"
^DD(115.011,23,21,1,0)="This field contains the value of the Nitrogen Balance calculated"
^DD(115.011,23,21,2,0)="during the assessment."
^DD(115.011,23,"DT")="2900622"
^DD(115.011,40,0)="TRICEPS SKIN FOLD (MM)^NJ3,0^^1;1^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,40,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(115.011,40,21,0)="^^1^1^2900411^^^"
^DD(115.011,40,21,1,0)="This is the triceps skin fold measurement in mm."
^DD(115.011,40,"DT")="2900411"
^DD(115.011,41,0)="TRICEPS %^NJ2,0^^1;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,41,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(115.011,41,21,0)="^^1^1^2900411^^^"
^DD(115.011,41,21,1,0)="This is the percentile rank of the triceps skin fold measurement."
^DD(115.011,41,"DT")="2900411"
^DD(115.011,42,0)="SUBSCAPULAR SKINFOLD (MM)^NJ3,0^^1;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,42,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(115.011,42,21,0)="1^^1^1^2900411^"
^DD(115.011,42,21,1,0)="This is the subscapular skin fold measurement in mm."
^DD(115.011,42,"DT")="2900411"
^DD(115.011,43,0)="SUBSCAPULAR %^NJ2,0^^1;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,43,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(115.011,43,21,0)="^^1^1^2900411^^"
^DD(115.011,43,21,1,0)="This is the percentile rank of the subscapular skin fold measurement."
^DD(115.011,43,"DT")="2900411"
^DD(115.011,44,0)="ARM CIRCUMFERENCE (CM)^NJ5,1^^1;5^K:+X'=X!(X>100)!(X<5)!(X?.E1"".""2N.N) X"
^DD(115.011,44,3)="Type a Number between 5 and 100, 1 Decimal Digit"
^DD(115.011,44,21,0)="^^1^1^2891121^"
^DD(115.011,44,21,1,0)="This is the arm circumference in cm."
^DD(115.011,44,"DT")="2891107"
^DD(115.011,45,0)="ARM CIRCUMFERENCE %^NJ2,0^^1;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,45,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(115.011,45,21,0)="^^1^1^2900411^^"
^DD(115.011,45,21,1,0)="This is the percentile rank of the arm circumference."
^DD(115.011,45,"DT")="2900411"
^DD(115.011,46,0)="CALF CIRCUMFERENCE (CM)^NJ5,1^^1;7^K:+X'=X!(X>250)!(X<10)!(X?.E1"".""2N.N) X"
^DD(115.011,46,3)="Type a Number between 10 and 250, 1 Decimal Digit"
^DD(115.011,46,21,0)="^^1^1^2891121^"
^DD(115.011,46,21,1,0)="This is the calf circumference in cm."
^DD(115.011,46,"DT")="2891107"
^DD(115.011,47,0)="CALF CIRCUMFERENCE %^NJ2,0^^1;8^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,47,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(115.011,47,21,0)="^^1^1^2900411^^"
^DD(115.011,47,21,1,0)="This is the percentile rank of the calf circumference."
^DD(115.011,47,"DT")="2900411"
^DD(115.011,48,0)="BONE-FREE AMA  (CM2)^NJ5,1^^1;9^K:+X'=X!(X>100)!(X<5)!(X?.E1"".""2N.N) X"
^DD(115.011,48,3)="Type a Number between 5 and 100, 1 Decimal Digit"
^DD(115.011,48,21,0)="^^1^1^2900411^^"
^DD(115.011,48,21,1,0)="This is the calculated bone-free arm muscle area in sq. cm."
^DD(115.011,48,"DT")="2900411"
^DD(115.011,49,0)="BONE-FREE AMA %^NJ2,0^^1;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.011,49,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(115.011,49,21,0)="^^1^1^2900411^^"
^DD(115.011,49,21,1,0)="This is the percentile rank of the bone-free AMA."
^DD(115.011,49,"DT")="2900411"
^DD(115.011,50,0)="WCCM^NJ3,0^^1;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(115.011,50,3)="Type a number between 0 and 999, 0 Decimal Digits"
^DD(115.011,50,"DT")="3070215"
^DD(115.011,51,0)="CIBW^F^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(115.011,51,3)="Answer must be 1 character in length"
^DD(115.011,51,"DT")="3070215"
^DD(115.011,52,0)="CERBO^NJ1,0^^1;13^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1.N) X"
^DD(115.011,52,3)="Type a number between 0 and 2, 0 Decimal Digits"
^DD(115.011,52,"DT")="3070215"
^DD(115.011,53,0)="CENB^NJ1,0^^1;14^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1.N) X"
^DD(115.011,53,3)="Type a number between 0 and 2, 0 Decimal Digits"
^DD(115.011,53,"DT")="3070215"
^DD(115.011,54,0)="PCTB^NJ1,0^^1;15^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1.N) X"
^DD(115.011,54,3)="Type a number between 0 and 3, 0 Decimal Digits"
^DD(115.011,54,"DT")="3070215"
^DD(115.011,55,0)="SEF^NJ4,2^^1;16^K:+X'=X!(X>2.5)!(X<.7)!(X?.E1"".""3.N) X"
^DD(115.011,55,3)="Type a number between .7 and 2.5, 2 Decimal Digits"
^DD(115.011,55,"DT")="3070215"
^DD(115.011,56,0)="CFRB^NJ1,0^^1;17^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1.N) X"
^DD(115.011,56,3)="Type a number between 0 and 7, 0 Decimal Digits"
^DD(115.011,56,"DT")="3070215"
^DD(115.011,57,0)="CFRBO^NJ1,0^^1;18^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1.N) X"
^DD(115.011,57,3)="Type a number between 0 and 2, 0 Decimal Digits"
^DD(115.011,57,"DT")="3070215"
^DD(115.011,58,0)="CPRBO^NJ1,0^^1;19^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1.N) X"
^DD(115.011,58,3)="Type a number between 0 and 2, 0 Decimal Digits"
^DD(115.011,58,"DT")="3070215"
^DD(115.011,59,0)="EKKG^NJ3,0^^1;20^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1.N) X"
^DD(115.011,59,3)="Type a number between 10 and 110, 0 Decimal Digits"
^DD(115.011,59,"DT")="3070320"
^DD(115.011,60,0)="DIAGNOSIS FROM PROBLEM LIST^F^^DI;1^K:$L(X)>45!($L(X)<3) X"
^DD(115.011,60,3)="Answer must be 3-45 characters in length"
^DD(115.011,60,21,0)="^^1^1^3070110^"
^DD(115.011,60,21,1,0)="This is a diagnosis selected from the Problem List package for a patient."
^DD(115.011,60,"DT")="3070110"
^DD(115.011,61,0)="DATE ENTERED IN PROBLEM LIST^D^^DI;2^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(115.011,61,3)="(No range limit on date)"
^DD(115.011,61,21,0)="^^1^1^3070116^"
^DD(115.011,61,21,1,0)="This is the date when a diagnosis from Problem List was entered."
^DD(115.011,61,"DT")="3070116"
^DD(115.011,62,0)="DIAGNOSIS ENTERED BY NFS^F^^DI;3^K:$L(X)>45!($L(X)<3) X"
^DD(115.011,62,3)="Answer must be 3-45 characters in length"
^DD(115.011,62,21,0)="^^1^1^3070110^"
^DD(115.011,62,21,1,0)="This is a diagnosis entered by NFS personnel."
^DD(115.011,62,"DT")="3070110"
^DD(115.011,63,0)="NFS DIAGNOSIS DATE^D^^DI;4^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(115.011,63,3)="(No range limit on date)"
^DD(115.011,63,21,0)="^^1^1^3070110^"
^DD(115.011,63,21,1,0)="This is the date when a NFS diagnosis was entered by NFS personnel."
^DD(115.011,63,"DT")="3070110"
^DD(115.011,64,0)="ASSESSMENT FOLLOW-UP DATE^D^^DI;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(115.011,64,1,0)="^.1"
^DD(115.011,64,1,1,0)="115^E"
^DD(115.011,64,1,1,1)="S ^FHPT(""E"",$E(X,1,30),DA(1),DA)="""""
^DD(115.011,64,1,1,2)="K ^FHPT(""E"",$E(X,1,30),DA(1),DA)"
^DD(115.011,64,1,1,"%D",0)="^^2^2^3070301^"
^DD(115.011,64,1,1,"%D",1,0)="This cross-reference is being used in the processing of an Assessment "
^DD(115.011,64,1,1,"%D",2,0)="Alert for clinicians in a particular Nutrition Location."
^DD(115.011,64,1,1,"DT")="3070301"
^DD(115.011,64,3)="(No range limit on date)"
^DD(115.011,64,21,0)="^^2^2^3070808^"
^DD(115.011,64,21,1,0)="This is a date that a patient's assessment needs to be checked by a "
^DD(115.011,64,21,2,0)="dietitian or other provider."
^DD(115.011,64,"DT")="3070808"
^DD(115.011,65,0)="ASSESSMENT STATUS^S^C:COMPLETED;S:SIGNED;W:WORK IN PROGRESS;^DI;6^Q"
^DD(115.011,65,21,0)="^^4^4^3070116^"
^DD(115.011,65,21,1,0)="This is a status field for nutrition assessment.  When the status is "
^DD(115.011,65,21,2,0)="completed, a progress note will be created in TIU and eventually visible "
^DD(115.011,65,21,3,0)="in CPRS. Once it is signed in CPRS, the assessment status will be updated "
^DD(115.011,65,21,4,0)="to SIGNED."
^DD(115.011,65,"DT")="3070216"
^DD(115.011,66,0)="ASSESSMENT DIET^F^^DI;7^K:$L(X)>15!($L(X)<1) X"
^DD(115.011,66,3)="Answer must be 1-15 characters in length"
^DD(115.011,66,21,0)="^^1^1^3070208^"
^DD(115.011,66,21,1,0)="Patient diet at the time the Nutrition Assessment was created."
^DD(115.011,66,"DT")="3070208"
^DD(115.011,67,0)="ASSESSMENT TF DATE^D^^DI;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.011,67,3)=""
^DD(115.011,67,21,0)="^^2^2^3070712^"
^DD(115.011,67,21,1,0)="Patient's Tubefeeding Order Date/Time at"
^DD(115.011,67,21,2,0)="the time the Nutrition Assessment was created."
^DD(115.011,67,"DT")="3070712"
^DD(115.011,67.1,0)="ASSESSMENT TF PRODUCT^115.031P^^TF;0"
^DD(115.011,67.2,0)="ASSESSMENT TF COMMENT^F^^4;1^K:$L(X)>160!($L(X)<1) X"
^DD(115.011,67.2,3)="Answer must be 1-160 characters in length."
^DD(115.011,67.2,21,0)="^^2^2^3070712^"
^DD(115.011,67.2,21,1,0)="Patient's Tubefeeding Comment at the time the Nutrition Assessment was "
^DD(115.011,67.2,21,2,0)="created."
^DD(115.011,67.2,"DT")="3070712"
^DD(115.011,67.3,0)="ASSESSMENT TF TOTAL ML'S^NJ5,0^^DI;10^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,67.3,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(115.011,67.3,21,0)="^^2^2^3070712^"
^DD(115.011,67.3,21,1,0)="Patient's Tubefeeding Total ML's at the time the Nutrition Assessment"
^DD(115.011,67.3,21,2,0)="was created."
^DD(115.011,67.3,"DT")="3070712"
^DD(115.011,67.4,0)="ASSESSMENT TF TOTAL KCALS/DAY^NJ5,0^^DI;11^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.011,67.4,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(115.011,67.4,21,0)="^^2^2^3070712^"
^DD(115.011,67.4,21,1,0)="Patient's Tubefeeding Total KCALS/Day at the time the"
^DD(115.011,67.4,21,2,0)="Nutrition Assessment was created."
^DD(115.011,67.4,"DT")="3070712"
^DD(115.011,68,0)="ALERT DATE^D^^DI;9^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(115.011,68,3)="(No range limit on date)"
^DD(115.011,68,21,0)="^^1^1^3070314^"
^DD(115.011,68,21,1,0)="This is the last date an assessment alert was created."
^DD(115.011,68,"DT")="3070314"
^DD(115.011,70,0)="LAB DATA^115.021^^L;0"
^DD(115.011,70,21,0)="^^2^2^2891121^"
^DD(115.011,70,21,1,0)="This multiple contains laboratory data available for the"
^DD(115.011,70,21,2,0)="nutrition assessment."
^DD(115.011,71,0)="COMMENTS^115.1171^^X;0"
^DD(115.011,71,21,0)="^^1^1^3070116^"
^DD(115.011,71,21,1,0)="This multiple contains comments relating to the assessment."
^DD(115.011,80,0)="PT CONFINED IN BED^S^Y:YES;N:NO;^3;1^Q"
^DD(115.011,80,"DT")="3070216"
^DD(115.011,81,0)="ENERGY CAL^F^^3;2^K:$L(X)>30!($L(X)<1) X"
^DD(115.011,81,3)="Answer must be 1-30 characters in length"
^DD(115.011,81,"DT")="3070227"
^DD(115.011,82,0)="PROTEIN CAL^F^^3;3^K:$L(X)>30!($L(X)<1) X"
^DD(115.011,82,3)="Answer must be 1-30 characters in length"
^DD(115.011,82,"DT")="3070227"
^DD(115.011,83,0)="NFS PROBLEM^F^^3;4^K:$L(X)>30!($L(X)<1) X"
^DD(115.011,83,3)="Answer must be 1-30 characters in length"
^DD(115.011,83,"DT")="3070216"
^DD(115.011,84,0)="FOOD/DRUG INTERACTION^S^Y:YES;N:NO;^3;5^Q"
^DD(115.011,84,"DT")="3070216"
^DD(115.011,85,0)="FOOD/DRUG COMMENT^F^^3;6^K:$L(X)>40!($L(X)<3) X"
^DD(115.011,85,3)="Answer must be 3-40 characters in length"
^DD(115.011,85,"DT")="3070726"
^DD(115.011,86,0)="PROTEIN LEVEL^NJ4,2^^3;7^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""3.N) X"
^DD(115.011,86,3)="Type a number between 0 and 4, 2 Decimal Digits"
^DD(115.011,86,21,0)="^^1^1^3070726^"
^DD(115.011,86,21,1,0)="This is a protein level used in calculation of protein requirements."
^DD(115.011,86,"DT")="3070726"
^DD(115.011,87,0)="SPINAL CORD^S^P:Paraplegic;Q:Quadriplegic;^3;8^Q"
^DD(115.011,87,21,0)="^^1^1^3070726^"
^DD(115.011,87,21,1,0)="This is a spinal cord code for Paraplegic and Quadriplegic."
^DD(115.011,87,"DT")="3070726"
^DD(115.011,101,0)="ENTERING CLINICIAN^RP200'^VA(200,^0;23^Q"
^DD(115.011,101,21,0)="^^2^2^2891121^"
^DD(115.011,101,21,1,0)="This field points to the person entering the nutrition"
^DD(115.011,101,21,2,0)="assessment."
^DD(115.011,101,"DT")="2891108"
^DD(115.011,102,0)="DATE/TIME ENTERED^RD^^0;24^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.011,102,21,0)="^^2^2^2891121^"
^DD(115.011,102,21,1,0)="This field contains the date/time the assessment was actually"
^DD(115.011,102,21,2,0)="entered."
^DD(115.011,102,"DT")="2891108"
^DD(115.011,"B","AGE",2)=""
^DD(115.011,"B","ALERT DATE",68)=""
^DD(115.011,"B","AMPUTATION %",11)=""
^DD(115.011,"B","APPEARANCE",20)=""
^DD(115.011,"B","ARM CIRCUMFERENCE %",45)=""
^DD(115.011,"B","ARM CIRCUMFERENCE (CM)",44)=""
^DD(115.011,"B","ASSESSMENT DIET",66)=""
^DD(115.011,"B","ASSESSMENT FOLLOW-UP DATE",64)=""
^DD(115.011,"B","ASSESSMENT STATUS",65)=""
^DD(115.011,"B","ASSESSMENT TF COMMENT",67.2)=""
^DD(115.011,"B","ASSESSMENT TF DATE",67)=""
^DD(115.011,"B","ASSESSMENT TF PRODUCT",67.1)=""
^DD(115.011,"B","ASSESSMENT TF TOTAL KCALS/DAY",67.4)=""
^DD(115.011,"B","ASSESSMENT TF TOTAL ML'S",67.3)=""
^DD(115.011,"B","BODY MASS INDEX",21)=""
^DD(115.011,"B","BODY MASS INDEX %",22)=""
^DD(115.011,"B","BONE-FREE AMA  (CM2)",48)=""
^DD(115.011,"B","BONE-FREE AMA %",49)=""
^DD(115.011,"B","CALF CIRCUMFERENCE %",47)=""
^DD(115.011,"B","CALF CIRCUMFERENCE (CM)",46)=""
^DD(115.011,"B","CENB",53)=""
^DD(115.011,"B","CERBO",52)=""
^DD(115.011,"B","CFRB",56)=""
^DD(115.011,"B","CFRBO",57)=""
^DD(115.011,"B","CIBW",51)=""
^DD(115.011,"B","COMMENTS",71)=""
^DD(115.011,"B","CPRBO",58)=""
^DD(115.011,"B","DATE ENTERED IN PROBLEM LIST",61)=""
^DD(115.011,"B","DATE WEIGHT TAKEN",7)=""
^DD(115.011,"B","DATE/TIME ENTERED",102)=""
^DD(115.011,"B","DIAGNOSIS ENTERED BY NFS",62)=""
^DD(115.011,"B","DIAGNOSIS FROM PROBLEM LIST",60)=""
^DD(115.011,"B","EKKG",59)=""
^DD(115.011,"B","ENERGY CAL",81)=""
^DD(115.011,"B","ENTERING CLINICIAN",101)=""
^DD(115.011,"B","FLUID (ML/DAY) REQUIRED",17)=""
^DD(115.011,"B","FOOD/DRUG COMMENT",85)=""
^DD(115.011,"B","FOOD/DRUG INTERACTION",84)=""
^DD(115.011,"B","FRAME SIZE",10)=""
^DD(115.011,"B","HEIGHT",3)=""
^DD(115.011,"B","HEIGHT PARAMETERS",4)=""
^DD(115.011,"B","IDEAL BODY WEIGHT",9)=""
^DD(115.011,"B","KCAL REQUIRED",15)=""
^DD(115.011,"B","LAB DATA",70)=""
^DD(115.011,"B","NFS DIAGNOSIS DATE",63)=""
^DD(115.011,"B","NFS PROBLEM",83)=""
^DD(115.011,"B","NITROGEN BALANCE",23)=""
^DD(115.011,"B","NUTRITION ASSESSMENT",.01)=""
^DD(115.011,"B","NUTRITION PROBLEM",19)=""
^DD(115.011,"B","PCTB",54)=""
^DD(115.011,"B","PROTEIN (GM) REQUIRED",16)=""
^DD(115.011,"B","PROTEIN CAL",82)=""
^DD(115.011,"B","PROTEIN LEVEL",86)=""
^DD(115.011,"B","PT CONFINED IN BED",80)=""
^DD(115.011,"B","RISK CATEGORY",18)=""
^DD(115.011,"B","SEF",55)=""
^DD(115.011,"B","SEX",1)=""
^DD(115.011,"B","SPINAL CORD",87)=""
^DD(115.011,"B","SUBSCAPULAR %",43)=""
^DD(115.011,"B","SUBSCAPULAR SKINFOLD (MM)",42)=""
^DD(115.011,"B","TRICEPS %",41)=""
^DD(115.011,"B","TRICEPS SKIN FOLD (MM)",40)=""
^DD(115.011,"B","USUAL WEIGHT",8)=""
^DD(115.011,"B","WCCM",50)=""
^DD(115.011,"B","WEIGHT",5)=""
^DD(115.011,"B","WEIGHT PARAMETERS",6)=""
^DD(115.011,"GL",0,1,.01)=""
^DD(115.011,"GL",0,2,1)=""
^DD(115.011,"GL",0,3,2)=""
^DD(115.011,"GL",0,4,3)=""
^DD(115.011,"GL",0,5,4)=""
^DD(115.011,"GL",0,6,5)=""
^DD(115.011,"GL",0,7,6)=""
^DD(115.011,"GL",0,8,7)=""
^DD(115.011,"GL",0,9,8)=""
^DD(115.011,"GL",0,10,9)=""
^DD(115.011,"GL",0,11,10)=""
^DD(115.011,"GL",0,12,11)=""
^DD(115.011,"GL",0,16,15)=""
^DD(115.011,"GL",0,17,16)=""
^DD(115.011,"GL",0,18,17)=""
^DD(115.011,"GL",0,19,18)=""
^DD(115.011,"GL",0,20,19)=""
^DD(115.011,"GL",0,21,21)=""
^DD(115.011,"GL",0,22,22)=""
^DD(115.011,"GL",0,23,101)=""
^DD(115.011,"GL",0,24,102)=""
^DD(115.011,"GL",0,25,23)=""
^DD(115.011,"GL",1,1,40)=""
^DD(115.011,"GL",1,2,41)=""
^DD(115.011,"GL",1,3,42)=""
^DD(115.011,"GL",1,4,43)=""
^DD(115.011,"GL",1,5,44)=""
^DD(115.011,"GL",1,6,45)=""
^DD(115.011,"GL",1,7,46)=""
^DD(115.011,"GL",1,8,47)=""
^DD(115.011,"GL",1,9,48)=""
^DD(115.011,"GL",1,10,49)=""
^DD(115.011,"GL",1,11,50)=""
^DD(115.011,"GL",1,12,51)=""
^DD(115.011,"GL",1,13,52)=""
^DD(115.011,"GL",1,14,53)=""
^DD(115.011,"GL",1,15,54)=""
^DD(115.011,"GL",1,16,55)=""
^DD(115.011,"GL",1,17,56)=""
^DD(115.011,"GL",1,18,57)=""
^DD(115.011,"GL",1,19,58)=""
^DD(115.011,"GL",1,20,59)=""
^DD(115.011,"GL",2,1,20)=""
^DD(115.011,"GL",3,1,80)=""
^DD(115.011,"GL",3,2,81)=""
^DD(115.011,"GL",3,3,82)=""
^DD(115.011,"GL",3,4,83)=""
^DD(115.011,"GL",3,5,84)=""
^DD(115.011,"GL",3,6,85)=""
^DD(115.011,"GL",3,7,86)=""
^DD(115.011,"GL",3,8,87)=""
^DD(115.011,"GL",4,1,67.2)=""
^DD(115.011,"GL","DI",1,60)=""
^DD(115.011,"GL","DI",2,61)=""
^DD(115.011,"GL","DI",3,62)=""
^DD(115.011,"GL","DI",4,63)=""
^DD(115.011,"GL","DI",5,64)=""
^DD(115.011,"GL","DI",6,65)=""
^DD(115.011,"GL","DI",7,66)=""
^DD(115.011,"GL","DI",8,67)=""
^DD(115.011,"GL","DI",9,68)=""
^DD(115.011,"GL","DI",10,67.3)=""
^DD(115.011,"GL","DI",11,67.4)=""
^DD(115.011,"GL","L",0,70)=""
^DD(115.011,"GL","TF",0,67.1)=""
^DD(115.011,"GL","X",0,71)=""
^DD(115.011,"IX",.01)=""
^DD(115.011,"IX",64)=""
^DD(115.011,"RQ",1)=""
^DD(115.011,"RQ",2)=""
^DD(115.011,"RQ",101)=""
^DD(115.011,"RQ",102)=""
^DD(115.011,"SB",115.021,70)=""
^DD(115.011,"SB",115.031,67.1)=""
^DD(115.011,"SB",115.1171,71)=""
^DD(115.012,0)="NUTRITION STATUS SUB-FIELD^^5^6"
^DD(115.012,0,"DT")="3031014"
^DD(115.012,0,"IX","B",115.012,.01)=""
^DD(115.012,0,"NM","NUTRITION STATUS")=""
^DD(115.012,0,"UP")="115"
^DD(115.012,.01,0)="STATUS DATE/TIME^DX^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X"
^DD(115.012,.01,1,0)="^.1"
^DD(115.012,.01,1,1,0)="115.012^B"
^DD(115.012,.01,1,1,1)="S ^FHPT(DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(115.012,.01,1,1,2)="K ^FHPT(DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(115.012,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.012,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the STATUS DATE/TIME field."
^DD(115.012,.01,21,0)="^^2^2^2891113^"
^DD(115.012,.01,21,1,0)="This field contains the date/time that a nutrition status"
^DD(115.012,.01,21,2,0)="assessment was entered."
^DD(115.012,.01,"DT")="2891113"
^DD(115.012,1,0)="STATUS^RP115.4'^FH(115.4,^0;2^Q"
^DD(115.012,1,21,0)="^^2^2^2891121^^"
^DD(115.012,1,21,1,0)="This is a pointer to the Nutrition Status file (115.4) indicating"
^DD(115.012,1,21,2,0)="the current status of this patient."
^DD(115.012,1,"DT")="2891113"
^DD(115.012,2,0)="ENTRY CLERK^RP200'^VA(200,^0;3^Q"
^DD(115.012,2,21,0)="^^2^2^2891121^^"
^DD(115.012,2,21,1,0)="This is a pointer indicating the person actually making the entry"
^DD(115.012,2,21,2,0)="of the status."
^DD(115.012,2,"DT")="2891113"
^DD(115.012,3,0)="LAST REVIEW DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.012,3,21,0)="^^2^2^2911204^"
^DD(115.012,3,21,1,0)="This is the date/time that this Nutrition Status was last reviewed."
^DD(115.012,3,21,2,0)="Further reviews are based upon this last review date/time."
^DD(115.012,3,"DT")="2910430"
^DD(115.012,4,0)="REVIEW CLERK^P200'^VA(200,^0;5^Q"
^DD(115.012,4,21,0)="^^1^1^2911204^"
^DD(115.012,4,21,1,0)="This is a pointer to File 200 of the person entering the review."
^DD(115.012,4,"DT")="2910430"
^DD(115.012,5,0)="DIETETIC WARD^P119.6'^FH(119.6,^0;6^Q"
^DD(115.012,5,21,0)="^^2^2^2921107^"
^DD(115.012,5,21,1,0)="This field is a pointer to the Dietetic Ward on which the patient"
^DD(115.012,5,21,2,0)="resided when the Nutrition Status was entered."
^DD(115.012,5,"DT")="2920826"
^DD(115.012,"B","DIETETIC WARD",5)=""
^DD(115.012,"B","ENTRY CLERK",2)=""
^DD(115.012,"B","LAST REVIEW DATE/TIME",3)=""
^DD(115.012,"B","REVIEW CLERK",4)=""
^DD(115.012,"B","STATUS",1)=""
^DD(115.012,"B","STATUS DATE/TIME",.01)=""
^DD(115.012,"GL",0,1,.01)=""
^DD(115.012,"GL",0,2,1)=""
^DD(115.012,"GL",0,3,2)=""
^DD(115.012,"GL",0,4,3)=""
^DD(115.012,"GL",0,5,4)=""
^DD(115.012,"GL",0,6,5)=""
^DD(115.012,"IX",.01)=""
^DD(115.012,"RQ",1)=""
^DD(115.012,"RQ",2)=""
^DD(115.016,0)="RECURRING MEALS SUB-FIELD^^2.5^38"
^DD(115.016,0,"DT")="3060720"
^DD(115.016,0,"IX","B",115.016,.01)=""
^DD(115.016,0,"IX","C",115.016,5)=""
^DD(115.016,0,"NM","RECURRING MEALS")=""
^DD(115.016,0,"UP")="115"
^DD(115.016,.01,0)="RECURRING MEAL DATE/TIME^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.016,.01,1,0)="^.1"
^DD(115.016,.01,1,1,0)="115.016^B"
^DD(115.016,.01,1,1,1)="S ^FHPT(DA(1),""OP"",""B"",$E(X,1,30),DA)="""""
^DD(115.016,.01,1,1,2)="K ^FHPT(DA(1),""OP"",""B"",$E(X,1,30),DA)"
^DD(115.016,.01,1,2,0)="115^OP^MUMPS"
^DD(115.016,.01,1,2,1)="S ^FHPT(""OP"",DA(1),DA)="""""
^DD(115.016,.01,1,2,2)="K ^FHPT(""OP"",DA(1),DA)"
^DD(115.016,.01,1,2,"DT")="3030228"
^DD(115.016,.01,1,3,0)="115^RM"
^DD(115.016,.01,1,3,1)="S ^FHPT(""RM"",$E(X,1,30),DA(1),DA)="""""
^DD(115.016,.01,1,3,2)="K ^FHPT(""RM"",$E(X,1,30),DA(1),DA)"
^DD(115.016,.01,1,3,"%D",0)="^.101^1^1^3041215^^"
^DD(115.016,.01,1,3,"%D",1,0)="Cross reference the whole file by recurring meals date."
^DD(115.016,.01,1,3,"DT")="3030702"
^DD(115.016,.01,21,0)="^.001^1^1^3040429^^^^"
^DD(115.016,.01,21,1,0)="This field will contain the date of the recurring meal."
^DD(115.016,.01,"DT")="3040429"
^DD(115.016,.05,0)="RECURRING OE/RR ORDER^P100'^OR(100,^0;12^Q"
^DD(115.016,.05,21,0)="^^2^2^3031202^"
^DD(115.016,.05,21,1,0)="This field contains a pointer to the OE/RR file order corresponding to this"
^DD(115.016,.05,21,2,0)="order."
^DD(115.016,.05,"DT")="3031202"
^DD(115.016,1,0)="DIET^P111'X^FH(111,^0;2^Q"
^DD(115.016,1,21,0)="^.001^3^3^3030403^^^^"
^DD(115.016,1,21,1,0)="This is the DIET ordered for this meal plan.  It contains a pointer to the"
^DD(115.016,1,21,2,0)="DIETS (#111) file.  It may contain any one of the 5 diets selected in the"
^DD(115.016,1,21,3,0)="Recurring Meals Diet Selection (1-5) site parameter."
^DD(115.016,1,"DT")="3030224"
^DD(115.016,2,0)="OUTPATIENT LOCATION^P119.6'^FH(119.6,^0;3^Q"
^DD(115.016,2,1,0)="^.1"
^DD(115.016,2,1,1,0)="115^C"
^DD(115.016,2,1,1,1)="S ^FHPT(""C"",$E(X,1,30),DA(1),DA)="""""
^DD(115.016,2,1,1,2)="K ^FHPT(""C"",$E(X,1,30),DA(1),DA)"
^DD(115.016,2,1,1,"DT")="3030327"
^DD(115.016,2,21,0)="^.001^1^1^3030225^^^"
^DD(115.016,2,21,1,0)="Pointer to file #119.6 to store the location for this meal."
^DD(115.016,2,"DT")="3030327"
^DD(115.016,2.5,0)="ROOM-BED^P405.4'^DG(405.4,^0;18^Q"
^DD(115.016,2.5,21,0)="^^2^2^3060720^"
^DD(115.016,2.5,21,1,0)="This field will store the ROOM and BED # for the outpatient recurring meal"
^DD(115.016,2.5,21,2,0)="being ordered."
^DD(115.016,2.5,"DT")="3060720"
^DD(115.016,3,0)="MEAL^S^B:Breakfast;N:Noon;E:Evening;^0;4^Q"
^DD(115.016,3,21,0)="^.001^1^1^3030527^^^^"
^DD(115.016,3,21,1,0)="This field indicated which meal(s) the recurring meal is ordered for."
^DD(115.016,3,"DT")="3030527"
^DD(115.016,4,0)="ZZZDELETE -> BAGGED MEAL^S^Y:Yes;N:No;^0;5^Q"
^DD(115.016,4,21,0)="^.001^1^1^3050407^^"
^DD(115.016,4,21,1,0)="This field indicates whether or not a bagged meal is desired."
^DD(115.016,4,"DT")="3050407"
^DD(115.016,5,0)="MEAL PLAN ORDER NUMBER^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.016,5,1,0)="^.1"
^DD(115.016,5,1,1,0)="115.016^C"
^DD(115.016,5,1,1,1)="S ^FHPT(DA(1),""OP"",""C"",$E(X,1,30),DA)="""""
^DD(115.016,5,1,1,2)="K ^FHPT(DA(1),""OP"",""C"",$E(X,1,30),DA)"
^DD(115.016,5,1,1,"%D",0)="^^2^2^3030325^"
^DD(115.016,5,1,1,"%D",1,0)="This cross-reference will group together the meal plan dates for each"
^DD(115.016,5,1,1,"%D",2,0)="meal plan order if the patient has more than one meal plan."
^DD(115.016,5,1,1,"DT")="3030325"
^DD(115.016,5,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(115.016,5,21,0)="^.001^2^2^3030416^^"
^DD(115.016,5,21,1,0)="This field will be used to tie a meal plan together and distinguish it from"
^DD(115.016,5,21,2,0)="other meal plans the person may have."
^DD(115.016,5,"DT")="3030416"
^DD(115.016,6,0)="DIET1^P111'^FH(111,^0;7^Q"
^DD(115.016,6,21,0)="^.001^2^2^3030324^^"
^DD(115.016,6,21,1,0)="This field will store the first of the diet selections for outpatients"
^DD(115.016,6,21,2,0)="who are allowed to have up to 5 diets."
^DD(115.016,6,"DT")="3030324"
^DD(115.016,7,0)="DIET2^P111'^FH(111,^0;8^Q"
^DD(115.016,7,21,0)="^^2^2^3030220^"
^DD(115.016,7,21,1,0)="This field will store the second of the diet selections for outpatients"
^DD(115.016,7,21,2,0)="who are allowed to have up to 5 diets."
^DD(115.016,7,"DT")="3030324"
^DD(115.016,8,0)="DIET3^P111'^FH(111,^0;9^Q"
^DD(115.016,8,21,0)="^^2^2^3030220^"
^DD(115.016,8,21,1,0)="This field will store the third of the diet selections for outpatients"
^DD(115.016,8,21,2,0)="who are allowed to have up to 5 diets."
^DD(115.016,8,"DT")="3030324"
^DD(115.016,9,0)="DIET4^P111'^FH(111,^0;10^Q"
^DD(115.016,9,21,0)="^^2^2^3030220^"
^DD(115.016,9,21,1,0)="This field will store the fourth of the diet selections for outpatients"
^DD(115.016,9,21,2,0)="who are allowed to have up to 5 diets."
^DD(115.016,9,"DT")="3030324"
^DD(115.016,10,0)="DIET5^P111'^FH(111,^0;11^Q"
^DD(115.016,10,21,0)="^^2^2^3030220^"
^DD(115.016,10,21,1,0)="This field will store the fifth of the diet selections for outpatients"
^DD(115.016,10,21,2,0)="who are allowed to have up to 5 diets."
^DD(115.016,10,"DT")="3030324"
^DD(115.016,11,0)="ADDITIONAL ORDERS TEXT^F^^1;1^K:$L(X)>160!($L(X)<1) X"
^DD(115.016,11,3)="Answer must be 1-160 characters in length."
^DD(115.016,11,21,0)="^^1^1^3030520^"
^DD(115.016,11,21,1,0)="This field stores the text of the additional order."
^DD(115.016,11,"DT")="3030520"
^DD(115.016,12,0)="ADDITIONAL ORDERS CLERK^P200'^VA(200,^1;2^Q"
^DD(115.016,12,21,0)="^.001^1^1^3050630^^"
^DD(115.016,12,21,1,0)="This field stores the clerk who entered the additional order."
^DD(115.016,12,"DT")="3030520"
^DD(115.016,13,0)="ADDITIONAL ORDERS DATE/TIME^D^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.016,13,21,0)="^^1^1^3030520^"
^DD(115.016,13,21,1,0)="This field stores the date/time the additional order was entered."
^DD(115.016,13,"DT")="3030520"
^DD(115.016,13.5,0)="ADDITIONAL ORDERS OE/RR ORDER^P100'^OR(100,^1;4^Q"
^DD(115.016,13.5,21,0)="^^2^2^3031202^"
^DD(115.016,13.5,21,1,0)="This field contains a pointer to the OE/RR file order corresponding to this"
^DD(115.016,13.5,21,2,0)="order."
^DD(115.016,13.5,"DT")="3031202"
^DD(115.016,13.6,0)="ADDITIONAL ORDERS STATUS^S^C:Cancelled;O:Ordered;^1;5^Q"
^DD(115.016,13.6,21,0)="^.001^2^2^3040429^^"
^DD(115.016,13.6,21,1,0)="Additional orders which are cancelled will be flagged by setting this"
^DD(115.016,13.6,21,2,0)="field to C rather than deleting entries from the file."
^DD(115.016,13.6,"DT")="3040429"
^DD(115.016,14,0)="EARLY/LATE TRAY TIME^F^^2;1^K:$L(X)>10!($L(X)<1) X"
^DD(115.016,14,3)="Answer must be 1-10 characters in length."
^DD(115.016,14,21,0)="^^1^1^3030522^"
^DD(115.016,14,21,1,0)="This field will store the time for the early/late tray."
^DD(115.016,14,"DT")="3030522"
^DD(115.016,15,0)="EARLY/LATE TRAY BAGGED MEAL^S^N:NO;Y:YES;^2;2^Q"
^DD(115.016,15,21,0)="^^1^1^3030522^"
^DD(115.016,15,21,1,0)="This field will store whether or not the early/late tray is a bagged meal."
^DD(115.016,15,"DT")="3030522"
^DD(115.016,16,0)="EARLY/LATE TRAY CLERK^P200'^VA(200,^2;3^Q"
^DD(115.016,16,21,0)="^^1^1^3030522^"
^DD(115.016,16,21,1,0)="This field will store the person who entered the early/late tray."
^DD(115.016,16,"DT")="3030522"
^DD(115.016,17,0)="EARLY/LATE TRAY ENTRY DATE^D^^2;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.016,17,21,0)="^.001^1^1^3060720^^"
^DD(115.016,17,21,1,0)="This field will store the date/time the early/late tray was entered."
^DD(115.016,17,"DT")="3030522"
^DD(115.016,17.5,0)="EARLY/LATE TRAY OE/RR ORDER^P100'^OR(100,^2;5^Q"
^DD(115.016,17.5,21,0)="^^2^2^3031202^"
^DD(115.016,17.5,21,1,0)="This field contains a pointer to the OE/RR file order corresponding to this"
^DD(115.016,17.5,21,2,0)="order."
^DD(115.016,17.5,"DT")="3031202"
^DD(115.016,17.6,0)="EARLY/LATE TRAY STATUS^S^C:Cancelled;O:Ordered;^2;6^Q"
^DD(115.016,17.6,21,0)="^^2^2^3040429^"
^DD(115.016,17.6,21,1,0)="Early/Late trays which are cancelled will be flagged by setting this"
^DD(115.016,17.6,21,2,0)="field to C rather than deleting entries from the file."
^DD(115.016,17.6,"DT")="3040429"
^DD(115.016,18,0)="TUBEFEEDING COMMENT^F^^3;1^K:$L(X)>160!($L(X)<1) X"
^DD(115.016,18,3)="Answer must be 1-160 characters in length."
^DD(115.016,18,21,0)="^^1^1^3030606^"
^DD(115.016,18,21,1,0)="This field stores the tubefeeding comment(s) for the recurring meal."
^DD(115.016,18,"DT")="3030606"
^DD(115.016,19,0)="TUBEFEEDING PRODUCT^115.1619P^^TF;0"
^DD(115.016,19,21,0)="^.001^1^1^3051102^^^"
^DD(115.016,19,21,1,0)="This multiple stores the tubefeeding product data for the recurring meal."
^DD(115.016,20,0)="TUBEFEEDING TOTAL ML'S^NJ4,0^^3;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.016,20,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.016,20,21,0)="^^2^2^3050422^"
^DD(115.016,20,21,1,0)="This field stores the total ml's of the tubefeeding for the recurring "
^DD(115.016,20,21,2,0)="meal."
^DD(115.016,20,"DT")="3050422"
^DD(115.016,21,0)="TUBEFEEDING TOTAL KCALS/DAY^NJ4,0^^3;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.016,21,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.016,21,21,0)="^^1^1^3030606^"
^DD(115.016,21,21,1,0)="This field stores the total kcals/day of the tubefeeding for the recurring meal."
^DD(115.016,21,"DT")="3030606"
^DD(115.016,21.5,0)="TUBEFEEDING OE/RR ORDER^P100'^OR(100,^3;4^Q"
^DD(115.016,21.5,21,0)="^^2^2^3031202^"
^DD(115.016,21.5,21,1,0)="This field contains a pointer to the OE/RR file order corresponding to this"
^DD(115.016,21.5,21,2,0)="order."
^DD(115.016,21.5,"DT")="3031202"
^DD(115.016,21.6,0)="TUBEFEEDING STATUS^S^C:Cancelled;O:Ordered;^3;5^Q"
^DD(115.016,21.6,21,0)="^^2^2^3040429^"
^DD(115.016,21.6,21,1,0)="Tubefeedings which are cancelled will be flagged by setting this"
^DD(115.016,21.6,21,2,0)="field to C rather than deleting entries from the file."
^DD(115.016,21.6,"DT")="3040429"
^DD(115.016,21.7,0)="TUBEFEEDING CLERK^P200'^VA(200,^3;6^Q"
^DD(115.016,21.7,21,0)="^^1^1^3050630^"
^DD(115.016,21.7,21,1,0)="This field stores the clerk who entered the tubefeeding order."
^DD(115.016,21.7,"DT")="3050630"
^DD(115.016,22,0)="DATE/TIME TICKET LAST PRINTED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.016,22,21,0)="^^2^2^3040224^"
^DD(115.016,22,21,1,0)="Stores the last date and time a tray ticket was printed for this"
^DD(115.016,22,21,2,0)="outpatient meal."
^DD(115.016,22,"DT")="3040224"
^DD(115.016,23,0)="DATE/TIME CARD LAST PRINTED^D^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.016,23,21,0)="^^2^2^3040224^"
^DD(115.016,23,21,1,0)="Stores the last date and time a diet card was printed for this"
^DD(115.016,23,21,2,0)="outpatient meal."
^DD(115.016,23,"DT")="3040224"
^DD(115.016,24,0)="RECURRING MEAL STATUS^S^C:Cancelled;O:Ordered;^0;15^Q"
^DD(115.016,24,21,0)="^.001^2^2^3050630^^"
^DD(115.016,24,21,1,0)="Recurring meals which are cancelled will be flagged by setting this"
^DD(115.016,24,21,2,0)="field to C rather than deleting entries from the file."
^DD(115.016,24,"DT")="3050630"
^DD(115.016,24.5,0)="RECURRING MEAL CLERK^P200'^VA(200,^0;17^Q"
^DD(115.016,24.5,21,0)="^^1^1^3050630^"
^DD(115.016,24.5,21,1,0)="This field stores the clerk who entered the recurring meal order."
^DD(115.016,24.5,"DT")="3050630"
^DD(115.016,25,0)="DATE/TIME RM LAST EDITED^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.016,25,21,0)="^^2^2^3041206^"
^DD(115.016,25,21,1,0)="This field stores the last date/time the recurring meal was edited for"
^DD(115.016,25,21,2,0)="use with printing the tray tickets."
^DD(115.016,25,"DT")="3041206"
^DD(115.016,26,0)="STANDING ORDERS^115.1626^^SP;0"
^DD(115.016,26,"DT")="3051108"
^DD(115.016,27,0)="SUPPLEMENTAL FEEDING^115.1627^^SF;0"
^DD(115.016,"B","ADDITIONAL ORDERS CLERK",12)=""
^DD(115.016,"B","ADDITIONAL ORDERS DATE/TIME",13)=""
^DD(115.016,"B","ADDITIONAL ORDERS OE/RR ORDER",13.5)=""
^DD(115.016,"B","ADDITIONAL ORDERS STATUS",13.6)=""
^DD(115.016,"B","ADDITIONAL ORDERS TEXT",11)=""
^DD(115.016,"B","DATE/TIME CARD LAST PRINTED",23)=""
^DD(115.016,"B","DATE/TIME RM LAST EDITED",25)=""
^DD(115.016,"B","DATE/TIME TICKET LAST PRINTED",22)=""
^DD(115.016,"B","DIET",1)=""
^DD(115.016,"B","DIET1",6)=""
^DD(115.016,"B","DIET2",7)=""
^DD(115.016,"B","DIET3",8)=""
^DD(115.016,"B","DIET4",9)=""
^DD(115.016,"B","DIET5",10)=""
^DD(115.016,"B","EARLY/LATE TRAY BAGGED MEAL",15)=""
^DD(115.016,"B","EARLY/LATE TRAY CLERK",16)=""
^DD(115.016,"B","EARLY/LATE TRAY ENTRY DATE",17)=""
^DD(115.016,"B","EARLY/LATE TRAY OE/RR ORDER",17.5)=""
^DD(115.016,"B","EARLY/LATE TRAY STATUS",17.6)=""
^DD(115.016,"B","EARLY/LATE TRAY TIME",14)=""
^DD(115.016,"B","MEAL",3)=""
^DD(115.016,"B","MEAL PLAN ORDER NUMBER",5)=""
^DD(115.016,"B","OUTPATIENT LOCATION",2)=""
^DD(115.016,"B","RECURRING MEAL CLERK",24.5)=""
^DD(115.016,"B","RECURRING MEAL DATE/TIME",.01)=""
^DD(115.016,"B","RECURRING MEAL STATUS",24)=""
^DD(115.016,"B","RECURRING OE/RR ORDER",.05)=""
^DD(115.016,"B","ROOM-BED",2.5)=""
^DD(115.016,"B","STANDING ORDERS",26)=""
^DD(115.016,"B","SUPPLEMENTAL FEEDING",27)=""
^DD(115.016,"B","TUBEFEEDING CLERK",21.7)=""
^DD(115.016,"B","TUBEFEEDING COMMENT",18)=""
^DD(115.016,"B","TUBEFEEDING OE/RR ORDER",21.5)=""
^DD(115.016,"B","TUBEFEEDING PRODUCT",19)=""
^DD(115.016,"B","TUBEFEEDING STATUS",21.6)=""
^DD(115.016,"B","TUBEFEEDING TOTAL KCALS/DAY",21)=""
^DD(115.016,"B","TUBEFEEDING TOTAL ML'S",20)=""
^DD(115.016,"B","ZZZDELETE -> BAGGED MEAL",4)=""
^DD(115.016,"GL",0,1,.01)=""
^DD(115.016,"GL",0,2,1)=""
^DD(115.016,"GL",0,3,2)=""
^DD(115.016,"GL",0,4,3)=""
^DD(115.016,"GL",0,5,4)=""
^DD(115.016,"GL",0,6,5)=""
^DD(115.016,"GL",0,7,6)=""
^DD(115.016,"GL",0,8,7)=""
^DD(115.016,"GL",0,9,8)=""
^DD(115.016,"GL",0,10,9)=""
^DD(115.016,"GL",0,11,10)=""
^DD(115.016,"GL",0,12,.05)=""
^DD(115.016,"GL",0,13,22)=""
^DD(115.016,"GL",0,14,23)=""
^DD(115.016,"GL",0,15,24)=""
^DD(115.016,"GL",0,16,25)=""
^DD(115.016,"GL",0,17,24.5)=""
^DD(115.016,"GL",0,18,2.5)=""
^DD(115.016,"GL",1,1,11)=""
^DD(115.016,"GL",1,2,12)=""
^DD(115.016,"GL",1,3,13)=""
^DD(115.016,"GL",1,4,13.5)=""
^DD(115.016,"GL",1,5,13.6)=""
^DD(115.016,"GL",2,1,14)=""
^DD(115.016,"GL",2,2,15)=""
^DD(115.016,"GL",2,3,16)=""
^DD(115.016,"GL",2,4,17)=""
^DD(115.016,"GL",2,5,17.5)=""
^DD(115.016,"GL",2,6,17.6)=""
^DD(115.016,"GL",3,1,18)=""
^DD(115.016,"GL",3,2,20)=""
^DD(115.016,"GL",3,3,21)=""
^DD(115.016,"GL",3,4,21.5)=""
^DD(115.016,"GL",3,5,21.6)=""
^DD(115.016,"GL",3,6,21.7)=""
^DD(115.016,"GL","SF",0,27)=""
^DD(115.016,"GL","SP",0,26)=""
^DD(115.016,"GL","TF",0,19)=""
^DD(115.016,"IX",.01)=""
^DD(115.016,"IX",2)=""
^DD(115.016,"IX",5)=""
^DD(115.016,"SB",115.1619,19)=""
^DD(115.016,"SB",115.1626,26)=""
^DD(115.016,"SB",115.1627,27)=""
^DD(115.017,0)="SPECIAL MEALS SUB-FIELD^^2.5^18"
^DD(115.017,0,"DT")="3060720"
^DD(115.017,0,"IX","B",115.017,.01)=""
^DD(115.017,0,"NM","SPECIAL MEALS")=""
^DD(115.017,0,"UP")="115"
^DD(115.017,.01,0)="SPECIAL MEAL DATE/TIME^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I D(X) S DINUM=X"
^DD(115.017,.01,1,0)="^.1"
^DD(115.017,.01,1,1,0)="115.017^B"
^DD(115.017,.01,1,1,1)="S ^FHPT(DA(1),""SM"",""B"",$E(X,1,30),DA)="""""
^DD(115.017,.01,1,1,2)="K ^FHPT(DA(1),""SM"",""B"",$E(X,1,30),DA)"
^DD(115.017,.01,1,2,0)="115^SM"
^DD(115.017,.01,1,2,1)="S ^FHPT(""SM"",$E(X,1,30),DA(1),DA)="""""
^DD(115.017,.01,1,2,2)="K ^FHPT(""SM"",$E(X,1,30),DA(1),DA)"
^DD(115.017,.01,1,2,"%D",0)="^.101^1^1^3030630^^"
^DD(115.017,.01,1,2,"%D",1,0)="Cross reference the whole file by special meals."
^DD(115.017,.01,1,2,"DT")="3030421"
^DD(115.017,.01,3)=""
^DD(115.017,.01,21,0)="^.001^1^1^3030429^^^^"
^DD(115.017,.01,21,1,0)="This field will contain the date/time of the special meal."
^DD(115.017,.01,"DT")="3030514"
^DD(115.017,1,0)="STATUS^S^P:PENDING;C:CANCELLED;A:AUTHORIZED;D:DENIED;^0;2^Q"
^DD(115.017,1,1,0)="^.1^^0"
^DD(115.017,1,3)=""
^DD(115.017,1,21,0)="^.001^2^2^3030417^^^^"
^DD(115.017,1,21,1,0)="This field will store the status of the special meal request."
^DD(115.017,1,21,2,0)="The allowable statuses are PENDING, CANCELLED, AUTHORIZED or DENIED."
^DD(115.017,1,"DT")="3030429"
^DD(115.017,2,0)="LOCATION^P119.6'^FH(119.6,^0;3^Q"
^DD(115.017,2,1,0)="^.1^^0"
^DD(115.017,2,3)=""
^DD(115.017,2,21,0)="^.001^2^2^3030408^^^^"
^DD(115.017,2,21,1,0)="This field will store the location for a patient who has requested"
^DD(115.017,2,21,2,0)="a special ""one-time"" meal."
^DD(115.017,2,"DT")="3030429"
^DD(115.017,2.5,0)="ROOM-BED^P405.4'^DG(405.4,^0;13^Q"
^DD(115.017,2.5,21,0)="^^2^2^3060720^"
^DD(115.017,2.5,21,1,0)="This field will store the ROOM and BED # for the outpatient special meal"
^DD(115.017,2.5,21,2,0)="being ordered."
^DD(115.017,2.5,"DT")="3060720"
^DD(115.017,3,0)="DIET^P111'^FH(111,^0;4^Q"
^DD(115.017,3,21,0)="^^2^2^3030408^"
^DD(115.017,3,21,1,0)="This field will store the diet entered for a patient who has requested"
^DD(115.017,3,21,2,0)="a special ""one-time"" meal."
^DD(115.017,3,"DT")="3030429"
^DD(115.017,3.5,0)="MEAL^S^B:Breakfast;N:Noon;E:Evening;^0;9^Q"
^DD(115.017,3.5,21,0)="^^1^1^3030827^"
^DD(115.017,3.5,21,1,0)="This field will store the meal (breakfast/noon/evening) for the special meal."
^DD(115.017,3.5,"DT")="3030827"
^DD(115.017,4,0)="REQUESTOR^P200'^VA(200,^0;5^Q"
^DD(115.017,4,3)=""
^DD(115.017,4,21,0)="^.001^2^2^3030417^^^"
^DD(115.017,4,21,1,0)="This field will store the name of the person who has requested the"
^DD(115.017,4,21,2,0)="special meal.  This field is a pointer to the NEW PERSON (#200) file."
^DD(115.017,4,"DT")="3030429"
^DD(115.017,5,0)="AUTHORIZOR^P200'^VA(200,^0;6^Q"
^DD(115.017,5,21,0)="^.001^2^2^3030417^^^"
^DD(115.017,5,21,1,0)="This field will store the name of the person who has authorized the"
^DD(115.017,5,21,2,0)="special meal.  This field is a pointer to the NEW PERSON (#200) file."
^DD(115.017,5,"DT")="3030429"
^DD(115.017,6,0)="AUTHORIZE/DENY DATE/TIME^D^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.017,6,21,0)="^.001^1^1^3030429^^"
^DD(115.017,6,21,1,0)="This field stores the date/time that the special meal was authorized or denied."
^DD(115.017,6,"DT")="3030429"
^DD(115.017,7,0)="COMMENT^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(115.017,7,3)="Answer must be 1-80 characters in length."
^DD(115.017,7,21,0)="^^2^2^3030508^"
^DD(115.017,7,21,1,0)="If the special meal request is denied the authorizor may enter the reason"
^DD(115.017,7,21,2,0)="why it was denied in this comment field."
^DD(115.017,7,"DT")="3030508"
^DD(115.017,8,0)="EARLY/LATE TRAY TIME^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(115.017,8,3)="Answer must be 1-10 characters in length."
^DD(115.017,8,21,0)="^^1^1^3030915^"
^DD(115.017,8,21,1,0)="This field will store the time for the early/late tray."
^DD(115.017,8,"DT")="3030915"
^DD(115.017,9,0)="EARLY/LATE TRAY BAGGED MEAL^S^Y:YES;N:NO;^1;2^Q"
^DD(115.017,9,21,0)="^^1^1^3030915^"
^DD(115.017,9,21,1,0)="This field will store whether or not the early/late tray is a bagged meal."
^DD(115.017,9,"DT")="3030915"
^DD(115.017,10,0)="EARLY/LATE TRAY CLERK^P200'^VA(200,^1;3^Q"
^DD(115.017,10,21,0)="^^1^1^3030915^"
^DD(115.017,10,21,1,0)="This field will store the person who entered the early/late tray."
^DD(115.017,10,"DT")="3030915"
^DD(115.017,11,0)="EARLY/LATE TRAY OE/RR ORDER^P100'^OR(100,^1;4^Q"
^DD(115.017,11,21,0)="^^2^2^3050822^"
^DD(115.017,11,21,1,0)="This field is a pointer to the corresponding entry in the ORDERS (#100) "
^DD(115.017,11,21,2,0)="file."
^DD(115.017,11,"DT")="3050822"
^DD(115.017,11.5,0)="EARLY/LATE TRAY STATUS^S^A:ACTIVE;C:CANCELLED;^1;5^Q"
^DD(115.017,11.5,21,0)="^^1^1^3050822^"
^DD(115.017,11.5,21,1,0)="This field will be ""A"" for Active or ""C"" for cancelled."
^DD(115.017,11.5,"DT")="3050822"
^DD(115.017,12,0)="DATE/TIME TICKET LAST PRINTED^D^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.017,12,21,0)="^^2^2^3040224^"
^DD(115.017,12,21,1,0)="Stores the last date and time a tray ticket was printed for this"
^DD(115.017,12,21,2,0)="outpatient meal."
^DD(115.017,12,"DT")="3040224"
^DD(115.017,13,0)="DATE/TIME CARD LAST PRINTED^D^^0;11^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.017,13,21,0)="^^2^2^3040224^"
^DD(115.017,13,21,1,0)="Stores the last date and time a diet card was printed for this"
^DD(115.017,13,21,2,0)="outpatient meal."
^DD(115.017,13,"DT")="3040224"
^DD(115.017,14,0)="SPECIAL OE/RR ORDER^P100'^OR(100,^0;12^Q"
^DD(115.017,14,21,0)="^^1^1^3040608^"
^DD(115.017,14,21,1,0)="Pointer to File #100 for Special Meals entered via OE/RR."
^DD(115.017,14,"DT")="3040608"
^DD(115.017,"B","AUTHORIZE/DENY DATE/TIME",6)=""
^DD(115.017,"B","AUTHORIZOR",5)=""
^DD(115.017,"B","COMMENT",7)=""
^DD(115.017,"B","DATE/TIME CARD LAST PRINTED",13)=""
^DD(115.017,"B","DATE/TIME TICKET LAST PRINTED",12)=""
^DD(115.017,"B","DIET",3)=""
^DD(115.017,"B","EARLY/LATE TRAY BAGGED MEAL",9)=""
^DD(115.017,"B","EARLY/LATE TRAY CLERK",10)=""
^DD(115.017,"B","EARLY/LATE TRAY OE/RR ORDER",11)=""
^DD(115.017,"B","EARLY/LATE TRAY STATUS",11.5)=""
^DD(115.017,"B","EARLY/LATE TRAY TIME",8)=""
^DD(115.017,"B","LOCATION",2)=""
^DD(115.017,"B","MEAL",3.5)=""
^DD(115.017,"B","REQUESTOR",4)=""
^DD(115.017,"B","ROOM-BED",2.5)=""
^DD(115.017,"B","SPECIAL MEAL DATE/TIME",.01)=""
^DD(115.017,"B","SPECIAL OE/RR ORDER",14)=""
^DD(115.017,"B","STATUS",1)=""
^DD(115.017,"GL",0,1,.01)=""
^DD(115.017,"GL",0,2,1)=""
^DD(115.017,"GL",0,3,2)=""
^DD(115.017,"GL",0,4,3)=""
^DD(115.017,"GL",0,5,4)=""
^DD(115.017,"GL",0,6,5)=""
^DD(115.017,"GL",0,7,6)=""
^DD(115.017,"GL",0,8,7)=""
^DD(115.017,"GL",0,9,3.5)=""
^DD(115.017,"GL",0,10,12)=""
^DD(115.017,"GL",0,11,13)=""
^DD(115.017,"GL",0,12,14)=""
^DD(115.017,"GL",0,13,2.5)=""
^DD(115.017,"GL",1,1,8)=""
^DD(115.017,"GL",1,2,9)=""
^DD(115.017,"GL",1,3,10)=""
^DD(115.017,"GL",1,4,11)=""
^DD(115.017,"GL",1,5,11.5)=""
^DD(115.017,"IX",.01)=""
^DD(115.018,0)="GUEST MEALS SUB-FIELD^^4.5^11"
^DD(115.018,0,"DT")="3060720"
^DD(115.018,0,"IX","B",115.018,.01)=""
^DD(115.018,0,"NM","GUEST MEALS")=""
^DD(115.018,0,"UP")="115"
^DD(115.018,.01,0)="GUEST MEAL DATE/TIME^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I D(X) S DINUM=X"
^DD(115.018,.01,1,0)="^.1"
^DD(115.018,.01,1,1,0)="115.018^B"
^DD(115.018,.01,1,1,1)="S ^FHPT(DA(1),""GM"",""B"",$E(X,1,30),DA)="""""
^DD(115.018,.01,1,1,2)="K ^FHPT(DA(1),""GM"",""B"",$E(X,1,30),DA)"
^DD(115.018,.01,1,2,0)="115^GM"
^DD(115.018,.01,1,2,1)="S ^FHPT(""GM"",$E(X,1,30),DA(1),DA)="""""
^DD(115.018,.01,1,2,2)="K ^FHPT(""GM"",$E(X,1,30),DA(1),DA)"
^DD(115.018,.01,1,2,"%D",0)="^.101^1^1^3030702^^^"
^DD(115.018,.01,1,2,"%D",1,0)="Cross reference the whole file by the guest meals date"
^DD(115.018,.01,1,2,"DT")="3030701"
^DD(115.018,.01,21,0)="^.001^1^1^3030417^^"
^DD(115.018,.01,21,1,0)="This field will contain the date/time of the guest meal."
^DD(115.018,.01,"DT")="3030701"
^DD(115.018,1,0)="CLASSIFICATION^S^E:EMPLOYEE;G:GRATUITOUS;O:OOD;P:PAID;V:VOLUNTEER;^0;2^Q"
^DD(115.018,1,21,0)="^^1^1^3030417^"
^DD(115.018,1,21,1,0)="This field will contain the classification type for the guest meal."
^DD(115.018,1,"DT")="3030417"
^DD(115.018,2,0)="MEAL^S^B:Breakfast;N:Noon;E:Evening;^0;3^Q"
^DD(115.018,2,21,0)="^.001^1^1^3030827^^"
^DD(115.018,2,21,1,0)="This field will store the meal (breakfast/noon/evening) for the guest meal."
^DD(115.018,2,"DT")="3030827"
^DD(115.018,3,0)="CHARGE^NJ6,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(115.018,3,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(115.018,3,21,0)="^^1^1^3030630^"
^DD(115.018,3,21,1,0)="This field stores the charge amount for the guest meal."
^DD(115.018,3,"DT")="3030630"
^DD(115.018,4,0)="LOCATION^P119.6'^FH(119.6,^0;5^Q"
^DD(115.018,4,21,0)="^.001^1^1^3040218^^"
^DD(115.018,4,21,1,0)="This field indicates the location for this guest meal request."
^DD(115.018,4,"DT")="3040218"
^DD(115.018,4.5,0)="ROOM-BED^P405.4'^DG(405.4,^0;11^Q"
^DD(115.018,4.5,21,0)="^^2^2^3060720^"
^DD(115.018,4.5,21,1,0)="This field will store the ROOM and BED # for the outpatient recurring meal"
^DD(115.018,4.5,21,2,0)="being ordered."
^DD(115.018,4.5,"DT")="3060720"
^DD(115.018,5,0)="DIET^P111'^FH(111,^0;6^Q"
^DD(115.018,5,21,0)="^^2^2^3040219^"
^DD(115.018,5,21,1,0)="This is the Diet for the guest meal.  The diet will be stuffed from the"
^DD(115.018,5,21,2,0)="value set in the OUTPATIENT DIET1 site parameter in file #119.9."
^DD(115.018,5,"DT")="3040219"
^DD(115.018,6,0)="DATE/TIME TICKET LAST PRINTED^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.018,6,21,0)="^^2^2^3040224^"
^DD(115.018,6,21,1,0)="Stores the last date and time a diet card was printed for this"
^DD(115.018,6,21,2,0)="outpatient meal."
^DD(115.018,6,"DT")="3040224"
^DD(115.018,7,0)="DATE/TIME CARD LAST PRINTED^D^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.018,7,21,0)="^^2^2^3040224^"
^DD(115.018,7,21,1,0)="Stores the last date and time a diet card was printed for this"
^DD(115.018,7,21,2,0)="outpatient meal."
^DD(115.018,7,"DT")="3040224"
^DD(115.018,8,0)="STATUS^S^C:CANCELLED;O:ORDERED;^0;9^Q"
^DD(115.018,8,21,0)="^^2^2^3051121^"
^DD(115.018,8,21,1,0)="This field stores the status of the guest meal, which is either ""ordered"""
^DD(115.018,8,21,2,0)="or ""cancelled""."
^DD(115.018,8,"DT")="3051121"
^DD(115.018,9,0)="GUEST MEAL CLERK^P200'^VA(200,^0;10^Q"
^DD(115.018,9,21,0)="^^1^1^3051121^"
^DD(115.018,9,21,1,0)="This field stores the person who has entered the guest meal."
^DD(115.018,9,"DT")="3051121"
^DD(115.018,"B","CHARGE",3)=""
^DD(115.018,"B","CLASSIFICATION",1)=""
^DD(115.018,"B","DATE/TIME CARD LAST PRINTED",7)=""
^DD(115.018,"B","DATE/TIME TICKET LAST PRINTED",6)=""
^DD(115.018,"B","DIET",5)=""
^DD(115.018,"B","GUEST MEAL CLERK",9)=""
^DD(115.018,"B","GUEST MEAL DATE/TIME",.01)=""
^DD(115.018,"B","LOCATION",4)=""
^DD(115.018,"B","MEAL",2)=""
^DD(115.018,"B","ROOM-BED",4.5)=""
^DD(115.018,"B","STATUS",8)=""
^DD(115.018,"GL",0,1,.01)=""
^DD(115.018,"GL",0,2,1)=""
^DD(115.018,"GL",0,3,2)=""
^DD(115.018,"GL",0,4,3)=""
^DD(115.018,"GL",0,5,4)=""
^DD(115.018,"GL",0,6,5)=""
^DD(115.018,"GL",0,7,6)=""
^DD(115.018,"GL",0,8,7)=""
^DD(115.018,"GL",0,9,8)=""
^DD(115.018,"GL",0,10,9)=""
^DD(115.018,"GL",0,11,4.5)=""
^DD(115.018,"IX",.01)=""
^DD(115.02,0)="DIET SUB-FIELD^NL^21^23"
^DD(115.02,0,"DT")="3060329"
^DD(115.02,0,"NM","DIET")=""
^DD(115.02,0,"UP")="115.01"
^DD(115.02,.01,0)="ORDER NUMBER^NJ5,0XI^^0;1^K:X'?1N.N X I $D(X) S DINUM=X"
^DD(115.02,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(115.02,.01,21,0)="^^2^2^2880710^"
^DD(115.02,.01,21,1,0)="This field is merely the sequence order in which the diets"
^DD(115.02,.01,21,2,0)="were ordered and has no further meaning."
^DD(115.02,.01,"DT")="2880515"
^DD(115.02,1,0)="DIET1^P111'I^FH(111,^0;2^Q"
^DD(115.02,1,21,0)="^^2^2^2940526^^"
^DD(115.02,1,21,1,0)="This is the first diet modification selected from the Diets (111)"
^DD(115.02,1,21,2,0)="file."
^DD(115.02,1,"DT")="2880514"
^DD(115.02,2,0)="DIET2^P111'I^FH(111,^0;3^Q"
^DD(115.02,2,21,0)="^^2^2^2880710^"
^DD(115.02,2,21,1,0)="This is the second diet modification selected from the Diets (111)"
^DD(115.02,2,21,2,0)="file."
^DD(115.02,2,"DT")="2880514"
^DD(115.02,3,0)="DIET3^P111'I^FH(111,^0;4^Q"
^DD(115.02,3,21,0)="^^2^2^2880710^"
^DD(115.02,3,21,1,0)="This is the third diet modification selected from the Diets (111)"
^DD(115.02,3,21,2,0)="file."
^DD(115.02,3,"DT")="2880514"
^DD(115.02,4,0)="DIET4^P111'I^FH(111,^0;5^Q"
^DD(115.02,4,21,0)="^^2^2^2880710^"
^DD(115.02,4,21,1,0)="This is the fourth diet modification selected from the Diets (111)"
^DD(115.02,4,21,2,0)="file."
^DD(115.02,4,"DT")="2880514"
^DD(115.02,5,0)="DIET5^P111'I^FH(111,^0;6^Q"
^DD(115.02,5,21,0)="^^2^2^2880710^"
^DD(115.02,5,21,1,0)="This is the fifth diet modification selected from the Diets (111)"
^DD(115.02,5,21,2,0)="file."
^DD(115.02,5,"DT")="2880514"
^DD(115.02,6,0)="WITHHOLD^SI^N:NPO;X:NO ORDER;P:PASS;^0;7^Q"
^DD(115.02,6,1,0)="^.1^^0"
^DD(115.02,6,21,0)="^^2^2^2880710^"
^DD(115.02,6,21,1,0)="This field, if not null, indicates that an NPO type of order"
^DD(115.02,6,21,2,0)="was entered."
^DD(115.02,6,"DT")="2880514"
^DD(115.02,7,0)="TYPE OF SERVICE^SI^T:TRAY;C:CAFETERIA;D:DINING ROOM;^0;8^Q"
^DD(115.02,7,21,0)="^^4^4^2880710^"
^DD(115.02,7,21,1,0)="This field indicates the type of service requested for this diet"
^DD(115.02,7,21,2,0)="order. It is not present for NPO orders. When this order becomes"
^DD(115.02,7,21,3,0)="effective, this type of service will become the current type of"
^DD(115.02,7,21,4,0)="service and will be the default for future orders."
^DD(115.02,7,"DT")="2880514"
^DD(115.02,8,0)="DATE/TIME EFFECTIVE^DI^^0;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.02,8,21,0)="^^1^1^2880710^"
^DD(115.02,8,21,1,0)="This is the date/time when this diet order takes effect."
^DD(115.02,8,"DT")="2880514"
^DD(115.02,9,0)="DATE/TIME EXPIRES^DI^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.02,9,21,0)="^^3^3^2880710^"
^DD(115.02,9,21,1,0)="This field indicates the date/time when this order is to expire."
^DD(115.02,9,21,2,0)="If null, the order is 'open-ended' and will not expire until"
^DD(115.02,9,21,3,0)="superceded by another order."
^DD(115.02,9,"DT")="2880514"
^DD(115.02,10,0)="CLERK^P200'^VA(200,^0;11^Q"
^DD(115.02,10,21,0)="^^1^1^2880718^^"
^DD(115.02,10,21,1,0)="This field is the person actually entering the order."
^DD(115.02,10.5,0)="DATE/TIME ORDERED^D^^0;12^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.02,10.5,21,0)="^^3^3^2880710^"
^DD(115.02,10.5,21,1,0)="This is the date/time the order was actually entered and may bear"
^DD(115.02,10.5,21,2,0)="little relationship the effective and/or expiration date/times"
^DD(115.02,10.5,21,3,0)="of the actual order."
^DD(115.02,11,0)="COMMENT^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(115.02,11,3)="Answer must be 1-80 characters in length."
^DD(115.02,11,21,0)="^^2^2^2960628^^^"
^DD(115.02,11,21,1,0)="This is a comment field for any specialized comments concerning"
^DD(115.02,11,21,2,0)="this diet order."
^DD(115.02,11,"DT")="2960628"
^DD(115.02,12,0)="PRODUCTION DIET^RP116.2'^FH(116.2,^0;13^Q"
^DD(115.02,12,21,0)="^^4^4^2880710^"
^DD(115.02,12,21,1,0)="This is a pointer to the Production Diet (116.2) file and is"
^DD(115.02,12,21,2,0)="the outcome of the 'diet recoding' algorithm which is based"
^DD(115.02,12,21,3,0)="upon the diet modifications selected. It is not present for"
^DD(115.02,12,21,4,0)="NPO types of orders."
^DD(115.02,12,"DT")="2870713"
^DD(115.02,13,0)="OE/RR ORDER^P100^OR(100,^0;14^Q"
^DD(115.02,13,21,0)="^^2^2^2890918^"
^DD(115.02,13,21,1,0)="This field contains a pointer the the OE/RR file order corresponding"
^DD(115.02,13,21,2,0)="to this order."
^DD(115.02,13,"DT")="2890918"
^DD(115.02,14,0)="CURRENT OE/RR STATUS^*P100.01'^ORD(100.01,^0;15^S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.02,14,12)="Data Standardization of Order Status file #100.01"
^DD(115.02,14,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"""
^DD(115.02,14,21,0)="^.001^2^2^3060329^^^^"
^DD(115.02,14,21,1,0)="This field contains the current OE/RR status as passed to OE/RR."
^DD(115.02,14,21,2,0)="It is a pointer to the OE/RR Status file (100.01)."
^DD(115.02,14,"DT")="3060329"
^DD(115.02,15,0)="LAST REVIEW DATE/TIME^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.02,15,21,0)="^^3^3^2911204^"
^DD(115.02,15,21,1,0)="This is the date/time that the diet order was last reviewed if necessary."
^DD(115.02,15,21,2,0)="(Reviews are based upon the coded Production Diet). Further reviews are"
^DD(115.02,15,21,3,0)="based upon this last review date/time."
^DD(115.02,15,"DT")="2910430"
^DD(115.02,16,0)="REVIEW CLERK^P200'^VA(200,^0;17^Q"
^DD(115.02,16,21,0)="^^1^1^2941110^^"
^DD(115.02,16,21,1,0)="This is a pointer to File 200 of the person entering the review."
^DD(115.02,16,"DT")="2910430"
^DD(115.02,17,0)="CANCELLED DATE/TIME^D^^0;18^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(115.02,17,21,0)="^^1^1^2941110^^^"
^DD(115.02,17,21,1,0)="This field contains the Date/Time when the NPO was cancelled."
^DD(115.02,17,"DT")="2920318"
^DD(115.02,18,0)="CANCELLING CLERK^P200'^VA(200,^0;19^Q"
^DD(115.02,18,21,0)="^^2^2^2920318^^"
^DD(115.02,18,21,1,0)="This field contains the user who cancelled the NPO and is"
^DD(115.02,18,21,2,0)="captured automatically at the time of cancellation."
^DD(115.02,18,"DT")="2920318"
^DD(115.02,19,0)="INDIVIDUAL PATTERN^FI^^2;1^K:$L(X)>200!($L(X)<2) X"
^DD(115.02,19,3)="Answer must be 2-200 characters in length."
^DD(115.02,19,21,0)="^^6^6^2940526^^^"
^DD(115.02,19,21,1,0)="This field is the individual meal pattern for the patient which"
^DD(115.02,19,21,2,0)="contains three strings of codes, each code separated by a space contains"
^DD(115.02,19,21,3,0)="the internal number of the recipe category and the quantity separated"
^DD(115.02,19,21,4,0)="by a comma for the three meals, breakfast, noon, and evening, each"
^DD(115.02,19,21,5,0)="separated by a semicolon.  The meal pattern will take precedence over"
^DD(115.02,19,21,6,0)="the diet pattern entered in the Diet Pattern file (111.1)."
^DD(115.02,19,"DT")="2941110"
^DD(115.02,20,0)="PATTERN CLERK^P200'^VA(200,^3;1^Q"
^DD(115.02,20,21,0)="^^2^2^2941110^"
^DD(115.02,20,21,1,0)="This is a pointer to File 200 of the person entering the patient's"
^DD(115.02,20,21,2,0)="individual Diet Pattern."
^DD(115.02,20,"DT")="2941110"
^DD(115.02,21,0)="DATE/TIME PATTERN ENTERED^D^^3;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(115.02,21,21,0)="^^2^2^2941110^"
^DD(115.02,21,21,1,0)="This field contains the Date/Time when the Diet Pattern was"
^DD(115.02,21,21,2,0)="entered."
^DD(115.02,21,"DT")="2941110"
^DD(115.02,"B","CANCELLED DATE/TIME",17)=""
^DD(115.02,"B","CANCELLING CLERK",18)=""
^DD(115.02,"B","CLERK",10)=""
^DD(115.02,"B","COMMENT",11)=""
^DD(115.02,"B","CURRENT OE/RR STATUS",14)=""
^DD(115.02,"B","DATE/TIME EFFECTIVE",8)=""
^DD(115.02,"B","DATE/TIME EXPIRES",9)=""
^DD(115.02,"B","DATE/TIME ORDERED",10.5)=""
^DD(115.02,"B","DATE/TIME PATTERN ENTERED",21)=""
^DD(115.02,"B","DIET1",1)=""
^DD(115.02,"B","DIET2",2)=""
^DD(115.02,"B","DIET3",3)=""
^DD(115.02,"B","DIET4",4)=""
^DD(115.02,"B","DIET5",5)=""
^DD(115.02,"B","INDIVIDUAL PATTERN",19)=""
^DD(115.02,"B","LAST REVIEW DATE/TIME",15)=""
^DD(115.02,"B","OE/RR ORDER",13)=""
^DD(115.02,"B","ORDER NUMBER",.01)=""
^DD(115.02,"B","PATTERN CLERK",20)=""
^DD(115.02,"B","PRODUCTION DIET",12)=""
^DD(115.02,"B","REVIEW CLERK",16)=""
^DD(115.02,"B","TYPE OF SERVICE",7)=""
^DD(115.02,"B","WITHHOLD",6)=""
^DD(115.02,"GL",0,1,.01)=""
^DD(115.02,"GL",0,2,1)=""
^DD(115.02,"GL",0,3,2)=""
^DD(115.02,"GL",0,4,3)=""
^DD(115.02,"GL",0,5,4)=""
^DD(115.02,"GL",0,6,5)=""
^DD(115.02,"GL",0,7,6)=""
^DD(115.02,"GL",0,8,7)=""
^DD(115.02,"GL",0,9,8)=""
^DD(115.02,"GL",0,10,9)=""
^DD(115.02,"GL",0,11,10)=""
^DD(115.02,"GL",0,12,10.5)=""
^DD(115.02,"GL",0,13,12)=""
^DD(115.02,"GL",0,14,13)=""
^DD(115.02,"GL",0,15,14)=""
^DD(115.02,"GL",0,16,15)=""
^DD(115.02,"GL",0,17,16)=""
^DD(115.02,"GL",0,18,17)=""
^DD(115.02,"GL",0,19,18)=""
^DD(115.02,"GL",1,1,11)=""
^DD(115.02,"GL",2,1,19)=""
^DD(115.02,"GL",3,1,20)=""
^DD(115.02,"GL",3,2,21)=""
^DD(115.02,"RQ",12)=""
^DD(115.021,0)="LAB DATA SUB-FIELD^^6^7"
^DD(115.021,0,"IX","B",115.021,.01)=""
^DD(115.021,0,"NM","LAB DATA")=""
^DD(115.021,0,"UP")="115.011"
^DD(115.021,.01,0)="TEST NAME^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(115.021,.01,1,0)="^.1"
^DD(115.021,.01,1,1,0)="115.021^B"
^DD(115.021,.01,1,1,1)="S ^FHPT(DA(2),""N"",DA(1),""L"",""B"",$E(X,1,30),DA)="""""
^DD(115.021,.01,1,1,2)="K ^FHPT(DA(2),""N"",DA(1),""L"",""B"",$E(X,1,30),DA)"
^DD(115.021,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.021,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the TEST NAME field."
^DD(115.021,.01,3)="Answer must be 1-30 characters in length."
^DD(115.021,.01,21,0)="^^1^1^2891121^"
^DD(115.021,.01,21,1,0)="This field contains the name of the lab test."
^DD(115.021,.01,"DT")="2890705"
^DD(115.021,1,0)="LAB TEST^P60'^LAB(60,^0;2^Q"
^DD(115.021,1,21,0)="^^2^2^2910813^^^^"
^DD(115.021,1,21,1,0)="This field contains a pointer to the Lab Test file (60)"
^DD(115.021,1,21,2,0)="corresponding to this lab test."
^DD(115.021,1,"DT")="2890705"
^DD(115.021,2,0)="SPECIMEN^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.021,2,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.021,2,21,0)="2"
^DD(115.021,2,21,1,0)="This field contains a pointer to the specimen type used"
^DD(115.021,2,21,2,0)="for the lab test."
^DD(115.021,2,"DT")="2890705"
^DD(115.021,3,0)="UNITS^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(115.021,3,3)="Answer must be 1-10 characters in length."
^DD(115.021,3,21,0)="1^^1^1^2901217^"
^DD(115.021,3,21,1,0)="This field indicates the units in which the result is expressed."
^DD(115.021,3,"DT")="2890705"
^DD(115.021,4,0)="REF. RANGE^F^^0;5^K:$L(X)>11!($L(X)<4) X"
^DD(115.021,4,3)="Answer must be 4-11 characters in length."
^DD(115.021,4,21,0)="^^2^2^2940616^"
^DD(115.021,4,21,1,0)="This field provides the low-high reference (or normal) range"
^DD(115.021,4,21,2,0)="for the lab test."
^DD(115.021,4,"DT")="2890705"
^DD(115.021,5,0)="RESULT^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(115.021,5,3)="Answer must be 1-10 characters in length."
^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.021,"B","DATE PERFORMED",6)=""
^DD(115.021,"B","LAB TEST",1)=""
^DD(115.021,"B","REF. RANGE",4)=""
^DD(115.021,"B","RESULT",5)=""
^DD(115.021,"B","SPECIMEN",2)=""
^DD(115.021,"B","TEST NAME",.01)=""
^DD(115.021,"B","UNITS",3)=""
^DD(115.021,"GL",0,1,.01)=""
^DD(115.021,"GL",0,2,1)=""
^DD(115.021,"GL",0,3,2)=""
^DD(115.021,"GL",0,4,3)=""
^DD(115.021,"GL",0,5,4)=""
^DD(115.021,"GL",0,6,5)=""
^DD(115.021,"GL",0,7,6)=""
^DD(115.021,"IX",.01)=""
^DD(115.03,0)="CONSULTATION SUB-FIELD^NL^12^11"
^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"
^DD(115.03,10,21,3,0)="initial one or a follow-up to a prior consult."
^DD(115.03,10,"DT")="2850606"
^DD(115.03,11,0)="OE/RR ORDER^P100^OR(100,^0;13^Q"
^DD(115.03,11,21,0)="^^2^2^2890918^"
^DD(115.03,11,21,1,0)="This field contains a pointer to the OE/RR file order corresponding"
^DD(115.03,11,21,2,0)="to this order."
^DD(115.03,11,"DT")="2890918"
^DD(115.03,12,0)="OE/RR ENTRY^P100'^OR(100,^0;13^Q"
^DD(115.03,12,"DT")="2880325"
^DD(115.03,"B","CLERK",6)=""
^DD(115.03,"B","CLERK CLEARING",9)=""
^DD(115.03,"B","CLINICIAN",4)=""
^DD(115.03,"B","COMMENT",2)=""
^DD(115.03,"B","CONSULT REQUEST",1)=""
^DD(115.03,"B","DATE/TIME CLEARED",8)=""
^DD(115.03,"B","DATE/TIME ENTERED",.01)=""
^DD(115.03,"B","INITIAL/FOLLOW-UP",10)=""
^DD(115.03,"B","OE/RR ENTRY",12)=""
^DD(115.03,"B","OE/RR ORDER",11)=""
^DD(115.03,"B","STATUS",7)=""
^DD(115.03,"GL",0,1,.01)=""
^DD(115.03,"GL",0,2,1)=""
^DD(115.03,"GL",0,3,2)=""
^DD(115.03,"GL",0,5,4)=""
^DD(115.03,"GL",0,7,6)=""
^DD(115.03,"GL",0,8,7)=""
^DD(115.03,"GL",0,9,8)=""
^DD(115.03,"GL",0,10,9)=""
^DD(115.03,"GL",0,11,10)=""
^DD(115.03,"GL",0,13,11)=""
^DD(115.03,"GL",0,13,12)=""
^DD(115.03,"IX",.01)=""
^DD(115.03,"IX",4)=""
^DD(115.03,"IX",7)=""
^DD(115.03,"RQ",.01)=""
^DD(115.03,"RQ",1)=""
^DD(115.03,"RQ",4)=""
^DD(115.03,"RQ",6)=""
^DD(115.03,"RQ",7)=""
^DD(115.031,0)="ASSESSMENT TF PRODUCT SUB-FIELD^^2^3"
^DD(115.031,0,"DT")="3070712"
^DD(115.031,0,"IX","B",115.031,.01)=""
^DD(115.031,0,"NM","ASSESSMENT TF PRODUCT")=""
^DD(115.031,0,"UP")="115.011"
^DD(115.031,.01,0)="ASSESSMENT TF PRODUCT^P118.2'^FH(118.2,^0;1^Q"
^DD(115.031,.01,1,0)="^.1"
^DD(115.031,.01,1,1,0)="115.031^B"
^DD(115.031,.01,1,1,1)="S ^FHPT(DA(2),""N"",DA(1),""TF"",""B"",$E(X,1,30),DA)="""""
^DD(115.031,.01,1,1,2)="K ^FHPT(DA(2),""N"",DA(1),""TF"",""B"",$E(X,1,30),DA)"
^DD(115.031,.01,21,0)="^.001^2^2^3070712^^^"
^DD(115.031,.01,21,1,0)="Patient's Tubefeeding Product(s) at the time the"
^DD(115.031,.01,21,2,0)="Nutrition Assessment was created."
^DD(115.031,.01,"DT")="3070712"
^DD(115.031,1,0)="ASSESSMENT TF STRENGTH^RS^1:1/4;2:1/2;3:3/4;4:FULL;^0;2^Q"
^DD(115.031,1,21,0)="^^2^2^3070712^"
^DD(115.031,1,21,1,0)="Patient's Tubefeeding Product Strength at the time the"
^DD(115.031,1,21,2,0)="Nutrition Assessment was created."
^DD(115.031,1,"DT")="3070712"
^DD(115.031,2,0)="ASSESSMENT TF QUANTITY^RF^^0;3^K:$L(X)>50!($L(X)<3) X"
^DD(115.031,2,3)="Answer must be 3-50 characters in length."
^DD(115.031,2,21,0)="^^2^2^3070712^"
^DD(115.031,2,21,1,0)="Patient's Tubefeeding Product Quantity at the time the"
^DD(115.031,2,21,2,0)="Nutrition Assessment was created."
^DD(115.031,2,"DT")="3070712"
^DD(115.031,"B","ASSESSMENT TF PRODUCT",.01)=""
^DD(115.031,"B","ASSESSMENT TF QUANTITY",2)=""
^DD(115.031,"B","ASSESSMENT TF STRENGTH",1)=""
^DD(115.031,"GL",0,1,.01)=""
^DD(115.031,"GL",0,2,1)=""
^DD(115.031,"GL",0,3,2)=""
^DD(115.031,"IX",.01)=""
^DD(115.031,"RQ",1)=""
^DD(115.031,"RQ",2)=""
^DD(115.04,0)="TUBEFEEDING SUB-FIELD^NL^15^11"
^DD(115.04,0,"DT")="3021029"
^DD(115.04,0,"NM","TUBEFEEDING")=""
^DD(115.04,0,"UP")="115.01"
^DD(115.04,.01,0)="TUBEFEEDING^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.04,.01,21,0)="^^2^2^2910219^^^^"
^DD(115.04,.01,21,1,0)="This field contains the date/time the tubefeeding was ordered"
^DD(115.04,.01,21,2,0)="and will be effective."
^DD(115.04,.01,"DT")="2850517"
^DD(115.04,3,0)="TF PRODUCT^115.1P^^P;0"
^DD(115.04,3,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(115.04,3,21,0)="^.001^1^1^3070712^^^^"
^DD(115.04,3,21,1,0)="This multiple contains the tubefeeding products selected."
^DD(115.04,3,"DT")="2850714"
^DD(115.04,4,0)="COMMENT^F^^0;5^K:$L(X)>160!($L(X)<1) X"
^DD(115.04,4,3)="Answer must be 1-160 characters in length."
^DD(115.04,4,21,0)="^.001^2^2^3021030^^^^"
^DD(115.04,4,21,1,0)="This field contains any free-text comment entered at time"
^DD(115.04,4,21,2,0)="of order entry."
^DD(115.04,4,"DT")="3021029"
^DD(115.04,6,0)="TOTAL ML'S^NJ5,0^^0;6^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.04,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 10000"
^DD(115.04,6,21,0)="^.001^2^2^3070712^^"
^DD(115.04,6,21,1,0)="This field contains the total daily ml's administered of"
^DD(115.04,6,21,2,0)="the prepared (diluted) product."
^DD(115.04,6,"DT")="3050422"
^DD(115.04,7,0)="TOTAL KCALS/DAY^NJ5,0^^0;7^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.04,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 10000"
^DD(115.04,7,21,0)="^.001^2^2^3070712^^"
^DD(115.04,7,21,1,0)="This field contains the total Kilocalories per day provided"
^DD(115.04,7,21,2,0)="by the tubefeeding."
^DD(115.04,7,"DT")="2850714"
^DD(115.04,10,0)="ENTERING CLERK^RP200'^VA(200,^0;10^Q"
^DD(115.04,10,21,0)="^^2^2^2880715^"
^DD(115.04,10,21,1,0)="This field contains the user entering the tubefeeding order"
^DD(115.04,10,21,2,0)="and is automatically captured at time of entry."
^DD(115.04,10,"DT")="2850714"
^DD(115.04,11,0)="CANCELLATION DATE/TIME^D^^0;11^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.04,11,21,0)="^^2^2^2920318^^"
^DD(115.04,11,21,1,0)="This field contains the date/time the tubefeeding order"
^DD(115.04,11,21,2,0)="was cancelled."
^DD(115.04,11,"DT")="2850714"
^DD(115.04,12,0)="CANCELLING CLERK^P200'^VA(200,^0;12^Q"
^DD(115.04,12,21,0)="^^2^2^2920318^^"
^DD(115.04,12,21,1,0)="This field contains the user who cancelled the order and is"
^DD(115.04,12,21,2,0)="captured automatically at time of cancellation."
^DD(115.04,12,"DT")="2850714"
^DD(115.04,13,0)="OE/RR ORDER^P100^OR(100,^0;14^Q"
^DD(115.04,13,21,0)="^^2^2^2890918^"
^DD(115.04,13,21,1,0)="This field contains a pointer to the OE/RR file order corresponding"
^DD(115.04,13,21,2,0)="to this order."
^DD(115.04,13,"DT")="2890918"
^DD(115.04,14,0)="LAST REVIEW DATE/TIME^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.04,14,21,0)="^^2^2^2911204^"
^DD(115.04,14,21,1,0)="This is the date/time that the Tubefeeding order was last reviewed."
^DD(115.04,14,21,2,0)="Further reviews are based upon this last review date/time."
^DD(115.04,14,"DT")="2910430"
^DD(115.04,15,0)="REVIEW CLERK^P200'^VA(200,^0;16^Q"
^DD(115.04,15,21,0)="^^1^1^2911204^"
^DD(115.04,15,21,1,0)="This is a pointer to File 200 of the person entering the review."
^DD(115.04,15,"DT")="2910430"
^DD(115.04,"B","CANCELLATION DATE/TIME",11)=""
^DD(115.04,"B","CANCELLING CLERK",12)=""
^DD(115.04,"B","COMMENT",4)=""
^DD(115.04,"B","ENTERING CLERK",10)=""
^DD(115.04,"B","LAST REVIEW DATE/TIME",14)=""
^DD(115.04,"B","OE/RR ORDER",13)=""
^DD(115.04,"B","REVIEW CLERK",15)=""
^DD(115.04,"B","TF PRODUCT",3)=""
^DD(115.04,"B","TOTAL KCALS/DAY",7)=""
^DD(115.04,"B","TOTAL ML'S",6)=""
^DD(115.04,"B","TUBEFEEDING",.01)=""
^DD(115.04,"GL",0,1,.01)=""
^DD(115.04,"GL",0,5,4)=""
^DD(115.04,"GL",0,6,6)=""
^DD(115.04,"GL",0,7,7)=""
^DD(115.04,"GL",0,10,10)=""
^DD(115.04,"GL",0,11,11)=""
^DD(115.04,"GL",0,12,12)=""
^DD(115.04,"GL",0,14,13)=""
^DD(115.04,"GL",0,15,14)=""
^DD(115.04,"GL",0,16,15)=""
^DD(115.04,"GL","P",0,3)=""
^DD(115.04,"RQ",10)=""
^DD(115.04,"SB",115.1,3)=""
^DD(115.05,0)="EARLY/LATE TRAY SUB-FIELD^NL^6^7"
^DD(115.05,0,"NM","EARLY/LATE TRAY")=""
^DD(115.05,0,"UP")="115.01"
^DD(115.05,.01,0)="EARLY/LATE TRAY^DX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(115.05,.01,1,0)="^.1"
^DD(115.05,.01,1,1,0)="115^ADLT"
^DD(115.05,.01,1,1,1)="S ^FHPT(""ADLT"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(115.05,.01,1,1,2)="K ^FHPT(""ADLT"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(115.05,.01,21,0)="^.001^2^2^3030204^^^"
^DD(115.05,.01,21,1,0)="This field contains the date/time at which the early/late"
^DD(115.05,.01,21,2,0)="tray is to be delivered."
^DD(115.05,.01,"DT")="2850525"
^DD(115.05,1,0)="MEAL^RS^B:BREAKFAST;N:NOON;E:EVENING;^0;2^Q"
^DD(115.05,1,21,0)="^^1^1^2880718^^"
^DD(115.05,1,21,1,0)="This field indicates for which meal the early or late tray is ordered."
^DD(115.05,1,"DT")="2850608"
^DD(115.05,2,0)="TIME^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(115.05,2,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(115.05,2,21,0)="^^2^2^2930428^^^^"
^DD(115.05,2,21,1,0)="This field contains a printable time for which the meal is to"
^DD(115.05,2,21,2,0)="delivered."
^DD(115.05,2,"DT")="2850525"
^DD(115.05,3,0)="BAGGED MEAL?^S^Y:YES;N:NO;^0;4^Q"
^DD(115.05,3,21,0)="^^1^1^2880710^"
^DD(115.05,3,21,1,0)="If answered YES, this field indicates that a bagged meal is desired."
^DD(115.05,3,"DT")="2850526"
^DD(115.05,4,0)="CLERK^RP200'^VA(200,^0;5^Q"
^DD(115.05,4,21,0)="^^2^2^2880710^"
^DD(115.05,4,21,1,0)="This field is automatically updated with the user entering"
^DD(115.05,4,21,2,0)="the order."
^DD(115.05,4,"DT")="2850526"
^DD(115.05,5,0)="ENTRY DATE/TIME^RD^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.05,5,21,0)="^^2^2^2910506^^"
^DD(115.05,5,21,1,0)="This field contains the date/time the order was actually"
^DD(115.05,5,21,2,0)="entered."
^DD(115.05,5,"DT")="2850526"
^DD(115.05,6,0)="OE/RR ORDER^P100^OR(100,^0;7^Q"
^DD(115.05,6,21,0)="^^2^2^2890918^"
^DD(115.05,6,21,1,0)="This field contains a pointer to the OE/RR file order corresponding"
^DD(115.05,6,21,2,0)="to this order."
^DD(115.05,6,"DT")="2890918"
^DD(115.05,"B","BAGGED MEAL?",3)=""
^DD(115.05,"B","CLERK",4)=""
^DD(115.05,"B","EARLY/LATE TRAY",.01)=""
^DD(115.05,"B","ENTRY DATE/TIME",5)=""
^DD(115.05,"B","MEAL",1)=""
^DD(115.05,"B","OE/RR ORDER",6)=""
^DD(115.05,"B","TIME",2)=""
^DD(115.05,"GL",0,1,.01)=""
^DD(115.05,"GL",0,2,1)=""
^DD(115.05,"GL",0,3,2)=""
^DD(115.05,"GL",0,4,3)=""
^DD(115.05,"GL",0,5,4)=""
^DD(115.05,"GL",0,6,5)=""
^DD(115.05,"GL",0,7,6)=""
^DD(115.05,"IX",.01)=""
^DD(115.05,"RQ",1)=""
^DD(115.05,"RQ",4)=""
^DD(115.05,"RQ",5)=""
^DD(115.06,0)="ADDITIONAL ORDERS SUB-FIELD^NL^7^8"
^DD(115.06,0,"DT")="3021030"
^DD(115.06,0,"NM","ADDITIONAL ORDERS")=""
^DD(115.06,0,"UP")="115.01"
^DD(115.06,.01,0)="ORDER NUMBER^RNJ5,0X^^0;1^K:'X!(X'?1N.N) X I $D(X) S DINUM=X"
^DD(115.06,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(115.06,.01,21,0)="^^2^2^2880710^"
^DD(115.06,.01,21,1,0)="This field is merely the sequence number of the Additional"
^DD(115.06,.01,21,2,0)="Orders entered and has no meaning beyond that."
^DD(115.06,.01,"DT")="2851126"
^DD(115.06,1,0)="DATE/TIME ENTERED^RD^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.06,1,1,0)="^.1^^0"
^DD(115.06,1,21,0)="^^1^1^2880710^"
^DD(115.06,1,21,1,0)="This is the date/time the Additional Order was entered."
^DD(115.06,1,"DT")="2851126"
^DD(115.06,2,0)="ORDER^F^^0;3^K:$L(X)>160!($L(X)<1) X"
^DD(115.06,2,3)="Answer must be 1-160 characters in length."
^DD(115.06,2,21,0)="^.001^1^1^3021030^^^"
^DD(115.06,2,21,1,0)="This is the text of the order."
^DD(115.06,2,"DT")="3021030"
^DD(115.06,3,0)="CLERK^RP200'^VA(200,^0;4^Q"
^DD(115.06,3,21,0)="^^2^2^2880710^"
^DD(115.06,3,21,1,0)="This is the clerk entering the order and is automatically"
^DD(115.06,3,21,2,0)="captured at time of entry."
^DD(115.06,3,"DT")="2851126"
^DD(115.06,4,0)="STATUS^RS^A:ACTIVE;C:COMPLETE;S:SAVED;X:CANCELLED;^0;5^Q"
^DD(115.06,4,1,0)="^.1"
^DD(115.06,4,1,1,0)="115^AOO^MUMPS"
^DD(115.06,4,1,1,1)="S:X=""A"" ^FHPT(""AOO"",DA(2),DA(1),DA)="""" K:X'=""A"" ^FHPT(""AOO"",DA(2),DA(1),DA)"
^DD(115.06,4,1,1,2)="K ^FHPT(""AOO"",DA(2),DA(1),DA)"
^DD(115.06,4,1,1,"%D",0)="^^1^1^2940824^"
^DD(115.06,4,1,1,"%D",1,0)="This cross-reference is a list of active orders only."
^DD(115.06,4,21,0)="^^3^3^2920319^^^^"
^DD(115.06,4,21,1,0)="This is the status of the order. A saved order is one that has"
^DD(115.06,4,21,2,0)="been responded to but continues to display as it may require"
^DD(115.06,4,21,3,0)="further or on-going action."
^DD(115.06,4,"DT")="2890514"
^DD(115.06,5,0)="DATE/TIME CLEARED^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.06,5,21,0)="^^1^1^2880718^^"
^DD(115.06,5,21,1,0)="This is the date/time that the order was completed or saved."
^DD(115.06,5,"DT")="2851126"
^DD(115.06,6,0)="CLERK CLEARING^P200'^VA(200,^0;7^Q"
^DD(115.06,6,21,0)="^^2^2^2880710^"
^DD(115.06,6,21,1,0)="This is the dietetic person clearing the order and is"
^DD(115.06,6,21,2,0)="automatically captured at time of entry."
^DD(115.06,6,"DT")="2851126"
^DD(115.06,7,0)="OE/RR ORDER^P100^OR(100,^0;8^Q"
^DD(115.06,7,21,0)="^^2^2^2890918^"
^DD(115.06,7,21,1,0)="This field contains a pointer to the OE/RR file order corresponding"
^DD(115.06,7,21,2,0)="to this order."
^DD(115.06,7,"DT")="2890918"
^DD(115.06,"B","CLERK",3)=""
^DD(115.06,"B","CLERK CLEARING",6)=""
^DD(115.06,"B","DATE/TIME CLEARED",5)=""
^DD(115.06,"B","DATE/TIME ENTERED",1)=""
^DD(115.06,"B","OE/RR ORDER",7)=""
^DD(115.06,"B","ORDER",2)=""
^DD(115.06,"B","ORDER NUMBER",.01)=""
^DD(115.06,"B","STATUS",4)=""
^DD(115.06,"GL",0,1,.01)=""
^DD(115.06,"GL",0,2,1)=""
^DD(115.06,"GL",0,3,2)=""
^DD(115.06,"GL",0,4,3)=""
^DD(115.06,"GL",0,5,4)=""
^DD(115.06,"GL",0,6,5)=""
^DD(115.06,"GL",0,7,6)=""
^DD(115.06,"GL",0,8,7)=""
^DD(115.06,"IX",4)=""
^DD(115.06,"RQ",.01)=""
^DD(115.06,"RQ",1)=""
^DD(115.06,"RQ",3)=""
^DD(115.06,"RQ",4)=""
^DD(115.07,0)="SUPPLEMENTAL FEEDING SUB-FIELD^^44^34"
^DD(115.07,0,"DT")="2940722"
^DD(115.07,0,"NM","SUPPLEMENTAL FEEDING")=""
^DD(115.07,0,"UP")="115.01"
^DD(115.07,.01,0)="SUPPLEMENTAL FEEDING^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.07,.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(115.07,.01,21,0)="^^2^2^2910708^^"
^DD(115.07,.01,21,1,0)="This field is merely the sequence in which the various orders"
^DD(115.07,.01,21,2,0)="were entered and has no meaning beyond that."
^DD(115.07,.01,"DT")="2871018"
^DD(115.07,1,0)="DATE/TIME ORDERED^RD^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.07,1,21,0)="^^2^2^2910612^^^"
^DD(115.07,1,21,1,0)="This is the date/time at which the order was entered and is"
^DD(115.07,1,21,2,0)="captured automatically."
^DD(115.07,1,"DT")="2871018"
^DD(115.07,2,0)="ENTERING CLERK^RP200'^VA(200,^0;3^Q"
^DD(115.07,2,21,0)="^^2^2^2880710^"
^DD(115.07,2,21,1,0)="This is the person actually entering the order and is captured"
^DD(115.07,2,21,2,0)="automatically at time of entry."
^DD(115.07,2,"DT")="2871018"
^DD(115.07,3,0)="SF MENU^RP118.1'^FH(118.1,^0;4^Q"
^DD(115.07,3,21,0)="^^4^4^2880718^^"
^DD(115.07,3,21,1,0)="This is the supplemental feeding menu of the"
^DD(115.07,3,21,2,0)="Supplemental Feeding Menu file (118.1) that was selected. If"
^DD(115.07,3,21,3,0)="other than 'Individualized', the items from the selected"
^DD(115.07,3,21,4,0)="menu were moved into this order."
^DD(115.07,3,"DT")="2871018"
^DD(115.07,10,0)="10AM FEEDING #1^*P118'^FH(118,^0;5^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,10,12)="Cannot select bulk nourishments"
^DD(115.07,10,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,10,21,0)="^^2^2^2880710^"
^DD(115.07,10,21,1,0)="This is the first supplemental feeding ordered for the 10am"
^DD(115.07,10,21,2,0)="feeding."
^DD(115.07,10,"DT")="2871018"
^DD(115.07,11,0)="10AM #1 QTY^NJ2,0^^0;6^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,11,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.07,11,21,0)="^^1^1^2880710^^^"
^DD(115.07,11,21,1,0)="This is the ordered quantity of the first 10am feeding."
^DD(115.07,11,"DT")="2871018"
^DD(115.07,12,0)="10AM FEEDING #2^*P118'^FH(118,^0;7^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,12,12)="Cannot select bulk nourishments"
^DD(115.07,12,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,12,21,0)="^^2^2^2880710^"
^DD(115.07,12,21,1,0)="This is the second supplemental feeding ordered for the 10am"
^DD(115.07,12,21,2,0)="feeding."
^DD(115.07,13,0)="10AM #2 QTY^NJ2,0^^0;8^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,13,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,13,21,0)="^^1^1^2880710^^"
^DD(115.07,13,21,1,0)="This is the ordered quantity for the second 10am feeding."
^DD(115.07,14,0)="10AM FEEDING #3^*P118'^FH(118,^0;9^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,14,12)="Cannot select bulk nourishments"
^DD(115.07,14,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,14,21,0)="^^2^2^2880710^"
^DD(115.07,14,21,1,0)="This is the third supplemental feeding ordered for the 10am"
^DD(115.07,14,21,2,0)="feeding."
^DD(115.07,15,0)="10AM #3 QTY^NJ2,0^^0;10^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,15,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,15,21,0)="^^1^1^2880710^^"
^DD(115.07,15,21,1,0)="This is the ordered quantity for the third 10am feeding."
^DD(115.07,16,0)="10AM FEEDING #4^*P118'^FH(118,^0;11^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,16,12)="Cannot select bulk nourishments"
^DD(115.07,16,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,16,21,0)="^^2^2^2880710^"
^DD(115.07,16,21,1,0)="This is the fourth supplemental feeding ordered for the 10am"
^DD(115.07,16,21,2,0)="feeding."
^DD(115.07,17,0)="10AM #4 QTY^NJ2,0^^0;12^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,17,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,17,21,0)="^^1^1^2880710^"
^DD(115.07,17,21,1,0)="This is the ordered quantity of the fourth 10am feeding."
^DD(115.07,18,0)="2PM FEEDING #1^*P118'^FH(118,^0;13^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,18,12)="Cannot select bulk nourishments"
^DD(115.07,18,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,18,21,0)="^^2^2^2880710^"
^DD(115.07,18,21,1,0)="This is the first supplemental feeding ordered for the 2pm"
^DD(115.07,18,21,2,0)="feeding."
^DD(115.07,19,0)="2PM #1 QTY^NJ2,0^^0;14^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,19,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,19,21,0)="^^1^1^2880710^"
^DD(115.07,19,21,1,0)="This is the ordered quantity of the first 2pm feeding."
^DD(115.07,20,0)="2PM FEEDING #2^*P118'^FH(118,^0;15^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,20,12)="Cannot select bulk nourishments"
^DD(115.07,20,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,20,21,0)="^^2^2^2880710^"
^DD(115.07,20,21,1,0)="This is the second supplemental feeding ordered for the 2pm"
^DD(115.07,20,21,2,0)="feeding."
^DD(115.07,21,0)="2PM #2 QTY^NJ2,0^^0;16^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,21,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,21,21,0)="^^1^1^2880710^"
^DD(115.07,21,21,1,0)="This is the ordered quantity of the second 2pm feeding."
^DD(115.07,22,0)="2PM FEEDING #3^*P118'^FH(118,^0;17^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,22,12)="Cannot select bulk nourishments"
^DD(115.07,22,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,22,21,0)="^^2^2^2880710^"
^DD(115.07,22,21,1,0)="This is the third supplemental feeding ordered for the 2pm"
^DD(115.07,22,21,2,0)="feeding."
^DD(115.07,23,0)="2PM #3 QTY^NJ2,0^^0;18^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,23,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,23,21,0)="^^1^1^2880710^"
^DD(115.07,23,21,1,0)="This is the ordered quantity of the third 2pm feeding."
^DD(115.07,24,0)="2PM FEEDING #4^*P118'^FH(118,^0;19^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,24,12)="Cannot select bulk nourishments"
^DD(115.07,24,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,24,21,0)="^^2^2^2880710^"
^DD(115.07,24,21,1,0)="This is the fourth supplemental feeding ordered for the 2pm"
^DD(115.07,24,21,2,0)="feeding."
^DD(115.07,25,0)="2PM #4 QTY^NJ2,0^^0;20^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,25,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,25,21,0)="^^1^1^2880710^"
^DD(115.07,25,21,1,0)="This is the ordered quantity of the fourth 2pm feeding."
^DD(115.07,26,0)="8PM FEEDING #1^*P118'^FH(118,^0;21^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,26,12)="Cannot select bulk nourishments"
^DD(115.07,26,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,26,21,0)="^^2^2^2880710^"
^DD(115.07,26,21,1,0)="This is the first supplemental feeding ordered for the 8pm"
^DD(115.07,26,21,2,0)="feeding."
^DD(115.07,27,0)="8PM #1 QTY^NJ2,0^^0;22^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,27,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,27,21,0)="^^1^1^2880710^"
^DD(115.07,27,21,1,0)="This is the ordered quantity of the first 8pm feeding."
^DD(115.07,28,0)="8PM FEEDING #2^*P118'^FH(118,^0;23^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,28,12)="Cannot select bulk nourishments"
^DD(115.07,28,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,28,21,0)="^^2^2^2880710^"
^DD(115.07,28,21,1,0)="This is the second supplemental feeding ordered for the 8pm"
^DD(115.07,28,21,2,0)="feeding."
^DD(115.07,29,0)="8PM #2 QTY^NJ2,0^^0;24^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,29,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,29,21,0)="^^1^1^2880710^"
^DD(115.07,29,21,1,0)="This is the ordered quantity of the second 8pm feeding."
^DD(115.07,30,0)="8PM FEEDING #3^*P118'^FH(118,^0;25^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,30,12)="Cannot select bulk nourishments"
^DD(115.07,30,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,30,21,0)="^^2^2^2880710^"
^DD(115.07,30,21,1,0)="This is the third supplemental feeding ordered for the 8pm"
^DD(115.07,30,21,2,0)="feeding."
^DD(115.07,31,0)="8PM #3 QTY^NJ2,0^^0;26^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,31,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,31,21,0)="^^1^1^2880710^"
^DD(115.07,31,21,1,0)="This is the ordered quantity of the third 8pm feeding."
^DD(115.07,32,0)="8PM FEEDING #4^*P118'^FH(118,^0;27^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.07,32,12)="Cannot select bulk nourishments"
^DD(115.07,32,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(115.07,32,21,0)="^^2^2^2880710^"
^DD(115.07,32,21,1,0)="This is the fourth supplemental feeding ordered for the 8pm"
^DD(115.07,32,21,2,0)="feeding."
^DD(115.07,33,0)="8PM #4 QTY^NJ2,0^^0;28^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.07,33,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(115.07,33,21,0)="^^1^1^2880710^"
^DD(115.07,33,21,1,0)="This is the ordered quantity of the fourth 8pm feeding."
^DD(115.07,34,0)="DIETARY OR THERAPEUTIC^RS^D:DIETARY;T:THERAPEUTIC;^0;29^Q"
^DD(115.07,34,21,0)="^^2^2^2880710^"
^DD(115.07,34,21,1,0)="This field indicates whether the supplemental feeding was"
^DD(115.07,34,21,2,0)="ordered for dietary or therapeutic reasons."
^DD(115.07,34,"DT")="2850928"
^DD(115.07,40,0)="DATE/TIME LAST REVIEW^D^^0;30^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.07,40,21,0)="^^2^2^2880710^"
^DD(115.07,40,21,1,0)="This is the date/time this supplemental feeding order was"
^DD(115.07,40,21,2,0)="last reviewed for appropriateness."
^DD(115.07,40,"DT")="2871018"
^DD(115.07,41,0)="REVIEW CLERK^P200'^VA(200,^0;31^Q"
^DD(115.07,41,21,0)="^^2^2^2880710^"
^DD(115.07,41,21,1,0)="This is the person conducting the last review and is captured"
^DD(115.07,41,21,2,0)="automatically at time of review."
^DD(115.07,41,"DT")="2871018"
^DD(115.07,42,0)="DATE/TIME CANCELLED^D^^0;32^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.07,42,21,0)="^^1^1^2880710^"
^DD(115.07,42,21,1,0)="This is the date/time this order was cancelled."
^DD(115.07,42,"DT")="2871018"
^DD(115.07,43,0)="CANCELLING CLERK^P200'^VA(200,^0;33^Q"
^DD(115.07,43,21,0)="^^2^2^2880710^"
^DD(115.07,43,21,1,0)="This is the person cancelling the order and is captured"
^DD(115.07,43,21,2,0)="automatically at time of cancellation."
^DD(115.07,43,"DT")="2871018"
^DD(115.07,44,0)="DIET ASSOCIATED?^S^Y:YES;N:NO;^0;34^Q"
^DD(115.07,44,21,0)="^^2^2^2940722^"
^DD(115.07,44,21,1,0)="This field, if answered Yes, means this Supplemental Feeding Menu"
^DD(115.07,44,21,2,0)="is associated with a diet order else if answered No, means it is not."
^DD(115.07,44,"DT")="2940722"
^DD(115.07,"B","10AM #1 QTY",11)=""
^DD(115.07,"B","10AM #2 QTY",13)=""
^DD(115.07,"B","10AM #3 QTY",15)=""
^DD(115.07,"B","10AM #4 QTY",17)=""
^DD(115.07,"B","10AM FEEDING #1",10)=""
^DD(115.07,"B","10AM FEEDING #2",12)=""
^DD(115.07,"B","10AM FEEDING #3",14)=""
^DD(115.07,"B","10AM FEEDING #4",16)=""
^DD(115.07,"B","2PM #1 QTY",19)=""
^DD(115.07,"B","2PM #2 QTY",21)=""
^DD(115.07,"B","2PM #3 QTY",23)=""
^DD(115.07,"B","2PM #4 QTY",25)=""
^DD(115.07,"B","2PM FEEDING #1",18)=""
^DD(115.07,"B","2PM FEEDING #2",20)=""
^DD(115.07,"B","2PM FEEDING #3",22)=""
^DD(115.07,"B","2PM FEEDING #4",24)=""
^DD(115.07,"B","8PM #1 QTY",27)=""
^DD(115.07,"B","8PM #2 QTY",29)=""
^DD(115.07,"B","8PM #3 QTY",31)=""
^DD(115.07,"B","8PM #4 QTY",33)=""
^DD(115.07,"B","8PM FEEDING #1",26)=""
^DD(115.07,"B","8PM FEEDING #2",28)=""
^DD(115.07,"B","8PM FEEDING #3",30)=""
^DD(115.07,"B","8PM FEEDING #4",32)=""
^DD(115.07,"B","CANCELLING CLERK",43)=""
^DD(115.07,"B","DATE/TIME CANCELLED",42)=""
^DD(115.07,"B","DATE/TIME LAST REVIEW",40)=""
^DD(115.07,"B","DATE/TIME ORDERED",1)=""
^DD(115.07,"B","DIET ASSOCIATED?",44)=""
^DD(115.07,"B","DIETARY OR THERAPEUTIC",34)=""
^DD(115.07,"B","ENTERING CLERK",2)=""
^DD(115.07,"B","REVIEW CLERK",41)=""
^DD(115.07,"B","SF MENU",3)=""
^DD(115.07,"B","SUPPLEMENTAL FEEDING",.01)=""
^DD(115.07,"GL",0,1,.01)=""
^DD(115.07,"GL",0,2,1)=""
^DD(115.07,"GL",0,3,2)=""
^DD(115.07,"GL",0,4,3)=""
^DD(115.07,"GL",0,5,10)=""
^DD(115.07,"GL",0,6,11)=""
^DD(115.07,"GL",0,7,12)=""
^DD(115.07,"GL",0,8,13)=""
^DD(115.07,"GL",0,9,14)=""
^DD(115.07,"GL",0,10,15)=""
^DD(115.07,"GL",0,11,16)=""
^DD(115.07,"GL",0,12,17)=""
^DD(115.07,"GL",0,13,18)=""
^DD(115.07,"GL",0,14,19)=""
^DD(115.07,"GL",0,15,20)=""
^DD(115.07,"GL",0,16,21)=""
^DD(115.07,"GL",0,17,22)=""
^DD(115.07,"GL",0,18,23)=""
^DD(115.07,"GL",0,19,24)=""
^DD(115.07,"GL",0,20,25)=""
^DD(115.07,"GL",0,21,26)=""
^DD(115.07,"GL",0,22,27)=""
^DD(115.07,"GL",0,23,28)=""
^DD(115.07,"GL",0,24,29)=""
^DD(115.07,"GL",0,25,30)=""
^DD(115.07,"GL",0,26,31)=""
^DD(115.07,"GL",0,27,32)=""
^DD(115.07,"GL",0,28,33)=""
^DD(115.07,"GL",0,29,34)=""
^DD(115.07,"GL",0,30,40)=""
^DD(115.07,"GL",0,31,41)=""
^DD(115.07,"GL",0,32,42)=""
^DD(115.07,"GL",0,33,43)=""
^DD(115.07,"GL",0,34,44)=""
^DD(115.07,"RQ",1)=""
^DD(115.07,"RQ",2)=""
^DD(115.07,"RQ",3)=""
^DD(115.07,"RQ",34)=""
^DD(115.08,0)="STANDING ORDERS SUB-FIELD^^8^9"
^DD(115.08,0,"DT")="2940722"
^DD(115.08,0,"NM","STANDING ORDERS")=""
^DD(115.08,0,"UP")="115.01"
^DD(115.08,.01,0)="STANDING ORDERS^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.08,.01,1,0)="^.1^^0"
^DD(115.08,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.08,.01,21,0)="^.001^2^2^3051102^^^"
^DD(115.08,.01,21,1,0)="This field contains the sequence number of the standing order"
^DD(115.08,.01,21,2,0)="and has no meaning beyond that."
^DD(115.08,.01,"DT")="2871108"
^DD(115.08,1,0)="ORDER^RP118.3'^FH(118.3,^0;2^Q"
^DD(115.08,1,1,0)="^.1"
^DD(115.08,1,1,1,0)="115^ASP^MUMPS"
^DD(115.08,1,1,1,1)="S ^FHPT(""ASP"",DA(2),DA(1),DA)="""""
^DD(115.08,1,1,1,2)="K ^FHPT(""ASP"",DA(2),DA(1),DA)"
^DD(115.08,1,1,1,"%D",0)="^^2^2^2940824^"
^DD(115.08,1,1,1,"%D",1,0)="This creates an ""ASP"" cross-reference for active orders. It"
^DD(115.08,1,1,1,"%D",2,0)="is killed when the order is cancelled."
^DD(115.08,1,21,0)="^^2^2^2920103^^^"
^DD(115.08,1,21,1,0)="This field contains the standing order (from the Standing Orders"
^DD(115.08,1,21,2,0)="file, 118.3)."
^DD(115.08,1,"DT")="2871111"
^DD(115.08,2,0)="MEALS^RFX^^0;3^S:$P(""ALL"",X,1)="""" X=""BNE"" S %=X,X="""" S:%[""B"" X=""B"" S:%[""N"" X=X_""N"" S:%[""E"" X=X_""E"" K:$L(%)'=$L(X) X K %"
^DD(115.08,2,3)="Answer should be a string of meals (e.g., B  or BN or BNE) or A for all meals"
^DD(115.08,2,21,0)="^^2^2^2880901^^"
^DD(115.08,2,21,1,0)="This field contains the meals to which this standing order"
^DD(115.08,2,21,2,0)="is applicable."
^DD(115.08,2,"DT")="2880901"
^DD(115.08,3,0)="DATE/TIME ORDERED^RD^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.08,3,21,0)="^^2^2^2880714^"
^DD(115.08,3,21,1,0)="This field contains the date/time at which the standing"
^DD(115.08,3,21,2,0)="order was entered."
^DD(115.08,3,"DT")="2871111"
^DD(115.08,4,0)="ENTERING CLERK^RP200'^VA(200,^0;5^Q"
^DD(115.08,4,21,0)="^^2^2^2950317^^"
^DD(115.08,4,21,1,0)="This field contains the user who entered the order and is"
^DD(115.08,4,21,2,0)="automatically captured at the time of entry."
^DD(115.08,4,"DT")="2871111"
^DD(115.08,5,0)="DATE/TIME CANCELLED^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.08,5,1,0)="^.1"
^DD(115.08,5,1,1,0)="115^ASP1^MUMPS"
^DD(115.08,5,1,1,1)="K ^FHPT(""ASP"",DA(2),DA(1),DA)"
^DD(115.08,5,1,1,2)="S ^FHPT(""ASP"",DA(2),DA(1),DA)="""""
^DD(115.08,5,1,1,"%D",0)="^^2^2^2940824^"
^DD(115.08,5,1,1,"%D",1,0)="This cross-reference will delete the ""ASP"" standing order"
^DD(115.08,5,1,1,"%D",2,0)="entry if the order is cancelled."
^DD(115.08,5,21,0)="^^3^3^2911223^^"
^DD(115.08,5,21,1,0)="This field contains the date/time the standing order was"
^DD(115.08,5,21,2,0)="cancelled and is automatically captured at time of"
^DD(115.08,5,21,3,0)="cancellation."
^DD(115.08,5,"DT")="2871111"
^DD(115.08,6,0)="CANCELLING CLERK^P200'^VA(200,^0;7^Q"
^DD(115.08,6,21,0)="^^2^2^2920320^^^"
^DD(115.08,6,21,1,0)="This field contains the user who entered the cancellation"
^DD(115.08,6,21,2,0)="and is automatically captured at time of cancellation."
^DD(115.08,6,"DT")="2871111"
^DD(115.08,7,0)="QUANTITY^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.08,7,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(115.08,7,21,0)="^^1^1^2920220^"
^DD(115.08,7,21,1,0)="This is the quantity of the Standing Order."
^DD(115.08,7,"DT")="2920103"
^DD(115.08,8,0)="DIET ASSOCIATED?^S^Y:YES;N:NO;^0;9^Q"
^DD(115.08,8,21,0)="^^2^2^2940722^"
^DD(115.08,8,21,1,0)="This field, if answered Yes, means this Standing Order is associated"
^DD(115.08,8,21,2,0)="with a diet order else if answered No, means it is not."
^DD(115.08,8,"DT")="2940722"
^DD(115.08,"B","CANCELLING CLERK",6)=""
^DD(115.08,"B","DATE/TIME CANCELLED",5)=""
^DD(115.08,"B","DATE/TIME ORDERED",3)=""
^DD(115.08,"B","DIET ASSOCIATED?",8)=""
^DD(115.08,"B","ENTERING CLERK",4)=""
^DD(115.08,"B","MEALS",2)=""
^DD(115.08,"B","ORDER",1)=""
^DD(115.08,"B","QUANTITY",7)=""
^DD(115.08,"B","STANDING ORDERS",.01)=""
^DD(115.08,"GL",0,1,.01)=""
^DD(115.08,"GL",0,2,1)=""
^DD(115.08,"GL",0,3,2)=""
^DD(115.08,"GL",0,4,3)=""
^DD(115.08,"GL",0,5,4)=""
^DD(115.08,"GL",0,6,5)=""
^DD(115.08,"GL",0,7,6)=""
^DD(115.08,"GL",0,8,7)=""
^DD(115.08,"GL",0,9,8)=""
^DD(115.08,"IX",1)=""
^DD(115.08,"IX",5)=""
^DD(115.08,"RQ",1)=""
^DD(115.08,"RQ",2)=""
^DD(115.08,"RQ",3)=""
^DD(115.08,"RQ",4)=""
^DD(115.09,0)="FOOD PREFERENCES SUB-FIELD^^3^4"
^DD(115.09,0,"DT")="2950407"
^DD(115.09,0,"IX","B",115.09,.01)=""
^DD(115.09,0,"IX","C",115.09,1)=""
^DD(115.09,0,"NM","FOOD PREFERENCES")=""
^DD(115.09,0,"UP")="115"
^DD(115.09,.01,0)="FOOD PREFERENCES^MP115.2'^FH(115.2,^0;1^Q"
^DD(115.09,.01,1,0)="^.1"
^DD(115.09,.01,1,1,0)="115.09^B"
^DD(115.09,.01,1,1,1)="S ^FHPT(DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(115.09,.01,1,1,2)="K ^FHPT(DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(115.09,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.09,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the FOOD PREFERENCES field."
^DD(115.09,.01,21,0)="^^2^2^2881201^^"
^DD(115.09,.01,21,1,0)="This field contains the food preference selected from the"
^DD(115.09,.01,21,2,0)="Food Preferences file (115.2)."
^DD(115.09,.01,"DT")="2880831"
^DD(115.09,1,0)="MEALS^RFX^^0;2^S:$P(""ALL"",X,1)="""" X=""BNE"" S %=X,X="""" S:%[""B"" X=""B"" S:%[""N"" X=X_""N"" S:%[""E"" X=X_""E"" K:$L(%)'=$L(X) X K %"
^DD(115.09,1,1,0)="^.1"
^DD(115.09,1,1,1,0)="115.09^C"
^DD(115.09,1,1,1,1)="S ^FHPT(DA(1),""P"",""C"",$E(X,1,30),DA)="""""
^DD(115.09,1,1,1,2)="K ^FHPT(DA(1),""P"",""C"",$E(X,1,30),DA)"
^DD(115.09,1,1,1,"%D",0)="^^1^1^3030623^"
^DD(115.09,1,1,1,"%D",1,0)="Cross reference by meals so that they can be displayed by meal."
^DD(115.09,1,1,1,"DT")="3030623"
^DD(115.09,1,3)="Answer should be a string of meals (e.g., B  or BN or BNE) or A for all meals"
^DD(115.09,1,21,0)="^^2^2^2950418^^^^"
^DD(115.09,1,21,1,0)="This field contains the meals (B N and E) for which this food"
^DD(115.09,1,21,2,0)="preference is applicable."
^DD(115.09,1,22)=""
^DD(115.09,1,"DT")="3030623"
^DD(115.09,2,0)="QUANTITY^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.09,2,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(115.09,2,21,0)="^^2^2^2920220^"
^DD(115.09,2,21,1,0)="This is the quantity of the Food Preference applicable to this"
^DD(115.09,2,21,2,0)="patient."
^DD(115.09,2,"DT")="2920103"
^DD(115.09,3,0)="DIET ASSOCIATED?^S^Y:YES;N:NO;^0;4^Q"
^DD(115.09,3,21,0)="^^3^3^2950407^"
^DD(115.09,3,21,1,0)="This field, if answered Yes, means this Food Preference is a Diet"
^DD(115.09,3,21,2,0)="restriction that is associated with a diet order else if answered No,"
^DD(115.09,3,21,3,0)="means it is not."
^DD(115.09,3,"DT")="2950407"
^DD(115.09,"B","DIET ASSOCIATED?",3)=""
^DD(115.09,"B","FOOD PREFERENCES",.01)=""
^DD(115.09,"B","MEALS",1)=""
^DD(115.09,"B","QUANTITY",2)=""
^DD(115.09,"GL",0,1,.01)=""
^DD(115.09,"GL",0,2,1)=""
^DD(115.09,"GL",0,3,2)=""
^DD(115.09,"GL",0,4,3)=""
^DD(115.09,"IX",.01)=""
^DD(115.09,"IX",1)=""
^DD(115.09,"RQ",1)=""
^DD(115.1,0)="TF PRODUCT SUB-FIELD^^5^6"
^DD(115.1,0,"DT")="2950926"
^DD(115.1,0,"IX","B",115.1,.01)=""
^DD(115.1,0,"NM","TF PRODUCT")=""
^DD(115.1,0,"UP")="115.04"
^DD(115.1,.01,0)="TF PRODUCT^MRP118.2'^FH(118.2,^0;1^Q"
^DD(115.1,.01,1,0)="^.1"
^DD(115.1,.01,1,1,0)="115.1^B"
^DD(115.1,.01,1,1,1)="S ^FHPT(DA(3),""A"",DA(2),""TF"",DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(115.1,.01,1,1,2)="K ^FHPT(DA(3),""A"",DA(2),""TF"",DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(115.1,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.1,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the TF PRODUCT field."
^DD(115.1,.01,1,1,"DT")="2910307"
^DD(115.1,.01,3)=""
^DD(115.1,.01,21,0)="^^1^1^2920312^^^^"
^DD(115.1,.01,21,1,0)="This field contains the tubefeeding product to be administered."
^DD(115.1,.01,"DT")="2910307"
^DD(115.1,1,0)="STRENGTH^RS^1:1/4;2:1/2;3:3/4;4:FULL;^0;2^Q"
^DD(115.1,1,3)=""
^DD(115.1,1,21,0)="^.001^3^3^3070712^^"
^DD(115.1,1,21,1,0)="This field contains the quantity of the tubefeeding and may"
^DD(115.1,1,21,2,0)="be expressed in Kilocalories per day, ml's per hour, or"
^DD(115.1,1,21,3,0)="similar rates."
^DD(115.1,1,"DT")="3050422"
^DD(115.1,2,0)="QUANTITY^RF^^0;3^K:$L(X)>50!($L(X)<3) X"
^DD(115.1,2,3)="Answer must be 3-50 characters in length."
^DD(115.1,2,21,0)="^.001^2^2^3070712^^^^"
^DD(115.1,2,21,1,0)="This field contains the strength of the tubefeeding product"
^DD(115.1,2,21,2,0)="and the degree, if any, of dilution."
^DD(115.1,2,"DT")="2950926"
^DD(115.1,3,0)="PRODUCT ML'S/DAY^NJ5,0^^0;4^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.1,3,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(115.1,3,21,0)="^^2^2^3050422^"
^DD(115.1,3,21,1,0)="This is the number of ml's of the TF product which are contained in"
^DD(115.1,3,21,2,0)="the order for a day (or less than a day if so indicated)."
^DD(115.1,3,"DT")="3050422"
^DD(115.1,4,0)="WATER ML'S/DAY^NJ5,0^^0;5^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.1,4,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(115.1,4,21,0)="^^2^2^3050422^"
^DD(115.1,4,21,1,0)="This is the number of ml's of water to be used to dilute the TF product"
^DD(115.1,4,21,2,0)="if indicated."
^DD(115.1,4,"DT")="3050422"
^DD(115.1,5,0)="KCALS/DAY^NJ5,0^^0;6^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.1,5,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(115.1,5,21,0)="^^1^1^2911204^"
^DD(115.1,5,21,1,0)="This is the number of Kcal's contained in this TF product as prepared."
^DD(115.1,5,"DT")="2910401"
^DD(115.1,"B","KCALS/DAY",5)=""
^DD(115.1,"B","PRODUCT ML'S/DAY",3)=""
^DD(115.1,"B","QUANTITY",2)=""
^DD(115.1,"B","STRENGTH",1)=""
^DD(115.1,"B","TF PRODUCT",.01)=""
^DD(115.1,"B","WATER ML'S/DAY",4)=""
^DD(115.1,"GL",0,1,.01)=""
^DD(115.1,"GL",0,2,1)=""
^DD(115.1,"GL",0,3,2)=""
^DD(115.1,"GL",0,4,3)=""
^DD(115.1,"GL",0,5,4)=""
^DD(115.1,"GL",0,6,5)=""
^DD(115.1,"IX",.01)=""
^DD(115.1,"RQ",.01)=""
^DD(115.1,"RQ",1)=""
^DD(115.1,"RQ",2)=""
^DD(115.11,0)="Monitors SUB-FIELD^^6^6"
^DD(115.11,0,"DT")="3060711"
^DD(115.11,0,"IX","AC",115.11,1)=""
^DD(115.11,0,"IX","B",115.11,.01)=""
^DD(115.11,0,"NM","Monitors")=""
^DD(115.11,0,"UP")="115.01"
^DD(115.11,.01,0)="Monitors^F^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(115.11,.01,1,0)="^.1"
^DD(115.11,.01,1,1,0)="115.11^B"
^DD(115.11,.01,1,1,1)="S ^FHPT(DA(2),""A"",DA(1),""MO"",""B"",$E(X,1,30),DA)="""""
^DD(115.11,.01,1,1,2)="K ^FHPT(DA(2),""A"",DA(1),""MO"",""B"",$E(X,1,30),DA)"
^DD(115.11,.01,3)="Answer must be 3-60 characters in length."
^DD(115.11,.01,21,0)="^^2^2^3010119^"
^DD(115.11,.01,21,1,0)="This field contains Performance Monitors occurring during"
^DD(115.11,.01,21,2,0)="this admission."
^DD(115.11,.01,"DT")="3010119"
^DD(115.11,1,0)="DATE/TIME^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.11,1,1,0)="^.1"
^DD(115.11,1,1,1,0)="115.11^AC"
^DD(115.11,1,1,1,1)="S ^FHPT(DA(2),""A"",DA(1),""MO"",""AC"",$E(X,1,30),DA)="""""
^DD(115.11,1,1,1,2)="K ^FHPT(DA(2),""A"",DA(1),""MO"",""AC"",$E(X,1,30),DA)"
^DD(115.11,1,1,1,"%D",0)="^^1^1^3010313^"
^DD(115.11,1,1,1,"%D",1,0)="This cross-reference allows monitors to be retrieved in date/time order."
^DD(115.11,1,1,1,"DT")="3010313"
^DD(115.11,1,21,0)="^^1^1^3010119^"
^DD(115.11,1,21,1,0)="|TAB|This is the date/time the monitor was entered."
^DD(115.11,1,"DT")="3010313"
^DD(115.11,2,0)="COMMENT^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(115.11,2,3)="Answer must be 3-60 characters in length."
^DD(115.11,2,21,0)="^^2^2^3010119^"
^DD(115.11,2,21,1,0)="This is a comment entered by the person clearing the monitor."
^DD(115.11,2,21,2,0)="It should reflect the action taken."
^DD(115.11,2,"DT")="3010119"
^DD(115.11,3,0)="CLEARED BY^P200'^VA(200,^0;4^Q"
^DD(115.11,3,21,0)="^^1^1^3010119^"
^DD(115.11,3,21,1,0)="This is a pointer to the person clearing the monitor."
^DD(115.11,3,"DT")="3010119"
^DD(115.11,5,0)="DATE/TIME CLEARED^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.11,5,21,0)="^^1^1^3010119^"
^DD(115.11,5,21,1,0)="This is the date/time the monitor was cleared."
^DD(115.11,5,"DT")="3010119"
^DD(115.11,6,0)="MONITOR VALUE^NJ9,3^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4.N) X"
^DD(115.11,6,3)="Type a number between 0 and 99999, 3 Decimal Digits"
^DD(115.11,6,21,0)="^^1^1^3060711^"
^DD(115.11,6,21,1,0)="This is a value of a specific monitor."
^DD(115.11,6,"DT")="3060711"
^DD(115.11,"B","CLEARED BY",3)=""
^DD(115.11,"B","COMMENT",2)=""
^DD(115.11,"B","DATE/TIME",1)=""
^DD(115.11,"B","DATE/TIME CLEARED",5)=""
^DD(115.11,"B","MONITOR VALUE",6)=""
^DD(115.11,"B","Monitors",.01)=""
^DD(115.11,"GL",0,1,.01)=""
^DD(115.11,"GL",0,2,1)=""
^DD(115.11,"GL",0,3,2)=""
^DD(115.11,"GL",0,4,3)=""
^DD(115.11,"GL",0,5,5)=""
^DD(115.11,"GL",0,6,6)=""
^DD(115.11,"IX",.01)=""
^DD(115.11,"IX",1)=""
^DD(115.11,"RQ",1)=""
^DD(115.1171,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(115.1171,0,"NM","COMMENTS")=""
^DD(115.1171,0,"UP")="115.011"
^DD(115.1171,.01,0)="COMMENTS^W^^0;1^Q"
^DD(115.1171,.01,21,0)="^^2^2^2891121^"
^DD(115.1171,.01,21,1,0)="This is the text of the comments relating to the"
^DD(115.1171,.01,21,2,0)="nutrition assessment."
^DD(115.1171,.01,"DT")="2890616"
^DD(115.1171,"B","COMMENTS",.01)=""
^DD(115.1171,"GL",0,1,.01)=""
^DD(115.12,0)="ALERT SUB-FIELD^^3^4"
^DD(115.12,0,"DT")="3070416"
^DD(115.12,0,"IX","B",115.12,.01)=""
^DD(115.12,0,"NM","ALERT")=""
^DD(115.12,0,"UP")="115"
^DD(115.12,.01,0)="DATE ALERT CREATED^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(115.12,.01,1,0)="^.1"
^DD(115.12,.01,1,1,0)="115.12^B"
^DD(115.12,.01,1,1,1)="S ^FHPT(DA(1),""D"",""B"",$E(X,1,30),DA)="""""
^DD(115.12,.01,1,1,2)="K ^FHPT(DA(1),""D"",""B"",$E(X,1,30),DA)"
^DD(115.12,.01,3)="(No range limit on date)"
^DD(115.12,.01,21,0)="^^1^1^3070416^"
^DD(115.12,.01,21,1,0)="This is the date when this alert was created."
^DD(115.12,.01,"DT")="3070416"
^DD(115.12,1,0)="TYPE OF ALERT^S^D:DRUG;^0;2^Q"
^DD(115.12,1,21,0)="^^2^2^3070416^"
^DD(115.12,1,21,1,0)="This is a type of alert. For now, it is only available for Food/Drug "
^DD(115.12,1,21,2,0)="Classification."
^DD(115.12,1,"DT")="3070416"
^DD(115.12,2,0)="PATIENT LOCATION^P119.6'^FH(119.6,^0;3^Q"
^DD(115.12,2,21,0)="^^1^1^3070416^"
^DD(115.12,2,21,1,0)="This is the location where a patient belong when the alert was created."
^DD(115.12,2,"DT")="3070416"
^DD(115.12,3,0)="DRUG NAME^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(115.12,3,3)="Answer must be 1-40 characters in length"
^DD(115.12,3,21,0)="^^1^1^3070416^"
^DD(115.12,3,21,1,0)="This is a drug name in file #50."
^DD(115.12,3,"DT")="3070416"
^DD(115.12,"B","DATE ALERT CREATED",.01)=""
^DD(115.12,"B","DRUG NAME",3)=""
^DD(115.12,"B","PATIENT LOCATION",2)=""
^DD(115.12,"B","TYPE OF ALERT",1)=""
^DD(115.12,"GL",0,1,.01)=""
^DD(115.12,"GL",0,2,1)=""
^DD(115.12,"GL",0,3,2)=""
^DD(115.12,"GL",0,4,3)=""
^DD(115.12,"IX",.01)=""
^DD(115.14,0)="DIET SEQUENCE SUB-FIELD^^1^2"
^DD(115.14,0,"NM","DIET SEQUENCE")=""
^DD(115.14,0,"UP")="115.01"
^DD(115.14,.01,0)="DIET SEQUENCE DATE/TIME^DIX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(115.14,.01,3)=""
^DD(115.14,.01,21,0)="^^3^3^2880710^"
^DD(115.14,.01,21,1,0)="This field is the date/time that a diet order is to take effect;"
^DD(115.14,.01,21,2,0)="the order will remain in effect until the following date/time"
^DD(115.14,.01,21,3,0)="sequence entry."
^DD(115.14,.01,"DT")="2880521"
^DD(115.14,1,0)="DIET ORDER #^RNJ5,0I^^0;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.14,1,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(115.14,1,21,0)="^^2^2^2880710^"
^DD(115.14,1,21,1,0)="This is the order number, in Field 3, of the diet order that is"
^DD(115.14,1,21,2,0)="to become effective at the indicated date/time."
^DD(115.14,1,"DT")="2880521"
^DD(115.14,"B","DIET ORDER #",1)=""
^DD(115.14,"B","DIET SEQUENCE DATE/TIME",.01)=""
^DD(115.14,"GL",0,1,.01)=""
^DD(115.14,"GL",0,2,1)=""
^DD(115.14,"RQ",1)=""
^DD(115.1619,0)="TUBEFEEDING PRODUCT SUB-FIELD^^5^6"
^DD(115.1619,0,"DT")="3030606"
^DD(115.1619,0,"IX","B",115.1619,.01)=""
^DD(115.1619,0,"NM","TUBEFEEDING PRODUCT")=""
^DD(115.1619,0,"UP")="115.016"
^DD(115.1619,.01,0)="TUBEFEEDING PRODUCT^MP118.2'^FH(118.2,^0;1^Q"
^DD(115.1619,.01,1,0)="^.1"
^DD(115.1619,.01,1,1,0)="115.1619^B"
^DD(115.1619,.01,1,1,1)="S ^FHPT(DA(2),""OP"",DA(1),""TF"",""B"",$E(X,1,30),DA)="""""
^DD(115.1619,.01,1,1,2)="K ^FHPT(DA(2),""OP"",DA(1),""TF"",""B"",$E(X,1,30),DA)"
^DD(115.1619,.01,21,0)="^.001^1^1^3030606^^^"
^DD(115.1619,.01,21,1,0)="This multiple stores the tubefeeding product(s) for the recurring meal."
^DD(115.1619,.01,"DT")="3030606"
^DD(115.1619,1,0)="STRENGTH^S^1:1/4;2:1/2;3:3/4;4:FULL;^0;2^Q"
^DD(115.1619,1,21,0)="^.001^1^1^3030606^^"
^DD(115.1619,1,21,1,0)="This field stores the strength of the tubefeeding for the recurring meal."
^DD(115.1619,1,"DT")="3030606"
^DD(115.1619,2,0)="QUANTITY^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(115.1619,2,3)="Answer must be 3-20 characters in length."
^DD(115.1619,2,21,0)="^^1^1^3030606^"
^DD(115.1619,2,21,1,0)="This field stores the quantity of the tubefeeding for the recurring meal."
^DD(115.1619,2,"DT")="3030606"
^DD(115.1619,3,0)="PRODUCT ML'S/DAY^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1619,3,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.1619,3,21,0)="^^2^2^3050422^"
^DD(115.1619,3,21,1,0)="This field stores the product ml's per day of this tubefeeding product"
^DD(115.1619,3,21,2,0)="for the recurring meal."
^DD(115.1619,3,"DT")="3050422"
^DD(115.1619,4,0)="WATER ML'S/DAY^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1619,4,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.1619,4,21,0)="^^2^2^3050422^"
^DD(115.1619,4,21,1,0)="This field stores the water ml's per day of this tubefeeding product"
^DD(115.1619,4,21,2,0)="for the recurring meal."
^DD(115.1619,4,"DT")="3050422"
^DD(115.1619,5,0)="KCALS/DAY^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1619,5,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.1619,5,21,0)="^.001^2^2^3030606^^"
^DD(115.1619,5,21,1,0)="This field stores the kcals per day of this tubefeeding product"
^DD(115.1619,5,21,2,0)="for the recurring meal."
^DD(115.1619,5,"DT")="3030606"
^DD(115.1619,"B","KCALS/DAY",5)=""
^DD(115.1619,"B","PRODUCT ML'S/DAY",3)=""
^DD(115.1619,"B","QUANTITY",2)=""
^DD(115.1619,"B","STRENGTH",1)=""
^DD(115.1619,"B","TUBEFEEDING PRODUCT",.01)=""
^DD(115.1619,"B","WATER ML'S/DAY",4)=""
^DD(115.1619,"GL",0,1,.01)=""
^DD(115.1619,"GL",0,2,1)=""
^DD(115.1619,"GL",0,3,2)=""
^DD(115.1619,"GL",0,4,3)=""
^DD(115.1619,"GL",0,5,4)=""
^DD(115.1619,"GL",0,6,5)=""
^DD(115.1619,"IX",.01)=""
^DD(115.1626,0)="STANDING ORDERS SUB-FIELD^^8^9"
^DD(115.1626,0,"DT")="3051103"
^DD(115.1626,0,"NM","STANDING ORDERS")=""
^DD(115.1626,0,"UP")="115.016"
^DD(115.1626,.01,0)="STANDING ORDERS^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1626,.01,1,0)="^.1^^0"
^DD(115.1626,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.1626,.01,21,0)="^^2^2^3051103^"
^DD(115.1626,.01,21,1,0)="This field contains the sequence number of the outpatient standing order"
^DD(115.1626,.01,21,2,0)="and has no meaning beyond that.  "
^DD(115.1626,.01,"DT")="3051103"
^DD(115.1626,1,0)="ORDER^RP118.3'^FH(118.3,^0;2^Q"
^DD(115.1626,1,21,0)="^^2^2^3051103^"
^DD(115.1626,1,21,1,0)="This field contains the outpatient standing order from Standing Orders"
^DD(115.1626,1,21,2,0)="file (#118.3)."
^DD(115.1626,1,"DT")="3060927"
^DD(115.1626,2,0)="MEALS^RFX^^0;3^S:$P(""ALL"",X,1)="""" X=""BNE"" S %=X,X="""" S:%[""B"" X=""B"" S:%[""N"" X=X_""N"" S:%[""E"" X=X_""E"" K:$L(%)'=$L(X) X K %"
^DD(115.1626,2,3)="Answer should be a string of meals (e.g., B  or BN or BNE) or A for all meals"
^DD(115.1626,2,21,0)="^^2^2^3051103^"
^DD(115.1626,2,21,1,0)="This field contains the meals to which this outpatient standing"
^DD(115.1626,2,21,2,0)="order is applicable."
^DD(115.1626,2,"DT")="3051103"
^DD(115.1626,3,0)="DATE/TIME ORDERED^RD^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.1626,3,21,0)="^^2^2^3051103^"
^DD(115.1626,3,21,1,0)="This field contains the date/time at which the outpatient standing"
^DD(115.1626,3,21,2,0)="order was entered.  "
^DD(115.1626,3,"DT")="3051103"
^DD(115.1626,4,0)="ENTERING CLERK^RP200'^VA(200,^0;5^Q"
^DD(115.1626,4,21,0)="^^2^2^3051103^"
^DD(115.1626,4,21,1,0)="This field contains the user who entered the outpatient"
^DD(115.1626,4,21,2,0)="standing order and is automatically captured at the time of entry."
^DD(115.1626,4,"DT")="3051103"
^DD(115.1626,5,0)="DATE/TIME CANCELLED^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.1626,5,21,0)="^^3^3^3051103^"
^DD(115.1626,5,21,1,0)="This field contains the date/time the outpatient standing order"
^DD(115.1626,5,21,2,0)="was cancelled and is automatically captured at time of"
^DD(115.1626,5,21,3,0)="cancellation."
^DD(115.1626,5,"DT")="3060927"
^DD(115.1626,6,0)="CANCELLING CLERK^P200'^VA(200,^0;7^Q"
^DD(115.1626,6,21,0)="^^2^2^3051103^"
^DD(115.1626,6,21,1,0)="This field contains the user who entered the cancellation"
^DD(115.1626,6,21,2,0)="and is automatically captured at time of cancellation.  "
^DD(115.1626,6,"DT")="3051103"
^DD(115.1626,7,0)="QUANTITY^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1626,7,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(115.1626,7,21,0)="^^1^1^3051103^"
^DD(115.1626,7,21,1,0)="This is the quantity of the outpatient Standing Order."
^DD(115.1626,7,"DT")="3051103"
^DD(115.1626,8,0)="DIET ASSOCIATED?^S^Y:YES;N:NO;^0;9^Q"
^DD(115.1626,8,21,0)="^^2^2^3051103^"
^DD(115.1626,8,21,1,0)="This field, if answered Yes, means this Standing Order is associated"
^DD(115.1626,8,21,2,0)="with a diet order else if answered No, means it is not.  "
^DD(115.1626,8,"DT")="3051103"
^DD(115.1626,"B","CANCELLING CLERK",6)=""
^DD(115.1626,"B","DATE/TIME CANCELLED",5)=""
^DD(115.1626,"B","DATE/TIME ORDERED",3)=""
^DD(115.1626,"B","DIET ASSOCIATED?",8)=""
^DD(115.1626,"B","ENTERING CLERK",4)=""
^DD(115.1626,"B","MEALS",2)=""
^DD(115.1626,"B","ORDER",1)=""
^DD(115.1626,"B","QUANTITY",7)=""
^DD(115.1626,"B","STANDING ORDERS",.01)=""
^DD(115.1626,"GL",0,1,.01)=""
^DD(115.1626,"GL",0,2,1)=""
^DD(115.1626,"GL",0,3,2)=""
^DD(115.1626,"GL",0,4,3)=""
^DD(115.1626,"GL",0,5,4)=""
^DD(115.1626,"GL",0,6,5)=""
^DD(115.1626,"GL",0,7,6)=""
^DD(115.1626,"GL",0,8,7)=""
^DD(115.1626,"GL",0,9,8)=""
^DD(115.1626,"RQ",1)=""
^DD(115.1626,"RQ",2)=""
^DD(115.1626,"RQ",3)=""
^DD(115.1626,"RQ",4)=""
^DD(115.1627,0)="SUPPLEMENTAL FEEDING SUB-FIELD^^33^34"
^DD(115.1627,0,"DT")="3051109"
^DD(115.1627,0,"NM","SUPPLEMENTAL FEEDING")=""
^DD(115.1627,0,"UP")="115.016"
^DD(115.1627,.01,0)="SUPPLEMENTAL FEEDING^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.1627,.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(115.1627,.01,21,0)="^^2^2^3060926^"
^DD(115.1627,.01,21,1,0)="This field is merely the sequence in which various orders for"
^DD(115.1627,.01,21,2,0)="outpatient SFs were entered and has no meaning beyond that."
^DD(115.1627,.01,"DT")="3060315"
^DD(115.1627,1,0)="DATE/TIME ORDERED^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(115.1627,1,21,0)="^^2^2^3060306^"
^DD(115.1627,1,21,1,0)="This is the date/time at which the order was entered and is"
^DD(115.1627,1,21,2,0)="captured automatically."
^DD(115.1627,1,"DT")="3060306"
^DD(115.1627,2,0)="ENTERING CLERK^P200'^VA(200,^0;3^Q"
^DD(115.1627,2,21,0)="^^2^2^3060306^"
^DD(115.1627,2,21,1,0)="This is the person actually entering the order and is captured"
^DD(115.1627,2,21,2,0)="automatically at time of entry."
^DD(115.1627,2,"DT")="3060306"
^DD(115.1627,3,0)="SF MENU^P118.1'^FH(118.1,^0;4^Q"
^DD(115.1627,3,21,0)="^^3^3^3060306^"
^DD(115.1627,3,21,1,0)="This is the supplemental feeding menu of the Supplemental Feeding"
^DD(115.1627,3,21,2,0)="Menu file (118.1) that was selected.  If other than ""Individualized', "
^DD(115.1627,3,21,3,0)="the items from the selected menu were moved into this order."
^DD(115.1627,3,"DT")="3060306"
^DD(115.1627,4,0)="10AM FEEDING #1^P118'^FH(118,^0;5^Q"
^DD(115.1627,4,21,0)="^^2^2^3060306^"
^DD(115.1627,4,21,1,0)="This is the first supplemental feeding ordered for the 10am"
^DD(115.1627,4,21,2,0)="feeding time."
^DD(115.1627,4,"DT")="3060306"
^DD(115.1627,5,0)="10AM #1 QTY^NJ2,0^^0;6^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,5,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,5,21,0)="^^1^1^2880710^^^"
^DD(115.1627,5,21,1,0)="This is the ordered quantity of the first 10am feeding."
^DD(115.1627,5,"DT")="3051109"
^DD(115.1627,6,0)="10AM FEEDING #2^P118'^FH(118,^0;7^Q"
^DD(115.1627,6,21,0)="^^2^2^2880710^"
^DD(115.1627,6,21,1,0)="This is the second supplemental feeding ordered for the 10am"
^DD(115.1627,6,21,2,0)="feeding."
^DD(115.1627,6,"DT")="3051109"
^DD(115.1627,7,0)="10AM #2 QTY^NJ2,0^^0;8^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,7,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,7,21,0)="^^2^2^3060306^"
^DD(115.1627,7,21,1,0)="This is the outpatient Supplemental Feeding ordered"
^DD(115.1627,7,21,2,0)="quantity for the second 10am feeding."
^DD(115.1627,7,"DT")="3060306"
^DD(115.1627,8,0)="10AM FEEDING #3^P118'^FH(118,^0;9^Q"
^DD(115.1627,8,21,0)="^^2^2^3060306^"
^DD(115.1627,8,21,1,0)="This is the third supplemental feeding ordered for the 10am"
^DD(115.1627,8,21,2,0)="feeding. "
^DD(115.1627,8,"DT")="3060306"
^DD(115.1627,9,0)="10AM #3 QTY^NJ2,0^^0;10^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,9,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,9,21,0)="^^1^1^3060306^"
^DD(115.1627,9,21,1,0)="This is the ordered quantity for the third 10am feeding. "
^DD(115.1627,9,"DT")="3060306"
^DD(115.1627,10,0)="10AM FEEDING #4^P118'^FH(118,^0;11^Q"
^DD(115.1627,10,21,0)="^^2^2^3060306^"
^DD(115.1627,10,21,1,0)="This is the fourth supplemental feeding ordered for the 10am"
^DD(115.1627,10,21,2,0)="feeding. "
^DD(115.1627,10,"DT")="3060306"
^DD(115.1627,11,0)="10AM #4 QTY^NJ2,0^^0;12^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,11,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,11,21,0)="^^1^1^3060306^"
^DD(115.1627,11,21,1,0)="This is the ordered quantity of the fourth 10am feeding. "
^DD(115.1627,11,"DT")="3060306"
^DD(115.1627,12,0)="2PM FEEDING #1^P118'^FH(118,^0;13^Q"
^DD(115.1627,12,21,0)="^^2^2^2880710^"
^DD(115.1627,12,21,1,0)="This is the first supplemental feeding ordered for the 2pm"
^DD(115.1627,12,21,2,0)="feeding."
^DD(115.1627,12,"DT")="3051109"
^DD(115.1627,13,0)="2PM #1 QTY^NJ2,0^^0;14^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,13,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,13,21,0)="^^1^1^2880710^"
^DD(115.1627,13,21,1,0)="This is the ordered quantity of the first 2pm feeding."
^DD(115.1627,13,"DT")="3051109"
^DD(115.1627,14,0)="2PM FEEDING #2^P118'^FH(118,^0;15^Q"
^DD(115.1627,14,21,0)="^^2^2^2880710^"
^DD(115.1627,14,21,1,0)="This is the second supplemental feeding ordered for the 2pm"
^DD(115.1627,14,21,2,0)="feeding."
^DD(115.1627,14,"DT")="3051109"
^DD(115.1627,15,0)="2PM #2 QTY^NJ2,0^^0;16^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,15,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,15,21,0)="^^1^1^2880710^"
^DD(115.1627,15,21,1,0)="This is the ordered quantity of the second 2pm feeding."
^DD(115.1627,15,"DT")="3051109"
^DD(115.1627,16,0)="2PM FEEDING #3^P118'^FH(118,^0;17^Q"
^DD(115.1627,16,21,0)="^^2^2^2880710^"
^DD(115.1627,16,21,1,0)="This is the third supplemental feeding ordered for the 2pm"
^DD(115.1627,16,21,2,0)="feeding."
^DD(115.1627,16,"DT")="3051109"
^DD(115.1627,17,0)="2PM #3 QTY^NJ2,0^^0;18^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,17,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,17,21,0)="^^1^1^2880710^"
^DD(115.1627,17,21,1,0)="This is the ordered quantity of the third 2pm feeding."
^DD(115.1627,17,"DT")="3051109"
^DD(115.1627,18,0)="2PM FEEDING #4^P118'^FH(118,^0;19^Q"
^DD(115.1627,18,21,0)="^^2^2^2880710^"
^DD(115.1627,18,21,1,0)="This is the fourth supplemental feeding ordered for the 2pm"
^DD(115.1627,18,21,2,0)="feeding."
^DD(115.1627,18,"DT")="3051109"
^DD(115.1627,19,0)="2PM #4 QTY^NJ2,0^^0;20^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,19,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,19,21,0)="^^1^1^2880710^"
^DD(115.1627,19,21,1,0)="This is the ordered quantity of the fourth 2pm feeding."
^DD(115.1627,19,"DT")="3051109"
^DD(115.1627,20,0)="8PM FEEDING #1^P118'^FH(118,^0;21^Q"
^DD(115.1627,20,21,0)="^^2^2^2880710^"
^DD(115.1627,20,21,1,0)="This is the first supplemental feeding ordered for the 8pm"
^DD(115.1627,20,21,2,0)="feeding."
^DD(115.1627,20,"DT")="3051109"
^DD(115.1627,21,0)="8PM #1 QTY^NJ2,0^^0;22^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,21,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,21,21,0)="^^1^1^2880710^"
^DD(115.1627,21,21,1,0)="This is the ordered quantity of the first 8pm feeding."
^DD(115.1627,21,"DT")="3051109"
^DD(115.1627,22,0)="8PM FEEDING #2^P118'^FH(118,^0;23^Q"
^DD(115.1627,22,21,0)="^^2^2^2880710^"
^DD(115.1627,22,21,1,0)="This is the second supplemental feeding ordered for the 8pm"
^DD(115.1627,22,21,2,0)="feeding."
^DD(115.1627,22,"DT")="3051109"
^DD(115.1627,23,0)="8PM #2 QTY^NJ2,0^^0;24^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,23,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,23,21,0)="^^1^1^2880710^"
^DD(115.1627,23,21,1,0)="This is the ordered quantity of the second 8pm feeding."
^DD(115.1627,23,"DT")="3051109"
^DD(115.1627,24,0)="8PM FEEDING #3^P118'^FH(118,^0;25^Q"
^DD(115.1627,24,21,0)="^^2^2^2880710^"
^DD(115.1627,24,21,1,0)="This is the third supplemental feeding ordered for the 8pm"
^DD(115.1627,24,21,2,0)="feeding."
^DD(115.1627,24,"DT")="3051109"
^DD(115.1627,25,0)="8PM #3 QTY^NJ2,0^^0;26^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,25,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,25,21,0)="^^1^1^2880710^"
^DD(115.1627,25,21,1,0)="This is the ordered quantity of the third 8pm feeding."
^DD(115.1627,25,"DT")="3051109"
^DD(115.1627,26,0)="8PM FEEDING #4^P118'^FH(118,^0;27^Q"
^DD(115.1627,26,21,0)="^^2^2^2880710^"
^DD(115.1627,26,21,1,0)="This is the fourth supplemental feeding ordered for the 8pm"
^DD(115.1627,26,21,2,0)="feeding."
^DD(115.1627,26,"DT")="3051109"
^DD(115.1627,27,0)="8PM #4 QTY^NJ2,0^^0;28^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.1627,27,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(115.1627,27,21,0)="^^1^1^2880710^"
^DD(115.1627,27,21,1,0)="This is the ordered quantity of the fourth 8pm feeding."
^DD(115.1627,27,"DT")="3051109"
^DD(115.1627,28,0)="DIETARY OR THERAPEUTIC^S^D:DIETARY;T:THERAPEUTIC;^0;29^Q"
^DD(115.1627,28,21,0)="^^2^2^2880710^"
^DD(115.1627,28,21,1,0)="This field indicates whether the supplemental feeding was"
^DD(115.1627,28,21,2,0)="ordered for dietary or therapeutic reasons."
^DD(115.1627,28,"DT")="3051109"
^DD(115.1627,29,0)="DATE/TIME LAST REVIEW^D^^0;30^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(115.1627,29,21,0)="^^2^2^2880710^"
^DD(115.1627,29,21,1,0)="This is the date/time this supplemental feeding order was"
^DD(115.1627,29,21,2,0)="last reviewed for appropriateness."
^DD(115.1627,29,"DT")="3051109"
^DD(115.1627,30,0)="REVIEW CLERK^P200'^VA(200,^0;31^Q"
^DD(115.1627,30,21,0)="^^2^2^2880710^"
^DD(115.1627,30,21,1,0)="This is the person conducting the last review and is captured"
^DD(115.1627,30,21,2,0)="automatically at time of review."
^DD(115.1627,30,"DT")="3051109"
^DD(115.1627,31,0)="DATE/TIME CANCELLED^D^^0;32^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(115.1627,31,21,0)="^^1^1^2880710^"
^DD(115.1627,31,21,1,0)="This is the date/time this order was cancelled."
^DD(115.1627,31,"DT")="3051109"
^DD(115.1627,32,0)="CANCELLING CLERK^P200'^VA(200,^0;33^Q"
^DD(115.1627,32,21,0)="^^2^2^2880710^"
^DD(115.1627,32,21,1,0)="This is the person cancelling the order and is captured"
^DD(115.1627,32,21,2,0)="automatically at time of cancellation."
^DD(115.1627,32,"DT")="3051109"
^DD(115.1627,33,0)="DIET ASSOCIATED?^S^Y:YES;N:NO;^0;34^Q"
^DD(115.1627,33,21,0)="^^2^2^2940722^"
^DD(115.1627,33,21,1,0)="This field, if answered Yes, means this Supplemental Feeding Menu"
^DD(115.1627,33,21,2,0)="is associated with a diet order else if answered No, means it is not."
^DD(115.1627,33,"DT")="3051109"
^DD(115.1627,"B","10AM #1 QTY",5)=""
^DD(115.1627,"B","10AM #2 QTY",7)=""
^DD(115.1627,"B","10AM #3 QTY",9)=""
^DD(115.1627,"B","10AM #4 QTY",11)=""
^DD(115.1627,"B","10AM FEEDING #1",4)=""
^DD(115.1627,"B","10AM FEEDING #2",6)=""
^DD(115.1627,"B","10AM FEEDING #3",8)=""
^DD(115.1627,"B","10AM FEEDING #4",10)=""
^DD(115.1627,"B","2PM #1 QTY",13)=""
^DD(115.1627,"B","2PM #2 QTY",15)=""
^DD(115.1627,"B","2PM #3 QTY",17)=""
^DD(115.1627,"B","2PM #4 QTY",19)=""
^DD(115.1627,"B","2PM FEEDING #1",12)=""
^DD(115.1627,"B","2PM FEEDING #2",14)=""
^DD(115.1627,"B","2PM FEEDING #3",16)=""
^DD(115.1627,"B","2PM FEEDING #4",18)=""
^DD(115.1627,"B","8PM #1 QTY",21)=""
^DD(115.1627,"B","8PM #2 QTY",23)=""
^DD(115.1627,"B","8PM #3 QTY",25)=""
^DD(115.1627,"B","8PM #4 QTY",27)=""
^DD(115.1627,"B","8PM FEEDING #1",20)=""
^DD(115.1627,"B","8PM FEEDING #2",22)=""
^DD(115.1627,"B","8PM FEEDING #3",24)=""
^DD(115.1627,"B","8PM FEEDING #4",26)=""
^DD(115.1627,"B","CANCELLING CLERK",32)=""
^DD(115.1627,"B","DATE/TIME CANCELLED",31)=""
^DD(115.1627,"B","DATE/TIME LAST REVIEW",29)=""
^DD(115.1627,"B","DATE/TIME ORDERED",1)=""
^DD(115.1627,"B","DIET ASSOCIATED?",33)=""
^DD(115.1627,"B","DIETARY OR THERAPEUTIC",28)=""
^DD(115.1627,"B","ENTERING CLERK",2)=""
^DD(115.1627,"B","REVIEW CLERK",30)=""
^DD(115.1627,"B","SF MENU",3)=""
^DD(115.1627,"B","SUPPLEMENTAL FEEDING",.01)=""
^DD(115.1627,"GL",0,1,.01)=""
^DD(115.1627,"GL",0,2,1)=""
^DD(115.1627,"GL",0,3,2)=""
^DD(115.1627,"GL",0,4,3)=""
^DD(115.1627,"GL",0,5,4)=""
^DD(115.1627,"GL",0,6,5)=""
^DD(115.1627,"GL",0,7,6)=""
^DD(115.1627,"GL",0,8,7)=""
^DD(115.1627,"GL",0,9,8)=""
^DD(115.1627,"GL",0,10,9)=""
^DD(115.1627,"GL",0,11,10)=""
^DD(115.1627,"GL",0,12,11)=""
^DD(115.1627,"GL",0,13,12)=""
^DD(115.1627,"GL",0,14,13)=""
^DD(115.1627,"GL",0,15,14)=""
^DD(115.1627,"GL",0,16,15)=""
^DD(115.1627,"GL",0,17,16)=""
^DD(115.1627,"GL",0,18,17)=""
^DD(115.1627,"GL",0,19,18)=""
^DD(115.1627,"GL",0,20,19)=""
^DD(115.1627,"GL",0,21,20)=""
^DD(115.1627,"GL",0,22,21)=""
^DD(115.1627,"GL",0,23,22)=""
^DD(115.1627,"GL",0,24,23)=""
^DD(115.1627,"GL",0,25,24)=""
^DD(115.1627,"GL",0,26,25)=""
^DD(115.1627,"GL",0,27,26)=""
^DD(115.1627,"GL",0,28,27)=""
^DD(115.1627,"GL",0,29,28)=""
^DD(115.1627,"GL",0,30,29)=""
^DD(115.1627,"GL",0,31,30)=""
^DD(115.1627,"GL",0,32,31)=""
^DD(115.1627,"GL",0,33,32)=""
^DD(115.1627,"GL",0,34,33)=""
^DD(115.2,0)="FIELD^^27^10"
^DD(115.2,0,"DT")="3070712"
^DD(115.2,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(115.2,0,"IX","AC",115.2,99)=""
^DD(115.2,0,"IX","AD",115.2,1)=""
^DD(115.2,0,"IX","B",115.2,.01)=""
^DD(115.2,0,"IX","C",115.225,.01)=""
^DD(115.2,0,"IX","D",115.2,26)=""
^DD(115.2,0,"NM","FOOD PREFERENCES")=""
^DD(115.2,0,"PT",111.119,.01)=""
^DD(115.2,0,"PT",115.09,.01)=""
^DD(115.2,0,"SCR")="I '$D(^FH(115.2,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(115.2,0,"VR")="5.5"
^DD(115.2,0,"VRPK")="FH"
^DD(115.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(115.2,.01,1,0)="^.1"
^DD(115.2,.01,1,1,0)="115.2^B"
^DD(115.2,.01,1,1,1)="S ^FH(115.2,""B"",$E(X,1,30),DA)="""""
^DD(115.2,.01,1,1,2)="K ^FH(115.2,""B"",$E(X,1,30),DA)"
^DD(115.2,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.2,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(115.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(115.2,.01,21,0)="^^2^2^2880901^"
^DD(115.2,.01,21,1,0)="This field contains the name of a selectable food preference, such"
^DD(115.2,.01,21,2,0)="as coffee or tea, or a generic preference, such as 'no liver'."
^DD(115.2,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(115.2,1,0)="LIKE OR DISLIKE^RS^L:LIKE;D:DISLIKE;^0;2^Q"
^DD(115.2,1,1,0)="^.1"
^DD(115.2,1,1,1,0)="115.2^AD^MUMPS"
^DD(115.2,1,1,1,1)="K:X=""L"" ^FH(115.2,DA,""X"") S:X=""D"" $P(^FH(115.2,DA,0),""^"",4,6)=""^^"""
^DD(115.2,1,1,1,2)="Q"
^DD(115.2,1,1,1,"DT")="3000914"
^DD(115.2,1,21,0)="^^2^2^2880913^^"
^DD(115.2,1,21,1,0)="This field indicates whether the item is a selectable item or"
^DD(115.2,1,21,2,0)="a food preference."
^DD(115.2,1,"DT")="2880913"
^DD(115.2,3,0)="RECIPE^P114'^FH(114,^0;4^Q"
^DD(115.2,3,21,0)="^^2^2^2910506^^"
^DD(115.2,3,21,1,0)="In the case of a selectable item, this field points to the selection"
^DD(115.2,3,21,2,0)="in the Recipe file (114)."
^DD(115.2,10,0)="EXCLUDED RECIPES^115.21P^^X;0"
^DD(115.2,10,21,0)="^^3^3^2910506^^"
^DD(115.2,10,21,1,0)="In the case of a food preference, this multiple is the list of"
^DD(115.2,10,21,2,0)="excluded recipes contained in the Recipe file (114) which should"
^DD(115.2,10,21,3,0)="NOT be served to the patient."
^DD(115.2,20,0)="BREAD/BEVERAGE DEFAULT?^S^1:YES;0:NO;^0;5^Q"
^DD(115.2,20,21,0)="^^3^3^2940419^^^^"
^DD(115.2,20,21,1,0)="This field, if answered Yes, means this food preference is the standard"
^DD(115.2,20,21,2,0)="default bread/beverage for the patients on the tray tickets else if"
^DD(115.2,20,21,3,0)="answered No, means it is not."
^DD(115.2,20,"DT")="2940419"
^DD(115.2,21,0)="MEALS^FX^^0;6^S:$P(""ALL"",X,1)="""" X=""BNE"" S %=X,X="""" S:%[""B"" X=""B"" S:%[""N"" X=X_""N"" S:%[""E"" X=X_""E"" K:$L(%)'=$L(X) X K %"
^DD(115.2,21,3)="Answer should be a string of meals (e.g., B or BN or BNE) or A for all meals."
^DD(115.2,21,21,0)="^^2^2^2940225^"
^DD(115.2,21,21,1,0)="This field contains the meals (B N and E) for which this standard"
^DD(115.2,21,21,2,0)="default food preference is applicable."
^DD(115.2,21,"DT")="2940225"
^DD(115.2,25,0)="GMR ALLERGIES^115.225P^^ALG;0"
^DD(115.2,26,0)="SYNONYM^F^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(115.2,26,1,0)="^.1"
^DD(115.2,26,1,1,0)="115.2^D"
^DD(115.2,26,1,1,1)="S ^FH(115.2,""D"",$E(X,1,30),DA)="""""
^DD(115.2,26,1,1,2)="K ^FH(115.2,""D"",$E(X,1,30),DA)"
^DD(115.2,26,1,1,"%D",0)="^^1^1^3070405^"
^DD(115.2,26,1,1,"%D",1,0)="Cross reference to look-up food preferences by SYNONYM field."
^DD(115.2,26,1,1,"DT")="3070405"
^DD(115.2,26,3)="Answer must be 1-25 characters in length."
^DD(115.2,26,21,0)="^^3^3^3070808^"
^DD(115.2,26,21,1,0)="This field may contain a synonym for the food preference name."
^DD(115.2,26,21,2,0)="The synonym is generally terminology known and used by ward/medical "
^DD(115.2,26,21,3,0)="personnel."
^DD(115.2,26,"DT")="3070405"
^DD(115.2,27,0)="EXCLUDE EMBEDDED RECIPES?^S^Y:YES;N:NO;^0;7^Q"
^DD(115.2,27,21,0)="^^2^2^3070712^"
^DD(115.2,27,21,1,0)="Set this field to YES if recipes embedded in the excluded recipes for "
^DD(115.2,27,21,2,0)="this food preference should be removed from tray tickets."
^DD(115.2,27,"DT")="3070712"
^DD(115.2,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(115.2,99,1,0)="^.1"
^DD(115.2,99,1,1,0)="115.2^AC^MUMPS"
^DD(115.2,99,1,1,1)="K:X'=""Y"" ^FH(115.2,DA,""I"")"
^DD(115.2,99,1,1,2)="K ^FH(115.2,DA,""I"")"
^DD(115.2,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(115.2,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(115.2,99,1,1,"%D",2,0)="inactive entries."
^DD(115.2,99,21,0)="^^2^2^2940225^^"
^DD(115.2,99,21,1,0)="This field, if answered YES, will prohibit further selection"
^DD(115.2,99,21,2,0)="of this preference unless the FHMGR key is held."
^DD(115.2,99,"DT")="2900918"
^DD(115.2,"B","BREAD/BEVERAGE DEFAULT?",20)=""
^DD(115.2,"B","EXCLUDE EMBEDDED RECIPES?",27)=""
^DD(115.2,"B","EXCLUDED RECIPES",10)=""
^DD(115.2,"B","GMR ALLERGIES",25)=""
^DD(115.2,"B","INACTIVE?",99)=""
^DD(115.2,"B","LIKE OR DISLIKE",1)=""
^DD(115.2,"B","MEALS",21)=""
^DD(115.2,"B","NAME",.01)=""
^DD(115.2,"B","RECIPE",3)=""
^DD(115.2,"B","SYNONYM",26)=""
^DD(115.2,"GL",0,1,.01)=""
^DD(115.2,"GL",0,2,1)=""
^DD(115.2,"GL",0,3,26)=""
^DD(115.2,"GL",0,4,3)=""
^DD(115.2,"GL",0,5,20)=""
^DD(115.2,"GL",0,6,21)=""
^DD(115.2,"GL",0,7,27)=""
^DD(115.2,"GL","ALG",0,25)=""
^DD(115.2,"GL","I",1,99)=""
^DD(115.2,"GL","X",0,10)=""
^DD(115.2,"IX",.01)=""
^DD(115.2,"IX",1)=""
^DD(115.2,"IX",26)=""
^DD(115.2,"IX",99)=""
^DD(115.2,"RQ",.01)=""
^DD(115.2,"RQ",1)=""
^DD(115.2,"SB",115.21,10)=""
^DD(115.2,"SB",115.225,25)=""
^DD(115.21,0)="EXCLUDED RECIPES SUB-FIELD^^.01^1"
^DD(115.21,0,"IX","B",115.21,.01)=""
^DD(115.21,0,"NM","EXCLUDED RECIPES")=""
^DD(115.21,0,"UP")="115.2"
^DD(115.21,.01,0)="EXCLUDED RECIPES^MP114'^FH(114,^0;1^Q"
^DD(115.21,.01,1,0)="^.1"
^DD(115.21,.01,1,1,0)="115.21^B"
^DD(115.21,.01,1,1,1)="S ^FH(115.2,DA(1),""X"",""B"",$E(X,1,30),DA)="""""
^DD(115.21,.01,1,1,2)="K ^FH(115.2,DA(1),""X"",""B"",$E(X,1,30),DA)"
^DD(115.21,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.21,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the EXCLUDED RECIPES field."
^DD(115.21,.01,21,0)="^^3^3^2880901^"
^DD(115.21,.01,21,1,0)="This field is a pointer to the Recipe file (114) and is a recipe"
^DD(115.21,.01,21,2,0)="which should NOT be served to patients expressing this food"
^DD(115.21,.01,21,3,0)="preference."
^DD(115.21,"B","EXCLUDED RECIPES",.01)=""
^DD(115.21,"GL",0,1,.01)=""
^DD(115.21,"IX",.01)=""
^DD(115.225,0)="GMR ALLERGIES SUB-FIELD^^.01^1"
^DD(115.225,0,"DT")="3070215"
^DD(115.225,0,"IX","B",115.225,.01)=""
^DD(115.225,0,"NM","GMR ALLERGIES")=""
^DD(115.225,0,"UP")="115.2"
^DD(115.225,.01,0)="GMR ALLERGIES^M*P120.82'^GMRD(120.82,^0;1^S DIC(""S"")=""I $P(^(0),U,2)[""""F"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(115.225,.01,1,0)="^.1"
^DD(115.225,.01,1,1,0)="115.225^B"
^DD(115.225,.01,1,1,1)="S ^FH(115.2,DA(1),""ALG"",""B"",$E(X,1,30),DA)="""""
^DD(115.225,.01,1,1,2)="K ^FH(115.2,DA(1),""ALG"",""B"",$E(X,1,30),DA)"
^DD(115.225,.01,1,2,0)="115.2^C"
^DD(115.225,.01,1,2,1)="S ^FH(115.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(115.225,.01,1,2,2)="K ^FH(115.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(115.225,.01,1,2,"%D",0)="^.101^1^1^3070405^^"
^DD(115.225,.01,1,2,"%D",1,0)="Cross reference the entire file by the GMR Allergies multiple."
^DD(115.225,.01,1,2,"DT")="3070221"
^DD(115.225,.01,12)="FOOD TYPE ALLERGIES ONLY"
^DD(115.225,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""F"""""""
^DD(115.225,.01,21,0)="^.001^2^2^3070215^^^^"
^DD(115.225,.01,21,1,0)="This field stores the pointer to the applicable GMRA ALLERGIES entry"
^DD(115.225,.01,21,2,0)="for Food Preferences that are based on actual ALLERGIES."
^DD(115.225,.01,"DT")="3070221"
^DD(115.225,"B","GMR ALLERGIES",.01)=""
^DD(115.225,"GL",0,1,.01)=""
^DD(115.225,"IX",.01)=""
^DD(115.3,0)="FIELD^^101^3"
^DD(115.3,0,"DT")="2920501"
^DD(115.3,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(115.3,0,"IX","AC",115.3,99)=""
^DD(115.3,0,"IX","B",115.3,.01)=""
^DD(115.3,0,"IX","C",115.3,101)=""
^DD(115.3,0,"NM","NUTRITION CLASSIFICATION")=""
^DD(115.3,0,"PT",115.011,19)=""
^DD(115.3,0,"SCR")="I '$D(^FH(115.3,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(115.3,0,"VR")="5.5"
^DD(115.3,0,"VRPK")="DIETETICS"
^DD(115.3,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(115.3,.01,1,0)="^.1"
^DD(115.3,.01,1,1,0)="115.3^B"
^DD(115.3,.01,1,1,1)="S ^FH(115.3,""B"",$E(X,1,30),DA)="""""
^DD(115.3,.01,1,1,2)="K ^FH(115.3,""B"",$E(X,1,30),DA)"
^DD(115.3,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.3,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(115.3,.01,1,2,0)="^^TRIGGER^115.3^101"
^DD(115.3,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(115.3,.01,1,2,1.1) X ^DD(115.3,.01,1,2,1.4)"
^DD(115.3,.01,1,2,1.1)="S X=DIV S X=DIV X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)"
^DD(115.3,.01,1,2,1.4)="S DIH=$S($D(^FH(115.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.3,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(115.3,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(115.3,.01,1,2,2.4)"
^DD(115.3,.01,1,2,2.4)="S DIH=$S($D(^FH(115.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.3,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(115.3,.01,1,2,"CREATE VALUE")="$E(UPPERCASE(NAME),1,30)"
^DD(115.3,.01,1,2,"DELETE VALUE")="@"
^DD(115.3,.01,1,2,"FIELD")="UPPERCASE NAME"
^DD(115.3,.01,3)="Answer must be 3-60 characters in length."
^DD(115.3,.01,21,0)="^^1^1^2900713^^"
^DD(115.3,.01,21,1,0)="This field contains the name of a Dietetic Diagnosis."
^DD(115.3,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(115.3,.01,"DT")="2900713"
^DD(115.3,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(115.3,99,1,0)="^.1"
^DD(115.3,99,1,1,0)="115.3^AC^MUMPS"
^DD(115.3,99,1,1,1)="K:X'=""Y"" ^FH(115.3,DA,""I"")"
^DD(115.3,99,1,1,2)="K ^FH(115.3,DA,""I"")"
^DD(115.3,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(115.3,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(115.3,99,1,1,"%D",2,0)="inactive entries."
^DD(115.3,99,1,1,"DT")="2920501"
^DD(115.3,99,21,0)="^^2^2^2920501^"
^DD(115.3,99,21,1,0)="This field, if answered YES, will prohibit further selection"
^DD(115.3,99,21,2,0)="of this classification unless the FHMGR key is held."
^DD(115.3,99,"DT")="2920501"
^DD(115.3,101,0)="UPPERCASE NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(115.3,101,1,0)="^.1"
^DD(115.3,101,1,1,0)="115.3^C"
^DD(115.3,101,1,1,1)="S ^FH(115.3,""C"",$E(X,1,30),DA)="""""
^DD(115.3,101,1,1,2)="K ^FH(115.3,""C"",$E(X,1,30),DA)"
^DD(115.3,101,3)="Answer must be 3-30 characters in length."
^DD(115.3,101,5,1,0)="115.3^.01^2"
^DD(115.3,101,9)="^"
^DD(115.3,101,21,0)="^^1^1^2950613^^^"
^DD(115.3,101,21,1,0)="This is the name of the entry in uppercase text."
^DD(115.3,101,"DT")="2891112"
^DD(115.3,"B","INACTIVE?",99)=""
^DD(115.3,"B","NAME",.01)=""
^DD(115.3,"B","UPPERCASE NAME",101)=""
^DD(115.3,"GL",0,1,.01)=""
^DD(115.3,"GL",0,2,101)=""
^DD(115.3,"GL","I",1,99)=""
^DD(115.3,"IX",.01)=""
^DD(115.3,"IX",99)=""
^DD(115.3,"IX",101)=""
^DD(115.3,"RQ",.01)=""
^DD(115.4,0)="FIELD^^101^4"
^DD(115.4,0,"DDA")="N"
^DD(115.4,0,"DT")="2920106"
^DD(115.4,0,"ID","WRIT")="D EN^DDIOL($P(^(0),U,2),"""",""?3"")"
^DD(115.4,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(115.4,0,"IX","AC",115.4,99)=""
^DD(115.4,0,"IX","B",115.4,.01)=""
^DD(115.4,0,"IX","C",115.4,101)=""
^DD(115.4,0,"IX","D",115.4,1)=""
^DD(115.4,0,"NM","NUTRITION STATUS")=""
^DD(115.4,0,"PT",115.011,18)=""
^DD(115.4,0,"PT",115.012,1)=""
^DD(115.4,0,"SCR")="I '$D(^FH(115.4,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(115.4,0,"VR")="5.5"
^DD(115.4,0,"VRPK")="DIETETICS"
^DD(115.4,.01,0)="CATEGORY^RF^^0;1^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(115.4,.01,1,0)="^.1^^-1"
^DD(115.4,.01,1,1,0)="115.4^B"
^DD(115.4,.01,1,1,1)="S ^FH(115.4,""B"",$E(X,1,30),DA)="""""
^DD(115.4,.01,1,1,2)="K ^FH(115.4,""B"",$E(X,1,30),DA)"
^DD(115.4,.01,1,1,"%D",0)="^^1^1^2950405^^"
^DD(115.4,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the CATEGORY field."
^DD(115.4,.01,3)="Answer must be 1-3 characters in length."
^DD(115.4,.01,21,0)="^^1^1^2900203^^"
^DD(115.4,.01,21,1,0)="This field contains a nutrition status or risk category."
^DD(115.4,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(115.4,.01,"DT")="2900203"
^DD(115.4,1,0)="STATUS TEXT (U/L CASE)^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(115.4,1,1,0)="^.1"
^DD(115.4,1,1,1,0)="^^TRIGGER^115.4^101"
^DD(115.4,1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(115.4,1,1,1,1.1) X ^DD(115.4,1,1,1,1.4)"
^DD(115.4,1,1,1,1.1)="S X=DIV S X=DIV X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)"
^DD(115.4,1,1,1,1.4)="S DIH=$S($D(^FH(115.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=115.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(115.4,1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(115.4,1,1,1,2.4)"
^DD(115.4,1,1,1,2.4)="S DIH=$S($D(^FH(115.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=115.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(115.4,1,1,1,"CREATE VALUE")="$E(UPPERCASE(STATUS TEXT (U/L CASE)),1,30)"
^DD(115.4,1,1,1,"DELETE VALUE")="@"
^DD(115.4,1,1,1,"FIELD")="UPPER"
^DD(115.4,1,1,2,0)="115.4^D"
^DD(115.4,1,1,2,1)="S ^FH(115.4,""D"",$E(X,1,30),DA)="""""
^DD(115.4,1,1,2,2)="K ^FH(115.4,""D"",$E(X,1,30),DA)"
^DD(115.4,1,3)="Answer must be 3-30 characters in length."
^DD(115.4,1,21,0)="^^2^2^2900403^^"
^DD(115.4,1,21,1,0)="This field contains the text name (upper/lower case) of a "
^DD(115.4,1,21,2,0)="Nutrition Status or risk category."
^DD(115.4,1,"DT")="2900403"
^DD(115.4,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(115.4,99,1,0)="^.1"
^DD(115.4,99,1,1,0)="115.4^AC^MUMPS"
^DD(115.4,99,1,1,1)="K:X'=""Y"" ^FH(115.4,DA,""I"")"
^DD(115.4,99,1,1,2)="K ^FH(115.4,DA,""I"")"
^DD(115.4,99,1,1,"%D",0)="^^2^2^3000202"
^DD(115.4,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(115.4,99,1,1,"%D",2,0)="inactive entries."
^DD(115.4,99,21,0)="^^2^2^3000202"
^DD(115.4,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(115.4,99,21,2,0)="further selection of this entry."
^DD(115.4,99,"DT")="3000223"
^DD(115.4,101,0)="UPPERCASE NAME^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(115.4,101,1,0)="^.1"
^DD(115.4,101,1,1,0)="115.4^C"
^DD(115.4,101,1,1,1)="S ^FH(115.4,""C"",$E(X,1,30),DA)="""""
^DD(115.4,101,1,1,2)="K ^FH(115.4,""C"",$E(X,1,30),DA)"
^DD(115.4,101,3)="Answer must be 3-30 characters in length."
^DD(115.4,101,5,1,0)="115.4^1^1"
^DD(115.4,101,9)="^"
^DD(115.4,101,21,0)="^^1^1^2950613^^^^"
^DD(115.4,101,21,1,0)="This is the name of the status in uppercase text."
^DD(115.4,101,"DT")="2891112"
^DD(115.4,"B","CATEGORY",.01)=""
^DD(115.4,"B","INACTIVE?",99)=""
^DD(115.4,"B","STATUS TEXT (U/L CASE)",1)=""
^DD(115.4,"B","UPPERCASE NAME",101)=""
^DD(115.4,"GL",0,1,.01)=""
^DD(115.4,"GL",0,2,1)=""
^DD(115.4,"GL",0,3,101)=""
^DD(115.4,"GL","I",1,99)=""
^DD(115.4,"IX",.01)=""
^DD(115.4,"IX",1)=""
^DD(115.4,"IX",99)=""
^DD(115.4,"IX",101)=""
^DD(115.4,"RQ",.01)=""
^DD(115.5,0)="FIELD^^101^2"
^DD(115.5,0,"IX","B",115.5,.01)=""
^DD(115.5,0,"IX","C",115.5,101)=""
^DD(115.5,0,"NM","DIETETIC NUTRITION PLAN")=""
^DD(115.5,0,"VR")="5.5"
^DD(115.5,0,"VRPK")="DIETETICS"
^DD(115.5,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(115.5,.01,1,0)="^.1"
^DD(115.5,.01,1,1,0)="115.5^B"
^DD(115.5,.01,1,1,1)="S ^FH(115.5,""B"",$E(X,1,30),DA)="""""
^DD(115.5,.01,1,1,2)="K ^FH(115.5,""B"",$E(X,1,30),DA)"
^DD(115.5,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.5,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(115.5,.01,1,2,0)="^^TRIGGER^115.5^101"
^DD(115.5,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(115.5,.01,1,2,1.1) X ^DD(115.5,.01,1,2,1.4)"
^DD(115.5,.01,1,2,1.1)="S X=DIV S X=DIV X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)"
^DD(115.5,.01,1,2,1.4)="S DIH=$S($D(^FH(115.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.5,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(115.5,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(115.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(115.5,.01,1,2,2.4)"
^DD(115.5,.01,1,2,2.4)="S DIH=$S($D(^FH(115.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=115.5,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(115.5,.01,1,2,"CREATE VALUE")="$E(UPPERCASE(NAME),1,30)"
^DD(115.5,.01,1,2,"DELETE VALUE")="@"
^DD(115.5,.01,1,2,"FIELD")="UPPERCASE NAME"
^DD(115.5,.01,3)="Answer must be 3-60 characters in length."
^DD(115.5,.01,21,0)="^^1^1^2950717^^^"
^DD(115.5,.01,21,1,0)="This is the text name of the nutrition plan entry."
^DD(115.5,.01,"DEL",1,0)="I DUZ(0)'[""@"",'$D(^XUSEC(""FHMGR"",DUZ))"
^DD(115.5,.01,"DT")="2891208"
^DD(115.5,101,0)="UPPERCASE NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(115.5,101,1,0)="^.1"
^DD(115.5,101,1,1,0)="115.5^C"
^DD(115.5,101,1,1,1)="S ^FH(115.5,""C"",$E(X,1,30),DA)="""""
^DD(115.5,101,1,1,2)="K ^FH(115.5,""C"",$E(X,1,30),DA)"
^DD(115.5,101,3)="Answer must be 3-30 characters in length."
^DD(115.5,101,5,1,0)="115.5^.01^2"
^DD(115.5,101,9)="^"
^DD(115.5,101,21,0)="^^1^1^2950613^^^"
^DD(115.5,101,21,1,0)="This is the text of the plan entry in uppercase text."
^DD(115.5,101,"DT")="2891112"
^DD(115.5,"B","NAME",.01)=""
^DD(115.5,"B","UPPERCASE NAME",101)=""
^DD(115.5,"GL",0,1,.01)=""
^DD(115.5,"GL",0,2,101)=""
^DD(115.5,"IX",.01)=""
^DD(115.5,"IX",101)=""
^DD(115.5,"RQ",.01)=""
^DD(115.6,0)="FIELD^^101^11"
^DD(115.6,0,"DDA")="N"
^DD(115.6,0,"DT")="2920116"
^DD(115.6,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^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,0,"VR")="5.5"
^DD(115.6,0,"VRPK")="DIETETICS"
^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 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^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"")"
^DD(115.6,99,1,1,2)="K ^FH(115.6,DA,""I"")"
^DD(115.6,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(115.6,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(115.6,99,1,1,"%D",2,0)="inactive entries."
^DD(115.6,99,21,0)="^^2^2^2950221^^"
^DD(115.6,99,21,1,0)="This field, when answered YES, will prohibit further"
^DD(115.6,99,21,2,0)="selection of this encounter type by dietetic personnel."
^DD(115.6,99,"DT")="2891107"
^DD(115.6,101,0)="IDENT NUMBER^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.6,101,1,0)="^.1"
^DD(115.6,101,1,1,0)="115.6^AX"
^DD(115.6,101,1,1,1)="S ^FH(115.6,""AX"",$E(X,1,30),DA)="""""
^DD(115.6,101,1,1,2)="K ^FH(115.6,""AX"",$E(X,1,30),DA)"
^DD(115.6,101,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(115.6,101,21,0)="^^3^3^2900929^"
^DD(115.6,101,21,1,0)="This field is pre-set for some encounter types to uniquely"
^DD(115.6,101,21,2,0)="identify them for tabulation and other purposes. The number has"
^DD(115.6,101,21,3,0)="no meaning."
^DD(115.6,101,"DT")="2901001"
^DD(115.6,"B","ASK # COLLATERALS",7)=""
^DD(115.6,"B","ASK EVENT LOCATION?",4)=""
^DD(115.6,"B","ASK FOR PATIENT COMMENT?",8)=""
^DD(115.6,"B","ASK PATIENT NAME(S)?",6)=""
^DD(115.6,"B","CATEGORY",10)=""
^DD(115.6,"B","FOLLOW-UP TIME",3)=""
^DD(115.6,"B","IDENT NUMBER",101)=""
^DD(115.6,"B","INACTIVE?",99)=""
^DD(115.6,"B","INDIVIDUAL/GROUP/BOTH",5)=""
^DD(115.6,"B","INITIAL TIME",2)=""
^DD(115.6,"B","NAME",.01)=""
^DD(115.6,"GL",0,1,.01)=""
^DD(115.6,"GL",0,2,10)=""
^DD(115.6,"GL",0,3,2)=""
^DD(115.6,"GL",0,4,3)=""
^DD(115.6,"GL",0,5,4)=""
^DD(115.6,"GL",0,6,5)=""
^DD(115.6,"GL",0,7,6)=""
^DD(115.6,"GL",0,8,7)=""
^DD(115.6,"GL",0,9,8)=""
^DD(115.6,"GL",0,10,101)=""
^DD(115.6,"GL","I",1,99)=""
^DD(115.6,"IX",.01)=""
^DD(115.6,"IX",99)=""
^DD(115.6,"IX",101)=""
^DD(115.6,"RQ",.01)=""
^DD(115.7,0)="FIELD^^104^16"
^DD(115.7,0,"DDA")="N"
^DD(115.7,0,"DT")="3030602"
^DD(115.7,0,"IX","AP",115.701,.01)=""
^DD(115.7,0,"IX","AT",115.7,1)=""
^DD(115.7,0,"IX","B",115.7,.01)=""
^DD(115.7,0,"IX","CO",115.7,11)=""
^DD(115.7,0,"NM","DIETETIC ENCOUNTERS")=""
^DD(115.7,0,"VR")="5.5"
^DD(115.7,0,"VRPK")="DIETETICS"
^DD(115.7,.01,0)="NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(115.7,.01,1,0)="^.1"
^DD(115.7,.01,1,1,0)="115.7^B"
^DD(115.7,.01,1,1,1)="S ^FHEN(""B"",$E(X,1,30),DA)="""""
^DD(115.7,.01,1,1,2)="K ^FHEN(""B"",$E(X,1,30),DA)"
^DD(115.7,.01,1,1,"%D",0)="^^1^1^2931221^^"
^DD(115.7,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NUMBER field."
^DD(115.7,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(115.7,.01,21,0)="^^2^2^2891121^"
^DD(115.7,.01,21,1,0)="This field contains a sequential number assigned to the encounter"
^DD(115.7,.01,21,2,0)="and has no meaning."
^DD(115.7,.01,"DEL",1,0)="I DUZ(0)'[""@"",'$D(^XUSEC(""FHMGR"",DUZ))"
^DD(115.7,.01,"DT")="2890719"
^DD(115.7,1,0)="DATE/TIME OF ENCOUNTER^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.7,1,1,0)="^.1"
^DD(115.7,1,1,1,0)="115.7^AT"
^DD(115.7,1,1,1,1)="S ^FHEN(""AT"",$E(X,1,30),DA)="""""
^DD(115.7,1,1,1,2)="K ^FHEN(""AT"",$E(X,1,30),DA)"
^DD(115.7,1,3)=""
^DD(115.7,1,21,0)="^.001^2^2^3030602^^^"
^DD(115.7,1,21,1,0)="This field contains the date and time at which the dietetic encounter"
^DD(115.7,1,21,2,0)="took place."
^DD(115.7,1,"DT")="2911016"
^DD(115.7,2,0)="CLINICIAN^RP200'^VA(200,^0;3^Q"
^DD(115.7,2,21,0)="^^2^2^2891120^"
^DD(115.7,2,21,1,0)="This field contains a pointer to the clinician who provided the"
^DD(115.7,2,21,2,0)="service during the encounter."
^DD(115.7,2,"DT")="2890719"
^DD(115.7,3,0)="ENCOUNTER TYPE^RP115.6'^FH(115.6,^0;4^Q"
^DD(115.7,3,21,0)="^^2^2^2920716^^"
^DD(115.7,3,21,1,0)="This field contains a pointer to the Encounter Type file (115.6)"
^DD(115.7,3,21,2,0)="indicating the type of encounter."
^DD(115.7,3,"DT")="2920716"
^DD(115.7,4,0)="EVENT LOCATION^P44'^SC(^0;5^Q"
^DD(115.7,4,21,0)="^^2^2^2891120^"
^DD(115.7,4,21,1,0)="This optional field contains a pointer to the Hospital Location"
^DD(115.7,4,21,2,0)="file (44) indicating where the encounter took place."
^DD(115.7,4,"DT")="2891107"
^DD(115.7,5,0)="INITIAL/FOLLOWUP^S^I:INITIAL;F:FOLLOWUP;^0;7^Q"
^DD(115.7,5,21,0)="^^2^2^2920421^^"
^DD(115.7,5,21,1,0)="This field indicates whether the encounter was an initial one"
^DD(115.7,5,21,2,0)="of this type or a follow-up."
^DD(115.7,5,"DT")="2890719"
^DD(115.7,6,0)="TIME UNITS^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.7,6,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(115.7,6,21,0)="^^2^2^2891120^"
^DD(115.7,6,21,1,0)="This field contains the number of time units earned by this"
^DD(115.7,6,21,2,0)="encounter."
^DD(115.7,6,"DT")="2890719"
^DD(115.7,7,0)="GROUP/INDIVIDUAL^S^G:GROUP;I:INDIVIDUAL;^0;9^Q"
^DD(115.7,7,21,0)="^^2^2^2891120^"
^DD(115.7,7,21,1,0)="This field indicates whether the encounter was a group one or"
^DD(115.7,7,21,2,0)="an encounter with a single individual."
^DD(115.7,7,"DT")="2890719"
^DD(115.7,8,0)="GROUP SIZE^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(115.7,8,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(115.7,8,21,0)="^^2^2^2891120^"
^DD(115.7,8,21,1,0)="This field contains the total number of persons involved,"
^DD(115.7,8,21,2,0)="including any collaterals."
^DD(115.7,8,"DT")="2890719"
^DD(115.7,10,0)="EVENT COMMENT^F^^0;11^K:$L(X)>60!($L(X)<3) X"
^DD(115.7,10,3)="Answer must be 3-60 characters in length."
^DD(115.7,10,21,0)="^^1^1^2891120^"
^DD(115.7,10,21,1,0)="This field may contain a short comment concerning the event."
^DD(115.7,10,"DT")="2891107"
^DD(115.7,11,0)="COMMUNICATIONS OFFICE^RP119.73'^FH(119.73,^0;6^Q"
^DD(115.7,11,1,0)="^.1"
^DD(115.7,11,1,1,0)="115.7^CO"
^DD(115.7,11,1,1,1)="S ^FHEN(""CO"",$E(X,1,30),DA)="""""
^DD(115.7,11,1,1,2)="K ^FHEN(""CO"",$E(X,1,30),DA)"
^DD(115.7,11,1,1,"%D",0)="^^1^1^3030318^"
^DD(115.7,11,1,1,"%D",1,0)="Used to print encounters within Communications Offices"
^DD(115.7,11,1,1,"DT")="3030318"
^DD(115.7,11,3)="Communications Office is a required entry"
^DD(115.7,11,"DT")="3030602"
^DD(115.7,20,0)="PATIENT^115.701PA^^P;0"
^DD(115.7,20,21,0)="^^2^2^2910813^^"
^DD(115.7,20,21,1,0)="This field is a multiple containing data relating to patients"
^DD(115.7,20,21,2,0)="involved in the encounter."
^DD(115.7,101,0)="ENTERING CLERK^RP200'^VA(200,^0;13^Q"
^DD(115.7,101,21,0)="^^2^2^2891121^"
^DD(115.7,101,21,1,0)="This field is a pointer indicating the person making the"
^DD(115.7,101,21,2,0)="encounter entry."
^DD(115.7,101,"DT")="2891108"
^DD(115.7,102,0)="DATE/TIME ENTERED^RD^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(115.7,102,21,0)="^^2^2^2891121^"
^DD(115.7,102,21,1,0)="This field contains the date/time the encounter was actually"
^DD(115.7,102,21,2,0)="entered."
^DD(115.7,102,"DT")="2891108"
^DD(115.7,103,0)="LAST REVIEW DATE/TIME^D^^0;15^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(115.7,103,21,0)="^^1^1^2960716^^"
^DD(115.7,103,21,1,0)="This is the date/time that the encounter was last reviewed."
^DD(115.7,103,"DT")="2960716"
^DD(115.7,104,0)="REVIEW CLERK^P200'^VA(200,^0;16^Q"
^DD(115.7,104,21,0)="^^1^1^2960716^"
^DD(115.7,104,21,1,0)="This is a pointer to File 200 of the person entering the review."
^DD(115.7,104,"DT")="2960716"
^DD(115.7,"B","CLINICIAN",2)=""
^DD(115.7,"B","COMMUNICATIONS OFFICE",11)=""
^DD(115.7,"B","DATE/TIME ENTERED",102)=""
^DD(115.7,"B","DATE/TIME OF ENCOUNTER",1)=""
^DD(115.7,"B","ENCOUNTER TYPE",3)=""
^DD(115.7,"B","ENTERING CLERK",101)=""
^DD(115.7,"B","EVENT COMMENT",10)=""
^DD(115.7,"B","EVENT LOCATION",4)=""
^DD(115.7,"B","GROUP SIZE",8)=""
^DD(115.7,"B","GROUP/INDIVIDUAL",7)=""
^DD(115.7,"B","INITIAL/FOLLOWUP",5)=""
^DD(115.7,"B","LAST REVIEW DATE/TIME",103)=""
^DD(115.7,"B","NUMBER",.01)=""
^DD(115.7,"B","PATIENT",20)=""
^DD(115.7,"B","REVIEW CLERK",104)=""
^DD(115.7,"B","TIME UNITS",6)=""
^DD(115.7,"GL",0,1,.01)=""
^DD(115.7,"GL",0,2,1)=""
^DD(115.7,"GL",0,3,2)=""
^DD(115.7,"GL",0,4,3)=""
^DD(115.7,"GL",0,5,4)=""
^DD(115.7,"GL",0,6,11)=""
^DD(115.7,"GL",0,7,5)=""
^DD(115.7,"GL",0,8,6)=""
^DD(115.7,"GL",0,9,7)=""
^DD(115.7,"GL",0,10,8)=""
^DD(115.7,"GL",0,11,10)=""
^DD(115.7,"GL",0,13,101)=""
^DD(115.7,"GL",0,14,102)=""
^DD(115.7,"GL",0,15,103)=""
^DD(115.7,"GL",0,16,104)=""
^DD(115.7,"GL","P",0,20)=""
^DD(115.7,"IX",.01)=""
^DD(115.7,"IX",1)=""
^DD(115.7,"IX",11)=""
^DD(115.7,"RQ",.01)=""
^DD(115.7,"RQ",1)=""
^DD(115.7,"RQ",2)=""
^DD(115.7,"RQ",3)=""
^DD(115.7,"RQ",11)=""
^DD(115.7,"RQ",101)=""
^DD(115.7,"RQ",102)=""
^DD(115.7,"SB",115.701,20)=""
^DD(115.701,0)="PATIENT SUB-FIELD^^3^4"
^DD(115.701,0,"IX","B",115.701,.01)=""
^DD(115.701,0,"NM","PATIENT")=""
^DD(115.701,0,"UP")="115.7"
^DD(115.701,.01,0)="PATIENT^MP2'X^DPT(^0;1^I $D(X) S DINUM=X"
^DD(115.701,.01,1,0)="^.1"
^DD(115.701,.01,1,1,0)="115.701^B"
^DD(115.701,.01,1,1,1)="S ^FHEN(DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(115.701,.01,1,1,2)="K ^FHEN(DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(115.701,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(115.701,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the PATIENT field."
^DD(115.701,.01,1,2,0)="115.7^AP^MUMPS"
^DD(115.701,.01,1,2,1)="S X1=$P(^FHEN(DA(1),0),""^"",2) S:X1 ^FHEN(""AP"",X,X1,DA(1))="""""
^DD(115.701,.01,1,2,2)="S X1=$P(^FHEN(DA(1),0),""^"",2) K:X1 ^FHEN(""AP"",X,X1,DA(1))"
^DD(115.701,.01,1,2,"%D",0)="2^^2^2^2940824^"
^DD(115.701,.01,1,2,"%D",1,0)="This cross-reference creates an 'AP' node of a patient by date/time"
^DD(115.701,.01,1,2,"%D",2,0)="cross-reference."
^DD(115.701,.01,21,0)="^^2^2^2910813^^"
^DD(115.701,.01,21,1,0)="This field contains a pointer to the Patient file (2) and indicates"
^DD(115.701,.01,21,2,0)="a patient involved in the encounter."
^DD(115.701,.01,"DT")="2891113"
^DD(115.701,1,0)="LOCATION^P44'^SC(^0;2^Q"
^DD(115.701,1,21,0)="^^3^3^2891121^"
^DD(115.701,1,21,1,0)="This field contains a pointer to the Hospital Location"
^DD(115.701,1,21,2,0)="(file 44) for the patient. It is the patient location rather"
^DD(115.701,1,21,3,0)="than the event location."
^DD(115.701,1,"DT")="2890719"
^DD(115.701,2,0)="# COLLATERALS^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(115.701,2,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(115.701,2,21,0)="^^2^2^2891121^"
^DD(115.701,2,21,1,0)="This field contains the number of collaterals seen with the"
^DD(115.701,2,21,2,0)="patient."
^DD(115.701,2,"DT")="2891107"
^DD(115.701,3,0)="PATIENT COMMENT^F^^0;4^K:$L(X)>60!($L(X)<3) X"
^DD(115.701,3,3)="Answer must be 3-60 characters in length."
^DD(115.701,3,21,0)="^^2^2^2891121^"
^DD(115.701,3,21,1,0)="This field may be used for a patient-specific comment"
^DD(115.701,3,21,2,0)="concerning the encounter."
^DD(115.701,3,"DT")="2891107"
^DD(115.701,"B","# COLLATERALS",2)=""
^DD(115.701,"B","LOCATION",1)=""
^DD(115.701,"B","PATIENT",.01)=""
^DD(115.701,"B","PATIENT COMMENT",3)=""
^DD(115.701,"GL",0,1,.01)=""
^DD(115.701,"GL",0,2,1)=""
^DD(115.701,"GL",0,3,2)=""
^DD(115.701,"GL",0,4,3)=""
^DD(115.701,"IX",.01)=""
^DD(116,0)="FIELD^^3^4"
^DD(116,0,"IX","AB",116.02,.01)=""
^DD(116,0,"IX","B",116,.01)=""
^DD(116,0,"NM","MENU CYCLE")=""
^DD(116,0,"VR")="5.5"
^DD(116,0,"VRPK")="DIETETICS"
^DD(116,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(116,.01,1,0)="^.1"
^DD(116,.01,1,1,0)="116^B"
^DD(116,.01,1,1,1)="S ^FH(116,""B"",$E(X,1,30),DA)="""""
^DD(116,.01,1,1,2)="K ^FH(116,""B"",$E(X,1,30),DA)"
^DD(116,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(116,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(116,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(116,.01,21,0)="^^2^2^2880710^"
^DD(116,.01,21,1,0)="This is the name of a menu cycle, and is often 'Summer"
^DD(116,.01,21,2,0)="cycle' or 'Winter cycle.'"
^DD(116,1,0)="DAY^116.01^^DA;0"
^DD(116,1,21,0)="^^2^2^2880710^"
^DD(116,1,21,1,0)="This field contains the day number within the cycle and is"
^DD(116,1,21,2,0)="therefore 1 to the number of days in the cycle."
^DD(116,2,0)="NO. DAYS IN CYCLE^RNJ3,0^^0;2^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(116,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 365"
^DD(116,2,21,0)="^^3^3^2880710^"
^DD(116,2,21,1,0)="This is the number of days in the cycle, after which it will"
^DD(116,2,21,2,0)="repeat. The day numbers in the Day Field (Field 1) should"
^DD(116,2,21,3,0)="run from 1 to this number."
^DD(116,2,"DT")="2851213"
^DD(116,3,0)="EFFECTIVE DATE^116.02D^^DT;0"
^DD(116,3,21,0)="^^4^4^2880710^"
^DD(116,3,21,1,0)="This multiple contains dates upon which this cycle will become"
^DD(116,3,21,2,0)="effective and will continue until superceded by the effective"
^DD(116,3,21,3,0)="date of this or another cycle. The date becomes Day 1 of the"
^DD(116,3,21,4,0)="selected cycle."
^DD(116,"B","DAY",1)=""
^DD(116,"B","EFFECTIVE DATE",3)=""
^DD(116,"B","NAME",.01)=""
^DD(116,"B","NO. DAYS IN CYCLE",2)=""
^DD(116,"GL",0,1,.01)=""
^DD(116,"GL",0,2,2)=""
^DD(116,"GL","DA",0,1)=""
^DD(116,"GL","DT",0,3)=""
^DD(116,"IX",.01)=""
^DD(116,"RQ",.01)=""
^DD(116,"RQ",2)=""
^DD(116,"SB",116.01,1)=""
^DD(116,"SB",116.02,3)=""
^DD(116.01,0)="DAY SUB-FIELD^NL^3^4"
^DD(116.01,0,"NM","DAY")=""
^DD(116.01,0,"UP")="116"
^DD(116.01,.01,0)="DAY^MNJ3,0X^^0;1^K:+X'=X!(X>$P(^FH(116,DA(1),0),""^"",2))!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(116.01,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND THE # OF DAYS IN THE CYCLE"
^DD(116.01,.01,21,0)="^^1^1^2880710^"
^DD(116.01,.01,21,1,0)="This is the day number within the cycle."
^DD(116.01,.01,"DT")="2860421"
^DD(116.01,1,0)="BREAKFAST MEAL^RP116.1'^FH(116.1,^0;2^Q"
^DD(116.01,1,21,0)="^^2^2^2880710^"
^DD(116.01,1,21,1,0)="This is the meal (File 116.1) which will be served for"
^DD(116.01,1,21,2,0)="breakfast on this cycle day."
^DD(116.01,1,"DT")="2860818"
^DD(116.01,2,0)="NOON MEAL^RP116.1'^FH(116.1,^0;3^Q"
^DD(116.01,2,21,0)="^^2^2^2880710^"
^DD(116.01,2,21,1,0)="This is the meal (File 116.1) which will be served for"
^DD(116.01,2,21,2,0)="Noon or Lunch on this cycle day."
^DD(116.01,2,"DT")="2860818"
^DD(116.01,3,0)="EVENING MEAL^RP116.1'^FH(116.1,^0;4^Q"
^DD(116.01,3,21,0)="^^2^2^2880710^"
^DD(116.01,3,21,1,0)="This is the meal (File 116.1) which will be served in"
^DD(116.01,3,21,2,0)="the evening of this cycle day."
^DD(116.01,3,"DT")="2860818"
^DD(116.01,"B","BREAKFAST MEAL",1)=""
^DD(116.01,"B","DAY",.01)=""
^DD(116.01,"B","EVENING MEAL",3)=""
^DD(116.01,"B","NOON MEAL",2)=""
^DD(116.01,"GL",0,1,.01)=""
^DD(116.01,"GL",0,2,1)=""
^DD(116.01,"GL",0,3,2)=""
^DD(116.01,"GL",0,4,3)=""
^DD(116.01,"RQ",1)=""
^DD(116.01,"RQ",2)=""
^DD(116.01,"RQ",3)=""
^DD(116.02,0)="EFFECTIVE DATE SUB-FIELD^^.01^1"
^DD(116.02,0,"NM","EFFECTIVE DATE")=""
^DD(116.02,0,"UP")="116"
^DD(116.02,.01,0)="EFFECTIVE DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(116.02,.01,1,0)="^.1"
^DD(116.02,.01,1,1,0)="116^AB"
^DD(116.02,.01,1,1,1)="S ^FH(116,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(116.02,.01,1,1,2)="K ^FH(116,""AB"",$E(X,1,30),DA(1),DA)"
^DD(116.02,.01,21,0)="^^1^1^2880710^"
^DD(116.02,.01,21,1,0)="This is the date upon which this cycle will become effective."
^DD(116.02,.01,"DT")="2860818"
^DD(116.02,"B","EFFECTIVE DATE",.01)=""
^DD(116.02,"GL",0,1,.01)=""
^DD(116.02,"IX",.01)=""
^DD(116.1,0)="FIELD^^99^3"
^DD(116.1,0,"DT")="2950329"
^DD(116.1,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(116.1,0,"IX","AC",116.1,99)=""
^DD(116.1,0,"IX","B",116.1,.01)=""
^DD(116.1,0,"NM","MEAL")=""
^DD(116.1,0,"PT",112.62,2)=""
^DD(116.1,0,"PT",116.01,1)=""
^DD(116.1,0,"PT",116.01,2)=""
^DD(116.1,0,"PT",116.01,3)=""
^DD(116.1,0,"PT",116.3,2)=""
^DD(116.1,0,"PT",116.3,3)=""
^DD(116.1,0,"PT",116.3,4)=""
^DD(116.1,0,"SCR")="I '$D(^FH(116.1,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(116.1,0,"VR")="5.5"
^DD(116.1,0,"VRPK")="DIETETICS"
^DD(116.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(116.1,.01,1,0)="^.1"
^DD(116.1,.01,1,1,0)="116.1^B"
^DD(116.1,.01,1,1,1)="S ^FH(116.1,""B"",$E(X,1,30),DA)="""""
^DD(116.1,.01,1,1,2)="K ^FH(116.1,""B"",$E(X,1,30),DA)"
^DD(116.1,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(116.1,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(116.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(116.1,.01,21,0)="^^3^3^2880710^"
^DD(116.1,.01,21,1,0)="This is the name of a meal which is a collection of all"
^DD(116.1,.01,21,2,0)="recipes which will be served at a given breakfast, noon"
^DD(116.1,.01,21,3,0)="or evening meal."
^DD(116.1,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(116.1,.01,"DT")="2930224"
^DD(116.1,1,0)="RECIPE^116.11P^^RE;0"
^DD(116.1,1,21,0)="^^2^2^2931220^^^^"
^DD(116.1,1,21,1,0)="This multiple contains the various recipes which will be"
^DD(116.1,1,21,2,0)="served for the meal."
^DD(116.1,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(116.1,99,1,0)="^.1"
^DD(116.1,99,1,1,0)="116.1^AC^MUMPS"
^DD(116.1,99,1,1,1)="K:X'=""Y"" ^FH(116.1,DA,""I"")"
^DD(116.1,99,1,1,2)="K ^FH(116.1,DA,""I"")"
^DD(116.1,99,1,1,"%D",0)="^^2^2^3000202"
^DD(116.1,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(116.1,99,1,1,"%D",2,0)="inactive entries."
^DD(116.1,99,21,0)="^^2^2^3000202"
^DD(116.1,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(116.1,99,21,2,0)="further selection of this entry."
^DD(116.1,99,"DT")="3000223"
^DD(116.1,"B","INACTIVE?",99)=""
^DD(116.1,"B","NAME",.01)=""
^DD(116.1,"B","RECIPE",1)=""
^DD(116.1,"GL",0,1,.01)=""
^DD(116.1,"GL","I",1,99)=""
^DD(116.1,"GL","RE",0,1)=""
^DD(116.1,"IX",.01)=""
^DD(116.1,"IX",99)=""
^DD(116.1,"RQ",.01)=""
^DD(116.1,"SB",116.11,1)=""
^DD(116.11,0)="RECIPE SUB-FIELD^NL^10^5"
^DD(116.11,0,"DT")="2950329"
^DD(116.11,0,"IX","B",116.11,.01)=""
^DD(116.11,0,"NM","RECIPE")=""
^DD(116.11,0,"UP")="116.1"
^DD(116.11,.01,0)="RECIPE^MP114'^FH(114,^0;1^Q"
^DD(116.11,.01,1,0)="^.1"
^DD(116.11,.01,1,1,0)="116.11^B"
^DD(116.11,.01,1,1,1)="S ^FH(116.1,DA(1),""RE"",""B"",$E(X,1,30),DA)="""""
^DD(116.11,.01,1,1,2)="K ^FH(116.1,DA(1),""RE"",""B"",$E(X,1,30),DA)"
^DD(116.11,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(116.11,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the RECIPE field."
^DD(116.11,.01,21,0)="^^1^1^2880710^"
^DD(116.11,.01,21,1,0)="This is the recipe (File 114) which will be served."
^DD(116.11,.01,"DT")="2880919"
^DD(116.11,1,0)="PRODUCTION DIETS^RFX^^0;2^K:$L(X)>200!($L(X)<2) X I $D(X) D EN2^FHPRC1"
^DD(116.11,1,3)=""
^DD(116.11,1,4)="D EN3^FHPRC1"
^DD(116.11,1,21,0)="^^4^4^2931222^^^^"
^DD(116.11,1,21,1,0)="This is a list of the production diets which will receive the"
^DD(116.11,1,21,2,0)="recipe. It is a syntactically complex field containing the"
^DD(116.11,1,21,3,0)="production diet code and any specialized tray and cafeteria %'s"
^DD(116.11,1,21,4,0)="associated with that production diet."
^DD(116.11,1,"DT")="2851217"
^DD(116.11,2,0)="POPULARITY^116.112P^^D;0"
^DD(116.11,2,21,0)="^^2^2^2911212^^^"
^DD(116.11,2,21,1,0)="This mutiple contains popularity (or selection percentages) for"
^DD(116.11,2,21,2,0)="tray and cafeteria for each Service Point."
^DD(116.11,3,0)="CATEGORY^RP114.1'^FH(114.1,^0;3^Q"
^DD(116.11,3,21,0)="^^1^1^2940412^^"
^DD(116.11,3,21,1,0)="This is the Recipe Category (File 114.1) for this recipe in this meal."
^DD(116.11,3,"DT")="2940120"
^DD(116.11,10,0)="RECIPE CATEGORY^116.12PA^^R;0"
^DD(116.11,10,21,0)="^^3^3^2950605^^"
^DD(116.11,10,21,1,0)="This is a list of different recipe categories which may"
^DD(116.11,10,21,2,0)="characterize this recipe.  The multiple also contains the"
^DD(116.11,10,21,3,0)="production diets to which this category applies."
^DD(116.11,"B","CATEGORY",3)=""
^DD(116.11,"B","POPULARITY",2)=""
^DD(116.11,"B","PRODUCTION DIETS",1)=""
^DD(116.11,"B","RECIPE",.01)=""
^DD(116.11,"B","RECIPE CATEGORY",10)=""
^DD(116.11,"GL",0,1,.01)=""
^DD(116.11,"GL",0,2,1)=""
^DD(116.11,"GL",0,3,3)=""
^DD(116.11,"GL","D",0,2)=""
^DD(116.11,"GL","R",0,10)=""
^DD(116.11,"IX",.01)=""
^DD(116.11,"RQ",1)=""
^DD(116.11,"RQ",3)=""
^DD(116.11,"SB",116.112,2)=""
^DD(116.11,"SB",116.12,10)=""
^DD(116.112,0)="POPULARITY SUB-FIELD^^1^2"
^DD(116.112,0,"DT")="2911203"
^DD(116.112,0,"IX","B",116.112,.01)=""
^DD(116.112,0,"NM","POPULARITY")=""
^DD(116.112,0,"UP")="116.11"
^DD(116.112,.01,0)="SERVICE POINT^MP119.72'X^FH(119.72,^0;1^I $D(X) S DINUM=X"
^DD(116.112,.01,1,0)="^.1"
^DD(116.112,.01,1,1,0)="116.112^B"
^DD(116.112,.01,1,1,1)="S ^FH(116.1,DA(2),""RE"",DA(1),""D"",""B"",$E(X,1,30),DA)="""""
^DD(116.112,.01,1,1,2)="K ^FH(116.1,DA(2),""RE"",DA(1),""D"",""B"",$E(X,1,30),DA)"
^DD(116.112,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(116.112,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the SERVICE POINT field."
^DD(116.112,.01,21,0)="^^2^2^2911118^^^^"
^DD(116.112,.01,21,1,0)="This is the Service Point for which popularity values are"
^DD(116.112,.01,21,2,0)="applicable."
^DD(116.112,.01,"DT")="2911204"
^DD(116.112,1,0)="POPULARITY %^NJ5,1^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""2N.N) X"
^DD(116.112,1,3)="Type a Number between 0 and 200, 1 Decimal Digit"
^DD(116.112,1,21,0)="^^2^2^2911203^^^"
^DD(116.112,1,21,1,0)="This is the percentage of orders for this Service Point"
^DD(116.112,1,21,2,0)="which will select, or have selected, this recipe."
^DD(116.112,1,"DT")="2911203"
^DD(116.112,"B","POPULARITY %",1)=""
^DD(116.112,"B","SERVICE POINT",.01)=""
^DD(116.112,"GL",0,1,.01)=""
^DD(116.112,"GL",0,2,1)=""
^DD(116.112,"IX",.01)=""
^DD(116.12,0)="RECIPE CATEGORY SUB-FIELD^^1^2"
^DD(116.12,0,"DT")="2950329"
^DD(116.12,0,"IX","B",116.12,.01)=""
^DD(116.12,0,"NM","RECIPE CATEGORY")=""
^DD(116.12,0,"UP")="116.11"
^DD(116.12,.01,0)="RECIPE CATEGORY^MRP114.1'^FH(114.1,^0;1^Q"
^DD(116.12,.01,1,0)="^.1"
^DD(116.12,.01,1,1,0)="116.12^B"
^DD(116.12,.01,1,1,1)="S ^FH(116.1,DA(2),""RE"",DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(116.12,.01,1,1,2)="K ^FH(116.1,DA(2),""RE"",DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(116.12,.01,21,0)="^^2^2^2950605^^"
^DD(116.12,.01,21,1,0)="This is the Recipe Category (File 114.1) for the associated"
^DD(116.12,.01,21,2,0)="Production Diets in this meal."
^DD(116.12,.01,"DT")="2950329"
^DD(116.12,1,0)="PRODUCTION DIETS^RFX^^0;2^K:$L(X)>200!($L(X)<1) X I $D(X) D EN2^FHPRC1"
^DD(116.12,1,3)=""
^DD(116.12,1,4)="D EN3^FHPRC1"
^DD(116.12,1,21,0)="^^4^4^2950329^^^^"
^DD(116.12,1,21,1,0)="This is a list of the production diets which will receive the"
^DD(116.12,1,21,2,0)="recipe. It is a syntactically complex field containing the"
^DD(116.12,1,21,3,0)="production diet code and any specialized tray and cafeteria %'s"
^DD(116.12,1,21,4,0)="associated with that production diet."
^DD(116.12,1,"DT")="2950330"
^DD(116.12,"B","PRODUCTION DIETS",1)=""
^DD(116.12,"B","RECIPE CATEGORY",.01)=""
^DD(116.12,"GL",0,1,.01)=""
^DD(116.12,"GL",0,2,1)=""
^DD(116.12,"IX",.01)=""
^DD(116.12,"RQ",.01)=""
^DD(116.12,"RQ",1)=""
^DD(116.2,0)="FIELD^^99^9"
^DD(116.2,0,"DT")="2950629"
^DD(116.2,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(116.2,0,"IX","AC",116.2,99)=""
^DD(116.2,0,"IX","AD",116.2,99)=""
^DD(116.2,0,"IX","AO",116.2,8)=""
^DD(116.2,0,"IX","AP",116.2,7)=""
^DD(116.2,0,"IX","AR",116.2,8)=""
^DD(116.2,0,"IX","AR1",116.211,.01)=""
^DD(116.2,0,"IX","B",116.2,.01)=""
^DD(116.2,0,"IX","C",116.2,1)=""
^DD(116.2,0,"NM","PRODUCTION DIET")=""
^DD(116.2,0,"PT",111,4)=""
^DD(116.2,0,"PT",111.1,10)=""
^DD(116.2,0,"PT",112.62,3)=""
^DD(116.2,0,"PT",115.02,12)=""
^DD(116.2,0,"PT",116.211,.01)=""
^DD(116.2,0,"PT",119.721,.01)=""
^DD(116.2,0,"PT",119.7211,.01)=""
^DD(116.2,0,"PT",728.451,.01)=""
^DD(116.2,0,"SCR")="I '$D(^FH(116.2,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(116.2,0,"VR")="5.5"
^DD(116.2,0,"VRPK")="DIETETICS"
^DD(116.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(116.2,.01,1,0)="^.1"
^DD(116.2,.01,1,1,0)="116.2^B"
^DD(116.2,.01,1,1,1)="S ^FH(116.2,""B"",$E(X,1,30),DA)="""""
^DD(116.2,.01,1,1,2)="K ^FH(116.2,""B"",$E(X,1,30),DA)"
^DD(116.2,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(116.2,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(116.2,.01,3)="Answer must be 3-30 characters in length."
^DD(116.2,.01,21,0)="^^3^3^2950629^^"
^DD(116.2,.01,21,1,0)="This field contains the name of a production diet. This is a"
^DD(116.2,.01,21,2,0)="diet that is prepared in the kitchen (as compared to a clinical"
^DD(116.2,.01,21,3,0)="diet modification which is ordered)."
^DD(116.2,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(116.2,.01,"DT")="2950629"
^DD(116.2,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?1U1UN) X I $D(X) S Y=$O(^FH(116.2,""C"",X,0)) I Y>0,Y-DA W *7,""  Code used by "",$P(^FH(116.2,Y,0),""^"",1) K X"
^DD(116.2,1,1,0)="^.1"
^DD(116.2,1,1,1,0)="116.2^C"
^DD(116.2,1,1,1,1)="S ^FH(116.2,""C"",$E(X,1,30),DA)="""""
^DD(116.2,1,1,1,2)="K ^FH(116.2,""C"",$E(X,1,30),DA)"
^DD(116.2,1,3)="ANSWER MUST BE 2 CHARACTERS (2 LETTERS OR LETTER-NUMBER) AND UNIQUE"
^DD(116.2,1,21,0)="^^2^2^2931116^^^^"
^DD(116.2,1,21,1,0)="This is a simple two-character code for the diet and is used"
^DD(116.2,1,21,2,0)="extensively in the production summary listings."
^DD(116.2,1,"DT")="2851217"
^DD(116.2,3,0)="# DAYS TO REVIEW^NJ3,0^^0;8^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(116.2,3,3)="Type a Number between 1 and 120, 0 Decimal Digits"
^DD(116.2,3,21,0)="^^2^2^2920106^^"
^DD(116.2,3,21,1,0)="This field represents the number of days after which a patient on"
^DD(116.2,3,21,2,0)="this Production Diet should be reviewed."
^DD(116.2,3,"DT")="2920106"
^DD(116.2,7,0)="PRINT ORDER^RNJ2,0X^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S Y=$O(^FH(116.2,""AP"",X,0)) I Y>0,Y-DA W *7,""  Order used by "",$P(^FH(116.2,Y,0),""^"",1) K X"
^DD(116.2,7,1,0)="^.1"
^DD(116.2,7,1,1,0)="116.2^AP"
^DD(116.2,7,1,1,1)="S ^FH(116.2,""AP"",$E(X,1,30),DA)="""""
^DD(116.2,7,1,1,2)="K ^FH(116.2,""AP"",$E(X,1,30),DA)"
^DD(116.2,7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(116.2,7,21,0)="^^2^2^2880717^"
^DD(116.2,7,21,1,0)="This is the order in which this production diet will appear in lists,"
^DD(116.2,7,21,2,0)="from low print orders to high."
^DD(116.2,7,"DT")="2871115"
^DD(116.2,7.5,0)="PRINT ON DAILY MENU?^RS^Y:YES;N:NO;^0;7^Q"
^DD(116.2,7.5,21,0)="^^2^2^2891006^^"
^DD(116.2,7.5,21,1,0)="This field, when answered YES, will result in the Production Diet"
^DD(116.2,7.5,21,2,0)="being listed on the Daily Menu sheets."
^DD(116.2,7.5,"DT")="2891006"
^DD(116.2,8,0)="TALLY ORDER^RNJ2,0X^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S Y=$O(^FH(116.2,""AO"",X,0)) I Y>0,Y-DA W *7,""  Order used by "",$P(^FH(116.2,Y,0),""^"",1) K X"
^DD(116.2,8,1,0)="^.1"
^DD(116.2,8,1,1,0)="116.2^AO"
^DD(116.2,8,1,1,1)="S ^FH(116.2,""AO"",$E(X,1,30),DA)="""""
^DD(116.2,8,1,1,2)="K ^FH(116.2,""AO"",$E(X,1,30),DA)"
^DD(116.2,8,1,2,0)="116.2^AR^MUMPS"
^DD(116.2,8,1,2,1)="D SET^FHORDR"
^DD(116.2,8,1,2,2)="D SET^FHORDR"
^DD(116.2,8,1,2,"%D",0)="^^2^2^2940824^"
^DD(116.2,8,1,2,"%D",1,0)="This cross-reference rebuilds the 'AR' decoding string whenever"
^DD(116.2,8,1,2,"%D",2,0)="the tally order is changed."
^DD(116.2,8,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(116.2,8,21,0)="^^5^5^2880717^"
^DD(116.2,8,21,1,0)="In recoding diets, this is the order in which the clinical"
^DD(116.2,8,21,2,0)="'default production diets' will be matched against this"
^DD(116.2,8,21,3,0)="production diet. Recoding will occur as soon as a match"
^DD(116.2,8,21,4,0)="occurs. Therefore, this field can be conceptualized as"
^DD(116.2,8,21,5,0)="representing the relative importance of the production diet."
^DD(116.2,8,"DT")="2870714"
^DD(116.2,10,0)="IS THIS A COMBO DIET?^RS^Y:YES;N:NO;^0;4^Q"
^DD(116.2,10,21,0)="^^7^7^2891006^^"
^DD(116.2,10,21,1,0)="This field, when answered YES, indicates that this production"
^DD(116.2,10,21,2,0)="diet is a combination of other production diets (e.g., both"
^DD(116.2,10,21,3,0)="low sodium and calorie restricted). Since ALL production diets"
^DD(116.2,10,21,4,0)="in a combo must match the 'default production diets' of a "
^DD(116.2,10,21,5,0)="clinical order, such combo production diets should have a tally"
^DD(116.2,10,21,6,0)="order less than any of the individual production diets"
^DD(116.2,10,21,7,0)="contained in the combo."
^DD(116.2,10,"DT")="2891006"
^DD(116.2,11,0)="SINGULAR PRODUCTION DIETS^116.211P^^R;0"
^DD(116.2,11,21,0)="^^2^2^2880717^"
^DD(116.2,11,21,1,0)="This multiple contains a list of the production diets which"
^DD(116.2,11,21,2,0)="constitute the combo production diet."
^DD(116.2,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(116.2,99,1,0)="^.1"
^DD(116.2,99,1,1,0)="116.2^AC^MUMPS"
^DD(116.2,99,1,1,1)="K:X'=""Y"" ^FH(116.2,DA,""I"")"
^DD(116.2,99,1,1,2)="K ^FH(116.2,DA,""I"")"
^DD(116.2,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(116.2,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(116.2,99,1,1,"%D",2,0)="inactive entries."
^DD(116.2,99,1,1,"DT")="2920703"
^DD(116.2,99,1,2,0)="116.2^AD^MUMPS"
^DD(116.2,99,1,2,1)="D SET^FHORDR"
^DD(116.2,99,1,2,2)="D SET^FHORDR"
^DD(116.2,99,1,2,"%D",0)="^^3^3^2940818^"
^DD(116.2,99,1,2,"%D",1,0)="This cross-reference does not alter the global contents but"
^DD(116.2,99,1,2,"%D",2,0)="rather invokes a routine which removes inactive production"
^DD(116.2,99,1,2,"%D",3,0)="diets from the recording scheme."
^DD(116.2,99,1,2,"DT")="2931105"
^DD(116.2,99,21,0)="^^2^2^2940701^^^"
^DD(116.2,99,21,1,0)="This field, when answered YES, will prohibit further selection"
^DD(116.2,99,21,2,0)="of this Production Diet."
^DD(116.2,99,"DT")="2931105"
^DD(116.2,"B","# DAYS TO REVIEW",3)=""
^DD(116.2,"B","CODE",1)=""
^DD(116.2,"B","INACTIVE?",99)=""
^DD(116.2,"B","IS THIS A COMBO DIET?",10)=""
^DD(116.2,"B","NAME",.01)=""
^DD(116.2,"B","PRINT ON DAILY MENU?",7.5)=""
^DD(116.2,"B","PRINT ORDER",7)=""
^DD(116.2,"B","SINGULAR PRODUCTION DIETS",11)=""
^DD(116.2,"B","TALLY ORDER",8)=""
^DD(116.2,"GL",0,1,.01)=""
^DD(116.2,"GL",0,2,1)=""
^DD(116.2,"GL",0,4,10)=""
^DD(116.2,"GL",0,5,8)=""
^DD(116.2,"GL",0,6,7)=""
^DD(116.2,"GL",0,7,7.5)=""
^DD(116.2,"GL",0,8,3)=""
^DD(116.2,"GL","I",1,99)=""
^DD(116.2,"GL","R",0,11)=""
^DD(116.2,"IX",.01)=""
^DD(116.2,"IX",1)=""
^DD(116.2,"IX",7)=""
^DD(116.2,"IX",8)=""
^DD(116.2,"IX",99)=""
^DD(116.2,"RQ",.01)=""
^DD(116.2,"RQ",1)=""
^DD(116.2,"RQ",7)=""
^DD(116.2,"RQ",7.5)=""
^DD(116.2,"RQ",8)=""
^DD(116.2,"RQ",10)=""
^DD(116.2,"SB",116.211,11)=""
^DD(116.211,0)="SINGULAR PRODUCTION DIETS SUB-FIELD^^.01^1"
^DD(116.211,0,"IX","B",116.211,.01)=""
^DD(116.211,0,"NM","SINGULAR PRODUCTION DIETS")=""
^DD(116.211,0,"UP")="116.2"
^DD(116.211,.01,0)="SINGULAR PRODUCTION DIETS^M*P116.2'^FH(116.2,^0;1^S DIC(""S"")=""I $P(^(0),""""^"""",4)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(116.211,.01,1,0)="^.1"
^DD(116.211,.01,1,1,0)="116.211^B"
^DD(116.211,.01,1,1,1)="S ^FH(116.2,DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(116.211,.01,1,1,2)="K ^FH(116.2,DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(116.211,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(116.211,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the SINGULAR PRODUCTION DIETS field."
^DD(116.211,.01,1,2,0)="116.2^AR1^MUMPS"
^DD(116.211,.01,1,2,1)="D SET^FHORDR"
^DD(116.211,.01,1,2,2)="D SET^FHORDR"
^DD(116.211,.01,1,2,"%D",0)="^^2^2^2940824^"
^DD(116.211,.01,1,2,"%D",1,0)="This cross-reference will rebuild the 'AR' decoding string whenever"
^DD(116.211,.01,1,2,"%D",2,0)="a change is made to a combination production diet."
^DD(116.211,.01,12)="Can only select singular production diets."
^DD(116.211,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)'=""""Y"""""""
^DD(116.211,.01,21,0)="^^2^2^2880717^"
^DD(116.211,.01,21,1,0)="This is a production diet that is to be contained in the combo"
^DD(116.211,.01,21,2,0)="production diet. It itself must not also be a combo production diet."
^DD(116.211,.01,"DT")="2870714"
^DD(116.211,"B","SINGULAR PRODUCTION DIETS",.01)=""
^DD(116.211,"GL",0,1,.01)=""
^DD(116.211,"IX",.01)=""
^DD(116.3,0)="FIELD^^4^5"
^DD(116.3,0,"IX","B",116.3,.01)=""
^DD(116.3,0,"NM","HOLIDAY MEALS")=""
^DD(116.3,0,"VR")="5.5"
^DD(116.3,0,"VRPK")="DIETETICS"
^DD(116.3,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y,DINUM=X K:Y<1 X,DINUM"
^DD(116.3,.01,1,0)="^.1"
^DD(116.3,.01,1,1,0)="116.3^B"
^DD(116.3,.01,1,1,1)="S ^FH(116.3,""B"",$E(X,1,30),DA)="""""
^DD(116.3,.01,1,1,2)="K ^FH(116.3,""B"",$E(X,1,30),DA)"
^DD(116.3,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(116.3,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the DATE field."
^DD(116.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(116.3,.01,21,0)="^^3^3^2880717^"
^DD(116.3,.01,21,1,0)="This is the date of a holiday. A holiday, for purposes of this"
^DD(116.3,.01,21,2,0)="program, is a date upon which one or more of the normal cycle"
^DD(116.3,.01,21,3,0)="meals are suspended and other special meals substituted."
^DD(116.3,1,0)="HOLIDAY NAME^RF^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(116.3,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(116.3,1,21,0)="^^1^1^2880717^"
^DD(116.3,1,21,1,0)="This field represents the name of the holiday."
^DD(116.3,1,"DT")="2861206"
^DD(116.3,2,0)="BREAKFAST MEAL^P116.1'^FH(116.1,^0;2^Q"
^DD(116.3,2,21,0)="^^2^2^2880717^"
^DD(116.3,2,21,1,0)="This field, if present, contains the meal which will override"
^DD(116.3,2,21,2,0)="the normal cycle breakfast meal."
^DD(116.3,2,"DT")="2861206"
^DD(116.3,3,0)="NOON MEAL^P116.1'^FH(116.1,^0;3^Q"
^DD(116.3,3,21,0)="^^2^2^2880717^"
^DD(116.3,3,21,1,0)="This field, if present, contains the meal which will override"
^DD(116.3,3,21,2,0)="the normal cycle noon meal."
^DD(116.3,3,"DT")="2861206"
^DD(116.3,4,0)="EVENING MEAL^P116.1'^FH(116.1,^0;4^Q"
^DD(116.3,4,21,0)="^^2^2^2880717^"
^DD(116.3,4,21,1,0)="This field, if present, contains the meal which will override"
^DD(116.3,4,21,2,0)="the normal cycle evening meal."
^DD(116.3,4,"DT")="2861206"
^DD(116.3,"B","BREAKFAST MEAL",2)=""
^DD(116.3,"B","DATE",.01)=""
^DD(116.3,"B","EVENING MEAL",4)=""
^DD(116.3,"B","HOLIDAY NAME",1)=""
^DD(116.3,"B","NOON MEAL",3)=""
^DD(116.3,"GL",0,1,.01)=""
^DD(116.3,"GL",0,2,2)=""
^DD(116.3,"GL",0,3,3)=""
^DD(116.3,"GL",0,4,4)=""
^DD(116.3,"GL",0,5,1)=""
^DD(116.3,"IX",.01)=""
^DD(116.3,"RQ",.01)=""
^DD(116.3,"RQ",1)=""
^DD(117,0)="FIELD^^58^35"
^DD(117,0,"DDA")="N"
^DD(117,0,"DT")="3031014"
^DD(117,0,"IX","B",117,.01)=""
^DD(117,0,"NM","MEALS SERVED")=""
^DD(117,0,"VR")="5.5"
^DD(117,0,"VRPK")="DIETETICS"
^DD(117,.01,0)="CENSUS DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(117,.01,1,0)="^.1"
^DD(117,.01,1,1,0)="117^B"
^DD(117,.01,1,1,1)="S ^FH(117,""B"",$E(X,1,30),DA)="""""
^DD(117,.01,1,1,2)="K ^FH(117,""B"",$E(X,1,30),DA)"
^DD(117,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(117,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the CENSUS DATE field."
^DD(117,.01,3)=""
^DD(117,.01,21,0)="^.001^2^2^3030225^^"
^DD(117,.01,21,1,0)="This is the date for which various dietetic census and performance"
^DD(117,.01,21,2,0)="standards data are entered."
^DD(117,.01,"DT")="3030128"
^DD(117,1,0)="DOM MEMBERS^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,1,21,0)="^.001^2^2^3030424^^^"
^DD(117,1,21,1,0)="This field contains the number of Domiciliary members shown by MAS"
^DD(117,1,21,2,0)="as being admitted patients on the census date."
^DD(117,2,0)="DOM ABSENCES^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,2,21,0)="^.001^2^2^3030424^^"
^DD(117,2,21,1,0)="This field contains the number of Domiciliary members on"
^DD(117,2,21,2,0)="authorized or unauthorized absence on the census date."
^DD(117,4,0)="NHCU PATIENTS^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,4,21,0)="^^2^2^2880716^"
^DD(117,4,21,1,0)="This field contains the number of Nursing Home Care Unit patients"
^DD(117,4,21,2,0)="being shown by MAS as admitted patients on the census date."
^DD(117,5,0)="NHCU ABSENCES^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,5,21,0)="^^2^2^2880716^"
^DD(117,5,21,1,0)="This field contains the number of Nursing Home Care Unit patients"
^DD(117,5,21,2,0)="on authorized or unauthorized absence on the census date."
^DD(117,6,0)="COMM OFFICE^117.06P^^2;0"
^DD(117,7,0)="HOSP INPATIENTS^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,7,21,0)="^^2^2^2880716^"
^DD(117,7,21,1,0)="This field contains the number of Hospital inpatients being shown"
^DD(117,7,21,2,0)="by MAS as admitted patients on the census date."
^DD(117,8,0)="HOSP ABSENCES^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,8,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,8,21,0)="^^2^2^2910625^^"
^DD(117,8,21,1,0)="This field contains the number of Hospital inpatients on"
^DD(117,8,21,2,0)="authorized or unauthorized absence on the census date."
^DD(117,30,0)="OUTPATIENT BREAKFAST^NJ4,0^^1;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,30,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,30,21,0)="^^2^2^2880716^"
^DD(117,30,21,1,0)="This field contains the number of breakfast meals served to"
^DD(117,30,21,2,0)="outpatients on the census date."
^DD(117,31,0)="OUTPATIENT NOON^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,31,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,31,21,0)="^^2^2^2880716^"
^DD(117,31,21,1,0)="This field contains the number of noon meals served to"
^DD(117,31,21,2,0)="outpatients on the census date."
^DD(117,32,0)="OUTPATIENT EVENING^NJ4,0^^1;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,32,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,32,21,0)="^^2^2^2880716^"
^DD(117,32,21,1,0)="This field contains the number of evening meals served to"
^DD(117,32,21,2,0)="outpatients on the census date."
^DD(117,33,0)="EMPLOYEE BREAKFAST^NJ4,0^^1;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,33,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,33,21,0)="^^2^2^2880716^"
^DD(117,33,21,1,0)="This field contains the number of breakfast meals served"
^DD(117,33,21,2,0)="under contract on the census date."
^DD(117,33,"DT")="3040315"
^DD(117,34,0)="EMPLOYEE NOON^NJ4,0^^1;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,34,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,34,21,0)="^^2^2^2880716^"
^DD(117,34,21,1,0)="This field contains the number of noon meals served"
^DD(117,34,21,2,0)="under contract on the census date."
^DD(117,34,"DT")="3040311"
^DD(117,35,0)="EMPLOYEE EVENING^NJ4,0^^1;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,35,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,35,21,0)="^^2^2^2880716^"
^DD(117,35,21,1,0)="This field contains the number of evening meals served"
^DD(117,35,21,2,0)="under contract on the census date."
^DD(117,35,"DT")="3040311"
^DD(117,36,0)="PAID BREAKFAST^NJ4,0^^1;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,36,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,36,21,0)="^^2^2^2880716^^"
^DD(117,36,21,1,0)="This field contains the number of breakfast meals served"
^DD(117,36,21,2,0)="to other paid individuals on the census date."
^DD(117,36,"DT")="3040315"
^DD(117,37,0)="PAID NOON^NJ4,0^^1;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,37,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,37,21,0)="^^2^2^2880716^"
^DD(117,37,21,1,0)="This field contains the number of noon meals served"
^DD(117,37,21,2,0)="to other paid individuals on the census date."
^DD(117,37,"DT")="3040311"
^DD(117,38,0)="PAID EVENING^NJ4,0^^1;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,38,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,38,21,0)="^^2^2^2880716^"
^DD(117,38,21,1,0)="This field contains the number of evening meals served"
^DD(117,38,21,2,0)="to other paid individuals on the census date."
^DD(117,38,"DT")="3040311"
^DD(117,39,0)="OOD BREAKFAST^NJ4,0^^1;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,39,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,39,21,0)="^^2^2^2880716^"
^DD(117,39,21,1,0)="This field contains the number of breakfast meals served"
^DD(117,39,21,2,0)="to OOD personnel on the census date."
^DD(117,39,"DT")="3040315"
^DD(117,40,0)="OOD NOON^NJ4,0^^1;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,40,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,40,21,0)="^^2^2^2880716^"
^DD(117,40,21,1,0)="This field contains the number of noon meals served"
^DD(117,40,21,2,0)="to OOD personnel on the census date."
^DD(117,41,0)="OOD EVENING^NJ4,0^^1;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,41,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,41,21,0)="^^2^2^2880716^"
^DD(117,41,21,1,0)="This field contains the number of evening meals served"
^DD(117,41,21,2,0)="to OOD personnel on the census date."
^DD(117,42,0)="VOLUNTEER BREAKFAST^NJ4,0^^1;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,42,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,42,21,0)="^^2^2^2880716^"
^DD(117,42,21,1,0)="This field contains the number of breakfast meals served to"
^DD(117,42,21,2,0)="volunteers on the census date."
^DD(117,42,"DT")="3040315"
^DD(117,43,0)="VOLUNTEER NOON^NJ4,0^^1;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,43,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,43,21,0)="^^2^2^2910612^^"
^DD(117,43,21,1,0)="This field contains the number of noon meals served to"
^DD(117,43,21,2,0)="volunteers on the census date."
^DD(117,44,0)="VOLUNTEER EVENING^NJ4,0^^1;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,44,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,44,21,0)="^^2^2^2880716^"
^DD(117,44,21,1,0)="This field contains the number of evening meals served to"
^DD(117,44,21,2,0)="volunteers on the census date."
^DD(117,45,0)="GRATUITOUS BREAKFAST^NJ4,0^^1;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,45,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,45,21,0)="^^2^2^2880716^"
^DD(117,45,21,1,0)="This field contains the number of breakfast meals served"
^DD(117,45,21,2,0)="gratuitously to others on the census date."
^DD(117,45,"DT")="3040315"
^DD(117,46,0)="GRATUITOUS NOON^NJ4,0^^1;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,46,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,46,21,0)="^^2^2^2880716^"
^DD(117,46,21,1,0)="This field contains the number of noon meals served"
^DD(117,46,21,2,0)="gratuitously to others on the census date."
^DD(117,46,"DT")="3040311"
^DD(117,47,0)="GRATUITOUS EVENING^NJ4,0^^1;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,47,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(117,47,21,0)="^^2^2^2880716^"
^DD(117,47,21,1,0)="This field contains the number of evening meals served"
^DD(117,47,21,2,0)="gratuitously to others on the census date."
^DD(117,47,"DT")="3040311"
^DD(117,50,0)="CAFETERIA MEALS^NJ4,0^^1;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,50,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117,50,21,0)="^^2^2^2900325^"
^DD(117,50,21,1,0)="This field contains the number of cafeteria meals served"
^DD(117,50,21,2,0)="on the census date."
^DD(117,50,"DT")="2900325"
^DD(117,51,0)="NPO MEALS^NJ4,0^^1;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,51,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117,51,21,0)="^^2^2^2910625^^"
^DD(117,51,21,1,0)="This field contains the number of NPO meals for the"
^DD(117,51,21,2,0)="census date."
^DD(117,51,"DT")="2900325"
^DD(117,52,0)="# PATIENTS STATUS I^NJ4,0^^1;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,52,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117,52,21,0)="^^2^2^2911204^"
^DD(117,52,21,1,0)="This field represents the number of patients for which the Nutrition"
^DD(117,52,21,2,0)="Status was I on the given date."
^DD(117,52,"DT")="2910610"
^DD(117,53,0)="# PATIENTS STATUS II^NJ4,0^^1;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,53,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117,53,21,0)="^^2^2^2911204^"
^DD(117,53,21,1,0)="This field represents the number of patients for which the Nutrition"
^DD(117,53,21,2,0)="Status was II on the given date."
^DD(117,54,0)="# PATIENTS STATUS III^NJ4,0^^1;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,54,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117,54,21,0)="^^2^2^2911204^^"
^DD(117,54,21,1,0)="This field represents the number of patients for which the Nutrition"
^DD(117,54,21,2,0)="Status was III on the given date."
^DD(117,55,0)="# PATIENTS STATUS IV^NJ4,0^^1;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,55,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117,55,21,0)="^^2^2^2911204^"
^DD(117,55,21,1,0)="This field represents the number of patients for which the Nutrition"
^DD(117,55,21,2,0)="Status was IV on the given date."
^DD(117,56,0)="# PATIENTS STATUS UNC^NJ4,0^^1;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,56,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117,56,21,0)="^^2^2^2911204^"
^DD(117,56,21,1,0)="This field represents the number of patients for which the Nutrition"
^DD(117,56,21,2,0)="Status was not available, or invalid, on the given date."
^DD(117,57,0)="# DAILY MODIFIED DIETS^NJ9,0^^1;26^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,57,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(117,57,21,0)="^^2^2^2930908^^^^"
^DD(117,57,21,1,0)="This is the number of modified (non-regular) diets served. It"
^DD(117,57,21,2,0)="also includes NPOs and Passes."
^DD(117,57,"DT")="2920304"
^DD(117,58,0)="# OF TOTAL DIETS^NJ10,0^^1;27^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117,58,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(117,58,21,0)="^^1^1^2930908^^"
^DD(117,58,21,1,0)="This field contains the number of total Diets."
^DD(117,58,"DT")="2920618"
^DD(117,"B","# DAILY MODIFIED DIETS",57)=""
^DD(117,"B","# OF TOTAL DIETS",58)=""
^DD(117,"B","# PATIENTS STATUS I",52)=""
^DD(117,"B","# PATIENTS STATUS II",53)=""
^DD(117,"B","# PATIENTS STATUS III",54)=""
^DD(117,"B","# PATIENTS STATUS IV",55)=""
^DD(117,"B","# PATIENTS STATUS UNC",56)=""
^DD(117,"B","CAFETERIA MEALS",50)=""
^DD(117,"B","CENSUS DATE",.01)=""
^DD(117,"B","COMM OFFICE",6)=""
^DD(117,"B","DOM ABSENCES",2)=""
^DD(117,"B","DOM MEMBERS",1)=""
^DD(117,"B","EMPLOYEE BREAKFAST",33)=""
^DD(117,"B","EMPLOYEE EVENING",35)=""
^DD(117,"B","EMPLOYEE NOON",34)=""
^DD(117,"B","GRATUITOUS BREAKFAST",45)=""
^DD(117,"B","GRATUITOUS EVENING",47)=""
^DD(117,"B","GRATUITOUS NOON",46)=""
^DD(117,"B","HOSP ABSENCES",8)=""
^DD(117,"B","HOSP INPATIENTS",7)=""
^DD(117,"B","NHCU ABSENCES",5)=""
^DD(117,"B","NHCU PATIENTS",4)=""
^DD(117,"B","NPO MEALS",51)=""
^DD(117,"B","OOD BREAKFAST",39)=""
^DD(117,"B","OOD EVENING",41)=""
^DD(117,"B","OOD NOON",40)=""
^DD(117,"B","OUTPATIENT BREAKFAST",30)=""
^DD(117,"B","OUTPATIENT EVENING",32)=""
^DD(117,"B","OUTPATIENT NOON",31)=""
^DD(117,"B","PAID BREAKFAST",36)=""
^DD(117,"B","PAID EVENING",38)=""
^DD(117,"B","PAID NOON",37)=""
^DD(117,"B","VOLUNTEER BREAKFAST",42)=""
^DD(117,"B","VOLUNTEER EVENING",44)=""
^DD(117,"B","VOLUNTEER NOON",43)=""
^DD(117,"GL",0,1,.01)=""
^DD(117,"GL",0,2,1)=""
^DD(117,"GL",0,3,2)=""
^DD(117,"GL",0,4,4)=""
^DD(117,"GL",0,5,5)=""
^DD(117,"GL",0,6,7)=""
^DD(117,"GL",0,7,8)=""
^DD(117,"GL",1,1,30)=""
^DD(117,"GL",1,2,31)=""
^DD(117,"GL",1,3,32)=""
^DD(117,"GL",1,4,33)=""
^DD(117,"GL",1,5,34)=""
^DD(117,"GL",1,6,35)=""
^DD(117,"GL",1,7,36)=""
^DD(117,"GL",1,8,37)=""
^DD(117,"GL",1,9,38)=""
^DD(117,"GL",1,10,39)=""
^DD(117,"GL",1,11,40)=""
^DD(117,"GL",1,12,41)=""
^DD(117,"GL",1,13,42)=""
^DD(117,"GL",1,14,43)=""
^DD(117,"GL",1,15,44)=""
^DD(117,"GL",1,16,45)=""
^DD(117,"GL",1,17,46)=""
^DD(117,"GL",1,18,47)=""
^DD(117,"GL",1,19,50)=""
^DD(117,"GL",1,20,51)=""
^DD(117,"GL",1,21,52)=""
^DD(117,"GL",1,22,53)=""
^DD(117,"GL",1,23,54)=""
^DD(117,"GL",1,24,55)=""
^DD(117,"GL",1,25,56)=""
^DD(117,"GL",1,26,57)=""
^DD(117,"GL",1,27,58)=""
^DD(117,"GL",2,0,6)=""
^DD(117,"IX",.01)=""
^DD(117,"RQ",.01)=""
^DD(117,"SB",117.06,6)=""
^DD(117.06,0)="COMM OFFICE SUB-FIELD^^33^34"
^DD(117.06,0,"DT")="3031014"
^DD(117.06,0,"IX","B",117.06,.01)=""
^DD(117.06,0,"NM","COMM OFFICE")=""
^DD(117.06,0,"UP")="117"
^DD(117.06,.01,0)="COMM OFFICE^P119.73'^FH(119.73,^0;1^Q"
^DD(117.06,.01,1,0)="^.1"
^DD(117.06,.01,1,1,0)="117.06^B"
^DD(117.06,.01,1,1,1)="S ^FH(117,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(117.06,.01,1,1,2)="K ^FH(117,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(117.06,.01,3)="Enter Communication Office code"
^DD(117.06,.01,"DT")="3030423"
^DD(117.06,1,0)="OUTPATIENT BREAKFAST^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(117.06,1,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,1,"DT")="3030131"
^DD(117.06,2,0)="OUTPATIENT NOON^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(117.06,2,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,2,"DT")="3030131"
^DD(117.06,3,0)="OUTPATIENT EVENING^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(117.06,3,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,3,"DT")="3030131"
^DD(117.06,4,0)="EMPLOYEE BREAKFAST^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(117.06,4,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,4,"DT")="3040315"
^DD(117.06,5,0)="EMPLOYEE NOON^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,5,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,5,"DT")="3040315"
^DD(117.06,6,0)="EMPLOYEE EVENING^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,6,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,6,"DT")="3040315"
^DD(117.06,7,0)="PAID BREAKFAST^NJ4,0^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,7,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,7,"DT")="3040315"
^DD(117.06,8,0)="PAID NOON^NJ4,0^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,8,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,8,"DT")="3040315"
^DD(117.06,9,0)="PAID EVENING^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,9,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,9,"DT")="3040315"
^DD(117.06,10,0)="OOD BREAKFAST^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,10,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,10,"DT")="3040315"
^DD(117.06,11,0)="OOD NOON^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,11,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,11,"DT")="3030131"
^DD(117.06,12,0)="OOD EVENING^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,12,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,12,"DT")="3030131"
^DD(117.06,13,0)="VOLUNTEER BREAKFAST^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,13,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,13,"DT")="3040315"
^DD(117.06,14,0)="VOLUNTEER NOON^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,14,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,14,"DT")="3030131"
^DD(117.06,15,0)="VOLUNTEER EVENING^NJ4,0^^0;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,15,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,15,"DT")="3030131"
^DD(117.06,16,0)="GRATUITOUS BREAKFAST^NJ4,0^^0;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,16,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,16,"DT")="3040315"
^DD(117.06,17,0)="GRATUITOUS NOON^NJ4,0^^0;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,17,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,17,"DT")="3040315"
^DD(117.06,18,0)="GRATUITOUS EVENING^NJ4,0^^0;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,18,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,18,"DT")="3040315"
^DD(117.06,19,0)="CAFETERIA MEALS^NJ4,0^^0;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,19,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,19,"DT")="3030131"
^DD(117.06,20,0)="NPO MEALS^NJ4,0^^0;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,20,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,20,"DT")="3030131"
^DD(117.06,21,0)="DOM MEMBERS^NJ4,0^^1;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,21,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,21,"DT")="3030224"
^DD(117.06,22,0)="DOM ABSENCES^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,22,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,22,"DT")="3030225"
^DD(117.06,23,0)="NHCU PATIENTS^NJ4,0^^1;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,23,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,23,"DT")="3030225"
^DD(117.06,24,0)="NHCU ABSENCES^NJ4,0^^1;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,24,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,24,"DT")="3030225"
^DD(117.06,25,0)="HOSP INPATIENTS^NJ4,0^^1;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,25,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,25,"DT")="3030303"
^DD(117.06,26,0)="HOSP ABSENCES^NJ4,0^^1;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,26,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,26,"DT")="3030225"
^DD(117.06,27,0)="# PATIENTS STATUS I^NJ4,0^^0;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,27,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,27,"DT")="3031014"
^DD(117.06,28,0)="# PATIENTS STATUS II^NJ4,0^^0;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,28,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,28,"DT")="3031014"
^DD(117.06,29,0)="# PATIENTS STATUS III^NJ4,0^^0;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,29,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,29,"DT")="3031014"
^DD(117.06,30,0)="# PATIENTS STATUS IV^NJ4,0^^0;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,30,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,30,"DT")="3031014"
^DD(117.06,31,0)="# PATIENTS STATUS UNC^NJ4,0^^0;26^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,31,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.06,31,"DT")="3031014"
^DD(117.06,32,0)="# DAILY MODIFIED DIETS^NJ9,0^^0;27^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,32,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(117.06,32,"DT")="3031014"
^DD(117.06,33,0)="# OF TOTAL DIETS^NJ9,0^^0;28^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.06,33,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(117.06,33,"DT")="3031014"
^DD(117.06,"B","# DAILY MODIFIED DIETS",32)=""
^DD(117.06,"B","# OF TOTAL DIETS",33)=""
^DD(117.06,"B","# PATIENTS STATUS I",27)=""
^DD(117.06,"B","# PATIENTS STATUS II",28)=""
^DD(117.06,"B","# PATIENTS STATUS III",29)=""
^DD(117.06,"B","# PATIENTS STATUS IV",30)=""
^DD(117.06,"B","# PATIENTS STATUS UNC",31)=""
^DD(117.06,"B","CAFETERIA MEALS",19)=""
^DD(117.06,"B","COMM OFFICE",.01)=""
^DD(117.06,"B","DOM ABSENCES",22)=""
^DD(117.06,"B","DOM MEMBERS",21)=""
^DD(117.06,"B","EMPLOYEE BREAKFAST",4)=""
^DD(117.06,"B","EMPLOYEE EVENING",6)=""
^DD(117.06,"B","EMPLOYEE NOON",5)=""
^DD(117.06,"B","GRATUITOUS BREAKFAST",16)=""
^DD(117.06,"B","GRATUITOUS EVENING",18)=""
^DD(117.06,"B","GRATUITOUS NOON",17)=""
^DD(117.06,"B","HOSP ABSENCES",26)=""
^DD(117.06,"B","HOSP INPATIENTS",25)=""
^DD(117.06,"B","NHCU ABSENCES",24)=""
^DD(117.06,"B","NHCU PATIENTS",23)=""
^DD(117.06,"B","NPO MEALS",20)=""
^DD(117.06,"B","OOD BREAKFAST",10)=""
^DD(117.06,"B","OOD EVENING",12)=""
^DD(117.06,"B","OOD NOON",11)=""
^DD(117.06,"B","OUTPATIENT BREAKFAST",1)=""
^DD(117.06,"B","OUTPATIENT EVENING",3)=""
^DD(117.06,"B","OUTPATIENT NOON",2)=""
^DD(117.06,"B","PAID BREAKFAST",7)=""
^DD(117.06,"B","PAID EVENING",9)=""
^DD(117.06,"B","PAID NOON",8)=""
^DD(117.06,"B","VOLUNTEER BREAKFAST",13)=""
^DD(117.06,"B","VOLUNTEER EVENING",15)=""
^DD(117.06,"B","VOLUNTEER NOON",14)=""
^DD(117.06,"GL",0,1,.01)=""
^DD(117.06,"GL",0,2,1)=""
^DD(117.06,"GL",0,3,2)=""
^DD(117.06,"GL",0,4,3)=""
^DD(117.06,"GL",0,5,4)=""
^DD(117.06,"GL",0,6,5)=""
^DD(117.06,"GL",0,7,6)=""
^DD(117.06,"GL",0,8,7)=""
^DD(117.06,"GL",0,9,8)=""
^DD(117.06,"GL",0,10,9)=""
^DD(117.06,"GL",0,11,10)=""
^DD(117.06,"GL",0,12,11)=""
^DD(117.06,"GL",0,13,12)=""
^DD(117.06,"GL",0,14,13)=""
^DD(117.06,"GL",0,15,14)=""
^DD(117.06,"GL",0,16,15)=""
^DD(117.06,"GL",0,17,16)=""
^DD(117.06,"GL",0,18,17)=""
^DD(117.06,"GL",0,19,18)=""
^DD(117.06,"GL",0,20,19)=""
^DD(117.06,"GL",0,21,20)=""
^DD(117.06,"GL",0,22,27)=""
^DD(117.06,"GL",0,23,28)=""
^DD(117.06,"GL",0,24,29)=""
^DD(117.06,"GL",0,25,30)=""
^DD(117.06,"GL",0,26,31)=""
^DD(117.06,"GL",0,27,32)=""
^DD(117.06,"GL",0,28,33)=""
^DD(117.06,"GL",1,1,21)=""
^DD(117.06,"GL",1,2,22)=""
^DD(117.06,"GL",1,3,23)=""
^DD(117.06,"GL",1,4,24)=""
^DD(117.06,"GL",1,5,25)=""
^DD(117.06,"GL",1,6,26)=""
^DD(117.06,"IX",.01)=""
^DD(117.1,0)="FIELD^^20^21"
^DD(117.1,0,"DDA")="N"
^DD(117.1,0,"DT")="3030423"
^DD(117.1,0,"IX","B",117.1,.01)=""
^DD(117.1,0,"NM","STAFFING DATA")=""
^DD(117.1,0,"VR")="5.5"
^DD(117.1,0,"VRPK")="DIETETICS"
^DD(117.1,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(117.1,.01,1,0)="^.1"
^DD(117.1,.01,1,1,0)="117.1^B"
^DD(117.1,.01,1,1,1)="S ^FH(117.1,""B"",$E(X,1,30),DA)="""""
^DD(117.1,.01,1,1,2)="K ^FH(117.1,""B"",$E(X,1,30),DA)"
^DD(117.1,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(117.1,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the DATE field."
^DD(117.1,.01,3)=""
^DD(117.1,.01,21,0)="^^1^1^2910514^^"
^DD(117.1,.01,21,1,0)="This is the date for which staffing data is entered."
^DD(117.1,1,0)="DAILY FTEE^NJ7,3^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.1,1,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.1,1,21,0)="^^2^2^2920129^^^^"
^DD(117.1,1,21,1,0)="This field contains the count of all personnel assigned to the"
^DD(117.1,1,21,2,0)="Dietetic Service and includes full-time and part-time employees."
^DD(117.1,1,"DT")="2891120"
^DD(117.1,2,0)="CLINICAL FTEE^NJ7,3^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4.N) X"
^DD(117.1,2,3)="Type a number between 0 and 999, 3 Decimal Digits"
^DD(117.1,2,21,0)="^^3^3^2950104^^^^"
^DD(117.1,2,21,1,0)="This field contains the FTEE of the clinical dietitians"
^DD(117.1,2,21,2,0)="and clinical technicians who work with the clinical"
^DD(117.1,2,21,3,0)="dietitians in patient care activities."
^DD(117.1,2,"DT")="3030306"
^DD(117.1,3,0)="ADMINISTRATIVE FTEE^NJ7,3^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.1,3,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.1,3,21,0)="5^^4^4^2950104^^"
^DD(117.1,3,21,1,0)="This field contains the FTEE of the Chief and Assistant Chief"
^DD(117.1,3,21,2,0)="of the Dietetic Service, Chief of the Administrative section,"
^DD(117.1,3,21,3,0)="Chief Clinical Section, administrative dietitians, internship,"
^DD(117.1,3,21,4,0)="education and staff development dietitians, and any QA dietitians."
^DD(117.1,3,21,5,0)="QA dietitians."
^DD(117.1,3,"DT")="2891120"
^DD(117.1,4,0)="SUPPORT STAFF FTEE^NJ7,3^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.1,4,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.1,4,21,0)="^^3^3^2950222^^^^"
^DD(117.1,4,21,1,0)="This field contains the FTEE of all secretaries, clerk-typists,"
^DD(117.1,4,21,2,0)="cost accountants, and administrative technicians; it does not"
^DD(117.1,4,21,3,0)="include diet communications personnel."
^DD(117.1,4,"DT")="2891120"
^DD(117.1,5,0)="CFWS FTEE^NJ7,3^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.1,5,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.1,5,21,0)="^^2^2^2930204^^^"
^DD(117.1,5,21,1,0)="This field contains the FTEE of Supervisory Cooks and Supervisory"
^DD(117.1,5,21,2,0)="Food Service workers."
^DD(117.1,5,"DT")="2891120"
^DD(117.1,6,0)="DAYS OFF HOURS^NJ7,2^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,6,3)="Type a Number between 0 and 9999, 2 Decimal Digits"
^DD(117.1,6,21,0)="^^2^2^2891121^^^"
^DD(117.1,6,21,1,0)="This field contains the count of hours not worked by measured"
^DD(117.1,6,21,2,0)="personnel."
^DD(117.1,6,"DT")="2891121"
^DD(117.1,7,0)="LWOP & AWOL HOURS^NJ6,2^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,7,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,7,21,0)="^^2^2^2891120^"
^DD(117.1,7,21,1,0)="This field contains the number of LWOP and AWOL hours for"
^DD(117.1,7,21,2,0)="measured personnel."
^DD(117.1,8,0)="OVERTIME HOURS^NJ6,2^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,8,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,8,21,0)="^^2^2^2891120^"
^DD(117.1,8,21,1,0)="This field contains the number of overtime hours worked by"
^DD(117.1,8,21,2,0)="measured personnel."
^DD(117.1,9,0)="UNSCHEDULED HOURS^NJ6,2^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,9,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,9,21,0)="^^2^2^2921124^^^"
^DD(117.1,9,21,1,0)="This field contains the number of unscheduled hours worked by"
^DD(117.1,9,21,2,0)="measured personnel."
^DD(117.1,10,0)="INTERMITTENT HOURS^NJ6,2^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,10,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,10,21,0)="^^2^2^2921124^^"
^DD(117.1,10,21,1,0)="This field contains the number of intermittent hours worked by"
^DD(117.1,10,21,2,0)="measured personnel."
^DD(117.1,11,0)="COP HOURS^NJ6,2^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,11,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,11,21,0)="^^2^2^2891120^"
^DD(117.1,11,21,1,0)="This field contains the number of Continuation-of-Pay hours by"
^DD(117.1,11,21,2,0)="measured personnel."
^DD(117.1,12,0)="ANNUAL LEAVE HOURS^NJ6,2^^0;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,12,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,12,21,0)="^^2^2^2891120^"
^DD(117.1,12,21,1,0)="This field contains the number of hours of annual leave taken"
^DD(117.1,12,21,2,0)="by measured personnel."
^DD(117.1,13,0)="SICK LEAVE HOURS^NJ6,2^^0;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,13,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,13,21,0)="^^2^2^2891120^"
^DD(117.1,13,21,1,0)="This field contains the number of hours of sick leave taken by"
^DD(117.1,13,21,2,0)="measured personnel."
^DD(117.1,14,0)="OTHER LEAVE HOURS^NJ6,2^^0;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,14,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,14,21,0)="^^2^2^2891120^"
^DD(117.1,14,21,1,0)="This field contains the number of hours of other types of leave"
^DD(117.1,14,21,2,0)="taken by measured personnel."
^DD(117.1,15,0)="LOANED/UNION HOURS^NJ6,2^^0;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,15,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,15,21,0)="^^2^2^2891120^"
^DD(117.1,15,21,1,0)="This field contains the number of hours worked in other services,"
^DD(117.1,15,21,2,0)="or on union affairs, by measured personnel."
^DD(117.1,16,0)="COMP. HOURS^NJ6,2^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,16,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,16,21,0)="^^2^2^2891120^"
^DD(117.1,16,21,1,0)="This field contains the number of compensatory hours worked by"
^DD(117.1,16,21,2,0)="measured personnel."
^DD(117.1,17,0)="TRAINEE HOURS^NJ6,2^^0;18^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,17,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,17,21,0)="^^1^1^2891120^"
^DD(117.1,17,21,1,0)="This field contains the number of hours worked by trainees."
^DD(117.1,18,0)="VOLUNTEER HOURS^NJ6,2^^0;19^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,18,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,18,21,0)="^^2^2^2891120^"
^DD(117.1,18,21,1,0)="This field contains the number of hours worked by uncompensated"
^DD(117.1,18,21,2,0)="volunteers."
^DD(117.1,19,0)="BORROWED HOURS^NJ6,2^^0;20^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.1,19,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.1,19,21,0)="^^2^2^2891120^"
^DD(117.1,19,21,1,0)="This field contains the number of hours worked by employees borrowed"
^DD(117.1,19,21,2,0)="from other Services."
^DD(117.1,20,0)="COMM OFFICE^117.11P^^1;0"
^DD(117.1,"B","ADMINISTRATIVE FTEE",3)=""
^DD(117.1,"B","ANNUAL LEAVE HOURS",12)=""
^DD(117.1,"B","BORROWED HOURS",19)=""
^DD(117.1,"B","CFWS FTEE",5)=""
^DD(117.1,"B","CLINICAL FTEE",2)=""
^DD(117.1,"B","COMM OFFICE",20)=""
^DD(117.1,"B","COMP. HOURS",16)=""
^DD(117.1,"B","COP HOURS",11)=""
^DD(117.1,"B","DAILY FTEE",1)=""
^DD(117.1,"B","DATE",.01)=""
^DD(117.1,"B","DAYS OFF HOURS",6)=""
^DD(117.1,"B","INTERMITTENT HOURS",10)=""
^DD(117.1,"B","LOANED/UNION HOURS",15)=""
^DD(117.1,"B","LWOP & AWOL HOURS",7)=""
^DD(117.1,"B","OTHER LEAVE HOURS",14)=""
^DD(117.1,"B","OVERTIME HOURS",8)=""
^DD(117.1,"B","SICK LEAVE HOURS",13)=""
^DD(117.1,"B","SUPPORT STAFF FTEE",4)=""
^DD(117.1,"B","TRAINEE HOURS",17)=""
^DD(117.1,"B","UNSCHEDULED HOURS",9)=""
^DD(117.1,"B","VOLUNTEER HOURS",18)=""
^DD(117.1,"GL",0,1,.01)=""
^DD(117.1,"GL",0,2,1)=""
^DD(117.1,"GL",0,3,2)=""
^DD(117.1,"GL",0,4,3)=""
^DD(117.1,"GL",0,5,4)=""
^DD(117.1,"GL",0,6,5)=""
^DD(117.1,"GL",0,7,6)=""
^DD(117.1,"GL",0,8,7)=""
^DD(117.1,"GL",0,9,8)=""
^DD(117.1,"GL",0,10,9)=""
^DD(117.1,"GL",0,11,10)=""
^DD(117.1,"GL",0,12,11)=""
^DD(117.1,"GL",0,13,12)=""
^DD(117.1,"GL",0,14,13)=""
^DD(117.1,"GL",0,15,14)=""
^DD(117.1,"GL",0,16,15)=""
^DD(117.1,"GL",0,17,16)=""
^DD(117.1,"GL",0,18,17)=""
^DD(117.1,"GL",0,19,18)=""
^DD(117.1,"GL",0,20,19)=""
^DD(117.1,"GL",1,0,20)=""
^DD(117.1,"IX",.01)=""
^DD(117.1,"RQ",.01)=""
^DD(117.1,"SB",117.11,20)=""
^DD(117.11,0)="COMM OFFICE SUB-FIELD^^20^20"
^DD(117.11,0,"DT")="3030423"
^DD(117.11,0,"IX","B",117.11,.01)=""
^DD(117.11,0,"NM","COMM OFFICE")=""
^DD(117.11,0,"UP")="117.1"
^DD(117.11,.01,0)="COMM OFFICE^P119.73'^FH(119.73,^0;1^Q"
^DD(117.11,.01,1,0)="^.1"
^DD(117.11,.01,1,1,0)="117.11^B"
^DD(117.11,.01,1,1,1)="S ^FH(117.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(117.11,.01,1,1,2)="K ^FH(117.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(117.11,.01,3)="This entry is required, enter Communications Office code  "
^DD(117.11,.01,"DT")="3030423"
^DD(117.11,2,0)="DAILY FTEE^NJ7,3^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4.N) X"
^DD(117.11,2,3)="Type a number between 0 and 999, 3 Decimal Digits"
^DD(117.11,2,"DT")="3030307"
^DD(117.11,3,0)="CLINICAL FTEE^NJ7,3^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4.N) X"
^DD(117.11,3,3)="Type a number between 0 and 999, 3 Decimal Digits"
^DD(117.11,3,"DT")="3030307"
^DD(117.11,4,0)="ADMINISTRATIVE FTEE^NJ7,3^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4.N) X"
^DD(117.11,4,3)="Type a number between 0 and 999, 3 Decimal Digits"
^DD(117.11,4,"DT")="3030307"
^DD(117.11,5,0)="SUPPORT STAFF FTEE^NJ7,3^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4.N) X"
^DD(117.11,5,3)="Type a number between 0 and 999, 3 Decimal Digits"
^DD(117.11,5,"DT")="3030307"
^DD(117.11,6,0)="CFWS FTEE^NJ7,3^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4.N) X"
^DD(117.11,6,3)="Type a number between 0 and 999, 3 Decimal Digits"
^DD(117.11,6,"DT")="3030307"
^DD(117.11,7,0)="DAYS OFF HOURS^NJ7,2^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,7,3)="Type a number between 0 and 9999, 2 Decimal Digits"
^DD(117.11,7,"DT")="3030307"
^DD(117.11,8,0)="LWOP & AWOL HOURS^NJ6,2^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,8,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,8,"DT")="3030307"
^DD(117.11,9,0)="OVERTIME HOURS^NJ6,2^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,9,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,9,"DT")="3030307"
^DD(117.11,10,0)="UNSCHEDULED HOURS^NJ6,2^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,10,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,10,"DT")="3030307"
^DD(117.11,11,0)="INTERMITTENT HOURS^NJ6,2^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,11,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,11,"DT")="3030307"
^DD(117.11,12,0)="COP HOURS^NJ6,2^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,12,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,12,"DT")="3030307"
^DD(117.11,13,0)="ANNUAL LEAVE HOURS^NJ6,2^^0;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,13,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,13,"DT")="3030307"
^DD(117.11,14,0)="SICK LEAVE HOURS^NJ6,2^^0;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,14,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,14,"DT")="3030307"
^DD(117.11,15,0)="OTHER LEAVE HOURS^NJ6,2^^0;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,15,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,15,"DT")="3030307"
^DD(117.11,16,0)="LOANED/UNION HOURS^NJ6,2^^0;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,16,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,16,"DT")="3030307"
^DD(117.11,17,0)="COMP. HOURS^NJ6,2^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,17,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,17,"DT")="3030307"
^DD(117.11,18,0)="TRAINEE HOURS^NJ6,2^^0;18^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,18,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,18,"DT")="3030307"
^DD(117.11,19,0)="VOLUNTEER HOURS^NJ6,2^^0;19^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,19,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,19,"DT")="3030307"
^DD(117.11,20,0)="BORROWED HOURS^NJ6,2^^0;20^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(117.11,20,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(117.11,20,"DT")="3030307"
^DD(117.11,"B","ADMINISTRATIVE FTEE",4)=""
^DD(117.11,"B","ANNUAL LEAVE HOURS",13)=""
^DD(117.11,"B","BORROWED HOURS",20)=""
^DD(117.11,"B","CFWS FTEE",6)=""
^DD(117.11,"B","CLINICAL FTEE",3)=""
^DD(117.11,"B","COMM OFFICE",.01)=""
^DD(117.11,"B","COMP. HOURS",17)=""
^DD(117.11,"B","COP HOURS",12)=""
^DD(117.11,"B","DAILY FTEE",2)=""
^DD(117.11,"B","DAYS OFF HOURS",7)=""
^DD(117.11,"B","INTERMITTENT HOURS",11)=""
^DD(117.11,"B","LOANED/UNION HOURS",16)=""
^DD(117.11,"B","LWOP & AWOL HOURS",8)=""
^DD(117.11,"B","OTHER LEAVE HOURS",15)=""
^DD(117.11,"B","OVERTIME HOURS",9)=""
^DD(117.11,"B","SICK LEAVE HOURS",14)=""
^DD(117.11,"B","SUPPORT STAFF FTEE",5)=""
^DD(117.11,"B","TRAINEE HOURS",18)=""
^DD(117.11,"B","UNSCHEDULED HOURS",10)=""
^DD(117.11,"B","VOLUNTEER HOURS",19)=""
^DD(117.11,"GL",0,1,.01)=""
^DD(117.11,"GL",0,2,2)=""
^DD(117.11,"GL",0,3,3)=""
^DD(117.11,"GL",0,4,4)=""
^DD(117.11,"GL",0,5,5)=""
^DD(117.11,"GL",0,6,6)=""
^DD(117.11,"GL",0,7,7)=""
^DD(117.11,"GL",0,8,8)=""
^DD(117.11,"GL",0,9,9)=""
^DD(117.11,"GL",0,10,10)=""
^DD(117.11,"GL",0,11,11)=""
^DD(117.11,"GL",0,12,12)=""
^DD(117.11,"GL",0,13,13)=""
^DD(117.11,"GL",0,14,14)=""
^DD(117.11,"GL",0,15,15)=""
^DD(117.11,"GL",0,16,16)=""
^DD(117.11,"GL",0,17,17)=""
^DD(117.11,"GL",0,18,18)=""
^DD(117.11,"GL",0,19,19)=""
^DD(117.11,"GL",0,20,20)=""
^DD(117.11,"IX",.01)=""
^DD(117.2,0)="FIELD^^24^25"
^DD(117.2,0,"DDA")="N"
^DD(117.2,0,"DT")="2930618"
^DD(117.2,0,"IX","B",117.2,.01)=""
^DD(117.2,0,"NM","DIETETIC COST OF MEALS")=""
^DD(117.2,0,"VR")="5.5"
^DD(117.2,0,"VRPK")="DIETETICS"
^DD(117.2,.01,0)="MONTH/YEAR^RDX^^0;1^S %DT=""E"" D ^%DT S X=$E(Y,1,5)_""00"" K:Y<1 X I $D(X) S DINUM=X"
^DD(117.2,.01,1,0)="^.1"
^DD(117.2,.01,1,1,0)="117.2^B"
^DD(117.2,.01,1,1,1)="S ^FH(117.2,""B"",$E(X,1,30),DA)="""""
^DD(117.2,.01,1,1,2)="K ^FH(117.2,""B"",$E(X,1,30),DA)"
^DD(117.2,.01,1,1,"%D",0)="^^1^1^2931221^^"
^DD(117.2,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the MONTH/YEAR field."
^DD(117.2,.01,3)="ENTER A MONTH AND A YEAR, ej. 1 92, 11-92, 3/92."
^DD(117.2,.01,21,0)="^^1^1^2930621^^^^"
^DD(117.2,.01,21,1,0)="Enter Month and Year."
^DD(117.2,.01,"DT")="2931027"
^DD(117.2,1,0)="BEG INV GRP 1^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,1,3)="Enter an Amount between 0 and 999999 for the Beg Inv Cost for Food Group I"
^DD(117.2,1,21,0)="^^1^1^2911113^"
^DD(117.2,1,21,1,0)="Enter Beginning Inventory Cost for Food Group I."
^DD(117.2,1,"DT")="2910517"
^DD(117.2,2,0)="BEG INV GRP 2^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,2,3)="Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group II"
^DD(117.2,2,21,0)="^^1^1^2911113^"
^DD(117.2,2,21,1,0)="Enter Beginning Inventory Cost For Food Group II."
^DD(117.2,2,"DT")="2910506"
^DD(117.2,3,0)="BEG INV GRP 3^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,3,3)="Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group III"
^DD(117.2,3,21,0)="^^1^1^2911113^"
^DD(117.2,3,21,1,0)="Enter the Beginning Inventory Cost of Food Group III."
^DD(117.2,3,"DT")="2910506"
^DD(117.2,4,0)="BEG INV GRP 4^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,4,3)="Enter an Amount between 0 and 999999 for the Beg Inv Cost of Food Group IV"
^DD(117.2,4,21,0)="^^1^1^2920501^^^"
^DD(117.2,4,21,1,0)="Enter the Beginning Inventory Cost for Food Group IV."
^DD(117.2,4,"DT")="2910506"
^DD(117.2,5,0)="BEG INV GRP 5^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,5,3)="Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group V"
^DD(117.2,5,21,0)="^^1^1^2911113^^"
^DD(117.2,5,21,1,0)="Enter the Beginning Inventory Cost for Food Group V."
^DD(117.2,5,"DT")="2910506"
^DD(117.2,6,0)="BEG INV GRP 6^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,6,3)="Enter an Amount between 0 and 999999 for Beg Inv Cost of Food Group VI"
^DD(117.2,6,21,0)="^^1^1^2911113^"
^DD(117.2,6,21,1,0)="Enter the Beginning Inventory Cost for Food Group VI."
^DD(117.2,6,"DT")="2910506"
^DD(117.2,7,0)="ISSUE COST GRP 1^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,7,3)="Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group I"
^DD(117.2,7,21,0)="^^1^1^2911113^^"
^DD(117.2,7,21,1,0)="Enter the Issue Cost For Food Group I."
^DD(117.2,7,"DT")="2910517"
^DD(117.2,8,0)="ISSUE COST GRP 2^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,8,3)="Enter an Amount between 0 and 9999999 for Issue Cost of Food Group II"
^DD(117.2,8,21,0)="^^1^1^2911113^"
^DD(117.2,8,21,1,0)="Enter The Issue Cost for Food Group II."
^DD(117.2,8,"DT")="2910506"
^DD(117.2,9,0)="ISSUE COST GRP 3^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,9,3)="Enter an Amount between 0 and 9999999 for Issue Cost of Food Group III"
^DD(117.2,9,21,0)="^^1^1^2911113^"
^DD(117.2,9,21,1,0)="Enter the Issue Cost for Food Group III."
^DD(117.2,9,"DT")="2910506"
^DD(117.2,10,0)="ISSUE COST GRP 4^NJ7,0^^0;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,10,3)="Enter an Amount between 0 and 9999999 for Issue Cost of Food Group IV"
^DD(117.2,10,21,0)="^^1^1^2911113^"
^DD(117.2,10,21,1,0)="Enter the Issue Cost for food Group IV."
^DD(117.2,10,"DT")="2910506"
^DD(117.2,11,0)="ISSUE COST GRP 5^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,11,3)="Enter an Amount between 0 and 9999999 for Issue Cost of Food Group V"
^DD(117.2,11,21,0)="^^1^1^2911113^"
^DD(117.2,11,21,1,0)="Enter the Issue Cost of Food Group V."
^DD(117.2,11,"DT")="2910506"
^DD(117.2,12,0)="ISSUE COST GRP 6^NJ7,0^^0;13^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,12,3)="Enter an Amount between 0 and 9999999 for the Issue Cost of Food Group VI"
^DD(117.2,12,21,0)="^^1^1^2911113^"
^DD(117.2,12,21,1,0)="Enter the Issue Cost of Food Group VI."
^DD(117.2,12,"DT")="2910506"
^DD(117.2,13,0)="CLOS INV GRP 1^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,13,3)="Enter an Amount between 0 and 999999 for the Closing Inventory of Food Group I"
^DD(117.2,13,21,0)="^^1^1^2920501^^"
^DD(117.2,13,21,1,0)="Enter the Closing Inventory Cost for Food Group I."
^DD(117.2,13,"DT")="2910506"
^DD(117.2,14,0)="CLOS INV GRP 2^NJ6,0^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,14,3)="Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group II"
^DD(117.2,14,21,0)="^^1^1^2911113^"
^DD(117.2,14,21,1,0)="Enter the Closing Inventory Cost for Food Group II."
^DD(117.2,14,"DT")="2910506"
^DD(117.2,15,0)="CLOS INV GRP 3^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,15,3)="Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group III"
^DD(117.2,15,21,0)="^^1^1^2911113^"
^DD(117.2,15,21,1,0)="Enter the Closing Inventory Cost for Food Group III."
^DD(117.2,15,"DT")="2910506"
^DD(117.2,16,0)="CLOS INV GRP 4^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,16,3)="Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group IV"
^DD(117.2,16,21,0)="^^1^1^2911113^"
^DD(117.2,16,21,1,0)="Enter the Closing Inventory Cost for Food Group IV."
^DD(117.2,16,"DT")="2910506"
^DD(117.2,17,0)="CLOS INV GRP 5^NJ6,0^^0;18^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,17,3)="Enter an Amount between 0 and 999999 for Closing Inv Cost for Food Group V"
^DD(117.2,17,21,0)="^^1^1^2911113^"
^DD(117.2,17,21,1,0)="Enter the Closing Inventory Cost for Food Group V."
^DD(117.2,17,"DT")="2910506"
^DD(117.2,18,0)="CLOS INV GRP 6^NJ6,0^^0;19^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.2,18,3)="Enter an Amount between 0 and 999999 for the Closing Inv Cost of Food Group VI"
^DD(117.2,18,21,0)="^^1^1^2911113^"
^DD(117.2,18,21,1,0)="Enter the Closing Inventory Cost for Food Group VI."
^DD(117.2,18,"DT")="2910506"
^DD(117.2,19,0)="% COST GRP 1^NJ2,0^^0;20^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.2,19,3)="Enter a Number between 1 and 99 for % Cost Recommended"
^DD(117.2,19,21,0)="^^1^1^2950217^^^^"
^DD(117.2,19,21,1,0)="The Percent Cost Recommended for Food Group I."
^DD(117.2,19,"DT")="2910506"
^DD(117.2,20,0)="% COST GRP 2^NJ2,0^^0;21^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.2,20,3)="Enter a Number between 1 and 99 for % Cost Recommended of Food Group II"
^DD(117.2,20,21,0)="^^1^1^2950217^^^^"
^DD(117.2,20,21,1,0)="The Percent Cost Recommended for Food Group II."
^DD(117.2,20,"DT")="2910506"
^DD(117.2,21,0)="% COST GRP 3^NJ2,0^^0;22^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.2,21,3)="Enter a Number between 1 and 99 for % Cost Recommended of Food Group III"
^DD(117.2,21,21,0)="^^1^1^2950217^^^^"
^DD(117.2,21,21,1,0)="The Percent Cost Recommended for Food Group III."
^DD(117.2,21,"DT")="2910506"
^DD(117.2,22,0)="% COST GRP 4^NJ2,0^^0;23^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.2,22,3)="Enter a Number between 1 and 99 for % Cost Recommended of Food Group IV."
^DD(117.2,22,21,0)="^^1^1^2950217^^^^"
^DD(117.2,22,21,1,0)="The Percent Cost Recommended for Food Group IV."
^DD(117.2,22,"DT")="2910506"
^DD(117.2,23,0)="% COST GRP 5^NJ2,0^^0;24^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.2,23,3)="Enter a Number between 1 and 99 for % Cost Recommended of Food Group V"
^DD(117.2,23,21,0)="^^1^1^2950217^^^"
^DD(117.2,23,21,1,0)="The % Cost Recommended for Food Group V."
^DD(117.2,23,"DT")="2910506"
^DD(117.2,24,0)="% COST GRP 6^NJ2,0^^0;25^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.2,24,3)="Enter a Number between 1 and 99 for % Cost Recommended of Food Group VI"
^DD(117.2,24,21,0)="^^1^1^2950217^^^"
^DD(117.2,24,21,1,0)="The % Cost Recommended for Food Group VI."
^DD(117.2,24,"DT")="2910506"
^DD(117.2,"B","% COST GRP 1",19)=""
^DD(117.2,"B","% COST GRP 2",20)=""
^DD(117.2,"B","% COST GRP 3",21)=""
^DD(117.2,"B","% COST GRP 4",22)=""
^DD(117.2,"B","% COST GRP 5",23)=""
^DD(117.2,"B","% COST GRP 6",24)=""
^DD(117.2,"B","BEG INV GRP 1",1)=""
^DD(117.2,"B","BEG INV GRP 2",2)=""
^DD(117.2,"B","BEG INV GRP 3",3)=""
^DD(117.2,"B","BEG INV GRP 4",4)=""
^DD(117.2,"B","BEG INV GRP 5",5)=""
^DD(117.2,"B","BEG INV GRP 6",6)=""
^DD(117.2,"B","CLOS INV GRP 1",13)=""
^DD(117.2,"B","CLOS INV GRP 2",14)=""
^DD(117.2,"B","CLOS INV GRP 3",15)=""
^DD(117.2,"B","CLOS INV GRP 4",16)=""
^DD(117.2,"B","CLOS INV GRP 5",17)=""
^DD(117.2,"B","CLOS INV GRP 6",18)=""
^DD(117.2,"B","ISSUE COST GRP 1",7)=""
^DD(117.2,"B","ISSUE COST GRP 2",8)=""
^DD(117.2,"B","ISSUE COST GRP 3",9)=""
^DD(117.2,"B","ISSUE COST GRP 4",10)=""
^DD(117.2,"B","ISSUE COST GRP 5",11)=""
^DD(117.2,"B","ISSUE COST GRP 6",12)=""
^DD(117.2,"B","MONTH/YEAR",.01)=""
^DD(117.2,"GL",0,1,.01)=""
^DD(117.2,"GL",0,2,1)=""
^DD(117.2,"GL",0,3,2)=""
^DD(117.2,"GL",0,4,3)=""
^DD(117.2,"GL",0,5,4)=""
^DD(117.2,"GL",0,6,5)=""
^DD(117.2,"GL",0,7,6)=""
^DD(117.2,"GL",0,8,7)=""
^DD(117.2,"GL",0,9,8)=""
^DD(117.2,"GL",0,10,9)=""
^DD(117.2,"GL",0,11,10)=""
^DD(117.2,"GL",0,12,11)=""
^DD(117.2,"GL",0,13,12)=""
^DD(117.2,"GL",0,14,13)=""
^DD(117.2,"GL",0,15,14)=""
^DD(117.2,"GL",0,16,15)=""
^DD(117.2,"GL",0,17,16)=""
^DD(117.2,"GL",0,18,17)=""
^DD(117.2,"GL",0,19,18)=""
^DD(117.2,"GL",0,20,19)=""
^DD(117.2,"GL",0,21,20)=""
^DD(117.2,"GL",0,22,21)=""
^DD(117.2,"GL",0,23,22)=""
^DD(117.2,"GL",0,24,23)=""
^DD(117.2,"GL",0,25,24)=""
^DD(117.2,"IX",.01)=""
^DD(117.2,"RQ",.01)=""
^DD(117.3,0)="FIELD^^79^67"
^DD(117.3,0,"DDA")="N"
^DD(117.3,0,"DT")="3011009"
^DD(117.3,0,"IX","B",117.3,.01)=""
^DD(117.3,0,"NM","ANNUAL REPORT")=""
^DD(117.3,0,"VR")="5.5"
^DD(117.3,0,"VRPK")="DIETETICS"
^DD(117.3,.01,0)="QTR/YR^RDX^^0;1^S %DT=""E"" D ^%DT S X=$E(Y,1,5)_""00"" K:Y<1!($E(Y,4,5)>4)!($E(Y,2,3)<1) X I $D(X) S DINUM=X"
^DD(117.3,.01,1,0)="^.1"
^DD(117.3,.01,1,1,0)="117.3^B"
^DD(117.3,.01,1,1,1)="S ^FH(117.3,""B"",$E(X,1,30),DA)="""""
^DD(117.3,.01,1,1,2)="K ^FH(117.3,""B"",$E(X,1,30),DA)"
^DD(117.3,.01,1,1,"%D",0)="^^1^1^2931221^"
^DD(117.3,.01,1,1,"%D",1,0)="This is a normal B cross-reference of the QTR/YR field."
^DD(117.3,.01,3)="ENTER A QTR AND A YEAR eg. 1/92, 2 92, 3-92, 04-92."
^DD(117.3,.01,21,0)="^^1^1^2950223^^^^"
^DD(117.3,.01,21,1,0)="This field contains the Qtr/Yr of the Annual Report entry."
^DD(117.3,.01,"DT")="2940104"
^DD(117.3,2,0)="REGION #^NJ1,0^^0;3^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.3,2,3)="Type a Number between 1 and 7, 0 Decimal Digits"
^DD(117.3,2,21,0)="^^1^1^2920827^"
^DD(117.3,2,21,1,0)="This field contains the region number of the facility."
^DD(117.3,2,"DT")="2920827"
^DD(117.3,3,0)="MULTI DIVISION FACILITY?^S^Y:YES;N:NO;^0;4^Q"
^DD(117.3,3,21,0)="^^1^1^2920827^"
^DD(117.3,3,21,1,0)="This field contains a Y or N if the facility is multi division."
^DD(117.3,3,"DT")="2920827"
^DD(117.3,4,0)="RPM CLASSIFICATION^NJ1,0^^0;5^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.3,4,3)="Type a Number between 1 and 6, 0 Decimal Digits"
^DD(117.3,4,21,0)="^^3^3^2920130^^^^"
^DD(117.3,4,21,1,0)="This field contains the RPM Classification which is number 1-6 used to"
^DD(117.3,4,21,2,0)="classify facilities by size, function, and specialty programs for"
^DD(117.3,4,21,3,0)="resource allocation purposes."
^DD(117.3,4,"DT")="2920130"
^DD(117.3,5,0)="COMPLEXITY LEVEL^NJ1,0X^^0;6^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(117.3,5,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(117.3,5,21,0)="^^3^3^2920130^"
^DD(117.3,5,21,1,0)="This field contains the Complexity Level which is number 1-4"
^DD(117.3,5,21,2,0)="that is determined by VACO criteria concerning size and complexity"
^DD(117.3,5,21,3,0)="and upon which grade structure is based."
^DD(117.3,5,"DT")="2931230"
^DD(117.3,6,0)="VA SPON DIETETIC INTERNSHIP^S^Y:YES;N:NO;^0;7^Q"
^DD(117.3,6,21,0)="^^2^2^2950223^^"
^DD(117.3,6,21,1,0)="This field contains Y or N if there are VA Sponsored Dietetic"
^DD(117.3,6,21,2,0)="Internships."
^DD(117.3,6,"DT")="2930202"
^DD(117.3,7,0)="AFFILIATED AP4?^S^Y:YES;N:NO;^0;8^Q"
^DD(117.3,7,21,0)="^^1^1^2920130^^"
^DD(117.3,7,21,1,0)="This field contains Y or N if there is Affiliated AP4."
^DD(117.3,7,"DT")="2920130"
^DD(117.3,8,0)="AFFILIATED DIETETIC INTERN?^S^Y:YES;N:NO;^0;9^Q"
^DD(117.3,8,21,0)="^^1^1^2920130^^"
^DD(117.3,8,21,1,0)="This field contains Y or N if there is Affiliated Dietetic Internship."
^DD(117.3,8,"DT")="2920130"
^DD(117.3,9,0)="AFFILIATED CUP?^S^Y:YES;N:NO;^0;10^Q"
^DD(117.3,9,21,0)="^^1^1^2920130^^"
^DD(117.3,9,21,1,0)="This field contains Y or N if there is Affiliated Cup."
^DD(117.3,9,"DT")="2920130"
^DD(117.3,10,0)="VA SPONSORED AP4?^S^Y:YES;N:NO;^0;11^Q"
^DD(117.3,10,21,0)="^^1^1^2920130^^"
^DD(117.3,10,21,1,0)="This field contain Y or N if there is VA Sponsored AP4."
^DD(117.3,10,"DT")="2920130"
^DD(117.3,11,0)="AFFILIATED DIETETIC TECH?^S^Y:YES;N:NO;^0;12^Q"
^DD(117.3,11,21,0)="^^1^1^2920130^^"
^DD(117.3,11,21,1,0)="This field contain Y or N if there is Affiliated Dietetic Technicians."
^DD(117.3,11,"DT")="2920130"
^DD(117.3,12,0)="SPECIALIZED MEDICAL PROGRAMS^117.312P^^SPEC;0"
^DD(117.3,12,12)="SELECT ONLY THE SPECIALIZED MEDICAL PROGRAMS."
^DD(117.3,12,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""""
^DD(117.3,12,21,0)="^^2^2^2930205^^^^"
^DD(117.3,12,21,1,0)="This multiple contains the categories of the Specialized Medical"
^DD(117.3,12,21,2,0)="Programs."
^DD(117.3,13,0)="PRIMARY DELIVERY SYSTEM^117.313P^^DELV;0"
^DD(117.3,13,12)="SELECT ONLY THE PRIMARY DELIVERY SYSTEM."
^DD(117.3,13,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""""
^DD(117.3,13,21,0)="^^1^1^2920916^^^^"
^DD(117.3,13,21,1,0)="This multiple contains the categories of the Primary Delivery System."
^DD(117.3,15,0)="BEDSIDE TRAY^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,15,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.3,15,21,0)="^^1^1^2920130^"
^DD(117.3,15,21,1,0)="This field contains the number of Bedside Tray Service."
^DD(117.3,15,"DT")="2920303"
^DD(117.3,16,0)="CAFETERIA^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,16,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.3,16,21,0)="^^1^1^2920130^"
^DD(117.3,16,21,1,0)="This field contains the number of Cafeteria Service."
^DD(117.3,16,"DT")="2920303"
^DD(117.3,17,0)="DINING ROOM TRAY^NJ4,0^^0;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,17,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.3,17,21,0)="^^2^2^2920130^"
^DD(117.3,17,21,1,0)="This field contains number of trays delivered to patients' table"
^DD(117.3,17,21,2,0)="in a dining Area."
^DD(117.3,17,"DT")="2920303"
^DD(117.3,21,0)="OUTPATIENTS VISIT HOSP^NJ9,0^^1;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,21,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(117.3,21,21,0)="^^1^1^2950223^^^"
^DD(117.3,21,21,1,0)="This field contains the number of Inpatients being treated."
^DD(117.3,21,"DT")="2920211"
^DD(117.3,23,0)="NUMBER OF SATELLITES^NJ1,0^^1;3^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,23,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(117.3,23,21,0)="^^2^2^2950223^^"
^DD(117.3,23,21,1,0)="This field contains the number of Outpatients that visited the Satellite"
^DD(117.3,23,21,2,0)="Clinics."
^DD(117.3,23,"DT")="2920211"
^DD(117.3,25,0)="SATELLITE LOC^117.325^^CLIN;0"
^DD(117.3,25,21,0)="^^2^2^2920130^"
^DD(117.3,25,21,1,0)="This multiple contains the Locations of the Satellite Clinics and"
^DD(117.3,25,21,2,0)="the number of Outpatients that visited them."
^DD(117.3,26,0)="TOTAL MEALS SERVED^NJ9,0^^1;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,26,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(117.3,26,21,0)="^^1^1^2920130^"
^DD(117.3,26,21,1,0)="The Total Meals Served calculated."
^DD(117.3,26,"DT")="2920130"
^DD(117.3,27,0)="TOTAL DAILY FTEE^NJ7,3^^1;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.3,27,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.3,27,21,0)="^^2^2^2920130^"
^DD(117.3,27,21,1,0)="This field contains the count of all personnel assigned to the Dietetic"
^DD(117.3,27,21,2,0)="Service and includes full-time and part-time employees."
^DD(117.3,27,"DT")="2920130"
^DD(117.3,28,0)="CLINICAL FTEE^NJ7,3^^1;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.3,28,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.3,28,21,0)="^^3^3^2950104^^^^"
^DD(117.3,28,21,1,0)="This field contains the FTEE of the Clinical Dietitians"
^DD(117.3,28,21,2,0)="and Clinical Technicians who work with the Clinical"
^DD(117.3,28,21,3,0)="Dietitians in patient care activities."
^DD(117.3,28,"DT")="2920130"
^DD(117.3,29,0)="ADMINISTRATIVE FTEE^NJ7,3^^1;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.3,29,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.3,29,21,0)="^^4^4^2950104^^^^"
^DD(117.3,29,21,1,0)="This field contains the FTEE of the Chief and Assistant Chief of"
^DD(117.3,29,21,2,0)="the Dietetic Service, Chief of the Administrative Section, Chief"
^DD(117.3,29,21,3,0)="Clinical Section, Administrative dietitians, internship,"
^DD(117.3,29,21,4,0)="education and staff development dietitians and any QA dietitians."
^DD(117.3,29,"DT")="2920130"
^DD(117.3,30,0)="SUPPORT STAFF FTEE^NJ7,3^^1;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.3,30,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.3,30,21,0)="^^3^3^2950223^^^^"
^DD(117.3,30,21,1,0)="This field contains the FTEE of all secretaries, clerk-typists,"
^DD(117.3,30,21,2,0)="cost accountants and administrative technicians; it does not"
^DD(117.3,30,21,3,0)="include the diet communications personnel."
^DD(117.3,30,"DT")="2920130"
^DD(117.3,31,0)="SUPERVISORY FTEE^NJ7,3^^1;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(117.3,31,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(117.3,31,21,0)="^^2^2^2950223^^^"
^DD(117.3,31,21,1,0)="This field contains the FTEE of all the supervisory cooks and the"
^DD(117.3,31,21,2,0)="supervisory food service workers."
^DD(117.3,31,"DT")="2920130"
^DD(117.3,31.5,0)="MODIFIED DIET SNAPSHOT DATE^D^^1;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(117.3,31.5,21,0)="^^3^3^2920722^^^^"
^DD(117.3,31.5,21,1,0)="This field contains the Modified Diet Snapshot date for building the"
^DD(117.3,31.5,21,2,0)="list of dates in Tabulating the total Modified Diet and calculating"
^DD(117.3,31.5,21,3,0)="the average of a week for each quarter."
^DD(117.3,31.5,"DT")="2920310"
^DD(117.3,31.6,0)="UNS/INT HOURS^NJ6,2^^1;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(117.3,31.6,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(117.3,31.6,21,0)="^^2^2^2921125^"
^DD(117.3,31.6,21,1,0)="This field contains both the number of unscheduled hours and"
^DD(117.3,31.6,21,2,0)="intermittent hours worked by measured personnel."
^DD(117.3,31.6,"DT")="2921125"
^DD(117.3,32,0)="TOTAL COST PER DIEM^117.332^^COST;0"
^DD(117.3,32,21,0)="^^1^1^2920820^^^^"
^DD(117.3,32,21,1,0)="This multiple contains the Cost Per Diem and Cost Per Meal."
^DD(117.3,32,"DT")="2920212"
^DD(117.3,38,0)="DIETETIC EQUIPMENT^117.338P^^EQUI;0"
^DD(117.3,38,12)="SELECT ONLY THE DIETETIC SERVICE EQUIPMENT."
^DD(117.3,38,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""E"""""""
^DD(117.3,38,21,0)="^^1^1^2950223^^^^"
^DD(117.3,38,21,1,0)="This multiple contains the Dietetic Equipment available."
^DD(117.3,38,"DT")="2920915"
^DD(117.3,39,0)="TOTAL CMR EQUIPMENT INV COST^NJ9,0^^3;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,39,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(117.3,39,21,0)="^^2^2^2930128^"
^DD(117.3,39,21,1,0)="This field is the total Consolidated Memorandum Report (CMR) Equipment"
^DD(117.3,39,21,2,0)="inventory Cost."
^DD(117.3,39,"DT")="2930128"
^DD(117.3,40,0)="NUTRITIVE ANALYSIS DATE^D^^3;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(117.3,40,21,0)="^^2^2^2930128^^"
^DD(117.3,40,21,1,0)="This field contains the date the Nutritive Analysis Average for"
^DD(117.3,40,21,2,0)="one week regular menu was taken."
^DD(117.3,40,"DT")="2930128"
^DD(117.3,41,0)="CALORIES^NJ4,0^^3;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,41,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(117.3,41,21,0)="^^2^2^2930128^"
^DD(117.3,41,21,1,0)="This field contains the amount of Calories taken from the Nutritive"
^DD(117.3,41,21,2,0)="Average of one week regular menu."
^DD(117.3,41,"DT")="2930128"
^DD(117.3,42,0)="% CHO^NJ2,0^^3;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,42,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(117.3,42,21,0)="^^2^2^2930128^^"
^DD(117.3,42,21,1,0)="This field contains the percentage Carbohydrates taken from the"
^DD(117.3,42,21,2,0)="Nutritive Analysis Average of one week regular menu."
^DD(117.3,42,"DT")="2930128"
^DD(117.3,43,0)="% PRO^NJ2,0^^3;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,43,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(117.3,43,21,0)="^^2^2^2930128^"
^DD(117.3,43,21,1,0)="This field contains the percentage Protein taken from the Nutritive"
^DD(117.3,43,21,2,0)="Analysis Average of one week regular menu."
^DD(117.3,43,"DT")="2930128"
^DD(117.3,44,0)="% FAT^NJ2,0^^3;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,44,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(117.3,44,21,0)="^^2^2^2930128^"
^DD(117.3,44,21,1,0)="This field contains the percentage Fat taken from the Nutritive"
^DD(117.3,44,21,2,0)="Analysis Average of one week regular menu."
^DD(117.3,44,"DT")="2930128"
^DD(117.3,45,0)="MG CHOL^NJ3,0^^3;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,45,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(117.3,45,21,0)="^^2^2^2930706^^^"
^DD(117.3,45,21,1,0)="This field contains the milligrams Cholesterol taken from the Nutritive"
^DD(117.3,45,21,2,0)="Analysis Average of one week regular menu."
^DD(117.3,45,"DT")="2930706"
^DD(117.3,46,0)="MG NA^NJ5,0^^3;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,46,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(117.3,46,21,0)="^^2^2^2930706^^^"
^DD(117.3,46,21,1,0)="This field contains the milligrams Sodium taken from Nutritive"
^DD(117.3,46,21,2,0)="Analysis Average."
^DD(117.3,46,"DT")="2930706"
^DD(117.3,47,0)="STAFF CERT DIAB ED (CDE)^NJ2,0^^1;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,47,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(117.3,47,21,0)="^^2^2^2930129^^^^"
^DD(117.3,47,21,1,0)="This field contains the number of the Specialty Staff Certified Diabetes"
^DD(117.3,47,21,2,0)="Educators (CDE) at your facility."
^DD(117.3,47,"DT")="2930129"
^DD(117.3,48,0)="STAFF CERT IN NUTR SUPP^NJ2,0^^1;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,48,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(117.3,48,21,0)="^^2^2^2930129^^^^"
^DD(117.3,48,21,1,0)="This field contains the number of Specialty Staff Certified in Nutrition"
^DD(117.3,48,21,2,0)="Support at your facility."
^DD(117.3,48,"DT")="2930129"
^DD(117.3,49,0)="STAFF REG CLIN DIE TECH^NJ2,0^^1;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,49,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(117.3,49,21,0)="^^2^2^2930129^^"
^DD(117.3,49,21,1,0)="This field contains the number of Specialty Staff Registered"
^DD(117.3,49,21,2,0)="Clinical Dietetic Technicians at your facility."
^DD(117.3,49,"DT")="2930129"
^DD(117.3,50,0)="STAFF W/CLIN PRIVILEGES^NJ2,0^^1;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.3,50,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(117.3,50,21,0)="^^2^2^2930129^"
^DD(117.3,50,21,1,0)="This field contains the number of Specialty Staff with Clinical"
^DD(117.3,50,21,2,0)="Privileges (not scope of practice)."
^DD(117.3,50,"DT")="2930129"
^DD(117.3,51,0)="DO YOU USE COOK CHILL FOODS?^S^Y:YES;N:NO;^0;21^Q"
^DD(117.3,51,21,0)="^^2^2^2930204^"
^DD(117.3,51,21,1,0)="This field contains a Y or N on whether the Dietitians use Cook"
^DD(117.3,51,21,2,0)="Chill Foods."
^DD(117.3,51,"DT")="2930204"
^DD(117.3,52,0)="SELECT 1 OR 2^S^1:LESS AND EQUAL 25% OF MENU ITEMS;2:GREATER THAN 25% OF MENU ITEMS;^0;22^Q"
^DD(117.3,52,21,0)="^^3^3^2930204^"
^DD(117.3,52,21,1,0)="This field will be asked if the Dietitians use Cook Chill Foods."
^DD(117.3,52,21,2,0)="It contains a 1 for less and equal to 25% of menu items cook"
^DD(117.3,52,21,3,0)="chilled or a 2 for greater than 25% of menu items cook chilled."
^DD(117.3,52,"DT")="2930204"
^DD(117.3,53,0)="FUNDED NUTRITION RESEARCH?^S^Y:YES;N:NO;^0;23^Q"
^DD(117.3,53,21,0)="^^2^2^2930204^"
^DD(117.3,53,21,1,0)="This field contains a Y or N on whether the Dietitians have"
^DD(117.3,53,21,2,0)="Funded Nutrition Research."
^DD(117.3,53,"DT")="2930204"
^DD(117.3,54,0)="ASSIGNED CLINICAL FTEE^NJ4,1^^0;24^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(117.3,54,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(117.3,54,21,0)="^^2^2^2930204^"
^DD(117.3,54,21,1,0)="This field contains the Assigned Clinical FTEE on the Funded"
^DD(117.3,54,21,2,0)="Nutrition Research."
^DD(117.3,54,"DT")="2930204"
^DD(117.3,55,0)="UNFUNDED NUTRITION RESEARCH?^S^Y:YES;N:NO;^0;25^Q"
^DD(117.3,55,21,0)="^^2^2^2930204^"
^DD(117.3,55,21,1,0)="This field contains a Y or a N on whether the Dietitians have"
^DD(117.3,55,21,2,0)="Unfunded Nutrition Research."
^DD(117.3,55,"DT")="2930204"
^DD(117.3,56,0)="AREAS OF RESEARCH^117.356S^^AREA;0"
^DD(117.3,56,21,0)="^^2^2^2930204^"
^DD(117.3,56,21,1,0)="This multiple contains a list of Areas of Research under the"
^DD(117.3,56,21,2,0)="Unfunded Nutrition Research."
^DD(117.3,57,0)="ASSIGNED TOTAL CLINICAL FTEE^NJ5,1^^0;26^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(117.3,57,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(117.3,57,21,0)="^^3^3^2930204^"
^DD(117.3,57,21,1,0)="This field contains the Assigned Total Clinical FTEE of the"
^DD(117.3,57,21,2,0)="total of all the Areas of Research selected under the Unfunded"
^DD(117.3,57,21,3,0)="Nutrition Research."
^DD(117.3,57,"DT")="2930204"
^DD(117.3,58,0)="OLD SURVEY - APPETIZING^117.358^^APP;0"
^DD(117.3,58,21,0)="^.001^3^3^3011003^^^^"
^DD(117.3,58,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,58,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question one"
^DD(117.3,58,21,3,0)="of the Dietetic Survey on whether the food looked attractive, appetizing."
^DD(117.3,58,"DT")="3011003"
^DD(117.3,59,0)="OLD SURVEY - TASTE^117.359^^TAS;0"
^DD(117.3,59,21,0)="^^3^3^2931228^^"
^DD(117.3,59,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,59,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question two"
^DD(117.3,59,21,3,0)="of the Dietetic Survey on whether the food tastes good."
^DD(117.3,59,"DT")="3011003"
^DD(117.3,60,0)="OLD SURVEY - TEMPERATURE^117.31^^TEM;0"
^DD(117.3,60,21,0)="^.001^3^3^3011004^^^^"
^DD(117.3,60,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,60,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question three"
^DD(117.3,60,21,3,0)="of the Dietetic Survey on the temperature of the food."
^DD(117.3,60,22)=""
^DD(117.3,60,"DT")="3011003"
^DD(117.3,61,0)="OLD SURVEY - VARIETY^117.361^^VAR;0"
^DD(117.3,61,21,0)="^^3^3^2931228^^"
^DD(117.3,61,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,61,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question"
^DD(117.3,61,21,3,0)="four of the Dietetic Survey on the variety of foods served."
^DD(117.3,61,"DT")="3011003"
^DD(117.3,62,0)="OLD SURVEY - CLEANLINESS^117.362^^CLN;0"
^DD(117.3,62,21,0)="^^4^4^2931228^"
^DD(117.3,62,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,62,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question five"
^DD(117.3,62,21,3,0)="of the Dietetic Survey on whether the dishes, cups, and utensils"
^DD(117.3,62,21,4,0)="were clean."
^DD(117.3,62,"DT")="3011003"
^DD(117.3,63,0)="OLD SURVEY - COURTEOUS^117.363^^CRS;0"
^DD(117.3,63,21,0)="^^4^4^2931228^"
^DD(117.3,63,21,1,0)="This multiple contains the number surveyed in regards to the five"
^DD(117.3,63,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question"
^DD(117.3,63,21,3,0)="six of the Dietetic Survey on whether the Dietetic Service staff"
^DD(117.3,63,21,4,0)="were courteous."
^DD(117.3,63,"DT")="3011003"
^DD(117.3,64,0)="OLD SURVEY - TIME^117.364^^TIM;0"
^DD(117.3,64,21,0)="^^3^3^2931228^^"
^DD(117.3,64,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,64,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question seven"
^DD(117.3,64,21,3,0)="of the Dietetic Survey on whether there was adequate time to eat."
^DD(117.3,64,"DT")="3011003"
^DD(117.3,65,0)="OLD SURVEY - INFO^117.365^^INF;0"
^DD(117.3,65,21,0)="^^4^4^2931228^^"
^DD(117.3,65,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,65,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question eight"
^DD(117.3,65,21,3,0)="of the Dietetic Survey on the diet information given by the"
^DD(117.3,65,21,4,0)="dietitian/dietetic technician."
^DD(117.3,65,"DT")="3011003"
^DD(117.3,66,0)="OLD SURVEY - OVERALL^117.366^^OVA;0"
^DD(117.3,66,21,0)="^^3^3^2931228^^^^"
^DD(117.3,66,21,1,0)="This multiple contains the numbers surveyed in regards to the five"
^DD(117.3,66,21,2,0)="ratings, Very Good, Good, Average, Fair, and Poor, for question nine"
^DD(117.3,66,21,3,0)="of the Dietetic Survey on the overall quality of the food service."
^DD(117.3,66,"DT")="3011003"
^DD(117.3,70,0)="APPETIZING^117.37^^Q1AP;0"
^DD(117.3,70,21,0)="^.001^3^3^3011004^^^^"
^DD(117.3,70,21,1,0)="This multiple contains the numbers surveyed in regard to the five"
^DD(117.3,70,21,2,0)="ratings, Excellent, Very Good, Good, Fair and Unacceptable for question #1"
^DD(117.3,70,21,3,0)="of the Dietetic Survey on whether the food looked appealing and appetizing."
^DD(117.3,71,0)="FOODS PREFERRED^117.371^^Q2FP;0"
^DD(117.3,71,21,0)="^.001^3^3^3011004^^^"
^DD(117.3,71,21,1,0)="This multiple contains the numbers surveyed in regard to the five"
^DD(117.3,71,21,2,0)="ratings, Excellent, Very Good, Good, Fair and Unacceptable for question #2"
^DD(117.3,71,21,3,0)="of the Dietetic Survey on whether the meals include preferred foods."
^DD(117.3,72,0)="HOT ENOUGH^117.372^^Q3HF;0"
^DD(117.3,72,21,0)="^.001^3^3^3011004^^^^"
^DD(117.3,72,21,1,0)="This multiple contains the numbers surveyed in regard to the five"
^DD(117.3,72,21,2,0)="ratings, Excellent, Very Good, Good, Fair and Unacceptable for question #3"
^DD(117.3,72,21,3,0)="of the Dietetic Survey on whether the food was hot enough."
^DD(117.3,73,0)="COLD ENOUGH^117.373^^Q4CF;0"
^DD(117.3,73,21,0)="^.001^4^4^3011004^^^^"
^DD(117.3,73,21,1,0)="This multiple contains the numbers surveyed in regard to the five"
^DD(117.3,73,21,2,0)="ratings, Excellent, Very Good, Good, Fair and Unacceptable for"
^DD(117.3,73,21,3,0)="question #4 of the Dietetic Survey on whether items such as juice,"
^DD(117.3,73,21,4,0)="milk and desserts were cold enough."
^DD(117.3,74,0)="COURTEOUS^117.374^^Q5CR;0"
^DD(117.3,74,21,0)="^.001^3^3^3011004^^^"
^DD(117.3,74,21,1,0)="This multiple contains the numbers surveyed in regard to the five ratings,"
^DD(117.3,74,21,2,0)="Excellent, Very Good, Good, Fair and Unacceptable for question #5 of the"
^DD(117.3,74,21,3,0)="Dietetic Survey on whether NF&S employees were polite."
^DD(117.3,75,0)="PREFERENCES DISCUSSED^117.375^^Q6PD;0"
^DD(117.3,75,21,0)="^.001^3^3^3011009^^^^"
^DD(117.3,75,21,1,0)="This multiple contains the numbers surveyed in regard to the five ratings,"
^DD(117.3,75,21,2,0)="Excellent, Very Good, Good, Fair and Unacceptable for question #6 of the"
^DD(117.3,75,21,3,0)="Dietetic Survey on whether patient's food likes and dislikes are discussed."
^DD(117.3,76,0)="TIMELINESS^117.376^^Q7TI;0"
^DD(117.3,76,21,0)="^.001^3^3^3011009^^^^"
^DD(117.3,76,21,1,0)="This multiple contains the numbers surveyed in regard to the five ratings,"
^DD(117.3,76,21,2,0)="Excellent, Very Good, Good, Fair and Unacceptable for question #7 of the"
^DD(117.3,76,21,3,0)="Dietetic Survey on whether meals are served about the same time each day."
^DD(117.3,77,0)="ENOUGH TIME^117.377^^Q8ET;0"
^DD(117.3,77,21,0)="^.001^3^3^3011009^^^^"
^DD(117.3,77,21,1,0)="This multiple contains the numbers surveyed in regard to the five"
^DD(117.3,77,21,2,0)="ratings, Excellent, Very Good, Good, Fair and Unacceptable for question #8"
^DD(117.3,77,21,3,0)="of the Dietetic Survey on whether the patient had enough time to eat."
^DD(117.3,78,0)="NUTRITIONAL INFO^117.378^^Q9NI;0"
^DD(117.3,78,21,0)="^.001^4^4^3011009^^^^"
^DD(117.3,78,21,1,0)="This multiple contains the numbers surveyed in regard to the five ratings,"
^DD(117.3,78,21,2,0)="Excellent, Very Good, Good, Fair and Unacceptable for question #9 of the"
^DD(117.3,78,21,3,0)="Dietetic Survey on whether the patient received nutritional information "
^DD(117.3,78,21,4,0)="or an individual diet plan."
^DD(117.3,79,0)="OVERALL^117.379^^Q10V;0"
^DD(117.3,79,21,0)="^.001^3^3^3011009^^^^"
^DD(117.3,79,21,1,0)="This multiple contains the numbers surveyed in regard to the five ratings,"
^DD(117.3,79,21,2,0)="Excellent, Very Good, Good, Fair and Unacceptable for question #10 of the"
^DD(117.3,79,21,3,0)="Dietetic Survey on the overall quality of the N&FS."
^DD(117.3,"B","% CHO",42)=""
^DD(117.3,"B","% FAT",44)=""
^DD(117.3,"B","% PRO",43)=""
^DD(117.3,"B","ADMINISTRATIVE FTEE",29)=""
^DD(117.3,"B","AFFILIATED AP4?",7)=""
^DD(117.3,"B","AFFILIATED CUP?",9)=""
^DD(117.3,"B","AFFILIATED DIETETIC INTERN?",8)=""
^DD(117.3,"B","AFFILIATED DIETETIC TECH?",11)=""
^DD(117.3,"B","APPETIZING",70)=""
^DD(117.3,"B","AREAS OF RESEARCH",56)=""
^DD(117.3,"B","ASSIGNED CLINICAL FTEE",54)=""
^DD(117.3,"B","ASSIGNED TOTAL CLINICAL FTEE",57)=""
^DD(117.3,"B","BEDSIDE TRAY",15)=""
^DD(117.3,"B","CAFETERIA",16)=""
^DD(117.3,"B","CALORIES",41)=""
^DD(117.3,"B","CLINICAL FTEE",28)=""
^DD(117.3,"B","COLD ENOUGH",73)=""
^DD(117.3,"B","COMPLEXITY LEVEL",5)=""
^DD(117.3,"B","COURTEOUS",74)=""
^DD(117.3,"B","DIETETIC EQUIPMENT",38)=""
^DD(117.3,"B","DINING ROOM TRAY",17)=""
^DD(117.3,"B","DO YOU USE COOK CHILL FOODS?",51)=""
^DD(117.3,"B","ENOUGH TIME",77)=""
^DD(117.3,"B","FOODS PREFERRED",71)=""
^DD(117.3,"B","FUNDED NUTRITION RESEARCH?",53)=""
^DD(117.3,"B","HOT ENOUGH",72)=""
^DD(117.3,"B","MG CHOL",45)=""
^DD(117.3,"B","MG NA",46)=""
^DD(117.3,"B","MODIFIED DIET SNAPSHOT DATE",31.5)=""
^DD(117.3,"B","MULTI DIVISION FACILITY?",3)=""
^DD(117.3,"B","NUMBER OF SATELLITES",23)=""
^DD(117.3,"B","NUTRITIONAL INFO",78)=""
^DD(117.3,"B","NUTRITIVE ANALYSIS DATE",40)=""
^DD(117.3,"B","OLD SURVEY - APPETIZING",58)=""
^DD(117.3,"B","OLD SURVEY - CLEANLINESS",62)=""
^DD(117.3,"B","OLD SURVEY - COURTEOUS",63)=""
^DD(117.3,"B","OLD SURVEY - INFO",65)=""
^DD(117.3,"B","OLD SURVEY - OVERALL",66)=""
^DD(117.3,"B","OLD SURVEY - TASTE",59)=""
^DD(117.3,"B","OLD SURVEY - TEMPERATURE",60)=""
^DD(117.3,"B","OLD SURVEY - TIME",64)=""
^DD(117.3,"B","OLD SURVEY - VARIETY",61)=""
^DD(117.3,"B","OUTPATIENTS VISIT HOSP",21)=""
^DD(117.3,"B","OVERALL",79)=""
^DD(117.3,"B","PREFERENCES DISCUSSED",75)=""
^DD(117.3,"B","PRIMARY DELIVERY SYSTEM",13)=""
^DD(117.3,"B","QTR/YR",.01)=""
^DD(117.3,"B","REGION #",2)=""
^DD(117.3,"B","RPM CLASSIFICATION",4)=""
^DD(117.3,"B","SATELLITE LOC",25)=""
^DD(117.3,"B","SELECT 1 OR 2",52)=""
^DD(117.3,"B","SPECIALIZED MEDICAL PROGRAMS",12)=""
^DD(117.3,"B","STAFF CERT DIAB ED (CDE)",47)=""
^DD(117.3,"B","STAFF CERT IN NUTR SUPP",48)=""
^DD(117.3,"B","STAFF REG CLIN DIE TECH",49)=""
^DD(117.3,"B","STAFF W/CLIN PRIVILEGES",50)=""
^DD(117.3,"B","SUPERVISORY FTEE",31)=""
^DD(117.3,"B","SUPPORT STAFF FTEE",30)=""
^DD(117.3,"B","TIMELINESS",76)=""
^DD(117.3,"B","TOTAL CMR EQUIPMENT INV COST",39)=""
^DD(117.3,"B","TOTAL COST PER DIEM",32)=""
^DD(117.3,"B","TOTAL DAILY FTEE",27)=""
^DD(117.3,"B","TOTAL MEALS SERVED",26)=""
^DD(117.3,"B","UNFUNDED NUTRITION RESEARCH?",55)=""
^DD(117.3,"B","UNS/INT HOURS",31.6)=""
^DD(117.3,"B","VA SPON DIETETIC INTERNSHIP",6)=""
^DD(117.3,"B","VA SPONSORED AP4?",10)=""
^DD(117.3,"GL",0,1,.01)=""
^DD(117.3,"GL",0,3,2)=""
^DD(117.3,"GL",0,4,3)=""
^DD(117.3,"GL",0,5,4)=""
^DD(117.3,"GL",0,6,5)=""
^DD(117.3,"GL",0,7,6)=""
^DD(117.3,"GL",0,8,7)=""
^DD(117.3,"GL",0,9,8)=""
^DD(117.3,"GL",0,10,9)=""
^DD(117.3,"GL",0,11,10)=""
^DD(117.3,"GL",0,12,11)=""
^DD(117.3,"GL",0,14,15)=""
^DD(117.3,"GL",0,15,16)=""
^DD(117.3,"GL",0,16,17)=""
^DD(117.3,"GL",0,21,51)=""
^DD(117.3,"GL",0,22,52)=""
^DD(117.3,"GL",0,23,53)=""
^DD(117.3,"GL",0,24,54)=""
^DD(117.3,"GL",0,25,55)=""
^DD(117.3,"GL",0,26,57)=""
^DD(117.3,"GL",1,1,21)=""
^DD(117.3,"GL",1,3,23)=""
^DD(117.3,"GL",1,5,26)=""
^DD(117.3,"GL",1,6,27)=""
^DD(117.3,"GL",1,7,28)=""
^DD(117.3,"GL",1,8,29)=""
^DD(117.3,"GL",1,9,30)=""
^DD(117.3,"GL",1,10,31)=""
^DD(117.3,"GL",1,12,31.5)=""
^DD(117.3,"GL",1,13,31.6)=""
^DD(117.3,"GL",1,14,47)=""
^DD(117.3,"GL",1,15,48)=""
^DD(117.3,"GL",1,16,49)=""
^DD(117.3,"GL",1,17,50)=""
^DD(117.3,"GL",3,1,39)=""
^DD(117.3,"GL",3,2,40)=""
^DD(117.3,"GL",3,3,41)=""
^DD(117.3,"GL",3,4,42)=""
^DD(117.3,"GL",3,5,43)=""
^DD(117.3,"GL",3,6,44)=""
^DD(117.3,"GL",3,7,45)=""
^DD(117.3,"GL",3,8,46)=""
^DD(117.3,"GL","APP",0,58)=""
^DD(117.3,"GL","AREA",0,56)=""
^DD(117.3,"GL","CLIN",0,25)=""
^DD(117.3,"GL","CLN",0,62)=""
^DD(117.3,"GL","COST",0,32)=""
^DD(117.3,"GL","CRS",0,63)=""
^DD(117.3,"GL","DELV",0,13)=""
^DD(117.3,"GL","EQUI",0,38)=""
^DD(117.3,"GL","INF",0,65)=""
^DD(117.3,"GL","OVA",0,66)=""
^DD(117.3,"GL","Q10V",0,79)=""
^DD(117.3,"GL","Q1AP",0,70)=""
^DD(117.3,"GL","Q2FP",0,71)=""
^DD(117.3,"GL","Q3HF",0,72)=""
^DD(117.3,"GL","Q4CF",0,73)=""
^DD(117.3,"GL","Q5CR",0,74)=""
^DD(117.3,"GL","Q6PD",0,75)=""
^DD(117.3,"GL","Q7TI",0,76)=""
^DD(117.3,"GL","Q8ET",0,77)=""
^DD(117.3,"GL","Q9NI",0,78)=""
^DD(117.3,"GL","SPEC",0,12)=""
^DD(117.3,"GL","TAS",0,59)=""
^DD(117.3,"GL","TEM",0,60)=""
^DD(117.3,"GL","TIM",0,64)=""
^DD(117.3,"GL","VAR",0,61)=""
^DD(117.3,"IX",.01)=""
^DD(117.3,"RQ",.01)=""
^DD(117.3,"SB",117.31,60)=""
^DD(117.3,"SB",117.312,12)=""
^DD(117.3,"SB",117.313,13)=""
^DD(117.3,"SB",117.325,25)=""
^DD(117.3,"SB",117.332,32)=""
^DD(117.3,"SB",117.338,38)=""
^DD(117.3,"SB",117.356,56)=""
^DD(117.3,"SB",117.358,58)=""
^DD(117.3,"SB",117.359,59)=""
^DD(117.3,"SB",117.361,61)=""
^DD(117.3,"SB",117.362,62)=""
^DD(117.3,"SB",117.363,63)=""
^DD(117.3,"SB",117.364,64)=""
^DD(117.3,"SB",117.365,65)=""
^DD(117.3,"SB",117.366,66)=""
^DD(117.3,"SB",117.37,70)=""
^DD(117.3,"SB",117.371,71)=""
^DD(117.3,"SB",117.372,72)=""
^DD(117.3,"SB",117.373,73)=""
^DD(117.3,"SB",117.374,74)=""
^DD(117.3,"SB",117.375,75)=""
^DD(117.3,"SB",117.376,76)=""
^DD(117.3,"SB",117.377,77)=""
^DD(117.3,"SB",117.378,78)=""
^DD(117.3,"SB",117.379,79)=""
^DD(117.31,0)="OLD SURVEY - TEMPERATURE SUB-FIELD^^6^7"
^DD(117.31,0,"DT")="2931223"
^DD(117.31,0,"IX","B",117.31,.01)=""
^DD(117.31,0,"NM","OLD SURVEY - TEMPERATURE")=""
^DD(117.31,0,"UP")="117.3"
^DD(117.31,.01,0)="TEMPERATURE 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.31,.01,1,0)="^.1"
^DD(117.31,.01,1,1,0)="117.31^B"
^DD(117.31,.01,1,1,1)="S ^FH(117.3,DA(1),""TEM"",""B"",$E(X,1,30),DA)="""""
^DD(117.31,.01,1,1,2)="K ^FH(117.3,DA(1),""TEM"",""B"",$E(X,1,30),DA)"
^DD(117.31,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.31,.01,21,0)="^^2^2^2931223^"
^DD(117.31,.01,21,1,0)="This field contains a sequential number assigned to question three"
^DD(117.31,.01,21,2,0)="of the Dietetic Survey and has no meaning."
^DD(117.31,.01,"DT")="2931223"
^DD(117.31,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.31,1,3)="Answer must be 2-35 characters in length."
^DD(117.31,1,4)="D HEL^FHADR9"
^DD(117.31,1,21,0)="^^2^2^2931228^^^"
^DD(117.31,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the"
^DD(117.31,1,21,2,0)="ratings specified in front of them on question three of the survey."
^DD(117.31,1,"DT")="2931230"
^DD(117.31,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.31,2,3)="Answer must be 2-35 characters in length."
^DD(117.31,2,4)="D HEL^FHADR9"
^DD(117.31,2,21,0)="^^2^2^2931223^"
^DD(117.31,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the"
^DD(117.31,2,21,2,0)="ratings specified in front of them for question three of the survey."
^DD(117.31,2,"DT")="2931230"
^DD(117.31,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.31,3,3)="Answer must be 2-35 characters in length."
^DD(117.31,3,4)="D HEL^FHADR9"
^DD(117.31,3,21,0)="^^2^2^2931223^"
^DD(117.31,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the"
^DD(117.31,3,21,2,0)="ratings specified in front of them on question three of the survey."
^DD(117.31,3,"DT")="2931230"
^DD(117.31,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.31,4,3)="Answer must be 2-35 characters in length."
^DD(117.31,4,4)="D HEL^FHADR9"
^DD(117.31,4,21,0)="^^2^2^2931223^"
^DD(117.31,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.31,4,21,2,0)="ratings specified in front of them on question three of the survey."
^DD(117.31,4,"DT")="2931230"
^DD(117.31,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.31,5,3)="Answer must be 2-35 characters in length."
^DD(117.31,5,4)="D HEL^FHADR9"
^DD(117.31,5,21,0)="^^2^2^2931223^"
^DD(117.31,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.31,5,21,2,0)="ratings specified in front of them on question three of the survey."
^DD(117.31,5,"DT")="2931230"
^DD(117.31,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.31,6,3)="Answer must be 2-35 characters in length."
^DD(117.31,6,4)="D HEL^FHADR9"
^DD(117.31,6,21,0)="^^3^3^2931229^^"
^DD(117.31,6,21,1,0)="This is a rating string containing numbers surveyed in other service"
^DD(117.31,6,21,2,0)="with the ratings specified in front of them on question three of"
^DD(117.31,6,21,3,0)="the survey."
^DD(117.31,6,"DT")="2931230"
^DD(117.31,"B","DOM",4)=""
^DD(117.31,"B","GM&S",1)=""
^DD(117.31,"B","NHCU",2)=""
^DD(117.31,"B","OTHER",6)=""
^DD(117.31,"B","PSYCH",3)=""
^DD(117.31,"B","SCI",5)=""
^DD(117.31,"B","TEMPERATURE NUMBER",.01)=""
^DD(117.31,"GL",0,1,.01)=""
^DD(117.31,"GL",0,2,1)=""
^DD(117.31,"GL",0,3,2)=""
^DD(117.31,"GL",0,4,3)=""
^DD(117.31,"GL",0,5,4)=""
^DD(117.31,"GL",0,6,5)=""
^DD(117.31,"GL",0,7,6)=""
^DD(117.31,"IX",.01)=""
^DD(117.312,0)="SPECIALIZED MEDICAL PROGRAMS SUB-FIELD^^1^2"
^DD(117.312,0,"DT")="2920915"
^DD(117.312,0,"IX","B",117.312,.01)=""
^DD(117.312,0,"NM","SPECIALIZED MEDICAL PROGRAMS")=""
^DD(117.312,0,"UP")="117.3"
^DD(117.312,.01,0)="SPECIALIZED MEDICAL PROGRAMS^M*P117.4'^FH(117.4,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(117.312,.01,1,0)="^.1"
^DD(117.312,.01,1,1,0)="117.312^B"
^DD(117.312,.01,1,1,1)="S ^FH(117.3,DA(1),""SPEC"",""B"",$E(X,1,30),DA)="""""
^DD(117.312,.01,1,1,2)="K ^FH(117.3,DA(1),""SPEC"",""B"",$E(X,1,30),DA)"
^DD(117.312,.01,12)="SELECT ONLY THE SPECIALIZED MEDICAL PROGRAMS."
^DD(117.312,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""""
^DD(117.312,.01,21,0)="^^2^2^2920916^^^^"
^DD(117.312,.01,21,1,0)="This field points to the Dietetic Report Categories for the Specialized"
^DD(117.312,.01,21,2,0)="Medical Programs."
^DD(117.312,.01,"DT")="2920915"
^DD(117.312,1,0)="ASSIGNED CLINICAL FTEE^NJ4,1^^0;2^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(117.312,1,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(117.312,1,21,0)="^^2^2^2920130^"
^DD(117.312,1,21,1,0)="This field contains the Assigned Clinical Ftee of the Specialized"
^DD(117.312,1,21,2,0)="Medical Programs."
^DD(117.312,1,"DT")="2920130"
^DD(117.312,"B","ASSIGNED CLINICAL FTEE",1)=""
^DD(117.312,"B","SPECIALIZED MEDICAL PROGRAMS",.01)=""
^DD(117.312,"GL",0,1,.01)=""
^DD(117.312,"GL",0,2,1)=""
^DD(117.312,"IX",.01)=""
^DD(117.313,0)="PRIMARY DELIVERY SYSTEM SUB-FIELD^^.01^1"
^DD(117.313,0,"DT")="2920915"
^DD(117.313,0,"IX","B",117.313,.01)=""
^DD(117.313,0,"NM","PRIMARY DELIVERY SYSTEM")=""
^DD(117.313,0,"UP")="117.3"
^DD(117.313,.01,0)="PRIMARY DELIVERY SYSTEM^M*P117.4'^FH(117.4,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(117.313,.01,1,0)="^.1"
^DD(117.313,.01,1,1,0)="117.313^B"
^DD(117.313,.01,1,1,1)="S ^FH(117.3,DA(1),""DELV"",""B"",$E(X,1,30),DA)="""""
^DD(117.313,.01,1,1,2)="K ^FH(117.3,DA(1),""DELV"",""B"",$E(X,1,30),DA)"
^DD(117.313,.01,12)="SELECT ONLY THE PRIMARY DELIVERY SYSTEM."
^DD(117.313,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""""
^DD(117.313,.01,21,0)="^^2^2^2920916^^^^"
^DD(117.313,.01,21,1,0)="This field points to the Dietetic Report Categories for the Primary"
^DD(117.313,.01,21,2,0)="Delivery System."
^DD(117.313,.01,"DT")="2920915"
^DD(117.313,"B","PRIMARY DELIVERY SYSTEM",.01)=""
^DD(117.313,"GL",0,1,.01)=""
^DD(117.313,"IX",.01)=""
^DD(117.325,0)="SATELLITE LOC SUB-FIELD^^1^2"
^DD(117.325,0,"DT")="2920130"
^DD(117.325,0,"IX","B",117.325,.01)=""
^DD(117.325,0,"NM","SATELLITE LOC")=""
^DD(117.325,0,"UP")="117.3"
^DD(117.325,.01,0)="SATELLITE LOC^MF^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(117.325,.01,1,0)="^.1"
^DD(117.325,.01,1,1,0)="117.325^B"
^DD(117.325,.01,1,1,1)="S ^FH(117.3,DA(1),""CLIN"",""B"",$E(X,1,30),DA)="""""
^DD(117.325,.01,1,1,2)="K ^FH(117.3,DA(1),""CLIN"",""B"",$E(X,1,30),DA)"
^DD(117.325,.01,3)="Answer must be 3-20 characters in length."
^DD(117.325,.01,21,0)="^^1^1^2920130^"
^DD(117.325,.01,21,1,0)="This field contains the Location of the Satellite Clinics."
^DD(117.325,.01,"DT")="2920130"
^DD(117.325,1,0)="TOTAL # OF SAT OUTPAT VISITS^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(117.325,1,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(117.325,1,21,0)="^^1^1^2930126^^^"
^DD(117.325,1,21,1,0)="This field contains the number of Outpatients that visited the Clinics."
^DD(117.325,1,"DT")="2930126"
^DD(117.325,"B","SATELLITE LOC",.01)=""
^DD(117.325,"B","TOTAL # OF SAT OUTPAT VISITS",1)=""
^DD(117.325,"GL",0,1,.01)=""
^DD(117.325,"GL",0,2,1)=""
^DD(117.325,"IX",.01)=""
^DD(117.332,0)="TOTAL COST PER DIEM SUB-FIELD^^7^8"
^DD(117.332,0,"DT")="2920323"
^DD(117.332,0,"IX","B",117.332,.01)=""
^DD(117.332,0,"NM","TOTAL COST PER DIEM")=""
^DD(117.332,0,"UP")="117.3"
^DD(117.332,.01,0)="830 REPORT OF COSTS^NJ13,2^^0;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,.01,1,0)="^.1"
^DD(117.332,.01,1,1,0)="117.332^B"
^DD(117.332,.01,1,1,1)="S ^FH(117.3,DA(1),""COST"",""B"",$E(X,1,30),DA)="""""
^DD(117.332,.01,1,1,2)="K ^FH(117.3,DA(1),""COST"",""B"",$E(X,1,30),DA)"
^DD(117.332,.01,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,.01,21,0)="^^1^1^2920820^^^^"
^DD(117.332,.01,21,1,0)="This field contains the cumulative fiscal year totals on the 830 Report."
^DD(117.332,.01,"DT")="2920325"
^DD(117.332,1,0)="TOTAL PERSONAL SERVICE^NJ13,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,1,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,1,21,0)="^^1^1^2920212^^^"
^DD(117.332,1,21,1,0)="This field contains the Total Personal Service."
^DD(117.332,1,"DT")="2920323"
^DD(117.332,2,0)="PERSONAL SERVICE-TECH 1019^NJ13,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,2,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,2,21,0)="^^1^1^2920212^^"
^DD(117.332,2,21,1,0)="This field contains the Technicians Cost of Personal Service."
^DD(117.332,2,"DT")="2930128"
^DD(117.332,3,0)="PERSONAL SERVICE-DIETITNS 1018^NJ13,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,3,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,3,21,0)="^^1^1^2920212^^"
^DD(117.332,3,21,1,0)="This field contains the Dietitians Cost of Personal Service."
^DD(117.332,3,"DT")="2930128"
^DD(117.332,4,0)="PERSONAL SERVICE-WAGEBRD 1008^NJ13,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,4,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,4,21,0)="^^1^1^2920212^^"
^DD(117.332,4,21,1,0)="This field contains the Wageboard Cost of Personal Service."
^DD(117.332,4,"DT")="2930128"
^DD(117.332,5,0)="PERSONAL SERVICE-CLERICAL 1002^NJ13,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,5,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,5,21,0)="^^1^1^2920212^^"
^DD(117.332,5,21,1,0)="This field contains the Clerical Cost of Personal Service."
^DD(117.332,5,"DT")="2930128"
^DD(117.332,6,0)="SUBSISTENCE 2610^NJ13,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,6,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,6,21,0)="^^1^1^2920212^^"
^DD(117.332,6,21,1,0)="This field contains the Subsistence Cost."
^DD(117.332,6,"DT")="2930128"
^DD(117.332,7,0)="OPERATING SUPPLIES 2660^NJ13,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(117.332,7,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(117.332,7,21,0)="^^1^1^2920212^^^"
^DD(117.332,7,21,1,0)="This field contains the Operating Supplies Cost."
^DD(117.332,7,"DT")="2930128"
^DD(117.332,"B","830 REPORT OF COSTS",.01)=""
^DD(117.332,"B","OPERATING SUPPLIES 2660",7)=""
^DD(117.332,"B","PERSONAL SERVICE-CLERICAL 1002",5)=""
^DD(117.332,"B","PERSONAL SERVICE-DIETITNS 1018",3)=""
^DD(117.332,"B","PERSONAL SERVICE-TECH 1019",2)=""
^DD(117.332,"B","PERSONAL SERVICE-WAGEBRD 1008",4)=""
^DD(117.332,"B","SUBSISTENCE 2610",6)=""
^DD(117.332,"B","TOTAL PERSONAL SERVICE",1)=""
^DD(117.332,"GL",0,1,.01)=""
^DD(117.332,"GL",0,2,1)=""
^DD(117.332,"GL",0,3,2)=""
^DD(117.332,"GL",0,4,3)=""
^DD(117.332,"GL",0,5,4)=""
^DD(117.332,"GL",0,6,5)=""
^DD(117.332,"GL",0,7,6)=""
^DD(117.332,"GL",0,8,7)=""
^DD(117.332,"IX",.01)=""
^DD(117.338,0)="DIETETIC EQUIPMENT SUB-FIELD^^1^2"
^DD(117.338,0,"DT")="2920915"
^DD(117.338,0,"IX","B",117.338,.01)=""
^DD(117.338,0,"NM","DIETETIC EQUIPMENT")=""
^DD(117.338,0,"UP")="117.3"
^DD(117.338,.01,0)="DIETETIC EQUIPMENT^M*P117.4'^FH(117.4,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=""""E"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(117.338,.01,1,0)="^.1"
^DD(117.338,.01,1,1,0)="117.338^B"
^DD(117.338,.01,1,1,1)="S ^FH(117.3,DA(1),""EQUI"",""B"",$E(X,1,30),DA)="""""
^DD(117.338,.01,1,1,2)="K ^FH(117.3,DA(1),""EQUI"",""B"",$E(X,1,30),DA)"
^DD(117.338,.01,12)="SELECT ONLY THE DIETETIC SERVICE EQUIPMENT."
^DD(117.338,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""E"""""""
^DD(117.338,.01,21,0)="^^1^1^2920916^^^^"
^DD(117.338,.01,21,1,0)="This field contains the pointer to The Dietetic Report Category file."
^DD(117.338,.01,"DT")="2920915"
^DD(117.338,1,0)="BRAND^F^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(117.338,1,3)="Answer must be 3-45 characters in length."
^DD(117.338,1,21,0)="^^1^1^2920207^"
^DD(117.338,1,21,1,0)="This field contains the Brand of the Dietetic Equipment Service."
^DD(117.338,1,"DT")="2920207"
^DD(117.338,"B","BRAND",1)=""
^DD(117.338,"B","DIETETIC EQUIPMENT",.01)=""
^DD(117.338,"GL",0,1,.01)=""
^DD(117.338,"GL",0,2,1)=""
^DD(117.338,"IX",.01)=""
^DD(117.356,0)="AREAS OF RESEARCH SUB-FIELD^^.01^1"
^DD(117.356,0,"DT")="2930204"
^DD(117.356,0,"IX","B",117.356,.01)=""
^DD(117.356,0,"NM","AREAS OF RESEARCH")=""
^DD(117.356,0,"UP")="117.3"
^DD(117.356,.01,0)="AREAS OF RESEARCH^MRS^1:CLINICAL;2:COMMUNITY;3:COST/BENEFIT;4:EDUCATION;5:MANAGEMENT;^0;1^Q"
^DD(117.356,.01,1,0)="^.1"
^DD(117.356,.01,1,1,0)="117.356^B"
^DD(117.356,.01,1,1,1)="S ^FH(117.3,DA(1),""AREA"",""B"",$E(X,1,30),DA)="""""
^DD(117.356,.01,1,1,2)="K ^FH(117.3,DA(1),""AREA"",""B"",$E(X,1,30),DA)"
^DD(117.356,.01,21,0)="^^2^2^2930204^"
^DD(117.356,.01,21,1,0)="This field contains Areas of Research under Unfunded Nutrition"
^DD(117.356,.01,21,2,0)="Research."
^DD(117.356,.01,"DT")="2930204"
^DD(117.356,"B","AREAS OF RESEARCH",.01)=""
^DD(117.356,"GL",0,1,.01)=""
^DD(117.356,"IX",.01)=""
^DD(117.356,"RQ",.01)=""
^DD(117.358,0)="OLD SURVEY - APPETIZING SUB-FIELD^^6^7"
^DD(117.358,0,"DT")="2931222"
^DD(117.358,0,"IX","B",117.358,.01)=""
^DD(117.358,0,"NM","OLD SURVEY - APPETIZING")=""
^DD(117.358,0,"UP")="117.3"
^DD(117.358,.01,0)="APPETIZING 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.358,.01,1,0)="^.1"
^DD(117.358,.01,1,1,0)="117.358^B"
^DD(117.358,.01,1,1,1)="S ^FH(117.3,DA(1),""APP"",""B"",$E(X,1,30),DA)="""""
^DD(117.358,.01,1,1,2)="K ^FH(117.3,DA(1),""APP"",""B"",$E(X,1,30),DA)"
^DD(117.358,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.358,.01,21,0)="^.001^2^2^3011003^^^^"
^DD(117.358,.01,21,1,0)="This field contains a sequential number assigned to the first question"
^DD(117.358,.01,21,2,0)="of the Dietetic Survey and has no meaning."
^DD(117.358,.01,"DT")="2931221"
^DD(117.358,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.358,1,3)="Answer must be 2-35 characters in length."
^DD(117.358,1,4)="D HEL^FHADR9"
^DD(117.358,1,21,0)="^.001^2^2^3011003^^^^"
^DD(117.358,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.358,1,21,2,0)="ratings specified in front of them on question one of the survey."
^DD(117.358,1,"DT")="2931229"
^DD(117.358,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.358,2,3)="Answer must be 2-35 characters in length."
^DD(117.358,2,4)="D HEL^FHADR9"
^DD(117.358,2,21,0)="^.001^2^2^3011003^^^^"
^DD(117.358,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the"
^DD(117.358,2,21,2,0)="ratings specified in front of them on question one of the survey."
^DD(117.358,2,"DT")="2931229"
^DD(117.358,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.358,3,3)="Answer must be 2-35 characters in length."
^DD(117.358,3,4)="D HEL^FHADR9"
^DD(117.358,3,21,0)="^.001^2^2^3011003^^^^"
^DD(117.358,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the"
^DD(117.358,3,21,2,0)="ratings specified in front of them on question one of the survey."
^DD(117.358,3,"DT")="2931229"
^DD(117.358,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.358,4,3)="Answer must be 2-35 characters in length."
^DD(117.358,4,4)="D HEL^FHADR9"
^DD(117.358,4,21,0)="^.001^2^2^3011003^^^^"
^DD(117.358,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.358,4,21,2,0)="ratings specified in front of them on question one of the survey."
^DD(117.358,4,"DT")="2931229"
^DD(117.358,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.358,5,3)="Answer must be 2-35 characters in length."
^DD(117.358,5,4)="D HEL^FHADR9"
^DD(117.358,5,21,0)="^.001^2^2^3011003^^^^"
^DD(117.358,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.358,5,21,2,0)="ratings specified in front of them on question one of the survey."
^DD(117.358,5,"DT")="2931229"
^DD(117.358,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.358,6,3)="Answer must be 2-35 characters in length."
^DD(117.358,6,4)="D HEL^FHADR9"
^DD(117.358,6,21,0)="^.001^2^2^3011003^^^^"
^DD(117.358,6,21,1,0)="This is a rating string containing numbers surveyed in other services with"
^DD(117.358,6,21,2,0)="ratings specified in front of them on question one of the survey."
^DD(117.358,6,"DT")="2931229"
^DD(117.358,"B","APPETIZING NUMBER",.01)=""
^DD(117.358,"B","DOM",4)=""
^DD(117.358,"B","GM&S",1)=""
^DD(117.358,"B","NHCU",2)=""
^DD(117.358,"B","OTHER",6)=""
^DD(117.358,"B","PSYCH",3)=""
^DD(117.358,"B","SCI",5)=""
^DD(117.358,"GL",0,1,.01)=""
^DD(117.358,"GL",0,2,1)=""
^DD(117.358,"GL",0,3,2)=""
^DD(117.358,"GL",0,4,3)=""
^DD(117.358,"GL",0,5,4)=""
^DD(117.358,"GL",0,6,5)=""
^DD(117.358,"GL",0,7,6)=""
^DD(117.358,"IX",.01)=""
^DD(117.359,0)="OLD SURVEY - TASTE SUB-FIELD^^6^7"
^DD(117.359,0,"DT")="2931222"
^DD(117.359,0,"IX","B",117.359,.01)=""
^DD(117.359,0,"NM","OLD SURVEY - TASTE")=""
^DD(117.359,0,"UP")="117.3"
^DD(117.359,.01,0)="TASTE 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.359,.01,1,0)="^.1"
^DD(117.359,.01,1,1,0)="117.359^B"
^DD(117.359,.01,1,1,1)="S ^FH(117.3,DA(1),""TAS"",""B"",$E(X,1,30),DA)="""""
^DD(117.359,.01,1,1,2)="K ^FH(117.3,DA(1),""TAS"",""B"",$E(X,1,30),DA)"
^DD(117.359,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.359,.01,21,0)="^^2^2^2931222^^"
^DD(117.359,.01,21,1,0)="This field contains a sequential number assigned to question two"
^DD(117.359,.01,21,2,0)="of the Dietetic Survey and has no meaning."
^DD(117.359,.01,"DT")="2931222"
^DD(117.359,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.359,1,3)="Answer must be 2-35 characters in length."
^DD(117.359,1,4)="D HEL^FHADR9"
^DD(117.359,1,21,0)="^^2^2^2931222^"
^DD(117.359,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the"
^DD(117.359,1,21,2,0)="ratings specified in front of them on question two of the survey."
^DD(117.359,1,"DT")="2931229"
^DD(117.359,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.359,2,3)="Answer must be 2-35 characters in length."
^DD(117.359,2,4)="D HEL^FHADR9"
^DD(117.359,2,21,0)="^^2^2^2931222^^"
^DD(117.359,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the"
^DD(117.359,2,21,2,0)="ratings specified in front of them on question two of the survey."
^DD(117.359,2,"DT")="2931229"
^DD(117.359,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.359,3,3)="Answer must be 2-35 characters in length."
^DD(117.359,3,4)="D HEL^FHADR9"
^DD(117.359,3,21,0)="^^2^2^2931222^"
^DD(117.359,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the"
^DD(117.359,3,21,2,0)="ratings specified in front of them on question two of the survey."
^DD(117.359,3,"DT")="2931229"
^DD(117.359,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.359,4,3)="Answer must be 2-35 characters in length."
^DD(117.359,4,4)="D HEL^FHADR9"
^DD(117.359,4,21,0)="^^2^2^2931222^"
^DD(117.359,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.359,4,21,2,0)="ratings specified in front of them on question two of the survey."
^DD(117.359,4,"DT")="2931229"
^DD(117.359,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.359,5,3)="Answer must be 2-35 characters in length."
^DD(117.359,5,4)="D HEL^FHADR9"
^DD(117.359,5,21,0)="^^2^2^2931222^^"
^DD(117.359,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.359,5,21,2,0)="ratings specified in front of them on question two of the survey."
^DD(117.359,5,"DT")="2931229"
^DD(117.359,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.359,6,3)="Answer must be 2-35 characters in length."
^DD(117.359,6,4)="D HEL^FHADR9"
^DD(117.359,6,21,0)="^^2^2^2931222^"
^DD(117.359,6,21,1,0)="This is a rating string containing numbers surveyed in other service"
^DD(117.359,6,21,2,0)="with the ratings specified in front of them on question two of the survey."
^DD(117.359,6,"DT")="2931229"
^DD(117.359,"B","DOM",4)=""
^DD(117.359,"B","GM&S",1)=""
^DD(117.359,"B","NHCU",2)=""
^DD(117.359,"B","OTHER",6)=""
^DD(117.359,"B","PSYCH",3)=""
^DD(117.359,"B","SCI",5)=""
^DD(117.359,"B","TASTE NUMBER",.01)=""
^DD(117.359,"GL",0,1,.01)=""
^DD(117.359,"GL",0,2,1)=""
^DD(117.359,"GL",0,3,2)=""
^DD(117.359,"GL",0,4,3)=""
^DD(117.359,"GL",0,5,4)=""
^DD(117.359,"GL",0,6,5)=""
^DD(117.359,"GL",0,7,6)=""
^DD(117.359,"IX",.01)=""
^DD(117.361,0)="OLD SURVEY - VARIETY SUB-FIELD^^6^7"
^DD(117.361,0,"DT")="2931223"
^DD(117.361,0,"IX","B",117.361,.01)=""
^DD(117.361,0,"NM","OLD SURVEY - VARIETY")=""
^DD(117.361,0,"UP")="117.3"
^DD(117.361,.01,0)="VARIETY 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.361,.01,1,0)="^.1"
^DD(117.361,.01,1,1,0)="117.361^B"
^DD(117.361,.01,1,1,1)="S ^FH(117.3,DA(1),""VAR"",""B"",$E(X,1,30),DA)="""""
^DD(117.361,.01,1,1,2)="K ^FH(117.3,DA(1),""VAR"",""B"",$E(X,1,30),DA)"
^DD(117.361,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.361,.01,21,0)="^^2^2^2931228^^"
^DD(117.361,.01,21,1,0)="This field contains a sequential number assigned to question four"
^DD(117.361,.01,21,2,0)="of the Dietetic Survey and has no meaning."
^DD(117.361,.01,"DT")="2931228"
^DD(117.361,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.361,1,3)="Answer must be 2-35 characters in length."
^DD(117.361,1,4)="D HEL^FHADR9"
^DD(117.361,1,21,0)="^^2^2^2931223^"
^DD(117.361,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the"
^DD(117.361,1,21,2,0)="ratings specified in front of them on question four of the survey."
^DD(117.361,1,"DT")="2931230"
^DD(117.361,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.361,2,3)="Answer must be 2-35 characters in length."
^DD(117.361,2,4)="D HEL^FHADR9"
^DD(117.361,2,21,0)="^^2^2^2931223^"
^DD(117.361,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the"
^DD(117.361,2,21,2,0)="ratings specified in front of them on question four of the survey."
^DD(117.361,2,"DT")="2931230"
^DD(117.361,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.361,3,3)="Answer must be 2-35 characters in length."
^DD(117.361,3,4)="D HEL^FHADR9"
^DD(117.361,3,21,0)="^^2^2^2931223^"
^DD(117.361,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the"
^DD(117.361,3,21,2,0)="ratings specified in front of them on question four of the survey."
^DD(117.361,3,"DT")="2931230"
^DD(117.361,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.361,4,3)="Answer must be 2-35 characters in length."
^DD(117.361,4,4)="D HEL^FHADR9"
^DD(117.361,4,21,0)="^^2^2^2931223^"
^DD(117.361,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.361,4,21,2,0)="ratings specified in front of them on question four of the survey."
^DD(117.361,4,"DT")="2931230"
^DD(117.361,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.361,5,3)="Answer must be 2-35 characters in length."
^DD(117.361,5,4)="D HEL^FHADR9"
^DD(117.361,5,21,0)="^^2^2^2931223^"
^DD(117.361,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.361,5,21,2,0)="ratings specified in front of them on question four of the survey."
^DD(117.361,5,"DT")="2931230"
^DD(117.361,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.361,6,3)="Answer must be 2-35 characters in length."
^DD(117.361,6,4)="D HEL^FHADR9"
^DD(117.361,6,21,0)="^^3^3^2931223^"
^DD(117.361,6,21,1,0)="This is a rating string containing numbers surveyed in other service"
^DD(117.361,6,21,2,0)="with the ratings specified in front of them on question four of the"
^DD(117.361,6,21,3,0)="survey."
^DD(117.361,6,"DT")="2931230"
^DD(117.361,"B","DOM",4)=""
^DD(117.361,"B","GM&S",1)=""
^DD(117.361,"B","NHCU",2)=""
^DD(117.361,"B","OTHER",6)=""
^DD(117.361,"B","PSYCH",3)=""
^DD(117.361,"B","SCI",5)=""
^DD(117.361,"B","VARIETY NUMBER",.01)=""
^DD(117.361,"GL",0,1,.01)=""
^DD(117.361,"GL",0,2,1)=""
^DD(117.361,"GL",0,3,2)=""
^DD(117.361,"GL",0,4,3)=""
^DD(117.361,"GL",0,5,4)=""
^DD(117.361,"GL",0,6,5)=""
^DD(117.361,"GL",0,7,6)=""
^DD(117.361,"IX",.01)=""
^DD(117.362,0)="OLD SURVEY - CLEANLINESS SUB-FIELD^^6^7"
^DD(117.362,0,"DT")="2931228"
^DD(117.362,0,"IX","B",117.362,.01)=""
^DD(117.362,0,"NM","OLD SURVEY - CLEANLINESS")=""
^DD(117.362,0,"UP")="117.3"
^DD(117.362,.01,0)="CLEANLINESS 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.362,.01,1,0)="^.1"
^DD(117.362,.01,1,1,0)="117.362^B"
^DD(117.362,.01,1,1,1)="S ^FH(117.3,DA(1),""CLN"",""B"",$E(X,1,30),DA)="""""
^DD(117.362,.01,1,1,2)="K ^FH(117.3,DA(1),""CLN"",""B"",$E(X,1,30),DA)"
^DD(117.362,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.362,.01,21,0)="^^2^2^2931228^^"
^DD(117.362,.01,21,1,0)="This field contains a sequential number assigned to question five of"
^DD(117.362,.01,21,2,0)="the Dietetic Survey and has no meaning."
^DD(117.362,.01,"DT")="2931228"
^DD(117.362,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.362,1,3)="Answer must be 2-35 characters in length."
^DD(117.362,1,4)="D HEL^FHADR9"
^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.362,"B","CLEANLINESS NUMBER",.01)=""
^DD(117.362,"B","DOM",4)=""
^DD(117.362,"B","GM&S",1)=""
^DD(117.362,"B","NHCU",2)=""
^DD(117.362,"B","OTHER",6)=""
^DD(117.362,"B","PSYCH",3)=""
^DD(117.362,"B","SCI",5)=""
^DD(117.362,"GL",0,1,.01)=""
^DD(117.362,"GL",0,2,1)=""
^DD(117.362,"GL",0,3,2)=""
^DD(117.362,"GL",0,4,3)=""
^DD(117.362,"GL",0,5,4)=""
^DD(117.362,"GL",0,6,5)=""
^DD(117.362,"GL",0,7,6)=""
^DD(117.362,"IX",.01)=""
^DD(117.363,0)="OLD SURVEY - 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","OLD SURVEY - 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^"
^DD(117.363,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with"
^DD(117.363,3,21,2,0)="the ratings specified in front of them on question six of the survey."
^DD(117.363,3,"DT")="2931230"
^DD(117.363,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.363,4,3)="Answer must be 2-35 characters in length."
^DD(117.363,4,4)="D HEL^FHADR9"
^DD(117.363,4,21,0)="^^2^2^2931228^"
^DD(117.363,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.363,4,21,2,0)="ratings specified in front of them on question six of the survey."
^DD(117.363,4,"DT")="2931230"
^DD(117.363,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.363,5,3)="Answer must be 2-35 characters in length."
^DD(117.363,5,4)="D HEL^FHADR9"
^DD(117.363,5,21,0)="^^2^2^2931228^"
^DD(117.363,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.363,5,21,2,0)="ratings specified in front of them on question six of the survey."
^DD(117.363,5,"DT")="2931230"
^DD(117.363,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.363,6,3)="Answer must be 2-35 characters in length."
^DD(117.363,6,4)="D HEL^FHADR9"
^DD(117.363,6,21,0)="^^3^3^2931228^"
^DD(117.363,6,21,1,0)="This is a rating string containing numbers surveyed in other service"
^DD(117.363,6,21,2,0)="with the ratings specified in front of them on question six of the"
^DD(117.363,6,21,3,0)="survey."
^DD(117.363,6,"DT")="2931230"
^DD(117.363,"B","COURTEOUS NUMBER",.01)=""
^DD(117.363,"B","DOM",4)=""
^DD(117.363,"B","GM&S",1)=""
^DD(117.363,"B","NHCU",2)=""
^DD(117.363,"B","OTHER",6)=""
^DD(117.363,"B","PSYCH",3)=""
^DD(117.363,"B","SCI",5)=""
^DD(117.363,"GL",0,1,.01)=""
^DD(117.363,"GL",0,2,1)=""
^DD(117.363,"GL",0,3,2)=""
^DD(117.363,"GL",0,4,3)=""
^DD(117.363,"GL",0,5,4)=""
^DD(117.363,"GL",0,6,5)=""
^DD(117.363,"GL",0,7,6)=""
^DD(117.363,"IX",.01)=""
^DD(117.364,0)="OLD SURVEY - TIME SUB-FIELD^^6^7"
^DD(117.364,0,"DT")="2931228"
^DD(117.364,0,"IX","B",117.364,.01)=""
^DD(117.364,0,"NM","OLD SURVEY - TIME")=""
^DD(117.364,0,"UP")="117.3"
^DD(117.364,.01,0)="TIME 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.364,.01,1,0)="^.1"
^DD(117.364,.01,1,1,0)="117.364^B"
^DD(117.364,.01,1,1,1)="S ^FH(117.3,DA(1),""TIM"",""B"",$E(X,1,30),DA)="""""
^DD(117.364,.01,1,1,2)="K ^FH(117.3,DA(1),""TIM"",""B"",$E(X,1,30),DA)"
^DD(117.364,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.364,.01,21,0)="^^2^2^2931228^"
^DD(117.364,.01,21,1,0)="This field contains a sequential number assigned to question seven"
^DD(117.364,.01,21,2,0)="of the Dietetic Survey and has no meaning."
^DD(117.364,.01,"DT")="2931228"
^DD(117.364,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.364,1,3)="Answer must be 2-35 characters in length."
^DD(117.364,1,4)="D HEL^FHADR9"
^DD(117.364,1,21,0)="^^2^2^2931228^"
^DD(117.364,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the"
^DD(117.364,1,21,2,0)="ratings specified in front of them on question seven of the survey."
^DD(117.364,1,"DT")="2931230"
^DD(117.364,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.364,2,3)="Answer must be 2-35 characters in length."
^DD(117.364,2,4)="D HEL^FHADR9"
^DD(117.364,2,21,0)="^^2^2^2931228^"
^DD(117.364,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the"
^DD(117.364,2,21,2,0)="ratings specified in front of them on question seven of the survey."
^DD(117.364,2,"DT")="2931230"
^DD(117.364,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.364,3,3)="Answer must be 2-35 characters in length."
^DD(117.364,3,4)="D HEL^FHADR9"
^DD(117.364,3,21,0)="^^3^3^2931228^"
^DD(117.364,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH"
^DD(117.364,3,21,2,0)="with the ratings specified in front of them on question seven"
^DD(117.364,3,21,3,0)="of the survey."
^DD(117.364,3,"DT")="2931230"
^DD(117.364,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.364,4,3)="Answer must be 2-35 characters in length."
^DD(117.364,4,4)="D HEL^FHADR9"
^DD(117.364,4,21,0)="^^2^2^2931228^"
^DD(117.364,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.364,4,21,2,0)="ratings specified in front of them on question seven of the survey."
^DD(117.364,4,"DT")="2931230"
^DD(117.364,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.364,5,3)="Answer must be 2-35 characters in length."
^DD(117.364,5,4)="D HEL^FHADR9"
^DD(117.364,5,21,0)="^^2^2^2931228^"
^DD(117.364,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.364,5,21,2,0)="ratings specified in front of them on question seven of the survey."
^DD(117.364,5,"DT")="2931230"
^DD(117.364,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.364,6,3)="Answer must be 2-35 characters in length."
^DD(117.364,6,4)="D HEL^FHADR9"
^DD(117.364,6,21,0)="^^3^3^2931228^"
^DD(117.364,6,21,1,0)="This is a rating string containing numbers surveyed in other services"
^DD(117.364,6,21,2,0)="with the ratings specified in front of them on question seven of the"
^DD(117.364,6,21,3,0)="survey."
^DD(117.364,6,"DT")="2931230"
^DD(117.364,"B","DOM",4)=""
^DD(117.364,"B","GM&S",1)=""
^DD(117.364,"B","NHCU",2)=""
^DD(117.364,"B","OTHER",6)=""
^DD(117.364,"B","PSYCH",3)=""
^DD(117.364,"B","SCI",5)=""
^DD(117.364,"B","TIME NUMBER",.01)=""
^DD(117.364,"GL",0,1,.01)=""
^DD(117.364,"GL",0,2,1)=""
^DD(117.364,"GL",0,3,2)=""
^DD(117.364,"GL",0,4,3)=""
^DD(117.364,"GL",0,5,4)=""
^DD(117.364,"GL",0,6,5)=""
^DD(117.364,"GL",0,7,6)=""
^DD(117.364,"IX",.01)=""
^DD(117.365,0)="OLD SURVEY - INFO SUB-FIELD^^6^7"
^DD(117.365,0,"DT")="2931228"
^DD(117.365,0,"IX","B",117.365,.01)=""
^DD(117.365,0,"NM","OLD SURVEY - INFO")=""
^DD(117.365,0,"UP")="117.3"
^DD(117.365,.01,0)="INFO 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.365,.01,1,0)="^.1"
^DD(117.365,.01,1,1,0)="117.365^B"
^DD(117.365,.01,1,1,1)="S ^FH(117.3,DA(1),""INF"",""B"",$E(X,1,30),DA)="""""
^DD(117.365,.01,1,1,2)="K ^FH(117.3,DA(1),""INF"",""B"",$E(X,1,30),DA)"
^DD(117.365,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.365,.01,21,0)="^^2^2^2931228^"
^DD(117.365,.01,21,1,0)="This field contains a sequential number assigned to question eight"
^DD(117.365,.01,21,2,0)="of the Dietetic Survey and has no meaning."
^DD(117.365,.01,"DT")="2931228"
^DD(117.365,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.365,1,3)="Answer must be 2-35 characters in length."
^DD(117.365,1,4)="D HEL^FHADR9"
^DD(117.365,1,21,0)="^^2^2^2931228^"
^DD(117.365,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the"
^DD(117.365,1,21,2,0)="ratings specified in front of them on question eight of the survey."
^DD(117.365,1,"DT")="2931230"
^DD(117.365,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.365,2,3)="Answer must be 2-35 characters in length."
^DD(117.365,2,4)="D HEL^FHADR9"
^DD(117.365,2,21,0)="^^2^2^2931228^"
^DD(117.365,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the"
^DD(117.365,2,21,2,0)="ratings specified in front of them on question eight of the survey."
^DD(117.365,2,"DT")="2931230"
^DD(117.365,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.365,3,3)="Answer must be 2-35 characters in length."
^DD(117.365,3,4)="D HEL^FHADR9"
^DD(117.365,3,21,0)="^^3^3^2931228^"
^DD(117.365,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with"
^DD(117.365,3,21,2,0)="the ratings specified in front of them on question eight of the"
^DD(117.365,3,21,3,0)="survey."
^DD(117.365,3,"DT")="2931230"
^DD(117.365,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.365,4,3)="Answer must be 2-35 characters in length."
^DD(117.365,4,4)="D HEL^FHADR9"
^DD(117.365,4,21,0)="^^2^2^2931228^"
^DD(117.365,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.365,4,21,2,0)="ratings specified in front of them on question eight of the survey."
^DD(117.365,4,"DT")="2931230"
^DD(117.365,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X D C0^FHADR9"
^DD(117.365,5,3)="Answer must be 2-35 characters in length."
^DD(117.365,5,4)="D HEL^FHADR9"
^DD(117.365,5,21,0)="^^2^2^2931228^"
^DD(117.365,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.365,5,21,2,0)="ratings specified in front of them on question eight of the survey."
^DD(117.365,5,"DT")="2931230"
^DD(117.365,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.365,6,3)="Answer must be 2-35 characters in length."
^DD(117.365,6,4)="D HEL^FHADR9"
^DD(117.365,6,21,0)="^^3^3^2931228^"
^DD(117.365,6,21,1,0)="This is a rating string containing numbers surveyed in other services"
^DD(117.365,6,21,2,0)="with the ratings specified in front of them on question eight of"
^DD(117.365,6,21,3,0)="the survey."
^DD(117.365,6,"DT")="2931230"
^DD(117.365,"B","DOM",4)=""
^DD(117.365,"B","GM&S",1)=""
^DD(117.365,"B","INFO NUMBER",.01)=""
^DD(117.365,"B","NHCU",2)=""
^DD(117.365,"B","OTHER",6)=""
^DD(117.365,"B","PSYCH",3)=""
^DD(117.365,"B","SCI",5)=""
^DD(117.365,"GL",0,1,.01)=""
^DD(117.365,"GL",0,2,1)=""
^DD(117.365,"GL",0,3,2)=""
^DD(117.365,"GL",0,4,3)=""
^DD(117.365,"GL",0,5,4)=""
^DD(117.365,"GL",0,6,5)=""
^DD(117.365,"GL",0,7,6)=""
^DD(117.365,"IX",.01)=""
^DD(117.366,0)="OLD SURVEY - OVERALL SUB-FIELD^^6^7"
^DD(117.366,0,"DT")="2931228"
^DD(117.366,0,"IX","B",117.366,.01)=""
^DD(117.366,0,"NM","OLD SURVEY - OVERALL")=""
^DD(117.366,0,"UP")="117.3"
^DD(117.366,.01,0)="OVERALL 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.366,.01,1,0)="^.1"
^DD(117.366,.01,1,1,0)="117.366^B"
^DD(117.366,.01,1,1,1)="S ^FH(117.3,DA(1),""OVA"",""B"",$E(X,1,30),DA)="""""
^DD(117.366,.01,1,1,2)="K ^FH(117.3,DA(1),""OVA"",""B"",$E(X,1,30),DA)"
^DD(117.366,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.366,.01,21,0)="^^2^2^2931228^"
^DD(117.366,.01,21,1,0)="This field contains a sequential number assigned to question nine"
^DD(117.366,.01,21,2,0)="of the Dietetic Survey and has no meaning."
^DD(117.366,.01,"DT")="2931228"
^DD(117.366,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.366,1,3)="Answer must be 2-35 characters in length."
^DD(117.366,1,4)="D HEL^FHADR9"
^DD(117.366,1,21,0)="^^2^2^2931228^"
^DD(117.366,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the"
^DD(117.366,1,21,2,0)="ratings specified in front of them on question nine of the survey."
^DD(117.366,1,"DT")="2931230"
^DD(117.366,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.366,2,3)="Answer must be 2-35 characters in length."
^DD(117.366,2,4)="D HEL^FHADR9"
^DD(117.366,2,21,0)="^^2^2^2931228^"
^DD(117.366,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the"
^DD(117.366,2,21,2,0)="ratings specified in front of them on question nine of the survey."
^DD(117.366,2,"DT")="2931230"
^DD(117.366,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.366,3,3)="Answer must be 2-35 characters in length."
^DD(117.366,3,4)="D HEL^FHADR9"
^DD(117.366,3,21,0)="^^2^2^2931228^"
^DD(117.366,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with"
^DD(117.366,3,21,2,0)="the ratings specified in front of them on question nine of the survey."
^DD(117.366,3,"DT")="2931230"
^DD(117.366,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.366,4,3)="Answer must be 2-35 characters in length."
^DD(117.366,4,4)="D HEL^FHADR9"
^DD(117.366,4,21,0)="^^2^2^2931228^"
^DD(117.366,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the"
^DD(117.366,4,21,2,0)="ratings specified in front of them on question nine of the survey."
^DD(117.366,4,"DT")="2931230"
^DD(117.366,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.366,5,3)="Answer must be 2-35 characters in length."
^DD(117.366,5,4)="D HEL^FHADR9"
^DD(117.366,5,21,0)="^^2^2^2931228^"
^DD(117.366,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the"
^DD(117.366,5,21,2,0)="ratings specified in front of them on question nine of the survey."
^DD(117.366,5,"DT")="2931230"
^DD(117.366,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.366,6,3)="Answer must be 2-35 characters in length."
^DD(117.366,6,4)="D HEL^FHADR9"
^DD(117.366,6,21,0)="^^3^3^2931228^"
^DD(117.366,6,21,1,0)="This is a rating string containing numbers surveyed in other services"
^DD(117.366,6,21,2,0)="with the ratings specified in front of them on question nine of the"
^DD(117.366,6,21,3,0)="survey."
^DD(117.366,6,"DT")="2931230"
^DD(117.366,"B","DOM",4)=""
^DD(117.366,"B","GM&S",1)=""
^DD(117.366,"B","NHCU",2)=""
^DD(117.366,"B","OTHER",6)=""
^DD(117.366,"B","OVERALL NUMBER",.01)=""
^DD(117.366,"B","PSYCH",3)=""
^DD(117.366,"B","SCI",5)=""
^DD(117.366,"GL",0,1,.01)=""
^DD(117.366,"GL",0,2,1)=""
^DD(117.366,"GL",0,3,2)=""
^DD(117.366,"GL",0,4,3)=""
^DD(117.366,"GL",0,5,4)=""
^DD(117.366,"GL",0,6,5)=""
^DD(117.366,"GL",0,7,6)=""
^DD(117.366,"IX",.01)=""
^DD(117.37,0)="APPETIZING SUB-FIELD^^6^7"
^DD(117.37,0,"DT")="3011003"
^DD(117.37,0,"IX","B",117.37,.01)=""
^DD(117.37,0,"NM","APPETIZING")=""
^DD(117.37,0,"UP")="117.3"
^DD(117.37,.01,0)="APPETIZING 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.37,.01,1,0)="^.1"
^DD(117.37,.01,1,1,0)="117.37^B"
^DD(117.37,.01,1,1,1)="S ^FH(117.3,DA(1),""Q1AP"",""B"",$E(X,1,30),DA)="""""
^DD(117.37,.01,1,1,2)="K ^FH(117.3,DA(1),""Q1AP"",""B"",$E(X,1,30),DA)"
^DD(117.37,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.37,.01,21,0)="^.001^2^2^3011004^^^"
^DD(117.37,.01,21,1,0)="This field contains a sequential number assigned to the first question"
^DD(117.37,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.37,.01,"DT")="3011003"
^DD(117.37,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.37,1,3)="Answer must be 2-35 characters in length."
^DD(117.37,1,4)="D HEL^FHADR9"
^DD(117.37,1,21,0)="^.001^2^2^3011004^^^^"
^DD(117.37,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.37,1,21,2,0)="ratings specified in front of them, for question #1 of the survey."
^DD(117.37,1,"DT")="3011003"
^DD(117.37,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.37,2,3)="Answer must be 2-35 characters in length."
^DD(117.37,2,4)="D HEL^FHADR9"
^DD(117.37,2,21,0)="^.001^2^2^3011003^^^"
^DD(117.37,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.37,2,21,2,0)="ratings specified in front of them, for question #1 of the survey."
^DD(117.37,2,"DT")="3011003"
^DD(117.37,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.37,3,3)="Answer must be 2-35 characters in length."
^DD(117.37,3,4)="D HEL^FHADR9"
^DD(117.37,3,21,0)="^.001^2^2^3011003^^"
^DD(117.37,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.37,3,21,2,0)="ratings specified in front of them, for question #1 of the survey."
^DD(117.37,3,"DT")="3011003"
^DD(117.37,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.37,4,3)="Answer must be 2-35 characters in length."
^DD(117.37,4,4)="D HEL^FHADR9"
^DD(117.37,4,21,0)="^.001^2^2^3011003^^"
^DD(117.37,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.37,4,21,2,0)="ratings specified in front of them, for question #1 of the survey."
^DD(117.37,4,"DT")="3011003"
^DD(117.37,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.37,5,3)="Answer must be 2-35 characters in length."
^DD(117.37,5,4)="D HEL^FHADR9"
^DD(117.37,5,21,0)="^^2^2^3011003^"
^DD(117.37,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.37,5,21,2,0)="ratings specified in front of them, for question #1 of the survey."
^DD(117.37,5,"DT")="3011003"
^DD(117.37,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.37,6,3)="Answer must be 2-35 characters in length."
^DD(117.37,6,4)="D HEL^FHADR9"
^DD(117.37,6,21,0)="^^2^2^3011003^"
^DD(117.37,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.37,6,21,2,0)="ratings specified in front of them, for question #1 of the survey."
^DD(117.37,6,"DT")="3011003"
^DD(117.37,"B","APPETIZING NUMBER",.01)=""
^DD(117.37,"B","DOM",4)=""
^DD(117.37,"B","GM&S",1)=""
^DD(117.37,"B","NHCU",2)=""
^DD(117.37,"B","OTHER",6)=""
^DD(117.37,"B","PSYCH",3)=""
^DD(117.37,"B","SCI",5)=""
^DD(117.37,"GL",0,1,.01)=""
^DD(117.37,"GL",0,2,1)=""
^DD(117.37,"GL",0,3,2)=""
^DD(117.37,"GL",0,4,3)=""
^DD(117.37,"GL",0,5,4)=""
^DD(117.37,"GL",0,6,5)=""
^DD(117.37,"GL",0,7,6)=""
^DD(117.37,"IX",.01)=""
^DD(117.371,0)="FOODS PREFERRED SUB-FIELD^^6^7"
^DD(117.371,0,"DT")="3011003"
^DD(117.371,0,"IX","B",117.371,.01)=""
^DD(117.371,0,"NM","FOODS PREFERRED")=""
^DD(117.371,0,"UP")="117.3"
^DD(117.371,.01,0)="FOODS PREFERRED 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.371,.01,1,0)="^.1"
^DD(117.371,.01,1,1,0)="117.371^B"
^DD(117.371,.01,1,1,1)="S ^FH(117.3,DA(1),""Q2FP"",""B"",$E(X,1,30),DA)="""""
^DD(117.371,.01,1,1,2)="K ^FH(117.3,DA(1),""Q2FP"",""B"",$E(X,1,30),DA)"
^DD(117.371,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.371,.01,4)="D HEL^FHADR9"
^DD(117.371,.01,21,0)="^.001^2^2^3011003^^^^"
^DD(117.371,.01,21,1,0)="This field contains a sequential number assigned to the second question"
^DD(117.371,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.371,.01,"DT")="3011003"
^DD(117.371,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.371,1,3)="Answer must be 2-35 characters in length."
^DD(117.371,1,4)="D HEL^FHADR9"
^DD(117.371,1,21,0)="2"
^DD(117.371,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.371,1,21,2,0)="ratings specified in front of them, for question #2 of the survey."
^DD(117.371,1,"DT")="3011003"
^DD(117.371,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.371,2,3)="Answer must be 2-35 characters in length."
^DD(117.371,2,4)="D HEL^FHADR9"
^DD(117.371,2,21,0)="^^2^2^3011003^"
^DD(117.371,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.371,2,21,2,0)="ratings specified in front of them, for question #2 of the survey."
^DD(117.371,2,"DT")="3011003"
^DD(117.371,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.371,3,3)="Answer must be 2-35 characters in length."
^DD(117.371,3,4)="D HEL^FHADR9"
^DD(117.371,3,21,0)="^^2^2^3011003^"
^DD(117.371,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.371,3,21,2,0)="ratings specified in front of them, for question #2 of the survey."
^DD(117.371,3,"DT")="3011003"
^DD(117.371,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.371,4,3)="Answer must be 2-35 characters in length."
^DD(117.371,4,4)="D HEL^FHADR9"
^DD(117.371,4,21,0)="^^2^2^3011003^"
^DD(117.371,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.371,4,21,2,0)="ratings specified in front of them, for question #2 of the survey."
^DD(117.371,4,"DT")="3011003"
^DD(117.371,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.371,5,3)="Answer must be 2-35 characters in length."
^DD(117.371,5,4)="D HEL^FHADR9"
^DD(117.371,5,21,0)="^^2^2^3011003^"
^DD(117.371,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.371,5,21,2,0)="ratings specified in front of them, for question #2 of the survey."
^DD(117.371,5,"DT")="3011003"
^DD(117.371,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.371,6,3)="Answer must be 2-35 characters in length."
^DD(117.371,6,4)="D HEL^FHADR9"
^DD(117.371,6,21,0)="^^2^2^3011003^"
^DD(117.371,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.371,6,21,2,0)="ratings specified in front of them, for question #2 of the survey."
^DD(117.371,6,"DT")="3011003"
^DD(117.371,"B","DOM",4)=""
^DD(117.371,"B","FOODS PREFERRED NUMBER",.01)=""
^DD(117.371,"B","GM&S",1)=""
^DD(117.371,"B","NHCU",2)=""
^DD(117.371,"B","OTHER",6)=""
^DD(117.371,"B","PSYCH",3)=""
^DD(117.371,"B","SCI",5)=""
^DD(117.371,"GL",0,1,.01)=""
^DD(117.371,"GL",0,2,1)=""
^DD(117.371,"GL",0,3,2)=""
^DD(117.371,"GL",0,4,3)=""
^DD(117.371,"GL",0,5,4)=""
^DD(117.371,"GL",0,6,5)=""
^DD(117.371,"GL",0,7,6)=""
^DD(117.371,"IX",.01)=""
^DD(117.372,0)="HOT ENOUGH SUB-FIELD^^6^7"
^DD(117.372,0,"DT")="3011004"
^DD(117.372,0,"IX","B",117.372,.01)=""
^DD(117.372,0,"NM","HOT ENOUGH")=""
^DD(117.372,0,"UP")="117.3"
^DD(117.372,.01,0)="HOT ENOUGH 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.372,.01,1,0)="^.1"
^DD(117.372,.01,1,1,0)="117.372^B"
^DD(117.372,.01,1,1,1)="S ^FH(117.3,DA(1),""Q3HF"",""B"",$E(X,1,30),DA)="""""
^DD(117.372,.01,1,1,2)="K ^FH(117.3,DA(1),""Q3HF"",""B"",$E(X,1,30),DA)"
^DD(117.372,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.372,.01,21,0)="^.001^2^2^3011004^^^^"
^DD(117.372,.01,21,1,0)="This field contains a sequential number assigned to the third question"
^DD(117.372,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.372,.01,"DT")="3011004"
^DD(117.372,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.372,1,3)="Answer must be 2-35 characters in length."
^DD(117.372,1,4)="D HEL^FHADR9"
^DD(117.372,1,21,0)="^^2^2^3011004^"
^DD(117.372,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.372,1,21,2,0)="ratings specified in front of them, for question #3 of the survey."
^DD(117.372,1,"DT")="3011004"
^DD(117.372,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.372,2,3)="Answer must be 2-35 characters in length."
^DD(117.372,2,4)="D HEL^FHADR9"
^DD(117.372,2,21,0)="^^2^2^3011004^"
^DD(117.372,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.372,2,21,2,0)="ratings specified in front of them, for question #3 of the survey."
^DD(117.372,2,"DT")="3011004"
^DD(117.372,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.372,3,3)="Answer must be 2-35 characters in length."
^DD(117.372,3,4)="D HEL^FHADR9"
^DD(117.372,3,21,0)="^^2^2^3011004^"
^DD(117.372,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.372,3,21,2,0)="ratings specified in front of them, for question #3 of the survey."
^DD(117.372,3,"DT")="3011004"
^DD(117.372,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.372,4,3)="Answer must be 2-35 characters in length."
^DD(117.372,4,4)="D HEL^FHADR9"
^DD(117.372,4,21,0)="^^2^2^3011004^"
^DD(117.372,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.372,4,21,2,0)="ratings specified in front of them, for question #3 of the survey."
^DD(117.372,4,"DT")="3011004"
^DD(117.372,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.372,5,3)="Answer must be 2-35 characters in length."
^DD(117.372,5,4)="D HEL^FHADR9"
^DD(117.372,5,21,0)="^^2^2^3011004^"
^DD(117.372,5,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.372,5,21,2,0)="ratings specified in front of them, for question #3 of the survey."
^DD(117.372,5,"DT")="3011004"
^DD(117.372,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.372,6,3)="Answer must be 2-35 characters in length."
^DD(117.372,6,4)="D HEL^FHADR9"
^DD(117.372,6,21,0)="^^2^2^3011004^"
^DD(117.372,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.372,6,21,2,0)="ratings specified in front of them, for question #3 of the survey."
^DD(117.372,6,"DT")="3011004"
^DD(117.372,"B","DOM",4)=""
^DD(117.372,"B","GM&S",1)=""
^DD(117.372,"B","HOT ENOUGH NUMBER",.01)=""
^DD(117.372,"B","NHCU",2)=""
^DD(117.372,"B","OTHER",6)=""
^DD(117.372,"B","PSYCH",3)=""
^DD(117.372,"B","SCI",5)=""
^DD(117.372,"GL",0,1,.01)=""
^DD(117.372,"GL",0,2,1)=""
^DD(117.372,"GL",0,3,2)=""
^DD(117.372,"GL",0,4,3)=""
^DD(117.372,"GL",0,5,4)=""
^DD(117.372,"GL",0,6,5)=""
^DD(117.372,"GL",0,7,6)=""
^DD(117.372,"IX",.01)=""
^DD(117.373,0)="COLD ENOUGH SUB-FIELD^^6^7"
^DD(117.373,0,"DT")="3011004"
^DD(117.373,0,"IX","B",117.373,.01)=""
^DD(117.373,0,"NM","COLD ENOUGH")=""
^DD(117.373,0,"UP")="117.3"
^DD(117.373,.01,0)="COLD ENOUGH^NJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(117.373,.01,1,0)="^.1"
^DD(117.373,.01,1,1,0)="117.373^B"
^DD(117.373,.01,1,1,1)="S ^FH(117.3,DA(1),""Q4CF"",""B"",$E(X,1,30),DA)="""""
^DD(117.373,.01,1,1,2)="K ^FH(117.3,DA(1),""Q4CF"",""B"",$E(X,1,30),DA)"
^DD(117.373,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.373,.01,21,0)="^.001^2^2^3011004^^^"
^DD(117.373,.01,21,1,0)="This field contains a sequential number assigned to the fourth question"
^DD(117.373,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.373,.01,"DT")="3011004"
^DD(117.373,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.373,1,3)="Answer must be 2-35 characters in length."
^DD(117.373,1,4)="D HEL^FHADR9"
^DD(117.373,1,21,0)="^.001^2^2^3011004^^^"
^DD(117.373,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.373,1,21,2,0)="ratings specified in front of them, for question #4 of the survey."
^DD(117.373,1,"DT")="3011004"
^DD(117.373,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.373,2,3)="Answer must be 2-35 characters in length."
^DD(117.373,2,4)="D HEL^FHADR9"
^DD(117.373,2,21,0)="^^2^2^3011004^"
^DD(117.373,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.373,2,21,2,0)="ratings specified in front of them, for question #4 of the survey."
^DD(117.373,2,"DT")="3011004"
^DD(117.373,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.373,3,3)="Answer must be 2-35 characters in length."
^DD(117.373,3,4)="D HEL^FHADR9"
^DD(117.373,3,21,0)="^^2^2^3011004^"
^DD(117.373,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.373,3,21,2,0)="ratings specified in front of them, for question #4 of the survey."
^DD(117.373,3,"DT")="3011004"
^DD(117.373,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.373,4,3)="Answer must be 2-35 characters in length."
^DD(117.373,4,4)="D HEL^FHADR9"
^DD(117.373,4,21,0)="^^2^2^3011004^"
^DD(117.373,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.373,4,21,2,0)="ratings specified in front of them, for question #4 of the survey."
^DD(117.373,4,"DT")="3011004"
^DD(117.373,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.373,5,3)="Answer must be 2-35 characters in length."
^DD(117.373,5,4)="D HEL^FHADR9"
^DD(117.373,5,21,0)="^^2^2^3011004^"
^DD(117.373,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.373,5,21,2,0)="ratings specified in front of them, for question #4 of the survey."
^DD(117.373,5,"DT")="3011004"
^DD(117.373,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.373,6,3)="Answer must be 2-35 characters in length."
^DD(117.373,6,4)="D HEL^FHADR9"
^DD(117.373,6,21,0)="^^2^2^3011004^"
^DD(117.373,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.373,6,21,2,0)="ratings specified in front of them, for question #4 of the survey."
^DD(117.373,6,"DT")="3011004"
^DD(117.373,"B","COLD ENOUGH",.01)=""
^DD(117.373,"B","DOM",4)=""
^DD(117.373,"B","GM&S",1)=""
^DD(117.373,"B","NHCU",2)=""
^DD(117.373,"B","OTHER",6)=""
^DD(117.373,"B","PSYCH",3)=""
^DD(117.373,"B","SCI",5)=""
^DD(117.373,"GL",0,1,.01)=""
^DD(117.373,"GL",0,2,1)=""
^DD(117.373,"GL",0,3,2)=""
^DD(117.373,"GL",0,4,3)=""
^DD(117.373,"GL",0,5,4)=""
^DD(117.373,"GL",0,6,5)=""
^DD(117.373,"GL",0,7,6)=""
^DD(117.373,"IX",.01)=""
^DD(117.374,0)="COURTEOUS SUB-FIELD^^6^7"
^DD(117.374,0,"DT")="3011004"
^DD(117.374,0,"IX","B",117.374,.01)=""
^DD(117.374,0,"NM","COURTEOUS")=""
^DD(117.374,0,"UP")="117.3"
^DD(117.374,.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.374,.01,1,0)="^.1"
^DD(117.374,.01,1,1,0)="117.374^B"
^DD(117.374,.01,1,1,1)="S ^FH(117.3,DA(1),""Q5CR"",""B"",$E(X,1,30),DA)="""""
^DD(117.374,.01,1,1,2)="K ^FH(117.3,DA(1),""Q5CR"",""B"",$E(X,1,30),DA)"
^DD(117.374,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.374,.01,21,0)="^^2^2^3011004^"
^DD(117.374,.01,21,1,0)="This field contains a sequential number assigned to the fifth question"
^DD(117.374,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.374,.01,"DT")="3011004"
^DD(117.374,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.374,1,3)="Answer must be 2-35 characters in length."
^DD(117.374,1,4)="D HEL^FHADR9"
^DD(117.374,1,21,0)="^^2^2^3011004^"
^DD(117.374,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.374,1,21,2,0)="ratings specified in front of them, for question #5 of the survey."
^DD(117.374,1,"DT")="3011004"
^DD(117.374,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.374,2,3)="Answer must be 2-35 characters in length."
^DD(117.374,2,4)="D HEL^FHADR9"
^DD(117.374,2,21,0)="^^2^2^3011004^"
^DD(117.374,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.374,2,21,2,0)="ratings specified in front of them, for question #5 of the survey."
^DD(117.374,2,"DT")="3011004"
^DD(117.374,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.374,3,3)="Answer must be 2-35 characters in length."
^DD(117.374,3,4)="D HEL^FHADR9"
^DD(117.374,3,21,0)="^^2^2^3011004^"
^DD(117.374,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.374,3,21,2,0)="ratings specified in front of them, for question #5 of the survey."
^DD(117.374,3,"DT")="3011004"
^DD(117.374,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.374,4,3)="Answer must be 2-35 characters in length."
^DD(117.374,4,4)="D HEL^FHADR9"
^DD(117.374,4,21,0)="^^2^2^3011004^"
^DD(117.374,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.374,4,21,2,0)="ratings specified in front of them, for question #5 of the survey."
^DD(117.374,4,"DT")="3011004"
^DD(117.374,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.374,5,3)="Answer must be 2-35 characters in length."
^DD(117.374,5,4)="D HEL^FHADR9"
^DD(117.374,5,21,0)="^^2^2^3011004^"
^DD(117.374,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.374,5,21,2,0)="ratings specified in front of them, for question #5 of the survey."
^DD(117.374,5,"DT")="3011004"
^DD(117.374,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.374,6,3)="Answer must be 2-35 characters in length."
^DD(117.374,6,4)="D HEL^FHADR9"
^DD(117.374,6,21,0)="^^2^2^3011004^"
^DD(117.374,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.374,6,21,2,0)="ratings specified in front of them, for question #5 of the survey."
^DD(117.374,6,"DT")="3011004"
^DD(117.374,"B","COURTEOUS NUMBER",.01)=""
^DD(117.374,"B","DOM",4)=""
^DD(117.374,"B","GM&S",1)=""
^DD(117.374,"B","NHCU",2)=""
^DD(117.374,"B","OTHER",6)=""
^DD(117.374,"B","PSYCH",3)=""
^DD(117.374,"B","SCI",5)=""
^DD(117.374,"GL",0,1,.01)=""
^DD(117.374,"GL",0,2,1)=""
^DD(117.374,"GL",0,3,2)=""
^DD(117.374,"GL",0,4,3)=""
^DD(117.374,"GL",0,5,4)=""
^DD(117.374,"GL",0,6,5)=""
^DD(117.374,"GL",0,7,6)=""
^DD(117.374,"IX",.01)=""
^DD(117.375,0)="PREFERENCES DISCUSSED SUB-FIELD^^6^7"
^DD(117.375,0,"DT")="3011004"
^DD(117.375,0,"IX","B",117.375,.01)=""
^DD(117.375,0,"NM","PREFERENCES DISCUSSED")=""
^DD(117.375,0,"UP")="117.3"
^DD(117.375,.01,0)="PREFERENCES DISCUSSED 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.375,.01,1,0)="^.1"
^DD(117.375,.01,1,1,0)="117.375^B"
^DD(117.375,.01,1,1,1)="S ^FH(117.3,DA(1),""Q6PD"",""B"",$E(X,1,30),DA)="""""
^DD(117.375,.01,1,1,2)="K ^FH(117.3,DA(1),""Q6PD"",""B"",$E(X,1,30),DA)"
^DD(117.375,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.375,.01,21,0)="^^2^2^3011004^"
^DD(117.375,.01,21,1,0)="This field contains a sequential number assigned to the sixth question"
^DD(117.375,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.375,.01,"DT")="3011004"
^DD(117.375,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.375,1,3)="Answer must be 2-35 characters in length."
^DD(117.375,1,4)="D HEL^FHADR9"
^DD(117.375,1,21,0)="^.001^2^2^3011009^^"
^DD(117.375,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.375,1,21,2,0)="ratings specified in front of them, for question #6 of the survey."
^DD(117.375,1,"DT")="3011004"
^DD(117.375,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.375,2,3)="Answer must be 2-35 characters in length."
^DD(117.375,2,4)="D HEL^FHADR9"
^DD(117.375,2,21,0)="^^2^2^3011004^"
^DD(117.375,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.375,2,21,2,0)="ratings specified in front of them, for question #6 of the survey."
^DD(117.375,2,"DT")="3011004"
^DD(117.375,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.375,3,3)="Answer must be 2-35 characters in length."
^DD(117.375,3,4)="D HEL^FHADR9"
^DD(117.375,3,21,0)="^^2^2^3011004^"
^DD(117.375,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.375,3,21,2,0)="ratings specified in front of them, for question #6 of the survey."
^DD(117.375,3,"DT")="3011004"
^DD(117.375,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.375,4,3)="Answer must be 2-35 characters in length."
^DD(117.375,4,4)="D HEL^FHADR9"
^DD(117.375,4,21,0)="^^2^2^3011004^"
^DD(117.375,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.375,4,21,2,0)="ratings specified in front of them, for question #6 of the survey."
^DD(117.375,4,"DT")="3011004"
^DD(117.375,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.375,5,3)="Answer must be 2-35 characters in length."
^DD(117.375,5,4)="D HEL^FHADR9"
^DD(117.375,5,21,0)="^^2^2^3011004^"
^DD(117.375,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.375,5,21,2,0)="ratings specified in front of them, for question #6 of the survey."
^DD(117.375,5,"DT")="3011004"
^DD(117.375,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.375,6,3)="Answer must be 2-35 characters in length."
^DD(117.375,6,4)="D HEL^FHADR9"
^DD(117.375,6,21,0)="^^2^2^3011004^"
^DD(117.375,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.375,6,21,2,0)="ratings specified in front of them, for question #6 of the survey."
^DD(117.375,6,"DT")="3011004"
^DD(117.375,"B","DOM",4)=""
^DD(117.375,"B","GM&S",1)=""
^DD(117.375,"B","NHCU",2)=""
^DD(117.375,"B","OTHER",6)=""
^DD(117.375,"B","PREFERENCES DISCUSSED NUMBER",.01)=""
^DD(117.375,"B","PSYCH",3)=""
^DD(117.375,"B","SCI",5)=""
^DD(117.375,"GL",0,1,.01)=""
^DD(117.375,"GL",0,2,1)=""
^DD(117.375,"GL",0,3,2)=""
^DD(117.375,"GL",0,4,3)=""
^DD(117.375,"GL",0,5,4)=""
^DD(117.375,"GL",0,6,5)=""
^DD(117.375,"GL",0,7,6)=""
^DD(117.375,"IX",.01)=""
^DD(117.376,0)="TIMELINESS SUB-FIELD^^6^7"
^DD(117.376,0,"DT")="3011004"
^DD(117.376,0,"IX","B",117.376,.01)=""
^DD(117.376,0,"NM","TIMELINESS")=""
^DD(117.376,0,"UP")="117.3"
^DD(117.376,.01,0)="TIMELINESS 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.376,.01,1,0)="^.1"
^DD(117.376,.01,1,1,0)="117.376^B"
^DD(117.376,.01,1,1,1)="S ^FH(117.3,DA(1),""Q7TI"",""B"",$E(X,1,30),DA)="""""
^DD(117.376,.01,1,1,2)="K ^FH(117.3,DA(1),""Q7TI"",""B"",$E(X,1,30),DA)"
^DD(117.376,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.376,.01,21,0)="^^2^2^3011004^"
^DD(117.376,.01,21,1,0)="This field contains a sequential number assigned to the seventh question"
^DD(117.376,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.376,.01,"DT")="3011004"
^DD(117.376,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.376,1,3)="Answer must be 2-35 characters in length."
^DD(117.376,1,4)="D HEL^FHADR9"
^DD(117.376,1,21,0)="^^2^2^3011004^"
^DD(117.376,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.376,1,21,2,0)="ratings specified in front of them, for question #7 of the survey."
^DD(117.376,1,"DT")="3011004"
^DD(117.376,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.376,2,3)="Answer must be 2-35 characters in length."
^DD(117.376,2,4)="D HEL^FHADR9"
^DD(117.376,2,21,0)="^^2^2^3011004^"
^DD(117.376,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.376,2,21,2,0)="ratings specified in front of them, for question #7 of the survey."
^DD(117.376,2,"DT")="3011004"
^DD(117.376,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.376,3,3)="Answer must be 2-35 characters in length."
^DD(117.376,3,4)="D HEL^FHADR9"
^DD(117.376,3,21,0)="^^2^2^3011004^"
^DD(117.376,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.376,3,21,2,0)="ratings specified in front of them, for question #7 of the survey."
^DD(117.376,3,"DT")="3011004"
^DD(117.376,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.376,4,3)="Answer must be 2-35 characters in length."
^DD(117.376,4,4)="D HEL^FHADR9"
^DD(117.376,4,21,0)="^^2^2^3011004^"
^DD(117.376,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.376,4,21,2,0)="ratings specified in front of them, for question #7 of the survey."
^DD(117.376,4,"DT")="3011004"
^DD(117.376,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.376,5,3)="Answer must be 2-35 characters in length."
^DD(117.376,5,4)="D HEL^FHADR9"
^DD(117.376,5,21,0)="^^2^2^3011004^"
^DD(117.376,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.376,5,21,2,0)="ratings specified in front of them, for question #7 of the survey."
^DD(117.376,5,"DT")="3011004"
^DD(117.376,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.376,6,3)="Answer must be 2-35 characters in length."
^DD(117.376,6,4)="D HEL^FHADR9"
^DD(117.376,6,21,0)="^^2^2^3011004^"
^DD(117.376,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.376,6,21,2,0)="ratings specified in front of them, for question #7 of the survey."
^DD(117.376,6,"DT")="3011004"
^DD(117.376,"B","DOM",4)=""
^DD(117.376,"B","GM&S",1)=""
^DD(117.376,"B","NHCU",2)=""
^DD(117.376,"B","OTHER",6)=""
^DD(117.376,"B","PSYCH",3)=""
^DD(117.376,"B","SCI",5)=""
^DD(117.376,"B","TIMELINESS NUMBER",.01)=""
^DD(117.376,"GL",0,1,.01)=""
^DD(117.376,"GL",0,2,1)=""
^DD(117.376,"GL",0,3,2)=""
^DD(117.376,"GL",0,4,3)=""
^DD(117.376,"GL",0,5,4)=""
^DD(117.376,"GL",0,6,5)=""
^DD(117.376,"GL",0,7,6)=""
^DD(117.376,"IX",.01)=""
^DD(117.377,0)="ENOUGH TIME SUB-FIELD^^6^7"
^DD(117.377,0,"DT")="3011009"
^DD(117.377,0,"IX","B",117.377,.01)=""
^DD(117.377,0,"NM","ENOUGH TIME")=""
^DD(117.377,0,"UP")="117.3"
^DD(117.377,.01,0)="ENOUGH TIME 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.377,.01,1,0)="^.1"
^DD(117.377,.01,1,1,0)="117.377^B"
^DD(117.377,.01,1,1,1)="S ^FH(117.3,DA(1),""Q8ET"",""B"",$E(X,1,30),DA)="""""
^DD(117.377,.01,1,1,2)="K ^FH(117.3,DA(1),""Q8ET"",""B"",$E(X,1,30),DA)"
^DD(117.377,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.377,.01,21,0)="^.001^2^2^3011009^^^"
^DD(117.377,.01,21,1,0)="This field contains a sequential number assigned to the eighth question"
^DD(117.377,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.377,.01,"DT")="3011009"
^DD(117.377,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.377,1,3)="Answer must be 2-35 characters in length."
^DD(117.377,1,4)="D HEL^FHADR9"
^DD(117.377,1,21,0)="^^2^2^3011009^"
^DD(117.377,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.377,1,21,2,0)="ratings specified in front of them, for question #8 of the survey."
^DD(117.377,1,"DT")="3011009"
^DD(117.377,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.377,2,3)="Answer must be 2-35 characters in length."
^DD(117.377,2,4)="D HEL^FHADR9"
^DD(117.377,2,21,0)="^^2^2^3011009^"
^DD(117.377,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.377,2,21,2,0)="ratings specified in front of them, for question #8 of the survey."
^DD(117.377,2,"DT")="3011009"
^DD(117.377,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.377,3,3)="Answer must be 2-35 characters in length."
^DD(117.377,3,4)="D HEL^FHADR9"
^DD(117.377,3,21,0)="^.001^2^2^3011009^^"
^DD(117.377,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.377,3,21,2,0)="ratings specified in front of them, for question #8 of the survey."
^DD(117.377,3,"DT")="3011009"
^DD(117.377,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.377,4,3)="Answer must be 2-35 characters in length."
^DD(117.377,4,4)="D HEL^FHADR9"
^DD(117.377,4,21,0)="^^2^2^3011009^"
^DD(117.377,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.377,4,21,2,0)="ratings specified in front of them, for question #8 of the survey."
^DD(117.377,4,"DT")="3011009"
^DD(117.377,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.377,5,3)="Answer must be 2-35 characters in length."
^DD(117.377,5,4)="D HEL^FHADR9"
^DD(117.377,5,21,0)="^^2^2^3011009^"
^DD(117.377,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.377,5,21,2,0)="ratings specified in front of them, for question #8 of the survey."
^DD(117.377,5,"DT")="3011009"
^DD(117.377,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.377,6,3)="Answer must be 2-35 characters in length."
^DD(117.377,6,4)="D HEL^FHADR9"
^DD(117.377,6,21,0)="^^2^2^3011009^"
^DD(117.377,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.377,6,21,2,0)="ratings specified in front of them, for question #8 of the survey."
^DD(117.377,6,"DT")="3011009"
^DD(117.377,"B","DOM",4)=""
^DD(117.377,"B","ENOUGH TIME NUMBER",.01)=""
^DD(117.377,"B","GM&S",1)=""
^DD(117.377,"B","NHCU",2)=""
^DD(117.377,"B","OTHER",6)=""
^DD(117.377,"B","PSYCH",3)=""
^DD(117.377,"B","SCI",5)=""
^DD(117.377,"GL",0,1,.01)=""
^DD(117.377,"GL",0,2,1)=""
^DD(117.377,"GL",0,3,2)=""
^DD(117.377,"GL",0,4,3)=""
^DD(117.377,"GL",0,5,4)=""
^DD(117.377,"GL",0,6,5)=""
^DD(117.377,"GL",0,7,6)=""
^DD(117.377,"IX",.01)=""
^DD(117.378,0)="NUTRITIONAL INFO SUB-FIELD^^6^7"
^DD(117.378,0,"DT")="3011009"
^DD(117.378,0,"IX","B",117.378,.01)=""
^DD(117.378,0,"NM","NUTRITIONAL INFO")=""
^DD(117.378,0,"UP")="117.3"
^DD(117.378,.01,0)="NUTRITIONAL INFO 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.378,.01,1,0)="^.1"
^DD(117.378,.01,1,1,0)="117.378^B"
^DD(117.378,.01,1,1,1)="S ^FH(117.3,DA(1),""Q9NI"",""B"",$E(X,1,30),DA)="""""
^DD(117.378,.01,1,1,2)="K ^FH(117.3,DA(1),""Q9NI"",""B"",$E(X,1,30),DA)"
^DD(117.378,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.378,.01,21,0)="^.001^2^2^3011009^^^"
^DD(117.378,.01,21,1,0)="This field contains a sequential number assigned to the ninth question"
^DD(117.378,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.378,.01,"DT")="3011009"
^DD(117.378,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.378,1,3)="Answer must be 2-35 characters in length."
^DD(117.378,1,4)="D HEL^FHADR9"
^DD(117.378,1,21,0)="^^2^2^3011009^"
^DD(117.378,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.378,1,21,2,0)="ratings specified in front of them, for question #9 of the survey."
^DD(117.378,1,"DT")="3011009"
^DD(117.378,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.378,2,3)="Answer must be 2-35 characters in length."
^DD(117.378,2,4)="D HEL^FHADR9"
^DD(117.378,2,21,0)="^^2^2^3011009^"
^DD(117.378,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.378,2,21,2,0)="ratings specified in front of them, for question #9 of the survey."
^DD(117.378,2,"DT")="3011009"
^DD(117.378,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.378,3,3)="Answer must be 2-35 characters in length."
^DD(117.378,3,4)="D HEL^FHADR9"
^DD(117.378,3,21,0)="^^2^2^3011009^"
^DD(117.378,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.378,3,21,2,0)="ratings specified in front of them, for question #9 of the survey."
^DD(117.378,3,"DT")="3011009"
^DD(117.378,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.378,4,3)="Answer must be 2-35 characters in length."
^DD(117.378,4,4)="D HEL^FHADR9"
^DD(117.378,4,21,0)="^^2^2^3011009^"
^DD(117.378,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.378,4,21,2,0)="ratings specified in front of them, for question #9 of the survey."
^DD(117.378,4,"DT")="3011009"
^DD(117.378,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.378,5,3)="Answer must be 2-35 characters in length."
^DD(117.378,5,4)="D HEL^FHADR9"
^DD(117.378,5,21,0)="^^2^2^3011009^"
^DD(117.378,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.378,5,21,2,0)="ratings specified in front of them, for question #9 of the survey."
^DD(117.378,5,"DT")="3011009"
^DD(117.378,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.378,6,3)="Answer must be 2-35 characters in length."
^DD(117.378,6,4)="D HEL^FHADR9"
^DD(117.378,6,21,0)="^^2^2^3011009^"
^DD(117.378,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.378,6,21,2,0)="ratings specified in front of them, for question #9 of the survey."
^DD(117.378,6,"DT")="3011009"
^DD(117.378,"B","DOM",4)=""
^DD(117.378,"B","GM&S",1)=""
^DD(117.378,"B","NHCU",2)=""
^DD(117.378,"B","NUTRITIONAL INFO NUMBER",.01)=""
^DD(117.378,"B","OTHER",6)=""
^DD(117.378,"B","PSYCH",3)=""
^DD(117.378,"B","SCI",5)=""
^DD(117.378,"GL",0,1,.01)=""
^DD(117.378,"GL",0,2,1)=""
^DD(117.378,"GL",0,3,2)=""
^DD(117.378,"GL",0,4,3)=""
^DD(117.378,"GL",0,5,4)=""
^DD(117.378,"GL",0,6,5)=""
^DD(117.378,"GL",0,7,6)=""
^DD(117.378,"IX",.01)=""
^DD(117.379,0)="OVERALL SUB-FIELD^^6^7"
^DD(117.379,0,"DT")="3011009"
^DD(117.379,0,"IX","B",117.379,.01)=""
^DD(117.379,0,"NM","OVERALL")=""
^DD(117.379,0,"UP")="117.3"
^DD(117.379,.01,0)="OVERALL 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.379,.01,1,0)="^.1"
^DD(117.379,.01,1,1,0)="117.379^B"
^DD(117.379,.01,1,1,1)="S ^FH(117.3,DA(1),""Q10V"",""B"",$E(X,1,30),DA)="""""
^DD(117.379,.01,1,1,2)="K ^FH(117.3,DA(1),""Q10V"",""B"",$E(X,1,30),DA)"
^DD(117.379,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(117.379,.01,21,0)="^.001^2^2^3011009^^^"
^DD(117.379,.01,21,1,0)="This field contains a sequential number assigned to the tenth question"
^DD(117.379,.01,21,2,0)="of the Patient Satisfaction Survey and has no meaning."
^DD(117.379,.01,"DT")="3011009"
^DD(117.379,1,0)="GM&S^FX^^0;2^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.379,1,3)="Answer must be 2-35 characters in length."
^DD(117.379,1,4)="D HEL^FHADR9"
^DD(117.379,1,21,0)="^^2^2^3011009^"
^DD(117.379,1,21,1,0)="This is a rating string containing numbers surveyed in GM&S with the "
^DD(117.379,1,21,2,0)="ratings specified in front of them, for question #10 of the survey."
^DD(117.379,1,"DT")="3011009"
^DD(117.379,2,0)="NHCU^FX^^0;3^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.379,2,3)="Answer must be 2-35 characters in length."
^DD(117.379,2,4)="D HEL^FHADR9"
^DD(117.379,2,21,0)="^^2^2^3011009^"
^DD(117.379,2,21,1,0)="This is a rating string containing numbers surveyed in NHCU with the "
^DD(117.379,2,21,2,0)="ratings specified in front of them, for question #10 of the survey."
^DD(117.379,2,"DT")="3011009"
^DD(117.379,3,0)="PSYCH^FX^^0;4^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.379,3,3)="Answer must be 2-35 characters in length."
^DD(117.379,3,4)="D HEL^FHADR9"
^DD(117.379,3,21,0)="^^2^2^3011009^"
^DD(117.379,3,21,1,0)="This is a rating string containing numbers surveyed in PSYCH with the "
^DD(117.379,3,21,2,0)="ratings specified in front of them, for question #10 of the survey."
^DD(117.379,3,"DT")="3011009"
^DD(117.379,4,0)="DOM^FX^^0;5^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.379,4,3)="Answer must be 2-35 characters in length."
^DD(117.379,4,4)="D HEL^FHADR9"
^DD(117.379,4,21,0)="^^2^2^3011009^"
^DD(117.379,4,21,1,0)="This is a rating string containing numbers surveyed in DOM with the "
^DD(117.379,4,21,2,0)="ratings specified in front of them, for question #10 of the survey."
^DD(117.379,4,"DT")="3011009"
^DD(117.379,5,0)="SCI^FX^^0;6^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.379,5,3)="Answer must be 2-35 characters in length."
^DD(117.379,5,4)="D HEL^FHADR9"
^DD(117.379,5,21,0)="^^2^2^3011009^"
^DD(117.379,5,21,1,0)="This is a rating string containing numbers surveyed in SCI with the "
^DD(117.379,5,21,2,0)="ratings specified in front of them, for question #10 of the survey."
^DD(117.379,5,"DT")="3011009"
^DD(117.379,6,0)="OTHER^FX^^0;7^K:$L(X)>35!($L(X)<2) X I $D(X) D C0^FHADR9"
^DD(117.379,6,3)="Answer must be 2-35 characters in length."
^DD(117.379,6,4)="D HEL^FHADR9"
^DD(117.379,6,21,0)="^^2^2^3011009^"
^DD(117.379,6,21,1,0)="This is a rating string containing numbers surveyed in OTHER with the "
^DD(117.379,6,21,2,0)="ratings specified in front of them, for question #10 of the survey."
^DD(117.379,6,"DT")="3011009"
^DD(117.379,"B","DOM",4)=""
^DD(117.379,"B","GM&S",1)=""
^DD(117.379,"B","NHCU",2)=""
^DD(117.379,"B","OTHER",6)=""
^DD(117.379,"B","OVERALL NUMBER",.01)=""
^DD(117.379,"B","PSYCH",3)=""
^DD(117.379,"B","SCI",5)=""
^DD(117.379,"GL",0,1,.01)=""
^DD(117.379,"GL",0,2,1)=""
^DD(117.379,"GL",0,3,2)=""
^DD(117.379,"GL",0,4,3)=""
^DD(117.379,"GL",0,5,4)=""
^DD(117.379,"GL",0,6,5)=""
^DD(117.379,"GL",0,7,6)=""
^DD(117.379,"IX",.01)=""
^DD(117.4,0)="FIELD^^101^4"
^DD(117.4,0,"DDA")="N"
^DD(117.4,0,"DT")="2920130"
^DD(117.4,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(117.4,0,"IX","AC",117.4,99)=""
^DD(117.4,0,"IX","B",117.4,.01)=""
^DD(117.4,0,"IX","C",117.4,101)=""
^DD(117.4,0,"NM","DIETETIC REPORT CATEGORIES")=""
^DD(117.4,0,"PT",117.312,.01)=""
^DD(117.4,0,"PT",117.313,.01)=""
^DD(117.4,0,"PT",117.338,.01)=""
^DD(117.4,0,"SCR")="I '$D(^FH(117.4,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(117.4,0,"VR")="5.5"
^DD(117.4,0,"VRPK")="DIETETICS"
^DD(117.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(117.4,.01,1,0)="^.1"
^DD(117.4,.01,1,1,0)="117.4^B"
^DD(117.4,.01,1,1,1)="S ^FH(117.4,""B"",$E(X,1,30),DA)="""""
^DD(117.4,.01,1,1,2)="K ^FH(117.4,""B"",$E(X,1,30),DA)"
^DD(117.4,.01,1,2,0)="^^TRIGGER^117.4^101"
^DD(117.4,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(117.4,.01,1,2,1.1) X ^DD(117.4,.01,1,2,1.4)"
^DD(117.4,.01,1,2,1.1)="S X=DIV S X=DIV X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S X=X,Y(1)=X S X=1,Y(2)=X S X=30,X=$E(Y(1),Y(2),X)"
^DD(117.4,.01,1,2,1.4)="S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(117.4,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FH(117.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(117.4,.01,1,2,2.4)"
^DD(117.4,.01,1,2,2.4)="S DIH=$S($D(^FH(117.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=117.4,DIG=101 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(117.4,.01,1,2,"%D",0)="^^2^2^2911213^"
^DD(117.4,.01,1,2,"%D",1,0)="This trigger converts the upper/lower case name into all uppercase"
^DD(117.4,.01,1,2,"%D",2,0)="and stores it in field 101."
^DD(117.4,.01,1,2,"CREATE VALUE")="$E(UPPERCASE(NAME),1,30)"
^DD(117.4,.01,1,2,"DELETE VALUE")="@"
^DD(117.4,.01,1,2,"DT")="2911213"
^DD(117.4,.01,1,2,"FIELD")="UPPER"
^DD(117.4,.01,3)="Answer must be 3-30 characters in length."
^DD(117.4,.01,21,0)="^^2^2^2920130^"
^DD(117.4,.01,21,1,0)="This field contains the names of the categories used in the Annual"
^DD(117.4,.01,21,2,0)="Report."
^DD(117.4,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(117.4,.01,"DT")="2911213"
^DD(117.4,1,0)="TYPE^RS^S:Specialized Medical Program;D:Primary Delivery System;P:Primary Production System;E:Dietetic Service Equipment;^0;2^Q"
^DD(117.4,1,21,0)="^^3^3^2920130^"
^DD(117.4,1,21,1,0)="This field contains the Type of Category. An ""S"" for Specialized"
^DD(117.4,1,21,2,0)="Medical Program, a ""D"" for Primary Delivery System, a ""P"" for"
^DD(117.4,1,21,3,0)="Primary Production System, and ""E"" for Dietetic Service Equipment."
^DD(117.4,1,"DT")="2920130"
^DD(117.4,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(117.4,99,1,0)="^.1"
^DD(117.4,99,1,1,0)="117.4^AC^MUMPS"
^DD(117.4,99,1,1,1)="K:X'=""Y"" ^FH(117.4,DA,""I"")"
^DD(117.4,99,1,1,2)="K ^FH(117.4,DA,""I"")"
^DD(117.4,99,1,1,"%D",0)="^^2^2^3000202"
^DD(117.4,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(117.4,99,1,1,"%D",2,0)="inactive entries."
^DD(117.4,99,21,0)="^^2^2^3000202"
^DD(117.4,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(117.4,99,21,2,0)="further selection of this entry."
^DD(117.4,99,"DT")="3000223"
^DD(117.4,101,0)="UPPERCASE NAME^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(117.4,101,1,0)="^.1"
^DD(117.4,101,1,1,0)="117.4^C"
^DD(117.4,101,1,1,1)="S ^FH(117.4,""C"",$E(X,1,30),DA)="""""
^DD(117.4,101,1,1,2)="K ^FH(117.4,""C"",$E(X,1,30),DA)"
^DD(117.4,101,1,1,"%D",0)="^^1^1^2911213^"
^DD(117.4,101,1,1,"%D",1,0)="This is a cross-reference of all uppercase text of the name."
^DD(117.4,101,1,1,"DT")="2911213"
^DD(117.4,101,3)="Answer must be 3-30 characters in length."
^DD(117.4,101,5,1,0)="117.4^.01^2"
^DD(117.4,101,21,0)="^^1^1^2920130^^^"
^DD(117.4,101,21,1,0)="This is the name of the entry in uppercase text."
^DD(117.4,101,"DT")="2911213"
^DD(117.4,"B","INACTIVE?",99)=""
^DD(117.4,"B","NAME",.01)=""
^DD(117.4,"B","TYPE",1)=""
^DD(117.4,"B","UPPERCASE NAME",101)=""
^DD(117.4,"GL",0,1,.01)=""
^DD(117.4,"GL",0,2,1)=""
^DD(117.4,"GL",0,3,101)=""
^DD(117.4,"GL","I",1,99)=""
^DD(117.4,"IX",.01)=""
^DD(117.4,"IX",99)=""
^DD(117.4,"IX",101)=""
^DD(117.4,"RQ",.01)=""
^DD(117.4,"RQ",1)=""
^DD(118,0)="FIELD^^99^8"
^DD(118,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(118,0,"IX","AC",118,20)=""
^DD(118,0,"IX","AD",118,99)=""
^DD(118,0,"IX","B",118,.01)=""
^DD(118,0,"IX","B",118.01,.01)=""
^DD(118,0,"NM","SUPPLEMENTAL FEEDINGS")=""
^DD(118,0,"PT",115.07,10)=""
^DD(118,0,"PT",115.07,12)=""
^DD(118,0,"PT",115.07,14)=""
^DD(118,0,"PT",115.07,16)=""
^DD(118,0,"PT",115.07,18)=""
^DD(118,0,"PT",115.07,20)=""
^DD(118,0,"PT",115.07,22)=""
^DD(118,0,"PT",115.07,24)=""
^DD(118,0,"PT",115.07,26)=""
^DD(118,0,"PT",115.07,28)=""
^DD(118,0,"PT",115.07,30)=""
^DD(118,0,"PT",115.07,32)=""
^DD(118,0,"PT",115.1627,4)=""
^DD(118,0,"PT",115.1627,6)=""
^DD(118,0,"PT",115.1627,8)=""
^DD(118,0,"PT",115.1627,10)=""
^DD(118,0,"PT",115.1627,12)=""
^DD(118,0,"PT",115.1627,14)=""
^DD(118,0,"PT",115.1627,16)=""
^DD(118,0,"PT",115.1627,18)=""
^DD(118,0,"PT",115.1627,20)=""
^DD(118,0,"PT",115.1627,22)=""
^DD(118,0,"PT",115.1627,24)=""
^DD(118,0,"PT",115.1627,26)=""
^DD(118,0,"PT",118.1,10)=""
^DD(118,0,"PT",118.1,11)=""
^DD(118,0,"PT",118.1,12)=""
^DD(118,0,"PT",118.1,13)=""
^DD(118,0,"PT",118.1,14)=""
^DD(118,0,"PT",118.1,15)=""
^DD(118,0,"PT",118.1,16)=""
^DD(118,0,"PT",118.1,17)=""
^DD(118,0,"PT",118.1,18)=""
^DD(118,0,"PT",118.1,19)=""
^DD(118,0,"PT",118.1,20)=""
^DD(118,0,"PT",118.1,21)=""
^DD(118,0,"PT",119.61,.01)=""
^DD(118,0,"PT",728.451,.01)=""
^DD(118,0,"SCR")="I '$D(^FH(118,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(118,0,"VR")="5.5"
^DD(118,0,"VRPK")="DIETETICS"
^DD(118,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(118,.01,1,0)="^.1"
^DD(118,.01,1,1,0)="118^B"
^DD(118,.01,1,1,1)="S ^FH(118,""B"",$E(X,1,30),DA)="""""
^DD(118,.01,1,1,2)="K ^FH(118,""B"",$E(X,1,30),DA)"
^DD(118,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(118,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(118,.01,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(118,.01,21,0)="^^1^1^2880717^"
^DD(118,.01,21,1,0)="This field contains the name of the Supplemental Feeding."
^DD(118,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(118,.01,"DT")="2840812"
^DD(118,1,0)="SYNONYM^118.01^^S;0"
^DD(118,1,21,0)="^^2^2^2901217^"
^DD(118,1,21,1,0)="This field allows for a number of synonyms for the supplemental"
^DD(118,1,21,2,0)="feeding to be entered."
^DD(118,5,0)="LABEL?^S^Y:YES;N:NO;^0;2^Q"
^DD(118,5,3)="Enter N if you do not want a separate label for this item"
^DD(118,5,21,0)="^^4^4^2930203^^"
^DD(118,5,21,1,0)="This field, when answered NO, means that a label will not"
^DD(118,5,21,2,0)="be produced for this item when separate supplemental feeding"
^DD(118,5,21,3,0)="labels for each item have been specified in the site"
^DD(118,5,21,4,0)="parameters."
^DD(118,5,"DT")="2850320"
^DD(118,7,0)="VEHICLE FOR MEDS?^S^Y:YES;N:NO;^0;4^Q"
^DD(118,7,21,0)="^^2^2^2880717^"
^DD(118,7,21,1,0)="This field, when answered YES, means that the supplemental"
^DD(118,7,21,2,0)="feeding is typically used as a vehicle for meds."
^DD(118,7,"DT")="2850606"
^DD(118,10,0)="BULK ONLY?^S^Y:YES;N:NO;^0;3^Q"
^DD(118,10,21,0)="^^3^3^2880717^"
^DD(118,10,21,1,0)="This field, when answered YES, means that this supplemental"
^DD(118,10,21,2,0)="feeding item can ONLY be selected as a bulk feeding for ward"
^DD(118,10,21,3,0)="delivery and may not be selected as an individual feeding item."
^DD(118,10,"DT")="2850604"
^DD(118,11,0)="CORRESPONDING RECIPE^P114'^FH(114,^0;7^Q"
^DD(118,11,21,0)="^^3^3^2901217^"
^DD(118,11,21,1,0)="This field is a pointer to the recipe in file 114 (the Recipe file)"
^DD(118,11,21,2,0)="which contains the ingredients for this feeding. Cost and other data"
^DD(118,11,21,3,0)="for this feeding will be retrieved from the recipe file."
^DD(118,11,"DT")="2900929"
^DD(118,20,0)="COST^CJ8,2^^ ; ^X ^DD(118,20,9.2) S X=$P(Y(118,20,101),U,13) S D0=Y(118,20,80) S X=$J(X,0,2)"
^DD(118,20,1,0)="^.1"
^DD(118,20,1,1,0)="118^AC^MUMPS"
^DD(118,20,1,1,1)="S $P(^FH(118,DA,0),""^"",6)=DT"
^DD(118,20,1,1,2)="S $P(^FH(118,DA,0),""^"",6)="""""
^DD(118,20,3)="TYPE A NUMBER BETWEEN 0 AND 20"
^DD(118,20,9)="^"
^DD(118,20,9.01)="114^101;118^11"
^DD(118,20,9.1)="CORRESPONDING RECIPE:COST/PORTION"
^DD(118,20,9.2)="S Y(118,20,80)=$S($D(D0):D0,1:""""),Y(118,20,1)=$S($D(^FH(118,D0,0)):^(0),1:""""),D0=$P(Y(118,20,1),U,7) S:'$D(^FH(114,+D0,0)) D0=-1 S Y(118,20,101)=$S($D(^FH(114,D0,0)):^(0),1:"""")"
^DD(118,20,21,0)="^^3^3^2950613^^^^"
^DD(118,20,21,1,0)="This is the portion cost of the supplemental feeding and is a"
^DD(118,20,21,2,0)="computed field which obtains the value from the recipe file based"
^DD(118,20,21,3,0)="upon the 'Corresponding Recipe' pointer."
^DD(118,20,"DT")="2860628"
^DD(118,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(118,99,1,0)="^.1"
^DD(118,99,1,1,0)="118^AD^MUMPS"
^DD(118,99,1,1,1)="K:X'=""Y"" ^FH(118,DA,""I"")"
^DD(118,99,1,1,2)="K ^FH(118,DA,""I"")"
^DD(118,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(118,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(118,99,1,1,"%D",2,0)="inactive entries."
^DD(118,99,21,0)="^^2^2^2880717^"
^DD(118,99,21,1,0)="This field, when answered YES, means that further selection of"
^DD(118,99,21,2,0)="this item by dietetic personnel is prohibited."
^DD(118,99,"DT")="2860813"
^DD(118,"B","BULK ONLY?",10)=""
^DD(118,"B","CORRESPONDING RECIPE",11)=""
^DD(118,"B","COST",20)=""
^DD(118,"B","INACTIVE?",99)=""
^DD(118,"B","LABEL?",5)=""
^DD(118,"B","NAME",.01)=""
^DD(118,"B","SYNONYM",1)=""
^DD(118,"B","VEHICLE FOR MEDS?",7)=""
^DD(118,"GL",0,1,.01)=""
^DD(118,"GL",0,2,5)=""
^DD(118,"GL",0,3,10)=""
^DD(118,"GL",0,4,7)=""
^DD(118,"GL",0,7,11)=""
^DD(118,"GL","I",1,99)=""
^DD(118,"GL","S",0,1)=""
^DD(118,"IX",.01)=""
^DD(118,"IX",20)=""
^DD(118,"IX",99)=""
^DD(118,"RQ",.01)=""
^DD(118,"SB",118.01,1)=""
^DD(118.01,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(118.01,0,"IX","B",118.01,.01)=""
^DD(118.01,0,"NM","SYNONYM")=""
^DD(118.01,0,"UP")="118"
^DD(118.01,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(118.01,.01,1,0)="^.1"
^DD(118.01,.01,1,1,0)="118.01^B"
^DD(118.01,.01,1,1,1)="S ^FH(118,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(118.01,.01,1,1,2)="K ^FH(118,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(118.01,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(118.01,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the SYNONYM field."
^DD(118.01,.01,1,2,0)="118^B^MNEMONIC"
^DD(118.01,.01,1,2,1)="S:'$D(^FH(118,""B"",$E(X,1,30),DA(1),DA)) ^(DA)=1"
^DD(118.01,.01,1,2,2)="I $D(^FH(118,""B"",$E(X,1,30),DA(1),DA)),^(DA) K ^(DA)"
^DD(118.01,.01,1,2,"%D",0)="^^1^1^2911118^"
^DD(118.01,.01,1,2,"%D",1,0)="This is the normal B cross-reference of the SYNONYM field."
^DD(118.01,.01,3)="Answer must be 3-30 characters in length."
^DD(118.01,.01,21,0)="^^1^1^2901217^"
^DD(118.01,.01,21,1,0)="This field contains a synonym for the supplemental feeding."
^DD(118.01,.01,"DT")="2900918"
^DD(118.01,"B","SYNONYM",.01)=""
^DD(118.01,"GL",0,1,.01)=""
^DD(118.01,"IX",.01)=""
^DD(118.1,0)="FIELD^^99^28"
^DD(118.1,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(118.1,0,"IX","AC",118.1,99)=""
^DD(118.1,0,"IX","B",118.1,.01)=""
^DD(118.1,0,"IX","C",118.1,1)=""
^DD(118.1,0,"NM","SUPPLEMENTAL FEEDING MENU")=""
^DD(118.1,0,"PT",111.1,18)=""
^DD(118.1,0,"PT",115.07,3)=""
^DD(118.1,0,"PT",115.1627,3)=""
^DD(118.1,0,"SCR")="I '$D(^FH(118.1,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(118.1,0,"VR")="5.5"
^DD(118.1,0,"VRPK")="DIETETICS"
^DD(118.1,.01,0)="NAME^RF^^0;1^K:$L(X)>27!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(118.1,.01,1,0)="^.1"
^DD(118.1,.01,1,1,0)="118.1^B"
^DD(118.1,.01,1,1,1)="S ^FH(118.1,""B"",$E(X,1,30),DA)="""""
^DD(118.1,.01,1,1,2)="K ^FH(118.1,""B"",$E(X,1,30),DA)"
^DD(118.1,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(118.1,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(118.1,.01,3)="ANSWER MUST BE 3-27 CHARACTERS IN LENGTH"
^DD(118.1,.01,21,0)="^^2^2^2880710^"
^DD(118.1,.01,21,1,0)="This is the name of the supplemental feeding menu, a pre-set"
^DD(118.1,.01,21,2,0)="collection of feeding items for the three feeding times."
^DD(118.1,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(118.1,.01,"DT")="2850207"
^DD(118.1,1,0)="SYNONYM^F^^0;2^K:$L(X)>10!($L(X)<3) X"
^DD(118.1,1,1,0)="^.1"
^DD(118.1,1,1,1,0)="118.1^C"
^DD(118.1,1,1,1,1)="S ^FH(118.1,""C"",$E(X,1,30),DA)="""""
^DD(118.1,1,1,1,2)="K ^FH(118.1,""C"",$E(X,1,30),DA)"
^DD(118.1,1,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(118.1,1,21,0)="^^1^1^2880710^"
^DD(118.1,1,21,1,0)="This field may contain a synonym for the feeding menu."
^DD(118.1,1,"DT")="2850316"
^DD(118.1,3,0)="DIETARY OR THERAPEUTIC^RS^D:DIETARY;T:THERAPEUTIC;^1;25^Q"
^DD(118.1,3,21,0)="^^2^2^2880710^"
^DD(118.1,3,21,1,0)="This field indicates whether the menu is generally ordered"
^DD(118.1,3,21,2,0)="for dietary or therapeutic reasons."
^DD(118.1,3,"DT")="2851003"
^DD(118.1,10,0)="10AM FEEDING #1^*P118'^FH(118,^1;1^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,10,12)="Cannot select bulk nourishments"
^DD(118.1,10,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,10,21,0)="^^1^1^2880710^^"
^DD(118.1,10,21,1,0)="This is the first supplemental feeding item for the 10am feeding."
^DD(118.1,10,"DT")="2850604"
^DD(118.1,10.5,0)="10AM #1 QTY^NJ2,0^^1;2^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,10.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,10.5,21,0)="^^1^1^2880710^^"
^DD(118.1,10.5,21,1,0)="This is the quantity of the first 10am feeding item."
^DD(118.1,11,0)="10AM FEEDING #2^*P118'^FH(118,^1;3^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,11,12)="Cannot select bulk nourishments"
^DD(118.1,11,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,11,21,0)="^^1^1^2880710^^"
^DD(118.1,11,21,1,0)="This is the second supplemental feeding item for the 10am feeding."
^DD(118.1,11,"DT")="2850604"
^DD(118.1,11.5,0)="10AM #2 QTY^NJ2,0^^1;4^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,11.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,11.5,21,0)="^^1^1^2880710^^"
^DD(118.1,11.5,21,1,0)="This is the quantity of the second 10am feeding item."
^DD(118.1,12,0)="10AM FEEDING #3^*P118'^FH(118,^1;5^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,12,12)="Cannot select bulk nourishments"
^DD(118.1,12,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,12,21,0)="^^1^1^2880710^^^"
^DD(118.1,12,21,1,0)="This is the third supplemental feeding item for the 10am feeding."
^DD(118.1,12.5,0)="10AM #3 QTY^NJ2,0^^1;6^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,12.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,12.5,21,0)="^^1^1^2880710^^^"
^DD(118.1,12.5,21,1,0)="This is the quantity of the third 10am feeding item."
^DD(118.1,13,0)="10AM FEEDING #4^*P118'^FH(118,^1;7^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,13,12)="Cannot select bulk nourishments"
^DD(118.1,13,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,13,21,0)="^^1^1^2880710^^"
^DD(118.1,13,21,1,0)="This is the fourth supplemental feeding item for the 10am feeding."
^DD(118.1,13.5,0)="10AM #4 QTY^NJ2,0^^1;8^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,13.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,13.5,21,0)="^^1^1^2880710^"
^DD(118.1,13.5,21,1,0)="This is the quantity of the fourth 10am feeding item."
^DD(118.1,14,0)="2PM FEEDING #1^*P118'^FH(118,^1;9^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,14,12)="Cannot select bulk nourishments"
^DD(118.1,14,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,14,21,0)="^^1^1^2880710^"
^DD(118.1,14,21,1,0)="This is the first supplemental feeding item for the 2pm feeding."
^DD(118.1,14.5,0)="2PM #1 QTY^NJ2,0^^1;10^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,14.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,14.5,21,0)="^^1^1^2880710^"
^DD(118.1,14.5,21,1,0)="This is the quantity of the first 2pm feeding item."
^DD(118.1,15,0)="2PM FEEDING #2^*P118'^FH(118,^1;11^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,15,12)="Cannot select bulk nourishments"
^DD(118.1,15,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,15,21,0)="^^1^1^2880710^"
^DD(118.1,15,21,1,0)="This is the second supplemental feeding item for the 2pm feeding."
^DD(118.1,15.5,0)="2PM #2 QTY^NJ2,0^^1;12^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,15.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,15.5,21,0)="^^1^1^2880710^"
^DD(118.1,15.5,21,1,0)="This is the quantity of the second 2pm feeding item."
^DD(118.1,16,0)="2PM FEEDING #3^*P118'^FH(118,^1;13^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,16,12)="Cannot select bulk nourishments"
^DD(118.1,16,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,16,21,0)="^^1^1^2880710^"
^DD(118.1,16,21,1,0)="This is the third supplemental feeding item for the 2pm feeding."
^DD(118.1,16.5,0)="2PM #3 QTY^NJ2,0^^1;14^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,16.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,16.5,21,0)="^^1^1^2880710^"
^DD(118.1,16.5,21,1,0)="This is the quantity of the third 2pm feeding item."
^DD(118.1,17,0)="2PM FEEDING #4^*P118'^FH(118,^1;15^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,17,12)="Cannot select bulk nourishments"
^DD(118.1,17,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,17,21,0)="^^1^1^2880710^"
^DD(118.1,17,21,1,0)="This is the fourth supplemental feeding item for the 2pm feeding."
^DD(118.1,17.5,0)="2PM #4 QTY^NJ2,0^^1;16^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,17.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,17.5,21,0)="^^1^1^2880710^"
^DD(118.1,17.5,21,1,0)="This is the quantity of the fourth 2pm feeding item."
^DD(118.1,18,0)="8PM FEEDING #1^*P118'^FH(118,^1;17^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,18,12)="Cannot select bulk nourishments"
^DD(118.1,18,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,18,21,0)="^^1^1^2880710^"
^DD(118.1,18,21,1,0)="This is the first supplemental feeding item for the 8pm feeding."
^DD(118.1,18.5,0)="8PM #1 QTY^NJ2,0^^1;18^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,18.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,18.5,21,0)="^^1^1^2880710^"
^DD(118.1,18.5,21,1,0)="This is the quantity of the first 8pm feeding item."
^DD(118.1,19,0)="8PM FEEDING #2^*P118'^FH(118,^1;19^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,19,12)="Cannot select bulk nourishments"
^DD(118.1,19,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,19,21,0)="^^1^1^2880710^"
^DD(118.1,19,21,1,0)="This is the second supplemental feeding item for the 8pm feeding."
^DD(118.1,19.5,0)="8PM #2 QTY^NJ2,0^^1;20^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,19.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,19.5,21,0)="^^1^1^2880710^"
^DD(118.1,19.5,21,1,0)="This is the quantity of the second 8pm feeding item."
^DD(118.1,20,0)="8PM FEEDING #3^*P118'^FH(118,^1;21^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,20,12)="Cannot select bulk nourishments"
^DD(118.1,20,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,20,21,0)="^^1^1^2880710^"
^DD(118.1,20,21,1,0)="This is the third supplemental feeding item for the 8pm feeding."
^DD(118.1,20.5,0)="8PM #3 QTY^NJ2,0^^1;22^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,20.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,20.5,21,0)="^^1^1^2880710^"
^DD(118.1,20.5,21,1,0)="This is the quantity of the third 8pm feeding item."
^DD(118.1,21,0)="8PM FEEDING #4^*P118'^FH(118,^1;23^S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(118.1,21,12)="Cannot select bulk nourishments"
^DD(118.1,21,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Y"""""""
^DD(118.1,21,21,0)="^^1^1^2880710^"
^DD(118.1,21,21,1,0)="This is the fourth supplemental feeding item for the 8pm feeding."
^DD(118.1,21.5,0)="8PM #4 QTY^NJ2,0^^1;24^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(118.1,21.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 20"
^DD(118.1,21.5,21,0)="^^1^1^2880710^"
^DD(118.1,21.5,21,1,0)="This is the quantity of the fourth 8pm feeding item."
^DD(118.1,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(118.1,99,1,0)="^.1"
^DD(118.1,99,1,1,0)="118.1^AC^MUMPS"
^DD(118.1,99,1,1,1)="K:X'=""Y"" ^FH(118.1,DA,""I"")"
^DD(118.1,99,1,1,2)="K ^FH(118.1,DA,""I"")"
^DD(118.1,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(118.1,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(118.1,99,1,1,"%D",2,0)="inactive entries."
^DD(118.1,99,21,0)="^^2^2^2880831^"
^DD(118.1,99,21,1,0)="This field, if answered YES, will prohibit further selection"
^DD(118.1,99,21,2,0)="of this Supplemental Feeding Menu by dietetic personnel."
^DD(118.1,99,"DT")="2880831"
^DD(118.1,"B","10AM #1 QTY",10.5)=""
^DD(118.1,"B","10AM #2 QTY",11.5)=""
^DD(118.1,"B","10AM #3 QTY",12.5)=""
^DD(118.1,"B","10AM #4 QTY",13.5)=""
^DD(118.1,"B","10AM FEEDING #1",10)=""
^DD(118.1,"B","10AM FEEDING #2",11)=""
^DD(118.1,"B","10AM FEEDING #3",12)=""
^DD(118.1,"B","10AM FEEDING #4",13)=""
^DD(118.1,"B","2PM #1 QTY",14.5)=""
^DD(118.1,"B","2PM #2 QTY",15.5)=""
^DD(118.1,"B","2PM #3 QTY",16.5)=""
^DD(118.1,"B","2PM #4 QTY",17.5)=""
^DD(118.1,"B","2PM FEEDING #1",14)=""
^DD(118.1,"B","2PM FEEDING #2",15)=""
^DD(118.1,"B","2PM FEEDING #3",16)=""
^DD(118.1,"B","2PM FEEDING #4",17)=""
^DD(118.1,"B","8PM #1 QTY",18.5)=""
^DD(118.1,"B","8PM #2 QTY",19.5)=""
^DD(118.1,"B","8PM #3 QTY",20.5)=""
^DD(118.1,"B","8PM #4 QTY",21.5)=""
^DD(118.1,"B","8PM FEEDING #1",18)=""
^DD(118.1,"B","8PM FEEDING #2",19)=""
^DD(118.1,"B","8PM FEEDING #3",20)=""
^DD(118.1,"B","8PM FEEDING #4",21)=""
^DD(118.1,"B","DIETARY OR THERAPEUTIC",3)=""
^DD(118.1,"B","INACTIVE?",99)=""
^DD(118.1,"B","NAME",.01)=""
^DD(118.1,"B","SYNONYM",1)=""
^DD(118.1,"GL",0,1,.01)=""
^DD(118.1,"GL",0,2,1)=""
^DD(118.1,"GL",1,1,10)=""
^DD(118.1,"GL",1,2,10.5)=""
^DD(118.1,"GL",1,3,11)=""
^DD(118.1,"GL",1,4,11.5)=""
^DD(118.1,"GL",1,5,12)=""
^DD(118.1,"GL",1,6,12.5)=""
^DD(118.1,"GL",1,7,13)=""
^DD(118.1,"GL",1,8,13.5)=""
^DD(118.1,"GL",1,9,14)=""
^DD(118.1,"GL",1,10,14.5)=""
^DD(118.1,"GL",1,11,15)=""
^DD(118.1,"GL",1,12,15.5)=""
^DD(118.1,"GL",1,13,16)=""
^DD(118.1,"GL",1,14,16.5)=""
^DD(118.1,"GL",1,15,17)=""
^DD(118.1,"GL",1,16,17.5)=""
^DD(118.1,"GL",1,17,18)=""
^DD(118.1,"GL",1,18,18.5)=""
^DD(118.1,"GL",1,19,19)=""
^DD(118.1,"GL",1,20,19.5)=""
^DD(118.1,"GL",1,21,20)=""
^DD(118.1,"GL",1,22,20.5)=""
^DD(118.1,"GL",1,23,21)=""
^DD(118.1,"GL",1,24,21.5)=""
^DD(118.1,"GL",1,25,3)=""
^DD(118.1,"GL","I",1,99)=""
^DD(118.1,"IX",.01)=""
^DD(118.1,"IX",1)=""
^DD(118.1,"IX",99)=""
^DD(118.1,"RQ",.01)=""
^DD(118.1,"RQ",3)=""
^DD(118.2,0)="FIELD^^99^8"
^DD(118.2,0,"DDA")="N"
^DD(118.2,0,"DT")="2920928"
^DD(118.2,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(118.2,0,"IX","AC",118.2,99)=""
^DD(118.2,0,"IX","B",118.2,.01)=""
^DD(118.2,0,"IX","C",118.21,.01)=""
^DD(118.2,0,"NM","TUBEFEEDING")=""
^DD(118.2,0,"PT",115.031,.01)=""
^DD(118.2,0,"PT",115.1,.01)=""
^DD(118.2,0,"PT",115.1619,.01)=""
^DD(118.2,0,"PT",728.451,.01)=""
^DD(118.2,0,"SCR")="I '$D(^FH(118.2,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(118.2,0,"VR")="5.5"
^DD(118.2,0,"VRPK")="FH"
^DD(118.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(118.2,.01,1,0)="^.1"
^DD(118.2,.01,1,1,0)="118.2^B"
^DD(118.2,.01,1,1,1)="S ^FH(118.2,""B"",$E(X,1,30),DA)="""""
^DD(118.2,.01,1,1,2)="K ^FH(118.2,""B"",$E(X,1,30),DA)"
^DD(118.2,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(118.2,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(118.2,.01,3)="Answer must be 3-30 characters in length."
^DD(118.2,.01,21,0)="^^2^2^2880710^"
^DD(118.2,.01,21,1,0)="This is the name of the tubefeeding product as it will appear"
^DD(118.2,.01,21,2,0)="on all lists and displays."
^DD(118.2,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(118.2,.01,"DT")="2920116"
^DD(118.2,1,0)="DISPENSING UNIT^RF^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(118.2,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(118.2,1,21,0)="^^2^2^2920814^^^"
^DD(118.2,1,21,1,0)="This field contains a title for the dispensing unit such"
^DD(118.2,1,21,2,0)="as bottle, can or package."
^DD(118.2,2,0)="AMT/UNIT^RFX^^0;3^S:X["" "" X=+X_$P(X,"" "",2) S:""MG""[$E(X,$L(+X)+1) X=+X_$E(X,$L(+X)+1) S:X[""M"" X=+X_""ML"" K:($L(+X)>10)!($L(X)<1)!(+X>9999)!(+X<0)!(""MLG""'[$E(X,$L(X))) X"
^DD(118.2,2,3)="Enter amount in ML's or in Grams.  Amount cannot exceed 9999.  The following are examples of valid entries 22ML, 40GRAMS, 20 G, or 100 M."
^DD(118.2,2,21,0)="^^3^3^3050422^"
^DD(118.2,2,21,1,0)="This is the number of ml's or grams of product contained in the"
^DD(118.2,2,21,2,0)="dispensing unit. For products which require reconstitution"
^DD(118.2,2,21,3,0)="with water, it is the number of ml's after reconstitution."
^DD(118.2,2,"DT")="3060727"
^DD(118.2,3,0)="KCAL/ML^RNJ7,2^^0;4^K:+X'=X!(X>1000)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(118.2,3,3)="Type a Number between .1 and 1000, 2 Decimal Digits"
^DD(118.2,3,21,0)="^^2^2^3050422^"
^DD(118.2,3,21,1,0)="This field contains the number of KiloCalories per ml of"
^DD(118.2,3,21,2,0)="product."
^DD(118.2,3,"DT")="3050422"
^DD(118.2,5,0)="COST^CJ8,2^^ ; ^X ^DD(118.2,5,9.2) S X=$P(Y(118.2,5,101),U,13) S D0=Y(118.2,5,80) S X=$J(X,0,2)"
^DD(118.2,5,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(118.2,5,9)="^"
^DD(118.2,5,9.01)="114^101;118.2^11"
^DD(118.2,5,9.1)="CORRESPONDING RECIPE:COST/PORTION"
^DD(118.2,5,9.2)="S Y(118.2,5,80)=$S($D(D0):D0,1:""""),Y(118.2,5,1)=$S($D(^FH(118.2,D0,0)):^(0),1:""""),D0=$P(Y(118.2,5,1),U,7) S:'$D(^FH(114,+D0,0)) D0=-1 S Y(118.2,5,101)=$S($D(^FH(114,D0,0)):^(0),1:"""")"
^DD(118.2,5,21,0)="^^3^3^2950613^^^^"
^DD(118.2,5,21,1,0)="This is the portion cost of the tubefeeding and is a"
^DD(118.2,5,21,2,0)="computed field which obtains the value from the recipe file based"
^DD(118.2,5,21,3,0)="upon the 'Corresponding Recipe' pointer."
^DD(118.2,5,"DT")="2850928"
^DD(118.2,10,0)="SYNONYM^118.21^^1;0"
^DD(118.2,10,21,0)="^^3^3^2920818^^"
^DD(118.2,10,21,1,0)="This multiple contains alternate names or synonyms for the"
^DD(118.2,10,21,2,0)="product. These names should include any names commonly known"
^DD(118.2,10,21,3,0)="or used by ward/medical personnel."
^DD(118.2,11,0)="CORRESPONDING RECIPE^P114'^FH(114,^0;7^Q"
^DD(118.2,11,21,0)="^^3^3^2910411^^^"
^DD(118.2,11,21,1,0)="This field is a pointer to the recipe in file 114 (the Recipe file)"
^DD(118.2,11,21,2,0)="which contains the ingredients for this feeding. Cost and other data"
^DD(118.2,11,21,3,0)="for this feeding will be retrieved from the recipe file."
^DD(118.2,11,"DT")="2900929"
^DD(118.2,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(118.2,99,1,0)="^.1"
^DD(118.2,99,1,1,0)="118.2^AC^MUMPS"
^DD(118.2,99,1,1,1)="K:X'=""Y"" ^FH(118.2,DA,""I"")"
^DD(118.2,99,1,1,2)="K ^FH(118.2,DA,""I"")"
^DD(118.2,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(118.2,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(118.2,99,1,1,"%D",2,0)="inactive entries."
^DD(118.2,99,21,0)="^^2^2^2920818^^"
^DD(118.2,99,21,1,0)="This field, if answered YES, prohibits further selection of"
^DD(118.2,99,21,2,0)="this item by ward or dietetic personnel."
^DD(118.2,99,"DT")="2860813"
^DD(118.2,"B","AMT/UNIT",2)=""
^DD(118.2,"B","CORRESPONDING RECIPE",11)=""
^DD(118.2,"B","COST",5)=""
^DD(118.2,"B","DISPENSING UNIT",1)=""
^DD(118.2,"B","INACTIVE?",99)=""
^DD(118.2,"B","KCAL/ML",3)=""
^DD(118.2,"B","NAME",.01)=""
^DD(118.2,"B","SYNONYM",10)=""
^DD(118.2,"GL",0,1,.01)=""
^DD(118.2,"GL",0,2,1)=""
^DD(118.2,"GL",0,3,2)=""
^DD(118.2,"GL",0,4,3)=""
^DD(118.2,"GL",0,7,11)=""
^DD(118.2,"GL",1,0,10)=""
^DD(118.2,"GL","I",1,99)=""
^DD(118.2,"IX",.01)=""
^DD(118.2,"IX",99)=""
^DD(118.2,"RQ",.01)=""
^DD(118.2,"RQ",1)=""
^DD(118.2,"RQ",2)=""
^DD(118.2,"RQ",3)=""
^DD(118.2,"SB",118.21,10)=""
^DD(118.21,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(118.21,0,"NM","SYNONYM")=""
^DD(118.21,0,"UP")="118.2"
^DD(118.21,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(118.21,.01,1,0)="^.1"
^DD(118.21,.01,1,1,0)="118.2^C"
^DD(118.21,.01,1,1,1)="S ^FH(118.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(118.21,.01,1,1,2)="K ^FH(118.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(118.21,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(118.21,.01,21,0)="^^2^2^2880710^"
^DD(118.21,.01,21,1,0)="This field contains an alternate name or synonym for the"
^DD(118.21,.01,21,2,0)="tubefeeding product."
^DD(118.21,.01,"DT")="2850709"
^DD(118.21,"B","SYNONYM",.01)=""
^DD(118.21,"GL",0,1,.01)=""
^DD(118.21,"IX",.01)=""
^DD(118.3,0)="FIELD^^99^3"
^DD(118.3,0,"DT")="2920504"
^DD(118.3,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(118.3,0,"IX","AC",118.3,99)=""
^DD(118.3,0,"IX","B",118.3,.01)=""
^DD(118.3,0,"NM","STANDING ORDERS")=""
^DD(118.3,0,"PT",111.11,.01)=""
^DD(118.3,0,"PT",111.12,.01)=""
^DD(118.3,0,"PT",111.13,.01)=""
^DD(118.3,0,"PT",115.08,1)=""
^DD(118.3,0,"PT",115.1626,1)=""
^DD(118.3,0,"PT",728.451,.01)=""
^DD(118.3,0,"SCR")="I '$D(^FH(118.3,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(118.3,0,"VR")="5.5"
^DD(118.3,0,"VRPK")="DIETETICS"
^DD(118.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(118.3,.01,1,0)="^.1"
^DD(118.3,.01,1,1,0)="118.3^B"
^DD(118.3,.01,1,1,1)="S ^FH(118.3,""B"",$E(X,1,30),DA)="""""
^DD(118.3,.01,1,1,2)="K ^FH(118.3,""B"",$E(X,1,30),DA)"
^DD(118.3,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(118.3,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(118.3,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(118.3,.01,21,0)="^^3^3^2880710^"
^DD(118.3,.01,21,1,0)="This field contains the name of a standing order. It may be"
^DD(118.3,.01,21,2,0)="such things as 'double portions', 'extra coffee', or even"
^DD(118.3,.01,21,3,0)="preferences such as 'no fish.'"
^DD(118.3,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(118.3,1,0)="LABEL?^S^Y:YES;N:NO;^0;2^Q"
^DD(118.3,1,21,0)="^^2^2^2920508^^"
^DD(118.3,1,21,1,0)="This field specifies whether the label should be printed or not for this"
^DD(118.3,1,21,2,0)="order."
^DD(118.3,1,"DT")="2920504"
^DD(118.3,99,0)="INACTIVE?^SX^Y:YES;N:NO;^I;1^Q"
^DD(118.3,99,1,0)="^.1"
^DD(118.3,99,1,1,0)="118.3^AC^MUMPS"
^DD(118.3,99,1,1,1)="K:X'=""Y"" ^FH(118.3,DA,""I"")"
^DD(118.3,99,1,1,2)="K ^FH(118.3,DA,""I"")"
^DD(118.3,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(118.3,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(118.3,99,1,1,"%D",2,0)="inactive entries."
^DD(118.3,99,21,0)="^.001^2^2^3040421^^^^"
^DD(118.3,99,21,1,0)="This field, if answered YES, will prohibit further selection of"
^DD(118.3,99,21,2,0)="this standing order by ward or dietetic personnel."
^DD(118.3,99,"DT")="3040421"
^DD(118.3,"B","INACTIVE?",99)=""
^DD(118.3,"B","LABEL?",1)=""
^DD(118.3,"B","NAME",.01)=""
^DD(118.3,"GL",0,1,.01)=""
^DD(118.3,"GL",0,2,1)=""
^DD(118.3,"GL","I",1,99)=""
^DD(118.3,"IX",.01)=""
^DD(118.3,"IX",99)=""
^DD(118.3,"RQ",.01)=""
^DD(119,0)="FIELD^^1^2"
^DD(119,0,"DT")="3010125"
^DD(119,0,"IX","B",119,.01)=""
^DD(119,0,"IX","C",119.01,.01)=""
^DD(119,0,"NM","DIETITIAN TICKLER FILE")=""
^DD(119,0,"VR")="5.5"
^DD(119,0,"VRPK")="DIETETICS"
^DD(119,.01,0)="DIETITIAN^RP200'X^VA(200,^0;1^I $D(X) S DINUM=X"
^DD(119,.01,1,0)="^.1"
^DD(119,.01,1,1,0)="119^B"
^DD(119,.01,1,1,1)="S ^FH(119,""B"",$E(X,1,30),DA)="""""
^DD(119,.01,1,1,2)="K ^FH(119,""B"",$E(X,1,30),DA)"
^DD(119,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the DIETITIAN field."
^DD(119,.01,3)=""
^DD(119,.01,21,0)="^^1^1^2911204^"
^DD(119,.01,21,1,0)="This field is a pointer to the Dietitian in File 200."
^DD(119,.01,"DT")="2910419"
^DD(119,1,0)="ITEM^119.01D^^I;0"
^DD(119,1,21,0)="^^1^1^2911204^"
^DD(119,1,21,1,0)="This field contains a free-text description of the item requiring action."
^DD(119,"B","DIETITIAN",.01)=""
^DD(119,"B","ITEM",1)=""
^DD(119,"GL",0,1,.01)=""
^DD(119,"GL","I",0,1)=""
^DD(119,"IX",.01)=""
^DD(119,"RQ",.01)=""
^DD(119,"SB",119.01,1)=""
^DD(119.01,0)="ITEM SUB-FIELD^^103^6"
^DD(119.01,0,"DT")="3010125"
^DD(119.01,0,"IX","C",119.01,101)=""
^DD(119.01,0,"NM","ITEM")=""
^DD(119.01,0,"UP")="119"
^DD(119.01,.01,0)="ITEM^MDX^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(119.01,.01,1,0)="^.1"
^DD(119.01,.01,1,1,0)="119^C"
^DD(119.01,.01,1,1,1)="S ^FH(119,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(119.01,.01,1,1,2)="K ^FH(119,""C"",$E(X,1,30),DA(1),DA)"
^DD(119.01,.01,1,1,"%D",0)="^^2^2^3020808^"
^DD(119.01,.01,1,1,"%D",1,0)="Cross reference by DATE (the .01 field of the ITEM multiple"
^DD(119.01,.01,1,1,"%D",2,0)="field)."
^DD(119.01,.01,1,1,"DT")="3020808"
^DD(119.01,.01,21,0)="^^2^2^2920323^^^"
^DD(119.01,.01,21,1,0)="This field contains the date/time at which the item"
^DD(119.01,.01,21,2,0)="has or will become active."
^DD(119.01,.01,"DT")="3020808"
^DD(119.01,1,0)="ITEM TYPE^S^C:CONSULT;D:DIET REVIEW;S:SUPP. FDG. REVIEW;X:PERSONAL;T:TUBEFEED;N:NUT. STATUS;O:ADDITIONAL ORDER;M:MONITOR;^0;2^Q"
^DD(119.01,1,21,0)="^.001^1^1^3010125^^^^"
^DD(119.01,1,21,1,0)="This field indicates the nature of the item."
^DD(119.01,1,"DT")="3010125"
^DD(119.01,2,0)="ITEM TEXT^F^^0;3^K:$L(X)>80!($L(X)<3) X"
^DD(119.01,2,3)="Answer must be 3-80 characters in length."
^DD(119.01,2,21,0)="^^1^1^2911204^"
^DD(119.01,2,21,1,0)="This field contains a free-text description of the item."
^DD(119.01,2,"DT")="2910419"
^DD(119.01,101,0)="PATIENT^P2'^DPT(^0;4^Q"
^DD(119.01,101,1,0)="^.1"
^DD(119.01,101,1,1,0)="119.01^C"
^DD(119.01,101,1,1,1)="S ^FH(119,DA(1),""I"",""C"",$E(X,1,30),DA)="""""
^DD(119.01,101,1,1,2)="K ^FH(119,DA(1),""I"",""C"",$E(X,1,30),DA)"
^DD(119.01,101,1,1,"%D",0)="^^1^1^3021015^"
^DD(119.01,101,1,1,"%D",1,0)="Cross reference the clinician's monitors by patient."
^DD(119.01,101,1,1,"DT")="3021015"
^DD(119.01,101,21,0)="^^1^1^2911204^"
^DD(119.01,101,21,1,0)="This field is a pointer to the patient to which the item is applicable."
^DD(119.01,101,"DT")="3021015"
^DD(119.01,102,0)="ADMISSION^P405'^DGPM(^0;5^Q"
^DD(119.01,102,21,0)="^^2^2^2911204^"
^DD(119.01,102,21,1,0)="This field is a pointer to the admission movement in File 405 to which"
^DD(119.01,102,21,2,0)="the item is applicable."
^DD(119.01,102,"DT")="2910419"
^DD(119.01,103,0)="ENTRY #^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.01,103,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(119.01,103,21,0)="^^2^2^2911204^"
^DD(119.01,103,21,1,0)="This is a pointer to the order number for the appropriate Type of"
^DD(119.01,103,21,2,0)="Ticker File item."
^DD(119.01,103,"DT")="2910419"
^DD(119.01,"B","ADMISSION",102)=""
^DD(119.01,"B","ENTRY #",103)=""
^DD(119.01,"B","ITEM",.01)=""
^DD(119.01,"B","ITEM TEXT",2)=""
^DD(119.01,"B","ITEM TYPE",1)=""
^DD(119.01,"B","PATIENT",101)=""
^DD(119.01,"GL",0,1,.01)=""
^DD(119.01,"GL",0,2,1)=""
^DD(119.01,"GL",0,3,2)=""
^DD(119.01,"GL",0,4,101)=""
^DD(119.01,"GL",0,5,102)=""
^DD(119.01,"GL",0,6,103)=""
^DD(119.01,"IX",.01)=""
^DD(119.01,"IX",101)=""
^DD(119.1,0)="FIELD^^.01^1"
^DD(119.1,0,"IX","B",119.1,.01)=""
^DD(119.1,0,"NM","UNITS")=""
^DD(119.1,0,"PT",113,5)=""
^DD(119.1,0,"VR")="5.5"
^DD(119.1,0,"VRPK")="DIETETICS"
^DD(119.1,.01,0)="NAME^RF^^0;1^K:$L(X)>12!($L(X)<2) X"
^DD(119.1,.01,1,0)="^.1"
^DD(119.1,.01,1,1,0)="119.1^B"
^DD(119.1,.01,1,1,1)="S ^FH(119.1,""B"",$E(X,1,30),DA)="""""
^DD(119.1,.01,1,1,2)="K ^FH(119.1,""B"",$E(X,1,30),DA)"
^DD(119.1,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.1,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(119.1,.01,3)="ANSWER MUST BE 2-12 CHARACTERS IN LENGTH"
^DD(119.1,.01,21,0)="^^2^2^2880709^"
^DD(119.1,.01,21,1,0)="This field contains the name of a unit which can be selected"
^DD(119.1,.01,21,2,0)="as the dietetic 'unit of issue' in the ingredient file."
^DD(119.1,.01,"DT")="2880306"
^DD(119.1,"B","NAME",.01)=""
^DD(119.1,"GL",0,1,.01)=""
^DD(119.1,"IX",.01)=""
^DD(119.1,"RQ",.01)=""
^DD(119.4,0)="FIELD^^99^4"
^DD(119.4,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(119.4,0,"IX","AC",119.4,99)=""
^DD(119.4,0,"IX","B",119.4,.01)=""
^DD(119.4,0,"NM","ISOLATION/PRECAUTION TYPE")=""
^DD(119.4,0,"PT",115,19)=""
^DD(119.4,0,"PT",115.01,9)=""
^DD(119.4,0,"SCR")="I '$D(^FH(119.4,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(119.4,0,"VR")="5.5"
^DD(119.4,0,"VRPK")="DIETETICS"
^DD(119.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(119.4,.01,1,0)="^.1"
^DD(119.4,.01,1,1,0)="119.4^B"
^DD(119.4,.01,1,1,1)="S ^FH(119.4,""B"",$E(X,1,30),DA)="""""
^DD(119.4,.01,1,1,2)="K ^FH(119.4,""B"",$E(X,1,30),DA)"
^DD(119.4,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.4,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(119.4,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(119.4,.01,21,0)="^^2^2^2880709^"
^DD(119.4,.01,21,1,0)="This field contains the name of isolation/precaution type"
^DD(119.4,.01,21,2,0)="as it would normally be known to ward/medical personnel."
^DD(119.4,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(119.4,1,0)="PAPER OR CHINA^RS^P:PAPER;C:CHINA;^0;2^Q"
^DD(119.4,1,21,0)="^^2^2^2880709^"
^DD(119.4,1,21,1,0)="This field indicates whether food is served on paper products"
^DD(119.4,1,21,2,0)="or china for this isolation type."
^DD(119.4,2,0)="DELIVERED BY NURSE OR FSW^RS^N:NURSE;F:FSW;^0;3^Q"
^DD(119.4,2,21,0)="^^2^2^2880709^"
^DD(119.4,2,21,1,0)="This field indicates whether food tray delivery is done by"
^DD(119.4,2,21,2,0)="food service workers (FSW) or by ward personnel (NURSE)."
^DD(119.4,2,"DT")="2871110"
^DD(119.4,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(119.4,99,1,0)="^.1"
^DD(119.4,99,1,1,0)="119.4^AC^MUMPS"
^DD(119.4,99,1,1,1)="K:X'=""Y"" ^FH(119.4,DA,""I"")"
^DD(119.4,99,1,1,2)="K ^FH(119.4,DA,""I"")"
^DD(119.4,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(119.4,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(119.4,99,1,1,"%D",2,0)="inactive entries."
^DD(119.4,99,21,0)="^^2^2^2880709^"
^DD(119.4,99,21,1,0)="This field, if answered YES, will inactivate an isolation"
^DD(119.4,99,21,2,0)="type and prohibit further selection by ward personnel."
^DD(119.4,99,"DT")="2860813"
^DD(119.4,"B","DELIVERED BY NURSE OR FSW",2)=""
^DD(119.4,"B","INACTIVE?",99)=""
^DD(119.4,"B","NAME",.01)=""
^DD(119.4,"B","PAPER OR CHINA",1)=""
^DD(119.4,"GL",0,1,.01)=""
^DD(119.4,"GL",0,2,1)=""
^DD(119.4,"GL",0,3,2)=""
^DD(119.4,"GL","I",1,99)=""
^DD(119.4,"IX",.01)=""
^DD(119.4,"IX",99)=""
^DD(119.4,"RQ",.01)=""
^DD(119.4,"RQ",1)=""
^DD(119.4,"RQ",2)=""
^DD(119.5,0)="FIELD^^99^7"
^DD(119.5,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(119.5,0,"IX","AC",119.5,99)=""
^DD(119.5,0,"IX","B",119.5,.01)=""
^DD(119.5,0,"NM","DIETETIC CONSULTS")=""
^DD(119.5,0,"PT",115.03,1)=""
^DD(119.5,0,"SCR")="I '$D(^FH(119.5,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(119.5,0,"VR")="5.5"
^DD(119.5,0,"VRPK")="DIETETICS"
^DD(119.5,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(119.5,.01,1,0)="^.1"
^DD(119.5,.01,1,1,0)="119.5^B"
^DD(119.5,.01,1,1,1)="S ^FH(119.5,""B"",$E(X,1,30),DA)="""""
^DD(119.5,.01,1,1,2)="K ^FH(119.5,""B"",$E(X,1,30),DA)"
^DD(119.5,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.5,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(119.5,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(119.5,.01,21,0)="^^2^2^2880709^"
^DD(119.5,.01,21,1,0)="This is the name of the consultation as it would normally be"
^DD(119.5,.01,21,2,0)="known by ward/medical personnel."
^DD(119.5,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(119.5,.01,"DT")="2850625"
^DD(119.5,1,0)="BRIEF NAME^RF^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(119.5,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(119.5,1,21,0)="^^1^1^2880717^"
^DD(119.5,1,21,1,0)="This is a short abbreviation of the dietetic consult type."
^DD(119.5,2,0)="ASK INITIAL/FOLLOW-UP?^S^Y:YES;N:NO;^0;3^Q"
^DD(119.5,2,21,0)="^^3^3^2880709^"
^DD(119.5,2,21,1,0)="This field, if answered YES, will prompt the clinician completing"
^DD(119.5,2,21,2,0)="the consult to indicate whether it was an initial consultation"
^DD(119.5,2,21,3,0)="or a follow-up to prior consultations."
^DD(119.5,2,"DT")="2850606"
^DD(119.5,3,0)="TU FOR INITIAL CONSULT^RNJ6,2^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(119.5,3,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(119.5,3,21,0)="^^3^3^2880709^"
^DD(119.5,3,21,1,0)="This field contains the number of 'time-units' associated"
^DD(119.5,3,21,2,0)="with an initial consultation. The values of these 'time-units'"
^DD(119.5,3,21,3,0)="are left to local discretion."
^DD(119.5,3,"DT")="2850618"
^DD(119.5,4,0)="TU FOR FOLLOW-UP^NJ6,2^^0;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(119.5,4,3)="TYPE A NUMBER BETWEEN 0 AND 100"
^DD(119.5,4,21,0)="^^4^4^2880709^"
^DD(119.5,4,21,1,0)="This field contains the number of 'time-units' associated"
^DD(119.5,4,21,2,0)="with a follow-up consultation and need be present only when"
^DD(119.5,4,21,3,0)="the follow-up prompt has been selected. The values of these"
^DD(119.5,4,21,4,0)="'time-units' is left to local discretion."
^DD(119.5,4,"DT")="2850618"
^DD(119.5,5,0)="USER TO BULLETIN^P200'^VA(200,^0;6^Q"
^DD(119.5,5,21,0)="^^4^4^2880709^"
^DD(119.5,5,21,1,0)="If a bulletin to a designated clinician is desired whenever"
^DD(119.5,5,21,2,0)="this consult is ordered, the clinician should be selected."
^DD(119.5,5,21,3,0)="An example might be a renal dialysis consult or a nutrition"
^DD(119.5,5,21,4,0)="support consult."
^DD(119.5,5,"DT")="2850821"
^DD(119.5,99,0)="INACTIVE?^SX^Y:YES;N:NO;^I;1^Q"
^DD(119.5,99,1,0)="^.1"
^DD(119.5,99,1,1,0)="119.5^AC^MUMPS"
^DD(119.5,99,1,1,1)="K:X'=""Y"" ^FH(119.5,DA,""I"")"
^DD(119.5,99,1,1,2)="K ^FH(119.5,DA,""I"")"
^DD(119.5,99,1,1,"%D",0)="^^2^2^2940818^"
^DD(119.5,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(119.5,99,1,1,"%D",2,0)="inactive entries."
^DD(119.5,99,21,0)="^^2^2^2880709^"
^DD(119.5,99,21,1,0)="This field, when answered YES, will prohibit further selection"
^DD(119.5,99,21,2,0)="of this consult type by ward or dietetic personnel."
^DD(119.5,99,"DT")="2871025"
^DD(119.5,"B","ASK INITIAL/FOLLOW-UP?",2)=""
^DD(119.5,"B","BRIEF NAME",1)=""
^DD(119.5,"B","INACTIVE?",99)=""
^DD(119.5,"B","NAME",.01)=""
^DD(119.5,"B","TU FOR FOLLOW-UP",4)=""
^DD(119.5,"B","TU FOR INITIAL CONSULT",3)=""
^DD(119.5,"B","USER TO BULLETIN",5)=""
^DD(119.5,"GL",0,1,.01)=""
^DD(119.5,"GL",0,2,1)=""
^DD(119.5,"GL",0,3,2)=""
^DD(119.5,"GL",0,4,3)=""
^DD(119.5,"GL",0,5,4)=""
^DD(119.5,"GL",0,6,5)=""
^DD(119.5,"GL","I",1,99)=""
^DD(119.5,"IX",.01)=""
^DD(119.5,"IX",99)=""
^DD(119.5,"RQ",.01)=""
^DD(119.5,"RQ",1)=""
^DD(119.5,"RQ",3)=""
^DD(119.6,0)="FIELD^^112^39"
^DD(119.6,0,"DDA")="N"
^DD(119.6,0,"DT")="3070226"
^DD(119.6,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(119.6,0,"IX","AC",119.6,99)=""
^DD(119.6,0,"IX","AL",119.64,.01)=""
^DD(119.6,0,"IX","AP",119.6,11)=""
^DD(119.6,0,"IX","AR",119.62,.01)=""
^DD(119.6,0,"IX","AS1",119.6,3)=""
^DD(119.6,0,"IX","AS2",119.6,4)=""
^DD(119.6,0,"IX","AS3",119.6,5)=""
^DD(119.6,0,"IX","AW",119.63,.01)=""
^DD(119.6,0,"IX","B",119.6,.01)=""
^DD(119.6,0,"IX","C",119.6,102)=""
^DD(119.6,0,"IX","CO",119.6,6)=""
^DD(119.6,0,"NM","NUTRITION LOCATION")=""
^DD(119.6,0,"PT",115.01,11)=""
^DD(119.6,0,"PT",115.01,13)=""
^DD(119.6,0,"PT",115.012,5)=""
^DD(119.6,0,"PT",115.016,2)=""
^DD(119.6,0,"PT",115.017,2)=""
^DD(119.6,0,"PT",115.018,4)=""
^DD(119.6,0,"PT",115.12,2)=""
^DD(119.6,0,"PT",14100045.01,2)=""
^DD(119.6,0,"PT",14100047,.01)=""
^DD(119.6,0,"PT",14100049.01,3)=""
^DD(119.6,0,"SCR")="I '$D(^FH(119.6,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(119.6,0,"VR")="5.5"
^DD(119.6,0,"VRPK")="FH"
^DD(119.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(119.6,.01,1,0)="^.1"
^DD(119.6,.01,1,1,0)="119.6^B"
^DD(119.6,.01,1,1,1)="S ^FH(119.6,""B"",$E(X,1,30),DA)="""""
^DD(119.6,.01,1,1,2)="K ^FH(119.6,""B"",$E(X,1,30),DA)"
^DD(119.6,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.6,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(119.6,.01,3)="Answer must be 1-30 characters in length."
^DD(119.6,.01,21,0)="^^1^1^2920507^^^^"
^DD(119.6,.01,21,1,0)="This is the name of a ward on which dietetic activity occurs."
^DD(119.6,.01,21,2,0)="It is selected from a list of MAS wards."
^DD(119.6,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(119.6,.01,"DT")="2911015"
^DD(119.6,1,0)="CLINICIAN^RP200'^VA(200,^0;2^Q"
^DD(119.6,1,21,0)="^.001^3^3^3070129^^^"
^DD(119.6,1,21,1,0)="This field contains the clinician(s) assigned to the ward and the"
^DD(119.6,1,21,2,0)="one(s) to whom dietetic consults will be routed and notification"
^DD(119.6,1,21,3,0)="made of special diet orders and tubefeedings."
^DD(119.6,2,0)="ROOM-BED^119.62P^^R;0"
^DD(119.6,2,21,0)="^.001^2^2^3020930^^^^"
^DD(119.6,2,21,1,0)="This is a pointer to File 405.4 and indicates that that room-bed"
^DD(119.6,2,21,2,0)="is to be considered part of this Dietetic Ward."
^DD(119.6,2.5,0)="ASSOCIATED MAS WARD^119.63P^^W;0"
^DD(119.6,2.5,21,0)="^.001^3^3^3040902^^^^"
^DD(119.6,2.5,21,1,0)="This is a list of MAS wards which are to be used as defaults to this"
^DD(119.6,2.5,21,2,0)="Dietetic ward for purposes of patient location when the room-bed is"
^DD(119.6,2.5,21,3,0)="unknown and for purposes of forecasting."
^DD(119.6,2.6,0)="ASSOCIATED HOSPITAL LOCATION^119.64P^^L;0"
^DD(119.6,2.6,21,0)="^.001^2^2^3060814^^^^"
^DD(119.6,2.6,21,1,0)="This multiple contains the hospital location(s)/clinic(s) associated with"
^DD(119.6,2.6,21,2,0)="this outpatient nutrition location."
^DD(119.6,3,0)="TRAY SERVICE POINT^*P119.72'^FH(119.72,^0;5^S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(119.6,3,1,0)="^.1"
^DD(119.6,3,1,1,0)="119.6^AS1^MUMPS"
^DD(119.6,3,1,1,1)="S Y="""" S:$P(^FH(119.6,DA,0),""^"",5) Y=Y_""T"" S:$P(^(0),""^"",6) Y=Y_""C"" S:$P(^(0),""^"",7) Y=Y_""D"" S $P(^(0),""^"",10)=Y"
^DD(119.6,3,1,1,2)="D SPKS^FH"
^DD(119.6,3,1,1,"%D",0)="^.101^3^3^3020514^^^^"
^DD(119.6,3,1,1,"%D",1,0)="This cross-reference, along with that on Fields 4 and 5, is used to"
^DD(119.6,3,1,1,"%D",2,0)="set the Services Field. It is a string containing C, T, and/or D"
^DD(119.6,3,1,1,"%D",3,0)="indicating which services are available for this ward."
^DD(119.6,3,1,1,"DT")="3020514"
^DD(119.6,3,12)="Allows selection only of tray lines"
^DD(119.6,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""T"""""""
^DD(119.6,3,21,0)="^.001^7^7^3040902^^^^"
^DD(119.6,3,21,1,0)="This field, if used, indicates that tray service is available to this"
^DD(119.6,3,21,2,0)="ward and is provided by the indicated Service Point. Note: if a Dining"
^DD(119.6,3,21,3,0)="Room is also available, then a Tray Service Point must be specified"
^DD(119.6,3,21,4,0)="as Dining Room trays are prepared there."
^DD(119.6,3,21,5,0)=""
^DD(119.6,3,21,6,0)="For outpatient nutrition locations this field indicates the tray Service"
^DD(119.6,3,21,7,0)="Point available for the location."
^DD(119.6,3,"DT")="3020514"
^DD(119.6,3.5,0)="TRAY FORECAST %^NJ3,0^^0;17^K:+X'=X!(X>120)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.6,3.5,3)="Type a Number between 0 and 120, 0 Decimal Digits"
^DD(119.6,3.5,21,0)="^.001^1^1^3020930^^"
^DD(119.6,3.5,21,1,0)="This is the % of patients on the ward typically receiving tray service."
^DD(119.6,3.5,"DT")="2911120"
^DD(119.6,4,0)="CAFETERIA SERVICE POINT^*P119.72'^FH(119.72,^0;6^S DIC(""S"")=""I $P(^(0),U,2)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(119.6,4,1,0)="^.1"
^DD(119.6,4,1,1,0)="119.6^AS2^MUMPS"
^DD(119.6,4,1,1,1)="S Y="""" S:$P(^FH(119.6,DA,0),""^"",5) Y=Y_""T"" S:$P(^(0),""^"",6) Y=Y_""C"" S:$P(^(0),""^"",7) Y=Y_""D"" S $P(^(0),""^"",10)=Y"
^DD(119.6,4,1,1,2)="D SPKS^FH"
^DD(119.6,4,1,1,"%D",0)="^.101^3^3^3020514^^^"
^DD(119.6,4,1,1,"%D",1,0)="This cross-reference, along with that on Fields 3 and 5, is used to"
^DD(119.6,4,1,1,"%D",2,0)="set the Services Field. It is a string containing C, T, and/or D"
^DD(119.6,4,1,1,"%D",3,0)="indicating which services are available for this ward."
^DD(119.6,4,1,1,"DT")="3020514"
^DD(119.6,4,12)="Allows selction only of cafeterias"
^DD(119.6,4,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""C"""""""
^DD(119.6,4,21,0)="^.001^5^5^3040902^^^^"
^DD(119.6,4,21,1,0)="This field, if used, indicates that cafeteria service is available"
^DD(119.6,4,21,2,0)="to this ward and is provided by the indicated Service Point."
^DD(119.6,4,21,3,0)=""
^DD(119.6,4,21,4,0)="For outpatient nutrition locations this field indicates the cafeteria"
^DD(119.6,4,21,5,0)="Service Point available for the location."
^DD(119.6,4,"DT")="3020514"
^DD(119.6,4.5,0)="CAFETERIA FORECAST %^NJ3,0^^0;18^K:+X'=X!(X>120)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.6,4.5,3)="Type a Number between 0 and 120, 0 Decimal Digits"
^DD(119.6,4.5,21,0)="^.001^2^2^3020930^^"
^DD(119.6,4.5,21,1,0)="This is the % of patients on the ward typically receiving cafeteria"
^DD(119.6,4.5,21,2,0)="service."
^DD(119.6,4.5,"DT")="2911120"
^DD(119.6,5,0)="DINING ROOM TRAY SERVICE?^S^1:YES;0:NO;^0;7^Q"
^DD(119.6,5,1,0)="^.1"
^DD(119.6,5,1,1,0)="119.6^AS3^MUMPS"
^DD(119.6,5,1,1,1)="S Y="""" S:$P(^FH(119.6,DA,0),""^"",5) Y=Y_""T"" S:$P(^(0),""^"",6) Y=Y_""C"" S:$P(^(0),""^"",7) Y=Y_""D"" S $P(^(0),""^"",10)=Y"
^DD(119.6,5,1,1,2)="D SPKS^FH"
^DD(119.6,5,1,1,"%D",0)="^.101^3^3^3020514^^^"
^DD(119.6,5,1,1,"%D",1,0)="This cross-reference, along with that on Fields 3 and 4, is used to"
^DD(119.6,5,1,1,"%D",2,0)="set the Services Field. It is a string containing C, T, and/or D"
^DD(119.6,5,1,1,"%D",3,0)="indicating which services are available for this ward."
^DD(119.6,5,1,1,"DT")="3020514"
^DD(119.6,5,3)=""
^DD(119.6,5,21,0)="^.001^4^4^3040902^^^^"
^DD(119.6,5,21,1,0)="A YES means that Dining Room tray service is available to this ward."
^DD(119.6,5,21,2,0)=""
^DD(119.6,5,21,3,0)="For outpatient nutrition locations a YES in this field indicates that"
^DD(119.6,5,21,4,0)="Dining Room tray service is available for this location."
^DD(119.6,5,"DT")="3020514"
^DD(119.6,5.5,0)="DINING ROOM FORECAST %^NJ3,0^^0;19^K:+X'=X!(X>120)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.6,5.5,3)="Type a Number between 0 and 120, 0 Decimal Digits"
^DD(119.6,5.5,21,0)="^.001^2^2^3020930^^"
^DD(119.6,5.5,21,1,0)="This is the % of patients on the ward typically receiving dining room"
^DD(119.6,5.5,21,2,0)="service."
^DD(119.6,5.5,"DT")="2911204"
^DD(119.6,6,0)="COMMUNICATION OFFICE^RP119.73'^FH(119.73,^0;8^Q"
^DD(119.6,6,1,0)="^.1"
^DD(119.6,6,1,1,0)="119.6^CO"
^DD(119.6,6,1,1,1)="S ^FH(119.6,""CO"",$E(X,1,30),DA)="""""
^DD(119.6,6,1,1,2)="K ^FH(119.6,""CO"",$E(X,1,30),DA)"
^DD(119.6,6,1,1,"%D",0)="^^1^1^3040420^"
^DD(119.6,6,1,1,"%D",1,0)="Cross reference locations by Communication Office."
^DD(119.6,6,1,1,"DT")="3040420"
^DD(119.6,6,21,0)="^.001^2^2^3040902^^^^"
^DD(119.6,6,21,1,0)="This field indicates which Communication Office is responsible for"
^DD(119.6,6,21,2,0)="processing diet requests from this ward or outpatient location."
^DD(119.6,6,"DT")="3040420"
^DD(119.6,7,0)="SUPP. FDG. SITE^P119.74'^FH(119.74,^0;9^Q"
^DD(119.6,7,21,0)="^.001^2^2^3020930^^"
^DD(119.6,7,21,1,0)="This field indicates which Supplemental Feeding Site is responsible for"
^DD(119.6,7,21,2,0)="preparing Supplemental Feedings and Bulk Nourishments for this ward."
^DD(119.6,7,"DT")="2911204"
^DD(119.6,11,0)="PRINT ORDER^RNJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,11,1,0)="^.1"
^DD(119.6,11,1,1,0)="119.6^AP"
^DD(119.6,11,1,1,1)="S ^FH(119.6,""AP"",$E(X,1,30),DA)="""""
^DD(119.6,11,1,1,2)="K ^FH(119.6,""AP"",$E(X,1,30),DA)"
^DD(119.6,11,1,1,3)="This field is required"
^DD(119.6,11,1,1,"DT")="2911029"
^DD(119.6,11,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(119.6,11,21,0)="^.001^3^3^3020930^^^^"
^DD(119.6,11,21,1,0)="This field represents the print order of this ward. It is used"
^DD(119.6,11,21,2,0)="to sort the wards for delivery purposes which are then printed"
^DD(119.6,11,21,3,0)="from low print order to high print order."
^DD(119.6,11,"DT")="2911029"
^DD(119.6,15,0)="DEFAULT ADMISSION DIET^P111'^FH(111,^0;15^Q"
^DD(119.6,15,21,0)="^.001^3^3^3020930^^^^"
^DD(119.6,15,21,1,0)="This field is optional. It may contain a diet from the Diets"
^DD(119.6,15,21,2,0)="file (111) and, if so, the diet will automatically be ordered"
^DD(119.6,15,21,3,0)="for each patient at the time of admission."
^DD(119.6,15,"DT")="2850629"
^DD(119.6,16,0)="'NO ORDER' DIET ON ADMISSION^S^Y:YES;N:NO;^0;16^Q"
^DD(119.6,16,21,0)="^.001^3^3^3020930^^^^"
^DD(119.6,16,21,1,0)="This field is used to indicate whether a 'No Order' Diet"
^DD(119.6,16,21,2,0)="order should be generated upon admission; this field is"
^DD(119.6,16,21,3,0)="applicable only if no default admission diet is specified."
^DD(119.6,16,"DT")="2880904"
^DD(119.6,20,0)="BULK NOURISHMENTS^119.61P^^BN;0"
^DD(119.6,20,21,0)="^.001^2^2^3020930^^^"
^DD(119.6,20,21,1,0)="This multiple represents bulk nourishments (supplemental feedings)"
^DD(119.6,20,21,2,0)="delivered to this ward."
^DD(119.6,21,0)="# DAYS TO REVIEW NPO^NJ1,0^^0;11^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,21,3)="Type a Number between 1 and 7, 0 Decimal Digits"
^DD(119.6,21,21,0)="^^2^2^2911204^"
^DD(119.6,21,21,1,0)="This field indicates the number of days following an NPO order after"
^DD(119.6,21,21,2,0)="which the patient should be reviewed."
^DD(119.6,21,"DT")="2910430"
^DD(119.6,22,0)="# DAYS TO REVIEW TF^NJ2,0^^0;12^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,22,3)="Type a Number between 1 and 30, 0 Decimal Digits"
^DD(119.6,22,21,0)="^^2^2^2911204^"
^DD(119.6,22,21,1,0)="This field indicates the number of days following a Tubefeeding order"
^DD(119.6,22,21,2,0)="after which the patient should be reviewed."
^DD(119.6,22,"DT")="2910430"
^DD(119.6,23,0)="# DAYS TO REVIEW SF^NJ2,0^^0;13^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,23,3)="Type a Number between 1 and 30, 0 Decimal Digits"
^DD(119.6,23,21,0)="^^2^2^2911204^"
^DD(119.6,23,21,1,0)="This field indicates the number of days following a Supplemental Feeding"
^DD(119.6,23,21,2,0)="order after which the patient should be reviewed."
^DD(119.6,23,"DT")="2910430"
^DD(119.6,24,0)="# DAYS FOR STATUS AFTER ADMIT^NJ2,0^^0;14^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,24,3)="Type a Number between 1 and 30, 0 Decimal Digits"
^DD(119.6,24,21,0)="^^2^2^2911204^"
^DD(119.6,24,21,1,0)="This field indicates the number of days following admission after which"
^DD(119.6,24,21,2,0)="a Nutrition Status evaluation should have been performed."
^DD(119.6,24,"DT")="2910517"
^DD(119.6,25,0)="# DAYS TO REVIEW STATUS I^NJ3,0^^0;20^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,25,3)="Type a Number between 1 and 120, 0 Decimal Digits"
^DD(119.6,25,21,0)="^^2^2^2920106^^"
^DD(119.6,25,21,1,0)="This is the number of days after which a patient in this Nutrition"
^DD(119.6,25,21,2,0)="Status category should be reviewed."
^DD(119.6,25,"DT")="2930222"
^DD(119.6,26,0)="# DAYS TO REVIEW STATUS II^NJ3,0^^0;21^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,26,3)="Type a Number between 1 and 120, 0 Decimal Digits"
^DD(119.6,26,21,0)="^^2^2^2920106^^"
^DD(119.6,26,21,1,0)="This is the number of days after which a patient in this Nutrition"
^DD(119.6,26,21,2,0)="Status category should be reviewed."
^DD(119.6,26,"DT")="2930222"
^DD(119.6,27,0)="# DAYS TO REVIEW STATUS III^NJ3,0^^0;22^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,27,3)="Type a Number between 1 and 120, 0 Decimal Digits"
^DD(119.6,27,21,0)="^^2^2^2920106^^"
^DD(119.6,27,21,1,0)="This is the number of days after which a patient in this Nutrition"
^DD(119.6,27,21,2,0)="Status category should be reviewed."
^DD(119.6,27,"DT")="2930222"
^DD(119.6,28,0)="# DAYS TO REVIEW STATUS IV^NJ3,0^^0;23^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,28,3)="Type a Number between 1 and 120, 0 Decimal Digits"
^DD(119.6,28,21,0)="^^2^2^2920106^^"
^DD(119.6,28,21,1,0)="This is the number of days after which a patient in this Nutrition"
^DD(119.6,28,21,2,0)="Status category should be reviewed."
^DD(119.6,28,"DT")="2930222"
^DD(119.6,29,0)="CAFETERIA ON TRAY TICKET^S^Y:YES;N:NO;^0;24^Q"
^DD(119.6,29,21,0)="^.001^2^2^3020930^^"
^DD(119.6,29,21,1,0)="This field is optional and it is used to indicate whether patients"
^DD(119.6,29,21,2,0)="that go to the cafeteria should be included on the tray ticket."
^DD(119.6,29,"DT")="2940413"
^DD(119.6,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(119.6,99,1,0)="^.1"
^DD(119.6,99,1,1,0)="119.6^AC^MUMPS"
^DD(119.6,99,1,1,1)="K:X'=""Y"" ^FH(119.6,DA,""I"")"
^DD(119.6,99,1,1,2)="K ^FH(119.6,DA,""I"")"
^DD(119.6,99,1,1,"%D",0)="^^2^2^3000202"
^DD(119.6,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(119.6,99,1,1,"%D",2,0)="inactive entries."
^DD(119.6,99,21,0)="^.001^2^2^3020930^"
^DD(119.6,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(119.6,99,21,2,0)="further selection of this entry."
^DD(119.6,99,"DT")="3000223"
^DD(119.6,101,0)="SERVICES^F^^0;10^K:$L(X)>3!($L(X)<1) X"
^DD(119.6,101,3)="Answer must be 1-3 characters in length."
^DD(119.6,101,21,0)="^.001^2^2^3020930^^^"
^DD(119.6,101,21,1,0)="This field contains one or more of the characters T, C or D indicating"
^DD(119.6,101,21,2,0)="tray service, cafeteria service, and/or dining room service is available."
^DD(119.6,101,"DT")="2911031"
^DD(119.6,102,0)="OUTPATIENT LOCATION^V^^1;1^Q"
^DD(119.6,102,1,0)="^.1"
^DD(119.6,102,1,1,0)="119.6^C"
^DD(119.6,102,1,1,1)="S ^FH(119.6,""C"",$E(X,1,30),DA)="""""
^DD(119.6,102,1,1,2)="K ^FH(119.6,""C"",$E(X,1,30),DA)"
^DD(119.6,102,1,1,"DT")="3060404"
^DD(119.6,102,21,0)="^.001^3^3^3060404^^"
^DD(119.6,102,21,1,0)="This field is a variable pointer to either the Ward Location (#42) file"
^DD(119.6,102,21,2,0)="or the Hospital Location (#44) file.  This will be used for outpatient"
^DD(119.6,102,21,3,0)="locations."
^DD(119.6,102,"DT")="3060404"
^DD(119.6,102,"V",0)="^.12P^2^2"
^DD(119.6,102,"V",1,0)="44^HOSPITAL LOCATION^1^HL^n^n"
^DD(119.6,102,"V",2,0)="42^WARD LOCATION^2^WL^n^n"
^DD(119.6,102,"V","B",42,2)=""
^DD(119.6,102,"V","B",44,1)=""
^DD(119.6,102,"V","M","HOSPITAL LOCATION",1)=""
^DD(119.6,102,"V","M","WARD LOCATION",2)=""
^DD(119.6,102,"V","O",1,1)=""
^DD(119.6,102,"V","O",2,2)=""
^DD(119.6,102,"V","P","HL",1)=""
^DD(119.6,102,"V","P","WL",2)=""
^DD(119.6,103,0)="MAX # OF DAYS^NJ3,0^^1;2^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,103,3)="Type a Number between 1 and 365, 0 Decimal Digits"
^DD(119.6,103,21,0)="^.001^6^6^3040902^^^"
^DD(119.6,103,21,1,0)="This field is optional.  If used it will be set to the maximum number of"
^DD(119.6,103,21,2,0)="days ahead a recurring meal plan can be ordered, ie, if this field is set to"
^DD(119.6,103,21,3,0)="365 then when ordering a recurring meal it cannot be ordered past one year"
^DD(119.6,103,21,4,0)="from the ordering date.  If the field is left NULL then a default of 999"
^DD(119.6,103,21,5,0)="days is assumed.  This field will be checked upon entering the FROM/TO dates"
^DD(119.6,103,21,6,0)="in the Order/Edit Outpatient Meals option."
^DD(119.6,103,"DT")="3030313"
^DD(119.6,104,0)="NUMBER OF DAYS FOR REVIEW^RNJ2,0^^1;3^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.6,104,3)="Type a Number between 1 and 30, 0 Decimal Digits"
^DD(119.6,104,21,0)="^.001^5^5^3041109^^^^"
^DD(119.6,104,21,1,0)="This field will be used for the Outpatient Meals Print Meal Plan Expiration"
^DD(119.6,104,21,2,0)="List option.  It may be set to a number of days which will be used for"
^DD(119.6,104,21,3,0)="review by the above option, ie, if this field is set to 7 then when the"
^DD(119.6,104,21,4,0)="Print Meal Plan Expiration List option is run it will check for recurring"
^DD(119.6,104,21,5,0)="meal plans that will be expiring within the next 7 days."
^DD(119.6,104,"DT")="3041109"
^DD(119.6,105,0)="NON-VA FACILITY?^S^Y:Yes;N:No;^1;4^Q"
^DD(119.6,105,21,0)="^.001^6^6^3040902^^^"
^DD(119.6,105,21,1,0)="This will be an optional YES/NO field that may be set when setting up"
^DD(119.6,105,21,2,0)="new outpatient locations.  If the field is set to YES the Order/Edit"
^DD(119.6,105,21,3,0)="Recurring Meal option will use this flag to allow selection of up to 5"
^DD(119.6,105,21,4,0)="diets from any diet in the Diets (#111) file.  If the field is blank or"
^DD(119.6,105,21,5,0)="set to NO then the Order/Edit option will only allow selection of 1 diet"
^DD(119.6,105,21,6,0)="from the 5 allowable diets set up in the site parameters."
^DD(119.6,105,"DT")="3030324"
^DD(119.6,106,0)="INPATIENT/OUTPATIENT^RS^I:Inpatient;O:Outpatient;^0;3^Q"
^DD(119.6,106,21,0)="^.001^6^6^3040902^^^"
^DD(119.6,106,21,1,0)="This field will serve as a flag to determine whether the location is an"
^DD(119.6,106,21,2,0)="inpatient or an outpatient location.  This will be required with the"
^DD(119.6,106,21,3,0)="Outpatient Meals functionality, since it will be necessary to store "
^DD(119.6,106,21,4,0)="inpatient and outpatient locations in this file."
^DD(119.6,106,21,5,0)=""
^DD(119.6,106,21,6,0)="For all outpatient locations this field should be set to OUTPATIENT."
^DD(119.6,106,"DT")="3030421"
^DD(119.6,107,0)="ALERT BMI^S^Y:YES;N:NO;^1;5^Q"
^DD(119.6,107,3)="Do you want to be alerted for BMI value for this location?"
^DD(119.6,107,21,0)="^^2^2^3060925^"
^DD(119.6,107,21,1,0)="This field, if set to YES, indicates that a clinicians will be alerted if "
^DD(119.6,107,21,2,0)="the Body Mass Index (BMI) is below its level."
^DD(119.6,107,"DT")="3060925"
^DD(119.6,108,0)="ALERT TUBEFEEDING^S^Y:YES;N:NO;^1;6^Q"
^DD(119.6,108,3)="Do you want to be alerted for Tubefeeding value for this location?"
^DD(119.6,108,21,0)="^^2^2^3060925^"
^DD(119.6,108,21,1,0)="This field, if set to YES, indicates that a clinician will be alerted if "
^DD(119.6,108,21,2,0)="tubefeeding needs to be reviewed."
^DD(119.6,108,"DT")="3060925"
^DD(119.6,109,0)="ALERT HYPERALS^S^Y:YES;N:NO;^1;7^Q"
^DD(119.6,109,3)="Do you want to be alerted for Hyperals value for this location?"
^DD(119.6,109,21,0)="^^2^2^3060925^"
^DD(119.6,109,21,1,0)="This field, if set to YES, indicates that a clinician will be alerted if "
^DD(119.6,109,21,2,0)="certain patient is in hyperals."
^DD(119.6,109,"DT")="3060925"
^DD(119.6,110,0)="ALERT ALBUMIN^S^Y:YES;N:NO;^1;8^Q"
^DD(119.6,110,3)="Do you want to be alerted for Albumin value for this location?"
^DD(119.6,110,21,0)="^^2^2^3060925^"
^DD(119.6,110,21,1,0)="This field, if set to YES, indicates that a clinician will be alerted if "
^DD(119.6,110,21,2,0)="the albumin value is below the designated level."
^DD(119.6,110,"DT")="3060925"
^DD(119.6,111,0)="ALERT NPO+CLRLIQ^S^Y:YES;N:NO;^1;9^Q"
^DD(119.6,111,3)="Do you want to be alerted for NPO+CLRLIQ value for this location?"
^DD(119.6,111,21,0)="^^3^3^3060925^"
^DD(119.6,111,21,1,0)="This field, if set to YES, indicates that a clinician will be "
^DD(119.6,111,21,2,0)="alerted if certain patient with Nothing by Mouth (NPO) + Clear Liquid"
^DD(119.6,111,21,3,0)="(CLRLIQ) diet needs to be reviewed."
^DD(119.6,111,"DT")="3060925"
^DD(119.6,112,0)="CLINICIAN(S)^119.66P^^2;0"
^DD(119.6,112,"DT")="3070129"
^DD(119.6,"B","# DAYS FOR STATUS AFTER ADMIT",24)=""
^DD(119.6,"B","# DAYS TO REVIEW NPO",21)=""
^DD(119.6,"B","# DAYS TO REVIEW SF",23)=""
^DD(119.6,"B","# DAYS TO REVIEW STATUS I",25)=""
^DD(119.6,"B","# DAYS TO REVIEW STATUS II",26)=""
^DD(119.6,"B","# DAYS TO REVIEW STATUS III",27)=""
^DD(119.6,"B","# DAYS TO REVIEW STATUS IV",28)=""
^DD(119.6,"B","# DAYS TO REVIEW TF",22)=""
^DD(119.6,"B","'NO ORDER' DIET ON ADMISSION",16)=""
^DD(119.6,"B","ALERT ALBUMIN",110)=""
^DD(119.6,"B","ALERT BMI",107)=""
^DD(119.6,"B","ALERT HYPERALS",109)=""
^DD(119.6,"B","ALERT NPO+CLRLIQ",111)=""
^DD(119.6,"B","ALERT TUBEFEEDING",108)=""
^DD(119.6,"B","ASSOCIATED HOSPITAL LOCATION",2.6)=""
^DD(119.6,"B","ASSOCIATED MAS WARD",2.5)=""
^DD(119.6,"B","BULK NOURISHMENTS",20)=""
^DD(119.6,"B","CAFETERIA FORECAST %",4.5)=""
^DD(119.6,"B","CAFETERIA ON TRAY TICKET",29)=""
^DD(119.6,"B","CAFETERIA SERVICE POINT",4)=""
^DD(119.6,"B","CLINICIAN",1)=""
^DD(119.6,"B","CLINICIAN(S)",112)=""
^DD(119.6,"B","COMMUNICATION OFFICE",6)=""
^DD(119.6,"B","DEFAULT ADMISSION DIET",15)=""
^DD(119.6,"B","DINING ROOM FORECAST %",5.5)=""
^DD(119.6,"B","DINING ROOM TRAY SERVICE?",5)=""
^DD(119.6,"B","INACTIVE?",99)=""
^DD(119.6,"B","INPATIENT/OUTPATIENT",106)=""
^DD(119.6,"B","MAX # OF DAYS",103)=""
^DD(119.6,"B","NAME",.01)=""
^DD(119.6,"B","NON-VA FACILITY?",105)=""
^DD(119.6,"B","NUMBER OF DAYS FOR REVIEW",104)=""
^DD(119.6,"B","OUTPATIENT LOCATION",102)=""
^DD(119.6,"B","PRINT ORDER",11)=""
^DD(119.6,"B","ROOM-BED",2)=""
^DD(119.6,"B","SERVICES",101)=""
^DD(119.6,"B","SUPP. FDG. SITE",7)=""
^DD(119.6,"B","TRAY FORECAST %",3.5)=""
^DD(119.6,"B","TRAY SERVICE POINT",3)=""
^DD(119.6,"GL",0,1,.01)=""
^DD(119.6,"GL",0,2,1)=""
^DD(119.6,"GL",0,3,106)=""
^DD(119.6,"GL",0,4,11)=""
^DD(119.6,"GL",0,5,3)=""
^DD(119.6,"GL",0,6,4)=""
^DD(119.6,"GL",0,7,5)=""
^DD(119.6,"GL",0,8,6)=""
^DD(119.6,"GL",0,9,7)=""
^DD(119.6,"GL",0,10,101)=""
^DD(119.6,"GL",0,11,21)=""
^DD(119.6,"GL",0,12,22)=""
^DD(119.6,"GL",0,13,23)=""
^DD(119.6,"GL",0,14,24)=""
^DD(119.6,"GL",0,15,15)=""
^DD(119.6,"GL",0,16,16)=""
^DD(119.6,"GL",0,17,3.5)=""
^DD(119.6,"GL",0,18,4.5)=""
^DD(119.6,"GL",0,19,5.5)=""
^DD(119.6,"GL",0,20,25)=""
^DD(119.6,"GL",0,21,26)=""
^DD(119.6,"GL",0,22,27)=""
^DD(119.6,"GL",0,23,28)=""
^DD(119.6,"GL",0,24,29)=""
^DD(119.6,"GL",1,1,102)=""
^DD(119.6,"GL",1,2,103)=""
^DD(119.6,"GL",1,3,104)=""
^DD(119.6,"GL",1,4,105)=""
^DD(119.6,"GL",1,5,107)=""
^DD(119.6,"GL",1,6,108)=""
^DD(119.6,"GL",1,7,109)=""
^DD(119.6,"GL",1,8,110)=""
^DD(119.6,"GL",1,9,111)=""
^DD(119.6,"GL",2,0,112)=""
^DD(119.6,"GL","BN",0,20)=""
^DD(119.6,"GL","I",1,99)=""
^DD(119.6,"GL","L",0,2.6)=""
^DD(119.6,"GL","R",0,2)=""
^DD(119.6,"GL","W",0,2.5)=""
^DD(119.6,"IX",.01)=""
^DD(119.6,"IX",3)=""
^DD(119.6,"IX",4)=""
^DD(119.6,"IX",5)=""
^DD(119.6,"IX",6)=""
^DD(119.6,"IX",11)=""
^DD(119.6,"IX",99)=""
^DD(119.6,"IX",102)=""
^DD(119.6,"RQ",.01)=""
^DD(119.6,"RQ",1)=""
^DD(119.6,"RQ",6)=""
^DD(119.6,"RQ",11)=""
^DD(119.6,"RQ",104)=""
^DD(119.6,"RQ",106)=""
^DD(119.6,"SB",119.61,20)=""
^DD(119.6,"SB",119.62,2)=""
^DD(119.6,"SB",119.63,2.5)=""
^DD(119.6,"SB",119.64,2.6)=""
^DD(119.6,"SB",119.66,112)=""
^DD(119.61,0)="BULK NOURISHMENTS SUB-FIELD^NL^1^2"
^DD(119.61,0,"NM","BULK NOURISHMENTS")=""
^DD(119.61,0,"UP")="119.6"
^DD(119.61,.01,0)="BULK NOURISHMENTS^MP118'^FH(118,^0;1^Q"
^DD(119.61,.01,21,0)="^.001^2^2^3020930^^"
^DD(119.61,.01,21,1,0)="This field contains the name of the bulk nourishment (supplemental"
^DD(119.61,.01,21,2,0)="feeding) item to be delivered to the ward."
^DD(119.61,.01,"DT")="2850604"
^DD(119.61,1,0)="QUANTITY^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.61,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(119.61,1,21,0)="^^2^2^2880717^"
^DD(119.61,1,21,1,0)="This field represents the quantity of the bulk nourishment"
^DD(119.61,1,21,2,0)="item to be delivered."
^DD(119.61,1,"DT")="2850604"
^DD(119.61,"B","BULK NOURISHMENTS",.01)=""
^DD(119.61,"B","QUANTITY",1)=""
^DD(119.61,"GL",0,1,.01)=""
^DD(119.61,"GL",0,2,1)=""
^DD(119.61,"RQ",1)=""
^DD(119.62,0)="ROOM-BED SUB-FIELD^^1^2"
^DD(119.62,0,"DT")="2940127"
^DD(119.62,0,"IX","B",119.62,.01)=""
^DD(119.62,0,"NM","ROOM-BED")=""
^DD(119.62,0,"UP")="119.6"
^DD(119.62,.01,0)="ROOM-BED^MP405.4'X^DG(405.4,^0;1^I $D(X) S Y=$O(^FH(119.6,""AR"",X,0)) I Y>0,Y-DA(1) W *7,""  Room already assigned to "",$P($G(^FH(119.6,+Y,0)),""^"",1) K X"
^DD(119.62,.01,1,0)="^.1"
^DD(119.62,.01,1,1,0)="119.62^B"
^DD(119.62,.01,1,1,1)="S ^FH(119.6,DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(119.62,.01,1,1,2)="K ^FH(119.6,DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(119.62,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.62,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the ROOM-BED field."
^DD(119.62,.01,1,2,0)="119.6^AR"
^DD(119.62,.01,1,2,1)="S ^FH(119.6,""AR"",$E(X,1,30),DA(1),DA)="""""
^DD(119.62,.01,1,2,2)="K ^FH(119.6,""AR"",$E(X,1,30),DA(1),DA)"
^DD(119.62,.01,1,2,"DT")="2911015"
^DD(119.62,.01,21,0)="^.001^2^2^3020930^^"
^DD(119.62,.01,21,1,0)="This field is a pointer to File 405.4 and indicates that this room-bed"
^DD(119.62,.01,21,2,0)="is to be considered part of this Dietetic Ward."
^DD(119.62,.01,"DT")="2911030"
^DD(119.62,1,0)="DELIVERY ORDER^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.62,1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(119.62,1,21,0)="^^3^3^2940127^"
^DD(119.62,1,21,1,0)="This value will be used to determine the order of printing labels"
^DD(119.62,1,21,2,0)="or tickets for items to be delivered.  Thus, the value represents"
^DD(119.62,1,21,3,0)="the order of delivery for beds on the ward."
^DD(119.62,1,"DT")="2940127"
^DD(119.62,"B","DELIVERY ORDER",1)=""
^DD(119.62,"B","ROOM-BED",.01)=""
^DD(119.62,"GL",0,1,.01)=""
^DD(119.62,"GL",0,2,1)=""
^DD(119.62,"IX",.01)=""
^DD(119.63,0)="ASSOCIATED MAS WARD SUB-FIELD^^.01^1"
^DD(119.63,0,"DT")="2911018"
^DD(119.63,0,"IX","B",119.63,.01)=""
^DD(119.63,0,"NM","ASSOCIATED MAS WARD")=""
^DD(119.63,0,"UP")="119.6"
^DD(119.63,.01,0)="ASSOCIATED MAS WARD^MP42'X^DIC(42,^0;1^I $D(X) S Y=$O(^FH(119.6,""AW"",X,0)) I Y>0,Y-DA(1) W *7,""  Ward already assigned to "",$P($G(^FH(119.6,+Y,0)),""^"",1) K X"
^DD(119.63,.01,1,0)="^.1"
^DD(119.63,.01,1,1,0)="119.63^B"
^DD(119.63,.01,1,1,1)="S ^FH(119.6,DA(1),""W"",""B"",$E(X,1,30),DA)="""""
^DD(119.63,.01,1,1,2)="K ^FH(119.6,DA(1),""W"",""B"",$E(X,1,30),DA)"
^DD(119.63,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.63,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the ASSOCIATED MAS WARD field."
^DD(119.63,.01,1,2,0)="119.6^AW"
^DD(119.63,.01,1,2,1)="S ^FH(119.6,""AW"",$E(X,1,30),DA(1),DA)="""""
^DD(119.63,.01,1,2,2)="K ^FH(119.6,""AW"",$E(X,1,30),DA(1),DA)"
^DD(119.63,.01,1,2,"DT")="2911018"
^DD(119.63,.01,21,0)="^.001^5^5^3030903^^^"
^DD(119.63,.01,21,1,0)="This field indicates that (a) on admission, a patient with no room-bed,"
^DD(119.63,.01,21,2,0)="but assigned to this MAS ward, will be considered to be on this Dietetic"
^DD(119.63,.01,21,3,0)="Ward."
^DD(119.63,.01,21,4,0)="(b) For forecasting purposes, the census of this MAS ward will be used"
^DD(119.63,.01,21,5,0)="in calculating the forecasted census for this Dietetic ward."
^DD(119.63,.01,"DT")="2911030"
^DD(119.63,"B","ASSOCIATED MAS WARD",.01)=""
^DD(119.63,"GL",0,1,.01)=""
^DD(119.63,"IX",.01)=""
^DD(119.64,0)="ASSOCIATED HOSPITAL LOCATION SUB-FIELD^^.01^1"
^DD(119.64,0,"DT")="3060814"
^DD(119.64,0,"IX","B",119.64,.01)=""
^DD(119.64,0,"NM","ASSOCIATED HOSPITAL LOCATION")=""
^DD(119.64,0,"UP")="119.6"
^DD(119.64,.01,0)="ASSOCIATED HOSPITAL LOCATION^MRP44'X^SC(^0;1^I $D(X) S Y=$O(^FH(119.6,""AL"",X,0)) I Y>0,Y-DA(1) W ""  Hospital location already assigned to "",$P($G(^FH(119.6,+Y,0)),""^"",1) K X"
^DD(119.64,.01,1,0)="^.1"
^DD(119.64,.01,1,1,0)="119.64^B"
^DD(119.64,.01,1,1,1)="S ^FH(119.6,DA(1),""L"",""B"",$E(X,1,30),DA)="""""
^DD(119.64,.01,1,1,2)="K ^FH(119.6,DA(1),""L"",""B"",$E(X,1,30),DA)"
^DD(119.64,.01,1,2,0)="119.6^AL"
^DD(119.64,.01,1,2,1)="S ^FH(119.6,""AL"",$E(X,1,30),DA(1),DA)="""""
^DD(119.64,.01,1,2,2)="K ^FH(119.6,""AL"",$E(X,1,30),DA(1),DA)"
^DD(119.64,.01,1,2,"%D",0)="^^1^1^3030903^"
^DD(119.64,.01,1,2,"%D",1,0)="Cross reference the whole file by field #2.6."
^DD(119.64,.01,1,2,"DT")="3030903"
^DD(119.64,.01,21,0)="^^3^3^3060814^"
^DD(119.64,.01,21,1,0)="This is a pointer to the Hospital Location file to store the hospital"
^DD(119.64,.01,21,2,0)="location(s) associated with this Nutrition Location.  Outpatient"
^DD(119.64,.01,21,3,0)="Locations MUST have an Associated Hospital Location set up."
^DD(119.64,.01,"DT")="3060814"
^DD(119.64,"B","ASSOCIATED HOSPITAL LOCATION",.01)=""
^DD(119.64,"GL",0,1,.01)=""
^DD(119.64,"IX",.01)=""
^DD(119.64,"RQ",.01)=""
^DD(119.66,0)="CLINICIAN(S) SUB-FIELD^^.01^1"
^DD(119.66,0,"DT")="3070226"
^DD(119.66,0,"IX","B",119.66,.01)=""
^DD(119.66,0,"NM","CLINICIAN(S)")=""
^DD(119.66,0,"UP")="119.6"
^DD(119.66,.01,0)="CLINICIAN(S)^MP200'^VA(200,^0;1^Q"
^DD(119.66,.01,1,0)="^.1"
^DD(119.66,.01,1,1,0)="119.66^B"
^DD(119.66,.01,1,1,1)="S ^FH(119.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(119.66,.01,1,1,2)="K ^FH(119.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(119.66,.01,3)="This field may be used to add multiple clinicians who will receive alerts/bulletins for this ward/outpatient location."
^DD(119.66,.01,21,0)="^.001^9^9^3070226^^^"
^DD(119.66,.01,21,1,0)="This field allows entry of multiple clinicians for each ward or "
^DD(119.66,.01,21,2,0)="outpatient location."
^DD(119.66,.01,21,3,0)=" "
^DD(119.66,.01,21,4,0)="This field contains the clinician(s) assigned to the ward or "
^DD(119.66,.01,21,5,0)="outpatient location and the one(s) to whom dietetic consults will be "
^DD(119.66,.01,21,6,0)="routed and notification made of special diet orders and tubefeedings."
^DD(119.66,.01,21,7,0)=" "
^DD(119.66,.01,21,8,0)="The monitor alerts will also automatically go to the clinicians set up "
^DD(119.66,.01,21,9,0)="in this field for the ward or outpatient location."
^DD(119.66,.01,"DT")="3070226"
^DD(119.66,"B","CLINICIAN(S)",.01)=""
^DD(119.66,"GL",0,1,.01)=""
^DD(119.66,"IX",.01)=""
^DD(119.71,0)="FIELD^^99^7"
^DD(119.71,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(119.71,0,"IX","AC",119.71,99)=""
^DD(119.71,0,"IX","B",119.71,.01)=""
^DD(119.71,0,"NM","PRODUCTION FACILITY")=""
^DD(119.71,0,"PT",119.72,2)=""
^DD(119.71,0,"PT",119.73,2)=""
^DD(119.71,0,"PT",119.74,2)=""
^DD(119.71,0,"PT",728.46,.01)=""
^DD(119.71,0,"SCR")="I '$D(^FH(119.71,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(119.71,0,"VR")="5.5"
^DD(119.71,0,"VRPK")="DIETETICS"
^DD(119.71,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(119.71,.01,1,0)="^.1"
^DD(119.71,.01,1,1,0)="119.71^B"
^DD(119.71,.01,1,1,1)="S ^FH(119.71,""B"",$E(X,1,30),DA)="""""
^DD(119.71,.01,1,1,2)="K ^FH(119.71,""B"",$E(X,1,30),DA)"
^DD(119.71,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.71,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(119.71,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(119.71,.01,21,0)="^^3^3^2911204^"
^DD(119.71,.01,21,1,0)="This is the name of the Production Facility. It is generally a main"
^DD(119.71,.01,21,2,0)="kitchen used for the preparation of bulk food to be served by a "
^DD(119.71,.01,21,3,0)="Service Point."
^DD(119.71,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(119.71,10,0)="FULL NAMES ON DAILY MENU?^S^Y:YES;N:NO;^0;2^Q"
^DD(119.71,10,21,0)="^^4^4^2881203^"
^DD(119.71,10,21,1,0)="This field, when answered YES, will result in full names of"
^DD(119.71,10,21,2,0)="recipes being used for modified diets on the Daily Diet"
^DD(119.71,10,21,3,0)="Menus. An answer of NO will result in items on the Regular"
^DD(119.71,10,21,4,0)="Menu being referenced by number."
^DD(119.71,10,"DT")="2881203"
^DD(119.71,11,0)="SEP. PRODUCTION SUMMARY PAGES?^S^Y:YES;N:NO;^0;7^Q"
^DD(119.71,11,21,0)="^^3^3^2881120^"
^DD(119.71,11,21,1,0)="This field, when answered YES, will result in the Production"
^DD(119.71,11,21,2,0)="Summary and the Meal Distribution Report being printed on"
^DD(119.71,11,21,3,0)="separate pages for each Recipe Preparation area."
^DD(119.71,11,"DT")="2881120"
^DD(119.71,12,0)="SEP. RECIPE PREPARATION PAGES?^S^Y:YES;N:NO;^0;4^Q"
^DD(119.71,12,21,0)="^^3^3^2881119^^"
^DD(119.71,12,21,1,0)="This field, when answered YES, means that the Recipe Preparation"
^DD(119.71,12,21,2,0)="pages produced by the Production Summary will be printed such"
^DD(119.71,12,21,3,0)="that each preparation area is on a separate page."
^DD(119.71,12,"DT")="2871122"
^DD(119.71,13,0)="PRINT MEAL DISTRIBUTION?^S^Y:YES;N:NO;^0;5^Q"
^DD(119.71,13,21,0)="^^2^2^2881119^^"
^DD(119.71,13,21,1,0)="This field indicates whether a Meal Distribution Report"
^DD(119.71,13,21,2,0)="should be printed along with the Production Summary."
^DD(119.71,13,"DT")="2881118"
^DD(119.71,14,0)="SEP. STOREROOM PAGES?^S^Y:YES;N:NO;^0;6^Q"
^DD(119.71,14,21,0)="^^3^3^2880716^"
^DD(119.71,14,21,1,0)="This field, when answered YES, means that the Storeroom"
^DD(119.71,14,21,2,0)="Requisition pages produced by the Production Summary will be"
^DD(119.71,14,21,3,0)="printed such that each storeroom is on a separate page."
^DD(119.71,14,"DT")="2871122"
^DD(119.71,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(119.71,99,1,0)="^.1"
^DD(119.71,99,1,1,0)="119.71^AC^MUMPS"
^DD(119.71,99,1,1,1)="K:X'=""Y"" ^FH(119.71,DA,""I"")"
^DD(119.71,99,1,1,2)="K ^FH(119.71,DA,""I"")"
^DD(119.71,99,1,1,"%D",0)="^^2^2^3000202"
^DD(119.71,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(119.71,99,1,1,"%D",2,0)="inactive entries."
^DD(119.71,99,21,0)="^^2^2^3000202"
^DD(119.71,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(119.71,99,21,2,0)="further selection of this entry."
^DD(119.71,99,"DT")="3000223"
^DD(119.71,"B","FULL NAMES ON DAILY MENU?",10)=""
^DD(119.71,"B","INACTIVE?",99)=""
^DD(119.71,"B","NAME",.01)=""
^DD(119.71,"B","PRINT MEAL DISTRIBUTION?",13)=""
^DD(119.71,"B","SEP. PRODUCTION SUMMARY PAGES?",11)=""
^DD(119.71,"B","SEP. RECIPE PREPARATION PAGES?",12)=""
^DD(119.71,"B","SEP. STOREROOM PAGES?",14)=""
^DD(119.71,"GL",0,1,.01)=""
^DD(119.71,"GL",0,2,10)=""
^DD(119.71,"GL",0,4,12)=""
^DD(119.71,"GL",0,5,13)=""
^DD(119.71,"GL",0,6,14)=""
^DD(119.71,"GL",0,7,11)=""
^DD(119.71,"GL","I",1,99)=""
^DD(119.71,"IX",.01)=""
^DD(119.71,"IX",99)=""
^DD(119.71,"RQ",.01)=""
^DD(119.72,0)="FIELD^^200^8"
^DD(119.72,0,"DT")="2921016"
^DD(119.72,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(119.72,0,"IX","AC",119.72,99)=""
^DD(119.72,0,"IX","B",119.72,.01)=""
^DD(119.72,0,"IX","C",119.72,.5)=""
^DD(119.72,0,"NM","SERVICE POINT")=""
^DD(119.72,0,"PT",116.112,.01)=""
^DD(119.72,0,"PT",119.6,3)=""
^DD(119.72,0,"PT",119.6,4)=""
^DD(119.72,0,"PT",728.46,.01)=""
^DD(119.72,0,"SCR")="I '$D(^FH(119.72,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(119.72,0,"VR")="5.5"
^DD(119.72,0,"VRPK")="DIETETICS"
^DD(119.72,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(119.72,.01,1,0)="^.1"
^DD(119.72,.01,1,1,0)="119.72^B"
^DD(119.72,.01,1,1,1)="S ^FH(119.72,""B"",$E(X,1,30),DA)="""""
^DD(119.72,.01,1,1,2)="K ^FH(119.72,""B"",$E(X,1,30),DA)"
^DD(119.72,.01,1,1,"%D",0)="^^1^1^2940721^^"
^DD(119.72,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(119.72,.01,3)="Answer must be 3-30 characters in length."
^DD(119.72,.01,21,0)="^^2^2^2911204^"
^DD(119.72,.01,21,1,0)="This is the name of the Service Point. It is either a tray assembly"
^DD(119.72,.01,21,2,0)="line or a cafeteria. It provides food to a group of wards."
^DD(119.72,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(119.72,.01,"DT")="2921016"
^DD(119.72,.5,0)="SHORT NAME^RF^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(119.72,.5,1,0)="^.1"
^DD(119.72,.5,1,1,0)="119.72^C"
^DD(119.72,.5,1,1,1)="S ^FH(119.72,""C"",$E(X,1,30),DA)="""""
^DD(119.72,.5,1,1,2)="K ^FH(119.72,""C"",$E(X,1,30),DA)"
^DD(119.72,.5,1,1,"DT")="2930427"
^DD(119.72,.5,3)="Answer must be 1-6 characters in length."
^DD(119.72,.5,21,0)="^^2^2^2911204^"
^DD(119.72,.5,21,1,0)="This is a 6-character short-name to be used on various production"
^DD(119.72,.5,21,2,0)="reports."
^DD(119.72,.5,"DT")="2930427"
^DD(119.72,1,0)="TYPE^RS^C:CAFETERIA;T:TRAY LINE;^0;2^Q"
^DD(119.72,1,21,0)="^^2^2^2920410^^"
^DD(119.72,1,21,1,0)="This indicates whether the Service Point is a Tray assembly point or"
^DD(119.72,1,21,2,0)="a Cafeteria."
^DD(119.72,1,"DT")="2911203"
^DD(119.72,2,0)="PRODUCTION FACILITY^RP119.71'^FH(119.71,^0;3^Q"
^DD(119.72,2,21,0)="^^2^2^2911204^"
^DD(119.72,2,21,1,0)="This field indicates the Production Facility responsible for preparing"
^DD(119.72,2,21,2,0)="the food served by this Service Point."
^DD(119.72,2,"DT")="2911108"
^DD(119.72,10,0)="ADDITIONAL MEALS^119.721P^^B;0"
^DD(119.72,10,21,0)="^^3^3^2911211^^"
^DD(119.72,10,21,1,0)="This multiple represents the number of additional meals, over"
^DD(119.72,10,21,2,0)="and above the forecast or inpatient census, which are to be"
^DD(119.72,10,21,3,0)="produced for each meal for each day of the week."
^DD(119.72,11,0)="PRODUCTION DIET PERCENTAGE^119.7211P^^A;0"
^DD(119.72,11,21,0)="^^3^3^2880717^"
^DD(119.72,11,21,1,0)="This multiple contains the percentage of the total census"
^DD(119.72,11,21,2,0)="represented by each production diet for each day of the"
^DD(119.72,11,21,3,0)="week."
^DD(119.72,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(119.72,99,1,0)="^.1"
^DD(119.72,99,1,1,0)="119.72^AC^MUMPS"
^DD(119.72,99,1,1,1)="K:X'=""Y"" ^FH(119.72,DA,""I"")"
^DD(119.72,99,1,1,2)="K ^FH(119.72,DA,""I"")"
^DD(119.72,99,1,1,"%D",0)="^^2^2^3000202"
^DD(119.72,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(119.72,99,1,1,"%D",2,0)="inactive entries."
^DD(119.72,99,21,0)="^^2^2^3000202"
^DD(119.72,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(119.72,99,21,2,0)="further selection of this entry."
^DD(119.72,99,"DT")="3000223"
^DD(119.72,200,0)="CENSUS DATE^119.722DA^^C;0"
^DD(119.72,200,21,0)="^^2^2^2920107^"
^DD(119.72,200,21,1,0)="This field contains the date for which various census forecast data"
^DD(119.72,200,21,2,0)="is available."
^DD(119.72,"B","ADDITIONAL MEALS",10)=""
^DD(119.72,"B","CENSUS DATE",200)=""
^DD(119.72,"B","INACTIVE?",99)=""
^DD(119.72,"B","NAME",.01)=""
^DD(119.72,"B","PRODUCTION DIET PERCENTAGE",11)=""
^DD(119.72,"B","PRODUCTION FACILITY",2)=""
^DD(119.72,"B","SHORT NAME",.5)=""
^DD(119.72,"B","TYPE",1)=""
^DD(119.72,"GL",0,1,.01)=""
^DD(119.72,"GL",0,2,1)=""
^DD(119.72,"GL",0,3,2)=""
^DD(119.72,"GL",0,4,.5)=""
^DD(119.72,"GL","A",0,11)=""
^DD(119.72,"GL","B",0,10)=""
^DD(119.72,"GL","C",0,200)=""
^DD(119.72,"GL","I",1,99)=""
^DD(119.72,"IX",.01)=""
^DD(119.72,"IX",.5)=""
^DD(119.72,"IX",99)=""
^DD(119.72,"RQ",.01)=""
^DD(119.72,"RQ",.5)=""
^DD(119.72,"RQ",1)=""
^DD(119.72,"RQ",2)=""
^DD(119.72,"SB",119.721,10)=""
^DD(119.72,"SB",119.7211,11)=""
^DD(119.72,"SB",119.722,200)=""
^DD(119.721,0)="ADDITIONAL MEALS SUB-FIELD^^30^22"
^DD(119.721,0,"DT")="2911211"
^DD(119.721,0,"IX","B",119.721,.01)=""
^DD(119.721,0,"NM","ADDITIONAL MEALS")=""
^DD(119.721,0,"UP")="119.72"
^DD(119.721,.01,0)="ADD. MEALS PRODUCTION DIET^MP116.2'X^FH(116.2,^0;1^I $D(X) S DINUM=X"
^DD(119.721,.01,1,0)="^.1"
^DD(119.721,.01,1,1,0)="119.721^B"
^DD(119.721,.01,1,1,1)="S ^FH(119.72,DA(1),""B"",""B"",$E(X,1,30),DA)="""""
^DD(119.721,.01,1,1,2)="K ^FH(119.72,DA(1),""B"",""B"",$E(X,1,30),DA)"
^DD(119.721,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.721,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the PRODUCTION DIET field."
^DD(119.721,.01,21,0)="^^2^2^2911211^^"
^DD(119.721,.01,21,1,0)="This is the name of the production diet for which additional meals"
^DD(119.721,.01,21,2,0)="are to be added."
^DD(119.721,.01,"DT")="2911211"
^DD(119.721,10,0)="ADD. SUNDAY BREAKFAST^NJ4,0^^0;2^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,10,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,10,21,0)="^^2^2^2880716^^"
^DD(119.721,10,21,1,0)="This is the number of additional Sunday breakfast meals which are"
^DD(119.721,10,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,10,"DT")="2861126"
^DD(119.721,11,0)="ADD. SUNDAY NOON^NJ4,0^^0;3^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,11,21,0)="^^2^2^2880716^"
^DD(119.721,11,21,1,0)="This is the number of additional Sunday noon meals which are"
^DD(119.721,11,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,11,"DT")="2861126"
^DD(119.721,12,0)="ADD. SUNDAY EVENING^NJ4,0^^0;4^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,12,21,0)="^^2^2^2880716^^"
^DD(119.721,12,21,1,0)="This is the number of additional Sunday evening meals which are"
^DD(119.721,12,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,12,"DT")="2861126"
^DD(119.721,13,0)="ADD. MONDAY BREAKFAST^NJ4,0^^0;5^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,13,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,13,21,0)="^^2^2^2880716^^"
^DD(119.721,13,21,1,0)="This is the number of additional Monday breakfast meals which are"
^DD(119.721,13,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,13,"DT")="2861126"
^DD(119.721,14,0)="ADD. MONDAY NOON^NJ4,0^^0;6^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,14,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,14,21,0)="^^2^2^2880716^^"
^DD(119.721,14,21,1,0)="This is the number of additional Monday noon meals which are"
^DD(119.721,14,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,14,"DT")="2861126"
^DD(119.721,15,0)="ADD. MONDAY EVENING^NJ4,0^^0;7^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,15,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,15,21,0)="^^2^2^2880716^^"
^DD(119.721,15,21,1,0)="This is the number of additional Monday evening meals which are"
^DD(119.721,15,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,15,"DT")="2861126"
^DD(119.721,16,0)="ADD. TUESDAY BREAKFAST^NJ4,0^^0;8^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,16,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,16,21,0)="^^2^2^2880716^^"
^DD(119.721,16,21,1,0)="This is the number of additional Tuesday breakfast meals which are"
^DD(119.721,16,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,16,"DT")="2861126"
^DD(119.721,17,0)="ADD. TUESDAY NOON^NJ4,0^^0;9^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,17,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,17,21,0)="^^2^2^2880716^^"
^DD(119.721,17,21,1,0)="This is the number of additional Tuesday noon meals which are"
^DD(119.721,17,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,17,"DT")="2861126"
^DD(119.721,18,0)="ADD. TUESDAY EVENING^NJ4,0^^0;10^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,18,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,18,21,0)="^^2^2^2880716^^"
^DD(119.721,18,21,1,0)="This is the number of additional Tuesday evening meals which are"
^DD(119.721,18,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,18,"DT")="2861126"
^DD(119.721,19,0)="ADD. WEDNESDAY BREAKFAST^NJ4,0^^0;11^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,19,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,19,21,0)="^^2^2^2880716^^"
^DD(119.721,19,21,1,0)="This is the number of additional Wednesday breakfast meals which are"
^DD(119.721,19,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,19,"DT")="2861126"
^DD(119.721,20,0)="ADD. WEDNESDAY NOON^NJ4,0^^0;12^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,20,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,20,21,0)="^^2^2^2880716^^"
^DD(119.721,20,21,1,0)="This is the number of additional Wednesday noon meals which are"
^DD(119.721,20,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,21,0)="ADD. WEDNESDAY EVENING^NJ4,0^^0;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,21,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,21,21,0)="^^2^2^2880716^^"
^DD(119.721,21,21,1,0)="This is the number of additional Wednesday evening meals which are"
^DD(119.721,21,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,22,0)="ADD. THURSDAY BREAKFAST^NJ4,0^^0;14^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,22,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,22,21,0)="^^2^2^2880716^^"
^DD(119.721,22,21,1,0)="This is the number of additional Thursday breakfast meals which are"
^DD(119.721,22,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,23,0)="ADD. THURSDAY NOON^NJ4,0^^0;15^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,23,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,23,21,0)="^^2^2^2880716^^"
^DD(119.721,23,21,1,0)="This is the number of additional Thursday noon meals which are"
^DD(119.721,23,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,24,0)="ADD. THURSDAY EVENING^NJ4,0^^0;16^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,24,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,24,21,0)="^^2^2^2880716^^"
^DD(119.721,24,21,1,0)="This is the number of additional Thursday evening meals which are"
^DD(119.721,24,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,25,0)="ADD. FRIDAY BREAKFAST^NJ4,0^^0;17^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,25,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,25,21,0)="^^2^2^2880716^^"
^DD(119.721,25,21,1,0)="This is the number of additional Friday breakfast meals which are"
^DD(119.721,25,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,26,0)="ADD. FRIDAY NOON^NJ4,0^^0;18^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,26,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,26,21,0)="^^2^2^2880716^^"
^DD(119.721,26,21,1,0)="This is the number of additional Friday noon meals which are"
^DD(119.721,26,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,27,0)="ADD. FRIDAY EVENING^NJ4,0^^0;19^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,27,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,27,21,0)="^^2^2^2880716^^"
^DD(119.721,27,21,1,0)="This is the number of additional Friday evening meals which are"
^DD(119.721,27,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,28,0)="ADD. SATURDAY BREAKFAST^NJ4,0^^0;20^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,28,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,28,21,0)="^^2^2^2880716^^"
^DD(119.721,28,21,1,0)="This is the number of additional Saturday breakfast meals which are"
^DD(119.721,28,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,29,0)="ADD. SATURDAY NOON^NJ4,0^^0;21^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,29,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,29,21,0)="^^2^2^2880716^^"
^DD(119.721,29,21,1,0)="This is the number of additional Saturday noon meals which are"
^DD(119.721,29,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,30,0)="ADD. SATURDAY EVENING^NJ4,0^^0;22^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.721,30,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000"
^DD(119.721,30,21,0)="^^2^2^2880716^^"
^DD(119.721,30,21,1,0)="This is the number of additional Saturday evening meals which are"
^DD(119.721,30,21,2,0)="to be added to the inpatient forecast."
^DD(119.721,"B","ADD. FRIDAY BREAKFAST",25)=""
^DD(119.721,"B","ADD. FRIDAY EVENING",27)=""
^DD(119.721,"B","ADD. FRIDAY NOON",26)=""
^DD(119.721,"B","ADD. MEALS PRODUCTION DIET",.01)=""
^DD(119.721,"B","ADD. MONDAY BREAKFAST",13)=""
^DD(119.721,"B","ADD. MONDAY EVENING",15)=""
^DD(119.721,"B","ADD. MONDAY NOON",14)=""
^DD(119.721,"B","ADD. SATURDAY BREAKFAST",28)=""
^DD(119.721,"B","ADD. SATURDAY EVENING",30)=""
^DD(119.721,"B","ADD. SATURDAY NOON",29)=""
^DD(119.721,"B","ADD. SUNDAY BREAKFAST",10)=""
^DD(119.721,"B","ADD. SUNDAY EVENING",12)=""
^DD(119.721,"B","ADD. SUNDAY NOON",11)=""
^DD(119.721,"B","ADD. THURSDAY BREAKFAST",22)=""
^DD(119.721,"B","ADD. THURSDAY EVENING",24)=""
^DD(119.721,"B","ADD. THURSDAY NOON",23)=""
^DD(119.721,"B","ADD. TUESDAY BREAKFAST",16)=""
^DD(119.721,"B","ADD. TUESDAY EVENING",18)=""
^DD(119.721,"B","ADD. TUESDAY NOON",17)=""
^DD(119.721,"B","ADD. WEDNESDAY BREAKFAST",19)=""
^DD(119.721,"B","ADD. WEDNESDAY EVENING",21)=""
^DD(119.721,"B","ADD. WEDNESDAY NOON",20)=""
^DD(119.721,"GL",0,1,.01)=""
^DD(119.721,"GL",0,2,10)=""
^DD(119.721,"GL",0,3,11)=""
^DD(119.721,"GL",0,4,12)=""
^DD(119.721,"GL",0,5,13)=""
^DD(119.721,"GL",0,6,14)=""
^DD(119.721,"GL",0,7,15)=""
^DD(119.721,"GL",0,8,16)=""
^DD(119.721,"GL",0,9,17)=""
^DD(119.721,"GL",0,10,18)=""
^DD(119.721,"GL",0,11,19)=""
^DD(119.721,"GL",0,12,20)=""
^DD(119.721,"GL",0,13,21)=""
^DD(119.721,"GL",0,14,22)=""
^DD(119.721,"GL",0,15,23)=""
^DD(119.721,"GL",0,16,24)=""
^DD(119.721,"GL",0,17,25)=""
^DD(119.721,"GL",0,18,26)=""
^DD(119.721,"GL",0,19,27)=""
^DD(119.721,"GL",0,20,28)=""
^DD(119.721,"GL",0,21,29)=""
^DD(119.721,"GL",0,22,30)=""
^DD(119.721,"IX",.01)=""
^DD(119.7211,0)="PRODUCTION DIET PERCENTAGE SUB-FIELD^^16^8"
^DD(119.7211,0,"DT")="2911112"
^DD(119.7211,0,"IX","B",119.7211,.01)=""
^DD(119.7211,0,"NM","PRODUCTION DIET PERCENTAGE")=""
^DD(119.7211,0,"UP")="119.72"
^DD(119.7211,.01,0)="FORECAST % PRODUCTION DIET^MP116.2'X^FH(116.2,^0;1^I $D(X) S DINUM=X"
^DD(119.7211,.01,1,0)="^.1"
^DD(119.7211,.01,1,1,0)="119.7211^B"
^DD(119.7211,.01,1,1,1)="S ^FH(119.72,DA(1),""A"",""B"",$E(X,1,30),DA)="""""
^DD(119.7211,.01,1,1,2)="K ^FH(119.72,DA(1),""A"",""B"",$E(X,1,30),DA)"
^DD(119.7211,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.7211,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the PRODUCTION DIET field."
^DD(119.7211,.01,21,0)="^^2^2^2911211^^"
^DD(119.7211,.01,21,1,0)="This field is the production diet for which daily forecast percentages"
^DD(119.7211,.01,21,2,0)="are to be entered."
^DD(119.7211,.01,"DT")="2911211"
^DD(119.7211,10,0)="SUNDAY CENSUS PERCENTAGE^NJ5,1^^0;2^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""2N.N) X"
^DD(119.7211,10,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(119.7211,10,21,0)="^^2^2^2880716^"
^DD(119.7211,10,21,1,0)="This field contains the % of total census on Sundays for which this"
^DD(119.7211,10,21,2,0)="production diet is to be forecast."
^DD(119.7211,10,"DT")="2870716"
^DD(119.7211,11,0)="MONDAY CENSUS PERCENTAGE^NJ5,1^^0;3^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""2N.N) X"
^DD(119.7211,11,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(119.7211,11,21,0)="^^2^2^2880716^"
^DD(119.7211,11,21,1,0)="This field contains the % of total census on Mondays for which this"
^DD(119.7211,11,21,2,0)="production diet is to be forecast."
^DD(119.7211,11,"DT")="2870716"
^DD(119.7211,12,0)="TUESDAY CENSUS PERCENTAGE^NJ5,1^^0;4^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""2N.N) X"
^DD(119.7211,12,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(119.7211,12,21,0)="^^2^2^2880716^"
^DD(119.7211,12,21,1,0)="This field contains the % of total census on Tuesdays for which this"
^DD(119.7211,12,21,2,0)="production diet is to be forecast."
^DD(119.7211,12,"DT")="2870716"
^DD(119.7211,13,0)="WEDNESDAY CENSUS PERCENTAGE^NJ5,1^^0;5^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""2N.N) X"
^DD(119.7211,13,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(119.7211,13,21,0)="^^2^2^2880716^"
^DD(119.7211,13,21,1,0)="This field contains the % of total census on Wednesdays for which this"
^DD(119.7211,13,21,2,0)="production diet is to be forecast."
^DD(119.7211,13,"DT")="2870716"
^DD(119.7211,14,0)="THURSDAY CENSUS PERCENTAGE^NJ5,1^^0;6^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""2N.N) X"
^DD(119.7211,14,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(119.7211,14,21,0)="^^2^2^2880716^"
^DD(119.7211,14,21,1,0)="This field contains the % of total census on Thursdays for which this"
^DD(119.7211,14,21,2,0)="production diet is to be forecast."
^DD(119.7211,14,"DT")="2870716"
^DD(119.7211,15,0)="FRIDAY CENSUS PERCENTAGE^NJ5,1^^0;7^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""2N.N) X"
^DD(119.7211,15,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(119.7211,15,21,0)="^^2^2^2880716^"
^DD(119.7211,15,21,1,0)="This field contains the % of total census on Fridays for which this"
^DD(119.7211,15,21,2,0)="production diet is to be forecast."
^DD(119.7211,15,"DT")="2870716"
^DD(119.7211,16,0)="SATURDAY CENSUS PERCENTAGE^NJ5,1^^0;8^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""2N.N) X"
^DD(119.7211,16,3)="TYPE A NUMBER BETWEEN 0 AND 110"
^DD(119.7211,16,21,0)="^^2^2^2880716^"
^DD(119.7211,16,21,1,0)="This field contains the % of total census on Saturdays for which this"
^DD(119.7211,16,21,2,0)="production diet is to be forecast."
^DD(119.7211,16,"DT")="2870716"
^DD(119.7211,"B","FORECAST % PRODUCTION DIET",.01)=""
^DD(119.7211,"B","FRIDAY CENSUS PERCENTAGE",15)=""
^DD(119.7211,"B","MONDAY CENSUS PERCENTAGE",11)=""
^DD(119.7211,"B","SATURDAY CENSUS PERCENTAGE",16)=""
^DD(119.7211,"B","SUNDAY CENSUS PERCENTAGE",10)=""
^DD(119.7211,"B","THURSDAY CENSUS PERCENTAGE",14)=""
^DD(119.7211,"B","TUESDAY CENSUS PERCENTAGE",12)=""
^DD(119.7211,"B","WEDNESDAY CENSUS PERCENTAGE",13)=""
^DD(119.7211,"GL",0,1,.01)=""
^DD(119.7211,"GL",0,2,10)=""
^DD(119.7211,"GL",0,3,11)=""
^DD(119.7211,"GL",0,4,12)=""
^DD(119.7211,"GL",0,5,13)=""
^DD(119.7211,"GL",0,6,14)=""
^DD(119.7211,"GL",0,7,15)=""
^DD(119.7211,"GL",0,8,16)=""
^DD(119.7211,"IX",.01)=""
^DD(119.722,0)="CENSUS DATE SUB-FIELD^^5^5"
^DD(119.722,0,"DT")="2920108"
^DD(119.722,0,"NM","CENSUS DATE")=""
^DD(119.722,0,"UP")="119.72"
^DD(119.722,.01,0)="CENSUS DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(119.722,.01,1,0)="^.1^^0"
^DD(119.722,.01,21,0)="^^2^2^2920220^"
^DD(119.722,.01,21,1,0)="This is the date for which the forecast census and actual census"
^DD(119.722,.01,21,2,0)="are tabulated."
^DD(119.722,.01,"DT")="2920108"
^DD(119.722,1,0)="FORECAST CENSUS^NJ4,0^^0;2^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.722,1,3)="Type a Number between 0 and 5000, 0 Decimal Digits"
^DD(119.722,1,21,0)="^^4^4^2920108^"
^DD(119.722,1,21,1,0)="This is the calculated forecast census for wards served by this"
^DD(119.722,1,21,2,0)="Service Point. It should be noted that some of these wards may"
^DD(119.722,1,21,3,0)="have only a small percentage of their patients served by the"
^DD(119.722,1,21,4,0)="Service Point."
^DD(119.722,1,"DT")="2920108"
^DD(119.722,2,0)="ACTUAL CENSUS^NJ4,0^^0;3^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.722,2,3)="Type a Number between 0 and 5000, 0 Decimal Digits"
^DD(119.722,2,21,0)="^^2^2^2920108^"
^DD(119.722,2,21,1,0)="This field contains the actual census of the wards served by this"
^DD(119.722,2,21,2,0)="Service Point based upon the MAS ward census values."
^DD(119.722,2,"DT")="2920108"
^DD(119.722,3,0)="CORRECTED FORECAST^NJ4,0^^0;4^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(119.722,3,3)="Type a Number between 0 and 5000, 0 Decimal Digits"
^DD(119.722,3,21,0)="^^3^3^2920108^"
^DD(119.722,3,21,1,0)="This field contains the corrected forecast which is the forecast"
^DD(119.722,3,21,2,0)="census corrected by applying the various percentages for tray,"
^DD(119.722,3,21,3,0)="cafeteria, and dining room utilization."
^DD(119.722,3,"DT")="2920108"
^DD(119.722,5,0)="DATE OF LAST FORECAST^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(119.722,5,21,0)="^^2^2^2920108^"
^DD(119.722,5,21,1,0)="This is the date on which the last forecast was made for this"
^DD(119.722,5,21,2,0)="census date."
^DD(119.722,5,"DT")="2920108"
^DD(119.722,"B","ACTUAL CENSUS",2)=""
^DD(119.722,"B","CENSUS DATE",.01)=""
^DD(119.722,"B","CORRECTED FORECAST",3)=""
^DD(119.722,"B","DATE OF LAST FORECAST",5)=""
^DD(119.722,"B","FORECAST CENSUS",1)=""
^DD(119.722,"GL",0,1,.01)=""
^DD(119.722,"GL",0,2,1)=""
^DD(119.722,"GL",0,3,2)=""
^DD(119.722,"GL",0,4,3)=""
^DD(119.722,"GL",0,5,5)=""
^DD(119.73,0)="FIELD^^102^33"
^DD(119.73,0,"DDA")="N"
^DD(119.73,0,"DT")="2921007"
^DD(119.73,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(119.73,0,"IX","AC",119.73,99)=""
^DD(119.73,0,"IX","B",119.73,.01)=""
^DD(119.73,0,"NM","COMMUNICATION OFFICE")=""
^DD(119.73,0,"PT",115.7,11)=""
^DD(119.73,0,"PT",117.06,.01)=""
^DD(119.73,0,"PT",117.11,.01)=""
^DD(119.73,0,"PT",119.6,6)=""
^DD(119.73,0,"SCR")="I '$D(^FH(119.73,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(119.73,0,"VR")="5.5"
^DD(119.73,0,"VRPK")="DIETETICS"
^DD(119.73,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(119.73,.01,1,0)="^.1"
^DD(119.73,.01,1,1,0)="119.73^B"
^DD(119.73,.01,1,1,1)="S ^FH(119.73,""B"",$E(X,1,30),DA)="""""
^DD(119.73,.01,1,1,2)="K ^FH(119.73,""B"",$E(X,1,30),DA)"
^DD(119.73,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.73,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NAME field."
^DD(119.73,.01,3)="Answer must be 3-30 characters in length."
^DD(119.73,.01,21,0)="^^2^2^2911204^"
^DD(119.73,.01,21,1,0)="This is the name of the Communication Office. It is responsible for"
^DD(119.73,.01,21,2,0)="processing the diet orders from a group of Dietetic wards."
^DD(119.73,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^DD(119.73,.01,"DT")="2921007"
^DD(119.73,2,0)="PRODUCTION FACILITY^P119.71'^FH(119.71,^0;4^Q"
^DD(119.73,2,21,0)="^^2^2^3050523^"
^DD(119.73,2,21,1,0)="This field indicates the Production Facility responsible "
^DD(119.73,2,21,2,0)="for preparing the food served by this Communication Office."
^DD(119.73,2,"DT")="3050523"
^DD(119.73,6,0)="BEGIN BREAKFAST WINDOW^RFX^^2;7^D TIM^FHSYSP"
^DD(119.73,6,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,6,21,0)="^^3^3^2880713^"
^DD(119.73,6,21,1,0)="This is the latest time for which breakfast orders will be accepted"
^DD(119.73,6,21,2,0)="and is used as the time associated with the use of the 'B' (for"
^DD(119.73,6,21,3,0)="breakfast) time in diet orders."
^DD(119.73,6,"DT")="2850302"
^DD(119.73,7,0)="BEGIN NOON WINDOW^RFX^^2;8^D TIM^FHSYSP"
^DD(119.73,7,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,7,21,0)="^^3^3^2880713^"
^DD(119.73,7,21,1,0)="This is the latest time for which noon orders will be accepted"
^DD(119.73,7,21,2,0)="and is used as the time associated with the use of the 'N' (for"
^DD(119.73,7,21,3,0)="noon) time in diet orders."
^DD(119.73,7,"DT")="2850302"
^DD(119.73,8,0)="BEGIN EVENING WINDOW^RFX^^2;9^D TIM^FHSYSP"
^DD(119.73,8,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,8,21,0)="^^3^3^2880713^"
^DD(119.73,8,21,1,0)="This is the latest time for which evening orders will be accepted"
^DD(119.73,8,21,2,0)="and is used as the time associated with the use of the 'E' (for"
^DD(119.73,8,21,3,0)="evening) time in diet orders."
^DD(119.73,8,"DT")="2850302"
^DD(119.73,9,0)="PROVIDE BAGGED MEALS?^S^Y:YES;N:NO;^2;10^Q"
^DD(119.73,9,21,0)="^^2^2^2910612^^^"
^DD(119.73,9,21,1,0)="If answered YES, this field indicates that bagged meals can be"
^DD(119.73,9,21,2,0)="ordered as part of the early/late tray ordering process."
^DD(119.73,9,"DT")="2880116"
^DD(119.73,10,0)="EARLY BREAKFAST TIME 1^FX^^1;1^D TIM^FHSYSP"
^DD(119.73,10,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,10,21,0)="^^1^1^2880716^"
^DD(119.73,10,21,1,0)="This is the first delivery time for an early breakfast tray."
^DD(119.73,10,"DT")="2850517"
^DD(119.73,11,0)="EARLY BREAKFAST TIME 2^FX^^1;2^D TIM^FHSYSP"
^DD(119.73,11,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,11,21,0)="^^1^1^2880716^"
^DD(119.73,11,21,1,0)="This is the second delivery time for an early breakfast tray."
^DD(119.73,11,"DT")="2850517"
^DD(119.73,12,0)="EARLY BREAKFAST TIME 3^FX^^1;3^D TIM^FHSYSP"
^DD(119.73,12,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,12,21,0)="^^1^1^2880716^"
^DD(119.73,12,21,1,0)="This is the third delivery time for an early breakfast tray."
^DD(119.73,12,"DT")="2850517"
^DD(119.73,13,0)="LATE BREAKFAST TIME 1^FX^^1;4^D TIM^FHSYSP"
^DD(119.73,13,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,13,21,0)="^^1^1^2880716^"
^DD(119.73,13,21,1,0)="This is the first delivery time for a late breakfast tray."
^DD(119.73,13,"DT")="2850517"
^DD(119.73,14,0)="LATE BREAKFAST TIME 2^FX^^1;5^D TIM^FHSYSP"
^DD(119.73,14,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,14,21,0)="^^1^1^2880716^"
^DD(119.73,14,21,1,0)="This is the second delivery time for a late breakfast tray."
^DD(119.73,14,"DT")="2850517"
^DD(119.73,15,0)="LATE BREAKFAST TIME 3^FX^^1;6^D TIM^FHSYSP"
^DD(119.73,15,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,15,21,0)="^^1^1^2880716^"
^DD(119.73,15,21,1,0)="This is the third delivery time for a late breakfast tray."
^DD(119.73,15,"DT")="2850517"
^DD(119.73,16,0)="EARLY NOON TIME 1^FX^^1;7^D TIM^FHSYSP"
^DD(119.73,16,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,16,21,0)="^^1^1^2880716^"
^DD(119.73,16,21,1,0)="This is the first delivery time for an early noon tray."
^DD(119.73,16,"DT")="2850517"
^DD(119.73,17,0)="EARLY NOON TIME 2^FX^^1;8^D TIM^FHSYSP"
^DD(119.73,17,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,17,21,0)="^^1^1^2880716^"
^DD(119.73,17,21,1,0)="This is the second delivery time for an early noon tray."
^DD(119.73,17,"DT")="2850517"
^DD(119.73,18,0)="EARLY NOON TIME 3^FX^^1;9^D TIM^FHSYSP"
^DD(119.73,18,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,18,21,0)="^^1^1^2880716^"
^DD(119.73,18,21,1,0)="This is the third delivery time for an early noon tray."
^DD(119.73,18,"DT")="2850517"
^DD(119.73,19,0)="LATE NOON TIME 1^FX^^1;10^D TIM^FHSYSP"
^DD(119.73,19,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,19,21,0)="^^1^1^2880716^"
^DD(119.73,19,21,1,0)="This is the first delivery time for a late noon tray."
^DD(119.73,19,"DT")="2850517"
^DD(119.73,20,0)="LATE NOON TIME 2^FX^^1;11^D TIM^FHSYSP"
^DD(119.73,20,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,20,21,0)="^^1^1^2880716^"
^DD(119.73,20,21,1,0)="This is the second delivery time for a late noon tray."
^DD(119.73,20,"DT")="2850517"
^DD(119.73,21,0)="LATE NOON TIME 3^FX^^1;12^D TIM^FHSYSP"
^DD(119.73,21,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,21,21,0)="^^1^1^2880716^"
^DD(119.73,21,21,1,0)="This is the third delivery time for a late noon tray."
^DD(119.73,21,"DT")="2850517"
^DD(119.73,22,0)="EARLY EVENING TIME 1^FX^^1;13^D TIM^FHSYSP"
^DD(119.73,22,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,22,21,0)="^^1^1^2880716^"
^DD(119.73,22,21,1,0)="This is the first delivery time for an early evening tray."
^DD(119.73,22,"DT")="2850517"
^DD(119.73,23,0)="EARLY EVENING TIME 2^FX^^1;14^D TIM^FHSYSP"
^DD(119.73,23,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,23,21,0)="^^1^1^2880716^"
^DD(119.73,23,21,1,0)="This is the second delivery time for an early evening tray."
^DD(119.73,23,"DT")="2850517"
^DD(119.73,24,0)="EARLY EVENING TIME 3^FX^^1;15^D TIM^FHSYSP"
^DD(119.73,24,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,24,21,0)="^^1^1^2880716^"
^DD(119.73,24,21,1,0)="This is the third delivery time for an early evening tray."
^DD(119.73,24,"DT")="2850517"
^DD(119.73,25,0)="LATE EVENING TIME 1^FX^^1;16^D TIM^FHSYSP"
^DD(119.73,25,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,25,21,0)="^^1^1^2880716^"
^DD(119.73,25,21,1,0)="This is the first delivery time for a late evening tray."
^DD(119.73,25,"DT")="2850517"
^DD(119.73,26,0)="LATE EVENING TIME 2^FX^^1;17^D TIM^FHSYSP"
^DD(119.73,26,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,26,21,0)="^^1^1^2880716^"
^DD(119.73,26,21,1,0)="This is the second delivery time for a late evening tray."
^DD(119.73,26,"DT")="2850517"
^DD(119.73,27,0)="LATE EVENING TIME 3^FX^^1;18^D TIM^FHSYSP"
^DD(119.73,27,3)="ANSWER MUST BE A TIME OF DAY"
^DD(119.73,27,21,0)="^^1^1^2880716^"
^DD(119.73,27,21,1,0)="This is the third delivery time for a late evening tray."
^DD(119.73,27,"DT")="2850517"
^DD(119.73,28,0)="LATE BREAKFAST ALARM BEGIN^FXO^^2;1^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1"
^DD(119.73,28,2)="S Y(0)=Y D MIP^FHSYSP"
^DD(119.73,28,2.1)="D MIP^FHSYSP"
^DD(119.73,28,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(119.73,28,21,0)="^^4^4^2880716^"
^DD(119.73,28,21,1,0)="This is the beginning of the late breakfast alarm period; that"
^DD(119.73,28,21,2,0)="is the time when persons entering diet orders will be reminded"
^DD(119.73,28,21,3,0)="that the normal cut-off time has passed and a late tray will"
^DD(119.73,28,21,4,0)="have to be ordered for breakfast if desired."
^DD(119.73,28,"DT")="2871110"
^DD(119.73,29,0)="LATE BREAKFAST ALARM END^FXO^^2;2^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1"
^DD(119.73,29,2)="S Y(0)=Y D MIP^FHSYSP"
^DD(119.73,29,2.1)="D MIP^FHSYSP"
^DD(119.73,29,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(119.73,29,21,0)="^^3^3^2880718^^"
^DD(119.73,29,21,1,0)="This is the end of the breakfast alarm period. It should be"
^DD(119.73,29,21,2,0)="one or two minutes earlier than the last breakfast late tray delivery"
^DD(119.73,29,21,3,0)="time."
^DD(119.73,29,"DT")="2871110"
^DD(119.73,30,0)="LATE NOON ALARM BEGIN^FXO^^2;3^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1"
^DD(119.73,30,2)="S Y(0)=Y D MIP^FHSYSP"
^DD(119.73,30,2.1)="D MIP^FHSYSP"
^DD(119.73,30,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(119.73,30,21,0)="^^3^3^2880716^"
^DD(119.73,30,21,1,0)="This is the beginning of the noon alarm period; persons entering"
^DD(119.73,30,21,2,0)="diet orders will be reminded that the noon cut-off has passed"
^DD(119.73,30,21,3,0)="and a late noon tray will have to be ordered if desired."
^DD(119.73,30,"DT")="2871110"
^DD(119.73,31,0)="LATE NOON ALARM END^FXO^^2;4^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1"
^DD(119.73,31,2)="S Y(0)=Y D MIP^FHSYSP"
^DD(119.73,31,2.1)="D MIP^FHSYSP"
^DD(119.73,31,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(119.73,31,21,0)="^^2^2^2880716^"
^DD(119.73,31,21,1,0)="This is the end of the noon alarm period and should be one or two"
^DD(119.73,31,21,2,0)="minutes earlier than the last noon late tray delivery time."
^DD(119.73,31,"DT")="2871110"
^DD(119.73,32,0)="LATE EVENING ALARM BEGIN^FXO^^2;5^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1"
^DD(119.73,32,2)="S Y(0)=Y D MIP^FHSYSP"
^DD(119.73,32,2.1)="D MIP^FHSYSP"
^DD(119.73,32,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(119.73,32,21,0)="^^4^4^2880716^"
^DD(119.73,32,21,1,0)="This is the beginning of the evening alarm period; that is the period"
^DD(119.73,32,21,2,0)="when persons entering diet orders will be reminded that the"
^DD(119.73,32,21,3,0)="evening cut-off has passed and a late evening tray will have"
^DD(119.73,32,21,4,0)="to be ordered if desired."
^DD(119.73,32,"DT")="2871110"
^DD(119.73,33,0)="LATE EVENING ALARM END^FXO^^2;6^D TIM^FHSYSP I $D(X) D MIL^FHSYSP S X=X1"
^DD(119.73,33,2)="S Y(0)=Y D MIP^FHSYSP"
^DD(119.73,33,2.1)="D MIP^FHSYSP"
^DD(119.73,33,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(119.73,33,21,0)="^^3^3^2880716^"
^DD(119.73,33,21,1,0)="This is the end of the evening alarm period and should be one or"
^DD(119.73,33,21,2,0)="two minutes earlier than the last evening late tray delivery"
^DD(119.73,33,21,3,0)="time."
^DD(119.73,33,"DT")="2871110"
^DD(119.73,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(119.73,99,1,0)="^.1"
^DD(119.73,99,1,1,0)="119.73^AC^MUMPS"
^DD(119.73,99,1,1,1)="K:X'=""Y"" ^FH(119.73,DA,""I"")"
^DD(119.73,99,1,1,2)="K ^FH(119.73,DA,""I"")"
^DD(119.73,99,1,1,"%D",0)="^^2^2^3000202"
^DD(119.73,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(119.73,99,1,1,"%D",2,0)="inactive entries."
^DD(119.73,99,21,0)="^^2^2^3000202"
^DD(119.73,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(119.73,99,21,2,0)="further selection of this entry."
^DD(119.73,99,"DT")="3000223"
^DD(119.73,101,0)="DATE/TIME LAST UPDATE^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(119.73,101,21,0)="^^3^3^2950420^^^^"
^DD(119.73,101,21,1,0)="This is the date/time of the last Diet Activity report generated for"
^DD(119.73,101,21,2,0)="this Communication Office. It is used so that the following report"
^DD(119.73,101,21,3,0)="will show only changes after this date/time."
^DD(119.73,101,"DT")="2911101"
^DD(119.73,102,0)="LAST LABEL UPDATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(119.73,102,21,0)="^^2^2^2920822^"
^DD(119.73,102,21,1,0)="This is the last date/time the labels were generated for the"
^DD(119.73,102,21,2,0)="Diet Activity Report"
^DD(119.73,102,"DT")="2920822"
^DD(119.73,"B","BEGIN BREAKFAST WINDOW",6)=""
^DD(119.73,"B","BEGIN EVENING WINDOW",8)=""
^DD(119.73,"B","BEGIN NOON WINDOW",7)=""
^DD(119.73,"B","DATE/TIME LAST UPDATE",101)=""
^DD(119.73,"B","EARLY BREAKFAST TIME 1",10)=""
^DD(119.73,"B","EARLY BREAKFAST TIME 2",11)=""
^DD(119.73,"B","EARLY BREAKFAST TIME 3",12)=""
^DD(119.73,"B","EARLY EVENING TIME 1",22)=""
^DD(119.73,"B","EARLY EVENING TIME 2",23)=""
^DD(119.73,"B","EARLY EVENING TIME 3",24)=""
^DD(119.73,"B","EARLY NOON TIME 1",16)=""
^DD(119.73,"B","EARLY NOON TIME 2",17)=""
^DD(119.73,"B","EARLY NOON TIME 3",18)=""
^DD(119.73,"B","INACTIVE?",99)=""
^DD(119.73,"B","LAST LABEL UPDATE",102)=""
^DD(119.73,"B","LATE BREAKFAST ALARM BEGIN",28)=""
^DD(119.73,"B","LATE BREAKFAST ALARM END",29)=""
^DD(119.73,"B","LATE BREAKFAST TIME 1",13)=""
^DD(119.73,"B","LATE BREAKFAST TIME 2",14)=""
^DD(119.73,"B","LATE BREAKFAST TIME 3",15)=""
^DD(119.73,"B","LATE EVENING ALARM BEGIN",32)=""
^DD(119.73,"B","LATE EVENING ALARM END",33)=""
^DD(119.73,"B","LATE EVENING TIME 1",25)=""
^DD(119.73,"B","LATE EVENING TIME 2",26)=""
^DD(119.73,"B","LATE EVENING TIME 3",27)=""
^DD(119.73,"B","LATE NOON ALARM BEGIN",30)=""
^DD(119.73,"B","LATE NOON ALARM END",31)=""
^DD(119.73,"B","LATE NOON TIME 1",19)=""
^DD(119.73,"B","LATE NOON TIME 2",20)=""
^DD(119.73,"B","LATE NOON TIME 3",21)=""
^DD(119.73,"B","NAME",.01)=""
^DD(119.73,"B","PRODUCTION FACILITY",2)=""
^DD(119.73,"B","PROVIDE BAGGED MEALS?",9)=""
^DD(119.73,"GL",0,1,.01)=""
^DD(119.73,"GL",0,2,101)=""
^DD(119.73,"GL",0,3,102)=""
^DD(119.73,"GL",0,4,2)=""
^DD(119.73,"GL",1,1,10)=""
^DD(119.73,"GL",1,2,11)=""
^DD(119.73,"GL",1,3,12)=""
^DD(119.73,"GL",1,4,13)=""
^DD(119.73,"GL",1,5,14)=""
^DD(119.73,"GL",1,6,15)=""
^DD(119.73,"GL",1,7,16)=""
^DD(119.73,"GL",1,8,17)=""
^DD(119.73,"GL",1,9,18)=""
^DD(119.73,"GL",1,10,19)=""
^DD(119.73,"GL",1,11,20)=""
^DD(119.73,"GL",1,12,21)=""
^DD(119.73,"GL",1,13,22)=""
^DD(119.73,"GL",1,14,23)=""
^DD(119.73,"GL",1,15,24)=""
^DD(119.73,"GL",1,16,25)=""
^DD(119.73,"GL",1,17,26)=""
^DD(119.73,"GL",1,18,27)=""
^DD(119.73,"GL",2,1,28)=""
^DD(119.73,"GL",2,2,29)=""
^DD(119.73,"GL",2,3,30)=""
^DD(119.73,"GL",2,4,31)=""
^DD(119.73,"GL",2,5,32)=""
^DD(119.73,"GL",2,6,33)=""
^DD(119.73,"GL",2,7,6)=""
^DD(119.73,"GL",2,8,7)=""
^DD(119.73,"GL",2,9,8)=""
^DD(119.73,"GL",2,10,9)=""
^DD(119.73,"GL","I",1,99)=""
^DD(119.73,"IX",.01)=""
^DD(119.73,"IX",99)=""
^DD(119.73,"RQ",.01)=""
^DD(119.73,"RQ",6)=""
^DD(119.73,"RQ",7)=""
^DD(119.73,"RQ",8)=""
^DD(119.74,0)="FIELD^^99^6"
^DD(119.74,0,"DT")="2911203"
^DD(119.74,0,"ID","WRITE")="I $D(^(""I"")) D EN^DDIOL(""(** Inactive **)"","""",""?3"")"
^DD(119.74,0,"IX","AC",119.74,99)=""
^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,0,"SCR")="I '$D(^FH(119.74,+Y,""I""))!$D(^XUSEC(""FHMGR"",DUZ))!(DUZ(0)[""@"")"
^DD(119.74,0,"VR")="5.5"
^DD(119.74,0,"VRPK")="DIETETICS"
^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,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Cannot delete. Inactivate instead."","""",""?3"")"
^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"
^DD(119.74,99,0)="INACTIVE?^S^Y:YES;N:NO;^I;1^Q"
^DD(119.74,99,1,0)="^.1"
^DD(119.74,99,1,1,0)="119.74^AC^MUMPS"
^DD(119.74,99,1,1,1)="K:X'=""Y"" ^FH(119.74,DA,""I"")"
^DD(119.74,99,1,1,2)="K ^FH(119.74,DA,""I"")"
^DD(119.74,99,1,1,"%D",0)="^^2^2^3000202"
^DD(119.74,99,1,1,"%D",1,0)="This cross-reference is used to create an 'I' node for"
^DD(119.74,99,1,1,"%D",2,0)="inactive entries."
^DD(119.74,99,21,0)="^^2^2^3000202"
^DD(119.74,99,21,1,0)="This field, if answered YES, will prohibit"
^DD(119.74,99,21,2,0)="further selection of this entry."
^DD(119.74,99,"DT")="3000223"
^DD(119.74,"B","INACTIVE?",99)=""
^DD(119.74,"B","INGREDIENTS ON WARD LISTS?",21)=""
^DD(119.74,"B","NAME",.01)=""
^DD(119.74,"B","PRODUCTION FACILITY",2)=""
^DD(119.74,"B","SEPARATE SUPP FDG LABELS?",20)=""
^DD(119.74,"B","SHORT NAME",1)=""
^DD(119.74,"GL",0,1,.01)=""
^DD(119.74,"GL",0,2,1)=""
^DD(119.74,"GL",0,3,2)=""
^DD(119.74,"GL",0,4,20)=""
^DD(119.74,"GL",0,5,21)=""
^DD(119.74,"GL","I",1,99)=""
^DD(119.74,"IX",.01)=""
^DD(119.74,"IX",1)=""
^DD(119.74,"IX",99)=""
^DD(119.74,"RQ",.01)=""
^DD(119.74,"RQ",2)=""
^DD(119.8,0)="FIELD^^8^9"
^DD(119.8,0,"DT")="3040518"
^DD(119.8,0,"IX","AD",119.8,1)=""
^DD(119.8,0,"IX","AP",119.8,2)=""
^DD(119.8,0,"IX","AP1",119.8,1)=""
^DD(119.8,0,"IX","B",119.8,.01)=""
^DD(119.8,0,"NM","NUTRITION EVENTS")=""
^DD(119.8,0,"VR")="5.5"
^DD(119.8,0,"VRPK")="DIETETICS"
^DD(119.8,.01,0)="NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(119.8,.01,1,0)="^.1"
^DD(119.8,.01,1,1,0)="119.8^B"
^DD(119.8,.01,1,1,1)="S ^FH(119.8,""B"",$E(X,1,30),DA)="""""
^DD(119.8,.01,1,1,2)="K ^FH(119.8,""B"",$E(X,1,30),DA)"
^DD(119.8,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.8,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the NUMBER field."
^DD(119.8,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(119.8,.01,21,0)="^^2^2^2921107^^^^"
^DD(119.8,.01,21,1,0)="This field contains a sequential number assigned to the event"
^DD(119.8,.01,21,2,0)="and has no meaning."
^DD(119.8,.01,"DEL",1,0)="I DUZ(0)'[""@"",'$D(^XUSEC(""FHMGR"",DUZ))"
^DD(119.8,.01,"DT")="2890719"
^DD(119.8,1,0)="DATE/TIME^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(119.8,1,1,0)="^.1"
^DD(119.8,1,1,1,0)="119.8^AD"
^DD(119.8,1,1,1,1)="S ^FH(119.8,""AD"",$E(X,1,30),DA)="""""
^DD(119.8,1,1,1,2)="K ^FH(119.8,""AD"",$E(X,1,30),DA)"
^DD(119.8,1,1,1,"DT")="2920704"
^DD(119.8,1,1,2,0)="119.8^AP1^MUMPS"
^DD(119.8,1,1,2,1)="S X1=$P(^FH(119.8,DA,0),U,3) I X1 S ^FH(119.8,""AP"",X1,X,DA)="""""
^DD(119.8,1,1,2,2)="S X1=$P(^FH(119.8,DA,0),U,3) I X1 K ^FH(119.8,""AP"",X1,X,DA)"
^DD(119.8,1,1,2,"%D",0)="^^2^2^2940823^^"
^DD(119.8,1,1,2,"%D",1,0)="This is a cross-reference of dietetic events by patient and date/time."
^DD(119.8,1,1,2,"%D",2,0)="Field 2 is also used to set the cross-reference."
^DD(119.8,1,1,2,"DT")="2920705"
^DD(119.8,1,21,0)="^^1^1^2921107^"
^DD(119.8,1,21,1,0)="This is the date/time at which the event occurred."
^DD(119.8,1,"DT")="2920705"
^DD(119.8,2,0)="PATIENT^RP115'^FHPT(^0;3^Q"
^DD(119.8,2,1,0)="^.1"
^DD(119.8,2,1,1,0)="119.8^AP^MUMPS"
^DD(119.8,2,1,1,1)="S X1=$P(^FH(119.8,DA,0),U,2) I X1 S ^FH(119.8,""AP"",X,X1,DA)="""""
^DD(119.8,2,1,1,2)="S X1=$P(^FH(119.8,DA,0),U,2) I X1 K ^FH(119.8,""AP"",X,X1,DA)"
^DD(119.8,2,1,1,"%D",0)="^^2^2^2940823^"
^DD(119.8,2,1,1,"%D",1,0)="This is a cross-reference of dietetic events by patient and date/time."
^DD(119.8,2,1,1,"%D",2,0)="Field 1 is also used to set the cross-reference."
^DD(119.8,2,1,1,"DT")="2920705"
^DD(119.8,2,21,0)="^^2^2^2921107^"
^DD(119.8,2,21,1,0)="This is a pointer to the patient with which the event is"
^DD(119.8,2,21,2,0)="associated."
^DD(119.8,2,"DT")="2920705"
^DD(119.8,3,0)="ADMISSION^RP405'^DGPM(^0;4^Q"
^DD(119.8,3,1,0)="^.1^^0"
^DD(119.8,3,21,0)="^^2^2^2921107^"
^DD(119.8,3,21,1,0)="This is a pointer to the admission (Movement) with which the"
^DD(119.8,3,21,2,0)="event is associated."
^DD(119.8,3,"DT")="2920705"
^DD(119.8,4,0)="TYPE OF EVENT^RS^L:LOCATION;D:DIET;I:ISOLATION;T:T/F;O:OTHER;P:PREF.;S:STD. ORDERS;F:SUPP. FDG.;M:MESSAGE;Z:OUTPATIENT EVENT;^0;5^Q"
^DD(119.8,4,21,0)="^.001^1^1^3040518^^^^"
^DD(119.8,4,21,1,0)="This is a set of codes indicating the type of event."
^DD(119.8,4,"DT")="3040518"
^DD(119.8,5,0)="ACTION^S^O:ORDERED;C:CANCELLED;A:ADMIT;T:TRANSFER;D:DISCHARGE;^0;6^Q"
^DD(119.8,5,21,0)="^^2^2^2930913^^"
^DD(119.8,5,21,1,0)="This is a set of codes indicating the type of action; A D T are"
^DD(119.8,5,21,2,0)="associated only with location changes."
^DD(119.8,5,"DT")="2920705"
^DD(119.8,6,0)="ORDER #^RNJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.8,6,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(119.8,6,21,0)="^^1^1^2921107^"
^DD(119.8,6,21,1,0)="This value corresponds to the associated Order for the event."
^DD(119.8,6,"DT")="2920704"
^DD(119.8,7,0)="TEXT^F^^0;8^K:$L(X)>120!($L(X)<3) X"
^DD(119.8,7,3)="Answer must be 3-120 characters in length."
^DD(119.8,7,21,0)="^^2^2^2921107^"
^DD(119.8,7,21,1,0)="This is the text of the order; for location changes it represents"
^DD(119.8,7,21,2,0)="the From-To Ward and Bed."
^DD(119.8,7,"DT")="2920704"
^DD(119.8,8,0)="ENTERED CLERK^RP200'^VA(200,^0;9^Q"
^DD(119.8,8,21,0)="^^2^2^2950317^"
^DD(119.8,8,21,1,0)="This field contains the user who entered the order and is"
^DD(119.8,8,21,2,0)="automatically captured at the time of entry."
^DD(119.8,8,"DT")="2950317"
^DD(119.8,"B","ACTION",5)=""
^DD(119.8,"B","ADMISSION",3)=""
^DD(119.8,"B","DATE/TIME",1)=""
^DD(119.8,"B","ENTERED CLERK",8)=""
^DD(119.8,"B","NUMBER",.01)=""
^DD(119.8,"B","ORDER #",6)=""
^DD(119.8,"B","PATIENT",2)=""
^DD(119.8,"B","TEXT",7)=""
^DD(119.8,"B","TYPE OF EVENT",4)=""
^DD(119.8,"GL",0,1,.01)=""
^DD(119.8,"GL",0,2,1)=""
^DD(119.8,"GL",0,3,2)=""
^DD(119.8,"GL",0,4,3)=""
^DD(119.8,"GL",0,5,4)=""
^DD(119.8,"GL",0,6,5)=""
^DD(119.8,"GL",0,7,6)=""
^DD(119.8,"GL",0,8,7)=""
^DD(119.8,"GL",0,9,8)=""
^DD(119.8,"IX",.01)=""
^DD(119.8,"IX",1)=""
^DD(119.8,"IX",2)=""
^DD(119.8,"RQ",.01)=""
^DD(119.8,"RQ",1)=""
^DD(119.8,"RQ",2)=""
^DD(119.8,"RQ",3)=""
^DD(119.8,"RQ",4)=""
^DD(119.8,"RQ",6)=""
^DD(119.8,"RQ",8)=""
^DD(119.9,0)="FIELD^^101^62"
^DD(119.9,0,"DDA")="N"
^DD(119.9,0,"DT")="3040223"
^DD(119.9,0,"IX","AC",119.9,4)=""
^DD(119.9,0,"IX","B",119.9,.01)=""
^DD(119.9,0,"NM","FH SITE PARAMETERS")=""
^DD(119.9,0,"VR")="5.5"
^DD(119.9,0,"VRPK")="DIETETICS"
^DD(119.9,.01,0)="SITE^RNJ1,0X^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(119.9,.01,1,0)="^.1"
^DD(119.9,.01,1,1,0)="119.9^B"
^DD(119.9,.01,1,1,1)="S ^FH(119.9,""B"",$E(X,1,30),DA)="""""
^DD(119.9,.01,1,1,2)="K ^FH(119.9,""B"",$E(X,1,30),DA)"
^DD(119.9,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.9,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the SITE field."
^DD(119.9,.01,3)="Type the Number 1"
^DD(119.9,.01,21,0)="^.001^1^1^3040223^^^^"
^DD(119.9,.01,21,1,0)="This value is always 1."
^DD(119.9,.01,21,2,0)="Number of the File Manager."
^DD(119.9,.01,"DT")="2890604"
^DD(119.9,3,0)="LABEL PRINTERS^119.93P^^D;0"
^DD(119.9,3,21,0)="^.001^1^1^3030214^^^^"
^DD(119.9,3,21,1,0)="This is a list of printers using label stock."
^DD(119.9,4,0)="OUTPATIENT MEALS DIET1^P111'X^FH(111,^0;2^Q"
^DD(119.9,4,1,0)="^.1"
^DD(119.9,4,1,1,0)="119.9^AC^MUMPS"
^DD(119.9,4,1,1,1)="Q"
^DD(119.9,4,1,1,2)="D OMD1IT^FHOMWOR1"
^DD(119.9,4,1,1,"%D",0)="^^2^2^3050505^"
^DD(119.9,4,1,1,"%D",1,0)="If OUTPATIENT MEALS DIET1 is deleted, the OUTPATIENT MEALS DIET2 - 5"
^DD(119.9,4,1,1,"%D",2,0)="field will also be deleted."
^DD(119.9,4,1,1,"DT")="3050505"
^DD(119.9,4,21,0)="^^4^4^3050809^"
^DD(119.9,4,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,4,21,2,0)="fields to be set up at the individual site.  This field will be the first"
^DD(119.9,4,21,3,0)="allowable diet for ordering outpatient meals.  This first field will be"
^DD(119.9,4,21,4,0)="used as the default diet when ordering outpatient meals."
^DD(119.9,4,"DT")="3050505"
^DD(119.9,5,0)="OUTPATIENT MEALS DIET2^P111'^FH(111,^0;3^Q"
^DD(119.9,5,21,0)="^.001^3^3^3040902^^^"
^DD(119.9,5,21,1,0)="The outpatient meals will allow diet selection from 5 site parameter"
^DD(119.9,5,21,2,0)="fields to be set up at the individual site.  This field will be the second"
^DD(119.9,5,21,3,0)="allowable diet for ordering outpatient meals."
^DD(119.9,5,"DT")="3030214"
^DD(119.9,6,0)="OUTPATIENT MEALS DIET3^P111'^FH(111,^0;4^Q"
^DD(119.9,6,21,0)="^.001^3^3^3040902^^"
^DD(119.9,6,21,1,0)="The outpatient meals will allow diet selection from 5 site parameter"
^DD(119.9,6,21,2,0)="fields to be set up at the individual site.  This field will be the third"
^DD(119.9,6,21,3,0)="allowable diet for ordering outpatient meals."
^DD(119.9,6,"DT")="3030214"
^DD(119.9,7,0)="OUTPATIENT MEALS DIET4^P111'^FH(111,^0;5^Q"
^DD(119.9,7,21,0)="^.001^3^3^3040902^^"
^DD(119.9,7,21,1,0)="The outpatient meals will allow diet selection from 5 site parameter"
^DD(119.9,7,21,2,0)="fields to be set up at the individual site.  This field will be the fourth"
^DD(119.9,7,21,3,0)="allowable diet for ordering outpatient meals."
^DD(119.9,7,"DT")="3030214"
^DD(119.9,8,0)="OUTPATIENT MEALS DIET5^P111'^FH(111,^0;6^Q"
^DD(119.9,8,21,0)="^.001^3^3^3040902^^^"
^DD(119.9,8,21,1,0)="The outpatient meals will allow diet selection from 5 site parameter"
^DD(119.9,8,21,2,0)="fields to be set up at the individual site.  This field will be the fifth"
^DD(119.9,8,21,3,0)="allowable diet for ordering outpatient meals."
^DD(119.9,8,"DT")="3030214"
^DD(119.9,9,0)="AUTHORIZOR 1^P200'^VA(200,^0;7^Q"
^DD(119.9,9,21,0)="^^5^5^3060614^"
^DD(119.9,9,21,1,0)="This field will be used to store the name of the first authorizor for"
^DD(119.9,9,21,2,0)="special meals.  When a special meal is requested, if the requestor does"
^DD(119.9,9,21,3,0)="not have the authorization to print a special meal ticket, an alert will"
^DD(119.9,9,21,4,0)="be sent to the authorizors for action.  These 15 authorizors will also"
^DD(119.9,9,21,5,0)="need to be given the FHAUTH security key."
^DD(119.9,9,"DT")="3030429"
^DD(119.9,10,0)="AUTHORIZOR 2^P200'^VA(200,^0;8^Q"
^DD(119.9,10,21,0)="^^5^5^3060614^"
^DD(119.9,10,21,1,0)="This field will be used to store the name of the second authorizor for"
^DD(119.9,10,21,2,0)="special meals.  When a special meal is requested, if the requestor does"
^DD(119.9,10,21,3,0)="not have the authorization to print a special meal ticket, an alert will"
^DD(119.9,10,21,4,0)="be sent to the authorizors for action.  These 15 authorizors will also"
^DD(119.9,10,21,5,0)="need to be given the FHAUTH security key."
^DD(119.9,10,"DT")="3030429"
^DD(119.9,11,0)="AUTHORIZOR 3^P200'^VA(200,^0;9^Q"
^DD(119.9,11,21,0)="^^5^5^3060614^"
^DD(119.9,11,21,1,0)="This field will be used to store the name of the third authorizor for"
^DD(119.9,11,21,2,0)="special meals.  When a special meal is requested, if the requestor does"
^DD(119.9,11,21,3,0)="not have the authorization to print a special meal ticket, an alert will"
^DD(119.9,11,21,4,0)="be sent to the authorizors for action.  These 15 authorizors will also"
^DD(119.9,11,21,5,0)="need to be given the FHAUTH security key."
^DD(119.9,11,"DT")="3030429"
^DD(119.9,12,0)="AUTHORIZOR 4^P200'^VA(200,^0;10^Q"
^DD(119.9,12,21,0)="^^5^5^3060614^"
^DD(119.9,12,21,1,0)="This field will be used to store the name of the fourth authorizor for"
^DD(119.9,12,21,2,0)="special meals.  When a special meal is requested, if the requestor does"
^DD(119.9,12,21,3,0)="not have the authorization to print a special meal ticket, an alert will"
^DD(119.9,12,21,4,0)="be sent to the authorizors for action.  These 15 authorizors will also"
^DD(119.9,12,21,5,0)="need to be given the FHAUTH security key."
^DD(119.9,12,"DT")="3030429"
^DD(119.9,13,0)="AUTHORIZOR 5^P200'^VA(200,^0;11^Q"
^DD(119.9,13,21,0)="^^5^5^3060614^"
^DD(119.9,13,21,1,0)="This field will be used to store the name of the fifth authorizor for"
^DD(119.9,13,21,2,0)="special meals.  When a special meal is requested, if the requestor does"
^DD(119.9,13,21,3,0)="not have the authorization to print a special meal ticket, an alert will"
^DD(119.9,13,21,4,0)="be sent to the authorizors for action.  These 15 authorizors will also"
^DD(119.9,13,21,5,0)="need to be given the FHAUTH security key."
^DD(119.9,13,"DT")="3030429"
^DD(119.9,14,0)="EMPLOYEE CLASS^S^Y:YES;N:NO;^0;12^Q"
^DD(119.9,14,21,0)="^.001^2^2^3040909^^^^"
^DD(119.9,14,21,1,0)="This field stores whether or not the site assigns a charge to the"
^DD(119.9,14,21,2,0)="Employee Class."
^DD(119.9,14,"DT")="3030630"
^DD(119.9,15,0)="PAID CLASS^S^Y:YES;N:NO;^0;13^Q"
^DD(119.9,15,21,0)="^.001^1^1^3040909^^^"
^DD(119.9,15,21,1,0)="This field stores whether or not the site assigns a charge to the Paid Class."
^DD(119.9,15,"DT")="3040219"
^DD(119.9,16,0)="OOD CLASS^S^Y:YES;N:NO;^0;14^Q"
^DD(119.9,16,21,0)="^.001^2^2^3040909^^^"
^DD(119.9,16,21,1,0)="This field stores whether or not the site assigns a charge to the"
^DD(119.9,16,21,2,0)="OOD (Officer of the Day) Class."
^DD(119.9,16,"DT")="3030630"
^DD(119.9,17,0)="VOLUNTEER CLASS^S^Y:YES;N:NO;^0;15^Q"
^DD(119.9,17,21,0)="^.001^2^2^3040909^^^"
^DD(119.9,17,21,1,0)="This field stores whether or not the site assigns a charge to the"
^DD(119.9,17,21,2,0)="Volunteer Class."
^DD(119.9,17,"DT")="3040219"
^DD(119.9,18,0)="GRATUITOUS CLASS^S^Y:YES;N:NO;^0;16^Q"
^DD(119.9,18,21,0)="^.001^2^2^3040909^^^"
^DD(119.9,18,21,1,0)="This field stores whether or not the site assigns a charge to the"
^DD(119.9,18,21,2,0)="Gratuitous Class."
^DD(119.9,18,"DT")="3040219"
^DD(119.9,22,0)="MULTIDIVISIONAL SITE?^S^Y:YES;N:NO;^0;20^Q"
^DD(119.9,22,21,0)="^^4^4^3031009^"
^DD(119.9,22,21,1,0)="This field will be used to determine if a site is multidivisional or not."
^DD(119.9,22,21,2,0)="If set to YES, the multidivisional enhancements released in patch FH*5.0*39"
^DD(119.9,22,21,3,0)="will be used, which involves prompting for Communication Office.  If set to"
^DD(119.9,22,21,4,0)="NO, then the non-multidivisional routines, fields and files will be used."
^DD(119.9,22,"DT")="3031009"
^DD(119.9,25,0)="EMPLOYEE BREAKFAST CHARGE^NJ6,2^^0;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,25,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,25,21,0)="^^1^1^3040223^"
^DD(119.9,25,21,1,0)="This field stores the cost for the employee breakfast meal."
^DD(119.9,25,"DT")="3040223"
^DD(119.9,26,0)="EMPLOYEE NOON CHARGE^NJ6,2^^0;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,26,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,26,21,0)="^^1^1^3040223^"
^DD(119.9,26,21,1,0)="This field stores the cost for the employee noon meal."
^DD(119.9,26,"DT")="3040223"
^DD(119.9,27,0)="EMPLOYEE EVENING CHARGE^NJ6,2^^0;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,27,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,27,21,0)="^^1^1^3040223^"
^DD(119.9,27,21,1,0)="This field stores the cost for the employee evening meal."
^DD(119.9,27,"DT")="3040223"
^DD(119.9,28,0)="PAID BREAKFAST CHARGE^NJ6,2^^0;24^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,28,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,28,21,0)="^^1^1^3040223^"
^DD(119.9,28,21,1,0)="This field stores the cost for the paid breakfast meal."
^DD(119.9,28,"DT")="3040223"
^DD(119.9,29,0)="PAID NOON CHARGE^NJ6,2^^0;25^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,29,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,29,21,0)="^^1^1^3040223^"
^DD(119.9,29,21,1,0)="This field stores the cost for the paid noon meal."
^DD(119.9,29,"DT")="3040223"
^DD(119.9,30,0)="PAID EVENING CHARGE^NJ6,2^^0;26^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,30,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,30,21,0)="^^1^1^3040223^"
^DD(119.9,30,21,1,0)="This field stores the cost for the paid evening meal."
^DD(119.9,30,"DT")="3040223"
^DD(119.9,31,0)="OOD BREAKFAST CHARGE^NJ6,2^^0;27^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,31,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,31,21,0)="^^1^1^3040223^"
^DD(119.9,31,21,1,0)="This field stores the cost for the OOD breakfast meal."
^DD(119.9,31,"DT")="3040223"
^DD(119.9,32,0)="OOD NOON CHARGE^NJ6,2^^0;28^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,32,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,32,21,0)="^^1^1^3040223^"
^DD(119.9,32,21,1,0)="This field stores the cost for the OOD noon meal."
^DD(119.9,32,"DT")="3040223"
^DD(119.9,33,0)="OOD EVENING MEAL^NJ6,2^^0;29^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,33,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,33,21,0)="^.001^1^1^3040223^^"
^DD(119.9,33,21,1,0)="This field stores the cost for the OOD evening meal."
^DD(119.9,33,"DT")="3040223"
^DD(119.9,34,0)="VOLUNTEER BREAKFAST CHARGE^NJ6,2^^0;30^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,34,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,34,21,0)="^^1^1^3040223^"
^DD(119.9,34,21,1,0)="This field stores the cost for the volunteer breakfast meal."
^DD(119.9,34,"DT")="3040223"
^DD(119.9,35,0)="VOLUNTEER NOON CHARGE^NJ6,2^^0;31^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,35,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,35,21,0)="^^1^1^3040223^"
^DD(119.9,35,21,1,0)="This field stores the cost for the volunteer noon meal."
^DD(119.9,35,"DT")="3040223"
^DD(119.9,36,0)="VOLUNTEER EVENING CHARGE^NJ6,2^^0;32^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,36,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,36,21,0)="^^1^1^3040223^"
^DD(119.9,36,21,1,0)="This field stores the cost for the volunteer evening meal."
^DD(119.9,36,"DT")="3040223"
^DD(119.9,37,0)="GRATUITOUS BREAKFAST CHARGE^NJ6,2^^0;33^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,37,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,37,21,0)="^^1^1^3040223^"
^DD(119.9,37,21,1,0)="This field stores the cost for the gratuitous breakfast meal."
^DD(119.9,37,"DT")="3040223"
^DD(119.9,38,0)="GRATUITOUS NOON CHARGE^NJ6,2^^0;34^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,38,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,38,21,0)="^^1^1^3040223^"
^DD(119.9,38,21,1,0)="This field stores the cost for the gratuitous noon meal."
^DD(119.9,38,"DT")="3040223"
^DD(119.9,39,0)="GRATUITOUS EVENING CHARGE^NJ6,2^^0;35^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(119.9,39,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(119.9,39,21,0)="^^1^1^3040223^"
^DD(119.9,39,21,1,0)="This field stores the cost for the gratuitous evening meal."
^DD(119.9,39,"DT")="3040223"
^DD(119.9,40,0)="OUTPATIENT MEALS DIET6^P111'^FH(111,^1;1^Q"
^DD(119.9,40,21,0)="^^3^3^3050809^"
^DD(119.9,40,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,40,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,40,21,3,0)="sixth allowable diet for ordering outpatient meals."
^DD(119.9,40,"DT")="3050803"
^DD(119.9,41,0)="OUTPATIENT MEALS DIET7^P111'^FH(111,^1;2^Q"
^DD(119.9,41,21,0)="^^3^3^3050809^"
^DD(119.9,41,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,41,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,41,21,3,0)="seventh allowable diet for ordering outpatient meals."
^DD(119.9,41,"DT")="3050803"
^DD(119.9,42,0)="OUTPATIENT MEALS DIET8^P111'^FH(111,^1;3^Q"
^DD(119.9,42,21,0)="^^3^3^3050809^"
^DD(119.9,42,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,42,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,42,21,3,0)="eighth allowable diet for ordering outpatient meals."
^DD(119.9,42,"DT")="3050803"
^DD(119.9,43,0)="OUTPATIENT MEALS DIET9^P111'^FH(111,^1;4^Q"
^DD(119.9,43,21,0)="^^3^3^3050809^"
^DD(119.9,43,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,43,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,43,21,3,0)="ninth allowable diet for ordering outpatient meals."
^DD(119.9,43,"DT")="3050803"
^DD(119.9,44,0)="OUTPATIENT MEALS DIET10^P111'^FH(111,^1;5^Q"
^DD(119.9,44,21,0)="^.001^3^3^3050809^^"
^DD(119.9,44,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,44,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,44,21,3,0)="tenth allowable diet for ordering outpatient meals."
^DD(119.9,44,"DT")="3050803"
^DD(119.9,45,0)="OUTPATIENT MEALS DIET11^P111'^FH(111,^1;6^Q"
^DD(119.9,45,21,0)="^^3^3^3050809^"
^DD(119.9,45,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,45,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,45,21,3,0)="eleventh allowable diet for ordering outpatient meals."
^DD(119.9,45,"DT")="3050809"
^DD(119.9,46,0)="OUTPATIENT MEALS DIET12^P111'^FH(111,^1;7^Q"
^DD(119.9,46,21,0)="^^3^3^3050809^"
^DD(119.9,46,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,46,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,46,21,3,0)="twelfth allowable diet for ordering outpatient meals."
^DD(119.9,46,"DT")="3050809"
^DD(119.9,47,0)="OUTPATIENT MEALS DIET13^P111'^FH(111,^1;8^Q"
^DD(119.9,47,21,0)="^^3^3^3050809^"
^DD(119.9,47,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,47,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,47,21,3,0)="thirteenth allowable diet for ordering outpatient meals."
^DD(119.9,47,"DT")="3050809"
^DD(119.9,48,0)="OUTPATIENT MEALS DIET14^P111'^FH(111,^1;9^Q"
^DD(119.9,48,21,0)="^^3^3^3050809^"
^DD(119.9,48,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,48,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,48,21,3,0)="fourteenth allowable diet for ordering outpatient meals."
^DD(119.9,48,"DT")="3050809"
^DD(119.9,49,0)="OUTPATIENT MEALS DIET15^P111'^FH(111,^1;10^Q"
^DD(119.9,49,21,0)="^^3^3^3050809^"
^DD(119.9,49,21,1,0)="The outpatient meals will allow diet selection from 15 site parameter"
^DD(119.9,49,21,2,0)="fields to be set up at the individual site.  This field will be the "
^DD(119.9,49,21,3,0)="fifteenth allowable diet for ordering outpatient meals."
^DD(119.9,49,"DT")="3050809"
^DD(119.9,50,0)="AUTHORIZOR 6^P200'^VA(200,^1;11^Q"
^DD(119.9,50,21,0)="^^5^5^3060614^"
^DD(119.9,50,21,1,0)="This field will be used to store the name of the sixth authorizor"
^DD(119.9,50,21,2,0)="for special meals.  When a special meal is requested, if the requestor"
^DD(119.9,50,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,50,21,4,0)="an alert will be sent to the authorizors for action.  These 15"
^DD(119.9,50,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,50,"DT")="3060614"
^DD(119.9,51,0)="AUTHORIZOR 7^P200'^VA(200,^1;12^Q"
^DD(119.9,51,21,0)="^^5^5^3060614^"
^DD(119.9,51,21,1,0)="This field will be used to store the name of the seventh authorizor"
^DD(119.9,51,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,51,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,51,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,51,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,51,"DT")="3060614"
^DD(119.9,52,0)="AUTHORIZOR 8^P200'^VA(200,^1;13^Q"
^DD(119.9,52,21,0)="^^5^5^3060614^"
^DD(119.9,52,21,1,0)="This field will be used to store the name of the eighth authorizor"
^DD(119.9,52,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,52,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,52,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,52,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,52,"DT")="3060614"
^DD(119.9,53,0)="AUTHORIZOR 9^P200'^VA(200,^1;14^Q"
^DD(119.9,53,21,0)="^^5^5^3060614^"
^DD(119.9,53,21,1,0)="This field will be used to store the name of the ninth authorizor"
^DD(119.9,53,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,53,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,53,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,53,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,53,"DT")="3060614"
^DD(119.9,54,0)="AUTHORIZOR 10^P200'^VA(200,^1;15^Q"
^DD(119.9,54,21,0)="^^5^5^3060614^"
^DD(119.9,54,21,1,0)="This field will be used to store the name of the tenth authorizor"
^DD(119.9,54,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,54,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,54,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,54,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,54,"DT")="3060614"
^DD(119.9,55,0)="AUTHORIZOR 11^P200'^VA(200,^1;16^Q"
^DD(119.9,55,21,0)="^^5^5^3060614^"
^DD(119.9,55,21,1,0)="This field will be used to store the name of the eleventh authorizor"
^DD(119.9,55,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,55,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,55,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,55,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,55,"DT")="3060614"
^DD(119.9,56,0)="AUTHORIZOR 12^P200'^VA(200,^1;17^Q"
^DD(119.9,56,21,0)="^^5^5^3060614^"
^DD(119.9,56,21,1,0)="This field will be used to store the name of the twelfth authorizor"
^DD(119.9,56,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,56,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,56,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,56,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,56,"DT")="3060614"
^DD(119.9,57,0)="AUTHORIZOR 13^P200'^VA(200,^1;18^Q"
^DD(119.9,57,21,0)="^^5^5^3060614^"
^DD(119.9,57,21,1,0)="This field will be used to store the name of the thirteenth authorizor"
^DD(119.9,57,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,57,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,57,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,57,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,57,"DT")="3060614"
^DD(119.9,58,0)="AUTHORIZOR 14^P200'^VA(200,^1;19^Q"
^DD(119.9,58,21,0)="^^5^5^3060614^"
^DD(119.9,58,21,1,0)="This field will be used to store the name of the fourteenth authorizor"
^DD(119.9,58,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,58,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,58,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,58,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,58,"DT")="3060614"
^DD(119.9,59,0)="AUTHORIZOR 15^P200'^VA(200,^1;20^Q"
^DD(119.9,59,21,0)="^^5^5^3060614^"
^DD(119.9,59,21,1,0)="This field will be used to store the name of the fifteenth authorizor"
^DD(119.9,59,21,2,0)="for special meals.  When a special meal is requested, if the requestor   "
^DD(119.9,59,21,3,0)="does not have the authorization to print a special meal ticket,"
^DD(119.9,59,21,4,0)="an alert will be sent to the authorizors for action.  These 15 "
^DD(119.9,59,21,5,0)="authorizors will also need to be given the FHAUTH security key."
^DD(119.9,59,"DT")="3060614"
^DD(119.9,70,0)="ASSESSMENT DEFAULT UNITS^S^E:ENGLISH;M:METRIC;^3;1^Q"
^DD(119.9,70,21,0)="^.001^2^2^3020927^^^"
^DD(119.9,70,21,1,0)="This field contains the default unit of measurement to be used"
^DD(119.9,70,21,2,0)="in performing Nutrition Assessments"
^DD(119.9,70,"DT")="2890604"
^DD(119.9,71,0)="# OF DAYS TO OBTAIN LAB DATA^NJ3,0^^3;2^K:+X'=X!(X>500)!(X<1)!(X?.E1"".""1N.N) X"
^DD(119.9,71,3)="Type a Number between 1 and 500, 0 Decimal Digits"
^DD(119.9,71,21,0)="^.001^3^3^3020927^^"
^DD(119.9,71,21,1,0)="This field contains the number of days backward for which a search"
^DD(119.9,71,21,2,0)="of laboratory data will be made. That is, only data obtained within"
^DD(119.9,71,21,3,0)="the last # of days will be displayed."
^DD(119.9,71,"DT")="2890604"
^DD(119.9,74,0)="PRINT PROFILE AFTER SCREENING?^S^Y:YES;N:NO;A:ASK USER;^3;3^Q"
^DD(119.9,74,21,0)="^.001^4^4^3020927^^"
^DD(119.9,74,21,1,0)="This parameter determines whether the Nutrition Profile is printed"
^DD(119.9,74,21,2,0)="immediately following the printing of a screening form. If 'A' is"
^DD(119.9,74,21,3,0)="selected, the user will be asked to make a selection at the time"
^DD(119.9,74,21,4,0)="of printing screening forms."
^DD(119.9,74,"DT")="2901015"
^DD(119.9,75,0)="OPTIONAL SCREENING LINE^F^^3;5^K:$L(X)>74!($L(X)<3) X"
^DD(119.9,75,3)="Answer must be 3-74 characters in length."
^DD(119.9,75,21,0)="^.001^3^3^3020927^^"
^DD(119.9,75,21,1,0)="This field may contain a line of text which will be printed as"
^DD(119.9,75,21,2,0)="the last line of the S portion of the Nutrition Screening"
^DD(119.9,75,21,3,0)="form."
^DD(119.9,75,"DT")="2891105"
^DD(119.9,80,0)="LAB TEST^119.9001P^^L;0"
^DD(119.9,80,21,0)="^.001^2^2^3030214^^^^"
^DD(119.9,80,21,1,0)="This multiple contains a list of laboratory tests which"
^DD(119.9,80,21,2,0)="are of interest to clinicians."
^DD(119.9,85,0)="DRUG CLASSIFICATIONS^119.985P^^P;0"
^DD(119.9,85,21,0)="^.001^2^2^3030214^^^"
^DD(119.9,85,21,1,0)="This multiple contains drug classifications of interest"
^DD(119.9,85,21,2,0)="to clinicians."
^DD(119.9,99,0)="HEADING ON BOTTOM OF TICKET?^S^Y:YES;N:NO;^4;1^Q"
^DD(119.9,99,21,0)="^.001^3^3^3020927^^"
^DD(119.9,99,21,1,0)="This field is optional and it is used to indicate whether the"
^DD(119.9,99,21,2,0)="heading should be printed on the bottom of the tray tickets and"
^DD(119.9,99,21,3,0)="diet cards."
^DD(119.9,99,"DT")="2940926"
^DD(119.9,100,0)="WILL YOU USE TRAY TICKETS?^S^Y:YES;N:NO;^4;2^Q"
^DD(119.9,100,21,0)="^.001^8^8^3020927^^^^"
^DD(119.9,100,21,1,0)="This field is optional and it is used to indicate whether the user"
^DD(119.9,100,21,2,0)="wants to use the Tray Tickets or not.  If the answer is Yes, you will"
^DD(119.9,100,21,3,0)="be asked whether you want the heading for the Tray Tickets to"
^DD(119.9,100,21,4,0)="be printed on the bottom or not and also you will be receiving a"
^DD(119.9,100,21,5,0)="no diet pattern message on diet activity for patients that do"
^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.9,101,0)="OUTPATIENT MEALS INSTALLED^S^1:YES;0:NO;^CV;1^Q"
^DD(119.9,101,21,0)="^^1^1^3040223^"
^DD(119.9,101,21,1,0)="Field to note if outpatient meals build has been installed previously."
^DD(119.9,101,"DT")="3040223"
^DD(119.9,"B","# OF DAYS TO OBTAIN LAB DATA",71)=""
^DD(119.9,"B","ASSESSMENT DEFAULT UNITS",70)=""
^DD(119.9,"B","AUTHORIZOR 1",9)=""
^DD(119.9,"B","AUTHORIZOR 10",54)=""
^DD(119.9,"B","AUTHORIZOR 11",55)=""
^DD(119.9,"B","AUTHORIZOR 12",56)=""
^DD(119.9,"B","AUTHORIZOR 13",57)=""
^DD(119.9,"B","AUTHORIZOR 14",58)=""
^DD(119.9,"B","AUTHORIZOR 15",59)=""
^DD(119.9,"B","AUTHORIZOR 2",10)=""
^DD(119.9,"B","AUTHORIZOR 3",11)=""
^DD(119.9,"B","AUTHORIZOR 4",12)=""
^DD(119.9,"B","AUTHORIZOR 5",13)=""
^DD(119.9,"B","AUTHORIZOR 6",50)=""
^DD(119.9,"B","AUTHORIZOR 7",51)=""
^DD(119.9,"B","AUTHORIZOR 8",52)=""
^DD(119.9,"B","AUTHORIZOR 9",53)=""
^DD(119.9,"B","DRUG CLASSIFICATIONS",85)=""
^DD(119.9,"B","EMPLOYEE BREAKFAST CHARGE",25)=""
^DD(119.9,"B","EMPLOYEE CLASS",14)=""
^DD(119.9,"B","EMPLOYEE EVENING CHARGE",27)=""
^DD(119.9,"B","EMPLOYEE NOON CHARGE",26)=""
^DD(119.9,"B","GRATUITOUS BREAKFAST CHARGE",37)=""
^DD(119.9,"B","GRATUITOUS CLASS",18)=""
^DD(119.9,"B","GRATUITOUS EVENING CHARGE",39)=""
^DD(119.9,"B","GRATUITOUS NOON CHARGE",38)=""
^DD(119.9,"B","HEADING ON BOTTOM OF TICKET?",99)=""
^DD(119.9,"B","LAB TEST",80)=""
^DD(119.9,"B","LABEL PRINTERS",3)=""
^DD(119.9,"B","MULTIDIVISIONAL SITE?",22)=""
^DD(119.9,"B","OOD BREAKFAST CHARGE",31)=""
^DD(119.9,"B","OOD CLASS",16)=""
^DD(119.9,"B","OOD EVENING MEAL",33)=""
^DD(119.9,"B","OOD NOON CHARGE",32)=""
^DD(119.9,"B","OPTIONAL SCREENING LINE",75)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET1",4)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET10",44)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET11",45)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET12",46)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET13",47)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET14",48)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET15",49)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET2",5)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET3",6)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET4",7)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET5",8)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET6",40)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET7",41)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET8",42)=""
^DD(119.9,"B","OUTPATIENT MEALS DIET9",43)=""
^DD(119.9,"B","OUTPATIENT MEALS INSTALLED",101)=""
^DD(119.9,"B","PAID BREAKFAST CHARGE",28)=""
^DD(119.9,"B","PAID CLASS",15)=""
^DD(119.9,"B","PAID EVENING CHARGE",30)=""
^DD(119.9,"B","PAID NOON CHARGE",29)=""
^DD(119.9,"B","PRINT PROFILE AFTER SCREENING?",74)=""
^DD(119.9,"B","SITE",.01)=""
^DD(119.9,"B","VOLUNTEER BREAKFAST CHARGE",34)=""
^DD(119.9,"B","VOLUNTEER CLASS",17)=""
^DD(119.9,"B","VOLUNTEER EVENING CHARGE",36)=""
^DD(119.9,"B","VOLUNTEER NOON CHARGE",35)=""
^DD(119.9,"B","WILL YOU USE TRAY TICKETS?",100)=""
^DD(119.9,"GL",0,1,.01)=""
^DD(119.9,"GL",0,2,4)=""
^DD(119.9,"GL",0,3,5)=""
^DD(119.9,"GL",0,4,6)=""
^DD(119.9,"GL",0,5,7)=""
^DD(119.9,"GL",0,6,8)=""
^DD(119.9,"GL",0,7,9)=""
^DD(119.9,"GL",0,8,10)=""
^DD(119.9,"GL",0,9,11)=""
^DD(119.9,"GL",0,10,12)=""
^DD(119.9,"GL",0,11,13)=""
^DD(119.9,"GL",0,12,14)=""
^DD(119.9,"GL",0,13,15)=""
^DD(119.9,"GL",0,14,16)=""
^DD(119.9,"GL",0,15,17)=""
^DD(119.9,"GL",0,16,18)=""
^DD(119.9,"GL",0,20,22)=""
^DD(119.9,"GL",0,21,25)=""
^DD(119.9,"GL",0,22,26)=""
^DD(119.9,"GL",0,23,27)=""
^DD(119.9,"GL",0,24,28)=""
^DD(119.9,"GL",0,25,29)=""
^DD(119.9,"GL",0,26,30)=""
^DD(119.9,"GL",0,27,31)=""
^DD(119.9,"GL",0,28,32)=""
^DD(119.9,"GL",0,29,33)=""
^DD(119.9,"GL",0,30,34)=""
^DD(119.9,"GL",0,31,35)=""
^DD(119.9,"GL",0,32,36)=""
^DD(119.9,"GL",0,33,37)=""
^DD(119.9,"GL",0,34,38)=""
^DD(119.9,"GL",0,35,39)=""
^DD(119.9,"GL",1,1,40)=""
^DD(119.9,"GL",1,2,41)=""
^DD(119.9,"GL",1,3,42)=""
^DD(119.9,"GL",1,4,43)=""
^DD(119.9,"GL",1,5,44)=""
^DD(119.9,"GL",1,6,45)=""
^DD(119.9,"GL",1,7,46)=""
^DD(119.9,"GL",1,8,47)=""
^DD(119.9,"GL",1,9,48)=""
^DD(119.9,"GL",1,10,49)=""
^DD(119.9,"GL",1,11,50)=""
^DD(119.9,"GL",1,12,51)=""
^DD(119.9,"GL",1,13,52)=""
^DD(119.9,"GL",1,14,53)=""
^DD(119.9,"GL",1,15,54)=""
^DD(119.9,"GL",1,16,55)=""
^DD(119.9,"GL",1,17,56)=""
^DD(119.9,"GL",1,18,57)=""
^DD(119.9,"GL",1,19,58)=""
^DD(119.9,"GL",1,20,59)=""
^DD(119.9,"GL",3,1,70)=""
^DD(119.9,"GL",3,2,71)=""
^DD(119.9,"GL",3,3,74)=""
^DD(119.9,"GL",3,5,75)=""
^DD(119.9,"GL",4,1,99)=""
^DD(119.9,"GL",4,2,100)=""
^DD(119.9,"GL","CV",1,101)=""
^DD(119.9,"GL","D",0,3)=""
^DD(119.9,"GL","L",0,80)=""
^DD(119.9,"GL","P",0,85)=""
^DD(119.9,"IX",.01)=""
^DD(119.9,"IX",4)=""
^DD(119.9,"RQ",.01)=""
^DD(119.9,"SB",119.9001,80)=""
^DD(119.9,"SB",119.93,3)=""
^DD(119.9,"SB",119.985,85)=""
^DD(119.9001,0)="LAB TEST SUB-FIELD^^5^6"
^DD(119.9001,0,"DT")="3001205"
^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)="N DIC,DO,D,P60 S P60=+^FH(119.9,1,""L"",DA,0),DIC=""^LAB(60,P60,1,"",DIC(0)=""Q"",D=""B"" K DO D DQ^DICQ 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)="PRINT ORDER^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)="^^9^9^3010312^"
^DD(119.9001,4,21,1,0)="This number, called Print Order:"
^DD(119.9001,4,21,2,0)="(a) will allow grouping of similar lab tests;"
^DD(119.9001,4,21,3,0)="(b) will allow selection of only the lab test with the latest value from"
^DD(119.9001,4,21,4,0)="among the group of tests with the same number;"
^DD(119.9001,4,21,5,0)="(c) will also specify the print order of the lab test  in Nutrition"
^DD(119.9001,4,21,6,0)="Profile report."
^DD(119.9001,4,21,7,0)="If the value of Print Order is not defined for the test then the system"
^DD(119.9001,4,21,8,0)="first prints all numbered tests and then prints tests without numbers in"
^DD(119.9001,4,21,9,0)="order providing by Lab package."
^DD(119.9001,4,"DT")="3010312"
^DD(119.9001,5,0)="SERUM ALBUMIN?^S^Y:YES;N:NO;^0;6^Q"
^DD(119.9001,5,21,0)="^.001^2^2^3001205^^"
^DD(119.9001,5,21,1,0)="This field, if answered YES, indicates that the lab test"
^DD(119.9001,5,21,2,0)="is a serum albumin test."
^DD(119.9001,5,"DT")="3001205"
^DD(119.9001,"B","LAB TEST",.01)=""
^DD(119.9001,"B","PRINT ON ASSESSMENT?",2)=""
^DD(119.9001,"B","PRINT ON SCREENING?",3)=""
^DD(119.9001,"B","PRINT ORDER",4)=""
^DD(119.9001,"B","SERUM ALBUMIN?",5)=""
^DD(119.9001,"B","SPECIMEN",1)=""
^DD(119.9001,"GL",0,1,.01)=""
^DD(119.9001,"GL",0,2,1)=""
^DD(119.9001,"GL",0,3,2)=""
^DD(119.9001,"GL",0,4,3)=""
^DD(119.9001,"GL",0,5,4)=""
^DD(119.9001,"GL",0,6,5)=""
^DD(119.9001,"IX",.01)=""
^DD(119.9001,"RQ",1)=""
^DD(119.93,0)="LABEL PRINTERS SUB-FIELD^^1^2"
^DD(119.93,0,"DT")="3020927"
^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 (Single strip labels);2:4 x 1-7/16 (Single strip labels);3:2-5/8 x 1 (Laser labels - 30 labels per sheet);4:4 x 1-1/3 (Laser labels - 14 labels per sheet);^0;2^Q"
^DD(119.93,1,21,0)="^.001^7^7^3030214^^^^"
^DD(119.93,1,21,1,0)="This field indicates the size and type of label stock on the printer."
^DD(119.93,1,21,2,0)="You may choose from the following selections:"
^DD(119.93,1,21,3,0)=""
^DD(119.93,1,21,4,0)="1)  3-1/2 x 15/16 - Single strip track-fed labels."
^DD(119.93,1,21,5,0)="2)  4 x 1-7/16    - Single strip track-fed labels."
^DD(119.93,1,21,6,0)="3)  2-5/8 x 1 - Laser label sheets, ie AVERY 5160, 30 labels per sheet."
^DD(119.93,1,21,7,0)="4)  4 x 1-1/3 - Laser label sheets, ie AVERY 5162, 14 labels per sheet."
^DD(119.93,1,"DT")="3020927"
^DD(119.93,"B","LABEL PRINTERS",.01)=""
^DD(119.93,"B","SIZE OF LABELS",1)=""
^DD(119.93,"GL",0,1,.01)=""
^DD(119.93,"GL",0,2,1)=""
^DD(119.93,"IX",.01)=""
^DD(119.985,0)="DRUG CLASSIFICATIONS SUB-FIELD^^.01^5"
^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"
^DD(119.985,.01,1,0)="^.1"
^DD(119.985,.01,1,1,0)="119.985^B"
^DD(119.985,.01,1,1,1)="S ^FH(119.9,DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(119.985,.01,1,1,2)="K ^FH(119.9,DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(119.985,.01,1,1,"%D",0)="^^1^1^2911118^"
^DD(119.985,.01,1,1,"%D",1,0)="This is the normal B cross-reference of the DRUG CLASSIFICATIONS field."
^DD(119.985,.01,21,0)="^^2^2^2890709^"
^DD(119.985,.01,21,1,0)="This field is a pointer to File 50.605, VA Drug Classification"
^DD(119.985,.01,21,2,0)="and is a classification of interest to clinicians."
^DD(119.985,.01,"DT")="2890709"
^DD(119.985,3,0)="PRINT ON ASSESSMENT^S^Y:YES;N:NO;^0;3^Q"
^DD(119.985,3,21,0)="^^2^2^3070321^"
^DD(119.985,3,21,1,0)="If answer Yes and patient has a drug under this classification, "
^DD(119.985,3,21,2,0)="information will be printed in the Nutrition report."
^DD(119.985,3,"DT")="3070321"
^DD(119.985,4,0)="PRINT ON SCREENING/PROFILE^S^Y:YES;N:NO;^0;4^Q"
^DD(119.985,4,21,0)="^^2^2^3070321^"
^DD(119.985,4,21,1,0)="If set to YES and patient is taking this type of drug, it will be printed "
^DD(119.985,4,21,2,0)="in Print Screening report."
^DD(119.985,4,"DT")="3070419"
^DD(119.985,5,0)="PRINT ORDER^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(119.985,5,3)="Type a number between 1 and 999, 0 Decimal Digits"
^DD(119.985,5,21,0)="^^1^1^3070321^"
^DD(119.985,5,21,1,0)="This is a print order of a specific Drug Classification."
^DD(119.985,5,"DT")="3070321"
^DD(119.985,6,0)="CREATE ALERT^S^Y:YES;N:NO;^0;6^Q"
^DD(119.985,6,21,0)="^^2^2^3070321^"
^DD(119.985,6,21,1,0)="If set to YES, alert will be created for patient that is taking "
^DD(119.985,6,21,2,0)="medication with this type of Drug."
^DD(119.985,6,"DT")="3070321"
^DD(119.985,"B","CREATE ALERT",6)=""
^DD(119.985,"B","DRUG CLASSIFICATIONS",.01)=""
^DD(119.985,"B","PRINT ON ASSESSMENT",3)=""
^DD(119.985,"B","PRINT ON SCREENING/PROFILE",4)=""
^DD(119.985,"B","PRINT ORDER",5)=""
^DD(119.985,"GL",0,1,.01)=""
^DD(119.985,"GL",0,3,3)=""
^DD(119.985,"GL",0,4,4)=""
^DD(119.985,"GL",0,5,5)=""
^DD(119.985,"GL",0,6,6)=""
^DD(119.985,"IX",.01)=""
^DD(120.5,0)="FIELD^^5^12"
^DD(120.5,0,"DDA")="N"
^DD(120.5,0,"DT")="2970110"
^DD(120.5,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(120.5,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^GMRD(120.51,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(120.51,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(120.5,0,"IX","AA01",120.5,.01)=""
^DD(120.5,0,"IX","AA02",120.5,.02)=""
^DD(120.5,0,"IX","AA03",120.5,.03)=""
^DD(120.5,0,"IX","B",120.5,.01)=""
^DD(120.5,0,"IX","C",120.5,.02)=""
^DD(120.5,0,"IX","T",120.5,.03)=""
^DD(120.5,0,"NM","GMRV VITAL MEASUREMENT")=""
^DD(120.5,0,"VR")="5.0"
^DD(120.5,0,"VRPK")="GEN. MED. REC. - VITALS"
^DD(120.5,.01,0)="DATE/TIME VITALS TAKEN^RDX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(120.5,.01,1,0)="^.1"
^DD(120.5,.01,1,1,0)="120.5^B"
^DD(120.5,.01,1,1,1)="S ^GMR(120.5,""B"",$E(X,1,30),DA)="""""
^DD(120.5,.01,1,1,2)="K ^GMR(120.5,""B"",$E(X,1,30),DA)"
^DD(120.5,.01,1,1,"%D",0)="^^1^1^2970203^^^^"
^DD(120.5,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.5,.01,1,2,0)="120.5^AA01^MUMPS"
^DD(120.5,.01,1,2,1)="D AA^GMVFUT0(.01,1,DA,X)"
^DD(120.5,.01,1,2,2)="D AA^GMVFUT0(.01,2,DA,X)"
^DD(120.5,.01,1,2,"%D",0)="^^6^6^3010523^^^^"
^DD(120.5,.01,1,2,"%D",1,0)="This cross-reference sets the ""AA"" index for the GMRV Vital Measurement"
^DD(120.5,.01,1,2,"%D",2,0)="(120.5) file.  This index is over the Date/Time Vitals Taken (.01),"
^DD(120.5,.01,1,2,"%D",3,0)="Patient (.02) and Vital Type (.03) fields.  The index has the format:"
^DD(120.5,.01,1,2,"%D",4,0)="^GMR(120.5,""AA"",GMRVDFN,GMRVTYP,9999999-GMRVDT,DA)="""", where GMRVDFN"
^DD(120.5,.01,1,2,"%D",5,0)="is data from .02 field, GMRVTYP is data from .03 field, and GMRVDT is"
^DD(120.5,.01,1,2,"%D",6,0)="data from .01 field."
^DD(120.5,.01,1,2,"DT")="3010523"
^DD(120.5,.01,3)=""
^DD(120.5,.01,8.5)="^"
^DD(120.5,.01,21,0)="^^2^2^2931229^^^^"
^DD(120.5,.01,21,1,0)="This field contains the date/time this vital/measurement was taken by the"
^DD(120.5,.01,21,2,0)="care provider."
^DD(120.5,.01,"DT")="3010523"
^DD(120.5,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(120.5,.02,1,0)="^.1"
^DD(120.5,.02,1,1,0)="120.5^C"
^DD(120.5,.02,1,1,1)="S ^GMR(120.5,""C"",$E(X,1,30),DA)="""""
^DD(120.5,.02,1,1,2)="K ^GMR(120.5,""C"",$E(X,1,30),DA)"
^DD(120.5,.02,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(120.5,.02,1,1,"%D",1,0)="This regular cross-reference is used to sort the vital/measurement"
^DD(120.5,.02,1,1,"%D",2,0)="records by patient."
^DD(120.5,.02,1,2,0)="120.5^AA02^MUMPS"
^DD(120.5,.02,1,2,1)="D AA^GMVFUT0(.02,1,DA,X)"
^DD(120.5,.02,1,2,2)="D AA^GMVFUT0(.02,2,DA,X)"
^DD(120.5,.02,1,2,"%D",0)="^^6^6^3010523^^^^"
^DD(120.5,.02,1,2,"%D",1,0)="This cross-reference sets the ""AA"" index for the GMRV Vital Measurement"
^DD(120.5,.02,1,2,"%D",2,0)="(120.5) file.  This index is over the Date/Time Vitals Taken (.01),"
^DD(120.5,.02,1,2,"%D",3,0)="Patient (.02) and Vital Type (.03) fields.  The index has the format:"
^DD(120.5,.02,1,2,"%D",4,0)="^GMR(120.5,""AA"",GMRVDFN,GMRVTYP,9999999-GMRVDT,DA)="""", where GMRVDFN"
^DD(120.5,.02,1,2,"%D",5,0)="is data from .02 field, GMRVTYP is data from .03 field, and GMRVDT is"
^DD(120.5,.02,1,2,"%D",6,0)="data from .01 field."
^DD(120.5,.02,1,2,"DT")="3010523"
^DD(120.5,.02,21,0)="^^2^2^2940207^^^^"
^DD(120.5,.02,21,1,0)="This field contains the name of the patient for whom this vital measurement"
^DD(120.5,.02,21,2,0)="data was entered.  Pointer to the PATIENT (#2) file."
^DD(120.5,.02,"DT")="3010523"
^DD(120.5,.03,0)="VITAL TYPE^RP120.51'^GMRD(120.51,^0;3^Q"
^DD(120.5,.03,1,0)="^.1"
^DD(120.5,.03,1,1,0)="120.5^T"
^DD(120.5,.03,1,1,1)="S ^GMR(120.5,""T"",$E(X,1,30),DA)="""""
^DD(120.5,.03,1,1,2)="K ^GMR(120.5,""T"",$E(X,1,30),DA)"
^DD(120.5,.03,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(120.5,.03,1,1,"%D",1,0)="This regular cross-reference is created to sort the file by the type of"
^DD(120.5,.03,1,1,"%D",2,0)="measurement."
^DD(120.5,.03,1,2,0)="120.5^AA03^MUMPS"
^DD(120.5,.03,1,2,1)="D AA^GMVFUT0(.03,1,DA,X)"
^DD(120.5,.03,1,2,2)="D AA^GMVFUT0(.03,2,DA,X)"
^DD(120.5,.03,1,2,"%D",0)="^^6^6^3010523^^^^"
^DD(120.5,.03,1,2,"%D",1,0)="This cross-reference sets the ""AA"" index for the GMRV Vital Measurement"
^DD(120.5,.03,1,2,"%D",2,0)="(120.5) file.  This index is over the Date/Time Vitals Taken (.01),"
^DD(120.5,.03,1,2,"%D",3,0)="Patient (.02) and Vital Type (.03) fields.  The index has the format:"
^DD(120.5,.03,1,2,"%D",4,0)="^GMR(120.5,""AA"",GMRVDFN,GMRVTYP,9999999-GMRVDT,DA)="""", where GMRVDFN"
^DD(120.5,.03,1,2,"%D",5,0)="is data from .02 field, GMRVTYP is data from .03 field, and GMRVDT is"
^DD(120.5,.03,1,2,"%D",6,0)="data from .01 field."
^DD(120.5,.03,1,2,"DT")="3010523"
^DD(120.5,.03,21,0)="^^2^2^2931222^^^^"
^DD(120.5,.03,21,1,0)="This field denotes the type of measurement for this record.  Pointer to"
^DD(120.5,.03,21,2,0)="the GMRV VITAL TYPE (#120.51) file."
^DD(120.5,.03,"DT")="3010523"
^DD(120.5,.04,0)="DATE/TIME VITALS ENTERED^RD^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(120.5,.04,1,0)="^.1^^0"
^DD(120.5,.04,21,0)="^^1^1^2931229^^^^"
^DD(120.5,.04,21,1,0)="This field contains the date/time that this record was entered."
^DD(120.5,.04,"DT")="2960618"
^DD(120.5,.05,0)="HOSPITAL LOCATION^R*P44'^SC(^0;5^S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.5,.05,12)="Select valid Hospital Location."
^DD(120.5,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""""
^DD(120.5,.05,21,0)="^^2^2^2931222^^^"
^DD(120.5,.05,21,1,0)="This field contains the location where this measurement was taken.  Pointer "
^DD(120.5,.05,21,2,0)="to the HOSPITAL LOCATION (#44) file."
^DD(120.5,.05,"DT")="2890728"
^DD(120.5,.06,0)="ENTERED BY^RP200'^VA(200,^0;6^Q"
^DD(120.5,.06,21,0)="^^2^2^2931229^^^"
^DD(120.5,.06,21,1,0)="This field contains the name of the person who edited the file entry.  "
^DD(120.5,.06,21,2,0)="Pointer to the NEW PERSON (#200) file."
^DD(120.5,.06,"DT")="2931222"
^DD(120.5,1.2,0)="RATE^FX^^0;8^K:'$$EN2^GMVFUT0(DA,.X) X"
^DD(120.5,1.2,3)=""
^DD(120.5,1.2,4)="D RATEHLP^GMVFUT0(DA)"
^DD(120.5,1.2,21,0)="^^2^2^2970123^"
^DD(120.5,1.2,21,1,0)="This field contains the numeric value associated with this vital"
^DD(120.5,1.2,21,2,0)="measurement."
^DD(120.5,1.2,"DT")="3010523"
^DD(120.5,1.4,0)="SUPPLEMENTAL O2^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(120.5,1.4,3)="Answer must be 1-30 characters in length."
^DD(120.5,1.4,21,0)="^^6^6^2970121^"
^DD(120.5,1.4,21,1,0)="This field stores the information of the supplemental oxygen as follows:"
^DD(120.5,1.4,21,2,0)="  .5-20 l/min (liters/minute)   and/or"
^DD(120.5,1.4,21,3,0)="  21-100 % of oxygen concentration"
^DD(120.5,1.4,21,4,0)="For example: 4.5 l/min 40%"
^DD(120.5,1.4,21,5,0)="             4.5 l/min"
^DD(120.5,1.4,21,6,0)="             40 %"
^DD(120.5,1.4,"DT")="2970110"
^DD(120.5,2,0)="ENTERED IN ERROR^SI^1:YES;^2;1^Q"
^DD(120.5,2,1,0)="^.1^^0"
^DD(120.5,2,21,0)="^^1^1^2931229^^"
^DD(120.5,2,21,1,0)="This field indicates that this record was flagged as entered in error."
^DD(120.5,2,"DEL",1,0)="I 1"
^DD(120.5,2,"DT")="2880331"
^DD(120.5,3,0)="ERROR ENTERED BY^P200'I^VA(200,^2;2^Q"
^DD(120.5,3,21,0)="^^2^2^2931229^^^^"
^DD(120.5,3,21,1,0)="This field indicates the name of the person responsible for entering the "
^DD(120.5,3,21,2,0)="record in error.  Pointer to the NEW PERSON (#200) file."
^DD(120.5,3,"DEL",1,0)="I 1"
^DD(120.5,3,"DT")="2920113"
^DD(120.5,4,0)="REASON ENTERED IN ERROR^120.506S^^2.1;0"
^DD(120.5,4,21,0)="^^2^2^2931229^^^^"
^DD(120.5,4,21,1,0)="This multiple contains a list of reasons for entering a vital measurement "
^DD(120.5,4,21,2,0)="in error."
^DD(120.5,5,0)="QUALIFIER^120.505P^^5;0"
^DD(120.5,5,21,0)="^^1^1^2970121^"
^DD(120.5,5,21,1,0)="A list of qualifiers associated with this measurement."
^DD(120.5,5,"DT")="2970121"
^DD(120.5,"B","DATE/TIME VITALS ENTERED",.04)=""
^DD(120.5,"B","DATE/TIME VITALS TAKEN",.01)=""
^DD(120.5,"B","ENTERED BY",.06)=""
^DD(120.5,"B","ENTERED IN ERROR",2)=""
^DD(120.5,"B","ERROR ENTERED BY",3)=""
^DD(120.5,"B","HOSPITAL LOCATION",.05)=""
^DD(120.5,"B","PATIENT",.02)=""
^DD(120.5,"B","QUALIFIER",5)=""
^DD(120.5,"B","RATE",1.2)=""
^DD(120.5,"B","REASON ENTERED IN ERROR",4)=""
^DD(120.5,"B","SUPPLEMENTAL O2",1.4)=""
^DD(120.5,"B","VITAL TYPE",.03)=""
^DD(120.5,"GL",0,1,.01)=""
^DD(120.5,"GL",0,2,.02)=""
^DD(120.5,"GL",0,3,.03)=""
^DD(120.5,"GL",0,4,.04)=""
^DD(120.5,"GL",0,5,.05)=""
^DD(120.5,"GL",0,6,.06)=""
^DD(120.5,"GL",0,8,1.2)=""
^DD(120.5,"GL",0,10,1.4)=""
^DD(120.5,"GL",2,1,2)=""
^DD(120.5,"GL",2,2,3)=""
^DD(120.5,"GL",2.1,0,4)=""
^DD(120.5,"GL",5,0,5)=""
^DD(120.5,"IX",.01)=""
^DD(120.5,"IX",.02)=""
^DD(120.5,"IX",.03)=""
^DD(120.5,"RQ",.01)=""
^DD(120.5,"RQ",.02)=""
^DD(120.5,"RQ",.03)=""
^DD(120.5,"RQ",.04)=""
^DD(120.5,"RQ",.05)=""
^DD(120.5,"RQ",.06)=""
^DD(120.5,"SB",120.505,5)=""
^DD(120.5,"SB",120.506,4)=""
^DD(120.505,0)="QUALIFIER SUB-FIELD^^.01^1"
^DD(120.505,0,"DT")="2960719"
^DD(120.505,0,"IX","B",120.505,.01)=""
^DD(120.505,0,"NM","QUALIFIER")=""
^DD(120.505,0,"UP")="120.5"
^DD(120.505,.01,0)="QUALIFIER^M*P120.52'X^GMRD(120.52,^0;1^S DIC(""S"")=""I $$EN1^GMVFUT0(Y,DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.505,.01,1,0)="^.1"
^DD(120.505,.01,1,1,0)="120.505^B"
^DD(120.505,.01,1,1,1)="S ^GMR(120.5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(120.505,.01,1,1,2)="K ^GMR(120.5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(120.505,.01,1,1,"%D",0)="^^1^1^3010523^^"
^DD(120.505,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.505,.01,12)="Select qualifier associated with the Vital Type of this measurement."
^DD(120.505,.01,12.1)="S DIC(""S"")=""I $$EN1^GMVFUT0(Y,DA)"""
^DD(120.505,.01,21,0)="^^2^2^2970121^^"
^DD(120.505,.01,21,1,0)="This field contains the name of the qualifier associated with"
^DD(120.505,.01,21,2,0)="this measurement."
^DD(120.505,.01,"DT")="3010523"
^DD(120.505,"B","QUALIFIER",.01)=""
^DD(120.505,"GL",0,1,.01)=""
^DD(120.505,"IX",.01)=""
^DD(120.506,0)="REASON ENTERED IN ERROR SUB-FIELD^^.01^1"
^DD(120.506,0,"NM","REASON ENTERED IN ERROR")=""
^DD(120.506,0,"UP")="120.5"
^DD(120.506,.01,0)="REASON ENTERED IN ERROR^MS^1:INCORRECT DATE/TIME;2:INCORRECT READING;3:INCORRECT PATIENT;4:INVALID RECORD;^0;1^Q"
^DD(120.506,.01,21,0)="^^1^1^2931229^^^"
^DD(120.506,.01,21,1,0)="This field records the reason for entering the data in error."
^DD(120.506,.01,"DT")="2880831"
^DD(120.506,"B","REASON ENTERED IN ERROR",.01)=""
^DD(120.506,"GL",0,1,.01)=""
^DD(120.51,0)="FIELD^^99.991^9"
^DD(120.51,0,"DDA")="N"
^DD(120.51,0,"DT")="3050210"
^DD(120.51,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(120.51,0,"IX","APCE",120.51,7)=""
^DD(120.51,0,"IX","AVUID",120.51,99.99)=""
^DD(120.51,0,"IX","B",120.51,.01)=""
^DD(120.51,0,"IX","C",120.51,1)=""
^DD(120.51,0,"NM","GMRV VITAL TYPE")=" "
^DD(120.51,0,"PT",120.5,.03)=" "
^DD(120.51,0,"PT",120.521,.01)=""
^DD(120.51,0,"PT",120.531,.01)=""
^DD(120.51,0,"PT",142.14,.01)=""
^DD(120.51,0,"PT",801.41,15)=""
^DD(120.51,0,"PT",801.4118,.01)=""
^DD(120.51,0,"PT",801.43,.02)=" "
^DD(120.51,0,"PT",810.31,.04)=""
^DD(120.51,0,"PT",810.32,.01)=""
^DD(120.51,0,"PT",811.52,.01)=""
^DD(120.51,0,"PT",811.902,.01)=""
^DD(120.51,0,"VR")="5.0"
^DD(120.51,0,"VRPK")="GMRV"
^DD(120.51,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<2)!'(X'?1P.E) X"
^DD(120.51,.01,1,0)="^.1"
^DD(120.51,.01,1,1,0)="120.51^B"
^DD(120.51,.01,1,1,1)="S ^GMRD(120.51,""B"",$E(X,1,30),DA)="""""
^DD(120.51,.01,1,1,2)="K ^GMRD(120.51,""B"",$E(X,1,30),DA)"
^DD(120.51,.01,1,1,"%D",0)="^^1^1^2950926^^^"
^DD(120.51,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.51,.01,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(120.51,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(120.51,.01,9)="^"
^DD(120.51,.01,21,0)="^.001^1^1^3041223^^^^"
^DD(120.51,.01,21,1,0)="This field reflects a list of vital signs/physical measurement types."
^DD(120.51,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.51,.01,"DT")="3041227"
^DD(120.51,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.51,1,0)="ABBREVIATION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1)!'(X'?1P.E&(X'["";"")) X"
^DD(120.51,1,1,0)="^.1"
^DD(120.51,1,1,1,0)="120.51^C"
^DD(120.51,1,1,1,1)="S ^GMRD(120.51,""C"",$E(X,1,30),DA)="""""
^DD(120.51,1,1,1,2)="K ^GMRD(120.51,""C"",$E(X,1,30),DA)"
^DD(120.51,1,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(120.51,1,1,1,"%D",1,0)="This regular cross-reference is created to sort the file by the"
^DD(120.51,1,1,1,"%D",2,0)="ABBREVIATION and the associated NAME (.01)."
^DD(120.51,1,3)="Answer must be 1-5 characters in length."
^DD(120.51,1,9)="^"
^DD(120.51,1,21,0)="^^1^1^2970108^^^^"
^DD(120.51,1,21,1,0)="This field contains an abbreviation for this vital type."
^DD(120.51,1,"DT")="3050307"
^DD(120.51,3,0)="RATE^S^0:NO;1:YES;^0;4^Q"
^DD(120.51,3,9)="^"
^DD(120.51,3,21,0)="^^2^2^2940105^^^^"
^DD(120.51,3,21,1,0)="This field specifies whether or not the vital measurement record with"
^DD(120.51,3,21,2,0)="this vital type has a rate associated with it."
^DD(120.51,4,0)="RATE INPUT TRANSFORM^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(120.51,4,3)="This is Standard MUMPS code."
^DD(120.51,4,9)="^"
^DD(120.51,4,21,0)="^^3^3^2960723^"
^DD(120.51,4,21,1,0)="If a rate is specified for a vital measurement record, this field checks"
^DD(120.51,4,21,2,0)="the data validity.  The code stored in this field should only be updated"
^DD(120.51,4,21,3,0)="by someone with programmer's access to the FileMan."
^DD(120.51,4,"DT")="2960723"
^DD(120.51,5,0)="RATE HELP^F^^0;6^K:$L(X)>30!($L(X)<3)!'(X'?1P.E&(X?.ANP)) X"
^DD(120.51,5,3)="Answer must be 3-30 characters in length."
^DD(120.51,5,9)="^"
^DD(120.51,5,21,0)="^^2^2^2960910^^^^"
^DD(120.51,5,21,1,0)="This field contains the name of the Help Frame associated with this"
^DD(120.51,5,21,2,0)="Vital Type."
^DD(120.51,5,"DT")="2960718"
^DD(120.51,7,0)="PCE ABBREVIATION^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(120.51,7,1,0)="^.1"
^DD(120.51,7,1,1,0)="120.51^APCE"
^DD(120.51,7,1,1,1)="S ^GMRD(120.51,""APCE"",$E(X,1,30),DA)="""""
^DD(120.51,7,1,1,2)="K ^GMRD(120.51,""APCE"",$E(X,1,30),DA)"
^DD(120.51,7,1,1,"%D",0)="^^1^1^2970203^^"
^DD(120.51,7,1,1,"%D",1,0)="This is a regular cross-reference on the PCE Abbreviation field."
^DD(120.51,7,1,1,"DT")="2960710"
^DD(120.51,7,3)="Answer must be 1-10 characters in length."
^DD(120.51,7,9)="^"
^DD(120.51,7,21,0)="^^1^1^2960710^"
^DD(120.51,7,21,1,0)="This field contains the PCE Abbreviation for this Vital Type."
^DD(120.51,7,"DT")="2960710"
^DD(120.51,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(120.51,99.98,9)="^"
^DD(120.51,99.98,21,0)="^^2^2^3050210^"
^DD(120.51,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(120.51,99.98,21,2,0)="Term/Concept."
^DD(120.51,99.98,"DT")="3050301"
^DD(120.51,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(120.51,99.99,1,0)="^.1"
^DD(120.51,99.99,1,1,0)="120.51^AVUID"
^DD(120.51,99.99,1,1,1)="S ^GMRD(120.51,""AVUID"",$E(X,1,30),DA)="""""
^DD(120.51,99.99,1,1,2)="K ^GMRD(120.51,""AVUID"",$E(X,1,30),DA)"
^DD(120.51,99.99,1,1,3)="This cross-reference is by VUID."
^DD(120.51,99.99,1,1,"%D",0)="^.101^2^2^3041227^^"
^DD(120.51,99.99,1,1,"%D",1,0)="This field and cross-reference are required for the Data Standardization "
^DD(120.51,99.99,1,1,"%D",2,0)="project."
^DD(120.51,99.99,1,1,"DT")="3041223"
^DD(120.51,99.99,3)="Answer must be 1-20 digits in length."
^DD(120.51,99.99,9)="^"
^DD(120.51,99.99,21,0)="^.001^2^2^3050210^^"
^DD(120.51,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(120.51,99.99,21,2,0)="terms VHA wide."
^DD(120.51,99.99,"DT")="3050301"
^DD(120.51,99.991,0)="EFFECTIVE DATE/TIME^120.5199DA^^TERMSTATUS;0"
^DD(120.51,99.991,21,0)="^^1^1^3050201^"
^DD(120.51,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(120.51,"B","ABBREVIATION",1)=""
^DD(120.51,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(120.51,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(120.51,"B","NAME",.01)=""
^DD(120.51,"B","PCE ABBREVIATION",7)=""
^DD(120.51,"B","RATE",3)=""
^DD(120.51,"B","RATE HELP",5)=""
^DD(120.51,"B","RATE INPUT TRANSFORM",4)=""
^DD(120.51,"B","VUID",99.99)=""
^DD(120.51,"GL",0,1,.01)=""
^DD(120.51,"GL",0,2,1)=""
^DD(120.51,"GL",0,4,3)=""
^DD(120.51,"GL",0,6,5)=""
^DD(120.51,"GL",0,7,7)=""
^DD(120.51,"GL",1,"E1,245",4)=""
^DD(120.51,"GL","TERMSTATUS",0,99.991)=""
^DD(120.51,"GL","VUID",1,99.99)=""
^DD(120.51,"GL","VUID",2,99.98)=""
^DD(120.51,"IX",.01)=""
^DD(120.51,"IX",1)=""
^DD(120.51,"IX",7)=""
^DD(120.51,"IX",99.99)=""
^DD(120.51,"RQ",.01)=""
^DD(120.51,"RQ",1)=""
^DD(120.51,"RQ",99.98)=""
^DD(120.51,"RQ",99.99)=""
^DD(120.51,"SB",120.5199,99.991)=""
^DD(120.5199,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(120.5199,0,"DT")="3050201"
^DD(120.5199,0,"IX","B",120.5199,.01)=""
^DD(120.5199,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(120.5199,0,"UP")="120.51"
^DD(120.5199,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(120.5199,.01,1,0)="^.1"
^DD(120.5199,.01,1,1,0)="120.5199^B"
^DD(120.5199,.01,1,1,1)="S ^GMRD(120.51,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(120.5199,.01,1,1,2)="K ^GMRD(120.51,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(120.5199,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(120.5199,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(120.5199,.01,9)="^"
^DD(120.5199,.01,21,0)="^^2^2^3050201^"
^DD(120.5199,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(120.5199,.01,21,2,0)="established."
^DD(120.5199,.01,"DT")="3050301"
^DD(120.5199,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(120.5199,.02,9)="^"
^DD(120.5199,.02,21,0)="^^4^4^3050201^"
^DD(120.5199,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(120.5199,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(120.5199,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(120.5199,.02,21,4,0)="accessible by the application to display legacy data."
^DD(120.5199,.02,"DT")="3050301"
^DD(120.5199,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(120.5199,"B","STATUS",.02)=""
^DD(120.5199,"GL",0,1,.01)=""
^DD(120.5199,"GL",0,2,.02)=""
^DD(120.5199,"IX",.01)=""
^DD(120.5199,"RQ",.01)=""
^DD(120.5199,"RQ",.02)=""
^DD(120.52,0)="FIELD^^99.991^6"
^DD(120.52,0,"DDA")="N"
^DD(120.52,0,"DT")="3050308"
^DD(120.52,0,"IX","ACAT",120.521,.02)=""
^DD(120.52,0,"IX","ACHR",120.52,.01)=""
^DD(120.52,0,"IX","ATYP",120.521,.01)=""
^DD(120.52,0,"IX","AVUID",120.52,99.99)=""
^DD(120.52,0,"IX","B",120.52,.01)=""
^DD(120.52,0,"IX","BCAT",120.521,.02)=""
^DD(120.52,0,"IX","BCHR",120.52,.02)=""
^DD(120.52,0,"IX","BTYP",120.521,.01)=""
^DD(120.52,0,"IX","C",120.521,.01)=""
^DD(120.52,0,"IX","D",120.521,.02)=""
^DD(120.52,0,"NM","GMRV VITAL QUALIFIER")=" "
^DD(120.52,0,"PT",120.505,.01)=" "
^DD(120.52,0,"PT",120.531,.07)=""
^DD(120.52,0,"VR")="5.0"
^DD(120.52,0,"VRPK")="GMRV"
^DD(120.52,.01,0)="QUALIFIER^RF^^0;1^K:$L(X)>50!($L(X)<2)!'(X'?1P.E) X"
^DD(120.52,.01,1,0)="^.1"
^DD(120.52,.01,1,1,0)="120.52^B"
^DD(120.52,.01,1,1,1)="S ^GMRD(120.52,""B"",$E(X,1,30),DA)="""""
^DD(120.52,.01,1,1,2)="K ^GMRD(120.52,""B"",$E(X,1,30),DA)"
^DD(120.52,.01,1,1,"%D",0)="^^1^1^2950301^^"
^DD(120.52,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.52,.01,1,2,0)="120.52^ACHR^MUMPS"
^DD(120.52,.01,1,2,1)="D ACHR^GMVFUT2(1,.DA,X)"
^DD(120.52,.01,1,2,2)="D ACHR^GMVFUT2(2,.DA,X)"
^DD(120.52,.01,1,2,"%D",0)="^^6^6^3010523^^"
^DD(120.52,.01,1,2,"%D",1,0)="This cross-reference sets the ""AA"" index on the GMRV Vital Qualifier"
^DD(120.52,.01,1,2,"%D",2,0)="(120.52) file.  The ""AA"" index has the following format:"
^DD(120.52,.01,1,2,"%D",3,0)="^GMRD(120.52,""AA"",TYP,CAT,CHAR,DA(1),DA)="""", where TYP=Vital Type (.01)"
^DD(120.52,.01,1,2,"%D",4,0)="field of Vital Type (120.521) sub-file, CAT=Category (.02) field of"
^DD(120.52,.01,1,2,"%D",5,0)="Vital Type (120.521) sub-file and CHAR=Name (.01) field of GMRV Vital"
^DD(120.52,.01,1,2,"%D",6,0)="Qualifier (120.52) file."
^DD(120.52,.01,1,2,"DT")="3010523"
^DD(120.52,.01,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(120.52,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(120.52,.01,8.5)="^"
^DD(120.52,.01,9)="^"
^DD(120.52,.01,21,0)="^^2^2^2970123^^^^"
^DD(120.52,.01,21,1,0)="This field supplies a list of possible qualifiers for a vital measurement"
^DD(120.52,.01,21,2,0)="record."
^DD(120.52,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.52,.01,"DT")="3010523"
^DD(120.52,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.52,.02,0)="SYNONYM^FX^^0;2^D SCREEN^GMVFSYN K:$L($G(X))>3!($L($G(X))<1) X"
^DD(120.52,.02,1,0)="^.1"
^DD(120.52,.02,1,1,0)="120.52^BCHR^MUMPS"
^DD(120.52,.02,1,1,1)="D BSYNO^GMVFSYN(1,.DA,X)"
^DD(120.52,.02,1,1,2)="D BSYNO^GMVFSYN(2,.DA,X)"
^DD(120.52,.02,1,1,"%D",0)="^^6^6^3010523^^^^"
^DD(120.52,.02,1,1,"%D",1,0)="This cross-reference sets the ""BB"" index on the GMRV Vital Qualifier"
^DD(120.52,.02,1,1,"%D",2,0)="(120.52) file.  The ""BB"" index has the following format:"
^DD(120.52,.02,1,1,"%D",3,0)="^GMRD(120.52,""BB"",TYP,CAT,CHAR,DA(1),DA)="""", where TYP=Vital Type (.01)"
^DD(120.52,.02,1,1,"%D",4,0)="field of Vital Type (120.52 1) sub-file, CAT=Category (.02) field of Vital"
^DD(120.52,.02,1,1,"%D",5,0)="Type (120.521) sub-file and CHAR=Name (.01) field of GMRV Vital Qualifier"
^DD(120.52,.02,1,1,"%D",6,0)="(120.52) file."
^DD(120.52,.02,1,1,"DT")="3010523"
^DD(120.52,.02,3)="Answer must be 1-3 characters in length."
^DD(120.52,.02,9)="^"
^DD(120.52,.02,21,0)="^.001^1^1^3050308^^^^"
^DD(120.52,.02,21,1,0)="This field contains the synonym for the qualifier."
^DD(120.52,.02,"DT")="3050308"
^DD(120.52,1,0)="VITAL TYPE^120.521PA^^1;0"
^DD(120.52,1,9)="^"
^DD(120.52,1,21,0)="^^3^3^2970123^^^^"
^DD(120.52,1,21,1,0)="This multiple contains a list of vital types associated with this site.  "
^DD(120.52,1,21,2,0)="The site field on the vital measurement record is screened by the data"
^DD(120.52,1,21,3,0)="contained in the vital type field."
^DD(120.52,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(120.52,99.98,9)="^"
^DD(120.52,99.98,21,0)="^^2^2^3050210^"
^DD(120.52,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(120.52,99.98,21,2,0)="Term/Concept."
^DD(120.52,99.98,"DT")="3050210"
^DD(120.52,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(120.52,99.99,1,0)="^.1"
^DD(120.52,99.99,1,1,0)="120.52^AVUID"
^DD(120.52,99.99,1,1,1)="S ^GMRD(120.52,""AVUID"",$E(X,1,30),DA)="""""
^DD(120.52,99.99,1,1,2)="K ^GMRD(120.52,""AVUID"",$E(X,1,30),DA)"
^DD(120.52,99.99,1,1,3)="This cross-reference is by VUID."
^DD(120.52,99.99,1,1,"%D",0)="^.101^2^2^3041227^^"
^DD(120.52,99.99,1,1,"%D",1,0)="This field and cross-reference are required for the Data Standardization "
^DD(120.52,99.99,1,1,"%D",2,0)="project."
^DD(120.52,99.99,1,1,"DT")="3041223"
^DD(120.52,99.99,3)="Answer must be 1-20 digits in length."
^DD(120.52,99.99,9)="^"
^DD(120.52,99.99,21,0)="^^2^2^3041227^"
^DD(120.52,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(120.52,99.99,21,2,0)="terms VHA wide."
^DD(120.52,99.99,"DT")="3050210"
^DD(120.52,99.991,0)="EFFECTIVE DATE/TIME^120.5299DA^^TERMSTATUS;0"
^DD(120.52,99.991,21,0)="^^1^1^3050201^"
^DD(120.52,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(120.52,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(120.52,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(120.52,"B","QUALIFIER",.01)=""
^DD(120.52,"B","SYNONYM",.02)=""
^DD(120.52,"B","VITAL TYPE",1)=""
^DD(120.52,"B","VUID",99.99)=""
^DD(120.52,"GL",0,1,.01)=""
^DD(120.52,"GL",0,2,.02)=""
^DD(120.52,"GL",1,0,1)=""
^DD(120.52,"GL","TERMSTATUS",0,99.991)=""
^DD(120.52,"GL","VUID",1,99.99)=""
^DD(120.52,"GL","VUID",2,99.98)=""
^DD(120.52,"IX",.01)=""
^DD(120.52,"IX",.02)=""
^DD(120.52,"IX",99.99)=""
^DD(120.52,"RQ",.01)=""
^DD(120.52,"RQ",99.98)=""
^DD(120.52,"RQ",99.99)=""
^DD(120.52,"SB",120.521,1)=""
^DD(120.52,"SB",120.5299,99.991)=""
^DD(120.521,0)="VITAL TYPE SUB-FIELD^^.02^2"
^DD(120.521,0,"DT")="2970122"
^DD(120.521,0,"IX","B",120.521,.01)=""
^DD(120.521,0,"NM","VITAL TYPE")=" "
^DD(120.521,0,"UP")="120.52"
^DD(120.521,.01,0)="VITAL TYPE^RP120.51'^GMRD(120.51,^0;1^Q"
^DD(120.521,.01,1,0)="^.1"
^DD(120.521,.01,1,1,0)="120.521^B"
^DD(120.521,.01,1,1,1)="S ^GMRD(120.52,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(120.521,.01,1,1,2)="K ^GMRD(120.52,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(120.521,.01,1,1,"%D",0)="^^1^1^2950926^^^"
^DD(120.521,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.521,.01,1,2,0)="120.52^C"
^DD(120.521,.01,1,2,1)="S ^GMRD(120.52,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(120.521,.01,1,2,2)="K ^GMRD(120.52,""C"",$E(X,1,30),DA(1),DA)"
^DD(120.521,.01,1,2,"%D",0)="^^2^2^2970522^^^^"
^DD(120.521,.01,1,2,"%D",1,0)="This cross-reference is created to sort the file by VITAL TYPE and the"
^DD(120.521,.01,1,2,"%D",2,0)="associated vital site NAME (.01)."
^DD(120.521,.01,1,3,0)="120.52^ATYP^MUMPS"
^DD(120.521,.01,1,3,1)="D ATYP^GMVFUT2(1,.DA,X)"
^DD(120.521,.01,1,3,2)="D ATYP^GMVFUT2(2,.DA,X)"
^DD(120.521,.01,1,3,"%D",0)="^^6^6^3010523^^^^"
^DD(120.521,.01,1,3,"%D",1,0)="This cross-reference sets the ""AA""index on the GMRV Vital Qualifier"
^DD(120.521,.01,1,3,"%D",2,0)="(120.52) file.  The index has the following format:"
^DD(120.521,.01,1,3,"%D",3,0)="^GMRD(120.52,""AA"",TYP,CAT,CHAR,DA(1),DA)="""","
^DD(120.521,.01,1,3,"%D",4,0)="where TYP=Vital Type (.01) field of Vital Type (120.521) sub-file,"
^DD(120.521,.01,1,3,"%D",5,0)="CAT=Category (.02) field of Vital Type (120.521) sub-file, CHAR=Name (.01)"
^DD(120.521,.01,1,3,"%D",6,0)="field of GMRV Vital Qualifier (120.52) file."
^DD(120.521,.01,1,3,"DT")="3010523"
^DD(120.521,.01,1,4,0)="120.52^BTYP^MUMPS"
^DD(120.521,.01,1,4,1)="D BTYP^GMVFSYN(1,.DA,X)"
^DD(120.521,.01,1,4,2)="D BTYP^GMVFSYN(2,.DA,X)"
^DD(120.521,.01,1,4,"%D",0)="^^6^6^3010523^^^^"
^DD(120.521,.01,1,4,"%D",1,0)="This cross-reference sets the ""BB"" index on the GMRV Vital Qualifier"
^DD(120.521,.01,1,4,"%D",2,0)="(120.52) file.  The ""BB"" index has the following format:"
^DD(120.521,.01,1,4,"%D",3,0)="^GMRD(120.52,""BB"",TYP,CAT,CHAR,DA(1),DA)="""", where TYP=Vital Type (.01)"
^DD(120.521,.01,1,4,"%D",4,0)="field of Vital Type (120.521) sub-file, CAT=Category (.02) field of Vital"
^DD(120.521,.01,1,4,"%D",5,0)="Type (120.521) sub-file and CHAR=Name (.01) field of GMRV Vital Qualifier"
^DD(120.521,.01,1,4,"%D",6,0)="(120.52) file."
^DD(120.521,.01,1,4,"DT")="3010523"
^DD(120.521,.01,8.5)="^"
^DD(120.521,.01,9)="^"
^DD(120.521,.01,21,0)="^^2^2^2970122^^^^"
^DD(120.521,.01,21,1,0)="This field screens the vital measurement site field in the GMRV VITAL "
^DD(120.521,.01,21,2,0)="MEASUREMENT (#120.5) file."
^DD(120.521,.01,"DT")="3010523"
^DD(120.521,.02,0)="CATEGORY^RP120.53^GMRD(120.53,^0;2^Q"
^DD(120.521,.02,1,0)="^.1"
^DD(120.521,.02,1,1,0)="120.52^D"
^DD(120.521,.02,1,1,1)="S ^GMRD(120.52,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(120.521,.02,1,1,2)="K ^GMRD(120.52,""D"",$E(X,1,30),DA(1),DA)"
^DD(120.521,.02,1,1,"%D",0)="^^3^3^2960719^"
^DD(120.521,.02,1,1,"%D",1,0)="This is a regular cross-reference of the Category (.02) field of the Vital"
^DD(120.521,.02,1,1,"%D",2,0)="Type (120.521) sub-file on the entire GMRV Vital Qualifier (120.52)"
^DD(120.521,.02,1,1,"%D",3,0)="file."
^DD(120.521,.02,1,1,"DT")="2960719"
^DD(120.521,.02,1,2,0)="120.52^ACAT^MUMPS"
^DD(120.521,.02,1,2,1)="D ACAT^GMVFUT2(1,.DA,X)"
^DD(120.521,.02,1,2,2)="D ACAT^GMVFUT2(2,.DA,X)"
^DD(120.521,.02,1,2,"%D",0)="^^6^6^3010524^^^^"
^DD(120.521,.02,1,2,"%D",1,0)="This cross-reference sets the ""AA"" index on the GMRV Vital Qualifier"
^DD(120.521,.02,1,2,"%D",2,0)="(120.52) file.  The index has the following format:"
^DD(120.521,.02,1,2,"%D",3,0)="^GMRD(120.52,""AA"",TYP,CAT,CHAR,DA(1),DA)="""","
^DD(120.521,.02,1,2,"%D",4,0)="where TYP=Vital Type (.01) field of Vital Type (120.521) sub-file,"
^DD(120.521,.02,1,2,"%D",5,0)="CAT=Category (.02) field of Vital Type (120.521) sub-file, CHAR=Name (.01)"
^DD(120.521,.02,1,2,"%D",6,0)="field of GMRV Vital Qualifier (120.52) file."
^DD(120.521,.02,1,2,"DT")="3010523"
^DD(120.521,.02,1,3,0)="120.52^BCAT^MUMPS"
^DD(120.521,.02,1,3,1)="D BCAT^GMVFSYN(1,.DA,X)"
^DD(120.521,.02,1,3,2)="D BCAT^GMVFSYN(2,.DA,X)"
^DD(120.521,.02,1,3,"%D",0)="^^6^6^3010524^^^^"
^DD(120.521,.02,1,3,"%D",1,0)="This cross-reference sets the ""BB"" index on the GMRV Vital Qualifier"
^DD(120.521,.02,1,3,"%D",2,0)="(120.52) file.  The ""BB"" index has the following format:"
^DD(120.521,.02,1,3,"%D",3,0)="^GMRD(120.52,""BB"",TYP,CAT,CHAR,DA(1),DA)="""", where TYP=Vital Type (.01)"
^DD(120.521,.02,1,3,"%D",4,0)="field of Vital Type (120.521) sub-file, CAT=Category (.02) field of Vital"
^DD(120.521,.02,1,3,"%D",5,0)="Type (120.521) sub-file and CHAR=Name (.01) field of GMRV Vital Qualifier"
^DD(120.521,.02,1,3,"%D",6,0)="(120.52) file."
^DD(120.521,.02,1,3,"DT")="3010523"
^DD(120.521,.02,9)="^"
^DD(120.521,.02,21,0)="^^2^2^2960726^^"
^DD(120.521,.02,21,1,0)="This field will contain the category for this characteristic for this"
^DD(120.521,.02,21,2,0)="vital type."
^DD(120.521,.02,"DT")="3010523"
^DD(120.521,"B","CATEGORY",.02)=""
^DD(120.521,"B","VITAL TYPE",.01)=""
^DD(120.521,"GL",0,1,.01)=""
^DD(120.521,"GL",0,2,.02)=""
^DD(120.521,"IX",.01)=""
^DD(120.521,"IX",.02)=""
^DD(120.521,"RQ",.01)=""
^DD(120.521,"RQ",.02)=""
^DD(120.5299,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(120.5299,0,"DT")="3050201"
^DD(120.5299,0,"IX","B",120.5299,.01)=""
^DD(120.5299,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(120.5299,0,"UP")="120.52"
^DD(120.5299,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(120.5299,.01,1,0)="^.1"
^DD(120.5299,.01,1,1,0)="120.5299^B"
^DD(120.5299,.01,1,1,1)="S ^GMRD(120.52,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(120.5299,.01,1,1,2)="K ^GMRD(120.52,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(120.5299,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(120.5299,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(120.5299,.01,9)="^"
^DD(120.5299,.01,21,0)="^^2^2^3050201^"
^DD(120.5299,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(120.5299,.01,21,2,0)="established."
^DD(120.5299,.01,"DT")="3050201"
^DD(120.5299,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(120.5299,.02,9)="^"
^DD(120.5299,.02,21,0)="^^4^4^3050201^"
^DD(120.5299,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(120.5299,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(120.5299,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(120.5299,.02,21,4,0)="accessible by the application to display legacy data."
^DD(120.5299,.02,"DT")="3050201"
^DD(120.5299,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(120.5299,"B","STATUS",.02)=""
^DD(120.5299,"GL",0,1,.01)=""
^DD(120.5299,"GL",0,2,.02)=""
^DD(120.5299,"IX",.01)=""
^DD(120.5299,"RQ",.01)=""
^DD(120.5299,"RQ",.02)=""
^DD(120.53,0)="FIELD^^99.991^5"
^DD(120.53,0,"DDA")="N"
^DD(120.53,0,"DT")="3050210"
^DD(120.53,0,"IX","ACAT",120.53,.01)=""
^DD(120.53,0,"IX","AEDT",120.531,.06)=""
^DD(120.53,0,"IX","APRT",120.531,.05)=""
^DD(120.53,0,"IX","ATYP",120.531,.01)=""
^DD(120.53,0,"IX","AVUID",120.53,99.99)=""
^DD(120.53,0,"IX","B",120.53,.01)=""
^DD(120.53,0,"IX","C",120.531,.01)=""
^DD(120.53,0,"NM","GMRV VITAL CATEGORY")=" "
^DD(120.53,0,"PT",120.521,.02)=" "
^DD(120.53,0,"VR")="5.0"
^DD(120.53,0,"VRPK")="GMRV"
^DD(120.53,.01,0)="CATEGORY^RF^^0;1^K:$L(X)>40!($L(X)<2)!'(X'?1P.E) X"
^DD(120.53,.01,1,0)="^.1"
^DD(120.53,.01,1,1,0)="120.53^B"
^DD(120.53,.01,1,1,1)="S ^GMRD(120.53,""B"",$E(X,1,40),DA)="""""
^DD(120.53,.01,1,1,2)="K ^GMRD(120.53,""B"",$E(X,1,40),DA)"
^DD(120.53,.01,1,1,"%D",0)="^^1^1^2950301^^"
^DD(120.53,.01,1,1,"%D",1,0)="This cross-reference is automatically created on NAME field."
^DD(120.53,.01,1,2,0)="120.53^ACAT^MUMPS"
^DD(120.53,.01,1,2,1)="D ACAT^GMVFUT3(1,.DA,X)"
^DD(120.53,.01,1,2,2)="D ACAT^GMVFUT3(2,.DA,X)"
^DD(120.53,.01,1,2,"%D",0)="^^6^6^3010524^^"
^DD(120.53,.01,1,2,"%D",1,0)="This cross-reference sets up the ""AA"" index on the GMRV Vital Category (120.53)"
^DD(120.53,.01,1,2,"%D",2,0)="file.  This index has the following format:"
^DD(120.53,.01,1,2,"%D",3,0)="^GMRD(120.53,""AA"",TYPE,CAT,DA(1),DA)="""", where TYPE=Vital Type (.01) field"
^DD(120.53,.01,1,2,"%D",4,0)="of Vital Type (120.531) sub-file, CAT=Name (.01) field of GMRV Category"
^DD(120.53,.01,1,2,"%D",5,0)="(120.53) file, is the entry in the GMRV Vital Category (120.53) file, and"
^DD(120.53,.01,1,2,"%D",6,0)="DA is the entry in the Vital Type (120.531) sub-file."
^DD(120.53,.01,1,2,"DT")="3010524"
^DD(120.53,.01,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(120.53,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(120.53,.01,9)="^"
^DD(120.53,.01,21,0)="^^2^2^2961223^^^^"
^DD(120.53,.01,21,1,0)="This field provides a list of qualities that could be assigned to a given "
^DD(120.53,.01,21,2,0)="vital measurement record."
^DD(120.53,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.53,.01,"DT")="3010524"
^DD(120.53,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.53,1,0)="VITAL TYPE^120.531P^^1;0"
^DD(120.53,1,9)="^"
^DD(120.53,1,21,0)="^^2^2^3010524^^^^"
^DD(120.53,1,21,1,0)="This multiple screens the possible quality entries for a given vital "
^DD(120.53,1,21,2,0)="measurement record."
^DD(120.53,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(120.53,99.98,9)="^"
^DD(120.53,99.98,21,0)="^^2^2^3050210^"
^DD(120.53,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(120.53,99.98,21,2,0)="Term/Concept."
^DD(120.53,99.98,"DT")="3050301"
^DD(120.53,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(120.53,99.99,1,0)="^.1"
^DD(120.53,99.99,1,1,0)="120.53^AVUID"
^DD(120.53,99.99,1,1,1)="S ^GMRD(120.53,""AVUID"",$E(X,1,30),DA)="""""
^DD(120.53,99.99,1,1,2)="K ^GMRD(120.53,""AVUID"",$E(X,1,30),DA)"
^DD(120.53,99.99,1,1,3)="This cross-reference is by VUID."
^DD(120.53,99.99,1,1,"%D",0)="^.101^2^2^3041227^^"
^DD(120.53,99.99,1,1,"%D",1,0)="This field and cross-reference are required for the Data Standardization "
^DD(120.53,99.99,1,1,"%D",2,0)="project."
^DD(120.53,99.99,1,1,"DT")="3041223"
^DD(120.53,99.99,3)="Answer must be 1-20 digits in length."
^DD(120.53,99.99,9)="^"
^DD(120.53,99.99,21,0)="^^2^2^3041227^"
^DD(120.53,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(120.53,99.99,21,2,0)="terms VHA wide."
^DD(120.53,99.99,"DT")="3050301"
^DD(120.53,99.991,0)="EFFECTIVE DATE/TIME^120.5399DA^^TERMSTATUS;0"
^DD(120.53,99.991,21,0)="^^1^1^3050201^"
^DD(120.53,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(120.53,"B","CATEGORY",.01)=""
^DD(120.53,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(120.53,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(120.53,"B","VITAL TYPE",1)=""
^DD(120.53,"B","VUID",99.99)=""
^DD(120.53,"GL",0,1,.01)=""
^DD(120.53,"GL",1,0,1)=""
^DD(120.53,"GL","TERMSTATUS",0,99.991)=""
^DD(120.53,"GL","VUID",1,99.99)=""
^DD(120.53,"GL","VUID",2,99.98)=""
^DD(120.53,"IX",.01)=""
^DD(120.53,"IX",99.99)=""
^DD(120.53,"RQ",.01)=""
^DD(120.53,"RQ",99.98)=""
^DD(120.53,"RQ",99.99)=""
^DD(120.53,"SB",120.531,1)=""
^DD(120.53,"SB",120.5399,99.991)=""
^DD(120.531,0)="VITAL TYPE SUB-FIELD^^.07^5"
^DD(120.531,0,"DT")="2960723"
^DD(120.531,0,"IX","B",120.531,.01)=""
^DD(120.531,0,"NM","VITAL TYPE")=" "
^DD(120.531,0,"UP")="120.53"
^DD(120.531,.01,0)="VITAL TYPE^MRP120.51'^GMRD(120.51,^0;1^Q"
^DD(120.531,.01,1,0)="^.1"
^DD(120.531,.01,1,1,0)="120.531^B"
^DD(120.531,.01,1,1,1)="S ^GMRD(120.53,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(120.531,.01,1,1,2)="K ^GMRD(120.53,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(120.531,.01,1,1,"%D",0)="^^1^1^2950301^^"
^DD(120.531,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.531,.01,1,2,0)="120.53^C"
^DD(120.531,.01,1,2,1)="S ^GMRD(120.53,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(120.531,.01,1,2,2)="K ^GMRD(120.53,""C"",$E(X,1,30),DA(1),DA)"
^DD(120.531,.01,1,2,"%D",0)="^^2^2^2950301^^"
^DD(120.531,.01,1,2,"%D",1,0)="This cross-reference is created to sort the file by the VITAL TYPE and "
^DD(120.531,.01,1,2,"%D",2,0)="the associated vital qualifiers (NAME .01 field)."
^DD(120.531,.01,1,3,0)="120.53^ATYP^MUMPS"
^DD(120.531,.01,1,3,1)="D ATYP^GMVFUT3(1,.DA,X)"
^DD(120.531,.01,1,3,2)="D ATYP^GMVFUT3(2,.DA,X)"
^DD(120.531,.01,1,3,"%D",0)="^^10^10^3010524^^^"
^DD(120.531,.01,1,3,"%D",1,0)="This cross-reference sets up the ""AA"", ""AEDIT"" and ""APRINT"" indices on"
^DD(120.531,.01,1,3,"%D",2,0)="the GMRV Vital Category (120.53) file.  These indices have the following format:"
^DD(120.531,.01,1,3,"%D",3,0)="^GMRD(120.53,""AA"",TYPE,CAT,DA(1),DA)="""","
^DD(120.531,.01,1,3,"%D",4,0)="^GMRD(120.53,""AEDIT"",TYPE,EORD,DA(1),DA)="""", and"
^DD(120.531,.01,1,3,"%D",5,0)="^GMRD(120.53,""APRINT"",TYPE,PORD,DA(1),DA)="""", where TYPE=Vital Type (.01)"
^DD(120.531,.01,1,3,"%D",6,0)="field of Vital Type (120.531) sub-file, CAT=Name (.01) field of GMRV"
^DD(120.531,.01,1,3,"%D",7,0)="Vital Category (120.53) file, EORD is the Edit Order (.06) field of the Vital"
^DD(120.531,.01,1,3,"%D",8,0)="Type (120.531) sub-file, PORD is the Print Order (.05) field of the Vital"
^DD(120.531,.01,1,3,"%D",9,0)="Type (120.531) sub-file, DA(1) is the entry in the GMRV Category (120.53)"
^DD(120.531,.01,1,3,"%D",10,0)="file, and DA is the entry in the (120.531) sub-file"
^DD(120.531,.01,1,3,"DT")="3010524"
^DD(120.531,.01,9)="^"
^DD(120.531,.01,21,0)="^^2^2^2940525^^^^"
^DD(120.531,.01,21,1,0)="This field screens the vital measurement quality field in the GMRV VITAL "
^DD(120.531,.01,21,2,0)="MEASUREMENT file (#120.5)."
^DD(120.531,.01,"DT")="3010524"
^DD(120.531,.03,0)="MAXIMUM ENTRIES^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(120.531,.03,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(120.531,.03,9)="^"
^DD(120.531,.03,21,0)="^^2^2^2960719^"
^DD(120.531,.03,21,1,0)="This field indicates the minimum number of characteristics that can"
^DD(120.531,.03,21,2,0)="be selected for a patient for this category for this vital type."
^DD(120.531,.03,"DT")="2960719"
^DD(120.531,.05,0)="PRINT ORDER^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(120.531,.05,1,0)="^.1"
^DD(120.531,.05,1,1,0)="120.53^APRT^MUMPS"
^DD(120.531,.05,1,1,1)="D APRT^GMVFUT3(1,.DA,X)"
^DD(120.531,.05,1,1,2)="D APRT^GMVFUT3(2,.DA,X)"
^DD(120.531,.05,1,1,"%D",0)="^^6^6^3010524^^^"
^DD(120.531,.05,1,1,"%D",1,0)="This cross-reference sets up the ""APRINT"" index  on the GMRV Vital Category"
^DD(120.531,.05,1,1,"%D",2,0)="(120.53) file.  This index has the following format:"
^DD(120.531,.05,1,1,"%D",3,0)="^GMRD(120.53,""APRINT"",TYPE,PORD,DA(1),DA)="""", where TYPE=Vital Type (.01)"
^DD(120.531,.05,1,1,"%D",4,0)="field of Vital Type (120.531) sub-file, PORD is the Print Order (.05)"
^DD(120.531,.05,1,1,"%D",5,0)="field of the Vital Type (120.531) sub-file, DA(1) is the entry in the GMRV"
^DD(120.531,.05,1,1,"%D",6,0)="Vital Category (120.53) file, and DA is the entry in the (120.531) sub-file."
^DD(120.531,.05,1,1,"DT")="3010524"
^DD(120.531,.05,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(120.531,.05,9)="^"
^DD(120.531,.05,21,0)="^^2^2^2960719^"
^DD(120.531,.05,21,1,0)="This field contains the order in which this category of characteristics"
^DD(120.531,.05,21,2,0)="will display on reports for this category for this vital type."
^DD(120.531,.05,"DT")="3010524"
^DD(120.531,.06,0)="EDIT ORDER^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(120.531,.06,1,0)="^.1"
^DD(120.531,.06,1,1,0)="120.53^AEDT^MUMPS"
^DD(120.531,.06,1,1,1)="D AEDT^GMVFUT3(1,.DA,X)"
^DD(120.531,.06,1,1,2)="D AEDT^GMVFUT3(2,.DA,X)"
^DD(120.531,.06,1,1,"%D",0)="^^6^6^3010524^^"
^DD(120.531,.06,1,1,"%D",1,0)="This cross-reference sets up the ""AEDIT"" index  onthe GMRV Category"
^DD(120.531,.06,1,1,"%D",2,0)="(120.53) file.  This index has the following format:"
^DD(120.531,.06,1,1,"%D",3,0)="^GMRD(120.53,""AEDIT"",TYPE,EORD,DA(1),DA)="""", where TYPE=Vital Type (.01)"
^DD(120.531,.06,1,1,"%D",4,0)="field of Vital Type (120.531) sub-file, EORD is the Edit Order (.06)"
^DD(120.531,.06,1,1,"%D",5,0)="field of the Vital Type (120.531) sub-file, DA(1) is the entry in the GMRV"
^DD(120.531,.06,1,1,"%D",6,0)="Vital Category (120.53) file, and DA is the entry in the (120.531) sub-file."
^DD(120.531,.06,1,1,"DT")="3010524"
^DD(120.531,.06,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(120.531,.06,9)="^"
^DD(120.531,.06,21,0)="^^2^2^2960719^"
^DD(120.531,.06,21,1,0)="This field contains the order in which this category for this vital type"
^DD(120.531,.06,21,2,0)="will be entered/edited in the Vitals/Measurements edit options."
^DD(120.531,.06,"DT")="3010524"
^DD(120.531,.07,0)="DEFAULT QUALIFIER^*P120.52'X^GMRD(120.52,^0;7^S DIC(""S"")=""I $$SCR07^GMVFUT3(.DA,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.531,.07,3)=" "
^DD(120.531,.07,9)="^"
^DD(120.531,.07,12)="Enter the name of appropriate qualifier"
^DD(120.531,.07,12.1)="S DIC(""S"")=""I $$SCR07^GMVFUT3(.DA,Y)"""
^DD(120.531,.07,21,0)="^^2^2^3010524^^^^"
^DD(120.531,.07,21,1,0)="This field will denote the default qualifier to be used if the user"
^DD(120.531,.07,21,2,0)="does not specify one during data entry."
^DD(120.531,.07,"DT")="3010524"
^DD(120.531,"B","DEFAULT QUALIFIER",.07)=""
^DD(120.531,"B","EDIT ORDER",.06)=""
^DD(120.531,"B","MAXIMUM ENTRIES",.03)=""
^DD(120.531,"B","PRINT ORDER",.05)=""
^DD(120.531,"B","VITAL TYPE",.01)=""
^DD(120.531,"GL",0,1,.01)=""
^DD(120.531,"GL",0,3,.03)=""
^DD(120.531,"GL",0,5,.05)=""
^DD(120.531,"GL",0,6,.06)=""
^DD(120.531,"GL",0,7,.07)=""
^DD(120.531,"IX",.01)=""
^DD(120.531,"IX",.05)=""
^DD(120.531,"IX",.06)=""
^DD(120.531,"RQ",.01)=""
^DD(120.5399,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(120.5399,0,"DT")="3050201"
^DD(120.5399,0,"IX","B",120.5399,.01)=""
^DD(120.5399,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(120.5399,0,"UP")="120.53"
^DD(120.5399,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(120.5399,.01,1,0)="^.1"
^DD(120.5399,.01,1,1,0)="120.5399^B"
^DD(120.5399,.01,1,1,1)="S ^GMRD(120.53,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(120.5399,.01,1,1,2)="K ^GMRD(120.53,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(120.5399,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(120.5399,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(120.5399,.01,9)="^"
^DD(120.5399,.01,21,0)="^^2^2^3050201^"
^DD(120.5399,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(120.5399,.01,21,2,0)="established."
^DD(120.5399,.01,"DT")="3050301"
^DD(120.5399,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(120.5399,.02,9)="^"
^DD(120.5399,.02,21,0)="^^4^4^3050201^"
^DD(120.5399,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(120.5399,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(120.5399,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(120.5399,.02,21,4,0)="accessible by the application to display legacy data."
^DD(120.5399,.02,"DT")="3050301"
^DD(120.5399,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(120.5399,"B","STATUS",.02)=""
^DD(120.5399,"GL",0,1,.01)=""
^DD(120.5399,"GL",0,2,.02)=""
^DD(120.5399,"IX",.01)=""
^DD(120.5399,"RQ",.01)=""
^DD(120.5399,"RQ",.02)=""
^DD(120.55,0)="FIELD^^10^5"
^DD(120.55,0,"DDA")="N"
^DD(120.55,0,"IX","B",120.55,.01)=""
^DD(120.55,0,"NM","GMRV ORDERS")=""
^DD(120.55,0,"VR")="4.0"
^DD(120.55,0,"VRPK")="GEN. MED. REC. - VITALS"
^DD(120.55,.01,0)="NAME^R*P100'X^OR(100,^0;1^S DIC(""S"")=""I $P(^(0),U,14)=$O(^DIC(9.4,""""B"""",""""GENERAL MEDICAL RECORD"""",0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(120.55,.01,1,0)="^.1"
^DD(120.55,.01,1,1,0)="120.55^B"
^DD(120.55,.01,1,1,1)="S ^GMR(120.55,""B"",$E(X,1,30),DA)="""""
^DD(120.55,.01,1,1,2)="K ^GMR(120.55,""B"",$E(X,1,30),DA)"
^DD(120.55,.01,1,1,"%D",0)="^^1^1^2950301^^"
^DD(120.55,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.55,.01,3)=""
^DD(120.55,.01,12)="This record can only point to OE/RR orders for the General Medical Record."
^DD(120.55,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,14)=$O(^DIC(9.4,""""B"""",""""GENERAL MEDICAL RECORD"""",0))"""
^DD(120.55,.01,21,0)="^^2^2^2940105^^^^"
^DD(120.55,.01,21,1,0)="This field is a pointer to the OE/RR ORDERS file (#100).  This record "
^DD(120.55,.01,21,2,0)="contains detailed information about the order it points to."
^DD(120.55,.01,"DT")="2880418"
^DD(120.55,1,0)="ADMINISTRATION SCHEDULE^RF^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(120.55,1,.1)="Schedule"
^DD(120.55,1,3)="Answer must be 1-50 characters in length."
^DD(120.55,1,4)=""
^DD(120.55,1,21,0)="^^1^1^2931222^^^^"
^DD(120.55,1,21,1,0)="This field represents the frequency of administration of this order."
^DD(120.55,1,"DT")="2900814"
^DD(120.55,2,0)="ADMINISTRATION TIMES^FX^^0;3^K:$S('$D(^PS(59.7,1,20)):1,1:^(20)<2.8) X I $D(X) D ENATV^PSJEEU"
^DD(120.55,2,3)="Answer must be 2-119 characters in length."
^DD(120.55,2,21,0)="^^5^5^2931222^^^^"
^DD(120.55,2,21,1,0)="This field reflects the times of the day that the requested vitals should be"
^DD(120.55,2,21,2,0)="taken.  Use military time (24 hour clock) when entering these times, "
^DD(120.55,2,21,3,0)="separating each time with a '-'.  Be sure that the times are in ascending"
^DD(120.55,2,21,4,0)="order, i.e., 06-14-22 or 0600-1400-2200.  All times must be the same length,"
^DD(120.55,2,21,5,0)="either 2 or 4 digits."
^DD(120.55,2,"DT")="2910920"
^DD(120.55,3,0)="FREQUENCY^FX^^0;4^K:$S('$D(^PS(59.7,1,20)):1,1:^(20)<2.8)!($L(X)>5)!($L(X)<1) X"
^DD(120.55,3,3)="Answer must be 1-5 characters in length."
^DD(120.55,3,21,0)="^^2^2^2931222^^"
^DD(120.55,3,21,1,0)="This field reflects the number of minutes between each vital measurement"
^DD(120.55,3,21,2,0)="reading."
^DD(120.55,3,"DT")="2900920"
^DD(120.55,10,0)="OTHER INFORMATION^F^^O;1^K:$L(X)>100!($L(X)<3) X"
^DD(120.55,10,.1)="Special Instructions"
^DD(120.55,10,3)="ANSWER MUST BE 3-100 CHARACTERS IN LENGTH"
^DD(120.55,10,21,0)="^^1^1^2931222^^^"
^DD(120.55,10,21,1,0)="This field contains any additional information regarding this order."
^DD(120.55,10,"DT")="2880418"
^DD(120.55,"B","ADMINISTRATION SCHEDULE",1)=""
^DD(120.55,"B","ADMINISTRATION TIMES",2)=""
^DD(120.55,"B","FREQUENCY",3)=""
^DD(120.55,"B","NAME",.01)=""
^DD(120.55,"B","OTHER INFORMATION",10)=""
^DD(120.55,"B","Schedule",1)="1"
^DD(120.55,"B","Special Instructions",10)="1"
^DD(120.55,"GL",0,1,.01)=""
^DD(120.55,"GL",0,2,1)=""
^DD(120.55,"GL",0,3,2)=""
^DD(120.55,"GL",0,4,3)=""
^DD(120.55,"GL","O",1,10)=""
^DD(120.55,"IX",.01)=""
^DD(120.55,"RQ",.01)=""
^DD(120.55,"RQ",1)=""
^DD(120.57,0)="FIELD^^999.2^22"
^DD(120.57,0,"DDA")="N"
^DD(120.57,0,"DT")="2970416"
^DD(120.57,0,"IX","B",120.57,.01)=""
^DD(120.57,0,"NM","GMRV VITALS PARAMETERS")=""
^DD(120.57,0,"VR")="5.0"
^DD(120.57,0,"VRPK")="GEN. MED. REC. - VITALS"
^DD(120.57,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X I $D(X) K:$D(^GMRD(120.57,1,0)) X S:'$D(^GMRD(120.57,1,0)) DINUM=1"
^DD(120.57,.01,1,0)="^.1"
^DD(120.57,.01,1,1,0)="120.57^B"
^DD(120.57,.01,1,1,1)="S ^GMRD(120.57,""B"",$E(X,1,30),DA)="""""
^DD(120.57,.01,1,1,2)="K ^GMRD(120.57,""B"",$E(X,1,30),DA)"
^DD(120.57,.01,1,1,"%D",0)="^^1^1^2950301^^"
^DD(120.57,.01,1,1,"%D",1,0)="This cross-reference is automatically created on .01 field."
^DD(120.57,.01,3)="This field provides an arbitrary name for the single entry in this file."
^DD(120.57,.01,21,0)="^^1^1^2931222^^^"
^DD(120.57,.01,21,1,0)="This field provides an arbitrary name for the single entry in this file."
^DD(120.57,1,0)="QUICK ORDER PROTOCOL COUNTER^NJ4,0^^Q0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(120.57,1,8)="^"
^DD(120.57,1,8.5)="^"
^DD(120.57,1,9)="^"
^DD(120.57,1,21,0)="^^2^2^2940315^^^^"
^DD(120.57,1,21,1,0)="This field contains a counter which is appended to the end of each"
^DD(120.57,1,21,2,0)="quick order protocol."
^DD(120.57,1,"DT")="2931208"
^DD(120.57,1.3,0)="GMRV INITIALIZATION SWITCH^NJ7,3^^INIT;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(120.57,1.3,3)="Type a Number between 0 and 100, 3 Decimal Digits"
^DD(120.57,1.3,8)="^"
^DD(120.57,1.3,8.5)="^"
^DD(120.57,1.3,9)="^"
^DD(120.57,1.3,21,0)="^^1^1^2940105^^^"
^DD(120.57,1.3,21,1,0)="This field contains a switch used by the GMRVINIT's ONLY.  NO EDITING ALLOWED!!!"
^DD(120.57,1.3,"DT")="2931208"
^DD(120.57,2,0)="STOP DATE DEFAULT^NJ3,0^^0;2^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,2,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(120.57,2,21,0)="^^2^2^2931229^^^"
^DD(120.57,2,21,1,0)="This field stores the number of days allotted in between the start date of a"
^DD(120.57,2,21,2,0)="vitals order and the stop date."
^DD(120.57,3,0)="CANCEL ON WARD TRANSFER^S^1:YES;0:NO;^0;3^Q"
^DD(120.57,3,3)="Should these vitals orders be cancelled if a patient was transferred between wards?   1=Yes, and 0=No."
^DD(120.57,3,21,0)="^^2^2^2940105^^^^"
^DD(120.57,3,21,1,0)="This field indicates that a flag is present to cancel vital measurement "
^DD(120.57,3,21,2,0)="orders when a patient transfers between wards."
^DD(120.57,4,0)="CANCEL ON SERVICE TRANSFER^S^1:YES;0:NO;^0;4^Q"
^DD(120.57,4,3)="Should a patient's orders be cancelled if transferred between services?  1=Yes, and 0=No."
^DD(120.57,4,21,0)="^^2^2^2940105^^^^"
^DD(120.57,4,21,1,0)="This field indicates that a flag is present to cancel vital measurement "
^DD(120.57,4,21,2,0)="orders when a patient transfers between services."
^DD(120.57,5.1,0)="ABNORMAL TEMPERATURE - HIGH^RNJ5,1^^1;1^K:+X'=X!(X>120)!(X<45)!(X?.E1"".""2N.N) X"
^DD(120.57,5.1,3)="Type a Number between 45 and 120, 1 Decimal Digit"
^DD(120.57,5.1,21,0)="^^3^3^2940105^^^^"
^DD(120.57,5.1,21,1,0)="This field indicates the upper limit for an acceptable range of patient "
^DD(120.57,5.1,21,2,0)="temperatures. The abnormal high is equal to or greater than the value "
^DD(120.57,5.1,21,3,0)="entered."
^DD(120.57,5.2,0)="ABNORMAL TEMPERATURE - LOW^RNJ5,1^^1;2^K:+X'=X!(X>120)!(X<45)!(X?.E1"".""2N.N) X"
^DD(120.57,5.2,3)="Type a Number between 45 and 120, 1 Decimal Digit"
^DD(120.57,5.2,21,0)="^^3^3^2940105^^^"
^DD(120.57,5.2,21,1,0)="This field sets the lower limit for an acceptable range of patient "
^DD(120.57,5.2,21,2,0)="temperatures. The abnormal low is equal to or below that of the value "
^DD(120.57,5.2,21,3,0)="entered."
^DD(120.57,5.3,0)="ABNORMAL PULSE - HIGH^RNJ3,0^^1;3^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.3,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(120.57,5.3,21,0)="^^2^2^2940105^^^"
^DD(120.57,5.3,21,1,0)="This field sets the upper limit of an acceptable pulse rate. The abnormal "
^DD(120.57,5.3,21,2,0)="high is equal to or greater than the value entered."
^DD(120.57,5.4,0)="ABNORMAL PULSE - LOW^NJ3,0^^1;4^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.4,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(120.57,5.4,21,0)="^^2^2^2940105^^^"
^DD(120.57,5.4,21,1,0)="This field sets the lower limit of an acceptable pulse rate. The abnormal "
^DD(120.57,5.4,21,2,0)="low is equal to or lower than the value entered."
^DD(120.57,5.5,0)="ABNORMAL RESPIRATION - HIGH^NJ3,0^^1;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.5,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(120.57,5.5,21,0)="^^2^2^2940105^^^"
^DD(120.57,5.5,21,1,0)="This field sets the upper limit of an acceptable respiration rate. The "
^DD(120.57,5.5,21,2,0)="abnormal high is equal to or greater than the value entered."
^DD(120.57,5.6,0)="ABNORMAL RESPIRATION - LOW^NJ3,0^^1;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.6,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(120.57,5.6,21,0)="^^2^2^2940105^^^"
^DD(120.57,5.6,21,1,0)="This field sets the lower limit of an acceptable respiration rate. The "
^DD(120.57,5.6,21,2,0)="abnormal low is equal to or lower than the value entered."
^DD(120.57,5.7,0)="ABNORMAL SYSTOLIC - HIGH^NJ3,0^^1;7^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.7,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(120.57,5.7,21,0)="^^2^2^2940105^^^"
^DD(120.57,5.7,21,1,0)="This field sets the upper limit for an acceptable systolic blood pressure.  "
^DD(120.57,5.7,21,2,0)="The abnormal high is equal to or greater than the value entered."
^DD(120.57,5.71,0)="ABNORMAL DIASTOLIC - HIGH^NJ3,0^^1;8^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.71,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(120.57,5.71,21,0)="^^2^2^2931229^^^"
^DD(120.57,5.71,21,1,0)="This field sets the upper limit for an acceptable diastolic blood pressure. "
^DD(120.57,5.71,21,2,0)="The abnormal high is equal to or greater than the value entered."
^DD(120.57,5.71,22)="1"
^DD(120.57,5.8,0)="ABNORMAL SYSTOLIC - LOW^NJ3,0^^1;9^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.8,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(120.57,5.8,21,0)="^^2^2^2940105^^^"
^DD(120.57,5.8,21,1,0)="This field sets the lower limit for an acceptable systolic blood pressure.  "
^DD(120.57,5.8,21,2,0)="The abnormal low is equal to or lower than the value entered."
^DD(120.57,5.81,0)="ABNORMAL DIASTOLIC - LOW^NJ3,0^^1;10^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,5.81,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(120.57,5.81,21,0)="^^2^2^2940105^^^"
^DD(120.57,5.81,21,1,0)="This field sets the lower limit for an acceptable diastolic blood pressure. "
^DD(120.57,5.81,21,2,0)="The abnormal low is equal to or lower than the value entered."
^DD(120.57,6.1,0)="ABNORMAL CVP - HIGH^RNJ5,1^^1;11^K:+X'=X!(X>100)!(X<-10)!(X?.E1"".""2N.N) X"
^DD(120.57,6.1,3)="Type a Number between -10 and 100, 1 Decimal Digit"
^DD(120.57,6.1,21,0)="^^2^2^2970416^^^^"
^DD(120.57,6.1,21,1,0)="This field sets the upper limit of an acceptable central venous pressure"
^DD(120.57,6.1,21,2,0)="rate.  The abnormal high is equal to or greater than the value entered."
^DD(120.57,6.1,"DT")="2970416"
^DD(120.57,6.2,0)="ABNORMAL CVP - LOW^RNJ5,1^^1;12^K:+X'=X!(X>100)!(X<-10)!(X?.E1"".""2N.N) X"
^DD(120.57,6.2,3)="Type a Number between -10 and 100, 1 Decimal Digit"
^DD(120.57,6.2,21,0)="^^2^2^2970416^^^"
^DD(120.57,6.2,21,1,0)="This field sets the lower limit of an acceptable central venous pressure."
^DD(120.57,6.2,21,2,0)="The abnormal low is equal to or lower than the value entered."
^DD(120.57,6.2,"DT")="2970416"
^DD(120.57,6.3,0)="ABNORMAL O2 SATURATION - LOW^RNJ3,0^^1;13^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.57,6.3,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(120.57,6.3,21,0)="^^2^2^2970416^^^^"
^DD(120.57,6.3,21,1,0)="This field sets the lower limit of an acceptable oxygen saturation rate."
^DD(120.57,6.3,21,2,0)="The abnormal low is equal to or lower than the value entered."
^DD(120.57,6.3,"DT")="2970416"
^DD(120.57,999,0)="PHASE I COMPLETED^S^1:YES;0:NO;^PHASEI;1^Q"
^DD(120.57,999,8.5)="@"
^DD(120.57,999,9)="@"
^DD(120.57,999,21,0)="^^1^1^2960731^^^"
^DD(120.57,999,21,1,0)="This field denotes whether the GMRV Site/Quality Conversion has completed."
^DD(120.57,999,"DT")="2960719"
^DD(120.57,999.1,0)="PHASE II COMPLETED^S^1:YES;0:NO;^PHASEII;1^Q"
^DD(120.57,999.1,8.5)="@"
^DD(120.57,999.1,9)="@"
^DD(120.57,999.1,21,0)="^^2^2^2960719^^"
^DD(120.57,999.1,21,1,0)="This field denotes whether the GMRV Vitals Measurement Data Conversion"
^DD(120.57,999.1,21,2,0)="has completed."
^DD(120.57,999.1,"DT")="2960719"
^DD(120.57,999.2,0)="PHASE II LAST RECORD^NJ9,0^^PHASEII;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(120.57,999.2,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(120.57,999.2,8.5)="@"
^DD(120.57,999.2,9)="@"
^DD(120.57,999.2,21,0)="^^3^3^2960719^^"
^DD(120.57,999.2,21,1,0)="This field will contain the number of the last record to be converted"
^DD(120.57,999.2,21,2,0)="by the GMRV Vitals Measurement Data Conversion, or it will be null"
^DD(120.57,999.2,21,3,0)="if the conversion has completed or has not started."
^DD(120.57,999.2,"DT")="2960719"
^DD(120.57,"B","ABNORMAL CVP - HIGH",6.1)=""
^DD(120.57,"B","ABNORMAL CVP - LOW",6.2)=""
^DD(120.57,"B","ABNORMAL DIASTOLIC - HIGH",5.71)=""
^DD(120.57,"B","ABNORMAL DIASTOLIC - LOW",5.81)=""
^DD(120.57,"B","ABNORMAL O2 SATURATION - LOW",6.3)=""
^DD(120.57,"B","ABNORMAL PULSE - HIGH",5.3)=""
^DD(120.57,"B","ABNORMAL PULSE - LOW",5.4)=""
^DD(120.57,"B","ABNORMAL RESPIRATION - HIGH",5.5)=""
^DD(120.57,"B","ABNORMAL RESPIRATION - LOW",5.6)=""
^DD(120.57,"B","ABNORMAL SYSTOLIC - HIGH",5.7)=""
^DD(120.57,"B","ABNORMAL SYSTOLIC - LOW",5.8)=""
^DD(120.57,"B","ABNORMAL TEMPERATURE - HIGH",5.1)=""
^DD(120.57,"B","ABNORMAL TEMPERATURE - LOW",5.2)=""
^DD(120.57,"B","CANCEL ON SERVICE TRANSFER",4)=""
^DD(120.57,"B","CANCEL ON WARD TRANSFER",3)=""
^DD(120.57,"B","GMRV INITIALIZATION SWITCH",1.3)=""
^DD(120.57,"B","NAME",.01)=""
^DD(120.57,"B","PHASE I COMPLETED",999)=""
^DD(120.57,"B","PHASE II COMPLETED",999.1)=""
^DD(120.57,"B","PHASE II LAST RECORD",999.2)=""
^DD(120.57,"B","QUICK ORDER PROTOCOL COUNTER",1)=""
^DD(120.57,"B","STOP DATE DEFAULT",2)=""
^DD(120.57,"GL",0,1,.01)=""
^DD(120.57,"GL",0,2,2)=""
^DD(120.57,"GL",0,3,3)=""
^DD(120.57,"GL",0,4,4)=""
^DD(120.57,"GL",1,1,5.1)=""
^DD(120.57,"GL",1,2,5.2)=""
^DD(120.57,"GL",1,3,5.3)=""
^DD(120.57,"GL",1,4,5.4)=""
^DD(120.57,"GL",1,5,5.5)=""
^DD(120.57,"GL",1,6,5.6)=""
^DD(120.57,"GL",1,7,5.7)=""
^DD(120.57,"GL",1,8,5.71)=""
^DD(120.57,"GL",1,9,5.8)=""
^DD(120.57,"GL",1,10,5.81)=""
^DD(120.57,"GL",1,11,6.1)=""
^DD(120.57,"GL",1,12,6.2)=""
^DD(120.57,"GL",1,13,6.3)=""
^DD(120.57,"GL","INIT",1,1.3)=""
^DD(120.57,"GL","PHASEI",1,999)=""
^DD(120.57,"GL","PHASEII",1,999.1)=""
^DD(120.57,"GL","PHASEII",2,999.2)=""
^DD(120.57,"GL","Q0",1,1)=""
^DD(120.57,"IX",.01)=""
^DD(120.57,"RQ",.01)=""
^DD(120.57,"RQ",5.1)=""
^DD(120.57,"RQ",5.2)=""
^DD(120.57,"RQ",5.3)=""
^DD(120.57,"RQ",6.1)=""
^DD(120.57,"RQ",6.2)=""
^DD(120.57,"RQ",6.3)=""
^DD(120.8,0)="FIELD^^26^22"
^DD(120.8,0,"DDA")="N"
^DD(120.8,0,"DT")="2951109"
^DD(120.8,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(120.8,0,"ID","WRITE")="D:+$G(^(""ER"")) EN^DDIOL(""***ENTERED IN ERROR***"","""",""?0"") S GMRAHLPX=$G(^GMR(120.8,Y,0)) K GMRAHLPX"
^DD(120.8,0,"IX","ADRG01",120.8,.01)=""
^DD(120.8,0,"IX","ADRG2",120.802,.01)=""
^DD(120.8,0,"IX","ADRG22",120.8,22)=""
^DD(120.8,0,"IX","ADRG3",120.803,.01)=""
^DD(120.8,0,"IX","ANKA01",120.8,.01)=""
^DD(120.8,0,"IX","AODT",120.8,4)=""
^DD(120.8,0,"IX","ASGN",120.8,15)=""
^DD(120.8,0,"IX","ASGN1",120.8,22)=""
^DD(120.8,0,"IX","AVER0",120.8,19)=""
^DD(120.8,0,"IX","AVER1",120.8,.01)=""
^DD(120.8,0,"IX","AVER2",120.8,22)=""
^DD(120.8,0,"IX","B",120.8,.01)=""
^DD(120.8,0,"IX","C",120.8,.02)=""
^DD(120.8,0,"IX","V",120.8,20)=""
^DD(120.8,0,"NM","PATIENT ALLERGIES")=""
^DD(120.8,0,"PT",120.85,.03)=""
^DD(120.8,0,"SCR")="I $P(^(0),U,2)]"""""
^DD(120.8,0,"VR")="4.0"
^DD(120.8,0,"VRPK")="ADVERSE REACTION TRACKING"
^DD(120.8,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(120.8,.01,1,0)="^.1^^-1"
^DD(120.8,.01,1,1,0)="120.8^B"
^DD(120.8,.01,1,1,1)="S ^GMR(120.8,""B"",$E(X,1,30),DA)="""""
^DD(120.8,.01,1,1,2)="K ^GMR(120.8,""B"",$E(X,1,30),DA)"
^DD(120.8,.01,1,2,0)="120.8^AVER1^MUMPS"
^DD(120.8,.01,1,2,1)="S GMRA="".01^1"" D EN1^GMRAUIX1"
^DD(120.8,.01,1,2,2)="S GMRA="".01^0"" D EN1^GMRAUIX1"
^DD(120.8,.01,1,2,"%D",0)="^^2^2^2930824^^^"
^DD(120.8,.01,1,2,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,.01,1,2,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.8,.01,1,2,"DT")="2910219"
^DD(120.8,.01,1,3,0)="120.8^ANKA01^MUMPS"
^DD(120.8,.01,1,3,1)="S GMRA=$P($G(^GMR(120.8,DA,0)),U,22) S:GMRA'="""" ^GMR(120.8,""ANKA"",X,GMRA,DA)="""" K GMRA"
^DD(120.8,.01,1,3,2)="S GMRA=$P($G(^GMR(120.8,DA,0)),U,22) K:GMRA'="""" ^GMR(120.8,""ANKA"",X,GMRA,DA) K GMRA"
^DD(120.8,.01,1,3,"%D",0)="^^2^2^2930824^"
^DD(120.8,.01,1,3,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,.01,1,3,"%D",2,0)="of the Allergy Tracking System Technical Manual."
^DD(120.8,.01,1,3,"DT")="2921013"
^DD(120.8,.01,1,4,0)="120.8^ADRG01^MUMPS"
^DD(120.8,.01,1,4,1)="S GMRA="".01^1"" D EN1^GMRAUIX0"
^DD(120.8,.01,1,4,2)="S GMRA="".01^0"" D EN1^GMRAUIX0"
^DD(120.8,.01,1,4,"%D",0)="^^2^2^2911106^"
^DD(120.8,.01,1,4,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,.01,1,4,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.8,.01,1,4,"DT")="2910514"
^DD(120.8,.01,3)=""
^DD(120.8,.01,7.5)="I X="" "",$D(^DISV(DUZ,""^GMR(120.8,"")),$S($D(^GMR(120.8,+$P(^DISV(DUZ,""^GMR(120.8,""),U),0)):1,1:0),$P(^(0),U,2)'="""" S X=$P(^(0),U,2) D:DIC(0)[""E"" EN^DDIOL(X,"""","""")"
^DD(120.8,.01,21,0)="1"
^DD(120.8,.01,21,1,0)="This is the patient to whom this allergy/adverse reaction pertains."
^DD(120.8,.01,"DT")="2951128"
^DD(120.8,.02,0)="REACTANT^RFX^^0;2^D EN^DDIOL(""Editing not allowed!"","""",""$C(7),!?4"") K X"
^DD(120.8,.02,.1)="CAUSATIVE AGENT"
^DD(120.8,.02,1,0)="^.1^^-1"
^DD(120.8,.02,1,1,0)="120.8^C"
^DD(120.8,.02,1,1,1)="S ^GMR(120.8,""C"",$E(X,1,30),DA)="""""
^DD(120.8,.02,1,1,2)="K ^GMR(120.8,""C"",$E(X,1,30),DA)"
^DD(120.8,.02,3)="Answer must be 3-30 characters in length."
^DD(120.8,.02,21,0)="^^4^4^3050330^"
^DD(120.8,.02,21,1,0)="This is the agent to which the patient had this reaction.  This is the "
^DD(120.8,.02,21,2,0)="name of the reactant and will be the result of a look up on either the GMR"
^DD(120.8,.02,21,3,0)="Allergies (120.82), National Drug (50.6), Drug Ingredients (50.416), "
^DD(120.8,.02,21,4,0)="Local Drug (50) or VA Drug Class (50.605) files."
^DD(120.8,.02,"DT")="3040813"
^DD(120.8,1,0)="GMR ALLERGY^V^^0;3^Q"
^DD(120.8,1,.1)=""
^DD(120.8,1,3)=""
^DD(120.8,1,21,0)="^^5^5^2930921^^^^"
^DD(120.8,1,21,1,0)="This field is a variable pointer to help relate this allergy to some"
^DD(120.8,1,21,2,0)="record in one of the files to which this field points.  The files that are"
^DD(120.8,1,21,3,0)="pointed to are the GMR Allergies (120.82) file, National Drug (50.6) file,"
^DD(120.8,1,21,4,0)="Drug (50) file, Drug Ingredients (50.416) file and VA Drug Class"
^DD(120.8,1,21,5,0)="(50.605) file."
^DD(120.8,1,"DT")="2920622"
^DD(120.8,1,"V",0)="^.12P^5^5"
^DD(120.8,1,"V",1,0)="120.82^GMR ALLERGY^1^A^n^n"
^DD(120.8,1,"V",2,0)="50.6^NATIONAL DRUG^4^N^n^n"
^DD(120.8,1,"V",3,0)="50^LOCAL DRUG^5^D^n^n"
^DD(120.8,1,"V",4,0)="50.416^DRUG INGREDIENTS^2^I^n^n"
^DD(120.8,1,"V",5,0)="50.605^VA DRUG CLASS^3^C^n^n"
^DD(120.8,1,"V","B",50,3)=""
^DD(120.8,1,"V","B",50.416,4)=""
^DD(120.8,1,"V","B",50.6,2)=""
^DD(120.8,1,"V","B",50.605,5)=""
^DD(120.8,1,"V","B",120.82,1)=""
^DD(120.8,1,"V","M","DRUG INGREDIENTS",4)=""
^DD(120.8,1,"V","M","GMR ALLERGY",1)=""
^DD(120.8,1,"V","M","LOCAL DRUG",3)=""
^DD(120.8,1,"V","M","NATIONAL DRUG",2)=""
^DD(120.8,1,"V","M","VA DRUG CLASS",5)=""
^DD(120.8,1,"V","O",1,1)=""
^DD(120.8,1,"V","O",2,4)=""
^DD(120.8,1,"V","O",3,5)=""
^DD(120.8,1,"V","O",4,2)=""
^DD(120.8,1,"V","O",5,3)=""
^DD(120.8,1,"V","P","A",1)=""
^DD(120.8,1,"V","P","C",5)=""
^DD(120.8,1,"V","P","D",3)=""
^DD(120.8,1,"V","P","I",4)=""
^DD(120.8,1,"V","P","N",2)=""
^DD(120.8,2,0)="DRUG INGREDIENTS^120.802PA^^2;0"
^DD(120.8,2,21,0)="^^2^2^2901109^^"
^DD(120.8,2,21,1,0)="List of drug ingredients to which patient had reaction for this"
^DD(120.8,2,21,2,0)="allergy/adverse reaction."
^DD(120.8,3,0)="DRUG CLASSES^120.803PA^^3;0"
^DD(120.8,3,21,0)="^^2^2^2920331^^^^"
^DD(120.8,3,21,1,0)="List of VA drug classes to which patient had reaction for this"
^DD(120.8,3,21,2,0)="allergy/adverse reaction."
^DD(120.8,3.1,0)="ALLERGY TYPE^RFXO^^0;20^D INTTYPE^GMRAUTL(.X)"
^DD(120.8,3.1,2)="S Y(0)=Y S Y=$$OUTTYPE^GMRAUTL(Y)"
^DD(120.8,3.1,2.1)="S Y=$$OUTTYPE^GMRAUTL(Y)"
^DD(120.8,3.1,3)="Answer with type(s) of this reaction.  E.g., FOOD or DRUG, FOOD or F or DF."
^DD(120.8,3.1,21,0)="^^5^5^2941121^^^^"
^DD(120.8,3.1,21,1,0)="This field contains the type(s) for this causative agent.  The user can"
^DD(120.8,3.1,21,2,0)="enter the type(s) separated by commas, or the following codes:  D=Drug,"
^DD(120.8,3.1,21,3,0)="F=Food, O=Other.  If codes are used, do not use commas to separate multiple"
^DD(120.8,3.1,21,4,0)="codes.  Examples of valid entries are:  DRUG or DRUG, FOOD or D or DF or"
^DD(120.8,3.1,21,5,0)="OTHER."
^DD(120.8,3.1,"DT")="2941121"
^DD(120.8,4,0)="ORIGINATION DATE/TIME^RDX^^0;4^S %DT=""EPSTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.8,4,1,0)="^.1"
^DD(120.8,4,1,1,0)="120.8^AODT"
^DD(120.8,4,1,1,1)="S ^GMR(120.8,""AODT"",$E(X,1,30),DA)="""""
^DD(120.8,4,1,1,2)="K ^GMR(120.8,""AODT"",$E(X,1,30),DA)"
^DD(120.8,4,1,1,"DT")="2921125"
^DD(120.8,4,21,0)="^^1^1^2921014^"
^DD(120.8,4,21,1,0)="Date/time this allergy/adverse reaction was entered into the system."
^DD(120.8,4,"DT")="2921125"
^DD(120.8,5,0)="ORIGINATOR^RP200'^VA(200,^0;5^Q"
^DD(120.8,5,21,0)="^^1^1^2921014^"
^DD(120.8,5,21,1,0)="Person who entered this allergy/adverse reaction into the system."
^DD(120.8,6,0)="OBSERVED/HISTORICAL^RS^o:OBSERVED;h:HISTORICAL;^0;6^Q"
^DD(120.8,6,21,0)="^^2^2^2931013^"
^DD(120.8,6,21,1,0)="Indicates whether this allergy/adverse reaction has been observed by some"
^DD(120.8,6,21,2,0)="personnel, or if it is historical data gathered about the patient."
^DD(120.8,6,"DT")="2901207"
^DD(120.8,7,0)="*REPORTABLE^S^y:YES;n:NO;^0;21^Q"
^DD(120.8,7,21,0)="^^5^5^2950412^"
^DD(120.8,7,21,1,0)="This field will allow the data in this file to be unreportable to other"
^DD(120.8,7,21,2,0)="packages.  Examples of this include drug-drug interactions which do not"
^DD(120.8,7,21,3,0)="have to be shown as allergies/adverse reactions."
^DD(120.8,7,21,4,0)="   "
^DD(120.8,7,21,5,0)="Note: This field is no longer supported."
^DD(120.8,7,"DT")="2950411"
^DD(120.8,10,0)="REACTIONS^120.81P^^10;0"
^DD(120.8,10,21,0)="^.001^1^1^3050330^^^^"
^DD(120.8,10,21,1,0)="These are the reactions observed for this allergy/adverse reaction."
^DD(120.8,13,0)="CHART MARKED^120.813DA^^13;0"
^DD(120.8,13,21,0)="^^2^2^2921014^"
^DD(120.8,13,21,1,0)="A list of those people who indicate that the patient's chart has been"
^DD(120.8,13,21,2,0)="marked for this reactant."
^DD(120.8,13,"DT")="2920619"
^DD(120.8,14,0)="ID BAND MARKED^120.814DA^^14;0"
^DD(120.8,14,21,0)="^^2^2^2921014^"
^DD(120.8,14,21,1,0)="A list of those people who indicated that the patient's ID band has been"
^DD(120.8,14,21,2,0)="marked for this reactant."
^DD(120.8,14,"DT")="2920619"
^DD(120.8,15,0)="ORIGINATOR SIGN OFF^S^1:YES;0:NO;^0;12^Q"
^DD(120.8,15,1,0)="^.1"
^DD(120.8,15,1,1,0)="120.8^ASGN^MUMPS"
^DD(120.8,15,1,1,1)="S GMRA=""15^1"" D EN2^GMRAUIX1"
^DD(120.8,15,1,1,2)="S GMRA=""15^0"" D EN2^GMRAUIX1"
^DD(120.8,15,1,1,"%D",0)="^^2^2^2911106^"
^DD(120.8,15,1,1,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,15,1,1,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.8,15,1,1,"DT")="2910621"
^DD(120.8,15,21,0)="^^3^3^2930603^^"
^DD(120.8,15,21,1,0)="Indicates whether the originator of this allergy/adverse reaction signed off on it, so"
^DD(120.8,15,21,2,0)="that it may be verified.  An allergy/adverse reaction that is not signed"
^DD(120.8,15,21,3,0)="off is not part of the patient's reportable reactions."
^DD(120.8,15,"DT")="2910621"
^DD(120.8,17,0)="MECHANISM^S^A:ALLERGY;P:PHARMACOLOGIC;U:UNKNOWN;^0;14^Q"
^DD(120.8,17,21,0)="2^^2^2^2941220^"
^DD(120.8,17,21,1,0)="This field indicates the mechanism of the reaction."
^DD(120.8,17,21,2,0)="  "
^DD(120.8,17,"DT")="2941220"
^DD(120.8,19,0)="VERIFIED^S^1:YES;0:NO;^0;16^Q"
^DD(120.8,19,1,0)="^.1"
^DD(120.8,19,1,1,0)="120.8^AVER0^MUMPS"
^DD(120.8,19,1,1,1)="S GMRA=""19^1"" D EN1^GMRAUIX1"
^DD(120.8,19,1,1,2)="S GMRA=""19^0"" D EN1^GMRAUIX1"
^DD(120.8,19,1,1,"%D",0)="^^2^2^2911106^"
^DD(120.8,19,1,1,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,19,1,1,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.8,19,1,1,"DT")="2910219"
^DD(120.8,19,21,0)="^^3^3^2930921^^^^"
^DD(120.8,19,21,1,0)="Indicates whether this allergy has been verified by a verifier.  The data in this field"
^DD(120.8,19,21,2,0)="will only get put in place if the verifier has signed off using the"
^DD(120.8,19,21,3,0)="electronic signature."
^DD(120.8,19,"DT")="2910225"
^DD(120.8,20,0)="VERIFICATION DATE/TIME^DX^^0;17^S %DT=""EPSTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.8,20,1,0)="^.1"
^DD(120.8,20,1,1,0)="120.8^V"
^DD(120.8,20,1,1,1)="S ^GMR(120.8,""V"",$E(X,1,30),DA)="""""
^DD(120.8,20,1,1,2)="K ^GMR(120.8,""V"",$E(X,1,30),DA)"
^DD(120.8,20,1,1,"%D",0)="^^2^2^2950227^"
^DD(120.8,20,1,1,"%D",1,0)="This cross-reference is to allow the look-up of reaction verified over"
^DD(120.8,20,1,1,"%D",2,0)="a Date/time range."
^DD(120.8,20,1,1,"DT")="2950227"
^DD(120.8,20,21,0)="^^1^1^2901109^^"
^DD(120.8,20,21,1,0)="The date/time this allergy/adverse reaction has been verified."
^DD(120.8,20,"DT")="2950227"
^DD(120.8,21,0)="VERIFIER^P200'^VA(200,^0;18^Q"
^DD(120.8,21,21,0)="^^1^1^2901109^^"
^DD(120.8,21,21,1,0)="The verifier of the allergy/adverse reaction."
^DD(120.8,22,0)="ENTERED IN ERROR^S^1:YES;^ER;1^Q"
^DD(120.8,22,1,0)="^.1"
^DD(120.8,22,1,1,0)="120.8^ADRG22^MUMPS"
^DD(120.8,22,1,1,1)="S GMRA=""22^1"" D EN1^GMRAUIX0"
^DD(120.8,22,1,1,2)="S GMRA=""22^0"" D EN1^GMRAUIX0"
^DD(120.8,22,1,1,"%D",0)="^^2^2^2911106^"
^DD(120.8,22,1,1,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,22,1,1,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.8,22,1,1,"DT")="2910514"
^DD(120.8,22,1,2,0)="120.8^AVER2^MUMPS"
^DD(120.8,22,1,2,1)="S GMRA=""22^1"" D EN1^GMRAUIX1"
^DD(120.8,22,1,2,2)="S GMRA=""22^0"" D EN1^GMRAUIX1"
^DD(120.8,22,1,2,"%D",0)="^^2^2^2911106^"
^DD(120.8,22,1,2,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,22,1,2,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.8,22,1,2,"DT")="2910613"
^DD(120.8,22,1,3,0)="120.8^ASGN1^MUMPS"
^DD(120.8,22,1,3,1)="S GMRA=""22^1"" D EN2^GMRAUIX1"
^DD(120.8,22,1,3,2)="S GMRA=""22^0"" D EN2^GMRAUIX1"
^DD(120.8,22,1,3,"%D",0)="^^2^2^2911106^"
^DD(120.8,22,1,3,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.8,22,1,3,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.8,22,1,3,"DT")="2910726"
^DD(120.8,22,21,0)="^^1^1^2930824^^^^"
^DD(120.8,22,21,1,0)="Indicates if this allergy was entered in error."
^DD(120.8,22,"DT")="2910726"
^DD(120.8,23,0)="DATE/TIME ENTERED IN ERROR^DX^^ER;2^S %DT=""EPSTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.8,23,21,0)="1^^1^1^2951129^^"
^DD(120.8,23,21,1,0)="The date/time the allergy/adverse reaction was entered in error."
^DD(120.8,24,0)="USER ENTERING IN ERROR^P200'^VA(200,^ER;3^Q"
^DD(120.8,24,21,0)="^^1^1^2901109^^"
^DD(120.8,24,21,1,0)="The person who entered this allergy/adverse reaction in error."
^DD(120.8,26,0)="COMMENTS^120.826D^^26;0"
^DD(120.8,26,21,0)="^^1^1^2921014^"
^DD(120.8,26,21,1,0)="List of comments entered about this reaction."
^DD(120.8,26,"DT")="2920619"
^DD(120.8,"B","*REPORTABLE",7)=""
^DD(120.8,"B","ALLERGY TYPE",3.1)=""
^DD(120.8,"B","CAUSATIVE AGENT",.02)="1"
^DD(120.8,"B","CHART MARKED",13)=""
^DD(120.8,"B","COMMENTS",26)=""
^DD(120.8,"B","DATE/TIME ENTERED IN ERROR",23)=""
^DD(120.8,"B","DRUG CLASSES",3)=""
^DD(120.8,"B","DRUG INGREDIENTS",2)=""
^DD(120.8,"B","ENTERED IN ERROR",22)=""
^DD(120.8,"B","GMR ALLERGY",1)=""
^DD(120.8,"B","ID BAND MARKED",14)=""
^DD(120.8,"B","MECHANISM",17)=""
^DD(120.8,"B","OBSERVED/HISTORICAL",6)=""
^DD(120.8,"B","ORIGINATION DATE/TIME",4)=""
^DD(120.8,"B","ORIGINATOR",5)=""
^DD(120.8,"B","ORIGINATOR SIGN OFF",15)=""
^DD(120.8,"B","PATIENT",.01)=""
^DD(120.8,"B","REACTANT",.02)=""
^DD(120.8,"B","REACTIONS",10)=""
^DD(120.8,"B","USER ENTERING IN ERROR",24)=""
^DD(120.8,"B","VERIFICATION DATE/TIME",20)=""
^DD(120.8,"B","VERIFIED",19)=""
^DD(120.8,"B","VERIFIER",21)=""
^DD(120.8,"GL",0,1,.01)=""
^DD(120.8,"GL",0,2,.02)=""
^DD(120.8,"GL",0,3,1)=""
^DD(120.8,"GL",0,4,4)=""
^DD(120.8,"GL",0,5,5)=""
^DD(120.8,"GL",0,6,6)=""
^DD(120.8,"GL",0,12,15)=""
^DD(120.8,"GL",0,14,17)=""
^DD(120.8,"GL",0,16,19)=""
^DD(120.8,"GL",0,17,20)=""
^DD(120.8,"GL",0,18,21)=""
^DD(120.8,"GL",0,20,3.1)=""
^DD(120.8,"GL",0,21,7)=""
^DD(120.8,"GL",2,0,2)=""
^DD(120.8,"GL",3,0,3)=""
^DD(120.8,"GL",10,0,10)=""
^DD(120.8,"GL",13,0,13)=""
^DD(120.8,"GL",14,0,14)=""
^DD(120.8,"GL",26,0,26)=""
^DD(120.8,"GL","ER",1,22)=""
^DD(120.8,"GL","ER",2,23)=""
^DD(120.8,"GL","ER",3,24)=""
^DD(120.8,"IX",.01)=""
^DD(120.8,"IX",.02)=""
^DD(120.8,"IX",4)=""
^DD(120.8,"IX",15)=""
^DD(120.8,"IX",19)=""
^DD(120.8,"IX",20)=""
^DD(120.8,"IX",22)=""
^DD(120.8,"RQ",.01)=""
^DD(120.8,"RQ",.02)=""
^DD(120.8,"RQ",3.1)=""
^DD(120.8,"RQ",4)=""
^DD(120.8,"RQ",5)=""
^DD(120.8,"RQ",6)=""
^DD(120.8,"SB",120.802,2)=""
^DD(120.8,"SB",120.803,3)=""
^DD(120.8,"SB",120.81,10)=""
^DD(120.8,"SB",120.813,13)=""
^DD(120.8,"SB",120.814,14)=""
^DD(120.8,"SB",120.826,26)=""
^DD(120.802,0)="DRUG INGREDIENTS SUB-FIELD^^.01^1"
^DD(120.802,0,"DT")="2910925"
^DD(120.802,0,"IX","B",120.802,.01)=""
^DD(120.802,0,"NM","DRUG INGREDIENTS")=""
^DD(120.802,0,"UP")="120.8"
^DD(120.802,.01,0)="DRUG INGREDIENT^M*P50.416'^PS(50.416,^0;1^S DIC(""S"")=""N GMRA S GMRA=$P(^(0),U) X """"I $L(GMRA),$D(^PS(50.416,""""""""P"""""""",GMRA,Y))"""" Q"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.802,.01,1,0)="^.1"
^DD(120.802,.01,1,1,0)="120.802^B"
^DD(120.802,.01,1,1,1)="S ^GMR(120.8,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(120.802,.01,1,1,2)="K ^GMR(120.8,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(120.802,.01,1,2,0)="120.8^ADRG2^MUMPS"
^DD(120.802,.01,1,2,1)="S GMRA=""2^1"" D EN2^GMRAUIX0"
^DD(120.802,.01,1,2,2)="S GMRA=""2^0"" D EN2^GMRAUIX0"
^DD(120.802,.01,1,2,"%D",0)="^^2^2^2920325^^"
^DD(120.802,.01,1,2,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.802,.01,1,2,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.802,.01,1,2,"DT")="2910514"
^DD(120.802,.01,12)="Select primary drug ingredient."
^DD(120.802,.01,12.1)="S DIC(""S"")=""N GMRA S GMRA=$P(^(0),U) X """"I $L(GMRA),$D(^PS(50.416,""""""""P"""""""",GMRA,Y))"""" Q"""
^DD(120.802,.01,21,0)="^^1^1^2901108^"
^DD(120.802,.01,21,1,0)="Drug ingredient to which patient had reaction."
^DD(120.802,.01,"DT")="2910925"
^DD(120.802,"B","DRUG INGREDIENT",.01)=""
^DD(120.802,"GL",0,1,.01)=""
^DD(120.802,"IX",.01)=""
^DD(120.803,0)="DRUG CLASSES SUB-FIELD^^.01^1"
^DD(120.803,0,"DT")="2901231"
^DD(120.803,0,"IX","B",120.803,.01)=""
^DD(120.803,0,"NM","DRUG CLASSES")=""
^DD(120.803,0,"UP")="120.8"
^DD(120.803,.01,0)="VA DRUG CLASS^MP50.605'O^PS(50.605,^0;1^Q"
^DD(120.803,.01,1,0)="^.1"
^DD(120.803,.01,1,1,0)="120.803^B"
^DD(120.803,.01,1,1,1)="S ^GMR(120.8,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(120.803,.01,1,1,2)="K ^GMR(120.8,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(120.803,.01,1,2,0)="120.8^ADRG3^MUMPS"
^DD(120.803,.01,1,2,1)="S GMRA=""3^1"" D EN2^GMRAUIX0"
^DD(120.803,.01,1,2,2)="S GMRA=""3^0"" D EN2^GMRAUIX0"
^DD(120.803,.01,1,2,"%D",0)="^^2^2^2920325^^"
^DD(120.803,.01,1,2,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.803,.01,1,2,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.803,.01,1,2,"DT")="2910514"
^DD(120.803,.01,2)="S Y(0)=Y S Y=$S($D(^PS(50.605,+Y,0)):$P(^(0),U,2),1:""UNKNOWN"")"
^DD(120.803,.01,2.1)="S Y=$S($D(^PS(50.605,+Y,0)):$P(^(0),U,2),1:""UNKNOWN"")"
^DD(120.803,.01,21,0)="^^1^1^2910308^^^"
^DD(120.803,.01,21,1,0)="VA drug class to which patient had reaction."
^DD(120.803,.01,"DT")="2910514"
^DD(120.803,"B","VA DRUG CLASS",.01)=""
^DD(120.803,"GL",0,1,.01)=""
^DD(120.803,"IX",.01)=""
^DD(120.81,0)="REACTIONS SUB-FIELD^^3^4"
^DD(120.81,0,"DT")="2951002"
^DD(120.81,0,"IX","B",120.81,.01)=""
^DD(120.81,0,"NM","REACTIONS")=""
^DD(120.81,0,"UP")="120.8"
^DD(120.81,.01,0)="REACTION^MP120.83'^GMRD(120.83,^0;1^Q"
^DD(120.81,.01,1,0)="^.1"
^DD(120.81,.01,1,1,0)="120.81^B"
^DD(120.81,.01,1,1,1)="S ^GMR(120.8,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(120.81,.01,1,1,2)="K ^GMR(120.8,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(120.81,.01,3)="If an entry does not appear in the list, notify the Allergy Coordinator to have it added."
^DD(120.81,.01,21,0)="^.001^1^1^3050330^^^^"
^DD(120.81,.01,21,1,0)="One of the reactions for this allergy/adverse reaction."
^DD(120.81,.01,"DT")="3040813"
^DD(120.81,1,0)="OTHER REACTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(120.81,1,3)="Answer must be 3-30 characters in length."
^DD(120.81,1,21,0)="^.001^7^7^3050330^^^"
^DD(120.81,1,21,1,0)="If this reaction cannot be found in the Sign/Symptoms (120.83) file, then"
^DD(120.81,1,21,2,0)="the free text of what the user typed in will be here, and the GMR Reaction"
^DD(120.81,1,21,3,0)="of OTHER will be the value of the Name field."
^DD(120.81,1,21,4,0)=" "
^DD(120.81,1,21,5,0)="Once the SIGNS/SYMPTOMS file is standardized then this field will"
^DD(120.81,1,21,6,0)="no longer be needed as all entries will appear in file 120.83 and"
^DD(120.81,1,21,7,0)="free text entries will no longer be allowed."
^DD(120.81,1,"DT")="3040813"
^DD(120.81,2,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(120.81,2,21,0)="^^1^1^2901108^"
^DD(120.81,2,21,1,0)="The person who entered this reaction into the system."
^DD(120.81,3,0)="DATE ENTERED^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(120.81,3,21,0)="^^2^2^2951129^"
^DD(120.81,3,21,1,0)="This is where the user would enter the date that the reaction"
^DD(120.81,3,21,2,0)="(Sign/Symptom) occurred or was entered into the computer."
^DD(120.81,3,"DT")="2951002"
^DD(120.81,"B","DATE ENTERED",3)=""
^DD(120.81,"B","ENTERED BY",2)=""
^DD(120.81,"B","OTHER REACTION",1)=""
^DD(120.81,"B","REACTION",.01)=""
^DD(120.81,"GL",0,1,.01)=""
^DD(120.81,"GL",0,2,1)=""
^DD(120.81,"GL",0,3,2)=""
^DD(120.81,"GL",0,4,3)=""
^DD(120.81,"IX",.01)=""
^DD(120.813,0)="CHART MARKED SUB-FIELD^^1^2"
^DD(120.813,0,"DT")="2921014"
^DD(120.813,0,"IX","A",120.813,.01)=""
^DD(120.813,0,"IX","B",120.813,.01)=""
^DD(120.813,0,"NM","CHART MARKED")=""
^DD(120.813,0,"UP")="120.8"
^DD(120.813,.01,0)="DATE/TIME^DX^^0;1^S %DT=""EPSTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.813,.01,1,0)="^.1^^-1"
^DD(120.813,.01,1,1,0)="120.813^B"
^DD(120.813,.01,1,1,1)="S ^GMR(120.8,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(120.813,.01,1,1,2)="K ^GMR(120.8,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(120.813,.01,1,4,0)="120.813^A^MUMPS"
^DD(120.813,.01,1,4,1)="S ^GMR(120.8,DA(1),13,""A"",9999999-X,DA)="""""
^DD(120.813,.01,1,4,2)="K ^GMR(120.8,DA(1),13,""A"",9999999-X,DA)"
^DD(120.813,.01,1,4,"%D",0)="^^2^2^2930824^"
^DD(120.813,.01,1,4,"%D",1,0)="For further information on this xref, see the Cross-reference section"
^DD(120.813,.01,1,4,"%D",2,0)="of the Adverse Reaction Tracking Technical Manual."
^DD(120.813,.01,1,4,"DT")="2910718"
^DD(120.813,.01,21,0)="^^2^2^2921014^"
^DD(120.813,.01,21,1,0)="This field contains the date/time the user indicated to ART that the"
^DD(120.813,.01,21,2,0)="patient's chart was marked for this reactant."
^DD(120.813,.01,"DT")="2921014"
^DD(120.813,1,0)="USER ENTERING^P200'I^VA(200,^0;2^Q"
^DD(120.813,1,21,0)="^^1^1^2930603^^"
^DD(120.813,1,21,1,0)="This is the user who indicated that the chart was marked."
^DD(120.813,1,"DT")="2910620"
^DD(120.813,"B","DATE/TIME",.01)=""
^DD(120.813,"B","USER ENTERING",1)=""
^DD(120.813,"GL",0,1,.01)=""
^DD(120.813,"GL",0,2,1)=""
^DD(120.813,"IX",.01)=""
^DD(120.814,0)="ID BAND MARKED SUB-FIELD^^1^2"
^DD(120.814,0,"DT")="2921014"
^DD(120.814,0,"IX","A",120.814,.01)=""
^DD(120.814,0,"IX","B",120.814,.01)=""
^DD(120.814,0,"NM","ID BAND MARKED")=""
^DD(120.814,0,"UP")="120.8"
^DD(120.814,.01,0)="DATE/TIME^DX^^0;1^S %DT=""EPSTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.814,.01,1,0)="^.1^^-1"
^DD(120.814,.01,1,1,0)="120.814^B"
^DD(120.814,.01,1,1,1)="S ^GMR(120.8,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(120.814,.01,1,1,2)="K ^GMR(120.8,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(120.814,.01,1,4,0)="120.814^A^MUMPS"
^DD(120.814,.01,1,4,1)="S ^GMR(120.8,DA(1),14,""A"",9999999-X,DA)="""""
^DD(120.814,.01,1,4,2)="K ^GMR(120.8,DA(1),14,""A"",9999999-X,DA)"
^DD(120.814,.01,1,4,"DT")="2910718"
^DD(120.814,.01,21,0)="^^2^2^2921014^"
^DD(120.814,.01,21,1,0)="This is the date/time the user indicated to the ATS that the patient's ID"
^DD(120.814,.01,21,2,0)="Band was marked for this reactant."
^DD(120.814,.01,"DT")="2921014"
^DD(120.814,1,0)="USER ENTERING^P200'I^VA(200,^0;2^Q"
^DD(120.814,1,21,0)="^^1^1^2921014^"
^DD(120.814,1,21,1,0)="This is the user who indicated the ID band was marked."
^DD(120.814,1,"DT")="2910620"
^DD(120.814,"B","DATE/TIME",.01)=""
^DD(120.814,"B","USER ENTERING",1)=""
^DD(120.814,"GL",0,1,.01)=""
^DD(120.814,"GL",0,2,1)=""
^DD(120.814,"IX",.01)=""
^DD(120.82,0)="FIELD^^99.991^9"
^DD(120.82,0,"DDA")="N"
^DD(120.82,0,"DT")="2941121"
^DD(120.82,0,"ID",1)="W """""
^DD(120.82,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(120.82,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(120.82,0,"IX","AVUID",120.82,99.99)=""
^DD(120.82,0,"IX","B",120.82,.01)=""
^DD(120.82,0,"IX","C",120.82,1)=""
^DD(120.82,0,"IX","D",120.823,.01)=""
^DD(120.82,0,"LOOK")="SOUNDEX"
^DD(120.82,0,"NM","GMR ALLERGIES")=""
^DD(120.82,0,"PT",115.225,.01)=""
^DD(120.82,0,"PT",120.8,1)=""
^DD(120.82,0,"QUES")="SOUNDEX"
^DD(120.82,0,"VR")="4.0"
^DD(120.82,0,"VRPK")="ADVERSE REACTION TRACKING"
^DD(120.82,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(120.82,.01,1,0)="^.1^^-1"
^DD(120.82,.01,1,1,0)="120.82^B"
^DD(120.82,.01,1,1,1)="S ^GMRD(120.82,""B"",$E(X,1,30),DA)="""""
^DD(120.82,.01,1,1,2)="K ^GMRD(120.82,""B"",$E(X,1,30),DA)"
^DD(120.82,.01,3)="Answer must be 3-30 characters in length.  It will automatically be converted to upper case."
^DD(120.82,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(120.82,.01,9)="^"
^DD(120.82,.01,21,0)="^.001^1^1^3030613^^^"
^DD(120.82,.01,21,1,0)="The name of the allergy/adverse reaction."
^DD(120.82,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.82,.01,"DT")="3030626"
^DD(120.82,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.82,1,0)="ALLERGY TYPE^RFXO^^0;2^D INTTYPE^GMRAUTL(.X)"
^DD(120.82,1,1,0)="^.1"
^DD(120.82,1,1,1,0)="120.82^C"
^DD(120.82,1,1,1,1)="S ^GMRD(120.82,""C"",$E(X,1,30),DA)="""""
^DD(120.82,1,1,1,2)="K ^GMRD(120.82,""C"",$E(X,1,30),DA)"
^DD(120.82,1,2)="S Y(0)=Y S Y=$$OUTTYPE^GMRAUTL(Y)"
^DD(120.82,1,2.1)="S Y=$$OUTTYPE^GMRAUTL(Y)"
^DD(120.82,1,3)="Answer with type(s) of this reaction.  E.g., FOOD or DRUG, FOOD or F or DF."
^DD(120.82,1,9)="^"
^DD(120.82,1,21,0)="^^5^5^2941121^"
^DD(120.82,1,21,1,0)="This field contains the type(s) for this allergy/adverse reaction .  The"
^DD(120.82,1,21,2,0)="user can enter the type(s) separated by commas, or the following codes:"
^DD(120.82,1,21,3,0)="D=Drug, F=Food, O=Other.  If codes are used, do not use commas to separate"
^DD(120.82,1,21,4,0)="multiple codes.  Examples of valid entries are:  DRUG or DRUG, FOOD or D"
^DD(120.82,1,21,5,0)="or DF or OTHER."
^DD(120.82,1,"DT")="2941121"
^DD(120.82,2,0)="NATIONAL ALLERGY^SX^1:NATIONAL ALLERGY;^0;3^Q"
^DD(120.82,2,8.5)="^"
^DD(120.82,2,9)="^"
^DD(120.82,2,21,0)="^^2^2^2901108^^"
^DD(120.82,2,21,1,0)="Indicates whether this allergy was distributed with the national release"
^DD(120.82,2,21,2,0)="or is a locally added allergy."
^DD(120.82,3,0)="SYNONYM^120.823^^3;0"
^DD(120.82,3,21,0)="^^1^1^2930824^^"
^DD(120.82,3,21,1,0)="A list of synonyms that can also be used to look up this allergy."
^DD(120.82,4,0)="DRUG INGREDIENTS^120.824P^^ING;0"
^DD(120.82,4,21,0)="^^1^1^2921022^^^"
^DD(120.82,4,21,1,0)="List of drug ingredients that comprise this particular allergy."
^DD(120.82,5,0)="VA DRUG CLASSES^120.8205P^^CLASS;0"
^DD(120.82,5,21,0)="^^1^1^2941117^"
^DD(120.82,5,21,1,0)="List of VA Drug classes that comprise this reactant."
^DD(120.82,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(120.82,99.98,9)="^"
^DD(120.82,99.98,21,0)="^^2^2^3050311^"
^DD(120.82,99.98,21,1,0)="This field identifies the Master entry for a VUID associated"
^DD(120.82,99.98,21,2,0)="with a Term/Concept."
^DD(120.82,99.98,"DT")="3050311"
^DD(120.82,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(120.82,99.99,1,0)="^.1"
^DD(120.82,99.99,1,1,0)="120.82^AVUID"
^DD(120.82,99.99,1,1,1)="S ^GMRD(120.82,""AVUID"",$E(X,1,30),DA)="""""
^DD(120.82,99.99,1,1,2)="K ^GMRD(120.82,""AVUID"",$E(X,1,30),DA)"
^DD(120.82,99.99,1,1,"%D",0)="^^1^1^3050217^"
^DD(120.82,99.99,1,1,"%D",1,0)="File entries by VUID."
^DD(120.82,99.99,1,1,"DT")="3050217"
^DD(120.82,99.99,3)="Answer must be 1-20 characters in length."
^DD(120.82,99.99,9)="^"
^DD(120.82,99.99,21,0)="^.001^2^2^3050311^^^^"
^DD(120.82,99.99,21,1,0)="VHA Unique ID (VUID).  A unique meaningless integer"
^DD(120.82,99.99,21,2,0)="assigned to reference terms VHA wide."
^DD(120.82,99.99,"DT")="3050311"
^DD(120.82,99.991,0)="EFFECTIVE DATE/TIME^120.8299D^^TERMSTATUS;0"
^DD(120.82,99.991,21,0)="^.001^2^2^3050509^^^"
^DD(120.82,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference"
^DD(120.82,99.991,21,2,0)="term."
^DD(120.82,"B","ALLERGY TYPE",1)=""
^DD(120.82,"B","DRUG INGREDIENTS",4)=""
^DD(120.82,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(120.82,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(120.82,"B","NAME",.01)=""
^DD(120.82,"B","NATIONAL ALLERGY",2)=""
^DD(120.82,"B","SYNONYM",3)=""
^DD(120.82,"B","VA DRUG CLASSES",5)=""
^DD(120.82,"B","VUID",99.99)=""
^DD(120.82,"GL",0,1,.01)=""
^DD(120.82,"GL",0,2,1)=""
^DD(120.82,"GL",0,3,2)=""
^DD(120.82,"GL",3,0,3)=""
^DD(120.82,"GL","CLASS",0,5)=""
^DD(120.82,"GL","ING",0,4)=""
^DD(120.82,"GL","TERMSTATUS",0,99.991)=""
^DD(120.82,"GL","VUID",1,99.99)=""
^DD(120.82,"GL","VUID",2,99.98)=""
^DD(120.82,"IX",.01)=""
^DD(120.82,"IX",1)=""
^DD(120.82,"IX",99.99)=""
^DD(120.82,"RQ",.01)=""
^DD(120.82,"RQ",1)=""
^DD(120.82,"RQ",99.98)=""
^DD(120.82,"RQ",99.99)=""
^DD(120.82,"SB",120.8205,5)=""
^DD(120.82,"SB",120.823,3)=""
^DD(120.82,"SB",120.824,4)=""
^DD(120.82,"SB",120.8299,99.991)=""
^DD(120.8205,0)="VA DRUG CLASSES SUB-FIELD^^.01^1"
^DD(120.8205,0,"DT")="2941117"
^DD(120.8205,0,"IX","B",120.8205,.01)=""
^DD(120.8205,0,"NM","VA DRUG CLASSES")=""
^DD(120.8205,0,"UP")="120.82"
^DD(120.8205,.01,0)="VA DRUG CLASSES^MP50.605'^PS(50.605,^0;1^Q"
^DD(120.8205,.01,1,0)="^.1"
^DD(120.8205,.01,1,1,0)="120.8205^B"
^DD(120.8205,.01,1,1,1)="S ^GMRD(120.82,DA(1),""CLASS"",""B"",$E(X,1,30),DA)="""""
^DD(120.8205,.01,1,1,2)="K ^GMRD(120.82,DA(1),""CLASS"",""B"",$E(X,1,30),DA)"
^DD(120.8205,.01,9)="^"
^DD(120.8205,.01,21,0)="^^1^1^2941117^"
^DD(120.8205,.01,21,1,0)="One of the VA Drug Classes that make up this reactant."
^DD(120.8205,.01,"DT")="2941117"
^DD(120.8205,"B","VA DRUG CLASSES",.01)=""
^DD(120.8205,"GL",0,1,.01)=""
^DD(120.8205,"IX",.01)=""
^DD(120.821,.01,9)="^"
^DD(120.821,.02,9)="^"
^DD(120.823,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(120.823,0,"IX","B",120.823,.01)=""
^DD(120.823,0,"NM","SYNONYM")=""
^DD(120.823,0,"UP")="120.82"
^DD(120.823,.01,0)="SYNONYM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X S:$D(X) X=$$UP^XLFSTR(X)"
^DD(120.823,.01,1,0)="^.1"
^DD(120.823,.01,1,1,0)="120.823^B"
^DD(120.823,.01,1,1,1)="S ^GMRD(120.82,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(120.823,.01,1,1,2)="K ^GMRD(120.82,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(120.823,.01,1,2,0)="120.82^D"
^DD(120.823,.01,1,2,1)="S ^GMRD(120.82,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(120.823,.01,1,2,2)="K ^GMRD(120.82,""D"",$E(X,1,30),DA(1),DA)"
^DD(120.823,.01,3)="Answer must be 2-30 characters in length.  It will automatically be converted to upper case."
^DD(120.823,.01,9)="^"
^DD(120.823,.01,21,0)="^^1^1^2930824^^^"
^DD(120.823,.01,21,1,0)="This is a synonym for a particular allergy."
^DD(120.823,.01,"DT")="3030728"
^DD(120.823,"B","SYNONYM",.01)=""
^DD(120.823,"GL",0,1,.01)=""
^DD(120.823,"IX",.01)=""
^DD(120.824,0)="DRUG INGREDIENTS SUB-FIELD^^.01^1"
^DD(120.824,0,"IX","B",120.824,.01)=""
^DD(120.824,0,"NM","DRUG INGREDIENTS")=""
^DD(120.824,0,"UP")="120.82"
^DD(120.824,.01,0)="DRUG INGREDIENT^M*P50.416'^PS(50.416,^0;1^S DIC(""S"")=""N GMRA S GMRA=$P(^(0),U) X """"I $L(GMRA),$D(^PS(50.416,""""""""P"""""""",GMRA,Y))"""" Q"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.824,.01,1,0)="^.1"
^DD(120.824,.01,1,1,0)="120.824^B"
^DD(120.824,.01,1,1,1)="S ^GMRD(120.82,DA(1),""ING"",""B"",$E(X,1,30),DA)="""""
^DD(120.824,.01,1,1,2)="K ^GMRD(120.82,DA(1),""ING"",""B"",$E(X,1,30),DA)"
^DD(120.824,.01,4)="D:DZ=""?"" EN^DDIOL(""Enter one of the drug ingredients that make up this allergy."","""",""!?5"")"
^DD(120.824,.01,9)="^"
^DD(120.824,.01,12)="Allow primary ingredients only."
^DD(120.824,.01,12.1)="S DIC(""S"")=""N GMRA S GMRA=$P(^(0),U) X """"I $L(GMRA),$D(^PS(50.416,""""""""P"""""""",GMRA,Y))"""" Q"""
^DD(120.824,.01,21,0)="^.001^2^2^3060717^^^^"
^DD(120.824,.01,21,1,0)="This is one of the drug ingredients that make up this causative agent."
^DD(120.824,.01,21,2,0)="Must be a primary ingredient."
^DD(120.824,.01,"DT")="3060717"
^DD(120.824,"B","DRUG INGREDIENT",.01)=""
^DD(120.824,"GL",0,1,.01)=""
^DD(120.824,"IX",.01)=""
^DD(120.826,0)="COMMENTS SUB-FIELD^^2^4"
^DD(120.826,0,"DT")="2951109"
^DD(120.826,0,"IX","AVER",120.826,1.5)=""
^DD(120.826,0,"IX","B",120.826,.01)=""
^DD(120.826,0,"NM","COMMENTS")=""
^DD(120.826,0,"UP")="120.8"
^DD(120.826,.01,0)="DATE/TIME COMMENT ENTERED^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(120.826,.01,1,0)="^.1"
^DD(120.826,.01,1,1,0)="120.826^B"
^DD(120.826,.01,1,1,1)="S ^GMR(120.8,DA(1),26,""B"",$E(X,1,30),DA)="""""
^DD(120.826,.01,1,1,2)="K ^GMR(120.8,DA(1),26,""B"",$E(X,1,30),DA)"
^DD(120.826,.01,21,0)="^^2^2^2930824^^"
^DD(120.826,.01,21,1,0)="This field is the date/time this comment was entered.  This field is"
^DD(120.826,.01,21,2,0)="automatically filled by the system when a user enters a comment."
^DD(120.826,.01,"DT")="2931012"
^DD(120.826,1,0)="USER ENTERING^P200'^VA(200,^0;2^Q"
^DD(120.826,1,21,0)="^^2^2^2921014^"
^DD(120.826,1,21,1,0)="This field tracks the user who entered this comment.  The field is"
^DD(120.826,1,21,2,0)="automatically stuffed when that user enters a comment."
^DD(120.826,1,"DT")="2920619"
^DD(120.826,1.5,0)="COMMENT TYPE^S^V:VERIFIED;O:OBSERVED;E:ERRORED;^0;3^Q"
^DD(120.826,1.5,1,0)="^.1"
^DD(120.826,1.5,1,1,0)="120.826^AVER"
^DD(120.826,1.5,1,1,1)="S ^GMR(120.8,DA(1),26,""AVER"",$E(X,1,30),DA)="""""
^DD(120.826,1.5,1,1,2)="K ^GMR(120.8,DA(1),26,""AVER"",$E(X,1,30),DA)"
^DD(120.826,1.5,1,1,"DT")="2921022"
^DD(120.826,1.5,21,0)="^^4^4^2951109^^^"
^DD(120.826,1.5,21,1,0)="This field indicates the type of comments. If this field is"
^DD(120.826,1.5,21,2,0)="answered ""V"", then these comments are verifier entered.  If this field is"
^DD(120.826,1.5,21,3,0)="answered ""O"", then these are observer comments.  If this field is answered"
^DD(120.826,1.5,21,4,0)="""E"", then these are entered in error comments."
^DD(120.826,1.5,"DT")="2951109"
^DD(120.826,2,0)="COMMENTS^120.8262^^2;0"
^DD(120.826,2,21,0)="^^3^3^2931015^^^"
^DD(120.826,2,21,1,0)="This field contains comments that were entered."
^DD(120.826,2,21,2,0)="                                            "
^DD(120.826,2,21,3,0)="                                              "
^DD(120.826,"B","COMMENT TYPE",1.5)=""
^DD(120.826,"B","COMMENTS",2)=""
^DD(120.826,"B","DATE/TIME COMMENT ENTERED",.01)=""
^DD(120.826,"B","USER ENTERING",1)=""
^DD(120.826,"GL",0,1,.01)=""
^DD(120.826,"GL",0,2,1)=""
^DD(120.826,"GL",0,3,1.5)=""
^DD(120.826,"GL",2,0,2)=""
^DD(120.826,"IX",.01)=""
^DD(120.826,"IX",1.5)=""
^DD(120.826,"SB",120.8262,2)=""
^DD(120.8262,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(120.8262,0,"NM","COMMENTS")=""
^DD(120.8262,0,"UP")="120.826"
^DD(120.8262,.01,0)="COMMENTS^W^^0;1^Q"
^DD(120.8262,.01,21,0)="^^1^1^2930426^"
^DD(120.8262,.01,21,1,0)="This field contains the entered comments for this agent."
^DD(120.8262,.01,"DT")="2920622"
^DD(120.8262,"B","COMMENTS",.01)=""
^DD(120.8262,"GL",0,1,.01)=""
^DD(120.8299,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(120.8299,0,"DT")="3050303"
^DD(120.8299,0,"IX","B",120.8299,.01)=""
^DD(120.8299,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(120.8299,0,"UP")="120.82"
^DD(120.8299,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(120.8299,.01,1,0)="^.1"
^DD(120.8299,.01,1,1,0)="120.8299^B"
^DD(120.8299,.01,1,1,1)="S ^GMRD(120.82,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(120.8299,.01,1,1,2)="K ^GMRD(120.82,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(120.8299,.01,1,1,"%D",0)="^^1^1^3050303^"
^DD(120.8299,.01,1,1,"%D",1,0)="Cross-referenced by Effective Date/Time"
^DD(120.8299,.01,9)="^"
^DD(120.8299,.01,21,0)="^.001^2^2^3050509^^^^"
^DD(120.8299,.01,21,1,0)="This is the date/time when the Status of the reference term"
^DD(120.8299,.01,21,2,0)="was established."
^DD(120.8299,.01,"DT")="3050303"
^DD(120.8299,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(120.8299,.02,9)="^"
^DD(120.8299,.02,21,0)="^^4^4^3050303^"
^DD(120.8299,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'.  If"
^DD(120.8299,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to"
^DD(120.8299,.02,21,3,0)="document a particular patient event.  If 'INACTIVE', then the term"
^DD(120.8299,.02,21,4,0)="will only be accessible by the application to display legacy data."
^DD(120.8299,.02,"DT")="3050303"
^DD(120.8299,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(120.8299,"B","STATUS",.02)=""
^DD(120.8299,"GL",0,1,.01)=""
^DD(120.8299,"GL",0,2,.02)=""
^DD(120.8299,"IX",.01)=""
^DD(120.8299,"RQ",.01)=""
^DD(120.8299,"RQ",.02)=""
^DD(120.83,0)="FIELD^^99.991^6"
^DD(120.83,0,"DDA")="N"
^DD(120.83,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(120.83,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(120.83,0,"IX","AVUID",120.83,99.99)=""
^DD(120.83,0,"IX","B",120.83,.01)=""
^DD(120.83,0,"IX","D",120.832,.01)=""
^DD(120.83,0,"NM","SIGN/SYMPTOMS")=""
^DD(120.83,0,"PT",120.81,.01)=""
^DD(120.83,0,"PT",120.841,.01)=""
^DD(120.83,0,"PT",120.8502,.01)=""
^DD(120.83,0,"VR")="4.0"
^DD(120.83,0,"VRPK")="ADVERSE REACTION TRACKING"
^DD(120.83,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(120.83,.01,1,0)="^.1"
^DD(120.83,.01,1,1,0)="120.83^B"
^DD(120.83,.01,1,1,1)="S ^GMRD(120.83,""B"",$E(X,1,30),DA)="""""
^DD(120.83,.01,1,1,2)="K ^GMRD(120.83,""B"",$E(X,1,30),DA)"
^DD(120.83,.01,3)="Answer must be 3-30 characters in length."
^DD(120.83,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(120.83,.01,9)="^"
^DD(120.83,.01,21,0)="^^1^1^2910801^^^"
^DD(120.83,.01,21,1,0)="A sign/symptom that can be associated with an allergy."
^DD(120.83,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.83,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(120.83,1,0)="NATIONAL SIGN/SYMPTOM^SX^1:NATIONAL SIGN/SYMPTOM;^0;2^Q"
^DD(120.83,1,8.5)="^"
^DD(120.83,1,9)="^"
^DD(120.83,1,21,0)="^^2^2^2911106^^^^"
^DD(120.83,1,21,1,0)="Indicates whether this sign/symptom has been released with the national"
^DD(120.83,1,21,2,0)="package or has been added locally."
^DD(120.83,1,"DT")="2911106"
^DD(120.83,2,0)="SYNONYM^120.832^^2;0"
^DD(120.83,2,9)="^"
^DD(120.83,2,21,0)="^^1^1^2930824^^"
^DD(120.83,2,21,1,0)="A list of synonyms that can also be used to look up this sign/symptom."
^DD(120.83,2,"DT")="2920624"
^DD(120.83,99.98,0)="MASTER ENTRY FOR VUID^RSI^1:YES;0:NO;^VUID;2^Q"
^DD(120.83,99.98,9)="^"
^DD(120.83,99.98,21,0)="^.001^2^2^3050314^^^"
^DD(120.83,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with"
^DD(120.83,99.98,21,2,0)="a Term/Concept."
^DD(120.83,99.98,"DT")="3050311"
^DD(120.83,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(120.83,99.99,1,0)="^.1"
^DD(120.83,99.99,1,1,0)="120.83^AVUID"
^DD(120.83,99.99,1,1,1)="S ^GMRD(120.83,""AVUID"",$E(X,1,30),DA)="""""
^DD(120.83,99.99,1,1,2)="K ^GMRD(120.83,""AVUID"",$E(X,1,30),DA)"
^DD(120.83,99.99,1,1,"%D",0)="^^1^1^3050304^"
^DD(120.83,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(120.83,99.99,1,1,"DT")="3050304"
^DD(120.83,99.99,3)="Answer must be 1-20 digits in length."
^DD(120.83,99.99,9)="^"
^DD(120.83,99.99,21,0)="^.001^2^2^3050314^^^^"
^DD(120.83,99.99,21,1,0)="VHA Unique ID (VUID).  A unique meaningless integer assigned to"
^DD(120.83,99.99,21,2,0)="reference terms VHA wide."
^DD(120.83,99.99,"DT")="3050311"
^DD(120.83,99.991,0)="EFFECTIVE DATE/TIME^120.8399DA^^TERMSTATUS;0"
^DD(120.83,99.991,21,0)="^^2^2^3050310^"
^DD(120.83,99.991,21,1,0)="Describes the pair status and effective date/time for each"
^DD(120.83,99.991,21,2,0)="reference term."
^DD(120.83,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(120.83,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(120.83,"B","NAME",.01)=""
^DD(120.83,"B","NATIONAL SIGN/SYMPTOM",1)=""
^DD(120.83,"B","SYNONYM",2)=""
^DD(120.83,"B","VUID",99.99)=""
^DD(120.83,"GL",0,1,.01)=""
^DD(120.83,"GL",0,2,1)=""
^DD(120.83,"GL",2,0,2)=""
^DD(120.83,"GL","TERMSTATUS",0,99.991)=""
^DD(120.83,"GL","VUID",1,99.99)=""
^DD(120.83,"GL","VUID",2,99.98)=""
^DD(120.83,"IX",.01)=""
^DD(120.83,"IX",99.99)=""
^DD(120.83,"RQ",.01)=""
^DD(120.83,"RQ",99.98)=""
^DD(120.83,"RQ",99.99)=""
^DD(120.83,"SB",120.832,2)=""
^DD(120.83,"SB",120.8399,99.991)=""
^DD(120.831,.01,9)="^"
^DD(120.831,.02,9)="^"
^DD(120.832,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(120.832,0,"IX","B",120.832,.01)=""
^DD(120.832,0,"NM","SYNONYM")=""
^DD(120.832,0,"UP")="120.83"
^DD(120.832,.01,0)="SYNONYM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(120.832,.01,1,0)="^.1"
^DD(120.832,.01,1,1,0)="120.832^B"
^DD(120.832,.01,1,1,1)="S ^GMRD(120.83,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(120.832,.01,1,1,2)="K ^GMRD(120.83,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(120.832,.01,1,2,0)="120.83^D"
^DD(120.832,.01,1,2,1)="S ^GMRD(120.83,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(120.832,.01,1,2,2)="K ^GMRD(120.83,""D"",$E(X,1,30),DA(1),DA)"
^DD(120.832,.01,1,2,"DT")="2920624"
^DD(120.832,.01,3)="Answer must be 2-30 characters in length."
^DD(120.832,.01,21,0)="^^1^1^2930603^^"
^DD(120.832,.01,21,1,0)="This field indicates a synonym for this entry."
^DD(120.832,.01,"DT")="2920624"
^DD(120.832,"B","SYNONYM",.01)=""
^DD(120.832,"GL",0,1,.01)=""
^DD(120.832,"IX",.01)=""
^DD(120.8399,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(120.8399,0,"DT")="3050310"
^DD(120.8399,0,"IX","B",120.8399,.01)=""
^DD(120.8399,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(120.8399,0,"UP")="120.83"
^DD(120.8399,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(120.8399,.01,1,0)="^.1"
^DD(120.8399,.01,1,1,0)="120.8399^B"
^DD(120.8399,.01,1,1,1)="S ^GMRD(120.83,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(120.8399,.01,1,1,2)="K ^GMRD(120.83,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(120.8399,.01,9)="^"
^DD(120.8399,.01,21,0)="^.001^2^2^3050310^^^"
^DD(120.8399,.01,21,1,0)="This is the date/time when the status of the reference term was"
^DD(120.8399,.01,21,2,0)="established"
^DD(120.8399,.01,"DT")="3050310"
^DD(120.8399,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(120.8399,.02,9)="^"
^DD(120.8399,.02,21,0)="^.001^4^4^3050310^^"
^DD(120.8399,.02,21,1,0)="The status of a reference term is either 'ACTIVE' or 'INACTIVE'.  If"
^DD(120.8399,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to "
^DD(120.8399,.02,21,3,0)="document a particular patient event.  If 'INACTIVE', then the term will"
^DD(120.8399,.02,21,4,0)="only be accessible by the application to display legacy data."
^DD(120.8399,.02,"DT")="3050310"
^DD(120.8399,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(120.8399,"B","STATUS",.02)=""
^DD(120.8399,"GL",0,1,.01)=""
^DD(120.8399,"GL",0,2,.02)=""
^DD(120.8399,"IX",.01)=""
^DD(120.8399,"RQ",.01)=""
^DD(120.8399,"RQ",.02)=""
^DD(120.84,0)="FIELD^^21^30"
^DD(120.84,0,"DDA")="N"
^DD(120.84,0,"DT")="2951017"
^DD(120.84,0,"IX","B",120.84,.01)=""
^DD(120.84,0,"IX","SITE",120.846,.01)=""
^DD(120.84,0,"NM","GMR ALLERGY SITE PARAMETERS")=""
^DD(120.84,0,"VR")="4.0"
^DD(120.84,0,"VRPK")="ADVERSE REACTION TRACKING"
^DD(120.84,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(120.84,.01,1,0)="^.1"
^DD(120.84,.01,1,1,0)="120.84^B"
^DD(120.84,.01,1,1,1)="S ^GMRD(120.84,""B"",$E(X,1,30),DA)="""""
^DD(120.84,.01,1,1,2)="K ^GMRD(120.84,""B"",$E(X,1,30),DA)"
^DD(120.84,.01,3)="Answer must be 3-30 characters in length."
^DD(120.84,.01,21,0)="^^3^3^2930921^^^^"
^DD(120.84,.01,21,1,0)="This field is the name of this set of parameters.  The name of the base"
^DD(120.84,.01,21,2,0)="set that is sent out is ""HOSPITAL"".  The code will work more efficiently"
^DD(120.84,.01,21,3,0)="if the name of the base set of parameters is not changed from ""HOSPITAL""."
^DD(120.84,.01,"DT")="2911106"
^DD(120.84,.01,"LAYGO",1,0)="D:$O(^GMRD(120.84,""B"",X,0)) EN^DDIOL(""CANNOT ADD DUPLICATE ENTRIES."","""",""!!"") I '$O(^GMRD(120.84,""B"",X,0))"
^DD(120.84,1,0)="TOP 10 REACTIONS^120.841IP^^1;0"
^DD(120.84,1,21,0)="^^3^3^2910828^^^^"
^DD(120.84,1,21,1,0)="A list of reactions for the user to choose from when selecting reactions"
^DD(120.84,1,21,2,0)="for a patient allergy/adverse reactions.  These will be the ten most"
^DD(120.84,1,21,3,0)="common reactions, and modifiable by the site."
^DD(120.84,2,0)="AUTOVERIFY FOOD/DRUG/OTHER^S^0:NO AUTOVERIFY;1:AUTOVERIFY DRUG ONLY;2:AUTOVERIFY FOOD ONLY;3:AUTOVERIFY DRUG/FOOD;4:AUTOVERIFY OTHER ONLY;5:AUTOVERIFY DRUG/OTHER;6:AUTOVERIFY FOOD/OTHER;7:AUTOVERIFY ALL;^0;2^Q"
^DD(120.84,2,21,0)="^^2^2^2910627^^^^"
^DD(120.84,2,21,1,0)="This field determines which types of allergies a site wants autoverified"
^DD(120.84,2,21,2,0)="at the user sign off."
^DD(120.84,2,"DT")="2910626"
^DD(120.84,3,0)="AUTOVERIFY OBSERVED/HISTORICAL^S^0:NO AUTOVERIFY;1:AUTOVERIFY HISTORICAL ONLY;2:AUTOVERIFY OBSERVED ONLY;3:AUTOVERIFY BOTH;^0;3^Q"
^DD(120.84,3,21,0)="^^2^2^2920325^^"
^DD(120.84,3,21,1,0)="This field is configurable by the site to allow autoverification of"
^DD(120.84,3,21,2,0)="observed or historical allergies."
^DD(120.84,3,"DT")="2910626"
^DD(120.84,3.5,0)="AUTOVERIFY LOGICAL OPERATOR^S^!:OR;&:AND;^0;6^Q"
^DD(120.84,3.5,21,0)="^^23^23^2930824^"
^DD(120.84,3.5,21,1,0)="This field will determine how the Autoverify Food/Drug/Other and"
^DD(120.84,3.5,21,2,0)="Autoverify Observed/Historical parameters relate to each other.  OR means"
^DD(120.84,3.5,21,3,0)="that the reaction will be autoverified if it meets the criteria of one of"
^DD(120.84,3.5,21,4,0)="the two parameters, while AND means the reaction will be autoverified only"
^DD(120.84,3.5,21,5,0)="if it meets the criteria of both parameters.  If this field is left null,"
^DD(120.84,3.5,21,6,0)="the OR condition will be used."
^DD(120.84,3.5,21,7,0)=" "
^DD(120.84,3.5,21,8,0)="For example, if you want to verify only observed drug reactions, you would"
^DD(120.84,3.5,21,9,0)="set the Autoverify Food/Drug/Other parameter to AUTOVERIFY FOOD/OTHER"
^DD(120.84,3.5,21,10,0)="and the Autoverify Observed/Historical to AUTOVERIFY HISTORICAL ONLY"
^DD(120.84,3.5,21,11,0)=", and the"
^DD(120.84,3.5,21,12,0)="Autoverify Logical Operator to OR.  This means that a reaction that has"
^DD(120.84,3.5,21,13,0)="a type of Food/Other OR is Historical will be autoverified, thus leaving"
^DD(120.84,3.5,21,14,0)="observed drug reactions to be verified."
^DD(120.84,3.5,21,15,0)=" "
^DD(120.84,3.5,21,16,0)="Another example would be if you wanted to verify all observed reactions"
^DD(120.84,3.5,21,17,0)="and all drug reactions whether observed or historical.  The parameters"
^DD(120.84,3.5,21,18,0)="should be set accordingly:  Autoverify Food/Drug/Other to AUTOVERIFY"
^DD(120.84,3.5,21,19,0)="FOOD/OTHER, Autoverify Observed/Historical to AUTOVERIFY HISTORICAL ONLY"
^DD(120.84,3.5,21,20,0)=" and"
^DD(120.84,3.5,21,21,0)="Autoverify Logical Operator to AND.  In this case to be autoverifed, a"
^DD(120.84,3.5,21,22,0)="reaction has to have a type of Food/Other AND it must be Historical, all"
^DD(120.84,3.5,21,23,0)="other reactions will need to be verified."
^DD(120.84,3.5,"DT")="2920930"
^DD(120.84,4,0)="REQUIRE ORIGINATOR COMMENTS^S^0:NO;1:YES;^0;4^Q"
^DD(120.84,4,21,0)="^^2^2^2960613^"
^DD(120.84,4,21,1,0)="This field indicates whether the originator will be required to enter"
^DD(120.84,4,21,2,0)="comments for an OBSERVED reaction."
^DD(120.84,4,"DT")="2910726"
^DD(120.84,5,0)="*LAST DFN CONVERTED^NJ8,0^^CONV;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.84,5,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(120.84,5,8)="^"
^DD(120.84,5,8.5)="^"
^DD(120.84,5,9)="^"
^DD(120.84,5,21,0)="^^4^4^2911106^"
^DD(120.84,5,21,1,0)="The data in this field is the entry number of the Patient file record"
^DD(120.84,5,21,2,0)="whose data was last converted by the Patient file data conversion.  This"
^DD(120.84,5,21,3,0)="field will be 0 before the conversion begins and after the conversion"
^DD(120.84,5,21,4,0)="is over."
^DD(120.84,5,"DT")="2951212"
^DD(120.84,5.1,0)="*CONVERSION TASK NUMBER^NJ8,0^^CONV;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.84,5.1,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(120.84,5.1,8)="^"
^DD(120.84,5.1,8.5)="^"
^DD(120.84,5.1,9)="^"
^DD(120.84,5.1,21,0)="^^3^3^2911106^"
^DD(120.84,5.1,21,1,0)="This is the TaskMan task number of the Patient file data conversion job."
^DD(120.84,5.1,21,2,0)="The data in this field will be null before the job is queued to run, and"
^DD(120.84,5.1,21,3,0)="after it has finished running."
^DD(120.84,5.1,"DT")="2951212"
^DD(120.84,5.2,0)="*CONVERSION FINISHED^S^0:NO;1:YES;^CONV;3^Q"
^DD(120.84,5.2,8)="^"
^DD(120.84,5.2,8.5)="^"
^DD(120.84,5.2,9)="^"
^DD(120.84,5.2,21,0)="^^4^4^2911106^"
^DD(120.84,5.2,21,1,0)="This field indicates whether the Patient file data conversion has"
^DD(120.84,5.2,21,2,0)="finished running or not.  The data in this field will be 1 if the"
^DD(120.84,5.2,21,3,0)="Patient file data conversion has finished running, or did not need"
^DD(120.84,5.2,21,4,0)="to run."
^DD(120.84,5.2,"DT")="2951212"
^DD(120.84,6,0)="DIVISION^120.846P^^6;0"
^DD(120.84,6,21,0)="^^1^1^2911106^"
^DD(120.84,6,21,1,0)="The divisions associated with this set of site parameters."
^DD(120.84,7,0)="MARK ID BAND FLAG^S^0:NO;1:YES;^0;5^Q"
^DD(120.84,7,21,0)="^^6^6^2930615^^^^"
^DD(120.84,7,21,1,0)="This field is an indicator to denote whether the site wants"
^DD(120.84,7,21,2,0)="to document if the patient ID band should be marked for"
^DD(120.84,7,21,3,0)="a certain allergy."
^DD(120.84,7,21,4,0)="The system will assume the site wants to document the marking of inpatient"
^DD(120.84,7,21,5,0)="ID bands.  If this field is answered NO, the site does not want to"
^DD(120.84,7,21,6,0)="document the marking of inpatient ID bands."
^DD(120.84,7,"DT")="2920610"
^DD(120.84,7.1,0)="METHOD OF NOTIFICATION^S^0:BULLETIN;1:OE/RR TEAMS;2:NO NOTIFICATION;^0;8^Q"
^DD(120.84,7.1,21,0)="^^6^6^2930824^^^"
^DD(120.84,7.1,21,1,0)="This field tells ART if or how the users should be notified for chart"
^DD(120.84,7.1,21,2,0)="or ID band markings.  There are three methods. The first method is the"
^DD(120.84,7.1,21,3,0)="use of BULLETINs,  which is the current way ART works.  The"
^DD(120.84,7.1,21,4,0)="second method is the use of OE/RR Teams.  If this method is used, then"
^DD(120.84,7.1,21,5,0)="you will need to set up different teams for each ward and also assign"
^DD(120.84,7.1,21,6,0)="printers to these teams.  The third method is to turn off the function."
^DD(120.84,7.1,"DT")="2930112"
^DD(120.84,7.2,0)="ALERT ID BAND/CHART MARK^S^1:YES;0:NO;^0;9^Q"
^DD(120.84,7.2,3)="Will turn off/on the alert function of the ID Band/Chart Mark option."
^DD(120.84,7.2,21,0)="^^5^5^2930921^^^^"
^DD(120.84,7.2,21,1,0)="This field is to let the system know if you want to issue alerts "
^DD(120.84,7.2,21,2,0)="if the fields have not been answered in the Enter/Edit Patient Reaction"
^DD(120.84,7.2,21,3,0)="Data portion of the system.  If the field is answered yes(1) or is null"
^DD(120.84,7.2,21,4,0)="then, the system will continue to issue the alerts.  If this field is"
^DD(120.84,7.2,21,5,0)="no(0), then the system will not issue alerts for this record."
^DD(120.84,7.2,"DT")="2930419"
^DD(120.84,7.3,0)="NEW ADMISSION CHART MARK^S^1:YES;0:NO;^0;10^Q"
^DD(120.84,7.3,21,0)="^^2^2^2951017^^"
^DD(120.84,7.3,21,1,0)="This is to indicate if the site wants to send chart mark bulletin"
^DD(120.84,7.3,21,2,0)="for a new admission."
^DD(120.84,7.3,"DT")="2951017"
^DD(120.84,8,0)="*3.0 CONVERSION LAST DFN^NJ11,0^^CONV3;1^K:+X'=X!(X>10000000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.84,8,3)="Type a Number between 0 and 10000000000, 0 Decimal Digits"
^DD(120.84,8,8.5)="^"
^DD(120.84,8,9)="^"
^DD(120.84,8,21,0)="^^2^2^2930824^^^"
^DD(120.84,8,21,1,0)="This field will contain the last field that has been fully"
^DD(120.84,8,21,2,0)="converted. The field is initially set to 0."
^DD(120.84,8,"DT")="2951212"
^DD(120.84,8.1,0)="*3.0 TASK NUMBER^F^^CONV3;2^K:$L(X)>100!($L(X)<1) X"
^DD(120.84,8.1,3)="Answer must be 1-100 characters in length."
^DD(120.84,8.1,8.5)="^"
^DD(120.84,8.1,9)="^"
^DD(120.84,8.1,21,0)="^^3^3^2930824^^^"
^DD(120.84,8.1,21,1,0)="This field is the TaskMan number that was assigned.  In the"
^DD(120.84,8.1,21,2,0)="event that there is a conversion failure this will enable the"
^DD(120.84,8.1,21,3,0)="system to give the programmers the tools to investigate the problem."
^DD(120.84,8.1,"DT")="2951212"
^DD(120.84,8.2,0)="*CONVERSION FINISHED^S^1:YES;0:NO;^CONV3;3^Q"
^DD(120.84,8.2,3)=""
^DD(120.84,8.2,8.5)="^"
^DD(120.84,8.2,9)="^"
^DD(120.84,8.2,21,0)="^^3^3^2930603^^"
^DD(120.84,8.2,21,1,0)="This field indicates whether the V3.0 data structure conversion has"
^DD(120.84,8.2,21,2,0)="finished running.  The data in this field will be 1 if the"
^DD(120.84,8.2,21,3,0)="conversion has finished running or did not need to run."
^DD(120.84,8.2,"DT")="2951212"
^DD(120.84,9,0)="NKA CONVERSION^120.849^^NKA;0"
^DD(120.84,9,8)="^"
^DD(120.84,9,9)="^"
^DD(120.84,9,21,0)="^^2^2^2930426^"
^DD(120.84,9,21,1,0)="This field contains all the entries that are to be converted in the 3.0"
^DD(120.84,9,21,2,0)="NKA conversion."
^DD(120.84,9,"DT")="2921208"
^DD(120.84,10,0)="FDA DATA REQUIRED^S^y:YES;n:NO;^0;7^Q"
^DD(120.84,10,21,0)="^^5^5^2931015^^^^"
^DD(120.84,10,21,1,0)="This field will indicate whether the entry of FDA Data should be required"
^DD(120.84,10,21,2,0)="during the Enter/Edit Patient Reaction Data.  If this field is answered ""YES"","
^DD(120.84,10,21,3,0)="then the user must enter the FDA Data at the time of entering a reaction."
^DD(120.84,10,21,4,0)="If this field is left null or answered ""NO"", then the FDA Data entry will"
^DD(120.84,10,21,5,0)="not be required during the Enter/Edit Patient Reaction Data option."
^DD(120.84,10,"DT")="2921130"
^DD(120.84,10.1,0)="E/E DESCRIPTION ACTIVE^S^1:YES;0:NO;^0;11^Q"
^DD(120.84,10.1,21,0)="^^1^1^2951017^"
^DD(120.84,10.1,21,1,0)="Permit users to indicate why a reaction was Entered in Error."
^DD(120.84,10.1,"DT")="2951017"
^DD(120.84,11,0)="REPORTER NAME^FX^^RPT;1^X ^DD(120.84,11,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X"
^DD(120.84,11,3)="Answer must be 3-30 characters in length."
^DD(120.84,11,4)="N DIC,D,DO S DIC=""^VA(200,"",DIC(0)=""E"",D=""B"",DZ=""?"" D DQ^DICQ Q"
^DD(120.84,11,9.2)="N DIC,DO,DIX,DICR S DIC=200,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) Q:+Y>0  X ^DD(120.84,11,9.3) Q"
^DD(120.84,11,9.3)="F  S GMRAHLPX=""IS ""_X_"" THE NAME YOU WANT TO USE"" D EN^DDIOL(GMRAHLPX,"""",""!?2"") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="""" Q:%  D EN^DDIOL(""ANSWER YES OR NO"","""",""!?5"")"
^DD(120.84,11,21,0)="^^2^2^2930426^"
^DD(120.84,11,21,1,0)="This field would contain the default reporter name to be used on the"
^DD(120.84,11,21,2,0)="FDA reports."
^DD(120.84,11,"DT")="2921201"
^DD(120.84,12,0)="REPORTER ADDRESS1^F^^RPT;2^K:$L(X)>30!($L(X)<3) X"
^DD(120.84,12,3)="Answer must be 3-30 characters in length."
^DD(120.84,12,21,0)="^^2^2^2930426^"
^DD(120.84,12,21,1,0)="This field would contain the first line of the reporter address to"
^DD(120.84,12,21,2,0)="be used as a default for the FDA reports."
^DD(120.84,12,"DT")="2921201"
^DD(120.84,13,0)="REPORTER ADDRESS2^F^^RPT;3^K:$L(X)>30!($L(X)<3) X"
^DD(120.84,13,3)="Answer must be 3-30 characters in length."
^DD(120.84,13,21,0)="^^2^2^2930426^"
^DD(120.84,13,21,1,0)="This field would contain the second line of the reporter address to"
^DD(120.84,13,21,2,0)="be used as the default on the FDA reports."
^DD(120.84,13,"DT")="2921201"
^DD(120.84,14,0)="REPORTER ADDRESS3^F^^RPT;4^K:$L(X)>30!($L(X)<3) X"
^DD(120.84,14,3)="Answer must be 3-30 characters in length."
^DD(120.84,14,21,0)="^^2^2^2930426^"
^DD(120.84,14,21,1,0)="This field would contain the third line of the reporter address to"
^DD(120.84,14,21,2,0)="be used as the default on the FDA reports."
^DD(120.84,14,"DT")="2921201"
^DD(120.84,15,0)="REPORTER CITY^F^^RPT;5^K:$L(X)>30!($L(X)<3) X"
^DD(120.84,15,3)="Answer must be 3-30 characters in length."
^DD(120.84,15,21,0)="^^1^1^2930426^"
^DD(120.84,15,21,1,0)="This field contains the city to be used as the default on the FDA Reports."
^DD(120.84,15,"DT")="2921201"
^DD(120.84,16,0)="REPORTER STATE^P5'^DIC(5,^RPT;6^Q"
^DD(120.84,16,21,0)="^^1^1^2930824^^"
^DD(120.84,16,21,1,0)="This field contains the default state to be used on the FDA reports."
^DD(120.84,16,"DT")="2921201"
^DD(120.84,17,0)="REPORTER ZIP^F^^RPT;7^K:$L(X)>10!($L(X)<5) X"
^DD(120.84,17,3)="Answer must be 5-10 characters in length."
^DD(120.84,17,21,0)="^^1^1^2930426^"
^DD(120.84,17,21,1,0)="This field contain the default Zip Code to be used on the FDA reports."
^DD(120.84,17,"DT")="2921201"
^DD(120.84,18,0)="REPORTER PHONE^F^^RPT;8^K:$L(X)>20!($L(X)<7) X"
^DD(120.84,18,3)="Answer must be 7-20 characters in length."
^DD(120.84,18,21,0)="^^1^1^2930824^^"
^DD(120.84,18,21,1,0)="This field contains the default phone number to be used on the FDA reports."
^DD(120.84,18,"DT")="2921201"
^DD(120.84,19,0)="OCCUPATION^F^^RPT;11^K:$L(X)>30!($L(X)<3) X"
^DD(120.84,19,3)="Answer must be 3-30 characters in length."
^DD(120.84,19,21,0)="^^1^1^2930921^^"
^DD(120.84,19,21,1,0)="This field contains the reporter's occupation."
^DD(120.84,19,"DT")="2930810"
^DD(120.84,21,0)="*CONVERSION OF NKA^S^y:YES;n:NO;^CONNKA;1^Q"
^DD(120.84,21,.1)=""
^DD(120.84,21,21,0)="^^3^3^2931012^^"
^DD(120.84,21,21,1,0)="This field indicates if the NKA conversion is complete.  ATS 3.0 will not"
^DD(120.84,21,21,2,0)="install onto a system that has ATS Version 2.2 if this field is not set."
^DD(120.84,21,21,3,0)=" "
^DD(120.84,21,"DT")="2951212"
^DD(120.84,"B","*3.0 CONVERSION LAST DFN",8)=""
^DD(120.84,"B","*3.0 TASK NUMBER",8.1)=""
^DD(120.84,"B","*CONVERSION FINISHED",5.2)=""
^DD(120.84,"B","*CONVERSION FINISHED",8.2)=""
^DD(120.84,"B","*CONVERSION OF NKA",21)=""
^DD(120.84,"B","*CONVERSION TASK NUMBER",5.1)=""
^DD(120.84,"B","*LAST DFN CONVERTED",5)=""
^DD(120.84,"B","ALERT ID BAND/CHART MARK",7.2)=""
^DD(120.84,"B","AUTOVERIFY FOOD/DRUG/OTHER",2)=""
^DD(120.84,"B","AUTOVERIFY LOGICAL OPERATOR",3.5)=""
^DD(120.84,"B","AUTOVERIFY OBSERVED/HISTORICAL",3)=""
^DD(120.84,"B","DIVISION",6)=""
^DD(120.84,"B","E/E DESCRIPTION ACTIVE",10.1)=""
^DD(120.84,"B","FDA DATA REQUIRED",10)=""
^DD(120.84,"B","MARK ID BAND FLAG",7)=""
^DD(120.84,"B","METHOD OF NOTIFICATION",7.1)=""
^DD(120.84,"B","NAME",.01)=""
^DD(120.84,"B","NEW ADMISSION CHART MARK",7.3)=""
^DD(120.84,"B","NKA CONVERSION",9)=""
^DD(120.84,"B","OCCUPATION",19)=""
^DD(120.84,"B","REPORTER ADDRESS1",12)=""
^DD(120.84,"B","REPORTER ADDRESS2",13)=""
^DD(120.84,"B","REPORTER ADDRESS3",14)=""
^DD(120.84,"B","REPORTER CITY",15)=""
^DD(120.84,"B","REPORTER NAME",11)=""
^DD(120.84,"B","REPORTER PHONE",18)=""
^DD(120.84,"B","REPORTER STATE",16)=""
^DD(120.84,"B","REPORTER ZIP",17)=""
^DD(120.84,"B","REQUIRE ORIGINATOR COMMENTS",4)=""
^DD(120.84,"B","TOP 10 REACTIONS",1)=""
^DD(120.84,"GL",0,1,.01)=""
^DD(120.84,"GL",0,2,2)=""
^DD(120.84,"GL",0,3,3)=""
^DD(120.84,"GL",0,4,4)=""
^DD(120.84,"GL",0,5,7)=""
^DD(120.84,"GL",0,6,3.5)=""
^DD(120.84,"GL",0,7,10)=""
^DD(120.84,"GL",0,8,7.1)=""
^DD(120.84,"GL",0,9,7.2)=""
^DD(120.84,"GL",0,10,7.3)=""
^DD(120.84,"GL",0,11,10.1)=""
^DD(120.84,"GL",1,0,1)=""
^DD(120.84,"GL",6,0,6)=""
^DD(120.84,"GL","CONNKA",1,21)=""
^DD(120.84,"GL","CONV",1,5)=""
^DD(120.84,"GL","CONV",2,5.1)=""
^DD(120.84,"GL","CONV",3,5.2)=""
^DD(120.84,"GL","CONV3",1,8)=""
^DD(120.84,"GL","CONV3",2,8.1)=""
^DD(120.84,"GL","CONV3",3,8.2)=""
^DD(120.84,"GL","NKA",0,9)=""
^DD(120.84,"GL","RPT",1,11)=""
^DD(120.84,"GL","RPT",2,12)=""
^DD(120.84,"GL","RPT",3,13)=""
^DD(120.84,"GL","RPT",4,14)=""
^DD(120.84,"GL","RPT",5,15)=""
^DD(120.84,"GL","RPT",6,16)=""
^DD(120.84,"GL","RPT",7,17)=""
^DD(120.84,"GL","RPT",8,18)=""
^DD(120.84,"GL","RPT",11,19)=""
^DD(120.84,"IX",.01)=""
^DD(120.84,"RQ",.01)=""
^DD(120.84,"SB",120.841,1)=""
^DD(120.84,"SB",120.846,6)=""
^DD(120.84,"SB",120.849,9)=""
^DD(120.841,0)="TOP 10 REACTIONS SUB-FIELD^^.01^1"
^DD(120.841,0,"DT")="3050518"
^DD(120.841,0,"ID","WRITE")="S GMRAHLPX=""    (""_Y_"")"" D EN^DDIOL(GMRAHLPX,"""",""?0"") K GMRAHLPX"
^DD(120.841,0,"IX","B",120.841,.01)=""
^DD(120.841,0,"NM","TOP 10 REACTIONS")=""
^DD(120.841,0,"UP")="120.84"
^DD(120.841,.01,0)="REACTION^M*P120.83'^GMRD(120.83,^0;1^S DIC(""S"")=""I $P(^(0),U)'=""""OTHER REACTION""""&($S($L($T(SCREEN^XTID)):'$$SCREEN^XTID(120.83,.01,Y_"""",""""),1:1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.841,.01,1,0)="^.1"
^DD(120.841,.01,1,1,0)="120.841^B"
^DD(120.841,.01,1,1,1)="S ^GMRD(120.84,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(120.841,.01,1,1,2)="K ^GMRD(120.84,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(120.841,.01,4)="D:DZ=""?"" EN^DDIOL(""One of the ten most commonly selected reactions."","""",""!?5"")"
^DD(120.841,.01,12)="Don't allow inactive sign/symptoms to be chosen"
^DD(120.841,.01,12.1)="S DIC(""S"")=""I $P(^(0),U)'=""""OTHER REACTION""""&($S($L($T(SCREEN^XTID)):'$$SCREEN^XTID(120.83,.01,Y_"""",""""),1:1))"""
^DD(120.841,.01,21,0)="^^1^1^2910828^^^^"
^DD(120.841,.01,21,1,0)="One of the ten most commonly selected reactions."
^DD(120.841,.01,"DEL",1,0)="I 1 D EN^DDIOL(""CANNOT DELETE FROM TOP TEN LIST"","""",""!?4,$C(7)"")"
^DD(120.841,.01,"DT")="3050518"
^DD(120.841,.01,"LAYGO",1,0)="D EN^DDIOL(""CANNOT ADD ENTRIES VIA FILEMAN, SEE THE GMRA SITE FILE EDIT OPTION"","""",""!?4,$C(7)"") I 0"
^DD(120.841,"B","REACTION",.01)=""
^DD(120.841,"GL",0,1,.01)=""
^DD(120.841,"IX",.01)=""
^DD(120.846,0)="DIVISION SUB-FIELD^^.01^1"
^DD(120.846,0,"DT")="2911106"
^DD(120.846,0,"IX","B",120.846,.01)=""
^DD(120.846,0,"NM","DIVISION")=""
^DD(120.846,0,"UP")="120.84"
^DD(120.846,.01,0)="DIVISION^MRP4'^DIC(4,^0;1^Q"
^DD(120.846,.01,1,0)="^.1"
^DD(120.846,.01,1,1,0)="120.846^B"
^DD(120.846,.01,1,1,1)="S ^GMRD(120.84,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(120.846,.01,1,1,2)="K ^GMRD(120.84,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(120.846,.01,1,2,0)="120.84^SITE"
^DD(120.846,.01,1,2,1)="S ^GMRD(120.84,""SITE"",$E(X,1,30),DA(1),DA)="""""
^DD(120.846,.01,1,2,2)="K ^GMRD(120.84,""SITE"",$E(X,1,30),DA(1),DA)"
^DD(120.846,.01,1,2,"DT")="2911106"
^DD(120.846,.01,21,0)="^^2^2^2920325^^"
^DD(120.846,.01,21,1,0)="One of the divisions (institutions) associated with this set of site"
^DD(120.846,.01,21,2,0)="parameters."
^DD(120.846,.01,"DT")="2911106"
^DD(120.846,"B","DIVISION",.01)=""
^DD(120.846,"GL",0,1,.01)=""
^DD(120.846,"IX",.01)=""
^DD(120.846,"RQ",.01)=""
^DD(120.849,0)="NKA CONVERSION SUB-FIELD^^.01^1"
^DD(120.849,0,"DT")="2921124"
^DD(120.849,0,"IX","B",120.849,.01)=""
^DD(120.849,0,"NM","NKA CONVERSION")=""
^DD(120.849,0,"UP")="120.84"
^DD(120.849,.01,0)="*NKA CONVERSION^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(120.849,.01,.1)="NKA CONVERSION"
^DD(120.849,.01,1,0)="^.1"
^DD(120.849,.01,1,1,0)="120.849^B"
^DD(120.849,.01,1,1,1)="S ^GMRD(120.84,DA(1),""NKA"",""B"",$E(X,1,30),DA)="""""
^DD(120.849,.01,1,1,2)="K ^GMRD(120.84,DA(1),""NKA"",""B"",$E(X,1,30),DA)"
^DD(120.849,.01,3)="Answer must be 3-30 characters in length."
^DD(120.849,.01,8)="^"
^DD(120.849,.01,8.5)="^"
^DD(120.849,.01,9)="^"
^DD(120.849,.01,21,0)="^^1^1^2930426^"
^DD(120.849,.01,21,1,0)="This is the entry that represents NKA."
^DD(120.849,.01,"DT")="2921208"
^DD(120.849,"B","*NKA CONVERSION",.01)=""
^DD(120.849,"B","NKA CONVERSION",.01)="1"
^DD(120.849,"GL",0,1,.01)=""
^DD(120.849,"IX",.01)=""
^DD(120.85,0)="FIELD^^65^62"
^DD(120.85,0,"DDA")="N"
^DD(120.85,0,"DT")="2960321"
^DD(120.85,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(120.85,0,"ID",.03)="W """""
^DD(120.85,0,"ID","WRITE")="S GMRAHLPX=$P($G(^(0)),U,15),GMRAHLPX=""   ""_$P($G(^GMR(120.8,+GMRAHLPX,0)),U,2) D EN^DDIOL(GMRAHLPX,"""",""?0"") S GMRAHLPX=$G(@(DIC_Y_"",0)"")) K GMRAHLPX"
^DD(120.85,0,"IX","ARDT",120.85,1.1)=""
^DD(120.85,0,"IX","B",120.85,.01)=""
^DD(120.85,0,"IX","C",120.85,.03)=""
^DD(120.85,0,"IX","D",120.85,.02)=""
^DD(120.85,0,"NM","ADVERSE REACTION REPORTING")=""
^DD(120.85,0,"VR")="4.0"
^DD(120.85,0,"VRPK")="ADVERSE REACTION TRACKING"
^DD(120.85,.01,0)="DATE/TIME OF EVENT^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S GMRA=.01 D EN4^GMRAFUT0"
^DD(120.85,.01,1,0)="^.1"
^DD(120.85,.01,1,1,0)="120.85^B"
^DD(120.85,.01,1,1,1)="S ^GMR(120.85,""B"",$E(X,1,30),DA)="""""
^DD(120.85,.01,1,1,2)="K ^GMR(120.85,""B"",$E(X,1,30),DA)"
^DD(120.85,.01,3)=""
^DD(120.85,.01,21,0)="^^1^1^2951103^^^^"
^DD(120.85,.01,21,1,0)="The date/time that this observed reaction occurred."
^DD(120.85,.01,"DT")="2930618"
^DD(120.85,.02,0)="PATIENT^R*P2'^DPT(^0;2^S DIC(""S"")=""D SCR02^GMRAU85"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.85,.02,1,0)="^.1"
^DD(120.85,.02,1,1,0)="120.85^D"
^DD(120.85,.02,1,1,1)="S ^GMR(120.85,""D"",$E(X,1,30),DA)="""""
^DD(120.85,.02,1,1,2)="K ^GMR(120.85,""D"",$E(X,1,30),DA)"
^DD(120.85,.02,1,1,"DT")="2921015"
^DD(120.85,.02,12)="Select patient for this reaction."
^DD(120.85,.02,12.1)="S DIC(""S"")=""D SCR02^GMRAU85"""
^DD(120.85,.02,21,0)="^^2^2^2930824^^"
^DD(120.85,.02,21,1,0)="This field is the patient to whom this observed reaction occurred."
^DD(120.85,.02,21,2,0)="This field is a pointer to the Patient file."
^DD(120.85,.02,"DT")="2921023"
^DD(120.85,.03,0)="RELATED REACTION^R*P120.8'O^GMR(120.8,^0;15^S DIC(""S"")=""D SCR03^GMRAU85"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(120.85,.03,1,0)="^.1"
^DD(120.85,.03,1,1,0)="120.85^C"
^DD(120.85,.03,1,1,1)="S ^GMR(120.85,""C"",$E(X,1,30),DA)="""""
^DD(120.85,.03,1,1,2)="K ^GMR(120.85,""C"",$E(X,1,30),DA)"
^DD(120.85,.03,1,1,"DT")="2921021"
^DD(120.85,.03,2)="S Y(0)=Y S Y=$P($G(^GMR(120.8,+Y,0)),U,2)"
^DD(120.85,.03,2.1)="S Y=$P($G(^GMR(120.8,+Y,0)),U,2)"
^DD(120.85,.03,12)="Select reaction for this patient."
^DD(120.85,.03,12.1)="S DIC(""S"")=""D SCR03^GMRAU85"""
^DD(120.85,.03,21,0)="^^2^2^2921021^"
^DD(120.85,.03,21,1,0)="This is the related reaction in the Patient Allergies (120.8) file for"
^DD(120.85,.03,21,2,0)="this event."
^DD(120.85,.03,"DT")="2921023"
^DD(120.85,.5,0)="OBSERVER^P200'^VA(200,^0;13^Q"
^DD(120.85,.5,21,0)="^^1^1^2921014^"
^DD(120.85,.5,21,1,0)="This field is the person who witnessed this reaction."
^DD(120.85,.5,"DT")="2920625"
^DD(120.85,1.1,0)="DATE REPORTED^D^^0;18^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(120.85,1.1,1,0)="^.1"
^DD(120.85,1.1,1,1,0)="120.85^ARDT"
^DD(120.85,1.1,1,1,1)="S ^GMR(120.85,""ARDT"",$E(X,1,30),DA)="""""
^DD(120.85,1.1,1,1,2)="K ^GMR(120.85,""ARDT"",$E(X,1,30),DA)"
^DD(120.85,1.1,1,1,"%D",0)="^^2^2^2951130^"
^DD(120.85,1.1,1,1,"%D",1,0)="This cross-reference is to track the date the reaction was entered into"
^DD(120.85,1.1,1,1,"%D",2,0)="the system by the user."
^DD(120.85,1.1,1,1,"DT")="2951130"
^DD(120.85,1.1,21,0)="^^1^1^2951205^"
^DD(120.85,1.1,21,1,0)="This field is to track when a report is entered into this file."
^DD(120.85,1.1,"DT")="2951130"
^DD(120.85,1.2,0)="REPORTING USER^P200'^VA(200,^0;19^Q"
^DD(120.85,1.2,21,0)="^^2^2^2951205^"
^DD(120.85,1.2,21,1,0)="This field is used to track the user who entered the reaction.  It is a"
^DD(120.85,1.2,21,2,0)="pointer to File 200."
^DD(120.85,1.2,"DT")="2951130"
^DD(120.85,2,0)="REACTIONS^120.8502P^^2;0"
^DD(120.85,2,21,0)="^^1^1^2930824^^^"
^DD(120.85,2,21,1,0)="A list of signs/symptoms observed for this reaction."
^DD(120.85,3,0)="SUSPECTED AGENT^120.8503^^3;0"
^DD(120.85,3,21,0)="^^1^1^2921014^^"
^DD(120.85,3,21,1,0)="A list of suspected agents for this observed reaction."
^DD(120.85,4,0)="RELEVANT TEST/LAB DATA^120.8504^^4;0"
^DD(120.85,4,21,0)="^^1^1^2930506^^"
^DD(120.85,4,21,1,0)="A list of all the relevant test/lab data for this observed reaction."
^DD(120.85,4,"DT")="2930506"
^DD(120.85,5,0)="QUESTION #1^S^y:YES;n:NO;^0;3^Q"
^DD(120.85,5,.1)="Patient died?"
^DD(120.85,5,21,0)="^^1^1^2921014^"
^DD(120.85,5,21,1,0)="This field indicates whether or not a patient has died from this reaction."
^DD(120.85,5,"DT")="2920616"
^DD(120.85,6,0)="QUESTION #2^S^y:YES;n:NO;^0;4^Q"
^DD(120.85,6,.1)="Reaction treated with RX drug?"
^DD(120.85,6,3)=""
^DD(120.85,6,21,0)="^^2^2^2921014^"
^DD(120.85,6,21,1,0)="This field indicates whether or not a patient was treated with a RX drug"
^DD(120.85,6,21,2,0)="for this reaction."
^DD(120.85,7,0)="QUESTION #3^S^y:YES;n:NO;^0;5^Q"
^DD(120.85,7,.1)="Life Threatening illness?"
^DD(120.85,7,3)=""
^DD(120.85,7,21,0)="^^2^2^2930824^^^"
^DD(120.85,7,21,1,0)="This field indicates whether or not the reaction caused a life threatening"
^DD(120.85,7,21,2,0)="illness."
^DD(120.85,8,0)="QUESTION #4^S^y:YES;n:NO;^0;6^Q"
^DD(120.85,8,.1)="Required ER/MD visit?"
^DD(120.85,8,3)=""
^DD(120.85,8,21,0)="^^2^2^2921014^"
^DD(120.85,8,21,1,0)="This field indicates whether or not the patient had to visit a doctor or"
^DD(120.85,8,21,2,0)="an ER because of this reaction."
^DD(120.85,9,0)="QUESTION #5^S^y:YES;n:NO;^0;7^Q"
^DD(120.85,9,.1)="Required hospitalization?"
^DD(120.85,9,3)=""
^DD(120.85,9,21,0)="^^1^1^2921014^"
^DD(120.85,9,21,1,0)="This field indicates whether this reaction required hospitalization."
^DD(120.85,9.1,0)="NO. DAY HOSPITALIZED^NJ6,0^^0;8^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.85,9.1,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(120.85,9.1,21,0)="^^2^2^2930603^^"
^DD(120.85,9.1,21,1,0)="This field shows the number of days the patient was hospitalized because"
^DD(120.85,9.1,21,2,0)="of the reaction."
^DD(120.85,9.1,"DT")="2920616"
^DD(120.85,10,0)="QUESTION #6^S^y:YES;n:NO;^0;9^Q"
^DD(120.85,10,.1)="Prolonged Hospitalization?"
^DD(120.85,10,21,0)="^^2^2^2930921^^^"
^DD(120.85,10,21,1,0)="This field indicates if the patient had a prolonged hospitalization"
^DD(120.85,10,21,2,0)="because of the reaction."
^DD(120.85,10,"DT")="2920616"
^DD(120.85,11,0)="QUESTION #7^S^y:YES;n:NO;^0;10^Q"
^DD(120.85,11,.1)="Resulted in permanent disability?"
^DD(120.85,11,3)=""
^DD(120.85,11,21,0)="^^2^2^2921014^"
^DD(120.85,11,21,1,0)="This field indicates whether or not the patient had some sort of"
^DD(120.85,11,21,2,0)="permanent disability as a result of this reaction."
^DD(120.85,12,0)="QUESTION #8^S^y:YES;n:NO;^0;11^Q"
^DD(120.85,12,.1)="Patient recovered?"
^DD(120.85,12,3)=""
^DD(120.85,12,21,0)="^^2^2^2921014^"
^DD(120.85,12,21,1,0)="This field indicates whether the patient recovered from any illness that"
^DD(120.85,12,21,2,0)="may have resulted from the reaction."
^DD(120.85,12.1,0)="QUESTION #9^S^y:YES;n:NO;^0;16^Q"
^DD(120.85,12.1,.1)="Is this event a Congenital Anomaly?"
^DD(120.85,12.1,21,0)="^^1^1^2930817^"
^DD(120.85,12.1,21,1,0)="This field is to find out if the observed reaction was a Congenital Anomaly."
^DD(120.85,12.1,"DT")="2930817"
^DD(120.85,12.2,0)="QUESTION #10^S^y:YES;n:NO;^0;17^Q"
^DD(120.85,12.2,.1)="Did this event require intervention to prevent impairment/damage?"
^DD(120.85,12.2,3)=""
^DD(120.85,12.2,21,0)="^^1^1^2930817^"
^DD(120.85,12.2,21,1,0)="This field is to find out if this event required any intervention."
^DD(120.85,12.2,"DT")="2930921"
^DD(120.85,13,0)="CONCOMITANT DRUGS^120.8513^^13;0"
^DD(120.85,13,21,0)="^^1^1^2930824^^^"
^DD(120.85,13,21,1,0)="A list of all drugs that may have been taken at the time of the reaction."
^DD(120.85,14,0)="OTHER RELATED HISTORY^120.8514^^14;0"
^DD(120.85,14,21,0)="^^1^1^2921015^"
^DD(120.85,14,21,1,0)="This field contains any other related event history for this reaction."
^DD(120.85,14.5,0)="SEVERITY^S^1:MILD;2:MODERATE;3:SEVERE;^0;14^Q"
^DD(120.85,14.5,4)="D EN1^GMRAHUT0"
^DD(120.85,14.5,21,0)="^^1^1^2931013^^^"
^DD(120.85,14.5,21,1,0)="This field indicates the severity of this reaction."
^DD(120.85,14.5,"DT")="2920701"
^DD(120.85,22,0)="DATE MD NOTIFIED^DX^^0;12^S GMRA=22 D EN4^GMRAFUT0"
^DD(120.85,22,21,0)="^^1^1^2921015^"
^DD(120.85,22,21,1,0)="This field contains the date the doctor was notified of this reaction."
^DD(120.85,22,"DT")="2930615"
^DD(120.85,23,0)="FDA QUESTION #1^S^y:YES;n:NO;^PTC1;1^Q"
^DD(120.85,23,.1)="Serious ADR?"
^DD(120.85,23,21,0)="^^1^1^2921015^"
^DD(120.85,23,21,1,0)="This field determines if the reaction is considered serious."
^DD(120.85,23,"DT")="2920616"
^DD(120.85,24,0)="FDA QUESTION #2^S^y:YES;n:NO;^PTC1;2^Q"
^DD(120.85,24,.1)="ADR related to new drug? (Marketed within the last 2 yrs.)"
^DD(120.85,24,3)=""
^DD(120.85,24,21,0)="^^1^1^2930603^^"
^DD(120.85,24,21,1,0)="This question determines whether this reaction is related to a new drug."
^DD(120.85,24,"DT")="2960201"
^DD(120.85,25,0)="FDA QUESTION #3^S^y:YES;n:NO;^PTC1;3^Q"
^DD(120.85,25,.1)="Unexpected ADR?"
^DD(120.85,25,3)=""
^DD(120.85,25,21,0)="^^2^2^2930824^^"
^DD(120.85,25,21,1,0)="This question determines whether this reaction was an unexpected reaction"
^DD(120.85,25,21,2,0)="for this drug."
^DD(120.85,26,0)="FDA QUESTION #4^S^y:YES;n:NO;^PTC1;4^Q"
^DD(120.85,26,.1)="ADR related to therapeutic failure?"
^DD(120.85,26,3)=""
^DD(120.85,26,21,0)="^^2^2^2930506^^"
^DD(120.85,26,21,1,0)="This question determines whether this reaction is related to a"
^DD(120.85,26,21,2,0)="therapeutic failure of the drug."
^DD(120.85,26,"DT")="2920624"
^DD(120.85,26.1,0)="FDA QUESTION #5^S^y:YES;n:NO;^PTC1;13^Q"
^DD(120.85,26.1,.1)="Dose related?"
^DD(120.85,26.1,21,0)="^^1^1^2951130^"
^DD(120.85,26.1,21,1,0)="This field is to track if the reaction was a dose related reaction."
^DD(120.85,26.1,"DT")="2951130"
^DD(120.85,27,0)="DATE REPORTED TO FDA^DX^^PTC1;5^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.85,27,21,0)="^^1^1^2930921^^^^"
^DD(120.85,27,21,1,0)="This field contains the date on which the FDA was sent the ADR report."
^DD(120.85,27,"DT")="2930512"
^DD(120.85,28,0)="DATE OF PATIENT CONSENT TO MFR^DX^^PTC1;6^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.85,28,3)=""
^DD(120.85,28,21,0)="^^2^2^2930603^^"
^DD(120.85,28,21,1,0)="This field is the date the patient had given his consent to have the"
^DD(120.85,28,21,2,0)="reaction reported to the manufacturer."
^DD(120.85,29,0)="DATE SENT TO MFR^DX^^PTC1;7^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.85,29,3)=""
^DD(120.85,29,21,0)="^^1^1^2920624^"
^DD(120.85,29,21,1,0)=" This is the date when the report was sent to the manufacturer."
^DD(120.85,30,0)="*DATE SENT TO RCPM^DX^^PTC1;8^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.85,30,3)=""
^DD(120.85,30,21,0)="^^1^1^2960213^^"
^DD(120.85,30,21,1,0)="This is the date when the report was sent to the regional offices."
^DD(120.85,30,"DT")="2960213"
^DD(120.85,31,0)="DATE SENT TO VAERS^DX^^PTC1;9^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:X<1 X"
^DD(120.85,31,21,0)="^^1^1^2931012^"
^DD(120.85,31,21,1,0)="This field is the date when the report was sent to the VAERS."
^DD(120.85,31,"DT")="2931012"
^DD(120.85,31.1,0)="P&T ACTION FDA REPORT^S^y:YES;n:NO;^PTC1;10^Q"
^DD(120.85,31.1,21,0)="^^2^2^2930824^^^"
^DD(120.85,31.1,21,1,0)="This field indicates if the P&T committee determined whether to send"
^DD(120.85,31.1,21,2,0)="the report to FDA."
^DD(120.85,31.1,"DT")="2920629"
^DD(120.85,31.2,0)="P&T ACTION MFR REPORT^S^y:YES;n:NO;^PTC1;11^Q"
^DD(120.85,31.2,3)=""
^DD(120.85,31.2,21,0)="^^2^2^2930824^^^"
^DD(120.85,31.2,21,1,0)="This field tells if the P&T committee determined whether to send the report to"
^DD(120.85,31.2,21,2,0)="the manufacturer."
^DD(120.85,31.3,0)="*P&T ACTION RCPM REPORT^S^y:YES;n:NO;^PTC1;12^Q"
^DD(120.85,31.3,3)=""
^DD(120.85,31.3,21,0)="^^2^2^2960213^^"
^DD(120.85,31.3,21,1,0)="This field determines whether or not the P&T committee will send the"
^DD(120.85,31.3,21,2,0)="report to the regional offices."
^DD(120.85,31.3,"DT")="2960213"
^DD(120.85,31.5,0)="P&T ADDENDUM^120.85315D^^PTC2;0"
^DD(120.85,31.5,21,0)="^^1^1^2921015^"
^DD(120.85,31.5,21,1,0)="List of comments made by the P&T committee."
^DD(120.85,43,0)="REPORTER NAME^FX^^RPT;1^X ^DD(120.85,43,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X"
^DD(120.85,43,3)="Answer must be 3-30 characters in length."
^DD(120.85,43,4)="N DIC,D,DO S DIC=""^VA(200,"",DIC(0)=""E"",D=""B"",DZ=""?"" D DQ^DICQ Q"
^DD(120.85,43,9.2)="N DIC,DO,DIX,DICR S DIC=200,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) Q:+Y>0  X ^DD(120.85,43,9.3) Q"
^DD(120.85,43,9.3)="F  S GMRAHLPX=""IS ""_X_"" THE NAME YOU WANT TO USE"" D EN^DDIOL(GMRAHLPX,"""",""!?2"") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="""" Q:%  D EN^DDIOL(""ANSWER YES OR NO"","""",""!?5"")"
^DD(120.85,43,21,0)="^^1^1^2930603^^"
^DD(120.85,43,21,1,0)="This field contains the name of the person filling out the reports."
^DD(120.85,43,"DT")="2920623"
^DD(120.85,44,0)="REPORTER ADDRESS1^F^^RPT;2^K:$L(X)>30!($L(X)<3) X"
^DD(120.85,44,3)="Answer must be 3-30 characters in length."
^DD(120.85,44,21,0)="^^1^1^2920624^"
^DD(120.85,44,21,1,0)="Line one of the address of the person filling out the report."
^DD(120.85,45,0)="REPORTER ADDRESS2^F^^RPT;3^K:$L(X)>30!($L(X)<3) X"
^DD(120.85,45,3)="Answer must be 3-30 characters in length."
^DD(120.85,45,21,0)="^^1^1^2920624^"
^DD(120.85,45,21,1,0)="Line two of the address of the person filling out the report."
^DD(120.85,46,0)="REPORTER ADDRESS3^F^^RPT;4^K:$L(X)>30!($L(X)<3) X"
^DD(120.85,46,3)="Answer must be 3-30 characters in length."
^DD(120.85,46,21,0)="^^1^1^2920624^"
^DD(120.85,46,21,1,0)="Line three of the address of the person filling out the report."
^DD(120.85,47,0)="REPORTER CITY^F^^RPT;5^K:$L(X)>30!($L(X)<3) X"
^DD(120.85,47,3)="Answer must be 3-30 characters in length."
^DD(120.85,47,21,0)="^^1^1^2920624^"
^DD(120.85,47,21,1,0)="The city where the person lives who is filling out the report."
^DD(120.85,48,0)="REPORTER STATE^P5'^DIC(5,^RPT;6^Q"
^DD(120.85,48,21,0)="^^1^1^2930603^^"
^DD(120.85,48,21,1,0)="The state where the reporter resides."
^DD(120.85,48,"DT")="2920616"
^DD(120.85,49,0)="REPORTER ZIP^F^^RPT;7^K:$L(X)>10!($L(X)<5) X"
^DD(120.85,49,3)="Answer must be 5-10 characters in length."
^DD(120.85,49,21,0)="^^1^1^2930603^^"
^DD(120.85,49,21,1,0)="This is the zip code of the person filling out the report."
^DD(120.85,49,"DT")="2920616"
^DD(120.85,50,0)="REPORTER PHONE^F^^RPT;8^K:$L(X)>20!($L(X)<7) X"
^DD(120.85,50,3)="Answer must be 7-20 characters in length."
^DD(120.85,50,21,0)="^^1^1^2930604^^"
^DD(120.85,50,21,1,0)="This is the phone number of the person who is filling out the report."
^DD(120.85,50,"DT")="2921201"
^DD(120.85,51,0)="RPT QUESTION #1^S^y:YES;n:NO;^RPT;9^Q"
^DD(120.85,51,.1)="IS REPORTER A HEALTH CARE PROVIDER?"
^DD(120.85,51,21,0)="^^1^1^2921015^"
^DD(120.85,51,21,1,0)="This field determines if the reporter is a health care provider."
^DD(120.85,51,"DT")="2920616"
^DD(120.85,52,0)="RPT QUESTION #2^S^y:YES;n:NO;^RPT;10^Q"
^DD(120.85,52,.1)="Do you want the identity disclosed to the manufacturer?"
^DD(120.85,52,21,0)="^^1^1^2930921^^^^"
^DD(120.85,52,21,1,0)="This field determines if the reporter wants to permit the FDA to inform the manufacturer of his identity."
^DD(120.85,52,"DT")="2960201"
^DD(120.85,52.1,0)="OCCUPATION^F^^RPT;11^K:$L(X)>30!($L(X)<3) X"
^DD(120.85,52.1,3)="Answer must be 3-30 characters in length."
^DD(120.85,52.1,21,0)="^^1^1^2960320^"
^DD(120.85,52.1,21,1,0)="This field contains the reporter's current occupation."
^DD(120.85,52.1,"DT")="2930810"
^DD(120.85,53,0)="MANUFACTURER NAME^FX^^MFR1;1^X ^DD(120.85,53,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>25)!($L(X)<2) X"
^DD(120.85,53,3)="Select the manufacturer to be notified. Answer must be 2-25 characters in length."
^DD(120.85,53,4)="N DIC,D,DO S DIC=""^PS(55.95,"",DIC(0)=""E"",D=""B"" D DQ^DICQ"
^DD(120.85,53,9.2)="N DIC,DO,DIX,DICR S DIC=55.95,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) X:+Y'>0 ^DD(120.85,53,9.3) Q"
^DD(120.85,53,9.3)="F  S GMRAHLPX=""IS ""_X_"" THE MANUFACTURER YOU WANT TO USE"" D EN^DDIOL(GMRAHLPX,"""",""!?2"") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="""" Q:%  D EN^DDIOL(""ANSWER YES OR NO"","""",""!?5"")"
^DD(120.85,53,21,0)="^^1^1^2930603^^"
^DD(120.85,53,21,1,0)="This field is the name of the manufacturer of the reactant."
^DD(120.85,53,"DT")="2920623"
^DD(120.85,54,0)="MFR ADDRESS #1^F^^MFR1;2^K:$L(X)>40!($L(X)<3) X"
^DD(120.85,54,3)="Answer must be 3-40 characters in length."
^DD(120.85,54,21,0)="^^1^1^2920624^"
^DD(120.85,54,21,1,0)="This is address line one for the manufacturer."
^DD(120.85,54,"DT")="2920617"
^DD(120.85,55,0)="MFR ADDRESS #2^F^^MFR1;3^K:$L(X)>40!($L(X)<3) X"
^DD(120.85,55,3)="Answer must be 3-40 characters in length."
^DD(120.85,55,21,0)="^^1^1^2930603^^"
^DD(120.85,55,21,1,0)="This is address line two for the manufacturer."
^DD(120.85,56,0)="MFR ADDRESS #3^F^^MFR1;4^K:$L(X)>40!($L(X)<3) X"
^DD(120.85,56,3)="Answer must be 3-40 characters in length."
^DD(120.85,56,21,0)="^^1^1^2920624^"
^DD(120.85,56,21,1,0)="This is address line three for the manufacturer."
^DD(120.85,57,0)="MFR CITY^F^^MFR1;5^K:$L(X)>40!($L(X)<3) X"
^DD(120.85,57,3)="Answer must be 3-40 characters in length."
^DD(120.85,57,21,0)="^^1^1^2920624^"
^DD(120.85,57,21,1,0)="This is the city of the manufacturer."
^DD(120.85,58,0)="MFR STATE^P5'^DIC(5,^MFR1;6^Q"
^DD(120.85,58,21,0)="^^1^1^2920624^"
^DD(120.85,58,21,1,0)="This is the state where the manufacturer is located."
^DD(120.85,58,"DT")="2920617"
^DD(120.85,59,0)="MFR ZIP^F^^MFR1;7^K:$L(X)>11!($L(X)<5) X"
^DD(120.85,59,3)="Answer must be 5-11 characters in length."
^DD(120.85,59,21,0)="^^1^1^2960123^^^^"
^DD(120.85,59,21,1,0)="This is the Zip Code of the manufacturer."
^DD(120.85,59,"DT")="2960123"
^DD(120.85,60,0)="IND/NDA # FOR SUPPORT DRUG^F^^MFR2;1^K:$L(X)>30!($L(X)<1) X"
^DD(120.85,60,3)="Answer must be 1-30 characters in length."
^DD(120.85,60,21,0)="^^1^1^2931012^^"
^DD(120.85,60,21,1,0)="This is the IND/NDA # for support drug for the manufacturer."
^DD(120.85,60,"DT")="2920617"
^DD(120.85,61,0)="MFR CONTROL #^F^^MFR2;2^K:$L(X)>30!($L(X)<1) X"
^DD(120.85,61,3)="Answer must be 1-30 characters in length."
^DD(120.85,61,21,0)="^^1^1^2920624^"
^DD(120.85,61,21,1,0)="This is the control number used by the manufacturer."
^DD(120.85,62,0)="DATE RECEIVED BY MFR^DX^^MFR2;3^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.85,62,21,0)="^^1^1^2930506^^"
^DD(120.85,62,21,1,0)="This is the date the report was received by the manufacturer."
^DD(120.85,62,"DT")="2930616"
^DD(120.85,63,0)="REPORT SOURCE^120.8563S^^63;0"
^DD(120.85,63,21,0)="^^2^2^2931012^"
^DD(120.85,63,21,1,0)="This is the source of the report."
^DD(120.85,64,0)="15 DAY REPORT^S^y:YES;n:NO;^MFR2;4^Q"
^DD(120.85,64,21,0)="^^1^1^2930603^^^"
^DD(120.85,64,21,1,0)="This field is to determine if the 15 Day Report has been completed."
^DD(120.85,64,22)=""
^DD(120.85,64,"DT")="2920617"
^DD(120.85,65,0)="REPORT TYPE^S^i:INITIAL;f:FOLLOWUP;^MFR2;5^Q"
^DD(120.85,65,21,0)="^^1^1^2920624^"
^DD(120.85,65,21,1,0)="This is the type of report issued."
^DD(120.85,65,"DT")="2920617"
^DD(120.85,"B","*DATE SENT TO RCPM",30)=""
^DD(120.85,"B","*P&T ACTION RCPM REPORT",31.3)=""
^DD(120.85,"B","15 DAY REPORT",64)=""
^DD(120.85,"B","CONCOMITANT DRUGS",13)=""
^DD(120.85,"B","DATE MD NOTIFIED",22)=""
^DD(120.85,"B","DATE OF PATIENT CONSENT TO MFR",28)=""
^DD(120.85,"B","DATE RECEIVED BY MFR",62)=""
^DD(120.85,"B","DATE REPORTED",1.1)=""
^DD(120.85,"B","DATE REPORTED TO FDA",27)=""
^DD(120.85,"B","DATE SENT TO MFR",29)=""
^DD(120.85,"B","DATE SENT TO VAERS",31)=""
^DD(120.85,"B","DATE/TIME OF EVENT",.01)=""
^DD(120.85,"B","Dose related?",26.1)="1"
^DD(120.85,"B","FDA QUESTION #1",23)=""
^DD(120.85,"B","FDA QUESTION #2",24)=""
^DD(120.85,"B","FDA QUESTION #3",25)=""
^DD(120.85,"B","FDA QUESTION #4",26)=""
^DD(120.85,"B","FDA QUESTION #5",26.1)=""
^DD(120.85,"B","IND/NDA # FOR SUPPORT DRUG",60)=""
^DD(120.85,"B","Life Threatening illness?",7)="1"
^DD(120.85,"B","MANUFACTURER NAME",53)=""
^DD(120.85,"B","MFR ADDRESS #1",54)=""
^DD(120.85,"B","MFR ADDRESS #2",55)=""
^DD(120.85,"B","MFR ADDRESS #3",56)=""
^DD(120.85,"B","MFR CITY",57)=""
^DD(120.85,"B","MFR CONTROL #",61)=""
^DD(120.85,"B","MFR STATE",58)=""
^DD(120.85,"B","MFR ZIP",59)=""
^DD(120.85,"B","NO. DAY HOSPITALIZED",9.1)=""
^DD(120.85,"B","OBSERVER",.5)=""
^DD(120.85,"B","OCCUPATION",52.1)=""
^DD(120.85,"B","OTHER RELATED HISTORY",14)=""
^DD(120.85,"B","P&T ACTION FDA REPORT",31.1)=""
^DD(120.85,"B","P&T ACTION MFR REPORT",31.2)=""
^DD(120.85,"B","P&T ADDENDUM",31.5)=""
^DD(120.85,"B","PATIENT",.02)=""
^DD(120.85,"B","Patient died?",5)="1"
^DD(120.85,"B","Patient recovered?",12)="1"
^DD(120.85,"B","Prolonged Hospitalization?",10)="1"
^DD(120.85,"B","QUESTION #1",5)=""
^DD(120.85,"B","QUESTION #10",12.2)=""
^DD(120.85,"B","QUESTION #2",6)=""
^DD(120.85,"B","QUESTION #3",7)=""
^DD(120.85,"B","QUESTION #4",8)=""
^DD(120.85,"B","QUESTION #5",9)=""
^DD(120.85,"B","QUESTION #6",10)=""
^DD(120.85,"B","QUESTION #7",11)=""
^DD(120.85,"B","QUESTION #8",12)=""
^DD(120.85,"B","QUESTION #9",12.1)=""
^DD(120.85,"B","REACTIONS",2)=""
^DD(120.85,"B","RELATED REACTION",.03)=""
^DD(120.85,"B","RELEVANT TEST/LAB DATA",4)=""
^DD(120.85,"B","REPORT SOURCE",63)=""
^DD(120.85,"B","REPORT TYPE",65)=""
^DD(120.85,"B","REPORTER ADDRESS1",44)=""
^DD(120.85,"B","REPORTER ADDRESS2",45)=""
^DD(120.85,"B","REPORTER ADDRESS3",46)=""
^DD(120.85,"B","REPORTER CITY",47)=""
^DD(120.85,"B","REPORTER NAME",43)=""
^DD(120.85,"B","REPORTER PHONE",50)=""
^DD(120.85,"B","REPORTER STATE",48)=""
^DD(120.85,"B","REPORTER ZIP",49)=""
^DD(120.85,"B","REPORTING USER",1.2)=""
^DD(120.85,"B","RPT QUESTION #1",51)=""
^DD(120.85,"B","RPT QUESTION #2",52)=""
^DD(120.85,"B","Reaction treated with RX drug?",6)="1"
^DD(120.85,"B","Required ER/MD visit?",8)="1"
^DD(120.85,"B","Required hospitalization?",9)="1"
^DD(120.85,"B","SEVERITY",14.5)=""
^DD(120.85,"B","SUSPECTED AGENT",3)=""
^DD(120.85,"B","Serious ADR?",23)="1"
^DD(120.85,"B","Unexpected ADR?",25)="1"
^DD(120.85,"GL",0,1,.01)=""
^DD(120.85,"GL",0,2,.02)=""
^DD(120.85,"GL",0,3,5)=""
^DD(120.85,"GL",0,4,6)=""
^DD(120.85,"GL",0,5,7)=""
^DD(120.85,"GL",0,6,8)=""
^DD(120.85,"GL",0,7,9)=""
^DD(120.85,"GL",0,8,9.1)=""
^DD(120.85,"GL",0,9,10)=""
^DD(120.85,"GL",0,10,11)=""
^DD(120.85,"GL",0,11,12)=""
^DD(120.85,"GL",0,12,22)=""
^DD(120.85,"GL",0,13,.5)=""
^DD(120.85,"GL",0,14,14.5)=""
^DD(120.85,"GL",0,15,.03)=""
^DD(120.85,"GL",0,16,12.1)=""
^DD(120.85,"GL",0,17,12.2)=""
^DD(120.85,"GL",0,18,1.1)=""
^DD(120.85,"GL",0,19,1.2)=""
^DD(120.85,"GL",2,0,2)=""
^DD(120.85,"GL",3,0,3)=""
^DD(120.85,"GL",4,0,4)=""
^DD(120.85,"GL",13,0,13)=""
^DD(120.85,"GL",14,0,14)=""
^DD(120.85,"GL",63,0,63)=""
^DD(120.85,"GL","MFR1",1,53)=""
^DD(120.85,"GL","MFR1",2,54)=""
^DD(120.85,"GL","MFR1",3,55)=""
^DD(120.85,"GL","MFR1",4,56)=""
^DD(120.85,"GL","MFR1",5,57)=""
^DD(120.85,"GL","MFR1",6,58)=""
^DD(120.85,"GL","MFR1",7,59)=""
^DD(120.85,"GL","MFR2",1,60)=""
^DD(120.85,"GL","MFR2",2,61)=""
^DD(120.85,"GL","MFR2",3,62)=""
^DD(120.85,"GL","MFR2",4,64)=""
^DD(120.85,"GL","MFR2",5,65)=""
^DD(120.85,"GL","PTC1",1,23)=""
^DD(120.85,"GL","PTC1",2,24)=""
^DD(120.85,"GL","PTC1",3,25)=""
^DD(120.85,"GL","PTC1",4,26)=""
^DD(120.85,"GL","PTC1",5,27)=""
^DD(120.85,"GL","PTC1",6,28)=""
^DD(120.85,"GL","PTC1",7,29)=""
^DD(120.85,"GL","PTC1",8,30)=""
^DD(120.85,"GL","PTC1",9,31)=""
^DD(120.85,"GL","PTC1",10,31.1)=""
^DD(120.85,"GL","PTC1",11,31.2)=""
^DD(120.85,"GL","PTC1",12,31.3)=""
^DD(120.85,"GL","PTC1",13,26.1)=""
^DD(120.85,"GL","PTC2",0,31.5)=""
^DD(120.85,"GL","RPT",1,43)=""
^DD(120.85,"GL","RPT",2,44)=""
^DD(120.85,"GL","RPT",3,45)=""
^DD(120.85,"GL","RPT",4,46)=""
^DD(120.85,"GL","RPT",5,47)=""
^DD(120.85,"GL","RPT",6,48)=""
^DD(120.85,"GL","RPT",7,49)=""
^DD(120.85,"GL","RPT",8,50)=""
^DD(120.85,"GL","RPT",9,51)=""
^DD(120.85,"GL","RPT",10,52)=""
^DD(120.85,"GL","RPT",11,52.1)=""
^DD(120.85,"IX",.01)=""
^DD(120.85,"IX",.02)=""
^DD(120.85,"IX",.03)=""
^DD(120.85,"IX",1.1)=""
^DD(120.85,"RQ",.01)=""
^DD(120.85,"RQ",.02)=""
^DD(120.85,"RQ",.03)=""
^DD(120.85,"SB",120.8502,2)=""
^DD(120.85,"SB",120.8503,3)=""
^DD(120.85,"SB",120.8504,4)=""
^DD(120.85,"SB",120.8513,13)=""
^DD(120.85,"SB",120.8514,14)=""
^DD(120.85,"SB",120.85315,31.5)=""
^DD(120.85,"SB",120.8563,63)=""
^DD(120.8502,0)="REACTIONS SUB-FIELD^^2^3"
^DD(120.8502,0,"DT")="2921021"
^DD(120.8502,0,"IX","B",120.8502,.01)=""
^DD(120.8502,0,"NM","REACTIONS")=""
^DD(120.8502,0,"UP")="120.85"
^DD(120.8502,.01,0)="REACTIONS^MP120.83'^GMRD(120.83,^0;1^Q"
^DD(120.8502,.01,1,0)="^.1"
^DD(120.8502,.01,1,1,0)="120.8502^B"
^DD(120.8502,.01,1,1,1)="S ^GMR(120.85,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(120.8502,.01,1,1,2)="K ^GMR(120.85,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(120.8502,.01,3)=""
^DD(120.8502,.01,21,0)="^^1^1^2930824^^^"
^DD(120.8502,.01,21,1,0)="One sign/symptom observed for this reaction."
^DD(120.8502,.01,"DT")="2921021"
^DD(120.8502,1,0)="OTHER REACTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(120.8502,1,3)="Answer must be 3-30 characters in length."
^DD(120.8502,1,21,0)="^^3^3^2931012^^^^"
^DD(120.8502,1,21,1,0)="If this sign/symptom cannot be found in the Sign/Symptoms (120.83) file,"
^DD(120.8502,1,21,2,0)="then the free text of what the user typed in will be here, and the"
^DD(120.8502,1,21,3,0)="signs/symptoms of OTHER REACTION will be the value of the REACTIONS field."
^DD(120.8502,1,"DT")="2921021"
^DD(120.8502,2,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(120.8502,2,21,0)="^^1^1^2921021^"
^DD(120.8502,2,21,1,0)="The person who entered this reaction into the system."
^DD(120.8502,2,"DT")="2921021"
^DD(120.8502,"B","ENTERED BY",2)=""
^DD(120.8502,"B","OTHER REACTION",1)=""
^DD(120.8502,"B","REACTIONS",.01)=""
^DD(120.8502,"GL",0,1,.01)=""
^DD(120.8502,"GL",0,2,1)=""
^DD(120.8502,"GL",0,3,2)=""
^DD(120.8502,"IX",.01)=""
^DD(120.8503,0)="SUSPECTED AGENT SUB-FIELD^^17^21"
^DD(120.8503,0,"DT")="2960321"
^DD(120.8503,0,"IX","B",120.8503,.01)=""
^DD(120.8503,0,"NM","SUSPECTED AGENT")=""
^DD(120.8503,0,"UP")="120.85"
^DD(120.8503,.01,0)="SUSPECTED AGENT^MFX^^0;1^X ^DD(120.8503,.01,9.2) D DO^DIC1 K:X?1P.E!(X'?.ANP)!($L(X)>64)!($L(X)<1) X"
^DD(120.8503,.01,1,0)="^.1"
^DD(120.8503,.01,1,1,0)="120.8503^B"
^DD(120.8503,.01,1,1,1)="S ^GMR(120.85,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(120.8503,.01,1,1,2)="K ^GMR(120.85,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(120.8503,.01,1,1,3)="Required Index for Variable Pointer"
^DD(120.8503,.01,3)="Answer must be 1-64 characters in length."
^DD(120.8503,.01,4)="N DIC,D,DO F DIC=""^PSNDF("",""^PSDRUG("" S DIC(0)=""E"",D=""B"",DZ=""?"" K DO D DQ^DICQ"
^DD(120.8503,.01,9.2)="N DIC,DO,DIX,DICR S DIC=50.6,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) Q:+Y>0  X ^DD(120.8503,.01,9.3) Q"
^DD(120.8503,.01,9.3)="S DIC=50,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 S:+Y>0 X=$P(Y,U,2) Q"
^DD(120.8503,.01,21,0)="^^1^1^2930603^^"
^DD(120.8503,.01,21,1,0)="This field indicates one of the suspected agents for this observed reaction."
^DD(120.8503,.01,"DT")="2920622"
^DD(120.8503,1,0)="DAILY DOSE^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(120.8503,1,3)="Answer must be 1-20 characters in length."
^DD(120.8503,1,21,0)="^^1^1^2930603^^"
^DD(120.8503,1,21,1,0)="This field contains the daily dosage for this suspected agent."
^DD(120.8503,1,"DT")="2920616"
^DD(120.8503,1.5,0)="SIG^F^^1;5^K:$L(X)>30!($L(X)<3) X"
^DD(120.8503,1.5,3)="Answer must be 3-30 characters in length."
^DD(120.8503,1.5,21,0)="^^1^1^2960321^^"
^DD(120.8503,1.5,21,1,0)="This file contains the SIG code that indicates how this drug is to be given."
^DD(120.8503,1.5,"DT")="2960321"
^DD(120.8503,2,0)="ROUTE OF ADMINISTRATION^FX^^0;3^X ^DD(120.8503,2,9.2) D DO^DIC1 K:X?1P.E!(X'?.ANP)!($L(X)>45)!($L(X)<1) X Q"
^DD(120.8503,2,3)="Answer must be 1-45 characters in length."
^DD(120.8503,2,4)="N DIC,D,DO S DIC=""^PS(51.2,"",DIC(0)=""EQ"",D=""B"",DZ=""?"" K DO D DQ^DICQ"
^DD(120.8503,2,9.2)="N DIC,DO,DIX,DICR S DIC=51.2,DIC(0)=""EM"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) Q:+Y>0  X ^DD(120.8503,2,9.3) Q"
^DD(120.8503,2,9.3)="F  S GMRAHLPX=""IS ""_X_"" THE ROUTE YOU WANT TO USE"" D EN^DDIOL(GMRAHLPX,"""",""!?2"") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="""" Q:%  D EN^DDIOL(""ANSWER YES OR NO"","""",""!?5"")"
^DD(120.8503,2,21,0)="^^1^1^2921014^"
^DD(120.8503,2,21,1,0)="This is the route of administration for this suspected agent."
^DD(120.8503,2,"DT")="2920623"
^DD(120.8503,3,0)="INDICATIONS FOR USE^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(120.8503,3,3)="Answer must be 3-30 characters in length."
^DD(120.8503,3,21,0)="^^1^1^2930603^^"
^DD(120.8503,3,21,1,0)="This field indicates the reasoning for a particular agent."
^DD(120.8503,3,"DT")="2920616"
^DD(120.8503,4,0)="START DATE OF ADMINISTRATION^DX^^1;1^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.8503,4,21,0)="^^1^1^2921014^"
^DD(120.8503,4,21,1,0)="This field contains the date a patient was first given the suspected agent."
^DD(120.8503,4,"DT")="2920624"
^DD(120.8503,5,0)="STOP DATE OF ADMINISTRATION^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X I $G(X,0) K:X<$P($G(^GMR(120.85,DA(1),3,DA,1)),U) X"
^DD(120.8503,5,3)="This date MUST be after the START DATE OF ADMINISTRATION."
^DD(120.8503,5,21,0)="^^1^1^2960320^^^^"
^DD(120.8503,5,21,1,0)="This field contains the stop date for a suspected agent."
^DD(120.8503,5,"DT")="2960320"
^DD(120.8503,6,0)="DURATION OF ADMINISTRATION^CJ8^^ ; ^S Y(120.8503,6,1)=$S($D(^GMR(120.85,D0,3,D1,1)):^(1),1:"""") S X=$P(Y(120.8503,6,1),U,2),X1=X,X2=$P(Y(120.8503,6,1),U,1),X="""" D:X2 ^%DTC:X1"
^DD(120.8503,6,9)="^"
^DD(120.8503,6,9.01)="578120.8503^4;578120.8503^5"
^DD(120.8503,6,9.1)="#5-#4"
^DD(120.8503,6,21,0)="^^2^2^2921014^"
^DD(120.8503,6,21,1,0)="This field contains the total time the suspected agent was given to a"
^DD(120.8503,6,21,2,0)="patient."
^DD(120.8503,6,"DT")="2920624"
^DD(120.8503,7,0)="MANUFACTURER^FX^^0;7^X ^DD(120.8503,7,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>25)!($L(X)<2) X"
^DD(120.8503,7,3)="Answer must be 2-25 characters in length."
^DD(120.8503,7,4)="N DIC,D,DO S DIC=""^PS(55.95,"",DIC(0)=""EQ"",D=""B"",DZ=""??"" D DQ^DICQ"
^DD(120.8503,7,9.2)="N DIC,DIX,DO,DICR S DIC=55.95,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) X:+Y'>0 ^DD(120.8503,7,9.3) Q"
^DD(120.8503,7,9.3)="F  S GMRAHLPX=""IS ""_X_"" THE MANUFACTURER YOU WANT TO USE"" D EN^DDIOL(GMRAHLPX,"""",""!?2"") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="""" Q:%  D EN^DDIOL(""ANSWER YES OR NO"","""",""!?5"")"
^DD(120.8503,7,21,0)="^^1^1^2921014^"
^DD(120.8503,7,21,1,0)="This field contains the name of the manufacturer of the suspected agent."
^DD(120.8503,7,"DT")="2920623"
^DD(120.8503,8,0)="LOT #^F^^0;8^K:$L(X)>30!($L(X)<2) X"
^DD(120.8503,8,3)="Answer must be 2-30 characters in length."
^DD(120.8503,8,21,0)="^^1^1^2920624^"
^DD(120.8503,8,21,1,0)="This field contains the lot # for a suspected agent."
^DD(120.8503,8,"DT")="2920616"
^DD(120.8503,9,0)="NUMBER OF PREVIOUS DOSES^NJ9,0^^0;9^K:+X'=X!(X>100000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(120.8503,9,3)="Type a Number between 0 and 100000000, 0 Decimal Digits"
^DD(120.8503,9,21,0)="^^2^2^2921014^"
^DD(120.8503,9,21,1,0)="This field contains the total number of doses of this suspected agent that"
^DD(120.8503,9,21,2,0)="were given to the patient prior to the reaction."
^DD(120.8503,9,"DT")="2921023"
^DD(120.8503,10,0)="LAST FILL DT^DX^^0;10^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.8503,10,21,0)="^^1^1^2930426^"
^DD(120.8503,10,21,1,0)="This field is the date that this agent was last filled."
^DD(120.8503,10,"DT")="2921030"
^DD(120.8503,10.1,0)="EXPIRATION DATE^D^^1;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(120.8503,10.1,21,0)="^^1^1^2930810^"
^DD(120.8503,10.1,21,1,0)="This is the date that the suspected agent is to expire."
^DD(120.8503,10.1,"DT")="2930810"
^DD(120.8503,10.2,0)="NDC #^F^^1;4^K:$L(X)>20!($L(X)<1) X"
^DD(120.8503,10.2,3)="Answer must be 1-20 characters in length."
^DD(120.8503,10.2,21,0)="^^1^1^2930810^"
^DD(120.8503,10.2,21,1,0)="This is the NDC (National Drug Code) of this agent."
^DD(120.8503,10.2,"DT")="2930810"
^DD(120.8503,11,0)="LIKE QUESTION #1^S^y:YES;n:NO;^LIKE;1^Q"
^DD(120.8503,11,.1)="Does the event have a reasonable temporal association with the drug?"
^DD(120.8503,11,21,0)="^^1^1^2930921^^^"
^DD(120.8503,11,21,1,0)="This question determines whether this reaction normally occurs with this reactant."
^DD(120.8503,11,21,2,0)="reactant."
^DD(120.8503,11,"DT")="2930921"
^DD(120.8503,12,0)="LIKE QUESTION #2^S^y:YES;n:NO;^LIKE;2^Q"
^DD(120.8503,12,.1)="Was there a dechallenge from the drug?"
^DD(120.8503,12,3)=""
^DD(120.8503,12,21,0)="^^1^1^2930824^^"
^DD(120.8503,12,21,1,0)="This question determines whether administration of the reactant was stopped."
^DD(120.8503,12,"DT")="2930810"
^DD(120.8503,12,"V",0)="^.12P"
^DD(120.8503,13,0)="LIKE QUESTION #3^S^y:YES;n:NO;^LIKE;3^Q"
^DD(120.8503,13,.1)="Did the observed event abate upon dechallenge?"
^DD(120.8503,13,3)=""
^DD(120.8503,13,21,0)="^^1^1^2930921^^^"
^DD(120.8503,13,21,1,0)="This question determines if the reaction stopped when the administration of the reactant was terminated."
^DD(120.8503,13,21,2,0)="the reactant was terminated."
^DD(120.8503,13,"DT")="2930810"
^DD(120.8503,14,0)="LIKE QUESTION #4^S^y:YES;n:NO;^LIKE;4^Q"
^DD(120.8503,14,.1)="Was there a rechallenge?"
^DD(120.8503,14,3)=""
^DD(120.8503,14,21,0)="^^1^1^2930921^^^"
^DD(120.8503,14,21,1,0)="This question determines whether the reactant was readministered."
^DD(120.8503,14,"DT")="2930810"
^DD(120.8503,15,0)="LIKE QUESTION #5^S^y:YES;n:NO;^LIKE;5^Q"
^DD(120.8503,15,.1)="Could the event be due to an existing clinical condition?"
^DD(120.8503,15,3)=""
^DD(120.8503,15,21,0)="^^1^1^2930810^"
^DD(120.8503,15,21,1,0)="This question determines whether the reaction could be due to the patient current clinical condition."
^DD(120.8503,15,"DT")="2930810"
^DD(120.8503,16,0)="LIKE QUESTION #6^S^y:YES;n:NO;^LIKE;6^Q"
^DD(120.8503,16,.1)="Did the reaction or event reappear upon rechallenge?"
^DD(120.8503,16,3)=""
^DD(120.8503,16,21,0)="^^1^1^2930921^^"
^DD(120.8503,16,21,1,0)="This question determines if the reaction reappeared after the reactant was readministered."
^DD(120.8503,16,21,2,0)="was readministered."
^DD(120.8503,16,"DT")="2930810"
^DD(120.8503,17,0)="LIKELIHOOD^S^1:REMOTE;2:POSSIBLE;3:PROBABLE;4:HIGHLY PROBABLE;^LIKE;7^Q"
^DD(120.8503,17,21,0)="^^3^3^2930810^"
^DD(120.8503,17,21,1,0)="If this is an observed drug allergy/adverse reaction, then this is the"
^DD(120.8503,17,21,2,0)="likelihood that this is an adverse reaction.  The data for this field is"
^DD(120.8503,17,21,3,0)="based on an algorithm used by the FDA."
^DD(120.8503,17,"DT")="2930810"
^DD(120.8503,"B","DAILY DOSE",1)=""
^DD(120.8503,"B","DURATION OF ADMINISTRATION",6)=""
^DD(120.8503,"B","EXPIRATION DATE",10.1)=""
^DD(120.8503,"B","INDICATIONS FOR USE",3)=""
^DD(120.8503,"B","LAST FILL DT",10)=""
^DD(120.8503,"B","LIKE QUESTION #1",11)=""
^DD(120.8503,"B","LIKE QUESTION #2",12)=""
^DD(120.8503,"B","LIKE QUESTION #3",13)=""
^DD(120.8503,"B","LIKE QUESTION #4",14)=""
^DD(120.8503,"B","LIKE QUESTION #5",15)=""
^DD(120.8503,"B","LIKE QUESTION #6",16)=""
^DD(120.8503,"B","LIKELIHOOD",17)=""
^DD(120.8503,"B","LOT #",8)=""
^DD(120.8503,"B","MANUFACTURER",7)=""
^DD(120.8503,"B","NDC #",10.2)=""
^DD(120.8503,"B","NUMBER OF PREVIOUS DOSES",9)=""
^DD(120.8503,"B","ROUTE OF ADMINISTRATION",2)=""
^DD(120.8503,"B","SIG",1.5)=""
^DD(120.8503,"B","START DATE OF ADMINISTRATION",4)=""
^DD(120.8503,"B","STOP DATE OF ADMINISTRATION",5)=""
^DD(120.8503,"B","SUSPECTED AGENT",.01)=""
^DD(120.8503,"B","Was there a rechallenge?",14)="1"
^DD(120.8503,"GL",0,1,.01)=""
^DD(120.8503,"GL",0,2,1)=""
^DD(120.8503,"GL",0,3,2)=""
^DD(120.8503,"GL",0,4,3)=""
^DD(120.8503,"GL",0,7,7)=""
^DD(120.8503,"GL",0,8,8)=""
^DD(120.8503,"GL",0,9,9)=""
^DD(120.8503,"GL",0,10,10)=""
^DD(120.8503,"GL",1,1,4)=""
^DD(120.8503,"GL",1,2,5)=""
^DD(120.8503,"GL",1,3,10.1)=""
^DD(120.8503,"GL",1,4,10.2)=""
^DD(120.8503,"GL",1,5,1.5)=""
^DD(120.8503,"GL","LIKE",1,11)=""
^DD(120.8503,"GL","LIKE",2,12)=""
^DD(120.8503,"GL","LIKE",3,13)=""
^DD(120.8503,"GL","LIKE",4,14)=""
^DD(120.8503,"GL","LIKE",5,15)=""
^DD(120.8503,"GL","LIKE",6,16)=""
^DD(120.8503,"GL","LIKE",7,17)=""
^DD(120.8503,"IX",.01)=""
^DD(120.8504,0)="RELEVANT TEST/LAB DATA SUB-FIELD^^2^3"
^DD(120.8504,0,"DT")="2921028"
^DD(120.8504,0,"IX","B",120.8504,.01)=""
^DD(120.8504,0,"NM","RELEVANT TEST/LAB DATA")=""
^DD(120.8504,0,"UP")="120.85"
^DD(120.8504,.01,0)="TEST^MFX^^0;1^X ^DD(120.8504,.01,9.2) K:X?1P.E!(X'?.ANP)!($L(X)>30)!($L(X)<3) X"
^DD(120.8504,.01,1,0)="^.1"
^DD(120.8504,.01,1,1,0)="120.8504^B"
^DD(120.8504,.01,1,1,1)="S ^GMR(120.85,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(120.8504,.01,1,1,2)="K ^GMR(120.85,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(120.8504,.01,3)="Answer must be 3-30 characters in length."
^DD(120.8504,.01,4)="N DIC,D,DO S DIC=""^LAB(60,"",DIC(0)=""E"",D=""B"" D DQ^DICQ"
^DD(120.8504,.01,9.2)="N DIC,DO,DIX,DICR S DIC=60,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) X:Y'>0 ^DD(120.8504,.01,9.3) Q"
^DD(120.8504,.01,9.3)="F  S GMRAHLPX=""IS ""_X_"" THE LAB TEST/TX YOU WANT TO USE"" D EN^DDIOL(GMRAHLPX,"""",""!?2"") K GMRAHLPX S %=1 D YN^DICN S:%=1 Y=1 S:%=2 X="""" Q:%  D EN^DDIOL(""ANSWER YES OR NO"","""",""!?5"")"
^DD(120.8504,.01,21,0)="^^1^1^2930304^^^^"
^DD(120.8504,.01,21,1,0)="This field contains a particular test/lab data for this observed reaction."
^DD(120.8504,.01,"DT")="2921028"
^DD(120.8504,1,0)="RESULTS^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(120.8504,1,3)="Answer must be 3-30 characters in length."
^DD(120.8504,1,21,0)="^^1^1^2921014^"
^DD(120.8504,1,21,1,0)="This field will contain the results for the particular test."
^DD(120.8504,1,"DT")="2921028"
^DD(120.8504,2,0)="COLLECTION D/T^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(120.8504,2,21,0)="^^1^1^2930426^"
^DD(120.8504,2,21,1,0)="This field is the date the sample was collected from the patient."
^DD(120.8504,2,"DT")="2921028"
^DD(120.8504,"B","COLLECTION D/T",2)=""
^DD(120.8504,"B","RESULTS",1)=""
^DD(120.8504,"B","TEST",.01)=""
^DD(120.8504,"GL",0,1,.01)=""
^DD(120.8504,"GL",0,2,1)=""
^DD(120.8504,"GL",0,3,2)=""
^DD(120.8504,"IX",.01)=""
^DD(120.8513,0)="CONCOMITANT DRUGS SUB-FIELD^^4^5"
^DD(120.8513,0,"DT")="2921030"
^DD(120.8513,0,"IX","B",120.8513,.01)=""
^DD(120.8513,0,"NM","CONCOMITANT DRUGS")=""
^DD(120.8513,0,"UP")="120.85"
^DD(120.8513,.01,0)="CONCOMITANT DRUGS^MFX^^0;1^X ^DD(120.8513,.01,9.2) D DO^DIC1 K:X?1P.E!(X'?.ANP)!($L(X)>64)!($L(X)<1) X"
^DD(120.8513,.01,1,0)="^.1"
^DD(120.8513,.01,1,1,0)="120.8513^B"
^DD(120.8513,.01,1,1,1)="S ^GMR(120.85,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(120.8513,.01,1,1,2)="K ^GMR(120.85,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(120.8513,.01,3)="Answer must be 1-64 characters in length."
^DD(120.8513,.01,4)="N DIC,D,DO F DIC=""^PSNDF("",""^PSDRUG("" S DIC(0)=""E"",D=""B"",DZ=""?"" K DO D DQ^DICQ"
^DD(120.8513,.01,9.2)="N DIC,DIX,DO,DICR S DIC=50.6,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 Q:X=""^""  S:+Y>0 X=$P(Y,U,2) Q:+Y>0  X ^DD(120.8513,.01,9.3) Q"
^DD(120.8513,.01,9.3)="S DIC=50,DIC(0)=""E"" D ^DIC S:$D(DTOUT) X=""^"",Y=-1 S:+Y>0 X=$P(Y,U,2) Q"
^DD(120.8513,.01,21,0)="^^2^2^2930824^^^"
^DD(120.8513,.01,21,1,0)="This field contains the drug(s) this patient was taking at the time"
^DD(120.8513,.01,21,2,0)="of the reaction."
^DD(120.8513,.01,"DT")="2920623"
^DD(120.8513,1,0)="START DATE OF ADMINISTRATION^DX^^0;2^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.8513,1,21,0)="^^1^1^2921015^"
^DD(120.8513,1,21,1,0)="This field is the date this drug was first given to the patient."
^DD(120.8513,1,"DT")="2920624"
^DD(120.8513,2,0)="STOP DATE OF ADMINISTRATION^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(120.8513,2,3)=""
^DD(120.8513,2,21,0)="^^1^1^2921015^"
^DD(120.8513,2,21,1,0)="This field is the last day the patient was given this drug."
^DD(120.8513,2,"DT")="2920624"
^DD(120.8513,3,0)="LAST FILL DT^DX^^0;4^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.8513,3,21,0)="^^1^1^2930426^"
^DD(120.8513,3,21,1,0)="This field is the last date that this drug was filled."
^DD(120.8513,3,"DT")="2921030"
^DD(120.8513,4,0)="SIG^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(120.8513,4,3)="Answer must be 3-30 characters in length."
^DD(120.8513,4,21,0)="^^1^1^2930616^^^"
^DD(120.8513,4,21,1,0)="This file contains the SIG code that indicates how this drug is to be given."
^DD(120.8513,4,"DT")="2921030"
^DD(120.8513,"B","CONCOMITANT DRUGS",.01)=""
^DD(120.8513,"B","LAST FILL DT",3)=""
^DD(120.8513,"B","SIG",4)=""
^DD(120.8513,"B","START DATE OF ADMINISTRATION",1)=""
^DD(120.8513,"B","STOP DATE OF ADMINISTRATION",2)=""
^DD(120.8513,"GL",0,1,.01)=""
^DD(120.8513,"GL",0,2,1)=""
^DD(120.8513,"GL",0,3,2)=""
^DD(120.8513,"GL",0,4,3)=""
^DD(120.8513,"GL",0,5,4)=""
^DD(120.8513,"IX",.01)=""
^DD(120.8514,0)="OTHER RELATED HISTORY SUB-FIELD^^.01^1"
^DD(120.8514,0,"NM","OTHER RELATED HISTORY")=""
^DD(120.8514,0,"UP")="120.85"
^DD(120.8514,.01,0)="OTHER RELATED HISTORY^W^^0;1^Q"
^DD(120.8514,.01,21,0)="^^1^1^2930426^"
^DD(120.8514,.01,21,1,0)="This field is to document other history relating to this reaction."
^DD(120.8514,.01,"DT")="2920616"
^DD(120.8514,"B","OTHER RELATED HISTORY",.01)=""
^DD(120.8514,"GL",0,1,.01)=""
^DD(120.85315,0)="P&T ADDENDUM SUB-FIELD^^1^2"
^DD(120.85315,0,"IX","B",120.85315,.01)=""
^DD(120.85315,0,"NM","P&T ADDENDUM")=""
^DD(120.85315,0,"UP")="120.85"
^DD(120.85315,.01,0)="DATE/TIME ENTERED^MDX^^0;1^S %DT=""EPSTX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(120.85315,.01,1,0)="^.1"
^DD(120.85315,.01,1,1,0)="120.85315^B"
^DD(120.85315,.01,1,1,1)="S ^GMR(120.85,DA(1),""PTC2"",""B"",$E(X,1,30),DA)="""""
^DD(120.85315,.01,1,1,2)="K ^GMR(120.85,DA(1),""PTC2"",""B"",$E(X,1,30),DA)"
^DD(120.85315,.01,21,0)="^^1^1^2921015^"
^DD(120.85315,.01,21,1,0)="This is the date/time the comment was entered."
^DD(120.85315,.01,"DT")="2920629"
^DD(120.85315,1,0)="ADDENDUM^120.853151^^1;0"
^DD(120.85315,1,21,0)="^^1^1^2920629^"
^DD(120.85315,1,21,1,0)="This is the actual comment that is being added."
^DD(120.85315,"B","ADDENDUM",1)=""
^DD(120.85315,"B","DATE/TIME ENTERED",.01)=""
^DD(120.85315,"GL",0,1,.01)=""
^DD(120.85315,"GL",1,0,1)=""
^DD(120.85315,"IX",.01)=""
^DD(120.85315,"SB",120.853151,1)=""
^DD(120.853151,0)="ADDENDUM SUB-FIELD^^.01^1"
^DD(120.853151,0,"NM","ADDENDUM")=""
^DD(120.853151,0,"UP")="120.85315"
^DD(120.853151,.01,0)="ADDENDUM^W^^0;1^Q"
^DD(120.853151,.01,21,0)="^^2^2^2930426^"
^DD(120.853151,.01,21,1,0)="This field contains the comments that the P&T committee add to this"
^DD(120.853151,.01,21,2,0)="reaction."
^DD(120.853151,.01,"DT")="2920629"
^DD(120.853151,"B","ADDENDUM",.01)=""
^DD(120.853151,"GL",0,1,.01)=""
^DD(120.8563,0)="REPORT SOURCE SUB-FIELD^^.01^1"
^DD(120.8563,0,"IX","B",120.8563,.01)=""
^DD(120.8563,0,"NM","REPORT SOURCE")=""
^DD(120.8563,0,"UP")="120.85"
^DD(120.8563,.01,0)="SOURCE^MS^f:FOREIGN;h:HEALTH PROFESSIONAL;s:STUDY;l:LITERATURE;c:CONSUMER;^0;1^Q"
^DD(120.8563,.01,1,0)="^.1"
^DD(120.8563,.01,1,1,0)="120.8563^B"
^DD(120.8563,.01,1,1,1)="S ^GMR(120.85,DA(1),63,""B"",$E(X,1,30),DA)="""""
^DD(120.8563,.01,1,1,2)="K ^GMR(120.85,DA(1),63,""B"",$E(X,1,30),DA)"
^DD(120.8563,.01,21,0)="^^1^1^2931012^^^"
^DD(120.8563,.01,21,1,0)="This is the actual source of the report."
^DD(120.8563,.01,"DT")="2920617"
^DD(120.8563,"B","SOURCE",.01)=""
^DD(120.8563,"GL",0,1,.01)=""
^DD(120.8563,"IX",.01)=""
^DD(120.86,0)="FIELD^^3^4"
^DD(120.86,0,"DT")="2951208"
^DD(120.86,0,"IX","B",120.86,.01)=""
^DD(120.86,0,"NM","ADVERSE REACTION ASSESSMENT")=""
^DD(120.86,0,"VR")="4.0"
^DD(120.86,0,"VRPK")="ADVERSE REACTION TRACKING"
^DD(120.86,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(120.86,.01,1,0)="^.1"
^DD(120.86,.01,1,1,0)="120.86^B"
^DD(120.86,.01,1,1,1)="S ^GMR(120.86,""B"",$E(X,1,30),DA)="""""
^DD(120.86,.01,1,1,2)="K ^GMR(120.86,""B"",$E(X,1,30),DA)"
^DD(120.86,.01,3)=""
^DD(120.86,.01,21,0)="^^1^1^2960315^^^"
^DD(120.86,.01,21,1,0)="This is the patient who has been asked about allergies/adverse reactions."
^DD(120.86,.01,"DT")="2951213"
^DD(120.86,1,0)="REACTION ASSESSMENT^S^1:Yes;0:No;^0;2^Q"
^DD(120.86,1,.1)="Patient Has Known Reaction"
^DD(120.86,1,21,0)="^^1^1^2960315^"
^DD(120.86,1,21,1,0)="This field indicates if the patient has a reaction on file or not."
^DD(120.86,1,"DT")="2960315"
^DD(120.86,2,0)="ASSESSING USER^P200'^VA(200,^0;3^Q"
^DD(120.86,2,21,0)="^^2^2^2960315^"
^DD(120.86,2,21,1,0)="This field contains the name of the user who made the last reaction"
^DD(120.86,2,21,2,0)="assessment for this patient."
^DD(120.86,2,"DT")="2951208"
^DD(120.86,3,0)="ASSESSMENT DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(120.86,3,21,0)="^^2^2^2960315^"
^DD(120.86,3,21,1,0)="This field contains the date/time of the last reaction assessment for"
^DD(120.86,3,21,2,0)="this patient."
^DD(120.86,3,"DT")="2951208"
^DD(120.86,"B","ASSESSING USER",2)=""
^DD(120.86,"B","ASSESSMENT DATE/TIME",3)=""
^DD(120.86,"B","NAME",.01)=""
^DD(120.86,"B","Patient Has Known Reaction",1)="1"
^DD(120.86,"B","REACTION ASSESSMENT",1)=""
^DD(120.86,"GL",0,1,.01)=""
^DD(120.86,"GL",0,2,1)=""
^DD(120.86,"GL",0,3,2)=""
^DD(120.86,"GL",0,4,3)=""
^DD(120.86,"IX",.01)=""
^DD(120.86,"RQ",.01)=""
^DD(120.87,0)="FIELD^^1^2"
^DD(120.87,0,"DDA")="N"
^DD(120.87,0,"DT")="2960215"
^DD(120.87,0,"IX","B",120.87,.01)=""
^DD(120.87,0,"NM","GMRA DOCUMENT")=""
^DD(120.87,0,"VR")="4.0"
^DD(120.87,0,"VRPK")="ADVERSE REACTION TRACKING"
^DD(120.87,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(120.87,.01,1,0)="^.1"
^DD(120.87,.01,1,1,0)="120.87^B"
^DD(120.87,.01,1,1,1)="S ^GMRD(120.87,""B"",$E(X,1,30),DA)="""""
^DD(120.87,.01,1,1,2)="K ^GMRD(120.87,""B"",$E(X,1,30),DA)"
^DD(120.87,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(120.87,.01,21,0)="^^1^1^2960215^"
^DD(120.87,.01,21,1,0)="This field contains the name of the document to be displayed."
^DD(120.87,1,0)="TEXT^120.871^^1;0"
^DD(120.87,1,21,0)="^^1^1^2960219^"
^DD(120.87,1,21,1,0)="This field contains the text of the document."
^DD(120.87,"B","NAME",.01)=""
^DD(120.87,"B","TEXT",1)=""
^DD(120.87,"GL",0,1,.01)=""
^DD(120.87,"GL",1,0,1)=""
^DD(120.87,"IX",.01)=""
^DD(120.87,"RQ",.01)=""
^DD(120.87,"SB",120.871,1)=""
^DD(120.871,0)="TEXT SUB-FIELD^^.01^1"
^DD(120.871,0,"DT")="2960215"
^DD(120.871,0,"NM","TEXT")=""
^DD(120.871,0,"UP")="120.87"
^DD(120.871,.01,0)="TEXT^WL^^0;1^Q"
^DD(120.871,.01,21,0)="^^1^1^2960215^^"
^DD(120.871,.01,21,1,0)="This field contains the text of the document."
^DD(120.871,.01,"DT")="2960215"
^DD(120.871,"B","TEXT",.01)=""
^DD(120.871,"GL",0,1,.01)=""
^DD(121,0,"PT",627.99,.01)=""
^DD(123,0)="FIELD^^51^38"
^DD(123,0,"DDA")="N"
^DD(123,0,"DT")="2981103"
^DD(123,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(123,0,"IX","AC",123,.03)=""
^DD(123,0,"IX","AD",123,.02)=""
^DD(123,0,"IX","AD",123.02,6)=""
^DD(123,0,"IX","AD1",123,3)=""
^DD(123,0,"IX","AF",123,8)=""
^DD(123,0,"IX","AIP",123,.126)=""
^DD(123,0,"IX","AL",123,.04)=""
^DD(123,0,"IX","AP",123,4)=""
^DD(123,0,"IX","B",123,.01)=""
^DD(123,0,"IX","C",123,1)=""
^DD(123,0,"IX","D",123,8)=""
^DD(123,0,"IX","E",123,3)=""
^DD(123,0,"IX","F",123,.02)=""
^DD(123,0,"IX","G",123,10)=""
^DD(123,0,"IX","H",123,2)=""
^DD(123,0,"IX","R",123.03,.01)=""
^DD(123,0,"NM","REQUEST/CONSULTATION")=""
^DD(123,0,"PT",44.003,688)=""
^DD(123,0,"PT",391.31,3)=""
^DD(123,0,"PT",660,8.9)=""
^DD(123,0,"PT",668,20)=""
^DD(123,0,"PT",691,1001)=""
^DD(123,0,"PT",691.1,1001)=""
^DD(123,0,"PT",691.5,1001)=""
^DD(123,0,"PT",691.6,1001)=""
^DD(123,0,"PT",691.7,1001)=""
^DD(123,0,"PT",691.8,1001)=""
^DD(123,0,"PT",694,1001)=""
^DD(123,0,"PT",698,1001)=""
^DD(123,0,"PT",698.1,1001)=""
^DD(123,0,"PT",698.2,1001)=""
^DD(123,0,"PT",698.3,1001)=""
^DD(123,0,"PT",699,1001)=""
^DD(123,0,"PT",699.5,1001)=""
^DD(123,0,"PT",700,1001)=""
^DD(123,0,"PT",701,1001)=""
^DD(123,0,"PT",2006.5849,.01)=""
^DD(123,0,"PT",8925,1405)=""
^DD(123,0,"VR")="3.0"
^DD(123,0,"VRPK")="GMRC"
^DD(123,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(123,.001,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(123,.001,"DT")="2910604"
^DD(123,.01,0)="FILE ENTRY DATE^RDX^^0;1^S %DT=""ETXR"" D ^%DT S X=$P($H,"","",2),Y=Y_"".""_$E(0,1,2-$L(X\3600))_(X\3600)_$E(0,1,2-$L(X#3600\60))_(X#3600\60)_$E(0,1,2-$L(X#60))_(X#60),Y=+Y,X=Y K:Y<1 X"
^DD(123,.01,1,0)="^.1"
^DD(123,.01,1,1,0)="123^B"
^DD(123,.01,1,1,1)="S ^GMR(123,""B"",$E(X,1,30),DA)="""""
^DD(123,.01,1,1,2)="K ^GMR(123,""B"",$E(X,1,30),DA)"
^DD(123,.01,3)="This is the date/time of the entry of the consultation/request."
^DD(123,.01,21,0)="^^2^2^2970911^^^^"
^DD(123,.01,21,1,0)="Date of actual entry of consultation request into the file."
^DD(123,.01,21,2,0)="Transparent to user."
^DD(123,.02,0)="PATIENT NAME^RP2'^DPT(^0;2^Q"
^DD(123,.02,1,0)="^.1^^-1"
^DD(123,.02,1,1,0)="123^AD^MUMPS"
^DD(123,.02,1,1,1)="I $P(^GMR(123,DA,0),""^"",7) S GMRCD=9999999-$P(^GMR(123,DA,0),""^"",7),^GMR(123,""AD"",X,GMRCD,DA)="""" K GMRCD"
^DD(123,.02,1,1,2)="I $P(^GMR(123,DA,0),""^"",7) S GMRCD=9999999-$P(^GMR(123,DA,0),""^"",7) K ^GMR(123,""AD"",X,GMRCD,DA),GMRCD"
^DD(123,.02,1,1,"%D",0)="^^2^2^2910715^^"
^DD(123,.02,1,1,"%D",1,0)="The ""AD"" cross-reference allows look up of patient consults in reverse"
^DD(123,.02,1,1,"%D",2,0)="chronological ""DATE OF REQUEST"" order."
^DD(123,.02,1,1,"DT")="2910715"
^DD(123,.02,1,3,0)="123^F"
^DD(123,.02,1,3,1)="S ^GMR(123,""F"",$E(X,1,30),DA)="""""
^DD(123,.02,1,3,2)="K ^GMR(123,""F"",$E(X,1,30),DA)"
^DD(123,.02,1,3,"DT")="2920204"
^DD(123,.02,3)="Enter the name of a patient or the last 4 digits of the SSN."
^DD(123,.02,21,0)="^^2^2^2981103^^^^"
^DD(123,.02,21,1,0)="This is the Patient who the consult or request was ordered for."
^DD(123,.02,21,2,0)="Enter the patient's name, or the last four digits of the SSN."
^DD(123,.02,"DT")="3011008"
^DD(123,.03,0)="OE/RR FILE NUMBER^P100'^OR(100,^0;3^Q"
^DD(123,.03,1,0)="^.1"
^DD(123,.03,1,1,0)="123^AC"
^DD(123,.03,1,1,1)="S ^GMR(123,""AC"",$E(X,1,30),DA)="""""
^DD(123,.03,1,1,2)="K ^GMR(123,""AC"",$E(X,1,30),DA)"
^DD(123,.03,1,1,"%D",0)="^^2^2^2910927^^"
^DD(123,.03,1,1,"%D",1,0)="This cross-reference allows determining the request entry in 123 based on"
^DD(123,.03,1,1,"%D",2,0)="the ORIFN from OE/RR."
^DD(123,.03,1,1,"DT")="2910826"
^DD(123,.03,3)="Enter the File 100 internal entry number of this record."
^DD(123,.03,21,0)="^^3^3^2981103^^^^"
^DD(123,.03,21,1,0)="This is the internal entry number of the order in the Orders File (100)."
^DD(123,.03,21,2,0)="The consult sends CPRS information about the consult which is stored in"
^DD(123,.03,21,3,0)="File 100. This is the IEN of the consult in that file."
^DD(123,.03,"DT")="2981103"
^DD(123,.04,0)="PATIENT LOCATION^P44'^SC(^0;4^Q"
^DD(123,.04,1,0)="^.1"
^DD(123,.04,1,1,0)="123^AL"
^DD(123,.04,1,1,1)="S ^GMR(123,""AL"",$E(X,1,30),DA)="""""
^DD(123,.04,1,1,2)="K ^GMR(123,""AL"",$E(X,1,30),DA)"
^DD(123,.04,1,1,"DT")="3011015"
^DD(123,.04,3)="Enter the Hospital Location of this patient."
^DD(123,.04,21,0)="^^2^2^2970911^^^"
^DD(123,.04,21,1,0)="This is the location of the patient when the consult/request order was"
^DD(123,.04,21,2,0)="placed."
^DD(123,.04,"DT")="3011015"
^DD(123,.05,0)="ORDERING FACILITY^P4'^DIC(4,^0;21^Q"
^DD(123,.05,3)="If this is a consult/request sent to another Institution, then this is the SENDING hospital/institution."
^DD(123,.05,21,0)="^^5^5^2970911^^^^"
^DD(123,.05,21,1,0)="This field contains the number, from file 4, of the institution/hospital"
^DD(123,.05,21,2,0)="that is requesting the consult.  This field is mandatory if the consult/"
^DD(123,.05,21,3,0)="request is being sent to another hospital/institution, so that routing"
^DD(123,.05,21,4,0)="information can be obtained in order to return the results to the sending"
^DD(123,.05,21,5,0)="hospital/institution."
^DD(123,.05,"DT")="2960502"
^DD(123,.06,0)="REMOTE CONSULT FILE ENTRY^NJ12,0^^0;22^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(123,.06,3)="Type a number between 1 and 999999999999, 0 Decimal Digits"
^DD(123,.06,21,0)="^^6^6^3011127^"
^DD(123,.06,21,1,0)="This is the ^GMR(123, file number of the consult from a foreign database."
^DD(123,.06,21,2,0)="It is stored here so that when the consult is returned in an HL7"
^DD(123,.06,21,3,0)="message, it can be located at the sending facility.  Also, if the sending"
^DD(123,.06,21,4,0)="facility needs to send updated consult information to the receiving"
^DD(123,.06,21,5,0)="facility, this number will reference the consult number there so that"
^DD(123,.06,21,6,0)="the data can be added/ammended and tracking information can be updated."
^DD(123,.06,"DT")="3011203"
^DD(123,.07,0)="ROUTING FACILITY^P4'^DIC(4,^0;23^Q"
^DD(123,.07,3)="Enter the institution for routing updates"
^DD(123,.07,21,0)="^^3^3^3010712^"
^DD(123,.07,21,1,0)="This field will contain the INSTITUTION to which communications and"
^DD(123,.07,21,2,0)="updates regarding this request will be routed.  If the request is being"
^DD(123,.07,21,3,0)="requested and performed locally, this field will be blank. "
^DD(123,.07,"DT")="3011203"
^DD(123,.1,0)="DISPLAY TEXT OF ITEM ORDERED^F^^1.11;1^K:$L(X)>80!($L(X)<1) X"
^DD(123,.1,3)="Enter the display text the user selected to place the order."
^DD(123,.1,21,0)="^^4^4^2990603^^^"
^DD(123,.1,21,1,0)="This is the display text of the item ordered.  If the order was placed"
^DD(123,.1,21,2,0)="using a quick order, then the Display text is the text from the Order"
^DD(123,.1,21,3,0)="Dialog File.  If the order was placed by selecting an Orderable Item, "
^DD(123,.1,21,4,0)="then the text is the Print Name from the Orderable Item file."
^DD(123,.1,"DT")="2980712"
^DD(123,.125,0)="IFC ROLE^S^P:PLACER;F:FILLER;^12;5^Q"
^DD(123,.125,21,0)="^^9^9^3010713^"
^DD(123,.125,21,1,0)="This field will define the role of the particular VistA system in the"
^DD(123,.125,21,2,0)="fullfillment of the inter-facility consult. This facilitates proper"
^DD(123,.125,21,3,0)="HL7 message formats."
^DD(123,.125,21,4,0)=" "
^DD(123,.125,21,5,0)="PLACER indicates that this VistA system originated and ordered this"
^DD(123,.125,21,6,0)="request. "
^DD(123,.125,21,7,0)=" "
^DD(123,.125,21,8,0)="FILLER indicates that this request was generated at the institution in the"
^DD(123,.125,21,9,0)="ORDERING FACILITY field."
^DD(123,.125,"DT")="3010713"
^DD(123,.126,0)="REMOTE ORDERING PROVIDER^F^^12;6^K:$L(X)>40!($L(X)<2) X"
^DD(123,.126,1,0)="^.1"
^DD(123,.126,1,1,0)="123^AIP^MUMPS"
^DD(123,.126,1,1,1)="S ^GMR(123,""AIP"",$E(X,1,40),DA)="""""
^DD(123,.126,1,1,2)="K ^GMR(123,""AIP"",$E(X,1,40),DA)"
^DD(123,.126,1,1,"DT")="3020201"
^DD(123,.126,3)="Answer must be 2-40 characters in length"
^DD(123,.126,21,0)="^^3^3^3020204^"
^DD(123,.126,21,1,0)="This field contains the name of the requesting provider of an "
^DD(123,.126,21,2,0)="inter-facility consult. This field is only defined on an inter-facility "
^DD(123,.126,21,3,0)="consult on file at a consulting site. "
^DD(123,.126,"DT")="3020204"
^DD(123,.131,0)="IFC REMOTE SERVICE NAME^F^^13;1^K:$L(X)>63!($L(X)<3) X"
^DD(123,.131,3)="Answer must be 3-63 characters in length."
^DD(123,.131,21,0)="^^2^2^3011106^"
^DD(123,.131,21,1,0)="This field holds the name of the service that will perform the Inter-"
^DD(123,.131,21,2,0)="facility Consult at the remote facility. "
^DD(123,.131,"DT")="3011107"
^DD(123,.132,0)="REMOTE REQUESTOR PHONE^F^^13;2^K:$L(X)>20!($L(X)<1) X"
^DD(123,.132,3)="Answer must be 1-20 characters in length"
^DD(123,.132,21,0)="^^5^5^3011220^"
^DD(123,.132,21,1,0)="This field will contain the telephone number of the remote requestor of "
^DD(123,.132,21,2,0)="an inter-facility consult. This will be displayed with the consult and "
^DD(123,.132,21,3,0)="can expedite communication between requesting provider and consultant."
^DD(123,.132,21,4,0)=" "
^DD(123,.132,21,5,0)="This field is derived from the OFFICE PHONE field of the NEW PERSON file. "
^DD(123,.132,"DT")="3011220"
^DD(123,.133,0)="REMOTE REQUESTOR DIG PAGER^F^^13;3^K:$L(X)>20!($L(X)<1) X"
^DD(123,.133,3)="Answer must be 1-20 characters in length"
^DD(123,.133,21,0)="^^6^6^3011220^"
^DD(123,.133,21,1,0)="This field contains the digital pager number of a remote requesting "
^DD(123,.133,21,2,0)="provider if this is an inter-facility consult.  This may expedite "
^DD(123,.133,21,3,0)="communication between the requesting provider and the consultant. "
^DD(123,.133,21,4,0)=" "
^DD(123,.133,21,5,0)="This data in this field is derived from the DIGITAL PAGER field of the "
^DD(123,.133,21,6,0)="NEW PERSON file. "
^DD(123,.133,"DT")="3011220"
^DD(123,1,0)="TO SERVICE^RP123.5^GMR(123.5,^0;5^Q"
^DD(123,1,1,0)="^.1"
^DD(123,1,1,1,0)="123^C"
^DD(123,1,1,1,1)="S ^GMR(123,""C"",$E(X,1,30),DA)="""""
^DD(123,1,1,1,2)="K ^GMR(123,""C"",$E(X,1,30),DA)"
^DD(123,1,1,1,"%D",0)="^^2^2^2920129^"
^DD(123,1,1,1,"%D",1,0)="This cross reference allows searching for all consults/requests by specific"
^DD(123,1,1,1,"%D",2,0)="service/specialty."
^DD(123,1,1,1,"DT")="2920129"
^DD(123,1,1,2,0)="^^TRIGGER^123^70"
^DD(123,1,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^GMR(123,D0,70)):^(70),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(123,1,1,2,1.1) S DIH=$G(^GMR(123,DIV(0),70)),DIV=X S $P(^(70),U,1)=DIV,DIH=123,DIG=70 D ^DICR"
^DD(123,1,1,2,1.1)="S X=DIV X ^DD(123,1,1,2,49.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,1)_"":"",2),$C(59)) S D0=I(0,0)"
^DD(123,1,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^GMR(123,D0,70)):^(70),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(123,1,1,2,2.1) S DIH=$G(^GMR(123,DIV(0),70)),DIV=X S $P(^(70),U,1)=DIV,DIH=123,DIG=70 D ^DICR"
^DD(123,1,1,2,2.1)="S X=DIV X ^DD(123,1,1,2,59.2) S Y(101)=$S($D(^GMR(123.5,D0,30)):^(30),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,1)_"":"",2),$C(59)) S D0=I(0,0)"
^DD(123,1,1,2,49.2)="S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^GMR(123.5,+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(123.5,150,0)),U,3),Y(101)=$S($D(^GMR(123.5,D0,30)):^(30),1:"""")"
^DD(123,1,1,2,59.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^GMR(123,D0,0)):^(0),1:""""),D0=$P(Y(1),U,5) S:'D0!'$D(^GMR(123.5,+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(123.5,150,0)),U,3)"
^DD(123,1,1,2,"%D",0)="^^5^5^3080208^"
^DD(123,1,1,2,"%D",1,0)="Whenever the TO SERVICE field is updated, this trigger will set the"
^DD(123,1,1,2,"%D",2,0)="ADMINISTRATIVE field of the REQUEST/CONSULTATION file (#123) to the value "
^DD(123,1,1,2,"%D",3,0)="of the ADMINISTRATIVE field in the REQUEST SERVICES file (#123.5)."
^DD(123,1,1,2,"%D",4,0)="Requests marked as administrative shall be excluded from the Consults"
^DD(123,1,1,2,"%D",5,0)="Performance Monitor report [GMRC RPT PERF MONITOR]"
^DD(123,1,1,2,"CREATE VALUE")="TO SERVICE:ADMIN"
^DD(123,1,1,2,"DELETE VALUE")="TO SERVICE:ADMIN"
^DD(123,1,1,2,"DT")="3080206"
^DD(123,1,1,2,"FIELD")="ADMIN"
^DD(123,1,3)="Enter the name of the service that will complete the consult."
^DD(123,1,21,0)="^^2^2^2970911^^^^"
^DD(123,1,21,1,0)="This is the ""TO"" service/specialty.  This service is responsible for"
^DD(123,1,21,2,0)="completion of the consult/request."
^DD(123,1,"DT")="3080206"
^DD(123,1.01,0)="CLINICAL PROCEDURE^P702.01'^MDS(702.01,^1;1^Q"
^DD(123,1.01,1,0)="^.1^^0"
^DD(123,1.01,3)="Enter a CP DEFINITION"
^DD(123,1.01,21,0)="^^2^2^3011004^"
^DD(123,1.01,21,1,0)="This field contains the CP DEFINITION that is associated with this "
^DD(123,1.01,21,2,0)="request."
^DD(123,1.01,"DT")="3011008"
^DD(123,2,0)="FROM^P44'^SC(^0;6^Q"
^DD(123,2,1,0)="^.1"
^DD(123,2,1,1,0)="123^H"
^DD(123,2,1,1,1)="S ^GMR(123,""H"",$E(X,1,30),DA)="""""
^DD(123,2,1,1,2)="K ^GMR(123,""H"",$E(X,1,30),DA)"
^DD(123,2,1,1,"%D",0)="^^2^2^2980712^"
^DD(123,2,1,1,"%D",1,0)="This cross-reference allows the location that sent the consult to track"
^DD(123,2,1,1,"%D",2,0)="what happened to their consults."
^DD(123,2,1,1,"DT")="2980712"
^DD(123,2,3)="Enter the hospital location that is sending the order."
^DD(123,2,21,0)="^^2^2^2970911^^^^"
^DD(123,2,21,1,0)="This field represents the location that sent the order to the receiving "
^DD(123,2,21,2,0)="location."
^DD(123,2,"DT")="2980712"
^DD(123,3,0)="DATE OF REQUEST^RD^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(123,3,1,0)="^.1^^-1"
^DD(123,3,1,2,0)="123^AD1^MUMPS"
^DD(123,3,1,2,1)="I $P(^GMR(123,DA,0),""^"",2) S ^GMR(123,""AD"",$P(^GMR(123,DA,0),""^"",2),9999999-X,DA)="""""
^DD(123,3,1,2,2)="I $P(^GMR(123,DA,0),""^"",2) K ^GMR(123,""AD"",$P(^GMR(123,DA,0),""^"",2),9999999-X,DA)"
^DD(123,3,1,2,"%D",0)="^^1^1^2911217^"
^DD(123,3,1,2,"%D",1,0)="This cross-reference provides consults by patient by inverted order date."
^DD(123,3,1,2,"DT")="2911217"
^DD(123,3,1,3,0)="123^E"
^DD(123,3,1,3,1)="S ^GMR(123,""E"",$E(X,1,30),DA)="""""
^DD(123,3,1,3,2)="K ^GMR(123,""E"",$E(X,1,30),DA)"
^DD(123,3,1,3,"%D",0)="^^1^1^2920129^"
^DD(123,3,1,3,"%D",1,0)="This cross reference allows searching for consults based on Date of Request."
^DD(123,3,1,3,"DT")="2920129"
^DD(123,3,3)="Enter the date/time this order was released from CPRS."
^DD(123,3,21,0)="^^3^3^2970911^^^^"
^DD(123,3,21,1,0)="This is the date and time the order was released from OE/RR."
^DD(123,3,21,2,0)="If the TO service entered the order stub through the Add Order (AD)"
^DD(123,3,21,3,0)="action, this is the service-specified request date."
^DD(123,3,"DT")="2920218"
^DD(123,4,0)="PROCEDURE/REQUEST TYPE^V^^0;8^Q"
^DD(123,4,1,0)="^.1"
^DD(123,4,1,1,0)="123^AP"
^DD(123,4,1,1,1)="S ^GMR(123,""AP"",$E(X,1,30),DA)="""""
^DD(123,4,1,1,2)="K ^GMR(123,""AP"",$E(X,1,30),DA)"
^DD(123,4,1,1,"DT")="3011015"
^DD(123,4,3)="Enter the type of procedure being requested (e.g., EKG, UGI, etc.)."
^DD(123,4,21,0)="^^1^1^3010110^"
^DD(123,4,21,1,0)="This is the procedure that was requested via CPRS while ordering."
^DD(123,4,"DT")="3011015"
^DD(123,4,"V",0)="^.12P^2^2"
^DD(123,4,"V",1,0)="101^Enter Order Item^1^O^n^n"
^DD(123,4,"V",2,0)="123.3^Consult Procedure^2^PROC^n^n"
^DD(123,4,"V","B",101,1)=""
^DD(123,4,"V","B",123.3,2)=""
^DD(123,4,"V","M","Consult Procedure",2)=""
^DD(123,4,"V","M","Enter Order Item",1)=""
^DD(123,4,"V","O",1,1)=""
^DD(123,4,"V","O",2,2)=""
^DD(123,4,"V","P","O",1)=""
^DD(123,4,"V","P","PROC",2)=""
^DD(123,5,0)="URGENCY^P101'^ORD(101,^0;9^Q"
^DD(123,5,3)="Enter the urgency for this order (STAT, ROUTINE, NEXT AVAILABLE, EMERGENCY, TODAY, WITHIN 24 HOURS, WITHIN 48 HOURS, WITHIN 72 HOURS, etc.)"
^DD(123,5,21,0)="^^4^4^2970911^^^^"
^DD(123,5,21,1,0)="This field describes the urgency of the consult. Urgencies are sent in the"
^DD(123,5,21,2,0)="PROTOCOL File (#101) as: STAT, EMERGENCY, INPATIENT, NEXT AVAILABLE, NOW,"
^DD(123,5,21,3,0)="ROUTINE, TODAY, WITHIN 24 HOURS, WITHIN 48 HOURS, WITHIN 72 HOURS,"
^DD(123,5,21,4,0)="WITHIN 1 WEEK, WITHIN 1 MONTH. "
^DD(123,5,"DT")="2970709"
^DD(123,6,0)="PLACE OF CONSULTATION^P101'^ORD(101,^0;10^Q"
^DD(123,6,3)="Type The Place Of Consultation: Bedside, Consultant's Choice, On Call, Emergency Room, EKG Lab."
^DD(123,6,21,0)="^^7^7^2981112^^^^"
^DD(123,6,21,1,0)="This is the place where the consultation will take place.  Choose from:"
^DD(123,6,21,2,0)=""
^DD(123,6,21,3,0)="    B - Bedside"
^DD(123,6,21,4,0)="    C - Consultant's Choice"
^DD(123,6,21,5,0)="    E - Emergency Room"
^DD(123,6,21,6,0)="    O - On Call"
^DD(123,6,21,7,0)="    EKG - EKG Lab"
^DD(123,6,"DT")="2970611"
^DD(123,7,0)="ATTENTION^P200'^VA(200,^0;11^Q"
^DD(123,7,3)="Enter the name of the Consult Service provider to be alerted about the consult."
^DD(123,7,21,0)="^^4^4^2970911^^^^"
^DD(123,7,21,1,0)="Enter the name of a person you would like to alert about the consult."
^DD(123,7,21,2,0)="This person will be sent a notification that a new consult exists."
^DD(123,7,21,3,0)="In order for the person to see this type of notification, the person"
^DD(123,7,21,4,0)="must be set up to receive ""New service consult"" notifications."
^DD(123,7,"DT")="2910605"
^DD(123,8,0)="CPRS STATUS^*P100.01'^ORD(100.01,^0;12^S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123,8,1,0)="^.1"
^DD(123,8,1,1,0)="123^D"
^DD(123,8,1,1,1)="S ^GMR(123,""D"",$E(X,1,30),DA)="""""
^DD(123,8,1,1,2)="K ^GMR(123,""D"",$E(X,1,30),DA)"
^DD(123,8,1,1,"%D",0)="^^1^1^2920129^"
^DD(123,8,1,1,"%D",1,0)="This cross-reference allows searching based on the OE/RR status."
^DD(123,8,1,1,"DT")="2920129"
^DD(123,8,1,2,0)="123^AF^MUMPS"
^DD(123,8,1,2,1)="I ""^5^6^""[(U_X_U) N B,C,D I $D(^SC(""AWAS1"",DA)) S B=$O(^SC(""AWAS1"",DA,0)),C=$O(^SC(""AWAS1"",DA,B,0)),D=$O(^SC(""AWAS1"",DA,B,C,0)) S $P(^SC(B,""S"",C,1,D,""CONS""),U)="""" K ^SC(""AWAS1"",DA)"
^DD(123,8,1,2,2)="Q"
^DD(123,8,1,2,"%D",0)="^^2^2^3060503^"
^DD(123,8,1,2,"%D",1,0)="This x-ref removes the consult link to an appointment, if one exists,"
^DD(123,8,1,2,"%D",2,0)="when this field has a status change to Pending (5) or Active (6)."
^DD(123,8,1,2,"DT")="3060503"
^DD(123,8,3)="Enter the CPRS STATUS of this consult (e.g., pending, active, complete, etc.)."
^DD(123,8,12)="Data Standardization of Order Status (#100.01) file."
^DD(123,8,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"""
^DD(123,8,21,0)="^.001^3^3^3060118^^^^"
^DD(123,8,21,1,0)="This is the current CPRS status of the consult or request order."
^DD(123,8,21,2,0)="The Action Types which may be taken from the ""Select Action: "" prompt"
^DD(123,8,21,3,0)="update the status in this file as well as in the Orders File (100)."
^DD(123,8,"DT")="3060503"
^DD(123,9,0)="LAST ACTION TAKEN^P123.1'^GMR(123.1,^0;13^Q"
^DD(123,9,3)="Enter the last action taken on the consult (From file 123.1)."
^DD(123,9,21,0)="^^2^2^2970911^^^"
^DD(123,9,21,1,0)="This is the last Action Type taken that updated the activity tracking"
^DD(123,9,21,2,0)="audit trail."
^DD(123,9,"DT")="2911206"
^DD(123,10,0)="SENDING PROVIDER^P200'^VA(200,^0;14^Q"
^DD(123,10,1,0)="^.1"
^DD(123,10,1,1,0)="123^G"
^DD(123,10,1,1,1)="S ^GMR(123,""G"",$E(X,1,30),DA)="""""
^DD(123,10,1,1,2)="K ^GMR(123,""G"",$E(X,1,30),DA)"
^DD(123,10,1,1,"%D",0)="^^1^1^2980616^^"
^DD(123,10,1,1,"%D",1,0)="This index allows look-up of consults by sending provider. "
^DD(123,10,1,1,"DT")="2980616"
^DD(123,10,3)="Enter the name of the Ordering Provider."
^DD(123,10,21,0)="^^1^1^2970911^^^^"
^DD(123,10,21,1,0)="This is the provider who originated the order."
^DD(123,10,"DT")="3011212"
^DD(123,11,0)="RESULT^V^^0;15^Q"
^DD(123,11,3)="Enter the record number for the result in the MEDICINE PACKAGE that contains the results for this consult."
^DD(123,11,21,0)="^^3^3^2970911^^^^"
^DD(123,11,21,1,0)="This is a variable pointer used by the GMRC MEDICINE PKG INTERFACE option"
^DD(123,11,21,2,0)="to associate results in the Medicine Procedure Files with a consult/request"
^DD(123,11,21,3,0)="order."
^DD(123,11,"DT")="2911206"
^DD(123,11,"V",0)="^.12P^15^14"
^DD(123,11,"V",2,0)="691^Select ECHO report^2^ECHO"
^DD(123,11,"V",3,0)="691.1^Select CATH report^3^CATH"
^DD(123,11,"V",4,0)="691.5^Select ECG report^4^ECG^n^n"
^DD(123,11,"V",5,0)="691.6^Select HOLTER result^5^HOLTER^n^n"
^DD(123,11,"V",6,0)="691.7^Select ETT report^6^ETT^n^n"
^DD(123,11,"V",7,0)="691.8^Select EP report^7^EP^n^n"
^DD(123,11,"V",8,0)="694^Select HEM report^8^HEM^n^n"
^DD(123,11,"V",9,0)="698^Select GEN IMP report^9^G^n^n"
^DD(123,11,"V",10,0)="698.1^Select V LEAD IMPLANT^10^V^n^n"
^DD(123,11,"V",11,0)="698.2^Select A LEAD IMPLANT^11^A^n^n"
^DD(123,11,"V",12,0)="698.3^Select SURVEILLANCE report^12^PS^n^n"
^DD(123,11,"V",13,0)="699^Select ENDOSCOPY report^13^ENDO^n^n"
^DD(123,11,"V",14,0)="700^Select PFT report^14^PFT^n^n"
^DD(123,11,"V",15,0)="701^Select RHEUMATOLOGY report^15^RHEUM^n^n"
^DD(123,11,"V","B",691,2)=""
^DD(123,11,"V","B",691.1,3)=""
^DD(123,11,"V","B",691.5,4)=""
^DD(123,11,"V","B",691.6,5)=""
^DD(123,11,"V","B",691.7,6)=""
^DD(123,11,"V","B",691.8,7)=""
^DD(123,11,"V","B",694,8)=""
^DD(123,11,"V","B",698,9)=""
^DD(123,11,"V","B",698.1,10)=""
^DD(123,11,"V","B",698.2,11)=""
^DD(123,11,"V","B",698.3,12)=""
^DD(123,11,"V","B",699,13)=""
^DD(123,11,"V","B",700,14)=""
^DD(123,11,"V","B",701,15)=""
^DD(123,11,"V","M","Select A LEAD IMPLANT",11)=""
^DD(123,11,"V","M","Select CATH report",3)=""
^DD(123,11,"V","M","Select ECG report",4)=""
^DD(123,11,"V","M","Select ECHO report",2)=""
^DD(123,11,"V","M","Select ENDOSCOPY report",13)=""
^DD(123,11,"V","M","Select EP report",7)=""
^DD(123,11,"V","M","Select ETT report",6)=""
^DD(123,11,"V","M","Select GEN IMP report",9)=""
^DD(123,11,"V","M","Select HEM report",8)=""
^DD(123,11,"V","M","Select HOLTER result",5)=""
^DD(123,11,"V","M","Select PFT report",14)=""
^DD(123,11,"V","M","Select RHEUMATOLOGY report",15)=""
^DD(123,11,"V","M","Select SURVEILLANCE report",12)=""
^DD(123,11,"V","M","Select V LEAD IMPLANT",10)=""
^DD(123,11,"V","O",2,2)=""
^DD(123,11,"V","O",3,3)=""
^DD(123,11,"V","O",4,4)=""
^DD(123,11,"V","O",5,5)=""
^DD(123,11,"V","O",6,6)=""
^DD(123,11,"V","O",7,7)=""
^DD(123,11,"V","O",8,8)=""
^DD(123,11,"V","O",9,9)=""
^DD(123,11,"V","O",10,10)=""
^DD(123,11,"V","O",11,11)=""
^DD(123,11,"V","O",12,12)=""
^DD(123,11,"V","O",13,13)=""
^DD(123,11,"V","O",14,14)=""
^DD(123,11,"V","O",15,15)=""
^DD(123,11,"V","P","A",11)=""
^DD(123,11,"V","P","CATH",3)=""
^DD(123,11,"V","P","ECG",4)=""
^DD(123,11,"V","P","ECHO",2)=""
^DD(123,11,"V","P","ENDO",13)=""
^DD(123,11,"V","P","EP",7)=""
^DD(123,11,"V","P","ETT",6)=""
^DD(123,11,"V","P","G",9)=""
^DD(123,11,"V","P","HEM",8)=""
^DD(123,11,"V","P","HOLTER",5)=""
^DD(123,11,"V","P","PFT",14)=""
^DD(123,11,"V","P","PS",12)=""
^DD(123,11,"V","P","RHEUM",15)=""
^DD(123,11,"V","P","V",10)=""
^DD(123,12,0)="MODE OF ENTRY^S^1:SERVICE FORCED ENTRY;^0;16^Q"
^DD(123,12,3)="Enter '1' if this is a service-entered consult."
^DD(123,12,21,0)="^^4^4^2980425^^^^"
^DD(123,12,21,1,0)="When a consult or request is entered by the service, rather than through"
^DD(123,12,21,2,0)="CPRS order processing, this field will be set to ""1"" to indicate the"
^DD(123,12,21,3,0)="Service forced the entry.  This forcing means there is no electronic"
^DD(123,12,21,4,0)="signature related to the order."
^DD(123,12,"DT")="2980425"
^DD(123,13,0)="REQUEST TYPE^RS^C:Consult;P:Procedure;^0;17^Q"
^DD(123,13,3)=""
^DD(123,13,21,0)="^^3^3^3010110^"
^DD(123,13,21,1,0)="This field will indicate whether the order is a consult or procedure"
^DD(123,13,21,2,0)="request order.  Based on this fields value, the Consultation Body Header"
^DD(123,13,21,3,0)="alters to indicate ""Consult Type: "" or ""Procedure Request: ""."
^DD(123,13,"DT")="2991214"
^DD(123,14,0)="SERVICE RENDERED AS IN OR OUT^S^I:inpatient;O:outpatient;^0;18^Q"
^DD(123,14,3)="Type I if the service is on an inpatient basis, O if outpatient."
^DD(123,14,21,0)="^^4^4^2981112^^^^"
^DD(123,14,21,1,0)="This field allows the ordering person to indicate if the service is to"
^DD(123,14,21,2,0)="be rendered on an outpatient or inpatient basis.  This is to alleviate"
^DD(123,14,21,3,0)="the confusion if patient is currently an inpatient/outpatient but is"
^DD(123,14,21,4,0)="just about to be discharged/admitted and become a outpatient/inpatient."
^DD(123,14,"DT")="2910925"
^DD(123,15,0)="SIGNIFICANT FINDINGS^S^Y:yes;N:no;U:unknown;^0;19^Q"
^DD(123,15,3)="Enter a value to indicate if significant findings are in the results."
^DD(123,15,21,0)="^^4^4^2980423^^"
^DD(123,15,21,1,0)="If significant findings are noted in the consult results, then this field"
^DD(123,15,21,2,0)="may be marked ""Yes"", and appropriate comments may be entered in the"
^DD(123,15,21,3,0)="""Comment"" field. ""Unknown"" is the default. ""No"" may also be specified to"
^DD(123,15,21,4,0)="indicate the results do not include significant findings."
^DD(123,15,"DT")="2980423"
^DD(123,16,0)="TIU RESULT NARRATIVE^P8925'^TIU(8925,^0;20^Q"
^DD(123,16,3)="Enter the File 8925 internal entry number where the TIU narrative for this consult is stored."
^DD(123,16,21,0)="^^2^2^2970911^^^^"
^DD(123,16,21,1,0)="Pointer to the Text Integration Utilities file (#8925) where consult/request"
^DD(123,16,21,2,0)="results narrative is stored."
^DD(123,16,"DT")="2960514"
^DD(123,20,0)="REASON FOR REQUEST^123.01^^20;0"
^DD(123,20,21,0)="^^1^1^2970915^^^^"
^DD(123,20,21,1,0)="This is the reason for requesting the Consult or Procedure Request."
^DD(123,30,0)="PROVISIONAL DIAGNOSIS^F^^30;1^K:$L(X)>180!($L(X)<2) X"
^DD(123,30,3)="Enter a Provisional Diagnosis, 2 to 180 characters in length."
^DD(123,30,21,0)="^^2^2^2970911^^^^"
^DD(123,30,21,1,0)="This is the Provisional Diagnosis the ordering clinician would specify"
^DD(123,30,21,2,0)="on the Consult Form 513."
^DD(123,30,"DT")="2970522"
^DD(123,30.1,0)="PROVISIONAL DIAGNOSIS CODE^F^^30.1;1^K:$L(X)>20!($L(X)<2) X"
^DD(123,30.1,3)="Answer must be 2-20 characters in length"
^DD(123,30.1,21,0)="^^2^2^2991201^"
^DD(123,30.1,21,1,0)="This field is used to store the coded portion of the Provisional Diagnosis"
^DD(123,30.1,21,2,0)="if an ICD-9 coded diagnosis is sent via CPRS. "
^DD(123,30.1,"DT")="2990924"
^DD(123,40,0)="REQUEST PROCESSING ACTIVITY^123.02D^^40;0"
^DD(123,40,21,0)="^.001^1^1^3020619^^^^"
^DD(123,40,21,1,0)="Maintains history of processing actions."
^DD(123,40,"DT")="3020619"
^DD(123,50,0)="ASSOCIATED RESULTS^123.03AV^^50;0"
^DD(123,51,0)="REMOTE RESULTS^123.051D^^51;0"
^DD(123,51,"DT")="3010730"
^DD(123,70,0)="ADMINISTRATIVE^SX^0:NO;1:YES;^70;1^Q"
^DD(123,70,3)="Field is set via a Trigger on TO SERVICE"
^DD(123,70,5,1,0)="123^1^2"
^DD(123,70,9)="^"
^DD(123,70,21,0)="^^4^4^3080208^"
^DD(123,70,21,1,0)="This field is set via a trigger on TO SERVICE which will set this field"
^DD(123,70,21,2,0)="to the value found in the ADMINISTRATIVE field of the REQUEST SERVICES"
^DD(123,70,21,3,0)="file (#123.5).  Requests marked as administrative shall be excluded from"
^DD(123,70,21,4,0)="the Consults Performance Monitor report [GMRC RPT PERF MONITOR]"
^DD(123,70,"DT")="3080208"
^DD(123,"B","ADMINISTRATIVE",70)=""
^DD(123,"B","ASSOCIATED RESULTS",50)=""
^DD(123,"B","ATTENTION",7)=""
^DD(123,"B","CLINICAL PROCEDURE",1.01)=""
^DD(123,"B","CPRS STATUS",8)=""
^DD(123,"B","DATE OF REQUEST",3)=""
^DD(123,"B","DISPLAY TEXT OF ITEM ORDERED",.1)=""
^DD(123,"B","FILE ENTRY DATE",.01)=""
^DD(123,"B","FROM",2)=""
^DD(123,"B","IFC REMOTE SERVICE NAME",.131)=""
^DD(123,"B","IFC ROLE",.125)=""
^DD(123,"B","LAST ACTION TAKEN",9)=""
^DD(123,"B","MODE OF ENTRY",12)=""
^DD(123,"B","NUMBER",.001)=""
^DD(123,"B","OE/RR FILE NUMBER",.03)=""
^DD(123,"B","ORDERING FACILITY",.05)=""
^DD(123,"B","PATIENT LOCATION",.04)=""
^DD(123,"B","PATIENT NAME",.02)=""
^DD(123,"B","PLACE OF CONSULTATION",6)=""
^DD(123,"B","PROCEDURE/REQUEST TYPE",4)=""
^DD(123,"B","PROVISIONAL DIAGNOSIS",30)=""
^DD(123,"B","PROVISIONAL DIAGNOSIS CODE",30.1)=""
^DD(123,"B","REASON FOR REQUEST",20)=""
^DD(123,"B","REMOTE CONSULT FILE ENTRY",.06)=""
^DD(123,"B","REMOTE ORDERING PROVIDER",.126)=""
^DD(123,"B","REMOTE REQUESTOR DIG PAGER",.133)=""
^DD(123,"B","REMOTE REQUESTOR PHONE",.132)=""
^DD(123,"B","REMOTE RESULTS",51)=""
^DD(123,"B","REQUEST PROCESSING ACTIVITY",40)=""
^DD(123,"B","REQUEST TYPE",13)=""
^DD(123,"B","RESULT",11)=""
^DD(123,"B","ROUTING FACILITY",.07)=""
^DD(123,"B","SENDING PROVIDER",10)=""
^DD(123,"B","SERVICE RENDERED AS IN OR OUT",14)=""
^DD(123,"B","SIGNIFICANT FINDINGS",15)=""
^DD(123,"B","TIU RESULT NARRATIVE",16)=""
^DD(123,"B","TO SERVICE",1)=""
^DD(123,"B","URGENCY",5)=""
^DD(123,"GL",0,1,.01)=""
^DD(123,"GL",0,2,.02)=""
^DD(123,"GL",0,3,.03)=""
^DD(123,"GL",0,4,.04)=""
^DD(123,"GL",0,5,1)=""
^DD(123,"GL",0,6,2)=""
^DD(123,"GL",0,7,3)=""
^DD(123,"GL",0,8,4)=""
^DD(123,"GL",0,9,5)=""
^DD(123,"GL",0,10,6)=""
^DD(123,"GL",0,11,7)=""
^DD(123,"GL",0,12,8)=""
^DD(123,"GL",0,13,9)=""
^DD(123,"GL",0,14,10)=""
^DD(123,"GL",0,15,11)=""
^DD(123,"GL",0,16,12)=""
^DD(123,"GL",0,17,13)=""
^DD(123,"GL",0,18,14)=""
^DD(123,"GL",0,19,15)=""
^DD(123,"GL",0,20,16)=""
^DD(123,"GL",0,21,.05)=""
^DD(123,"GL",0,22,.06)=""
^DD(123,"GL",0,23,.07)=""
^DD(123,"GL",1,1,1.01)=""
^DD(123,"GL",1.11,1,.1)=""
^DD(123,"GL",12,5,.125)=""
^DD(123,"GL",12,6,.126)=""
^DD(123,"GL",13,1,.131)=""
^DD(123,"GL",13,2,.132)=""
^DD(123,"GL",13,3,.133)=""
^DD(123,"GL",20,0,20)=""
^DD(123,"GL",30,1,30)=""
^DD(123,"GL",30.1,1,30.1)=""
^DD(123,"GL",40,0,40)=""
^DD(123,"GL",50,0,50)=""
^DD(123,"GL",51,0,51)=""
^DD(123,"GL",70,1,70)=""
^DD(123,"IX",.01)=""
^DD(123,"IX",.02)=""
^DD(123,"IX",.03)=""
^DD(123,"IX",.04)=""
^DD(123,"IX",.126)=""
^DD(123,"IX",1)=""
^DD(123,"IX",2)=""
^DD(123,"IX",3)=""
^DD(123,"IX",4)=""
^DD(123,"IX",8)=""
^DD(123,"IX",10)=""
^DD(123,"RQ",.01)=""
^DD(123,"RQ",.02)=""
^DD(123,"RQ",1)=""
^DD(123,"RQ",3)=""
^DD(123,"RQ",13)=""
^DD(123,"SB",123.01,20)=""
^DD(123,"SB",123.02,40)=""
^DD(123,"SB",123.03,50)=""
^DD(123,"SB",123.051,51)=""
^DD(123.01,0)="REASON FOR REQUEST SUB-FIELD^^.01^1"
^DD(123.01,0,"DT")="2910605"
^DD(123.01,0,"NM","REASON FOR REQUEST")=""
^DD(123.01,0,"UP")="123"
^DD(123.01,.01,0)="REASON FOR REQUEST^W^^0;1^Q"
^DD(123.01,.01,3)="Enter the reason this consult is being requested."
^DD(123.01,.01,21,0)="^^1^1^2970915^^^^"
^DD(123.01,.01,21,1,0)="This is the reason for requesting the Consult or Procedure Request."
^DD(123.01,.01,"DT")="2910605"
^DD(123.01,"B","REASON FOR REQUEST",.01)=""
^DD(123.01,"GL",0,1,.01)=""
^DD(123.02,0)="REQUEST PROCESSING ACTIVITY SUB-FIELD^^10^17"
^DD(123.02,0,"DT")="2980425"
^DD(123.02,0,"IX","B",123.02,.01)=""
^DD(123.02,0,"NM","REQUEST PROCESSING ACTIVITY")=""
^DD(123.02,0,"UP")="123"
^DD(123.02,.01,0)="DATE/TIME OF ACTION ENTRY^RDX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(123.02,.01,.1)="ACTIVITY ENTRY DATE"
^DD(123.02,.01,1,0)="^.1"
^DD(123.02,.01,1,1,0)="123.02^B"
^DD(123.02,.01,1,1,1)="S ^GMR(123,DA(1),40,""B"",$E(X,1,30),DA)="""""
^DD(123.02,.01,1,1,2)="K ^GMR(123,DA(1),40,""B"",$E(X,1,30),DA)"
^DD(123.02,.01,3)="Enter the Date/Time you are entering this activity."
^DD(123.02,.01,21,0)="^.001^2^2^3020619^^^"
^DD(123.02,.01,21,1,0)="This is the actual date and time the activity tracking update was added"
^DD(123.02,.01,21,2,0)="to the REQUEST PROCESSING ACTIVITY multiple."
^DD(123.02,.01,"DT")="3020619"
^DD(123.02,.21,0)="REMOTE ENTERING PERSON^F^^2;1^K:$L(X)>64!($L(X)<2) X"
^DD(123.02,.21,3)="Answer must be 2-64 characters in length"
^DD(123.02,.21,21,0)="^^5^5^3011207^"
^DD(123.02,.21,21,1,0)="This is the free text name of the individual that entered this activity "
^DD(123.02,.21,21,2,0)="at the facility referenced in the ROUTING FACILITY field. "
^DD(123.02,.21,21,3,0)=" "
^DD(123.02,.21,21,4,0)="This field will only be popluated for activities entered on a remote "
^DD(123.02,.21,21,5,0)="VistA system for an inter-facility consult. "
^DD(123.02,.21,"DT")="3011207"
^DD(123.02,.22,0)="REMOTE RESPONSIBLE PERSON^F^^2;2^K:$L(X)>64!($L(X)<2) X"
^DD(123.02,.22,3)="Answer must be 2-64 characters in length"
^DD(123.02,.22,21,0)="^^5^5^3011207^"
^DD(123.02,.22,21,1,0)="This is the free text name of the individual that is responsible for this "
^DD(123.02,.22,21,2,0)="activity at the facility referenced in the ROUTING FACILITY field."
^DD(123.02,.22,21,3,0)=" "
^DD(123.02,.22,21,4,0)="This field will only be popluated for activities entered on a remote"
^DD(123.02,.22,21,5,0)="VistA system for an inter-facility consult.         "
^DD(123.02,.22,"DT")="3011207"
^DD(123.02,.23,0)="REMOTE ACTIVITY TIME ZONE^F^^2;3^K:$L(X)>3!($L(X)<3) X"
^DD(123.02,.23,3)="Answer must be 3 characters in length"
^DD(123.02,.23,21,0)="^^4^4^3011207^"
^DD(123.02,.23,21,1,0)="This is the short representation of the time zone in which this activity "
^DD(123.02,.23,21,2,0)="took place.  When an inter-facility consult update message is generated at"
^DD(123.02,.23,21,3,0)="a remote facility, the current MAILMAN TIME ZONE at that facility is sent "
^DD(123.02,.23,21,4,0)="with the message and stored in this field."
^DD(123.02,.23,"DT")="3011207"
^DD(123.02,.24,0)="REMOTE RESULT^F^^2;4^K:$L(X)>60!($L(X)<2) X"
^DD(123.02,.24,3)="Answer must be 2-60 characters in length."
^DD(123.02,.24,21,0)="^^5^5^3011207^"
^DD(123.02,.24,21,1,0)="This field will contain a reference to a  result stored on a remote"
^DD(123.02,.24,21,2,0)="VistA system. "
^DD(123.02,.24,21,3,0)=" "
^DD(123.02,.24,21,4,0)="Result will be in form: "
^DD(123.02,.24,21,5,0)="  ien;source file of result;institution ien where result resides"
^DD(123.02,.24,"DT")="3011207"
^DD(123.02,.25,0)="REMOTE DATE/TIME OF FILING^D^^2;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(123.02,.25,3)="Enter the date/time the activity was actually filed at the remote site"
^DD(123.02,.25,21,0)="^^4^4^3020323^"
^DD(123.02,.25,21,1,0)="This field will hold the date/time this particular activity was filed at "
^DD(123.02,.25,21,2,0)="the remote facility.  This field will be used in conjunction with the "
^DD(123.02,.25,21,3,0)="DATE/TIME OF ACTUAL ACTIVITY field to detect and reject the filing of "
^DD(123.02,.25,21,4,0)="duplicate activities."
^DD(123.02,.25,"DT")="3020323"
^DD(123.02,.31,0)="PREVIOUS REMOTE SERVICE NAME^F^^3;1^K:$L(X)>63!($L(X)<3) X"
^DD(123.02,.31,3)="Answer must be 3-63 characters in length."
^DD(123.02,.31,21,0)="^^2^2^3011207^"
^DD(123.02,.31,21,1,0)="This field holds the name of the service that the inter-facility consult"
^DD(123.02,.31,21,2,0)="was was directed to at the remote site prior to being forwarded."
^DD(123.02,.31,"DT")="3011207"
^DD(123.02,1,0)="ACTIVITY^P123.1'^GMR(123.1,^0;2^Q"
^DD(123.02,1,3)="Enter the activity being updated (From file 123.1)"
^DD(123.02,1,21,0)="^^1^1^2970611^^"
^DD(123.02,1,21,1,0)="This is the activity that is being updated."
^DD(123.02,1,"DT")="3020307"
^DD(123.02,2,0)="DATE/TIME OF ACTUAL ACTIVITY^DX^^0;3^S %DT=""ETXS"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(123.02,2,.1)=""
^DD(123.02,2,3)="ENTER BOTH DATE AND TIME.  FUTURE DATE/TIME NOT PERMITTED."
^DD(123.02,2,21,0)="^.001^2^2^3020619^^^^"
^DD(123.02,2,21,1,0)="The Date and time the actual activity was done.  This may be different "
^DD(123.02,2,21,2,0)="than the DATE/TIME OF ACTION ENTRY for certain actions."
^DD(123.02,2,"DT")="3020619"
^DD(123.02,3,0)="WHO'S RESPONSIBLE FOR ACTIVITY^RP200'^VA(200,^0;4^Q"
^DD(123.02,3,3)="Enter the name of the provider responsible for the activity."
^DD(123.02,3,21,0)="^^1^1^2970611^^^^"
^DD(123.02,3,21,1,0)="The clinician or service person responsible for the activity."
^DD(123.02,3,"DT")="2920227"
^DD(123.02,4,0)="WHO ENTERED ACTIVITY^RP200'^VA(200,^0;5^Q"
^DD(123.02,4,"DT")="2910507"
^DD(123.02,5,0)="COMMENT^123.25^^1;0"
^DD(123.02,5,21,0)="^^2^2^2970611^^^"
^DD(123.02,5,21,1,0)="A comment may be added here which would be associated with the Action"
^DD(123.02,5,21,2,0)="Type selected at the ""Select Action: "" prompt."
^DD(123.02,5,"DT")="2910507"
^DD(123.02,6,0)="FORWARDED FROM^P123.5'^GMR(123.5,^0;6^Q"
^DD(123.02,6,1,0)="^.1"
^DD(123.02,6,1,1,0)="123^AD^MUMPS"
^DD(123.02,6,1,1,1)="N B S B=DA(1) N A,C,D,E S A=""AWAS1"" I $D(^SC(A,B)) S C=$O(^SC(A,B,0)),D=$O(^SC(A,B,C,0)),E=$O(^SC(A,B,C,D,0)) S $P(^SC(C,""S"",D,1,E,""CONS""),U)="""" K ^SC(""AWAS1"",B)"
^DD(123.02,6,1,1,2)="Q"
^DD(123.02,6,1,1,"%D",0)="^^2^2^3060410^"
^DD(123.02,6,1,1,"%D",1,0)="This x-ref removes the appointment link to the consult when this field is "
^DD(123.02,6,1,1,"%D",2,0)="filled in."
^DD(123.02,6,1,1,"DT")="3060410"
^DD(123.02,6,3)="Enter the name of the Hospital Service which is forwarding the consult."
^DD(123.02,6,21,0)="^^2^2^2970611^^^"
^DD(123.02,6,21,1,0)="This is the Service which forwarded the Consult to the new TO SERVICE."
^DD(123.02,6,21,2,0)="It is maintained for an audit trail."
^DD(123.02,6,"DT")="3060410"
^DD(123.02,7,0)="PREVIOUSLY ASSIGNED TO^P200'^VA(200,^0;7^Q"
^DD(123.02,7,3)="Enter the name of the provider who was previously assigned this consult."
^DD(123.02,7,21,0)="^^1^1^2970611^^"
^DD(123.02,7,21,1,0)="This field is not used in this version."
^DD(123.02,7,"DT")="2911208"
^DD(123.02,8,0)="PRINTED TO^P3.5'^%ZIS(1,^0;8^Q"
^DD(123.02,8,3)="Enter the name of the Printer Device which printed the consult."
^DD(123.02,8,21,0)="^^3^3^2970611^^"
^DD(123.02,8,21,1,0)="This is the printer that the CONSULT FORM 513 was printed to upon the"
^DD(123.02,8,21,2,0)="orders release from OE/RR or when the Consult/Request order is forwarded"
^DD(123.02,8,21,3,0)="from one service to another."
^DD(123.02,8,"DT")="2920510"
^DD(123.02,9,0)="RESULT^V^^0;9^Q"
^DD(123.02,9,3)="Enter the associated result."
^DD(123.02,9,21,0)="^^1^1^2980414^^"
^DD(123.02,9,21,1,0)="This is the result that was updated when this activity occurred."
^DD(123.02,9,"DT")="2980414"
^DD(123.02,9,"V",0)="^.12P^1^1"
^DD(123.02,9,"V",1,0)="8925^Note^1^TIU^n^n"
^DD(123.02,9,"V","B",8925,1)=""
^DD(123.02,9,"V","M","Note",1)=""
^DD(123.02,9,"V","O",1,1)=""
^DD(123.02,9,"V","P","TIU",1)=""
^DD(123.02,10,0)="ACTION METHOD^S^1:Consult Actions;2:Order Actions;3:GUI Actions;4:TIU Interface;^0;10^Q"
^DD(123.02,10,3)="Enter the number that indicates how the action originated."
^DD(123.02,10,21,0)="^^2^2^2980425^^"
^DD(123.02,10,21,1,0)="The action method will identify how the user performed the action, from a"
^DD(123.02,10,21,2,0)="consults menu, Order entry menu, a GUI menu, or a TIU interface."
^DD(123.02,10,"DT")="2980425"
^DD(123.02,"B","ACTION METHOD",10)=""
^DD(123.02,"B","ACTIVITY",1)=""
^DD(123.02,"B","ACTIVITY ENTRY DATE",.01)="1"
^DD(123.02,"B","COMMENT",5)=""
^DD(123.02,"B","DATE/TIME OF ACTION ENTRY",.01)=""
^DD(123.02,"B","DATE/TIME OF ACTUAL ACTIVITY",2)=""
^DD(123.02,"B","FORWARDED FROM",6)=""
^DD(123.02,"B","PREVIOUS REMOTE SERVICE NAME",.31)=""
^DD(123.02,"B","PREVIOUSLY ASSIGNED TO",7)=""
^DD(123.02,"B","PRINTED TO",8)=""
^DD(123.02,"B","REMOTE ACTIVITY TIME ZONE",.23)=""
^DD(123.02,"B","REMOTE DATE/TIME OF FILING",.25)=""
^DD(123.02,"B","REMOTE ENTERING PERSON",.21)=""
^DD(123.02,"B","REMOTE RESPONSIBLE PERSON",.22)=""
^DD(123.02,"B","REMOTE RESULT",.24)=""
^DD(123.02,"B","RESULT",9)=""
^DD(123.02,"B","WHO ENTERED ACTIVITY",4)=""
^DD(123.02,"B","WHO'S RESPONSIBLE FOR ACTIVITY",3)=""
^DD(123.02,"GL",0,1,.01)=""
^DD(123.02,"GL",0,2,1)=""
^DD(123.02,"GL",0,3,2)=""
^DD(123.02,"GL",0,4,3)=""
^DD(123.02,"GL",0,5,4)=""
^DD(123.02,"GL",0,6,6)=""
^DD(123.02,"GL",0,7,7)=""
^DD(123.02,"GL",0,8,8)=""
^DD(123.02,"GL",0,9,9)=""
^DD(123.02,"GL",0,10,10)=""
^DD(123.02,"GL",1,0,5)=""
^DD(123.02,"GL",2,1,.21)=""
^DD(123.02,"GL",2,2,.22)=""
^DD(123.02,"GL",2,3,.23)=""
^DD(123.02,"GL",2,4,.24)=""
^DD(123.02,"GL",2,5,.25)=""
^DD(123.02,"GL",3,1,.31)=""
^DD(123.02,"IX",.01)=""
^DD(123.02,"IX",6)=""
^DD(123.02,"RQ",.01)=""
^DD(123.02,"RQ",3)=""
^DD(123.02,"RQ",4)=""
^DD(123.02,"SB",123.25,5)=""
^DD(123.03,0)="ASSOCIATED RESULTS SUB-FIELD^^.01^1"
^DD(123.03,0,"DT")="2980320"
^DD(123.03,0,"IX","B",123.03,.01)=""
^DD(123.03,0,"NM","ASSOCIATED RESULTS")=""
^DD(123.03,0,"UP")="123"
^DD(123.03,.01,0)="ASSOCIATED RESULTS^MV^^0;1^Q"
^DD(123.03,.01,1,0)="^.1"
^DD(123.03,.01,1,1,0)="123.03^B"
^DD(123.03,.01,1,1,1)="S ^GMR(123,DA(1),50,""B"",$E(X,1,30),DA)="""""
^DD(123.03,.01,1,1,2)="K ^GMR(123,DA(1),50,""B"",$E(X,1,30),DA)"
^DD(123.03,.01,1,1,3)="Required Index for Variable Pointer"
^DD(123.03,.01,1,2,0)="123^R"
^DD(123.03,.01,1,2,1)="S ^GMR(123,""R"",$E(X,1,30),DA(1),DA)="""""
^DD(123.03,.01,1,2,2)="K ^GMR(123,""R"",$E(X,1,30),DA(1),DA)"
^DD(123.03,.01,1,2,"DT")="2980622"
^DD(123.03,.01,3)="Enter the associated result."
^DD(123.03,.01,21,0)="^^3^3^3000823^"
^DD(123.03,.01,21,1,0)="This multiple allows one or more results to be associated with a consult."
^DD(123.03,.01,21,2,0)=" "
^DD(123.03,.01,21,3,0)="This field invokes IA #147"
^DD(123.03,.01,"DT")="2980622"
^DD(123.03,.01,"V",0)="^.12P^16^16"
^DD(123.03,.01,"V",1,0)="8925^Note^1^TIU^n^n"
^DD(123.03,.01,"V",2,0)="691^Select ECHO report^2^ECHO^n^n"
^DD(123.03,.01,"V",3,0)="691.1^Select CATH report^3^CATH^n^n"
^DD(123.03,.01,"V",4,0)="691.5^Select EKG report^4^EKG^n^n"
^DD(123.03,.01,"V",5,0)="691.6^Select HOLTER report^5^HOLTER^n^n"
^DD(123.03,.01,"V",6,0)="691.7^Select ETT report^6^ETT^n^n"
^DD(123.03,.01,"V",7,0)="691.8^Select EP report^7^EP^n^n"
^DD(123.03,.01,"V",8,0)="694^Select HEM report^8^HEM^n^n"
^DD(123.03,.01,"V",9,0)="698^Select GEN IMP report^9^GEN IMP^n^n"
^DD(123.03,.01,"V",10,0)="698.1^Select V LEAD IMPLANT report^10^V LEAD^n^n"
^DD(123.03,.01,"V",11,0)="698.2^Select A LEAD IMPLANT report^11^A LEAD^n^n"
^DD(123.03,.01,"V",12,0)="698.3^Select PACEMAKER report^12^PACE^n^n"
^DD(123.03,.01,"V",13,0)="699^Select ENDO report^13^ENDO^n^n"
^DD(123.03,.01,"V",14,0)="699.5^Select GEN PROCEDURE report^14^GEN PROC^n^n"
^DD(123.03,.01,"V",15,0)="700^Select PFT report^15^PFT^n^n"
^DD(123.03,.01,"V",16,0)="701^Select RHEUMATOLOGY report^16^RHEUM^n^n"
^DD(123.03,.01,"V","B",691,2)=""
^DD(123.03,.01,"V","B",691.1,3)=""
^DD(123.03,.01,"V","B",691.5,4)=""
^DD(123.03,.01,"V","B",691.6,5)=""
^DD(123.03,.01,"V","B",691.7,6)=""
^DD(123.03,.01,"V","B",691.8,7)=""
^DD(123.03,.01,"V","B",694,8)=""
^DD(123.03,.01,"V","B",698,9)=""
^DD(123.03,.01,"V","B",698.1,10)=""
^DD(123.03,.01,"V","B",698.2,11)=""
^DD(123.03,.01,"V","B",698.3,12)=""
^DD(123.03,.01,"V","B",699,13)=""
^DD(123.03,.01,"V","B",699.5,14)=""
^DD(123.03,.01,"V","B",700,15)=""
^DD(123.03,.01,"V","B",701,16)=""
^DD(123.03,.01,"V","B",8925,1)=""
^DD(123.03,.01,"V","M","Note",1)=""
^DD(123.03,.01,"V","M","Select A LEAD IMPLANT report",11)=""
^DD(123.03,.01,"V","M","Select CATH report",3)=""
^DD(123.03,.01,"V","M","Select ECHO report",2)=""
^DD(123.03,.01,"V","M","Select EKG report",4)=""
^DD(123.03,.01,"V","M","Select ENDO report",13)=""
^DD(123.03,.01,"V","M","Select EP report",7)=""
^DD(123.03,.01,"V","M","Select ETT report",6)=""
^DD(123.03,.01,"V","M","Select GEN IMP report",9)=""
^DD(123.03,.01,"V","M","Select GEN PROCEDURE report",14)=""
^DD(123.03,.01,"V","M","Select HEM report",8)=""
^DD(123.03,.01,"V","M","Select HOLTER report",5)=""
^DD(123.03,.01,"V","M","Select PACEMAKER report",12)=""
^DD(123.03,.01,"V","M","Select PFT report",15)=""
^DD(123.03,.01,"V","M","Select RHEUMATOLOGY report",16)=""
^DD(123.03,.01,"V","M","Select V LEAD IMPLANT report",10)=""
^DD(123.03,.01,"V","O",1,1)=""
^DD(123.03,.01,"V","O",2,2)=""
^DD(123.03,.01,"V","O",3,3)=""
^DD(123.03,.01,"V","O",4,4)=""
^DD(123.03,.01,"V","O",5,5)=""
^DD(123.03,.01,"V","O",6,6)=""
^DD(123.03,.01,"V","O",7,7)=""
^DD(123.03,.01,"V","O",8,8)=""
^DD(123.03,.01,"V","O",9,9)=""
^DD(123.03,.01,"V","O",10,10)=""
^DD(123.03,.01,"V","O",11,11)=""
^DD(123.03,.01,"V","O",12,12)=""
^DD(123.03,.01,"V","O",13,13)=""
^DD(123.03,.01,"V","O",14,14)=""
^DD(123.03,.01,"V","O",15,15)=""
^DD(123.03,.01,"V","O",16,16)=""
^DD(123.03,.01,"V","P","A LEAD",11)=""
^DD(123.03,.01,"V","P","CATH",3)=""
^DD(123.03,.01,"V","P","ECHO",2)=""
^DD(123.03,.01,"V","P","EKG",4)=""
^DD(123.03,.01,"V","P","ENDO",13)=""
^DD(123.03,.01,"V","P","EP",7)=""
^DD(123.03,.01,"V","P","ETT",6)=""
^DD(123.03,.01,"V","P","GEN IMP",9)=""
^DD(123.03,.01,"V","P","GEN PROC",14)=""
^DD(123.03,.01,"V","P","HEM",8)=""
^DD(123.03,.01,"V","P","HOLTER",5)=""
^DD(123.03,.01,"V","P","PACE",12)=""
^DD(123.03,.01,"V","P","PFT",15)=""
^DD(123.03,.01,"V","P","RHEUM",16)=""
^DD(123.03,.01,"V","P","TIU",1)=""
^DD(123.03,.01,"V","P","V LEAD",10)=""
^DD(123.03,"B","ASSOCIATED RESULTS",.01)=""
^DD(123.03,"GL",0,1,.01)=""
^DD(123.03,"IX",.01)=""
^DD(123.051,0)="REMOTE RESULTS SUB-FIELD^^.03^3"
^DD(123.051,0,"DT")="3010730"
^DD(123.051,0,"IX","B",123.051,.01)=""
^DD(123.051,0,"NM","REMOTE RESULTS")=""
^DD(123.051,0,"UP")="123"
^DD(123.051,.01,0)="REMOTE RESULT DATE^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(123.051,.01,1,0)="^.1"
^DD(123.051,.01,1,1,0)="123.051^B"
^DD(123.051,.01,1,1,1)="S ^GMR(123,DA(1),51,""B"",$E(X,1,30),DA)="""""
^DD(123.051,.01,1,1,2)="K ^GMR(123,DA(1),51,""B"",$E(X,1,30),DA)"
^DD(123.051,.01,3)="(No range limit on date)"
^DD(123.051,.01,21,0)="^^1^1^3011207^"
^DD(123.051,.01,21,1,0)="This is the date/time that a remote result was added to the record."
^DD(123.051,.01,"DT")="3011207"
^DD(123.051,.02,0)="REMOTE ASSOCIATED RESULT^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(123.051,.02,3)="Answer must be 2-30 characters in length"
^DD(123.051,.02,21,0)="^^2^2^3011207^"
^DD(123.051,.02,21,1,0)="This is the free text representation of a variable pointer from a remote "
^DD(123.051,.02,21,2,0)="facility. The facility is referenced in the RESULTING SITE field. "
^DD(123.051,.02,"DT")="3011207"
^DD(123.051,.03,0)="RESULTING SITE^P4'^DIC(4,^0;3^Q"
^DD(123.051,.03,21,0)="^^3^3^3011207^"
^DD(123.051,.03,21,1,0)="This field is a pointer to the INSTITUION file and contains the "
^DD(123.051,.03,21,2,0)="institution that stores the result referenced in the REMOTE ASSOCIATED "
^DD(123.051,.03,21,3,0)="RESULT FIELD."
^DD(123.051,.03,"DT")="3011207"
^DD(123.051,"B","REMOTE ASSOCIATED RESULT",.02)=""
^DD(123.051,"B","REMOTE RESULT DATE",.01)=""
^DD(123.051,"B","RESULTING SITE",.03)=""
^DD(123.051,"GL",0,1,.01)=""
^DD(123.051,"GL",0,2,.02)=""
^DD(123.051,"GL",0,3,.03)=""
^DD(123.051,"IX",.01)=""
^DD(123.1,0)="FIELD^^7^8"
^DD(123.1,0,"DDA")="N"
^DD(123.1,0,"DT")="2980701"
^DD(123.1,0,"IX","AC",123.1,1)=""
^DD(123.1,0,"IX","B",123.1,.01)=""
^DD(123.1,0,"IX","D",123.1,5)=""
^DD(123.1,0,"NM","REQUEST ACTION TYPES")=""
^DD(123.1,0,"PT",101,6)=""
^DD(123.1,0,"PT",123,9)=""
^DD(123.1,0,"PT",123.02,1)=""
^DD(123.1,0,"VR")="3.0"
^DD(123.1,0,"VRPK")="GMRC"
^DD(123.1,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(123.1,.001,3)="Enter a number between your sites prefix_000 and your sites prefix_999."
^DD(123.1,.001,21,0)="^^1^1^2971205^"
^DD(123.1,.001,21,1,0)="The internal entry number of the Request Action Type."
^DD(123.1,.001,"DT")="2971205"
^DD(123.1,.01,0)="ACTION TYPE^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(123.1,.01,1,0)="^.1^^-1"
^DD(123.1,.01,1,1,0)="123.1^B"
^DD(123.1,.01,1,1,1)="S ^GMR(123.1,""B"",$E(X,1,30),DA)="""""
^DD(123.1,.01,1,1,2)="K ^GMR(123.1,""B"",$E(X,1,30),DA)"
^DD(123.1,.01,3)="ENTER THE ACTION NAME. ANSWER MUST BE 3-80 CHARACTERS IN LENGTH"
^DD(123.1,.01,21,0)="^^6^6^2970911^^^^"
^DD(123.1,.01,21,1,0)="This file contains the tracking actions which may be taken to track"
^DD(123.1,.01,21,2,0)="a Consult or Request order from its entry in CPRS through its"
^DD(123.1,.01,21,3,0)="resolution."
^DD(123.1,.01,21,4,0)=" "
^DD(123.1,.01,21,5,0)="This file also contains relationships of CPRS statuses which are the"
^DD(123.1,.01,21,6,0)="result of the action taken."
^DD(123.1,.01,"DT")="2910529"
^DD(123.1,1,0)="RELATED OE/RR STATUS^*P100.01'^ORD(100.01,^0;2^S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.1,1,1,0)="^.1"
^DD(123.1,1,1,1,0)="123.1^AC"
^DD(123.1,1,1,1,1)="S ^GMR(123.1,""AC"",$E(X,1,30),DA)="""""
^DD(123.1,1,1,1,2)="K ^GMR(123.1,""AC"",$E(X,1,30),DA)"
^DD(123.1,1,1,1,"%D",0)="^^3^3^2920608^^^"
^DD(123.1,1,1,1,"%D",1,0)="This cross-reference is used when the call to RESULT^GMRCR returns an"
^DD(123.1,1,1,1,"%D",2,0)="OE/RR status.  This OE/RR status is used to determine the action type to"
^DD(123.1,1,1,1,"%D",3,0)="use to update activity tracking."
^DD(123.1,1,1,1,"DT")="2910529"
^DD(123.1,1,3)="This is the CPRS Status used to update the order in CPRS."
^DD(123.1,1,12)="Data Standardization of Order Status (#100.01) file."
^DD(123.1,1,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(100.01,,Y_"""","""")"""
^DD(123.1,1,21,0)="^.001^2^2^3060118^^^^"
^DD(123.1,1,21,1,0)="This is the CPRS status which will be used to update the order in OE/RR"
^DD(123.1,1,21,2,0)="when this action is taken."
^DD(123.1,1,"DT")="3060118"
^DD(123.1,3,0)="DISABLED MESSAGE^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(123.1,3,3)="Enter the message that will display when this action is disabled, 1-40 characters."
^DD(123.1,3,21,0)="^^2^2^2970911^^^^"
^DD(123.1,3,21,1,0)="This field displays a 'DISABLED' message when this CPRS status has been"
^DD(123.1,3,21,2,0)="disabled."
^DD(123.1,3,"DT")="2920225"
^DD(123.1,4,0)="HL7 CONTROL CODE FROM CONSULTS^F^^0;5^K:$L(X)>2!($L(X)<1) X"
^DD(123.1,4,3)="Enter 2 character HL7 code related to the action."
^DD(123.1,4,21,0)="^^12^12^2971112^"
^DD(123.1,4,21,1,0)="This field indicates what HL7 control code is passed to CPRS from"
^DD(123.1,4,21,2,0)="Consults."
^DD(123.1,4,21,3,0)="    Example: "
^DD(123.1,4,21,4,0)="             ""SN""=Service entered, backdoor consult, automatically"
^DD(123.1,4,21,5,0)="released from CPRS, though signatures may still be required depending on"
^DD(123.1,4,21,6,0)="nature of order"
^DD(123.1,4,21,7,0)="             ""OD""=Discontinued"
^DD(123.1,4,21,8,0)="             ""OC""=Denied by service (Cancelled)"
^DD(123.1,4,21,9,0)="             ""SC""=Service status update (generic status change) for active"
^DD(123.1,4,21,10,0)="and partial results"
^DD(123.1,4,21,11,0)="             ""XX""=Forwarded"
^DD(123.1,4,21,12,0)="             ""RE""=Completed"
^DD(123.1,4,"DT")="2971112"
^DD(123.1,5,0)="HL7 CONTROL CODE FROM CPRS^F^^0;6^K:$L(X)>2!($L(X)<1) X"
^DD(123.1,5,1,0)="^.1"
^DD(123.1,5,1,1,0)="123.1^D"
^DD(123.1,5,1,1,1)="S ^GMR(123.1,""D"",$E(X,1,30),DA)="""""
^DD(123.1,5,1,1,2)="K ^GMR(123.1,""D"",$E(X,1,30),DA)"
^DD(123.1,5,1,1,"%D",0)="^^2^2^2971112^"
^DD(123.1,5,1,1,"%D",1,0)="This cross-reference allows Consults to convert an order control from"
^DD(123.1,5,1,1,"%D",2,0)="HL7 Table 0119 to a Consult activity for tracking."
^DD(123.1,5,1,1,"DT")="2971112"
^DD(123.1,5,3)="Enter the HL7 Control code passed from CPRS for this action."
^DD(123.1,5,21,0)="^^5^5^2971112^"
^DD(123.1,5,21,1,0)="This field indicates what HL7 control code is passed from CPRS to"
^DD(123.1,5,21,2,0)="Consults."
^DD(123.1,5,21,3,0)="    Example: ""NW""=New consult entered and released through CPRS"
^DD(123.1,5,21,4,0)="             ""CA""=Cancelled via the orders tab"
^DD(123.1,5,21,5,0)="             ""DC""=Discontinued"
^DD(123.1,5,"DT")="2971112"
^DD(123.1,6,0)="HL7 TABLE 38 ORDER STATUS^F^^0;7^K:$L(X)>2!($L(X)<1) X"
^DD(123.1,6,3)="Enter the 1-2 character code from HL7 Table 0038"
^DD(123.1,6,21,0)="^^2^2^2971114^"
^DD(123.1,6,21,1,0)="This field is for documenting purposes and contains the related Table 38"
^DD(123.1,6,21,2,0)="order status from HL7 for each activity."
^DD(123.1,6,"DT")="2971114"
^DD(123.1,7,0)="ACTION PRINT NAME^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(123.1,7,3)="Enter the text to appear before comments on the 513"
^DD(123.1,7,21,0)="^^1^1^2980624^"
^DD(123.1,7,21,1,0)="This field is used on the 513 Form as a header for comments."
^DD(123.1,7,"DT")="2980624"
^DD(123.1,"B","ACTION PRINT NAME",7)=""
^DD(123.1,"B","ACTION TYPE",.01)=""
^DD(123.1,"B","DISABLED MESSAGE",3)=""
^DD(123.1,"B","HL7 CONTROL CODE FROM CONSULTS",4)=""
^DD(123.1,"B","HL7 CONTROL CODE FROM CPRS",5)=""
^DD(123.1,"B","HL7 TABLE 38 ORDER STATUS",6)=""
^DD(123.1,"B","NUMBER",.001)=""
^DD(123.1,"B","RELATED OE/RR STATUS",1)=""
^DD(123.1,"GL",0,1,.01)=""
^DD(123.1,"GL",0,2,1)=""
^DD(123.1,"GL",0,4,3)=""
^DD(123.1,"GL",0,5,4)=""
^DD(123.1,"GL",0,6,5)=""
^DD(123.1,"GL",0,7,6)=""
^DD(123.1,"GL",0,8,7)=""
^DD(123.1,"IX",.01)=""
^DD(123.1,"IX",1)=""
^DD(123.1,"IX",5)=""
^DD(123.1,"RQ",.01)=""
^DD(123.25,0)="COMMENT SUB-FIELD^^.01^1"
^DD(123.25,0,"NM","COMMENT")=""
^DD(123.25,0,"UP")="123.02"
^DD(123.25,.01,0)="COMMENT^WL^^0;1^Q"
^DD(123.25,.01,3)="Enter the comment that explains the activity."
^DD(123.25,.01,21,0)="^^3^3^2970611^^^^"
^DD(123.25,.01,21,1,0)="This is a word-processing comment which you may add to provide additional"
^DD(123.25,.01,21,2,0)="information in reference to the Action Type selected at the ""Select"
^DD(123.25,.01,21,3,0)="Action: "" prompt."
^DD(123.25,.01,22)=""
^DD(123.25,.01,"DT")="2920608"
^DD(123.25,"B","COMMENT",.01)=""
^DD(123.25,"GL",0,1,.01)=""
^DD(123.3,0)="FIELD^^129^17"
^DD(123.3,0,"DDA")="N"
^DD(123.3,0,"DT")="3010201"
^DD(123.3,0,"IX","AC",123.3,.04)=""
^DD(123.3,0,"IX","AP",123.3,.06)=""
^DD(123.3,0,"IX","B",123.3,.01)=""
^DD(123.3,0,"IX","C",123.31,.01)=""
^DD(123.3,0,"IX","D",123.3,3)=""
^DD(123.3,0,"NM","GMRC PROCEDURE")=""
^DD(123.3,0,"PT",123,4)=""
^DD(123.3,0,"PT",2006.5841,1)=""
^DD(123.3,0,"PT",8927,.19)=""
^DD(123.3,0,"VR")="3.0"
^DD(123.3,0,"VRPK")="GMRC"
^DD(123.3,.01,0)="NAME^RFX^^0;1^K:$L(X)>63!($L(X)<3)!'(X'?1P.E)!($O(^GMR(123.3,""B"",X,0))'="""") X"
^DD(123.3,.01,1,0)="^.1^^-1"
^DD(123.3,.01,1,1,0)="123.3^B"
^DD(123.3,.01,1,1,1)="S ^GMR(123.3,""B"",$E(X,1,30),DA)="""""
^DD(123.3,.01,1,1,2)="K ^GMR(123.3,""B"",$E(X,1,30),DA)"
^DD(123.3,.01,3)="Answer must be a unique name between 3-63 characters in length."
^DD(123.3,.01,21,0)="^.001^1^1^3000621^^"
^DD(123.3,.01,21,1,0)="This is the name of the procedure that will be requested within CPRS."
^DD(123.3,.01,"DT")="3060720"
^DD(123.3,.02,0)="INACTIVE^S^1:YES;0:NO;^0;2^Q"
^DD(123.3,.02,3)="Enter YES if this procedure is no longer used."
^DD(123.3,.02,21,0)="^^4^4^2991208^^"
^DD(123.3,.02,21,1,0)="The INACTIVE field, if set to YES causes a procedure to no longer be"
^DD(123.3,.02,21,2,0)="selectable when ordering within CPRS.  Existing requests for this"
^DD(123.3,.02,21,3,0)="procedure may be processed to completion even if the procedure is"
^DD(123.3,.02,21,4,0)="inactive."
^DD(123.3,.02,"DT")="2991208"
^DD(123.3,.04,0)="CLINICAL PROCEDURE^*P702.01'^MDS(702.01,^0;4^S DIC(""S"")=""I $P(^MDS(702.01,+Y,0),U,9)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(123.3,.04,1,0)="^.1"
^DD(123.3,.04,1,1,0)="123.3^AC"
^DD(123.3,.04,1,1,1)="S ^GMR(123.3,""AC"",$E(X,1,30),DA)="""""
^DD(123.3,.04,1,1,2)="K ^GMR(123.3,""AC"",$E(X,1,30),DA)"
^DD(123.3,.04,1,1,"%D",0)="^^2^2^3011004^"
^DD(123.3,.04,1,1,"%D",1,0)="This field allows the sorting of all procedures linked to a given CP "
^DD(123.3,.04,1,1,"%D",2,0)="DEFINITION"
^DD(123.3,.04,1,1,"DT")="3000620"
^DD(123.3,.04,3)="Enter the Clinical Procedure to associate with this item"
^DD(123.3,.04,12)="Only active procedures may be selected."
^DD(123.3,.04,12.1)="S DIC(""S"")=""I $P(^MDS(702.01,+Y,0),U,9)"""
^DD(123.3,.04,21,0)="^^4^4^3011004^"
^DD(123.3,.04,21,1,0)="This field provides a mapping between the CP DEFINITIONS (#702.01) file"
^DD(123.3,.04,21,2,0)="and the GMRC PROCEDURES file.   Orders placed for a procedure having a"
^DD(123.3,.04,21,3,0)="valid entry in this field will be processed and resulted via the Clinical"
^DD(123.3,.04,21,4,0)="Procedures package."
^DD(123.3,.04,"DT")="3011004"
^DD(123.3,.05,0)="TYPE OF PROCEDURE^*P697.2'^MCAR(697.2,^0;5^S DIC(""S"")=""I $$PATCH^XPDUTL(""""MC*2.3*27"""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(123.3,.05,3)="Select the appropriate type of procedure"
^DD(123.3,.05,12)="MC*2.3*27 is required to utilize the Medicine interface"
^DD(123.3,.05,12.1)="S DIC(""S"")=""I $$PATCH^XPDUTL(""""MC*2.3*27"""")"""
^DD(123.3,.05,21,0)="^.001^11^11^3010201^^"
^DD(123.3,.05,21,1,0)="This field indicates which type of medicine procedure and thus which"
^DD(123.3,.05,21,2,0)="result file in the Medicine Package will hold results for this procedure."
^DD(123.3,.05,21,3,0)=" "
^DD(123.3,.05,21,4,0)="Coordination may be necessary with the Medicine Adpac to determine the"
^DD(123.3,.05,21,5,0)="correct procedure mapping."
^DD(123.3,.05,21,6,0)=" "
^DD(123.3,.05,21,7,0)="If this field is not entered, the procedure may still be resulted using a"
^DD(123.3,.05,21,8,0)="TIU document, but Medicine results may not be linked to requests for this"
^DD(123.3,.05,21,9,0)="procedure."
^DD(123.3,.05,21,10,0)=" "
^DD(123.3,.05,21,11,0)="This field invokes IA# 616."
^DD(123.3,.05,"DT")="3010201"
^DD(123.3,.06,0)="PROTOCOL^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(123.3,.06,1,0)="^.1"
^DD(123.3,.06,1,1,0)="123.3^AP"
^DD(123.3,.06,1,1,1)="S ^GMR(123.3,""AP"",$E(X,1,30),DA)="""""
^DD(123.3,.06,1,1,2)="K ^GMR(123.3,""AP"",$E(X,1,30),DA)"
^DD(123.3,.06,1,1,"DT")="2991210"
^DD(123.3,.06,3)="Answer must be 1-10 characters in length."
^DD(123.3,.06,21,0)="^.001^3^3^3010110^^^"
^DD(123.3,.06,21,1,0)=" This field serves as a placeholder for a conversion value. The field"
^DD(123.3,.06,21,2,0)=" contains the pointer value of the PROTOCOL that represented this"
^DD(123.3,.06,21,3,0)=" procedure before conversion."
^DD(123.3,.06,"DT")="3000601"
^DD(123.3,.07,0)="PROVISIONAL DX PROMPT^S^O:OPTIONAL;R:REQUIRED;S:SUPPRESS;^0;7^Q"
^DD(123.3,.07,3)="Enter a code to indicate the type of input allowed by CPRS when entering a provisional diagnosis"
^DD(123.3,.07,21,0)="^^7^7^3010110^"
^DD(123.3,.07,21,1,0)="This field will be used by CPRS to determine how to prompt for the"
^DD(123.3,.07,21,2,0)="provisional diagnosis when ordering this procedure. If this field is "
^DD(123.3,.07,21,3,0)="set to OPTIONAL, the user will be prompted for the provisional "
^DD(123.3,.07,21,4,0)="diagnosis but may bypass answering the prompt. If the field is set to"
^DD(123.3,.07,21,5,0)="SUPPRESS, the user will not be presented with the provisional diagnosis"
^DD(123.3,.07,21,6,0)="prompt. If set to REQUIRED, the user must answer the prompt to continue"
^DD(123.3,.07,21,7,0)="placing the order."
^DD(123.3,.07,"DT")="3001201"
^DD(123.3,.08,0)="PROVISIONAL DX INPUT^S^F:FREE TEXT;L:LEXICON;^0;8^Q"
^DD(123.3,.08,3)="Enter a code to indicate the type of input allowed by CPRS when entering a provisional diagnosis"
^DD(123.3,.08,21,0)="^^5^5^3010110^"
^DD(123.3,.08,21,1,0)="This field will determine the method that CPRS will use to prompt the "
^DD(123.3,.08,21,2,0)="user for input of the provisional diagnosis when ordering. If set to "
^DD(123.3,.08,21,3,0)="FREE TEXT, the user may type any text from 2-80 characters in length. "
^DD(123.3,.08,21,4,0)="If set to LEXICON, the user will be required to select a coded "
^DD(123.3,.08,21,5,0)="diagnosis from the Clinical Lexicon."
^DD(123.3,.08,"DT")="3001201"
^DD(123.3,.09,0)="RESTRICT DEFAULT REASON EDIT^S^0:UNRESTRICTED;1:ASK ON EDIT ONLY;2:NO EDITING;^0;9^Q"
^DD(123.3,.09,3)="Choose 0, 1 or 2"
^DD(123.3,.09,21,0)="^^17^17^3001213^"
^DD(123.3,.09,21,1,0)="If a DEFAULT REASON FOR REQUEST exists for this procedure this field"
^DD(123.3,.09,21,2,0)="affects the ordering person's ability to edit the default reason while"
^DD(123.3,.09,21,3,0)="placing an order."
^DD(123.3,.09,21,4,0)=" "
^DD(123.3,.09,21,5,0)="        0 - UNRESTRICTED"
^DD(123.3,.09,21,6,0)="            User will be able to edit the default text at any time."
^DD(123.3,.09,21,7,0)=" "
^DD(123.3,.09,21,8,0)="        1 - ASK ON EDIT ONLY"
^DD(123.3,.09,21,9,0)="            User will only be allowed to edit the default reason if the"
^DD(123.3,.09,21,10,0)="            order is edited before releasing to the service."
^DD(123.3,.09,21,11,0)=" "
^DD(123.3,.09,21,12,0)="        2 - NO EDITING"
^DD(123.3,.09,21,13,0)="            User will not be allowed to edit the default reason at any"
^DD(123.3,.09,21,14,0)="            time."
^DD(123.3,.09,21,15,0)=" "
^DD(123.3,.09,21,16,0)="The value of this field will be ignored if no DEFAULT REASON FOR REQUEST"
^DD(123.3,.09,21,17,0)="exists for this procedure."
^DD(123.3,.09,"DT")="3001017"
^DD(123.3,1,0)="SYNONYM^123.31^^1;0"
^DD(123.3,2,0)="RELATED SERVICES^123.32P^^2;0"
^DD(123.3,3,0)="INTERNAL NAME^F^^3;1^K:$L(X)>80!($L(X)<2) X"
^DD(123.3,3,1,0)="^.1"
^DD(123.3,3,1,1,0)="123.3^D"
^DD(123.3,3,1,1,1)="S ^GMR(123.3,""D"",$E(X,1,30),DA)="""""
^DD(123.3,3,1,1,2)="K ^GMR(123.3,""D"",$E(X,1,30),DA)"
^DD(123.3,3,1,1,"%D",0)="^^2^2^3020201^"
^DD(123.3,3,1,1,"%D",1,0)="This cross-reference allows the look up of a procedure by the INTERNAL "
^DD(123.3,3,1,1,"%D",2,0)="NAME."
^DD(123.3,3,1,1,"DT")="3020201"
^DD(123.3,3,3)="Enter a name by which this service can be referred"
^DD(123.3,3,21,0)="^^4^4^3020131^"
^DD(123.3,3,21,1,0)="This field holds a name that can be used for internal name-spacing. "
^DD(123.3,3,21,2,0)="This name will not be viewable to users when selecting a procedure. "
^DD(123.3,3,21,3,0)="This name may be used to look up entries in the file via VA "
^DD(123.3,3,21,4,0)="Fileman and the Setup Procedures option."
^DD(123.3,3,"DT")="3020201"
^DD(123.3,124,0)="DEFAULT REASON FOR REQUEST^123.3124A^^124;0"
^DD(123.3,124,21,0)="^^7^7^3001201^"
^DD(123.3,124,21,1,0)="This field will allow a boilerplate of text to be imported into the reason"
^DD(123.3,124,21,2,0)="for request when placing orders for this procedure. If the user places an"
^DD(123.3,124,21,3,0)="order using a quick order having boilerplate text, that text will"
^DD(123.3,124,21,4,0)="supersede any default text stored in this field."
^DD(123.3,124,21,5,0)=" "
^DD(123.3,124,21,6,0)="This field may contain any text including TIU objects. TIU Objects must be"
^DD(123.3,124,21,7,0)="enclosed in vertical bars (e.g. |PATIENT NAME| )."
^DD(123.3,124,"DT")="3001201"
^DD(123.3,125,0)="PREREQUISITE^123.3125^^125;0"
^DD(123.3,126,0)="IFC ROUTING SITE^*P4'^DIC(4,^IFC;1^S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA,+Y'=$$KSP^XUPARAM(""""INST"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.3,126,3)="Enter the facility where this procedure will be performed."
^DD(123.3,126,12)="Only national INSTITUTION file entries may be selected."
^DD(123.3,126,12.1)="S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA,+Y'=$$KSP^XUPARAM(""""INST"""")"""
^DD(123.3,126,21,0)="^.001^3^3^3020218^^^"
^DD(123.3,126,21,1,0)="This field contains the VA facility that will perform this procedure "
^DD(123.3,126,21,2,0)="when requested. When a request for this procedure is ordered, it will"
^DD(123.3,126,21,3,0)="automatically be routed to the VA facility in this field."
^DD(123.3,126,"DT")="3020218"
^DD(123.3,127,0)="IFC REMOTE PROC NAME^F^^IFC;2^K:$L(X)>63!($L(X)<3) X"
^DD(123.3,127,3)="Answer must be 3-63 characters in length."
^DD(123.3,127,21,0)="^^8^8^3011120^"
^DD(123.3,127,21,1,0)="This field contains the name of the PROCEDURE that will be requested "
^DD(123.3,127,21,2,0)="at the VAMC defined in the IFC ROUTING SITE field."
^DD(123.3,127,21,3,0)=" "
^DD(123.3,127,21,4,0)="Enter the name of the procedure exactly as it is named at the remote"
^DD(123.3,127,21,5,0)="facility. If this name does not match the name of the procedure at "
^DD(123.3,127,21,6,0)="the routing site, the request will fail to be filed at the remote site."
^DD(123.3,127,21,7,0)="This will delay or prohibit the performance and processing of this"
^DD(123.3,127,21,8,0)="request."
^DD(123.3,127,"DT")="3011120"
^DD(123.3,128,0)="IFC SENDING FACILITY^123.3128P^^IFCS;0"
^DD(123.3,129,0)="IFC COORDINATOR^P200'^VA(200,^IFC;3^Q"
^DD(123.3,129,21,0)="^^4^4^3011207^"
^DD(123.3,129,21,1,0)="The person entered in this field will have expanded abilities to correct "
^DD(123.3,129,21,2,0)="IFC records that require manual intervention to remain updated."
^DD(123.3,129,21,3,0)=" "
^DD(123.3,129,21,4,0)="The full capabilities of this field are not yet defined."
^DD(123.3,129,"DT")="3011207"
^DD(123.3,"B","CLINICAL PROCEDURE",.04)=""
^DD(123.3,"B","DEFAULT REASON FOR REQUEST",124)=""
^DD(123.3,"B","IFC COORDINATOR",129)=""
^DD(123.3,"B","IFC REMOTE PROC NAME",127)=""
^DD(123.3,"B","IFC ROUTING SITE",126)=""
^DD(123.3,"B","IFC SENDING FACILITY",128)=""
^DD(123.3,"B","INACTIVE",.02)=""
^DD(123.3,"B","INTERNAL NAME",3)=""
^DD(123.3,"B","NAME",.01)=""
^DD(123.3,"B","PREREQUISITE",125)=""
^DD(123.3,"B","PROTOCOL",.06)=""
^DD(123.3,"B","PROVISIONAL DX INPUT",.08)=""
^DD(123.3,"B","PROVISIONAL DX PROMPT",.07)=""
^DD(123.3,"B","RELATED SERVICES",2)=""
^DD(123.3,"B","RESTRICT DEFAULT REASON EDIT",.09)=""
^DD(123.3,"B","SYNONYM",1)=""
^DD(123.3,"B","TYPE OF PROCEDURE",.05)=""
^DD(123.3,"GL",0,1,.01)=""
^DD(123.3,"GL",0,2,.02)=""
^DD(123.3,"GL",0,4,.04)=""
^DD(123.3,"GL",0,5,.05)=""
^DD(123.3,"GL",0,6,.06)=""
^DD(123.3,"GL",0,7,.07)=""
^DD(123.3,"GL",0,8,.08)=""
^DD(123.3,"GL",0,9,.09)=""
^DD(123.3,"GL",1,0,1)=""
^DD(123.3,"GL",2,0,2)=""
^DD(123.3,"GL",3,1,3)=""
^DD(123.3,"GL",124,0,124)=""
^DD(123.3,"GL",125,0,125)=""
^DD(123.3,"GL","IFC",1,126)=""
^DD(123.3,"GL","IFC",2,127)=""
^DD(123.3,"GL","IFC",3,129)=""
^DD(123.3,"GL","IFCS",0,128)=""
^DD(123.3,"IX",.01)=""
^DD(123.3,"IX",.04)=""
^DD(123.3,"IX",.06)=""
^DD(123.3,"IX",3)=""
^DD(123.3,"RQ",.01)=""
^DD(123.3,"SB",123.31,1)=""
^DD(123.3,"SB",123.3124,124)=""
^DD(123.3,"SB",123.3125,125)=""
^DD(123.3,"SB",123.3128,128)=""
^DD(123.3,"SB",123.32,2)=""
^DD(123.31,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(123.31,0,"DT")="2991208"
^DD(123.31,0,"IX","B",123.31,.01)=""
^DD(123.31,0,"NM","SYNONYM")=""
^DD(123.31,0,"UP")="123.3"
^DD(123.31,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(123.31,.01,1,0)="^.1"
^DD(123.31,.01,1,1,0)="123.31^B"
^DD(123.31,.01,1,1,1)="S ^GMR(123.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(123.31,.01,1,1,2)="K ^GMR(123.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(123.31,.01,1,2,0)="123.3^C"
^DD(123.31,.01,1,2,1)="S ^GMR(123.3,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(123.31,.01,1,2,2)="K ^GMR(123.3,""C"",$E(X,1,30),DA(1),DA)"
^DD(123.31,.01,1,2,"%D",0)="^^2^2^3001127^"
^DD(123.31,.01,1,2,"%D",1,0)="The ""C"" cross reference allows look-up of a procedure by the associated"
^DD(123.31,.01,1,2,"%D",2,0)="synonyms."
^DD(123.31,.01,1,2,"DT")="3001127"
^DD(123.31,.01,3)="Answer must be 3-30 characters in length."
^DD(123.31,.01,21,0)="^^1^1^3000517^"
^DD(123.31,.01,21,1,0)="This field contains other names commonly used to refer to this procedure."
^DD(123.31,.01,"DT")="3001127"
^DD(123.31,"B","SYNONYM",.01)=""
^DD(123.31,"GL",0,1,.01)=""
^DD(123.31,"IX",.01)=""
^DD(123.3124,0)="DEFAULT REASON FOR REQUEST SUB-FIELD^^.01^1"
^DD(123.3124,0,"DT")="3001201"
^DD(123.3124,0,"NM","DEFAULT REASON FOR REQUEST")=""
^DD(123.3124,0,"UP")="123.3"
^DD(123.3124,.01,0)="DEFAULT REASON FOR REQUEST^W^^0;1"
^DD(123.3124,.01,3)="Enter the default text to be used as the reason for request when ordering this procedure."
^DD(123.3124,.01,21,0)="^^7^7^3001201^"
^DD(123.3124,.01,21,1,0)="This field will allow a boilerplate of text to be imported into the reason"
^DD(123.3124,.01,21,2,0)="for request when placing orders for this procedure. If the user places an"
^DD(123.3124,.01,21,3,0)="order using a quick order having boilerplate text, that text will"
^DD(123.3124,.01,21,4,0)="supersede any default text stored in this field."
^DD(123.3124,.01,21,5,0)=" "
^DD(123.3124,.01,21,6,0)="This field may contain any text including TIU objects. TIU Objects must be"
^DD(123.3124,.01,21,7,0)="enclosed in vertical bars (e.g. |PATIENT NAME| )."
^DD(123.3124,.01,"DT")="3001201"
^DD(123.3124,"B","DEFAULT REASON FOR REQUEST",.01)=""
^DD(123.3124,"GL",0,1,.01)=""
^DD(123.3125,0)="PREREQUISITE SUB-FIELD^^.01^1"
^DD(123.3125,0,"DT")="3001018"
^DD(123.3125,0,"NM","PREREQUISITE")=""
^DD(123.3125,0,"UP")="123.3"
^DD(123.3125,.01,0)="PREREQUISITE^W^^0;1"
^DD(123.3125,.01,3)="Enter any pre-requisite information for ordering this procedure."
^DD(123.3125,.01,21,0)="^^10^10^3001201^"
^DD(123.3125,.01,21,1,0)="This word-processing field is utilized to communicate pre-requisite"
^DD(123.3125,.01,21,2,0)="information to the ordering person prior to ordering this procedure."
^DD(123.3125,.01,21,3,0)=" "
^DD(123.3125,.01,21,4,0)="This field will be presented to the ordering person upon selecting a"
^DD(123.3125,.01,21,5,0)="procedure and will allow them to abort the ordering at that time if they"
^DD(123.3125,.01,21,6,0)="choose."
^DD(123.3125,.01,21,7,0)=" "
^DD(123.3125,.01,21,8,0)="TIU objects may be embedded within this field which will be resolved for"
^DD(123.3125,.01,21,9,0)="the current patient during ordering. Any TIU objects must be contained"
^DD(123.3125,.01,21,10,0)="within vertical bars (e.g. |BLOOD PRESSURE| ). "
^DD(123.3125,.01,"DT")="3001201"
^DD(123.3125,"B","PREREQUISITE",.01)=""
^DD(123.3125,"GL",0,1,.01)=""
^DD(123.3128,0)="IFC SENDING FACILITY SUB-FIELD^^.01^1"
^DD(123.3128,0,"DT")="3020124"
^DD(123.3128,0,"IX","B",123.3128,.01)=""
^DD(123.3128,0,"NM","IFC SENDING FACILITY")=""
^DD(123.3128,0,"UP")="123.3"
^DD(123.3128,.01,0)="IFC SENDING FACILITY^M*P4'^DIC(4,^0;1^S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.3128,.01,1,0)="^.1"
^DD(123.3128,.01,1,1,0)="123.3128^B"
^DD(123.3128,.01,1,1,1)="S ^GMR(123.3,DA(1),""IFCS"",""B"",$E(X,1,30),DA)="""""
^DD(123.3128,.01,1,1,2)="K ^GMR(123.3,DA(1),""IFCS"",""B"",$E(X,1,30),DA)"
^DD(123.3128,.01,12)="Only national INSTITUTION file entries may be selected."
^DD(123.3128,.01,12.1)="S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA"""
^DD(123.3128,.01,21,0)="^.001^3^3^3020124^^"
^DD(123.3128,.01,21,1,0)="This field contains the VA facilities that may send inter-facility "
^DD(123.3128,.01,21,2,0)="requests for this procedure. Only active, primary VA facilities"
^DD(123.3128,.01,21,3,0)="should be entered in this field."
^DD(123.3128,.01,"DT")="3020124"
^DD(123.3128,"B","IFC SENDING FACILITY",.01)=""
^DD(123.3128,"GL",0,1,.01)=""
^DD(123.3128,"IX",.01)=""
^DD(123.32,0)="RELATED SERVICES SUB-FIELD^^.01^1"
^DD(123.32,0,"DT")="2991210"
^DD(123.32,0,"IX","B",123.32,.01)=""
^DD(123.32,0,"NM","RELATED SERVICES")=""
^DD(123.32,0,"UP")="123.3"
^DD(123.32,.01,0)="RELATED SERVICES^MP123.5'X^GMR(123.5,^0;1^I $P($G(^GMR(123.5,+X,0)),""^"",2)=9!($P($G(^GMR(123.5,+X,0)),""^"",2)=1)!(+$G(^GMR(123.5,+X,""IFC"")))!(+$O(^GMR(123.5,+X,""IFCS"",0))) D EN^DDIOL(""This service is not orderable. Try again."") K X"
^DD(123.32,.01,1,0)="^.1^^-1"
^DD(123.32,.01,1,1,0)="123.32^B"
^DD(123.32,.01,1,1,1)="S ^GMR(123.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(123.32,.01,1,1,2)="K ^GMR(123.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(123.32,.01,3)="Enter the service that will perform this procedure"
^DD(123.32,.01,21,0)="^.001^3^3^3060505^^^^"
^DD(123.32,.01,21,1,0)="This field will indicate which Consult services from the REQUEST"
^DD(123.32,.01,21,2,0)="SERVICES (#123.5) file are responsible for the processing of requests for"
^DD(123.32,.01,21,3,0)="this procedure."
^DD(123.32,.01,"DT")="3060502"
^DD(123.32,"B","RELATED SERVICES",.01)=""
^DD(123.32,"GL",0,1,.01)=""
^DD(123.32,"IX",.01)=""
^DD(123.5,0)="FIELD^^135^46"
^DD(123.5,0,"DDA")="N"
^DD(123.5,0,"DT")="3000615"
^DD(123.5,0,"ID","USAGE")="D EN^DDIOL(""   ""_$$GET1^DIQ(123.5,+Y,2),"""",""?0"")"
^DD(123.5,0,"IX","AAT",123.58,.01)=""
^DD(123.5,0,"IX","AB1",123.5688,.01)=""
^DD(123.5,0,"IX","AC1",123.5,.01)=""
^DD(123.5,0,"IX","ANT",123.54,2)=""
^DD(123.5,0,"IX","APC",123.51,.01)=""
^DD(123.5,0,"IX","APR",123.5101,.01)=""
^DD(123.5,0,"IX","AST",123.53,.01)=""
^DD(123.5,0,"IX","AUT",123.57,.01)=""
^DD(123.5,0,"IX","B",123.5,.01)=""
^DD(123.5,0,"IX","C",123.5,123.06)=""
^DD(123.5,0,"IX","D",123.52,.01)=""
^DD(123.5,0,"IX","E",123.5,11)=""
^DD(123.5,0,"NM","REQUEST SERVICES")=""
^DD(123.5,0,"PT",101,6)=""
^DD(123.5,0,"PT",123,1)=""
^DD(123.5,0,"PT",123.02,6)=""
^DD(123.5,0,"PT",123.32,.01)=""
^DD(123.5,0,"PT",123.51,.01)=""
^DD(123.5,0,"PT",123.92,.01)=""
^DD(123.5,0,"PT",123.99,.02)=""
^DD(123.5,0,"PT",668,23)=""
^DD(123.5,0,"PT",2006.5831,.01)=""
^DD(123.5,0,"PT",2006.5841,.01)=""
^DD(123.5,0,"PT",8927,.19)=""
^DD(123.5,0,"VR")="3.0"
^DD(123.5,0,"VRPK")="GMRC"
^DD(123.5,.01,0)="SERVICE NAME^RFX^^0;1^K:$L(X)>63!($L(X)<2)!'(X'?1P.E)!($O(^GMR(123.5,""B"",X,0))'="""") X"
^DD(123.5,.01,1,0)="^.1"
^DD(123.5,.01,1,1,0)="123.5^B"
^DD(123.5,.01,1,1,1)="S ^GMR(123.5,""B"",$E(X,1,63),DA)="""""
^DD(123.5,.01,1,1,2)="K ^GMR(123.5,""B"",$E(X,1,63),DA)"
^DD(123.5,.01,1,1,"%D",0)="^^2^2^2990903^^^^"
^DD(123.5,.01,1,1,"%D",1,0)="This is the regular cross-reference for this file allowing look-up by"
^DD(123.5,.01,1,1,"%D",2,0)="Service Name."
^DD(123.5,.01,1,2,0)="123.5^AC1^MUMPS"
^DD(123.5,.01,1,2,1)="D SETAC^GMRCDDX"
^DD(123.5,.01,1,2,2)="D KILLAC^GMRCDDX"
^DD(123.5,.01,1,2,3)="This cross-reference is what helps maintain the alphabetical look-up of services."
^DD(123.5,.01,1,2,"%D",0)="^^5^5^2971103^"
^DD(123.5,.01,1,2,"%D",1,0)="This cross-reference calls the GMRCDDX routine to set and kill ""AC"""
^DD(123.5,.01,1,2,"%D",2,0)="cross-references that are defined for DD 123.51 (Sub-Service/Specialty"
^DD(123.5,.01,1,2,"%D",3,0)="multiple),.01 field.  The ACP cross reference helps identify all entries"
^DD(123.5,.01,1,2,"%D",4,0)="in file 123.5 which have the service being edited as a child.  For each"
^DD(123.5,.01,1,2,"%D",5,0)="occurrence as a child, the ""AC"" cross-reference is updated."
^DD(123.5,.01,1,2,"DT")="2971103"
^DD(123.5,.01,3)="Type a unique name of a service or specialty that can receive consults."
^DD(123.5,.01,21,0)="^.001^3^3^3000217^^^^"
^DD(123.5,.01,21,1,0)="This is the Name of a service or specialty which may receive consult/"
^DD(123.5,.01,21,2,0)="requests.  This may also be a name which represents a group of services"
^DD(123.5,.01,"DEL",1,0)="I $P(^GMR(123.5,DA,0),U)=""SUICIDE HOTLINE"" D EN^DDIOL(""...Mandatory Entry.  Please see GMRC*3.0*57 for details..."")"
^DD(123.5,.01,"DT")="3070725"
^DD(123.5,.06,0)="UNRESTRICTED ACCESS^S^1:YES;0:NO;^0;6^Q"
^DD(123.5,.06,3)="Enter Y or YES to allow all users to update requests for this service"
^DD(123.5,.06,21,0)="^^8^8^2990719^^"
^DD(123.5,.06,21,1,0)="This field, if set to yes will allow all users to perform the full range"
^DD(123.5,.06,21,2,0)="of update activities on consult or procedure requests directed to this"
^DD(123.5,.06,21,3,0)="service. If this field is set to yes, all other fields related to"
^DD(123.5,.06,21,4,0)="assignment of update users are ignored. "
^DD(123.5,.06,21,5,0)=" "
^DD(123.5,.06,21,6,0)="The SERVICE INDIVIDUAL TO NOTIFY and the SERVICE TEAM(S) TO NOTIFY fields"
^DD(123.5,.06,21,7,0)="will still be used to determine notification recipients for each"
^DD(123.5,.06,21,8,0)="individual service. "
^DD(123.5,.06,"DT")="2990712"
^DD(123.5,.07,0)="PROCESS PARENTS FOR UPDATES^S^1:YES;0:NO;^0;7^Q"
^DD(123.5,.07,3)="Enter YES to have parent services checked for user update authority."
^DD(123.5,.07,21,0)="^^2^2^2990722^"
^DD(123.5,.07,21,1,0)="This field, if set to YES will cause the parent services of the this "
^DD(123.5,.07,21,2,0)="service to be screened to determine update authority for a given user. "
^DD(123.5,.07,"DT")="2990722"
^DD(123.5,.08,0)="PROCESS PARENTS FOR NOTIFS^S^1:YES;0:NO;^0;8^Q"
^DD(123.5,.08,3)="Enter YES to process parent services for notification recipients."
^DD(123.5,.08,21,0)="^^2^2^2991129^^"
^DD(123.5,.08,21,1,0)="This field, if set to YES will cause the parent services of this service"
^DD(123.5,.08,21,2,0)="to be processed when determining notification recipients. "
^DD(123.5,.08,"DT")="2990722"
^DD(123.5,1.01,0)="PROVISIONAL DX PROMPT^S^O:OPTIONAL;R:REQUIRE;S:SUPPRESS;^1;1^Q"
^DD(123.5,1.01,3)="Enter a code to determine the restraints placed on the provisional diagnosis prompt when ordering via CPRS."
^DD(123.5,1.01,21,0)="^^7^7^3000209^^^^"
^DD(123.5,1.01,21,1,0)="This field will be used by CPRS to determine how to prompt for the"
^DD(123.5,1.01,21,2,0)="provisional diagnosis when ordering consults for this service. If this"
^DD(123.5,1.01,21,3,0)="field is set to OPTIONAL, the user will be prompted for the provisional"
^DD(123.5,1.01,21,4,0)="diagnosis but may bypass answering the prompt. If the field is set to"
^DD(123.5,1.01,21,5,0)="SUPPRESS, the user will not be presented with the provisional diagnosis"
^DD(123.5,1.01,21,6,0)="prompt. If set to REQUIRED, the user must answer the prompt to continue"
^DD(123.5,1.01,21,7,0)="placing the order."
^DD(123.5,1.01,"DT")="2990916"
^DD(123.5,1.02,0)="PROVISIONAL DX INPUT^S^F:FREE TEXT;L:LEXICON;^1;2^Q"
^DD(123.5,1.02,3)="Enter a code to indicate the type of input allowed by CPRS when entering a provisional diagnosis"
^DD(123.5,1.02,21,0)="^^5^5^3000209^^^^"
^DD(123.5,1.02,21,1,0)="This field will determine the method that CPRS will use to prompt the user"
^DD(123.5,1.02,21,2,0)="for input of the provisional diagnosis when ordering. If set to FREE TEXT,"
^DD(123.5,1.02,21,3,0)="the user may type any text from 2-80 characters in length. If set to"
^DD(123.5,1.02,21,4,0)="LEXICON, the user will be required to select a coded diagnosis from the"
^DD(123.5,1.02,21,5,0)="Clinical Lexicon."
^DD(123.5,1.02,"DT")="2990916"
^DD(123.5,1.03,0)="RESTRICT DEFAULT REASON EDIT^S^0:UNRESTRICTED;1:ASK ON EDIT ONLY;2:NO EDITING;^1;3^Q"
^DD(123.5,1.03,3)="Choose 0, 1 or 2"
^DD(123.5,1.03,21,0)="^.001^17^17^3000517^^"
^DD(123.5,1.03,21,1,0)="If a DEFAULT REASON FOR REQUEST exists for this service this field affects"
^DD(123.5,1.03,21,2,0)="the ordering person's ability to edit the default reason while placing an"
^DD(123.5,1.03,21,3,0)="order."
^DD(123.5,1.03,21,4,0)=" "
^DD(123.5,1.03,21,5,0)="        0 - UNRESTRICTED"
^DD(123.5,1.03,21,6,0)="            User will be able to edit the default text at any time."
^DD(123.5,1.03,21,7,0)=" "
^DD(123.5,1.03,21,8,0)="        1 - ASK ON EDIT ONLY"
^DD(123.5,1.03,21,9,0)="            User will only be allowed to edit the default reason if the"
^DD(123.5,1.03,21,10,0)="            order is edited before releasing to the service."
^DD(123.5,1.03,21,11,0)=" "
^DD(123.5,1.03,21,12,0)="        2 - NO EDITING"
^DD(123.5,1.03,21,13,0)="            User will not be allowed to edit the default reason at any"
^DD(123.5,1.03,21,14,0)="            time."
^DD(123.5,1.03,21,15,0)=" "
^DD(123.5,1.03,21,16,0)="The value of this field will be ignored if no DEFAULT REASON FOR REQUEST"
^DD(123.5,1.03,21,17,0)="exists for this service."
^DD(123.5,1.03,"DT")="2991130"
^DD(123.5,1.04,0)="NOTIFY SERVICE ON DC^S^0:ALWAYS;1:REQUESTOR ACTION;2:NEVER;^1;4^Q"
^DD(123.5,1.04,3)="Enter one of the codes."
^DD(123.5,1.04,21,0)="^.001^16^16^3000317^^^"
^DD(123.5,1.04,21,1,0)="This field controls when members configured to receive notifications for"
^DD(123.5,1.04,21,2,0)="this service in the Consult hierarchy will be alerted to a consult being"
^DD(123.5,1.04,21,3,0)="discontinued."
^DD(123.5,1.04,21,4,0)=" "
^DD(123.5,1.04,21,5,0)="0 - ALWAYS"
^DD(123.5,1.04,21,6,0)="    service update users will receive notification of a discontinue"
^DD(123.5,1.04,21,7,0)="    regardless of who DC's the order"
^DD(123.5,1.04,21,8,0)=" "
^DD(123.5,1.04,21,9,0)="1 - REQUESTOR ACTION"
^DD(123.5,1.04,21,10,0)="    service update users will receive notification of a discontinue only"
^DD(123.5,1.04,21,11,0)="    if the user discontinuing the consult is not an update user for the"
^DD(123.5,1.04,21,12,0)="    service"
^DD(123.5,1.04,21,13,0)=" "
^DD(123.5,1.04,21,14,0)="2 - NEVER"
^DD(123.5,1.04,21,15,0)="    service update users will never receive notification of a discontinued"
^DD(123.5,1.04,21,16,0)="    consult"
^DD(123.5,1.04,"DT")="3000317"
^DD(123.5,1.05,0)="REPRINT 513 ON DC^S^0:ALWAYS;1:REQUESTOR ACTION;2:NEVER;^1;5^Q"
^DD(123.5,1.05,3)="Enter one of the codes"
^DD(123.5,1.05,21,0)="^^14^14^3000317^"
^DD(123.5,1.05,21,1,0)="This field will determine if the SF-513 should reprint to the consulting"
^DD(123.5,1.05,21,2,0)="service when a consult is discontinued."
^DD(123.5,1.05,21,3,0)=" "
^DD(123.5,1.05,21,4,0)="0 - ALWAYS"
^DD(123.5,1.05,21,5,0)="    the SF-513 will always reprint to the SERVICE PRINTER when a consult"
^DD(123.5,1.05,21,6,0)="    is discontinued"
^DD(123.5,1.05,21,7,0)=" "
^DD(123.5,1.05,21,8,0)="1 - REQUESTOR ACTION"
^DD(123.5,1.05,21,9,0)="    the SF-513 will reprint to the SERVICE PRINTER only when a consult is"
^DD(123.5,1.05,21,10,0)="    discontinued by a user that is not an update user for the service in"
^DD(123.5,1.05,21,11,0)="    "
^DD(123.5,1.05,21,12,0)="2 - NEVER"
^DD(123.5,1.05,21,13,0)="    the SF-513 will never reprint to the SERVICE printer regardless of who"
^DD(123.5,1.05,21,14,0)="    discontinued the consult "
^DD(123.5,1.05,"DT")="3000317"
^DD(123.5,1.06,0)="RESULT MGMT USER CLASS^*P8930'^USR(8930,^1;6^S DIC(""S"")=""I $P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.5,1.06,3)="Enter the User Class that may disassociate Medicine Results from a Consult Request"
^DD(123.5,1.06,12)="Only an active User Class may be selected"
^DD(123.5,1.06,12.1)="S DIC(""S"")=""I $P(^(0),U,3)"""
^DD(123.5,1.06,21,0)="^^6^6^3000823^"
^DD(123.5,1.06,21,1,0)="This field defines the Authorization/Subscription User Class that is"
^DD(123.5,1.06,21,2,0)="permitted to disassociate a Medicine result from a Consult request. It is"
^DD(123.5,1.06,21,3,0)="recommended that this function be restricted to a very select group of"
^DD(123.5,1.06,21,4,0)="individuals."
^DD(123.5,1.06,21,5,0)=" "
^DD(123.5,1.06,21,6,0)="This field invokes IA #3008"
^DD(123.5,1.06,"DT")="3000404"
^DD(123.5,1.1,0)="SYNONYM^123.52^^2;0"
^DD(123.5,1.1,21,0)="^^4^4^2970911^^^^"
^DD(123.5,1.1,21,1,0)="This multiple field identifies the commonly known names and abbreviations"
^DD(123.5,1.1,21,2,0)="for the Service named in the .01 Name field.  Synonyms identified here"
^DD(123.5,1.1,21,3,0)="are used in the look-up of services at 'Select Service/Specialty: '"
^DD(123.5,1.1,21,4,0)="prompts."
^DD(123.5,1.11,0)="PRINT NAME^F^^.1;1^K:$L(X)>7!($L(X)<1) X"
^DD(123.5,1.11,.1)="ABBREVIATED PRINT NAME"
^DD(123.5,1.11,3)="Answer must be 1-7 characters in length."
^DD(123.5,1.11,21,0)="^^5^5^2970911^^^^"
^DD(123.5,1.11,21,1,0)="This is a commonly known Abbreviation for this Service/Specialty.  "
^DD(123.5,1.11,21,2,0)="This name is used to build Consult Notifications when a consult/request"
^DD(123.5,1.11,21,3,0)="is ordered in OE/RR."
^DD(123.5,1.11,21,4,0)="  "
^DD(123.5,1.11,21,5,0)="If not defined, the NAME (.01) is used."
^DD(123.5,1.11,"DT")="2920423"
^DD(123.5,2,0)="SERVICE USAGE^S^1:GROUPER ONLY;2:TRACKING ONLY;9:DISABLED;^0;2^Q"
^DD(123.5,2,3)="Enter '1' if the service is Grouper Only, 2 if the service is to be used for TRACKING Only, and 9 to DISABLE the service."
^DD(123.5,2,21,0)="^^24^24^2980720^"
^DD(123.5,2,21,1,0)="Whenever a value is defined in the SERVICE USAGE field, the Service"
^DD(123.5,2,21,2,0)="entry will NOT be selectable to send consults TO in the OE/RR ordering"
^DD(123.5,2,21,3,0)="process.  "
^DD(123.5,2,21,4,0)="  "
^DD(123.5,2,21,5,0)="Service Usages cause functioning as follows:"
^DD(123.5,2,21,6,0)="GROUPER ONLY - Allows a service to be used for grouping other "
^DD(123.5,2,21,7,0)="services together for review purposes, and aids in defining the "
^DD(123.5,2,21,8,0)="service hierarchy (e.g., ALL SERVICES, INPATIENT SERVICES, OUTSIDE"
^DD(123.5,2,21,9,0)="SERVICES).  During the order process, a user selecting a grouper only"
^DD(123.5,2,21,10,0)="service will be shown the service hierarchy under that service grouper."
^DD(123.5,2,21,11,0)="A Grouper ONLY service should never be a ""TO"" Service on a consult."
^DD(123.5,2,21,12,0)="  "
^DD(123.5,2,21,13,0)="TRACKING ONLY - Allows a service to be defined in a hierarchy,"
^DD(123.5,2,21,14,0)="but will not allow users ordering consults in OE/RR to be able to see"
^DD(123.5,2,21,15,0)="or select a service marked for TRACKING ONLY.  (e.g., Psychology"
^DD(123.5,2,21,16,0)="may be defined with its Service Usage blank, and its Sub-specialty"
^DD(123.5,2,21,17,0)="multiple defined with services of which some or all may be ""TRACKING"
^DD(123.5,2,21,18,0)="ONLY"" services.  This hierarchy facilitates the situation when a"
^DD(123.5,2,21,19,0)="service, such as Psychology, prefers a common location for all related"
^DD(123.5,2,21,20,0)="consults to be sent to. A Tracking user at the common location then "
^DD(123.5,2,21,21,0)="""Forwards"" the request to one of the sub-service TRACKING ONLY services"
^DD(123.5,2,21,22,0)="for completion.)"
^DD(123.5,2,21,23,0)=" "
^DD(123.5,2,21,24,0)="DISABLED - Disabled services are not selectable for ordering or tracking."
^DD(123.5,2,"DT")="2920206"
^DD(123.5,3,0)="DISABLE MESSAGE^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(123.5,3,3)="Enter a message that will display if/when this service is DISABLED, 1-80 characters in length."
^DD(123.5,3,21,0)="^^2^2^2970911^^"
^DD(123.5,3,21,1,0)="If a service is disabled, a DISABLED message will be displayed on"
^DD(123.5,3,21,2,0)="the screen."
^DD(123.5,3,"DT")="2910613"
^DD(123.5,5,0)="CREATOR^P200'^VA(200,^0;5^Q"
^DD(123.5,5,3)="Type in the name of the person creating the new service entry."
^DD(123.5,5,21,0)="^^1^1^2971007^^^^"
^DD(123.5,5,21,1,0)="This field identifies who created the service entry."
^DD(123.5,5,"DT")="2910528"
^DD(123.5,10,0)="SUB-SERVICE^123.51P^^10;0"
^DD(123.5,10,20,0)="^.3LA^^0"
^DD(123.5,10,21,0)="^.001^4^4^3041213^^^^"
^DD(123.5,10,21,1,0)="This is the set of services or specialties that may be grouped under"
^DD(123.5,10,21,2,0)="the Service/Specialty.  A member of this sub-service may also be defined"
^DD(123.5,10,21,3,0)="to have its own sub-service/specialties. There is no limit to the"
^DD(123.5,10,21,4,0)="depth of the hierarchy beneath ALL SERVICES."
^DD(123.5,10,"DT")="3010820"
^DD(123.5,11,0)="INTERNAL NAME^F^^11;1^K:$L(X)>80!($L(X)<2) X"
^DD(123.5,11,1,0)="^.1"
^DD(123.5,11,1,1,0)="123.5^E"
^DD(123.5,11,1,1,1)="S ^GMR(123.5,""E"",$E(X,1,30),DA)="""""
^DD(123.5,11,1,1,2)="K ^GMR(123.5,""E"",$E(X,1,30),DA)"
^DD(123.5,11,1,1,"DT")="3020130"
^DD(123.5,11,3)="Answer must be 2-80 characters in length"
^DD(123.5,11,21,0)="^^4^4^3020131^"
^DD(123.5,11,21,1,0)="This field holds a name that can be used for internal name-spacing. "
^DD(123.5,11,21,2,0)="This name will not be viewable to users when selecting a service. "
^DD(123.5,11,21,3,0)="This name may be used to look up entries in the file via VA Fileman "
^DD(123.5,11,21,4,0)="and the Setup Consult Services option."
^DD(123.5,11,"DT")="3020131"
^DD(123.5,20,0)="ENTRY ACTION^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(123.5,20,3)="ENTER STANDARD MUMPS CODE"
^DD(123.5,20,8.5)="@"
^DD(123.5,20,9)="@"
^DD(123.5,20,21,0)="^^2^2^2970911^^^^"
^DD(123.5,20,21,1,0)="This field contains MUMPS code that will be executed when someone"
^DD(123.5,20,21,2,0)="enters this option for CPRS Detailed and Results displays."
^DD(123.5,20,"DT")="2910724"
^DD(123.5,101,0)="PROCEDURE TYPE^123.5101P^^101;0"
^DD(123.5,101,"DT")="3000628"
^DD(123.5,101,"V",0)="^.12P"
^DD(123.5,123.01,0)="OE/RR DISPLAY GROUP^P100.98'^ORD(100.98,^123;1^Q"
^DD(123.5,123.01,3)="Enter the CPRS display group that this service belongs to."
^DD(123.5,123.01,21,0)="^^2^2^2970911^^^^"
^DD(123.5,123.01,21,1,0)="The display group will automatically default to CONSULTS if there is no"
^DD(123.5,123.01,21,2,0)="other display group defined as a sub-group of CONSULTS."
^DD(123.5,123.01,"DT")="2910821"
^DD(123.5,123.011,0)="SERVICE UPDATE OPTION^P19'^DIC(19,^123;10^Q"
^DD(123.5,123.011,3)="Enter the Protocol Action Menu to assign to a user for selecting actions from the Consult/Request screen."
^DD(123.5,123.011,21,0)="8^^11^11^2970911^^^^"
^DD(123.5,123.011,21,1,0)="This field provides security by defining who can actually perform tracking "
^DD(123.5,123.011,21,2,0)="activities for a service/specialty's consults, based on the Option used."
^DD(123.5,123.011,21,3,0)="  "
^DD(123.5,123.011,21,4,0)="This field works in conjunction with the PROTOCOL ACTION MENU BY OPTION"
^DD(123.5,123.011,21,5,0)="field."
^DD(123.5,123.011,21,6,0)="If an option is identified here, and the user selects this option to"
^DD(123.5,123.011,21,7,0)="review consults/requests, the user will be given access to the Protocol"
^DD(123.5,123.011,21,8,0)="action menu defined in the PROTOCOL ACTION MENU BY OPTION field.  "
^DD(123.5,123.011,21,9,0)="If this option was not used to access the consult/request tracking data,"
^DD(123.5,123.011,21,10,0)="the user will only see the actions defined in the"
^DD(123.5,123.011,21,11,0)="GMRCACTM USER REVIEW SCREEN protocol menu."
^DD(123.5,123.011,"DT")="2920212"
^DD(123.5,123.02,0)="PROTOCOL MENU OF REQUEST ITEMS^P101'^ORD(101,^123;2^Q"
^DD(123.5,123.02,3)="Enter the PROCEDURE to be associated with this service."
^DD(123.5,123.02,21,0)="^^5^5^2970911^^^^"
^DD(123.5,123.02,21,1,0)="This field is being used primarily for the Medicine Package Interface to"
^DD(123.5,123.02,21,2,0)="link the Medicine Service to a Protocol Menu representing the Procedure"
^DD(123.5,123.02,21,3,0)="Types of the Medicine Package.  The GMRC MEDICINE PKG INTERFACE option"
^DD(123.5,123.02,21,4,0)="uses this entry to determine the service and the type of results the "
^DD(123.5,123.02,21,5,0)="Medicine Personnel may be associating results with."
^DD(123.5,123.02,"DT")="2920225"
^DD(123.5,123.03,0)="PROTOCOL ACTION MENU BY USERS^P101'^ORD(101,^123;3^Q"
^DD(123.5,123.03,3)="Enter GMRCACTM USER REVIEW SCREEN or GMRCACTM SERVICE ACTION MENU to determine what actions can be taken by the user."
^DD(123.5,123.03,21,0)="^^12^12^2970911^^^^"
^DD(123.5,123.03,21,1,0)="This is the Protocol menu of actions in the Protocol file which may be"
^DD(123.5,123.03,21,2,0)="used by users identified in the ""Service Individual to Notify,"""
^DD(123.5,123.03,21,3,0)="""Service Teams to Notify,"" and ""Update Users w/o Notification"" fields"
^DD(123.5,123.03,21,4,0)="for a Service.  "
^DD(123.5,123.03,21,5,0)=" "
^DD(123.5,123.03,21,6,0)="Two generic protocol action menus are exported, GMRCACTM USER REVIEW "
^DD(123.5,123.03,21,7,0)="SCREEN and GMRCACTM SERVICE ACTION MENU.  The GMRCACTM USER REVIEW SCREEN is"
^DD(123.5,123.03,21,8,0)="the default protocol menu of actions which will be used when no other"
^DD(123.5,123.03,21,9,0)="protocol is defined.  This default menu of actions contains inquiry only "
^DD(123.5,123.03,21,10,0)="kinds of actions.  The GMRCACTM SERVICE ACTION MENU contains actions"
^DD(123.5,123.03,21,11,0)="which allow the consult/request to be tracked to its final resolution"
^DD(123.5,123.03,21,12,0)="of Denied, Discontinued, or Completed."
^DD(123.5,123.03,"DT")="2920515"
^DD(123.5,123.04,0)="PROTOCOL ACTION MENU BY OPTION^P101'^ORD(101,^123;4^Q"
^DD(123.5,123.04,.1)=""
^DD(123.5,123.04,3)="Enter the Protocol Action that may be used by a person to perform actions on the Consults screen."
^DD(123.5,123.04,21,0)="^^27^27^2970911^^^^"
^DD(123.5,123.04,21,1,0)="This is the menu of protocol actions in the Protocol File that may be"
^DD(123.5,123.04,21,2,0)="used when the option named in the SERVICE UPDATE OPTION field "
^DD(123.5,123.04,21,3,0)="is the option used to review the consults/requests."
^DD(123.5,123.04,21,4,0)="  "
^DD(123.5,123.04,21,5,0)="This field is only used when the IRM service wants to establish"
^DD(123.5,123.04,21,6,0)="security BY SERVICE via site-specific options."
^DD(123.5,123.04,21,7,0)="  "
^DD(123.5,123.04,21,8,0)="If neither the PROTOCOL ACTION MENU BY OPTION or the SERVICE UPDATE"
^DD(123.5,123.04,21,9,0)="OPTION are used to specify service security, then the PROTOCOL ACTION MENU "
^DD(123.5,123.04,21,10,0)="BY KEY and SERVICE UPDATE SECURITY KEY are checked to establish the correct"
^DD(123.5,123.04,21,11,0)="menu of actions allowed for the user BY SERVICE."
^DD(123.5,123.04,21,12,0)=" "
^DD(123.5,123.04,21,13,0)="The ""GMRCACTM USER REVIEW SCREEN"" protocol menu of actions will "
^DD(123.5,123.04,21,14,0)="be used for all users as a default.  This default menu of actions"
^DD(123.5,123.04,21,15,0)="contains inquiry only kinds of actions."
^DD(123.5,123.04,21,16,0)=" "
^DD(123.5,123.04,21,17,0)="Sites that are using the Medicine Package to enter procedure results may"
^DD(123.5,123.04,21,18,0)="specify GMRCACTM MEDICINE PKG MENU as the Protocol Action Menu By Option"
^DD(123.5,123.04,21,19,0)="field and the GMRC MEDICINE PKG INTERFACE option as the Security Update"
^DD(123.5,123.04,21,20,0)="Optifor field.  This should only be specified on those services that are"
^DD(123.5,123.04,21,21,0)="linked to a ""GMRCR "" protocol via the FILE LINK field in the Protocol "
^DD(123.5,123.04,21,22,0)="File.  The exported Medicine sub-services are already defined for use with"
^DD(123.5,123.04,21,23,0)="the GMRC MEDICINE PKG INTERFACE option."
^DD(123.5,123.04,21,24,0)=" "
^DD(123.5,123.04,21,25,0)="Pharmacy Services should specify GMRCACTM PHARMACY PKG MENU in the"
^DD(123.5,123.04,21,26,0)="Protocol Action Menu By Option field and the GMRC PHARMACY TPN CONSULTS"
^DD(123.5,123.04,21,27,0)="option in the Service Update Option field."
^DD(123.5,123.04,"DT")="2920422"
^DD(123.5,123.06,0)="RELATED TREATING SPECIALTY^P45.7'^DIC(45.7,^123;6^Q"
^DD(123.5,123.06,1,0)="^.1"
^DD(123.5,123.06,1,1,0)="123.5^C"
^DD(123.5,123.06,1,1,1)="S ^GMR(123.5,""C"",$E(X,1,30),DA)="""""
^DD(123.5,123.06,1,1,2)="K ^GMR(123.5,""C"",$E(X,1,30),DA)"
^DD(123.5,123.06,1,1,"%D",0)="^^4^4^2920608^^"
^DD(123.5,123.06,1,1,"%D",1,0)="The ""C"" cross-reference enables look-up of information based on the "
^DD(123.5,123.06,1,1,"%D",2,0)="RELATED TREATING SPECIALTY."
^DD(123.5,123.06,1,1,"%D",3,0)="This cross-reference is used to allow an individual to specify a Treating"
^DD(123.5,123.06,1,1,"%D",4,0)="Specialty in the ""TO"" field when Requesting a Consult or Generic Request."
^DD(123.5,123.06,1,1,"DT")="2910530"
^DD(123.5,123.06,3)="Enter the related Treating Specialty from the FACILITY TREATING SPECIALTY File."
^DD(123.5,123.06,21,0)="^^2^2^2970911^^^"
^DD(123.5,123.06,21,1,0)="This field may be defined for use in Fileman reporting "
^DD(123.5,123.06,21,2,0)=" via the Relational Jumping capabilities."
^DD(123.5,123.06,"DT")="2920528"
^DD(123.5,123.07,0)="RELATED SERVICE/SECTION^P49'^DIC(49,^123;7^Q"
^DD(123.5,123.07,3)="Enter the RELATED SERVICE/SECTION from the SERVICE/SECTION File."
^DD(123.5,123.07,"DT")="2910710"
^DD(123.5,123.08,0)="SERVICE INDIVIDUAL TO NOTIFY^*P200'^VA(200,^123;8^S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.5,123.08,3)="Enter the name of the individual in the Service who will receive a default notification of any action taken on a consult."
^DD(123.5,123.08,12)="Only active users may be selected"
^DD(123.5,123.08,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"""
^DD(123.5,123.08,21,0)="^.001^11^11^3000313^^^^"
^DD(123.5,123.08,21,1,0)="A user may be identified in this field as having primary responsibility for"
^DD(123.5,123.08,21,2,0)="receiving consults and tracking them through to completion or "
^DD(123.5,123.08,21,3,0)="discontinuance.  This individual will receive a ""NEW SERVICE CONSULT"""
^DD(123.5,123.08,21,4,0)="notification type when a new order is released to the service"
^DD(123.5,123.08,21,5,0)="through CPRS.  The notification will appear in the following"
^DD(123.5,123.08,21,6,0)="format:"
^DD(123.5,123.08,21,7,0)="  NIVEK,ALP (N8976): New Psychology Consult ordered"
^DD(123.5,123.08,21,8,0)="  JONES,GEO (J4552): New Psychology consult forwarded - Stat"
^DD(123.5,123.08,21,9,0)="  "
^DD(123.5,123.08,21,10,0)="The user must have the ""NEW SERVICE CONSULT/REQUEST"" notification type"
^DD(123.5,123.08,21,11,0)="enabled."
^DD(123.5,123.08,"DT")="3000113"
^DD(123.5,123.09,0)="SERVICE PRINTER^P3.5'^%ZIS(1,^123;9^Q"
^DD(123.5,123.09,3)="Enter the name of the Service/Section's Printing Device, or the nearest Printer."
^DD(123.5,123.09,21,0)="^^10^10^2970911^^^^"
^DD(123.5,123.09,21,1,0)="This field allows the service/specialty to identify a device that "
^DD(123.5,123.09,21,2,0)="will be used for printing Consult Forms (513) 'automatically' at the "
^DD(123.5,123.09,21,3,0)="service when the consult/request order is released by CPRS."
^DD(123.5,123.09,21,4,0)="  "
^DD(123.5,123.09,21,5,0)="If the device is not defined, the Consult Form will print at the location"
^DD(123.5,123.09,21,6,0)="where the order was placed, bypassing the electronic relay functionality."
^DD(123.5,123.09,21,7,0)="The order text in CPRS for an order to a service with no device is"
^DD(123.5,123.09,21,8,0)="prefixed with "">>.""  This indicates to the ordering clerks/clinician"
^DD(123.5,123.09,21,9,0)="that the consult form needs manual processing or a call to the service to"
^DD(123.5,123.09,21,10,0)="have the service use the ""PS"" action to print the service copy."
^DD(123.5,123.09,"DT")="2910716"
^DD(123.5,123.1,0)="SERVICE TEAM(S) TO NOTIFY^123.53P^^123.1;0"
^DD(123.5,123.1,21,0)="^^2^2^2991129^^^^"
^DD(123.5,123.1,21,1,0)="A service can have teams of users associated with the Service.  Any users"
^DD(123.5,123.1,21,2,0)="defined in a team related to the Service will receive Notifications."
^DD(123.5,123.1,"DT")="2920605"
^DD(123.5,123.2,0)="NOTIFICATION BY PT LOCATION^123.54AV^^123.2;0"
^DD(123.5,123.2,21,0)="^.001^5^5^3000313^^^^"
^DD(123.5,123.2,21,1,0)="A service may send notifications about new consults to an individual or"
^DD(123.5,123.2,21,2,0)="teams, depending on the patient's location.  Each hospital/ward location"
^DD(123.5,123.2,21,3,0)="for patients may be defined here.  For each location, an individual or "
^DD(123.5,123.2,21,4,0)="team(s) may be specified to receive notifications for orders based "
^DD(123.5,123.2,21,5,0)="on the patient's location at the time the order was placed."
^DD(123.5,123.2,"DT")="2920515"
^DD(123.5,123.3,0)="UPDATE USERS W/O NOTIFICATIONS^123.55P^^123.3;0"
^DD(123.5,123.3,21,0)="^.001^4^4^3000313^^^^"
^DD(123.5,123.3,21,1,0)="Service users who are able to perform update tracking actions,"
^DD(123.5,123.3,21,2,0)="but DO NOT receive ""NEW SERVICE CONSULT"" notifications, should be defined"
^DD(123.5,123.3,21,3,0)="here.  The update tracking capabilities are based on the Protocol"
^DD(123.5,123.3,21,4,0)="Action Menu by Users field."
^DD(123.5,123.31,0)="UPDATE TEAMS W/O NOTIFICATIONS^123.57P^^123.31;0"
^DD(123.5,123.31,21,0)="^^3^3^2990719^^"
^DD(123.5,123.31,21,1,0)="This field will allow teams of users to be assigned as update users. Team"
^DD(123.5,123.31,21,2,0)="members will not receive notifications as a result of the team being"
^DD(123.5,123.31,21,3,0)="entered in this field. "
^DD(123.5,123.33,0)="ADMINISTRATIVE UPDATE USERS^123.555P^^123.33;0"
^DD(123.5,123.33,"DT")="2991129"
^DD(123.5,123.34,0)="ADMINISTRATIVE UPDATE TEAMS^123.58P^^123.34;0"
^DD(123.5,123.34,"DT")="2991129"
^DD(123.5,123.35,0)="UPDATE USER CLASSES W/O NOTIFS^123.59P^^123.35;0"
^DD(123.5,123.35,12)="Only active User Classes may be selected"
^DD(123.5,123.35,12.1)="I $P(^(0),""^"",3)"
^DD(123.5,123.4,0)="RELATED HOSPITAL LOCATION^123.56P^^123.4;0"
^DD(123.5,123.4,"DT")="2910710"
^DD(123.5,123.5,0)="SPECIAL UPDATES INDIVIDUAL^*P200'^VA(200,^0;4^S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.5,123.5,3)="This is the individual who can perform special updates for this particular service. "
^DD(123.5,123.5,12)="Only active users may be selected"
^DD(123.5,123.5,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"""
^DD(123.5,123.5,21,0)="^.001^9^9^3000313^^^"
^DD(123.5,123.5,21,1,0)="This individual will have privileges to perform group status updates for"
^DD(123.5,123.5,21,2,0)="this service or any of the entries in the SUB-SERVICE/SPECIALTY field. "
^DD(123.5,123.5,21,3,0)=" "
^DD(123.5,123.5,21,4,0)="It is recommended that this individual be a responsible service update"
^DD(123.5,123.5,21,5,0)="user or a Clinical Application Coordinator. If given the option GMRCSTSU,"
^DD(123.5,123.5,21,6,0)="the user will be able to choose all requests within a date range that are"
^DD(123.5,123.5,21,7,0)="pending, active or both and update the request to discontinued or"
^DD(123.5,123.5,21,8,0)="complete. This will also update the related order in CPRS to the same"
^DD(123.5,123.5,21,9,0)="status."
^DD(123.5,123.5,"DT")="3000313"
^DD(123.5,124,0)="DEFAULT REASON FOR REQUEST^123.5124^^124;0"
^DD(123.5,124,21,0)="^^7^7^2990721^^"
^DD(123.5,124,21,1,0)="This field will allow a boilerplate of text to be imported into the reason"
^DD(123.5,124,21,2,0)="for request when placing consult or procedure orders for this service. If"
^DD(123.5,124,21,3,0)="the user places an order using a quick order having boilerplate text, that"
^DD(123.5,124,21,4,0)="text will supersede any default text stored. "
^DD(123.5,124,21,5,0)=" "
^DD(123.5,124,21,6,0)="This field may contain any text including TIU objects. TIU Objects must be"
^DD(123.5,124,21,7,0)="enclosed in vertical bars (e.g. |PATIENT NAME| )."
^DD(123.5,125,0)="PREREQUISITE^123.5125^^125;0"
^DD(123.5,131,0)="PROSTHETICS SERVICE^S^1:YES;0:NO;^INT;1^Q"
^DD(123.5,131,3)="Enter YES if this service is part of the Prosthetics interface."
^DD(123.5,131,21,0)="^.001^5^5^3000615^^^"
^DD(123.5,131,21,1,0)="This field is used to flag those services that are part of the interface"
^DD(123.5,131,21,2,0)="between Consult/Request Tracking and the Prosthetics package. "
^DD(123.5,131,21,3,0)=" "
^DD(123.5,131,21,4,0)="This field is set by a package option. It is not intended to be modified"
^DD(123.5,131,21,5,0)="via VA FileMan."
^DD(123.5,131,"DT")="3000615"
^DD(123.5,132,0)="IFC ROUTING SITE^*P4'^DIC(4,^IFC;1^S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA,+Y'=$$KSP^XUPARAM(""""INST"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.5,132,3)="Enter the VA site that will perform consults directed to this service"
^DD(123.5,132,12)="Only national institution file entries may be selected"
^DD(123.5,132,12.1)="S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA,+Y'=$$KSP^XUPARAM(""""INST"""")"""
^DD(123.5,132,21,0)="^.001^4^4^3020218^^^^"
^DD(123.5,132,21,1,0)="This field contains the VA facility that will perform consults "
^DD(123.5,132,21,2,0)="requested for this service. When a consult for this service is "
^DD(123.5,132,21,3,0)="ordered, it will automatically be routed to the VA facility in "
^DD(123.5,132,21,4,0)="this field."
^DD(123.5,132,"DT")="3020218"
^DD(123.5,133,0)="IFC REMOTE NAME^F^^IFC;2^K:$L(X)>63!($L(X)<2) X"
^DD(123.5,133,3)="Enter the name of the service at the consulting site"
^DD(123.5,133,21,0)="^^8^8^3011120^"
^DD(123.5,133,21,1,0)="This field contains the name of the service that will be requested at "
^DD(123.5,133,21,2,0)="the VAMC defined in the IFC ROUTING SITE field."
^DD(123.5,133,21,3,0)=" "
^DD(123.5,133,21,4,0)="Enter the name of the service exactly as it is named at the remote"
^DD(123.5,133,21,5,0)="facility. If this name does not match the name of the service at the"
^DD(123.5,133,21,6,0)="routing site, the request will fail to be filed at the remote site. "
^DD(123.5,133,21,7,0)="This will delay or prohibit the performance and processing of this"
^DD(123.5,133,21,8,0)="request."
^DD(123.5,133,"DT")="3010907"
^DD(123.5,134,0)="IFC SENDING FACILITY^123.5134P^^IFCS;0"
^DD(123.5,135,0)="IFC COORDINATOR^P200'^VA(200,^IFC;3^Q"
^DD(123.5,135,3)="Please enter the person that will administer inter-facility consults for this service."
^DD(123.5,135,21,0)="^^4^4^3011017^"
^DD(123.5,135,21,1,0)="The person entered in this field will have the ability to act on consults"
^DD(123.5,135,21,2,0)="that would not otherwise be accessible to other update users for this "
^DD(123.5,135,21,3,0)="service. This user will also be able to rectify certain communication "
^DD(123.5,135,21,4,0)="failures with Inter-facility Consults."
^DD(123.5,135,"DT")="3011017"
^DD(123.5,150,0)="ADMINISTRATIVE^S^0:NO;1:YES;^30;1^Q"
^DD(123.5,150,3)="ENTER 'YES' IF THIS SERVICE IS ADMINSTRATIVE IN NATURE."
^DD(123.5,150,21,0)="^^4^4^3080208^^"
^DD(123.5,150,21,1,0)="Entering 'YES"" here will cause any orders placed to this service to have "
^DD(123.5,150,21,2,0)="a corresponding entry of 'YES' in the ADMINISTRATIVE field of the REQUEST "
^DD(123.5,150,21,3,0)="CONSULTATION FILE, #123.  Administrative requests are to be excluded from "
^DD(123.5,150,21,4,0)="the CONSULTS PERFORMANCE MONITOR report [GMRC RPT PERF MONITOR]."
^DD(123.5,150,"DT")="3080208"
^DD(123.5,688,0)="ASSOCIATED STOP CODE^123.5688P^^688;0"
^DD(123.5,"B","ABBREVIATED PRINT NAME",1.11)="1"
^DD(123.5,"B","ADMINISTRATIVE",150)=""
^DD(123.5,"B","ADMINISTRATIVE UPDATE TEAMS",123.34)=""
^DD(123.5,"B","ADMINISTRATIVE UPDATE USERS",123.33)=""
^DD(123.5,"B","ASSOCIATED STOP CODE",688)=""
^DD(123.5,"B","CREATOR",5)=""
^DD(123.5,"B","DEFAULT REASON FOR REQUEST",124)=""
^DD(123.5,"B","DISABLE MESSAGE",3)=""
^DD(123.5,"B","ENTRY ACTION",20)=""
^DD(123.5,"B","IFC COORDINATOR",135)=""
^DD(123.5,"B","IFC REMOTE NAME",133)=""
^DD(123.5,"B","IFC ROUTING SITE",132)=""
^DD(123.5,"B","IFC SENDING FACILITY",134)=""
^DD(123.5,"B","INTERNAL NAME",11)=""
^DD(123.5,"B","NOTIFICATION BY PT LOCATION",123.2)=""
^DD(123.5,"B","NOTIFY SERVICE ON DC",1.04)=""
^DD(123.5,"B","OE/RR DISPLAY GROUP",123.01)=""
^DD(123.5,"B","PREREQUISITE",125)=""
^DD(123.5,"B","PRINT NAME",1.11)=""
^DD(123.5,"B","PROCEDURE TYPE",101)=""
^DD(123.5,"B","PROCESS PARENTS FOR NOTIFS",.08)=""
^DD(123.5,"B","PROCESS PARENTS FOR UPDATES",.07)=""
^DD(123.5,"B","PROSTHETICS SERVICE",131)=""
^DD(123.5,"B","PROTOCOL ACTION MENU BY OPTION",123.04)=""
^DD(123.5,"B","PROTOCOL ACTION MENU BY USERS",123.03)=""
^DD(123.5,"B","PROTOCOL MENU OF REQUEST ITEMS",123.02)=""
^DD(123.5,"B","PROVISIONAL DX INPUT",1.02)=""
^DD(123.5,"B","PROVISIONAL DX PROMPT",1.01)=""
^DD(123.5,"B","RELATED HOSPITAL LOCATION",123.4)=""
^DD(123.5,"B","RELATED SERVICE/SECTION",123.07)=""
^DD(123.5,"B","RELATED TREATING SPECIALTY",123.06)=""
^DD(123.5,"B","REPRINT 513 ON DC",1.05)=""
^DD(123.5,"B","RESTRICT DEFAULT REASON EDIT",1.03)=""
^DD(123.5,"B","RESULT MGMT USER CLASS",1.06)=""
^DD(123.5,"B","SERVICE INDIVIDUAL TO NOTIFY",123.08)=""
^DD(123.5,"B","SERVICE NAME",.01)=""
^DD(123.5,"B","SERVICE PRINTER",123.09)=""
^DD(123.5,"B","SERVICE TEAM(S) TO NOTIFY",123.1)=""
^DD(123.5,"B","SERVICE UPDATE OPTION",123.011)=""
^DD(123.5,"B","SERVICE USAGE",2)=""
^DD(123.5,"B","SPECIAL UPDATES INDIVIDUAL",123.5)=""
^DD(123.5,"B","SUB-SERVICE",10)=""
^DD(123.5,"B","SYNONYM",1.1)=""
^DD(123.5,"B","UNRESTRICTED ACCESS",.06)=""
^DD(123.5,"B","UPDATE TEAMS W/O NOTIFICATIONS",123.31)=""
^DD(123.5,"B","UPDATE USER CLASSES W/O NOTIFS",123.35)=""
^DD(123.5,"B","UPDATE USERS W/O NOTIFICATIONS",123.3)=""
^DD(123.5,"GL",0,1,.01)=""
^DD(123.5,"GL",0,2,2)=""
^DD(123.5,"GL",0,3,3)=""
^DD(123.5,"GL",0,4,123.5)=""
^DD(123.5,"GL",0,5,5)=""
^DD(123.5,"GL",0,6,.06)=""
^DD(123.5,"GL",0,7,.07)=""
^DD(123.5,"GL",0,8,.08)=""
^DD(123.5,"GL",.1,1,1.11)=""
^DD(123.5,"GL",1,1,1.01)=""
^DD(123.5,"GL",1,2,1.02)=""
^DD(123.5,"GL",1,3,1.03)=""
^DD(123.5,"GL",1,4,1.04)=""
^DD(123.5,"GL",1,5,1.05)=""
^DD(123.5,"GL",1,6,1.06)=""
^DD(123.5,"GL",2,0,1.1)=""
^DD(123.5,"GL",10,0,10)=""
^DD(123.5,"GL",11,1,11)=""
^DD(123.5,"GL",20,"E1,245",20)=""
^DD(123.5,"GL",30,1,150)=""
^DD(123.5,"GL",101,0,101)=""
^DD(123.5,"GL",123,1,123.01)=""
^DD(123.5,"GL",123,2,123.02)=""
^DD(123.5,"GL",123,3,123.03)=""
^DD(123.5,"GL",123,4,123.04)=""
^DD(123.5,"GL",123,6,123.06)=""
^DD(123.5,"GL",123,7,123.07)=""
^DD(123.5,"GL",123,8,123.08)=""
^DD(123.5,"GL",123,9,123.09)=""
^DD(123.5,"GL",123,10,123.011)=""
^DD(123.5,"GL",123.1,0,123.1)=""
^DD(123.5,"GL",123.2,0,123.2)=""
^DD(123.5,"GL",123.3,0,123.3)=""
^DD(123.5,"GL",123.31,0,123.31)=""
^DD(123.5,"GL",123.33,0,123.33)=""
^DD(123.5,"GL",123.34,0,123.34)=""
^DD(123.5,"GL",123.35,0,123.35)=""
^DD(123.5,"GL",123.4,0,123.4)=""
^DD(123.5,"GL",124,0,124)=""
^DD(123.5,"GL",125,0,125)=""
^DD(123.5,"GL",688,0,688)=""
^DD(123.5,"GL","IFC",1,132)=""
^DD(123.5,"GL","IFC",2,133)=""
^DD(123.5,"GL","IFC",3,135)=""
^DD(123.5,"GL","IFCS",0,134)=""
^DD(123.5,"GL","INT",1,131)=""
^DD(123.5,"IX",.01)=""
^DD(123.5,"IX",11)=""
^DD(123.5,"IX",123.06)=""
^DD(123.5,"RQ",.01)=""
^DD(123.5,"SB",123.51,10)=""
^DD(123.5,"SB",123.5101,101)=""
^DD(123.5,"SB",123.5124,124)=""
^DD(123.5,"SB",123.5125,125)=""
^DD(123.5,"SB",123.5134,134)=""
^DD(123.5,"SB",123.52,1.1)=""
^DD(123.5,"SB",123.53,123.1)=""
^DD(123.5,"SB",123.54,123.2)=""
^DD(123.5,"SB",123.55,123.3)=""
^DD(123.5,"SB",123.555,123.33)=""
^DD(123.5,"SB",123.56,123.4)=""
^DD(123.5,"SB",123.5688,688)=""
^DD(123.5,"SB",123.57,123.31)=""
^DD(123.5,"SB",123.58,123.34)=""
^DD(123.5,"SB",123.59,123.35)=""
^DD(123.51,0)="SUB-SERVICE SUB-FIELD^^2^2"
^DD(123.51,0,"DT")="3000404"
^DD(123.51,0,"IX","AC",123.51,.01)=""
^DD(123.51,0,"IX","B",123.51,.01)=""
^DD(123.51,0,"NM","SUB-SERVICE")=""
^DD(123.51,0,"UP")="123.5"
^DD(123.51,.01,0)="SUB-SERVICE/SPECIALTY^MP123.5'X^GMR(123.5,^0;1^S GMRCDA=+$G(DA(1)) D INPUT^GMRCSRVS(.X,GMRCDA)"
^DD(123.51,.01,1,0)="^.1"
^DD(123.51,.01,1,1,0)="123.51^B"
^DD(123.51,.01,1,1,1)="S ^GMR(123.5,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(123.51,.01,1,1,2)="K ^GMR(123.5,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(123.51,.01,1,2,0)="123.5^APC^MUMPS"
^DD(123.51,.01,1,2,1)="S ^GMR(123.5,""APC"",$E(X,1,30),DA(1),DA)="""""
^DD(123.51,.01,1,2,2)="K ^GMR(123.5,""APC"",$E(X,1,30),DA(1),DA)"
^DD(123.51,.01,1,2,"%D",0)="^.101^3^3^3000615^^^"
^DD(123.51,.01,1,2,"%D",1,0)="This cross-reference is used to find the parents of a given service. This"
^DD(123.51,.01,1,2,"%D",2,0)="helps identify AC cross-references that need to be updated when the .01"
^DD(123.51,.01,1,2,"%D",3,0)="name changes, and helps manage forwarding to services."
^DD(123.51,.01,1,2,"DT")="2971103"
^DD(123.51,.01,1,3,0)="123.51^AC^MUMPS"
^DD(123.51,.01,1,3,1)="I $L($P($G(^GMR(123.5,X,0)),U)) S ^GMR(123.5,DA(1),10,""AC"",$P($G(^GMR(123.5,X,0)),U),DA)="""""
^DD(123.51,.01,1,3,2)="I $L($P($G(^GMR(123.5,X,0)),U)) K ^GMR(123.5,DA(1),10,""AC"",$P($G(^GMR(123.5,X,0)),U),DA)"
^DD(123.51,.01,1,3,"%D",0)="^^2^2^2971103^^"
^DD(123.51,.01,1,3,"%D",1,0)="This cross-reference is used to build a hierarchical listing of the"
^DD(123.51,.01,1,3,"%D",2,0)="services alphabetically."
^DD(123.51,.01,1,3,"DT")="2971103"
^DD(123.51,.01,3)="Enter the name of the Service which is to be a SUB-service of the Parent service."
^DD(123.51,.01,21,0)="^^9^9^3041213^"
^DD(123.51,.01,21,1,0)="This is the menu of sub-service/specialties that are grouped under this"
^DD(123.51,.01,21,2,0)="Service.  The sub-service/specialty entries must each be defined as "
^DD(123.51,.01,21,3,0)="entries in this file."
^DD(123.51,.01,21,4,0)="  "
^DD(123.51,.01,21,5,0)="There is no limit on how deep the hierarchy of services may be defined."
^DD(123.51,.01,21,6,0)="The only requirements are the ""ALL SERVICES"" entry be at the top of the"
^DD(123.51,.01,21,7,0)="hierarchy and a service can not be a sub-service to itself or any other "
^DD(123.51,.01,21,8,0)="sub-service hierarchy which can be traced back to itself as a parent "
^DD(123.51,.01,21,9,0)="service."
^DD(123.51,.01,23,0)="3^.001^3^3^3041213^^^^"
^DD(123.51,.01,23,1,0)="This file is similar to the Option File and Protocol File.  The same"
^DD(123.51,.01,23,2,0)="concepts for setting up options should be used to define the Service/"
^DD(123.51,.01,23,3,0)="Specialty entries."
^DD(123.51,.01,"DT")="3050228"
^DD(123.51,2,0)="MNEMONIC^F^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(123.51,2,3)="Enter a 1 to 4-character mnemonic that can be used to refer to this service."
^DD(123.51,2,21,0)="^^3^3^2970911^^^"
^DD(123.51,2,21,1,0)="This is a mnemonic associated with the service being entered as a sub-"
^DD(123.51,2,21,2,0)="service.  For example, if the service is Pulmonary, PU could be"
^DD(123.51,2,21,3,0)="could be defined as the mnemonic."
^DD(123.51,2,"DT")="2910528"
^DD(123.51,"B","MNEMONIC",2)=""
^DD(123.51,"B","SUB-SERVICE/SPECIALTY",.01)=""
^DD(123.51,"GL",0,1,.01)=""
^DD(123.51,"GL",0,2,2)=""
^DD(123.51,"IX",.01)=""
^DD(123.5101,0)="PROCEDURE TYPE SUB-FIELD^^.01^1"
^DD(123.5101,0,"DT")="2981215"
^DD(123.5101,0,"IX","B",123.5101,.01)=""
^DD(123.5101,0,"NM","PROCEDURE TYPE")=""
^DD(123.5101,0,"UP")="123.5"
^DD(123.5101,.01,0)="PROCEDURE TYPE^M*P101'^ORD(101,^0;1^S DIC(""S"")=""I $E(^(0),1,5)=""""GMRCR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.5101,.01,1,0)="^.1"
^DD(123.5101,.01,1,1,0)="123.5101^B"
^DD(123.5101,.01,1,1,1)="S ^GMR(123.5,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(123.5101,.01,1,1,2)="K ^GMR(123.5,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(123.5101,.01,1,2,0)="123.5^APR"
^DD(123.5101,.01,1,2,1)="S ^GMR(123.5,""APR"",$E(X,1,30),DA(1),DA)="""""
^DD(123.5101,.01,1,2,2)="K ^GMR(123.5,""APR"",$E(X,1,30),DA(1),DA)"
^DD(123.5101,.01,1,2,"%D",0)="^^2^2^2980907^"
^DD(123.5101,.01,1,2,"%D",1,0)="This cross reference is used to find all services which process a procedure"
^DD(123.5101,.01,1,2,"%D",2,0)="type."
^DD(123.5101,.01,1,2,"DT")="2980907"
^DD(123.5101,.01,3)="Select the procedure that can be processed by this service."
^DD(123.5101,.01,12)="Only Procedures may be chosen."
^DD(123.5101,.01,12.1)="S DIC(""S"")=""I $E(^(0),1,5)=""""GMRCR"""""""
^DD(123.5101,.01,21,0)="^.001^5^5^3000628^^^^"
^DD(123.5101,.01,21,1,0)="This field is no longer used for associating a prcedure with a particular "
^DD(123.5101,.01,21,2,0)="Consult service.  Use the RELATED SERVICES field in the GMRC PROCEDURE "
^DD(123.5101,.01,21,3,0)="(#123.3) file for this purpose."
^DD(123.5101,.01,21,4,0)=" "
^DD(123.5101,.01,21,5,0)="This field will be deleted in the future."
^DD(123.5101,.01,"DT")="3000628"
^DD(123.5101,"B","PROCEDURE TYPE",.01)=""
^DD(123.5101,"GL",0,1,.01)=""
^DD(123.5101,"IX",.01)=""
^DD(123.5124,0)="DEFAULT REASON FOR REQUEST SUB-FIELD^^.01^1"
^DD(123.5124,0,"DT")="2990720"
^DD(123.5124,0,"NM","DEFAULT REASON FOR REQUEST")=""
^DD(123.5124,0,"UP")="123.5"
^DD(123.5124,.01,0)="DEFAULT REASON FOR REQUEST^W^^0;1^Q"
^DD(123.5124,.01,3)="Enter the default text to be used as the reason for request when ordering a consult for this service."
^DD(123.5124,.01,21,0)="^^7^7^2990721^"
^DD(123.5124,.01,21,1,0)="This field will allow a boilerplate of text to be imported into the reason"
^DD(123.5124,.01,21,2,0)="for request when placing consult or procedure orders for this service. If"
^DD(123.5124,.01,21,3,0)="the user places an order using a quick order having boilerplate text, that"
^DD(123.5124,.01,21,4,0)="text will supersede any default text stored. "
^DD(123.5124,.01,21,5,0)=" "
^DD(123.5124,.01,21,6,0)="This field may contain any text including TIU objects. TIU Objects must be"
^DD(123.5124,.01,21,7,0)="enclosed in vertical bars (e.g. |PATIENT NAME| )."
^DD(123.5124,.01,"DT")="2990720"
^DD(123.5124,"B","DEFAULT REASON FOR REQUEST",.01)=""
^DD(123.5124,"GL",0,1,.01)=""
^DD(123.5125,0)="PREREQUISITE SUB-FIELD^^.01^1"
^DD(123.5125,0,"DT")="3000321"
^DD(123.5125,0,"NM","PREREQUISITE")=""
^DD(123.5125,0,"UP")="123.5"
^DD(123.5125,.01,0)="PREREQUISITE^W^^0;1^Q"
^DD(123.5125,.01,3)="Enter any pre-requisite information for ordering a consult to this service."
^DD(123.5125,.01,21,0)="^^11^11^3000321^"
^DD(123.5125,.01,21,1,0)="This word-processing field is utilized to communicate pre-requisite"
^DD(123.5125,.01,21,2,0)="information to the ordering person prior to ordering a consult to this"
^DD(123.5125,.01,21,3,0)="service."
^DD(123.5125,.01,21,4,0)=" "
^DD(123.5125,.01,21,5,0)="This field will be presented to the ordering person upon selecting a"
^DD(123.5125,.01,21,6,0)="Consult service and will allow them to abort the ordering at that time if"
^DD(123.5125,.01,21,7,0)="they choose."
^DD(123.5125,.01,21,8,0)=" "
^DD(123.5125,.01,21,9,0)="TIU objects may be embedded within this field which will be resolved for"
^DD(123.5125,.01,21,10,0)="the current patient during ordering. Any TIU objects must be contained"
^DD(123.5125,.01,21,11,0)="within vertical bars (e.g. |BLOOD PRESSURE| ). "
^DD(123.5125,.01,"DT")="3000321"
^DD(123.5125,"B","PREREQUISITE",.01)=""
^DD(123.5125,"GL",0,1,.01)=""
^DD(123.5134,0)="IFC SENDING FACILITY SUB-FIELD^^.01^1"
^DD(123.5134,0,"DT")="3020124"
^DD(123.5134,0,"IX","B",123.5134,.01)=""
^DD(123.5134,0,"NM","IFC SENDING FACILITY")=""
^DD(123.5134,0,"UP")="123.5"
^DD(123.5134,.01,0)="IFC SENDING FACILITY^M*P4'^DIC(4,^0;1^S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.5134,.01,1,0)="^.1"
^DD(123.5134,.01,1,1,0)="123.5134^B"
^DD(123.5134,.01,1,1,1)="S ^GMR(123.5,DA(1),""IFCS"",""B"",$E(X,1,30),DA)="""""
^DD(123.5134,.01,1,1,2)="K ^GMR(123.5,DA(1),""IFCS"",""B"",$E(X,1,30),DA)"
^DD(123.5134,.01,3)="Enter a VA Facility that will send consults for this service."
^DD(123.5134,.01,12)="Only national INSTITUTION file entries may be selected."
^DD(123.5134,.01,12.1)="S DIC(""S"")=""N STA S STA=$$STA^XUAF4(+Y) I STA,STA=+STA"""
^DD(123.5134,.01,21,0)="^.001^3^3^3020124^^"
^DD(123.5134,.01,21,1,0)="This field contains the VA facilities that may send inter-facility "
^DD(123.5134,.01,21,2,0)="consults to this service. Only active, primary VA facilities should "
^DD(123.5134,.01,21,3,0)="be entered in this field."
^DD(123.5134,.01,"DT")="3020124"
^DD(123.5134,"B","IFC SENDING FACILITY",.01)=""
^DD(123.5134,"GL",0,1,.01)=""
^DD(123.5134,"IX",.01)=""
^DD(123.52,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(123.52,0,"DT")="2910926"
^DD(123.52,0,"IX","B",123.52,.01)=""
^DD(123.52,0,"NM","SYNONYM")=""
^DD(123.52,0,"UP")="123.5"
^DD(123.52,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<2) X"
^DD(123.52,.01,1,0)="^.1"
^DD(123.52,.01,1,1,0)="123.52^B"
^DD(123.52,.01,1,1,1)="S ^GMR(123.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(123.52,.01,1,1,2)="K ^GMR(123.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(123.52,.01,1,2,0)="123.5^D"
^DD(123.52,.01,1,2,1)="S ^GMR(123.5,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(123.52,.01,1,2,2)="K ^GMR(123.5,""D"",$E(X,1,30),DA(1),DA)"
^DD(123.52,.01,1,2,"%D",0)="^^2^2^2920608^^"
^DD(123.52,.01,1,2,"%D",1,0)="This cross-reference allows SYNONYMS to be used to find the Service to"
^DD(123.52,.01,1,2,"%D",2,0)="send a consult to."
^DD(123.52,.01,1,2,"DT")="2910926"
^DD(123.52,.01,3)="This is the common name/abbreviation for the Service, 2-45 characters in length."
^DD(123.52,.01,21,0)="^^4^4^2970911^^"
^DD(123.52,.01,21,1,0)="This multiple field identifies the commonly known names and abbreviations"
^DD(123.52,.01,21,2,0)="for the Service named in the .01 Name field.  Synonyms identified here"
^DD(123.52,.01,21,3,0)="are used in the look-up of services at 'Select Service/Specialty: '"
^DD(123.52,.01,21,4,0)="prompts."
^DD(123.52,.01,"DT")="2910926"
^DD(123.52,"B","SYNONYM",.01)=""
^DD(123.52,"GL",0,1,.01)=""
^DD(123.52,"IX",.01)=""
^DD(123.53,0)="SERVICE TEAM(S) TO NOTIFY SUB-FIELD^^.01^1"
^DD(123.53,0,"DT")="2991020"
^DD(123.53,0,"IX","B",123.53,.01)=""
^DD(123.53,0,"NM","SERVICE TEAM(S) TO NOTIFY")=""
^DD(123.53,0,"UP")="123.5"
^DD(123.53,.01,0)="SERVICE TEAM TO NOTIFY^MP100.21'^OR(100.21,^0;1^Q"
^DD(123.53,.01,1,0)="^.1"
^DD(123.53,.01,1,1,0)="123.53^B"
^DD(123.53,.01,1,1,1)="S ^GMR(123.5,DA(1),123.1,""B"",$E(X,1,30),DA)="""""
^DD(123.53,.01,1,1,2)="K ^GMR(123.5,DA(1),123.1,""B"",$E(X,1,30),DA)"
^DD(123.53,.01,1,2,0)="123.5^AST"
^DD(123.53,.01,1,2,1)="S ^GMR(123.5,""AST"",$E(X,1,30),DA(1),DA)="""""
^DD(123.53,.01,1,2,2)="K ^GMR(123.5,""AST"",$E(X,1,30),DA(1),DA)"
^DD(123.53,.01,1,2,"%D",0)="^^2^2^2990910^"
^DD(123.53,.01,1,2,"%D",1,0)="The ""AST"" cross reference is used for deletion of pointer values when"
^DD(123.53,.01,1,2,"%D",2,0)="an entry is deleted from the OE/RR LIST (#100.21) file."
^DD(123.53,.01,1,2,"DT")="2990910"
^DD(123.53,.01,3)="Enter the name of the Service Team that is to receive notifications of any actions taken on a consult."
^DD(123.53,.01,21,0)="^^9^9^2991129^"
^DD(123.53,.01,21,1,0)="A team of users may be identified (from the OE/RR LIST file, #100.21) that"
^DD(123.53,.01,21,2,0)="will receive a ""NEW SERVICE CONSULT"" notification when a new order is"
^DD(123.53,.01,21,3,0)="released to the service through OE/RR.  The notification will appear in"
^DD(123.53,.01,21,4,0)="the following format:"
^DD(123.53,.01,21,5,0)="   NIVEK,ALP (N8796): New Psychology Consult ordered"
^DD(123.53,.01,21,6,0)="The individuals on the teams must have the ""NEW SERVICE CONSULT/REQUEST"""
^DD(123.53,.01,21,7,0)="notification type turned ""ON""."
^DD(123.53,.01,21,8,0)="  "
^DD(123.53,.01,21,9,0)="Team members will be able to perform update tracking capabilities."
^DD(123.53,.01,"DT")="2991020"
^DD(123.53,"B","SERVICE TEAM TO NOTIFY",.01)=""
^DD(123.53,"GL",0,1,.01)=""
^DD(123.53,"IX",.01)=""
^DD(123.54,0)="NOTIFICATION BY PT LOCATION SUB-FIELD^^2^3"
^DD(123.54,0,"DT")="3000113"
^DD(123.54,0,"IX","B",123.54,.01)=""
^DD(123.54,0,"NM","NOTIFICATION BY PT LOCATION")=""
^DD(123.54,0,"UP")="123.5"
^DD(123.54,.01,0)="NOTIFICATION BY PT LOCATION^MV^^0;1^Q"
^DD(123.54,.01,1,0)="^.1"
^DD(123.54,.01,1,1,0)="123.54^B"
^DD(123.54,.01,1,1,1)="S ^GMR(123.5,DA(1),123.2,""B"",$E(X,1,30),DA)="""""
^DD(123.54,.01,1,1,2)="K ^GMR(123.5,DA(1),123.2,""B"",$E(X,1,30),DA)"
^DD(123.54,.01,1,1,3)="Required Index for Variable Pointer"
^DD(123.54,.01,3)="Enter the name of the individual on this service/location who is to receive notifications when any action is taken on a consult."
^DD(123.54,.01,21,0)="^^7^7^2970611^^^^"
^DD(123.54,.01,21,1,0)="Enter a ward location or hospital location which the service wishes to"
^DD(123.54,.01,21,2,0)="assign a service individual or team to."
^DD(123.54,.01,21,3,0)=" "
^DD(123.54,.01,21,4,0)="When a consult or request is ordered, notifications to the receiving"
^DD(123.54,.01,21,5,0)="service will check to see if the patients location is defined here."
^DD(123.54,.01,21,6,0)="If defined, notifications will be sent to the specified individual and/or"
^DD(123.54,.01,21,7,0)="members of the specified team."
^DD(123.54,.01,"DT")="2920603"
^DD(123.54,.01,"V",0)="^.12P^2^2"
^DD(123.54,.01,"V",1,0)="42^Enter Ward Location^1^W^n^n"
^DD(123.54,.01,"V",2,0)="44^Enter Hospital Location^2^H^n^n"
^DD(123.54,.01,"V","B",42,1)=""
^DD(123.54,.01,"V","B",44,2)=""
^DD(123.54,.01,"V","M","Enter Hospital Location",2)=""
^DD(123.54,.01,"V","M","Enter Ward Location",1)=""
^DD(123.54,.01,"V","O",1,1)=""
^DD(123.54,.01,"V","O",2,2)=""
^DD(123.54,.01,"V","P","H",2)=""
^DD(123.54,.01,"V","P","W",1)=""
^DD(123.54,1,0)="INDIVIDUAL TO NOTIFY^*P200'^VA(200,^0;2^S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.54,1,3)="Enter the individual's name who is responsible for receiving notifications of actions on consults at this location."
^DD(123.54,1,12)="Only active users may be selected."
^DD(123.54,1,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"""
^DD(123.54,1,21,0)="^.001^6^6^3000313^^^^"
^DD(123.54,1,21,1,0)="This is the Individual that is assigned to this location for this "
^DD(123.54,1,21,2,0)="Service.  When a consult/request order for this Service is released"
^DD(123.54,1,21,3,0)="from OE/RR for a patient at this location, this individual will "
^DD(123.54,1,21,4,0)="receive the new order notification."
^DD(123.54,1,21,5,0)="Enter the individual who should receive notifications when a consult "
^DD(123.54,1,21,6,0)="order is released from OE/RR FOR this service, FROM this location."
^DD(123.54,1,"DT")="3000113"
^DD(123.54,2,0)="TEAM TO NOTIFY^P100.21'^OR(100.21,^0;3^Q"
^DD(123.54,2,1,0)="^.1"
^DD(123.54,2,1,1,0)="123.5^ANT"
^DD(123.54,2,1,1,1)="S ^GMR(123.5,""ANT"",$E(X,1,30),DA(1),DA)="""""
^DD(123.54,2,1,1,2)="K ^GMR(123.5,""ANT"",$E(X,1,30),DA(1),DA)"
^DD(123.54,2,1,1,"%D",0)="^^2^2^2990910^"
^DD(123.54,2,1,1,"%D",1,0)="The ""ANT"" cross reference is used for deletion of pointer values when an"
^DD(123.54,2,1,1,"%D",2,0)="entry is deleted from the OE/RR LIST (#100.21) file."
^DD(123.54,2,1,1,"DT")="2990910"
^DD(123.54,2,3)="Enter the name of the TEAM at this location which is to receive notifications of any actions taken on a consult."
^DD(123.54,2,21,0)="^^1^1^2970611^^^^"
^DD(123.54,2,21,1,0)="This is the Team that is assigned to this location for the Service."
^DD(123.54,2,"DT")="2990910"
^DD(123.54,"B","INDIVIDUAL TO NOTIFY",1)=""
^DD(123.54,"B","NOTIFICATION BY PT LOCATION",.01)=""
^DD(123.54,"B","TEAM TO NOTIFY",2)=""
^DD(123.54,"GL",0,1,.01)=""
^DD(123.54,"GL",0,2,1)=""
^DD(123.54,"GL",0,3,2)=""
^DD(123.54,"IX",.01)=""
^DD(123.54,"IX",2)=""
^DD(123.55,0)="UPDATE USERS W/O NOTIFICATIONS SUB-FIELD^^.01^1"
^DD(123.55,0,"DT")="3000113"
^DD(123.55,0,"IX","B",123.55,.01)=""
^DD(123.55,0,"NM","UPDATE USERS W/O NOTIFICATIONS")=""
^DD(123.55,0,"UP")="123.5"
^DD(123.55,.01,0)="UPDATE USERS W/O NOTIFICATIONS^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.55,.01,1,0)="^.1"
^DD(123.55,.01,1,1,0)="123.55^B"
^DD(123.55,.01,1,1,1)="S ^GMR(123.5,DA(1),123.3,""B"",$E(X,1,30),DA)="""""
^DD(123.55,.01,1,1,2)="K ^GMR(123.5,DA(1),123.3,""B"",$E(X,1,30),DA)"
^DD(123.55,.01,3)="Enter the name of individual who can do update tracking, but who will not get a notification."
^DD(123.55,.01,12)="Only active users may be selected."
^DD(123.55,.01,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"""
^DD(123.55,.01,21,0)="^.001^4^4^3000313^^^^"
^DD(123.55,.01,21,1,0)="Service users who should be able to perform update tracking capabilities,"
^DD(123.55,.01,21,2,0)="but DO NOT receive ""NEW SERVICE CONSULT"" notifications should be defined"
^DD(123.55,.01,21,3,0)="here.  The update tracking capabilities will be based on the Protocol"
^DD(123.55,.01,21,4,0)="Action Menu By Users field."
^DD(123.55,.01,"DT")="3000113"
^DD(123.55,"B","UPDATE USERS W/O NOTIFICATIONS",.01)=""
^DD(123.55,"GL",0,1,.01)=""
^DD(123.55,"IX",.01)=""
^DD(123.555,0)="ADMINISTRATIVE UPDATE USERS SUB-FIELD^^.02^2"
^DD(123.555,0,"DT")="3000113"
^DD(123.555,0,"IX","B",123.555,.01)=""
^DD(123.555,0,"NM","ADMINISTRATIVE UPDATE USERS")=""
^DD(123.555,0,"UP")="123.5"
^DD(123.555,.01,0)="ADMINISTRATIVE UPDATE USER^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.555,.01,1,0)="^.1"
^DD(123.555,.01,1,1,0)="123.555^B"
^DD(123.555,.01,1,1,1)="S ^GMR(123.5,DA(1),123.33,""B"",$E(X,1,30),DA)="""""
^DD(123.555,.01,1,1,2)="K ^GMR(123.5,DA(1),123.33,""B"",$E(X,1,30),DA)"
^DD(123.555,.01,3)="Enter the administrative users name."
^DD(123.555,.01,12)="Only active users may be selected"
^DD(123.555,.01,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)"""
^DD(123.555,.01,21,0)="^.001^3^3^3000313^^^^"
^DD(123.555,.01,21,1,0)="This multiple allows the administrative users for a service to be"
^DD(123.555,.01,21,2,0)="identified.  Administrative users update actions may be different from the"
^DD(123.555,.01,21,3,0)="service update users' actions."
^DD(123.555,.01,"DT")="3020531"
^DD(123.555,.02,0)="NOTIFICATION RECIPIENT^S^1:YES;0:NO;^0;2^Q"
^DD(123.555,.02,1,0)="^.1^^0"
^DD(123.555,.02,3)="Enter YES if this Administrative user should receive notifications."
^DD(123.555,.02,21,0)="^^2^2^2991123^"
^DD(123.555,.02,21,1,0)="This field, if set to YES will include this user in the list of"
^DD(123.555,.02,21,2,0)="notification recipients for this service. "
^DD(123.555,.02,"DT")="3020531"
^DD(123.555,"B","ADMINISTRATIVE UPDATE USER",.01)=""
^DD(123.555,"B","NOTIFICATION RECIPIENT",.02)=""
^DD(123.555,"GL",0,1,.01)=""
^DD(123.555,"GL",0,2,.02)=""
^DD(123.555,"IX",.01)=""
^DD(123.56,0)="RELATED HOSPITAL LOCATION SUB-FIELD^^.01^1"
^DD(123.56,0,"DT")="2910530"
^DD(123.56,0,"IX","B",123.56,.01)=""
^DD(123.56,0,"NM","RELATED HOSPITAL LOCATION")=""
^DD(123.56,0,"UP")="123.5"
^DD(123.56,.01,0)="RELATED HOSPITAL LOCATION^MP44'^SC(^0;1^Q"
^DD(123.56,.01,1,0)="^.1"
^DD(123.56,.01,1,1,0)="123.56^B"
^DD(123.56,.01,1,1,1)="S ^GMR(123.5,DA(1),123.4,""B"",$E(X,1,30),DA)="""""
^DD(123.56,.01,1,1,2)="K ^GMR(123.5,DA(1),123.4,""B"",$E(X,1,30),DA)"
^DD(123.56,.01,"DT")="2910821"
^DD(123.56,"B","RELATED HOSPITAL LOCATION",.01)=""
^DD(123.56,"GL",0,1,.01)=""
^DD(123.56,"IX",.01)=""
^DD(123.5688,0)="ASSOCIATED STOP CODE SUB-FIELD^^.01^1"
^DD(123.5688,0,"DT")="3060425"
^DD(123.5688,0,"IX","B",123.5688,.01)=""
^DD(123.5688,0,"NM","ASSOCIATED STOP CODE")=""
^DD(123.5688,0,"UP")="123.5"
^DD(123.5688,.01,0)="ASSOCIATED STOP CODE^M*P40.7'^DIC(40.7,^0;1^S DIC(""S"")=""I $P(^(0),U,2)>100"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.5688,.01,1,0)="^.1"
^DD(123.5688,.01,1,1,0)="123.5688^B"
^DD(123.5688,.01,1,1,1)="S ^GMR(123.5,DA(1),688,""B"",$E(X,1,30),DA)="""""
^DD(123.5688,.01,1,1,2)="K ^GMR(123.5,DA(1),688,""B"",$E(X,1,30),DA)"
^DD(123.5688,.01,1,2,0)="123.5^AB1"
^DD(123.5688,.01,1,2,1)="S ^GMR(123.5,""AB1"",$E(X,1,30),DA(1),DA)="""""
^DD(123.5688,.01,1,2,2)="K ^GMR(123.5,""AB1"",$E(X,1,30),DA(1),DA)"
^DD(123.5688,.01,1,2,"DT")="3060314"
^DD(123.5688,.01,3)="Enter all clinic stop code for this consult."
^DD(123.5688,.01,12)="CLINIC STOP POINTED TO MUST BE GREATER THAN 100"
^DD(123.5688,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)>100"""
^DD(123.5688,.01,21,0)="^.001^19^19^3060425^^^"
^DD(123.5688,.01,21,1,0)="This field is used to associate consult request service to clinics."
^DD(123.5688,.01,21,2,0)=" "
^DD(123.5688,.01,21,3,0)="If the stopcode attached to the REQUEST SERVICE is the same as the stop "
^DD(123.5688,.01,21,4,0)="code of the clinic profiles into which a procedure of the parent service"
^DD(123.5688,.01,21,5,0)="would be scheduled, then both consults and procedures would display for"
^DD(123.5688,.01,21,6,0)="the clerk to make a link at the time the appointment was made.  However,"
^DD(123.5688,.01,21,7,0)="if the stopcode of the REQUEST SERVICE is different than the stop code of"
^DD(123.5688,.01,21,8,0)="the clinic into which the procedure is scheduled, it would be necessary to"
^DD(123.5688,.01,21,9,0)="put both stopcodes into the REQUEST SERVICE to allow both consults and"
^DD(123.5688,.01,21,10,0)="procedure requests to display for scheduling clerks."
^DD(123.5688,.01,21,11,0)=" "
^DD(123.5688,.01,21,12,0)="The stop code of the chosen clinic during the scheduling process is "
^DD(123.5688,.01,21,13,0)="compared to the stop codes of any consult which could be linked to the"
^DD(123.5688,.01,21,14,0)="appointment.  If there is a match, and the current status of the consult"
^DD(123.5688,.01,21,15,0)="meets the criteria listed below, the clerk will be presented with the"
^DD(123.5688,.01,21,16,0)="following query:"
^DD(123.5688,.01,21,17,0)="                ""Will this appointment be for a CONSULT/ PROCEDURE? NO//"""
^DD(123.5688,.01,21,18,0)="This query allows the scheduling clerk to first display, and then link, "
^DD(123.5688,.01,21,19,0)="the appointment to the consult."
^DD(123.5688,.01,"DT")="3060425"
^DD(123.5688,"B","ASSOCIATED STOP CODE",.01)=""
^DD(123.5688,"GL",0,1,.01)=""
^DD(123.5688,"IX",.01)=""
^DD(123.57,0)="UPDATE TEAMS W/O NOTIFICATIONS SUB-FIELD^^.01^1"
^DD(123.57,0,"DT")="2990712"
^DD(123.57,0,"IX","B",123.57,.01)=""
^DD(123.57,0,"NM","UPDATE TEAMS W/O NOTIFICATIONS")=""
^DD(123.57,0,"UP")="123.5"
^DD(123.57,.01,0)="UPDATE TEAMS W/O NOTIFICATIONS^MP100.21'^OR(100.21,^0;1^Q"
^DD(123.57,.01,1,0)="^.1"
^DD(123.57,.01,1,1,0)="123.57^B"
^DD(123.57,.01,1,1,1)="S ^GMR(123.5,DA(1),123.31,""B"",$E(X,1,30),DA)="""""
^DD(123.57,.01,1,1,2)="K ^GMR(123.5,DA(1),123.31,""B"",$E(X,1,30),DA)"
^DD(123.57,.01,1,2,0)="123.5^AUT"
^DD(123.57,.01,1,2,1)="S ^GMR(123.5,""AUT"",$E(X,1,30),DA(1),DA)="""""
^DD(123.57,.01,1,2,2)="K ^GMR(123.5,""AUT"",$E(X,1,30),DA(1),DA)"
^DD(123.57,.01,1,2,"%D",0)="^^2^2^2990902^"
^DD(123.57,.01,1,2,"%D",1,0)="This cross-reference is used to locate and delete pointers to the"
^DD(123.57,.01,1,2,"%D",2,0)="OE/RR LIST (#100.21) file that have been deleted."
^DD(123.57,.01,1,2,"DT")="2990902"
^DD(123.57,.01,3)="Enter a team list of users to be assigned update authority for this service."
^DD(123.57,.01,21,0)="^^3^3^2990719^^^"
^DD(123.57,.01,21,1,0)="This field allows team lists from the OE/RR LIST (#100.21) file to be"
^DD(123.57,.01,21,2,0)="entered. All users will have update authority for requests directed to"
^DD(123.57,.01,21,3,0)="this service but will not be used as notification recipients. "
^DD(123.57,.01,"DT")="2990902"
^DD(123.57,"B","UPDATE TEAMS W/O NOTIFICATIONS",.01)=""
^DD(123.57,"GL",0,1,.01)=""
^DD(123.57,"IX",.01)=""
^DD(123.58,0)="ADMINISTRATIVE UPDATE TEAMS SUB-FIELD^^.02^2"
^DD(123.58,0,"DT")="2991124"
^DD(123.58,0,"IX","B",123.58,.01)=""
^DD(123.58,0,"NM","ADMINISTRATIVE UPDATE TEAMS")=""
^DD(123.58,0,"UP")="123.5"
^DD(123.58,.01,0)="ADMINISTRATIVE UPDATE TEAM^MP100.21'^OR(100.21,^0;1^Q"
^DD(123.58,.01,1,0)="^.1"
^DD(123.58,.01,1,1,0)="123.58^B"
^DD(123.58,.01,1,1,1)="S ^GMR(123.5,DA(1),123.34,""B"",$E(X,1,30),DA)="""""
^DD(123.58,.01,1,1,2)="K ^GMR(123.5,DA(1),123.34,""B"",$E(X,1,30),DA)"
^DD(123.58,.01,1,2,0)="123.5^AAT"
^DD(123.58,.01,1,2,1)="S ^GMR(123.5,""AAT"",$E(X,1,30),DA(1),DA)="""""
^DD(123.58,.01,1,2,2)="K ^GMR(123.5,""AAT"",$E(X,1,30),DA(1),DA)"
^DD(123.58,.01,1,2,"%D",0)="^^2^2^2990902^"
^DD(123.58,.01,1,2,"%D",1,0)="This cross-reference is used to locate and delete pointers to the"
^DD(123.58,.01,1,2,"%D",2,0)="OE/RR LIST (#100.21) file that have been deleted. "
^DD(123.58,.01,1,2,"DT")="2990902"
^DD(123.58,.01,3)="Enter a team list of users to be assigned administrative update privileges."
^DD(123.58,.01,21,0)="^^3^3^2991129^"
^DD(123.58,.01,21,1,0)="This field allows team lists from the OE/RR LIST (#100.21) file to be"
^DD(123.58,.01,21,2,0)="entered. All provider/users of the teams will have administrative update"
^DD(123.58,.01,21,3,0)="authority for requests directed to this service."
^DD(123.58,.01,"DT")="3020531"
^DD(123.58,.02,0)="NOTIFICATION RECIPIENTS^S^0:NO;1:YES;^0;2^Q"
^DD(123.58,.02,1,0)="^.1^^0"
^DD(123.58,.02,3)="Enter YES if these Administrative users should receive notifications."
^DD(123.58,.02,21,0)="^^2^2^2991124^"
^DD(123.58,.02,21,1,0)="This field, if set to YES will include the users on the specified team in"
^DD(123.58,.02,21,2,0)="the list of notification recipients for this service."
^DD(123.58,.02,"DT")="3020531"
^DD(123.58,"B","ADMINISTRATIVE UPDATE TEAM",.01)=""
^DD(123.58,"B","NOTIFICATION RECIPIENTS",.02)=""
^DD(123.58,"GL",0,1,.01)=""
^DD(123.58,"GL",0,2,.02)=""
^DD(123.58,"IX",.01)=""
^DD(123.59,0)="UPDATE USER CLASSES W/O NOTIFS SUB-FIELD^^.01^1"
^DD(123.59,0,"DT")="2990831"
^DD(123.59,0,"IX","B",123.59,.01)=""
^DD(123.59,0,"NM","UPDATE USER CLASSES W/O NOTIFS")=""
^DD(123.59,0,"UP")="123.5"
^DD(123.59,.01,0)="UPDATE USER CLASS W/O NOTIFS^M*P8930'^USR(8930,^0;1^S DIC(""S"")=""I $P(^(0),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(123.59,.01,1,0)="^.1"
^DD(123.59,.01,1,1,0)="123.59^B"
^DD(123.59,.01,1,1,1)="S ^GMR(123.5,DA(1),123.35,""B"",$E(X,1,30),DA)="""""
^DD(123.59,.01,1,1,2)="K ^GMR(123.5,DA(1),123.35,""B"",$E(X,1,30),DA)"
^DD(123.59,.01,3)="Enter a USER CLASS that can perform updates"
^DD(123.59,.01,12)="Only active User Classes may be selected"
^DD(123.59,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)"""
^DD(123.59,.01,21,0)="^^2^2^2990831^^^^"
^DD(123.59,.01,21,1,0)="This field will allow all members of the selected ASU User Class to"
^DD(123.59,.01,21,2,0)="perform full update actions on consults directed to this service."
^DD(123.59,.01,"DT")="2990831"
^DD(123.59,"B","UPDATE USER CLASS W/O NOTIFS",.01)=""
^DD(123.59,"GL",0,1,.01)=""
^DD(123.59,"IX",.01)=""
^DD(123.6,0)="FIELD^^.08^8"
^DD(123.6,0,"DDA")="N"
^DD(123.6,0,"DT")="3011015"
^DD(123.6,0,"IX","AI",123.6,.06)=""
^DD(123.6,0,"IX","AM",123.6,.03)=""
^DD(123.6,0,"IX","B",123.6,.01)=""
^DD(123.6,0,"NM","IFC MESSAGE LOG")=""
^DD(123.6,0,"VR")="3.0"
^DD(123.6,0,"VRPK")="GMRC"
^DD(123.6,.01,0)="DATE/TIME OF ENTRY^RD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(123.6,.01,1,0)="^.1"
^DD(123.6,.01,1,1,0)="123.6^B"
^DD(123.6,.01,1,1,1)="S ^GMR(123.6,""B"",$E(X,1,30),DA)="""""
^DD(123.6,.01,1,1,2)="K ^GMR(123.6,""B"",$E(X,1,30),DA)"
^DD(123.6,.01,3)="(No range limit on date)"
^DD(123.6,.01,21,0)="^^2^2^3011207^"
^DD(123.6,.01,21,1,0)="This is the date time an HL7 message was directed to another VistA system"
^DD(123.6,.01,21,2,0)="containing an inter-facility consult update."
^DD(123.6,.01,"DT")="3011207"
^DD(123.6,.02,0)="FACILITY^P4'^DIC(4,^0;2^Q"
^DD(123.6,.02,3)="Enter the INSTITUTION to which this message is directed"
^DD(123.6,.02,21,0)="^^2^2^3011207^"
^DD(123.6,.02,21,1,0)="This field contains the institution to which an HL7 message was sent. The "
^DD(123.6,.02,21,2,0)="messages contain updates to an inter-facility consult. "
^DD(123.6,.02,"DT")="3011207"
^DD(123.6,.03,0)="MESSAGE #^F^^0;3^K:$L(X)>20!($L(X)<2) X"
^DD(123.6,.03,1,0)="^.1"
^DD(123.6,.03,1,1,0)="123.6^AM"
^DD(123.6,.03,1,1,1)="S ^GMR(123.6,""AM"",$E(X,1,30),DA)="""""
^DD(123.6,.03,1,1,2)="K ^GMR(123.6,""AM"",$E(X,1,30),DA)"
^DD(123.6,.03,1,1,"DT")="3011010"
^DD(123.6,.03,3)="Enter the number of the HL7 message that corresponds to this entry"
^DD(123.6,.03,21,0)="^^3^3^3011207^"
^DD(123.6,.03,21,1,0)="This is the HL7 message number generated by the VistA HL7 package. This "
^DD(123.6,.03,21,2,0)="message number is used to match up the application acknowledgement from "
^DD(123.6,.03,21,3,0)="the remote system to the event that generated it. "
^DD(123.6,.03,"DT")="3011207"
^DD(123.6,.04,0)="CONSULT/REQUEST #^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(123.6,.04,1,0)="^.1^^0"
^DD(123.6,.04,3)="Enter the file 123 IEN that initiated this message"
^DD(123.6,.04,21,0)="^^2^2^3011207^"
^DD(123.6,.04,21,1,0)="This is the numeric respresentation of the REQUEST/CONSULTATION file "
^DD(123.6,.04,21,2,0)="entry that generated this message activity."
^DD(123.6,.04,"DT")="3011207"
^DD(123.6,.05,0)="ACTIVITY #^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(123.6,.05,3)="Enter the field 40 IEN that initiated this message"
^DD(123.6,.05,21,0)="^^3^3^3011207^"
^DD(123.6,.05,21,1,0)="This is the numeric representation of the ien within the REQUEST "
^DD(123.6,.05,21,2,0)="PROCESSING ACTIVITY multiple for the consult entry referenced in the "
^DD(123.6,.05,21,3,0)="CONSULT # field."
^DD(123.6,.05,"DT")="3011207"
^DD(123.6,.06,0)="INCOMPLETE^S^1:YES;^0;6^Q"
^DD(123.6,.06,1,0)="^.1"
^DD(123.6,.06,1,1,0)="123.6^AI"
^DD(123.6,.06,1,1,1)="S ^GMR(123.6,""AI"",$E(X,1,30),DA)="""""
^DD(123.6,.06,1,1,2)="K ^GMR(123.6,""AI"",$E(X,1,30),DA)"
^DD(123.6,.06,1,1,"DT")="3011010"
^DD(123.6,.06,3)="Enter Yes if this transmission has not received the appl ACK"
^DD(123.6,.06,21,0)="^^2^2^3011207^"
^DD(123.6,.06,21,1,0)="This field is set to YES until a successful application accept "
^DD(123.6,.06,21,2,0)="acknowledgement is received from the remote VistA system."
^DD(123.6,.06,"DT")="3011207"
^DD(123.6,.07,0)="TRANS. ATTEMPTS^NJ2,0^^0;7^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1.N) X"
^DD(123.6,.07,3)="Type a number between 1 and 20, 0 Decimal Digits"
^DD(123.6,.07,21,0)="^^2^2^3011207^"
^DD(123.6,.07,21,1,0)="This field contains the number of times an HL7 message containing a "
^DD(123.6,.07,21,2,0)="particular consult activity was transmitted to a remote VistA system."
^DD(123.6,.07,"DT")="3011207"
^DD(123.6,.08,0)="ERROR^NJ4,0O^^0;8^K:+X'=X!(X>1000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(123.6,.08,2)="S Y(0)=Y S Y=""ERR""_Y_""^GMRCIUTL"" S Y=$T(@Y),Y=$P(Y,"";"",2)"
^DD(123.6,.08,2.1)="S Y=""ERR""_Y_""^GMRCIUTL"" S Y=$T(@Y),Y=$P(Y,"";"",2)"
^DD(123.6,.08,3)="Type a Number between 100 and 1000, 0 Decimal Digits"
^DD(123.6,.08,21,0)="^^5^5^3020308^"
^DD(123.6,.08,21,1,0)="This field contains the error condition noted on the receiving site"
^DD(123.6,.08,21,2,0)="when receiving an IFC HL7 message."
^DD(123.6,.08,21,3,0)=" "
^DD(123.6,.08,21,4,0)="The error code numbers are defined and maintained within package "
^DD(123.6,.08,21,5,0)="documentation. "
^DD(123.6,.08,"DT")="3011207"
^DD(123.6,"B","ACTIVITY #",.05)=""
^DD(123.6,"B","CONSULT/REQUEST #",.04)=""
^DD(123.6,"B","DATE/TIME OF ENTRY",.01)=""
^DD(123.6,"B","ERROR",.08)=""
^DD(123.6,"B","FACILITY",.02)=""
^DD(123.6,"B","INCOMPLETE",.06)=""
^DD(123.6,"B","MESSAGE #",.03)=""
^DD(123.6,"B","TRANS. ATTEMPTS",.07)=""
^DD(123.6,"GL",0,1,.01)=""
^DD(123.6,"GL",0,2,.02)=""
^DD(123.6,"GL",0,3,.03)=""
^DD(123.6,"GL",0,4,.04)=""
^DD(123.6,"GL",0,5,.05)=""
^DD(123.6,"GL",0,6,.06)=""
^DD(123.6,"GL",0,7,.07)=""
^DD(123.6,"GL",0,8,.08)=""
^DD(123.6,"IX",.01)=""
^DD(123.6,"IX",.03)=""
^DD(123.6,"IX",.06)=""
^DD(123.6,"RQ",.01)=""
^DD(123.9,0)="FIELD^^999^7"
^DD(123.9,0,"DDA")="N"
^DD(123.9,0,"DT")="2980129"
^DD(123.9,0,"IX","B",123.9,.01)=""
^DD(123.9,0,"NM","CONSULTS PARAMETERS FILE")=""
^DD(123.9,0,"VR")="3.0"
^DD(123.9,0,"VRPK")="GMRC"
^DD(123.9,.01,0)="SITE NAME^RP4'^DIC(4,^0;1^Q"
^DD(123.9,.01,1,0)="^.1"
^DD(123.9,.01,1,1,0)="123.9^B"
^DD(123.9,.01,1,1,1)="S ^GMR(123.9,""B"",$E(X,1,30),DA)="""""
^DD(123.9,.01,1,1,2)="K ^GMR(123.9,""B"",$E(X,1,30),DA)"
^DD(123.9,.01,3)="Enter the name of your site, as it appears in the INSTITUTION File (File #4)."
^DD(123.9,.01,21,0)="^^2^2^2980115^^^^"
^DD(123.9,.01,21,1,0)="This is the name of the Hospital site. It should be the same as that found"
^DD(123.9,.01,21,2,0)="in the INSTITUTION File."
^DD(123.9,.01,"DT")="2970416"
^DD(123.9,1,0)="MULTI-DIVISION/MULTI-SITE^S^0:NO;1:YES;^0;2^Q"
^DD(123.9,1,3)="Type 0 if your site has no multiple divisions/sites, 1 if it does have multiple divisions/sites."
^DD(123.9,1,21,0)="^^4^4^2970911^^^^"
^DD(123.9,1,21,1,0)="This is a parameter for determining if a site has multiple divisions,"
^DD(123.9,1,21,2,0)="multiple  sites, or neither. If there are multiple divisions or"
^DD(123.9,1,21,3,0)="sites, Consults will prompt for the site or division that"
^DD(123.9,1,21,4,0)="the medical service is in."
^DD(123.9,1,"DT")="2970416"
^DD(123.9,2,0)="DIVISION/SITE MEDICAL SERVICE^123.92P^^123;0"
^DD(123.9,2,21,0)="^^8^8^2970822^^^^"
^DD(123.9,2,21,1,0)="In a hospital that supports multiple divisions/sites, this field will allow"
^DD(123.9,2,21,2,0)="all of the hospitals divisions/sites medical services to be entered. It is"
^DD(123.9,2,21,3,0)="recommended that the divisions/sites medical services be prefixed with an"
^DD(123.9,2,21,4,0)="identifier for the division/site, i.e., 'WACO MEDICINE'. If the hospital"
^DD(123.9,2,21,5,0)="has a '1' in the Multi-Division/Site parameter field, then when a site"
^DD(123.9,2,21,6,0)="enters the medicine package interface, the Division/Site Medical service"
^DD(123.9,2,21,7,0)="to use will be asked for, i.e., 'ENTER DIVISION/SITE MEDICAL SERVICE: "
^DD(123.9,2,21,8,0)="WACO MEDICINE' is the prompt/response."
^DD(123.9,3,0)="USE CPRS 513 PRINT TEMPLATES?^S^0:NO;1:YES;^0;3^Q"
^DD(123.9,3,3)="If you plan to use the CPRS Form 513 Print Templates, type 'YES', if not, type 'NO'."
^DD(123.9,3,21,0)="6"
^DD(123.9,3,21,1,0)="If a site used OE/RR 2.5 print templates to print Form 513 in Consult/Request"
^DD(123.9,3,21,2,0)="Tracking V 2.5 wants to continue using these templates in version 3.0, "
^DD(123.9,3,21,3,0)=" entering a 'Y' here will cause Form 513 to use the fields defined in"
^DD(123.9,3,21,4,0)="CPRS print templates. If a site wishes to use the generic Form 513"
^DD(123.9,3,21,5,0)="print routine provided with Consult/Request Tracking V 3.0,"
^DD(123.9,3,21,6,0)="enter a 'N' in this field."
^DD(123.9,3,"DT")="2970416"
^DD(123.9,4,0)="ASK FOR SIGNIFICANT FINDINGS?^S^0:NO;1:YES;^0;4^Q"
^DD(123.9,4,3)="If you wish to FLAG Significant Findings and prompt for a Significant Finding, answer 'Yes'; otherwise, answer 'No'."
^DD(123.9,4,21,0)="^^5^5^2980115^"
^DD(123.9,4,21,1,0)="This field sets a parameter that is checked when TIU results are entered"
^DD(123.9,4,21,2,0)="for a consult request. If this parameter is set to 1 ('YES') then the"
^DD(123.9,4,21,3,0)="person entering the result is asked if the result is a significant"
^DD(123.9,4,21,4,0)="finding. If this parameter is set to 0 ('NO'), then the entering clinician"
^DD(123.9,4,21,5,0)="will see no prompt asking whether this is a significant finding."
^DD(123.9,4,"DT")="2980115"
^DD(123.9,99,0)="GMRCR PROTOCOL^123.99P^^99;0"
^DD(123.9,999,0)="PRE-V3 ACTION IENS FROM 123.1^123.9999^^OLD;0"
^DD(123.9,999,"DT")="2971218"
^DD(123.9,"B","ASK FOR SIGNIFICANT FINDINGS?",4)=""
^DD(123.9,"B","DIVISION/SITE MEDICAL SERVICE",2)=""
^DD(123.9,"B","GMRCR PROTOCOL",99)=""
^DD(123.9,"B","MULTI-DIVISION/MULTI-SITE",1)=""
^DD(123.9,"B","PRE-V3 ACTION IENS FROM 123.1",999)=""
^DD(123.9,"B","SITE NAME",.01)=""
^DD(123.9,"B","USE CPRS 513 PRINT TEMPLATES?",3)=""
^DD(123.9,"GL",0,1,.01)=""
^DD(123.9,"GL",0,2,1)=""
^DD(123.9,"GL",0,3,3)=""
^DD(123.9,"GL",0,4,4)=""
^DD(123.9,"GL",99,0,99)=""
^DD(123.9,"GL",123,0,2)=""
^DD(123.9,"GL","OLD",0,999)=""
^DD(123.9,"IX",.01)=""
^DD(123.9,"RQ",.01)=""
^DD(123.9,"SB",123.92,2)=""
^DD(123.9,"SB",123.99,99)=""
^DD(123.9,"SB",123.9999,999)=""
^DD(123.92,0)="DIVISION/SITE MEDICAL SERVICE SUB-FIELD^^.01^1"
^DD(123.92,0,"DT")="2970416"
^DD(123.92,0,"IX","B",123.92,.01)=""
^DD(123.92,0,"NM","DIVISION/SITE MEDICAL SERVICE")=""
^DD(123.92,0,"UP")="123.9"
^DD(123.92,.01,0)="DIVISION/SITE MEDICAL SERVICE^P123.5^GMR(123.5,^0;1^Q"
^DD(123.92,.01,1,0)="^.1"
^DD(123.92,.01,1,1,0)="123.92^B"
^DD(123.92,.01,1,1,1)="S ^GMR(123.9,DA(1),123,""B"",$E(X,1,30),DA)="""""
^DD(123.92,.01,1,1,2)="K ^GMR(123.9,DA(1),123,""B"",$E(X,1,30),DA)"
^DD(123.92,.01,3)="Type the name of your Site's or Division's Medical Service, as found in the Request Services File, 3-60 Characters."
^DD(123.92,.01,21,0)="^^4^4^2970822^^^^"
^DD(123.92,.01,21,1,0)="This is the name of the Medical Services at the sites or divisions. These"
^DD(123.92,.01,21,2,0)="can be entered as, for example, West Division Medicine, or Bonham"
^DD(123.92,.01,21,3,0)="Medicine, in the case of a multiple division or multiple site,"
^DD(123.92,.01,21,4,0)="respectively."
^DD(123.92,.01,"DT")="2970416"
^DD(123.92,"B","DIVISION/SITE MEDICAL SERVICE",.01)=""
^DD(123.92,"GL",0,1,.01)=""
^DD(123.92,"IX",.01)=""
^DD(123.99,0)="GMRCR PROTOCOL SUB-FIELD^^.02^2"
^DD(123.99,0,"DT")="2980129"
^DD(123.99,0,"IX","B",123.99,.01)=""
^DD(123.99,0,"NM","GMRCR PROTOCOL")=""
^DD(123.99,0,"UP")="123.9"
^DD(123.99,.01,0)="GMRCR PROTOCOL^MP101'X^ORD(101,^0;1^S:$D(X) DINUM=X"
^DD(123.99,.01,1,0)="^.1"
^DD(123.99,.01,1,1,0)="123.99^B"
^DD(123.99,.01,1,1,1)="S ^GMR(123.9,DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(123.99,.01,1,1,2)="K ^GMR(123.9,DA(1),99,""B"",$E(X,1,30),DA)"
^DD(123.99,.01,3)="Enter the GMRCR protocol name"
^DD(123.99,.01,21,0)="^^4^4^2980129^^"
^DD(123.99,.01,21,1,0)="This is a temporary field used to load the existing GMRCR protocols at a"
^DD(123.99,.01,21,2,0)="site before the CPRS Version 1 install.  This was necessary because the"
^DD(123.99,.01,21,3,0)="Consult 3.0 package distributes file link services for specific protocols"
^DD(123.99,.01,21,4,0)="which sites may have changed."
^DD(123.99,.01,"DT")="2980129"
^DD(123.99,.02,0)="FILE LINK PRE-CPRS V1 INSTALL^V^^0;2^Q"
^DD(123.99,.02,3)="Enter the service name to be linked to the procedure."
^DD(123.99,.02,21,0)="^^2^2^2980129^^"
^DD(123.99,.02,21,1,0)="This is the value from the FILE LINK field stored with the GMRCR protocols"
^DD(123.99,.02,21,2,0)="before the install of CPRS V1.0."
^DD(123.99,.02,"DT")="2980129"
^DD(123.99,.02,"V",0)="^.12P^1^1"
^DD(123.99,.02,"V",1,0)="123.5^Enter the service name^1^S^n^n"
^DD(123.99,.02,"V","B",123.5,1)=""
^DD(123.99,.02,"V","M","Enter the service name",1)=""
^DD(123.99,.02,"V","O",1,1)=""
^DD(123.99,.02,"V","P","S",1)=""
^DD(123.99,"B","FILE LINK PRE-CPRS V1 INSTALL",.02)=""
^DD(123.99,"B","GMRCR PROTOCOL",.01)=""
^DD(123.99,"GL",0,1,.01)=""
^DD(123.99,"GL",0,2,.02)=""
^DD(123.99,"IX",.01)=""
^DD(123.9999,0)="PRE-V3 ACTION IENS FROM 123.1 SUB-FIELD^^2^3"
^DD(123.9999,0,"DT")="2971218"
^DD(123.9999,0,"IX","B",123.9999,.01)=""
^DD(123.9999,0,"NM","PRE-V3 ACTION IENS FROM 123.1")=""
^DD(123.9999,0,"UP")="123.9"
^DD(123.9999,.01,0)="PRE-V3 ACTION IENS FROM 123.1^MNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(123.9999,.01,1,0)="^.1"
^DD(123.9999,.01,1,1,0)="123.9999^B"
^DD(123.9999,.01,1,1,1)="S ^GMR(123.9,DA(1),""OLD"",""B"",$E(X,1,30),DA)="""""
^DD(123.9999,.01,1,1,2)="K ^GMR(123.9,DA(1),""OLD"",""B"",$E(X,1,30),DA)"
^DD(123.9999,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(123.9999,.01,21,0)="^^2^2^2971218^^"
^DD(123.9999,.01,21,1,0)="This is a temporary holding place for actions so we can debug problems if"
^DD(123.9999,.01,21,2,0)="needed."
^DD(123.9999,.01,"DT")="2971218"
^DD(123.9999,1,0)="OLD ACTION NAME^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(123.9999,1,3)="Answer must be 1-60 characters in length."
^DD(123.9999,1,"DT")="2971218"
^DD(123.9999,2,0)="OLD RELATED STATUS^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^DD(123.9999,2,3)="Answer must be 1-2 characters in length."
^DD(123.9999,2,"DT")="2971218"
^DD(123.9999,"B","OLD ACTION NAME",1)=""
^DD(123.9999,"B","OLD RELATED STATUS",2)=""
^DD(123.9999,"B","PRE-V3 ACTION IENS FROM 123.1",.01)=""
^DD(123.9999,"GL",0,1,.01)=""
^DD(123.9999,"GL",0,2,1)=""
^DD(123.9999,"GL",0,3,2)=""
^DD(123.9999,"IX",.01)=""
^DD(124.1,0)="FIELD^^2^3"
^DD(124.1,0,"DDA")="N"
^DD(124.1,0,"IX","B",124.1,.01)=""
^DD(124.1,0,"NM","GMRG PARAMETERS")=""
^DD(124.1,0,"VR")="3.0"
^DD(124.1,.01,0)="NAME^RFX^^0;1^K:$L(X)>8!($L(X)<8)!'(X=""HOSPITAL"") X"
^DD(124.1,.01,1,0)="^.1"
^DD(124.1,.01,1,1,0)="124.1^B"
^DD(124.1,.01,1,1,1)="S ^GMRD(124.1,""B"",$E(X,1,30),DA)="""""
^DD(124.1,.01,1,1,2)="K ^GMRD(124.1,""B"",$E(X,1,30),DA)"
^DD(124.1,.01,1,1,"%D",0)="^^1^1^2950927^"
^DD(124.1,.01,1,1,"%D",1,0)="This is a regular cross-reference on the Name field."
^DD(124.1,.01,3)="Answer must be 'HOSPITAL', and there can only be one entry in this file."
^DD(124.1,.01,21,0)="^^2^2^2890530^"
^DD(124.1,.01,21,1,0)="The entry in this field can only be 'HOSPITAL', and there can only be one"
^DD(124.1,.01,21,2,0)="entry in this file."
^DD(124.1,.01,"LAYGO",1,0)="D:Y'=1 EN^DDIOL($C(7)_""THERE CAN ONLY BE ONE ENTRY IN THIS FILE"",,""!?4"") I Y=1"
^DD(124.1,1,0)="PACKAGE PARAMETERS^124.11^^1;0"
^DD(124.1,1,21,0)="^^1^1^2890530^"
^DD(124.1,1,21,1,0)="Package configurable parts of the GMRG package."
^DD(124.1,2,0)="GMR TEXT FILE PURGE TASK^NJ7,0^^PURGE;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(124.1,2,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(124.1,2,21,0)="^^2^2^2960307^"
^DD(124.1,2,21,1,0)="If there is data in this field, it contains the task number of the job"
^DD(124.1,2,21,2,0)="currently running the GMR Text file purge."
^DD(124.1,2,"DT")="2960307"
^DD(124.1,"B","GMR TEXT FILE PURGE TASK",2)=""
^DD(124.1,"B","NAME",.01)=""
^DD(124.1,"B","PACKAGE PARAMETERS",1)=""
^DD(124.1,"GL",0,1,.01)=""
^DD(124.1,"GL",1,0,1)=""
^DD(124.1,"GL","PURGE",1,2)=""
^DD(124.1,"IX",.01)=""
^DD(124.1,"RQ",.01)=""
^DD(124.1,"SB",124.11,1)=""
^DD(124.11,0)="PACKAGE PARAMETERS SUB-FIELD^^2^3"
^DD(124.11,0,"IX","B",124.11,.01)=""
^DD(124.11,0,"NM","PACKAGE PARAMETERS")=""
^DD(124.11,0,"UP")="124.1"
^DD(124.11,.01,0)="PACKAGE PARAMETERS^MF^^0;1^K:$L(X)>5!($L(X)<2)!'(X'?1P.E) X"
^DD(124.11,.01,1,0)="^.1"
^DD(124.11,.01,1,1,0)="124.11^B"
^DD(124.11,.01,1,1,1)="S ^GMRD(124.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(124.11,.01,1,1,2)="K ^GMRD(124.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(124.11,.01,1,1,"%D",0)="^^2^2^2950927^"
^DD(124.11,.01,1,1,"%D",1,0)="This is a regular cross-reference on the Package Parameters sub-field of"
^DD(124.11,.01,1,1,"%D",2,0)="the Package Parameters field."
^DD(124.11,.01,3)="Answer must be 2-5 characters in length."
^DD(124.11,.01,21,0)="^^3^3^2890530^^"
^DD(124.11,.01,21,1,0)="The name of the package that is using the GMRG package.  This should"
^DD(124.11,.01,21,2,0)="coincide with the package of one of the Prime Documents in the Aggregate"
^DD(124.11,.01,21,3,0)="Term (#124.2) file."
^DD(124.11,1,0)="PRINT ROUTINE^FX^^P;E1,245^K:$L(X)>25!(X'?.1ANP.7AN.1""^""1ANP.7AN) X"
^DD(124.11,1,3)="Answer must be [TAG^]ROUTINE to run."
^DD(124.11,1,9)="@"
^DD(124.11,1,21,0)="^^7^7^2950927^^^^"
^DD(124.11,1,21,1,0)="If this field is filled in, the routine named is executed when ^P is"
^DD(124.11,1,21,2,0)="typed in during a Patient Data Enter/Edit."
^DD(124.11,1,21,3,0)=" "
^DD(124.11,1,21,4,0)="VARIABLES PASSED TO ROUTINE:"
^DD(124.11,1,21,5,0)="     DFN = Patient working on"
^DD(124.11,1,21,6,0)="     GMRGRT = IEN of Prime Document^Text of Prime Document"
^DD(124.11,1,21,7,0)="     GMRGPDA = IEN of GMR TEXT (#124.3) file entry working on"
^DD(124.11,1,22)=""
^DD(124.11,2,0)="HIGHLIGHTING OFF^S^1:OFF;0:ON;^0;2^Q"
^DD(124.11,2,21,0)="^^2^2^2891025^"
^DD(124.11,2,21,1,0)="This allows an application to turn off the highlighting menu feature in"
^DD(124.11,2,21,2,0)="the patient edit module."
^DD(124.11,2,"DT")="2891025"
^DD(124.11,"B","HIGHLIGHTING OFF",2)=""
^DD(124.11,"B","PACKAGE PARAMETERS",.01)=""
^DD(124.11,"B","PRINT ROUTINE",1)=""
^DD(124.11,"GL",0,1,.01)=""
^DD(124.11,"GL",0,2,2)=""
^DD(124.11,"GL","P","E1,245",1)=""
^DD(124.11,"IX",.01)=""
^DD(124.2,0)="FIELD^^10^18"
^DD(124.2,0,"DDA")="N"
^DD(124.2,0,"DT")="2940719"
^DD(124.2,0,"ID",.02)="W """""
^DD(124.2,0,"ID",.03)="W """""
^DD(124.2,0,"ID",.05)="W """""
^DD(124.2,0,"ID","WRITE")="D EN1^GMRGUT3"
^DD(124.2,0,"IX","AA",124.2,.01)=""
^DD(124.2,0,"IX","AA02",124.2,.02)=""
^DD(124.2,0,"IX","AA03",124.2,.03)=""
^DD(124.2,0,"IX","AA05",124.2,.05)=""
^DD(124.2,0,"IX","AKID",124.21,.01)=""
^DD(124.2,0,"IX","ANDUP",124.2,.05)=""
^DD(124.2,0,"IX","APKUP",124.2,.03)=""
^DD(124.2,0,"IX","ATD",124.2,.04)=""
^DD(124.2,0,"IX","ATD1",124.2,.03)=""
^DD(124.2,0,"IX","ATXTUP",124.2,.01)=""
^DD(124.2,0,"IX","ATY",124.2,.02)=""
^DD(124.2,0,"IX","ATYUP",124.2,.02)=""
^DD(124.2,0,"IX","B",124.2,.01)=""
^DD(124.2,0,"IX","C",124.2,.01)=""
^DD(124.2,0,"IX","CL",124.2,.04)=""
^DD(124.2,0,"IX","PK",124.2,.03)=""
^DD(124.2,0,"NM","AGGREGATE TERM")=""
^DD(124.2,0,"PT",124.21,.01)=""
^DD(124.2,0,"PT",124.3,.01)=""
^DD(124.2,0,"PT",124.31,.01)=""
^DD(124.2,0,"PT",216.81,.01)=""
^DD(124.2,0,"PT",216.82,.02)=""
^DD(124.2,0,"PT",216.83,.03)=""
^DD(124.2,0,"PT",216.84,.02)=""
^DD(124.2,0,"VR")="3.0"
^DD(124.2,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E!(X?1""["".E)!(X?1""<"".E)) X"
^DD(124.2,.01,1,0)="^.1"
^DD(124.2,.01,1,1,0)="124.2^B"
^DD(124.2,.01,1,1,1)="S ^GMRD(124.2,""B"",$E(X,1,30),DA)="""""
^DD(124.2,.01,1,1,2)="K ^GMRD(124.2,""B"",$E(X,1,30),DA)"
^DD(124.2,.01,1,1,"%D",0)="^^1^1^2950927^"
^DD(124.2,.01,1,1,"%D",1,0)="This is a regular cross-reference on the Name field."
^DD(124.2,.01,1,2,0)="124.2^AA^MUMPS"
^DD(124.2,.01,1,2,1)="D EN3^GMRGUT1"
^DD(124.2,.01,1,2,2)="S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""""),GMRG(2)=$P(GMRG,""^"",2),GMRG(3)=$P(GMRG,""^"",3),GMRG(5)=$P(GMRG,""^"",5) K:GMRG(2)'=""""&(GMRG(3)'="""")&(GMRG(5)'="""") ^GMRD(124.2,""AA"",GMRG(3),GMRG(2),X,GMRG(5),DA) K GMRG"
^DD(124.2,.01,1,2,"%D",0)="^^5^5^2950927^^"
^DD(124.2,.01,1,2,"%D",1,0)="This cross-reference triggers data into the Node Identification field if"
^DD(124.2,.01,1,2,"%D",2,0)="its null, and sets a multiple cross-reference (""AA"") over four fields."
^DD(124.2,.01,1,2,"%D",3,0)="The fields used are the Name (.01), Type of Term (.02), Package (.03)"
^DD(124.2,.01,1,2,"%D",4,0)="and Node Identification (.05).  The structure of the cross-reference is:"
^DD(124.2,.01,1,2,"%D",5,0)="^GMRD(124.2,""AA"",Package,Type_of_Term,Name,Node_Identification,DA)=""""."
^DD(124.2,.01,1,3,0)="124.2^ATXTUP^MUMPS"
^DD(124.2,.01,1,3,1)="S GMRGX(""D"")=1,GMRGX(""F"")=1 D EN6^GMRGUT2"
^DD(124.2,.01,1,3,2)="S GMRGX(""D"")=0,GMRGX(""F"")=1 D EN6^GMRGUT2"
^DD(124.2,.01,1,3,"%D",0)="^^3^3^2950927^^"
^DD(124.2,.01,1,3,"%D",1,0)="This field triggers in the new value of the Name field into the Child"
^DD(124.2,.01,1,3,"%D",2,0)="Text sub-field of the Children multiple for all entries that point to"
^DD(124.2,.01,1,3,"%D",3,0)="this entry."
^DD(124.2,.01,1,4,0)="124.2^C^MUMPS"
^DD(124.2,.01,1,4,1)="D EN4^GMRGUT3"
^DD(124.2,.01,1,4,2)="D EN5^GMRGUT3"
^DD(124.2,.01,1,4,"%D",0)="^^3^3^2950927^"
^DD(124.2,.01,1,4,"%D",1,0)="This cross-reference has the format of a regular cross-reference, but the"
^DD(124.2,.01,1,4,"%D",2,0)="value used for the lookup is the uppercase version of the Name field."
^DD(124.2,.01,1,4,"%D",3,0)="^GMRD(124.2,""C"",Uppercase_Name,DA)="""" is the structure."
^DD(124.2,.01,3)="Answer must be 3-60 characters in length."
^DD(124.2,.01,21,0)="^^1^1^2900814^^^^"
^DD(124.2,.01,21,1,0)="Text that composes the Aggregate Term"
^DD(124.2,.01,"DT")="2901206"
^DD(124.2,.02,0)="TYPE OF TERM^R*S^2:FRAME;3:TERM;^0;2^Q"
^DD(124.2,.02,1,0)="^.1"
^DD(124.2,.02,1,1,0)="124.2^ATY"
^DD(124.2,.02,1,1,1)="S ^GMRD(124.2,""ATY"",$E(X,1,30),DA)="""""
^DD(124.2,.02,1,1,2)="K ^GMRD(124.2,""ATY"",$E(X,1,30),DA)"
^DD(124.2,.02,1,1,"%D",0)="^^1^1^2950927^"
^DD(124.2,.02,1,1,"%D",1,0)="This is a regular cross-reference on the Type of Term field."
^DD(124.2,.02,1,2,0)="124.2^AA02^MUMPS"
^DD(124.2,.02,1,2,1)="D EN3^GMRGUT1"
^DD(124.2,.02,1,2,2)="S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""""),GMRG(1)=$P(GMRG,""^""),GMRG(3)=$P(GMRG,""^"",3),GMRG(5)=$P(GMRG,""^"",5) K:GMRG(1)'=""""&(GMRG(3)'="""")&(GMRG(5)'="""") ^GMRD(124.2,""AA"",GMRG(3),X,GMRG(1),GMRG(5),DA) K GMRG"
^DD(124.2,.02,1,2,"%D",0)="^^5^5^2950927^"
^DD(124.2,.02,1,2,"%D",1,0)="This cross-reference triggers data into the Node Identification field if"
^DD(124.2,.02,1,2,"%D",2,0)="its null, and sets a multiple cross-reference (""AA"") over four fields."
^DD(124.2,.02,1,2,"%D",3,0)="The fields used are the Name (.01), Type of Term (.02), Package (.03)  "
^DD(124.2,.02,1,2,"%D",4,0)="and Node Identification (.05).  The structure of the cross-reference is:"
^DD(124.2,.02,1,2,"%D",5,0)="^GMRD(124.2,""AA"",Package,Type_of_Term,Name,Node_Identification,DA)=""""."
^DD(124.2,.02,1,3,0)="124.2^ATYUP^MUMPS"
^DD(124.2,.02,1,3,1)="S GMRGX(""D"")=1,GMRGX(""F"")=2 D EN6^GMRGUT2"
^DD(124.2,.02,1,3,2)="S GMRGX(""D"")=0,GMRGX(""F"")=2 D EN6^GMRGUT2"
^DD(124.2,.02,1,3,"%D",0)="^^3^3^2950927^^"
^DD(124.2,.02,1,3,"%D",1,0)="This cross-reference triggers the value of the Type of Term field into"
^DD(124.2,.02,1,3,"%D",2,0)="the Child Type sub-field of the Children multiple for all entries that"
^DD(124.2,.02,1,3,"%D",3,0)="point to this entry."
^DD(124.2,.02,3)=""
^DD(124.2,.02,12)="You cannot make a term out of an Aggregate term with children."
^DD(124.2,.02,12.1)="S DIC(""S"")=""D EN4^GMRGUT1"""
^DD(124.2,.02,21,0)="^^1^1^2890204^^^"
^DD(124.2,.02,21,1,0)="Set of codes that identifies the basic types of text."
^DD(124.2,.02,"DT")="2890517"
^DD(124.2,.03,0)="PACKAGE^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X"
^DD(124.2,.03,1,0)="^.1"
^DD(124.2,.03,1,1,0)="124.2^PK"
^DD(124.2,.03,1,1,1)="S ^GMRD(124.2,""PK"",$E(X,1,30),DA)="""""
^DD(124.2,.03,1,1,2)="K ^GMRD(124.2,""PK"",$E(X,1,30),DA)"
^DD(124.2,.03,1,1,"%D",0)="^^1^1^2950927^"
^DD(124.2,.03,1,1,"%D",1,0)="This is a regular cross-refence on the Package field."
^DD(124.2,.03,1,2,0)="124.2^AA03^MUMPS"
^DD(124.2,.03,1,2,1)="D EN3^GMRGUT1"
^DD(124.2,.03,1,2,2)="S GMRG=$S($D(^GMRD(124.2,DA,0)):^(0),1:""""),GMRG(1)=$P(GMRG,""^""),GMRG(2)=$P(GMRG,""^"",2),GMRG(5)=$P(GMRG,""^"",5) K:GMRG(1)'=""""&(GMRG(2)'="""")&(GMRG(5)'="""") ^GMRD(124.2,""AA"",X,GMRG(2),GMRG(1),GMRG(5),DA) K GMRG"
^DD(124.2,.03,1,2,"%D",0)="^^5^5^2950927^"
^DD(124.2,.03,1,2,"%D",1,0)="This cross-reference triggers data into the Node Identification field if"
^DD(124.2,.03,1,2,"%D",2,0)="its null, and sets a multiple cross-reference (""AA"") over four fields."
^DD(124.2,.03,1,2,"%D",3,0)="The fields used are the Name (.01), Type of Term (.02), Package (.03)  "
^DD(124.2,.03,1,2,"%D",4,0)="and Node Identification (.05).  The structure of the cross-reference is:"
^DD(124.2,.03,1,2,"%D",5,0)="^GMRD(124.2,""AA"",Package,Type_of_Term,Name,Node_Identification,DA)=""""."
^DD(124.2,.03,1,3,0)="124.2^APKUP^MUMPS"
^DD(124.2,.03,1,3,1)="S GMRGX(""D"")=1,GMRGX(""F"")=3 D EN6^GMRGUT2"
^DD(124.2,.03,1,3,2)="S GMRGX(""D"")=0,GMRGX(""F"")=3 D EN6^GMRGUT2"
^DD(124.2,.03,1,3,"%D",0)="^^3^3^2950927^"
^DD(124.2,.03,1,3,"%D",1,0)="This cross-reference triggers the value of the Package field into the"
^DD(124.2,.03,1,3,"%D",2,0)="Child Package sub-field of the Children multiple for all entries that"
^DD(124.2,.03,1,3,"%D",3,0)="point to this entry."
^DD(124.2,.03,1,4,0)="124.2^ATD1^MUMPS"
^DD(124.2,.03,1,4,1)="S GMRG=.03 D EN1^GMRGUT2"
^DD(124.2,.03,1,4,2)="S GMRG=.03 D EN2^GMRGUT2"
^DD(124.2,.03,1,4,"%D",0)="^^13^13^2950929^"
^DD(124.2,.03,1,4,"%D",1,0)="This cross-reference sets a multiple index (""ATD"") on the Package (.03)"
^DD(124.2,.03,1,4,"%D",2,0)="and Classification (.04) fields and Begin Text (1) field of the Term"
^DD(124.2,.03,1,4,"%D",3,0)="Classification file for the entry pointed to by the Classification (.04)"
^DD(124.2,.03,1,4,"%D",4,0)="field.  The value of the Begin Text field will determine if this index"
^DD(124.2,.03,1,4,"%D",5,0)="will be set.  If the Begin Text field is null, the index is not set, if it"
^DD(124.2,.03,1,4,"%D",6,0)="is 'YES' it is set.   The format of the ""ATD"" cross-reference is:"
^DD(124.2,.03,1,4,"%D",7,0)="^GMRD(124.2,""ATD"",Package,Classification,DA)="""". "
^DD(124.2,.03,1,4,"%D",8,0)=" "
^DD(124.2,.03,1,4,"%D",9,0)="This cross-reference also triggers the values into the Action on Entering"
^DD(124.2,.03,1,4,"%D",10,0)="Selection (7), Action on Filing Selection (8), Action on Leaving Selection"
^DD(124.2,.03,1,4,"%D",11,0)="(9) and Action on Printing Selection (10) from the corresponding fields in"
^DD(124.2,.03,1,4,"%D",12,0)="the Term Classification file for the entry which is pointed to by the"
^DD(124.2,.03,1,4,"%D",13,0)="Classification field."
^DD(124.2,.03,3)="Please enter Package Name (2-5 chars.)"
^DD(124.2,.03,21,0)="^^6^6^2950927^^^^"
^DD(124.2,.03,21,1,0)="The DHCP package associated with this aggregate term."
^DD(124.2,.03,21,2,0)=" "
^DD(124.2,.03,21,3,0)="If an application wants to allow site configuration of its care plans,"
^DD(124.2,.03,21,4,0)="the changes made by the site should be given 'ZZ' as a package.  In"
^DD(124.2,.03,21,5,0)="other words calls made to the Generic Input Utility routine (GMRGTGIF)"
^DD(124.2,.03,21,6,0)="for site configuration options should set the variable GMRGPK=""ZZ""."
^DD(124.2,.03,21,7,0)="set the variable GMRGPK=""ZZ""."
^DD(124.2,.03,22)=""
^DD(124.2,.03,"DT")="2900719"
^DD(124.2,.04,0)="CLASSIFICATION^P124.25'^GMRD(124.25,^0;4^Q"
^DD(124.2,.04,1,0)="^.1"
^DD(124.2,.04,1,1,0)="124.2^CL"
^DD(124.2,.04,1,1,1)="S ^GMRD(124.2,""CL"",$E(X,1,30),DA)="""""
^DD(124.2,.04,1,1,2)="K ^GMRD(124.2,""CL"",$E(X,1,30),DA)"
^DD(124.2,.04,1,1,"%D",0)="^^1^1^2950927^"
^DD(124.2,.04,1,1,"%D",1,0)="This is a regular cross-reference on the Classification field."
^DD(124.2,.04,1,2,0)="124.2^ATD^MUMPS"
^DD(124.2,.04,1,2,1)="S GMRG=.04 D EN1^GMRGUT2"
^DD(124.2,.04,1,2,2)="S GMRG=.04 D EN2^GMRGUT2"
^DD(124.2,.04,1,2,"%D",0)="^^13^13^2950929^^"
^DD(124.2,.04,1,2,"%D",1,0)="This cross-reference sets a multiple index (""ATD"") on the Package (.03)"
^DD(124.2,.04,1,2,"%D",2,0)="and Classification (.04) fields and Begin Text (1) field of the Term"
^DD(124.2,.04,1,2,"%D",3,0)="Classification file for the entry pointed to by the Classification (.04)"
^DD(124.2,.04,1,2,"%D",4,0)="field.  The value of the Begin Text field will determine if this index"
^DD(124.2,.04,1,2,"%D",5,0)="will be set.  If the Begin Text field is null, the index is not set, if it"
^DD(124.2,.04,1,2,"%D",6,0)="is 'YES' it is set.   The format of the ""ATD"" cross-reference is:"
^DD(124.2,.04,1,2,"%D",7,0)="^GMRD(124.2,""ATD"",Package,Classification,DA)="""". "
^DD(124.2,.04,1,2,"%D",8,0)=" "
^DD(124.2,.04,1,2,"%D",9,0)="This cross-reference also triggers the values into the Action on Entering"
^DD(124.2,.04,1,2,"%D",10,0)="Selection (7), Action on Filing Selection (8), Action on Leaving Selection"
^DD(124.2,.04,1,2,"%D",11,0)="(9) and Action on Printing Selection (10) from the corresponding fields in"
^DD(124.2,.04,1,2,"%D",12,0)="the Term Classification file for the entry which is pointed to by the"
^DD(124.2,.04,1,2,"%D",13,0)="Classification field."
^DD(124.2,.04,3)="Please enter Classification of aggregate term."
^DD(124.2,.04,21,0)="^^1^1^2891004^^^^"
^DD(124.2,.04,21,1,0)="Special classification that further identifies an aggregate term."
^DD(124.2,.04,22)=""
^DD(124.2,.04,"DT")="2940719"
^DD(124.2,.05,0)="NODE IDENTIFICATION^RNJ5,0I^^0;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(124.2,.05,1,0)="^.1"
^DD(124.2,.05,1,1,0)="124.2^ANDUP^MUMPS"
^DD(124.2,.05,1,1,1)="S GMRGX(""D"")=1,GMRGX(""F"")=4 D EN6^GMRGUT2"
^DD(124.2,.05,1,1,2)="S GMRGX(""D"")=0,GMRGX(""F"")=4 D EN6^GMRGUT2"
^DD(124.2,.05,1,1,"%D",0)="^^3^3^2950927^"
^DD(124.2,.05,1,1,"%D",1,0)="This cross-reference triggers the value of the Node Identification field"
^DD(124.2,.05,1,1,"%D",2,0)="into the Child Node ID sub-field of the Children multiple for all entries"
^DD(124.2,.05,1,1,"%D",3,0)="that point to this entry."
^DD(124.2,.05,1,2,0)="124.2^AA05^MUMPS"
^DD(124.2,.05,1,2,1)="S GMRGX=$S($D(^GMRD(124.2,DA,0)):^(0),1:""""),GMRGX(1)=$P(GMRGX,""^""),GMRGX(2)=$P(GMRGX,""^"",2),GMRGX(3)=$P(GMRGX,""^"",3) S:GMRGX(1)'=""""&(GMRGX(2)'="""")&(GMRGX(3)'="""") ^GMRD(124.2,""AA"",GMRGX(3),GMRGX(2),GMRGX(1),X,DA)="""" K GMRGX"
^DD(124.2,.05,1,2,2)="S GMRGX=$S($D(^GMRD(124.2,DA,0)):^(0),1:""""),GMRGX(1)=$P(GMRGX,""^""),GMRGX(2)=$P(GMRGX,""^"",2),GMRGX(3)=$P(GMRGX,""^"",3) K:GMRGX(1)'=""""&(GMRGX(2)'="""")&(GMRGX(3)'="""") ^GMRD(124.2,""AA"",GMRGX(3),GMRGX(2),GMRGX(1),X,DA) K GMRGX"
^DD(124.2,.05,1,2,"%D",0)="^^4^4^2950927^"
^DD(124.2,.05,1,2,"%D",1,0)="This cross-reference sets a multiple cross-reference (""AA"") over four"
^DD(124.2,.05,1,2,"%D",2,0)="fields.  The fields used are the Name (.01), Type of Term (.02), Package"
^DD(124.2,.05,1,2,"%D",3,0)="(.03) and Node Identification (.05).  The structure of the cross-reference"
^DD(124.2,.05,1,2,"%D",4,0)="is:  ^GMRD(124.2,""AA"",Package,Type_of_Term,Name,Node_Identification,DA)=""""."
^DD(124.2,.05,3)="Please enter this Aggregate Term's ""NODE"" (a whole number between 1 and 99999)."
^DD(124.2,.05,8.5)="^"
^DD(124.2,.05,9)="^"
^DD(124.2,.05,21,0)="^^3^3^2900814^^^^"
^DD(124.2,.05,21,1,0)="Identification which separates this Aggregate Term NODE from another"
^DD(124.2,.05,21,2,0)="Aggregate Term NODE that has the same NAME(.01), but different logical"
^DD(124.2,.05,21,3,0)="parent NODE."
^DD(124.2,.05,"DT")="2890517"
^DD(124.2,.1,0)="TERM DEFINITION^124.22^^TD;0"
^DD(124.2,.1,21,0)="^^6^6^2950927^^^^"
^DD(124.2,.1,21,1,0)="If further clarification of this term is needed, it may be added here."
^DD(124.2,.1,21,2,0)="The definition of the term displays when a user types '???' while"
^DD(124.2,.1,21,3,0)="selecting terms through the Patient Data Enter/Edit module."
^DD(124.2,.1,21,4,0)="added here, and when selecting terms in the patient edit, if the user"
^DD(124.2,.1,21,5,0)="types in '???' then this definition will appear in conjunction with this"
^DD(124.2,.1,21,6,0)="term."
^DD(124.2,1,0)="CHILDREN^124.21IP^^1;0"
^DD(124.2,1,21,0)="^^1^1^2900814^^^^"
^DD(124.2,1,21,1,0)="Children are aggregate terms that are under this frame/document."
^DD(124.2,2,0)="MIN^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(124.2,2,3)="Enter The minimum number of selections allowed under this frame/document. (0-99)"
^DD(124.2,2,21,0)="^^2^2^2950928^^^^"
^DD(124.2,2,21,1,0)="The minimum number of selections allowed under this frame/document."
^DD(124.2,2,21,2,0)="Null entry means zero."
^DD(124.2,2,"DT")="2881008"
^DD(124.2,3,0)="MAX^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(124.2,3,3)="Enter the maximum number of selections allowed under this frame/document. (0-99)"
^DD(124.2,3,21,0)="^^2^2^2900814^^^^"
^DD(124.2,3,21,1,0)="The maximum number of selections allowed under this frame/document.  A"
^DD(124.2,3,21,2,0)="null entry means there is no maximum."
^DD(124.2,3,"DT")="2881008"
^DD(124.2,3.5,0)="SUPRESS MIN/MAX MESSAGE^S^0:NO SUPRESSION;1:SUPRESS MIN MESSAGE;2:SUPRESS MAX MESSAGE;3:SUPRESS BOTH MESSAGES;^0;12^Q"
^DD(124.2,3.5,21,0)="^^2^2^2910325^"
^DD(124.2,3.5,21,1,0)="This field determines whether the MIN and MAX messages should be supressed"
^DD(124.2,3.5,21,2,0)="for this frame."
^DD(124.2,3.5,"DT")="2910325"
^DD(124.2,4,0)="LEAD TEXT^F^^4;1^K:$L(X)>200!($L(X)<1) X"
^DD(124.2,4,3)="Enter a Header Text that would precede this frame/document.(1-200 chars.)"
^DD(124.2,4,21,0)="^^1^1^2950928^^^^"
^DD(124.2,4,21,1,0)="Text that precedes the text of this frame/document in displays."
^DD(124.2,4,"DT")="2881008"
^DD(124.2,5,0)="TRAIL TEXT^F^^5;1^K:$L(X)>200!($L(X)<1) X"
^DD(124.2,5,3)="Enter a Trailing Text that would follow this frame/document. (1-200 chars.)"
^DD(124.2,5,21,0)="^^1^1^2950928^^^^"
^DD(124.2,5,21,1,0)="Text that follows the text of this frame/document in displays."
^DD(124.2,5,"DT")="2881008"
^DD(124.2,6,0)="FORMAT OF OUTPUT^S^S:SENTENCE;T:TABULAR;B:BRIEF TABULAR;^0;8^Q"
^DD(124.2,6,21,0)="^^4^4^2950928^^^"
^DD(124.2,6,21,1,0)="This is the format of the frame/document display.  Tabular, and brief"
^DD(124.2,6,21,2,0)="tabular displays in an outline format; tabular uses lead and trail texts,"
^DD(124.2,6,21,3,0)="and brief tabular does not.  Sentence creates paragraphs using lead and"
^DD(124.2,6,21,4,0)="trail texts, and ends sentences with periods."
^DD(124.2,6,"DT")="2881008"
^DD(124.2,6.5,0)="ASK ADDITIONAL TEXT^*S^0:NO;1:YES;^0;9^Q"
^DD(124.2,6.5,12)="Cannot have an entry for a term with classification of Prime Document."
^DD(124.2,6.5,12.1)="S DIC(""S"")=""I $P(^GMRD(124.2,DA,0),U,4)'=$O(^GMRD(124.25,""""B"""",""""PRIME DOCUMENT"""",0))"""
^DD(124.2,6.5,21,0)="^^2^2^2950928^^^"
^DD(124.2,6.5,21,1,0)="A flag determining whether Additional Text can be entered for an"
^DD(124.2,6.5,21,2,0)="aggregate term or not."
^DD(124.2,6.5,"DT")="2890303"
^DD(124.2,7,0)="ACTION ON ENTERING SELECTION^FX^^7;E1,245^D ^DIM"
^DD(124.2,7,.1)=""
^DD(124.2,7,3)="ANSWER MUST BE VALID MUMPS CODE, 1-245 CHARACTERS IN LENGTH"
^DD(124.2,7,9)="@"
^DD(124.2,7,21,0)="^^16^16^2950928^^^^"
^DD(124.2,7,21,1,0)="This is valid MUMPS code that is executed upon entering the screen of "
^DD(124.2,7,21,2,0)="an Aggregate Term in the General Medical Record Generator patient edit."
^DD(124.2,7,21,3,0)=" "
^DD(124.2,7,21,4,0)="    The variables that the programmer can rely on being set and the"
^DD(124.2,7,21,5,0)="    programmer should not kill are:"
^DD(124.2,7,21,6,0)="       DFN and arrays from DEM^VADPT and INP^VADPT"
^DD(124.2,7,21,7,0)=" "
^DD(124.2,7,21,8,0)="       GMRGRT=Prime document data for this term in the following format:"
^DD(124.2,7,21,9,0)="              AGGY IEN^Term text"
^DD(124.2,7,21,10,0)=" "
^DD(124.2,7,21,11,0)="       GMRGPDA=ENTRY IN GMR TEXT (124.3) FILE"
^DD(124.2,7,21,12,0)=" "
^DD(124.2,7,21,13,0)="       GMRGTERM=Data on term being processed in the following format:"
^DD(124.2,7,21,14,0)="                124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists."
^DD(124.2,7,21,15,0)=" "
^DD(124.2,7,21,16,0)="       GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0)"
^DD(124.2,7,"DT")="2881006"
^DD(124.2,8,0)="ACTION ON FILING^FX^^8;E1,245^D ^DIM"
^DD(124.2,8,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(124.2,8,9)="@"
^DD(124.2,8,21,0)="^^18^18^2900814^^^^"
^DD(124.2,8,21,1,0)="This is valid MUMPS code that will be executed upon the filing of an"
^DD(124.2,8,21,2,0)="Aggregate Term in the General Medical Record Treatment Planner."
^DD(124.2,8,21,3,0)=" "
^DD(124.2,8,21,4,0)="    The variables that the programmer can rely on being set and the"
^DD(124.2,8,21,5,0)="    programmer should not kill are:"
^DD(124.2,8,21,6,0)="       DFN and arrays from DEM^VADPT and INP^VADPT"
^DD(124.2,8,21,7,0)=" "
^DD(124.2,8,21,8,0)="       GMRGRT=Prime document data for this term in the following format:"
^DD(124.2,8,21,9,0)="              AGGY IEN^Term text"
^DD(124.2,8,21,10,0)=" "
^DD(124.2,8,21,11,0)="       GMRGPDA = ENTRY IN GMR TEXT (124.3) FILE"
^DD(124.2,8,21,12,0)=" "
^DD(124.2,8,21,13,0)="       GMRGTERM=Data on term being filed in the following format:"
^DD(124.2,8,21,14,0)="                124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists."
^DD(124.2,8,21,15,0)=" "
^DD(124.2,8,21,16,0)="       GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0)"
^DD(124.2,8,21,17,0)=" "
^DD(124.2,8,21,18,0)="       GMRGART=$S(0:if term is being deleted,1:if term is being added)"
^DD(124.2,8,22)=""
^DD(124.2,8,"DT")="2881008"
^DD(124.2,9,0)="ACTION ON LEAVING SELECTION^FX^^9;E1,245^D ^DIM"
^DD(124.2,9,3)="ANSWER MUST BE VALID MUMPS CODE, 1-245 CHARACTERS IN LENGTH"
^DD(124.2,9,9)="@"
^DD(124.2,9,21,0)="^^18^18^2890602^^^"
^DD(124.2,9,21,1,0)="This is valid MUMPS code that will be executed upon the leaving of this"
^DD(124.2,9,21,2,0)="aggregate term screen from the General Medical Record Generator patient"
^DD(124.2,9,21,3,0)="edit."
^DD(124.2,9,21,4,0)=" "
^DD(124.2,9,21,5,0)="   The variables that the programmer can rely on being set, and that the"
^DD(124.2,9,21,6,0)="   programmer should not kill are:"
^DD(124.2,9,21,7,0)=" "
^DD(124.2,9,21,8,0)="      DFN and arrays from DEM^VADPT and INP^VADPT"
^DD(124.2,9,21,9,0)=" "
^DD(124.2,9,21,10,0)="      GMRGRT=Prime document data for this term in the following format:"
^DD(124.2,9,21,11,0)="             AGGY IEN^Term text"
^DD(124.2,9,21,12,0)=" "
^DD(124.2,9,21,13,0)="      GMRGPDA= ENTRY IN GMR TEXT (124.3) FILE"
^DD(124.2,9,21,14,0)=" "
^DD(124.2,9,21,15,0)="      GMRGTERM=Data on term being processed in the following format:"
^DD(124.2,9,21,16,0)="               124.2 FILE IEN^Term text^IEN in 124.31 multiple if exist."
^DD(124.2,9,21,17,0)=" "
^DD(124.2,9,21,18,0)="      GMRGTERM(0)=^GMRD(124.2,+GMRGTERM,0)"
^DD(124.2,9,"DT")="2890301"
^DD(124.2,10,0)="ACTION ON PRINTING SELECTION^FX^^10;E1,245^D ^DIM"
^DD(124.2,10,3)="Answer must be 1-245 characters in length."
^DD(124.2,10,9)="@"
^DD(124.2,10,21,0)="^^23^23^2950928^^^^"
^DD(124.2,10,21,1,0)="An action that occurs when an aggregate term is printed as a selection"
^DD(124.2,10,21,2,0)="on the screen."
^DD(124.2,10,21,3,0)=" "
^DD(124.2,10,21,4,0)="   The variables that the programmer can rely on being set, and that the"
^DD(124.2,10,21,5,0)="   programmer should not kill are:"
^DD(124.2,10,21,6,0)="      DFN and arrays from DEM^VADPT and INP^VADPT"
^DD(124.2,10,21,7,0)=" "
^DD(124.2,10,21,8,0)="      GMRGRT=Prime document data for this term in the following format:"
^DD(124.2,10,21,9,0)="             AGGY IEN^Term text"
^DD(124.2,10,21,10,0)=" "
^DD(124.2,10,21,11,0)="      GMRGPDA= ENTRY IN GMR TEXT (124.3) FILE"
^DD(124.2,10,21,12,0)=" "
^DD(124.2,10,21,13,0)="      GMRGTERM=Term data whose selections are being printed as follows:"
^DD(124.2,10,21,14,0)="               124.2 FILE IEN^Term text^IEN in 124.31 multiple if exists"
^DD(124.2,10,21,15,0)=" "
^DD(124.2,10,21,16,0)="      GMRGTERM(0)=^GMRD(124.2,GMRGTERM,0)"
^DD(124.2,10,21,17,0)=" "
^DD(124.2,10,21,18,0)="      GMRGSEL=Selection being printed for term in GMRGTERM"
^DD(124.2,10,21,19,0)="              124.2 FILE IEN^Term text^$S(1:data is active for term"
^DD(124.2,10,21,20,0)="                                          ,0:data is not active for term)"
^DD(124.2,10,21,21,0)=" "
^DD(124.2,10,21,22,0)="If there is other information that needs to be printed with a selection"
^DD(124.2,10,21,23,0)="for a particular package, this is a way to get this information to print."
^DD(124.2,10,"DT")="2890314"
^DD(124.2,"B","ACTION ON ENTERING SELECTION",7)=""
^DD(124.2,"B","ACTION ON FILING",8)=""
^DD(124.2,"B","ACTION ON LEAVING SELECTION",9)=""
^DD(124.2,"B","ACTION ON PRINTING SELECTION",10)=""
^DD(124.2,"B","ASK ADDITIONAL TEXT",6.5)=""
^DD(124.2,"B","CHILDREN",1)=""
^DD(124.2,"B","CLASSIFICATION",.04)=""
^DD(124.2,"B","FORMAT OF OUTPUT",6)=""
^DD(124.2,"B","LEAD TEXT",4)=""
^DD(124.2,"B","MAX",3)=""
^DD(124.2,"B","MIN",2)=""
^DD(124.2,"B","NAME",.01)=""
^DD(124.2,"B","NODE IDENTIFICATION",.05)=""
^DD(124.2,"B","PACKAGE",.03)=""
^DD(124.2,"B","SUPRESS MIN/MAX MESSAGE",3.5)=""
^DD(124.2,"B","TERM DEFINITION",.1)=""
^DD(124.2,"B","TRAIL TEXT",5)=""
^DD(124.2,"B","TYPE OF TERM",.02)=""
^DD(124.2,"GL",0,1,.01)=""
^DD(124.2,"GL",0,2,.02)=""
^DD(124.2,"GL",0,3,.03)=""
^DD(124.2,"GL",0,4,.04)=""
^DD(124.2,"GL",0,5,.05)=""
^DD(124.2,"GL",0,6,2)=""
^DD(124.2,"GL",0,7,3)=""
^DD(124.2,"GL",0,8,6)=""
^DD(124.2,"GL",0,9,6.5)=""
^DD(124.2,"GL",0,12,3.5)=""
^DD(124.2,"GL",1,0,1)=""
^DD(124.2,"GL",4,1,4)=""
^DD(124.2,"GL",5,1,5)=""
^DD(124.2,"GL",7,"E1,245",7)=""
^DD(124.2,"GL",8,"E1,245",8)=""
^DD(124.2,"GL",9,"E1,245",9)=""
^DD(124.2,"GL",10,"E1,245",10)=""
^DD(124.2,"GL","TD",0,.1)=""
^DD(124.2,"IX",.01)=""
^DD(124.2,"IX",.02)=""
^DD(124.2,"IX",.03)=""
^DD(124.2,"IX",.04)=""
^DD(124.2,"IX",.05)=""
^DD(124.2,"RQ",.01)=""
^DD(124.2,"RQ",.02)=""
^DD(124.2,"RQ",.03)=""
^DD(124.2,"RQ",.05)=""
^DD(124.2,"SB",124.21,1)=""
^DD(124.2,"SB",124.22,.1)=""
^DD(124.21,0)="CHILDREN SUB-FIELD^^6^7"
^DD(124.21,0,"ID",1)="W """""
^DD(124.21,0,"ID",2)="W """""
^DD(124.21,0,"ID",3)="W """""
^DD(124.21,0,"ID",4)="W """""
^DD(124.21,0,"ID",6)="W ""   "",$P(^(0),U,7)"
^DD(124.21,0,"IX","AC",124.21,1)=""
^DD(124.21,0,"IX","AC1",124.21,5)=""
^DD(124.21,0,"IX","AC2",124.21,6)=""
^DD(124.21,0,"IX","ACHTXT",124.21,.01)=""
^DD(124.21,0,"IX","AKID1",124.21,5)=""
^DD(124.21,0,"IX","B",124.21,.01)=""
^DD(124.21,0,"NM","CHILDREN")=""
^DD(124.21,0,"UP")="124.2"
^DD(124.21,.01,0)="CHILD^M*P124.2^GMRD(124.2,^0;1^S DIC(""S"")=""D EN3^GMRGUTL"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(124.21,.01,1,0)="^.1"
^DD(124.21,.01,1,1,0)="124.21^B"
^DD(124.21,.01,1,1,1)="S ^GMRD(124.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(124.21,.01,1,1,2)="K ^GMRD(124.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(124.21,.01,1,1,"%D",0)="^^2^2^2950927^^"
^DD(124.21,.01,1,1,"%D",1,0)="This is a regular cross-reference on the Children sub-field for the"
^DD(124.21,.01,1,1,"%D",2,0)="Name sub-field of the Children multiple."
^DD(124.21,.01,1,2,0)="124.2^AKID^MUMPS"
^DD(124.21,.01,1,2,1)="S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):^(0),1:"""") S ^GMRD(124.2,""AKID"",$E(X,1,30),DA(1),+$P(GMRG,""^"",6),DA)="""" K GMRG"
^DD(124.21,.01,1,2,2)="K ^GMRD(124.2,""AKID"",$E(X,1,30),DA(1),1,DA),^GMRD(124.2,""AKID"",$E(X,1,30),DA(1),0,DA)"
^DD(124.21,.01,1,2,"%D",0)="^^4^4^2950928^^"
^DD(124.21,.01,1,2,"%D",1,0)="This cross-reference sets a multi-field cross-reference (""AKID"") on"
^DD(124.21,.01,1,2,"%D",2,0)="the entire file.  This cross-reference uses the Name (.01) sub-field"
^DD(124.21,.01,1,2,"%D",3,0)="and Delete Flag (5) sub-field of the Children multiple, and has the"
^DD(124.21,.01,1,2,"%D",4,0)="following structure:  ^GMRD(124.2,""AKID"",Name,DA(1),Delete_Flag,DA)="""""
^DD(124.21,.01,1,3,0)="124.21^ACHTXT^MUMPS"
^DD(124.21,.01,1,3,1)="S GMRG(0)=1 D EN5^GMRGUT2"
^DD(124.21,.01,1,3,2)="S GMRG(0)=0 D EN5^GMRGUT2"
^DD(124.21,.01,1,3,"%D",0)="^^13^13^2950927^^"
^DD(124.21,.01,1,3,"%D",1,0)="This cross-reference triggers data into the following fields:"
^DD(124.21,.01,1,3,"%D",2,0)="   Value that is triggered               Field Triggered into"
^DD(124.21,.01,1,3,"%D",3,0)="   -----------------------               --------------------"
^DD(124.21,.01,1,3,"%D",4,0)="a. Name field for Aggregate Term file    Child Text sub-field of Children"
^DD(124.21,.01,1,3,"%D",5,0)="   entry pointed to by this field.       multiple for this entry."
^DD(124.21,.01,1,3,"%D",6,0)="b. Package field for Aggregate Term      Child Package sub-field of Children"
^DD(124.21,.01,1,3,"%D",7,0)="   file entry pointed to by this field.  multiple for this entry."
^DD(124.21,.01,1,3,"%D",8,0)="c. Type of Term field for Aggregate      Child Type of Term sub-field of"
^DD(124.21,.01,1,3,"%D",9,0)="   Term file entry pointed to by this    Children multiple for this entry."
^DD(124.21,.01,1,3,"%D",10,0)="   field."
^DD(124.21,.01,1,3,"%D",11,0)="d. Node Identification field for         Child Node ID sub-field of Children"
^DD(124.21,.01,1,3,"%D",12,0)="   Aggregate Term file entry pointed     multiple for this entry."
^DD(124.21,.01,1,3,"%D",13,0)="   to by this field."
^DD(124.21,.01,3)="Answer with an aggregate term that is under this frame/document."
^DD(124.21,.01,4)=""
^DD(124.21,.01,12)="Entries are screened to allow only valid children."
^DD(124.21,.01,12.1)="S DIC(""S"")=""D EN3^GMRGUTL"""
^DD(124.21,.01,21,0)="^^1^1^2900806^^^^"
^DD(124.21,.01,21,1,0)="An aggregate term that is under this frame/document."
^DD(124.21,.01,"DT")="2890213"
^DD(124.21,.01,"LAYGO",1,0)="S GMRGCYC(0)=X,GMRGND=DA(1),GMRGCYC=0 D FNDPRM^GMRGRUT0 K:GMRGCYC GMRGCYC D:'$D(GMRGCYC) EN^DDIOL($C(7)_""ADDING THIS TERM WOULD CREATE AN INVALID DATA CONDITION, CANNOT ADD!!"",,""!?5"") I $D(GMRGCYC) K GMRGCYC"
^DD(124.21,1,0)="CHILD TEXT^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E!(X?1""["".E)) X"
^DD(124.21,1,1,0)="^.1"
^DD(124.21,1,1,1,0)="124.21^AC^MUMPS"
^DD(124.21,1,1,1,1)="S GMRGX0(""D"")=1 D EN7^GMRGUT4"
^DD(124.21,1,1,1,2)="S GMRGX0(""D"")=0 D EN7^GMRGUT4"
^DD(124.21,1,1,1,"%D",0)="^^13^13^2950928^"
^DD(124.21,1,1,1,"%D",1,0)="This cross-reference is a multi-field cross-reference on the Children"
^DD(124.21,1,1,1,"%D",2,0)="sub-file.  The fields that are indexed are the Uppercase version of"
^DD(124.21,1,1,1,"%D",3,0)="the Child Text (1) sub-field, the Display Order (6) sub-field and"
^DD(124.21,1,1,1,"%D",4,0)="Delete Flag (5) sub-field of the Children multiple.  The cross-"
^DD(124.21,1,1,1,"%D",5,0)="reference is set only if the Delete Flag sub-field is null or equal"
^DD(124.21,1,1,1,"%D",6,0)="to 'NO', otherwise it is killed.  Also, the data that is cross-reference"
^DD(124.21,1,1,1,"%D",7,0)="varies on whether there is data in the Display Order sub-field.  If"
^DD(124.21,1,1,1,"%D",8,0)="there is data in the Display Order sub-field, then the cross-reference"
^DD(124.21,1,1,1,"%D",9,0)="will be set for the Display Order, else it will use the value in the"
^DD(124.21,1,1,1,"%D",10,0)="Child Text sub-field, if any.  The structure of the cross-reference is:"
^DD(124.21,1,1,1,"%D",11,0)="^GMRD(124.2,DA(1),1,""AC"",Value,DA)="""", where Value is the Display Order"
^DD(124.21,1,1,1,"%D",12,0)="if its present, otherwise its the Child Text.  There will be only one"
^DD(124.21,1,1,1,"%D",13,0)="cross-reference entry per entry in multiple."
^DD(124.21,1,3)="Please enter Child Text (3-60 chars.)"
^DD(124.21,1,8.5)="^"
^DD(124.21,1,9)="^"
^DD(124.21,1,21,0)="^^4^4^2891004^^"
^DD(124.21,1,21,1,0)="The data in this field is triggered in from the ACHTXT xref on the Child"
^DD(124.21,1,21,2,0)="(#.01) field, of the Children multiple.  This field is uneditable, and "
^DD(124.21,1,21,3,0)="should be invisible to the users.  No cross-referencing is allowed for"
^DD(124.21,1,21,4,0)="this field."
^DD(124.21,1,"DEL",1,0)="I 1"
^DD(124.21,1,"DT")="2890316"
^DD(124.21,2,0)="CHILD TYPE^RSI^2:FRAME;3:TERM;^0;3^Q"
^DD(124.21,2,8.5)="^"
^DD(124.21,2,9)="^"
^DD(124.21,2,21,0)="^^2^2^2900814^"
^DD(124.21,2,21,1,0)="This field contains the type of term for this child.  This field is needed"
^DD(124.21,2,21,2,0)="as an identifier when transferring data from one system to another."
^DD(124.21,2,"DT")="2890517"
^DD(124.21,3,0)="CHILD PACKAGE^RFI^^0;4^K:$L(X)>5!($L(X)<2)!'(X'?1P.E) X"
^DD(124.21,3,3)="Please enter Child Package name, (2-5 chars.)."
^DD(124.21,3,8.5)="^"
^DD(124.21,3,9)="^"
^DD(124.21,3,21,0)="^^2^2^2900814^"
^DD(124.21,3,21,1,0)="This field contains the package reference for this child.  This field is"
^DD(124.21,3,21,2,0)="needed as an identifier when transferring data from one system to another."
^DD(124.21,3,"DT")="2890517"
^DD(124.21,4,0)="CHILD NODE ID^RNJ5,0I^^0;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(124.21,4,3)="Please enter the ""NODE"" for this Child, (a whole number between 1 and 99999)."
^DD(124.21,4,8.5)="^"
^DD(124.21,4,9)="^"
^DD(124.21,4,21,0)="^^2^2^2900814^"
^DD(124.21,4,21,1,0)="This field contains the node identifier for this child.  This field is"
^DD(124.21,4,21,2,0)="needed for transferring data from one system to another."
^DD(124.21,4,"DT")="2890517"
^DD(124.21,5,0)="DELETE FLAG^S^0:NO;1:YES;^0;6^Q"
^DD(124.21,5,1,0)="^.1"
^DD(124.21,5,1,1,0)="124.21^AC1^MUMPS"
^DD(124.21,5,1,1,1)="S GMRGX0(""D"")=101 D EN7^GMRGUT4"
^DD(124.21,5,1,1,2)="S GMRGX0(""D"")=100 D EN7^GMRGUT4"
^DD(124.21,5,1,1,"%D",0)="^^13^13^2950928^"
^DD(124.21,5,1,1,"%D",1,0)="This cross-reference is a multi-field cross-reference on the Children"
^DD(124.21,5,1,1,"%D",2,0)="sub-file.  The fields that are indexed are the Uppercase version of"
^DD(124.21,5,1,1,"%D",3,0)="the Child Text (1) sub-field, the Display Order (6) sub-field and"
^DD(124.21,5,1,1,"%D",4,0)="Delete Flag (5) sub-field of the Children multiple.  The cross-"
^DD(124.21,5,1,1,"%D",5,0)="reference is set only if the Delete Flag sub-field is null or equal"
^DD(124.21,5,1,1,"%D",6,0)="to 'NO', otherwise it is killed.  Also, the data that is cross-reference"
^DD(124.21,5,1,1,"%D",7,0)="varies on whether there is data in the Display Order sub-field.  If"
^DD(124.21,5,1,1,"%D",8,0)="there is data in the Display Order sub-field, then the cross-reference"
^DD(124.21,5,1,1,"%D",9,0)="will be set for the Display Order, else it will use the value in the"
^DD(124.21,5,1,1,"%D",10,0)="Child Text sub-field, if any.  The structure of the cross-reference is:"
^DD(124.21,5,1,1,"%D",11,0)="^GMRD(124.2,DA(1),1,""AC"",Value,DA)="""", where Value is the Display Order"
^DD(124.21,5,1,1,"%D",12,0)="if its present, otherwise its the Child Text.  There will be only one"
^DD(124.21,5,1,1,"%D",13,0)="cross-reference entry per entry in multiple."
^DD(124.21,5,1,2,0)="124.21^AKID1^MUMPS"
^DD(124.21,5,1,2,1)="S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):$P(^(0),""^""),1:"""") K:GMRG ^GMRD(124.2,""AKID"",$E(GMRG,1,30),DA(1),1-X,DA) S:GMRG ^GMRD(124.2,""AKID"",$E(GMRG,1,30),DA(1),+X,DA)="""" K GMRG"
^DD(124.21,5,1,2,2)="S GMRG=$S($D(^GMRD(124.2,DA(1),1,DA,0)):$P(^(0),""^""),1:"""") X:GMRG ^DD(124.21,5,9.2) K GMRG"
^DD(124.21,5,1,2,"%D",0)="^^4^4^2950928^"
^DD(124.21,5,1,2,"%D",1,0)="This cross-reference sets a multi-field cross-reference (""AKID"") on"
^DD(124.21,5,1,2,"%D",2,0)="the entire file.  This cross-reference uses the Name (.01) sub-field"
^DD(124.21,5,1,2,"%D",3,0)="and Delete Flag (5) sub-field of the Children multiple, and has the"
^DD(124.21,5,1,2,"%D",4,0)="following structure:  ^GMRD(124.2,""AKID"",Name,DA(1),Delete_Flag,DA)="""""
^DD(124.21,5,1,2,"DT")="2910207"
^DD(124.21,5,3)="Please enter a one (1) if this term has been deleted from the Care Plan. Press RETURN or ENTER if not."
^DD(124.21,5,9.2)="I $D(^GMRD(124.2,""AKID"",$E(GMRG,1,30),DA(1),0,DA))!$D(^GMRD(124.2,""AKID"",$E(GMRG,1,30),DA(1),1,DA)) K ^GMRD(124.2,""AKID"",$E(GMRG,1,30),DA(1),1,DA) S ^GMRD(124.2,""AKID"",$E(GMRG,1,30),DA(1),0,DA)="""""
^DD(124.21,5,21,0)="^^3^3^2891004^^"
^DD(124.21,5,21,1,0)="A flag to track whether a site has removed this term from its care plan or"
^DD(124.21,5,21,2,0)="not.  A flag was used so that site configured changes are not lost from"
^DD(124.21,5,21,3,0)="version to version."
^DD(124.21,5,"DT")="2910207"
^DD(124.21,6,0)="DISPLAY ORDER^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(124.21,6,1,0)="^.1"
^DD(124.21,6,1,1,0)="124.21^AC2^MUMPS"
^DD(124.21,6,1,1,1)="S GMRGX0(""D"")=11 D EN7^GMRGUT4"
^DD(124.21,6,1,1,2)="S GMRGX0(""D"")=10 D EN7^GMRGUT4"
^DD(124.21,6,1,1,"%D",0)="^^13^13^2950928^"
^DD(124.21,6,1,1,"%D",1,0)="This cross-reference is a multi-field cross-reference on the Children"
^DD(124.21,6,1,1,"%D",2,0)="sub-file.  The fields that are indexed are the Uppercase version of"
^DD(124.21,6,1,1,"%D",3,0)="the Child Text (1) sub-field, the Display Order (6) sub-field and"
^DD(124.21,6,1,1,"%D",4,0)="Delete Flag (5) sub-field of the Children multiple.  The cross-"
^DD(124.21,6,1,1,"%D",5,0)="reference is set only if the Delete Flag sub-field is null or equal"
^DD(124.21,6,1,1,"%D",6,0)="to 'NO', otherwise it is killed.  Also, the data that is cross-reference"
^DD(124.21,6,1,1,"%D",7,0)="varies on whether there is data in the Display Order sub-field.  If"
^DD(124.21,6,1,1,"%D",8,0)="there is data in the Display Order sub-field, then the cross-reference"
^DD(124.21,6,1,1,"%D",9,0)="will be set for the Display Order, else it will use the value in the"
^DD(124.21,6,1,1,"%D",10,0)="Child Text sub-field, if any.  The structure of the cross-reference is:"
^DD(124.21,6,1,1,"%D",11,0)="^GMRD(124.2,DA(1),1,""AC"",Value,DA)="""", where Value is the Display Order"
^DD(124.21,6,1,1,"%D",12,0)="if its present, otherwise its the Child Text.  There will be only one"
^DD(124.21,6,1,1,"%D",13,0)="cross-reference entry per entry in multiple."
^DD(124.21,6,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(124.21,6,21,0)="^^2^2^2950928^^"
^DD(124.21,6,21,1,0)="This field contains data indicating the order this child is displayed"
^DD(124.21,6,21,2,0)="in this frame."
^DD(124.21,6,"DT")="2900409"
^DD(124.21,"B","CHILD",.01)=""
^DD(124.21,"B","CHILD NODE ID",4)=""
^DD(124.21,"B","CHILD PACKAGE",3)=""
^DD(124.21,"B","CHILD TEXT",1)=""
^DD(124.21,"B","CHILD TYPE",2)=""
^DD(124.21,"B","DELETE FLAG",5)=""
^DD(124.21,"B","DISPLAY ORDER",6)=""
^DD(124.21,"GL",0,1,.01)=""
^DD(124.21,"GL",0,2,1)=""
^DD(124.21,"GL",0,3,2)=""
^DD(124.21,"GL",0,4,3)=""
^DD(124.21,"GL",0,5,4)=""
^DD(124.21,"GL",0,6,5)=""
^DD(124.21,"GL",0,7,6)=""
^DD(124.21,"IX",.01)=""
^DD(124.21,"IX",1)=""
^DD(124.21,"IX",5)=""
^DD(124.21,"IX",6)=""
^DD(124.21,"RQ",1)=""
^DD(124.21,"RQ",2)=""
^DD(124.21,"RQ",3)=""
^DD(124.21,"RQ",4)=""
^DD(124.22,0)="TERM DEFINITION SUB-FIELD^^.01^1"
^DD(124.22,0,"NM","TERM DEFINITION")=""
^DD(124.22,0,"UP")="124.2"
^DD(124.22,.01,0)="TERM DEFINITION^W^^0;1^Q"
^DD(124.22,.01,21,0)="^^1^1^2900814^^^^"
^DD(124.22,.01,21,1,0)="A further clarification of this term."
^DD(124.22,.01,"DT")="2890301"
^DD(124.22,"B","TERM DEFINITION",.01)=""
^DD(124.22,"GL",0,1,.01)=""
^DD(124.25,0)="FIELD^^10^7"
^DD(124.25,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(124.25,0,"IX","AA0",124.25,1)=""
^DD(124.25,0,"IX","AA1",124.25,.01)=""
^DD(124.25,0,"IX","ATD",124.25,2)=""
^DD(124.25,0,"IX","B",124.25,.01)=""
^DD(124.25,0,"NM","TERM CLASSIFICATION")=""
^DD(124.25,0,"PT",124.2,.04)=""
^DD(124.25,0,"VR")="3.0"
^DD(124.25,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(124.25,.01,1,0)="^.1"
^DD(124.25,.01,1,1,0)="124.25^B"
^DD(124.25,.01,1,1,1)="S ^GMRD(124.25,""B"",$E(X,1,30),DA)="""""
^DD(124.25,.01,1,1,2)="K ^GMRD(124.25,""B"",$E(X,1,30),DA)"
^DD(124.25,.01,1,1,"%D",0)="^^1^1^2950929^"
^DD(124.25,.01,1,1,"%D",1,0)="This is a regular cross-reference on the entire file for the Name field."
^DD(124.25,.01,1,2,0)="124.25^AA1^MUMPS"
^DD(124.25,.01,1,2,1)="S GMRG=$S($D(^GMRD(124.25,DA,0)):$P(^(0),U,2),1:"""") S:GMRG'="""" ^GMRD(124.25,""AA"",GMRG,X,DA)="""" K GMRG"
^DD(124.25,.01,1,2,2)="S GMRG=$S($D(^GMRD(124.25,DA,0)):$P(^(0),U,2),1:"""") K:GMRG'="""" ^GMRD(124.25,""AA"",GMRG,X,DA) K GMRG"
^DD(124.25,.01,1,2,"%D",0)="^^3^3^2950929^"
^DD(124.25,.01,1,2,"%D",1,0)="This cross-reference sets a multiple-field index (""AA"") for the Name (.01)"
^DD(124.25,.01,1,2,"%D",2,0)="field and the Package (1) field.  The structure of this cross-reference is:"
^DD(124.25,.01,1,2,"%D",3,0)="^GMRD(124.2,""AA"",Package,Name,DA)=""""."
^DD(124.25,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(124.25,.01,21,0)="^^2^2^2950929^^^^"
^DD(124.25,.01,21,1,0)="Special classification name that further identifies or categorizes"
^DD(124.25,.01,21,2,0)="an Aggregate Term (#124.2)."
^DD(124.25,.01,"DEL",1,0)="I 1"
^DD(124.25,.01,"DT")="2890512"
^DD(124.25,1,0)="PACKAGE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X"
^DD(124.25,1,1,0)="^.1"
^DD(124.25,1,1,1,0)="124.25^AA0^MUMPS"
^DD(124.25,1,1,1,1)="S GMRG=$S($D(^GMRD(124.25,DA,0)):$P(^(0),U),1:"""") S:GMRG'="""" ^GMRD(124.25,""AA"",X,GMRG,DA)="""" K GMRG"
^DD(124.25,1,1,1,2)="S GMRG=$S($D(^GMRD(124.25,DA,0)):$P(^(0),U),1:"""") K:GMRG'="""" ^GMRD(124.25,""AA"",X,GMRG,DA) K GMRG"
^DD(124.25,1,1,1,"%D",0)="^^3^3^2950929^"
^DD(124.25,1,1,1,"%D",1,0)="This cross-reference sets a multiple-field index (""AA"") for the Name (.01)"
^DD(124.25,1,1,1,"%D",2,0)="field and the Package (1) field.  The structure of this cross-reference is:"
^DD(124.25,1,1,1,"%D",3,0)="^GMRD(124.2,""AA"",Package,Name,DA)=""""."
^DD(124.25,1,3)="Answer must be 2-5 characters in length."
^DD(124.25,1,21,0)="^^1^1^2890512^^^"
^DD(124.25,1,21,1,0)="The package that is using this term classification."
^DD(124.25,1,"DT")="2890512"
^DD(124.25,2,0)="BEGIN TEXT^S^0:NO;1:YES;^0;3^Q"
^DD(124.25,2,1,0)="^.1"
^DD(124.25,2,1,1,0)="124.25^ATD^MUMPS"
^DD(124.25,2,1,1,1)="D:X EN3^GMRGUT2"
^DD(124.25,2,1,1,2)="D:X EN4^GMRGUT2"
^DD(124.25,2,1,1,"%D",0)="^^14^14^2950929^"
^DD(124.25,2,1,1,"%D",1,0)="This cross-reference sets a multiple index (""ATD"") on the Aggregate Term"
^DD(124.25,2,1,1,"%D",2,0)="file using the Begin Text (1) field and the Package (.03) and"
^DD(124.25,2,1,1,"%D",3,0)="Classification (.04) fields of the Aggregate Term file for all Aggregate"
^DD(124.25,2,1,1,"%D",4,0)="Term file entries that point to this Term Classification. The value of the"
^DD(124.25,2,1,1,"%D",5,0)="Begin Text field will determine if this index will be set.  If the Begin"
^DD(124.25,2,1,1,"%D",6,0)="Text field is null, the index is not set, if it is 'YES' it is set.  The"
^DD(124.25,2,1,1,"%D",7,0)="format of the ""ATD"" cross-reference is:"
^DD(124.25,2,1,1,"%D",8,0)="   ^GMRD(124.2,""ATD"",Package,Classification,DA)="""". "
^DD(124.25,2,1,1,"%D",9,0)=" "
^DD(124.25,2,1,1,"%D",10,0)="This cross-reference also triggers the values into the Action on Entering"
^DD(124.25,2,1,1,"%D",11,0)="Selection (7), Action on Filing Selection (8), Action on Leaving Selection"
^DD(124.25,2,1,1,"%D",12,0)="(9) and Action on Printing Selection (10) of the Aggregate Term file from"
^DD(124.25,2,1,1,"%D",13,0)="the corresponding fields in the Term Classification file for all entries"
^DD(124.25,2,1,1,"%D",14,0)="Aggregate Term file entries pointing to this Term Classification."
^DD(124.25,2,21,0)="^^3^3^2890213^^^"
^DD(124.25,2,21,1,0)="This is a flag to the GMRG Reporting mechanism to show where the"
^DD(124.25,2,21,2,0)="organizational level ends, and the generation of text for the prime"
^DD(124.25,2,21,3,0)="document begins."
^DD(124.25,2,"DT")="2890210"
^DD(124.25,7,0)="ACTION ON ENTERING DEFAULT^FX^^7;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X)#2 D ^DIM"
^DD(124.25,7,3)="Answer must be valid MUMPS code 1-245 characters in length."
^DD(124.25,7,9)="@"
^DD(124.25,7,21,0)="^^3^3^2950929^^^^"
^DD(124.25,7,21,1,0)="The value in this field is automatically stuffed into the ACTION ON"
^DD(124.25,7,21,2,0)="ENTERING SELECTION field of File #124.2 if this classification was selected"
^DD(124.25,7,21,3,0)="for an Aggregate Term."
^DD(124.25,7,"DT")="2891028"
^DD(124.25,8,0)="ACTION ON FILING DEFAULT^FX^^8;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X)#2 D ^DIM"
^DD(124.25,8,3)="Answer must be valid MUMPS code 1-245 characters in length."
^DD(124.25,8,9)="@"
^DD(124.25,8,21,0)="^^2^2^2950929^^"
^DD(124.25,8,21,1,0)="The data here is stuffed into the ACTION ON FILING field of File #124.2"
^DD(124.25,8,21,2,0)="for an Aggregate Term that has this classification selected."
^DD(124.25,8,"DT")="2891028"
^DD(124.25,9,0)="ACTION ON LEAVING DEFAULT^FX^^9;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X)#2 D ^DIM"
^DD(124.25,9,3)="Answer must be valid MUMPS code 1-245 characters in length."
^DD(124.25,9,9)="@"
^DD(124.25,9,21,0)="^^3^3^2950929^^"
^DD(124.25,9,21,1,0)="This data is stuffed into the ACTION ON LEAVING SELECTION field of the"
^DD(124.25,9,21,2,0)="Aggregate Term (#124.2) file for an aggregate term associated with this"
^DD(124.25,9,21,3,0)="classification."
^DD(124.25,9,"DT")="2891028"
^DD(124.25,10,0)="ACTION ON PRINTING DEFAULT^FX^^10;E1,245^K:$L(X)>245!($L(X)<1) X I $D(X)#2 D ^DIM"
^DD(124.25,10,3)="Answer must be valid MUMPS code 1-245 characters in length."
^DD(124.25,10,9)="@"
^DD(124.25,10,21,0)="^^3^3^2950929^^^^"
^DD(124.25,10,21,1,0)="The data in this field is stuffed into the ACTION ON PRINTING SELECTION"
^DD(124.25,10,21,2,0)="field of the Aggregate Term (#124.2) file for terms associated with this "
^DD(124.25,10,21,3,0)="classification."
^DD(124.25,10,"DT")="2891028"
^DD(124.25,"B","ACTION ON ENTERING DEFAULT",7)=""
^DD(124.25,"B","ACTION ON FILING DEFAULT",8)=""
^DD(124.25,"B","ACTION ON LEAVING DEFAULT",9)=""
^DD(124.25,"B","ACTION ON PRINTING DEFAULT",10)=""
^DD(124.25,"B","BEGIN TEXT",2)=""
^DD(124.25,"B","NAME",.01)=""
^DD(124.25,"B","PACKAGE",1)=""
^DD(124.25,"GL",0,1,.01)=""
^DD(124.25,"GL",0,2,1)=""
^DD(124.25,"GL",0,3,2)=""
^DD(124.25,"GL",7,"E1,245",7)=""
^DD(124.25,"GL",8,"E1,245",8)=""
^DD(124.25,"GL",9,"E1,245",9)=""
^DD(124.25,"GL",10,"E1,245",10)=""
^DD(124.25,"IX",.01)=""
^DD(124.25,"IX",1)=""
^DD(124.25,"IX",2)=""
^DD(124.25,"RQ",.01)=""
^DD(124.25,"RQ",1)=""
^DD(124.3,0)="FIELD^^6^9"
^DD(124.3,0,"DDA")="N"
^DD(124.3,0,"DT")="2920109"
^DD(124.3,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",!?5,$E(Y,1,30),@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(124.3,0,"ID",.03)="W ""   "",?40 S %I=Y,Y=$P(^(0),U,3) D DT^DIQ S Y=%I K %I"
^DD(124.3,0,"IX","AA",124.3,.01)=""
^DD(124.3,0,"IX","AA01",124.3,.02)=""
^DD(124.3,0,"IX","AA02",124.3,.03)=""
^DD(124.3,0,"IX","AEET",124.3,5)=""
^DD(124.3,0,"IX","ALIST",124.3,.01)=""
^DD(124.3,0,"IX","AUPD",124.3,.03)=""
^DD(124.3,0,"IX","AUPDT",124.3,6)=""
^DD(124.3,0,"IX","B",124.3,.01)=""
^DD(124.3,0,"IX","C",124.3,.02)=""
^DD(124.3,0,"IX","D",124.3,.03)=""
^DD(124.3,0,"NM","GMR TEXT")=""
^DD(124.3,0,"PT",216.8,.01)=""
^DD(124.3,0,"VR")="3.0"
^DD(124.3,.01,0)="TEXT BLOCK^R*P124.2'^GMRD(124.2,^0;1^S DIC(""S"")=""I $P(^(0),U,4)>0,$D(^GMRD(124.25,$P(^GMRD(124.2,+Y,0),U,4),0)),$P(^(0),U)=""""PRIME DOCUMENT"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(124.3,.01,1,0)="^.1"
^DD(124.3,.01,1,1,0)="124.3^B"
^DD(124.3,.01,1,1,1)="S ^GMR(124.3,""B"",$E(X,1,30),DA)="""""
^DD(124.3,.01,1,1,2)="K ^GMR(124.3,""B"",$E(X,1,30),DA)"
^DD(124.3,.01,1,1,"%D",0)="^^1^1^2951002^"
^DD(124.3,.01,1,1,"%D",1,0)="This is a regular index on the entire file of the GMR Text (.01) field."
^DD(124.3,.01,1,2,0)="124.3^AA^MUMPS"
^DD(124.3,.01,1,2,1)="S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""""),GMRG(2)=$P(GMRG,""^"",2),GMRG(3)=$P(GMRG,""^"",3) S:GMRG(2)'=""""&(GMRG(3)'="""") ^GMR(124.3,""AA"",GMRG(2),X,9999999-GMRG(3),DA)="""" K GMRG"
^DD(124.3,.01,1,2,2)="S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""""),GMRG(2)=$P(GMRG,""^"",2),GMRG(3)=$P(GMRG,""^"",3) K:GMRG(2)'=""""&(GMRG(3)'="""") ^GMR(124.3,""AA"",GMRG(2),X,9999999-GMRG(3),DA) K GMRG"
^DD(124.3,.01,1,2,"%D",0)="^^3^3^2951002^"
^DD(124.3,.01,1,2,"%D",1,0)="This is a multi-field index (""AA"") on the GMR Text (.01), Patient (.02),"
^DD(124.3,.01,1,2,"%D",2,0)="and Date Created (.03) fields.  The structure of the cross-reference is:"
^DD(124.3,.01,1,2,"%D",3,0)="^GMR(124.3,""AA"",Patient,GMR_Text,9999999-Date_Created,DA)=""""."
^DD(124.3,.01,1,3,0)="^^TRIGGER^124.3^3"
^DD(124.3,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $S('$D(^GMR(124.3,D0,0)):1,$P(^(0),U,5)="""":1,1:0) I X S X=DIV S Y(1)=$S($D(^GMR(124.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(124.3,.01,1,3,1.4)"
^DD(124.3,.01,1,3,1.4)="S DIH=$S($D(^GMR(124.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=124.3,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(124.3,.01,1,3,2)="Q"
^DD(124.3,.01,1,3,"%D",0)="^^3^3^2951002^"
^DD(124.3,.01,1,3,"%D",1,0)="This field triggers the value of DUZ into the Author (3) field if there"
^DD(124.3,.01,1,3,"%D",2,0)="is no data in that field already.  This will ensure that the Author"
^DD(124.3,.01,1,3,"%D",3,0)="field is set to the person who created this record."
^DD(124.3,.01,1,3,"CREATE CONDITION")="I $S('$D(^GMR(124.3,D0,0)):1,$P(^(0),U,5)="""":1,1:0)"
^DD(124.3,.01,1,3,"CREATE VALUE")="S X=DUZ"
^DD(124.3,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(124.3,.01,1,3,"FIELD")="AUTHOR"
^DD(124.3,.01,1,4,0)="124.3^ALIST^MUMPS"
^DD(124.3,.01,1,4,1)="S:'$D(^GMR(124.3,DA,1,""ALIST"",X,1)) ^(1)=""^0"" S:'$D(^GMR(124.3,DA,1,0)) ^(0)=""^124.31PA^^"""
^DD(124.3,.01,1,4,2)="X ""F GMRG=0:0 S GMRG=$O(^GMR(124.3,DA,1,""""ALIST"""",X,GMRG)) Q:GMRG'>0  K ^GMR(124.3,DA,1,""""ALIST"""",X,GMRG)"" K GMRG"
^DD(124.3,.01,1,4,"%D",0)="^^9^9^2951002^^^"
^DD(124.3,.01,1,4,"%D",1,0)="This cross-reference sets part of the (""ALIST"") index on the Selection"
^DD(124.3,.01,1,4,"%D",2,0)="sub-file.  This index represents the order in which the terms were"
^DD(124.3,.01,1,4,"%D",3,0)="selected for this entry.  The structure of the index is:"
^DD(124.3,.01,1,4,"%D",4,0)="  ^GMR(124.3,DA(1),1,""ALIST"",GMR_Text,#)=""^child1^child2^..."""
^DD(124.3,.01,1,4,"%D",5,0)="where # is an integer ranging from 1 to the number of entries in the"
^DD(124.3,.01,1,4,"%D",6,0)="index for the particular GMR_Text.  The cross-reference is equal to an"
^DD(124.3,.01,1,4,"%D",7,0)="^ delimited list of the children selected for the particular entry being"
^DD(124.3,.01,1,4,"%D",8,0)="indexed.  If the list of children is longer than 245 characters, it"
^DD(124.3,.01,1,4,"%D",9,0)="overflows to the next # subscript."
^DD(124.3,.01,3)=""
^DD(124.3,.01,12)="A text block can only be a prime document"
^DD(124.3,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)>0,$D(^GMRD(124.25,$P(^GMRD(124.2,+Y,0),U,4),0)),$P(^(0),U)=""""PRIME DOCUMENT"""""""
^DD(124.3,.01,21,0)="^^1^1^2951002^^^^"
^DD(124.3,.01,21,1,0)="The topic/lead frame associated with the information."
^DD(124.3,.01,"DT")="2890211"
^DD(124.3,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(124.3,.02,1,0)="^.1"
^DD(124.3,.02,1,1,0)="124.3^C"
^DD(124.3,.02,1,1,1)="S ^GMR(124.3,""C"",$E(X,1,30),DA)="""""
^DD(124.3,.02,1,1,2)="K ^GMR(124.3,""C"",$E(X,1,30),DA)"
^DD(124.3,.02,1,1,"%D",0)="^^2^2^2951002^"
^DD(124.3,.02,1,1,"%D",1,0)="This is a regular cross-reference on the entire file of the Patient (.02)"
^DD(124.3,.02,1,1,"%D",2,0)="field."
^DD(124.3,.02,1,2,0)="124.3^AA01^MUMPS"
^DD(124.3,.02,1,2,1)="S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""""),GMRG(1)=$P(GMRG,""^""),GMRG(3)=$P(GMRG,""^"",3) S:GMRG(1)'=""""&(GMRG(3)'="""") ^GMR(124.3,""AA"",X,GMRG(1),9999999-GMRG(3),DA)="""" K GMRG"
^DD(124.3,.02,1,2,2)="S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""""),GMRG(1)=$P(GMRG,""^""),GMRG(3)=$P(GMRG,""^"",3) K:GMRG(1)'=""""&(GMRG(3)'="""") ^GMR(124.3,""AA"",X,GMRG(1),9999999-GMRG(3),DA) K GMRG"
^DD(124.3,.02,1,2,"%D",0)="^^3^3^2951002^"
^DD(124.3,.02,1,2,"%D",1,0)="This is a multi-field index (""AA"") on the GMR Text (.01), Patient (.02),"
^DD(124.3,.02,1,2,"%D",2,0)="and Date Created (.03) fields.  The structure of the cross-reference is:"
^DD(124.3,.02,1,2,"%D",3,0)="^GMR(124.3,""AA"",Patient,GMR_Text,9999999-Date_Created,DA)=""""."
^DD(124.3,.02,3)="ANSWER WITH THE NAME OF THE PATIENT THIS TEXT IS FOR."
^DD(124.3,.02,21,0)="^^1^1^2951002^^"
^DD(124.3,.02,21,1,0)="The patient associated with the filed information."
^DD(124.3,.02,"DT")="2881012"
^DD(124.3,.03,0)="DATE CREATED^RD^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(124.3,.03,1,0)="^.1"
^DD(124.3,.03,1,1,0)="124.3^AA02^MUMPS"
^DD(124.3,.03,1,1,1)="S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""""),GMRG(1)=$P(GMRG,""^""),GMRG(2)=$P(GMRG,""^"",2) S:GMRG(1)'=""""&(GMRG(2)'="""") ^GMR(124.3,""AA"",GMRG(2),GMRG(1),9999999-X,DA)="""" K GMRG"
^DD(124.3,.03,1,1,2)="S GMRG=$S($D(^GMR(124.3,DA,0)):^(0),1:""""),GMRG(1)=$P(GMRG,""^""),GMRG(2)=$P(GMRG,""^"",2) K:GMRG(1)'=""""&(GMRG(2)'="""") ^GMR(124.3,""AA"",GMRG(2),GMRG(1),9999999-X,DA) K GMRG"
^DD(124.3,.03,1,1,"%D",0)="^^3^3^2951002^"
^DD(124.3,.03,1,1,"%D",1,0)="This is a multi-field index (""AA"") on the GMR Text (.01), Patient (.02),"
^DD(124.3,.03,1,1,"%D",2,0)="and Date Created (.03) fields.  The structure of the cross-reference is:"
^DD(124.3,.03,1,1,"%D",3,0)="^GMR(124.3,""AA"",Patient,GMR_Text,9999999-Date_Created,DA)=""""."
^DD(124.3,.03,1,2,0)="124.3^D"
^DD(124.3,.03,1,2,1)="S ^GMR(124.3,""D"",$E(X,1,30),DA)="""""
^DD(124.3,.03,1,2,2)="K ^GMR(124.3,""D"",$E(X,1,30),DA)"
^DD(124.3,.03,1,2,"%D",0)="^^2^2^2951002^"
^DD(124.3,.03,1,2,"%D",1,0)="This is a regular cross-reference on the entire file for the Date Created"
^DD(124.3,.03,1,2,"%D",2,0)="(.03) field."
^DD(124.3,.03,1,3,0)="124.3^AUPD^MUMPS"
^DD(124.3,.03,1,3,1)="D UPD1^GMRGUT4"
^DD(124.3,.03,1,3,2)="Q"
^DD(124.3,.03,1,3,"%D",0)="^^2^2^2960306^"
^DD(124.3,.03,1,3,"%D",1,0)="This cross-reference will trigger data into the Date Last Updated (6)"
^DD(124.3,.03,1,3,"%D",2,0)="field."
^DD(124.3,.03,1,3,"DT")="2960306"
^DD(124.3,.03,3)="ENTER THE DATE THIS TEXT WAS CREATED."
^DD(124.3,.03,21,0)="^^1^1^2951002^^"
^DD(124.3,.03,21,1,0)="The date/time this text was created."
^DD(124.3,.03,"DT")="2960306"
^DD(124.3,1,0)="SELECTION^124.31PA^^1;0"
^DD(124.3,1,21,0)="^^1^1^2951002^^^^"
^DD(124.3,1,21,1,0)="A record of all AGGREGATE TERMs selected, and any FREE TEXT entered for this TEXT BLOCK."
^DD(124.3,3,0)="AUTHOR^RP200'^VA(200,^0;5^Q"
^DD(124.3,3,3)="ANSWER WITH THE SIGN-ON USER"
^DD(124.3,3,5,1,0)="124.3^.01^3"
^DD(124.3,3,9)="^"
^DD(124.3,3,21,0)="^^1^1^2891004^^"
^DD(124.3,3,21,1,0)="User who created the text."
^DD(124.3,3,"DT")="2920109"
^DD(124.3,5,0)="ENTERED IN ERROR^S^1:YES;^5;1^Q"
^DD(124.3,5,1,0)="^.1"
^DD(124.3,5,1,1,0)="124.3^AEET^MUMPS"
^DD(124.3,5,1,1,1)="D EN1^GMRGUT4"
^DD(124.3,5,1,1,2)="Q"
^DD(124.3,5,1,1,"%D",0)="^^3^3^2951002^"
^DD(124.3,5,1,1,"%D",1,0)="This cross-reference triggers the current date/time into the Date"
^DD(124.3,5,1,1,"%D",2,0)="Entered in Error (5.1) field and DUZ into the User Entering in Error"
^DD(124.3,5,1,1,"%D",3,0)="(5.2) field."
^DD(124.3,5,21,0)="^^1^1^2891004^^^"
^DD(124.3,5,21,1,0)="Flag to designate if a text block has been entered in error."
^DD(124.3,5,"DEL",1,0)="I 1"
^DD(124.3,5,"DT")="2881026"
^DD(124.3,5.1,0)="DATE ENTERED IN ERROR^DI^^5;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(124.3,5.1,21,0)="^^1^1^2880720^"
^DD(124.3,5.1,21,1,0)="Date that this text was flagged as being in error."
^DD(124.3,5.1,"DT")="2881027"
^DD(124.3,5.2,0)="USER ENTERING IN ERROR^P200'I^VA(200,^5;3^Q"
^DD(124.3,5.2,1,0)="^.1^^0"
^DD(124.3,5.2,21,0)="^^1^1^2880720^"
^DD(124.3,5.2,21,1,0)="User that flagged the text as entered in error."
^DD(124.3,5.2,"DT")="2920109"
^DD(124.3,6,0)="DATE LAST UPDATED^RD^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(124.3,6,1,0)="^.1"
^DD(124.3,6,1,1,0)="124.3^AUPDT"
^DD(124.3,6,1,1,1)="S ^GMR(124.3,""AUPDT"",$E(X,1,30),DA)="""""
^DD(124.3,6,1,1,2)="K ^GMR(124.3,""AUPDT"",$E(X,1,30),DA)"
^DD(124.3,6,1,1,"%D",0)="^^3^3^2960306^"
^DD(124.3,6,1,1,"%D",1,0)="This is a regular cross-reference on the Date Last Updated (6) field for"
^DD(124.3,6,1,1,"%D",2,0)="the whole GMR Text (124.3) file.  This cross-reference will not be used"
^DD(124.3,6,1,1,"%D",3,0)="for lookup as well as sorting."
^DD(124.3,6,1,1,"DT")="2960306"
^DD(124.3,6,9)="@"
^DD(124.3,6,21,0)="^^3^3^2960308^^^"
^DD(124.3,6,21,1,0)="This field contains the date/time this GMR Text entry was last updated."
^DD(124.3,6,21,2,0)="The data in this field is triggered from the Audit Trail multiple and"
^DD(124.3,6,21,3,0)="Date Created field and cannot be changed via FileMan."
^DD(124.3,6,"DT")="2960306"
^DD(124.3,"B","AUTHOR",3)=""
^DD(124.3,"B","DATE CREATED",.03)=""
^DD(124.3,"B","DATE ENTERED IN ERROR",5.1)=""
^DD(124.3,"B","DATE LAST UPDATED",6)=""
^DD(124.3,"B","ENTERED IN ERROR",5)=""
^DD(124.3,"B","PATIENT",.02)=""
^DD(124.3,"B","SELECTION",1)=""
^DD(124.3,"B","TEXT BLOCK",.01)=""
^DD(124.3,"B","USER ENTERING IN ERROR",5.2)=""
^DD(124.3,"GL",0,1,.01)=""
^DD(124.3,"GL",0,2,.02)=""
^DD(124.3,"GL",0,3,.03)=""
^DD(124.3,"GL",0,5,3)=""
^DD(124.3,"GL",0,6,6)=""
^DD(124.3,"GL",1,0,1)=""
^DD(124.3,"GL",5,1,5)=""
^DD(124.3,"GL",5,2,5.1)=""
^DD(124.3,"GL",5,3,5.2)=""
^DD(124.3,"IX",.01)=""
^DD(124.3,"IX",.02)=""
^DD(124.3,"IX",.03)=""
^DD(124.3,"IX",5)=""
^DD(124.3,"IX",6)=""
^DD(124.3,"RQ",.01)=""
^DD(124.3,"RQ",.02)=""
^DD(124.3,"RQ",.03)=""
^DD(124.3,"RQ",3)=""
^DD(124.3,"RQ",6)=""
^DD(124.3,"SB",124.31,1)=""
^DD(124.31,0)="SELECTION SUB-FIELD^^4^5"
^DD(124.31,0,"DT")="2920109"
^DD(124.31,0,"IX","ANOT",124.31,4)=""
^DD(124.31,0,"IX","AUPD",124.313,.01)=""
^DD(124.31,0,"IX","B",124.31,.01)=""
^DD(124.31,0,"NM","SELECTION")=""
^DD(124.31,0,"UP")="124.3"
^DD(124.31,.01,0)="SELECTION^M*P124.2'I^GMRD(124.2,^0;1^S DIC(""S"")=""D EN4^GMRGUTL"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(124.31,.01,1,0)="^.1^^-1"
^DD(124.31,.01,1,1,0)="124.31^B"
^DD(124.31,.01,1,1,1)="S ^GMR(124.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(124.31,.01,1,1,2)="K ^GMR(124.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(124.31,.01,1,1,"%D",0)="^^2^2^2951002^"
^DD(124.31,.01,1,1,"%D",1,0)="This is a regular cross-reference on the Selection multiple of the"
^DD(124.31,.01,1,1,"%D",2,0)="Selection (.01) sub-field."
^DD(124.31,.01,3)="ANSWER WITH AGGREGATE TERM TO BE FILED WITH THIS TEXT BLOCK."
^DD(124.31,.01,4)=""
^DD(124.31,.01,8.5)="^"
^DD(124.31,.01,9)="^"
^DD(124.31,.01,12)="Screen to pick valid selections"
^DD(124.31,.01,12.1)="S DIC(""S"")=""D EN4^GMRGUTL"""
^DD(124.31,.01,21,0)="^^1^1^2900917^^^^"
^DD(124.31,.01,21,1,0)="An AGGREGATE TERM that belongs to this text block."
^DD(124.31,.01,"DEL",1,0)="I 1 D EN^DDIOL($C(7)_""SELECTIONS CANNOT BE DELETED!!"")"
^DD(124.31,.01,"DT")="2900725"
^DD(124.31,.01,"LAYGO",1,0)="D EN^DDIOL(""CANNOT ADD SELECTIONS THROUGH FILEMAN!!"") I 0"
^DD(124.31,1,0)="APPENDED/INTERNAL TEXT^FXI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>175!($L(X)<1)!'(X'?1P.E!(X?1""|"".E)) X I $D(X) D EN2^GMRGUT3"
^DD(124.31,1,1,0)="^.1^^0"
^DD(124.31,1,3)="ANSWER MUST BE 1-175 CHARACTERS IN LENGTH. Enter ""???"" for more information."
^DD(124.31,1,8.5)="^"
^DD(124.31,1,9)="^"
^DD(124.31,1,21,0)="^^5^5^2951002^^^^"
^DD(124.31,1,21,1,0)="Any additional free text for a SELECTION is entered here.  Multiple values"
^DD(124.31,1,21,2,0)="are allowed with the horizontal bar (|) used as a delimiter.  The first"
^DD(124.31,1,21,3,0)="piece is equal to the free text appended to the end of an aggregate term,"
^DD(124.31,1,21,4,0)="and all subsequent pieces are equal to any [ embedded ] free text"
^DD(124.31,1,21,5,0)="within an AGGREGATE TERM."
^DD(124.31,1,"DT")="2890706"
^DD(124.31,2,0)="ADDITIONAL TEXT^FXI^^ADD;1^K:X[""""""""!($A(X)=45) X I $D(X) K:(X?1P.E)!($L(X)>245)!($L(X)<1) X I $D(X),'$P($G(^GMRD(124.2,+$P(^GMR(124.3,DA(1),1,DA,0),U),0)),U,9) D EN^DDIOL($C(7)_""Ask Additional Text flag not set."") K X"
^DD(124.31,2,1,0)="^.1^^0"
^DD(124.31,2,3)="Answer must be 1-245 characters in length."
^DD(124.31,2,8.5)="^"
^DD(124.31,2,9)="^"
^DD(124.31,2,21,0)="^^1^1^2891004^^^^"
^DD(124.31,2,21,1,0)="This is additional text that is applicable for this term."
^DD(124.31,2,"DT")="2890706"
^DD(124.31,3,0)="AUDIT TRAIL^124.313IDA^^2;0"
^DD(124.31,3,21,0)="^^2^2^2891004^^^"
^DD(124.31,3,21,1,0)="This is an audit trail on this selection used by the General Medical Record"
^DD(124.31,3,21,2,0)="Treatment Planner to determine the status of this selection."
^DD(124.31,4,0)="ADDED^RSI^0:NO;1:YES;^0;3^Q"
^DD(124.31,4,1,0)="^.1"
^DD(124.31,4,1,1,0)="124.31^ANOT^MUMPS"
^DD(124.31,4,1,1,1)="S:'X ^GMR(124.3,DA(1),1,""ANOT"",DA)="""""
^DD(124.31,4,1,1,2)="K ^GMR(124.3,DA(1),1,""ANOT"",DA)"
^DD(124.31,4,1,1,"%D",0)="^^3^3^2951002^"
^DD(124.31,4,1,1,"%D",1,0)="This cross-reference sets the (""ANOT"") index which is a regular index"
^DD(124.31,4,1,1,"%D",2,0)="of the Selection sub-file of the Added (4) sub-field.  This index is"
^DD(124.31,4,1,1,"%D",3,0)="only set if the value of the Added field is 'NO'."
^DD(124.31,4,8)="^"
^DD(124.31,4,8.5)="^"
^DD(124.31,4,9)="^"
^DD(124.31,4,21,0)="^^3^3^2891004^^"
^DD(124.31,4,21,1,0)="This is a flag that is stuffed in directly by the patient data edit.  This"
^DD(124.31,4,21,2,0)="flag denotes whether this term has been added into the patient care plan or"
^DD(124.31,4,21,3,0)="not."
^DD(124.31,4,"DT")="2890706"
^DD(124.31,"B","ADDED",4)=""
^DD(124.31,"B","ADDITIONAL TEXT",2)=""
^DD(124.31,"B","APPENDED/INTERNAL TEXT",1)=""
^DD(124.31,"B","AUDIT TRAIL",3)=""
^DD(124.31,"B","SELECTION",.01)=""
^DD(124.31,"GL",0,1,.01)=""
^DD(124.31,"GL",0,2,1)=""
^DD(124.31,"GL",0,3,4)=""
^DD(124.31,"GL",2,0,3)=""
^DD(124.31,"GL","ADD",1,2)=""
^DD(124.31,"IX",.01)=""
^DD(124.31,"IX",4)=""
^DD(124.31,"RQ",4)=""
^DD(124.31,"SB",124.313,3)=""
^DD(124.313,0)="AUDIT TRAIL SUB-FIELD^^4^5"
^DD(124.313,0,"DT")="2920109"
^DD(124.313,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(124.313,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(124.313,0,"IX","AA",124.313,.01)=""
^DD(124.313,0,"IX","AA01",124.313,1)=""
^DD(124.313,0,"IX","AUT",124.313,.01)=""
^DD(124.313,0,"NM","AUDIT TRAIL")=""
^DD(124.313,0,"UP")="124.31"
^DD(124.313,.01,0)="AUDIT TRAIL DATE/TIME^RDI^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(124.313,.01,1,0)="^.1"
^DD(124.313,.01,1,1,0)="124.313^AUT^MUMPS"
^DD(124.313,.01,1,1,1)="S GMRG=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),""^"",3),1:""""),GMRG(0)=X S:GMRG="""" X=DUZ,$P(^(0),""^"",3)=X X:GMRG="""" ""F GMRG=0:0 S GMRG=$O(^DD(124.313,2,1,GMRG)) Q:GMRG'>0  X:$D(^DD(124.313,2,1,GMRG,1)) ^(1)"" S X=GMRG(0) K GMRG"
^DD(124.313,.01,1,1,2)="Q"
^DD(124.313,.01,1,1,"%D",0)="^^4^4^2951002^"
^DD(124.313,.01,1,1,"%D",1,0)="This cross-reference triggers the value of DUZ into the User Who Modified"
^DD(124.313,.01,1,1,"%D",2,0)="(2) sub-field of the Audit Trail sub-file if that field has no data in"
^DD(124.313,.01,1,1,"%D",3,0)="it.  This will ensure that a user will be associated with each Audit"
^DD(124.313,.01,1,1,"%D",4,0)="Trail entry."
^DD(124.313,.01,1,2,0)="124.313^AA^MUMPS"
^DD(124.313,.01,1,2,1)="S GMRG(2)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),""^"",2),1:"""") S:GMRG(2)'="""" ^GMR(124.3,DA(2),1,DA(1),2,""AA"",9999999-X,GMRG(2),DA)="""" K GMRG S GMRG=1 D EN7^GMRGUT1"
^DD(124.313,.01,1,2,2)="S GMRG(2)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),""^"",2),1:"""") K:GMRG(2)'="""" ^GMR(124.3,DA(2),1,DA(1),2,""AA"",9999999-X,GMRG(2),DA) K GMRG S GMRG=0 D EN7^GMRGUT1"
^DD(124.313,.01,1,2,"%D",0)="^^27^27^2951002^^^^"
^DD(124.313,.01,1,2,"%D",1,0)="This cross-reference does two things."
^DD(124.313,.01,1,2,"%D",2,0)=" "
^DD(124.313,.01,1,2,"%D",3,0)="First it sets a multi-field (""AA"") index on the Audit Trail sub-file with"
^DD(124.313,.01,1,2,"%D",4,0)="the Audit Trail Date/Time (.01) and Modificatino (1) sub-fields of the"
^DD(124.313,.01,1,2,"%D",5,0)="Audit Trail sub-file.  The structure of this cross-reference is:"
^DD(124.313,.01,1,2,"%D",6,0)="  ^GMR(124.3,DA(2),1,DA(1),2,""AA"",9999999-Audit_Trail_D/T,Modification,DA)=""""."
^DD(124.313,.01,1,2,"%D",7,0)=" "
^DD(124.313,.01,1,2,"%D",8,0)="Secondly, this cross-reference sets part of the (""ALIST"") index on the"
^DD(124.313,.01,1,2,"%D",9,0)="Selection sub-file.  This index represents the order in which the terms"
^DD(124.313,.01,1,2,"%D",10,0)="were selected for this entry.  This index takes the value of the Selection"
^DD(124.313,.01,1,2,"%D",11,0)="(.01) sub-field of the Selection sub-file associated with this Audit Trail"
^DD(124.313,.01,1,2,"%D",12,0)="entry and checks to see if this modification is an add or delete.  If it's"
^DD(124.313,.01,1,2,"%D",13,0)="an add, then it will update the ""ALIST"" cross-reference to indicate that"
^DD(124.313,.01,1,2,"%D",14,0)="this Selection is currently part of the data.  This includes ensuring the"
^DD(124.313,.01,1,2,"%D",15,0)="""ALIST"" index exists for this Selection, and that any parents of the"
^DD(124.313,.01,1,2,"%D",16,0)="Selection present in the ""ALIST"" index have their child list updated to"
^DD(124.313,.01,1,2,"%D",17,0)="indicate that this Selection is a child for its parent.  If it's a delete,"
^DD(124.313,.01,1,2,"%D",18,0)="then it updates the ""ALIST"" cross-reference to indicate that this Selection"
^DD(124.313,.01,1,2,"%D",19,0)="is not part of the data by removing the ""ALIST"" entry for the Selection and"
^DD(124.313,.01,1,2,"%D",20,0)="removes this Selection from its parent's children lists. The structure of"
^DD(124.313,.01,1,2,"%D",21,0)="the index is:"
^DD(124.313,.01,1,2,"%D",22,0)="  ^GMR(124.3,DA(1),1,""ALIST"",Selection,#)=""^child1^child2^..."""
^DD(124.313,.01,1,2,"%D",23,0)="where # is an integer ranging from 1 to the number of entries in the"
^DD(124.313,.01,1,2,"%D",24,0)="index for the particular Selection.  The cross-reference is equal to an"
^DD(124.313,.01,1,2,"%D",25,0)="^ delimited list of the children selected for the particular entry being"
^DD(124.313,.01,1,2,"%D",26,0)="indexed.  If the list of children is longer than 245 characters, it"
^DD(124.313,.01,1,2,"%D",27,0)="overflows to the next # subscript."
^DD(124.313,.01,1,3,0)="124.31^AUPD^MUMPS"
^DD(124.313,.01,1,3,1)="D UPD^GMRGUT4(1)"
^DD(124.313,.01,1,3,2)="D UPD^GMRGUT4(2)"
^DD(124.313,.01,1,3,"%D",0)="^^2^2^2960306^"
^DD(124.313,.01,1,3,"%D",1,0)="This cross-reference triggers data into the Date Last Updated (6) field"
^DD(124.313,.01,1,3,"%D",2,0)="of the GMR Text file."
^DD(124.313,.01,1,3,"DT")="2960306"
^DD(124.313,.01,3)="ENTER DATE/TIME RECORD WAS MODIFIED"
^DD(124.313,.01,8.5)="^"
^DD(124.313,.01,9)="^"
^DD(124.313,.01,21,0)="^^1^1^2891004^^^^"
^DD(124.313,.01,21,1,0)=" Date/time of the modification of this selection."
^DD(124.313,.01,"DEL",1,0)="I 1 D EN^DDIOL(""YOU CANNOT DELETE AUDIT TRAIL ENTRIES!!"")"
^DD(124.313,.01,"DT")="2960306"
^DD(124.313,.01,"LAYGO",1,0)="D EN^DDIOL(""NEW ENTRIES CANNOT BE ADDED THROUGH FILEMAN!!"") I 0"
^DD(124.313,1,0)="MODIFICATION^R*SIX^0:DELETE;1:CREATE;2:EDIT;^0;2^D EN3^GMRGUT3 K DIC(""S"") Q"
^DD(124.313,1,1,0)="^.1^^-1"
^DD(124.313,1,1,1,0)="124.313^AA01^MUMPS"
^DD(124.313,1,1,1,1)="S GMRG(1)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),""^""),1:"""") S:GMRG(1)'="""" ^GMR(124.3,DA(2),1,DA(1),2,""AA"",9999999-GMRG(1),X,DA)="""" K GMRG S GMRG=1 D EN7^GMRGUT1"
^DD(124.313,1,1,1,2)="S GMRG(1)=$S($D(^GMR(124.3,DA(2),1,DA(1),2,DA,0)):$P(^(0),""^""),1:"""") K:GMRG(1)'="""" ^GMR(124.3,DA(2),1,DA(1),2,""AA"",9999999-GMRG(1),X,DA) K GMRG S GMRG=0 D EN7^GMRGUT1"
^DD(124.313,1,1,1,"%D",0)="^^26^26^2951002^^"
^DD(124.313,1,1,1,"%D",1,0)="This cross-reference does two things."
^DD(124.313,1,1,1,"%D",2,0)=" "
^DD(124.313,1,1,1,"%D",3,0)="First it sets a multi-field (""AA"") index on the Audit Trail sub-file with"
^DD(124.313,1,1,1,"%D",4,0)="the Audit Trail Date/Time (.01) and Modificatino (1) sub-fields of the"
^DD(124.313,1,1,1,"%D",5,0)="Audit Trail sub-file.  The structure of this cross-reference is:"
^DD(124.313,1,1,1,"%D",6,0)="  ^GMR(124.3,DA(2),1,DA(1),2,""AA"",9999999-Audit_Trail_D/T,Modification,DA)=""""."
^DD(124.313,1,1,1,"%D",7,0)=" "
^DD(124.313,1,1,1,"%D",8,0)="Secondly, this cross-reference sets part of the (""ALIST"") index on the"
^DD(124.313,1,1,1,"%D",9,0)="Selection sub-file.  This index represents the order in which the terms"
^DD(124.313,1,1,1,"%D",10,0)="were selected for this entry.  This index takes the value of the Selection"
^DD(124.313,1,1,1,"%D",11,0)="(.01) sub-field of the Selection sub-file associated with this Audit Trail"
^DD(124.313,1,1,1,"%D",12,0)="entry and checks to see if this modification is an add or delete.  If it's"
^DD(124.313,1,1,1,"%D",13,0)="an add, then it will update the ""ALIST"" cross-reference to indicate that"
^DD(124.313,1,1,1,"%D",14,0)="this Selection is currently part of the data.  This includes ensuring the"
^DD(124.313,1,1,1,"%D",15,0)="""ALIST"" index exists for this Selection, and that any parents of the"
^DD(124.313,1,1,1,"%D",16,0)="Selection present in the ""ALIST"" index have their child list updated to"
^DD(124.313,1,1,1,"%D",17,0)="indicate that this Selection is a child for its parent.  If it's a delete,"
^DD(124.313,1,1,1,"%D",18,0)="then it updates the ""ALIST"" cross-reference to indicate that this Selection"
^DD(124.313,1,1,1,"%D",19,0)="is not part of the data by removing the ""ALIST"" entry for the Selection and"
^DD(124.313,1,1,1,"%D",20,0)="removes this Selection from its parent's children lists. The structure of"
^DD(124.313,1,1,1,"%D",21,0)="the index is:  ^GMR(124.3,DA(1),1,""ALIST"",Selection,#)=""^child1^child2^..."""
^DD(124.313,1,1,1,"%D",22,0)="where # is an integer ranging from 1 to the number of entries in the"
^DD(124.313,1,1,1,"%D",23,0)="index for the particular Selection.  The cross-reference is equal to an"
^DD(124.313,1,1,1,"%D",24,0)="^ delimited list of the children selected for the particular entry being"
^DD(124.313,1,1,1,"%D",25,0)="indexed.  If the list of children is longer than 245 characters, it"
^DD(124.313,1,1,1,"%D",26,0)="overflows to the next # subscript."
^DD(124.313,1,3)="ENTER DELETE, CREATE, OR EDIT."
^DD(124.313,1,8.5)="^"
^DD(124.313,1,9)="^"
^DD(124.313,1,12)="The only valid selections are:"
^DD(124.313,1,12.1)="S DIC(""S"")=""D EN2^GMRGUTL"""
^DD(124.313,1,21,0)="^^1^1^2881013^^"
^DD(124.313,1,21,1,0)="The type of modification that was made."
^DD(124.313,1,"DT")="2890707"
^DD(124.313,2,0)="USER WHO MODIFIED^RP200'I^VA(200,^0;3^Q"
^DD(124.313,2,3)="ENTER THE NAME OF THE USER WHO MODIFIED THIS RECORD"
^DD(124.313,2,8.5)="^"
^DD(124.313,2,9)="^"
^DD(124.313,2,21,0)="^^1^1^2881013^"
^DD(124.313,2,21,1,0)="User who made this modification."
^DD(124.313,2,"DT")="2920109"
^DD(124.313,3,0)="APPENDED/INTERNAL TEXT^FXI^^0;4^K:$L(X)>175!($L(X)<1)!'(X'?1P.E!(X?1""|"".E)) X"
^DD(124.313,3,3)="Enter appended/internal text that exist for this Care Plan on this date and time."
^DD(124.313,3,8.5)="^"
^DD(124.313,3,9)="^"
^DD(124.313,3,21,0)="^^2^2^2891004^^"
^DD(124.313,3,21,1,0)="This is the appended/internal text that existed at this date/time for this"
^DD(124.313,3,21,2,0)="care plan."
^DD(124.313,3,"DT")="2890706"
^DD(124.313,4,0)="ADDITIONAL TEXT^FXI^^ADD;1^K:$L(X)>245!($L(X)<1)!'(X'?1P.E) X"
^DD(124.313,4,3)="Answer must be 1-245 characters in length."
^DD(124.313,4,8.5)="^"
^DD(124.313,4,9)="^"
^DD(124.313,4,21,0)="^^1^1^2900725^^"
^DD(124.313,4,21,1,0)="The additional text for a term at this point in time."
^DD(124.313,4,"DT")="2890706"
^DD(124.313,"B","ADDITIONAL TEXT",4)=""
^DD(124.313,"B","APPENDED/INTERNAL TEXT",3)=""
^DD(124.313,"B","AUDIT TRAIL DATE/TIME",.01)=""
^DD(124.313,"B","MODIFICATION",1)=""
^DD(124.313,"B","USER WHO MODIFIED",2)=""
^DD(124.313,"GL",0,1,.01)=""
^DD(124.313,"GL",0,2,1)=""
^DD(124.313,"GL",0,3,2)=""
^DD(124.313,"GL",0,4,3)=""
^DD(124.313,"GL","ADD",1,4)=""
^DD(124.313,"IX",.01)=""
^DD(124.313,"IX",1)=""
^DD(124.313,"RQ",.01)=""
^DD(124.313,"RQ",1)=""
^DD(124.313,"RQ",2)=""
^DD(125,0)="FIELD^^.03^3"
^DD(125,0,"DDA")="N"
^DD(125,0,"DT")="2940202"
^DD(125,0,"ID",.03)="W """""
^DD(125,0,"IX","B",125,.01)=""
^DD(125,0,"IX","C",125,.03)=""
^DD(125,0,"NM","PROBLEM SELECTION LIST")=""
^DD(125,0,"PT",125.1,.01)=""
^DD(125,0,"PT",200,125.1)=""
^DD(125,0,"VR")="2.0"
^DD(125,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(125,.01,1,0)="^.1"
^DD(125,.01,1,1,0)="125^B"
^DD(125,.01,1,1,1)="S ^GMPL(125,""B"",$E(X,1,30),DA)="""""
^DD(125,.01,1,1,2)="K ^GMPL(125,""B"",$E(X,1,30),DA)"
^DD(125,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(125,.01,21,0)="^^3^3^2931004^"
^DD(125,.01,21,1,0)="This is a free text name for the list; it should contain the name of"
^DD(125,.01,21,2,0)="the clinic or user who will be the primary user(s) of this list, as this"
^DD(125,.01,21,3,0)="name will be used as an ID and a title."
^DD(125,.02,0)="DATE LAST MODIFIED^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(125,.02,3)="Enter the date/time this list was last edited."
^DD(125,.02,21,0)="^^2^2^2940107^^"
^DD(125,.02,21,1,0)="This is the date[/time] this list was last changed in any way; this value"
^DD(125,.02,21,2,0)="is stuffed in by the Problem List pkg utilities that manage this file."
^DD(125,.02,"DT")="2931004"
^DD(125,.03,0)="CLINIC^*P44'^SC(^0;3^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(125,.03,1,0)="^.1"
^DD(125,.03,1,1,0)="125^C"
^DD(125,.03,1,1,1)="S ^GMPL(125,""C"",$E(X,1,30),DA)="""""
^DD(125,.03,1,1,2)="K ^GMPL(125,""C"",$E(X,1,30),DA)"
^DD(125,.03,1,1,"DT")="2940107"
^DD(125,.03,3)="Enter the clinic to be associated with this list."
^DD(125,.03,12)="Only hospital locations that are clinics are allowed."
^DD(125,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(125,.03,21,0)="^^4^4^2940202^^^^"
^DD(125,.03,21,1,0)="This is the clinic to be associated with this list.  This should be the"
^DD(125,.03,21,2,0)="primary clinic in which this list will be used to populate patient"
^DD(125,.03,21,3,0)="problem lists; when adding new problems for a patient from this clinic,"
^DD(125,.03,21,4,0)="this list will automatically be presented to select problems from."
^DD(125,.03,"DT")="2940202"
^DD(125,"B","CLINIC",.03)=""
^DD(125,"B","DATE LAST MODIFIED",.02)=""
^DD(125,"B","NAME",.01)=""
^DD(125,"GL",0,1,.01)=""
^DD(125,"GL",0,2,.02)=""
^DD(125,"GL",0,3,.03)=""
^DD(125,"IX",.01)=""
^DD(125,"IX",.03)=""
^DD(125,"RQ",.01)=""
^DD(125.1,0)="FIELD^^4^5"
^DD(125.1,0,"DDA")="N"
^DD(125.1,0,"DT")="2931210"
^DD(125.1,0,"IX","B",125.1,.01)=""
^DD(125.1,0,"IX","C",125.1,.01)=""
^DD(125.1,0,"IX","C1",125.1,1)=""
^DD(125.1,0,"IX","G",125.1,2)=""
^DD(125.1,0,"NM","PROBLEM SELECTION LIST CONTENTS")=""
^DD(125.1,0,"VR")="2.0"
^DD(125.1,.01,0)="LIST^RP125'^GMPL(125,^0;1^Q"
^DD(125.1,.01,1,0)="^.1"
^DD(125.1,.01,1,1,0)="125.1^B"
^DD(125.1,.01,1,1,1)="S ^GMPL(125.1,""B"",$E(X,1,30),DA)="""""
^DD(125.1,.01,1,1,2)="K ^GMPL(125.1,""B"",$E(X,1,30),DA)"
^DD(125.1,.01,1,2,0)="125.1^C^MUMPS"
^DD(125.1,.01,1,2,1)="S:$P(^GMPL(125.1,DA,0),U,2) ^GMPL(125.1,""C"",X,$P(^(0),U,2),DA)="""""
^DD(125.1,.01,1,2,2)="K:$P(^GMPL(125.1,DA,0),U,2) ^GMPL(125.1,""C"",X,$P(^(0),U,2),DA)"
^DD(125.1,.01,1,2,"%D",0)="^^1^1^2940511^^^^"
^DD(125.1,.01,1,2,"%D",1,0)="Allows retrieval of list contents in sequenced order."
^DD(125.1,.01,1,2,"DT")="2931015"
^DD(125.1,.01,3)="Enter the list for which you wish to add, edit, or remove problem groups."
^DD(125.1,.01,21,0)="^^3^3^2931004^"
^DD(125.1,.01,21,1,0)="This is the Problem Selection List which is to contain the problem group"
^DD(125.1,.01,21,2,0)="entered in field #1; this group may be assigned a sequence number for"
^DD(125.1,.01,21,3,0)="ordering and a subheader as well here."
^DD(125.1,.01,"DT")="2931015"
^DD(125.1,1,0)="SEQUENCE^NJ6,2^^0;2^K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(125.1,1,1,0)="^.1"
^DD(125.1,1,1,1,0)="125.1^C1^MUMPS"
^DD(125.1,1,1,1,1)="S ^GMPL(125.1,""C"",$P(^GMPL(125.1,DA,0),U),X,DA)="""""
^DD(125.1,1,1,1,2)="K ^GMPL(125.1,""C"",$P(^GMPL(125.1,DA,0),U),X,DA)"
^DD(125.1,1,1,1,"%D",0)="^^1^1^2940511^^^^"
^DD(125.1,1,1,1,"%D",1,0)="Allows retrieval of list contents in sequenced order."
^DD(125.1,1,1,1,"DT")="2940511"
^DD(125.1,1,3)="Type a Number between .01 and 999.99, 2 Decimal Digits"
^DD(125.1,1,21,0)="^^2^2^2931006^^"
^DD(125.1,1,21,1,0)="This is a number which will determine the order this group will appear"
^DD(125.1,1,21,2,0)="in the current list; up to two decimal places may be used."
^DD(125.1,1,"DT")="2940511"
^DD(125.1,2,0)="CATEGORY^P125.11^GMPL(125.11,^0;3^Q"
^DD(125.1,2,1,0)="^.1"
^DD(125.1,2,1,1,0)="125.1^G"
^DD(125.1,2,1,1,1)="S ^GMPL(125.1,""G"",$E(X,1,30),DA)="""""
^DD(125.1,2,1,1,2)="K ^GMPL(125.1,""G"",$E(X,1,30),DA)"
^DD(125.1,2,1,1,"DT")="2931015"
^DD(125.1,2,3)="Enter the problem category you wish to include in this list."
^DD(125.1,2,21,0)="^^2^2^2931129^^^^"
^DD(125.1,2,21,1,0)="This is the category whose problem items are to be included in the current"
^DD(125.1,2,21,2,0)="list; it may have a subheader in this list, and a designated order."
^DD(125.1,2,"DT")="2931129"
^DD(125.1,3,0)="SUBHEADER^F^^0;4^K:$L(X)>30!($L(X)<2) X"
^DD(125.1,3,3)="Answer must be 2-30 characters in length."
^DD(125.1,3,21,0)="^^3^3^2931004^"
^DD(125.1,3,21,1,0)="This is text which will appear in the list as a subheader or title to"
^DD(125.1,3,21,2,0)="this group of problems.  It will have a single blank row between it and"
^DD(125.1,3,21,3,0)="the previous problem group, and it will be underlined."
^DD(125.1,3,"DT")="2931126"
^DD(125.1,4,0)="SHOW PROBLEMS^S^1:YES;0:NO;^0;5^Q"
^DD(125.1,4,3)="Enter YES to immediately display the problems in this category when using this list for selection."
^DD(125.1,4,21,0)="^^4^4^2931221^^^"
^DD(125.1,4,21,1,0)="This field controls the initial display of this category in this selection"
^DD(125.1,4,21,2,0)="list.  If set to YES, the problems will automatically be displayed as part"
^DD(125.1,4,21,3,0)="of the list when it is initially built and displayed; if null or NO, the"
^DD(125.1,4,21,4,0)="category must be selected in order to expand the list and show the problems."
^DD(125.1,4,"DT")="2931221"
^DD(125.1,"B","CATEGORY",2)=""
^DD(125.1,"B","LIST",.01)=""
^DD(125.1,"B","SEQUENCE",1)=""
^DD(125.1,"B","SHOW PROBLEMS",4)=""
^DD(125.1,"B","SUBHEADER",3)=""
^DD(125.1,"GL",0,1,.01)=""
^DD(125.1,"GL",0,2,1)=""
^DD(125.1,"GL",0,3,2)=""
^DD(125.1,"GL",0,4,3)=""
^DD(125.1,"GL",0,5,4)=""
^DD(125.1,"IX",.01)=""
^DD(125.1,"IX",1)=""
^DD(125.1,"IX",2)=""
^DD(125.1,"RQ",.01)=""
^DD(125.11,0)="FIELD^^1^2"
^DD(125.11,0,"DDA")="N"
^DD(125.11,0,"DT")="2931005"
^DD(125.11,0,"IX","B",125.11,.01)=""
^DD(125.11,0,"NM","PROBLEM SELECTION CATEGORY")=""
^DD(125.11,0,"PT",125.1,2)=""
^DD(125.11,0,"PT",125.12,.01)=""
^DD(125.11,0,"VR")="2.0"
^DD(125.11,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(125.11,.01,1,0)="^.1"
^DD(125.11,.01,1,1,0)="125.11^B"
^DD(125.11,.01,1,1,1)="S ^GMPL(125.11,""B"",$E(X,1,30),DA)="""""
^DD(125.11,.01,1,1,2)="K ^GMPL(125.11,""B"",$E(X,1,30),DA)"
^DD(125.11,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(125.11,.01,21,0)="^^1^1^2931004^"
^DD(125.11,.01,21,1,0)="This is the name given to this problem group to identify and describe it."
^DD(125.11,1,0)="DATE LAST MODIFIED^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(125.11,1,3)="Enter the date/time this problem group was edited last."
^DD(125.11,1,21,0)="^^2^2^2931005^"
^DD(125.11,1,21,1,0)="This is the date/time this group was last changed; it is stuffed in"
^DD(125.11,1,21,2,0)="by the Problem List pkg utilities."
^DD(125.11,1,"DT")="2931005"
^DD(125.11,"B","DATE LAST MODIFIED",1)=""
^DD(125.11,"B","NAME",.01)=""
^DD(125.11,"GL",0,1,.01)=""
^DD(125.11,"GL",0,2,1)=""
^DD(125.11,"IX",.01)=""
^DD(125.11,"RQ",.01)=""
^DD(125.12,0)="FIELD^^4^5"
^DD(125.12,0,"DDA")="N"
^DD(125.12,0,"DT")="2931007"
^DD(125.12,0,"IX","B",125.12,.01)=""
^DD(125.12,0,"IX","C",125.12,.01)=""
^DD(125.12,0,"IX","C1",125.12,1)=""
^DD(125.12,0,"NM","PROBLEM SELECTION CATEGORY CONTENTS")=""
^DD(125.12,0,"VR")="2.0"
^DD(125.12,.01,0)="CATEGORY^RP125.11'^GMPL(125.11,^0;1^Q"
^DD(125.12,.01,1,0)="^.1"
^DD(125.12,.01,1,1,0)="125.12^B"
^DD(125.12,.01,1,1,1)="S ^GMPL(125.12,""B"",$E(X,1,30),DA)="""""
^DD(125.12,.01,1,1,2)="K ^GMPL(125.12,""B"",$E(X,1,30),DA)"
^DD(125.12,.01,1,2,0)="125.12^C^MUMPS"
^DD(125.12,.01,1,2,1)="S:$P(^GMPL(125.12,DA,0),U,2) ^GMPL(125.12,""C"",X,$P(^(0),U,2),DA)="""""
^DD(125.12,.01,1,2,2)="K:$P(^GMPL(125.12,DA,0),U,2) ^GMPL(125.12,""C"",X,$P(^(0),U,2),DA)"
^DD(125.12,.01,1,2,"%D",0)="^^1^1^2940125^^^"
^DD(125.12,.01,1,2,"%D",1,0)="Allows retrieval of problem categories in sequenced order."
^DD(125.12,.01,1,2,"DT")="2931005"
^DD(125.12,.01,3)="Enter the problem category to which this problem belongs."
^DD(125.12,.01,21,0)="^^1^1^2931129^^"
^DD(125.12,.01,21,1,0)="This is the problem category that this problem entry belongs to."
^DD(125.12,.01,"DT")="2931129"
^DD(125.12,1,0)="SEQUENCE NUMBER^NJ6,2^^0;2^K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(125.12,1,1,0)="^.1"
^DD(125.12,1,1,1,0)="125.12^C1^MUMPS"
^DD(125.12,1,1,1,1)="S ^GMPL(125.12,""C"",$P(^GMPL(125.12,DA,0),U),X,DA)="""""
^DD(125.12,1,1,1,2)="K ^GMPL(125.12,""C"",$P(^GMPL(125.12,DA,0),U),X,DA)"
^DD(125.12,1,1,1,"%D",0)="^^1^1^2940125^^"
^DD(125.12,1,1,1,"%D",1,0)="Allows retrieval of problem categories in sequenced order."
^DD(125.12,1,1,1,"DT")="2931005"
^DD(125.12,1,3)="Type a Number between .01 and 999.99, 2 Decimal Digits"
^DD(125.12,1,21,0)="^^4^4^2931005^"
^DD(125.12,1,21,1,0)="This is a number which determines the order this problem will appear"
^DD(125.12,1,21,2,0)="within this group; up to two decimal places may be used.  Problems"
^DD(125.12,1,21,3,0)="in a selection list will be automatically numbered for display and"
^DD(125.12,1,21,4,0)="selection in whole numbers, beginning with 1."
^DD(125.12,1,"DT")="2931005"
^DD(125.12,2,0)="PROBLEM^P757.01'^LEX(757.01,^0;3^Q"
^DD(125.12,2,3)="Enter the problem you wish to include in this group."
^DD(125.12,2,21,0)="^^2^2^2931005^"
^DD(125.12,2,21,1,0)="This is a problem from the Clinical Lexicon Utility, which is to be"
^DD(125.12,2,21,2,0)="included in this group."
^DD(125.12,2,"DT")="2931005"
^DD(125.12,3,0)="DISPLAY TEXT^F^^0;4^K:$L(X)>80!($L(X)<2) X"
^DD(125.12,3,3)="Answer must be 2-80 characters in length."
^DD(125.12,3,21,0)="^^4^4^2931005^"
^DD(125.12,3,21,1,0)="This is the text of the problem as it is to appear on the selection list"
^DD(125.12,3,21,2,0)="display; if a suitable match was not found during a search of the Clinical"
^DD(125.12,3,21,3,0)="Lexicon Utility and an 'Unresolved' entry was returned, this will be the"
^DD(125.12,3,21,4,0)="text as specified by the user."
^DD(125.12,3,"DT")="2931005"
^DD(125.12,4,0)="CODE^F^^0;5^K:$L(X)>15!($L(X)<2) X"
^DD(125.12,4,3)="Enter the code (ICD, CPT, etc) you wish to have displayed with this problem."
^DD(125.12,4,21,0)="^^3^3^2931007^"
^DD(125.12,4,21,1,0)="This is a code which is to be displayed with the text of this problem;"
^DD(125.12,4,21,2,0)="it may be from any coding system, but will generally be assumed to be"
^DD(125.12,4,21,3,0)="an ICD Diagnosis in the Problem List context."
^DD(125.12,4,"DT")="2931007"
^DD(125.12,"B","CATEGORY",.01)=""
^DD(125.12,"B","CODE",4)=""
^DD(125.12,"B","DISPLAY TEXT",3)=""
^DD(125.12,"B","PROBLEM",2)=""
^DD(125.12,"B","SEQUENCE NUMBER",1)=""
^DD(125.12,"GL",0,1,.01)=""
^DD(125.12,"GL",0,2,1)=""
^DD(125.12,"GL",0,3,2)=""
^DD(125.12,"GL",0,4,3)=""
^DD(125.12,"GL",0,5,4)=""
^DD(125.12,"IX",.01)=""
^DD(125.12,"IX",1)=""
^DD(125.12,"RQ",.01)=""
^DD(125.8,0)="FIELD^^10^9"
^DD(125.8,0,"DDA")="N"
^DD(125.8,0,"DT")="2930412"
^DD(125.8,0,"IX","AD",125.8,.01)=""
^DD(125.8,0,"IX","AD1",125.8,2)=""
^DD(125.8,0,"IX","B",125.8,.01)=""
^DD(125.8,0,"NM","PROBLEM LIST AUDIT")=""
^DD(125.8,0,"VR")="2.0"
^DD(125.8,.01,0)="PROBLEM^RP9000011'^AUPNPROB(^0;1^Q"
^DD(125.8,.01,1,0)="^.1"
^DD(125.8,.01,1,1,0)="125.8^B"
^DD(125.8,.01,1,1,1)="S ^GMPL(125.8,""B"",$E(X,1,30),DA)="""""
^DD(125.8,.01,1,1,2)="K ^GMPL(125.8,""B"",$E(X,1,30),DA)"
^DD(125.8,.01,1,2,0)="125.8^AD^MUMPS"
^DD(125.8,.01,1,2,1)="S:+$P(^GMPL(125.8,DA,0),U,3) ^GMPL(125.8,""AD"",X,(9999999-$P(^(0),U,3)),DA)="""""
^DD(125.8,.01,1,2,2)="K ^GMPL(125.8,""AD"",X,+(9999999-$P(^GMPL(125.8,DA,0),U,3)),DA)"
^DD(125.8,.01,1,2,"%D",0)="^^1^1^2930603^"
^DD(125.8,.01,1,2,"%D",1,0)="Used to retrieve a problem's audit trail in reverse-chronological order."
^DD(125.8,.01,1,2,"DT")="2930603"
^DD(125.8,.01,3)=""
^DD(125.8,.01,21,0)="^^1^1^2940317^^"
^DD(125.8,.01,21,1,0)="This is the problem for which a change is being recorded."
^DD(125.8,.01,"DT")="2930603"
^DD(125.8,1,0)="FIELD NUMBER^RNJ9,4^^0;2^K:+X'=X!(X>9999.9999)!(X<.01)!(X?.E1"".""5N.N) X"
^DD(125.8,1,3)="Type a Number between .01 and 9999.9999, 4 Decimal Digits"
^DD(125.8,1,21,0)="^^1^1^2930908^"
^DD(125.8,1,21,1,0)="This is the number of the field for which a change is being recorded."
^DD(125.8,1,"DT")="2921028"
^DD(125.8,2,0)="DATE/TIME MODIFIED^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(125.8,2,1,0)="^.1"
^DD(125.8,2,1,1,0)="125.8^AD1^MUMPS"
^DD(125.8,2,1,1,1)="S ^GMPL(125.8,""AD"",$P(^GMPL(125.8,DA,0),U),(9999999-X),DA)="""""
^DD(125.8,2,1,1,2)="K ^GMPL(125.8,""AD"",$P(^GMPL(125.8,DA,0),U),(9999999-X),DA)"
^DD(125.8,2,1,1,"%D",0)="^^1^1^2930603^"
^DD(125.8,2,1,1,"%D",1,0)="Used to retrieve a problem's audit trail in reverse-chronological order."
^DD(125.8,2,1,1,"DT")="2930603"
^DD(125.8,2,21,0)="^^1^1^2930908^"
^DD(125.8,2,21,1,0)="This is the date and time that this data was changed."
^DD(125.8,2,"DT")="2930603"
^DD(125.8,3,0)="WHO MODIFIED^P200'^VA(200,^0;4^Q"
^DD(125.8,3,21,0)="^^2^2^2930908^^^"
^DD(125.8,3,21,1,0)="This is the user who actually made the change to this data; the current"
^DD(125.8,3,21,2,0)="user's DUZ is stuffed in here."
^DD(125.8,3,"DT")="2921028"
^DD(125.8,4,0)="OLD VALUE^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(125.8,4,3)="Answer must be 1-15 characters in length."
^DD(125.8,4,21,0)="^^2^2^2930908^"
^DD(125.8,4,21,1,0)="This is the original value as stored in the Problem file global"
^DD(125.8,4,21,2,0)="(internal format)."
^DD(125.8,4,"DT")="2921028"
^DD(125.8,5,0)="NEW VALUE^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(125.8,5,3)="Answer must be 1-15 characters in length."
^DD(125.8,5,21,0)="^^2^2^2930908^"
^DD(125.8,5,21,1,0)="This is the new value now stored in the Problem file global (internal"
^DD(125.8,5,21,2,0)="format)."
^DD(125.8,5,"DT")="2921028"
^DD(125.8,6,0)="REASON FOR CHANGE^F^^0;7^K:$L(X)>25!($L(X)<3) X"
^DD(125.8,6,3)="Answer must be 3-25 characters in length."
^DD(125.8,6,21,0)="^^1^1^2930908^"
^DD(125.8,6,21,1,0)="This is the description of why the change was made, if known."
^DD(125.8,6,"DT")="2921028"
^DD(125.8,7,0)="REQUESTING PROVIDER^P200'^VA(200,^0;8^Q"
^DD(125.8,7,21,0)="^^2^2^2930908^"
^DD(125.8,7,21,1,0)="This is the provider who either changed this data, or directed it to be"
^DD(125.8,7,21,2,0)="changed."
^DD(125.8,7,"DT")="2930305"
^DD(125.8,10,0)="OLD PROBLEM ENTRY^F^^1;1^K:$L(X)>150!($L(X)<1) X"
^DD(125.8,10,3)="Answer must be 1-150 characters in length."
^DD(125.8,10,21,0)="^^2^2^2930908^"
^DD(125.8,10,21,1,0)="This is the entire problem entry (internal format) as it existed prior"
^DD(125.8,10,21,2,0)="to changing this data."
^DD(125.8,10,23,0)="^^2^2^2930908^"
^DD(125.8,10,23,1,0)="This field consists of the original 0-node concatenated with an ""^"" and"
^DD(125.8,10,23,2,0)="the original 1-node, prior to modifying this data."
^DD(125.8,10,"DT")="2930305"
^DD(125.8,"B","DATE/TIME MODIFIED",2)=""
^DD(125.8,"B","FIELD NUMBER",1)=""
^DD(125.8,"B","NEW VALUE",5)=""
^DD(125.8,"B","OLD PROBLEM ENTRY",10)=""
^DD(125.8,"B","OLD VALUE",4)=""
^DD(125.8,"B","PROBLEM",.01)=""
^DD(125.8,"B","REASON FOR CHANGE",6)=""
^DD(125.8,"B","REQUESTING PROVIDER",7)=""
^DD(125.8,"B","WHO MODIFIED",3)=""
^DD(125.8,"GL",0,1,.01)=""
^DD(125.8,"GL",0,2,1)=""
^DD(125.8,"GL",0,3,2)=""
^DD(125.8,"GL",0,4,3)=""
^DD(125.8,"GL",0,5,4)=""
^DD(125.8,"GL",0,6,5)=""
^DD(125.8,"GL",0,7,6)=""
^DD(125.8,"GL",0,8,7)=""
^DD(125.8,"GL",1,1,10)=""
^DD(125.8,"IX",.01)=""
^DD(125.8,"IX",2)=""
^DD(125.8,"RQ",.01)=""
^DD(125.8,"RQ",1)=""
^DD(125.8,"RQ",2)=""
^DD(125.99,0)="FIELD^^6^7"
^DD(125.99,0,"DDA")="N"
^DD(125.99,0,"DT")="2950901"
^DD(125.99,0,"IX","B",125.99,.01)=""
^DD(125.99,0,"NM","PROBLEM LIST SITE PARAMETERS")=""
^DD(125.99,0,"VR")="2.0"
^DD(125.99,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(125.99,.001,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(125.99,.001,21,0)="^^1^1^2940310^"
^DD(125.99,.001,21,1,0)="This is the internal number of this file entry."
^DD(125.99,.001,"DT")="2940310"
^DD(125.99,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(125.99,.01,1,0)="^.1"
^DD(125.99,.01,1,1,0)="125.99^B"
^DD(125.99,.01,1,1,1)="S ^GMPL(125.99,""B"",$E(X,1,30),DA)="""""
^DD(125.99,.01,1,1,2)="K ^GMPL(125.99,""B"",$E(X,1,30),DA)"
^DD(125.99,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(125.99,.01,21,0)="^^1^1^2930401^"
^DD(125.99,.01,21,1,0)="This is the name of the site, commonly HOSPITAL or VAMC."
^DD(125.99,1,0)="VERIFY TRANSCRIBED PROBLEMS^S^1:YES;0:NO;^0;2^Q"
^DD(125.99,1,3)="Enter YES to flag transcribed entries for clinician verification."
^DD(125.99,1,21,0)="^^3^3^2930401^"
^DD(125.99,1,21,1,0)="This is a toggle which determines whether the PL application will"
^DD(125.99,1,21,2,0)="flag entries made by a non-clinical user, and allow for subsequent"
^DD(125.99,1,21,3,0)="confirmation of the entry by a clinician."
^DD(125.99,1,"DT")="2930324"
^DD(125.99,2,0)="PROMPT FOR CHART COPY^S^1:YES, ASK;0:NO, DON'T ASK;^0;3^Q"
^DD(125.99,2,3)="Enter YES to be prompted to print a new copy before exiting the patient's list, if it has been updated."
^DD(125.99,2,21,0)="^^4^4^2931102^^"
^DD(125.99,2,21,1,0)="This is a toggle which determines whether the PL application will"
^DD(125.99,2,21,2,0)="prompt the user to print a new chartable copy of the patient's list"
^DD(125.99,2,21,3,0)="when exiting the application or changing patients, if the current"
^DD(125.99,2,21,4,0)="patient's list has been modified."
^DD(125.99,2,"DT")="2930701"
^DD(125.99,3,0)="USE CLINICAL LEXICON^S^1:YES;0:NO;^0;4^Q"
^DD(125.99,3,3)="Enter YES to allow the user to search the Clinical Lexicon when adding to or editing a problem list; NO will bypass the search, capturing ONLY the free text."
^DD(125.99,3,21,0)="^^13^13^2931102^"
^DD(125.99,3,21,1,0)="This is a toggle which determines whether the PL application will"
^DD(125.99,3,21,2,0)="allow the user to search the Clinical Lexicon when adding or editing"
^DD(125.99,3,21,3,0)="a problem; if a term is selected from the CL Utility, the standardized"
^DD(125.99,3,21,4,0)="text will be displayed on the problem list, otherwise the text entered"
^DD(125.99,3,21,5,0)="by the user to search on will be displayed.  Problems which are taken"
^DD(125.99,3,21,6,0)="from the CLU may already be coded to ICD9, and this code is returned "
^DD(125.99,3,21,7,0)="to the PL application if available.  Duplicate problems can be screened"
^DD(125.99,3,21,8,0)="out, and searches by problem performed when this link to the CLU exists."
^DD(125.99,3,21,9,0)="   "
^DD(125.99,3,21,10,0)="If this flag is set to NO, the user will be prompted for his/her free"
^DD(125.99,3,21,11,0)="text description of the problem only, when adding or editing a problem."
^DD(125.99,3,21,12,0)="No search will be performed at that time on the CLU, and no link made"
^DD(125.99,3,21,13,0)="from the problem to an entry in the CLU."
^DD(125.99,3,"DT")="2931102"
^DD(125.99,4,0)="DISPLAY ORDER^S^C:CHRONOLOGICAL;R:REVERSE-CHRONOLOGICAL;^0;5^Q"
^DD(125.99,4,3)="Enter the order in which the problems should be displayed for your site, according to the date each problem was recorded."
^DD(125.99,4,21,0)="^^6^6^2940207^^^^"
^DD(125.99,4,21,1,0)="This flag allows each site to control how the problem list is displayed,"
^DD(125.99,4,21,2,0)="whether chronologically or reverse-chronologically by date recorded."
^DD(125.99,4,21,3,0)="This ordering will be the same both onscreen and on the printed copy."
^DD(125.99,4,21,4,0)="When new problems are added to a patient's list, they will be added as the"
^DD(125.99,4,21,5,0)="most recent problems, i.e. at the top of the list if reverse-chronological"
^DD(125.99,4,21,6,0)="or at the bottom if chronological."
^DD(125.99,4,"DT")="2940207"
^DD(125.99,6,0)="SCREEN DUPLICATE ENTRIES^S^1:YES;^0;6^Q"
^DD(125.99,6,3)="Enter '1' or 'YES' and non-interactive duplicate problems will be screened."
^DD(125.99,6,21,0)="^^3^3^2950901^^"
^DD(125.99,6,21,1,0)="If YES is entered in this field duplicate problems (those having the same "
^DD(125.99,6,21,2,0)="ICD9 code) will NOT be added to the problem list.  The primary purpose of"
^DD(125.99,6,21,3,0)="this field in to screen entries added via the scannable encounter form."
^DD(125.99,6,23,0)="^^5^5^2950901^"
^DD(125.99,6,23,1,0)="This field is being added with GMP*2*3 to preclude duplicate entries from"
^DD(125.99,6,23,2,0)="being entered on the problem list, primarily via the scannable encounter"
^DD(125.99,6,23,3,0)="form.  This parameter does NOT impact the interactive entry of problems"
^DD(125.99,6,23,4,0)="using the Problem List menu options.  Clinicians may continue to overide"
^DD(125.99,6,23,5,0)="the duplicate entry warning when working the list."
^DD(125.99,6,"DT")="2950901"
^DD(125.99,"B","DISPLAY ORDER",4)=""
^DD(125.99,"B","NAME",.01)=""
^DD(125.99,"B","NUMBER",.001)=""
^DD(125.99,"B","PROMPT FOR CHART COPY",2)=""
^DD(125.99,"B","SCREEN DUPLICATE ENTRIES",6)=""
^DD(125.99,"B","USE CLINICAL LEXICON",3)=""
^DD(125.99,"B","VERIFY TRANSCRIBED PROBLEMS",1)=""
^DD(125.99,"GL",0,1,.01)=""
^DD(125.99,"GL",0,2,1)=""
^DD(125.99,"GL",0,3,2)=""
^DD(125.99,"GL",0,4,3)=""
^DD(125.99,"GL",0,5,4)=""
^DD(125.99,"GL",0,6,6)=""
^DD(125.99,"IX",.01)=""
^DD(125.99,"RQ",.01)=""
^DD(126,0)="FIELD^^4^5"
^DD(126,0,"DDA")="N"
^DD(126,0,"DT")="2961007"
^DD(126,0,"IX","B",126,.01)=""
^DD(126,0,"IX","C",126.316,.01)=""
^DD(126,0,"NM","GMRY PATIENT I/O FILE")=""
^DD(126,0,"VR")="4.0"
^DD(126,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126,.01,0)="PATIENT^RP2'X^DPT(^0;1^S DINUM=X"
^DD(126,.01,1,0)="^.1"
^DD(126,.01,1,1,0)="126^B"
^DD(126,.01,1,1,1)="S ^GMR(126,""B"",$E(X,1,30),DA)="""""
^DD(126,.01,1,1,2)="K ^GMR(126,""B"",$E(X,1,30),DA)"
^DD(126,.01,1,1,"%D",0)="^^2^2^2970129^^^^"
^DD(126,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on .01 field of"
^DD(126,.01,1,1,"%D",2,0)="the file."
^DD(126,.01,3)=""
^DD(126,.01,21,0)="^^2^2^2950926^^^^"
^DD(126,.01,21,1,0)="This field identifies the patient for whom these intake/output measurements"
^DD(126,.01,21,2,0)="pertain.  Pointer to the Patient file (#2)."
^DD(126,.01,"DT")="2920615"
^DD(126,1,0)="INTAKE^126.01IDA^^IN;0"
^DD(126,1,21,0)="^^2^2^2960625^^^^"
^DD(126,1,21,1,0)="This field contains the patient's cumulative intake within an interval"
^DD(126,1,21,2,0)="of time."
^DD(126,2,0)="OUTPUT^126.02IDA^^OUT;0"
^DD(126,2,21,0)="^^1^1^2961106^^^^"
^DD(126,2,21,1,0)="This field contains the patient's cumulative output for an interval of time."
^DD(126,3,0)="IV^126.03IDA^^IV;0"
^DD(126,3,21,0)="^^2^2^2970130^^^^"
^DD(126,3,21,1,0)="This multiple documents all information specific to the starting and"
^DD(126,3,21,2,0)="discontinuation of an intravenous(IV) fluid on a patient."
^DD(126,3,"DT")="2910206"
^DD(126,4,0)="IV MAINTENANCE^126.04^^IVM;0"
^DD(126,4,21,0)="^^2^2^2950926^^^^"
^DD(126,4,21,1,0)="This multiple records the patient's IV maintenance or care including the IV"
^DD(126,4,21,2,0)="infusion site care, IV tube change(s) and dressing change(s)."
^DD(126,4,"DT")="2920827"
^DD(126,"B","INTAKE",1)=""
^DD(126,"B","IV",3)=""
^DD(126,"B","IV MAINTENANCE",4)=""
^DD(126,"B","OUTPUT",2)=""
^DD(126,"B","PATIENT",.01)=""
^DD(126,"GL",0,1,.01)=""
^DD(126,"GL","IN",0,1)=""
^DD(126,"GL","IV",0,3)=""
^DD(126,"GL","IVM",0,4)=""
^DD(126,"GL","OUT",0,2)=""
^DD(126,"IX",.01)=""
^DD(126,"RQ",.01)=""
^DD(126,"SB",126.01,1)=""
^DD(126,"SB",126.02,2)=""
^DD(126,"SB",126.03,3)=""
^DD(126,"SB",126.04,4)=""
^DD(126.01,0)="INTAKE SUB-FIELD^^7^7"
^DD(126.01,0,"DT")="2960822"
^DD(126.01,0,"ID","WRITE1")="N MSG S MSG=$P($G(^GMRD(126.56,+$P(^(0),U,2),0)),U) D EN^DDIOL(MSG_$E(@(DIC_""Y,0)""),0),"""",""?$X+3"")"
^DD(126.01,0,"IX","B",126.01,.01)=""
^DD(126.01,0,"IX","TYP01",126.01,.01)=""
^DD(126.01,0,"IX","TYP1",126.01,1)=""
^DD(126.01,0,"NM","INTAKE")=""
^DD(126.01,0,"UP")="126"
^DD(126.01,.01,0)="INTAKE DATE/TIME^RDX^^0;1^S %DT=""ETXRS"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(126.01,.01,1,0)="^.1"
^DD(126.01,.01,1,1,0)="126.01^B"
^DD(126.01,.01,1,1,1)="S ^GMR(126,DA(1),""IN"",""B"",$E(X,1,30),DA)="""""
^DD(126.01,.01,1,1,2)="K ^GMR(126,DA(1),""IN"",""B"",$E(X,1,30),DA)"
^DD(126.01,.01,1,1,"%D",0)="^^3^3^2950926^^^^"
^DD(126.01,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field"
^DD(126.01,.01,1,1,"%D",2,0)="of the file.  This index sorts the intake measurements by date/time for a"
^DD(126.01,.01,1,1,"%D",3,0)="patient."
^DD(126.01,.01,1,2,0)="126.01^TYP01^MUMPS"
^DD(126.01,.01,1,2,1)="I $D(^GMR(126,DA(1),""IN"",DA,0)),$P(^(0),""^"",2)'="""" S GMRTYP=$P(^(0),""^"",2) S ^GMR(126,DA(1),""IN"",""TYP"",9999999-X,GMRTYP,DA)="""" K GMRTYP"
^DD(126.01,.01,1,2,2)="I $D(^GMR(126,DA(1),""IN"",DA,0)),$P(^(0),""^"",2)'="""" S GMRTYP=$P(^(0),""^"",2) K ^GMR(126,DA(1),""IN"",""TYP"",9999999-X,GMRTYP,DA),GMRTYP"
^DD(126.01,.01,1,2,"%D",0)="^^3^3^2951213^^^^"
^DD(126.01,.01,1,2,"%D",1,0)="TYP01 MUMPS cross-reference is created to delete an old intake measurement"
^DD(126.01,.01,1,2,"%D",2,0)="index ^GMR(126,DA(1),""IN"",""TYP"",9999999-INTAKE DATE/TIME,INTAKE TYPE,DA)"
^DD(126.01,.01,1,2,"%D",3,0)="=""""."
^DD(126.01,.01,1,2,"DT")="2951213"
^DD(126.01,.01,21,0)="^^2^2^2950926^^^^"
^DD(126.01,.01,21,1,0)="This field stores the end date/time point for this intake measurement."
^DD(126.01,.01,21,2,0)="NO FUTURE DATE/TIME ALLOWED !!!"
^DD(126.01,.01,"DT")="2951213"
^DD(126.01,1,0)="INTAKE TYPE^RP126.56'X^GMRD(126.56,^0;2^Q"
^DD(126.01,1,.1)="TYPE OF INTAKE"
^DD(126.01,1,1,0)="^.1"
^DD(126.01,1,1,1,0)="126.01^TYP1^MUMPS"
^DD(126.01,1,1,1,1)="S GMRVDT="""" S:$D(^GMR(126,DA(1),""IN"",DA,0)) GMRVDT=$P(^(0),U) S:GMRVDT'=""""&(X>0) ^GMR(126,DA(1),""IN"",""TYP"",9999999-GMRVDT,X,DA)="""" K GMRVDT"
^DD(126.01,1,1,1,2)="S GMRVDT="""" S:$D(^GMR(126,DA(1),""IN"",DA,0)) GMRVDT=$P(^(0),U) K:GMRVDT'=""""&(X>0) ^GMR(126,DA(1),""IN"",""TYP"",9999999-GMRVDT,X,DA) K GMRVDT"
^DD(126.01,1,1,1,"%D",0)="^^2^2^2950926^^^^"
^DD(126.01,1,1,1,"%D",1,0)="TYP1 MUMPS cross-reference is created to sort intake measurements by"
^DD(126.01,1,1,1,"%D",2,0)="inverted INTAKE DATE/TIME and INTAKE TYPE."
^DD(126.01,1,1,1,"DT")="2930929"
^DD(126.01,1,3)=""
^DD(126.01,1,21,0)="^^2^2^2950926^^^^"
^DD(126.01,1,21,1,0)="This field identifies the major intake categories such as PO, TUBE FEEDING"
^DD(126.01,1,21,2,0)="etc."
^DD(126.01,1,"DT")="2930929"
^DD(126.01,3,0)="INTAKE ITEM^126.13PA^^1;0"
^DD(126.01,3,21,0)="^^1^1^2960625^^^^"
^DD(126.01,3,21,1,0)="This multiple identifies the fluid intake absorbed by the patient."
^DD(126.01,3,"DT")="2910220"
^DD(126.01,4,0)="TOTAL AMOUNT^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(126.01,4,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(126.01,4,21,0)="^^2^2^2960122^^^^"
^DD(126.01,4,21,1,0)="This field stores the cumulative intake measurement in milliliters (ml)"
^DD(126.01,4,21,2,0)="for this period.  Numeric example: 240."
^DD(126.01,4,"DT")="2960122"
^DD(126.01,5,0)="COMMENT^F^^0;6^K:$L(X)>60!($L(X)<1) X"
^DD(126.01,5,3)="Answer must be 1-60 characters in length."
^DD(126.01,5,21,0)="^^2^2^2950926^^^^"
^DD(126.01,5,21,1,0)="This field permits the caregiver to describe additional observations."
^DD(126.01,5,21,2,0)="This field will be used in the next version."
^DD(126.01,5,"DT")="2950901"
^DD(126.01,6,0)="ENTERED BY^RP200'X^VA(200,^0;7^Q"
^DD(126.01,6,21,0)="^^2^2^2950926^^^^"
^DD(126.01,6,21,1,0)="This field contains the name of the user who enters this record."
^DD(126.01,6,21,2,0)="Pointer to the New Person file ^VA(200)."
^DD(126.01,6,"DT")="2910225"
^DD(126.01,7,0)="HOSPITAL LOCATION^R*P44'X^SC(^0;4^S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(126.01,7,12)="The hospital location where the patient is located. Pointer to Hospital Location file (#44)."
^DD(126.01,7,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""""
^DD(126.01,7,21,0)="^^2^2^2950926^^^^"
^DD(126.01,7,21,1,0)="This field identifies the patient's hospital location."
^DD(126.01,7,21,2,0)="Pointer to the Hospital Location file (#44)."
^DD(126.01,7,"DT")="2920617"
^DD(126.01,"B","COMMENT",5)=""
^DD(126.01,"B","ENTERED BY",6)=""
^DD(126.01,"B","HOSPITAL LOCATION",7)=""
^DD(126.01,"B","INTAKE DATE/TIME",.01)=""
^DD(126.01,"B","INTAKE ITEM",3)=""
^DD(126.01,"B","INTAKE TYPE",1)=""
^DD(126.01,"B","TOTAL AMOUNT",4)=""
^DD(126.01,"B","TYPE OF INTAKE",1)="1"
^DD(126.01,"GL",0,1,.01)=""
^DD(126.01,"GL",0,2,1)=""
^DD(126.01,"GL",0,4,7)=""
^DD(126.01,"GL",0,5,4)=""
^DD(126.01,"GL",0,6,5)=""
^DD(126.01,"GL",0,7,6)=""
^DD(126.01,"GL",1,0,3)=""
^DD(126.01,"IX",.01)=""
^DD(126.01,"IX",1)=""
^DD(126.01,"RQ",.01)=""
^DD(126.01,"RQ",1)=""
^DD(126.01,"RQ",6)=""
^DD(126.01,"RQ",7)=""
^DD(126.01,"SB",126.13,3)=""
^DD(126.02,0)="OUTPUT SUB-FIELD^^6^7"
^DD(126.02,0,"DT")="2960523"
^DD(126.02,0,"ID","WRITE1")="N MSG S MSG=$P($G(^GMRD(126.58,+$P(^(0),U,2),0)),U) D EN^DDIOL(MSG_$E(@(DIC_""Y,0)""),0),"""",""?$X+3"")"
^DD(126.02,0,"IX","B",126.02,.01)=""
^DD(126.02,0,"IX","TYP01",126.02,.01)=""
^DD(126.02,0,"IX","TYP1",126.02,1)=""
^DD(126.02,0,"NM","OUTPUT")=""
^DD(126.02,0,"UP")="126"
^DD(126.02,.01,0)="OUTPUT DATE/TIME^RDX^^0;1^S %DT=""ETXRS"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(126.02,.01,1,0)="^.1"
^DD(126.02,.01,1,1,0)="126.02^B"
^DD(126.02,.01,1,1,1)="S ^GMR(126,DA(1),""OUT"",""B"",$E(X,1,30),DA)="""""
^DD(126.02,.01,1,1,2)="K ^GMR(126,DA(1),""OUT"",""B"",$E(X,1,30),DA)"
^DD(126.02,.01,1,1,"%D",0)="^^3^3^2950926^^^"
^DD(126.02,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field"
^DD(126.02,.01,1,1,"%D",2,0)="of the file.  This index sorts the output measurements by date/time for"
^DD(126.02,.01,1,1,"%D",3,0)="a patient."
^DD(126.02,.01,1,2,0)="126.02^TYP01^MUMPS"
^DD(126.02,.01,1,2,1)="I $D(^GMR(126,DA(1),""OUT"",DA,0)),$P(^(0),""^"",2)'="""" S GMRTYP=$P(^(0),""^"",2) S ^GMR(126,DA(1),""OUT"",""TYP"",9999999-X,GMRTYP,DA)="""" K GMRTYP"
^DD(126.02,.01,1,2,2)="I $D(^GMR(126,DA(1),""OUT"",DA,0)),$P(^(0),""^"",2)'="""" S GMRTYP=$P(^(0),""^"",2) K ^GMR(126,DA(1),""OUT"",""TYP"",9999999-X,GMRTYP,DA),GMRTYP"
^DD(126.02,.01,1,2,"%D",0)="^^3^3^2951213^^^^"
^DD(126.02,.01,1,2,"%D",1,0)="TYP01 MUMPS cross-reference is created to delete an old output record"
^DD(126.02,.01,1,2,"%D",2,0)="index ^GMR(126,DA(1) ,""OUT"",""TYP"",9999999-OUTPUT DATE/TIME,OUTPUT TYPE,DA)"
^DD(126.02,.01,1,2,"%D",3,0)="=""""."
^DD(126.02,.01,1,2,"DT")="2951213"
^DD(126.02,.01,21,0)="^^2^2^2950926^^^^"
^DD(126.02,.01,21,1,0)="This field stores the end date/time point for this cumulative measurement."
^DD(126.02,.01,21,2,0)="NO FUTURE DATE/TIME ALLOWED !!!"
^DD(126.02,.01,"DT")="2951213"
^DD(126.02,1,0)="OUTPUT TYPE^RP126.58'^GMRD(126.58,^0;2^Q"
^DD(126.02,1,1,0)="^.1"
^DD(126.02,1,1,1,0)="126.02^TYP1^MUMPS"
^DD(126.02,1,1,1,1)="S GMRVDT="""" S:$D(^GMR(126,DA(1),""OUT"",DA,0)) GMRVDT=$P(^(0),U) S:GMRVDT'=""""&(X>0) ^GMR(126,DA(1),""OUT"",""TYP"",9999999-GMRVDT,X,DA)="""" K GMRVDT"
^DD(126.02,1,1,1,2)="S GMRVDT="""" S:$D(^GMR(126,DA(1),""OUT"",DA,0)) GMRVDT=$P(^(0),U) K:GMRVDT'=""""&(X>0) ^GMR(126,DA(1),""OUT"",""TYP"",9999999-GMRVDT,X,DA) K GMRVDT"
^DD(126.02,1,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(126.02,1,1,1,"%D",1,0)="TYP1 MUMPS cross-reference is created to sort output measurements by"
^DD(126.02,1,1,1,"%D",2,0)="inverted OUTPUT DATE/TIME and OUTPUT TYPE."
^DD(126.02,1,1,1,"DT")="2930929"
^DD(126.02,1,3)=""
^DD(126.02,1,21,0)="^^2^2^2950926^^^^"
^DD(126.02,1,21,1,0)="This field identifies the major output categories such as URINE, EMESIS,"
^DD(126.02,1,21,2,0)="etc."
^DD(126.02,1,"DT")="2930929"
^DD(126.02,2,0)="OUTPUT SUBTYPE^*P126.6'^GMRD(126.6,^0;3^S DIC(""S"")=""I $P(^(0),U,2)=$P($G(^GMR(126,DA(1),""""OUT"""",DA,0)),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(126.02,2,12)="Select only the OUTPUT SUBTYPE applicable to this OUTPUT TYPE."
^DD(126.02,2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$P($G(^GMR(126,DA(1),""""OUT"""",DA,0)),U,2)"""
^DD(126.02,2,21,0)="^^2^2^2950926^^^^"
^DD(126.02,2,21,1,0)="This field contains subtitle names associated with each major output"
^DD(126.02,2,21,2,0)="category, i.e., FOLEY CATHETER and VOIDED for URINE."
^DD(126.02,2,"DT")="2920603"
^DD(126.02,3,0)="OUTPUT AMOUNT^RFX^^0;4^K:'(($L(X)=1&(""SML""[$$UP^XLFSTR(X)!($E(X)=""*"")))!(X?1.4N1""*"")!(X?1.4N)) X I $D(X),+X>9999 K X"
^DD(126.02,3,3)="Answer must be a number between 0 and 9999 or * if output amount is unknown."
^DD(126.02,3,21,0)="^^2^2^2961106^^^^"
^DD(126.02,3,21,1,0)="The field stores the cumulative amount of this output period in milliliters"
^DD(126.02,3,21,2,0)="(ml).  Enter ""*"" if output amount is unknown."
^DD(126.02,3,"DT")="2961106"
^DD(126.02,4,0)="COMMENT^F^^0;5^K:$L(X)>60!($L(X)<1) X"
^DD(126.02,4,3)="Answer must be 1-60 characters in length."
^DD(126.02,4,21,0)="^^3^3^2950926^^^^"
^DD(126.02,4,21,1,0)="This field permits the caregiver to describe additional observations for"
^DD(126.02,4,21,2,0)="this output, i.e., color, odor, consistency for drainage."
^DD(126.02,4,21,3,0)="This field will be used in the next version."
^DD(126.02,4,"DT")="2950901"
^DD(126.02,5,0)="ENTERED BY^RP200'^VA(200,^0;6^Q"
^DD(126.02,5,21,0)="^^2^2^2931209^^^^"
^DD(126.02,5,21,1,0)="This field contains the name of the user who enters this record."
^DD(126.02,5,21,2,0)="Pointer to the New Person file ^VA(200)."
^DD(126.02,5,"DT")="2910225"
^DD(126.02,6,0)="HOSPITAL LOCATION^R*P44'^SC(^0;7^S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(126.02,6,12)="The hospital location where the patient is located.  Pointer to the Hospital Location file (#44)."
^DD(126.02,6,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""""
^DD(126.02,6,21,0)="^^2^2^2940310^^^"
^DD(126.02,6,21,1,0)="This field contains the hospital location of the patient.  Pointer to the "
^DD(126.02,6,21,2,0)="Hospital Location file (#44)."
^DD(126.02,6,"DT")="2920617"
^DD(126.02,"B","COMMENT",4)=""
^DD(126.02,"B","ENTERED BY",5)=""
^DD(126.02,"B","HOSPITAL LOCATION",6)=""
^DD(126.02,"B","OUTPUT AMOUNT",3)=""
^DD(126.02,"B","OUTPUT DATE/TIME",.01)=""
^DD(126.02,"B","OUTPUT SUBTYPE",2)=""
^DD(126.02,"B","OUTPUT TYPE",1)=""
^DD(126.02,"GL",0,1,.01)=""
^DD(126.02,"GL",0,2,1)=""
^DD(126.02,"GL",0,3,2)=""
^DD(126.02,"GL",0,4,3)=""
^DD(126.02,"GL",0,5,4)=""
^DD(126.02,"GL",0,6,5)=""
^DD(126.02,"GL",0,7,6)=""
^DD(126.02,"IX",.01)=""
^DD(126.02,"IX",1)=""
^DD(126.02,"RQ",.01)=""
^DD(126.02,"RQ",1)=""
^DD(126.02,"RQ",3)=""
^DD(126.02,"RQ",5)=""
^DD(126.02,"RQ",6)=""
^DD(126.03,0)="IV SUB-FIELD^^17^18"
^DD(126.03,0,"DT")="2961007"
^DD(126.03,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(126.03,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(126.03,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(126.03,0,"ID","WRITE2")="D EN^DDIOL($P(^(0),U,3)_$E(@(DIC_""Y,0)""),0),"""",""?$X+3"")"
^DD(126.03,0,"IX","B",126.03,.01)=""
^DD(126.03,0,"IX","C",126.03,.01)=""
^DD(126.03,0,"IX","SITE",126.03,1)=""
^DD(126.03,0,"IX","TYP01",126.03,.01)=""
^DD(126.03,0,"IX","TYP3",126.03,3)=""
^DD(126.03,0,"NM","IV")=""
^DD(126.03,0,"UP")="126"
^DD(126.03,.01,0)="IV START DATE/TIME^RDX^^0;1^S %DT=""ETXRS"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(126.03,.01,1,0)="^.1"
^DD(126.03,.01,1,1,0)="126.03^B"
^DD(126.03,.01,1,1,1)="S ^GMR(126,DA(1),""IV"",""B"",$E(X,1,30),DA)="""""
^DD(126.03,.01,1,1,2)="K ^GMR(126,DA(1),""IV"",""B"",$E(X,1,30),DA)"
^DD(126.03,.01,1,1,"%D",0)="^^3^3^2950926^^^"
^DD(126.03,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field"
^DD(126.03,.01,1,1,"%D",2,0)="of the file.  This index sorts the intravenous fluids on a patient by"
^DD(126.03,.01,1,1,"%D",3,0)="starting date/time."
^DD(126.03,.01,1,2,0)="126.03^TYP01^MUMPS"
^DD(126.03,.01,1,2,1)="S:$D(^GMR(126,DA(1),""IV"",DA,0)) GMRVTYP=$P(^(0),U,4) S:GMRVTYP'="""" ^GMR(126,DA(1),""IV"",""TYP"",9999999-X,GMRVTYP,DA)="""" K GMRVTYP"
^DD(126.03,.01,1,2,2)="S:$D(^GMR(126,DA(1),""IV"",DA,0)) GMRVTYP=$P(^(0),U,4) K:GMRVTYP'="""" ^GMR(126,DA(1),""IV"",""TYP"",9999999-X,GMRVTYP,DA) K GMRVTYP"
^DD(126.03,.01,1,2,"%D",0)="^^2^2^2950926^^^"
^DD(126.03,.01,1,2,"%D",1,0)="TYP01 MUMPS cross-reference is created to sort the intravenous fluids on"
^DD(126.03,.01,1,2,"%D",2,0)="a patient by the inverted IV START DATE/TIME and TYPE OF IV."
^DD(126.03,.01,1,2,"DT")="2930929"
^DD(126.03,.01,1,3,0)="126.03^C^MUMPS"
^DD(126.03,.01,1,3,1)="S ^GMR(126,DA(1),""IV"",""C"",9999999-X,DA)="""" S:$P($G(^GMR(126,DA(1),""IV"",DA,0)),""^"",7)="""" $P(^GMR(126,DA(1),""IV"",DA,0),""^"",7)=DUZ"
^DD(126.03,.01,1,3,2)="K ^GMR(126,DA(1),""IV"",""C"",9999999-X,DA)"
^DD(126.03,.01,1,3,"%D",0)="^^3^3^2951213^^^^"
^DD(126.03,.01,1,3,"%D",1,0)="C MUMPS cross-reference indexes the intravenous solutions on a patient"
^DD(126.03,.01,1,3,"%D",2,0)="by the inverted IV START DATE/TIME.  The SET statement inserts the"
^DD(126.03,.01,1,3,"%D",3,0)="DUZ in the IV STARTED BY field (6)."
^DD(126.03,.01,1,3,"DT")="2951213"
^DD(126.03,.01,3)=""
^DD(126.03,.01,21,0)="^^1^1^2950926^^^^"
^DD(126.03,.01,21,1,0)="This field contains the DATE and TIME this IV solution was added or hung."
^DD(126.03,.01,"DT")="2951213"
^DD(126.03,1,0)="INFUSION SITE^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) D EN2^GMRYUT5 K:$L(X)>50!($L(X)<3) X"
^DD(126.03,1,1,0)="^.1"
^DD(126.03,1,1,1,0)="126.03^SITE^MUMPS"
^DD(126.03,1,1,1,1)="S:$D(^GMR(126,DA(1),""IV"",DA,0)) GMRVDT=$P(^(0),U) S:$D(GMRVDT) ^GMR(126,DA(1),""IV"",""SITE"",X,9999999-GMRVDT,DA)="""" K GMRVDT"
^DD(126.03,1,1,1,2)="S:$D(^GMR(126,DA(1),""IV"",DA,0)) GMRVDT=$P(^(0),U) K:$D(GMRVDT) ^GMR(126,DA(1),""IV"",""SITE"",X,9999999-GMRVDT,DA) K GMRVDT"
^DD(126.03,1,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(126.03,1,1,1,"%D",1,0)="SITE MUMPS cross-reference sorts the intravenous fluids on a patient by"
^DD(126.03,1,1,1,"%D",2,0)="INFUSION SITE and inverted IV START DATE/TIME."
^DD(126.03,1,1,1,"DT")="2930929"
^DD(126.03,1,3)="Answer must be 1-30 characters in length."
^DD(126.03,1,4)="D EN1^GMRYUT5"
^DD(126.03,1,21,0)="^^4^4^2950926^^^^"
^DD(126.03,1,21,1,0)="This field contains the IV's location such as LEFT HAND, RIGHT HAND and LEFT"
^DD(126.03,1,21,2,0)="ARM, etc.  The user is allowed to select from the IV SITE file (#126.7) by"
^DD(126.03,1,21,3,0)="entering a number or a combination of numbers.  The software then transforms"
^DD(126.03,1,21,4,0)="the number(s) into text."
^DD(126.03,1,"DT")="2930929"
^DD(126.03,2,0)="SOLUTION^RF^^0;3^K:$L(X)>75!($L(X)<1) X"
^DD(126.03,2,.1)="SOLUTION"
^DD(126.03,2,1,0)="^.1^^0"
^DD(126.03,2,3)="Answer must be 1-75 characters in length."
^DD(126.03,2,4)=""
^DD(126.03,2,21,0)="^^5^5^2961007^^^^"
^DD(126.03,2,21,1,0)="This field contains the name of the IV solution or heparin/saline lock.  "
^DD(126.03,2,21,2,0)="The user can select the active IV orders for this patient from the PHARMACY"
^DD(126.03,2,21,3,0)="PATIENT file (#55) or from the NUR IV SOLUTION file (#126.9).  If the user"
^DD(126.03,2,21,4,0)="selects a heparin/saline lock, the software inserts the data into the IV"
^DD(126.03,2,21,5,0)="record."
^DD(126.03,2,22)=""
^DD(126.03,2,"DT")="2960523"
^DD(126.03,3,0)="TYPE OF IV^RS^A:ADMIXTURE;P:PIGGYBACK;H:HYPERAL;B:BLOOD/BLOOD PRODUCTS;I:INTRALIPIDS;L:HEPARIN/SALINE LOCK;^0;4^Q"
^DD(126.03,3,1,0)="^.1"
^DD(126.03,3,1,1,0)="126.03^TYP3^MUMPS"
^DD(126.03,3,1,1,1)="S:$D(^GMR(126,DA(1),""IV"",DA,0)) GMRVDT=$P(^(0),U) S:GMRVDT'="""" ^GMR(126,DA(1),""IV"",""TYP"",9999999-GMRVDT,X,DA)="""" K GMRVDT"
^DD(126.03,3,1,1,2)="S:$D(^GMR(126,DA(1),""IV"",DA,0)) GMRVDT=$P(^(0),U) K:GMRVDT'="""" ^GMR(126,DA(1),""IV"",""TYP"",9999999-GMRVDT,X,DA) K GMRVDT"
^DD(126.03,3,1,1,"%D",0)="^^2^2^2950926^^^^"
^DD(126.03,3,1,1,"%D",1,0)="TYP3 MUMPS cross-reference sorts the intravenous fluids on a patient by"
^DD(126.03,3,1,1,"%D",2,0)="the inverted IV START DATE/TIME and TYPE OF IV."
^DD(126.03,3,1,1,"DT")="2930929"
^DD(126.03,3,3)=""
^DD(126.03,3,21,0)="^^3^3^2940310^^^^"
^DD(126.03,3,21,1,0)="This field describes the type of IV: 'H' for hyperal, 'P' for piggyback, "
^DD(126.03,3,21,2,0)="'A' for admixture, 'B' for blood/blood product, 'I' for intralipid, and"
^DD(126.03,3,21,3,0)="'L' for heparin/saline lock."
^DD(126.03,3,"DT")="2930929"
^DD(126.03,4,0)="VOLUME^RF^^0;5^K:$L(X)>4!($L(X)<1) X"
^DD(126.03,4,3)="Answer must be 1-4 characters in length."
^DD(126.03,4,21,0)="^^2^2^2961007^^^^"
^DD(126.03,4,21,1,0)="This field identifies the total amount of solution in milliliters (ml) "
^DD(126.03,4,21,2,0)="in the IV container."
^DD(126.03,4,"DT")="2961007"
^DD(126.03,5,0)="IV CATHETER TYPE/SIZE^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(126.03,5,3)="Answer must be 1-30 characters in length."
^DD(126.03,5,21,0)="^^1^1^2950926^^^^"
^DD(126.03,5,21,1,0)="This field stores the name and size of the IV catheter(s)."
^DD(126.03,5,"DT")="2930113"
^DD(126.03,6,0)="IV STARTED BY^RP200'^VA(200,^0;7^Q"
^DD(126.03,6,3)=""
^DD(126.03,6,21,0)="^^2^2^2950926^^^^"
^DD(126.03,6,21,1,0)="This field holds the name of the user who entered the data.  Pointer to the"
^DD(126.03,6,21,2,0)="NEW PERSON file (#200)."
^DD(126.03,6,"DT")="2920909"
^DD(126.03,7,0)="HOSPITAL LOCATION^R*P44'^SC(^0;8^S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(126.03,7,3)=""
^DD(126.03,7,12)="The hospital location where the patient is located.  Pointer to the Hospital Location file (#44)."
^DD(126.03,7,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""""
^DD(126.03,7,21,0)="^^2^2^2950926^^^^"
^DD(126.03,7,21,1,0)="This field identifies the hospital location of the patient.  Pointer to the"
^DD(126.03,7,21,2,0)="Hospital Location file (#44)."
^DD(126.03,7,"DT")="2920909"
^DD(126.03,8,0)="DATE/TIME DC'ED^DX^^0;9^S %DT=""ESTXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1!(+$P(^GMR(126,DA(1),""IV"",DA,0),U)>Y) X S:Y>0 $P(^GMR(126,DA(1),""IV"",DA,0),U,10)=DUZ K %DT(0)"
^DD(126.03,8,3)="The IV discontinued time must be later than the IV start time."
^DD(126.03,8,21,0)="^^1^1^2950926^^^^"
^DD(126.03,8,21,1,0)="This field holds the DATE/TIME when the IV was discontinued."
^DD(126.03,8,23,0)="^^1^1^2950926^^^^"
^DD(126.03,8,23,1,0)="The IV discontinued time must be later than the IV start time."
^DD(126.03,8,"DT")="2930906"
^DD(126.03,9,0)="DC'ED BY^P200'^VA(200,^0;10^Q"
^DD(126.03,9,3)=""
^DD(126.03,9,21,0)="^^2^2^2950926^^^^"
^DD(126.03,9,21,1,0)="This field stores the name of the person who removes the IV from the"
^DD(126.03,9,21,2,0)="patient.  Pointer to NEW PERSON file (#200)."
^DD(126.03,9,"DT")="2921231"
^DD(126.03,10,0)="REASON FOR DC^F^^0;11^K:$L(X)>30!($L(X)<1) X"
^DD(126.03,10,3)="Answer must be 1-30 characters in length."
^DD(126.03,10,21,0)="^^2^2^2960613^^^^"
^DD(126.03,10,21,1,0)="This field identifies the reason for discontinuing the IV infusion."
^DD(126.03,10,21,2,0)="Text from IV DC'ED REASON file (#126.76)."
^DD(126.03,10,"DT")="2930113"
^DD(126.03,11,0)="INFUSION RATE^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(126.03,11,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(126.03,11,21,0)="^^2^2^2960122^^^^"
^DD(126.03,11,21,1,0)="This field contains the rate at which the infusion is to take place."
^DD(126.03,11,21,2,0)="Example: 125 = 125 ml/hr."
^DD(126.03,11,"DT")="2960122"
^DD(126.03,12,0)="RESTART DATE/TIME^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(126.03,12,21,0)="^^1^1^2950926^^^^"
^DD(126.03,12,21,1,0)="This field stores the date/time when a discontinued IV is restarted."
^DD(126.03,12,"DT")="2931008"
^DD(126.03,13,0)="IV INTAKE^126.313DA^^IN;0"
^DD(126.03,13,21,0)="^^2^2^2960514^^^^"
^DD(126.03,13,21,1,0)="This multiple contains the parenteral IV fluid intake records for this"
^DD(126.03,13,21,2,0)="patient.  NO FUTURE DATE/TIME ALLOWED !!!"
^DD(126.03,13,"DT")="2910221"
^DD(126.03,14,0)="RESTARTED IV^NJ6,0^^1;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(126.03,14,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(126.03,14,21,0)="^^2^2^2950926^^^^"
^DD(126.03,14,21,1,0)="This field stores the new IEN for this IV fluid if it is discontinued"
^DD(126.03,14,21,2,0)="before infused."
^DD(126.03,14,"DT")="2931008"
^DD(126.03,15,0)="IV LINE #^CJ8,0^^ ; ^S X=D1"
^DD(126.03,15,9)="^"
^DD(126.03,15,9.01)=""
^DD(126.03,15,9.1)="S X=D1"
^DD(126.03,15,21,0)="^^1^1^2960514^^^"
^DD(126.03,15,21,1,0)="This computed field sets the IV LINE # to the D1 value."
^DD(126.03,16,0)="D/T TITER ADJUSTED^126.316DA^^TITR;0"
^DD(126.03,16,21,0)="^^2^2^2970130^"
^DD(126.03,16,21,1,0)="This field documents the date/time when the rate of intravenous infusion"
^DD(126.03,16,21,2,0)="is adjusted."
^DD(126.03,17,0)="PORT^F^^3;1^K:$L(X)>30!($L(X)<3) X"
^DD(126.03,17,3)="Answer must be 3-30 characters in length."
^DD(126.03,17,21,0)="^^2^2^2970130^"
^DD(126.03,17,21,1,0)="This field contains the name of the lumen associated with the IV catheter"
^DD(126.03,17,21,2,0)="for this IV line."
^DD(126.03,17,"DT")="2960514"
^DD(126.03,"B","D/T TITER ADJUSTED",16)=""
^DD(126.03,"B","DATE/TIME DC'ED",8)=""
^DD(126.03,"B","DC'ED BY",9)=""
^DD(126.03,"B","HOSPITAL LOCATION",7)=""
^DD(126.03,"B","INFUSION RATE",11)=""
^DD(126.03,"B","INFUSION SITE",1)=""
^DD(126.03,"B","IV CATHETER TYPE/SIZE",5)=""
^DD(126.03,"B","IV INTAKE",13)=""
^DD(126.03,"B","IV LINE #",15)=""
^DD(126.03,"B","IV START DATE/TIME",.01)=""
^DD(126.03,"B","IV STARTED BY",6)=""
^DD(126.03,"B","PORT",17)=""
^DD(126.03,"B","REASON FOR DC",10)=""
^DD(126.03,"B","RESTART DATE/TIME",12)=""
^DD(126.03,"B","RESTARTED IV",14)=""
^DD(126.03,"B","SOLUTION",2)=""
^DD(126.03,"B","TYPE OF IV",3)=""
^DD(126.03,"B","VOLUME",4)=""
^DD(126.03,"GL",0,1,.01)=""
^DD(126.03,"GL",0,2,1)=""
^DD(126.03,"GL",0,3,2)=""
^DD(126.03,"GL",0,4,3)=""
^DD(126.03,"GL",0,5,4)=""
^DD(126.03,"GL",0,6,5)=""
^DD(126.03,"GL",0,7,6)=""
^DD(126.03,"GL",0,8,7)=""
^DD(126.03,"GL",0,9,8)=""
^DD(126.03,"GL",0,10,9)=""
^DD(126.03,"GL",0,11,10)=""
^DD(126.03,"GL",0,12,11)=""
^DD(126.03,"GL",1,1,12)=""
^DD(126.03,"GL",1,2,14)=""
^DD(126.03,"GL",3,1,17)=""
^DD(126.03,"GL","IN",0,13)=""
^DD(126.03,"GL","TITR",0,16)=""
^DD(126.03,"IX",.01)=""
^DD(126.03,"IX",1)=""
^DD(126.03,"IX",3)=""
^DD(126.03,"RQ",.01)=""
^DD(126.03,"RQ",1)=""
^DD(126.03,"RQ",2)=""
^DD(126.03,"RQ",3)=""
^DD(126.03,"RQ",4)=""
^DD(126.03,"RQ",6)=""
^DD(126.03,"RQ",7)=""
^DD(126.03,"SB",126.313,13)=""
^DD(126.03,"SB",126.316,16)=""
^DD(126.04,0)="IV MAINTENANCE SUB-FIELD^^1^2"
^DD(126.04,0,"DT")="2930126"
^DD(126.04,0,"IX","B",126.04,.01)=""
^DD(126.04,0,"NM","IV MAINTENANCE")=""
^DD(126.04,0,"UP")="126"
^DD(126.04,.01,0)="IV SITE^RFX^^0;1^D EN2^GMRYUT5 K:$L(X)>50!($L(X)<3) X"
^DD(126.04,.01,1,0)="^.1"
^DD(126.04,.01,1,1,0)="126.04^B"
^DD(126.04,.01,1,1,1)="S ^GMR(126,DA(1),""IVM"",""B"",$E(X,1,30),DA)="""""
^DD(126.04,.01,1,1,2)="K ^GMR(126,DA(1),""IVM"",""B"",$E(X,1,30),DA)"
^DD(126.04,.01,1,1,"%D",0)="^^3^3^2950926^^^^"
^DD(126.04,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the IV SITE field"
^DD(126.04,.01,1,1,"%D",2,0)="of the IV MAINTENANCE.  The records are sorted by the IV's location such"
^DD(126.04,.01,1,1,"%D",3,0)="as LEFT HAND, RIGHT HAND and LEFT ARM, etc."
^DD(126.04,.01,3)="Answer must be 3-50 characters in length."
^DD(126.04,.01,4)="D EN1^GMRYUT5"
^DD(126.04,.01,21,0)="^^4^4^2950926^^^^"
^DD(126.04,.01,21,1,0)="This field contains the IV's location such as LEFT HAND, RIGHT HAND and LEFT"
^DD(126.04,.01,21,2,0)="ARM, etc.  The user is allowed to select from the IV SITE file (#126.7) by"
^DD(126.04,.01,21,3,0)="entering a number or a combination of numbers.  The software then transforms"
^DD(126.04,.01,21,4,0)="the number(s) into text."
^DD(126.04,.01,"DT")="2920828"
^DD(126.04,1,0)="MAINTENANCE DATE/TIME^126.41DA^^1;0"
^DD(126.04,1,21,0)="^^2^2^2950926^^^^"
^DD(126.04,1,21,1,0)="This multiple stores the DATE/TIME the IV infusion was performed along with"
^DD(126.04,1,21,2,0)="the specific tasks associated with the maintenance."
^DD(126.04,1,"DT")="2930107"
^DD(126.04,"B","IV SITE",.01)=""
^DD(126.04,"B","MAINTENANCE DATE/TIME",1)=""
^DD(126.04,"GL",0,1,.01)=""
^DD(126.04,"GL",1,0,1)=""
^DD(126.04,"IX",.01)=""
^DD(126.04,"RQ",.01)=""
^DD(126.04,"SB",126.41,1)=""
^DD(126.13,0)="INTAKE ITEM SUB-FIELD^^2^3"
^DD(126.13,0,"DT")="2960122"
^DD(126.13,0,"IX","B",126.13,.01)=""
^DD(126.13,0,"IX","VOL",126.13,.01)=""
^DD(126.13,0,"NM","INTAKE ITEM")=""
^DD(126.13,0,"UP")="126.01"
^DD(126.13,.01,0)="INTAKE ITEM^M*P126.8'X^GMRD(126.8,^0;1^D EN6^GMRYUT2 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:'$D(GEDIT) GMRYTYP"
^DD(126.13,.01,1,0)="^.1"
^DD(126.13,.01,1,1,0)="126.13^B"
^DD(126.13,.01,1,1,1)="S ^GMR(126,DA(2),""IN"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(126.13,.01,1,1,2)="K ^GMR(126,DA(2),""IN"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(126.13,.01,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(126.13,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field"
^DD(126.13,.01,1,1,"%D",2,0)="of the file."
^DD(126.13,.01,1,2,0)="126.13^VOL^MUMPS"
^DD(126.13,.01,1,2,1)="I $D(GMROUT) S $P(^GMR(126,DA(2),""IN"",DA(1),1,DA,0),""^"",2)=+$P(^GMRD(126.8,+X,0),""^"",2) D EN3^GMRYUT2"
^DD(126.13,.01,1,2,2)="I $D(GMROUT) S $P(^GMR(126,DA(2),""IN"",DA(1),1,DA,0),""^"",2)="""" D EN3^GMRYUT2"
^DD(126.13,.01,1,2,"%D",0)="^^3^3^2951213^^^^"
^DD(126.13,.01,1,2,"%D",1,0)="VOL MUMPS cross-reference is created to sum up the values of VOLUME "
^DD(126.13,.01,1,2,"%D",2,0)="field of the INTAKE ITEM multiple and insert the total in the TOTAL"
^DD(126.13,.01,1,2,"%D",3,0)="AMOUNT field of the INTAKE record."
^DD(126.13,.01,1,2,"DT")="2951213"
^DD(126.13,.01,3)=""
^DD(126.13,.01,12)="Select only the item applicable to this type of input."
^DD(126.13,.01,12.1)="D EN6^GMRYUT2"
^DD(126.13,.01,21,0)="^^1^1^2960625^^^^"
^DD(126.13,.01,21,1,0)="This field stores the name of the fluid(s) taken by the patient."
^DD(126.13,.01,"DT")="2960625"
^DD(126.13,1,0)="VOLUME^RNJ6,1^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(126.13,1,3)="Type a Number between 0 and 9999, 1 Decimal Digit"
^DD(126.13,1,21,0)="^^2^2^2960122^^^^"
^DD(126.13,1,21,1,0)="This field contains the measurement in milliliters (ml) for the fluid intake"
^DD(126.13,1,21,2,0)="item."
^DD(126.13,1,"DT")="2960122"
^DD(126.13,2,0)="SPECIFY^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(126.13,2,3)="Answer must be 1-50 characters in length."
^DD(126.13,2,21,0)="^^1^1^2950926^^^^"
^DD(126.13,2,21,1,0)="The user can specify the intake item if the OTHER item is selected."
^DD(126.13,2,"DT")="2930710"
^DD(126.13,"B","INTAKE ITEM",.01)=""
^DD(126.13,"B","SPECIFY",2)=""
^DD(126.13,"B","VOLUME",1)=""
^DD(126.13,"GL",0,1,.01)=""
^DD(126.13,"GL",0,2,1)=""
^DD(126.13,"GL",0,3,2)=""
^DD(126.13,"IX",.01)=""
^DD(126.13,"RQ",1)=""
^DD(126.313,0)="IV INTAKE SUB-FIELD^^4^5"
^DD(126.313,0,"DT")="2920910"
^DD(126.313,0,"IX","B",126.313,.01)=""
^DD(126.313,0,"IX","C",126.313,.01)=""
^DD(126.313,0,"NM","IV INTAKE")=""
^DD(126.313,0,"UP")="126.03"
^DD(126.313,.01,0)="IV INTAKE DATE/TIME^RDX^^0;1^S %DT=""ETXRS"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1!(Y<$P(^GMR(126,DA(2),""IV"",DA(1),0),""^""))!($P(^(0),""^"",2)>0&($P(^(0),""^"",2)<X)) X K %DT(0)"
^DD(126.313,.01,1,0)="^.1"
^DD(126.313,.01,1,1,0)="126.313^B"
^DD(126.313,.01,1,1,1)="S ^GMR(126,DA(2),""IV"",DA(1),""IN"",""B"",$E(X,1,30),DA)="""""
^DD(126.313,.01,1,1,2)="K ^GMR(126,DA(2),""IV"",DA(1),""IN"",""B"",$E(X,1,30),DA)"
^DD(126.313,.01,1,1,"%D",0)="^^1^1^2950926^^^"
^DD(126.313,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.313,.01,1,2,0)="126.313^C^MUMPS"
^DD(126.313,.01,1,2,1)="S ^GMR(126,DA(2),""IV"",DA(1),""IN"",""C"",9999999-X,DA)="""" S:$P($G(^GMR(126,DA(2),""IV"",DA(1),""IN"",DA,0)),""^"",4)="""" $P(^GMR(126,DA(2),""IV"",DA(1),""IN"",DA,0),U,4)=DUZ"
^DD(126.313,.01,1,2,2)="K ^GMR(126,DA(2),""IV"",DA(1),""IN"",""C"",9999999-X,DA)"
^DD(126.313,.01,1,2,"%D",0)="^^3^3^2951213^^^^"
^DD(126.313,.01,1,2,"%D",1,0)="This MUMPS index is created to sort the intake records for an IV solution"
^DD(126.313,.01,1,2,"%D",2,0)="by inverted IV INTAKE DATE/TIME.  The SET statement inserts DUZ in the"
^DD(126.313,.01,1,2,"%D",3,0)="ENTERED BY field (3)."
^DD(126.313,.01,1,2,"DT")="2951213"
^DD(126.313,.01,21,0)="^^2^2^2950926^^^^"
^DD(126.313,.01,21,1,0)="This field documents the end date/time point for this IV fluid intake"
^DD(126.313,.01,21,2,0)="period.  NO FUTURE DATE/TIME OR DATE/TIME BEFORE THE IV STARTED ALLOWED !!!"
^DD(126.313,.01,"DT")="2951213"
^DD(126.313,1,0)="AMOUNT LEFT^RFX^^0;2^K:'(($L(X)=1&(X=""*""))!(X?1.4N)!(X?1.4N1"".""1N)!(X?1"".""1N)) X I $D(X),+X>9999 K X"
^DD(126.313,1,3)="Answer must be a number between 0 and 9999 with one decimal point (decimal point is optional) or * if solution absorbed is unknown."
^DD(126.313,1,21,0)="^^2^2^2960514^^^^"
^DD(126.313,1,21,1,0)="This field contains the amount of solution left in the IV container. "
^DD(126.313,1,21,2,0)="Enter ""*"" if amount of solution absorbed is unknown."
^DD(126.313,1,"DT")="2960122"
^DD(126.313,2,0)="IV INTAKE AMOUNT^CJ8,0^^ ; ^D EN3^GMRYUT5 S X=$J(X,0,0)"
^DD(126.313,2,9)="^"
^DD(126.313,2,9.01)=""
^DD(126.313,2,9.1)="D EN3^GMRYUT5"
^DD(126.313,2,21,0)="^^3^3^2960122^^^^"
^DD(126.313,2,21,1,0)="This field contains the amount of IV fluid absorbed.  The amount is computed"
^DD(126.313,2,21,2,0)="from the total volume of the IV solution field value and the records of"
^DD(126.313,2,21,3,0)="AMOUNT LEFT."
^DD(126.313,3,0)="ENTERED BY^RP200'^VA(200,^0;4^Q"
^DD(126.313,3,3)=""
^DD(126.313,3,21,0)="^^2^2^2950926^^^^"
^DD(126.313,3,21,1,0)="This field holds the name of the person who entered the data.  Pointer to "
^DD(126.313,3,21,2,0)="NEW PERSON file (#200)."
^DD(126.313,3,"DT")="2920831"
^DD(126.313,4,0)="HOSPITAL LOCATION^R*P44'^SC(^0;5^S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(126.313,4,3)=""
^DD(126.313,4,12)="The hospital location where the patient is located.  Pointer to the Hospital Location file (#44)."
^DD(126.313,4,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""""
^DD(126.313,4,21,0)="^^2^2^2950926^^^^"
^DD(126.313,4,21,1,0)="This field identifies the hospital location of the patient.  Pointer to "
^DD(126.313,4,21,2,0)="HOSPITAL LOCATION file (#44)."
^DD(126.313,4,"DT")="2920831"
^DD(126.313,"B","AMOUNT LEFT",1)=""
^DD(126.313,"B","ENTERED BY",3)=""
^DD(126.313,"B","HOSPITAL LOCATION",4)=""
^DD(126.313,"B","IV INTAKE AMOUNT",2)=""
^DD(126.313,"B","IV INTAKE DATE/TIME",.01)=""
^DD(126.313,"GL",0,1,.01)=""
^DD(126.313,"GL",0,2,1)=""
^DD(126.313,"GL",0,4,3)=""
^DD(126.313,"GL",0,5,4)=""
^DD(126.313,"IX",.01)=""
^DD(126.313,"RQ",.01)=""
^DD(126.313,"RQ",1)=""
^DD(126.313,"RQ",3)=""
^DD(126.313,"RQ",4)=""
^DD(126.316,0)="D/T TITER ADJUSTED SUB-FIELD^^4^5"
^DD(126.316,0,"DT")="2960703"
^DD(126.316,0,"IX","B",126.316,.01)=""
^DD(126.316,0,"NM","D/T TITER ADJUSTED")=""
^DD(126.316,0,"UP")="126.03"
^DD(126.316,.01,0)="D/T TITER ADJUSTED^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(126.316,.01,1,0)="^.1"
^DD(126.316,.01,1,1,0)="126.316^B"
^DD(126.316,.01,1,1,1)="S ^GMR(126,DA(2),""IV"",DA(1),""TITR"",""B"",$E(X,1,30),DA)="""""
^DD(126.316,.01,1,1,2)="K ^GMR(126,DA(2),""IV"",DA(1),""TITR"",""B"",$E(X,1,30),DA)"
^DD(126.316,.01,1,1,"%D",0)="^^1^1^2970130^"
^DD(126.316,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.316,.01,1,2,0)="126^C^MUMPS"
^DD(126.316,.01,1,2,1)="S ^GMR(126,DA(2),""IV"",DA(1),""TITR"",""C"",9999999-X,DA)="""" S $P(^GMR(126,DA(2),""IV"",DA(1),""TITR"",DA,0),U,3)=DUZ"
^DD(126.316,.01,1,2,2)="K ^GMR(126,DA(2),""IV"",DA(1),""TITR"",""C"",9999999-X,DA)"
^DD(126.316,.01,1,2,"%D",0)="^^2^2^2970130^"
^DD(126.316,.01,1,2,"%D",1,0)="This MUMPS index is created to sort the infusion rate adjustment record by"
^DD(126.316,.01,1,2,"%D",2,0)="inverted the date/time stored in the D/T TITER ADJUSTED field."
^DD(126.316,.01,1,2,"DT")="2960530"
^DD(126.316,.01,21,0)="^^2^2^2970130^"
^DD(126.316,.01,21,1,0)="This field documents the date/time when the rate of intravenous infusion"
^DD(126.316,.01,21,2,0)="is adjusted."
^DD(126.316,.01,"DT")="2960530"
^DD(126.316,1,0)="RATE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(126.316,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(126.316,1,21,0)="^^2^2^2970130^"
^DD(126.316,1,21,1,0)="This field contains the rate at which the infusion is to take place."
^DD(126.316,1,21,2,0)="Example:  125 = 125 ml/hr."
^DD(126.316,1,"DT")="2960530"
^DD(126.316,2,0)="ADJUSTED BY^P200'^VA(200,^0;3^Q"
^DD(126.316,2,21,0)="^^2^2^2960607^"
^DD(126.316,2,21,1,0)="This field contains the name of the user who enters this record."
^DD(126.316,2,21,2,0)="Pointer to the New Person file ^VA(200)."
^DD(126.316,2,"DT")="2960607"
^DD(126.316,3,0)="HOSPITAL LOCATION^R*P44'^SC(^0;4^S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(126.316,3,12)="The hospital location where the patient is located. Pointer to Hospital Location file."
^DD(126.316,3,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""Z"""""""
^DD(126.316,3,"DT")="2960607"
^DD(126.316,4,0)="COMMENT^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(126.316,4,3)="Answer must be 1-50 characters in length."
^DD(126.316,4,21,0)="^^2^2^2961002^"
^DD(126.316,4,21,1,0)="This field contains any additional comments associated with this infusion"
^DD(126.316,4,21,2,0)="rate adjustment."
^DD(126.316,4,"DT")="2960703"
^DD(126.316,"B","ADJUSTED BY",2)=""
^DD(126.316,"B","COMMENT",4)=""
^DD(126.316,"B","D/T TITER ADJUSTED",.01)=""
^DD(126.316,"B","HOSPITAL LOCATION",3)=""
^DD(126.316,"B","RATE",1)=""
^DD(126.316,"GL",0,1,.01)=""
^DD(126.316,"GL",0,2,1)=""
^DD(126.316,"GL",0,3,2)=""
^DD(126.316,"GL",0,4,3)=""
^DD(126.316,"GL",0,5,4)=""
^DD(126.316,"IX",.01)=""
^DD(126.316,"RQ",.01)=""
^DD(126.316,"RQ",3)=""
^DD(126.41,0)="MAINTENANCE DATE/TIME SUB-FIELD^^6^7"
^DD(126.41,0,"DT")="2930126"
^DD(126.41,0,"IX","AC",126.41,.01)=""
^DD(126.41,0,"IX","B",126.41,.01)=""
^DD(126.41,0,"IX","C",126.41,.01)=""
^DD(126.41,0,"NM","MAINTENANCE DATE/TIME")=""
^DD(126.41,0,"UP")="126.04"
^DD(126.41,.01,0)="MAINTENANCE DATE/TIME^RDX^^0;1^S %DT=""ESTXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(126.41,.01,1,0)="^.1"
^DD(126.41,.01,1,1,0)="126.41^B"
^DD(126.41,.01,1,1,1)="S ^GMR(126,DA(2),""IVM"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(126.41,.01,1,1,2)="K ^GMR(126,DA(2),""IVM"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(126.41,.01,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(126.41,.01,1,1,"%D",1,0)="This cross-reference is created automatically on the .01 field of the"
^DD(126.41,.01,1,1,"%D",2,0)="MAINTENANCE DATE/TIME multiple for each IV SITE."
^DD(126.41,.01,1,2,0)="126.41^AC^MUMPS"
^DD(126.41,.01,1,2,1)="S:$P($G(^GMR(126,DA(2),""IVM"",DA(1),1,DA,0)),""^"",5)="""" $P(^GMR(126,DA(2),""IVM"",DA(1),1,DA,0),""^"",5)=DUZ"
^DD(126.41,.01,1,2,2)="Q"
^DD(126.41,.01,1,2,"%D",0)="^^3^3^2951213^^^^"
^DD(126.41,.01,1,2,"%D",1,0)="AC MUMPS cross-reference is created to insert the DUZ of the person who"
^DD(126.41,.01,1,2,"%D",2,0)="gives the nursing care in the ENTERED BY field (4) of the maintenance"
^DD(126.41,.01,1,2,"%D",3,0)="record."
^DD(126.41,.01,1,2,"DT")="2951213"
^DD(126.41,.01,1,3,0)="126.41^C^MUMPS"
^DD(126.41,.01,1,3,1)="S ^GMR(126,DA(2),""IVM"",DA(1),1,""C"",9999999-X,DA)="""""
^DD(126.41,.01,1,3,2)="K ^GMR(126,DA(2),""IVM"",DA(1),1,""C"",9999999-X,DA)"
^DD(126.41,.01,1,3,"%D",0)="^^2^2^2950926^^^"
^DD(126.41,.01,1,3,"%D",1,0)="C cross-reference is created to sort the nursing care records for a"
^DD(126.41,.01,1,3,"%D",2,0)="specific IV's location by the inverted date/time the care given."
^DD(126.41,.01,1,3,"DT")="2930929"
^DD(126.41,.01,21,0)="^^1^1^2950926^^^"
^DD(126.41,.01,21,1,0)="This field indicates the DATE/TIME the IV care was performed."
^DD(126.41,.01,"DT")="2951213"
^DD(126.41,1,0)="SITE DESCRIPTION^FX^^0;2^D SITEDES1^GMRYUT5 K:$L(X)>50!($L(X)<3) X"
^DD(126.41,1,3)="Answer must be 3-50 characters in length."
^DD(126.41,1,4)="D SITEDES^GMRYUT5"
^DD(126.41,1,21,0)="^^4^4^2950926^^^^"
^DD(126.41,1,21,1,0)="This field stores the care-giver's observation of the IV infusion site.  The"
^DD(126.41,1,21,2,0)="user is allowed to select a number or a combination of numbers from the IV "
^DD(126.41,1,21,3,0)="SITE DESCRIPTION file (#126.72).  The software then transforms the number(s)"
^DD(126.41,1,21,4,0)="into text."
^DD(126.41,1,"DT")="2920928"
^DD(126.41,2,0)="TUBING CHANGED^S^Y:yes;N:no;^0;3^Q"
^DD(126.41,2,21,0)="^^2^2^2950926^^^^"
^DD(126.41,2,21,1,0)="This field indicates if the IV tubing was changed.  Enter ""Y"" if IV tube"
^DD(126.41,2,21,2,0)="has been changed."
^DD(126.41,2,"DT")="2930111"
^DD(126.41,3,0)="DRESSING CHANGED^S^Y:yes;N:no;^0;4^Q"
^DD(126.41,3,21,0)="^^2^2^2950926^^^^"
^DD(126.41,3,21,1,0)="This field indicates if the dressing was changed.  Enter ""Y"" if dressing "
^DD(126.41,3,21,2,0)="has been changed."
^DD(126.41,3,"DT")="2930111"
^DD(126.41,4,0)="ENTERED BY^P200'^VA(200,^0;5^Q"
^DD(126.41,4,21,0)="^^2^2^2950926^^^^"
^DD(126.41,4,21,1,0)="This field documents the name of the person who gives the nursing care."
^DD(126.41,4,21,2,0)="Pointer to the NEW PERSON file (#200)."
^DD(126.41,4,"DT")="2920915"
^DD(126.41,5,0)="SITE DC'ED^S^Y:yes;N:no;^0;6^Q"
^DD(126.41,5,21,0)="^^2^2^2950926^^^"
^DD(126.41,5,21,1,0)="This field indicates if the IV was discontinued at its insertion point.  "
^DD(126.41,5,21,2,0)="Enter Y(es) if the IV site was discontinued."
^DD(126.41,5,"DT")="2930113"
^DD(126.41,6,0)="LINE OF TUBE^NJ4,0^^0;7^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(126.41,6,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(126.41,6,21,0)="^^1^1^2950926^^^^"
^DD(126.41,6,21,1,0)="This field indicates the IEN of the IV."
^DD(126.41,6,"DT")="2930126"
^DD(126.41,"B","DRESSING CHANGED",3)=""
^DD(126.41,"B","ENTERED BY",4)=""
^DD(126.41,"B","LINE OF TUBE",6)=""
^DD(126.41,"B","MAINTENANCE DATE/TIME",.01)=""
^DD(126.41,"B","SITE DC'ED",5)=""
^DD(126.41,"B","SITE DESCRIPTION",1)=""
^DD(126.41,"B","TUBING CHANGED",2)=""
^DD(126.41,"GL",0,1,.01)=""
^DD(126.41,"GL",0,2,1)=""
^DD(126.41,"GL",0,3,2)=""
^DD(126.41,"GL",0,4,3)=""
^DD(126.41,"GL",0,5,4)=""
^DD(126.41,"GL",0,6,5)=""
^DD(126.41,"GL",0,7,6)=""
^DD(126.41,"IX",.01)=""
^DD(126.41,"RQ",.01)=""
^DD(126.56,0)="FIELD^^1^2"
^DD(126.56,0,"DDA")="N"
^DD(126.56,0,"DT")="2931203"
^DD(126.56,0,"ID","WRITE1")="D EN^DDIOL($P(^(0),U,2),"""",""?$X+3"")"
^DD(126.56,0,"IX","B",126.56,.01)=""
^DD(126.56,0,"IX","C",126.56,1)=""
^DD(126.56,0,"NM","GMRY INPUT TYPE")=""
^DD(126.56,0,"PT",126.01,1)=""
^DD(126.56,0,"PT",126.82,.01)=""
^DD(126.56,0,"VR")="4.0"
^DD(126.56,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.56,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(126.56,.01,1,0)="^.1"
^DD(126.56,.01,1,1,0)="126.56^B"
^DD(126.56,.01,1,1,1)="S ^GMRD(126.56,""B"",$E(X,1,30),DA)="""""
^DD(126.56,.01,1,1,2)="K ^GMRD(126.56,""B"",$E(X,1,30),DA)"
^DD(126.56,.01,1,1,"%D",0)="^^1^1^2950926^^^"
^DD(126.56,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.56,.01,3)="Answer must be 1-30 characters in length.  This entry cannot be deleted, but it can be edited."
^DD(126.56,.01,21,0)="^^2^2^2950926^^^^"
^DD(126.56,.01,21,1,0)="This field contains the names of major input/intake types, e.g., PO(by "
^DD(126.56,.01,21,2,0)="mouth), TUBE FEEDING and OTHER."
^DD(126.56,.01,"DT")="2930710"
^DD(126.56,1,0)="ORDER^RNJ2,0^^0;2^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(126.56,1,1,0)="^.1"
^DD(126.56,1,1,1,0)="126.56^C"
^DD(126.56,1,1,1,1)="S ^GMRD(126.56,""C"",$E(X,1,30),DA)="""""
^DD(126.56,1,1,1,2)="K ^GMRD(126.56,""C"",$E(X,1,30),DA)"
^DD(126.56,1,1,1,"%D",0)="^^2^2^2950926^^^^"
^DD(126.56,1,1,1,"%D",1,0)="This regular cross-reference is created to index the file by ORDER"
^DD(126.56,1,1,1,"%D",2,0)="and the associated input type NAME."
^DD(126.56,1,1,1,"DT")="2911118"
^DD(126.56,1,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(126.56,1,21,0)="^^1^1^2950926^^^^"
^DD(126.56,1,21,1,0)="This field holds the listing order for the patient intake/output reports."
^DD(126.56,1,"DT")="2931203"
^DD(126.56,"B","NAME",.01)=""
^DD(126.56,"B","ORDER",1)=""
^DD(126.56,"GL",0,1,.01)=""
^DD(126.56,"GL",0,2,1)=""
^DD(126.56,"IX",.01)=""
^DD(126.56,"IX",1)=""
^DD(126.56,"RQ",.01)=""
^DD(126.56,"RQ",1)=""
^DD(126.58,0)="FIELD^^1^2"
^DD(126.58,0,"DDA")="N"
^DD(126.58,0,"DT")="2960523"
^DD(126.58,0,"ID","WRITE1")="D EN^DDIOL($P(^(0),U,2),"""",""?$X+3"")"
^DD(126.58,0,"IX","B",126.58,.01)=""
^DD(126.58,0,"IX","C",126.58,1)=""
^DD(126.58,0,"NM","GMRY OUTPUT TYPE")=""
^DD(126.58,0,"PT",126.02,1)=""
^DD(126.58,0,"PT",126.6,1)=""
^DD(126.58,0,"VR")="4.0"
^DD(126.58,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.58,.01,0)="OUTPUT TYPE^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(126.58,.01,1,0)="^.1"
^DD(126.58,.01,1,1,0)="126.58^B"
^DD(126.58,.01,1,1,1)="S ^GMRD(126.58,""B"",$E(X,1,30),DA)="""""
^DD(126.58,.01,1,1,2)="K ^GMRD(126.58,""B"",$E(X,1,30),DA)"
^DD(126.58,.01,1,1,"%D",0)="^^1^1^2950926^^^"
^DD(126.58,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.58,.01,3)="Answer must be 1-30 characters in length.  This entry cannot be deleted, but it can be edited."
^DD(126.58,.01,21,0)="^^2^2^2950926^^^^"
^DD(126.58,.01,21,1,0)="This field contains the names of output types such as URINE, STOOL, DRAINS "
^DD(126.58,.01,21,2,0)="etc."
^DD(126.58,.01,"DT")="2930710"
^DD(126.58,1,0)="ORDER^RNJ2,0^^0;2^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(126.58,1,1,0)="^.1"
^DD(126.58,1,1,1,0)="126.58^C"
^DD(126.58,1,1,1,1)="S ^GMRD(126.58,""C"",$E(X,1,30),DA)="""""
^DD(126.58,1,1,1,2)="K ^GMRD(126.58,""C"",$E(X,1,30),DA)"
^DD(126.58,1,1,1,"%D",0)="^^2^2^2950926^^^"
^DD(126.58,1,1,1,"%D",1,0)="This regular cross-reference is created to sort the file by ORDER"
^DD(126.58,1,1,1,"%D",2,0)="and the associated OUTPUT TYPE."
^DD(126.58,1,1,1,"DT")="2911118"
^DD(126.58,1,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(126.58,1,21,0)="^^1^1^2950926^^^^"
^DD(126.58,1,21,1,0)="This field stores the listing order for the patient intake/output reports."
^DD(126.58,1,"DT")="2931203"
^DD(126.58,"B","ORDER",1)=""
^DD(126.58,"B","OUTPUT TYPE",.01)=""
^DD(126.58,"GL",0,1,.01)=""
^DD(126.58,"GL",0,2,1)=""
^DD(126.58,"IX",.01)=""
^DD(126.58,"IX",1)=""
^DD(126.58,"RQ",.01)=""
^DD(126.58,"RQ",1)=""
^DD(126.6,0)="FIELD^^1^2"
^DD(126.6,0,"DDA")="N"
^DD(126.6,0,"DT")="2911116"
^DD(126.6,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^GMRD(126.58,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(126.58,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(126.6,0,"IX","B",126.6,.01)=""
^DD(126.6,0,"IX","C",126.6,1)=""
^DD(126.6,0,"NM","GMRY OUTPUT SUBTYPE")=""
^DD(126.6,0,"PT",126.02,2)=""
^DD(126.6,0,"VR")="4.0"
^DD(126.6,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.6,.01,0)="OUTPUT SUBTYPE^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(126.6,.01,.1)=""
^DD(126.6,.01,1,0)="^.1"
^DD(126.6,.01,1,1,0)="126.6^B"
^DD(126.6,.01,1,1,1)="S ^GMRD(126.6,""B"",$E(X,1,30),DA)="""""
^DD(126.6,.01,1,1,2)="K ^GMRD(126.6,""B"",$E(X,1,30),DA)"
^DD(126.6,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.6,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.6,.01,3)="Answer must be 1-30 characters in length.  This entry cannot be deleted, but it can be edited."
^DD(126.6,.01,21,0)="^^3^3^2950831^^^^"
^DD(126.6,.01,21,1,0)="This field contains the names of subtypes under each major output category. "
^DD(126.6,.01,21,2,0)="VOID, FOLEY, STRAIGHT CATHETER, SUPRAPUBIC, and NEPHROSTOMY are subtypes of "
^DD(126.6,.01,21,3,0)="URINE. "
^DD(126.6,.01,"DT")="2911216"
^DD(126.6,1,0)="OUTPUT TYPE^RP126.58'^GMRD(126.58,^0;2^Q"
^DD(126.6,1,1,0)="^.1"
^DD(126.6,1,1,1,0)="126.6^C"
^DD(126.6,1,1,1,1)="S ^GMRD(126.6,""C"",$E(X,1,30),DA)="""""
^DD(126.6,1,1,1,2)="K ^GMRD(126.6,""C"",$E(X,1,30),DA)"
^DD(126.6,1,1,1,"%D",0)="^^2^2^2950302^^"
^DD(126.6,1,1,1,"%D",1,0)="This regular cross-reference is created to sort the file by OUTPUT TYPE"
^DD(126.6,1,1,1,"%D",2,0)="and the associated OUTPUT SUBTYPE."
^DD(126.6,1,1,1,"DT")="2911115"
^DD(126.6,1,3)=""
^DD(126.6,1,21,0)="^^3^3^2950831^^^^"
^DD(126.6,1,21,1,0)="This field associates the major categories of patient output with an output"
^DD(126.6,1,21,2,0)="subtype in the .01 field in the file.  Pointer to the OUTPUT TYPE file"
^DD(126.6,1,21,3,0)="(#126.58)."
^DD(126.6,1,"DT")="2911116"
^DD(126.6,"B","OUTPUT SUBTYPE",.01)=""
^DD(126.6,"B","OUTPUT TYPE",1)=""
^DD(126.6,"GL",0,1,.01)=""
^DD(126.6,"GL",0,2,1)=""
^DD(126.6,"IX",.01)=""
^DD(126.6,"IX",1)=""
^DD(126.6,"RQ",.01)=""
^DD(126.6,"RQ",1)=""
^DD(126.7,0)="FIELD^^.01^1"
^DD(126.7,0,"DDA")="N"
^DD(126.7,0,"DT")="2930930"
^DD(126.7,0,"IX","B",126.7,.01)=""
^DD(126.7,0,"NM","GMRY IV SITE")=""
^DD(126.7,0,"VR")="4.0"
^DD(126.7,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.7,.01,0)="IV SITE^RF^^0;1^K:$L(X)>24!($L(X)<1)!'(X'?1P.E) X"
^DD(126.7,.01,1,0)="^.1"
^DD(126.7,.01,1,1,0)="126.7^B"
^DD(126.7,.01,1,1,1)="S ^GMRD(126.7,""B"",$E(X,1,30),DA)="""""
^DD(126.7,.01,1,1,2)="K ^GMRD(126.7,""B"",$E(X,1,30),DA)"
^DD(126.7,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.7,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.7,.01,3)="Answer must be 1-24 characters in length."
^DD(126.7,.01,21,0)="^^1^1^2931209^^^^"
^DD(126.7,.01,21,1,0)="This field contains the name of the IV infusion site."
^DD(126.7,.01,22)=""
^DD(126.7,.01,"DT")="2930930"
^DD(126.7,"B","IV SITE",.01)=""
^DD(126.7,"GL",0,1,.01)=""
^DD(126.7,"IX",.01)=""
^DD(126.7,"RQ",.01)=""
^DD(126.72,0)="FIELD^^.01^1"
^DD(126.72,0,"DDA")="N"
^DD(126.72,0,"DT")="2930710"
^DD(126.72,0,"IX","B",126.72,.01)=""
^DD(126.72,0,"NM","GMRY IV SITE DESCRIPTION")=""
^DD(126.72,0,"VR")="4.0"
^DD(126.72,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.72,.01,0)="DESCRIPTION^RF^^0;1^K:$L(X)>50!($L(X)<1)!'(X'?1P.E) X"
^DD(126.72,.01,1,0)="^.1"
^DD(126.72,.01,1,1,0)="126.72^B"
^DD(126.72,.01,1,1,1)="S ^GMRD(126.72,""B"",$E(X,1,30),DA)="""""
^DD(126.72,.01,1,1,2)="K ^GMRD(126.72,""B"",$E(X,1,30),DA)"
^DD(126.72,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.72,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.72,.01,3)="Answer must be 1-50 characters in length."
^DD(126.72,.01,21,0)="^^4^4^2931209^^^^"
^DD(126.72,.01,21,1,0)="This field contains the descriptions of the IV infusion site.  The user is"
^DD(126.72,.01,21,2,0)="allowed to select a number or a combination of numbers from this file to "
^DD(126.72,.01,21,3,0)="describe the site condition.  The software then transforms the number(s)"
^DD(126.72,.01,21,4,0)="into text."
^DD(126.72,.01,"DT")="2930710"
^DD(126.72,"B","DESCRIPTION",.01)=""
^DD(126.72,"GL",0,1,.01)=""
^DD(126.72,"IX",.01)=""
^DD(126.72,"RQ",.01)=""
^DD(126.74,0)="FIELD^^1^2"
^DD(126.74,0,"DDA")="N"
^DD(126.74,0,"DT")="2960514"
^DD(126.74,0,"IX","B",126.74,.01)=""
^DD(126.74,0,"NM","GMRY IV CATHETER")=""
^DD(126.74,0,"VR")="4.0"
^DD(126.74,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.74,.01,0)="IV CATHETER TYPE/SIZE^RF^^0;1^K:$L(X)>50!($L(X)<1)!'(X'?1P.E) X"
^DD(126.74,.01,1,0)="^.1"
^DD(126.74,.01,1,1,0)="126.74^B"
^DD(126.74,.01,1,1,1)="S ^GMRD(126.74,""B"",$E(X,1,30),DA)="""""
^DD(126.74,.01,1,1,2)="K ^GMRD(126.74,""B"",$E(X,1,30),DA)"
^DD(126.74,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.74,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.74,.01,3)="Answer must be 1-50 characters in length."
^DD(126.74,.01,21,0)="^^2^2^2931209^^^^"
^DD(126.74,.01,21,1,0)="This field contains the type and size of the IV catheter used to start "
^DD(126.74,.01,21,2,0)="intravenous lines."
^DD(126.74,.01,"DT")="2950901"
^DD(126.74,1,0)="PORT^126.741^^1;0"
^DD(126.74,1,21,0)="^^2^2^2970130^"
^DD(126.74,1,21,1,0)="This field contains the name of lumen if the catheter has more than one"
^DD(126.74,1,21,2,0)="lumen."
^DD(126.74,"B","IV CATHETER TYPE/SIZE",.01)=""
^DD(126.74,"B","PORT",1)=""
^DD(126.74,"GL",0,1,.01)=""
^DD(126.74,"GL",1,0,1)=""
^DD(126.74,"IX",.01)=""
^DD(126.74,"RQ",.01)=""
^DD(126.74,"SB",126.741,1)=""
^DD(126.741,0)="PORT SUB-FIELD^^.01^1"
^DD(126.741,0,"DT")="2960514"
^DD(126.741,0,"IX","B",126.741,.01)=""
^DD(126.741,0,"NM","PORT")=""
^DD(126.741,0,"UP")="126.74"
^DD(126.741,.01,0)="PORT^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(126.741,.01,1,0)="^.1"
^DD(126.741,.01,1,1,0)="126.741^B"
^DD(126.741,.01,1,1,1)="S ^GMRD(126.74,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(126.741,.01,1,1,2)="K ^GMRD(126.74,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(126.741,.01,1,1,"%D",0)="^^2^2^2970130^"
^DD(126.741,.01,1,1,"%D",1,0)="This cross-reference is created automatically on the .01 field of PORT"
^DD(126.741,.01,1,1,"%D",2,0)="multiple."
^DD(126.741,.01,3)="Answer must be 1-30 characters in length."
^DD(126.741,.01,21,0)="^^1^1^2970130^"
^DD(126.741,.01,21,1,0)="This field contains the name of lumen associated with the IV catheter."
^DD(126.741,.01,"DT")="2960514"
^DD(126.741,"B","PORT",.01)=""
^DD(126.741,"GL",0,1,.01)=""
^DD(126.741,"IX",.01)=""
^DD(126.76,0)="FIELD^^.01^1"
^DD(126.76,0,"DDA")="N"
^DD(126.76,0,"DT")="2930710"
^DD(126.76,0,"IX","B",126.76,.01)=""
^DD(126.76,0,"NM","GMRY IV DC'ED REASON")=""
^DD(126.76,0,"VR")="4.0"
^DD(126.76,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.76,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(126.76,.01,1,0)="^.1"
^DD(126.76,.01,1,1,0)="126.76^B"
^DD(126.76,.01,1,1,1)="S ^GMRD(126.76,""B"",$E(X,1,30),DA)="""""
^DD(126.76,.01,1,1,2)="K ^GMRD(126.76,""B"",$E(X,1,30),DA)"
^DD(126.76,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.76,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.76,.01,3)="Answer must be 1-30 characters in length."
^DD(126.76,.01,21,0)="^^1^1^2931209^^^^"
^DD(126.76,.01,21,1,0)="This field contains the reasons why the IV infusion site was discontinued."
^DD(126.76,.01,"DT")="2930710"
^DD(126.76,"B","NAME",.01)=""
^DD(126.76,"GL",0,1,.01)=""
^DD(126.76,"IX",.01)=""
^DD(126.76,"RQ",.01)=""
^DD(126.8,0)="FIELD^^2^3"
^DD(126.8,0,"DDA")="N"
^DD(126.8,0,"DT")="2930710"
^DD(126.8,0,"IX","B",126.8,.01)=""
^DD(126.8,0,"IX","BL",126.8,.01)=""
^DD(126.8,0,"IX","C",126.82,.01)=""
^DD(126.8,0,"NM","GMRY INTAKE ITEMS")=""
^DD(126.8,0,"PT",126.13,.01)=""
^DD(126.8,0,"VR")="4.0"
^DD(126.8,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.8,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(126.8,.01,1,0)="^.1"
^DD(126.8,.01,1,1,0)="126.8^B"
^DD(126.8,.01,1,1,1)="S ^GMRD(126.8,""B"",$E(X,1,30),DA)="""""
^DD(126.8,.01,1,1,2)="K ^GMRD(126.8,""B"",$E(X,1,30),DA)"
^DD(126.8,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.8,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.8,.01,1,2,0)="126.8^BL^MUMPS"
^DD(126.8,.01,1,2,1)="S ^GMRD(126.8,""BL"",$E($$LOW^XLFSTR(X),1,30),DA)="""""
^DD(126.8,.01,1,2,2)="K ^GMRD(126.8,""BL"",$E($$LOW^XLFSTR(X),1,30),DA)"
^DD(126.8,.01,1,2,"%D",0)="^^1^1^2950302^^"
^DD(126.8,.01,1,2,"%D",1,0)="This MUMPS cross-reference is created to index the file by lower case NAME."
^DD(126.8,.01,1,2,"DT")="2931213"
^DD(126.8,.01,3)="Answer must be 1-30 characters in length.  This entry cannot be deleted, but it can be edited."
^DD(126.8,.01,21,0)="^^2^2^2950901^^^^"
^DD(126.8,.01,21,1,0)="This field contains the name of intake item (excluding the IV related"
^DD(126.8,.01,21,2,0)="items) such as tea, coffee, etc."
^DD(126.8,.01,"DT")="2931213"
^DD(126.8,1,0)="VOLUME^NJ3,0X^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(126.8,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(126.8,1,21,0)="^^6^6^2960122^^^^"
^DD(126.8,1,21,1,0)="This field stores the volume of the food container."
^DD(126.8,1,21,2,0)="For example:"
^DD(126.8,1,21,3,0)="  large glass .. 240 ml  small glass .. 125 ml"
^DD(126.8,1,21,4,0)="  cup .......... 150 ml  milk carton .. 240 ml"
^DD(126.8,1,21,5,0)="  soup/cereal .. 120 ml  jello ........  75 ml"
^DD(126.8,1,21,6,0)="  ice cream ....  50 ml"
^DD(126.8,1,"DT")="2960122"
^DD(126.8,2,0)="INPUT TYPE^126.82P^^1;0"
^DD(126.8,2,21,0)="^^1^1^2940525^^^^"
^DD(126.8,2,21,1,0)="This multiple screens the possible input items for a given NON-IV input type."
^DD(126.8,2,"DT")="2920617"
^DD(126.8,"B","INPUT TYPE",2)=""
^DD(126.8,"B","NAME",.01)=""
^DD(126.8,"B","VOLUME",1)=""
^DD(126.8,"GL",0,1,.01)=""
^DD(126.8,"GL",0,2,1)=""
^DD(126.8,"GL",1,0,2)=""
^DD(126.8,"IX",.01)=""
^DD(126.8,"RQ",.01)=""
^DD(126.8,"SB",126.82,2)=""
^DD(126.82,0)="INPUT TYPE SUB-FIELD^^.01^1"
^DD(126.82,0,"DT")="2920528"
^DD(126.82,0,"IX","B",126.82,.01)=""
^DD(126.82,0,"NM","INPUT TYPE")=""
^DD(126.82,0,"UP")="126.8"
^DD(126.82,.01,0)="INPUT TYPE^MRP126.56'^GMRD(126.56,^0;1^Q"
^DD(126.82,.01,1,0)="^.1"
^DD(126.82,.01,1,1,0)="126.82^B"
^DD(126.82,.01,1,1,1)="S ^GMRD(126.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(126.82,.01,1,1,2)="K ^GMRD(126.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(126.82,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.82,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.82,.01,1,2,0)="126.8^C^MUMPS"
^DD(126.82,.01,1,2,1)="S ^GMRD(126.8,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(126.82,.01,1,2,2)="K ^GMRD(126.8,""C"",$E(X,1,30),DA(1),DA)"
^DD(126.82,.01,1,2,"%D",0)="^^2^2^2950302^^^"
^DD(126.82,.01,1,2,"%D",1,0)="C MUMPS cross-reference is created to index the GMRY INTAKE ITEMS file by "
^DD(126.82,.01,1,2,"%D",2,0)="the INPUT TYPE field (2) and the associated intake item NAME (.01)."
^DD(126.82,.01,1,2,"DT")="2920528"
^DD(126.82,.01,21,0)="^^1^1^2931209^^^^"
^DD(126.82,.01,21,1,0)="This field screens for NON-IV input type items."
^DD(126.82,.01,"DT")="2920617"
^DD(126.82,"B","INPUT TYPE",.01)=""
^DD(126.82,"GL",0,1,.01)=""
^DD(126.82,"IX",.01)=""
^DD(126.82,"RQ",.01)=""
^DD(126.9,0)="FIELD^^2^3"
^DD(126.9,0,"DDA")="N"
^DD(126.9,0,"DT")="2960523"
^DD(126.9,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(126.9,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(126.9,0,"IX","B",126.9,.01)=""
^DD(126.9,0,"IX","C",126.9,1)=""
^DD(126.9,0,"NM","GMRY NUR IV SOLUTION")=""
^DD(126.9,0,"VR")="4.0"
^DD(126.9,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.9,.01,0)="NAME^RF^^0;1^K:$L(X)>75!($L(X)<1)!'(X'?1P.E) X"
^DD(126.9,.01,1,0)="^.1^^-1"
^DD(126.9,.01,1,1,0)="126.9^B"
^DD(126.9,.01,1,1,1)="S ^GMRD(126.9,""B"",$E(X,1,30),DA)="""""
^DD(126.9,.01,1,1,2)="K ^GMRD(126.9,""B"",$E(X,1,30),DA)"
^DD(126.9,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.9,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.9,.01,3)="Answer must be 1-75 characters in length."
^DD(126.9,.01,21,0)="^^3^3^2960523^^^^"
^DD(126.9,.01,21,1,0)="This field stores the names of IV solutions.  For example:"
^DD(126.9,.01,21,2,0)="   D5W(50) for D5W 50 cc, D5W(250) for D5W 250 cc, and D5W(1000) for "
^DD(126.9,.01,21,3,0)="   D5W 1000cc."
^DD(126.9,.01,"DT")="2960523"
^DD(126.9,1,0)="TYPE ^RS^H:HYPERAL;P:PIGGYBACK;A:ADMIXTURE;B:BLOOD/BLOOD PRODUCTS;I:INTRALIPIDS;^0;2^Q"
^DD(126.9,1,1,0)="^.1^^-1"
^DD(126.9,1,1,1,0)="126.9^C"
^DD(126.9,1,1,1,1)="S ^GMRD(126.9,""C"",$E(X,1,30),DA)="""""
^DD(126.9,1,1,1,2)="K ^GMRD(126.9,""C"",$E(X,1,30),DA)"
^DD(126.9,1,1,1,"%D",0)="^^2^2^2950302^^"
^DD(126.9,1,1,1,"%D",1,0)="This regular cross-reference is created to sort the file by TYPE field"
^DD(126.9,1,1,1,"%D",2,0)="and the associated IV solution NAME."
^DD(126.9,1,1,1,"DT")="2921221"
^DD(126.9,1,3)=""
^DD(126.9,1,21,0)="^^1^1^2940310^^^^"
^DD(126.9,1,21,1,0)="This field stores the IV solution type."
^DD(126.9,1,"DT")="2931209"
^DD(126.9,2,0)="VOLUME^NJ4,0X^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(126.9,2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(126.9,2,21,0)="^^1^1^2960122^^^^"
^DD(126.9,2,21,1,0)="This field contains the volume of the IV solution pack."
^DD(126.9,2,"DT")="2960122"
^DD(126.9,"B","NAME",.01)=""
^DD(126.9,"B","TYPE ",1)=""
^DD(126.9,"B","VOLUME",2)=""
^DD(126.9,"GL",0,1,.01)=""
^DD(126.9,"GL",0,2,1)=""
^DD(126.9,"GL",0,3,2)=""
^DD(126.9,"IX",.01)=""
^DD(126.9,"IX",1)=""
^DD(126.9,"RQ",.01)=""
^DD(126.9,"RQ",1)=""
^DD(126.95,0)="FIELD^^5^6"
^DD(126.95,0,"DDA")="N"
^DD(126.95,0,"DT")="2930710"
^DD(126.95,0,"IX","B",126.95,.01)=""
^DD(126.95,0,"NM","GMRY NUR SHIFT/OTHER")=""
^DD(126.95,0,"VR")="4.0"
^DD(126.95,0,"VRPK")="GEN. MED. REC. - I/O"
^DD(126.95,.01,0)="NAME^RFXI^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X I $D(X) K:$D(^GMRD(126.95,1,0)) X S:'$D(^GMRD(126.95,1,0)) DINUM=1"
^DD(126.95,.01,1,0)="^.1"
^DD(126.95,.01,1,1,0)="126.95^B"
^DD(126.95,.01,1,1,1)="S ^GMRD(126.95,""B"",$E(X,1,30),DA)="""""
^DD(126.95,.01,1,1,2)="K ^GMRD(126.95,""B"",$E(X,1,30),DA)"
^DD(126.95,.01,1,1,"%D",0)="^^1^1^2950302^^"
^DD(126.95,.01,1,1,"%D",1,0)="This regular cross-reference is automatically created on the .01 field."
^DD(126.95,.01,3)="This field provides an arbitrary name for the single entry in this file."
^DD(126.95,.01,21,0)="^^1^1^2950831^^^"
^DD(126.95,.01,21,1,0)="This is an arbitrary name for the single entry in this file."
^DD(126.95,.01,"DT")="2950831"
^DD(126.95,1,0)="NIGHT^RFX^^1;1^D MHOUR^GMRYUT11 K:X="""" X"
^DD(126.95,1,3)="Answer must be 4 characters in length."
^DD(126.95,1,21,0)="^^3^3^2931209^^^^"
^DD(126.95,1,21,1,0)="This field stores the starting hour for the night shift in military text "
^DD(126.95,1,21,2,0)="format.  For example: 2300.  Only one entry is required.  This data is used"
^DD(126.95,1,21,3,0)="to print a patient intake/output report by shift."
^DD(126.95,1,"DT")="2930810"
^DD(126.95,2,0)="DAY^RFX^^1;2^D MHOUR^GMRYUT11 K:X="""" X"
^DD(126.95,2,3)="Answer must be 4 characters in length."
^DD(126.95,2,21,0)="^^1^1^2931209^^^"
^DD(126.95,2,21,1,0)="This field stores the starting hour for the day shift.  For example: 0700."
^DD(126.95,2,"DT")="2930810"
^DD(126.95,3,0)="EVENING^RFX^^1;3^D MHOUR^GMRYUT11 K:X="""" X"
^DD(126.95,3,3)="Answer must be 4 characters in length."
^DD(126.95,3,21,0)="^^1^1^2931209^^"
^DD(126.95,3,21,1,0)="This field stores the starting hour for the evening shift such as 1500."
^DD(126.95,3,"DT")="2930810"
^DD(126.95,4,0)="ML'S OF FLUSH^RNJ3,0^^1;4^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(126.95,4,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(126.95,4,21,0)="^^2^2^2950831^^^"
^DD(126.95,4,21,1,0)="This field identifies a default value for the amount of solution generally "
^DD(126.95,4,21,2,0)="used in flushing IV ports and locks."
^DD(126.95,4,"DT")="2921229"
^DD(126.95,5,0)="GMRY ON/OFF LINE^S^1:OFF-LINE;0:ON-LINE;^OFF;1^Q"
^DD(126.95,5,21,0)="^^1^1^2940125^"
^DD(126.95,5,21,1,0)="The manager can set this field to enable or disable the application."
^DD(126.95,5,"DT")="2940125"
^DD(126.95,"B","DAY",2)=""
^DD(126.95,"B","EVENING",3)=""
^DD(126.95,"B","GMRY ON/OFF LINE",5)=""
^DD(126.95,"B","ML'S OF FLUSH",4)=""
^DD(126.95,"B","NAME",.01)=""
^DD(126.95,"B","NIGHT",1)=""
^DD(126.95,"GL",0,1,.01)=""
^DD(126.95,"GL",1,1,1)=""
^DD(126.95,"GL",1,2,2)=""
^DD(126.95,"GL",1,3,3)=""
^DD(126.95,"GL",1,4,4)=""
^DD(126.95,"GL","OFF",1,5)=""
^DD(126.95,"IX",.01)=""
^DD(126.95,"RQ",.01)=""
^DD(126.95,"RQ",1)=""
^DD(126.95,"RQ",2)=""
^DD(126.95,"RQ",3)=""
^DD(126.95,"RQ",4)=""
^DD(130,0)="FIELD^^2005^592"
^DD(130,0,"DDA")="N"
^DD(130,0,"DT")="2950517"
^DD(130,0,"ID",.09)="W ""   "",$E($P(^(0),U,9),4,5)_""-""_$E($P(^(0),U,9),6,7)_""-""_$E($P(^(0),U,9),2,3)"
^DD(130,0,"ID",26)="W:$D(^(""OP"")) ""   "",$P(^(""OP""),U,1)"
^DD(130,0,"IX","AA",130,.015)=""
^DD(130,0,"IX","AC",130,.09)=""
^DD(130,0,"IX","ACAN",130,18)=""
^DD(130,0,"IX","ACPT",130,27)=""
^DD(130,0,"IX","AD",130,.205)=""
^DD(130,0,"IX","ADA",130,121)=""
^DD(130,0,"IX","ADT",130,.09)=""
^DD(130,0,"IX","AF",130,.21)=""
^DD(130,0,"IX","AG",130.213,.01)=""
^DD(130,0,"IX","AH",130,.232)=""
^DD(130,0,"IX","AI",130,.43)=""
^DD(130,0,"IX","AIN",130,71)=""
^DD(130,0,"IX","AIN",130,72)=""
^DD(130,0,"IX","AIN",130,73)=""
^DD(130,0,"IX","AJ",130.213,1)=""
^DD(130,0,"IX","AL",130,24)=""
^DD(130,0,"IX","AM",130,32.5)=""
^DD(130,0,"IX","AM1",130,.232)=""
^DD(130,0,"IX","AM2",130,10)=""
^DD(130,0,"IX","AM3",130,.02)=""
^DD(130,0,"IX","AMM",130,11)=""
^DD(130,0,"IX","AMS",130,901.2)=""
^DD(130,0,"IX","AN",130,506)=""
^DD(130,0,"IX","AND",130,122)=""
^DD(130,0,"IX","ANES",130,.31)=""
^DD(130,0,"IX","ANON",130,54)=""
^DD(130,0,"IX","ANOR",130,118)=""
^DD(130,0,"IX","AO",130,236)=""
^DD(130,0,"IX","AOE",130,.205)=""
^DD(130,0,"IX","AOP",130,901.1)=""
^DD(130,0,"IX","AOR",130,.02)=""
^DD(130,0,"IX","AP",130,.035)=""
^DD(130,0,"IX","APCE1",130,.14)=""
^DD(130,0,"IX","APCE10",130,121)=""
^DD(130,0,"IX","APCE11",130,122)=""
^DD(130,0,"IX","APCE12",130,123)=""
^DD(130,0,"IX","APCE13",130,124)=""
^DD(130,0,"IX","APCE14",130.16,3)=""
^DD(130,0,"IX","APCE16",130,.016)=""
^DD(130,0,"IX","APCE17",130,.017)=""
^DD(130,0,"IX","APCE18",130,.018)=""
^DD(130,0,"IX","APCE19",130,.019)=""
^DD(130,0,"IX","APCE20",130,.02)=""
^DD(130,0,"IX","APCE21",130,.021)=""
^DD(130,0,"IX","APCE22",130,.022)=""
^DD(130,0,"IX","APCE23",130,.023)=""
^DD(130,0,"IX","APCE27",130,.024)=""
^DD(130,0,"IX","APCE28",130,.026)=""
^DD(130,0,"IX","APCE3",130,.04)=""
^DD(130,0,"IX","APCE4",130,.164)=""
^DD(130,0,"IX","APCE5",130,.011)=""
^DD(130,0,"IX","APCE6",130,.205)=""
^DD(130,0,"IX","APCE7",130,.232)=""
^DD(130,0,"IX","APCE9",130,119)=""
^DD(130,0,"IX","AQ",130,.232)=""
^DD(130,0,"IX","AQ1",130,905)=""
^DD(130,0,"IX","AR",130,.09)=""
^DD(130,0,"IX","ARET",130,.01)=""
^DD(130,0,"IX","ARS",130,235)=""
^DD(130,0,"IX","ASP",130,.04)=""
^DD(130,0,"IX","ASP1",130,.09)=""
^DD(130,0,"IX","ASR",130,.14)=""
^DD(130,0,"IX","AST",130,121)=""
^DD(130,0,"IX","AT",130,260.1)=""
^DD(130,0,"IX","AT1",130,260)=""
^DD(130,0,"IX","ATT",130,.14)=""
^DD(130,0,"IX","ATTP",130,123)=""
^DD(130,0,"IX","AV",130,.015)=""
^DD(130,0,"IX","B",130,.01)=""
^DD(130,0,"IX","DADX1",130,32)=""
^DD(130,0,"IX","PADX1",130,33)=""
^DD(130,0,"IX","PADX1",130,66)=""
^DD(130,0,"NM","SURGERY")=""
^DD(130,0,"PT",100.2,14)=""
^DD(130,0,"PT",130,35)=""
^DD(130,0,"PT",130.3513,.01)=""
^DD(130,0,"PT",130.43,.01)=""
^DD(130,0,"PT",133.028,.01)=""
^DD(130,0,"PT",136,.01)=""
^DD(130,0,"PT",375,14.01)=""
^DD(130,0,"PT",445.3,130)=""
^DD(130,0,"PT",8925,1405)=""
^DD(130,0,"VR")="3"
^DD(130,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(130,.01,.1)="Patient's Name"
^DD(130,.01,1,0)="^.1"
^DD(130,.01,1,1,0)="130^B"
^DD(130,.01,1,1,1)="S ^SRF(""B"",$E(X,1,30),DA)="""""
^DD(130,.01,1,1,2)="K ^SRF(""B"",$E(X,1,30),DA)"
^DD(130,.01,1,2,0)="130^ARET^MUMPS"
^DD(130,.01,1,2,1)="Q"
^DD(130,.01,1,2,2)="D ^SROKRET"
^DD(130,.01,1,2,"%D",0)="3^^5^5^2930128^^"
^DD(130,.01,1,2,"%D",1,0)="The ARET cross reference on the PATIENT field removes returns to surgery"
^DD(130,.01,1,2,"%D",2,0)="that are defined for other cases when a case is deleted.  In addition, the"
^DD(130,.01,1,2,"%D",3,0)="ARET cross reference includes logic to remove AL and AUD nodes (on case"
^DD(130,.01,1,2,"%D",4,0)="deletion) that may exist because of the reverse set and kill logic on the"
^DD(130,.01,1,2,"%D",5,0)="AL and AUD cross references."
^DD(130,.01,3)=""
^DD(130,.01,21,0)="^^2^2^2900104^"
^DD(130,.01,21,1,0)="This is the name of the patient."
^DD(130,.01,21,2,0)=" "
^DD(130,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion from this file is not allowed !!"",,""!!,?2"")"
^DD(130,.01,"DT")="2910122"
^DD(130,.011,0)="IN/OUT-PATIENT STATUS^SX^I:INPATIENT;O:OUTPATIENT;^0;12^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.011 D ^SROCON Q"
^DD(130,.011,.1)="Hospital Admission Status"
^DD(130,.011,1,0)="^.1"
^DD(130,.011,1,1,0)="130^APCE5^MUMPS"
^DD(130,.011,1,1,1)="D APCE^SROPCEX"
^DD(130,.011,1,1,2)="Q"
^DD(130,.011,1,1,"%D",0)="^.101^1^1^3050616^^"
^DD(130,.011,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.011,1,1,"DT")="3050531"
^DD(130,.011,3)="Enter the code corresponding to the hospital admission status at the time of surgery."
^DD(130,.011,21,0)="^^5^5^3040316^"
^DD(130,.011,21,1,0)="NSQIP Definition (2004):"
^DD(130,.011,21,2,0)="This field contains the patient's hospital admission status at the time"
^DD(130,.011,21,3,0)="of surgery. Enter the letter ""I"" if the patient is an inpatient or the"
^DD(130,.011,21,4,0)="letter ""O"" if he or she was an outpatient. Please follow your"
^DD(130,.011,21,5,0)="hospital's definition of inpatient and outpatient status."
^DD(130,.011,"DT")="3050531"
^DD(130,.015,0)="VISIT^P9000010'^AUPNVSIT(^0;15^Q"
^DD(130,.015,.1)="Visit"
^DD(130,.015,1,0)="^.1"
^DD(130,.015,1,1,0)="130^AV"
^DD(130,.015,1,1,1)="S ^SRF(""AV"",$E(X,1,30),DA)="""""
^DD(130,.015,1,1,2)="K ^SRF(""AV"",$E(X,1,30),DA)"
^DD(130,.015,1,1,"%D",0)="^^1^1^2960822^"
^DD(130,.015,1,1,"%D",1,0)="This is a regular cross reference to be used for sorting."
^DD(130,.015,1,1,"DT")="2960822"
^DD(130,.015,1,2,0)="130^AA^MUMPS"
^DD(130,.015,1,2,1)="D ADD^AUPNVSIT"
^DD(130,.015,1,2,2)="D SUB^AUPNVSIT"
^DD(130,.015,1,2,"%D",0)="^^2^2^2960917^^^"
^DD(130,.015,1,2,"%D",1,0)="This MUMPS cross reference maintains the dependency count for this visit"
^DD(130,.015,1,2,"%D",2,0)="in the VISIT file."
^DD(130,.015,1,2,"DT")="2960917"
^DD(130,.015,3)="Enter the visit associated with this occasion of service."
^DD(130,.015,21,0)="^^1^1^2960822^"
^DD(130,.015,21,1,0)="This is the visit associated with this case."
^DD(130,.015,"DT")="2960917"
^DD(130,.0155,0)="CLASSIFICATION ENTERED (Y/N)^S^1:YES;0:NO;^0;20^Q"
^DD(130,.0155,.1)="Classification Entered (Y/N)"
^DD(130,.0155,3)="Enter YES if classification information has been entered (as appropriate)."
^DD(130,.0155,21,0)="^^5^5^2960911^"
^DD(130,.0155,21,1,0)="This field indicates whether or not classification items have been"
^DD(130,.0155,21,2,0)="addressed.  This field is used by the software to decide whether to allow"
^DD(130,.0155,21,3,0)="the user a choice to update classification information.  If the field is"
^DD(130,.0155,21,4,0)="NO or null, it will not permit a choice if the site parameter to enter"
^DD(130,.0155,21,5,0)="classification information is turned on."
^DD(130,.0155,"DT")="2961001"
^DD(130,.016,0)="SERVICE CONNECTED^S^1:YES;0:NO;^0;16^Q"
^DD(130,.016,.1)="Treatment related to Service Connected condition (Y/N)"
^DD(130,.016,1,0)="^.1"
^DD(130,.016,1,1,0)="130^APCE16^MUMPS"
^DD(130,.016,1,1,1)="D APCE^SROPCEX"
^DD(130,.016,1,1,2)="Q"
^DD(130,.016,1,1,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,.016,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.016,1,1,"DT")="3050531"
^DD(130,.016,3)="If this case is treating a service connected problem, enter YES."
^DD(130,.016,21,0)="^^3^3^2961004^"
^DD(130,.016,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure"
^DD(130,.016,21,2,0)="is treating a VA patient for a service connected problem.  This "
^DD(130,.016,21,3,0)="information may be passed to the VISIT file (#9000010) for use by PCE."
^DD(130,.016,"DT")="3050531"
^DD(130,.017,0)="AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^0;17^Q"
^DD(130,.017,.1)="Treatment related to Agent Orange Exposure (Y/N)"
^DD(130,.017,1,0)="^.1"
^DD(130,.017,1,1,0)="130^APCE17^MUMPS"
^DD(130,.017,1,1,1)="D APCE^SROPCEX"
^DD(130,.017,1,1,2)="Q"
^DD(130,.017,1,1,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,.017,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.017,1,1,"DT")="3050531"
^DD(130,.017,3)="If this case is treating an agent orange exposure problem, enter YES."
^DD(130,.017,21,0)="^^4^4^2961004^"
^DD(130,.017,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure"
^DD(130,.017,21,2,0)="is treating a VA patient for a problem that is related to Agent Orange"
^DD(130,.017,21,3,0)="Exposure.  This information may be passed to the VISIT file (#9000010) for"
^DD(130,.017,21,4,0)="use by PCE."
^DD(130,.017,"DT")="3050531"
^DD(130,.018,0)="IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^0;18^Q"
^DD(130,.018,.1)="Treatment related to Ionizing Radiation Exposure (Y/N)"
^DD(130,.018,1,0)="^.1"
^DD(130,.018,1,1,0)="130^APCE18^MUMPS"
^DD(130,.018,1,1,1)="D APCE^SROPCEX"
^DD(130,.018,1,1,2)="Q"
^DD(130,.018,1,1,"%D",0)="^.101^1^1^3050616^^^"
^DD(130,.018,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.018,1,1,"DT")="3050531"
^DD(130,.018,3)="If this case is treating an Ionizing Radiation Exposure problem, enter YES."
^DD(130,.018,21,0)="^^4^4^2961004^"
^DD(130,.018,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure is"
^DD(130,.018,21,2,0)="treating a VA patient for a problem that is related to Ionizing Radiation"
^DD(130,.018,21,3,0)="Exposure.  This information may be passed to the VISIT file (#9000010) for"
^DD(130,.018,21,4,0)="use by PCE."
^DD(130,.018,"DT")="3050531"
^DD(130,.019,0)="SOUTHWEST ASIA CONDITIONS^S^1:YES;0:NO;^0;19^Q"
^DD(130,.019,.1)="Treatment related to service in SW Asia (Y/N)"
^DD(130,.019,1,0)="^.1"
^DD(130,.019,1,1,0)="130^APCE19^MUMPS"
^DD(130,.019,1,1,1)="D APCE^SROPCEX"
^DD(130,.019,1,1,2)="Q"
^DD(130,.019,1,1,"%D",0)="^.101^1^1^3050616^^^"
^DD(130,.019,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.019,1,1,"DT")="3050531"
^DD(130,.019,3)="If this case is treating a SW Asia problem, enter YES."
^DD(130,.019,21,0)="^.001^4^4^3060726^^"
^DD(130,.019,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure"
^DD(130,.019,21,2,0)="is treating a VA patient for a problem related to service in SW Asia."
^DD(130,.019,21,3,0)="This information may be passed to the VISIT file (#9000010) for use by "
^DD(130,.019,21,4,0)="PCE."
^DD(130,.019,"DT")="3060726"
^DD(130,.02,0)="OPERATING ROOM^*P131.7'X^SRS(^0;2^S DIC(""S"")=""I $$ORDIV^SROUTL0(+Y,$G(SRSITE(""""DIV""""))),('$P(^SRS(+Y,0),U,6))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.02,.1)="Operating Room"
^DD(130,.02,1,0)="^.1"
^DD(130,.02,1,1,0)="130^AOR^MUMPS"
^DD(130,.02,1,1,1)="I $P(^SRF(DA,0),""^"",9)'="""" S ^SRF(""AOR"",X,$E($P(^SRF(DA,0),""^"",9),1,7),DA)="""""
^DD(130,.02,1,1,2)="K ^SRF(""AOR"",X,$E($P(^SRF(DA,0),""^"",9),1,7),DA)"
^DD(130,.02,1,1,"%D",0)="^^2^2^2930128^"
^DD(130,.02,1,1,"%D",1,0)="The AOR cross reference on the OPERATING ROOM field is used in various"
^DD(130,.02,1,1,"%D",2,0)="reports when sorting by operating room."
^DD(130,.02,1,2,0)="130^AM3^MUMPS"
^DD(130,.02,1,2,1)="D AM3^SROXR2"
^DD(130,.02,1,2,2)="D KILLAM3^SROXR2"
^DD(130,.02,1,2,"%D",0)="^^3^3^2930128^^^"
^DD(130,.02,1,2,"%D",1,0)="The AM3 cross reference on the OPERATING ROOM field updates the AMM cross"
^DD(130,.02,1,2,"%D",2,0)="reference when the OPERATING ROOM is edited if the case has been"
^DD(130,.02,1,2,"%D",3,0)="scheduled."
^DD(130,.02,1,2,"DT")="2920110"
^DD(130,.02,1,3,0)="130^APCE20^MUMPS"
^DD(130,.02,1,3,1)="D APCE^SROPCEX"
^DD(130,.02,1,3,2)="Q"
^DD(130,.02,1,3,"%D",0)="^.101^1^1^3050616^^^"
^DD(130,.02,1,3,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.02,1,3,"DT")="3050531"
^DD(130,.02,3)="Enter the name of the operating room where the principal operation is performed."
^DD(130,.02,12)="Screen limits selection to active operating rooms for the division."
^DD(130,.02,12.1)="S DIC(""S"")=""I $$ORDIV^SROUTL0(+Y,$G(SRSITE(""""DIV""""))),('$P(^SRS(+Y,0),U,6))"""
^DD(130,.02,21,0)="^^3^3^2980317^^^^"
^DD(130,.02,21,1,0)="This is the name of the operating room where the principal operation"
^DD(130,.02,21,2,0)="is performed for this patient.  It can be selected by entering the name  "
^DD(130,.02,21,3,0)="or abbreviation of the operating room."
^DD(130,.02,"DT")="3050531"
^DD(130,.021,0)="ASSOCIATED CLINIC^*P44'^SC(^0;21^S DIC(""S"")=""I $$HL^SROUTL0(Y,$G(SRSITE(""""DIV""""))),$$CLINIC^SROUTL(Y,$S($D(DA):DA,1:""""""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.021,.1)="Associated Clinic"
^DD(130,.021,1,0)="^.1"
^DD(130,.021,1,1,0)="130^APCE21^MUMPS"
^DD(130,.021,1,1,1)="D APCE^SROPCEX"
^DD(130,.021,1,1,2)="Q"
^DD(130,.021,1,1,"%D",0)="^.101^1^1^3050616^^^"
^DD(130,.021,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.021,1,1,"DT")="3050531"
^DD(130,.021,3)="Enter the clinic associated with this case."
^DD(130,.021,12)="Select active, count clinic at the user's division."
^DD(130,.021,12.1)="S DIC(""S"")=""I $$HL^SROUTL0(Y,$G(SRSITE(""""DIV""""))),$$CLINIC^SROUTL(Y,$S($D(DA):DA,1:""""""""))"""
^DD(130,.021,21,0)="^^3^3^2960927^"
^DD(130,.021,21,1,0)="This is the clinic associated with this surgical case or non-OR procedure."
^DD(130,.021,21,2,0)="The entry made in this field will be used as the location of the encounter"
^DD(130,.021,21,3,0)="for PCE."
^DD(130,.021,"DT")="3050531"
^DD(130,.022,0)="MILITARY SEXUAL TRAUMA^S^1:YES;0:NO;^0;22^Q"
^DD(130,.022,.1)="Treatment related to Military Sexual Trauma (Y/N)"
^DD(130,.022,1,0)="^.1"
^DD(130,.022,1,1,0)="130^APCE22^MUMPS"
^DD(130,.022,1,1,1)="D APCE^SROPCEX"
^DD(130,.022,1,1,2)="Q"
^DD(130,.022,1,1,"%D",0)="^.101^1^1^3050616^^^"
^DD(130,.022,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.022,1,1,"DT")="3050531"
^DD(130,.022,3)="If this case is treating a problem related to Military Sexual Trauma, enter YES."
^DD(130,.022,21,0)="^.001^4^4^3011105^^^^"
^DD(130,.022,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure is"
^DD(130,.022,21,2,0)="treating a VA patient for a problem that is related to Military Sexual "
^DD(130,.022,21,3,0)="Trauma.  This information may be passed to the VISIT file (#9000010) for"
^DD(130,.022,21,4,0)="use by PCE."
^DD(130,.022,"DT")="3050531"
^DD(130,.023,0)="HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^0;23^Q"
^DD(130,.023,.1)="Treatment related to Head and/or Neck Cancer (Y/N)"
^DD(130,.023,1,0)="^.1"
^DD(130,.023,1,1,0)="130^APCE23^MUMPS"
^DD(130,.023,1,1,1)="D APCE^SROPCEX"
^DD(130,.023,1,1,2)="Q"
^DD(130,.023,1,1,"%D",0)="^.101^1^1^3050616^^^"
^DD(130,.023,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.023,1,1,"DT")="3050531"
^DD(130,.023,3)="If this case is treating a problem related to Head and/or Neck Cancer, enter YES."
^DD(130,.023,21,0)="^^4^4^3011121^"
^DD(130,.023,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure is"
^DD(130,.023,21,2,0)="treating a VA patient for a problem that is related to Head and/or Neck "
^DD(130,.023,21,3,0)="Cancer.  This information may be passed to the VISIT file (#9000010) for"
^DD(130,.023,21,4,0)="use by PCE."
^DD(130,.023,"DT")="3050531"
^DD(130,.024,0)="COMBAT VET^S^1:YES;0:NO;^0;24^Q"
^DD(130,.024,.1)="Treatment related to Combat (Y/N)"
^DD(130,.024,1,0)="^.1"
^DD(130,.024,1,1,0)="130^APCE27^MUMPS"
^DD(130,.024,1,1,1)="D APCE^SROPCEX"
^DD(130,.024,1,1,2)="Q"
^DD(130,.024,1,1,"%D",0)="^.101^1^1^3050616^^^"
^DD(130,.024,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.024,1,1,"DT")="3050531"
^DD(130,.024,3)="If this case is treating a problem related to Combat, enter YES."
^DD(130,.024,21,0)="^.001^3^3^3040210^^^^"
^DD(130,.024,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure "
^DD(130,.024,21,2,0)="is treating a VA patient for a problem that is related to Combat.  This "
^DD(130,.024,21,3,0)="information may be passed to the VISIT file (#9000010) for use by PCE."
^DD(130,.024,"DT")="3050531"
^DD(130,.026,0)="PROJ 112/SHAD^S^1:YES;0:NO;^0;25^Q"
^DD(130,.026,1,0)="^.1"
^DD(130,.026,1,1,0)="130^APCE28^MUMPS"
^DD(130,.026,1,1,1)="D APCE^SROPCEX"
^DD(130,.026,1,1,2)="Q"
^DD(130,.026,1,1,"%D",0)="^^1^1^3051117^"
^DD(130,.026,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.026,1,1,"DT")="3051117"
^DD(130,.026,3)="If this case is treating a problem related to PROJ 112/SHAD, enter YES."
^DD(130,.026,21,0)="^.001^4^4^3051213^^^^"
^DD(130,.026,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure "
^DD(130,.026,21,2,0)="is treating a VA patient for a problem that is related to PROJ 112/SHAD.  "
^DD(130,.026,21,3,0)="This information may be passed to the VISIT file (#9000010) for use by "
^DD(130,.026,21,4,0)="PCE."
^DD(130,.026,"DT")="3051117"
^DD(130,.03,0)="MAJOR/MINOR^SX^J:MAJOR;N:MINOR;^0;3^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.03 D ^SROCON Q"
^DD(130,.03,.1)="Major or Minor"
^DD(130,.03,3)="Enter the code corresponding to the case type."
^DD(130,.03,21,0)="^^8^8^3040316^"
^DD(130,.03,21,1,0)="NSQIP Definition (2004):"
^DD(130,.03,21,2,0)="Major - Any operation performed under general, spinal, or epidural "
^DD(130,.03,21,3,0)="        anesthesia plus all inguinal herniorrhaphies, carotid "
^DD(130,.03,21,4,0)="        endarterectomies, parathyroidectomies, thyroidectomies, breast"
^DD(130,.03,21,5,0)="        lumpectomies, or endovascular AAA repairs regardless of"
^DD(130,.03,21,6,0)="        anesthesia administered."
^DD(130,.03,21,7,0)="     "
^DD(130,.03,21,8,0)="Minor - All operations not designated as Major."
^DD(130,.03,"DT")="3040316"
^DD(130,.035,0)="CASE SCHEDULE TYPE^SX^EM:EMERGENCY;EL:ELECTIVE;A:ADD ON (NON-EMERGENT);S:STANDBY;U:URGENT;^0;10^I $D(DA) D EM^SROAUTLC I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.035 D ^SROCON Q"
^DD(130,.035,.1)="Case Schedule Type"
^DD(130,.035,1,0)="^.1"
^DD(130,.035,1,1,0)="130^AP^MUMPS"
^DD(130,.035,1,1,1)="D NOW^SROAUTLC"
^DD(130,.035,1,1,2)="D KNOW^SROAUTLC"
^DD(130,.035,1,1,"%D",0)="^.101^2^2^3040728^^^"
^DD(130,.035,1,1,"%D",1,0)="This cross reference stuffs the current date/time into the Date/Time of"
^DD(130,.035,1,1,"%D",2,0)="Cardiac Surgical Priority field (414.1)."
^DD(130,.035,1,1,"DT")="3040728"
^DD(130,.035,3)="Enter code describing how the case is scheduled."
^DD(130,.035,21,0)="^^10^10^3040726^"
^DD(130,.035,21,1,0)="This is the code describing how this case was scheduled.  It is "
^DD(130,.035,21,2,0)="important that this field is entered.  The Scheduler may use this field"
^DD(130,.035,21,3,0)="when updating the schedule due to cancellations or insertions."
^DD(130,.035,21,4,0)=" "
^DD(130,.035,21,5,0)="NSQIP Definition of Emergency Case (2004):"
^DD(130,.035,21,6,0)="An emergency case is usually performed as soon as possible and no later"
^DD(130,.035,21,7,0)="than 12 hours after the patient has been admitted to the hospital or"
^DD(130,.035,21,8,0)="after the onset of related preoperative symptomatology. Answer "
^DD(130,.035,21,9,0)="EMERGENCY if the surgeon and anesthesiologist report the case as"
^DD(130,.035,21,10,0)="emergent"
^DD(130,.035,"DT")="3040728"
^DD(130,.037,0)="CASE SCHEDULE ORDER^FX^^0;11^K:$L(X)>35!($L(X)<1) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.037 D ^SROCON Q"
^DD(130,.037,.1)="Case Schedule Order"
^DD(130,.037,3)="Enter the sequence when more than one patient is scheduled by a surgeon or service on the same date, i.e. 1ST, 2ND or 3RD."
^DD(130,.037,21,0)="^^5^5^2900104^"
^DD(130,.037,21,1,0)="This is the sequence in which the surgeon expects to do the case if"
^DD(130,.037,21,2,0)="he or she has more than one case scheduled for this day.  This field"
^DD(130,.037,21,3,0)="is optional, but is very useful to the person scheduling cases if the"
^DD(130,.037,21,4,0)="surgeon has more than one case."
^DD(130,.037,21,5,0)=" "
^DD(130,.037,"DT")="2910131"
^DD(130,.04,0)="SURGERY SPECIALTY^R*P137.45'^SRO(137.45,^0;4^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.04,.1)="Surgical Specialty"
^DD(130,.04,1,0)="^.1"
^DD(130,.04,1,1,0)="130^ASP^MUMPS"
^DD(130,.04,1,1,1)="I $P(^SRF(DA,0),""^"",9)'="""" S ^SRF(""ASP"",X,$E($P(^SRF(DA,0),""^"",9),1,7),DA)=DA"
^DD(130,.04,1,1,2)="K ^SRF(""ASP"",X,$E($P(^SRF(DA,0),""^"",9),1,7),DA)"
^DD(130,.04,1,1,"%D",0)="^^3^3^2930128^^"
^DD(130,.04,1,1,"%D",1,0)="The ASP cross reference on the SURGERY SPECIALTY field is used by various"
^DD(130,.04,1,1,"%D",2,0)="reports to sort by the surgical specialty and within surgical specialty"
^DD(130,.04,1,1,"%D",3,0)="by date of operation."
^DD(130,.04,1,2,0)="130^APCE3^MUMPS"
^DD(130,.04,1,2,1)="D APCE^SROPCEX"
^DD(130,.04,1,2,2)="Q"
^DD(130,.04,1,2,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,.04,1,2,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.04,1,2,"DT")="3050531"
^DD(130,.04,3)="Enter the assigned surgical specialty, or section, of the surgeon."
^DD(130,.04,12)="Screen prevents selection of inactive entries."
^DD(130,.04,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.04,21,0)="^^8^8^3070222^"
^DD(130,.04,21,1,0)="NSQIP Definition (2007):"
^DD(130,.04,21,2,0)="This is the surgical specialty credited for doing this operative "
^DD(130,.04,21,3,0)="procedure. Many reports, including the Annual Report of Surgical "
^DD(130,.04,21,4,0)="Procedures, are sorted by the surgical specialty. This field should be"
^DD(130,.04,21,5,0)="entered prior to completion of this case. (If you enter '?' in the"
^DD(130,.04,21,6,0)="surgical package, it will display the entire local surgical specialty"
^DD(130,.04,21,7,0)="list and a copy of the national list can be found in the Operations"
^DD(130,.04,21,8,0)="Manual.)"
^DD(130,.04,"DT")="3050531"
^DD(130,.05,0)="REQ CLEAN OR CONTAMINATED^SX^C:CLEAN;D:CONTAMINATED;^0;5^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.05 D ^SROCON Q"
^DD(130,.05,.1)="Request Clean or Contaminated"
^DD(130,.05,3)="Enter the code corresponding to the wound class, for scheduling purposes."
^DD(130,.05,21,0)="^^3^3^2900621^^"
^DD(130,.05,21,1,0)="This is the description of the wound class for the case.  The code entered"
^DD(130,.05,21,2,0)="is used when scheduling the operating room for this procedure."
^DD(130,.05,21,3,0)=" "
^DD(130,.05,"DT")="2900822"
^DD(130,.07,0)="PREOP SKIN INTEG^*P135.2'X^SRO(135.2,^0;7^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.07 D ^SROCON Q"
^DD(130,.07,.1)="Preoperative Skin Integrity"
^DD(130,.07,3)="Enter the code corresponding to the preoperative assessment of the patient's skin integrity upon arrival to the operating room."
^DD(130,.07,12)="Screen prevents selection of inactive entries."
^DD(130,.07,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.07,21,0)="^^4^4^2920603^^^"
^DD(130,.07,21,1,0)="This is the preoperative assessment of the patient's skin integrity"
^DD(130,.07,21,2,0)="upon arrival to the operating room.  The information entered will"
^DD(130,.07,21,3,0)="appear on the Nurse Intraoperative Report."
^DD(130,.07,21,4,0)=" "
^DD(130,.07,"DT")="2920603"
^DD(130,.08,0)="PREOP SKIN COLOR^SX^A:ASHEN;LBR:LIGHT BROWN;DBR:DARK BROWN;PI:PINK;PA:PALE;F:FLUSHED;M:MOTTLED;C:CYANOTIC;I:ICTERIC;^0;8^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.08 D ^SROCON Q"
^DD(130,.08,.1)="Preoperative Skin Color"
^DD(130,.08,3)="Enter the code corresponding to the preoperative assessment of the patient's skin color upon arrival to the operating room."
^DD(130,.08,21,0)="^^4^4^2900621^^"
^DD(130,.08,21,1,0)="This is the code corresponding to the preoperative assessment of the"
^DD(130,.08,21,2,0)="patient's skin color upon arrival to the operating room.  If entered,"
^DD(130,.08,21,3,0)="this information will appear on the Nurse Intraoperative Report."
^DD(130,.08,21,4,0)=" "
^DD(130,.08,"DT")="2900822"
^DD(130,.09,0)="DATE OF OPERATION^RDX^^0;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) D SCH^SRODATE"
^DD(130,.09,.1)="Date of Operation"
^DD(130,.09,1,0)="^.1"
^DD(130,.09,1,1,0)="130^AC^MUMPS"
^DD(130,.09,1,1,1)="S ^SRF(""AC"",X,DA)=$P(^SRF(DA,0),""^"")"
^DD(130,.09,1,1,2)="K ^SRF(""AC"",X,DA)"
^DD(130,.09,1,1,"%D",0)="^^2^2^2930128^"
^DD(130,.09,1,1,"%D",1,0)="The AC cross reference on the DATE OF OPERATION field is used to sort"
^DD(130,.09,1,1,"%D",2,0)="entries by date of operation for reports."
^DD(130,.09,1,2,0)="130^ADT^MUMPS"
^DD(130,.09,1,2,1)="D ADT^SROXR2"
^DD(130,.09,1,2,2)="D KADT^SROXR2"
^DD(130,.09,1,2,"%D",0)="^^3^3^2930128^^^"
^DD(130,.09,1,2,"%D",1,0)="The ADT cross reference on the DATE OF OPERATION field uses the 'inverse'"
^DD(130,.09,1,2,"%D",2,0)="date/time format to sort and to display cases by inverse chronological"
^DD(130,.09,1,2,"%D",3,0)="order."
^DD(130,.09,1,3,0)="130^ASP1^MUMPS"
^DD(130,.09,1,3,1)="D SP^SROXR1"
^DD(130,.09,1,3,2)="D KSP^SROXR1"
^DD(130,.09,1,3,"%D",0)="^^2^2^2930128^^"
^DD(130,.09,1,3,"%D",1,0)="The ASP1 cross reference on the DATE OF OPERATION field updates the"
^DD(130,.09,1,3,"%D",2,0)="ASP and the AOR cross references when the date of operation is changed."
^DD(130,.09,1,4,0)="130^AR^MUMPS"
^DD(130,.09,1,4,1)="D AR^SROXR1"
^DD(130,.09,1,4,2)="D KAR^SROXR1"
^DD(130,.09,1,4,"%D",0)="^^4^4^2930128^^^"
^DD(130,.09,1,4,"%D",1,0)="The AR cross reference on the DATE OF OPERATION field is used to sort"
^DD(130,.09,1,4,"%D",2,0)="and display requested cases.  This cross reference is created when a"
^DD(130,.09,1,4,"%D",3,0)="case is requested or when the request date is changed.  Upon scheduling"
^DD(130,.09,1,4,"%D",4,0)="the request, the AR cross reference for the case is deleted."
^DD(130,.09,1,4,"DT")="2911002"
^DD(130,.09,3)="Enter the date that the principal operation was performed.  The patient may have more than principal operation (and operative record) on the same day."
^DD(130,.09,5,1,0)="130^.205^1"
^DD(130,.09,5,2,0)="130^120^1"
^DD(130,.09,21,0)="^^2^2^2900104^"
^DD(130,.09,21,1,0)="This is the date that the case was performed.  The date of operation"
^DD(130,.09,21,2,0)="must be entered for all cases."
^DD(130,.09,"DT")="3051020"
^DD(130,.11,0)="TRANS TO OR BY^*P131.01'X^SRO(131.01,^.1;1^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.11 D ^SROCON Q"
^DD(130,.11,.1)="Transported to O.R. By"
^DD(130,.11,3)="Enter the transporting device, or method, used to deliver the patient to the operating room."
^DD(130,.11,12)="Screen prevents selection of inactive entries."
^DD(130,.11,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.11,21,0)="^^4^4^2920602^^^"
^DD(130,.11,21,1,0)="This is the method or device used to deliver the patient to the operating"
^DD(130,.11,21,2,0)="room.  This field is optional, but may be useful for documentation of"
^DD(130,.11,21,3,0)="the case."
^DD(130,.11,21,4,0)=" "
^DD(130,.11,"DT")="2920602"
^DD(130,.111,0)="OR CIRC SUPPORT^130.28PA^^19;0"
^DD(130,.111,.1)="O.R. Circulating Nurse"
^DD(130,.111,21,0)="^^3^3^2921026^^"
^DD(130,.111,21,1,0)="This is information about the nurses with circulating role "
^DD(130,.111,21,2,0)="responsibilities."
^DD(130,.111,21,3,0)=" "
^DD(130,.112,0)="OR SCRUB SUPPORT^130.36PA^^23;0"
^DD(130,.112,.1)="O.R. Scrub Nurse"
^DD(130,.112,21,0)="^^2^2^2900104^"
^DD(130,.112,21,1,0)="This is information about the person with scrub role responsibilities."
^DD(130,.112,21,2,0)=" "
^DD(130,.12,0)="HAIR REMOVAL BY^*P200'^VA(200,^.1;2^S DIC(""S"")=""S RESTRICT=""""130,.12"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(130,.12,.1)="Preop Surgical Site Hair Removal by"
^DD(130,.12,3)="If the patient had hair removed for the procedure, enter the name of the person responsible for removing the patient's hair. This field may be restricted based on locally defined keys."
^DD(130,.12,12)="This field may be restricted based on locally defined keys."
^DD(130,.12,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.12"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.12,21,0)="^^2^2^3060328^^"
^DD(130,.12,21,1,0)="This is the person responsible for removing the patient's hair in "
^DD(130,.12,21,2,0)="preparation for the operative procedure (if necessary)."
^DD(130,.12,"DT")="3060403"
^DD(130,.13,0)="RESTR & POSITION AIDS^130.31PA^^20;0"
^DD(130,.13,.1)="Restraint and Positioning Aids"
^DD(130,.13,21,0)="^^3^3^2900104^"
^DD(130,.13,21,1,0)="This is information related to restraints and positioning aids used"
^DD(130,.13,21,2,0)="during this operative procedure."
^DD(130,.13,21,3,0)=" "
^DD(130,.14,0)="SURGEON^R*P200'a^VA(200,^.1;4^S DIC(""S"")=""S RESTRICT=""""130,.14"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.14,.1)="Surgeon"
^DD(130,.14,1,0)="^.1"
^DD(130,.14,1,1,0)="130^ASR^MUMPS"
^DD(130,.14,1,1,1)="D STAFF^SROXR1"
^DD(130,.14,1,1,2)="D KSTAFF^SROXR1"
^DD(130,.14,1,1,"%D",0)="^^2^2^2930128^^"
^DD(130,.14,1,1,"%D",1,0)="The ASR cross reference on the SURGEON field is used to update the"
^DD(130,.14,1,1,"%D",2,0)="STAFF/RESIDENT field when a surgeon is entered."
^DD(130,.14,1,1,"DT")="2920415"
^DD(130,.14,1,2,0)="130^APCE1^MUMPS"
^DD(130,.14,1,2,1)="D APCE^SROPCEX"
^DD(130,.14,1,2,2)="Q"
^DD(130,.14,1,2,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,.14,1,2,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.14,1,2,"DT")="3050531"
^DD(130,.14,1,3,0)="130^ATT^MUMPS"
^DD(130,.14,1,3,1)="D ATT^SROXR1"
^DD(130,.14,1,3,2)="D KATT^SROXR1"
^DD(130,.14,1,3,"%D",0)="^^2^2^3041005^"
^DD(130,.14,1,3,"%D",1,0)="This cross reference updates the ATTEND SURG field with the SURGEON if "
^DD(130,.14,1,3,"%D",2,0)="the SURGERY RESIDENTS (Y/N) site parameter is NO."
^DD(130,.14,1,3,"DT")="3041005"
^DD(130,.14,3)="Enter the name of the privileged person who performs the major portion of the principal operation."
^DD(130,.14,12)="Entries into this field may be restricted based on locally selected keys."
^DD(130,.14,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.14"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.14,21,0)="^^7^7^2921026^^^^"
^DD(130,.14,21,1,0)="This is the name of the person performing the major portion of"
^DD(130,.14,21,2,0)="the principal operative procedure.  This field is required as"
^DD(130,.14,21,3,0)="part of the Operation Report."
^DD(130,.14,21,4,0)=" "
^DD(130,.14,21,5,0)="This field may be restricted by locally determined keys so that only"
^DD(130,.14,21,6,0)="people with the appropriate keys can be entered."
^DD(130,.14,21,7,0)=" "
^DD(130,.14,22)=""
^DD(130,.14,"AUDIT")="y"
^DD(130,.14,"DT")="3050531"
^DD(130,.15,0)="FIRST ASST^*P200'^VA(200,^.1;5^S DIC(""S"")=""S RESTRICT=""""130,.15"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.15,.1)="First Assistant"
^DD(130,.15,3)="Enter the name of the person assisting the surgeon during the major portion of the principal operation."
^DD(130,.15,12)="Entries in this field may be restricted based on locally defined keys."
^DD(130,.15,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.15"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.15,21,0)="^^3^3^2900621^^"
^DD(130,.15,21,1,0)="This is the name of the person assisting the surgeon during the"
^DD(130,.15,21,2,0)="operative procedure.  The information entered here appears on"
^DD(130,.15,21,3,0)="the Operation Report and Nurse Intraoperative Report."
^DD(130,.15,"DT")="2920204"
^DD(130,.16,0)="SECOND ASST^*P200'^VA(200,^.1;6^S DIC(""S"")=""S RESTRICT=""""130,.16"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.16,.1)="Second Assistant"
^DD(130,.16,3)="Enter the name of the person assisting the surgeon."
^DD(130,.16,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.16,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.16"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.16,21,0)="^^4^4^2900104^"
^DD(130,.16,21,1,0)="This is the name of the second person assisting the surgeon during"
^DD(130,.16,21,2,0)="the operative procedure.  If entered, this information appears on"
^DD(130,.16,21,3,0)="the Operation Report and Nurse Intraoperative Report."
^DD(130,.16,21,4,0)=" "
^DD(130,.16,"DT")="2920204"
^DD(130,.164,0)="ATTEND SURG^*P200'^VA(200,^.1;13^S DIC(""S"")=""S RESTRICT=""""130,.164"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.164,.1)="Attending Surgeon"
^DD(130,.164,1,0)="^.1"
^DD(130,.164,1,1,0)="130^APCE4^MUMPS"
^DD(130,.164,1,1,1)="D APCE^SROPCEX"
^DD(130,.164,1,1,2)="Q"
^DD(130,.164,1,1,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,.164,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.164,1,1,"DT")="3050531"
^DD(130,.164,3)="Enter the name of the attending staff surgeon.  This is required when the surgeon is in training status."
^DD(130,.164,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.164,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.164"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.164,21,0)="5^^4^4^2920221^^^"
^DD(130,.164,21,1,0)="This is the name of the attending staff surgeon responsible for"
^DD(130,.164,21,2,0)="this case.  This information appears on the Operation Report, Nurse"
^DD(130,.164,21,3,0)="Intraoperative Report, and Attending Surgeon Report."
^DD(130,.164,21,4,0)=" "
^DD(130,.164,"DEL",1,0)="I 1 D EN^DDIOL(""The ATTEND SURGEON can't be deleted."",,""!!,?2"")"
^DD(130,.164,"DT")="3050531"
^DD(130,.165,0)="*ATTENDING CODE - NOT USED^SI^0:LEVEL 0. ATTENDING DOING THE OPERATION;1:LEVEL 1. ATTENDING IN O.R. ASSISTING THE RESIDENT;2:LEVEL 2. ATTENDING IN O.R., NOT SCRUBBED;3:LEVEL 3. ATTENDING NOT PRESENT IN O.R. SUITE, IMMEDIATELY AVAILABLE;^.1;16^Q"
^DD(130,.165,.1)="*Attending Code - No Longer Used"
^DD(130,.165,1,0)="^.1^^0"
^DD(130,.165,3)="Enter the code corresponding to the highest level of supervision provided by the attending staff surgeon."
^DD(130,.165,9)="^"
^DD(130,.165,21,0)="^^28^28^3040429^"
^DD(130,.165,21,1,0)="NOTE: This field is replaced by the new ATTENDING CODE field (#.166)."
^DD(130,.165,21,2,0)=" "
^DD(130,.165,21,3,0)="This is the code corresponding to the highest level of supervision"
^DD(130,.165,21,4,0)="provided by the attending staff surgeon for this case.  This"
^DD(130,.165,21,5,0)="information appears in the Operation Report, Nurse Intraoperative"
^DD(130,.165,21,6,0)="Report, and Attending Surgeon Report."
^DD(130,.165,21,7,0)=" "
^DD(130,.165,21,8,0)="0   The staff practitioner performs the case but may be assisted by "
^DD(130,.165,21,9,0)="    a resident."
^DD(130,.165,21,10,0)=" "
^DD(130,.165,21,11,0)="1   The supervising practitioner is physically present in the "
^DD(130,.165,21,12,0)="    operative or procedural suite and directly involved in the"
^DD(130,.165,21,13,0)="    procedure. The resident performs major portions of the procedure."
^DD(130,.165,21,14,0)=" "
^DD(130,.165,21,15,0)="2   The supervising practitioner is physically present in the "
^DD(130,.165,21,16,0)="    operative or procedural suite and immediately available for"
^DD(130,.165,21,17,0)="    consultation. The supervising practitioner may observe and "
^DD(130,.165,21,18,0)="    provide direction.  The resident performs the procedure"
^DD(130,.165,21,19,0)=" "
^DD(130,.165,21,20,0)="3   The supervising practitioner is not physically present in the "
^DD(130,.165,21,21,0)="    operative or procedural suite, but is in the facility or on the "
^DD(130,.165,21,22,0)="    VA campus. The supervising practitioner is immediately available"
^DD(130,.165,21,23,0)="    for resident supervision or consultation as needed.  Local policy, "
^DD(130,.165,21,24,0)="    as approved by the VISN Academic Affiliations Officer, should "
^DD(130,.165,21,25,0)="    define the standard for ""availability"" of the supervising"
^DD(130,.165,21,26,0)="    practitioner.  NOTE: The service chief and chief of staff "
^DD(130,.165,21,27,0)="    are responsible for periodically reviewing cases done under "
^DD(130,.165,21,28,0)="    Level 3 supervision."
^DD(130,.165,"DT")="3040618"
^DD(130,.166,0)="ATTENDING CODE^*P132.9'^SRO(132.9,^.1;10^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.166,.1)="Attending Code"
^DD(130,.166,3)="Enter the code corresponding to the highest level of supervision provided by the attending staff surgeon."
^DD(130,.166,12)="Screen prevents selection of inactive entries."
^DD(130,.166,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.166,21,0)="^.001^2^2^3040429^^^"
^DD(130,.166,21,1,0)="This is the code corresponding to the highest level of resident"
^DD(130,.166,21,2,0)="supervision provided by the attending staff surgeon for this case."
^DD(130,.166,"DT")="3040429"
^DD(130,.167,0)="PERFUSIONIST^*P200'^VA(200,^.1;19^S DIC(""S"")=""S RESTRICT=""""130,.167"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.167,.1)="Perfusionist"
^DD(130,.167,3)="Enter the name of the person operating the cardio-pulmonary or organ perfusion apparatus."
^DD(130,.167,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.167,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.167"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.167,21,0)="^^5^5^2900104^"
^DD(130,.167,21,1,0)="This is the name of the person operating the cardio-pulmonary or"
^DD(130,.167,21,2,0)="organ perfusion apparatus.  Although not required, this information"
^DD(130,.167,21,3,0)="may be valuable in documenting the case.  If entered, it will appear"
^DD(130,.167,21,4,0)="on the Nurse Intraoperative Report."
^DD(130,.167,21,5,0)=" "
^DD(130,.167,"DT")="2920204"
^DD(130,.168,0)="ASST PERFUSIONIST^*P200'^VA(200,^.1;20^S DIC(""S"")=""S RESTRICT=""""130,.168"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.168,.1)="Assistant Perfusionist"
^DD(130,.168,3)="Enter the name of the person assisting the perfusionist."
^DD(130,.168,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.168,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.168"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.168,21,0)="^^4^4^2900104^"
^DD(130,.168,21,1,0)="This is the name of the person assisting the perfusionist.  If"
^DD(130,.168,21,2,0)="applicable, this information may be valuable in documentation of"
^DD(130,.168,21,3,0)="this case."
^DD(130,.168,21,4,0)=" "
^DD(130,.168,"DT")="2920204"
^DD(130,.175,0)="SKIN PREP AGENTS^*P135.1'X^SRO(135.1,^.1;7^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.175 D ^SROCON Q"
^DD(130,.175,.1)="Skin Preparation Agent"
^DD(130,.175,3)="Enter the code corresponding to the name of the skin prep agent used to wash and prepare the operative site."
^DD(130,.175,12)="Screen prevents selection of inactive entries."
^DD(130,.175,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.175,21,0)="^^4^4^2920603^^^"
^DD(130,.175,21,1,0)="This is the type of agent used to wash and prepare the operative"
^DD(130,.175,21,2,0)="site.  If entered, this information appears on the Nurse Intraoperative"
^DD(130,.175,21,3,0)="Report and is useful in documenting the case."
^DD(130,.175,21,4,0)=" "
^DD(130,.175,"DT")="2920603"
^DD(130,.18,0)="SKIN PREPPED BY (1)^*P200'^VA(200,^.1;8^S DIC(""S"")=""S RESTRICT=""""130,.18"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.18,.1)="Skin Prepped By"
^DD(130,.18,3)="Enter the name of the person performing the preop skin preparation."
^DD(130,.18,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.18,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.18"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.18,21,0)="^^4^4^2930110^^^"
^DD(130,.18,21,1,0)="This is the name of the person responsible for applying the agent"
^DD(130,.18,21,2,0)="used to wash and prepare the operative site.  If entered, this"
^DD(130,.18,21,3,0)="information will appear on the Nurse Intraoperative Report."
^DD(130,.18,21,4,0)=" "
^DD(130,.18,"DT")="2920204"
^DD(130,.19,0)="PREOP MOOD^*P135.3'X^SRO(135.3,^.1;9^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.19 D ^SROCON Q"
^DD(130,.19,.1)="Preoperative Mood"
^DD(130,.19,3)="Enter the code corresponding to the preoperative assessment of the patient's emotional status upon arrival to the operating room."
^DD(130,.19,12)="Screen prevents selection of inactive entries."
^DD(130,.19,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.19,21,0)="^^5^5^2900104^^"
^DD(130,.19,21,1,0)="This is the preoperative assessment of the patient's emotional status"
^DD(130,.19,21,2,0)="upon arrival to the operating room.  It may be useful in the documentation"
^DD(130,.19,21,3,0)="of the case.  If entered, this information will appear on the Nurse "
^DD(130,.19,21,4,0)="Intraoperative Report."
^DD(130,.19,21,5,0)=" "
^DD(130,.19,"DT")="2920602"
^DD(130,.195,0)="PREOP CONVERSE^SX^TC:TALKS CONSTANTLY;IC:INITIATES CONVERSATION;RQ:RESPONDS TO QUESTIONS;NA:NOT ANSWER QUESTIONS;A:APHASIC;D:DYSPHASIC;^.1;14^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.195 D ^SROCON Q"
^DD(130,.195,.1)="Preoperative Conversation"
^DD(130,.195,3)="Enter the code corresponding to the preoperative assessment of the patient's demonstrated verbal responses upon arrival to the operating room."
^DD(130,.195,21,0)="^^4^4^2900621^^"
^DD(130,.195,21,1,0)="This is the preoperative assessment of the patient's demonstrated"
^DD(130,.195,21,2,0)="verbal responses upon arrival to the operating room.  Although"
^DD(130,.195,21,3,0)="optional, this field may be valuable in documenting this case."
^DD(130,.195,21,4,0)=" "
^DD(130,.195,"DT")="2900822"
^DD(130,.196,0)="PREOP CONSCIOUS^*P135.4'X^SRO(135.4,^.1;15^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.196 D ^SROCON Q"
^DD(130,.196,.1)="Preoperative Consciousness"
^DD(130,.196,3)="Enter the code corresponding to the preoperative assessment of the patient's level of consciousness upon arrival to the operating room."
^DD(130,.196,12)="Screen prevents selection of inactive entries."
^DD(130,.196,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.196,21,0)="^^4^4^2921106^^^^"
^DD(130,.196,21,1,0)="This is the preoperative assessment of the patient's level of"
^DD(130,.196,21,2,0)="consciousness upon arrival to the operating room.  Although optional,"
^DD(130,.196,21,3,0)="this information may be useful in documenting the case."
^DD(130,.196,21,4,0)=" "
^DD(130,.196,"DT")="2920603"
^DD(130,.202,0)="NURSE PRESENT TIME^DX^^.2;7^S Z=$E($P(^SRF(D0,0),U,9),1,7) D TIME^SROVAR K:Y<1!(X'[""."") X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.202 D ^SROCON Q"
^DD(130,.202,.1)="Time Nurse was Present"
^DD(130,.202,3)="Enter the date/time that the nurse was present in the operating room."
^DD(130,.202,21,0)="^^3^3^2921026^^^^"
^DD(130,.202,21,1,0)="This is the date and time that the nurse was present in the operating"
^DD(130,.202,21,2,0)="room.  Times entered without a date will be converted to the date of"
^DD(130,.202,21,3,0)="operation at that time."
^DD(130,.202,"DT")="2900822"
^DD(130,.203,0)="TIME PAT IN HOLD AREA^DX^^.2;15^S Z=$E($P(^SRF(DA,0),U,9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) S %DT=""ETX"" D ^%DT S X=Y K:Y<1!(X'[""."") X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.203 D ^SROCON Q"
^DD(130,.203,.1)="Time Patient Arrived in Holding Area"
^DD(130,.203,3)="Enter the date/time that the patient arrived in the holding area."
^DD(130,.203,21,0)="^^4^4^2900621^^^"
^DD(130,.203,21,1,0)="This is the date and time that the patient arrived in the holding area."
^DD(130,.203,21,2,0)="Times entered without a date will be converted to the date of operation"
^DD(130,.203,21,3,0)="at that time."
^DD(130,.203,21,4,0)=" "
^DD(130,.203,"DT")="2931209"
^DD(130,.204,0)="ANES AVAIL TIME^DX^^.2;8^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA),0),U,9),1,7) D TIME^SROVAR S %DT=""TX"" D ^%DT S X=Y K:Y<1!(X'[""."") X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.204 D ^SROCON Q"
^DD(130,.204,.1)="Anesthesia Available Time"
^DD(130,.204,3)="Enter the date/time that the anesthetist is available to service the patient."
^DD(130,.204,21,0)="^^4^4^2900621^^^"
^DD(130,.204,21,1,0)="This is the date and time that the anesthetist is available to"
^DD(130,.204,21,2,0)="service the patient.  Although optional, this information is"
^DD(130,.204,21,3,0)="useful for evaluating operation delays."
^DD(130,.204,21,4,0)=" "
^DD(130,.204,"DT")="2930520"
^DD(130,.205,0)="TIME PAT IN OR^DX^^.2;10^S Z=$E($P(^SRF(DA,0),U,9),1,7) D TIME^SROVAR K:Y<1!(X'[""."") X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.205 D ^SROCON Q"
^DD(130,.205,.1)="Time Patient In the O.R."
^DD(130,.205,1,0)="^.1"
^DD(130,.205,1,1,0)="^^TRIGGER^130^.09"
^DD(130,.205,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$S($D(^SRF(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=130,DIG=.09 D ^DICR"
^DD(130,.205,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(130,.205,1,1,2.1) X ^DD(130,.205,1,1,2.4)"
^DD(130,.205,1,1,2.1)="S X=DIV S X=X,Y(1)=X S X=1,Y(2)=X S X=7,X=$E(Y(1),Y(2),X)"
^DD(130,.205,1,1,2.4)="S DIH=$S($D(^SRF(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=130,DIG=.09 D ^DICR"
^DD(130,.205,1,1,"%D",0)="^^2^2^2930128^"
^DD(130,.205,1,1,"%D",1,0)="This trigger on the TIME PAT IN OR field updates the DATE OF OPERATION"
^DD(130,.205,1,1,"%D",2,0)="field with the date/time the patient went into the operating room."
^DD(130,.205,1,1,"CREATE VALUE")="TIME PAT IN OR"
^DD(130,.205,1,1,"DELETE VALUE")="$E(OLD TIME PAT IN OR,1,7)"
^DD(130,.205,1,1,"FIELD")="DATE OF OPERATION"
^DD(130,.205,1,2,0)="130^APCE6^MUMPS"
^DD(130,.205,1,2,1)="D APCE^SROPCEX"
^DD(130,.205,1,2,2)="Q"
^DD(130,.205,1,2,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,.205,1,2,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.205,1,2,"DT")="3050531"
^DD(130,.205,1,3,0)="130^AD^MUMPS"
^DD(130,.205,1,3,1)="D VALIDAT^SROCVER"
^DD(130,.205,1,3,2)="Q"
^DD(130,.205,1,3,"%D",0)="^^2^2^3030319^"
^DD(130,.205,1,3,"%D",1,0)="This MUMPS cross-reference on the TIME PAT IN OR field is used to "
^DD(130,.205,1,3,"%D",2,0)="invoke the CPT and ICD-9 codes revalidation checks in routine ^SROCVER."
^DD(130,.205,1,3,"DT")="3030303"
^DD(130,.205,1,4,0)="130^AOE^MUMPS"
^DD(130,.205,1,4,1)="I $L($T(OR1^ORMEVNT1)) D OR1^ORMEVNT1(DA,X)"
^DD(130,.205,1,4,2)="I $L($T(OR2^ORMEVNT1)) D OR2^ORMEVNT1(DA)"
^DD(130,.205,1,4,"%D",0)="^^2^2^3060824^"
^DD(130,.205,1,4,"%D",1,0)="This MUMPS cross reference allows the CPRS to automatic discontinue or"
^DD(130,.205,1,4,"%D",2,0)="release orders when the patient enters the OR."
^DD(130,.205,1,4,"DT")="3060705"
^DD(130,.205,3)="Enter the date/time that the patient was transported into the operating room."
^DD(130,.205,21,0)="^^6^6^3040316^"
^DD(130,.205,21,1,0)="This is the date and time that the patient was transported into the"
^DD(130,.205,21,2,0)="operation room. Times entered without a date will be converted to the"
^DD(130,.205,21,3,0)="date of operation at that time."
^DD(130,.205,21,4,0)=" "
^DD(130,.205,21,5,0)="NSQIP Definition (2004):"
^DD(130,.205,21,6,0)="Patient in Room (PIR): Time when patient enters the OR/PR."
^DD(130,.205,"DT")="3060705"
^DD(130,.206,0)="SURG PRESENT TIME^DX^^.2;9^S Z=$E($P(^SRF(DA,0),U,9),1,7) D TIME^SROVAR K:Y<1!(X'[""."") X"
^DD(130,.206,.1)="Surgeon Present Time"
^DD(130,.206,3)="Enter the time that the authorized surgeon is available to begin the operation."
^DD(130,.206,21,0)="^^4^4^2900621^^^^"
^DD(130,.206,21,1,0)="This is the date and time that the surgeon is available to begin the"
^DD(130,.206,21,2,0)="operative procedure.  Although not mandatory, this information is"
^DD(130,.206,21,3,0)="useful for evaluating hospital delays."
^DD(130,.206,21,4,0)=" "
^DD(130,.206,"DT")="2870924"
^DD(130,.21,0)="ANES CARE START TIME^DX^^.2;1^S Z=$E($P(^SRF(D0,0),U,9),1,7) D TIME^SROVAR S %DT=""ETX"" D ^%DT S X=Y K:Y<1!(X'[""."") X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.21 D ^SROCON Q"
^DD(130,.21,.1)="Anesthesia Care Start Time"
^DD(130,.21,1,0)="^.1^^-1"
^DD(130,.21,1,1,0)="130^AF^MUMPS"
^DD(130,.21,1,1,1)="Q:'$D(SRTN)!('$D(SRSITE(""IV"")))!('$D(DT))  I SRSITE(""IV"") D IV^SROXR1"
^DD(130,.21,1,1,2)="Q"
^DD(130,.21,1,1,"%D",0)="^^12^12^3030910^"
^DD(130,.21,1,1,"%D",1,0)="The AF MUMPS cross reference on this field is responsible for canceling"
^DD(130,.21,1,1,"%D",2,0)="current IV orders for a patient undergoing a surgical or non-OR procedure"
^DD(130,.21,1,1,"%D",3,0)="if the site parameter is set to allow cancellation of IV orders. "
^DD(130,.21,1,1,"%D",4,0)=" "
^DD(130,.21,1,1,"%D",5,0)="This cross reference compares the time entered in the ANES CARE START TIME"
^DD(130,.21,1,1,"%D",6,0)="field with the current time. If the difference is more than 24 hours,"
^DD(130,.21,1,1,"%D",7,0)="order cancellation is not allowed. If the difference is more than 1 hour,"
^DD(130,.21,1,1,"%D",8,0)="but not more than 24 hours, the user is warned that a considerable amount"
^DD(130,.21,1,1,"%D",9,0)="of time has passed since the start of the operation or procedure. Finally,"
^DD(130,.21,1,1,"%D",10,0)="if order cancellation is allowed, the user is prompted to cancel current"
^DD(130,.21,1,1,"%D",11,0)="IV orders or not. If the user chooses to cancel IV orders, the Surgery"
^DD(130,.21,1,1,"%D",12,0)="software calls DCOR^PSIVACT."
^DD(130,.21,1,1,"DT")="2970915"
^DD(130,.21,3)="Enter the time a member of the Anesthesia staff begins preparing the patient for surgery in the O.R. suite."
^DD(130,.21,21,0)="^^7^7^3040316^"
^DD(130,.21,21,1,0)="This is the date and time that the anesthesia care began. It is required"
^DD(130,.21,21,2,0)="as part of the anesthesia report. The definition of what constitutes the"
^DD(130,.21,21,3,0)="time anesthesia care begins may vary depending on local anesthesia policy."
^DD(130,.21,21,4,0)=" "
^DD(130,.21,21,5,0)="NSQIP Definition (2004):"
^DD(130,.21,21,6,0)="Anesthesia Start (AS): Time when a member of the anesthesia team "
^DD(130,.21,21,7,0)="begins preparing the patient for an anesthetic."
^DD(130,.21,"DT")="3040316"
^DD(130,.213,0)="ANES CARE TIME BLOCK^130.213DA^^50;0"
^DD(130,.213,21,0)="^.001^1^1^3040412^^^^"
^DD(130,.213,21,1,0)="This is the date and time for which anesthesia care is provided."
^DD(130,.214,0)="ANES CARE BILLABLE TIME FLAG^S^1:YES;0:NO;^.2;17^Q"
^DD(130,.214,.1)="Anesthesia Care Billable Time Flag"
^DD(130,.214,3)="""Yes"" indicates all anesthesia care time has been entered. ""No"" indicates time entry is not complete."
^DD(130,.214,21,0)="^.001^4^4^3030806^^^"
^DD(130,.214,21,1,0)="This field is a flag that indicates all anesthesia care time has been "
^DD(130,.214,21,2,0)="entered for a case.  It is used in calculating the total anesthesia "
^DD(130,.214,21,3,0)="billable time.  ""Yes"" indicates all time has been entered. ""No"" indicates "
^DD(130,.214,21,4,0)="time entry is not complete."
^DD(130,.214,"DT")="3030905"
^DD(130,.215,0)="INDUCTION COMPLETE^DX^^.2;11^S SRN=.2,SRP=1,SR130=""ANES CARE START TIME"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.215 D ^SROCON Q"
^DD(130,.215,.1)="Induction Complete Time"
^DD(130,.215,3)="Enter the time that the anesthetist declares the patient ready for the start of the surgical procedure."
^DD(130,.215,21,0)="^^4^4^2900621^^^^"
^DD(130,.215,21,1,0)="This is the date and time that the anesthetist declares the patient"
^DD(130,.215,21,2,0)="ready for the start of the operative procedure.  Although optional,"
^DD(130,.215,21,3,0)="this information may be useful in management studies."
^DD(130,.215,21,4,0)=" "
^DD(130,.215,"DT")="2980109"
^DD(130,.218,0)="ANES CARE BILLABLE TIME^CJ8,0^^ ; ^S X=$$BILLTIME^SROANEST"
^DD(130,.218,.1)="Anesthesia Care Billable Time"
^DD(130,.218,9)="^"
^DD(130,.218,9.01)=""
^DD(130,.218,9.1)="S X=$$BILLTIME^SROANEST"
^DD(130,.218,21,0)="^.001^3^3^3040311^^"
^DD(130,.218,21,1,0)="This is the total anesthesia care billable time in minutes. It is "
^DD(130,.218,21,2,0)="calculated from all time intervals entered in the multiple anesthesia "
^DD(130,.218,21,3,0)="start and end time fields.."
^DD(130,.218,"DT")="3040311"
^DD(130,.22,0)="TIME OPERATION BEGAN^DX^^.2;2^S Z=$E($P(^SRF(DA,0),U,9),1,7) D TIME^SROVAR K:Y<1!(X'[""."") X"
^DD(130,.22,.1)="Time the Operation Began"
^DD(130,.22,1,0)="^.1^^0"
^DD(130,.22,3)="Enter the time of the start of the surgical procedure.  Exclude the skin prep time."
^DD(130,.22,21,0)="^^7^7^3040316^"
^DD(130,.22,21,1,0)="This is the date and time that the operation began. The definition of"
^DD(130,.22,21,2,0)="this time is usually 'knife fall', but may vary according to local"
^DD(130,.22,21,3,0)="surgery service protocol."
^DD(130,.22,21,4,0)=" "
^DD(130,.22,21,5,0)="NSQIP Definition (2004):"
^DD(130,.22,21,6,0)="Procedure/Surgery Start Time (PST): Time the procedure is begun (e.g.,"
^DD(130,.22,21,7,0)="incision for a surgical procedure)."
^DD(130,.22,"DT")="3040316"
^DD(130,.23,0)="TIME OPERATION ENDS^DX^^.2;3^S SRN=.2,SRP=2,SR130=""TIME OPERATION BEGAN"" D TERM^SROVAR K:Y<1 X"
^DD(130,.23,.1)="Time the Operation Ends"
^DD(130,.23,1,0)="^.1^^0"
^DD(130,.23,3)="Enter the time wherein all surgical procedures related to this operation are complete."
^DD(130,.23,21,0)="^^8^8^3040316^"
^DD(130,.23,21,1,0)="NSQIP Definition (2004):"
^DD(130,.23,21,2,0)="Procedure/Surgery Finish (PF): Time when all instrument and sponge"
^DD(130,.23,21,3,0)="counts are completed and verified as correct; all postoperative"
^DD(130,.23,21,4,0)="radiological studies to be done in the OR/PR are completed; all"
^DD(130,.23,21,5,0)="dressings and drains are secured; and the physician/surgeons have"
^DD(130,.23,21,6,0)="completed all procedure-related activities on the patient. Should the"
^DD(130,.23,21,7,0)="patient expire in the operating room, indicate the time the patient was"
^DD(130,.23,21,8,0)="pronounced dead.  "
^DD(130,.23,"DT")="3040316"
^DD(130,.232,0)="TIME PAT OUT OR^DX^^.2;12^S SRN=.2,SRP=10,SR130=""TIME PAT IN OR"" D TERM^SROVAR K:Y<1 X I $D(X) D ATT^SROUTL1 I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.232 D ^SROCON Q"
^DD(130,.232,.1)="Time Patient Out of the O.R."
^DD(130,.232,1,0)="^.1^^-1"
^DD(130,.232,1,1,0)="130^AH^MUMPS"
^DD(130,.232,1,1,1)="I $D(^SRF(DA,14)),'$D(^(15)) S %X=""^SRF(DA,14,"",%Y=""^SRF(DA,15,"" D %XY^%RCR S ^(0)=""^130.18A""_U_$P(^SRF(DA,15,0),U,3,4) K %X,%Y"
^DD(130,.232,1,1,2)="Q"
^DD(130,.232,1,1,"%D",0)="^^3^3^2930128^^"
^DD(130,.232,1,1,"%D",1,0)="The AH cross reference on the TIME PAT OUT OR field moves the OTHER PREOP"
^DD(130,.232,1,1,"%D",2,0)="DIAGNOSIS information into the OTHER POSTOP DIAGS subfile when the TIME"
^DD(130,.232,1,1,"%D",3,0)="PAT OUT OR is entered."
^DD(130,.232,1,3,0)="130^AM1^MUMPS"
^DD(130,.232,1,3,1)="D AM1^SROXR2"
^DD(130,.232,1,3,2)="Q"
^DD(130,.232,1,3,"%D",0)="^^4^4^2930301^^^"
^DD(130,.232,1,3,"%D",1,0)="The AM1 cross reference on the TIME PAT OUT OR field is responsible for"
^DD(130,.232,1,3,"%D",2,0)="removing the AMM cross reference for the case and for updating the"
^DD(130,.232,1,3,"%D",3,0)="scheduling display graph.  In addition, if the case is a reqested case,"
^DD(130,.232,1,3,"%D",4,0)="the AR cross reference is removed if it still exists."
^DD(130,.232,1,4,0)="130^APCE7^MUMPS"
^DD(130,.232,1,4,1)="D APCE^SROPCEX"
^DD(130,.232,1,4,2)="Q"
^DD(130,.232,1,4,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,.232,1,4,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,.232,1,4,"DT")="3050531"
^DD(130,.232,1,5,0)="130^AQ^MUMPS"
^DD(130,.232,1,5,1)="D AQ^SROXR4"
^DD(130,.232,1,5,2)="D KAQ^SROXR4"
^DD(130,.232,1,5,"%D",0)="^^2^2^2970123^"
^DD(130,.232,1,5,"%D",1,0)="This MUMPS cross reference is used by the transmission process to the"
^DD(130,.232,1,5,"%D",2,0)="national database."
^DD(130,.232,1,5,"DT")="2970123"
^DD(130,.232,3)="Enter the time that the patient is taken from the operating room, i.e. 7:45, 0745, 745, T@7:45, JAN 1@745 ..."
^DD(130,.232,21,0)="^^12^12^3040721^"
^DD(130,.232,21,1,0)="This is the date and time that the patient is taken from the operating"
^DD(130,.232,21,2,0)="room. Times entered without a date will be converted to the date of"
^DD(130,.232,21,3,0)="operation at that time. This information is very significant for"
^DD(130,.232,21,4,0)="operating room management studies."
^DD(130,.232,21,5,0)=" "
^DD(130,.232,21,6,0)="NSQIP Definition (2004):"
^DD(130,.232,21,7,0)="Patient Out of Room (POR): Time at which patient leaves OR/PR."
^DD(130,.232,21,8,0)=" "
^DD(130,.232,21,9,0)="CICSP Definition (2004):"
^DD(130,.232,21,10,0)="Indicate the time the patient was transported out of the operating "
^DD(130,.232,21,11,0)="room. If the patient dies prior to leaving the OR, then indicate the"
^DD(130,.232,21,12,0)="time of death for this data element."
^DD(130,.232,"DEL",1,0)="I $$DEL^SROESX(DA,""1,2"") D EN^DDIOL(""The TIME PAT OUT OR can't be deleted. This case has one or more operative"",,""!!,?2"") D EN^DDIOL(""reports associated with it."",,""!,?2"")"
^DD(130,.232,"DT")="3060705"
^DD(130,.234,0)="OR CLEAN START TIME^DX^^.2;13^S SRN=.2,SRP=12,SR130=""TIME PAT OUT OR"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.234 D ^SROCON Q"
^DD(130,.234,.1)="Time O.R. Cleaning Began"
^DD(130,.234,3)="Enter the date/time when the 'end of case' cleaning, or terminal cleaning began."
^DD(130,.234,21,0)="^^4^4^2900104^^^^"
^DD(130,.234,21,1,0)="This is the date and time when the 'end of case' or terminal cleaning"
^DD(130,.234,21,2,0)="began.  Times entered without a date will be converted to the date of"
^DD(130,.234,21,3,0)="operation at that time."
^DD(130,.234,21,4,0)=" "
^DD(130,.234,"DT")="2980109"
^DD(130,.236,0)="OR CLEAN END TIME^DX^^.2;14^S SRN=.2,SRP=13,SR130=""OR CLEAN START TIME"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.236 D ^SROCON Q"
^DD(130,.236,.1)="Time O.R. Cleaning Ended"
^DD(130,.236,3)="Enter the date/time when the 'end of case' or terminal cleaning ended."
^DD(130,.236,21,0)="^^4^4^2900104^^^"
^DD(130,.236,21,1,0)="This is the date and time when the 'end of case' or terminal cleaning"
^DD(130,.236,21,2,0)="ended.  Times entered without a date will be converted to the date of"
^DD(130,.236,21,3,0)="operation at that time."
^DD(130,.236,21,4,0)=" "
^DD(130,.236,"DT")="2980109"
^DD(130,.24,0)="ANES CARE END TIME^DX^^.2;4^S SRN=.2,SRP=1,SR130=""ANES CARE START TIME"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.24 D ^SROCON Q"
^DD(130,.24,.1)="Anesthesia Care End Time"
^DD(130,.24,3)="Enter the time that the anesthesia staff transfers care to other care providers."
^DD(130,.24,21,0)="^^8^8^3040316^"
^DD(130,.24,21,1,0)="This is the date and time that anesthesia care ends. Its definition"
^DD(130,.24,21,2,0)="may vary according to local anesthesia policy. Acceptable time formats"
^DD(130,.24,21,3,0)="include 7:45, 745, T@7:45 and JAN 1@7:45. Times entered without a date"
^DD(130,.24,21,4,0)="will be converted to the date of the operation at that time."
^DD(130,.24,21,5,0)=" "
^DD(130,.24,21,6,0)="NSQIP Definition (2004):"
^DD(130,.24,21,7,0)="Anesthesia Finish (AF): Time at which anesthesiologist turns over care"
^DD(130,.24,21,8,0)="of the patient to a post anesthesia care team (either PACU or ICU)."
^DD(130,.24,"DEL",1,0)="I $$DEL^SROESX(DA,""4"") D EN^DDIOL(""The ANES CARE END TIME field cannot be deleted. This case has an"",,""!!,?2"") D EN^DDIOL(""Anesthesia Report associated with it."",,""!,?2"")"
^DD(130,.24,"DT")="3040316"
^DD(130,.25,0)="BLOOD LOSS (ML)^NJ6,0X^^.2;5^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.25 D ^SROCON Q"
^DD(130,.25,.1)="Intraoperative Blood Loss (ml)"
^DD(130,.25,3)="Enter the number of milliliters (0-100000) of blood estimated to be lost during the procedure (EBL)."
^DD(130,.25,21,0)="^^4^4^2900918^^^"
^DD(130,.25,21,1,0)="This is the number of milliliters (0-100000) of blood estimated to be "
^DD(130,.25,21,2,0)="lost during the operative procedure (EBL).  This information appears"
^DD(130,.25,21,3,0)="on the Nurse Intraoperative report, if entered."
^DD(130,.25,21,4,0)=" "
^DD(130,.25,"DT")="2920514"
^DD(130,.255,0)="TOTAL URINE OUTPUT (ML)^NJ6,0X^^.2;16^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.255 D ^SROCON Q"
^DD(130,.255,.1)="Total Urine Output (ml)"
^DD(130,.255,3)="Enter the number of milliliters (0-100000) of urine output during the operative procedure.  (If measured)"
^DD(130,.255,21,0)="^^4^4^2900621^^"
^DD(130,.255,21,1,0)="This is the total number of milliliters (0-100000) of urine output"
^DD(130,.255,21,2,0)="during the operative procedure.  If entered, this information appears"
^DD(130,.255,21,3,0)="on the Nurse Intraoperative Report."
^DD(130,.255,21,4,0)=" "
^DD(130,.255,"DT")="2900822"
^DD(130,.27,0)="REPLACEMENT FLUID TYPE^130.04PA^^4;0"
^DD(130,.27,.1)="Replacement Fluid Type"
^DD(130,.27,21,0)="2"
^DD(130,.27,21,1,0)="This is information related to the replacement fluid given intravascularly"
^DD(130,.27,21,2,0)="during the operative procedure."
^DD(130,.28,0)="GENERAL COMMENTS^130.05^^5;0"
^DD(130,.28,.1)="General Comments"
^DD(130,.28,21,0)="^^3^3^2921215^^^"
^DD(130,.28,21,1,0)="These are general comments about the operative procedure.  Any"
^DD(130,.28,21,2,0)="information not provided for elsewhere can be entered here."
^DD(130,.28,21,3,0)=" "
^DD(130,.29,0)="NURSING CARE COMMENTS^130.07^^7;0"
^DD(130,.29,.1)="Nursing Care Comments"
^DD(130,.29,21,0)="^^2^2^2900105^^^"
^DD(130,.29,21,1,0)="These are comments on this case required for documentation on the"
^DD(130,.29,21,2,0)="Nurse Intraoperative Report."
^DD(130,.293,0)="MONITORS^130.41PA^^27;0"
^DD(130,.293,.1)="Physiologic Monitors"
^DD(130,.293,21,0)="^^3^3^2900105^"
^DD(130,.293,21,1,0)="This is information related to invasive or non-invasive monitors"
^DD(130,.293,21,2,0)="used during this case."
^DD(130,.293,21,3,0)=" "
^DD(130,.31,0)="PRINC ANESTHETIST^*P200'^VA(200,^.3;1^S DIC(""S"")=""S RESTRICT=""""130,.31"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.31,.1)="Principal Anesthetist"
^DD(130,.31,1,0)="^.1"
^DD(130,.31,1,1,0)="130^ANES^MUMPS"
^DD(130,.31,1,1,1)="D ANES^SROXR1"
^DD(130,.31,1,1,2)="D KANES^SROXR1"
^DD(130,.31,1,1,"%D",0)="^^2^2^2930129^^"
^DD(130,.31,1,1,"%D",1,0)="The ANES cross reference on the PRINC ANESTHETIST field updates the"
^DD(130,.31,1,1,"%D",2,0)="ANESTHETIST CATEGORY field when a principal anesthetist is entered."
^DD(130,.31,1,1,"DT")="2921105"
^DD(130,.31,3)="This may be the anesthesiologist or CRNA (or surgeon, if local)"
^DD(130,.31,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.31,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.31"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.31,21,0)="^^4^4^2921106^^^^"
^DD(130,.31,21,1,0)="This is the name of the principal anesthesiologist or CRNA (or surgeon,"
^DD(130,.31,21,2,0)="if local anesthesia).  This information is extremely important for the"
^DD(130,.31,21,3,0)="Anesthesia Report."
^DD(130,.31,21,4,0)=" "
^DD(130,.31,"DT")="3020207"
^DD(130,.32,0)="RELIEF ANESTHETIST^*P200'^VA(200,^.3;2^S DIC(""S"")=""S RESTRICT=""""130,.32"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.32,.1)="Relief Anesthetist"
^DD(130,.32,3)="Enter the name of the relief anesthetist (if applicable)"
^DD(130,.32,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.32,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.32"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.32,21,0)="^^4^4^2900621^^"
^DD(130,.32,21,1,0)="This is the name of the anesthetist relieving the principal anesthetist,"
^DD(130,.32,21,2,0)="if applicable.  If entered, this information appears on the Anesthesia"
^DD(130,.32,21,3,0)="Report."
^DD(130,.32,21,4,0)=" "
^DD(130,.32,"DT")="2920204"
^DD(130,.33,0)="ASST ANESTHETIST^*P200'^VA(200,^.3;3^S DIC(""S"")=""S RESTRICT=""""130,.33"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.33,.1)="Assistant Anesthetist"
^DD(130,.33,3)="Enter the name of the assistant to the principal anesthetist."
^DD(130,.33,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.33,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.33"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.33,21,0)="^^3^3^2900105^"
^DD(130,.33,21,1,0)="This is the name of the person assisting the principal anesthetist.  If"
^DD(130,.33,21,2,0)="entered, this information appears on the Anesthesia Report."
^DD(130,.33,21,3,0)=" "
^DD(130,.33,"DT")="2920204"
^DD(130,.34,0)="ANESTHESIOLOGIST SUPVR^*P200'^VA(200,^.3;4^S DIC(""S"")=""S RESTRICT=""""130,.34"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.34,.1)="Anesthesiologist Supervisor"
^DD(130,.34,3)="Enter the name of the anesthesiology staff supervisor."
^DD(130,.34,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.34,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.34"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.34,21,0)="^^5^5^2900105^^^"
^DD(130,.34,21,1,0)="This is the name of anesthesia supervisor.  He or she may be the same"
^DD(130,.34,21,2,0)="person entered in the 'PRINC ANESTHETIST' or 'ASST ANESTHETIST' fields."
^DD(130,.34,21,3,0)="This information is required if the principal anesthetist is in a"
^DD(130,.34,21,4,0)="training status, or CRNA."
^DD(130,.34,21,5,0)=" "
^DD(130,.34,"DT")="3020207"
^DD(130,.345,0)="ANES SUPERVISE CODE^P132.95'X^SRO(132.95,^.3;6^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.345 D ^SROCON Q"
^DD(130,.345,.1)="Anesthesiologist's Supervisor Code"
^DD(130,.345,3)="Enter the code corresponding to the highest level of supervision of the anesthesiology staff supervisor."
^DD(130,.345,21,0)="^^4^4^2900621^^"
^DD(130,.345,21,1,0)="This is the code corresponding to the highest level of supervision"
^DD(130,.345,21,2,0)="of the anesthesiology staff supervisor.  This information appears"
^DD(130,.345,21,3,0)="on the Anesthesia Report."
^DD(130,.345,21,4,0)=" "
^DD(130,.345,"DT")="2900823"
^DD(130,.3511,0)="ANES PERSONALLY PERFORMED^SX^0:NO;1:YES;^.2;19^Q"
^DD(130,.3511,.1)="Anesthesiologist Personally Performed"
^DD(130,.3511,3)="Choose from: Y YES   N NO"
^DD(130,.3511,21,0)="^.001^2^2^3030908^^^^"
^DD(130,.3511,21,1,0)="Answer yes only if the anesthesiologist personally performed the entire "
^DD(130,.3511,21,2,0)="anesthesia procedure."
^DD(130,.3511,23,0)="^.001^3^3^3030908^^^^"
^DD(130,.3511,23,1,0)="Did the anesthesiologist personally perform the anesthesia care? This "
^DD(130,.3511,23,2,0)="field only accepts and displays a ""Y"" for yes or ""N"" for no.  The set of "
^DD(130,.3511,23,3,0)="codes  stores/translates 1 = YES and 0 = No."
^DD(130,.3511,"DT")="3030908"
^DD(130,.3512,0)="NUM OF CONCURRENT ANES CASES^NJ1,0X^^.2;20^K:X<1!(X>9) X"
^DD(130,.3512,.1)="Number Of Concurrent Anesthesiology Cases"
^DD(130,.3512,3)="Enter the total number of concurrent anesthesia procedures to this anesthesia care including this care.  "
^DD(130,.3512,21,0)="^^8^8^3040505^"
^DD(130,.3512,21,1,0)="Including this case, enter the number of cases that the"
^DD(130,.3512,21,2,0)="anesthesiologist supervised where the time of the anesthesia"
^DD(130,.3512,21,3,0)="care overlapped with this care. This field is required to support"
^DD(130,.3512,21,4,0)="billing for the care and is critical for accurate coding of the"
^DD(130,.3512,21,5,0)="primary anesthesia procedure.  Enter a zero if the anesthesiologist"
^DD(130,.3512,21,6,0)="personally performed the care.  Enter 1 if the principal anesthetist"
^DD(130,.3512,21,7,0)="was not an anesthesiologist and was medically directed by an"
^DD(130,.3512,21,8,0)="anesthesiologist.  "
^DD(130,.3512,23,0)="^.001^2^2^3040505^^^^"
^DD(130,.3512,23,1,0)="Total number of concurrent cases the anesthesiologist supervised during "
^DD(130,.3512,23,2,0)="this care? This field can contain only one digit.  "
^DD(130,.3512,"DT")="3030904"
^DD(130,.3513,0)="ANES CONCURRENT CASES^130.3513PA^^55;0"
^DD(130,.3513,21,0)="^.001^3^3^3041123^^"
^DD(130,.3513,21,1,0)="This field is for information only and is not required. It will assist in "
^DD(130,.3513,21,2,0)="correcting potential errors if a start or end time is edited since other "
^DD(130,.3513,21,3,0)="cases could be affected by the edit."
^DD(130,.3513,23,0)="^.001^2^2^3041123^^"
^DD(130,.3513,23,1,0)="This field lists the concurrent anesthesia cases to this case by the "
^DD(130,.3513,23,2,0)="SURGERY case number."
^DD(130,.3514,0)="ANES MEDICALLY DIRECTED^SX^0:NO;1:YES;^.2;22^Q"
^DD(130,.3514,.1)="Anesthesiologist Medically Directed"
^DD(130,.3514,3)="Choose from Y YES   N NO"
^DD(130,.3514,21,0)="^.001^3^3^3030904^^^^"
^DD(130,.3514,21,1,0)="If the principal anesthetist was other than an anesthesiologist, answer "
^DD(130,.3514,21,2,0)="yes if an anesthesiologist supervised the care.  Answering no indicates "
^DD(130,.3514,21,3,0)="that the anesthetist was unsupervised."
^DD(130,.3514,23,0)="^.001^3^3^3030904^^^"
^DD(130,.3514,23,1,0)="Was the CRNA medically directed by an anesthesiologist during this care? "
^DD(130,.3514,23,2,0)="This field only accepts and displays a ""Y"" for yes or ""N"" for no.  The "
^DD(130,.3514,23,3,0)="set of codes  stores/translates 1 = YES and 0 = NO."
^DD(130,.3514,"DT")="3030908"
^DD(130,.3515,0)="ANES PHYSICIAN AVAILABLE^SX^0:NO;1:YES;^.2;23^Q"
^DD(130,.3515,.1)="Teaching Physician Present"
^DD(130,.3515,3)="Choose from Y YES   N NO"
^DD(130,.3515,21,0)="^.001^3^3^3030904^^^^"
^DD(130,.3515,21,1,0)="If the anesthetist was a resident, answer yes if the teaching physician "
^DD(130,.3515,21,2,0)="was present during all key portions of the procedure and immediately "
^DD(130,.3515,21,3,0)="available during the entire procedure."
^DD(130,.3515,23,0)="^.001^4^4^3030904^^^^"
^DD(130,.3515,23,1,0)="Was the teaching physician present during all key portions of the "
^DD(130,.3515,23,2,0)="procedure and immediately available during the entire procedure? This "
^DD(130,.3515,23,3,0)="field only accepts and displays a ""Y"" for yes or ""N"" for no. The set of "
^DD(130,.3515,23,4,0)="codes  stores/translates 1 = YES and 0 = NO."
^DD(130,.3515,"DT")="3030908"
^DD(130,.36,0)="MIN INTRAOP TEMPERATURE (C)^NJ4,1X^^.3;7^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""2N.N) X I $D(X),$D(DA),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.36 D ^SROCON Q"
^DD(130,.36,.1)="Lowest Intraoperative Temperature (C)"
^DD(130,.36,3)="Type a Number between 0 and 50, 1 Decimal Digit"
^DD(130,.36,21,0)="^^4^4^2950124^^^^"
^DD(130,.36,21,1,0)="This is the lowest temperature of the patient during the operative"
^DD(130,.36,21,2,0)="procedure.  If entered, this information will appear on the Nurse"
^DD(130,.36,21,3,0)="Intraoperative Report."
^DD(130,.36,21,4,0)=" "
^DD(130,.36,"DT")="2950103"
^DD(130,.37,0)="ANESTHESIA TECHNIQUE^130.06SA^^6;0"
^DD(130,.37,.1)="Anesthesia Technique"
^DD(130,.37,21,0)="^.001^3^3^3071126^^^^"
^DD(130,.37,21,1,0)="This is information about the anesthesia technique used during this"
^DD(130,.37,21,2,0)="case."
^DD(130,.37,21,3,0)=" "
^DD(130,.37,"DT")="3070315"
^DD(130,.375,0)="MEDICATIONS^130.33PA^^22;0"
^DD(130,.375,.1)="Medications"
^DD(130,.375,21,0)="^^1^1^2900105^"
^DD(130,.375,21,1,0)="This is information about medication for this case."
^DD(130,.39,0)="IRRIGATION^130.08PA^^26;0"
^DD(130,.39,.1)="Solution used for Irrigation"
^DD(130,.39,21,0)="^^2^2^2900105^"
^DD(130,.39,21,1,0)="This is information related to the irrigation solution."
^DD(130,.39,21,2,0)=" "
^DD(130,.42,0)="OTHER PROCEDURES^130.16A^^13;0"
^DD(130,.42,.1)="Other Operative Procedures (Same Specialty)"
^DD(130,.42,12)="QUICK LOOK-UP OF OPERATIONS IS BUILT FROM OPERATIONS PERFORMED AT THE HOSPITAL"
^DD(130,.42,12.1)="S DIC(""S"")=""I $D(^SRS(""""AOP"""",""""AC"""",Y))"""
^DD(130,.42,21,0)="^^3^3^2911206^^"
^DD(130,.42,21,1,0)="This is information related to procedures performed in addition"
^DD(130,.42,21,2,0)="to the principal procedure."
^DD(130,.42,21,3,0)=" "
^DD(130,.42,"DT")="2911206"
^DD(130,.43,0)="REQ POSTOP CARE^*P131.6'X^SRO(131.6,^.4;3^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(DA),$D(X),$P($G(^SRF(DA,""CON"")),""^"") S SRFLD=.43 D ^SROCON"
^DD(130,.43,.1)="Requested Postoperative Care"
^DD(130,.43,1,0)="^.1"
^DD(130,.43,1,1,0)="130^AI^MUMPS"
^DD(130,.43,1,1,1)="I $S('$D(^SRF(DA,.7)):1,$P(^(.7),U,9)="""":1,1:0) S $P(^SRF(DA,.7),U,9)=X"
^DD(130,.43,1,1,2)="Q"
^DD(130,.43,1,1,"%D",0)="^^2^2^2930129^"
^DD(130,.43,1,1,"%D",1,0)="The AI cross reference on the REQ POSTOP CARE field stuffs the requested"
^DD(130,.43,1,1,"%D",2,0)="post-operative care entry into the PACU DISPOSITION field."
^DD(130,.43,3)="Enter the requested postoperative care disposition for this patient."
^DD(130,.43,12)="Screen prevents selection of inactive file entries."
^DD(130,.43,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.43,21,0)="^^3^3^2900621^^^^"
^DD(130,.43,21,1,0)="This is the code corresponding to the location of care after the patient"
^DD(130,.43,21,2,0)="leaves the operating room and/or the post-anesthesia care unit."
^DD(130,.43,21,3,0)=" "
^DD(130,.43,"DT")="2940922"
^DD(130,.44,0)="OR SET-UP TIME^NJ3,0X^^.4;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.44 D ^SROCON Q"
^DD(130,.44,.1)="O.R. Set-Up Time"
^DD(130,.44,3)="Enter a number between 0 and 999."
^DD(130,.44,21,0)="^^3^3^2900105^^^^"
^DD(130,.44,21,1,0)="This is the number of minutes (0-999) necessary to prepare the operating"
^DD(130,.44,21,2,0)="room for the admission of the patient for the surgical procedure."
^DD(130,.44,21,3,0)=" "
^DD(130,.44,"DT")="2900823"
^DD(130,.46,0)="OP DISPOSITION^*P131.6'X^SRO(131.6,^.4;6^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(DA),$D(X),$P($G(^SRF(DA,""CON"")),""^"") S SRFLD=.46 D ^SROCON"
^DD(130,.46,.1)="Postoperative Disposition"
^DD(130,.46,3)="Enter the destination of the patient immediately following the procedure."
^DD(130,.46,12)="Screen prevents selection of inactive file entries."
^DD(130,.46,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.46,21,0)="^^3^3^2940627^^^^"
^DD(130,.46,21,1,0)="This is the destination of the patient immediately following the surgical"
^DD(130,.46,21,2,0)="procedure."
^DD(130,.46,21,3,0)=" "
^DD(130,.46,"DT")="2940922"
^DD(130,.47,0)="PROSTHESIS INSTALLED^130.01PA^^1;0"
^DD(130,.47,.1)="Prosthetic Devices"
^DD(130,.47,21,0)="^^3^3^2921026^^"
^DD(130,.47,21,1,0)="This is information related to the prosthesis used for this operative"
^DD(130,.47,21,2,0)="procedure."
^DD(130,.47,21,3,0)=" "
^DD(130,.48,0)="TIME TOURNIQUET APPLIED^130.02DA^^2;0"
^DD(130,.48,.1)="Date/Time Tourniquet Applied"
^DD(130,.48,21,0)="^^2^2^2930111^^"
^DD(130,.48,21,1,0)="This is information related to the application of a tourniquet."
^DD(130,.48,21,2,0)=" "
^DD(130,.48,"DT")="2930111"
^DD(130,.52,0)="FINAL COUNTS VERIFY CORRECT^SX^Y:CORRECT;N:INCORRECT;U:UNKNOWN;^.5;1^Q"
^DD(130,.52,.1)="Status of Final Counts"
^DD(130,.52,21,0)="^^3^3^2900621^^^^"
^DD(130,.52,21,1,0)="This is the code corresponding to the status of the final count at the"
^DD(130,.52,21,2,0)="end of the surgical procedure."
^DD(130,.52,21,3,0)=" "
^DD(130,.52,"DT")="2900823"
^DD(130,.522,0)="VERIFIER^P200'^VA(200,^.5;12^Q"
^DD(130,.522,.1)="Final Counts Verified By"
^DD(130,.522,3)="Enter the name of the verifier."
^DD(130,.522,21,0)="^^4^4^2900621^^"
^DD(130,.522,21,1,0)="This is the person responsible for verifying that the final sponge,"
^DD(130,.522,21,2,0)="sharps, and instrument counts are correct at the end of this operative"
^DD(130,.522,21,3,0)="procedure."
^DD(130,.522,21,4,0)=" "
^DD(130,.522,"DT")="2911205"
^DD(130,.523,0)="*INST CNT CORRECT^S^Y:CORRECT;N:INCORRECT;U:UNKNOWN;^.5;10^Q"
^DD(130,.523,.1)="Status of the Final Instrument Count"
^DD(130,.523,21,0)="^^4^4^2930303^^^^"
^DD(130,.523,21,1,0)="Enter the code corresponding to the status of the final instrument"
^DD(130,.523,21,2,0)="count at the end of the surgical procedure."
^DD(130,.523,21,3,0)="  "
^DD(130,.523,21,4,0)="This field is marked for deletion."
^DD(130,.523,"DT")="2871229"
^DD(130,.525,0)="INST CNT VERF BY^P200'^VA(200,^.5;11^Q"
^DD(130,.525,.1)="Instrument Count Verified By"
^DD(130,.525,3)="Enter the name of the person accountable for the verification of the final instrument count."
^DD(130,.525,21,0)="^^3^3^2900105^"
^DD(130,.525,21,1,0)="This is the name of the person accountable for verification of"
^DD(130,.525,21,2,0)="the final instrument count."
^DD(130,.525,21,3,0)=" "
^DD(130,.525,"DT")="2911205"
^DD(130,.54,0)="*SURGERY POSITION^P132'^SRO(132,^.5;3^Q"
^DD(130,.54,3)="Enter the position of the patient during the surgery procedure."
^DD(130,.54,21,0)="^^4^4^2930303^^"
^DD(130,.54,21,1,0)="This field has been asterisked for deletion 18 months from the"
^DD(130,.54,21,2,0)="release of version 3.0 of the DHCP Surgery package.  A multiple"
^DD(130,.54,21,3,0)="field titled SURGERY POSITION will be used in it's place."
^DD(130,.54,21,4,0)=" "
^DD(130,.54,"DT")="2911023"
^DD(130,.55,0)="ELECTROGROUND POSITION^*P138'X^SRO(138,^.5;4^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.55 D ^SROCON Q"
^DD(130,.55,.1)="Electroground Placement"
^DD(130,.55,3)="Enter the code corresponding to the area of placement of the dispersive electrode pad."
^DD(130,.55,12)="Screen prevents selection of inactive entries."
^DD(130,.55,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.55,21,0)="^^3^3^2920603^^^^"
^DD(130,.55,21,1,0)="This is the code corresponding to the area of placement of the"
^DD(130,.55,21,2,0)="dispersive electrode pad."
^DD(130,.55,21,3,0)=" "
^DD(130,.55,"DT")="2920603"
^DD(130,.56,0)="FOLEY CATHETER SIZE^NJ3,0X^^.5;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.56 D ^SROCON Q"
^DD(130,.56,.1)="Foley Catheter Size"
^DD(130,.56,3)="Enter a whole number between 0 and 100."
^DD(130,.56,21,0)="^^2^2^2900621^^^^"
^DD(130,.56,21,1,0)="This is the size of the Foley catheter."
^DD(130,.56,21,2,0)=" "
^DD(130,.56,"DT")="2900823"
^DD(130,.57,0)="FOLEY CATHETER INSERTED BY^*P200'^VA(200,^.5;6^S DIC(""S"")=""S RESTRICT=""""130,.57"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.57,.1)="Foley Catheter Inserted By"
^DD(130,.57,3)="Enter the name of the person accountable for the insertion of the Foley catheter."
^DD(130,.57,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,.57,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.57"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.57,21,0)="^^4^4^2900105^"
^DD(130,.57,21,1,0)="This is the name of the person accountable for insertion of the Foley"
^DD(130,.57,21,2,0)="catheter.  Although this information is optional, it may be useful in"
^DD(130,.57,21,3,0)="documentation of this case."
^DD(130,.57,21,4,0)=" "
^DD(130,.57,"DT")="2920204"
^DD(130,.61,0)="PREOP TEMPERATURE^NJ5,1X^^.6;1^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""2N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.61 D ^SROCON Q"
^DD(130,.61,.1)="Preoperative Temperature"
^DD(130,.61,3)="Enter a number between 0 and 200."
^DD(130,.61,21,0)="^^3^3^2921026^^^^"
^DD(130,.61,21,1,0)="This is the most recent ward-recorded temperature of the patient prior"
^DD(130,.61,21,2,0)="to transport to the operating room."
^DD(130,.61,21,3,0)=" "
^DD(130,.61,"DT")="2900823"
^DD(130,.615,0)="PREOP WEIGHT (Kg)^NJ3,0X^^.6;10^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.615 D ^SROCON Q"
^DD(130,.615,.1)="Preoperative Weight (Kg)"
^DD(130,.615,3)="Enter a whole number between 0 and 500."
^DD(130,.615,21,0)="^^3^3^2921026^^^^"
^DD(130,.615,21,1,0)="This is the most recent ward-recorded weight of the patient prior to"
^DD(130,.615,21,2,0)="transport to the operating room."
^DD(130,.615,21,3,0)=" "
^DD(130,.615,"DT")="2900823"
^DD(130,.62,0)="PREOPERATIVE HEART RATE^NJ3,0X^^.6;2^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.62 D ^SROCON Q"
^DD(130,.62,.1)="Preoperative Heart Rate"
^DD(130,.62,3)="Enter a whole number between 0 and 300."
^DD(130,.62,21,0)="^^3^3^2921026^^^^"
^DD(130,.62,21,1,0)="This is the most recent ward-recorded heart rate of the patient "
^DD(130,.62,21,2,0)="prior to transport to the operating room."
^DD(130,.62,21,3,0)=" "
^DD(130,.62,"DT")="2900823"
^DD(130,.63,0)="PREOP BLOOD PRESSURE^FX^^.6;3^K:$L(X)>10!($L(X)<2)!'(X?1N.N1""/""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.63 D ^SROCON Q"
^DD(130,.63,.1)="Preoperative Blood Pressure"
^DD(130,.63,3)="Enter the most recent ward recorded blood pressure of the patient prior to transport to the operating room."
^DD(130,.63,21,0)="^^4^4^2910507^^^"
^DD(130,.63,21,1,0)="This is the most recent ward recorded blood pressure of the patient"
^DD(130,.63,21,2,0)="prior to transport to the operating room.  Although optional, this"
^DD(130,.63,21,3,0)="information may be useful for documentation of this case."
^DD(130,.63,21,4,0)=" "
^DD(130,.63,"DT")="2900823"
^DD(130,.64,0)="PREOP RESPIRATORY RATE^NJ3,0X^^.6;4^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.64 D ^SROCON Q"
^DD(130,.64,.1)="Preoperative Respiratory Rate"
^DD(130,.64,3)="Enter a whole number between 0 and 200."
^DD(130,.64,21,0)="^^3^3^2921026^^^^"
^DD(130,.64,21,1,0)="this is the most recent ward-recorded respiratory rate of the patient"
^DD(130,.64,21,2,0)="prior to transport to the operating room."
^DD(130,.64,21,3,0)=" "
^DD(130,.64,"DT")="2900823"
^DD(130,.65,0)="FINAL ANESTHESIA TEMP (C)^NJ4,1X^^.6;5^K:+X'=X!(X>45)!(X<4)!(X?.E1"".""2N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.65 D ^SROCON Q"
^DD(130,.65,.1)="Final Anesthesia Temperature (C)"
^DD(130,.65,3)="Enter a whole number between 4 and 45."
^DD(130,.65,21,0)="^^3^3^2900621^^^^"
^DD(130,.65,21,1,0)="This is the temperature, in degrees centigrade, at the time of the end"
^DD(130,.65,21,2,0)="of anesthesia care."
^DD(130,.65,21,3,0)=" "
^DD(130,.65,"DT")="2900823"
^DD(130,.66,0)="POSTOP PULSE^NJ3,0X^^.6;6^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.66 D ^SROCON Q"
^DD(130,.66,.1)="Postoperative Pulse Rate"
^DD(130,.66,1,0)="^.1^^0"
^DD(130,.66,3)="Enter a whole number between 0 and 300."
^DD(130,.66,21,0)="^^3^3^2900105^^^^"
^DD(130,.66,21,1,0)="This is the pulse rate of the patient upon admission to the care area"
^DD(130,.66,21,2,0)="immediately after the surgical procedure."
^DD(130,.66,21,3,0)=" "
^DD(130,.66,"DT")="2900823"
^DD(130,.67,0)="POSTOP BP^FX^^.6;7^K:$L(X)>10!($L(X)<2)!'(X?1N.N1""/""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.67 D ^SROCON Q"
^DD(130,.67,.1)="Postoperative Blood Pressure"
^DD(130,.67,3)="Enter the patient's blood pressure upon admission to the care area immediately after the surgical procedure."
^DD(130,.67,21,0)="^^4^4^2900105^"
^DD(130,.67,21,1,0)="This is the patient's blood pressure upon admission to the care area"
^DD(130,.67,21,2,0)="immediately after the surgical procedure.  Although this information"
^DD(130,.67,21,3,0)="is optional, it may be useful in documentation of this case."
^DD(130,.67,21,4,0)=" "
^DD(130,.67,"DT")="2900823"
^DD(130,.68,0)="POSTOP RESP^NJ3,0X^^.6;8^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.68 D ^SROCON Q"
^DD(130,.68,.1)="Postoperative Respiratory Rate"
^DD(130,.68,3)="Enter a whole number between 0 and 300."
^DD(130,.68,21,0)="^^3^3^2900105^^^^"
^DD(130,.68,21,1,0)="This is the respiratory rate of the patient upon admission to the care"
^DD(130,.68,21,2,0)="area immediately after the surgical procedure."
^DD(130,.68,21,3,0)=" "
^DD(130,.68,"DT")="2900823"
^DD(130,.69,0)="VALID ID/CONSENT CONFIRMED BY^*P200'^VA(200,^.6;9^S DIC(""S"")=""S RESTRICT=""""130,.69"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,.69,.1)="Person Confirming ID Band and Valid Consent"
^DD(130,.69,3)="Enter the person confirming that there is valid consent."
^DD(130,.69,12)="Enrties in this field may be restricted based on locally selected keys."
^DD(130,.69,12.1)="S DIC(""S"")=""S RESTRICT=""""130,.69"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,.69,21,0)="^^4^4^2921026^^^^"
^DD(130,.69,21,1,0)="This is the name of the person verifying the patient's identification"
^DD(130,.69,21,2,0)="band, Social Security Number, surgical site/procedure, and the entry"
^DD(130,.69,21,3,0)="of a valid operative consent on the patient's record."
^DD(130,.69,21,4,0)=" "
^DD(130,.69,"DT")="2920204"
^DD(130,.72,0)="OTHER PREOP DIAGNOSIS^130.17A^^14;0"
^DD(130,.72,.1)="Other Preoperative Diagnosis"
^DD(130,.72,21,0)="^^3^3^2900109^"
^DD(130,.72,21,1,0)="This is information related to any diagnosis in addition to the"
^DD(130,.72,21,2,0)="principal preoperative diagnosis."
^DD(130,.72,21,3,0)=" "
^DD(130,.74,0)="OTHER POSTOP DIAGS^130.18A^^15;0"
^DD(130,.74,.1)="Other Postoperative Diagnosis"
^DD(130,.74,21,0)="^.001^3^3^3060726^^^^"
^DD(130,.74,21,1,0)="This is information related to any postoperative diagnosis in addition"
^DD(130,.74,21,2,0)="to the principal postoperative diagnosis."
^DD(130,.74,21,3,0)=" "
^DD(130,.74,"DT")="2921026"
^DD(130,.75,0)="ELECTROCAUTERY UNIT^FX^^.7;5^K:$L(X)>50!($L(X)<2) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.75 D ^SROCON Q"
^DD(130,.75,.1)="Electrocautery Unit"
^DD(130,.75,3)="Your answer must be 2-50 characters in length."
^DD(130,.75,21,0)="^^10^10^2900911^^^^"
^DD(130,.75,21,1,0)="This is information identifying the electrosurgical unit utilized"
^DD(130,.75,21,2,0)="during the operative procedure.  The information may include, but is"
^DD(130,.75,21,3,0)="not limited to, unit number, ground pad lot number and/or expiration"
^DD(130,.75,21,4,0)="date, coag setting, cut setting, blend-BI:Setting and Bipolar"
^DD(130,.75,21,5,0)="BP:Setting.  Examples:"
^DD(130,.75,21,6,0)="   Electrocautery Unit: #7 HP206  COAG:50  CUT:50  BI:1"
^DD(130,.75,21,7,0)="   Electrocautery Unit: DAISY:18%  or  DAISY BP:18%"
^DD(130,.75,21,8,0)="   Electrocautery Unit: VL#2 EXP 3/20/91 COAG:30 CUT:20 BI:2  #2 BP:20"
^DD(130,.75,21,9,0)="                        (VL-VALLEYLAB)"
^DD(130,.75,21,10,0)=" "
^DD(130,.75,"DT")="2900823"
^DD(130,.757,0)="THERMAL UNIT^130.32A^^21;0"
^DD(130,.757,.1)="Thermal Unit"
^DD(130,.757,21,0)="^^2^2^2900109^"
^DD(130,.757,21,1,0)="This is information related to the temperature controlling device."
^DD(130,.757,21,2,0)=" "
^DD(130,.76,0)="POSTOP SKIN INTEG^*P135.2'X^SRO(135.2,^.7;6^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.76 D ^SROCON Q"
^DD(130,.76,.1)="Postoperative Skin Integrity"
^DD(130,.76,3)="Enter the code corresponding to the assessment of the patient's skin integrity after the surgical procedure."
^DD(130,.76,12)="Screen prevents selection of inactive entries."
^DD(130,.76,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.76,21,0)="^^4^4^2920603^^"
^DD(130,.76,21,1,0)="This is the code corresponding to the assessment of the patient's"
^DD(130,.76,21,2,0)="skin integrity after the operative procedure.  If entered, this"
^DD(130,.76,21,3,0)="information will appear on the Nurse Intraoperative Report."
^DD(130,.76,21,4,0)=" "
^DD(130,.76,"DT")="2920603"
^DD(130,.77,0)="POSTOP SKIN COLOR^SX^A:ASHEN;LBR:LIGHT BROWN;DBR:DEEP BROWN;PI:PINK;PA:PALE;F:FLUSHED;C:CYANOTIC;I:ICTERIC;^.7;7^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.77 D ^SROCON Q"
^DD(130,.77,.1)="Postoperative Skin Color"
^DD(130,.77,3)="Enter the code corresponding to the patient's skin color."
^DD(130,.77,21,0)="^^4^4^2900109^"
^DD(130,.77,21,1,0)="This is the code corresponding to the patient's skin color after the"
^DD(130,.77,21,2,0)="operative procedure.  If entered, this information will appear on the"
^DD(130,.77,21,3,0)="Nurse Intraoperative Report."
^DD(130,.77,21,4,0)=" "
^DD(130,.77,"DT")="2900823"
^DD(130,.79,0)="PACU DISPOSITION^*P131.6'X^SRO(131.6,^.7;9^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(DA),$D(X),$P($G(^SRF(DA,""CON"")),""^"") S SRFLD=.79 D ^SROCON"
^DD(130,.79,.1)="PAC(U) Disposition"
^DD(130,.79,3)="Enter the destination of the patient immediately after release from the post-anesthesia care unit."
^DD(130,.79,12)="Screen prevents selection of inactive file entries."
^DD(130,.79,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.79,21,0)="^^3^3^2940324^^^^"
^DD(130,.79,21,1,0)="This is the code corresponding to the destination of the patient immediately"
^DD(130,.79,21,2,0)="after release from the post-anesthesia care unit."
^DD(130,.79,21,3,0)=" "
^DD(130,.79,"DT")="2940922"
^DD(130,.81,0)="POSTOP MOOD^*P135.3'X^SRO(135.3,^.8;1^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.81 D ^SROCON Q"
^DD(130,.81,.1)="Postoperative Mood"
^DD(130,.81,3)="Enter the code corresponding to the assessment of the patient's mood following the surgical procedure."
^DD(130,.81,12)="Screen prevents selection of inactive entries."
^DD(130,.81,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.81,21,0)="^^4^4^2900109^"
^DD(130,.81,21,1,0)="This is the code corresponding to the assessment of the patient's"
^DD(130,.81,21,2,0)="mood following the operative procedure.  If entered, this information"
^DD(130,.81,21,3,0)="will appear on the Nurse Intraoperative Report."
^DD(130,.81,21,4,0)=" "
^DD(130,.81,"DT")="2920602"
^DD(130,.82,0)="POSTOP CONVERS^SX^TC:TALKS CONSTANTLY;IC:INITIATES CONVERSATION;RQ:RESPONDS TO QUESTIONS;NA:NOT ANSWER QUESTIONS;A:APHASIC;D:DYSPHASIC;^.8;2^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.82 D ^SROCON Q"
^DD(130,.82,.1)="Postoperative Conversation"
^DD(130,.82,21,0)="^^4^4^2900109^^^"
^DD(130,.82,21,1,0)="This is the code corresponding to the assessment of the patient's"
^DD(130,.82,21,2,0)="demonstrated verbal responses at the completion of the surgical"
^DD(130,.82,21,3,0)="procedure."
^DD(130,.82,21,4,0)=" "
^DD(130,.82,"DT")="2900823"
^DD(130,.821,0)="POSTOP CONSCIOUS^*P135.4'X^SRO(135.4,^.8;10^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.821 D ^SROCON Q"
^DD(130,.821,.1)="Postoperative Consciousness"
^DD(130,.821,3)="Enter the code corresponding to the assessment of the patient's level of consciousness after the surgical procedure."
^DD(130,.821,12)="Screen prevents selection of inactive entries."
^DD(130,.821,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,.821,21,0)="^^4^4^2920603^^"
^DD(130,.821,21,1,0)="This is the code corresponding to the assessment of the patient's"
^DD(130,.821,21,2,0)="level of consciousness following the operative procedure.  If entered,"
^DD(130,.821,21,3,0)="this information will appear on the Nurse Intraoperative Report."
^DD(130,.821,21,4,0)=" "
^DD(130,.821,"DT")="2920603"
^DD(130,.84,0)="END PULSE^NJ3,0X^^.8;4^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.84 D ^SROCON Q"
^DD(130,.84,.1)="End Pulse Rate"
^DD(130,.84,3)="Enter a whole number between 0 and 300."
^DD(130,.84,21,0)="^^2^2^2900621^^"
^DD(130,.84,21,1,0)="This is the patient's pulse rate at the end of the operative procedure."
^DD(130,.84,21,2,0)=" "
^DD(130,.84,"DT")="2900823"
^DD(130,.85,0)="END BP^FX^^.8;5^K:$L(X)>10!($L(X)<2)!'(X?1N.N1""/""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.85 D ^SROCON Q"
^DD(130,.85,.1)="End Blood Pressure"
^DD(130,.85,3)="Enter blood pressure systolic/diastolic."
^DD(130,.85,21,0)="^^4^4^2900109^"
^DD(130,.85,21,1,0)="This is the patient's systolic/diastolic blood pressure at the end"
^DD(130,.85,21,2,0)="of the operative procedure.  Although optional, this information may"
^DD(130,.85,21,3,0)="be useful in documentation of this case."
^DD(130,.85,21,4,0)=" "
^DD(130,.85,"DT")="2900823"
^DD(130,.86,0)="END RESP^NJ3,0X^^.8;6^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.86 D ^SROCON Q"
^DD(130,.86,.1)="End Respiratory Rate"
^DD(130,.86,3)="Enter a whole number between 0 and 200."
^DD(130,.86,21,0)="^^4^4^2900621^^"
^DD(130,.86,21,1,0)="This is the patient's rate of respiration at the end of the operative"
^DD(130,.86,21,2,0)="procedure.  This information may be useful in documentation of this"
^DD(130,.86,21,3,0)="case."
^DD(130,.86,21,4,0)=" "
^DD(130,.86,"DT")="2900823"
^DD(130,.875,0)="PACKING^SX^V:VASOLINE;I:IODOFORM;P:PLAIN;B:BETADINE;D:DENTALPACKS;O:OTHER;N:NONE;^.8;11^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.875 D ^SROCON Q"
^DD(130,.875,.1)="Packing Type"
^DD(130,.875,21,0)="^^4^4^2900621^^^^"
^DD(130,.875,21,1,0)="This is the code corresponding to the type of packing placed during"
^DD(130,.875,21,2,0)="the procedure that will remain in place when the patient is"
^DD(130,.875,21,3,0)="discharged from the operating room."
^DD(130,.875,21,4,0)=" "
^DD(130,.875,"DT")="2900823"
^DD(130,.971,0)="PATIENT EDUCATION/ASSESSMENT^SX^Y:YES;N:NO;I:INAPPLICABLE;U:UNKNOWN;^.97;1^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.971 D ^SROCON Q"
^DD(130,.971,.1)="Patient Education/Assessment"
^DD(130,.971,21,0)="^^4^4^2901213^^^^"
^DD(130,.971,21,1,0)="This indicates whether preoperative patient education and assessment,"
^DD(130,.971,21,2,0)="with documentation of a care plan, were completed during the"
^DD(130,.971,21,3,0)="perioperative care of the patient."
^DD(130,.971,21,4,0)=" "
^DD(130,.971,"DT")="2900823"
^DD(130,.972,0)="CONSENT SIG&WIT^SX^Y:YES;N:NO;I:INAPPLICABLE;^.97;2^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.972 D ^SROCON Q"
^DD(130,.972,.1)="Consent Signed & Witnessed"
^DD(130,.972,21,0)="^^3^3^2921026^^^^"
^DD(130,.972,21,1,0)="This indicates whether there is a properly signed and witnessed operative"
^DD(130,.972,21,2,0)="consent present in the patient's medical record."
^DD(130,.972,21,3,0)=" "
^DD(130,.972,"DT")="2900823"
^DD(130,.973,0)="BATH & SHAMPOO^SX^Y:YES;N:NO;I:INAPPLICABLE;^.97;3^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.973 D ^SROCON Q"
^DD(130,.973,.1)="Bath & Shampoo (Y/N)"
^DD(130,.973,21,0)="^^3^3^2900621^^^^"
^DD(130,.973,21,1,0)="This indicates if the patient's preoperatively prescribed bath and "
^DD(130,.973,21,2,0)="shampoo were completed."
^DD(130,.973,21,3,0)=" "
^DD(130,.973,22)="TIT"
^DD(130,.973,"DT")="2900823"
^DD(130,.974,0)="REC&XRAY READY^SX^Y:YES;N:NO;I:INCOMPLETE;^.97;4^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.974 D ^SROCON Q"
^DD(130,.974,.1)="X-Rays and Records Complete"
^DD(130,.974,21,0)="^^2^2^2900621^^"
^DD(130,.974,21,1,0)="This indicates whether the patient's x-rays and records are complete."
^DD(130,.974,21,2,0)=" "
^DD(130,.974,"DT")="2900823"
^DD(130,.975,0)="ENEMA(S) IF ORD^SX^Y:YES;N:NO;I:INAPPLICABLE;^.97;5^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.975 D ^SROCON Q"
^DD(130,.975,.1)="Administration of Enema(s) Completed"
^DD(130,.975,21,0)="^^3^3^2921026^^^^"
^DD(130,.975,21,1,0)="This indicates whether the administration of preoperative enema(s)"
^DD(130,.975,21,2,0)="were completed, if ordered."
^DD(130,.975,21,3,0)=" "
^DD(130,.975,"DT")="2900823"
^DD(130,.976,0)="NPO AS ORD/CLIN MID^SX^Y:YES;N:NO;I:INAPPLICABLE;^.97;6^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.976 D ^SROCON Q"
^DD(130,.976,.1)="Completion of NPO Orders"
^DD(130,.976,21,0)="^^3^3^2921026^^^^"
^DD(130,.976,21,1,0)="This indicates whether NPO orders were completed prior to"
^DD(130,.976,21,2,0)="the operative procedure as ordered by the surgeon."
^DD(130,.976,21,3,0)=" "
^DD(130,.976,"DT")="2900823"
^DD(130,.977,0)="*CLERK CHN DAYS BEFORE^NJ6,0^^.97;7^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,.977,3)="Enter a whole number between 0 and 100000."
^DD(130,.977,21,0)="^^1^1^2930303^^"
^DD(130,.977,21,1,0)="This field is not being used and is marked for deletion."
^DD(130,.977,"DT")="2840420"
^DD(130,.981,0)="*VERFIFY ID TAG SSN^S^Y:YES;N:NO;I:INAPPLICABLE;^.98;1^Q"
^DD(130,.981,.1)="Completed Verification of ID Bracelet and SSN"
^DD(130,.981,21,0)="^^4^4^2930303^^^^"
^DD(130,.981,21,1,0)="This indicates whether the identification bracelet and social"
^DD(130,.981,21,2,0)="security number verification was completed, legal and correct."
^DD(130,.981,21,3,0)=" "
^DD(130,.981,21,4,0)="This field has been marked for deletion."
^DD(130,.981,"DT")="2840418"
^DD(130,.9811,0)="CARE PLAN IN CHART^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;10^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.9811 D ^SROCON Q"
^DD(130,.9811,.1)="Care Plan in Chart (Y/N)"
^DD(130,.9811,21,0)="^^4^4^2921026^^^^"
^DD(130,.9811,21,1,0)="This indicates whether the nursing care plan is present on the"
^DD(130,.9811,21,2,0)="patient's medical record prior to transport of the patient into"
^DD(130,.9811,21,3,0)="the operating room."
^DD(130,.9811,21,4,0)=" "
^DD(130,.9811,"DT")="2900823"
^DD(130,.9812,0)="ADDRESS PLATE^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;11^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.9812 D ^SROCON Q"
^DD(130,.9812,.1)="Address Plate (Y/N)"
^DD(130,.9812,21,0)="^^3^3^2921026^^^^"
^DD(130,.9812,21,1,0)="This indicates if the patient's address plate is present on the"
^DD(130,.9812,21,2,0)="patient's medical record prior to transport to the operating room."
^DD(130,.9812,21,3,0)=" "
^DD(130,.9812,"DT")="2900823"
^DD(130,.9813,0)="PATIENT VOIDED^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;12^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.9813 D ^SROCON Q"
^DD(130,.9813,.1)="Did the Patient Void"
^DD(130,.9813,21,0)="^^3^3^2900621^^^^"
^DD(130,.9813,21,1,0)="This indicates whether the patient voided prior to being transported"
^DD(130,.9813,21,2,0)="to the operating room."
^DD(130,.9813,21,3,0)=" "
^DD(130,.9813,"DT")="2900823"
^DD(130,.9814,0)="PREOP MED&RAIL UP^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;13^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.9814 D ^SROCON Q"
^DD(130,.9814,.1)="Preoperative Meds Administered & Rail 'Up'"
^DD(130,.9814,21,0)="^^3^3^2900703^^^^"
^DD(130,.9814,21,1,0)="This indicates whether preoperative medication was administered and"
^DD(130,.9814,21,2,0)="the side rails of the bed were placed in the 'up' position."
^DD(130,.9814,21,3,0)=" "
^DD(130,.9814,"DT")="2900823"
^DD(130,.9815,0)="*CLERK CHN DATE PROCEDURE^NJ6,0^^.98;14^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,.9815,3)="Enter a whole number between 0 and 100000."
^DD(130,.9815,21,0)="^^2^2^2930303^^"
^DD(130,.9815,21,1,0)="This field has been marked for deletion.  It should not be used."
^DD(130,.9815,21,2,0)=" "
^DD(130,.9815,"DT")="2840420"
^DD(130,.982,0)="PROSTHESIS REM^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;2^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.982 D ^SROCON Q"
^DD(130,.982,.1)="Prosthetics Removed (Y/N)"
^DD(130,.982,21,0)="^^3^3^2900703^^^^"
^DD(130,.982,21,1,0)="This indicates whether prosthetics (dentures, jewelry, hair pieces)"
^DD(130,.982,21,2,0)="have been removed prior to transport to the operating room."
^DD(130,.982,21,3,0)=" "
^DD(130,.982,"DT")="2900823"
^DD(130,.983,0)="CIG, MATCH & VAL REM^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;3^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.983 D ^SROCON Q"
^DD(130,.983,.1)="Tobacco Products and Valuables Removed (Y/N)"
^DD(130,.983,21,0)="^^4^4^2900703^^^^"
^DD(130,.983,21,1,0)="This indicates whether the patient's tobacco products, matches and"
^DD(130,.983,21,2,0)="valuables have been removed from his or her possession prior to"
^DD(130,.983,21,3,0)="being transported to the operating room."
^DD(130,.983,21,4,0)=" "
^DD(130,.983,"DT")="2900823"
^DD(130,.984,0)="VALUABLES SECURED^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;4^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.984 D ^SROCON Q"
^DD(130,.984,.1)="Valuables Secured (Y/N)"
^DD(130,.984,21,0)="^^3^3^2900703^^^^"
^DD(130,.984,21,1,0)="This indicates whether the patient's valuables have been secured"
^DD(130,.984,21,2,0)="according to hospital policy."
^DD(130,.984,21,3,0)=" "
^DD(130,.984,"DT")="2900823"
^DD(130,.985,0)="ORAL HYGIENE^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;5^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.985 D ^SROCON Q"
^DD(130,.985,.1)="Oral Hygiene Completed (Y/N)"
^DD(130,.985,21,0)="^^3^3^2900703^^^^"
^DD(130,.985,21,1,0)="This indicates whether the patient's oral hygiene was completed prior"
^DD(130,.985,21,2,0)="to being transported to the operating room."
^DD(130,.985,21,3,0)=" "
^DD(130,.985,"DT")="2900823"
^DD(130,.986,0)="FRESHLY SHAVED^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;6^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.986 D ^SROCON Q"
^DD(130,.986,.1)="Freshly Shaved (Y/N)"
^DD(130,.986,21,0)="^^3^3^2900703^^^^"
^DD(130,.986,21,1,0)="This indicates whether the patient's facial hair was freshly shaved"
^DD(130,.986,21,2,0)="prior to being transported to the operating room."
^DD(130,.986,21,3,0)=" "
^DD(130,.986,"DT")="2900823"
^DD(130,.987,0)="CLEAN DRESSING^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;7^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.987 D ^SROCON Q"
^DD(130,.987,.1)="Clean Dressings (Y/N)"
^DD(130,.987,21,0)="^^3^3^2921026^^^^"
^DD(130,.987,21,1,0)="This indicates if all appropriate wounds have had clean dressings"
^DD(130,.987,21,2,0)="applied prior to transport to the operating room."
^DD(130,.987,21,3,0)=" "
^DD(130,.987,"DT")="2900823"
^DD(130,.988,0)="CLEAN HOSP CLOTH^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;8^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.988 D ^SROCON Q"
^DD(130,.988,.1)="Clean Hospital Clothing (Y/N)"
^DD(130,.988,21,0)="^^3^3^2900703^^^^"
^DD(130,.988,21,1,0)="This indicates whether the patient has clean hospital clothing prior"
^DD(130,.988,21,2,0)="to being transported to the operating room."
^DD(130,.988,21,3,0)=" "
^DD(130,.988,"DT")="2900823"
^DD(130,.989,0)="LEVIN TUBE/CATH^SX^Y:YES;N:NO;I:INAPPLICABLE;^.98;9^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.989 D ^SROCON Q"
^DD(130,.989,.1)="Levin Tube/Catheter (Y/N)"
^DD(130,.989,21,0)="^^3^3^2921026^^^^"
^DD(130,.989,21,1,0)="This indicates whether a Levin tube/catheter is present prior to"
^DD(130,.989,21,2,0)="transport to the operating room."
^DD(130,.989,21,3,0)=" "
^DD(130,.989,"DT")="2900823"
^DD(130,.991,0)="U/A IN 48 HRS^SX^Y:YES;N:NO;I:INAPPLICABLE;^.99;1^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.991 D ^SROCON Q"
^DD(130,.991,.1)="Urinalysis Within 48 Hours (Y/N)"
^DD(130,.991,21,0)="^^3^3^2900703^^"
^DD(130,.991,21,1,0)="This indicates whether the patient has had a urinalysis within 48"
^DD(130,.991,21,2,0)="hours prior to being transported to the operating room."
^DD(130,.991,21,3,0)=" "
^DD(130,.991,"DT")="2900823"
^DD(130,.9911,0)="*CLERK CHN REC FOR MAJ SURG^NJ6,0^^.99;10^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,.9911,3)="Enter a whole number between 0 and 100000."
^DD(130,.9911,21,0)="^^2^2^2930303^^"
^DD(130,.9911,21,1,0)="This field has been marked for deletion. It should not be used."
^DD(130,.9911,21,2,0)=" "
^DD(130,.9911,"DT")="2840420"
^DD(130,.992,0)="CBC IN 48 HRS^SX^Y:YES;N:NO;I:INAPPLICABLE;^.99;2^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.992 D ^SROCON Q"
^DD(130,.992,.1)="CBC Within 48 Hours (Y/N)"
^DD(130,.992,21,0)="^^3^3^2900703^^"
^DD(130,.992,21,1,0)="This indicates whether the patient has had a CBC within 48 hours"
^DD(130,.992,21,2,0)="prior to being transported to the operating room."
^DD(130,.992,21,3,0)=" "
^DD(130,.992,"DT")="2900823"
^DD(130,.993,0)="BLOOD TYPE&XMATCH^SX^Y:YES;N:NO;I:INAPPLICABLE;^.99;3^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.993 D ^SROCON Q"
^DD(130,.993,.1)="Blood Type & Crossmatch (Y/N)"
^DD(130,.993,21,0)="^^3^3^2900703^^"
^DD(130,.993,21,1,0)="This indicates whether the patient has had blood typing and crossmatching"
^DD(130,.993,21,2,0)="done."
^DD(130,.993,21,3,0)=" "
^DD(130,.993,"DT")="2900823"
^DD(130,.994,0)="*BLEEDING & PTT TIME IN 48 HRS^S^Y:YES;N:NO;I:INAPPLICABLE;^.99;4^Q"
^DD(130,.994,21,0)="^^5^5^2930303^^"
^DD(130,.994,21,1,0)="This indicates whether the patient has had bleed and PTT time within"
^DD(130,.994,21,2,0)="48 hours prior to being transported to the operating room."
^DD(130,.994,21,3,0)=" "
^DD(130,.994,21,4,0)="This field has been marked for deletion in the next version of the"
^DD(130,.994,21,5,0)="Surgery package."
^DD(130,.994,"DT")="2840418"
^DD(130,.995,0)="*BUN IN 7 DAYS^S^Y:YES;N:NO;I:INAPPLICABLE;^.99;5^Q"
^DD(130,.995,21,0)="^^5^5^2930303^^"
^DD(130,.995,21,1,0)="This indicates whether the patient has had a BUN within 7 days prior"
^DD(130,.995,21,2,0)="to being transported to the operating room."
^DD(130,.995,21,3,0)=" "
^DD(130,.995,21,4,0)="This field has been marked for deletion in the next version of the"
^DD(130,.995,21,5,0)="Surgery package."
^DD(130,.995,"DT")="2840418"
^DD(130,.996,0)="*BLOOD SUGAR IN 7 DAYS^SX^Y:YES;N:NO;I:INAPPLICABLE;^.99;6^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.996 D ^SROCON Q"
^DD(130,.996,.1)="Blood Sugar Test in 7 Days (Y/N)"
^DD(130,.996,21,0)="^^4^4^2930303^^^"
^DD(130,.996,21,1,0)="This field determines whether the patient has had a blood sugar"
^DD(130,.996,21,2,0)="test within the last 7 days.  This field has been marked for deletion"
^DD(130,.996,21,3,0)="in the next release of the Surgery software."
^DD(130,.996,21,4,0)=" "
^DD(130,.996,"DT")="2921026"
^DD(130,.997,0)="*SEROLOGY REPORT^S^Y:YES;N:NO;I:INAPPLICABLE;^.99;7^Q"
^DD(130,.997,21,0)="^^2^2^2930303^^"
^DD(130,.997,21,1,0)="This field has been marked for deletion.  It should not be used."
^DD(130,.997,21,2,0)=" "
^DD(130,.997,"DT")="2840418"
^DD(130,.998,0)="CHEST XRAY IN 7 DAYS^SX^Y:YES;N:NO;I:INAPPLICABLE;^.99;8^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.998 D ^SROCON Q"
^DD(130,.998,.1)="Chest X-Ray Within 7 Days (Y/N)"
^DD(130,.998,21,0)="^^3^3^2900703^"
^DD(130,.998,21,1,0)="This field determines whether the patient has had a chest x-ray within"
^DD(130,.998,21,2,0)="the last seven days."
^DD(130,.998,21,3,0)=" "
^DD(130,.998,"DT")="2900823"
^DD(130,.999,0)="EKG IN 24 HRS^SX^Y:YES;N:NO;I:INAPPLICABLE;^.99;9^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=.999 D ^SROCON Q"
^DD(130,.999,.1)="EKG Within 24 Hours (Y/N)"
^DD(130,.999,21,0)="^^3^3^2900703^"
^DD(130,.999,21,1,0)="This field determines whether the patient has had an EKG within the"
^DD(130,.999,21,2,0)="last 24 hours."
^DD(130,.999,21,3,0)=" "
^DD(130,.999,"DT")="2900823"
^DD(130,1.01,0)="REQ ANESTHESIA TECHNIQUE^SX^L:LOCAL;S:SPINAL;B:BLOCK;G:GENERAL;C:CHOICE;MAC:MONITORED ANESTHESIA CARE;E:EPIDURAL;^1.0;1^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.01 D ^SROCON Q"
^DD(130,1.01,.1)="Requested Anesthesia Technique"
^DD(130,1.01,3)="Enter the surgeon's choice for proposed surgery."
^DD(130,1.01,21,0)="^^3^3^2900703^^"
^DD(130,1.01,21,1,0)="This is the surgeon's choice of anesthesia for the proposed operative"
^DD(130,1.01,21,2,0)="procedure.  This information will appear on the Schedule of Operations."
^DD(130,1.01,21,3,0)=" "
^DD(130,1.01,"DT")="2900823"
^DD(130,1.02,0)="REQ FROZ SECT^SX^Y:YES;N:NO;^1.0;2^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.02 D ^SROCON Q"
^DD(130,1.02,.1)="Request Frozen Section Tests (Y/N)"
^DD(130,1.02,21,0)="^^3^3^2921026^^^^"
^DD(130,1.02,21,1,0)="This indicates whether laboratory support is needed to perform frozen"
^DD(130,1.02,21,2,0)="section diagnostic tests during the operative procedure."
^DD(130,1.02,21,3,0)=" "
^DD(130,1.02,"DT")="2900823"
^DD(130,1.03,0)="REQ PREOP X-RAY^FX^^1.0;3^K:$L(X)>50!($L(X)<1) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.03 D ^SROCON Q"
^DD(130,1.03,.1)="Requested Preoperative X-Rays"
^DD(130,1.03,3)="Your answer must be 1 to 50 characters in length."
^DD(130,1.03,21,0)="^^3^3^2921026^^^^"
^DD(130,1.03,21,1,0)="These are the types of preop x-ray films and reports required for"
^DD(130,1.03,21,2,0)="delivery to the operating room prior to the surgical procedure."
^DD(130,1.03,21,3,0)=" "
^DD(130,1.03,"DT")="2900823"
^DD(130,1.035,0)="INTRAOPERATIVE X-RAYS^SX^Y:YES;N:NO;C:C-ARM;^1.0;5^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.035 D ^SROCON Q"
^DD(130,1.035,.1)="Intraoperative X-Rays (Y/N/C)"
^DD(130,1.035,21,0)="^^3^3^2930419^^^^"
^DD(130,1.035,21,1,0)="This indicates if radiology personnel is needed in the operating room"
^DD(130,1.035,21,2,0)="for intraoperative radiologic procedures."
^DD(130,1.035,21,3,0)=" "
^DD(130,1.035,"DT")="2930419"
^DD(130,1.04,0)="REQ PHOTO^SX^Y:YES;N:NO;^1.0;4^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.04 D ^SROCON Q"
^DD(130,1.04,.1)="Request Medical Media (Y/N)"
^DD(130,1.04,21,0)="^^4^4^2900703^^^^"
^DD(130,1.04,21,1,0)="This indicates whether Medical Media personnel need to be"
^DD(130,1.04,21,2,0)="present in the operating room to obtain photographs during"
^DD(130,1.04,21,3,0)="the operative procedure."
^DD(130,1.04,21,4,0)=" "
^DD(130,1.04,"DT")="2921116"
^DD(130,1.05,0)="REQ BLOOD KIND^130.14A^^11;0"
^DD(130,1.05,.1)="Required Blood Products"
^DD(130,1.05,21,0)="^.001^3^3^3020805^^^^"
^DD(130,1.05,21,1,0)="This is information related to the blood product required during this"
^DD(130,1.05,21,2,0)="operative procedure."
^DD(130,1.05,21,3,0)=" "
^DD(130,1.052,0)="REQ BLOOD AVAIL^SX^Y:YES;N:NO;^1.0;9^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.052 D ^SROCON Q"
^DD(130,1.052,.1)="Requested Blood Components Available (Y/N)"
^DD(130,1.052,3)="Enter 'Y' if the blood components are available as requested."
^DD(130,1.052,21,0)="^^2^2^2921026^^^"
^DD(130,1.052,21,1,0)="This indicates whether the requested blood components are available."
^DD(130,1.052,21,2,0)=" "
^DD(130,1.052,"DT")="2900823"
^DD(130,1.09,0)="WOUND CLASSIFICATION^SX^C:CLEAN;CC:CLEAN/CONTAMINATED;D:CONTAMINATED;I:DIRTY/INFECTED;^1.0;8^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.09 D ^SROCON Q"
^DD(130,1.09,.1)="Wound Classification"
^DD(130,1.09,3)="Enter the code corresponding to the classification of the wound in relationship to the contamination and increasing risk of infection at the time of completion of the surgical procedure."
^DD(130,1.09,21,0)="^^102^102^3070508^"
^DD(130,1.09,21,1,0)="NSQIP Definition (2007):"
^DD(130,1.09,21,2,0)="Indicate whether the wound has been classified by the primary surgeon "
^DD(130,1.09,21,3,0)="as:"
^DD(130,1.09,21,4,0)=" "
^DD(130,1.09,21,5,0)=">> Class 1 - Clean (C):"
^DD(130,1.09,21,6,0)="Respiratory, alimentary, genital, or uninfected urinary tracts are not "
^DD(130,1.09,21,7,0)="entered. "
^DD(130,1.09,21,8,0)="Uninfected surgical wounds. "
^DD(130,1.09,21,9,0)="No inflammation is encountered. "
^DD(130,1.09,21,10,0)="Closed primarily and, if necessary, drained with closed drainage. "
^DD(130,1.09,21,11,0)="Surgical incisional wounds that occur with nonpenetrating (eg blunt) "
^DD(130,1.09,21,12,0)="trauma should be included in this category if they meet the criteria."
^DD(130,1.09,21,13,0)=" "
^DD(130,1.09,21,14,0)="[No hollow organ (e.g. bladder, stomach, vagina, lung, etc.) is "
^DD(130,1.09,21,15,0)="entered; no breaks in aseptic technique.]"
^DD(130,1.09,21,16,0)=" "
^DD(130,1.09,21,17,0)="Examples:"
^DD(130,1.09,21,18,0)=" - Exploratory laparotomy "
^DD(130,1.09,21,19,0)=" - Mastectomy or breast reduction "
^DD(130,1.09,21,20,0)=" - Neck dissection"
^DD(130,1.09,21,21,0)=" - Nonpenetrating blunt trauma"
^DD(130,1.09,21,22,0)=" - Thyroidectomy"
^DD(130,1.09,21,23,0)=" - Total hip replacement"
^DD(130,1.09,21,24,0)=" - Vascular operations (e.g. AAA, AV fistula, CEA, aortoiliac bypass)"
^DD(130,1.09,21,25,0)=" - Hernia repair"
^DD(130,1.09,21,26,0)=" - CABG, AVR"
^DD(130,1.09,21,27,0)=" - Craniotomy, majority neurosurgery"
^DD(130,1.09,21,28,0)=" - Pleura biopsy"
^DD(130,1.09,21,29,0)=" - Sternotomy"
^DD(130,1.09,21,30,0)=" - Abdominoplasty "
^DD(130,1.09,21,31,0)=" - Bone anchored hearing aids (BAHA)"
^DD(130,1.09,21,32,0)=" - Penile prosthesis placement"
^DD(130,1.09,21,33,0)=" - Dupuytren's release, finger"
^DD(130,1.09,21,34,0)=" - Liposuction"
^DD(130,1.09,21,35,0)=" - Carpal tunnel release"
^DD(130,1.09,21,36,0)=" - Hydrocele repair"
^DD(130,1.09,21,37,0)=" "
^DD(130,1.09,21,38,0)=">> Class 2 - Clean/Contaminated (CC): "
^DD(130,1.09,21,39,0)="Respiratory, alimentary, genital, or urinary tracts are entered under "
^DD(130,1.09,21,40,0)="controlled conditions and without unusual contamination. "
^DD(130,1.09,21,41,0)="Specifically, procedures involving the biliary tract, appendix, vagina, "
^DD(130,1.09,21,42,0)="and oropharynx are included in this category, provided no evidence of "
^DD(130,1.09,21,43,0)="infection or major breaks in technique are encountered."
^DD(130,1.09,21,44,0)=" "
^DD(130,1.09,21,45,0)="(Hollow organ entered but controlled; no inflammation; primary wound "
^DD(130,1.09,21,46,0)="closure; minor break in aseptic technique; mechanical drain used.) "
^DD(130,1.09,21,47,0)=" "
^DD(130,1.09,21,48,0)="Examples:"
^DD(130,1.09,21,49,0)=" - Bronchoscopy"
^DD(130,1.09,21,50,0)=" - Routine appendectomy"
^DD(130,1.09,21,51,0)=" - Cholecystectomy (e.g., any approach)"
^DD(130,1.09,21,52,0)=" - Laryngectomy"
^DD(130,1.09,21,53,0)=" - Small bowel resection"
^DD(130,1.09,21,54,0)=" - Oropharynx entered"
^DD(130,1.09,21,55,0)=" - GYN procedures"
^DD(130,1.09,21,56,0)=" - Vagina entered"
^DD(130,1.09,21,57,0)=" - Whipple pancreaticoduodenectomy"
^DD(130,1.09,21,58,0)=" - Pulmonary resection"
^DD(130,1.09,21,59,0)=" - Transurethral resection of prostate"
^DD(130,1.09,21,60,0)=" - Head & Neck cancer operations (e.g., oropharynx)"
^DD(130,1.09,21,61,0)=" - Sigmoid colectomy"
^DD(130,1.09,21,62,0)=" - Minor break in technique"
^DD(130,1.09,21,63,0)=" - Gastrointestinal or respiratory tract entered without significant"
^DD(130,1.09,21,64,0)="   spillage"
^DD(130,1.09,21,65,0)=" - Genitourinary tract entered in absence of infected urine"
^DD(130,1.09,21,66,0)="        "
^DD(130,1.09,21,67,0)=">> Class 3 - Contaminated (D): "
^DD(130,1.09,21,68,0)="Open fresh, accidental (e.g. traumatic) wounds. "
^DD(130,1.09,21,69,0)="Procedures that have major breaks in sterile technique (eg, open "
^DD(130,1.09,21,70,0)="cardiac massage) or gross spillage from the gastrointestinal tract and"
^DD(130,1.09,21,71,0)="incisions in which acute, nonpurulent inflammation is encountered are"
^DD(130,1.09,21,72,0)="included in this category."
^DD(130,1.09,21,73,0)=" "
^DD(130,1.09,21,74,0)="Examples:"
^DD(130,1.09,21,75,0)=" - Appendectomy for gangrenous appendicitis"
^DD(130,1.09,21,76,0)=" - Bile spillage during cholecystectomy"
^DD(130,1.09,21,77,0)=" - Diverticulitis"
^DD(130,1.09,21,78,0)=" - Laparotomy for penetrating injury with intestinal spillage"
^DD(130,1.09,21,79,0)=" - Entrance of genitourinary or biliary tracts in presence of infected"
^DD(130,1.09,21,80,0)="   urine or bile"
^DD(130,1.09,21,81,0)=" - Necrotic tissue without evidence of purulent drainage (e.g. dry "
^DD(130,1.09,21,82,0)="   gangrene)"
^DD(130,1.09,21,83,0)=" "
^DD(130,1.09,21,84,0)=">> Class 4 - Dirty/Infected (I): "
^DD(130,1.09,21,85,0)="Old traumatic wounds that have retained devitalized tissue and those "
^DD(130,1.09,21,86,0)="that involve existing clinical infection or perforated viscera. This"
^DD(130,1.09,21,87,0)="definition suggests that the organisms causing postoperative infection "
^DD(130,1.09,21,88,0)="were present in the surgical field before the procedure."
^DD(130,1.09,21,89,0)=" "
^DD(130,1.09,21,90,0)="(Untreated, uncontrolled spillage from an internal organ; pus in "
^DD(130,1.09,21,91,0)="operative wound; open suppurative wound; severe inflammation.)"
^DD(130,1.09,21,92,0)=" "
^DD(130,1.09,21,93,0)="Examples:"
^DD(130,1.09,21,94,0)=" - Excision and drainage of abscess "
^DD(130,1.09,21,95,0)=" - Myringotomy for otitismedia "
^DD(130,1.09,21,96,0)=" - Perforated bowel "
^DD(130,1.09,21,97,0)=" - Peritonitis (abdominal exploration for acute bacterial peritonitis)"
^DD(130,1.09,21,98,0)=" - Acute bacterial inflammation, without pus "
^DD(130,1.09,21,99,0)=" - Transection of 'clean' tissue for the purpose of surgical access to "
^DD(130,1.09,21,100,0)="   a collection of pus"
^DD(130,1.09,21,101,0)=" - Traumatic wound with foreign bodies, fecal contamination, or delayed"
^DD(130,1.09,21,102,0)="   treatment, or all of these; or from dirty source"
^DD(130,1.09,"DT")="3060421"
^DD(130,1.098,0)="DATE/TIME OR REQUEST MADE^DI^^1.0;11^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(130,1.098,.1)="Date/Time OR Request Made"
^DD(130,1.098,3)=""
^DD(130,1.098,21,0)="^^5^5^2911001^^^^"
^DD(130,1.098,21,1,0)="This is the date and time that the operation request was made.  This "
^DD(130,1.098,21,2,0)="information is automatically entered at the time of request.  If the"
^DD(130,1.098,21,3,0)="request date is changed, this field will be updated to reflect the"
^DD(130,1.098,21,4,0)="new date/time requested."
^DD(130,1.098,21,5,0)=" "
^DD(130,1.098,"DT")="2900905"
^DD(130,1.099,0)="SURG SCHED PERSON^P200'^VA(200,^1.0;10^Q"
^DD(130,1.099,.1)="Person Requesting/Scheduling this Case"
^DD(130,1.099,3)=""
^DD(130,1.099,21,0)="^^3^3^2900703^^"
^DD(130,1.099,21,1,0)="This is the name of the person requesting or scheduling this operative"
^DD(130,1.099,21,2,0)="procedure."
^DD(130,1.099,21,3,0)=" "
^DD(130,1.099,"DT")="2911205"
^DD(130,1.11,0)="PAC(U) ADMIT SCORE^NJ6,2X^^1.1;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.11 D ^SROCON Q"
^DD(130,1.11,.1)="PAC(U) Admission Score"
^DD(130,1.11,3)="Enter a number between 0 and 100, 2 decimal digits."
^DD(130,1.11,21,0)="^^3^3^2960322^^^^"
^DD(130,1.11,21,1,0)="This is the objective evaluation numerical score of the patient upon"
^DD(130,1.11,21,2,0)="admission to the post anesthesia care unit."
^DD(130,1.11,21,3,0)=" "
^DD(130,1.11,"DT")="2960322"
^DD(130,1.12,0)="PAC(U) DISCH SCORE^NJ6,2X^^1.1;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.12 D ^SROCON Q"
^DD(130,1.12,.1)="PAC(U) Discharge Score"
^DD(130,1.12,3)="Enter a number between 0 and 100, 2 decimal digits.  Use the objective discharge criteria score."
^DD(130,1.12,21,0)="^^3^3^2960322^^"
^DD(130,1.12,21,1,0)="This is the objective evaluation numeric score of the patient at discharge"
^DD(130,1.12,21,2,0)="from the post anesthesia care unit."
^DD(130,1.12,21,3,0)=" "
^DD(130,1.12,"DT")="2960322"
^DD(130,1.13,0)="ASA CLASS^P132.8'XO^SRO(132.8,^1.1;3^I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.13 D ^SROCON Q"
^DD(130,1.13,.1)="ASA Class"
^DD(130,1.13,2)="S Y(0)=Y S Y=$S(Y[""E"":$P(^SRO(132.8,$E(Y)+6,0),""^"",2),Y:$P(^SRO(132.8,Y,0),""^"",2),1:"""")"
^DD(130,1.13,2.1)="S Y=$S(Y[""E"":$P(^SRO(132.8,$E(Y)+6,0),""^"",2),Y:$P(^SRO(132.8,Y,0),""^"",2),1:"""")"
^DD(130,1.13,3)="Enter ASA code: Number followed by 'E' if Emergency"
^DD(130,1.13,21,0)="^^20^20^3040316^"
^DD(130,1.13,21,1,0)="NSQIP Definition (2004):"
^DD(130,1.13,21,2,0)="Record the American Society of Anesthesiology (ASA) Physical Status "
^DD(130,1.13,21,3,0)="Classification of the patient's present physical condition on a scale "
^DD(130,1.13,21,4,0)="from 1-6 as it appears on the anesthesia record. Most likely there will"
^DD(130,1.13,21,5,0)="be a 2nd assessment of the ASA class prior to anesthesia induction. If"
^DD(130,1.13,21,6,0)="this is available, report this most recent assessment. The definitions"
^DD(130,1.13,21,7,0)="are:"
^DD(130,1.13,21,8,0)="     ASA 1 - A normal healthy patient"
^DD(130,1.13,21,9,0)="     ASA 2 - A patient with mild systemic disease"
^DD(130,1.13,21,10,0)="     ASA 3 - A patient with severe systemic disease"
^DD(130,1.13,21,11,0)="     ASA 4 - A patient with severe systemic disease that is a constant"
^DD(130,1.13,21,12,0)="             threat to life"
^DD(130,1.13,21,13,0)="     ASA 5 - A moribund patient who is not expected to survive without"
^DD(130,1.13,21,14,0)="             the operation"
^DD(130,1.13,21,15,0)="     ASA 6 - A declared brain-dead patient whose organs are being"
^DD(130,1.13,21,16,0)="             removed for donor purposes"
^DD(130,1.13,21,17,0)=" "
^DD(130,1.13,21,18,0)="ASA 6 cases should be excluded."
^DD(130,1.13,21,19,0)=" "
^DD(130,1.13,21,20,0)="Classification numbers followed by an 'E' indicate an emergency."
^DD(130,1.13,"DT")="3040316"
^DD(130,1.14,0)="INTRAOPERATIVE OCCURRENCES^130.13A^^10;0"
^DD(130,1.14,.1)="Intraoperative Occurrences"
^DD(130,1.14,21,0)="^^4^4^2900109^^"
^DD(130,1.14,21,1,0)="This is information related to any intraoperative occurrences."
^DD(130,1.14,21,2,0)="If there are no occurrences, leave this field blank.  'NONE' "
^DD(130,1.14,21,3,0)="is not an acceptable answer."
^DD(130,1.14,21,4,0)=" "
^DD(130,1.14,"DT")="2920330"
^DD(130,1.145,0)="RETURNED TO SURGERY^130.43PA^^29;0"
^DD(130,1.145,.1)="Case Numbers for Return to Surgery"
^DD(130,1.145,21,0)="^^3^3^2921026^^^^"
^DD(130,1.145,21,1,0)="This is information related to the patient's return to surgery"
^DD(130,1.145,21,2,0)="within 30 days of a prior operative procedure."
^DD(130,1.145,21,3,0)=" "
^DD(130,1.15,0)="SURGEON'S DICTATION^130.15^^12;0"
^DD(130,1.15,.1)="Surgeon's Operation Notes"
^DD(130,1.15,21,0)="^^2^2^2900709^"
^DD(130,1.15,21,1,0)="This is the Surgeon's dictated operation note."
^DD(130,1.15,21,2,0)=" "
^DD(130,1.16,0)="POSTOP OCCURRENCE^130.22A^^16;0"
^DD(130,1.16,.1)="Postoperative Occurrence"
^DD(130,1.16,21,0)="^^2^2^2950221^^^"
^DD(130,1.16,21,1,0)="This is information related to postoperative occurrences."
^DD(130,1.16,21,2,0)=" "
^DD(130,1.17,0)="ADMIT PAC(U) TIME^DX^^1.1;7^S SRN=.2,SRP=12,SR130=""TIME PAT OUT OR"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.17 D ^SROCON Q"
^DD(130,1.17,.1)="PAC(U) Admission Time"
^DD(130,1.17,3)=""
^DD(130,1.17,21,0)="^^4^4^2900703^^^^"
^DD(130,1.17,21,1,0)="This is the date/time that the patient was admitted to the post anesthesia"
^DD(130,1.17,21,2,0)="care unit (recovery room).  Times entered without a date will be converted"
^DD(130,1.17,21,3,0)="to the date of operation at that time."
^DD(130,1.17,21,4,0)=" "
^DD(130,1.17,"DT")="2980109"
^DD(130,1.18,0)="PAC(U) DISCH TIME^DX^^1.1;8^S SRN=1.1,SRP=7,SR130=""ADMIT PAC(U) TIME"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.18 D ^SROCON Q"
^DD(130,1.18,.1)="PAC(U) Discharge Date/Time"
^DD(130,1.18,3)=""
^DD(130,1.18,21,0)="^^7^7^3040316^"
^DD(130,1.18,21,1,0)="This is the date/time that the patient is discharged from the post"
^DD(130,1.18,21,2,0)="anesthesia care unit (recovery room). Times entered without a date"
^DD(130,1.18,21,3,0)="will be converted to the date of operation at that time."
^DD(130,1.18,21,4,0)=" "
^DD(130,1.18,21,5,0)="NSQIP Definition (2004):"
^DD(130,1.18,21,6,0)="Discharge from Post-Anesthesia Care Unit (DPACU): Time patient is "
^DD(130,1.18,21,7,0)="transported out of PACU."
^DD(130,1.18,"DT")="3040316"
^DD(130,1.19,0)="POSTOP ANES NOTE DATE^DX^^1.1;9^S SRN=.2,SRP=3,SR130=""TIME OPERATION ENDS"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=1.19 D ^SROCON Q"
^DD(130,1.19,.1)="Date/Time Postoperative Note Entered"
^DD(130,1.19,3)=""
^DD(130,1.19,21,0)="^.001^4^4^3001023^^^^"
^DD(130,1.19,21,1,0)="This is the date and time that the postoperative note is written "
^DD(130,1.19,21,2,0)="in the patient's chart.  Times entered without a date will be "
^DD(130,1.19,21,3,0)="converted to the date of operation at that time."
^DD(130,1.19,21,4,0)=" "
^DD(130,1.19,"DT")="3001023"
^DD(130,1.2,0)="POSTOP ANES NOTE^130.1^^48;0"
^DD(130,1.2,.1)="Postoperative Anesthesia Note"
^DD(130,1.2,21,0)="^^1^1^3010914^"
^DD(130,1.2,21,1,0)="This is the postoperative anesthesia note for this patient."
^DD(130,1.21,0)="OPERATION TIME^CJ8^^ ; ^X ^DD(130,1.21,9.2) S X1=Y(130,1.21,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,1.21,.1)="Operation Time"
^DD(130,1.21,9)="^"
^DD(130,1.21,9.01)="130^.22;130^.23"
^DD(130,1.21,9.1)="MINUTES(TIME OPERATION ENDS,TIME OPERATION BEGAN)"
^DD(130,1.21,9.2)="S Y(130,1.21,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,1.21,1),U,3),Y(130,1.21,2)=X S X=$P(Y(130,1.21,1),U,2)"
^DD(130,1.21,21,0)="^^2^2^2921026^^^"
^DD(130,1.21,21,1,0)="This is the number of minutes between the operation start and end times."
^DD(130,1.21,21,2,0)=" "
^DD(130,1.21,"DT")="2910926"
^DD(130,1.22,0)="ANESTH INDUCT TIME^CJ8^^ ; ^X ^DD(130,1.22,9.2) S X1=Y(130,1.22,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,1.22,.1)="Anesthesia Induction Time"
^DD(130,1.22,9)="^"
^DD(130,1.22,9.01)="130^.21;130^.215"
^DD(130,1.22,9.1)="MINUTES(INDUCTION COMPLETE,ANES CARE START TIME)"
^DD(130,1.22,9.2)="S Y(130,1.22,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,1.22,1),U,11),Y(130,1.22,2)=X S X=$P(Y(130,1.22,1),U,1)"
^DD(130,1.22,21,0)="^^3^3^2900111^"
^DD(130,1.22,21,1,0)="This is the total number of minutes between the anesthesia care start"
^DD(130,1.22,21,2,0)="and induction complete times."
^DD(130,1.22,21,3,0)=" "
^DD(130,1.23,0)="ANES CARE TIME^CJ8^^ ; ^X ^DD(130,1.23,9.2) S X1=Y(130,1.23,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,1.23,.1)="Anesthesia Care Time"
^DD(130,1.23,9)="^"
^DD(130,1.23,9.01)="130^.21;130^.24"
^DD(130,1.23,9.1)="MINUTES(ANES CARE END TIME,ANES CARE START TIME)"
^DD(130,1.23,9.2)="S Y(130,1.23,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,1.23,1),U,4),Y(130,1.23,2)=X S X=$P(Y(130,1.23,1),U,1)"
^DD(130,1.23,21,0)="^^3^3^2900111^"
^DD(130,1.23,21,1,0)="This is the number of minutes between the anesthesia care start time"
^DD(130,1.23,21,2,0)="and anesthesia care end time."
^DD(130,1.23,21,3,0)=" "
^DD(130,1.23,"DT")="2841120"
^DD(130,1.24,0)="PATIENT IN OR TIME^CJ8^^ ; ^X ^DD(130,1.24,9.2) S X1=Y(130,1.24,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,1.24,.1)="Patient in Operating Room Time"
^DD(130,1.24,9)="^"
^DD(130,1.24,9.01)="130^.205;130^.232"
^DD(130,1.24,9.1)="MINUTES(TIME PAT OUT OR,TIME PAT IN OR)"
^DD(130,1.24,9.2)="S Y(130,1.24,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,1.24,1),U,12),Y(130,1.24,2)=X S X=$P(Y(130,1.24,1),U,10)"
^DD(130,1.24,21,0)="^^3^3^2921026^^^"
^DD(130,1.24,21,1,0)="This is the number of minutes the patient was in the operating"
^DD(130,1.24,21,2,0)="room."
^DD(130,1.24,21,3,0)=" "
^DD(130,1.25,0)="OR CLEAN UP TIME^CJ8^^ ; ^X ^DD(130,1.25,9.2) S X1=Y(130,1.25,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,1.25,.1)="O.R. Clean Up Time"
^DD(130,1.25,9)="^"
^DD(130,1.25,9.01)="130^.234;130^.236"
^DD(130,1.25,9.1)="MINUTES(OR CLEAN END TIME,OR CLEAN START TIME)"
^DD(130,1.25,9.2)="S Y(130,1.25,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,1.25,1),U,14),Y(130,1.25,2)=X S X=$P(Y(130,1.25,1),U,13)"
^DD(130,1.25,21,0)="^^3^3^2900111^"
^DD(130,1.25,21,1,0)="This is the number of minutes between the OR clean up start time and"
^DD(130,1.25,21,2,0)="OR clean up end time."
^DD(130,1.25,21,3,0)=" "
^DD(130,1.26,0)="PAC(U) TIME^CJ8^^ ; ^X ^DD(130,1.26,9.2) S X1=Y(130,1.26,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,1.26,.1)="PAC(U) Time"
^DD(130,1.26,9)="^"
^DD(130,1.26,9.01)="130^1.17;130^1.18"
^DD(130,1.26,9.1)="MINUTES(PAC(U) DISCH TIME,ADMIT PAC(U) TIME)"
^DD(130,1.26,9.2)="S Y(130,1.26,1)=$S($D(^SRF(D0,1.1)):^(1.1),1:"""") S X=$P(Y(130,1.26,1),U,8),Y(130,1.26,2)=X S X=$P(Y(130,1.26,1),U,7)"
^DD(130,1.26,21,0)="^^2^2^2921026^^^"
^DD(130,1.26,21,1,0)="This is the number of minutes the patient spent in the PAC(U)."
^DD(130,1.26,21,2,0)=" "
^DD(130,1.26,22)=""
^DD(130,4,0)="SKIN PREPPED BY (2)^*P200'^VA(200,^.1;12^S DIC(""S"")=""S RESTRICT=""""130,4"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,4,.1)="Skin Prepped By (2)"
^DD(130,4,3)="Enter the name of the second person performing the preop skin preparation, if appropriate."
^DD(130,4,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,4,12.1)="S DIC(""S"")=""S RESTRICT=""""130,4"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,4,21,0)="^^4^4^2930110^^^^"
^DD(130,4,21,1,0)="This is the name of a second person performing skin preparation, if"
^DD(130,4,21,2,0)="applicable.  When entered, this information appears on the Nurse"
^DD(130,4,21,3,0)="Intraoperative Report."
^DD(130,4,21,4,0)=" "
^DD(130,4,"DT")="2920204"
^DD(130,5,0)="SKIN PREPPED BY (3)^*P200'^VA(200,^.1;17^S DIC(""S"")=""S RESTRICT=""""130,5"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,5,.1)="Skin Prepped By (3)"
^DD(130,5,3)="Enter the name of the person performing the preop skin preparation."
^DD(130,5,12)="Entries in this field may be restricted based on locallly selected keys."
^DD(130,5,12.1)="S DIC(""S"")=""S RESTRICT=""""130,5"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,5,21,0)="^^4^4^2900703^^"
^DD(130,5,21,1,0)="This is the name of the third person performing the preoperative skin"
^DD(130,5,21,2,0)="preparation.  If entered, this information will appear on the Nurse"
^DD(130,5,21,3,0)="Intraoperative Report."
^DD(130,5,21,4,0)=" "
^DD(130,5,"DT")="2920204"
^DD(130,6,0)="ELECTROGROUND POSITION (2)^*P138'X^SRO(138,^.5;13^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=6 D ^SROCON Q"
^DD(130,6,.1)="Electroground Position (2)"
^DD(130,6,3)="Enter the code corresponding to the placement of the second dispersive electrode pad."
^DD(130,6,12)="Screen prevents selection of inactive entries."
^DD(130,6,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,6,21,0)="^^3^3^2920603^^^^"
^DD(130,6,21,1,0)="This is the code corresponding to the placement of the second dispersive"
^DD(130,6,21,2,0)="electrode pad."
^DD(130,6,21,3,0)=" "
^DD(130,6,"DT")="2920603"
^DD(130,7,0)="DRESSING CONDITION^SX^D:DRY;S:SEROSANGUINOUS;SA:SANGUINOUS;N:NO DRESSING;^31;1^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=7 D ^SROCON Q"
^DD(130,7,.1)="Dressing Condition"
^DD(130,7,3)="Enter the status of the drainage on the dressing."
^DD(130,7,21,0)="^^3^3^2900703^^"
^DD(130,7,21,1,0)="This is the status of the drainage on the dressing.  Although optional,  "
^DD(130,7,21,2,0)="this information may be useful in documentation of this case."
^DD(130,7,21,3,0)=" "
^DD(130,7,"DT")="2900823"
^DD(130,8,0)="SECOND SKIN PREP AGENT^*P135.1'X^SRO(135.1,^31;2^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=8 D ^SROCON Q"
^DD(130,8,.1)="Second Skin Preparation Agent"
^DD(130,8,3)="Enter the name of the 2ND antimicrobial agent used to wash and prepare the operative site."
^DD(130,8,12)="Screen prevents selection of inactive entries."
^DD(130,8,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,8,21,0)="^^4^4^2920603^^^"
^DD(130,8,21,1,0)="This is the name of the SECOND antimicrobial agent used to wash and"
^DD(130,8,21,2,0)="prepare the operative site.  Although optional, this information may"
^DD(130,8,21,3,0)="be useful in documentation of the case."
^DD(130,8,21,4,0)=" "
^DD(130,8,"DT")="2920603"
^DD(130,9,0)="TIME NURSE OUT OF OR^DX^^31;3^S SRN=.2,SRP=7,SR130=""NURSE PRESENT TIME"" D TERM^SROVAR K:Y<1 X I $D(DA),$D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=9 D ^SROCON Q"
^DD(130,9,.1)="Time Nurse Out of O.R."
^DD(130,9,3)=""
^DD(130,9,21,0)="^^3^3^2900703^^^^"
^DD(130,9,21,1,0)="This is the date and time that the circulating nurse completed duties"
^DD(130,9,21,2,0)="for the operative procedure and left the operating room."
^DD(130,9,21,3,0)=" "
^DD(130,9,"DT")="2980109"
^DD(130,10,0)="SCHEDULED START TIME^D^^31;4^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(130,10,.1)="Scheduled to Start at what Time"
^DD(130,10,1,0)="^.1^^-1"
^DD(130,10,1,1,0)="130^AM2^MUMPS"
^DD(130,10,1,1,1)="D AM2^SROXR2"
^DD(130,10,1,1,2)="D KILLAM2^SROXR2"
^DD(130,10,1,1,"%D",0)="^^2^2^2930129^^"
^DD(130,10,1,1,"%D",1,0)="The AM2 cross reference on the SCHEDULED START TIME field resets the AMM"
^DD(130,10,1,1,"%D",2,0)="cross reference for the case when the scheduled start time is edited."
^DD(130,10,21,0)="^^3^3^2900111^"
^DD(130,10,21,1,0)="This is the date and time that this operative procedure is scheduled"
^DD(130,10,21,2,0)="to begin."
^DD(130,10,21,3,0)=" "
^DD(130,10,"DT")="3021122"
^DD(130,11,0)="SCHEDULED END TIME^D^^31;5^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(130,11,.1)="Scheduled to End at what Time"
^DD(130,11,1,0)="^.1^^-3"
^DD(130,11,1,3,0)="130^AMM^MUMPS"
^DD(130,11,1,3,1)="D AMM^SROXR2"
^DD(130,11,1,3,2)="D KILLAMM^SROXR2"
^DD(130,11,1,3,"%D",0)="^^3^3^2930129^"
^DD(130,11,1,3,"%D",1,0)="The AMM cross reference on the SCHEDULED END TIME field sets the AMM"
^DD(130,11,1,3,"%D",2,0)="cross reference for the case if the operating room and the scheduled"
^DD(130,11,1,3,"%D",3,0)="start time are defined."
^DD(130,11,3)=""
^DD(130,11,21,0)="^^3^3^2900111^"
^DD(130,11,21,1,0)="This is the date and time that this operative procedure is scheduled"
^DD(130,11,21,2,0)="to end."
^DD(130,11,21,3,0)=" "
^DD(130,11,"DT")="3021122"
^DD(130,12,0)="IN OR TO ANES START^CJ8^^ ; ^X ^DD(130,12,9.2) S X1=Y(130,12,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,12,9)="^"
^DD(130,12,9.01)="130^.205;130^.21"
^DD(130,12,9.1)="MINUTES(ANES CARE START TIME,TIME PAT IN OR)"
^DD(130,12,9.2)="S Y(130,12,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,12,1),U,1),Y(130,12,2)=X S X=$P(Y(130,12,1),U,10)"
^DD(130,12,21,0)="^^3^3^2900111^"
^DD(130,12,21,1,0)="This is the number of minutes between the time anesthesia care"
^DD(130,12,21,2,0)="began and time that the patient left the operating room."
^DD(130,12,21,3,0)=" "
^DD(130,13,0)="ANES START TO OP START^CJ8^^ ; ^X ^DD(130,13,9.2) S X1=Y(130,13,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,13,.1)="Time Between Anesthesia Start and Operation Start Times"
^DD(130,13,9)="^"
^DD(130,13,9.01)="130^.21;130^.22"
^DD(130,13,9.1)="MINUTES(TIME OPERATION BEGAN,ANES CARE START TIME)"
^DD(130,13,9.2)="S Y(130,13,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,13,1),U,2),Y(130,13,2)=X S X=$P(Y(130,13,1),U,1)"
^DD(130,13,21,0)="^^3^3^2900111^"
^DD(130,13,21,1,0)="This is the number of minutes between the time that anesthesia care"
^DD(130,13,21,2,0)="started and time that the operation began."
^DD(130,13,21,3,0)=" "
^DD(130,14,0)="IN OR TO OP START TIME^CJ8^^ ; ^X ^DD(130,14,9.2) S X1=Y(130,14,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD(130,14,.1)="Time Between Time in OR and Operation Start Time"
^DD(130,14,9)="^"
^DD(130,14,9.01)="130^.205;130^.22"
^DD(130,14,9.1)="MINUTES(TIME OPERATION BEGAN,TIME PAT IN OR)"
^DD(130,14,9.2)="S Y(130,14,1)=$S($D(^SRF(D0,.2)):^(.2),1:"""") S X=$P(Y(130,14,1),U,2),Y(130,14,2)=X S X=$P(Y(130,14,1),U,10)"
^DD(130,14,21,0)="^^3^3^2921215^"
^DD(130,14,21,1,0)="This is the time between the time the patient enters the operating room"
^DD(130,14,21,2,0)="to the operation start time."
^DD(130,14,21,3,0)=" "
^DD(130,15,0)="DATE/TIME OF DICTATION^DX^^31;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(130,15,.1)="Date/Time of Dictation"
^DD(130,15,1,0)="^.1^^0"
^DD(130,15,21,0)="^^3^3^2900111^"
^DD(130,15,21,1,0)="This is the date and time that dictation of the operative summary"
^DD(130,15,21,2,0)="was completed."
^DD(130,15,21,3,0)=" "
^DD(130,15,"DT")="2931213"
^DD(130,17,0)="CANCEL DATE^D^^30;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(130,17,.1)="Cancellation Date/Time"
^DD(130,17,1,0)="^.1^^0"
^DD(130,17,3)="Enter the date and time on which this case was cancelled."
^DD(130,17,21,0)="^^2^2^2921106^^^"
^DD(130,17,21,1,0)="This is the date and time that the operative procedure was canceled."
^DD(130,17,21,2,0)=" "
^DD(130,17,"DT")="2920820"
^DD(130,18,0)="CANCEL REASON^*P135'X^SRO(135,^31;8^S DIC(""S"")=""I '$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,18,.1)="Cancellation Reason"
^DD(130,18,1,0)="^.1"
^DD(130,18,1,1,0)="130^ACAN^MUMPS"
^DD(130,18,1,1,1)="D CAN^SROXR4"
^DD(130,18,1,1,2)="D KCAN^SROXR4"
^DD(130,18,1,1,"%D",0)="^^4^4^2930129^^"
^DD(130,18,1,1,"%D",1,0)="The ACAN cross reference on the CANCEL REASON field functions to stuff"
^DD(130,18,1,1,"%D",2,0)="for the CANCEL REASON the default CANCELLATION AVOIDABLE (Y or N) as"
^DD(130,18,1,1,"%D",3,0)="defined in the SURGERY CANCELLATION REASON file.  It also stuffs the"
^DD(130,18,1,1,"%D",4,0)="CANCELLED BY field with the user if not already defined."
^DD(130,18,3)="Enter the reason why this scheduled case was cancelled."
^DD(130,18,12)="Screen prevents selection of inactive entries."
^DD(130,18,12.1)="S DIC(""S"")=""I '$P(^(0),U,4)"""
^DD(130,18,21,0)="^^2^2^2900111^"
^DD(130,18,21,1,0)="This is the reason that this surgical case was cancelled."
^DD(130,18,21,2,0)=" "
^DD(130,18,"DT")="2920602"
^DD(130,20,0)="DIAGNOSTIC/THERAPEUTIC (Y/N)^SX^Y:YES;N:NO;^31;9^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=20 D ^SROCON Q"
^DD(130,20,.1)="Diagnostic/Therapeutic (Y/N)"
^DD(130,20,3)=""
^DD(130,20,21,0)="^^3^3^2900111^^^"
^DD(130,20,21,1,0)="This indicates if the anesthesia technique is an anesthesia diagnostic/"
^DD(130,20,21,2,0)="therapeutic procedure."
^DD(130,20,21,3,0)=" "
^DD(130,20,"DT")="2900823"
^DD(130,21,0)="WAIT TIME START^DX^^31;11^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,21,.1)="Start of Patient's Wait Time"
^DD(130,21,3)="This is the start of the patient's ""wait"" for Surgery."
^DD(130,21,21,0)="^^2^2^3070830^"
^DD(130,21,21,1,0)="This is start of the patient's ""wait"" for Surgery. Typically, this is "
^DD(130,21,21,2,0)="the date that the patient was notified that Surgery is needed."
^DD(130,21,"DT")="3070828"
^DD(130,22,0)="TUBES AND DRAINS^FX^^3;1^K:$L(X)>80!($L(X)<1) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=22 D ^SROCON Q"
^DD(130,22,.1)="Tubes and Drains"
^DD(130,22,3)="Answer must be 1 to 80 characters in length."
^DD(130,22,21,0)="^^3^3^2900703^^^"
^DD(130,22,21,1,0)="This is the type and placement of tubes and drains during the operative"
^DD(130,22,21,2,0)="process."
^DD(130,22,21,3,0)=" "
^DD(130,22,"DT")="2900823"
^DD(130,23,0)="REFERRING PHYSICIAN^130.03A^^18;0"
^DD(130,23,.1)="Referring Physician/Medical Center"
^DD(130,23,21,0)="^.001^2^2^3031006^^^^"
^DD(130,23,21,1,0)="This is information related to the referring physician."
^DD(130,23,21,2,0)=" "
^DD(130,24,0)="LOCK CASE^S^1:LOCKED;0:UNLOCKED;^LOCK;1^Q"
^DD(130,24,.1)="Case Locked"
^DD(130,24,1,0)="^.1"
^DD(130,24,1,1,0)="130^AL^MUMPS"
^DD(130,24,1,1,1)="K ^SRF(""AL"",DA)"
^DD(130,24,1,1,2)="S ^SRF(""AL"",DA)="""""
^DD(130,24,1,1,"%D",0)="^^4^4^2930129^"
^DD(130,24,1,1,"%D",1,0)="The AL cross reference on the LOCK CASE field uses reverse set and kill"
^DD(130,24,1,1,"%D",2,0)="logic to flag cases that have been locked, then unlocked.  The cross"
^DD(130,24,1,1,"%D",3,0)="reference for the case is set when the field is deleted and is killed "
^DD(130,24,1,1,"%D",4,0)="when the field is set."
^DD(130,24,3)="This field will be equal to 1 if the case has been completed and locked, or 0 if it is still open."
^DD(130,24,21,0)="^^4^4^2910130^^^"
^DD(130,24,21,1,0)="This indicates whether this case has been completed and locked."
^DD(130,24,21,2,0)="Locked cases can only be edited if unlocked by the Chief of"
^DD(130,24,21,3,0)="Surgery or his or her designee."
^DD(130,24,21,4,0)=" "
^DD(130,24,"DT")="2920312"
^DD(130,25,0)="DISCHARGED VIA^*P131.01'X^SRO(131.01,^.7;4^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=25 D ^SROCON Q"
^DD(130,25,.1)="Patient Discharged Via"
^DD(130,25,3)="Enter the mode of transport used to take patient from the care area."
^DD(130,25,12)="Screen prevents selection of inactive entries."
^DD(130,25,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130,25,21,0)="^^3^3^2920602^^^^"
^DD(130,25,21,1,0)="This is the code corresponding to the mode of transport used to move"
^DD(130,25,21,2,0)="the patient from the care area."
^DD(130,25,21,3,0)=" "
^DD(130,25,"DT")="2920602"
^DD(130,26,0)="PRINCIPAL PROCEDURE^RFX^^OP;1^K:$L(X)>135!($L(X)<3) X D:$D(X) PROC^SROPROC,PCPTASO^SROADX2(0) K:$G(X)="""" X"
^DD(130,26,.1)="Principal Procedure"
^DD(130,26,1,0)="^.1^^0"
^DD(130,26,3)="Your answer must be 3-135 characters in length and must not contain an up-arrow (^)."
^DD(130,26,21,0)="^^21^21^3040316^"
^DD(130,26,21,1,0)="This is the name of the principal procedure for this case. All cases "
^DD(130,26,21,2,0)="must have a principal procedure."
^DD(130,26,21,3,0)=" "
^DD(130,26,21,4,0)="The principal procedure must be 3 to 135 characters in length. The"
^DD(130,26,21,5,0)="procedure name must not contain a semicolon (;), an at-sign (@), an up-"
^DD(130,26,21,6,0)="arrow (^) or control characters. If the procedure name is longer than "
^DD(130,26,21,7,0)="30 characters, it must contain at least one space in every 31"
^DD(130,26,21,8,0)="characters of length. If a comma is being used to separate information,"
^DD(130,26,21,9,0)="a space should follow the comma."
^DD(130,26,21,10,0)=" "
^DD(130,26,21,11,0)="NSQIP Definition (2004):"
^DD(130,26,21,12,0)="The most complex of all the procedures by the primary operating team "
^DD(130,26,21,13,0)="during this trip to the operating room. Your answer must be at least 3"
^DD(130,26,21,14,0)="characters in length. Do not enter an additional procedure if it is "
^DD(130,26,21,15,0)="covered by a single CPT code. (Note that a single CPT code can cover "
^DD(130,26,21,16,0)="more than one procedure, e.g., cholecystectomy and common bile duct "
^DD(130,26,21,17,0)="exploration have a single CPT code). Additional procedures requiring "
^DD(130,26,21,18,0)="separate CPT codes and/or concurrent procedures will be entered "
^DD(130,26,21,19,0)="separately below. An exploratory laparotomy should be entered as the "
^DD(130,26,21,20,0)="principal operative procedure only when no other procedure eligible for"
^DD(130,26,21,21,0)="assessment has been performed in that particular surgical case.  "
^DD(130,26,"DT")="3040915"
^DD(130,27,0)="PLANNED PRIN PROCEDURE CODE ^*P81'OX^ICPT(^OP;2^D IN^SROCPT S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D PCPTASO^SROADX2(1) K:$G(X)="""" X"
^DD(130,27,.1)="Planned Principal Procedure Code (CPT)"
^DD(130,27,1,0)="^.1^^-1"
^DD(130,27,1,2,0)="130^ACPT^MUMPS"
^DD(130,27,1,2,1)="D SPRIN^SROMOD"
^DD(130,27,1,2,2)="D KPRIN^SROMOD"
^DD(130,27,1,2,"%D",0)="^.101^20^20^3041216^^^^"
^DD(130,27,1,2,"%D",1,0)="This MUMPS cross reference provides for updating CPT modifiers for the"
^DD(130,27,1,2,"%D",2,0)="principal procedure code.  CPT modifiers for the PRINCIPAL PROCEDURE CODE"
^DD(130,27,1,2,"%D",3,0)="field (#27) are stored in the PRIN. PROCEDURE CPT MODIFIER field (#.01) of"
^DD(130,27,1,2,"%D",4,0)="the PRIN. PROCEDURE CPT MODIFIER multiple field (#28) in SURGERY file"
^DD(130,27,1,2,"%D",5,0)="(#130)."
^DD(130,27,1,2,"%D",6,0)=" "
^DD(130,27,1,2,"%D",7,0)="After selecting a CPT code, this cross reference prompts the user for a"
^DD(130,27,1,2,"%D",8,0)="CPT modifier.  If a CPT modifier was entered concatenated with a hyphen to"
^DD(130,27,1,2,"%D",9,0)="the CPT code, this CPT modifier is displayed as a default modifier. Upon"
^DD(130,27,1,2,"%D",10,0)="entering a CPT modifier, the user is prompted for another CPT modifier"
^DD(130,27,1,2,"%D",11,0)="until the user makes a null entry. CPT modifier input is controlled by the"
^DD(130,27,1,2,"%D",12,0)="input transform on the PRIN. PROCEDURE CPT MODIFIER field (#28). At the"
^DD(130,27,1,2,"%D",13,0)="CPT modifier prompt, the user may to enter a question mark (?) to see a"
^DD(130,27,1,2,"%D",14,0)="list of CPT modifiers already entered and a list of acceptable CPT"
^DD(130,27,1,2,"%D",15,0)="modifiers to choose from.  If the user selects a modifier already entered,"
^DD(130,27,1,2,"%D",16,0)="the user may change or delete the modifier.  If a user enters a new CPT"
^DD(130,27,1,2,"%D",17,0)="code, replacing a previously entered CPT code, KILL logic on the ACPT"
^DD(130,27,1,2,"%D",18,0)="cross reference deletes any previously entered CPT modifiers for the old"
^DD(130,27,1,2,"%D",19,0)="CPT code before the SET logic prompts the user to enter CPT modifiers for"
^DD(130,27,1,2,"%D",20,0)="the new CPT code."
^DD(130,27,1,2,"DT")="2990224"
^DD(130,27,2)="S Y(0)=Y D DISPLAY^SROCPT"
^DD(130,27,2.1)="D DISPLAY^SROCPT"
^DD(130,27,3)="Enter the planned CPT code for the principal procedure."
^DD(130,27,12)="Screen out Inactive Codes"
^DD(130,27,12.1)="S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,27,21,0)="^.001^5^5^3050505^^"
^DD(130,27,21,1,0)="This is the Current Procedural Terminology (CPT) code corresponding "
^DD(130,27,21,2,0)="with the planned principal procedure. A CPT modifier on the CPT code"
^DD(130,27,21,3,0)="may be included by appending the modifier to the CPT code separated by"
^DD(130,27,21,4,0)="a hyphen in the format ""XXXXX-YY"" where ""XXXXX"" is the five character"
^DD(130,27,21,5,0)="CPT code and ""YY"" is the two character CPT modifier."
^DD(130,27,"DT")="3050722"
^DD(130,27.5,0)="PRIN ASSOC DIAGNOSIS^130.275A^^PADX;0"
^DD(130,27.5,21,0)="^.001^2^2^3040227^^^^"
^DD(130,27.5,21,1,0)="This Surgery sub-file is used to store the Procedure/Diagnosis "
^DD(130,27.5,21,2,0)="association data."
^DD(130,27.5,"DT")="3040227"
^DD(130,28,0)="PRIN. PROCEDURE CPT MODIFIER^130.028P^^OPMOD;0"
^DD(130,28,"DT")="2990223"
^DD(130,29,0)="*PROCEDURE COMPLETED^S^Y:YES;N:NO;^OP;4^Q"
^DD(130,29,.1)="Principal Operative Procedure Complete (Y/N)"
^DD(130,29,21,0)="^^3^3^2930303^^^"
^DD(130,29,21,1,0)="This indicates whether the principal operative procedure was completed."
^DD(130,29,21,2,0)=" "
^DD(130,29,21,3,0)="This field has been marked for deletion."
^DD(130,29,"DT")="2870917"
^DD(130,30,0)="OTHER SCRUBBED ASSISTANTS^130.23PA^^28;0"
^DD(130,30,.1)="Other Scrubbed Assistants"
^DD(130,30,21,0)="^^3^3^2900111^"
^DD(130,30,21,1,0)="This is information about other persons in the operating room in"
^DD(130,30,21,2,0)="addition to those already listed as scrubbed."
^DD(130,30,21,3,0)=" "
^DD(130,31,0)="OTHER PERSONS IN OR^130.24A^^32;0"
^DD(130,31,.1)="Other Persons in O.R."
^DD(130,31,21,0)="^^3^3^2921026^^"
^DD(130,31,21,1,0)="This is information related to other persons, not scrubbed or otherwise"
^DD(130,31,21,2,0)="identified, present in the operating room."
^DD(130,31,21,3,0)=" "
^DD(130,32,0)="PRINCIPAL PRE-OP DIAGNOSIS^FX^^33;1^K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL,PRINASO^SROADX2(0)"
^DD(130,32,.1)="Principal Preoperative Diagnosis"
^DD(130,32,1,0)="^.1"
^DD(130,32,1,1,0)="^^TRIGGER^130^34"
^DD(130,32,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,34)):^(34),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(130,32,1,1,1.4)"
^DD(130,32,1,1,1.4)="S DIH=$S($D(^SRF(DIV(0),34)):^(34),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(34)=DIV_$S(%]"""":U_%,1:""""),DIH=130,DIG=34 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(130,32,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,34)):^(34),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(130,32,1,1,2.1) X ^DD(130,32,1,1,2.4)"
^DD(130,32,1,1,2.1)="S X=DIV S Y(1)=$S($D(^SRF(D0,33)):^(33),1:"""") S X=$P(Y(1),U,1)"
^DD(130,32,1,1,2.4)="S DIH=$S($D(^SRF(DIV(0),34)):^(34),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(34)=DIV_$S(%]"""":U_%,1:""""),DIH=130,DIG=34 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(130,32,1,1,"%D",0)="^.101^3^3^3031002^^^"
^DD(130,32,1,1,"%D",1,0)="This trigger on the PRINCIPAL PRE-OP DIAGNOSIS field stuffs the PRINCIPAL"
^DD(130,32,1,1,"%D",2,0)="POST-OP DIAGNOSIS field with what is entered as the PRINCIPAL PRE-OP"
^DD(130,32,1,1,"%D",3,0)="DIAGNOSIS."
^DD(130,32,1,1,"CREATE VALUE")="PRINCIPAL PRE"
^DD(130,32,1,1,"DELETE VALUE")="PRINCIPAL PRE"
^DD(130,32,1,1,"FIELD")="PRINCIPAL PO"
^DD(130,32,1,2,0)="130^DADX1^MUMPS"
^DD(130,32,1,2,1)="Q"
^DD(130,32,1,2,2)="D DELASOC^SROADX2"
^DD(130,32,1,2,"%D",0)="^.101^1^1^3031014^^"
^DD(130,32,1,2,"%D",1,0)="This cross reference removes associations from diagnosis being deleted."
^DD(130,32,1,2,"DT")="3031001"
^DD(130,32,3)="Your answer must be 1 to 40 characters in length."
^DD(130,32,21,0)="^.001^2^2^3031014^^^^"
^DD(130,32,21,1,0)="This is the preoperative diagnosis for which the surgical procedure"
^DD(130,32,21,2,0)="is being performed."
^DD(130,32,"DEL",1,0)="I 1 D EN^DDIOL(""The PRINCIPAL PRE-OP DIAGNOSIS can't be deleted."",,""!!,?2"")"
^DD(130,32,"DT")="3031006"
^DD(130,32.5,0)="PRIN PRE-OP ICD DIAGNOSIS CODE^*P80'^ICD9(^34;3^S DIC(""S"")=""I $P(^(0),""""^"""",9)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,32.5,.1)="Prin Pre-OP ICD Diagnosis Code"
^DD(130,32.5,1,0)="^.1^^-1"
^DD(130,32.5,1,2,0)="130^AM^MUMPS"
^DD(130,32.5,1,2,1)="S $P(^SRF(DA,34),""^"",2)=X"
^DD(130,32.5,1,2,2)="Q"
^DD(130,32.5,1,2,"%D",0)="^^2^2^3050404^"
^DD(130,32.5,1,2,"%D",1,0)="This cross reference stuffs the current value of the PRIN PRE-OP ICD "
^DD(130,32.5,1,2,"%D",2,0)="DIAGNOSIS CODE field (#32.5) into the PRIN DIAGNOSIS CODE field (#66)."
^DD(130,32.5,1,2,"DT")="3050404"
^DD(130,32.5,3)="Enter the ICD Diagnosis code for the principal Pre-OP diagnosis.."
^DD(130,32.5,12)="Screen prevents selection of inactive diagnosis."
^DD(130,32.5,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",9)'=1"""
^DD(130,32.5,21,0)="^^2^2^3050504^"
^DD(130,32.5,21,1,0)="This is the principal Pre-OP ICD diagnosis code.  It should be entered"
^DD(130,32.5,21,2,0)="for all cases."
^DD(130,32.5,"DT")="3050606"
^DD(130,33,0)="PRINCIPAL DIAGNOSIS^FX^^33;2^K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL,PRINASO^SROADX2(0) K:$G(X)="""" X"
^DD(130,33,.1)="Principal Diagnosis"
^DD(130,33,1,0)="^.1"
^DD(130,33,1,1,0)="130^PADX1^MUMPS"
^DD(130,33,1,1,1)="Q"
^DD(130,33,1,1,2)="D PRINASOD^SROADX2"
^DD(130,33,1,1,"%D",0)="^.101^2^2^3031002^^^"
^DD(130,33,1,1,"%D",1,0)="THIS CROSS REFERENCE REMOVES ASSOCIATIONS TO PROCEDURES UPON EDITS OR "
^DD(130,33,1,1,"%D",2,0)="DELETES OF THE DIAGNOSIS."
^DD(130,33,1,1,"DT")="3031002"
^DD(130,33,3)="Answer must be 1-40 characters in length."
^DD(130,33,21,0)="^.001^2^2^3031008^^"
^DD(130,33,21,1,0)="This is the principal diagnosis for which the non-OR procedure is being"
^DD(130,33,21,2,0)="performed."
^DD(130,33,"DT")="3031006"
^DD(130,34,0)="PRINCIPAL POST-OP DIAG^FX^^34;1^K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL,PRINASO^SROADX2(0) K:$G(X)="""" X"
^DD(130,34,.1)="Principal Postoperative Diagnosis"
^DD(130,34,1,0)="^.1^^0"
^DD(130,34,3)="Your answer must be 1 to 40 characters in length."
^DD(130,34,5,1,0)="130^32^1"
^DD(130,34,21,0)="^^1^1^2921026^^^^"
^DD(130,34,21,1,0)="This is the principal postoperative diagnosis."
^DD(130,34,"DT")="3031006"
^DD(130,35,0)="CONCURRENT CASE^P130'^SRF(^CON;1^Q"
^DD(130,35,.1)="Concurrent Surgical Case"
^DD(130,35,21,0)="^^8^8^3040316^"
^DD(130,35,21,1,0)="NSQIP Definition (2004):"
^DD(130,35,21,2,0)="An additional operative procedure performed by a different surgical team "
^DD(130,35,21,3,0)="(i.e., a different specialty/service) under the same anesthetic which has "
^DD(130,35,21,4,0)="a CPT code different from that of the Principal Operative Procedure (e.g.,"
^DD(130,35,21,5,0)="fixation of a femur fracture in a patient undergoing a laparotomy for"
^DD(130,35,21,6,0)="trauma). This field should be verified and, if need be, edited "
^DD(130,35,21,7,0)="postoperatively by the Nurse Reviewer in accordance with the official "
^DD(130,35,21,8,0)="operating room log."
^DD(130,35,"DT")="3040316"
^DD(130,36,0)="REQUESTED^NJ1,0^^REQ;1^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,36,.1)="Was this Case Requested (Y/N)"
^DD(130,36,3)="Enter '1' if this case has been requested."
^DD(130,36,21,0)="^^2^2^2900703^^"
^DD(130,36,21,1,0)="This indicates whether this case was requested."
^DD(130,36,21,2,0)=" "
^DD(130,36,"DT")="2871215"
^DD(130,37,0)="ESTIMATED CASE LENGTH^FX^^.4;1^K:$L(X)>7!($L(X)<1)!'(X?.N1"":""2N)!($P(X,"":"",2)>59) X"
^DD(130,37,.1)="Estimated Case Length (HOURS:MINUTES)"
^DD(130,37,3)="Enter the estimated amount of time to perform this procedure."
^DD(130,37,21,0)="^^5^5^2921002^^"
^DD(130,37,21,1,0)="This is the amount of time estimated to perform this operative"
^DD(130,37,21,2,0)="procedure.  Your answer should be in the format of ""HOURS:MINUTES""."
^DD(130,37,21,3,0)="For example, if the procedure will last 2 and 1/2 hours, your answer"
^DD(130,37,21,4,0)="would be 2:30."
^DD(130,37,21,5,0)=" "
^DD(130,37,23,0)="^^4^4^2921002^"
^DD(130,37,23,1,0)="This field may be stuffed with an answer by using the routine ^SRSAVG."
^DD(130,37,23,2,0)="The routine ^SRSAVG calculates the average length of time based on"
^DD(130,37,23,3,0)="information from previous cases using the surgical specialty and CPT"
^DD(130,37,23,4,0)="Code."
^DD(130,37,"DT")="2921002"
^DD(130,38,0)="REQUEST BLOOD AVAILABILITY^S^Y:YES;N:NO;^0;6^Q"
^DD(130,38,.1)="Request Blood for this Surgical Case (Y/N)"
^DD(130,38,3)="Enter 'YES' if you want to request blood for this procedure."
^DD(130,38,21,0)="^^4^4^2911230^"
^DD(130,38,21,1,0)="This determines whether blood will be requested for this surgical"
^DD(130,38,21,2,0)="procedure.  Enter 'YES' if blood will be requested.  Otherwise,"
^DD(130,38,21,3,0)="enter 'NO'."
^DD(130,38,21,4,0)=" "
^DD(130,38,23,0)="^^4^4^2911230^"
^DD(130,38,23,1,0)="This field determines whether blood will be requested.  If answered"
^DD(130,38,23,2,0)="'YES', you will then be prompted for the fields CROSSMATCH, SCREEN,"
^DD(130,38,23,3,0)="OR AUTOLOGOUS, and REQUESTED BLOOD KIND."
^DD(130,38,23,4,0)=" "
^DD(130,38,"DT")="2911230"
^DD(130,39,0)="DATE OF TRANSCRIPTION^D^^31;7^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(130,39,.1)="Date of Transcription"
^DD(130,39,21,0)="^^3^3^2900111^"
^DD(130,39,21,1,0)="This is the date and time that transcription of the operative summary"
^DD(130,39,21,2,0)="was completed."
^DD(130,39,21,3,0)=" "
^DD(130,39,"DT")="2880414"
^DD(130,40,0)="CROSSMATCH, SCREEN, AUTOLOGOUS^S^T:TYPE & CROSSMATCH;S:SCREEN;A:AUTOLOGOUS;^0;13^Q"
^DD(130,40,.1)="Type & Crossmatch, Screen, or Autologous"
^DD(130,40,3)="Enter whether the blood requested is type and crossmatched, screened, or autologous."
^DD(130,40,21,0)="^^3^3^2911230^"
^DD(130,40,21,1,0)="This determines whether the requested blood will be typed and"
^DD(130,40,21,2,0)="crossmatched, screened, or autologous."
^DD(130,40,21,3,0)=" "
^DD(130,40,23,0)="^^4^4^2911230^"
^DD(130,40,23,1,0)="This will determine whether the requested blood is screened, type and"
^DD(130,40,23,2,0)="crossmatched, or autologous.  If Typed and crossmsatched, you will then"
^DD(130,40,23,3,0)="be prompted for the requested blood kind and units."
^DD(130,40,23,4,0)=" "
^DD(130,40,"DT")="2911230"
^DD(130,41,0)="DRESSING^FX^^35;1^K:$L(X)>50!($L(X)<1) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=41 D ^SROCON Q"
^DD(130,41,.1)="Dressing(s)"
^DD(130,41,3)="Enter the dressing(s) used for this case.  Answer must be 1-50 characters long."
^DD(130,41,21,0)="^^3^3^2921026^^^"
^DD(130,41,21,1,0)="These are the dressing(s) used for this case.  Although optional, this"
^DD(130,41,21,2,0)="information may be useful in documentation of this case."
^DD(130,41,21,3,0)=" "
^DD(130,41,"DT")="2900823"
^DD(130,42,0)="DELAY CAUSE^130.042PA^^17;0"
^DD(130,42,.1)="Reason for the Delay"
^DD(130,42,21,0)="^^3^3^2921026^^^"
^DD(130,42,21,1,0)="This is information related to the reason why this case did not begin"
^DD(130,42,21,2,0)="at its scheduled start time."
^DD(130,42,21,3,0)=" "
^DD(130,43,0)="CASE VERIFICATION^S^Y:YES;N:NO;^VER;1^Q"
^DD(130,43,.1)="Case Verification (Y/N)"
^DD(130,43,21,0)="^^3^3^2900703^^"
^DD(130,43,21,1,0)="This indicates whether the principal operative procedure, CPT code,"
^DD(130,43,21,2,0)="perioperative occurrences and diagnosis were verified by the surgeon."
^DD(130,43,21,3,0)=" "
^DD(130,43,"DT")="2880614"
^DD(130,44,0)="SPONGE COUNT CORRECT (Y/N)^S^Y:YES;N:NO, SEE NURSING CARE COMMENTS;N/A:NOT APPLICABLE;^25;1^Q"
^DD(130,44,.1)="Final Sponge Count Correct (Y/N)"
^DD(130,44,3)="Enter 'Y' if the final sponge count is correct."
^DD(130,44,21,0)="^^3^3^2900111^"
^DD(130,44,21,1,0)="This indicates whether the final sponge count was correct.  If entered,"
^DD(130,44,21,2,0)="this information will appear on the Nurse Intraoperative Report."
^DD(130,44,21,3,0)=" "
^DD(130,44,"DT")="2890130"
^DD(130,45,0)="SHARPS COUNT CORRECT (Y/N)^S^Y:YES;N:NO, SEE NURSING CARE COMMENTS;N/A:NOT APPLICABLE;^25;2^Q"
^DD(130,45,.1)="Final Sharps Count Correct (Y/N)"
^DD(130,45,3)="Enter 'Y' if the final sharps count is correct."
^DD(130,45,21,0)="^^5^5^2930512^^"
^DD(130,45,21,1,0)="This indicates whether the final sharps count was correct.  If entered,"
^DD(130,45,21,2,0)="this information will appear on the Nurse Intraoperative Report."
^DD(130,45,21,3,0)="The type of information entered in this field is determined by local "
^DD(130,45,21,4,0)="hospital policy."
^DD(130,45,21,5,0)=" "
^DD(130,45,"DT")="2890130"
^DD(130,46,0)="INSTRUMENT COUNT CORRECT (Y/N)^S^Y:YES;N:NO, SEE NURSING CARE COMMENTS;N/A:NOT APPLICABLE;^25;3^Q"
^DD(130,46,.1)="Final Instrument Count Correct (Y/N)"
^DD(130,46,3)="Enter 'Y' if the final instrument count is correct."
^DD(130,46,21,0)="^^5^5^2930512^^^"
^DD(130,46,21,1,0)="This indicates whether the final instrument count was correct for"
^DD(130,46,21,2,0)="this case.  This information appears on the Nurse Intraoperative"
^DD(130,46,21,3,0)="Report.  The type of information entered in this field is determined"
^DD(130,46,21,4,0)="by local hospital policy."
^DD(130,46,21,5,0)=" "
^DD(130,46,"DT")="2890130"
^DD(130,47,0)="SPONGE, SHARPS, & INST COUNTER^*P200'^VA(200,^25;4^S DIC(""S"")=""S RESTRICT=""""130,47"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,47,.1)="Person Responsible for Final Counts"
^DD(130,47,3)="Enter the name of the person doing the final counts."
^DD(130,47,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,47,12.1)="S DIC(""S"")=""S RESTRICT=""""130,47"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,47,21,0)="^^4^4^2900703^^"
^DD(130,47,21,1,0)="This is the name of the person doing the final count of sponges,"
^DD(130,47,21,2,0)="sharps and instruments.  If entered, this information appears"
^DD(130,47,21,3,0)="on the Nurse Intraoperative Report."
^DD(130,47,21,4,0)=" "
^DD(130,47,"DT")="2920204"
^DD(130,48,0)="COUNT VERIFIER^*P200'^VA(200,^25;5^S DIC(""S"")=""S RESTRICT=""""130,48"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,48,.1)="Count Verifier"
^DD(130,48,3)="Enter the name of the person verifying the final counts."
^DD(130,48,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,48,12.1)="S DIC(""S"")=""S RESTRICT=""""130,48"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,48,21,0)="^^3^3^2900111^"
^DD(130,48,21,1,0)="This is the name of the person responsible for verifying the final "
^DD(130,48,21,2,0)="sponge, sharps and instrument counts."
^DD(130,48,21,3,0)=" "
^DD(130,48,"DT")="2920204"
^DD(130,49,0)="SPECIMENS^130.049^^9;0"
^DD(130,49,.1)="Specimens"
^DD(130,49,21,0)="^^2^2^2900911^^"
^DD(130,49,21,1,0)="These are the names of specimens sent to the lab for analysis."
^DD(130,49,21,2,0)=" "
^DD(130,50,0)="DIVISION^P4'X^DIC(4,^8;1^Q"
^DD(130,50,.1)="Medical Center Division"
^DD(130,50,21,0)="^^3^3^2900111^"
^DD(130,50,21,1,0)="This is the name of the institution credited for performing this"
^DD(130,50,21,2,0)="operative procedure."
^DD(130,50,21,3,0)=" "
^DD(130,50,"DT")="2900823"
^DD(130,51,0)="PREOP ATTENDING CONCURRENCE^SX^Y:YES;N:NO;^24;1^Q"
^DD(130,51,.1)="Preoperative Attending Concurrence (Y/N)"
^DD(130,51,21,0)="^^2^2^2930211^"
^DD(130,51,21,1,0)="This field serves as a flag that the attending has concurred with the"
^DD(130,51,21,2,0)="preoperative workup."
^DD(130,51,"DT")="2900823"
^DD(130,52,0)="POSTOP ATTENDING CONCURRENCE^SX^Y:YES;N:NO;^24;2^Q"
^DD(130,52,.1)="Postoperative Attending Concurrence"
^DD(130,52,3)=""
^DD(130,52,21,0)="^^2^2^2930211^"
^DD(130,52,21,1,0)="This field serves as a flag that the attending concurs with the"
^DD(130,52,21,2,0)="postoperative workup."
^DD(130,52,"DT")="2900823"
^DD(130,53,0)="NON-OPERATIVE OCCURRENCES^130.053A^^36;0"
^DD(130,53,.1)="Non-Operative Occurrences"
^DD(130,53,21,0)="^^4^4^2950226^^^"
^DD(130,53,21,1,0)="These are occurrences that are not related to a surgical procedure."
^DD(130,53,21,2,0)="If there are not any non-operative occurrences, leave this field"
^DD(130,53,21,3,0)="blank.  Do not enter 'NO' or 'NONE'."
^DD(130,53,21,4,0)=" "
^DD(130,53,"DT")="2950226"
^DD(130,54,0)="OCCURRENCE/NO PROCEDURE^S^1:YES;0:NO;^37;1^Q"
^DD(130,54,.1)="Occurrence/No Procedure"
^DD(130,54,1,0)="^.1"
^DD(130,54,1,1,0)="130^ANON^MUMPS"
^DD(130,54,1,1,1)="S ^SRF(""ANON"",$P(^SRF(DA,0),""^""),DA)="""""
^DD(130,54,1,1,2)="K ^SRF(""ANON"",$P(^SRF(DA,0),""^""),DA)"
^DD(130,54,1,1,"%D",0)="^^2^2^2930129^"
^DD(130,54,1,1,"%D",1,0)="The ANON cross reference on the OCCURRENCE/NO PROCEDURE field is used"
^DD(130,54,1,1,"%D",2,0)="to flag cases that have non-operative occurrences entered."
^DD(130,54,21,0)="^^3^3^2900111^"
^DD(130,54,21,1,0)="This indicates that this case was a occurrence, not related to a"
^DD(130,54,21,2,0)="surgical procedure."
^DD(130,54,21,3,0)=" "
^DD(130,54,"DT")="2881118"
^DD(130,55,0)="INDICATIONS FOR OPERATIONS^130.055^^40;0"
^DD(130,55,.1)="Indications for Operations"
^DD(130,55,21,0)="^^4^4^2921026^^^"
^DD(130,55,21,1,0)="This is a brief statement of the indications for this operative"
^DD(130,55,21,2,0)="procedure.  The information you enter here prints automatically as"
^DD(130,55,21,3,0)="the first part of the operative summary."
^DD(130,55,21,4,0)=" "
^DD(130,56,0)="PRE-ADMISSION TESTING^SX^Y:YES;N:NO;^35;2^I $D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=56 D ^SROCON Q"
^DD(130,56,.1)="Pre-admission Testing Complete (Y/N)"
^DD(130,56,3)="Answer 'YES' if pre-admission testing was complete."
^DD(130,56,21,0)="^^3^3^2900703^^"
^DD(130,56,21,1,0)="This indicates whether pre-admission testing was complete.  It will be"
^DD(130,56,21,2,0)="reflected on the Schedule of Operations for outpatients."
^DD(130,56,21,3,0)=" "
^DD(130,56,"DT")="2900823"
^DD(130,57,0)="ESU COAG RANGE^FX^^.7;1^K:$L(X)>30!($L(X)<1) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=57 D ^SROCON Q"
^DD(130,57,.1)="ESU Coagulation Range"
^DD(130,57,3)="Answer must be 1-30 characters in length."
^DD(130,57,21,0)="^^4^4^2921106^^^^"
^DD(130,57,21,1,0)="This is the power setting range on the Electrosurgical Unit during"
^DD(130,57,21,2,0)="coagulation.  This information is optional, but may be useful in"
^DD(130,57,21,3,0)="documenting the case."
^DD(130,57,21,4,0)=" "
^DD(130,57,"DT")="2900823"
^DD(130,58,0)="ESU CUTTING RANGE^FX^^.7;2^K:$L(X)>30!($L(X)<1) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=58 D ^SROCON Q"
^DD(130,58,.1)="ESU Cutting Range"
^DD(130,58,3)="Answer must be 1-30 characters in length."
^DD(130,58,21,0)="^^4^4^2900409^"
^DD(130,58,21,1,0)="This is the power setting range on the Electrosurgical Unit during"
^DD(130,58,21,2,0)="cutting.  This information is optional, but may be useful in documenting"
^DD(130,58,21,3,0)="the case."
^DD(130,58,21,4,0)=" "
^DD(130,58,"DT")="2900823"
^DD(130,59,0)="OPERATIVE FINDINGS^130.059^^38;0"
^DD(130,59,.1)="Operative Findings"
^DD(130,59,21,0)="^^3^3^2921026^^"
^DD(130,59,21,1,0)="This field contains a brief description of the operative findings which"
^DD(130,59,21,2,0)="appears on the Tissue Examination Report."
^DD(130,59,21,3,0)=" "
^DD(130,60,0)="BRIEF CLIN HISTORY^130.09^^39;0"
^DD(130,60,.1)="Brief Clinical History"
^DD(130,60,21,0)="^^3^3^2910412^^"
^DD(130,60,21,1,0)="This field contains a brief clinical history for this patient.  It will"
^DD(130,60,21,2,0)="appear on the Tissue Examination Report."
^DD(130,60,21,3,0)=" "
^DD(130,61,0)="DIAGNOSTIC RESULTS CONFIRM BY^*P200'^VA(200,^.6;11^S DIC(""S"")=""S RESTRICT=""""130,61"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,61,.1)="Diagnostic Results Confirmed By"
^DD(130,61,3)="Enter the name of the person verifying diagnostic procedure requirements."
^DD(130,61,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,61,12.1)="S DIC(""S"")=""S RESTRICT=""""130,61"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,61,21,0)="^^4^4^2921106^^"
^DD(130,61,21,1,0)="This is the name of the person responsible for verifying that the"
^DD(130,61,21,2,0)="essential diagnostic procedure requirements, as per medical center"
^DD(130,61,21,3,0)="policy, are available."
^DD(130,61,21,4,0)=" "
^DD(130,61,"DT")="2921106"
^DD(130,62,0)="GASTRIC OUTPUT^NJ4,0X^^.2;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$D(^SRF(DA,""CON"")),$P(^(""CON""),""^"") S SRFLD=62 D ^SROCON Q"
^DD(130,62,.1)="Gastric Output (cc's)"
^DD(130,62,3)="Enter a Number between 0 and 9999, 0 Decimal Digits."
^DD(130,62,21,0)="^^3^3^2921228^^^"
^DD(130,62,21,1,0)="This is the gastric output during the operative procedure.  It is"
^DD(130,62,21,2,0)="recorded in cc's, and appears on the Nurse Intraoperative Report."
^DD(130,62,21,3,0)=" "
^DD(130,62,"DT")="2900823"
^DD(130,63,0)="IV STARTED BY^*P200'^VA(200,^.3;5^S DIC(""S"")=""S RESTRICT=""""130,63"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,63,.1)="IV Started By"
^DD(130,63,3)="Enter the Person who Started the IV."
^DD(130,63,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,63,12.1)="S DIC(""S"")=""S RESTRICT=""""130,63"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,63,21,0)="^^3^3^2900803^"
^DD(130,63,21,1,0)="This is the name of the person that started the IV for this"
^DD(130,63,21,2,0)="operative procedure."
^DD(130,63,21,3,0)=" "
^DD(130,63,"DT")="2920204"
^DD(130,64,0)="CULTURES^130.064^^41;0"
^DD(130,64,.1)="Cultures"
^DD(130,64,21,0)="^^2^2^2900911^"
^DD(130,64,21,1,0)="These are the names of cultures sent to the laboratory for examination."
^DD(130,64,21,2,0)=" "
^DD(130,65,0)="SURGERY POSITION^130.065PA^^42;0"
^DD(130,65,.1)="Surgery Position"
^DD(130,65,21,0)="^^4^4^2901002^^"
^DD(130,65,21,1,0)="This is the position in which the patient is placed for this operative"
^DD(130,65,21,2,0)="procedure.  This information will appear on the Nurse Intraoperative"
^DD(130,65,21,3,0)="Report."
^DD(130,65,21,4,0)=" "
^DD(130,66,0)="PLANNED PRIN DIAGNOSIS CODE^*P80'X^ICD9(^34;2^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,66,.1)="Planned Principal Diagnosis Code (ICD9)"
^DD(130,66,1,0)="^.1^^-1"
^DD(130,66,1,2,0)="130^PADX1^MUMPS"
^DD(130,66,1,2,1)="Q"
^DD(130,66,1,2,2)="D PRINASOD^SROADX2"
^DD(130,66,1,2,"%D",0)="^.101^2^2^3031015^^"
^DD(130,66,1,2,"%D",1,0)="This MUMPS cross reference removes associations to procedures upon edits "
^DD(130,66,1,2,"%D",2,0)="or deletes of the diagnosis."
^DD(130,66,1,2,"DT")="3031002"
^DD(130,66,3)="Enter the planned ICD Diagnosis code for the principal diagnosis."
^DD(130,66,12)="Screen prevents selection of inactive diagnosis."
^DD(130,66,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,66,21,0)="^^2^2^3050623^"
^DD(130,66,21,1,0)="This is the planned principal postoperative ICD9 diagnosis code assigned "
^DD(130,66,21,2,0)="by the clinician."
^DD(130,66,"DEL",1,0)="I 1 D EN^DDIOL(""The PRIN DIAGNOSIS CODE can't be deleted."",,""!!,?2"")"
^DD(130,66,"DT")="3050623"
^DD(130,67,0)="CANCELLATION AVOIDABLE^S^Y:YES;N:NO;^30;2^Q"
^DD(130,67,.1)="Cancellation Avoidable"
^DD(130,67,3)="Enter 'YES' if this cancellation was avoidable, or 'NO' if it was unavoidable."
^DD(130,67,21,0)="^^4^4^2921026^^^"
^DD(130,67,21,1,0)="This field contains a set of codes used to flag a cancellation as being"
^DD(130,67,21,2,0)="avoidable or unavoidable.  It is used when determining the percentage"
^DD(130,67,21,3,0)="of avoidable cancellations."
^DD(130,67,21,4,0)=" "
^DD(130,67,"DT")="2911009"
^DD(130,68,0)="SCHEDULED PROCEDURE^F^^SP;1^K:$L(X)>135!($L(X)<1) X"
^DD(130,68,.1)="Scheduled Procedure"
^DD(130,68,3)="Your answer must be 1-135 characters in length."
^DD(130,68,21,0)="^^3^3^2921026^^"
^DD(130,68,21,1,0)="This field contains the scheduled (or original) principal procedure for"
^DD(130,68,21,2,0)="this case.  It will be compared to the actual procedure completed."
^DD(130,68,21,3,0)=" "
^DD(130,68,"DT")="2901213"
^DD(130,69,0)="CODING VERIFIER^P200'^VA(200,^VER;2^Q"
^DD(130,69,.1)="Coding Verifier"
^DD(130,69,3)="Enter the name of the person entering the CPT and ICD9 codes for this case."
^DD(130,69,21,0)="^^4^4^2981124^^"
^DD(130,69,21,1,0)="This is the person who last updated procedure and/or diagnosis"
^DD(130,69,21,2,0)="descriptions and/or codes for this case using the Update/Verify"
^DD(130,69,21,3,0)="Procedure/Diagnosis Codes [SRCODING EDIT] option.  This field is updated"
^DD(130,69,21,4,0)="automatically by the option when information is changed."
^DD(130,69,"DT")="2981124"
^DD(130,70,0)="CANCELLED BY^P200'^VA(200,^30;3^Q"
^DD(130,70,.1)="Operation Cancelled By"
^DD(130,70,3)="Enter the name of the person who cancelled this operative procedure."
^DD(130,70,21,0)="^^3^3^2910502^"
^DD(130,70,21,1,0)="This is the name of the person who cancelled this surgical case.  This"
^DD(130,70,21,2,0)="information is automatically entered when a case is cancelled."
^DD(130,70,21,3,0)=" "
^DD(130,70,"DT")="2911205"
^DD(130,71,0)="TIME OUT VERIFIED^S^Y:YES;N:NO (see TIME OUT VERIFIED COMMENTS);^VER;3^Q"
^DD(130,71,.1)="Time Out Verification Completed (Y/N)"
^DD(130,71,1,0)="^.1^^-1"
^DD(130,71,1,1,0)="130^AIN^MUMPS"
^DD(130,71,1,1,1)="D IN^SRENSCS"
^DD(130,71,1,1,2)="Q"
^DD(130,71,1,1,"%D",0)="^.101^1^1^3040519^^^^"
^DD(130,71,1,1,"%D",1,0)="This MUMPS cross reference maintains the associated comment field if this field is answered with ""NO""."
^DD(130,71,1,1,"DT")="3040721"
^DD(130,71,3)="Enter YES if the ""Time Out"" verification process was completed prior to the start of the procedure."
^DD(130,71,21,0)="^^11^11^3040722^"
^DD(130,71,21,1,0)="This field refers to the completion of a ""Time Out"" verification"
^DD(130,71,21,2,0)="process prior to the start of the procedure.  A designated member of"
^DD(130,71,21,3,0)="the OR team states the name of the patient, the procedure to be"
^DD(130,71,21,4,0)="performed, the location of the site (including laterality if"
^DD(130,71,21,5,0)="applicable), and the specifications of the implant to be used (if"
^DD(130,71,21,6,0)="applicable).  At a minimum, this process must include the surgeon"
^DD(130,71,21,7,0)="the circulating nurse, and the anesthesia provider.  This practice"
^DD(130,71,21,8,0)="is further defined by local hospital policy."
^DD(130,71,21,9,0)=" "
^DD(130,71,21,10,0)="If entered ""NO"", a justification should be documented in the"
^DD(130,71,21,11,0)="Time Out Verified Comments."
^DD(130,71,"DT")="3040723"
^DD(130,72,0)="PREOPERATIVE IMAGING CONFIRMED^S^Y:YES;I:IMAGING NOT REQUIRED FOR THIS PROCEDURE;N:NO - IMAGING REQUIRED BUT NOT VIEWED (see IMAGING CONFIRMED COMMENTS);^VER;4^Q"
^DD(130,72,.1)="Preoperative Imaging Confirmed"
^DD(130,72,1,0)="^.1"
^DD(130,72,1,1,0)="130^AIN^MUMPS"
^DD(130,72,1,1,1)="D IN^SRENSCS"
^DD(130,72,1,1,2)="Q"
^DD(130,72,1,1,"%D",0)="^.101^1^1^3040519^^^"
^DD(130,72,1,1,"%D",1,0)="  This MUMPS cross reference maintains the associated comment field if this field is answered with ""NO""."
^DD(130,72,1,1,"DT")="3040721"
^DD(130,72,3)="Enter YES if the imaging data was confirmed, ""I"" if there was no imaging required, or ""NO"" if the image was not viewed."
^DD(130,72,21,0)="^^10^10^3040722^"
^DD(130,72,21,1,0)="This field refers to the completion of the verification process for "
^DD(130,72,21,2,0)="the presence of relevant imaging data to confirm the operative site "
^DD(130,72,21,3,0)="for the correct patient are available, properly labeled and properly"
^DD(130,72,21,4,0)="presented, and verified by two members of the operating team prior to "
^DD(130,72,21,5,0)="the start of the procedure."
^DD(130,72,21,6,0)=" "
^DD(130,72,21,7,0)="This practice is further defined by local hospital policy."
^DD(130,72,21,8,0)=" "
^DD(130,72,21,9,0)="If entered ""NO"", a justification should be documented in the"
^DD(130,72,21,10,0)="Imaging Confirmed Comments."
^DD(130,72,"DT")="3040722"
^DD(130,73,0)="MARKED SITE CONFIRMED^S^Y:YES;M:MARKING NOT REQUIRED FOR THIS PROCEDURE;N:NO - MARKING REQUIRED BUT NOT DONE (see MARKED SITE COMMENTS);^VER;5^Q"
^DD(130,73,.1)="Mark on Surgical Site Confirmed"
^DD(130,73,1,0)="^.1"
^DD(130,73,1,1,0)="130^AIN^MUMPS"
^DD(130,73,1,1,1)="D IN^SRENSCS"
^DD(130,73,1,1,2)="Q"
^DD(130,73,1,1,"%D",0)="^.101^1^1^3040519^^^^"
^DD(130,73,1,1,"%D",1,0)="This MUMPS cross reference maintains the associated comment field if this field is answered with ""NO""."
^DD(130,73,1,1,"DT")="3040721"
^DD(130,73,3)="Enter YES if the ""Marked Site"" confirmation process was completed prior to the start of the procedure. "
^DD(130,73,21,0)="^^7^7^3040722^"
^DD(130,73,21,1,0)="The site can and must be marked in almost all cases.  Mucous membranes "
^DD(130,73,21,2,0)="and other sites not on the skin cannot be marked using standard methods "
^DD(130,73,21,3,0)="and do not need to be. See applicable VHA Handbooks and Directives for "
^DD(130,73,21,4,0)="further information and guidance."
^DD(130,73,21,5,0)=" "
^DD(130,73,21,6,0)="If entered ""NO"", a justification should be documented in the Marked "
^DD(130,73,21,7,0)="Site Comments."
^DD(130,73,"DT")="3040722"
^DD(130,75,0)="TOV TIMESTAMP^DI^^VERD;3^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(130,75,.1)="Time Out Verified Timestamp"
^DD(130,75,3)="(No range limit on date)"
^DD(130,75,9)="^"
^DD(130,75,21,0)="^^2^2^3040204^"
^DD(130,75,21,1,0)="This field is updated whenever the TIME OUT VERIFIED field (#71) is"
^DD(130,75,21,2,0)="entered or changed."
^DD(130,75,"DT")="3040204"
^DD(130,76,0)="IMAG TIMESTAMP^DI^^VERD;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(130,76,.1)="Imaging Confirmed Timestamp"
^DD(130,76,3)="(No range limit on date)"
^DD(130,76,9)="^"
^DD(130,76,21,0)="^^2^2^3040204^"
^DD(130,76,21,1,0)="This field is updated whenever the PREOPERATIVE IMAGING CONFIRMED"
^DD(130,76,21,2,0)="field (#72) is entered or changed."
^DD(130,76,"DT")="3040204"
^DD(130,77,0)="SITE MARK TIMESTAMP^DI^^VERD;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(130,77,.1)="Site Mark Verified Timestamp"
^DD(130,77,3)="(No range limit on date)"
^DD(130,77,9)="^"
^DD(130,77,21,0)="^^2^2^3040204^"
^DD(130,77,21,1,0)="This field is updated whenever the MARKED SITE CONFIRMED field (#73)"
^DD(130,77,21,2,0)="is entered or changed."
^DD(130,77,"DT")="3040204"
^DD(130,80,0)="SPD COMMENTS^130.8^^80;0"
^DD(130,80,21,0)="^^1^1^3020823^"
^DD(130,80,21,1,0)="This word-processing field contains any information for SPD that cannot be entered elsewhere.  These comments will be sent to SPD via the Surgery/CoreFLS interface."
^DD(130,81,0)="DYNAMED NOTIFIED^S^1:YES;0:NO;^31;10^Q"
^DD(130,81,.1)="DynaMed Notification Sent"
^DD(130,81,3)="Enter YES if notification has been sent to DynaMed."
^DD(130,81,21,0)="^^5^5^3021127^"
^DD(130,81,21,1,0)="YES indicates at least one notification has been sent to DynaMed by way"
^DD(130,81,21,2,0)="of the CoreFLS interface. A null value or zero indicates no notification"
^DD(130,81,21,3,0)="has been sent. The first notification sent to DynaMed will be a NEW"
^DD(130,81,21,4,0)="APPOINTMENT notification. Subsequent notifications will be for edit,"
^DD(130,81,21,5,0)="cancel or delete notifications, as appropriate."
^DD(130,81,"DT")="3021127"
^DD(130,82,0)="TIME OUT VERIFIED COMMENTS^130.082^^82;0"
^DD(130,82,21,0)="^^3^3^3040521^"
^DD(130,82,21,1,0)="This word-processing field contains comments related to the TIME OUT "
^DD(130,82,21,2,0)="VERIFIED field. The information entered in this field clarifies entry "
^DD(130,82,21,3,0)="that is entered as ""NO""."
^DD(130,82,"DT")="3040429"
^DD(130,83,0)="IMAGING CONFIRMED COMMENTS^130.083^^83;0"
^DD(130,83,21,0)="^^3^3^3040521^"
^DD(130,83,21,1,0)="This word-processing field contains comments related to the PREOPERATIVE "
^DD(130,83,21,2,0)="IMAGING CONFIRMED field. The information entered in this field clarifies"
^DD(130,83,21,3,0)="entry that is entered as ""NO""."
^DD(130,84,0)="MARKED SITE COMMENTS^130.084^^84;0"
^DD(130,84,21,0)="^^3^3^3040521^"
^DD(130,84,21,1,0)="This word-processing field contains comments related to the MARKED SITE"
^DD(130,84,21,2,0)="CONFIRMED field. The information entered in this field clarifies entry"
^DD(130,84,21,3,0)="that is entered as ""NO""."
^DD(130,84,"DT")="3040428"
^DD(130,100,0)="ORDER NUMBER^P100'^OR(100,^0;14^Q"
^DD(130,100,3)="Enter the Order number for ues within the OE/RR module."
^DD(130,100,21,0)="^^3^3^2920228^"
^DD(130,100,21,1,0)="This is the pointer to the ORDER file (100).  It will be created when"
^DD(130,100,21,2,0)="a case is requested."
^DD(130,100,21,3,0)=" "
^DD(130,100,23,0)="^^3^3^2920228^"
^DD(130,100,23,1,0)="This is the pointer to the ORDER file (100).  It is contained in the"
^DD(130,100,23,2,0)="14th piece of the zero node."
^DD(130,100,23,3,0)=" "
^DD(130,100,"DT")="2920228"
^DD(130,101,0)="STAFF/RESIDENT^S^R:RESIDENT;S:STAFF;^.1;3^Q"
^DD(130,101,.1)="Resident or Staff Surgeon"
^DD(130,101,3)="Enter 'R' if the surgeon for this case was a resident, or 'S' if the surgeon was staff."
^DD(130,101,21,0)="^^4^4^2920415^"
^DD(130,101,21,1,0)="This determines whether the surgeon was a resident or staff.  It will"
^DD(130,101,21,2,0)="be used for categorizing procedures in the Annual Report of Surgical"
^DD(130,101,21,3,0)="Procedures."
^DD(130,101,21,4,0)=" "
^DD(130,101,23,0)="^^3^3^2920415^^"
^DD(130,101,23,1,0)="This field is automatically entered based on the SR STAFF SURGEON "
^DD(130,101,23,2,0)="security key."
^DD(130,101,23,3,0)=" "
^DD(130,101,"DT")="2920415"
^DD(130,102,0)="REASON FOR NO ASSESSMENT^*S^0:NON-SURGEON CASE;1:ANESTHESIA TYPE;2:EXCEEDS MAX ASSMNTS;3:EXCEEDS MAX TURPS;4:STUDY CRITERIA;5:PREVIOUS CASE;6:SCNR ON A/L;7:PRIOR INDEX PROC;8:CONCURRENT CASE;9:EXCEEDS MAX HERNIAS;^RA;7^Q"
^DD(130,102,.1)="Reason for not Creating an Assessment"
^DD(130,102,3)="Enter the reason why no assessment was done on this surgical case."
^DD(130,102,12)="Screen prevents selection of inactive codes."
^DD(130,102,12.1)="S DIC(""S"")=""I """"157""""'[Y"""
^DD(130,102,21,0)="^^13^13^3070123^"
^DD(130,102,21,1,0)="This is the reason why no assessment was entered for this particular"
^DD(130,102,21,2,0)="surgical case. It should be entered if any major procedure was excluded"
^DD(130,102,21,3,0)="from the risk assessment module."
^DD(130,102,21,4,0)=" "
^DD(130,102,21,5,0)=" 0 - Non-surgeon performed the procedure"
^DD(130,102,21,6,0)=" 2 - Number of surgical cases entered into the Surgical Risk Study "
^DD(130,102,21,7,0)="     exceeded 36 over an 8 day time frame"
^DD(130,102,21,8,0)=" 3 - Number of TURPs or TURBTs exceeded 5 cases over an 8 day time"
^DD(130,102,21,9,0)="     frame"
^DD(130,102,21,10,0)=" 4 - Study exclusion criteria prohibits patient entry"
^DD(130,102,21,11,0)=" 6 - Surgical Clinical Nurse Reviewer was on Annual Leave"
^DD(130,102,21,12,0)=" 8 - Case was a concurrent case, secondary to an assessed primary case"
^DD(130,102,21,13,0)=" 9 - Number of hernias exceeded 5 cases over an 8 day time frame"
^DD(130,102,"DT")="3070123"
^DD(130,103,0)="ANESTHETIST CATEGORY^S^A:ANESTHESIOLOGIST;N:NURSE ANESTHETIST;O:OTHER;^.3;8^Q"
^DD(130,103,.1)="Anesthetist Category"
^DD(130,103,3)="Enter the code corresponding to the category of the principal anesthetist for this case."
^DD(130,103,21,0)="^^4^4^2921105^"
^DD(130,103,21,1,0)="This field holds the category of the principal anesthetist which"
^DD(130,103,21,2,0)="is used on the Anesthesia AMIS report to enumerate the number of"
^DD(130,103,21,3,0)="anesthetics administered by each category."
^DD(130,103,21,4,0)="   "
^DD(130,103,"DT")="2921105"
^DD(130,118,0)="NON-OR PROCEDURE^S^Y:YES;^NON;1^Q"
^DD(130,118,.1)="Non-OR Procedure"
^DD(130,118,1,0)="^.1"
^DD(130,118,1,1,0)="130^ANOR^MUMPS"
^DD(130,118,1,1,1)="S ^SRF(""ANOR"",$P(^SRF(DA,0),""^""),DA)="""""
^DD(130,118,1,1,2)="K ^SRF(""ANOR"",$P(^SRF(DA,0),""^""),DA)"
^DD(130,118,1,1,"%D",0)="^^2^2^2930129^^"
^DD(130,118,1,1,"%D",1,0)="The ANOR cross reference on the NON-OR PROCEDURE field is used to flag"
^DD(130,118,1,1,"%D",2,0)="cases as non-O.R. procedures."
^DD(130,118,1,1,"DT")="2911125"
^DD(130,118,3)="Enter 'YES' is this case is a non-OR procedure."
^DD(130,118,21,0)="^^1^1^2911125^"
^DD(130,118,21,1,0)="This field is a flag signifying this case is a non-OR surgical procedure."
^DD(130,118,"DT")="2920122"
^DD(130,119,0)="NON-OR LOCATION^*P44'X^SC(^NON;2^S DIC(""S"")=""I $$NONORDIV^SROUTL0(DA,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,119,.1)="Non-OR Location"
^DD(130,119,1,0)="^.1"
^DD(130,119,1,1,0)="130^APCE9^MUMPS"
^DD(130,119,1,1,1)="D APCE^SROPCEX"
^DD(130,119,1,1,2)="Q"
^DD(130,119,1,1,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,119,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,119,1,1,"DT")="3050531"
^DD(130,119,3)="Enter the non-OR location (file 44) where this procedure was performed."
^DD(130,119,12)="This screen checks inactivation and reactivation dates as well as the institution field for multi-division hospitals."
^DD(130,119,12.1)="S DIC(""S"")=""I $$NONORDIV^SROUTL0(DA,+Y)"""
^DD(130,119,21,0)="^^1^1^2961030^^^"
^DD(130,119,21,1,0)="This is the location (file 44) where this non-OR procedure was performed."
^DD(130,119,"DT")="3050531"
^DD(130,120,0)="DATE OF PROCEDURE^RD^^NON;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(130,120,.1)="Date of Procedure"
^DD(130,120,1,0)="^.1"
^DD(130,120,1,1,0)="^^TRIGGER^130^.09"
^DD(130,120,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$S($D(^SRF(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=130,DIG=.09 D ^DICR"
^DD(130,120,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRF(D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" S DIH=$S($D(^SRF(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=130,DIG=.09 D ^DICR"
^DD(130,120,1,1,"%D",0)="^^4^4^2970919^^"
^DD(130,120,1,1,"%D",1,0)="This trigger on the DATE OF PROCEDURE field is used to update the DATE"
^DD(130,120,1,1,"%D",2,0)="OF OPERATION field when the date of procedure is entered or edited."
^DD(130,120,1,1,"%D",3,0)="The DATE OF PROCEDURE field is used with non-O.R. procedures, and the DATE"
^DD(130,120,1,1,"%D",4,0)="OF OPERATION field is updated to assist in sorting cases for reports."
^DD(130,120,1,1,"CREATE VALUE")="DATE OF PROCEDURE"
^DD(130,120,1,1,"DELETE VALUE")="@"
^DD(130,120,1,1,"DT")="2970919"
^DD(130,120,1,1,"FIELD")="DATE OF OPERATION"
^DD(130,120,3)="Enter the date that the non-OR procedure was performed."
^DD(130,120,21,0)="^^2^2^2911205^^"
^DD(130,120,21,1,0)="This is the date that the non-OR procedure was performed.  The date of"
^DD(130,120,21,2,0)="procedure must be entered for all non-OR cases."
^DD(130,120,"DT")="2970919"
^DD(130,121,0)="TIME PROCEDURE BEGAN^DX^^NON;4^S Z=$E($P(^SRF(DA,""NON""),U,3),1,7) D TIME^SROVAR K:Y<1!(X'[""."") X"
^DD(130,121,.1)="Time Procedure Began"
^DD(130,121,1,0)="^.1"
^DD(130,121,1,1,0)="130^AST^MUMPS"
^DD(130,121,1,1,1)="D AST^SRONXR"
^DD(130,121,1,1,2)="D KILLAST^SRONXR"
^DD(130,121,1,1,"%D",0)="^^4^4^2930129^^^^"
^DD(130,121,1,1,"%D",1,0)="The AST cross reference on the TIME PROCEDURE BEGAN field updates the"
^DD(130,121,1,1,"%D",2,0)="ANES CARE START TIME if the non-O.R. procedure is an Anesthesiology"
^DD(130,121,1,1,"%D",3,0)="procedure, that is, if the case is assigned to the Anesthesiology Medical"
^DD(130,121,1,1,"%D",4,0)="Specialty."
^DD(130,121,1,1,"DT")="2920117"
^DD(130,121,1,2,0)="130^APCE10^MUMPS"
^DD(130,121,1,2,1)="D APCE^SROPCEX"
^DD(130,121,1,2,2)="Q"
^DD(130,121,1,2,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,121,1,2,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,121,1,2,"DT")="3050531"
^DD(130,121,1,3,0)="130^ADA^MUMPS"
^DD(130,121,1,3,1)="D VALIDAT^SROCVER"
^DD(130,121,1,3,2)="Q"
^DD(130,121,1,3,"%D",0)="^^2^2^3030319^"
^DD(130,121,1,3,"%D",1,0)="This MUMPS cross-reference on the TIME PROCEDURE BEGAN field is used to"
^DD(130,121,1,3,"%D",2,0)="invoke the CPT and ICD-9 codes revalidation checks in routine ^SROCVER."
^DD(130,121,1,3,"DT")="3030319"
^DD(130,121,3)="Enter the time of the start of the non-OR procedure."
^DD(130,121,21,0)="^^1^1^2911205^"
^DD(130,121,21,1,0)="This is the date and time that the non-OR procedure began."
^DD(130,121,"DT")="3050531"
^DD(130,122,0)="TIME PROCEDURE ENDED^DX^^NON;5^S SRN=""NON"",SRP=4,SR130=""TIME PROCEDURE BEGAN"" D TERM^SROVAR K:Y<1 X I $D(X) D ATTP^SROUTL1"
^DD(130,122,.1)="Time Procedure Ended"
^DD(130,122,1,0)="^.1"
^DD(130,122,1,1,0)="130^AND^MUMPS"
^DD(130,122,1,1,1)="D AND^SRONXR"
^DD(130,122,1,1,2)="D KILLAND^SRONXR"
^DD(130,122,1,1,"%D",0)="^^3^3^2930129^^^^"
^DD(130,122,1,1,"%D",1,0)="The AND cross reference on the TIME PROCEDURE ENDED field updates the"
^DD(130,122,1,1,"%D",2,0)="ANES CARE END TIME if the non-O.R. procedure is assigned to the"
^DD(130,122,1,1,"%D",3,0)="Anesthesiology Medical Specialty."
^DD(130,122,1,1,"DT")="2920117"
^DD(130,122,1,2,0)="130^APCE11^MUMPS"
^DD(130,122,1,2,1)="D APCE^SROPCEX"
^DD(130,122,1,2,2)="Q"
^DD(130,122,1,2,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,122,1,2,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,122,1,2,"DT")="3050531"
^DD(130,122,3)="Enter the time that the non-OR procedure was completed."
^DD(130,122,21,0)="^^2^2^2911205^"
^DD(130,122,21,1,0)="This is the date and time that all the procedures for this non-OR case are"
^DD(130,122,21,2,0)="complete."
^DD(130,122,"DEL",1,0)="I $$DEL^SROESX(DA,""3"") D EN^DDIOL(""The TIME PROCEDURE ENDED field can't be deleted. This case has a Procedure Report associated with it."",,""!,?2"")"
^DD(130,122,"DT")="3050531"
^DD(130,123,0)="PROVIDER^R*P200'^VA(200,^NON;6^S DIC(""S"")=""S RESTRICT=""""130,123"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,123,.1)="Provider"
^DD(130,123,1,0)="^.1"
^DD(130,123,1,1,0)="130^APCE12^MUMPS"
^DD(130,123,1,1,1)="D APCE^SROPCEX"
^DD(130,123,1,1,2)="Q"
^DD(130,123,1,1,"%D",0)="^.101^1^1^3050616^^^^"
^DD(130,123,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,123,1,1,"DT")="3050531"
^DD(130,123,1,2,0)="130^ATTP^MUMPS"
^DD(130,123,1,2,1)="D ATTP^SROXR1"
^DD(130,123,1,2,2)="D KATTP^SROXR1"
^DD(130,123,1,2,"%D",0)="^^2^2^3041005^"
^DD(130,123,1,2,"%D",1,0)="This cross reference updates the ATTEND PROVIDER field with the PROVIDER "
^DD(130,123,1,2,"%D",2,0)="if the SURGERY RESIDENTS (Y/N) site parameter is NO."
^DD(130,123,1,2,"DT")="3041005"
^DD(130,123,3)="Enter the name of the privileged person who performs the major portion of the principle procedure."
^DD(130,123,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130,123,12.1)="S DIC(""S"")=""S RESTRICT=""""130,123"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,123,21,0)="^^2^2^2921026^^^"
^DD(130,123,21,1,0)="This is the person who performs the major portion of the principal non-OR"
^DD(130,123,21,2,0)="procedure.  This field is required for several reports."
^DD(130,123,"DT")="3050531"
^DD(130,124,0)="ATTEND PROVIDER^*P200'X^VA(200,^NON;7^S DIC(""S"")=""S RESTRICT=""""130,124"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,124,.1)="Attending Provider"
^DD(130,124,1,0)="^.1"
^DD(130,124,1,1,0)="130^APCE13^MUMPS"
^DD(130,124,1,1,1)="D APCE^SROPCEX"
^DD(130,124,1,1,2)="Q"
^DD(130,124,1,1,"%D",0)="^.101^1^1^3050621^^^^"
^DD(130,124,1,1,"%D",1,0)="This MUMPS cross reference updates PCE."
^DD(130,124,1,1,"DT")="3050531"
^DD(130,124,3)="Enter the name of the attending staff provider.  This is required when the provider is in training status."
^DD(130,124,12)="This field contains a screen which may be used to restrict entries based on locally defined keys."
^DD(130,124,12.1)="S DIC(""S"")=""S RESTRICT=""""130,124"""" D KEY^SROXPR I $D(SROK)"""
^DD(130,124,21,0)="^^2^2^2911206^"
^DD(130,124,21,1,0)="This is the name of the attending staff provider responsible for this case."
^DD(130,124,21,2,0)="This information appears on several reports."
^DD(130,124,"DEL",1,0)="I $P($G(^SRF(DA,""NON"")),""^"",5) D EN^DDIOL(""The Attending Provider cannot be deleted on a completed non-OR procedure!  "",,""!!,?2"")"
^DD(130,124,"DT")="3050531"
^DD(130,125,0)="MEDICAL SPECIALTY^RP723'^ECC(723,^NON;8^Q"
^DD(130,125,.1)="Medical Specialty"
^DD(130,125,3)="Enter the assigned medical specialty of the provider."
^DD(130,125,21,0)="^^3^3^2920123^"
^DD(130,125,21,1,0)=" This is the medical specialty credited for doing this non-OR procedure."
^DD(130,125,21,2,0)=" Many reports are sorted by the medical specialty.  This field should be"
^DD(130,125,21,3,0)=" entered prior to completion of this non-OR procedure."
^DD(130,125,"DT")="2930303"
^DD(130,126,0)="PROCEDURE OCCURRENCE^130.0126^^43;0"
^DD(130,126,21,0)="^^4^4^2920824^"
^DD(130,126,21,1,0)="This is a occurrence that is related to a non-O.R. procedure.  If there"
^DD(130,126,21,2,0)="are not any non-O.R. procedure occurrences, this field should be left"
^DD(130,126,21,3,0)="blank.  Do not enter 'NO' or 'NONE'."
^DD(130,126,21,4,0)="  "
^DD(130,127,0)="SEQUENTIAL COMPRESSION DEVICE^S^Y:YES;N:NO;^.7;3^Q"
^DD(130,127,.1)="Sequential Compression Device (Y/N)"
^DD(130,127,3)="Enter 'YES' if a sequential compression device was used."
^DD(130,127,21,0)="^^2^2^2920922^"
^DD(130,127,21,1,0)="This determines whether a sequential compression device was used."
^DD(130,127,21,2,0)=" "
^DD(130,127,"DT")="2920922"
^DD(130,128,0)="LASER TYPE^F^^.7;8^K:$L(X)>30!($L(X)<1) X"
^DD(130,128,.1)="Type of Laser"
^DD(130,128,3)="Your answer must be 1-30 characters in length."
^DD(130,128,21,0)="^^4^4^2920925^"
^DD(130,128,21,1,0)="This determines whether a laser was used during this procedure."
^DD(130,128,21,2,0)="If applicable, enter the type of laser used during this surgical"
^DD(130,128,21,3,0)="procedure."
^DD(130,128,21,4,0)=" "
^DD(130,128,"DT")="2920925"
^DD(130,129,0)="LASER UNIT^130.0129A^^44;0"
^DD(130,129,21,0)="^.001^1^1^3001010^^^^"
^DD(130,129,21,1,0)="These are the laser units, if any, used during this procedure."
^DD(130,130,0)="CELL SAVER^130.013A^^45;0"
^DD(130,130,21,0)="^.001^1^1^3020226^^^^"
^DD(130,130,21,1,0)="These are the cell savers, if any, used during this procedure."
^DD(130,131,0)="DEVICE(S)^F^^46;1^K:$L(X)>70!($L(X)<1) X"
^DD(130,131,.1)="Device(s)"
^DD(130,131,3)="Answer must be 1-70 characters in length."
^DD(130,131,21,0)="^^2^2^3020226^"
^DD(130,131,21,1,0)="This field documents devices used in this procedure that are not"
^DD(130,131,21,2,0)="documented elsewhere."
^DD(130,131,"DT")="3000905"
^DD(130,200,0)="OPERATIONS THIS ADMISSION^NJ3,0X^^200;51^S NYUK=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:NYUK=""NS"" X=NYUK K NYUK"
^DD(130,200,.1)="Operations this Admission"
^DD(130,200,3)="Enter the total number of operations prior to the index procedure for this hospital admission."
^DD(130,200,21,0)="^^6^6^2910919^^^^"
^DD(130,200,21,1,0)="This is the total number of surgical procedures, prior to the index"
^DD(130,200,21,2,0)="or principal operation, which required the patient to be taken to"
^DD(130,200,21,3,0)="the operating room for any type of surgical intervention during this"
^DD(130,200,21,4,0)="hospital admission.  Include all procedures whether or not they are"
^DD(130,200,21,5,0)="part of the inclusion/exclusion criteria."
^DD(130,200,21,6,0)=" "
^DD(130,200,"DT")="2910912"
^DD(130,201,0)="REDO PROCEDURE^*S^Y:YES;N:NO;NS:NO STUDY;^200;53^Q"
^DD(130,201,.1)="Redo Procedure (Y/N)"
^DD(130,201,3)="If this was a return to surgery to re-do a procedure, enter 'YES'."
^DD(130,201,12)="Screen limits selection to Phase III choices."
^DD(130,201,12.1)="S DIC(""S"")=""I Y'=""""NS"""""""
^DD(130,201,21,0)="^^4^4^2950203^^"
^DD(130,201,21,1,0)="This determines whether the principal operative procedure was a"
^DD(130,201,21,2,0)="reoperation in the same anatomic location for the same purpose as the"
^DD(130,201,21,3,0)="first operation regardless of the length of time from the original"
^DD(130,201,21,4,0)="surgical date."
^DD(130,201,21,5,0)=" "
^DD(130,201,"DT")="2950203"
^DD(130,202,0)="CURRENT SMOKER^S^Y:YES;N:NO;NS:NO STUDY;^200;3^Q"
^DD(130,202,.1)="Current Smoker"
^DD(130,202,3)="Enter the code (YES or NO) describing the patient's status as a smoker prior to surgery."
^DD(130,202,21,0)="^.001^4^4^3070123^^"
^DD(130,202,21,1,0)="NSQIP Definition (2006):"
^DD(130,202,21,2,0)="If the patient has smoked cigarettes in the year prior to admission for"
^DD(130,202,21,3,0)="surgery enter YES. Do not include patients who smoke cigars or pipes or"
^DD(130,202,21,4,0)="use chewing tobacco."
^DD(130,202,"DT")="3070123"
^DD(130,202.1,0)="PACK/YEARS^FX^^208;9^N SRX S SRX=X K:+X'=X!(X>200)!(X<0)!(X?.E1"".""2N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,202.1,.1)="Pack/Year Cigarette History"
^DD(130,202.1,3)="Type a Number between 0 and 200, 1 Decimal Digit."
^DD(130,202.1,21,0)="^.001^14^14^3040728^^^"
^DD(130,202.1,21,1,0)="NSQIP Definition (2004):"
^DD(130,202.1,21,2,0)="If the patient has ever been a smoker, enter the total number of "
^DD(130,202.1,21,3,0)="pack/years of smoking for this patient. Pack-years are defined as the "
^DD(130,202.1,21,4,0)="number of packs of cigarettes smoked per day times the number of years "
^DD(130,202.1,21,5,0)="the patient has smoked. If the patient has never been a smoker, enter "
^DD(130,202.1,21,6,0)="""0"". If pack-years are >200, just enter 200. If smoking history cannot"
^DD(130,202.1,21,7,0)="be determined, enter ""NS"". The possible range for number of pack-years"
^DD(130,202.1,21,8,0)="is 0 to 200. If the chart documents differing values for pack year"
^DD(130,202.1,21,9,0)="cigarette history, or ranges for either packs/day or number of years "
^DD(130,202.1,21,10,0)="patient has smoked, select the highest value documented, unless you are"
^DD(130,202.1,21,11,0)="confident in a particular documenter's assessment (e.g., preoperative"
^DD(130,202.1,21,12,0)="anesthesia evaluation often includes a more accurate assessment of this"
^DD(130,202.1,21,13,0)="value because of the impact it may have on the patient's response to"
^DD(130,202.1,21,14,0)="anesthesia)."
^DD(130,202.1,"DT")="3050923"
^DD(130,203,0)="HISTORY OF COPD^S^Y:YES;N:NO;^200;11^Q"
^DD(130,203,.1)="History of Severe COPD (Y/N)"
^DD(130,203,3)="Enter 'YES' if the patient has a defined condition of COPD."
^DD(130,203,21,0)="^^39^39^3070213^"
^DD(130,203,21,1,0)="NSQIP Definition (2007):"
^DD(130,203,21,2,0)="Chronic obstructive pulmonary disease (such as emphysema and/or "
^DD(130,203,21,3,0)="chronic bronchitis) resulting in any one or more of the following:"
^DD(130,203,21,4,0)=" "
^DD(130,203,21,5,0)=" - Functional disability from COPD (e.g., dyspnea, inability to perform"
^DD(130,203,21,6,0)="   ADLs)"
^DD(130,203,21,7,0)=" - Hospitalization in the past for treatment of COPD"
^DD(130,203,21,8,0)=" - Requires chronic bronchodilator therapy with oral or inhaled agents "
^DD(130,203,21,9,0)="   (see list of bronchodilators below)"
^DD(130,203,21,10,0)=" - An FEV1 of <75% of predicted on pulmonary function testing"
^DD(130,203,21,11,0)=" "
^DD(130,203,21,12,0)="Do not include patients whose only pulmonary disease is acute asthma, "
^DD(130,203,21,13,0)="an acute and chronic inflammatory disease of the airways resulting in"
^DD(130,203,21,14,0)="bronchospasm. Do not include patients with diffuse interstitial"
^DD(130,203,21,15,0)="fibrosis or sarcoidosis."
^DD(130,203,21,16,0)=" "
^DD(130,203,21,17,0)="(This list may not be all-inclusive. Please check your hospital "
^DD(130,203,21,18,0)="formulary)"
^DD(130,203,21,19,0)="                       Bronchodilators"
^DD(130,203,21,20,0)="                    Trade Name (Generic)                     "
^DD(130,203,21,21,0)="                    --------------------                     "
^DD(130,203,21,22,0)="                   Atrovent (Ipratropium)                    "
^DD(130,203,21,23,0)="            Combivent, Duoneb (Ipratropium/Albuterol)        "
^DD(130,203,21,24,0)="               Alupent, Metaprel (Metaproterenol)            "
^DD(130,203,21,25,0)="                    Maxair (Pirbuterol)                      "
^DD(130,203,21,26,0)="                   Serevent (Salmeterol)                     "
^DD(130,203,21,27,0)="    Ventolin, Accuneb, Vospire, Proventil, Volmax (Albuterol)"
^DD(130,203,21,28,0)="            Uniphyll, Theo-Dur, Uni-Dur (Theophylline)       "
^DD(130,203,21,29,0)="                   Xopenex (Levalbuterol)                    "
^DD(130,203,21,30,0)="                   Brethine (Terbutaline)                    "
^DD(130,203,21,31,0)="                   Lufyllin (Dyphylline)                     "
^DD(130,203,21,32,0)="                Spiriva (Tiotropium bromide)                 "
^DD(130,203,21,33,0)="                Foradil (Formoterol fumarate)                 "
^DD(130,203,21,34,0)=" "
^DD(130,203,21,35,0)="CICSP Definition (2004):"
^DD(130,203,21,36,0)="Indicate if the patient has chronic obstructive pulmonary disease "
^DD(130,203,21,37,0)="(COPD) resulting in functional disability, and/or hospitalization, "
^DD(130,203,21,38,0)="and/or requiring chronic bronchodilator therapy, and/or an FEV1 of "
^DD(130,203,21,39,0)="less than 75% of predicted."
^DD(130,203,"DT")="3040715"
^DD(130,204,0)="VENTILATOR DEPENDENT^S^Y:YES;N:NO;NS:NO STUDY;^200;10^Q"
^DD(130,204,.1)="Ventilator Dependent in 48 Hours Preceding Surgery"
^DD(130,204,3)="Enter 'YES' if the patient was dependent on a ventilator at any time within the 48 hours prior to surgery."
^DD(130,204,21,0)="^^4^4^3040316^"
^DD(130,204,21,1,0)="NSQIP Definition (2004):"
^DD(130,204,21,2,0)="A preoperative patient requiring ventilator-assisted respirations at "
^DD(130,204,21,3,0)="any time during the 48 hours preceding surgery. This does not include"
^DD(130,204,21,4,0)="the treatment of sleep apnea with CPAP."
^DD(130,204,"DT")="3040316"
^DD(130,205,0)="PRIOR MI^S^0:NONE;1:LESS THAN OR EQUAL TO 7 DAYS PRIOR TO SURGERY;2:GREATER THAN 7 DAYS PRIOR TO SURGERY;^206;14^Q"
^DD(130,205,.1)="Prior Myocardial Infarction"
^DD(130,205,1,0)="^.1^^0"
^DD(130,205,3)="Enter the category that most accurately reflects the patient's most recent Myocardial Infarction."
^DD(130,205,21,0)="^^4^4^2910917^^^^"
^DD(130,205,21,1,0)="This determines whether the patient has a history of non-Q wave"
^DD(130,205,21,2,0)="or Q wave myocardial infarction as diagnosed in his or her medical"
^DD(130,205,21,3,0)="records.  Select the appropriate category."
^DD(130,205,21,4,0)=" "
^DD(130,205,"DT")="2910923"
^DD(130,206,0)="VASCULAR (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;40^Q"
^DD(130,206,.1)="Vascular (Y/N)"
^DD(130,206,3)="Enter 'YES' if the patient has any vascular problems or disease."
^DD(130,206,21,0)="^^2^2^2910709^^"
^DD(130,206,21,1,0)="This determines whether the patient has any vascular problems."
^DD(130,206,21,2,0)=" "
^DD(130,206,"DT")="2910722"
^DD(130,207,0)="CONGESTIVE HEART FAILURE^S^I:CARDIAC DISEASE, NO LIMITATION;II:SLIGHT LIMITATION;III:MARKED LIMITATION;IV:SYMPTOMS AT REST;^206;19^Q"
^DD(130,207,.1)="Congestive Heart Failure (use NYHA Functional Class)"
^DD(130,207,3)="Enter the NYHA Class associated with the severity of Congestive Heart Failure in the 30 days preceding surgery."
^DD(130,207,21,0)="^^49^49^3070320^"
^DD(130,207,21,1,0)="CICSP Definition (2007):"
^DD(130,207,21,2,0)="Indicate whether the patient has congestive heart failure if the "
^DD(130,207,21,3,0)="patient chart or patient self-report indicates a history of congestive "
^DD(130,207,21,4,0)="heart failure within the 30 days before surgery. Congestive heart"
^DD(130,207,21,5,0)="failure is defined as the inability of the heart to pump a sufficient"
^DD(130,207,21,6,0)="quantity of blood to meet the metabolic needs of the body or can do so"
^DD(130,207,21,7,0)="only at increased ventricular filling pressure. Common manifestations"
^DD(130,207,21,8,0)="are identified:"
^DD(130,207,21,9,0)=" "
^DD(130,207,21,10,0)="From the history:"
^DD(130,207,21,11,0)=" 1) Abnormal limitation in exercise tolerance due to dyspnea, fatigue "
^DD(130,207,21,12,0)="    or angina."
^DD(130,207,21,13,0)=" 2) Orthopnea (dyspnea on lying supine)."
^DD(130,207,21,14,0)=" 3) Paroxysmal nocturnal dyspnea (PND) - awakening from sleep with "
^DD(130,207,21,15,0)="    dyspnea which is relieved by assuming an upright posture)."
^DD(130,207,21,16,0)=" "
^DD(130,207,21,17,0)="From the physical examination:"
^DD(130,207,21,18,0)=" 4) Increased jugular venous pressure."
^DD(130,207,21,19,0)=" 5) Pulmonary rales on physical examination."
^DD(130,207,21,20,0)=" "
^DD(130,207,21,21,0)="From the chest x-ray:"
^DD(130,207,21,22,0)=" 6) Cardiomegaly, and "
^DD(130,207,21,23,0)=" 7) Pulmonary vascular engorgement. "
^DD(130,207,21,24,0)=" "
^DD(130,207,21,25,0)="The New York Heart Association functional classification is commonly"
^DD(130,207,21,26,0)="used as a subjective assessment of the severity of congestive heart"
^DD(130,207,21,27,0)="failure. If none of the above manifestations have been present, or"
^DD(130,207,21,28,0)="congestive heart failure is not mentioned as an active problem in the"
^DD(130,207,21,29,0)="30 days before surgery, indicate Class I. Any mention of above"
^DD(130,207,21,30,0)="manifestations requires the indication of a stage other than Class I."
^DD(130,207,21,31,0)="Indicate the one most appropriate response:"
^DD(130,207,21,32,0)=" "
^DD(130,207,21,33,0)="Class I - cardiac disease, but no symptoms of abnormal fatigue, dyspnea"
^DD(130,207,21,34,0)="or angina."
^DD(130,207,21,35,0)=" "
^DD(130,207,21,36,0)="Class II - slight limitation of physical activity by fatigue, dyspnea,"
^DD(130,207,21,37,0)="or angina. The patient gets unusual fatigue, dyspnea, and/or angina"
^DD(130,207,21,38,0)="only upon performing more strenuous activities, such as climbing two or"
^DD(130,207,21,39,0)="more flights of stairs without stopping. "
^DD(130,207,21,40,0)=" "
^DD(130,207,21,41,0)="Class III - marked limitation of physical activity by fatigue, dyspnea,"
^DD(130,207,21,42,0)="or angina. The patient gets unusual fatigue, dyspnea, and/or angina"
^DD(130,207,21,43,0)="upon performing ordinary activities, such as walking several blocks or"
^DD(130,207,21,44,0)="climbing a flight of stairs. "
^DD(130,207,21,45,0)=" "
^DD(130,207,21,46,0)="Class IV - symptoms at rest and/or inability to carry out any physical"
^DD(130,207,21,47,0)="activity without symptoms of fatigue, dyspnea or angina. The patient"
^DD(130,207,21,48,0)="has symptoms of unusual fatigue, dyspnea, and/or angina at rest or when"
^DD(130,207,21,49,0)="performing minimal activity, such as walking across the room."
^DD(130,207,"DT")="3070320"
^DD(130,208,0)="HYPERTENSION REQUIRING MEDS^S^Y:YES;N:NO;NS:NO STUDY;^200;36^Q"
^DD(130,208,.1)="Hypertension Requiring Medication (Y/N)"
^DD(130,208,3)="Enter 'YES' if the patient has a history of hypertension requiring medications."
^DD(130,208,21,0)="^^8^8^3040317^"
^DD(130,208,21,1,0)="NSQIP Definition (2004):"
^DD(130,208,21,2,0)="The patient has a persistent elevation of systolic blood pressure >140"
^DD(130,208,21,3,0)="mm Hg or a diastolic blood pressure >90 mm Hg or requires an "
^DD(130,208,21,4,0)="antihypertensive treatment (e.g., diuretics, beta blockers, ACE "
^DD(130,208,21,5,0)="inhibitors, calcium channel blockers) at the time the patient is being "
^DD(130,208,21,6,0)="considered as a candidate for surgery which should be no longer than 30"
^DD(130,208,21,7,0)="days prior to surgery. Hypertension must be documented in the patient's"
^DD(130,208,21,8,0)="chart. "
^DD(130,208,"DT")="3040701"
^DD(130,209,0)="CARDIOMEGALY^S^Y:YES;N:NO;^206;6^Q"
^DD(130,209,.1)="Cardiomegaly on Chest X-Ray (Y/N)"
^DD(130,209,3)="Enter 'YES' if there is cardiac enlargement on chest x-ray."
^DD(130,209,21,0)="^^4^4^3040720^"
^DD(130,209,21,1,0)="CICSP Definition (2004):"
^DD(130,209,21,2,0)="Indicate if the patient has generalized cardiac enlargement of any or"
^DD(130,209,21,3,0)="all of the cardiac chambers by standard or portable chest x-ray within "
^DD(130,209,21,4,0)="30 days preceding surgery."
^DD(130,209,"DT")="3040720"
^DD(130,210,0)="CENTRAL NERVOUS SYSTEM (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;18^Q"
^DD(130,210,.1)="Central Nervous System (Y/N)"
^DD(130,210,3)="Enter 'YES' if this patient has a history of illnesses related to the central nervous system."
^DD(130,210,21,0)="^^3^3^2910715^^^^"
^DD(130,210,21,1,0)="This determines whether the patient has a history of illness"
^DD(130,210,21,2,0)="related to the central nervous system (CNS)."
^DD(130,210,21,3,0)=" "
^DD(130,210,"DT")="2910722"
^DD(130,211,0)="CURRENTLY ON DIALYSIS^S^Y:YES;N:NO;NS:NO STUDY;^200;39^Q"
^DD(130,211,.1)="Currently Requiring or On Dialysis (Y/N)"
^DD(130,211,3)="Enter YES if the patient is currently on dialysis."
^DD(130,211,21,0)="^^4^4^3060117^"
^DD(130,211,21,1,0)="NSQIP Definition (2006):"
^DD(130,211,21,2,0)="Acute or chronic renal failure requiring periodic peritoneal dialysis, "
^DD(130,211,21,3,0)="hemodialysis, hemofiltration, hemodiafiltration, or ultrafiltration "
^DD(130,211,21,4,0)="within 2 weeks prior to surgery."
^DD(130,211,"DT")="3060117"
^DD(130,212,0)="ASCITES^S^Y:YES;N:NO;NS:NO STUDY;^200;15^Q"
^DD(130,212,.1)="Ascites Within 30 Days Prior to Surgery (Y/N)"
^DD(130,212,3)="Enter 'YES' if the patient has the presence of fluid accumulation in the peritoneal cavity."
^DD(130,212,21,0)="^^4^4^3040316^"
^DD(130,212,21,1,0)="NSQIP Definition (2004):"
^DD(130,212,21,2,0)="The presence of fluid accumulation in the peritoneal cavity noted on "
^DD(130,212,21,3,0)="physical examination, abdominal ultrasound, or abdominal CT/MRI within "
^DD(130,212,21,4,0)="30 days prior to the operation.   "
^DD(130,212,"DT")="3040316"
^DD(130,213,0)="ESOPHAGEAL VARICES^S^Y:YES;N:NO;NS:NO STUDY;^200;16^Q"
^DD(130,213,.1)="Esophageal Varices (Y/N)"
^DD(130,213,3)="Enter 'YES' if this patient has esophageal varices."
^DD(130,213,21,0)="^^8^8^3040316^"
^DD(130,213,21,1,0)="NSQIP Definition (2004):"
^DD(130,213,21,2,0)="Esophageal varices are engorged collateral veins in the esophagus that "
^DD(130,213,21,3,0)="bypass a scarred liver to carry portal blood to the superior vena cava."
^DD(130,213,21,4,0)="A sustained increase in portal pressure results in esophageal varices"
^DD(130,213,21,5,0)="that are most frequently demonstrated by direct visualization at"
^DD(130,213,21,6,0)="esophagoscopy. Esophageal varices must be present preoperatively and"
^DD(130,213,21,7,0)="must be documented on a recent EGD or CT scan performed within 6 months"
^DD(130,213,21,8,0)="prior to the surgical procedure. "
^DD(130,213,"DT")="3040316"
^DD(130,214,0)="PGY OF PRIMARY SURGEON^NJ2,0X^^200;52^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,214,.1)="PGY of Primary Surgeon ('0' for Staff Surgeon)"
^DD(130,214,3)="Enter the post graduate year of the surgeon, or '0' for a staff surgeon."
^DD(130,214,21,0)="^^5^5^3040316^"
^DD(130,214,21,1,0)="NSQIP Definition (2004):"
^DD(130,214,21,2,0)="Enter the number of surgical residency postgraduate years of the "
^DD(130,214,21,3,0)="primary surgeon (1-12). Enter 0 if the primary surgeon is a "
^DD(130,214,21,4,0)="staff/attending surgeon and not a surgical resident or fellow. PGYs "
^DD(130,214,21,5,0)="greater than 12 should be reported as '12'."
^DD(130,214,"DT")="3040312"
^DD(130,215,0)="WEIGHT LOSS > 10%^S^Y:YES;N:NO;NS:NO STUDY;^200;48^Q"
^DD(130,215,.1)="Weight Loss >10% in the 6 Months Prior to Surgery"
^DD(130,215,3)="Enter YES if the body weight loss is more than 10% in the 6 months prior to surgery."
^DD(130,215,21,0)="^^6^6^3070213^"
^DD(130,215,21,1,0)="NSQIP Definition (2007):"
^DD(130,215,21,2,0)="A >10% decrease in body weight in the six month interval immediately"
^DD(130,215,21,3,0)="preceding surgery as manifested by serial weights in the chart, as"
^DD(130,215,21,4,0)="reported by the patient, or as evidenced by change in clothing size or"
^DD(130,215,21,5,0)="severe cachexia. Exclude patients who have intentionally lost weight"
^DD(130,215,21,6,0)="as part of a weight reduction program."
^DD(130,215,"DT")="3040316"
^DD(130,216,0)="BLEEDING DISORDERS^S^Y:YES;N:NO;NS:NO STUDY;^200;49^Q"
^DD(130,216,.1)="History of Bleeding Disorders (Y/N)"
^DD(130,216,3)="Enter YES if the patient has a history of a bleeding disorder."
^DD(130,216,21,0)="^^66^66^3070213^"
^DD(130,216,21,1,0)="NSQIP Definition (2007):"
^DD(130,216,21,2,0)="Any condition that places the patient at risk for excessive bleeding "
^DD(130,216,21,3,0)="requiring hospitalization due to a deficiency of blood clotting "
^DD(130,216,21,4,0)="elements (e.g., vitamin K deficiency, hemophilias, thrombocytopenia, "
^DD(130,216,21,5,0)="chronic anticoagulation therapy that has not been discontinued prior to "
^DD(130,216,21,6,0)="surgery). Do not include the patient on chronic aspirin therapy. "
^DD(130,216,21,7,0)=" "
^DD(130,216,21,8,0)="Following is a list of medications that impact the patient's risk for  "
^DD(130,216,21,9,0)="bleeding. Please utilize the associated time frames for discontinuation"
^DD(130,216,21,10,0)="of medication to determine your answer to this variable. The time frames"
^DD(130,216,21,11,0)="are up to and including the day or hour listed. If there is no"
^DD(130,216,21,12,0)="documentation of discontinuation of medication, answer 'yes' for"
^DD(130,216,21,13,0)="bleeding disorder. Do not utilize the lab values to determine the answer"
^DD(130,216,21,14,0)="to this variable."
^DD(130,216,21,15,0)=" "
^DD(130,216,21,16,0)="-Anticoagulants"
^DD(130,216,21,17,0)="                                Stop before procedure "
^DD(130,216,21,18,0)="  Brand Name (Generic)                  time"
^DD(130,216,21,19,0)="  ------------------------      ---------------------"
^DD(130,216,21,20,0)="  Arixtra (Fondaparinux)                4 days"
^DD(130,216,21,21,0)="  Coumadin (Warfarin)                   4 days"
^DD(130,216,21,22,0)="  Fragmin (Dalteparin)                 24 hours"
^DD(130,216,21,23,0)="  Heparin - standard                    6 hours"
^DD(130,216,21,24,0)="  Heparin - unfractionated              6 hours"
^DD(130,216,21,25,0)="  Heparin- Low molecular weight        24 hours"
^DD(130,216,21,26,0)="  Lovenox (Enoxaparin)                 28 hours"
^DD(130,216,21,27,0)="          (Pentasaccaride)              4 days"
^DD(130,216,21,28,0)="          (APC)                        12 hours"
^DD(130,216,21,29,0)="          (Ximelagatran)               24 hours"
^DD(130,216,21,30,0)=" "
^DD(130,216,21,31,0)="-Antiplatelet Agents"
^DD(130,216,21,32,0)="                                Stop before procedure "
^DD(130,216,21,33,0)="  Brand Name (Generic)                  time"
^DD(130,216,21,34,0)="  ------------------------      ---------------------"
^DD(130,216,21,35,0)="  Aggrastat (Tirofiban)                12 hours"
^DD(130,216,21,36,0)="  Aggrenox (ASA/Dipyridamole)          48 hours"
^DD(130,216,21,37,0)="  Agrylin (Anagrelide HCL)              3 days"
^DD(130,216,21,38,0)="  Integrilin (Eptifibatide)            12 hours"
^DD(130,216,21,39,0)="  Persantine (Dipyridamole)            48 hours"
^DD(130,216,21,40,0)="  Plavix (Clopidogrel)                  5 days"
^DD(130,216,21,41,0)="  Pletal (Cilostazol)                  2-4 days"
^DD(130,216,21,42,0)="  ReoPro (Abciximab)                   96 hours"
^DD(130,216,21,43,0)="  Ticlid (Ticlopidine)                 10 days"
^DD(130,216,21,44,0)=" "
^DD(130,216,21,45,0)=" "
^DD(130,216,21,46,0)="-Thrombin Inhibitors"
^DD(130,216,21,47,0)="                                Stop before procedure "
^DD(130,216,21,48,0)="  Brand Name (Generic)                  time"
^DD(130,216,21,49,0)="  ------------------------      ---------------------"
^DD(130,216,21,50,0)="  Angiomax (Bevalirudin)                8 hours"
^DD(130,216,21,51,0)="  Argatroban, "
^DD(130,216,21,52,0)="  Novastan (Argatroban)                 4 hours"
^DD(130,216,21,53,0)="  Refludan (Lepirudin, hirudin)         8 hours"
^DD(130,216,21,54,0)="  Xigris (Drotrecogin alpha)            6 hours"
^DD(130,216,21,55,0)=" "
^DD(130,216,21,56,0)=" "
^DD(130,216,21,57,0)="-Thrombolytic Agents"
^DD(130,216,21,58,0)="                                Stop before procedure "
^DD(130,216,21,59,0)="  Brand Name (Generic)                  time"
^DD(130,216,21,60,0)="  ------------------------      ---------------------"
^DD(130,216,21,61,0)="  Activase (Alteplase)                  4 hours"
^DD(130,216,21,62,0)="  Retavase (Reteplase)                  4 hours"
^DD(130,216,21,63,0)="  THKase (Tenecteplase)                 8 hours"
^DD(130,216,21,64,0)="  Streptase, "
^DD(130,216,21,65,0)="  kabikinase (Streptokinase)           24 hours"
^DD(130,216,21,66,0)="  Alteplase (tPA)                      40 hours"
^DD(130,216,"DT")="3040317"
^DD(130,217,0)="TRANSFUSION > 4 RBC UNITS^S^Y:YES;N:NO;NS:NO STUDY;^200;50^Q"
^DD(130,217,.1)="Transfusion >4 RBC Units Within 72 Hrs Prior to Surgery"
^DD(130,217,3)="Enter YES if the patient required a transfusion of more than 4 units in 72 hours prior to surgery."
^DD(130,217,21,0)="^^4^4^3040316^"
^DD(130,217,21,1,0)="NSQIP Definition (2004):"
^DD(130,217,21,2,0)="Preoperative loss of blood necessitating a minimum of 5 units of whole "
^DD(130,217,21,3,0)="blood/packed red cells transfused during the 72 hours prior to surgery "
^DD(130,217,21,4,0)="including any blood transfused in the emergency room."
^DD(130,217,"DT")="3040316"
^DD(130,218,0)="OPEN WOUND^S^Y:YES;N:NO;NS:NO STUDY;^200;46^Q"
^DD(130,218,.1)="Open Wound With or Without Infection (Y/N)"
^DD(130,218,3)="Enter YES if the patient has an open wound with or without infection."
^DD(130,218,21,0)="^^6^6^3070305^"
^DD(130,218,21,1,0)="NSQIP Definition (2007):"
^DD(130,218,21,2,0)="Evidence of an open wound that communicates to the air by direct "
^DD(130,218,21,3,0)="exposure, with or without cellulitis or purulent exudate. This does not"
^DD(130,218,21,4,0)="include osteomyelitis or localized abscesses. The wound must "
^DD(130,218,21,5,0)="communicate to the air by direct exposure. Report mandible fractures "
^DD(130,218,21,6,0)="under this preoperative variable."
^DD(130,218,"DT")="3040316"
^DD(130,218.1,0)="PREOPERATIVE SEPSIS^*S^Y:YES;N:NONE;1:SIRS;2:SEPSIS;3:SEPTIC SHOCK;NS:NO STUDY;^206;8^Q"
^DD(130,218.1,.1)="Preoperative Sepsis in the 48 Hours Prior to Surgery"
^DD(130,218.1,3)="Enter the patient's septic status in the 48 hours prior to surgery."
^DD(130,218.1,12)="Screen prevents selection of retired codes."
^DD(130,218.1,12.1)="S DIC(""S"")=""I Y'=""""Y"""""""
^DD(130,218.1,21,0)="^^39^39^3070221^"
^DD(130,218.1,21,1,0)="NSQIP Definition (2007):"
^DD(130,218.1,21,2,0)="Sepsis is a vast clinical entity that takes a variety of forms. The "
^DD(130,218.1,21,3,0)="spectrum of disorders spans from relatively mild physiologic "
^DD(130,218.1,21,4,0)="abnormalities to septic shock. Please report the most significant level"
^DD(130,218.1,21,5,0)="using the criteria below:"
^DD(130,218.1,21,6,0)=" "
^DD(130,218.1,21,7,0)="1. SIRS (Systemic Inflammatory Response Syndrome): SIRS is a widespread "
^DD(130,218.1,21,8,0)="   inflammatory response to a variety of severe clinical insults. This "
^DD(130,218.1,21,9,0)="   syndrome is clinically recognized by the presence of two or more of "
^DD(130,218.1,21,10,0)="   the following:"
^DD(130,218.1,21,11,0)=" "
^DD(130,218.1,21,12,0)="      - Temp >38 degrees C or <36 degrees C"
^DD(130,218.1,21,13,0)="      - HR >90 bpm"
^DD(130,218.1,21,14,0)="      - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa)"
^DD(130,218.1,21,15,0)="      - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) "
^DD(130,218.1,21,16,0)="        forms"
^DD(130,218.1,21,17,0)="      - Anion gap acidosis: this is defined by either:"
^DD(130,218.1,21,18,0)="         [Na + K] - [Cl + HCO3 (or serum CO2)]. If this number is "
^DD(130,218.1,21,19,0)="         greater than 16, then an anion gap acidosis is present."
^DD(130,218.1,21,20,0)="        or"
^DD(130,218.1,21,21,0)="         Na - [Cl + HCO3 (or serum CO2)]. If this number is greater "
^DD(130,218.1,21,22,0)="         than 12, then an anion gap acidosis is present."
^DD(130,218.1,21,23,0)="        "
^DD(130,218.1,21,24,0)=" "
^DD(130,218.1,21,25,0)="2. Sepsis: Sepsis is the systemic response to infection. Report this "
^DD(130,218.1,21,26,0)="   variable if the patient has clinical signs and symptoms of SIRS "
^DD(130,218.1,21,27,0)="   listed above and one of the following:"
^DD(130,218.1,21,28,0)="      - positive blood culture"
^DD(130,218.1,21,29,0)="      - clinical documentation of purulence or positive culture from "
^DD(130,218.1,21,30,0)="        any site thought to be causative"
^DD(130,218.1,21,31,0)=" "
^DD(130,218.1,21,32,0)="3. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is"
^DD(130,218.1,21,33,0)="   associated with organ and/or circulatory dysfunction. Report this "
^DD(130,218.1,21,34,0)="   variable if the patient has the clinical signs and symptoms of SIRS "
^DD(130,218.1,21,35,0)="   or sepsis AND documented organ and/or circulatory dysfunction."
^DD(130,218.1,21,36,0)="   Examples of organ dysfunction include: oliguria, acute alteration in"
^DD(130,218.1,21,37,0)="   mental status, acute respiratory distress. Examples of circulatory"
^DD(130,218.1,21,38,0)="   dysfunction include: hypotension, requirement of inotropic or"
^DD(130,218.1,21,39,0)="   vasopressor agents.  "
^DD(130,218.1,"DT")="3040323"
^DD(130,219,0)="PREOPERATIVE HEMOGLOBIN^FX^^201;20^K:$L(X)>7!($L(X)<1) X I $D(X) S SRCICSP=1 D NUM^SROAL21"
^DD(130,219,.1)="Preoperative Hemoglobin (g/dl)"
^DD(130,219,3)="Your answer must be 1-7 characters in length."
^DD(130,219,21,0)="^^4^4^3040723^"
^DD(130,219,21,1,0)="CICSP Definition (2004)"
^DD(130,219,21,2,0)="Indicate the patient's hemoglobin result (g/dl) preoperatively "
^DD(130,219,21,3,0)="evaluated closest to surgery but not greater than 30 days before "
^DD(130,219,21,4,0)="surgery. Entering ""NS"" for ""No Study/Unknown"" is not allowed."
^DD(130,219,"DT")="3040723"
^DD(130,220,0)="PREVIOUS PCI^S^Y:YES;N:NO;NS:NO STUDY;^200;32^Q"
^DD(130,220,.1)="Previous PCI (Y/N)"
^DD(130,220,3)="Enter 'Y' if this patient has undergone a percutaneous coronary intervention (PCI)."
^DD(130,220,21,0)="^^5^5^3070305^"
^DD(130,220,21,1,0)="NSQIP Definition (2007):"
^DD(130,220,21,2,0)="The patient has undergone or has had an attempt at percutaneous "
^DD(130,220,21,3,0)="coronary intervention at any time. This includes either balloon"
^DD(130,220,21,4,0)="dilatation or stent placement. This does not include valvuloplasty"
^DD(130,220,21,5,0)="procedures. "
^DD(130,220,"DT")="3060117"
^DD(130,221,0)="PREOPERATIVE CPK^NJ4,0X^^201;6^S NYUK=X K:+X'=X!(X>6000)!(X<0)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,221,.1)="Preoperative CPK (U/L)"
^DD(130,221,3)="Enter the result of the preoperative CPK test.  Your answer should be between 0 and 6000."
^DD(130,221,21,0)="^^3^3^2910516^^^"
^DD(130,221,21,1,0)="This is the result of the preoperative creatinine phosphokinase (CPK)"
^DD(130,221,21,2,0)="test."
^DD(130,221,21,3,0)=" "
^DD(130,221,"DT")="2910715"
^DD(130,222,0)="PREOPERATIVE MB BAND^NJ1,0X^^201;7^S NYUK=X K:+X'=X!(X>50)!(X<0)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,222,.1)="Preoperative MB Band"
^DD(130,222,3)="Enter the result of the preoperative MB band."
^DD(130,222,21,0)="^^3^3^2910604^^"
^DD(130,222,21,1,0)="This is the value of the preoperative methyline blue (MB) band."
^DD(130,222,21,2,0)="Your answer must be between 0 and 50."
^DD(130,222,21,3,0)=" "
^DD(130,222,"DT")="2910715"
^DD(130,223,0)="PREOPERATIVE SERUM CREATININE^FX^^201;4^K:$L(X)>4!($L(X)<1) X I $D(X) S SRCICSP=1 D NUM^SROAL21"
^DD(130,223,.1)="Preoperative Serum Creatinine (mg/dl)"
^DD(130,223,3)="Answer must be 1-4 characters in length."
^DD(130,223,21,0)="^.001^9^9^3040723^^"
^DD(130,223,21,1,0)="This is the serum creatinine result (mg/dl) most closely preceding"
^DD(130,223,21,2,0)="surgery. Data input must be 1 to 4 numeric characters in length which"
^DD(130,223,21,3,0)="may include a prefix of a less than or greater than sign ""<"" or "">""."
^DD(130,223,21,4,0)="Entering ""NS"" for ""No Study"" is allowed for NSQIP assessments."
^DD(130,223,21,5,0)=" "
^DD(130,223,21,6,0)="CICSP Definition (2004)"
^DD(130,223,21,7,0)="Indicate the patient's Serum Creatinine result (mg/dl) preoperatively "
^DD(130,223,21,8,0)="evaluated closest to surgery but not greater than 30 days before "
^DD(130,223,21,9,0)="surgery. Entering ""NS"" for ""No Study/Unknown"" is not allowed."
^DD(130,223,"DT")="3040723"
^DD(130,224,0)="PREOPERATIVE BUN^FX^^201;5^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,224,.1)="Preoperative BUN (mg/dl)"
^DD(130,224,3)="Answer must be 1-5 characters in length."
^DD(130,224,21,0)="^^4^4^2970411^"
^DD(130,224,21,1,0)="This is the result of the preoperative Blood Urea Nitrogen (BUN) test."
^DD(130,224,21,2,0)="Data input must be 1 to 5 numeric characters in length which may include"
^DD(130,224,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,224,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,224,"DT")="2970409"
^DD(130,225,0)="PREOPERATIVE SERUM ALBUMIN^FX^^201;8^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,225,.1)="Preoperative Serum Albumin (g/dl)"
^DD(130,225,3)="Answer must be 1-4 characters in length."
^DD(130,225,21,0)="^^9^9^3040723^"
^DD(130,225,21,1,0)="This is the result of the preoperative serum albumin test. Data input"
^DD(130,225,21,2,0)="must be 1 to 4 numeric characters in length which may include a prefix"
^DD(130,225,21,3,0)="of a less than or greater than sign ""<"" or "">"". Entering ""NS"" for ""No"
^DD(130,225,21,4,0)="Study"" is allowed for NSQIP assessments."
^DD(130,225,21,5,0)=" "
^DD(130,225,21,6,0)="CICSP Definition (2004)"
^DD(130,225,21,7,0)="Indicate the patient's serum albumin result (g/dl) preoperatively "
^DD(130,225,21,8,0)="evaluated closest to surgery but not greater than 30 days before "
^DD(130,225,21,9,0)="surgery. Entering ""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,225,"DT")="3040723"
^DD(130,226,0)="PREOPERATIVE SGPT^NJ5,1X^^201;10^S NYUK=X K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,226,.1)="Preoperative SGPT (mU/ml)"
^DD(130,226,3)="Enter the result of the preoperative SGPT test.  Your answer should be between 0 and 1000."
^DD(130,226,21,0)="^^3^3^2921228^^"
^DD(130,226,21,1,0)="This is the result of the preoperative serum glutamic pyruvic"
^DD(130,226,21,2,0)="transaminase (SGPT) test."
^DD(130,226,21,3,0)=" "
^DD(130,226,"DT")="2910715"
^DD(130,227,0)="PREOPERATIVE SGOT^FX^^201;11^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,227,.1)="Preoperative SGOT (mU/ml)"
^DD(130,227,3)="Answer must be 1-5 characters in length."
^DD(130,227,21,0)="^^4^4^2970411^"
^DD(130,227,21,1,0)="This is the result of the preoperative serum glutamic oxaloacetic (SGOT)"
^DD(130,227,21,2,0)="test. Data input must be 1 to 5 numeric characters in length which may"
^DD(130,227,21,3,0)="include a prefix of a less than or greater than sign ""<"" or "">""."
^DD(130,227,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,227,"DT")="2970410"
^DD(130,228,0)="PREOPERATIVE TOTAL BILIRUBIN^FX^^201;9^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,228,.1)="Preoperative Total Bilirubin (mg/dl)"
^DD(130,228,3)="Answer must be 1-5 characters in length."
^DD(130,228,21,0)="^^4^4^2970411^"
^DD(130,228,21,1,0)="This is the result of the preoperative total bilirubin test."
^DD(130,228,21,2,0)="Data input must be 1 to 5 numeric characters in length which may include"
^DD(130,228,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,228,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,228,"DT")="2970410"
^DD(130,229,0)="PREOPERATIVE ALK PHOSPHATASE^FX^^201;12^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,229,.1)="Preoperative Alkaline Phosphatase (mU/ml)"
^DD(130,229,3)="Answer must be 1-5 characters in length."
^DD(130,229,21,0)="^^4^4^2970411^"
^DD(130,229,21,1,0)="This is the result of the preoperative alkaline phosphatase test."
^DD(130,229,21,2,0)="Data input must be 1 to 5 numeric characters in length which may include"
^DD(130,229,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,229,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,229,"DT")="2970410"
^DD(130,230,0)="PREOPERATIVE WBC^FX^^201;13^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,230,.1)="Preoperative WBC (X 1000/mm3)"
^DD(130,230,3)="Answer must be 1-4 characters in length."
^DD(130,230,21,0)="^^4^4^2970411^"
^DD(130,230,21,1,0)="This is the result of the preoperative white blood count (WBC)."
^DD(130,230,21,2,0)="Data input must be 1 to 4 numeric characters in length which may include"
^DD(130,230,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,230,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,230,"DT")="2970410"
^DD(130,231,0)="PREOPERATIVE PLATELET COUNT^FX^^201;15^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,231,.1)="Preoperative Platelet Count (X 1000/mm3)"
^DD(130,231,3)="Answer must be 1-5 characters in length."
^DD(130,231,21,0)="^^4^4^2970411^"
^DD(130,231,21,1,0)="This is the result of the preoperative platelet count."
^DD(130,231,21,2,0)="Data input must be 1 to 5 numeric characters in length which may include"
^DD(130,231,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,231,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,231,"DT")="2970410"
^DD(130,232,0)="PREOPERATIVE PT^FX^^201;17^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,232,.1)="Preoperative PT (seconds)"
^DD(130,232,3)="Answer must be 1-4 characters in length."
^DD(130,232,21,0)="^^4^4^2970411^"
^DD(130,232,21,1,0)="This is the result of the preoperative prothombin time (PT)."
^DD(130,232,21,2,0)="Data input must be 1 to 4 numeric characters in length which may include"
^DD(130,232,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,232,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,232,"DT")="2970410"
^DD(130,233,0)="PREOPERATIVE PTT^FX^^201;16^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,233,.1)="Preoperative PTT (seconds)"
^DD(130,233,3)="Answer must be 1-5 characters in length."
^DD(130,233,21,0)="^^4^4^2970411^"
^DD(130,233,21,1,0)="This is the result of the preoperative partial thromboplastin"
^DD(130,233,21,2,0)="time (PTT). Data input must be 1 to 5 numeric characters in length"
^DD(130,233,21,3,0)="which may include a prefix of a less than or greater than sign ""<"" or "">""."
^DD(130,233,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,233,"DT")="2970410"
^DD(130,234,0)="PREOPERATIVE HEMATOCRIT^FX^^201;14^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,234,.1)="Preoperative Hematocrit"
^DD(130,234,3)="Answer must be 1-4 characters in length."
^DD(130,234,21,0)="^^4^4^2970411^"
^DD(130,234,21,1,0)="This is the result of the preoperative hematocrit test."
^DD(130,234,21,2,0)="Data input must be 1 to 4 numeric characters in length which may include"
^DD(130,234,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,234,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,234,"DT")="2970410"
^DD(130,235,0)="ASSESSMENT STATUS^S^I:INCOMPLETE;C:COMPLETE;T:TRANSMITTED;N:NO ASSESSMENT;^RA;1^Q"
^DD(130,235,.1)="Assessment Status"
^DD(130,235,1,0)="^.1"
^DD(130,235,1,1,0)="130^ARS^MUMPS"
^DD(130,235,1,1,1)="I $P($G(^SRF(DA,""RA"")),""^"",2)'="""" S ^SRF(""ARS"",$P(^SRF(DA,""RA""),""^"",2),X,$P(^SRF(DA,0),""^""),DA)="""""
^DD(130,235,1,1,2)="I $P($G(^SRF(DA,""RA"")),""^"",2)'="""" K ^SRF(""ARS"",$P(^SRF(DA,""RA""),""^"",2),X,$P(^SRF(DA,0),""^""),DA)"
^DD(130,235,1,1,"%D",0)="^^2^2^2950311^^^^"
^DD(130,235,1,1,"%D",1,0)="The ARS cross reference on the ASSESSMENT STATUS field is used to determine"
^DD(130,235,1,1,"%D",2,0)="the assessment status of non-cardiac and cardiac assessments."
^DD(130,235,1,1,"DT")="2950127"
^DD(130,235,3)="Enter the current status of this surgery risk assessment."
^DD(130,235,21,0)="^^5^5^2950310^"
^DD(130,235,21,1,0)="This is the current status of the surgery risk assessment.  When creating"
^DD(130,235,21,2,0)="a new assessment, the status will automatically be entered as"
^DD(130,235,21,3,0)="'INCOMPLETE'.  Upon completion of the assessment, this field will be"
^DD(130,235,21,4,0)="updated to 'COMPLETED'.  After the assessment is transmitted, this field"
^DD(130,235,21,5,0)="will be automatically updated to 'TRANSMITTED'."
^DD(130,235,"DT")="2950127"
^DD(130,236,0)="HEIGHT^FXO^^206;1^D HWC^SROAMEAS Q:X=""NS""  K:+X>300!(+X<0) X D H^SROAMEAS"
^DD(130,236,.1)="Patient's Height"
^DD(130,236,1,0)="^.1"
^DD(130,236,1,1,0)="130^AO^MUMPS"
^DD(130,236,1,1,1)="Q"
^DD(130,236,1,1,2)="S $P(^SRF(DA,200.1),""^"",7)="""""
^DD(130,236,1,1,"%D",0)="^^2^2^3071127^"
^DD(130,236,1,1,"%D",1,0)="This MUMPS cross reference sets the HEIGHT MEASUREMENT DATE field "
^DD(130,236,1,1,"%D",2,0)="(#236.1) to null when the HEIGHT field is deleted."
^DD(130,236,1,1,"DT")="3071127"
^DD(130,236,2)="S Y(0)=Y S Y=$S(Y=""NS"":""NO STUDY"",Y[""C"":+Y_"" CENTIMETERS"",+Y:Y_"" INCHES"",1:Y)"
^DD(130,236,2.1)="S Y=$S(Y=""NS"":""NO STUDY"",Y[""C"":+Y_"" CENTIMETERS"",+Y:Y_"" INCHES"",1:Y)"
^DD(130,236,3)="Enter the patient's height."
^DD(130,236,21,0)="^^19^19^3040715^"
^DD(130,236,21,1,0)="NSQIP Definition (2004):"
^DD(130,236,21,2,0)="Report the patient's most recent height documented in the medical   "
^DD(130,236,21,3,0)="record in either inches (in) or centimeters (cm)."
^DD(130,236,21,4,0)=" "
^DD(130,236,21,5,0)="The measurement should be entered in inches (48 to 86) or centimeters"
^DD(130,236,21,6,0)="(122 to 218). If you are entering the patient's height in centimeters,"
^DD(130,236,21,7,0)="enter 'C' after the number of centimeters."
^DD(130,236,21,8,0)=" "
^DD(130,236,21,9,0)="Your answer should be in one of the following two formats."
^DD(130,236,21,10,0)=" "
^DD(130,236,21,11,0)="  68    (representing inches)"
^DD(130,236,21,12,0)="  173C  (representing centimeters)"
^DD(130,236,21,13,0)=" "
^DD(130,236,21,14,0)="Enter NS for NO STUDY if the patient's height cannot be determined."
^DD(130,236,21,15,0)=" "
^DD(130,236,21,16,0)="CICSP Definition (2004):"
^DD(130,236,21,17,0)="Indicate the patient's height in either inches (in) or centimeters (cm) "
^DD(130,236,21,18,0)="based upon an actual measurement (if possible) or based on the "
^DD(130,236,21,19,0)="patient's estimate."
^DD(130,236,"DT")="3071127"
^DD(130,236.1,0)="HEIGHT MEASUREMENT DATE^D^^200.1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(130,236.1,.1)="Date of Height Measurement"
^DD(130,236.1,3)="Enter the date of the height measurement."
^DD(130,236.1,21,0)="^.001^2^2^3071127^^"
^DD(130,236.1,21,1,0)="This is the date of the patient's height measurement. This date is taken"
^DD(130,236.1,21,2,0)="from the VITALS software."
^DD(130,236.1,"DT")="3071127"
^DD(130,237,0)="WEIGHT^FXO^^206;2^D HWC^SROAMEAS Q:X=""NS""  K:X>700!(X<0) X D W^SROAMEAS"
^DD(130,237,.1)="Patient's Weight"
^DD(130,237,2)="S Y(0)=Y S Y=$S(Y=""NS"":""NO STUDY"",Y[""K"":+Y_"" KILOGRAMS"",+Y:Y_"" LBS."",1:Y)"
^DD(130,237,2.1)="S Y=$S(Y=""NS"":""NO STUDY"",Y[""K"":+Y_"" KILOGRAMS"",+Y:Y_"" LBS."",1:Y)"
^DD(130,237,3)="Enter the patient's weight most closely preceding surgery."
^DD(130,237,21,0)="^^19^19^3040715^"
^DD(130,237,21,1,0)="NSQIP Definition (2004):"
^DD(130,237,21,2,0)="Report the patient's most recent weight documented in the medical "
^DD(130,237,21,3,0)="record in either pounds (lbs) or kilograms (kg)."
^DD(130,237,21,4,0)=" "
^DD(130,237,21,5,0)="The weight should be entered in pounds (50 to 700) or kilograms (23 to"
^DD(130,237,21,6,0)="318). If you are entering the patient's weight in kilograms, enter 'K'"
^DD(130,237,21,7,0)="after the number of kilograms."
^DD(130,237,21,8,0)=" "
^DD(130,237,21,9,0)="Your answer should be in one of the following formats."
^DD(130,237,21,10,0)=" "
^DD(130,237,21,11,0)="  178     (weight in pounds)"
^DD(130,237,21,12,0)="  80K     (weight in Kilograms)"
^DD(130,237,21,13,0)=" "
^DD(130,237,21,14,0)="Enter NS for NO STUDY if the patient's weight cannot be determined."
^DD(130,237,21,15,0)=" "
^DD(130,237,21,16,0)="CICSP Definition (2004):"
^DD(130,237,21,17,0)="Indicate the patient's most recent weight before surgery in either "
^DD(130,237,21,18,0)="pounds (lbs) or kilograms (kg) based upon an actual measurement (if"
^DD(130,237,21,19,0)="possible) or based on the patient's estimate."
^DD(130,237,"DT")="3071107"
^DD(130,238,0)="DNR STATUS^S^Y:YES;N:NO;NS:NO STUDY;^200;7^Q"
^DD(130,238,.1)="DNR Status (Y/N)"
^DD(130,238,3)="Enter 'YES' if the patient has requested not to be resuscitated."
^DD(130,238,21,0)="^^11^11^3040316^"
^DD(130,238,21,1,0)="NSQIP Definition (2004):"
^DD(130,238,21,2,0)="If the patient has had a Do-Not-Resuscitate (DNR) order written in the "
^DD(130,238,21,3,0)="physician's order sheet of the patient's chart and it has been signed "
^DD(130,238,21,4,0)="or co-signed by an attending physician [this is the only condition "
^DD(130,238,21,5,0)="under which a DNR order is official in the VA in the 30 days prior to "
^DD(130,238,21,6,0)="this surgery], enter ""YES"". If the DNR order as defined above was "
^DD(130,238,21,7,0)="rescinded immediately prior to surgery in order to operate on the "
^DD(130,238,21,8,0)="patient, enter ""YES"". Answer ""NO"" if DNR discussions are documented in"
^DD(130,238,21,9,0)="the progress note, but no official DNR order has been written in the"
^DD(130,238,21,10,0)="physician order sheet or if the attending physician has not signed the"
^DD(130,238,21,11,0)="official order.  "
^DD(130,238,"DT")="3040316"
^DD(130,239,0)="PREOPERATIVE HEMOGLOBIN, DATE^DX^^202;20^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,239,.1)="Date Preoperative Hemoglobin was Performed"
^DD(130,239,3)="Enter the date preop Hemoglobin was performed."
^DD(130,239,21,0)="^^1^1^2970911^^"
^DD(130,239,21,1,0)="This is the date that the preoperative hemoglobin test was performed."
^DD(130,239,"DT")="3070119"
^DD(130,240,0)="FUNCTIONAL HEALTH STATUS^*S^1:INDEPENDENT;2:PARTIALLY DEPENDENT;3:TOTALLY DEPENDENT;4:UNKNOWN;^200;8^Q"
^DD(130,240,.1)="Functional Status"
^DD(130,240,3)="Enter the level of self care that summarizes the patient's status prior to surgery."
^DD(130,240,12)="Screen limits selection based on type of risk assessment."
^DD(130,240,12.1)="S DIC(""S"")=$$FUNCT^SROAUTL"
^DD(130,240,21,0)="^^27^27^3071205^"
^DD(130,240,21,1,0)="CICSP Definition (2004):"
^DD(130,240,21,2,0)="Indicate the appropriate term that describes the level of self-care "
^DD(130,240,21,3,0)="demonstrated by the patient that summarizes his/her status during the"
^DD(130,240,21,4,0)="two weeks before surgery:"
^DD(130,240,21,5,0)=" "
^DD(130,240,21,6,0)="Independent - The patient is independent in activities of daily living"
^DD(130,240,21,7,0)="    (bathing, toilet, eating, dressing, transfer and continence);"
^DD(130,240,21,8,0)="    he/she does not require the assistance of nursing care, equipment,"
^DD(130,240,21,9,0)="    or devices. This would include a patient who is able to function"
^DD(130,240,21,10,0)="    independently with a limb prosthesis."
^DD(130,240,21,11,0)="Partially dependent - The patient is partially dependent. He/she"
^DD(130,240,21,12,0)="    requires the use of equipment or devices coupled with assistance"
^DD(130,240,21,13,0)="    from another person for some activities of daily living. Any "
^DD(130,240,21,14,0)="    patient coming from a nursing home setting who is not totally"
^DD(130,240,21,15,0)="    dependent is described by this category. Any patient who requires"
^DD(130,240,21,16,0)="    dialysis for kidney failure or requires chronic oxygen therapy yet"
^DD(130,240,21,17,0)="    maintains independent functions, is considered partially dependent."
^DD(130,240,21,18,0)="Totally dependent - The patient is totally dependent and cannot perform"
^DD(130,240,21,19,0)="    ANY activities of daily living on his/her own. This includes a"
^DD(130,240,21,20,0)="    patient in an ICU/floor, or who is totally dependent on nursing "
^DD(130,240,21,21,0)="    care, or a dependent nursing home patient."
^DD(130,240,21,22,0)=" "
^DD(130,240,21,23,0)="All patients with psychiatric illnesses should be evaluated for their "
^DD(130,240,21,24,0)="ability to function with or without assistance with ADLs in the same "
^DD(130,240,21,25,0)="manner as the non-psychiatric patient. For instance, if a patient with "
^DD(130,240,21,26,0)="schizophrenia is able to care for himself without the assistance of "
^DD(130,240,21,27,0)="nursing care, he/she is considered independent."
^DD(130,240,"DT")="3071205"
^DD(130,241,0)="PULMONARY (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;9^Q"
^DD(130,241,.1)="Pulmonary (Y/N)"
^DD(130,241,3)="Enter 'YES' if this patient has a history of pulmonary illnesses."
^DD(130,241,21,0)="^^2^2^2910709^^^^"
^DD(130,241,21,1,0)="This determines whether the patient has a history of pulmonary"
^DD(130,241,21,2,0)="illnesses."
^DD(130,241,"DT")="2910722"
^DD(130,242,0)="CARDIAC (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;30^Q"
^DD(130,242,.1)="Cardiac (Y/N)"
^DD(130,242,3)="Enter 'YES' if this patient has a history of cardiac illnesses."
^DD(130,242,21,0)="^^3^3^2910608^^^"
^DD(130,242,21,1,0)="This determines whether the patient has a history of cardiac"
^DD(130,242,21,2,0)="illnesses."
^DD(130,242,21,3,0)=" "
^DD(130,242,"DT")="2910722"
^DD(130,243,0)="RENAL (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;37^Q"
^DD(130,243,.1)="Renal (Y/N)"
^DD(130,243,3)="Enter 'YES' if this patient has a history of renal illnesses."
^DD(130,243,21,0)="^^3^3^2910709^^^"
^DD(130,243,21,1,0)="This determines whether the patient has a history of renal"
^DD(130,243,21,2,0)="illnesses."
^DD(130,243,21,3,0)=" "
^DD(130,243,"DT")="2910722"
^DD(130,244,0)="HEPATOBILIARY (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;13^Q"
^DD(130,244,.1)="Hepatobiliary (Y/N)"
^DD(130,244,3)="Enter 'YES' if this patient has a history of hepatobiliary illnesses."
^DD(130,244,21,0)="^^3^3^2910709^^^"
^DD(130,244,21,1,0)="This determines whether the patient has a history of hepatobiliary "
^DD(130,244,21,2,0)="illnesses."
^DD(130,244,21,3,0)=" "
^DD(130,244,"DT")="2910722"
^DD(130,245,0)="NUTRITIONAL/IMMUNE/OTHER^S^Y:YES;N:NO;NS:NO STUDY;^200;44^Q"
^DD(130,245,.1)="Nutritional/Immune/Other (Y/N)"
^DD(130,245,3)="Enter 'YES' if the patient has a history of general/nutritional/immune illness."
^DD(130,245,21,0)="^^3^3^2910910^^^"
^DD(130,245,21,1,0)="This determines whether the patient has a history of illness related"
^DD(130,245,21,2,0)="to nutrition, immune deficiencies or other general deficiencies."
^DD(130,245,21,3,0)=" "
^DD(130,245,"DT")="2910910"
^DD(130,246,0)="ETOH > 2 DRINKS/DAY^S^Y:YES;N:NO;NS:NO STUDY;^200;4^Q"
^DD(130,246,.1)="ETOH >2 Drinks Per Day in the Two Weeks Prior to Admission"
^DD(130,246,3)="Enter 'YES' if the patient admits to having greater than two drinks per day within the two weeks prior to admission."
^DD(130,246,21,0)="^^6^6^3040316^"
^DD(130,246,21,1,0)="NSQIP Definition (2004):"
^DD(130,246,21,2,0)="The patient admits to drinking >2 ounces of hard liquor or more than"
^DD(130,246,21,3,0)="two 12 oz. cans of beer or more than two 6 oz. glasses of wine per day"
^DD(130,246,21,4,0)="in the two weeks prior to admission. If the patient is a ""binge"
^DD(130,246,21,5,0)="drinker"" divide out the numbers of drinks during the binge by seven"
^DD(130,246,21,6,0)="days, and then apply the definition."
^DD(130,246,"DT")="3040316"
^DD(130,247,0)="LENGTH OF POST-OP STAY^FX^^205;1^S:X=""NA""!(X=""na"") X=""NA"" Q:X=""NA""  K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,247,.1)="Length of Postoperative Hospital Stay"
^DD(130,247,3)="Enter the total number of days this patient remained in the hospital after his or her operation.  Enter NA if LENGTH OF POST-OP STAY is not applicable."
^DD(130,247,21,0)="^^7^7^3040316^"
^DD(130,247,21,1,0)="NSQIP Definition (2004):"
^DD(130,247,21,2,0)="The software will automatically calculate the total number of days that"
^DD(130,247,21,3,0)="the patient stayed in the acute care services of the medical center."
^DD(130,247,21,4,0)="The number of days should include the day after surgery and the date of"
^DD(130,247,21,5,0)="discharge or transfer to intermediate or chronic care facilities."
^DD(130,247,21,6,0)=" "
^DD(130,247,21,7,0)="Enter NA if LENGTH OF POST-OP STAY is not applicable."
^DD(130,247,"DT")="3040728"
^DD(130,248,0)="SUPERFICIAL INCISIONAL SSI^S^Y:YES;N:NO;NS:NO STUDY;^205;6^Q"
^DD(130,248,.1)="Superficial Incisional Surgical Site Infection (Y/N)"
^DD(130,248,3)="Enter YES if this patient had a superficial incisional surgical site infection."
^DD(130,248,21,0)="^^22^22^3040316^"
^DD(130,248,21,1,0)="NSQIP Definition (2004):"
^DD(130,248,21,2,0)="Superficial incisional SSI is an infection that occurs within 30 days "
^DD(130,248,21,3,0)="after the operation and infection involves only skin or subcutaneous "
^DD(130,248,21,4,0)="tissue of the incision and at least one of the following:"
^DD(130,248,21,5,0)=" "
^DD(130,248,21,6,0)=" - Purulent drainage, with or without laboratory confirmation, from the"
^DD(130,248,21,7,0)="   superficial incision."
^DD(130,248,21,8,0)=" - Organisms isolated from an aseptically obtained culture of fluid or"
^DD(130,248,21,9,0)="   tissue from the superficial incision. "
^DD(130,248,21,10,0)=" - At least one of the following signs or symptoms of infection:  pain"
^DD(130,248,21,11,0)="   or tenderness, localized swelling, redness, or heat and superficial"
^DD(130,248,21,12,0)="   incision is deliberately opened by the surgeon, unless incision is"
^DD(130,248,21,13,0)="   culture-negative.  "
^DD(130,248,21,14,0)=" - Diagnosis of superficial incisional SSI by the surgeon or attending"
^DD(130,248,21,15,0)="   physician.  "
^DD(130,248,21,16,0)=" "
^DD(130,248,21,17,0)="Do not report the following conditions as SSI:"
^DD(130,248,21,18,0)=" - Stitch abscess (minimal inflammation and discharge confined to the"
^DD(130,248,21,19,0)="   points of suture penetration)."
^DD(130,248,21,20,0)=" - Infected burn wound."
^DD(130,248,21,21,0)=" - Incisional SSI that extends into the fascial and muscle layers (see"
^DD(130,248,21,22,0)="   deep incisional SSI)."
^DD(130,248,"DT")="3040316"
^DD(130,249,0)="DEEP INCISIONAL SSI^S^Y:YES;N:NO;NS:NO STUDY;^205;7^Q"
^DD(130,249,.1)="Deep Incisional Surgical Site Infection (Y/N)"
^DD(130,249,3)="Enter YES if this patient had a deep incisional surgical site infection."
^DD(130,249,21,0)="^^23^23^3040318^"
^DD(130,249,21,1,0)="NSQIP Definition (2004):"
^DD(130,249,21,2,0)="Deep Incision SSI is an infection that occurs within 30 days after the "
^DD(130,249,21,3,0)="operation and the infection appears to be related to the operation and "
^DD(130,249,21,4,0)="infection involved deep soft tissues (e.g., fascial and muscle layers) "
^DD(130,249,21,5,0)="of the incision and at least one of the following: "
^DD(130,249,21,6,0)=" "
^DD(130,249,21,7,0)=" - Purulent drainage from the deep incision but not from the "
^DD(130,249,21,8,0)="   organ/space component of the surgical site."
^DD(130,249,21,9,0)=" - A deep incision spontaneously dehisces or is deliberately opened by"
^DD(130,249,21,10,0)="   a surgeon when the patient has at least one of the following signs"
^DD(130,249,21,11,0)="   or symptoms: fever (>38 C), localized pain, or tenderness, unless"
^DD(130,249,21,12,0)="   site is culture-negative."
^DD(130,249,21,13,0)=" - An abscess or other evidence of infection involving the deep "
^DD(130,249,21,14,0)="   incision is found on direct examination, during reoperation, or by "
^DD(130,249,21,15,0)="   histopathologic or radiologic examination."
^DD(130,249,21,16,0)=" - Diagnosis of a deep incision SSI by a surgeon or attending "
^DD(130,249,21,17,0)="   physician. "
^DD(130,249,21,18,0)=" "
^DD(130,249,21,19,0)="Note:  "
^DD(130,249,21,20,0)=" - Report infection that involves both superficial and deep incision"
^DD(130,249,21,21,0)="   sites as deep incisional SSI."
^DD(130,249,21,22,0)=" - Report an organ/space SSI that drains through the incision as a deep"
^DD(130,249,21,23,0)="   incisional SSI.  "
^DD(130,249,"DT")="3040318"
^DD(130,250,0)="SYSTEMIC SEPSIS^S^Y:YES;N:NO;NS:NO STUDY;^205;35^Q"
^DD(130,250,.1)="Systemic Sepsis"
^DD(130,250,3)="Enter YES if the patient has been diagnosed as having postoperative systemic sepsis."
^DD(130,250,21,0)="^^65^65^3070221^"
^DD(130,250,21,1,0)="NSQIP Definition (2007):"
^DD(130,250,21,2,0)="Sepsis is a vast clinical entity that takes a variety of forms. The "
^DD(130,250,21,3,0)="spectrum of disorders spans from relatively mild physiologic "
^DD(130,250,21,4,0)="abnormalities to septic shock. Please report the most significant level"
^DD(130,250,21,5,0)="using the criteria below:"
^DD(130,250,21,6,0)=" "
^DD(130,250,21,7,0)="1. Sepsis: Sepsis is the systemic response to infection. Report this "
^DD(130,250,21,8,0)="variable if the patient has clinical signs and symptoms of SIRS. SIRS "
^DD(130,250,21,9,0)="is a widespread inflammatory response to a variety of severe clinical"
^DD(130,250,21,10,0)="insults. This syndrome is clinically recognized by the presence of two "
^DD(130,250,21,11,0)="or more of the following:"
^DD(130,250,21,12,0)="   - Temp >38 degrees C or <36 degrees C"
^DD(130,250,21,13,0)="   - HR >90 bpm"
^DD(130,250,21,14,0)="   - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa)"
^DD(130,250,21,15,0)="   - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) "
^DD(130,250,21,16,0)="     forms"
^DD(130,250,21,17,0)="   - Anion gap acidosis: this is defined by either:"
^DD(130,250,21,18,0)="      [Na + K] - [Cl + HCO3 (or serum CO2)]. If this number is "
^DD(130,250,21,19,0)="      greater than 16, then an anion gap acidosis is present."
^DD(130,250,21,20,0)="     or"
^DD(130,250,21,21,0)="      Na - [Cl + HCO3 (or serum CO2)]. If this number is greater"
^DD(130,250,21,22,0)="      than 12, then an anion gap acidosis is present."
^DD(130,250,21,23,0)=" "
^DD(130,250,21,24,0)=" and one of the following:"
^DD(130,250,21,25,0)="   - positive blood culture"
^DD(130,250,21,26,0)="   - clinical documentation of purulence or positive culture from any "
^DD(130,250,21,27,0)="     site thought to be causative"
^DD(130,250,21,28,0)=" "
^DD(130,250,21,29,0)="2. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is "
^DD(130,250,21,30,0)="associated with organ and/or circulatory dysfunction. Report this "
^DD(130,250,21,31,0)="variable if the patient has the clinical signs and symptoms of SIRS or "
^DD(130,250,21,32,0)="sepsis AND documented organ and/or circulatory dysfunction. Examples of"
^DD(130,250,21,33,0)="organ dysfunction include: oliguria, acute alteration in mental status,"
^DD(130,250,21,34,0)="acute respiratory distress. Examples of circulatory dysfunction "
^DD(130,250,21,35,0)="include: hypotension, requirement of inotropic or vasopressor agents."
^DD(130,250,21,36,0)=" "
^DD(130,250,21,37,0)="* For the patient that had sepsis preoperatively, worsening of any of "
^DD(130,250,21,38,0)="the above signs postoperatively would be reported as a postoperative "
^DD(130,250,21,39,0)="sepsis."
^DD(130,250,21,40,0)=" "
^DD(130,250,21,41,0)="Examples:"
^DD(130,250,21,42,0)=" "
^DD(130,250,21,43,0)="A patient comes into the emergency room with signs of sepsis - WBC 31, "
^DD(130,250,21,44,0)="Temperature 104. CT shows an abdominal abscess. He is given antibiotics"
^DD(130,250,21,45,0)="and is then taken emergently to the OR to drain the abscess. He "
^DD(130,250,21,46,0)="receives antibiotics intraoperatively. Postoperatively his WBC and"
^DD(130,250,21,47,0)="Temperature are trending down."
^DD(130,250,21,48,0)="  POD#1 WBC 24, Temp 102 "
^DD(130,250,21,49,0)="  POD#2 WBC 14, Temp 100 "
^DD(130,250,21,50,0)="  POD#3 WBC 10, Temp 99 "
^DD(130,250,21,51,0)="This patient does not have postoperative sepsis as his WBC and "
^DD(130,250,21,52,0)="Temperature are improving each postoperative day. "
^DD(130,250,21,53,0)=" "
^DD(130,250,21,54,0)="Patient comes into the ER with s/s of sepsis - WBC 31, Temp 104. CT "
^DD(130,250,21,55,0)="shows an abdominal abscess. He is given antibiotics and is taken "
^DD(130,250,21,56,0)="emergently to the OR to drain the abscess. He receives antibiotics "
^DD(130,250,21,57,0)="intraoperatively. Postoperatively his WBC and Temp are as follows:  "
^DD(130,250,21,58,0)="  POD#1 WBC 28, Temp 103"
^DD(130,250,21,59,0)="  POD#2 WBC 24, Temp 102.6"
^DD(130,250,21,60,0)="  POD#3 WBC 22, Temp 102 "
^DD(130,250,21,61,0)="  POD#4 WBC 21, Temp 101.6"
^DD(130,250,21,62,0)="  POD#5 WBC 30, Temp 104  "
^DD(130,250,21,63,0)="This patient does have postoperative sepsis because on postoperative "
^DD(130,250,21,64,0)="day #5, his WBC and Temperature increase. The patient is having"
^DD(130,250,21,65,0)="worsening of the defined signs of sepsis."
^DD(130,250,"DT")="3040316"
^DD(130,251,0)="PNEUMONIA^S^Y:YES;N:NO;NS:NO STUDY;^205;10^Q"
^DD(130,251,.1)="Pneumonia (Y/N)"
^DD(130,251,3)="Enter YES if the patient has a postoperative occurrence of pneumonia."
^DD(130,251,21,0)="^^43^43^3070214^"
^DD(130,251,21,1,0)="NSQIP Definition (2007):"
^DD(130,251,21,2,0)="Inflammation of the lungs caused primarily by bacteria, viruses, and/or"
^DD(130,251,21,3,0)="chemical irritants, usually manifested by chills, fever, pain in the"
^DD(130,251,21,4,0)="chest, cough, purulent, bloody sputum. Enter YES if the patient has"
^DD(130,251,21,5,0)="pneumonia meeting the definition of pneumonia below AND pneumonia not"
^DD(130,251,21,6,0)="present preoperatively."
^DD(130,251,21,7,0)=" "
^DD(130,251,21,8,0)="Pneumonia must meet one of the following TWO criteria:"
^DD(130,251,21,9,0)=" "
^DD(130,251,21,10,0)="Criterion 1."
^DD(130,251,21,11,0)="  Rales or dullness to percussion on physical examination of chest AND"
^DD(130,251,21,12,0)="  any of the following:"
^DD(130,251,21,13,0)="  a. New onset of purulent sputum or change in character of sputum"
^DD(130,251,21,14,0)="  b. Organism isolate from blood culture"
^DD(130,251,21,15,0)="  c. Isolation of pathogen from specimen obtained by transtracheal"
^DD(130,251,21,16,0)="     aspirate, bronchial brushing, or biopsy"
^DD(130,251,21,17,0)=" "
^DD(130,251,21,18,0)=" OR"
^DD(130,251,21,19,0)=" "
^DD(130,251,21,20,0)="Criterion 2."
^DD(130,251,21,21,0)="  Chest radiographic examination shows new or progressive infiltrate, "
^DD(130,251,21,22,0)="  consolidation, cavitation, or pleural effusion AND any of the "
^DD(130,251,21,23,0)="  following:"
^DD(130,251,21,24,0)="  a. New onset of purulent sputum or change in character of sputum"
^DD(130,251,21,25,0)="  b. Organism isolated from blood culture"
^DD(130,251,21,26,0)="  c. Isolation of pathogen from specimen obtained by transtracheal    "
^DD(130,251,21,27,0)="     aspirate, bronchial brushing, or biopsy"
^DD(130,251,21,28,0)="  d. Isolation of virus or detection of viral antigen in respiratory"
^DD(130,251,21,29,0)="     secretions"
^DD(130,251,21,30,0)="  e. Diagnostic single antibody titer (IgM) or fourfold increase in"
^DD(130,251,21,31,0)="     paired serum samples (IgG) for pathogen"
^DD(130,251,21,32,0)="  f. Histopathologic evidence of pneumonia"
^DD(130,251,21,33,0)=" "
^DD(130,251,21,34,0)="*If pneumonia was present preoperatively and resolved postoperatively "
^DD(130,251,21,35,0)="and a new pneumonia is identified within 30 days after surgery, the"
^DD(130,251,21,36,0)="following criteria must be met in order to report as a postoperative"
^DD(130,251,21,37,0)="pneumonia occurrence:"
^DD(130,251,21,38,0)="   - Patient must have completed the antibiotic course for the "
^DD(130,251,21,39,0)="     previous pneumonia."
^DD(130,251,21,40,0)="   - Patient must have evidence of a clear chest x-ray after the "
^DD(130,251,21,41,0)="     previous pneumonia and prior to the new pneumonia."
^DD(130,251,21,42,0)="   - There must be evidence of a new isolate of micro-organism on "
^DD(130,251,21,43,0)="     culture."
^DD(130,251,"DT")="3040318"
^DD(130,252,0)="PULMONARY EMBOLISM^S^Y:YES;N:NO;NS:NO STUDY;^205;12^Q"
^DD(130,252,.1)="Pulmonary Embolism (Y/N)"
^DD(130,252,3)="Enter YES if the patient has had a postoperative pulmonary embolism."
^DD(130,252,21,0)="^^12^12^3070305^"
^DD(130,252,21,1,0)="NSQIP Definition (2007):"
^DD(130,252,21,2,0)="Lodging of a blood clot in a pulmonary artery with subsequent "
^DD(130,252,21,3,0)="obstruction of blood supply to the lung parenchyma. The blood clots"
^DD(130,252,21,4,0)="usually originate from the deep leg veins or the pelvic venous"
^DD(130,252,21,5,0)="system. Enter ""YES"" if the patient has a V-Q scan interpreted as high"
^DD(130,252,21,6,0)="probability of pulmonary embolism or a positive pulmonary arteriogram"
^DD(130,252,21,7,0)="or positive CT angiogram or positive Spiral CT exam. Treatment usually"
^DD(130,252,21,8,0)="consists of:"
^DD(130,252,21,9,0)=" - Initiation of anticoagulation therapy"
^DD(130,252,21,10,0)=" - Placement of mechanical interruption (e.g. Greenfield Filter), for"
^DD(130,252,21,11,0)="   patients in whom anticoagulation is contraindicated or already "
^DD(130,252,21,12,0)="   instituted."
^DD(130,252,"DT")="3040316"
^DD(130,253,0)="OTHER RESPIRATORY OCCURRENCE^*P80'XO^ICD9(^205;14^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,253,.1)="Other Respiratory Occurrence (ICD Diagnosis)"
^DD(130,253,2)="S Y(0)=Y I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,253,2.1)="I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,253,3)="Enter the ICD Diagnosis code related to the postoperative respiratory occurrence."
^DD(130,253,12)="Screen prevents selection of inactive diagnosis."
^DD(130,253,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,253,21,0)="^.001^4^4^3040322^^"
^DD(130,253,21,1,0)="NSQIP Definition (2004):"
^DD(130,253,21,2,0)="Enter any other respiratory occurrences that you feel to be significant"
^DD(130,253,21,3,0)="and that are not covered by the predefined respiratory occurrence"
^DD(130,253,21,4,0)="categories. Enter the ICD-9-CM code for this entry."
^DD(130,253,"DT")="3040318"
^DD(130,254,0)="ACUTE RENAL FAILURE^*S^Y:YES;N:NO;NS:NO STUDY;^205;17^Q"
^DD(130,254,.1)="Acute Renal Failure Requiring Dialysis (Y/N)"
^DD(130,254,3)="Enter YES if the patient has renal failure requiring the initiation of dialysis postoperatively."
^DD(130,254,12)="Screen prevents selection of retired code."
^DD(130,254,12.1)="S DIC(""S"")=""I Y'=""""NS"""""""
^DD(130,254,21,0)="^^15^15^3070305^"
^DD(130,254,21,1,0)="NSQIP Definition (2007):"
^DD(130,254,21,2,0)="In a patient who did not require dialysis preoperatively, worsening of "
^DD(130,254,21,3,0)="renal dysfunction postoperatively requiring hemodialysis, peritoneal "
^DD(130,254,21,4,0)="dialysis, hemofiltration, hemodiafiltration or ultrafiltration."
^DD(130,254,21,5,0)=" "
^DD(130,254,21,6,0)="TIP: If the patient refuses dialysis the answer is Yes to this "
^DD(130,254,21,7,0)="variable, because he/she did require dialysis."
^DD(130,254,21,8,0)=" "
^DD(130,254,21,9,0)="CICSP Definition (2004):"
^DD(130,254,21,10,0)="Indicate if the patient developed new renal failure requiring dialysis"
^DD(130,254,21,11,0)="or experienced an exacerbation of preoperative renal failure requiring"
^DD(130,254,21,12,0)="initiation of dialysis (not on dialysis preoperatively) within 30 days"
^DD(130,254,21,13,0)="postoperatively. (Dialysis includes continuous venous to venous "
^DD(130,254,21,14,0)="hemodialysis [CVVHD], continuous venous to arterial hemodialysis "
^DD(130,254,21,15,0)="[CVAHD], and peritoneal. It does not include ultrafiltration.)"
^DD(130,254,"DT")="3040721"
^DD(130,255,0)="URINARY TRACT INFECTION^S^Y:YES;N:NO;NS:NO STUDY;^205;18^Q"
^DD(130,255,.1)="Urinary Tract Infection (Y/N)"
^DD(130,255,3)="Enter YES if the patient has a postoperative urinary tract infection."
^DD(130,255,21,0)="^^22^22^3040316^"
^DD(130,255,21,1,0)="NSQIP Definition (2004):"
^DD(130,255,21,2,0)="Postoperative symptomatic urinary tract infection must meet one of the "
^DD(130,255,21,3,0)="following TWO criteria:"
^DD(130,255,21,4,0)=" "
^DD(130,255,21,5,0)="1. One of the following: fever (>38 degrees C), urgency, frequency,"
^DD(130,255,21,6,0)="   dysuria, or suprapubic tenderness AND a urine culture of >100,000"
^DD(130,255,21,7,0)="   colonies/ml urine with no more than two species of organisms"
^DD(130,255,21,8,0)=" "
^DD(130,255,21,9,0)="OR"
^DD(130,255,21,10,0)=" "
^DD(130,255,21,11,0)="2. Two of the following: fever (>38 degrees C), urgency, frequency,"
^DD(130,255,21,12,0)="   dysuria, or suprapubic tenderness AND any of the following:"
^DD(130,255,21,13,0)="   - Dipstick test positive for leukocyte esterase and/or nitrate"
^DD(130,255,21,14,0)="   - Pyuria (>10 WBCs/cc or >3 WBC/hpf of unspun urine)"
^DD(130,255,21,15,0)="   - Organisms seen on Gram stain of unspun urine"
^DD(130,255,21,16,0)="   - Two urine cultures with repeated isolation of the same uropathogen"
^DD(130,255,21,17,0)="     with >100 colonies/ml urine in non-voided specimen"
^DD(130,255,21,18,0)="   - Urine culture with <100,000 colonies/ml urine of single"
^DD(130,255,21,19,0)="     uropathogen in patient being treated with appropriate"
^DD(130,255,21,20,0)="     antimicrobial therapy"
^DD(130,255,21,21,0)="   - Physician's diagnosis"
^DD(130,255,21,22,0)="   - Physician institutes appropriate antimicrobial therapy"
^DD(130,255,"DT")="3040316"
^DD(130,256,0)="STROKE/CVA^*S^Y:YES;N:NO;NS:NO STUDY;^205;21^Q"
^DD(130,256,.1)="Stroke/Cerebral Vascular Accident (Y/N)"
^DD(130,256,3)="Enter YES if this patient has had a postoperative cerebral vascular accident or stroke."
^DD(130,256,12)="Screen prevents selection of retired code."
^DD(130,256,12.1)="S DIC(""S"")=""I Y'=""""NS"""""""
^DD(130,256,21,0)="^.001^10^10^3040721^^"
^DD(130,256,21,1,0)="NSQIP Definition (2004):"
^DD(130,256,21,2,0)="Patient develops an embolic, thrombotic, or hemorrhagic vascular "
^DD(130,256,21,3,0)="accident or stroke with motor, sensory, or cognitive dysfunction (e.g.,"
^DD(130,256,21,4,0)="hemiplegia, hemiparesis, aphasia, sensory deficit, impaired memory) "
^DD(130,256,21,5,0)="that persist for 24 or more hours."
^DD(130,256,21,6,0)=" "
^DD(130,256,21,7,0)="CICSP Definition (2004):"
^DD(130,256,21,8,0)="Indicate if there was any new objective neurologic deficit lasting "
^DD(130,256,21,9,0)="> 72 hours with onset immediately post-operatively or occurring within"
^DD(130,256,21,10,0)="the 30 days after surgery."
^DD(130,256,"DT")="3040721"
^DD(130,257,0)="POSTOP BLEEDING/TRANSFUSIONS^S^Y:YES;N:NO;NS:NO STUDY;^205;32^Q"
^DD(130,257,.1)="Bleeding Requiring >4 Units RBCs or WB Transfused in 72 hrs Postop (Y/N)"
^DD(130,257,3)="Enter YES if the patient had bleeding requiring >4 units PRBC's or whole blood within 72 hours postoperatively."
^DD(130,257,21,0)="^^9^9^3040316^"
^DD(130,257,21,1,0)="NSQIP Definition (2004):"
^DD(130,257,21,2,0)="Any transfusion (including autologous) of packed red blood cells or "
^DD(130,257,21,3,0)="whole blood given from the time the patient leaves the operating room "
^DD(130,257,21,4,0)="up to and including 72 hours postoperatively. Enter YES for five or "
^DD(130,257,21,5,0)="more units of packed red blood cell units in the postoperative period "
^DD(130,257,21,6,0)="including hanging blood from the OR that is finished outside of the OR."
^DD(130,257,21,7,0)="If the patient receives shed blood, autologous blood, cell saver blood"
^DD(130,257,21,8,0)="or pleurovac postoperatively, this is counted if greater than four"
^DD(130,257,21,9,0)="units. The blood may be given for any reason."
^DD(130,257,"DT")="3040316"
^DD(130,258,0)="MYOCARDIAL INFARCTION^S^Y:YES;N:NO;NS:NO STUDY;^205;27^Q"
^DD(130,258,.1)="Myocardial Infarction (Y/N)"
^DD(130,258,3)="Enter YES if the patient has had a myocardial infarction."
^DD(130,258,21,0)="^^4^4^3040316^"
^DD(130,258,21,1,0)="NSQIP Definition (2004):"
^DD(130,258,21,2,0)="A new transmural acute myocardial infarction occurring during surgery "
^DD(130,258,21,3,0)="or within 30 days following surgery as manifested by new Q-waves on "
^DD(130,258,21,4,0)="ECG. Non-Q-wave infarctions should be entered under ""OTHER""."
^DD(130,258,"DT")="3040316"
^DD(130,259,0)="PULMONARY EDEMA^S^Y:YES;N:NO;NS:NO STUDY;^205;28^Q"
^DD(130,259,.1)="Pulmonary Edema Requiring IV Diuretic Therapy (Y/N)"
^DD(130,259,3)="Enter 'YES' if the patient has postoperative pulmonary edema requiring IV diuretic therapy."
^DD(130,259,21,0)="^^3^3^2950119^^"
^DD(130,259,21,1,0)="This determines whether the patient has developed postoperative distress"
^DD(130,259,21,2,0)="requiring treatment and diagnosis of CHF or pulmonary edema or Adult"
^DD(130,259,21,3,0)="Respiratory Distress Syndrome."
^DD(130,259,"DT")="2910910"
^DD(130,260,0)="DATE TRANSMITTED^D^^RA;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(130,260,.1)="Date Transmitted"
^DD(130,260,1,0)="^.1"
^DD(130,260,1,1,0)="130^AT1^MUMPS"
^DD(130,260,1,1,1)="D AT1^SROXR4"
^DD(130,260,1,1,2)="D KAT1^SROXR4"
^DD(130,260,1,1,"%D",0)="^.101^2^2^3071105^^"
^DD(130,260,1,1,"%D",1,0)="This MUMPS type cross-reference is used for sorting transmitted assessed"
^DD(130,260,1,1,"%D",2,0)="cases and excluded cases by the DATE TRANSMITTED field."
^DD(130,260,1,1,"DT")="3071105"
^DD(130,260,3)="Enter the Date that this Assessment was transmitted."
^DD(130,260,21,0)="^^3^3^2921228^^"
^DD(130,260,21,1,0)="This is the date (or date/time) that this surgery risk assessment"
^DD(130,260,21,2,0)="was transmitted."
^DD(130,260,21,3,0)=" "
^DD(130,260,"DT")="3071105"
^DD(130,260.1,0)="DATE OF LAST TRANSMISSION^D^^RA;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(130,260.1,.1)="Last Transmission Date"
^DD(130,260.1,1,0)="^.1"
^DD(130,260.1,1,1,0)="130^AT^MUMPS"
^DD(130,260.1,1,1,1)="D AT^SROXR4"
^DD(130,260.1,1,1,2)="D KAT^SROXR4"
^DD(130,260.1,1,1,"%D",0)="^.101^2^2^3071105^^"
^DD(130,260.1,1,1,"%D",1,0)="This MUMPS type cross-reference is used for sorting transmitted assessed "
^DD(130,260.1,1,1,"%D",2,0)="cases and excluded cases by the DATE OF LAST TRANSMISSION field."
^DD(130,260.1,1,1,"DT")="3071105"
^DD(130,260.1,21,0)="^^5^5^2950221^"
^DD(130,260.1,21,1,0)="This is the date of the retransmission if this risk assessment has been"
^DD(130,260.1,21,2,0)="retransmitted to the national database. An assessment can be updated and"
^DD(130,260.1,21,3,0)="retransmitted within 14 days of the original transmission date.  If there"
^DD(130,260.1,21,4,0)="was no retransmission of this assessment, this is the date of the original"
^DD(130,260.1,21,5,0)="transmission."
^DD(130,260.1,"DT")="3071105"
^DD(130,261,0)="GRAFT/PROSTHESIS/FLAP FAILURE^S^Y:YES;N:NO;NS:NO STUDY;^205;33^Q"
^DD(130,261,.1)="Graft/Prosthesis/Flap Failure (Y/N)"
^DD(130,261,3)="Enter YES if the patient has had a postoperative graft or prosthesis failure."
^DD(130,261,21,0)="^^4^4^3040316^"
^DD(130,261,21,1,0)="NSQIP Definition (2004):"
^DD(130,261,21,2,0)="Mechanical failure of an extracardiac graft/or prosthesis including "
^DD(130,261,21,3,0)="myocutaneous flaps and skin grafts requiring return to the operating "
^DD(130,261,21,4,0)="room, interventional radiology, or a balloon angioplasty."
^DD(130,261,"DT")="3040316"
^DD(130,262,0)="RETURN TO OR WITHIN 30 DAYS^S^Y:YES;N:NO;NS:NO STUDY;^205;4^Q"
^DD(130,262,.1)="Return to OR within 30 Days of Index Procedure (Y/N)"
^DD(130,262,3)="Enter 'YES' if the patient had a return to the operating room within 30 days of this surgery."
^DD(130,262,21,0)="^^4^4^3040316^"
^DD(130,262,21,1,0)="NSQIP Definition (2004):"
^DD(130,262,21,2,0)="Returns to the operating room include all surgical procedures that "
^DD(130,262,21,3,0)="required the patient to be taken to the surgical operating room for "
^DD(130,262,21,4,0)="intervention of any kind will automatically be entered by the software."
^DD(130,262,"DT")="3040316"
^DD(130,263,0)="DVT/THROMBOPHLEBITIS^S^Y:YES;N:NO;NS:NO STUDY;^205;34^Q"
^DD(130,263,.1)="Deep Vein Thrombosis (DVT)/Thrombophlebitis (Y/N)"
^DD(130,263,3)="Enter YES if the patient has postoperative DVT/Thrombophlebitis."
^DD(130,263,21,0)="^^6^6^3040318^"
^DD(130,263,21,1,0)="NSQIP Definition (2004):"
^DD(130,263,21,2,0)="The identification of a new blood clot or thrombus within the venous "
^DD(130,263,21,3,0)="system, which may be coupled with inflammation. This diagnosis is "
^DD(130,263,21,4,0)="confirmed by a duplex, venogram or CT scan. The patient must be treated"
^DD(130,263,21,5,0)="with anticoagulation therapy, and/or placement of a vena cava filter or"
^DD(130,263,21,6,0)="clipping of the vena cava."
^DD(130,263,"DT")="3040318"
^DD(130,264,0)="CEREBRAL VASCULAR DISEASE^S^Y:YES;N:NO;^206;17^Q"
^DD(130,264,.1)="Cerebral Vascular Disease (Y/N)"
^DD(130,264,3)="Enter 'YES' if this patient has disease of the arteries to the head."
^DD(130,264,21,0)="7^^7^7^2910924^^"
^DD(130,264,21,1,0)="This determines whether the patient has disease of the arteries"
^DD(130,264,21,2,0)="to the head manifested by previous stroke (cerebral vascular accident),"
^DD(130,264,21,3,0)="and/or transient ischemic attack (TIA), and/or prior surgical repair"
^DD(130,264,21,4,0)="(e.g. carotid endarterectomy), and/or greater than or equal to 50%"
^DD(130,264,21,5,0)="obstruction of luminal diameter documented by contrast angiography"
^DD(130,264,21,6,0)="or duplex ultrasound examination."
^DD(130,264,21,7,0)=" "
^DD(130,264,"DT")="2910917"
^DD(130,265,0)="PERIPHERAL VASCULAR DISEASE^S^Y:YES;N:NO;^206;16^Q"
^DD(130,265,.1)="Peripheral Vascular Disease (Y/N)"
^DD(130,265,3)="Enter 'YES' if this patient has disease of the arteries below the bifurcation of the aorta."
^DD(130,265,21,0)="1^^8^8^2910924^^^^"
^DD(130,265,21,1,0)="This determines whether the patient has peripheral vascular disease."
^DD(130,265,21,2,0)="Peripheral vascular disease is defined as disease of the arteries to"
^DD(130,265,21,3,0)="legs below bifurcation of aorta manifested by external claudication,"
^DD(130,265,21,4,0)="and/or ischemic rest pain, and/or prior revascularization procedure(s) on"
^DD(130,265,21,5,0)="vessels to legs, and/or absent or diminished pulses in legs, and/or"
^DD(130,265,21,6,0)="angiographic evidence of noniatrogenic peripheral arterial obstruction"
^DD(130,265,21,7,0)="greater than or equal to 50% of luminal diameter."
^DD(130,265,21,8,0)=" "
^DD(130,265,"DT")="2910917"
^DD(130,266,0)="PREVIOUS CARDIAC SURGERY^S^Y:YES;N:NO;NS:NO STUDY;^200;33^Q"
^DD(130,266,.1)="Previous Cardiac Surgery (Y/N)"
^DD(130,266,3)="Enter 'YES' if this patient has had a previous cardiac surgery."
^DD(130,266,21,0)="^^8^8^3060117^"
^DD(130,266,21,1,0)="NSQIP Definition (2006):"
^DD(130,266,21,2,0)="Any major cardiac surgical procedure (performed either as an 'off-pump'"
^DD(130,266,21,3,0)="repair or utilizing cardiopulmonary bypass). This includes coronary"
^DD(130,266,21,4,0)="artery bypass graft surgery, valve replacement or repair, repair of"
^DD(130,266,21,5,0)="atrial or ventricular septal defects, great thoracic vessel repair,"
^DD(130,266,21,6,0)="cardiac transplant, left ventricular aneurysmectomy, insertion of left"
^DD(130,266,21,7,0)="ventricular assist devices, etc. Do not include pacemaker insertions or"
^DD(130,266,21,8,0)="automatic implantable cardioverter-defibrillator (AICD) insertions."
^DD(130,266,"DT")="3040826"
^DD(130,267,0)="ANGINA^S^I:CLASS I;II:CLASS II;III:CLASS III;IV:CLASS IV;^206;18^Q"
^DD(130,267,.1)="Angina (use CCS Functional Class)"
^DD(130,267,1,0)="^.1^^0"
^DD(130,267,3)="Enter the CCS classification associated with the severity of angina in the 14 days preceding surgery."
^DD(130,267,21,0)="^^21^21^2950201^"
^DD(130,267,21,1,0)="This determines whether the patient has angina.  Angina is defined"
^DD(130,267,21,2,0)="as pain or discomfort between the diaphragm and the mandible resulting"
^DD(130,267,21,3,0)="from myocardial ischemia usually precipitated by exertion or emotion"
^DD(130,267,21,4,0)="and relieved by rest or nitroglycerine.  The Canadian Cardiovascular"
^DD(130,267,21,5,0)="Society (CCS) classification is now the most commonly used method to"
^DD(130,267,21,6,0)="record severity of angina.  Record according to the most severe angina in"
^DD(130,267,21,7,0)="the 14 days before surgery:"
^DD(130,267,21,8,0)="   I - Ordinary physical activity, such as walking or climbing stairs does"
^DD(130,267,21,9,0)="       not cause angina.  Angina may occur with strenuous or rapid or"
^DD(130,267,21,10,0)="       prolonged exertion at work or recreation."
^DD(130,267,21,11,0)="  II - There is slight limitation of ordinary activity.  Angina may occur"
^DD(130,267,21,12,0)="       with walking or climbing stairs rapidly, walking uphill, walking or"
^DD(130,267,21,13,0)="       stair climbing after meals or in the cold, in the wind, or under"
^DD(130,267,21,14,0)="       emotional stress, or walking more than two blocks on the level, or"
^DD(130,267,21,15,0)="       climbing more than one flight of stairs under normal conditions at"
^DD(130,267,21,16,0)="       a normal pace."
^DD(130,267,21,17,0)=" III - There is marked limitation of ordinary physical activity.  Angina"
^DD(130,267,21,18,0)="       may occur after walking one or two blocks on the level or climbing"
^DD(130,267,21,19,0)="       one flight of stairs under normal conditions at a normal pace."
^DD(130,267,21,20,0)="  IV - There is inability to carry on any physical activity without"
^DD(130,267,21,21,0)="       discomfort.  Angina may be present at rest."
^DD(130,267,"DT")="2950201"
^DD(130,268,0)="HEPATOMEGALY^S^Y:YES;N:NO;NS:NO STUDY;^200;14^Q"
^DD(130,268,.1)="Presence of Hepatomegaly (Y/N)"
^DD(130,268,3)="Enter 'YES' if the physician has noted the presence of hepatomegaly in his History and Physical."
^DD(130,268,21,0)="^^9^9^2910919^^"
^DD(130,268,21,1,0)="This determines whether the patient has the presence of"
^DD(130,268,21,2,0)="hepatomegaly.  Hepatomegaly is defined as enlargement of the "
^DD(130,268,21,3,0)="liver indicated usually by palpation of the lower border of"
^DD(130,268,21,4,0)="the liver below the right costal margin or a liver span greater"
^DD(130,268,21,5,0)="than 10 cm.  Hepatomegaly may be noted in acute hepatitis, fatty"
^DD(130,268,21,6,0)="infiltration, passive congestion, and early biliary obstruction."
^DD(130,268,21,7,0)="It is usually noted by the physician under the abdominal portion"
^DD(130,268,21,8,0)="of the H&P."
^DD(130,268,21,9,0)=" "
^DD(130,268,"DT")="2910919"
^DD(130,269,0)="PREGNANCY^S^NO:NO;NA:NOT APPLICABLE;Y:YES;^200.1;3^Q"
^DD(130,269,.1)="Pregnancy Status"
^DD(130,269,3)="Enter the preoperative pregnancy status of this patient."
^DD(130,269,21,0)="^^5^5^3070214^"
^DD(130,269,21,1,0)="NSQIP Definition (2007):"
^DD(130,269,21,2,0)="Pregnancy is the process by which a woman carries a developing fetus in "
^DD(130,269,21,3,0)="her uterus, beginning at conception and ending in birth, miscarriage or "
^DD(130,269,21,4,0)="abortion. Answer Yes if there is documentation in the patient's medical "
^DD(130,269,21,5,0)="record that the patient is currently pregnant."
^DD(130,269,"DT")="3070214"
^DD(130,270,0)="PREOPERATIVE SERUM SODIUM^FX^^201;1^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,270,.1)="Preoperative Serum Sodium"
^DD(130,270,3)="Answer must be 1-5 characters in length."
^DD(130,270,21,0)="^^4^4^2970411^"
^DD(130,270,21,1,0)="This is the result of the preoperative serum sodium test."
^DD(130,270,21,2,0)="Data input must be 1 to 5 numeric characters in length which may include"
^DD(130,270,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,270,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,270,"DT")="2970410"
^DD(130,271,0)="PREOPERATIVE POTASSIUM^NJ3,1X^^201;2^S NYUK=X K:+X'=X!(X>8)!(X<1.5)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,271,.1)="Preoperative Potassium"
^DD(130,271,3)="Enter the result of the preoperative potassium test.  Your answer must be between 1.5 and 8.0."
^DD(130,271,21,0)="^^2^2^2910516^"
^DD(130,271,21,1,0)="This is the result of the preoperative potassium test."
^DD(130,271,21,2,0)=" "
^DD(130,271,"DT")="2910728"
^DD(130,272,0)="DATE ASSESSMENT COMPLETED^D^^RA;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,272,.1)="Date Assessment Completed"
^DD(130,272,21,0)="^^3^3^2910326^"
^DD(130,272,21,1,0)="This is the date that the Assessment was completed.  This field will"
^DD(130,272,21,2,0)="be updated if the assessment was transmitted in error."
^DD(130,272,21,3,0)=" "
^DD(130,272,"DT")="2920221"
^DD(130,273,0)="PREOPERATIVE GLUCOSE^NJ4,0X^^201;3^S NYUK=X K:+X'=X!(X>1200)!(X<20)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,273,.1)="Preoperative Glucose"
^DD(130,273,3)="Enter the result of the preoperative glucose test.  Your answer should be between 20 and 1200."
^DD(130,273,21,0)="^^2^2^2910516^"
^DD(130,273,21,1,0)="This is the result of the preoperative glucose test."
^DD(130,273,21,2,0)=" "
^DD(130,273,"DT")="2910715"
^DD(130,274,0)="HIGHEST SERUM SODIUM^FX^^203;1^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,274,.1)="Highest Postoperative Serum Sodium"
^DD(130,274,3)="Answer must be 1-5 characters in length."
^DD(130,274,21,0)="^^4^4^2970411^"
^DD(130,274,21,1,0)="This is the highest result of a postoperative serum sodium test for"
^DD(130,274,21,2,0)="the selected patient. Data input must be 1 to 5 numeric characters in"
^DD(130,274,21,3,0)="length which may include a prefix of a less than or greater than"
^DD(130,274,21,4,0)="sign ""<"" or "">"". Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,274,"DT")="2970410"
^DD(130,275,0)="HIGHEST POTASSIUM^FX^^203;3^K:$L(X)>3!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,275,.1)="Highest Postoperative Potassium"
^DD(130,275,3)="Answer must be 1-3 characters in length."
^DD(130,275,21,0)="^^4^4^2970411^"
^DD(130,275,21,1,0)="This is the highest result of a potassium test for the selected patient."
^DD(130,275,21,2,0)="Data input must be 1 to 3 numeric characters in length which may include"
^DD(130,275,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,275,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,275,"DT")="2970410"
^DD(130,276,0)="HIGHEST GLUCOSE^NJ5,1X^^203;5^S NYUK=X K:+X'=X!(X>1200)!(X<20)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,276,.1)="Highest Postoperative Glucose"
^DD(130,276,3)="Enter the highest postoperative glucose result.  Your answer should be between 20 and 1200."
^DD(130,276,21,0)="^^3^3^2910604^"
^DD(130,276,21,1,0)="This is the highest result of a postoperative glucose test for the"
^DD(130,276,21,2,0)="patient selected."
^DD(130,276,21,3,0)=" "
^DD(130,276,"DT")="2910715"
^DD(130,277,0)="HIGHEST SERUM CREATININE^FX^^203;6^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,277,.1)="Highest Postoperative Serum Creatinine"
^DD(130,277,3)="Answer must be 1-4 characters in length."
^DD(130,277,21,0)="^^4^4^2970411^"
^DD(130,277,21,1,0)="This is the highest postoperative serum creatinine result for the"
^DD(130,277,21,2,0)="selected patient. Data input must be 1 to 4 numeric characters in"
^DD(130,277,21,3,0)="length which may include a prefix of a less than or greater than "
^DD(130,277,21,4,0)="sign ""<"" or "">"". Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,277,"DT")="2970410"
^DD(130,278,0)="HIGHEST CPK^FX^^203;7^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,278,.1)="Highest Postoperative CPK"
^DD(130,278,3)="Answer must be 1-6 characters in length."
^DD(130,278,21,0)="^^4^4^2970411^"
^DD(130,278,21,1,0)="This is the highest result of a postoperative CPK test for the "
^DD(130,278,21,2,0)="patient selected. Data input must be 1 to 6 numeric characters in"
^DD(130,278,21,3,0)="length which may include a prefix of a less than or greater than"
^DD(130,278,21,4,0)="sign ""<"" or "">"". Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,278,"DT")="2970410"
^DD(130,279,0)="HIGHEST CPK-MB^FX^^203;8^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,279,.1)="Highest Postoperative CPK-MB"
^DD(130,279,3)="Answer must be 1-4 characters in length."
^DD(130,279,21,0)="^^4^4^2970411^"
^DD(130,279,21,1,0)="This is the highest result of a postoperative CP-MB Band for this patient."
^DD(130,279,21,2,0)="Data input must be 1 to 4 numeric characters in length which may include"
^DD(130,279,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,279,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,279,"DT")="2970410"
^DD(130,280,0)="HIGHEST TOTAL BILIRUBIN^FX^^203;9^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,280,.1)="Highest Postoperative Total Bilirubin"
^DD(130,280,3)="Answer must be 1-5 characters in length."
^DD(130,280,21,0)="^^4^4^2970411^^"
^DD(130,280,21,1,0)="This is the highest postoperative total bilirubin result recorded"
^DD(130,280,21,2,0)="for this patient. Data input must be 1 to 5 numeric characters in"
^DD(130,280,21,3,0)="length which may include a prefix of a less than or greater than"
^DD(130,280,21,4,0)="sign ""<"" or "">"". Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,280,"DT")="2970410"
^DD(130,281,0)="HIGHEST WBC^FX^^203;10^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,281,.1)="Highest Postoperative WBC"
^DD(130,281,3)="Answer must be 1-4 characters in length."
^DD(130,281,21,0)="^^4^4^2970411^"
^DD(130,281,21,1,0)="This is the highest postoperative WBC for the patient selected."
^DD(130,281,21,2,0)="Data input must be 1 to 4 numeric characters in length which may include"
^DD(130,281,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,281,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,281,"DT")="2970410"
^DD(130,282,0)="LOWEST SERUM ALBUMIN^NJ3,1X^^203;11^S NYUK=X K:+X'=X!(X>50)!(X<0)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,282,.1)="Lowest Postoperative Serum Albumin"
^DD(130,282,3)="Enter the highest postoperative serum albumin test result.  Your answer must be between 0 and 50."
^DD(130,282,21,0)="^^3^3^2910604^"
^DD(130,282,21,1,0)="This is the lowest postoperative serum albumin result for the"
^DD(130,282,21,2,0)="patient selected."
^DD(130,282,21,3,0)=" "
^DD(130,282,"DT")="2910715"
^DD(130,283,0)="LOWEST HEMATOCRIT^FX^^203;12^K:$L(X)>4!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,283,.1)="Lowest Postoperative Hematocrit"
^DD(130,283,3)="Answer must be 1-4 characters in length."
^DD(130,283,21,0)="^^4^4^2970411^"
^DD(130,283,21,1,0)="This is the lowest postoperative hematocrit result recorded for this"
^DD(130,283,21,2,0)="patient. Data input must be 1 to 4 numeric characters in length which may"
^DD(130,283,21,3,0)="include a prefix of a less than or greater than sign ""<"" or "">""."
^DD(130,283,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,283,"DT")="2970410"
^DD(130,284,0)="ASSESSMENT TYPE^S^C:CARDIAC;N:NON-CARDIAC;^RA;2^Q"
^DD(130,284,.1)="Risk Assessment Type (Cardiac or Non-Cardiac)"
^DD(130,284,21,0)="^^3^3^2910328^^"
^DD(130,284,21,1,0)="This determines whether this surgical risk assessment is a cardiac"
^DD(130,284,21,2,0)="or non-cardiac procedure."
^DD(130,284,21,3,0)=" "
^DD(130,284,"DT")="2910328"
^DD(130,285,0)="ON VENTILATOR >48 HOURS^*S^Y:YES;N:NO;NS:NO STUDY;^205;13^Q"
^DD(130,285,.1)="On Ventilator > or = 48 Hours (Y/N)"
^DD(130,285,3)="Enter YES if the total duration of ventilator-assisted respiration during the postoperative hospitalization was > or = 48 hours."
^DD(130,285,12)="Screen prevents selection of retired code."
^DD(130,285,12.1)="S DIC(""S"")=""I Y'=""""NS"""""""
^DD(130,285,21,0)="^^10^10^3070223^"
^DD(130,285,21,1,0)="NSQIP Definition (2004):"
^DD(130,285,21,2,0)="Total duration of ventilator-assisted respirations during postoperative"
^DD(130,285,21,3,0)="hospitalization was >48 hours. This can occur at any time during the"
^DD(130,285,21,4,0)="30-day period postoperatively. This time assessment is CUMULATIVE, not"
^DD(130,285,21,5,0)="necessarily consecutive. Ventilator-assisted respirations can be via"
^DD(130,285,21,6,0)="endotracheal tube, nasotracheal tube, or tracheostomy tube."
^DD(130,285,21,7,0)=" "
^DD(130,285,21,8,0)="CICSP Definition (2007):"
^DD(130,285,21,9,0)="Indicate if the total duration of ventilator-assisted respiration"
^DD(130,285,21,10,0)="within 30 days post-operatively was greater than or equal to 48 hours."
^DD(130,285,"DT")="3070118"
^DD(130,286,0)="OTHER URINARY TRACT OCCURRENCE^*P80'XO^ICD9(^205;19^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,286,.1)="Other Urinary Tract Occurrences (ICD Diagnosis)"
^DD(130,286,2)="S Y(0)=Y I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,286,2.1)="I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,286,3)="Enter the ICD Diagnosis code for the postoperative urinary tract occurrence."
^DD(130,286,12)="Screen prevents selection of inactive diagnosis."
^DD(130,286,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,286,21,0)="^^4^4^3040318^"
^DD(130,286,21,1,0)="NSQIP Definition (2004):"
^DD(130,286,21,2,0)="Enter any other urinary occurrences which you feel to be significant "
^DD(130,286,21,3,0)="and that are not covered by the predefined urinary tract occurrence"
^DD(130,286,21,4,0)="categories. Enter the ICD-9-CM code for this entry."
^DD(130,286,"DT")="3040318"
^DD(130,287,0)="PERIPHERAL NERVE INJURY^S^Y:YES;N:NO;NS:NO STUDY;^205;23^Q"
^DD(130,287,.1)="Peripheral Nerve Injury (Y/N)"
^DD(130,287,3)="Enter YES if the patient has major peripheral neurological injuries."
^DD(130,287,21,0)="^^6^6^3070214^"
^DD(130,287,21,1,0)="NSQIP Definition (2007):"
^DD(130,287,21,2,0)="Peripheral nerve damage may result from damage to the nerve fibers, "
^DD(130,287,21,3,0)="cell body, or myelin sheath during surgery. Peripheral nerve injuries"
^DD(130,287,21,4,0)="which result in motor deficits only to the cervical plexus, brachial"
^DD(130,287,21,5,0)="plexus, ulnar plexus, lumbar-sacral plexus (sciatic nerve), peroneal"
^DD(130,287,21,6,0)="nerve, and/or the femoral nerve should be included."
^DD(130,287,"DT")="3040316"
^DD(130,288,0)="PREOPERATIVE CPK, DATE^D^^202;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,288,.1)="Date Preoperative CPK was Performed"
^DD(130,288,3)="Enter the date that the preoperative CPK test was performed."
^DD(130,288,21,0)="^^2^2^2910513^"
^DD(130,288,21,1,0)="This is the date that the preoperative CPK was performed."
^DD(130,288,21,2,0)=" "
^DD(130,289,0)="PREOPERATIVE MB BAND, DATE^D^^202;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,289,.1)="Date Preoperative MB Band was Performed"
^DD(130,289,3)="Enter the date that the preoperative MB Band was performed."
^DD(130,289,21,0)="^^2^2^2910513^"
^DD(130,289,21,1,0)="This is the date that the preoperative MB Band was performed."
^DD(130,289,21,2,0)=" "
^DD(130,290,0)="PREOP SERUM CREATININE, DATE^DX^^202;4^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,290,.1)="Date Preoperative Serum Creatinine was Performed"
^DD(130,290,3)="Enter the date that the preoperative Serum Creatinine was performed."
^DD(130,290,21,0)="^^3^3^2910513^"
^DD(130,290,21,1,0)="This is the date that the preoperative Serum Creatinine test was"
^DD(130,290,21,2,0)="performed."
^DD(130,290,21,3,0)=" "
^DD(130,290,"DT")="3070119"
^DD(130,291,0)="PREOPERATIVE BUN, DATE^DX^^202;5^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,291,.1)="Date Preoperative BUN was Performed"
^DD(130,291,3)="Enter the date that the preoperative BUN was performed."
^DD(130,291,21,0)="^^2^2^2910513^"
^DD(130,291,21,1,0)="This is the date that the preoperative BUN was performed."
^DD(130,291,21,2,0)=" "
^DD(130,291,"DT")="3070119"
^DD(130,292,0)="PREOP SERUM ALBUMIN, DATE^DX^^202;8^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,292,.1)="Date Preoperative Serum Albumin was Performed"
^DD(130,292,3)="Enter the date that the preoperative Serum Albumin was performed."
^DD(130,292,21,0)="^^3^3^2910513^"
^DD(130,292,21,1,0)="This is the date that the preoperative Serum Albumin test was"
^DD(130,292,21,2,0)="performed."
^DD(130,292,21,3,0)=" "
^DD(130,292,"DT")="3070119"
^DD(130,293,0)="SGPT, DATE PERFORMED^D^^202;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,293,.1)="Date Preoperative SGPT was Performed"
^DD(130,293,3)="Enter the date that the preoperative SGPT was performed."
^DD(130,293,21,0)="^^2^2^2910513^"
^DD(130,293,21,1,0)="This is the date that the preoperative SGPT was performed."
^DD(130,293,21,2,0)=" "
^DD(130,294,0)="SGOT, DATE PERFORMED^DX^^202;11^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,294,.1)="Date Preoperative SGOT was Performed"
^DD(130,294,3)="Enter the date that the preoperative SGOT was performed."
^DD(130,294,21,0)="^^2^2^2910513^"
^DD(130,294,21,1,0)="This is the date that the preoperative SGOT was performed."
^DD(130,294,21,2,0)=" "
^DD(130,294,"DT")="3070119"
^DD(130,295,0)="PREOP TOTAL BILIRUBIN, DATE^DX^^202;9^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,295,.1)="Date Preoperative Total Bilrubin was Performed"
^DD(130,295,3)="Enter the date that the preoperative Total Bilirubin was performed."
^DD(130,295,21,0)="^^2^2^2910513^"
^DD(130,295,21,1,0)="This is the date that the preoperative total bilirubin was performed."
^DD(130,295,21,2,0)=" "
^DD(130,295,"DT")="3070119"
^DD(130,296,0)="PREOP ALK PHOSPHATASE, DATE^DX^^202;12^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,296,.1)="Date Preoperative Alkaline Phosphatase was Performed"
^DD(130,296,3)="Enter the date that the preoperative Alkaline Phosphatase was performed."
^DD(130,296,21,0)="^^3^3^2910513^"
^DD(130,296,21,1,0)="This is the date that the preoperative alkaline phosphatase"
^DD(130,296,21,2,0)="test was performed."
^DD(130,296,21,3,0)=" "
^DD(130,296,"DT")="3070119"
^DD(130,297,0)="PREOPERATIVE WBC, DATE^DX^^202;13^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,297,.1)="Date Preoperative WBC was Performed"
^DD(130,297,3)="Enter the date that the preoperative WBC was performed."
^DD(130,297,21,0)="^^2^2^2910513^"
^DD(130,297,21,1,0)="This is the date that the preoperative WBC test was performed."
^DD(130,297,21,2,0)=" "
^DD(130,297,"DT")="3070119"
^DD(130,298,0)="PREOP PLATELET COUNT, DATE^DX^^202;15^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,298,.1)="Date Preoperative Platelet Count was Performed"
^DD(130,298,3)="Enter the date that the preoperative Platelet Count was performed."
^DD(130,298,21,0)="^^3^3^2910513^"
^DD(130,298,21,1,0)="This is the date that the preoperative platelet count was"
^DD(130,298,21,2,0)="performed."
^DD(130,298,21,3,0)=" "
^DD(130,298,"DT")="3070119"
^DD(130,299,0)="PREOPERATIVE PT, DATE^DX^^202;17^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,299,.1)="Date Preoperative PT was Performed"
^DD(130,299,3)="Enter the date that the preoperative PT was performed."
^DD(130,299,21,0)="^^2^2^2910513^"
^DD(130,299,21,1,0)="This is the date that the preoperative PT test was performed."
^DD(130,299,21,2,0)=" "
^DD(130,299,"DT")="3070119"
^DD(130,300,0)="PREOPERATIVE PTT, DATE^DX^^202;16^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,300,.1)="Date Preoperative PTT was Performed"
^DD(130,300,3)="Enter the date that the preoperative PTT was performed."
^DD(130,300,21,0)="^^2^2^2910513^"
^DD(130,300,21,1,0)="This is the date that the preoperative PTT test was performed."
^DD(130,300,21,2,0)=" "
^DD(130,300,"DT")="3070119"
^DD(130,301,0)="PREOP HEMATOCRIT, DATE^DX^^202;14^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,301,.1)="Date Preoperative Hematocrit was Performed"
^DD(130,301,3)="Enter the date that the preoperative Hematocrit test was performed."
^DD(130,301,21,0)="^^2^2^2910513^"
^DD(130,301,21,1,0)="This is the date that the preoperative hematocrit was performed."
^DD(130,301,21,2,0)=" "
^DD(130,301,"DT")="3070119"
^DD(130,302,0)="PREOPERATIVE GLUCOSE, DATE^D^^202;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,302,.1)="Date Preoperative Glucose was Performed"
^DD(130,302,3)="Enter the date that the preoperative Glucose test was performed."
^DD(130,302,21,0)="^^2^2^2910513^"
^DD(130,302,21,1,0)="This is the date that the preoperative glucose test was performed."
^DD(130,302,21,2,0)=" "
^DD(130,303,0)="PREOP POTASSIUM, DATE^D^^202;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,303,.1)="Date Preoperative Potassium was Performed"
^DD(130,303,3)="Enter the date that the preoperative Potassium test was performed."
^DD(130,303,21,0)="^^2^2^2910513^"
^DD(130,303,21,1,0)="This is the date that the preoperative potassium test was performed."
^DD(130,303,21,2,0)=" "
^DD(130,304,0)="PREOP SERUM SODIUM, DATE^DX^^202;1^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,304,.1)="Date Preoperative Serum Sodium was Performed"
^DD(130,304,3)="Enter the date that the preoperative Serum Sodium test was performed."
^DD(130,304,21,0)="^^2^2^2910513^"
^DD(130,304,21,1,0)="This is the date that the preoperative serum sodium test was performed."
^DD(130,304,21,2,0)=" "
^DD(130,304,"DT")="3070119"
^DD(130,305,0)="HIGH SERUM SODIUM, DATE^DX^^204;1^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,305,.1)="Date Highest Serum Sodium was Recorded"
^DD(130,305,3)="Enter the date that the highest Serum Sodium result was recorded."
^DD(130,305,21,0)="^^2^2^2910513^"
^DD(130,305,21,1,0)="This is the date that the highest Serum Sodium result was recorded."
^DD(130,305,21,2,0)=" "
^DD(130,305,"DT")="3070119"
^DD(130,306,0)="HIGH POTASSIUM, DATE^DX^^204;3^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,306,.1)="Date Highest Potassium was Recorded"
^DD(130,306,3)="Enter the date that the highest Potassium result was recorded."
^DD(130,306,21,0)="^^2^2^2910513^"
^DD(130,306,21,1,0)="This is the date that the highest Potassium result was recorded."
^DD(130,306,21,2,0)=" "
^DD(130,306,"DT")="3070119"
^DD(130,307,0)="HIGH GLUCOSE, DATE^D^^204;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,307,.1)="Date Highest Glucose was Recorded"
^DD(130,307,3)="Enter the date that the highest Glucose result was recorded."
^DD(130,307,21,0)="^^2^2^2910513^"
^DD(130,307,21,1,0)="This is the date that the highest Glucose result was recorded."
^DD(130,307,21,2,0)=" "
^DD(130,308,0)="HIGH SERUM CREATININE, DATE^DX^^204;6^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,308,.1)="Date Highest Serum Creatinine was Recorded"
^DD(130,308,3)="Enter the date that the highest Serum Creatinine result was recorded."
^DD(130,308,21,0)="^^3^3^2910513^"
^DD(130,308,21,1,0)="This is the date that the highest Serum Creatinine result was"
^DD(130,308,21,2,0)="recorded."
^DD(130,308,21,3,0)=" "
^DD(130,308,"DT")="3070119"
^DD(130,309,0)="HIGH CPK, DATE^DX^^204;7^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,309,.1)="Date Highest CPK was Recorded"
^DD(130,309,3)="Enter the date that the highest CPK result was recorded."
^DD(130,309,21,0)="^^2^2^2910513^"
^DD(130,309,21,1,0)="This is the date that the highest CPK result was recorded."
^DD(130,309,21,2,0)=" "
^DD(130,309,"DT")="3070119"
^DD(130,310,0)="HIGH CPK-MB, DATE^DX^^204;8^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,310,.1)="Date Highest CPK-MB Band was Recorded"
^DD(130,310,3)="Enter the date that the highest CPK-MB Band result was recorded."
^DD(130,310,21,0)="^^3^3^2910513^"
^DD(130,310,21,1,0)="This is the date that the highest CPK-MB Band result was"
^DD(130,310,21,2,0)="recorded."
^DD(130,310,21,3,0)=" "
^DD(130,310,"DT")="3070119"
^DD(130,311,0)="HIGH TOTAL BILIRUBIN, DATE^DX^^204;9^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,311,.1)="Date Highest Total Bilirubin was Recorded"
^DD(130,311,3)="Enter the date that the highest Total Bilirubin result was recorded."
^DD(130,311,21,0)="^^2^2^2910513^"
^DD(130,311,21,1,0)="This is the date that the highest Total Bilirubin was recorded."
^DD(130,311,21,2,0)=" "
^DD(130,311,"DT")="3070119"
^DD(130,312,0)="HIGHEST WBC, DATE^DX^^204;10^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,312,.1)="Date Highest WBC was Recorded"
^DD(130,312,3)="Enter the date that the highest WBC result was recorded."
^DD(130,312,21,0)="^^2^2^2910513^"
^DD(130,312,21,1,0)="This is the date that the highest WBC was recorded."
^DD(130,312,21,2,0)=" "
^DD(130,312,"DT")="3070119"
^DD(130,313,0)="LOW SERUM ALBUMIN, DATE^D^^204;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(130,313,.1)="Date Lowest Serum Albumin was Recorded"
^DD(130,313,3)="Enter the date that the lowest Serum Albumin result was recorded."
^DD(130,313,21,0)="^^2^2^2910513^"
^DD(130,313,21,1,0)="This is the date that the lowest Serum Albumin result was recorded."
^DD(130,313,21,2,0)=" "
^DD(130,314,0)="LOW HEMATOCRIT, DATE^DX^^204;12^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,314,.1)="Date Lowest Hematocrit was Recorded"
^DD(130,314,3)="Enter the date that the lowest Hematocrit result was recorded."
^DD(130,314,21,0)="^^2^2^2910513^"
^DD(130,314,21,1,0)="This is the date that the lowest Hematocrit result was recorded."
^DD(130,314,21,2,0)=" "
^DD(130,314,"DT")="3070119"
^DD(130,315,0)="PREOPERATIVE PT CONTROL^NJ4,1X^^201;19^S NYUK=X K:+X'=X!(X>15)!(X<9)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,315,.1)="Preoperative PT Control"
^DD(130,315,3)="Enter the preoperative PT Control result.  Your answer must be between 9 and 15."
^DD(130,315,21,0)="^^3^3^2910604^"
^DD(130,315,21,1,0)="This is the result of the preoperative PT control.  Your answer must"
^DD(130,315,21,2,0)="be between 9 and 15."
^DD(130,315,21,3,0)=" "
^DD(130,315,"DT")="2910715"
^DD(130,316,0)="PREOPERATIVE PTT CONTROL^NJ4,1X^^201;18^S NYUK=X K:+X'=X!(X>40)!(X<15)!(X?.E1"".""2N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,316,.1)="Preoperative PTT Control"
^DD(130,316,3)="Enter the preoperative PTT Control result.  Your answer must be between 15 and 40."
^DD(130,316,21,0)="^^3^3^2910604^"
^DD(130,316,21,1,0)="This is the preoperative PTT control result.  Your answer must be"
^DD(130,316,21,2,0)="between 15 and 40."
^DD(130,316,21,3,0)=" "
^DD(130,316,"DT")="2910715"
^DD(130,318,0)="RESPIRATORY OCCURRENCES^S^Y:YES;N:NO;NS:NO STUDY;^205;9^Q"
^DD(130,318,.1)="Postoperative Respiratory Occurrences (Y/N)"
^DD(130,318,3)="Enter 'YES' if this patient has had postoperative respiratory occurrences."
^DD(130,318,21,0)="^^6^6^2910718^^^^"
^DD(130,318,21,1,0)="This determines whether the patient had postoperative respiratory"
^DD(130,318,21,2,0)="occurrences.  A respiratory occurrence is defined as an impairment"
^DD(130,318,21,3,0)="to the lungs to perform their ventilatory function.  This may be"
^DD(130,318,21,4,0)="due to impairment of gas exchange in the lung or obstruction of"
^DD(130,318,21,5,0)="the free flow of air to the lung."
^DD(130,318,21,6,0)=" "
^DD(130,318,"DT")="2910820"
^DD(130,319,0)="URINARY TRACT OCCURRENCES^S^Y:YES;N:NO;NS:NO STUDY;^205;15^Q"
^DD(130,319,.1)="Postoperative Urinary Tract Occurrences (Y/N)"
^DD(130,319,3)="Enter 'YES' if the patient has had postoperative urinary tract occurrences."
^DD(130,319,21,0)="^^5^5^2910920^^^"
^DD(130,319,21,1,0)="This determines whether the patient has had postoperative urinary"
^DD(130,319,21,2,0)="tract occurrences.  Urinary tract occurrences are defined as "
^DD(130,319,21,3,0)="difficulties related to the organs and ducts participating in"
^DD(130,319,21,4,0)="the secretion and elimination of urine."
^DD(130,319,21,5,0)=" "
^DD(130,319,"DT")="2910820"
^DD(130,320,0)="CNS OCCURRENCES^S^Y:YES;N:NO;NS:NO STUDY;^205;20^Q"
^DD(130,320,.1)="CNS Occurrences (Y/N)"
^DD(130,320,3)="Enter 'YES' if the patient has had any postoperative CNS occurrences."
^DD(130,320,21,0)="^^5^5^2910715^^"
^DD(130,320,21,1,0)="This determines whether the patient has had any postoperative "
^DD(130,320,21,2,0)="central nervous system (CNS) occurrences.  These occurrences "
^DD(130,320,21,3,0)="are defined as difficulties related to the brain and spinal cord,"
^DD(130,320,21,4,0)="with their nerves and end-organs that control voluntary acts."
^DD(130,320,21,5,0)=" "
^DD(130,320,"DT")="2910820"
^DD(130,321,0)="CARDIAC OCCURRENCES^S^Y:YES;N:NO;NS:NO STUDY;^205;25^Q"
^DD(130,321,.1)="Cardiac Occurrences (Y/N)"
^DD(130,321,3)="Enter 'YES' if the patient has had any postoperative cardiac occurrences."
^DD(130,321,21,0)="^^4^4^2910715^^"
^DD(130,321,21,1,0)="This determines whether the patient has had any postoperative cardiac"
^DD(130,321,21,2,0)="occurrences.  Cardiac occurrences are defined as difficulties"
^DD(130,321,21,3,0)="encountered involving the cardiac system."
^DD(130,321,21,4,0)=" "
^DD(130,321,"DT")="2910820"
^DD(130,322,0)="OTHER OCCURRENCES^S^Y:YES;N:NO;NS:NO STUDY;^205;30^Q"
^DD(130,322,.1)="Other Postoperative Occurrences (Y/N)"
^DD(130,322,3)="Enter 'YES' if the patient has had other occurrences not included in the other occurrence categories."
^DD(130,322,21,0)="^^4^4^2910607^"
^DD(130,322,21,1,0)="This determines whether the patient has had postoperative occurrences,"
^DD(130,322,21,2,0)="such as Graft/Prosthesis Failure or Unplanned Return to OR, not included"
^DD(130,322,21,3,0)="in any of the other categories."
^DD(130,322,21,4,0)=" "
^DD(130,322,"DT")="2910820"
^DD(130,323,0)="CREATE RISK ASSESSMENT^S^Y:YES;N:NO;^RA;6^Q"
^DD(130,323,.1)="Do you want to create a Risk Assessment for this Surgical Case"
^DD(130,323,3)="Enter 'YES' if you are going to create a risk assessment for this surgical case."
^DD(130,323,21,0)="^^5^5^2910624^"
^DD(130,323,21,1,0)="This determines whether a risk assessment will be created for this"
^DD(130,323,21,2,0)="surgical case.  If answered 'NO', the information will automatically"
^DD(130,323,21,3,0)="be completed so that the information will be transmitted without any"
^DD(130,323,21,4,0)="additional intervention."
^DD(130,323,21,5,0)=" "
^DD(130,323,"DT")="2910624"
^DD(130,324,0)="DRUG ADDICTION^S^Y:YES;N:NO;NS:NO STUDY;^200;5^Q"
^DD(130,324,.1)="Drug Addiction (Y/N)"
^DD(130,324,3)="Enter 'YES' if this patient admits to recreational or narcotic substance abuse."
^DD(130,324,21,0)="^^4^4^2910919^^^"
^DD(130,324,21,1,0)="This determines whether this patient has a history of recreational"
^DD(130,324,21,2,0)="or narcotic substance abuse.  There is no time limit on this data"
^DD(130,324,21,3,0)="element."
^DD(130,324,21,4,0)=" "
^DD(130,324,"DT")="2910820"
^DD(130,325,0)="DYSPNEA^S^1:NO;2:MODERATE EXERTION;3:AT REST;NS:NO STUDY;^200;6^Q"
^DD(130,325,.1)="Dyspnea"
^DD(130,325,3)="Enter the category that most appropriately applies to this patient."
^DD(130,325,21,0)="^^18^18^3070305^"
^DD(130,325,21,1,0)="NSQIP Definition (2007):"
^DD(130,325,21,2,0)="The patient describes difficult, painful, or labored breathing.  "
^DD(130,325,21,3,0)="Dyspnea may be symptomatic of numerous disorders that interfere with"
^DD(130,325,21,4,0)="adequate ventilation or perfusion of the blood with oxygen. The"
^DD(130,325,21,5,0)="dyspneic patient is subjectively aware of difficulty with breathing.  "
^DD(130,325,21,6,0)="Select one of the following categories that best indicates the"
^DD(130,325,21,7,0)="patient's subjective experience coupled with your objective assessment:"
^DD(130,325,21,8,0)=" "
^DD(130,325,21,9,0)=" (1) No dyspnea "
^DD(130,325,21,10,0)=" (2) Dyspnea upon moderate exertion (e.g., is unable to climb one"
^DD(130,325,21,11,0)="     flight of stairs without shortness of breath)"
^DD(130,325,21,12,0)=" (3) Dyspnea at rest (e.g., cannot complete a sentence without needing"
^DD(130,325,21,13,0)="     to take a breath)"
^DD(130,325,21,14,0)=" "
^DD(130,325,21,15,0)="The time frame is at the time the patient is being considered as a"
^DD(130,325,21,16,0)="candidate for surgery (which should be no longer than 30 days prior to "
^DD(130,325,21,17,0)="surgery). If the patient's dyspnea status worsens prior to surgery, "
^DD(130,325,21,18,0)="report the most severe."
^DD(130,325,"DT")="3050220"
^DD(130,326,0)="CURRENT PNEUMONIA^S^Y:YES;N:NO;NS:NO STUDY;^200;12^Q"
^DD(130,326,.1)="Current Pneumonia (Y/N)"
^DD(130,326,3)="Enter YES if the patient has Pneumonia."
^DD(130,326,21,0)="^^28^28^3070213^"
^DD(130,326,21,1,0)="NSQIP Definition (2007):"
^DD(130,326,21,2,0)="Report patients with evidence of pneumonia at the time the patient is "
^DD(130,326,21,3,0)="brought to the OR. Patients with pneumonia must meet ONE of the "
^DD(130,326,21,4,0)="following two criteria:"
^DD(130,326,21,5,0)=" "
^DD(130,326,21,6,0)="Criterion 1."
^DD(130,326,21,7,0)="  Rales or dullness to percussion on physical examination of chest AND"
^DD(130,326,21,8,0)="  any of the following:"
^DD(130,326,21,9,0)="  a. New onset of purulent sputum or change in character of sputum"
^DD(130,326,21,10,0)="  b. Organism isolate from blood culture"
^DD(130,326,21,11,0)="  c. Isolation of pathogen from specimen obtained by transtracheal"
^DD(130,326,21,12,0)="     aspirate, bronchial brushing, or biopsy"
^DD(130,326,21,13,0)=" "
^DD(130,326,21,14,0)=" OR"
^DD(130,326,21,15,0)=" "
^DD(130,326,21,16,0)="Criterion 2."
^DD(130,326,21,17,0)="  Chest radiographic examination shows new or progressive infiltrate, "
^DD(130,326,21,18,0)="  consolidation, cavitation, or pleural effusion AND any of the "
^DD(130,326,21,19,0)="  following:"
^DD(130,326,21,20,0)="  a. New onset of purulent sputum or change in character of sputum"
^DD(130,326,21,21,0)="  b. Organism isolated from blood culture"
^DD(130,326,21,22,0)="  c. Isolation of pathogen from specimen obtained by transtracheal    "
^DD(130,326,21,23,0)="     aspirate, bronchial brushing, or biopsy"
^DD(130,326,21,24,0)="  d. Isolation of virus or detection of viral antigen in respiratory"
^DD(130,326,21,25,0)="     secretions"
^DD(130,326,21,26,0)="  e. Diagnostic single antibody titer (IgM) or fourfold increase in"
^DD(130,326,21,27,0)="     paired serum samples (IgG) for pathogen"
^DD(130,326,21,28,0)="  f. Histopathologic evidence of pneumonia"
^DD(130,326,"DT")="3040316"
^DD(130,327,0)="ACTIVE HEPATITIS^S^Y:YES;N:NO;NS:NO STUDY;^200;17^Q"
^DD(130,327,.1)="Active Hepatitis (Y/N)"
^DD(130,327,3)="Enter 'YES' if this patient has active hepatitis."
^DD(130,327,21,0)="^^6^6^2910919^^^"
^DD(130,327,21,1,0)="This determines whether the patient has active hepatitis.  Active Hepatitis"
^DD(130,327,21,2,0)="is defined as an active inflammation of the liver evidenced by elevated"
^DD(130,327,21,3,0)="liver enzymes.  The most common causes are viral hepatitis documented by"
^DD(130,327,21,4,0)="positive serologies (A,B, or C) and recent excessive alcohol intake,"
^DD(130,327,21,5,0)="or drug induced hepatitis."
^DD(130,327,21,6,0)=" "
^DD(130,327,"DT")="2910820"
^DD(130,328,0)="RENAL FAILURE^S^Y:YES;N:NO;NS:NO STUDY;^200;38^Q"
^DD(130,328,.1)="Acute Renal Failure (Y/N)"
^DD(130,328,3)="Enter YES if the patient has acute renal failure."
^DD(130,328,21,0)="^^4^4^3040701^"
^DD(130,328,21,1,0)="NSQIP Definition (2004):"
^DD(130,328,21,2,0)="The clinical condition associated with rapid, steadily increasing "
^DD(130,328,21,3,0)="azotemia (increase in BUN), and a rising creatinine of above 3 mg/dl."
^DD(130,328,21,4,0)="Acute renal failure should be noted within 24 hours prior to surgery.  "
^DD(130,328,"DT")="3040701"
^DD(130,329,0)="REVASCULARIZATION/AMPUTATION^S^Y:YES;N:NO;NS:NO STUDY;^200;41^Q"
^DD(130,329,.1)="History of Revascularization/Amputation for PVD (Y/N)"
^DD(130,329,3)="Enter 'YES' if the patient has a history of revascularization/amputation for PVD."
^DD(130,329,21,0)="^^8^8^3040316^"
^DD(130,329,21,1,0)="NSQIP Definition (2004):"
^DD(130,329,21,2,0)="Any type of angioplasty or revascularization procedure for "
^DD(130,329,21,3,0)="atherosclerotic peripheral vascular disease (PVD) (e.g., aorto-femoral,"
^DD(130,329,21,4,0)="femoral-femoral, femoral-popliteal) or a patient who has had any type"
^DD(130,329,21,5,0)="of amputation procedure for PVD (e.g., toe amputations, transmetatarsal"
^DD(130,329,21,6,0)="amputations, below the knee or above the knee amputations). Patients"
^DD(130,329,21,7,0)="who have had amputation for trauma or a resection of abdominal aortic"
^DD(130,329,21,8,0)="aneurysms should not be included."
^DD(130,329,"DT")="3040316"
^DD(130,330,0)="REST PAIN/GANGRENE (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;42^Q"
^DD(130,330,.1)="Rest Pain/Gangrene (Y/N)"
^DD(130,330,3)="Enter 'YES' if the patient suffers from rest pain/gangrene."
^DD(130,330,21,0)="^^9^9^3070123^"
^DD(130,330,21,1,0)="NSQIP Definition (2007):"
^DD(130,330,21,2,0)="Rest pain is a more severe form of ischemic pain due to occlusive "
^DD(130,330,21,3,0)="disease, which occurs at rest and is manifested as a severe, "
^DD(130,330,21,4,0)="unrelenting pain aggravated by elevation and often preventing sleep.  "
^DD(130,330,21,5,0)="Gangrene is a marked skin discoloration and disruption indicative of "
^DD(130,330,21,6,0)="death and decay of tissues in the extremities due to severe and "
^DD(130,330,21,7,0)="prolonged ischemia. Include patients with ischemic ulceration and/or "
^DD(130,330,21,8,0)="tissue loss related to peripheral vascular disease. Do not include "
^DD(130,330,21,9,0)="Fournier's gangrene. Report only if within the 30 days preoperatively."
^DD(130,330,"DT")="3040316"
^DD(130,331,0)="ABSENT PERIPHERAL PULSES^S^Y:YES;N:NO;NS:NO STUDY;^200;43^Q"
^DD(130,331,.1)="Absent Peripheral Pulses (Y/N)"
^DD(130,331,3)="Enter 'YES' if the patient has been diagnosed as having absent peripheral pulses."
^DD(130,331,21,0)="^^5^5^2910919^"
^DD(130,331,21,1,0)="This determines whether the patient has been diagnosed on the"
^DD(130,331,21,2,0)="physical examination to have absent femoral, popliteal, or"
^DD(130,331,21,3,0)="pedal pulses.  If he or she has had a previous amputation, "
^DD(130,331,21,4,0)="record pulses as present or absent in the remaining limb."
^DD(130,331,21,5,0)=" "
^DD(130,331,"DT")="2910910"
^DD(130,332,0)="IMPAIRED SENSORIUM^S^Y:YES;N:NO;NS:NO STUDY;^200;19^Q"
^DD(130,332,.1)="Impaired Sensorium (Y/N)"
^DD(130,332,3)="Enter YES if this patient has impaired sensorium."
^DD(130,332,21,0)="^^34^34^3040316^"
^DD(130,332,21,1,0)="NSQIP Definition (2004):"
^DD(130,332,21,2,0)="Patient is acutely confused and/or delirious and responds to verbal "
^DD(130,332,21,3,0)="and/or mild tactile stimulation. Patients should be noted to have "
^DD(130,332,21,4,0)="developed an impaired sensorium if they have mental status changes, "
^DD(130,332,21,5,0)="and/or delirium in the context of the current illness. Patients with "
^DD(130,332,21,6,0)="chronic or long-standing mental status changes secondary to chronic "
^DD(130,332,21,7,0)="mental illness (e.g., schizophrenia) or chronic dementing illnesses "
^DD(130,332,21,8,0)="(e.g., multi-infarct dementia, senile dementia of the Alzheimer's type)"
^DD(130,332,21,9,0)="should not be included. This assessment of the patient's mental status"
^DD(130,332,21,10,0)="should be within 48 hours prior to the surgical procedure. If the "
^DD(130,332,21,11,0)="patient develops impaired sensorium, then progresses to a coma, and "
^DD(130,332,21,12,0)="remains in a coma entering surgery, report just coma."
^DD(130,332,21,13,0)=" "
^DD(130,332,21,14,0)=" Example: A patient is admitted to the orthopedics service after a fall"
^DD(130,332,21,15,0)=" with a fractured hip. The patient is also noted to be dehydrated and"
^DD(130,332,21,16,0)=" febrile. He is disoriented to place and time and seems confused. His"
^DD(130,332,21,17,0)=" family reports that he has been oriented and alert prior to the fall."
^DD(130,332,21,18,0)=" This patient has an impaired sensorium on the basis of his confusion"
^DD(130,332,21,19,0)=" and disorientation."
^DD(130,332,21,20,0)=" "
^DD(130,332,21,21,0)=" Example: A patient is admitted to the general surgical service with"
^DD(130,332,21,22,0)=" biliary sepsis and high spiking fevers. While febrile, the patient is"
^DD(130,332,21,23,0)=" noted by the clinician to be disoriented and confused. This patient"
^DD(130,332,21,24,0)=" has an impaired sensorium."
^DD(130,332,21,25,0)=" "
^DD(130,332,21,26,0)=" Example: A long-term resident of a VA nursing home with chronic"
^DD(130,332,21,27,0)=" schizophrenia is admitted for an elective hernia repair. He is noted"
^DD(130,332,21,28,0)=" to have long-standing mental status changes and is chronically"
^DD(130,332,21,29,0)=" disoriented to place, time, and person. Although this patient has"
^DD(130,332,21,30,0)=" disorientation, his mental status changes are long-standing, chronic,"
^DD(130,332,21,31,0)=" and unchanged and would not qualify for ""impaired sensorium."""
^DD(130,332,21,32,0)=" "
^DD(130,332,21,33,0)=" Note: These examples would apply only if noted within 48 hours prior "
^DD(130,332,21,34,0)=" to surgery"
^DD(130,332,"DT")="3040316"
^DD(130,333,0)="COMA^S^Y:YES;N:NO;NS:NO STUDY;^200;21^Q"
^DD(130,333,.1)="Coma (Y/N)"
^DD(130,333,3)="Enter YES if the patient is in a coma."
^DD(130,333,21,0)="^.001^4^4^3040721^^"
^DD(130,333,21,1,0)="NSQIP Definition (2004):"
^DD(130,333,21,2,0)="Patient is unconscious, postures to painful stimuli, or is unresponsive"
^DD(130,333,21,3,0)="to all stimuli entering surgery. This does not include drug-induced"
^DD(130,333,21,4,0)="coma."
^DD(130,333,"DT")="3040629"
^DD(130,334,0)="HISTORY OF TIA'S^S^Y:YES;N:NO;NS:NO STUDY;^200;25^Q"
^DD(130,334,.1)="History of TIA's (Y/N)"
^DD(130,334,3)="Enter YES if the patient has a history of TIA's."
^DD(130,334,21,0)="^^6^6^3040316^"
^DD(130,334,21,1,0)="NSQIP Definition (2004):"
^DD(130,334,21,2,0)="Transient ischemic attacks (TIAs) are focal neurologic deficits (e.g. "
^DD(130,334,21,3,0)="numbness of an arm or amaurosis fugax) of sudden onset and brief "
^DD(130,334,21,4,0)="duration (usually <30 minutes), which usually reflect dysfunction in a "
^DD(130,334,21,5,0)="cerebral vascular distribution. These attacks may be recurrent and, at"
^DD(130,334,21,6,0)="times, may precede a stroke.        "
^DD(130,334,"DT")="3040316"
^DD(130,335,0)="CVA/STROKE WITH NEURO DEFICIT^S^Y:YES;N:NO;NS:NO STUDY;^200;26^Q"
^DD(130,335,.1)="CVA/Stroke With Neurologic Deficit (Y/N)"
^DD(130,335,3)="Enter YES if the patient has a history CVA/stroke with residual neurologic deficit."
^DD(130,335,21,0)="^^7^7^3040316^"
^DD(130,335,21,1,0)="NSQIP Definition (2004):"
^DD(130,335,21,2,0)="History of a cerebrovascular accident (embolic, thrombotic, or "
^DD(130,335,21,3,0)="hemorrhagic) with persistent residual motor, sensory, or cognitive "
^DD(130,335,21,4,0)="dysfunction. (e.g., hemiplegia, hemiparesis, aphasia, sensory deficit, "
^DD(130,335,21,5,0)="impaired memory). If the neurological deficit is "
^DD(130,335,21,6,0)="hemiplegia/hemiparesis, also enter YES to Hemiplegia/Hemiparesis in "
^DD(130,335,21,7,0)="addition to CVA/Stroke. "
^DD(130,335,"DT")="3040316"
^DD(130,336,0)="CVA/STROKE - NO NEURO DEFICIT^S^Y:YES;N:NO;NS:NO STUDY;^200;27^Q"
^DD(130,336,.1)="CVA/Stroke With No Neurologic Deficit (Y/N)"
^DD(130,336,3)="Enter YES if the patient has a history of CVA/Stroke with no neurologic deficit."
^DD(130,336,21,0)="^^4^4^3040316^"
^DD(130,336,21,1,0)="NSQIP Definition (2004):"
^DD(130,336,21,2,0)="History of a cerebrovascular accident (embolic, thrombotic, or "
^DD(130,336,21,3,0)="hemorrhagic) with neurologic deficit(s) lasting at least 30 minutes, "
^DD(130,336,21,4,0)="but no current residual neurologic dysfunction or deficit."
^DD(130,336,"DT")="3040316"
^DD(130,337,0)="NEURO DEGENERATIVE DISEASE^S^Y:YES;N:NO;NS:NO STUDY;^200;28^Q"
^DD(130,337,.1)="Neuromuscular Degenerative Disease (Y/N)"
^DD(130,337,3)="Enter 'YES' if the patient has a neuromuscular degenerative disease."
^DD(130,337,21,0)="^^7^7^2910919^"
^DD(130,337,21,1,0)="This determines whether the patient has neuromuscular degenerative"
^DD(130,337,21,2,0)="disease.  It is defined as any of a number of congenital, hereditary,"
^DD(130,337,21,3,0)="or acquired diseases resulting in chronic neurological deficits."
^DD(130,337,21,4,0)="Common examples of these diseases include muscular dystrophy, "
^DD(130,337,21,5,0)="amyotrophic lateral sclerosis (ALS or 'Lou Gerhig's Disease'),"
^DD(130,337,21,6,0)="multiple sclerosis, and poliomyelitis."
^DD(130,337,21,7,0)=" "
^DD(130,337,"DT")="2910910"
^DD(130,338,0)="DISSEMINATED CANCER (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;45^Q"
^DD(130,338,.1)="Disseminated Cancer (Y/N)"
^DD(130,338,3)="Enter YES if the patient has disseminated cancer."
^DD(130,338,21,0)="^^38^38^3040316^"
^DD(130,338,21,1,0)="NSQIP Definition (2004):"
^DD(130,338,21,2,0)="Patients who have cancer that:"
^DD(130,338,21,3,0)=" "
^DD(130,338,21,4,0)=" (1) Has spread to one site or more sites in addition to the primary"
^DD(130,338,21,5,0)="     site  "
^DD(130,338,21,6,0)=" "
^DD(130,338,21,7,0)=" AND"
^DD(130,338,21,8,0)=" "
^DD(130,338,21,9,0)=" (2) In whom the presence of multiple metastases indicates the cancer "
^DD(130,338,21,10,0)="     is widespread, fulminant, or near terminal. Other terms describing"
^DD(130,338,21,11,0)="     disseminated cancer include ""diffuse,"" ""widely metastatic,"""
^DD(130,338,21,12,0)="     ""widespread,"" or ""carcinomatosis"", or AJCC ""Stage IV"" cancer."
^DD(130,338,21,13,0)="     Common sites of metastases include major organs (e.g., brain,"
^DD(130,338,21,14,0)="     lung, liver, meninges, abdomen, peritoneum, pleura, bone)."
^DD(130,338,21,15,0)="     "
^DD(130,338,21,16,0)="     Report Acute Lymphocytic Leukemia (ALL) and Acute Myelogenous"
^DD(130,338,21,17,0)="     Leukemia (AML) under this variable. Do not report Chronic"
^DD(130,338,21,18,0)="     Lymphocytic Leukemia (CLL), Chronic Myelogenous Leukemia (CML) or"
^DD(130,338,21,19,0)="     Lymphoma as disseminated cancer."
^DD(130,338,21,20,0)=" "
^DD(130,338,21,21,0)=" Example: A patient with a primary breast cancer with positive nodes in"
^DD(130,338,21,22,0)=" the axilla does NOT qualify for this definition. She has spread of the"
^DD(130,338,21,23,0)=" tumor to a site other than the primary site, but does not have "
^DD(130,338,21,24,0)=" widespread metastases. A patient with primary breast cancer with"
^DD(130,338,21,25,0)=" positive nodes in the axilla AND liver metastases does qualify,"
^DD(130,338,21,26,0)=" because she has both spread of the tumor to the axilla and other major"
^DD(130,338,21,27,0)=" organs."
^DD(130,338,21,28,0)=" "
^DD(130,338,21,29,0)=" Example: A patient with colon cancer and no positive nodes or distant"
^DD(130,338,21,30,0)=" metastases does NOT qualify. A patient with colon cancer and several"
^DD(130,338,21,31,0)=" local lymph nodes positive for tumor, but no other evidence of "
^DD(130,338,21,32,0)=" metastatic disease does NOT qualify. A patient with colon cancer with"
^DD(130,338,21,33,0)=" liver metastases and/or peritoneal seeding with tumor does qualify."
^DD(130,338,21,34,0)=" "
^DD(130,338,21,35,0)=" Example: A patient with adenocarcinoma of the prostate confined to the"
^DD(130,338,21,36,0)=" capsule does NOT qualify. A patient with prostate cancer that extends"
^DD(130,338,21,37,0)=" through the capsule of the prostate only does NOT qualify. A patient "
^DD(130,338,21,38,0)=" with prostate cancer with bony metastases DOES qualify."
^DD(130,338,"DT")="3040316"
^DD(130,338.1,0)="CHEMOTHERAPY IN LAST 30 DAYS^S^Y:YES;N:NO;NS:NO STUDY;^206;3^Q"
^DD(130,338.1,.1)="Chemotherapy Within 30 Days Prior to Surgery (Y/N)"
^DD(130,338.1,3)="Enter YES if patient has undergone chemotherapy in the 30 days prior to surgery."
^DD(130,338.1,21,0)="^^10^10^3070214^"
^DD(130,338.1,21,1,0)="NSQIP Definition (2007):"
^DD(130,338.1,21,2,0)="Enter ""YES"" if the patient had any chemotherapy treatment for cancer "
^DD(130,338.1,21,3,0)="in the 30 days prior to surgery. Chemotherapy may include, but is not"
^DD(130,338.1,21,4,0)="restricted to, oral and parenteral treatment with chemotherapeutic "
^DD(130,338.1,21,5,0)="agents for malignancies such as colon, breast, lung, head and neck, "
^DD(130,338.1,21,6,0)="and gastrointestinal solid tumors as well as lymphatic and"
^DD(130,338.1,21,7,0)="hematopoietic malignancies such as lymphoma, leukemia, and multiple"
^DD(130,338.1,21,8,0)="myeloma. Do not count if treatment consists solely of hormonal"
^DD(130,338.1,21,9,0)="therapy. (See Operations Manual for list of chemotherapeutic agents.)"
^DD(130,338.1,21,10,0)="Chemotherapy treatment must be for malignancy."
^DD(130,338.1,"DT")="3040316"
^DD(130,338.2,0)="RADIOTHERAPY IN LAST 90 DAYS^S^Y:YES;N:NO;NS:NO STUDY;^206;4^Q"
^DD(130,338.2,.1)="Radiotherapy Within 90 Days Prior to Surgery (Y/N)"
^DD(130,338.2,3)="Enter YES if patient had radiotherapy in the 90 days prior to surgery."
^DD(130,338.2,21,0)="^^5^5^3040316^"
^DD(130,338.2,21,1,0)="NSQIP Definition (2004):"
^DD(130,338.2,21,2,0)="Enter ""YES"" if the patient had any radiotherapy treatment for cancer in"
^DD(130,338.2,21,3,0)="the 90 days prior to surgery. If the patient had radiation seeds"
^DD(130,338.2,21,4,0)="implanted, count if implantation is within 90 days prior to the "
^DD(130,338.2,21,5,0)="operation. "
^DD(130,338.2,"DT")="3040316"
^DD(130,339,0)="STEROID USE FOR CHRONIC COND.^S^Y:YES;N:NO;NS:NO STUDY;^200;47^Q"
^DD(130,339,.1)="Oral or Parenteral Steroid Use for Chronic Condition"
^DD(130,339,3)="Enter YES if the patient requires oral or parenteral steroid use for a chronic condition."
^DD(130,339,21,0)="^^10^10^3040316^"
^DD(130,339,21,1,0)="NSQIP Definition (2004):"
^DD(130,339,21,2,0)="Patient has required the regular administration of oral or parenteral "
^DD(130,339,21,3,0)="corticosteroid medications (e.g., Prednisone, Decadron) in the 30 days "
^DD(130,339,21,4,0)="prior to admission for a chronic medical condition (e.g., COPD, asthma,"
^DD(130,339,21,5,0)="rheumatologic disease, rheumatoid arthritis, inflammatory bowel"
^DD(130,339,21,6,0)="disease). Do not include topical corticosteroids applied to the skin or"
^DD(130,339,21,7,0)="corticosteroids administered by inhalation or rectally. Do not include"
^DD(130,339,21,8,0)="patients who only receive short course steroids (duration 10 days or"
^DD(130,339,21,9,0)="less) in the 30 days prior to surgery. (See list of corticosteroids in "
^DD(130,339,21,10,0)="Operations Manual.)"
^DD(130,339,"DT")="3040316"
^DD(130,340,0)="INTRAOP RBC UNITS TRANSFUSED^FX^^200;54^N SRX S SRX=X K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,340,.1)="Number of RBC Units Given Intraoperatively"
^DD(130,340,3)="Enter the number of red blood cells transfused.  Your answer should be from 0 to 99."
^DD(130,340,21,0)="^^6^6^3040316^"
^DD(130,340,21,1,0)="NSQIP Definition (2004):"
^DD(130,340,21,2,0)="Indicate the number of packed or whole red blood cells given during the"
^DD(130,340,21,3,0)="operative procedure as it appears on the anesthesia record. The amount"
^DD(130,340,21,4,0)="of blood reinfused from the cell saver should also be noted here. For a"
^DD(130,340,21,5,0)="cell saver, every 500 cc's of fluid will equal 1 unit of packed cells."
^DD(130,340,21,6,0)="If there is less than 250 cc of fluid, enter 0."
^DD(130,340,"DT")="3050923"
^DD(130,341,0)="30 DAY POSTOP STATUS^S^1:DISCHARGED ALIVE;2:DIED IN HOSPITAL;3:REMAINS IN VAMC FACILITY;4:TRANSFERRED TO ANOTHER VAMC;5:READMITTED;NS:NO STUDY;^205;2^Q"
^DD(130,341,.1)="30 Day Postoperative Status"
^DD(130,341,3)="Enter the status of the patient 30 days postoperatively."
^DD(130,341,21,0)="18^^17^17^2910920^^^^"
^DD(130,341,21,1,0)="This is the patient's status 30 days postoperatively.  Please select"
^DD(130,341,21,2,0)="one of the following categories."
^DD(130,341,21,3,0)=" "
^DD(130,341,21,4,0)="1.  Discharged alive to home, nursing home, rehabilitation, or"
^DD(130,341,21,5,0)="    psychiatric facility"
^DD(130,341,21,6,0)="2.  Died in Hospital perioperatively or postoperatively"
^DD(130,341,21,7,0)="3.  Still in your VAMC facility in the ICU, on a medical-surgical"
^DD(130,341,21,8,0)="    floor, or undergoing rehabilitation therapy."
^DD(130,341,21,9,0)="4.  Transferred to the ICU or acute care floor of another VAMC"
^DD(130,341,21,10,0)="    facility from your VAMC without going home"
^DD(130,341,21,11,0)="5.  Patient was discharged home, but was readmitted to any"
^DD(130,341,21,12,0)="    hospital within 30 days postoperatively due to a postoperative"
^DD(130,341,21,13,0)="    complication as confirmed by the Chief Surgical Resident,"
^DD(130,341,21,14,0)="    Principle Investigator, or Chief of Surgery.  If the patient"
^DD(130,341,21,15,0)="    was readmitted due to a postoperative complication, please"
^DD(130,341,21,16,0)="    enter the information in the outcome section of the assessment."
^DD(130,341,21,17,0)=" "
^DD(130,341,"DT")="2910714"
^DD(130,342,0)="DATE OF DEATH^FXO^^205;3^N SRX S SRX=X,%DT=""EPT"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"""
^DD(130,342,.1)="Date/Time of Death"
^DD(130,342,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,342,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,342,3)="Enter the date/time that the patient died."
^DD(130,342,21,0)="^^1^1^3070130^"
^DD(130,342,21,1,0)="If the patient has died, this is the date/time of death."
^DD(130,342,"DT")="3070130"
^DD(130,343,0)="OTHER CNS OCCURRENCE^*P80'XO^ICD9(^205;24^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,343,.1)="Other CNS Occurrence"
^DD(130,343,2)="S Y(0)=Y I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,343,2.1)="I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,343,3)="Enter the ICD Diagnosis code for any other CNS occurrence."
^DD(130,343,12)="Screen prevents selection of inactive diagnosis."
^DD(130,343,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,343,21,0)="^.001^4^4^3040322^^"
^DD(130,343,21,1,0)="NSQIP Definition (2004):"
^DD(130,343,21,2,0)="Enter any other neurologic related occurrences, which you feel to be "
^DD(130,343,21,3,0)="significant and that are not covered by the predefined CNS occurrence"
^DD(130,343,21,4,0)="categories. Enter the ICD-9-CM code for this entry."
^DD(130,343,"DT")="3040318"
^DD(130,344,0)="OTHER CARDIAC OCCURRENCE^*P80'XO^ICD9(^205;29^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,344,.1)="Other Cardiac Occurrence"
^DD(130,344,2)="S Y(0)=Y I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,344,2.1)="I $G(Y) S Y=$$ICDC^SROICD(Y),Y=$P(Y,""^"")_""  ""_$P(Y,""^"",3)"
^DD(130,344,3)="Enter the ICD Diagnosis code corresponding to the cardiac occurrence."
^DD(130,344,12)="Screen prevents selection of inactive diagnosis."
^DD(130,344,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,344,21,0)="^^4^4^3040316^"
^DD(130,344,21,1,0)="NSQIP Definition (2004):"
^DD(130,344,21,2,0)="Enter any other cardiac related surgical occurrences which you feel to "
^DD(130,344,21,3,0)="be significant and that are not covered by the predefined occurrence"
^DD(130,344,21,4,0)="categories. Enter the ICD-9-CM code for this entry."
^DD(130,344,"DT")="3040316"
^DD(130,345,0)="ILEUS/BOWEL OBSTRUCTION^S^Y:YES;N:NO;NS:NO STUDY;^205;31^Q"
^DD(130,345,.1)="Prolonged Ileus/Bowel Obstruction (Y/N)"
^DD(130,345,3)="Enter 'YES' if the patient has a postoperative intestinal obstruction."
^DD(130,345,21,0)="^^8^8^2910919^"
^DD(130,345,21,1,0)="This determines whether the patient has prolonged ileus or bowel"
^DD(130,345,21,2,0)="obstruction.  Ileus is obstruction of the intestines from a variety"
^DD(130,345,21,3,0)="of causes including mechanical obstruction, peritonitis, adhesions,"
^DD(130,345,21,4,0)="or post surgically as a result of functional dysmotility by the bowel."
^DD(130,345,21,5,0)="Bowel obstruction is any hindrance to the passage of the intestinal"
^DD(130,345,21,6,0)="contents.  Prolonged ileus or obstruction is defined as persisting"
^DD(130,345,21,7,0)="longer than 5 days postoperatively."
^DD(130,345,21,8,0)=" "
^DD(130,345,"DT")="2910910"
^DD(130,346,0)="DIABETES^S^N:NO;O:ORAL;I:INSULIN;^200;2^Q"
^DD(130,346,.1)="Diabetes Mellitus Requiring Therapy With Oral Agents or Insulin"
^DD(130,346,3)="Enter the patient's diabetes status."
^DD(130,346,21,0)="^^16^16^3040316^"
^DD(130,346,21,1,0)="NSQIP Definition (2004):"
^DD(130,346,21,2,0)="Diabetes mellitus is a metabolic disorder of the pancreas whereby the "
^DD(130,346,21,3,0)="individual requires daily dosages of exogenous parenteral insulin or an"
^DD(130,346,21,4,0)="oral hypoglycemic agent to prevent a hyperglycemic/metabolic acidosis."
^DD(130,346,21,5,0)="Report the treatment regimen of the patient's chronic, long-term"
^DD(130,346,21,6,0)="management. Do not include a patient if diabetes is controlled by diet"
^DD(130,346,21,7,0)="alone."
^DD(130,346,21,8,0)=" "
^DD(130,346,21,9,0)=" No:      No diagnosis of diabetes or diabetes controlled by diet alone"
^DD(130,346,21,10,0)=" "
^DD(130,346,21,11,0)=" Oral:    A diagnosis of diabetes requiring therapy with an oral"
^DD(130,346,21,12,0)="          hypoglycemic agent (see list of oral hypoglycemic agents in"
^DD(130,346,21,13,0)="          Operations Manual)"
^DD(130,346,21,14,0)=" "
^DD(130,346,21,15,0)=" Insulin: A diagnosis of diabetes requiring daily insulin therapy (see"
^DD(130,346,21,16,0)="          list of insulin therapy agents in Operations Manual)"
^DD(130,346,"DT")="3040316"
^DD(130,347,0)="FEV1^FX^^206;5^N SRX S SRX=X K:+X'=X!(X>9.9)!(X<0)!(X?.E1"".""2N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,347,.1)="FEV1 "
^DD(130,347,3)="Enter the FEV1 on the most recent PFT's (0 to 9.9)."
^DD(130,347,21,0)="^^4^4^2910923^^^"
^DD(130,347,21,1,0)="This is the forced expiratory volume in one second from the most"
^DD(130,347,21,2,0)="recent pulmonary function test prior to surgery.  Enter 'NS' if there "
^DD(130,347,21,3,0)="has been no pulmonary function tests in the preceding year."
^DD(130,347,21,4,0)=" "
^DD(130,347,"DT")="3050923"
^DD(130,348,0)="PULMONARY RALES^S^Y:YES;N:NO;^206;7^Q"
^DD(130,348,.1)="Pulmonary Rales (Y/N)"
^DD(130,348,3)="Enter 'YES' if the patient has pulmonary rales within the two weeks preceding surgery."
^DD(130,348,21,0)="^^6^6^3040720^"
^DD(130,348,21,1,0)="CICSP Definition (2004):"
^DD(130,348,21,2,0)="Indicate if the chart documents rales not clearing with cough (and not "
^DD(130,348,21,3,0)="due to pneumonic process) heard within two weeks before surgery. Do"
^DD(130,348,21,4,0)="not include rales that clear with coughing, as these are usually due to "
^DD(130,348,21,5,0)="atelectasis and carry a much more benign connotation. Please note, "
^DD(130,348,21,6,0)="crackles are another common approach to noting that rales are present."
^DD(130,348,"DT")="3040720"
^DD(130,349,0)="ACTIVE ENDOCARDITIS^S^Y:YES;N:NO;^206;10^Q"
^DD(130,349,.1)="Active Endocarditis (Y/N)"
^DD(130,349,3)="Enter 'YES' if the patient is being treated, or has been treated within two weeks prior to surgery, for active endocarditis."
^DD(130,349,21,0)="^^9^9^3040720^"
^DD(130,349,21,1,0)="CICSP Definition (2004):"
^DD(130,349,21,2,0)="Indicate if the patient is being treated with antibiotics for active "
^DD(130,349,21,3,0)="infection on or near a cardiac valve at the time of surgery or within "
^DD(130,349,21,4,0)="2 weeks prior to surgery. Endocarditis is defined as two or more blood"
^DD(130,349,21,5,0)="cultures positive for the same organism, usually with evidence of a "
^DD(130,349,21,6,0)="valvular vegetation or valve dysfunction by cardiac ultrasound. In the"
^DD(130,349,21,7,0)="absence of positive blood cultures, there should be clear evidence of"
^DD(130,349,21,8,0)="valve infection and/or destruction by ultrasound or direct observation"
^DD(130,349,21,9,0)="at surgery with subsequent histologic confirmation."
^DD(130,349,"DT")="3040720"
^DD(130,350,0)="RESTING ST DEPRESSION^S^Y:YES;N:NO;^206;11^Q"
^DD(130,350,.1)="Resting ST Depression (Y/N)"
^DD(130,350,3)="Enter 'YES' if the patient has defined Resting ST Depression."
^DD(130,350,21,0)="^^6^6^2910924^^^"
^DD(130,350,21,1,0)="This determines whether the patient has a ST-segment depression"
^DD(130,350,21,2,0)="greater than or equal to 1 mm in any lead on standard resting"
^DD(130,350,21,3,0)="electrocardiogram (ECG), and/or ECG diagnosis of subendocardial"
^DD(130,350,21,4,0)="ischemia, left ventricular strain, or left ventricular hypertrophy"
^DD(130,350,21,5,0)="with repolarization abnormality."
^DD(130,350,21,6,0)=" "
^DD(130,350,"DT")="2910827"
^DD(130,351,0)="PCI^*S^1:NONE RECENT;2:12-72 HOURS PRIOR TO SURGERY;0:NONE;3:<12 hrs;12:12 - 72 hrs;72:>72 hrs - 7 days;7:>7 days;^206;13^Q"
^DD(130,351,3)="Enter the category that most accurately reflects the patient's Percutaneous Coronary Intervention."
^DD(130,351,12)="Screen prevents selection of "
^DD(130,351,12.1)="S DIC(""S"")=""I """"1,2""""'[Y"""
^DD(130,351,21,0)="^^8^8^3040311^"
^DD(130,351,21,1,0)="CICSP Definition (2004):"
^DD(130,351,21,2,0)="Indicate whether/when the patient had a percutaneous coronary "
^DD(130,351,21,3,0)="intervention (PCI) prior to surgery. Previously, this data field was"
^DD(130,351,21,4,0)="listed as a percutaneous transluminal coronary angiography (PTCA) "
^DD(130,351,21,5,0)="[e.g., balloon angioplasty, directional coronary atherectomy (DCA),"
^DD(130,351,21,6,0)="transluminal extraction catheter (TEC), stent, rotoblader, etc.] "
^DD(130,351,21,7,0)="Indicate the one appropriate response, even if the procedure was not"
^DD(130,351,21,8,0)="fully successful."
^DD(130,351,"DT")="3040311"
^DD(130,352,0)="NUM OF PRIOR HEART SURGERIES^*S^Y:YES;0:NONE;1:1;2:2;3:3;>:>3;^206;15^Q"
^DD(130,352,.1)="Number of Prior Heart Surgeries"
^DD(130,352,3)="Enter number of prior heart surgeries during a separate preceding hospitalization."
^DD(130,352,12)="Screen prevents selection of Y code"
^DD(130,352,12.1)="S DIC(""S"")=""I """"Y""""'[Y"""
^DD(130,352,21,0)="^^10^10^3060301^"
^DD(130,352,21,1,0)="CICSP Definition (2006):"
^DD(130,352,21,2,0)="Indicate the number of previous heart surgeries the patient has had "
^DD(130,352,21,3,0)="upon current admission, by referencing the patient history. The prior"
^DD(130,352,21,4,0)="heart surgery/ies would have occurred during a separate hospitalization"
^DD(130,352,21,5,0)="(more than 30 days prior to current surgery).  Both on and off-pump"
^DD(130,352,21,6,0)="cardiac surgical procedures should be considered.  Count all surgical"
^DD(130,352,21,7,0)="procedures performed during separate hospital admissions (not the"
^DD(130,352,21,8,0)="number of grafts, and not additional procedures performed during the "
^DD(130,352,21,9,0)="same admission due to a postoperative occurrence).  Indicate the one"
^DD(130,352,21,10,0)="appropriate response: 0, 1, 2, 3, >3."
^DD(130,352,"DT")="3040311"
^DD(130,353,0)="CURRENT DIURETIC USE^S^Y:YES;N:NO;^206;20^Q"
^DD(130,353,.1)="Current Diuretic Use (Y/N)"
^DD(130,353,3)="Enter 'YES' if the patient used any diuretic preparation within two weeks of surgery."
^DD(130,353,21,0)="^^3^3^2910924^^^"
^DD(130,353,21,1,0)="This determines whether the patient has used any diuretic preparation"
^DD(130,353,21,2,0)="within the two weeks prior to surgery."
^DD(130,353,21,3,0)=" "
^DD(130,353,"DT")="2910827"
^DD(130,354,0)="CURRENT DIGOXIN USE^S^Y:YES;N:NO;^206;21^Q"
^DD(130,354,.1)="Current Digoxin Use (Y/N)"
^DD(130,354,3)="Enter 'YES' if the patient used any digitalis preparation within two weeks of surgery."
^DD(130,354,21,0)="^^4^4^2910924^^^"
^DD(130,354,21,1,0)="This determines whether the patient has used a digitalis preparation"
^DD(130,354,21,2,0)="(digoxin, Lanoxin, digitoxin, ect.) within the two weeks prior to"
^DD(130,354,21,3,0)="surgery."
^DD(130,354,21,4,0)=" "
^DD(130,354,"DT")="2910827"
^DD(130,355,0)="IV NTG WITHIN 48 HOURS^S^Y:YES;N:NO;^206;22^Q"
^DD(130,355,.1)="IV NTG within 48 Hours Preceding Surgery (Y/N)"
^DD(130,355,3)="Enter 'YES' if the patient was given nitroglycerin intravenously within 48 hours prior to surgery."
^DD(130,355,21,0)="^^3^3^2910924^^^"
^DD(130,355,21,1,0)="This determines whether the patient was administered nitroglycerin"
^DD(130,355,21,2,0)="intravenously within 48 hours prior to surgery."
^DD(130,355,21,3,0)=" "
^DD(130,355,"DT")="2910923"
^DD(130,356,0)="PREOPERATIVE USE OF IABP^S^Y:YES;N:NO;^206;23^Q"
^DD(130,356,.1)="Preoperative use of IABP (Y/N)"
^DD(130,356,3)="Enter 'YES' if an intra-aortic ballon pump (IABP) was used within two weeks prior to surgery."
^DD(130,356,21,0)="^^3^3^2921106^^^^"
^DD(130,356,21,1,0)="This determines whether there was any use of an intra-aortic balloon"
^DD(130,356,21,2,0)="pump (IABP) within the two weeks prior to surgery."
^DD(130,356,21,3,0)=" "
^DD(130,356,"DT")="2910827"
^DD(130,357,0)="LVEDP^FX^^206;24^N SRX S SRX=X K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,357,.1)="Left Ventricular End-Diastolic Pressure"
^DD(130,357,3)="Enter the LVEDP measured following the 'a' wave (if present) at catheterization. Your answer must be between 0 and 60."
^DD(130,357,21,0)="^^5^5^3040721^"
^DD(130,357,21,1,0)="CICSP Definition (2004):"
^DD(130,357,21,2,0)="Indicate the patient's left ventricular end-diastolic pressure measured"
^DD(130,357,21,3,0)="following the a-wave (if present) at the cardiac catheterization most"
^DD(130,357,21,4,0)="recent prior to surgery. If LVEDP was not measured, entering ""NS"" for"
^DD(130,357,21,5,0)="""No Study/Unknown"" is also allowed."
^DD(130,357,"DT")="3050923"
^DD(130,358,0)="AORTIC SYSTOLIC PRESSURE^FX^^206;25^N SRX S SRX=X K:+X'=X!(X>300)!(X<15)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,358,.1)="Aortic Systolic Pressure"
^DD(130,358,3)="Enter the aortic systolic pressure (15-300) measured prior to left ventricular angiography most closely preceding surgery."
^DD(130,358,21,0)="^^5^5^3040628^"
^DD(130,358,21,1,0)="CICSP Definition (2004):"
^DD(130,358,21,2,0)="Indicate the patient's aortic systolic pressure measured prior to "
^DD(130,358,21,3,0)="left ventricular angiography at the catheterization most recent prior"
^DD(130,358,21,4,0)="to surgery. If aortic systolic pressure was not measured, entering "
^DD(130,358,21,5,0)="""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,358,"DT")="3050923"
^DD(130,359,0)="PA SYSTOLIC PRESSURE^FX^^206;26^N SRX S SRX=X K:+X'=X!(X>150)!(X<-30)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,359,.1)="PA Systolic Pressure"
^DD(130,359,3)="Enter the patient's PA systolic pressure (-30 to 150)."
^DD(130,359,21,0)="^^7^7^3040721^"
^DD(130,359,21,1,0)="CICSP Definition (2004):"
^DD(130,359,21,2,0)="For patients having a right heart catheterization, indicate the "
^DD(130,359,21,3,0)="patient's pulmonary artery (PA) systolic pressure at the "
^DD(130,359,21,4,0)="catheterization most recent prior to surgery. PA pressures obtained in"
^DD(130,359,21,5,0)="the operating room prior to surgery are acceptable if they are obtained"
^DD(130,359,21,6,0)="prior to anesthesia induction. If no right heart catheterization"
^DD(130,359,21,7,0)="performed, entering ""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,359,"DT")="3050923"
^DD(130,360,0)="PAW MEAN PRESSURE^FX^^206;27^N SRX S SRX=X K:+X'=X!(X>80)!(X<-15)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,360,.1)="PAW Mean Pressure"
^DD(130,360,3)="Enter the mean pulmonary artery wedge (PAW) pressure (-15 to 80)."
^DD(130,360,21,0)="^^9^9^3040721^"
^DD(130,360,21,1,0)="CICSP Definition (2004):"
^DD(130,360,21,2,0)="For patients having a right heart catheterization, indicate the "
^DD(130,360,21,3,0)="patient's mean pulmonary artery wedge (PAW) [also called pulmonary"
^DD(130,360,21,4,0)="capillary] pressure or left atrial pressure measured at the"
^DD(130,360,21,5,0)="catheterization most recent prior to surgery. PAW pressures obtained in"
^DD(130,360,21,6,0)="the operating room prior to surgery are acceptable if they are obtained"
^DD(130,360,21,7,0)="prior to anesthesia induction. If no right heart or transseptal"
^DD(130,360,21,8,0)="catheterization performed, entering ""NS"" for ""No Study/Unknown"" is also"
^DD(130,360,21,9,0)="allowed. "
^DD(130,360,"DT")="3050923"
^DD(130,361,0)="LEFT MAIN STENOSIS^FX^^206;28^N SRX S SRX=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,361,.1)="Left Main Stenosis"
^DD(130,361,3)="Enter the percent (0-100) diameter reduction of the left main coronary artery."
^DD(130,361,21,0)="^^5^5^3040628^"
^DD(130,361,21,1,0)="CICSP Definition (2004):"
^DD(130,361,21,2,0)="Indicate the most severe percent diameter reduction of the left main "
^DD(130,361,21,3,0)="coronary artery, including its most distal portion. If there is no "
^DD(130,361,21,4,0)="obstruction of the left main coronary artery, indicate zero. Entering "
^DD(130,361,21,5,0)="""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,361,"DT")="3050923"
^DD(130,362,0)="CORONARIES WITH STENOSIS^NJ1,0X^^206;29^S NYUK=X K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X S:NYUK=""NS"" X=""NS"" K NYUK"
^DD(130,362,.1)="Major Coronaries with Stenosis(es) Greater or Equal to 50%"
^DD(130,362,3)="Enter the category related to the number of major coronaries with stenosis(es).  Your answer should be from 0 to 3."
^DD(130,362,21,0)="^^41^41^2910924^^^^"
^DD(130,362,21,1,0)="This is the category corresponding to the number of major"
^DD(130,362,21,2,0)="coronaries with stenosis greater than or equal to 50%."
^DD(130,362,21,3,0)="The categories are as follows."
^DD(130,362,21,4,0)=" "
^DD(130,362,21,5,0)="0 - no stenosis in any coronary artery greater than or equal to"
^DD(130,362,21,6,0)="    50% (exclude diagonals)"
^DD(130,362,21,7,0)=" "
^DD(130,362,21,8,0)="1 - one or more stenoses greater than or equal to 50% in the"
^DD(130,362,21,9,0)="    left anterior descending (does not include diagonals)"
^DD(130,362,21,10,0)=" "
^DD(130,362,21,11,0)="    or, circumflex (circumflex includes the marginal branches"
^DD(130,362,21,12,0)="    and ramus intermedius),"
^DD(130,362,21,13,0)=" "
^DD(130,362,21,14,0)="    or the right (right includes the posterior descending even"
^DD(130,362,21,15,0)="    if a branch of the circumflex)"
^DD(130,362,21,16,0)=" "
^DD(130,362,21,17,0)="2 - Stenoses greater than or equal to 50% in the"
^DD(130,362,21,18,0)=" "
^DD(130,362,21,19,0)="    left main coronary artery,"
^DD(130,362,21,20,0)=" "
^DD(130,362,21,21,0)="    or the left anterior descending (does not include diagonals) and"
^DD(130,362,21,22,0)="    the right (right includes the posterior descending even if a"
^DD(130,362,21,23,0)="    branch of the circumflex),"
^DD(130,362,21,24,0)=" "
^DD(130,362,21,25,0)="    or the left anterior descending (does not include diagonals) and"
^DD(130,362,21,26,0)="    circumflex (circumflex includes the marginals and ramus intermedius),"
^DD(130,362,21,27,0)=" "
^DD(130,362,21,28,0)="    or the circumflex (circumflex includes the marginals and ramus"
^DD(130,362,21,29,0)="    intermedius) and the right (right includes the posterior descending"
^DD(130,362,21,30,0)="    even if a branch of the circumflex)"
^DD(130,362,21,31,0)=" "
^DD(130,362,21,32,0)="3 - Stenoses greater than or equal to 50% in the"
^DD(130,362,21,33,0)=" "
^DD(130,362,21,34,0)="    left anterior descending (does not include diagonals) and the"
^DD(130,362,21,35,0)="    circumflex (circumflex includes the marginals and ramus intermedius)"
^DD(130,362,21,36,0)="    and right (right includes the posterior descending even if a branch"
^DD(130,362,21,37,0)="    of the circumflex)"
^DD(130,362,21,38,0)=" "
^DD(130,362,21,39,0)="    or left main and right (right includes the posterior descending"
^DD(130,362,21,40,0)="    even if a branch of the circumflex)"
^DD(130,362,21,41,0)=" "
^DD(130,362,"DT")="2910805"
^DD(130,362.1,0)="LAD STENOSIS^FX^^206;33^N SRX S SRX=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,362.1,.1)="Left Anterior Descending (LAD) Stenosis"
^DD(130,362.1,3)="Enter the percent (0-100) stenosis."
^DD(130,362.1,21,0)="^^6^6^3040628^"
^DD(130,362.1,21,1,0)="CICSP Definition (2004):"
^DD(130,362.1,21,2,0)="Indicate the most severe percent stenosis in the left anterior "
^DD(130,362.1,21,3,0)="descending coronary artery. Synonyms for this artery include: "
^DD(130,362.1,21,4,0)="LAD, AD, and anterior descending (but does not include the diagonals)."
^DD(130,362.1,21,5,0)="If there is no obstruction of the LAD, indicate zero. Entering ""NS"" "
^DD(130,362.1,21,6,0)="for ""No Study/Unknown"" is also allowed."
^DD(130,362.1,"DT")="3050923"
^DD(130,362.2,0)="RIGHT CORONARY STENOSIS^FX^^206;34^N SRX S SRX=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,362.2,.1)="Right Coronary Artery Stenosis"
^DD(130,362.2,3)="Enter the percent (0-100) stenosis."
^DD(130,362.2,21,0)="^^16^16^3040628^"
^DD(130,362.2,21,1,0)="CICSP Definition (2004):"
^DD(130,362.2,21,2,0)="Indicate the most severe percent stenosis in the right coronary "
^DD(130,362.2,21,3,0)="artery. Include the proximal third of the posterior descending"
^DD(130,362.2,21,4,0)="coronary artery. The right coronary artery initially runs in the "
^DD(130,362.2,21,5,0)="groove between the right ventricle and right atrium; it usually gives"
^DD(130,362.2,21,6,0)="off branches to both the right and left ventricles and the right "
^DD(130,362.2,21,7,0)="atrium. The branches to the right atrium (sinus node artery) and "
^DD(130,362.2,21,8,0)="right ventricle (conus branch and acute marginal branches) are "
^DD(130,362.2,21,9,0)="commonly ignored when describing coronary artery disease. However, "
^DD(130,362.2,21,10,0)="the right coronary artery is the most common source for the posterior"
^DD(130,362.2,21,11,0)="descending coronary artery and often gives-off branches to the"
^DD(130,362.2,21,12,0)="posterior-lateral free wall of the left ventricle. These are often "
^DD(130,362.2,21,13,0)="known as left ventricular extension branches and are considered "
^DD(130,362.2,21,14,0)="branches of the circumflex for the coding of severity of coronary "
^DD(130,362.2,21,15,0)="disease. If there is no obstruction of these coronary arteries, "
^DD(130,362.2,21,16,0)="indicate zero. Entering ""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,362.2,"DT")="3050923"
^DD(130,362.3,0)="CIRCUMFLEX STENOSIS^FX^^206;35^N SRX S SRX=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,362.3,.1)="Circumflex Coronary Artery Stenosis"
^DD(130,362.3,3)="Enter the percent (0-100) stenosis."
^DD(130,362.3,21,0)="^^21^21^3040721^"
^DD(130,362.3,21,1,0)="CICSP Definition (2004):"
^DD(130,362.3,21,2,0)="Indicate the most severe percent stenosis in the circumflex coronary "
^DD(130,362.3,21,3,0)="artery, including marginal branches and ramus intermedius considered to"
^DD(130,362.3,21,4,0)="be of adequate size for bypass grafting. Both the anatomy and"
^DD(130,362.3,21,5,0)="nomenclature for describing the circumflex coronary artery can be "
^DD(130,362.3,21,6,0)="confusing -- in part, because of the marked variability from patient to"
^DD(130,362.3,21,7,0)="patient. The true circumflex lies in the groove separating the left"
^DD(130,362.3,21,8,0)="atrium from the left ventricle (A-V groove) for a variable distance"
^DD(130,362.3,21,9,0)="following its origination from the left main coronary artery."
^DD(130,362.3,21,10,0)="Typically, it gives-off one or more branches that leave the A-V groove"
^DD(130,362.3,21,11,0)="to supply the posterior-lateral free wall of the left ventricle. These"
^DD(130,362.3,21,12,0)="are known as marginal branches. A few patients have a branch to the"
^DD(130,362.3,21,13,0)="posterior-lateral free wall of the left ventricle arising exactly at "
^DD(130,362.3,21,14,0)="the bifurcation of the left main coronary artery into the left anterior"
^DD(130,362.3,21,15,0)="descending coronary artery and the circumflex coronary artery. Strictly"
^DD(130,362.3,21,16,0)="speaking, this vessel is neither a diagonal branch of the left anterior"
^DD(130,362.3,21,17,0)="descending coronary artery nor a marginal branch of the circumflex"
^DD(130,362.3,21,18,0)="coronary artery. This is often called the ""ramus intermedius"" or"
^DD(130,362.3,21,19,0)="""trifurcation branch"". If there is no obstruction of these coronary"
^DD(130,362.3,21,20,0)="arteries, indicate zero. Entering ""NS"" for ""No Study/Unknown"" is also"
^DD(130,362.3,21,21,0)="allowed."
^DD(130,362.3,"DT")="3050923"
^DD(130,363,0)="LV CONTRACTION SCORE^*S^I:> OR EQUAL 0.55 NORMAL;II:0.45-0.54 MILD DYSFUNC.;III:0.35-0.44 MOD. DYSFUNC.;IIIa:0.40-0.44 MOD. DYSFUNC. A;IIIb:0.35-0.39 MOD. DYSFUNC. B;IV:0.25-0.34 SEVERE DYSFUNC.;V:<0.25 VERY SEVERE DYSFUNC.;NS:NO STUDY;^206;30^Q"
^DD(130,363,.1)="LV Contraction Grade"
^DD(130,363,3)="Enter the grade that best describes left ventricular function."
^DD(130,363,12)="Screen prevents selection of code III."
^DD(130,363,12.1)="S DIC(""S"")=""I Y'=""""III"""""""
^DD(130,363,21,0)="^^32^32^3040728^"
^DD(130,363,21,1,0)="CICSP Definition (2004):"
^DD(130,363,21,2,0)="Indicate the left ventricular contraction grade, where the function "
^DD(130,363,21,3,0)="is assessed from the preoperative contrast ventriculogram, "
^DD(130,363,21,4,0)="radionuclide angiogram, or 2-D echocardiogram. If ejection fraction "
^DD(130,363,21,5,0)="is available, indicate the corresponding grade; otherwise, indicate "
^DD(130,363,21,6,0)="the grade that qualitatively reflects left ventricular function.  "
^DD(130,363,21,7,0)="Ejection fraction is defined as the proportion of blood that is "
^DD(130,363,21,8,0)="ejected during each ventricular contraction compared with the total"
^DD(130,363,21,9,0)="ventricular filling volume. Indicate the one most appropriate "
^DD(130,363,21,10,0)="response:"
^DD(130,363,21,11,0)="I - Ejection fraction >= 0.55 or narrative reports indicating normal "
^DD(130,363,21,12,0)="left ventricular function."
^DD(130,363,21,13,0)=" "
^DD(130,363,21,14,0)="II - Ejection fraction range from 0.45 to 0.54 or narrative report "
^DD(130,363,21,15,0)="indicating mild left ventricular dysfunction."
^DD(130,363,21,16,0)=" "
^DD(130,363,21,17,0)="IIIa - Ejection fraction range from 0.40 to 0.44 or narrative report "
^DD(130,363,21,18,0)="indicating moderate left ventricular dysfunction. If ""moderate"" is "
^DD(130,363,21,19,0)="the only rating available, select this category."
^DD(130,363,21,20,0)=" "
^DD(130,363,21,21,0)="IIIb - Ejection fraction range from 0.35 to 0.39 or narrative report "
^DD(130,363,21,22,0)="indicating moderately severe left ventricular dysfunction."
^DD(130,363,21,23,0)=" "
^DD(130,363,21,24,0)="IV - Ejection fraction range from 0.25 to 0.34 or narrative report "
^DD(130,363,21,25,0)="indicating severe left ventricular dysfunction."
^DD(130,363,21,26,0)=" "
^DD(130,363,21,27,0)="V - Ejection fraction < 0.25 or narrative report indicating very "
^DD(130,363,21,28,0)="severe left ventricular dysfunction."
^DD(130,363,21,29,0)=" "
^DD(130,363,21,30,0)="NS - If unable to make an assessment of the patient's left "
^DD(130,363,21,31,0)="ventricular contraction grade or no study was performed, entering "
^DD(130,363,21,32,0)="""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,363,"DT")="3040728"
^DD(130,364,0)="ESTIMATE OF MORTALITY^NJ2,0X^^206;31^S NYUK=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:NYUK=""NS""!(NYUK=""ns"") X=""NS"" K NYUK"
^DD(130,364,.1)="Physician's Preoperative Estimate of Operative Mortality"
^DD(130,364,1,0)="^.1^^0"
^DD(130,364,3)="Enter the physician's preoperative estimate of operative mortality."
^DD(130,364,21,0)="^^6^6^3060302^"
^DD(130,364,21,1,0)="CICSP Definition (2006):"
^DD(130,364,21,2,0)="This is the physician's (cardiologist or cardiac surgeon) subjective"
^DD(130,364,21,3,0)="estimate of operative mortality based on the assessment of the total"
^DD(130,364,21,4,0)="clinical picture. (To avoid bias introduced by knowledge of outcome,"
^DD(130,364,21,5,0)="this must be completed preoperatively.  Do not calculate from the"
^DD(130,364,21,6,0)="computer program provided to you.)"
^DD(130,364,"DT")="3070125"
^DD(130,364.1,0)="ESTIMATE OF MORTALITY, DATE^FXO^^206;32^N SRX S SRX=X,%DT=""ETXRP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"" D:$D(X) NC^SROAUTL"
^DD(130,364.1,.1)="Date/Time of Estimate of Operative Mortality"
^DD(130,364.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,364.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,364.1,3)="Enter the date and time that the estimate of operative mortality was documented."
^DD(130,364.1,21,0)="^^2^2^2950208^"
^DD(130,364.1,21,1,0)="This is the date and time that the estimate of mortality information was"
^DD(130,364.1,21,2,0)="collected."
^DD(130,364.1,"DT")="3071106"
^DD(130,365,0)="NUMBER WITH VEIN^NJ2,0^^207;1^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,365,.1)="CABG Distal Anastomoses with Vein"
^DD(130,365,3)="Enter the number of CABG distal anastomoses to native coronary arteries with vein."
^DD(130,365,21,0)="^^5^5^2910924^^^^"
^DD(130,365,21,1,0)="This is the number of coronary artery bypass graft (CABG) anastomoses"
^DD(130,365,21,2,0)="to native coronary arteries with vein regardless of whether other"
^DD(130,365,21,3,0)="procedures were performed.  Do not leave this information blank."
^DD(130,365,21,4,0)="If no coronary artery bypass grafts were performed, enter '0'."
^DD(130,365,21,5,0)=" "
^DD(130,365,"DT")="2910805"
^DD(130,366,0)="NUMBER WITH IMA^NJ2,0^^207;2^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,366,.1)="CABG Distal Anastomoses with IMA"
^DD(130,366,3)="Enter the number of CABG distal anastomoses to native coronary arteries with IMA."
^DD(130,366,21,0)="^^6^6^2910924^^"
^DD(130,366,21,1,0)="This is the number of coronary artery bypass graft (CABG) "
^DD(130,366,21,2,0)="anastomoses to native coronary arteries with internal mammary"
^DD(130,366,21,3,0)="arteries (IMA) regardless of whether other procedures were"
^DD(130,366,21,4,0)="performed.  Do not leave this field blank.  If no coronary artery"
^DD(130,366,21,5,0)="bypass grafts were performed, enter '0'."
^DD(130,366,21,6,0)=" "
^DD(130,366,"DT")="2910805"
^DD(130,367,0)="AORTIC VALVE REPLACEMENT^S^Y:YES;N:NO;^207;3^Q"
^DD(130,367,.1)="Aortic Valve Replacement (Y/N)"
^DD(130,367,3)="Enter 'YES' if the patient had an aortic valve replacement."
^DD(130,367,21,0)="^^5^5^3040629^"
^DD(130,367,21,1,0)="CICSP Definition (2004):"
^DD(130,367,21,2,0)="Indicate if the patient had an aortic valve replacement (either the "
^DD(130,367,21,3,0)="native or a prosthetic aortic valve) performed with or without "
^DD(130,367,21,4,0)="additional procedure(s), either with or without placing the patient"
^DD(130,367,21,5,0)="on cardiopulmonary bypass."
^DD(130,367,"DT")="3040629"
^DD(130,368,0)="MITRAL VALVE REPLACEMENT^S^Y:YES;N:NO;^207;4^Q"
^DD(130,368,.1)="Mitral Valve Replacement (Y/N)"
^DD(130,368,3)="Enter 'YES' if the patient had a mitral valve replacement."
^DD(130,368,21,0)="^^5^5^3040629^"
^DD(130,368,21,1,0)="CICSP Definition (2004):"
^DD(130,368,21,2,0)="Indicate if the patient had a mitral valve replacement (either the "
^DD(130,368,21,3,0)="native or a prosthetic aortic valve) performed with or without "
^DD(130,368,21,4,0)="additional procedure(s), either with or without placing the patient "
^DD(130,368,21,5,0)="on cardiopulmonary bypass."
^DD(130,368,"DT")="3040629"
^DD(130,369,0)="TRICUSPID VALVE REPLACEMENT^S^Y:YES;N:NO;^207;5^Q"
^DD(130,369,.1)="Tricuspid Valve Replacement (Y/N)"
^DD(130,369,3)="Enter 'YES' if the patient had a tricuspid valve replacement."
^DD(130,369,21,0)="^^3^3^2910924^^"
^DD(130,369,21,1,0)="This determines whether the patient had a tricuspid valve replacement"
^DD(130,369,21,2,0)="performed with or without additional procedures."
^DD(130,369,21,3,0)=" "
^DD(130,369,"DT")="2910820"
^DD(130,370,0)="VALVE REPAIR^*S^Y:YES;1:AORTIC;2:MITRAL;3:TRICUSPID;4:OTHER/COMBINATION;5:NONE;^207;6^Q"
^DD(130,370,.1)="Valve Repair"
^DD(130,370,3)="Indicate whether/where patient had a reparative procedure to a native valve."
^DD(130,370,12)="Screen prevents selection of Y entries."
^DD(130,370,12.1)="S DIC(""S"")=""I """"Y""""'[Y"""
^DD(130,370,21,0)="^^7^7^3060301^"
^DD(130,370,21,1,0)="CICSP Definition (2006):"
^DD(130,370,21,2,0)="Indicate if the patient has had any reparative procedure to a native"
^DD(130,370,21,3,0)="valve, either with or without placing the patient on cardiopulmonary"
^DD(130,370,21,4,0)="bypass. Valve repair is defined as a procedure performed on the native"
^DD(130,370,21,5,0)="valve to relieve stenosis and/or correct regurgitation (annuloplasty,"
^DD(130,370,21,6,0)="commissurotomy, etc.); the native valve remains in place. Indicate the"
^DD(130,370,21,7,0)="one appropriate response."
^DD(130,370,"DT")="3060301"
^DD(130,371,0)="LV ANEURYSMECTOMY^S^Y:YES;N:NO;^207;7^Q"
^DD(130,371,.1)="LV Aneurysmectomy (Y/N)"
^DD(130,371,3)="Enter 'YES' if the patient had a resection or plication of left ventricular aneurysm with or without additional procedures."
^DD(130,371,21,0)="^^3^3^2910924^^"
^DD(130,371,21,1,0)="This determines whether the patient had a resection or plication"
^DD(130,371,21,2,0)="of a left ventricular aneurysm with or without additional procedures."
^DD(130,371,21,3,0)=" "
^DD(130,371,"DT")="2910820"
^DD(130,372,0)="GREAT VESSEL REPAIR (Y/N)^S^Y:YES;N:NO;^207;8^Q"
^DD(130,372,.1)="Great Vessel Repair (Y/N)"
^DD(130,372,3)="Enter 'YES' if the patient had a primary procedure to repair the aorta or other great vessels."
^DD(130,372,21,0)="^^6^6^3060314^"
^DD(130,372,21,1,0)="CICSP Definition (2006):"
^DD(130,372,21,2,0)="Indicate if patient had a thoracic great vessel open repair of the "
^DD(130,372,21,3,0)="aorta (ascending, transverse, and/or descending) or other great "
^DD(130,372,21,4,0)="vessels, with or without cardiopulmonary bypass, with or without "
^DD(130,372,21,5,0)="aortic valve replacement, CABG, or other procedure but excluding an"
^DD(130,372,21,6,0)="endovascular repair of the descending thoracic aorta."
^DD(130,372,"DT")="3060314"
^DD(130,373,0)="CARDIAC TRANSPLANT^S^Y:YES;N:NO;^207;9^Q"
^DD(130,373,.1)="Cardiac Transplant (Y/N)"
^DD(130,373,3)="Enter 'YES' if the patient had a cardiac transplant."
^DD(130,373,21,0)="^^5^5^3060209^"
^DD(130,373,21,1,0)="CICSP Definition (2006):"
^DD(130,373,21,2,0)="Indicate if an orthotopic or heterotopic transplant was performed"
^DD(130,373,21,3,0)="at this procedure either with or without placing the patient on"
^DD(130,373,21,4,0)="cardiopulmonary bypass.  (YES/NO)  Heart-lung transplant should be"
^DD(130,373,21,5,0)="listed under ""Other cardiac procedures."""
^DD(130,373,"DT")="3060209"
^DD(130,374,0)="ELECTROPHYSIOLOGIC PROCEDURE^S^Y:YES;N:NO;^207;10^Q"
^DD(130,374,.1)="Electrophysiologic Procedure (Y/N)"
^DD(130,374,3)="Enter 'YES' if an electrophysiologic procedure was performed."
^DD(130,374,21,0)="^^6^6^2910924^^^^"
^DD(130,374,21,1,0)="This determines whether any procedure was performed with cardiopulmonary"
^DD(130,374,21,2,0)="bypass to correct an electrophysiologic disturbance, such as resection"
^DD(130,374,21,3,0)="of bypass tract(s) for WPW or endocardial resection for ventricular"
^DD(130,374,21,4,0)="tachycardia.  (This does not include implantation of automatic internal"
^DD(130,374,21,5,0)="cardiac defibrillator AICD)"
^DD(130,374,21,6,0)=" "
^DD(130,374,"DT")="2910820"
^DD(130,375,0)="MISC. CARDIAC PROCEDURES^S^Y:YES;N:NO;^207;11^Q"
^DD(130,375,.1)="Miscellaneous Cardiac Procedures"
^DD(130,375,3)="Enter 'YES' if any of the miscellaneous cardiac procedures were performed."
^DD(130,375,21,0)="^^3^3^2910805^"
^DD(130,375,21,1,0)="This determines whether there were any miscellaneous cardiac"
^DD(130,375,21,2,0)="procedures performed."
^DD(130,375,21,3,0)=" "
^DD(130,375,"DT")="2910805"
^DD(130,376,0)="ASD REPAIR^S^Y:YES;N:NO;^207;12^Q"
^DD(130,376,.1)="ASD Repair (Y/N)"
^DD(130,376,3)="Enter 'YES' if there was a repair of an atrial septal defect."
^DD(130,376,21,0)="^^3^3^2910924^^"
^DD(130,376,21,1,0)="This determines if there was a procedure performed to repair an"
^DD(130,376,21,2,0)="atrial septal defect."
^DD(130,376,21,3,0)=" "
^DD(130,376,"DT")="2910820"
^DD(130,377,0)="MYXOMA RESECTION^S^Y:YES;N:NO;^207;14^Q"
^DD(130,377,.1)="Myxoma Resection (Y/N)"
^DD(130,377,3)="Enter 'YES' if there was a resection of an atrial myxoma."
^DD(130,377,21,0)="^^2^2^2910924^^"
^DD(130,377,21,1,0)="This determines whether a resection of an atrial myxoma was performed."
^DD(130,377,21,2,0)=" "
^DD(130,377,"DT")="2910820"
^DD(130,378,0)="MYECTOMY FOR IHSS^S^Y:YES;N:NO;^207;16^Q"
^DD(130,378,.1)="Myectomy for IHSS (Y/N)"
^DD(130,378,3)="Enter 'YES' if the patient had a myectomy for IHSS."
^DD(130,378,21,0)="^^4^4^2910924^^^"
^DD(130,378,21,1,0)="This determines whether the patient had a resection of a portion"
^DD(130,378,21,2,0)="of the interventricular septum for idiopathic hypertrophic"
^DD(130,378,21,3,0)="subaortic stenosis (IHSS)."
^DD(130,378,21,4,0)=" "
^DD(130,378,"DT")="2910820"
^DD(130,379,0)="OTHER TUMOR RESECTION^S^Y:YES;N:NO;^207;18^Q"
^DD(130,379,.1)="Other Tumor Resection (Y/N)"
^DD(130,379,3)="Enter 'YES' if the patient had  a resection of any tumor other than atrial myxoma from the heart requiring CPB."
^DD(130,379,21,0)="^^4^4^3040629^"
^DD(130,379,21,1,0)="CICSP Definition (2004):"
^DD(130,379,21,2,0)="Indicate if patient had resection of any tumor other than atrial "
^DD(130,379,21,3,0)="myxoma from the heart either with or without placing the patient on"
^DD(130,379,21,4,0)="cardiopulmonary bypass."
^DD(130,379,"DT")="3040629"
^DD(130,380,0)="VSD REPAIR^S^Y:YES;N:NO;^207;13^Q"
^DD(130,380,.1)="VSD Repair (Y/N)"
^DD(130,380,3)="Enter 'YES' if the patient had a procedure to repair a ventricular septal defect (VSD)."
^DD(130,380,21,0)="^^3^3^2910924^^"
^DD(130,380,21,1,0)="This determines whether the patient had a procedure performed to"
^DD(130,380,21,2,0)="repair a ventricular septal defect."
^DD(130,380,21,3,0)=" "
^DD(130,380,"DT")="2910820"
^DD(130,381,0)="FOREIGN BODY REMOVAL^S^Y:YES;N:NO;^207;15^Q"
^DD(130,381,.1)="Foreign Body Removal (Y/N)"
^DD(130,381,3)="Enter 'YES' if the patient had a procedure to remove any foreign  body from the heart."
^DD(130,381,21,0)="^^4^4^2910924^^"
^DD(130,381,21,1,0)="This determines whether a procedure was performed to remove any"
^DD(130,381,21,2,0)="foreign body (e.g. bullet or catheter fragment) from the heart"
^DD(130,381,21,3,0)="with the aid of cardiopulmonary bypass."
^DD(130,381,21,4,0)=" "
^DD(130,381,"DT")="2910820"
^DD(130,382,0)="PERICARDIECTOMY^S^Y:YES;N:NO;^207;17^Q"
^DD(130,382,.1)="Pericardiectomy (Y/N)"
^DD(130,382,3)="Enter 'YES' if the patient had a pericardiectomy on CPB."
^DD(130,382,21,0)="^^4^4^2910924^^"
^DD(130,382,21,1,0)="This determines whether the patient had a resection of the parietal"
^DD(130,382,21,2,0)="pericardium with the aid of cardiopulmonary bypass.  (NOTE: most"
^DD(130,382,21,3,0)="pericardiectomies are performed without cardiopulmonary bypass)"
^DD(130,382,21,4,0)=" "
^DD(130,382,"DT")="2910820"
^DD(130,383,0)="OTHER PROCEDURES (Y/N)^S^Y:YES;N:NO;^207;19^Q"
^DD(130,383,.1)="Other Procedures (Y/N)"
^DD(130,383,3)="Enter 'YES' if the patient had any other surgical procedure on the heart and/or great vessels requiring CPB."
^DD(130,383,21,0)="^^4^4^2910924^^^^"
^DD(130,383,21,1,0)="This determines whether the patient had any other surgical procedure"
^DD(130,383,21,2,0)="on the heart and/or great vessels (including AICD placement) requiring "
^DD(130,383,21,3,0)="cardiopulmonary bypass."
^DD(130,383,21,4,0)=" "
^DD(130,383,"DT")="2920227"
^DD(130,383.1,0)="OTHER CARDIAC PROCEDURES^FX^^207.1;1^S NYUK=X K:$L(X)>235!($L(X)<3) X S:NYUK=""NS"" X=NYUK K NYUK"
^DD(130,383.1,.1)="Other Procedure(s) Requiring Cardiopulmonary Bypass (List)"
^DD(130,383.1,3)="Answer must be 3-235 characters in length."
^DD(130,383.1,21,0)="^^4^4^3040311^"
^DD(130,383.1,21,1,0)="CICSP Definition (2004):"
^DD(130,383.1,21,2,0)="This is the free text description of other procedures requiring"
^DD(130,383.1,21,3,0)="cardiopulmonary bypass that were performed on this patient at the "
^DD(130,383.1,21,4,0)="same time as the primary cardiac procedure."
^DD(130,383.1,"DT")="3040311"
^DD(130,384,0)="OPERATIVE DEATH^S^Y:YES;N:NO;^208;1^Q"
^DD(130,384,.1)="Operative Death (Y/N)"
^DD(130,384,3)="Enter 'YES' if the patient died. Enter ""??"" for the complete definition of OPERATIVE DEATH."
^DD(130,384,21,0)="^.001^7^7^3060323^^"
^DD(130,384,21,1,0)="CICSP Definition (2006):"
^DD(130,384,21,2,0)="Indicate if the patient died within the 30 days after surgery in or "
^DD(130,384,21,3,0)="out of the hospital regardless of cause; or within the index"
^DD(130,384,21,4,0)="hospitalization regardless of cause; or patient died greater than "
^DD(130,384,21,5,0)="30 days as a direct result of a perioperative occurrence of the "
^DD(130,384,21,6,0)="surgery (e.g., mediastinitis).  (""Discharge"" can be noted when the "
^DD(130,384,21,7,0)="patient leaves the Acute Care arena.)"
^DD(130,384,"DT")="3060328"
^DD(130,385,0)="PERIOPERATIVE MI^S^Y:YES;N:NO;^208;2^Q"
^DD(130,385,.1)="Perioperative Myocardial Infarction (Y/N)"
^DD(130,385,3)="Enter 'YES' if the patient had a perioperative myocardial infarction."
^DD(130,385,21,0)="^^12^12^3070223^"
^DD(130,385,21,1,0)="NSQIP Definition (2004):"
^DD(130,385,21,2,0)="A new transmural acute myocardial infarction occurring during surgery "
^DD(130,385,21,3,0)="or within 30 days following surgery as manifested by new Q-waves on"
^DD(130,385,21,4,0)="ECG. Non-Q-wave infarctions should be entered under ""OTHER""."
^DD(130,385,21,5,0)=" "
^DD(130,385,21,6,0)="CICSP Definition (2007):"
^DD(130,385,21,7,0)="Indicate the presence of a peri-operative MI if at least one of the "
^DD(130,385,21,8,0)="following criteria occurs either intraoperatively or postoperatively "
^DD(130,385,21,9,0)="within 30 days:"
^DD(130,385,21,10,0)=" 1. Evolutionary ST-segment elevations"
^DD(130,385,21,11,0)=" 2. Development of new Q-waves in two or more contiguous ECG leads"
^DD(130,385,21,12,0)=" 3. New or presumably new LBBB pattern on the ECG."
^DD(130,385,"DT")="3070122"
^DD(130,386,0)="ENDOCARDITIS^S^Y:YES;N:NO;^208;3^Q"
^DD(130,386,.1)="Endocarditis (Y/N)"
^DD(130,386,3)="Enter 'YES' if the patient has any postoperative intracardiac infection."
^DD(130,386,21,0)="^^9^9^3040721^"
^DD(130,386,21,1,0)="CICSP Definition (2004)"
^DD(130,386,21,2,0)="Indicate if the chart documents that active endocarditis was present "
^DD(130,386,21,3,0)="within 30 days postoperatively. Endocarditis is defined as any "
^DD(130,386,21,4,0)="postoperative intracardiac infection (usually on a valve) documented "
^DD(130,386,21,5,0)="by two or more positive blood cultures with the same organism, and/or "
^DD(130,386,21,6,0)="development of vegetations and valve destruction seen by echo or "
^DD(130,386,21,7,0)="repeat surgery, and/or histologic evidence of infection at repeat "
^DD(130,386,21,8,0)="surgery or autopsy. Patients with preoperative endocarditis who have "
^DD(130,386,21,9,0)="the above evidence of persistent infection should be included."
^DD(130,386,"DT")="3040721"
^DD(130,387,0)="LOW CARDIAC OUTPUT > 6 HOURS^S^Y:YES;N:NO;^208;4^Q"
^DD(130,387,.1)="Low Cardiac Output > 6 Hours (Y/N)"
^DD(130,387,3)="Enter 'YES' if the patient has low cardiac output for greater than or equal to 6 hours."
^DD(130,387,21,0)="^^6^6^2910924^^^"
^DD(130,387,21,1,0)="This determines whether the patient has had a postoperative cardiac "
^DD(130,387,21,2,0)="index of less than 2.0 L/min/M2 and/or peripheral manifestations"
^DD(130,387,21,3,0)="(e.g. oliguria) of low cardiac output present for 6 or more hours"
^DD(130,387,21,4,0)="following surgery requiring inotropic and/or intra-aortic balloon"
^DD(130,387,21,5,0)="pump support."
^DD(130,387,21,6,0)=" "
^DD(130,387,"DT")="2910820"
^DD(130,388,0)="MEDIASTINITIS^S^Y:YES;N:NO;^208;5^Q"
^DD(130,388,.1)="Mediastinitis (Y/N)"
^DD(130,388,3)="Enter 'YES' if the patient has a bacterial infection below the sternum."
^DD(130,388,21,0)="^^4^4^3040809^"
^DD(130,388,21,1,0)="CICSP Definition (2004):"
^DD(130,388,21,2,0)="Indicate if the patient developed a bacterial infection involving the "
^DD(130,388,21,3,0)="sternum or deep to the sternum requiring drainage and anti-microbial "
^DD(130,388,21,4,0)="therapy diagnosed within 30 days after surgery."
^DD(130,388,"DT")="3040809"
^DD(130,389,0)="REOPERATION FOR BLEEDING^S^Y:YES;N:NO;^208;6^Q"
^DD(130,389,.1)="Reoperation for Bleeding (Y/N)"
^DD(130,389,3)="Enter 'YES' if the patient had a re-exploration of the thorax for suspected bleeding."
^DD(130,389,21,0)="^^3^3^3040809^"
^DD(130,389,21,1,0)="CICSP Definition (2004):"
^DD(130,389,21,2,0)="Indicate if there was any re-exploration of the thorax for suspected "
^DD(130,389,21,3,0)="bleeding within 30 days of surgery."
^DD(130,389,"DT")="3040809"
^DD(130,390,0)="STROKE^S^Y:YES;N:NO;^208;8^Q"
^DD(130,390,.1)="Stroke (Y/N)"
^DD(130,390,3)="Enter 'YES' if the patient has any new objective neurologic defect lasting > or = 30 minutes."
^DD(130,390,21,0)="^^4^4^3040311^"
^DD(130,390,21,1,0)="CICSP Definition (2004):"
^DD(130,390,21,2,0)="Indicate if there was any new objective neurologic deficit lasting "
^DD(130,390,21,3,0)="> 72 hours with onset immediately post-operatively or occurring within "
^DD(130,390,21,4,0)="the 30 days after surgery."
^DD(130,390,"DT")="3040311"
^DD(130,391,0)="REPEAT CARDIAC SURG PROCEDURE^S^Y:YES;N:NO;^208;7^Q"
^DD(130,391,.1)="Repeat Cardiac Surgical Procedure (Y/N)"
^DD(130,391,3)="Enter YES if a repeat operation on the heart occurred."
^DD(130,391,21,0)="^^5^5^3040629^"
^DD(130,391,21,1,0)="CICSP Definition (2004):"
^DD(130,391,21,2,0)="Indicate the CPB status if the patient underwent a repeat operation "
^DD(130,391,21,3,0)="on the heart after the patient had left the operating room from the"
^DD(130,391,21,4,0)="initial operation and within current hospitalization or within 30 days"
^DD(130,391,21,5,0)="of the initial operation."
^DD(130,391,"DT")="3040629"
^DD(130,392,0)="OTHER OCCURRENCES (ICD9)^*P80'X^ICD9(^205;36^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,392,.1)="Other Occurrences (ICD9)"
^DD(130,392,3)="Enter the ICD Diagnosis Code for any other occurrence."
^DD(130,392,12)="Screen prevents selection of inactive diagnosis."
^DD(130,392,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,392,21,0)="^^4^4^3040318^"
^DD(130,392,21,1,0)="NSQIP Definition (2004):"
^DD(130,392,21,2,0)="Enter any other surgical occurrences which you feel to be significant"
^DD(130,392,21,3,0)="and that are not covered by the predefined occurrence categories. Enter"
^DD(130,392,21,4,0)="the ICD-9-CM code for this entry. "
^DD(130,392,"DT")="3040318"
^DD(130,393,0)="RE-TRANSMISSION^NJ1,0^^RA;3^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,393,3)="Enter 1 if this assessment will be re-transmitted."
^DD(130,393,21,0)="^^4^4^2910820^"
^DD(130,393,21,1,0)="This determines whether the assessment will be re-transmitted.  It"
^DD(130,393,21,2,0)="will automatically be set to '1' when a transmitted assessment is"
^DD(130,393,21,3,0)="updated to an INCOMPLETE status to edit and re-transmit."
^DD(130,393,21,4,0)=" "
^DD(130,393,"DT")="2910820"
^DD(130,394,0)="HISTORY OF MI^S^Y:YES;N:NO;NS:NO STUDY;^200;31^Q"
^DD(130,394,.1)="History of MI Within Past 6 Months (Y/N)"
^DD(130,394,3)="Enter 'YES' if the patient has a history of MI in the 6 months prior to surgery."
^DD(130,394,21,0)="^^3^3^3040316^"
^DD(130,394,21,1,0)="NSQIP Definition (2004):"
^DD(130,394,21,2,0)="The history of a non-Q wave or a Q wave infarct in the six months prior"
^DD(130,394,21,3,0)="to surgery as diagnosed in the patient's medical record. "
^DD(130,394,"DT")="3040316"
^DD(130,395,0)="ANGINA ONE MONTH PRIOR^S^Y:YES;N:NO;NS:NO STUDY;^200;34^Q"
^DD(130,395,.1)="Angina within 30 Days Preceding Surgery (Y/N)"
^DD(130,395,3)="Enter 'YES' if the patient has had angina within one month prior to surgery."
^DD(130,395,21,0)="^^11^11^3040316^"
^DD(130,395,21,1,0)="NSQIP Definition (2004):"
^DD(130,395,21,2,0)="Pain or discomfort between the diaphragm and the mandible resulting "
^DD(130,395,21,3,0)="from myocardial ischemia. Typically angina is a dull, diffuse "
^DD(130,395,21,4,0)="(fist-sized or larger) substernal chest discomfort precipitated by "
^DD(130,395,21,5,0)="exertion or emotion and relieved by rest or nitroglycerine. Radiation "
^DD(130,395,21,6,0)="to the arms and shoulders often occurs, and occasionally to the neck, "
^DD(130,395,21,7,0)="jaw (mandible, not maxilla), or interscapular region. Documentation in"
^DD(130,395,21,8,0)="the chart by the physician should state 'angina' or 'anginal "
^DD(130,395,21,9,0)="equivalent'. For patients on anti-anginal medications, enter 'yes' only"
^DD(130,395,21,10,0)="if the patient has had angina at any time within 30 days prior to"
^DD(130,395,21,11,0)="surgery."
^DD(130,395,"DT")="3040701"
^DD(130,396,0)="CHF WITHIN ONE MONTH^S^Y:YES;N:NO;NS:NO STUDY;^200;35^Q"
^DD(130,396,.1)="CHF Within 30 Days Prior to Surgery (Y/N)"
^DD(130,396,3)="Enter 'YES' if the patient has had CHF within one month prior to surgery."
^DD(130,396,21,0)="^^18^18^3040316^"
^DD(130,396,21,1,0)="NSQIP Definition (2004):"
^DD(130,396,21,2,0)="Congestive Heart Failure is the inability of the heart to pump a "
^DD(130,396,21,3,0)="sufficient quantity of blood to meet the metabolic needs of the body or"
^DD(130,396,21,4,0)="can do so only at increased ventricular filling pressure. Only newly"
^DD(130,396,21,5,0)="diagnosed CHF within the previous 30 days or a diagnosis of chronic CHF"
^DD(130,396,21,6,0)="with new signs or symptoms in the 30 days prior to surgery fulfills"
^DD(130,396,21,7,0)="this definition. Common manifestations are:"
^DD(130,396,21,8,0)=" "
^DD(130,396,21,9,0)=" - Abnormal limitation in exercise tolerance due to dyspnea or fatigue"
^DD(130,396,21,10,0)=" - Orthopnea (dyspnea on lying supine)"
^DD(130,396,21,11,0)=" - Paroxysmal nocturnal dyspnea (PND-awakening from sleep with dyspnea)"
^DD(130,396,21,12,0)=" - Increased jugular venous pressure"
^DD(130,396,21,13,0)=" - Pulmonary rales on physical examination"
^DD(130,396,21,14,0)=" - Cardiomegaly"
^DD(130,396,21,15,0)=" - Pulmonary vascular engorgement"
^DD(130,396,21,16,0)=" "
^DD(130,396,21,17,0)="Should be noted in the medical record as CHF, congestive heart failure,"
^DD(130,396,21,18,0)="or pulmonary edema.  "
^DD(130,396,"DT")="3040316"
^DD(130,397,0)="SEVERE HEAD TRAUMA (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;20^Q"
^DD(130,397,.1)="Severe Head Trauma (Y/N)"
^DD(130,397,3)="Enter 'YES' if the patient has sustained severe head trauma."
^DD(130,397,21,0)="^^5^5^2921106^^"
^DD(130,397,21,1,0)="This determines whether the patient has sustained open or closed"
^DD(130,397,21,2,0)="trauma to the head from external force, violence, or accident"
^DD(130,397,21,3,0)="with resulting impairment in neurological function as manifested"
^DD(130,397,21,4,0)="by motor, sensory, or cognitive impairments."
^DD(130,397,21,5,0)=" "
^DD(130,397,"DT")="2910910"
^DD(130,398,0)="QUADRIPLEGIA (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;22^Q"
^DD(130,398,.1)="Quadriplegia/Tetraplegia/Quadriparesis (Y/N)"
^DD(130,398,3)="Enter 'YES' if the patient has total or partial paralysis or paresis of all four extremities."
^DD(130,398,21,0)="^.001^4^4^3070228^^^"
^DD(130,398,21,1,0)="NSQIP Definition (2004):"
^DD(130,398,21,2,0)="Patient has sustained acute or chronic neuromuscular injury resulting "
^DD(130,398,21,3,0)="in total or partial paralysis or paresis (weakness) of all four"
^DD(130,398,21,4,0)="extremities.  "
^DD(130,398,"DT")="3070424"
^DD(130,399,0)="PARAPLEGIA (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;23^Q"
^DD(130,399,.1)="Paraplegia/Paraparesis (Y/N)"
^DD(130,399,3)="Enter 'YES' if the patient has total or partial paralysis or paresis of the lower extremities."
^DD(130,399,21,0)="^^4^4^3040316^"
^DD(130,399,21,1,0)="NSQIP Definition (2004):"
^DD(130,399,21,2,0)="Patient has sustained acute or chronic neuromuscular injury resulting "
^DD(130,399,21,3,0)="in total or partial paralysis or paresis (weakness) of the lower "
^DD(130,399,21,4,0)="extremities."
^DD(130,399,"DT")="3040316"
^DD(130,400,0)="HEMIPLEGIA/HEMIPARESIS (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;24^Q"
^DD(130,400,.1)="Hemiplegia/Hemiparesis (Y/N)"
^DD(130,400,3)="Enter YES if the patient has total or partial paralysis or paresis on one side of the body."
^DD(130,400,21,0)="^^6^6^3040316^"
^DD(130,400,21,1,0)="NSQIP Definition (2004):"
^DD(130,400,21,2,0)="Patient has sustained acute or chronic neuromuscular injury resulting "
^DD(130,400,21,3,0)="in total or partial paralysis or paresis (weakness) of one side of the "
^DD(130,400,21,4,0)="body. Enter YES if the patient has hemiplegia/hemiparesis (that has not"
^DD(130,400,21,5,0)="recovered or been rehabilitated) upon arrival to the OR. Enter YES if"
^DD(130,400,21,6,0)="there is hemiplegia or hemiparesis associated with a CVA/Stroke also."
^DD(130,400,"DT")="3040316"
^DD(130,401,0)="TUMOR INVOLVING CNS (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200;29^Q"
^DD(130,401,.1)="Tumor Involving CNS (Y/N)"
^DD(130,401,3)="Enter YES if the patient has a tumor involving the central nervous system."
^DD(130,401,21,0)="^^8^8^3070213^"
^DD(130,401,21,1,0)="NSQIP Definition (2007):"
^DD(130,401,21,2,0)="Space-occupying tumor of the brain and spinal cord, which may be benign "
^DD(130,401,21,3,0)="(e.g., meningiomas, ependymoma, oligodendroglioma) or primary (e.g., "
^DD(130,401,21,4,0)="astrocytoma, glioma, glioblastoma multiform) or secondary malignancies "
^DD(130,401,21,5,0)="(e.g., metastatic lung, breast, malignant melanoma). Other tumors that "
^DD(130,401,21,6,0)="may involve the CNS include lymphomas and sarcomas. Answer ""YES"" even if"
^DD(130,401,21,7,0)="the tumor was not treated. A patient with metastatic cancer with boney"
^DD(130,401,21,8,0)="mets to spine is a CNS tumor. Answer ""NO"" if tumor was removed."
^DD(130,401,"DT")="3040316"
^DD(130,402,0)="GENERAL (Y/N)^S^Y:YES;N:NO;^200;1^Q"
^DD(130,402,.1)="General Medical Problems (Y/N)"
^DD(130,402,3)="Enter 'YES' if the patient has any general medical problems."
^DD(130,402,21,0)="^^2^2^2950501^^"
^DD(130,402,21,1,0)="This determines whether the patient has any general medical problems,"
^DD(130,402,21,2,0)="such as diabetes, dyspnea, or alcohol related illnesses."
^DD(130,402,21,3,0)=" "
^DD(130,402,"DT")="2910912"
^DD(130,403,0)="WOUND OCCURRENCES^S^Y:YES;N:NO;NS:NO STUDY;^205;5^Q"
^DD(130,403,.1)="Postoperative Wound Occurrences (Y/N)"
^DD(130,403,3)="Enter 'YES' if the patient has any postoperative wound occurrences."
^DD(130,403,21,0)="^^2^2^2950226^"
^DD(130,403,21,1,0)="This determines whether the patient had any postoperative wound"
^DD(130,403,21,2,0)="occurrences."
^DD(130,403,21,3,0)=" "
^DD(130,403,"DT")="2950226"
^DD(130,404,0)="WOUND DISRUPTION^S^Y:YES;N:NO;NS:NO STUDY;^205;8^Q"
^DD(130,404,.1)="Wound Disruption (Y/N)"
^DD(130,404,3)="Enter Yes if the patient has postoperative wound disruption."
^DD(130,404,21,0)="^^3^3^3040316^"
^DD(130,404,21,1,0)="NSQIP Definition (2004):"
^DD(130,404,21,2,0)="Separation of the layers of a surgical wound, which may be partial or "
^DD(130,404,21,3,0)="complete, with disruption of the fascia. "
^DD(130,404,"DT")="3040316"
^DD(130,405,0)="LOW SERUM SODIUM^FX^^203;2^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,405,.1)="Lowest Serum Sodium"
^DD(130,405,3)="Answer must be 1-5 characters in length."
^DD(130,405,21,0)="^^4^4^2970411^"
^DD(130,405,21,1,0)="This is the lowest postoperative serum sodium result recorded within 30"
^DD(130,405,21,2,0)="days postoperatively. Data input must be 1 to 5 numeric characters in"
^DD(130,405,21,3,0)="length which may include a prefix of a less than or greater than "
^DD(130,405,21,4,0)="sign ""<"" or "">"". Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,405,"DT")="2970410"
^DD(130,406,0)="LOW POTASSIUM^FX^^203;4^K:$L(X)>3!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,406,.1)="Lowest Postoperative Potassium"
^DD(130,406,3)="Answer must be 1-3 characters in length."
^DD(130,406,21,0)="^^4^4^2970411^"
^DD(130,406,21,1,0)="This is the lowest recorded postoperative potassium result."
^DD(130,406,21,2,0)="Data input must be 1 to 3 numeric characters in length which may include"
^DD(130,406,21,3,0)="a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,406,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,406,"DT")="2970410"
^DD(130,407,0)="LOW SODIUM, DATE^DX^^204;2^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,407,.1)="Date of Lowest Serum Sodium"
^DD(130,407,3)="Enter the date that the lowest postoperative serum sodium was recorded."
^DD(130,407,21,0)="^^2^2^2921027^"
^DD(130,407,21,1,0)="This is the date that the lowest serum sodium test result was recorded."
^DD(130,407,21,2,0)=" "
^DD(130,407,"DT")="3070119"
^DD(130,408,0)="LOW POTASSIUM, DATE^DX^^204;4^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,408,.1)="Date of Lowest Postoperative Potassium"
^DD(130,408,3)="Enter the date that the lowest postoperative potassium was recorded."
^DD(130,408,21,0)="^^2^2^2921027^"
^DD(130,408,21,1,0)="This is the date that the lowest potassium test result was recorded."
^DD(130,408,21,2,0)=" "
^DD(130,408,"DT")="3070119"
^DD(130,409,0)="RENAL INSUFFICIENCY^S^Y:YES;N:NO;NS:NO STUDY;^205;16^Q"
^DD(130,409,.1)="Progressive Renal Insufficiency (Y/N)"
^DD(130,409,3)="Enter YES if the patient has progressive renal insufficiency."
^DD(130,409,21,0)="^^4^4^3040316^"
^DD(130,409,21,1,0)="NSQIP Definition (2004):"
^DD(130,409,21,2,0)="The reduced capacity of the kidney to perform its function as evidenced"
^DD(130,409,21,3,0)="by a rise in creatinine of >2 mg/dl from preoperative value, but with"
^DD(130,409,21,4,0)="no requirement for dialysis."
^DD(130,409,"DT")="3040316"
^DD(130,410,0)="COMA > 24 HOURS POSTOP^*S^Y:YES;N:NO;NS:NO STUDY;^205;22^Q"
^DD(130,410,.1)="Coma Greater than 24 Hours Postop (Y/N)"
^DD(130,410,3)="Enter YES if the patient has significantly impaired level of consciousness > or = 24 hours postoperatively."
^DD(130,410,12)="Screen prevents selection of retired code."
^DD(130,410,12.1)="S DIC(""S"")=""I Y'=""""NS"""""""
^DD(130,410,21,0)="^^12^12^3060209^"
^DD(130,410,21,1,0)="NSQIP Definition (2006):"
^DD(130,410,21,2,0)="Patient is unconscious, postures to painful stimuli, or is "
^DD(130,410,21,3,0)="unresponsive to all stimuli (exclude transient disorientation or"
^DD(130,410,21,4,0)="psychosis) for greater than 24 hours during postoperative "
^DD(130,410,21,5,0)="hospitalization. Do not include drug-induced coma (e.g. Propofol "
^DD(130,410,21,6,0)="drips, etc.)"
^DD(130,410,21,7,0)=" "
^DD(130,410,21,8,0)="CICSP Definition (2006):"
^DD(130,410,21,9,0)="Indicate if postoperatively within 30 days of surgery there was a "
^DD(130,410,21,10,0)="significantly decreased level of consciousness (exclude transient "
^DD(130,410,21,11,0)="disorientation or psychosis) for greater than or equal to 24 hours"
^DD(130,410,21,12,0)="as evidenced by lack of response to deep, painful stimuli."
^DD(130,410,"DT")="3060209"
^DD(130,411,0)="CARDIAC ARREST REQ CPR^*S^Y:YES;N:NO;NS:NO STUDY;^205;26^Q"
^DD(130,411,.1)="Cardiac Arrest Requiring CPR (Y/N)"
^DD(130,411,3)="Enter YES if the patient has had postoperative cardiac arrest requiring CPR."
^DD(130,411,12)="Screen prevents selection of retired code."
^DD(130,411,12.1)="S DIC(""S"")=""I Y'=""""NS"""""""
^DD(130,411,21,0)="^^18^18^3060118^"
^DD(130,411,21,1,0)="CICSP Definition (2004):"
^DD(130,411,21,2,0)="Indicate if there was any cardiac arrest requiring external or open "
^DD(130,411,21,3,0)="cardiopulmonary resuscitation (CPR) occurring in the operating room, "
^DD(130,411,21,4,0)="ICU, ward, or out-of-hospital after the chest had been completely "
^DD(130,411,21,5,0)="closed and within 30 days of surgery. (YES/NO)"
^DD(130,411,21,6,0)=" "
^DD(130,411,21,7,0)="If patient had cardiac arrest requiring CPR, indicate whether the "
^DD(130,411,21,8,0)="arrest occurred intraoperatively or postoperatively. Indicate the one "
^DD(130,411,21,9,0)="appropriate response: "
^DD(130,411,21,10,0)=" - intraoperatively: occurring while patient was in the operating room"
^DD(130,411,21,11,0)=" - postoperatively:  occurring after patient left the operating room"
^DD(130,411,21,12,0)=" "
^DD(130,411,21,13,0)="NSQIP Definition (2006):"
^DD(130,411,21,14,0)="The absence of cardiac rhythm or presence of chaotic cardiac rhythm "
^DD(130,411,21,15,0)="that results in loss of consciousness requiring the initiation of any "
^DD(130,411,21,16,0)="component of basic and/or advanced cardiac life support. Patients with "
^DD(130,411,21,17,0)="AICDs that fire but the patient does not lose consciousness should be "
^DD(130,411,21,18,0)="excluded."
^DD(130,411,"DT")="3040721"
^DD(130,412,0)="UNPLANNED INTUBATION (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^205;11^Q"
^DD(130,412,.1)="Unplanned Intubation for Respiratory/Cardiac Failure (Y/N)"
^DD(130,412,3)="Enter YES if the patient had an unplanned intubation due to respiratory or cardiac failure."
^DD(130,412,21,0)="^^9^9^3040316^"
^DD(130,412,21,1,0)="NSQIP Definition (2004):"
^DD(130,412,21,2,0)="Patient required placement of an endotracheal tube and mechanical or "
^DD(130,412,21,3,0)="assisted ventilation because of the onset of respiratory or cardiac "
^DD(130,412,21,4,0)="failure manifested by severe respiratory distress, hypoxia, "
^DD(130,412,21,5,0)="hypercarbia, or respiratory acidosis. In patients who were intubated "
^DD(130,412,21,6,0)="for their surgery, unplanned intubation occurs after they have been "
^DD(130,412,21,7,0)="extubated after surgery. In patients who were not intubated during "
^DD(130,412,21,8,0)="surgery, intubation at any time after their surgery is considered "
^DD(130,412,21,9,0)="unplanned.  "
^DD(130,412,"DT")="3040316"
^DD(130,413,0)="TRANSFER STATUS^S^1:NOT TRANSFERRED;2:NON-VAMC ACUTE CARE HOSPITAL;3:VAMC ACUTE CARE HOSPITAL;4:NON-VA NURSING/CHRONIC CARE/SCI/INTERMEDIATE CARE FACILITY;5:VA NURSING HOME/CHRONIC CARE/SCI/INTERMEDIATE CARE FACILITY;6:OTHER;^208;11^Q"
^DD(130,413,.1)="Transfer Status"
^DD(130,413,3)="Enter the transfer status of this patient upon admission."
^DD(130,413,21,0)="^^20^20^3040701^"
^DD(130,413,21,1,0)="NSQIP Definition (2004):"
^DD(130,413,21,2,0)="Was the patient transferred directly from another healthcare facility "
^DD(130,413,21,3,0)="and admitted to this hospital? Please select from the following "
^DD(130,413,21,4,0)="choices. If the patient was admitted from home, select #1. If the "
^DD(130,413,21,5,0)="patient was transferred from another facility, please select from "
^DD(130,413,21,6,0)="choices #2-6.  "
^DD(130,413,21,7,0)=" "
^DD(130,413,21,8,0)=" (1) Not transferred from a health care facility; admitted directly"
^DD(130,413,21,9,0)="     from home"
^DD(130,413,21,10,0)=" (2) Non-VAMC Acute Care Hospital"
^DD(130,413,21,11,0)=" (3) VAMC Acute Care Hospital"
^DD(130,413,21,12,0)=" (4) Non-VA Nursing Home/Chronic Care Facility/Spinal Cord Injury"
^DD(130,413,21,13,0)="     Unit/Intermediate Care Unit"
^DD(130,413,21,14,0)=" (5) VA Nursing Home/Chronic Care Facility/Spinal Cord Injury"
^DD(130,413,21,15,0)="     Unit/Intermediate Care Unit"
^DD(130,413,21,16,0)=" (6) Other (for example, Domiciliary)"
^DD(130,413,21,17,0)=" "
^DD(130,413,21,18,0)="* If a patient arrives from another hospital's emergency department, "
^DD(130,413,21,19,0)="report as #1. If you cannot determine what kind of facility, enter "
^DD(130,413,21,20,0)="""OTHER""."
^DD(130,413,"DT")="3040701"
^DD(130,414,0)="CARDIAC SURGICAL PRIORITY^S^1:ELECTIVE;2:URGENT;3:EMERGENT (ONGOING ISCHEMIA);4:EMERGENT (HEMODYNAMIC COMPROMISE);5:EMERGENT (ARREST WITH CPR);^208;12^Q"
^DD(130,414,.1)="Cardiac Surgical Priority"
^DD(130,414,1,0)="^.1^^0"
^DD(130,414,3)="Enter the surgical priority that most accurately reflects the acuity of patient's cardiovascular condition at the time of transport to the operating room."
^DD(130,414,21,0)="^^22^22^3040715^"
^DD(130,414,21,1,0)="If this is a cardiac procedure, this is the surgical priority reflecting"
^DD(130,414,21,2,0)="the patient's cardiovascular condition at the time of transport to the"
^DD(130,414,21,3,0)="operating room:"
^DD(130,414,21,4,0)=" 1. Elective - Patient placed on elective schedule with surgery usually"
^DD(130,414,21,5,0)="    performed > 72 hours following catheterization."
^DD(130,414,21,6,0)=" 2. Urgent - Clinical condition mandates prompt surgery usually within"
^DD(130,414,21,7,0)="    12 to 72 hours of catheterization (patients clinically stable on a"
^DD(130,414,21,8,0)="    circulatory support system should be included in this category)."
^DD(130,414,21,9,0)=" 3. Emergent (ongoing ischemia) - Clinical condition mandates immediate"
^DD(130,414,21,10,0)="    surgery usually on day of catheterization because of ischemia "
^DD(130,414,21,11,0)="    despite medical therapy, such as intravenous nitroglycerine.  "
^DD(130,414,21,12,0)="    Ischemia should be manifested as chest pain and/or ST-segment"
^DD(130,414,21,13,0)="    depression."
^DD(130,414,21,14,0)=" 4. Emergent (hemodynamic compromise) - Persistent hypotension (arterial"
^DD(130,414,21,15,0)="    systolic pressure < 80 mm Hg) and/or low cardiac output (cardiac "
^DD(130,414,21,16,0)="    index < 2.0 L/min/MxM) despite iontropic and/or mechanical "
^DD(130,414,21,17,0)="    circulatory support mandates immediate surgery within hours of the"
^DD(130,414,21,18,0)="    cardiac catheterization."
^DD(130,414,21,19,0)=" 5. Emergent (arrest with CPR) - Patient is taken to the operating room "
^DD(130,414,21,20,0)="    in full cardiac arrest with the circulation supported by"
^DD(130,414,21,21,0)="    cardiopulmonary resuscitation (excludes patients being adequately"
^DD(130,414,21,22,0)="    perfused by a cardiopulmonary support system)."
^DD(130,414,"DT")="3070122"
^DD(130,414.1,0)="SURGICAL PRIORITY, DATE^DX^^208;13^S %DT=""ETXRP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,414.1,.1)="Date/Time of Cardiac Surgical Priority"
^DD(130,414.1,1,0)="^.1^^0"
^DD(130,414.1,3)="Enter the date and time that the cardiac surgical priority was documented."
^DD(130,414.1,21,0)="^^2^2^2950208^"
^DD(130,414.1,21,1,0)="This is the date and time that the cardiac surgical priority information"
^DD(130,414.1,21,2,0)="was collected."
^DD(130,414.1,"DT")="3080108"
^DD(130,415,0)="MITRAL REGURGITATION^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;NS:NO STUDY;^206;9^Q"
^DD(130,415,.1)="Mitral Regurgitation"
^DD(130,415,3)="Enter the code describing presence/severity of mitral regurgitation."
^DD(130,415,21,0)="^^50^50^3040721^"
^DD(130,415,21,1,0)="CICSP Definition (2004):"
^DD(130,415,21,2,0)="Indicate the severity of any mitral regurgitation documented for the "
^DD(130,415,21,3,0)="patient. This question should be answered using either the left "
^DD(130,415,21,4,0)="ventricular angiogram or the cardiac ultrasound examination.  "
^DD(130,415,21,5,0)="Adjectives used to describe the severity of the mitral regurgitation on"
^DD(130,415,21,6,0)="the cardiac cath report should be converted to a four-point scale: "
^DD(130,415,21,7,0)="1+ = mild, 2 or 3+ = moderate, and 4+ = severe."
^DD(130,415,21,8,0)=" "
^DD(130,415,21,9,0)="Diagnosis by angiogram: "
^DD(130,415,21,10,0)="======================="
^DD(130,415,21,11,0)="The following definitions should be used to assess the "
^DD(130,415,21,12,0)="presence/severity of mitral regurgitation based on the interpretation"
^DD(130,415,21,13,0)="of the contrast left ventricular angiogram:"
^DD(130,415,21,14,0)=" "
^DD(130,415,21,15,0)="None/Trivial - There is no visible systolic regurgitation across the"
^DD(130,415,21,16,0)="mitral valve. Trace or trivial notations of mitral regurgitation should"
^DD(130,415,21,17,0)="be listed as none."
^DD(130,415,21,18,0)=" "
^DD(130,415,21,19,0)="Mild - Definite contrast can be seen in the left atrium following left"
^DD(130,415,21,20,0)="ventricular injection, but the left atrium never fills to the same"
^DD(130,415,21,21,0)="opacity as the left ventricle."
^DD(130,415,21,22,0)=" "
^DD(130,415,21,23,0)="Moderate - The left atrium fills to the same opacity as the left "
^DD(130,415,21,24,0)="ventricle over two or more systoles."
^DD(130,415,21,25,0)=" "
^DD(130,415,21,26,0)="Severe - The left atrium fills to the same opacity as the left "
^DD(130,415,21,27,0)="ventricle over a single systole."
^DD(130,415,21,28,0)=" "
^DD(130,415,21,29,0)="NS - If unable to make an assessment of the patient's left ventricular"
^DD(130,415,21,30,0)="contraction grade or no study was performed, entering ""NS"" for ""No"
^DD(130,415,21,31,0)="Study/Unknown"" is also allowed."
^DD(130,415,21,32,0)=" "
^DD(130,415,21,33,0)="Diagnosis by cardiac ultrasound:"
^DD(130,415,21,34,0)="================================ "
^DD(130,415,21,35,0)="The following definitions are commonly used to assess the"
^DD(130,415,21,36,0)="presence/severity of mitral regurgitation based on the interpretation"
^DD(130,415,21,37,0)="of the cardiac ultrasound examination:"
^DD(130,415,21,38,0)=" "
^DD(130,415,21,39,0)="None/Trivial - No regurgitant jet is seen on the Doppler study. Trace"
^DD(130,415,21,40,0)="or trivial notations of mitral regurgitation should be listed as none."
^DD(130,415,21,41,0)=" "
^DD(130,415,21,42,0)="Mild - The area of the regurgitant jet is 0 - 4 cm2."
^DD(130,415,21,43,0)=" "
^DD(130,415,21,44,0)="Moderate - The area of the regurgitant jet is >4 - 8 cm2."
^DD(130,415,21,45,0)=" "
^DD(130,415,21,46,0)="Severe - The area of the regurgitant jet is greater than 8 cm2 or "
^DD(130,415,21,47,0)="greater than one third of the total left atrial area."
^DD(130,415,21,48,0)=" "
^DD(130,415,21,49,0)="NS - If no study was performed, entering ""NS"" for ""No Study/Unknown"" is"
^DD(130,415,21,50,0)="also allowed."
^DD(130,415,"DT")="3040721"
^DD(130,416,0)="NUMBER WITH OTHER CONDUIT^NJ1,0^^207;20^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,416,.1)="CABG Distal Anastomoses with Other Conduit"
^DD(130,416,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(130,416,21,0)="^^6^6^3040721^"
^DD(130,416,21,1,0)="CICSP Definition (2004):"
^DD(130,416,21,2,0)="This is the number of coronary artery bypass graft (CABG) anastomoses"
^DD(130,416,21,3,0)="to native coronary arteries with other conduit(s) regardless of whether"
^DD(130,416,21,4,0)="other procedures were performed. Do not leave this information blank."
^DD(130,416,21,5,0)="If no coronary artery bypass grafts with other conduits were performed,"
^DD(130,416,21,6,0)="enter '0'."
^DD(130,416,"DT")="3040721"
^DD(130,417,0)="RACE^S^1:HISPANIC, WHITE;2:HISPANIC, BLACK;3:AMERICAN INDIAN OR ALASKA NATIVE;4:BLACK, NOT OF HISPANIC ORIGIN;5:ASIAN OR PACIFIC ISLANDER;6:WHITE, NOT OF HISPANIC ORIGIN;7:UNKNOWN;^208;10^Q"
^DD(130,417,.1)="Patient's Race"
^DD(130,417,21,0)="^^2^2^2960308^^"
^DD(130,417,21,1,0)="This is the race of the patient.  This is a standard set of codes and"
^DD(130,417,21,2,0)="should not be edited."
^DD(130,417,"DT")="2960306"
^DD(130,418,0)="HOSPITAL ADMISSION DATE^FXO^^208;14^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"" D:$D(X) NC^SROAUTL"
^DD(130,418,.1)="Hospital Admission Date/Time"
^DD(130,418,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,418,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,418,3)="Enter the date and time of the hospital admission associated with this surgical case."
^DD(130,418,4)=""
^DD(130,418,21,0)="^^9^9^3040728^"
^DD(130,418,21,1,0)="NSQIP Definition (2004):"
^DD(130,418,21,2,0)="The date and time of admission to this VAMC as found in the PIMS "
^DD(130,418,21,3,0)="package. If the patient was admitted directly to surgery and then"
^DD(130,418,21,4,0)="admitted to the hospital, use the date of surgery as the date of"
^DD(130,418,21,5,0)="admission. Enter NA if this date is not applicable."
^DD(130,418,21,6,0)=" "
^DD(130,418,21,7,0)="CICSP Definition (2004)"
^DD(130,418,21,8,0)="Indicate the date and time of the hospital admission associated with "
^DD(130,418,21,9,0)="this surgical case. Entering NA for ""NOT APPLICABLE"" is not allowed."
^DD(130,418,"DT")="3080108"
^DD(130,419,0)="HOSPITAL DISCHARGE DATE^FXO^^208;15^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"" D:$D(X) NC^SROAUTL"
^DD(130,419,.1)="Hospital Discharge Date/Time"
^DD(130,419,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,419,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,419,3)="Enter the date and time of the hospital discharge associated with this surgical case."
^DD(130,419,21,0)="^^21^21^3040728^"
^DD(130,419,21,1,0)="NSQIP Definition (2004):"
^DD(130,419,21,2,0)="The date and time of discharge as pulled from the PIMS package. Enter "
^DD(130,419,21,3,0)="NA if this date is not applicable."
^DD(130,419,21,4,0)=" "
^DD(130,419,21,5,0)="CICSP Definition (2004)"
^DD(130,419,21,6,0)="Indicate the date of the hospital discharge associated with this "
^DD(130,419,21,7,0)="surgical case. Patients transferred to a referring facility should be "
^DD(130,419,21,8,0)="indicated as discharged from current admission. Patients transferred to"
^DD(130,419,21,9,0)="the psychiatric unit or any chronic care facility located at the VA "
^DD(130,419,21,10,0)="facility (e.g., a nursing home) should be indicated as discharged from "
^DD(130,419,21,11,0)="current admission at the date and time of the transfer to this "
^DD(130,419,21,12,0)="different facility. (Do not indicate the date of data input, unless the"
^DD(130,419,21,13,0)="patient was actually discharged on this same date.)"
^DD(130,419,21,14,0)="        "
^DD(130,419,21,15,0)="Patients who remain as inpatients for reasons other than for post-open"
^DD(130,419,21,16,0)="heart procedures should continue to be followed until discharged"
^DD(130,419,21,17,0)="(including the rehabilitation service) even if the cardiothoracic team"
^DD(130,419,21,18,0)="discharges the patient from their service or would discharge the"
^DD(130,419,21,19,0)="patient home. If the patient remains in the hospital and/or has"
^DD(130,419,21,20,0)="subsequent surgeries, indicate such in the ""resource data comments"""
^DD(130,419,21,21,0)="section."
^DD(130,419,"DT")="3080108"
^DD(130,420,0)="ADMISSION/TRANSFER DATE^FXO^^208;16^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"""
^DD(130,420,.1)="Admitted/Transferred to Surgical Service Date/Time"
^DD(130,420,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,420,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,420,3)="Enter the date of transfer to surgical service for this surgical episode or enter NA if this date is not applicable."
^DD(130,420,21,0)="^.001^5^5^3040728^^"
^DD(130,420,21,1,0)="NSQIP Definition (2004):"
^DD(130,420,21,2,0)="If the patient was not initially admitted to the surgical service, the"
^DD(130,420,21,3,0)="date and time of transfer to surgical service for this surgical episode"
^DD(130,420,21,4,0)="will be entered from the PIMS package. Enter 'NA' if this date is not"
^DD(130,420,21,5,0)="applicable, e.g. outpatient not admitted or observed."
^DD(130,420,"DT")="3080108"
^DD(130,421,0)="DISCHARGE/TRANSFER DATE^FXO^^208;17^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"""
^DD(130,421,.1)="Date Discharged/Transferred to Chronic Care"
^DD(130,421,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,421,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,421,3)="Enter date and time of the patient's discharge or transfer from the surgical or medical service to a chronic care setting, or enter NA if this date is not applicable."
^DD(130,421,21,0)="^.001^7^7^3040728^^"
^DD(130,421,21,1,0)="NSQIP Definition (2004):"
^DD(130,421,21,2,0)="The date and time of the patient's discharge or transfer from the "
^DD(130,421,21,3,0)="surgical or medical service to a chronic care setting. i.e., spinal "
^DD(130,421,21,4,0)="cord injury unit, psychiatric facility or psychiatric unit, nursing "
^DD(130,421,21,5,0)="home care unit or facility, or intermediate medicine. Acute care beds "
^DD(130,421,21,6,0)="must be established locally with the assistance of your station IRM "
^DD(130,421,21,7,0)="service. "
^DD(130,421,"DT")="3080108"
^DD(130,430,0)="CARDIAC RISK PREOP COMMENTS^F^^206.1;1^K:$L(X)>130!($L(X)<1) X"
^DD(130,430,.1)="Preoperative Risk Summary Data"
^DD(130,430,3)="Answer must be 1-130 characters in length."
^DD(130,430,21,0)="^^5^5^3060209^^"
^DD(130,430,21,1,0)="CICSP Definition (2006):"
^DD(130,430,21,2,0)="Indicate in the comment field any preoperative patient risk factors"
^DD(130,430,21,3,0)="(not previously entered above) that may contribute to this patient's "
^DD(130,430,21,4,0)="risk of operative mortality. (The maximum length of this field is "
^DD(130,430,21,5,0)="130 characters.)"
^DD(130,430,"DT")="3060209"
^DD(130,431,0)="CARDIAC RESOURCE DATA COMMENTS^F^^206.2;1^K:$L(X)>130!($L(X)<1) X"
^DD(130,431,3)="Answer must be 1-130 characters in length."
^DD(130,431,21,0)="^^3^3^3060118^"
^DD(130,431,21,1,0)="CICSP Definition (2006):"
^DD(130,431,21,2,0)="Indicate additional comments related to this case prior to"
^DD(130,431,21,3,0)="transmission to Denver by the SCNR/Data Manager (limit 130 characters)."
^DD(130,431,"DT")="3060118"
^DD(130,439,0)="BATISTA PROCEDURE USED (Y/N)^S^Y:YES;N:NO;^207;23^Q"
^DD(130,439,.1)="Batista Procedure Used (Y/N)"
^DD(130,439,3)="Enter whether the Batista Procedure was used or not."
^DD(130,439,21,0)="^^1^1^2971028^^"
^DD(130,439,21,1,0)="Was the Batista procedure used, Yes or No?"
^DD(130,439,"DT")="2970904"
^DD(130,440,0)="CARDIAC CATHETERIZATION DATE^DX^^207;21^S:X=""NS""!(X=""ns"") X=""NS"" Q:X=""NS""  S %DT=""ETPX"" D ^%DT S X=Y K:Y<1 X"
^DD(130,440,.1)="Cardiac Catheterization Date"
^DD(130,440,3)="Enter the date of the cardiac catheterization closest to and prior to the date of operation or enter NS if unknown or not applicable."
^DD(130,440,21,0)="^^2^2^3000907^"
^DD(130,440,21,1,0)="Record the appropriate date of the most recent cardiac catheterization"
^DD(130,440,21,2,0)="prior to surgery.  Enter NS if unknown or not applicable."
^DD(130,440,"DT")="3000907"
^DD(130,441,0)="MINIMALLY INVASIVE PROC (Y/N)^S^Y:YES;N:NO;^207;22^Q"
^DD(130,441,.1)="Minimally Invasive Procedure Technique Used (Y/N)"
^DD(130,441,21,0)="^^1^1^2970904^^^"
^DD(130,441,21,1,0)="Was a minimally invasive procedure technique used, Yes or No?"
^DD(130,441,"DT")="2970717"
^DD(130,442,0)="EMPLOYMENT STATUS PREOPERATIVE^S^1:EMPLOYED FULL TIME;2:EMPLOYED PART TIME;3:NOT EMPLOYED;4:SELF EMPLOYED;5:RETIRED;6:ACTIVE MILITARY DUTY;9:UNKNOWN;^208;18^Q"
^DD(130,442,.1)="Employment Status Preoperatively"
^DD(130,442,3)="Enter the patient's employment status preoperatively."
^DD(130,442,21,0)="^^2^2^2971028^^"
^DD(130,442,21,1,0)="Employment status preoperatively is to be defined in the broad sense of"
^DD(130,442,21,2,0)="regularly performed work activity with remuneration."
^DD(130,442,"DT")="2971028"
^DD(130,443,0)="INTRAOP DISSEMINATED CANCER^*S^Y:YES;N:NO;NS:NO STUDY;^200.1;4^Q"
^DD(130,443,.1)="Intraoperative Disseminated Cancer (Y/N)"
^DD(130,443,3)="Enter YES if cancer was found during the operative procedure."
^DD(130,443,12)="Screen prevents selection of inactive code."
^DD(130,443,12.1)="S DIC(""S"")=""I """"NS""""'=Y"""
^DD(130,443,21,0)="^.001^37^37^3070213^^^^"
^DD(130,443,21,1,0)="NSQIP Definition (2006):"
^DD(130,443,21,2,0)="Patients who have cancer that was found during the operative procedure "
^DD(130,443,21,3,0)="that:"
^DD(130,443,21,4,0)=" (1) Has spread to one site or more sites in addition to the primary "
^DD(130,443,21,5,0)="     site"
^DD(130,443,21,6,0)="     "
^DD(130,443,21,7,0)=" AND "
^DD(130,443,21,8,0)=" "
^DD(130,443,21,9,0)=" (2) In whom the presence of multiple metastases indicates the cancer is"
^DD(130,443,21,10,0)="     widespread, fulminant, or near terminal. Other terms describing"
^DD(130,443,21,11,0)="     disseminated cancer include ""diffuse,"" ""widely metastatic,"""
^DD(130,443,21,12,0)="     ""widespread,"" or ""carcinomatosis"" or AJCC ""Stage IV"" cancer. Common"
^DD(130,443,21,13,0)="     sites of metastases include major organs (e.g., brain, lung, liver,"
^DD(130,443,21,14,0)="     meninges, abdomen, peritoneum, pleura, bone)."
^DD(130,443,21,15,0)=" "
^DD(130,443,21,16,0)="Example: A patient with a primary breast cancer with positive nodes in"
^DD(130,443,21,17,0)="the axilla does NOT qualify for this definition. She has spread of the"
^DD(130,443,21,18,0)="tumor to a site other than the primary site, but does not have"
^DD(130,443,21,19,0)="widespread metastases. A patient with primary breast cancer with"
^DD(130,443,21,20,0)="positive nodes in the axilla AND liver metastases does qualify, because"
^DD(130,443,21,21,0)="she has both spread of the tumor to the axilla and other major organs."
^DD(130,443,21,22,0)=" "
^DD(130,443,21,23,0)="Example: A patient with colon cancer and no positive nodes or distant"
^DD(130,443,21,24,0)="metastases does NOT qualify. A patient with colon cancer and several"
^DD(130,443,21,25,0)="local lymph nodes positive for tumor, but no other evidence of"
^DD(130,443,21,26,0)="metastatic disease does NOT qualify. A patient with colon cancer with"
^DD(130,443,21,27,0)="liver metastases and/or peritoneal seeding with tumor does qualify."
^DD(130,443,21,28,0)=" "
^DD(130,443,21,29,0)="Example: A patient with adenocarcinoma of the prostate confined to the"
^DD(130,443,21,30,0)="capsule does NOT qualify. A patient with prostate cancer that extends"
^DD(130,443,21,31,0)="through the capsule of the prostate only does NOT qualify. A patient"
^DD(130,443,21,32,0)="with prostate cancer with bony metastases DOES qualify."
^DD(130,443,21,33,0)=" "
^DD(130,443,21,34,0)=" * Report Acute Lymphocytic Leukemia (ALL) and Acute Myelogenous"
^DD(130,443,21,35,0)="   Leukemia (AML) under this variable. Do not report Chronic Lymphocytic"
^DD(130,443,21,36,0)="   Leukemia (CLL), Chronic Myelogenous Leukemia (CML) or Stage IV"
^DD(130,443,21,37,0)="   lymphoma, as disseminated cancer."
^DD(130,443,"DT")="3070213"
^DD(130,444,0)="PREOPERATIVE ANION GAP^FX^^203;15^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,444,.1)="Preoperative Anion Gap"
^DD(130,444,3)="Answer must be 1-5 characters in length."
^DD(130,444,21,0)="^.001^4^4^3060208^^^"
^DD(130,444,21,1,0)="This is the result of the preoperative Anion Gap calculation. Data input"
^DD(130,444,21,2,0)="must be 1 to 5 numeric characters in length which may include a prefix"
^DD(130,444,21,3,0)="of a less than or greater than sign ""<"" or "">"". Entering ""NS"" for ""No"
^DD(130,444,21,4,0)="Study"" is also allowed."
^DD(130,444,"DT")="3060127"
^DD(130,444.1,0)="PREOP ANION GAP, DATE^DX^^204;15^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,444.1,.1)="Date Preoperative Anion Gap was Recorded"
^DD(130,444.1,3)="Enter the date the preoperative Anion Gap was recorded."
^DD(130,444.1,21,0)="^.001^1^1^3060531^^^^"
^DD(130,444.1,21,1,0)="This is the date the preoperative Anion Gap was recorded."
^DD(130,444.1,"DT")="3070119"
^DD(130,445,0)="HIGHEST ANION GAP^FX^^203;16^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,445,.1)="Highest Postoperative Anion Gap"
^DD(130,445,3)="Answer must be 1-5 characters in length."
^DD(130,445,21,0)="^.001^4^4^3060405^^^^"
^DD(130,445,21,1,0)="This is the result of the highest postoperative anion gap recorded. Data"
^DD(130,445,21,2,0)="input must be 1 to 5 numeric characters in length which may include a"
^DD(130,445,21,3,0)="prefix of a less than or greater than sign ""<"" or "">"". Entering ""NS"" for"
^DD(130,445,21,4,0)="""No Study"" is also allowed."
^DD(130,445,"DT")="3060127"
^DD(130,445.1,0)="HIGH ANION GAP, DATE^DX^^204;16^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,445.1,.1)="Date Highest Anion Gap was Recorded"
^DD(130,445.1,3)="Enter the date that the highest postop Anion Gap was recorded."
^DD(130,445.1,21,0)="^.001^1^1^3060405^^"
^DD(130,445.1,21,1,0)="This is the date that the highest postoperative Anion Gap was recorded."
^DD(130,445.1,"DT")="3070119"
^DD(130,446,0)="INTRAOPERATIVE ASCITES^S^Y:YES;N:NO;^200.1;6^Q"
^DD(130,446,.1)="Intraoperative Ascites"
^DD(130,446,3)="Enter Yes or No. NS is not allowed."
^DD(130,446,21,0)="^^3^3^3070222^"
^DD(130,446,21,1,0)="NSQIP Definition (2007):"
^DD(130,446,21,2,0)="Intraoperative Ascites is defined as the presence of fluid accumulation "
^DD(130,446,21,3,0)="in the peritoneal cavity noted during the operative procedure."
^DD(130,446,"DT")="3070122"
^DD(130,447,0)="CLOSTRIDIUM DIFFICILE COLITIS^S^Y:YES;N:NO;NS:NO STUDY;^205;39^Q"
^DD(130,447,.1)="Clostridium Difficile Colitis (C. difficile)"
^DD(130,447,3)="Enter YES if this patient had postoperative C. difficile colitis."
^DD(130,447,21,0)="^^7^7^3071102^"
^DD(130,447,21,1,0)="NSQIP Definition (2008):"
^DD(130,447,21,2,0)="C. difficile-associated disease occurs when the normal intestinal flora "
^DD(130,447,21,3,0)="is altered, allowing C. difficile to flourish in the intestinal tract"
^DD(130,447,21,4,0)="and produce a toxin that causes a watery diarrhea.  C. difficile "
^DD(130,447,21,5,0)="diarrhea is confirmed by the presence of a toxin in a stool specimen.  "
^DD(130,447,21,6,0)="Answer yes only if you have a positive culture for C. difficile and/or"
^DD(130,447,21,7,0)="a toxin assay and diagnosis of C. difficile documented in the chart."
^DD(130,447,"DT")="3071102"
^DD(130,450,0)="TOTAL ISCHEMIC TIME^NJ4,0^^206;36^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,450,.1)="Total Ischemic Time (minutes)"
^DD(130,450,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(130,450,21,0)="^^3^3^2971009^^^^"
^DD(130,450,21,1,0)="Record in minutes the duration of time the ascending aorta is"
^DD(130,450,21,2,0)="totally cross-clamped.  Do not include the duration of partial aorta"
^DD(130,450,21,3,0)="cross-clamp used for sewing the proximal anastomoses."
^DD(130,450,"DT")="2971002"
^DD(130,451,0)="TOTAL CPB TIME^NJ4,0^^206;37^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130,451,.1)="Total CPB (Cardiopulmonary ByPass) Time (minutes)"
^DD(130,451,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(130,451,21,0)="^^4^4^2971009^^^"
^DD(130,451,21,1,0)="Record in minutes the total cardiopulmonary bypass time.  This includes"
^DD(130,451,21,2,0)="the total duration of full and partial cardiopulmonary bypass from all"
^DD(130,451,21,3,0)="episodes of cardiopulmonary bypass.  This information can generally be"
^DD(130,451,21,4,0)="found on the perfusionist record and/or the anesthesia record."
^DD(130,451,"DT")="2971008"
^DD(130,452,0)="OBSERVATION ADMISSION DATE^FXO^^208.1;1^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"""
^DD(130,452,.1)="Observation Admission Date/Time"
^DD(130,452,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,452,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,452,3)="Enter the date and time the patient was admitted for observation or enter NA if this information is not applicable."
^DD(130,452,21,0)="^.001^13^13^3040728^^"
^DD(130,452,21,1,0)="NSQIP Definition (2004):"
^DD(130,452,21,2,0)="An observation patient is one who presents with a medical condition "
^DD(130,452,21,3,0)="with a significant degree of instability or disability, and who needs "
^DD(130,452,21,4,0)="to be monitored, evaluated and assessed for either admission to "
^DD(130,452,21,5,0)="inpatient status or assignment to care in another setting. An "
^DD(130,452,21,6,0)="observation patient can occupy a special bed set aside for this purpose"
^DD(130,452,21,7,0)="or may occupy a bed in any unit of a hospital, i.e., urgent care,"
^DD(130,452,21,8,0)="medical unit. These types of patients should be evaluated against"
^DD(130,452,21,9,0)="standard inpatient criteria. These beds are not designed to be a"
^DD(130,452,21,10,0)="holding area for Emergency Rooms. The length-of-stay in observation"
^DD(130,452,21,11,0)="beds will not exceed 23 hours. Following surgery, if the patient was"
^DD(130,452,21,12,0)="admitted for observation, this is the date and time of admission for"
^DD(130,452,21,13,0)="observation. If this information is not applicable, enter NA."
^DD(130,452,"DT")="3080108"
^DD(130,453,0)="OBSERVATION DISCHARGE DATE^FXO^^208.1;2^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"""
^DD(130,453,.1)="Observation Discharge Date/Time"
^DD(130,453,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,453,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,453,3)="Enter the date and time the patient was discharged from observation or enter NA if this information is not applicable."
^DD(130,453,21,0)="^.001^4^4^3040728^^"
^DD(130,453,21,1,0)="NSQIP Definition (2004):"
^DD(130,453,21,2,0)="If the patient was admitted for observation following surgery, this is "
^DD(130,453,21,3,0)="the date and time of discharge from observation. If this information in"
^DD(130,453,21,4,0)="not applicable, enter NA. "
^DD(130,453,"DT")="3080108"
^DD(130,454,0)="OBSERVATION TREATING SPECIALTY^*P42.4'X^DIC(42.4,^208.1;3^S:X=""NA""!(X=""na"") X=""NA"" Q:X=""NA""  S DIC(""S"")=""I $P(^DIC(42.4,Y,0),U)[""""OBSERVATION"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,454,.1)="Observation Treating Specialty"
^DD(130,454,3)="Enter the observation treating specialty associated with the admission for observation or enter NA if this information is not applicable."
^DD(130,454,12)="Screen allows selection of OBSERVATION specialties only."
^DD(130,454,12.1)="S DIC(""S"")=""I $P(^DIC(42.4,Y,0),U)[""""OBSERVATION"""""""
^DD(130,454,21,0)="^^4^4^3040316^"
^DD(130,454,21,1,0)="NSQIP Definition (2004):"
^DD(130,454,21,2,0)="If the patient was admitted for observation following surgery, this is "
^DD(130,454,21,3,0)="the observation treating specialty to which the patient was admitted.  "
^DD(130,454,21,4,0)="If this information is not applicable, enter NA."
^DD(130,454,"DT")="3040316"
^DD(130,455,0)="HIGHEST SERUM TROPONIN I^FX^^203;13^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,455,.1)="Highest Postoperative Serum Troponin I"
^DD(130,455,3)="Answer must be 1-5 characters in length."
^DD(130,455,21,0)="^^4^4^2990804^^^"
^DD(130,455,21,1,0)="This is the result of the highest postoperative serum cardiac troponin I"
^DD(130,455,21,2,0)="test.  Data input must be 1 to 5 numeric characters in length which may"
^DD(130,455,21,3,0)="include a prefix of a less than or greater than sign ""<"" or "">"".  "
^DD(130,455,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,455,"DT")="2990209"
^DD(130,455.1,0)="HIGH SERUM TROPONIN I, DATE^DX^^204;13^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,455.1,.1)="Date Highest Postop Troponin I was Performed"
^DD(130,455.1,3)="Enter the date that the highest postop troponin I was performed."
^DD(130,455.1,21,0)="^^1^1^2990804^^^^"
^DD(130,455.1,21,1,0)="This is the date that the highest postop serum troponin I was performed."
^DD(130,455.1,"DT")="3070119"
^DD(130,456,0)="HIGHEST SERUM TROPONIN T^FX^^203;14^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,456,.1)="Highest Postoperative Serum Troponin T"
^DD(130,456,3)="Answer must be 1-5 characters in length."
^DD(130,456,21,0)="^^4^4^2990804^^^"
^DD(130,456,21,1,0)="This is the result of the highest postoperative serum cardiac troponin T"
^DD(130,456,21,2,0)="test.  Data input must be 1 to 5 numeric characters in length which may"
^DD(130,456,21,3,0)="include a prefix of a less than or greater than sign ""<"" or "">"".  "
^DD(130,456,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,456,"DT")="2990209"
^DD(130,456.1,0)="HIGH SERUM TROPONIN T, DATE^DX^^204;14^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,456.1,.1)="Date Highest Postop Troponin T was Performed"
^DD(130,456.1,3)="Enter the date that the highest postop troponin T was performed."
^DD(130,456.1,21,0)="^^1^1^2990804^^^"
^DD(130,456.1,21,1,0)="This is the date that the highest postop serum troponin T was performed. "
^DD(130,456.1,"DT")="3070119"
^DD(130,457,0)="HDL (CARDIAC)^FX^^201;21^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,457,.1)="HDL (mg/dl)"
^DD(130,457,3)="Answer must be 1-6 characters in length."
^DD(130,457,21,0)="^^3^3^3060222^"
^DD(130,457,21,1,0)="CICSP Definition (2006):"
^DD(130,457,21,2,0)="Indicate the HDL result (mg/dl) preoperatively evaluated closest to "
^DD(130,457,21,3,0)="surgery. Entering ""NS"" for ""No Study"" is allowed."
^DD(130,457,"DT")="3060222"
^DD(130,457.1,0)="HDL, DATE^FXO^^202;21^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,457.1,.1)="HDL, Date"
^DD(130,457.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,457.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,457.1,3)="This is the date that the HDL was performed and must not be more than 1000 days before surgery."
^DD(130,457.1,21,0)="^^3^3^3060705^"
^DD(130,457.1,21,1,0)="CICSP Definition (2006):"
^DD(130,457.1,21,2,0)="Indicate the date that the preoperative HDL value was assessed. Enter "
^DD(130,457.1,21,3,0)="""NS"" for No Study if the HDL test was not performed."
^DD(130,457.1,"DT")="3070119"
^DD(130,458,0)="SERUM TRIGLYCERIDE (CARDIAC)^FX^^201;22^S:X=""NS""!(X=""ns"") X=""NS"" Q:X=""NS""  K:$L(X)>6!($L(X)<1) X"
^DD(130,458,.1)="Serum Triglyceride (mg/dl)"
^DD(130,458,3)="Answer must be 1-6 characters in length"
^DD(130,458,21,0)="^^3^3^3060705^"
^DD(130,458,21,1,0)="CICSP Definition (2006):"
^DD(130,458,21,2,0)="Indicate the Serum Triglyceride result (mg/dl) preoperatively          "
^DD(130,458,21,3,0)="evaluated closest to surgery. Entering ""NS"" for ""No Study"" is allowed."
^DD(130,458,"DT")="3060222"
^DD(130,458.1,0)="SERUM TRIGLYCERIDE, DATE (CAR)^FXO^^202;22^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,458.1,.1)="Serum Triglyceride, Date"
^DD(130,458.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,458.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,458.1,3)="This is the date that the Serum Triglyceride was performed and must not be more than 1000 days before surgery."
^DD(130,458.1,21,0)="^^4^4^3060705^"
^DD(130,458.1,21,1,0)="CICSP Definition (2006):"
^DD(130,458.1,21,2,0)="Indicate the date that the preoperative Serum Triglyceride value was "
^DD(130,458.1,21,3,0)="assessed. Enter ""NS"" for No Study if the Serum Triglyceride test was"
^DD(130,458.1,21,4,0)="not performed."
^DD(130,458.1,"DT")="3070119"
^DD(130,459,0)="SERUM POTASSIUM (CARDIAC)^FX^^201;23^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,459,.1)="Serum Potassium (mg/L)"
^DD(130,459,3)="Answer must be 1-6 characters in length."
^DD(130,459,21,0)="^^4^4^3040630^"
^DD(130,459,21,1,0)="CICSP Definition (2004):"
^DD(130,459,21,2,0)="Indicate the serum potassium result (mg/L) preoperatively evaluated "
^DD(130,459,21,3,0)="closest to surgery but not greater than 90 days before surgery.  "
^DD(130,459,21,4,0)="Entering ""NS"" for ""No Study"" is allowed."
^DD(130,459,"DT")="3040630"
^DD(130,459.1,0)="SERUM POTASSIUM, DATE(CARDIAC)^FXO^^202;23^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,459.1,.1)="Serum Potassium, Date"
^DD(130,459.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,459.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,459.1,3)="Enter the date that the Serum Potassium was performed."
^DD(130,459.1,21,0)="^.001^4^4^3040728^^"
^DD(130,459.1,21,1,0)="CICSP Definition (2004):"
^DD(130,459.1,21,2,0)="Indicate the date that the preoperative Serum Potassium value was "
^DD(130,459.1,21,3,0)="assessed. Enter ""NS"" for No Study if the Serum Potassium test was not "
^DD(130,459.1,21,4,0)="performed or was performed more than 90 days before surgery."
^DD(130,459.1,"DT")="3070119"
^DD(130,460,0)="SERUM BILIRUBIN (CARDIAC)^FX^^201;24^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,460,.1)="Serum Bilirubin (mg/dl)"
^DD(130,460,3)="Answer must be 1-6 characters in length."
^DD(130,460,21,0)="^^4^4^3040630^"
^DD(130,460,21,1,0)="CICSP Definition (2004):"
^DD(130,460,21,2,0)="Indicate the serum bilirubin result (mg/dl) preoperatively evaluated "
^DD(130,460,21,3,0)="closest to surgery but not greater than 90 days before surgery.  "
^DD(130,460,21,4,0)="Entering ""NS"" for ""No Study"" is allowed."
^DD(130,460,"DT")="3040630"
^DD(130,460.1,0)="SERUM BILIRUBIN, DATE (CARD)^FXO^^202;24^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,460.1,.1)="Serum Bilirubin, Date"
^DD(130,460.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,460.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,460.1,3)="Enter the date that the Serum Bilirubin was performed."
^DD(130,460.1,21,0)="^.001^4^4^3040728^^"
^DD(130,460.1,21,1,0)="CICSP Definition (2004):"
^DD(130,460.1,21,2,0)="Indicate the date that the preoperative Serum Bilirubin value was "
^DD(130,460.1,21,3,0)="assessed. Enter ""NS"" for No Study if the Serum Bilirubin test was"
^DD(130,460.1,21,4,0)="not performed or was performed more than 90 days before surgery."
^DD(130,460.1,"DT")="3070119"
^DD(130,461,0)="LDL (CARDIAC)^FX^^201;25^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,461,.1)="LDL (mg/dl)"
^DD(130,461,3)="Answer must be 1-6 characters in length."
^DD(130,461,21,0)="^^3^3^3060308^"
^DD(130,461,21,1,0)="CICSP Definition (2006):"
^DD(130,461,21,2,0)="Indicate the LDL result (mg/dl) preoperatively evaluated closest to "
^DD(130,461,21,3,0)="surgery. Entering ""NS"" for ""No Study"" is allowed."
^DD(130,461,"DT")="3060308"
^DD(130,461.1,0)="LDL, DATE (CARDIAC)^FXO^^202;25^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,461.1,.1)="LDL, Date"
^DD(130,461.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,461.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,461.1,3)="This is the date that the LDL was performed and must not be more than 1000 days before surgery."
^DD(130,461.1,21,0)="^^3^3^3060705^"
^DD(130,461.1,21,1,0)="CICSP Definition (2006):"
^DD(130,461.1,21,2,0)="Indicate the date that the preoperative LDL value was assessed. "
^DD(130,461.1,21,3,0)="Enter ""NS"" for No Study if the LDL test was not performed."
^DD(130,461.1,"DT")="3070119"
^DD(130,462,0)="TOTAL CHOLESTEROL (CARDIAC)^FX^^201;26^K:$L(X)>6!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,462,.1)="Total Cholesterol (mg/dl)"
^DD(130,462,3)="Answer must be 1-6 characters in length."
^DD(130,462,21,0)="^^3^3^3060705^"
^DD(130,462,21,1,0)="CICSP Definition (2006):"
^DD(130,462,21,2,0)="Indicate the Total Cholesterol result (mg/dl) preoperatively evaluated "
^DD(130,462,21,3,0)="closest to surgery. Entering ""NS"" for ""No Study"" is allowed."
^DD(130,462,"DT")="3060222"
^DD(130,462.1,0)="TOTAL CHOLESTEROL, DATE^FXO^^202;26^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,462.1,.1)="Total Cholesterol, Date"
^DD(130,462.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,462.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,462.1,3)="This is the date that the Total Cholesterol was performed and must not be more than 1000 days before surgery."
^DD(130,462.1,21,0)="^^4^4^3060705^"
^DD(130,462.1,21,1,0)="CICSP Definition (2006):"
^DD(130,462.1,21,2,0)="Indicate the date that the preoperative Total Cholesterol value was "
^DD(130,462.1,21,3,0)="assessed. Enter ""NS"" for No Study if the Cholesterol test was not"
^DD(130,462.1,21,4,0)="performed."
^DD(130,462.1,"DT")="3070119"
^DD(130,463,0)="HYPERTENSION^S^Y:YES;N:NO;^206;38^Q"
^DD(130,463,.1)="History of Hypertension (Y/N)"
^DD(130,463,3)="Enter YES if there is any indication that the patient has hypertension."
^DD(130,463,21,0)="^^5^5^3040311^"
^DD(130,463,21,1,0)="CICSP Definition (2004):"
^DD(130,463,21,2,0)="Indicate if the patient has a documented history of hypertension with"
^DD(130,463,21,3,0)="or without current treatment of antihypertensive medication(s). If a"
^DD(130,463,21,4,0)="diuretic agent is prescribed to treat hypertension, indicate Yes for "
^DD(130,463,21,5,0)="both the hypertension and the diuretic questions. (YES/NO)."
^DD(130,463,"DT")="3040715"
^DD(130,464,0)="NUMBER WITH RADIAL ARTERY^NJ2,0^^207;24^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1.N) X"
^DD(130,464,.1)="Number with Radial Artery"
^DD(130,464,3)="Enter the number of coronary artery bypass graft (CABG) anastomoses to native coronary arteries performed with radial artery(ies)."
^DD(130,464,21,0)="^^7^7^3000705^"
^DD(130,464,21,1,0)="This is the number of coronary artery bypass graft (CABG) anastomoses"
^DD(130,464,21,2,0)="to native coronary arteries with radial artery(ies) regardless of "
^DD(130,464,21,3,0)="whether other procedures were performed. Do not leave blank, enter"
^DD(130,464,21,4,0)="""zero"" in the appropriate place if no coronary artery bypass grafts"
^DD(130,464,21,5,0)="were performed with radial artery."
^DD(130,464,21,6,0)="Note that any CABG distal anastomoses performed without placing the"
^DD(130,464,21,7,0)="patient on cardiopulmonary bypass are to be recorded."
^DD(130,464,"DT")="3000705"
^DD(130,465,0)="NUMBER WITH OTHER ARTERY^NJ2,0^^207;25^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1.N) X"
^DD(130,465,.1)="Number with Other Artery"
^DD(130,465,3)="Enter the number of coronary artery bypass graft (CABG) anastomoses to native coronary arteries performed with other artery(ies)."
^DD(130,465,21,0)="^.001^7^7^3000824^^"
^DD(130,465,21,1,0)="This is the number of coronary artery bypass graft (CABG) anastomoses"
^DD(130,465,21,2,0)="to native coronary arteries with other artery(ies) regardless of"
^DD(130,465,21,3,0)="whether other procedures were performed. Do not leave blank, enter"
^DD(130,465,21,4,0)="""zero"" in the appropriate place if no coronary artery bypass grafts"
^DD(130,465,21,5,0)="were performed with other artery(ies). Note that any CABG distal "
^DD(130,465,21,6,0)="anastomoses performed without placing the patient on cardiopulmonary"
^DD(130,465,21,7,0)="bypass are to be recorded."
^DD(130,465,"DT")="3000824"
^DD(130,466,0)="TRACHEOSTOMY^S^Y:YES;N:NO;^206;39^Q"
^DD(130,466,.1)="Tracheostomy"
^DD(130,466,3)="Enter YES if a postoperative tracheostomy was performed on this patient."
^DD(130,466,21,0)="^^4^4^3040809^"
^DD(130,466,21,1,0)="CICSP Definition (2004):"
^DD(130,466,21,2,0)="Indicate if a procedure to cut into the trachea and insert a tube to "
^DD(130,466,21,3,0)="overcome tracheal obstruction or to facilitate extended mechanical "
^DD(130,466,21,4,0)="ventilation was performed within 30 days of surgery."
^DD(130,466,"DT")="3040809"
^DD(130,467,0)="NEW MECHANICAL CIRCULATORY^S^Y:YES;N:NO;^206;40^Q"
^DD(130,467,.1)="New Mechanical Circulatory Support"
^DD(130,467,3)="Enter YES if new mechanical circulatory support was necessary perioperatively."
^DD(130,467,21,0)="^^20^20^3040721^"
^DD(130,467,21,1,0)="CICSP Definition (2004):"
^DD(130,467,21,2,0)="Indicate if the patient left the operating room suite with or required"
^DD(130,467,21,3,0)="post-op placement of a new IABP, ECMO, or VAD for circulatory support"
^DD(130,467,21,4,0)="within 30 days perioperatively. A ""yes"" response is appropriate even if"
^DD(130,467,21,5,0)="the pump is only used for a short time perioperatively. A ""yes"""
^DD(130,467,21,6,0)="response, however, is only correct if the patient did not enter the"
^DD(130,467,21,7,0)="operating room with this same mechanical circulatory support, and the"
^DD(130,467,21,8,0)="device insertion occurred AFTER the induction of anesthesia."
^DD(130,467,21,9,0)=" "
^DD(130,467,21,10,0)="If patient had/required new mechanical circulatory support, indicate "
^DD(130,467,21,11,0)="whether the placement occurred intraoperatively or postoperatively.  "
^DD(130,467,21,12,0)="Indicate the one appropriate response:"
^DD(130,467,21,13,0)=" - intraoperatively: occurring while patient was in the operating room."
^DD(130,467,21,14,0)=" - postoperatively:  occurring after patient left the operating room."
^DD(130,467,21,15,0)=" "
^DD(130,467,21,16,0)="A ""no"" response is appropriate if the circulatory support device was "
^DD(130,467,21,17,0)="placed as a prophylaxis before the induction of anesthesia; however, if"
^DD(130,467,21,18,0)="it was placed for any reason after the induction of anesthesia, then a"
^DD(130,467,21,19,0)="""yes"" response is appropriate. A ""no"" response is also appropriate if"
^DD(130,467,21,20,0)="the primary operation is to insert a ventricular assist device."
^DD(130,467,"DT")="3040721"
^DD(130,468,0)="INCISION TYPE^S^FS:FULL STERNOTOMY;FT:FULL THORACOTOMY;LP:LIMITED PARASTERNAL APPROACH;LS:LIMITED STERNOTOMY;LT:LIMITED THORACOTOMY;OL:OTHER LIMITED SURG APPROACH;NS:NO STUDY/UNKNOWN;^207;26^Q"
^DD(130,468,.1)="Incision Type"
^DD(130,468,3)="Select the appropriate description of the incision used for cardiac access."
^DD(130,468,21,0)="^^29^29^3000920^"
^DD(130,468,21,1,0)="This describes the incision used for cardiac access, according to the"
^DD(130,468,21,2,0)="operative report.  (Do not include incisions for port access.)  Enter"
^DD(130,468,21,3,0)="NS if incision type is unknown."
^DD(130,468,21,4,0)=" "
^DD(130,468,21,5,0)=" - Limited Sternotomy: The incision cuts through a small portion (less"
^DD(130,468,21,6,0)="   than half of the length) of the sternum (the narrow, flat bone in"
^DD(130,468,21,7,0)="   the median line of the thorax in the front of the chest)."
^DD(130,468,21,8,0)=" "
^DD(130,468,21,9,0)=" - Full Sternotomy: The incision cuts through the entire length of the"
^DD(130,468,21,10,0)="   sternum (the narrow, flat bone in the median line of the thorax in"
^DD(130,468,21,11,0)="   the front of the chest)."
^DD(130,468,21,12,0)=" "
^DD(130,468,21,13,0)=" - Limited Thoracotomy: A small surgical incision through a portion of"
^DD(130,468,21,14,0)="   the chest wall, but not along the sternum.  For example, an"
^DD(130,468,21,15,0)="   anterolateral thoracotomy approach may be used in LIMA to LAD"
^DD(130,468,21,16,0)="   grafting."
^DD(130,468,21,17,0)="  "
^DD(130,468,21,18,0)=" - Full Thoracotomy: A larger surgical incision running across the"
^DD(130,468,21,19,0)="   chest wall, but not along the sternum.  This may be a left"
^DD(130,468,21,20,0)="   submammary incision, which requires the resection of the fourth"
^DD(130,468,21,21,0)="   costal cartilage and /or deflation of the left lung."
^DD(130,468,21,22,0)=" "
^DD(130,468,21,23,0)=" - Limited Parasternal Approach: The incision cuts beside a small"
^DD(130,468,21,24,0)="   portion (less than 0.5 of the length) of the sternum, on a line"
^DD(130,468,21,25,0)="   midway between the sternal margin and an imaginary line passing"
^DD(130,468,21,26,0)="   through the nipple."
^DD(130,468,21,27,0)="   "
^DD(130,468,21,28,0)=" - Other Limited Surgical Approach: An incision or incision set used to"
^DD(130,468,21,29,0)="   visualize the operating field that is not listed above."
^DD(130,468,"DT")="3000919"
^DD(130,469,0)="CONVERT FROM OFF PUMP TO CPB^*S^1:NO (began off-pump/ stayed off-pump);2:YES-PLANNED;3:YES-UNPLANNED;4:YES-UNKNOWN IF PLANNED;5:N/A (began on-pump/ stayed on-pump);NS:NO STUDY/UNKNOWN;^207;27^Q"
^DD(130,469,.1)="Convert from Off Pump to CPB"
^DD(130,469,3)="Was this procedure begun as an off-pump procedure, but changed so that CPB was used for any reason, or any length of time?"
^DD(130,469,12)="Screen prevents selection of 4-YES-UNKNOWN IF PLANNED entry and prevents selection of 1-NO (began off-pump/ stayed off-pump) if CPB Time >0."
^DD(130,469,12.1)="S DIC(""S"")=""I Y'=4&'(Y=1&($P($G(^SRF(DA,206)),""""^"""",37)))"""
^DD(130,469,21,0)="^^21^21^3040311^"
^DD(130,469,21,1,0)="CICSP Definition (2004):"
^DD(130,469,21,2,0)="Indicate whether patient was converted from off cardiopulmonary bypass"
^DD(130,469,21,3,0)="assistance to on cardiopulmonary bypass during the cardiac surgical"
^DD(130,469,21,4,0)="procedure. Indicate the one appropriate response:"
^DD(130,469,21,5,0)=" "
^DD(130,469,21,6,0)="No - There was no conversion that occurred for the off-pump case "
^DD(130,469,21,7,0)="     performed (i.e., the off-pump case remained off-pump throughout "
^DD(130,469,21,8,0)="     the operation)."
^DD(130,469,21,9,0)="N/A - The procedure was NOT an off-pump case (i.e., procedure began "
^DD(130,469,21,10,0)="     on-pump and remained on- pump throughout the case). [The default"
^DD(130,469,21,11,0)="     will be set to N/A.]"
^DD(130,469,21,12,0)="Yes, planned - The procedure was begun as an off-pump procedure but "
^DD(130,469,21,13,0)="     changed to on-pump for any length of time; the change was planned "
^DD(130,469,21,14,0)="     due to decision made prior to operation to perform some vessels"
^DD(130,469,21,15,0)="     off-pump and some on-pump in order to minimize total CPB time."
^DD(130,469,21,16,0)="Yes, unplanned - The procedure was begun as an off-pump procedure but "
^DD(130,469,21,17,0)="     changed to on-pump for any length of time; the change was "
^DD(130,469,21,18,0)="     unplanned and determined in the operating room due to inability "
^DD(130,469,21,19,0)="     to safely perform revascularization."
^DD(130,469,21,20,0)="NS/Unknown - If documentation is not sufficient to answer, entering "
^DD(130,469,21,21,0)="     ""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,469,"DT")="3070123"
^DD(130,470,0)="D/T PATIENT EXTUBATED^FXO^^208;22^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""RI""!(SRX=""ri"") X=""RI"""
^DD(130,470,.1)="Date and Time Patient Extubated"
^DD(130,470,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,470,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,470,3)="Enter the exact date and time that the endotracheal tube is pulled for the final time after the surgery."
^DD(130,470,21,0)="^^12^12^3071204^"
^DD(130,470,21,1,0)="CICSP Definition (2008): "
^DD(130,470,21,2,0)="Indicate the date that the endotracheal tube is pulled for the first"
^DD(130,470,21,3,0)="time after surgery. If a tracheostomy is performed to replace an oral"
^DD(130,470,21,4,0)="intubation tube, intubation is considered continuous so the patient "
^DD(130,470,21,5,0)="has not been extubated as long as the patient continues to require"
^DD(130,470,21,6,0)="ventilator support. If the patient dies while intubated, indicate the"
^DD(130,470,21,7,0)="date of death for this data element. Indicate ""extubated prior to"
^DD(130,470,21,8,0)="leaving the OR"" in the Resource Comment if patient is extubated prior"
^DD(130,470,21,9,0)="to leaving the OR."
^DD(130,470,21,10,0)=" "
^DD(130,470,21,11,0)="RI - The patient remains intubated and on ventilator at 30 days after "
^DD(130,470,21,12,0)="surgery."
^DD(130,470,"DT")="3071204"
^DD(130,471,0)="D/T PATIENT DISCH FROM ICU^FXO^^208;23^N SRX S SRX=X,%DT=""ERTXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""RI""!(SRX=""ri"") X=""RI"""
^DD(130,471,.1)="Date and Time Patient Discharged from ICU"
^DD(130,471,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,471,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,471,3)="Enter the first date and time of the discharge from the intensive care unit (ICU). "
^DD(130,471,21,0)="^^10^10^3040311^"
^DD(130,471,21,1,0)="CICSP Definition (2004):"
^DD(130,471,21,2,0)="This is the first date and time of the discharge from the intensive "
^DD(130,471,21,3,0)="care unit (ICU). ICU is usually a surgical unit (SICU), although it "
^DD(130,471,21,4,0)="may also include a post-anesthesia recovery unit off the operating room."
^DD(130,471,21,5,0)="It may also be a general ICU in which medical patients are also managed"
^DD(130,471,21,6,0)="(MICU, CCU). This will always be the unit into which the patient goes"
^DD(130,471,21,7,0)="immediately after surgery and is stabilized, ventilated and ultimately"
^DD(130,471,21,8,0)="extubated. Do not include lower acuity units where the patient goes"
^DD(130,471,21,9,0)="subsequently (i.e. stepdown, transitional care, telemetry, etc.). Do "
^DD(130,471,21,10,0)="not include subsequent readmissions to the ICU."
^DD(130,471,"DT")="3060314"
^DD(130,472,0)="CARDIAC SURG PERFORMED NON-VA^S^Y:YES;N:NO;NS:UNKNOWN;^206;41^Q"
^DD(130,472,.1)="Cardiac surgery contracted and performed at a non-VA facility"
^DD(130,472,3)="Enter Yes if the surgery was performed at a non-VA facility through a contract arrangement."
^DD(130,472,21,0)="^^17^17^3040726^"
^DD(130,472,21,1,0)="CICSP Definition (2004):"
^DD(130,472,21,2,0)="Indicate whether the patient's cardiac surgery was performed in "
^DD(130,472,21,3,0)="a non-VA facility through a contracted arrangement, even if part of "
^DD(130,472,21,4,0)="the post-surgical care is provided at the VA.  A ""contract"" facility "
^DD(130,472,21,5,0)="is one established to be an affiliate with the VA medical center, and "
^DD(130,472,21,6,0)="it is most typically a University Hospital.  In rare cases a ""contract"""
^DD(130,472,21,7,0)="facility may be a community hospital when there is no University "
^DD(130,472,21,8,0)="affiliate for the VAMC.  By contrast, a ""fee-basis"" patient surgery "
^DD(130,472,21,9,0)="should not be indicated as a ""contract"" facility.  Typically, a"
^DD(130,472,21,10,0)="""fee-basis"" establishment is an agreement by the VA Chief of Staff to"
^DD(130,472,21,11,0)="out-source a patient to a community hospital.  That hospital then bills"
^DD(130,472,21,12,0)="the Chief of Staff for care rendered on the patient.  CICSP does not "
^DD(130,472,21,13,0)="wish to capture the patient data on the ""fee-basis"" patients. If the"
^DD(130,472,21,14,0)="patient is not entered into VISTA, send a paper form to Denver for"
^DD(130,472,21,15,0)="hand-entry, unless your facility contracts-out a majority of its cases."
^DD(130,472,21,16,0)="Enter ""NS"" if funding for the procedure is not known. The default is "
^DD(130,472,21,17,0)="to NO if a response is not entered."
^DD(130,472,"DT")="3040726"
^DD(130,473,0)="HOMELESS^S^Y:YES;N:NO;NS:NO STUDY/UNKNOWN;^209;1^Q"
^DD(130,473,.1)="Homeless (Yes/No)"
^DD(130,473,3)="Enter 'YES' if the patient does not have a fixed dwelling."
^DD(130,473,21,0)="^.001^3^3^3040401^^"
^DD(130,473,21,1,0)="CICSP Definition (2004):"
^DD(130,473,21,2,0)="If the patient indicates he/she does not have a fixed dwelling, "
^DD(130,473,21,3,0)="indicate the person's status as homeless."
^DD(130,473,"DT")="3040401"
^DD(130,474,0)="PREOP CIRCULATORY DEVICE^S^N:NONE;I:IABP;V:VAD (includes BIVAD);A:ARTIFICIAL HEART;O:OTHER;^209;2^Q"
^DD(130,474,.1)="Preop use of circulatory Device"
^DD(130,474,3)="Enter the Preoperative use of new mechanical circulatory device within 2 wks of surgery."
^DD(130,474,21,0)="^^13^13^3070118^"
^DD(130,474,21,1,0)="CICSP Definition (2007):"
^DD(130,474,21,2,0)="Indicate whether there was any use of any device to assist ventricular "
^DD(130,474,21,3,0)="function at the time the patient presents for surgery. Indicate the one "
^DD(130,474,21,4,0)="appropriate response: "
^DD(130,474,21,5,0)=" "
^DD(130,474,21,6,0)="None - No New Mechanical Circulatory Device was placed."
^DD(130,474,21,7,0)="IABP - An intra-aortic balloon pump was placed to assist ventricular"
^DD(130,474,21,8,0)="       function."
^DD(130,474,21,9,0)="VAD -  A ventricular assist device (e.g., LVAD, BIVAD) was placed to "
^DD(130,474,21,10,0)="       assist ventricular function."
^DD(130,474,21,11,0)="Artificial Heart - An artificial heart was placed to assist ventricular "
^DD(130,474,21,12,0)="       function."
^DD(130,474,21,13,0)="Other - An other type of Mechanical Circulatory Device was placed. "
^DD(130,474,"DT")="3070118"
^DD(130,475,0)="DIABETES (CARDIAC)^S^N:NO;D:DIET;O:ORAL;I:INSULIN;^209;3^Q"
^DD(130,475,.1)="Diabetes"
^DD(130,475,3)="Enter the patient's diabetes status."
^DD(130,475,21,0)="^^16^16^3060308^"
^DD(130,475,21,1,0)="CICSP Definition (2006):"
^DD(130,475,21,2,0)="Indicate if the patient has diabetes treated with diet, oral, and/or "
^DD(130,475,21,3,0)="insulin therapy. Diabetes is defined as a metabolic disorder of the "
^DD(130,475,21,4,0)="pancreas whereby the individual requires daily dosages of exogenous "
^DD(130,475,21,5,0)="parenteral insulin or an oral hypoglycemic agent to prevent a "
^DD(130,475,21,6,0)="hyperglycemic/metabolic acidosis. If the patient is on both Oral and "
^DD(130,475,21,7,0)="Insulin therapy, indicate Insulin therapy. Indicate the one most "
^DD(130,475,21,8,0)="appropriate response."
^DD(130,475,21,9,0)="No - no diagnosis of diabetes. "
^DD(130,475,21,10,0)="Diet - a diagnosis of diabetes that is controlled by diet alone in the "
^DD(130,475,21,11,0)="two weeks preceding surgery (the only prescribed treatment has been"
^DD(130,475,21,12,0)="diabetic relief)."
^DD(130,475,21,13,0)="Oral - a diagnosis of diabetes requiring therapy with an oral "
^DD(130,475,21,14,0)="hypoglycemic agent in the two weeks preceding surgery."
^DD(130,475,21,15,0)="Insulin - a diagnosis of diabetes requiring daily insulin therapy "
^DD(130,475,21,16,0)="in the two weeks preceding surgery."
^DD(130,475,"DT")="3060308"
^DD(130,476,0)="PROCEDURE TYPE^S^C:CATH;I:IVUS;B:BOTH/COMBINATION;NS:NO STUDY/UNKNOWN;^209;4^Q"
^DD(130,476,.1)="Procedure Type"
^DD(130,476,3)="Enter procedure type, which was used for the cardiac catheterization and/or angiographic data."
^DD(130,476,21,0)="^^17^17^3040721^"
^DD(130,476,21,1,0)="CICSP Definition (2004):"
^DD(130,476,21,2,0)="Indicate which test was used for the cardiac catheterization and/or"
^DD(130,476,21,3,0)="angiographic data. Indicate the one most appropriate response:"
^DD(130,476,21,4,0)=" "
^DD(130,476,21,5,0)="Cath - A diagnostic procedure in which a catheter is introduced into a"
^DD(130,476,21,6,0)="   large vein, usually of an arm or leg, and threaded through the"
^DD(130,476,21,7,0)="   circulatory system to the heart to determine blood pressure and the "
^DD(130,476,21,8,0)="   rate of flow in the vessels and chambers of the heart and the"
^DD(130,476,21,9,0)="   identification of abnormal anatomy."
^DD(130,476,21,10,0)="IVUS - Intravascular Ultrasound may be used either alone or in "
^DD(130,476,21,11,0)="   combination with results from the cardiac catheterization. If used "
^DD(130,476,21,12,0)="   alone, indicate IVUS as the only test from which procedure results "
^DD(130,476,21,13,0)="   are calculated."
^DD(130,476,21,14,0)="Both - If both IVUS and Cath are available and both tests were "
^DD(130,476,21,15,0)="   analyzed for the results, indicate Both/Combination. "
^DD(130,476,21,16,0)="NS - If no cath study is available, entering NS for ""No Study/Unknown"""
^DD(130,476,21,17,0)="   is also allowed."
^DD(130,476,"DT")="3040721"
^DD(130,477,0)="AORTIC STENOSIS^S^0:NONE/TRIVIAL;1:MILD;2:MODERATE;3:SEVERE;NS:NO STUDY;^209;5^Q"
^DD(130,477,.1)="Aortic Stenosis"
^DD(130,477,3)="Enter severity of aortic stenosis using LV angiogram or cardiac ultrasound."
^DD(130,477,21,0)="^^29^29^3070416^"
^DD(130,477,21,1,0)="CICSP Definition (2007):"
^DD(130,477,21,2,0)="Indicate the severity of any aortic stenosis documented. This question"
^DD(130,477,21,3,0)="should be answered using either the left ventricular angiogram"
^DD(130,477,21,4,0)="(hemodynamic cath data) or the cardiac ultrasound examination. Numbers"
^DD(130,477,21,5,0)="may be converted to describe the severity of the aortic stenosis on the"
^DD(130,477,21,6,0)="cardiac cath report to the adjectives describing the severity: 1+ ="
^DD(130,477,21,7,0)="mild, 2 or 3+ = moderate, and 4+ = severe. Both transvalvular gradient"
^DD(130,477,21,8,0)="and estimated valve orifice area are used to assess the severity of"
^DD(130,477,21,9,0)="obstruction (stenosis) of a valve. The transvalvular pressure gradient"
^DD(130,477,21,10,0)="is obtained by converting the velocity of blood flow across the valve"
^DD(130,477,21,11,0)="measured by the Doppler principle to pressure drop using the Bernoulli"
^DD(130,477,21,12,0)="equation. The pressure drop, which is dependent on flow, can be"
^DD(130,477,21,13,0)="converted to estimated valve orifice area if flow is known. If the echo"
^DD(130,477,21,14,0)="report uses an adjective to describe the severity of stenosis, indicate"
^DD(130,477,21,15,0)="the corresponding adjective. Use the following to convert mean (not"
^DD(130,477,21,16,0)="peak) transvalvular gradients, orifice areas, or both, to the"
^DD(130,477,21,17,0)="descriptive categories. Indicate the one most appropriate response:"
^DD(130,477,21,18,0)=" "
^DD(130,477,21,19,0)=" None/Trivial - The mean pressure gradient is < 5 mm Hg, and/or orifice"
^DD(130,477,21,20,0)="     area is > 2.5 cm2, and/or the aortic valve leaflets or aortic flow"
^DD(130,477,21,21,0)="     velocity is stated to be normal (< 1.0 M/sec)."
^DD(130,477,21,22,0)=" Mild - The mean pressure gradient is 5 - 20 mm Hg and/or the orifice "
^DD(130,477,21,23,0)="     area is 1.7 - 2.5 cm2"
^DD(130,477,21,24,0)=" Moderate - The mean pressure gradient is >20 - 50 mm Hg and/or the "
^DD(130,477,21,25,0)="     valve orifice area is 1.0 -1.6 cm2"
^DD(130,477,21,26,0)=" Severe - The mean pressure gradient is > 50 mm Hg and/or the valve "
^DD(130,477,21,27,0)="     orifice area is < 1.0 cm2"
^DD(130,477,21,28,0)=" NS - If no study was performed, entering ""NS"" for ""No Study/Unknown"""
^DD(130,477,21,29,0)="     is also allowed."
^DD(130,477,"DT")="3070416"
^DD(130,478,0)="RE-DO LAD STENOSIS^FX^^209;6^N SRX S SRX=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,478,.1)="Re-Do Lad Stenosis"
^DD(130,478,3)="Type a number between 0 and 100, 0 Decimal Digits"
^DD(130,478,21,0)="^.001^4^4^3040728^^"
^DD(130,478,21,1,0)="CICSP Definition (2004):"
^DD(130,478,21,2,0)="If a re-do, indicate the most severe percent stenosis in the graft to"
^DD(130,478,21,3,0)="the left anterior descending coronary artery. Entering ""NS"" for ""No"
^DD(130,478,21,4,0)="Study/Unknown"" is also allowed."
^DD(130,478,"DT")="3050923"
^DD(130,479,0)="RE-DO RT CORONARY STENOSIS^FX^^209;7^N SRX S SRX=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,479,.1)="Re-Do Right Coronary Stenosis"
^DD(130,479,3)="Type a number between 0 and 100, 0 Decimal Digits"
^DD(130,479,21,0)="^^4^4^3040311^"
^DD(130,479,21,1,0)="CICSP Definition (2004):"
^DD(130,479,21,2,0)="If a re-do, indicate the most severe percent stenosis in the graft to"
^DD(130,479,21,3,0)="the right coronary artery or posterior descending coronary artery."
^DD(130,479,21,4,0)="Entering ""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,479,"DT")="3050923"
^DD(130,480,0)="RE-DO CIRCUMFLEX STENOSIS^FX^^209;8^N SRX S SRX=X K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,480,.1)="Re-Do Circumflex Stenosis"
^DD(130,480,3)="Type a number between 0 and 100, 0 Decimal Digits"
^DD(130,480,21,0)="^^5^5^3040311^"
^DD(130,480,21,1,0)="CICSP Definition (2004):"
^DD(130,480,21,2,0)="If a re-do, indicate the most severe percent stenosis in the graft to "
^DD(130,480,21,3,0)="the circumflex coronary artery, including marginal branches and ramus"
^DD(130,480,21,4,0)="intermedius considered to be of adequate size for bypass grafting."
^DD(130,480,21,5,0)="Entering ""NS"" for ""No Study/Unknown"" is also allowed."
^DD(130,480,"DT")="3050923"
^DD(130,481,0)="BRIDGE TO TRANSPLANT/DEVICE^S^Y:YES;N:NO;^209;9^Q"
^DD(130,481,.1)="Device for bridge to cardiac transplant / Destination therapy"
^DD(130,481,3)="Enter 'YES' if patient received a mechanical support device as a bridge to cardiac transplant."
^DD(130,481,21,0)="^^6^6^3060209^^"
^DD(130,481,21,1,0)="CICSP Definition (2006):"
^DD(130,481,21,2,0)="Indicate if patient received a mechanical support device "
^DD(130,481,21,3,0)="(excluding IABP) as a bridge to cardiac transplant during the same"
^DD(130,481,21,4,0)="admission as the transplant procedure; or patient received the device"
^DD(130,481,21,5,0)="as destination therapy (does not intend to have a cardiac transplant),"
^DD(130,481,21,6,0)="either with or without placing the patient on cardiopulmonary bypass."
^DD(130,481,"DT")="3060209"
^DD(130,482,0)="*MAZE PROCEDURE^S^Y:YES;N:NO;^209;10^Q"
^DD(130,482,.1)="*Maze Procedure"
^DD(130,482,3)="Enter Yes if Maze procedure was done."
^DD(130,482,21,0)="^^7^7^3060330^"
^DD(130,482,21,1,0)="CICSP Definition (2004):"
^DD(130,482,21,2,0)="Indicate if patient had a Maze procedure either with or without"
^DD(130,482,21,3,0)="placing the patient on cardiopulmonary bypass. A Maze procedure is"
^DD(130,482,21,4,0)="a surgical intervention used to interrupt atrial conduction pathways"
^DD(130,482,21,5,0)="often associated with atrial fibrillation or atrial flutter. It may"
^DD(130,482,21,6,0)="be performed alone or in combination with other cardiac procedures."
^DD(130,482,21,7,0)="(YES/NO)."
^DD(130,482,"DT")="3060405"
^DD(130,483,0)="TMR^S^Y:YES;N:NO;^209;11^Q"
^DD(130,483,.1)="Transmyocardial Laser Revascularization"
^DD(130,483,3)="Enter 'YES' to indicate if patient received a transmyocardial laser procedure (TMR)."
^DD(130,483,21,0)="^^6^6^3040311^"
^DD(130,483,21,1,0)="CICSP Definition (2004):"
^DD(130,483,21,2,0)="Indicate if patient received a transmyocardial laser procedure (TMR)"
^DD(130,483,21,3,0)="to make ""channels"" or small holes directly into the heart muscle, either"
^DD(130,483,21,4,0)="with or without placing the patient on cardiopulmonary bypass.  The TMR"
^DD(130,483,21,5,0)="may be done in combination with a CABG procedure or as a stand-alone"
^DD(130,483,21,6,0)="procedure."
^DD(130,483,"DT")="3040311"
^DD(130,484,0)="OTHER CARDIAC PROCEDURES-LIST^FX^^209.1;1^S NYUK=X K:$L(X)>60!($L(X)<3) X S:NYUK=""NS""!(NYUK=""ns"") X=""NS"" K NYUK"
^DD(130,484,.1)="Other cardiac procedures (specify)"
^DD(130,484,3)="Answer must be 3-60 characters in length."
^DD(130,484,21,0)="^.001^4^4^3060705^^"
^DD(130,484,21,1,0)="CICSP Definition (2006):"
^DD(130,484,21,2,0)="Specify if any cardiac surgical procedure (not listed above) was"
^DD(130,484,21,3,0)="performed alone or in conjunction with the index procedure, either"
^DD(130,484,21,4,0)="with or without placing the patient on cardiopulmonary bypass."
^DD(130,484,"DT")="3060404"
^DD(130,485,0)="PRIOR HEART SURGERIES^FX^^206;42^K:X["""""""" X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(130,485,.1)="Prior Heart Surgeries"
^DD(130,485,3)="Answer must be 1-10 characters in length"
^DD(130,485,21,0)="^^15^15^3040629^"
^DD(130,485,21,1,0)="CICSP Definition (2004):"
^DD(130,485,21,2,0)="Indicate all applicable types of heart surgery performed, occurring "
^DD(130,485,21,3,0)="during a separate hospitalization (more than 30 days prior to current"
^DD(130,485,21,4,0)="surgery), either on or off-pump. Indicate all appropriate responses:"
^DD(130,485,21,5,0)=" "
^DD(130,485,21,6,0)=" None       - Patient has not had a previous cardiac surgery procedure"
^DD(130,485,21,7,0)=" CABG-only  - Patient has had a previous coronary artery bypass graft"
^DD(130,485,21,8,0)="              (CABG-only) procedure"
^DD(130,485,21,9,0)=" Valve-only - Patient has had a previous valve-only procedure"
^DD(130,485,21,10,0)=" CABG/valve - Patient has had a previous combination CABG/valve "
^DD(130,485,21,11,0)="              procedure "
^DD(130,485,21,12,0)=" Other      - Patient has had a previous cardiac procedure(s) not"
^DD(130,485,21,13,0)="              indicated in this list"
^DD(130,485,21,14,0)=" CABG/other - Patient has had a previous combination CABG/other"
^DD(130,485,21,15,0)="              procedure(s) not indicated in this list"
^DD(130,485,"DT")="3040629"
^DD(130,486,0)="GASTROINTESTINAL (Y/N)^S^Y:YES;N:NO;NS:NO STUDY;^200.1;1^Q"
^DD(130,486,.1)="Gastrointestinal (Y/N)"
^DD(130,486,3)="Enter 'YES' if this patient has a history of gastrointestinal problems."
^DD(130,486,21,0)="^.001^2^2^3031211^^"
^DD(130,486,21,1,0)="This determines whether the patient has a history of gastrointestinal "
^DD(130,486,21,2,0)="problems such as esophageal varices."
^DD(130,486,"DT")="3031211"
^DD(130,487,0)="PREOPERATIVE INR^FX^^201;27^K:$L(X)>5!($L(X)<1) X I $D(X) D NUM^SROAL21"
^DD(130,487,.1)="Preoperative INR"
^DD(130,487,3)="Answer must be 1-5 characters in length."
^DD(130,487,21,0)="^.001^4^4^3040118^^"
^DD(130,487,21,1,0)="This is the result of the preoperative INR (International Normalized "
^DD(130,487,21,2,0)="Ratio). Data input must be 1 to 5 numeric characters in length which "
^DD(130,487,21,3,0)="may include a prefix of a less than or greater than sign ""<"" or "">"". "
^DD(130,487,21,4,0)="Entering ""NS"" for ""No Study"" is also allowed."
^DD(130,487,"DT")="3040118"
^DD(130,487.1,0)="PREOPERATIVE INR, DATE^DX^^202;27^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(130,487.1,.1)="Date Preoperative INR was Performed"
^DD(130,487.1,3)="Enter the date that the preoperative INR was performed."
^DD(130,487.1,21,0)="^.001^1^1^3060127^^^"
^DD(130,487.1,21,1,0)="This is the date that the preoperative INR was performed."
^DD(130,487.1,"DT")="3070119"
^DD(130,488,0)="ORGAN/SPACE SSI^S^Y:YES;N:NO;NS:NO STUDY;^205;37^Q"
^DD(130,488,.1)="Organ/Space SSI Occurrences (Y/N)"
^DD(130,488,3)="Enter YES if this patient had postoperative organ/space SSI occurrences."
^DD(130,488,21,0)="^^32^32^3040316^"
^DD(130,488,21,1,0)="NSQIP Definition (2004):"
^DD(130,488,21,2,0)="Organ/Space SSI is an infection that occurs within 30 days after the "
^DD(130,488,21,3,0)="operation and the infection appears to be related to the operation and "
^DD(130,488,21,4,0)="the infection involves any part of the anatomy (e.g., organs or spaces), "
^DD(130,488,21,5,0)="other than the incision, which was opened or manipulated during an "
^DD(130,488,21,6,0)="operation and at least one of the following:"
^DD(130,488,21,7,0)=" "
^DD(130,488,21,8,0)="  - Purulent drainage from a drain that is placed through a stab wound "
^DD(130,488,21,9,0)="    into the organ/space.  "
^DD(130,488,21,10,0)="  - Organisms isolated from an aseptically obtained culture of fluid or "
^DD(130,488,21,11,0)="    tissue in the organ/space.  "
^DD(130,488,21,12,0)="  - An abscess or other evidence of infection involving the organ/space "
^DD(130,488,21,13,0)="    that is found on direct examination, during reoperation, or by "
^DD(130,488,21,14,0)="    histopathologic or radiologic examination.  "
^DD(130,488,21,15,0)="  - Diagnosis of an organ/space SSI by a surgeon or attending physician.  "
^DD(130,488,21,16,0)=" "
^DD(130,488,21,17,0)="  Site-Specific Classifications of Organ/Space Surgical Site Infection"
^DD(130,488,21,18,0)="  --------------------------------------------------------------------"
^DD(130,488,21,19,0)="  Arterial or venous infection        Meningitis or ventriculitis"
^DD(130,488,21,20,0)="  Breast abscess or mastitis          Myocarditis or pericarditis"
^DD(130,488,21,21,0)="  Disc space                          Oral cavity (mouth, tongue, or"
^DD(130,488,21,22,0)="  Ear, mastoid                         gums)"
^DD(130,488,21,23,0)="  Endocarditis                        Osteomyelitis"
^DD(130,488,21,24,0)="  Endometritis                        Other infections of the lower"
^DD(130,488,21,25,0)="  Eye, other than conjunctivitis       respiratory tract (e.g. abscess"
^DD(130,488,21,26,0)="  Gastrointestinal tract               or empyema)"
^DD(130,488,21,27,0)="  Intra-abdominal, not specified      Other male or female reproductive"
^DD(130,488,21,28,0)="   elsewhere                           tract"
^DD(130,488,21,29,0)="  Intracranial, brain abscess or      Sinusitis"
^DD(130,488,21,30,0)="   dura                               Spinal abscess without meningitis"
^DD(130,488,21,31,0)="  Joint or bursa                      Upper respiratory tract"
^DD(130,488,21,32,0)="  Mediastinitis                       Vaginal cuff"
^DD(130,488,"DT")="3040316"
^DD(130,489,0)="OTHER WOUND OCCURRENCE^*P80'^ICD9(^205;38^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130,489,.1)="Other Wound Occurrence"
^DD(130,489,3)="Enter the ICD Diagnosis code for any other wound occurrence."
^DD(130,489,12)="Screen prevents selection of inactive diagnosis."
^DD(130,489,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(130,489,21,0)="^^5^5^3040318^"
^DD(130,489,21,1,0)="NSQIP Definition (2004):"
^DD(130,489,21,2,0)="Enter any other wound occurrences that you feel to be significant and"
^DD(130,489,21,3,0)="that are not covered by the predefined wound occurrence categories."
^DD(130,489,21,4,0)="Enter the ICD-9-CM code for this entry. (Example: Seromas, ICD-9-CM"
^DD(130,489,21,5,0)="code: 998.13)"
^DD(130,489,"DT")="3040318"
^DD(130,490,0)="REPEAT VENTILATOR W/IN 30 DAYS^S^Y:YES;N:NO;^209;12^Q"
^DD(130,490,.1)="Repeat Ventilator Support within 30 days"
^DD(130,490,3)="Enter Yes if the patient was placed on ventilator support."
^DD(130,490,21,0)="^^9^9^3071213^"
^DD(130,490,21,1,0)="CICSP Definition (2008):"
^DD(130,490,21,2,0)="Indicate if the patient was placed on ventilator support postoperatively"
^DD(130,490,21,3,0)="within 30 days and this repeat ventilator support is related to the "
^DD(130,490,21,4,0)="index operation (For example, the patient is on the ventilator intra-op"
^DD(130,490,21,5,0)="and immediately post-op.  Then patient is weaned and the ventilator is"
^DD(130,490,21,6,0)="discontinued.  Later, the patient gets into trouble and mechanical "
^DD(130,490,21,7,0)="ventilation has to be reinstated.) However, if the patient returns to "
^DD(130,490,21,8,0)="the OR within 30 days and gets extubated immediately after, it is not"
^DD(130,490,21,9,0)="considered repeat ventilator support."
^DD(130,490,"DT")="3071213"
^DD(130,491,0)="OTHER NON-CT PROCEDURES^FX^^209.2;1^S NYUK=X K:$L(X)>245!($L(X)<3) X S:NYUK=""NS""!(NYUK=""ns"") X=""NS"" K NYUK"
^DD(130,491,.1)="Other non-CT procedures - independently requiring CPB"
^DD(130,491,3)="Answer must be 3-245 characters in length."
^DD(130,491,21,0)="^^6^6^3040629^"
^DD(130,491,21,1,0)="CICSP Definition (2004):"
^DD(130,491,21,2,0)="If any other procedure - other than cardiothoracic - performed "
^DD(130,491,21,3,0)="requiring placing the patient on cardiopulmonary bypass, specify "
^DD(130,491,21,4,0)="details into the comment field. If no other non-CT procedure requiring"
^DD(130,491,21,5,0)="CPB was performed, indicate ""NS"" for ""No Study/Unknown"" in the text "
^DD(130,491,21,6,0)="field."
^DD(130,491,"DT")="3040629"
^DD(130,492,0)="PREOP FUNCT. HEALTH STATUS^S^1:INDEPENDENT;2:PARTIALLY DEPENDENT;3:TOTALLY DEPENDENT;4:UNKNOWN;^200.1;2^Q"
^DD(130,492,.1)="Functional Health Status Prior to Surgery"
^DD(130,492,3)="Enter the level of self care that summarizes the patient's status prior to surgery."
^DD(130,492,21,0)="^^32^32^3080227^"
^DD(130,492,21,1,0)="NSQIP Definition (2008):"
^DD(130,492,21,2,0)="This is a question that focuses on the patient's abilities to perform "
^DD(130,492,21,3,0)="activities of daily living (ADLs) in the 30 days prior to surgery. "
^DD(130,492,21,4,0)="Activities of daily living are defined as 'the activities usually "
^DD(130,492,21,5,0)="performed in the course of a normal day in a person's life'. ADLs "
^DD(130,492,21,6,0)="include: bathing, feeding, dressing, toileting, and mobility. Report "
^DD(130,492,21,7,0)="the corresponding level of self-care for activities of daily living "
^DD(130,492,21,8,0)="demonstrated by this patient at the time the patient is being "
^DD(130,492,21,9,0)="considered as a candidate for surgery (which should be no longer than "
^DD(130,492,21,10,0)="30 days prior to surgery). If the patient's status changes prior to "
^DD(130,492,21,11,0)="surgery, that change should be reflected in your assessment. For this "
^DD(130,492,21,12,0)="time point, report the level of functional health status as defined by "
^DD(130,492,21,13,0)="the following criteria.  "
^DD(130,492,21,14,0)=" "
^DD(130,492,21,15,0)=" (1) Independent: The patient does not require assistance from another"
^DD(130,492,21,16,0)="     person for any activities of daily living. This includes a person "
^DD(130,492,21,17,0)="     who is able to function independently with prosthetics, equipment,"
^DD(130,492,21,18,0)="     or devices."
^DD(130,492,21,19,0)=" (2) Partially dependent: The patient requires some assistance from "
^DD(130,492,21,20,0)="     another person for activities of daily living. This includes a "
^DD(130,492,21,21,0)="     person who utilizes prosthetics, equipment, or devices but still "
^DD(130,492,21,22,0)="     requires some assistance from another person for ADLs."
^DD(130,492,21,23,0)=" (3) Totally dependent: The patient requires total assistance for all "
^DD(130,492,21,24,0)="     activities of daily living."
^DD(130,492,21,25,0)=" (4) Unknown: If unable to ascertain the functional status for the time"
^DD(130,492,21,26,0)="     point of 'prior to the current illness' only, report as unknown."
^DD(130,492,21,27,0)=" "
^DD(130,492,21,28,0)="All patients with psychiatric illnesses should be evaluated for their "
^DD(130,492,21,29,0)="ability to function with or without assistance with ADLs just as the "
^DD(130,492,21,30,0)="non-psychiatric patient. For instance, if a patient with schizophrenia "
^DD(130,492,21,31,0)="is able to care for him/herself without the assistance of nursing "
^DD(130,492,21,32,0)="care, he/she is considered independent."
^DD(130,492,"DT")="3080227"
^DD(130,500,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^PFSS;1^Q"
^DD(130,500,.1)="PFSS Account Reference"
^DD(130,500,3)="Enter the PFSS Account Reference associated with this case."
^DD(130,500,8.5)="^"
^DD(130,500,9)="^"
^DD(130,500,21,0)="^^3^3^3050606^^"
^DD(130,500,21,1,0)="This is the PFSS Account Reference number by which Surgery will reference"
^DD(130,500,21,2,0)="an external account number for purposes of attaching charges for 1st or"
^DD(130,500,21,3,0)="3rd party billing."
^DD(130,500,"DT")="3050608"
^DD(130,502,0)="OTHER CARDIAC PROCEDURES (Y/N)^S^Y:YES;N:NO;^209;13^Q"
^DD(130,502,.1)="Other Cardiac Procedures (Y/N)"
^DD(130,502,3)="Enter 'YES' if there are other cardiac procedures. "
^DD(130,502,21,0)="^^4^4^3060705^"
^DD(130,502,21,1,0)="CICSP Definition (2006):"
^DD(130,502,21,2,0)="Indicate if any cardiac surgical procedure (not listed above) was"
^DD(130,502,21,3,0)="performed alone or in conjunction with the index procedure, either with"
^DD(130,502,21,4,0)="or without placing the patient on cardiopulmonary bypass (YES/NO)."
^DD(130,502,"DT")="3060320"
^DD(130,504,0)="HEMOGLOBIN A1C^FX^^201;28^S:X=""NS""!(X=""ns"") X=""NS"" Q:X=""NS""  K:$L(X)>6!($L(X)<1) X"
^DD(130,504,.1)="Hemoglobin A1c"
^DD(130,504,3)="Answer must be 1-6 characters in length."
^DD(130,504,21,0)="^^3^3^3070117^"
^DD(130,504,21,1,0)="CICSP Definition (2006)/NSQIP (2007):"
^DD(130,504,21,2,0)="Indicate the Hemoglobin A1c result (%) preoperatively evaluated closest"
^DD(130,504,21,3,0)="to surgery. Entering ""NS"" for ""No Study"" is allowed."
^DD(130,504,"DT")="3070117"
^DD(130,504.1,0)="HEMOGLOBIN A1C, DATE^FXO^^202.1;1^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NS""!(SRX=""ns"") X=""NS"""
^DD(130,504.1,.1)="Hemoglobin A1c, Date"
^DD(130,504.1,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,504.1,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,504.1,3)="This is the date that the Hemoglobin A1c was performed and must not be more than 1000 days before surgery."
^DD(130,504.1,21,0)="^^4^4^3070417^"
^DD(130,504.1,21,1,0)="CICSP Definition (2006)/NSQIP (2007):"
^DD(130,504.1,21,2,0)="Indicate the date that the preoperative Hemoglobin A1c value was "
^DD(130,504.1,21,3,0)="assessed. Enter ""NS"" for No Study if the Hemoglobin A1c test was not"
^DD(130,504.1,21,4,0)="performed."
^DD(130,504.1,"DT")="3070119"
^DD(130,505,0)="ENDOVASCULAR REPAIR^S^Y:YES;N:NO;^207.1;2^Q"
^DD(130,505,.1)="Endovascular Repair of Descending Thoracic Aorta"
^DD(130,505,3)="Enter Yes if an endovascular repair of the descending thoracic aorta was done with a cardiothoracic surgeon attending."
^DD(130,505,21,0)="^^12^12^3060314^"
^DD(130,505,21,1,0)="CICSP Definition (2006): "
^DD(130,505,21,2,0)="Indicate if the patient had an endovascular repair of the descending"
^DD(130,505,21,3,0)="thoracic aorta (e.g., aneurysm, pseudoaneurysm, dissection, penetrating"
^DD(130,505,21,4,0)="ulcer, intramural hematoma, or traumatic disruption) with or without"
^DD(130,505,21,5,0)="involving coverage of left subclavian artery origin, initial"
^DD(130,505,21,6,0)="endoprosthesis plus descending thoracic aortic extension(s), if"
^DD(130,505,21,7,0)="required, to level of celiac artery origin, with or without"
^DD(130,505,21,8,0)="cardiopulmonary bypass. To include in CICSP, an attending "
^DD(130,505,21,9,0)="cardiothoracic surgeon must have been present and involved in the"
^DD(130,505,21,10,0)="procedure. It is typically done under general anesthesia and may be "
^DD(130,505,21,11,0)="performed in the operating room or interventional radiology operating "
^DD(130,505,21,12,0)="area."
^DD(130,505,"DT")="3060314"
^DD(130,506,0)="HAIR REMOVAL METHOD^S^C:CLIPPER;D:DEPILATORY;N:NO HAIR REMOVED;P:PATIENT REMOVED OWN HAIR;S:SHAVING;U:NOT DOCUMENTED;O:OTHER;^VER;6^Q"
^DD(130,506,.1)="Surgical Site Hair Removal Method"
^DD(130,506,1,0)="^.1"
^DD(130,506,1,1,0)="130^AN^MUMPS"
^DD(130,506,1,1,1)="D HR^SRENSCS"
^DD(130,506,1,1,2)="Q"
^DD(130,506,1,1,"%D",0)="^^2^2^3060315^"
^DD(130,506,1,1,"%D",1,0)="This MUMPS cross reference maintains the Hair Removal Comments field "
^DD(130,506,1,1,"%D",2,0)="if this field is answered with ""S""."
^DD(130,506,1,1,"DT")="3060315"
^DD(130,506,3)="Enter the method used to remove hair prior to Surgery."
^DD(130,506,21,0)="^^5^5^3060320^"
^DD(130,506,21,1,0)="This is the method used to remove hair prior to surgery.  Shaving is"
^DD(130,506,21,2,0)="not a preferred method for hair removal. If SHAVING is selected, "
^DD(130,506,21,3,0)="a comment must be entered in the HAIR REMOVAL COMMENTS field "
^DD(130,506,21,4,0)="explaining why SHAVING was used. If OTHER is selected, comments must "
^DD(130,506,21,5,0)="be entered explaining the method used."
^DD(130,506,"DT")="3060323"
^DD(130,508,0)="HAIR REMOVAL COMMENTS^130.0508^^49;0"
^DD(130,508,21,0)="^^4^4^3060320^"
^DD(130,508,21,1,0)="If SHAVING is selected as the hair removal method, a comment must be "
^DD(130,508,21,2,0)="entered explaining why SHAVING was used. "
^DD(130,508,21,3,0)="If OTHER is selected as the hair removal method, comments must be "
^DD(130,508,21,4,0)="entered explaining the method used."
^DD(130,510,0)="CURRENT SMOKER (CARDIAC)^S^1:NEVER A SMOKER;2:WITHIN 2 WEEKS OF SURGERY;3:2 WEEKS TO 3 MONTHS PRIOR TO SURGERY;4:>3 MONTHS PRIOR TO SURGERY (REMOTE SMOKER);^200.1;5^Q"
^DD(130,510,.1)="Current Smoker"
^DD(130,510,3)="Enter the code describing the patient's status as a smoker prior to surgery."
^DD(130,510,21,0)="^^11^11^3060328^"
^DD(130,510,21,1,0)="CICSP Definition (2006): "
^DD(130,510,21,2,0)="Indicate the patient's smoking status from information from the"
^DD(130,510,21,3,0)="patient, or the chart, that best describes the patient's use of "
^DD(130,510,21,4,0)="tobacco in any form (pipe, cigar, cigarette, tobacco chew). If more"
^DD(130,510,21,5,0)="than one representation is found, please record according to the "
^DD(130,510,21,6,0)="most conservative (most recent) quit date:"
^DD(130,510,21,7,0)=" "
^DD(130,510,21,8,0)="1 = never a smoker"
^DD(130,510,21,9,0)="2 = smoking within two weeks prior to surgery "
^DD(130,510,21,10,0)="3 = smoking within 2 weeks to 3 months prior to surgery "
^DD(130,510,21,11,0)="4 = remote smoker (more than 3 months prior to surgery)"
^DD(130,510,"DT")="3060328"
^DD(130,512,0)="MAZE PROCEDURE^S^N:NO MAZE PERFORMED;F:FULL MAZE;M:MINI MAZE;^209;14^Q"
^DD(130,512,.1)="Maze Procedure"
^DD(130,512,3)="Enter NO MAZE PERFORMED, FULL MAZE or MINI MAZE."
^DD(130,512,21,0)="^.001^34^34^3060628^^"
^DD(130,512,21,1,0)="CICSP Definition (2006):"
^DD(130,512,21,2,0)="Indicate if patient had a Maze procedure either with or without placing"
^DD(130,512,21,3,0)="the patient on cardiopulmonary bypass.  A Maze procedure is a surgical"
^DD(130,512,21,4,0)="intervention used to interrupt abnormal atrial conduction pathways that"
^DD(130,512,21,5,0)="cause atrial fibrillation or atrial flutter. It may be performed alone"
^DD(130,512,21,6,0)="or in combination with other cardiac procedures. (A Maze does not"
^DD(130,512,21,7,0)="include an amputation/resection of the atrial appendage as an isolated"
^DD(130,512,21,8,0)="procedure; an intraoperative electrophysiologic mapping procedure; nor"
^DD(130,512,21,9,0)="any surgical or ablation procedure conducted on the ventricle for"
^DD(130,512,21,10,0)="control of ventricular arrhythmias.) Indicate the one most appropriate"
^DD(130,512,21,11,0)="response:"
^DD(130,512,21,12,0)=" "
^DD(130,512,21,13,0)="No - No Maze performed"
^DD(130,512,21,14,0)=" "
^DD(130,512,21,15,0)="Full Maze - The procedure is most often performed on-bypass through"
^DD(130,512,21,16,0)="a median sternotomy. A combination of incisions and thermal (cryo) or"
^DD(130,512,21,17,0)="radiofrequency ablations of the atrial wall pathways are done,"
^DD(130,512,21,18,0)="typically including amputation/resection of the one or both atrial"
^DD(130,512,21,19,0)="appendices. The procedure thus creates a ""maze"" of electrical"
^DD(130,512,21,20,0)="propogation roots involving the entire atrial myocardium with only"
^DD(130,512,21,21,0)="one side of entrance (the sinus node) and one side of exit"
^DD(130,512,21,22,0)="(the AV node)."
^DD(130,512,21,23,0)=" "
^DD(130,512,21,24,0)="Mini-Maze - A more limited and simpler procedure than the traditional"
^DD(130,512,21,25,0)="full maze, the Mini-Maze is based on the finding that in most patients,"
^DD(130,512,21,26,0)="ectopic foci located in the pulmonary veins are responsible for the"
^DD(130,512,21,27,0)="initiation of atrial fib.  Radiofrequency or a cryo-ablation probe is"
^DD(130,512,21,28,0)="used either inside or outside of the pulmonary vein ostia to destroy"
^DD(130,512,21,29,0)="the foci.  It can be performed with or without resection of the atrial"
^DD(130,512,21,30,0)="appendage and includes no incision or minimal incisions to the left"
^DD(130,512,21,31,0)="atrium, rather than the extensive atrial surgical procedure conducted"
^DD(130,512,21,32,0)="for the full Maze.  The Mini can be performed on or off bypass through"
^DD(130,512,21,33,0)="a median sternotomy or performed thorascopically to the outside of the"
^DD(130,512,21,34,0)="pulmonary veins."
^DD(130,512,"DT")="3060628"
^DD(130,513,0)="SURGERY CONSULT DATE^FXO^^209;15^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"" D:$D(X) NC^SROAUTL"
^DD(130,513,.1)="Surgery Consult Date"
^DD(130,513,1,0)="^.1^^0"
^DD(130,513,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,513,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,513,3)="Indicate the date patient first consulted by Surgery Service for the operation."
^DD(130,513,21,0)="^^8^8^3080228^"
^DD(130,513,21,1,0)="Indicate the date that the patient was first consulted by Surgery for "
^DD(130,513,21,2,0)="the operation as typically documented by a note by a member of Surgery"
^DD(130,513,21,3,0)="Specialty that will perform the procedure (e.g., attending surgeon, "
^DD(130,513,21,4,0)="fellow, nurse). For non-cardiac assessments, enter NA if this date is"
^DD(130,513,21,5,0)="not applicable or cannot be determined."
^DD(130,513,21,6,0)=" "
^DD(130,513,21,7,0)="For Cardiothoracic (CT) Surgery, this date is usually on or just after "
^DD(130,513,21,8,0)="the diagnostic catheterization date."
^DD(130,513,"DT")="3080303"
^DD(130,515,0)="PRIMARY CAUSE FOR DELAY^*S^RL:RESOURCE LIMITATION;PH:PATIENT HEALTH;PP:PATIENT PREFERENCE;O:OTHER;NS:NO STUDY/UNKNOWN;N:NONE;^209;16^Q"
^DD(130,515,.1)="Primary Cause for Delay for Cardiac Surgery"
^DD(130,515,3)="Enter the primary cause for delay if greater than 30 days."
^DD(130,515,12)="Screen prevents selection of NONE."
^DD(130,515,12.1)="S DIC(""S"")=""I Y'=""""N"""""""
^DD(130,515,21,0)="^.001^18^18^3071217^^"
^DD(130,515,21,1,0)="CICSP Definition (2008):"
^DD(130,515,21,2,0)="This field contains the primary cause for delay. If a Cardiac patient's"
^DD(130,515,21,3,0)="surgery is greater than 30 days from initial VA Cardiothoracic Surgery"
^DD(130,515,21,4,0)="Consultation (as calculated between the CT CONSULT DATE to DATE OF"
^DD(130,515,21,5,0)="SURGERY), user shall enter cause as defined in the field. If date is"
^DD(130,515,21,6,0)="less than or equal to 30 days, system shall automatically default entry"
^DD(130,515,21,7,0)="to None. "
^DD(130,515,21,8,0)=" "
^DD(130,515,21,9,0)=" - Resource Limitation: Due to staffing or other facility limitation,"
^DD(130,515,21,10,0)="   e.g., OR scheduling, physician availability, ICU bed capacity"
^DD(130,515,21,11,0)=" - Patient Health: Due to patient health issue, e.g., vascular consult,"
^DD(130,515,21,12,0)="   additional tests"
^DD(130,515,21,13,0)=" - Patient Preference: Due to a non-health related patient preference,"
^DD(130,515,21,14,0)="   e.g., vacation"
^DD(130,515,21,15,0)=" - Other"
^DD(130,515,21,16,0)=" - NS/Unknown: Unable to Locate Reason for Delay. Entering ""NS"" for ""No"
^DD(130,515,21,17,0)="   Study/Unknown"" is also allowed. "
^DD(130,515,21,18,0)=" - None"
^DD(130,515,"DT")="3071217"
^DD(130,516,0)="SURGERY CONSULT REQUESTED^FXO^^209;17^N SRX S SRX=X,%DT=""EXP"" D ^%DT S X=Y K:Y<1 X S:SRX=""NA""!(SRX=""na"") X=""NA"""
^DD(130,516,.1)="Date Surgery Consult Requested"
^DD(130,516,2)="S Y(0)=Y S Y(0)=Y D DATE^SROAUTL"
^DD(130,516,2.1)="S Y(0)=Y D DATE^SROAUTL"
^DD(130,516,3)="This is the date the Surgery Service is requested to consult with the patient."
^DD(130,516,21,0)="^^5^5^3080228^"
^DD(130,516,21,1,0)="This is the date that the patient's physician requests that Surgery "
^DD(130,516,21,2,0)="Service consult with the patient. It is not the date that the consult "
^DD(130,516,21,3,0)="took place."
^DD(130,516,21,4,0)=" "
^DD(130,516,21,5,0)="Enter NA if this date is not applicable or cannot be determined."
^DD(130,516,"DT")="3080228"
^DD(130,901,0)="AIRWAY INDEX^*SI^1:1. INDEX LESS THAN OR EQUAL TO 0;2:2. INDEX > 0 AND LESS THAN OR EQUAL TO 2;3:3. INDEX > 2 AND LESS THAN OR EQUAL TO 3;4:4. INDEX > 3 AND LESS THAN OR EQUAL TO 4;5:5. INDEX GREATER THAN 4;^.3;9^Q"
^DD(130,901,.1)="Airway Index"
^DD(130,901,3)="Do NOT enter a value.  This field is computed based on the ORAL-PHARYNGEAL SCORE and the MANDIBULAR SPACE."
^DD(130,901,12)="Screen checks for OP Score and Mandibular Space."
^DD(130,901,12.1)="S DIC(""S"")=""I $P(^SRF(DA,.3),U,11)&$P(^SRF(DA,.3),U,12)"""
^DD(130,901,21,0)="^^14^14^2950224^^^^"
^DD(130,901,21,1,0)="This field describes the degree of difficulty of airway management on a"
^DD(130,901,21,2,0)="scale of 1 to 5, 1 being least difficult and 5 being most difficult.  The"
^DD(130,901,21,3,0)="value of this field is based on a computed performance index using the"
^DD(130,901,21,4,0)="oral-pharyngeal (OP) class and the mandibular space (MS)."
^DD(130,901,21,5,0)=" "
^DD(130,901,21,6,0)="   Performance index = 2.5 x OP - MS length (converted to centimeters)"
^DD(130,901,21,7,0)=" "
^DD(130,901,21,8,0)="     Airway Index"
^DD(130,901,21,9,0)="     ------------"
^DD(130,901,21,10,0)="          1       -  Performance Index less than 0"
^DD(130,901,21,11,0)="          2       -  Performance index greater than 0 and less than 2"
^DD(130,901,21,12,0)="          3       -  Performance index greater than 2 and less than 3"
^DD(130,901,21,13,0)="          4       -  Performance index greater than 3 and less than 4"
^DD(130,901,21,14,0)="          5       -  Performance index greater than 4"
^DD(130,901,"DT")="2950510"
^DD(130,901.1,0)="MALLAMPATI SCALE^SX^1:CLASS 1;2:CLASS 2;3:CLASS 3;4:CLASS 4;^.3;11^I $P($G(^SRF(DA,""CON"")),""^"") S SRFLD=901.1 D ^SROCON Q"
^DD(130,901.1,.1)="Mallampati Scale"
^DD(130,901.1,1,0)="^.1"
^DD(130,901.1,1,1,0)="130^AOP^MUMPS"
^DD(130,901.1,1,1,1)="D OP^SROAUTL"
^DD(130,901.1,1,1,2)="D K901^SROAUTL"
^DD(130,901.1,1,1,"%D",0)="^^2^2^3031027^"
^DD(130,901.1,1,1,"%D",1,0)="This MUMPS cross reference is used to update the AIRWAY INDEX field (#901)"
^DD(130,901.1,1,1,"%D",2,0)="when the MALLAMPATI SCALE field is edited."
^DD(130,901.1,1,1,"DT")="2941212"
^DD(130,901.1,3)="Enter the Mallampati Scale class."
^DD(130,901.1,21,0)="^^21^21^3040316^"
^DD(130,901.1,21,1,0)="NSQIP Definition (2004):"
^DD(130,901.1,21,2,0)="The Mallampati classification relates tongue size to pharyngeal size."
^DD(130,901.1,21,3,0)="This test is performed with the patient in sitting position, the head "
^DD(130,901.1,21,4,0)="held in a neutral position, the mouth wide open, and the tongue "
^DD(130,901.1,21,5,0)="protruding to the maximum. The subsequent classification is assigned "
^DD(130,901.1,21,6,0)="based upon the pharyngeal structures that are visible:"
^DD(130,901.1,21,7,0)=" "
^DD(130,901.1,21,8,0)="Class I   - visualization of the soft palate, fauces, uvula, and"
^DD(130,901.1,21,9,0)="            anterior and posterior pillars."
^DD(130,901.1,21,10,0)="Class II  - visualization of the soft palate, fauces, and uvula."
^DD(130,901.1,21,11,0)="Class III - visualization of the soft palate and the base of the uvula."
^DD(130,901.1,21,12,0)="Class IV  - soft palate is not visible at all."
^DD(130,901.1,21,13,0)=" "
^DD(130,901.1,21,14,0)="The classification assigned by the clinician may vary if the patient is"
^DD(130,901.1,21,15,0)="in the supine position (instead of sitting). If the patient phonates,"
^DD(130,901.1,21,16,0)="this falsely improves the view. If the patient arches his or her"
^DD(130,901.1,21,17,0)="tongue, the uvula is falsely obscured. A class I view suggests ease of"
^DD(130,901.1,21,18,0)="intubation and correlates with a laryngoscopic view grade I 99 to 100%"
^DD(130,901.1,21,19,0)="of the time.  Class IV view suggests a poor laryngoscopic view, grade"
^DD(130,901.1,21,20,0)="III or IV 100% of the time. Refer to the Operations Manual for a visual"
^DD(130,901.1,21,21,0)="depiction of the Mallampati Classification.  "
^DD(130,901.1,"DT")="3040316"
^DD(130,901.2,0)="MANDIBULAR SPACE^NJ3,0X^^.3;12^K:+X'=X!(X>150)!(X<20)!(X?.E1"".""1N.N) X I $D(X),$P($G(^SRF(DA,""CON"")),""^"") S SRFLD=901.2 D ^SROCON Q"
^DD(130,901.2,.1)="Mandibular Space (length in mm)"
^DD(130,901.2,1,0)="^.1"
^DD(130,901.2,1,1,0)="130^AMS^MUMPS"
^DD(130,901.2,1,1,1)="D MS^SROAUTL"
^DD(130,901.2,1,1,2)="D K901^SROAUTL"
^DD(130,901.2,1,1,"%D",0)="^^2^2^2950427^^"
^DD(130,901.2,1,1,"%D",1,0)="This MUMPS cross reference is used to update the AIRWAY INDEX field (#901)"
^DD(130,901.2,1,1,"%D",2,0)="when the MANDIBULAR SPACE field is edited."
^DD(130,901.2,1,1,"DT")="2941212"
^DD(130,901.2,3)="Enter the mandibular space in millimeters.  Type a number between 20 and 150."
^DD(130,901.2,21,0)="^^6^6^2950224^^"
^DD(130,901.2,21,1,0)="In the sitting position with head extended, enter the distance between the"
^DD(130,901.2,21,2,0)="inside of the mentum and the top of the thyroid cartilage in millimeters."
^DD(130,901.2,21,3,0)="The mandibular space (MS) and the oral-pharyngeal (OP) score are used in"
^DD(130,901.2,21,4,0)="figuring a performance index which is translated to the patient's airway"
^DD(130,901.2,21,5,0)="index."
^DD(130,901.2,21,6,0)="             (Performance Index = 2.5 x OP - MS length in cm)"
^DD(130,901.2,"DT")="2960229"
^DD(130,903,0)="DEATH UNRELATED/RELATED^S^U:UNRELATED;R:RELATED;^.4;7^Q"
^DD(130,903,.1)="Was the Death Unrelated or Related to the Surgery?"
^DD(130,903,3)="Enter ""U"" if the death was not related to the Surgical procedure."
^DD(130,903,21,0)="^^1^1^2951106^^"
^DD(130,903,21,1,0)="This indicates if death was unrelated to this surgery."
^DD(130,903,"DT")="2951106"
^DD(130,904,0)="REVIEW OF DEATH COMMENTS^130.0904^^47;0"
^DD(130,904,.1)="Review of Death Comments"
^DD(130,904,21,0)="^^1^1^2960122^"
^DD(130,904,21,1,0)="This word processing field contains comments about the review of death."
^DD(130,904,"DT")="2951215"
^DD(130,905,0)="READY TO TRANSMIT?^S^R:READY;T:TRANSMITTED;^.4;2^Q"
^DD(130,905,.1)="Ready to Transmit ?"
^DD(130,905,1,0)="^.1"
^DD(130,905,1,1,0)="130^AQ1^MUMPS"
^DD(130,905,1,1,1)="D AQ1^SROXR4"
^DD(130,905,1,1,2)="D KAQ1^SROXR4"
^DD(130,905,1,1,"%D",0)="^^2^2^2970123^"
^DD(130,905,1,1,"%D",1,0)="This MUMPS cross reference updates the AQ cross reference list of cases"
^DD(130,905,1,1,"%D",2,0)="that are are ready to be transmitted to the national database."
^DD(130,905,1,1,"DT")="2970123"
^DD(130,905,3)="Enter R if ready to transmit or T if already transmitted."
^DD(130,905,21,0)="^^5^5^2970123^"
^DD(130,905,21,1,0)="This field is set to R (ready) by a MUMPS cross reference the TIME PAT OUT"
^DD(130,905,21,2,0)="OR field.  When this case is transmitted to the national database at the"
^DD(130,905,21,3,0)="end of the quarter, this field will be updated to T (transmitted).  This"
^DD(130,905,21,4,0)="field serves as a flag that indicates the transmission status of this"
^DD(130,905,21,5,0)="case."
^DD(130,905,"DT")="2970123"
^DD(130,1000,0)="TIU OPERATIVE SUMMARY^P8925'^TIU(8925,^TIU;1^Q"
^DD(130,1000,.1)="TIU Operative Summary"
^DD(130,1000,3)="Enter the TIU document that holds the operative summary for this case."
^DD(130,1000,21,0)="^.001^1^1^3020226^^"
^DD(130,1000,21,1,0)="This is the operative summary for this case stored in TIU."
^DD(130,1000,"DT")="3000828"
^DD(130,1001,0)="TIU NURSE INTRAOP REPORT^P8925'^TIU(8925,^TIU;2^Q"
^DD(130,1001,.1)="TIU Nurse Intraoperative Report"
^DD(130,1001,3)="Enter the TIU document that holds the Nurse Intraoperative Report for this case."
^DD(130,1001,21,0)="^.001^1^1^3020524^^^"
^DD(130,1001,21,1,0)="This is the Nurse Intraoperative Report for this case stored in TIU."
^DD(130,1001,"DT")="3020524"
^DD(130,1002,0)="TIU PROCEDURE REPORT (NON-OR)^P8925'^TIU(8925,^TIU;3^Q"
^DD(130,1002,.1)="TIU Procedure Report (Non-OR)"
^DD(130,1002,3)="Enter the TIU document that holds the procedure summary for this non-OR procedure."
^DD(130,1002,21,0)="^.001^1^1^3020226^^"
^DD(130,1002,21,1,0)="This is the Procedure Report (Non-OR) for this non-OR procedure."
^DD(130,1002,"DT")="3001019"
^DD(130,1003,0)="TIU ANESTHESIA REPORT^P8925'^TIU(8925,^TIU;4^Q"
^DD(130,1003,.1)="TIU Anesthesia Report"
^DD(130,1003,3)="Enter the TIU document that holds the Anesthesia Report for this case."
^DD(130,1003,21,0)="^^1^1^3000828^"
^DD(130,1003,21,1,0)="This is the Anesthesia Report for this case."
^DD(130,1003,"DT")="3001019"
^DD(130,1004,0)="DICTATED SUMMARY EXPECTED^*S^1:YES;0:NO;^TIU;5^Q"
^DD(130,1004,.1)="Dictated Summary Expected"
^DD(130,1004,3)="Enter YES if a summary of this procedure will be dictated."
^DD(130,1004,12)="Screen prevents change if a Procedure Report is associated with the case."
^DD(130,1004,12.1)="S DIC(""S"")=""I '$$DEL^SROESX(DA,""""3"""")"""
^DD(130,1004,21,0)="^.001^3^3^3040225^^"
^DD(130,1004,21,1,0)="This field indicates if the provider will dictate a summary of this"
^DD(130,1004,21,2,0)="procedure to be electronically signed. Enter YES if a dictated summary"
^DD(130,1004,21,3,0)="is expected. Enter NO or leave blank if no summary is expected."
^DD(130,1004,"DEL",1,0)="I $$DEL^SROESX(DA,""3"") D EN^DDIOL(""The DICTATED SUMMARY EXPECTED field cannot be deleted. This case has a"",,""!!,?2"") D EN^DDIOL(""Procedure Report associated with it."",,""!,?2"")"
^DD(130,1004,"DT")="3040225"
^DD(130,1005,0)="CPT ON NURSE REPORT^S^1:YES;0:NO;^TIU;6^Q"
^DD(130,1005,.1)="CPT on Nurse Intraoperative Report"
^DD(130,1005,3)="Enter YES if the CPT ON NURSE INTRAOP site parameter is set to YES, INCLUDE CPT at the time the nurse intraoperative report is signed."
^DD(130,1005,21,0)="^^5^5^3001025^"
^DD(130,1005,21,1,0)="This field reflects the content of the CPT ON NURSE INTRAOP site"
^DD(130,1005,21,2,0)="parameter in SURGERY SITE PARAMETERS file (#133).  This field will be set"
^DD(130,1005,21,3,0)="at the time the Nurse Intraoperative Report is signed and will be checked"
^DD(130,1005,21,4,0)="any time an automatic addendum is made to the report to determine whether"
^DD(130,1005,21,5,0)="the CPT codes should appear on the report."
^DD(130,1005,"DT")="3001025"
^DD(130,1006,0)="ICD-9 ON NURSE REPORT^S^1:YES;0:NO;^TIU;7^Q"
^DD(130,1006,3)="Enter YES if the ICD-9 ON NURSE INTRAOP site parameter is set to YES, INCLUDE ICD-9 at the time the nurse intraoperative report is signed."
^DD(130,1006,21,0)="^^5^5^3001025^"
^DD(130,1006,21,1,0)="This field reflects the content of the ICD-9 ON NURSE INTRAOP site"
^DD(130,1006,21,2,0)="parameter in SURGERY SITE PARAMETERS file (#133).  This field will be set"
^DD(130,1006,21,3,0)="at the time the Nurse Intraoperative Report is signed and will be checked"
^DD(130,1006,21,4,0)="any time an automatic addendum is made to the report to determine whether"
^DD(130,1006,21,5,0)="the ICD-9 codes should appear on the report."
^DD(130,1006,"DT")="3001025"
^DD(130,2005,0)="IMAGE^130.02005P^^2005;0"
^DD(130,2005,21,0)="^^2^2^2970915^^"
^DD(130,2005,21,1,0)="This sub-file contains pointers to images in the Imaging file (#2005) that"
^DD(130,2005,21,2,0)="are related to this case."
^DD(130,"AUDIT",.14)=""
^DD(130,"B","*ATTENDING CODE - NOT USED",.165)=""
^DD(130,"B","*BLEEDING & PTT TIME IN 48 HRS",.994)=""
^DD(130,"B","*BLOOD SUGAR IN 7 DAYS",.996)=""
^DD(130,"B","*BUN IN 7 DAYS",.995)=""
^DD(130,"B","*CLERK CHN DATE PROCEDURE",.9815)=""
^DD(130,"B","*CLERK CHN DAYS BEFORE",.977)=""
^DD(130,"B","*CLERK CHN REC FOR MAJ SURG",.9911)=""
^DD(130,"B","*INST CNT CORRECT",.523)=""
^DD(130,"B","*MAZE PROCEDURE",482)=""
^DD(130,"B","*Maze Procedure",482)="1"
^DD(130,"B","*PROCEDURE COMPLETED",29)=""
^DD(130,"B","*SEROLOGY REPORT",.997)=""
^DD(130,"B","*SURGERY POSITION",.54)=""
^DD(130,"B","*VERFIFY ID TAG SSN",.981)=""
^DD(130,"B","30 DAY POSTOP STATUS",341)=""
^DD(130,"B","30 Day Postoperative Status",341)="1"
^DD(130,"B","ABSENT PERIPHERAL PULSES",331)=""
^DD(130,"B","ACTIVE ENDOCARDITIS",349)=""
^DD(130,"B","ACTIVE HEPATITIS",327)=""
^DD(130,"B","ACUTE RENAL FAILURE",254)=""
^DD(130,"B","ADDRESS PLATE",.9812)=""
^DD(130,"B","ADMISSION/TRANSFER DATE",420)=""
^DD(130,"B","ADMIT PAC(U) TIME",1.17)=""
^DD(130,"B","AGENT ORANGE EXPOSURE",.017)=""
^DD(130,"B","AIRWAY INDEX",901)=""
^DD(130,"B","ANES AVAIL TIME",.204)=""
^DD(130,"B","ANES CARE BILLABLE TIME",.218)=""
^DD(130,"B","ANES CARE BILLABLE TIME FLAG",.214)=""
^DD(130,"B","ANES CARE END TIME",.24)=""
^DD(130,"B","ANES CARE START TIME",.21)=""
^DD(130,"B","ANES CARE TIME",1.23)=""
^DD(130,"B","ANES CARE TIME BLOCK",.213)=""
^DD(130,"B","ANES CONCURRENT CASES",.3513)=""
^DD(130,"B","ANES MEDICALLY DIRECTED",.3514)=""
^DD(130,"B","ANES PERSONALLY PERFORMED",.3511)=""
^DD(130,"B","ANES PHYSICIAN AVAILABLE",.3515)=""
^DD(130,"B","ANES START TO OP START",13)=""
^DD(130,"B","ANES SUPERVISE CODE",.345)=""
^DD(130,"B","ANESTH INDUCT TIME",1.22)=""
^DD(130,"B","ANESTHESIA TECHNIQUE",.37)=""
^DD(130,"B","ANESTHESIOLOGIST SUPVR",.34)=""
^DD(130,"B","ANESTHETIST CATEGORY",103)=""
^DD(130,"B","ANGINA",267)=""
^DD(130,"B","ANGINA ONE MONTH PRIOR",395)=""
^DD(130,"B","AORTIC STENOSIS",477)=""
^DD(130,"B","AORTIC SYSTOLIC PRESSURE",358)=""
^DD(130,"B","AORTIC VALVE REPLACEMENT",367)=""
^DD(130,"B","ASA CLASS",1.13)=""
^DD(130,"B","ASA Class",1.13)="1"
^DD(130,"B","ASCITES",212)=""
^DD(130,"B","ASD REPAIR",376)=""
^DD(130,"B","ASD Repair (Y/N)",376)="1"
^DD(130,"B","ASSESSMENT STATUS",235)=""
^DD(130,"B","ASSESSMENT TYPE",284)=""
^DD(130,"B","ASSOCIATED CLINIC",.021)=""
^DD(130,"B","ASST ANESTHETIST",.33)=""
^DD(130,"B","ASST PERFUSIONIST",.168)=""
^DD(130,"B","ATTEND PROVIDER",124)=""
^DD(130,"B","ATTEND SURG",.164)=""
^DD(130,"B","ATTENDING CODE",.166)=""
^DD(130,"B","Absent Peripheral Pulses (Y/N)",331)="1"
^DD(130,"B","Active Endocarditis (Y/N)",349)="1"
^DD(130,"B","Active Hepatitis (Y/N)",327)="1"
^DD(130,"B","Acute Renal Failure (Y/N)",328)="1"
^DD(130,"B","Address Plate (Y/N)",.9812)="1"
^DD(130,"B","Airway Index",901)="1"
^DD(130,"B","Anesthesia Available Time",.204)="1"
^DD(130,"B","Anesthesia Care Billable Time",.218)="1"
^DD(130,"B","Anesthesia Care End Time",.24)="1"
^DD(130,"B","Anesthesia Care Start Time",.21)="1"
^DD(130,"B","Anesthesia Care Time",1.23)="1"
^DD(130,"B","Anesthesia Induction Time",1.22)="1"
^DD(130,"B","Anesthesia Technique",.37)="1"
^DD(130,"B","Anesthesiologist Supervisor",.34)="1"
^DD(130,"B","Anesthetist Category",103)="1"
^DD(130,"B","Aortic Stenosis",477)="1"
^DD(130,"B","Aortic Systolic Pressure",358)="1"
^DD(130,"B","Aortic Valve Replacement (Y/N)",367)="1"
^DD(130,"B","Assessment Status",235)="1"
^DD(130,"B","Assistant Anesthetist",.33)="1"
^DD(130,"B","Assistant Perfusionist",.168)="1"
^DD(130,"B","Associated Clinic",.021)="1"
^DD(130,"B","Attending Code",.166)="1"
^DD(130,"B","Attending Provider",124)="1"
^DD(130,"B","Attending Surgeon",.164)="1"
^DD(130,"B","BATH & SHAMPOO",.973)=""
^DD(130,"B","BATISTA PROCEDURE USED (Y/N)",439)=""
^DD(130,"B","BLEEDING DISORDERS",216)=""
^DD(130,"B","BLOOD LOSS (ML)",.25)=""
^DD(130,"B","BLOOD TYPE&XMATCH",.993)=""
^DD(130,"B","BRIDGE TO TRANSPLANT/DEVICE",481)=""
^DD(130,"B","BRIEF CLIN HISTORY",60)=""
^DD(130,"B","Bath & Shampoo (Y/N)",.973)="1"
^DD(130,"B","Batista Procedure Used (Y/N)",439)="1"
^DD(130,"B","Blood Type & Crossmatch (Y/N)",.993)="1"
^DD(130,"B","Brief Clinical History",60)="1"
^DD(130,"B","CANCEL DATE",17)=""
^DD(130,"B","CANCEL REASON",18)=""
^DD(130,"B","CANCELLATION AVOIDABLE",67)=""
^DD(130,"B","CANCELLED BY",70)=""
^DD(130,"B","CARDIAC (Y/N)",242)=""
^DD(130,"B","CARDIAC ARREST REQ CPR",411)=""
^DD(130,"B","CARDIAC CATHETERIZATION DATE",440)=""
^DD(130,"B","CARDIAC OCCURRENCES",321)=""
^DD(130,"B","CARDIAC RESOURCE DATA COMMENTS",431)=""
^DD(130,"B","CARDIAC RISK PREOP COMMENTS",430)=""
^DD(130,"B","CARDIAC SURG PERFORMED NON-VA",472)=""
^DD(130,"B","CARDIAC SURGICAL PRIORITY",414)=""
^DD(130,"B","CARDIAC TRANSPLANT",373)=""
^DD(130,"B","CARDIOMEGALY",209)=""
^DD(130,"B","CARE PLAN IN CHART",.9811)=""
^DD(130,"B","CASE SCHEDULE ORDER",.037)=""
^DD(130,"B","CASE SCHEDULE TYPE",.035)=""
^DD(130,"B","CASE VERIFICATION",43)=""
^DD(130,"B","CBC IN 48 HRS",.992)=""
^DD(130,"B","CBC Within 48 Hours (Y/N)",.992)="1"
^DD(130,"B","CELL SAVER",130)=""
^DD(130,"B","CENTRAL NERVOUS SYSTEM (Y/N)",210)=""
^DD(130,"B","CEREBRAL VASCULAR DISEASE",264)=""
^DD(130,"B","CHEMOTHERAPY IN LAST 30 DAYS",338.1)=""
^DD(130,"B","CHEST XRAY IN 7 DAYS",.998)=""
^DD(130,"B","CHF WITHIN ONE MONTH",396)=""
^DD(130,"B","CIG, MATCH & VAL REM",.983)=""
^DD(130,"B","CIRCUMFLEX STENOSIS",362.3)=""
^DD(130,"B","CLASSIFICATION ENTERED (Y/N)",.0155)=""
^DD(130,"B","CLEAN DRESSING",.987)=""
^DD(130,"B","CLEAN HOSP CLOTH",.988)=""
^DD(130,"B","CLOSTRIDIUM DIFFICILE COLITIS",447)=""
^DD(130,"B","CNS OCCURRENCES",320)=""
^DD(130,"B","CNS Occurrences (Y/N)",320)="1"
^DD(130,"B","CODING VERIFIER",69)=""
^DD(130,"B","COMA",333)=""
^DD(130,"B","COMA > 24 HOURS POSTOP",410)=""
^DD(130,"B","COMBAT VET",.024)=""
^DD(130,"B","CONCURRENT CASE",35)=""
^DD(130,"B","CONGESTIVE HEART FAILURE",207)=""
^DD(130,"B","CONSENT SIG&WIT",.972)=""
^DD(130,"B","CONVERT FROM OFF PUMP TO CPB",469)=""
^DD(130,"B","CORONARIES WITH STENOSIS",362)=""
^DD(130,"B","COUNT VERIFIER",48)=""
^DD(130,"B","CPT ON NURSE REPORT",1005)=""
^DD(130,"B","CREATE RISK ASSESSMENT",323)=""
^DD(130,"B","CROSSMATCH, SCREEN, AUTOLOGOUS",40)=""
^DD(130,"B","CULTURES",64)=""
^DD(130,"B","CURRENT DIGOXIN USE",354)=""
^DD(130,"B","CURRENT DIURETIC USE",353)=""
^DD(130,"B","CURRENT PNEUMONIA",326)=""
^DD(130,"B","CURRENT SMOKER",202)=""
^DD(130,"B","CURRENT SMOKER (CARDIAC)",510)=""
^DD(130,"B","CURRENTLY ON DIALYSIS",211)=""
^DD(130,"B","CVA/STROKE - NO NEURO DEFICIT",336)=""
^DD(130,"B","CVA/STROKE WITH NEURO DEFICIT",335)=""
^DD(130,"B","Cancellation Avoidable",67)="1"
^DD(130,"B","Cancellation Date/Time",17)="1"
^DD(130,"B","Cancellation Reason",18)="1"
^DD(130,"B","Cardiac (Y/N)",242)="1"
^DD(130,"B","Cardiac Catheterization Date",440)="1"
^DD(130,"B","Cardiac Occurrences (Y/N)",321)="1"
^DD(130,"B","Cardiac Surgical Priority",414)="1"
^DD(130,"B","Cardiac Transplant (Y/N)",373)="1"
^DD(130,"B","Care Plan in Chart (Y/N)",.9811)="1"
^DD(130,"B","Case Locked",24)="1"
^DD(130,"B","Case Schedule Order",.037)="1"
^DD(130,"B","Case Schedule Type",.035)="1"
^DD(130,"B","Case Verification (Y/N)",43)="1"
^DD(130,"B","Central Nervous System (Y/N)",210)="1"
^DD(130,"B","Classification Entered (Y/N)",.0155)="1"
^DD(130,"B","Clean Dressings (Y/N)",.987)="1"
^DD(130,"B","Clean Hospital Clothing (Y/N)",.988)="1"
^DD(130,"B","Coding Verifier",69)="1"
^DD(130,"B","Coma (Y/N)",333)="1"
^DD(130,"B","Completion of NPO Orders",.976)="1"
^DD(130,"B","Concurrent Surgical Case",35)="1"
^DD(130,"B","Consent Signed & Witnessed",.972)="1"
^DD(130,"B","Convert from Off Pump to CPB",469)="1"
^DD(130,"B","Count Verifier",48)="1"
^DD(130,"B","Cultures",64)="1"
^DD(130,"B","Current Digoxin Use (Y/N)",354)="1"
^DD(130,"B","Current Diuretic Use (Y/N)",353)="1"
^DD(130,"B","Current Pneumonia (Y/N)",326)="1"
^DD(130,"B","Current Smoker",202)="1"
^DD(130,"B","Current Smoker",510)="1"
^DD(130,"B","D/T PATIENT DISCH FROM ICU",471)=""
^DD(130,"B","D/T PATIENT EXTUBATED",470)=""
^DD(130,"B","DATE ASSESSMENT COMPLETED",272)=""
^DD(130,"B","DATE OF DEATH",342)=""
^DD(130,"B","DATE OF LAST TRANSMISSION",260.1)=""
^DD(130,"B","DATE OF OPERATION",.09)=""
^DD(130,"B","DATE OF PROCEDURE",120)=""
^DD(130,"B","DATE OF TRANSCRIPTION",39)=""
^DD(130,"B","DATE TRANSMITTED",260)=""
^DD(130,"B","DATE/TIME OF DICTATION",15)=""
^DD(130,"B","DATE/TIME OR REQUEST MADE",1.098)=""
^DD(130,"B","DEATH UNRELATED/RELATED",903)=""
^DD(130,"B","DEEP INCISIONAL SSI",249)=""
^DD(130,"B","DELAY CAUSE",42)=""
^DD(130,"B","DEVICE(S)",131)=""
^DD(130,"B","DIABETES",346)=""
^DD(130,"B","DIABETES (CARDIAC)",475)=""
^DD(130,"B","DIAGNOSTIC RESULTS CONFIRM BY",61)=""
^DD(130,"B","DIAGNOSTIC/THERAPEUTIC (Y/N)",20)=""
^DD(130,"B","DICTATED SUMMARY EXPECTED",1004)=""
^DD(130,"B","DISCHARGE/TRANSFER DATE",421)=""
^DD(130,"B","DISCHARGED VIA",25)=""
^DD(130,"B","DISSEMINATED CANCER (Y/N)",338)=""
^DD(130,"B","DIVISION",50)=""
^DD(130,"B","DNR STATUS",238)=""
^DD(130,"B","DNR Status (Y/N)",238)="1"
^DD(130,"B","DRESSING",41)=""
^DD(130,"B","DRESSING CONDITION",7)=""
^DD(130,"B","DRUG ADDICTION",324)=""
^DD(130,"B","DVT/THROMBOPHLEBITIS",263)=""
^DD(130,"B","DYNAMED NOTIFIED",81)=""
^DD(130,"B","DYSPNEA",325)=""
^DD(130,"B","Date Assessment Completed",272)="1"
^DD(130,"B","Date Highest CPK was Recorded",309)="1"
^DD(130,"B","Date Highest WBC was Recorded",312)="1"
^DD(130,"B","Date Surgery Consult Requested",516)="1"
^DD(130,"B","Date Transmitted",260)="1"
^DD(130,"B","Date of Height Measurement",236.1)="1"
^DD(130,"B","Date of Lowest Serum Sodium",407)="1"
^DD(130,"B","Date of Operation",.09)="1"
^DD(130,"B","Date of Procedure",120)="1"
^DD(130,"B","Date of Transcription",39)="1"
^DD(130,"B","Date/Time OR Request Made",1.098)="1"
^DD(130,"B","Date/Time Tourniquet Applied",.48)="1"
^DD(130,"B","Date/Time of Death",342)="1"
^DD(130,"B","Date/Time of Dictation",15)="1"
^DD(130,"B","Device(s)",131)="1"
^DD(130,"B","Diabetes",475)="1"
^DD(130,"B","Diagnostic/Therapeutic (Y/N)",20)="1"
^DD(130,"B","Dictated Summary Expected",1004)="1"
^DD(130,"B","Did the Patient Void",.9813)="1"
^DD(130,"B","Disseminated Cancer (Y/N)",338)="1"
^DD(130,"B","Dressing Condition",7)="1"
^DD(130,"B","Dressing(s)",41)="1"
^DD(130,"B","Drug Addiction (Y/N)",324)="1"
^DD(130,"B","DynaMed Notification Sent",81)="1"
^DD(130,"B","Dyspnea",325)="1"
^DD(130,"B","EKG IN 24 HRS",.999)=""
^DD(130,"B","EKG Within 24 Hours (Y/N)",.999)="1"
^DD(130,"B","ELECTROCAUTERY UNIT",.75)=""
^DD(130,"B","ELECTROGROUND POSITION",.55)=""
^DD(130,"B","ELECTROGROUND POSITION (2)",6)=""
^DD(130,"B","ELECTROPHYSIOLOGIC PROCEDURE",374)=""
^DD(130,"B","EMPLOYMENT STATUS PREOPERATIVE",442)=""
^DD(130,"B","END BP",.85)=""
^DD(130,"B","END PULSE",.84)=""
^DD(130,"B","END RESP",.86)=""
^DD(130,"B","ENDOCARDITIS",386)=""
^DD(130,"B","ENDOVASCULAR REPAIR",505)=""
^DD(130,"B","ENEMA(S) IF ORD",.975)=""
^DD(130,"B","ESOPHAGEAL VARICES",213)=""
^DD(130,"B","ESTIMATE OF MORTALITY",364)=""
^DD(130,"B","ESTIMATE OF MORTALITY, DATE",364.1)=""
^DD(130,"B","ESTIMATED CASE LENGTH",37)=""
^DD(130,"B","ESU COAG RANGE",57)=""
^DD(130,"B","ESU CUTTING RANGE",58)=""
^DD(130,"B","ESU Coagulation Range",57)="1"
^DD(130,"B","ESU Cutting Range",58)="1"
^DD(130,"B","ETOH > 2 DRINKS/DAY",246)=""
^DD(130,"B","Electrocautery Unit",.75)="1"
^DD(130,"B","Electroground Placement",.55)="1"
^DD(130,"B","Electroground Position (2)",6)="1"
^DD(130,"B","End Blood Pressure",.85)="1"
^DD(130,"B","End Pulse Rate",.84)="1"
^DD(130,"B","End Respiratory Rate",.86)="1"
^DD(130,"B","Endocarditis (Y/N)",386)="1"
^DD(130,"B","Esophageal Varices (Y/N)",213)="1"
^DD(130,"B","FEV1",347)=""
^DD(130,"B","FEV1 ",347)="1"
^DD(130,"B","FINAL ANESTHESIA TEMP (C)",.65)=""
^DD(130,"B","FINAL COUNTS VERIFY CORRECT",.52)=""
^DD(130,"B","FIRST ASST",.15)=""
^DD(130,"B","FOLEY CATHETER INSERTED BY",.57)=""
^DD(130,"B","FOLEY CATHETER SIZE",.56)=""
^DD(130,"B","FOREIGN BODY REMOVAL",381)=""
^DD(130,"B","FRESHLY SHAVED",.986)=""
^DD(130,"B","FUNCTIONAL HEALTH STATUS",240)=""
^DD(130,"B","Final Counts Verified By",.522)="1"
^DD(130,"B","First Assistant",.15)="1"
^DD(130,"B","Foley Catheter Inserted By",.57)="1"
^DD(130,"B","Foley Catheter Size",.56)="1"
^DD(130,"B","Foreign Body Removal (Y/N)",381)="1"
^DD(130,"B","Freshly Shaved (Y/N)",.986)="1"
^DD(130,"B","Functional Status",240)="1"
^DD(130,"B","GASTRIC OUTPUT",62)=""
^DD(130,"B","GASTROINTESTINAL (Y/N)",486)=""
^DD(130,"B","GENERAL (Y/N)",402)=""
^DD(130,"B","GENERAL COMMENTS",.28)=""
^DD(130,"B","GRAFT/PROSTHESIS/FLAP FAILURE",261)=""
^DD(130,"B","GREAT VESSEL REPAIR (Y/N)",372)=""
^DD(130,"B","Gastric Output (cc's)",62)="1"
^DD(130,"B","Gastrointestinal (Y/N)",486)="1"
^DD(130,"B","General Comments",.28)="1"
^DD(130,"B","General Medical Problems (Y/N)",402)="1"
^DD(130,"B","Great Vessel Repair (Y/N)",372)="1"
^DD(130,"B","HAIR REMOVAL BY",.12)=""
^DD(130,"B","HAIR REMOVAL COMMENTS",508)=""
^DD(130,"B","HAIR REMOVAL METHOD",506)=""
^DD(130,"B","HDL (CARDIAC)",457)=""
^DD(130,"B","HDL (mg/dl)",457)="1"
^DD(130,"B","HDL, DATE",457.1)=""
^DD(130,"B","HDL, Date",457.1)="1"
^DD(130,"B","HEAD AND/OR NECK CANCER",.023)=""
^DD(130,"B","HEIGHT",236)=""
^DD(130,"B","HEIGHT MEASUREMENT DATE",236.1)=""
^DD(130,"B","HEMIPLEGIA/HEMIPARESIS (Y/N)",400)=""
^DD(130,"B","HEMOGLOBIN A1C",504)=""
^DD(130,"B","HEMOGLOBIN A1C, DATE",504.1)=""
^DD(130,"B","HEPATOBILIARY (Y/N)",244)=""
^DD(130,"B","HEPATOMEGALY",268)=""
^DD(130,"B","HIGH ANION GAP, DATE",445.1)=""
^DD(130,"B","HIGH CPK, DATE",309)=""
^DD(130,"B","HIGH CPK-MB, DATE",310)=""
^DD(130,"B","HIGH GLUCOSE, DATE",307)=""
^DD(130,"B","HIGH POTASSIUM, DATE",306)=""
^DD(130,"B","HIGH SERUM CREATININE, DATE",308)=""
^DD(130,"B","HIGH SERUM SODIUM, DATE",305)=""
^DD(130,"B","HIGH SERUM TROPONIN I, DATE",455.1)=""
^DD(130,"B","HIGH SERUM TROPONIN T, DATE",456.1)=""
^DD(130,"B","HIGH TOTAL BILIRUBIN, DATE",311)=""
^DD(130,"B","HIGHEST ANION GAP",445)=""
^DD(130,"B","HIGHEST CPK",278)=""
^DD(130,"B","HIGHEST CPK-MB",279)=""
^DD(130,"B","HIGHEST GLUCOSE",276)=""
^DD(130,"B","HIGHEST POTASSIUM",275)=""
^DD(130,"B","HIGHEST SERUM CREATININE",277)=""
^DD(130,"B","HIGHEST SERUM SODIUM",274)=""
^DD(130,"B","HIGHEST SERUM TROPONIN I",455)=""
^DD(130,"B","HIGHEST SERUM TROPONIN T",456)=""
^DD(130,"B","HIGHEST TOTAL BILIRUBIN",280)=""
^DD(130,"B","HIGHEST WBC",281)=""
^DD(130,"B","HIGHEST WBC, DATE",312)=""
^DD(130,"B","HISTORY OF COPD",203)=""
^DD(130,"B","HISTORY OF MI",394)=""
^DD(130,"B","HISTORY OF TIA'S",334)=""
^DD(130,"B","HOMELESS",473)=""
^DD(130,"B","HOSPITAL ADMISSION DATE",418)=""
^DD(130,"B","HOSPITAL DISCHARGE DATE",419)=""
^DD(130,"B","HYPERTENSION",463)=""
^DD(130,"B","HYPERTENSION REQUIRING MEDS",208)=""
^DD(130,"B","Hemiplegia/Hemiparesis (Y/N)",400)="1"
^DD(130,"B","Hemoglobin A1c",504)="1"
^DD(130,"B","Hemoglobin A1c, Date",504.1)="1"
^DD(130,"B","Hepatobiliary (Y/N)",244)="1"
^DD(130,"B","Highest Postoperative CPK",278)="1"
^DD(130,"B","Highest Postoperative CPK-MB",279)="1"
^DD(130,"B","Highest Postoperative Glucose",276)="1"
^DD(130,"B","Highest Postoperative WBC",281)="1"
^DD(130,"B","History of Hypertension (Y/N)",463)="1"
^DD(130,"B","History of Severe COPD (Y/N)",203)="1"
^DD(130,"B","History of TIA's (Y/N)",334)="1"
^DD(130,"B","Homeless (Yes/No)",473)="1"
^DD(130,"B","Hospital Admission Date/Time",418)="1"
^DD(130,"B","Hospital Admission Status",.011)="1"
^DD(130,"B","Hospital Discharge Date/Time",419)="1"
^DD(130,"B","ICD-9 ON NURSE REPORT",1006)=""
^DD(130,"B","ILEUS/BOWEL OBSTRUCTION",345)=""
^DD(130,"B","IMAG TIMESTAMP",76)=""
^DD(130,"B","IMAGE",2005)=""
^DD(130,"B","IMAGING CONFIRMED COMMENTS",83)=""
^DD(130,"B","IMPAIRED SENSORIUM",332)=""
^DD(130,"B","IN OR TO ANES START",12)=""
^DD(130,"B","IN OR TO OP START TIME",14)=""
^DD(130,"B","IN/OUT-PATIENT STATUS",.011)=""
^DD(130,"B","INCISION TYPE",468)=""
^DD(130,"B","INDICATIONS FOR OPERATIONS",55)=""
^DD(130,"B","INDUCTION COMPLETE",.215)=""
^DD(130,"B","INST CNT VERF BY",.525)=""
^DD(130,"B","INSTRUMENT COUNT CORRECT (Y/N)",46)=""
^DD(130,"B","INTRAOP DISSEMINATED CANCER",443)=""
^DD(130,"B","INTRAOP RBC UNITS TRANSFUSED",340)=""
^DD(130,"B","INTRAOPERATIVE ASCITES",446)=""
^DD(130,"B","INTRAOPERATIVE OCCURRENCES",1.14)=""
^DD(130,"B","INTRAOPERATIVE X-RAYS",1.035)=""
^DD(130,"B","IONIZING RADIATION EXPOSURE",.018)=""
^DD(130,"B","IRRIGATION",.39)=""
^DD(130,"B","IV NTG WITHIN 48 HOURS",355)=""
^DD(130,"B","IV STARTED BY",63)=""
^DD(130,"B","IV Started By",63)="1"
^DD(130,"B","Imaging Confirmed Timestamp",76)="1"
^DD(130,"B","Impaired Sensorium (Y/N)",332)="1"
^DD(130,"B","Incision Type",468)="1"
^DD(130,"B","Indications for Operations",55)="1"
^DD(130,"B","Induction Complete Time",.215)="1"
^DD(130,"B","Instrument Count Verified By",.525)="1"
^DD(130,"B","Intraoperative Ascites",446)="1"
^DD(130,"B","Intraoperative Blood Loss (ml)",.25)="1"
^DD(130,"B","Intraoperative Occurrences",1.14)="1"
^DD(130,"B","Intraoperative X-Rays (Y/N/C)",1.035)="1"
^DD(130,"B","LAD STENOSIS",362.1)=""
^DD(130,"B","LASER TYPE",128)=""
^DD(130,"B","LASER UNIT",129)=""
^DD(130,"B","LDL (CARDIAC)",461)=""
^DD(130,"B","LDL (mg/dl)",461)="1"
^DD(130,"B","LDL, DATE (CARDIAC)",461.1)=""
^DD(130,"B","LDL, Date",461.1)="1"
^DD(130,"B","LEFT MAIN STENOSIS",361)=""
^DD(130,"B","LENGTH OF POST-OP STAY",247)=""
^DD(130,"B","LEVIN TUBE/CATH",.989)=""
^DD(130,"B","LOCK CASE",24)=""
^DD(130,"B","LOW CARDIAC OUTPUT > 6 HOURS",387)=""
^DD(130,"B","LOW HEMATOCRIT, DATE",314)=""
^DD(130,"B","LOW POTASSIUM",406)=""
^DD(130,"B","LOW POTASSIUM, DATE",408)=""
^DD(130,"B","LOW SERUM ALBUMIN, DATE",313)=""
^DD(130,"B","LOW SERUM SODIUM",405)=""
^DD(130,"B","LOW SODIUM, DATE",407)=""
^DD(130,"B","LOWEST HEMATOCRIT",283)=""
^DD(130,"B","LOWEST SERUM ALBUMIN",282)=""
^DD(130,"B","LV ANEURYSMECTOMY",371)=""
^DD(130,"B","LV Aneurysmectomy (Y/N)",371)="1"
^DD(130,"B","LV CONTRACTION SCORE",363)=""
^DD(130,"B","LV Contraction Grade",363)="1"
^DD(130,"B","LVEDP",357)=""
^DD(130,"B","Last Transmission Date",260.1)="1"
^DD(130,"B","Left Main Stenosis",361)="1"
^DD(130,"B","Levin Tube/Catheter (Y/N)",.989)="1"
^DD(130,"B","Lowest Postoperative Potassium",406)="1"
^DD(130,"B","Lowest Serum Sodium",405)="1"
^DD(130,"B","MAJOR/MINOR",.03)=""
^DD(130,"B","MALLAMPATI SCALE",901.1)=""
^DD(130,"B","MANDIBULAR SPACE",901.2)=""
^DD(130,"B","MARKED SITE COMMENTS",84)=""
^DD(130,"B","MARKED SITE CONFIRMED",73)=""
^DD(130,"B","MAZE PROCEDURE",512)=""
^DD(130,"B","MEDIASTINITIS",388)=""
^DD(130,"B","MEDICAL SPECIALTY",125)=""
^DD(130,"B","MEDICATIONS",.375)=""
^DD(130,"B","MILITARY SEXUAL TRAUMA",.022)=""
^DD(130,"B","MIN INTRAOP TEMPERATURE (C)",.36)=""
^DD(130,"B","MINIMALLY INVASIVE PROC (Y/N)",441)=""
^DD(130,"B","MISC. CARDIAC PROCEDURES",375)=""
^DD(130,"B","MITRAL REGURGITATION",415)=""
^DD(130,"B","MITRAL VALVE REPLACEMENT",368)=""
^DD(130,"B","MONITORS",.293)=""
^DD(130,"B","MYECTOMY FOR IHSS",378)=""
^DD(130,"B","MYOCARDIAL INFARCTION",258)=""
^DD(130,"B","MYXOMA RESECTION",377)=""
^DD(130,"B","Major or Minor",.03)="1"
^DD(130,"B","Mallampati Scale",901.1)="1"
^DD(130,"B","Maze Procedure",512)="1"
^DD(130,"B","Mediastinitis (Y/N)",388)="1"
^DD(130,"B","Medical Center Division",50)="1"
^DD(130,"B","Medical Specialty",125)="1"
^DD(130,"B","Medications",.375)="1"
^DD(130,"B","Mitral Regurgitation",415)="1"
^DD(130,"B","Mitral Valve Replacement (Y/N)",368)="1"
^DD(130,"B","Myectomy for IHSS (Y/N)",378)="1"
^DD(130,"B","Myocardial Infarction (Y/N)",258)="1"
^DD(130,"B","Myxoma Resection (Y/N)",377)="1"
^DD(130,"B","NEURO DEGENERATIVE DISEASE",337)=""
^DD(130,"B","NEW MECHANICAL CIRCULATORY",467)=""
^DD(130,"B","NON-OPERATIVE OCCURRENCES",53)=""
^DD(130,"B","NON-OR LOCATION",119)=""
^DD(130,"B","NON-OR PROCEDURE",118)=""
^DD(130,"B","NPO AS ORD/CLIN MID",.976)=""
^DD(130,"B","NUM OF CONCURRENT ANES CASES",.3512)=""
^DD(130,"B","NUM OF PRIOR HEART SURGERIES",352)=""
^DD(130,"B","NUMBER WITH IMA",366)=""
^DD(130,"B","NUMBER WITH OTHER ARTERY",465)=""
^DD(130,"B","NUMBER WITH OTHER CONDUIT",416)=""
^DD(130,"B","NUMBER WITH RADIAL ARTERY",464)=""
^DD(130,"B","NUMBER WITH VEIN",365)=""
^DD(130,"B","NURSE PRESENT TIME",.202)=""
^DD(130,"B","NURSING CARE COMMENTS",.29)=""
^DD(130,"B","NUTRITIONAL/IMMUNE/OTHER",245)=""
^DD(130,"B","Non-OR Location",119)="1"
^DD(130,"B","Non-OR Procedure",118)="1"
^DD(130,"B","Non-Operative Occurrences",53)="1"
^DD(130,"B","Number with Other Artery",465)="1"
^DD(130,"B","Number with Radial Artery",464)="1"
^DD(130,"B","Nursing Care Comments",.29)="1"
^DD(130,"B","Nutritional/Immune/Other (Y/N)",245)="1"
^DD(130,"B","O.R. Circulating Nurse",.111)="1"
^DD(130,"B","O.R. Clean Up Time",1.25)="1"
^DD(130,"B","O.R. Scrub Nurse",.112)="1"
^DD(130,"B","O.R. Set-Up Time",.44)="1"
^DD(130,"B","OBSERVATION ADMISSION DATE",452)=""
^DD(130,"B","OBSERVATION DISCHARGE DATE",453)=""
^DD(130,"B","OBSERVATION TREATING SPECIALTY",454)=""
^DD(130,"B","OCCURRENCE/NO PROCEDURE",54)=""
^DD(130,"B","ON VENTILATOR >48 HOURS",285)=""
^DD(130,"B","OP DISPOSITION",.46)=""
^DD(130,"B","OPEN WOUND",218)=""
^DD(130,"B","OPERATING ROOM",.02)=""
^DD(130,"B","OPERATION TIME",1.21)=""
^DD(130,"B","OPERATIONS THIS ADMISSION",200)=""
^DD(130,"B","OPERATIVE DEATH",384)=""
^DD(130,"B","OPERATIVE FINDINGS",59)=""
^DD(130,"B","OR CIRC SUPPORT",.111)=""
^DD(130,"B","OR CLEAN END TIME",.236)=""
^DD(130,"B","OR CLEAN START TIME",.234)=""
^DD(130,"B","OR CLEAN UP TIME",1.25)=""
^DD(130,"B","OR SCRUB SUPPORT",.112)=""
^DD(130,"B","OR SET-UP TIME",.44)=""
^DD(130,"B","ORAL HYGIENE",.985)=""
^DD(130,"B","ORDER NUMBER",100)=""
^DD(130,"B","ORGAN/SPACE SSI",488)=""
^DD(130,"B","OTHER CARDIAC OCCURRENCE",344)=""
^DD(130,"B","OTHER CARDIAC PROCEDURES",383.1)=""
^DD(130,"B","OTHER CARDIAC PROCEDURES (Y/N)",502)=""
^DD(130,"B","OTHER CARDIAC PROCEDURES-LIST",484)=""
^DD(130,"B","OTHER CNS OCCURRENCE",343)=""
^DD(130,"B","OTHER NON-CT PROCEDURES",491)=""
^DD(130,"B","OTHER OCCURRENCES",322)=""
^DD(130,"B","OTHER OCCURRENCES (ICD9)",392)=""
^DD(130,"B","OTHER PERSONS IN OR",31)=""
^DD(130,"B","OTHER POSTOP DIAGS",.74)=""
^DD(130,"B","OTHER PREOP DIAGNOSIS",.72)=""
^DD(130,"B","OTHER PROCEDURES",.42)=""
^DD(130,"B","OTHER PROCEDURES (Y/N)",383)=""
^DD(130,"B","OTHER RESPIRATORY OCCURRENCE",253)=""
^DD(130,"B","OTHER SCRUBBED ASSISTANTS",30)=""
^DD(130,"B","OTHER TUMOR RESECTION",379)=""
^DD(130,"B","OTHER URINARY TRACT OCCURRENCE",286)=""
^DD(130,"B","OTHER WOUND OCCURRENCE",489)=""
^DD(130,"B","Observation Treating Specialty",454)="1"
^DD(130,"B","Occurrence/No Procedure",54)="1"
^DD(130,"B","Operating Room",.02)="1"
^DD(130,"B","Operation Cancelled By",70)="1"
^DD(130,"B","Operation Time",1.21)="1"
^DD(130,"B","Operations this Admission",200)="1"
^DD(130,"B","Operative Death (Y/N)",384)="1"
^DD(130,"B","Operative Findings",59)="1"
^DD(130,"B","Oral Hygiene Completed (Y/N)",.985)="1"
^DD(130,"B","Other CNS Occurrence",343)="1"
^DD(130,"B","Other Cardiac Occurrence",344)="1"
^DD(130,"B","Other Cardiac Procedures (Y/N)",502)="1"
^DD(130,"B","Other Occurrences (ICD9)",392)="1"
^DD(130,"B","Other Persons in O.R.",31)="1"
^DD(130,"B","Other Postoperative Diagnosis",.74)="1"
^DD(130,"B","Other Preoperative Diagnosis",.72)="1"
^DD(130,"B","Other Procedures (Y/N)",383)="1"
^DD(130,"B","Other Scrubbed Assistants",30)="1"
^DD(130,"B","Other Tumor Resection (Y/N)",379)="1"
^DD(130,"B","Other Wound Occurrence",489)="1"
^DD(130,"B","PA SYSTOLIC PRESSURE",359)=""
^DD(130,"B","PA Systolic Pressure",359)="1"
^DD(130,"B","PAC(U) ADMIT SCORE",1.11)=""
^DD(130,"B","PAC(U) Admission Score",1.11)="1"
^DD(130,"B","PAC(U) Admission Time",1.17)="1"
^DD(130,"B","PAC(U) DISCH SCORE",1.12)=""
^DD(130,"B","PAC(U) DISCH TIME",1.18)=""
^DD(130,"B","PAC(U) Discharge Date/Time",1.18)="1"
^DD(130,"B","PAC(U) Discharge Score",1.12)="1"
^DD(130,"B","PAC(U) Disposition",.79)="1"
^DD(130,"B","PAC(U) TIME",1.26)=""
^DD(130,"B","PAC(U) Time",1.26)="1"
^DD(130,"B","PACK/YEARS",202.1)=""
^DD(130,"B","PACKING",.875)=""
^DD(130,"B","PACU DISPOSITION",.79)=""
^DD(130,"B","PARAPLEGIA (Y/N)",399)=""
^DD(130,"B","PATIENT",.01)=""
^DD(130,"B","PATIENT EDUCATION/ASSESSMENT",.971)=""
^DD(130,"B","PATIENT IN OR TIME",1.24)=""
^DD(130,"B","PATIENT VOIDED",.9813)=""
^DD(130,"B","PAW MEAN PRESSURE",360)=""
^DD(130,"B","PAW Mean Pressure",360)="1"
^DD(130,"B","PCI",351)=""
^DD(130,"B","PERFUSIONIST",.167)=""
^DD(130,"B","PERICARDIECTOMY",382)=""
^DD(130,"B","PERIOPERATIVE MI",385)=""
^DD(130,"B","PERIPHERAL NERVE INJURY",287)=""
^DD(130,"B","PERIPHERAL VASCULAR DISEASE",265)=""
^DD(130,"B","PFSS ACCOUNT REFERENCE",500)=""
^DD(130,"B","PFSS Account Reference",500)="1"
^DD(130,"B","PGY OF PRIMARY SURGEON",214)=""
^DD(130,"B","PLANNED PRIN DIAGNOSIS CODE",66)=""
^DD(130,"B","PLANNED PRIN PROCEDURE CODE ",27)=""
^DD(130,"B","PNEUMONIA",251)=""
^DD(130,"B","POSTOP ANES NOTE",1.2)=""
^DD(130,"B","POSTOP ANES NOTE DATE",1.19)=""
^DD(130,"B","POSTOP ATTENDING CONCURRENCE",52)=""
^DD(130,"B","POSTOP BLEEDING/TRANSFUSIONS",257)=""
^DD(130,"B","POSTOP BP",.67)=""
^DD(130,"B","POSTOP CONSCIOUS",.821)=""
^DD(130,"B","POSTOP CONVERS",.82)=""
^DD(130,"B","POSTOP MOOD",.81)=""
^DD(130,"B","POSTOP OCCURRENCE",1.16)=""
^DD(130,"B","POSTOP PULSE",.66)=""
^DD(130,"B","POSTOP RESP",.68)=""
^DD(130,"B","POSTOP SKIN COLOR",.77)=""
^DD(130,"B","POSTOP SKIN INTEG",.76)=""
^DD(130,"B","PRE-ADMISSION TESTING",56)=""
^DD(130,"B","PREGNANCY",269)=""
^DD(130,"B","PREOP ALK PHOSPHATASE, DATE",296)=""
^DD(130,"B","PREOP ANION GAP, DATE",444.1)=""
^DD(130,"B","PREOP ATTENDING CONCURRENCE",51)=""
^DD(130,"B","PREOP BLOOD PRESSURE",.63)=""
^DD(130,"B","PREOP CIRCULATORY DEVICE",474)=""
^DD(130,"B","PREOP CONSCIOUS",.196)=""
^DD(130,"B","PREOP CONVERSE",.195)=""
^DD(130,"B","PREOP FUNCT. HEALTH STATUS",492)=""
^DD(130,"B","PREOP HEMATOCRIT, DATE",301)=""
^DD(130,"B","PREOP MED&RAIL UP",.9814)=""
^DD(130,"B","PREOP MOOD",.19)=""
^DD(130,"B","PREOP PLATELET COUNT, DATE",298)=""
^DD(130,"B","PREOP POTASSIUM, DATE",303)=""
^DD(130,"B","PREOP RESPIRATORY RATE",.64)=""
^DD(130,"B","PREOP SERUM ALBUMIN, DATE",292)=""
^DD(130,"B","PREOP SERUM CREATININE, DATE",290)=""
^DD(130,"B","PREOP SERUM SODIUM, DATE",304)=""
^DD(130,"B","PREOP SKIN COLOR",.08)=""
^DD(130,"B","PREOP SKIN INTEG",.07)=""
^DD(130,"B","PREOP TEMPERATURE",.61)=""
^DD(130,"B","PREOP TOTAL BILIRUBIN, DATE",295)=""
^DD(130,"B","PREOP WEIGHT (Kg)",.615)=""
^DD(130,"B","PREOPERATIVE ALK PHOSPHATASE",229)=""
^DD(130,"B","PREOPERATIVE ANION GAP",444)=""
^DD(130,"B","PREOPERATIVE BUN",224)=""
^DD(130,"B","PREOPERATIVE BUN, DATE",291)=""
^DD(130,"B","PREOPERATIVE CPK",221)=""
^DD(130,"B","PREOPERATIVE CPK, DATE",288)=""
^DD(130,"B","PREOPERATIVE GLUCOSE",273)=""
^DD(130,"B","PREOPERATIVE GLUCOSE, DATE",302)=""
^DD(130,"B","PREOPERATIVE HEART RATE",.62)=""
^DD(130,"B","PREOPERATIVE HEMATOCRIT",234)=""
^DD(130,"B","PREOPERATIVE HEMOGLOBIN",219)=""
^DD(130,"B","PREOPERATIVE HEMOGLOBIN, DATE",239)=""
^DD(130,"B","PREOPERATIVE IMAGING CONFIRMED",72)=""
^DD(130,"B","PREOPERATIVE INR",487)=""
^DD(130,"B","PREOPERATIVE INR, DATE",487.1)=""
^DD(130,"B","PREOPERATIVE MB BAND",222)=""
^DD(130,"B","PREOPERATIVE MB BAND, DATE",289)=""
^DD(130,"B","PREOPERATIVE PLATELET COUNT",231)=""
^DD(130,"B","PREOPERATIVE POTASSIUM",271)=""
^DD(130,"B","PREOPERATIVE PT",232)=""
^DD(130,"B","PREOPERATIVE PT CONTROL",315)=""
^DD(130,"B","PREOPERATIVE PT, DATE",299)=""
^DD(130,"B","PREOPERATIVE PTT",233)=""
^DD(130,"B","PREOPERATIVE PTT CONTROL",316)=""
^DD(130,"B","PREOPERATIVE PTT, DATE",300)=""
^DD(130,"B","PREOPERATIVE SEPSIS",218.1)=""
^DD(130,"B","PREOPERATIVE SERUM ALBUMIN",225)=""
^DD(130,"B","PREOPERATIVE SERUM CREATININE",223)=""
^DD(130,"B","PREOPERATIVE SERUM SODIUM",270)=""
^DD(130,"B","PREOPERATIVE SGOT",227)=""
^DD(130,"B","PREOPERATIVE SGPT",226)=""
^DD(130,"B","PREOPERATIVE TOTAL BILIRUBIN",228)=""
^DD(130,"B","PREOPERATIVE USE OF IABP",356)=""
^DD(130,"B","PREOPERATIVE WBC",230)=""
^DD(130,"B","PREOPERATIVE WBC, DATE",297)=""
^DD(130,"B","PREVIOUS CARDIAC SURGERY",266)=""
^DD(130,"B","PREVIOUS PCI",220)=""
^DD(130,"B","PRIMARY CAUSE FOR DELAY",515)=""
^DD(130,"B","PRIN ASSOC DIAGNOSIS",27.5)=""
^DD(130,"B","PRIN PRE-OP ICD DIAGNOSIS CODE",32.5)=""
^DD(130,"B","PRIN. PROCEDURE CPT MODIFIER",28)=""
^DD(130,"B","PRINC ANESTHETIST",.31)=""
^DD(130,"B","PRINCIPAL DIAGNOSIS",33)=""
^DD(130,"B","PRINCIPAL POST-OP DIAG",34)=""
^DD(130,"B","PRINCIPAL PRE-OP DIAGNOSIS",32)=""
^DD(130,"B","PRINCIPAL PROCEDURE",26)=""
^DD(130,"B","PRIOR HEART SURGERIES",485)=""
^DD(130,"B","PRIOR MI",205)=""
^DD(130,"B","PROCEDURE OCCURRENCE",126)=""
^DD(130,"B","PROCEDURE TYPE",476)=""
^DD(130,"B","PROJ 112/SHAD",.026)=""
^DD(130,"B","PROSTHESIS INSTALLED",.47)=""
^DD(130,"B","PROSTHESIS REM",.982)=""
^DD(130,"B","PROVIDER",123)=""
^DD(130,"B","PULMONARY (Y/N)",241)=""
^DD(130,"B","PULMONARY EDEMA",259)=""
^DD(130,"B","PULMONARY EMBOLISM",252)=""
^DD(130,"B","PULMONARY RALES",348)=""
^DD(130,"B","Pack/Year Cigarette History",202.1)="1"
^DD(130,"B","Packing Type",.875)="1"
^DD(130,"B","Paraplegia/Paraparesis (Y/N)",399)="1"
^DD(130,"B","Patient Discharged Via",25)="1"
^DD(130,"B","Patient Education/Assessment",.971)="1"
^DD(130,"B","Patient in Operating Room Time",1.24)="1"
^DD(130,"B","Patient's Height",236)="1"
^DD(130,"B","Patient's Name",.01)="1"
^DD(130,"B","Patient's Race",417)="1"
^DD(130,"B","Patient's Weight",237)="1"
^DD(130,"B","Perfusionist",.167)="1"
^DD(130,"B","Pericardiectomy (Y/N)",382)="1"
^DD(130,"B","Peripheral Nerve Injury (Y/N)",287)="1"
^DD(130,"B","Physiologic Monitors",.293)="1"
^DD(130,"B","Pneumonia (Y/N)",251)="1"
^DD(130,"B","Postoperative Anesthesia Note",1.2)="1"
^DD(130,"B","Postoperative Blood Pressure",.67)="1"
^DD(130,"B","Postoperative Consciousness",.821)="1"
^DD(130,"B","Postoperative Conversation",.82)="1"
^DD(130,"B","Postoperative Disposition",.46)="1"
^DD(130,"B","Postoperative Mood",.81)="1"
^DD(130,"B","Postoperative Occurrence",1.16)="1"
^DD(130,"B","Postoperative Pulse Rate",.66)="1"
^DD(130,"B","Postoperative Respiratory Rate",.68)="1"
^DD(130,"B","Postoperative Skin Color",.77)="1"
^DD(130,"B","Postoperative Skin Integrity",.76)="1"
^DD(130,"B","Pregnancy Status",269)="1"
^DD(130,"B","Preoperative Anion Gap",444)="1"
^DD(130,"B","Preoperative BUN (mg/dl)",224)="1"
^DD(130,"B","Preoperative Blood Pressure",.63)="1"
^DD(130,"B","Preoperative CPK (U/L)",221)="1"
^DD(130,"B","Preoperative Consciousness",.196)="1"
^DD(130,"B","Preoperative Conversation",.195)="1"
^DD(130,"B","Preoperative Glucose",273)="1"
^DD(130,"B","Preoperative Heart Rate",.62)="1"
^DD(130,"B","Preoperative Hematocrit",234)="1"
^DD(130,"B","Preoperative Hemoglobin (g/dl)",219)="1"
^DD(130,"B","Preoperative INR",487)="1"
^DD(130,"B","Preoperative Imaging Confirmed",72)="1"
^DD(130,"B","Preoperative MB Band",222)="1"
^DD(130,"B","Preoperative Mood",.19)="1"
^DD(130,"B","Preoperative PT (seconds)",232)="1"
^DD(130,"B","Preoperative PT Control",315)="1"
^DD(130,"B","Preoperative PTT (seconds)",233)="1"
^DD(130,"B","Preoperative PTT Control",316)="1"
^DD(130,"B","Preoperative Potassium",271)="1"
^DD(130,"B","Preoperative Respiratory Rate",.64)="1"
^DD(130,"B","Preoperative Risk Summary Data",430)="1"
^DD(130,"B","Preoperative SGOT (mU/ml)",227)="1"
^DD(130,"B","Preoperative SGPT (mU/ml)",226)="1"
^DD(130,"B","Preoperative Serum Sodium",270)="1"
^DD(130,"B","Preoperative Skin Color",.08)="1"
^DD(130,"B","Preoperative Skin Integrity",.07)="1"
^DD(130,"B","Preoperative Temperature",.61)="1"
^DD(130,"B","Preoperative WBC (X 1000/mm3)",230)="1"
^DD(130,"B","Preoperative Weight (Kg)",.615)="1"
^DD(130,"B","Preoperative use of IABP (Y/N)",356)="1"
^DD(130,"B","Presence of Hepatomegaly (Y/N)",268)="1"
^DD(130,"B","Previous Cardiac Surgery (Y/N)",266)="1"
^DD(130,"B","Previous PCI (Y/N)",220)="1"
^DD(130,"B","Prin Pre-OP ICD Diagnosis Code",32.5)="1"
^DD(130,"B","Principal Anesthetist",.31)="1"
^DD(130,"B","Principal Diagnosis",33)="1"
^DD(130,"B","Principal Procedure",26)="1"
^DD(130,"B","Prior Heart Surgeries",485)="1"
^DD(130,"B","Prior Myocardial Infarction",205)="1"
^DD(130,"B","Procedure Type",476)="1"
^DD(130,"B","Prosthetic Devices",.47)="1"
^DD(130,"B","Prosthetics Removed (Y/N)",.982)="1"
^DD(130,"B","Provider",123)="1"
^DD(130,"B","Pulmonary (Y/N)",241)="1"
^DD(130,"B","Pulmonary Embolism (Y/N)",252)="1"
^DD(130,"B","Pulmonary Rales (Y/N)",348)="1"
^DD(130,"B","QUADRIPLEGIA (Y/N)",398)=""
^DD(130,"B","RACE",417)=""
^DD(130,"B","RADIOTHERAPY IN LAST 90 DAYS",338.2)=""
^DD(130,"B","RE-DO CIRCUMFLEX STENOSIS",480)=""
^DD(130,"B","RE-DO LAD STENOSIS",478)=""
^DD(130,"B","RE-DO RT CORONARY STENOSIS",479)=""
^DD(130,"B","RE-TRANSMISSION",393)=""
^DD(130,"B","READY TO TRANSMIT?",905)=""
^DD(130,"B","REASON FOR NO ASSESSMENT",102)=""
^DD(130,"B","REC&XRAY READY",.974)=""
^DD(130,"B","REDO PROCEDURE",201)=""
^DD(130,"B","REFERRING PHYSICIAN",23)=""
^DD(130,"B","RELIEF ANESTHETIST",.32)=""
^DD(130,"B","RENAL (Y/N)",243)=""
^DD(130,"B","RENAL FAILURE",328)=""
^DD(130,"B","RENAL INSUFFICIENCY",409)=""
^DD(130,"B","REOPERATION FOR BLEEDING",389)=""
^DD(130,"B","REPEAT CARDIAC SURG PROCEDURE",391)=""
^DD(130,"B","REPEAT VENTILATOR W/IN 30 DAYS",490)=""
^DD(130,"B","REPLACEMENT FLUID TYPE",.27)=""
^DD(130,"B","REQ ANESTHESIA TECHNIQUE",1.01)=""
^DD(130,"B","REQ BLOOD AVAIL",1.052)=""
^DD(130,"B","REQ BLOOD KIND",1.05)=""
^DD(130,"B","REQ CLEAN OR CONTAMINATED",.05)=""
^DD(130,"B","REQ FROZ SECT",1.02)=""
^DD(130,"B","REQ PHOTO",1.04)=""
^DD(130,"B","REQ POSTOP CARE",.43)=""
^DD(130,"B","REQ PREOP X-RAY",1.03)=""
^DD(130,"B","REQUEST BLOOD AVAILABILITY",38)=""
^DD(130,"B","REQUESTED",36)=""
^DD(130,"B","RESPIRATORY OCCURRENCES",318)=""
^DD(130,"B","REST PAIN/GANGRENE (Y/N)",330)=""
^DD(130,"B","RESTING ST DEPRESSION",350)=""
^DD(130,"B","RESTR & POSITION AIDS",.13)=""
^DD(130,"B","RETURN TO OR WITHIN 30 DAYS",262)=""
^DD(130,"B","RETURNED TO SURGERY",1.145)=""
^DD(130,"B","REVASCULARIZATION/AMPUTATION",329)=""
^DD(130,"B","REVIEW OF DEATH COMMENTS",904)=""
^DD(130,"B","RIGHT CORONARY STENOSIS",362.2)=""
^DD(130,"B","Re-Do Circumflex Stenosis",480)="1"
^DD(130,"B","Re-Do Lad Stenosis",478)="1"
^DD(130,"B","Re-Do Right Coronary Stenosis",479)="1"
^DD(130,"B","Ready to Transmit ?",905)="1"
^DD(130,"B","Reason for the Delay",42)="1"
^DD(130,"B","Redo Procedure (Y/N)",201)="1"
^DD(130,"B","Relief Anesthetist",.32)="1"
^DD(130,"B","Renal (Y/N)",243)="1"
^DD(130,"B","Reoperation for Bleeding (Y/N)",389)="1"
^DD(130,"B","Replacement Fluid Type",.27)="1"
^DD(130,"B","Request Clean or Contaminated",.05)="1"
^DD(130,"B","Request Medical Media (Y/N)",1.04)="1"
^DD(130,"B","Requested Anesthesia Technique",1.01)="1"
^DD(130,"B","Requested Postoperative Care",.43)="1"
^DD(130,"B","Requested Preoperative X-Rays",1.03)="1"
^DD(130,"B","Required Blood Products",1.05)="1"
^DD(130,"B","Resident or Staff Surgeon",101)="1"
^DD(130,"B","Rest Pain/Gangrene (Y/N)",330)="1"
^DD(130,"B","Resting ST Depression (Y/N)",350)="1"
^DD(130,"B","Restraint and Positioning Aids",.13)="1"
^DD(130,"B","Review of Death Comments",904)="1"
^DD(130,"B","Right Coronary Artery Stenosis",362.2)="1"
^DD(130,"B","SCHEDULED END TIME",11)=""
^DD(130,"B","SCHEDULED PROCEDURE",68)=""
^DD(130,"B","SCHEDULED START TIME",10)=""
^DD(130,"B","SECOND ASST",.16)=""
^DD(130,"B","SECOND SKIN PREP AGENT",8)=""
^DD(130,"B","SEQUENTIAL COMPRESSION DEVICE",127)=""
^DD(130,"B","SERUM BILIRUBIN (CARDIAC)",460)=""
^DD(130,"B","SERUM BILIRUBIN, DATE (CARD)",460.1)=""
^DD(130,"B","SERUM POTASSIUM (CARDIAC)",459)=""
^DD(130,"B","SERUM POTASSIUM, DATE(CARDIAC)",459.1)=""
^DD(130,"B","SERUM TRIGLYCERIDE (CARDIAC)",458)=""
^DD(130,"B","SERUM TRIGLYCERIDE, DATE (CAR)",458.1)=""
^DD(130,"B","SERVICE CONNECTED",.016)=""
^DD(130,"B","SEVERE HEAD TRAUMA (Y/N)",397)=""
^DD(130,"B","SGOT, DATE PERFORMED",294)=""
^DD(130,"B","SGPT, DATE PERFORMED",293)=""
^DD(130,"B","SHARPS COUNT CORRECT (Y/N)",45)=""
^DD(130,"B","SITE MARK TIMESTAMP",77)=""
^DD(130,"B","SKIN PREP AGENTS",.175)=""
^DD(130,"B","SKIN PREPPED BY (1)",.18)=""
^DD(130,"B","SKIN PREPPED BY (2)",4)=""
^DD(130,"B","SKIN PREPPED BY (3)",5)=""
^DD(130,"B","SOUTHWEST ASIA CONDITIONS",.019)=""
^DD(130,"B","SPD COMMENTS",80)=""
^DD(130,"B","SPECIMENS",49)=""
^DD(130,"B","SPONGE COUNT CORRECT (Y/N)",44)=""
^DD(130,"B","SPONGE, SHARPS, & INST COUNTER",47)=""
^DD(130,"B","STAFF/RESIDENT",101)=""
^DD(130,"B","STEROID USE FOR CHRONIC COND.",339)=""
^DD(130,"B","STROKE",390)=""
^DD(130,"B","STROKE/CVA",256)=""
^DD(130,"B","SUPERFICIAL INCISIONAL SSI",248)=""
^DD(130,"B","SURG PRESENT TIME",.206)=""
^DD(130,"B","SURG SCHED PERSON",1.099)=""
^DD(130,"B","SURGEON",.14)=""
^DD(130,"B","SURGEON'S DICTATION",1.15)=""
^DD(130,"B","SURGERY CONSULT DATE",513)=""
^DD(130,"B","SURGERY CONSULT REQUESTED",516)=""
^DD(130,"B","SURGERY POSITION",65)=""
^DD(130,"B","SURGERY SPECIALTY",.04)=""
^DD(130,"B","SURGICAL PRIORITY, DATE",414.1)=""
^DD(130,"B","SYSTEMIC SEPSIS",250)=""
^DD(130,"B","Scheduled Procedure",68)="1"
^DD(130,"B","Scheduled to End at what Time",11)="1"
^DD(130,"B","Second Assistant",.16)="1"
^DD(130,"B","Second Skin Preparation Agent",8)="1"
^DD(130,"B","Serum Bilirubin (mg/dl)",460)="1"
^DD(130,"B","Serum Bilirubin, Date",460.1)="1"
^DD(130,"B","Serum Potassium (mg/L)",459)="1"
^DD(130,"B","Serum Potassium, Date",459.1)="1"
^DD(130,"B","Serum Triglyceride (mg/dl)",458)="1"
^DD(130,"B","Serum Triglyceride, Date",458.1)="1"
^DD(130,"B","Severe Head Trauma (Y/N)",397)="1"
^DD(130,"B","Site Mark Verified Timestamp",77)="1"
^DD(130,"B","Skin Preparation Agent",.175)="1"
^DD(130,"B","Skin Prepped By",.18)="1"
^DD(130,"B","Skin Prepped By (2)",4)="1"
^DD(130,"B","Skin Prepped By (3)",5)="1"
^DD(130,"B","Solution used for Irrigation",.39)="1"
^DD(130,"B","Specimens",49)="1"
^DD(130,"B","Start of Patient's Wait Time",21)="1"
^DD(130,"B","Status of Final Counts",.52)="1"
^DD(130,"B","Stroke (Y/N)",390)="1"
^DD(130,"B","Surgeon",.14)="1"
^DD(130,"B","Surgeon Present Time",.206)="1"
^DD(130,"B","Surgeon's Operation Notes",1.15)="1"
^DD(130,"B","Surgery Consult Date",513)="1"
^DD(130,"B","Surgery Position",65)="1"
^DD(130,"B","Surgical Specialty",.04)="1"
^DD(130,"B","Systemic Sepsis",250)="1"
^DD(130,"B","THERMAL UNIT",.757)=""
^DD(130,"B","TIME NURSE OUT OF OR",9)=""
^DD(130,"B","TIME OPERATION BEGAN",.22)=""
^DD(130,"B","TIME OPERATION ENDS",.23)=""
^DD(130,"B","TIME OUT VERIFIED",71)=""
^DD(130,"B","TIME OUT VERIFIED COMMENTS",82)=""
^DD(130,"B","TIME PAT IN HOLD AREA",.203)=""
^DD(130,"B","TIME PAT IN OR",.205)=""
^DD(130,"B","TIME PAT OUT OR",.232)=""
^DD(130,"B","TIME PROCEDURE BEGAN",121)=""
^DD(130,"B","TIME PROCEDURE ENDED",122)=""
^DD(130,"B","TIME TOURNIQUET APPLIED",.48)=""
^DD(130,"B","TIU ANESTHESIA REPORT",1003)=""
^DD(130,"B","TIU Anesthesia Report",1003)="1"
^DD(130,"B","TIU NURSE INTRAOP REPORT",1001)=""
^DD(130,"B","TIU OPERATIVE SUMMARY",1000)=""
^DD(130,"B","TIU Operative Summary",1000)="1"
^DD(130,"B","TIU PROCEDURE REPORT (NON-OR)",1002)=""
^DD(130,"B","TIU Procedure Report (Non-OR)",1002)="1"
^DD(130,"B","TMR",483)=""
^DD(130,"B","TOTAL CHOLESTEROL (CARDIAC)",462)=""
^DD(130,"B","TOTAL CHOLESTEROL, DATE",462.1)=""
^DD(130,"B","TOTAL CPB TIME",451)=""
^DD(130,"B","TOTAL ISCHEMIC TIME",450)=""
^DD(130,"B","TOTAL URINE OUTPUT (ML)",.255)=""
^DD(130,"B","TOV TIMESTAMP",75)=""
^DD(130,"B","TRACHEOSTOMY",466)=""
^DD(130,"B","TRANS TO OR BY",.11)=""
^DD(130,"B","TRANSFER STATUS",413)=""
^DD(130,"B","TRANSFUSION > 4 RBC UNITS",217)=""
^DD(130,"B","TRICUSPID VALVE REPLACEMENT",369)=""
^DD(130,"B","TUBES AND DRAINS",22)=""
^DD(130,"B","TUMOR INVOLVING CNS (Y/N)",401)=""
^DD(130,"B","Teaching Physician Present",.3515)="1"
^DD(130,"B","Thermal Unit",.757)="1"
^DD(130,"B","Time Nurse Out of O.R.",9)="1"
^DD(130,"B","Time Nurse was Present",.202)="1"
^DD(130,"B","Time O.R. Cleaning Began",.234)="1"
^DD(130,"B","Time O.R. Cleaning Ended",.236)="1"
^DD(130,"B","Time Out Verified Timestamp",75)="1"
^DD(130,"B","Time Patient In the O.R.",.205)="1"
^DD(130,"B","Time Patient Out of the O.R.",.232)="1"
^DD(130,"B","Time Procedure Began",121)="1"
^DD(130,"B","Time Procedure Ended",122)="1"
^DD(130,"B","Time the Operation Began",.22)="1"
^DD(130,"B","Time the Operation Ends",.23)="1"
^DD(130,"B","Total Cholesterol (mg/dl)",462)="1"
^DD(130,"B","Total Cholesterol, Date",462.1)="1"
^DD(130,"B","Total Ischemic Time (minutes)",450)="1"
^DD(130,"B","Total Urine Output (ml)",.255)="1"
^DD(130,"B","Tracheostomy",466)="1"
^DD(130,"B","Transfer Status",413)="1"
^DD(130,"B","Transported to O.R. By",.11)="1"
^DD(130,"B","Tubes and Drains",22)="1"
^DD(130,"B","Tumor Involving CNS (Y/N)",401)="1"
^DD(130,"B","Type of Laser",128)="1"
^DD(130,"B","U/A IN 48 HRS",.991)=""
^DD(130,"B","UNPLANNED INTUBATION (Y/N)",412)=""
^DD(130,"B","URINARY TRACT INFECTION",255)=""
^DD(130,"B","URINARY TRACT OCCURRENCES",319)=""
^DD(130,"B","Urinary Tract Infection (Y/N)",255)="1"
^DD(130,"B","VALID ID/CONSENT CONFIRMED BY",.69)=""
^DD(130,"B","VALUABLES SECURED",.984)=""
^DD(130,"B","VALVE REPAIR",370)=""
^DD(130,"B","VASCULAR (Y/N)",206)=""
^DD(130,"B","VENTILATOR DEPENDENT",204)=""
^DD(130,"B","VERIFIER",.522)=""
^DD(130,"B","VISIT",.015)=""
^DD(130,"B","VSD REPAIR",380)=""
^DD(130,"B","VSD Repair (Y/N)",380)="1"
^DD(130,"B","Valuables Secured (Y/N)",.984)="1"
^DD(130,"B","Valve Repair",370)="1"
^DD(130,"B","Vascular (Y/N)",206)="1"
^DD(130,"B","Visit",.015)="1"
^DD(130,"B","WAIT TIME START",21)=""
^DD(130,"B","WEIGHT",237)=""
^DD(130,"B","WEIGHT LOSS > 10%",215)=""
^DD(130,"B","WOUND CLASSIFICATION",1.09)=""
^DD(130,"B","WOUND DISRUPTION",404)=""
^DD(130,"B","WOUND OCCURRENCES",403)=""
^DD(130,"B","Was this Case Requested (Y/N)",36)="1"
^DD(130,"B","Wound Classification",1.09)="1"
^DD(130,"B","Wound Disruption (Y/N)",404)="1"
^DD(130,"B","X-Rays and Records Complete",.974)="1"
^DD(130,"GL",0,1,.01)=""
^DD(130,"GL",0,2,.02)=""
^DD(130,"GL",0,3,.03)=""
^DD(130,"GL",0,4,.04)=""
^DD(130,"GL",0,5,.05)=""
^DD(130,"GL",0,6,38)=""
^DD(130,"GL",0,7,.07)=""
^DD(130,"GL",0,8,.08)=""
^DD(130,"GL",0,9,.09)=""
^DD(130,"GL",0,10,.035)=""
^DD(130,"GL",0,11,.037)=""
^DD(130,"GL",0,12,.011)=""
^DD(130,"GL",0,13,40)=""
^DD(130,"GL",0,14,100)=""
^DD(130,"GL",0,15,.015)=""
^DD(130,"GL",0,16,.016)=""
^DD(130,"GL",0,17,.017)=""
^DD(130,"GL",0,18,.018)=""
^DD(130,"GL",0,19,.019)=""
^DD(130,"GL",0,20,.0155)=""
^DD(130,"GL",0,21,.021)=""
^DD(130,"GL",0,22,.022)=""
^DD(130,"GL",0,23,.023)=""
^DD(130,"GL",0,24,.024)=""
^DD(130,"GL",0,25,.026)=""
^DD(130,"GL",.1,1,.11)=""
^DD(130,"GL",.1,2,.12)=""
^DD(130,"GL",.1,3,101)=""
^DD(130,"GL",.1,4,.14)=""
^DD(130,"GL",.1,5,.15)=""
^DD(130,"GL",.1,6,.16)=""
^DD(130,"GL",.1,7,.175)=""
^DD(130,"GL",.1,8,.18)=""
^DD(130,"GL",.1,9,.19)=""
^DD(130,"GL",.1,10,.166)=""
^DD(130,"GL",.1,12,4)=""
^DD(130,"GL",.1,13,.164)=""
^DD(130,"GL",.1,14,.195)=""
^DD(130,"GL",.1,15,.196)=""
^DD(130,"GL",.1,16,.165)=""
^DD(130,"GL",.1,17,5)=""
^DD(130,"GL",.1,19,.167)=""
^DD(130,"GL",.1,20,.168)=""
^DD(130,"GL",.2,1,.21)=""
^DD(130,"GL",.2,2,.22)=""
^DD(130,"GL",.2,3,.23)=""
^DD(130,"GL",.2,4,.24)=""
^DD(130,"GL",.2,5,.25)=""
^DD(130,"GL",.2,6,62)=""
^DD(130,"GL",.2,7,.202)=""
^DD(130,"GL",.2,8,.204)=""
^DD(130,"GL",.2,9,.206)=""
^DD(130,"GL",.2,10,.205)=""
^DD(130,"GL",.2,11,.215)=""
^DD(130,"GL",.2,12,.232)=""
^DD(130,"GL",.2,13,.234)=""
^DD(130,"GL",.2,14,.236)=""
^DD(130,"GL",.2,15,.203)=""
^DD(130,"GL",.2,16,.255)=""
^DD(130,"GL",.2,17,.214)=""
^DD(130,"GL",.2,19,.3511)=""
^DD(130,"GL",.2,20,.3512)=""
^DD(130,"GL",.2,22,.3514)=""
^DD(130,"GL",.2,23,.3515)=""
^DD(130,"GL",.3,1,.31)=""
^DD(130,"GL",.3,2,.32)=""
^DD(130,"GL",.3,3,.33)=""
^DD(130,"GL",.3,4,.34)=""
^DD(130,"GL",.3,5,63)=""
^DD(130,"GL",.3,6,.345)=""
^DD(130,"GL",.3,7,.36)=""
^DD(130,"GL",.3,8,103)=""
^DD(130,"GL",.3,9,901)=""
^DD(130,"GL",.3,11,901.1)=""
^DD(130,"GL",.3,12,901.2)=""
^DD(130,"GL",.4,1,37)=""
^DD(130,"GL",.4,2,905)=""
^DD(130,"GL",.4,3,.43)=""
^DD(130,"GL",.4,4,.44)=""
^DD(130,"GL",.4,6,.46)=""
^DD(130,"GL",.4,7,903)=""
^DD(130,"GL",.5,1,.52)=""
^DD(130,"GL",.5,3,.54)=""
^DD(130,"GL",.5,4,.55)=""
^DD(130,"GL",.5,5,.56)=""
^DD(130,"GL",.5,6,.57)=""
^DD(130,"GL",.5,10,.523)=""
^DD(130,"GL",.5,11,.525)=""
^DD(130,"GL",.5,12,.522)=""
^DD(130,"GL",.5,13,6)=""
^DD(130,"GL",.6,1,.61)=""
^DD(130,"GL",.6,2,.62)=""
^DD(130,"GL",.6,3,.63)=""
^DD(130,"GL",.6,4,.64)=""
^DD(130,"GL",.6,5,.65)=""
^DD(130,"GL",.6,6,.66)=""
^DD(130,"GL",.6,7,.67)=""
^DD(130,"GL",.6,8,.68)=""
^DD(130,"GL",.6,9,.69)=""
^DD(130,"GL",.6,10,.615)=""
^DD(130,"GL",.6,11,61)=""
^DD(130,"GL",.7,1,57)=""
^DD(130,"GL",.7,2,58)=""
^DD(130,"GL",.7,3,127)=""
^DD(130,"GL",.7,4,25)=""
^DD(130,"GL",.7,5,.75)=""
^DD(130,"GL",.7,6,.76)=""
^DD(130,"GL",.7,7,.77)=""
^DD(130,"GL",.7,8,128)=""
^DD(130,"GL",.7,9,.79)=""
^DD(130,"GL",.8,1,.81)=""
^DD(130,"GL",.8,2,.82)=""
^DD(130,"GL",.8,4,.84)=""
^DD(130,"GL",.8,5,.85)=""
^DD(130,"GL",.8,6,.86)=""
^DD(130,"GL",.8,10,.821)=""
^DD(130,"GL",.8,11,.875)=""
^DD(130,"GL",.97,1,.971)=""
^DD(130,"GL",.97,2,.972)=""
^DD(130,"GL",.97,3,.973)=""
^DD(130,"GL",.97,4,.974)=""
^DD(130,"GL",.97,5,.975)=""
^DD(130,"GL",.97,6,.976)=""
^DD(130,"GL",.97,7,.977)=""
^DD(130,"GL",.98,1,.981)=""
^DD(130,"GL",.98,2,.982)=""
^DD(130,"GL",.98,3,.983)=""
^DD(130,"GL",.98,4,.984)=""
^DD(130,"GL",.98,5,.985)=""
^DD(130,"GL",.98,6,.986)=""
^DD(130,"GL",.98,7,.987)=""
^DD(130,"GL",.98,8,.988)=""
^DD(130,"GL",.98,9,.989)=""
^DD(130,"GL",.98,10,.9811)=""
^DD(130,"GL",.98,11,.9812)=""
^DD(130,"GL",.98,12,.9813)=""
^DD(130,"GL",.98,13,.9814)=""
^DD(130,"GL",.98,14,.9815)=""
^DD(130,"GL",.99,1,.991)=""
^DD(130,"GL",.99,2,.992)=""
^DD(130,"GL",.99,3,.993)=""
^DD(130,"GL",.99,4,.994)=""
^DD(130,"GL",.99,5,.995)=""
^DD(130,"GL",.99,6,.996)=""
^DD(130,"GL",.99,7,.997)=""
^DD(130,"GL",.99,8,.998)=""
^DD(130,"GL",.99,9,.999)=""
^DD(130,"GL",.99,10,.9911)=""
^DD(130,"GL",1,0,.47)=""
^DD(130,"GL",1.1,1,1.11)=""
^DD(130,"GL",1.1,2,1.12)=""
^DD(130,"GL",1.1,3,1.13)=""
^DD(130,"GL",1.1,7,1.17)=""
^DD(130,"GL",1.1,8,1.18)=""
^DD(130,"GL",1.1,9,1.19)=""
^DD(130,"GL",2,0,.48)=""
^DD(130,"GL",3,1,22)=""
^DD(130,"GL",4,0,.27)=""
^DD(130,"GL",5,0,.28)=""
^DD(130,"GL",6,0,.37)=""
^DD(130,"GL",7,0,.29)=""
^DD(130,"GL",8,1,50)=""
^DD(130,"GL",9,0,49)=""
^DD(130,"GL",10,0,1.14)=""
^DD(130,"GL",11,0,1.05)=""
^DD(130,"GL",12,0,1.15)=""
^DD(130,"GL",13,0,.42)=""
^DD(130,"GL",14,0,.72)=""
^DD(130,"GL",15,0,.74)=""
^DD(130,"GL",16,0,1.16)=""
^DD(130,"GL",17,0,42)=""
^DD(130,"GL",18,0,23)=""
^DD(130,"GL",19,0,.111)=""
^DD(130,"GL",20,0,.13)=""
^DD(130,"GL",21,0,.757)=""
^DD(130,"GL",22,0,.375)=""
^DD(130,"GL",23,0,.112)=""
^DD(130,"GL",24,1,51)=""
^DD(130,"GL",24,2,52)=""
^DD(130,"GL",25,1,44)=""
^DD(130,"GL",25,2,45)=""
^DD(130,"GL",25,3,46)=""
^DD(130,"GL",25,4,47)=""
^DD(130,"GL",25,5,48)=""
^DD(130,"GL",26,0,.39)=""
^DD(130,"GL",27,0,.293)=""
^DD(130,"GL",28,0,30)=""
^DD(130,"GL",29,0,1.145)=""
^DD(130,"GL",30,1,17)=""
^DD(130,"GL",30,2,67)=""
^DD(130,"GL",30,3,70)=""
^DD(130,"GL",31,1,7)=""
^DD(130,"GL",31,2,8)=""
^DD(130,"GL",31,3,9)=""
^DD(130,"GL",31,4,10)=""
^DD(130,"GL",31,5,11)=""
^DD(130,"GL",31,6,15)=""
^DD(130,"GL",31,7,39)=""
^DD(130,"GL",31,8,18)=""
^DD(130,"GL",31,9,20)=""
^DD(130,"GL",31,10,81)=""
^DD(130,"GL",31,11,21)=""
^DD(130,"GL",32,0,31)=""
^DD(130,"GL",33,1,32)=""
^DD(130,"GL",33,2,33)=""
^DD(130,"GL",34,1,34)=""
^DD(130,"GL",34,2,66)=""
^DD(130,"GL",34,3,32.5)=""
^DD(130,"GL",35,1,41)=""
^DD(130,"GL",35,2,56)=""
^DD(130,"GL",36,0,53)=""
^DD(130,"GL",37,1,54)=""
^DD(130,"GL",38,0,59)=""
^DD(130,"GL",39,0,60)=""
^DD(130,"GL",40,0,55)=""
^DD(130,"GL",41,0,64)=""
^DD(130,"GL",42,0,65)=""
^DD(130,"GL",43,0,126)=""
^DD(130,"GL",44,0,129)=""
^DD(130,"GL",45,0,130)=""
^DD(130,"GL",46,1,131)=""
^DD(130,"GL",47,0,904)=""
^DD(130,"GL",48,0,1.2)=""
^DD(130,"GL",49,0,508)=""
^DD(130,"GL",50,0,.213)=""
^DD(130,"GL",55,0,.3513)=""
^DD(130,"GL",80,0,80)=""
^DD(130,"GL",82,0,82)=""
^DD(130,"GL",83,0,83)=""
^DD(130,"GL",84,0,84)=""
^DD(130,"GL",200,1,402)=""
^DD(130,"GL",200,2,346)=""
^DD(130,"GL",200,3,202)=""
^DD(130,"GL",200,4,246)=""
^DD(130,"GL",200,5,324)=""
^DD(130,"GL",200,6,325)=""
^DD(130,"GL",200,7,238)=""
^DD(130,"GL",200,8,240)=""
^DD(130,"GL",200,9,241)=""
^DD(130,"GL",200,10,204)=""
^DD(130,"GL",200,11,203)=""
^DD(130,"GL",200,12,326)=""
^DD(130,"GL",200,13,244)=""
^DD(130,"GL",200,14,268)=""
^DD(130,"GL",200,15,212)=""
^DD(130,"GL",200,16,213)=""
^DD(130,"GL",200,17,327)=""
^DD(130,"GL",200,18,210)=""
^DD(130,"GL",200,19,332)=""
^DD(130,"GL",200,20,397)=""
^DD(130,"GL",200,21,333)=""
^DD(130,"GL",200,22,398)=""
^DD(130,"GL",200,23,399)=""
^DD(130,"GL",200,24,400)=""
^DD(130,"GL",200,25,334)=""
^DD(130,"GL",200,26,335)=""
^DD(130,"GL",200,27,336)=""
^DD(130,"GL",200,28,337)=""
^DD(130,"GL",200,29,401)=""
^DD(130,"GL",200,30,242)=""
^DD(130,"GL",200,31,394)=""
^DD(130,"GL",200,32,220)=""
^DD(130,"GL",200,33,266)=""
^DD(130,"GL",200,34,395)=""
^DD(130,"GL",200,35,396)=""
^DD(130,"GL",200,36,208)=""
^DD(130,"GL",200,37,243)=""
^DD(130,"GL",200,38,328)=""
^DD(130,"GL",200,39,211)=""
^DD(130,"GL",200,40,206)=""
^DD(130,"GL",200,41,329)=""
^DD(130,"GL",200,42,330)=""
^DD(130,"GL",200,43,331)=""
^DD(130,"GL",200,44,245)=""
^DD(130,"GL",200,45,338)=""
^DD(130,"GL",200,46,218)=""
^DD(130,"GL",200,47,339)=""
^DD(130,"GL",200,48,215)=""
^DD(130,"GL",200,49,216)=""
^DD(130,"GL",200,50,217)=""
^DD(130,"GL",200,51,200)=""
^DD(130,"GL",200,52,214)=""
^DD(130,"GL",200,53,201)=""
^DD(130,"GL",200,54,340)=""
^DD(130,"GL",200.1,1,486)=""
^DD(130,"GL",200.1,2,492)=""
^DD(130,"GL",200.1,3,269)=""
^DD(130,"GL",200.1,4,443)=""
^DD(130,"GL",200.1,5,510)=""
^DD(130,"GL",200.1,6,446)=""
^DD(130,"GL",200.1,7,236.1)=""
^DD(130,"GL",201,1,270)=""
^DD(130,"GL",201,2,271)=""
^DD(130,"GL",201,3,273)=""
^DD(130,"GL",201,4,223)=""
^DD(130,"GL",201,5,224)=""
^DD(130,"GL",201,6,221)=""
^DD(130,"GL",201,7,222)=""
^DD(130,"GL",201,8,225)=""
^DD(130,"GL",201,9,228)=""
^DD(130,"GL",201,10,226)=""
^DD(130,"GL",201,11,227)=""
^DD(130,"GL",201,12,229)=""
^DD(130,"GL",201,13,230)=""
^DD(130,"GL",201,14,234)=""
^DD(130,"GL",201,15,231)=""
^DD(130,"GL",201,16,233)=""
^DD(130,"GL",201,17,232)=""
^DD(130,"GL",201,18,316)=""
^DD(130,"GL",201,19,315)=""
^DD(130,"GL",201,20,219)=""
^DD(130,"GL",201,21,457)=""
^DD(130,"GL",201,22,458)=""
^DD(130,"GL",201,23,459)=""
^DD(130,"GL",201,24,460)=""
^DD(130,"GL",201,25,461)=""
^DD(130,"GL",201,26,462)=""
^DD(130,"GL",201,27,487)=""
^DD(130,"GL",201,28,504)=""
^DD(130,"GL",202,1,304)=""
^DD(130,"GL",202,2,303)=""
^DD(130,"GL",202,3,302)=""
^DD(130,"GL",202,4,290)=""
^DD(130,"GL",202,5,291)=""
^DD(130,"GL",202,6,288)=""
^DD(130,"GL",202,7,289)=""
^DD(130,"GL",202,8,292)=""
^DD(130,"GL",202,9,295)=""
^DD(130,"GL",202,10,293)=""
^DD(130,"GL",202,11,294)=""
^DD(130,"GL",202,12,296)=""
^DD(130,"GL",202,13,297)=""
^DD(130,"GL",202,14,301)=""
^DD(130,"GL",202,15,298)=""
^DD(130,"GL",202,16,300)=""
^DD(130,"GL",202,17,299)=""
^DD(130,"GL",202,20,239)=""
^DD(130,"GL",202,21,457.1)=""
^DD(130,"GL",202,22,458.1)=""
^DD(130,"GL",202,23,459.1)=""
^DD(130,"GL",202,24,460.1)=""
^DD(130,"GL",202,25,461.1)=""
^DD(130,"GL",202,26,462.1)=""
^DD(130,"GL",202,27,487.1)=""
^DD(130,"GL",202.1,1,504.1)=""
^DD(130,"GL",203,1,274)=""
^DD(130,"GL",203,2,405)=""
^DD(130,"GL",203,3,275)=""
^DD(130,"GL",203,4,406)=""
^DD(130,"GL",203,5,276)=""
^DD(130,"GL",203,6,277)=""
^DD(130,"GL",203,7,278)=""
^DD(130,"GL",203,8,279)=""
^DD(130,"GL",203,9,280)=""
^DD(130,"GL",203,10,281)=""
^DD(130,"GL",203,11,282)=""
^DD(130,"GL",203,12,283)=""
^DD(130,"GL",203,13,455)=""
^DD(130,"GL",203,14,456)=""
^DD(130,"GL",203,15,444)=""
^DD(130,"GL",203,16,445)=""
^DD(130,"GL",204,1,305)=""
^DD(130,"GL",204,2,407)=""
^DD(130,"GL",204,3,306)=""
^DD(130,"GL",204,4,408)=""
^DD(130,"GL",204,5,307)=""
^DD(130,"GL",204,6,308)=""
^DD(130,"GL",204,7,309)=""
^DD(130,"GL",204,8,310)=""
^DD(130,"GL",204,9,311)=""
^DD(130,"GL",204,10,312)=""
^DD(130,"GL",204,11,313)=""
^DD(130,"GL",204,12,314)=""
^DD(130,"GL",204,13,455.1)=""
^DD(130,"GL",204,14,456.1)=""
^DD(130,"GL",204,15,444.1)=""
^DD(130,"GL",204,16,445.1)=""
^DD(130,"GL",205,1,247)=""
^DD(130,"GL",205,2,341)=""
^DD(130,"GL",205,3,342)=""
^DD(130,"GL",205,4,262)=""
^DD(130,"GL",205,5,403)=""
^DD(130,"GL",205,6,248)=""
^DD(130,"GL",205,7,249)=""
^DD(130,"GL",205,8,404)=""
^DD(130,"GL",205,9,318)=""
^DD(130,"GL",205,10,251)=""
^DD(130,"GL",205,11,412)=""
^DD(130,"GL",205,12,252)=""
^DD(130,"GL",205,13,285)=""
^DD(130,"GL",205,14,253)=""
^DD(130,"GL",205,15,319)=""
^DD(130,"GL",205,16,409)=""
^DD(130,"GL",205,17,254)=""
^DD(130,"GL",205,18,255)=""
^DD(130,"GL",205,19,286)=""
^DD(130,"GL",205,20,320)=""
^DD(130,"GL",205,21,256)=""
^DD(130,"GL",205,22,410)=""
^DD(130,"GL",205,23,287)=""
^DD(130,"GL",205,24,343)=""
^DD(130,"GL",205,25,321)=""
^DD(130,"GL",205,26,411)=""
^DD(130,"GL",205,27,258)=""
^DD(130,"GL",205,28,259)=""
^DD(130,"GL",205,29,344)=""
^DD(130,"GL",205,30,322)=""
^DD(130,"GL",205,31,345)=""
^DD(130,"GL",205,32,257)=""
^DD(130,"GL",205,33,261)=""
^DD(130,"GL",205,34,263)=""
^DD(130,"GL",205,35,250)=""
^DD(130,"GL",205,36,392)=""
^DD(130,"GL",205,37,488)=""
^DD(130,"GL",205,38,489)=""
^DD(130,"GL",205,39,447)=""
^DD(130,"GL",206,1,236)=""
^DD(130,"GL",206,2,237)=""
^DD(130,"GL",206,3,338.1)=""
^DD(130,"GL",206,4,338.2)=""
^DD(130,"GL",206,5,347)=""
^DD(130,"GL",206,6,209)=""
^DD(130,"GL",206,7,348)=""
^DD(130,"GL",206,8,218.1)=""
^DD(130,"GL",206,9,415)=""
^DD(130,"GL",206,10,349)=""
^DD(130,"GL",206,11,350)=""
^DD(130,"GL",206,13,351)=""
^DD(130,"GL",206,14,205)=""
^DD(130,"GL",206,15,352)=""
^DD(130,"GL",206,16,265)=""
^DD(130,"GL",206,17,264)=""
^DD(130,"GL",206,18,267)=""
^DD(130,"GL",206,19,207)=""
^DD(130,"GL",206,20,353)=""
^DD(130,"GL",206,21,354)=""
^DD(130,"GL",206,22,355)=""
^DD(130,"GL",206,23,356)=""
^DD(130,"GL",206,24,357)=""
^DD(130,"GL",206,25,358)=""
^DD(130,"GL",206,26,359)=""
^DD(130,"GL",206,27,360)=""
^DD(130,"GL",206,28,361)=""
^DD(130,"GL",206,29,362)=""
^DD(130,"GL",206,30,363)=""
^DD(130,"GL",206,31,364)=""
^DD(130,"GL",206,32,364.1)=""
^DD(130,"GL",206,33,362.1)=""
^DD(130,"GL",206,34,362.2)=""
^DD(130,"GL",206,35,362.3)=""
^DD(130,"GL",206,36,450)=""
^DD(130,"GL",206,37,451)=""
^DD(130,"GL",206,38,463)=""
^DD(130,"GL",206,39,466)=""
^DD(130,"GL",206,40,467)=""
^DD(130,"GL",206,41,472)=""
^DD(130,"GL",206,42,485)=""
^DD(130,"GL",206.1,1,430)=""
^DD(130,"GL",206.2,1,431)=""
^DD(130,"GL",207,1,365)=""
^DD(130,"GL",207,2,366)=""
^DD(130,"GL",207,3,367)=""
^DD(130,"GL",207,4,368)=""
^DD(130,"GL",207,5,369)=""
^DD(130,"GL",207,6,370)=""
^DD(130,"GL",207,7,371)=""
^DD(130,"GL",207,8,372)=""
^DD(130,"GL",207,9,373)=""
^DD(130,"GL",207,10,374)=""
^DD(130,"GL",207,11,375)=""
^DD(130,"GL",207,12,376)=""
^DD(130,"GL",207,13,380)=""
^DD(130,"GL",207,14,377)=""
^DD(130,"GL",207,15,381)=""
^DD(130,"GL",207,16,378)=""
^DD(130,"GL",207,17,382)=""
^DD(130,"GL",207,18,379)=""
^DD(130,"GL",207,19,383)=""
^DD(130,"GL",207,20,416)=""
^DD(130,"GL",207,21,440)=""
^DD(130,"GL",207,22,441)=""
^DD(130,"GL",207,23,439)=""
^DD(130,"GL",207,24,464)=""
^DD(130,"GL",207,25,465)=""
^DD(130,"GL",207,26,468)=""
^DD(130,"GL",207,27,469)=""
^DD(130,"GL",207.1,1,383.1)=""
^DD(130,"GL",207.1,2,505)=""
^DD(130,"GL",208,1,384)=""
^DD(130,"GL",208,2,385)=""
^DD(130,"GL",208,3,386)=""
^DD(130,"GL",208,4,387)=""
^DD(130,"GL",208,5,388)=""
^DD(130,"GL",208,6,389)=""
^DD(130,"GL",208,7,391)=""
^DD(130,"GL",208,8,390)=""
^DD(130,"GL",208,9,202.1)=""
^DD(130,"GL",208,10,417)=""
^DD(130,"GL",208,11,413)=""
^DD(130,"GL",208,12,414)=""
^DD(130,"GL",208,13,414.1)=""
^DD(130,"GL",208,14,418)=""
^DD(130,"GL",208,15,419)=""
^DD(130,"GL",208,16,420)=""
^DD(130,"GL",208,17,421)=""
^DD(130,"GL",208,18,442)=""
^DD(130,"GL",208,22,470)=""
^DD(130,"GL",208,23,471)=""
^DD(130,"GL",208.1,1,452)=""
^DD(130,"GL",208.1,2,453)=""
^DD(130,"GL",208.1,3,454)=""
^DD(130,"GL",209,1,473)=""
^DD(130,"GL",209,2,474)=""
^DD(130,"GL",209,3,475)=""
^DD(130,"GL",209,4,476)=""
^DD(130,"GL",209,5,477)=""
^DD(130,"GL",209,6,478)=""
^DD(130,"GL",209,7,479)=""
^DD(130,"GL",209,8,480)=""
^DD(130,"GL",209,9,481)=""
^DD(130,"GL",209,10,482)=""
^DD(130,"GL",209,11,483)=""
^DD(130,"GL",209,12,490)=""
^DD(130,"GL",209,13,502)=""
^DD(130,"GL",209,14,512)=""
^DD(130,"GL",209,15,513)=""
^DD(130,"GL",209,16,515)=""
^DD(130,"GL",209,17,516)=""
^DD(130,"GL",209.1,1,484)=""
^DD(130,"GL",209.2,1,491)=""
^DD(130,"GL",2005,0,2005)=""
^DD(130,"GL","1.0",1,1.01)=""
^DD(130,"GL","1.0",2,1.02)=""
^DD(130,"GL","1.0",3,1.03)=""
^DD(130,"GL","1.0",4,1.04)=""
^DD(130,"GL","1.0",5,1.035)=""
^DD(130,"GL","1.0",8,1.09)=""
^DD(130,"GL","1.0",9,1.052)=""
^DD(130,"GL","1.0",10,1.099)=""
^DD(130,"GL","1.0",11,1.098)=""
^DD(130,"GL","CON",1,35)=""
^DD(130,"GL","LOCK",1,24)=""
^DD(130,"GL","NON",1,118)=""
^DD(130,"GL","NON",2,119)=""
^DD(130,"GL","NON",3,120)=""
^DD(130,"GL","NON",4,121)=""
^DD(130,"GL","NON",5,122)=""
^DD(130,"GL","NON",6,123)=""
^DD(130,"GL","NON",7,124)=""
^DD(130,"GL","NON",8,125)=""
^DD(130,"GL","OP",1,26)=""
^DD(130,"GL","OP",2,27)=""
^DD(130,"GL","OP",4,29)=""
^DD(130,"GL","OPMOD",0,28)=""
^DD(130,"GL","PADX",0,27.5)=""
^DD(130,"GL","PFSS",1,500)=""
^DD(130,"GL","RA",1,235)=""
^DD(130,"GL","RA",2,284)=""
^DD(130,"GL","RA",3,393)=""
^DD(130,"GL","RA",4,260)=""
^DD(130,"GL","RA",5,272)=""
^DD(130,"GL","RA",6,323)=""
^DD(130,"GL","RA",7,102)=""
^DD(130,"GL","RA",8,260.1)=""
^DD(130,"GL","REQ",1,36)=""
^DD(130,"GL","SP",1,68)=""
^DD(130,"GL","TIU",1,1000)=""
^DD(130,"GL","TIU",2,1001)=""
^DD(130,"GL","TIU",3,1002)=""
^DD(130,"GL","TIU",4,1003)=""
^DD(130,"GL","TIU",5,1004)=""
^DD(130,"GL","TIU",6,1005)=""
^DD(130,"GL","TIU",7,1006)=""
^DD(130,"GL","VER",1,43)=""
^DD(130,"GL","VER",2,69)=""
^DD(130,"GL","VER",3,71)=""
^DD(130,"GL","VER",4,72)=""
^DD(130,"GL","VER",5,73)=""
^DD(130,"GL","VER",6,506)=""
^DD(130,"GL","VERD",3,75)=""
^DD(130,"GL","VERD",4,76)=""
^DD(130,"GL","VERD",5,77)=""
^DD(130,"IX",.01)=""
^DD(130,"IX",.011)=""
^DD(130,"IX",.015)=""
^DD(130,"IX",.016)=""
^DD(130,"IX",.017)=""
^DD(130,"IX",.018)=""
^DD(130,"IX",.019)=""
^DD(130,"IX",.02)=""
^DD(130,"IX",.021)=""
^DD(130,"IX",.022)=""
^DD(130,"IX",.023)=""
^DD(130,"IX",.024)=""
^DD(130,"IX",.026)=""
^DD(130,"IX",.035)=""
^DD(130,"IX",.04)=""
^DD(130,"IX",.09)=""
^DD(130,"IX",.14)=""
^DD(130,"IX",.164)=""
^DD(130,"IX",.205)=""
^DD(130,"IX",.21)=""
^DD(130,"IX",.232)=""
^DD(130,"IX",.31)=""
^DD(130,"IX",.43)=""
^DD(130,"IX",10)=""
^DD(130,"IX",11)=""
^DD(130,"IX",18)=""
^DD(130,"IX",24)=""
^DD(130,"IX",27)=""
^DD(130,"IX",32)=""
^DD(130,"IX",32.5)=""
^DD(130,"IX",33)=""
^DD(130,"IX",54)=""
^DD(130,"IX",66)=""
^DD(130,"IX",71)=""
^DD(130,"IX",72)=""
^DD(130,"IX",73)=""
^DD(130,"IX",118)=""
^DD(130,"IX",119)=""
^DD(130,"IX",120)=""
^DD(130,"IX",121)=""
^DD(130,"IX",122)=""
^DD(130,"IX",123)=""
^DD(130,"IX",124)=""
^DD(130,"IX",235)=""
^DD(130,"IX",236)=""
^DD(130,"IX",260)=""
^DD(130,"IX",260.1)=""
^DD(130,"IX",506)=""
^DD(130,"IX",901.1)=""
^DD(130,"IX",901.2)=""
^DD(130,"IX",905)=""
^DD(130,"RQ",.01)=""
^DD(130,"RQ",.04)=""
^DD(130,"RQ",.09)=""
^DD(130,"RQ",.14)=""
^DD(130,"RQ",26)=""
^DD(130,"RQ",120)=""
^DD(130,"RQ",123)=""
^DD(130,"RQ",125)=""
^DD(130,"SB",130.01,.47)=""
^DD(130,"SB",130.0126,126)=""
^DD(130,"SB",130.0129,129)=""
^DD(130,"SB",130.013,130)=""
^DD(130,"SB",130.02,.48)=""
^DD(130,"SB",130.02005,2005)=""
^DD(130,"SB",130.028,28)=""
^DD(130,"SB",130.03,23)=""
^DD(130,"SB",130.04,.27)=""
^DD(130,"SB",130.042,42)=""
^DD(130,"SB",130.049,49)=""
^DD(130,"SB",130.05,.28)=""
^DD(130,"SB",130.0508,508)=""
^DD(130,"SB",130.053,53)=""
^DD(130,"SB",130.055,55)=""
^DD(130,"SB",130.059,59)=""
^DD(130,"SB",130.06,.37)=""
^DD(130,"SB",130.064,64)=""
^DD(130,"SB",130.065,65)=""
^DD(130,"SB",130.07,.29)=""
^DD(130,"SB",130.08,.39)=""
^DD(130,"SB",130.082,82)=""
^DD(130,"SB",130.083,83)=""
^DD(130,"SB",130.084,84)=""
^DD(130,"SB",130.09,60)=""
^DD(130,"SB",130.0904,904)=""
^DD(130,"SB",130.1,1.2)=""
^DD(130,"SB",130.13,1.14)=""
^DD(130,"SB",130.14,1.05)=""
^DD(130,"SB",130.15,1.15)=""
^DD(130,"SB",130.16,.42)=""
^DD(130,"SB",130.17,.72)=""
^DD(130,"SB",130.18,.74)=""
^DD(130,"SB",130.213,.213)=""
^DD(130,"SB",130.22,1.16)=""
^DD(130,"SB",130.23,30)=""
^DD(130,"SB",130.24,31)=""
^DD(130,"SB",130.275,27.5)=""
^DD(130,"SB",130.28,.111)=""
^DD(130,"SB",130.31,.13)=""
^DD(130,"SB",130.32,.757)=""
^DD(130,"SB",130.33,.375)=""
^DD(130,"SB",130.3513,.3513)=""
^DD(130,"SB",130.36,.112)=""
^DD(130,"SB",130.41,.293)=""
^DD(130,"SB",130.43,1.145)=""
^DD(130,"SB",130.8,80)=""
^DD(130.01,0)="PROSTHESIS INSTALLED SUB-FIELD^NL^7^12"
^DD(130.01,0,"DT")="2920603"
^DD(130.01,0,"IX","AC",130.01,.01)=""
^DD(130.01,0,"NM","PROSTHESIS INSTALLED")=""
^DD(130.01,0,"UP")="130"
^DD(130.01,.01,0)="PROSTHESIS ITEM^*P131.9'^SRO(131.9,^0;1^S DIC(""S"")=""I '$P(^(0),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.01,.01,.1)="Name of Implanted Prosthetic Device"
^DD(130.01,.01,1,0)="^.1"
^DD(130.01,.01,1,1,0)="130.01^AC^MUMPS"
^DD(130.01,.01,1,1,1)="D PRO^SROXR4"
^DD(130.01,.01,1,1,2)="Q"
^DD(130.01,.01,1,1,"%D",0)="^^3^3^2930202^"
^DD(130.01,.01,1,1,"%D",1,0)="The AC cross reference on the PROSTHESIS ITEM field of the PROSTHESIS"
^DD(130.01,.01,1,1,"%D",2,0)="INSTALLED multiple stuffs the default information stored in the PROSTHESIS"
^DD(130.01,.01,1,1,"%D",3,0)="file (131.9)."
^DD(130.01,.01,3)="Enter the name of the implanted prosthetic device."
^DD(130.01,.01,12)="Screen prevents selection of inactive entries."
^DD(130.01,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,6)"""
^DD(130.01,.01,21,0)="^^4^4^2921026^^^^"
^DD(130.01,.01,21,1,0)="This is the name of the implanted prosthetic device required for"
^DD(130.01,.01,21,2,0)="this operative procedure.  If entered, this information appears"
^DD(130.01,.01,21,3,0)="on the Nurse Intraoperative Report."
^DD(130.01,.01,21,4,0)=" "
^DD(130.01,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.01,.01,"DT")="2920603"
^DD(130.01,1,0)="VENDOR^F^^0;2^K:$L(X)>64!($L(X)<2) X"
^DD(130.01,1,.1)="Manufacturer/Vendor"
^DD(130.01,1,3)="Your answer must be 2 to 64 characters in length."
^DD(130.01,1,21,0)="^^2^2^2901002^^^^"
^DD(130.01,1,21,1,0)="This is the name of the manufacturer of the implanted prosthetic device."
^DD(130.01,1,21,2,0)=" "
^DD(130.01,2,0)="MODEL^F^^0;3^K:$L(X)>64!($L(X)<2) X"
^DD(130.01,2,.1)="Model"
^DD(130.01,2,3)="Your answer must be 2 to 64 characters in length."
^DD(130.01,2,21,0)="^^2^2^2900709^^^^"
^DD(130.01,2,21,1,0)="This is the model of the implanted prosthetic device."
^DD(130.01,2,21,2,0)=" "
^DD(130.01,2.5,0)="LOT/SERIAL NO^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(130.01,2.5,.1)="Lot/Serial Number"
^DD(130.01,2.5,3)="Your answer must be 1 to 30 characters in length."
^DD(130.01,2.5,21,0)="^^2^2^2900709^^^^"
^DD(130.01,2.5,21,1,0)="This is the lot/serial number of the implanted prosthetic device."
^DD(130.01,2.5,21,2,0)=" "
^DD(130.01,2.5,"DT")="2840825"
^DD(130.01,3,0)="*STERILE CODE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(130.01,3,.1)="Sterilization Number"
^DD(130.01,3,3)="Your answer must be 1 to 30 characters in length."
^DD(130.01,3,21,0)="^^2^2^2930322^^^^"
^DD(130.01,3,21,1,0)="This is the sterilization number of the implanted device.  This field is"
^DD(130.01,3,21,2,0)="marked for deletion."
^DD(130.01,3,"DT")="2840825"
^DD(130.01,4,0)="*STERILE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(130.01,4,.1)="Sterilization Number"
^DD(130.01,4,3)="Your answer must be 1 to 30 characters in length."
^DD(130.01,4,21,0)="^^2^2^2930322^^^^"
^DD(130.01,4,21,1,0)="This is the sterilization number of the implanted prosthetic device."
^DD(130.01,4,21,2,0)="This field is marked for deletion."
^DD(130.01,4,"DT")="2930202"
^DD(130.01,5,0)="STERILE RESP^S^M:MANUFACTURER;SPD:SPD;SUR:SURGERY;^0;7^Q"
^DD(130.01,5,.1)="Who is Accountable for Sterilization"
^DD(130.01,5,3)="Enter the code corresponding to sterilization accountability."
^DD(130.01,5,21,0)="^^4^4^2901002^^^^"
^DD(130.01,5,21,1,0)="This is the code corresponding to the sterilization accountability."
^DD(130.01,5,21,2,0)="Although this information is optional, it may be useful in documentation"
^DD(130.01,5,21,3,0)="of this case."
^DD(130.01,5,21,4,0)=" "
^DD(130.01,5,"DT")="2840915"
^DD(130.01,6,0)="SIZE^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(130.01,6,.1)="Size"
^DD(130.01,6,3)="Your answer must be 1 to 30 characters in length."
^DD(130.01,6,21,0)="^^2^2^2900105^^^^"
^DD(130.01,6,21,1,0)="This is the size of the implanted prosthetic device."
^DD(130.01,6,21,2,0)=" "
^DD(130.01,6,"DT")="2870115"
^DD(130.01,7,0)="QUANTITY^NJ5,0^^1;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.01,7,.1)="Quantity"
^DD(130.01,7,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(130.01,7,21,0)="^^3^3^2901002^"
^DD(130.01,7,21,1,0)="This is the quantity of this prosthetic device used for this operative"
^DD(130.01,7,21,2,0)="procedure."
^DD(130.01,7,21,3,0)=" "
^DD(130.01,7,"DT")="2891114"
^DD(130.01,8,0)="IMPLANT STERILITY CHECKED^S^Y:YES;N:NO;^2;1^Q"
^DD(130.01,8,.1)="Implant Sterility Checked (Y/N)"
^DD(130.01,8,3)="Enter YES or NO, documenting whether implant sterility was checked."
^DD(130.01,8,21,0)="^^3^3^3060629^^"
^DD(130.01,8,21,1,0)="This field documents whether or not the implant sterility was checked."
^DD(130.01,8,21,2,0)="Your answer should be YES or NO.  This field is required for all"
^DD(130.01,8,21,3,0)="prosthesis items entered for a surgery case."
^DD(130.01,8,"DT")="3060629"
^DD(130.01,9,0)="STERILITY EXPIRATION DATE^DX^^2;2^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:D0),0),U,9),1,7) D EN3^SROVAR K:Y<1 X"
^DD(130.01,9,.1)="Sterility Expiration Date"
^DD(130.01,9,3)="Enter the sterility expiration date."
^DD(130.01,9,21,0)="^^3^3^3060821^"
^DD(130.01,9,21,1,0)="This field documents the sterility expiration date. This field is"
^DD(130.01,9,21,2,0)="required for all prosthesis items entered for a surgery case. "
^DD(130.01,9,21,3,0)="Expiration Date can not be prior to Date of Operation."
^DD(130.01,9,"DT")="3060821"
^DD(130.01,10,0)="RN VERIFIER^*P200'^VA(200,^2;3^S DIC(""S"")=""S RESTRICT=""""130.01,10"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(130.01,10,.1)="RN Verifier"
^DD(130.01,10,3)="Enter the name of the person that verified the sterility information."
^DD(130.01,10,12)="Entries in this field may be restricted based on already selected keys."
^DD(130.01,10,12.1)="S DIC(""S"")=""S RESTRICT=""""130.01,10"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.01,10,21,0)="^^3^3^3060818^"
^DD(130.01,10,21,1,0)="This is the name of the person that verified the sterility information. "
^DD(130.01,10,21,2,0)="This field may be restricted by locally determined keys so that only"
^DD(130.01,10,21,3,0)="people with the appropriate keys can be entered."
^DD(130.01,10,"DT")="3060818"
^DD(130.01,"B","*STERILE CODE",3)=""
^DD(130.01,"B","*STERILE NUMBER",4)=""
^DD(130.01,"B","IMPLANT STERILITY CHECKED",8)=""
^DD(130.01,"B","LOT/SERIAL NO",2.5)=""
^DD(130.01,"B","Lot/Serial Number",2.5)="1"
^DD(130.01,"B","MODEL",2)=""
^DD(130.01,"B","Manufacturer/Vendor",1)="1"
^DD(130.01,"B","Model",2)="1"
^DD(130.01,"B","PROSTHESIS ITEM",.01)=""
^DD(130.01,"B","QUANTITY",7)=""
^DD(130.01,"B","Quantity",7)="1"
^DD(130.01,"B","RN VERIFIER",10)=""
^DD(130.01,"B","RN Verifier",10)="1"
^DD(130.01,"B","SIZE",6)=""
^DD(130.01,"B","STERILE RESP",5)=""
^DD(130.01,"B","STERILITY EXPIRATION DATE",9)=""
^DD(130.01,"B","Size",6)="1"
^DD(130.01,"B","Sterility Expiration Date",9)="1"
^DD(130.01,"B","Sterilization Number",3)="1"
^DD(130.01,"B","Sterilization Number",4)="1"
^DD(130.01,"B","VENDOR",1)=""
^DD(130.01,"GL",0,1,.01)=""
^DD(130.01,"GL",0,2,1)=""
^DD(130.01,"GL",0,3,2)=""
^DD(130.01,"GL",0,4,3)=""
^DD(130.01,"GL",0,5,2.5)=""
^DD(130.01,"GL",0,6,4)=""
^DD(130.01,"GL",0,7,5)=""
^DD(130.01,"GL",1,1,6)=""
^DD(130.01,"GL",1,2,7)=""
^DD(130.01,"GL",2,1,8)=""
^DD(130.01,"GL",2,2,9)=""
^DD(130.01,"GL",2,3,10)=""
^DD(130.01,"IX",.01)=""
^DD(130.0126,0)="PROCEDURE OCCURRENCE SUB-FIELD^^5^6"
^DD(130.0126,0,"DT")="2941217"
^DD(130.0126,0,"IX","B",130.0126,.01)=""
^DD(130.0126,0,"NM","PROCEDURE OCCURRENCE")=""
^DD(130.0126,0,"UP")="130"
^DD(130.0126,.01,0)="PROCEDURE OCCURRENCE^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(130.0126,.01,.1)="Non-O.R. Procedure Occurrence"
^DD(130.0126,.01,1,0)="^.1"
^DD(130.0126,.01,1,1,0)="130.0126^B"
^DD(130.0126,.01,1,1,1)="S ^SRF(DA(1),43,""B"",$E(X,1,30),DA)="""""
^DD(130.0126,.01,1,1,2)="K ^SRF(DA(1),43,""B"",$E(X,1,30),DA)"
^DD(130.0126,.01,3)="Your answer must be 1-40 characters in length."
^DD(130.0126,.01,21,0)="^^4^4^2920824^"
^DD(130.0126,.01,21,1,0)="This is a occurrence that is related to a non-O.R. procedure.  If there"
^DD(130.0126,.01,21,2,0)="are not any non-O.R. procedure occurrences, this field should be left"
^DD(130.0126,.01,21,3,0)="blank.  Do not enter 'NO' or 'NONE'."
^DD(130.0126,.01,21,4,0)="  "
^DD(130.0126,.01,"DT")="2920824"
^DD(130.0126,1,0)="OUTCOME TO DATE^S^U:UNRESOLVED;I:IMPROVED;D:DEATH;W:WORSE;^0;2^Q"
^DD(130.0126,1,.1)="Outcome to Date"
^DD(130.0126,1,3)="Enter the outcome of this occurrence to date."
^DD(130.0126,1,21,0)="^^2^2^2920824^"
^DD(130.0126,1,21,1,0)="This is the outcome to date of this non-O.R. procedure occurrence."
^DD(130.0126,1,21,2,0)="  "
^DD(130.0126,1,"DT")="2920824"
^DD(130.0126,2,0)="DATE OCCURRENCE NOTED^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(130.0126,2,.1)="Date Occurrence was Noted"
^DD(130.0126,2,3)="Enter the date that this occurrence was noted."
^DD(130.0126,2,21,0)="^^3^3^2920824^"
^DD(130.0126,2,21,1,0)="This is the date that this occurrence was noted.  The time of day"
^DD(130.0126,2,21,2,0)="can be entered, but is not required."
^DD(130.0126,2,21,3,0)="  "
^DD(130.0126,2,"DT")="2920824"
^DD(130.0126,3,0)="TREATMENT INSTITUTED^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(130.0126,3,.1)="Treatment Instituted"
^DD(130.0126,3,3)="Your answer must be 1-40 characters in length."
^DD(130.0126,3,21,0)="^^3^3^2920824^"
^DD(130.0126,3,21,1,0)="This is the type of treatment instituted as a result of this non-O.R."
^DD(130.0126,3,21,2,0)="procedure occurrence."
^DD(130.0126,3,21,3,0)="  "
^DD(130.0126,3,"DT")="2920824"
^DD(130.0126,4,0)="OCCURRENCE COMMENTS^130.1264^^1;0"
^DD(130.0126,4,21,0)="^^3^3^2960619^^"
^DD(130.0126,4,21,1,0)="This is information that may be helpful in documentation of the"
^DD(130.0126,4,21,2,0)="non-O.R. procedure occurrence."
^DD(130.0126,4,21,3,0)="   "
^DD(130.0126,5,0)="OCCURRENCE CATEGORY^R*P136.5'^SRO(136.5,^0;5^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.0126,5,.1)="Occurrence Category"
^DD(130.0126,5,3)="Enter the category most closely related to this occurrence."
^DD(130.0126,5,12)="Screen prevents selection of inactive occurrence categories."
^DD(130.0126,5,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(130.0126,5,21,0)="^^3^3^2920824^"
^DD(130.0126,5,21,1,0)="This is the name of the category for which this occurrence will be"
^DD(130.0126,5,21,2,0)="grouped for Surgery Central Office reporting needs."
^DD(130.0126,5,21,3,0)="  "
^DD(130.0126,5,"DT")="2941217"
^DD(130.0126,"B","DATE OCCURRENCE NOTED",2)=""
^DD(130.0126,"B","Date Occurrence was Noted",2)="1"
^DD(130.0126,"B","Non-O.R. Procedure Occurrence",.01)="1"
^DD(130.0126,"B","OCCURRENCE CATEGORY",5)=""
^DD(130.0126,"B","OCCURRENCE COMMENTS",4)=""
^DD(130.0126,"B","OUTCOME TO DATE",1)=""
^DD(130.0126,"B","Occurrence Category",5)="1"
^DD(130.0126,"B","Outcome to Date",1)="1"
^DD(130.0126,"B","PROCEDURE OCCURRENCE",.01)=""
^DD(130.0126,"B","TREATMENT INSTITUTED",3)=""
^DD(130.0126,"B","Treatment Instituted",3)="1"
^DD(130.0126,"GL",0,1,.01)=""
^DD(130.0126,"GL",0,2,1)=""
^DD(130.0126,"GL",0,3,2)=""
^DD(130.0126,"GL",0,4,3)=""
^DD(130.0126,"GL",0,5,5)=""
^DD(130.0126,"GL",1,0,4)=""
^DD(130.0126,"IX",.01)=""
^DD(130.0126,"RQ",5)=""
^DD(130.0126,"SB",130.1264,4)=""
^DD(130.0129,0)="LASER UNIT SUB-FIELD^^5^6"
^DD(130.0129,0,"DT")="3010111"
^DD(130.0129,0,"IX","B",130.0129,.01)=""
^DD(130.0129,0,"NM","LASER UNIT")=""
^DD(130.0129,0,"UP")="130"
^DD(130.0129,.01,0)="LASER UNIT/ID^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(130.0129,.01,.1)="Laser Unit/ID"
^DD(130.0129,.01,1,0)="^.1"
^DD(130.0129,.01,1,1,0)="130.0129^B"
^DD(130.0129,.01,1,1,1)="S ^SRF(DA(1),44,""B"",$E(X,1,30),DA)="""""
^DD(130.0129,.01,1,1,2)="K ^SRF(DA(1),44,""B"",$E(X,1,30),DA)"
^DD(130.0129,.01,3)="Answer must be 1-30 characters in length."
^DD(130.0129,.01,21,0)="^.001^1^1^3001010^^^"
^DD(130.0129,.01,21,1,0)="This is the name or ID of the laser unit used during this procedure,"
^DD(130.0129,.01,"DT")="3000830"
^DD(130.0129,1,0)="LASER DURATION^NJ6,2^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(130.0129,1,.1)="Laser Duration"
^DD(130.0129,1,3)="Enter the time in minutes that the laser was used."
^DD(130.0129,1,21,0)="^^1^1^3010111^"
^DD(130.0129,1,21,1,0)="This is the duration in minutes that the laser unit was applied."
^DD(130.0129,1,"DT")="3010111"
^DD(130.0129,2,0)="WATTAGE^NJ8,2^^0;3^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(130.0129,2,.1)="Wattage"
^DD(130.0129,2,3)="Enter the watts (joules/second) used by the laser."
^DD(130.0129,2,21,0)="^^2^2^3010111^"
^DD(130.0129,2,21,1,0)="This is the number of watts (joules/sec) used by the laser during the"
^DD(130.0129,2,21,2,0)="procedure."
^DD(130.0129,2,"DT")="3010111"
^DD(130.0129,3,0)="LASER OPERATOR^P200'^VA(200,^0;4^Q"
^DD(130.0129,3,.1)="Laser Operator"
^DD(130.0129,3,3)="Enter the name of the authorized laser operator."
^DD(130.0129,3,21,0)="^^3^3^3010111^"
^DD(130.0129,3,21,1,0)="This is the authorized laser operator who operated this laser unit during"
^DD(130.0129,3,21,2,0)="this procedure. If the person cannot be entered in this field, enter the"
^DD(130.0129,3,21,3,0)="name in the LASER COMMENTS field (#5) for this laser unit."
^DD(130.0129,3,"DT")="3010111"
^DD(130.0129,4,0)="PLUME EVACUATOR^S^Y:YES;N:NO;^0;5^Q"
^DD(130.0129,4,.1)="Plume Evacuator"
^DD(130.0129,4,3)="Enter YES if smoke plume reduction measures were implemented."
^DD(130.0129,4,21,0)="^^1^1^3010111^"
^DD(130.0129,4,21,1,0)="This field determines if a plume evacuator was used with this laser unit."
^DD(130.0129,4,"DT")="3010111"
^DD(130.0129,5,0)="LASER COMMENTS^130.1295^^1;0"
^DD(130.0129,5,.1)="Laser Comments"
^DD(130.0129,5,21,0)="^^2^2^3010914^"
^DD(130.0129,5,21,1,0)="This word-processing field contains comments about the use of this laser"
^DD(130.0129,5,21,2,0)="unit during this procedure."
^DD(130.0129,"B","LASER COMMENTS",5)=""
^DD(130.0129,"B","LASER DURATION",1)=""
^DD(130.0129,"B","LASER OPERATOR",3)=""
^DD(130.0129,"B","LASER UNIT/ID",.01)=""
^DD(130.0129,"B","Laser Comments",5)="1"
^DD(130.0129,"B","Laser Duration",1)="1"
^DD(130.0129,"B","Laser Operator",3)="1"
^DD(130.0129,"B","Laser Unit/ID",.01)="1"
^DD(130.0129,"B","PLUME EVACUATOR",4)=""
^DD(130.0129,"B","Plume Evacuator",4)="1"
^DD(130.0129,"B","WATTAGE",2)=""
^DD(130.0129,"B","Wattage",2)="1"
^DD(130.0129,"GL",0,1,.01)=""
^DD(130.0129,"GL",0,2,1)=""
^DD(130.0129,"GL",0,3,2)=""
^DD(130.0129,"GL",0,4,3)=""
^DD(130.0129,"GL",0,5,4)=""
^DD(130.0129,"GL",1,0,5)=""
^DD(130.0129,"IX",.01)=""
^DD(130.0129,"SB",130.1295,5)=""
^DD(130.013,0)="CELL SAVER SUB-FIELD^^5^6"
^DD(130.013,0,"DT")="3001010"
^DD(130.013,0,"IX","B",130.013,.01)=""
^DD(130.013,0,"NM","CELL SAVER")=""
^DD(130.013,0,"UP")="130"
^DD(130.013,.01,0)="CELL SAVER ID^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(130.013,.01,.1)="Cell Saver ID"
^DD(130.013,.01,1,0)="^.1"
^DD(130.013,.01,1,1,0)="130.013^B"
^DD(130.013,.01,1,1,1)="S ^SRF(DA(1),45,""B"",$E(X,1,30),DA)="""""
^DD(130.013,.01,1,1,2)="K ^SRF(DA(1),45,""B"",$E(X,1,30),DA)"
^DD(130.013,.01,3)="Enter machine identification name and/or number."
^DD(130.013,.01,21,0)="^.001^1^1^3001010^^^"
^DD(130.013,.01,21,1,0)="This field identifies the cell saver that was used during this procedure."
^DD(130.013,.01,"DT")="3000901"
^DD(130.013,1,0)="CELL SAVER OPERATOR^P200'^VA(200,^0;2^Q"
^DD(130.013,1,.1)="Cell Saver Operator"
^DD(130.013,1,3)="Enter the name of the authorized cell saver operator."
^DD(130.013,1,21,0)="^^3^3^3020705^"
^DD(130.013,1,21,1,0)="This is the authorized cell saver operator during this procedure.  If"
^DD(130.013,1,21,2,0)="the person cannot be entered in this field, enter the name in the CELL"
^DD(130.013,1,21,3,0)="SAVER COMMENTS field (#5) for this cell saver."
^DD(130.013,1,"DT")="3020705"
^DD(130.013,2,0)="AMT SALVAGED (ML)^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.013,2,.1)="Amount Salvaged (ml)"
^DD(130.013,2,3)="Enter the total amount in milliliters of fluid collected."
^DD(130.013,2,21,0)="^^1^1^3001010^"
^DD(130.013,2,21,1,0)="This is the amount of fluid in milliliters collected during the procedure."
^DD(130.013,2,"DT")="3001010"
^DD(130.013,3,0)="AMT REINFUSED (ML)^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.013,3,.1)="Amount Reinfused (ml)"
^DD(130.013,3,3)="Enter the total amount in milliliters of fluid reinfused."
^DD(130.013,3,21,0)="^^2^2^3001010^"
^DD(130.013,3,21,1,0)="This is the amount of fluid in milliliters that was reinfused into the"
^DD(130.013,3,21,2,0)="patient during this procedure."
^DD(130.013,3,"DT")="3001010"
^DD(130.013,4,0)="DISPOSABLES USED^130.0134A^^1;0"
^DD(130.013,4,21,0)="^.001^2^2^3001010^^"
^DD(130.013,4,21,1,0)="These are the disposable items used with this cell saver during this"
^DD(130.013,4,21,2,0)="procedure."
^DD(130.013,5,0)="CELL SAVER COMMENTS^130.0135^^2;0"
^DD(130.013,5,.1)="Cell Saver Comments"
^DD(130.013,5,21,0)="^^2^2^3020226^"
^DD(130.013,5,21,1,0)="These comments contain additional information related to the use of this"
^DD(130.013,5,21,2,0)="cell saver during this procedure."
^DD(130.013,"B","AMT REINFUSED (ML)",3)=""
^DD(130.013,"B","AMT SALVAGED (ML)",2)=""
^DD(130.013,"B","Amount Reinfused (ml)",3)="1"
^DD(130.013,"B","Amount Salvaged (ml)",2)="1"
^DD(130.013,"B","CELL SAVER COMMENTS",5)=""
^DD(130.013,"B","CELL SAVER ID",.01)=""
^DD(130.013,"B","CELL SAVER OPERATOR",1)=""
^DD(130.013,"B","Cell Saver Comments",5)="1"
^DD(130.013,"B","Cell Saver ID",.01)="1"
^DD(130.013,"B","Cell Saver Operator",1)="1"
^DD(130.013,"B","DISPOSABLES USED",4)=""
^DD(130.013,"GL",0,1,.01)=""
^DD(130.013,"GL",0,2,1)=""
^DD(130.013,"GL",0,3,2)=""
^DD(130.013,"GL",0,4,3)=""
^DD(130.013,"GL",1,0,4)=""
^DD(130.013,"GL",2,0,5)=""
^DD(130.013,"IX",.01)=""
^DD(130.013,"SB",130.0134,4)=""
^DD(130.013,"SB",130.0135,5)=""
^DD(130.0134,0)="DISPOSABLES USED SUB-FIELD^^2^3"
^DD(130.0134,0,"DT")="3001010"
^DD(130.0134,0,"IX","B",130.0134,.01)=""
^DD(130.0134,0,"NM","DISPOSABLES USED")=""
^DD(130.0134,0,"UP")="130.013"
^DD(130.0134,.01,0)="DISPOSABLES NAME^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(130.0134,.01,.1)="Disposables Name"
^DD(130.0134,.01,1,0)="^.1"
^DD(130.0134,.01,1,1,0)="130.0134^B"
^DD(130.0134,.01,1,1,1)="S ^SRF(DA(2),45,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(130.0134,.01,1,1,2)="K ^SRF(DA(2),45,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(130.0134,.01,3)="Enter the name of the disposable product used with this cell saver."
^DD(130.0134,.01,21,0)="^^2^2^3001010^"
^DD(130.0134,.01,21,1,0)="This is the name of the disposable product used with this cell saver"
^DD(130.0134,.01,21,2,0)="during this procedure."
^DD(130.0134,.01,"DT")="3000901"
^DD(130.0134,1,0)="LOT NUMBER^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(130.0134,1,.1)="Lot Number"
^DD(130.0134,1,3)="Enter the product lot number for this disposable product."
^DD(130.0134,1,21,0)="^.001^1^1^3001010^^^"
^DD(130.0134,1,21,1,0)="This is the lot number for this disposable used with the cell saver."
^DD(130.0134,1,"DT")="3000901"
^DD(130.0134,2,0)="QUANTITY^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.0134,2,.1)="Quantity"
^DD(130.0134,2,3)="Enter the number of products with the same name and lot number used."
^DD(130.0134,2,21,0)="^^2^2^3001010^"
^DD(130.0134,2,21,1,0)="This is the quantity of disposable products with the same name and lot"
^DD(130.0134,2,21,2,0)="number used with this cell saver during this procedure."
^DD(130.0134,2,"DT")="3001010"
^DD(130.0134,"B","DISPOSABLES NAME",.01)=""
^DD(130.0134,"B","Disposables Name",.01)="1"
^DD(130.0134,"B","LOT NUMBER",1)=""
^DD(130.0134,"B","Lot Number",1)="1"
^DD(130.0134,"B","QUANTITY",2)=""
^DD(130.0134,"B","Quantity",2)="1"
^DD(130.0134,"GL",0,1,.01)=""
^DD(130.0134,"GL",0,2,1)=""
^DD(130.0134,"GL",0,3,2)=""
^DD(130.0134,"IX",.01)=""
^DD(130.0135,0)="CELL SAVER COMMENTS SUB-FIELD^^.01^1"
^DD(130.0135,0,"DT")="3000905"
^DD(130.0135,0,"NM","CELL SAVER COMMENTS")=""
^DD(130.0135,0,"UP")="130.013"
^DD(130.0135,.01,0)="CELL SAVER COMMENTS^W^^0;1^Q"
^DD(130.0135,.01,.1)="Cell Saver Comments"
^DD(130.0135,.01,3)="Enter additional information about the use of this cell saver."
^DD(130.0135,.01,21,0)="^.001^2^2^3010914^^"
^DD(130.0135,.01,21,1,0)="These comments contain additional information related to the use of this"
^DD(130.0135,.01,21,2,0)="cell saver used during this procedure."
^DD(130.0135,.01,"DT")="3010914"
^DD(130.0135,"B","CELL SAVER COMMENTS",.01)=""
^DD(130.0135,"B","Cell Saver Comments",.01)="1"
^DD(130.0135,"GL",0,1,.01)=""
^DD(130.02,0)="TIME TOURNIQUET APPLIED SUB-FIELD^NL^4^5"
^DD(130.02,0,"DT")="2920204"
^DD(130.02,0,"NM","TIME TOURNIQUET APPLIED")=""
^DD(130.02,0,"UP")="130"
^DD(130.02,.01,0)="TIME TOURNIQUET APPLIED^DX^^0;1^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(1)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.02,.01,.1)="Date/Time Tourniquet Applied"
^DD(130.02,.01,3)="Enter the date/time that the tourniquet was applied."
^DD(130.02,.01,7.5)="S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(1)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""RTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.02,.01,21,0)="^^3^3^2921106^^^^"
^DD(130.02,.01,21,1,0)="This is the date and time that the tourniquet was applied.  If entered,"
^DD(130.02,.01,21,2,0)="this information will appear on the Nurse Intraoperative Report."
^DD(130.02,.01,21,3,0)=" "
^DD(130.02,.01,22)=""
^DD(130.02,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.02,.01,"DT")="2931208"
^DD(130.02,1,0)="SITE APPLIED^S^RL:RIGHT UPPER LEG;RA:RIGHT UPPER ARM;LG:LEFT UPPER LEG;LA:LEFT UPPER ARM;AR:RIGHT ANKLE;AL:LEFT ANKLE;RW:RIGHT LOWER ARM;LW:LEFT LOWER ARM;O:OTHER;^0;2^Q"
^DD(130.02,1,.1)="Site Applied"
^DD(130.02,1,3)="Enter the code corresponding to the site wherein the tourniquet is applied."
^DD(130.02,1,21,0)="^^3^3^2900709^^"
^DD(130.02,1,21,1,0)="This is the code corresponding to the location on the body where"
^DD(130.02,1,21,2,0)="the tourniquet is applied."
^DD(130.02,1,21,3,0)=" "
^DD(130.02,1,"DT")="3020621"
^DD(130.02,2,0)="TOURNIQUET APPL. BY^*P200'^VA(200,^0;3^S DIC(""S"")=""S RESTRICT=""""130.02,2"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.02,2,.1)="Person Applying the Tourniquet"
^DD(130.02,2,3)="Enter the name of the person who applied the tourniquet cuff."
^DD(130.02,2,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.02,2,12.1)="S DIC(""S"")=""S RESTRICT=""""130.02,2"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.02,2,21,0)="^^4^4^2900105^"
^DD(130.02,2,21,1,0)="This is the person responsible for the application of the tourniquet"
^DD(130.02,2,21,2,0)="cuff at this time.  Although optional, this information may be useful"
^DD(130.02,2,21,3,0)="in documentation of this case."
^DD(130.02,2,21,4,0)=" "
^DD(130.02,2,"DT")="2920204"
^DD(130.02,3,0)="TIME TOURNIQUET REL.^DX^^0;4^S SRSUB=2,SRP=1 D OFF1^SROVAR S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.02,3,.1)="Date/Time Tourniquet Released"
^DD(130.02,3,3)="Enter the date/time that the pressure on the tourniquet cuff is released"
^DD(130.02,3,21,0)="^^4^4^2900105^^^"
^DD(130.02,3,21,1,0)="This is the date and time that the tourniquet was released.  Times"
^DD(130.02,3,21,2,0)="entered without a date will be converted to the date of operation"
^DD(130.02,3,21,3,0)="at that time."
^DD(130.02,3,21,4,0)=" "
^DD(130.02,3,"DT")="2930601"
^DD(130.02,4,0)="PRESSURE^F^^0;5^K:$L(X)>12!($L(X)<1) X"
^DD(130.02,4,.1)="Pressure Applied (in TORR)"
^DD(130.02,4,3)="Enter the pressure (in TORR) applied to the cuff.  Your answer must be 1 to 12 characters in length."
^DD(130.02,4,21,0)="^^4^4^2900709^^^"
^DD(130.02,4,21,1,0)="This is the amount of pressure (in TORR) applied to the cuff.  This "
^DD(130.02,4,21,2,0)="information is optional, but may be useful in documentation of the"
^DD(130.02,4,21,3,0)="case."
^DD(130.02,4,21,4,0)=" "
^DD(130.02,4,"DT")="2840825"
^DD(130.02,"B","Date/Time Tourniquet Applied",.01)="1"
^DD(130.02,"B","Date/Time Tourniquet Released",3)="1"
^DD(130.02,"B","PRESSURE",4)=""
^DD(130.02,"B","Person Applying the Tourniquet",2)="1"
^DD(130.02,"B","Pressure Applied (in TORR)",4)="1"
^DD(130.02,"B","SITE APPLIED",1)=""
^DD(130.02,"B","Site Applied",1)="1"
^DD(130.02,"B","TIME TOURNIQUET APPLIED",.01)=""
^DD(130.02,"B","TIME TOURNIQUET REL.",3)=""
^DD(130.02,"B","TOURNIQUET APPL. BY",2)=""
^DD(130.02,"GL",0,1,.01)=""
^DD(130.02,"GL",0,2,1)=""
^DD(130.02,"GL",0,3,2)=""
^DD(130.02,"GL",0,4,3)=""
^DD(130.02,"GL",0,5,4)=""
^DD(130.02005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(130.02005,0,"DT")="2970417"
^DD(130.02005,0,"IX","B",130.02005,.01)=""
^DD(130.02005,0,"NM","IMAGE")=""
^DD(130.02005,0,"UP")="130"
^DD(130.02005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(130.02005,.01,.1)="Image"
^DD(130.02005,.01,1,0)="^.1"
^DD(130.02005,.01,1,1,0)="130.02005^B"
^DD(130.02005,.01,1,1,1)="S ^SRF(DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(130.02005,.01,1,1,2)="K ^SRF(DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(130.02005,.01,3)="This is the image stored in the IMAGE file (#2005)."
^DD(130.02005,.01,21,0)="^^2^2^2970915^"
^DD(130.02005,.01,21,1,0)="This field identifies an image in the IMAGE file (#2005) that is related"
^DD(130.02005,.01,21,2,0)="to this case."
^DD(130.02005,.01,"DT")="2970417"
^DD(130.02005,"B","IMAGE",.01)=""
^DD(130.02005,"B","Image",.01)="1"
^DD(130.02005,"GL",0,1,.01)=""
^DD(130.02005,"IX",.01)=""
^DD(130.028,0)="PRIN. PROCEDURE CPT MODIFIER SUB-FIELD^^.01^1"
^DD(130.028,0,"DT")="2990302"
^DD(130.028,0,"NM","PRIN. PROCEDURE CPT MODIFIER")=""
^DD(130.028,0,"UP")="130"
^DD(130.028,.01,0)="PRIN. PROCEDURE CPT MODIFIER^M*P81.3'XO^DIC(81.3,^0;1^S DIC(""S"")=""I $$SCR27^SROMOD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.028,.01,.1)="Principal Procedure CPT Modifier"
^DD(130.028,.01,1,0)="^.1^^0"
^DD(130.028,.01,2)="S Y(0)=Y D DISPLAY^SROMOD"
^DD(130.028,.01,2.1)="D DISPLAY^SROMOD"
^DD(130.028,.01,3)="Enter a CPT Modifier for this procedure."
^DD(130.028,.01,12)="Screen prevents selection of modifier inappropriate for CPT code."
^DD(130.028,.01,12.1)="S DIC(""S"")=""I $$SCR27^SROMOD"""
^DD(130.028,.01,21,0)="^^3^3^2990804^^^^"
^DD(130.028,.01,21,1,0)="This is a procedural coding modifier used to indicate that the principal"
^DD(130.028,.01,21,2,0)="procedure performed has been altered by some specific circumstance but not"
^DD(130.028,.01,21,3,0)="changed in its definition or code."
^DD(130.028,.01,"DT")="3021122"
^DD(130.028,"B","PRIN. PROCEDURE CPT MODIFIER",.01)=""
^DD(130.028,"GL",0,1,.01)=""
^DD(130.03,0)="REFERRING PHYSICIAN SUB-FIELD^^6^7"
^DD(130.03,0,"DT")="2930511"
^DD(130.03,0,"IX","B",130.03,.01)=""
^DD(130.03,0,"NM","REFERRING PHYSICIAN")=""
^DD(130.03,0,"UP")="130"
^DD(130.03,.01,0)="REFERRING PHYSICIAN^FX^^0;1^D REFPHY^SROWL K:$L(X)>50!($L(X)<1) X"
^DD(130.03,.01,.1)="Referring Physician/Medical Center"
^DD(130.03,.01,1,0)="^.1"
^DD(130.03,.01,1,1,0)="130.03^B"
^DD(130.03,.01,1,1,1)="S ^SRF(DA(1),18,""B"",$E(X,1,30),DA)="""""
^DD(130.03,.01,1,1,2)="K ^SRF(DA(1),18,""B"",$E(X,1,30),DA)"
^DD(130.03,.01,3)="Enter the name of the referring physician.  Your answer must be 1 to 50 characters long."
^DD(130.03,.01,4)=""
^DD(130.03,.01,21,0)="^.001^3^3^3030902^^^^"
^DD(130.03,.01,21,1,0)="This is the name of the referring physician, or medical center.  Although"
^DD(130.03,.01,21,2,0)="optional, this information may be useful in documentation of this case."
^DD(130.03,.01,21,3,0)=" "
^DD(130.03,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.03,.01,"DT")="3031117"
^DD(130.03,1,0)="STREET ADDRESS^F^^0;2^K:$L(X)>75!($L(X)<1) X"
^DD(130.03,1,.1)="Street Address"
^DD(130.03,1,3)="Your answer must be 1 to 75 characters in length."
^DD(130.03,1,21,0)="^^1^1^2900111^^"
^DD(130.03,1,21,1,0)="This is the street address of the referring physician."
^DD(130.03,1,"DT")="2870812"
^DD(130.03,2,0)="CITY^F^^0;3^K:$L(X)>45!($L(X)<1) X"
^DD(130.03,2,.1)="City"
^DD(130.03,2,3)="Your answer must be 1 to 45 characters in length."
^DD(130.03,2,21,0)="^^1^1^2900111^^"
^DD(130.03,2,21,1,0)="This is the city of the referring physician."
^DD(130.03,2,"DT")="2870812"
^DD(130.03,3,0)="STATE^P5'^DIC(5,^0;4^Q"
^DD(130.03,3,.1)="State"
^DD(130.03,3,3)="Enter the state of the referring physician."
^DD(130.03,3,21,0)="^^2^2^2900111^"
^DD(130.03,3,21,1,0)="This is the state of the referring physician."
^DD(130.03,3,21,2,0)=" "
^DD(130.03,3,"DT")="2870812"
^DD(130.03,4,0)="ZIP CODE^F^^0;5^K:$L(X)>10!($L(X)<5)!'(X?.N) X"
^DD(130.03,4,.1)="Zip Code"
^DD(130.03,4,3)="Your answer must be 5-10 characters in length."
^DD(130.03,4,21,0)="^^2^2^2900111^^"
^DD(130.03,4,21,1,0)="This is the zip code of the referring physician."
^DD(130.03,4,21,2,0)=" "
^DD(130.03,4,"DT")="2930511"
^DD(130.03,5,0)="PHONE NUMBER^F^^0;6^K:$L(X)>14!($L(X)<1) X"
^DD(130.03,5,.1)="Phone Number"
^DD(130.03,5,3)="Your answer must be 1 to 14 characters in length."
^DD(130.03,5,21,0)="^^2^2^2900111^^"
^DD(130.03,5,21,1,0)="This is the referring physician's telephone number."
^DD(130.03,5,21,2,0)=" "
^DD(130.03,5,"DT")="2870812"
^DD(130.03,6,0)="REF PHY 200 LINK^P200'^VA(200,^0;7^Q"
^DD(130.03,6,.1)="Pointer To NEW PERSON File (#200)"
^DD(130.03,6,3)="The VA record number of the Referring Physician."
^DD(130.03,6,21,0)="^.001^3^3^3030904^^^^"
^DD(130.03,6,21,1,0)="Field (not accessed by the user) is a pointer to the NEW PERSON file. It "
^DD(130.03,6,21,2,0)="is  populated when a Referring Physician is selected from the NEW PERSON "
^DD(130.03,6,21,3,0)="file with the record number from NEW PERSON file."
^DD(130.03,6,23,0)="^.001^3^3^3030904^^^^"
^DD(130.03,6,23,1,0)="Pointer Field (not accessed by the user) to the NEW PERSON file. It will "
^DD(130.03,6,23,2,0)="be populated when and if the Referring Physician is selected from the NEW "
^DD(130.03,6,23,3,0)="PERSON file (#200)."
^DD(130.03,6,"DT")="3030904"
^DD(130.03,"B","CITY",2)=""
^DD(130.03,"B","City",2)="1"
^DD(130.03,"B","PHONE NUMBER",5)=""
^DD(130.03,"B","Phone Number",5)="1"
^DD(130.03,"B","REF PHY 200 LINK",6)=""
^DD(130.03,"B","REFERRING PHYSICIAN",.01)=""
^DD(130.03,"B","STATE",3)=""
^DD(130.03,"B","STREET ADDRESS",1)=""
^DD(130.03,"B","State",3)="1"
^DD(130.03,"B","Street Address",1)="1"
^DD(130.03,"B","ZIP CODE",4)=""
^DD(130.03,"B","Zip Code",4)="1"
^DD(130.03,"GL",0,1,.01)=""
^DD(130.03,"GL",0,2,1)=""
^DD(130.03,"GL",0,3,2)=""
^DD(130.03,"GL",0,4,3)=""
^DD(130.03,"GL",0,5,4)=""
^DD(130.03,"GL",0,6,5)=""
^DD(130.03,"GL",0,7,6)=""
^DD(130.03,"IX",.01)=""
^DD(130.04,0)="REPLACEMENT FLUID TYPE SUB-FIELD^NL^5^5"
^DD(130.04,0,"DT")="2920603"
^DD(130.04,0,"NM","REPLACEMENT FLUID TYPE")=""
^DD(130.04,0,"UP")="130"
^DD(130.04,.01,0)="REPLACEMENT FLUID TYPE^*P133.7'^SRO(133.7,^0;1^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.04,.01,.1)="Replacement Fluid Type"
^DD(130.04,.01,3)="Enter the type of fluid given intravascularly during the operative period."
^DD(130.04,.01,12)="Screen prevents selection of inactive entries."
^DD(130.04,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(130.04,.01,21,0)="^^7^7^2900705^^^^"
^DD(130.04,.01,21,1,0)="This is the type of replacement fluid given intravascularly during the"
^DD(130.04,.01,21,2,0)="operative procedure."
^DD(130.04,.01,21,3,0)=" "
^DD(130.04,.01,21,4,0)="Each unique blood product should be entered separately.  This field is"
^DD(130.04,.01,21,5,0)="considered optional, but is a significant element of the Nurse's "
^DD(130.04,.01,21,6,0)="Intraoperative Report.  The definition of this field may vary according"
^DD(130.04,.01,21,7,0)="to local policy."
^DD(130.04,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.04,.01,"DT")="2920603"
^DD(130.04,1,0)="QTY OF FLUID (ml)^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.04,1,.1)="Quantity of Fluid (ml)"
^DD(130.04,1,3)="Enter a whole number between 0 and 100000."
^DD(130.04,1,21,0)="^^3^3^2900105^"
^DD(130.04,1,21,1,0)="This is the number of milliliters of replacement fluid given to the"
^DD(130.04,1,21,2,0)="patient intravascularly during the operative procedure."
^DD(130.04,1,21,3,0)=" "
^DD(130.04,3,0)="SOURCE ID^F^^0;4^K:$L(X)>30!($L(X)<2) X"
^DD(130.04,3,.1)="Source Identification Number"
^DD(130.04,3,3)="Enter the number or unique identification provided by the supplier, 2 to 30 characters."
^DD(130.04,3,21,0)="^^4^4^2900705^^"
^DD(130.04,3,21,1,0)="This is the unique identification number or code provided by the"
^DD(130.04,3,21,2,0)="supplier of this replacement fluid.  Although optional, this "
^DD(130.04,3,21,3,0)="information may be useful in documentation of this case."
^DD(130.04,3,21,4,0)=" "
^DD(130.04,3,"DT")="2840421"
^DD(130.04,4,0)="VA IDENT^F^^0;5^K:$L(X)>30!($L(X)<2) X"
^DD(130.04,4,.1)="VA Identification"
^DD(130.04,4,3)="Answer must be 2 to 30 characters in length."
^DD(130.04,4,21,0)="^^2^2^2900705^^^^"
^DD(130.04,4,21,1,0)="This is the unique identification characters assigned by the local"
^DD(130.04,4,21,2,0)="blood bank for type specific blood components."
^DD(130.04,4,"DT")="2840421"
^DD(130.04,5,0)="REPLACEMENT FLUID COMMENTS^130.12^^1;0"
^DD(130.04,5,.1)="Replacement Fluid Comments"
^DD(130.04,5,21,0)="^^3^3^2921106^^^^"
^DD(130.04,5,21,1,0)="These are comments related to this specific fluid type.  This"
^DD(130.04,5,21,2,0)="information will be used in documentation of the case."
^DD(130.04,5,21,3,0)=" "
^DD(130.04,"B","QTY OF FLUID (ml)",1)=""
^DD(130.04,"B","Quantity of Fluid (ml)",1)="1"
^DD(130.04,"B","REPLACEMENT FLUID COMMENTS",5)=""
^DD(130.04,"B","REPLACEMENT FLUID TYPE",.01)=""
^DD(130.04,"B","Replacement Fluid Comments",5)="1"
^DD(130.04,"B","Replacement Fluid Type",.01)="1"
^DD(130.04,"B","SOURCE ID",3)=""
^DD(130.04,"B","Source Identification Number",3)="1"
^DD(130.04,"B","VA IDENT",4)=""
^DD(130.04,"B","VA Identification",4)="1"
^DD(130.04,"GL",0,1,.01)=""
^DD(130.04,"GL",0,2,1)=""
^DD(130.04,"GL",0,4,3)=""
^DD(130.04,"GL",0,5,4)=""
^DD(130.04,"GL",1,0,5)=""
^DD(130.04,"SB",130.12,5)=""
^DD(130.042,0)="DELAY CAUSE SUB-FIELD^^2^3"
^DD(130.042,0,"DT")="2920603"
^DD(130.042,0,"IX","B",130.042,.01)=""
^DD(130.042,0,"NM","DELAY CAUSE")=""
^DD(130.042,0,"UP")="130"
^DD(130.042,.01,0)="DELAY CAUSE^*P132.4'^SRO(132.4,^0;1^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.042,.01,.1)="Delay Reason"
^DD(130.042,.01,1,0)="^.1"
^DD(130.042,.01,1,1,0)="130.042^B"
^DD(130.042,.01,1,1,1)="S ^SRF(DA(1),17,""B"",$E(X,1,30),DA)="""""
^DD(130.042,.01,1,1,2)="K ^SRF(DA(1),17,""B"",$E(X,1,30),DA)"
^DD(130.042,.01,3)="Enter reason the operative procedure did not begin at the scheduled time."
^DD(130.042,.01,12)="Screen prevents selection of inactive entries."
^DD(130.042,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(130.042,.01,21,0)="^^3^3^2921026^^^^"
^DD(130.042,.01,21,1,0)="This is the reason why the operative procedure did not begin at"
^DD(130.042,.01,21,2,0)="the scheduled start time."
^DD(130.042,.01,21,3,0)=" "
^DD(130.042,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.042,.01,"DT")="2920603"
^DD(130.042,1,0)="DELAY TIME^NJ3,0O^^0;2^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.042,1,.1)="Delay Time"
^DD(130.042,1,2)="S Y(0)=Y S Y=Y_"" MINUTES"""
^DD(130.042,1,2.1)="S Y=Y_"" MINUTES"""
^DD(130.042,1,3)="Enter the number of minutes (1-600) that this case was delayed."
^DD(130.042,1,21,0)="^^4^4^2921026^^^^"
^DD(130.042,1,21,1,0)="This is the number of minutes (1-600) that this case was delayed due"
^DD(130.042,1,21,2,0)="to this cause.  Although optional, this information will appear on the"
^DD(130.042,1,21,3,0)="Report of Delayed Operations."
^DD(130.042,1,21,4,0)=" "
^DD(130.042,1,"DT")="2880819"
^DD(130.042,2,0)="DELAY COMMENTS^130.422^^1;0"
^DD(130.042,2,21,0)="^^2^2^2921026^^"
^DD(130.042,2,21,1,0)="This contains comments related to the delay cause."
^DD(130.042,2,21,2,0)=" "
^DD(130.042,2,23,0)="^^3^3^2920129^^"
^DD(130.042,2,23,1,0)="This is a word processing type field containing comments related"
^DD(130.042,2,23,2,0)="to the delay cause."
^DD(130.042,2,23,3,0)=" "
^DD(130.042,"B","DELAY CAUSE",.01)=""
^DD(130.042,"B","DELAY COMMENTS",2)=""
^DD(130.042,"B","DELAY TIME",1)=""
^DD(130.042,"B","Delay Reason",.01)="1"
^DD(130.042,"B","Delay Time",1)="1"
^DD(130.042,"GL",0,1,.01)=""
^DD(130.042,"GL",0,2,1)=""
^DD(130.042,"GL",1,0,2)=""
^DD(130.042,"IX",.01)=""
^DD(130.042,"SB",130.422,2)=""
^DD(130.049,0)="SPECIMENS SUB-FIELD^^.01^1"
^DD(130.049,0,"NM","SPECIMENS")=""
^DD(130.049,0,"UP")="130"
^DD(130.049,.01,0)="SPECIMENS^W^^0;1^Q"
^DD(130.049,.01,.1)="Specimens"
^DD(130.049,.01,21,0)="^^2^2^2900911^"
^DD(130.049,.01,21,1,0)="These are the names of specimens sent to the laboratory for analysis."
^DD(130.049,.01,21,2,0)=" "
^DD(130.049,.01,"DT")="2880815"
^DD(130.049,"B","SPECIMENS",.01)=""
^DD(130.049,"B","Specimens",.01)="1"
^DD(130.049,"GL",0,1,.01)=""
^DD(130.05,0)="GENERAL COMMENTS SUB-FIELD^NL^.01^1"
^DD(130.05,0,"NM","GENERAL COMMENTS")=""
^DD(130.05,0,"UP")="130"
^DD(130.05,.01,0)="COMMENTS^W^^0;1^Q"
^DD(130.05,.01,.1)="General Comments"
^DD(130.05,.01,21,0)="^^3^3^2921215^^^"
^DD(130.05,.01,21,1,0)="These are general comments about the operative procedure(s).  Any "
^DD(130.05,.01,21,2,0)="information not provided for elsewhere may be entered here."
^DD(130.05,.01,21,3,0)=" "
^DD(130.05,.01,"DT")="2840519"
^DD(130.05,"B","COMMENTS",.01)=""
^DD(130.05,"B","General Comments",.01)="1"
^DD(130.05,"GL",0,1,.01)=""
^DD(130.0508,0)="HAIR REMOVAL COMMENTS SUB-FIELD^^.01^1"
^DD(130.0508,0,"DT")="3060314"
^DD(130.0508,0,"NM","HAIR REMOVAL COMMENTS")=""
^DD(130.0508,0,"UP")="130"
^DD(130.0508,.01,0)="HAIR REMOVAL COMMENTS^W^^0;1"
^DD(130.0508,.01,.1)="Hair Removal Comments"
^DD(130.0508,.01,21,0)="^^4^4^3060320^"
^DD(130.0508,.01,21,1,0)="If SHAVING is selected as the hair removal method, a comment must be"
^DD(130.0508,.01,21,2,0)="entered explaining why SHAVING was used."
^DD(130.0508,.01,21,3,0)="If OTHER is selected as the hair removal method, comments must be"
^DD(130.0508,.01,21,4,0)="entered explaining the method used."
^DD(130.0508,.01,"DT")="3060320"
^DD(130.0508,"B","HAIR REMOVAL COMMENTS",.01)=""
^DD(130.0508,"B","Hair Removal Comments",.01)="1"
^DD(130.0508,"GL",0,1,.01)=""
^DD(130.053,0)="NON-OPERATIVE OCCURRENCES SUB-FIELD^^5^6"
^DD(130.053,0,"DT")="2941217"
^DD(130.053,0,"IX","B",130.053,.01)=""
^DD(130.053,0,"NM","NON-OPERATIVE OCCURRENCES")=""
^DD(130.053,0,"UP")="130"
^DD(130.053,.01,0)="NON-OPERATIVE OCCURRENCES^F^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(130.053,.01,.1)="Non-Operative Occurrences"
^DD(130.053,.01,1,0)="^.1"
^DD(130.053,.01,1,1,0)="130.053^B"
^DD(130.053,.01,1,1,1)="S ^SRF(DA(1),36,""B"",$E(X,1,30),DA)="""""
^DD(130.053,.01,1,1,2)="K ^SRF(DA(1),36,""B"",$E(X,1,30),DA)"
^DD(130.053,.01,3)="Your answer must be 1-40 characters in length."
^DD(130.053,.01,21,0)="^^4^4^2900720^"
^DD(130.053,.01,21,1,0)="This is a occurrence that is not related to a surgical procedure.  If"
^DD(130.053,.01,21,2,0)="there are not any non-operative occurrences, this field should be left"
^DD(130.053,.01,21,3,0)="blank.  Do not enter 'NO' or 'NONE'."
^DD(130.053,.01,21,4,0)=" "
^DD(130.053,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.053,.01,"DT")="2900720"
^DD(130.053,1,0)="OUTCOME TO DATE^S^U:UNRESOLVED;I:IMPROVED;D:DEATH;W:WORSE;^0;2^Q"
^DD(130.053,1,.1)="Outcome to Date"
^DD(130.053,1,3)="Enter the outcome of this occurrence to date."
^DD(130.053,1,21,0)="^^2^2^2900720^"
^DD(130.053,1,21,1,0)="This is the outcome to date of this non-operative occurrence."
^DD(130.053,1,21,2,0)=" "
^DD(130.053,1,"DT")="2910125"
^DD(130.053,2,0)="DATE OCCURRENCE NOTED^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(130.053,2,.1)="Date Occurrence was Noted"
^DD(130.053,2,3)="Enter the date that this occurrence was noted."
^DD(130.053,2,21,0)="^^3^3^2900720^"
^DD(130.053,2,21,1,0)="This is the date that this occurrence was noted.  The time of day"
^DD(130.053,2,21,2,0)="can be entered, but is not required."
^DD(130.053,2,21,3,0)=" "
^DD(130.053,2,"DT")="2900720"
^DD(130.053,3,0)="TREATMENT INSTITUTED^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(130.053,3,.1)="Treatment Instituted"
^DD(130.053,3,3)="Your answer must be 1-40 characters in length."
^DD(130.053,3,21,0)="^^3^3^2900720^"
^DD(130.053,3,21,1,0)="This is the type of treatment instituted as a result of this"
^DD(130.053,3,21,2,0)="non-operative occurrence."
^DD(130.053,3,21,3,0)=" "
^DD(130.053,3,"DT")="2900720"
^DD(130.053,4,0)="OCCURRENCE COMMENTS^130.534^^1;0"
^DD(130.053,4,.1)="Occurrence Comments"
^DD(130.053,4,21,0)="^^3^3^2900720^^"
^DD(130.053,4,21,1,0)="This is information that may be helpful in documentation of the"
^DD(130.053,4,21,2,0)="non-operative occurrence."
^DD(130.053,4,21,3,0)=" "
^DD(130.053,5,0)="OCCURRENCE CATEGORY^R*P136.5'^SRO(136.5,^0;5^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.053,5,.1)="Occurrence Category"
^DD(130.053,5,3)="Enter the category most closely related to this occurrence."
^DD(130.053,5,12)="Screen prevents selection of inactive occurrence categories."
^DD(130.053,5,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(130.053,5,21,0)="^^3^3^2901204^"
^DD(130.053,5,21,1,0)="This is the name of the category for which this occurrence will"
^DD(130.053,5,21,2,0)="be grouped for Surgery Central Office reporting needs."
^DD(130.053,5,21,3,0)=" "
^DD(130.053,5,"DT")="2941217"
^DD(130.053,"B","DATE OCCURRENCE NOTED",2)=""
^DD(130.053,"B","Date Occurrence was Noted",2)="1"
^DD(130.053,"B","NON-OPERATIVE OCCURRENCES",.01)=""
^DD(130.053,"B","Non-Operative Occurrences",.01)="1"
^DD(130.053,"B","OCCURRENCE CATEGORY",5)=""
^DD(130.053,"B","OCCURRENCE COMMENTS",4)=""
^DD(130.053,"B","OUTCOME TO DATE",1)=""
^DD(130.053,"B","Occurrence Category",5)="1"
^DD(130.053,"B","Occurrence Comments",4)="1"
^DD(130.053,"B","Outcome to Date",1)="1"
^DD(130.053,"B","TREATMENT INSTITUTED",3)=""
^DD(130.053,"B","Treatment Instituted",3)="1"
^DD(130.053,"GL",0,1,.01)=""
^DD(130.053,"GL",0,2,1)=""
^DD(130.053,"GL",0,3,2)=""
^DD(130.053,"GL",0,4,3)=""
^DD(130.053,"GL",0,5,5)=""
^DD(130.053,"GL",1,0,4)=""
^DD(130.053,"IX",.01)=""
^DD(130.053,"RQ",5)=""
^DD(130.053,"SB",130.534,4)=""
^DD(130.055,0)="INDICATIONS FOR OPERATIONS SUB-FIELD^^.01^1"
^DD(130.055,0,"NM","INDICATIONS FOR OPERATIONS")=""
^DD(130.055,0,"UP")="130"
^DD(130.055,.01,0)="INDICATIONS FOR OPERATIONS^W^^0;1^Q"
^DD(130.055,.01,.1)="Indications for Operations"
^DD(130.055,.01,3)="Enter the indications for this operative procedure."
^DD(130.055,.01,21,0)="^^4^4^2921026^^"
^DD(130.055,.01,21,1,0)="This is a brief statement of the indications for this operative"
^DD(130.055,.01,21,2,0)="procedure.  The information you enter here prints automatically "
^DD(130.055,.01,21,3,0)="as the first part of the operative summary."
^DD(130.055,.01,21,4,0)=" "
^DD(130.055,.01,"DT")="2900720"
^DD(130.055,"B","INDICATIONS FOR OPERATIONS",.01)=""
^DD(130.055,"B","Indications for Operations",.01)="1"
^DD(130.055,"GL",0,1,.01)=""
^DD(130.059,0)="OPERATIVE FINDINGS SUB-FIELD^^.01^1"
^DD(130.059,0,"NM","OPERATIVE FINDINGS")=""
^DD(130.059,0,"UP")="130"
^DD(130.059,.01,0)="OPERATIVE FINDINGS^W^^0;1^Q"
^DD(130.059,.01,.1)="Operative Findings"
^DD(130.059,.01,3)="Enter a brief description of the operative findings."
^DD(130.059,.01,21,0)="^^3^3^2921026^^"
^DD(130.059,.01,21,1,0)="This field contains a brief description of the operative findings which"
^DD(130.059,.01,21,2,0)="appears on the Tissue Examination Report."
^DD(130.059,.01,21,3,0)=" "
^DD(130.059,.01,"DT")="2900716"
^DD(130.059,"B","OPERATIVE FINDINGS",.01)=""
^DD(130.059,"B","Operative Findings",.01)="1"
^DD(130.059,"GL",0,1,.01)=""
^DD(130.06,0)="ANESTHESIA TECHNIQUE SUB-FIELD^NL^44^45"
^DD(130.06,0,"DT")="2950313"
^DD(130.06,0,"NM","ANESTHESIA TECHNIQUE")=""
^DD(130.06,0,"UP")="130"
^DD(130.06,.01,0)="ANESTHESIA TECHNIQUE^SX^G:GENERAL;M:MONITORED ANESTHESIA CARE;S:SPINAL;E:EPIDURAL;R:REGIONAL;O:OTHER;L:LOCAL;N:NO ANESTHESIA;^0;1^Q"
^DD(130.06,.01,.1)="Anesthesia Technique"
^DD(130.06,.01,3)="Enter an anesthesia technique from the available list of techniques."
^DD(130.06,.01,21,0)="^.001^4^4^3071126^^^^"
^DD(130.06,.01,21,1,0)="This is the anesthesia technique used during this case corresponding to"
^DD(130.06,.01,21,2,0)="the American Board of Anesthesiologists universal list of anesthesia"
^DD(130.06,.01,21,3,0)="techniques (except for REGIONAL, LOCAL and NO ANESTHESIA). If entered,"
^DD(130.06,.01,21,4,0)="this information will appear on various anesthesia reports."
^DD(130.06,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.06,.01,"DT")="3071126"
^DD(130.06,.05,0)="PRINCIPAL TECH^SX^Y:YES;N:NO;^0;3^D CHECK^SROPRIN"
^DD(130.06,.05,.1)="Is this the Principal Technique (Y/N)"
^DD(130.06,.05,21,0)="^^4^4^3040316^^"
^DD(130.06,.05,21,1,0)="This indicates whether this technique is the principal technique for"
^DD(130.06,.05,21,2,0)="this procedure. If this is the only technique used, 'YES' must be"
^DD(130.06,.05,21,3,0)="entered at this prompt. General anesthesia should take precedence over "
^DD(130.06,.05,21,4,0)="all other forms of anesthesia."
^DD(130.06,.05,"DT")="3040316"
^DD(130.06,2,0)="PATIENT STATUS^S^I:INDUCED;A:AWAKE;S:SEDATED;^0;4^Q"
^DD(130.06,2,.1)="Patient Status"
^DD(130.06,2,21,0)="^^2^2^2900705^^"
^DD(130.06,2,21,1,0)="This indicates the status of the patient while anesthetized."
^DD(130.06,2,21,2,0)=" "
^DD(130.06,2,"DT")="2870126"
^DD(130.06,3,0)="APPROACH^S^D:DIRECT VISION LARYNGOSCOPY;R:RAPID SEQUENCE;B:BLIND;BL:BLIND LARYNGOSCOPY;F:FIBEROPTIC LARYNGOSCOPY;^0;5^Q"
^DD(130.06,3,.1)="Approach Technique"
^DD(130.06,3,21,0)="^^3^3^2900705^^^^"
^DD(130.06,3,21,1,0)="This is the code corresponding to the approach technique used for"
^DD(130.06,3,21,2,0)="endotracheal intubation.  This information is not required, but "
^DD(130.06,3,21,3,0)="may be useful for documentation."
^DD(130.06,3,"DT")="2870126"
^DD(130.06,4,0)="ROUTE^S^O:ORAL;N:NASAL;T:TRACHEOSTOMY;^0;6^Q"
^DD(130.06,4,.1)="Endotracheal Tube Route"
^DD(130.06,4,21,0)="^^3^3^2900705^^^^"
^DD(130.06,4,21,1,0)="This is the code corresponding to the route of the endotracheal"
^DD(130.06,4,21,2,0)="tube to the trachea.  This information is not required, but may"
^DD(130.06,4,21,3,0)="be useful for documentation."
^DD(130.06,4,"DT")="2870126"
^DD(130.06,5,0)="LARYNGOSCOPE TYPE^S^M:MACINTOSH;MI:MILLER;G:GUEDEL;W:WIS-FOREGGER;FS:FIBEROPTIC STYLET;FB:FIBEROPTIC BRONCHOSCOPE;FL:FIBEROPTIC LARYNGOSCOPE;O:OTHER;^0;7^Q"
^DD(130.06,5,.1)="Type of Laryngoscope"
^DD(130.06,5,21,0)="^^3^3^2900705^^^^"
^DD(130.06,5,21,1,0)="This is the code corresponding to the type of scope or laryngoscope"
^DD(130.06,5,21,2,0)="blade used to facilitate endotracheal intubation.  Although not"
^DD(130.06,5,21,3,0)="required, it may be useful for documentation."
^DD(130.06,5,"DT")="2870812"
^DD(130.06,6,0)="LARYNGOSCOPE SIZE^NJ3,0^^0;8^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.06,6,.1)="Laryngoscope Size"
^DD(130.06,6,3)="ENTER A WHOLE NUMBER BETWEEN 1 AND 100."
^DD(130.06,6,21,0)="^^4^4^2900705^^^^"
^DD(130.06,6,21,1,0)="This is the size of the laryngoscope used to facilitate endotracheal"
^DD(130.06,6,21,2,0)="intubation.  This information is not required, but may be useful for"
^DD(130.06,6,21,3,0)="documentation."
^DD(130.06,6,21,4,0)=" "
^DD(130.06,6,"DT")="2870126"
^DD(130.06,7,0)="STYLET USED (Y/N)^S^Y:YES;N:NO;^0;9^Q"
^DD(130.06,7,.1)="Was a Stylet Used ?  (Y/N)"
^DD(130.06,7,21,0)="^^4^4^2900705^^^^"
^DD(130.06,7,21,1,0)="This indicates whether a stylet was used to shape the endotracheal"
^DD(130.06,7,21,2,0)="tube during intubation.  This information is optional, but may be"
^DD(130.06,7,21,3,0)="useful in documentation of this case."
^DD(130.06,7,21,4,0)=" "
^DD(130.06,7,"DT")="2870126"
^DD(130.06,8,0)="LIDOCAINE TOPICAL^S^Y:YES;N:NO;^0;10^Q"
^DD(130.06,8,.1)="Was Topical Lidocaine Used ?  (Y/N)"
^DD(130.06,8,21,0)="^^3^3^2900705^^^^"
^DD(130.06,8,21,1,0)="This indicates whether topical lidocaine is utilized to facilitate"
^DD(130.06,8,21,2,0)="endotracheal intubation.  This information is not required, but may"
^DD(130.06,8,21,3,0)="be useful for documentation."
^DD(130.06,8,"DT")="2870126"
^DD(130.06,9,0)="LIDOCAINE IV^S^Y:YES;N:NO;^0;11^Q"
^DD(130.06,9,.1)="Was Intravenous Lidocaine Administered ?  (Y/N)"
^DD(130.06,9,21,0)="^^3^3^2900706^^^^"
^DD(130.06,9,21,1,0)="This indicates whether intravenous lidocaine is administered prior to the"
^DD(130.06,9,21,2,0)="endotracheal intubation.  This information is not required, but may be"
^DD(130.06,9,21,3,0)="useful for documentation."
^DD(130.06,9,"DT")="2870126"
^DD(130.06,10,0)="TUBE TYPE^S^P:PVC LOW PRESSURE;S:SILASTIC LOW PRESSURE;R:REINFORCED;B:BIVONA CUFF;2R:2 LUMEN, RT. ENDOBRONCHIAL;2L:2 LUMEN, LT. ENDOBRONCHIAL;T:TRACHEOSTOMY CUFFED;L:LASER PROTECTED;O:OTHER;^0;12^Q"
^DD(130.06,10,.1)="Type of Endotracheal Tube"
^DD(130.06,10,21,0)="^^3^3^2900706^^^^"
^DD(130.06,10,21,1,0)="This is the code corresponding to the type of endotracheal tube used"
^DD(130.06,10,21,2,0)="during the major portion of the procedure.  This information is not "
^DD(130.06,10,21,3,0)="required, but may be useful for documentation."
^DD(130.06,10,"DT")="2870812"
^DD(130.06,11,0)="TUBE SIZE^NJ5,1^^0;13^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""2N.N) X"
^DD(130.06,11,.1)="Endotracheal Tube Size"
^DD(130.06,11,3)="Type a Number between 1 and 100, 1 Decimal Digit"
^DD(130.06,11,21,0)="^^3^3^2900706^^^^"
^DD(130.06,11,21,1,0)="This is the size of the endotracheal tube.  This information is not"
^DD(130.06,11,21,2,0)="required, but may be useful for documentation."
^DD(130.06,11,21,3,0)=" "
^DD(130.06,11,"DT")="2950103"
^DD(130.06,12,0)="TRAUMA^S^1:NONE;2:LIP LACERATION OR HEMATOMA;3:TOOTH CHIPPED, LOOSENED OR LOST;4:TONGUE HEMATOMA OR LACERATION;5:PHARYNGEAL LACERATION;6:OTHER LARYNGEAL INJURY;7:FAILURE TO INTUBATE AS INTENDED;^0;14^Q"
^DD(130.06,12,.1)="Trauma Resulting from Intubation Process"
^DD(130.06,12,21,0)="^^15^15^3040316^"
^DD(130.06,12,21,1,0)="NSQIP Definition (2004):"
^DD(130.06,12,21,2,0)="The code corresponding to trauma resulting from the endotracheal "
^DD(130.06,12,21,3,0)="intubation process. This should be documented on the anesthesia "
^DD(130.06,12,21,4,0)="record. Choose from:"
^DD(130.06,12,21,5,0)=" "
^DD(130.06,12,21,6,0)="  1. None"
^DD(130.06,12,21,7,0)="  2. Lip laceration or hematoma"
^DD(130.06,12,21,8,0)="  3. Tooth chipped, loosened or lost"
^DD(130.06,12,21,9,0)="  4. Tongue hematoma or laceration"
^DD(130.06,12,21,10,0)="  5. Pharyngeal laceration"
^DD(130.06,12,21,11,0)="  6, Other laryngeal injury"
^DD(130.06,12,21,12,0)="  7. Failure to intubate as intended"
^DD(130.06,12,21,13,0)=" "
^DD(130.06,12,21,14,0)="This information is entered by Anesthesia personnel and is not the "
^DD(130.06,12,21,15,0)="responsibility of the Nurse Reviewer."
^DD(130.06,12,"DT")="3040316"
^DD(130.06,13,0)="BITE BLOCK (Y/N)^S^Y:YES;N:NO;^0;15^Q"
^DD(130.06,13,.1)="Was a Bite Block Used ?  (Y/N)"
^DD(130.06,13,3)=""
^DD(130.06,13,21,0)="^^3^3^2900706^^^^"
^DD(130.06,13,21,1,0)="This indicates if a bite block is used to protect the endotracheal tube."
^DD(130.06,13,21,2,0)="This information is not required, but may be useful for documentation."
^DD(130.06,13,21,3,0)=" "
^DD(130.06,13,"DT")="2870126"
^DD(130.06,14,0)="TUBE LUBRICATION^S^Y:YES;N:NO;^0;16^Q"
^DD(130.06,14,.1)="Was Tube Lubrication Used ?  (Y/N)"
^DD(130.06,14,3)=""
^DD(130.06,14,21,0)="^^4^4^2900706^^^^"
^DD(130.06,14,21,1,0)="This indicates whether lubrication was used with the endotracheal"
^DD(130.06,14,21,2,0)="tube.  Although not required, this information may be useful for"
^DD(130.06,14,21,3,0)="documentation."
^DD(130.06,14,21,4,0)=" "
^DD(130.06,15,0)="TAPED AT LENGTH^NJ3,0^^0;17^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.06,15,.1)="Taped at what Length"
^DD(130.06,15,3)="ENTER A WHOLE NUMBER BETWEEN 1 AND 100"
^DD(130.06,15,21,0)="^^4^4^2900706^^^^"
^DD(130.06,15,21,1,0)="This is the length of the endotracheal tube at the external reference "
^DD(130.06,15,21,2,0)="point. This information is not required, but may be useful for"
^DD(130.06,15,21,3,0)="documentation of this case."
^DD(130.06,15,21,4,0)=" "
^DD(130.06,15,"DT")="2870126"
^DD(130.06,16,0)="BREATH SOUNDS OK BILAT^S^Y:YES;N:NO;^0;18^Q"
^DD(130.06,16,.1)="Are Breath Sounds Audible and Equal Bilaterally ? (Y/N)"
^DD(130.06,16,21,0)="^^3^3^2900706^^^^"
^DD(130.06,16,21,1,0)="This indicates whether breath sounds are audible and equal bilaterally."
^DD(130.06,16,21,2,0)="This information is not required, but may be useful for documentation."
^DD(130.06,16,21,3,0)=" "
^DD(130.06,16,"DT")="2870126"
^DD(130.06,17,0)="HEAT, MOISTURE EXCHANGER^S^Y:YES;N:NO;^0;19^Q"
^DD(130.06,17,.1)="Was a Heat and Moisture Exchanger Used ? (Y/N)"
^DD(130.06,17,21,0)="^^4^4^2900706^^^^"
^DD(130.06,17,21,1,0)="This indicates whether a passive heat and moisture exchanger is used "
^DD(130.06,17,21,2,0)="in the breathing circuit.  This information is not required, but may "
^DD(130.06,17,21,3,0)="be useful for documentation and review."
^DD(130.06,17,21,4,0)=" "
^DD(130.06,17,"DT")="2870126"
^DD(130.06,18,0)="BACT. FILTER IN CIRCUIT^S^Y:YES;N:NO;^0;20^Q"
^DD(130.06,18,.1)="Was a Bacterial Filter Used ?  (Y/N)"
^DD(130.06,18,3)=""
^DD(130.06,18,21,0)="^^4^4^2900706^^^^"
^DD(130.06,18,21,1,0)="This indicates whether a bacterial filter is used in the breathing "
^DD(130.06,18,21,2,0)="circuit.  This information is not required, but may be useful for"
^DD(130.06,18,21,3,0)="documentation."
^DD(130.06,18,21,4,0)=" "
^DD(130.06,19,0)="END VENT. T.V.^NJ5,0^^0;21^K:+X'=X!(X>20000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.06,19,.1)="Anesthesia Ventilator Tidal Volume"
^DD(130.06,19,3)="Enter a whole number between 1 and 20000."
^DD(130.06,19,21,0)="^^3^3^2900706^^^"
^DD(130.06,19,21,1,0)="This is the anesthesia ventilator tidal volume setting at the end"
^DD(130.06,19,21,2,0)="of the case."
^DD(130.06,19,21,3,0)=" "
^DD(130.06,19,"DT")="2870126"
^DD(130.06,20,0)="END VENT. RATE^NJ4,0^^0;22^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.06,20,.1)="Anesthesia Ventilator Rate"
^DD(130.06,20,3)="Enter a whole number between 1 and 1000."
^DD(130.06,20,21,0)="^^3^3^2900706^^"
^DD(130.06,20,21,1,0)="This is the anesthesia ventilator rate setting at the end of the"
^DD(130.06,20,21,2,0)="operative procedure."
^DD(130.06,20,21,3,0)=" "
^DD(130.06,20,"DT")="2870126"
^DD(130.06,21,0)="EXTUBATED IN^S^O:OR;P:PACU;S:SICU;^0;23^Q"
^DD(130.06,21,.1)="Location where the Endotracheal Tube was Removed"
^DD(130.06,21,21,0)="^^4^4^2900706^^^^"
^DD(130.06,21,21,1,0)="This is the code corresponding to the location wherein the endotracheal"
^DD(130.06,21,21,2,0)="tube is removed.  This information is not required, but may be useful"
^DD(130.06,21,21,3,0)="for documentation, review or concurrent monitoring."
^DD(130.06,21,21,4,0)=" "
^DD(130.06,21,"DT")="2870126"
^DD(130.06,22,0)="REINTUBATED W/I 8 HRS.^S^Y:YES;N:NO;^0;24^Q"
^DD(130.06,22,.1)="Was Reintubation Required within 8 Hours ?  (Y/N)"
^DD(130.06,22,21,0)="^^4^4^2900706^^^^"
^DD(130.06,22,21,1,0)="This indicates whether the patient required reintubation within 8 hours "
^DD(130.06,22,21,2,0)="for ventilatory insufficiency or airway obstruction.  Do not include"
^DD(130.06,22,21,3,0)="intubation for a following surgical procedure."
^DD(130.06,22,21,4,0)=" "
^DD(130.06,22,"DT")="2870126"
^DD(130.06,23,0)="PREOXYGENATION^S^Y:YES;N:NO;^0;25^Q"
^DD(130.06,23,.1)="Preoxygenation ?  (Y/N)"
^DD(130.06,23,3)=""
^DD(130.06,23,21,0)="^^3^3^2900706^^"
^DD(130.06,23,21,1,0)="This is used to document the process of preoxygenation prior to"
^DD(130.06,23,21,2,0)="induction of anesthesia."
^DD(130.06,23,21,3,0)=" "
^DD(130.06,24,0)="ANESTHESIA AGENTS^130.47PA^^1;0"
^DD(130.06,24,.1)="Anesthesia Agents"
^DD(130.06,24,21,0)="^^4^4^2900105^^^"
^DD(130.06,24,21,1,0)="This is information related to the anesthesia agents used for this"
^DD(130.06,24,21,2,0)="technique."
^DD(130.06,24,21,3,0)=" "
^DD(130.06,24,21,4,0)=" "
^DD(130.06,25,0)="CONTINUOUS^S^Y:YES;N:NO;^2;1^Q"
^DD(130.06,25,.1)="Was the Catheter placed for Continuous Administration ? (Y/N)"
^DD(130.06,25,21,0)="^^2^2^2900706^^^^"
^DD(130.06,25,21,1,0)="This indicates whether a catheter is placed for continuous or intermittent"
^DD(130.06,25,21,2,0)="administration of a drug for spinal or epidural anesthesia."
^DD(130.06,25,"DT")="2870126"
^DD(130.06,26,0)="BARICITY^S^1:HYPERBARIC;2:HYPOBARIC;3:ISOBARIC;^2;2^Q"
^DD(130.06,26,.1)="Baricity"
^DD(130.06,26,21,0)="^^3^3^2900706^^^"
^DD(130.06,26,21,1,0)="This is the code corresponding to the baricity of the anesthesia drug"
^DD(130.06,26,21,2,0)="fluid vehicle in relationship to the spinal fluid."
^DD(130.06,26,21,3,0)=" "
^DD(130.06,26,"DT")="2870126"
^DD(130.06,27,0)="PUNCTURE SITE^S^1:L2-3;2:L3-4;3:L4-5;4:L5-S1;5:OTHER;^2;3^Q"
^DD(130.06,27,.1)="Puncture Site"
^DD(130.06,27,21,0)="^^4^4^2900706^^^^"
^DD(130.06,27,21,1,0)="This is the code corresponding to the spinal or epidural needle"
^DD(130.06,27,21,2,0)="puncture site.  This information is not required, but may be useful"
^DD(130.06,27,21,3,0)="for documentation and review."
^DD(130.06,27,21,4,0)=" "
^DD(130.06,27,"DT")="2870126"
^DD(130.06,28,0)="SPINAL APPROACH^S^M:MIDLINE;L:LATERAL;^2;4^Q"
^DD(130.06,28,.1)="Spinal Approach"
^DD(130.06,28,21,0)="^^4^4^2900706^^^^"
^DD(130.06,28,21,1,0)="This is the code corresponding to the approach of the placement of the"
^DD(130.06,28,21,2,0)="spinal or epidural needle.  This information is not required, but may be"
^DD(130.06,28,21,3,0)="useful for documentation and review."
^DD(130.06,28,21,4,0)=" "
^DD(130.06,28,"DT")="2870126"
^DD(130.06,29,0)="NEEDLE SIZE^S^1:20G;2:22G;3:25G;4:16 G TOUHY;5:26G;^2;5^Q"
^DD(130.06,29,.1)="Needle Size"
^DD(130.06,29,21,0)="^^4^4^2921106^^^^"
^DD(130.06,29,21,1,0)="This is the code corresponding to the needle size used for the spinal"
^DD(130.06,29,21,2,0)="or epidural technique.  This information is not required, but may be "
^DD(130.06,29,21,3,0)="useful for documentation and review."
^DD(130.06,29,21,4,0)=" "
^DD(130.06,29,"DT")="2870618"
^DD(130.06,30,0)="EPIDURAL METHOD^S^H:HANGING DROP;L:LOSS OF RESISTANCE;B:BOTH;^3;1^Q"
^DD(130.06,30,.1)="What Epidural Method was Used ?"
^DD(130.06,30,21,0)="^^4^4^2950313^^^^"
^DD(130.06,30,21,1,0)="This is the code corresponding to the method used to determine the"
^DD(130.06,30,21,2,0)="placement of the epidural needle.  This information is not required,  "
^DD(130.06,30,21,3,0)="but may be useful for documentation and review."
^DD(130.06,30,21,4,0)=" "
^DD(130.06,30,"DT")="2950313"
^DD(130.06,31,0)="MULTIPLE ATTEMPTS^S^Y:YES;N:NO;^3;2^Q"
^DD(130.06,31,.1)="Were Multiple Attempts Required ?  (Y/N)"
^DD(130.06,31,21,0)="^^3^3^2900706^^^^"
^DD(130.06,31,21,1,0)="This indicates whether more than one skin puncture was required to achieve"
^DD(130.06,31,21,2,0)="proper placement of the needle."
^DD(130.06,31,21,3,0)=" "
^DD(130.06,31,"DT")="2870126"
^DD(130.06,32,0)="TEST DOSE^130.48PA^^4;0"
^DD(130.06,32,.1)="Epidural Test Dose"
^DD(130.06,32,21,0)="^^2^2^2900105^"
^DD(130.06,32,21,1,0)="This is information related to the test dose of the anesthesia agent."
^DD(130.06,32,21,2,0)=" "
^DD(130.06,33,0)="TEST DOSE VOL (ml)^NJ2,0^^3;3^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.06,33,.1)="Test Dose Volume (ml)"
^DD(130.06,33,3)="Enter a whole number between 1 and 10."
^DD(130.06,33,21,0)="^^1^1^2900105^^^^"
^DD(130.06,33,21,1,0)="This is the volume (mls.) of the test dose fluid vehicle."
^DD(130.06,33,"DT")="2870126"
^DD(130.06,34,0)="DURAL PUNCTURE^S^Y:YES;N:NO;^3;4^Q"
^DD(130.06,34,.1)="Dural Puncture ?  (Y/N)"
^DD(130.06,34,21,0)="^^3^3^2900706^^^^"
^DD(130.06,34,21,1,0)="This indicates whether dural puncture is recognized during the epidural "
^DD(130.06,34,21,2,0)="needle or catheter placement.  This information is not required."
^DD(130.06,34,21,3,0)=" "
^DD(130.06,34,"DT")="2870126"
^DD(130.06,35,0)="CATHETER REMOVED BY^*P200'^VA(200,^3;5^S DIC(""S"")=""S RESTRICT=""""130.06,35"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.06,35,.1)="Who Removed the Catheter ?"
^DD(130.06,35,3)="Enter the name of the person who removed the catheter."
^DD(130.06,35,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.06,35,12.1)="S DIC(""S"")=""S RESTRICT=""""130.06,35"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.06,35,21,0)="^^4^4^2900706^^^^"
^DD(130.06,35,21,1,0)="This is the name of the person removing the continuous catheter from"
^DD(130.06,35,21,2,0)="the puncture site.  This information is not required, but may be useful"
^DD(130.06,35,21,3,0)="for documentation and review."
^DD(130.06,35,21,4,0)=" "
^DD(130.06,35,"DT")="2920204"
^DD(130.06,36,0)="ADMINISTRATION METHOD^S^B:BOLUS;I:INTERMITTENT;D:DRIP INFUSION;^3;6^Q"
^DD(130.06,36,.1)="Method of Administration"
^DD(130.06,36,21,0)="^^2^2^2900706^^^^"
^DD(130.06,36,21,1,0)="This is the code corresponding to the method of administration of the"
^DD(130.06,36,21,2,0)="anesthetic agent.  This information is not required."
^DD(130.06,36,"DT")="2870126"
^DD(130.06,37,0)="PURPOSE^S^1:FOR SURGICAL PROCEDURE;2:FOR PAIN RELIEF POST-OP;3:FOR CHRONIC PAIN CONTROL;^3;7^Q"
^DD(130.06,37,.1)="Reason for using a Regional Technique"
^DD(130.06,37,21,0)="^^4^4^2900706^^^^"
^DD(130.06,37,21,1,0)="This is the code corresponding to the reason for using a regional"
^DD(130.06,37,21,2,0)="technique.  This information is not required, but may be useful for"
^DD(130.06,37,21,3,0)="documentation and review."
^DD(130.06,37,21,4,0)=" "
^DD(130.06,37,"DT")="2870126"
^DD(130.06,38,0)="BLOCK SITE^130.49P^^5;0"
^DD(130.06,38,.1)="Regional Block Site"
^DD(130.06,38,21,0)="^^2^2^2900105^"
^DD(130.06,38,21,1,0)="This is information about the block site."
^DD(130.06,38,21,2,0)=" "
^DD(130.06,39,0)="EXTUBATED BY^*P200'^VA(200,^6;1^S DIC(""S"")=""S RESTRICT=""""130.06,39"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.06,39,.1)="Who Removed the Endotracheal Tube ?"
^DD(130.06,39,3)="Enter the person responsible for extubation."
^DD(130.06,39,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.06,39,12.1)="S DIC(""S"")=""S RESTRICT=""""130.06,39"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.06,39,21,0)="^^3^3^2900706^^^^"
^DD(130.06,39,21,1,0)="This is the name of the person responsible for removing the endotracheal"
^DD(130.06,39,21,2,0)="tube.  Although optional, this information may be useful for documentation."
^DD(130.06,39,21,3,0)=" "
^DD(130.06,39,"DT")="2920205"
^DD(130.06,40,0)="ANESTHESIA COMMENTS^130.5^^7;0"
^DD(130.06,40,.1)="Anesthesia Comments"
^DD(130.06,40,21,0)="^^2^2^2900105^"
^DD(130.06,40,21,1,0)="These are comments related to anesthesia care for this case."
^DD(130.06,40,21,2,0)=" "
^DD(130.06,41,0)="MONITORED ANES CARE ?(Y/N)^S^Y:YES;N:NO;^8;1^Q"
^DD(130.06,41,.1)="Monitored Anesthesia Care ?  (Y/N)"
^DD(130.06,41,21,0)="^^4^4^2900706^^^^"
^DD(130.06,41,21,1,0)="This indicates whether the anesthesia personnel monitored this patient "
^DD(130.06,41,21,2,0)="without anesthesia.  This information is not required, but may be "
^DD(130.06,41,21,3,0)="useful for documentation and review."
^DD(130.06,41,21,4,0)=" "
^DD(130.06,41,"DT")="2870618"
^DD(130.06,42,0)="INTUBATED ?  (Y/N)^S^Y:YES;N:NO;^8;2^Q"
^DD(130.06,42,.1)="Was the Patient Intubated ?  (Y/N)"
^DD(130.06,42,21,0)="^^2^2^2900706^^^^"
^DD(130.06,42,21,1,0)="This indicates whether an endotracheal tube is placed."
^DD(130.06,42,21,2,0)=" "
^DD(130.06,42,"DT")="2870618"
^DD(130.06,43,0)="LEVEL^S^T4:T4;T6:T6;T8:T8;T10:T10;T12:T12;ONE-SIDED:ONE-SIDED;^8;3^Q"
^DD(130.06,43,.1)="Neurodermatone Anesthesia Sensory Level"
^DD(130.06,43,21,0)="^^3^3^2900706^^^^"
^DD(130.06,43,21,1,0)="This is the code corresponding to the neurodermatome anesthesia"
^DD(130.06,43,21,2,0)="sensory level."
^DD(130.06,43,21,3,0)=" "
^DD(130.06,43,"DT")="2870618"
^DD(130.06,44,0)="DATE/TIME CATHETER REMOVED^DX^^8;4^S Z=$E($P(^SRF(D0,0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X),%DT=""ETX"" D ^%DT S X=Y K:Y<1 X K Z"
^DD(130.06,44,.1)="Date/Time that the Catheter was Removed"
^DD(130.06,44,21,0)="^^4^4^2900105^^^"
^DD(130.06,44,21,1,0)="This is the date/time that the continuous regional block catheter was"
^DD(130.06,44,21,2,0)="removed.  Times entered without a date will be converted to the date"
^DD(130.06,44,21,3,0)="of the operation at that time."
^DD(130.06,44,21,4,0)=" "
^DD(130.06,44,"DT")="2931209"
^DD(130.06,"B","ADMINISTRATION METHOD",36)=""
^DD(130.06,"B","ANESTHESIA AGENTS",24)=""
^DD(130.06,"B","ANESTHESIA COMMENTS",40)=""
^DD(130.06,"B","ANESTHESIA TECHNIQUE",.01)=""
^DD(130.06,"B","APPROACH",3)=""
^DD(130.06,"B","Anesthesia Agents",24)="1"
^DD(130.06,"B","Anesthesia Comments",40)="1"
^DD(130.06,"B","Anesthesia Technique",.01)="1"
^DD(130.06,"B","Anesthesia Ventilator Rate",20)="1"
^DD(130.06,"B","Approach Technique",3)="1"
^DD(130.06,"B","BACT. FILTER IN CIRCUIT",18)=""
^DD(130.06,"B","BARICITY",26)=""
^DD(130.06,"B","BITE BLOCK (Y/N)",13)=""
^DD(130.06,"B","BLOCK SITE",38)=""
^DD(130.06,"B","BREATH SOUNDS OK BILAT",16)=""
^DD(130.06,"B","Baricity",26)="1"
^DD(130.06,"B","CATHETER REMOVED BY",35)=""
^DD(130.06,"B","CONTINUOUS",25)=""
^DD(130.06,"B","DATE/TIME CATHETER REMOVED",44)=""
^DD(130.06,"B","DURAL PUNCTURE",34)=""
^DD(130.06,"B","Dural Puncture ?  (Y/N)",34)="1"
^DD(130.06,"B","END VENT. RATE",20)=""
^DD(130.06,"B","END VENT. T.V.",19)=""
^DD(130.06,"B","EPIDURAL METHOD",30)=""
^DD(130.06,"B","EXTUBATED BY",39)=""
^DD(130.06,"B","EXTUBATED IN",21)=""
^DD(130.06,"B","Endotracheal Tube Route",4)="1"
^DD(130.06,"B","Endotracheal Tube Size",11)="1"
^DD(130.06,"B","Epidural Test Dose",32)="1"
^DD(130.06,"B","HEAT, MOISTURE EXCHANGER",17)=""
^DD(130.06,"B","INTUBATED ?  (Y/N)",42)=""
^DD(130.06,"B","LARYNGOSCOPE SIZE",6)=""
^DD(130.06,"B","LARYNGOSCOPE TYPE",5)=""
^DD(130.06,"B","LEVEL",43)=""
^DD(130.06,"B","LIDOCAINE IV",9)=""
^DD(130.06,"B","LIDOCAINE TOPICAL",8)=""
^DD(130.06,"B","Laryngoscope Size",6)="1"
^DD(130.06,"B","MONITORED ANES CARE ?(Y/N)",41)=""
^DD(130.06,"B","MULTIPLE ATTEMPTS",31)=""
^DD(130.06,"B","Method of Administration",36)="1"
^DD(130.06,"B","NEEDLE SIZE",29)=""
^DD(130.06,"B","Needle Size",29)="1"
^DD(130.06,"B","PATIENT STATUS",2)=""
^DD(130.06,"B","PREOXYGENATION",23)=""
^DD(130.06,"B","PRINCIPAL TECH",.05)=""
^DD(130.06,"B","PUNCTURE SITE",27)=""
^DD(130.06,"B","PURPOSE",37)=""
^DD(130.06,"B","Patient Status",2)="1"
^DD(130.06,"B","Preoxygenation ?  (Y/N)",23)="1"
^DD(130.06,"B","Puncture Site",27)="1"
^DD(130.06,"B","REINTUBATED W/I 8 HRS.",22)=""
^DD(130.06,"B","ROUTE",4)=""
^DD(130.06,"B","Regional Block Site",38)="1"
^DD(130.06,"B","SPINAL APPROACH",28)=""
^DD(130.06,"B","STYLET USED (Y/N)",7)=""
^DD(130.06,"B","Spinal Approach",28)="1"
^DD(130.06,"B","TAPED AT LENGTH",15)=""
^DD(130.06,"B","TEST DOSE",32)=""
^DD(130.06,"B","TEST DOSE VOL (ml)",33)=""
^DD(130.06,"B","TRAUMA",12)=""
^DD(130.06,"B","TUBE LUBRICATION",14)=""
^DD(130.06,"B","TUBE SIZE",11)=""
^DD(130.06,"B","TUBE TYPE",10)=""
^DD(130.06,"B","Taped at what Length",15)="1"
^DD(130.06,"B","Test Dose Volume (ml)",33)="1"
^DD(130.06,"B","Type of Endotracheal Tube",10)="1"
^DD(130.06,"B","Type of Laryngoscope",5)="1"
^DD(130.06,"B","Was a Bite Block Used ?  (Y/N)",13)="1"
^DD(130.06,"B","Was a Stylet Used ?  (Y/N)",7)="1"
^DD(130.06,"B","Who Removed the Catheter ?",35)="1"
^DD(130.06,"GL",0,1,.01)=""
^DD(130.06,"GL",0,3,.05)=""
^DD(130.06,"GL",0,4,2)=""
^DD(130.06,"GL",0,5,3)=""
^DD(130.06,"GL",0,6,4)=""
^DD(130.06,"GL",0,7,5)=""
^DD(130.06,"GL",0,8,6)=""
^DD(130.06,"GL",0,9,7)=""
^DD(130.06,"GL",0,10,8)=""
^DD(130.06,"GL",0,11,9)=""
^DD(130.06,"GL",0,12,10)=""
^DD(130.06,"GL",0,13,11)=""
^DD(130.06,"GL",0,14,12)=""
^DD(130.06,"GL",0,15,13)=""
^DD(130.06,"GL",0,16,14)=""
^DD(130.06,"GL",0,17,15)=""
^DD(130.06,"GL",0,18,16)=""
^DD(130.06,"GL",0,19,17)=""
^DD(130.06,"GL",0,20,18)=""
^DD(130.06,"GL",0,21,19)=""
^DD(130.06,"GL",0,22,20)=""
^DD(130.06,"GL",0,23,21)=""
^DD(130.06,"GL",0,24,22)=""
^DD(130.06,"GL",0,25,23)=""
^DD(130.06,"GL",1,0,24)=""
^DD(130.06,"GL",2,1,25)=""
^DD(130.06,"GL",2,2,26)=""
^DD(130.06,"GL",2,3,27)=""
^DD(130.06,"GL",2,4,28)=""
^DD(130.06,"GL",2,5,29)=""
^DD(130.06,"GL",3,1,30)=""
^DD(130.06,"GL",3,2,31)=""
^DD(130.06,"GL",3,3,33)=""
^DD(130.06,"GL",3,4,34)=""
^DD(130.06,"GL",3,5,35)=""
^DD(130.06,"GL",3,6,36)=""
^DD(130.06,"GL",3,7,37)=""
^DD(130.06,"GL",4,0,32)=""
^DD(130.06,"GL",5,0,38)=""
^DD(130.06,"GL",6,1,39)=""
^DD(130.06,"GL",7,0,40)=""
^DD(130.06,"GL",8,1,41)=""
^DD(130.06,"GL",8,2,42)=""
^DD(130.06,"GL",8,3,43)=""
^DD(130.06,"GL",8,4,44)=""
^DD(130.06,"SB",130.47,24)=""
^DD(130.06,"SB",130.48,32)=""
^DD(130.06,"SB",130.49,38)=""
^DD(130.06,"SB",130.5,40)=""
^DD(130.064,0)="CULTURES SUB-FIELD^^.01^1"
^DD(130.064,0,"NM","CULTURES")=""
^DD(130.064,0,"UP")="130"
^DD(130.064,.01,0)="CULTURES^W^^0;1^Q"
^DD(130.064,.01,.1)="Cultures"
^DD(130.064,.01,3)="Enter the names of cultures sent to the lab."
^DD(130.064,.01,21,0)="^^2^2^2900911^"
^DD(130.064,.01,21,1,0)="These are the names of cultures sent to the Laboratory for examination."
^DD(130.064,.01,21,2,0)=" "
^DD(130.064,.01,"DT")="2900911"
^DD(130.064,"B","CULTURES",.01)=""
^DD(130.064,"B","Cultures",.01)="1"
^DD(130.064,"GL",0,1,.01)=""
^DD(130.065,0)="SURGERY POSITION SUB-FIELD^^1^2"
^DD(130.065,0,"DT")="2920602"
^DD(130.065,0,"NM","SURGERY POSITION")=""
^DD(130.065,0,"UP")="130"
^DD(130.065,.01,0)="SURGERY POSITION^*P132'^SRO(132,^0;1^S DIC(""S"")=""I '$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.065,.01,.1)="Surgery Position"
^DD(130.065,.01,1,0)="^.1^^0"
^DD(130.065,.01,3)="Enter the position in which the patient is placed for this procedure."
^DD(130.065,.01,12)="Screen prevents selection of inactive entries."
^DD(130.065,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,4)"""
^DD(130.065,.01,21,0)="^^3^3^2921202^^^^"
^DD(130.065,.01,21,1,0)="This is the position in which the patient is placed for this operative"
^DD(130.065,.01,21,2,0)="procedure.  More than one position may be entered for each case."
^DD(130.065,.01,21,3,0)=" "
^DD(130.065,.01,"DT")="2920603"
^DD(130.065,1,0)="TIME PLACED^DX^^0;2^S Z=$E($P(^SRF(DA(1),0),""^"",9),1,7) D TIME^SROVAR K:Y<1!(X'[""."") X"
^DD(130.065,1,.1)="Date/Time Placed"
^DD(130.065,1,3)="Enter the time that the patient was placed in this position."
^DD(130.065,1,21,0)="^^3^3^2901002^"
^DD(130.065,1,21,1,0)="This is the date/time that the patient was placed in this position."
^DD(130.065,1,21,2,0)="Times without a date can be entered."
^DD(130.065,1,21,3,0)=" "
^DD(130.065,1,"DT")="2911023"
^DD(130.065,"B","Date/Time Placed",1)="1"
^DD(130.065,"B","SURGERY POSITION",.01)=""
^DD(130.065,"B","Surgery Position",.01)="1"
^DD(130.065,"B","TIME PLACED",1)=""
^DD(130.065,"GL",0,1,.01)=""
^DD(130.065,"GL",0,2,1)=""
^DD(130.07,0)="NURSING CARE COMMENTS SUB-FIELD^NL^.01^1"
^DD(130.07,0,"NM","NURSING CARE COMMENTS")=""
^DD(130.07,0,"UP")="130"
^DD(130.07,.01,0)="NURSING CARE COMMENTS^W^^0;1^Q"
^DD(130.07,.01,.1)="Nursing Care Comments"
^DD(130.07,.01,21,0)="^^4^4^2900105^^"
^DD(130.07,.01,21,1,0)="These are comments that affect or address nursing care delivery"
^DD(130.07,.01,21,2,0)="for the operative procedure(s) that are not addressed elsewhere."
^DD(130.07,.01,21,3,0)="This information reflects activities that may affect patient outcomes."
^DD(130.07,.01,21,4,0)=" "
^DD(130.07,.01,"DT")="2840622"
^DD(130.07,"B","NURSING CARE COMMENTS",.01)=""
^DD(130.07,"B","Nursing Care Comments",.01)="1"
^DD(130.07,"GL",0,1,.01)=""
^DD(130.08,0)="IRRIGATION SUB-FIELD^NL^1^2"
^DD(130.08,0,"DT")="2920603"
^DD(130.08,0,"NM","IRRIGATION")=""
^DD(130.08,0,"UP")="130"
^DD(130.08,.01,0)="IRRIGATION^*P133.6'^SRO(133.6,^0;1^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.08,.01,.1)="Irrigation Solution"
^DD(130.08,.01,3)="Enter the solution(s) used for irrigation during the operative procedure."
^DD(130.08,.01,12)="Screen prevents selection of inactive entries."
^DD(130.08,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(130.08,.01,21,0)="^^4^4^2900709^^"
^DD(130.08,.01,21,1,0)="This is the type of solution used for irrigation during the operative"
^DD(130.08,.01,21,2,0)="procedure.  If entered, this information appears on the Nurse "
^DD(130.08,.01,21,3,0)="Intraoperative Report."
^DD(130.08,.01,21,4,0)=" "
^DD(130.08,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.08,.01,"DT")="2920603"
^DD(130.08,1,0)="TIME^130.39DA^^1;0"
^DD(130.08,1,.1)="Date/Time the Irrigation Solution was Utilized"
^DD(130.08,1,21,0)="^^3^3^2900105^"
^DD(130.08,1,21,1,0)="This is information related to the time that the irrigation solution"
^DD(130.08,1,21,2,0)="was utilized."
^DD(130.08,1,21,3,0)=" "
^DD(130.08,"B","IRRIGATION",.01)=""
^DD(130.08,"B","Irrigation Solution",.01)="1"
^DD(130.08,"B","TIME",1)=""
^DD(130.08,"GL",0,1,.01)=""
^DD(130.08,"GL",1,0,1)=""
^DD(130.08,"SB",130.39,1)=""
^DD(130.082,0)="TIME OUT VERIFIED COMMENTS SUB-FIELD^^.01^1"
^DD(130.082,0,"DT")="3040428"
^DD(130.082,0,"NM","TIME OUT VERIFIED COMMENTS")=""
^DD(130.082,0,"UP")="130"
^DD(130.082,.01,0)="TIME OUT VERIFIED COMMENTS^W^^0;1"
^DD(130.082,.01,.1)="Time Out Verification Comments"
^DD(130.082,.01,21,0)="^^3^3^3040521^"
^DD(130.082,.01,21,1,0)="This word-processing field contains comments related to the TIME OUT"
^DD(130.082,.01,21,2,0)="VERIFIED field. The information entered in this field clarifies entry"
^DD(130.082,.01,21,3,0)="that is entered as ""NO""."
^DD(130.082,.01,"DT")="3040521"
^DD(130.082,"B","TIME OUT VERIFIED COMMENTS",.01)=""
^DD(130.082,"B","Time Out Verification Comments",.01)="1"
^DD(130.082,"GL",0,1,.01)=""
^DD(130.083,0)="IMAGING CONFIRMED COMMENTS SUB-FIELD^^.01^1"
^DD(130.083,0,"DT")="3040426"
^DD(130.083,0,"NM","IMAGING CONFIRMED COMMENTS")=""
^DD(130.083,0,"UP")="130"
^DD(130.083,.01,0)="IMAGING CONFIRMED COMMENTS^W^^0;1"
^DD(130.083,.01,.1)="Imaging Confirmed Comments"
^DD(130.083,.01,21,0)="^^3^3^3040521^"
^DD(130.083,.01,21,1,0)="This word-processing field contains comments related to the PREOPERATIVE"
^DD(130.083,.01,21,2,0)="IMAGING CONFIRMED field. The information entered in this field clarifies"
^DD(130.083,.01,21,3,0)="entry that is entered as ""NO""."
^DD(130.083,.01,"DT")="3040521"
^DD(130.083,"B","IMAGING CONFIRMED COMMENTS",.01)=""
^DD(130.083,"B","Imaging Confirmed Comments",.01)="1"
^DD(130.083,"GL",0,1,.01)=""
^DD(130.084,0)="MARKED SITE COMMENTS SUB-FIELD^^.01^1"
^DD(130.084,0,"DT")="3040428"
^DD(130.084,0,"NM","MARKED SITE COMMENTS")=""
^DD(130.084,0,"UP")="130"
^DD(130.084,.01,0)="MARKED SITE COMMENTS^W^^0;1"
^DD(130.084,.01,.1)="Mark on Surgical Site Comments"
^DD(130.084,.01,21,0)="^^3^3^3040521^"
^DD(130.084,.01,21,1,0)="This word-processing field contains comments related to the MARKED SITE"
^DD(130.084,.01,21,2,0)="CONFIRMED field. The information entered in this field clarifies entry"
^DD(130.084,.01,21,3,0)="that is entered as ""NO""."
^DD(130.084,.01,"DT")="3040521"
^DD(130.084,"B","MARKED SITE COMMENTS",.01)=""
^DD(130.084,"B","Mark on Surgical Site Comments",.01)="1"
^DD(130.084,"GL",0,1,.01)=""
^DD(130.09,0)="BRIEF CLIN HISTORY SUB-FIELD^^.01^1"
^DD(130.09,0,"NM","BRIEF CLIN HISTORY")=""
^DD(130.09,0,"UP")="130"
^DD(130.09,.01,0)="BRIEF CLIN HISTORY^W^^0;1^Q"
^DD(130.09,.01,.1)="Brief Clinical History"
^DD(130.09,.01,3)="Enter a Brief Clinical History."
^DD(130.09,.01,21,0)="^^4^4^2900716^"
^DD(130.09,.01,21,1,0)="This field will contain a brief clinical history which will appear on"
^DD(130.09,.01,21,2,0)="the Tissue Examination Report.  It should contain any information relevant"
^DD(130.09,.01,21,3,0)="to the specimens being sent to the laboratory."
^DD(130.09,.01,21,4,0)=" "
^DD(130.09,.01,"DT")="2900716"
^DD(130.09,"B","BRIEF CLIN HISTORY",.01)=""
^DD(130.09,"B","Brief Clinical History",.01)="1"
^DD(130.09,"GL",0,1,.01)=""
^DD(130.0904,0)="REVIEW OF DEATH COMMENTS SUB-FIELD^^.01^1"
^DD(130.0904,0,"DT")="2951215"
^DD(130.0904,0,"NM","REVIEW OF DEATH COMMENTS")=""
^DD(130.0904,0,"UP")="130"
^DD(130.0904,.01,0)="REVIEW OF DEATH COMMENTS^W^^0;1^Q"
^DD(130.0904,.01,.1)="Review of Death Comments"
^DD(130.0904,.01,3)="Enter comments related to the review of this patient's death."
^DD(130.0904,.01,21,0)="^^2^2^2951215^^"
^DD(130.0904,.01,21,1,0)="This word-processing field contains comments relating to the review of"
^DD(130.0904,.01,21,2,0)="this patient's death following surgery."
^DD(130.0904,.01,"DT")="2951215"
^DD(130.0904,"B","REVIEW OF DEATH COMMENTS",.01)=""
^DD(130.0904,"B","Review of Death Comments",.01)="1"
^DD(130.0904,"GL",0,1,.01)=""
^DD(130.1,0)="POSTOP ANES NOTE SUB-FIELD^^.01^1"
^DD(130.1,0,"DT")="3001023"
^DD(130.1,0,"NM","POSTOP ANES NOTE")=""
^DD(130.1,0,"UP")="130"
^DD(130.1,.01,0)="POSTOP ANES NOTE^W^^0;1^Q"
^DD(130.1,.01,.1)="Postop Anesthesia Note"
^DD(130.1,.01,3)="Enter the postop anesthesia note for this patient."
^DD(130.1,.01,21,0)="^.001^1^1^3010914^^^^"
^DD(130.1,.01,21,1,0)="This is the postop anesthesia note for this patient."
^DD(130.1,.01,"DT")="3001023"
^DD(130.1,"B","POSTOP ANES NOTE",.01)=""
^DD(130.1,"B","Postop Anesthesia Note",.01)="1"
^DD(130.1,"GL",0,1,.01)=""
^DD(130.12,0)="REPLACEMENT FLUID COMMENTS SUB-FIELD^NL^.01^1"
^DD(130.12,0,"NM","REPLACEMENT FLUID COMMENTS")=""
^DD(130.12,0,"UP")="130.04"
^DD(130.12,.01,0)="REPLACEMENT FLUID COMMENT^W^^0;1^Q"
^DD(130.12,.01,.1)="Replacement Fluid Comments"
^DD(130.12,.01,3)="                              "
^DD(130.12,.01,21,0)="^^3^3^2921106^"
^DD(130.12,.01,21,1,0)="These are comments related to this specific fluid type.  This"
^DD(130.12,.01,21,2,0)="information is used in documenting the case."
^DD(130.12,.01,21,3,0)=" "
^DD(130.12,.01,"DT")="2840519"
^DD(130.12,"B","REPLACEMENT FLUID COMMENT",.01)=""
^DD(130.12,"B","Replacement Fluid Comments",.01)="1"
^DD(130.12,"GL",0,1,.01)=""
^DD(130.1264,0)="OCCURRENCE COMMENTS SUB-FIELD^^.01^1"
^DD(130.1264,0,"DT")="2920824"
^DD(130.1264,0,"NM","OCCURRENCE COMMENTS")=""
^DD(130.1264,0,"UP")="130.0126"
^DD(130.1264,.01,0)="OCCURRENCE COMMENTS^W^^0;1^Q"
^DD(130.1264,.01,.1)="Occurrence Comments"
^DD(130.1264,.01,3)="Enter comments regarding this occurrence."
^DD(130.1264,.01,21,0)="^^3^3^2920824^^"
^DD(130.1264,.01,21,1,0)="This is information that may be helpful in documentation of the"
^DD(130.1264,.01,21,2,0)="non-O.R. procedure occurrence."
^DD(130.1264,.01,21,3,0)="   "
^DD(130.1264,.01,"DT")="2960619"
^DD(130.1264,"B","OCCURRENCE COMMENTS",.01)=""
^DD(130.1264,"B","Occurrence Comments",.01)="1"
^DD(130.1264,"GL",0,1,.01)=""
^DD(130.1295,0)="LASER COMMENTS SUB-FIELD^^.01^1"
^DD(130.1295,0,"DT")="3010111"
^DD(130.1295,0,"NM","LASER COMMENTS")=""
^DD(130.1295,0,"UP")="130.0129"
^DD(130.1295,.01,0)="LASER COMMENTS^W^^0;1^Q"
^DD(130.1295,.01,.1)="Laser Comments"
^DD(130.1295,.01,3)="Enter any comments related to the use of this laser unit."
^DD(130.1295,.01,21,0)="^.001^2^2^3010914^^"
^DD(130.1295,.01,21,1,0)="This word-processing field contains comments about the use of this laser"
^DD(130.1295,.01,21,2,0)="unit during this procedure."
^DD(130.1295,.01,"DT")="3010111"
^DD(130.1295,"B","LASER COMMENTS",.01)=""
^DD(130.1295,"B","Laser Comments",.01)="1"
^DD(130.1295,"GL",0,1,.01)=""
^DD(130.13,0)="INTRAOPERATIVE OCCURRENCES SUB-FIELD^NL^4^6"
^DD(130.13,0,"DT")="2941217"
^DD(130.13,0,"NM","INTRAOPERATIVE OCCURRENCES")=""
^DD(130.13,0,"UP")="130"
^DD(130.13,.01,0)="INTRAOPERATIVE OCCURRENCES^MFX^^0;1^K:$L(X)>40!($L(X)<3)!($E(X,1,5)[""NONE"")!($E(X,1,5)[""None"")!($E(X,1,5)[""none"") X"
^DD(130.13,.01,.1)="Intraoperative Occurrences"
^DD(130.13,.01,3)="If there is a occurrence, your answer should be 3 to 40 characters in length."
^DD(130.13,.01,21,0)="^^4^4^2900109^^^"
^DD(130.13,.01,21,1,0)="This is the name of the intraoperative occurrence.  If no"
^DD(130.13,.01,21,2,0)="occurrences exist, this field should be left blank.  Do not"
^DD(130.13,.01,21,3,0)="enter 'NONE'.  It will not be accepted."
^DD(130.13,.01,21,4,0)=" "
^DD(130.13,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.13,.01,"DT")="2920330"
^DD(130.13,.05,0)="OUTCOME TO DATE^S^U:UNRESOLVED;I:IMPROVED;D:DEATH;W:WORSE;^0;6^Q"
^DD(130.13,.05,.1)="Outcome to Date"
^DD(130.13,.05,21,0)="^^3^3^2900109^"
^DD(130.13,.05,21,1,0)="This is the code corresponding to the outcome of this intraoperative"
^DD(130.13,.05,21,2,0)="occurrence."
^DD(130.13,.05,21,3,0)=" "
^DD(130.13,.05,"DT")="2910125"
^DD(130.13,1,0)="OCCURRENCE COMMENTS^130.21^^1;0"
^DD(130.13,1,.1)="Occurrence Comments"
^DD(130.13,1,21,0)="^^2^2^2900109^"
^DD(130.13,1,21,1,0)="These are comments related to this intraoperative occurrence."
^DD(130.13,1,21,2,0)=" "
^DD(130.13,2,0)="TREATMENT INSTITUTED^F^^2;1^K:$L(X)>40!($L(X)<1) X"
^DD(130.13,2,.1)="Type of Treatment Instituted"
^DD(130.13,2,3)="Your answer must be 1 to 40 characters in length."
^DD(130.13,2,21,0)="^^3^3^2900720^^"
^DD(130.13,2,21,1,0)="This is descriptive information related to the type of treatment"
^DD(130.13,2,21,2,0)="instituted as a result of this occurrence."
^DD(130.13,2,21,3,0)=" "
^DD(130.13,2,"DT")="2870325"
^DD(130.13,3,0)="OCCURRENCE CATEGORY^R*P136.5'^SRO(136.5,^0;2^S DIC(""S"")=""I '$P(^(0),U,2),$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.13,3,.1)="Occurrence Category"
^DD(130.13,3,3)="Enter the name of the category most closely related to this occurrence."
^DD(130.13,3,12)="Screen prevents selection of inactive occurrence categories."
^DD(130.13,3,12.1)="S DIC(""S"")=""I '$P(^(0),U,2),$P(^(0),U,3)"""
^DD(130.13,3,21,0)="^^4^4^2910501^^"
^DD(130.13,3,21,1,0)="This is the name of the category in which this occurrence will be grouped."
^DD(130.13,3,21,2,0)="The category should be entered for all occurrences and will be used for"
^DD(130.13,3,21,3,0)="Surgery Central Office Reporting Needs."
^DD(130.13,3,21,4,0)=" "
^DD(130.13,3,"DT")="2951113"
^DD(130.13,4,0)="ICD DIAGNOSIS CODE^*P80'X^ICD9(^0;3^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.13,4,.1)="ICD Diagnosis Code"
^DD(130.13,4,3)="Enter the ICD Diagnosis code corresponding to this intraoperative occurrence."
^DD(130.13,4,12)="Screen prevents selection of inactive diagnosis."
^DD(130.13,4,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^DD(130.13,4,21,0)="^^3^3^2920330^"
^DD(130.13,4,21,1,0)="If the occurrence entered does not fit in any of the predefined"
^DD(130.13,4,21,2,0)="categories, it must have an ICD Diagnosis code entered."
^DD(130.13,4,21,3,0)=" "
^DD(130.13,4,"DT")="3030411"
^DD(130.13,"B","ICD DIAGNOSIS CODE",4)=""
^DD(130.13,"B","ICD Diagnosis Code",4)="1"
^DD(130.13,"B","INTRAOPERATIVE OCCURRENCES",.01)=""
^DD(130.13,"B","Intraoperative Occurrences",.01)="1"
^DD(130.13,"B","OCCURRENCE CATEGORY",3)=""
^DD(130.13,"B","OCCURRENCE COMMENTS",1)=""
^DD(130.13,"B","OUTCOME TO DATE",.05)=""
^DD(130.13,"B","Occurrence Category",3)="1"
^DD(130.13,"B","Occurrence Comments",1)="1"
^DD(130.13,"B","Outcome to Date",.05)="1"
^DD(130.13,"B","TREATMENT INSTITUTED",2)=""
^DD(130.13,"B","Type of Treatment Instituted",2)="1"
^DD(130.13,"GL",0,1,.01)=""
^DD(130.13,"GL",0,2,3)=""
^DD(130.13,"GL",0,3,4)=""
^DD(130.13,"GL",0,6,.05)=""
^DD(130.13,"GL",1,0,1)=""
^DD(130.13,"GL",2,1,2)=""
^DD(130.13,"RQ",3)=""
^DD(130.13,"SB",130.21,1)=""
^DD(130.14,0)="REQ BLOOD KIND SUB-FIELD^NL^3^4"
^DD(130.14,0,"DT")="2910814"
^DD(130.14,0,"NM","REQ BLOOD KIND")=""
^DD(130.14,0,"UP")="130"
^DD(130.14,.01,0)="REQ BLOOD KIND^MFX^^0;1^D ITRAN^VBECA5A"
^DD(130.14,.01,.1)="Required Blood Product"
^DD(130.14,.01,3)="Answer must be 3-45 characters in length"
^DD(130.14,.01,4)="D LIST66^VBECA5A"
^DD(130.14,.01,12)="Selects only orderable blood components."
^DD(130.14,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,15)"""
^DD(130.14,.01,21,0)="^.001^3^3^3020805^^^^"
^DD(130.14,.01,21,1,0)="This is the blood product required during this operative procedure."
^DD(130.14,.01,21,2,0)="More than one type of blood product may be ordered for a procedure."
^DD(130.14,.01,21,3,0)=" "
^DD(130.14,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.14,.01,"DT")="3020729"
^DD(130.14,1,0)="UNITS REQ^NJ3,0^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.14,1,.1)="Units Required"
^DD(130.14,1,3)="Enter a whole number between 0 and 100."
^DD(130.14,1,21,0)="^^3^3^2900109^^^^"
^DD(130.14,1,21,1,0)="This is the number of units of this blood product type estimated to"
^DD(130.14,1,21,2,0)="be required for this procedure."
^DD(130.14,1,21,3,0)=" "
^DD(130.14,1,"DT")="2840622"
^DD(130.14,2,0)="SCREEN, CROSSMATCH, AUTOLOGOUS^S^C:CROSSMATCH;S:SCREEN;A:AUTOLOGOUS;^0;3^Q"
^DD(130.14,2,.1)="Screen, Crossmatch, or Autologous"
^DD(130.14,2,21,0)="^^3^3^2900911^^^^"
^DD(130.14,2,21,1,0)="This indicates whether the blood product is screened, crossmatched, or"
^DD(130.14,2,21,2,0)="autologous."
^DD(130.14,2,21,3,0)=" "
^DD(130.14,2,"DT")="2900911"
^DD(130.14,3,0)="REASON NOT USE STD^130.27^^1;0"
^DD(130.14,3,.1)="Reason the Standard Amount wasn't Used"
^DD(130.14,3,21,0)="^^2^2^2900109^"
^DD(130.14,3,21,1,0)="This indicates why the standard unit of this blood product was not used."
^DD(130.14,3,21,2,0)=" "
^DD(130.14,"B","REASON NOT USE STD",3)=""
^DD(130.14,"B","REQ BLOOD KIND",.01)=""
^DD(130.14,"B","Required Blood Product",.01)="1"
^DD(130.14,"B","SCREEN, CROSSMATCH, AUTOLOGOUS",2)=""
^DD(130.14,"B","UNITS REQ",1)=""
^DD(130.14,"B","Units Required",1)="1"
^DD(130.14,"GL",0,1,.01)=""
^DD(130.14,"GL",0,2,1)=""
^DD(130.14,"GL",0,3,2)=""
^DD(130.14,"GL",1,0,3)=""
^DD(130.14,"SB",130.27,3)=""
^DD(130.15,0)="SURGEON'S DICTATION SUB-FIELD^NL^.01^1"
^DD(130.15,0,"NM","SURGEON'S DICTATION")=""
^DD(130.15,0,"UP")="130"
^DD(130.15,.01,0)="SURGEON'S DICTATION^W^^0;1^Q"
^DD(130.15,.01,.1)="Surgeon's Operation Notes"
^DD(130.15,.01,21,0)="^^2^2^2900709^"
^DD(130.15,.01,21,1,0)="This is the Surgeon's dictated Operation Note."
^DD(130.15,.01,21,2,0)=" "
^DD(130.15,.01,"DT")="2840825"
^DD(130.15,"B","SURGEON'S DICTATION",.01)=""
^DD(130.15,"B","Surgeon's Operation Notes",.01)="1"
^DD(130.15,"GL",0,1,.01)=""
^DD(130.16,0)="OTHER PROCEDURES SUB-FIELD^NL^5^6"
^DD(130.16,0,"IX","ACPT1",130.16,3)=""
^DD(130.16,0,"NM","OTHER PROCEDURES")=""
^DD(130.16,0,"UP")="130"
^DD(130.16,.01,0)="OTHER PROCEDURE^MFX^^0;1^K:$L(X)>50!($L(X)<1) X D:$D(X) PROC^SROPROC,OCPTASO^SROADX2(0) K:$G(X)="""" X"
^DD(130.16,.01,.1)="Other Procedure (Same Specialty)"
^DD(130.16,.01,1,0)="^.1^^0"
^DD(130.16,.01,3)="Your answer must be 1 to 50 characters in length."
^DD(130.16,.01,21,0)="^^8^8^3040316^"
^DD(130.16,.01,21,1,0)="NSQIP Definition (2004):"
^DD(130.16,.01,21,2,0)="An additional operative procedure performed by the same surgical team "
^DD(130.16,.01,21,3,0)="(i.e., the same specialty/service) under the same anesthetic which has "
^DD(130.16,.01,21,4,0)="a CPT code different from that of the Principal Operative Procedure"
^DD(130.16,.01,21,5,0)="(e.g., a splenectomy performed in the course of a cholecystectomy).  "
^DD(130.16,.01,21,6,0)="Your answer must be 1 to 50 characters in length. This field should be"
^DD(130.16,.01,21,7,0)="verified and, if need be, edited postoperatively by the Nurse Reviewer"
^DD(130.16,.01,21,8,0)="in accordance with the official operating room log."
^DD(130.16,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.16,.01,"DT")="3041101"
^DD(130.16,1.5,0)="PROCEDURE CODE COMMENTS^130.26^^1;0"
^DD(130.16,1.5,.1)="Operation Code Comments"
^DD(130.16,1.5,21,0)="^^2^2^2911206^^"
^DD(130.16,1.5,21,1,0)="These are comments related to this procedure."
^DD(130.16,1.5,21,2,0)=" "
^DD(130.16,1.5,"DT")="2911206"
^DD(130.16,2,0)="COMPLETED^S^Y:YES;N:NO;^0;3^Q"
^DD(130.16,2,.1)="Procedure Complete (Y/N)"
^DD(130.16,2,21,0)="^^2^2^2911206^^^"
^DD(130.16,2,21,1,0)="This indicates whether this procedure was completed."
^DD(130.16,2,21,2,0)=" "
^DD(130.16,2,"DT")="2880226"
^DD(130.16,3,0)="PLANNED OTHER PROC CPT CODE^*P81'OX^ICPT(^2;1^D OCPTASO^SROADX2(1) K:X="""" X D IN^SROCPT S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.16,3,.1)="Planned Other Procedure CPT Code"
^DD(130.16,3,1,0)="^.1^^-1"
^DD(130.16,3,1,2,0)="130.16^ACPT1^MUMPS"
^DD(130.16,3,1,2,1)="D SOTH^SROMOD"
^DD(130.16,3,1,2,2)="D KOTH^SROMOD"
^DD(130.16,3,1,2,"%D",0)="^.101^21^21^3041216^^"
^DD(130.16,3,1,2,"%D",1,0)="This MUMPS cross reference provides for updating CPT modifiers for other"
^DD(130.16,3,1,2,"%D",2,0)="procedure CPT codes.  CPT modifiers for the OTHER PROCEDURE CPT CODE field"
^DD(130.16,3,1,2,"%D",3,0)="(#3) of the OTHER PROCEDURES multiple field (#.42) in SURGERY file (#130)"
^DD(130.16,3,1,2,"%D",4,0)="are stored in the OTHER PROCEDURE CPT MODIFIER field (#.01) of the OTHER"
^DD(130.16,3,1,2,"%D",5,0)="PROCEDURE CPT MODIFIER multiple field (#4) of the OTHER PROCEDURES"
^DD(130.16,3,1,2,"%D",6,0)="multiple field (#.42)."
^DD(130.16,3,1,2,"%D",7,0)=" "
^DD(130.16,3,1,2,"%D",8,0)="After selecting a CPT code, this cross reference prompts the user for a"
^DD(130.16,3,1,2,"%D",9,0)="CPT modifier.  If a CPT modifier was entered concatenated with a hyphen to"
^DD(130.16,3,1,2,"%D",10,0)="the CPT code, this CPT modifier is displayed as a default modifier. Upon"
^DD(130.16,3,1,2,"%D",11,0)="entering a CPT modifier, the user is prompted for another CPT modifier"
^DD(130.16,3,1,2,"%D",12,0)="until the user makes a null entry. CPT modifier input is controlled by the"
^DD(130.16,3,1,2,"%D",13,0)="input transform on the OTHER PROCEDURE CPT MODIFIER field (#.01 of"
^DD(130.16,3,1,2,"%D",14,0)="sub-file #130.164).  At the CPT modifier prompt, the user may enter a"
^DD(130.16,3,1,2,"%D",15,0)="question mark (?) to see a list of CPT modifiers already entered and a"
^DD(130.16,3,1,2,"%D",16,0)="list of acceptable CPT modifiers to choose from.  If the user selects a"
^DD(130.16,3,1,2,"%D",17,0)="modifier already entered, the user may change or delete the modifier.  If"
^DD(130.16,3,1,2,"%D",18,0)="a user enters a new CPT code, replacing a previously entered CPT code,"
^DD(130.16,3,1,2,"%D",19,0)="KILL logic on the ACPT1 cross reference deletes any previously entered CPT"
^DD(130.16,3,1,2,"%D",20,0)="modifiers for the old CPT code before the SET logic prompts the user to"
^DD(130.16,3,1,2,"%D",21,0)="enter CPT modifiers for the new CPT code."
^DD(130.16,3,1,2,"DT")="2990225"
^DD(130.16,3,2)="S Y(0)=Y D OTHDISP^SROCPT"
^DD(130.16,3,2.1)="D OTHDISP^SROCPT"
^DD(130.16,3,3)="Enter the planned CPT code for this procedure."
^DD(130.16,3,12)="Screen out Inactive Codes"
^DD(130.16,3,12.1)="S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^DD(130.16,3,21,0)="^.001^5^5^3050624^^"
^DD(130.16,3,21,1,0)="This is the Current Procedural Terminology (CPT) code corresponding to"
^DD(130.16,3,21,2,0)="this planned operative procedure. A CPT modifier on the CPT code may be"
^DD(130.16,3,21,3,0)="included by appending the modifier to the CPT code separated by a"
^DD(130.16,3,21,4,0)="hyphen in the format ""XXXXX-YY"" where ""XXXXX"" is the five character CPT"
^DD(130.16,3,21,5,0)="code and ""YY"" is the two character CPT modifier."
^DD(130.16,3,"DT")="3050606"
^DD(130.16,4,0)="OTHER PROCEDURE CPT MODIFIER^130.164P^^MOD;0"
^DD(130.16,5,0)="OTHER ASSOC DIAGNOSIS^130.165A^^OADX;0"
^DD(130.16,5,21,0)="^.001^2^2^3040227^^^^"
^DD(130.16,5,21,1,0)="The OTHER ASSOC DIAGNOSIS is used to associate diagnoses to OTHER "
^DD(130.16,5,21,2,0)="PROCEDURES.  This information is needed to generate a clean claim."
^DD(130.16,5,"DT")="3040227"
^DD(130.16,"B","COMPLETED",2)=""
^DD(130.16,"B","OTHER ASSOC DIAGNOSIS",5)=""
^DD(130.16,"B","OTHER PROCEDURE",.01)=""
^DD(130.16,"B","OTHER PROCEDURE CPT MODIFIER",4)=""
^DD(130.16,"B","Operation Code Comments",1.5)="1"
^DD(130.16,"B","PLANNED OTHER PROC CPT CODE",3)=""
^DD(130.16,"B","PROCEDURE CODE COMMENTS",1.5)=""
^DD(130.16,"B","Procedure Complete (Y/N)",2)="1"
^DD(130.16,"GL",0,1,.01)=""
^DD(130.16,"GL",0,3,2)=""
^DD(130.16,"GL",1,0,1.5)=""
^DD(130.16,"GL",2,1,3)=""
^DD(130.16,"GL","MOD",0,4)=""
^DD(130.16,"GL","OADX",0,5)=""
^DD(130.16,"IX",3)=""
^DD(130.16,"SB",130.164,4)=""
^DD(130.16,"SB",130.165,5)=""
^DD(130.16,"SB",130.26,1.5)=""
^DD(130.164,0)="OTHER PROCEDURE CPT MODIFIER SUB-FIELD^^.01^1"
^DD(130.164,0,"DT")="2990225"
^DD(130.164,0,"NM","OTHER PROCEDURE CPT MODIFIER")=""
^DD(130.164,0,"UP")="130.16"
^DD(130.164,.01,0)="OTHER PROCEDURE CPT MODIFIER^M*P81.3'XO^DIC(81.3,^0;1^S DIC(""S"")=""I $$OTH^SROMOD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.164,.01,.1)="Other Procedure CPT Modifier"
^DD(130.164,.01,1,0)="^.1^^0"
^DD(130.164,.01,2)="S Y(0)=Y D DISPLAY^SROMOD"
^DD(130.164,.01,2.1)="D DISPLAY^SROMOD"
^DD(130.164,.01,3)="Enter a CPT modifier for this procedure."
^DD(130.164,.01,12)="Screen prevents selection of modifier inappropriate for CPT code."
^DD(130.164,.01,12.1)="S DIC(""S"")=""I $$OTH^SROMOD"""
^DD(130.164,.01,21,0)="^^3^3^2990804^^^^"
^DD(130.164,.01,21,1,0)="This is a procedural coding modifier used to indicate that the other"
^DD(130.164,.01,21,2,0)="procedure performed has been altered by some specific circumstance but not"
^DD(130.164,.01,21,3,0)="changed in its definition or code."
^DD(130.164,.01,"DT")="3021122"
^DD(130.164,"B","OTHER PROCEDURE CPT MODIFIER",.01)=""
^DD(130.164,"B","Other Procedure CPT Modifier",.01)="1"
^DD(130.164,"GL",0,1,.01)=""
^DD(130.165,0)="OTHER ASSOC DIAGNOSIS SUB-FIELD^^.01^1"
^DD(130.165,0,"DT")="3030815"
^DD(130.165,0,"IX","B",130.165,.01)=""
^DD(130.165,0,"NM","OTHER ASSOC DIAGNOSIS")=""
^DD(130.165,0,"UP")="130.16"
^DD(130.165,.01,0)="OTHER ASSOC DIAGNOSIS^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.165,.01,.1)="Other Associated Diagnosis"
^DD(130.165,.01,1,0)="^.1^^-1"
^DD(130.165,.01,1,1,0)="130.165^B"
^DD(130.165,.01,1,1,1)="S ^SRF(DA(2),13,DA(1),""OADX"",""B"",$E(X,1,30),DA)="""""
^DD(130.165,.01,1,1,2)="K ^SRF(DA(2),13,DA(1),""OADX"",""B"",$E(X,1,30),DA)"
^DD(130.165,.01,3)="The associated Diagnosis can only be added via the Surgery Menu options."
^DD(130.165,.01,21,0)="^^2^2^3040227^"
^DD(130.165,.01,21,1,0)="The OTHER ASSOC DIAGNOSIS is used to associate diagnoses to OTHER "
^DD(130.165,.01,21,2,0)="PROCEDURES.  This information is needed to generate a clean claim."
^DD(130.165,.01,"DT")="3050606"
^DD(130.165,"B","OTHER ASSOC DIAGNOSIS",.01)=""
^DD(130.165,"B","Other Associated Diagnosis",.01)="1"
^DD(130.165,"GL",0,1,.01)=""
^DD(130.165,"IX",.01)=""
^DD(130.17,0)="OTHER PREOP DIAGNOSIS SUB-FIELD^NL^3^4"
^DD(130.17,0,"DT")="2930521"
^DD(130.17,0,"NM","OTHER PREOP DIAGNOSIS")=""
^DD(130.17,0,"UP")="130"
^DD(130.17,.01,0)="OTHER PREOP DIAGNOSIS^MFX^^0;1^K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL"
^DD(130.17,.01,.1)="Additional Preoperative Diagnosis"
^DD(130.17,.01,3)="Your answer must be 1 to 40 characters in length."
^DD(130.17,.01,21,0)="^^3^3^2900709^^"
^DD(130.17,.01,21,1,0)="This is the name of an additional preoperative diagnosis, not provided"
^DD(130.17,.01,21,2,0)="in the principal preoperative diagnosis."
^DD(130.17,.01,21,3,0)=" "
^DD(130.17,.01,"DT")="3000504"
^DD(130.17,1,0)="*PAIRED ORGAN^S^L:LEFT;R:RIGHT;B:BILATERAL;N:NOT APPLICABLE;U:UNKNOWN;^0;2^Q"
^DD(130.17,1,21,0)="^^3^3^2900125^^^"
^DD(130.17,1,21,1,0)="This is the code corresponding to the side of the body related to this"
^DD(130.17,1,21,2,0)="preoperative diagnosis, if applicable."
^DD(130.17,1,21,3,0)=" "
^DD(130.17,1,"DT")="2850917"
^DD(130.17,2,0)="DIAGNOSIS COMMENTS^130.2^^1;0"
^DD(130.17,2,.1)="Diagnosis Comments"
^DD(130.17,2,21,0)="^^2^2^2900109^"
^DD(130.17,2,21,1,0)="These are comments related to the additional preoperative diagnosis."
^DD(130.17,2,21,2,0)=" "
^DD(130.17,3,0)="ICD DIAGNOSIS CODE^*P80'X^ICD9(^0;3^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.17,3,.1)="ICD Diagnosis Code"
^DD(130.17,3,3)="Enter the ICD Diagnosis code which corresponds with this diagnosis."
^DD(130.17,3,12)="Screen prevents selection of inactive diagnosis."
^DD(130.17,3,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^DD(130.17,3,21,0)="^^4^4^2920504^"
^DD(130.17,3,21,1,0)="This is the ICD Diagnosis Code which corresponds with this diagnosis."
^DD(130.17,3,21,2,0)="Entering this field is optional, but may be valuable in documentation"
^DD(130.17,3,21,3,0)="of this case."
^DD(130.17,3,21,4,0)=" "
^DD(130.17,3,"DT")="3030411"
^DD(130.17,"B","*PAIRED ORGAN",1)=""
^DD(130.17,"B","DIAGNOSIS COMMENTS",2)=""
^DD(130.17,"B","Diagnosis Comments",2)="1"
^DD(130.17,"B","ICD DIAGNOSIS CODE",3)=""
^DD(130.17,"B","ICD Diagnosis Code",3)="1"
^DD(130.17,"B","OTHER PREOP DIAGNOSIS",.01)=""
^DD(130.17,"GL",0,1,.01)=""
^DD(130.17,"GL",0,2,1)=""
^DD(130.17,"GL",0,3,3)=""
^DD(130.17,"GL",1,0,2)=""
^DD(130.17,"SB",130.2,2)=""
^DD(130.18,0)="OTHER POSTOP DIAGS SUB-FIELD^NL^11^12"
^DD(130.18,0,"DT")="2930521"
^DD(130.18,0,"IX","DADX1",130.18,.01)=""
^DD(130.18,0,"IX","PADX",130.18,3)=""
^DD(130.18,0,"NM","OTHER POSTOP DIAGS")=""
^DD(130.18,0,"UP")="130"
^DD(130.18,.01,0)="OTHER POSTOP DIAGS^MFX^^0;1^K:$L(X)>40!($L(X)<1) X D:$D(X) DIAG^SROUTL,PDXCHK^SROADX2(0) K:$G(X)="""" X"
^DD(130.18,.01,.1)="Other Postoperative Diagnosis"
^DD(130.18,.01,1,0)="^.1"
^DD(130.18,.01,1,1,0)="^^TRIGGER^130.18^4"
^DD(130.18,.01,1,1,1)="X ^DD(130.18,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,16) X ^DD(130.18,.01,1,1,1.4)"
^DD(130.18,.01,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,4,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,1)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,1,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,1)=DIV,DIH=130.18,DIG=4 D ^DICR"
^DD(130.18,.01,1,1,2)="Q"
^DD(130.18,.01,1,1,"CREATE CONDITION")="SERVICE CONNECTED="""""
^DD(130.18,.01,1,1,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,16)"
^DD(130.18,.01,1,1,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,1,"DT")="3030707"
^DD(130.18,.01,1,1,"FIELD")="SERVICE CONNECTED"
^DD(130.18,.01,1,2,0)="^^TRIGGER^130.18^10"
^DD(130.18,.01,1,2,1)="X ^DD(130.18,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,24) X ^DD(130.18,.01,1,2,1.4)"
^DD(130.18,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,10,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,2,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,7)=DIV,DIH=130.18,DIG=10 D ^DICR"
^DD(130.18,.01,1,2,2)="Q"
^DD(130.18,.01,1,2,"CREATE CONDITION")="COMBAT VET="""""
^DD(130.18,.01,1,2,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,24)"
^DD(130.18,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,2,"DT")="3040318"
^DD(130.18,.01,1,2,"FIELD")="COMBAT VET"
^DD(130.18,.01,1,3,0)="^^TRIGGER^130.18^5"
^DD(130.18,.01,1,3,1)="X ^DD(130.18,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,17) X ^DD(130.18,.01,1,3,1.4)"
^DD(130.18,.01,1,3,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,5,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,3,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,2)=DIV,DIH=130.18,DIG=5 D ^DICR"
^DD(130.18,.01,1,3,2)="Q"
^DD(130.18,.01,1,3,"CREATE CONDITION")="AGENT ORANGE="""""
^DD(130.18,.01,1,3,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,17)"
^DD(130.18,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,3,"DT")="3051117"
^DD(130.18,.01,1,3,"FIELD")="AGENT"
^DD(130.18,.01,1,4,0)="^^TRIGGER^130.18^6"
^DD(130.18,.01,1,4,1)="X ^DD(130.18,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,18) X ^DD(130.18,.01,1,4,1.4)"
^DD(130.18,.01,1,4,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,6,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,4,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=130.18,DIG=6 D ^DICR"
^DD(130.18,.01,1,4,2)="Q"
^DD(130.18,.01,1,4,"CREATE CONDITION")="IONIZING RADIATION EXPOSURE="""""
^DD(130.18,.01,1,4,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,18)"
^DD(130.18,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,4,"DT")="3051117"
^DD(130.18,.01,1,4,"FIELD")="IONIZI"
^DD(130.18,.01,1,5,0)="^^TRIGGER^130.18^9"
^DD(130.18,.01,1,5,1)="X ^DD(130.18,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,19) X ^DD(130.18,.01,1,5,1.4)"
^DD(130.18,.01,1,5,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,9,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,5,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,6)=DIV,DIH=130.18,DIG=9 D ^DICR"
^DD(130.18,.01,1,5,2)="Q"
^DD(130.18,.01,1,5,"CREATE CONDITION")="SOUTHWEST ASIA CONDITIONS="""""
^DD(130.18,.01,1,5,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,19)"
^DD(130.18,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,5,"DT")="3060726"
^DD(130.18,.01,1,5,"FIELD")="SOUTHWEST"
^DD(130.18,.01,1,6,0)="^^TRIGGER^130.18^7"
^DD(130.18,.01,1,6,1)="X ^DD(130.18,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,22) X ^DD(130.18,.01,1,6,1.4)"
^DD(130.18,.01,1,6,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,7,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,6,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,4)=DIV,DIH=130.18,DIG=7 D ^DICR"
^DD(130.18,.01,1,6,2)="Q"
^DD(130.18,.01,1,6,"CREATE CONDITION")="MILITARY SEXUAL TRAUMA="""""
^DD(130.18,.01,1,6,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,22)"
^DD(130.18,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,6,"DT")="3051117"
^DD(130.18,.01,1,6,"FIELD")="MILITARY"
^DD(130.18,.01,1,7,0)="^^TRIGGER^130.18^8"
^DD(130.18,.01,1,7,1)="X ^DD(130.18,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,23) X ^DD(130.18,.01,1,7,1.4)"
^DD(130.18,.01,1,7,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,8,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,7,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,5)=DIV,DIH=130.18,DIG=8 D ^DICR"
^DD(130.18,.01,1,7,2)="Q"
^DD(130.18,.01,1,7,"CREATE CONDITION")="HEAD AND/OR NECK CANCER="""""
^DD(130.18,.01,1,7,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,23)"
^DD(130.18,.01,1,7,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,7,"DT")="3051117"
^DD(130.18,.01,1,7,"FIELD")="HEAD"
^DD(130.18,.01,1,8,0)="^^TRIGGER^130.18^11"
^DD(130.18,.01,1,8,1)="X ^DD(130.18,.01,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P(^SRF(DA(1),0),U,25) X ^DD(130.18,.01,1,8,1.4)"
^DD(130.18,.01,1,8,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(130.18,11,0)),U,3),Y(1)=$S($D(^SRF(D0,15,D1,2)):^(2),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59))="""""
^DD(130.18,.01,1,8,1.4)="S DIH=$G(^SRF(DIV(0),15,DIV(1),2)),DIV=X S $P(^(2),U,8)=DIV,DIH=130.18,DIG=11 D ^DICR"
^DD(130.18,.01,1,8,2)="Q"
^DD(130.18,.01,1,8,"CREATE CONDITION")="PROJ 112="""""
^DD(130.18,.01,1,8,"CREATE VALUE")="S X=$P(^SRF(DA(1),0),U,25)"
^DD(130.18,.01,1,8,"DELETE VALUE")="NO EFFECT"
^DD(130.18,.01,1,8,"DT")="3051117"
^DD(130.18,.01,1,8,"FIELD")="PRO"
^DD(130.18,.01,1,9,0)="130.18^DADX1^MUMPS"
^DD(130.18,.01,1,9,1)="Q"
^DD(130.18,.01,1,9,2)="D DELASOC^SROADX2"
^DD(130.18,.01,1,9,"%D",0)="^^2^2^3051117^"
^DD(130.18,.01,1,9,"%D",1,0)="This MUMPS cross reference removes associations to procedures upon edits "
^DD(130.18,.01,1,9,"%D",2,0)="or deletes of the diagnosis."
^DD(130.18,.01,1,9,"DT")="3051117"
^DD(130.18,.01,3)="Your answer must be 1 to 40 characters in length."
^DD(130.18,.01,21,0)="^.001^3^3^3051117^^^^"
^DD(130.18,.01,21,1,0)="This is the name of a postoperative diagnosis other than the principal"
^DD(130.18,.01,21,2,0)="postoperative diagnosis."
^DD(130.18,.01,21,3,0)=" "
^DD(130.18,.01,"DT")="3060726"
^DD(130.18,1,0)="*PAIRED ORGANS^S^R:RIGHT;L:LEFT;B:BILATERAL;N:NOT APPLICABLE;U:UNKNOWN;^0;2^Q"
^DD(130.18,1,21,0)="^^3^3^2930322^^^"
^DD(130.18,1,21,1,0)="This is the code corresponding to the side of the body related to"
^DD(130.18,1,21,2,0)="this preoperative diagnosis, if applicable.  This field is marked"
^DD(130.18,1,21,3,0)="for deletion."
^DD(130.18,1,"DT")="2850917"
^DD(130.18,2,0)="DIAGNOSIS COMMENTS^130.19^^1;0"
^DD(130.18,2,.1)="Diagnosis Comments"
^DD(130.18,2,21,0)="^^2^2^2900109^"
^DD(130.18,2,21,1,0)="These are comments related to the additional postoperative diagnosis."
^DD(130.18,2,21,2,0)=" "
^DD(130.18,3,0)="PLANNED ICD DIAGNOSIS CODE^*P80'X^ICD9(^0;3^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.18,3,.1)="Planned Other ICD Diagnosis Code"
^DD(130.18,3,1,0)="^.1^^-1"
^DD(130.18,3,1,2,0)="130.18^PADX^MUMPS"
^DD(130.18,3,1,2,1)="Q"
^DD(130.18,3,1,2,2)="D DELASOC^SROADX2"
^DD(130.18,3,1,2,"%D",0)="^^2^2^3031014^"
^DD(130.18,3,1,2,"%D",1,0)="This MUMPS cross reference removes associations to procedures upon edits "
^DD(130.18,3,1,2,"%D",2,0)="or deletes of the diagnosis."
^DD(130.18,3,1,2,"DT")="3030923"
^DD(130.18,3,3)="Enter the planned ICD Diagnosis Code that corresponds to this diagnosis."
^DD(130.18,3,12)="Screen prevents selection of inactive diagnosis."
^DD(130.18,3,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^DD(130.18,3,21,0)="^^2^2^3050623^"
^DD(130.18,3,21,1,0)="This is the planned ICD-9-CM code corresponding with this postoperative"
^DD(130.18,3,21,2,0)="diagnosis."
^DD(130.18,3,"DT")="3050623"
^DD(130.18,4,0)="SERVICE CONNECTED^RS^0:NO;1:YES;^2;1^Q"
^DD(130.18,4,.1)="Treatment related to Service Connected condition (Y/N)"
^DD(130.18,4,3)="If this case is treating a service connected problem, enter YES. "
^DD(130.18,4,5,1,0)="130.18^.01^1"
^DD(130.18,4,21,0)="^^3^3^3040210^"
^DD(130.18,4,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure   "
^DD(130.18,4,21,2,0)="is treating a VA patient for a service connected problem.  This"
^DD(130.18,4,21,3,0)="information may be passed to the VISIT file (#9000010) for use by PCE."
^DD(130.18,4,"DT")="3030812"
^DD(130.18,5,0)="AGENT ORANGE EXPOSURE^RS^1:YES;0:NO;^2;2^Q"
^DD(130.18,5,.1)="Treatment related to Agent Orange Exposure (Y/N)"
^DD(130.18,5,3)="If this case is treating an agent orange exposure problem, enter YES. "
^DD(130.18,5,5,1,0)="130.18^.01^3"
^DD(130.18,5,21,0)="^^4^4^3040210^"
^DD(130.18,5,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure"
^DD(130.18,5,21,2,0)="is treating a VA patient for a problem that is related to Agent Orange"
^DD(130.18,5,21,3,0)="Exposure.  This information may be passed to the VISIT file (#9000010) for"
^DD(130.18,5,21,4,0)="use by PCE."
^DD(130.18,5,"DT")="3030812"
^DD(130.18,6,0)="IONIZING RADIATION EXPOSURE^RS^1:YES;0:NO;^2;3^Q"
^DD(130.18,6,.1)="Treatment related to Ionizing Radiation Exposure (Y/N)"
^DD(130.18,6,3)="If this case is treating an Ionizing Radiation Exposure problem, enter YES. "
^DD(130.18,6,5,1,0)="130.18^.01^4"
^DD(130.18,6,21,0)="^^4^4^3040210^"
^DD(130.18,6,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure is"
^DD(130.18,6,21,2,0)="treating a VA patient for a problem that is related to Ionizing Radiation"
^DD(130.18,6,21,3,0)="Exposure.  This information may be passed to the VISIT file (#9000010) for"
^DD(130.18,6,21,4,0)="use by PCE."
^DD(130.18,6,"DT")="3030812"
^DD(130.18,7,0)="MILITARY SEXUAL TRAUMA^RS^0:NO;1:YES;^2;4^Q"
^DD(130.18,7,.1)="Treatment related to Military Sexual Trauma (Y/N)"
^DD(130.18,7,3)="If this case is treating a problem related to Military Sexual Trauma, enter YES."
^DD(130.18,7,5,1,0)="130.18^.01^6"
^DD(130.18,7,21,0)="^^4^4^3040210^"
^DD(130.18,7,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure is"
^DD(130.18,7,21,2,0)="treating a VA patient for a problem that is related to Military Sexual"
^DD(130.18,7,21,3,0)="Trauma.  This information may be passed to the VISIT file (#9000010) for"
^DD(130.18,7,21,4,0)="use by PCE."
^DD(130.18,7,"DT")="3030812"
^DD(130.18,8,0)="HEAD AND/OR NECK CANCER^RS^0:NO;1:YES;^2;5^Q"
^DD(130.18,8,.1)="Treatment related to Head and/or Neck Cancer (Y/N)"
^DD(130.18,8,3)="If this case is treating a problem related to Head and/or Neck Cancer, enter YES."
^DD(130.18,8,5,1,0)="130.18^.01^7"
^DD(130.18,8,21,0)="^^4^4^3040210^"
^DD(130.18,8,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure is"
^DD(130.18,8,21,2,0)="treating a VA patient for a problem that is related to Head and/or Neck"
^DD(130.18,8,21,3,0)="Cancer.  This information may be passed to the VISIT file (#9000010) for"
^DD(130.18,8,21,4,0)="use by PCE."
^DD(130.18,8,"DT")="3030812"
^DD(130.18,9,0)="SOUTHWEST ASIA CONDITIONS^RS^0:NO;1:YES;^2;6^Q"
^DD(130.18,9,.1)="Treatment related to service in SW Asia (Y/N)"
^DD(130.18,9,3)="If this case is treating a SW Asia problem, enter YES."
^DD(130.18,9,5,1,0)="130.18^.01^5"
^DD(130.18,9,21,0)="^^4^4^3060726^"
^DD(130.18,9,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure "
^DD(130.18,9,21,2,0)="is treating a VA patient for a problem that is related to service in SW"
^DD(130.18,9,21,3,0)="Asia.  This information may be passed to the VISIT file (#9000010) for "
^DD(130.18,9,21,4,0)="use by PCE."
^DD(130.18,9,"DT")="3060726"
^DD(130.18,10,0)="COMBAT VET^RS^0:NO;1:YES;^2;7^Q"
^DD(130.18,10,.1)="Treatment related to Combat (Y/N)"
^DD(130.18,10,3)="If this case is treating a problem related to Combat, enter YES."
^DD(130.18,10,5,1,0)="130.18^.01^2"
^DD(130.18,10,21,0)="^.001^3^3^3040210^^"
^DD(130.18,10,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure "
^DD(130.18,10,21,2,0)="is treating a VA patient for a problem that is related to Combat.  This "
^DD(130.18,10,21,3,0)="information may be passed to the VISIT file (#9000010) for use by PCE."
^DD(130.18,10,"DT")="3040210"
^DD(130.18,11,0)="PROJ 112/SHAD^RS^0:NO;1:YES;^2;8^Q"
^DD(130.18,11,.1)="Treatment related to PROJ 112/SHAD (Y/N)"
^DD(130.18,11,3)="If this case is treating a problem related to PROJ 112/SHAD, enter YES."
^DD(130.18,11,5,1,0)="130.18^.01^8"
^DD(130.18,11,21,0)="^.001^4^4^3051117^^^^"
^DD(130.18,11,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure "
^DD(130.18,11,21,2,0)="is treating a VA patient for a problem that is related to PROJ 112/SHAD.  "
^DD(130.18,11,21,3,0)="This information may be passed to the VISIT file (#9000010) for use by "
^DD(130.18,11,21,4,0)="PCE."
^DD(130.18,11,"DT")="3051117"
^DD(130.18,"B","*PAIRED ORGANS",1)=""
^DD(130.18,"B","AGENT ORANGE EXPOSURE",5)=""
^DD(130.18,"B","COMBAT VET",10)=""
^DD(130.18,"B","DIAGNOSIS COMMENTS",2)=""
^DD(130.18,"B","Diagnosis Comments",2)="1"
^DD(130.18,"B","HEAD AND/OR NECK CANCER",8)=""
^DD(130.18,"B","IONIZING RADIATION EXPOSURE",6)=""
^DD(130.18,"B","MILITARY SEXUAL TRAUMA",7)=""
^DD(130.18,"B","OTHER POSTOP DIAGS",.01)=""
^DD(130.18,"B","Other Postoperative Diagnosis",.01)="1"
^DD(130.18,"B","PLANNED ICD DIAGNOSIS CODE",3)=""
^DD(130.18,"B","PROJ 112/SHAD",11)=""
^DD(130.18,"B","SERVICE CONNECTED",4)=""
^DD(130.18,"B","SOUTHWEST ASIA CONDITIONS",9)=""
^DD(130.18,"GL",0,1,.01)=""
^DD(130.18,"GL",0,2,1)=""
^DD(130.18,"GL",0,3,3)=""
^DD(130.18,"GL",1,0,2)=""
^DD(130.18,"GL",2,1,4)=""
^DD(130.18,"GL",2,2,5)=""
^DD(130.18,"GL",2,3,6)=""
^DD(130.18,"GL",2,4,7)=""
^DD(130.18,"GL",2,5,8)=""
^DD(130.18,"GL",2,6,9)=""
^DD(130.18,"GL",2,7,10)=""
^DD(130.18,"GL",2,8,11)=""
^DD(130.18,"IX",.01)=""
^DD(130.18,"IX",3)=""
^DD(130.18,"RQ",4)=""
^DD(130.18,"RQ",5)=""
^DD(130.18,"RQ",6)=""
^DD(130.18,"RQ",7)=""
^DD(130.18,"RQ",8)=""
^DD(130.18,"RQ",9)=""
^DD(130.18,"RQ",10)=""
^DD(130.18,"RQ",11)=""
^DD(130.18,"SB",130.19,2)=""
^DD(130.19,0)="DIAGNOSIS COMMENTS SUB-FIELD^NL^.01^1"
^DD(130.19,0,"NM","DIAGNOSIS COMMENTS")=""
^DD(130.19,0,"UP")="130.18"
^DD(130.19,.01,0)="DIAGNOSIS COMMENTS^W^^0;1^Q"
^DD(130.19,.01,.1)="Diagnosis Comments"
^DD(130.19,.01,21,0)="^^2^2^2900109^"
^DD(130.19,.01,21,1,0)="These are comments related to the additional postoperative diagnosis."
^DD(130.19,.01,21,2,0)=" "
^DD(130.19,.01,"DT")="2840827"
^DD(130.19,"B","DIAGNOSIS COMMENTS",.01)=""
^DD(130.19,"B","Diagnosis Comments",.01)="1"
^DD(130.19,"GL",0,1,.01)=""
^DD(130.2,0)="DIAGNOSIS COMMENTS SUB-FIELD^NL^.01^1"
^DD(130.2,0,"NM","DIAGNOSIS COMMENTS")=""
^DD(130.2,0,"UP")="130.17"
^DD(130.2,.01,0)="DIAGNOSIS COMMENTS^W^^0;1^Q"
^DD(130.2,.01,.1)="Diagnosis Comments"
^DD(130.2,.01,21,0)="^^2^2^2900109^"
^DD(130.2,.01,21,1,0)="These are comments related to the additional preoperative diagnosis."
^DD(130.2,.01,21,2,0)=" "
^DD(130.2,.01,"DT")="2840827"
^DD(130.2,"B","DIAGNOSIS COMMENTS",.01)=""
^DD(130.2,"B","Diagnosis Comments",.01)="1"
^DD(130.2,"GL",0,1,.01)=""
^DD(130.21,0)="OCCURRENCE COMMENTS SUB-FIELD^NL^.01^1"
^DD(130.21,0,"NM","OCCURRENCE COMMENTS")=""
^DD(130.21,0,"UP")="130.13"
^DD(130.21,.01,0)="COMMENTS^W^^0;1^Q"
^DD(130.21,.01,.1)="Occurrence Comments"
^DD(130.21,.01,21,0)="^^2^2^2900109^"
^DD(130.21,.01,21,1,0)="These are comments concerning this intraoperative occurrence."
^DD(130.21,.01,21,2,0)=" "
^DD(130.21,.01,"DT")="2840915"
^DD(130.21,"B","COMMENTS",.01)=""
^DD(130.21,"B","Occurrence Comments",.01)="1"
^DD(130.21,"GL",0,1,.01)=""
^DD(130.213,0)="ANES CARE TIME BLOCK SUB-FIELD^^1^2"
^DD(130.213,0,"DT")="3030620"
^DD(130.213,0,"IX","B",130.213,.01)=""
^DD(130.213,0,"NM","ANES CARE TIME BLOCK")=""
^DD(130.213,0,"UP")="130"
^DD(130.213,.01,0)="ANES CARE MULTIPLE START TIME^DX^^0;1^I $D(X) K %DT,Z S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X D STIME^SROANEST I $D(X),$D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") S SRFLD=.01,SRFLAG=1 D ^SROCON Q"
^DD(130.213,.01,.1)="Anesthesia Care Multiple Start Time"
^DD(130.213,.01,1,0)="^.1"
^DD(130.213,.01,1,1,0)="130.213^B"
^DD(130.213,.01,1,1,1)="S ^SRF(DA(1),50,""B"",$E(X,1,30),DA)="""""
^DD(130.213,.01,1,1,2)="K ^SRF(DA(1),50,""B"",$E(X,1,30),DA)"
^DD(130.213,.01,1,2,0)="130^AG^MUMPS"
^DD(130.213,.01,1,2,1)="D CSET^SROANEST"
^DD(130.213,.01,1,2,2)="D DEL^SROANEST"
^DD(130.213,.01,1,2,"%D",0)="^^6^6^3040412^"
^DD(130.213,.01,1,2,"%D",1,0)="The set cross reference is used to update the value of ANES"
^DD(130.213,.01,1,2,"%D",2,0)="CARE START TIME, field .21."
^DD(130.213,.01,1,2,"%D",3,0)=" "
^DD(130.213,.01,1,2,"%D",4,0)="The delete cross reference is used to delete the value in ANES CARE START "
^DD(130.213,.01,1,2,"%D",5,0)="TIME, FIELD .21, when the first ANES CARE MULTIPLE START TIME value is "
^DD(130.213,.01,1,2,"%D",6,0)="deleted."
^DD(130.213,.01,1,2,"DT")="3040412"
^DD(130.213,.01,3)="Enter the time a member of the Anesthesia staff begins preparing the patient for surgery in the O.R. suite or if the care is interrupted, the time the care resumes."
^DD(130.213,.01,7.5)="S SRFLAG=1 D SINPUT^SROANEST"
^DD(130.213,.01,21,0)="^.001^7^7^3040311^^"
^DD(130.213,.01,21,1,0)="This is the date and time that this block of anesthesia care began or"
^DD(130.213,.01,21,2,0)="if the care is interrupted, the time the care resumed.  It is required"
^DD(130.213,.01,21,3,0)="as part of the anesthesia report. The definition of what constitutes"
^DD(130.213,.01,21,4,0)="the time anesthesia care begins may vary depending on local anesthesia "
^DD(130.213,.01,21,5,0)="policy. Anesthesia care starts when the anesthesia practitioner begins "
^DD(130.213,.01,21,6,0)="to prepare the patient for anesthesia services in the operating room or "
^DD(130.213,.01,21,7,0)="an equivalent area."
^DD(130.213,.01,"DT")="3040412"
^DD(130.213,1,0)="ANES CARE MULTIPLE END TIME^DX^^0;2^D SINPUT^SROANEST I $D(X) K %DT,Z S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X D FINALT^SROANEST I $D(X),$D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") S SRFLD=1,SRFLAG=1 D ^SROCON Q"
^DD(130.213,1,.1)="Anesthesia Care Multiple End Time"
^DD(130.213,1,1,0)="^.1"
^DD(130.213,1,1,1,0)="130^AJ^MUMPS"
^DD(130.213,1,1,1,1)="D CSET^SROANEST"
^DD(130.213,1,1,1,2)="D DEL^SROANEST"
^DD(130.213,1,1,1,"%D",0)="^^6^6^3040412^"
^DD(130.213,1,1,1,"%D",1,0)="The set cross reference is used to update the value of ANES CARE END "
^DD(130.213,1,1,1,"%D",2,0)="TIME, field .24."
^DD(130.213,1,1,1,"%D",3,0)=" "
^DD(130.213,1,1,1,"%D",4,0)="The delete cross reference is used to delete the value in ANES CARE END "
^DD(130.213,1,1,1,"%D",5,0)="TIME, field .24, when the last ANES CARE MULTIPLE END TIME value is "
^DD(130.213,1,1,1,"%D",6,0)="deleted."
^DD(130.213,1,1,1,"DT")="3040412"
^DD(130.213,1,3)="Enter the time that the anesthesia staff transfers care to other care providers or the time that care has been interrupted."
^DD(130.213,1,21,0)="^^5^5^3040311^"
^DD(130.213,1,21,1,0)="This is the date and time that anesthesia care ends or is interrupted. "
^DD(130.213,1,21,2,0)="Its definition may vary according to local anesthesia policy. It ends"
^DD(130.213,1,21,3,0)="when the anesthesia practitioner is no longer furnishing anesthesia"
^DD(130.213,1,21,4,0)="services to the patient, that is, when the patient may be placed safely"
^DD(130.213,1,21,5,0)="under postoperative care."
^DD(130.213,1,"DT")="3040412"
^DD(130.213,"B","ANES CARE MULTIPLE END TIME",1)=""
^DD(130.213,"B","ANES CARE MULTIPLE START TIME",.01)=""
^DD(130.213,"GL",0,1,.01)=""
^DD(130.213,"GL",0,2,1)=""
^DD(130.213,"IX",.01)=""
^DD(130.213,"IX",1)=""
^DD(130.22,0)="POSTOP OCCURRENCE SUB-FIELD^NL^8^9"
^DD(130.22,0,"DT")="2941217"
^DD(130.22,0,"NM","POSTOP OCCURRENCE")=""
^DD(130.22,0,"UP")="130"
^DD(130.22,.01,0)="POSTOP OCCURRENCE^MFX^^0;1^K:$L(X)>40!($L(X)<3)!($E(X,1,5)[""NONE"")!($E(X,1,5)[""None"")!($E(X,1,5)[""none"") X"
^DD(130.22,.01,.1)="Postoperative Occurrence"
^DD(130.22,.01,3)="If a postoperative occurrence exists, your answer should be 3 to 40 characters."
^DD(130.22,.01,21,0)="^^4^4^2921106^^^^"
^DD(130.22,.01,21,1,0)="This is the name of a occurrence encountered postoperatively."
^DD(130.22,.01,21,2,0)="If there are no occurrences, this field should be left blank."
^DD(130.22,.01,21,3,0)="'NONE' will not be accepted."
^DD(130.22,.01,21,4,0)=" "
^DD(130.22,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.22,.01,"DT")="2881108"
^DD(130.22,.05,0)="OUTCOME TO DATE^S^U:UNRESOLVED;I:IMPROVED;D:DEATH;W:WORSE;^0;6^Q"
^DD(130.22,.05,.1)="Outcome to Date"
^DD(130.22,.05,21,0)="^^3^3^2900109^"
^DD(130.22,.05,21,1,0)="This is the code corresponding to the outcome of this postoperative"
^DD(130.22,.05,21,2,0)="occurrence."
^DD(130.22,.05,21,3,0)=" "
^DD(130.22,.05,"DT")="2910125"
^DD(130.22,2,0)="DATE COMP NOTED^DX^^0;7^S %DT=""EXPT"" D ^%DT S X=Y K:Y<1 X"
^DD(130.22,2,.1)="Date/Time the Occurrence was Noted"
^DD(130.22,2,3)="Enter the date/time that this occurrence was noted."
^DD(130.22,2,21,0)="^^3^3^2900709^^"
^DD(130.22,2,21,1,0)="This is the date that this postoperative occurrence was noted in the"
^DD(130.22,2,21,2,0)="patient's record."
^DD(130.22,2,21,3,0)=" "
^DD(130.22,2,"DT")="3070313"
^DD(130.22,3,0)="TREATMENT INSTITUTED^F^^2;1^K:$L(X)>40!($L(X)<1) X"
^DD(130.22,3,.1)="Treatment Instituted"
^DD(130.22,3,3)="Your answer must be 1 to 40 characters in length."
^DD(130.22,3,21,0)="^^3^3^2900109^"
^DD(130.22,3,21,1,0)="This is descriptive information about the treatment instituted as a"
^DD(130.22,3,21,2,0)="result of this occurrence."
^DD(130.22,3,21,3,0)=" "
^DD(130.22,3,"DT")="2870415"
^DD(130.22,4,0)="OCCURRENCE COMMENTS^130.224^^1;0"
^DD(130.22,4,.1)="Occurrence Comments"
^DD(130.22,4,21,0)="^^2^2^2900109^"
^DD(130.22,4,21,1,0)="These are comments about this postoperative occurrence."
^DD(130.22,4,21,2,0)=" "
^DD(130.22,5,0)="OCCURRENCE CATEGORY^R*P136.5'X^SRO(136.5,^0;2^S DIC(""S"")=$$CO^SROCMPS D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.22,5,.1)="Occurrence Category"
^DD(130.22,5,3)="Enter the name of the category most closely related to this occurrence."
^DD(130.22,5,12)="Screen prevents selection of inactive occurrence category and selection of cardiac only category on non-cardiac case."
^DD(130.22,5,12.1)="S DIC(""S"")=$$CO^SROCMPS"
^DD(130.22,5,21,0)="^.001^4^4^3000822^^^^"
^DD(130.22,5,21,1,0)="This is the name of the category in which this occurrence may"
^DD(130.22,5,21,2,0)="be grouped.  It should be entered for all occurrences and will"
^DD(130.22,5,21,3,0)="be used by Surgery Central Office for reporting needs."
^DD(130.22,5,21,4,0)=" "
^DD(130.22,5,"DT")="3000822"
^DD(130.22,6,0)="ICD DIAGNOSIS CODE^*P80'X^ICD9(^0;3^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.22,6,.1)="ICD Diagnosis Code"
^DD(130.22,6,3)="Enter the ICD Diagnosis code corresponding to this postoperative occurrence."
^DD(130.22,6,12)="Screen prevents selection of inactive diagnosis."
^DD(130.22,6,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^DD(130.22,6,21,0)="^^3^3^2921106^^"
^DD(130.22,6,21,1,0)="If the occurrence entered does not fit in any of the predefined"
^DD(130.22,6,21,2,0)="categories, an ICD Diagnosis Code must be entered."
^DD(130.22,6,21,3,0)=" "
^DD(130.22,6,"DT")="3030411"
^DD(130.22,7,0)="SEPSIS CATEGORY^*S^1:SIRS;2:SEPSIS;3:SEPTIC SHOCK;^0;4^Q"
^DD(130.22,7,.1)="Sepsis Category"
^DD(130.22,7,3)="Select the appropriate category of sepsis for this occurrence."
^DD(130.22,7,12)="Screen prevents selection of inactive code."
^DD(130.22,7,12.1)="S DIC(""S"")=""I Y'=1"""
^DD(130.22,7,21,0)="^^34^34^3070313^"
^DD(130.22,7,21,1,0)="NSQIP Definition (2007):"
^DD(130.22,7,21,2,0)="The body's response to insult can be documented as one of two levels "
^DD(130.22,7,21,3,0)="with the successive level building on the previous level. You should "
^DD(130.22,7,21,4,0)="only document the highest level identified using the criteria below. "
^DD(130.22,7,21,5,0)=" "
^DD(130.22,7,21,6,0)="1. Sepsis: Sepsis is the systemic response to infection. Report this "
^DD(130.22,7,21,7,0)="variable if the patient has clinical signs and symptoms of SIRS. SIRS "
^DD(130.22,7,21,8,0)="is a widespread inflammatory response to a variety of severe clinical"
^DD(130.22,7,21,9,0)="insults. This syndrome is clinically recognized by the presence of two "
^DD(130.22,7,21,10,0)="or more of the following:"
^DD(130.22,7,21,11,0)="   - Temp >38 degrees C or <36 degrees C"
^DD(130.22,7,21,12,0)="   - HR >90 bpm"
^DD(130.22,7,21,13,0)="   - RR >20 breaths/min or PaCO2 <32 mmHg(<4.3 kPa)"
^DD(130.22,7,21,14,0)="   - WBC >12,000 cell/mm3, <4000 cells/mm3, or >10% immature (band) "
^DD(130.22,7,21,15,0)="     forms"
^DD(130.22,7,21,16,0)="   - Anion gap acidosis: this is defined by either:"
^DD(130.22,7,21,17,0)="      [Na + K] - [Cl + HCO3 (or serum CO2)]. If this number is "
^DD(130.22,7,21,18,0)="      greater than 16, then an anion gap acidosis is present."
^DD(130.22,7,21,19,0)="     or"
^DD(130.22,7,21,20,0)="      Na - [Cl + HCO3 (or serum CO2)]. If this number is greater"
^DD(130.22,7,21,21,0)="      than 12, then an anion gap acidosis is present."
^DD(130.22,7,21,22,0)=" "
^DD(130.22,7,21,23,0)=" and one of the following:"
^DD(130.22,7,21,24,0)="   - positive blood culture"
^DD(130.22,7,21,25,0)="   - clinical documentation of purulence at any site thought to be "
^DD(130.22,7,21,26,0)="     causative"
^DD(130.22,7,21,27,0)=" "
^DD(130.22,7,21,28,0)="2. Severe Sepsis/Septic Shock: Sepsis is considered severe when it is "
^DD(130.22,7,21,29,0)="associated with organ and/or circulatory dysfunction. Report this "
^DD(130.22,7,21,30,0)="variable if the patient has the clinical signs and symptoms of SIRS or "
^DD(130.22,7,21,31,0)="sepsis AND documented organ and/or circulatory dysfunction. Examples of"
^DD(130.22,7,21,32,0)="organ dysfunction include: oliguria, acute alteration in mental status,"
^DD(130.22,7,21,33,0)="acute respiratory distress. Examples of circulatory dysfunction "
^DD(130.22,7,21,34,0)="include: hypotension, requirement of inotropic or vasopressor agents."
^DD(130.22,7,"DT")="3060124"
^DD(130.22,8,0)="CPB STATUS^S^0:None;1:On-bypass;2:Off-bypass;^0;5^Q"
^DD(130.22,8,.1)="Cardiopulmonary Bypass Status"
^DD(130.22,8,3)="Enter NONE, ON BYPASS, or OFF BYPASS."
^DD(130.22,8,21,0)="^^15^15^3060316^"
^DD(130.22,8,21,1,0)="CICSP Definition (2006):"
^DD(130.22,8,21,2,0)="Indicate the CPB status if the patient underwent a repeat operation on"
^DD(130.22,8,21,3,0)="the heart after the patient had left the operating room from the initial"
^DD(130.22,8,21,4,0)="operation and within current hospitalization or within 30 days of the"
^DD(130.22,8,21,5,0)="initial operation. Use the same criteria to define a cardiac surgery as"
^DD(130.22,8,21,6,0)="listed on page 1 of the CICSP Instructions/Definitions. (Do NOT submit a"
^DD(130.22,8,21,7,0)="separate second form for this second cardiac procedure if it occurs"
^DD(130.22,8,21,8,0)="within 30 days post-operatively.) Indicate the one appropriate response:"
^DD(130.22,8,21,9,0)=" "
^DD(130.22,8,21,10,0)="None - no repeat cardiac surgical procedure post-operatively during "
^DD(130.22,8,21,11,0)="      index hospitalization or within 30 days of initial operation."
^DD(130.22,8,21,12,0)="On-bypass - patient underwent a repeat cardiac surgical procedure "
^DD(130.22,8,21,13,0)="      utilizing CPB."
^DD(130.22,8,21,14,0)="Off-bypass - patient underwent a repeat cardiac surgical procedure "
^DD(130.22,8,21,15,0)="      not utilizing CPB."
^DD(130.22,8,"DT")="3060301"
^DD(130.22,"B","CPB STATUS",8)=""
^DD(130.22,"B","Cardiopulmonary Bypass Status",8)="1"
^DD(130.22,"B","DATE COMP NOTED",2)=""
^DD(130.22,"B","ICD DIAGNOSIS CODE",6)=""
^DD(130.22,"B","ICD Diagnosis Code",6)="1"
^DD(130.22,"B","OCCURRENCE CATEGORY",5)=""
^DD(130.22,"B","OCCURRENCE COMMENTS",4)=""
^DD(130.22,"B","OUTCOME TO DATE",.05)=""
^DD(130.22,"B","Occurrence Category",5)="1"
^DD(130.22,"B","Occurrence Comments",4)="1"
^DD(130.22,"B","Outcome to Date",.05)="1"
^DD(130.22,"B","POSTOP OCCURRENCE",.01)=""
^DD(130.22,"B","Postoperative Occurrence",.01)="1"
^DD(130.22,"B","SEPSIS CATEGORY",7)=""
^DD(130.22,"B","Sepsis Category",7)="1"
^DD(130.22,"B","TREATMENT INSTITUTED",3)=""
^DD(130.22,"B","Treatment Instituted",3)="1"
^DD(130.22,"GL",0,1,.01)=""
^DD(130.22,"GL",0,2,5)=""
^DD(130.22,"GL",0,3,6)=""
^DD(130.22,"GL",0,4,7)=""
^DD(130.22,"GL",0,5,8)=""
^DD(130.22,"GL",0,6,.05)=""
^DD(130.22,"GL",0,7,2)=""
^DD(130.22,"GL",1,0,4)=""
^DD(130.22,"GL",2,1,3)=""
^DD(130.22,"RQ",5)=""
^DD(130.22,"SB",130.224,4)=""
^DD(130.224,0)="OCCURRENCE COMMENTS SUB-FIELD^^.01^1"
^DD(130.224,0,"NM","OCCURRENCE COMMENTS")=""
^DD(130.224,0,"UP")="130.22"
^DD(130.224,.01,0)="OCCURRENCE COMMENTS^W^^0;1^Q"
^DD(130.224,.01,.1)="Occurrence Comments"
^DD(130.224,.01,21,0)="^^2^2^2900709^^"
^DD(130.224,.01,21,1,0)="These are comments about this postoperative occurrence."
^DD(130.224,.01,21,2,0)=" "
^DD(130.224,.01,"DT")="2881205"
^DD(130.224,"B","OCCURRENCE COMMENTS",.01)=""
^DD(130.224,"B","Occurrence Comments",.01)="1"
^DD(130.224,"GL",0,1,.01)=""
^DD(130.23,0)="OTHER SCRUBBED ASSISTANTS SUB-FIELD^^1^2"
^DD(130.23,0,"DT")="2920130"
^DD(130.23,0,"IX","B",130.23,.01)=""
^DD(130.23,0,"NM","OTHER SCRUBBED ASSISTANTS")=""
^DD(130.23,0,"UP")="130"
^DD(130.23,.01,0)="OTHER SCRUBBED ASSISTANTS^*P200'X^VA(200,^0;1^S DIC(""S"")=""S RESTRICT=""""130.23,.01"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.23,.01,.1)="Other Scrubbed Assistants"
^DD(130.23,.01,1,0)="^.1"
^DD(130.23,.01,1,1,0)="130.23^B"
^DD(130.23,.01,1,1,1)="S ^SRF(DA(1),28,""B"",$E(X,1,30),DA)="""""
^DD(130.23,.01,1,1,2)="K ^SRF(DA(1),28,""B"",$E(X,1,30),DA)"
^DD(130.23,.01,3)="Enter the names of persons other than those already listed as scrubbed."
^DD(130.23,.01,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.23,.01,12.1)="S DIC(""S"")=""S RESTRICT=""""130.23,.01"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.23,.01,21,0)="^^3^3^2900709^^"
^DD(130.23,.01,21,1,0)="These are names of persons in the operating room other than those"
^DD(130.23,.01,21,2,0)="that are already listed as scrubbed."
^DD(130.23,.01,21,3,0)=" "
^DD(130.23,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.23,.01,"DT")="2930526"
^DD(130.23,1,0)="COMMENTS^130.35^^1;0"
^DD(130.23,1,.1)="Comments"
^DD(130.23,1,21,0)="^^3^3^2900111^"
^DD(130.23,1,21,1,0)="These are comments related to this person that may be useful in"
^DD(130.23,1,21,2,0)="documentation of this case."
^DD(130.23,1,21,3,0)=" "
^DD(130.23,"B","COMMENTS",1)=""
^DD(130.23,"B","Comments",1)="1"
^DD(130.23,"B","OTHER SCRUBBED ASSISTANTS",.01)=""
^DD(130.23,"B","Other Scrubbed Assistants",.01)="1"
^DD(130.23,"GL",0,1,.01)=""
^DD(130.23,"GL",1,0,1)=""
^DD(130.23,"IX",.01)=""
^DD(130.23,"SB",130.35,1)=""
^DD(130.24,0)="OTHER PERSONS IN OR SUB-FIELD^^1^2"
^DD(130.24,0,"IX","B",130.24,.01)=""
^DD(130.24,0,"NM","OTHER PERSONS IN OR")=""
^DD(130.24,0,"UP")="130"
^DD(130.24,.01,0)="OTHER PERSONS IN OR^F^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(130.24,.01,.1)="Other Persons in O.R."
^DD(130.24,.01,1,0)="^.1"
^DD(130.24,.01,1,1,0)="130.24^B"
^DD(130.24,.01,1,1,1)="S ^SRF(DA(1),32,""B"",$E(X,1,30),DA)="""""
^DD(130.24,.01,1,1,2)="K ^SRF(DA(1),32,""B"",$E(X,1,30),DA)"
^DD(130.24,.01,3)="Your answer must be 1 to 40 characters in length."
^DD(130.24,.01,21,0)="^^2^2^2930322^^^^"
^DD(130.24,.01,21,1,0)="These are the names of other persons not scrubbed, or otherwise identified,"
^DD(130.24,.01,21,2,0)="present in the operating room."
^DD(130.24,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.24,.01,"DT")="2870922"
^DD(130.24,1,0)="TITLE/ORGANIZATION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(130.24,1,.1)="Title and Organization"
^DD(130.24,1,3)="Your answer must be 1 to 60 characters in length."
^DD(130.24,1,21,0)="^^3^3^2930322^^^^"
^DD(130.24,1,21,1,0)="This is the title and/or organization of this person.  Since your answer"
^DD(130.24,1,21,2,0)="may be up to 60 characters, you may prefer to enter a reason for this"
^DD(130.24,1,21,3,0)="person being in the operating room."
^DD(130.24,1,"DT")="2870922"
^DD(130.24,"B","OTHER PERSONS IN OR",.01)=""
^DD(130.24,"B","Other Persons in O.R.",.01)="1"
^DD(130.24,"B","TITLE/ORGANIZATION",1)=""
^DD(130.24,"B","Title and Organization",1)="1"
^DD(130.24,"GL",0,1,.01)=""
^DD(130.24,"GL",0,2,1)=""
^DD(130.24,"IX",.01)=""
^DD(130.26,0)="PROCEDURE CODE COMMENTS SUB-FIELD^NL^.01^1"
^DD(130.26,0,"NM","PROCEDURE CODE COMMENTS")=""
^DD(130.26,0,"UP")="130.16"
^DD(130.26,.01,0)="PROCEDURE CODE COMMENTS^W^^0;1^Q"
^DD(130.26,.01,.1)="Procedure Code Comments"
^DD(130.26,.01,21,0)="^^2^2^2911206^^"
^DD(130.26,.01,21,1,0)="These are comments related to this procedure."
^DD(130.26,.01,21,2,0)=" "
^DD(130.26,.01,"DT")="2911206"
^DD(130.26,"B","PROCEDURE CODE COMMENTS",.01)=""
^DD(130.26,"B","Procedure Code Comments",.01)="1"
^DD(130.26,"GL",0,1,.01)=""
^DD(130.27,0)="REASON NOT USE STD SUB-FIELD^NL^.01^1"
^DD(130.27,0,"NM","REASON NOT USE STD")=""
^DD(130.27,0,"UP")="130.14"
^DD(130.27,.01,0)="REASON NOT USE STD^W^^0;1^Q"
^DD(130.27,.01,.1)="Reason not to use the Standard Amount"
^DD(130.27,.01,21,0)="^^4^4^2900710^^"
^DD(130.27,.01,21,1,0)="This field contains the reason why the number of units of this"
^DD(130.27,.01,21,2,0)="blood component ordered differs from the maximum blood order system"
^DD(130.27,.01,21,3,0)="requirement."
^DD(130.27,.01,21,4,0)=" "
^DD(130.27,.01,"DT")="2850429"
^DD(130.27,"B","REASON NOT USE STD",.01)=""
^DD(130.27,"GL",0,1,.01)=""
^DD(130.275,0)="PRIN ASSOC DIAGNOSIS SUB-FIELD^^.01^1"
^DD(130.275,0,"DT")="3030815"
^DD(130.275,0,"IX","B",130.275,.01)=""
^DD(130.275,0,"NM","PRIN ASSOC DIAGNOSIS")=""
^DD(130.275,0,"UP")="130"
^DD(130.275,.01,0)="PRIN ASSOC DIAGNOSIS^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.275,.01,.1)="Pointer To ICD DIAGNOSIS File (#80)"
^DD(130.275,.01,1,0)="^.1^^-1"
^DD(130.275,.01,1,2,0)="130.275^B"
^DD(130.275,.01,1,2,1)="S ^SRF(DA(1),""PADX"",""B"",$E(X,1,30),DA)="""""
^DD(130.275,.01,1,2,2)="K ^SRF(DA(1),""PADX"",""B"",$E(X,1,30),DA)"
^DD(130.275,.01,1,2,"DT")="3030915"
^DD(130.275,.01,3)="This field can only be changed via the Surgery Menu.  All entries outside of the Surgery menu will not be filed."
^DD(130.275,.01,21,0)="^.001^3^3^3040227^^^^"
^DD(130.275,.01,21,1,0)="This field holds the IEN of the associated diagnosis.  It is used to "
^DD(130.275,.01,21,2,0)="store the Procedure/Diagnosis association data needed to create a clean "
^DD(130.275,.01,21,3,0)="claim.  This field can only be changed via the Surgery menu."
^DD(130.275,.01,"DT")="3050606"
^DD(130.275,"B","PRIN ASSOC DIAGNOSIS",.01)=""
^DD(130.275,"GL",0,1,.01)=""
^DD(130.275,"IX",.01)=""
^DD(130.28,0)="OR CIRC SUPPORT SUB-FIELD^NL^3^3"
^DD(130.28,0,"DT")="2930526"
^DD(130.28,0,"NM","OR CIRC SUPPORT")=""
^DD(130.28,0,"UP")="130"
^DD(130.28,.01,0)="OR CIRC SUPPORT^*P200'^VA(200,^0;1^S DIC(""S"")=""S RESTRICT=""""130.28,.01"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.28,.01,.1)="O.R. Circulating Nurse"
^DD(130.28,.01,1,0)="^.1^^0"
^DD(130.28,.01,3)=""
^DD(130.28,.01,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.28,.01,12.1)="S DIC(""S"")=""S RESTRICT=""""130.28,.01"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.28,.01,21,0)="^^3^3^2921026^^"
^DD(130.28,.01,21,1,0)="This is the person with the circulating role responsibilities.  This"
^DD(130.28,.01,21,2,0)="information will appear on the Nurse Intraoperative Report."
^DD(130.28,.01,21,3,0)=" "
^DD(130.28,.01,"DT")="3020207"
^DD(130.28,2,0)="TIME ON^130.29DA^^1;0"
^DD(130.28,2,.1)="Time Responsibilities Began"
^DD(130.28,2,21,0)="^^3^3^2900104^"
^DD(130.28,2,21,1,0)="This is the date and time that this person's circulating role"
^DD(130.28,2,21,2,0)="responsibilities began.  (Both date and time should be entered)."
^DD(130.28,2,21,3,0)=" "
^DD(130.28,3,0)="STATUS^SX^O:ORIENTEE;F:FULLY TRAINED;^0;3^Q"
^DD(130.28,3,.1)="Educational Status"
^DD(130.28,3,21,0)="^^2^2^2900705^^^^"
^DD(130.28,3,21,1,0)="Enter the code corresponding to the educational preparation of the"
^DD(130.28,3,21,2,0)="registered nurse assuming circulating role responsibilities."
^DD(130.28,3,"DT")="2900828"
^DD(130.28,"B","Educational Status",3)="1"
^DD(130.28,"B","O.R. Circulating Nurse",.01)="1"
^DD(130.28,"B","OR CIRC SUPPORT",.01)=""
^DD(130.28,"B","STATUS",3)=""
^DD(130.28,"B","TIME ON",2)=""
^DD(130.28,"B","Time Responsibilities Began",2)="1"
^DD(130.28,"GL",0,1,.01)=""
^DD(130.28,"GL",0,3,3)=""
^DD(130.28,"GL",1,0,2)=""
^DD(130.28,"SB",130.29,2)=""
^DD(130.29,0)="TIME ON SUB-FIELD^NL^3^4"
^DD(130.29,0,"NM","TIME ON")=""
^DD(130.29,0,"UP")="130.28"
^DD(130.29,.01,0)="TIME ON^DX^^0;1^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.29,.01,.1)="Time On"
^DD(130.29,.01,3)="Enter the DATE/TIME that the circulating nurse entered the OR."
^DD(130.29,.01,7.5)="S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""RTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.29,.01,21,0)="^^2^2^2900705^^^^"
^DD(130.29,.01,21,1,0)="Enter the date/time that this person's circulating role responsibilities"
^DD(130.29,.01,21,2,0)="began.  Note: Both the date and time must be entered for this field."
^DD(130.29,.01,"DT")="2931208"
^DD(130.29,1,0)="TIME OFF^DXO^^0;2^S SRSUB=19,SRP=1 D OFF2^SROVAR S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.29,1,.1)="Time Off"
^DD(130.29,1,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(130.29,1,2.1)="X ^DD(""DD"")"
^DD(130.29,1,3)="Enter the date/time that the circulating role responsibilities ended."
^DD(130.29,1,21,0)="^^3^3^2921105^^^^"
^DD(130.29,1,21,1,0)="This is the date and time that the circulating role responsibilities ended."
^DD(130.29,1,21,2,0)="Times entered without a date will be converted to the date of the operation"
^DD(130.29,1,21,3,0)="at that time."
^DD(130.29,1,"DT")="2930601"
^DD(130.29,2,0)="REASON FOR RELIEF^S^P:PERSONAL;S:SHIFT CHANGE;A:ADMINISTRATIVE;^0;3^Q"
^DD(130.29,2,.1)="Reason for Relief"
^DD(130.29,2,3)="Enter the code corresponding to the reason for relief."
^DD(130.29,2,21,0)="^^4^4^2900104^"
^DD(130.29,2,21,1,0)="This is the reason why the circulating support person was relieved,"
^DD(130.29,2,21,2,0)="or left the operating room during this case.  Although optional, this"
^DD(130.29,2,21,3,0)="information may be important in documenting the case."
^DD(130.29,2,21,4,0)=" "
^DD(130.29,2,"DT")="2850819"
^DD(130.29,3,0)="COMMENT^130.3^^1;0"
^DD(130.29,3,.1)="Comments"
^DD(130.29,3,21,0)="^^3^3^2921215^^"
^DD(130.29,3,21,1,0)="This includes any comments or information pertaining to this person"
^DD(130.29,3,21,2,0)="or his or her role as circulating support for the case."
^DD(130.29,3,21,3,0)=" "
^DD(130.29,"B","COMMENT",3)=""
^DD(130.29,"B","Comments",3)="1"
^DD(130.29,"B","REASON FOR RELIEF",2)=""
^DD(130.29,"B","Reason for Relief",2)="1"
^DD(130.29,"B","TIME OFF",1)=""
^DD(130.29,"B","TIME ON",.01)=""
^DD(130.29,"B","Time Off",1)="1"
^DD(130.29,"B","Time On",.01)="1"
^DD(130.29,"GL",0,1,.01)=""
^DD(130.29,"GL",0,2,1)=""
^DD(130.29,"GL",0,3,2)=""
^DD(130.29,"GL",1,0,3)=""
^DD(130.29,"SB",130.3,3)=""
^DD(130.3,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(130.3,0,"NM","COMMENT")=""
^DD(130.3,0,"UP")="130.29"
^DD(130.3,.01,0)="COMMENT^W^^0;1^Q"
^DD(130.3,.01,21,0)="^^3^3^2921215^"
^DD(130.3,.01,21,1,0)="This includes any comments or information pertaining to this person"
^DD(130.3,.01,21,2,0)="or his or her role as circulating support for the case."
^DD(130.3,.01,21,3,0)=" "
^DD(130.3,.01,"DT")="2850819"
^DD(130.3,"B","COMMENT",.01)=""
^DD(130.3,"GL",0,1,.01)=""
^DD(130.31,0)="RESTR & POSITION AIDS SUB-FIELD^NL^2^3"
^DD(130.31,0,"DT")="2920602"
^DD(130.31,0,"NM","RESTR & POSITION AIDS")=""
^DD(130.31,0,"UP")="130"
^DD(130.31,.01,0)="RESTR & POSITION AIDS^*P132.05'^SRO(132.05,^0;1^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.31,.01,.1)="Restraints and Positioning Aids"
^DD(130.31,.01,3)="Enter the list of restraints and positioning devices used during the operative procedure."
^DD(130.31,.01,12)="Screen prevents selection of inactive file entries."
^DD(130.31,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(130.31,.01,21,0)="^^4^4^2900104^"
^DD(130.31,.01,21,1,0)="This is the restraint or positioning aid needed for securing the"
^DD(130.31,.01,21,2,0)="patient for the operative procedure.  This information appears"
^DD(130.31,.01,21,3,0)="on the Nurse Intraoperative Report if entered."
^DD(130.31,.01,21,4,0)=" "
^DD(130.31,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.31,.01,"DT")="2920602"
^DD(130.31,1,0)="APPLIED BY^*P200'^VA(200,^0;2^S DIC(""S"")=""S RESTRICT=""""130.31,1"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.31,1,.1)="Applied By"
^DD(130.31,1,3)="Enter the name of the person who applied the aid."
^DD(130.31,1,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.31,1,12.1)="S DIC(""S"")=""S RESTRICT=""""130.31,1"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.31,1,21,0)="^^4^4^2900104^"
^DD(130.31,1,21,1,0)="This is the person responsible for applying the restraint or positioning"
^DD(130.31,1,21,2,0)="aid.  Although optional, this information may be useful in documenting"
^DD(130.31,1,21,3,0)="this case.  If entered, it will appear on the Nurse Intraoperative Report."
^DD(130.31,1,21,4,0)=" "
^DD(130.31,1,"DT")="2920205"
^DD(130.31,2,0)="RESTRAINT COMMENTS^F^^0;3^K:$L(X)>45!($L(X)<1) X"
^DD(130.31,2,.1)="Restraint/Positioning Aid Comments"
^DD(130.31,2,3)="Your answer must be 1-45 characters in length."
^DD(130.31,2,21,0)="^^4^4^2920407^"
^DD(130.31,2,21,1,0)="This contains brief comments related to where or why a restraint"
^DD(130.31,2,21,2,0)="or positioning aid was applied.  Your answer can be up to 45"
^DD(130.31,2,21,3,0)="characters in length."
^DD(130.31,2,21,4,0)=" "
^DD(130.31,2,"DT")="2920407"
^DD(130.31,"B","APPLIED BY",1)=""
^DD(130.31,"B","Applied By",1)="1"
^DD(130.31,"B","RESTR & POSITION AIDS",.01)=""
^DD(130.31,"B","RESTRAINT COMMENTS",2)=""
^DD(130.31,"GL",0,1,.01)=""
^DD(130.31,"GL",0,2,1)=""
^DD(130.31,"GL",0,3,2)=""
^DD(130.32,0)="THERMAL UNIT SUB-FIELD^NL^3^4"
^DD(130.32,0,"DT")="2930401"
^DD(130.32,0,"NM","THERMAL UNIT")=""
^DD(130.32,0,"UP")="130"
^DD(130.32,.01,0)="THERMAL UNIT^F^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(130.32,.01,.1)="Thermal Unit"
^DD(130.32,.01,3)="Your answer must be 3 to 30 characters, including identifying number and device type."
^DD(130.32,.01,21,0)="^^3^3^2900709^^^^"
^DD(130.32,.01,21,1,0)="This is information identifying the specific temperature controlling"
^DD(130.32,.01,21,2,0)="device."
^DD(130.32,.01,21,3,0)=" "
^DD(130.32,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.32,.01,"DT")="2870922"
^DD(130.32,1,0)="TIME ON^DX^^0;2^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:D0),0),""^"",9),1,7) D TIME^SROVAR K:Y<1!(X'[""."") X"
^DD(130.32,1,.1)="Date/Time Turned On"
^DD(130.32,1,3)="Enter the date/time that the temperature controlling device was activated."
^DD(130.32,1,21,0)="^^4^4^2900109^^^"
^DD(130.32,1,21,1,0)="This is the date and time that the thermal unit was activated.  Times"
^DD(130.32,1,21,2,0)="entered without a date will be converted to the date of operation at"
^DD(130.32,1,21,3,0)="that time."
^DD(130.32,1,21,4,0)=" "
^DD(130.32,1,"DT")="2880105"
^DD(130.32,2,0)="TEMPERATURE^NJ3,0^^0;3^K:+X'=X!(X>110)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.32,2,.1)="Temperature Setting"
^DD(130.32,2,3)="Enter a whole number between 0 and 110."
^DD(130.32,2,21,0)="^^2^2^2930402^^^^"
^DD(130.32,2,21,1,0)="This is the temperature setting of the temperature controlling device."
^DD(130.32,2,21,2,0)=" "
^DD(130.32,2,"DT")="2930401"
^DD(130.32,3,0)="TIME OFF^DX^^0;4^S SRSUB=21,SRP=2 D OFF1^SROVAR S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.32,3,.1)="Date/Time Turned Off"
^DD(130.32,3,3)="Enter the date/time that the temperature controlling device was deactivated."
^DD(130.32,3,21,0)="^^4^4^2900109^^^^"
^DD(130.32,3,21,1,0)="This is the date and time that the thermal unit was turned off."
^DD(130.32,3,21,2,0)="Times entered without a date will be converted to the date of"
^DD(130.32,3,21,3,0)="operation at that time."
^DD(130.32,3,21,4,0)=" "
^DD(130.32,3,"DT")="2930601"
^DD(130.32,"B","Date/Time Turned Off",3)="1"
^DD(130.32,"B","Date/Time Turned On",1)="1"
^DD(130.32,"B","TEMPERATURE",2)=""
^DD(130.32,"B","THERMAL UNIT",.01)=""
^DD(130.32,"B","TIME OFF",3)=""
^DD(130.32,"B","TIME ON",1)=""
^DD(130.32,"B","Temperature Setting",2)="1"
^DD(130.32,"B","Thermal Unit",.01)="1"
^DD(130.32,"GL",0,1,.01)=""
^DD(130.32,"GL",0,2,1)=""
^DD(130.32,"GL",0,3,2)=""
^DD(130.32,"GL",0,4,3)=""
^DD(130.33,0)="MEDICATIONS SUB-FIELD^NL^1^2"
^DD(130.33,0,"DT")="2930601"
^DD(130.33,0,"NM","MEDICATIONS")=""
^DD(130.33,0,"UP")="130"
^DD(130.33,.01,0)="MEDICATIONS^*P50'X^PSDRUG(^0;1^S DIC(""S"")=""I $$SCR^SROMED(1,"""""""")"",D=""B^C"" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(130.33,.01,.1)="Medications"
^DD(130.33,.01,3)="Answer must be 4-20 characters in length"
^DD(130.33,.01,4)=""
^DD(130.33,.01,12)="Inactive Drugs are not selectable."
^DD(130.33,.01,12.1)="S DIC(""S"")=""I $$SCR^SROMED(1,"""""""")"""
^DD(130.33,.01,21,0)="^^3^3^2900709^^^^"
^DD(130.33,.01,21,1,0)="This is the name of the medication (generic or proprietary)."
^DD(130.33,.01,21,2,0)="More than one medication may be entered for each case."
^DD(130.33,.01,21,3,0)=" "
^DD(130.33,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.33,.01,"DT")="3080130"
^DD(130.33,1,0)="TIME ADM^130.34DA^^1;0"
^DD(130.33,1,.1)="Date/Time the Medication was Administered"
^DD(130.33,1,21,0)="^^2^2^2900105^"
^DD(130.33,1,21,1,0)="This is information related to the administration of the medication."
^DD(130.33,1,21,2,0)=" "
^DD(130.33,"B","MEDICATIONS",.01)=""
^DD(130.33,"B","Medications",.01)="1"
^DD(130.33,"B","TIME ADM",1)=""
^DD(130.33,"GL",0,1,.01)=""
^DD(130.33,"GL",1,0,1)=""
^DD(130.33,"SB",130.34,1)=""
^DD(130.34,0)="TIME ADM SUB-FIELD^NL^5^6"
^DD(130.34,0,"DT")="2930601"
^DD(130.34,0,"NM","TIME ADM")=""
^DD(130.34,0,"UP")="130.33"
^DD(130.34,.01,0)="TIME ADM^DX^^0;1^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.34,.01,.1)="Date/Time Administered"
^DD(130.34,.01,3)="Enter the unique date/time that an individual medication is given."
^DD(130.34,.01,7.5)="S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""RTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.34,.01,21,0)="^^2^2^2900709^^"
^DD(130.34,.01,21,1,0)="This is the date and time that this medication was administered."
^DD(130.34,.01,21,2,0)=" "
^DD(130.34,.01,"DT")="2931208"
^DD(130.34,1,0)="DOSE^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(130.34,1,.1)="Dose"
^DD(130.34,1,3)="Enter the dose given at this time.  Your answer must be 1 to 15 characters in length."
^DD(130.34,1,21,0)="^^3^3^2901022^^^^"
^DD(130.34,1,21,1,0)="This is the dose of the medication given at this time.  Although optional,"
^DD(130.34,1,21,2,0)="this information may be useful in documentation of this case."
^DD(130.34,1,21,3,0)=" "
^DD(130.34,1,"DT")="2850819"
^DD(130.34,2,0)="ORDERED BY^*P200'^VA(200,^0;3^S DIC(""S"")=""S RESTRICT=""""130.34,2"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.34,2,.1)="Medication Ordered By"
^DD(130.34,2,3)="Enter the name of the person who ordered the medication."
^DD(130.34,2,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.34,2,12.1)="S DIC(""S"")=""S RESTRICT=""""130.34,2"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.34,2,21,0)="^^3^3^2900709^^"
^DD(130.34,2,21,1,0)="This is the name of the person ordering this dose of medication.  This"
^DD(130.34,2,21,2,0)="information is optional, but may be useful in documentation."
^DD(130.34,2,21,3,0)=" "
^DD(130.34,2,"DT")="2920205"
^DD(130.34,3,0)="ADMIN BY^*P200'^VA(200,^0;4^S DIC(""S"")=""S RESTRICT=""""130.34,3"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.34,3,.1)="Medication Administered By"
^DD(130.34,3,3)="Enter the name of the person who administered the medication."
^DD(130.34,3,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.34,3,12.1)="S DIC(""S"")=""S RESTRICT=""""130.34,3"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.34,3,21,0)="^^4^4^2900709^^^"
^DD(130.34,3,21,1,0)="This is the name of the person administering this dose of the"
^DD(130.34,3,21,2,0)="medication.  This information is optional, but may be useful for"
^DD(130.34,3,21,3,0)="documentation of the case."
^DD(130.34,3,21,4,0)=" "
^DD(130.34,3,"DT")="2920205"
^DD(130.34,4,0)="ROUTE^S^IV:INTRAVENOUS;T:TOPICAL;IR:IRRIGATION;IM:INTRAMUSCULAR;R:RECTAL;S:SUBLINGUAL;SC:SUBCUTANEOUS;IN:INFILTRATE;O:OTHER;P:PREPUMP;OR:ORAL;^0;5^Q"
^DD(130.34,4,.1)="Route of Administration"
^DD(130.34,4,3)=" "
^DD(130.34,4,21,0)="^^3^3^2980416^^^^"
^DD(130.34,4,21,1,0)="This is the code corresponding to the route of administration of the"
^DD(130.34,4,21,2,0)="medication."
^DD(130.34,4,21,3,0)=" "
^DD(130.34,4,"DT")="2980416"
^DD(130.34,5,0)="MEDICATION COMMENTS^F^^0;6^K:$L(X)>60!($L(X)<2) X"
^DD(130.34,5,.1)="Medication Comments"
^DD(130.34,5,3)="Your answer must be 2-60 characters in length."
^DD(130.34,5,21,0)="^^3^3^2900105^^^^"
^DD(130.34,5,21,1,0)="These are comments pertaining to the administration of the medication"
^DD(130.34,5,21,2,0)="at this time."
^DD(130.34,5,21,3,0)=" "
^DD(130.34,5,"DT")="2930524"
^DD(130.34,"B","ADMIN BY",3)=""
^DD(130.34,"B","DOSE",1)=""
^DD(130.34,"B","Date/Time Administered",.01)="1"
^DD(130.34,"B","Dose",1)="1"
^DD(130.34,"B","MEDICATION COMMENTS",5)=""
^DD(130.34,"B","Medication Administered By",3)="1"
^DD(130.34,"B","Medication Comments",5)="1"
^DD(130.34,"B","Medication Ordered By",2)="1"
^DD(130.34,"B","ORDERED BY",2)=""
^DD(130.34,"B","ROUTE",4)=""
^DD(130.34,"B","Route of Administration",4)="1"
^DD(130.34,"B","TIME ADM",.01)=""
^DD(130.34,"GL",0,1,.01)=""
^DD(130.34,"GL",0,2,1)=""
^DD(130.34,"GL",0,3,2)=""
^DD(130.34,"GL",0,4,3)=""
^DD(130.34,"GL",0,5,4)=""
^DD(130.34,"GL",0,6,5)=""
^DD(130.35,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(130.35,0,"NM","COMMENTS")=""
^DD(130.35,0,"UP")="130.23"
^DD(130.35,.01,0)="COMMENTS^W^^0;1^Q"
^DD(130.35,.01,.1)="Comments"
^DD(130.35,.01,21,0)="^^3^3^2900111^"
^DD(130.35,.01,21,1,0)="These are comments related to this person that may be useful in"
^DD(130.35,.01,21,2,0)="documentation of this case."
^DD(130.35,.01,21,3,0)=" "
^DD(130.35,.01,"DT")="2871007"
^DD(130.35,"B","COMMENTS",.01)=""
^DD(130.35,"B","Comments",.01)="1"
^DD(130.35,"GL",0,1,.01)=""
^DD(130.3513,0)="ANES CONCURRENT CASES SUB-FIELD^^.01^1"
^DD(130.3513,0,"DT")="3041123"
^DD(130.3513,0,"IX","B",130.3513,.01)=""
^DD(130.3513,0,"NM","ANES CONCURRENT CASES")=""
^DD(130.3513,0,"UP")="130"
^DD(130.3513,.01,0)="ANES CONCURRENT CASES^P130'^SRF(^0;1^Q"
^DD(130.3513,.01,1,0)="^.1"
^DD(130.3513,.01,1,1,0)="130.3513^B"
^DD(130.3513,.01,1,1,1)="S ^SRF(DA(1),55,""B"",$E(X,1,30),DA)="""""
^DD(130.3513,.01,1,1,2)="K ^SRF(DA(1),55,""B"",$E(X,1,30),DA)"
^DD(130.3513,.01,3)="Enter the Surgery Package case numbers of the surgical cases that were concurrent to this one. "
^DD(130.3513,.01,21,0)="^.001^3^3^3041123^^"
^DD(130.3513,.01,21,1,0)="This field is for information only and is not required. It will assist in "
^DD(130.3513,.01,21,2,0)="correcting potential errors if a start or end time is edited since other "
^DD(130.3513,.01,21,3,0)="cases could be affected by the edit."
^DD(130.3513,.01,23,0)="^^2^2^3041123^"
^DD(130.3513,.01,23,1,0)="This field lists the concurrent anesthesia cases to this case by the "
^DD(130.3513,.01,23,2,0)="SURGERY case number."
^DD(130.3513,.01,"DT")="3041123"
^DD(130.3513,"B","ANES CONCURRENT CASES",.01)=""
^DD(130.3513,"GL",0,1,.01)=""
^DD(130.3513,"IX",.01)=""
^DD(130.36,0)="OR SCRUB SUPPORT SUB-FIELD^NL^3^3"
^DD(130.36,0,"DT")="2920205"
^DD(130.36,0,"NM","OR SCRUB SUPPORT")=""
^DD(130.36,0,"UP")="130"
^DD(130.36,.01,0)="OR SCRUB SUPPORT^*P200'X^VA(200,^0;1^S DIC(""S"")=""S RESTRICT=""""130.36,.01"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.36,.01,.1)="O.R. Scrub Nurse"
^DD(130.36,.01,1,0)="^.1^^0"
^DD(130.36,.01,3)="Enter the name of the person assuming the scrub role responsibilities."
^DD(130.36,.01,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.36,.01,12.1)="S DIC(""S"")=""S RESTRICT=""""130.36,.01"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.36,.01,21,0)="^^4^4^2900104^"
^DD(130.36,.01,21,1,0)="This is the name of the person assuming scrub role responsibilities."
^DD(130.36,.01,21,2,0)="Although optional, this information will appear on the Nurse"
^DD(130.36,.01,21,3,0)="Intraoperative Report if entered."
^DD(130.36,.01,21,4,0)=" "
^DD(130.36,.01,"DT")="2930907"
^DD(130.36,1,0)="TIME ON^130.37DA^^1;0"
^DD(130.36,1,.1)="Time On"
^DD(130.36,1,21,0)="^^2^2^2900104^"
^DD(130.36,1,21,1,0)="This is the date/time that this person's responsibilities for scrub"
^DD(130.36,1,21,2,0)="support began.  Both date and time must be entered."
^DD(130.36,3,0)="STATUS^S^O:ORIENTEE;F:FULLY TRAINED;^0;3^Q"
^DD(130.36,3,.1)="Educational Status"
^DD(130.36,3,21,0)="^^2^2^2900104^^^^"
^DD(130.36,3,21,1,0)="This is the code corresponding to the educational preparation of"
^DD(130.36,3,21,2,0)="the person assuming scrub role responsibilities."
^DD(130.36,3,"DT")="2850821"
^DD(130.36,"B","Educational Status",3)="1"
^DD(130.36,"B","O.R. Scrub Nurse",.01)="1"
^DD(130.36,"B","OR SCRUB SUPPORT",.01)=""
^DD(130.36,"B","STATUS",3)=""
^DD(130.36,"B","TIME ON",1)=""
^DD(130.36,"B","Time On",1)="1"
^DD(130.36,"GL",0,1,.01)=""
^DD(130.36,"GL",0,3,3)=""
^DD(130.36,"GL",1,0,1)=""
^DD(130.36,"SB",130.37,1)=""
^DD(130.37,0)="TIME ON SUB-FIELD^NL^3^4"
^DD(130.37,0,"NM","TIME ON")=""
^DD(130.37,0,"UP")="130.36"
^DD(130.37,.01,0)="TIME ON^DOX^^0;1^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.37,.01,.1)="Time On"
^DD(130.37,.01,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(130.37,.01,2.1)="X ^DD(""DD"")"
^DD(130.37,.01,3)="ENTER THE DATE/TIME ON FOR THIS OR SCRUB NURSE"
^DD(130.37,.01,7.5)="S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""RTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.37,.01,21,0)="^^2^2^2900104^^^^"
^DD(130.37,.01,21,1,0)="This is the date/time that this person's scrub role responsibilities"
^DD(130.37,.01,21,2,0)="began.  Both the date and time must be entered."
^DD(130.37,.01,"DT")="2931208"
^DD(130.37,1,0)="TIME OFF^DX^^0;2^S SRSUB=23,SRP=1 D OFF2^SROVAR S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.37,1,.1)="Time Off"
^DD(130.37,1,3)=""
^DD(130.37,1,21,0)="^^3^3^2900104^^^"
^DD(130.37,1,21,1,0)="This is the date and time that this person's scrub role responsibilities"
^DD(130.37,1,21,2,0)="ended.  Times entered without a date will be converted to the date"
^DD(130.37,1,21,3,0)="of operation at that time."
^DD(130.37,1,"DT")="2930601"
^DD(130.37,2,0)="REASON FOR RELIEF^S^P:PERSONAL;S:SHIFT CHANGE;A:ADMINISTRATIVE;^0;3^Q"
^DD(130.37,2,.1)="Reason for Relief"
^DD(130.37,2,3)="Enter the code corresponding to the reason for relief."
^DD(130.37,2,21,0)="^^4^4^2900104^"
^DD(130.37,2,21,1,0)="This is the reason why this person was relieved of his or her scrub"
^DD(130.37,2,21,2,0)="role responsibilities prior to the end of this case.  Although optional,"
^DD(130.37,2,21,3,0)="this information may be useful in documentation of the case."
^DD(130.37,2,21,4,0)=" "
^DD(130.37,2,"DT")="2850821"
^DD(130.37,3,0)="COMMENT^130.38^^1;0"
^DD(130.37,3,21,0)="^^3^3^2921215^^^"
^DD(130.37,3,21,1,0)="This information is used in documenting this person's scrub support"
^DD(130.37,3,21,2,0)="responsibilities."
^DD(130.37,3,21,3,0)=" "
^DD(130.37,"B","COMMENT",3)=""
^DD(130.37,"B","REASON FOR RELIEF",2)=""
^DD(130.37,"B","Reason for Relief",2)="1"
^DD(130.37,"B","TIME OFF",1)=""
^DD(130.37,"B","TIME ON",.01)=""
^DD(130.37,"B","Time Off",1)="1"
^DD(130.37,"B","Time On",.01)="1"
^DD(130.37,"GL",0,1,.01)=""
^DD(130.37,"GL",0,2,1)=""
^DD(130.37,"GL",0,3,2)=""
^DD(130.37,"GL",1,0,3)=""
^DD(130.37,"SB",130.38,3)=""
^DD(130.38,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(130.38,0,"NM","COMMENT")=""
^DD(130.38,0,"UP")="130.37"
^DD(130.38,.01,0)="COMMENT^W^^0;1^Q"
^DD(130.38,.01,.1)="Comments"
^DD(130.38,.01,21,0)="^^3^3^2921215^^"
^DD(130.38,.01,21,1,0)="This is information used in documenting the scrub support responsibilities"
^DD(130.38,.01,21,2,0)="of this person."
^DD(130.38,.01,21,3,0)=" "
^DD(130.38,.01,"DT")="2850821"
^DD(130.38,"B","COMMENT",.01)=""
^DD(130.38,"B","Comments",.01)="1"
^DD(130.38,"GL",0,1,.01)=""
^DD(130.39,0)="TIME SUB-FIELD^NL^2^3"
^DD(130.39,0,"DT")="2920205"
^DD(130.39,0,"NM","TIME")=""
^DD(130.39,0,"UP")="130.08"
^DD(130.39,.01,0)="TIME^DOX^^0;1^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.39,.01,.1)="Time Utilized"
^DD(130.39,.01,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(130.39,.01,2.1)="X ^DD(""DD"")"
^DD(130.39,.01,3)="Enter the date/time that the irrigation solution was utilized."
^DD(130.39,.01,7.5)="S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:DA(2)),0),""^"",9),1,7),X=$S(X?1.4N.A!(X?1.2N1"":""2N.A):Z_""@""_X,1:X) K %DT,Z S %DT=""RTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.39,.01,21,0)="^^4^4^2900709^^^"
^DD(130.39,.01,21,1,0)="This is the date and time that the irrigation solution was utilized."
^DD(130.39,.01,21,2,0)="This information is optional, but may be useful for documentation"
^DD(130.39,.01,21,3,0)="of this case."
^DD(130.39,.01,21,4,0)=" "
^DD(130.39,.01,"DT")="2931208"
^DD(130.39,1,0)="AMOUNT USED^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(130.39,1,.1)="Amount of Solution Used"
^DD(130.39,1,3)="Enter a whole number between 0 and 999999."
^DD(130.39,1,21,0)="^^2^2^2900105^^"
^DD(130.39,1,21,1,0)="This is the total amount of irrigation solution used in the operative site."
^DD(130.39,1,21,2,0)=" "
^DD(130.39,1,"DT")="2850823"
^DD(130.39,2,0)="PROVIDER^*P200'^VA(200,^0;3^S DIC(""S"")=""S RESTRICT=""""130.39,2"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.39,2,.1)="Person Responsible"
^DD(130.39,2,3)="Enter the name of the provider."
^DD(130.39,2,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.39,2,12.1)="S DIC(""S"")=""S RESTRICT=""""130.39,2"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.39,2,21,0)="^^4^4^2900709^^"
^DD(130.39,2,21,1,0)="This is the name of the person responsible for the irrigation solution."
^DD(130.39,2,21,2,0)="Although this information is optional, it may be useful for documentation"
^DD(130.39,2,21,3,0)="of this case."
^DD(130.39,2,21,4,0)=" "
^DD(130.39,2,"DT")="2920205"
^DD(130.39,"B","AMOUNT USED",1)=""
^DD(130.39,"B","Amount of Solution Used",1)="1"
^DD(130.39,"B","PROVIDER",2)=""
^DD(130.39,"B","Person Responsible",2)="1"
^DD(130.39,"B","TIME",.01)=""
^DD(130.39,"B","Time Utilized",.01)="1"
^DD(130.39,"GL",0,1,.01)=""
^DD(130.39,"GL",0,2,1)=""
^DD(130.39,"GL",0,3,2)=""
^DD(130.41,0)="MONITORS SUB-FIELD^NL^3^4"
^DD(130.41,0,"DT")="2920602"
^DD(130.41,0,"NM","MONITORS")=""
^DD(130.41,0,"UP")="130"
^DD(130.41,.01,0)="MONITORS^*P133.4'X^SRO(133.4,^0;1^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.41,.01,.1)="Monitor"
^DD(130.41,.01,3)="Enter the type of physiologic monitor used."
^DD(130.41,.01,12)="Screen prevents selection of inactive entries."
^DD(130.41,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(130.41,.01,21,0)="^^4^4^2911105^^^^"
^DD(130.41,.01,21,1,0)="This is the physiologic monitor used during this case.  More than one"
^DD(130.41,.01,21,2,0)="monitor may be entered.  The information entered appears as part of the"
^DD(130.41,.01,21,3,0)="anesthesia record."
^DD(130.41,.01,21,4,0)=" "
^DD(130.41,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.41,.01,"DT")="2920602"
^DD(130.41,1,0)="TIME INSTALLED^DX^^0;2^S Z=$E($P(^SRF($S($D(SRTN):SRTN,1:D0),0),U,9),1,7) D TIME^SROVAR K:Y<1 X"
^DD(130.41,1,.1)="Time Applied"
^DD(130.41,1,3)="Enter the time that the monitor was applied to the patient."
^DD(130.41,1,21,0)="^^4^4^2900705^^^^"
^DD(130.41,1,21,1,0)="This is the time that the monitor was applied to the patient.  Times"
^DD(130.41,1,21,2,0)="entered without a date will be converted to the date of operation at"
^DD(130.41,1,21,3,0)="that time."
^DD(130.41,1,21,4,0)=" "
^DD(130.41,1,"DT")="2931213"
^DD(130.41,2,0)="TIME REMOVED^DX^^0;3^S SRSUB=27,SRP=2 D OFF1^SROVAR S %DT=""ERTX"" D ^%DT S X=Y K:Y<1 X"
^DD(130.41,2,.1)="Time Removed"
^DD(130.41,2,3)="Enter the time that the monitor was removed from the patient."
^DD(130.41,2,21,0)="^^4^4^2900105^^^"
^DD(130.41,2,21,1,0)="This is the date and time that the monitor was removed from the"
^DD(130.41,2,21,2,0)="patient.  Times entered without a date will be converted to the"
^DD(130.41,2,21,3,0)="date of operation at that time."
^DD(130.41,2,21,4,0)=" "
^DD(130.41,2,"DT")="2930601"
^DD(130.41,3,0)="APPLIED BY^*P200'^VA(200,^0;4^S DIC(""S"")=""S RESTRICT=""""130.41,3"""" D KEY^SROXPR I $D(SROK)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(130.41,3,.1)="Person Applying the Monitor"
^DD(130.41,3,3)="Enter the name of the person who applied the monitor."
^DD(130.41,3,12)="Entries in this field may be restricted based on locally selected keys."
^DD(130.41,3,12.1)="S DIC(""S"")=""S RESTRICT=""""130.41,3"""" D KEY^SROXPR I $D(SROK)"""
^DD(130.41,3,21,0)="^^4^4^2900705^^^^"
^DD(130.41,3,21,1,0)="This is the name of the person responsible for applying the monitor"
^DD(130.41,3,21,2,0)="to the patient.  Although optional, this information may be useful"
^DD(130.41,3,21,3,0)="in documentation for this case."
^DD(130.41,3,21,4,0)=" "
^DD(130.41,3,"DT")="2920205"
^DD(130.41,"B","APPLIED BY",3)=""
^DD(130.41,"B","MONITORS",.01)=""
^DD(130.41,"B","Monitor",.01)="1"
^DD(130.41,"B","Person Applying the Monitor",3)="1"
^DD(130.41,"B","TIME INSTALLED",1)=""
^DD(130.41,"B","TIME REMOVED",2)=""
^DD(130.41,"B","Time Applied",1)="1"
^DD(130.41,"B","Time Removed",2)="1"
^DD(130.41,"GL",0,1,.01)=""
^DD(130.41,"GL",0,2,1)=""
^DD(130.41,"GL",0,3,2)=""
^DD(130.41,"GL",0,4,3)=""
^DD(130.422,0)="DELAY COMMENTS SUB-FIELD^^.01^1"
^DD(130.422,0,"DT")="2920129"
^DD(130.422,0,"NM","DELAY COMMENTS")=""
^DD(130.422,0,"UP")="130.042"
^DD(130.422,.01,0)="DELAY COMMENTS^W^^0;1^Q"
^DD(130.422,.01,.1)="Delay Comments"
^DD(130.422,.01,3)="Enter comments related to this delay."
^DD(130.422,.01,21,0)="^^2^2^2920129^"
^DD(130.422,.01,21,1,0)="This contains comments related to the delay cause."
^DD(130.422,.01,21,2,0)=" "
^DD(130.422,.01,23,0)="^^3^3^2920129^"
^DD(130.422,.01,23,1,0)="This is a word-processing type field containing comments related"
^DD(130.422,.01,23,2,0)="to the delay cause."
^DD(130.422,.01,23,3,0)=" "
^DD(130.422,.01,"DT")="2920129"
^DD(130.422,"B","DELAY COMMENTS",.01)=""
^DD(130.422,"B","Delay Comments",.01)="1"
^DD(130.422,"GL",0,1,.01)=""
^DD(130.43,0)="RETURNED TO SURGERY SUB-FIELD^^3^4"
^DD(130.43,0,"DT")="2920331"
^DD(130.43,0,"IX","B",130.43,.01)=""
^DD(130.43,0,"NM","RETURNED TO SURGERY")=""
^DD(130.43,0,"UP")="130"
^DD(130.43,.01,0)="RETURNED TO SURGERY^*P130'X^SRF(^0;1^S DIC(""S"")=""I $P(^(0),""""^"""")=$P(^SRF(DA,0),""""^"""")"" D ^DIC K DIC S DIC=DIE,X=+Y,DINUM=X K:Y<0 X"
^DD(130.43,.01,.1)="Case Number for Return to Surgery within 30 days"
^DD(130.43,.01,1,0)="^.1^^0"
^DD(130.43,.01,1,1,0)="130.43^B"
^DD(130.43,.01,1,1,1)="S ^SRF(DA(1),29,""B"",$E(X,1,30),DA)="""""
^DD(130.43,.01,1,1,2)="K ^SRF(DA(1),29,""B"",$E(X,1,30),DA)"
^DD(130.43,.01,21,0)="^^3^3^2900709^^"
^DD(130.43,.01,21,1,0)="This indicates the case number if the patient has been returned to"
^DD(130.43,.01,21,2,0)="surgery within 30 days."
^DD(130.43,.01,21,3,0)=" "
^DD(130.43,.01,"DEL",.01,0)="I $D(^SRF(DA(1),""CON"")),$P(^(""CON""),""^"") D ^SROCOND I 0"
^DD(130.43,.01,"DT")="2910122"
^DD(130.43,1,0)="REASON^S^R:RETREATMENT;C:COMPLICATION;N:NEW PROBLEM;^0;2^Q"
^DD(130.43,1,.1)="Reason for Return"
^DD(130.43,1,3)="Enter the code corresponding to the reason that this patient was returned to surgery."
^DD(130.43,1,21,0)="^^2^2^2900109^"
^DD(130.43,1,21,1,0)="This is the reason that the patient was returned to surgery."
^DD(130.43,1,21,2,0)=" "
^DD(130.43,1,"DT")="2860823"
^DD(130.43,2,0)="RET TO SURGERY COMMENTS^130.44^^1;0"
^DD(130.43,2,.1)="Comments Related to the Return Case"
^DD(130.43,2,21,0)="^^3^3^2900109^"
^DD(130.43,2,21,1,0)="These are comments about the return to surgery which may be helpful"
^DD(130.43,2,21,2,0)="in documentation of this case."
^DD(130.43,2,21,3,0)=" "
^DD(130.43,3,0)="RELATED/UNRELATED^S^U:UNRELATED TO THIS CASE;R:RELATED TO THIS CASE;^0;3^Q"
^DD(130.43,3,.1)="Return Related or Unrelated to this Case"
^DD(130.43,3,3)="Enter 'R' if this return within 30 days is related to this case."
^DD(130.43,3,21,0)="^^4^4^2920331^"
^DD(130.43,3,21,1,0)="This determines whether the return within 30 days is related to any"
^DD(130.43,3,21,2,0)="of the operations performed in this case.  If so, enter 'R' for"
^DD(130.43,3,21,3,0)="'RELATED'.  Otherwise, enter 'U' for 'UNRELATED'."
^DD(130.43,3,21,4,0)=" "
^DD(130.43,3,"DT")="2920331"
^DD(130.43,"B","REASON",1)=""
^DD(130.43,"B","RELATED/UNRELATED",3)=""
^DD(130.43,"B","RET TO SURGERY COMMENTS",2)=""
^DD(130.43,"B","RETURNED TO SURGERY",.01)=""
^DD(130.43,"B","Reason for Return",1)="1"
^DD(130.43,"GL",0,1,.01)=""
^DD(130.43,"GL",0,2,1)=""
^DD(130.43,"GL",0,3,3)=""
^DD(130.43,"GL",1,0,2)=""
^DD(130.43,"IX",.01)=""
^DD(130.43,"SB",130.44,2)=""
^DD(130.44,0)="RET TO SURGERY COMMENTS SUB-FIELD^^.01^1"
^DD(130.44,0,"NM","RET TO SURGERY COMMENTS")=""
^DD(130.44,0,"UP")="130.43"
^DD(130.44,.01,0)="COMMENTS^W^^0;1^Q"
^DD(130.44,.01,.1)="Comments"
^DD(130.44,.01,21,0)="^^3^3^2900109^"
^DD(130.44,.01,21,1,0)="These are comments about the return to surgery that may be useful in"
^DD(130.44,.01,21,2,0)="documentation of this case."
^DD(130.44,.01,21,3,0)=" "
^DD(130.44,.01,"DT")="2860823"
^DD(130.44,"B","COMMENTS",.01)=""
^DD(130.44,"B","Comments",.01)="1"
^DD(130.44,"GL",0,1,.01)=""
^DD(130.47,0)="ANESTHESIA AGENTS SUB-FIELD^^1^2"
^DD(130.47,0,"NM","ANESTHESIA AGENTS")=""
^DD(130.47,0,"UP")="130.06"
^DD(130.47,.01,0)="ANESTHESIA AGENTS^*P50'X^PSDRUG(^0;1^S DIC(""S"")=""I $$SCR^SROMED("""""""",""""S"""")"",D=""B^C"" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(130.47,.01,.1)="Anesthesia Agent"
^DD(130.47,.01,1,0)="^.1^^0"
^DD(130.47,.01,3)=""
^DD(130.47,.01,4)=""
^DD(130.47,.01,12)="ENTRY MUST BE FLAGGED FOR USE AS AN ANESTHESIA AGENT"
^DD(130.47,.01,12.1)="S DIC(""S"")=""I $$SCR^SROMED("""""""",""""S"""")"""
^DD(130.47,.01,21,0)="8^^8^8^2900105^"
^DD(130.47,.01,21,1,0)="More than one anesthesia agent may be entered for each technique."
^DD(130.47,.01,21,2,0)=" "
^DD(130.47,.01,21,3,0)="The ANESTHESIA AGENT field uses entries from your local DRUG file."
^DD(130.47,.01,21,4,0)="Prior to using the Surgery package, drugs that will be used as"
^DD(130.47,.01,21,5,0)="anesthesia agents must be flagged (using the Chief's Menu) by your"
^DD(130.47,.01,21,6,0)="package coordinator.  If you are having problems entering an agent,"
^DD(130.47,.01,21,7,0)="it is likely that the drug you are choosing has not been flagged."
^DD(130.47,.01,21,8,0)=" "
^DD(130.47,.01,"DT")="3080130"
^DD(130.47,1,0)="DOSE (mg)^NJ9,4^^0;2^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""5N.N) X"
^DD(130.47,1,.1)="Dose (mg)"
^DD(130.47,1,3)="Enter a Number between 0 and 1000, 4 Decimal Digits."
^DD(130.47,1,21,0)="^^1^1^2901022^^^^"
^DD(130.47,1,21,1,0)="This is the end total dose (in mgs) for nonvolatile agents."
^DD(130.47,1,"DT")="2901022"
^DD(130.47,"B","ANESTHESIA AGENTS",.01)=""
^DD(130.47,"B","Anesthesia Agent",.01)="1"
^DD(130.47,"B","DOSE (mg)",1)=""
^DD(130.47,"B","Dose (mg)",1)="1"
^DD(130.47,"GL",0,1,.01)=""
^DD(130.47,"GL",0,2,1)=""
^DD(130.48,0)="TEST DOSE SUB-FIELD^^1^2"
^DD(130.48,0,"IX","B",130.48,.01)=""
^DD(130.48,0,"NM","TEST DOSE")=""
^DD(130.48,0,"UP")="130.06"
^DD(130.48,.01,0)="TEST DOSE^*P50'X^PSDRUG(^0;1^S DIC(""S"")=""I $$SCR^SROMED("""""""",""""S"""")"",D=""B^C"" D MIX^DIC1 K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(130.48,.01,.1)="Epidural Test Dose"
^DD(130.48,.01,1,0)="^.1"
^DD(130.48,.01,1,1,0)="130.48^B"
^DD(130.48,.01,1,1,1)="S ^SRF(DA(2),6,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(130.48,.01,1,1,2)="K ^SRF(DA(2),6,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(130.48,.01,3)=""
^DD(130.48,.01,4)=""
^DD(130.48,.01,12)="ENTRY MUST BE FLAGGED AS AN ANESTHESIA AGENT"
^DD(130.48,.01,12.1)="S DIC(""S"")=""I $$SCR^SROMED("""""""",""""S"""")"""
^DD(130.48,.01,21,0)="^^1^1^2900706^^^^"
^DD(130.48,.01,21,1,0)="This is the name of the drug used for the epidural test dose."
^DD(130.48,.01,"DT")="3080130"
^DD(130.48,1,0)="DOSE (mg)^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.48,1,.1)="Dose (mg)"
^DD(130.48,1,3)="Enter a whole number between 1 and 999999."
^DD(130.48,1,21,0)="^^1^1^2900105^^^^"
^DD(130.48,1,21,1,0)="This is the number of milligrams used of the test drug."
^DD(130.48,1,"DT")="2870126"
^DD(130.48,"B","DOSE (mg)",1)=""
^DD(130.48,"B","Dose (mg)",1)="1"
^DD(130.48,"B","Epidural Test Dose",.01)="1"
^DD(130.48,"B","TEST DOSE",.01)=""
^DD(130.48,"GL",0,1,.01)=""
^DD(130.48,"GL",0,2,1)=""
^DD(130.48,"IX",.01)=""
^DD(130.49,0)="BLOCK SITE SUB-FIELD^^2^3"
^DD(130.49,0,"IX","B",130.49,.01)=""
^DD(130.49,0,"NM","BLOCK SITE")=""
^DD(130.49,0,"UP")="130.06"
^DD(130.49,.01,0)="BLOCK SITE^P61'^LAB(61,^0;1^Q"
^DD(130.49,.01,.1)="Regional Block Site"
^DD(130.49,.01,1,0)="^.1"
^DD(130.49,.01,1,1,0)="130.49^B"
^DD(130.49,.01,1,1,1)="S ^SRF(DA(2),6,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(130.49,.01,1,1,2)="K ^SRF(DA(2),6,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(130.49,.01,21,0)="^^4^4^2900706^^^^"
^DD(130.49,.01,21,1,0)="This is the name or SNOMED code of the site of the anesthetic regional"
^DD(130.49,.01,21,2,0)="block.  This information is not required, but may be useful for "
^DD(130.49,.01,21,3,0)="documentation and review."
^DD(130.49,.01,21,4,0)=" "
^DD(130.49,.01,"DT")="2870126"
^DD(130.49,1,0)="NEEDLE LENGTH, CM.^NJ6,3^^0;2^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""4N.N) X"
^DD(130.49,1,.1)="Length of Needle (cm)"
^DD(130.49,1,3)="Type a Number between 1 and 50, 3 Decimal Digits"
^DD(130.49,1,21,0)="^^3^3^2921106^^^^"
^DD(130.49,1,21,1,0)="This is the length of the needle (in cms.) used for the administration"
^DD(130.49,1,21,2,0)="of the agent for regional block."
^DD(130.49,1,21,3,0)=" "
^DD(130.49,1,"DT")="2880119"
^DD(130.49,2,0)="NEEDLE GAUGE^NJ2,0^^0;3^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(130.49,2,.1)="Gauge Size of the Needle"
^DD(130.49,2,3)="Enter a whole number between 1 and 50."
^DD(130.49,2,21,0)="^^3^3^2900706^^^^"
^DD(130.49,2,21,1,0)="This is the gauge size of the needle used for administration of the"
^DD(130.49,2,21,2,0)="agent for regional block."
^DD(130.49,2,21,3,0)=" "
^DD(130.49,2,"DT")="2870126"
^DD(130.49,"B","BLOCK SITE",.01)=""
^DD(130.49,"B","Gauge Size of the Needle",2)="1"
^DD(130.49,"B","Length of Needle (cm)",1)="1"
^DD(130.49,"B","NEEDLE GAUGE",2)=""
^DD(130.49,"B","NEEDLE LENGTH, CM.",1)=""
^DD(130.49,"B","Regional Block Site",.01)="1"
^DD(130.49,"GL",0,1,.01)=""
^DD(130.49,"GL",0,2,1)=""
^DD(130.49,"GL",0,3,2)=""
^DD(130.49,"IX",.01)=""
^DD(130.5,0)="ANESTHESIA COMMENTS SUB-FIELD^^.01^1"
^DD(130.5,0,"NM","ANESTHESIA COMMENTS")=""
^DD(130.5,0,"UP")="130.06"
^DD(130.5,.01,0)="ANESTHESIA COMMENTS^W^^0;1^Q"
^DD(130.5,.01,.1)="Anesthesia Comments"
^DD(130.5,.01,21,0)="^^2^2^2900105^^"
^DD(130.5,.01,21,1,0)="This is information about the anesthesia care for this case."
^DD(130.5,.01,21,2,0)=" "
^DD(130.5,.01,21,3,0)=" "
^DD(130.5,.01,"DT")="2870202"
^DD(130.5,"B","ANESTHESIA COMMENTS",.01)=""
^DD(130.5,"B","Anesthesia Comments",.01)="1"
^DD(130.5,"GL",0,1,.01)=""
^DD(130.534,0)="OCCURRENCE COMMENTS SUB-FIELD^^.01^1"
^DD(130.534,0,"NM","OCCURRENCE COMMENTS")=""
^DD(130.534,0,"UP")="130.053"
^DD(130.534,.01,0)="OCCURRENCE COMMENTS^W^^0;1^Q"
^DD(130.534,.01,.1)="Occurrence Comments"
^DD(130.534,.01,3)="Enter comments regarding this occurrence."
^DD(130.534,.01,21,0)="^^3^3^2900720^"
^DD(130.534,.01,21,1,0)="This is information that might be helpful in documentation of the"
^DD(130.534,.01,21,2,0)="non-operative occurrence."
^DD(130.534,.01,21,3,0)=" "
^DD(130.534,.01,"DT")="2900720"
^DD(130.534,"B","OCCURRENCE COMMENTS",.01)=""
^DD(130.534,"B","Occurrence Comments",.01)="1"
^DD(130.534,"GL",0,1,.01)=""
^DD(130.8,0)="SPD COMMENTS SUB-FIELD^^.01^1"
^DD(130.8,0,"DT")="3020905"
^DD(130.8,0,"NM","SPD COMMENTS")=""
^DD(130.8,0,"UP")="130"
^DD(130.8,.01,0)="SPD COMMENTS^W^^0;1^Q"
^DD(130.8,.01,.1)="SPD Comments"
^DD(130.8,.01,21,0)="^.001^3^3^3020905^^^^"
^DD(130.8,.01,21,1,0)="This word-processing field contains any information for SPD that cannot be"
^DD(130.8,.01,21,2,0)="entered elsewhere.  These comments will be sent to SPD via the"
^DD(130.8,.01,21,3,0)="Surgery/CoreFLS interface."
^DD(130.8,.01,"DT")="3020905"
^DD(130.8,"B","SPD COMMENTS",.01)=""
^DD(130.8,"B","SPD Comments",.01)="1"
^DD(130.8,"GL",0,1,.01)=""
^DD(131,0)="FIELD^^5^4"
^DD(131,0,"DDA")="N"
^DD(131,0,"DT")="2920113"
^DD(131,0,"ID",4)="W """""
^DD(131,0,"IX","AX",131.03,.01)=""
^DD(131,0,"IX","B",131,.01)=""
^DD(131,0,"NM","PERSON FIELD RESTRICTION")=""
^DD(131,.01,0)="FIELD IDENTIFIER^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(131,.01,.1)="Field Identifier"
^DD(131,.01,1,0)="^.1"
^DD(131,.01,1,1,0)="131^B"
^DD(131,.01,1,1,1)="S ^SRP(""B"",$E(X,1,30),DA)="""""
^DD(131,.01,1,1,2)="K ^SRP(""B"",$E(X,1,30),DA)"
^DD(131,.01,3)="Your answer must be 3-30 characters in length."
^DD(131,.01,21,0)="^^13^13^2920113^^"
^DD(131,.01,21,1,0)="This is the field identifier.  It is the combination of a file (or"
^DD(131,.01,21,2,0)="sub-file) number and field number.  These numbers are separated by"
^DD(131,.01,21,3,0)="a comma.  Examples of typical entries are listed below."
^DD(131,.01,21,4,0)=" "
^DD(131,.01,21,5,0)="  1. 130,.14   <-------- 130 is the file number of the SURGERY file"
^DD(131,.01,21,6,0)="                         and .14 is the field number of the SURGEON"
^DD(131,.01,21,7,0)="                         field contained in that file."
^DD(131,.01,21,8,0)=" "
^DD(131,.01,21,9,0)="  2. 130.28,.01 <------- 130.28 is the sub-file number of the OR"
^DD(131,.01,21,10,0)="                         CIRC SUPPORT sub-file of the SURGERY file."
^DD(131,.01,21,11,0)="                         .01 is the OR CIRC SUPPORT field within the"
^DD(131,.01,21,12,0)="                         sub-file."
^DD(131,.01,21,13,0)=" "
^DD(131,.01,23,0)="^^6^6^2920113^^"
^DD(131,.01,23,1,0)="This is the field identifier.  It is a combination of file (or sub-file)"
^DD(131,.01,23,2,0)="number and field number.  These numbers are separated by a comma.  For"
^DD(131,.01,23,3,0)="example, the SURGEON field in the SURGERY file would have '130,.14' as"
^DD(131,.01,23,4,0)="it's field identifier.  Entries in this file are created by the SROKEY"
^DD(131,.01,23,5,0)="option."
^DD(131,.01,23,6,0)=" "
^DD(131,.01,"DT")="2920113"
^DD(131,3,0)="KEYS^131.03^^1;0"
^DD(131,3,21,0)="^^2^2^2921228^^^^"
^DD(131,3,21,1,0)="This field contains the key(s) used to restrict entries into this"
^DD(131,3,21,2,0)="field. "
^DD(131,3,23,0)="^^1^1^2921228^^^"
^DD(131,3,23,1,0)="This field contains the keys that will be used to restrict entries."
^DD(131,4,0)="MODIFY LOCALLY^S^1:YES;0:NO;^0;4^Q"
^DD(131,4,.1)="Can the Restrictions be Modified Locally"
^DD(131,4,3)="Enter '1' if keys can be added for this field at each medical center."
^DD(131,4,21,0)="^^6^6^2920102^"
^DD(131,4,21,1,0)="This determines whether the keys associated with this field can be"
^DD(131,4,21,2,0)="modified at each individual medical center.  If this field is set to"
^DD(131,4,21,3,0)="'0', only the keys created by the initialization of the package will"
^DD(131,4,21,4,0)="be used to restrict entries.  The deletion or addition of keys will"
^DD(131,4,21,5,0)="not be allowed."
^DD(131,4,21,6,0)=" "
^DD(131,4,23,0)="^^3^3^2920102^"
^DD(131,4,23,1,0)="This field will prohibit sites from adding or deleting keys for this"
^DD(131,4,23,2,0)="particular entry."
^DD(131,4,23,3,0)=" "
^DD(131,4,"DT")="2920102"
^DD(131,5,0)="COMMENTS^131.05^^2;0"
^DD(131,5,.1)="Enter Comments or Special Instructions"
^DD(131,5,21,0)="^^3^3^2920103^"
^DD(131,5,21,1,0)="This contains any special comments related to this field or the keys"
^DD(131,5,21,2,0)="used to restrict entries into it. "
^DD(131,5,21,3,0)=" "
^DD(131,"B","COMMENTS",5)=""
^DD(131,"B","FIELD IDENTIFIER",.01)=""
^DD(131,"B","Field Identifier",.01)="1"
^DD(131,"B","KEYS",3)=""
^DD(131,"B","MODIFY LOCALLY",4)=""
^DD(131,"GL",0,1,.01)=""
^DD(131,"GL",0,4,4)=""
^DD(131,"GL",1,0,3)=""
^DD(131,"GL",2,0,5)=""
^DD(131,"IX",.01)=""
^DD(131,"RQ",.01)=""
^DD(131,"SB",131.03,3)=""
^DD(131,"SB",131.05,5)=""
^DD(131.01,0)="FIELD^^10^3"
^DD(131.01,0,"DDA")="N"
^DD(131.01,0,"DT")="2921019"
^DD(131.01,0,"IX","B",131.01,.01)=""
^DD(131.01,0,"IX","C",131.01,1)=""
^DD(131.01,0,"NM","SURGERY TRANSPORTATION DEVICES")=""
^DD(131.01,0,"PT",130,.11)=""
^DD(131.01,0,"PT",130,25)=""
^DD(131.01,0,"VR")="3"
^DD(131.01,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(131.01,.01,.1)="Transportation Device"
^DD(131.01,.01,1,0)="^.1"
^DD(131.01,.01,1,1,0)="131.01^B"
^DD(131.01,.01,1,1,1)="S ^SRO(131.01,""B"",$E(X,1,30),DA)="""""
^DD(131.01,.01,1,1,2)="K ^SRO(131.01,""B"",$E(X,1,30),DA)"
^DD(131.01,.01,3)="Answer must be 3-30 characters in length."
^DD(131.01,.01,21,0)="^^4^4^2921019^^"
^DD(131.01,.01,21,1,0)="This is the name of the device used to transport the patient to and"
^DD(131.01,.01,21,2,0)="from the Operating Room.  Although this field is optional, it may be"
^DD(131.01,.01,21,3,0)="helpful in documentation of the case."
^DD(131.01,.01,21,4,0)=" "
^DD(131.01,.01,"DEL",1,0)="W !,""Deletion from the Surgery Transportation Devices file is not allowed !! "",*7 I 1"
^DD(131.01,.01,"DT")="2921019"
^DD(131.01,1,0)="CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(131.01,1,.1)="Code"
^DD(131.01,1,1,0)="^.1"
^DD(131.01,1,1,1,0)="131.01^C"
^DD(131.01,1,1,1,1)="S ^SRO(131.01,""C"",$E(X,1,30),DA)="""""
^DD(131.01,1,1,1,2)="K ^SRO(131.01,""C"",$E(X,1,30),DA)"
^DD(131.01,1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(131.01,1,21,0)="^^3^3^2900709^"
^DD(131.01,1,21,1,0)="This is the code corresponding to the device used to transport the patient"
^DD(131.01,1,21,2,0)="to and from the Operating Room."
^DD(131.01,1,21,3,0)=" "
^DD(131.01,1,"DT")="2870929"
^DD(131.01,10,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(131.01,10,.1)="Inactive?"
^DD(131.01,10,3)="Enter 'YES' to inactivate this file entry."
^DD(131.01,10,21,0)="^^2^2^2920602^"
^DD(131.01,10,21,1,0)="Enter 'YES' to inactivate this entry to prevent its selection by Surgery"
^DD(131.01,10,21,2,0)="users."
^DD(131.01,10,"DT")="2920602"
^DD(131.01,"B","CODE",1)=""
^DD(131.01,"B","Code",1)="1"
^DD(131.01,"B","INACTIVE?",10)=""
^DD(131.01,"B","Inactive?",10)="1"
^DD(131.01,"B","NAME",.01)=""
^DD(131.01,"B","Transportation Device",.01)="1"
^DD(131.01,"GL",0,1,.01)=""
^DD(131.01,"GL",0,2,1)=""
^DD(131.01,"GL",0,3,10)=""
^DD(131.01,"IX",.01)=""
^DD(131.01,"IX",1)=""
^DD(131.01,"RQ",.01)=""
^DD(131.03,0)="KEYS SUB-FIELD^^.01^1"
^DD(131.03,0,"DT")="2920109"
^DD(131.03,0,"NM","KEYS")=""
^DD(131.03,0,"UP")="131"
^DD(131.03,.01,0)="KEYS^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(131.03,.01,.1)="Name of Key"
^DD(131.03,.01,1,0)="^.1^^-1"
^DD(131.03,.01,1,2,0)="131^AX^MUMPS"
^DD(131.03,.01,1,2,1)="D XREF^SROXPR"
^DD(131.03,.01,1,2,2)="D KXREF^SROXPR"
^DD(131.03,.01,1,2,"%D",0)="^^3^3^2920102^"
^DD(131.03,.01,1,2,"%D",1,0)="The 'AX' cross reference will be used when checking to determine whether"
^DD(131.03,.01,1,2,"%D",2,0)="a 'person' type field is restricted by one or more keys."
^DD(131.03,.01,1,2,"%D",3,0)=" "
^DD(131.03,.01,1,2,"DT")="2920102"
^DD(131.03,.01,3)="Answer must be 1-40 characters in length."
^DD(131.03,.01,21,0)="^^3^3^2921228^^^^"
^DD(131.03,.01,21,1,0)="This is the name of the key that will be used to restrict entries"
^DD(131.03,.01,21,2,0)="into this field."
^DD(131.03,.01,21,3,0)=" "
^DD(131.03,.01,23,0)="^^3^3^2921228^^^^"
^DD(131.03,.01,23,1,0)="This will be used to restrict entries into this field.  The routine"
^DD(131.03,.01,23,2,0)="SROXPR will be called by the input transform on restricted fields"
^DD(131.03,.01,23,3,0)="in other files."
^DD(131.03,.01,"DT")="2920110"
^DD(131.03,"B","KEYS",.01)=""
^DD(131.03,"B","Name of Key",.01)="1"
^DD(131.03,"GL",0,1,.01)=""
^DD(131.03,"IX",.01)=""
^DD(131.05,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(131.05,0,"DT")="2920103"
^DD(131.05,0,"NM","COMMENTS")=""
^DD(131.05,0,"UP")="131"
^DD(131.05,.01,0)="COMMENTS^W^^0;1^Q"
^DD(131.05,.01,.1)="Enter Comments or Special Instructions"
^DD(131.05,.01,3)="Enter any special comments regarding this field and the restrictions applied to it."
^DD(131.05,.01,21,0)="^^3^3^2920103^"
^DD(131.05,.01,21,1,0)="This contains any special comments related to the field or the keys"
^DD(131.05,.01,21,2,0)="used to restrict entries into it."
^DD(131.05,.01,21,3,0)=" "
^DD(131.05,.01,23,0)="^^1^1^2920103^"
^DD(131.05,.01,23,1,0)="This is a word-processing field containing comments."
^DD(131.05,.01,"DT")="2920103"
^DD(131.05,"B","COMMENTS",.01)=""
^DD(131.05,"GL",0,1,.01)=""
^DD(131.25,0)="FIELD^^1^2"
^DD(131.25,0,"DT")="2920427"
^DD(131.25,0,"IX","B",131.25,.01)=""
^DD(131.25,0,"NM","OPERATION TIMES")=""
^DD(131.25,0,"VR")="3"
^DD(131.25,.01,0)="SURGICAL SPECIALTY^RP137.45'X^SRO(137.45,^0;1^Q"
^DD(131.25,.01,.1)="Surgical Specialty"
^DD(131.25,.01,1,0)="^.1"
^DD(131.25,.01,1,1,0)="131.25^B"
^DD(131.25,.01,1,1,1)="S ^SRO(131.25,""B"",$E(X,1,30),DA)="""""
^DD(131.25,.01,1,1,2)="K ^SRO(131.25,""B"",$E(X,1,30),DA)"
^DD(131.25,.01,3)=""
^DD(131.25,.01,21,0)="^^3^3^2930322^^^^"
^DD(131.25,.01,21,1,0)="This is the name of the Surgical Specialty given credit for performing"
^DD(131.25,.01,21,2,0)="this operative procedure."
^DD(131.25,.01,21,3,0)=" "
^DD(131.25,.01,22)=""
^DD(131.25,.01,"DT")="2920427"
^DD(131.25,1,0)="OPERATION^131.251PA^^1;0"
^DD(131.25,1,.1)="Operative Procedures"
^DD(131.25,1,21,0)="^^2^2^2900123^"
^DD(131.25,1,21,1,0)="This is information related to the operative procedure."
^DD(131.25,1,21,2,0)=" "
^DD(131.25,"B","OPERATION",1)=""
^DD(131.25,"B","Operative Procedures",1)="1"
^DD(131.25,"B","SURGICAL SPECIALTY",.01)=""
^DD(131.25,"B","Surgical Specialty",.01)="1"
^DD(131.25,"GL",0,1,.01)=""
^DD(131.25,"GL",1,0,1)=""
^DD(131.25,"IX",.01)=""
^DD(131.25,"RQ",.01)=""
^DD(131.25,"SB",131.251,1)=""
^DD(131.251,0)="OPERATION SUB-FIELD^^2^3"
^DD(131.251,0,"NM","OPERATION")=""
^DD(131.251,0,"UP")="131.25"
^DD(131.251,.01,0)="OPERATION^P81'X^ICPT(^0;1^S DINUM=X Q"
^DD(131.251,.01,.1)="Operative Procedure (CPT)"
^DD(131.251,.01,1,0)="^.1^^0"
^DD(131.251,.01,21,0)="^^2^2^2900709^^"
^DD(131.251,.01,21,1,0)="This is the CPT code corresponding to the principal operative procedure."
^DD(131.251,.01,21,2,0)=" "
^DD(131.251,.01,"DT")="2910718"
^DD(131.251,1,0)="TOTAL MINUTES^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(131.251,1,.1)="Total Number of Minutes"
^DD(131.251,1,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(131.251,1,21,0)="^^3^3^2900709^^"
^DD(131.251,1,21,1,0)="This is the total number of minutes needed to perform all of the"
^DD(131.251,1,21,2,0)="operative procedures with this CPT code."
^DD(131.251,1,21,3,0)=" "
^DD(131.251,2,0)="TOTAL OPERATIONS^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(131.251,2,.1)="Total Number of Operations"
^DD(131.251,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(131.251,2,21,0)="^^2^2^2900123^"
^DD(131.251,2,21,1,0)="This is the total number of times that this operative procedure was"
^DD(131.251,2,21,2,0)="performed."
^DD(131.251,"B","OPERATION",.01)=""
^DD(131.251,"B","Operative Procedure (CPT)",.01)="1"
^DD(131.251,"B","TOTAL MINUTES",1)=""
^DD(131.251,"B","TOTAL OPERATIONS",2)=""
^DD(131.251,"B","Total Number of Minutes",1)="1"
^DD(131.251,"B","Total Number of Operations",2)="1"
^DD(131.251,"GL",0,1,.01)=""
^DD(131.251,"GL",0,2,1)=""
^DD(131.251,"GL",0,3,2)=""
^DD(131.6,0)="FIELD^^3^4"
^DD(131.6,0,"DT")="2960321"
^DD(131.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(131.6,0,"IX","B",131.6,.01)=""
^DD(131.6,0,"IX","C",131.6,1)=""
^DD(131.6,0,"IX","D",131.63,.01)=""
^DD(131.6,0,"NM","SURGERY DISPOSITION")=""
^DD(131.6,0,"PT",130,.43)=""
^DD(131.6,0,"PT",130,.46)=""
^DD(131.6,0,"PT",130,.79)=""
^DD(131.6,0,"VR")="3.0"
^DD(131.6,0,"VRPK")="SR"
^DD(131.6,.01,0)="DISPOSITION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(131.6,.01,.1)="Disposition Name"
^DD(131.6,.01,1,0)="^.1"
^DD(131.6,.01,1,1,0)="131.6^B"
^DD(131.6,.01,1,1,1)="S ^SRO(131.6,""B"",$E(X,1,30),DA)="""""
^DD(131.6,.01,1,1,2)="K ^SRO(131.6,""B"",$E(X,1,30),DA)"
^DD(131.6,.01,3)="Answer must be 3-30 characters in length."
^DD(131.6,.01,21,0)="^^1^1^2940323^"
^DD(131.6,.01,21,1,0)="This is the name of the surgery disposition."
^DD(131.6,.01,"DEL",1,0)="D EN^DDIOL(""Deletion from the Surgery Disposition file is not allowed !! "","""",""!"") I 1"
^DD(131.6,.01,"DT")="2960208"
^DD(131.6,1,0)="CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(131.6,1,.1)="Disposition Code"
^DD(131.6,1,1,0)="^.1"
^DD(131.6,1,1,1,0)="131.6^C"
^DD(131.6,1,1,1,1)="S ^SRO(131.6,""C"",$E(X,1,30),DA)="""""
^DD(131.6,1,1,1,2)="K ^SRO(131.6,""C"",$E(X,1,30),DA)"
^DD(131.6,1,1,1,"%D",0)="^^1^1^2940323^"
^DD(131.6,1,1,1,"%D",1,0)="This cross reference is used to facilitate the lookup process."
^DD(131.6,1,1,1,"DT")="2940323"
^DD(131.6,1,3)="Answer must be 1-5 characters in length."
^DD(131.6,1,21,0)="^^1^1^2960321^^"
^DD(131.6,1,21,1,0)="This optional code is used to facilitate disposition selection and lookup."
^DD(131.6,1,"DT")="2960321"
^DD(131.6,2,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(131.6,2,.1)="Inactive?"
^DD(131.6,2,3)="Enter 'YES' to inactivate this file entry."
^DD(131.6,2,21,0)="^^2^2^2940324^"
^DD(131.6,2,21,1,0)="Enter 'YES' to inactivate this file entry and to prevent its selection"
^DD(131.6,2,21,2,0)="by Surgery users."
^DD(131.6,2,"DT")="2940324"
^DD(131.6,3,0)="SYNONYM^131.63^^1;0"
^DD(131.6,"B","CODE",1)=""
^DD(131.6,"B","DISPOSITION",.01)=""
^DD(131.6,"B","Disposition Code",1)="1"
^DD(131.6,"B","Disposition Name",.01)="1"
^DD(131.6,"B","INACTIVE?",2)=""
^DD(131.6,"B","Inactive?",2)="1"
^DD(131.6,"B","SYNONYM",3)=""
^DD(131.6,"GL",0,1,.01)=""
^DD(131.6,"GL",0,2,1)=""
^DD(131.6,"GL",0,3,2)=""
^DD(131.6,"GL",1,0,3)=""
^DD(131.6,"IX",.01)=""
^DD(131.6,"IX",1)=""
^DD(131.6,"RQ",.01)=""
^DD(131.6,"SB",131.63,3)=""
^DD(131.63,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(131.63,0,"DT")="2960125"
^DD(131.63,0,"NM","SYNONYM")=""
^DD(131.63,0,"UP")="131.6"
^DD(131.63,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(131.63,.01,.1)="Synonym"
^DD(131.63,.01,1,0)="^.1"
^DD(131.63,.01,1,1,0)="131.6^D^MUMPS"
^DD(131.63,.01,1,1,1)="S ^SRO(131.6,""D"",X,DA(1))="""""
^DD(131.63,.01,1,1,2)="K ^SRO(131.6,""D"",X,DA(1))"
^DD(131.63,.01,1,1,"%D",0)="^^1^1^2960125^"
^DD(131.63,.01,1,1,"%D",1,0)="This cross reference is used for lookups on the whole file."
^DD(131.63,.01,1,1,"DT")="2960125"
^DD(131.63,.01,3)="Answer must be 1-30 characters in length."
^DD(131.63,.01,21,0)="^^1^1^2960125^^"
^DD(131.63,.01,21,1,0)="This subfile contains other names by which this disposition may be known."
^DD(131.63,.01,"DT")="2960125"
^DD(131.63,"B","SYNONYM",.01)=""
^DD(131.63,"B","Synonym",.01)="1"
^DD(131.63,"GL",0,1,.01)=""
^DD(131.63,"IX",.01)=""
^DD(131.7,0)="FIELD^^99^12"
^DD(131.7,0,"DT")="2920608"
^DD(131.7,0,"IX","B",131.7,.01)=""
^DD(131.7,0,"IX","C",131.704,.01)=""
^DD(131.7,0,"NM","OPERATING ROOM")=""
^DD(131.7,0,"PT",130,.02)=""
^DD(131.7,0,"PT",131.81,.01)=""
^DD(131.7,0,"PT",446.1,130.02)=""
^DD(131.7,0,"VR")="3"
^DD(131.7,.01,0)="NAME^R*P44'^SC(^0;1^S DIC(""S"")=""I $D(^SC(""""AC"""",""""OR"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(131.7,.01,.1)="Operating Room Name"
^DD(131.7,.01,1,0)="^.1^^-1"
^DD(131.7,.01,1,1,0)="131.7^B"
^DD(131.7,.01,1,1,1)="S ^SRS(""B"",$E(X,1,30),DA)="""""
^DD(131.7,.01,1,1,2)="K ^SRS(""B"",$E(X,1,30),DA)"
^DD(131.7,.01,3)="To enter a new operating room, see your IRM staff."
^DD(131.7,.01,12)="SELECT OR ONLY"
^DD(131.7,.01,12.1)="S DIC(""S"")=""I $D(^SC(""""AC"""",""""OR"""",Y))"""
^DD(131.7,.01,21,0)="^^2^2^2900709^^"
^DD(131.7,.01,21,1,0)="This is the name of the operating room."
^DD(131.7,.01,21,2,0)=" "
^DD(131.7,.01,"DT")="2900405"
^DD(131.7,1,0)="LOCATION^F^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(131.7,1,.1)="Location of the Operating Room"
^DD(131.7,1,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(131.7,1,21,0)="^^2^2^2900709^^^"
^DD(131.7,1,21,1,0)="This is the physical location of the operating room."
^DD(131.7,1,21,2,0)=" "
^DD(131.7,2,0)="PERSON RESP.^P200'^VA(200,^0;3^Q"
^DD(131.7,2,.1)="Person Responsible for this Operating Room"
^DD(131.7,2,3)="Enter the name of the person responsible for this operating room."
^DD(131.7,2,21,0)="^^2^2^2900709^^^"
^DD(131.7,2,21,1,0)="This is the name of the person responsible for this operating room."
^DD(131.7,2,21,2,0)=" "
^DD(131.7,2,"DT")="2911205"
^DD(131.7,3,0)="TELEPHONE^F^^0;4^K:$L(X)>9!($L(X)<2) X"
^DD(131.7,3,.1)="Telephone Number"
^DD(131.7,3,3)="ANSWER MUST BE 2-9 CHARACTERS IN LENGTH"
^DD(131.7,3,21,0)="^^2^2^2900709^^"
^DD(131.7,3,21,1,0)="This is the telephone number of the operating room."
^DD(131.7,3,21,2,0)=" "
^DD(131.7,4,0)="REMARKS^F^^0;5^K:$L(X)>64!($L(X)<2) X"
^DD(131.7,4,.1)="Remarks or Comments Relating Specifically to this Room"
^DD(131.7,4,3)="ANSWER MUST BE 2-64 CHARACTERS IN LENGTH"
^DD(131.7,4,21,0)="^^2^2^2900709^^"
^DD(131.7,4,21,1,0)="These are comments relating specifically to this operating room."
^DD(131.7,4,21,2,0)=" "
^DD(131.7,6,0)="SCHEDULE DATE^131.701DA^^S;0"
^DD(131.7,6,9)="^"
^DD(131.7,6,21,0)="^^2^2^2900125^"
^DD(131.7,6,21,1,0)="This is information about the Schedule date."
^DD(131.7,6,21,2,0)=" "
^DD(131.7,7,0)="BLOCK SCHEDULE DATE^131.702DA^^SS;0"
^DD(131.7,7,9)="^"
^DD(131.7,7,21,0)="^^3^3^2921215^"
^DD(131.7,7,21,1,0)="This is the block schedule date.  This field should not be modified"
^DD(131.7,7,21,2,0)="through Fileman."
^DD(131.7,7,21,3,0)=" "
^DD(131.7,8,0)="SERVICE BLOCKOUT^131.703A^^1;0"
^DD(131.7,8,9)="^"
^DD(131.7,8,21,0)="^^2^2^2900125^"
^DD(131.7,8,21,1,0)="This is information related to service blockouts."
^DD(131.7,8,21,2,0)=" "
^DD(131.7,9,0)="TYPE^RP134'^SRO(134,^2;1^Q"
^DD(131.7,9,.1)="Operating Room Type"
^DD(131.7,9,21,0)="^^2^2^2900709^^"
^DD(131.7,9,21,1,0)="This is the operating room type."
^DD(131.7,9,21,2,0)=" "
^DD(131.7,9,"DT")="2870924"
^DD(131.7,10,0)="CLEANING TIME^RNJ3,0^^3;1^K:+X'=X!(X>240)!(X<1)!(X?.E1"".""1N.N) X"
^DD(131.7,10,.1)="Average Time to Clean this Operating Room"
^DD(131.7,10,3)="Type a Number between 1 and 240, 0 Decimal Digits"
^DD(131.7,10,21,0)="^^4^4^2900709^^"
^DD(131.7,10,21,1,0)="This is the average number of minutes required to clean this operating"
^DD(131.7,10,21,2,0)="room after completion of a case.  It will be used in determining operating"
^DD(131.7,10,21,3,0)="room utilization."
^DD(131.7,10,21,4,0)=" "
^DD(131.7,10,"DT")="2900330"
^DD(131.7,11,0)="NORMAL DAILY SCHEDULE^131.711S^^4;0"
^DD(131.7,11,21,0)="^^2^2^2920922^"
^DD(131.7,11,21,1,0)="This is the normal daily schedule for each operating room."
^DD(131.7,11,21,2,0)=" "
^DD(131.7,11,"DT")="2920922"
^DD(131.7,99,0)="INACTIVE?^S^1:YES;^0;6^Q"
^DD(131.7,99,.1)="Inactive?"
^DD(131.7,99,3)="Enter 'YES' to inactivate this operating room."
^DD(131.7,99,21,0)="^^3^3^2920608^^"
^DD(131.7,99,21,1,0)="Enter 'YES' to make this operating room inactive and to prevent its"
^DD(131.7,99,21,2,0)="selection and use by users of the Surgery package.  A 'YES' in this"
^DD(131.7,99,21,3,0)="field indicates that this operating room is not in service."
^DD(131.7,99,"DT")="2920608"
^DD(131.7,"B","BLOCK SCHEDULE DATE",7)=""
^DD(131.7,"B","CLEANING TIME",10)=""
^DD(131.7,"B","INACTIVE?",99)=""
^DD(131.7,"B","Inactive?",99)="1"
^DD(131.7,"B","LOCATION",1)=""
^DD(131.7,"B","Location of the Operating Room",1)="1"
^DD(131.7,"B","NAME",.01)=""
^DD(131.7,"B","NORMAL DAILY SCHEDULE",11)=""
^DD(131.7,"B","Operating Room Name",.01)="1"
^DD(131.7,"B","Operating Room Type",9)="1"
^DD(131.7,"B","PERSON RESP.",2)=""
^DD(131.7,"B","REMARKS",4)=""
^DD(131.7,"B","SCHEDULE DATE",6)=""
^DD(131.7,"B","SERVICE BLOCKOUT",8)=""
^DD(131.7,"B","TELEPHONE",3)=""
^DD(131.7,"B","TYPE",9)=""
^DD(131.7,"B","Telephone Number",3)="1"
^DD(131.7,"GL",0,1,.01)=""
^DD(131.7,"GL",0,2,1)=""
^DD(131.7,"GL",0,3,2)=""
^DD(131.7,"GL",0,4,3)=""
^DD(131.7,"GL",0,5,4)=""
^DD(131.7,"GL",0,6,99)=""
^DD(131.7,"GL",1,0,8)=""
^DD(131.7,"GL",2,1,9)=""
^DD(131.7,"GL",3,1,10)=""
^DD(131.7,"GL",4,0,11)=""
^DD(131.7,"GL","S",0,6)=""
^DD(131.7,"GL","SS",0,7)=""
^DD(131.7,"IX",.01)=""
^DD(131.7,"RQ",.01)=""
^DD(131.7,"RQ",9)=""
^DD(131.7,"RQ",10)=""
^DD(131.7,"SB",131.701,6)=""
^DD(131.7,"SB",131.702,7)=""
^DD(131.7,"SB",131.703,8)=""
^DD(131.7,"SB",131.711,11)=""
^DD(131.701,0)="SCHEDULE DATE SUB-FIELD^^1^2"
^DD(131.701,0,"NM","SCHEDULE DATE")=""
^DD(131.701,0,"UP")="131.7"
^DD(131.701,.01,0)="SCHEDULE DATE^DI^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(131.701,.01,9)="^"
^DD(131.701,.01,21,0)="^^2^2^2900125^"
^DD(131.701,.01,21,1,0)="This is the date used to display the scheduling pattern."
^DD(131.701,.01,21,2,0)=" "
^DD(131.701,.01,"DT")="2870810"
^DD(131.701,1,0)="PATTERN^FI^^1;1^K:$L(X)>150!($L(X)<1) X"
^DD(131.701,1,3)="ANSWER MUST BE 1-150 CHARACTERS IN LENGTH"
^DD(131.701,1,21,0)="^^3^3^2900125^"
^DD(131.701,1,21,1,0)="This is the pattern displaying scheduled cases for this operating"
^DD(131.701,1,21,2,0)="room."
^DD(131.701,1,21,3,0)=" "
^DD(131.701,1,"DT")="2870810"
^DD(131.701,"B","PATTERN",1)=""
^DD(131.701,"B","SCHEDULE DATE",.01)=""
^DD(131.701,"GL",0,1,.01)=""
^DD(131.701,"GL",1,1,1)=""
^DD(131.702,0)="BLOCK SCHEDULE DATE SUB-FIELD^^1^2"
^DD(131.702,0,"NM","BLOCK SCHEDULE DATE")=""
^DD(131.702,0,"UP")="131.7"
^DD(131.702,.01,0)="BLOCK SCHEDULE DATE^DI^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(131.702,.01,9)="^"
^DD(131.702,.01,21,0)="^^2^2^2921215^^"
^DD(131.702,.01,21,1,0)="This is the block schedule date."
^DD(131.702,.01,21,2,0)=" "
^DD(131.702,.01,"DT")="2870810"
^DD(131.702,1,0)="PATTERN^FI^^1;1^K:$L(X)>150!($L(X)<1) X"
^DD(131.702,1,3)="ANSWER MUST BE 1-150 CHARACTERS IN LENGTH"
^DD(131.702,1,9)="^"
^DD(131.702,1,21,0)="^^2^2^2900206^"
^DD(131.702,1,21,1,0)="This is the pattern stored for the block schedule date."
^DD(131.702,1,21,2,0)=" "
^DD(131.702,1,"DT")="2870810"
^DD(131.702,"B","BLOCK SCHEDULE DATE",.01)=""
^DD(131.702,"B","PATTERN",1)=""
^DD(131.702,"GL",0,1,.01)=""
^DD(131.702,"GL",1,1,1)=""
^DD(131.703,0)="SERVICE BLOCKOUT SUB-FIELD^^1^2"
^DD(131.703,0,"DT")="2911205"
^DD(131.703,0,"IX","B",131.703,.01)=""
^DD(131.703,0,"NM","SERVICE BLOCKOUT")=""
^DD(131.703,0,"UP")="131.7"
^DD(131.703,.01,0)="DAY^FI^^0;1^K:$L(X)>4!($L(X)<1) X"
^DD(131.703,.01,1,0)="^.1"
^DD(131.703,.01,1,1,0)="131.703^B"
^DD(131.703,.01,1,1,1)="S ^SRS(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(131.703,.01,1,1,2)="K ^SRS(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(131.703,.01,3)="THIS FIELD SHOULD BE BE MODIFIED BY A PROGRAMMER ONLY !!"
^DD(131.703,.01,9)="^"
^DD(131.703,.01,21,0)="^^2^2^2900125^"
^DD(131.703,.01,21,1,0)="This is the day of the week for this blockout."
^DD(131.703,.01,21,2,0)=" "
^DD(131.703,.01,"DT")="2870810"
^DD(131.703,1,0)="SERVICE^131.704A^^1;0"
^DD(131.703,1,9)="^"
^DD(131.703,1,21,0)="^^3^3^2930322^^"
^DD(131.703,1,21,1,0)="This is information related to the service for which the operating"
^DD(131.703,1,21,2,0)="room time will be blocked out."
^DD(131.703,1,21,3,0)=" "
^DD(131.703,"B","DAY",.01)=""
^DD(131.703,"B","SERVICE",1)=""
^DD(131.703,"GL",0,1,.01)=""
^DD(131.703,"GL",1,0,1)=""
^DD(131.703,"IX",.01)=""
^DD(131.703,"SB",131.704,1)=""
^DD(131.704,0)="SERVICE SUB-FIELD^^2^3"
^DD(131.704,0,"DT")="2911205"
^DD(131.704,0,"IX","B",131.704,.01)=""
^DD(131.704,0,"NM","SERVICE")=""
^DD(131.704,0,"UP")="131.703"
^DD(131.704,.01,0)="SERVICE^FI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(131.704,.01,1,0)="^.1"
^DD(131.704,.01,1,1,0)="131.704^B"
^DD(131.704,.01,1,1,1)="S ^SRS(DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(131.704,.01,1,1,2)="K ^SRS(DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(131.704,.01,1,2,0)="131.7^C^MUMPS"
^DD(131.704,.01,1,2,1)="S ^SRS(""C"",X)="""""
^DD(131.704,.01,1,2,2)="K ^SRS(""C"",X)"
^DD(131.704,.01,1,2,"%D",0)="^^1^1^2930203^^^^"
^DD(131.704,.01,1,2,"%D",1,0)="The C cross reference on the SERVICE field is used for lookup purposes."
^DD(131.704,.01,3)="THIS FIELD SHOULD BE MODIFIED BY A PROGRAMMER ONLY !!"
^DD(131.704,.01,9)="^"
^DD(131.704,.01,21,0)="^^2^2^2930322^^"
^DD(131.704,.01,21,1,0)="This is the name of the service."
^DD(131.704,.01,21,2,0)=" "
^DD(131.704,.01,"DT")="2880411"
^DD(131.704,1,0)="START TIME^131.705A^^1;0"
^DD(131.704,1,21,0)="^^2^2^2920518^^"
^DD(131.704,1,21,1,0)="This is information related to the start time of this blockout."
^DD(131.704,1,21,2,0)=" "
^DD(131.704,2,0)="SCHEDULED BY^P200'^VA(200,^0;2^Q"
^DD(131.704,2,3)="Enter the name of the scheduler."
^DD(131.704,2,9)="^"
^DD(131.704,2,21,0)="^^3^3^2930322^^^"
^DD(131.704,2,21,1,0)="This is the name of the person blocking out time on the display"
^DD(131.704,2,21,2,0)="for this operating room."
^DD(131.704,2,21,3,0)=" "
^DD(131.704,2,"DT")="2911205"
^DD(131.704,"B","SCHEDULED BY",2)=""
^DD(131.704,"B","SERVICE",.01)=""
^DD(131.704,"B","START TIME",1)=""
^DD(131.704,"GL",0,1,.01)=""
^DD(131.704,"GL",0,2,2)=""
^DD(131.704,"GL",1,0,1)=""
^DD(131.704,"IX",.01)=""
^DD(131.704,"SB",131.705,1)=""
^DD(131.705,0)="START TIME SUB-FIELD^^2^3"
^DD(131.705,0,"IX","B",131.705,.01)=""
^DD(131.705,0,"IX","R",131.705,1)=""
^DD(131.705,0,"IX","SER",131.705,1)=""
^DD(131.705,0,"NM","START TIME")=""
^DD(131.705,0,"UP")="131.704"
^DD(131.705,.01,0)="START TIME^FI^^0;1^K:$L(X)>5!($L(X)<1) X"
^DD(131.705,.01,1,0)="^.1"
^DD(131.705,.01,1,1,0)="131.705^B"
^DD(131.705,.01,1,1,1)="S ^SRS(DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(131.705,.01,1,1,2)="K ^SRS(DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(131.705,.01,3)="THIS FIELD SHOULD BE MODIFIED BY A PROGRAMMER ONLY !!"
^DD(131.705,.01,9)="^"
^DD(131.705,.01,21,0)="^^2^2^2930322^^^"
^DD(131.705,.01,21,1,0)="This is the time that the blockout begins."
^DD(131.705,.01,21,2,0)=" "
^DD(131.705,.01,"DT")="2870810"
^DD(131.705,1,0)="END TIME^FI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(131.705,1,1,0)="^.1"
^DD(131.705,1,1,1,0)="131.705^R^MUMPS"
^DD(131.705,1,1,1,1)="D R^SROXREF"
^DD(131.705,1,1,1,2)="Q"
^DD(131.705,1,1,1,"%D",0)="^^3^3^2930203^^"
^DD(131.705,1,1,1,"%D",1,0)="The R cross reference on the END TIME field is used when creating,"
^DD(131.705,1,1,1,"%D",2,0)="updating and deleting service blockouts from the operating room display"
^DD(131.705,1,1,1,"%D",3,0)="graph."
^DD(131.705,1,1,2,0)="131.705^SER^MUMPS"
^DD(131.705,1,1,2,1)="D SER^SROXREF"
^DD(131.705,1,1,2,2)="Q"
^DD(131.705,1,1,2,"%D",0)="^^2^2^2930203^^"
^DD(131.705,1,1,2,"%D",1,0)="The SER cross reference on the END TIME field is used when creating"
^DD(131.705,1,1,2,"%D",2,0)="and updating the service blockouts for an operating room."
^DD(131.705,1,3)="THIS FIELD SHOULD BE MODIFIED BY A PROGRAMMER ONLY !!"
^DD(131.705,1,9)="^"
^DD(131.705,1,21,0)="^^2^2^2930322^^"
^DD(131.705,1,21,1,0)="This is the time that the blockout ends."
^DD(131.705,1,21,2,0)=" "
^DD(131.705,1,"DT")="2880411"
^DD(131.705,2,0)="HOW OFTEN^FI^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(131.705,2,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(131.705,2,9)="^"
^DD(131.705,2,21,0)="^^3^3^2930322^^"
^DD(131.705,2,21,1,0)="This indicates how often this blockout should occur.  For example,"
^DD(131.705,2,21,2,0)="every week, once per month, or every other week."
^DD(131.705,2,21,3,0)=" "
^DD(131.705,2,"DT")="2870810"
^DD(131.705,"B","END TIME",1)=""
^DD(131.705,"B","HOW OFTEN",2)=""
^DD(131.705,"B","START TIME",.01)=""
^DD(131.705,"GL",0,1,.01)=""
^DD(131.705,"GL",0,2,1)=""
^DD(131.705,"GL",0,3,2)=""
^DD(131.705,"IX",.01)=""
^DD(131.705,"IX",1)=""
^DD(131.711,0)="NORMAL DAILY SCHEDULE SUB-FIELD^^3^4"
^DD(131.711,0,"DT")="2920520"
^DD(131.711,0,"IX","B",131.711,.01)=""
^DD(131.711,0,"NM","NORMAL DAILY SCHEDULE")=""
^DD(131.711,0,"UP")="131.7"
^DD(131.711,.01,0)="DAY OF THE WEEK^MS^0:SUNDAY;1:MONDAY;2:TUESDAY;3:WEDNESDAY;4:THURSDAY;5:FRIDAY;6:SATURDAY;^0;1^Q"
^DD(131.711,.01,.1)="Day of the Week"
^DD(131.711,.01,1,0)="^.1"
^DD(131.711,.01,1,1,0)="131.711^B"
^DD(131.711,.01,1,1,1)="S ^SRS(DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(131.711,.01,1,1,2)="K ^SRS(DA(1),4,""B"",$E(X,1,30),DA)"
^DD(131.711,.01,3)="Enter the day of week as a numeric from 0 to 6, where 0 means Sunday and 6 means Saturday."
^DD(131.711,.01,21,0)="^^6^6^2920922^^^^"
^DD(131.711,.01,21,1,0)="This is the day of the week (Sunday, Monday, Tuesday, etc.)."
^DD(131.711,.01,21,2,0)="Each day of the week will have a start time and end time associated"
^DD(131.711,.01,21,3,0)="with it for each operating room if using a normal daily schedule."
^DD(131.711,.01,21,4,0)="If the room is not used on the selected day of the week, you can"
^DD(131.711,.01,21,5,0)="""flag"" it as inactive."
^DD(131.711,.01,21,6,0)=" "
^DD(131.711,.01,"DT")="2920518"
^DD(131.711,1,0)="NORMAL START TIME^FXO^^0;2^K:$L(X)>5!($L(X)<5)!'(X?2N1"":""2N)!($P(X,"":"")>23)!($P(X,"":"",2)>59) X Q:'$D(X)  S X=$E(X,1,2)_$E(X,4,5)"
^DD(131.711,1,.1)="Normal Starting Time"
^DD(131.711,1,2)="S Y(0)=Y S:$L(Y) Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.711,1,2.1)="S:$L(Y) Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.711,1,3)="Enter the usual time (00:00 to 23:59) at which this operating room is scheduled for use."
^DD(131.711,1,21,0)="^^5^5^2920518^^^^"
^DD(131.711,1,21,1,0)="This is the usual time of day when this operating room goes into use."
^DD(131.711,1,21,2,0)="This entry must be in military time format with leading zeros.  For"
^DD(131.711,1,21,3,0)="example, a time of 7:00 AM MUST be entered in the format 07:00.  The"
^DD(131.711,1,21,4,0)="time 7:00 PM would be entered 19:00.  If this operating room is not"
^DD(131.711,1,21,5,0)="normally scheduled for use on this day, leave this field blank."
^DD(131.711,1,"DT")="2921104"
^DD(131.711,2,0)="NORMAL END TIME^FXO^^0;3^K:$L(X)>5!($L(X)<5)!'(X?2N1"":""2N)!($P(X,"":"")>23)!($P(X,"":"",2)>59) X Q:'$D(X)  S X=$E(X,1,2)_$E(X,4,5)"
^DD(131.711,2,.1)="Normal Ending Time"
^DD(131.711,2,2)="S Y(0)=Y S:$L(Y) Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.711,2,2.1)="S:$L(Y) Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.711,2,3)="Enter the usual time (00:00 to 23:59) after which this operating room is not scheduled for use."
^DD(131.711,2,21,0)="^^6^6^2920518^^^^"
^DD(131.711,2,21,1,0)="This is the usual time of day after which this operating room is not"
^DD(131.711,2,21,2,0)="scheduled for use.  This entry must be in military time format with"
^DD(131.711,2,21,3,0)="leading zeros.  For example, a time of 7:00 PM MUST be entered in"
^DD(131.711,2,21,4,0)="the format 07:00.  The time 7:00 PM would be entered 19:00.  If this"
^DD(131.711,2,21,5,0)="operating room is not normally scheduled for use on this day of the"
^DD(131.711,2,21,6,0)="week, leave this field blank."
^DD(131.711,2,"DT")="2921104"
^DD(131.711,3,0)="INACTIVE (Y/N)^S^1:YES;0:NO;^0;4^Q"
^DD(131.711,3,.1)="Inactive (Y/N)"
^DD(131.711,3,3)="Enter 'YES' if this operating room is inactive on this day of the week."
^DD(131.711,3,21,0)="^^4^4^2920608^^"
^DD(131.711,3,21,1,0)="If this operating room is normally inactive on this day of the week, enter"
^DD(131.711,3,21,2,0)="'YES'.  If this operating room is normally active on this day of the week,"
^DD(131.711,3,21,3,0)="enter 'NO' or leave blank.  This field is used in determining the"
^DD(131.711,3,21,4,0)="utilization of this operating room."
^DD(131.711,3,"DT")="2920520"
^DD(131.711,"B","DAY OF THE WEEK",.01)=""
^DD(131.711,"B","Day of the Week",.01)="1"
^DD(131.711,"B","INACTIVE (Y/N)",3)=""
^DD(131.711,"B","Inactive (Y/N)",3)="1"
^DD(131.711,"B","NORMAL END TIME",2)=""
^DD(131.711,"B","NORMAL START TIME",1)=""
^DD(131.711,"B","Normal Ending Time",2)="1"
^DD(131.711,"B","Normal Starting Time",1)="1"
^DD(131.711,"GL",0,1,.01)=""
^DD(131.711,"GL",0,2,1)=""
^DD(131.711,"GL",0,3,2)=""
^DD(131.711,"GL",0,4,3)=""
^DD(131.711,"IX",.01)=""
^DD(131.8,0)="FIELD^^2^3"
^DD(131.8,0,"DT")="2920608"
^DD(131.8,0,"NM","SURGERY UTILIZATION")=""
^DD(131.8,0,"VR")="3"
^DD(131.8,.01,0)="UTILIZATION DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S DINUM=X"
^DD(131.8,.01,.1)="Utilization Date"
^DD(131.8,.01,1,0)="^.1^^0"
^DD(131.8,.01,3)="Enter the date for which the start and end times will be edited."
^DD(131.8,.01,21,0)="^^2^2^2900709^^"
^DD(131.8,.01,21,1,0)="This is the date for which the utilization will be calculated."
^DD(131.8,.01,21,2,0)=" "
^DD(131.8,.01,"DT")="2901130"
^DD(131.8,1,0)="OPERATING ROOM^131.81PA^^1;0"
^DD(131.8,1,.1)="Operating Room"
^DD(131.8,1,21,0)="^^3^3^2900503^^"
^DD(131.8,1,21,1,0)="This contains information related to the start and end times for all"
^DD(131.8,1,21,2,0)="operating rooms on a specific date."
^DD(131.8,1,21,3,0)=" "
^DD(131.8,2,0)="SURGICAL SPECIALTY^131.82PA^^2;0"
^DD(131.8,2,.1)="Surgical Specialty"
^DD(131.8,2,21,0)="^^3^3^2900503^^"
^DD(131.8,2,21,1,0)="This is information related to the start and end times for each Surgical"
^DD(131.8,2,21,2,0)="Specialty on a given date."
^DD(131.8,2,21,3,0)=" "
^DD(131.8,"B","OPERATING ROOM",1)=""
^DD(131.8,"B","Operating Room",1)="1"
^DD(131.8,"B","SURGICAL SPECIALTY",2)=""
^DD(131.8,"B","Surgical Specialty",2)="1"
^DD(131.8,"B","UTILIZATION DATE",.01)=""
^DD(131.8,"B","Utilization Date",.01)="1"
^DD(131.8,"GL",0,1,.01)=""
^DD(131.8,"GL",1,0,1)=""
^DD(131.8,"GL",2,0,2)=""
^DD(131.8,"RQ",.01)=""
^DD(131.8,"SB",131.81,1)=""
^DD(131.8,"SB",131.82,2)=""
^DD(131.81,0)="OPERATING ROOM SUB-FIELD^^3^4"
^DD(131.81,0,"DT")="2920608"
^DD(131.81,0,"NM","OPERATING ROOM")=""
^DD(131.81,0,"UP")="131.8"
^DD(131.81,.01,0)="OPERATING ROOM^M*P131.7'X^SRS(^0;1^S DIC(""S"")=""I $$ORDIV^SROUTL0(+Y),('$P(^SRS(+Y,0),U,6))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(131.81,.01,.1)="Operating Room"
^DD(131.81,.01,1,0)="^.1^^0"
^DD(131.81,.01,3)="Enter the name of the operating room."
^DD(131.81,.01,12)="Screen limits selection to active operating rooms for the division."
^DD(131.81,.01,12.1)="S DIC(""S"")=""I $$ORDIV^SROUTL0(+Y),('$P(^SRS(+Y,0),U,6))"""
^DD(131.81,.01,21,0)="^^2^2^2900709^^^^"
^DD(131.81,.01,21,1,0)="This is the name of the operating room."
^DD(131.81,.01,21,2,0)=" "
^DD(131.81,.01,"DT")="2960313"
^DD(131.81,1,0)="START TIME^DXO^^0;2^S X=$E(DA(1),4,5)_""/""_$E(DA(1),6,7)_""/""_$E(DA(1),2,3)_""@""_X,%DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(131.81,1,.1)="Time this Operating Room Begins Functioning"
^DD(131.81,1,1,0)="^.1"
^DD(131.81,1,1,1,0)="^^TRIGGER^131.81^2"
^DD(131.81,1,1,1,1)="Q"
^DD(131.81,1,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(131.81,1,1,1,2.4)"
^DD(131.81,1,1,1,2.4)="S DIH=$S($D(^SRU(DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=131.81,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(131.81,1,1,1,"%D",0)="^^2^2^2930203^^^"
^DD(131.81,1,1,1,"%D",1,0)="This trigger of the END TIME field functions to delete the END TIME"
^DD(131.81,1,1,1,"%D",2,0)="when the START TIME is deleted."
^DD(131.81,1,1,1,"CREATE VALUE")="NO EFFECT"
^DD(131.81,1,1,1,"DELETE VALUE")="@"
^DD(131.81,1,1,1,"FIELD")="END T"
^DD(131.81,1,1,2,0)="^^TRIGGER^131.81^3"
^DD(131.81,1,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(131.81,1,1,2,1.4)"
^DD(131.81,1,1,2,1.4)="S DIH=$S($D(^SRU(DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.81,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(131.81,1,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""Y"" X ^DD(131.81,1,1,2,2.4)"
^DD(131.81,1,1,2,2.4)="S DIH=$S($D(^SRU(DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.81,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(131.81,1,1,2,"%D",0)="^^3^3^2930203^^^"
^DD(131.81,1,1,2,"%D",1,0)="This trigger of the INACTIVE (Y/N) field functions to mark the operating"
^DD(131.81,1,1,2,"%D",2,0)="room as active when a START TIME is entered and mark the room as inactive"
^DD(131.81,1,1,2,"%D",3,0)="when the START TIME is deleted."
^DD(131.81,1,1,2,"CREATE VALUE")="""N"""
^DD(131.81,1,1,2,"DELETE VALUE")="""Y"""
^DD(131.81,1,1,2,"FIELD")="INAC"
^DD(131.81,1,2)="S Y(0)=Y S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.81,1,2.1)="S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.81,1,3)="Enter the time that this room begins functioning on this date."
^DD(131.81,1,21,0)="^^3^3^2900709^"
^DD(131.81,1,21,1,0)="This is the time of day that this operating room begins functioning"
^DD(131.81,1,21,2,0)="on the date selected."
^DD(131.81,1,21,3,0)=" "
^DD(131.81,1,"DT")="2900523"
^DD(131.81,2,0)="END TIME^DOX^^0;3^S X=$E(DA(1),4,5)_""/""_$E(DA(1),6,7)_""/""_$E(DA(1),2,3)_""@""_X,%DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(131.81,2,.1)="Time this Operating Room Stops Functioning"
^DD(131.81,2,2)="S Y(0)=Y S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.81,2,2.1)="S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.81,2,3)="Enter the time that this operating room stops functioning on this date."
^DD(131.81,2,5,1,0)="131.81^1^1"
^DD(131.81,2,21,0)="^^4^4^2900709^^"
^DD(131.81,2,21,1,0)="This is the time that this operating room stops functioning on this"
^DD(131.81,2,21,2,0)="date.  It will be used when generating the operating room utilization"
^DD(131.81,2,21,3,0)="reports."
^DD(131.81,2,21,4,0)=" "
^DD(131.81,2,"DT")="2900508"
^DD(131.81,3,0)="INACTIVE (Y/N)^S^Y:YES;N:NO;^0;4^Q"
^DD(131.81,3,.1)="Has this Room been Inactivated on this Date ?  (Y/N)"
^DD(131.81,3,1,0)="^.1^^0"
^DD(131.81,3,3)="Enter 'Y' if the room is inactive on this date."
^DD(131.81,3,5,1,0)="131.81^1^2"
^DD(131.81,3,21,0)="^^2^2^2900709^^^"
^DD(131.81,3,21,1,0)="This flags the operating room if inactive on the date selected."
^DD(131.81,3,21,2,0)=" "
^DD(131.81,3,"DT")="2900523"
^DD(131.81,"B","END TIME",2)=""
^DD(131.81,"B","INACTIVE (Y/N)",3)=""
^DD(131.81,"B","OPERATING ROOM",.01)=""
^DD(131.81,"B","Operating Room",.01)="1"
^DD(131.81,"B","START TIME",1)=""
^DD(131.81,"GL",0,1,.01)=""
^DD(131.81,"GL",0,2,1)=""
^DD(131.81,"GL",0,3,2)=""
^DD(131.81,"GL",0,4,3)=""
^DD(131.81,"IX",1)=""
^DD(131.82,0)="SURGICAL SPECIALTY SUB-FIELD^^3^4"
^DD(131.82,0,"DT")="2920427"
^DD(131.82,0,"NM","SURGICAL SPECIALTY")=""
^DD(131.82,0,"UP")="131.8"
^DD(131.82,.01,0)="SURGICAL SPECIALTY^MP137.45'X^SRO(137.45,^0;1^Q"
^DD(131.82,.01,.1)="Surgical Specialty"
^DD(131.82,.01,1,0)="^.1^^0"
^DD(131.82,.01,3)="Enter the name of the Surgical Specialty."
^DD(131.82,.01,21,0)="^^2^2^2900709^^^"
^DD(131.82,.01,21,1,0)="This is the name of the Surgical Specialty."
^DD(131.82,.01,21,2,0)=" "
^DD(131.82,.01,"DT")="2930317"
^DD(131.82,1,0)="START TIME^DXO^^0;2^S X=$E(DA(1),4,5)_""/""_$E(DA(1),6,7)_""/""_$E(DA(1),2,3)_""@""_X,%DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(131.82,1,.1)="Time this Specialty is Scheduled to Begin Functioning"
^DD(131.82,1,1,0)="^.1"
^DD(131.82,1,1,1,0)="^^TRIGGER^131.82^2"
^DD(131.82,1,1,1,1)="Q"
^DD(131.82,1,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(131.82,1,1,1,2.4)"
^DD(131.82,1,1,1,2.4)="S DIH=$S($D(^SRU(DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=131.82,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(131.82,1,1,1,"%D",0)="^^2^2^2930203^^"
^DD(131.82,1,1,1,"%D",1,0)="This trigger of the END TIME field functions to delete the END TIME"
^DD(131.82,1,1,1,"%D",2,0)="when the START TIME is deleted."
^DD(131.82,1,1,1,"CREATE VALUE")="NO EFFECT"
^DD(131.82,1,1,1,"DELETE VALUE")="@"
^DD(131.82,1,1,1,"FIELD")="END"
^DD(131.82,1,1,2,0)="^^TRIGGER^131.82^3"
^DD(131.82,1,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(131.82,1,1,2,1.4)"
^DD(131.82,1,1,2,1.4)="S DIH=$S($D(^SRU(DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.82,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(131.82,1,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SRU(D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""Y"" X ^DD(131.82,1,1,2,2.4)"
^DD(131.82,1,1,2,2.4)="S DIH=$S($D(^SRU(DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=131.82,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(131.82,1,1,2,"%D",0)="^^3^3^2930203^^^"
^DD(131.82,1,1,2,"%D",1,0)="This trigger of the INACTIVE (Y/N) field functions to mark the surgical"
^DD(131.82,1,1,2,"%D",2,0)="specialty as active when a START TIME is entered and to mark the specialty"
^DD(131.82,1,1,2,"%D",3,0)="as inactive when the START TIME is deleted."
^DD(131.82,1,1,2,"CREATE VALUE")="""N"""
^DD(131.82,1,1,2,"DELETE VALUE")="""Y"""
^DD(131.82,1,1,2,"FIELD")="INACT"
^DD(131.82,1,2)="S Y(0)=Y S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.82,1,2.1)="S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.82,1,3)="Enter the time that this surgical specialty begins functioning on this date."
^DD(131.82,1,21,0)="^^4^4^2900709^^^"
^DD(131.82,1,21,1,0)="This is the time of day that this Surgical Specialty begins functioning"
^DD(131.82,1,21,2,0)="on this date.  Any time entered prior to the start time will be considered"
^DD(131.82,1,21,3,0)="overtime."
^DD(131.82,1,21,4,0)=" "
^DD(131.82,1,"DT")="2900523"
^DD(131.82,2,0)="END TIME^DOX^^0;3^S X=$E(DA(1),4,5)_""/""_$E(DA(1),6,7)_""/""_$E(DA(1),2,3)_""@""_X,%DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(131.82,2,.1)="Time this Specialty is Scheduled to Stop Functioning"
^DD(131.82,2,2)="S Y(0)=Y S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.82,2,2.1)="S Y=$P(Y,""."",2)_""0000"",Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(131.82,2,3)="Enter the time that this surgical specialty stops functioning on this date."
^DD(131.82,2,5,1,0)="131.82^1^1"
^DD(131.82,2,21,0)="^^3^3^2900503^^"
^DD(131.82,2,21,1,0)="This is the time of day that this Surgical Specialty stops functioning."
^DD(131.82,2,21,2,0)="Any time worked after this time will be considered overtime."
^DD(131.82,2,21,3,0)=" "
^DD(131.82,2,"DT")="2900508"
^DD(131.82,3,0)="INACTIVE (Y/N)^S^Y:YES;N:NO;^0;4^Q"
^DD(131.82,3,.1)="Has this Specialty been Inactivated for this Date ?  (Y/N)"
^DD(131.82,3,1,0)="^.1^^0"
^DD(131.82,3,3)="Enter 'Y' if this specialty is not active on this date."
^DD(131.82,3,5,1,0)="131.82^1^2"
^DD(131.82,3,21,0)="^^3^3^2900709^^"
^DD(131.82,3,21,1,0)="This flags the surgical specialty if it is inactive on this particular"
^DD(131.82,3,21,2,0)="date."
^DD(131.82,3,21,3,0)=" "
^DD(131.82,3,"DT")="2900523"
^DD(131.82,"B","END TIME",2)=""
^DD(131.82,"B","INACTIVE (Y/N)",3)=""
^DD(131.82,"B","START TIME",1)=""
^DD(131.82,"B","SURGICAL SPECIALTY",.01)=""
^DD(131.82,"B","Surgical Specialty",.01)="1"
^DD(131.82,"GL",0,1,.01)=""
^DD(131.82,"GL",0,2,1)=""
^DD(131.82,"GL",0,3,2)=""
^DD(131.82,"GL",0,4,3)=""
^DD(131.82,"IX",1)=""
^DD(131.9,0)="FIELD^^10^9"
^DD(131.9,0,"DDA")="N"
^DD(131.9,0,"DT")="2920603"
^DD(131.9,0,"IX","B",131.9,.01)=""
^DD(131.9,0,"NM","PROSTHESIS")=""
^DD(131.9,0,"PT",130.01,.01)=""
^DD(131.9,0,"VR")="3.0"
^DD(131.9,0,"VRPK")="SR"
^DD(131.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(131.9,.01,.1)="Name of Prosthesis"
^DD(131.9,.01,1,0)="^.1"
^DD(131.9,.01,1,1,0)="131.9^B"
^DD(131.9,.01,1,1,1)="S ^SRO(131.9,""B"",$E(X,1,30),DA)="""""
^DD(131.9,.01,1,1,2)="K ^SRO(131.9,""B"",$E(X,1,30),DA)"
^DD(131.9,.01,3)="Your answer must be 3-30 characters in length."
^DD(131.9,.01,21,0)="^^1^1^2910917^^"
^DD(131.9,.01,21,1,0)="This is the name of the Prosthesis."
^DD(131.9,.01,"DEL",1,0)="N SRX S SRX=$C(7)_""Deletion from the Prosthesis file is not allowed !!"" D EN^DDIOL(SRX) I 1"
^DD(131.9,.01,"DT")="2910917"
^DD(131.9,1,0)="VENDOR^F^^0;2^K:$L(X)>64!($L(X)<2) X"
^DD(131.9,1,.1)="Name of Manufacturer/Vendor"
^DD(131.9,1,3)="Your answer must be 2-64 characters in length."
^DD(131.9,1,21,0)="^^2^2^2910917^^^"
^DD(131.9,1,21,1,0)="This is the name of the manufacturer of the implanted prosthetic device."
^DD(131.9,1,21,2,0)=" "
^DD(131.9,1,"DT")="2901002"
^DD(131.9,2,0)="MODEL^F^^0;3^K:$L(X)>64!($L(X)<2) X"
^DD(131.9,2,.1)="Model"
^DD(131.9,2,3)="Your answer must be 2-64 characters in length."
^DD(131.9,2,21,0)="^^2^2^2901002^"
^DD(131.9,2,21,1,0)="This is the model of the implanted prosthetic device."
^DD(131.9,2,21,2,0)=" "
^DD(131.9,3,0)="STERILE CODE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(131.9,3,.1)="Sterilization Number"
^DD(131.9,3,3)="Your Answer must be 1-30 characters in length."
^DD(131.9,3,21,0)="^^3^3^2901002^"
^DD(131.9,3,21,1,0)="This is the Sterilization Number/Code identifying the implanted"
^DD(131.9,3,21,2,0)="prosthetic device."
^DD(131.9,3,21,3,0)=" "
^DD(131.9,3,"DT")="2901002"
^DD(131.9,4,0)="LOT/SERIAL NO^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(131.9,4,.1)="Lot/Serial Number"
^DD(131.9,4,3)="Your Answer must be 1-30 characters in length."
^DD(131.9,4,21,0)="^^2^2^2901002^"
^DD(131.9,4,21,1,0)="This is the Lot/Serial Number of the implanted prosthetic device."
^DD(131.9,4,21,2,0)=" "
^DD(131.9,5,0)="STERILE RESP^S^M:MANUFACTURER;SPD:SPD;SUR:SURGERY;^0;7^Q"
^DD(131.9,5,.1)="Who is Accountable for Sterilization"
^DD(131.9,5,21,0)="^^3^3^2901002^"
^DD(131.9,5,21,1,0)="This is the code corresponding to the party responsible for the"
^DD(131.9,5,21,2,0)="sterilization of the implanted device."
^DD(131.9,5,21,3,0)=" "
^DD(131.9,5,"DT")="2901002"
^DD(131.9,6,0)="SIZE^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(131.9,6,.1)="Size"
^DD(131.9,6,3)="Your answer must be 1-30 characters in length."
^DD(131.9,6,21,0)="^^2^2^2901002^"
^DD(131.9,6,21,1,0)="This is the size of the implanted prosthetic device."
^DD(131.9,6,21,2,0)=" "
^DD(131.9,6,"DT")="2901002"
^DD(131.9,7,0)="QUANTITY^NJ5,0^^1;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(131.9,7,.1)="Quantity"
^DD(131.9,7,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(131.9,7,21,0)="^^2^2^2901002^"
^DD(131.9,7,21,1,0)="This is quantity of the prosthetic device used for the procedure."
^DD(131.9,7,21,2,0)=" "
^DD(131.9,7,"DT")="2901002"
^DD(131.9,10,0)="INACTIVE?^S^1:YES;^0;6^Q"
^DD(131.9,10,.1)="Inactive?"
^DD(131.9,10,3)="Enter 'YES' to inactivate this file entry."
^DD(131.9,10,21,0)="^^2^2^2920603^"
^DD(131.9,10,21,1,0)="Enter 'YES' to make this entry inactive and to prevent its selection and"
^DD(131.9,10,21,2,0)="use by users of the Surgery Package."
^DD(131.9,10,"DT")="2920603"
^DD(131.9,"B","INACTIVE?",10)=""
^DD(131.9,"B","Inactive?",10)="1"
^DD(131.9,"B","LOT/SERIAL NO",4)=""
^DD(131.9,"B","Lot/Serial Number",4)="1"
^DD(131.9,"B","MODEL",2)=""
^DD(131.9,"B","Model",2)="1"
^DD(131.9,"B","NAME",.01)=""
^DD(131.9,"B","Name of Manufacturer/Vendor",1)="1"
^DD(131.9,"B","Name of Prosthesis",.01)="1"
^DD(131.9,"B","QUANTITY",7)=""
^DD(131.9,"B","Quantity",7)="1"
^DD(131.9,"B","SIZE",6)=""
^DD(131.9,"B","STERILE CODE",3)=""
^DD(131.9,"B","STERILE RESP",5)=""
^DD(131.9,"B","Size",6)="1"
^DD(131.9,"B","Sterilization Number",3)="1"
^DD(131.9,"B","VENDOR",1)=""
^DD(131.9,"GL",0,1,.01)=""
^DD(131.9,"GL",0,2,1)=""
^DD(131.9,"GL",0,3,2)=""
^DD(131.9,"GL",0,4,3)=""
^DD(131.9,"GL",0,5,4)=""
^DD(131.9,"GL",0,6,10)=""
^DD(131.9,"GL",0,7,5)=""
^DD(131.9,"GL",1,1,6)=""
^DD(131.9,"GL",1,2,7)=""
^DD(131.9,"IX",.01)=""
^DD(131.9,"RQ",.01)=""
^DD(132,0)="FIELD^^10^4"
^DD(132,0,"DT")="2920602"
^DD(132,0,"IX","B",132,.01)=""
^DD(132,0,"NM","SURGERY POSITION")=""
^DD(132,0,"PT",130,.54)=""
^DD(132,0,"PT",130.065,.01)=""
^DD(132,0,"VR")="3"
^DD(132,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(132,.01,.1)="Name of Surgery Position"
^DD(132,.01,1,0)="^.1"
^DD(132,.01,1,1,0)="132^B"
^DD(132,.01,1,1,1)="S ^SRO(132,""B"",$E(X,1,30),DA)="""""
^DD(132,.01,1,1,2)="K ^SRO(132,""B"",$E(X,1,30),DA)"
^DD(132,.01,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(132,.01,21,0)="^^2^2^2900709^"
^DD(132,.01,21,1,0)="This is the name of the Surgery Position."
^DD(132,.01,21,2,0)=" "
^DD(132,.01,"DEL",1,0)="W !,""Deletion fron the Surgery Position file is not allowed !! "",*7 I 1"
^DD(132,.01,"DT")="2840420"
^DD(132,4,0)="*MAJOR POSITION^F^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(132,4,3)="ANSWER MUST BE 3-35 CHARACTERS IN LENGTH"
^DD(132,4,21,0)="^^3^3^2921106^"
^DD(132,4,21,1,0)="This field has been marked for deletion in the next release of the"
^DD(132,4,21,2,0)="Surgery software."
^DD(132,4,21,3,0)=" "
^DD(132,4,"DT")="2840420"
^DD(132,5,0)="CODE^F^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(132,5,.1)="Code"
^DD(132,5,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(132,5,21,0)="^^2^2^2900709^"
^DD(132,5,21,1,0)="This is the code corresponding to the name of the Surgery Position."
^DD(132,5,21,2,0)=" "
^DD(132,5,"DT")="2880405"
^DD(132,10,0)="INACTIVE?^S^1:YES;^0;4^Q"
^DD(132,10,.1)="Inactive?"
^DD(132,10,3)="Enter 'YES' to inactivate this file entry."
^DD(132,10,21,0)="^^2^2^2920602^"
^DD(132,10,21,1,0)="Enter 'YES' to inactivate this file entry and to prevent its selection"
^DD(132,10,21,2,0)="by Surgery users."
^DD(132,10,"DT")="2920602"
^DD(132,"B","*MAJOR POSITION",4)=""
^DD(132,"B","CODE",5)=""
^DD(132,"B","Code",5)="1"
^DD(132,"B","INACTIVE?",10)=""
^DD(132,"B","Inactive?",10)="1"
^DD(132,"B","NAME",.01)=""
^DD(132,"B","Name of Surgery Position",.01)="1"
^DD(132,"GL",0,1,.01)=""
^DD(132,"GL",0,2,4)=""
^DD(132,"GL",0,3,5)=""
^DD(132,"GL",0,4,10)=""
^DD(132,"IX",.01)=""
^DD(132,"RQ",.01)=""
^DD(132.05,0)="FIELD^^10^2"
^DD(132.05,0,"DT")="2920602"
^DD(132.05,0,"IX","B",132.05,.01)=""
^DD(132.05,0,"NM","RESTRAINTS AND POSITIONAL AIDS")=""
^DD(132.05,0,"PT",130.31,.01)=""
^DD(132.05,0,"VR")="3"
^DD(132.05,.01,0)="NAME^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(132.05,.01,.1)="Restraint or Positioning Aid Name"
^DD(132.05,.01,1,0)="^.1"
^DD(132.05,.01,1,1,0)="132.05^B"
^DD(132.05,.01,1,1,1)="S ^SRO(132.05,""B"",$E(X,1,30),DA)="""""
^DD(132.05,.01,1,1,2)="K ^SRO(132.05,""B"",$E(X,1,30),DA)"
^DD(132.05,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(132.05,.01,21,0)="^^2^2^2900709^"
^DD(132.05,.01,21,1,0)="This is the name of the restraint or positioning aid."
^DD(132.05,.01,21,2,0)=" "
^DD(132.05,.01,"DEL",1,0)="W !,""Deletion from the Restraints and Positioning Aids file is not allowed !! "",*7 I 1"
^DD(132.05,10,0)="INACTIVE?^S^1:YES;^0;2^Q"
^DD(132.05,10,.1)="Inactive?"
^DD(132.05,10,3)="Enter 'YES"" to inactivate this file entry."
^DD(132.05,10,21,0)="^^2^2^2920602^"
^DD(132.05,10,21,1,0)="Enter 'YES"" to inactivate this file entry and to prevent it selection by"
^DD(132.05,10,21,2,0)="Surgery users."
^DD(132.05,10,"DT")="2920602"
^DD(132.05,"B","INACTIVE?",10)=""
^DD(132.05,"B","Inactive?",10)="1"
^DD(132.05,"B","NAME",.01)=""
^DD(132.05,"GL",0,1,.01)=""
^DD(132.05,"GL",0,2,10)=""
^DD(132.05,"IX",.01)=""
^DD(132.05,"RQ",.01)=""
^DD(132.4,0)="FIELD^^10^2"
^DD(132.4,0,"DT")="2920603"
^DD(132.4,0,"IX","B",132.4,.01)=""
^DD(132.4,0,"NM","SURGICAL DELAY")=""
^DD(132.4,0,"PT",130.042,.01)=""
^DD(132.4,0,"VR")="3"
^DD(132.4,.01,0)="CAUSE^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(132.4,.01,.1)="Cause of Surgical Delay"
^DD(132.4,.01,1,0)="^.1"
^DD(132.4,.01,1,1,0)="132.4^B"
^DD(132.4,.01,1,1,1)="S ^SRO(132.4,""B"",$E(X,1,30),DA)="""""
^DD(132.4,.01,1,1,2)="K ^SRO(132.4,""B"",$E(X,1,30),DA)"
^DD(132.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(132.4,.01,21,0)="^^2^2^2900709^"
^DD(132.4,.01,21,1,0)="This is the Cause of the Surgical Delay."
^DD(132.4,.01,21,2,0)=" "
^DD(132.4,.01,"DEL",1,0)="W !,""Deletion from the Surgical Delay file is not allowed !! "",*7 I 1"
^DD(132.4,10,0)="INACTIVE?^S^1:YES;^0;2^Q"
^DD(132.4,10,.1)="Inactive?"
^DD(132.4,10,3)="Enter 'YES' to inactivate this file entry."
^DD(132.4,10,21,0)="^^2^2^2920603^"
^DD(132.4,10,21,1,0)="Enter 'YES' to make this entry inactive and to prevent its selection and"
^DD(132.4,10,21,2,0)="use by users of the Surgery Package."
^DD(132.4,10,"DT")="2920603"
^DD(132.4,"B","CAUSE",.01)=""
^DD(132.4,"B","Cause of Surgical Delay",.01)="1"
^DD(132.4,"B","INACTIVE?",10)=""
^DD(132.4,"B","Inactive?",10)="1"
^DD(132.4,"GL",0,1,.01)=""
^DD(132.4,"GL",0,2,10)=""
^DD(132.4,"IX",.01)=""
^DD(132.4,"RQ",.01)=""
^DD(132.8,0)="FIELD^^2^3"
^DD(132.8,0,"DDA")="N"
^DD(132.8,0,"DT")="3000907"
^DD(132.8,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(132.8,0,"NM","ASA CLASS")=""
^DD(132.8,0,"PT",130,1.13)=""
^DD(132.8,0,"VR")="3.0"
^DD(132.8,0,"VRPK")="SR"
^DD(132.8,.01,0)="ASA CLASS^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(132.8,.01,.1)="ASA Class"
^DD(132.8,.01,1,0)="^.1^^0"
^DD(132.8,.01,3)="Answer must be 1-2 characters in length."
^DD(132.8,.01,9)="^"
^DD(132.8,.01,21,0)="^.001^16^16^3000907^^"
^DD(132.8,.01,21,1,0)="This is the American Society of Anesthesiologists class.  It relates to"
^DD(132.8,.01,21,2,0)="the patient's physiologic status.  Numbers followed by an 'E' indicate "
^DD(132.8,.01,21,3,0)="an emergency."
^DD(132.8,.01,21,4,0)=" "
^DD(132.8,.01,21,5,0)="       1        1-NO DISTURB."
^DD(132.8,.01,21,6,0)="       1E       1E-NO DISTURB-EMERG"
^DD(132.8,.01,21,7,0)="       2        2-MILD DISTURB."
^DD(132.8,.01,21,8,0)="       2E       2E-MILD DISTURB.-EMERG"
^DD(132.8,.01,21,9,0)="       3        3-SEVERE DISTURB."
^DD(132.8,.01,21,10,0)="       3E       3E-SEVERE DIST.-EMERG."
^DD(132.8,.01,21,11,0)="       4        4-LIFE THREAT"
^DD(132.8,.01,21,12,0)="       4E       4E-LIFE THREAT-EMERG."
^DD(132.8,.01,21,13,0)="       5        5-MORIBUND"
^DD(132.8,.01,21,14,0)="       5E       5E-MORIBUND-EMERG"
^DD(132.8,.01,21,15,0)="       6        6-BRAIN-DEAD"
^DD(132.8,.01,21,16,0)="       6E       6E-BRAIN-DEAD-EMERG."
^DD(132.8,.01,"DT")="3000907"
^DD(132.8,1,0)="PHYSICAL STATUS^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(132.8,1,.1)="Physical Status"
^DD(132.8,1,1,0)="^.1^^0"
^DD(132.8,1,3)="Answer must be 1-20 characters in length."
^DD(132.8,1,9)="^"
^DD(132.8,1,21,0)="^^2^2^3000907^"
^DD(132.8,1,21,1,0)="For this ASA class, this is the brief description of the physical status"
^DD(132.8,1,21,2,0)="of the patient.  This field is used on reports that display the ASA class."
^DD(132.8,1,"DT")="3000907"
^DD(132.8,2,0)="DESCRIPTION^F^^0;3^K:$L(X)>100!($L(X)<1) X"
^DD(132.8,2,.1)="Description"
^DD(132.8,2,3)="Answer must be 1-100 characters in length."
^DD(132.8,2,9)="^"
^DD(132.8,2,21,0)="^.001^2^2^3000907^^"
^DD(132.8,2,21,1,0)="For this ASA class, this field describes the physical status of the"
^DD(132.8,2,21,2,0)="patient."
^DD(132.8,2,"DT")="3000907"
^DD(132.8,"B","ASA CLASS",.01)=""
^DD(132.8,"B","ASA Class",.01)="1"
^DD(132.8,"B","DESCRIPTION",2)=""
^DD(132.8,"B","Description",2)="1"
^DD(132.8,"B","PHYSICAL STATUS",1)=""
^DD(132.8,"B","Physical Status",1)="1"
^DD(132.8,"GL",0,1,.01)=""
^DD(132.8,"GL",0,2,1)=""
^DD(132.8,"GL",0,3,2)=""
^DD(132.8,"RQ",.01)=""
^DD(132.9,0)="FIELD^^3^4"
^DD(132.9,0,"DDA")="N"
^DD(132.9,0,"DT")="3040510"
^DD(132.9,0,"ID",1)="W $P(^(0),U,2)"
^DD(132.9,0,"ID",2)="D DESC^SROUTL"
^DD(132.9,0,"IX","B1",132.9,.01)=""
^DD(132.9,0,"IX","C",132.9,1)=""
^DD(132.9,0,"NM","ATTENDING CODES")=""
^DD(132.9,0,"PT",130,.166)=""
^DD(132.9,0,"VR")="3.0"
^DD(132.9,0,"VRPK")="SR"
^DD(132.9,.01,0)="ATTENDING CODE NAME^RF^^0;1^K:$L(X)>70!($L(X)<1) X"
^DD(132.9,.01,.1)="Attending Code Name"
^DD(132.9,.01,1,0)="^.1"
^DD(132.9,.01,1,1,0)="132.9^B1^MUMPS"
^DD(132.9,.01,1,1,1)="S ^SRO(132.9,""B1"",$E(X,1,70),DA)="""""
^DD(132.9,.01,1,1,2)="K ^SRO(132.9,""B1"",$E(X,1,70),DA)"
^DD(132.9,.01,1,1,"%D",0)="^^3^3^3040510^"
^DD(132.9,.01,1,1,"%D",1,0)="The B1 cross reference on the ATTENDING CODE NAME field is used for"
^DD(132.9,.01,1,1,"%D",2,0)="lookup purposes and to display the entire contents of the ATTENDING "
^DD(132.9,.01,1,1,"%D",3,0)="CODE NAME field when querying the file."
^DD(132.9,.01,1,1,"DT")="3040510"
^DD(132.9,.01,3)="Enter the attending code name, 1-70 characters in length."
^DD(132.9,.01,9)="^"
^DD(132.9,.01,21,0)="^.001^2^2^3040510^^"
^DD(132.9,.01,21,1,0)="This is the attending code name briefly describing the highest level "
^DD(132.9,.01,21,2,0)="of resident supervision provided by the attending staff surgeon."
^DD(132.9,.01,"DEL",1,0)="D EN^DDIOL(""Deletion from the ATTENDING CODES file is not allowed!"","""",""!"") I 1"
^DD(132.9,.01,"DT")="3040510"
^DD(132.9,.01,"LAYGO",1,0)="D EN^DDIOL(""Adding to the ATTENDING CODES file is not allowed!"","""",""!"") I 0"
^DD(132.9,1,0)="CODE^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(132.9,1,.1)="Attending Code"
^DD(132.9,1,1,0)="^.1"
^DD(132.9,1,1,1,0)="132.9^C"
^DD(132.9,1,1,1,1)="S ^SRO(132.9,""C"",$E(X,1,30),DA)="""""
^DD(132.9,1,1,1,2)="K ^SRO(132.9,""C"",$E(X,1,30),DA)"
^DD(132.9,1,1,1,"DT")="3040510"
^DD(132.9,1,3)="Enter the code representing the highest level of resident supervision, 1-5 characters in length."
^DD(132.9,1,9)="^"
^DD(132.9,1,21,0)="^.001^2^2^3040510^^"
^DD(132.9,1,21,1,0)="This is the code representing the highest level of resident supervision"
^DD(132.9,1,21,2,0)="provided by the attending staff surgeon."
^DD(132.9,1,"DT")="3040510"
^DD(132.9,2,0)="DESCRIPTION^132.92^^1;0"
^DD(132.9,2,9)="^"
^DD(132.9,3,0)="INACTIVE^S^1:YES;^0;3^Q"
^DD(132.9,3,.1)="Inactive"
^DD(132.9,3,3)="Enter YES to flag this code as inactive."
^DD(132.9,3,9)="^"
^DD(132.9,3,21,0)="^.001^1^1^3040429^^^^"
^DD(132.9,3,21,1,0)="This field flags this attending code as inactive."
^DD(132.9,3,"DT")="3040429"
^DD(132.9,"B","ATTENDING CODE NAME",.01)=""
^DD(132.9,"B","Attending Code",1)="1"
^DD(132.9,"B","Attending Code Name",.01)="1"
^DD(132.9,"B","CODE",1)=""
^DD(132.9,"B","DESCRIPTION",2)=""
^DD(132.9,"B","INACTIVE",3)=""
^DD(132.9,"B","Inactive",3)="1"
^DD(132.9,"GL",0,1,.01)=""
^DD(132.9,"GL",0,2,1)=""
^DD(132.9,"GL",0,3,3)=""
^DD(132.9,"GL",1,0,2)=""
^DD(132.9,"IX",.01)=""
^DD(132.9,"IX",1)=""
^DD(132.9,"RQ",.01)=""
^DD(132.9,"SB",132.92,2)=""
^DD(132.92,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(132.92,0,"DT")="3040428"
^DD(132.92,0,"NM","DESCRIPTION")=""
^DD(132.92,0,"UP")="132.9"
^DD(132.92,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(132.92,.01,.1)="Description"
^DD(132.92,.01,3)="Enter a description for this level of supervision."
^DD(132.92,.01,21,0)="^.001^1^1^3040428^^"
^DD(132.92,.01,21,1,0)="This field contains a brief description of this level of supervision."
^DD(132.92,.01,"DT")="3040428"
^DD(132.92,"B","DESCRIPTION",.01)=""
^DD(132.92,"B","Description",.01)="1"
^DD(132.92,"GL",0,1,.01)=""
^DD(132.95,0)="FIELD^^2^3"
^DD(132.95,0,"DT")="2910528"
^DD(132.95,0,"IX","B",132.95,.01)=""
^DD(132.95,0,"IX","C",132.95,1)=""
^DD(132.95,0,"NM","ANESTHESIA SUPERVISOR CODES")=""
^DD(132.95,0,"PT",130,.345)=""
^DD(132.95,0,"VR")="3"
^DD(132.95,.01,0)="NAME^RFI^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(132.95,.01,.1)="Name of Anesthesia Supervisor Code"
^DD(132.95,.01,1,0)="^.1"
^DD(132.95,.01,1,1,0)="132.95^B"
^DD(132.95,.01,1,1,1)="S ^SRO(132.95,""B"",$E(X,1,30),DA)="""""
^DD(132.95,.01,1,1,2)="K ^SRO(132.95,""B"",$E(X,1,30),DA)"
^DD(132.95,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(132.95,.01,21,0)="^^2^2^2900709^"
^DD(132.95,.01,21,1,0)="This is the name of the Anesthesia Supervisor Code."
^DD(132.95,.01,21,2,0)=" "
^DD(132.95,.01,"DT")="2880628"
^DD(132.95,1,0)="CODE^FI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(132.95,1,.1)="Code"
^DD(132.95,1,1,0)="^.1"
^DD(132.95,1,1,1,0)="132.95^C"
^DD(132.95,1,1,1,1)="S ^SRO(132.95,""C"",$E(X,1,30),DA)="""""
^DD(132.95,1,1,1,2)="K ^SRO(132.95,""C"",$E(X,1,30),DA)"
^DD(132.95,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(132.95,1,21,0)="^^3^3^2900709^"
^DD(132.95,1,21,1,0)="This is the code corresponding to the principal anesthetist's level"
^DD(132.95,1,21,2,0)="of supervision."
^DD(132.95,1,21,3,0)=" "
^DD(132.95,1,"DT")="2911216"
^DD(132.95,2,0)="DESCRIPTION^132.952^^1;0"
^DD(132.95,2,21,0)="^^2^2^2910528^"
^DD(132.95,2,21,1,0)="This is a description of the anesthesia supervisor code."
^DD(132.95,2,21,2,0)=" "
^DD(132.95,"B","CODE",1)=""
^DD(132.95,"B","Code",1)="1"
^DD(132.95,"B","DESCRIPTION",2)=""
^DD(132.95,"B","NAME",.01)=""
^DD(132.95,"GL",0,1,.01)=""
^DD(132.95,"GL",0,2,1)=""
^DD(132.95,"GL",1,0,2)=""
^DD(132.95,"IX",.01)=""
^DD(132.95,"IX",1)=""
^DD(132.95,"RQ",.01)=""
^DD(132.95,"SB",132.952,2)=""
^DD(132.952,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(132.952,0,"DT")="2910528"
^DD(132.952,0,"NM","DESCRIPTION")=""
^DD(132.952,0,"UP")="132.95"
^DD(132.952,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(132.952,.01,.1)="Description of Anesthesia Code"
^DD(132.952,.01,3)="Enter a brief description explaining this anesthesia supervisor code."
^DD(132.952,.01,21,0)="^^2^2^2910528^"
^DD(132.952,.01,21,1,0)="This is a brief description of the anesthesia supervisor code."
^DD(132.952,.01,21,2,0)=" "
^DD(132.952,.01,"DT")="2910528"
^DD(132.952,"B","DESCRIPTION",.01)=""
^DD(132.952,"B","Description of Anesthesia Code",.01)="1"
^DD(132.952,"GL",0,1,.01)=""
^DD(133,0)="FIELD^^42^39"
^DD(133,0,"DT")="2930205"
^DD(133,0,"IX","B",133,.01)=""
^DD(133,0,"NM","SURGERY SITE PARAMETERS")=""
^DD(133,0,"VR")="3"
^DD(133,.01,0)="SITE^RP4'^DIC(4,^0;1^Q"
^DD(133,.01,.1)="Site/Division"
^DD(133,.01,1,0)="^.1"
^DD(133,.01,1,1,0)="133^B"
^DD(133,.01,1,1,1)="S ^SRO(133,""B"",$E(X,1,30),DA)="""""
^DD(133,.01,1,1,2)="K ^SRO(133,""B"",$E(X,1,30),DA)"
^DD(133,.01,1,2,0)="^^TRIGGER^133^18"
^DD(133,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRO(133,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=""A"" S DIH=$G(^SRO(133,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=133,DIG=18 D ^DICR"
^DD(133,.01,1,2,2)="Q"
^DD(133,.01,1,2,"%D",0)="^.101^2^2^3060113^^^"
^DD(133,.01,1,2,"%D",1,0)="The trigger on the SITE field stuffs the UPDATES TO PCE field with ""A"" "
^DD(133,.01,1,2,"%D",2,0)="for ALL CASES."
^DD(133,.01,1,2,"CREATE VALUE")="S X=""A"""
^DD(133,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(133,.01,1,2,"DT")="3060113"
^DD(133,.01,1,2,"FIELD")="UPDATES TO PCE"
^DD(133,.01,1,3,0)="^^TRIGGER^133^19"
^DD(133,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SRO(133,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^SRO(133,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=133,DIG=19 D ^DICR"
^DD(133,.01,1,3,2)="Q"
^DD(133,.01,1,3,"%D",0)="^^2^2^3060113^"
^DD(133,.01,1,3,"%D",1,0)="The trigger on the SITE field stuffs the ASK CLASSIFICATION QUESTIONS"
^DD(133,.01,1,3,"%D",2,0)="field with ""1"" for YES."
^DD(133,.01,1,3,"CREATE VALUE")="S X=1"
^DD(133,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(133,.01,1,3,"DT")="3060113"
^DD(133,.01,1,3,"FIELD")="ASK CLASSIFICATION QUESTIONS"
^DD(133,.01,3)=""
^DD(133,.01,21,0)="^.001^4^4^3051003^^^"
^DD(133,.01,21,1,0)="This is the institution responsible for the Surgery service.  If the"
^DD(133,.01,21,2,0)="facility is multi-divisional, there will be more than one entry in"
^DD(133,.01,21,3,0)="this file."
^DD(133,.01,21,4,0)=" "
^DD(133,.01,"DEL",1,0)="N SRX S SRX=$C(7)_""Deletion from this file is not allowed !!"" D EN^DDIOL(SRX) I 1"
^DD(133,.01,"DT")="3060113"
^DD(133,3,0)="MAIL CODE FOR ANESTHESIA^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(133,3,.1)="Mail Code for the Anesthesia Service"
^DD(133,3,3)="Answer must be 1-10 characters in length."
^DD(133,3,21,0)="^^3^3^2961010^^^^"
^DD(133,3,21,1,0)="This is the mail code for the Anesthesia service.  It will be used to"
^DD(133,3,21,2,0)="flag Anesthesiologists on the Anesthesia AMIS."
^DD(133,3,21,3,0)=" "
^DD(133,3,"DT")="2961010"
^DD(133,6,0)="CANCEL IVS^S^0:NOT CANCEL;1:CANCEL;^0;7^Q"
^DD(133,6,.1)="Cancel IV Orders upon Entry into the Operating Room ?"
^DD(133,6,3)="Enter '1' to cancel IVs when the operation begins."
^DD(133,6,21,0)="^.001^7^7^3040301^^"
^DD(133,6,21,1,0)="This field indicates the site's preference to allow or not allow current"
^DD(133,6,21,2,0)="IV orders for a patient to be cancelled when a surgical or non-OR"
^DD(133,6,21,3,0)="procedure begins. If this field is set to NOT CANCEL, IV orders will not"
^DD(133,6,21,4,0)="be cancelled. If this field is set to CANCEL, upon entering the anesthesia"
^DD(133,6,21,5,0)="care start time for a case, the user will be prompted to cancel or not "
^DD(133,6,21,6,0)="cancel current IV orders if not more than 24 hours have passed since the"
^DD(133,6,21,7,0)="start of the operation or procedure."
^DD(133,6,"DT")="2930210"
^DD(133,9,0)="CHIEF'S NAME^F^^0;10^K:$L(X)>40!($L(X)<1) X"
^DD(133,9,.1)="Name of the Chief of Surgery"
^DD(133,9,3)="Your answer must be from 1 to 40 characters in length."
^DD(133,9,21,0)="^^3^3^2910823^^"
^DD(133,9,21,1,0)="This is the name of the Chief of Surgery.  The name will be displayed"
^DD(133,9,21,2,0)="on management reports."
^DD(133,9,21,3,0)=" "
^DD(133,9,"DT")="2870407"
^DD(133,10,0)="LOCK AFTER HOW MANY DAYS^NJ3,0^^0;11^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(133,10,.1)="Lock Completed Cases after How Many Days ?"
^DD(133,10,3)="Enter a number between 1 and 365."
^DD(133,10,21,0)="^^3^3^2910823^^"
^DD(133,10,21,1,0)="This is the number of days a case can be edited, after completion,"
^DD(133,10,21,2,0)="without needing the Chief of Surgery's approval."
^DD(133,10,21,3,0)=" "
^DD(133,10,"DT")="2870817"
^DD(133,11,0)="REQUEST DEADLINE^FXO^^0;2^K:$L(X)>5!($L(X)<5)!'(X?2N1"":""2N) X Q:'$D(X)  S X=$E(X,1,2)_$E(X,4,5)"
^DD(133,11,.1)="Request Deadline"
^DD(133,11,2)="S Y(0)=Y S Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(133,11,2.1)="S Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(133,11,3)="Enter the latest time (00:01 to 24:00) for which requests can be made on the request cutoff day for a particular date."
^DD(133,11,21,0)="^^4^4^2930223^^^^"
^DD(133,11,21,1,0)="This field is the time on the request cutoff day after which no requests"
^DD(133,11,21,2,0)="can be made for a date.  Your answer must be in a military time format"
^DD(133,11,21,3,0)="with leading zeros.  For example, a time of 7:00 AM MUST be entered in"
^DD(133,11,21,4,0)="the format 07:00.  The time 7:00 PM would be entered 19:00."
^DD(133,11,"DT")="2880706"
^DD(133,12,0)="OR SCHEDULE DEVICES^133.012^^1;0"
^DD(133,12,.1)="Devices Used to Print the Schedule of Operations"
^DD(133,12,21,0)="^^3^3^2921104^^^^"
^DD(133,12,21,1,0)="This contains all devices which will be used when the Schedule of"
^DD(133,12,21,2,0)="Operations is printed."
^DD(133,12,21,3,0)=" "
^DD(133,13,0)="SCHEDULE CLOSE TIME^FXO^^0;12^K:$L(X)>5!($L(X)<5)!'(X?2N1"":""2N) X Q:'$D(X)  S X=$E(X,1,2)_$E(X,4,5) K:X>1500!($E(X,3,4)>59) X"
^DD(133,13,.1)="Schedule Close Time"
^DD(133,13,2)="S Y(0)=Y S Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(133,13,2.1)="S Y=$E(Y,1,2)_"":""_$E(Y,3,4)"
^DD(133,13,3)="Enter the time the final surgery schedule for the next day is published."
^DD(133,13,21,0)="^^8^8^2921106^^"
^DD(133,13,21,1,0)="This field contains the time of day at which the surgery schedule for the"
^DD(133,13,21,2,0)="following day is considered to be closed.  Any scheduled cases canceled"
^DD(133,13,21,3,0)="after this time will be included in computing the cancellation rate for the"
^DD(133,13,21,4,0)="facility.  The time entered in this field may be earlier than, but no later"
^DD(133,13,21,5,0)="than, 15:00.  Your answer must be in a military time format with leading"
^DD(133,13,21,6,0)="zeros.  For example, a time of 9:00 AM MUST be entered in the format 09:00."
^DD(133,13,21,7,0)="15:00 is the default time for this field if no time is entered."
^DD(133,13,21,8,0)="  "
^DD(133,13,"DT")="2920818"
^DD(133,14,0)="VERSION NUMBER^FI^^0;3^K:$L(X)>5!($L(X)<1) X"
^DD(133,14,.1)="Version Number"
^DD(133,14,3)="Answer must be 1-5 characters in length."
^DD(133,14,21,0)="^^2^2^2930112^^"
^DD(133,14,21,1,0)="This field contains the current version number of the Surgery software."
^DD(133,14,21,2,0)=" "
^DD(133,14,"DT")="2930112"
^DD(133,15,0)="CARDIAC ASSESSMENT IN USE(Y/N)^S^Y:YES;N:NO;^0;5^Q"
^DD(133,15,.1)="Is the Cardiac Risk Assessment Module in Use (Y/N)"
^DD(133,15,3)="If the Cardiac Risk Assessment Module is being used at this medical center, enter 'YES'."
^DD(133,15,21,0)="^^2^2^3010403^"
^DD(133,15,21,1,0)="This determines whether the Cardiac Risk Assessment Module is being used"
^DD(133,15,21,2,0)="at this facility. If so, enter 'YES', if not enter 'NO'."
^DD(133,15,"DT")="3010403"
^DD(133,16,0)="LATEST CASE WORKLOAD REPORT^DI^^0;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(133,16,.1)="Latest Surgical Case Workload Report Transmitted"
^DD(133,16,3)="Enter the month/year of the latest transmitted monthly workload report."
^DD(133,16,9)="^"
^DD(133,16,21,0)="^^5^5^2951120^"
^DD(133,16,21,1,0)="This field contains the date (month/year) of the latest NSQIP monthly case"
^DD(133,16,21,2,0)="workload report automatically tasked for transmission to the national"
^DD(133,16,21,3,0)="database.  This field is an uneditable field and is set automatically when"
^DD(133,16,21,4,0)="the monthly case workload report is transmitted by way of the nightly task"
^DD(133,16,21,5,0)="process."
^DD(133,16,"DT")="2951120"
^DD(133,17,0)="ASK FOR RISK PREOP INFO^S^1:YES;0:NO;^0;14^Q"
^DD(133,17,.1)="Ask for Risk Assessment Preop Information (Y/N)"
^DD(133,17,3)="Enter YES to prompt for risk assessment preoperative information when entering a new case."
^DD(133,17,21,0)="^^3^3^2951130^^^"
^DD(133,17,21,1,0)="Enter YES if the user should be prompted for risk assessment preoperative"
^DD(133,17,21,2,0)="information when entering a new case and when updating a requested or"
^DD(133,17,21,3,0)="scheduled case."
^DD(133,17,"DT")="2951114"
^DD(133,18,0)="UPDATES TO PCE^SI^O:OUTPATIENT ONLY;A:ALL CASES;N:PCE NOT UPDATED;^0;15^Q"
^DD(133,18,.1)="Updates to PCE"
^DD(133,18,3)="Enter the site's preference for PCE updating."
^DD(133,18,5,1,0)="133^.01^2"
^DD(133,18,21,0)="^.001^5^5^3040112^^^^"
^DD(133,18,21,1,0)="This indicates the site's preference for PCE updating.  If this field"
^DD(133,18,21,2,0)="contains O, PCE will be updated with outpatient case information only.  If"
^DD(133,18,21,3,0)="this field contains A, PCE will be updated information from all cases,"
^DD(133,18,21,4,0)="both inpatient and outpatient.  If this field contains N or is null, no"
^DD(133,18,21,5,0)="PCE updating will occur."
^DD(133,18,"DT")="3040217"
^DD(133,18.5,0)="PCE UPDATE ACTIVATION DATE^D^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(133,18.5,.1)="PCE Update Activation Date"
^DD(133,18.5,3)="Enter the earliest date for which surgical cases may be filed with PCE."
^DD(133,18.5,21,0)="^^4^4^2961010^^^"
^DD(133,18.5,21,1,0)="This is the earliest date of operation for which surgical cases may be"
^DD(133,18.5,21,2,0)="filed with PCE.  Surgical cases or non-OR procedures performed before this"
^DD(133,18.5,21,3,0)="date will not be filed with PCE.  If no date is entered, this parameter"
^DD(133,18.5,21,4,0)="will be ignored."
^DD(133,18.5,"DT")="2961009"
^DD(133,19,0)="ASK CLASSIFICATION QUESTIONS^SI^1:YES;0:NO;^0;16^Q"
^DD(133,19,.1)="Ask Classification Questions"
^DD(133,19,3)="Enter YES if classification questions should be asked when requesting a case."
^DD(133,19,5,1,0)="133^.01^3"
^DD(133,19,21,0)="^^3^3^2960905^"
^DD(133,19,21,1,0)="This field indicates whether the patient service connected classification"
^DD(133,19,21,2,0)="questions should be asked when entering a new case or when updating an"
^DD(133,19,21,3,0)="existing case."
^DD(133,19,"DT")="3040505"
^DD(133,20,0)="REQUEST CUTOFF FOR SUNDAY^S^0:SCHEDULING NOT ALLOWED;1:SATURDAY;2:FRIDAY;3:THURSDAY;4:WEDNESDAY;5:TUESDAY;6:MONDAY;^2;1^Q"
^DD(133,20,.1)="Day of Request Deadline for Sunday"
^DD(133,20,3)="Enter the day of the week on which the request deadline for Sunday occurs."
^DD(133,20,21,0)="^^4^4^2920131^^^^"
^DD(133,20,21,1,0)=" Enter the day of the week on which the request deadline occurs for"
^DD(133,20,21,2,0)=" Sunday scheduling.  Enter '0' if Sunday scheduling is not allowed."
^DD(133,20,21,3,0)=" If no entry is made in this field, the package will assume the request"
^DD(133,20,21,4,0)=" cutoff day for Sunday is Saturday."
^DD(133,20,"DT")="2920131"
^DD(133,21,0)="REQUEST CUTOFF FOR MONDAY^S^0:SCHEDULING NOT ALLOWED;1:SUNDAY;2:SATURDAY;3:FRIDAY;4:THURSDAY;5:WEDNESDAY;6:TUESDAY;^2;2^Q"
^DD(133,21,.1)="Day of Request Deadline for Monday"
^DD(133,21,3)="Enter the day of the week on which the request deadline for Monday occurs."
^DD(133,21,21,0)="^^4^4^2920131^^^^"
^DD(133,21,21,1,0)=" Enter the day of the week on which the request deadline occurs for"
^DD(133,21,21,2,0)=" Monday scheduling.  Enter '0' if Monday scheduling is not allowed."
^DD(133,21,21,3,0)=" If no entry is made in this field, the package will assume the request"
^DD(133,21,21,4,0)=" cutoff day for Monday is Sunday."
^DD(133,21,"DT")="2920131"
^DD(133,22,0)="REQUEST CUTOFF FOR TUESDAY^S^0:SCHEDULING NOT ALLOWED;1:MONDAY;2:SUNDAY;3:SATURDAY;4:FRIDAY;5:THURSDAY;6:WEDNESDAY;^2;3^Q"
^DD(133,22,.1)="Day of Request Deadline for Tuesday"
^DD(133,22,3)="Enter the day of the week on which the request deadline for Tuesday occurs."
^DD(133,22,21,0)="^^4^4^2920131^^^^"
^DD(133,22,21,1,0)=" Enter the day of the week on which the request deadline occurs for"
^DD(133,22,21,2,0)=" Tuesday scheduling.  Enter '0' if Tuesday scheduling is not allowed."
^DD(133,22,21,3,0)=" If no entry is made in this field, the package will assume the request"
^DD(133,22,21,4,0)=" cutoff day for Tuesday is Monday."
^DD(133,22,"DT")="2920131"
^DD(133,23,0)="REQUEST CUTOFF FOR WEDNESDAY^S^0:SCHEDULING NOT ALLOWED;1:TUESDAY;2:MONDAY;3:SUNDAY;4:SATURDAY;5:FRIDAY;6:THURSDAY;^2;4^Q"
^DD(133,23,.1)="Day of Request Deadline for Wednesday"
^DD(133,23,3)="Enter the day of the week on which the request deadline for Wednesday occurs."
^DD(133,23,21,0)="^^4^4^2920131^^^^"
^DD(133,23,21,1,0)=" Enter the day of the week on which the request deadline occurs for"
^DD(133,23,21,2,0)=" Wednesday scheduling.  Enter '0' if Wednesday scheduling is not allowed."
^DD(133,23,21,3,0)=" If no entry is made in this field, the package will assume the request"
^DD(133,23,21,4,0)=" cutoff day for Wednesday is Tuesday"
^DD(133,23,"DT")="2920131"
^DD(133,24,0)="REQUEST CUTOFF FOR THURSDAY^S^0:SCHEDULING NOT ALLOWED;1:WEDNESDAY;2:TUESDAY;3:MONDAY;4:SUNDAY;5:SATURDAY;6:FRIDAY;^2;5^Q"
^DD(133,24,.1)="Day of Request Deadline for Thursday"
^DD(133,24,3)="Enter the day of the week on which the request deadline for Thursday occurs."
^DD(133,24,21,0)="^^4^4^2921228^^^^"
^DD(133,24,21,1,0)=" Enter the day of the week on which the request deadline occurs for"
^DD(133,24,21,2,0)=" Thursday scheduling.  Enter '0' if Thursday scheduling is not allowed."
^DD(133,24,21,3,0)=" If no entry is made in this field, the package will assume the request"
^DD(133,24,21,4,0)=" cutoff day for Thursday is Wednesday."
^DD(133,24,"DT")="2920131"
^DD(133,25,0)="REQUEST CUTOFF FOR FRIDAY^S^0:SCHEDULING NOT ALLOWED;1:THURSDAY;2:WEDNESDAY;3:TUESDAY;4:MONDAY;5:SUNDAY;6:SATURDAY;^2;6^Q"
^DD(133,25,.1)="Day of Request Deadline for Friday"
^DD(133,25,3)="Enter the day of the week on which the request deadline for Friday occurs."
^DD(133,25,21,0)="^^5^5^2920131^^^^"
^DD(133,25,21,1,0)="Enter the day of the week on which the request deadline occurs for"
^DD(133,25,21,2,0)="Friday scheduling.  Enter '0' if Friday scheduling is not allowed."
^DD(133,25,21,3,0)="If no entry is made in this field, the software will use Thursday"
^DD(133,25,21,4,0)="as the request cutoff day for Friday."
^DD(133,25,21,5,0)=" "
^DD(133,25,"DT")="2920131"
^DD(133,26,0)="REQUEST CUTOFF FOR SATURDAY^S^0:SCHEDULING NOT ALLOWED;1:FRIDAY;2:THURSDAY;3:WEDNESDAY;4:TUESDAY;5:MONDAY;6:SUNDAY;^2;7^Q"
^DD(133,26,.1)="Day of Request Deadline for Saturday"
^DD(133,26,3)="Enter the day of the week on which the request deadline for Saturday occurs."
^DD(133,26,21,0)="^^4^4^2920131^"
^DD(133,26,21,1,0)=" Enter the day of the week on which the request deadline occurs for"
^DD(133,26,21,2,0)=" Saturday scheduling.  Enter '0' if Saturday scheduling is not allowed."
^DD(133,26,21,3,0)=" If no entry is made in this field, the package will assume the request"
^DD(133,26,21,4,0)=" cutoff day for Saturday is Friday."
^DD(133,26,"DT")="2920131"
^DD(133,27,0)="HOLIDAY SCHEDULING ALLOWED^133.027P^^3;0"
^DD(133,27,21,0)="^^2^2^2911224^^"
^DD(133,27,21,1,0)=" These are the holidays on which the scheduling of surgical cases will be"
^DD(133,27,21,2,0)=" allowed."
^DD(133,27,"DT")="2911224"
^DD(133,28,0)="REQUIRED FIELDS FOR SCHEDULING^133.028P^^4;0"
^DD(133,28,21,0)="^^3^3^2920505^^^"
^DD(133,28,21,1,0)="This contains the names of fields that must be entered prior to scheduling"
^DD(133,28,21,2,0)="a requested procedure."
^DD(133,28,21,3,0)=" "
^DD(133,28,23,0)="^^4^4^2920505^^"
^DD(133,28,23,1,0)="This is a modified pointer.  It will point to the data dictionary"
^DD(133,28,23,2,0)="of the SURGERY file (130).  The pointer value will equal the field"
^DD(133,28,23,3,0)="number in the SURGERY file (130)."
^DD(133,28,23,4,0)=" "
^DD(133,29,0)="NURSE INTRAOP REPORT^S^0:PRINT TITLES WITH INFO ONLY;1:PRINT ALL FIELD TITLES;^0;6^Q"
^DD(133,29,.1)="Nurse Intraoperative Report Format"
^DD(133,29,3)="Enter '1' if you want the Nurse Intraoperative Report to print all field titles regardless of data, or '0' to print only those titles that have information entered."
^DD(133,29,21,0)="^^7^7^2920121^^"
^DD(133,29,21,1,0)="This determines the format of the Nurse Intraoperative Report.  Enter '1'"
^DD(133,29,21,2,0)="if you want to list all field titles in the report regardless as to whether"
^DD(133,29,21,3,0)="information has been entered for that field.  If you want a shorter report,"
^DD(133,29,21,4,0)="enter '0'.  This format will print only those fields that have information"
^DD(133,29,21,5,0)="entered.  If nothing is entered for this parameter, the report will include"
^DD(133,29,21,6,0)="all field titles."
^DD(133,29,21,7,0)=" "
^DD(133,29,23,0)="^^4^4^2920114^"
^DD(133,29,23,1,0)="This determines the format of the Nurse Intraoperative Report.  This"
^DD(133,29,23,2,0)="information will be stored in the variable SRSITE(""NRPT"") when the Site"
^DD(133,29,23,3,0)="Parameter routine (SROVAR) is run."
^DD(133,29,23,4,0)=" "
^DD(133,29,"DT")="2920124"
^DD(133,30,0)="OPERATION REPORT FORMAT^S^1:PRINT ALL FIELD TITLES;0:PRINT TITLES WITH INFO ONLY;^0;8^Q"
^DD(133,30,.1)="Operation Report Format"
^DD(133,30,3)="Select format '1' if you want to display all field titles, or format '0' if you only want to display titles when information has been entered for that field."
^DD(133,30,21,0)="^^6^6^2921106^^"
^DD(133,30,21,1,0)="This determines the format of the Operation Report.  If you want to "
^DD(133,30,21,2,0)="display all field titles on the report and 'N/A' for those fields that"
^DD(133,30,21,3,0)="do not have information entered, select format '1'.  If you only want"
^DD(133,30,21,4,0)="to display field titles when information has been entered, select"
^DD(133,30,21,5,0)="format '0'."
^DD(133,30,21,6,0)=" "
^DD(133,30,23,0)="^^4^4^2920121^"
^DD(133,30,23,1,0)="This determines the format of the Operation Report.  The routine"
^DD(133,30,23,2,0)="SROPRPT1 will check this field and determine which format to use."
^DD(133,30,23,3,0)="If no format is selected, the report will print all field titles."
^DD(133,30,23,4,0)=" "
^DD(133,30,"DT")="2920124"
^DD(133,31,0)="NSQIP 30 DAY FOLLOW-UP LETTER^133.031^^5;0"
^DD(133,31,21,0)="^^2^2^3000822^"
^DD(133,31,21,1,0)="This field contains the text of the NSQIP 30-day follow-up letter to be"
^DD(133,31,21,2,0)="printed and mailed to the patient approximately 30 days following surgery."
^DD(133,32,0)="LATEST QUARTERLY REPORT^FXOI^^0;18^D QTR^SROQ0"
^DD(133,32,.1)="Most Recent Quarterly Report Transmitted"
^DD(133,32,2)="S Y(0)=Y S Y=$E(Y,1,4)_"", Quarter #""_$E(Y,5)"
^DD(133,32,2.1)="S Y=$E(Y,1,4)_"", Quarter #""_$E(Y,5)"
^DD(133,32,3)="Enter the FISCAL YEAR and QUARTER separated ba a hyphen (-), e.g., 1996-4."
^DD(133,32,9)="^"
^DD(133,32,21,0)="^^3^3^2970129^^^"
^DD(133,32,21,1,0)="This field contains the latest fiscal quarter for which the Quarterly"
^DD(133,32,21,2,0)="Report has been transmitted to the Surgical Service, Headquarters,"
^DD(133,32,21,3,0)="national database."
^DD(133,32,"DT")="2961213"
^DD(133,33,0)="SURGICAL RESIDENTS (Y/N)^S^0:NO;1:YES;^0;19^Q"
^DD(133,33,.1)="Surgical Residents (Y/N)"
^DD(133,33,3)="Enter YES if surgical residents may perform surgery at this facility."
^DD(133,33,21,0)="^^5^5^2970129^^"
^DD(133,33,21,1,0)="This field indicates whether surgery may be performed by residents at this"
^DD(133,33,21,2,0)="facility.  Enter NO if all surgeons at this facility are staff surgeons."
^DD(133,33,21,3,0)="If this field is NO an attending surgeon will not be required by the PCE"
^DD(133,33,21,4,0)="interface and cases with no attend code will be counted as Level 0 (Staff"
^DD(133,33,21,5,0)="Alone) on the Quarterly Report."
^DD(133,33,"DT")="2961213"
^DD(133,34,0)="HL7 V. 1.5 COMPATIBLE^S^1:YES;0:NO;^0;20^Q"
^DD(133,34,.1)="Use Surgery Interface Compatible with VISTA HL7 V. 1.5 (Y/N)"
^DD(133,34,3)="Enter YES to use Surgery HL7 interface compatible with HL7 V. 1.5."
^DD(133,34,21,0)="^^3^3^2980421^^"
^DD(133,34,21,1,0)="If applications communicating with the Surgery HL7 interface must use the"
^DD(133,34,21,2,0)="interface designed for use with HL7 V. 1.5, enter YES.  Otherwise, enter"
^DD(133,34,21,3,0)="NO or leave this field blank."
^DD(133,34,"DT")="2980409"
^DD(133,35,0)="INACTIVE?^S^1:YES;0:NO;^0;21^Q"
^DD(133,35,.1)="Inactive?"
^DD(133,35,3)="Enter 'YES' to inactivate this site."
^DD(133,35,21,0)="^^2^2^2980604^"
^DD(133,35,21,1,0)="Enter YES to make this SURGERY SITE inactive and to prevent its selection"
^DD(133,35,21,2,0)="and use by Surgery users."
^DD(133,35,"DT")="2980515"
^DD(133,36,0)="CPT COPYRIGHT NOTICE DATE^133.036DA^^6;0"
^DD(133,36,"DT")="2980604"
^DD(133,37,0)="AUTOMATED CASE CART ORDERING^S^Y:YES;N:NO;^0;22^Q"
^DD(133,37,.1)="Automated Case Cart Ordering (Y/N)"
^DD(133,37,3)="Enter YES if the CoreFLS interface for Surgery is in use."
^DD(133,37,21,0)="^^2^2^3020822^"
^DD(133,37,21,1,0)="This indicates whether the CoreFLS interface for Surgery is in use at this"
^DD(133,37,21,2,0)="facility. If so, enter YES. Otherwise, enter NO or leave blank."
^DD(133,37,"DT")="3020822"
^DD(133,38,0)="CPT ON NURSE INTRAOP^S^0:NO, DO NOT INCLUDE CPT;1:YES, INCLUDE CPT;^.1;2^Q"
^DD(133,38,.1)="CPT on Nurse Intraop Report"
^DD(133,38,3)="Enter YES to require the principal CPT code prior to electronic signature and to make it part of the report."
^DD(133,38,21,0)="^^6^6^3030902^"
^DD(133,38,21,1,0)="If this field is set to YES, INCLUDE CPT, the principal CPT code "
^DD(133,38,21,2,0)="will be required before electronic signature can be applied and the"
^DD(133,38,21,3,0)="CPT code will be part of the report. If the field is null or set to"
^DD(133,38,21,4,0)="NO, DO NOT INCLUDE CPT, the principal CPT code will not be required"
^DD(133,38,21,5,0)="before electronic signature can be applied and the CPT code will not"
^DD(133,38,21,6,0)="be part of the report."
^DD(133,38,"DT")="3010914"
^DD(133,39,0)="ICD-9 ON NURSE INTRAOP^S^0:NO, DO NOT INCLUDE ICD-9;1:YES, INCLUDE ICD-9;^.1;3^Q"
^DD(133,39,.1)="ICD-9 on Nurse Intraop Report"
^DD(133,39,3)="Enter YES to require the principal diagnosis code prior to electronic signature and to make it part of the report."
^DD(133,39,21,0)="^^5^5^3030902^"
^DD(133,39,21,1,0)="If this field is set to YES, INCLUDE ICD-9, the principal diagnosis "
^DD(133,39,21,2,0)="code will be required before electronic signature can be applied and"
^DD(133,39,21,3,0)="the ICD-9 code will be part of the report.  If the field is null or"
^DD(133,39,21,4,0)="set to NO, DO NOT INCLUDE ICD-9, the principal diagnosis code will "
^DD(133,39,21,5,0)="not be required before electronic signature can be applied."
^DD(133,39,"DT")="3010914"
^DD(133,40,0)="ANESTHESIA REPORT IN USE^S^1:YES;0:NO;^.1;4^Q"
^DD(133,40,.1)="Anesthesia Report In Use"
^DD(133,40,3)="Enter YES if the electronically signed Anesthesia Report is used."
^DD(133,40,21,0)="^^4^4^3030902^"
^DD(133,40,21,1,0)="This YES/NO field determines if the Anesthesia Report should be "
^DD(133,40,21,2,0)="created and electronically signed.  Only if this field is marked YES"
^DD(133,40,21,3,0)="will the functionality be invoked to create the Anesthesia Report "
^DD(133,40,21,4,0)="for a case in TIU."
^DD(133,40,"DT")="3010118"
^DD(133,41,0)="DEFAULT BLOOD COMPONENT^FX^^7;1^D ITRAN^VBECA5A"
^DD(133,41,3)="Answer must be 3-45 characters in length."
^DD(133,41,4)="D OUT66^VBECA5A"
^DD(133,41,21,0)="^^2^2^3030116^"
^DD(133,41,21,1,0)="This field contains the default blood type used during surgery.  If"
^DD(133,41,21,2,0)="a certain type is used frequently, this field should be completed."
^DD(133,41,"DT")="3030116"
^DD(133,42,0)="DEFAULT CLINIC FOR DOCUMENTS^*P44'^SC(^0;23^S DIC(""S"")=""I $$NOCNT^SROUTL(DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(133,42,.1)="Default Non-Count Clinic for TIU Documents"
^DD(133,42,3)="Enter a non-count clinic that will be the default clinic associated with TIU documents."
^DD(133,42,12)="Screen requires selection of non-count clinic."
^DD(133,42,12.1)="S DIC(""S"")=""I $$NOCNT^SROUTL(DA)"""
^DD(133,42,21,0)="^^3^3^3040124^"
^DD(133,42,21,1,0)="This non-count clinic is the default clinic for this division. It will"
^DD(133,42,21,2,0)="be the location passed to TIU when Surgery documents are created if no"
^DD(133,42,21,3,0)="other location can be identified."
^DD(133,42,"DT")="3040121"
^DD(133,43,0)="CODE ISSUE MAIL GROUP^P3.8'^XMB(3.8,^7;2^Q"
^DD(133,43,.1)="Code Issue Mail Group"
^DD(133,43,3)="Enter the name of the mail group that will receive all coding issue messages."
^DD(133,43,21,0)="^^5^5^3050623^"
^DD(133,43,21,1,0)="This is the name of the mail group that will receive all coding issue "
^DD(133,43,21,2,0)="messages sent by the Risk Assessment Nurse Reviewer. "
^DD(133,43,21,3,0)="When the Non-Cardiac and Cardiac Risk Assessment option Alert Coder"
^DD(133,43,21,4,0)="Regarding Coding Issues is used, a mail message is sent to the person "
^DD(133,43,21,5,0)="that coded the Surgery case and the mail group identified in this field."
^DD(133,43,"DT")="3050623"
^DD(133,"B","ANESTHESIA REPORT IN USE",40)=""
^DD(133,"B","ASK CLASSIFICATION QUESTIONS",19)=""
^DD(133,"B","ASK FOR RISK PREOP INFO",17)=""
^DD(133,"B","AUTOMATED CASE CART ORDERING",37)=""
^DD(133,"B","Anesthesia Report In Use",40)="1"
^DD(133,"B","Ask Classification Questions",19)="1"
^DD(133,"B","CANCEL IVS",6)=""
^DD(133,"B","CARDIAC ASSESSMENT IN USE(Y/N)",15)=""
^DD(133,"B","CHIEF'S NAME",9)=""
^DD(133,"B","CODE ISSUE MAIL GROUP",43)=""
^DD(133,"B","CPT COPYRIGHT NOTICE DATE",36)=""
^DD(133,"B","CPT ON NURSE INTRAOP",38)=""
^DD(133,"B","CPT on Nurse Intraop Report",38)="1"
^DD(133,"B","Code Issue Mail Group",43)="1"
^DD(133,"B","DEFAULT BLOOD COMPONENT",41)=""
^DD(133,"B","DEFAULT CLINIC FOR DOCUMENTS",42)=""
^DD(133,"B","HL7 V. 1.5 COMPATIBLE",34)=""
^DD(133,"B","HOLIDAY SCHEDULING ALLOWED",27)=""
^DD(133,"B","ICD-9 ON NURSE INTRAOP",39)=""
^DD(133,"B","ICD-9 on Nurse Intraop Report",39)="1"
^DD(133,"B","INACTIVE?",35)=""
^DD(133,"B","Inactive?",35)="1"
^DD(133,"B","LATEST CASE WORKLOAD REPORT",16)=""
^DD(133,"B","LATEST QUARTERLY REPORT",32)=""
^DD(133,"B","LOCK AFTER HOW MANY DAYS",10)=""
^DD(133,"B","MAIL CODE FOR ANESTHESIA",3)=""
^DD(133,"B","NSQIP 30 DAY FOLLOW-UP LETTER",31)=""
^DD(133,"B","NURSE INTRAOP REPORT",29)=""
^DD(133,"B","Name of the Chief of Surgery",9)="1"
^DD(133,"B","OPERATION REPORT FORMAT",30)=""
^DD(133,"B","OR SCHEDULE DEVICES",12)=""
^DD(133,"B","Operation Report Format",30)="1"
^DD(133,"B","PCE UPDATE ACTIVATION DATE",18.5)=""
^DD(133,"B","PCE Update Activation Date",18.5)="1"
^DD(133,"B","REQUEST CUTOFF FOR FRIDAY",25)=""
^DD(133,"B","REQUEST CUTOFF FOR MONDAY",21)=""
^DD(133,"B","REQUEST CUTOFF FOR SATURDAY",26)=""
^DD(133,"B","REQUEST CUTOFF FOR SUNDAY",20)=""
^DD(133,"B","REQUEST CUTOFF FOR THURSDAY",24)=""
^DD(133,"B","REQUEST CUTOFF FOR TUESDAY",22)=""
^DD(133,"B","REQUEST CUTOFF FOR WEDNESDAY",23)=""
^DD(133,"B","REQUEST DEADLINE",11)=""
^DD(133,"B","REQUIRED FIELDS FOR SCHEDULING",28)=""
^DD(133,"B","Request Deadline",11)="1"
^DD(133,"B","SCHEDULE CLOSE TIME",13)=""
^DD(133,"B","SITE",.01)=""
^DD(133,"B","SURGICAL RESIDENTS (Y/N)",33)=""
^DD(133,"B","Schedule Close Time",13)="1"
^DD(133,"B","Site/Division",.01)="1"
^DD(133,"B","Surgical Residents (Y/N)",33)="1"
^DD(133,"B","UPDATES TO PCE",18)=""
^DD(133,"B","Updates to PCE",18)="1"
^DD(133,"B","VERSION NUMBER",14)=""
^DD(133,"B","Version Number",14)="1"
^DD(133,"GL",0,1,.01)=""
^DD(133,"GL",0,2,11)=""
^DD(133,"GL",0,3,14)=""
^DD(133,"GL",0,4,3)=""
^DD(133,"GL",0,5,15)=""
^DD(133,"GL",0,6,29)=""
^DD(133,"GL",0,7,6)=""
^DD(133,"GL",0,8,30)=""
^DD(133,"GL",0,10,9)=""
^DD(133,"GL",0,11,10)=""
^DD(133,"GL",0,12,13)=""
^DD(133,"GL",0,13,16)=""
^DD(133,"GL",0,14,17)=""
^DD(133,"GL",0,15,18)=""
^DD(133,"GL",0,16,19)=""
^DD(133,"GL",0,17,18.5)=""
^DD(133,"GL",0,18,32)=""
^DD(133,"GL",0,19,33)=""
^DD(133,"GL",0,20,34)=""
^DD(133,"GL",0,21,35)=""
^DD(133,"GL",0,22,37)=""
^DD(133,"GL",0,23,42)=""
^DD(133,"GL",.1,2,38)=""
^DD(133,"GL",.1,3,39)=""
^DD(133,"GL",.1,4,40)=""
^DD(133,"GL",1,0,12)=""
^DD(133,"GL",2,1,20)=""
^DD(133,"GL",2,2,21)=""
^DD(133,"GL",2,3,22)=""
^DD(133,"GL",2,4,23)=""
^DD(133,"GL",2,5,24)=""
^DD(133,"GL",2,6,25)=""
^DD(133,"GL",2,7,26)=""
^DD(133,"GL",3,0,27)=""
^DD(133,"GL",4,0,28)=""
^DD(133,"GL",5,0,31)=""
^DD(133,"GL",6,0,36)=""
^DD(133,"GL",7,1,41)=""
^DD(133,"GL",7,2,43)=""
^DD(133,"IX",.01)=""
^DD(133,"RQ",.01)=""
^DD(133,"SB",133.012,12)=""
^DD(133,"SB",133.027,27)=""
^DD(133,"SB",133.028,28)=""
^DD(133,"SB",133.031,31)=""
^DD(133,"SB",133.036,36)=""
^DD(133.012,0)="OR SCHEDULE DEVICES SUB-FIELD^^.01^1"
^DD(133.012,0,"NM","OR SCHEDULE DEVICES")=""
^DD(133.012,0,"UP")="133"
^DD(133.012,.01,0)="OR SCHEDULE DEVICES^MFX^^0;1^D DEV^SROVAR"
^DD(133.012,.01,.1)="Devices Used when Printing the Schedule of Operations"
^DD(133.012,.01,1,0)="^.1^^0"
^DD(133.012,.01,3)="Your answer must be 1-20 characters in length."
^DD(133.012,.01,21,0)="^^3^3^2921104^^^^"
^DD(133.012,.01,21,1,0)="This is the name of the printer used to automatically print the"
^DD(133.012,.01,21,2,0)="Schedule of Operations."
^DD(133.012,.01,21,3,0)=" "
^DD(133.012,.01,"DT")="2920409"
^DD(133.012,"B","OR SCHEDULE DEVICES",.01)=""
^DD(133.012,"GL",0,1,.01)=""
^DD(133.027,0)="HOLIDAY SCHEDULING ALLOWED SUB-FIELD^^.01^1"
^DD(133.027,0,"DT")="2920130"
^DD(133.027,0,"IX","B",133.027,.01)=""
^DD(133.027,0,"NM","HOLIDAY SCHEDULING ALLOWED")=""
^DD(133.027,0,"UP")="133"
^DD(133.027,.01,0)="HOLIDAY SCHEDULING ALLOWED^MP40.5'XO^HOLIDAY(^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(133.027,.01,.1)="Holiday Scheduling Allowed"
^DD(133.027,.01,1,0)="^.1"
^DD(133.027,.01,1,1,0)="133.027^B"
^DD(133.027,.01,1,1,1)="S ^SRO(133,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(133.027,.01,1,1,2)="K ^SRO(133,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(133.027,.01,2)="S Y(0)=Y D DD^%DT"
^DD(133.027,.01,2.1)="D DD^%DT"
^DD(133.027,.01,3)="Enter a holiday on which scheduling will be allowed."
^DD(133.027,.01,21,0)="^^2^2^2911224^^"
^DD(133.027,.01,21,1,0)=" This is a holiday on which the scheduling of surgical cases will be "
^DD(133.027,.01,21,2,0)=" allowed."
^DD(133.027,.01,"DT")="2920130"
^DD(133.027,"B","HOLIDAY SCHEDULING ALLOWED",.01)=""
^DD(133.027,"B","Holiday Scheduling Allowed",.01)="1"
^DD(133.027,"GL",0,1,.01)=""
^DD(133.027,"IX",.01)=""
^DD(133.028,0)="REQUIRED FIELDS FOR SCHEDULING SUB-FIELD^^1^2"
^DD(133.028,0,"DT")="2921104"
^DD(133.028,0,"IX","AC",133.028,.01)=""
^DD(133.028,0,"IX","B",133.028,.01)=""
^DD(133.028,0,"NM","REQUIRED FIELDS FOR SCHEDULING")=""
^DD(133.028,0,"UP")="133"
^DD(133.028,.01,0)="REQUIRED FIELDS FOR SCHEDULING^M*P130'X^DD(130,^0;1^S DIC(""S"")=""I Y'=.01,Y'=.04,Y'=.09,Y'=.14,Y'=26,'+$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(133.028,.01,.1)="Field Required to Schedule a Case"
^DD(133.028,.01,1,0)="^.1"
^DD(133.028,.01,1,1,0)="133.028^B"
^DD(133.028,.01,1,1,1)="S ^SRO(133,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(133.028,.01,1,1,2)="K ^SRO(133,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(133.028,.01,1,2,0)="133.028^AC^MUMPS"
^DD(133.028,.01,1,2,1)="D SCH^SROXR4"
^DD(133.028,.01,1,2,2)="D KSCH^SROXR4"
^DD(133.028,.01,1,2,"%D",0)="^^2^2^2930202^^"
^DD(133.028,.01,1,2,"%D",1,0)="The AC cross reference on the REQUIRED FIELDS FOR SCHEDULING sub-field"
^DD(133.028,.01,1,2,"%D",2,0)="automatically sets the FIELD NUMBER field."
^DD(133.028,.01,1,2,"DT")="2911227"
^DD(133.028,.01,3)="Enter the name (or number) of the field required when scheduling a surgical case."
^DD(133.028,.01,12)="Screen out already required fields and fields that define sub-files."
^DD(133.028,.01,12.1)="S DIC(""S"")=""I Y'=.01,Y'=.04,Y'=.09,Y'=.14,Y'=26,'+$P(^(0),U,2)"""
^DD(133.028,.01,21,0)="^^4^4^2920505^^"
^DD(133.028,.01,21,1,0)="This is the name of a field which must have information entered prior"
^DD(133.028,.01,21,2,0)="to scheduling.  If this field does not have the information entered,"
^DD(133.028,.01,21,3,0)="scheduling will be prohibited.  "
^DD(133.028,.01,21,4,0)=" "
^DD(133.028,.01,23,0)="^^4^4^2920505^^"
^DD(133.028,.01,23,1,0)="This field is a modified pointer.  It points to the data dictionary"
^DD(133.028,.01,23,2,0)="of the SURGERY file (130).  The pointer value stored is the field"
^DD(133.028,.01,23,3,0)="number in the SURGERY file (130) of the selected field."
^DD(133.028,.01,23,4,0)=" "
^DD(133.028,.01,"DT")="2921104"
^DD(133.028,1,0)="COMMENTS^133.281^^1;0"
^DD(133.028,1,21,0)="^^3^3^2920505^"
^DD(133.028,1,21,1,0)="This contains any comments related to why this field was included as a"
^DD(133.028,1,21,2,0)="requirement for scheduling."
^DD(133.028,1,21,3,0)=" "
^DD(133.028,"B","COMMENTS",1)=""
^DD(133.028,"B","REQUIRED FIELDS FOR SCHEDULING",.01)=""
^DD(133.028,"GL",0,1,.01)=""
^DD(133.028,"GL",1,0,1)=""
^DD(133.028,"IX",.01)=""
^DD(133.028,"SB",133.281,1)=""
^DD(133.031,0)="NSQIP 30 DAY FOLLOW-UP LETTER SUB-FIELD^^.01^1"
^DD(133.031,0,"DT")="3000713"
^DD(133.031,0,"NM","NSQIP 30 DAY FOLLOW-UP LETTER")=""
^DD(133.031,0,"UP")="133"
^DD(133.031,.01,0)="NSQIP 30 DAY FOLLOW-UP LETTER^W^^0;1^Q"
^DD(133.031,.01,.1)="NSQIP 30 Day Follow-Up Letter"
^DD(133.031,.01,3)="Enter the text of the 30-day follow-up letter."
^DD(133.031,.01,21,0)="^^2^2^3000821^"
^DD(133.031,.01,21,1,0)="This field contains the text of the NSQIP 30-day follow-up letter to be"
^DD(133.031,.01,21,2,0)="printed and mailed to the patient approximately 30 days following surgery."
^DD(133.031,.01,"DT")="3000821"
^DD(133.031,"B","NSQIP 30 DAY FOLLOW-UP LETTER",.01)=""
^DD(133.031,"B","NSQIP 30 Day Follow-Up Letter",.01)="1"
^DD(133.031,"GL",0,1,.01)=""
^DD(133.036,0)="CPT COPYRIGHT NOTICE DATE SUB-FIELD^^1^2"
^DD(133.036,0,"DT")="2980603"
^DD(133.036,0,"NM","CPT COPYRIGHT NOTICE DATE")=""
^DD(133.036,0,"UP")="133"
^DD(133.036,.01,0)="CPT COPYRIGHT NOTICE DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S DINUM=X"
^DD(133.036,.01,.1)="CPT Copyright Notice Date"
^DD(133.036,.01,1,0)="^.1^^0"
^DD(133.036,.01,3)="Enter today's date."
^DD(133.036,.01,21,0)="^^3^3^2980604^"
^DD(133.036,.01,21,1,0)="The date in this multiple field represents the most recent date(s) on"
^DD(133.036,.01,21,2,0)="which the CPT copyright notice was displayed to users upon entering the"
^DD(133.036,.01,21,3,0)="Surgery package."
^DD(133.036,.01,23,0)="^^7^7^2980604^"
^DD(133.036,.01,23,1,0)="This multiple field is set by the routine SROVAR.  When the user accesses"
^DD(133.036,.01,23,2,0)="a Surgery option or menu, this field is checked to determine if it"
^DD(133.036,.01,23,3,0)="contains the current date.  If the field does not contain the current"
^DD(133.036,.01,23,4,0)="date, the current date is entered.  Entries for past dates are removed by"
^DD(133.036,.01,23,5,0)="the nightly cleanup/maintenance process.  Normally, only the first entry"
^DD(133.036,.01,23,6,0)="in the SURGERY SITE PARAMETERS file (#133) will contain an entry in this"
^DD(133.036,.01,23,7,0)="multiple."
^DD(133.036,.01,"DT")="2980604"
^DD(133.036,1,0)="USER^133.361PA^^1;0"
^DD(133.036,"B","CPT COPYRIGHT NOTICE DATE",.01)=""
^DD(133.036,"B","CPT Copyright Notice Date",.01)="1"
^DD(133.036,"B","USER",1)=""
^DD(133.036,"GL",0,1,.01)=""
^DD(133.036,"GL",1,0,1)=""
^DD(133.036,"SB",133.361,1)=""
^DD(133.2,0)="FIELD^^14^15"
^DD(133.2,0,"DDA")="N"
^DD(133.2,0,"DT")="2960404"
^DD(133.2,0,"IX","AC",133.2,.01)=""
^DD(133.2,0,"NM","SURGERY INTERFACE PARAMETER")=""
^DD(133.2,0,"PT",133.21,.01)=""
^DD(133.2,0,"PT",133.29,.01)=""
^DD(133.2,0,"VR")="3.0"
^DD(133.2,0,"VRPK")="SR"
^DD(133.2,.01,0)="TEXT^RIF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(133.2,.01,.1)="Text ID Name"
^DD(133.2,.01,1,0)="^.1^^-1"
^DD(133.2,.01,1,2,0)="133.2^AC^MUMPS"
^DD(133.2,.01,1,2,1)="S ^SRO(133.2,""AC"",$E(X,1,60),DA)="""""
^DD(133.2,.01,1,2,2)="K ^SRO(133.2,""AC"",$E(X,1,60),DA)"
^DD(133.2,.01,1,2,"%D",0)="^^3^3^2950703^"
^DD(133.2,.01,1,2,"%D",1,0)="This cross-reference is used by the surgery HL7 incoming message"
^DD(133.2,.01,1,2,"%D",2,0)="processing routines, to identify the fields descriptions to a field within"
^DD(133.2,.01,1,2,"%D",3,0)="the Surgery file (#130)."
^DD(133.2,.01,1,2,"DT")="2950703"
^DD(133.2,.01,3)="Your answer must be 1-60 characters in length and correspond to the text sent in the Observation Identifier (OBX-3) or Universal Service Identifier (OBR-4)."
^DD(133.2,.01,9)="^"
^DD(133.2,.01,21,0)="^^3^3^2950315^^^^"
^DD(133.2,.01,21,1,0)="This field is used to map VistA fields to HL7 (OBR-4 and OBX-3 identifiers)"
^DD(133.2,.01,21,2,0)="segment sequences.  This field is used as a text identifier for the field"
^DD(133.2,.01,21,3,0)="number."
^DD(133.2,.01,23,0)="^^4^4^2950315^"
^DD(133.2,.01,23,1,0)="This field is used to map OBR-4 and OBX-3 identifiers to fields within"
^DD(133.2,.01,23,2,0)="File 130 (SURGERY CASE).  This text field will be sent within the OBR-4"
^DD(133.2,.01,23,3,0)="and OBX-3 identifier sequences.  This field must match the text identifier"
^DD(133.2,.01,23,4,0)="exactly for the interface to work."
^DD(133.2,.01,"DT")="2980323"
^DD(133.2,.01,"LAYGO",1,0)="I $D(SRHLAYGO)"
^DD(133.2,1,0)="FILE/SUBFILE^NJ8,4^^0;2^K:+X'=X!(X>130.9999)!(X<130)!(X?.E1"".""5N.N) X"
^DD(133.2,1,.1)="File/Subfile number"
^DD(133.2,1,3)="Enter a File/Subfile number between 130 and 130.9999, 4 decimal digits."
^DD(133.2,1,9)="^"
^DD(133.2,1,21,0)="^^2^2^2950314^^"
^DD(133.2,1,21,1,0)="This field holds the FILE/SUBFILE number of the VistA field that will be"
^DD(133.2,1,21,2,0)="edited (e.g. 130)."
^DD(133.2,1,23,0)="^^2^2^2950314^"
^DD(133.2,1,23,1,0)="This field is used to identify the file of the field to be interfaced,"
^DD(133.2,1,23,2,0)="(e.g., 130)."
^DD(133.2,1,"DT")="2950209"
^DD(133.2,2,0)="FIELD^NJ9,4^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(133.2,2,.1)="Field number"
^DD(133.2,2,1,0)="^.1^^0"
^DD(133.2,2,3)="Enter a File 130 field number between 0 and 9999, 4 decimal digits."
^DD(133.2,2,9)="^"
^DD(133.2,2,21,0)="^^2^2^2950314^^^"
^DD(133.2,2,21,1,0)="This is the corresponding VistA field number of the text name that will be"
^DD(133.2,2,21,2,0)="passed in either the OBX-3 or OBR-4 sequence."
^DD(133.2,2,23,0)="^^1^1^2950314^^"
^DD(133.2,2,23,1,0)="This field must correspond to a field number in VistA."
^DD(133.2,2,"DT")="2950314"
^DD(133.2,3,0)="INTERFACE^RSX^R:RECEIVE;I:IGNORE;S:SEND;S/R:SEND AND RECEIVE;^0;4^I X=""S/R"",$P(^SRO(133.2,DA,0),U,3)'="""" N SRX S SRX=$C(7) D EN^DDIOL(SRX) K X Q"
^DD(133.2,3,.1)="Transmission flag"
^DD(133.2,3,1,0)="^.1^^0"
^DD(133.2,3,3)="Enter in whether the information should be received, sent, or ignored for this text ID.  Entries that do not have an associated field can be set to send and receive."
^DD(133.2,3,9)="^"
^DD(133.2,3,21,0)="^^10^10^2950817^"
^DD(133.2,3,21,1,0)="This field is used to determine ownership of data among systems.  Data"
^DD(133.2,3,21,2,0)="should be entered in this field. Except for OBR segment identifiers like"
^DD(133.2,3,21,3,0)="OPERATION and PROCEDURE that do not have a FILE/SUBFILE and FIELD"
^DD(133.2,3,21,4,0)="associations, all other entries should be set to send, receive or ignore."
^DD(133.2,3,21,5,0)="Excluding these entries will allow the users to send or receive individual"
^DD(133.2,3,21,6,0)="pieces of underlying information related to the operation or procedure. If"
^DD(133.2,3,21,7,0)="the field is set to R, the information will be received into the Surgery"
^DD(133.2,3,21,8,0)="package.  If the field is set to S, the information will be transmitted"
^DD(133.2,3,21,9,0)="from the Surgery package.  If the field is not part of the interface the"
^DD(133.2,3,21,10,0)="field should be set to I, for ignore."
^DD(133.2,3,23,0)="^^3^3^2950817^^^^"
^DD(133.2,3,23,1,0)="This field is used as a switch or identifier for all information received"
^DD(133.2,3,23,2,0)="and transmitted by the Surgery Interface by way of an ORU (Observation"
^DD(133.2,3,23,3,0)="Results Unsolicited) message."
^DD(133.2,3,"DT")="2980409"
^DD(133.2,4,0)="SEGMENT^RF^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X"
^DD(133.2,4,.1)="HL7 Segment"
^DD(133.2,4,1,0)="^.1^^0"
^DD(133.2,4,3)="Your answer must be 3 characters in length."
^DD(133.2,4,9)="^"
^DD(133.2,4,21,0)="^^2^2^2950314^^"
^DD(133.2,4,21,1,0)="This field identifies the HL7 segment that will be holding the"
^DD(133.2,4,21,2,0)="information, (e.g., OBX)."
^DD(133.2,4,23,0)="^^1^1^2950314^"
^DD(133.2,4,23,1,0)="This field must correspond to an HL7 segment."
^DD(133.2,4,"DT")="2950314"
^DD(133.2,5,0)="VALUE^S^ST:STRING;TX:TEXT;FT:FORMATTED TEXT;DT:DATE;TM:TIME;TS:TIME STAMP;PN:PERSON NAME;TN:TELEPHONE NUMBER;AD:ADDRESS;CK:COMPOSITE ID WITH CHECK DIGIT;CN:COMPOSITE ID AND NAME;CE:CODED ENTRY;RP:REFERENCE POINTER;NM:NUMERIC;^0;6^Q"
^DD(133.2,5,.1)="HL7 data type"
^DD(133.2,5,3)="Enter in the appropriate HL7 data type for this text ID."
^DD(133.2,5,9)="^"
^DD(133.2,5,21,0)="^^2^2^2950315^"
^DD(133.2,5,21,1,0)="This field is used to identify the type of information being passed by the"
^DD(133.2,5,21,2,0)="OBX segment.  This field will be blank for all OBR segments."
^DD(133.2,5,"DT")="2950314"
^DD(133.2,6,0)="HL7 SEQUENCE^F^^0;8^K:$L(X)>10!($L(X)<3) X"
^DD(133.2,6,.1)="HL7 sequence number"
^DD(133.2,6,3)="Your answer must be 3-10 characters in length."
^DD(133.2,6,9)="^"
^DD(133.2,6,21,0)="^^4^4^2980519^"
^DD(133.2,6,21,1,0)="This field holds the HL7 sequence and field position of the corresponding"
^DD(133.2,6,21,2,0)="VistA field.  The field should contain the sequence number separated by a"
^DD(133.2,6,21,3,0)="dash ('-') and followed by the sub-component location (value should be 1"
^DD(133.2,6,21,4,0)="if no sub-component separator)."
^DD(133.2,6,23,0)="^^3^3^2980519^^^^"
^DD(133.2,6,23,1,0)="This field holds the HL7 field location of the corresponding VistA Surgery"
^DD(133.2,6,23,2,0)="field.  This field is used by the Surgery HL7 routines to process incoming"
^DD(133.2,6,23,3,0)="HL7 messages."
^DD(133.2,6,"DT")="2950314"
^DD(133.2,7,0)="MESSAGE^F^^0;7^K:$L(X)>3!($L(X)<3) X"
^DD(133.2,7,.1)="HL7 message type"
^DD(133.2,7,3)="Your answer must be 3 characters in length."
^DD(133.2,7,9)="^"
^DD(133.2,7,21,0)="^^1^1^2950315^^"
^DD(133.2,7,21,1,0)="This field identifies the HL7 message sent for the information."
^DD(133.2,7,"DT")="2950314"
^DD(133.2,8,0)="LEVEL^NJ1,0^^0;9^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(133.2,8,.1)="File level"
^DD(133.2,8,3)="Enter in a DR string field level number between 1 and 4."
^DD(133.2,8,9)="^"
^DD(133.2,8,21,0)="^^2^2^2950315^"
^DD(133.2,8,21,1,0)="This field corresponds to the VistA file location level in terms of a VA"
^DD(133.2,8,21,2,0)="FileMan DIE call."
^DD(133.2,8,23,0)="^^2^2^2950315^"
^DD(133.2,8,23,1,0)="This field is used in a processing routine to set DR string in a FileMan"
^DD(133.2,8,23,2,0)="DIE call."
^DD(133.2,8,"DT")="2950314"
^DD(133.2,9,0)="RELATED POINTER^133.29P^^1;0"
^DD(133.2,9,21,0)="^^3^3^2950315^^^^"
^DD(133.2,9,21,1,0)="This field is used to link the HL7 sequence fields in a single segment for"
^DD(133.2,9,21,2,0)="processing in a DR string.  This field should only link those fields"
^DD(133.2,9,21,3,0)="located on a single segment."
^DD(133.2,9,23,0)="^^2^2^2950315^^^^"
^DD(133.2,9,23,1,0)="This field is used in the processing routine to properly set the VistA"
^DD(133.2,9,23,2,0)="corresponding field."
^DD(133.2,9,"V",0)="^.12P"
^DD(133.2,10,0)="RELATED MENU ITEMS^133.21P^^2;0"
^DD(133.2,10,21,0)="^^2^2^2960415^^^^"
^DD(133.2,10,21,1,0)="This multiple is used to link all OBR segments to all underlying OBX"
^DD(133.2,10,21,2,0)="segments."
^DD(133.2,10,23,0)="^^3^3^2960415^"
^DD(133.2,10,23,1,0)="This field is used by the incoming and outgoing routines to identify valid"
^DD(133.2,10,23,2,0)="OBR and OBX fields and identifiers.  This is also used to maintain the"
^DD(133.2,10,23,3,0)="Flag Interface Fields [SRHL INTERFACE FLDS] option."
^DD(133.2,11,0)="IDENTIFIER^F^^0;10^K:$L(X)>10!($L(X)<1) X"
^DD(133.2,11,3)="Enter in the code that relates to this identifier."
^DD(133.2,11,9)="^"
^DD(133.2,11,21,0)="^^3^3^2950829^"
^DD(133.2,11,21,1,0)="This field is used to base the code that relates to the identifier.  HL7"
^DD(133.2,11,21,2,0)="standards call for information to be base in this form:"
^DD(133.2,11,21,3,0)="<code><text><coding scheme>."
^DD(133.2,11,"DT")="2950829"
^DD(133.2,12,0)="CODING SCHEME^F^^0;11^K:$L(X)>10!($L(X)<1) X"
^DD(133.2,12,3)="Enter in the coding scheme related to the identifier."
^DD(133.2,12,9)="^"
^DD(133.2,12,21,0)="^^5^5^2960415^^"
^DD(133.2,12,21,1,0)="This field is used to base the coding scheme that relates to the"
^DD(133.2,12,21,2,0)="identifier.  The standard coding method is to use L for local fields and"
^DD(133.2,12,21,3,0)="99VAfile# (99VA200, NEW PERSON file) for VA specific files.  Other coding"
^DD(133.2,12,21,4,0)="schemes include AS4 for (ASTM) American Society for testing and materials,"
^DD(133.2,12,21,5,0)="C4 for CPT4, and I9 for ICD9."
^DD(133.2,12,"DT")="2950829"
^DD(133.2,13,0)="UNIT^F^^0;12^K:$L(X)>12!($L(X)<1) X"
^DD(133.2,13,3)="Enter the ISO HL7 standard unit of measure (e.g. ml for milliliter)."
^DD(133.2,13,9)="^"
^DD(133.2,13,21,0)="^^2^2^2980520^"
^DD(133.2,13,21,1,0)="This field represent the identified field's unit of measure.  This value"
^DD(133.2,13,21,2,0)="must correspond to the ISO standards set forth by the HL7 standard."
^DD(133.2,13,"DT")="2951003"
^DD(133.2,14,0)="ALWAYS CREATE NEW ENTRY^S^1:YES;0:NO;^0;13^Q"
^DD(133.2,14,3)="Enter a '1' to force new entries for multiples and '0' to add or edit existing entries."
^DD(133.2,14,9)="^"
^DD(133.2,14,21,0)="^^2^2^2960415^^"
^DD(133.2,14,21,1,0)="This field is used by the incoming message processing routine to determine"
^DD(133.2,14,21,2,0)="if the value should always create a new entry in the file."
^DD(133.2,14,"DT")="2960404"
^DD(133.2,"B","ALWAYS CREATE NEW ENTRY",14)=""
^DD(133.2,"B","CODING SCHEME",12)=""
^DD(133.2,"B","FIELD",2)=""
^DD(133.2,"B","FILE/SUBFILE",1)=""
^DD(133.2,"B","Field number",2)="1"
^DD(133.2,"B","File level",8)="1"
^DD(133.2,"B","File/Subfile number",1)="1"
^DD(133.2,"B","HL7 SEQUENCE",6)=""
^DD(133.2,"B","HL7 Segment",4)="1"
^DD(133.2,"B","HL7 data type",5)="1"
^DD(133.2,"B","HL7 message type",7)="1"
^DD(133.2,"B","HL7 sequence number",6)="1"
^DD(133.2,"B","IDENTIFIER",11)=""
^DD(133.2,"B","INTERFACE",3)=""
^DD(133.2,"B","LEVEL",8)=""
^DD(133.2,"B","MESSAGE",7)=""
^DD(133.2,"B","RELATED MENU ITEMS",10)=""
^DD(133.2,"B","RELATED POINTER",9)=""
^DD(133.2,"B","SEGMENT",4)=""
^DD(133.2,"B","TEXT",.01)=""
^DD(133.2,"B","Text ID Name",.01)="1"
^DD(133.2,"B","Transmission flag",3)="1"
^DD(133.2,"B","UNIT",13)=""
^DD(133.2,"B","VALUE",5)=""
^DD(133.2,"GL",0,1,.01)=""
^DD(133.2,"GL",0,2,1)=""
^DD(133.2,"GL",0,3,2)=""
^DD(133.2,"GL",0,4,3)=""
^DD(133.2,"GL",0,5,4)=""
^DD(133.2,"GL",0,6,5)=""
^DD(133.2,"GL",0,7,7)=""
^DD(133.2,"GL",0,8,6)=""
^DD(133.2,"GL",0,9,8)=""
^DD(133.2,"GL",0,10,11)=""
^DD(133.2,"GL",0,11,12)=""
^DD(133.2,"GL",0,12,13)=""
^DD(133.2,"GL",0,13,14)=""
^DD(133.2,"GL",1,0,9)=""
^DD(133.2,"GL",2,0,10)=""
^DD(133.2,"IX",.01)=""
^DD(133.2,"RQ",.01)=""
^DD(133.2,"RQ",3)=""
^DD(133.2,"RQ",4)=""
^DD(133.2,"SB",133.21,10)=""
^DD(133.2,"SB",133.29,9)=""
^DD(133.21,0)="RELATED MENU ITEMS SUB-FIELD^^.01^1"
^DD(133.21,0,"DT")="2950309"
^DD(133.21,0,"NM","RELATED MENU ITEMS")=""
^DD(133.21,0,"UP")="133.2"
^DD(133.21,.01,0)="RELATED MENU ITEMS^RIMP133.2X^SRO(133.2,^0;1^S DINUM=X Q"
^DD(133.21,.01,1,0)="^.1^^0"
^DD(133.21,.01,3)="Enter in all entries that correspond to this OBR segment.  Only OBR segments should have entries in this field."
^DD(133.21,.01,9)="^"
^DD(133.21,.01,21,0)="^^1^1^2960415^^^"
^DD(133.21,.01,21,1,0)="This field is used to link OBR segments to all underlying OBX segments."
^DD(133.21,.01,23,0)="^^1^1^2960415^^^"
^DD(133.21,.01,23,1,0)="This field is used to keep track of corresponding OBR and OBX segments."
^DD(133.21,.01,"DT")="2950314"
^DD(133.21,"B","RELATED MENU ITEMS",.01)=""
^DD(133.21,"GL",0,1,.01)=""
^DD(133.21,"RQ",.01)=""
^DD(133.281,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(133.281,0,"DT")="2920505"
^DD(133.281,0,"NM","COMMENTS")=""
^DD(133.281,0,"UP")="133.028"
^DD(133.281,.01,0)="COMMENTS^W^^0;1^Q"
^DD(133.281,.01,.1)="Comments"
^DD(133.281,.01,3)="Enter any comments related to when or why this requirement was included."
^DD(133.281,.01,21,0)="^^2^2^2920505^"
^DD(133.281,.01,21,1,0)="This contains any comments related to why this field was included"
^DD(133.281,.01,21,2,0)="as a requirement to scheduling a surgical case."
^DD(133.281,.01,"DT")="2920505"
^DD(133.281,"B","COMMENTS",.01)=""
^DD(133.281,"B","Comments",.01)="1"
^DD(133.281,"GL",0,1,.01)=""
^DD(133.29,0)="RELATED POINTER SUB-FIELD^^.01^1"
^DD(133.29,0,"DT")="2950301"
^DD(133.29,0,"NM","RELATED POINTER")=""
^DD(133.29,0,"UP")="133.2"
^DD(133.29,.01,0)="RELATED POINTER^RIMP133.2X^SRO(133.2,^0;1^S DINUM=X"
^DD(133.29,.01,1,0)="^.1^^0"
^DD(133.29,.01,3)="Enter in all related entries.  The entry must correspond to another entry in this file."
^DD(133.29,.01,9)="^"
^DD(133.29,.01,21,0)="^^3^3^2980519^"
^DD(133.29,.01,21,1,0)="This field is used as a reference pointer to the other related entries in"
^DD(133.29,.01,21,2,0)="this file.  Related entries are those entries that corresponded to the"
^DD(133.29,.01,21,3,0)="same segment, but are at different HL7 sequence locations."
^DD(133.29,.01,23,0)="^^1^1^2980519^^"
^DD(133.29,.01,23,1,0)="This field is used to set the proper DR string for a FileMan DIE call."
^DD(133.29,.01,"DT")="2950314"
^DD(133.29,"B","RELATED POINTER",.01)=""
^DD(133.29,"GL",0,1,.01)=""
^DD(133.29,"RQ",.01)=""
^DD(133.361,0)="USER SUB-FIELD^^.01^1"
^DD(133.361,0,"DT")="2980603"
^DD(133.361,0,"NM","USER")=""
^DD(133.361,0,"UP")="133.036"
^DD(133.361,.01,0)="USER^P200'X^VA(200,^0;1^S DINUM=X Q"
^DD(133.361,.01,.1)="User"
^DD(133.361,.01,1,0)="^.1^^0"
^DD(133.361,.01,3)="Enter the user to whom the CPT copyright notice has been displayed on this date."
^DD(133.361,.01,21,0)="^^2^2^2980604^^^^"
^DD(133.361,.01,21,1,0)="This multiple field records the users to whom the CPT copyright notice"
^DD(133.361,.01,21,2,0)="has been displayed on this date."
^DD(133.361,.01,23,0)="^^7^7^2980604^"
^DD(133.361,.01,23,1,0)="This multiple field is set by the routine SROVAR.  When the user accesses"
^DD(133.361,.01,23,2,0)="a Surgery option or menu, this field is checked to determine if it already"
^DD(133.361,.01,23,3,0)="contains the user.  If not, the CPT copyright notice is displayed and the"
^DD(133.361,.01,23,4,0)="user is entered in this field.  Once the user is entered in this field for"
^DD(133.361,.01,23,5,0)="this date, the copyright notice will not be displayed again to this user"
^DD(133.361,.01,23,6,0)="on this date.  The obvious purpose is to limit the display of the CPT"
^DD(133.361,.01,23,7,0)="copyright notice to no more than once per day per user."
^DD(133.361,.01,"DT")="2980603"
^DD(133.361,"B","USER",.01)=""
^DD(133.361,"B","User",.01)="1"
^DD(133.361,"GL",0,1,.01)=""
^DD(133.4,0)="FIELD^^10^2"
^DD(133.4,0,"DT")="2920602"
^DD(133.4,0,"IX","B",133.4,.01)=""
^DD(133.4,0,"NM","MONITORS")=""
^DD(133.4,0,"PT",130.41,.01)=""
^DD(133.4,0,"VR")="3"
^DD(133.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(133.4,.01,.1)="Name of Monitor"
^DD(133.4,.01,1,0)="^.1"
^DD(133.4,.01,1,1,0)="133.4^B"
^DD(133.4,.01,1,1,1)="S ^SRO(133.4,""B"",$E(X,1,30),DA)="""""
^DD(133.4,.01,1,1,2)="K ^SRO(133.4,""B"",$E(X,1,30),DA)"
^DD(133.4,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(133.4,.01,21,0)="^^2^2^2921228^^"
^DD(133.4,.01,21,1,0)="This is the name of the monitor."
^DD(133.4,.01,21,2,0)=" "
^DD(133.4,.01,"DEL",1,0)="W !,""Deletion from the Monitors file is not allowed !! "",*7 I 1"
^DD(133.4,.01,"DT")="2860408"
^DD(133.4,10,0)="INACTIVE?^S^1:YES;^0;2^Q"
^DD(133.4,10,.1)="Inactive?"
^DD(133.4,10,3)="Enter 'YES' to inactivate this file entry."
^DD(133.4,10,21,0)="^^2^2^2920602^"
^DD(133.4,10,21,1,0)="Enter 'YES' to inactivate this file entry and to prevent its selection"
^DD(133.4,10,21,2,0)="by Surgery users."
^DD(133.4,10,"DT")="2920602"
^DD(133.4,"B","INACTIVE?",10)=""
^DD(133.4,"B","Inactive?",10)="1"
^DD(133.4,"B","NAME",.01)=""
^DD(133.4,"B","Name of Monitor",.01)="1"
^DD(133.4,"GL",0,1,.01)=""
^DD(133.4,"GL",0,2,10)=""
^DD(133.4,"IX",.01)=""
^DD(133.4,"RQ",.01)=""
^DD(133.6,0)="FIELD^^10^3"
^DD(133.6,0,"DT")="2920603"
^DD(133.6,0,"IX","B",133.6,.01)=""
^DD(133.6,0,"IX","C",133.6,1)=""
^DD(133.6,0,"NM","IRRIGATION")=""
^DD(133.6,0,"PT",130.08,.01)=""
^DD(133.6,0,"VR")="3"
^DD(133.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(133.6,.01,.1)="Name of Irrigation Solution"
^DD(133.6,.01,1,0)="^.1"
^DD(133.6,.01,1,1,0)="133.6^B"
^DD(133.6,.01,1,1,1)="S ^SRO(133.6,""B"",$E(X,1,30),DA)="""""
^DD(133.6,.01,1,1,2)="K ^SRO(133.6,""B"",$E(X,1,30),DA)"
^DD(133.6,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(133.6,.01,21,0)="^^3^3^2900709^"
^DD(133.6,.01,21,1,0)="This is the name of the solution used for irrigation during the"
^DD(133.6,.01,21,2,0)="operative procedure."
^DD(133.6,.01,21,3,0)=" "
^DD(133.6,.01,"DEL",1,0)="W !,""Deletion from the Irrigations file is not allowed !! "",*7 I 1"
^DD(133.6,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(133.6,1,.1)="Abbreviation for Irrigation Solution"
^DD(133.6,1,1,0)="^.1"
^DD(133.6,1,1,1,0)="133.6^C"
^DD(133.6,1,1,1,1)="S ^SRO(133.6,""C"",$E(X,1,30),DA)="""""
^DD(133.6,1,1,1,2)="K ^SRO(133.6,""C"",$E(X,1,30),DA)"
^DD(133.6,1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(133.6,1,21,0)="^^2^2^2900709^"
^DD(133.6,1,21,1,0)="This is the Abbreviation of the name of the irrigation solution."
^DD(133.6,1,21,2,0)=" "
^DD(133.6,10,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(133.6,10,.1)="Inactive?"
^DD(133.6,10,3)="Enter 'YES' to inactivate this file entry."
^DD(133.6,10,21,0)="^^2^2^2920603^"
^DD(133.6,10,21,1,0)="Enter 'YES' to make this entry inactive and to prevent its selection and"
^DD(133.6,10,21,2,0)="use by users of the Surgery Package."
^DD(133.6,10,"DT")="2920603"
^DD(133.6,"B","ABBREVIATION",1)=""
^DD(133.6,"B","INACTIVE?",10)=""
^DD(133.6,"B","Inactive?",10)="1"
^DD(133.6,"B","NAME",.01)=""
^DD(133.6,"B","Name of Irrigation Solution",.01)="1"
^DD(133.6,"GL",0,1,.01)=""
^DD(133.6,"GL",0,2,1)=""
^DD(133.6,"GL",0,3,10)=""
^DD(133.6,"IX",.01)=""
^DD(133.6,"IX",1)=""
^DD(133.6,"RQ",.01)=""
^DD(133.7,0)="FIELD^^10^2"
^DD(133.7,0,"DT")="2920603"
^DD(133.7,0,"IX","B",133.7,.01)=""
^DD(133.7,0,"NM","SURGERY REPLACEMENT FLUIDS")=""
^DD(133.7,0,"PT",130.04,.01)=""
^DD(133.7,0,"VR")="3"
^DD(133.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(133.7,.01,.1)="Surgery Replacement Fluid Name"
^DD(133.7,.01,1,0)="^.1"
^DD(133.7,.01,1,1,0)="133.7^B"
^DD(133.7,.01,1,1,1)="S ^SRO(133.7,""B"",$E(X,1,30),DA)="""""
^DD(133.7,.01,1,1,2)="K ^SRO(133.7,""B"",$E(X,1,30),DA)"
^DD(133.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(133.7,.01,21,0)="^^2^2^2900710^"
^DD(133.7,.01,21,1,0)="This is the name of the Surgery Replacement Fluid."
^DD(133.7,.01,21,2,0)=" "
^DD(133.7,.01,"DEL",1,0)="W !,""Deletion from the Surgery Replacement Fluids file is not allowed !! "",*7 I 1"
^DD(133.7,10,0)="INACTIVE?^S^1:YES;^0;2^Q"
^DD(133.7,10,.1)="Inactive?"
^DD(133.7,10,3)="Enter 'YES' to inactivate this file entry."
^DD(133.7,10,21,0)="^^2^2^2920603^"
^DD(133.7,10,21,1,0)="Enter 'YES' to make this entry inactive and to prevent its selection and"
^DD(133.7,10,21,2,0)="use by users of the Surgery Package."
^DD(133.7,10,"DT")="2920603"
^DD(133.7,"B","INACTIVE?",10)=""
^DD(133.7,"B","Inactive?",10)="1"
^DD(133.7,"B","NAME",.01)=""
^DD(133.7,"B","Surgery Replacement Fluid Name",.01)="1"
^DD(133.7,"GL",0,1,.01)=""
^DD(133.7,"GL",0,2,10)=""
^DD(133.7,"IX",.01)=""
^DD(133.7,"RQ",.01)=""
^DD(133.8,0)="FIELD^^1^2"
^DD(133.8,0,"DT")="2920604"
^DD(133.8,0,"IX","AP",133.801,.01)=""
^DD(133.8,0,"IX","AWL",133.801,2)=""
^DD(133.8,0,"IX","B",133.8,.01)=""
^DD(133.8,0,"NM","SURGERY WAITING LIST")=""
^DD(133.8,0,"VR")="3"
^DD(133.8,.01,0)="SURGICAL SPECIALTY^R*P137.45'^SRO(137.45,^0;1^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(133.8,.01,.1)="Surgical Specialty"
^DD(133.8,.01,1,0)="^.1"
^DD(133.8,.01,1,1,0)="133.8^B"
^DD(133.8,.01,1,1,1)="S ^SRO(133.8,""B"",$E(X,1,30),DA)="""""
^DD(133.8,.01,1,1,2)="K ^SRO(133.8,""B"",$E(X,1,30),DA)"
^DD(133.8,.01,3)="Enter the name of the Local Surgical Specialty."
^DD(133.8,.01,12)="Screen prevents selection of inactive entries."
^DD(133.8,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(133.8,.01,21,0)="^^3^3^2920427^^^"
^DD(133.8,.01,21,1,0)="This is the name of the Surgical Specialty.  All entries in the Waiting"
^DD(133.8,.01,21,2,0)="List file have an associated Surgical Specialty."
^DD(133.8,.01,21,3,0)=" "
^DD(133.8,.01,"DT")="2920604"
^DD(133.8,1,0)="PATIENT^133.801IP^^1;0"
^DD(133.8,1,.1)="Patient's Name"
^DD(133.8,1,21,0)="^^2^2^2921215^"
^DD(133.8,1,21,1,0)="This is the name of the patient."
^DD(133.8,1,21,2,0)=" "
^DD(133.8,"B","PATIENT",1)=""
^DD(133.8,"B","Patient's Name",1)="1"
^DD(133.8,"B","SURGICAL SPECIALTY",.01)=""
^DD(133.8,"B","Surgical Specialty",.01)="1"
^DD(133.8,"GL",0,1,.01)=""
^DD(133.8,"GL",1,0,1)=""
^DD(133.8,"IX",.01)=""
^DD(133.8,"RQ",.01)=""
^DD(133.8,"SB",133.801,1)=""
^DD(133.801,0)="PATIENT SUB-FIELD^^23^16"
^DD(133.801,0,"IX","B",133.801,.01)=""
^DD(133.801,0,"NM","PATIENT")=""
^DD(133.801,0,"UP")="133.8"
^DD(133.801,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(133.801,.01,.1)="Patient's Name"
^DD(133.801,.01,1,0)="^.1"
^DD(133.801,.01,1,1,0)="133.801^B"
^DD(133.801,.01,1,1,1)="S ^SRO(133.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(133.801,.01,1,1,2)="K ^SRO(133.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(133.801,.01,1,2,0)="133.8^AP^MUMPS"
^DD(133.801,.01,1,2,1)="D AP^SROXREF"
^DD(133.801,.01,1,2,2)="D KAP^SROXREF"
^DD(133.801,.01,1,2,"%D",0)="^^2^2^2930203^^^"
^DD(133.801,.01,1,2,"%D",1,0)="The AP cross reference on the PATIENT field is used for sorting"
^DD(133.801,.01,1,2,"%D",2,0)="patients on the waiting list."
^DD(133.801,.01,21,0)="^^3^3^2900710^"
^DD(133.801,.01,21,1,0)="This is the name of the patient who will be put on the Waiting List"
^DD(133.801,.01,21,2,0)="for the Surgical Specialty selected."
^DD(133.801,.01,21,3,0)=" "
^DD(133.801,.01,"DT")="2900116"
^DD(133.801,1,0)="OPERATION^RFX^^0;2^K:X[""""""""!($A(X)=45) X D:$D(X) WL^SROPROC"
^DD(133.801,1,.1)="Principal Operative Procedure"
^DD(133.801,1,1,0)="^.1^^0"
^DD(133.801,1,3)="Procedure name must be 3 to 75 characters in length."
^DD(133.801,1,21,0)="^^7^7^2930604^^^^"
^DD(133.801,1,21,1,0)="This is the name of the principal operative procedure.  When this"
^DD(133.801,1,21,2,0)="patient is scheduled from the Waiting List, the procedure name"
^DD(133.801,1,21,3,0)="entered will automatically get carried over to the Schedule."
^DD(133.801,1,21,4,0)=" "
^DD(133.801,1,21,5,0)="The name of the principal procedure must not contain '@', '^', ';',"
^DD(133.801,1,21,6,0)="'?' or '""' and must contain at least one space in every 31 characters"
^DD(133.801,1,21,7,0)="of length."
^DD(133.801,1,"DT")="2930604"
^DD(133.801,2,0)="DATE ENTERED ON LIST^RD^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(133.801,2,.1)="Date/Time Entered On List"
^DD(133.801,2,1,0)="^.1"
^DD(133.801,2,1,1,0)="133.8^AWL^MUMPS"
^DD(133.801,2,1,1,1)="D AWL^SROXREF"
^DD(133.801,2,1,1,2)="D KAWL^SROXREF"
^DD(133.801,2,1,1,"%D",0)="^^3^3^2930203^^^^"
^DD(133.801,2,1,1,"%D",1,0)="The AWL cross-reference on the DATE ENTERED ON LIST field is used to"
^DD(133.801,2,1,1,"%D",2,0)="sort the waiting list by surgical specialty and by date entered on"
^DD(133.801,2,1,1,"%D",3,0)="the waiting list for use in reporting."
^DD(133.801,2,1,1,"DT")="2920924"
^DD(133.801,2,21,0)="^^4^4^2900710^"
^DD(133.801,2,21,1,0)="This is the date/time that the patient was entered on the Waiting List."
^DD(133.801,2,21,2,0)="When displaying the list, entries are printed in the order in which"
^DD(133.801,2,21,3,0)="they were entered."
^DD(133.801,2,21,4,0)=" "
^DD(133.801,2,"DT")="2920924"
^DD(133.801,3,0)="REFERRING PHYSICIAN^133.8013A^^1;0"
^DD(133.801,3,.1)="Name of the Referring Physician/Medical Center"
^DD(133.801,3,21,0)="^.001^3^3^3030904^^^^"
^DD(133.801,3,21,1,0)="This is the name of the referring physician.  Information related"
^DD(133.801,3,21,2,0)="to the referring physician is optional."
^DD(133.801,3,21,3,0)=" "
^DD(133.801,3,"DT")="3030805"
^DD(133.801,4,0)="COMMENTS^133.8014^^2;0"
^DD(133.801,4,.1)="General Comments/Special Instructions"
^DD(133.801,4,21,0)="^^3^3^2921215^"
^DD(133.801,4,21,1,0)="These are comments related to this patient which may be helpful"
^DD(133.801,4,21,2,0)="when requesting this procedure."
^DD(133.801,4,21,3,0)=" "
^DD(133.801,5,0)="TENTATIVE ADMISSION DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(133.801,5,.1)="Tentative Admission Date"
^DD(133.801,5,1,0)="^.1^^0"
^DD(133.801,5,21,0)="^^3^3^2900710^"
^DD(133.801,5,21,1,0)="This field contains the expected admission date for this patient."
^DD(133.801,5,21,2,0)="The information is not required, but should be entered if known."
^DD(133.801,5,21,3,0)=" "
^DD(133.801,5,"DT")="2911107"
^DD(133.801,6,0)="TENTATIVE DATE OF OPERATION^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(133.801,6,.1)="Tentative Date of Operation"
^DD(133.801,6,21,0)="^^2^2^2900911^"
^DD(133.801,6,21,1,0)="This is the estimated date of operation for this procedure."
^DD(133.801,6,21,2,0)=" "
^DD(133.801,6,"DT")="2900911"
^DD(133.801,16,0)="SERVICE CONNECTED^S^1:YES;0:NO;^0;16^Q"
^DD(133.801,16,.1)="Treatment related to Service Connected condition (Y/N)"
^DD(133.801,16,3)="If this surgery will treat a service connected problem, enter YES."
^DD(133.801,16,21,0)="^^3^3^2961001^^"
^DD(133.801,16,21,1,0)="This field will be used to indicate if this surgery is treating a VA"
^DD(133.801,16,21,2,0)="patient for a service connected problem.  This information may be passed"
^DD(133.801,16,21,3,0)="to the VISIT file (#9000010) to be used by PCE."
^DD(133.801,16,"DT")="2961001"
^DD(133.801,17,0)="AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^0;17^Q"
^DD(133.801,17,.1)="Treatment related to Agent Orange Exposure (Y/N)"
^DD(133.801,17,3)="If this case is treating an agent orange exposure problem, enter YES."
^DD(133.801,17,21,0)="^^3^3^2961001^"
^DD(133.801,17,21,1,0)="This field will be used to indicate if this surgery is treating a VA"
^DD(133.801,17,21,2,0)="patient for a problem that is related to Agent Orange Exposure.  This"
^DD(133.801,17,21,3,0)="information may be passed to the VISIT file (#9000010) to be used by PCE."
^DD(133.801,17,"DT")="2961001"
^DD(133.801,18,0)="IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^0;18^Q"
^DD(133.801,18,.1)="Treatment related to Ionizing Radiation Exposure (Y/N)"
^DD(133.801,18,3)="If this case is treating an Ionizing Radiation Exposure problem, enter YES."
^DD(133.801,18,21,0)="^^3^3^2961001^^"
^DD(133.801,18,21,1,0)="This field will be used to indicate if this surgery is treating a VA"
^DD(133.801,18,21,2,0)="patient for a problem that is related to Ionizing Radiation Exposure. This"
^DD(133.801,18,21,3,0)="information may be passed to the VISIT file (#9000010) to be used by PCE."
^DD(133.801,18,"DT")="2961001"
^DD(133.801,19,0)="SOUTHWEST ASIA CONDITIONS^S^1:YES;0:NO;^0;19^Q"
^DD(133.801,19,.1)="Treatment related to service in SW Asia (Y/N)"
^DD(133.801,19,3)="If this case is treating a SW Asia problem, enter YES."
^DD(133.801,19,21,0)="^^3^3^3060726^"
^DD(133.801,19,21,1,0)="This field will be used to indicate if this surgery is treating a VA"
^DD(133.801,19,21,2,0)="patient for a problem related to service in SW Asia.  This information "
^DD(133.801,19,21,3,0)="may be passed to the VISIT file (#9000010) to be used by PCE."
^DD(133.801,19,"DT")="3060726"
^DD(133.801,20,0)="CLASSIFICATION ENTERED (Y/N)^S^1:YES;0:NO;^0;20^Q"
^DD(133.801,20,.1)="Classification Entered (Y/N)"
^DD(133.801,20,3)="Enter YES if classification information has been entered (as appropriate)."
^DD(133.801,20,21,0)="^^5^5^2961001^^"
^DD(133.801,20,21,1,0)="This field indicates whether or not classification items have been"
^DD(133.801,20,21,2,0)="addressed. This field is used by the software to decide whether to allow"
^DD(133.801,20,21,3,0)="the user a choice to update classification information.  If the field is"
^DD(133.801,20,21,4,0)="NO or null, it will not permit a choice if the site parameter to enter"
^DD(133.801,20,21,5,0)="classification information is turned on."
^DD(133.801,20,"DT")="2961001"
^DD(133.801,21,0)="MILITARY SEXUAL TRAUMA^S^1:YES;0:NO;^0;21^Q"
^DD(133.801,21,.1)="Treatment related to Military Sexual Trauma (Y/N)"
^DD(133.801,21,3)="If this case is treating a problem related to Military Sexual Trauma, enter YES."
^DD(133.801,21,21,0)="^.001^3^3^3011105^^^^"
^DD(133.801,21,21,1,0)="This field will be used to indicate if this surgery is treating a VA"
^DD(133.801,21,21,2,0)="patient for a problem related to military sexual trauma.  This information"
^DD(133.801,21,21,3,0)="may be passed to the VISIT file (#9000010) to be used by PCE."
^DD(133.801,21,"DT")="3011011"
^DD(133.801,22,0)="HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^0;22^Q"
^DD(133.801,22,.1)="Treatment related to Head and/or Neck Cancer (Y/N)"
^DD(133.801,22,3)="If this case is treating a problem related to Head and/or Neck Cancer, enter YES."
^DD(133.801,22,21,0)="^^3^3^3011121^"
^DD(133.801,22,21,1,0)="This field will be used to indicate if this surgery is treating a VA"
^DD(133.801,22,21,2,0)="patient for a problem related to Head and/or Neck Cancer.  This"
^DD(133.801,22,21,3,0)="information may be passed to the VISIT file (#9000010) to be used by PCE."
^DD(133.801,22,"DT")="3011121"
^DD(133.801,23,0)="COMBAT VET^S^1:YES;0:NO;^0;23^Q"
^DD(133.801,23,.1)="Treatment related to Combat (Y/N)"
^DD(133.801,23,3)="If this case is treating a problem related to Combat, enter YES."
^DD(133.801,23,21,0)="^.001^3^3^3040210^^^"
^DD(133.801,23,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure "
^DD(133.801,23,21,2,0)="is treating a VA patient for a problem that is related to Combat.  This "
^DD(133.801,23,21,3,0)="information may be passed to the VISIT file (#9000010) for use by PCE."
^DD(133.801,23,"DT")="3040210"
^DD(133.801,24,0)="PROJ 112/SHAD^S^1:YES;0:NO;^0;24^Q"
^DD(133.801,24,.1)="Treatment related to PROJECT 112/SHAD? (Y/N)"
^DD(133.801,24,3)="If this case is treating a problem related to PROJECT 112/SHAD, enter YES."
^DD(133.801,24,21,0)="^.001^4^4^3051117^^"
^DD(133.801,24,21,1,0)="This field will be used to indicate if this surgery or non-OR procedure "
^DD(133.801,24,21,2,0)="is treating a VA patient for a problem that is related to PROJECT "
^DD(133.801,24,21,3,0)="112/SHAD.  This information may be passed to the VISIT file (#9000010) "
^DD(133.801,24,21,4,0)="for use by PCE."
^DD(133.801,24,"DT")="3051117"
^DD(133.801,"B","AGENT ORANGE EXPOSURE",17)=""
^DD(133.801,"B","CLASSIFICATION ENTERED (Y/N)",20)=""
^DD(133.801,"B","COMBAT VET",23)=""
^DD(133.801,"B","COMMENTS",4)=""
^DD(133.801,"B","Classification Entered (Y/N)",20)="1"
^DD(133.801,"B","DATE ENTERED ON LIST",2)=""
^DD(133.801,"B","Date/Time Entered On List",2)="1"
^DD(133.801,"B","HEAD AND/OR NECK CANCER",22)=""
^DD(133.801,"B","IONIZING RADIATION EXPOSURE",18)=""
^DD(133.801,"B","MILITARY SEXUAL TRAUMA",21)=""
^DD(133.801,"B","OPERATION",1)=""
^DD(133.801,"B","PATIENT",.01)=""
^DD(133.801,"B","PROJ 112/SHAD",24)=""
^DD(133.801,"B","Patient's Name",.01)="1"
^DD(133.801,"B","Principal Operative Procedure",1)="1"
^DD(133.801,"B","REFERRING PHYSICIAN",3)=""
^DD(133.801,"B","SERVICE CONNECTED",16)=""
^DD(133.801,"B","SOUTHWEST ASIA CONDITIONS",19)=""
^DD(133.801,"B","TENTATIVE ADMISSION DATE",5)=""
^DD(133.801,"B","TENTATIVE DATE OF OPERATION",6)=""
^DD(133.801,"B","Tentative Admission Date",5)="1"
^DD(133.801,"B","Tentative Date of Operation",6)="1"
^DD(133.801,"GL",0,1,.01)=""
^DD(133.801,"GL",0,2,1)=""
^DD(133.801,"GL",0,3,2)=""
^DD(133.801,"GL",0,4,5)=""
^DD(133.801,"GL",0,5,6)=""
^DD(133.801,"GL",0,16,16)=""
^DD(133.801,"GL",0,17,17)=""
^DD(133.801,"GL",0,18,18)=""
^DD(133.801,"GL",0,19,19)=""
^DD(133.801,"GL",0,20,20)=""
^DD(133.801,"GL",0,21,21)=""
^DD(133.801,"GL",0,22,22)=""
^DD(133.801,"GL",0,23,23)=""
^DD(133.801,"GL",0,24,24)=""
^DD(133.801,"GL",1,0,3)=""
^DD(133.801,"GL",2,0,4)=""
^DD(133.801,"IX",.01)=""
^DD(133.801,"IX",2)=""
^DD(133.801,"RQ",.01)=""
^DD(133.801,"RQ",1)=""
^DD(133.801,"RQ",2)=""
^DD(133.801,"SB",133.8013,3)=""
^DD(133.801,"SB",133.8014,4)=""
^DD(133.8013,0)="REFERRING PHYSICIAN SUB-FIELD^^6^7"
^DD(133.8013,0,"IX","B",133.8013,.01)=""
^DD(133.8013,0,"NM","REFERRING PHYSICIAN")=""
^DD(133.8013,0,"UP")="133.801"
^DD(133.8013,.01,0)="REFERRING PHYSICIAN^FX^^0;1^D REFPHY^SROWL K:$L(X)>50!($L(X)<1) X"
^DD(133.8013,.01,.1)="Referring Physician/Medical Center"
^DD(133.8013,.01,1,0)="^.1"
^DD(133.8013,.01,1,1,0)="133.8013^B"
^DD(133.8013,.01,1,1,1)="S ^SRO(133.8,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(133.8013,.01,1,1,2)="K ^SRO(133.8,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(133.8013,.01,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(133.8013,.01,4)=""
^DD(133.8013,.01,21,0)="^.001^3^3^3030515^^^^"
^DD(133.8013,.01,21,1,0)="This is the name of the physician and/or Medical Center that referred"
^DD(133.8013,.01,21,2,0)="the patient for surgery at this facility."
^DD(133.8013,.01,21,3,0)=" "
^DD(133.8013,.01,"DT")="3030410"
^DD(133.8013,1,0)="STREET ADDRESS^F^^0;2^K:$L(X)>75!($L(X)<1) X"
^DD(133.8013,1,.1)="Street Address"
^DD(133.8013,1,3)="Enter the street address of the referring physician or institution."
^DD(133.8013,1,21,0)="^^2^2^2900710^"
^DD(133.8013,1,21,1,0)="This is the street address of the referring physician/medical center."
^DD(133.8013,1,21,2,0)=" "
^DD(133.8013,1,"DT")="2880627"
^DD(133.8013,2,0)="CITY^F^^0;3^K:$L(X)>45!($L(X)<1) X"
^DD(133.8013,2,.1)="City"
^DD(133.8013,2,3)="Enter the city of the referring physician/institution."
^DD(133.8013,2,21,0)="^^2^2^2900710^"
^DD(133.8013,2,21,1,0)="This is the city where the referring physician/medical center is located."
^DD(133.8013,2,21,2,0)=" "
^DD(133.8013,2,"DT")="2880627"
^DD(133.8013,3,0)="STATE^P5'^DIC(5,^0;4^Q"
^DD(133.8013,3,.1)="State"
^DD(133.8013,3,21,0)="^^3^3^2900710^"
^DD(133.8013,3,21,1,0)="This is the name of the State in which the referring physician/medical"
^DD(133.8013,3,21,2,0)="center is located."
^DD(133.8013,3,21,3,0)=" "
^DD(133.8013,3,"DT")="2880627"
^DD(133.8013,4,0)="ZIP CODE^F^^0;5^K:$L(X)>11!($L(X)<1) X"
^DD(133.8013,4,.1)="Zip Code"
^DD(133.8013,4,3)="ANSWER MUST BE 1-11 CHARACTERS IN LENGTH"
^DD(133.8013,4,21,0)="^^2^2^2900710^"
^DD(133.8013,4,21,1,0)="This is the referring physician/medical center's zip code."
^DD(133.8013,4,21,2,0)=" "
^DD(133.8013,4,"DT")="2890315"
^DD(133.8013,5,0)="PHONE NUMBER^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(133.8013,5,.1)="Telephone Number"
^DD(133.8013,5,3)="Enter the referring physician's telephone number."
^DD(133.8013,5,21,0)="^^2^2^2900710^"
^DD(133.8013,5,21,1,0)="This is the telephone number of the referring physician/medical center."
^DD(133.8013,5,21,2,0)=" "
^DD(133.8013,5,"DT")="2880627"
^DD(133.8013,6,0)="REF PHY 200 LINK^P200'^VA(200,^0;7^Q"
^DD(133.8013,6,.1)="Pointer To NEW PERSON File (#200)"
^DD(133.8013,6,3)="The VA record number of the Referring Physician."
^DD(133.8013,6,21,0)="^.001^3^3^3030904^^^^"
^DD(133.8013,6,21,1,0)="Field (not accessed by the user) is a pointer to the NEW PERSON file. It "
^DD(133.8013,6,21,2,0)="is  populated when a Referring Physician is selected from the NEW PERSON "
^DD(133.8013,6,21,3,0)="file with the record number from NEW PERSON file."
^DD(133.8013,6,23,0)="^.001^3^3^3030904^^^^"
^DD(133.8013,6,23,1,0)="Pointer Field (not accessed by the user) to the NEW PERSON file. It will "
^DD(133.8013,6,23,2,0)="be populated when and if the Referring Physician is selected from the NEW "
^DD(133.8013,6,23,3,0)="PERSON file (#200)."
^DD(133.8013,6,"DT")="3030904"
^DD(133.8013,"B","CITY",2)=""
^DD(133.8013,"B","City",2)="1"
^DD(133.8013,"B","PHONE NUMBER",5)=""
^DD(133.8013,"B","REF PHY 200 LINK",6)=""
^DD(133.8013,"B","REFERRING PHYSICIAN",.01)=""
^DD(133.8013,"B","STATE",3)=""
^DD(133.8013,"B","STREET ADDRESS",1)=""
^DD(133.8013,"B","State",3)="1"
^DD(133.8013,"B","Street Address",1)="1"
^DD(133.8013,"B","Telephone Number",5)="1"
^DD(133.8013,"B","ZIP CODE",4)=""
^DD(133.8013,"B","Zip Code",4)="1"
^DD(133.8013,"GL",0,1,.01)=""
^DD(133.8013,"GL",0,2,1)=""
^DD(133.8013,"GL",0,3,2)=""
^DD(133.8013,"GL",0,4,3)=""
^DD(133.8013,"GL",0,5,4)=""
^DD(133.8013,"GL",0,6,5)=""
^DD(133.8013,"GL",0,7,6)=""
^DD(133.8013,"IX",.01)=""
^DD(133.8014,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(133.8014,0,"NM","COMMENTS")=""
^DD(133.8014,0,"UP")="133.801"
^DD(133.8014,.01,0)="COMMENTS^W^^0;1^Q"
^DD(133.8014,.01,.1)="General Comments/Special Instructions"
^DD(133.8014,.01,3)="Enter any comments concerning this entry on the waiting list."
^DD(133.8014,.01,21,0)="^^3^3^2900710^"
^DD(133.8014,.01,21,1,0)="This field contains comments or instructions related to this entry"
^DD(133.8014,.01,21,2,0)="on the Waiting List."
^DD(133.8014,.01,21,3,0)=" "
^DD(133.8014,.01,"DT")="2880708"
^DD(133.8014,"B","COMMENTS",.01)=""
^DD(133.8014,"GL",0,1,.01)=""
^DD(134,0)="FIELD^^2^3"
^DD(134,0,"IX","B",134,.01)=""
^DD(134,0,"NM","OPERATING ROOM TYPE")=""
^DD(134,0,"PT",131.7,9)=""
^DD(134,0,"VR")="3"
^DD(134,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(134,.01,.1)="Name of Operating Room Type"
^DD(134,.01,1,0)="^.1"
^DD(134,.01,1,1,0)="134^B"
^DD(134,.01,1,1,1)="S ^SRO(134,""B"",$E(X,1,30),DA)="""""
^DD(134,.01,1,1,2)="K ^SRO(134,""B"",$E(X,1,30),DA)"
^DD(134,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(134,.01,21,0)="^^3^3^2900710^"
^DD(134,.01,21,1,0)="This is the name of the Operating Room Type.  Entries in this file"
^DD(134,.01,21,2,0)="should not be modified locally !!"
^DD(134,.01,21,3,0)=" "
^DD(134,.01,"DT")="2880628"
^DD(134,1,0)="CODE^FI^^0;2^K:$L(X)>3!($L(X)<2) X"
^DD(134,1,.1)="Code"
^DD(134,1,3)="ANSWER MUST BE 2-3 CHARACTERS IN LENGTH"
^DD(134,1,21,0)="^^4^4^2900710^"
^DD(134,1,21,1,0)="This is the code corresponding to the Operating Room Type.  This"
^DD(134,1,21,2,0)="information is standard nationally and should not be modified"
^DD(134,1,21,3,0)="locally."
^DD(134,1,21,4,0)=" "
^DD(134,1,"DT")="2880628"
^DD(134,2,0)="DESCRIPTION^134.01^^1;0"
^DD(134,2,.1)="Description of the Operating Room Type"
^DD(134,2,21,0)="^^2^2^2921215^"
^DD(134,2,21,1,0)="This is the description of the operating room type."
^DD(134,2,21,2,0)=" "
^DD(134,"B","CODE",1)=""
^DD(134,"B","Code",1)="1"
^DD(134,"B","DESCRIPTION",2)=""
^DD(134,"B","NAME",.01)=""
^DD(134,"B","Name of Operating Room Type",.01)="1"
^DD(134,"GL",0,1,.01)=""
^DD(134,"GL",0,2,1)=""
^DD(134,"GL",1,0,2)=""
^DD(134,"IX",.01)=""
^DD(134,"RQ",.01)=""
^DD(134,"SB",134.01,2)=""
^DD(134.01,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(134.01,0,"NM","DESCRIPTION")=""
^DD(134.01,0,"UP")="134"
^DD(134.01,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(134.01,.01,.1)="Description of the Operating Room Type"
^DD(134.01,.01,21,0)="^^2^2^2900710^"
^DD(134.01,.01,21,1,0)="This is a brief description of the Operating Room Type."
^DD(134.01,.01,21,2,0)=" "
^DD(134.01,"B","DESCRIPTION",.01)=""
^DD(134.01,"GL",0,1,.01)=""
^DD(135,0)="FIELD^^10^4"
^DD(135,0,"DT")="2920602"
^DD(135,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(135,0,"IX","B",135,.01)=""
^DD(135,0,"IX","C",135,1)=""
^DD(135,0,"NM","SURGERY CANCELLATION REASON")=""
^DD(135,0,"PT",130,18)=""
^DD(135,0,"VR")="3"
^DD(135,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(135,.01,.1)="Name of Cancellation Reason"
^DD(135,.01,1,0)="^.1"
^DD(135,.01,1,1,0)="135^B"
^DD(135,.01,1,1,1)="S ^SRO(135,""B"",$E(X,1,30),DA)="""""
^DD(135,.01,1,1,2)="K ^SRO(135,""B"",$E(X,1,30),DA)"
^DD(135,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(135,.01,21,0)="^^2^2^2900710^"
^DD(135,.01,21,1,0)="This is the name of the cancellation reason."
^DD(135,.01,21,2,0)=" "
^DD(135,.01,"DEL",1,0)="W !,""Deletion from the Surgery Cancellation Reason file is not allowed !! "",*7 I 1"
^DD(135,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(135,1,.1)="Code"
^DD(135,1,1,0)="^.1"
^DD(135,1,1,1,0)="135^C"
^DD(135,1,1,1,1)="S ^SRO(135,""C"",$E(X,1,30),DA)="""""
^DD(135,1,1,1,2)="K ^SRO(135,""C"",$E(X,1,30),DA)"
^DD(135,1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(135,1,21,0)="^^2^2^2900710^"
^DD(135,1,21,1,0)="This is the code corresponding to the cancellation reason."
^DD(135,1,21,2,0)=" "
^DD(135,1,"DT")="2880323"
^DD(135,2,0)="AVOIDABLE^S^Y:YES;N:NO;^0;3^Q"
^DD(135,2,.1)="Avoidable"
^DD(135,2,21,0)="^^3^3^2911118^^"
^DD(135,2,21,1,0)="This field will be used as the default for the CANCELLATION AVOIDABLE"
^DD(135,2,21,2,0)="field in the SURGERY file (130)."
^DD(135,2,21,3,0)=" "
^DD(135,2,"DT")="2911118"
^DD(135,10,0)="INACTIVE?^S^1:YES;^0;4^Q"
^DD(135,10,.1)="Inactive?"
^DD(135,10,3)="Enter 'YES' to inactivate this file entry."
^DD(135,10,21,0)="^^2^2^2920602^"
^DD(135,10,21,1,0)="Enter 'YES' to inactivate this entry to prevent its selection by"
^DD(135,10,21,2,0)="Surgery users."
^DD(135,10,"DT")="2920602"
^DD(135,"B","AVOIDABLE",2)=""
^DD(135,"B","Avoidable",2)="1"
^DD(135,"B","CODE",1)=""
^DD(135,"B","Code",1)="1"
^DD(135,"B","INACTIVE?",10)=""
^DD(135,"B","Inactive?",10)="1"
^DD(135,"B","NAME",.01)=""
^DD(135,"B","Name of Cancellation Reason",.01)="1"
^DD(135,"GL",0,1,.01)=""
^DD(135,"GL",0,2,1)=""
^DD(135,"GL",0,3,2)=""
^DD(135,"GL",0,4,10)=""
^DD(135,"IX",.01)=""
^DD(135,"IX",1)=""
^DD(135,"RQ",.01)=""
^DD(135,"RQ",1)=""
^DD(135.1,0)="FIELD^^10^3"
^DD(135.1,0,"DT")="2920603"
^DD(135.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(135.1,0,"IX","B",135.1,.01)=""
^DD(135.1,0,"IX","C",135.1,1)=""
^DD(135.1,0,"NM","SKIN PREP AGENTS")=""
^DD(135.1,0,"PT",130,.175)=""
^DD(135.1,0,"PT",130,8)=""
^DD(135.1,0,"VR")="3"
^DD(135.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(135.1,.01,.1)="Name of the Skin Preparation Agent"
^DD(135.1,.01,1,0)="^.1"
^DD(135.1,.01,1,1,0)="135.1^B"
^DD(135.1,.01,1,1,1)="S ^SRO(135.1,""B"",$E(X,1,30),DA)="""""
^DD(135.1,.01,1,1,2)="K ^SRO(135.1,""B"",$E(X,1,30),DA)"
^DD(135.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(135.1,.01,21,0)="^^3^3^2900710^"
^DD(135.1,.01,21,1,0)="This is the name of the agent used to prepare the skin prior to"
^DD(135.1,.01,21,2,0)="the operative procedure."
^DD(135.1,.01,21,3,0)=" "
^DD(135.1,.01,"DEL",1,0)="W !,""Deletion from the Skin Prep Agents file is not allowed !! "",*7 I 1"
^DD(135.1,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(135.1,1,.1)="Code"
^DD(135.1,1,1,0)="^.1"
^DD(135.1,1,1,1,0)="135.1^C"
^DD(135.1,1,1,1,1)="S ^SRO(135.1,""C"",$E(X,1,30),DA)="""""
^DD(135.1,1,1,1,2)="K ^SRO(135.1,""C"",$E(X,1,30),DA)"
^DD(135.1,1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(135.1,1,21,0)="^^2^2^2900710^"
^DD(135.1,1,21,1,0)="This is the code corresponding to the skin preparation agent name."
^DD(135.1,1,21,2,0)=" "
^DD(135.1,1,"DT")="2880809"
^DD(135.1,10,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(135.1,10,.1)="Inactive?"
^DD(135.1,10,3)="Enter 'YES' to inactivate this file entry."
^DD(135.1,10,21,0)="^^2^2^2920603^"
^DD(135.1,10,21,1,0)="Enter 'YES' to make this entry inactive and to prevent its selection and"
^DD(135.1,10,21,2,0)="use by users of the Surgery Package."
^DD(135.1,10,"DT")="2920603"
^DD(135.1,"B","CODE",1)=""
^DD(135.1,"B","Code",1)="1"
^DD(135.1,"B","INACTIVE?",10)=""
^DD(135.1,"B","Inactive?",10)="1"
^DD(135.1,"B","NAME",.01)=""
^DD(135.1,"GL",0,1,.01)=""
^DD(135.1,"GL",0,2,1)=""
^DD(135.1,"GL",0,3,10)=""
^DD(135.1,"IX",.01)=""
^DD(135.1,"IX",1)=""
^DD(135.1,"RQ",.01)=""
^DD(135.1,"RQ",1)=""
^DD(135.2,0)="FIELD^^10^3"
^DD(135.2,0,"DT")="2920603"
^DD(135.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(135.2,0,"IX","B",135.2,.01)=""
^DD(135.2,0,"IX","C",135.2,1)=""
^DD(135.2,0,"NM","SKIN INTEGRITY")=""
^DD(135.2,0,"PT",130,.07)=""
^DD(135.2,0,"PT",130,.76)=""
^DD(135.2,0,"VR")="3"
^DD(135.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(135.2,.01,.1)="Skin Integrity Name"
^DD(135.2,.01,1,0)="^.1"
^DD(135.2,.01,1,1,0)="135.2^B"
^DD(135.2,.01,1,1,1)="S ^SRO(135.2,""B"",$E(X,1,30),DA)="""""
^DD(135.2,.01,1,1,2)="K ^SRO(135.2,""B"",$E(X,1,30),DA)"
^DD(135.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(135.2,.01,21,0)="^^3^3^2900710^"
^DD(135.2,.01,21,1,0)="This field is the name used for the assessment of the patient's"
^DD(135.2,.01,21,2,0)="skin integrity."
^DD(135.2,.01,21,3,0)=" "
^DD(135.2,.01,"DEL",1,0)="W !,""Deletion from the Skin Integrity file is not allowed !! "",*7 I 1"
^DD(135.2,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(135.2,1,.1)="Code"
^DD(135.2,1,1,0)="^.1"
^DD(135.2,1,1,1,0)="135.2^C"
^DD(135.2,1,1,1,1)="S ^SRO(135.2,""C"",$E(X,1,30),DA)="""""
^DD(135.2,1,1,1,2)="K ^SRO(135.2,""C"",$E(X,1,30),DA)"
^DD(135.2,1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(135.2,1,21,0)="^^3^3^2900710^"
^DD(135.2,1,21,1,0)="This is the code corresponding to the assessment of the patient's"
^DD(135.2,1,21,2,0)="skin integrity."
^DD(135.2,1,21,3,0)=" "
^DD(135.2,1,"DT")="2870927"
^DD(135.2,10,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(135.2,10,.1)="Inactive?"
^DD(135.2,10,3)="Enter 'YES"" to inactivate this file entry."
^DD(135.2,10,21,0)="^^2^2^2920603^"
^DD(135.2,10,21,1,0)="Enter 'YES' to make this entry inactive and to prevent its selection and"
^DD(135.2,10,21,2,0)="use within the Surgery Package."
^DD(135.2,10,"DT")="2920603"
^DD(135.2,"B","CODE",1)=""
^DD(135.2,"B","Code",1)="1"
^DD(135.2,"B","INACTIVE?",10)=""
^DD(135.2,"B","Inactive?",10)="1"
^DD(135.2,"B","NAME",.01)=""
^DD(135.2,"B","Skin Integrity Name",.01)="1"
^DD(135.2,"GL",0,1,.01)=""
^DD(135.2,"GL",0,2,1)=""
^DD(135.2,"GL",0,3,10)=""
^DD(135.2,"IX",.01)=""
^DD(135.2,"IX",1)=""
^DD(135.2,"RQ",.01)=""
^DD(135.2,"RQ",1)=""
^DD(135.3,0)="FIELD^^10^3"
^DD(135.3,0,"DT")="2920602"
^DD(135.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(135.3,0,"IX","B",135.3,.01)=""
^DD(135.3,0,"IX","C",135.3,1)=""
^DD(135.3,0,"NM","PATIENT MOOD ")=""
^DD(135.3,0,"PT",130,.19)=""
^DD(135.3,0,"PT",130,.81)=""
^DD(135.3,0,"VR")="3"
^DD(135.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(135.3,.01,.1)="Assessment of the Patient's Mood"
^DD(135.3,.01,1,0)="^.1"
^DD(135.3,.01,1,1,0)="135.3^B"
^DD(135.3,.01,1,1,1)="S ^SRO(135.3,""B"",$E(X,1,30),DA)="""""
^DD(135.3,.01,1,1,2)="K ^SRO(135.3,""B"",$E(X,1,30),DA)"
^DD(135.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(135.3,.01,21,0)="^^2^2^2900710^"
^DD(135.3,.01,21,1,0)="This is the assessment of the patient's mood."
^DD(135.3,.01,21,2,0)=" "
^DD(135.3,.01,"DEL",1,0)="W !,""Deletion from the Patient Mood file is not allowed !! "",*7 I 1"
^DD(135.3,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(135.3,1,.1)="Code"
^DD(135.3,1,1,0)="^.1"
^DD(135.3,1,1,1,0)="135.3^C"
^DD(135.3,1,1,1,1)="S ^SRO(135.3,""C"",$E(X,1,30),DA)="""""
^DD(135.3,1,1,1,2)="K ^SRO(135.3,""C"",$E(X,1,30),DA)"
^DD(135.3,1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(135.3,1,21,0)="^^2^2^2900710^"
^DD(135.3,1,21,1,0)="This is the code corresponding to the assessment of the patient's mood."
^DD(135.3,1,21,2,0)=" "
^DD(135.3,1,"DT")="2870927"
^DD(135.3,10,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(135.3,10,.1)="Inactive?"
^DD(135.3,10,3)="Enter 'YES' to inactivate this file entry."
^DD(135.3,10,21,0)="^^2^2^2920602^"
^DD(135.3,10,21,1,0)="Enter 'YES' to inactivate this file entry and to prevent its selection"
^DD(135.3,10,21,2,0)="by Surgery users."
^DD(135.3,10,"DT")="2920602"
^DD(135.3,"B","CODE",1)=""
^DD(135.3,"B","Code",1)="1"
^DD(135.3,"B","INACTIVE?",10)=""
^DD(135.3,"B","Inactive?",10)="1"
^DD(135.3,"B","NAME",.01)=""
^DD(135.3,"GL",0,1,.01)=""
^DD(135.3,"GL",0,2,1)=""
^DD(135.3,"GL",0,3,10)=""
^DD(135.3,"IX",.01)=""
^DD(135.3,"IX",1)=""
^DD(135.3,"RQ",.01)=""
^DD(135.3,"RQ",1)=""
^DD(135.4,0)="FIELD^^10^3"
^DD(135.4,0,"DT")="2920603"
^DD(135.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(135.4,0,"IX","B",135.4,.01)=""
^DD(135.4,0,"IX","C",135.4,1)=""
^DD(135.4,0,"NM","PATIENT CONSCIOUSNESS")=""
^DD(135.4,0,"PT",130,.196)=""
^DD(135.4,0,"PT",130,.821)=""
^DD(135.4,0,"VR")="3"
^DD(135.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(135.4,.01,.1)="Assessment of the Patient's Level of Consciousness"
^DD(135.4,.01,1,0)="^.1"
^DD(135.4,.01,1,1,0)="135.4^B"
^DD(135.4,.01,1,1,1)="S ^SRO(135.4,""B"",$E(X,1,30),DA)="""""
^DD(135.4,.01,1,1,2)="K ^SRO(135.4,""B"",$E(X,1,30),DA)"
^DD(135.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(135.4,.01,21,0)="^^2^2^2900710^^"
^DD(135.4,.01,21,1,0)="This is the assessment of the patient's consciousness."
^DD(135.4,.01,21,2,0)=" "
^DD(135.4,.01,"DEL",1,0)="W !,""Deletion from the Patient Consciousness file is not allowed !! "",*7 I 1"
^DD(135.4,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(135.4,1,.1)="Code"
^DD(135.4,1,1,0)="^.1"
^DD(135.4,1,1,1,0)="135.4^C"
^DD(135.4,1,1,1,1)="S ^SRO(135.4,""C"",$E(X,1,30),DA)="""""
^DD(135.4,1,1,1,2)="K ^SRO(135.4,""C"",$E(X,1,30),DA)"
^DD(135.4,1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(135.4,1,21,0)="^^2^2^2900710^^"
^DD(135.4,1,21,1,0)="This is the code corresponding to the patient's level of consciousness."
^DD(135.4,1,21,2,0)=" "
^DD(135.4,1,"DT")="2870927"
^DD(135.4,10,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(135.4,10,.1)="Inactive?"
^DD(135.4,10,3)="Enter 'YES' to inactivate this file entry."
^DD(135.4,10,21,0)="^^2^2^2920603^"
^DD(135.4,10,21,1,0)="Enter 'YES' to inactivate this entry to prevent it selection by Surgery"
^DD(135.4,10,21,2,0)="users."
^DD(135.4,10,"DT")="2920603"
^DD(135.4,"B","CODE",1)=""
^DD(135.4,"B","Code",1)="1"
^DD(135.4,"B","INACTIVE?",10)=""
^DD(135.4,"B","Inactive?",10)="1"
^DD(135.4,"B","NAME",.01)=""
^DD(135.4,"GL",0,1,.01)=""
^DD(135.4,"GL",0,2,1)=""
^DD(135.4,"GL",0,3,10)=""
^DD(135.4,"IX",.01)=""
^DD(135.4,"IX",1)=""
^DD(135.4,"RQ",.01)=""
^DD(135.4,"RQ",1)=""
^DD(136,0)="FIELD^^11^17"
^DD(136,0,"DDA")="N"
^DD(136,0,"DT")="3050426"
^DD(136,0,"IX","B",136,.01)=""
^DD(136,0,"NM","SURGERY PROCEDURE/DIAGNOSIS CODES")=""
^DD(136,0,"VR")="3.0"
^DD(136,0,"VRPK")="SR"
^DD(136,.01,0)="SURGERY CASE^RP130'X^SRF(^0;1^S DINUM=X"
^DD(136,.01,.1)="Surgery Case"
^DD(136,.01,1,0)="^.1"
^DD(136,.01,1,1,0)="136^B"
^DD(136,.01,1,1,1)="S ^SRO(136,""B"",$E(X,1,30),DA)="""""
^DD(136,.01,1,1,2)="K ^SRO(136,""B"",$E(X,1,30),DA)"
^DD(136,.01,3)="Enter the matching case in the SURGERY file (#130). "
^DD(136,.01,21,0)="^^1^1^3041214^"
^DD(136,.01,21,1,0)="This is the case in the SURGERY file associated with this file entry."
^DD(136,.01,"DT")="3041214"
^DD(136,.02,0)="PRINCIPAL PROCEDURE CODE^*P81'OX^ICPT(^0;2^D IN^SROCPT S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) PHYPH^SROMOD0"
^DD(136,.02,.1)="Principal Procedure Code (CPT)"
^DD(136,.02,1,0)="^.1^^0"
^DD(136,.02,2)="S Y(0)=Y D DISPLAY^SROCPT0"
^DD(136,.02,2.1)="D DISPLAY^SROCPT0"
^DD(136,.02,3)="Enter the CPT code for the principal procedure."
^DD(136,.02,12)="Screen out Inactive Codes."
^DD(136,.02,12.1)="S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(136,.02,21,0)="^^2^2^3050801^"
^DD(136,.02,21,1,0)="This is the Current Procedural Terminology (CPT) code corresponding"
^DD(136,.02,21,2,0)="with the principal procedure. "
^DD(136,.02,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion of the Principal Procedure Code is not allowed! "",,""!!,?2"")"
^DD(136,.02,"DT")="3050731"
^DD(136,.03,0)="PRIN POSTOP DIAGNOSIS CODE^*P80'X^ICD9(^0;3^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(136,.03,.1)="Principal Postop Diagnosis Code (ICD9)"
^DD(136,.03,1,0)="^.1^^0"
^DD(136,.03,3)="Enter the ICD Diagnosis code for the principal postoperative diagnosis."
^DD(136,.03,12)="Screen prevents selection of inactive diagnosis."
^DD(136,.03,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA):DA,1:""""""""),+Y)"""
^DD(136,.03,21,0)="^^1^1^3050504^"
^DD(136,.03,21,1,0)="This is the principal postoperative ICD9 diagnosis code."
^DD(136,.03,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion of the Principal Postop Diagnosis Code is not allowed! "",,""!!,?2"")"
^DD(136,.03,"DT")="3050726"
^DD(136,.04,0)="SERVICE CONNECTED (PRIN)^S^1:YES;0:NO;^0;4^Q"
^DD(136,.04,.1)="Treatment related to Service Connected condition (Y/N)"
^DD(136,.04,3)="If the principal diagnosis is a service connected problem, enter YES."
^DD(136,.04,21,0)="^^3^3^3050111^"
^DD(136,.04,21,1,0)="This field indicates if the principal diagnosis is a service connected "
^DD(136,.04,21,2,0)="problem. This information may be passed to the VISIT file (#9000010) "
^DD(136,.04,21,3,0)="for use by PCE."
^DD(136,.04,"DT")="3050111"
^DD(136,.05,0)="AGENT ORANGE EXPOSURE (PRIN)^S^1:YES;0:NO;^0;5^Q"
^DD(136,.05,.1)="Treatment related to Agent Orange Exposure (Y/N)"
^DD(136,.05,3)="If the principal diagnosis is an agent orange exposure problem, enter YES."
^DD(136,.05,21,0)="^.001^3^3^3050111^^"
^DD(136,.05,21,1,0)="This field indicates if the principal diagnosis is an agent orange "
^DD(136,.05,21,2,0)="exposure problem. This information may be passed to the VISIT file"
^DD(136,.05,21,3,0)="(#9000010) for use by PCE."
^DD(136,.05,"DT")="3050111"
^DD(136,.06,0)="IONIZING RAD EXPOSURE (PRIN)^S^1:YES;0:NO;^0;6^Q"
^DD(136,.06,.1)="Treatment related to Ionizing Radiation Exposure (Y/N)"
^DD(136,.06,3)="If the principal diagnosis is an ionizing radiation exposure problem, enter YES."
^DD(136,.06,21,0)="^.001^3^3^3050112^^"
^DD(136,.06,21,1,0)="This field indicates if the principal diagnosis is an ionizing "
^DD(136,.06,21,2,0)="radiation exposure problem. This information may be passed to the VISIT"
^DD(136,.06,21,3,0)="file (#9000010) for use by PCE."
^DD(136,.06,"DT")="3050112"
^DD(136,.07,0)="SOUTHWEST ASIA CONDITIONS (PR)^S^1:YES;0:NO;^0;7^Q"
^DD(136,.07,.1)="Treatment related to service in SW Asia (Y/N)"
^DD(136,.07,3)="If the principal diagnosis is a problem related to service in SW Asia, enter YES."
^DD(136,.07,21,0)="^.001^3^3^3060728^^"
^DD(136,.07,21,1,0)="This field indicates if the principal diagnosis is related to service in "
^DD(136,.07,21,2,0)="SW Asia. This information may be passed to the VISIT file (#9000010) for "
^DD(136,.07,21,3,0)="use by PCE."
^DD(136,.07,"DT")="3060728"
^DD(136,.08,0)="MILITARY SEXUAL TRAUMA (PRIN)^S^1:YES;0:NO;^0;8^Q"
^DD(136,.08,.1)="Treatment related to Military Sexual Trauma (Y/N)"
^DD(136,.08,3)="If the principal diagnosis is related to military sexual trauma, enter YES."
^DD(136,.08,21,0)="^.001^3^3^3050112^^^"
^DD(136,.08,21,1,0)="This field indicates if the principal diagnosis is a military sexual "
^DD(136,.08,21,2,0)="trauma problem. This information may be passed to the VISIT file"
^DD(136,.08,21,3,0)="(#9000010) for use by PCE."
^DD(136,.08,"DT")="3050112"
^DD(136,.09,0)="HEAD AND/OR NECK CANCER (PRIN)^S^1:YES;0:NO;^0;9^Q"
^DD(136,.09,.1)="Treatment related to Head and/or Neck Cancer (Y/N)"
^DD(136,.09,3)="If the principal diagnosis is a problem related to head and/or neck cancer, enter YES."
^DD(136,.09,21,0)="^.001^3^3^3050112^^^"
^DD(136,.09,21,1,0)="This field indicates if the principal diagnosis is a head and/or neck "
^DD(136,.09,21,2,0)="cancer problem. This information may be passed to the VISIT file"
^DD(136,.09,21,3,0)="(#9000010) for use by PCE."
^DD(136,.09,"DT")="3050112"
^DD(136,.1,0)="COMBAT VET (PRIN)^S^1:YES;0:NO;^0;10^Q"
^DD(136,.1,.1)="Treatment related to Combat (Y/N)"
^DD(136,.1,3)="If the principal diagnosis is a problem related to combat, enter YES."
^DD(136,.1,21,0)="^.001^3^3^3050112^^"
^DD(136,.1,21,1,0)="This field indicates if the principal diagnosis is a combat related"
^DD(136,.1,21,2,0)="problem. This information may be passed to the VISIT file (#9000010)"
^DD(136,.1,21,3,0)="for use by PCE."
^DD(136,.1,"DT")="3050112"
^DD(136,.11,0)="PROJ 112/SHAD (PRIN)^S^1:YES;0:NO;^0;11^Q"
^DD(136,.11,.1)="Treatment related to PROJ 112/SHAD (Y/N)"
^DD(136,.11,3)="If the principal diagnosis is a problem related to PROJ 112/SHAD, enter YES."
^DD(136,.11,21,0)="^.001^3^3^3051117^^"
^DD(136,.11,21,1,0)="This field indicates if the principal diagnosis is a PROJ 112/SHAD "
^DD(136,.11,21,2,0)="related problem. This information may be passed to the VISIT file "
^DD(136,.11,21,3,0)="(#9000010) for use by PCE."
^DD(136,.11,"DT")="3051117"
^DD(136,1,0)="PRIN PROCEDURE CPT MODIFIERS^136.01P^^1;0"
^DD(136,1,"DT")="3041215"
^DD(136,2,0)="PRIN ASSOCIATED DIAGNOSES^136.02P^^2;0"
^DD(136,2,"DT")="3041215"
^DD(136,3,0)="OTHER PROCEDURE CODES^136.03PA^^3;0"
^DD(136,4,0)="OTHER POSTOP DIAGNOSIS CODES^136.04P^^4;0"
^DD(136,4,"DT")="3050112"
^DD(136,10,0)="CODING COMPLETE^S^1:YES;0:NO;^10;1^Q"
^DD(136,10,.1)="Coding is Complete and Ready to Send to PCE?"
^DD(136,10,3)="Enter YES if the record is complete and ready to send to PCE."
^DD(136,10,9)="^"
^DD(136,10,21,0)="^.001^2^2^3050309^^"
^DD(136,10,21,1,0)="This field indicates if the coding record is complete for this case and "
^DD(136,10,21,2,0)="is ready to send to PCE."
^DD(136,10,"DT")="3050309"
^DD(136,11,0)="CODING COMPLETED BY^136.011PA^^11;0"
^DD(136,11,9)="^"
^DD(136,"B","AGENT ORANGE EXPOSURE (PRIN)",.05)=""
^DD(136,"B","CODING COMPLETE",10)=""
^DD(136,"B","CODING COMPLETED BY",11)=""
^DD(136,"B","COMBAT VET (PRIN)",.1)=""
^DD(136,"B","HEAD AND/OR NECK CANCER (PRIN)",.09)=""
^DD(136,"B","IONIZING RAD EXPOSURE (PRIN)",.06)=""
^DD(136,"B","MILITARY SEXUAL TRAUMA (PRIN)",.08)=""
^DD(136,"B","OTHER POSTOP DIAGNOSIS CODES",4)=""
^DD(136,"B","OTHER PROCEDURE CODES",3)=""
^DD(136,"B","PRIN ASSOCIATED DIAGNOSES",2)=""
^DD(136,"B","PRIN POSTOP DIAGNOSIS CODE",.03)=""
^DD(136,"B","PRIN PROCEDURE CPT MODIFIERS",1)=""
^DD(136,"B","PRINCIPAL PROCEDURE CODE",.02)=""
^DD(136,"B","PROJ 112/SHAD (PRIN)",.11)=""
^DD(136,"B","Principal Procedure Code (CPT)",.02)="1"
^DD(136,"B","SERVICE CONNECTED (PRIN)",.04)=""
^DD(136,"B","SOUTHWEST ASIA CONDITIONS (PR)",.07)=""
^DD(136,"B","SURGERY CASE",.01)=""
^DD(136,"B","Surgery Case",.01)="1"
^DD(136,"GL",0,1,.01)=""
^DD(136,"GL",0,2,.02)=""
^DD(136,"GL",0,3,.03)=""
^DD(136,"GL",0,4,.04)=""
^DD(136,"GL",0,5,.05)=""
^DD(136,"GL",0,6,.06)=""
^DD(136,"GL",0,7,.07)=""
^DD(136,"GL",0,8,.08)=""
^DD(136,"GL",0,9,.09)=""
^DD(136,"GL",0,10,.1)=""
^DD(136,"GL",0,11,.11)=""
^DD(136,"GL",1,0,1)=""
^DD(136,"GL",2,0,2)=""
^DD(136,"GL",3,0,3)=""
^DD(136,"GL",4,0,4)=""
^DD(136,"GL",10,1,10)=""
^DD(136,"GL",11,0,11)=""
^DD(136,"IX",.01)=""
^DD(136,"RQ",.01)=""
^DD(136,"SB",136.01,1)=""
^DD(136,"SB",136.011,11)=""
^DD(136,"SB",136.02,2)=""
^DD(136,"SB",136.03,3)=""
^DD(136,"SB",136.04,4)=""
^DD(136.01,0)="PRIN PROCEDURE CPT MODIFIERS SUB-FIELD^^.01^1"
^DD(136.01,0,"DT")="3041215"
^DD(136.01,0,"NM","PRIN PROCEDURE CPT MODIFIERS")=""
^DD(136.01,0,"UP")="136"
^DD(136.01,.01,0)="PRIN PROCEDURE CPT MODIFIER^M*P81.3'O^DIC(81.3,^0;1^S DIC(""S"")=""I $$SCR27^SROMOD0"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(136.01,.01,.1)="Principal Procedure CPT Modifier"
^DD(136.01,.01,1,0)="^.1^^0"
^DD(136.01,.01,2)="S Y(0)=Y D DISPLAY^SROMOD0"
^DD(136.01,.01,2.1)="D DISPLAY^SROMOD0"
^DD(136.01,.01,3)="Enter a CPT modifier for this procedure."
^DD(136.01,.01,12)="Screen prevents selection of modifier inappropriate for CPT code."
^DD(136.01,.01,12.1)="S DIC(""S"")=""I $$SCR27^SROMOD0"""
^DD(136.01,.01,21,0)="^^3^3^3041215^"
^DD(136.01,.01,21,1,0)="This is a procedural coding modifier used to indicate that the "
^DD(136.01,.01,21,2,0)="principal procedure performed has been altered by some specific"
^DD(136.01,.01,21,3,0)="circumstance but not changed in its definition or code."
^DD(136.01,.01,"DT")="3041216"
^DD(136.01,"B","PRIN PROCEDURE CPT MODIFIER",.01)=""
^DD(136.01,"GL",0,1,.01)=""
^DD(136.011,0)="CODING COMPLETED BY SUB-FIELD^^1^2"
^DD(136.011,0,"DT")="3050426"
^DD(136.011,0,"NM","CODING COMPLETED BY")=""
^DD(136.011,0,"UP")="136"
^DD(136.011,.01,0)="CODING COMPLETED BY^P200'I^VA(200,^0;1^Q"
^DD(136.011,.01,.1)="Person Who Completed the Coding of this Case"
^DD(136.011,.01,1,0)="^.1^^0"
^DD(136.011,.01,3)="Enter the name of person who completed the coding of this case."
^DD(136.011,.01,21,0)="^.001^1^1^3050426^^"
^DD(136.011,.01,21,1,0)="This is the name of the person who completed the coding of this case."
^DD(136.011,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Deletion not allowed!"",,""!!,?2"")"
^DD(136.011,.01,"DT")="3050426"
^DD(136.011,1,0)="DATE CODING COMPLETED^DI^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(136.011,1,.1)="Date/Time Coding Was Completed"
^DD(136.011,1,3)="Enter the date and time the coding of this case was completed."
^DD(136.011,1,21,0)="^.001^2^2^3050426^^"
^DD(136.011,1,21,1,0)="This is the date and time the coding of this case was completed and was "
^DD(136.011,1,21,2,0)="sent to PCE."
^DD(136.011,1,"DT")="3050426"
^DD(136.011,"B","CODING COMPLETED BY",.01)=""
^DD(136.011,"B","DATE CODING COMPLETED",1)=""
^DD(136.011,"B","Date/Time Coding Was Completed",1)="1"
^DD(136.011,"GL",0,1,.01)=""
^DD(136.011,"GL",0,2,1)=""
^DD(136.02,0)="PRIN ASSOCIATED DIAGNOSES SUB-FIELD^^.01^1"
^DD(136.02,0,"DT")="3041215"
^DD(136.02,0,"NM","PRIN ASSOCIATED DIAGNOSES")=""
^DD(136.02,0,"UP")="136"
^DD(136.02,.01,0)="PRIN ASSOCIATED DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(136.02,.01,.1)="Principal Associated Diagnosis Code"
^DD(136.02,.01,1,0)="^.1^^0"
^DD(136.02,.01,3)="Enter a diagnosis code associated with the principal procedure."
^DD(136.02,.01,21,0)="^.001^1^1^3041215^^"
^DD(136.02,.01,21,1,0)="This is a diagnosis associated with the principal procedure. "
^DD(136.02,.01,"DT")="3050112"
^DD(136.02,"B","PRIN ASSOCIATED DIAGNOSIS",.01)=""
^DD(136.02,"GL",0,1,.01)=""
^DD(136.03,0)="OTHER PROCEDURE CODES SUB-FIELD^^2^3"
^DD(136.03,0,"DT")="3050114"
^DD(136.03,0,"NM","OTHER PROCEDURE CODES")=""
^DD(136.03,0,"UP")="136"
^DD(136.03,.01,0)="OTHER PROCEDURE CODE^*P81'OX^ICPT(^0;1^D IN^SROCPT0 S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KOMOD^SROMOD0"
^DD(136.03,.01,.1)="Other Procedure CPT Code"
^DD(136.03,.01,1,0)="^.1^^0"
^DD(136.03,.01,2)="S Y(0)=Y D OTHDISP^SROCPT0"
^DD(136.03,.01,2.1)="D OTHDISP^SROCPT0"
^DD(136.03,.01,3)="Enter the CPT code for this procedure."
^DD(136.03,.01,12)="Screen out Inactive Codes"
^DD(136.03,.01,12.1)="S DIC(""S"")=""I $$ACTIV^SROCPT($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^DD(136.03,.01,21,0)="^^2^2^3050801^"
^DD(136.03,.01,21,1,0)="This is the Current Procedural Terminology (CPT) code corresponding to"
^DD(136.03,.01,21,2,0)="this operative procedure."
^DD(136.03,.01,"DT")="3050801"
^DD(136.03,1,0)="OTHER PROCEDURE CPT MODIFIERS^136.31P^^1;0"
^DD(136.03,2,0)="OTHER ASSOCIATED DIAGNOSES^136.32P^^2;0"
^DD(136.03,"B","OTHER ASSOCIATED DIAGNOSES",2)=""
^DD(136.03,"B","OTHER PROCEDURE CODE",.01)=""
^DD(136.03,"B","OTHER PROCEDURE CPT MODIFIERS",1)=""
^DD(136.03,"B","Other Procedure CPT Code",.01)="1"
^DD(136.03,"GL",0,1,.01)=""
^DD(136.03,"GL",1,0,1)=""
^DD(136.03,"GL",2,0,2)=""
^DD(136.03,"SB",136.31,1)=""
^DD(136.03,"SB",136.32,2)=""
^DD(136.04,0)="OTHER POSTOP DIAGNOSIS CODES SUB-FIELD^^.09^9"
^DD(136.04,0,"DT")="3050112"
^DD(136.04,0,"NM","OTHER POSTOP DIAGNOSIS CODES")=""
^DD(136.04,0,"UP")="136"
^DD(136.04,.01,0)="OTHER POSTOP DIAGNOSIS CODE^M*P80'^ICD9(^0;1^S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(136.04,.01,.1)="Other Postop Diagnosis Code"
^DD(136.04,.01,1,0)="^.1"
^DD(136.04,.01,1,1,0)="^^TRIGGER^136.04^.02"
^DD(136.04,.01,1,1,1)="X ^DD(136.04,.01,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,4) X ^DD(136.04,.01,1,1,1.4)"
^DD(136.04,.01,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.02,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,1,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=136.04,DIG=.02 D ^DICR"
^DD(136.04,.01,1,1,2)="Q"
^DD(136.04,.01,1,1,"CREATE CONDITION")="SERVICE CONNECTED="""""
^DD(136.04,.01,1,1,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,4)"
^DD(136.04,.01,1,1,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,1,"DT")="3050112"
^DD(136.04,.01,1,1,"FIELD")="SERVICE CONNECTED"
^DD(136.04,.01,1,2,0)="^^TRIGGER^136.04^.03"
^DD(136.04,.01,1,2,1)="X ^DD(136.04,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,5) X ^DD(136.04,.01,1,2,1.4)"
^DD(136.04,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.03,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,3)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,2,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=136.04,DIG=.03 D ^DICR"
^DD(136.04,.01,1,2,2)="Q"
^DD(136.04,.01,1,2,"CREATE CONDITION")="AGENT ORANGE EXPOSURE="""""
^DD(136.04,.01,1,2,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,5)"
^DD(136.04,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,2,"DT")="3050112"
^DD(136.04,.01,1,2,"FIELD")="AGENT ORANGE EXPOSURE"
^DD(136.04,.01,1,3,0)="^^TRIGGER^136.04^.04"
^DD(136.04,.01,1,3,1)="X ^DD(136.04,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,6) X ^DD(136.04,.01,1,3,1.4)"
^DD(136.04,.01,1,3,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.04,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,3,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=136.04,DIG=.04 D ^DICR"
^DD(136.04,.01,1,3,2)="Q"
^DD(136.04,.01,1,3,"CREATE CONDITION")="IONIZING RADIATION EXPOSURE="""""
^DD(136.04,.01,1,3,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,6)"
^DD(136.04,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,3,"DT")="3050112"
^DD(136.04,.01,1,3,"FIELD")="IONIZING RADIATION EXPOSURE"
^DD(136.04,.01,1,4,0)="^^TRIGGER^136.04^.05"
^DD(136.04,.01,1,4,1)="X ^DD(136.04,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,8) X ^DD(136.04,.01,1,4,1.4)"
^DD(136.04,.01,1,4,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.05,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,4,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=136.04,DIG=.05 D ^DICR"
^DD(136.04,.01,1,4,2)="Q"
^DD(136.04,.01,1,4,"CREATE CONDITION")="MILITARY SEXUAL TRAUMA="""""
^DD(136.04,.01,1,4,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,8)"
^DD(136.04,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,4,"DT")="3050112"
^DD(136.04,.01,1,4,"FIELD")="MILITARY SEXUAL TRAUMA"
^DD(136.04,.01,1,5,0)="^^TRIGGER^136.04^.06"
^DD(136.04,.01,1,5,1)="X ^DD(136.04,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,9) X ^DD(136.04,.01,1,5,1.4)"
^DD(136.04,.01,1,5,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.06,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,5,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=136.04,DIG=.06 D ^DICR"
^DD(136.04,.01,1,5,2)="Q"
^DD(136.04,.01,1,5,"CREATE CONDITION")="HEAD AND/OR NECK CANCER="""""
^DD(136.04,.01,1,5,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,9)"
^DD(136.04,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,5,"DT")="3050112"
^DD(136.04,.01,1,5,"FIELD")="HEAD AND/OR NECK CANCER"
^DD(136.04,.01,1,6,0)="^^TRIGGER^136.04^.07"
^DD(136.04,.01,1,6,1)="X ^DD(136.04,.01,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,7) X ^DD(136.04,.01,1,6,1.4)"
^DD(136.04,.01,1,6,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.07,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,6,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=136.04,DIG=.07 D ^DICR"
^DD(136.04,.01,1,6,2)="Q"
^DD(136.04,.01,1,6,"CREATE CONDITION")="SOUTHWEST ASIA CONDITIONS="""""
^DD(136.04,.01,1,6,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,7)"
^DD(136.04,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,6,"DT")="3060728"
^DD(136.04,.01,1,6,"FIELD")="SOUTH"
^DD(136.04,.01,1,7,0)="^^TRIGGER^136.04^.08"
^DD(136.04,.01,1,7,1)="X ^DD(136.04,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,10) X ^DD(136.04,.01,1,7,1.4)"
^DD(136.04,.01,1,7,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.08,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,7,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=136.04,DIG=.08 D ^DICR"
^DD(136.04,.01,1,7,2)="Q"
^DD(136.04,.01,1,7,"CREATE CONDITION")="COMBAT VET="""""
^DD(136.04,.01,1,7,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,10)"
^DD(136.04,.01,1,7,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,7,"DT")="3050112"
^DD(136.04,.01,1,7,"FIELD")="COMBAT VET"
^DD(136.04,.01,1,8,0)="^^TRIGGER^136.04^.09"
^DD(136.04,.01,1,8,1)="X ^DD(136.04,.01,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$P(^SRO(136,DA(1),0),U,11) X ^DD(136.04,.01,1,8,1.4)"
^DD(136.04,.01,1,8,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(136.04,.09,0)),U,3),Y(1)=$S($D(^SRO(136,D0,4,D1,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_"":"",2),$C(59))="""""
^DD(136.04,.01,1,8,1.4)="S DIH=$G(^SRO(136,DIV(0),4,DIV(1),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=136.04,DIG=.09 D ^DICR"
^DD(136.04,.01,1,8,2)="Q"
^DD(136.04,.01,1,8,"CREATE CONDITION")="PROJ 112/SHAD="""""
^DD(136.04,.01,1,8,"CREATE VALUE")="S X=$P(^SRO(136,DA(1),0),U,11)"
^DD(136.04,.01,1,8,"DELETE VALUE")="NO EFFECT"
^DD(136.04,.01,1,8,"DT")="3051117"
^DD(136.04,.01,1,8,"FIELD")="PROJ"
^DD(136.04,.01,3)="Enter the ICD Diagnosis Code that corresponds to this diagnosis."
^DD(136.04,.01,12)="Screen prevents selection of inactive diagnosis."
^DD(136.04,.01,12.1)="S DIC(""S"")=""I $$ACTIV^SROICD($S($D(SRTN):SRTN,$D(DA(1)):DA(1),1:""""""""),+Y)"""
^DD(136.04,.01,21,0)="^.001^2^2^3060728^^^"
^DD(136.04,.01,21,1,0)="This is the ICD-9-CM code corresponding with this postoperative"
^DD(136.04,.01,21,2,0)="diagnosis."
^DD(136.04,.01,"DT")="3060728"
^DD(136.04,.02,0)="SERVICE CONNECTED^S^1:YES;0:NO;^0;2^Q"
^DD(136.04,.02,.1)="Treatment related to Service Connected condition (Y/N)"
^DD(136.04,.02,3)="If this diagnosis is a service connected problem, enter YES."
^DD(136.04,.02,5,1,0)="136.04^.01^1"
^DD(136.04,.02,21,0)="^.001^3^3^3050112^^"
^DD(136.04,.02,21,1,0)="This field indicates if this diagnosis is a service connected problem."
^DD(136.04,.02,21,2,0)="This information may be passed to the VISIT file (#9000010) for use by"
^DD(136.04,.02,21,3,0)="PCE."
^DD(136.04,.02,"DT")="3050112"
^DD(136.04,.03,0)="AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^0;3^Q"
^DD(136.04,.03,.1)="Treatment related to Agent Orange Exposure (Y/N)"
^DD(136.04,.03,3)="If this diagnosis is an agent orange exposure problem, enter YES."
^DD(136.04,.03,5,1,0)="136.04^.01^2"
^DD(136.04,.03,21,0)="^.001^3^3^3050112^^"
^DD(136.04,.03,21,1,0)="This field indicates if this diagnosis is an agent orange exposure "
^DD(136.04,.03,21,2,0)="problem. This information may be passed to the VISIT file (#9000010)"
^DD(136.04,.03,21,3,0)="for use by PCE."
^DD(136.04,.03,"DT")="3050112"
^DD(136.04,.04,0)="IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^0;4^Q"
^DD(136.04,.04,.1)="Treatment related to Ionizing Radiation Exposure (Y/N)"
^DD(136.04,.04,3)="If this diagnosis is an ionizing radiation exposure problem, enter YES."
^DD(136.04,.04,5,1,0)="136.04^.01^3"
^DD(136.04,.04,21,0)="^.001^3^3^3050112^^"
^DD(136.04,.04,21,1,0)="This field indicates if this diagnosis is an ionizing radiation "
^DD(136.04,.04,21,2,0)="exposure problem. This information may be passed to the VISIT file"
^DD(136.04,.04,21,3,0)="(#9000010) for use by PCE."
^DD(136.04,.04,"DT")="3050112"
^DD(136.04,.05,0)="MILITARY SEXUAL TRAUMA^S^1:YES;0:NO;^0;5^Q"
^DD(136.04,.05,.1)="Treatment related to Military Sexual Trauma (Y/N)"
^DD(136.04,.05,3)="If this diagnosis is related to military sexual trauma, enter YES."
^DD(136.04,.05,5,1,0)="136.04^.01^4"
^DD(136.04,.05,21,0)="^.001^3^3^3050112^^"
^DD(136.04,.05,21,1,0)="This field indicates if this diagnosis is a military sexual trauma"
^DD(136.04,.05,21,2,0)="problem. This information may be passed to the VISIT file (#9000010)"
^DD(136.04,.05,21,3,0)="for use by PCE."
^DD(136.04,.05,"DT")="3050112"
^DD(136.04,.06,0)="HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^0;6^Q"
^DD(136.04,.06,.1)="Treatment related to Head and/or Neck Cancer (Y/N)"
^DD(136.04,.06,3)="If this diagnosis is related to head and/or neck cancer, enter YES."
^DD(136.04,.06,5,1,0)="136.04^.01^5"
^DD(136.04,.06,21,0)="^.001^3^3^3050112^^"
^DD(136.04,.06,21,1,0)="This field indicates if this diagnosis is a head and/or neck cancer"
^DD(136.04,.06,21,2,0)="problem. This information may be passed to the VISIT file (#9000010)"
^DD(136.04,.06,21,3,0)="for use by PCE."
^DD(136.04,.06,"DT")="3050112"
^DD(136.04,.07,0)="SOUTHWEST ASIA CONDITIONS^S^1:YES;0:NO;^0;7^Q"
^DD(136.04,.07,.1)="Treatment related to service in SW Asia (Y/N)"
^DD(136.04,.07,3)="If this diagnosis is a problem related to service in SW Asia, enter YES."
^DD(136.04,.07,5,1,0)="136.04^.01^6"
^DD(136.04,.07,21,0)="^^3^3^3060726^"
^DD(136.04,.07,21,1,0)="This field indicates if this diagnosis is related to service in SW Asia. "
^DD(136.04,.07,21,2,0)="This information may be passed to the VISIT file (#9000010) for use by "
^DD(136.04,.07,21,3,0)="PCE."
^DD(136.04,.07,"DT")="3060726"
^DD(136.04,.08,0)="COMBAT VET^S^1:YES;0:NO;^0;8^Q"
^DD(136.04,.08,.1)="Treatment related to Combat (Y/N)"
^DD(136.04,.08,3)="If this diagnosis is related to combat, enter YES."
^DD(136.04,.08,5,1,0)="136.04^.01^7"
^DD(136.04,.08,21,0)="^.001^3^3^3050112^^"
^DD(136.04,.08,21,1,0)="This field indicates if this diagnosis is a combat related problem."
^DD(136.04,.08,21,2,0)="This information may be passed to the VISIT file (#9000010) for use by"
^DD(136.04,.08,21,3,0)="PCE."
^DD(136.04,.08,"DT")="3050112"
^DD(136.04,.09,0)="PROJ 112/SHAD^S^1:YES;0:NO;^0;9^Q"
^DD(136.04,.09,.1)="Treatment related to PROJ 112/SHAD (Y/N)"
^DD(136.04,.09,3)="If this diagnosis is related to PROJ 112/SHAD, enter YES."
^DD(136.04,.09,5,1,0)="136.04^.01^8"
^DD(136.04,.09,21,0)="^.001^3^3^3051117^^"
^DD(136.04,.09,21,1,0)="This field indicates if this diagnosis is a PROJ 112/SHAD related "
^DD(136.04,.09,21,2,0)="problem.  This information may be passed to the VISIT file (#9000010) for "
^DD(136.04,.09,21,3,0)="use by PCE."
^DD(136.04,.09,"DT")="3051117"
^DD(136.04,"B","AGENT ORANGE EXPOSURE",.03)=""
^DD(136.04,"B","COMBAT VET",.08)=""
^DD(136.04,"B","HEAD AND/OR NECK CANCER",.06)=""
^DD(136.04,"B","IONIZING RADIATION EXPOSURE",.04)=""
^DD(136.04,"B","MILITARY SEXUAL TRAUMA",.05)=""
^DD(136.04,"B","OTHER POSTOP DIAGNOSIS CODE",.01)=""
^DD(136.04,"B","Other Postop Diagnosis Code",.01)="1"
^DD(136.04,"B","PROJ 112/SHAD",.09)=""
^DD(136.04,"B","SERVICE CONNECTED",.02)=""
^DD(136.04,"B","SOUTHWEST ASIA CONDITIONS",.07)=""
^DD(136.04,"GL",0,1,.01)=""
^DD(136.04,"GL",0,2,.02)=""
^DD(136.04,"GL",0,3,.03)=""
^DD(136.04,"GL",0,4,.04)=""
^DD(136.04,"GL",0,5,.05)=""
^DD(136.04,"GL",0,6,.06)=""
^DD(136.04,"GL",0,7,.07)=""
^DD(136.04,"GL",0,8,.08)=""
^DD(136.04,"GL",0,9,.09)=""
^DD(136.04,"IX",.01)=""
^DD(136.31,0)="OTHER PROCEDURE CPT MODIFIERS SUB-FIELD^^.01^1"
^DD(136.31,0,"DT")="3050114"
^DD(136.31,0,"NM","OTHER PROCEDURE CPT MODIFIERS")=""
^DD(136.31,0,"UP")="136.03"
^DD(136.31,.01,0)="OTHER PROCEDURE CPT MODIFIER^M*P81.3'O^DIC(81.3,^0;1^S DIC(""S"")=""I $$OTH^SROMOD0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(136.31,.01,.1)="Other Procedure CPT Modifier"
^DD(136.31,.01,1,0)="^.1^^0"
^DD(136.31,.01,2)="S Y(0)=Y D DISPLAY^SROMOD0"
^DD(136.31,.01,2.1)="D DISPLAY^SROMOD0"
^DD(136.31,.01,3)="Enter a CPT modifier for this procedure."
^DD(136.31,.01,12)="Screen prevents selection of modifier inappropriate for CPT code."
^DD(136.31,.01,12.1)="S DIC(""S"")=""I $$OTH^SROMOD0"""
^DD(136.31,.01,21,0)="^.001^3^3^3050114^^^"
^DD(136.31,.01,21,1,0)="This is a procedural coding modifier used to indicate that the other"
^DD(136.31,.01,21,2,0)="procedure performed has been altered by some specific circumstance but "
^DD(136.31,.01,21,3,0)="not changed in its definition or code."
^DD(136.31,.01,"DT")="3050114"
^DD(136.31,"B","OTHER PROCEDURE CPT MODIFIER",.01)=""
^DD(136.31,"B","Other Procedure CPT Modifier",.01)="1"
^DD(136.31,"GL",0,1,.01)=""
^DD(136.32,0)="OTHER ASSOCIATED DIAGNOSES SUB-FIELD^^.01^1"
^DD(136.32,0,"DT")="3041215"
^DD(136.32,0,"NM","OTHER ASSOCIATED DIAGNOSES")=""
^DD(136.32,0,"UP")="136.03"
^DD(136.32,.01,0)="OTHER ASSOCIATED DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(136.32,.01,.1)="Other Associated Diagnosis Code"
^DD(136.32,.01,1,0)="^.1^^0"
^DD(136.32,.01,3)="Enter a diagnosis code associated with this procedure."
^DD(136.32,.01,21,0)="^^1^1^3041215^"
^DD(136.32,.01,21,1,0)="This is a diagnosis associated with the other procedure."
^DD(136.32,.01,"DT")="3041216"
^DD(136.32,"B","OTHER ASSOCIATED DIAGNOSIS",.01)=""
^DD(136.32,"GL",0,1,.01)=""
^DD(136.5,0)="FIELD^^5^6"
^DD(136.5,0,"DDA")="N"
^DD(136.5,0,"DT")="2950309"
^DD(136.5,0,"ID",2)="D DESC^SROCMPS"
^DD(136.5,0,"IX","B",136.5,.01)=""
^DD(136.5,0,"IX","C",136.53,.01)=""
^DD(136.5,0,"NM","PERIOPERATIVE OCCURRENCE CATEGORY")=""
^DD(136.5,0,"PT",130.0126,5)=""
^DD(136.5,0,"PT",130.053,5)=""
^DD(136.5,0,"PT",130.13,3)=""
^DD(136.5,0,"PT",130.22,5)=""
^DD(136.5,0,"PT",139.046,.01)=""
^DD(136.5,0,"VR")="3.0"
^DD(136.5,0,"VRPK")="SR"
^DD(136.5,.01,0)="OCCURRENCE CATEGORY^RFI^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(136.5,.01,.1)="Occurrence Category"
^DD(136.5,.01,1,0)="^.1"
^DD(136.5,.01,1,1,0)="136.5^B"
^DD(136.5,.01,1,1,1)="S ^SRO(136.5,""B"",$E(X,1,30),DA)="""""
^DD(136.5,.01,1,1,2)="K ^SRO(136.5,""B"",$E(X,1,30),DA)"
^DD(136.5,.01,3)="Your answer must be 3-60 characters in length."
^DD(136.5,.01,9)="^"
^DD(136.5,.01,21,0)="^^3^3^2950427^"
^DD(136.5,.01,21,1,0)="This field contains the name of the perioperative occurrence category to"
^DD(136.5,.01,21,2,0)="be used when categorizing surgical and anesthesia perioperative"
^DD(136.5,.01,21,3,0)="occurrences."
^DD(136.5,.01,"DT")="2950427"
^DD(136.5,.01,"LAYGO",1,0)="W !,""Adding to the Perioperative Occurrence Category file is not allowed !!"",*7 I 0"
^DD(136.5,1,0)="INACTIVE?^SI^1:YES;0:NO;^0;2^Q"
^DD(136.5,1,.1)="Inactive? (Y/N)"
^DD(136.5,1,3)="Enter YES to inactivate this perioperative occurrence category."
^DD(136.5,1,9)="^"
^DD(136.5,1,21,0)="^^2^2^2950224^"
^DD(136.5,1,21,1,0)="If this perioperative occurrence category is no longer used, enter YES to"
^DD(136.5,1,21,2,0)="flag this category as INACTIVE."
^DD(136.5,1,"DT")="2950224"
^DD(136.5,2,0)="DESCRIPTION^136.52^^1;0"
^DD(136.5,2,9)="^"
^DD(136.5,2,20,0)="^.3LA^^0"
^DD(136.5,2,21,0)="^^2^2^2950224^"
^DD(136.5,2,21,1,0)="This is a description used to further define the perioperative occurrence"
^DD(136.5,2,21,2,0)="type."
^DD(136.5,3,0)="SYNONYM^136.53^^2;0"
^DD(136.5,3,21,0)="^^1^1^2950315^"
^DD(136.5,3,21,1,0)="This is another name for this perioperative occurrence category."
^DD(136.5,4,0)="INTRAOPERATIVE ALLOWED^SI^1:YES;0:NO;^0;3^Q"
^DD(136.5,4,.1)="Intraoperative Occurrence Allowed ?"
^DD(136.5,4,3)="Enter YES if this may be an intraoperative occurrence."
^DD(136.5,4,9)="^"
^DD(136.5,4,21,0)="^^2^2^2951113^^"
^DD(136.5,4,21,1,0)="If this occurrence category may be associated with an intraoperative"
^DD(136.5,4,21,2,0)="occurrence, enter YES."
^DD(136.5,4,"DT")="2951113"
^DD(136.5,5,0)="CARDIAC ONLY^S^Y:YES;N:NO;^0;4^Q"
^DD(136.5,5,.1)="Cardiac Only"
^DD(136.5,5,3)="Enter YES if the occurrence category is for a cardiac assessment case."
^DD(136.5,5,9)="^"
^DD(136.5,5,21,0)="^^2^2^3000822^"
^DD(136.5,5,21,1,0)="If this occurrence category may be associated with a cardiac assessed case"
^DD(136.5,5,21,2,0)="only, enter YES."
^DD(136.5,5,"DT")="3000713"
^DD(136.5,"B","CARDIAC ONLY",5)=""
^DD(136.5,"B","Cardiac Only",5)="1"
^DD(136.5,"B","DESCRIPTION",2)=""
^DD(136.5,"B","INACTIVE?",1)=""
^DD(136.5,"B","INTRAOPERATIVE ALLOWED",4)=""
^DD(136.5,"B","Inactive? (Y/N)",1)="1"
^DD(136.5,"B","OCCURRENCE CATEGORY",.01)=""
^DD(136.5,"B","Occurrence Category",.01)="1"
^DD(136.5,"B","SYNONYM",3)=""
^DD(136.5,"GL",0,1,.01)=""
^DD(136.5,"GL",0,2,1)=""
^DD(136.5,"GL",0,3,4)=""
^DD(136.5,"GL",0,4,5)=""
^DD(136.5,"GL",1,0,2)=""
^DD(136.5,"GL",2,0,3)=""
^DD(136.5,"IX",.01)=""
^DD(136.5,"RQ",.01)=""
^DD(136.5,"SB",136.52,2)=""
^DD(136.5,"SB",136.53,3)=""
^DD(136.52,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(136.52,0,"NM","DESCRIPTION")=""
^DD(136.52,0,"UP")="136.5"
^DD(136.52,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(136.52,.01,.1)="Perioperative Occurrence Category Decsription"
^DD(136.52,.01,3)="Enter a brief description further defining this perioperative occurrence type."
^DD(136.52,.01,21,0)="^^2^2^2950224^"
^DD(136.52,.01,21,1,0)="This is a description used to further define and clarify each"
^DD(136.52,.01,21,2,0)="perioperative occurrence category."
^DD(136.52,.01,21,3,0)=" "
^DD(136.52,.01,"DT")="2950224"
^DD(136.52,"B","DESCRIPTION",.01)=""
^DD(136.52,"GL",0,1,.01)=""
^DD(136.53,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(136.53,0,"DT")="2950309"
^DD(136.53,0,"IX","B",136.53,.01)=""
^DD(136.53,0,"NM","SYNONYM")=""
^DD(136.53,0,"UP")="136.5"
^DD(136.53,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X"
^DD(136.53,.01,.1)="Synonym"
^DD(136.53,.01,1,0)="^.1"
^DD(136.53,.01,1,1,0)="136.53^B"
^DD(136.53,.01,1,1,1)="S ^SRO(136.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(136.53,.01,1,1,2)="K ^SRO(136.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(136.53,.01,1,2,0)="136.5^C"
^DD(136.53,.01,1,2,1)="S ^SRO(136.5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(136.53,.01,1,2,2)="K ^SRO(136.5,""C"",$E(X,1,30),DA(1),DA)"
^DD(136.53,.01,1,2,"DT")="2950309"
^DD(136.53,.01,3)="Answer must be 3-60 characters in length."
^DD(136.53,.01,21,0)="^^1^1^2950315^"
^DD(136.53,.01,21,1,0)="This is another name for this perioperative occurrence category."
^DD(136.53,.01,"DT")="2950309"
^DD(136.53,"B","SYNONYM",.01)=""
^DD(136.53,"B","Synonym",.01)="1"
^DD(136.53,"GL",0,1,.01)=""
^DD(136.53,"IX",.01)=""
^DD(137,0)="FIELD^^.01^1"
^DD(137,0,"DDA")="N"
^DD(137,0,"DT")="3070116"
^DD(137,0,"IX","B",137,.01)=""
^DD(137,0,"NM","CPT EXCLUSIONS")=""
^DD(137,0,"VR")="3.0"
^DD(137,0,"VRPK")="SR"
^DD(137,.01,0)="CPT CODE^RP81'XI^ICPT(^0;1^S DINUM=X"
^DD(137,.01,.1)="CPT Code"
^DD(137,.01,1,0)="^.1^^-1"
^DD(137,.01,1,1,0)="137^B"
^DD(137,.01,1,1,1)="S ^SRO(137,""B"",$E(X,1,30),DA)="""""
^DD(137,.01,1,1,2)="K ^SRO(137,""B"",$E(X,1,30),DA)"
^DD(137,.01,3)="Enter the excluded CPT code."
^DD(137,.01,21,0)="^^1^1^3070116^"
^DD(137,.01,21,1,0)="This CPT code is on the list of NSQIP excluded CPT codes."
^DD(137,.01,"DT")="3070201"
^DD(137,"B","CPT CODE",.01)=""
^DD(137,"B","CPT Code",.01)="1"
^DD(137,"GL",0,1,.01)=""
^DD(137,"IX",.01)=""
^DD(137,"RQ",.01)=""
^DD(137.45,0)="FIELD^^11^5"
^DD(137.45,0,"DDA")="N"
^DD(137.45,0,"DT")="2930128"
^DD(137.45,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(45.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(45.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(137.45,0,"ID",11)="W ""   "",$P(^(0),U,4)"
^DD(137.45,0,"IX","B1",137.45,.01)=""
^DD(137.45,0,"IX","C",137.45,1)=""
^DD(137.45,0,"IX","D",137.45,11)=""
^DD(137.45,0,"NM","LOCAL SURGICAL SPECIALTY")=""
^DD(137.45,0,"PT",130,.04)=""
^DD(137.45,0,"PT",131.25,.01)=""
^DD(137.45,0,"PT",131.82,.01)=""
^DD(137.45,0,"PT",133.8,.01)=""
^DD(137.45,0,"PT",446.1,130.03)=""
^DD(137.45,0,"VR")="3"
^DD(137.45,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(137.45,.01,.1)="Name of Local Surgical Specialty"
^DD(137.45,.01,1,0)="^.1"
^DD(137.45,.01,1,1,0)="137.45^B1^MUMPS"
^DD(137.45,.01,1,1,1)="S ^SRO(137.45,""B1"",$E(X,1,40),DA)="""""
^DD(137.45,.01,1,1,2)="K ^SRO(137.45,""B1"",$E(X,1,40),DA)"
^DD(137.45,.01,1,1,"%D",0)="^^3^3^2930212^^"
^DD(137.45,.01,1,1,"%D",1,0)="The B1 cross reference on the NAME field is used for lookup purposes."
^DD(137.45,.01,1,1,"%D",2,0)="It displays the entire name as defined in the NAME field (up to 40"
^DD(137.45,.01,1,1,"%D",3,0)="characters)."
^DD(137.45,.01,1,1,"DT")="2930212"
^DD(137.45,.01,3)="Answer must be 3-40 characters in length."
^DD(137.45,.01,21,0)="^^1^1^2920423^"
^DD(137.45,.01,21,1,0)="This is the name of the 'local' surgical specialty used at this site."
^DD(137.45,.01,"DEL",1,0)="W !,""Deletion from the Local Surgical Specialty file is not allowed !! "",*7 I 1"
^DD(137.45,.01,"DT")="2930212"
^DD(137.45,1,0)="NATIONAL SURGICAL SPECIALTY^R*P45.3'O^DIC(45.3,^0;2^S DIC(""S"")=""I $P(^(0),U)?2N&(+^(0)>47&(+^(0)<63)!(+^(0)=78))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(137.45,1,.1)="National Surgical Specialty"
^DD(137.45,1,1,0)="^.1"
^DD(137.45,1,1,1,0)="137.45^C"
^DD(137.45,1,1,1,1)="S ^SRO(137.45,""C"",$E(X,1,30),DA)="""""
^DD(137.45,1,1,1,2)="K ^SRO(137.45,""C"",$E(X,1,30),DA)"
^DD(137.45,1,1,1,"DT")="2920427"
^DD(137.45,1,2)="S Y(0)=Y I '$D(SRCUSS(""OUT"")),Y'="""" S Y=$P(^DIC(45.3,Y,0),""^"",2)"
^DD(137.45,1,2.1)="I '$D(SRCUSS(""OUT"")),Y'="""" S Y=$P(^DIC(45.3,Y,0),""^"",2)"
^DD(137.45,1,3)="Enter the 'national' Surgical Specialty in file 45.3 to which this 'local' surgical specialty points."
^DD(137.45,1,12)="Screen allows selection of standard entries only."
^DD(137.45,1,12.1)="S DIC(""S"")=""I $P(^(0),U)?2N&(+^(0)>47&(+^(0)<63)!(+^(0)=78))"""
^DD(137.45,1,21,0)="^.001^2^2^3070719^^^^"
^DD(137.45,1,21,1,0)="This is the 'national' surgical specialty in file 45.3 to which this"
^DD(137.45,1,21,2,0)="'local' specialty points."
^DD(137.45,1,"DT")="3070719"
^DD(137.45,2,0)="ASSOCIATED CLINIC^*P44'^SC(^0;5^S DIC(""S"")=""I $$HL^SROUTL0(Y,$G(SRSITE(""""DIV""""))),$$ACTCLIN^SROUTL(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(137.45,2,.1)="Associated Clinic Location"
^DD(137.45,2,3)="Enter the clinic location associated with this specialty."
^DD(137.45,2,12)="Select active, count clinic only for user's division."
^DD(137.45,2,12.1)="S DIC(""S"")=""I $$HL^SROUTL0(Y,$G(SRSITE(""""DIV""""))),$$ACTCLIN^SROUTL(Y)"""
^DD(137.45,2,21,0)="^^3^3^2970721^^"
^DD(137.45,2,21,1,0)="This is the default clinic associated with operations or procedures"
^DD(137.45,2,21,2,0)="performed by this surgical specialty.  This information is used to"
^DD(137.45,2,21,3,0)="document patient encounters in the VISIT file (#900010)."
^DD(137.45,2,"DT")="2980511"
^DD(137.45,10,0)="INACTIVE?^S^1:YES;^0;3^Q"
^DD(137.45,10,.1)="Inactive?"
^DD(137.45,10,3)="Enter 'YES' to inactivate this file entry."
^DD(137.45,10,21,0)="^^2^2^2920604^"
^DD(137.45,10,21,1,0)="Enter 'YES' to make this specialty inactive and to prevent its selection"
^DD(137.45,10,21,2,0)="and use by users in the Surgery Package."
^DD(137.45,10,"DT")="2920604"
^DD(137.45,11,0)="CODE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(137.45,11,.1)="Specialty Code"
^DD(137.45,11,1,0)="^.1"
^DD(137.45,11,1,1,0)="137.45^D"
^DD(137.45,11,1,1,1)="S ^SRO(137.45,""D"",$E(X,1,30),DA)="""""
^DD(137.45,11,1,1,2)="K ^SRO(137.45,""D"",$E(X,1,30),DA)"
^DD(137.45,11,1,1,"%D",0)="^^3^3^2930128^"
^DD(137.45,11,1,1,"%D",1,0)="This is a regular cross reference used for lookup on the Local Surgical "
^DD(137.45,11,1,1,"%D",2,0)="Specialty file."
^DD(137.45,11,1,1,"%D",3,0)=" "
^DD(137.45,11,1,1,"DT")="2930128"
^DD(137.45,11,3)="Your answer must be 1-5 characters in length."
^DD(137.45,11,21,0)="^^4^4^2930128^"
^DD(137.45,11,21,1,0)="This is a code used for selecting local surgical specialties.  Your answer"
^DD(137.45,11,21,2,0)="may be a number, number/letter combination, or brief alphabetic code. "
^DD(137.45,11,21,3,0)="The specialty code is optional."
^DD(137.45,11,21,4,0)=" "
^DD(137.45,11,"DT")="2930128"
^DD(137.45,"B","ASSOCIATED CLINIC",2)=""
^DD(137.45,"B","Associated Clinic Location",2)="1"
^DD(137.45,"B","CODE",11)=""
^DD(137.45,"B","INACTIVE?",10)=""
^DD(137.45,"B","Inactive?",10)="1"
^DD(137.45,"B","NAME",.01)=""
^DD(137.45,"B","NATIONAL SURGICAL SPECIALTY",1)=""
^DD(137.45,"B","National Surgical Specialty",1)="1"
^DD(137.45,"B","Specialty Code",11)="1"
^DD(137.45,"GL",0,1,.01)=""
^DD(137.45,"GL",0,2,1)=""
^DD(137.45,"GL",0,3,10)=""
^DD(137.45,"GL",0,4,11)=""
^DD(137.45,"GL",0,5,2)=""
^DD(137.45,"IX",.01)=""
^DD(137.45,"IX",1)=""
^DD(137.45,"IX",11)=""
^DD(137.45,"RQ",.01)=""
^DD(137.45,"RQ",1)=""
^DD(138,0)="FIELD^^10^3"
^DD(138,0,"DT")="2920603"
^DD(138,0,"IX","B",138,.01)=""
^DD(138,0,"IX","C",138,1)=""
^DD(138,0,"NM","ELECTROGROUND POSITIONS")=""
^DD(138,0,"PT",130,.55)=""
^DD(138,0,"PT",130,6)=""
^DD(138,0,"VR")="3"
^DD(138,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(138,.01,.1)="Electroground Position"
^DD(138,.01,1,0)="^.1"
^DD(138,.01,1,1,0)="138^B"
^DD(138,.01,1,1,1)="S ^SRO(138,""B"",$E(X,1,30),DA)="""""
^DD(138,.01,1,1,2)="K ^SRO(138,""B"",$E(X,1,30),DA)"
^DD(138,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(138,.01,21,0)="^^2^2^2900710^"
^DD(138,.01,21,1,0)="This is the name of the Electroground Position."
^DD(138,.01,21,2,0)=" "
^DD(138,.01,"DEL",1,0)="W !,""Deletion from the Electroground Positions file is not allowed !! "",*7 I 1"
^DD(138,1,0)="CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(138,1,.1)="Code"
^DD(138,1,1,0)="^.1"
^DD(138,1,1,1,0)="138^C"
^DD(138,1,1,1,1)="S ^SRO(138,""C"",$E(X,1,30),DA)="""""
^DD(138,1,1,1,2)="K ^SRO(138,""C"",$E(X,1,30),DA)"
^DD(138,1,3)="Your answer must be 1 to 4 characters in length."
^DD(138,1,21,0)="^^3^3^2900710^"
^DD(138,1,21,1,0)="This is the code corresponding to the name of the electroground "
^DD(138,1,21,2,0)="position."
^DD(138,1,21,3,0)=" "
^DD(138,10,0)="INACTIVE?^S^1:Y;^0;3^Q"
^DD(138,10,.1)="Inactive?"
^DD(138,10,3)="Enter 'YES' to inactivate this file entry."
^DD(138,10,21,0)="^^2^2^2920603^"
^DD(138,10,21,1,0)="Enter 'YES' to inactivate this entry and to prevent its selection by"
^DD(138,10,21,2,0)="Surgery users."
^DD(138,10,"DT")="2920603"
^DD(138,"B","CODE",1)=""
^DD(138,"B","Code",1)="1"
^DD(138,"B","Electroground Position",.01)="1"
^DD(138,"B","INACTIVE?",10)=""
^DD(138,"B","Inactive?",10)="1"
^DD(138,"B","NAME",.01)=""
^DD(138,"GL",0,1,.01)=""
^DD(138,"GL",0,2,1)=""
^DD(138,"GL",0,3,10)=""
^DD(138,"IX",.01)=""
^DD(138,"IX",1)=""
^DD(138,"RQ",.01)=""
^DD(139.2,0)="FIELD^^2^5"
^DD(139.2,0,"DT")="2910530"
^DD(139.2,0,"IX","B",139.2,.01)=""
^DD(139.2,0,"NM","RISK MODEL LAB TEST")=""
^DD(139.2,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(139.2,.01,.1)="Laboratory Test for Surgery Risk Assessment Model"
^DD(139.2,.01,1,0)="^.1"
^DD(139.2,.01,1,1,0)="139.2^B"
^DD(139.2,.01,1,1,1)="S ^SRO(139.2,""B"",$E(X,1,30),DA)="""""
^DD(139.2,.01,1,1,2)="K ^SRO(139.2,""B"",$E(X,1,30),DA)"
^DD(139.2,.01,3)="Your answer must be 1-40 characters in length."
^DD(139.2,.01,9)="^"
^DD(139.2,.01,21,0)="^^2^2^2910605^^^^"
^DD(139.2,.01,21,1,0)="This is the laboratory test which will be tracked using the Surgery Risk"
^DD(139.2,.01,21,2,0)="Assessment Module."
^DD(139.2,.01,"DEL",1,0)="W !,""Deletions from this file NOT allowed !!  "",*7 I 1"
^DD(139.2,.01,"DT")="2910530"
^DD(139.2,.01,"LAYGO",1,0)="W !,""New entries to this file NOT allowed !!"",*7 I 0"
^DD(139.2,1,0)="LABORATORY DATA NAME^139.21P^^1;0"
^DD(139.2,1,21,0)="^^1^1^2910605^^"
^DD(139.2,1,21,1,0)="These are the local Data Names in file 63 pointed to by this lab test."
^DD(139.2,2,0)="SPECIMEN^RP61'^LAB(61,^2;1^Q"
^DD(139.2,2,.1)="Specimen"
^DD(139.2,2,3)="Enter the specimen on which this lab test should be performed for purposes of the Surgery Risk Assessment Module."
^DD(139.2,2,21,0)="^^1^1^2970212^"
^DD(139.2,2,21,1,0)="This is the specimen associated with this laboratory test."
^DD(139.2,2,"DT")="2970205"
^DD(139.2,3,0)="CICSP REFERENCE LOW^NJ8,2^^2;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3.N) X"
^DD(139.2,3,3)="Type a number between 0 and 99999, 2 Decimal Digits may be entered."
^DD(139.2,3,9)="^"
^DD(139.2,3,21,0)="^^5^5^3071116^"
^DD(139.2,3,21,1,0)="This field determines the reference ""low value"" for the laboratory "
^DD(139.2,3,21,2,0)="test. This value is derived from the usual distribution of cardiac "
^DD(139.2,3,21,3,0)="risk assessment test values reported nationally. Test values less "
^DD(139.2,3,21,4,0)="than the reference low are permitted but should be verified for"
^DD(139.2,3,21,5,0)="accuracy."
^DD(139.2,3,"DT")="3071116"
^DD(139.2,4,0)="CICSP REFERENCE HIGH^NJ8,2^^2;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3.N) X"
^DD(139.2,4,3)="Type a number between 0 and 99999, 2 Decimal Digits may be entered."
^DD(139.2,4,9)="^"
^DD(139.2,4,21,0)="^^5^5^3071116^"
^DD(139.2,4,21,1,0)="This field determines the ""reference high"" value for the laboratory "
^DD(139.2,4,21,2,0)="test. This value is derived from the usual distribution of cardiac "
^DD(139.2,4,21,3,0)="risk assessment test values reported nationally. Test values higher "
^DD(139.2,4,21,4,0)="than the reference high are permitted but should be verified for"
^DD(139.2,4,21,5,0)="accuracy."
^DD(139.2,4,"DT")="3071116"
^DD(139.2,"B","CICSP REFERENCE HIGH",4)=""
^DD(139.2,"B","CICSP REFERENCE LOW",3)=""
^DD(139.2,"B","LABORATORY DATA NAME",1)=""
^DD(139.2,"B","NAME",.01)=""
^DD(139.2,"B","SPECIMEN",2)=""
^DD(139.2,"B","Specimen",2)="1"
^DD(139.2,"GL",0,1,.01)=""
^DD(139.2,"GL",1,0,1)=""
^DD(139.2,"GL",2,1,2)=""
^DD(139.2,"GL",2,2,3)=""
^DD(139.2,"GL",2,3,4)=""
^DD(139.2,"IX",.01)=""
^DD(139.2,"RQ",.01)=""
^DD(139.2,"RQ",2)=""
^DD(139.2,"SB",139.21,1)=""
^DD(139.21,0)="LABORATORY DATA NAME SUB-FIELD^^.01^1"
^DD(139.21,0,"DT")="2910530"
^DD(139.21,0,"IX","B",139.21,.01)=""
^DD(139.21,0,"NM","LABORATORY DATA NAME")=""
^DD(139.21,0,"UP")="139.2"
^DD(139.21,.01,0)="LABORATORY DATA NAME^M*P63'X^DD(63.04,^0;1^S DIC(""S"")=""I Y>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(139.21,.01,.1)="Laboratory Data Name"
^DD(139.21,.01,1,0)="^.1"
^DD(139.21,.01,1,1,0)="139.21^B"
^DD(139.21,.01,1,1,1)="S ^SRO(139.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(139.21,.01,1,1,2)="K ^SRO(139.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(139.21,.01,3)="Enter your local Data Name for this laboratory test."
^DD(139.21,.01,12.1)="S DIC(""S"")=""I Y>1"""
^DD(139.21,.01,21,0)="^^1^1^2910605^^^"
^DD(139.21,.01,21,1,0)="This is the local Data Name in file 63 pointed to by this lab test."
^DD(139.21,.01,"DT")="2910530"
^DD(139.21,"B","LABORATORY DATA NAME",.01)=""
^DD(139.21,"B","Laboratory Data Name",.01)="1"
^DD(139.21,"GL",0,1,.01)=""
^DD(139.21,"IX",.01)=""
^DD(142,0)="FIELD^^99^11"
^DD(142,0,"DDA")="N"
^DD(142,0,"DT")="3040303"
^DD(142,0,"IX","AB",142,.01)=""
^DD(142,0,"IX","AE",142.01,1)=""
^DD(142,0,"IX","AM",142,99)=""
^DD(142,0,"IX","AW",142,.01)=""
^DD(142,0,"IX","AW2",142,.02)=""
^DD(142,0,"IX","AW3",142.2,.01)=""
^DD(142,0,"IX","AWO",142,.06)=""
^DD(142,0,"IX","B",142,.01)=""
^DD(142,0,"IX","C",142,.06)=""
^DD(142,0,"IX","D",142.2,.01)=""
^DD(142,0,"IX","E",142,.02)=""
^DD(142,0,"NM","HEALTH SUMMARY TYPE")=""
^DD(142,0,"PT",43,43)=""
^DD(142,0,"PT",71,13)=""
^DD(142,0,"PT",142.5,.03)=""
^DD(142,0,"PT",350.9,2.08)=""
^DD(142,0,"PT",350.9,2.09)=""
^DD(142,0,"PT",357.6,.11)=""
^DD(142,0,"PT",358.6,.11)=""
^DD(142,0,"VR")="2.7"
^DD(142,0,"VRPK")="GMTS"
^DD(142,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(142,.01,1,0)="^.1"
^DD(142,.01,1,1,0)="142^B"
^DD(142,.01,1,1,1)="S ^GMT(142,""B"",$E(X,1,30),DA)="""""
^DD(142,.01,1,1,2)="K ^GMT(142,""B"",$E(X,1,30),DA)"
^DD(142,.01,1,1,"%D",0)="^^2^2^2950731^^"
^DD(142,.01,1,1,"%D",1,0)="This REGULAR ""B"" cross-reference is used for Health Summary Type look-up"
^DD(142,.01,1,1,"%D",2,0)="by name."
^DD(142,.01,1,2,0)="142^AW^MUMPS"
^DD(142,.01,1,2,1)="D STNT^GMTSUIX"
^DD(142,.01,1,2,2)="D KTNT^GMTSUIX"
^DD(142,.01,1,2,"DT")="2981214"
^DD(142,.01,1,3,0)="142^AB^MUMPS"
^DD(142,.01,1,3,1)="S ^GMT(142,""AB"",$$UP^XLFSTR($E(X,1,30)),DA)="""""
^DD(142,.01,1,3,2)="K ^GMT(142,""AB"",$$UP^XLFSTR($E(X,1,30)),DA)"
^DD(142,.01,1,3,"%D",0)="^^3^3^2990201^"
^DD(142,.01,1,3,"%D",1,0)="^GMT(142,""AB"",UP,IEN) - Where UP is an uppercase version of the Health "
^DD(142,.01,1,3,"%D",2,0)="Summary Type and IEN is the location where the Health Summary Type is "
^DD(142,.01,1,3,"%D",3,0)="stored."
^DD(142,.01,1,3,"DT")="2990201"
^DD(142,.01,3)="Answer must be a unique name, 3-30 characters in length."
^DD(142,.01,21,0)="^^7^7^2950728^^^^"
^DD(142,.01,21,1,0)="Enter the NAME of the Health Summary Type.  This name will appear"
^DD(142,.01,21,2,0)="in the health summary header.  The word ""CONFIDENTIAL"" will appear"
^DD(142,.01,21,3,0)="in front of this name and the word ""SUMMARY"" will appear at the end"
^DD(142,.01,21,4,0)="to complete the header.  For example:"
^DD(142,.01,21,5,0)=" "
^DD(142,.01,21,6,0)="    Name entered: ICU"
^DD(142,.01,21,7,0)="Generated header: CONFIDENTIAL ICU SUMMARY"
^DD(142,.01,"DEL",1,0)="I $P(^GMT(142,DA,0),U,4)=""Y"" W $C(7),!,""CANNOT DELETE THIS HEALTH SUMMARY TYPE!!  IT IS USED BY THE AD HOC OPTION"""
^DD(142,.01,"DT")="3010723"
^DD(142,.02,0)="TITLE^F^^T;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(142,.02,1,0)="^.1"
^DD(142,.02,1,1,0)="142^E"
^DD(142,.02,1,1,1)="S ^GMT(142,""E"",$E(X,1,30),DA)="""""
^DD(142,.02,1,1,2)="K ^GMT(142,""E"",$E(X,1,30),DA)"
^DD(142,.02,1,1,"%D",0)="^^2^2^2920227^"
^DD(142,.02,1,1,"%D",1,0)="This whole-file, regular FileMan cross-reference is used for look-ups"
^DD(142,.02,1,1,"%D",2,0)="of Health Summary Types by TITLE."
^DD(142,.02,1,2,0)="142^AW2^MUMPS"
^DD(142,.02,1,2,1)="D STNT^GMTSUIX"
^DD(142,.02,1,2,2)="D KTNT^GMTSUIX"
^DD(142,.02,1,2,"DT")="2981214"
^DD(142,.02,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(142,.02,21,0)="5^^7^7^2920928^^^^"
^DD(142,.02,21,1,0)="Enter the TITLE only if you wish to replace NAME with title in the health"
^DD(142,.02,21,2,0)="summary header.  For Example:"
^DD(142,.02,21,3,0)=" "
^DD(142,.02,21,4,0)="    Name entered: ICU"
^DD(142,.02,21,5,0)="   Title entered: INTENSIVE CARE UNIT"
^DD(142,.02,21,6,0)="Generated header: CONFIDENTIAL INTENSIVE CARE UNIT SUMMARY"
^DD(142,.02,21,7,0)=" "
^DD(142,.02,"DT")="2981214"
^DD(142,.05,0)="LOCK^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) Q:$D(^DIC(19.1,""B"",X))  W !,$C(7),""Lock name must match exactly with a key in the SECURITY KEY file."" K X"
^DD(142,.05,3)="Enter the name of the security key required to modify this summary type"
^DD(142,.05,21,0)="^^9^9^2950731^^^^"
^DD(142,.05,21,1,0)="When a Health Summary Type contains a Lock, edit access is normally"
^DD(142,.05,21,2,0)="restricted to persons who hold a security key in the SECURITY KEY"
^DD(142,.05,21,3,0)="file which is the same as the Lock value. If a Health Summary Type"
^DD(142,.05,21,4,0)="contains a Lock, users who hold that security key are NOT restricted"
^DD(142,.05,21,5,0)="by Ownership. A holder of the GMTSMGR security key is NOT restricted"
^DD(142,.05,21,6,0)="by Locks or Ownership."
^DD(142,.05,21,7,0)=" "
^DD(142,.05,21,8,0)="NOTE: Generic Health Summary Types issued with the Health Summary"
^DD(142,.05,21,9,0)="package contain the Lock GMTSMGR."
^DD(142,.05,"DT")="2950731"
^DD(142,.06,0)="OWNER^P200'^VA(200,^0;3^Q"
^DD(142,.06,1,0)="^.1"
^DD(142,.06,1,1,0)="142^C"
^DD(142,.06,1,1,1)="S ^GMT(142,""C"",$E(X,1,30),DA)="""""
^DD(142,.06,1,1,2)="K ^GMT(142,""C"",$E(X,1,30),DA)"
^DD(142,.06,1,1,"%D",0)="^^2^2^2920227^"
^DD(142,.06,1,1,"%D",1,0)="This whole-file, regular FileMan cross-reference is used by the Health"
^DD(142,.06,1,1,"%D",2,0)="Summary Type selection to look-up summary types by OWNER."
^DD(142,.06,1,2,0)="142^AWO^MUMPS"
^DD(142,.06,1,2,1)="D STO^GMTSUIX"
^DD(142,.06,1,2,2)="D KTO^GMTSUIX"
^DD(142,.06,1,2,"DT")="2990422"
^DD(142,.06,21,0)="15^^14^14^2950728^^"
^DD(142,.06,21,1,0)="Edit access to each health summary type is normally restricted to"
^DD(142,.06,21,2,0)="its Owner."
^DD(142,.06,21,3,0)=" "
^DD(142,.06,21,4,0)="Exception 1: Holders of the GMTSMGR security key are NOT restricted"
^DD(142,.06,21,5,0)="             by Ownership."
^DD(142,.06,21,6,0)=" "
^DD(142,.06,21,7,0)="Exception 2: If a health summary type contains a lock, users who hold"
^DD(142,.06,21,8,0)="             that lock key are NOT restricted by Ownership."
^DD(142,.06,21,9,0)=" "
^DD(142,.06,21,10,0)="NOTE: When a new health summary type is created, the creator's entry"
^DD(142,.06,21,11,0)="number in the new Person File is AUTOMATICALLY entered as Owner unless"
^DD(142,.06,21,12,0)="the creator holds the GMTSMGR security key.  A creator who holds the"
^DD(142,.06,21,13,0)="GMTSMGR key may enter an Owner (IFN from new Person file) of his/her"
^DD(142,.06,21,14,0)="choice."
^DD(142,.06,"DT")="2990422"
^DD(142,.07,0)="RESTRICT DELETION^SI^Y:YES;^0;4^Q"
^DD(142,.07,21,0)="^^3^3^2920914^"
^DD(142,.07,21,1,0)="This field is referred to by the Create/Modify and Delete Health Summary"
^DD(142,.07,21,2,0)="Type options for the screening of certain summary types (esp., GMTS HS"
^DD(142,.07,21,3,0)="ADHOC OPTION) from deletion."
^DD(142,.07,"DT")="2901227"
^DD(142,.08,0)="SUPPRESS COMP WITHOUT DATA^S^Y:yes;N:no;^0;5^Q"
^DD(142,.08,.1)="SUPPRESS PRINT OF COMPONENTS WITHOUT DATA"
^DD(142,.08,21,0)="^^6^6^2950731^^"
^DD(142,.08,21,1,0)="This field allows health summary types to be set up to suppress printing"
^DD(142,.08,21,2,0)="of components that contain no data when health summaries are printed from"
^DD(142,.08,21,3,0)="a device. When health summary types are displayed on the screen,"
^DD(142,.08,21,4,0)="components that contain no data will still be displayed with a ""No data"
^DD(142,.08,21,5,0)="available"" message. This is done to eliminate any confusion that may occur"
^DD(142,.08,21,6,0)="when jumping between components."
^DD(142,.08,"DT")="2950815"
^DD(142,.09,0)="NATIONALLY EXPORTED TYPE^S^1:Nationally Exported, Site Editable;2:Nationally Exported, Uneditable;^VA;1^Q"
^DD(142,.09,21,0)="^^3^3^3000224^^"
^DD(142,.09,21,1,0)="This field is used to distinguish between nationally exported Health Summary "
^DD(142,.09,21,2,0)="Types and Health Summary Types created at the site.  It serves to protect "
^DD(142,.09,21,3,0)="nationally exported Health Summary Types from being deleted at the site."
^DD(142,.09,"DT")="3000224"
^DD(142,1,0)="STRUCTURE^142.01IA^^1;0"
^DD(142,1,21,0)="^.001^4^4^3030604^^^^"
^DD(142,1,21,1,0)="This multiple contains the components to be included in any given health"
^DD(142,1,21,2,0)="summary type, along with the time and occurrence limits, selection items"
^DD(142,1,21,3,0)="to be used, hospital location displayed, ICD text displayed, and provider"
^DD(142,1,21,4,0)="narrative displayed."
^DD(142,20,0)="LOCATION(S) USING THE SUMMARY^142.2P^^20;0"
^DD(142,20,21,0)="^^3^3^2950731^^^^"
^DD(142,20,21,1,0)="Allows the entry of the hospital location (ward or clinic) which has"
^DD(142,20,21,2,0)="requested automatic nightly queueing of one or more health summary"
^DD(142,20,21,3,0)="types to a specified device."
^DD(142,99,0)="TIMESTAMP^F^^99;1^K:$L(X)>15!($L(X)<1) X"
^DD(142,99,1,0)="^.1"
^DD(142,99,1,1,0)="142^AM^MUMPS"
^DD(142,99,1,1,1)="D SET^GMTSDD"
^DD(142,99,1,1,2)="D KILL^GMTSDD"
^DD(142,99,1,1,"%D",0)="^^5^5^2950731^"
^DD(142,99,1,1,"%D",1,0)="This MUMPS type cross-reference is used to maintain the navigational menus"
^DD(142,99,1,1,"%D",2,0)="when changes occur in the structure of a given Health Summary Type. The"
^DD(142,99,1,1,"%D",3,0)="executed code will rebuild navigational menus when the TIMESTAMP field is"
^DD(142,99,1,1,"%D",4,0)="modified. The ^XUTL(""XQORM"", global is used by the Unwinder utility to"
^DD(142,99,1,1,"%D",5,0)="generate the ad hoc and navigational menus."
^DD(142,99,3)="Answer must be 1-15 characters in length."
^DD(142,99,9)="^"
^DD(142,99,21,0)="^^6^6^2950731^"
^DD(142,99,21,1,0)="This is the $H formatted time associated with the most recent modification"
^DD(142,99,21,2,0)="to this health summary type. It is compared with the timestamp in the"
^DD(142,99,21,3,0)="^XUTL( multiple associated with this summary type, when ^XQORM is called"
^DD(142,99,21,4,0)="to generate help menus for interactive navigation. If a difference exists,"
^DD(142,99,21,5,0)="then the menus are ""recompiled."" This field is NOT to be edited"
^DD(142,99,21,6,0)="interactively under any circumstances!"
^DD(142,99,"DT")="2900111"
^DD(142,100,0)="SUPPRESS SENSITIVE PRINT DATA^S^0:9 DIGIT SSN;1:4 DIGIT SSN;2:NO SSN;^2;1^Q"
^DD(142,100,3)="Answer with '9 DIGIT SSN', '4 DIGIT SSN', or, 'NO SSN'"
^DD(142,100,21,0)="^^13^13^3070725^"
^DD(142,100,21,1,0)="This field allows control over the display of patient SSN and DOB in the"
^DD(142,100,21,2,0)="report header of a given health summary type. Hard copy prints from"
^DD(142,100,21,3,0)="the Reports tab of CPRS, List Manager, and the GMTS print options are "
^DD(142,100,21,4,0)="affected. The DOB can be removed and the SSN restricted based on the "
^DD(142,100,21,5,0)="value of this field."
^DD(142,100,21,6,0)=" "
^DD(142,100,21,7,0)="A value of '0' or null allows the full 9-digit SSN to display along"
^DD(142,100,21,8,0)="with the DOB; flag value of '1' removes the DOB and only displays "
^DD(142,100,21,9,0)="the last four of the SSN; and '2' will remove both the SSN and DOB"
^DD(142,100,21,10,0)="from the report header."
^DD(142,100,21,11,0)=" "
^DD(142,100,21,12,0)="Viewing predefined health summary reports on screen via GMTS print "
^DD(142,100,21,13,0)="options or CPRS GUI windows are NOT affected by this flag."
^DD(142,100,"DT")="3070725"
^DD(142,"B","LOCATION(S) USING THE SUMMARY",20)=""
^DD(142,"B","LOCK",.05)=""
^DD(142,"B","NAME",.01)=""
^DD(142,"B","NATIONALLY EXPORTED TYPE",.09)=""
^DD(142,"B","OWNER",.06)=""
^DD(142,"B","RESTRICT DELETION",.07)=""
^DD(142,"B","STRUCTURE",1)=""
^DD(142,"B","SUPPRESS COMP WITHOUT DATA",.08)=""
^DD(142,"B","SUPPRESS SENSITIVE PRINT DATA",100)=""
^DD(142,"B","TIMESTAMP",99)=""
^DD(142,"B","TITLE",.02)=""
^DD(142,"GL",0,1,.01)=""
^DD(142,"GL",0,2,.05)=""
^DD(142,"GL",0,3,.06)=""
^DD(142,"GL",0,4,.07)=""
^DD(142,"GL",0,5,.08)=""
^DD(142,"GL",1,0,1)=""
^DD(142,"GL",2,1,100)=""
^DD(142,"GL",20,0,20)=""
^DD(142,"GL",99,1,99)=""
^DD(142,"GL","T",1,.02)=""
^DD(142,"GL","VA",1,.09)=""
^DD(142,"IX",.01)=""
^DD(142,"IX",.02)=""
^DD(142,"IX",.06)=""
^DD(142,"IX",99)=""
^DD(142,"RQ",.01)=""
^DD(142,"SB",142.01,1)=""
^DD(142,"SB",142.2,20)=""
^DD(142.01,0)="STRUCTURE SUB-FIELD^^9^10"
^DD(142.01,0,"DT")="3040303"
^DD(142.01,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^GMT(142.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(142.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(142.01,0,"IX","AM",142.01,.01)=""
^DD(142.01,0,"IX","AM1",142.01,1)=""
^DD(142.01,0,"IX","AM5",142.01,5)=""
^DD(142.01,0,"IX","B",142.01,.01)=""
^DD(142.01,0,"IX","C",142.01,1)=""
^DD(142.01,0,"NM","STRUCTURE")=""
^DD(142.01,0,"UP")="142"
^DD(142.01,.01,0)="SUMMARY ORDER^MRNJ8,3XO^^0;1^K:+X'=X!(X>9999.999)!(X<.001)!(X'?1.4N.E) X S:$D(X) DINUM=X"
^DD(142.01,.01,1,0)="^.1"
^DD(142.01,.01,1,1,0)="142.01^B"
^DD(142.01,.01,1,1,1)="S ^GMT(142,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(142.01,.01,1,1,2)="K ^GMT(142,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(142.01,.01,1,1,"%D",0)="^^3^3^2920302^^"
^DD(142.01,.01,1,1,"%D",1,0)="This REGULAR ""B"" cross-reference is created by FileMan and because the"
^DD(142.01,.01,1,1,"%D",2,0)="multiple is DINUM'ed by SUMMARY ORDER, it serves little useful function"
^DD(142.01,.01,1,1,"%D",3,0)="in either look-up or sorting."
^DD(142.01,.01,1,2,0)="142.01^AM^MUMPS"
^DD(142.01,.01,1,2,1)="D REDOX^GMTSDD"
^DD(142.01,.01,1,2,2)="D REDOX^GMTSDD"
^DD(142.01,.01,1,2,"%D",0)="^^4^4^2950731^^^^"
^DD(142.01,.01,1,2,"%D",1,0)="This MUMPS-type cross-reference is used to rebuild the ad hoc and"
^DD(142.01,.01,1,2,"%D",2,0)="navigational menus when the sequence of components within any Health"
^DD(142.01,.01,1,2,"%D",3,0)="Summary Type is changed. The ^XUTL(""XQORM"", global is used by the Unwinder"
^DD(142.01,.01,1,2,"%D",4,0)="utility to generate the ad hoc and navigational menus."
^DD(142.01,.01,2)="S Y(0)=Y S Y=Y"
^DD(142.01,.01,2.1)="S Y=Y"
^DD(142.01,.01,3)="Type a Number between .001 and 9999.999"
^DD(142.01,.01,21,0)="^^4^4^2950821^^^^"
^DD(142.01,.01,21,1,0)="This is the sequence in which each successive component is to appear"
^DD(142.01,.01,21,2,0)="within the health summary.  By default, it will be an integer number,"
^DD(142.01,.01,21,3,0)="beginning with five, and incremented by five, so as to allow insertion"
^DD(142.01,.01,21,4,0)="of new components as necessary."
^DD(142.01,.01,"DT")="3040223"
^DD(142.01,1,0)="COMPONENT NAME^RP142.1'^GMT(142.1,^0;2^Q"
^DD(142.01,1,1,0)="^.1"
^DD(142.01,1,1,1,0)="142.01^C"
^DD(142.01,1,1,1,1)="S ^GMT(142,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(142.01,1,1,1,2)="K ^GMT(142,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(142.01,1,1,1,"%D",0)="^^4^4^2920714^^^"
^DD(142.01,1,1,1,"%D",1,0)="This REGULAR FileMan type cross-reference is used both in look-ups of"
^DD(142.01,1,1,1,"%D",2,0)="components and to determine whether the selected component already"
^DD(142.01,1,1,1,"%D",3,0)="exists in the current Health Summary Type during the Create/Modify"
^DD(142.01,1,1,1,"%D",4,0)="process."
^DD(142.01,1,1,2,0)="142.01^AM1^MUMPS"
^DD(142.01,1,1,2,1)="D REDOX^GMTSDD"
^DD(142.01,1,1,2,2)="D REDOX^GMTSDD"
^DD(142.01,1,1,2,"%D",0)="^^4^4^2950731^"
^DD(142.01,1,1,2,"%D",1,0)="This MUMPS type cross-reference is used to recompile the navigational and"
^DD(142.01,1,1,2,"%D",2,0)="ad hoc menus when components are added to/deleted from a given Health"
^DD(142.01,1,1,2,"%D",3,0)="Summary Type. The ^XUTL(""XQORM"", global is used by the Unwinder utility to"
^DD(142.01,1,1,2,"%D",4,0)="generate the ad hoc and navigational menus."
^DD(142.01,1,1,3,0)="142^AE"
^DD(142.01,1,1,3,1)="S ^GMT(142,""AE"",$E(X,1,30),DA(1),DA)="""""
^DD(142.01,1,1,3,2)="K ^GMT(142,""AE"",$E(X,1,30),DA(1),DA)"
^DD(142.01,1,1,3,"%D",0)="^^4^4^2920302^^"
^DD(142.01,1,1,3,"%D",1,0)="This cross-reference is used by the routine ^GMTSDD to build the navigational"
^DD(142.01,1,1,3,"%D",2,0)="menu for each Health Summary Type, and by ^GMTSLOAD when saving the current"
^DD(142.01,1,1,3,"%D",3,0)="default parameters, prior to deleting and rebuilding the Ad Hoc Health"
^DD(142.01,1,1,3,"%D",4,0)="Summary Type."
^DD(142.01,1,3)="Enter the name of the segment (e.g., DEMOGRAPHICS)"
^DD(142.01,1,21,0)="^^3^3^2950829^^^"
^DD(142.01,1,21,1,0)="This is the name of the next health summary component to be included in"
^DD(142.01,1,21,2,0)="the report (e.g., SURGERY REPORTS, or CHEMISTRY & HEMATOLOGY).  Valid"
^DD(142.01,1,21,3,0)="abbreviations (e.g., SR or CH) or partial names may also be entered."
^DD(142.01,1,"DT")="2900329"
^DD(142.01,2,0)="OCCURRENCE LIMIT^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(142.01,2,3)="Enter occurrence limit of information to display.  Omit if no limit.  Occurrence limit displays are based on most recent information first. "
^DD(142.01,2,21,0)="^^6^6^2940418^^"
^DD(142.01,2,21,1,0)="This is an integer number describing the number of occurrences (e.g., lab"
^DD(142.01,2,21,2,0)="orders, surgeries, radiology procedures, etc.) to be reported by the"
^DD(142.01,2,21,3,0)="component.  For example, if 5 is entered the component will only present"
^DD(142.01,2,21,4,0)="the five most recent occurrences.  If no limit is entered, the component"
^DD(142.01,2,21,5,0)="will report as many occurrences as may be found within the specified"
^DD(142.01,2,21,6,0)="time interval."
^DD(142.01,3,0)="TIME LIMIT^FX^^0;4^S X=$$UP^XLFSTR(X) K:$L(X)>5!($L(X)<1)!'((X?1N.N1U)!(X?1N.N1""D"")!(X?1N.N1""W"")!(X?1N.N1""M"")!(X?1N.N1""Y"")) X"
^DD(142.01,3,3)="Enter time limit to display (e.g., 20D, 8W, 3M, 5Y).  Omit if no limit. Time limit displays are based on most recent information first."
^DD(142.01,3,21,0)="^^8^8^2940914^"
^DD(142.01,3,21,1,0)="This is a code describing how far back the component should search for a"
^DD(142.01,3,21,2,0)="given patient's data.  It will be a number, followed by the letter D for"
^DD(142.01,3,21,3,0)="days, W for weeks, M for months or Y for years (e.g., 30D would denote the"
^DD(142.01,3,21,4,0)="past 30 days' patient data should be included in the component).  If no"
^DD(142.01,3,21,5,0)="limit is indicated, the component assumes an indefinite time interval."
^DD(142.01,3,21,6,0)="Exceptions are the Outpatient, Unit Dose and Intravenous Pharmacy"
^DD(142.01,3,21,7,0)="components, which will show active orders only when no time limit is"
^DD(142.01,3,21,8,0)="entered."
^DD(142.01,3,"DT")="2950823"
^DD(142.01,4,0)="SELECTION ITEM^142.14VA^^1;0"
^DD(142.01,4,21,0)="^.001^7^7^3060207^^^^"
^DD(142.01,4,21,1,0)="If the component allows selection of specific items, they will be selected"
^DD(142.01,4,21,2,0)="here.  Component examples are Lab Tests Selected, Lab Cumulatives"
^DD(142.01,4,21,3,0)="Selected, Radiology Impressions Selected, and Vital Signs Selected."
^DD(142.01,4,21,4,0)=" "
^DD(142.01,4,21,5,0)="You will be asked to enter selection items such as Lab Tests, Radiology"
^DD(142.01,4,21,6,0)="Procedures, Vital Sign Types, Measurement Panel, Clinical"
^DD(142.01,4,21,7,0)="Reminder/Maintenance, Health Factor, depending on the component."
^DD(142.01,4,21,8,0)="Factor, depending on the component."
^DD(142.01,4,22)=""
^DD(142.01,5,0)="HEADER NAME^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(142.01,5,1,0)="^.1"
^DD(142.01,5,1,1,0)="142.01^AM5^MUMPS"
^DD(142.01,5,1,1,1)="D REDOX^GMTSDD"
^DD(142.01,5,1,1,2)="D REDOX^GMTSDD"
^DD(142.01,5,1,1,"%D",0)="^^3^3^2950731^"
^DD(142.01,5,1,1,"%D",1,0)="This MUMPS type cross reference will recompile the AD HOC menu when an"
^DD(142.01,5,1,1,"%D",2,0)="entry is modified. The ^XUTL(""XQORM"", global is used by the Unwinder"
^DD(142.01,5,1,1,"%D",3,0)="utility to generate the ad hoc menu."
^DD(142.01,5,1,1,"DT")="2911212"
^DD(142.01,5,3)="Answer must be 2-20 characters in length."
^DD(142.01,5,21,0)="^^4^4^2911127^^^^"
^DD(142.01,5,21,1,0)="This is the name that will appear in both menus and headers within this"
^DD(142.01,5,21,2,0)="Health Summary type.  (e.g., if you are setting up the LAB SELECTED"
^DD(142.01,5,21,3,0)="CUMULATIVE component, and would like it to include the tests from a Chem 7,"
^DD(142.01,5,21,4,0)="you might enter Chem 7)."
^DD(142.01,5,"DT")="2911212"
^DD(142.01,6,0)="HOSPITAL LOCATION DISPLAYED^S^Y:yes;N:no;^0;6^Q"
^DD(142.01,6,3)="Enter Yes if Hospital Location abbreviation should appear in this component."
^DD(142.01,6,21,0)="^^4^4^2950728^^^"
^DD(142.01,6,21,1,0)="This field controls whether or not the hospital location abbreviation will"
^DD(142.01,6,21,2,0)="be displayed in any components where hospital location applies (e.g., PCE"
^DD(142.01,6,21,3,0)="Outpatient Encounters, PCE Outpatient Diagnosis). The text displayed is"
^DD(142.01,6,21,4,0)="obtained from the Hospital Location file."
^DD(142.01,6,"DT")="2940418"
^DD(142.01,7,0)="ICD TEXT DISPLAYED^S^L:long text;S:short text;C:code only;T:text only;N:none;^0;7^Q"
^DD(142.01,7,3)="Indicate whether the long form, short form, code only, text only, or no form of ICD diagnosis text should appear in applicable components."
^DD(142.01,7,21,0)="^^7^7^2950728^"
^DD(142.01,7,21,1,0)="This field controls hows ICD text is displayed in components where ICD"
^DD(142.01,7,21,2,0)="Text applies (e.g., PCE Outpatient Encounters, PCE Outpatient Diagnosis"
^DD(142.01,7,21,3,0)="and Problem List All). The applicable component display/print can be"
^DD(142.01,7,21,4,0)="customized to include ICD Text in the following format: code and long"
^DD(142.01,7,21,5,0)="description, code and short description, code only, long description only"
^DD(142.01,7,21,6,0)="or nothing. This control is independent of whether provider narrative is"
^DD(142.01,7,21,7,0)="displayed -- either or both may be specified."
^DD(142.01,7,"DT")="2950119"
^DD(142.01,8,0)="PROVIDER NARRATIVE DISPLAYED^S^Y:yes;N:no;^0;8^Q"
^DD(142.01,8,3)="Enter 'N' to eliminate the provider narrative from component display."
^DD(142.01,8,21,0)="^^6^6^3000329^^"
^DD(142.01,8,21,1,0)="This field controls whether provider narrative is displayed or not. It"
^DD(142.01,8,21,2,0)="applies to components where provider narrative is applicable (e.g., PCE"
^DD(142.01,8,21,3,0)="Outpatient Encounters, PCE Outpatient Diagnosis, Problem List All). This"
^DD(142.01,8,21,4,0)="control is independent of whether or not ICD text is displayed -- either"
^DD(142.01,8,21,5,0)="or both may be specified. If not specified, provider narrative will be"
^DD(142.01,8,21,6,0)="displayed by default."
^DD(142.01,8,"DT")="2940419"
^DD(142.01,9,0)="CPT MODIFIERS DISPLAYED^S^Y:YES;N:NO;^0;9^Q"
^DD(142.01,9,3)="Enter 'N' to eliminate the CPT Modifiers from component display. "
^DD(142.01,9,21,0)="^^4^4^3000329^"
^DD(142.01,9,21,1,0)="This field controls whether CPT Modifiers are displayed or not. It applies to "
^DD(142.01,9,21,2,0)="components where CPT Modifiers are applicable (e.g. surgical components) This "
^DD(142.01,9,21,3,0)="control is independent of whether or not CPT text is displayed.  If not "
^DD(142.01,9,21,4,0)="specified, CPT Modifiers will be displayed by default."
^DD(142.01,9,"DT")="3000329"
^DD(142.01,"B","COMPONENT NAME",1)=""
^DD(142.01,"B","CPT MODIFIERS DISPLAYED",9)=""
^DD(142.01,"B","HEADER NAME",5)=""
^DD(142.01,"B","HOSPITAL LOCATION DISPLAYED",6)=""
^DD(142.01,"B","ICD TEXT DISPLAYED",7)=""
^DD(142.01,"B","OCCURRENCE LIMIT",2)=""
^DD(142.01,"B","PROVIDER NARRATIVE DISPLAYED",8)=""
^DD(142.01,"B","SELECTION ITEM",4)=""
^DD(142.01,"B","SUMMARY ORDER",.01)=""
^DD(142.01,"B","TIME LIMIT",3)=""
^DD(142.01,"GL",0,1,.01)=""
^DD(142.01,"GL",0,2,1)=""
^DD(142.01,"GL",0,3,2)=""
^DD(142.01,"GL",0,4,3)=""
^DD(142.01,"GL",0,5,5)=""
^DD(142.01,"GL",0,6,6)=""
^DD(142.01,"GL",0,7,7)=""
^DD(142.01,"GL",0,8,8)=""
^DD(142.01,"GL",0,9,9)=""
^DD(142.01,"GL",1,0,4)=""
^DD(142.01,"IX",.01)=""
^DD(142.01,"IX",1)=""
^DD(142.01,"IX",5)=""
^DD(142.01,"RQ",.01)=""
^DD(142.01,"RQ",1)=""
^DD(142.01,"SB",142.14,4)=""
^DD(142.1,0)="FIELD^^14^18"
^DD(142.1,0,"DDA")="N"
^DD(142.1,0,"DT")="3000329"
^DD(142.1,0,"IX","AM",142.1,5)=""
^DD(142.1,0,"IX","AM1",142.1,.01)=""
^DD(142.1,0,"IX","AM2",142.1,3)=""
^DD(142.1,0,"IX","AM9",142.1,9)=""
^DD(142.1,0,"IX","B",142.1,.01)=""
^DD(142.1,0,"IX","C",142.1,3)=""
^DD(142.1,0,"IX","D",142.1,9)=""
^DD(142.1,0,"NM","HEALTH SUMMARY COMPONENT")=""
^DD(142.1,0,"PT",101.24,.192)=""
^DD(142.1,0,"PT",142.01,1)=""
^DD(142.1,0,"PT",394.71,.04)=""
^DD(142.1,0,"VR")="2.7"
^DD(142.1,0,"VRPK")="GMTS"
^DD(142.1,.001,0)="NUMBER^NJ10,0X^^ ^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D CHKNUM^GMTSDD"
^DD(142.1,.001,3)="Enter your station number, followed by 001 to 999."
^DD(142.1,.001,21,0)="^^4^4^2920914^^^^"
^DD(142.1,.001,21,1,0)="This is the internal record number of the component record.  If you are"
^DD(142.1,.001,21,2,0)="creating a new component, then this should be a sequential number,"
^DD(142.1,.001,21,3,0)="preceded by your station number (e.g., station number 660 should number"
^DD(142.1,.001,21,4,0)="custom-built components from 660001-660999, etc.)."
^DD(142.1,.001,"DT")="2920914"
^DD(142.1,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X D:$D(X) CHKNAME^GMTSDD"
^DD(142.1,.01,1,0)="^.1"
^DD(142.1,.01,1,1,0)="142.1^B"
^DD(142.1,.01,1,1,1)="S ^GMT(142.1,""B"",$E(X,1,30),DA)="""""
^DD(142.1,.01,1,1,2)="K ^GMT(142.1,""B"",$E(X,1,30),DA)"
^DD(142.1,.01,1,1,"%D",0)="^^2^2^2920302^"
^DD(142.1,.01,1,1,"%D",1,0)="This whole-file, REGULAR FileMan cross-reference is used for look-ups of"
^DD(142.1,.01,1,1,"%D",2,0)="components by NAME."
^DD(142.1,.01,1,2,0)="142.1^AM1^MUMPS"
^DD(142.1,.01,1,2,1)="D REDO^GMTSDD"
^DD(142.1,.01,1,2,2)="D REDO^GMTSDD"
^DD(142.1,.01,1,2,"%D",0)="^^4^4^2950731^"
^DD(142.1,.01,1,2,"%D",1,0)="This MUMPS type cross-reference is used to rebuild the ad hoc and"
^DD(142.1,.01,1,2,"%D",2,0)="navigational menus when the NAME of a given component is modified. The"
^DD(142.1,.01,1,2,"%D",3,0)="^XUTL(""XQORM"", global is used by the Unwinder utility to generate the ad"
^DD(142.1,.01,1,2,"%D",4,0)="hoc and navigational menus."
^DD(142.1,.01,3)="Answer must be 3-30 characters in length."
^DD(142.1,.01,21,0)="^^3^3^2920109^^^^"
^DD(142.1,.01,21,1,0)="This is the name of the health summary component, which both uniquely"
^DD(142.1,.01,21,2,0)="identifies the component's record for look-ups, sorts, etc. and is also"
^DD(142.1,.01,21,3,0)="displayed in the component header, when the health summary is run."
^DD(142.1,.01,"DEL",1,0)="I $S(+$G(DUZ(2))'>0:1,DUZ(2)=5000:0,(DA'<(DUZ(2)_""001"")&(DA'>(DUZ(2)_""999""))):0,1:1) W !,$S(+$G(DUZ(2)):""ONLY Components Created at your site can be deleted"",1:""DUZ(2) MUST equal your STATION NUMBER"")"
^DD(142.1,.01,"DEL",2,0)="I '$D(GMCMP) W $C(7),!!,""You may only delete COMPONENTS using the GMTS IRM COMP ENTER/EDIT OPTION."",!"
^DD(142.1,.01,"DT")="2911212"
^DD(142.1,1,0)="PRINT ROUTINE^RFX^^0;2^K:$L(X)>17!($L(X)<3)!'(X?1U1.7UN1"";""1U1.7UN) X I $D(X) D CHKRTN^GMTSDD"
^DD(142.1,1,3)="Component Print Routine in form LINETAG;ROUTINENAME (e.g., MAIN;GMTSLRC)"
^DD(142.1,1,8.5)="@"
^DD(142.1,1,9)="@"
^DD(142.1,1,21,0)="3^^3^3^2990428^^"
^DD(142.1,1,21,1,0)="This is the entry point and routine to be called when the component is"
^DD(142.1,1,21,2,0)="run for a given health summary type.  Enter the line label, followed by"
^DD(142.1,1,21,3,0)="a semi-colon, followed by the routine name (e.g., MAIN;GMTSLRC)."
^DD(142.1,1,"DT")="2920109"
^DD(142.1,1.1,0)="EXTERNAL/EXTRACT ROUTINE^142.11^^.1;0"
^DD(142.1,1.1,21,0)="^^1^1^2990616^^^^"
^DD(142.1,1.1,21,1,0)="Source of Health Summary Component data."
^DD(142.1,2,0)="TIME LIMITS APPLICABLE^S^Y:yes;^0;3^Q"
^DD(142.1,2,3)="Enter YES if time limits apply to this component."
^DD(142.1,2,21,0)="^^3^3^2950728^^^^"
^DD(142.1,2,21,1,0)="This field is set up by the programmer to indicate whether the routine to"
^DD(142.1,2,21,2,0)="print this component will allow a time range to be applied to the data"
^DD(142.1,2,21,3,0)="to be displayed in the Health Summary."
^DD(142.1,2,"DT")="2920109"
^DD(142.1,3,0)="ABBREVIATION^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2)!'(X?2.4UN) X"
^DD(142.1,3,1,0)="^.1"
^DD(142.1,3,1,1,0)="142.1^C"
^DD(142.1,3,1,1,1)="S ^GMT(142.1,""C"",$E(X,1,30),DA)="""""
^DD(142.1,3,1,1,2)="K ^GMT(142.1,""C"",$E(X,1,30),DA)"
^DD(142.1,3,1,1,"%D",0)="^^2^2^2920302^"
^DD(142.1,3,1,1,"%D",1,0)="This whole-file, REGULAR FileMan cross-reference is used in look-ups of"
^DD(142.1,3,1,1,"%D",2,0)="components by ABBREVIATION."
^DD(142.1,3,1,2,0)="142.1^AM2^MUMPS"
^DD(142.1,3,1,2,1)="D REDO^GMTSDD"
^DD(142.1,3,1,2,2)="D REDO^GMTSDD"
^DD(142.1,3,1,2,"%D",0)="^^4^4^2950731^^"
^DD(142.1,3,1,2,"%D",1,0)="This MUMPS type cross-reference is used to rebuild the ad hoc and"
^DD(142.1,3,1,2,"%D",2,0)="navigational menus when the ABBREVIATION of a given component is modified."
^DD(142.1,3,1,2,"%D",3,0)="The ^XUTL(""XQORM"", global is used by the Unwinder utility to generate the"
^DD(142.1,3,1,2,"%D",4,0)="ad hoc and navigational menus."
^DD(142.1,3,3)="Answer must be 2-4 characters in length."
^DD(142.1,3,21,0)="^^4^4^2950731^^^^"
^DD(142.1,3,21,1,0)="This 2-4 character abbreviation should uniquely identify the component,"
^DD(142.1,3,21,2,0)="since it is used both for lookup in the build health summary and ad hoc"
^DD(142.1,3,21,3,0)="health summary options, and for navigation between components when the"
^DD(142.1,3,21,4,0)="health summary is run interactively."
^DD(142.1,3,"DT")="2920110"
^DD(142.1,3.5,0)="DESCRIPTION^142.35^^3.5;0"
^DD(142.1,4,0)="MAXIMUM OCCURRENCES APPLICABLE^S^Y:yes;^0;5^Q"
^DD(142.1,4,3)="Enter YES if maximum occurrence limits apply to this component."
^DD(142.1,4,21,0)="^^3^3^2950728^^^^"
^DD(142.1,4,21,1,0)="This field is used by the programmer to indicate whether the routine which"
^DD(142.1,4,21,2,0)="prints this component is set up to handle maximum occurrence limits"
^DD(142.1,4,21,3,0)="on the Health Summary."
^DD(142.1,4,"DT")="2920109"
^DD(142.1,5,0)="DISABLE FLAG^S^T:temporary;P:permanent;^0;6^Q"
^DD(142.1,5,1,0)="^.1"
^DD(142.1,5,1,1,0)="142.1^AM^MUMPS"
^DD(142.1,5,1,1,1)="D REDO^GMTSDD"
^DD(142.1,5,1,1,2)="D REDO^GMTSDD"
^DD(142.1,5,1,1,"%D",0)="^^4^4^2950731^"
^DD(142.1,5,1,1,"%D",1,0)="This MUMPS type cross-reference is used to rebuild the ad hoc and"
^DD(142.1,5,1,1,"%D",2,0)="navigational menus when a given component is DISABLED. The ^XUTL(""XQORM"","
^DD(142.1,5,1,1,"%D",3,0)="global is used by the Unwinder utility to generate the ad hoc and"
^DD(142.1,5,1,1,"%D",4,0)="navigational menus."
^DD(142.1,5,21,0)="^^10^10^2951017^^^^"
^DD(142.1,5,21,1,0)="IRM Staff or Clin Coordinator:  Use this field to disable (inactivate)"
^DD(142.1,5,21,2,0)="a health summary component (e.g., Lab Orders).  Setting this DISABLE"
^DD(142.1,5,21,3,0)="FLAG field to P(ermanent) causes a component to be non-selectable for use,"
^DD(142.1,5,21,4,0)="and prevents the component from being printed in any Health Summary"
^DD(142.1,5,21,5,0)="in which it is included.  Setting DISABLE FLAG to T(emporary) causes"
^DD(142.1,5,21,6,0)="a component to be non-selectable for use, but its OUT OF ORDER MESSAGE"
^DD(142.1,5,21,7,0)="will appear in any Health Summary in which it is included."
^DD(142.1,5,21,8,0)=" "
^DD(142.1,5,21,9,0)="Use the at-sign (@) at the DISABLE FLAG: permanent (or temporary)// prompt,"
^DD(142.1,5,21,10,0)="to enable the component for use."
^DD(142.1,5,"DT")="2911122"
^DD(142.1,6,0)="LOCK^FX^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) Q:$D(^DIC(19.1,""B"",X))  K X W !,$C(7),""Lock name must match exactly with a key in the SECURITY KEY file."""
^DD(142.1,6,3)="Enter the name of the security key required to have access to this component."
^DD(142.1,6,21,0)="^^2^2^2901017^^^^"
^DD(142.1,6,21,1,0)="To be used for components such as psychology test results"
^DD(142.1,6,21,2,0)="Restricts viewing access under Print Health Summary Menu"
^DD(142.1,6,"DT")="2950816"
^DD(142.1,7,0)="SELECTION FILE^142.17P^^1;0"
^DD(142.1,7,21,0)="^^10^10^2960808^"
^DD(142.1,7,21,1,0)="Enter the name or number of the file from which selection items (e.g., lab"
^DD(142.1,7,21,2,0)="tests (file 60), radiology procedures (file 71), vital signs (file"
^DD(142.1,7,21,3,0)="120.51), PCE reminder/maintenance item (file 811.9) may be chosen for this"
^DD(142.1,7,21,4,0)="component."
^DD(142.1,7,21,5,0)=" "
^DD(142.1,7,21,6,0)="The file you identify here must have its ""Application Group"""
^DD(142.1,7,21,7,0)="multiple include ""GMTS"" BEFORE it can be selected as a selection file."
^DD(142.1,7,21,8,0)=" "
^DD(142.1,7,21,9,0)="Components which require selection of items should have its component"
^DD(142.1,7,21,10,0)="name include the word ""SELECTED""."
^DD(142.1,8,0)="OUT OF ORDER MESSAGE^F^^0;8^K:$L(X)>78!($L(X)<3) X"
^DD(142.1,8,3)="Answer must be 3-78 characters in length."
^DD(142.1,8,21,0)="^^3^3^2910117^"
^DD(142.1,8,21,1,0)="This field is used when a health summary component is temporarily disabled."
^DD(142.1,8,21,2,0)="If it is filled in, the message here will be displayed whenever the user"
^DD(142.1,8,21,3,0)="attempts to select the component"
^DD(142.1,8,"DT")="2910117"
^DD(142.1,9,0)="DEFAULT HEADER NAME^F^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(142.1,9,1,0)="^.1"
^DD(142.1,9,1,1,0)="142.1^AM9^MUMPS"
^DD(142.1,9,1,1,1)="D REDO^GMTSDD"
^DD(142.1,9,1,1,2)="D REDO^GMTSDD"
^DD(142.1,9,1,1,"%D",0)="^^4^4^2950731^"
^DD(142.1,9,1,1,"%D",1,0)="This MUMPS type cross-reference is used to recompile the ad hoc and"
^DD(142.1,9,1,1,"%D",2,0)="navigational menus when the DEFAULT HEADER NAME of a given component is"
^DD(142.1,9,1,1,"%D",3,0)="modified. The ^XUTL(""XQORM"", global is used by the Unwinder utility to"
^DD(142.1,9,1,1,"%D",4,0)="generate the ad hoc and navigational menus."
^DD(142.1,9,1,1,"DT")="2911122"
^DD(142.1,9,1,2,0)="142.1^D^MUMPS"
^DD(142.1,9,1,2,1)="S ^GMT(142.1,""D"",$$UP^XLFSTR(X),DA)="""""
^DD(142.1,9,1,2,2)="K ^GMT(142.1,""D"",$$UP^XLFSTR(X),DA)"
^DD(142.1,9,1,2,"%D",0)="^^2^2^2951016^"
^DD(142.1,9,1,2,"%D",1,0)="This MUMPS type cross-reference is used in look-ups of components"
^DD(142.1,9,1,2,"%D",2,0)="by DEFAULT HEADER NAME."
^DD(142.1,9,1,2,"DT")="2951016"
^DD(142.1,9,3)="Answer must be 2-20 characters in length."
^DD(142.1,9,21,0)="^^5^5^2920928^^^^"
^DD(142.1,9,21,1,0)="The DEFAULT HEADER NAME will appear in menus and component headers in"
^DD(142.1,9,21,2,0)="preference to the COMPONENT NAME, but NOT in preference to the local"
^DD(142.1,9,21,3,0)="HEADER NAME, if it is defined for that component within a given Health "
^DD(142.1,9,21,4,0)="Summary Type.  If defined the local HEADER NAME will have precedence"
^DD(142.1,9,21,5,0)="within a given Health Summary Type."
^DD(142.1,9,"DT")="2951016"
^DD(142.1,10,0)="HOSPITAL LOCATION APPLICABLE^S^Y:yes;^0;10^Q"
^DD(142.1,10,3)="Enter YES if Hospital Location abbreviation display applies to this component."
^DD(142.1,10,21,0)="^^3^3^2950731^"
^DD(142.1,10,21,1,0)="This field is used by the programmer to indicate whether the routine which"
^DD(142.1,10,21,2,0)="prints this component is set up to handle the display of the hospital"
^DD(142.1,10,21,3,0)="location abbreviation on the Health Summary."
^DD(142.1,10,21,4,0)="file related components (PCE related components)."
^DD(142.1,10,"DT")="2940418"
^DD(142.1,11,0)="ICD TEXT APPLICABLE^S^Y:yes;^0;11^Q"
^DD(142.1,11,3)="Enter YES if ICD Text display applies to this component."
^DD(142.1,11,21,0)="^^3^3^2950731^"
^DD(142.1,11,21,1,0)="This field is used by the programmer to indicate whether the routine which"
^DD(142.1,11,21,2,0)="prints this component is set up to handle the display of standardized ICD"
^DD(142.1,11,21,3,0)="text on the Health Summary."
^DD(142.1,11,21,4,0)="(PCE related components)."
^DD(142.1,11,"DT")="2940418"
^DD(142.1,12,0)="PROVIDER NARRATIVE APPLICABLE^S^Y:yes;^0;12^Q"
^DD(142.1,12,3)="Enter YES if Provider Narrative display applies to this component."
^DD(142.1,12,21,0)="^^3^3^3000329^^^"
^DD(142.1,12,21,1,0)="This field is used by the programmer to indicate whether the routine which"
^DD(142.1,12,21,2,0)="prints this component is set up to handle the display of the provider"
^DD(142.1,12,21,3,0)="narrative on the Health Summary."
^DD(142.1,12,21,4,0)="(PCE related components)."
^DD(142.1,12,"DT")="2940418"
^DD(142.1,13,0)="PREFIX^F^^0;13^K:$L(X)>4!($L(X)<2) X"
^DD(142.1,13,3)="Answer must be 2-4 characters in length."
^DD(142.1,13,21,0)="^^1^1^2990617^"
^DD(142.1,13,21,1,0)="Namespace of the component's supporting package."
^DD(142.1,13,"DT")="2990617"
^DD(142.1,14,0)="CPT MODIFIER APPLICABLE^S^Y:YES;^0;14^Q"
^DD(142.1,14,21,0)="^^3^3^3000329^^^"
^DD(142.1,14,21,1,0)="This field is used by the programmer to indicate whether the routine which"
^DD(142.1,14,21,2,0)="prints this component is set up to handle the display of CPT Modifiers"
^DD(142.1,14,21,3,0)="on the Health Summary."
^DD(142.1,14,"DT")="3000329"
^DD(142.1,"B","ABBREVIATION",3)=""
^DD(142.1,"B","CPT MODIFIER APPLICABLE",14)=""
^DD(142.1,"B","DEFAULT HEADER NAME",9)=""
^DD(142.1,"B","DESCRIPTION",3.5)=""
^DD(142.1,"B","DISABLE FLAG",5)=""
^DD(142.1,"B","EXTERNAL/EXTRACT ROUTINE",1.1)=""
^DD(142.1,"B","HOSPITAL LOCATION APPLICABLE",10)=""
^DD(142.1,"B","ICD TEXT APPLICABLE",11)=""
^DD(142.1,"B","LOCK",6)=""
^DD(142.1,"B","MAXIMUM OCCURRENCES APPLICABLE",4)=""
^DD(142.1,"B","NAME",.01)=""
^DD(142.1,"B","NUMBER",.001)=""
^DD(142.1,"B","OUT OF ORDER MESSAGE",8)=""
^DD(142.1,"B","PREFIX",13)=""
^DD(142.1,"B","PRINT ROUTINE",1)=""
^DD(142.1,"B","PROVIDER NARRATIVE APPLICABLE",12)=""
^DD(142.1,"B","SELECTION FILE",7)=""
^DD(142.1,"B","TIME LIMITS APPLICABLE",2)=""
^DD(142.1,"GL",0,1,.01)=""
^DD(142.1,"GL",0,2,1)=""
^DD(142.1,"GL",0,3,2)=""
^DD(142.1,"GL",0,4,3)=""
^DD(142.1,"GL",0,5,4)=""
^DD(142.1,"GL",0,6,5)=""
^DD(142.1,"GL",0,7,6)=""
^DD(142.1,"GL",0,8,8)=""
^DD(142.1,"GL",0,9,9)=""
^DD(142.1,"GL",0,10,10)=""
^DD(142.1,"GL",0,11,11)=""
^DD(142.1,"GL",0,12,12)=""
^DD(142.1,"GL",0,13,13)=""
^DD(142.1,"GL",0,14,14)=""
^DD(142.1,"GL",.1,0,1.1)=""
^DD(142.1,"GL",1,0,7)=""
^DD(142.1,"GL",3.5,0,3.5)=""
^DD(142.1,"IX",.01)=""
^DD(142.1,"IX",3)=""
^DD(142.1,"IX",5)=""
^DD(142.1,"IX",9)=""
^DD(142.1,"RQ",.01)=""
^DD(142.1,"RQ",1)=""
^DD(142.1,"SB",142.11,1.1)=""
^DD(142.1,"SB",142.17,7)=""
^DD(142.1,"SB",142.35,3.5)=""
^DD(142.11,0)="EXTERNAL/EXTRACT ROUTINE SUB-FIELD^^.01^1"
^DD(142.11,0,"DT")="2990616"
^DD(142.11,0,"IX","B",142.11,.01)=""
^DD(142.11,0,"NM","EXTERNAL/EXTRACT ROUTINE")=""
^DD(142.11,0,"UP")="142.1"
^DD(142.11,.01,0)="EXTERNAL/EXTRACT ROUTINE^MF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(142.11,.01,.1)="ROUTINE"
^DD(142.11,.01,1,0)="^.1"
^DD(142.11,.01,1,1,0)="142.11^B"
^DD(142.11,.01,1,1,1)="S ^GMT(142.1,DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(142.11,.01,1,1,2)="K ^GMT(142.1,DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(142.11,.01,3)="Answer must be 3-40 characters in length."
^DD(142.11,.01,21,0)="^^5^5^2990616^^"
^DD(142.11,.01,21,1,0)="This is the entry point and routine to be called by the Health Summary "
^DD(142.11,.01,21,2,0)="component print routine to extract report data.  This entry point may be in "
^DD(142.11,.01,21,3,0)="the Health Summary namespace or an external call with an associated Database "
^DD(142.11,.01,21,4,0)="Integration Agreement.  Enter the line label, followed by a semi-colon, "
^DD(142.11,.01,21,5,0)="followed by the routine name (e.g., MAIN;GMTSLRCE)"
^DD(142.11,.01,"DT")="2990616"
^DD(142.11,"B","EXTERNAL/EXTRACT ROUTINE",.01)=""
^DD(142.11,"B","ROUTINE",.01)="1"
^DD(142.11,"GL",0,1,.01)=""
^DD(142.11,"IX",.01)=""
^DD(142.14,0)="SELECTION ITEM SUB-FIELD^^.01^1"
^DD(142.14,0,"DT")="3040303"
^DD(142.14,0,"IX","B",142.14,.01)=""
^DD(142.14,0,"NM","SELECTION ITEM")=""
^DD(142.14,0,"UP")="142.01"
^DD(142.14,.01,0)="SELECTION ITEM^MV^^0;1^"
^DD(142.14,.01,1,0)="^.1"
^DD(142.14,.01,1,1,0)="142.14^B"
^DD(142.14,.01,1,1,1)="S ^GMT(142,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(142.14,.01,1,1,2)="K ^GMT(142,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(142.14,.01,1,1,3)="Required Index for Variable Pointer"
^DD(142.14,.01,1,1,"%D",0)="^^2^2^2920302^"
^DD(142.14,.01,1,1,"%D",1,0)="This REGULAR FileMan type cross-reference is used in look-ups of selection"
^DD(142.14,.01,1,1,"%D",2,0)="items during the Create/Modify and parameter collection dialogues."
^DD(142.14,.01,3)="Selection items can only be selected when appropriate for the component."
^DD(142.14,.01,21,0)="^.001^7^7^3060207^^^^"
^DD(142.14,.01,21,1,0)="When a given component allows the selection of specific items, (e.g., lab"
^DD(142.14,.01,21,2,0)="tests, radiology procedures, vital measurements, measurement panels,"
^DD(142.14,.01,21,3,0)="clinical reminders/maintenance items, health factors, etc.), you may"
^DD(142.14,.01,21,4,0)="select the item by simply entering its name (e.g., POTASSIUM, or PULSE, as"
^DD(142.14,.01,21,5,0)="appropriate). If a limit has been specified for the number of items to be"
^DD(142.14,.01,21,6,0)="selected, then the build health summary option will restrict you to that"
^DD(142.14,.01,21,7,0)="number."
^DD(142.14,.01,"DT")="3060207"
^DD(142.14,.01,"V",0)="^.12P^8^8"
^DD(142.14,.01,"V",1,0)="60^LABORATORY TEST^1^L^y^n"
^DD(142.14,.01,"V",1,1)="S DIC(""S"")=""I ($P(^(0),U,4)=""""CH""""),(""""BO""""[$P(^(0),U,3))"""
^DD(142.14,.01,"V",1,2)="Only Chemistry & Hematology tests may be selected."
^DD(142.14,.01,"V",2,0)="120.51^VITAL TYPE^2^V^n^n"
^DD(142.14,.01,"V",3,0)="71^RADIOLOGY TEST^3^R^n^n"
^DD(142.14,.01,"V",4,0)="811.9^CLINICAL REMINDER/MAINTENANCE^5^C^y^n"
^DD(142.14,.01,"V",4,1)="S DIC(""S"")=""I +$P(^(0),U,6)'=1"""
^DD(142.14,.01,"V",4,2)="Allow selection of items that aren't inactive."
^DD(142.14,.01,"V",5,0)="9999999.64^HEALTH FACTOR^6^F^y^n"
^DD(142.14,.01,"V",5,1)="S DIC(""S"")=$$EN^GMTSGEC S DIC(""W"")=""W ?47,$S($P(^(0),U,10)=""""F"""":""""FACTOR"""",$P(^(0),U,10)=""""C"""":""""CATEGORY"""")"""
^DD(142.14,.01,"V",5,2)="Allow selection of health factor categories and/or individual health factor that are active."
^DD(142.14,.01,"V",6,0)="8925.1^PROGRESS NOTE TITLE^8^PN^y^n"
^DD(142.14,.01,"V",6,1)="S DIC(""S"")=""I $P(^TIU(8925.1,+Y,0),U,4)=""""DOC"""",+$$ISA^TIULX(+Y,3)"""
^DD(142.14,.01,"V",6,2)="Only a PROGRESS NOTE TITLE may be selected."
^DD(142.14,.01,"V",7,0)="81^CPT^7^CPT^n^n"
^DD(142.14,.01,"V",8,0)="601.71^MH TESTS AND SURVEYS^9^M^n^n"
^DD(142.14,.01,"V","B",60,1)=""
^DD(142.14,.01,"V","B",71,3)=""
^DD(142.14,.01,"V","B",81,7)=""
^DD(142.14,.01,"V","B",120.51,2)=""
^DD(142.14,.01,"V","B",601.71,8)=""
^DD(142.14,.01,"V","B",811.9,4)=""
^DD(142.14,.01,"V","B",8925.1,6)=""
^DD(142.14,.01,"V","B",9999999.64,5)=""
^DD(142.14,.01,"V","M","CLINICAL REMINDER/MAINTENANCE",4)=""
^DD(142.14,.01,"V","M","CPT",7)=""
^DD(142.14,.01,"V","M","HEALTH FACTOR",5)=""
^DD(142.14,.01,"V","M","LABORATORY TEST",1)=""
^DD(142.14,.01,"V","M","MH TESTS AND SURVEYS",8)=""
^DD(142.14,.01,"V","M","PROGRESS NOTE TITLE",6)=""
^DD(142.14,.01,"V","M","RADIOLOGY TEST",3)=""
^DD(142.14,.01,"V","M","VITAL TYPE",2)=""
^DD(142.14,.01,"V","O",1,1)=""
^DD(142.14,.01,"V","O",2,2)=""
^DD(142.14,.01,"V","O",3,3)=""
^DD(142.14,.01,"V","O",5,4)=""
^DD(142.14,.01,"V","O",6,5)=""
^DD(142.14,.01,"V","O",7,7)=""
^DD(142.14,.01,"V","O",8,6)=""
^DD(142.14,.01,"V","O",9,8)=""
^DD(142.14,.01,"V","P","C",4)=""
^DD(142.14,.01,"V","P","CPT",7)=""
^DD(142.14,.01,"V","P","F",5)=""
^DD(142.14,.01,"V","P","L",1)=""
^DD(142.14,.01,"V","P","M",8)=""
^DD(142.14,.01,"V","P","PN",6)=""
^DD(142.14,.01,"V","P","R",3)=""
^DD(142.14,.01,"V","P","V",2)=""
^DD(142.14,"B","SELECTION ITEM",.01)=""
^DD(142.14,"GL",0,1,.01)=""
^DD(142.14,"IX",.01)=""
^DD(142.17,0)="SELECTION FILE SUB-FIELD^^1^2"
^DD(142.17,0,"DT")="2910103"
^DD(142.17,0,"IX","B",142.17,.01)=""
^DD(142.17,0,"NM","SELECTION FILE")=""
^DD(142.17,0,"UP")="142.1"
^DD(142.17,.01,0)="SELECTION FILE^M*P1'^DIC(^0;1^S DIC(""S"")=""I $D(^DIC(""""AC"""",""""GMTS"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(142.17,.01,1,0)="^.1"
^DD(142.17,.01,1,1,0)="142.17^B"
^DD(142.17,.01,1,1,1)="S ^GMT(142.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(142.17,.01,1,1,2)="K ^GMT(142.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(142.17,.01,1,1,"%D",0)="^^2^2^2920302^"
^DD(142.17,.01,1,1,"%D",1,0)="This REGULAR FileMan type cross-reference is used during look-ups of"
^DD(142.17,.01,1,1,"%D",2,0)="selection items in the Create/Modify and parameter edit dialogues."
^DD(142.17,.01,12)="Only files that belong to the ""GMTS"" application group are allowed."
^DD(142.17,.01,12.1)="S DIC(""S"")=""I $D(^DIC(""""AC"""",""""GMTS"""",+Y))"""
^DD(142.17,.01,21,0)="^^3^3^2940714^^^^"
^DD(142.17,.01,21,1,0)="Enter the names or numbers of the files from which selection items"
^DD(142.17,.01,21,2,0)="(e.g., lab tests (file 60), radiology procedures (file 71), or vital "
^DD(142.17,.01,21,3,0)="signs (file 120.51)) may be chosen for this component."
^DD(142.17,.01,"DT")="2910103"
^DD(142.17,1,0)="SELECTION COUNT LIMIT^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(142.17,1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(142.17,1,21,0)="^^4^4^2901017^"
^DD(142.17,1,21,1,0)="Enter the MAXIMUM number of selection items which may be selected for"
^DD(142.17,1,21,2,0)="any single appearance of this component in a given health summary type."
^DD(142.17,1,21,3,0)="That is, a value of 7 will allow the user to select as many as seven"
^DD(142.17,1,21,4,0)="items, etc."
^DD(142.17,1,"DT")="2900521"
^DD(142.17,"B","SELECTION COUNT LIMIT",1)=""
^DD(142.17,"B","SELECTION FILE",.01)=""
^DD(142.17,"GL",0,1,.01)=""
^DD(142.17,"GL",0,2,1)=""
^DD(142.17,"IX",.01)=""
^DD(142.2,0)="LOCATION(S) USING THE SUMMARY SUB-FIELD^^.04^4"
^DD(142.2,0,"DT")="2920210"
^DD(142.2,0,"IX","B",142.2,.01)=""
^DD(142.2,0,"NM","LOCATION(S) USING THE SUMMARY")=""
^DD(142.2,0,"UP")="142"
^DD(142.2,.01,0)="LOCATION(S) USING THE SUMMARY^MP44'^SC(^0;1^Q"
^DD(142.2,.01,1,0)="^.1"
^DD(142.2,.01,1,1,0)="142.2^B"
^DD(142.2,.01,1,1,1)="S ^GMT(142,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(142.2,.01,1,1,2)="K ^GMT(142,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(142.2,.01,1,1,"%D",0)="^^2^2^2920302^"
^DD(142.2,.01,1,1,"%D",1,0)="This REGULAR FileMan type cross-reference is used for look-ups of locations"
^DD(142.2,.01,1,1,"%D",2,0)="for which Health Summaries are scheduled."
^DD(142.2,.01,1,2,0)="142^D"
^DD(142.2,.01,1,2,1)="S ^GMT(142,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(142.2,.01,1,2,2)="K ^GMT(142,""D"",$E(X,1,30),DA(1),DA)"
^DD(142.2,.01,1,2,"%D",0)="^^2^2^2920302^^^^"
^DD(142.2,.01,1,2,"%D",1,0)="This whole-file, REGULAR FileMan cross-reference is used for look-ups"
^DD(142.2,.01,1,2,"%D",2,0)="of the Health Summary types which are queued for each location."
^DD(142.2,.01,1,3,0)="142^AW3^MUMPS"
^DD(142.2,.01,1,3,1)="D STL^GMTSUIX"
^DD(142.2,.01,1,3,2)="D KTL^GMTSUIX"
^DD(142.2,.01,1,3,"DT")="2981214"
^DD(142.2,.01,21,0)="^^3^3^2920214^^"
^DD(142.2,.01,21,1,0)="Enter the name of the hospital location (ward or clinic) which is to have"
^DD(142.2,.01,21,2,0)="this health summary type generated on a nightly basis to the device"
^DD(142.2,.01,21,3,0)="specified below."
^DD(142.2,.01,"DT")="2981214"
^DD(142.2,.02,0)="DEVICE FOR NIGHTLY PRINT^P3.5'^%ZIS(1,^0;2^Q"
^DD(142.2,.02,3)="Specify the printer nearest LOCATION."
^DD(142.2,.02,21,0)="^^3^3^2950731^^"
^DD(142.2,.02,21,1,0)="Enter the name of the device on which the summaries for this location"
^DD(142.2,.02,21,2,0)="are to be queued to run each night. Preferably the printer nearest to"
^DD(142.2,.02,21,3,0)="the specified location."
^DD(142.2,.02,"DT")="2900904"
^DD(142.2,.03,0)="PRINT ACTION PROFILE^S^Y:yes;N:no;^0;3^Q"
^DD(142.2,.03,3)="Enter 'Y'es to queue the OUTPATIENT Action Profile with Health Summary"
^DD(142.2,.03,21,0)="^^3^3^2920210^"
^DD(142.2,.03,21,1,0)="This flag will cause the scheduled option GMTS TASK STARTUP to queue the"
^DD(142.2,.03,21,2,0)="OUTPATIENT PHARMACY Action Profile ""in tandem"" with the Health Summary"
^DD(142.2,.03,21,3,0)="for any location where the Health Summary may be queued to print."
^DD(142.2,.03,"DT")="2920210"
^DD(142.2,.04,0)="PRINT DAYS AHEAD^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(142.2,.04,3)="0 means available early morning on day of clinic, 1 means available early morning one day before clinic,etc"
^DD(142.2,.04,21,0)="^^5^5^2901017^"
^DD(142.2,.04,21,1,0)="Determines the number of days prior to scheduled appointments you wish"
^DD(142.2,.04,21,2,0)="to have health summaries printed for a given clinic.  That is, if you"
^DD(142.2,.04,21,3,0)="wish to have summaries printed on the night before the patients are"
^DD(142.2,.04,21,4,0)="scheduled for clinic, enter 0.  If you wish them to be printed two days"
^DD(142.2,.04,21,5,0)="in advance of scheduled visits enter 2, etc."
^DD(142.2,.04,"DT")="2900904"
^DD(142.2,"B","DEVICE FOR NIGHTLY PRINT",.02)=""
^DD(142.2,"B","LOCATION(S) USING THE SUMMARY",.01)=""
^DD(142.2,"B","PRINT ACTION PROFILE",.03)=""
^DD(142.2,"B","PRINT DAYS AHEAD",.04)=""
^DD(142.2,"GL",0,1,.01)=""
^DD(142.2,"GL",0,2,.02)=""
^DD(142.2,"GL",0,3,.03)=""
^DD(142.2,"GL",0,4,.04)=""
^DD(142.2,"IX",.01)=""
^DD(142.35,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(142.35,0,"DT")="2910103"
^DD(142.35,0,"NM","DESCRIPTION")=""
^DD(142.35,0,"UP")="142.1"
^DD(142.35,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(142.35,.01,"DT")="2910103"
^DD(142.35,"B","DESCRIPTION",.01)=""
^DD(142.35,"GL",0,1,.01)=""
^DD(142.5,0)="FIELD^^1^21"
^DD(142.5,0,"DDA")="N"
^DD(142.5,0,"DT")="3021211"
^DD(142.5,0,"IX","AC",142.5,.03)=""
^DD(142.5,0,"IX","B",142.5,.01)=""
^DD(142.5,0,"IX","C",142.5,.01)=""
^DD(142.5,0,"NM","HEALTH SUMMARY OBJECTS")=""
^DD(142.5,0,"VR")="2.7"
^DD(142.5,0,"VRPK")="GMTS"
^DD(142.5,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(142.5,.01,1,0)="^.1"
^DD(142.5,.01,1,1,0)="142.5^B"
^DD(142.5,.01,1,1,1)="S ^GMT(142.5,""B"",$E(X,1,30),DA)="""""
^DD(142.5,.01,1,1,2)="K ^GMT(142.5,""B"",$E(X,1,30),DA)"
^DD(142.5,.01,1,1,"%D",0)="^^2^2^3021030^"
^DD(142.5,.01,1,1,"%D",1,0)="^GMT(142.5,""B"",$E(NAM,1,30),DA)="""" - Where NAM is a 30 character extract of "
^DD(142.5,.01,1,1,"%D",2,0)="the Health Summary Object name."
^DD(142.5,.01,1,2,0)="142.5^C^MUMPS"
^DD(142.5,.01,1,2,1)="S ^GMT(142.5,""C"",$$UP^XLFSTR(X),DA)="""""
^DD(142.5,.01,1,2,2)="K ^GMT(142.5,""C"",$$UP^XLFSTR(X),DA)"
^DD(142.5,.01,1,2,"%D",0)="^^2^2^3021030^"
^DD(142.5,.01,1,2,"%D",1,0)="^GMT(142.5,""C"",UNM,DA)="""" - Where UNM is the uppercase name of the Health "
^DD(142.5,.01,1,2,"%D",2,0)="Summary Object."
^DD(142.5,.01,1,2,"DT")="3021030"
^DD(142.5,.01,3)="Answer must be 3-60 characters in length."
^DD(142.5,.01,10)=""
^DD(142.5,.01,21,0)="^.001^2^2^3021211^^^^"
^DD(142.5,.01,21,1,0)="This is the name of the Health Summary Object to be embedded in another "
^DD(142.5,.01,21,2,0)="document."
^DD(142.5,.01,"DT")="3021211"
^DD(142.5,.02,0)="OBJECT LABEL^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(142.5,.02,3)="Answer must be 3-60 characters in length"
^DD(142.5,.02,4)="D LBH^GMTSOBH"
^DD(142.5,.02,21,0)="^^2^2^3020702^"
^DD(142.5,.02,21,1,0)="This is a string of text, 3 to 79 characters in length, that will precede "
^DD(142.5,.02,21,2,0)="the object embedded in another document to identify the object that follows."
^DD(142.5,.02,"DT")="3020710"
^DD(142.5,.03,0)="HEALTH SUMMARY TYPE^RP142'^GMT(142,^0;3^Q"
^DD(142.5,.03,1,0)="^.1"
^DD(142.5,.03,1,1,0)="142.5^AC"
^DD(142.5,.03,1,1,1)="S ^GMT(142.5,""AC"",$E(X,1,30),DA)="""""
^DD(142.5,.03,1,1,2)="K ^GMT(142.5,""AC"",$E(X,1,30),DA)"
^DD(142.5,.03,1,1,"%D",0)="^^3^3^3020911^"
^DD(142.5,.03,1,1,"%D",1,0)="This is a cross reference on Health Summary Type, used by the GMTS TYPE "
^DD(142.5,.03,1,1,"%D",2,0)="DELETE option to ensure that a user does not delete a Health Summary Type "
^DD(142.5,.03,1,1,"%D",3,0)="used by an Object."
^DD(142.5,.03,1,1,"DT")="3020911"
^DD(142.5,.03,4)="D HSTH^GMTSOBH"
^DD(142.5,.03,21,0)="^^2^2^3020702^"
^DD(142.5,.03,21,1,0)="This is a pointer to the Health Summary Type that will be imbedded as an "
^DD(142.5,.03,21,2,0)="object into another document."
^DD(142.5,.03,"DT")="3020911"
^DD(142.5,.04,0)="REPORT PERIOD^FX^^0;4^K:$L(X)>5!($L(X)<2) X S:$D(X) X=$$TIM^GMTSOBT(X) K:'$L($G(X)) X"
^DD(142.5,.04,3)="Answer with a 2-5 character time period"
^DD(142.5,.04,4)="D TH^GMTSOBT"
^DD(142.5,.04,21,0)="^^2^2^3020702^"
^DD(142.5,.04,21,1,0)="This is a pointer to the Health Summary Type that will be imbedded as an "
^DD(142.5,.04,21,2,0)="object into another document."
^DD(142.5,.04,21,3,0)="elements may be excluded depending on how exclusion fields in this file are "
^DD(142.5,.04,21,4,0)="set."
^DD(142.5,.04,"DT")="3020703"
^DD(142.5,.05,0)="SUPPRESS COMPONENTS W/O DATA^S^1:YES;0:NO;^0;5^Q"
^DD(142.5,.05,4)="D SC^GMTSOBH"
^DD(142.5,.05,21,0)="^^4^4^3020715^"
^DD(142.5,.05,21,1,0)="If this field is set to 1 (YES) and a Health Summary component does not have "
^DD(142.5,.05,21,2,0)="any data, the component will be suppressed.  If this field is not set to 1 "
^DD(142.5,.05,21,3,0)="(YES) and the component does not have any data, then the component will "
^DD(142.5,.05,21,4,0)="print with the statement ""No data available""."
^DD(142.5,.05,"DT")="3020715"
^DD(142.5,.06,0)="SUPPRESS HEADER^S^1:YES;0:NO;^0;6^Q"
^DD(142.5,.06,4)="D RD^GMTSOBH"
^DD(142.5,.06,21,0)="^^4^4^3020702^"
^DD(142.5,.06,21,1,0)="When this field is set to 1 (YES), Health Summary headers will be suppressed"
^DD(142.5,.06,21,2,0)="when printing as an object embedded in another document.  Individual data "
^DD(142.5,.06,21,3,0)="elements may be excluded depending on how exclusion fields in this file are "
^DD(142.5,.06,21,4,0)="set."
^DD(142.5,.06,"DT")="3020702"
^DD(142.5,.07,0)="PRINT LABEL^S^1:YES;0:NO;^0;7^Q"
^DD(142.5,.07,21,0)="^^3^3^3020711^"
^DD(142.5,.07,21,1,0)="When this field is set to 1 (YES), the Health Summary Object Label will be"
^DD(142.5,.07,21,2,0)="printed prior to printing the object.  When it is set to 0 (NO) the Health "
^DD(142.5,.07,21,3,0)="Summary Object Label will be ignored."
^DD(142.5,.07,"DT")="3020711"
^DD(142.5,.08,0)="PRINT BLANK LINE AFTER LABEL^S^1:YES;0:NO;^0;8^Q"
^DD(142.5,.08,4)="D LBLH^GMTSOBH"
^DD(142.5,.08,21,0)="^^3^3^3020716^"
^DD(142.5,.08,21,1,0)="If there is a Label for the object and the Label is to be printed, then a"
^DD(142.5,.08,21,2,0)="blank line may be printed after the object label if this field is set to"
^DD(142.5,.08,21,3,0)="1 (YES)."
^DD(142.5,.08,"DT")="3020716"
^DD(142.5,.09,0)="PRINT REPORT DATE AND TIME^S^1:YES;0:NO;^0;9^Q"
^DD(142.5,.09,4)="D RD^GMTSOBH"
^DD(142.5,.09,21,0)="^^3^3^3020702^"
^DD(142.5,.09,21,1,0)="When this field is set to 1 (YES), the Health Summary report date and time "
^DD(142.5,.09,21,2,0)="will be printed as part of a Health Summary object embedded in another "
^DD(142.5,.09,21,3,0)="document, even if the Health Summary headers are to be suppressed."
^DD(142.5,.09,"DT")="3020702"
^DD(142.5,.1,0)="PRINT CONFIDENTIALITY BANNER^S^1:YES;0:NO;^0;10^Q"
^DD(142.5,.1,4)="D CH^GMTSOBH"
^DD(142.5,.1,21,0)="^^3^3^3020702^"
^DD(142.5,.1,21,1,0)="When this field is set to 1 (YES), the Health Summary confidentiality banner "
^DD(142.5,.1,21,2,0)="will be printed as part of a Health Summary object embedded in another "
^DD(142.5,.1,21,3,0)="document, even if the Health Summary headers are to be suppressed."
^DD(142.5,.1,21,4,0)="suppressed."
^DD(142.5,.1,"DT")="3020702"
^DD(142.5,.11,0)="PRINT REPORT HEADER^S^1:YES;0:NO;^0;11^Q"
^DD(142.5,.11,4)="D RH^GMTSOBH"
^DD(142.5,.11,21,0)="^^4^4^3020702^^"
^DD(142.5,.11,21,1,0)="When this field is set to 1 (YES), the Health Summary report header (and "
^DD(142.5,.11,21,2,0)="accompanying blank line) will be printed as part of a Health Summary object"
^DD(142.5,.11,21,3,0)="embedded in another document, even if the Health Summary headers are to be "
^DD(142.5,.11,21,4,0)="suppressed."
^DD(142.5,.11,"DT")="3020702"
^DD(142.5,.12,0)="PRINT COMPONENT HEADER^S^1:YES;0:NO;^0;12^Q"
^DD(142.5,.12,4)="D CH^GMTSOBH"
^DD(142.5,.12,21,0)="^^3^3^3020702^"
^DD(142.5,.12,21,1,0)="When this field is set to 1 (YES), the Health Summary component headers will"
^DD(142.5,.12,21,2,0)="be printed as part of a Health Summary object embedded in another document, "
^DD(142.5,.12,21,3,0)="even if the Health Summary headers are to be suppressed."
^DD(142.5,.12,21,4,0)="Summary headers are to be suppressed.  For this field to have any effect on "
^DD(142.5,.12,21,5,0)="the display, the field ""PRINT COMPONENT HEADERS"" must also be set to 1"
^DD(142.5,.12,21,6,0)="(YES)."
^DD(142.5,.12,"DT")="3020702"
^DD(142.5,.13,0)="UNDERLINE COMPONENT HEADER^S^1:YES;0:NO;^0;13^Q"
^DD(142.5,.13,4)="D CHU^GMTSOBH"
^DD(142.5,.13,21,0)="^^7^7^3020712^^"
^DD(142.5,.13,21,1,0)="When this field is set to 1 (YES), the a Component Header will be underlined "
^DD(142.5,.13,21,2,0)="with a single dashed line.  For this field to have any effect on the display, "
^DD(142.5,.13,21,3,0)="the field ""PRINT COMPONENT HEADERS"" must also be set to 1 (YES).  "
^DD(142.5,.13,21,4,0)=""
^DD(142.5,.13,21,5,0)="PN - Progress Notes "
^DD(142.5,.13,21,6,0)="-------------------"
^DD(142.5,.13,21,7,0)="<data> "
^DD(142.5,.13,"DT")="3020712"
^DD(142.5,.14,0)="PRINT TIME-OCCURRENCE LIMITS^S^1:YES;0:NO;^0;14^Q"
^DD(142.5,.14,4)="D LM^GMTSOBH"
^DD(142.5,.14,21,0)="^^5^5^3020702^"
^DD(142.5,.14,21,1,0)="When this field is set to 1 (YES), the Health Summary report time and "
^DD(142.5,.14,21,2,0)="occurrence limits will be printed with the Component Header as part of a "
^DD(142.5,.14,21,3,0)="Health Summary object embedded in another document, even if the Health "
^DD(142.5,.14,21,4,0)="Summary headers are to be suppressed.  For this field to have any effect on "
^DD(142.5,.14,21,5,0)="the display, the field ""PRINT COMPONENT HEADERS"" must also be set to 1 (YES)"
^DD(142.5,.14,"DT")="3020702"
^DD(142.5,.15,0)="FORCE BLANK LINE^S^1:YES;0:NO;^0;15^Q"
^DD(142.5,.15,4)="D BL^GMTSOBH"
^DD(142.5,.15,21,0)="^^5^5^3020702^"
^DD(142.5,.15,21,1,0)="When this field is set to 1 (YES), a blank line will be printed after "
^DD(142.5,.15,21,2,0)="each Component Header as part of a Health Summary object embedded in another "
^DD(142.5,.15,21,3,0)="document, even if the Health Summary headers are to be suppressed.  For this "
^DD(142.5,.15,21,4,0)="field to have any effect on the display, the field ""PRINT COMPONENT HEADERS"""
^DD(142.5,.15,21,5,0)="must also be set to 1 (YES)."
^DD(142.5,.15,"DT")="3020702"
^DD(142.5,.16,0)="PRINT DECEASED INFORMATION^S^1:YES;0:NO;^0;16^Q"
^DD(142.5,.16,4)="D DE^GMTSOBH"
^DD(142.5,.16,21,0)="^^6^6^3020702^"
^DD(142.5,.16,21,1,0)="The Health Summary has a conditional line of text that prints with each "
^DD(142.5,.16,21,2,0)="Health Summary Header for patients who are deceased.  This conditional line "
^DD(142.5,.16,21,3,0)="contains the word ""DECEASED"" and the date and time the patient died.  When "
^DD(142.5,.16,21,4,0)="this field is set to 1 (YES), the conditional ""Deceased"" line will be "
^DD(142.5,.16,21,5,0)="printed as part of a Health Summary object embedded in another document, "
^DD(142.5,.16,21,6,0)="even if the Health Summary headers are to be suppressed."
^DD(142.5,.16,"DT")="3020702"
^DD(142.5,.17,0)="CREATOR^P200'^VA(200,^0;17^Q"
^DD(142.5,.17,3)="Enter the creator's name."
^DD(142.5,.17,21,0)="^^1^1^3020702^"
^DD(142.5,.17,21,1,0)="The name of the individual who created the Health Summary object."
^DD(142.5,.17,"DT")="3020712"
^DD(142.5,.18,0)="DATE CREATED^D^^0;18^S %DT=""ESTXR"" D ^%DT S X=Y K:3020101>X X"
^DD(142.5,.18,3)="TYPE A DATE NOT EARLIER THAN JAN 01, 2002"
^DD(142.5,.18,21,0)="^^1^1^3020711^"
^DD(142.5,.18,21,1,0)="This is the date the Object was created."
^DD(142.5,.18,"DT")="3020711"
^DD(142.5,.19,0)="DATE LAST MODIFIED^D^^0;19^S %DT=""ESTXR"" D ^%DT S X=Y K:3020101>X X"
^DD(142.5,.19,3)="TYPE A DATE NOT EARLIER THAN JAN 01, 2002"
^DD(142.5,.19,21,0)="^^1^1^3020711^"
^DD(142.5,.19,21,1,0)="This is the date that this object was last modified."
^DD(142.5,.19,"DT")="3020711"
^DD(142.5,.2,0)="NATIONAL OBJECT^S^1:YES;0:NO;^0;20^Q"
^DD(142.5,.2,21,0)="^^2^2^3020724^"
^DD(142.5,.2,21,1,0)="This field is a flag to indicate an object as being a nationally released "
^DD(142.5,.2,21,2,0)="object."
^DD(142.5,.2,"DT")="3020724"
^DD(142.5,1,0)="OBJECT DESCRIPTION^142.51^^1;0"
^DD(142.5,"B","CREATOR",.17)=""
^DD(142.5,"B","DATE CREATED",.18)=""
^DD(142.5,"B","DATE LAST MODIFIED",.19)=""
^DD(142.5,"B","FORCE BLANK LINE",.15)=""
^DD(142.5,"B","HEALTH SUMMARY TYPE",.03)=""
^DD(142.5,"B","NAME",.01)=""
^DD(142.5,"B","NATIONAL OBJECT",.2)=""
^DD(142.5,"B","OBJECT DESCRIPTION",1)=""
^DD(142.5,"B","OBJECT LABEL",.02)=""
^DD(142.5,"B","PRINT BLANK LINE AFTER LABEL",.08)=""
^DD(142.5,"B","PRINT COMPONENT HEADER",.12)=""
^DD(142.5,"B","PRINT CONFIDENTIALITY BANNER",.1)=""
^DD(142.5,"B","PRINT DECEASED INFORMATION",.16)=""
^DD(142.5,"B","PRINT LABEL",.07)=""
^DD(142.5,"B","PRINT REPORT DATE AND TIME",.09)=""
^DD(142.5,"B","PRINT REPORT HEADER",.11)=""
^DD(142.5,"B","PRINT TIME-OCCURRENCE LIMITS",.14)=""
^DD(142.5,"B","REPORT PERIOD",.04)=""
^DD(142.5,"B","SUPPRESS COMPONENTS W/O DATA",.05)=""
^DD(142.5,"B","SUPPRESS HEADER",.06)=""
^DD(142.5,"B","UNDERLINE COMPONENT HEADER",.13)=""
^DD(142.5,"GL",0,1,.01)=""
^DD(142.5,"GL",0,2,.02)=""
^DD(142.5,"GL",0,3,.03)=""
^DD(142.5,"GL",0,4,.04)=""
^DD(142.5,"GL",0,5,.05)=""
^DD(142.5,"GL",0,6,.06)=""
^DD(142.5,"GL",0,7,.07)=""
^DD(142.5,"GL",0,8,.08)=""
^DD(142.5,"GL",0,9,.09)=""
^DD(142.5,"GL",0,10,.1)=""
^DD(142.5,"GL",0,11,.11)=""
^DD(142.5,"GL",0,12,.12)=""
^DD(142.5,"GL",0,13,.13)=""
^DD(142.5,"GL",0,14,.14)=""
^DD(142.5,"GL",0,15,.15)=""
^DD(142.5,"GL",0,16,.16)=""
^DD(142.5,"GL",0,17,.17)=""
^DD(142.5,"GL",0,18,.18)=""
^DD(142.5,"GL",0,19,.19)=""
^DD(142.5,"GL",0,20,.2)=""
^DD(142.5,"GL",1,0,1)=""
^DD(142.5,"IX",.01)=""
^DD(142.5,"IX",.03)=""
^DD(142.5,"RQ",.01)=""
^DD(142.5,"RQ",.03)=""
^DD(142.5,"RQ",.04)=""
^DD(142.5,"SB",142.51,1)=""
^DD(142.51,0)="OBJECT DESCRIPTION SUB-FIELD^^.01^1"
^DD(142.51,0,"DT")="3020702"
^DD(142.51,0,"NM","OBJECT DESCRIPTION")=""
^DD(142.51,0,"UP")="142.5"
^DD(142.51,.01,0)="OBJECT DESCRIPTION^W^^0;1"
^DD(142.51,.01,21,0)="^^2^2^3020711^^^"
^DD(142.51,.01,21,1,0)="This is a description of the Health Summary Object, and how it is intended"
^DD(142.51,.01,21,2,0)="to be used."
^DD(142.51,.01,"DT")="3020711"
^DD(142.51,"B","OBJECT DESCRIPTION",.01)=""
^DD(142.51,"GL",0,1,.01)=""
^DD(142.98,0)="FIELD^^11^3"
^DD(142.98,0,"DT")="3010116"
^DD(142.98,0,"IX","AB",142.98,.01)=""
^DD(142.98,0,"IX","B",142.98,.01)=""
^DD(142.98,0,"NM","HEALTH SUMMARY USER PREFERENCES")=""
^DD(142.98,0,"VR")="2.7"
^DD(142.98,0,"VRPK")="GMTS"
^DD(142.98,.01,0)="USER^RP200'^VA(200,^0;1^K:$$ACTIVE^XUSER(+($G(X)))=0 X S:$D(X) DINUM=X"
^DD(142.98,.01,1,0)="^.1"
^DD(142.98,.01,1,1,0)="142.98^B"
^DD(142.98,.01,1,1,1)="S ^GMT(142.98,""B"",$E(X,1,30),DA)="""""
^DD(142.98,.01,1,1,2)="K ^GMT(142.98,""B"",$E(X,1,30),DA)"
^DD(142.98,.01,1,2,0)="142.98^AB^MUMPS"
^DD(142.98,.01,1,2,1)="S:$L($$GET1^DIQ(200,+($G(X)),.01)) ^GMT(142.98,""AB"",$$GET1^DIQ(200,+($G(X)),.01),DA)="""""
^DD(142.98,.01,1,2,2)="K:$L($$GET1^DIQ(200,+($G(X)),.01)) ^GMT(142.98,""AB"",$$GET1^DIQ(200,+($G(X)),.01),DA)"
^DD(142.98,.01,1,2,"DT")="3010109"
^DD(142.98,.01,3)=""
^DD(142.98,.01,"DT")="3010109"
^DD(142.98,10,0)="HEALTH SUMMARY LIST BUILD^S^0:OVERWRITE;1:APPEND;^1;1^Q"
^DD(142.98,10,21,0)="^.001^8^8^3010116^^"
^DD(142.98,10,21,1,0)="This field determines how the list of Health Summary Types for the CPRS GUI "
^DD(142.98,10,21,2,0)="report tab is to be organized (APPEND or OVERWRITE) for user selection.  "
^DD(142.98,10,21,3,0)="There are three major classes of Health Summary types, National (remote data "
^DD(142.98,10,21,4,0)="view), user defined and system defined.  User and system Health Summary "
^DD(142.98,10,21,5,0)="Types are defined in the Kernel Parameters file.  Append creates a single "
^DD(142.98,10,21,6,0)="list, removing duplicates, and keeps the National Health Summary types group "
^DD(142.98,10,21,7,0)="together.  Overwrite stops building the list once a single group of Health"
^DD(142.98,10,21,8,0)="Summary Types (User or System) is added to the list."
^DD(142.98,10,"DT")="3010116"
^DD(142.98,11,0)="HEALTH SUMMARY LIST PRIORITY^F^^1;2^K:$L(X)>40!($L(X)<3) X"
^DD(142.98,11,3)="Answer must be 3-40 characters in length."
^DD(142.98,11,21,0)="^.001^4^4^3010102^^"
^DD(142.98,11,21,1,0)="There are three major classes of Health Summary types, National (remote data"
^DD(142.98,11,21,2,0)="view), user defined and system defined.  This field provides order in which "
^DD(142.98,11,21,3,0)="these groups of Health Summary Types are added to the Health Summary Types "
^DD(142.98,11,21,4,0)="list for the CPRS GUI reports tab. "
^DD(142.98,11,"DT")="3010102"
^DD(142.98,"B","HEALTH SUMMARY LIST BUILD",10)=""
^DD(142.98,"B","HEALTH SUMMARY LIST PRIORITY",11)=""
^DD(142.98,"B","USER",.01)=""
^DD(142.98,"GL",0,1,.01)=""
^DD(142.98,"GL",1,1,10)=""
^DD(142.98,"GL",1,2,11)=""
^DD(142.98,"IX",.01)=""
^DD(142.98,"RQ",.01)=""
^DD(142.99,0)="FIELD^^.06^6"
^DD(142.99,0,"DDA")="N"
^DD(142.99,0,"DT")="3061019"
^DD(142.99,0,"IX","B",142.99,.01)=""
^DD(142.99,0,"NM","HEALTH SUMMARY PARAMETERS")=""
^DD(142.99,0,"VR")="2.7"
^DD(142.99,0,"VRPK")="GMTS"
^DD(142.99,.01,0)="NAME^RFX^^0;1^I $L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'=""HOSPITAL"") K X W ""   NAME must be HOSPITAL."""
^DD(142.99,.01,1,0)="^.1"
^DD(142.99,.01,1,1,0)="142.99^B"
^DD(142.99,.01,1,1,1)="S ^GMT(142.99,""B"",$E(X,1,30),DA)="""""
^DD(142.99,.01,1,1,2)="K ^GMT(142.99,""B"",$E(X,1,30),DA)"
^DD(142.99,.01,3)="NAME MUST BE HOSPITAL"
^DD(142.99,.01,21,0)="^^3^3^2920914^"
^DD(142.99,.01,21,1,0)="This is the name of the entry in the Health Summary parameters file."
^DD(142.99,.01,21,2,0)="The input transform will restrict entry to one record only, which must"
^DD(142.99,.01,21,3,0)="be named ""HOSPITAL."""
^DD(142.99,.01,"DT")="2920427"
^DD(142.99,.02,0)="PROMPT FOR ACTION PROFILE^S^Y:yes;N:no;^0;2^Q"
^DD(142.99,.02,3)="Enter YES if you'd like users to be prompted to print Action Profiles"
^DD(142.99,.02,21,0)="^^3^3^2951006^^^"
^DD(142.99,.02,21,1,0)="If this parameter is set to Y or YES, the user will be prompted to include"
^DD(142.99,.02,21,2,0)="the Outpatient Pharmacy Action Profile when printing Health Summaries by"
^DD(142.99,.02,21,3,0)="location (both interactive and batch mode) and by patient."
^DD(142.99,.02,"DT")="2951006"
^DD(142.99,.03,0)="INCLUDE COMMENTS FOR LABS^S^Y:yes;N:no;^0;3^Q"
^DD(142.99,.03,3)="Enter YES if comments should appear in Chemistry and Hematology, Lab Tests Selected, and Lab Cumulative Selected components"
^DD(142.99,.03,21,0)="^^13^13^2951006^"
^DD(142.99,.03,21,1,0)="If this parameter is set to Y or YES, the Chemistry & Hematology, the Lab"
^DD(142.99,.03,21,2,0)="Tests Selected and the Lab Cumulative Selected components will present"
^DD(142.99,.03,21,3,0)="comments for results. For the Chemistry & Hematology and the Lab Tests"
^DD(142.99,.03,21,4,0)="Selected components the comments will be displayed immediately following"
^DD(142.99,.03,21,5,0)="the results. For the Lab Cumulative Selected components a lower case"
^DD(142.99,.03,21,6,0)="letter will be displayed to the left of the date for entries with"
^DD(142.99,.03,21,7,0)="comments. Comments will be displayed after all the results are displayed"
^DD(142.99,.03,21,8,0)="with the comments being linked by the lower case letter. Up to 26 comments"
^DD(142.99,.03,21,9,0)="can be included. "
^DD(142.99,.03,21,10,0)=" "
^DD(142.99,.03,21,11,0)="If blank, N or NO, the Chemistry & Hematology and the Lab Tests Selected"
^DD(142.99,.03,21,12,0)="components will present the symbol ""!!"" next to tests which include"
^DD(142.99,.03,21,13,0)="comments, and a footnote referring the user to the Lab Interim Report."
^DD(142.99,.03,"DT")="2951006"
^DD(142.99,.04,0)="SPOOL DEVICE^*P3.5'^%ZIS(1,^0;4^S DIC(""S"")=""I $P($G(^(""""TYPE"""")),U)=""""SPL"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(142.99,.04,3)="Enter a SPOOL DEVICE NAME for Health Summary-PDX interface."
^DD(142.99,.04,12)="Only allow device type of SPOOL to be chosen."
^DD(142.99,.04,12.1)="S DIC(""S"")=""I $P($G(^(""""TYPE"""")),U)=""""SPL"""""""
^DD(142.99,.04,21,0)="^^2^2^2950815^"
^DD(142.99,.04,21,1,0)="This is the SPOOL DEVICE to which Health Summary output can be directed"
^DD(142.99,.04,21,2,0)="during a PDX request for one or more Health Summary Components."
^DD(142.99,.04,"DT")="2950815"
^DD(142.99,.05,0)="INCLUDE BAR CODES ON ACT PROF^S^Y:yes;N:no;^0;5^Q"
^DD(142.99,.05,.1)="INCLUDE BAR CODES ON ACTION PROFILES"
^DD(142.99,.05,3)="Enter YES to include bar codes when Action Profiles are printed by Health Summary."
^DD(142.99,.05,21,0)="^^2^2^2951006^"
^DD(142.99,.05,21,1,0)="If this parameter is set to YES or YES, Bar Codes will be included when"
^DD(142.99,.05,21,2,0)="Outpatient Pharmacy Action Profiles are printed from Health Summary."
^DD(142.99,.05,"DT")="2951006"
^DD(142.99,.06,0)="ERROR MESSAGE RECIPIENT^V^^0;6^"
^DD(142.99,.06,3)="Answer must be 1-25 characters in length"
^DD(142.99,.06,21,0)="^^4^4^3050126^"
^DD(142.99,.06,21,1,0)="This is the user or mail group that will recieve error messages from the "
^DD(142.99,.06,21,2,0)="Health Summary Package when they are sent.  Instances of when error "
^DD(142.99,.06,21,3,0)="messages are sent would be when a tasked batch print job needs to exit "
^DD(142.99,.06,21,4,0)="without producing a report."
^DD(142.99,.06,"DT")="3061019"
^DD(142.99,.06,"V",0)="^.12P^^2"
^DD(142.99,.06,"V",1,0)="200^NEW PERSON^1^P^n^n"
^DD(142.99,.06,"V",1,1)=""
^DD(142.99,.06,"V",1,2)=""
^DD(142.99,.06,"V",2,0)="3.8^MAIL GROUP^2^G^n^n"
^DD(142.99,.06,"V",2,1)=""
^DD(142.99,.06,"V",2,2)=""
^DD(142.99,.06,"V","B",3.8,2)=""
^DD(142.99,.06,"V","B",200,1)=""
^DD(142.99,.06,"V","M","MAIL GROUP",2)=""
^DD(142.99,.06,"V","M","NEW PERSON",1)=""
^DD(142.99,.06,"V","O",1,1)=""
^DD(142.99,.06,"V","O",2,2)=""
^DD(142.99,.06,"V","P","G",2)=""
^DD(142.99,.06,"V","P","P",1)=""
^DD(142.99,"B","ERROR MESSAGE RECIPIENT",.06)=""
^DD(142.99,"B","INCLUDE BAR CODES ON ACT PROF",.05)=""
^DD(142.99,"B","INCLUDE COMMENTS FOR LABS",.03)=""
^DD(142.99,"B","NAME",.01)=""
^DD(142.99,"B","PROMPT FOR ACTION PROFILE",.02)=""
^DD(142.99,"B","SPOOL DEVICE",.04)=""
^DD(142.99,"GL",0,1,.01)=""
^DD(142.99,"GL",0,2,.02)=""
^DD(142.99,"GL",0,3,.03)=""
^DD(142.99,"GL",0,4,.04)=""
^DD(142.99,"GL",0,5,.05)=""
^DD(142.99,"GL",0,6,.06)=""
^DD(142.99,"IX",.01)=""
^DD(142.99,"RQ",.01)=""
^DD(150.1,0)="FIELD^^.01^1"
^DD(150.1,0,"DDA")="N"
^DD(150.1,0,"DT")="2961007"
^DD(150.1,0,"IX","B",150.1,.01)=""
^DD(150.1,0,"NM","ANCILLARY DSS ID")=""
^DD(150.1,0,"VR")="2.0"
^DD(150.1,0,"VRPK")="VSIT"
^DD(150.1,.01,0)="AMIS CODE^RNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N)!('$D(^DIC(40.7,""C"",X))) X"
^DD(150.1,.01,1,0)="^.1"
^DD(150.1,.01,1,1,0)="150.1^B"
^DD(150.1,.01,1,1,1)="S ^VSIT(150.1,""B"",$E(X,1,30),DA)="""""
^DD(150.1,.01,1,1,2)="K ^VSIT(150.1,""B"",$E(X,1,30),DA)"
^DD(150.1,.01,3)="Type an AMIS Reporting Code"
^DD(150.1,.01,"DT")="2961029"
^DD(150.1,"B","AMIS CODE",.01)=""
^DD(150.1,"GL",0,1,.01)=""
^DD(150.1,"IX",.01)=""
^DD(150.1,"RQ",.01)=""
^DD(150.2,0)="FIELD^^.03^3"
^DD(150.2,0,"DDA")="N"
^DD(150.2,0,"DT")="2960620"
^DD(150.2,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(150.2,0,"IX","B",150.2,.01)=""
^DD(150.2,0,"IX","C",150.2,.01)=""
^DD(150.2,0,"IX","D",150.2,.02)=""
^DD(150.2,0,"NM","VSIT SITE CODES")=""
^DD(150.2,0,"PT",150.9,402)=""
^DD(150.2,0,"VR")="2.0"
^DD(150.2,0,"VRPK")="VISIT TRACKING"
^DD(150.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(150.2,.01,1,0)="^.1"
^DD(150.2,.01,1,1,0)="150.2^B"
^DD(150.2,.01,1,1,1)="S ^VSIT(150.2,""B"",$E(X,1,30),DA)="""""
^DD(150.2,.01,1,1,2)="K ^VSIT(150.2,""B"",$E(X,1,30),DA)"
^DD(150.2,.01,1,2,0)="150.2^C^KWIC"
^DD(150.2,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "",-""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^VSIT(150.2,""C"",I,DA)="""""
^DD(150.2,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "",-""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^VSIT(150.2,""C"",I,DA)"
^DD(150.2,.01,1,2,"DT")="2960528"
^DD(150.2,.01,3)="Answer must be 3-30 characters in length."
^DD(150.2,.01,"DT")="2960620"
^DD(150.2,.02,0)="CODE^RF^^0;2^K:$L(X)>4!($L(X)<3)!'(X?1U2UN!(X=""TEST"")) X"
^DD(150.2,.02,1,0)="^.1"
^DD(150.2,.02,1,1,0)="150.2^D"
^DD(150.2,.02,1,1,1)="S ^VSIT(150.2,""D"",$E(X,1,30),DA)="""""
^DD(150.2,.02,1,1,2)="K ^VSIT(150.2,""D"",$E(X,1,30),DA)"
^DD(150.2,.02,1,1,"DT")="2960606"
^DD(150.2,.02,3)="Answer must be 3-4 characters in length."
^DD(150.2,.02,21,0)="^^1^1^2960620^^^"
^DD(150.2,.02,21,1,0)="This is the unique site code."
^DD(150.2,.02,"DT")="2960620"
^DD(150.2,.03,0)="SELECTABLE FLAG^RS^1:SELECTABLE;0:NON-SELECTABLE;^0;3^Q"
^DD(150.2,.03,21,0)="^^1^1^2960619^"
^DD(150.2,.03,21,1,0)="This flag determines whether or not an entry may be viewed."
^DD(150.2,.03,"DT")="2960619"
^DD(150.2,"B","CODE",.02)=""
^DD(150.2,"B","NAME",.01)=""
^DD(150.2,"B","SELECTABLE FLAG",.03)=""
^DD(150.2,"GL",0,1,.01)=""
^DD(150.2,"GL",0,2,.02)=""
^DD(150.2,"GL",0,3,.03)=""
^DD(150.2,"IX",.01)=""
^DD(150.2,"IX",.02)=""
^DD(150.2,"RQ",.01)=""
^DD(150.2,"RQ",.02)=""
^DD(150.2,"RQ",.03)=""
^DD(150.9,0)="FIELD^^402^7"
^DD(150.9,0,"DDA")="N"
^DD(150.9,0,"DT")="2960620"
^DD(150.9,0,"IX","B",150.9,.01)=""
^DD(150.9,0,"NM","VISIT TRACKING PARAMETERS")=""
^DD(150.9,0,"VR")="2.0"
^DD(150.9,0,"VRPK")="VISIT TRACKING"
^DD(150.9,.01,0)="NAME^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(150.9,.01,1,0)="^.1"
^DD(150.9,.01,1,1,0)="150.9^B"
^DD(150.9,.01,1,1,1)="S ^DIC(150.9,""B"",$E(X,1,30),DA)="""""
^DD(150.9,.01,1,1,2)="K ^DIC(150.9,""B"",$E(X,1,30),DA)"
^DD(150.9,.01,3)="Enter the Number '1'."
^DD(150.9,.01,21,0)="^^1^1^2931115^^"
^DD(150.9,.01,21,1,0)="A single entry, the number '1', which represents this site."
^DD(150.9,.01,"DT")="2920813"
^DD(150.9,.02,0)="MOBIL CLINIC FLAG^S^1:FULL DHCP;2:MOBILE CLINIC;12:BOTH '1' & '2';^0;2^Q"
^DD(150.9,.02,21,0)="^^2^2^2951012^^"
^DD(150.9,.02,21,1,0)="Flag which was named ""full DHCP"", this did not function as a master switch."
^DD(150.9,.02,21,2,0)="It is left for compatability to mobil clinic code. Packages need to use the package switch for turning on visit tracking for their application."
^DD(150.9,.02,"DT")="2960623"
^DD(150.9,.03,0)="DEFAULT TYPE^RS^I:IHS;C:CONTRACT;T:TRIBAL;O:OTHER;6:638;V:VA;^0;3^Q"
^DD(150.9,.03,21,0)="^^4^4^2921020^^"
^DD(150.9,.03,21,1,0)="If the visit TYPE is not given or the users' agency code is not"
^DD(150.9,.03,21,2,0)="known, then the value given here will be used as a last resort."
^DD(150.9,.03,21,3,0)="Otherwise an error condition will occur, as this is a required field"
^DD(150.9,.03,21,4,0)="in the VISIT file [9000010,.03]."
^DD(150.9,.03,"DT")="2921019"
^DD(150.9,.04,0)="DEFAULT INSTITUTION^RP9999999.06'^AUTTLOC(^0;4^Q"
^DD(150.9,.04,21,0)="^^4^4^2921020^"
^DD(150.9,.04,21,1,0)="If the visit INS is not given or the users' DUZ(2) is not known, then"
^DD(150.9,.04,21,2,0)="the value given here will be used as the last resort.  Otherwise an"
^DD(150.9,.04,21,3,0)="error condition will occur, as this is a required field in the"
^DD(150.9,.04,21,4,0)="VISIT file [9000010.07]."
^DD(150.9,.04,"DT")="2930625"
^DD(150.9,3,0)="PACKAGE^150.93P^^3;0"
^DD(150.9,3,21,0)="^^4^4^2960521^^^^"
^DD(150.9,3,21,1,0)="The Visit Tracking Parameter file has the Package field"
^DD(150.9,3,21,2,0)="which is used as a table.  The table will provide hospitals"
^DD(150.9,3,21,3,0)="the capability of turning the visit creation on and off for"
^DD(150.9,3,21,4,0)="the packages listed in this multiple."
^DD(150.9,401,0)="LAST USED SEQUENCE OF VISIT ID^FI^^4;1^K:$L(X)>10!($L(X)<4)!'(X?4.10NU) X"
^DD(150.9,401,3)="Do not change this field."
^DD(150.9,401,21,0)="^^3^3^2960508^^^^"
^DD(150.9,401,21,1,0)="This is the last sequence used in a visit id used.  Do not change this"
^DD(150.9,401,21,2,0)="field or you can cause problems in reporting you work load.  This is a"
^DD(150.9,401,21,3,0)="base 27 number with each digit form 0123456789BCDFGHJKMNPQRTVWX in order."
^DD(150.9,401,"DT")="2960623"
^DD(150.9,402,0)="SITE PART OF VISIT ID^R*P150.2'I^VSIT(150.2,^4;2^S DIC(""S"")=""I $P($G(^VSIT(150.2,Y,0)),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(150.9,402,3)=""
^DD(150.9,402,12)="Only allow selection of selectable sites"
^DD(150.9,402,12.1)="S DIC(""S"")=""I $P($G(^VSIT(150.2,Y,0)),""""^"""",3)"""
^DD(150.9,402,21,0)="^^4^4^2960620^^^^"
^DD(150.9,402,21,1,0)="This is a three letter identifier for this computer system that is unique"
^DD(150.9,402,21,2,0)="in the VA, or ""TEST"" of a test account.  This is appended after a ""-"" on"
^DD(150.9,402,21,3,0)="to the sequence number to form the unique Visit Id in the VA system.  It is "
^DD(150.9,402,21,4,0)="important that this is set to the correct value and not changed."
^DD(150.9,402,"DT")="2960729"
^DD(150.9,"B","DEFAULT INSTITUTION",.04)=""
^DD(150.9,"B","DEFAULT TYPE",.03)=""
^DD(150.9,"B","LAST USED SEQUENCE OF VISIT ID",401)=""
^DD(150.9,"B","MOBIL CLINIC FLAG",.02)=""
^DD(150.9,"B","NAME",.01)=""
^DD(150.9,"B","PACKAGE",3)=""
^DD(150.9,"B","SITE PART OF VISIT ID",402)=""
^DD(150.9,"GL",0,1,.01)=""
^DD(150.9,"GL",0,2,.02)=""
^DD(150.9,"GL",0,3,.03)=""
^DD(150.9,"GL",0,4,.04)=""
^DD(150.9,"GL",3,0,3)=""
^DD(150.9,"GL",4,1,401)=""
^DD(150.9,"GL",4,2,402)=""
^DD(150.9,"IX",.01)=""
^DD(150.9,"RQ",.01)=""
^DD(150.9,"RQ",.03)=""
^DD(150.9,"RQ",.04)=""
^DD(150.9,"RQ",402)=""
^DD(150.9,"SB",150.93,3)=""
^DD(150.93,0)="PACKAGE SUB-FIELD^^4^2"
^DD(150.93,0,"DT")="2950816"
^DD(150.93,0,"IX","B",150.93,.01)=""
^DD(150.93,0,"NM","PACKAGE")=""
^DD(150.93,0,"UP")="150.9"
^DD(150.93,.01,0)="PACKAGE^MP9.4'^DIC(9.4,^0;1^Q"
^DD(150.93,.01,1,0)="^.1"
^DD(150.93,.01,1,1,0)="150.93^B"
^DD(150.93,.01,1,1,1)="S ^DIC(150.9,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(150.93,.01,1,1,2)="K ^DIC(150.9,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(150.93,.01,21,0)="^^2^2^2940817^^"
^DD(150.93,.01,21,1,0)="The PACKAGE field is a pointer to the PACKAGE file."
^DD(150.93,.01,21,2,0)="This field is referenced by ^VSIT0."
^DD(150.93,.01,"DT")="2940404"
^DD(150.93,4,0)="ACTIVE FLAG^S^0:OFF;1:ON;^3;1^Q"
^DD(150.93,4,21,0)="^^2^2^2950816^^^"
^DD(150.93,4,21,1,0)="If a package is inactive enter ""Yes"" in this field, otherwise, the"
^DD(150.93,4,21,2,0)="package will be considered active and a visit will be created."
^DD(150.93,4,"DT")="2950816"
^DD(150.93,"B","ACTIVE FLAG",4)=""
^DD(150.93,"B","PACKAGE",.01)=""
^DD(150.93,"GL",0,1,.01)=""
^DD(150.93,"GL",3,1,4)=""
^DD(150.93,"IX",.01)=""
^DD(154,0)="FIELD^^1000^57"
^DD(154,0,"DDA")="N"
^DD(154,0,"DT")="3030422"
^DD(154,0,"IX","AD",154,.03)=""
^DD(154,0,"IX","B",154,.01)=""
^DD(154,0,"IX","C",154,.02)=""
^DD(154,0,"NM","SCD (SPINAL CORD) REGISTRY")=""
^DD(154,0,"VR")="2.0"
^DD(154,0,"VRPK")="SPN"
^DD(154,.01,0)="PATIENT^R*P2'X^DPT(^0;1^S DIC(""S"")=""I 1"" D ^DIC K DIC S DIC=DIE,X=+Y S DINUM=+Y K:Y<0 X"
^DD(154,.01,1,0)="^.1"
^DD(154,.01,1,1,0)="154^B"
^DD(154,.01,1,1,1)="S ^SPNL(154,""B"",$E(X,1,30),DA)="""""
^DD(154,.01,1,1,2)="K ^SPNL(154,""B"",$E(X,1,30),DA)"
^DD(154,.01,1,2,0)="^^TRIGGER^154^.02"
^DD(154,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SPNL(154,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(154,.01,1,2,1.4)"
^DD(154,.01,1,2,1.4)="S DIH=$S($D(^SPNL(154,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=154,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(154,.01,1,2,2)="Q"
^DD(154,.01,1,2,"%D",0)="^^2^2^2960215^^"
^DD(154,.01,1,2,"%D",1,0)="When a new registrant is entered, Registration Date will be triggered"
^DD(154,.01,1,2,"%D",2,0)="to be the current date."
^DD(154,.01,1,2,"CREATE VALUE")="TODAY"
^DD(154,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(154,.01,1,2,"DT")="2940826"
^DD(154,.01,1,2,"FIELD")="REGISTRATION DATE"
^DD(154,.01,3)="Enter a new SCD patient, or edit an existing one."
^DD(154,.01,12)="The patient must exist in the patient file."
^DD(154,.01,12.1)="S DIC(""S"")=""I 1"""
^DD(154,.01,21,0)="^^2^2^2950925^"
^DD(154,.01,21,1,0)="This field points to the Patient file. A patient must exist in the"
^DD(154,.01,21,2,0)="patient file before an entry can be made in this file."
^DD(154,.01,23,0)="^^1^1^2950925^^^^"
^DD(154,.01,23,1,0)="This field contains a DEL node, so an entry may not be deleted."
^DD(154,.01,"DEL",1,0)="I 1 W *7,""  PATIENT CAN'T BE DELETED!!"""
^DD(154,.01,"DT")="2991025"
^DD(154,.02,0)="REGISTRATION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(154,.02,1,0)="^.1"
^DD(154,.02,1,1,0)="154^C"
^DD(154,.02,1,1,1)="S ^SPNL(154,""C"",$E(X,1,30),DA)="""""
^DD(154,.02,1,1,2)="K ^SPNL(154,""C"",$E(X,1,30),DA)"
^DD(154,.02,1,1,"DT")="2940712"
^DD(154,.02,3)="This is the date the patient is entered into the local registry."
^DD(154,.02,5,1,0)="154^.01^2"
^DD(154,.02,21,0)="^^2^2^2940825^^^^"
^DD(154,.02,21,1,0)="This date is automatically entered when a patient is added to this file."
^DD(154,.02,21,2,0)="This field may not be changed."
^DD(154,.02,"DT")="2940825"
^DD(154,.03,0)="REGISTRATION STATUS^RS^0:NOT SCD;1:SCD - CURRENTLY SERVED;2:SCD - NOT CURRENTLY SERVED;X:EXPIRED;^0;3^Q"
^DD(154,.03,1,0)="^.1^^-1"
^DD(154,.03,1,1,0)="154^AD"
^DD(154,.03,1,1,1)="S ^SPNL(154,""AD"",$E(X,1,30),DA)="""""
^DD(154,.03,1,1,2)="K ^SPNL(154,""AD"",$E(X,1,30),DA)"
^DD(154,.03,1,1,"DT")="3001220"
^DD(154,.03,3)="This flag designates the status of a SCD patient."
^DD(154,.03,21,0)="^.001^5^5^3001220^^^^"
^DD(154,.03,21,1,0)="SCD - CURRENTLY SERVED designates a patient to be a true SCD patient who"
^DD(154,.03,21,2,0)="is seen at the facility on a continuing basis.  SCD - NOT CURRENTLY SERVED"
^DD(154,.03,21,3,0)="designates a patient to be a true SCD patient who is not being seen at the"
^DD(154,.03,21,4,0)="facility on a continuing basis.  NOT SCD designates a patient who is not a"
^DD(154,.03,21,5,0)="true SCD patient."
^DD(154,.03,"DT")="3021112"
^DD(154,.05,0)="DATE OF LAST REVIEW^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(154,.05,3)="(No range limit on date)"
^DD(154,.05,21,0)="^.001^1^1^3011029^^^"
^DD(154,.05,21,1,0)="This is the date this file was last edited."
^DD(154,.05,23,0)="^.001^2^2^3011029^^^"
^DD(154,.05,23,1,0)="This date is automatically updated when a user edits a patient through"
^DD(154,.05,23,2,0)="the input option."
^DD(154,.05,"DT")="3011029"
^DD(154,.06,0)="LAST UPDATED BY^P200'^VA(200,^0;6^Q"
^DD(154,.06,3)="This is the user who last edited this record."
^DD(154,.06,21,0)="^^2^2^2950911^"
^DD(154,.06,21,1,0)="This field contains the name of the last user to edit this record.  This"
^DD(154,.06,21,2,0)="field is automatically updated whenever an edit is performed."
^DD(154,.06,"DT")="2950911"
^DD(154,1.1,0)="SCI NETWORK^S^1:YES;0:NO;^1;1^Q"
^DD(154,1.1,3)="An SCI NETWORK of Yes means the patient receives (or received, if expired) clinical treatment and follow-up (including annual rehab evaluations) within the SCI Hub and Spoke system of care."
^DD(154,1.1,21,0)="^^4^4^3040629^"
^DD(154,1.1,21,1,0)="When SCI NETWORK is Yes, the patient is (or was, if expired) being"
^DD(154,1.1,21,2,0)="clinically treated and followed for an SCD condition within the SCI Hub"
^DD(154,1.1,21,3,0)="and Spoke system and is either being offered or referred for annual rehab"
^DD(154,1.1,21,4,0)="evaluations."
^DD(154,1.1,"DT")="3040629"
^DD(154,2.1,0)="SCI LEVEL^P154.01'X^SPNL(154.01,^2;1^Q"
^DD(154,2.1,.1)="SCI LEVEL OF INJURY"
^DD(154,2.1,3)="SCI LEVEL OF INJURY"
^DD(154,2.1,4)=""
^DD(154,2.1,21,0)="^^1^1^2940721^"
^DD(154,2.1,21,1,0)="This is a pointer to the SCD NLOI Category file."
^DD(154,2.1,"DT")="3000329"
^DD(154,2.2,0)="MS SUBTYPE^S^UN:UNKNOWN;RR:RELAPSING-REMITTING;PP:PRIMARY PROGRESSIVE;SP:SECONDARY PROGRESSIVE;PR:PROGRESSIVE RELAPSING;^2;2^Q"
^DD(154,2.2,21,0)="^^1^1^2960628^"
^DD(154,2.2,21,1,0)="MS Subtype field."
^DD(154,2.2,"DT")="2960816"
^DD(154,2.4,0)="DESCRIBE CAUSE OTHER^F^^2;4^K:$L(X)>30!($L(X)<3) X"
^DD(154,2.4,3)="Answer must be 3-30 characters in length."
^DD(154,2.4,21,0)="^^2^2^2950619^^"
^DD(154,2.4,21,1,0)="If the cause of injury is listed as 'other', you may enter a description"
^DD(154,2.4,21,2,0)="of the cause here."
^DD(154,2.4,"DT")="2950614"
^DD(154,2.5,0)="DESCRIBE OTHER BODY PART^F^^2;5^K:$L(X)>30!($L(X)<3) X"
^DD(154,2.5,3)="Answer must be 3-30 characters in length."
^DD(154,2.5,21,0)="^^2^2^2950619^"
^DD(154,2.5,21,1,0)="If other body part affected is answered 'yes', you may enter a description"
^DD(154,2.5,21,2,0)="of the part of the body affected here."
^DD(154,2.5,"DT")="2950614"
^DD(154,2.6,0)="VA SCI STATUS^S^1:PARAPLEGIA-TRAUMATIC;2:QUADRIPLEGIA-TRAUMATIC;3:PARAPLEGIA-NONTRAUMATIC;4:QUADRIPLEGIA-NONTRAUMATIC;X:NOT APPLICABLE;^2;6^Q"
^DD(154,2.6,3)=""
^DD(154,2.6,21,0)="^^1^1^2950925^^"
^DD(154,2.6,21,1,0)="This field is used to describe the patient's level and type of injury."
^DD(154,2.6,"DT")="2991116"
^DD(154,3.1,0)="RECEIVED MOST MEDICAL CARE^S^1:VA ONLY;2:MOSTLY VA/SOME NON-VA;3:HALF VA/HALF NON-VA;4:SOME VA/MOSTLY NON-VA;5:NON-VA ONLY;6:DID NOT SEE DOCTOR/NURSE LAST 5 YRS;^3;1^Q"
^DD(154,3.1,3)="Where did patient receive most of his medical care."
^DD(154,3.1,21,0)="^^2^2^2960628^"
^DD(154,3.1,21,1,0)="Where does the patient receive most of his medical care?"
^DD(154,3.1,21,2,0)="Is most of the care at a VA or Non-VA facility?"
^DD(154,3.1,"DT")="2960702"
^DD(154,3.2,0)="PRIMARY CARE VAMC^P4'^DIC(4,^3;2^Q"
^DD(154,3.2,3)="Enter the VAMC facility where patient receives his primary care."
^DD(154,3.2,21,0)="^^1^1^2961024^"
^DD(154,3.2,21,1,0)="Where does the patient receive most of his medical care?"
^DD(154,3.2,"DT")="3020909"
^DD(154,3.3,0)="ANNUAL REHAB VAMC^P4'^DIC(4,^3;3^Q"
^DD(154,3.3,3)="Enter the VAMC facility where pt receives his Annual Rehab Evaluation."
^DD(154,3.3,21,0)="^^1^1^2960912^^"
^DD(154,3.3,21,1,0)="At what facility did the patient receive his annual rehab eval?"
^DD(154,3.3,"DT")="3020909"
^DD(154,3.4,0)="ADDITIONAL CARE VAMC^P4'^DIC(4,^3;4^Q"
^DD(154,3.4,3)="Enter the VAMC at which patient received additional care."
^DD(154,3.4,21,0)="^^1^1^2960912^^"
^DD(154,3.4,21,1,0)="Where did the patient receive additional care?"
^DD(154,3.4,"DT")="3020909"
^DD(154,3.5,0)="NON-VA CARE^F^^3;5^K:$L(X)>35!($L(X)<1) X"
^DD(154,3.5,3)="Answer must be 1-35 characters in length."
^DD(154,3.5,21,0)="^^1^1^2960718^"
^DD(154,3.5,21,1,0)="The Non-VA site that gave the patient care."
^DD(154,3.5,"DT")="2960718"
^DD(154,4,0)="ETIOLOGY^154.004P^^E;0"
^DD(154,5.01,0)="CAUSE OF INJURY^*P154.03'^SPNL(154.03,^5;1^S DIC(""S"")=""I $E($P(^(0),U))'="""" """",$P(^(0),U,2)=""""TC"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154,5.01,3)="If spinal cord injury, enter its cause."
^DD(154,5.01,12)="Only traumatic injuries are selectable"
^DD(154,5.01,12.1)="S DIC(""S"")=""I $E($P(^(0),U))'="""" """",$P(^(0),U,2)=""""TC"""""""
^DD(154,5.01,21,0)="^^2^2^2950822^^"
^DD(154,5.01,21,1,0)="If the patient has a spinal cord injury, enter the patient's cause of"
^DD(154,5.01,21,2,0)="injury."
^DD(154,5.01,"DT")="2950802"
^DD(154,5.02,0)="HAD BRAIN INJURY?^S^0:NO;1:YES;^5;2^Q"
^DD(154,5.02,3)="Enter Y(es) if the patient has a brain injury."
^DD(154,5.02,21,0)="^^2^2^2950619^"
^DD(154,5.02,21,1,0)="If the patient had a spinal cord injury, did he also have a head injury at"
^DD(154,5.02,21,2,0)="the same time?"
^DD(154,5.02,"DT")="2950814"
^DD(154,5.03,0)="HAD AMPUTATION?^S^0:NO;1:YES;^5;3^Q"
^DD(154,5.03,3)="Enter Y(es) if the patient has an amputation."
^DD(154,5.03,21,0)="^^1^1^2950619^"
^DD(154,5.03,21,1,0)="Has the patient ever had an amputation."
^DD(154,5.03,"DT")="2950814"
^DD(154,5.04,0)="MEMORY/THINKING AFFECTED^S^0:NO;1:YES;^5;4^Q"
^DD(154,5.04,3)="Enter Y(es) if the patient's thinking/memory are affected."
^DD(154,5.04,21,0)="^^2^2^2950619^"
^DD(154,5.04,21,1,0)="Spinal cord injury or disease can affect different areas of the body."
^DD(154,5.04,21,2,0)="Answer yes if the patient's memory/thinking are affected."
^DD(154,5.04,"DT")="2950530"
^DD(154,5.05,0)="EYES AFFECTED^S^0:NO;1:YES;^5;5^Q"
^DD(154,5.05,3)="Enter Y(es) if the patient's eyes are affected."
^DD(154,5.05,21,0)="^^2^2^2950619^"
^DD(154,5.05,21,1,0)="Spinal cord injury or disease can affect different areas of the body."
^DD(154,5.05,21,2,0)="Answer yes if the patient's eyes are affected."
^DD(154,5.05,"DT")="2950530"
^DD(154,5.06,0)="ONE ARM AFFECTED^S^0:NO;1:YES;^5;6^Q"
^DD(154,5.06,3)="Enter Y(es) if only one of the patient's arms is affected."
^DD(154,5.06,21,0)="^^2^2^2950619^"
^DD(154,5.06,21,1,0)="Spinal cord injury or disease can affect different areas of the body."
^DD(154,5.06,21,2,0)="Answer yes if one of the patient's arms is affected."
^DD(154,5.06,"DT")="2950530"
^DD(154,5.07,0)="ONE LEG AFFECTED^S^0:NO;1:YES;^5;7^Q"
^DD(154,5.07,3)="Enter Y(es) if only one of the patient's legs is affected."
^DD(154,5.07,21,0)="^^2^2^2950619^"
^DD(154,5.07,21,1,0)="Spinal cord injury or disease can affect different areas of the body."
^DD(154,5.07,21,2,0)="Answer yes if one of the patient's legs is affected.            "
^DD(154,5.07,"DT")="2950530"
^DD(154,5.08,0)="BOTH ARMS AFFECTED^S^0:NO;1:YES;^5;8^Q"
^DD(154,5.08,3)="Enter Y(es) if both of the patient's arms are affected."
^DD(154,5.08,21,0)="^^2^2^2950619^"
^DD(154,5.08,21,1,0)="Spinal cord injury or disease can affect different areas of the body."
^DD(154,5.08,21,2,0)="Answer yes if both of the patient's arms are affected.            "
^DD(154,5.08,"DT")="2950530"
^DD(154,5.09,0)="BOTH LEGS AFFECTED^S^0:NO;1:YES;^5;9^Q"
^DD(154,5.09,3)="Enter Y(es) if both of the patient's legs are affected."
^DD(154,5.09,21,0)="^^2^2^2950619^"
^DD(154,5.09,21,1,0)="Spinal cord injury or disease can affect different areas of the body."
^DD(154,5.09,21,2,0)="Answer yes if both of the patient's legs are affected.            "
^DD(154,5.09,"DT")="2950530"
^DD(154,5.1,0)="OTHER BODY PART AFFECTED^S^0:NO;1:YES;^5;10^Q"
^DD(154,5.1,3)="Enter Y(es) if another part of the patient's body is affected."
^DD(154,5.1,21,0)="^^3^3^2950619^"
^DD(154,5.1,21,1,0)="Spinal cord injury or disease can affect different areas of the body."
^DD(154,5.1,21,2,0)="Answer yes if another part of the patient's body is affected.  If you"
^DD(154,5.1,21,3,0)="answer yes, a free text description may be entered."
^DD(154,5.1,"DT")="2950530"
^DD(154,5.11,0)="EXTENT OF MOVEMENT^S^1:FULL USEFUL MOVEMENT;2:SOME USEFUL MOVEMENT;3:NO USEFUL MOVEMENT;^5;11^Q"
^DD(154,5.11,3)="Enter the patient's loss of movement in his arms and legs."
^DD(154,5.11,21,0)="^^3^3^2960912^"
^DD(154,5.11,21,1,0)="Sometimes spinal cord injury or disease causes loss of movement in the"
^DD(154,5.11,21,2,0)="arms or legs.  If the patient has any loss of movement in the body part"
^DD(154,5.11,21,3,0)="affected, enter it here."
^DD(154,5.11,"DT")="2950814"
^DD(154,5.12,0)="EXTENT OF FEELING^S^1:FULL FEELING;2:SOME FEELING;3:NO FEELING;^5;12^Q"
^DD(154,5.12,3)="Enter the patient's loss of feeling in his arms and legs."
^DD(154,5.12,21,0)="^^3^3^2960912^"
^DD(154,5.12,21,1,0)="Sometimes spinal cord injury or disease causes loss of feeling in the"
^DD(154,5.12,21,2,0)="arms or legs.  If the patient has any loss of feeling in the body parts"
^DD(154,5.12,21,3,0)="affected, enter it here."
^DD(154,5.12,"DT")="2950814"
^DD(154,5.13,0)="BOWEL AFFECTED^S^0:NO;1:YES;^5;13^Q"
^DD(154,5.13,"DT")="2960723"
^DD(154,5.14,0)="BLADDER AFFECTED^S^0:NO;1:YES;^5;14^Q"
^DD(154,5.14,3)=""
^DD(154,5.14,"DT")="2960723"
^DD(154,6.09,0)="EXTENT OF SCI^S^C:COMPLETE;I:INCOMPLETE;^6;9^Q"
^DD(154,6.09,3)="Enter the status of the patient's sensory/motor function."
^DD(154,6.09,21,0)="^.001^2^2^3000329^^"
^DD(154,6.09,21,1,0)="C (complete) means that the neurological level of injury is complete and I"
^DD(154,6.09,21,2,0)="(incomplete) means that the neurological level of injury is not complete."
^DD(154,6.09,"DT")="3000329"
^DD(154,7,0)="ANNUAL REHAB EVAL OFFERED^154.07D^^REHAB;0"
^DD(154,8.1,0)="PRIMARY CARE PROVIDER^P200'^VA(200,^CARE;1^Q"
^DD(154,8.1,21,0)="^^1^1^2960819^^"
^DD(154,8.1,21,1,0)="ENTER THE VA PRIMARY CARE PROVIDER FOR THIS PATIENT."
^DD(154,8.1,"DT")="2960709"
^DD(154,8.2,0)="SCI/SCD COORDINATOR^P200'^VA(200,^CARE;2^Q"
^DD(154,8.2,3)="Enter the SCD-Registry Coordinator at your site."
^DD(154,8.2,21,0)="^^1^1^3020627^"
^DD(154,8.2,21,1,0)="Enter the SCD-Registry Coordinator at your site."
^DD(154,8.2,"DT")="3020627"
^DD(154,8.3,0)="REFERRAL SOURCE^S^1:OTHER VA;2:COMMUNITY HOSPITAL;3:NURSING HOME;4:PVA;5:SELF;6:DEPARTMENT OF DEFENSE;7:NON-VA CARE;8:OTHER;^CARE;3^Q"
^DD(154,8.3,"DT")="2960709"
^DD(154,8.4,0)="REFERRAL VA^P4'^DIC(4,^CARE;4^Q"
^DD(154,8.4,21,0)="^^1^1^2960816^"
^DD(154,8.4,21,1,0)="Enter the referring VA Medical Center."
^DD(154,8.4,"DT")="2960709"
^DD(154,8.6,0)="INITIAL REHAB SITE^S^1:COMMUNITY HOSPITAL;2:VA FACILITY WITH SCI CENTER;3:VA FACILITY WITHOUT SCI CENTER;4:OTHER;^CARE;6^Q"
^DD(154,8.6,"DT")="2960709"
^DD(154,8.8,0)="INIT REHAB DISCHARGE DATE^D^^CARE;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(154,8.8,21,0)="^^1^1^2960718^"
^DD(154,8.8,21,1,0)="Enter the date that the patient was discharged from the inital rehab center."
^DD(154,8.8,"DT")="2960718"
^DD(154,10.1,0)="BOWEL CARE REIMBURSMENT^S^1:YES;0:NO;^BCR;1^Q"
^DD(154,10.1,21,0)="^^1^1^2960816^"
^DD(154,10.1,21,1,0)="Is patient in Bowel Care Reimbursment program."
^DD(154,10.1,"DT")="2960719"
^DD(154,10.2,0)="BCR DATE CERTIFIED^D^^BCR;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(154,10.2,21,0)="^^1^1^2960816^"
^DD(154,10.2,21,1,0)="Enter the date of Bowel Care Reimbursment Certification. "
^DD(154,10.2,"DT")="2960719"
^DD(154,10.3,0)="BCR PROVIDER^F^^BCR;3^K:$L(X)>30!($L(X)<3) X"
^DD(154,10.3,3)="Answer must be 3-30 characters in length."
^DD(154,10.3,21,0)="^^1^1^2960912^^^"
^DD(154,10.3,21,1,0)="Enter the certified provider Bowel Care Reimbursment."
^DD(154,10.3,"DT")="2960912"
^DD(154,11,0)="REMARKS^F^^REM;1^K:$L(X)>65!($L(X)<3) X"
^DD(154,11,3)="Answer must be 3-65 characters in length."
^DD(154,11,"DT")="2990630"
^DD(154,12,0)="DIVISION^154.012PA^^4;0"
^DD(154,12,"DT")="3010621"
^DD(154,999.01,0)="SSN^CJ10^^ ; ^X ^DD(154,999.01,9.2) S Y(154,999.01,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(154,999.01,101),U,9) S D0=Y(154,999.01,80)"
^DD(154,999.01,9)="^"
^DD(154,999.01,9.01)="2^.09;154^.01"
^DD(154,999.01,9.1)=".01:.09"
^DD(154,999.01,9.2)="S Y(154,999.01,80)=$S($D(D0):D0,1:""""),Y(154,999.01,1)=$S($D(^SPNL(154,D0,0)):^(0),1:""""),D0=$P(Y(154,999.01,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(154,999.01,21,0)="^^1^1^2991029^^"
^DD(154,999.01,21,1,0)="This is the patient's SSN from the Patient file (#2)."
^DD(154,999.02,0)="DOB^DC^^ ; ^X ^DD(154,999.02,9.2) S Y(154,999.02,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(154,999.02,101),U,3) S D0=Y(154,999.02,80)"
^DD(154,999.02,9)="^"
^DD(154,999.02,9.01)="2^.03;154^.01"
^DD(154,999.02,9.1)=".01:.03"
^DD(154,999.02,9.2)="S Y(154,999.02,80)=$S($D(D0):D0,1:""""),Y(154,999.02,1)=$S($D(^SPNL(154,D0,0)):^(0),1:""""),D0=$P(Y(154,999.02,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(154,999.02,21,0)="^^1^1^2950620^"
^DD(154,999.02,21,1,0)="This is the patient's date of birth from the Patient file (#2)."
^DD(154,999.025,0)="AGE^CJ3^^ ; ^X ^DD(154,999.025,9.2) X ""N I,Y ""_$P(^DD(2,.033,0),U,5,99) S Y(154,999.025,101)=X S X=Y(154,999.025,101) S D0=Y(154,999.025,80)"
^DD(154,999.025,9.01)="2^.033;154^.01"
^DD(154,999.025,9.1)=".01:.033"
^DD(154,999.025,9.2)="S Y(154,999.025,80)=$G(D0),Y(154,999.025,1)=$S($D(^SPNL(154,D0,0)):^(0),1:""""),D0=$P(Y(154,999.025,1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1"
^DD(154,999.025,"DT")="3010404"
^DD(154,999.03,0)="SENSORY/MOTOR LOSS^CJ40^^ ; ^S X=$$EN1^SPNLUTL0(D0)"
^DD(154,999.03,9)="^"
^DD(154,999.03,9.01)=""
^DD(154,999.03,9.1)="S X=$$EN1^SPNLUTL0(D0)"
^DD(154,999.03,21,0)="^^14^14^2950922^^"
^DD(154,999.03,21,1,0)="The 'Loss of Movement' and 'Loss of Feeling' fields are used to compute"
^DD(154,999.03,21,2,0)="the patient's Completeness of Injury.  The possible values for this field"
^DD(154,999.03,21,3,0)="are shown below."
^DD(154,999.03,21,4,0)=" "
^DD(154,999.03,21,5,0)=" DON'T KNOW                           "
^DD(154,999.03,21,6,0)=" NONE                                 "
^DD(154,999.03,21,7,0)=" INCOMPLETE MOTOR"
^DD(154,999.03,21,8,0)=" INCOMPLETE SENSORY"
^DD(154,999.03,21,9,0)=" COMPLETE MOTOR"
^DD(154,999.03,21,10,0)=" COMPLETE SENSORY"
^DD(154,999.03,21,11,0)=" INCOMPLETE SENSORY AND MOTOR"
^DD(154,999.03,21,12,0)=" COMPLETE SENSORY AND INCOMPLETE MOTOR"
^DD(154,999.03,21,13,0)=" INCOMPLETE SENSORY AND COMPLETE MOTOR"
^DD(154,999.03,21,14,0)=" COMPLETE SENSORY AND MOTOR"
^DD(154,999.03,"DT")="3000417"
^DD(154,999.04,0)="CLASSIFICATION OF PARALYSIS^CJ15^^ ; ^S X=$$EN2^SPNLUTL0(D0)"
^DD(154,999.04,9)="^"
^DD(154,999.04,9.01)=""
^DD(154,999.04,9.1)="S X=$$EN2^SPNLUTL0(D0)"
^DD(154,999.04,21,0)="^^9^9^2960821^^^"
^DD(154,999.04,21,1,0)="The 'One Arm Affected', 'One Leg Affected', 'Both Arms Affected', and"
^DD(154,999.04,21,2,0)="'Both Legs Affected' fields are used to compute the patient's Extent of"
^DD(154,999.04,21,3,0)="Paralysis.  The possible values for this field are shown below."
^DD(154,999.04,21,4,0)=" "
^DD(154,999.04,21,5,0)=" DON'T KNOW "
^DD(154,999.04,21,6,0)=" MONOPLEGIA"
^DD(154,999.04,21,7,0)=" HEMIPLEGIA"
^DD(154,999.04,21,8,0)=" PARAPLEGIA"
^DD(154,999.04,21,9,0)=" TETRAPLEGIA"
^DD(154,999.04,"DT")="3000417"
^DD(154,999.05,0)="TYPE OF INJURY^CJ33^^ ; ^S X=$$EN4^SPNLUTL0(D0)"
^DD(154,999.05,9)="^"
^DD(154,999.05,9.01)=""
^DD(154,999.05,9.1)="S X=$$EN4^SPNLUTL0(D0)"
^DD(154,999.05,21,0)="^^5^5^2950822^"
^DD(154,999.05,21,1,0)="This computed field uses the data in the Date of Onset multiple to"
^DD(154,999.05,21,2,0)="determine the patient's type of injury.  Possible values returned by this"
^DD(154,999.05,21,3,0)="field are: 'TRAUMATIC', 'NON-TRAUMATIC', 'UNKNOWN', and 'INDETERMINATE'."
^DD(154,999.05,21,4,0)="Combinations of these values may also be returned for patients with more"
^DD(154,999.05,21,5,0)="than one type of injury, e.g., 'TRAUMATIC, NON-TRAUMATIC'."
^DD(154,999.06,0)="LAST ANNUAL REHAB EVAL OFFERED^CD^^ ; ^D OFFER^SPNEVAL"
^DD(154,999.06,9)="^"
^DD(154,999.06,9.01)=""
^DD(154,999.06,9.1)="D OFFER^SPNEVAL"
^DD(154,999.06,"DT")="2991102"
^DD(154,999.07,0)="LAST ANNUAL REHAB EVAL RCD^CD^^ ; ^D REC^SPNEVAL"
^DD(154,999.07,9.01)=""
^DD(154,999.07,9.1)="D REC^SPNEVAL"
^DD(154,999.07,"DT")="2991104"
^DD(154,999.08,0)="LAST ANNUAL REHAB EVAL DUE^CD^^ ; ^D NEXT^SPNEVAL"
^DD(154,999.08,9.01)=""
^DD(154,999.08,9.1)="D NEXT^SPNEVAL"
^DD(154,999.08,"DT")="2991102"
^DD(154,999.09,0)="DATE OF DEATH^CD^^ ; ^X ^DD(154,999.09,9.2) S Y(154,999.09,101)=$S($D(^DPT(D0,.35)):$E(^(.35),1,7),1:"""") S X=$P(Y(154,999.09,101),U,1) S D0=Y(154,999.09,80)"
^DD(154,999.09,9)="^"
^DD(154,999.09,9.01)="2^.351;154^.01"
^DD(154,999.09,9.1)=".01:.351"
^DD(154,999.09,9.2)="S Y(154,999.09,80)=$G(D0),Y(154,999.09,1)=$S($D(^SPNL(154,D0,0)):^(0),1:""""),D0=$P(Y(154,999.09,1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1"
^DD(154,999.09,"DT")="3010820"
^DD(154,999.095,0)="ENROLLMENT PRIORITY^CJ8^^ ; ^S X=$S(+$$PR^SPNENPR(D0):""GROUP ""_$$PR^SPNENPR(D0),1:"""")"
^DD(154,999.095,9.01)=""
^DD(154,999.095,9.1)="S X=$S(+$$PR^SPNENPR(D0):""GROUP ""_$$PR^SPNENPR(D0),1:"""")"
^DD(154,999.095,"DT")="3020627"
^DD(154,1000,0)="ON FLY ADMISSIONS^154.02A^^1000;0"
^DD(154,"B","ADDITIONAL CARE VAMC",3.4)=""
^DD(154,"B","AGE",999.025)=""
^DD(154,"B","ANNUAL REHAB EVAL OFFERED",7)=""
^DD(154,"B","ANNUAL REHAB VAMC",3.3)=""
^DD(154,"B","BCR DATE CERTIFIED",10.2)=""
^DD(154,"B","BCR PROVIDER",10.3)=""
^DD(154,"B","BLADDER AFFECTED",5.14)=""
^DD(154,"B","BOTH ARMS AFFECTED",5.08)=""
^DD(154,"B","BOTH LEGS AFFECTED",5.09)=""
^DD(154,"B","BOWEL AFFECTED",5.13)=""
^DD(154,"B","BOWEL CARE REIMBURSMENT",10.1)=""
^DD(154,"B","CAUSE OF INJURY",5.01)=""
^DD(154,"B","CLASSIFICATION OF PARALYSIS",999.04)=""
^DD(154,"B","DATE OF DEATH",999.09)=""
^DD(154,"B","DATE OF LAST REVIEW",.05)=""
^DD(154,"B","DESCRIBE CAUSE OTHER",2.4)=""
^DD(154,"B","DESCRIBE OTHER BODY PART",2.5)=""
^DD(154,"B","DIVISION",12)=""
^DD(154,"B","DOB",999.02)=""
^DD(154,"B","ENROLLMENT PRIORITY",999.095)=""
^DD(154,"B","ETIOLOGY",4)=""
^DD(154,"B","EXTENT OF FEELING",5.12)=""
^DD(154,"B","EXTENT OF MOVEMENT",5.11)=""
^DD(154,"B","EXTENT OF SCI",6.09)=""
^DD(154,"B","EYES AFFECTED",5.05)=""
^DD(154,"B","HAD AMPUTATION?",5.03)=""
^DD(154,"B","HAD BRAIN INJURY?",5.02)=""
^DD(154,"B","INIT REHAB DISCHARGE DATE",8.8)=""
^DD(154,"B","INITIAL REHAB SITE",8.6)=""
^DD(154,"B","LAST ANNUAL REHAB EVAL DUE",999.08)=""
^DD(154,"B","LAST ANNUAL REHAB EVAL OFFERED",999.06)=""
^DD(154,"B","LAST ANNUAL REHAB EVAL RCD",999.07)=""
^DD(154,"B","LAST UPDATED BY",.06)=""
^DD(154,"B","MEMORY/THINKING AFFECTED",5.04)=""
^DD(154,"B","MS SUBTYPE",2.2)=""
^DD(154,"B","NON-VA CARE",3.5)=""
^DD(154,"B","ON FLY ADMISSIONS",1000)=""
^DD(154,"B","ONE ARM AFFECTED",5.06)=""
^DD(154,"B","ONE LEG AFFECTED",5.07)=""
^DD(154,"B","OTHER BODY PART AFFECTED",5.1)=""
^DD(154,"B","PATIENT",.01)=""
^DD(154,"B","PRIMARY CARE PROVIDER",8.1)=""
^DD(154,"B","PRIMARY CARE VAMC",3.2)=""
^DD(154,"B","RECEIVED MOST MEDICAL CARE",3.1)=""
^DD(154,"B","REFERRAL SOURCE",8.3)=""
^DD(154,"B","REFERRAL VA",8.4)=""
^DD(154,"B","REGISTRATION DATE",.02)=""
^DD(154,"B","REGISTRATION STATUS",.03)=""
^DD(154,"B","REMARKS",11)=""
^DD(154,"B","SCI LEVEL",2.1)=""
^DD(154,"B","SCI LEVEL OF INJURY",2.1)="1"
^DD(154,"B","SCI NETWORK",1.1)=""
^DD(154,"B","SCI/SCD COORDINATOR",8.2)=""
^DD(154,"B","SENSORY/MOTOR LOSS",999.03)=""
^DD(154,"B","SSN",999.01)=""
^DD(154,"B","TYPE OF INJURY",999.05)=""
^DD(154,"B","VA SCI STATUS",2.6)=""
^DD(154,"GL",0,1,.01)=""
^DD(154,"GL",0,2,.02)=""
^DD(154,"GL",0,3,.03)=""
^DD(154,"GL",0,5,.05)=""
^DD(154,"GL",0,6,.06)=""
^DD(154,"GL",1,1,1.1)=""
^DD(154,"GL",2,1,2.1)=""
^DD(154,"GL",2,2,2.2)=""
^DD(154,"GL",2,4,2.4)=""
^DD(154,"GL",2,5,2.5)=""
^DD(154,"GL",2,6,2.6)=""
^DD(154,"GL",3,1,3.1)=""
^DD(154,"GL",3,2,3.2)=""
^DD(154,"GL",3,3,3.3)=""
^DD(154,"GL",3,4,3.4)=""
^DD(154,"GL",3,5,3.5)=""
^DD(154,"GL",4,0,12)=""
^DD(154,"GL",5,1,5.01)=""
^DD(154,"GL",5,2,5.02)=""
^DD(154,"GL",5,3,5.03)=""
^DD(154,"GL",5,4,5.04)=""
^DD(154,"GL",5,5,5.05)=""
^DD(154,"GL",5,6,5.06)=""
^DD(154,"GL",5,7,5.07)=""
^DD(154,"GL",5,8,5.08)=""
^DD(154,"GL",5,9,5.09)=""
^DD(154,"GL",5,10,5.1)=""
^DD(154,"GL",5,11,5.11)=""
^DD(154,"GL",5,12,5.12)=""
^DD(154,"GL",5,13,5.13)=""
^DD(154,"GL",5,14,5.14)=""
^DD(154,"GL",6,9,6.09)=""
^DD(154,"GL",1000,0,1000)=""
^DD(154,"GL","BCR",1,10.1)=""
^DD(154,"GL","BCR",2,10.2)=""
^DD(154,"GL","BCR",3,10.3)=""
^DD(154,"GL","CARE",1,8.1)=""
^DD(154,"GL","CARE",2,8.2)=""
^DD(154,"GL","CARE",3,8.3)=""
^DD(154,"GL","CARE",4,8.4)=""
^DD(154,"GL","CARE",6,8.6)=""
^DD(154,"GL","CARE",8,8.8)=""
^DD(154,"GL","E",0,4)=""
^DD(154,"GL","REHAB",0,7)=""
^DD(154,"GL","REM",1,11)=""
^DD(154,"IX",.01)=""
^DD(154,"IX",.02)=""
^DD(154,"IX",.03)=""
^DD(154,"RQ",.01)=""
^DD(154,"RQ",.03)=""
^DD(154,"SB",154.004,4)=""
^DD(154,"SB",154.012,12)=""
^DD(154,"SB",154.02,1000)=""
^DD(154,"SB",154.07,7)=""
^DD(154.004,0)="ETIOLOGY SUB-FIELD^^999.01^4"
^DD(154.004,0,"DT")="2960628"
^DD(154.004,0,"ID","WRITE")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SPNL(154.03,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(154.03,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(154.004,0,"IX","B",154.004,.01)=""
^DD(154.004,0,"NM","ETIOLOGY")=""
^DD(154.004,0,"UP")="154"
^DD(154.004,.01,0)="ETIOLOGY^MP154.03'^SPNL(154.03,^0;1^Q"
^DD(154.004,.01,1,0)="^.1"
^DD(154.004,.01,1,1,0)="154.004^B"
^DD(154.004,.01,1,1,1)="S ^SPNL(154,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(154.004,.01,1,1,2)="K ^SPNL(154,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(154.004,.01,3)="Cause of SCD, enter traumatic / non-traumatic etiologies."
^DD(154.004,.01,21,0)="^^2^2^2960628^"
^DD(154.004,.01,21,1,0)="Enter the cause of the patient's spinal cord condition."
^DD(154.004,.01,21,2,0)="Both traumatic and non-traumatic causes may be entered."
^DD(154.004,.01,"DT")="2960628"
^DD(154.004,.02,0)="DATE OF ONSET^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(154.004,.02,3)="Enter the date of the SCD onset."
^DD(154.004,.02,21,0)="^^2^2^2960628^"
^DD(154.004,.02,21,1,0)="Enter the date of the SCD injury/trauma or diagnosis."
^DD(154.004,.02,21,2,0)="You may not enter a future data."
^DD(154.004,.02,"DT")="2960628"
^DD(154.004,.03,0)="DESCRIBE OTHER^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(154.004,.03,3)="Answer must be 3-30 characters in length."
^DD(154.004,.03,21,0)="^^2^2^2960628^"
^DD(154.004,.03,21,1,0)="If you entered other for cause of the patient's spinal cord condition, you"
^DD(154.004,.03,21,2,0)="may describe the pateint's condition here."
^DD(154.004,.03,"DT")="2960628"
^DD(154.004,999.01,0)="ONSET OF SCD CAUSE BY TRAUMA^CJ8^^ ; ^X ^DD(154.004,999.01,9.4) S X=$P($P(Y(154.004,999.01,102),$C(59)_$P(Y(154.004,999.01,101),U,2)_"":"",2),$C(59),1) S D0=Y(154.004,999.01,80) S D1=Y(154.004,999.01,81)"
^DD(154.004,999.01,9)="^"
^DD(154.004,999.01,9.01)="154.03^.02;154.004^.01"
^DD(154.004,999.01,9.1)=".01:.02"
^DD(154.004,999.01,9.2)="S Y(154.004,999.01,81)=$S($D(D1):D1,1:""""),Y(154.004,999.01,80)=$S($D(D0):D0,1:""""),Y(154.004,999.01,1)=$S($D(^SPNL(154,D0,""E"",D1,0)):^(0),1:"""")"
^DD(154.004,999.01,9.3)="X ^DD(154.004,999.01,9.2) S D0=$P(Y(154.004,999.01,1),U,1) S:'$D(^SPNL(154.03,+D0,0)) D0=-1 S Y(154.004,999.01,102)=$C(59)_$S($D(^DD(154.03,.02,0)):$P(^(0),U,3),1:"""")"
^DD(154.004,999.01,9.4)="X ^DD(154.004,999.01,9.3) S Y(154.004,999.01,101)=$S($D(^SPNL(154.03,D0,0)):^(0),1:"""")"
^DD(154.004,999.01,21,0)="^^3^3^2960628^"
^DD(154.004,999.01,21,1,0)="This field describes the nature of the spinal cord condition"
^DD(154.004,999.01,21,2,0)="(traumatic / non-traumatic).  This field is computed based on the entry"
^DD(154.004,999.01,21,3,0)="selected for the etiology field field."
^DD(154.004,"B","DATE OF ONSET",.02)=""
^DD(154.004,"B","DESCRIBE OTHER",.03)=""
^DD(154.004,"B","ETIOLOGY",.01)=""
^DD(154.004,"B","ONSET OF SCD CAUSE BY TRAUMA",999.01)=""
^DD(154.004,"GL",0,1,.01)=""
^DD(154.004,"GL",0,2,.02)=""
^DD(154.004,"GL",0,3,.03)=""
^DD(154.004,"IX",.01)=""
^DD(154.01,0)="FIELD^^.03^3"
^DD(154.01,0,"DDA")="N"
^DD(154.01,0,"DT")="2940714"
^DD(154.01,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(154.01,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(154.01,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(154.01,0,"IX","B",154.01,.01)=""
^DD(154.01,0,"IX","C",154.01,.02)=""
^DD(154.01,0,"IX","D",154.01,.03)=""
^DD(154.01,0,"NM","SCD NLOI CATEGORY")=""
^DD(154.01,0,"PT",154,2.1)=""
^DD(154.01,0,"PT",154.1,7.05)=""
^DD(154.01,0,"PT",154.1,7.06)=""
^DD(154.01,0,"PT",154.1,7.07)=""
^DD(154.01,0,"PT",154.1,7.08)=""
^DD(154.01,0,"PT",154.1,7.1)=""
^DD(154.01,0,"PT",154.1,7.11)=""
^DD(154.01,0,"PT",154.1,7.12)=""
^DD(154.01,0,"PT",154.1,7.13)=""
^DD(154.01,0,"PT",154.1,7.14)=""
^DD(154.01,0,"VR")="2.0"
^DD(154.01,0,"VRPK")="SPINAL CORD DYSFUNCTION"
^DD(154.01,.01,0)="CODE^RFX^^0;1^K:$S($L(X)'=3:1,X=""UNK"":0,X'?1A2N:1,$E(X,2,3)'>0:1,1:0) X"
^DD(154.01,.01,1,0)="^.1"
^DD(154.01,.01,1,1,0)="154.01^B"
^DD(154.01,.01,1,1,1)="S ^SPNL(154.01,""B"",$E(X,1,30),DA)="""""
^DD(154.01,.01,1,1,2)="K ^SPNL(154.01,""B"",$E(X,1,30),DA)"
^DD(154.01,.01,3)="Answer must be 3 characters in length, where the first character is alphabetic and the following two characters are numeric (greater than zero).  For unknown, enter UNK in uppercase."
^DD(154.01,.01,7.5)="I X?1A1N K:X=$E(X,1)_""0"" X I $D(X) S X=$E(X,1)_""0""_$E(X,2)"
^DD(154.01,.01,21,0)="^^6^6^2940714^^^"
^DD(154.01,.01,21,1,0)="This three character code describes the neurologic level of injury.  The"
^DD(154.01,.01,21,2,0)="code must be Xnn, where X is the first letter of the cord segment(cervical,"
^DD(154.01,.01,21,3,0)="thoracic, lumbar, sacral) and nn is the vertebral level number"
^DD(154.01,.01,21,4,0)="(01-08 for cervical, 01-12 for thoracic, 01-05 for lumbar, 01-05 sacral)."
^DD(154.01,.01,21,5,0)="For example, C01 is cervical (cord segment) and 01 (vertebral level)."
^DD(154.01,.01,21,6,0)="For unknown NLOI, enter 'UNK' (uppercase)."
^DD(154.01,.01,"DT")="2951107"
^DD(154.01,.02,0)="CORD SEGMENT^SI^C:CERVICAL;T:THORACIC;L:LUMBAR;S:SACRAL;U:UNKNOWN;^0;2^Q"
^DD(154.01,.02,1,0)="^.1^^-1"
^DD(154.01,.02,1,1,0)="154.01^C"
^DD(154.01,.02,1,1,1)="S ^SPNL(154.01,""C"",$E(X,1,30),DA)="""""
^DD(154.01,.02,1,1,2)="K ^SPNL(154.01,""C"",$E(X,1,30),DA)"
^DD(154.01,.02,1,1,"DT")="2940715"
^DD(154.01,.02,3)=""
^DD(154.01,.02,21,0)="^^3^3^2940721^^^^"
^DD(154.01,.02,21,1,0)="This field contains the code segments: Cervical, Thoracic, Lumbar, Sacral,"
^DD(154.01,.02,21,2,0)="and Unknown."
^DD(154.01,.02,21,3,0)="This field is an uneditable field."
^DD(154.01,.02,23,0)="^^2^2^2940721^^"
^DD(154.01,.02,23,1,0)="This field is an uneditable field so the cord segment can not"
^DD(154.01,.02,23,2,0)="be changed."
^DD(154.01,.02,"DT")="2950908"
^DD(154.01,.03,0)="VERTEBRAL LEVEL^FI^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(154.01,.03,1,0)="^.1"
^DD(154.01,.03,1,1,0)="154.01^D"
^DD(154.01,.03,1,1,1)="S ^SPNL(154.01,""D"",$E(X,1,30),DA)="""""
^DD(154.01,.03,1,1,2)="K ^SPNL(154.01,""D"",$E(X,1,30),DA)"
^DD(154.01,.03,1,1,"DT")="2940715"
^DD(154.01,.03,3)="Answer must be 2 numbers in length.  If unknown, leave blank."
^DD(154.01,.03,21,0)="^^5^5^2940721^^^^"
^DD(154.01,.03,21,1,0)="Vertebral level is a two number code describing the level of the cord"
^DD(154.01,.03,21,2,0)="segment (01-08 for cervical, 01-12 for thoracic, 01-05 for lumbar and "
^DD(154.01,.03,21,3,0)="01-05 for sacral), where the first number is either 0 or 1."
^DD(154.01,.03,21,4,0)="If unknown, leave this field blank."
^DD(154.01,.03,21,5,0)="This field is an uneditable field."
^DD(154.01,.03,23,0)="^^2^2^2940721^^^^"
^DD(154.01,.03,23,1,0)="This field is an uneditable field so the vertebral level can not"
^DD(154.01,.03,23,2,0)="be changed."
^DD(154.01,.03,"DT")="2940721"
^DD(154.01,"B","CODE",.01)=""
^DD(154.01,"B","CORD SEGMENT",.02)=""
^DD(154.01,"B","VERTEBRAL LEVEL",.03)=""
^DD(154.01,"GL",0,1,.01)=""
^DD(154.01,"GL",0,2,.02)=""
^DD(154.01,"GL",0,3,.03)=""
^DD(154.01,"IX",.01)=""
^DD(154.01,"IX",.02)=""
^DD(154.01,"IX",.03)=""
^DD(154.01,"RQ",.01)=""
^DD(154.012,0)="DIVISION SUB-FIELD^^.01^1"
^DD(154.012,0,"DT")="3010911"
^DD(154.012,0,"IX","B",154.012,.01)=""
^DD(154.012,0,"NM","DIVISION")=""
^DD(154.012,0,"UP")="154"
^DD(154.012,.01,0)="DIVISION^P40.8'^DG(40.8,^0;1^Q"
^DD(154.012,.01,1,0)="^.1"
^DD(154.012,.01,1,1,0)="154.012^B"
^DD(154.012,.01,1,1,1)="S ^SPNL(154,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(154.012,.01,1,1,2)="K ^SPNL(154,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(154.012,.01,3)="Enter the VA site location at which you work."
^DD(154.012,.01,"DT")="3010911"
^DD(154.012,"B","DIVISION",.01)=""
^DD(154.012,"GL",0,1,.01)=""
^DD(154.012,"IX",.01)=""
^DD(154.02,0)="ON FLY ADMISSIONS SUB-FIELD^^1^2"
^DD(154.02,0,"DT")="2991210"
^DD(154.02,0,"IX","B",154.02,.01)=""
^DD(154.02,0,"NM","ON FLY ADMISSIONS")=""
^DD(154.02,0,"UP")="154"
^DD(154.02,.01,0)="ON FLY ADMISSIONS^F^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(154.02,.01,1,0)="^.1"
^DD(154.02,.01,1,1,0)="154.02^B"
^DD(154.02,.01,1,1,1)="S ^SPNL(154,DA(1),1000,""B"",$E(X,1,30),DA)="""""
^DD(154.02,.01,1,1,2)="K ^SPNL(154,DA(1),1000,""B"",$E(X,1,30),DA)"
^DD(154.02,.01,3)="Answer must be 1-40 characters in length."
^DD(154.02,.01,"DT")="2991210"
^DD(154.02,1,0)="ADM NUMBER^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(154.02,1,3)="Answer must be 1-20 characters in length."
^DD(154.02,1,"DT")="2991210"
^DD(154.02,"B","ADM NUMBER",1)=""
^DD(154.02,"B","ON FLY ADMISSIONS",.01)=""
^DD(154.02,"GL",0,1,.01)=""
^DD(154.02,"GL",0,2,1)=""
^DD(154.02,"IX",.01)=""
^DD(154.03,0)="FIELD^^1^3"
^DD(154.03,0,"DDA")="N"
^DD(154.03,0,"DT")="2960731"
^DD(154.03,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(154.03,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(154.03,0,"IX","B",154.03,.01)=""
^DD(154.03,0,"IX","C",154.03,.02)=""
^DD(154.03,0,"IX","SYM",154.31,.01)=""
^DD(154.03,0,"NM","ETIOLOGY")=""
^DD(154.03,0,"PT",154,5.01)=""
^DD(154.03,0,"PT",154.004,.01)=""
^DD(154.03,0,"VR")="2.0"
^DD(154.03,0,"VRPK")="SPINAL CORD DYSFUNCTION"
^DD(154.03,.01,0)="DESCRIPTION^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(154.03,.01,1,0)="^.1^^-1"
^DD(154.03,.01,1,1,0)="154.03^B"
^DD(154.03,.01,1,1,1)="S ^SPNL(154.03,""B"",$E(X,1,30),DA)="""""
^DD(154.03,.01,1,1,2)="K ^SPNL(154.03,""B"",$E(X,1,30),DA)"
^DD(154.03,.01,3)="Answer must be 3-30 characters in length.  If unknown, enter UNKNOWN."
^DD(154.03,.01,21,0)="^^2^2^2940823^^^^"
^DD(154.03,.01,21,1,0)="This is a brief description of the etiology category."
^DD(154.03,.01,21,2,0)="If unknown, enter UNKNOWN."
^DD(154.03,.01,22)=""
^DD(154.03,.01,"DT")="2950926"
^DD(154.03,.02,0)="TYPE OF CAUSE^S^TC:TRAUMATIC CAUSE;NTC:NON-TRAUMATIC CAUSE;U:UNKNOWN;^0;2^Q"
^DD(154.03,.02,1,0)="^.1"
^DD(154.03,.02,1,1,0)="154.03^C"
^DD(154.03,.02,1,1,1)="S ^SPNL(154.03,""C"",$E(X,1,30),DA)="""""
^DD(154.03,.02,1,1,2)="K ^SPNL(154.03,""C"",$E(X,1,30),DA)"
^DD(154.03,.02,1,1,"DT")="2940715"
^DD(154.03,.02,3)="Enter the type of cause for this etiology, traumatic/non-traumatic."
^DD(154.03,.02,21,0)="^^7^7^2940721^^"
^DD(154.03,.02,21,1,0)="Every etiology category falls into one of two types of causes: T (traumatic)"
^DD(154.03,.02,21,2,0)="or D (disease).  Traumatic spinal cord injury is impairment of the spinal"
^DD(154.03,.02,21,3,0)="cord or caudia aquina function resulting from the application of an"
^DD(154.03,.02,21,4,0)="external force of any magnitude.  For example, an auto accident."
^DD(154.03,.02,21,6,0)="aquina function resulting from some sort of medical condition or illness."
^DD(154.03,.02,21,7,0)="For example, multiple sclerosis."
^DD(154.03,.02,"DT")="2950531"
^DD(154.03,1,0)="SYNONYM^154.31^^1;0"
^DD(154.03,"B","DESCRIPTION",.01)=""
^DD(154.03,"B","SYNONYM",1)=""
^DD(154.03,"B","TYPE OF CAUSE",.02)=""
^DD(154.03,"GL",0,1,.01)=""
^DD(154.03,"GL",0,2,.02)=""
^DD(154.03,"GL",1,0,1)=""
^DD(154.03,"IX",.01)=""
^DD(154.03,"IX",.02)=""
^DD(154.03,"RQ",.01)=""
^DD(154.03,"SB",154.31,1)=""
^DD(154.07,0)="ANNUAL REHAB EVAL OFFERED SUB-FIELD^^2^3"
^DD(154.07,0,"DT")="2960702"
^DD(154.07,0,"IX","B",154.07,.01)=""
^DD(154.07,0,"NM","ANNUAL REHAB EVAL OFFERED")=""
^DD(154.07,0,"UP")="154"
^DD(154.07,.01,0)="ANNUAL REHAB EVAL OFFERED^DX^^0;1^S %DT=""ET"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(154.07,.01,1,0)="^.1"
^DD(154.07,.01,1,1,0)="154.07^B"
^DD(154.07,.01,1,1,1)="S ^SPNL(154,DA(1),""REHAB"",""B"",$E(X,1,30),DA)="""""
^DD(154.07,.01,1,1,2)="K ^SPNL(154,DA(1),""REHAB"",""B"",$E(X,1,30),DA)"
^DD(154.07,.01,3)="Enter the date when the patient was offer an exam."
^DD(154.07,.01,21,0)="^^2^2^2960702^"
^DD(154.07,.01,21,1,0)="This field is the date that the SCI Coordinator offered the patient"
^DD(154.07,.01,21,2,0)="an Annual Rehab Eval.  It is NOT the Annual Rehab Eval. Date."
^DD(154.07,.01,"DT")="2960912"
^DD(154.07,1,0)="ANNUAL REHAB EVAL RECEIVED^DX^^0;2^S %DT=""ET"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(154.07,1,1,0)="^.1"
^DD(154.07,1,1,1,0)="^^TRIGGER^154.07^2"
^DD(154.07,1,1,1,1)="X ^DD(154.07,1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^SPNL(154,D0,""REHAB"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(154.07,1,1,1,1.1) X ^DD(154.07,1,1,1,1.4)"
^DD(154.07,1,1,1,1.1)="S X=DIV S X=DIV,X1=X,X2=+365,X="""" D C^%DTC:X1"
^DD(154.07,1,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^SPNL(154,D0,""REHAB"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""""
^DD(154.07,1,1,1,1.4)="S DIH=$S($D(^SPNL(154,DIV(0),""REHAB"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=154.07,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(154.07,1,1,1,2)="Q"
^DD(154.07,1,1,1,"CREATE CONDITION")="#2="""""
^DD(154.07,1,1,1,"CREATE VALUE")="#1+365"
^DD(154.07,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(154.07,1,1,1,"FIELD")="NEXT"
^DD(154.07,1,3)="Enter the date the patient had his Annual Rehab Eval."
^DD(154.07,1,21,0)="^^2^2^2960702^"
^DD(154.07,1,21,1,0)="This field contains the date the patient received his/her Annual"
^DD(154.07,1,21,2,0)="Rehab. Eval."
^DD(154.07,1,"DT")="2970627"
^DD(154.07,2,0)="NEXT ANNUAL REHAB EVAL DUE^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(154.07,2,3)="Enter the date the patient is due to have his next Annual Rehab Eval."
^DD(154.07,2,5,1,0)="154.07^1^1"
^DD(154.07,2,21,0)="^^2^2^2960702^"
^DD(154.07,2,21,1,0)="This field will contain the date the patient is due for his next annual"
^DD(154.07,2,21,2,0)="rehab evaluation."
^DD(154.07,2,"DT")="2960702"
^DD(154.07,"B","ANNUAL REHAB EVAL OFFERED",.01)=""
^DD(154.07,"B","ANNUAL REHAB EVAL RECEIVED",1)=""
^DD(154.07,"B","NEXT ANNUAL REHAB EVAL DUE",2)=""
^DD(154.07,"GL",0,1,.01)=""
^DD(154.07,"GL",0,2,1)=""
^DD(154.07,"GL",0,3,2)=""
^DD(154.07,"IX",.01)=""
^DD(154.07,"IX",1)=""
^DD(154.1,0)="FIELD^^1004^97"
^DD(154.1,0,"DDA")="N"
^DD(154.1,0,"DT")="3030521"
^DD(154.1,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(154.1,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(154.1,0,"ID",.04)="W ""   "",$E($P(^(0),U,4),4,5)_""-""_$E($P(^(0),U,4),6,7)_""-""_$E($P(^(0),U,4),2,3)"
^DD(154.1,0,"ID",3.9)="S %I=Y,Y=$S('$D(^(""MS"")):"""",$D(^SPNL(154.2,+$P(^(""MS""),U,9),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(154.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(154.1,0,"IX","AA1",154.1,.02)=""
^DD(154.1,0,"IX","AA2",154.1,.01)=""
^DD(154.1,0,"IX","AA3",154.1,.04)=""
^DD(154.1,0,"IX","AB1",154.1,.01)=""
^DD(154.1,0,"IX","AB2",154.1,.04)=""
^DD(154.1,0,"IX","AC",154.1,1000)=""
^DD(154.1,0,"IX","B",154.1,.01)=""
^DD(154.1,0,"IX","C",154.1,.04)=""
^DD(154.1,0,"NM","OUTCOMES")=""
^DD(154.1,0,"PT",154.991,1)=""
^DD(154.1,0,"VR")="2.0"
^DD(154.1,0,"VRPK")="SPN"
^DD(154.1,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(154.1,.01,1,0)="^.1"
^DD(154.1,.01,1,1,0)="154.1^B"
^DD(154.1,.01,1,1,1)="S ^SPNL(154.1,""B"",$E(X,1,30),DA)="""""
^DD(154.1,.01,1,1,2)="K ^SPNL(154.1,""B"",$E(X,1,30),DA)"
^DD(154.1,.01,1,2,0)="154.1^AA2^MUMPS"
^DD(154.1,.01,1,2,1)="D AA^SPNFUTL0(DA,X,1,""S"")"
^DD(154.1,.01,1,2,2)="D AA^SPNFUTL0(DA,X,1,""K"")"
^DD(154.1,.01,1,2,"DT")="2950823"
^DD(154.1,.01,1,3,0)="154.1^AB1^MUMPS"
^DD(154.1,.01,1,3,1)="D AB^SPNFUTL0(DA,X,1,""S"")"
^DD(154.1,.01,1,3,2)="D AB^SPNFUTL0(DA,X,1,""K"")"
^DD(154.1,.01,1,3,"DT")="2960215"
^DD(154.1,.01,3)="Enter the patient's name for this Outcome record."
^DD(154.1,.01,21,0)="^^1^1^3020910^"
^DD(154.1,.01,21,1,0)="The patient associated with this Outcomes record."
^DD(154.1,.01,"DT")="3020910"
^DD(154.1,.02,0)="RECORD TYPE^RS^1:Self Report of Function;2:FIM;3:ASIA;4:CHART;5:FAM;6:DIENER;7:DUSOI;8:Multiple Sclerosis;^0;2^Q"
^DD(154.1,.02,1,0)="^.1^^-1"
^DD(154.1,.02,1,1,0)="154.1^AA1^MUMPS"
^DD(154.1,.02,1,1,1)="D AA^SPNFUTL0(DA,X,2,""S"")"
^DD(154.1,.02,1,1,2)="D AA^SPNFUTL0(DA,X,2,""K"")"
^DD(154.1,.02,1,1,"DT")="2950823"
^DD(154.1,.02,3)="Select the type of outcome measure you are recording."
^DD(154.1,.02,21,0)="^^5^5^3020910^"
^DD(154.1,.02,21,1,0)="This field describes the record type: Self Report of Function, FIM, ASIA,"
^DD(154.1,.02,21,2,0)="CHART, FAM, DIENER, DUSOI, or Multiple Sclerosis.  The user will not see"
^DD(154.1,.02,21,3,0)="Multiple Sclerosis listed as a possible Record Type unless the patient has"
^DD(154.1,.02,21,4,0)="an Etiology of Multiple Sclerosis.  This field is used internally, the"
^DD(154.1,.02,21,5,0)="user is not allowed to edit it."
^DD(154.1,.02,"DT")="3020910"
^DD(154.1,.021,0)="SCORE TYPE^P154.3'^SPNL(154.3,^2;17^Q"
^DD(154.1,.021,3)=""
^DD(154.1,.021,21,0)="^^6^6^3030521^"
^DD(154.1,.021,21,1,0)="Score Type is used to document the phase of rehabilitation at the time "
^DD(154.1,.021,21,2,0)="the Outcome measure is recorded.  Score Types are applicable to either "
^DD(154.1,.021,21,3,0)="INPATIENT, OUTPATIENT, or CONTINUUM OF CARE care types.  Important:"
^DD(154.1,.021,21,4,0)="a Score Type containing the phrase ""FOLLOW-UP (END)"" indicates the close,"
^DD(154.1,.021,21,5,0)="or end, of the episode of care, and will prompt the user to enter a Care"
^DD(154.1,.021,21,6,0)="End Date."
^DD(154.1,.021,"DT")="3030521"
^DD(154.1,.022,0)="ASSOCIATED ADMISSION DATE^D^^2;18^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(154.1,.022,3)=""
^DD(154.1,.022,"DT")="2991214"
^DD(154.1,.023,0)="DIVISION^F^^0;23^K:$L(X)>5!($L(X)<1) X"
^DD(154.1,.023,3)="Answer must be 1-5 characters in length."
^DD(154.1,.023,"DT")="3000215"
^DD(154.1,.024,0)="DISPOSITION^FP154.12'^SPNL(154.12,^0;24^K:$L(X)>30!($L(X)<1) X"
^DD(154.1,.024,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.12,+Y,0)),U,2)"
^DD(154.1,.024,2.1)="S:+Y Y=$P($G(^SPNL(154.12,+Y,0)),U,2)"
^DD(154.1,.024,3)="Answer must be 1-30 characters in length"
^DD(154.1,.024,"DT")="3000524"
^DD(154.1,.03,0)="RESPONDENT TYPE^S^1:PATIENT;2:CLINICIAN;3:PROXY;^0;3^Q"
^DD(154.1,.03,3)="Enter the respondent type."
^DD(154.1,.03,21,0)="^^2^2^3020910^"
^DD(154.1,.03,21,1,0)="The respondent type field indicates the source of the data for this"
^DD(154.1,.03,21,2,0)="Outcomes record."
^DD(154.1,.03,"DT")="3020910"
^DD(154.1,.04,0)="DATE RECORDED^RDX^^0;4^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(154.1,.04,1,0)="^.1"
^DD(154.1,.04,1,1,0)="154.1^C"
^DD(154.1,.04,1,1,1)="S ^SPNL(154.1,""C"",$E(X,1,30),DA)="""""
^DD(154.1,.04,1,1,2)="K ^SPNL(154.1,""C"",$E(X,1,30),DA)"
^DD(154.1,.04,1,1,"DT")="2950524"
^DD(154.1,.04,1,2,0)="154.1^AA3^MUMPS"
^DD(154.1,.04,1,2,1)="D AA^SPNFUTL0(DA,X,4,""S"")"
^DD(154.1,.04,1,2,2)="D AA^SPNFUTL0(DA,X,4,""K"")"
^DD(154.1,.04,1,2,"DT")="2950823"
^DD(154.1,.04,1,3,0)="154.1^AB2^MUMPS"
^DD(154.1,.04,1,3,1)="D AB^SPNFUTL0(DA,X,4,""S"")"
^DD(154.1,.04,1,3,2)="D AB^SPNFUTL0(DA,X,4,""K"")"
^DD(154.1,.04,1,3,"DT")="2960215"
^DD(154.1,.04,3)="Enter the date this data was obtained."
^DD(154.1,.04,21,0)="^^2^2^3000309^^"
^DD(154.1,.04,21,1,0)="This field is the date the Functional Status data was obtained from the"
^DD(154.1,.04,21,2,0)="patient.  It may not be a future date."
^DD(154.1,.04,"DT")="3000309"
^DD(154.1,.05,0)="EATING^*P154.11'O^SPNL(154.11,^0;5^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.05,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.05,2.1)=".05:.02"
^DD(154.1,.05,3)="Enter the Functional Status score for this activity."
^DD(154.1,.05,12)="Selectable responses are based on the FIM type."
^DD(154.1,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.05,21,0)="^^3^3^2950620^^"
^DD(154.1,.05,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.05,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.05,21,3,0)="doing the activity."
^DD(154.1,.05,"DT")="2950516"
^DD(154.1,.06,0)="GROOMING^*P154.11'O^SPNL(154.11,^0;6^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.06,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.06,2.1)=".06:.02"
^DD(154.1,.06,3)="Enter the Functional Status score for this activity."
^DD(154.1,.06,12)="Selectable responses are based on the FIM type."
^DD(154.1,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.06,21,0)="^^3^3^2950620^"
^DD(154.1,.06,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.06,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.06,21,3,0)="doing the activity."
^DD(154.1,.06,"DT")="2950516"
^DD(154.1,.07,0)="BATHING^*P154.11'O^SPNL(154.11,^0;7^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.07,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.07,2.1)=".07:.02"
^DD(154.1,.07,3)="Enter the Functional Status score for this activity."
^DD(154.1,.07,12)="Selectable responses are based on the FIM type."
^DD(154.1,.07,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.07,21,0)="^^3^3^2950620^"
^DD(154.1,.07,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.07,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.07,21,3,0)="doing the activity."
^DD(154.1,.07,"DT")="2950516"
^DD(154.1,.08,0)="DRESSING UPPER BODY^*P154.11'O^SPNL(154.11,^0;8^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.08,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.08,2.1)=".08:.02"
^DD(154.1,.08,3)="Enter the Functional Status score for this activity."
^DD(154.1,.08,12)="Selectable responses are based on the FIM type."
^DD(154.1,.08,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.08,21,0)="^^3^3^2950620^"
^DD(154.1,.08,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.08,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.08,21,3,0)="doing the activity."
^DD(154.1,.08,"DT")="2950516"
^DD(154.1,.09,0)="DRESSING LOWER BODY^*P154.11'O^SPNL(154.11,^0;9^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.09,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.09,2.1)=".09:.02"
^DD(154.1,.09,3)="Enter the Functional Status score for this activity."
^DD(154.1,.09,12)="Selectable responses are based on the FIM type."
^DD(154.1,.09,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.09,21,0)="^^3^3^2950620^"
^DD(154.1,.09,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.09,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.09,21,3,0)="doing the activity."
^DD(154.1,.09,"DT")="2960723"
^DD(154.1,.1,0)="TOILETING^*P154.11'O^SPNL(154.11,^0;10^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.1,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.1,2.1)=".1:.02"
^DD(154.1,.1,3)="Enter the Functional Status score for this activity."
^DD(154.1,.1,12)="Selectable responses are based on the FIM type."
^DD(154.1,.1,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.1,21,0)="^^3^3^2950620^"
^DD(154.1,.1,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.1,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.1,21,3,0)="doing the activity."
^DD(154.1,.1,"DT")="2950516"
^DD(154.1,.11,0)="BLADDER MANAGEMENT^*P154.11'O^SPNL(154.11,^0;11^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.11,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.11,2.1)=".11:.02"
^DD(154.1,.11,3)="Enter the Functional Status score for this activity."
^DD(154.1,.11,12)="Selectable responses are based on the FIM type."
^DD(154.1,.11,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.11,21,0)="^^3^3^2950620^"
^DD(154.1,.11,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.11,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.11,21,3,0)="doing the activity."
^DD(154.1,.11,"DT")="2950516"
^DD(154.1,.12,0)="BOWEL MANAGEMENT^*P154.11'O^SPNL(154.11,^0;12^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.12,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.12,2.1)=".12:.02"
^DD(154.1,.12,3)="Enter the Functional Status score for this activity."
^DD(154.1,.12,12)="Selectable responses are based on the FIM type."
^DD(154.1,.12,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.12,21,0)="^^3^3^2950620^"
^DD(154.1,.12,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.12,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.12,21,3,0)="doing the activity."
^DD(154.1,.12,"DT")="2950516"
^DD(154.1,.13,0)="XFER TO BED/CHAIR/WHEELCHAIR^*P154.11'O^SPNL(154.11,^0;13^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.13,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.13,2.1)=".13:.02"
^DD(154.1,.13,3)="Enter the Functional Status score for this activity."
^DD(154.1,.13,12)="Selectable responses are based on the FIM type."
^DD(154.1,.13,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.13,21,0)="^^3^3^2950620^"
^DD(154.1,.13,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.13,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.13,21,3,0)="doing the activity."
^DD(154.1,.13,"DT")="2950516"
^DD(154.1,.14,0)="XFER TO TOILET^*P154.11'O^SPNL(154.11,^0;14^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.14,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.14,2.1)=".14:.02"
^DD(154.1,.14,3)="Enter the Functional Status score for this activity."
^DD(154.1,.14,12)="Selectable responses are based on the FIM type."
^DD(154.1,.14,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.14,21,0)="^^3^3^2950620^"
^DD(154.1,.14,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.14,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.14,21,3,0)="doing the activity."
^DD(154.1,.14,"DT")="2950516"
^DD(154.1,.15,0)="XFER TO TUB/SHOWER^*P154.11'O^SPNL(154.11,^0;15^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.15,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.15,2.1)=".15:.02"
^DD(154.1,.15,3)="Enter the Functional Status score for this activity."
^DD(154.1,.15,12)="Selectable responses are based on the FIM type."
^DD(154.1,.15,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.15,21,0)="^^3^3^2950620^"
^DD(154.1,.15,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.15,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.15,21,3,0)="doing the activity."
^DD(154.1,.15,"DT")="2950516"
^DD(154.1,.16,0)="WALK/WHEELCHAIR^*P154.11'O^SPNL(154.11,^0;16^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.16,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.16,2.1)=".16:.02"
^DD(154.1,.16,3)="Enter the Functional Status score for this activity."
^DD(154.1,.16,12)="Selectable responses are based on the FIM type."
^DD(154.1,.16,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.16,21,0)="^^3^3^2950620^"
^DD(154.1,.16,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.16,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.16,21,3,0)="doing the activity."
^DD(154.1,.16,"DT")="2960723"
^DD(154.1,.161,0)="METHOD OF WALK/WHEELCHAIR^S^W:WALK;C:WHEELCHAIR;B:BOTH;^2;15^Q"
^DD(154.1,.161,"DT")="2960723"
^DD(154.1,.17,0)="STAIRS^*P154.11'O^SPNL(154.11,^0;17^S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.17,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.17,2.1)=".17:.02"
^DD(154.1,.17,3)="Enter the Functional Status score for this activity."
^DD(154.1,.17,12)="Selectable responses are based on the FIM type."
^DD(154.1,.17,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=$P(^SPNL(154.1,D0,0),U,2)"""
^DD(154.1,.17,21,0)="^^3^3^2950620^"
^DD(154.1,.17,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.17,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.17,21,3,0)="doing the activity."
^DD(154.1,.17,"DT")="2950516"
^DD(154.1,.18,0)="COMPREHENSION^*P154.11'O^SPNL(154.11,^0;18^S DIC(""S"")=""I $P(^(0),U,3)=3,$P(^SPNL(154.1,D0,0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.18,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.18,2.1)=".18:.02"
^DD(154.1,.18,3)="Enter the Functional Status score for this activity."
^DD(154.1,.18,12)="Selectable responses are based on the FIM type."
^DD(154.1,.18,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=3,$P(^SPNL(154.1,D0,0),U,2)=2"""
^DD(154.1,.18,21,0)="^^3^3^2950620^"
^DD(154.1,.18,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.18,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.18,21,3,0)="doing the activity."
^DD(154.1,.18,"DT")="2950516"
^DD(154.1,.181,0)="METHOD OF COMPREHENSION^S^A:AUDITORY;V:VISUAL;B:BOTH;^2;13^Q"
^DD(154.1,.181,3)="Enter the patient's Comprehension Method."
^DD(154.1,.181,21,0)="^^1^1^2960723^^"
^DD(154.1,.181,21,1,0)="This field contain the method of comprehension of a patient."
^DD(154.1,.181,"DT")="2960703"
^DD(154.1,.19,0)="EXPRESSION^*P154.11'O^SPNL(154.11,^0;19^S DIC(""S"")=""I $P(^(0),U,3)=3,$P(^SPNL(154.1,D0,0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.19,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.19,2.1)=".19:.02"
^DD(154.1,.19,3)="Enter the Functional Status score for this activity."
^DD(154.1,.19,12)="Selectable responses are based on the FIM type."
^DD(154.1,.19,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=3,$P(^SPNL(154.1,D0,0),U,2)=2"""
^DD(154.1,.19,21,0)="^^3^3^2950620^"
^DD(154.1,.19,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.19,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.19,21,3,0)="doing the activity."
^DD(154.1,.19,"DT")="2950516"
^DD(154.1,.191,0)="METHOD OF EXPRESSION^S^V:VOCAL;N:NONVOCAL;B:BOTH;^2;14^Q"
^DD(154.1,.191,3)="Enter the patients method of expression."
^DD(154.1,.191,21,0)="^^1^1^2960703^"
^DD(154.1,.191,21,1,0)="This field will contain the method of expression of the patient."
^DD(154.1,.191,"DT")="2960703"
^DD(154.1,.2,0)="SOCIAL INTERACTION^*P154.11'O^SPNL(154.11,^0;20^S DIC(""S"")=""I $P(^(0),U,3)=4,$P(^SPNL(154.1,D0,0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.2,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.2,2.1)=".2:.02"
^DD(154.1,.2,3)="Enter the Functional Status score for this activity."
^DD(154.1,.2,12)="Selectable responses are based on the FIM type."
^DD(154.1,.2,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=4,$P(^SPNL(154.1,D0,0),U,2)=2"""
^DD(154.1,.2,21,0)="^.001^3^3^3000323^^"
^DD(154.1,.2,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.2,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.2,21,3,0)="doing the activity."
^DD(154.1,.2,"DT")="2950516"
^DD(154.1,.21,0)="PROBLEM SOLVING^*P154.11'O^SPNL(154.11,^0;21^S DIC(""S"")=""I $P(^(0),U,3)=4,$P(^SPNL(154.1,D0,0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.21,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.21,2.1)=".21:.02"
^DD(154.1,.21,3)="Enter the Functional Status score for this activity."
^DD(154.1,.21,12)="Selectable responses are based on the FIM type."
^DD(154.1,.21,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=4,$P(^SPNL(154.1,D0,0),U,2)=2"""
^DD(154.1,.21,21,0)="^^3^3^2950620^"
^DD(154.1,.21,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.21,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.21,21,3,0)="doing the activity."
^DD(154.1,.21,"DT")="2950516"
^DD(154.1,.22,0)="MEMORY^*P154.11'O^SPNL(154.11,^0;22^S DIC(""S"")=""I $P(^(0),U,3)=3,$P(^SPNL(154.1,D0,0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,.22,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,.22,2.1)=".22:.02"
^DD(154.1,.22,3)="Enter the Functional Status score for this activity."
^DD(154.1,.22,12)="Selectable responses are based on the FIM type."
^DD(154.1,.22,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=3,$P(^SPNL(154.1,D0,0),U,2)=2"""
^DD(154.1,.22,21,0)="^^3^3^2950620^"
^DD(154.1,.22,21,1,0)="How much help does the patient need with his day to day activities?  The"
^DD(154.1,.22,21,2,0)="answer should be based on an average day and the patient's usual way of"
^DD(154.1,.22,21,3,0)="doing the activity."
^DD(154.1,.22,"DT")="2950516"
^DD(154.1,1.01,0)="CLINICIAN^154.101PA^^1;0"
^DD(154.1,1.01,21,0)="^^1^1^2950620^"
^DD(154.1,1.01,21,1,0)="This field contains the names of the clinicians who see the patient."
^DD(154.1,2.01,0)="GET TO PLACES OUTSIDE OF HOME^S^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^2;1^Q"
^DD(154.1,2.01,3)="Enter the number (1 to 3) which best describes patient's function in this activity."
^DD(154.1,2.01,21,0)="^^2^2^2950620^^"
^DD(154.1,2.01,21,1,0)="This question asks if the patient needs help from someone else to perform"
^DD(154.1,2.01,21,2,0)="this activity."
^DD(154.1,2.01,"DT")="2950516"
^DD(154.1,2.02,0)="SHOPPING^S^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^2;2^Q"
^DD(154.1,2.02,3)="Enter the number (1 to 3) which best describes patient's function in this activity."
^DD(154.1,2.02,21,0)="^^2^2^2950620^"
^DD(154.1,2.02,21,1,0)="This question asks if the patient needs help from someone else to perform"
^DD(154.1,2.02,21,2,0)="this activity."
^DD(154.1,2.02,"DT")="3000324"
^DD(154.1,2.03,0)="PLANNING AND COOKING OWN MEALS^S^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^2;3^Q"
^DD(154.1,2.03,3)="Enter the number (1 to 3) which best describes patient's function in this activity."
^DD(154.1,2.03,21,0)="^^2^2^2950620^^^"
^DD(154.1,2.03,21,1,0)="This question asks if the patient needs help from someone else to perform"
^DD(154.1,2.03,21,2,0)="this activity."
^DD(154.1,2.03,"DT")="3000324"
^DD(154.1,2.04,0)="DOING HOUSEWORK^S^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^2;4^Q"
^DD(154.1,2.04,3)="Enter the number (1 to 3) which best describes patient's function in this activity."
^DD(154.1,2.04,21,0)="^^2^2^2950620^"
^DD(154.1,2.04,21,1,0)="This question asks if the patient needs help from someone else to perform"
^DD(154.1,2.04,21,2,0)="this activity."
^DD(154.1,2.04,"DT")="3000324"
^DD(154.1,2.05,0)="HANDLING MONEY^S^1:WITHOUT HELP;2:WITH HELP;3:UNABLE;^2;5^Q"
^DD(154.1,2.05,3)="Enter the number (1 to 3) which best describes patient's function in this activity."
^DD(154.1,2.05,21,0)="^^2^2^2950620^^"
^DD(154.1,2.05,21,1,0)="This question asks if the patient needs help from someone else to perform"
^DD(154.1,2.05,21,2,0)="this activity."
^DD(154.1,2.05,"DT")="3000324"
^DD(154.1,2.06,0)="METHOD AMBULATION (WALKING)^S^1:WITHOUT HELP;2:WITH DEVICE;3:CANNOT WALK;4:BEDRIDDEN;^2;6^Q"
^DD(154.1,2.06,3)="Describe patient's walking function."
^DD(154.1,2.06,21,0)="^^5^5^2961106^^"
^DD(154.1,2.06,21,1,0)="Does the patient walk with or without a special aide or device?  If the"
^DD(154.1,2.06,21,2,0)="patient cannot walk choose 'Cannot Walk' or 'Bedridden' as appropriate."
^DD(154.1,2.06,21,3,0)="The selection 'With Device' refers to canes, walkers, etc.; it does not"
^DD(154.1,2.06,21,4,0)="refer to wheelchairs.  For wheelchairs see the 'Method of Ambulation"
^DD(154.1,2.06,21,5,0)="(Wheelchair)' field. "
^DD(154.1,2.06,"DT")="2950815"
^DD(154.1,2.07,0)="METHOD AMBULATION (WHEELCHAIR)^S^1:MANUAL;2:MOTORIZED;3:DOES NOT USE W/CHR;4:BEDRIDDEN;^2;7^Q"
^DD(154.1,2.07,3)="Describe patient's wheelchair use."
^DD(154.1,2.07,21,0)="^^3^3^2950815^"
^DD(154.1,2.07,21,1,0)="Does the patient use a manual or motorized wheelchair?  If the patient"
^DD(154.1,2.07,21,2,0)="does not use a wheelchair enter 'Does Not Use W/Chr' or 'Bedridden' as"
^DD(154.1,2.07,21,3,0)="appropriate."
^DD(154.1,2.07,"DT")="2950815"
^DD(154.1,2.08,0)="HELP DURING LAST 2 WEEKS^S^1:YES;0:NO;^2;8^Q"
^DD(154.1,2.08,3)="Did the patient require help in the last two weeks?"
^DD(154.1,2.08,21,0)="^.001^2^2^3000323^^"
^DD(154.1,2.08,21,1,0)="In the last two weeks did the patient need help from another person for"
^DD(154.1,2.08,21,2,0)="everyday activities."
^DD(154.1,2.08,"DT")="2950516"
^DD(154.1,2.09,0)="NUMBER OF HOURS OF HELP^NJ3,0^^2;9^K:+X'=X!(X>336)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,2.09,3)="Type a Number between 0 and 336, 0 Decimal Digits."
^DD(154.1,2.09,21,0)="^^2^2^2960731^^"
^DD(154.1,2.09,21,1,0)="If the patient required help within the last two weeks from another person"
^DD(154.1,2.09,21,2,0)="for everyday activities enter the number of hours of help he required."
^DD(154.1,2.09,"DT")="2950516"
^DD(154.1,2.13,0)="HOURS OF HELP WITHIN LAST DAY^NJ2,0^^2;16^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,2.13,3)="Type a Number between 0 and 24, 0 Decimal Digits."
^DD(154.1,2.13,"DT")="2960731"
^DD(154.1,3.1,0)="PYRAMIDAL^*P154.2'OX^SPNL(154.2,^MS;1^S DIC(""S"")=""I $P(^(0),U,2)=1"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.1,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.1,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.1,12)="Screen out those entries that are not for PYRAMIDAL."
^DD(154.1,3.1,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"",DIC(0)=""EBQZ"""
^DD(154.1,3.1,"DT")="3001127"
^DD(154.1,3.2,0)="BRAINSTEM^*P154.2'OX^SPNL(154.2,^MS;2^S DIC(""S"")=""I $P(^(0),U,2)=2"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.2,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.2,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.2,12)="Screen out those entries that are not for BRAINSTEM."
^DD(154.1,3.2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=2"",DIC(0)=""EBQZ"""
^DD(154.1,3.2,"DT")="3001127"
^DD(154.1,3.3,0)="SENSORY^*P154.2'OX^SPNL(154.2,^MS;3^S DIC(""S"")=""I $P(^(0),U,2)=3"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.3,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.3,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.3,12)="Screen out those entries that are not for SENSORY."
^DD(154.1,3.3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=3"",DIC(0)=""EBQZ"""
^DD(154.1,3.3,"DT")="3001127"
^DD(154.1,3.4,0)="CEREBRAL^*P154.2'OX^SPNL(154.2,^MS;4^S DIC(""S"")=""I $P(^(0),U,2)=4"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.4,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.4,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.4,12)="Screen out those entries that are not for CEREBRAL."
^DD(154.1,3.4,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=4"",DIC(0)=""EBQZ"""
^DD(154.1,3.4,"DT")="3001127"
^DD(154.1,3.5,0)="CEREBELLAR^*P154.2'OX^SPNL(154.2,^MS;5^S DIC(""S"")=""I $P(^(0),U,2)=5"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.5,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.5,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.5,12)="Screen out those entries that are not CEREBELLAR."
^DD(154.1,3.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=5"",DIC(0)=""EBQZ"""
^DD(154.1,3.5,"DT")="3001127"
^DD(154.1,3.6,0)="BOWEL & BLADDER FUNCTION^*P154.2'OX^SPNL(154.2,^MS;6^S DIC(""S"")=""I $P(^(0),U,2)=6"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.6,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.6,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.6,12)="Screen out those entries that are not for BOWEL & BLADDER."
^DD(154.1,3.6,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=6"",DIC(0)=""EBQZ"""
^DD(154.1,3.6,"DT")="3001127"
^DD(154.1,3.7,0)="VISUAL^*P154.2'OX^SPNL(154.2,^MS;7^S DIC(""S"")=""I $P(^(0),U,2)=7"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.7,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.7,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.7,12)="Screen out those entries that are not for VISUAL."
^DD(154.1,3.7,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=7"",DIC(0)=""EBQZ"""
^DD(154.1,3.7,"DT")="3001127"
^DD(154.1,3.8,0)="OTHER^*P154.2'OX^SPNL(154.2,^MS;8^S DIC(""S"")=""I $P(^(0),U,2)=8"",DIC(0)=""EBQZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.8,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.8,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_"" ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.8,12)="Screen out those entries that are not for OTHER."
^DD(154.1,3.8,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=8"",DIC(0)=""EBQZ"""
^DD(154.1,3.8,"DT")="3001127"
^DD(154.1,3.9,0)="EDSS^*P154.2'O^SPNL(154.2,^MS;9^S DIC(""S"")=""I $P(^(0),U,2)=9"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,3.9,2)="S Y(0)=Y S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_""  ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.9,2.1)="S:+Y Y=$P($G(^SPNL(154.2,+Y,0)),U)_""  ""_$P($G(^SPNL(154.2,+Y,1)),U)"
^DD(154.1,3.9,12)="Screen out those entries that are not for EDSS."
^DD(154.1,3.9,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=9"""
^DD(154.1,3.9,"DT")="2960705"
^DD(154.1,4.1,0)="PHYSICAL INDEPENDENCE^NJ3,0^^CHART;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,4.1,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(154.1,4.1,21,0)="^^11^11^2960711^"
^DD(154.1,4.1,21,1,0)="CHART PHYSICAL INDEPENDENCE SCORE"
^DD(154.1,4.1,21,2,0)=" "
^DD(154.1,4.1,21,3,0)="The CHART Physical Independence Score should be computed according to the "
^DD(154.1,4.1,21,4,0)="instructions in Appendix B of the CHART Manual.  Although negative values"
^DD(154.1,4.1,21,5,0)="can occur, particularly for individuals with high level cervical injuries,"
^DD(154.1,4.1,21,6,0)="all scores should be in the 0 to 100 range.  If negative values occur,"
^DD(154.1,4.1,21,7,0)="they should be recorded as zero (0).  In the Physical Independence"
^DD(154.1,4.1,21,8,0)="dimension, a score of 100 indicates no handicap in an individual's ability"
^DD(154.1,4.1,21,9,0)="to sustain a customarily effective independent existence.  The need for"
^DD(154.1,4.1,21,10,0)="regular or periodic assistance for activities which used to be performed"
^DD(154.1,4.1,21,11,0)="independently is indicative of some degree of handicap."
^DD(154.1,4.1,"DT")="2960709"
^DD(154.1,4.2,0)="MOBILITY^NJ3,0^^CHART;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,4.2,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(154.1,4.2,21,0)="^^7^7^2960711^^"
^DD(154.1,4.2,21,1,0)="CHART MOBILITY SCORE"
^DD(154.1,4.2,21,2,0)="    "
^DD(154.1,4.2,21,3,0)="The CHART Mobility Score should be computed according to the instructions"
^DD(154.1,4.2,21,4,0)="in Appendix B of the CHART Manual yielding a score between 0 through 100."
^DD(154.1,4.2,21,5,0)="If this computed sum is greater than 100, enter 100.  In the Mobility"
^DD(154.1,4.2,21,6,0)="dimension, a score of 100 indicates no handicap in an individual's ability"
^DD(154.1,4.2,21,7,0)="to move about effectively in his/her surroundings."
^DD(154.1,4.2,"DT")="2960709"
^DD(154.1,4.3,0)="OCCUPATION^NJ3,0^^CHART;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,4.3,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(154.1,4.3,21,0)="^^8^8^2960711^"
^DD(154.1,4.3,21,1,0)="CHART OCCUPATION SCORE"
^DD(154.1,4.3,21,2,0)="   "
^DD(154.1,4.3,21,3,0)="The CHART Occupation Score should be entered as a 100, if the sum of"
^DD(154.1,4.3,21,4,0)="elements referred to in Appendix B of the CHART Manual is 100 or greater."
^DD(154.1,4.3,21,5,0)="The range of scores on this scales is from 0 through 100.  In the"
^DD(154.1,4.3,21,6,0)="Occupation Dimension, a score of 100 indicates no handicap in an"
^DD(154.1,4.3,21,7,0)="individual's ability to occupy time in the manner customary to that"
^DD(154.1,4.3,21,8,0)="person's sex, age, and culture."
^DD(154.1,4.3,"DT")="2960709"
^DD(154.1,4.4,0)="SOCIAL INTERACTION^NJ3,0^^CHART;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,4.4,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(154.1,4.4,21,0)="^^8^8^2960711^"
^DD(154.1,4.4,21,1,0)="CHART SOCIAL INTEGRATION SCORE"
^DD(154.1,4.4,21,2,0)=" "
^DD(154.1,4.4,21,3,0)="In the CHART Social Integration Dimension, a score of 100 indicates "
^DD(154.1,4.4,21,4,0)="no handicap in an individual's ability to participate in and maintain"
^DD(154.1,4.4,21,5,0)="customary social relationships.  The CHART Social Integration Score should"
^DD(154.1,4.4,21,6,0)="be computed according to the instructions in Appendix B of the CHART"
^DD(154.1,4.4,21,7,0)="Manual.  If the added sum is greater than 100, enter 100, but all scores"
^DD(154.1,4.4,21,8,0)="should fall in the range between 0 through 100."
^DD(154.1,4.4,"DT")="2960709"
^DD(154.1,4.5,0)="ECONOMIC SELF SUFFICIENCY^NJ3,0^^CHART;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,4.5,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(154.1,4.5,21,0)="^^10^10^2960711^"
^DD(154.1,4.5,21,1,0)="CHART ECONOMIC SELF-SUFFICIENCY SCORE"
^DD(154.1,4.5,21,2,0)=" "
^DD(154.1,4.5,21,3,0)="The CHART Economic Self-Sufficiency Score should be computed according"
^DD(154.1,4.5,21,4,0)="to the instructions in Appendix B of the CHART Manual.  Since poverty"
^DD(154.1,4.5,21,5,0)="levels change every year, be sure to update your poverty levels"
^DD(154.1,4.5,21,6,0)="annually, by referring to ""Statistical Abstracts of the U.S.,"""
^DD(154.1,4.5,21,7,0)="""Weighted Average Poverty Levels"" table, or by calling your local"
^DD(154.1,4.5,21,8,0)="Census Bureau.  Make sure to make the necessary point conversions in"
^DD(154.1,4.5,21,9,0)="Item # E after deriving the ""D"" sum.  The CHART Economic Self-Sufficiency"
^DD(154.1,4.5,21,10,0)="Score should be a value of either 0, 25, 50, 75, or 100."
^DD(154.1,4.5,"DT")="2960709"
^DD(154.1,4.6,0)="COGNITIVE INDEPENDENCE^NJ3,0^^CHART;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1.N) X"
^DD(154.1,4.6,.1)="COGNITIVE"
^DD(154.1,4.6,3)="Type a number between 0 and 100, 0 Decimal Digits"
^DD(154.1,4.6,"DT")="3001226"
^DD(154.1,5.01,0)="SWALLOWING^*P154.11'O^SPNL(154.11,^FAM;1^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.01,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.01,2.1)="5.01:.02"
^DD(154.1,5.01,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.01,21,0)="^.001^6^6^3000323^^"
^DD(154.1,5.01,21,1,0)="FAM SWALLOWING (1 to 7)"
^DD(154.1,5.01,21,2,0)=" "
^DD(154.1,5.01,21,3,0)="Swallowing includes the ability to safely eat a regular diet by mouth.  "
^DD(154.1,5.01,21,4,0)="At level 7, the participant is able to eat a regular diet of choice in"
^DD(154.1,5.01,21,5,0)="a reasonable amount of time.  Please rate on the scale noted on the"
^DD(154.1,5.01,21,6,0)="FAM Module Screen from 1 to 7"
^DD(154.1,5.01,"DT")="3000323"
^DD(154.1,5.02,0)="CAR TRANSFERS^*P154.11'O^SPNL(154.11,^FAM;2^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.02,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.02,2.1)="5.02:.02"
^DD(154.1,5.02,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.02,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.02,21,0)="^^9^9^2960711^"
^DD(154.1,5.02,21,1,0)="FAM CAR TRANSFERS (1 to 7)"
^DD(154.1,5.02,21,2,0)=" "
^DD(154.1,5.02,21,3,0)="This activity includes approaching the car, managing the car door and"
^DD(154.1,5.02,21,4,0)="lock, getting on or off the car seat, and managing the seat belt.  If"
^DD(154.1,5.02,21,5,0)="a wheelchair is used for mobility, the activity includes loading and"
^DD(154.1,5.02,21,6,0)="unloading the wheelchair.  At level 7, the participant should be able "
^DD(154.1,5.02,21,7,0)="to complete a car transfer without aids or assistive devices, in a"
^DD(154.1,5.02,21,8,0)="reasonable amount of time.  Please rate on the scale noted on the "
^DD(154.1,5.02,21,9,0)="FAM Module Screen from 1 to 7. "
^DD(154.1,5.02,"DT")="3000323"
^DD(154.1,5.03,0)="COMMUNITY ACCESS^*P154.11'O^SPNL(154.11,^FAM;3^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.03,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.03,2.1)="5.03:.02"
^DD(154.1,5.03,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.03,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.03,21,0)="^^9^9^2960711^"
^DD(154.1,5.03,21,1,0)="FAM COMMUNITY ACCESS (1 to 7)"
^DD(154.1,5.03,21,2,0)=" "
^DD(154.1,5.03,21,3,0)="Community Access includes the ability to manage transportation,"
^DD(154.1,5.03,21,4,0)="including planning a route, time management, paying fares and "
^DD(154.1,5.03,21,5,0)="anticipating access barriers (excluding car transfers).  At level 7,"
^DD(154.1,5.03,21,6,0)="the participant is able to independently use public transportation"
^DD(154.1,5.03,21,7,0)="(bus, van, or taxi) or is able to drive a car with no safety"
^DD(154.1,5.03,21,8,0)="considerations.  Please rate on the scale noted on the FAM Module "
^DD(154.1,5.03,21,9,0)="Screen from 1 to 7. "
^DD(154.1,5.03,"DT")="3000323"
^DD(154.1,5.04,0)="READING^*P154.11'O^SPNL(154.11,^FAM;4^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.04,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.04,2.1)="5.04:.02"
^DD(154.1,5.04,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.04,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.04,21,0)="^^7^7^2960711^"
^DD(154.1,5.04,21,1,0)="FAM READING (1 to 7)"
^DD(154.1,5.04,21,2,0)=" "
^DD(154.1,5.04,21,3,0)="Reading includes the ability to understand non-vocal written material.  "
^DD(154.1,5.04,21,4,0)="At level 7, the participant is able to read and completely understand "
^DD(154.1,5.04,21,5,0)="and retain complex lengthy paragraphs (newspapers, books, etc.) in"
^DD(154.1,5.04,21,6,0)="a reasonable amount of times.  Please rate this item on the scale noted"
^DD(154.1,5.04,21,7,0)="on the FAM Module Screen from 1 to 7. "
^DD(154.1,5.04,"DT")="3000323"
^DD(154.1,5.05,0)="WRITING^*P154.11'O^SPNL(154.11,^FAM;5^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.05,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.05,2.1)="5.05:.02"
^DD(154.1,5.05,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.05,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.05,21,0)="^^7^7^2960711^"
^DD(154.1,5.05,21,1,0)="FAM WRITING (1 to 7)"
^DD(154.1,5.05,21,2,0)=" "
^DD(154.1,5.05,21,3,0)="Writing includes the spelling, grammar, and completeness of written"
^DD(154.1,5.05,21,4,0)="communication.  At level 7, the participant is able to write short "
^DD(154.1,5.05,21,5,0)="paragraphs with ""average"" accuracy in spelling, grammar, and "
^DD(154.1,5.05,21,6,0)="completeness in a reasonable amount of time.  Please rate on the "
^DD(154.1,5.05,21,7,0)="scale noted on the FAM Module Screen from 1 to 7."
^DD(154.1,5.05,"DT")="3000323"
^DD(154.1,5.06,0)="SPEECH INTELLIGIBILITY^*P154.11'O^SPNL(154.11,^FAM;6^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.06,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.06,2.1)="5.06:.02"
^DD(154.1,5.06,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.06,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.06,21,0)="^^6^6^2960711^"
^DD(154.1,5.06,21,1,0)="FAM SPEECH INTELLIGIBILITY (1 TO 7)"
^DD(154.1,5.06,21,2,0)=" "
^DD(154.1,5.06,21,3,0)="Speech Intelligibility includes articulation, rate, volume, and quality of"
^DD(154.1,5.06,21,4,0)="vocal communication.  At level 7, the participant should be able to"
^DD(154.1,5.06,21,5,0)="converse with a well modulated, well articulated voice.  Please rate this"
^DD(154.1,5.06,21,6,0)="item on the scale noted on the FAM Module Screen from 1 to 7."
^DD(154.1,5.06,"DT")="3000323"
^DD(154.1,5.07,0)="EMOTIONAL STATUS^*P154.11'O^SPNL(154.11,^FAM;7^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.07,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.07,2.1)="5.07:.02"
^DD(154.1,5.07,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.07,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.07,21,0)="^^10^10^2960711^"
^DD(154.1,5.07,21,1,0)="FAM EMOTIONAL STATUS (1 to 7)"
^DD(154.1,5.07,21,2,0)=" "
^DD(154.1,5.07,21,3,0)="Emotional Status includes the frequency and severity of depression,"
^DD(154.1,5.07,21,4,0)="anxiety, frustration, unresponsiveness, agitation, interference"
^DD(154.1,5.07,21,5,0)="with general life functioning, and ability to cope with and take "
^DD(154.1,5.07,21,6,0)="responsibility for emotional behavior.  At level 7, the participant"
^DD(154.1,5.07,21,7,0)="rarely exhibits emotional problems, and is fully able to control and"
^DD(154.1,5.07,21,8,0)="cope with these problems in a way in which they do not interfere with"
^DD(154.1,5.07,21,9,0)="general life functioning.  Please rate this item on the seven-point"
^DD(154.1,5.07,21,10,0)="scale noted on the FAME Module Screen. "
^DD(154.1,5.07,"DT")="3000323"
^DD(154.1,5.08,0)="ADJUSTMENT TO LIMITATIONS^*P154.11'O^SPNL(154.11,^FAM;8^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.08,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.08,2.1)="5.08:.02"
^DD(154.1,5.08,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.08,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.08,21,0)="^^10^10^2960711^"
^DD(154.1,5.08,21,1,0)="FAM ADJUSTMENT TO LIMITATIONS (1 to 7)"
^DD(154.1,5.08,21,2,0)=" "
^DD(154.1,5.08,21,3,0)="Adjustment to Limitations includes denial/awareness, acceptance"
^DD(154.1,5.08,21,4,0)="of limitations, willingness to learn new ways of functioning,"
^DD(154.1,5.08,21,5,0)="compensating, taking appropriate safety precautions and realistic"
^DD(154.1,5.08,21,6,0)="expectations of recovery.  At level 7, the participant should"
^DD(154.1,5.08,21,7,0)="demonstrate the ability to compensate for limitations, exercise safe"
^DD(154.1,5.08,21,8,0)="judgment in Activities of Daily Living, and have realistic"
^DD(154.1,5.08,21,9,0)="expectations for long-term recovery.  Please rate on the scale noted"
^DD(154.1,5.08,21,10,0)="on the FAM Module Screen from 1 to 7. "
^DD(154.1,5.08,"DT")="3000323"
^DD(154.1,5.09,0)="EMPLOYABILITY^*P154.11'O^SPNL(154.11,^FAM;9^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.09,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.09,2.1)="5.09:.02"
^DD(154.1,5.09,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.09,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.09,21,0)="^^9^9^2960711^"
^DD(154.1,5.09,21,1,0)="FAM EMPLOYABILITY (1 to 7)"
^DD(154.1,5.09,21,2,0)=" "
^DD(154.1,5.09,21,3,0)="Employment includes involvement in one or more of the following"
^DD(154.1,5.09,21,4,0)="categories:  in the workforce, as a student, or as a homemaker."
^DD(154.1,5.09,21,5,0)="At level 7, a participant can compete in the open market for a"
^DD(154.1,5.09,21,6,0)="wide range of jobs, plan, execute, and assume responsibility"
^DD(154.1,5.09,21,7,0)="for homemaking, or understand and carry out school assignments"
^DD(154.1,5.09,21,8,0)="and maintain a passing average.  Please rate this item on the"
^DD(154.1,5.09,21,9,0)="seven-point scale on the FAM Module Screen from 1 to 7. "
^DD(154.1,5.09,"DT")="3000323"
^DD(154.1,5.1,0)="ORIENTATION^*P154.11'O^SPNL(154.11,^FAM;10^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.1,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.1,2.1)="5.1:.02"
^DD(154.1,5.1,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.1,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.1,21,0)="^^6^6^2960711^"
^DD(154.1,5.1,21,1,0)="FAM ORIENTATION (1 to 7)"
^DD(154.1,5.1,21,2,0)=" "
^DD(154.1,5.1,21,3,0)="This item includes consistent orientation to person, place, time, and "
^DD(154.1,5.1,21,4,0)="situation.  At level 7, a participant should be completely oriented"
^DD(154.1,5.1,21,5,0)="to person, place, time, and situation without any cues.  Please rate"
^DD(154.1,5.1,21,6,0)="on the scale noted on the FAM Module Screen from 1 to 7. "
^DD(154.1,5.1,"DT")="3000323"
^DD(154.1,5.11,0)="ATTENTION^*P154.11'O^SPNL(154.11,^FAM;11^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.11,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.11,2.1)="5.11:.02"
^DD(154.1,5.11,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.11,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.11,21,0)="^^9^9^2960711^"
^DD(154.1,5.11,21,1,0)="FAM ATTENTION (1 to 7)"
^DD(154.1,5.11,21,2,0)=" "
^DD(154.1,5.11,21,3,0)="Attention includes the length of time the participant is able to "
^DD(154.1,5.11,21,4,0)="concentrate on tasks, taking into consideration distractibility,"
^DD(154.1,5.11,21,5,0)="level of responsiveness, and the difficulty of the task.  At level"
^DD(154.1,5.11,21,6,0)="7, a participant should be able to attend to a task for sixty minutes"
^DD(154.1,5.11,21,7,0)="without assistance in maintaining the task, taking into consideration"
^DD(154.1,5.11,21,8,0)="distractions and self-directed return to tasks.  Please rate this seven-"
^DD(154.1,5.11,21,9,0)="point scale  on the FAM Module Screen from 1 to 7. "
^DD(154.1,5.11,"DT")="3000323"
^DD(154.1,5.12,0)="SAFETY JUDGEMENT^*P154.11'O^SPNL(154.11,^FAM;12^S DIC(""S"")=""I $P(^(0),U,3)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,5.12,2)="S Y(0)=Y S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^SPNL(154.11,+D0,0)) D0=-1 S Y(101)=$S($D(^SPNL(154.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S Y=X"
^DD(154.1,5.12,2.1)="5.12:.02"
^DD(154.1,5.12,12)="SCREEN OUT ALL NON FAM SCORES."
^DD(154.1,5.12,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=5"""
^DD(154.1,5.12,21,0)="^^10^10^2960711^"
^DD(154.1,5.12,21,1,0)="FAM SAFETY JUDGEMENT (1 to 7)"
^DD(154.1,5.12,21,2,0)=" "
^DD(154.1,5.12,21,3,0)="Safety Judgment includes orientation to situation, awareness of"
^DD(154.1,5.12,21,4,0)="deficits and their implications, ability to plan ahead, ability to "
^DD(154.1,5.12,21,5,0)="understand the nature of situations involving potential danger and to "
^DD(154.1,5.12,21,6,0)="identify risks involved, freedom from impulsivity, ability to remember"
^DD(154.1,5.12,21,7,0)="safety related information, and ability to respond appropriately if"
^DD(154.1,5.12,21,8,0)="danger arises.  At level 7, a participant should be able to pursue "
^DD(154.1,5.12,21,9,0)="all activities independently using proper safety awareness skills."
^DD(154.1,5.12,21,10,0)="Please rate on the scale noted on the FAM Module Screen from 1 to 7."
^DD(154.1,5.12,"DT")="3000323"
^DD(154.1,6.01,0)="DIENER COMPOSITE SCORE^NJ2,0^^SCORE;1^K:+X'=X!(X>35)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,6.01,3)="Type a Number between 0 and 35, 0 Decimal Digits."
^DD(154.1,6.01,"DT")="2960709"
^DD(154.1,6.02,0)="DUSOI COMPOSITE SCORE^NJ3,0^^SCORE;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,6.02,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(154.1,6.02,"DT")="2960709"
^DD(154.1,7.01,0)="ASIA IMPAIRMENT SCALE^RS^A:A;B:B;C:C;D:D;E:E;^ASIA;1^Q"
^DD(154.1,7.01,3)="Enter a code from 'A' to 'E'."
^DD(154.1,7.01,21,0)="^.001^15^15^3000306^^"
^DD(154.1,7.01,21,1,0)="A = COMPLETE: No motor or sensory function is preserved in the sacral"
^DD(154.1,7.01,21,2,0)="segments S04-S05."
^DD(154.1,7.01,21,3,0)=" "
^DD(154.1,7.01,21,4,0)="B = INCOMPLETE: Sensory but not motor function is preserved below the"
^DD(154.1,7.01,21,5,0)="neurological level and extends through the sacral segments S04-S05."
^DD(154.1,7.01,21,6,0)=" "
^DD(154.1,7.01,21,7,0)="C = INCOMPLETE: Motor function is preserved below the neurological level,"
^DD(154.1,7.01,21,8,0)="and the majority of key muscles below the neurological level have a muscle"
^DD(154.1,7.01,21,9,0)="grade less than 3."
^DD(154.1,7.01,21,10,0)=" "
^DD(154.1,7.01,21,11,0)="D = INCOMPLETE: Motor function is preserved below the neurological level,"
^DD(154.1,7.01,21,12,0)="and the majority of key muscles below the neurological level have a muscle"
^DD(154.1,7.01,21,13,0)="grade greater than or equal to 3."
^DD(154.1,7.01,21,14,0)=" "
^DD(154.1,7.01,21,15,0)="E = NORMAL: Motor and sensory function is normal."
^DD(154.1,7.01,"DT")="3021018"
^DD(154.1,7.02,0)="TOTAL MOTOR SCORE^NJ3,0^^ASIA;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,7.02,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(154.1,7.02,"DT")="2991126"
^DD(154.1,7.03,0)="TOTAL PIN PRICK SCORE^NJ3,0^^ASIA;3^K:+X'=X!(X>112)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,7.03,3)="Type a Number between 0 and 112, 0 Decimal Digits."
^DD(154.1,7.03,21,0)="^^1^1^2991126^"
^DD(154.1,7.03,21,1,0)="This field contains the ASIA total pin prick score."
^DD(154.1,7.03,"DT")="2991126"
^DD(154.1,7.04,0)="TOTAL LIGHT TOUCH SCORE^NJ3,0^^ASIA;4^K:+X'=X!(X>112)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,7.04,3)="Type a Number between 0 and 112, 0 Decimal Digits."
^DD(154.1,7.04,21,0)="^.001^1^1^3000306^^^"
^DD(154.1,7.04,21,1,0)="This field contains the ASIA total light touch score."
^DD(154.1,7.04,"DT")="2991126"
^DD(154.1,7.05,0)="NEUROLEVEL-SENSORY RIGHT^*P154.01'^SPNL(154.01,^ASIA;5^S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,7.05,12)="Select C02-C08,T01-T12,L01-L05,S01-S04."
^DD(154.1,7.05,12.1)="S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"""
^DD(154.1,7.05,21,0)="^^1^1^2991126^"
^DD(154.1,7.05,21,1,0)="This field contains the patient's right sensory neurological level."
^DD(154.1,7.05,"DT")="2991126"
^DD(154.1,7.06,0)="NEUROLEVEL-SENSORY LEFT^*P154.01'^SPNL(154.01,^ASIA;6^S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,7.06,12)="Select C02-C08,T01-T12,L01-L05,S01-S04."
^DD(154.1,7.06,12.1)="S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"""
^DD(154.1,7.06,21,0)="^^1^1^2991126^"
^DD(154.1,7.06,21,1,0)="This field contains the patient's left sensory neurological level."
^DD(154.1,7.06,"DT")="2991126"
^DD(154.1,7.07,0)="NEUROLEVEL-MOTOR RIGHT^*P154.01'^SPNL(154.01,^ASIA;7^S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,7.07,12)="Select C05-C08,T01,L02-L05,S01."
^DD(154.1,7.07,12.1)="S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"""
^DD(154.1,7.07,21,0)="^^1^1^2991126^"
^DD(154.1,7.07,21,1,0)="This field contains the patient's right motor neurological level."
^DD(154.1,7.07,"DT")="2991126"
^DD(154.1,7.08,0)="NEUROLEVEL-MOTOR LEFT^*P154.01'^SPNL(154.01,^ASIA;8^S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,7.08,12)="Select C05-C08,T01,L02-L05,S01."
^DD(154.1,7.08,12.1)="S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"""
^DD(154.1,7.08,21,0)="^^1^1^2991126^"
^DD(154.1,7.08,21,1,0)="This field contains the patient's left motor neurological level."
^DD(154.1,7.08,"DT")="2991126"
^DD(154.1,7.09,0)="ASIA COMPLETE/INCOMPLETE^S^C:COMPLETE;I:INCOMPLETE;^ASIA;9^Q"
^DD(154.1,7.09,3)="Enter the status of the patient's ASIA sensory/motor function."
^DD(154.1,7.09,21,0)="^^3^3^2991126^^"
^DD(154.1,7.09,21,1,0)="C (complete) means that the neurological level of injury is complete."
^DD(154.1,7.09,21,2,0)="I (incomplete) means that the neurological level of injury is not"
^DD(154.1,7.09,21,3,0)="  complete."
^DD(154.1,7.09,"DT")="3000329"
^DD(154.1,7.1,0)="PARTIAL PRESERVATION-SENSORY R^*P154.01'^SPNL(154.01,^ASIA;10^S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,7.1,12)="Select C02-C08,T01-T12,L01-L05,S01-S04."
^DD(154.1,7.1,12.1)="S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"""
^DD(154.1,7.1,21,0)="^^2^2^2991126^^"
^DD(154.1,7.1,21,1,0)="This field contains the patient's right sensory zone of partial"
^DD(154.1,7.1,21,2,0)="preservation."
^DD(154.1,7.1,"DT")="2991126"
^DD(154.1,7.11,0)="PARTIAL PRESERVATION-SENSORY L^*P154.01'^SPNL(154.01,^ASIA;11^S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(154.1,7.11,12)="Select C02-C08,T01-T12,L01-L05,S01-S04."
^DD(154.1,7.11,12.1)="S DIC(""S"")=""I """"^C01^S05^UNK^""""'[(U_$P(^(0),U)_U)"""
^DD(154.1,7.11,21,0)="^^2^2^2991126^"
^DD(154.1,7.11,21,1,0)="This field contains the patient's left sensory zone of partial"
^DD(154.1,7.11,21,2,0)="preservation."
^DD(154.1,7.11,"DT")="2991126"
^DD(154.1,7.12,0)="PARTIAL PRESERVATION-MOTOR R^*P154.01'^SPNL(154.01,^ASIA;12^S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,7.12,12)="Select C05-C08,T01,L02-L05,S01."
^DD(154.1,7.12,12.1)="S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"""
^DD(154.1,7.12,21,0)="^^2^2^2991126^"
^DD(154.1,7.12,21,1,0)="This field contains the patient's right motor zone of partial"
^DD(154.1,7.12,21,2,0)="preservation."
^DD(154.1,7.12,"DT")="2991126"
^DD(154.1,7.13,0)="PARTIAL PRESERVATION-MOTOR L^*P154.01'^SPNL(154.01,^ASIA;13^S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,7.13,12)="Select C05-C08,T01,L02-L05,S01."
^DD(154.1,7.13,12.1)="S DIC(""S"")=""N SPNL S SPNL=$TR($P(^(0),U),""""CTLS"""",""""1234"""") I ((SPNL'<105)&(SPNL'>108))!(SPNL=201)!((SPNL'<302)&(SPNL'>305))!(SPNL=401)"""
^DD(154.1,7.13,21,0)="^^2^2^2991126^"
^DD(154.1,7.13,21,1,0)="This field contains the patient's left motor zone of partial"
^DD(154.1,7.13,21,2,0)="preservation."
^DD(154.1,7.13,"DT")="2991126"
^DD(154.1,7.14,0)="ASIA HIGHEST NEURO LEVEL^RP154.01'^SPNL(154.01,^ASIA;14^Q"
^DD(154.1,7.14,"DT")="3021018"
^DD(154.1,999.01,0)="SSN^CJ9^^ ; ^X ^DD(154.1,999.01,9.2) S Y(154.1,999.01,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(154.1,999.01,101),U,9) S D0=Y(154.1,999.01,80)"
^DD(154.1,999.01,9)="^"
^DD(154.1,999.01,9.01)="2^.09;154.1^.01"
^DD(154.1,999.01,9.1)=".01:.09"
^DD(154.1,999.01,9.2)="S Y(154.1,999.01,80)=$S($D(D0):D0,1:""""),Y(154.1,999.01,1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(Y(154.1,999.01,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(154.1,999.01,21,0)="^.001^1^1^3010627^^"
^DD(154.1,999.01,21,1,0)="This is the patient's SSN from the Patient file (#2)."
^DD(154.1,999.02,0)="DOB^DC^^ ; ^X ^DD(154.1,999.02,9.2) S Y(154.1,999.02,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(154.1,999.02,101),U,3) S D0=Y(154.1,999.02,80)"
^DD(154.1,999.02,9)="^"
^DD(154.1,999.02,9.01)="2^.03;154.1^.01"
^DD(154.1,999.02,9.1)=".01:.03"
^DD(154.1,999.02,9.2)="S Y(154.1,999.02,80)=$S($D(D0):D0,1:""""),Y(154.1,999.02,1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(Y(154.1,999.02,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(154.1,999.02,21,0)="^^1^1^2950620^"
^DD(154.1,999.02,21,1,0)="This is the patient's date of birth from the Patient file (#2)."
^DD(154.1,999.025,0)="AGE^CJ3^^ ; ^X ^DD(154.1,999.025,9.2) X ""N I,Y ""_$P(^DD(2,.033,0),U,5,99) S Y(154.1,999.025,101)=X S X=Y(154.1,999.025,101) S D0=Y(154.1,999.025,80)"
^DD(154.1,999.025,9)="^"
^DD(154.1,999.025,9.01)="2^.033;154.1^.01"
^DD(154.1,999.025,9.1)=".01:.033"
^DD(154.1,999.025,9.2)="S Y(154.1,999.025,80)=$G(D0),Y(154.1,999.025,1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(Y(154.1,999.025,1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1"
^DD(154.1,999.025,"DT")="3010627"
^DD(154.1,999.03,0)="MOTOR SCORE^CJ6^^ ; ^S X=$$EN1^SPNFUTL0(D0)"
^DD(154.1,999.03,9)="^"
^DD(154.1,999.03,9.01)=""
^DD(154.1,999.03,9.1)="S X=$$EN1^SPNFUTL0(D0)"
^DD(154.1,999.03,21,0)="^^19^19^2960307^^^"
^DD(154.1,999.03,21,1,0)="The Functional Status motor score is computed from the scores of the"
^DD(154.1,999.03,21,2,0)="fields listed below.  If one or more of the fields is blank, an averaging"
^DD(154.1,999.03,21,3,0)="procedure is used to compute the score and the score will have a '*'"
^DD(154.1,999.03,21,4,0)="appended to it. If all the fields are blank, this field returns the string"
^DD(154.1,999.03,21,5,0)="'ERROR'."
^DD(154.1,999.03,21,6,0)=" "
^DD(154.1,999.03,21,7,0)=" EATING                       "
^DD(154.1,999.03,21,8,0)=" GROOMING                     "
^DD(154.1,999.03,21,9,0)=" BATHING                      "
^DD(154.1,999.03,21,10,0)=" DRESSING UPPER BODY          "
^DD(154.1,999.03,21,11,0)=" DRESSING LOWER BODY FROM BATH"
^DD(154.1,999.03,21,12,0)=" TOILETING                    "
^DD(154.1,999.03,21,13,0)=" BLADDER MANAGEMENT           "
^DD(154.1,999.03,21,14,0)=" BOWEL MANAGEMENT             "
^DD(154.1,999.03,21,15,0)=" XFER TO BED/CHAIR/WHEELCHAIR "
^DD(154.1,999.03,21,16,0)=" XFER TO TOILET               "
^DD(154.1,999.03,21,17,0)=" XFER TO TUB/SHOWER           "
^DD(154.1,999.03,21,18,0)=" MOVE AROUND INSIDE YOUR HOUSE"
^DD(154.1,999.03,21,19,0)=" STAIRS                       "
^DD(154.1,999.04,0)="COGNITIVE SCORE^CJ6^^ ; ^S X=$$EN2^SPNFUTL0(D0)"
^DD(154.1,999.04,9)="^"
^DD(154.1,999.04,9.01)=""
^DD(154.1,999.04,9.1)="S X=$$EN2^SPNFUTL0(D0)"
^DD(154.1,999.04,21,0)="^.001^13^13^3001226^^^^"
^DD(154.1,999.04,21,1,0)="The Functional Status cognitive score is computed from the scores of the"
^DD(154.1,999.04,21,2,0)="fields listed below.  The cognitive score is only returned for Clinician"
^DD(154.1,999.04,21,3,0)="Reported FIMs, for Four Level Functional Measures this field returns the"
^DD(154.1,999.04,21,4,0)="string 'N/A'. If one or more of the fields is blank, an averaging"
^DD(154.1,999.04,21,5,0)="procedure is used to compute the score and the score will have a '*'"
^DD(154.1,999.04,21,6,0)="appended to it. If all the fields are blank, this field returns the string"
^DD(154.1,999.04,21,7,0)="'ERROR'."
^DD(154.1,999.04,21,8,0)=" "
^DD(154.1,999.04,21,9,0)=" COMPREHENSION     "
^DD(154.1,999.04,21,10,0)=" EXPRESSION        "
^DD(154.1,999.04,21,11,0)=" SOCIAL INTERACTION"
^DD(154.1,999.04,21,12,0)=" PROBLEM SOLVING   "
^DD(154.1,999.04,21,13,0)=" MEMORY            "
^DD(154.1,999.04,"DT")="3001226"
^DD(154.1,999.05,0)="TOTAL SCORE^CJ6^^ ; ^S X=$$EN3^SPNFUTL0(D0)"
^DD(154.1,999.05,9)="^"
^DD(154.1,999.05,9.01)=""
^DD(154.1,999.05,9.1)="S X=$$EN3^SPNFUTL0(D0)"
^DD(154.1,999.05,21,0)="^^26^26^2960709^^^^"
^DD(154.1,999.05,21,1,0)="The Functional Status total score is computed from the scores of the"
^DD(154.1,999.05,21,2,0)="fields listed below.  If one or more of the fields is blank, an averaging"
^DD(154.1,999.05,21,3,0)="procedure is used to compute the score and the score will have a '*'"
^DD(154.1,999.05,21,4,0)="appended to it. If all the fields are blank, this field returns the string"
^DD(154.1,999.05,21,5,0)="'ERROR'."
^DD(154.1,999.05,21,6,0)=" "
^DD(154.1,999.05,21,7,0)=" Four Level Functional Measure            Clinician Reported FIM"
^DD(154.1,999.05,21,8,0)=" =============================            ======================"
^DD(154.1,999.05,21,9,0)=" EATING                                   EATING"
^DD(154.1,999.05,21,10,0)=" GROOMING                                 GROOMING"
^DD(154.1,999.05,21,11,0)=" BATHING                                  BATHING"
^DD(154.1,999.05,21,12,0)=" DRESSING UPPER BODY                      DRESSING UPPER BODY"
^DD(154.1,999.05,21,13,0)=" DRESSING LOWER BODY FROM BATH            DRESSING LOWER BODY FROM BATH"
^DD(154.1,999.05,21,14,0)=" TOILETING                                TOILETING"
^DD(154.1,999.05,21,15,0)=" BLADDER MANAGEMENT                       BLADDER MANAGEMENT"
^DD(154.1,999.05,21,16,0)=" BOWEL MANAGEMENT                         BOWEL MANAGEMENT"
^DD(154.1,999.05,21,17,0)=" XFER TO BED/CHAIR/WHEELCHAIR             XFER TO BED/CHAIR/WHEELCHAIR"
^DD(154.1,999.05,21,18,0)=" XFER TO TOILET                           XFER TO TOILET"
^DD(154.1,999.05,21,19,0)=" XFER TO TUB/SHOWER                       XFER TO TUB/SHOWER"
^DD(154.1,999.05,21,20,0)=" MOVE AROUND INSIDE YOUR HOUSE            MOVE AROUND INSIDE YOUR HOUSE"
^DD(154.1,999.05,21,21,0)=" STAIRS                                   STAIRS"
^DD(154.1,999.05,21,22,0)="                                          COMPREHENSION     "
^DD(154.1,999.05,21,23,0)="                                          EXPRESSION        "
^DD(154.1,999.05,21,24,0)="                                          SOCIAL INTERACTION"
^DD(154.1,999.05,21,25,0)="                                          PROBLEM SOLVING   "
^DD(154.1,999.05,21,26,0)="                                          MEMORY            "
^DD(154.1,999.06,0)="CHART TOTAL SCORE^CJ8^^ ; ^S X=$$EN5^SPNFUTL0(D0)"
^DD(154.1,999.06,.1)=" "
^DD(154.1,999.06,9)="^"
^DD(154.1,999.06,9.01)=""
^DD(154.1,999.06,9.1)="S X=$$EN5^SPNFUTL0(D0)"
^DD(154.1,999.06,9.2)="S Y(154.1,999.06,1)=$S($D(^SPNL(154.1,D0,""CHART"")):^(""CHART""),1:"""") S X=$P(Y(154.1,999.06,1),U,1)+$P(Y(154.1,999.06,1),U,2)+$P(Y(154.1,999.06,1),U,3)+$P(Y(154.1,999.06,1),U,4)"
^DD(154.1,999.06,21,0)="^^7^7^2960801^^"
^DD(154.1,999.06,21,1,0)="CHART TOTAL SCORE"
^DD(154.1,999.06,21,2,0)=" "
^DD(154.1,999.06,21,3,0)="The Total Score for the CHART should be the sum of the Physical "
^DD(154.1,999.06,21,4,0)="Independence Score, Mobility Score, Occupation Score, Social Integration"
^DD(154.1,999.06,21,5,0)="Score, and Economic Self-Sufficiency Score.  The CHART TOTAL SCORE can "
^DD(154.1,999.06,21,6,0)="range in values from 0 through 500 since it is the sum of the five"
^DD(154.1,999.06,21,7,0)="previous scales that have been listed on CHART Module Screens."
^DD(154.1,999.06,"DT")="2960801"
^DD(154.1,999.08,0)="LENGTH OF REHAB IN DAYS^CJ4^^ ; ^X ^DD(154.1,999.08,9.2) S X=X-$P(Y(154.1,999.08,2),U,4)"
^DD(154.1,999.08,9.01)="154.1^1004;154.1^1001;154.1^.04"
^DD(154.1,999.08,9.1)="(#.04-#1001)-#1004"
^DD(154.1,999.08,9.2)="S Y(154.1,999.08,1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),Y(154.1,999.08,2)=$S($D(^(8)):^(8),1:"""") S X=$P(Y(154.1,999.08,1),U,4),X1=X,X2=$P(Y(154.1,999.08,2),U,1),X="""" D:X2 ^%DTC:X1 S X=X"
^DD(154.1,999.08,21,0)="^^2^2^3021002^"
^DD(154.1,999.08,21,1,0)="This computed field expresses the ""net"" number of days of inpatient "
^DD(154.1,999.08,21,2,0)="rehabilitation, after subtracting the 3 longest interruptions in care."
^DD(154.1,999.08,"DT")="3021002"
^DD(154.1,999.09,0)="DATE OF DEATH^DC^^ ; ^X ^DD(154.1,999.09,9.2) S Y(154.1,999.09,101)=$S($D(^DPT(D0,.35)):^(.35),1:"""") S X=$P(Y(154.1,999.09,101),U,1) S D0=Y(154.1,999.09,80)"
^DD(154.1,999.09,9)="^"
^DD(154.1,999.09,9.01)="2^.351;154.1^.01"
^DD(154.1,999.09,9.1)=".01:.351"
^DD(154.1,999.09,9.2)="S Y(154.1,999.09,80)=$G(D0),Y(154.1,999.09,1)=$S($D(^SPNL(154.1,D0,0)):^(0),1:""""),D0=$P(Y(154.1,999.09,1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1"
^DD(154.1,1000,0)="ADMISSION^*P154.991'^SPNL(154.991,^2;19^S DIC(""S"")=""I $P(^SPNL(154.991,Y,0),U,3)=SPNDFN"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(154.1,1000,1,0)="^.1"
^DD(154.1,1000,1,1,0)="154.1^AC^MUMPS"
^DD(154.1,1000,1,1,1)="S $P(^SPNL(154.1,DA,2),U,18)=X,$P(^SPNL(154.1,DA,2),U,19)=X"
^DD(154.1,1000,1,1,2)="S $P(^SPNL(154.1,DA,2),U,18)="""",$P(^SPNL(154.1,DA,2),U,19)="""""
^DD(154.1,1000,1,1,"DT")="2991215"
^DD(154.1,1000,12)="Select an Admission"
^DD(154.1,1000,12.1)="S DIC(""S"")=""I $P(^SPNL(154.991,Y,0),U,3)=SPNDFN"""
^DD(154.1,1000,"DT")="3010822"
^DD(154.1,1001,0)="CARE START DATE^D^^8;1^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(154.1,1001,3)="Enter the starting date for this Episode of Care."
^DD(154.1,1001,"DT")="3020910"
^DD(154.1,1002,0)="CARE END DATE^D^^8;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(154.1,1002,3)="Enter the ending date for this Episode of Care."
^DD(154.1,1002,"DT")="3020910"
^DD(154.1,1003,0)="CARE TYPE^S^1:INPATIENT;2:OUTPATIENT;3:ANNUAL EVALUATION;4:CONTINUUM OF CARE;^8;3^Q"
^DD(154.1,1003,"DT")="3020626"
^DD(154.1,1004,0)="DAYS OF INTERRUPTED CARE^NJ4,0^^8;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.1,1004,3)="Enter a Number consisting of the total (in days) of the three longest interruptions of care."
^DD(154.1,1004,21,0)="^.001^4^4^3030421^^^"
^DD(154.1,1004,21,1,0)="This field stores the TOTAL (in days) of the three longest interruptions"
^DD(154.1,1004,21,2,0)="in care.  ""Care"" refers to the period of inpatient rehabilitation from the"
^DD(154.1,1004,21,3,0)="Care Start Date to the INPT REHAB FINISH record date within a given "
^DD(154.1,1004,21,4,0)="episode of care."
^DD(154.1,1004,"DT")="3030421"
^DD(154.1,"B"," ",999.06)="1"
^DD(154.1,"B","ADJUSTMENT TO LIMITATIONS",5.08)=""
^DD(154.1,"B","ADMISSION",1000)=""
^DD(154.1,"B","AGE",999.025)=""
^DD(154.1,"B","ASIA COMPLETE/INCOMPLETE",7.09)=""
^DD(154.1,"B","ASIA HIGHEST NEURO LEVEL",7.14)=""
^DD(154.1,"B","ASIA IMPAIRMENT SCALE",7.01)=""
^DD(154.1,"B","ASSOCIATED ADMISSION DATE",.022)=""
^DD(154.1,"B","ATTENTION",5.11)=""
^DD(154.1,"B","BATHING",.07)=""
^DD(154.1,"B","BLADDER MANAGEMENT",.11)=""
^DD(154.1,"B","BOWEL & BLADDER FUNCTION",3.6)=""
^DD(154.1,"B","BOWEL MANAGEMENT",.12)=""
^DD(154.1,"B","BRAINSTEM",3.2)=""
^DD(154.1,"B","CAR TRANSFERS",5.02)=""
^DD(154.1,"B","CARE END DATE",1002)=""
^DD(154.1,"B","CARE START DATE",1001)=""
^DD(154.1,"B","CARE TYPE",1003)=""
^DD(154.1,"B","CEREBELLAR",3.5)=""
^DD(154.1,"B","CEREBRAL",3.4)=""
^DD(154.1,"B","CHART TOTAL SCORE",999.06)=""
^DD(154.1,"B","CLINICIAN",1.01)=""
^DD(154.1,"B","COGNITIVE",4.6)="1"
^DD(154.1,"B","COGNITIVE INDEPENDENCE",4.6)=""
^DD(154.1,"B","COGNITIVE SCORE",999.04)=""
^DD(154.1,"B","COMMUNITY ACCESS",5.03)=""
^DD(154.1,"B","COMPREHENSION",.18)=""
^DD(154.1,"B","DATE OF DEATH",999.09)=""
^DD(154.1,"B","DATE RECORDED",.04)=""
^DD(154.1,"B","DAYS OF INTERRUPTED CARE",1004)=""
^DD(154.1,"B","DIENER COMPOSITE SCORE",6.01)=""
^DD(154.1,"B","DISPOSITION",.024)=""
^DD(154.1,"B","DIVISION",.023)=""
^DD(154.1,"B","DOB",999.02)=""
^DD(154.1,"B","DOING HOUSEWORK",2.04)=""
^DD(154.1,"B","DRESSING LOWER BODY",.09)=""
^DD(154.1,"B","DRESSING UPPER BODY",.08)=""
^DD(154.1,"B","DUSOI COMPOSITE SCORE",6.02)=""
^DD(154.1,"B","EATING",.05)=""
^DD(154.1,"B","ECONOMIC SELF SUFFICIENCY",4.5)=""
^DD(154.1,"B","EDSS",3.9)=""
^DD(154.1,"B","EMOTIONAL STATUS",5.07)=""
^DD(154.1,"B","EMPLOYABILITY",5.09)=""
^DD(154.1,"B","EXPRESSION",.19)=""
^DD(154.1,"B","GET TO PLACES OUTSIDE OF HOME",2.01)=""
^DD(154.1,"B","GROOMING",.06)=""
^DD(154.1,"B","HANDLING MONEY",2.05)=""
^DD(154.1,"B","HELP DURING LAST 2 WEEKS",2.08)=""
^DD(154.1,"B","HOURS OF HELP WITHIN LAST DAY",2.13)=""
^DD(154.1,"B","LENGTH OF REHAB IN DAYS",999.08)=""
^DD(154.1,"B","MEMORY",.22)=""
^DD(154.1,"B","METHOD AMBULATION (WALKING)",2.06)=""
^DD(154.1,"B","METHOD AMBULATION (WHEELCHAIR)",2.07)=""
^DD(154.1,"B","METHOD OF COMPREHENSION",.181)=""
^DD(154.1,"B","METHOD OF EXPRESSION",.191)=""
^DD(154.1,"B","METHOD OF WALK/WHEELCHAIR",.161)=""
^DD(154.1,"B","MOBILITY",4.2)=""
^DD(154.1,"B","MOTOR SCORE",999.03)=""
^DD(154.1,"B","NEUROLEVEL-MOTOR LEFT",7.08)=""
^DD(154.1,"B","NEUROLEVEL-MOTOR RIGHT",7.07)=""
^DD(154.1,"B","NEUROLEVEL-SENSORY LEFT",7.06)=""
^DD(154.1,"B","NEUROLEVEL-SENSORY RIGHT",7.05)=""
^DD(154.1,"B","NUMBER OF HOURS OF HELP",2.09)=""
^DD(154.1,"B","OCCUPATION",4.3)=""
^DD(154.1,"B","ORIENTATION",5.1)=""
^DD(154.1,"B","OTHER",3.8)=""
^DD(154.1,"B","PARTIAL PRESERVATION-MOTOR L",7.13)=""
^DD(154.1,"B","PARTIAL PRESERVATION-MOTOR R",7.12)=""
^DD(154.1,"B","PARTIAL PRESERVATION-SENSORY L",7.11)=""
^DD(154.1,"B","PARTIAL PRESERVATION-SENSORY R",7.1)=""
^DD(154.1,"B","PATIENT",.01)=""
^DD(154.1,"B","PHYSICAL INDEPENDENCE",4.1)=""
^DD(154.1,"B","PLANNING AND COOKING OWN MEALS",2.03)=""
^DD(154.1,"B","PROBLEM SOLVING",.21)=""
^DD(154.1,"B","PYRAMIDAL",3.1)=""
^DD(154.1,"B","READING",5.04)=""
^DD(154.1,"B","RECORD TYPE",.02)=""
^DD(154.1,"B","RESPONDENT TYPE",.03)=""
^DD(154.1,"B","SAFETY JUDGEMENT",5.12)=""
^DD(154.1,"B","SCORE TYPE",.021)=""
^DD(154.1,"B","SENSORY",3.3)=""
^DD(154.1,"B","SHOPPING",2.02)=""
^DD(154.1,"B","SOCIAL INTERACTION",.2)=""
^DD(154.1,"B","SOCIAL INTERACTION",4.4)=""
^DD(154.1,"B","SPEECH INTELLIGIBILITY",5.06)=""
^DD(154.1,"B","SSN",999.01)=""
^DD(154.1,"B","STAIRS",.17)=""
^DD(154.1,"B","SWALLOWING",5.01)=""
^DD(154.1,"B","TOILETING",.1)=""
^DD(154.1,"B","TOTAL LIGHT TOUCH SCORE",7.04)=""
^DD(154.1,"B","TOTAL MOTOR SCORE",7.02)=""
^DD(154.1,"B","TOTAL PIN PRICK SCORE",7.03)=""
^DD(154.1,"B","TOTAL SCORE",999.05)=""
^DD(154.1,"B","VISUAL",3.7)=""
^DD(154.1,"B","WALK/WHEELCHAIR",.16)=""
^DD(154.1,"B","WRITING",5.05)=""
^DD(154.1,"B","XFER TO BED/CHAIR/WHEELCHAIR",.13)=""
^DD(154.1,"B","XFER TO TOILET",.14)=""
^DD(154.1,"B","XFER TO TUB/SHOWER",.15)=""
^DD(154.1,"GL",0,1,.01)=""
^DD(154.1,"GL",0,2,.02)=""
^DD(154.1,"GL",0,3,.03)=""
^DD(154.1,"GL",0,4,.04)=""
^DD(154.1,"GL",0,5,.05)=""
^DD(154.1,"GL",0,6,.06)=""
^DD(154.1,"GL",0,7,.07)=""
^DD(154.1,"GL",0,8,.08)=""
^DD(154.1,"GL",0,9,.09)=""
^DD(154.1,"GL",0,10,.1)=""
^DD(154.1,"GL",0,11,.11)=""
^DD(154.1,"GL",0,12,.12)=""
^DD(154.1,"GL",0,13,.13)=""
^DD(154.1,"GL",0,14,.14)=""
^DD(154.1,"GL",0,15,.15)=""
^DD(154.1,"GL",0,16,.16)=""
^DD(154.1,"GL",0,17,.17)=""
^DD(154.1,"GL",0,18,.18)=""
^DD(154.1,"GL",0,19,.19)=""
^DD(154.1,"GL",0,20,.2)=""
^DD(154.1,"GL",0,21,.21)=""
^DD(154.1,"GL",0,22,.22)=""
^DD(154.1,"GL",0,23,.023)=""
^DD(154.1,"GL",0,24,.024)=""
^DD(154.1,"GL",1,0,1.01)=""
^DD(154.1,"GL",2,1,2.01)=""
^DD(154.1,"GL",2,2,2.02)=""
^DD(154.1,"GL",2,3,2.03)=""
^DD(154.1,"GL",2,4,2.04)=""
^DD(154.1,"GL",2,5,2.05)=""
^DD(154.1,"GL",2,6,2.06)=""
^DD(154.1,"GL",2,7,2.07)=""
^DD(154.1,"GL",2,8,2.08)=""
^DD(154.1,"GL",2,9,2.09)=""
^DD(154.1,"GL",2,13,.181)=""
^DD(154.1,"GL",2,14,.191)=""
^DD(154.1,"GL",2,15,.161)=""
^DD(154.1,"GL",2,16,2.13)=""
^DD(154.1,"GL",2,17,.021)=""
^DD(154.1,"GL",2,18,.022)=""
^DD(154.1,"GL",2,19,1000)=""
^DD(154.1,"GL",8,1,1001)=""
^DD(154.1,"GL",8,2,1002)=""
^DD(154.1,"GL",8,3,1003)=""
^DD(154.1,"GL",8,4,1004)=""
^DD(154.1,"GL","ASIA",1,7.01)=""
^DD(154.1,"GL","ASIA",2,7.02)=""
^DD(154.1,"GL","ASIA",3,7.03)=""
^DD(154.1,"GL","ASIA",4,7.04)=""
^DD(154.1,"GL","ASIA",5,7.05)=""
^DD(154.1,"GL","ASIA",6,7.06)=""
^DD(154.1,"GL","ASIA",7,7.07)=""
^DD(154.1,"GL","ASIA",8,7.08)=""
^DD(154.1,"GL","ASIA",9,7.09)=""
^DD(154.1,"GL","ASIA",10,7.1)=""
^DD(154.1,"GL","ASIA",11,7.11)=""
^DD(154.1,"GL","ASIA",12,7.12)=""
^DD(154.1,"GL","ASIA",13,7.13)=""
^DD(154.1,"GL","ASIA",14,7.14)=""
^DD(154.1,"GL","CHART",1,4.1)=""
^DD(154.1,"GL","CHART",2,4.2)=""
^DD(154.1,"GL","CHART",3,4.3)=""
^DD(154.1,"GL","CHART",4,4.4)=""
^DD(154.1,"GL","CHART",5,4.5)=""
^DD(154.1,"GL","CHART",6,4.6)=""
^DD(154.1,"GL","FAM",1,5.01)=""
^DD(154.1,"GL","FAM",2,5.02)=""
^DD(154.1,"GL","FAM",3,5.03)=""
^DD(154.1,"GL","FAM",4,5.04)=""
^DD(154.1,"GL","FAM",5,5.05)=""
^DD(154.1,"GL","FAM",6,5.06)=""
^DD(154.1,"GL","FAM",7,5.07)=""
^DD(154.1,"GL","FAM",8,5.08)=""
^DD(154.1,"GL","FAM",9,5.09)=""
^DD(154.1,"GL","FAM",10,5.1)=""
^DD(154.1,"GL","FAM",11,5.11)=""
^DD(154.1,"GL","FAM",12,5.12)=""
^DD(154.1,"GL","MS",1,3.1)=""
^DD(154.1,"GL","MS",2,3.2)=""
^DD(154.1,"GL","MS",3,3.3)=""
^DD(154.1,"GL","MS",4,3.4)=""
^DD(154.1,"GL","MS",5,3.5)=""
^DD(154.1,"GL","MS",6,3.6)=""
^DD(154.1,"GL","MS",7,3.7)=""
^DD(154.1,"GL","MS",8,3.8)=""
^DD(154.1,"GL","MS",9,3.9)=""
^DD(154.1,"GL","SCORE",1,6.01)=""
^DD(154.1,"GL","SCORE",2,6.02)=""
^DD(154.1,"IX",.01)=""
^DD(154.1,"IX",.02)=""
^DD(154.1,"IX",.04)=""
^DD(154.1,"IX",1000)=""
^DD(154.1,"RQ",.01)=""
^DD(154.1,"RQ",.02)=""
^DD(154.1,"RQ",.04)=""
^DD(154.1,"RQ",7.01)=""
^DD(154.1,"RQ",7.14)=""
^DD(154.1,"SB",154.101,1.01)=""
^DD(154.101,0)="CLINICIAN SUB-FIELD^^.01^1"
^DD(154.101,0,"DT")="3000424"
^DD(154.101,0,"IX","B",154.101,.01)=""
^DD(154.101,0,"NM","CLINICIAN")=""
^DD(154.101,0,"UP")="154.1"
^DD(154.101,.01,0)="CLINICIAN^P200'^VA(200,^0;1^Q"
^DD(154.101,.01,1,0)="^.1"
^DD(154.101,.01,1,1,0)="154.101^B"
^DD(154.101,.01,1,1,1)="S ^SPNL(154.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(154.101,.01,1,1,2)="K ^SPNL(154.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(154.101,.01,3)="Enter the clinician's name."
^DD(154.101,.01,21,0)="^^1^1^2950620^^^"
^DD(154.101,.01,21,1,0)="This field contains the names of the clinicians who see the patient."
^DD(154.101,.01,"DT")="3000424"
^DD(154.101,"B","CLINICIAN",.01)=""
^DD(154.101,"GL",0,1,.01)=""
^DD(154.101,"IX",.01)=""
^DD(154.11,0)="FIELD^^.03^3"
^DD(154.11,0,"DDA")="N"
^DD(154.11,0,"DT")="2960709"
^DD(154.11,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(154.11,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(154.11,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(154.11,0,"IX","B",154.11,.01)=""
^DD(154.11,0,"IX","C",154.11,.02)=""
^DD(154.11,0,"NM","FUNCTIONAL STATUS LEVEL")=""
^DD(154.11,0,"PT",154.1,.05)=""
^DD(154.11,0,"PT",154.1,.06)=""
^DD(154.11,0,"PT",154.1,.07)=""
^DD(154.11,0,"PT",154.1,.08)=""
^DD(154.11,0,"PT",154.1,.09)=""
^DD(154.11,0,"PT",154.1,.1)=""
^DD(154.11,0,"PT",154.1,.11)=""
^DD(154.11,0,"PT",154.1,.12)=""
^DD(154.11,0,"PT",154.1,.13)=""
^DD(154.11,0,"PT",154.1,.14)=""
^DD(154.11,0,"PT",154.1,.15)=""
^DD(154.11,0,"PT",154.1,.16)=""
^DD(154.11,0,"PT",154.1,.17)=""
^DD(154.11,0,"PT",154.1,.18)=""
^DD(154.11,0,"PT",154.1,.19)=""
^DD(154.11,0,"PT",154.1,.2)=""
^DD(154.11,0,"PT",154.1,.21)=""
^DD(154.11,0,"PT",154.1,.22)=""
^DD(154.11,0,"PT",154.1,5.01)=""
^DD(154.11,0,"PT",154.1,5.02)=""
^DD(154.11,0,"PT",154.1,5.03)=""
^DD(154.11,0,"PT",154.1,5.04)=""
^DD(154.11,0,"PT",154.1,5.05)=""
^DD(154.11,0,"PT",154.1,5.06)=""
^DD(154.11,0,"PT",154.1,5.07)=""
^DD(154.11,0,"PT",154.1,5.08)=""
^DD(154.11,0,"PT",154.1,5.09)=""
^DD(154.11,0,"PT",154.1,5.1)=""
^DD(154.11,0,"PT",154.1,5.11)=""
^DD(154.11,0,"PT",154.1,5.12)=""
^DD(154.11,0,"VR")="2.0"
^DD(154.11,0,"VRPK")="SPINAL CORD DYSFUNCTION"
^DD(154.11,.01,0)="NUMBER^RNJ1,0^^0;1^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(154.11,.01,1,0)="^.1"
^DD(154.11,.01,1,1,0)="154.11^B"
^DD(154.11,.01,1,1,1)="S ^SPNL(154.11,""B"",$E(X,1,30),DA)="""""
^DD(154.11,.01,1,1,2)="K ^SPNL(154.11,""B"",$E(X,1,30),DA)"
^DD(154.11,.01,3)="Type a Number between 1 and 7, 0 Decimal Digits"
^DD(154.11,.01,21,0)="^^3^3^2950620^"
^DD(154.11,.01,21,1,0)="This is the number associated with the FIM level.  For self reported FIMs"
^DD(154.11,.01,21,2,0)="it is in the range of one to four.  For clinician reported FIMs it is in"
^DD(154.11,.01,21,3,0)="the range of one to seven."
^DD(154.11,.01,"DT")="2950516"
^DD(154.11,.02,0)="TEXT^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(154.11,.02,1,0)="^.1"
^DD(154.11,.02,1,1,0)="154.11^C"
^DD(154.11,.02,1,1,1)="S ^SPNL(154.11,""C"",$E(X,1,30),DA)="""""
^DD(154.11,.02,1,1,2)="K ^SPNL(154.11,""C"",$E(X,1,30),DA)"
^DD(154.11,.02,1,1,"DT")="2950516"
^DD(154.11,.02,3)="Answer must be 3-30 characters in length."
^DD(154.11,.02,21,0)="^^1^1^2950620^"
^DD(154.11,.02,21,1,0)="This is the free text representation of the FIM level."
^DD(154.11,.02,"DT")="2950517"
^DD(154.11,.03,0)="TYPE^S^1:SELF REPORTED;2:CLINICIAN REPORTED;3:CLINICIAN REPORTED (COGNITIVE);4:CLINICIAN REPORTED (SOC INTER/PROB SOLVE);5:FAM CLINICIAN REPORTED;^0;3^Q"
^DD(154.11,.03,3)="Enter the type of FIM associated with this entry."
^DD(154.11,.03,21,0)="^^2^2^2960709^^"
^DD(154.11,.03,21,1,0)="This field describes the type of FIM (self/clinician reported) that this"
^DD(154.11,.03,21,2,0)="FIM level entry is associated with."
^DD(154.11,.03,"DT")="2960709"
^DD(154.11,"B","NUMBER",.01)=""
^DD(154.11,"B","TEXT",.02)=""
^DD(154.11,"B","TYPE",.03)=""
^DD(154.11,"GL",0,1,.01)=""
^DD(154.11,"GL",0,2,.02)=""
^DD(154.11,"GL",0,3,.03)=""
^DD(154.11,"IX",.01)=""
^DD(154.11,"IX",.02)=""
^DD(154.11,"RQ",.01)=""
^DD(154.12,0)="FIELD^^2^3"
^DD(154.12,0,"DT")="3000524"
^DD(154.12,0,"IX","B",154.12,.01)=""
^DD(154.12,0,"NM","SCD DISPOSITION CODES")=""
^DD(154.12,0,"PT",154.1,.024)=""
^DD(154.12,0,"VR")="2.0"
^DD(154.12,0,"VRPK")="SPN"
^DD(154.12,.01,0)="DISPOSITION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(154.12,.01,1,0)="^.1"
^DD(154.12,.01,1,1,0)="154.12^B"
^DD(154.12,.01,1,1,1)="S ^SPNL(154.12,""B"",$E(X,1,30),DA)="""""
^DD(154.12,.01,1,1,2)="K ^SPNL(154.12,""B"",$E(X,1,30),DA)"
^DD(154.12,.01,3)="Answer must be 3-30 characters in length"
^DD(154.12,.01,"DT")="3000524"
^DD(154.12,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(154.12,1,3)="Answer must be 3-30 characters in length"
^DD(154.12,1,"DT")="3000524"
^DD(154.12,2,0)="LEVEL OF CARE^S^U:UNASSISTED;A:ASSISTED;I:INSTITUTIONAL;D:DECEASED;^0;3^Q"
^DD(154.12,2,3)="Enter level of care associated with disposition."
^DD(154.12,2,"DT")="3000524"
^DD(154.12,"B","DESCRIPTION",1)=""
^DD(154.12,"B","DISPOSITION",.01)=""
^DD(154.12,"B","LEVEL OF CARE",2)=""
^DD(154.12,"GL",0,1,.01)=""
^DD(154.12,"GL",0,2,1)=""
^DD(154.12,"GL",0,3,2)=""
^DD(154.12,"IX",.01)=""
^DD(154.12,"RQ",.01)=""
^DD(154.2,0)="FIELD^^.03^3"
^DD(154.2,0,"DDA")="N"
^DD(154.2,0,"DT")="3000519"
^DD(154.2,0,"ID",.02)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(154.2,0,"IX","B",154.2,.01)=""
^DD(154.2,0,"IX","C",154.2,.03)=""
^DD(154.2,0,"NM","SCD KURTZKE-EDSS")=""
^DD(154.2,0,"PT",154.1,3.1)=""
^DD(154.2,0,"PT",154.1,3.2)=""
^DD(154.2,0,"PT",154.1,3.3)=""
^DD(154.2,0,"PT",154.1,3.4)=""
^DD(154.2,0,"PT",154.1,3.5)=""
^DD(154.2,0,"PT",154.1,3.6)=""
^DD(154.2,0,"PT",154.1,3.7)=""
^DD(154.2,0,"PT",154.1,3.8)=""
^DD(154.2,0,"PT",154.1,3.9)=""
^DD(154.2,0,"VR")="2.0"
^DD(154.2,0,"VRPK")="SPN"
^DD(154.2,.01,0)="NUMBER^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(154.2,.01,1,0)="^.1"
^DD(154.2,.01,1,1,0)="154.2^B"
^DD(154.2,.01,1,1,1)="S ^SPNL(154.2,""B"",$E(X,1,30),DA)="""""
^DD(154.2,.01,1,1,2)="K ^SPNL(154.2,""B"",$E(X,1,30),DA)"
^DD(154.2,.01,3)="Answer must be 1-30 characters in length."
^DD(154.2,.01,21,0)="^.001^1^1^3000519^^^^"
^DD(154.2,.01,21,1,0)="This field contain the number if the given Kurtzke/EDSS score"
^DD(154.2,.01,"DT")="3000519"
^DD(154.2,.02,0)="DESCRIPTION^F^^1;1^K:$L(X)>240!($L(X)<3) X"
^DD(154.2,.02,3)="Answer must be 3-240 characters in length."
^DD(154.2,.02,21,0)="^.001^1^1^3000519^^^"
^DD(154.2,.02,21,1,0)="This field is the description of the Number."
^DD(154.2,.02,"DT")="3000519"
^DD(154.2,.03,0)="REFERENCE^S^1:PYRAMIDAL;2:BRAINSTEM;3:SENSORY;4:CEREBRAL;5:CEREBELLAR;6:BOWEL & BLADDER;7:VISUAL;8:OTHER;9:EDSS;^0;2^Q"
^DD(154.2,.03,1,0)="^.1"
^DD(154.2,.03,1,1,0)="154.2^C"
^DD(154.2,.03,1,1,1)="S ^SPNL(154.2,""C"",$E(X,1,30),DA)="""""
^DD(154.2,.03,1,1,2)="K ^SPNL(154.2,""C"",$E(X,1,30),DA)"
^DD(154.2,.03,1,1,"DT")="2960705"
^DD(154.2,.03,"DT")="2960705"
^DD(154.2,"B","DESCRIPTION",.02)=""
^DD(154.2,"B","NUMBER",.01)=""
^DD(154.2,"B","REFERENCE",.03)=""
^DD(154.2,"GL",0,1,.01)=""
^DD(154.2,"GL",0,2,.03)=""
^DD(154.2,"GL",1,1,.02)=""
^DD(154.2,"IX",.01)=""
^DD(154.2,"IX",.03)=""
^DD(154.2,"RQ",.01)=""
^DD(154.3,0)="FIELD^^.01^1"
^DD(154.3,0,"DT")="3030305"
^DD(154.3,0,"IX","B",154.3,.01)=""
^DD(154.3,0,"NM","OUTCOME SCORE TYPES")=""
^DD(154.3,0,"PT",154.1,.021)=""
^DD(154.3,0,"VR")="2.0"
^DD(154.3,0,"VRPK")="SPN"
^DD(154.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(154.3,.01,1,0)="^.1"
^DD(154.3,.01,1,1,0)="154.3^B"
^DD(154.3,.01,1,1,1)="S ^SPNL(154.3,""B"",$E(X,1,30),DA)="""""
^DD(154.3,.01,1,1,2)="K ^SPNL(154.3,""B"",$E(X,1,30),DA)"
^DD(154.3,.01,3)="Answer must be 3-30 characters in length."
^DD(154.3,.01,"DT")="3030305"
^DD(154.3,"B","NAME",.01)=""
^DD(154.3,"GL",0,1,.01)=""
^DD(154.3,"IX",.01)=""
^DD(154.3,"RQ",.01)=""
^DD(154.31,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(154.31,0,"DT")="2960731"
^DD(154.31,0,"IX","B",154.31,.01)=""
^DD(154.31,0,"NM","SYNONYM")=""
^DD(154.31,0,"UP")="154.03"
^DD(154.31,.01,0)="SYNONYM^F^^0;1^K:$L(X)>35!($L(X)<2) X"
^DD(154.31,.01,1,0)="^.1"
^DD(154.31,.01,1,1,0)="154.31^B"
^DD(154.31,.01,1,1,1)="S ^SPNL(154.03,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(154.31,.01,1,1,2)="K ^SPNL(154.03,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(154.31,.01,1,2,0)="154.03^SYM"
^DD(154.31,.01,1,2,1)="S ^SPNL(154.03,""SYM"",$E(X,1,30),DA(1),DA)="""""
^DD(154.31,.01,1,2,2)="K ^SPNL(154.03,""SYM"",$E(X,1,30),DA(1),DA)"
^DD(154.31,.01,1,2,"%D",0)="^^1^1^2960731^"
^DD(154.31,.01,1,2,"%D",1,0)="This is a file wide Synonym Cross reference."
^DD(154.31,.01,1,2,"DT")="2960731"
^DD(154.31,.01,3)="Answer must be 2-35 characters in length."
^DD(154.31,.01,21,0)="^^1^1^2960731^"
^DD(154.31,.01,21,1,0)="This is a Synonym of the Etiology."
^DD(154.31,.01,"DT")="2960731"
^DD(154.31,"B","SYNONYM",.01)=""
^DD(154.31,"GL",0,1,.01)=""
^DD(154.31,"IX",.01)=""
^DD(154.7,0)="FIELD^^4^5"
^DD(154.7,0,"DT")="3020829"
^DD(154.7,0,"IX","B",154.7,.01)=""
^DD(154.7,0,"IX","C",154.7,1)=""
^DD(154.7,0,"NM","PHYSICAL FACILITY")=""
^DD(154.7,0,"VR")="2.0"
^DD(154.7,0,"VRPK")="SPN"
^DD(154.7,.01,0)="PHYSICAL FACILITY^RF^^0;1^K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X"
^DD(154.7,.01,1,0)="^.1"
^DD(154.7,.01,1,1,0)="154.7^B"
^DD(154.7,.01,1,1,1)="S ^SPNL(154.7,""B"",$E(X,1,30),DA)="""""
^DD(154.7,.01,1,1,2)="K ^SPNL(154.7,""B"",$E(X,1,30),DA)"
^DD(154.7,.01,3)="Enter the VA site location at which you work."
^DD(154.7,.01,"DT")="3010618"
^DD(154.7,1,0)="FACILITY NUMBER^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<100)!(X?.E1"".""1.N) X"
^DD(154.7,1,1,0)="^.1"
^DD(154.7,1,1,1,0)="154.7^C"
^DD(154.7,1,1,1,1)="S ^SPNL(154.7,""C"",$E(X,1,30),DA)="""""
^DD(154.7,1,1,1,2)="K ^SPNL(154.7,""C"",$E(X,1,30),DA)"
^DD(154.7,1,1,1,"DT")="3010618"
^DD(154.7,1,3)="Enter the 3-digit station number for the site."
^DD(154.7,1,"DT")="3010618"
^DD(154.7,2,0)="HOST^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<100)!(X?.E1"".""1.N) X"
^DD(154.7,2,3)="Enter a 3-digit station number revealing primary (host) site."
^DD(154.7,2,"DT")="3010618"
^DD(154.7,3,0)="HOST DOMAIN^F^^0;4^K:$L(X)>64!($L(X)<10) X"
^DD(154.7,3,3)="Answer must be 10-64 characters in length."
^DD(154.7,3,"DT")="3011031"
^DD(154.7,4,0)="REMARKS^F^^0;5^K:$L(X)>60!($L(X)<1) X"
^DD(154.7,4,3)="Answer must be 1-60 characters in length"
^DD(154.7,4,"DT")="3020829"
^DD(154.7,"B","FACILITY NUMBER",1)=""
^DD(154.7,"B","HOST",2)=""
^DD(154.7,"B","HOST DOMAIN",3)=""
^DD(154.7,"B","PHYSICAL FACILITY",.01)=""
^DD(154.7,"B","REMARKS",4)=""
^DD(154.7,"GL",0,1,.01)=""
^DD(154.7,"GL",0,2,1)=""
^DD(154.7,"GL",0,3,2)=""
^DD(154.7,"GL",0,4,3)=""
^DD(154.7,"GL",0,5,4)=""
^DD(154.7,"IX",.01)=""
^DD(154.7,"IX",1)=""
^DD(154.7,"RQ",.01)=""
^DD(154.8,0)="FIELD^^1^7"
^DD(154.8,0,"DDA")="N"
^DD(154.8,0,"DT")="2950218"
^DD(154.8,0,"IX","B",154.8,.01)=""
^DD(154.8,0,"NM","AD HOC MACRO")=""
^DD(154.8,0,"VR")="2.0"
^DD(154.8,0,"VRPK")="SPINAL CORD DYSFUNCTION"
^DD(154.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(154.8,.01,1,0)="^.1"
^DD(154.8,.01,1,1,0)="154.8^B"
^DD(154.8,.01,1,1,1)="S ^SPNL(154.8,""B"",$E(X,1,30),DA)="""""
^DD(154.8,.01,1,1,2)="K ^SPNL(154.8,""B"",$E(X,1,30),DA)"
^DD(154.8,.01,3)="Answer must be 3-30 characters in length."
^DD(154.8,.01,21,0)="^^1^1^2911115^^"
^DD(154.8,.01,21,1,0)="This field contains the name for the sort/print macro."
^DD(154.8,.01,"DT")="2911009"
^DD(154.8,.02,0)="TYPE^RS^s:SORT;p:PRINT;^0;2^Q"
^DD(154.8,.02,3)="Enter S(ort) or P(rint) to describe this macro's type."
^DD(154.8,.02,21,0)="^^1^1^2911115^^"
^DD(154.8,.02,21,1,0)="This field describes what type of macro this is, i.e. sort or print."
^DD(154.8,.02,"DT")="2911008"
^DD(154.8,.03,0)="PARENT FILE^RP1'^DIC(^0;3^Q"
^DD(154.8,.03,3)="Enter the file associated with this macro."
^DD(154.8,.03,21,0)="^^3^3^2911115^^"
^DD(154.8,.03,21,1,0)="The parent file is the file that this macro belongs to.  A macro"
^DD(154.8,.03,21,2,0)="built on one particular parent file will only work with that same"
^DD(154.8,.03,21,3,0)="file."
^DD(154.8,.03,"DT")="2920103"
^DD(154.8,.04,0)="CHECKSUM^RNJ12,0^^0;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.8,.04,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(154.8,.04,21,0)="^^2^2^2920804^"
^DD(154.8,.04,21,1,0)="This field contains the checksum value of the sort/print menu that"
^DD(154.8,.04,21,2,0)="this macro was created from."
^DD(154.8,.04,"DT")="2920804"
^DD(154.8,.05,0)="SORT CRITERIA IN HEADER^S^1:YES;0:NO;^0;5^Q"
^DD(154.8,.05,3)="Enter Y(es) to include the sort criteria in the report header."
^DD(154.8,.05,21,0)="^^2^2^2950218^"
^DD(154.8,.05,21,1,0)="Answer Y(es) to include the sort criteria in the report header."
^DD(154.8,.05,21,2,0)="If you do not want this information in the header answer N(o)."
^DD(154.8,.05,"DT")="2950218"
^DD(154.8,.06,0)="HEADER^F^^0;6^K:$L(X)>60!($L(X)<1) X"
^DD(154.8,.06,3)="Answer must be 1-60 characters in length."
^DD(154.8,.06,21,0)="^^1^1^2950218^"
^DD(154.8,.06,21,1,0)="Enter the text to be used as the report header."
^DD(154.8,.06,"DT")="2950218"
^DD(154.8,1,0)="FIELD^154.81A^^FLD;0"
^DD(154.8,1,21,0)="^^3^3^2911115^^^"
^DD(154.8,1,21,1,0)="This multiple field contains the data elements that the user chose"
^DD(154.8,1,21,2,0)="when building the macro.  The order of entries in this field is"
^DD(154.8,1,21,3,0)="the same as the order in which they were chosen by the user."
^DD(154.8,"B","CHECKSUM",.04)=""
^DD(154.8,"B","FIELD",1)=""
^DD(154.8,"B","HEADER",.06)=""
^DD(154.8,"B","NAME",.01)=""
^DD(154.8,"B","PARENT FILE",.03)=""
^DD(154.8,"B","SORT CRITERIA IN HEADER",.05)=""
^DD(154.8,"B","TYPE",.02)=""
^DD(154.8,"GL",0,1,.01)=""
^DD(154.8,"GL",0,2,.02)=""
^DD(154.8,"GL",0,3,.03)=""
^DD(154.8,"GL",0,4,.04)=""
^DD(154.8,"GL",0,5,.05)=""
^DD(154.8,"GL",0,6,.06)=""
^DD(154.8,"GL","FLD",0,1)=""
^DD(154.8,"IX",.01)=""
^DD(154.8,"RQ",.01)=""
^DD(154.8,"RQ",.02)=""
^DD(154.8,"RQ",.03)=""
^DD(154.8,"RQ",.04)=""
^DD(154.8,"SB",154.81,1)=""
^DD(154.81,0)="FIELD SUB-FIELD^^4^5"
^DD(154.81,0,"DT")="2920324"
^DD(154.81,0,"IX","B",154.81,.01)=""
^DD(154.81,0,"NM","FIELD")=""
^DD(154.81,0,"UP")="154.8"
^DD(154.81,.01,0)="MENU SELECTION^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(154.81,.01,1,0)="^.1"
^DD(154.81,.01,1,1,0)="154.81^B"
^DD(154.81,.01,1,1,1)="S ^SPNL(154.8,DA(1),""FLD"",""B"",$E(X,1,30),DA)="""""
^DD(154.81,.01,1,1,2)="K ^SPNL(154.8,DA(1),""FLD"",""B"",$E(X,1,30),DA)"
^DD(154.81,.01,3)="Answer must be 1-80 characters in length."
^DD(154.81,.01,21,0)="^^2^2^2920324^^^^"
^DD(154.81,.01,21,1,0)="This field contains the menu item number that was chosen by the user."
^DD(154.81,.01,21,2,0)="Also includes any prefixes entered by the user."
^DD(154.81,.01,"DT")="2920324"
^DD(154.81,1,0)="FIELD STRING^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(154.81,1,3)="Answer must be 1-80 characters in length."
^DD(154.81,1,21,0)="^^4^4^2920324^^^"
^DD(154.81,1,21,1,0)="This field contains the BY or FLDS string for this particular menu"
^DD(154.81,1,21,2,0)="choice.  It will include the field number and any prefix added by"
^DD(154.81,1,21,3,0)="the user.  It will also include any formatting characters added"
^DD(154.81,1,21,4,0)="automatically by the ad hoc report mechanism."
^DD(154.81,1,"DT")="2920324"
^DD(154.81,2,0)="ASK FROM/TO VALUES^S^1:YES;0:NO;^0;3^Q"
^DD(154.81,2,3)="Enter Y(es) if you want to be asked a FROM/TO sort range."
^DD(154.81,2,21,0)="^^3^3^2911115^^^"
^DD(154.81,2,21,1,0)="This field determines if the user should be asked a FROM/TO range on"
^DD(154.81,2,21,2,0)="the sort for this field.  The data for this field is created when the"
^DD(154.81,2,21,3,0)="macro is saved.  This field is only used for sort macros."
^DD(154.81,2,"DT")="2911008"
^DD(154.81,3,0)="FROM^F^^FRTO;1^K:$L(X)>60!($L(X)<1) X"
^DD(154.81,3,3)="Answer must be 1-45 characters in length."
^DD(154.81,3,21,0)="^^2^2^2911115^^^"
^DD(154.81,3,21,1,0)="Enter the FROM, or starting, value for the sort on this field."
^DD(154.81,3,21,2,0)="This field is only used for sort macros."
^DD(154.81,3,"DT")="2911008"
^DD(154.81,4,0)="TO^F^^FRTO;2^K:$L(X)>60!($L(X)<1) X"
^DD(154.81,4,3)="Answer must be 1-45 characters in length."
^DD(154.81,4,21,0)="^^2^2^2911115^^^"
^DD(154.81,4,21,1,0)="Enter the TO, or ending, value for the sort on this field."
^DD(154.81,4,21,2,0)="This field is only used for sort macros."
^DD(154.81,4,"DT")="2911008"
^DD(154.81,"B","ASK FROM/TO VALUES",2)=""
^DD(154.81,"B","FIELD STRING",1)=""
^DD(154.81,"B","FROM",3)=""
^DD(154.81,"B","MENU SELECTION",.01)=""
^DD(154.81,"B","TO",4)=""
^DD(154.81,"GL",0,1,.01)=""
^DD(154.81,"GL",0,2,1)=""
^DD(154.81,"GL",0,3,2)=""
^DD(154.81,"GL","FRTO",1,3)=""
^DD(154.81,"GL","FRTO",2,4)=""
^DD(154.81,"IX",.01)=""
^DD(154.91,0)="FIELD^^10^8"
^DD(154.91,0,"DDA")="N"
^DD(154.91,0,"DT")="3010619"
^DD(154.91,0,"IX","B",154.91,.01)=""
^DD(154.91,0,"IX","C",154.9101,.01)=""
^DD(154.91,0,"NM","SCD SITE PARAMETERS")=""
^DD(154.91,0,"VR")="2.0"
^DD(154.91,0,"VRPK")="SPN"
^DD(154.91,.01,0)="FACILITY NUMBER^RNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(154.91,.01,1,0)="^.1"
^DD(154.91,.01,1,1,0)="154.91^B"
^DD(154.91,.01,1,1,1)="S ^SPNL(154.91,""B"",$E(X,1,30),DA)="""""
^DD(154.91,.01,1,1,2)="K ^SPNL(154.91,""B"",$E(X,1,30),DA)"
^DD(154.91,.01,3)="This field is NOT intended for entry via Fileman. Maintain via provided option."
^DD(154.91,.01,21,0)="^^7^7^2940823^^"
^DD(154.91,.01,21,1,0)="This is the site/station number which the medical center goes by."
^DD(154.91,.01,21,2,0)="This value is set from the Kernel Site Parameter file pointers."
^DD(154.91,.01,21,3,0)="There should never be a need for the user to update this field.  If"
^DD(154.91,.01,21,4,0)="in the unforseen event that there is a need to update this field,"
^DD(154.91,.01,21,5,0)="update the site/station (default institution) through Kernel and then"
^DD(154.91,.01,21,6,0)="delete the SCD Site Parameter Record and Edit the new one though the"
^DD(154.91,.01,21,7,0)="provided option."
^DD(154.91,.01,"DT")="2940708"
^DD(154.91,.01,"LAYGO",1,0)="W:$O(^SPNL(154.91,0)) !?10,""This file may not contain more than one record !"",! I '$O(^(0))"
^DD(154.91,4,0)="F/U RPT (LAST SEEN) PERIOD^F^^0;5^K:$L(X)>4!($L(X)<2)!'(X?1.3N1""D""!(X?1.2N1""W"")!(X?1.2N1""M"")!(X?1N1""Y"")) X"
^DD(154.91,4,3)=" Period must be nnnD (days), nnW (weeks), nnM (months), or nY (years), where n is a number."
^DD(154.91,4,21,0)="^^4^4^2940715^^^"
^DD(154.91,4,21,1,0)="This is the period which the Follow Up (Last Seen) report uses.  Patients"
^DD(154.91,4,21,2,0)="who haven't been seen for this period of time will be displayed in the "
^DD(154.91,4,21,3,0)="report.  The default may be changed through the Site Parameters menu."
^DD(154.91,4,21,4,0)="For example, 180D is 180 days; 6M is 6 months."
^DD(154.91,4,"DT")="2940712"
^DD(154.91,5,0)="F/U RPT (LAST PHY EXAM) PERIOD^F^^0;6^K:$L(X)>4!($L(X)<2)!'(X?1.3N1""D""!(X?1.2N1""W"")!(X?1.2N1""M"")!(X?1N1""Y"")) X"
^DD(154.91,5,3)=" Period must be nnnD (days), nnW (weeks), nnM (months), or nY (years), where n is a number."
^DD(154.91,5,21,0)="^^4^4^2940713^"
^DD(154.91,5,21,1,0)="This is the period which the Follow Up (Last Physical Exam) report uses."
^DD(154.91,5,21,2,0)="Patients who haven't had a physical exam for this period of time will be"
^DD(154.91,5,21,3,0)="displayed in the report.  The default may be changed through the Site"
^DD(154.91,5,21,4,0)="Parameters menu.  For example, 180D is 180 days; 6M is 6 months."
^DD(154.91,5,"DT")="2940712"
^DD(154.91,6,0)="SCD NAT'L REGISTRY MAIL ADDR^RF^^0;7^K:$L(X)>60!($L(X)<4) X"
^DD(154.91,6,3)="Answer must be recipient_name@domain format and be 4-60 characters long."
^DD(154.91,6,21,0)="^^2^2^2940823^"
^DD(154.91,6,21,1,0)="Contains the full recipient_name@domain mail address for the"
^DD(154.91,6,21,2,0)="SCD National Registry."
^DD(154.91,6,"DT")="2940823"
^DD(154.91,7,0)="SCI NOTIFICATION MAIL GROUP^P3.8'^XMB(3.8,^0;9^Q"
^DD(154.91,7,"DT")="2991021"
^DD(154.91,8,0)="MS NOTIFICATION MAIL GROUP^P3.8'^XMB(3.8,^0;10^Q"
^DD(154.91,8,"DT")="2991021"
^DD(154.91,9,0)="SEND NOTIFICATION^S^1:YES;0:NO;^0;8^Q"
^DD(154.91,9,3)="Enter Yes to turn on local admission/discharge notifications, No to supress notifications."
^DD(154.91,9,"DT")="2991115"
^DD(154.91,10,0)="USER^154.9101PAI^^1;0"
^DD(154.91,"B","F/U RPT (LAST PHY EXAM) PERIOD",5)=""
^DD(154.91,"B","F/U RPT (LAST SEEN) PERIOD",4)=""
^DD(154.91,"B","FACILITY NUMBER",.01)=""
^DD(154.91,"B","MS NOTIFICATION MAIL GROUP",8)=""
^DD(154.91,"B","SCD NAT'L REGISTRY MAIL ADDR",6)=""
^DD(154.91,"B","SCI NOTIFICATION MAIL GROUP",7)=""
^DD(154.91,"B","SEND NOTIFICATION",9)=""
^DD(154.91,"B","USER",10)=""
^DD(154.91,"GL",0,1,.01)=""
^DD(154.91,"GL",0,5,4)=""
^DD(154.91,"GL",0,6,5)=""
^DD(154.91,"GL",0,7,6)=""
^DD(154.91,"GL",0,8,9)=""
^DD(154.91,"GL",0,9,7)=""
^DD(154.91,"GL",0,10,8)=""
^DD(154.91,"GL",1,0,10)=""
^DD(154.91,"IX",.01)=""
^DD(154.91,"RQ",.01)=""
^DD(154.91,"RQ",6)=""
^DD(154.91,"SB",154.9101,10)=""
^DD(154.9101,0)="USER SUB-FIELD^^3^3"
^DD(154.9101,0,"DT")="3010619"
^DD(154.9101,0,"IX","B",154.9101,.01)=""
^DD(154.9101,0,"NM","USER")=""
^DD(154.9101,0,"UP")="154.91"
^DD(154.9101,.01,0)="USER^P200'X^VA(200,^0;1^S DINUM=X"
^DD(154.9101,.01,1,0)="^.1"
^DD(154.9101,.01,1,1,0)="154.9101^B"
^DD(154.9101,.01,1,1,1)="S ^SPNL(154.91,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(154.9101,.01,1,1,2)="K ^SPNL(154.91,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(154.9101,.01,1,2,0)="154.91^C"
^DD(154.9101,.01,1,2,1)="S ^SPNL(154.91,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(154.9101,.01,1,2,2)="K ^SPNL(154.91,""C"",$E(X,1,30),DA(1),DA)"
^DD(154.9101,.01,1,2,"DT")="3000215"
^DD(154.9101,.01,"DT")="3000216"
^DD(154.9101,1,0)="DIVISION^RP40.8'X^DG(40.8,^0;2^S X=$P(^DG(40.8,X,0),U,2)"
^DD(154.9101,1,"DT")="3000216"
^DD(154.9101,3,0)="UPDATED^S^Y:YES;N:NO;^0;4^Q"
^DD(154.9101,3,"DT")="3010619"
^DD(154.9101,"B","DIVISION",1)=""
^DD(154.9101,"B","UPDATED",3)=""
^DD(154.9101,"B","USER",.01)=""
^DD(154.9101,"GL",0,1,.01)=""
^DD(154.9101,"GL",0,2,1)=""
^DD(154.9101,"GL",0,4,3)=""
^DD(154.9101,"IX",.01)=""
^DD(154.9101,"RQ",1)=""
^DD(154.92,0)="FIELD^^1^6"
^DD(154.92,0,"DDA")="N"
^DD(154.92,0,"DT")="2960711"
^DD(154.92,0,"IX","AUP",154.92,.05)=""
^DD(154.92,0,"IX","AUTO",154.92,.04)=""
^DD(154.92,0,"IX","B",154.92,.01)=""
^DD(154.92,0,"NM","SCD FILTER")=""
^DD(154.92,0,"VR")="2.0"
^DD(154.92,0,"VRPK")="SPN"
^DD(154.92,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(154.92,.01,1,0)="^.1"
^DD(154.92,.01,1,1,0)="154.92^B"
^DD(154.92,.01,1,1,1)="S ^SPNL(154.92,""B"",$E(X,1,30),DA)="""""
^DD(154.92,.01,1,1,2)="K ^SPNL(154.92,""B"",$E(X,1,30),DA)"
^DD(154.92,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(154.92,.01,21,0)="^^2^2^2950925^"
^DD(154.92,.01,21,1,0)="This field contains the external name of the search variable that the user"
^DD(154.92,.01,21,2,0)="will see."
^DD(154.92,.02,0)="SEARCH CRITERIA TEST^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(154.92,.02,3)="This is Standard MUMPS code."
^DD(154.92,.02,9)="@"
^DD(154.92,.02,21,0)="^^16^16^2950731^"
^DD(154.92,.02,21,1,0)="This is standard M code that tests a record to see if it meets the search"
^DD(154.92,.02,21,2,0)="criteria."
^DD(154.92,.02,21,3,0)=" "
^DD(154.92,.02,21,4,0)="Input Variables:"
^DD(154.92,.02,21,5,0)=" "
^DD(154.92,.02,21,6,0)=" SEQUENCE - The user may select multiple search variables.  This variable"
^DD(154.92,.02,21,7,0)="            represents the order in which the user picked this particular"
^DD(154.92,.02,21,8,0)="            search variable."
^DD(154.92,.02,21,9,0)=" "
^DD(154.92,.02,21,10,0)=" D0       - The internal entry number of the record in the SCD (SPINAL"
^DD(154.92,.02,21,11,0)="            CORD) REGISTRY file (#154) to be checked."
^DD(154.92,.02,21,12,0)=" "
^DD(154.92,.02,21,13,0)="Output Variables:"
^DD(154.92,.02,21,14,0)=" "
^DD(154.92,.02,21,15,0)=" Y        - A boolean value (0/1) that describes whether or not the record"
^DD(154.92,.02,21,16,0)="            meets the search criteria."
^DD(154.92,.02,"DT")="2950731"
^DD(154.92,.03,0)="SEARCH CRITERIA PARAMETERS^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(154.92,.03,3)="This is Standard MUMPS code."
^DD(154.92,.03,9)="@"
^DD(154.92,.03,21,0)="^^2^2^2950731^"
^DD(154.92,.03,21,1,0)="This is standard M code to prompt the user for the parameters of the"
^DD(154.92,.03,21,2,0)="search (e.g., upper/lower limits for age)."
^DD(154.92,.03,"DT")="2950731"
^DD(154.92,.04,0)="AUTOMATIC FILTER DISPLAY ORDER^NJ6,0X^^3;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N)!($D(^SPNL(154.92,""AUTO"",X))&'($D(^(X,DA)))) X"
^DD(154.92,.04,1,0)="^.1"
^DD(154.92,.04,1,1,0)="154.92^AUTO"
^DD(154.92,.04,1,1,1)="S ^SPNL(154.92,""AUTO"",$E(X,1,30),DA)="""""
^DD(154.92,.04,1,1,2)="K ^SPNL(154.92,""AUTO"",$E(X,1,30),DA)"
^DD(154.92,.04,1,1,"%D",0)="^^1^1^2960711^^"
^DD(154.92,.04,1,1,"%D",1,0)="This cross reference is used to determine what order to ask the filter for the automatic filters."
^DD(154.92,.04,1,1,"DT")="2960626"
^DD(154.92,.04,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(154.92,.04,21,0)="^^2^2^2960626^"
^DD(154.92,.04,21,1,0)="Automatic filter display order will be a number value that will tell"
^DD(154.92,.04,21,2,0)="what filter is to be displayed and in what order."
^DD(154.92,.04,"DT")="2960626"
^DD(154.92,.05,0)="UPFRONT FILTER DISPLAY ORDER^NJ6,0X^^4;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N)!($D(^SPNL(154.92,""AUP"",X))&'($D(^(X,DA)))) X"
^DD(154.92,.05,1,0)="^.1"
^DD(154.92,.05,1,1,0)="154.92^AUP"
^DD(154.92,.05,1,1,1)="S ^SPNL(154.92,""AUP"",$E(X,1,30),DA)="""""
^DD(154.92,.05,1,1,2)="K ^SPNL(154.92,""AUP"",$E(X,1,30),DA)"
^DD(154.92,.05,1,1,"%D",0)="^^2^2^2960711^"
^DD(154.92,.05,1,1,"%D",1,0)="This cross reference is used to determine what order to ask the filter"
^DD(154.92,.05,1,1,"%D",2,0)="for the upfront filters."
^DD(154.92,.05,1,1,"DT")="2960711"
^DD(154.92,.05,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(154.92,.05,21,0)="^^2^2^2960711^"
^DD(154.92,.05,21,1,0)="Upfront filter display order will be a number value that will tell"
^DD(154.92,.05,21,2,0)="what filter is to be displayed in what order."
^DD(154.92,.05,"DT")="2960711"
^DD(154.92,1,0)="FILTER DESCRIPTION^154.921^^WORD;0"
^DD(154.92,"B","AUTOMATIC FILTER DISPLAY ORDER",.04)=""
^DD(154.92,"B","FILTER DESCRIPTION",1)=""
^DD(154.92,"B","NAME",.01)=""
^DD(154.92,"B","SEARCH CRITERIA PARAMETERS",.03)=""
^DD(154.92,"B","SEARCH CRITERIA TEST",.02)=""
^DD(154.92,"B","UPFRONT FILTER DISPLAY ORDER",.05)=""
^DD(154.92,"GL",0,1,.01)=""
^DD(154.92,"GL",1,"E1,245",.02)=""
^DD(154.92,"GL",2,"E1,245",.03)=""
^DD(154.92,"GL",3,1,.04)=""
^DD(154.92,"GL",4,1,.05)=""
^DD(154.92,"GL","WORD",0,1)=""
^DD(154.92,"IX",.01)=""
^DD(154.92,"IX",.04)=""
^DD(154.92,"IX",.05)=""
^DD(154.92,"RQ",.01)=""
^DD(154.92,"SB",154.921,1)=""
^DD(154.921,0)="FILTER DESCRIPTION SUB-FIELD^^.01^1"
^DD(154.921,0,"DT")="2960627"
^DD(154.921,0,"NM","FILTER DESCRIPTION")=""
^DD(154.921,0,"UP")="154.92"
^DD(154.921,.01,0)="FILTER DESCRIPTION^W^^0;1^Q"
^DD(154.921,.01,21,0)="^^3^3^2960627^"
^DD(154.921,.01,21,1,0)="This is the description of the filter.  What and how that filter is"
^DD(154.921,.01,21,2,0)="to be used.  This field would also contain an example of the filter"
^DD(154.921,.01,21,3,0)="being used."
^DD(154.921,.01,"DT")="2960627"
^DD(154.921,"B","FILTER DESCRIPTION",.01)=""
^DD(154.921,"GL",0,1,.01)=""
^DD(154.991,0)="FIELD^^2^3"
^DD(154.991,0,"DDA")="N"
^DD(154.991,0,"DT")="3000203"
^DD(154.991,0,"IX","B",154.991,.01)=""
^DD(154.991,0,"NM","SPN ADMISSIONS")=""
^DD(154.991,0,"PT",154.1,1000)=""
^DD(154.991,0,"VR")="2.0"
^DD(154.991,0,"VRPK")="SPN"
^DD(154.991,.01,0)="Admission Date/Time^RDX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X Q:X=""""  S DINUM=X"
^DD(154.991,.01,.1)="test title"
^DD(154.991,.01,1,0)="^.1"
^DD(154.991,.01,1,1,0)="154.991^B"
^DD(154.991,.01,1,1,1)="S ^SPNL(154.991,""B"",$E(X,1,30),DA)="""""
^DD(154.991,.01,1,1,2)="K ^SPNL(154.991,""B"",$E(X,1,30),DA)"
^DD(154.991,.01,3)=""
^DD(154.991,.01,"DT")="3000224"
^DD(154.991,1,0)="IEN 154_1^P154.1'^SPNL(154.1,^0;2^Q"
^DD(154.991,1,"DT")="3000203"
^DD(154.991,2,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(154.991,2,"DT")="3000203"
^DD(154.991,"B","Admission Date/Time",.01)=""
^DD(154.991,"B","IEN 154_1",1)=""
^DD(154.991,"B","PATIENT",2)=""
^DD(154.991,"B","test title",.01)="1"
^DD(154.991,"GL",0,1,.01)=""
^DD(154.991,"GL",0,2,1)=""
^DD(154.991,"GL",0,3,2)=""
^DD(154.991,"IX",.01)=""
^DD(154.991,"RQ",.01)=""
^DD(160,0)="FIELD^^1005^122"
^DD(160,0,"DDA")="N"
^DD(160,0,"DT")="2960207"
^DD(160,0,"IX","AACP",160.03,1)=""
^DD(160,0,"IX","AAPC",160.03,1)=""
^DD(160,0,"IX","AC",160,15.1)=""
^DD(160,0,"IX","ACP",160.03,1)=""
^DD(160,0,"IX","AD",160,27)=""
^DD(160,0,"IX","ADX",160.075,.01)=""
^DD(160,0,"IX","AE",160.06,2)=""
^DD(160,0,"IX","AFS",160,15.2)=""
^DD(160,0,"IX","APC",160.03,1)=""
^DD(160,0,"IX","AS",160,15)=""
^DD(160,0,"IX","B",160,.01)=""
^DD(160,0,"IX","C",160,19)=""
^DD(160,0,"IX","CN",160,6)=""
^DD(160,0,"IX","D",160.075,2)=""
^DD(160,0,"NM","ONCOLOGY PATIENT")=""
^DD(160,0,"PT",165.5,.02)=""
^DD(160,0,"VR")="2.11"
^DD(160,0,"VRPK")="ONC"
^DD(160,.01,0)="NAME^RV^^0;1^Q"
^DD(160,.01,.1)="Patient's full name"
^DD(160,.01,1,0)="^.1^^-1"
^DD(160,.01,1,1,0)="160^B"
^DD(160,.01,1,1,1)="S ^ONCO(160,""B"",$E(X,1,30),DA)="""""
^DD(160,.01,1,1,2)="K ^ONCO(160,""B"",$E(X,1,30),DA)"
^DD(160,.01,1,1,"%D",0)="^^1^1^2920516^"
^DD(160,.01,1,1,"%D",1,0)="Regular ""B"" cross-reference on .01 field - variable pointer."
^DD(160,.01,3)=""
^DD(160,.01,20,0)="^.3LA^1^1"
^DD(160,.01,20,1,0)="ACOS-REQUIRED"
^DD(160,.01,21,0)="^^6^6^2920523^^^^"
^DD(160,.01,21,1,0)="This field identifies the patient by establishing a pointer to either the"
^DD(160,.01,21,2,0)="VA Patient File, or, for non-VA patients, to the Referral File.  Enter"
^DD(160,.01,21,3,0)="the patient's name to see if it is already on file.  If not, you will need"
^DD(160,.01,21,4,0)="to enter the name, along with other identifiers, into the appropriate file."
^DD(160,.01,21,5,0)="Contact your MAS representative if you have difficulty entering a new"
^DD(160,.01,21,6,0)="patient into the VA Patient File."
^DD(160,.01,"DT")="2920422"
^DD(160,.01,"V",0)="^.12P^2^2"
^DD(160,.01,"V",1,0)="2^VA Patient^1^P^n^n"
^DD(160,.01,"V",2,0)="67^Non-VA or Ambiguous Patient^2^N^^y"
^DD(160,.01,"V","B",2,1)=""
^DD(160,.01,"V","B",67,2)=""
^DD(160,.01,"V","M","Non-VA or Ambiguous Patient",2)=""
^DD(160,.01,"V","M","VA Patient",1)=""
^DD(160,.01,"V","O",1,1)=""
^DD(160,.01,"V","O",2,2)=""
^DD(160,.01,"V","P","N",2)=""
^DD(160,.01,"V","P","P",1)=""
^DD(160,.011,0)="LAST NAME^CJ20^^ ; ^X ^DD(160,.011,9.3) S X=$P(X,"","",1)"
^DD(160,.011,9)="^"
^DD(160,.011,9.01)="160^.01"
^DD(160,.011,9.1)="ONCOLASTNAME(NAME)"
^DD(160,.011,9.2)="S Y(160,.011,1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DD(160,.011,9.3)="X ^DD(160,.011,9.2) S X=$P(Y(160,.011,1),U,1),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DD(160,.011,21,0)="^.001^3^3^3021104^^^^"
^DD(160,.011,21,1,0)="Identifies the last name of the patient."
^DD(160,.011,21,2,0)=""
^DD(160,.011,21,3,0)="For further information see FORDS page 39."
^DD(160,.012,0)="FIRST-LAST^CJ25X^^ ; ^X ^DD(160,.012,9.3) S X=$$FLNAME^ONCFUNC(X)"
^DD(160,.012,9)="^"
^DD(160,.012,9.01)="160^.01"
^DD(160,.012,9.1)="ONCOFIRSTNAME LASTNAME(NAME)"
^DD(160,.012,9.2)="S Y(160,.012,1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DD(160,.012,9.3)="X ^DD(160,.012,9.2) S X=$P(Y(160,.012,1),U,1),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DD(160,.012,21,0)="^.001^1^1^3010524^^^^"
^DD(160,.012,21,1,0)="RECORD THE PATIENT'S FIRST AND LAST NAME."
^DD(160,.012,"DT")="3010524"
^DD(160,.013,0)="C'LASTNAME^CJ8^^ ; ^S X=^ONCO(160,D0,0),Y=""^""_$P($P(X,U,1),"";"",2)_+X_"",0)"",X=$S($D(@Y):$P(@Y,U,1),1:""""),X=$P(X,"","",1)"
^DD(160,.013,9)="^"
^DD(160,.013,9.01)=""
^DD(160,.013,9.1)="S X=^ONCO(160,D0,0),Y=""^""_$P($P(X,U,1),"";"",2)_+X_"",0)"",X=$S($D(@Y):$P(@Y,U,1),1:""""),X=$P(X,"","",1)"
^DD(160,.013,21,0)="^^1^1^2960308^^^"
^DD(160,.013,21,1,0)="RECORD PATIENT'S LAST NAME IF IT CONTAINS A C'."
^DD(160,.013,"DT")="2960308"
^DD(160,.014,0)="SALUTATION^CJ8^^ ; ^S X=$S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:""""),X=$S(X=""2"":""Ms"",1:""Mr"")"
^DD(160,.014,9)="^"
^DD(160,.014,9.01)=""
^DD(160,.014,9.1)="S X=$S($D(^ONCO(160,D0,0)):$P(^(0),U,8),1:""""),X=$S(X=""2"":""Ms"",1:""Mr"")"
^DD(160,.014,21,0)="^^1^1^2900602^"
^DD(160,.014,21,1,0)="Looks at sex field, and determines how letter should be addressed."
^DD(160,.015,0)="MIDDLE NAME^CJ14^^ ; ^D ^ONCOMNI"
^DD(160,.015,.1)=""
^DD(160,.015,9)="^"
^DD(160,.015,9.01)=""
^DD(160,.015,9.1)="D ^ONCOMNI"
^DD(160,.015,9.2)="S Y(160,.015,1)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DD(160,.015,9.3)="X ^DD(160,.015,9.2) S X=$P(Y(160,.015,1),U,1),C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DD(160,.015,21,0)="^.001^3^3^3021104^^^^"
^DD(160,.015,21,1,0)="Identifies the middle name or middle initial of the patient."
^DD(160,.015,21,2,0)=""
^DD(160,.015,21,3,0)="For further information see FORDS page 41."
^DD(160,.015,"DT")="3021101"
^DD(160,.111,0)="STREET ADDRESS 1^CJ15^^ ; ^S X="""" D SA1^ONCOES"
^DD(160,.111,9)="^"
^DD(160,.111,9.01)=""
^DD(160,.111,9.1)="S X="""" D SA1^ONCOES"
^DD(160,.111,21,0)="^^1^1^2920526^"
^DD(160,.111,21,1,0)="RECORD FIRST LINE OF PATIENT'S ADDRESS."
^DD(160,.111,"DT")="2920716"
^DD(160,.112,0)="STREET ADDRESS 2^CJ15^^ ; ^D SA2^ONCOES"
^DD(160,.112,9)="^"
^DD(160,.112,9.01)=""
^DD(160,.112,9.1)="D SA2^ONCOES"
^DD(160,.112,21,0)="^^1^1^2920526^"
^DD(160,.112,21,1,0)="RECORD 2ND LINE OF PATIENT'S ADDRESS."
^DD(160,.113,0)="STREET ADDRESS 3^CJ15^^ ; ^D SA3^ONCOES"
^DD(160,.113,9)="^"
^DD(160,.113,9.01)=""
^DD(160,.113,9.1)="D SA3^ONCOES"
^DD(160,.113,21,0)="^^1^1^2920526^"
^DD(160,.113,21,1,0)="RECORD 3RD LINE OF PATIENT'S ADDRESS."
^DD(160,.115,0)="STATE^CJ2^^ ; ^D ST^ONCOES"
^DD(160,.115,9)="^"
^DD(160,.115,9.01)=""
^DD(160,.115,9.1)="D ST^ONCOES"
^DD(160,.115,21,0)="^^1^1^2920526^"
^DD(160,.115,21,1,0)="RECORD THE PATIENT'S STATE OF RESIDENCE."
^DD(160,.116,0)="ZIP CODE^CJ20^^ ; ^S X="""" D ZIP^ONCOES"
^DD(160,.116,9)="^"
^DD(160,.116,9.01)=""
^DD(160,.116,9.1)="S X="""" D ZIP^ONCOES"
^DD(160,.116,21,0)="^^1^1^2920526^"
^DD(160,.116,21,1,0)="RECORD THE PATIENT'S RESIDENCE ZIP CODE."
^DD(160,.116,"DT")="2910716"
^DD(160,.117,0)="COUNTY^CJ25^^ ; ^D CT^ONCOES"
^DD(160,.117,9)="^"
^DD(160,.117,9.01)=""
^DD(160,.117,9.1)="D CT^ONCOES"
^DD(160,.117,21,0)="^^1^1^2920526^"
^DD(160,.117,21,1,0)="RECORD THE COUNTY OF RESIDENCE."
^DD(160,.118,0)="ZIP-COUNTY^CJ30^^ ; ^S X="""" D ZIPCT^ONCOES"
^DD(160,.118,9)="^"
^DD(160,.118,9.01)=""
^DD(160,.118,9.1)="D ZIPCT^ONCOES"
^DD(160,.118,21,0)="^^2^2^2920526^"
^DD(160,.118,21,1,0)="THIS IS A COMPUTED FIELD THAT BRINGS UPS THE COUNTY OF"
^DD(160,.118,21,2,0)="RESIDENCE COMPUTED FROM ZIP CODE."
^DD(160,.119,0)="PATIENT ADDRESS - CURRENT^CJ40^^ ; ^S X="""" D ADD^ONCOES"
^DD(160,.119,9)="^"
^DD(160,.119,9.01)=""
^DD(160,.119,9.1)="S X="""" D ADD^ONCOES"
^DD(160,.119,21,0)="^.001^3^3^3021104^^^^"
^DD(160,.119,21,1,0)="Identifies the patient's current address (number and street)."
^DD(160,.119,21,2,0)=""
^DD(160,.119,21,3,0)="For further information see FORDS page 49."
^DD(160,.119,"DT")="3021104"
^DD(160,.1191,0)="PATIENT ADDRESS - CURRENT SUPP^CJ40^^ ; ^D SA3^ONCOES"
^DD(160,.1191,9)="^"
^DD(160,.1191,9.01)=""
^DD(160,.1191,9.1)="D SA3^ONCOES"
^DD(160,.1191,21,0)="^^5^5^3021104^"
^DD(160,.1191,21,1,0)="Provides the ability to store additional address information"
^DD(160,.1191,21,2,0)="such as the name of a place or facility (ie, a nursing home"
^DD(160,.1191,21,3,0)="or name of an apartment complex)."
^DD(160,.1191,21,4,0)=""
^DD(160,.1191,21,5,0)="For further information see FORDS page 50."
^DD(160,.12,0)="CTY^CJ20^^ ; ^S X="""" D CTY^ONCOES"
^DD(160,.12,9)="^"
^DD(160,.12,9.01)=""
^DD(160,.12,9.1)="S X="""" D CTY^ONCOES"
^DD(160,.12,21,0)="^^3^3^2970130^^^^"
^DD(160,.12,21,1,0)="This is the patient's county, retrieved from the PATIENT file (#2).  If the"
^DD(160,.12,21,2,0)="ONCOLOGY PATIENT file is pointing to the REFERRAL file (#67), the CTY value"
^DD(160,.12,21,3,0)="will be null."
^DD(160,.131,0)="TELEPHONE^CJ20^^ ; ^D PH^ONCOES"
^DD(160,.131,9)="^"
^DD(160,.131,9.01)=""
^DD(160,.131,9.1)="D PH^ONCOES"
^DD(160,.131,21,0)="^.001^3^3^3021104^^^"
^DD(160,.131,21,1,0)="Records the current telphone number with area code for the patient."
^DD(160,.131,21,2,0)=""
^DD(160,.131,21,3,0)="For further information see FORDS page 55."
^DD(160,.131,"DT")="3021104"
^DD(160,.2,0)="CONTACTS^CJ80^^ ; ^S X="""" D CON^ONCOCON"
^DD(160,.2,9)="^"
^DD(160,.2,9.01)=""
^DD(160,.2,9.1)="S X="""" D CON^ONCOCON"
^DD(160,.2,21,0)="^^1^1^2920526^"
^DD(160,.2,21,1,0)="THIS IS A COMPUTED FIELD FOR THE PATIENT'S CONTACTS."
^DD(160,.21,0)="NOK-INFO^CJ25^^ ; ^S X="""" D NOK^ONCOCON"
^DD(160,.21,9)="^"
^DD(160,.21,9.01)=""
^DD(160,.21,9.1)="S X="""" D NOK^ONCOCON"
^DD(160,.21,21,0)="^^1^1^2920526^"
^DD(160,.21,21,1,0)="THIS FIELD CONTAINS INFORMATION FOR THE PATIENT'S NEXT OF KIN."
^DD(160,.211,0)="NOK2-INFO^CJ25^^ ; ^S X="""" D NOK2^ONCOCON"
^DD(160,.211,9)="^"
^DD(160,.211,9.01)=""
^DD(160,.211,9.1)="S X="""" D NOK2^ONCOCON"
^DD(160,.211,21,0)="^^2^2^2920526^"
^DD(160,.211,21,1,0)="THIS FIELD CONTAINS INFORMATION RELATED TO THE PATIENT'S 2ND NEXT"
^DD(160,.211,21,2,0)="OF KIN."
^DD(160,.212,0)="RELATIVE^CJ80^^ ; ^S X="""" D REL^ONCOCON"
^DD(160,.212,9)="^"
^DD(160,.212,9.01)=""
^DD(160,.212,9.1)="S X="""" D REL^ONCOCON"
^DD(160,.212,21,0)="^^2^2^2920526^"
^DD(160,.212,21,1,0)="THIS FIELD CONTAINS INFORMATION REGARDING THE NEXT OF KIN RELATIONSHIP"
^DD(160,.212,21,2,0)="TO THE PATIENT."
^DD(160,.212,"DT")="2910521"
^DD(160,.213,0)="RELATIVE-2^CJ80^^ ; ^S X="""" D REL2^ONCOCON"
^DD(160,.213,9)="^"
^DD(160,.213,9.01)=""
^DD(160,.213,9.1)="S X="""" D REL2^ONCOCON"
^DD(160,.213,21,0)="^^2^2^2920526^"
^DD(160,.213,21,1,0)="THIS FIELD CONTAINS INFORMATION REGARDING THE 2ND NEXT OF KIN"
^DD(160,.213,21,2,0)="RELATIONSHIP TO THE PATIENT."
^DD(160,.214,0)="NOK^CJ20^^ ; ^S X="""" D NOKEO^ONCOCON"
^DD(160,.214,9)="^"
^DD(160,.214,9.01)=""
^DD(160,.214,9.1)="S X="""" D NOKEO^ONCOCON"
^DD(160,.214,21,0)="^^2^2^2930819^"
^DD(160,.214,21,1,0)="This is the patient's next of kin, retrieved from either the PATIENT File"
^DD(160,.214,21,2,0)="(#2) or the REFERRAL File (#67)."
^DD(160,1,0)="ALIAS^CJ20^^ ; ^S X="""" D ALIAS^ONCOES"
^DD(160,1,9)="^"
^DD(160,1,9.01)=""
^DD(160,1,9.1)="S X="""" D ALIAS^ONCOES"
^DD(160,1,21,0)="^^2^2^2920526^"
^DD(160,1,21,1,0)="COMPUTED FIELD BRINGING OVER ANY ALIAS LISTED IN THE MAS FILE"
^DD(160,1,21,2,0)="FOR THE PATIENT."
^DD(160,1,"DT")="2920228"
^DD(160,2,0)="SSN^CJ11^^ ; ^D SSN^ONCOES"
^DD(160,2,9)="^"
^DD(160,2,9.01)=""
^DD(160,2,9.1)="D SSN^ONCOES"
^DD(160,2,21,0)="^.001^3^3^3030512^^^^"
^DD(160,2,21,1,0)="Records the patient's Social Security number."
^DD(160,2,21,2,0)=""
^DD(160,2,21,3,0)="For further information see FORDS page 37."
^DD(160,2,"DT")="3030512"
^DD(160,2.1,0)="CSSN^CJ9^^ ; ^S X=^ONCO(160,D0,0),Y=""^""_$P($P(X,U,1),"";"",2)_+X_"",0)"",X=$S($D(@Y):$P(@Y,U,9),1:"""")"
^DD(160,2.1,9)="^"
^DD(160,2.1,9.01)=""
^DD(160,2.1,9.1)="S X=^ONCO(160,D0,0),Y=""^""_$P($P(X,U,1),"";"",2)_+X_"",0)"",X=$S($D(@Y):$P(@Y,U,9),1:"""")"
^DD(160,2.1,21,0)="^^1^1^2920526^"
^DD(160,2.1,21,1,0)="COMPUTED SOCIAL SECURITY NUMBER."
^DD(160,3,0)="DOB^CJ10^^ ; ^D DOB^ONCOES"
^DD(160,3,9)="^"
^DD(160,3,9.01)=""
^DD(160,3,9.1)="D DOB^ONCOES"
^DD(160,3,21,0)="^.001^3^3^3030512^^^^"
^DD(160,3,21,1,0)="Identifies the date of birth of the patient."
^DD(160,3,21,2,0)=""
^DD(160,3,21,3,0)="For further information see FORDS page 57."
^DD(160,3,"DT")="3030512"
^DD(160,3.1,0)="DATE OF BIRTH (FILEMAN FORMAT)^CJ7^^ ; ^D DOB1^ONCOES"
^DD(160,3.1,9)="^"
^DD(160,3.1,9.01)=""
^DD(160,3.1,9.1)="D DOB1^ONCOES"
^DD(160,3.1,21,0)="^.001^2^2^3021104^^^"
^DD(160,3.1,21,1,0)="Identifies the date of birth of the patient in internal"
^DD(160,3.1,21,2,0)="FileMan format."
^DD(160,3.1,"DT")="3021104"
^DD(160,4,0)="MEDICAL RECORD NUMBER^CJ12^^ ; ^D SSN^ONCOES"
^DD(160,4,9)="^"
^DD(160,4,9.01)=""
^DD(160,4,9.1)="D SSN^ONCOES"
^DD(160,4,21,0)="^.001^4^4^3030212^^^^"
^DD(160,4,21,1,0)="Records the medical record number usually assigned by the reporting"
^DD(160,4,21,2,0)="facility's health information management (HIM) department."
^DD(160,4,21,3,0)=""
^DD(160,4,21,4,0)="For further information see FORDS page 36."
^DD(160,4,"DT")="3030212"
^DD(160,4.1,0)="TERMINAL DIGIT^CJ11^^ ; ^S X="""" D TRM^ONCOES"
^DD(160,4.1,9)="^"
^DD(160,4.1,9.01)=""
^DD(160,4.1,9.1)="S X="""" D TRM^ONCOES"
^DD(160,4.1,21,0)="^^2^2^2920526^"
^DD(160,4.1,21,1,0)="COMPUTED FIELD TAKING THE LAST TWO DIGITS FROM THE PATIENT'S SOCIAL"
^DD(160,4.1,21,2,0)="SECURITY NUMBER."
^DD(160,4.1,"DT")="2901031"
^DD(160,5,0)="REGIONAL NO.^F^^0;3^K:$L(X)>8!($L(X)<1) X"
^DD(160,5,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(160,5,21,0)="^^1^1^2870909^^"
^DD(160,5,21,1,0)="Regional data set - One number per patient - Can be left blank."
^DD(160,6,0)="CENTRAL NO.^FX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<8)!'(X?8N) X I $D(X) I $D(^ONCO(160,""CN"",X)) W !,*7,""This has been used previously as a CENTRAL NUMBER"" K X"
^DD(160,6,.1)="SEER Case Number"
^DD(160,6,1,0)="^.1"
^DD(160,6,1,1,0)="160^CN"
^DD(160,6,1,1,1)="S ^ONCO(160,""CN"",$E(X,1,30),DA)="""""
^DD(160,6,1,1,2)="K ^ONCO(160,""CN"",$E(X,1,30),DA)"
^DD(160,6,1,1,"%D",0)="^^1^1^2930909"
^DD(160,6,1,1,"%D",1,0)="Indexes file by CENTRAL NO.."
^DD(160,6,3)="ANSWER MUST BE A UNIQUE COMBINATION OF 8 NUMBERS IN LENGTH AND CAN HAVE LEADING ZEROS"
^DD(160,6,4)=""
^DD(160,6,10)="SEER I.02"
^DD(160,6,20,0)="^.3LA^1^1"
^DD(160,6,20,1,0)="SEER"
^DD(160,6,21,0)="^^3^3^2880923^^^^"
^DD(160,6,21,1,0)="The case number is issued by the SEER participant to identify the person."
^DD(160,6,21,2,0)="Each computer record pertaining to the same person must have an identical"
^DD(160,6,21,3,0)="case number.  It uses eight digits with leading zeros as necessary."
^DD(160,6,"DT")="2880923"
^DD(160,7,0)="PLACE OF BIRTH^RP165.2'^ONCO(165.2,^0;5^Q"
^DD(160,7,.1)=""
^DD(160,7,3)=""
^DD(160,7,10)=""
^DD(160,7,20,0)="^.3LA^^0"
^DD(160,7,20,1,0)="SEER"
^DD(160,7,20,2,0)="ACOS"
^DD(160,7,21,0)="^.001^4^4^3030212^^^^"
^DD(160,7,21,1,0)=""
^DD(160,7,21,2,0)="Records the patient's place of birth."
^DD(160,7,21,3,0)=""
^DD(160,7,21,4,0)="For further information see FORDS page 56."
^DD(160,7,"DT")="3021104"
^DD(160,8,0)="RACE 1^R*P164.46'^ONCO(164.46,^0;6^S DIC(""S"")=""I Y'=88"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,8,.1)=""
^DD(160,8,3)=""
^DD(160,8,10)=""
^DD(160,8,12)="Select an entry from the RACE CODE FOR ONCOLOGY list"
^DD(160,8,12.1)="S DIC(""S"")=""I Y'=88"""
^DD(160,8,20,0)="^.3LA^^0"
^DD(160,8,21,0)="^.001^4^4^3021104^^^^"
^DD(160,8,21,1,0)=""
^DD(160,8,21,2,0)="Identifies the primary race of the person."
^DD(160,8,21,3,0)=""
^DD(160,8,21,4,0)="For further information see FORDS page 59."
^DD(160,8,"DT")="3001207"
^DD(160,8.1,0)="RACE 2^P164.46'^ONCO(164.46,^0;15^Q"
^DD(160,8.1,21,0)="^.001^4^4^3021104^^^^"
^DD(160,8.1,21,1,0)=""
^DD(160,8.1,21,2,0)="Identifies the patient's race."
^DD(160,8.1,21,3,0)=""
^DD(160,8.1,21,4,0)="For further information see FORDS page 61."
^DD(160,8.1,"DT")="3001207"
^DD(160,8.2,0)="RACE 3^P164.46'^ONCO(164.46,^0;16^Q"
^DD(160,8.2,21,0)="^.001^5^5^3021104^^^"
^DD(160,8.2,21,1,0)=""
^DD(160,8.2,21,2,0)="Identifies the patient's race."
^DD(160,8.2,21,3,0)=""
^DD(160,8.2,21,4,0)="For further information see FORDS page 62."
^DD(160,8.2,21,5,0)=""
^DD(160,8.2,"DT")="3001207"
^DD(160,8.3,0)="RACE 4^P164.46'^ONCO(164.46,^0;17^Q"
^DD(160,8.3,21,0)="^.001^4^4^3021104^^^"
^DD(160,8.3,21,1,0)=""
^DD(160,8.3,21,2,0)="Identifies the patient's race."
^DD(160,8.3,21,3,0)=""
^DD(160,8.3,21,4,0)="For further information see FORDS page 63."
^DD(160,8.3,"DT")="3001207"
^DD(160,8.4,0)="RACE 5^P164.46'^ONCO(164.46,^0;18^Q"
^DD(160,8.4,21,0)="^.001^4^4^3021104^^^"
^DD(160,8.4,21,1,0)=""
^DD(160,8.4,21,2,0)="Identifies the patient's race."
^DD(160,8.4,21,3,0)=""
^DD(160,8.4,21,4,0)="For further information see FORDS page 64."
^DD(160,8.4,"DT")="3001207"
^DD(160,9,0)="SPANISH ORIGIN^S^0:Non-Spanish, non-Hispanic;1:Mexican;2:Puerto Rican;3:Cuban;4:South/Central American;5:Other specified Spanish/Hispanic;6:Spanish, Hispanic, Latino, NOS;7:Spanish surname only;8:Dominican Republic;9:Unknown/not stated;^0;7^Q"
^DD(160,9,.1)=""
^DD(160,9,10)=""
^DD(160,9,20,0)="^.3LA^^0"
^DD(160,9,20,1,0)="SEER"
^DD(160,9,20,2,0)="ACOS-RECOMMENDED"
^DD(160,9,21,0)="^.001^7^7^3041008^^^^"
^DD(160,9,21,1,0)=""
^DD(160,9,21,2,0)="Identifies persons of Spanish or Hispanic origin."
^DD(160,9,21,3,0)=""
^DD(160,9,21,4,0)="NOTE: Code 8 (Dominican Republic) is for use with patients who"
^DD(160,9,21,5,0)="      were diagnosed with cancer on January 1, 2005, or later."
^DD(160,9,21,6,0)=""
^DD(160,9,21,7,0)="For further information see FORDS page 65."
^DD(160,9,"DT")="3041008"
^DD(160,10,0)="SEX^RS^1:Male;2:Female;3:Other (hermaphrodite);4:Transsexual;9:Not stated;^0;8^Q"
^DD(160,10,.1)=""
^DD(160,10,3)=""
^DD(160,10,10)=""
^DD(160,10,20,0)="^.3LA^^0"
^DD(160,10,21,0)="^.001^4^4^3021104^^^^"
^DD(160,10,21,1,0)=""
^DD(160,10,21,2,0)="Identifies the sex of the patient."
^DD(160,10,21,3,0)=""
^DD(160,10,21,4,0)="For further information see FORDS page 66."
^DD(160,10,"DT")="3021104"
^DD(160,11,0)="LRDFN^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160,11,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(160,11,21,0)="^^1^1^2920526^"
^DD(160,11,21,1,0)="COMPUTED FIELD WITH THE LABORATORY DATA FILE NUMBER."
^DD(160,11,"DT")="2910618"
^DD(160,12,0)="CURRENT OCCUPATION^CJ15^^ ; ^S X="""" D OCC^ONCOES"
^DD(160,12,9)="^"
^DD(160,12,9.01)=""
^DD(160,12,9.1)="S X="""" D OCC^ONCOES"
^DD(160,12,21,0)="^^1^1^2930819^"
^DD(160,12,21,1,0)="This is the current occupation of the patient."
^DD(160,13,0)="RELIGION^CJ8^^ ; ^D REL^ONCOES"
^DD(160,13,9)="^"
^DD(160,13,9.01)=""
^DD(160,13,9.1)="D REL^ONCOES"
^DD(160,13,21,0)="^^1^1^2920526^"
^DD(160,13,21,1,0)="THE PATIENT'S RELIGION."
^DD(160,13,"DT")="2871015"
^DD(160,14,0)="MARITAL STATUS^CJ8^^ ; ^D MS^ONCOES"
^DD(160,14,9)="^"
^DD(160,14,9.01)=""
^DD(160,14,9.1)="D MS^ONCOES"
^DD(160,14,21,0)="^^1^1^2920526^"
^DD(160,14,21,1,0)="COMPUTED FIELD LISTING THE PATIENT'S MARTIAL STATUS."
^DD(160,15,0)="STATUS^S^0:Dead;1:Alive;^1;1^Q"
^DD(160,15,1,0)="^.1"
^DD(160,15,1,1,0)="160^AS"
^DD(160,15,1,1,1)="S ^ONCO(160,""AS"",$E(X,1,30),DA)="""""
^DD(160,15,1,1,2)="K ^ONCO(160,""AS"",$E(X,1,30),DA)"
^DD(160,15,1,1,"%D",0)="^^1^1^2930909"
^DD(160,15,1,1,"%D",1,0)="Indexes file by STATUS."
^DD(160,15,1,1,"DT")="2900722"
^DD(160,15,21,0)="^.001^1^1^3031117^^^^"
^DD(160,15,21,1,0)="Record whether the patient is alive or dead."
^DD(160,15,23,0)="^.001^2^2^3031117^^^^"
^DD(160,15,23,1,0)="This field is referenced directly by UVS^ONCOCRF."
^DD(160,15,23,2,0)="This field is referenced directly by TRS^ONCOCOS."
^DD(160,15,"DT")="3030924"
^DD(160,15.1,0)="LAST FOLLOW-UP CONTACT^P165^ONCO(165,^1;6^Q"
^DD(160,15.1,1,0)="^.1"
^DD(160,15.1,1,1,0)="160^AC"
^DD(160,15.1,1,1,1)="S ^ONCO(160,""AC"",$E(X,1,30),DA)="""""
^DD(160,15.1,1,1,2)="K ^ONCO(160,""AC"",$E(X,1,30),DA)"
^DD(160,15.1,1,1,"%D",0)="^^1^1^2990507^^"
^DD(160,15.1,1,1,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(160,15.1,1,1,"DT")="2990507"
^DD(160,15.1,21,0)="^^1^1^2940510^^"
^DD(160,15.1,21,1,0)="RECORDS THE PATIENT'S LAST FOLLOW-UP CONTACT."
^DD(160,15.1,"DT")="2990507"
^DD(160,15.2,0)="FOLLOW-UP STATUS^S^0:Inactive;1:Active;8:LTF;^1;7^Q"
^DD(160,15.2,1,0)="^.1"
^DD(160,15.2,1,1,0)="160^AFS"
^DD(160,15.2,1,1,1)="S ^ONCO(160,""AFS"",$E(X,1,30),DA)="""""
^DD(160,15.2,1,1,2)="K ^ONCO(160,""AFS"",$E(X,1,30),DA)"
^DD(160,15.2,1,1,"%D",0)="^^1^1^2930909"
^DD(160,15.2,1,1,"%D",1,0)="Indexes file by FOLLOW-UP STATUS."
^DD(160,15.2,1,1,"DT")="2910809"
^DD(160,15.2,21,0)="^^1^1^3000105^^"
^DD(160,15.2,21,1,0)="RECORDS THE PATIENT'S FOLLOW UP STATUS."
^DD(160,15.2,"DT")="3000105"
^DD(160,16,0)="DATE LAST CONTACT^CJ10^^ ; ^S X="""" D DLC^ONCOCRF,DATEOT^ONCOES"
^DD(160,16,9)="^"
^DD(160,16,9.01)=""
^DD(160,16,9.1)="S X="""" D DLC^ONCOCRF,DATEOT^ONCOES"
^DD(160,16,21,0)="^.001^1^1^3060330^^^"
^DD(160,16,21,1,0)="RECORDS THE PATIENT'S LAST DATE OF CONTACT."
^DD(160,16,"DT")="3060330"
^DD(160,17,0)="TOTAL PRIMARIES FOR PATIENT^CJ3^^ ; ^D PRICNT^ONCFUNC"
^DD(160,17,9)="^"
^DD(160,17,9.01)=""
^DD(160,17,9.1)="D PRICNT^ONCFUNC"
^DD(160,17,21,0)="^^4^4^3010822^"
^DD(160,17,21,1,0)=""
^DD(160,17,21,2,0)="This field will display a division specific count of a patient's"
^DD(160,17,21,3,0)="primaries."
^DD(160,17,21,4,0)=""
^DD(160,17,"DT")="3010817"
^DD(160,18.9,0)="CAUSE OF DEATH/CANCER^*S^D:Directly related;I:Indirectly related;N:Not related;U:Unknown;^1;12^Q"
^DD(160,18.9,12)="This field only applies to expired patients."
^DD(160,18.9,12.1)="S DIC(""S"")=""I '$P($G(^ONCO(160,DA,1)),U)"""
^DD(160,18.9,21,0)="^^2^2^2930423^"
^DD(160,18.9,21,1,0)="This field contains a code indicating whether the patient died as a"
^DD(160,18.9,21,2,0)="result of cancer."
^DD(160,18.9,23,0)="^^1^1^2930422"
^DD(160,18.9,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,18.9,"DT")="2930423"
^DD(160,19,0)="CAUSE OF DEATH^P80'^ICD9(^1;3^Q"
^DD(160,19,.1)=""
^DD(160,19,1,0)="^.1"
^DD(160,19,1,1,0)="160^C^MUMPS"
^DD(160,19,1,1,1)="S $P(^ONCO(160,DA,1),U,14)="""""
^DD(160,19,1,1,2)="Q"
^DD(160,19,1,1,"%D",0)="^^1^1^2990813^^^"
^DD(160,19,1,1,"%D",1,0)="If this field is entered, delete any data in STATE DEATH CERT field (19.1)."
^DD(160,19,1,1,"DT")="2990813"
^DD(160,19,10)=""
^DD(160,19,20,0)="^.3LA^^0"
^DD(160,19,20,1,0)="SEER"
^DD(160,19,21,0)="^^5^5^2991201^^^^"
^DD(160,19,21,1,0)=""
^DD(160,19,21,2,0)="Record the CAUSE OF DEATH listed on the death certificate.  Central"
^DD(160,19,21,3,0)="registries are the primary users of this data item.  Use the underlying"
^DD(160,19,21,4,0)="CAUSE OF DEATH (ICD code) identified by state health department."
^DD(160,19,21,5,0)=""
^DD(160,19,23,0)="^^1^1^2991201^^^"
^DD(160,19,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,19,"DT")="2991201"
^DD(160,19.1,0)="STATE DEATH CERT^S^7777:State death certificate or listing not available;7797:State death cert available, cause of death not coded;^1;14^Q"
^DD(160,19.1,21,0)="^^4^4^2980409^^^"
^DD(160,19.1,21,1,0)="This field stores values for State Death Certificate.  If the"
^DD(160,19.1,21,2,0)="ICD CAUSE OF DEATH field (#19) has data then this field will be"
^DD(160,19.1,21,3,0)="NULL.  If the cause of death is 7777 or 7797 then ICD CAUSE OF"
^DD(160,19.1,21,4,0)="DEATH field (#19) will be NULL and this field will be used."
^DD(160,19.1,"DT")="2980409"
^DD(160,20,0)="ICD REVISION^S^0:Patient alive at last follow-up;8:ICDA-8;9:ICD-9;^1;4^Q"
^DD(160,20,.1)="ICD Revision for Death Code"
^DD(160,20,10)="SEER VI.03"
^DD(160,20,20,0)="^.3LA^1^1"
^DD(160,20,20,1,0)="SEER"
^DD(160,20,21,0)="^^3^3^2930422^^^^"
^DD(160,20,21,1,0)="This information will be provided by the central registry when backloading"
^DD(160,20,21,2,0)="cases.  It refers to which ICD coding scheme (see Field 19 'Cause of Death')"
^DD(160,20,21,3,0)="used to code the cause of death."
^DD(160,20,23,0)="^^1^1^2930422"
^DD(160,20,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA and by UVSDEAD^ONCOCRFA."
^DD(160,20,"DT")="2870923"
^DD(160,21,0)="PLACE OF DEATH^P165.2'^ONCO(165.2,^1;5^Q"
^DD(160,21,21,0)="^^3^3^2980714^^^^"
^DD(160,21,21,1,0)=""
^DD(160,21,21,2,0)="Enter the place of death."
^DD(160,21,21,3,0)=""
^DD(160,21,23,0)="^^1^1^2980714^^^^"
^DD(160,21,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,21,"DT")="2980714"
^DD(160,22.9,0)="AUTOPSY^*S^0:Patient alive;1:Autopsy performed;2:No autopsy performed;9:Patient expired, unknown if autopsy performed;^1;13^Q"
^DD(160,22.9,12)="This field only applies to expired patients."
^DD(160,22.9,12.1)="S DIC(""S"")=""I '$P($G(^ONCO(160,DA,1)),U)"""
^DD(160,22.9,21,0)="^^2^2^2930423^^^"
^DD(160,22.9,21,1,0)="This field contains a code indicating (if known) whether a post-mortem"
^DD(160,22.9,21,2,0)="examination was performed on the patient."
^DD(160,22.9,23,0)="^^1^1^2930423^"
^DD(160,22.9,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,22.9,"DT")="3000207"
^DD(160,23,0)="AUTOPSY DATE/TIME^DOX^^1;9^S %DT=""EST"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160,23,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(160,23,2.1)="S X=Y D DATEOT^ONCOES"
^DD(160,23,21,0)="^^1^1^2930423^^"
^DD(160,23,21,1,0)="RECORD THE DATE AND TIME OF AUTOPSY."
^DD(160,23,23,0)="^^1^1^2930423^"
^DD(160,23,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,23,"DT")="2961219"
^DD(160,24,0)="AUTOPSY #^F^^1;10^K:$L(X)>15!($L(X)<1) X"
^DD(160,24,3)="Answer must be 1-15 characters in length."
^DD(160,24,21,0)="^^1^1^2920526^"
^DD(160,24,21,1,0)="RECORD THE AUTOPSY SEQUENCE NUMBER, USUALLY STATED AS  A-90-XXXX."
^DD(160,24,23,0)="^^1^1^2930422"
^DD(160,24,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,24,"DT")="2900802"
^DD(160,24.5,0)="CARE CENTER AT DEATH^P160.19O^ONCO(160.19,^1;11^Q"
^DD(160,24.5,1,0)="^.1^^0"
^DD(160,24.5,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(160,24.5,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(160,24.5,3)="Enter Facility where patient expired."
^DD(160,24.5,4)=""
^DD(160,24.5,21,0)="^^1^1^2960628^^^^"
^DD(160,24.5,21,1,0)="Facility caring for patient at the time of death."
^DD(160,24.5,23,0)="^^1^1^2960628^^^^"
^DD(160,24.5,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,24.5,"DT")="2960628"
^DD(160,25,0)="COMORBIDITY/COMPLICATION #1^*P80'O^ICD9(^0;19^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25,12)="Record the patient's 1st pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank.  Blank values will be converted to ""00000"" for NAACCR export."
^DD(160,25,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25,21,0)="^^22^22^3051221^"
^DD(160,25,21,1,0)=" "
^DD(160,25,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25,21,4,0)="hospital stay for the treatment of this cancer using ICD-9-CM codes."
^DD(160,25,21,5,0)="All are considered secondary diagnoses."
^DD(160,25,21,6,0)=" "
^DD(160,25,21,7,0)="NOTE: If no comorbid conditions or complications were documented,"
^DD(160,25,21,8,0)="      leave this field blank.  When this item is extracted for"
^DD(160,25,21,9,0)="      export a blank value will be converted to ""00000"" as per"
^DD(160,25,21,10,0)="      the NAACCR instructions. "
^DD(160,25,21,11,0)=" "
^DD(160,25,21,12,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25,21,13,0)="secondary diagnoses for this data item."
^DD(160,25,21,14,0)=" "
^DD(160,25,21,15,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25,21,16,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25,21,17,0)=" "
^DD(160,25,21,18,0)="DO NOT record the following factors influencing health status and"
^DD(160,25,21,19,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91,"
^DD(160,25,21,20,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25,21,21,0)=" "
^DD(160,25,21,22,0)="For further information see FORDS pages 69-70."
^DD(160,25,"DT")="3020419"
^DD(160,25.1,0)="COMORBIDITY/COMPLICATION #2^*P80'O^ICD9(^0;20^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.1,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.1,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.1,12)="Record the patient's 2nd pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.1,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.1,21,0)="^^17^17^3051222^"
^DD(160,25.1,21,1,0)=" "
^DD(160,25.1,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.1,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.1,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.1,21,5,0)="secondary diagnoses."
^DD(160,25.1,21,6,0)=" "
^DD(160,25.1,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.1,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.1,21,9,0)=" "
^DD(160,25.1,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.1,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.1,21,12,0)=" "
^DD(160,25.1,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.1,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91,"
^DD(160,25.1,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.1,21,16,0)=" "
^DD(160,25.1,21,17,0)="For further information see FORDS page 71."
^DD(160,25.1,"DT")="3020422"
^DD(160,25.2,0)="COMORBIDITY/COMPLICATION #3^*P80'O^ICD9(^0;21^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.2,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.2,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.2,12)="Record the patient's 3rd pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.2,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.2,21,0)="^^17^17^3051222^"
^DD(160,25.2,21,1,0)=" "
^DD(160,25.2,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.2,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.2,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.2,21,5,0)="secondary diagnoses."
^DD(160,25.2,21,6,0)=" "
^DD(160,25.2,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.2,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.2,21,9,0)=" "
^DD(160,25.2,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.2,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.2,21,12,0)=" "
^DD(160,25.2,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.2,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91,"
^DD(160,25.2,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.2,21,16,0)=" "
^DD(160,25.2,21,17,0)="For further information see FORDS page 72."
^DD(160,25.2,"DT")="3020422"
^DD(160,25.3,0)="COMORBIDITY/COMPLICATION #4^*P80'O^ICD9(^0;22^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.3,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.3,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.3,12)="Record the patient's 4th pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.3,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.3,21,0)="^^17^17^3051222^"
^DD(160,25.3,21,1,0)=" "
^DD(160,25.3,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.3,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.3,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.3,21,5,0)="secondary diagnoses."
^DD(160,25.3,21,6,0)=" "
^DD(160,25.3,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.3,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.3,21,9,0)=" "
^DD(160,25.3,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.3,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.3,21,12,0)=" "
^DD(160,25.3,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.3,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91,"
^DD(160,25.3,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.3,21,16,0)=" "
^DD(160,25.3,21,17,0)="For further information see FORDS page 73."
^DD(160,25.3,"DT")="3020422"
^DD(160,25.4,0)="COMORBIDITY/COMPLICATION #5^*P80'O^ICD9(^0;23^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.4,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.4,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.4,12)="Record the patient's 5th pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.4,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.4,21,0)="^^17^17^3051222^"
^DD(160,25.4,21,1,0)=" "
^DD(160,25.4,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.4,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.4,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.4,21,5,0)="secondary diagnoses."
^DD(160,25.4,21,6,0)=" "
^DD(160,25.4,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.4,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.4,21,9,0)=" "
^DD(160,25.4,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.4,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.4,21,12,0)=" "
^DD(160,25.4,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.4,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91,"
^DD(160,25.4,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.4,21,16,0)=" "
^DD(160,25.4,21,17,0)="For further information see FORDS page 74."
^DD(160,25.4,"DT")="3020422"
^DD(160,25.5,0)="COMORBIDITY/COMPLICATION #6^*P80'O^ICD9(^0;24^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.5,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.5,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.5,12)="Record the patient's 6th pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.5,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.5,21,0)="^^17^17^3051222^"
^DD(160,25.5,21,1,0)=" "
^DD(160,25.5,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.5,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.5,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.5,21,5,0)="secondary diagnoses."
^DD(160,25.5,21,6,0)=" "
^DD(160,25.5,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.5,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.5,21,9,0)=" "
^DD(160,25.5,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.5,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.5,21,12,0)=" "
^DD(160,25.5,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.5,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91,"
^DD(160,25.5,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.5,21,16,0)=" "
^DD(160,25.5,21,17,0)="For further information see FORDS page 75."
^DD(160,25.5,"DT")="3020422"
^DD(160,25.6,0)="COMORBIDITY/COMPLICATION #7^*P80'O^ICD9(^0;28^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.6,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.6,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.6,12)="Record the patient's 7th pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.6,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.6,21,0)="^^17^17^3051222^"
^DD(160,25.6,21,1,0)=" "
^DD(160,25.6,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.6,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.6,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.6,21,5,0)="secondary diagnoses."
^DD(160,25.6,21,6,0)=" "
^DD(160,25.6,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.6,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.6,21,9,0)="        "
^DD(160,25.6,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.6,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.6,21,12,0)="        "
^DD(160,25.6,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.6,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91, "
^DD(160,25.6,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.6,21,16,0)="        "
^DD(160,25.6,21,17,0)="For further information see FORDS page 75A."
^DD(160,25.6,"DT")="3051221"
^DD(160,25.7,0)="COMORBIDITY/COMPLICATION #8^*P80'O^ICD9(^0;29^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.7,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.7,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.7,12)="Record the patient's 8th pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.7,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.7,21,0)="^^17^17^3051222^"
^DD(160,25.7,21,1,0)=" "
^DD(160,25.7,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.7,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.7,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.7,21,5,0)="secondary diagnoses."
^DD(160,25.7,21,6,0)=" "
^DD(160,25.7,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.7,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.7,21,9,0)=" "
^DD(160,25.7,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.7,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.7,21,12,0)=" "
^DD(160,25.7,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.7,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91, "
^DD(160,25.7,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.7,21,16,0)=" "
^DD(160,25.7,21,17,0)="For further information see FORDS page 75B."
^DD(160,25.7,"DT")="3051221"
^DD(160,25.8,0)="COMORBIDITY/COMPLICATION #9^*P80'O^ICD9(^0;30^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.8,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.8,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.8,12)="Record the patient's 9th pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.8,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.8,21,0)="^^17^17^3051222^"
^DD(160,25.8,21,1,0)=" "
^DD(160,25.8,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.8,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.8,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.8,21,5,0)="secondary diagnoses."
^DD(160,25.8,21,6,0)=" "
^DD(160,25.8,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.8,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.8,21,9,0)=" "
^DD(160,25.8,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.8,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.8,21,12,0)=" "
^DD(160,25.8,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.8,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91, "
^DD(160,25.8,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.8,21,16,0)=" "
^DD(160,25.8,21,17,0)="For further information see FORDS page 75C."
^DD(160,25.8,"DT")="3051221"
^DD(160,25.9,0)="COMORBIDITY/COMPLICATION #10^*P80'O^ICD9(^0;31^S DIC(""S"")=""D CC^ONCFUNC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160,25.9,2)="S Y(0)=Y I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.9,2.1)="I Y'="""" S CODE=$P($G(^ICD9(Y,0)),U,1),SPACE=$S($L(CODE)=4:""   "",$L(CODE)=5:""  "",1:"" ""),Y=CODE_SPACE_$P($G(^ICD9(Y,0)),U,3)"
^DD(160,25.9,12)="Record the patient's 10th pre-existing condition and/or complication using ICD-9-CM codes.  If no comorbid conditions or complications were documented, leave this item blank."
^DD(160,25.9,12.1)="S DIC(""S"")=""D CC^ONCFUNC"""
^DD(160,25.9,21,0)="^^17^17^3051222^"
^DD(160,25.9,21,1,0)=" "
^DD(160,25.9,21,2,0)="Records the patient's preexisting medical conditions, factors"
^DD(160,25.9,21,3,0)="influencing health status, and/or complications during the patient's"
^DD(160,25.9,21,4,0)="hospital stay for the treatment of this cancer.  Both are considered"
^DD(160,25.9,21,5,0)="secondary diagnoses."
^DD(160,25.9,21,6,0)=" "
^DD(160,25.9,21,7,0)="DO NOT record any neoplasms (ICD-9-CM codes 140-239.9) listed as"
^DD(160,25.9,21,8,0)="secondary diagnoses for this data item."
^DD(160,25.9,21,9,0)=" "
^DD(160,25.9,21,10,0)="DO NOT record causes of injury and poisoning unrelated to the patient's"
^DD(160,25.9,21,11,0)="medical care (ICD-9-CM codes E800-E869.9, E880-E929.9, or E950-E999)."
^DD(160,25.9,21,12,0)=" "
^DD(160,25.9,21,13,0)="DO NOT record the following factors influencing health status and"
^DD(160,25.9,21,14,0)="contact with health services (ICD-9-CM codes V01-V07.1, V07.4-V09.91, "
^DD(160,25.9,21,15,0)="V16-V21.9, V23.2-V25.3, V25.5-V43.89, V46-V50.4, or V50.8-V83.89)."
^DD(160,25.9,21,16,0)=" "
^DD(160,25.9,21,17,0)="For further information see FORDS page 75D."
^DD(160,25.9,"DT")="3051221"
^DD(160,27,0)="DUE FOLLOW-UP^D^^1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(160,27,1,0)="^.1"
^DD(160,27,1,1,0)="160^AD"
^DD(160,27,1,1,1)="S ^ONCO(160,""AD"",$E(X,1,30),DA)="""""
^DD(160,27,1,1,2)="K ^ONCO(160,""AD"",$E(X,1,30),DA)"
^DD(160,27,1,1,"%D",0)="^^1^1^2930909"
^DD(160,27,1,1,"%D",1,0)="Indexes file by DUE FOLLOW-UP."
^DD(160,27,3)="Date patient is DUE for follow-up."
^DD(160,27,21,0)="^^1^1^2920526^"
^DD(160,27,21,1,0)="RECORDS THE DATE OF THE NEXT SCHEDULED FOLLOW UP."
^DD(160,27,"DT")="2900725"
^DD(160,29,0)="DATE@TIME OF DEATH^DXO^^1;8^S %DT=""EST"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160,29,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(160,29,2.1)="S X=Y D DATEOT^ONCOES"
^DD(160,29,3)="Enter the date of death or approximate date."
^DD(160,29,21,0)="^^1^1^2930423^^^"
^DD(160,29,21,1,0)="RECORD THE DATE AND TIME OF DEATH."
^DD(160,29,23,0)="^^1^1^2930422"
^DD(160,29,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA and by UVSDEAD^ONCOCRFA."
^DD(160,29,"DT")="2960205"
^DD(160,29.1,0)="DOD^DCJ12^^ ; ^S X="""" D DOD^ONCOCRF"
^DD(160,29.1,9)="^"
^DD(160,29.1,9.01)=""
^DD(160,29.1,9.1)="S X="""" D DOD^ONCOCRF"
^DD(160,29.1,21,0)="^^1^1^2920526^"
^DD(160,29.1,21,1,0)="COMPUTED FIELD FOR DATE OF DEATH."
^DD(160,29.1,"DT")="2901102"
^DD(160,31,0)="PATH/AUTOPSY (GROSS & MICRO)^160.031^^4;0"
^DD(160,31,21,0)="^^2^2^2930423^^"
^DD(160,31,21,1,0)="FREE TEXT FIELD FOR ENTERING ANY SUPPORTING INFORMATION ON"
^DD(160,31,21,2,0)="THE PATHOLOGY AT AUTOPSY."
^DD(160,31,23,0)="^^1^1^2930423^"
^DD(160,31,23,1,0)="This field is referenced directly by UVSALIVE^ONCOCRFA."
^DD(160,31,"DT")="2900405"
^DD(160,32,0)="DESC^CXJ1,0^^ ; ^S X=$S($P($G(^ONCO(160,D0,2)),U,3)="""":0,1:1)"
^DD(160,32,9)="^"
^DD(160,32,9.01)=""
^DD(160,32,9.1)="CUSTOM CODED"
^DD(160,32,21,0)="^^1^1^2920526^"
^DD(160,32,21,1,0)="SUSPENSE COMPUTED FIELD."
^DD(160,32,"DT")="2920526"
^DD(160,33.1,0)="SUSPENSE ADMIT DATE^DCJ12^^ ; ^D SAD^ONCOCON"
^DD(160,33.1,9)="^"
^DD(160,33.1,9.01)=""
^DD(160,33.1,9.1)="D SAD^ONCOCON"
^DD(160,33.1,21,0)="^^1^1^2920527^^^"
^DD(160,33.1,21,1,0)="THIS RECORDS THE DATE THE PATIENT IS ADMITTED "
^DD(160,33.2,0)="SUSPENSE DISCHARGE DATE^DCJ12^^ ; ^D SDD^ONCOCON"
^DD(160,33.2,9)="^"
^DD(160,33.2,9.01)=""
^DD(160,33.2,9.1)="D SDD^ONCOCON"
^DD(160,33.2,21,0)="^^1^1^2920527^"
^DD(160,33.2,21,1,0)="THIS RECORDS THE DATE THE PATIENT IS DISCHARGED."
^DD(160,33.3,0)="SUSPENSE EPISODE OF CARE^CJ1^^ ; ^S X="""" D SEC^ONCOCON"
^DD(160,33.3,9)="^"
^DD(160,33.3,9.01)=""
^DD(160,33.3,9.1)="S X="""" D SEC^ONCOCON"
^DD(160,33.3,21,0)="^^1^1^2930819^"
^DD(160,33.3,21,1,0)="This field records the episode of care leading to this suspense entry."
^DD(160,33.6,0)="PRIORITY^NJ2,0^^0;9^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160,33.6,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(160,33.6,21,0)="^^1^1^2920527^"
^DD(160,33.6,21,1,0)="RECORDS PRECEDENCE STRUCTURE."
^DD(160,33.6,"DT")="2920127"
^DD(160,34,0)="LAST EPISODE of CARE^CJ1^^ ; ^S X="""" D LEC^ONCOCON"
^DD(160,34,9)="^"
^DD(160,34,9.01)=""
^DD(160,34,9.1)="S X="""" D LEC^ONCOCON"
^DD(160,34,21,0)="^^1^1^2930819^"
^DD(160,34,21,1,0)="This field records the last episode of care."
^DD(160,34.1,0)="LAST ADMIT DATE^DCJ12^^ ; ^D LAD^ONCOCON"
^DD(160,34.1,9)="^"
^DD(160,34.1,9.01)=""
^DD(160,34.1,9.1)="D LAD^ONCOCON"
^DD(160,34.1,21,0)="^^1^1^2920527^"
^DD(160,34.1,21,1,0)="COMPUTED DATE FOR LAST ADMISSION."
^DD(160,34.2,0)="LAST DISCHARGE DATE^DCJ12^^ ; ^D LDD^ONCOCON"
^DD(160,34.2,9)="^"
^DD(160,34.2,9.01)=""
^DD(160,34.2,9.1)="D LDD^ONCOCON"
^DD(160,34.2,21,0)="^^1^1^2920527^"
^DD(160,34.2,21,1,0)="COMPUTED FIELD FOR LAST DATE PATIENT WAS DISCHARGED."
^DD(160,36,0)="LOST TO FOLLOWUP^BCX^^ ; ^S Y(160,36,1)=$S($D(^ONCO(160,D0,1)):^(1),1:""""),X1=DT,X2=$P(Y(160,36,1),U,2) D:X2 ^%DTC:X1 S X=X>91.25 S:X $P(^ONCO(160,D0,1),U,7)=8"
^DD(160,36,9)="^"
^DD(160,36,9.01)="160^27"
^DD(160,36,9.1)="(TODAY-#27)>91.25"
^DD(160,36,21,0)="^^2^2^2920527^"
^DD(160,36,21,1,0)="COMPUTED FOR FOR PATIENTS THAT ARE LOST TO FOLLOW UP, OCCURS"
^DD(160,36,21,2,0)="WHEN THE PATIENTS LAST FOLLOW UP ATTEMPT/CONTACT IS OVER 15 MONTHS."
^DD(160,36,"DT")="2910809"
^DD(160,37,0)="MONTHS DELINQUENT^CJ8^^ ; ^S Y(160,37,1)=$S($D(^ONCO(160,D0,1)):^(1),1:""""),X1=DT,X2=$P(Y(160,37,1),U,2) D:X2 ^%DTC:X1 S X=$S(X>91.25:(X/30.4167),1:""""),X=$P(X,""."")"
^DD(160,37,9)="^"
^DD(160,37,9.01)=""
^DD(160,37,9.1)="S X="""""
^DD(160,37,21,0)="^^1^1^2920527^"
^DD(160,37,21,1,0)="COMPUTED FOR GIVEN TIME FRAME THE PATIENT FOLLOW UP IS DELINQUENT."
^DD(160,38,0)="TOBACCO HISTORY^*S^Y:Yes;N:No;U:Unknown;0:Never used;1:Cigarette smoker, current;2:Cigar/Pipe smoker, current;3:Snuff/Chew/Smokeless, current;4:Combination use, current;5:Previous use;9:Unknown;^8;2^Q"
^DD(160,38,3)=""
^DD(160,38,12)="Use codes 0-9 for patients accessed in 1999 or later.  Use codes Y, N and U for patients accessed prior to 1999."
^DD(160,38,12.1)="S DIC(""S"")=""D TAHIST^ONCOOT I ((ACDT=1999)&(NUM=1))!((ACDT=0)&(NUM=0))"""
^DD(160,38,21,0)="^^3^3^2990621^^^^"
^DD(160,38,21,1,0)=""
^DD(160,38,21,2,0)="Code the patient's past or current use of tobacco."
^DD(160,38,21,3,0)=""
^DD(160,38,"DT")="2990621"
^DD(160,39,0)="ALCOHOL HISTORY^*S^Y:Yes;N:No;U:Unknown;0:No history of alcohol use;1:Current use of alcohol;2:Past history of alcohol use;9:Alcohol usage unknown;^8;3^Q"
^DD(160,39,3)=""
^DD(160,39,4)=""
^DD(160,39,12)="Use codes 0-9 for patients accessed in 1999 or later.  Use codes Y, N and U for patients accessed prior to 1999."
^DD(160,39,12.1)="S DIC(""S"")=""D TAHIST^ONCOOT I ((ACDT=1999)&(NUM=1))!((ACDT=0)&(NUM=0))"""
^DD(160,39,21,0)="^^4^4^2990621^^^^"
^DD(160,39,21,1,0)=""
^DD(160,39,21,2,0)="Code the patient's past or current consumption of alcoholic beverages"
^DD(160,39,21,3,0)="including wine or beer."
^DD(160,39,21,4,0)=""
^DD(160,39,"DT")="2990621"
^DD(160,40,0)="TOBACCO USAGE^160.02SA^^5;0"
^DD(160,40,21,0)="^^1^1^2930930^^^"
^DD(160,40,21,1,0)="DESCRIBES PATIENT TOBACCO USE."
^DD(160,41,0)="ALCOHOL USAGE^160.041SA^^6;0"
^DD(160,41,21,0)="^^1^1^2930930^^^"
^DD(160,41,21,1,0)="DESCRIBES PATIENT ALCOHOL USE."
^DD(160,42,0)="OCCUPATION^160.042PA^^7;0"
^DD(160,42,21,0)="^.001^1^1^3020321^^^^"
^DD(160,42,21,1,0)="RECORDS THAT PATIENTS JOB/OCCUPATION."
^DD(160,43,0)="FAMILY HISTORY OF CANCER^S^0:No;1:Yes;9:Unknown;^8;1^Q"
^DD(160,43,21,0)="^.001^3^3^3020214^^^^"
^DD(160,43,21,1,0)=""
^DD(160,43,21,2,0)="FAMILY HISTORY OF CANCER records whether the patient has a family history of"
^DD(160,43,21,3,0)="any reportable malignancy."
^DD(160,43,"DT")="3020214"
^DD(160,44,0)="FAMILY MEMBER WITH CANCER^160.044SA^^9;0"
^DD(160,44,21,0)="^^1^1^2930930^^^"
^DD(160,44,21,1,0)="Multiple for family members with cancer."
^DD(160,45,0)="TODAY'S DATE^DC^^ ; ^D NOW^%DTC S Y=$P(%,""."") D DD^%DT S X=Y K Y"
^DD(160,45,9)="^"
^DD(160,45,9.01)=""
^DD(160,45,9.1)="TODAY"
^DD(160,45,21,0)="^^1^1^2920527^"
^DD(160,45,21,1,0)="TODAY IS... TODAY'S DATE."
^DD(160,45,"DT")="2920220"
^DD(160,46,0)="HISTORY-FOLLOWUP^CJ80^^ ; ^S X="""" D FHC^ONCODLF"
^DD(160,46,9)="^"
^DD(160,46,9.01)=""
^DD(160,46,9.1)="S X="""" D FHC^ONCODLF"
^DD(160,46,21,0)="^^1^1^2920527^"
^DD(160,46,21,1,0)="COMPUTES A REPORT OF THE PATIENTS FOLLOW UP HISTORY."
^DD(160,46,"DT")="2900811"
^DD(160,47,0)="EMPLOYMENT STATUS^CJ10^^ ; ^S X="""" D EMP^ONCOES"
^DD(160,47,9)="^"
^DD(160,47,9.01)=""
^DD(160,47,9.1)="S X="""" D EMP^ONCOES"
^DD(160,47,21,0)="^^1^1^2930819^"
^DD(160,47,21,1,0)="This field indicates the patient's employment status."
^DD(160,47,"DT")="2920716"
^DD(160,48,0)="AGENT ORANGE EXPOSURE^S^Y:Yes;N:No;U:Unknown;^0;10^Q"
^DD(160,48,9.1)="D AO^ONCOES"
^DD(160,48,21,0)="^^3^3^2980715^^^"
^DD(160,48,21,1,0)=""
^DD(160,48,21,2,0)="Record if the patient was exposed to Agent Orange."
^DD(160,48,21,3,0)=""
^DD(160,48,"DT")="2980701"
^DD(160,49,0)="ICD-O TOPOGRAPHY LIST^CJ30^^ ; ^D ONCPRI^ONCOCOM"
^DD(160,49,9)="^"
^DD(160,49,9.01)=""
^DD(160,49,9.1)="D ONCPRI^ONCOCOM"
^DD(160,49,21,0)="^.001^3^3^3010910^^^^"
^DD(160,49,21,1,0)="This field displays a list of the patient's ICD-O topographies.  It was"
^DD(160,49,21,2,0)="created for use by the PHYSICIAN DOT MATRIX and PHYSICIAN LASER PRINTER  "
^DD(160,49,21,3,0)="form letters in the FOLLOW-UP FORM LETTER file (165.1). "
^DD(160,49,"DT")="3010905"
^DD(160,50,0)="IONIZING RADIATION EXPOSURE^S^Y:Yes;N:No;U:Unknown;^0;11^Q"
^DD(160,50,9.1)="D IR^ONCOES"
^DD(160,50,21,0)="^^3^3^2980715^^"
^DD(160,50,21,1,0)=""
^DD(160,50,21,2,0)="Record if the patient was exposed to Ionizing Radiation."
^DD(160,50,21,3,0)=""
^DD(160,50,"DT")="2980701"
^DD(160,51,0)="PERSIAN GULF SERVICE^S^Y:Yes;N:No;U:Unknown;^0;12^Q"
^DD(160,51,9.1)="D PGS^ONCOES"
^DD(160,51,21,0)="^^3^3^2980715^^^"
^DD(160,51,21,1,0)=""
^DD(160,51,21,2,0)="Record if the patient served in the Persian Gulf War."
^DD(160,51,21,3,0)=""
^DD(160,51,"DT")="2980701"
^DD(160,52,0)="CHEMICAL EXPOSURE^S^Y:Yes;N:No;U:Unknown;^0;13^Q"
^DD(160,52,21,0)="^^3^3^2980715^"
^DD(160,52,21,1,0)=""
^DD(160,52,21,2,0)="Record if the patient was exposed to chemicals."
^DD(160,52,21,3,0)=""
^DD(160,52,"DT")="2980715"
^DD(160,53,0)="LAB CASEFINDING REPORT^CJ1^^ ; ^S X="""" D LAB^ONCOCOC"
^DD(160,53,9)="^"
^DD(160,53,9.01)=""
^DD(160,53,9.1)="S X="""" D LAB^ONCOCOC"
^DD(160,53,21,0)="^^2^2^2920527^"
^DD(160,53,21,1,0)="PRINTS A REPORT OF CASES FOUND THRU THE AUTOMATIC CASEFINDING"
^DD(160,53,21,2,0)="OPTION FOR LABORATORY."
^DD(160,53,"DT")="2920131"
^DD(160,54,0)="PTF CASEFINDING REPORT^CJ1^^ ; ^S X="""" D PTF^ONCOCOC"
^DD(160,54,9)="^"
^DD(160,54,9.01)=""
^DD(160,54,9.1)="S X="""" D PTF^ONCOCOC"
^DD(160,54,21,0)="^^2^2^2920527^"
^DD(160,54,21,1,0)="PRINTS A REPORT OF CASES FOUND THRU THE AUTOMATIC CASEFINDING"
^DD(160,54,21,2,0)="OPTION FOR THE MAS PATIENT TREATMENT FILE (PTF)."
^DD(160,55,0)="MIDDLE EAST SERVICE^S^Y:Yes;N:No;U:Unknown;^0;25^Q"
^DD(160,55,21,0)="^.001^1^1^3020718^^^"
^DD(160,55,21,1,0)="Record if the patient served in the Middle East."
^DD(160,55,"DT")="3020718"
^DD(160,56,0)="SOMALIA SERVICE^S^Y:Yes;N:No;U:Unknown;^0;26^Q"
^DD(160,56,21,0)="^^1^1^3020718^"
^DD(160,56,21,1,0)="Record if the patient served in Somalia."
^DD(160,56,"DT")="3020718"
^DD(160,58,0)="RADIOLOGY CASEFINDING REPORT^CJ1^^ ; ^S X="""" D RAD^ONCOCOC"
^DD(160,58,9)="^"
^DD(160,58,9.01)=""
^DD(160,58,9.1)="S X="""" D RAD^ONCOCOC"
^DD(160,58,21,0)="^^1^1^2920527^"
^DD(160,58,21,1,0)="REPORTS THE FINDINGS OF OPTION: RADIOLOGY CASEFINDING."
^DD(160,59,0)="NO PRIMARY^CJ1X^^ ; ^S X=$S($D(^ONCO(165.5,""C"",D0)):"""",1:1)"
^DD(160,59,9)="^"
^DD(160,59,9.01)=""
^DD(160,59,9.1)="S X=$S($D(^ONCO(165.5,""C"",DA)):"""",1:1)"
^DD(160,59,21,0)="^^2^2^2920527^"
^DD(160,59,21,1,0)="A COMPUTED FIELD STATING THAT THE PATIENT HAS NOT HAD A PRIMARY"
^DD(160,59,21,2,0)="TUMOR ENTERED INTO THE FILE."
^DD(160,59,"DT")="2920930"
^DD(160,60,0)="PID#^CJ5^^ ; ^S X="""" D PID0^ONCOCOM"
^DD(160,60,9)="^"
^DD(160,60,9.01)=""
^DD(160,60,9.1)="S X="""" D PID0^ONCOCOM"
^DD(160,60,21,0)="^^1^1^2920527^"
^DD(160,60,21,1,0)="COMPUTED FIELD FOR PATIENT IDENTIFICATION NUMBER."
^DD(160,61,0)="ASBESTOS EXPOSURE^S^Y:Yes;N:No;U:Unknown;^0;14^Q"
^DD(160,61,21,0)="^^3^3^2980715^"
^DD(160,61,21,1,0)=""
^DD(160,61,21,2,0)="Record if the patient was exposed to asbestos."
^DD(160,61,21,3,0)=""
^DD(160,61,"DT")="2980715"
^DD(160,70,0)="MULTIPLE TUMOR STATUS (DEATH)^CJ8^^ ; ^S X="""" D MTS^ONCOCOF"
^DD(160,70,9)="^"
^DD(160,70,9.01)=""
^DD(160,70,9.1)="S X="""" D MTS^ONCOCOF"
^DD(160,70,21,0)="^^2^2^3000103^^"
^DD(160,70,21,1,0)="This field allows for the display of all tumor statuses for expired"
^DD(160,70,21,2,0)="patients having multiple primaries."
^DD(160,70,"DT")="3000103"
^DD(160,75,0)="SUSPENSE^160.075DA^^SUS;0"
^DD(160,75,21,0)="^.001^4^4^3000810^^^^"
^DD(160,75,21,1,0)=""
^DD(160,75,21,2,0)="This multiple field stores the SUSPENSE data for each division"
^DD(160,75,21,3,0)="where the patient is on SUSPENSE."
^DD(160,75,21,4,0)=""
^DD(160,75,"DT")="3000523"
^DD(160,100,0)="SITE & DATE DX^CJ60^^ ; ^S X="""" D SDD^ONCOCOM"
^DD(160,100,9)="^"
^DD(160,100,9.01)=""
^DD(160,100,9.1)="S X="""" D SDD^ONCOCOM"
^DD(160,100,21,0)="^^1^1^2920527^"
^DD(160,100,21,1,0)="COMPUTED FIELD WITH VALUES OF SITE AND DATE OF DIAGNOSIS."
^DD(160,100,"DT")="2900622"
^DD(160,300,0)="DOCUMENT^160.05SA^^D;0"
^DD(160,300,21,0)="^^1^1^2930930^^"
^DD(160,300,21,1,0)="RECORDS SOURCE DOCUMENT."
^DD(160,400,0)="FOLLOW-UP^160.04IDA^^F;0"
^DD(160,400,10)=""
^DD(160,400,20,0)="^.3LA^^0"
^DD(160,400,20,1,0)="SEER"
^DD(160,400,20,2,0)="ACOS-REQUIRED"
^DD(160,400,21,0)="^.001^7^7^3030306^^^^"
^DD(160,400,21,1,0)=""
^DD(160,400,21,2,0)="FOLLOW-UP of cancer patients provides the following data needed for"
^DD(160,400,21,3,0)="survival analysis:  the vital status of the patient, the date the"
^DD(160,400,21,4,0)="vital status was determined, and the underlying cause of death, if the"
^DD(160,400,21,5,0)="person has died.  SEER requires that this information be updated annually"
^DD(160,400,21,6,0)="for living patients."
^DD(160,400,21,7,0)=""
^DD(160,410,0)="FOLLOW-UP ATTEMPTS^160.06DA^^A;0"
^DD(160,410,21,0)="^^1^1^2930930^^"
^DD(160,410,21,1,0)="RECORDS THE DATE AND TIME A FOLLOW UP ATTEMPT IS MADE."
^DD(160,420,0)="FOLLOW-UP CONTACT^160.03S^^C;0"
^DD(160,420,21,0)="^^1^1^2930930^^"
^DD(160,420,21,1,0)="RECORDS THE CONTACT TYPE FOR A FOLLOW UP ATTEMPT."
^DD(160,1000,0)="HOSPITAL NAME^CJ25^^ ; ^S X="""" D NM^ONCOCOF"
^DD(160,1000,9)="^"
^DD(160,1000,9.01)=""
^DD(160,1000,9.1)="S X="""" D NM^ONCOCOF"
^DD(160,1000,21,0)="^^1^1^2920527^"
^DD(160,1000,21,1,0)="THE NAME OF THE INSTITUTION RENDERING CARE."
^DD(160,1000,"DT")="2910630"
^DD(160,1000.1,0)="C. HOSPITAL NAME^CJ96^^ ; ^X $P(^DD(160,1000,0),U,5,99) S Y(160,1000.1,1)=X S X=Y(160,1000.1,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160,1000.1,9)="^"
^DD(160,1000.1,9.01)="160^1000"
^DD(160,1000.1,9.1)="CENTER(#1000)"
^DD(160,1000.1,21,0)="^^1^1^2920527^"
^DD(160,1000.1,21,1,0)="COMPUTED FIELD CENTERING THE INSTITUTION NAME."
^DD(160,1000.1,"DT")="2910630"
^DD(160,1001,0)="HOSPITAL STREET ADDRESS^CJ1^^ ; ^S X="""" D ADD^ONCOCOF"
^DD(160,1001,9)="^"
^DD(160,1001,9.01)=""
^DD(160,1001,9.1)="S X="""" D ADD^ONCOCOF"
^DD(160,1001,21,0)="^^1^1^2930819^"
^DD(160,1001,21,1,0)="This is the street address of the hospital."
^DD(160,1001,"DT")="2910716"
^DD(160,1001.1,0)="C. HOSPITAL STREET ADDRESS^CJ96^^ ; ^X $P(^DD(160,1001,0),U,5,99) S Y(160,1001.1,1)=X S X=Y(160,1001.1,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160,1001.1,9)="^"
^DD(160,1001.1,9.01)="160^1001"
^DD(160,1001.1,9.1)="CENTER(#1001)"
^DD(160,1001.1,21,0)="^^1^1^2930819^"
^DD(160,1001.1,21,1,0)="This is the hospital street address centered for display."
^DD(160,1002,0)="HOSPITAL CITY,ST ZIP^CJ1^^ ; ^S X="""" D ZIP^ONCOCOF"
^DD(160,1002,9)="^"
^DD(160,1002,9.01)=""
^DD(160,1002,9.1)="S X="""" D ZIP^ONCOCOF"
^DD(160,1002,21,0)="^^2^2^2920527^"
^DD(160,1002,21,1,0)="COMPUTED FIELD LISTING THE INSTITUTIONS' NAME, CITY, STATE"
^DD(160,1002,21,2,0)="AND ZIP CODE."
^DD(160,1002,"DT")="2910716"
^DD(160,1002.1,0)="C. HOSPITAL CITY,ST ZIP^CJ96^^ ; ^X $P(^DD(160,1002,0),U,5,99) S Y(160,1002.1,1)=X S X=Y(160,1002.1,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160,1002.1,9)="^"
^DD(160,1002.1,9.01)="160^1002"
^DD(160,1002.1,9.1)="CENTER(#1002)"
^DD(160,1002.1,21,0)="^^1^1^2930819^"
^DD(160,1002.1,21,1,0)="This is the city, state, and ZIP Code of the hospital centered for display."
^DD(160,1002.1,"DT")="2910630"
^DD(160,1003,0)="STATE HOSPITAL NUMBER^CJ1^^ ; ^S X=$P($G(^ONCO(160.1,^DD(""SITE"",1),1)),U,3)"
^DD(160,1003,9)="^"
^DD(160,1003,9.01)=""
^DD(160,1003,9.1)="S X=X"
^DD(160,1003,21,0)="^^2^2^2920527^"
^DD(160,1003,21,1,0)="RECORDS THE IDENTIFICATION NUMBER ASSIGNED TO THE INSTITUTION"
^DD(160,1003,21,2,0)="BY THE STATE."
^DD(160,1003,"DT")="2910716"
^DD(160,1004,0)="Tumor Registrar^CJ25^^ ; ^S X=$P($G(^ONCO(160.1,^DD(""SITE"",1),1)),U)"
^DD(160,1004,9)="^"
^DD(160,1004,9.01)=""
^DD(160,1004,9.1)="S X=X"
^DD(160,1004,21,0)="^^1^1^2920527^"
^DD(160,1004,21,1,0)="COMPUTED FIELD FOR THE NAME OF THE TUMOR REGISTRAR ACCESSIONING CASES."
^DD(160,1004,"DT")="2910829"
^DD(160,1004.5,0)="TR PHONE NUMBER^CJ20^^ ; ^S X=$P($G(^ONCO(160.1,^DD(""SITE"",1),1)),U,2)"
^DD(160,1004.5,9)="^"
^DD(160,1004.5,9.01)=""
^DD(160,1004.5,9.1)="S X=X"
^DD(160,1004.5,21,0)="^^1^1^2920527^"
^DD(160,1004.5,21,1,0)="THE TUMOR REGISTRARS TELEPHONE NUMBER."
^DD(160,1005,0)="CONVERTED^S^Y:YES;N:NO;^10;1^Q"
^DD(160,1005,21,0)="^^4^4^2960205^^"
^DD(160,1005,21,1,0)="If this field is ""YES"" it means that this Record has had the pointer in"
^DD(160,1005,21,2,0)="field 24.5 converted from a pointer to the ONCOLOGY CONTACT File (165) to"
^DD(160,1005,21,3,0)="a pointer to the new ACOS NUMBER file (160.19) already, and should not"
^DD(160,1005,21,4,0)="be converted."
^DD(160,1005,"DT")="2960202"
^DD(160,"B","AGENT ORANGE EXPOSURE",48)=""
^DD(160,"B","ALCOHOL HISTORY",39)=""
^DD(160,"B","ALCOHOL USAGE",41)=""
^DD(160,"B","ALIAS",1)=""
^DD(160,"B","ASBESTOS EXPOSURE",61)=""
^DD(160,"B","AUTOPSY",22.9)=""
^DD(160,"B","AUTOPSY #",24)=""
^DD(160,"B","AUTOPSY DATE/TIME",23)=""
^DD(160,"B","C'LASTNAME",.013)=""
^DD(160,"B","C. HOSPITAL CITY,ST ZIP",1002.1)=""
^DD(160,"B","C. HOSPITAL NAME",1000.1)=""
^DD(160,"B","C. HOSPITAL STREET ADDRESS",1001.1)=""
^DD(160,"B","CARE CENTER AT DEATH",24.5)=""
^DD(160,"B","CAUSE OF DEATH",19)=""
^DD(160,"B","CAUSE OF DEATH/CANCER",18.9)=""
^DD(160,"B","CENTRAL NO.",6)=""
^DD(160,"B","CHEMICAL EXPOSURE",52)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #1",25)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #10",25.9)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #2",25.1)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #3",25.2)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #4",25.3)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #5",25.4)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #6",25.5)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #7",25.6)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #8",25.7)=""
^DD(160,"B","COMORBIDITY/COMPLICATION #9",25.8)=""
^DD(160,"B","CONTACTS",.2)=""
^DD(160,"B","CONVERTED",1005)=""
^DD(160,"B","COUNTY",.117)=""
^DD(160,"B","CSSN",2.1)=""
^DD(160,"B","CTY",.12)=""
^DD(160,"B","CURRENT OCCUPATION",12)=""
^DD(160,"B","DATE LAST CONTACT",16)=""
^DD(160,"B","DATE OF BIRTH (FILEMAN FORMAT)",3.1)=""
^DD(160,"B","DATE@TIME OF DEATH",29)=""
^DD(160,"B","DESC",32)=""
^DD(160,"B","DOB",3)=""
^DD(160,"B","DOCUMENT",300)=""
^DD(160,"B","DOD",29.1)=""
^DD(160,"B","DUE FOLLOW-UP",27)=""
^DD(160,"B","EMPLOYMENT STATUS",47)=""
^DD(160,"B","FAMILY HISTORY OF CANCER",43)=""
^DD(160,"B","FAMILY MEMBER WITH CANCER",44)=""
^DD(160,"B","FIRST-LAST",.012)=""
^DD(160,"B","FOLLOW-UP",400)=""
^DD(160,"B","FOLLOW-UP ATTEMPTS",410)=""
^DD(160,"B","FOLLOW-UP CONTACT",420)=""
^DD(160,"B","FOLLOW-UP STATUS",15.2)=""
^DD(160,"B","HISTORY-FOLLOWUP",46)=""
^DD(160,"B","HOSPITAL CITY,ST ZIP",1002)=""
^DD(160,"B","HOSPITAL NAME",1000)=""
^DD(160,"B","HOSPITAL STREET ADDRESS",1001)=""
^DD(160,"B","ICD REVISION",20)=""
^DD(160,"B","ICD Revision for Death Code",20)="1"
^DD(160,"B","ICD-O TOPOGRAPHY LIST",49)=""
^DD(160,"B","IONIZING RADIATION EXPOSURE",50)=""
^DD(160,"B","LAB CASEFINDING REPORT",53)=""
^DD(160,"B","LAST ADMIT DATE",34.1)=""
^DD(160,"B","LAST DISCHARGE DATE",34.2)=""
^DD(160,"B","LAST EPISODE of CARE",34)=""
^DD(160,"B","LAST FOLLOW-UP CONTACT",15.1)=""
^DD(160,"B","LAST NAME",.011)=""
^DD(160,"B","LOST TO FOLLOWUP",36)=""
^DD(160,"B","LRDFN",11)=""
^DD(160,"B","MARITAL STATUS",14)=""
^DD(160,"B","MEDICAL RECORD NUMBER",4)=""
^DD(160,"B","MIDDLE EAST SERVICE",55)=""
^DD(160,"B","MIDDLE NAME",.015)=""
^DD(160,"B","MONTHS DELINQUENT",37)=""
^DD(160,"B","MULTIPLE TUMOR STATUS (DEATH)",70)=""
^DD(160,"B","NAME",.01)=""
^DD(160,"B","NO PRIMARY",59)=""
^DD(160,"B","NOK",.214)=""
^DD(160,"B","NOK-INFO",.21)=""
^DD(160,"B","NOK2-INFO",.211)=""
^DD(160,"B","OCCUPATION",42)=""
^DD(160,"B","PATH/AUTOPSY (GROSS & MICRO)",31)=""
^DD(160,"B","PATIENT ADDRESS - CURRENT",.119)=""
^DD(160,"B","PATIENT ADDRESS - CURRENT SUPP",.1191)=""
^DD(160,"B","PERSIAN GULF SERVICE",51)=""
^DD(160,"B","PID#",60)=""
^DD(160,"B","PLACE OF BIRTH",7)=""
^DD(160,"B","PLACE OF DEATH",21)=""
^DD(160,"B","PRIORITY",33.6)=""
^DD(160,"B","PTF CASEFINDING REPORT",54)=""
^DD(160,"B","Patient's full name",.01)="1"
^DD(160,"B","RACE 1",8)=""
^DD(160,"B","RACE 2",8.1)=""
^DD(160,"B","RACE 3",8.2)=""
^DD(160,"B","RACE 4",8.3)=""
^DD(160,"B","RACE 5",8.4)=""
^DD(160,"B","RADIOLOGY CASEFINDING REPORT",58)=""
^DD(160,"B","REGIONAL NO.",5)=""
^DD(160,"B","RELATIVE",.212)=""
^DD(160,"B","RELATIVE-2",.213)=""
^DD(160,"B","RELIGION",13)=""
^DD(160,"B","SALUTATION",.014)=""
^DD(160,"B","SEER Case Number",6)="1"
^DD(160,"B","SEX",10)=""
^DD(160,"B","SITE & DATE DX",100)=""
^DD(160,"B","SOMALIA SERVICE",56)=""
^DD(160,"B","SPANISH ORIGIN",9)=""
^DD(160,"B","SSN",2)=""
^DD(160,"B","STATE",.115)=""
^DD(160,"B","STATE DEATH CERT",19.1)=""
^DD(160,"B","STATE HOSPITAL NUMBER",1003)=""
^DD(160,"B","STATUS",15)=""
^DD(160,"B","STREET ADDRESS 1",.111)=""
^DD(160,"B","STREET ADDRESS 2",.112)=""
^DD(160,"B","STREET ADDRESS 3",.113)=""
^DD(160,"B","SUSPENSE",75)=""
^DD(160,"B","SUSPENSE ADMIT DATE",33.1)=""
^DD(160,"B","SUSPENSE DISCHARGE DATE",33.2)=""
^DD(160,"B","SUSPENSE EPISODE OF CARE",33.3)=""
^DD(160,"B","TELEPHONE",.131)=""
^DD(160,"B","TERMINAL DIGIT",4.1)=""
^DD(160,"B","TOBACCO HISTORY",38)=""
^DD(160,"B","TOBACCO USAGE",40)=""
^DD(160,"B","TODAY'S DATE",45)=""
^DD(160,"B","TOTAL PRIMARIES FOR PATIENT",17)=""
^DD(160,"B","TR PHONE NUMBER",1004.5)=""
^DD(160,"B","Tumor Registrar",1004)=""
^DD(160,"B","ZIP CODE",.116)=""
^DD(160,"B","ZIP-COUNTY",.118)=""
^DD(160,"GL",0,1,.01)=""
^DD(160,"GL",0,2,11)=""
^DD(160,"GL",0,3,5)=""
^DD(160,"GL",0,4,6)=""
^DD(160,"GL",0,5,7)=""
^DD(160,"GL",0,6,8)=""
^DD(160,"GL",0,7,9)=""
^DD(160,"GL",0,8,10)=""
^DD(160,"GL",0,9,33.6)=""
^DD(160,"GL",0,10,48)=""
^DD(160,"GL",0,11,50)=""
^DD(160,"GL",0,12,51)=""
^DD(160,"GL",0,13,52)=""
^DD(160,"GL",0,14,61)=""
^DD(160,"GL",0,15,8.1)=""
^DD(160,"GL",0,16,8.2)=""
^DD(160,"GL",0,17,8.3)=""
^DD(160,"GL",0,18,8.4)=""
^DD(160,"GL",0,19,25)=""
^DD(160,"GL",0,20,25.1)=""
^DD(160,"GL",0,21,25.2)=""
^DD(160,"GL",0,22,25.3)=""
^DD(160,"GL",0,23,25.4)=""
^DD(160,"GL",0,24,25.5)=""
^DD(160,"GL",0,25,55)=""
^DD(160,"GL",0,26,56)=""
^DD(160,"GL",0,28,25.6)=""
^DD(160,"GL",0,29,25.7)=""
^DD(160,"GL",0,30,25.8)=""
^DD(160,"GL",0,31,25.9)=""
^DD(160,"GL",1,1,15)=""
^DD(160,"GL",1,2,27)=""
^DD(160,"GL",1,3,19)=""
^DD(160,"GL",1,4,20)=""
^DD(160,"GL",1,5,21)=""
^DD(160,"GL",1,6,15.1)=""
^DD(160,"GL",1,7,15.2)=""
^DD(160,"GL",1,8,29)=""
^DD(160,"GL",1,9,23)=""
^DD(160,"GL",1,10,24)=""
^DD(160,"GL",1,11,24.5)=""
^DD(160,"GL",1,12,18.9)=""
^DD(160,"GL",1,13,22.9)=""
^DD(160,"GL",1,14,19.1)=""
^DD(160,"GL",4,0,31)=""
^DD(160,"GL",5,0,40)=""
^DD(160,"GL",6,0,41)=""
^DD(160,"GL",7,0,42)=""
^DD(160,"GL",8,1,43)=""
^DD(160,"GL",8,2,38)=""
^DD(160,"GL",8,3,39)=""
^DD(160,"GL",9,0,44)=""
^DD(160,"GL",10,1,1005)=""
^DD(160,"GL","A",0,410)=""
^DD(160,"GL","C",0,420)=""
^DD(160,"GL","D",0,300)=""
^DD(160,"GL","F",0,400)=""
^DD(160,"GL","SUS",0,75)=""
^DD(160,"GR","ACOS",7,2)=""
^DD(160,"GR","ACOS-RECOMMENDED",9,2)=""
^DD(160,"GR","ACOS-REQUIRED",.01,1)=""
^DD(160,"GR","ACOS-REQUIRED",400,2)=""
^DD(160,"GR","SEER",6,1)=""
^DD(160,"GR","SEER",7,1)=""
^DD(160,"GR","SEER",9,1)=""
^DD(160,"GR","SEER",19,1)=""
^DD(160,"GR","SEER",20,1)=""
^DD(160,"GR","SEER",400,1)=""
^DD(160,"IX",.01)=""
^DD(160,"IX",6)=""
^DD(160,"IX",15)=""
^DD(160,"IX",15.1)=""
^DD(160,"IX",15.2)=""
^DD(160,"IX",19)=""
^DD(160,"IX",27)=""
^DD(160,"RQ",.01)=""
^DD(160,"RQ",7)=""
^DD(160,"RQ",8)=""
^DD(160,"RQ",10)=""
^DD(160,"SB",160.02,40)=""
^DD(160,"SB",160.03,420)=""
^DD(160,"SB",160.031,31)=""
^DD(160,"SB",160.04,400)=""
^DD(160,"SB",160.041,41)=""
^DD(160,"SB",160.042,42)=""
^DD(160,"SB",160.044,44)=""
^DD(160,"SB",160.05,300)=""
^DD(160,"SB",160.06,410)=""
^DD(160,"SB",160.075,75)=""
^DD(160.01,0)="*CLINICAL DIAGNOSIS SUB-FIELD^^.01^1"
^DD(160.01,0,"NM","*CLINICAL DIAGNOSIS")=""
^DD(160.01,0,"UP")="160"
^DD(160.01,.01,0)="CLINICAL DIAGNOSES^W^^0;1^Q"
^DD(160.01,.01,21,0)="^^1^1^2930930^"
^DD(160.01,.01,21,1,0)="This field contains the patient's clinical diagnoses."
^DD(160.01,"B","CLINICAL DIAGNOSES",.01)=""
^DD(160.01,"GL",0,1,.01)=""
^DD(160.02,0)="TOBACCO USAGE SUB-FIELD^^2^3"
^DD(160.02,0,"NM","TOBACCO USAGE")=""
^DD(160.02,0,"UP")="160"
^DD(160.02,.01,0)="TYPE OF TOBACCO USER^MS^1:CIGARETTE;2:CIGARS;3:PIPE;4:CHEWING TOBACCO;5:SNUFF;6:MARIJUANA;7:MORE THAN 1 TYPE;8:UNKNOWN;^0;1^Q"
^DD(160.02,.01,1,0)="^.1^^0"
^DD(160.02,.01,21,0)="^^1^1^2930930^"
^DD(160.02,.01,21,1,0)="This is the code that describes the patient's tobacco use."
^DD(160.02,.01,"DT")="2900620"
^DD(160.02,1,0)="PACK-YEARS^NJ3,0XO^^0;2^S:X[""U"" X=""U"" Q:X=""U""  K:+X'=X!(X>400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.02,1,2)="S Y(0)=Y S:Y=""U"" Y=""Unknown"""
^DD(160.02,1,2.1)="S:Y=""U"" Y=""Unknown"""
^DD(160.02,1,3)="Enter the # of packs smoked per day times # of years, 0 to 400; or U for Unknown"
^DD(160.02,1,21,0)="^^2^2^2870918^"
^DD(160.02,1,21,1,0)="Enter the number of packs smoked per day times the number of years."
^DD(160.02,1,21,2,0)=" Example: 2 packs per day for 10 years equals 20 pack-years."
^DD(160.02,1,"DT")="2930827"
^DD(160.02,2,0)="YR QUIT TOBACCO USE^DXO^^0;3^S:X[""U"" X=""U"" Q:X=""U""  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160.02,2,2)="S Y(0)=Y S Y=$S(Y'=""U"":Y,1:""Unknown"") D:Y?1.N DD^%DT"
^DD(160.02,2,2.1)="S Y=$S(Y'=""U"":Y,1:""Unknown"") D:Y?1.N DD^%DT"
^DD(160.02,2,21,0)="^^1^1^2930930^"
^DD(160.02,2,21,1,0)="This is the year in which the patient quit using tobacco."
^DD(160.02,2,"DT")="2961219"
^DD(160.02,"B","PACK-YEARS",1)=""
^DD(160.02,"B","TYPE OF TOBACCO USER",.01)=""
^DD(160.02,"B","YR QUIT TOBACCO USE",2)=""
^DD(160.02,"GL",0,1,.01)=""
^DD(160.02,"GL",0,2,1)=""
^DD(160.02,"GL",0,3,2)=""
^DD(160.03,0)="FOLLOW-UP CONTACT SUB-FIELD^^1^2"
^DD(160.03,0,"DT")="2920719"
^DD(160.03,0,"IX","B",160.03,.01)=""
^DD(160.03,0,"NM","FOLLOW-UP CONTACT")=""
^DD(160.03,0,"UP")="160"
^DD(160.03,.01,0)="TYPE OF FOLLOW-UP CONTACT^S^PT:Patient;MD:Physician;NOK:Next of Kin;KIN:Other Kin;GR:Guardian;SO:Significant Other;FR:Friend;HOSP:Hospital;NH:Nursing Home;HP:Hospice;TR:Tumor Registrar;INST:Institution;OTH:Other;^0;1^Q"
^DD(160.03,.01,1,0)="^.1"
^DD(160.03,.01,1,1,0)="160.03^B"
^DD(160.03,.01,1,1,1)="S ^ONCO(160,DA(1),""C"",""B"",$E(X,1,30),DA)="""""
^DD(160.03,.01,1,1,2)="K ^ONCO(160,DA(1),""C"",""B"",$E(X,1,30),DA)"
^DD(160.03,.01,1,1,"DT")="2920305"
^DD(160.03,.01,3)="Enter the type of contact (use quotes to enter a second of one type, e.g. ""MD"")"
^DD(160.03,.01,4)="D TYP^ONCOFUM"
^DD(160.03,.01,21,0)="^^1^1^2930930^"
^DD(160.03,.01,21,1,0)="This is the type of follow-up contact."
^DD(160.03,.01,"DT")="2920719"
^DD(160.03,1,0)="CONTACT NAME^RP165^ONCO(165,^0;2^Q"
^DD(160.03,1,1,0)="^.1"
^DD(160.03,1,1,1,0)="160^ACP^MUMPS"
^DD(160.03,1,1,1,1)="S ^ONCO(165,""ACP"",X,DA(1))="""""
^DD(160.03,1,1,1,2)="K ^ONCO(165,""ACP"",X,DA(1))"
^DD(160.03,1,1,1,"%D",0)="^^3^3^2920609^^"
^DD(160.03,1,1,1,"%D",1,0)="Creates a list under Contact file of contact, patient relationship"
^DD(160.03,1,1,1,"%D",2,0)="originating from the Oncology patient contact multiple pointing to"
^DD(160.03,1,1,1,"%D",3,0)="the contact file."
^DD(160.03,1,1,1,"DT")="2920806"
^DD(160.03,1,1,2,0)="160^APC^MUMPS"
^DD(160.03,1,1,2,1)="S ^ONCO(165,""APC"",DA(1),X)="""""
^DD(160.03,1,1,2,2)="K ^ONCO(165,""APC"",DA(1),X)"
^DD(160.03,1,1,2,"%D",0)="^^2^2^2920609^^"
^DD(160.03,1,1,2,"%D",1,0)="This creates a list under the Contact file of patients, and associated"
^DD(160.03,1,1,2,"%D",2,0)="contacts as created under the contact multiple of Oncology patient file."
^DD(160.03,1,1,2,"DT")="2920607"
^DD(160.03,1,1,3,0)="160^AACP^MUMPS"
^DD(160.03,1,1,3,1)="S ^ONCO(160,""ACP"",X,DA(1))="""""
^DD(160.03,1,1,3,2)="K ^ONCO(160,""ACP"",X,DA(1))"
^DD(160.03,1,1,3,3)="DO NOT DELETE"
^DD(160.03,1,1,3,"%D",0)="^^1^1^2920721^"
^DD(160.03,1,1,3,"%D",1,0)="Creates follow-up list of contacts and patients followed."
^DD(160.03,1,1,3,"DT")="2920721"
^DD(160.03,1,1,4,0)="160^AAPC^MUMPS"
^DD(160.03,1,1,4,1)="S ^ONCO(160,""APC"",DA(1),X)="""""
^DD(160.03,1,1,4,2)="K ^ONCO(160,""APC"",DA(1),X)"
^DD(160.03,1,1,4,3)="DO NOT DELETE"
^DD(160.03,1,1,4,"%D",0)="^^1^1^2920721^"
^DD(160.03,1,1,4,"%D",1,0)="Creates a list of follow-up contacts for a particular patient."
^DD(160.03,1,1,4,"DT")="2920721"
^DD(160.03,1,3)="Enter the name of the follow-up contact"
^DD(160.03,1,4)="D NAM^ONCOFUM"
^DD(160.03,1,21,0)="^^1^1^2930930^"
^DD(160.03,1,21,1,0)="This is the name of the person or institution."
^DD(160.03,1,"DT")="2920806"
^DD(160.03,"B","CONTACT NAME",1)=""
^DD(160.03,"B","TYPE OF FOLLOW-UP CONTACT",.01)=""
^DD(160.03,"GL",0,1,.01)=""
^DD(160.03,"GL",0,2,1)=""
^DD(160.03,"IX",.01)=""
^DD(160.03,"IX",1)=""
^DD(160.03,"RQ",1)=""
^DD(160.031,0)="PATH/AUTOPSY (GROSS & MICRO) SUB-FIELD^^.01^1"
^DD(160.031,0,"NM","PATH/AUTOPSY (GROSS & MICRO)")=""
^DD(160.031,0,"UP")="160"
^DD(160.031,.01,0)="PATH/AUTOPSY (Gross & Micro)^WL^^0;1^Q"
^DD(160.031,.01,21,0)="^^1^1^2901109^^^"
^DD(160.031,.01,21,1,0)="Allows entry of Autopsy findings from Autopsy Report - both Gross and Micro."
^DD(160.031,.01,"DT")="2900917"
^DD(160.031,"B","PATH/AUTOPSY (Gross & Micro)",.01)=""
^DD(160.031,"GL",0,1,.01)=""
^DD(160.04,0)="FOLLOW-UP SUB-FIELD^^12^12"
^DD(160.04,0,"DT")="2930722"
^DD(160.04,0,"IX","AA",160.04,.01)=""
^DD(160.04,0,"IX","AC",160.04,1)=""
^DD(160.04,0,"IX","AD",160.04,6)=""
^DD(160.04,0,"IX","AE",160.04,.01)=""
^DD(160.04,0,"IX","B",160.04,.01)=""
^DD(160.04,0,"NM","FOLLOW-UP")=""
^DD(160.04,0,"UP")="160"
^DD(160.04,.01,0)="DATE OF LAST CONTACT OR DEATH^DXO^^0;1^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) I $D(X) S XX=$O(^ONCO(160,DA(1),""F"",""B"",X,0)) K:XX X K XX D:$D(X) DX^ONCOFTS"
^DD(160.04,.01,.1)=""
^DD(160.04,.01,1,0)="^.1"
^DD(160.04,.01,1,1,0)="160.04^AA^MUMPS"
^DD(160.04,.01,1,1,1)="D SLF^ONCOCRF ;TRIGGER DATE LAST CONTACT #16"
^DD(160.04,.01,1,1,2)="D KLF^ONCOCRF ;RESET DATE LAST CONTACT #16, STATUS #15, DATE OF DEATH #29"
^DD(160.04,.01,1,1,"%D",0)="^^1^1^2930909^"
^DD(160.04,.01,1,1,"%D",1,0)="Maintains the DATE OF LAST CONTACT, STATUS, and DATE OF DEATH fields."
^DD(160.04,.01,1,1,"DT")="2900608"
^DD(160.04,.01,1,2,0)="160.04^B"
^DD(160.04,.01,1,2,1)="S ^ONCO(160,DA(1),""F"",""B"",$E(X,1,30),DA)="""""
^DD(160.04,.01,1,2,2)="K ^ONCO(160,DA(1),""F"",""B"",$E(X,1,30),DA)"
^DD(160.04,.01,1,2,"%D",0)="^^1^1^2920930^"
^DD(160.04,.01,1,2,"%D",1,0)="Refular B cross-reference."
^DD(160.04,.01,1,2,"DT")="2920930"
^DD(160.04,.01,1,3,0)="160.04^AE^MUMPS"
^DD(160.04,.01,1,3,1)="Q"
^DD(160.04,.01,1,3,2)="D KTSM^ONCOFTS:$D(ONCOSTAT)"
^DD(160.04,.01,1,3,"%D",0)="^^3^3^2930505^^"
^DD(160.04,.01,1,3,"%D",1,0)="This cross-reference will kill the TUMOR STATUS entries on the ONCOLOGY"
^DD(160.04,.01,1,3,"%D",2,0)="PRIMARY File that correspond to this follow-up.  (Setting of these"
^DD(160.04,.01,1,3,"%D",3,0)="entries is done directly by a call to SETTS^ONCOU55 in routine ONCOAIS.)"
^DD(160.04,.01,1,3,"DT")="2930505"
^DD(160.04,.01,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(160.04,.01,2.1)="S X=Y D DATEOT^ONCOES"
^DD(160.04,.01,10)=""
^DD(160.04,.01,20,0)="^.3LA^^0"
^DD(160.04,.01,20,1,0)="SEER"
^DD(160.04,.01,20,2,0)="ACOS-REQUIRED"
^DD(160.04,.01,21,0)="^.001^5^5^3030211^^^^"
^DD(160.04,.01,21,1,0)=""
^DD(160.04,.01,21,2,0)="Records the date of last contact with the"
^DD(160.04,.01,21,3,0)="patient or the date of death."
^DD(160.04,.01,21,4,0)=""
^DD(160.04,.01,21,5,0)="For further information see FORDS page 199."
^DD(160.04,.01,"DT")="3051026"
^DD(160.04,1,0)="VITAL STATUS^RS^0:Dead;1:Alive;^0;2^Q"
^DD(160.04,1,.1)=""
^DD(160.04,1,1,0)="^.1^^-1"
^DD(160.04,1,1,1,0)="160.04^AC^MUMPS"
^DD(160.04,1,1,1,1)="D SVS^ONCOCRF ;TRIGGER STATUS #15, DATE OF DEATH #29"
^DD(160.04,1,1,1,2)="D KVS^ONCOCRF ;RESET STATUS #15, DATE OF DEATH #29"
^DD(160.04,1,1,1,"%D",0)="^^1^1^2991021^^"
^DD(160.04,1,1,1,"%D",1,0)="Maintains the STATUS and DATE OF DEATH Fields."
^DD(160.04,1,1,1,"DT")="2900608"
^DD(160.04,1,3)=""
^DD(160.04,1,10)=""
^DD(160.04,1,20,0)="^.3LA^^0"
^DD(160.04,1,20,1,0)="SEER"
^DD(160.04,1,20,2,0)="ACOS-REQUIRED"
^DD(160.04,1,21,0)="^.001^5^5^3030211^^^^"
^DD(160.04,1,21,1,0)=""
^DD(160.04,1,21,2,0)="Records the vital status of the patient as of the"
^DD(160.04,1,21,3,0)="date entered in DATE OF LAST CONTACT OR DEATH."
^DD(160.04,1,21,4,0)=""
^DD(160.04,1,21,5,0)="For further information see FORDS page 200."
^DD(160.04,1,"DT")="3030211"
^DD(160.04,3,0)="FOLLOW-UP SOURCE^RS^0:Reported hospitalization;1:Readmission;2:Physician;3:Patient;4:Department of Motor Vehicles;5:Medicare/Medicaid file;7:Death certificate;8:Other;9:Unknown;^0;4^Q"
^DD(160.04,3,.1)=""
^DD(160.04,3,4)="I X=""??"" S XQH=""ONCO FOLLOW-UP METHOD"" D EN^XQH"
^DD(160.04,3,10)=""
^DD(160.04,3,21,0)="^.001^5^5^3030211^^^^"
^DD(160.04,3,21,1,0)=""
^DD(160.04,3,21,2,0)="Records the source from which the latest"
^DD(160.04,3,21,3,0)="follow-up information was obtained."
^DD(160.04,3,21,4,0)=""
^DD(160.04,3,21,5,0)="For further information see FORDS page 203."
^DD(160.04,3,22)="ONCO FOLLOW-UP METHOD"
^DD(160.04,3,"DT")="3030211"
^DD(160.04,4,0)="QUALITY OF SURVIVAL^RS^0:Normal;1:Symptomatic & Ambulatory;2:More than 50% Ambulatory;3:Less than 50% Ambulatory;4:Bedridden;8:Not applicable, dead;9:Unknown or unspecified;^0;5^Q"
^DD(160.04,4,.1)="Quality of Survival"
^DD(160.04,4,20,0)="^.3LA^1^1"
^DD(160.04,4,20,1,0)="ACOS-RECOMMENDED"
^DD(160.04,4,21,0)="^^1^1^2930930^^"
^DD(160.04,4,21,1,0)="This is the code describing the patient's quality of survival."
^DD(160.04,4,"DT")="2890907"
^DD(160.04,5,0)="COMMENTS^160.45^^1;0"
^DD(160.04,5,21,0)="^^1^1^2930930^"
^DD(160.04,5,21,1,0)="This is a comment on the follow-up."
^DD(160.04,6,0)="NEXT FOLLOW-UP SOURCE^RS^0:Chart requisition;1:Physician letter;2:Contact letter;3:Phone call;4:Other hospital contact;5:Other, NOS;8:Foreign residents (not followed);9:Not followed;^0;6^Q"
^DD(160.04,6,1,0)="^.1"
^DD(160.04,6,1,1,0)="160.04^AD^MUMPS"
^DD(160.04,6,1,1,1)="D SDF^ONCOCRF"
^DD(160.04,6,1,1,2)="D KDF^ONCOCRF"
^DD(160.04,6,1,1,"%D",0)="^^1^1^2930910^^"
^DD(160.04,6,1,1,"%D",1,0)="Maintains the DUE FOLLOW-UP Field."
^DD(160.04,6,3)=""
^DD(160.04,6,4)=""
^DD(160.04,6,21,0)="^.001^4^4^3030306^^^^"
^DD(160.04,6,21,1,0)=""
^DD(160.04,6,21,2,0)="Identifies the method planned for the next follow-up,"
^DD(160.04,6,21,3,0)=""
^DD(160.04,6,21,4,0)="For further information see FORDS page 204."
^DD(160.04,6,"DT")="3030211"
^DD(160.04,7,0)="UNUSUAL FOLLOW-UP METHOD^S^0:1st unusual method;1:1st unusual method;2:2nd unusual method;^0;7^Q"
^DD(160.04,7,3)="Enter specially defined unusual method code."
^DD(160.04,7,21,0)="^^1^1^2930930^"
^DD(160.04,7,21,1,0)="This describes any follow-up method not in ordinary use."
^DD(160.04,7,22)="ONCO UNUSUAL FOLLOW-UP METHOD"
^DD(160.04,7,"DT")="2900322"
^DD(160.04,8,0)="ENTRY STATUS^S^1:COMPLETE;^0;8^Q"
^DD(160.04,8,21,0)="^^1^1^2930930^"
^DD(160.04,8,21,1,0)="This indicates whether entry is complete."
^DD(160.04,8,"DT")="2900324"
^DD(160.04,9,0)="MULTIPLE PRIMARY STATUS^CJ8^^ ; ^Q:$G(HSFLAG)  S X="""",FDAT=$P(^(0),U,1) D MTS^ONCOCOF K FDAT"
^DD(160.04,9,9)="^"
^DD(160.04,9,9.01)=""
^DD(160.04,9,9.1)="Q:$G(HSFLAG)  S X="""",FDAT=$P(^(0),U,1) D MTS^ONCOCOF K FDAT"
^DD(160.04,9,21,0)="^.001^1^1^3000822^^"
^DD(160.04,9,21,1,0)="This indicates whether there are multiple primaries for the patient."
^DD(160.04,9,"DT")="2930429"
^DD(160.04,10,0)="FOLLOWING REGISTRY^P160.19O^ONCO(160.19,^0;9^Q"
^DD(160.04,10,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ONCO(160.19,Y,0)),U,2)"
^DD(160.04,10,2.1)="I Y'="""" S Y=$P($G(^ONCO(160.19,Y,0)),U,2)"
^DD(160.04,10,21,0)="^.001^5^5^3030211^^^"
^DD(160.04,10,21,1,0)=""
^DD(160.04,10,21,2,0)="Records the facility identification number of the"
^DD(160.04,10,21,3,0)="registry responsible for following the patient."
^DD(160.04,10,21,4,0)=""
^DD(160.04,10,21,5,0)="For further information see FORDS page 202."
^DD(160.04,10,"DT")="2991209"
^DD(160.04,11,0)="REGISTRAR^P200'^VA(200,^0;10^Q"
^DD(160.04,11,21,0)="^^4^4^3000307^"
^DD(160.04,11,21,1,0)=""
^DD(160.04,11,21,2,0)="This field contains the name of the REGISTRAR who intially created this"
^DD(160.04,11,21,3,0)="FOLLOW-UP record."
^DD(160.04,11,21,4,0)=""
^DD(160.04,11,"DT")="3000307"
^DD(160.04,12,0)="DATE ENTERED^DO^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(160.04,12,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(160.04,12,2.1)="S X=Y D DATEOT^ONCOES"
^DD(160.04,12,21,0)="^^4^4^3000307^"
^DD(160.04,12,21,1,0)=""
^DD(160.04,12,21,2,0)="This field contains the date on which this FOLLOW-UP record was initially"
^DD(160.04,12,21,3,0)="entered."
^DD(160.04,12,21,4,0)=""
^DD(160.04,12,"DT")="3051026"
^DD(160.04,"B","COMMENTS",5)=""
^DD(160.04,"B","DATE ENTERED",12)=""
^DD(160.04,"B","DATE OF LAST CONTACT OR DEATH",.01)=""
^DD(160.04,"B","ENTRY STATUS",8)=""
^DD(160.04,"B","FOLLOW-UP SOURCE",3)=""
^DD(160.04,"B","FOLLOWING REGISTRY",10)=""
^DD(160.04,"B","MULTIPLE PRIMARY STATUS",9)=""
^DD(160.04,"B","NEXT FOLLOW-UP SOURCE",6)=""
^DD(160.04,"B","QUALITY OF SURVIVAL",4)=""
^DD(160.04,"B","Quality of Survival",4)="1"
^DD(160.04,"B","REGISTRAR",11)=""
^DD(160.04,"B","UNUSUAL FOLLOW-UP METHOD",7)=""
^DD(160.04,"B","VITAL STATUS",1)=""
^DD(160.04,"GL",0,1,.01)=""
^DD(160.04,"GL",0,2,1)=""
^DD(160.04,"GL",0,4,3)=""
^DD(160.04,"GL",0,5,4)=""
^DD(160.04,"GL",0,6,6)=""
^DD(160.04,"GL",0,7,7)=""
^DD(160.04,"GL",0,8,8)=""
^DD(160.04,"GL",0,9,10)=""
^DD(160.04,"GL",0,10,11)=""
^DD(160.04,"GL",0,11,12)=""
^DD(160.04,"GL",1,0,5)=""
^DD(160.04,"GR","ACOS-RECOMMENDED",4,1)=""
^DD(160.04,"GR","ACOS-REQUIRED",.01,2)=""
^DD(160.04,"GR","ACOS-REQUIRED",1,2)=""
^DD(160.04,"GR","SEER",.01,1)=""
^DD(160.04,"GR","SEER",1,1)=""
^DD(160.04,"IX",.01)=""
^DD(160.04,"IX",1)=""
^DD(160.04,"IX",6)=""
^DD(160.04,"RQ",1)=""
^DD(160.04,"RQ",3)=""
^DD(160.04,"RQ",4)=""
^DD(160.04,"RQ",6)=""
^DD(160.04,"SB",160.45,5)=""
^DD(160.041,0)="ALCOHOL USAGE SUB-FIELD^^3^4"
^DD(160.041,0,"DT")="2920106"
^DD(160.041,0,"NM","ALCOHOL USAGE")=""
^DD(160.041,0,"UP")="160"
^DD(160.041,.01,0)="TYPE OF ALCOHOL USER^MS^B:BEER;W:WINE;H:HARD LIQUOR;M:MODERATE/SOCIAL;S:SERIOUS/HEAVY;U:UNKNOWN;^0;1^Q"
^DD(160.041,.01,21,0)="^^2^2^2930930^"
^DD(160.041,.01,21,1,0)="This is a code indicating the kind or frequency of patient's alcohol"
^DD(160.041,.01,21,2,0)="consumption."
^DD(160.041,.01,"DT")="2920106"
^DD(160.041,1,0)="YRS OF ALCOHOL USE^NJ2,0XO^^0;2^S:X[""U"" X=""U"" Q:X=""U""  K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.041,1,2)="S Y(0)=Y S:Y=""U"" Y=""Unknown"""
^DD(160.041,1,2.1)="S:Y=""U"" Y=""Unknown"""
^DD(160.041,1,3)="Type a Number between 0 and 99, or ""U"",""Unk"" for Unknown"
^DD(160.041,1,21,0)="^^1^1^2930930^"
^DD(160.041,1,21,1,0)="This is the number of years that patient consumed alcohol."
^DD(160.041,1,"DT")="2920212"
^DD(160.041,2,0)="DRINKS PER DAY^NJ3,0XO^^0;3^S:X[""U"" X=""U"" Q:X=""U""  K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.041,2,2)="S Y(0)=Y S:Y=""U"" Y=""Unknown"""
^DD(160.041,2,2.1)="S:Y=""U"" Y=""Unknown"""
^DD(160.041,2,3)=" Enter amount of alcohol consumed per day in whiskey equivalents."
^DD(160.041,2,4)="I X=""??"" D ^ONCOHELP ;S XQH=""ONCO DRINKS/DAY"" D EN^XQH"
^DD(160.041,2,21,0)="^^1^1^2900405^^^^"
^DD(160.041,2,21,1,0)="Number of whiskey equivalents consumed per day."
^DD(160.041,2,23,0)="^^2^2^2900405^"
^DD(160.041,2,23,1,0)="This field allows for the entry of alcohol consumption in terms of whiskey"
^DD(160.041,2,23,2,0)="equivalents."
^DD(160.041,2,"DT")="2930827"
^DD(160.041,3,0)="YR QUIT DRINKING^DXO^^0;4^S:X[""U"" S=""U"" Q:X=""U""  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160.041,3,2)="S Y(0)=Y S Y=$S(Y=""U"":""Unknown"",1:Y) D:Y?1.N DD^%DT"
^DD(160.041,3,2.1)="S Y=$S(Y=""U"":""Unknown"",1:Y) D:Y?1.N DD^%DT"
^DD(160.041,3,21,0)="^^1^1^2930930^"
^DD(160.041,3,21,1,0)="This is the year in which patient stopped consuming alcohol, if applicable."
^DD(160.041,3,"DT")="2961219"
^DD(160.041,"B","DRINKS PER DAY",2)=""
^DD(160.041,"B","TYPE OF ALCOHOL USER",.01)=""
^DD(160.041,"B","YR QUIT DRINKING",3)=""
^DD(160.041,"B","YRS OF ALCOHOL USE",1)=""
^DD(160.041,"GL",0,1,.01)=""
^DD(160.041,"GL",0,2,1)=""
^DD(160.041,"GL",0,3,2)=""
^DD(160.041,"GL",0,4,3)=""
^DD(160.042,0)="OCCUPATION SUB-FIELD^^3^4"
^DD(160.042,0,"DT")="2920502"
^DD(160.042,0,"IX","B",160.042,.01)=""
^DD(160.042,0,"NM","OCCUPATION")=""
^DD(160.042,0,"UP")="160"
^DD(160.042,.01,0)="USUAL OCCUPATION^MP61.6^LAB(61.6,^0;1^Q"
^DD(160.042,.01,1,0)="^.1"
^DD(160.042,.01,1,1,0)="160.042^B"
^DD(160.042,.01,1,1,1)="S ^ONCO(160,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(160.042,.01,1,1,2)="K ^ONCO(160,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(160.042,.01,3)="Record the patient's usual occupation.  Do not record ""retired""."
^DD(160.042,.01,21,0)="^.001^8^8^3020321^^^"
^DD(160.042,.01,21,1,0)=""
^DD(160.042,.01,21,2,0)="Record the patient's usual occupation (that is, the kind of work performed"
^DD(160.042,.01,21,3,0)="during most of the patient's working life before diagnosis of this tumor)."
^DD(160.042,.01,21,4,0)="Do NOT record ""retired""."
^DD(160.042,.01,21,5,0)=""
^DD(160.042,.01,21,6,0)="If usual occupation is not available or is unknown, record the patient's"
^DD(160.042,.01,21,7,0)="current or most recent occupation or any known occupation."
^DD(160.042,.01,21,8,0)=""
^DD(160.042,.01,"DT")="3020321"
^DD(160.042,1,0)="YEARS IN OCCUPATION^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.042,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(160.042,1,21,0)="^^1^1^2871028^"
^DD(160.042,1,21,1,0)="Duration of employment in a given occupation in years."
^DD(160.042,1,"DT")="2870918"
^DD(160.042,2,0)="LAST DATE IN OCCUPATION^DX^^0;3^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160.042,2,21,0)="^^1^1^2871028^"
^DD(160.042,2,21,1,0)="Last date of employment in a given occupation."
^DD(160.042,2,"DT")="2961219"
^DD(160.042,3,0)="USUAL INDUSTRY^F^^0;4^K:$L(X)>40!($L(X)<3) X"
^DD(160.042,3,3)="Answer must be 3-40 characters in length."
^DD(160.042,3,21,0)="^.001^13^13^3000628^^^"
^DD(160.042,3,21,1,0)=""
^DD(160.042,3,21,2,0)="Record the primary type of activity carried on by the business/industry"
^DD(160.042,3,21,3,0)="where the patient was employed for the most number of years before"
^DD(160.042,3,21,4,0)="diagnosis of this tumor."
^DD(160.042,3,21,5,0)=""
^DD(160.042,3,21,6,0)="If the primary activity carried on at the location where the patient"
^DD(160.042,3,21,7,0)="worked is unknown, it may be sufficient to record the name of the"
^DD(160.042,3,21,8,0)="company (with city and town) for which the patient performed his/her"
^DD(160.042,3,21,9,0)="usual occupation."
^DD(160.042,3,21,10,0)=""
^DD(160.042,3,21,11,0)="If current or most recent occupation, rather than usual occupation was"
^DD(160.042,3,21,12,0)="recorded, record the patient's current or most recent business/industry."
^DD(160.042,3,21,13,0)=""
^DD(160.042,3,"DT")="3000628"
^DD(160.042,"B","LAST DATE IN OCCUPATION",2)=""
^DD(160.042,"B","USUAL INDUSTRY",3)=""
^DD(160.042,"B","USUAL OCCUPATION",.01)=""
^DD(160.042,"B","YEARS IN OCCUPATION",1)=""
^DD(160.042,"GL",0,1,.01)=""
^DD(160.042,"GL",0,2,1)=""
^DD(160.042,"GL",0,3,2)=""
^DD(160.042,"GL",0,4,3)=""
^DD(160.042,"IX",.01)=""
^DD(160.044,0)="FAMILY MEMBER WITH CANCER SUB-FIELD^^1^2"
^DD(160.044,0,"NM","FAMILY MEMBER WITH CANCER")=""
^DD(160.044,0,"UP")="160"
^DD(160.044,.01,0)="FAMILY MEMBER WITH CANCER^MS^F:FATHER;M:MOTHER;B:BROTHER;S:SISTER;U:UNCLE;A:AUNT;NI:NIECE;NE:NEPHEW;D:DISTANT RELATION;I:IN-LAWS;H:HUSBAND;W:WIFE;C:CHILD;N:NOT KNOWN;GM:GRANDMOTHER;GF:GRANDFATHER;^0;1^Q"
^DD(160.044,.01,21,0)="^^1^1^2930930^^"
^DD(160.044,.01,21,1,0)="Family member with cancer."
^DD(160.044,.01,"DT")="2900131"
^DD(160.044,1,0)="CANCER^P164.4'^ONCO(164.4,^0;2^Q"
^DD(160.044,1,21,0)="^.001^2^2^3020318^^"
^DD(160.044,1,21,1,0)="This is the location of the family member's cancer, from the COMMON"
^DD(160.044,1,21,2,0)="CANCERS File."
^DD(160.044,1,"DT")="3020318"
^DD(160.044,"B","CANCER",1)=""
^DD(160.044,"B","FAMILY MEMBER WITH CANCER",.01)=""
^DD(160.044,"GL",0,1,.01)=""
^DD(160.044,"GL",0,2,1)=""
^DD(160.05,0)="DOCUMENT SUB-FIELD^^3^4"
^DD(160.05,0,"NM","DOCUMENT")=""
^DD(160.05,0,"UP")="160"
^DD(160.05,.01,0)="DOCUMENT^MS^0:Operative report;1:Chemotherapy record;2:Radiotherapy summary;3:Pathology report;4:Hospital summary;5:Death certificate;6:Autopsy report;7:Medical record;8:Special;^0;1^Q"
^DD(160.05,.01,21,0)="^^1^1^2930930^"
^DD(160.05,.01,21,1,0)="This is the code indicating the kind of source document."
^DD(160.05,.01,"DT")="2871028"
^DD(160.05,1,0)="HOSPITAL^P4'^DIC(4,^0;2^Q"
^DD(160.05,1,21,0)="^^1^1^2930930^"
^DD(160.05,1,21,1,0)="This is the institution providing the source document."
^DD(160.05,1,"DT")="2880712"
^DD(160.05,2,0)="STATUS^S^0:Not obtained;1:Request;2:Pending;3:Obtained;^0;3^Q"
^DD(160.05,2,21,0)="^^1^1^2930930^"
^DD(160.05,2,21,1,0)="This indicates whether the document has been requested and/or obtained."
^DD(160.05,2,"DT")="2871028"
^DD(160.05,3,0)="TEXT^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(160.05,3,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(160.05,3,21,0)="^^1^1^2930930^"
^DD(160.05,3,21,1,0)="This is a free text comment."
^DD(160.05,3,"DT")="2871028"
^DD(160.05,"B","DOCUMENT",.01)=""
^DD(160.05,"B","HOSPITAL",1)=""
^DD(160.05,"B","STATUS",2)=""
^DD(160.05,"B","TEXT",3)=""
^DD(160.05,"GL",0,1,.01)=""
^DD(160.05,"GL",0,2,1)=""
^DD(160.05,"GL",0,3,2)=""
^DD(160.05,"GL",0,4,3)=""
^DD(160.06,0)="FOLLOW-UP ATTEMPTS SUB-FIELD^^6^7"
^DD(160.06,0,"DT")="2920506"
^DD(160.06,0,"IX","AC",160.06,.01)=""
^DD(160.06,0,"IX","ALF",160.06,3)=""
^DD(160.06,0,"NM","FOLLOW-UP ATTEMPTS")=""
^DD(160.06,0,"UP")="160"
^DD(160.06,.01,0)="FOLLOW-UP ATTEMPT DATE^DX^^0;1^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160.06,.01,1,0)="^.1"
^DD(160.06,.01,1,1,0)="160.06^AC^MUMPS"
^DD(160.06,.01,1,1,1)="S X=9999999-X,^ONCO(160,DA(1),""A"",""AC"",X,DA)="""""
^DD(160.06,.01,1,1,2)="S X=9999999-X K ^ONCO(160,DA(1),""A"",""AC"",X,DA)"
^DD(160.06,.01,1,1,"%D",0)="^^1^1^2930909"
^DD(160.06,.01,1,1,"%D",1,0)="Indexes file by FOLLOW-UP ATTEMPT DATE."
^DD(160.06,.01,21,0)="^^1^1^2930930^"
^DD(160.06,.01,21,1,0)="This is the date and time on which a follow-up was attempted."
^DD(160.06,.01,"DT")="2961219"
^DD(160.06,1,0)="TYPE^S^1:Chart Review;2:Phone Contact;3:Letter Contact;8:Other;^0;2^Q"
^DD(160.06,1,3)="How will you be obtaining follow-up information?"
^DD(160.06,1,21,0)="^^1^1^2930930^"
^DD(160.06,1,21,1,0)="This is the code indicating how follow-up information will be obtained."
^DD(160.06,1,"DT")="2880307"
^DD(160.06,2,0)="THE CONTACT^RP165^ONCO(165,^0;3^Q"
^DD(160.06,2,1,0)="^.1"
^DD(160.06,2,1,1,0)="160^AE^MUMPS"
^DD(160.06,2,1,1,1)="S ^ONCO(160,""AE"",X,DA(1))="""""
^DD(160.06,2,1,1,2)="K ^ONCO(160,""AE"",X,DA(1))"
^DD(160.06,2,1,1,"%D",0)="^^1^1^2990507^"
^DD(160.06,2,1,1,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(160.06,2,1,1,"DT")="2990507"
^DD(160.06,2,3)="The contacts on file for this patient are:"
^DD(160.06,2,4)="D HP^ONCOFLF"
^DD(160.06,2,21,0)="^^1^1^2930930^"
^DD(160.06,2,21,1,0)="This is the person or institution with whom follow-up will be attempted."
^DD(160.06,2,"DT")="2990507"
^DD(160.06,3,0)="RESULT^S^1:Successful;2:Unsuccessful;8:Pending;9:Unknown;^0;4^Q"
^DD(160.06,3,1,0)="^.1"
^DD(160.06,3,1,1,0)="160.06^ALF^MUMPS"
^DD(160.06,3,1,1,1)="D SLC^ONCOCRA"
^DD(160.06,3,1,1,2)="D KLC^ONCOCRA"
^DD(160.06,3,1,1,"%D",0)="^^1^1^2930910^^"
^DD(160.06,3,1,1,"%D",1,0)="Maintains last followup contact."
^DD(160.06,3,1,1,"DT")="2920222"
^DD(160.06,3,21,0)="^^1^1^2930930^"
^DD(160.06,3,21,1,0)="This indicates whether the follow-up attempt was successful."
^DD(160.06,3,"DT")="2920222"
^DD(160.06,4,0)="REMARKS^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(160.06,4,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(160.06,4,21,0)="^^1^1^2930930^"
^DD(160.06,4,21,1,0)="This is a free text comment."
^DD(160.06,4,"DT")="2871223"
^DD(160.06,5,0)="ENTRY STATUS^S^1:COMPLETE;^0;6^Q"
^DD(160.06,5,21,0)="^^1^1^2930930^"
^DD(160.06,5,21,1,0)="This indicates whether the follow-up attempt was completed."
^DD(160.06,5,"DT")="2920106"
^DD(160.06,6,0)="LETTER TYPE^*P165.1^ONCO(165.1,^0;7^D S^ONCOFUP D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(160.06,6,3)="Specifiy Dot Matix/Laser Format"
^DD(160.06,6,12)="Appropriate letter for Contact"
^DD(160.06,6,12.1)="D S^ONCOFUP"
^DD(160.06,6,21,0)="^^1^1^2930930^"
^DD(160.06,6,21,1,0)="This is the type of follow-up letter to be generated."
^DD(160.06,6,"DT")="2920504"
^DD(160.06,"B","ENTRY STATUS",5)=""
^DD(160.06,"B","FOLLOW-UP ATTEMPT DATE",.01)=""
^DD(160.06,"B","LETTER TYPE",6)=""
^DD(160.06,"B","REMARKS",4)=""
^DD(160.06,"B","RESULT",3)=""
^DD(160.06,"B","THE CONTACT",2)=""
^DD(160.06,"B","TYPE",1)=""
^DD(160.06,"GL",0,1,.01)=""
^DD(160.06,"GL",0,2,1)=""
^DD(160.06,"GL",0,3,2)=""
^DD(160.06,"GL",0,4,3)=""
^DD(160.06,"GL",0,5,4)=""
^DD(160.06,"GL",0,6,5)=""
^DD(160.06,"GL",0,7,6)=""
^DD(160.06,"IX",.01)=""
^DD(160.06,"IX",2)=""
^DD(160.06,"IX",3)=""
^DD(160.06,"RQ",2)=""
^DD(160.075,0)="SUSPENSE SUB-FIELD^^13^14"
^DD(160.075,0,"DT")="3000810"
^DD(160.075,0,"IX","B",160.075,.01)=""
^DD(160.075,0,"IX","C",160.075,3)=""
^DD(160.075,0,"NM","SUSPENSE")=""
^DD(160.075,0,"UP")="160"
^DD(160.075,.01,0)="SUSPENSE DATE^DX^^0;1^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160.075,.01,1,0)="^.1"
^DD(160.075,.01,1,1,0)="160.075^B"
^DD(160.075,.01,1,1,1)="S ^ONCO(160,DA(1),""SUS"",""B"",$E(X,1,30),DA)="""""
^DD(160.075,.01,1,1,2)="K ^ONCO(160,DA(1),""SUS"",""B"",$E(X,1,30),DA)"
^DD(160.075,.01,1,2,0)="160^ADX"
^DD(160.075,.01,1,2,1)="S ^ONCO(160,""ADX"",$E(X,1,30),DA(1),DA)="""""
^DD(160.075,.01,1,2,2)="K ^ONCO(160,""ADX"",$E(X,1,30),DA(1),DA)"
^DD(160.075,.01,1,2,3)="DO NOT DELETE"
^DD(160.075,.01,1,2,"%D",0)="^^3^3^3000523^"
^DD(160.075,.01,1,2,"%D",1,0)=""
^DD(160.075,.01,1,2,"%D",2,0)="This is a REGULAR cross-reference by SUSPENSE DATE multiple on the WHOLE FILE."
^DD(160.075,.01,1,2,"%D",3,0)=""
^DD(160.075,.01,1,2,"DT")="3000523"
^DD(160.075,.01,1,3,0)="^^TRIGGER^160.075^12"
^DD(160.075,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ONCO(160,D0,""SUS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X,1,5)_0_0 S:'X X="""" X ^DD(160.075,.01,1,3,1.4)"
^DD(160.075,.01,1,3,1.4)="S DIH=$G(^ONCO(160,DIV(0),""SUS"",DIV(1),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=160.075,DIG=12 D ^DICR"
^DD(160.075,.01,1,3,2)="Q"
^DD(160.075,.01,1,3,"CREATE VALUE")="MONTH(SUSPENSE DATE)"
^DD(160.075,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(160.075,.01,1,3,"DT")="3000810"
^DD(160.075,.01,1,3,"FIELD")="SUSPENSE MONTH"
^DD(160.075,.01,3)=""
^DD(160.075,.01,21,0)="^.001^4^4^3000809^^^^"
^DD(160.075,.01,21,1,0)=""
^DD(160.075,.01,21,2,0)="SUSPENSE DATE is the date the patient is entered into the system or "
^DD(160.075,.01,21,3,0)="identified as a possible 'case' to be registered in the Tumor Registry.  "
^DD(160.075,.01,21,4,0)=""
^DD(160.075,.01,"DT")="3000810"
^DD(160.075,1,0)="DATE ENTERED^DOX^^0;2^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160.075,1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(160.075,1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(160.075,1,21,0)="^^3^3^3000509^"
^DD(160.075,1,21,1,0)="All cases other than in-situs of the cervix uteri must be followed"
^DD(160.075,1,21,2,0)="annually.  If information on persons with an in-situ of the cervix"
^DD(160.075,1,21,3,0)="uteri is received, the follow-up information should be updated."
^DD(160.075,1,"DT")="3000518"
^DD(160.075,2,0)="SOURCE^S^LS:SURGICAL PATHOLOGY;LC:CYTOPATHOLOGY;LE:ELECTRON MICROSCOPY;LA:AUTOPSY;PT:PTF FILE;RA:RADIOLOGY;SE:MANUAL ENTRY;^0;3^Q"
^DD(160.075,2,1,0)="^.1"
^DD(160.075,2,1,1,0)="160^D"
^DD(160.075,2,1,1,1)="S ^ONCO(160,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(160.075,2,1,1,2)="K ^ONCO(160,""D"",$E(X,1,30),DA(1),DA)"
^DD(160.075,2,1,1,"%D",0)="^.101^3^3^3000518^^"
^DD(160.075,2,1,1,"%D",1,0)=""
^DD(160.075,2,1,1,"%D",2,0)="This is a REGULAR cross reference by SOURCE multiple on the WHOLE FILE."
^DD(160.075,2,1,1,"%D",3,0)=""
^DD(160.075,2,1,1,"DT")="3000518"
^DD(160.075,2,21,0)="^^1^1^3000509^"
^DD(160.075,2,21,1,0)="Record the SOURCE of the suspense entry."
^DD(160.075,2,"DT")="3000518"
^DD(160.075,3,0)="DIVISION^*P4'X^DIC(4,^0;4^S DIC(""S"")=""I $D(^ONCO(160.1,""""C"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$D(^ONCO(160,DA(1),""SUS"",""C"",X)) W !!,""This patient is already on suspense for "",$P(^DIC(4,X,0),U,1),! K X"
^DD(160.075,3,1,0)="^.1"
^DD(160.075,3,1,1,0)="160.075^C"
^DD(160.075,3,1,1,1)="S ^ONCO(160,DA(1),""SUS"",""C"",$E(X,1,30),DA)="""""
^DD(160.075,3,1,1,2)="K ^ONCO(160,DA(1),""SUS"",""C"",$E(X,1,30),DA)"
^DD(160.075,3,1,1,"DT")="3000523"
^DD(160.075,3,3)=""
^DD(160.075,3,12)=""
^DD(160.075,3,12.1)="S DIC(""S"")=""I $D(^ONCO(160.1,""""C"""",Y))"""
^DD(160.075,3,21,0)="^.001^11^11^3000718^^^^"
^DD(160.075,3,21,1,0)=""
^DD(160.075,3,21,2,0)="When a patient is in 'suspense', DIVISION identifies the facility"
^DD(160.075,3,21,3,0)="which is responsible for analyzing this case for entry into the"
^DD(160.075,3,21,4,0)="registry."
^DD(160.075,3,21,5,0)=""
^DD(160.075,3,21,6,0)="When a patient is not in 'suspense', DIVISION is blank."
^DD(160.075,3,21,7,0)=""
^DD(160.075,3,21,8,0)="NOTE: This field is for 'suspense' purposes only.  It does NOT"
^DD(160.075,3,21,9,0)="      indicate the overall ownership of the patient's record by a"
^DD(160.075,3,21,10,0)="      particular facility."
^DD(160.075,3,21,11,0)=""
^DD(160.075,3,"DT")="3000718"
^DD(160.075,4,0)="LAB MORPHOLOGY^P61.1'^LAB(61.1,^0;5^Q"
^DD(160.075,4,21,0)="^^3^3^3000510^"
^DD(160.075,4,21,1,0)=""
^DD(160.075,4,21,2,0)="Pointer to the file containing the MORPHOLOGY codes for pathology."
^DD(160.075,4,21,3,0)=""
^DD(160.075,4,"DT")="3000510"
^DD(160.075,5,0)="ORGAN/TISSUE^P61'^LAB(61,^0;6^Q"
^DD(160.075,5,21,0)="^^3^3^3000510^"
^DD(160.075,5,21,1,0)=""
^DD(160.075,5,21,2,0)="Pointer to describe the type of tissue or organic material being diagnosed."
^DD(160.075,5,21,3,0)=""
^DD(160.075,5,"DT")="3000510"
^DD(160.075,6,0)="RADIOLOGICAL PROCEDURE^P71'^RAMIS(71,^0;7^Q"
^DD(160.075,6,21,0)="^^4^4^3000510^"
^DD(160.075,6,21,1,0)=""
^DD(160.075,6,21,2,0)="Points to the RAD/NUC MED PROCEDURES file (#71) to record the radiology"
^DD(160.075,6,21,3,0)="procedures codes."
^DD(160.075,6,21,4,0)=""
^DD(160.075,6,"DT")="3000510"
^DD(160.075,7,0)="PTF DISCHARGE^DX^^0;8^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(160.075,7,21,0)="^^3^3^3000510^"
^DD(160.075,7,21,1,0)=""
^DD(160.075,7,21,2,0)="Records the date/time a (PTF) patient is discharged."
^DD(160.075,7,21,3,0)=""
^DD(160.075,7,"DT")="3000518"
^DD(160.075,8,0)="ICD9^P80'^ICD9(^0;9^Q"
^DD(160.075,8,21,0)="^^5^5^3000510^"
^DD(160.075,8,21,1,0)=""
^DD(160.075,8,21,2,0)="This field is a pointer to the ICD DIAGNOSIS file (#80) which"
^DD(160.075,8,21,3,0)="contains a listing of the International Classification of"
^DD(160.075,8,21,4,0)="Diseases (ICD) codes, clinical modification, 9th revision."
^DD(160.075,8,21,5,0)=""
^DD(160.075,8,"DT")="3000510"
^DD(160.075,9,0)="PTF CODE^S^1:1;^0;10^Q"
^DD(160.075,9,21,0)="^^3^3^3000510^"
^DD(160.075,9,21,1,0)=""
^DD(160.075,9,21,2,0)="Diagnosis codes for patient discharged from active hospitalization."
^DD(160.075,9,21,3,0)=""
^DD(160.075,9,"DT")="3000510"
^DD(160.075,10,0)="ICDO MORPHOLOGY CODE^P164.1'^ONCO(164.1,^0;11^Q"
^DD(160.075,10,21,0)="^^5^5^3000510^"
^DD(160.075,10,21,1,0)=""
^DD(160.075,10,21,2,0)="Pointer to the ICDO MORPHOLOGY file (#164.1) which contains the"
^DD(160.075,10,21,3,0)="morphology/histology codes in the International Calssification of"
^DD(160.075,10,21,4,0)="Diseases (ICD) for Oncology, 2nd edition, 1990."
^DD(160.075,10,21,5,0)=""
^DD(160.075,10,"DT")="3000510"
^DD(160.075,11,0)="TEST TIME^NJ14,6^^0;12^K:+X'=X!(X>9999999.999999)!(X<.999999)!(X?.E1"".""7N.N) X"
^DD(160.075,11,3)="Type a Number between .999999 and 9999999.999999, 6 Decimal Digits"
^DD(160.075,11,21,0)="^^3^3^3000510^"
^DD(160.075,11,21,1,0)=""
^DD(160.075,11,21,2,0)="Records the time a test was performed."
^DD(160.075,11,21,3,0)=""
^DD(160.075,11,"DT")="3000510"
^DD(160.075,12,0)="SUSPENSE MONTH^D^^0;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(160.075,12,5,1,0)="160.075^.01^3"
^DD(160.075,12,21,0)="^.001^3^3^3000810^^"
^DD(160.075,12,21,1,0)=""
^DD(160.075,12,21,2,0)="SUSPENSE MONTH is the month and year of the SUSPENSE DATE."
^DD(160.075,12,21,3,0)=""
^DD(160.075,12,"DT")="3000810"
^DD(160.075,13,0)="DISEASE CODE^P61.4'^LAB(61.4,^0;14^Q"
^DD(160.075,13,21,0)="^^2^2^3020329^"
^DD(160.075,13,21,1,0)="Some LAB casefinding cases will be found not in the LAB Morphology (61.1)"
^DD(160.075,13,21,2,0)="file but in the LAB Disease Field (61.4) file."
^DD(160.075,13,"DT")="3020329"
^DD(160.075,"B","DATE ENTERED",1)=""
^DD(160.075,"B","DISEASE CODE",13)=""
^DD(160.075,"B","DIVISION",3)=""
^DD(160.075,"B","ICD9",8)=""
^DD(160.075,"B","ICDO MORPHOLOGY CODE",10)=""
^DD(160.075,"B","LAB MORPHOLOGY",4)=""
^DD(160.075,"B","ORGAN/TISSUE",5)=""
^DD(160.075,"B","PTF CODE",9)=""
^DD(160.075,"B","PTF DISCHARGE",7)=""
^DD(160.075,"B","RADIOLOGICAL PROCEDURE",6)=""
^DD(160.075,"B","SOURCE",2)=""
^DD(160.075,"B","SUSPENSE DATE",.01)=""
^DD(160.075,"B","SUSPENSE MONTH",12)=""
^DD(160.075,"B","TEST TIME",11)=""
^DD(160.075,"GL",0,1,.01)=""
^DD(160.075,"GL",0,2,1)=""
^DD(160.075,"GL",0,3,2)=""
^DD(160.075,"GL",0,4,3)=""
^DD(160.075,"GL",0,5,4)=""
^DD(160.075,"GL",0,6,5)=""
^DD(160.075,"GL",0,7,6)=""
^DD(160.075,"GL",0,8,7)=""
^DD(160.075,"GL",0,9,8)=""
^DD(160.075,"GL",0,10,9)=""
^DD(160.075,"GL",0,11,10)=""
^DD(160.075,"GL",0,12,11)=""
^DD(160.075,"GL",0,13,12)=""
^DD(160.075,"GL",0,14,13)=""
^DD(160.075,"IX",.01)=""
^DD(160.075,"IX",2)=""
^DD(160.075,"IX",3)=""
^DD(160.1,0)="FIELD^^58^65"
^DD(160.1,0,"DDA")="N"
^DD(160.1,0,"DT")="2991220"
^DD(160.1,0,"ID",6)="D DIVID^ONCODSP"
^DD(160.1,0,"IX","AB",160.1,2)=""
^DD(160.1,0,"IX","AD",160.18,.01)=""
^DD(160.1,0,"IX","AJ",160.1,31)=""
^DD(160.1,0,"IX","AS",160.1,1.03)=""
^DD(160.1,0,"IX","B",160.1,.01)=""
^DD(160.1,0,"IX","C",160.1,6)=""
^DD(160.1,0,"NM","ONCOLOGY SITE PARAMETERS")=""
^DD(160.1,0,"VER")="2.0"
^DD(160.1,0,"VR")="2.11"
^DD(160.1,0,"VRPK")="ONC"
^DD(160.1,.01,0)="HOSPITAL NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(160.1,.01,1,0)="^.1"
^DD(160.1,.01,1,1,0)="160.1^B"
^DD(160.1,.01,1,1,1)="S ^ONCO(160.1,""B"",$E(X,1,30),DA)="""""
^DD(160.1,.01,1,1,2)="K ^ONCO(160.1,""B"",X)"
^DD(160.1,.01,3)="Answer must be 3-50 characters in length."
^DD(160.1,.01,21,0)="^.001^3^3^3000505^^^^"
^DD(160.1,.01,21,1,0)=""
^DD(160.1,.01,21,2,0)="This field describes the name of this set of ONCOLOGY SITE PARAMETERS."
^DD(160.1,.01,21,3,0)=""
^DD(160.1,.01,"DT")="2920221"
^DD(160.1,.011,0)="C. HOSPITAL NAME^CJ96^^ ; ^X ^DD(160.1,.011,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160.1,.011,9)="^"
^DD(160.1,.011,9.01)="160.1^.01"
^DD(160.1,.011,9.1)="CENTER(#.01)"
^DD(160.1,.011,9.2)="S Y(160.1,.011,1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"""") S X=$P(Y(160.1,.011,1),U,1)"
^DD(160.1,.011,21,0)="^^1^1^2920528^"
^DD(160.1,.011,21,1,0)="THE HOSPITAL NAME CENTERED FOR PRINTING ON THE FORM FOLLOW UP LETTERS."
^DD(160.1,.02,0)="STREET ADDRESS^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(160.1,.02,3)="Answer must be 3-30 characters in length."
^DD(160.1,.02,21,0)="^^1^1^2930819^"
^DD(160.1,.02,21,1,0)="This is the street address of the site."
^DD(160.1,.02,"DT")="2910630"
^DD(160.1,.021,0)="C. STREET ADDRESS^CJ96^^ ; ^X ^DD(160.1,.021,9.2) S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160.1,.021,9)="^"
^DD(160.1,.021,9.01)="160.1^.02"
^DD(160.1,.021,9.1)="CENTER(#.02)"
^DD(160.1,.021,9.2)="S Y(160.1,.021,1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"""") S X=$P(Y(160.1,.021,1),U,2)"
^DD(160.1,.021,21,0)="^^1^1^2930819^"
^DD(160.1,.021,21,1,0)="This is the street address of the site, centered for display."
^DD(160.1,.03,0)="ZIPCODE^P5.11'^VIC(5.11,^0;3^Q"
^DD(160.1,.03,21,0)="^^1^1^2920528^"
^DD(160.1,.03,21,1,0)="POINTER TO A FILE CONTAINING THE ZIP CODE AND CITY COMBINATION."
^DD(160.1,.03,"DT")="2910630"
^DD(160.1,.031,0)="CITY,ST ZIP^CJ30^^ ; ^S X="""" D ZIP^ONCOCOF"
^DD(160.1,.031,9)="^"
^DD(160.1,.031,9.01)=""
^DD(160.1,.031,9.1)="S X="""" D ZIP^ONCOCOF"
^DD(160.1,.031,21,0)="^^1^1^2920528^"
^DD(160.1,.031,21,1,0)="RECORDS THE CITY NAME, STATE AND ZIP CODE."
^DD(160.1,.032,0)="C. CITY,ST ZIP^CJ96^^ ; ^X $P(^DD(160.1,.031,0),U,5,99) S Y(160.1,.032,1)=X S X=Y(160.1,.032,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160.1,.032,9)="^"
^DD(160.1,.032,9.01)="160.1^.031"
^DD(160.1,.032,9.1)="CENTER(#.031)"
^DD(160.1,.032,21,0)="^^1^1^2930819^"
^DD(160.1,.032,21,1,0)="This is the city, state, and ZIP Code of the site, centered for display."
^DD(160.1,.04,0)="TR REFERENCE DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(160.1,.04,21,0)="^^3^3^2920528^^"
^DD(160.1,.04,21,1,0)="RECORDS THE REFERENCE DATE FOR THE REGISTRY.  THIS DATE IS LISTED"
^DD(160.1,.04,21,2,0)="AS THE FIRST DAY OF THE FIRST MONTH OF THE YEAR THE REGISTRY FIRST"
^DD(160.1,.04,21,3,0)="STARTS KEEPING DATA."
^DD(160.1,.04,"DT")="2910630"
^DD(160.1,.041,0)="YEARS OF REGISTRY^CJ96^^ ; ^X ^DD(160.1,.041,9.2) S Y(160.1,.041,3)=X,X=DT S X=X S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S Y=X,X=Y(160.1,.041,2),X=X S X=X_Y"
^DD(160.1,.041,9)="^"
^DD(160.1,.041,9.01)="160.1^.04"
^DD(160.1,.041,9.1)="NUMDATE(#.04)_"" - ""_NUMDATE(TODAY)"
^DD(160.1,.041,9.2)="S Y(160.1,.041,1)=$S($D(^ONCO(160.1,D0,0)):^(0),1:"""") S X=$P(Y(160.1,.041,1),U,4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3) S X=X_"" - "",Y(160.1,.041,2)=X"
^DD(160.1,.041,21,0)="^^2^2^2920528^"
^DD(160.1,.041,21,1,0)="RECORDS THE YEARS IN A RANGE FROM THE DATE THE REGISTRY WAS STARTED"
^DD(160.1,.041,21,2,0)="TO THE CURRENT DATE."
^DD(160.1,.041,"DT")="2910630"
^DD(160.1,1,0)="TUMOR REGISTRAR^RF^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(160.1,1,3)="Answer must be 3-30 characters in length."
^DD(160.1,1,21,0)="^^1^1^2920528^"
^DD(160.1,1,21,1,0)="RECORDS THE NAME OF THE TUMOR REGISTRAR."
^DD(160.1,1,"DT")="2920709"
^DD(160.1,1.01,0)="C. TUMOR REGISTRAR^CJ96^^ ; ^X $P(^DD(160.1,1.011,0),U,5,99) S Y(160.1,1.01,1)=X S X=Y(160.1,1.01,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160.1,1.01,9)="^"
^DD(160.1,1.01,9.01)="160.1^1.011"
^DD(160.1,1.01,9.1)="CENTER(#1.011)"
^DD(160.1,1.01,9.2)="S Y(160.1,1.01,1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"""") S X=""Tumor Registrar: ""_$P(Y(160.1,1.01,1),U,1)"
^DD(160.1,1.01,21,0)="^^1^1^2930819^"
^DD(160.1,1.01,21,1,0)="This is the name of the tumor registrar, centered for display."
^DD(160.1,1.01,"DT")="2910630"
^DD(160.1,1.011,0)="TITLE-TR^CJ47^^ ; ^S Y(160.1,1.011,1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:"""") S X=""Tumor Registrar: ""_$P(Y(160.1,1.011,1),U,1)"
^DD(160.1,1.011,9)="^"
^DD(160.1,1.011,9.01)="160.1^1"
^DD(160.1,1.011,9.1)="""Tumor Registrar: ""_#1"
^DD(160.1,1.011,21,0)="^^1^1^2920528^"
^DD(160.1,1.011,21,1,0)="RECORDS ANY TITLE OR CERTIFICATION THAT THE REGISTRAR MAY POSSESS."
^DD(160.1,1.011,"DT")="2910630"
^DD(160.1,1.0111,0)="C. TITLE TR^CJ96^^ ; ^X $P(^DD(160.1,1.01,0),U,5,99) S Y(160.1,1.0111,1)=X S X=Y(160.1,1.0111,1),X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD(160.1,1.0111,9)="^"
^DD(160.1,1.0111,9.01)="160.1^1.01"
^DD(160.1,1.0111,9.1)="CENTER(#1.01)"
^DD(160.1,1.0111,21,0)="^^1^1^2930819^"
^DD(160.1,1.0111,21,1,0)="This is the title of the tumor registrar, centered for display."
^DD(160.1,1.02,0)="PHONE NUMBER^F^^1;2^K:$L(X)>20!($L(X)<8) X"
^DD(160.1,1.02,3)="Answer must be 8-20 characters in length."
^DD(160.1,1.02,21,0)="^^1^1^2920528^"
^DD(160.1,1.02,21,1,0)="RECORDS THE TUMOR REGISTRAR'S TELEPHONE NUMBER."
^DD(160.1,1.02,"DT")="2910829"
^DD(160.1,1.03,0)="STATE HOSPITAL NUMBER^F^^1;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X"
^DD(160.1,1.03,1,0)="^.1^^0"
^DD(160.1,1.03,1,1,0)="160.1^AS^MUMPS"
^DD(160.1,1.03,1,1,1)="S ^ONCO(160.1,""AS"")=X"
^DD(160.1,1.03,1,1,2)="K ^ONCO(160.1,""AS"")"
^DD(160.1,1.03,1,1,3)="DO NOT DELETE"
^DD(160.1,1.03,1,1,"%D",0)="^^1^1^2920712^"
^DD(160.1,1.03,1,1,"%D",1,0)="State Hospital number used in state reporting."
^DD(160.1,1.03,1,1,"DT")="2920712"
^DD(160.1,1.03,3)="Answer must be 3-10 characters in length."
^DD(160.1,1.03,21,0)="^^4^4^2991110^^"
^DD(160.1,1.03,21,1,0)=""
^DD(160.1,1.03,21,2,0)="STATE HOSPITAL NUMBER is the number assigned by the state to the reporting"
^DD(160.1,1.03,21,3,0)="institution."
^DD(160.1,1.03,21,4,0)=""
^DD(160.1,1.03,"DT")="2991103"
^DD(160.1,2,0)="BASAL CELL INDICATOR^S^Y:Yes - Eliminate Basal Cells;N:No - DO NOT Eliminate Basal Cells;^2;1^Q"
^DD(160.1,2,1,0)="^.1^^0"
^DD(160.1,2,1,1,0)="160.1^AB^MUMPS"
^DD(160.1,2,1,1,1)="S ^ONCO(160.1,""AB"")=X"
^DD(160.1,2,1,1,2)="K ^ONCO(160.1,""AB"")"
^DD(160.1,2,1,1,3)="DO NOT DELETE"
^DD(160.1,2,1,1,"%D",0)="^^1^1^2920709^^"
^DD(160.1,2,1,1,"%D",1,0)="Cross reference for Basal Cell indicator for lab search."
^DD(160.1,2,1,1,"DT")="2920229"
^DD(160.1,2,3)="Do you want Basal Cells eliminated from laboratory casefinding?"
^DD(160.1,2,21,0)="^^2^2^2960320^^^^"
^DD(160.1,2,21,1,0)="This field indicates whether the registry will eliminate basal cell"
^DD(160.1,2,21,2,0)="carcinoma cases from the laboratory pathology searches."
^DD(160.1,2,"DT")="2991102"
^DD(160.1,3,0)="GOVERNMENT AGENCY^160.13P^^3;0"
^DD(160.1,3,21,0)="^^2^2^2950301^^^^"
^DD(160.1,3,21,1,0)="Records the name of the government institution that may provide"
^DD(160.1,3,21,2,0)="follow up information."
^DD(160.1,3,"DT")="2920229"
^DD(160.1,4,0)="LABORATORY CASEFINDING DATE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(160.1,4,21,0)="^.001^3^3^3020920^^"
^DD(160.1,4,21,1,0)="LABORATORY CASEFINDIND DATE is the ""Start Date"" value from the previous"
^DD(160.1,4,21,2,0)="""Automatic Casefinding-Lab Search"" to be used as a ""Start Date"" default"
^DD(160.1,4,21,3,0)="for the next search. "
^DD(160.1,4,"DT")="3020919"
^DD(160.1,5,0)="AUTHORIZED QA USER^160.18P^^QAU;0"
^DD(160.1,5,21,0)="^.001^3^3^3000426^^^^"
^DD(160.1,5,21,1,0)=""
^DD(160.1,5,21,2,0)="The users authorized to produce QA reports."
^DD(160.1,5,21,3,0)=""
^DD(160.1,6,0)="DIVISION^RP4'X^DIC(4,^1;8^N OSP,OSPIEN I $D(^ONCO(160.1,""C"",X)) S OSPIEN=$O(^ONCO(160.1,""C"",X,0)) Q:OSPIEN=DA  S OSP=$P(^ONCO(160.1,OSPIEN,0),U,1) W !!?2,""Already used by "",OSP,! K X"
^DD(160.1,6,1,0)="^.1"
^DD(160.1,6,1,1,0)="160.1^C"
^DD(160.1,6,1,1,1)="S ^ONCO(160.1,""C"",$E(X,1,30),DA)="""""
^DD(160.1,6,1,1,2)="K ^ONCO(160.1,""C"",$E(X,1,30),DA)"
^DD(160.1,6,1,1,"%D",0)="^^1^1^2990924^"
^DD(160.1,6,1,1,"%D",1,0)="This cross-reference allows lookup by DIVISION."
^DD(160.1,6,1,1,"DT")="2990924"
^DD(160.1,6,3)=""
^DD(160.1,6,21,0)="^^3^3^2990927^^^^"
^DD(160.1,6,21,1,0)=""
^DD(160.1,6,21,2,0)="Select the INSTITUTION that is associated with this set of site parameters."
^DD(160.1,6,21,3,0)=""
^DD(160.1,6,"DT")="2991101"
^DD(160.1,7,0)="VISN^NJ2,0^^1;7^K:+X'=X!(X>23)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.1,7,3)="Type a Number between 1 and 23, 0 Decimal Digits"
^DD(160.1,7,21,0)="^.001^3^3^3030206^^"
^DD(160.1,7,21,1,0)=""
^DD(160.1,7,21,2,0)="VISN is the VISN number for this tumor registry."
^DD(160.1,7,21,3,0)=""
^DD(160.1,7,"DT")="3030206"
^DD(160.1,8,0)="AFFILIATED DIVISION^160.22P^^6;0"
^DD(160.1,8,"DT")="2991220"
^DD(160.1,9,0)="STATION NUMBER^CJ8^^ ; ^X ^DD(160.1,9,9.2) S Y(160.1,9,101)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(Y(160.1,9,101),U,1) S D0=Y(160.1,9,80)"
^DD(160.1,9,9)="^"
^DD(160.1,9,9.01)="4^99;160.1^6"
^DD(160.1,9,9.1)="DIVISION:STATION NUMBER"
^DD(160.1,9,9.2)="S Y(160.1,9,80)=$S($D(D0):D0,1:""""),Y(160.1,9,1)=$S($D(^ONCO(160.1,D0,1)):^(1),1:""""),D0=$P(Y(160.1,9,1),U,8) S:'$D(^DIC(4,+D0,0)) D0=-1"
^DD(160.1,10,0)="RADIOLOGY CASEFINDING DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(160.1,10,21,0)="^^3^3^3020919^"
^DD(160.1,10,21,1,0)="RADIOLOGY CASEFINDIND DATE is the ""Start Date"" value from the previous"
^DD(160.1,10,21,2,0)="""Automatic Casefinding-Radiology Search"" to be used as a ""Start Date"""
^DD(160.1,10,21,3,0)="default for the next search. "
^DD(160.1,10,"DT")="3020919"
^DD(160.1,11,0)="START DATE^RD^^QA;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(160.1,11,3)="Entered by program"
^DD(160.1,11,21,0)="^^1^1^2920528^"
^DD(160.1,11,21,1,0)="FREE TEXT FOR IDENTIFYING ADDITIONAL CONTACTS."
^DD(160.1,11,"DT")="2920709"
^DD(160.1,12,0)="END DATE^RD^^QA;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(160.1,12,3)="Set by program"
^DD(160.1,12,21,0)="^^1^1^2920528^"
^DD(160.1,12,21,1,0)="FREE TEXT FOR IDENTIFYING ADDITIONAL CONTACTS."
^DD(160.1,12,"DT")="2920709"
^DD(160.1,13,0)="TOTAL CASES^NJ3,0^^QA;3^K:+X'=X!(X>500)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.1,13,3)="Type a Number between 1 and 500, 0 Decimal Digits"
^DD(160.1,13,21,0)="^^1^1^2920528^"
^DD(160.1,13,21,1,0)="FREE TEXT FOR IDENTIFYING ADDITIONAL CONTACTS."
^DD(160.1,13,"DT")="2920709"
^DD(160.1,14,0)="ID1^F^^QA;4^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,14,3)="Answer must be 5 characters in length."
^DD(160.1,14,21,0)="^^1^1^2920528^"
^DD(160.1,14,21,1,0)="FREE TEXT FIELD FOR IDENTIFYING ADDITIONAL CONTACTS."
^DD(160.1,14,"DT")="2920709"
^DD(160.1,15,0)="ID2^F^^QA;5^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,15,3)="Answer must be 5 characters in length."
^DD(160.1,15,21,0)="^^1^1^2920528^"
^DD(160.1,15,21,1,0)="FREE TEXT FIELD FOR IDENTIFYING ADDITIONAL CONTACTS."
^DD(160.1,15,"DT")="2920709"
^DD(160.1,16,0)="ID3^F^^QA;6^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,16,3)="Answer must be 5 characters in length."
^DD(160.1,16,21,0)="^^1^1^2920528^"
^DD(160.1,16,21,1,0)="FREE TEXT FIELD FOR IDENTIFYING ADDITIONAL CONTACTS."
^DD(160.1,16,"DT")="2920709"
^DD(160.1,17,0)="ID4^F^^QA;7^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,17,3)="Answer must be 5 characters in length."
^DD(160.1,17,21,0)="^^1^1^2920528^"
^DD(160.1,17,21,1,0)="REPORTS THE SUM OF ALL CASES IN THE REGISTRY."
^DD(160.1,17,"DT")="2920709"
^DD(160.1,18,0)="PTF CASEFINDING DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(160.1,18,21,0)="^.001^3^3^3020920^^"
^DD(160.1,18,21,1,0)="PTF CASEFINDING DATE is the ""Start Date"" value from the previous"
^DD(160.1,18,21,2,0)="""Automatic Casefinding-PTF Search"" to be used as a ""Start Date"""
^DD(160.1,18,21,3,0)="default for the next search. "
^DD(160.1,18,"DT")="3020919"
^DD(160.1,19,0)="COLLABORATIVE STAGING URL^F^^CS;1^K:$L(X)>160!($L(X)<1) X"
^DD(160.1,19,3)="Answer must be 1-160 characters in length."
^DD(160.1,19,21,0)="^.001^2^2^3040401^^^"
^DD(160.1,19,21,1,0)="This field contains the URL address for the Collaborative Staging "
^DD(160.1,19,21,2,0)="computer algorithms."
^DD(160.1,19,"DT")="3040401"
^DD(160.1,20,0)="NEG-REPORT^F^^10;1^K:$L(X)>30!($L(X)<3) X"
^DD(160.1,20,3)="Answer must be 3-30 characters in length."
^DD(160.1,20,21,0)="^^2^2^2920528^"
^DD(160.1,20,21,1,0)="REPORTS NEGATIVE CASEFINDING REPORT WHEN NO CASES ARE FOUND OR"
^DD(160.1,20,21,2,0)="ADDED TO THE REGISTRY SUSPENSE LIST FROM AUTOMATIC CASEFINDING."
^DD(160.1,20,"DT")="2920524"
^DD(160.1,21,0)="ID5^F^^QA;8^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,21,3)="Answer must be 5 characters in length."
^DD(160.1,21,21,0)="^^1^1^2930819^"
^DD(160.1,21,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,21,"DT")="2920711"
^DD(160.1,22,0)="ID6^F^^QA;9^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,22,3)="Answer must be 5 characters in length."
^DD(160.1,22,21,0)="^^1^1^2930819^"
^DD(160.1,22,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,22,"DT")="2920709"
^DD(160.1,23,0)="ID7^F^^QA;10^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,23,3)="Answer must be 5 characters in length."
^DD(160.1,23,21,0)="^^1^1^2930819^"
^DD(160.1,23,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,23,"DT")="2920709"
^DD(160.1,24,0)="ID8^F^^QA;11^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,24,3)="Answer must be 5 characters in length."
^DD(160.1,24,21,0)="^^1^1^2930819^"
^DD(160.1,24,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,24,"DT")="2920709"
^DD(160.1,25,0)="ID9^F^^QA;12^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,25,3)="Answer must be 5 characters in length."
^DD(160.1,25,21,0)="^^1^1^2930819^"
^DD(160.1,25,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,25,"DT")="2920709"
^DD(160.1,26,0)="ID10^F^^QA;13^K:$L(X)>5!($L(X)<5) X"
^DD(160.1,26,3)="Answer must be 5 characters in length."
^DD(160.1,26,21,0)="^^1^1^2930819^"
^DD(160.1,26,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,26,"DT")="2920709"
^DD(160.1,27,0)="INSTITUTION ID NUMBER^P160.19'^ONCO(160.19,^1;4^Q"
^DD(160.1,27,1,0)="^.1^^0"
^DD(160.1,27,3)=""
^DD(160.1,27,21,0)="^.001^7^7^3000927^^^^"
^DD(160.1,27,21,1,0)=""
^DD(160.1,27,21,2,0)="Use the INSTITUTION ID NUMBER assigned by the Cancer Department of the"
^DD(160.1,27,21,3,0)="American College of Surgeons.  Each institution's identification number"
^DD(160.1,27,21,4,0)="is unique.  "
^DD(160.1,27,21,5,0)=""
^DD(160.1,27,21,6,0)="For further information see ROADS page 37."
^DD(160.1,27,21,7,0)=""
^DD(160.1,27,"DT")="2991103"
^DD(160.1,28,0)="CENTRAL REGISTRY #^NJ4,0^^1;5^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.1,28,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(160.1,28,21,0)="^^1^1^2930819^"
^DD(160.1,28,21,1,0)="This is a code number assigned by a central registry."
^DD(160.1,28,"DT")="2920708"
^DD(160.1,30,0)="CLINICAL INDICATOR^160.11^^4;0"
^DD(160.1,30,21,0)="^^1^1^2950301^^"
^DD(160.1,30,21,1,0)="These are the clinical indicators used by this site."
^DD(160.1,30,"DT")="2930903"
^DD(160.1,31,0)="YEAR START AJCC 4TH EDITION^RS^92:1992;93:1993;^5;1^Q"
^DD(160.1,31,1,0)="^.1^^0"
^DD(160.1,31,1,1,0)="160.1^AJ^MUMPS"
^DD(160.1,31,1,1,1)="S ^ONCO(160.1,""AJ"")=X"
^DD(160.1,31,1,1,2)="K ^ONCO(160.1,""AJ"")"
^DD(160.1,31,1,1,3)="DO NOT DELETE"
^DD(160.1,31,1,1,"%D",0)="^^2^2^2940607^^"
^DD(160.1,31,1,1,"%D",1,0)="Sets Staging Edition Switch for change over from 3rd tot 4th edition."
^DD(160.1,31,1,1,"%D",2,0)="This cross-reference is referenced directly by DXDT^ONCOCKI."
^DD(160.1,31,1,1,"DT")="2920913"
^DD(160.1,31,3)="Enter the year in which the institution began using the AJCC Manual for Staging of Cancer (Fourth Edition)."
^DD(160.1,31,21,0)="^^4^4^2991110^^^"
^DD(160.1,31,21,1,0)=""
^DD(160.1,31,21,2,0)="YEAR START AJCC 4TH EDITION is the year in which the institution began"
^DD(160.1,31,21,3,0)="using the AJCC Manual for Staging of Cancer (Fourth Edition)."
^DD(160.1,31,21,4,0)=""
^DD(160.1,31,"DT")="2991008"
^DD(160.1,40,0)="TOTAL#^NJ5,0O^^FR;1^K:+X'=X!(X>15000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,40,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,40,2.1)="$J(TOTAL#,5)"
^DD(160.1,40,3)="Type a Number between 0 and 15000, 0 Decimal Digits"
^DD(160.1,40,21,0)="^^1^1^2930819^"
^DD(160.1,40,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,40,"DT")="2921222"
^DD(160.1,41,0)="BENIGN^NJ4,0O^^FR;2^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,41,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,41,2.1)="$J(BENIGN,5)"
^DD(160.1,41,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(160.1,41,21,0)="^^1^1^2930819^"
^DD(160.1,41,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,41,"DT")="2921222"
^DD(160.1,42,0)="CERVIX^NJ4,0O^^FR;3^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,42,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,42,2.1)="$J(CERVIX,5)"
^DD(160.1,42,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(160.1,42,21,0)="^^1^1^2930819^"
^DD(160.1,42,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,42,"DT")="2921222"
^DD(160.1,43,0)="LOCAL BASAL^NJ4,0O^^FR;4^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,43,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,43,2.1)="$J(LOCAL BASAL,5)"
^DD(160.1,43,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(160.1,43,21,0)="^^1^1^2930819^"
^DD(160.1,43,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,43,"DT")="2921222"
^DD(160.1,44,0)="FOREIGN^NJ4,0O^^FR;5^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,44,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,44,2.1)="$J(FOREIGN,5)"
^DD(160.1,44,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(160.1,44,21,0)="^^1^1^2930819^"
^DD(160.1,44,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,44,"DT")="2921222"
^DD(160.1,45,0)="NONANALYTIC^NJ5,0O^^FR;6^K:+X'=X!(X>15000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,45,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,45,2.1)="$J(NONANALYTIC,5)"
^DD(160.1,45,3)="Type a Number between 0 and 15000, 0 Decimal Digits"
^DD(160.1,45,21,0)="^^1^1^2930819^"
^DD(160.1,45,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,45,"DT")="2921222"
^DD(160.1,46,0)="ANALYTIC^NJ5,0O^^FR;7^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,46,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,46,2.1)="$J(ANALYTIC,5)"
^DD(160.1,46,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(160.1,46,21,0)="^^1^1^2930819^"
^DD(160.1,46,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,46,"DT")="2921222"
^DD(160.1,47,0)="DEAD^NJ6,2O^^FR;8^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(160.1,47,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,47,2.1)="$J(DEAD,5)"
^DD(160.1,47,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(160.1,47,21,0)="^^1^1^2930819^"
^DD(160.1,47,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,47,"DT")="2921222"
^DD(160.1,48,0)="LIVING^NJ5,0O^^FR;9^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,48,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,48,2.1)="$J(LIVING,5)"
^DD(160.1,48,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(160.1,48,21,0)="^^1^1^2930819^"
^DD(160.1,48,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,48,"DT")="2921222"
^DD(160.1,49,0)="%LIVING^NJ6,2O^^FR;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(160.1,49,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=3,X=$J(Y(1),X) S Y=X"
^DD(160.1,49,2.1)="$J(%LIVING,3)"
^DD(160.1,49,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(160.1,49,21,0)="^^1^1^2930819^"
^DD(160.1,49,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,49,"DT")="2921222"
^DD(160.1,50,0)="%DEAD^NJ6,2O^^FR;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(160.1,50,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=3,X=$J(Y(1),X) S Y=X"
^DD(160.1,50,2.1)="$J(%DEAD,3)"
^DD(160.1,50,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(160.1,50,21,0)="^^1^1^2930819^"
^DD(160.1,50,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,50,"DT")="2921222"
^DD(160.1,51,0)="CURRENT^NJ5,0O^^FR;12^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,51,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,51,2.1)="$J(CURRENT,5)"
^DD(160.1,51,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(160.1,51,21,0)="^^1^1^2930819^"
^DD(160.1,51,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,51,"DT")="2921222"
^DD(160.1,52,0)="%CURRENT-TOTAL^NJ6,2O^^FR;13^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(160.1,52,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=3,X=$J(Y(1),X) S Y=X"
^DD(160.1,52,2.1)="$J(%CURRENT-TOTAL,3)"
^DD(160.1,52,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(160.1,52,21,0)="^^1^1^2930819^"
^DD(160.1,52,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,52,"DT")="2921222"
^DD(160.1,53,0)="LTF^NJ5,0O^^FR;14^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,53,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,53,2.1)="$J(LTF,5)"
^DD(160.1,53,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(160.1,53,21,0)="^^1^1^2930819^"
^DD(160.1,53,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,53,"DT")="2921222"
^DD(160.1,54,0)="%LTF-TOTAL^NJ6,2O^^FR;15^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(160.1,54,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=3,X=$J(Y(1),X) S Y=X"
^DD(160.1,54,2.1)="$J(%LTF-TOTAL,3)"
^DD(160.1,54,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(160.1,54,21,0)="^^1^1^2930819^"
^DD(160.1,54,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,54,"DT")="2921222"
^DD(160.1,55,0)="%CURRENT-ALIVE^NJ6,2O^^FR;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(160.1,55,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=3,X=$J(Y(1),X) S Y=X"
^DD(160.1,55,2.1)="$J(%CURRENT-ALIVE,3)"
^DD(160.1,55,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(160.1,55,21,0)="^^1^1^2930819^"
^DD(160.1,55,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,55,"DT")="2921222"
^DD(160.1,56,0)="%LTF-ALIVE^NJ6,2O^^FR;17^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(160.1,56,2)="S Y(0)=Y S X=Y(0),Y(1)=X S X=3,X=$J(Y(1),X) S Y=X"
^DD(160.1,56,2.1)="$J(%LTF-ALIVE,3)"
^DD(160.1,56,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(160.1,56,21,0)="^^1^1^2930819^"
^DD(160.1,56,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,56,"DT")="2921222"
^DD(160.1,57,0)="SFC^NJ6,0O^^FR;18^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,57,2)="S Y(0)=Y S X=Y(0),Y(1)=$G(X) S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,57,2.1)="$J(SFC,5)"
^DD(160.1,57,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(160.1,57,21,0)="^^1^1^3040923^"
^DD(160.1,57,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,57,"DT")="3040923"
^DD(160.1,58,0)="%SFC^NJ3,0O^^FR;19^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,58,2)="S Y(0)=Y S X=Y(0),Y(1)=$G(X) S X=3,X=$J(Y(1),X) S Y=X"
^DD(160.1,58,2.1)="$J(%SFC,3)"
^DD(160.1,58,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(160.1,58,21,0)="^^1^1^3040923^"
^DD(160.1,58,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,58,"DT")="3040923"
^DD(160.1,59,0)="EXTENDED VA DATASET^S^Y:Yes;N:No;^2;2^Q"
^DD(160.1,59,21,0)="^^5^5^3051021^"
^DD(160.1,59,21,1,0)="This field indicates whether the extended VA dataset will be utilized"
^DD(160.1,59,21,2,0)="or screened from input and display.  The extended VA dataset includes"
^DD(160.1,59,21,3,0)="fields which collect symptom and initial diagnostic data for all"
^DD(160.1,59,21,4,0)="CLASS OF CASE 1 (Dx here, 1st tx here) cases and LUNG (C34.0 - C34.9)"
^DD(160.1,59,21,5,0)="or COLON and RECTUM (C18.0 - C18.9, C19.9, C20.9) cases."
^DD(160.1,59,"DT")="3051021"
^DD(160.1,60,0)="CC^NJ4,0O^^FR;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.1,60,2)="S Y(0)=Y S X=Y(0),Y(1)=$G(X) S X=5,X=$J(Y(1),X) S Y=X"
^DD(160.1,60,2.1)="$J(CC,5)"
^DD(160.1,60,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(160.1,60,21,0)="^^1^1^3060118^"
^DD(160.1,60,21,1,0)="This field is used as an accumulator for report generation."
^DD(160.1,60,"DT")="3060118"
^DD(160.1,"B","%CURRENT-ALIVE",55)=""
^DD(160.1,"B","%CURRENT-TOTAL",52)=""
^DD(160.1,"B","%DEAD",50)=""
^DD(160.1,"B","%LIVING",49)=""
^DD(160.1,"B","%LTF-ALIVE",56)=""
^DD(160.1,"B","%LTF-TOTAL",54)=""
^DD(160.1,"B","%SFC",58)=""
^DD(160.1,"B","AFFILIATED DIVISION",8)=""
^DD(160.1,"B","ANALYTIC",46)=""
^DD(160.1,"B","AUTHORIZED QA USER",5)=""
^DD(160.1,"B","BASAL CELL INDICATOR",2)=""
^DD(160.1,"B","BENIGN",41)=""
^DD(160.1,"B","C. CITY,ST ZIP",.032)=""
^DD(160.1,"B","C. HOSPITAL NAME",.011)=""
^DD(160.1,"B","C. STREET ADDRESS",.021)=""
^DD(160.1,"B","C. TITLE TR",1.0111)=""
^DD(160.1,"B","C. TUMOR REGISTRAR",1.01)=""
^DD(160.1,"B","CC",60)=""
^DD(160.1,"B","CENTRAL REGISTRY #",28)=""
^DD(160.1,"B","CERVIX",42)=""
^DD(160.1,"B","CITY,ST ZIP",.031)=""
^DD(160.1,"B","CLINICAL INDICATOR",30)=""
^DD(160.1,"B","COLLABORATIVE STAGING URL",19)=""
^DD(160.1,"B","CURRENT",51)=""
^DD(160.1,"B","DEAD",47)=""
^DD(160.1,"B","DIVISION",6)=""
^DD(160.1,"B","END DATE",12)=""
^DD(160.1,"B","EXTENDED VA DATASET",59)=""
^DD(160.1,"B","FOREIGN",44)=""
^DD(160.1,"B","GOVERNMENT AGENCY",3)=""
^DD(160.1,"B","HOSPITAL NAME",.01)=""
^DD(160.1,"B","ID1",14)=""
^DD(160.1,"B","ID10",26)=""
^DD(160.1,"B","ID2",15)=""
^DD(160.1,"B","ID3",16)=""
^DD(160.1,"B","ID4",17)=""
^DD(160.1,"B","ID5",21)=""
^DD(160.1,"B","ID6",22)=""
^DD(160.1,"B","ID7",23)=""
^DD(160.1,"B","ID8",24)=""
^DD(160.1,"B","ID9",25)=""
^DD(160.1,"B","INSTITUTION ID NUMBER",27)=""
^DD(160.1,"B","LABORATORY CASEFINDING DATE",4)=""
^DD(160.1,"B","LIVING",48)=""
^DD(160.1,"B","LOCAL BASAL",43)=""
^DD(160.1,"B","LTF",53)=""
^DD(160.1,"B","NEG-REPORT",20)=""
^DD(160.1,"B","NONANALYTIC",45)=""
^DD(160.1,"B","PHONE NUMBER",1.02)=""
^DD(160.1,"B","PTF CASEFINDING DATE",18)=""
^DD(160.1,"B","RADIOLOGY CASEFINDING DATE",10)=""
^DD(160.1,"B","SFC",57)=""
^DD(160.1,"B","START DATE",11)=""
^DD(160.1,"B","STATE HOSPITAL NUMBER",1.03)=""
^DD(160.1,"B","STATION NUMBER",9)=""
^DD(160.1,"B","STREET ADDRESS",.02)=""
^DD(160.1,"B","TITLE-TR",1.011)=""
^DD(160.1,"B","TOTAL CASES",13)=""
^DD(160.1,"B","TOTAL#",40)=""
^DD(160.1,"B","TR REFERENCE DATE",.04)=""
^DD(160.1,"B","TUMOR REGISTRAR",1)=""
^DD(160.1,"B","VISN",7)=""
^DD(160.1,"B","YEAR START AJCC 4TH EDITION",31)=""
^DD(160.1,"B","YEARS OF REGISTRY",.041)=""
^DD(160.1,"B","ZIPCODE",.03)=""
^DD(160.1,"GL",0,1,.01)=""
^DD(160.1,"GL",0,2,.02)=""
^DD(160.1,"GL",0,3,.03)=""
^DD(160.1,"GL",0,4,.04)=""
^DD(160.1,"GL",0,5,4)=""
^DD(160.1,"GL",0,6,10)=""
^DD(160.1,"GL",0,7,18)=""
^DD(160.1,"GL",1,1,1)=""
^DD(160.1,"GL",1,2,1.02)=""
^DD(160.1,"GL",1,3,1.03)=""
^DD(160.1,"GL",1,4,27)=""
^DD(160.1,"GL",1,5,28)=""
^DD(160.1,"GL",1,7,7)=""
^DD(160.1,"GL",1,8,6)=""
^DD(160.1,"GL",2,1,2)=""
^DD(160.1,"GL",2,2,59)=""
^DD(160.1,"GL",3,0,3)=""
^DD(160.1,"GL",4,0,30)=""
^DD(160.1,"GL",5,1,31)=""
^DD(160.1,"GL",6,0,8)=""
^DD(160.1,"GL",10,1,20)=""
^DD(160.1,"GL","CS",1,19)=""
^DD(160.1,"GL","FR",1,40)=""
^DD(160.1,"GL","FR",2,41)=""
^DD(160.1,"GL","FR",3,42)=""
^DD(160.1,"GL","FR",4,43)=""
^DD(160.1,"GL","FR",5,44)=""
^DD(160.1,"GL","FR",6,45)=""
^DD(160.1,"GL","FR",7,46)=""
^DD(160.1,"GL","FR",8,47)=""
^DD(160.1,"GL","FR",9,48)=""
^DD(160.1,"GL","FR",10,49)=""
^DD(160.1,"GL","FR",11,50)=""
^DD(160.1,"GL","FR",12,51)=""
^DD(160.1,"GL","FR",13,52)=""
^DD(160.1,"GL","FR",14,53)=""
^DD(160.1,"GL","FR",15,54)=""
^DD(160.1,"GL","FR",16,55)=""
^DD(160.1,"GL","FR",17,56)=""
^DD(160.1,"GL","FR",18,57)=""
^DD(160.1,"GL","FR",19,58)=""
^DD(160.1,"GL","FR",20,60)=""
^DD(160.1,"GL","QA",1,11)=""
^DD(160.1,"GL","QA",2,12)=""
^DD(160.1,"GL","QA",3,13)=""
^DD(160.1,"GL","QA",4,14)=""
^DD(160.1,"GL","QA",5,15)=""
^DD(160.1,"GL","QA",6,16)=""
^DD(160.1,"GL","QA",7,17)=""
^DD(160.1,"GL","QA",8,21)=""
^DD(160.1,"GL","QA",9,22)=""
^DD(160.1,"GL","QA",10,23)=""
^DD(160.1,"GL","QA",11,24)=""
^DD(160.1,"GL","QA",12,25)=""
^DD(160.1,"GL","QA",13,26)=""
^DD(160.1,"GL","QAU",0,5)=""
^DD(160.1,"IX",.01)=""
^DD(160.1,"IX",1.03)=""
^DD(160.1,"IX",2)=""
^DD(160.1,"IX",6)=""
^DD(160.1,"IX",31)=""
^DD(160.1,"RQ",.01)=""
^DD(160.1,"RQ",1)=""
^DD(160.1,"RQ",6)=""
^DD(160.1,"RQ",11)=""
^DD(160.1,"RQ",12)=""
^DD(160.1,"RQ",31)=""
^DD(160.1,"SB",160.11,30)=""
^DD(160.1,"SB",160.13,3)=""
^DD(160.1,"SB",160.18,5)=""
^DD(160.1,"SB",160.22,8)=""
^DD(160.11,0)="CLINICAL INDICATOR SUB-FIELD^^.01^1"
^DD(160.11,0,"DT")="2920822"
^DD(160.11,0,"IX","B",160.11,.01)=""
^DD(160.11,0,"NM","CLINICAL INDICATOR")=""
^DD(160.11,0,"UP")="160.1"
^DD(160.11,.01,0)="CLINICAL INDICATOR^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(160.11,.01,1,0)="^.1"
^DD(160.11,.01,1,1,0)="160.11^B"
^DD(160.11,.01,1,1,1)="S ^ONCO(160.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(160.11,.01,1,1,2)="K ^ONCO(160.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(160.11,.01,3)="Answer must be 3-30 characters in length."
^DD(160.11,.01,21,0)="^^1^1^2950301^^"
^DD(160.11,.01,21,1,0)="These are the clinical indicators used by this site."
^DD(160.11,.01,"DT")="2930903"
^DD(160.11,"B","CLINICAL INDICATOR",.01)=""
^DD(160.11,"GL",0,1,.01)=""
^DD(160.11,"IX",.01)=""
^DD(160.12,0)="FIELD^^1^2"
^DD(160.12,0,"DDA")="N"
^DD(160.12,0,"DT")="3000317"
^DD(160.12,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(160.12,0,"IX","B",160.12,.01)=""
^DD(160.12,0,"IX","C",160.12,1)=""
^DD(160.12,0,"IX","D",160.12,1)=""
^DD(160.12,0,"NM","TYPE OF RECURRENCE")=""
^DD(160.12,0,"PT",165.5,71)=""
^DD(160.12,0,"PT",165.5,71.4)=""
^DD(160.12,0,"PT",165.572,.02)=""
^DD(160.12,0,"VR")="2.11"
^DD(160.12,0,"VRPK")="ONC"
^DD(160.12,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(160.12,.01,1,0)="^.1"
^DD(160.12,.01,1,1,0)="160.12^B"
^DD(160.12,.01,1,1,1)="S ^ONCO(160.12,""B"",$E(X,1,30),DA)="""""
^DD(160.12,.01,1,1,2)="K ^ONCO(160.12,""B"",$E(X,1,30),DA)"
^DD(160.12,.01,3)="Answer must be 2 characters in length."
^DD(160.12,.01,21,0)="^^5^5^2960118^"
^DD(160.12,.01,21,1,0)="The type of recurrence.  The term ""recurrence"" defines the return or"
^DD(160.12,.01,21,2,0)="reappearance of the cancer after a disease-free intermission or"
^DD(160.12,.01,21,3,0)="remission."
^DD(160.12,.01,21,4,0)=" "
^DD(160.12,.01,21,5,0)="If the patient has been disease-free since treatment, code 00."
^DD(160.12,.01,"DT")="2960118"
^DD(160.12,1,0)="DEFINITION^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(160.12,1,1,0)="^.1"
^DD(160.12,1,1,1,0)="160.12^C"
^DD(160.12,1,1,1,1)="S ^ONCO(160.12,""C"",$E(X,1,30),DA)="""""
^DD(160.12,1,1,1,2)="K ^ONCO(160.12,""C"",$E(X,1,30),DA)"
^DD(160.12,1,1,1,"DT")="2960215"
^DD(160.12,1,1,2,0)="160.12^D^MUMPS"
^DD(160.12,1,1,2,1)="D UCASE^ONCOU S ^ONCO(160.12,""D"",$E(X,1,30),DA)="""""
^DD(160.12,1,1,2,2)="D UCASE^ONCOU K ^ONCO(160.12,""D"",$E(X,1,30),DA)"
^DD(160.12,1,1,2,"DT")="2960524"
^DD(160.12,1,3)="Answer must be 1-80 characters in length."
^DD(160.12,1,21,0)="^.001^4^4^3000317^^"
^DD(160.12,1,21,1,0)=""
^DD(160.12,1,21,2,0)="The TYPE OF FIRST RECURRENCE and OTHER TYPE OF FIRST RECURRENCE code"
^DD(160.12,1,21,3,0)="definitions."
^DD(160.12,1,21,4,0)=""
^DD(160.12,1,"DT")="3000317"
^DD(160.12,"B","CODE",.01)=""
^DD(160.12,"B","DEFINITION",1)=""
^DD(160.12,"GL",0,1,.01)=""
^DD(160.12,"GL",0,2,1)=""
^DD(160.12,"IX",.01)=""
^DD(160.12,"IX",1)=""
^DD(160.12,"RQ",.01)=""
^DD(160.13,0)="GOVERNMENT AGENCY SUB-FIELD^^.01^1"
^DD(160.13,0,"DT")="2920229"
^DD(160.13,0,"IX","B",160.13,.01)=""
^DD(160.13,0,"NM","GOVERNMENT AGENCY")=""
^DD(160.13,0,"UP")="160.1"
^DD(160.13,.01,0)="GOVERNMENT AGENCY^MP165^ONCO(165,^0;1^Q"
^DD(160.13,.01,.1)="Government Contact"
^DD(160.13,.01,1,0)="^.1"
^DD(160.13,.01,1,1,0)="160.13^B"
^DD(160.13,.01,1,1,1)="S ^ONCO(160.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(160.13,.01,1,1,2)="K ^ONCO(160.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(160.13,.01,3)="Enter Name of Bureau of Vital Statistics"
^DD(160.13,.01,21,0)="^^2^2^2950301^"
^DD(160.13,.01,21,1,0)="Records the name of the government institution that may providefollow up"
^DD(160.13,.01,21,2,0)="information."
^DD(160.13,.01,"DT")="2920229"
^DD(160.13,"B","GOVERNMENT AGENCY",.01)=""
^DD(160.13,"B","Government Contact",.01)="1"
^DD(160.13,"GL",0,1,.01)=""
^DD(160.13,"IX",.01)=""
^DD(160.14,0)="FIELD^^1^2"
^DD(160.14,0,"DDA")="N"
^DD(160.14,0,"DT")="2960124"
^DD(160.14,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(160.14,0,"IX","B",160.14,.01)=""
^DD(160.14,0,"NM","NON CANCER-DIRECTED SURGERY")=""
^DD(160.14,0,"VR")="2.11"
^DD(160.14,0,"VRPK")="ONC"
^DD(160.14,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(160.14,.01,1,0)="^.1"
^DD(160.14,.01,1,1,0)="160.14^B"
^DD(160.14,.01,1,1,1)="S ^ONCO(160.14,""B"",$E(X,1,30),DA)="""""
^DD(160.14,.01,1,1,2)="K ^ONCO(160.14,""B"",$E(X,1,30),DA)"
^DD(160.14,.01,3)="Answer must be 1-2 characters in length."
^DD(160.14,.01,21,0)="^.001^2^2^3021112^^^^"
^DD(160.14,.01,21,1,0)="Identifies codes for surgical procedure(s) performed"
^DD(160.14,.01,21,2,0)="in an effort to diagnose ane/or stage disease."
^DD(160.14,.01,"DT")="2960124"
^DD(160.14,1,0)="DEFINITION^F^^0;2^K:$L(X)>140!($L(X)<1) X"
^DD(160.14,1,3)="Answer must be 1-140 characters in length."
^DD(160.14,1,21,0)="^.001^2^2^3021112^^^^"
^DD(160.14,1,21,1,0)="Identifies the surgical procedure(s) performed"
^DD(160.14,1,21,2,0)="in an effort to diagnose ane/or stage disease."
^DD(160.14,1,"DT")="2960124"
^DD(160.14,"B","CODE",.01)=""
^DD(160.14,"B","DEFINITION",1)=""
^DD(160.14,"GL",0,1,.01)=""
^DD(160.14,"GL",0,2,1)=""
^DD(160.14,"IX",.01)=""
^DD(160.14,"RQ",.01)=""
^DD(160.15,0)="FIELD^^1^2"
^DD(160.15,0,"DDA")="N"
^DD(160.15,0,"DT")="3010103"
^DD(160.15,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(160.15,0,"IX","B",160.15,.01)=""
^DD(160.15,0,"IX","C",160.15,1)=""
^DD(160.15,0,"IX","D",160.15,1)=""
^DD(160.15,0,"NM","ACOS STATE AT DIAGNOSIS")=""
^DD(160.15,0,"PT",165.5,16)=""
^DD(160.15,0,"VR")="2.11"
^DD(160.15,0,"VRPK")="ONC"
^DD(160.15,.01,0)="ABBREVIATION^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(160.15,.01,1,0)="^.1"
^DD(160.15,.01,1,1,0)="160.15^B"
^DD(160.15,.01,1,1,1)="S ^ONCO(160.15,""B"",$E(X,1,30),DA)="""""
^DD(160.15,.01,1,1,2)="K ^ONCO(160.15,""B"",$E(X,1,30),DA)"
^DD(160.15,.01,3)="Answer must be 2 characters in length."
^DD(160.15,.01,21,0)="^^2^2^2960202^"
^DD(160.15,.01,21,1,0)="The state or Canadian province of the patient's usual residence when the"
^DD(160.15,.01,21,2,0)="tumor was diagnosed and treated."
^DD(160.15,.01,"DT")="2960202"
^DD(160.15,1,0)="STATE/PROVINCE^F^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(160.15,1,1,0)="^.1"
^DD(160.15,1,1,1,0)="160.15^C"
^DD(160.15,1,1,1,1)="S ^ONCO(160.15,""C"",$E(X,1,30),DA)="""""
^DD(160.15,1,1,1,2)="K ^ONCO(160.15,""C"",$E(X,1,30),DA)"
^DD(160.15,1,1,1,"DT")="2960206"
^DD(160.15,1,1,2,0)="160.15^D^MUMPS"
^DD(160.15,1,1,2,1)="S STATE=X,X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),^ONCO(160.15,""D"",X,DA)="""",X=STATE K STATE"
^DD(160.15,1,1,2,2)="S STATE=X,X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"") K ^ONCO(160.15,""D"",X,DA) S X=STATE K STATE"
^DD(160.15,1,1,2,"DT")="2960206"
^DD(160.15,1,3)="Answer must be 3-35 characters in length."
^DD(160.15,1,21,0)="^.001^2^2^3010103^^^^"
^DD(160.15,1,21,1,0)="The state or Canadian province of the patient's usual residence when the"
^DD(160.15,1,21,2,0)="tumor was diagnosed and treated."
^DD(160.15,1,"DT")="3010103"
^DD(160.15,"B","ABBREVIATION",.01)=""
^DD(160.15,"B","STATE/PROVINCE",1)=""
^DD(160.15,"GL",0,1,.01)=""
^DD(160.15,"GL",0,2,1)=""
^DD(160.15,"IX",.01)=""
^DD(160.15,"IX",1)=""
^DD(160.15,"RQ",.01)=""
^DD(160.16,0)="FIELD^^2^3"
^DD(160.16,0,"DDA")="N"
^DD(160.16,0,"DT")="3031023"
^DD(160.16,0,"IX","B",160.16,.01)=""
^DD(160.16,0,"NM","ONCOLOGY DATA EXTRACT FORMAT")=""
^DD(160.16,0,"VR")="2.11"
^DD(160.16,0,"VRPK")="ONC"
^DD(160.16,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(160.16,.01,1,0)="^.1"
^DD(160.16,.01,1,1,0)="160.16^B"
^DD(160.16,.01,1,1,1)="S ^ONCO(160.16,""B"",$E(X,1,30),DA)="""""
^DD(160.16,.01,1,1,2)="K ^ONCO(160.16,""B"",$E(X,1,30),DA)"
^DD(160.16,.01,3)="Answer must be 3-30 characters in length."
^DD(160.16,.01,21,0)="1"
^DD(160.16,.01,21,1,0)="This contains the name of the extract."
^DD(160.16,.01,"DT")="2970224"
^DD(160.16,1,0)="FIELD^160.161I^^FIELD;0"
^DD(160.16,1,21,0)="^.001^1^1^3031023^^^^"
^DD(160.16,1,21,1,0)="List of all the extracted fields."
^DD(160.16,2,0)="RULES^160.162^^RULES;0"
^DD(160.16,2,21,0)="^^8^8^2970731^"
^DD(160.16,2,21,1,0)="This field is a set of rules based in MUMPS code that the extract must"
^DD(160.16,2,21,2,0)="follow for each entry.  Values that must be set are:"
^DD(160.16,2,21,3,0)="       VALID = 1 means that the extract is valid"
^DD(160.16,2,21,4,0)="             = 0 means that the extract has is not valid and will not"
^DD(160.16,2,21,5,0)="               extract"
^DD(160.16,2,21,6,0)="        JUMP = 0 means process all the field in the extract"
^DD(160.16,2,21,7,0)="             = X^Y means to skip all the fields from position X to"
^DD(160.16,2,21,8,0)="               position Y in the extract."
^DD(160.16,"B","FIELD",1)=""
^DD(160.16,"B","NAME",.01)=""
^DD(160.16,"B","RULES",2)=""
^DD(160.16,"GL",0,1,.01)=""
^DD(160.16,"GL","FIELD",0,1)=""
^DD(160.16,"GL","RULES",0,2)=""
^DD(160.16,"IX",.01)=""
^DD(160.16,"RQ",.01)=""
^DD(160.16,"SB",160.161,1)=""
^DD(160.16,"SB",160.162,2)=""
^DD(160.161,0)="FIELD SUB-FIELD^^8^9"
^DD(160.161,0,"DT")="3031023"
^DD(160.161,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(160.161,0,"IX","B",160.161,.01)=""
^DD(160.161,0,"IX","C",160.161,3)=""
^DD(160.161,0,"NM","FIELD")=""
^DD(160.161,0,"UP")="160.16"
^DD(160.161,.01,0)="STARTING POSITION^MRNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.161,.01,1,0)="^.1"
^DD(160.161,.01,1,1,0)="160.161^B"
^DD(160.161,.01,1,1,1)="S ^ONCO(160.16,DA(1),""FIELD"",""B"",$E(X,1,30),DA)="""""
^DD(160.161,.01,1,1,2)="K ^ONCO(160.16,DA(1),""FIELD"",""B"",$E(X,1,30),DA)"
^DD(160.161,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(160.161,.01,21,0)="^.001^1^1^3000316^^"
^DD(160.161,.01,21,1,0)="The starting position do the field within the extract."
^DD(160.161,.01,"DT")="2970731"
^DD(160.161,1,0)="LENGTH^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.161,1,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(160.161,1,21,0)="^^1^1^2970731^^^"
^DD(160.161,1,21,1,0)="This contains the character length of the field."
^DD(160.161,1,"DT")="2970430"
^DD(160.161,2,0)="ENDING POSITION^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.161,2,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(160.161,2,21,0)="^^1^1^2970731^^^"
^DD(160.161,2,21,1,0)="This is the ending position of the field data."
^DD(160.161,2,"DT")="2970430"
^DD(160.161,3,0)="NAME^RF^^0;4^K:$L(X)>80!($L(X)<1) X"
^DD(160.161,3,1,0)="^.1"
^DD(160.161,3,1,1,0)="160.161^C"
^DD(160.161,3,1,1,1)="S ^ONCO(160.16,DA(1),""FIELD"",""C"",$E(X,1,30),DA)="""""
^DD(160.161,3,1,1,2)="K ^ONCO(160.16,DA(1),""FIELD"",""C"",$E(X,1,30),DA)"
^DD(160.161,3,1,1,"%D",0)="^^1^1^2970430^"
^DD(160.161,3,1,1,"%D",1,0)="Name cross reference."
^DD(160.161,3,1,1,"DT")="2970430"
^DD(160.161,3,3)="Answer must be 1-80 characters in length."
^DD(160.161,3,21,0)="^^1^1^2970731^"
^DD(160.161,3,21,1,0)="This is the name given to the field within the extract."
^DD(160.161,3,"DT")="2970430"
^DD(160.161,4,0)="ACTION^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(160.161,4,3)="Answer must be 1-250 characters in length."
^DD(160.161,4,21,0)="^^12^12^2970731^"
^DD(160.161,4,21,1,0)="Enter MUMPS Code that sets ACDANS to a value. DO NOT USE THE ""^"""
^DD(160.161,4,21,2,0)="(UP-ARROW).  Fileman will not except and up-arrow.  Use ""~"" tilde to"
^DD(160.161,4,21,3,0)="replace all up-arrows.  The system has been coded to convert the tilde to"
^DD(160.161,4,21,4,0)="an up-arrow when it executes the string. "
^DD(160.161,4,21,5,0)="   For example: "
^DD(160.161,4,21,6,0)="               S ACDANS=123"
^DD(160.161,4,21,7,0)="               S ACDANS=$$FUNCT~ROUTINE(IEN) "
^DD(160.161,4,21,8,0)=" "
^DD(160.161,4,21,9,0)=" Preset Varables:"
^DD(160.161,4,21,10,0)="              IEN=Internal Entry number of the entry in file 165.5 "
^DD(160.161,4,21,11,0)="           ACD160=Internal Entry number of the entry in file 160 that is"
^DD(160.161,4,21,12,0)="                  link to the entry in file 165.5"
^DD(160.161,4,"DT")="2970729"
^DD(160.161,5,0)="DEFAULT^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(160.161,5,3)="Answer must be 1-200 characters in length."
^DD(160.161,5,21,0)="^^5^5^2970731^"
^DD(160.161,5,21,1,0)="The default value of a field that is has no data stored."
^DD(160.161,5,21,2,0)="Values can be:"
^DD(160.161,5,21,3,0)="          BLANK = "" """
^DD(160.161,5,21,4,0)="          ZERO  = ""0"""
^DD(160.161,5,21,5,0)="          NINE  = ""9"""
^DD(160.161,5,"DT")="2970509"
^DD(160.161,6,0)="FILL^F^^3;1^K:$L(X)>200!($L(X)<1) X"
^DD(160.161,6,3)="Answer must be 1-200 characters in length."
^DD(160.161,6,21,0)="^^12^12^2970731^"
^DD(160.161,6,21,1,0)="The filler that is stuffed in front of or behind the data if it is not the "
^DD(160.161,6,21,2,0)="max length. This element is devided into two pieces delimeted by a comma."
^DD(160.161,6,21,3,0)="The first part tell where the fill is to go. Second part tells waht to"
^DD(160.161,6,21,4,0)="fill with.  ""R"" means to fill on the right side of the value and ""L"" means"
^DD(160.161,6,21,5,0)="to fill on the left.  The fill values are the same as in DEFAULT"
^DD(160.161,6,21,6,0)=" "
^DD(160.161,6,21,7,0)="Example:  L,BLANK = Fill the field with blanks then add the value to the"
^DD(160.161,6,21,8,0)="remainder"
^DD(160.161,6,21,9,0)=" "
^DD(160.161,6,21,10,0)="          BLANK = "" """
^DD(160.161,6,21,11,0)="          ZERO  = ""0"""
^DD(160.161,6,21,12,0)="          NINE  = ""9"""
^DD(160.161,6,"DT")="2970509"
^DD(160.161,7,0)="ITEM #^NJ4,0^^3;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.161,7,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(160.161,7,"DT")="3031023"
^DD(160.161,8,0)="DERIVATION^F^^4;1^K:$L(X)>150!($L(X)<1) X"
^DD(160.161,8,3)="Answer must be 1-150 characters in length."
^DD(160.161,8,"DT")="3031023"
^DD(160.161,"B","ACTION",4)=""
^DD(160.161,"B","DEFAULT",5)=""
^DD(160.161,"B","DERIVATION",8)=""
^DD(160.161,"B","ENDING POSITION",2)=""
^DD(160.161,"B","FILL",6)=""
^DD(160.161,"B","ITEM #",7)=""
^DD(160.161,"B","LENGTH",1)=""
^DD(160.161,"B","NAME",3)=""
^DD(160.161,"B","STARTING POSITION",.01)=""
^DD(160.161,"GL",0,1,.01)=""
^DD(160.161,"GL",0,2,1)=""
^DD(160.161,"GL",0,3,2)=""
^DD(160.161,"GL",0,4,3)=""
^DD(160.161,"GL",1,1,4)=""
^DD(160.161,"GL",2,1,5)=""
^DD(160.161,"GL",3,1,6)=""
^DD(160.161,"GL",3,2,7)=""
^DD(160.161,"GL",4,1,8)=""
^DD(160.161,"IX",.01)=""
^DD(160.161,"IX",3)=""
^DD(160.161,"RQ",.01)=""
^DD(160.161,"RQ",3)=""
^DD(160.162,0)="RULES SUB-FIELD^^.01^1"
^DD(160.162,0,"DT")="2970618"
^DD(160.162,0,"NM","RULES")=""
^DD(160.162,0,"UP")="160.16"
^DD(160.162,.01,0)="RULES^W^^0;1^Q"
^DD(160.162,.01,"DT")="2970618"
^DD(160.162,"B","RULES",.01)=""
^DD(160.162,"GL",0,1,.01)=""
^DD(160.17,0)="FIELD^^2^3"
^DD(160.17,0,"DT")="2991025"
^DD(160.17,0,"IX","B",160.17,.01)=""
^DD(160.17,0,"NM","ONCOLOGY PCE EXTRACT FORMAT")=""
^DD(160.17,0,"VR")="2.11"
^DD(160.17,0,"VRPK")="ONC"
^DD(160.17,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(160.17,.01,1,0)="^.1"
^DD(160.17,.01,1,1,0)="160.17^B"
^DD(160.17,.01,1,1,1)="S ^ONCO(160.17,""B"",$E(X,1,30),DA)="""""
^DD(160.17,.01,1,1,2)="K ^ONCO(160.17,""B"",$E(X,1,30),DA)"
^DD(160.17,.01,3)="Answer must be 3-30 characters in length."
^DD(160.17,.01,21,0)="^^1^1^2971028^^^^"
^DD(160.17,.01,21,1,0)="This contains the name of the PCE extract."
^DD(160.17,.01,"DT")="2970224"
^DD(160.17,1,0)="FIELD^160.171I^^FIELD;0"
^DD(160.17,1,21,0)="^^1^1^2991025^^^^"
^DD(160.17,1,21,1,0)="List of all the PCE extracted fields."
^DD(160.17,2,0)="RULES^160.172^^RULES;0"
^DD(160.17,2,21,0)="^^8^8^2970731^"
^DD(160.17,2,21,1,0)="This field is a set of rules based in MUMPS code that the extract must"
^DD(160.17,2,21,2,0)="follow for each entry.  Values that must be set are:"
^DD(160.17,2,21,3,0)="       VALID = 1 means that the extract is valid"
^DD(160.17,2,21,4,0)="             = 0 means that the extract has is not valid and will not"
^DD(160.17,2,21,6,0)="        JUMP = 0 means process all the field in the extract"
^DD(160.17,2,21,7,0)="             = X^Y means to skip all the fields from position X to"
^DD(160.17,2,21,8,0)="               position Y in the extract."
^DD(160.17,"B","FIELD",1)=""
^DD(160.17,"B","NAME",.01)=""
^DD(160.17,"B","RULES",2)=""
^DD(160.17,"GL",0,1,.01)=""
^DD(160.17,"GL","FIELD",0,1)=""
^DD(160.17,"GL","RULES",0,2)=""
^DD(160.17,"IX",.01)=""
^DD(160.17,"RQ",.01)=""
^DD(160.17,"SB",160.171,1)=""
^DD(160.17,"SB",160.172,2)=""
^DD(160.171,0)="FIELD SUB-FIELD^^6^7"
^DD(160.171,0,"DT")="2991025"
^DD(160.171,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(160.171,0,"IX","B",160.171,.01)=""
^DD(160.171,0,"IX","C",160.171,3)=""
^DD(160.171,0,"NM","FIELD")=""
^DD(160.171,0,"UP")="160.17"
^DD(160.171,.01,0)="STARTING POSITION^MRNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(160.171,.01,1,0)="^.1"
^DD(160.171,.01,1,1,0)="160.171^B"
^DD(160.171,.01,1,1,1)="S ^ONCO(160.17,DA(1),""FIELD"",""B"",$E(X,1,30),DA)="""""
^DD(160.171,.01,1,1,2)="K ^ONCO(160.17,DA(1),""FIELD"",""B"",$E(X,1,30),DA)"
^DD(160.171,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(160.171,.01,21,0)="^^1^1^2970731^"
^DD(160.171,.01,21,1,0)="The starting position do the field within the extract."
^DD(160.171,.01,"DT")="2970731"
^DD(160.171,1,0)="LENGTH^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.171,1,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(160.171,1,21,0)="^^1^1^2970731^^^"
^DD(160.171,1,21,1,0)="This contains the character length of the field."
^DD(160.171,1,"DT")="2970430"
^DD(160.171,2,0)="ENDING POSITION^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(160.171,2,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(160.171,2,21,0)="^^1^1^2970731^^^"
^DD(160.171,2,21,1,0)="This is the ending position of the field data."
^DD(160.171,2,"DT")="2970430"
^DD(160.171,3,0)="NAME^RF^^0;4^K:$L(X)>45!($L(X)<1) X"
^DD(160.171,3,1,0)="^.1"
^DD(160.171,3,1,1,0)="160.171^C"
^DD(160.171,3,1,1,1)="S ^ONCO(160.17,DA(1),""FIELD"",""C"",$E(X,1,30),DA)="""""
^DD(160.171,3,1,1,2)="K ^ONCO(160.17,DA(1),""FIELD"",""C"",$E(X,1,30),DA)"
^DD(160.171,3,1,1,"%D",0)="^^1^1^2970430^"
^DD(160.171,3,1,1,"%D",1,0)="Name cross reference."
^DD(160.171,3,1,1,"DT")="2970430"
^DD(160.171,3,3)="Answer must be 1-45 characters in length."
^DD(160.171,3,21,0)="^^1^1^2991025^^^^"
^DD(160.171,3,21,1,0)="This is the name given to the field within the extract."
^DD(160.171,3,"DT")="2991025"
^DD(160.171,4,0)="ACTION^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(160.171,4,3)="Answer must be 1-250 characters in length."
^DD(160.171,4,21,0)="^^12^12^2970731^"
^DD(160.171,4,21,1,0)="Enter MUMPS Code that sets ACDANS to a value. DO NOT USE THE ""^"""
^DD(160.171,4,21,2,0)="(UP-ARROW).  Fileman will not except and up-arrow.  Use ""~"" tilde to"
^DD(160.171,4,21,3,0)="replace all up-arrows.  The system has been coded to convert the tilde to"
^DD(160.171,4,21,4,0)="an up-arrow when it executes the string. "
^DD(160.171,4,21,6,0)="               S ACDANS=123"
^DD(160.171,4,21,7,0)="               S ACDANS=$$FUNCT~ROUTINE(IEN) "
^DD(160.171,4,21,8,0)=" "
^DD(160.171,4,21,9,0)=" Preset Varables:"
^DD(160.171,4,21,10,0)="              IEN=Internal Entry number of the entry in file 165.5 "
^DD(160.171,4,21,11,0)="           ACD160=Internal Entry number of the entry in file 160 that is"
^DD(160.171,4,21,12,0)="                  link to the entry in file 165.5"
^DD(160.171,4,"DT")="2970729"
^DD(160.171,5,0)="DEFAULT^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(160.171,5,3)="Answer must be 1-200 characters in length."
^DD(160.171,5,21,0)="^^5^5^2970731^"
^DD(160.171,5,21,1,0)="The default value of a field that is has no data stored."
^DD(160.171,5,21,2,0)="Values can be:"
^DD(160.171,5,21,3,0)="          BLANK = "" """
^DD(160.171,5,21,4,0)="          ZERO  = ""0"""
^DD(160.171,5,"DT")="2970509"
^DD(160.171,6,0)="FILL^F^^3;1^K:$L(X)>200!($L(X)<1) X"
^DD(160.171,6,3)="Answer must be 1-200 characters in length."
^DD(160.171,6,21,0)="^^12^12^2970731^"
^DD(160.171,6,21,1,0)="The filler that is stuffed in front of or behind the data if it is not the "
^DD(160.171,6,21,2,0)="max length. This element is devided into two pieces delimeted by a comma."
^DD(160.171,6,21,3,0)="The first part tell where the fill is to go. Second part tells waht to"
^DD(160.171,6,21,4,0)="fill with.  ""R"" means to fill on the right side of the value and ""L"" means"
^DD(160.171,6,21,6,0)=" "
^DD(160.171,6,21,7,0)="Example:  L,BLANK = Fill the field with blanks then add the value to the"
^DD(160.171,6,21,8,0)="remainder"
^DD(160.171,6,21,9,0)=" "
^DD(160.171,6,21,10,0)="          BLANK = "" """
^DD(160.171,6,21,11,0)="          ZERO  = ""0"""
^DD(160.171,6,21,12,0)="          NINE  = ""9"""
^DD(160.171,6,"DT")="2970509"
^DD(160.171,"B","ACTION",4)=""
^DD(160.171,"B","DEFAULT",5)=""
^DD(160.171,"B","ENDING POSITION",2)=""
^DD(160.171,"B","FILL",6)=""
^DD(160.171,"B","LENGTH",1)=""
^DD(160.171,"B","NAME",3)=""
^DD(160.171,"B","STARTING POSITION",.01)=""
^DD(160.171,"GL",0,1,.01)=""
^DD(160.171,"GL",0,2,1)=""
^DD(160.171,"GL",0,3,2)=""
^DD(160.171,"GL",0,4,3)=""
^DD(160.171,"GL",1,1,4)=""
^DD(160.171,"GL",2,1,5)=""
^DD(160.171,"GL",3,1,6)=""
^DD(160.171,"IX",.01)=""
^DD(160.171,"IX",3)=""
^DD(160.171,"RQ",.01)=""
^DD(160.171,"RQ",3)=""
^DD(160.172,0)="RULES SUB-FIELD^^.01^1"
^DD(160.172,0,"NM","RULES")=""
^DD(160.172,0,"UP")="160.17"
^DD(160.172,.01,0)="RULES^W^^0;1^Q"
^DD(160.172,.01,"DT")="2970618"
^DD(160.172,"B","RULES",.01)=""
^DD(160.172,"GL",0,1,.01)=""
^DD(160.18,0)="AUTHORIZED QA USER SUB-FIELD^^.01^1"
^DD(160.18,0,"DT")="2990726"
^DD(160.18,0,"IX","B",160.18,.01)=""
^DD(160.18,0,"NM","AUTHORIZED QA USER")=""
^DD(160.18,0,"UP")="160.1"
^DD(160.18,.01,0)="QA USER^MP200'^VA(200,^0;1^Q"
^DD(160.18,.01,1,0)="^.1"
^DD(160.18,.01,1,1,0)="160.18^B"
^DD(160.18,.01,1,1,1)="S ^ONCO(160.1,DA(1),""QAU"",""B"",$E(X,1,30),DA)="""""
^DD(160.18,.01,1,1,2)="K ^ONCO(160.1,DA(1),""QAU"",""B"",$E(X,1,30),DA)"
^DD(160.18,.01,1,2,0)="160.1^AD"
^DD(160.18,.01,1,2,1)="S ^ONCO(160.1,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(160.18,.01,1,2,2)="K ^ONCO(160.1,""AD"",$E(X,1,30),DA(1),DA)"
^DD(160.18,.01,1,2,"%D",0)="^^1^1^2990726^"
^DD(160.18,.01,1,2,"%D",1,0)="This is a cross-reference of AUTHORIZED QA USERS."
^DD(160.18,.01,1,2,"DT")="2990726"
^DD(160.18,.01,21,0)="^.001^3^3^3000426^^^^"
^DD(160.18,.01,21,1,0)=""
^DD(160.18,.01,21,2,0)="Select a user who is authorized to produce QA reports."
^DD(160.18,.01,21,3,0)=""
^DD(160.18,.01,"DT")="2990726"
^DD(160.18,"B","QA USER",.01)=""
^DD(160.18,"GL",0,1,.01)=""
^DD(160.18,"IX",.01)=""
^DD(160.19,0)="FIELD^^99^5"
^DD(160.19,0,"DDA")="N"
^DD(160.19,0,"DT")="3030812"
^DD(160.19,0,"ID",.02)="W $E($P(^(0),U,2),1,37)"
^DD(160.19,0,"ID",.03)="W ?54,$P(^(0),U,3)"
^DD(160.19,0,"ID",.04)="W ?77,$P(^(0),U,4)"
^DD(160.19,0,"IX","B",160.19,.01)=""
^DD(160.19,0,"IX","BA",160.19,.01)=""
^DD(160.19,0,"IX","C",160.19,.02)=""
^DD(160.19,0,"IX","D",160.19,.03)=""
^DD(160.19,0,"IX","E",160.19,.02)=""
^DD(160.19,0,"NM","FACILITY")=""
^DD(160.19,0,"PT",160,24.5)=""
^DD(160.19,0,"PT",160.04,10)=""
^DD(160.19,0,"PT",160.1,27)=""
^DD(160.19,0,"PT",165.5,.03)=""
^DD(160.19,0,"PT",165.5,5)=""
^DD(160.19,0,"PT",165.5,6)=""
^DD(160.19,0,"PT",165.5,7)=""
^DD(160.19,0,"PT",165.5,50.1)=""
^DD(160.19,0,"PT",165.5,51.1)=""
^DD(160.19,0,"PT",165.5,52.1)=""
^DD(160.19,0,"PT",165.5,53.1)=""
^DD(160.19,0,"PT",165.5,54.1)=""
^DD(160.19,0,"PT",165.5,55.1)=""
^DD(160.19,0,"PT",165.5,57.1)=""
^DD(160.19,0,"PT",165.51,2)=""
^DD(160.19,0,"VR")="2.11"
^DD(160.19,0,"VRPK")="ONC"
^DD(160.19,.01,0)="FIN^RFX^^0;1^K:($L(X)>8)!($L(X)<7) X"
^DD(160.19,.01,1,0)="^.1"
^DD(160.19,.01,1,1,0)="160.19^B"
^DD(160.19,.01,1,1,1)="S ^ONCO(160.19,""B"",$E(X,1,30),DA)="""""
^DD(160.19,.01,1,1,2)="K ^ONCO(160.19,""B"",$E(X,1,30),DA)"
^DD(160.19,.01,1,2,0)="160.19^BA^MUMPS"
^DD(160.19,.01,1,2,1)="S ^ONCO(160.19,""BA"",X_"" "",DA)="""""
^DD(160.19,.01,1,2,2)="K ^ONCO(160.19,""BA"",X_"" "",DA)"
^DD(160.19,.01,1,2,"%D",0)="^.101^2^2^3030814^^"
^DD(160.19,.01,1,2,"%D",1,0)="This cross-reference will concatinate a space onto"
^DD(160.19,.01,1,2,"%D",2,0)="the FIN to allow for partial entry lookups."
^DD(160.19,.01,1,2,"DT")="2960409"
^DD(160.19,.01,3)="Enter either 7-digit pre-2001 FIN or 8-digit 2001+ FIN."
^DD(160.19,.01,21,0)="^.001^15^15^3030814^^^^"
^DD(160.19,.01,21,1,0)=""
^DD(160.19,.01,21,2,0)="A code assigned to each facility identifying who is sending the"
^DD(160.19,.01,21,3,0)="record."
^DD(160.19,.01,21,4,0)=""
^DD(160.19,.01,21,5,0)="For facilities with a 7-digit FIN, enter the 7-digit facility-"
^DD(160.19,.01,21,6,0)="specific code in the range 6020009-6953290 that was assigned by"
^DD(160.19,.01,21,7,0)="the COC before January 1, 2001."
^DD(160.19,.01,21,8,0)=""
^DD(160.19,.01,21,9,0)="NOTE: 7-digit FIN codes consist of a constant ""6"" following a"
^DD(160.19,.01,21,10,0)="      6-digit facility-specific code (e.g. 6_020009 = 6020009)."
^DD(160.19,.01,21,11,0)="      Enter all 7 digits, including the ""6"" prefix."
^DD(160.19,.01,21,12,0)="      "
^DD(160.19,.01,21,13,0)="For facilities with a 8-digit FIN greater than or equal to 10000000"
^DD(160.19,.01,21,14,0)="that was assigned by the COC after January 1, 2001, enter the full"
^DD(160.19,.01,21,15,0)="8-digit code."
^DD(160.19,.01,"DT")="3030814"
^DD(160.19,.02,0)="NAME^RF^^0;2^K:$L(X)>65!($L(X)<3) X"
^DD(160.19,.02,1,0)="^.1"
^DD(160.19,.02,1,1,0)="160.19^C^KWIC"
^DD(160.19,.02,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^ONCO(160.19,""C"",I,DA)="""""
^DD(160.19,.02,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ONCO(160.19,""C"",I,DA)"
^DD(160.19,.02,1,1,"%D",0)="^^2^2^2960129^"
^DD(160.19,.02,1,1,"%D",1,0)="Key word in context reference to allow lookup of a hospital by using"
^DD(160.19,.02,1,1,"%D",2,0)="part of its name."
^DD(160.19,.02,1,1,"DT")="2960129"
^DD(160.19,.02,1,2,0)="160.19^E"
^DD(160.19,.02,1,2,1)="S ^ONCO(160.19,""E"",$E(X,1,30),DA)="""""
^DD(160.19,.02,1,2,2)="K ^ONCO(160.19,""E"",$E(X,1,30),DA)"
^DD(160.19,.02,1,2,"DT")="2960206"
^DD(160.19,.02,3)="Answer must be 3-65 characters in length."
^DD(160.19,.02,21,0)="^.001^1^1^3000324^^^"
^DD(160.19,.02,21,1,0)="This is the full name of the facility."
^DD(160.19,.02,"DT")="2970206"
^DD(160.19,.03,0)="CITY^F^^0;3^K:$L(X)>25!($L(X)<2) X"
^DD(160.19,.03,1,0)="^.1"
^DD(160.19,.03,1,1,0)="160.19^D"
^DD(160.19,.03,1,1,1)="S ^ONCO(160.19,""D"",$E(X,1,30),DA)="""""
^DD(160.19,.03,1,1,2)="K ^ONCO(160.19,""D"",$E(X,1,30),DA)"
^DD(160.19,.03,1,1,"DT")="2960129"
^DD(160.19,.03,3)="Answer must be 2-25 characters in length."
^DD(160.19,.03,21,0)="^^1^1^2960206^^"
^DD(160.19,.03,21,1,0)="City where the hospital is located."
^DD(160.19,.03,"DT")="2960206"
^DD(160.19,.04,0)="STATE^FX^^0;4^K:$L(X)>2!($L(X)<2)!'(X?2A)!'$D(^ONCO(160.15,""B"",X)) X"
^DD(160.19,.04,1,0)="^.1^^0"
^DD(160.19,.04,3)="Enter the 2 character state abbreviation."
^DD(160.19,.04,4)=""
^DD(160.19,.04,21,0)="^.001^20^20^3030813^^^^"
^DD(160.19,.04,21,1,0)=""
^DD(160.19,.04,21,2,0)="Enter the 2 character state abbreviation."
^DD(160.19,.04,21,3,0)=""
^DD(160.19,.04,21,4,0)="AK  Alaska            KY  Kentucky         NY  New York"
^DD(160.19,.04,21,5,0)="AL  Alabama           LA  Louisiana        OH  Ohio"
^DD(160.19,.04,21,6,0)="AR  Arkansas          MA  Massachusetts    OK  Oklahoma"
^DD(160.19,.04,21,7,0)="AZ  Arizona           MD  Maryland         OR  Oregon"
^DD(160.19,.04,21,8,0)="CA  California        ME  Maine            PA  Pennsylvania"
^DD(160.19,.04,21,9,0)="CO  Colorado          MI  Michigan         RI  Rhode Island"
^DD(160.19,.04,21,10,0)="CT  Connecticut       MN  Minnesota        SC  South Carolina"
^DD(160.19,.04,21,11,0)="DC  Dist of Columbia  MO  Missouri         SD  South Dakota"
^DD(160.19,.04,21,12,0)="DE  Delaware          MS  Mississippi      TN  Tennessee"
^DD(160.19,.04,21,13,0)="FL  Florida           MT  Montana          TX  Texas"
^DD(160.19,.04,21,14,0)="GA  Georgia           NC  North Carolina   UT  Utah"
^DD(160.19,.04,21,15,0)="HI  Hawaii            ND  North Dakota     VA  Virginia"
^DD(160.19,.04,21,16,0)="IA  Iowa              NE  Nebraska         VT  Vermont"
^DD(160.19,.04,21,17,0)="ID  Idaho             NH  New Hampshire    WA  Washington"
^DD(160.19,.04,21,18,0)="IL  Illinois          NJ  New Jersey       WI  Wisconsin"
^DD(160.19,.04,21,19,0)="IN  Indiana           NM  New Mexico       WV  West Virginia"
^DD(160.19,.04,21,20,0)="KS  Kansas            NV  Nevada           WY  Wyoming"
^DD(160.19,.04,"DT")="3030812"
^DD(160.19,99,0)="STATUS^S^0:NOT ACTIVE;^99;1^Q"
^DD(160.19,99,3)="Enter '0' (NOT ACTIVE) if the ACOS Number is no longer valid."
^DD(160.19,99,21,0)="^^2^2^2960126^^"
^DD(160.19,99,21,1,0)="Denotes wheather or not an ACOS NUMBER is active or not."
^DD(160.19,99,21,2,0)="No data means the entry is active."
^DD(160.19,99,"DT")="2960126"
^DD(160.19,"B","CITY",.03)=""
^DD(160.19,"B","FIN",.01)=""
^DD(160.19,"B","NAME",.02)=""
^DD(160.19,"B","STATE",.04)=""
^DD(160.19,"B","STATUS",99)=""
^DD(160.19,"GL",0,1,.01)=""
^DD(160.19,"GL",0,2,.02)=""
^DD(160.19,"GL",0,3,.03)=""
^DD(160.19,"GL",0,4,.04)=""
^DD(160.19,"GL",99,1,99)=""
^DD(160.19,"IX",.01)=""
^DD(160.19,"IX",.02)=""
^DD(160.19,"IX",.03)=""
^DD(160.19,"RQ",.01)=""
^DD(160.19,"RQ",.02)=""
^DD(160.2,0)="FIELD^NL^3^4"
^DD(160.2,0,"DDA")="N"
^DD(160.2,0,"DT")="2920711"
^DD(160.2,0,"IX","AP",160.2,.02)=""
^DD(160.2,0,"IX","B",160.2,.01)=""
^DD(160.2,0,"NM","FORMS/INSTRUCTIONS")=""
^DD(160.2,0,"VER")="2.0"
^DD(160.2,0,"VR")="2.11"
^DD(160.2,0,"VRPK")="ONC"
^DD(160.2,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(160.2,.01,1,0)="^.1^^-1"
^DD(160.2,.01,1,1,0)="160.2^B"
^DD(160.2,.01,1,1,1)="S ^ONCO(160.2,""B"",$E(X,1,30),DA)="""""
^DD(160.2,.01,1,1,2)="K ^ONCO(160.2,""B"",$E(X,1,30),DA)"
^DD(160.2,.01,1,1,"DT")="2920710"
^DD(160.2,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(160.2,.01,21,0)="^^1^1^2920523^^"
^DD(160.2,.01,21,1,0)="Enter contact MD, Institution, or non-kin Oncology related contact."
^DD(160.2,.01,"DT")="2930903"
^DD(160.2,.02,0)="PROTECTION^RS^Y:PROTECT ENTRY FROM DELETION;N:DO NOT PROTECT ENTRY;^0;3^Q"
^DD(160.2,.02,1,0)="^.1"
^DD(160.2,.02,1,1,0)="160.2^AP^MUMPS"
^DD(160.2,.02,1,1,1)="S $P(^ONCO(160.2,DA,0),U,2)=$S(X=""Y"":1,1:"""")"
^DD(160.2,.02,1,1,2)="Q"
^DD(160.2,.02,1,1,3)="DO NOT DELETE"
^DD(160.2,.02,1,1,"%D",0)="^^1^1^2920711^"
^DD(160.2,.02,1,1,"%D",1,0)="ALLOWS user to protect new entries from deletion."
^DD(160.2,.02,1,1,"DT")="2920711"
^DD(160.2,.02,3)="Protect entry if you do not want to lose it!"
^DD(160.2,.02,21,0)="^^1^1^2930819^"
^DD(160.2,.02,21,1,0)="This field is used to protect entries from being deleted."
^DD(160.2,.02,"DT")="2920711"
^DD(160.2,1,0)="MAIN FORM BODY^160.21^^1;0"
^DD(160.2,1,21,0)="^^1^1^2950301^^^"
^DD(160.2,1,21,1,0)="This is the main body of the follow-up form letter."
^DD(160.2,3,0)="DESCRIPTION^160.23^^2;0"
^DD(160.2,3,21,0)="^^2^2^2920523^^"
^DD(160.2,3,21,1,0)="This field allows the Tumor Registrar to define and describe each"
^DD(160.2,3,21,2,0)="letter. Also it allows for the description of letters exported."
^DD(160.2,"B","DESCRIPTION",3)=""
^DD(160.2,"B","MAIN FORM BODY",1)=""
^DD(160.2,"B","NAME",.01)=""
^DD(160.2,"B","PROTECTION",.02)=""
^DD(160.2,"GL",0,1,.01)=""
^DD(160.2,"GL",0,3,.02)=""
^DD(160.2,"GL",1,0,1)=""
^DD(160.2,"GL",2,0,3)=""
^DD(160.2,"IX",.01)=""
^DD(160.2,"IX",.02)=""
^DD(160.2,"RQ",.01)=""
^DD(160.2,"RQ",.02)=""
^DD(160.2,"SB",160.21,1)=""
^DD(160.2,"SB",160.23,3)=""
^DD(160.21,0)="MAIN FORM BODY SUB-FIELD^^.01^1"
^DD(160.21,0,"NM","MAIN FORM BODY")=""
^DD(160.21,0,"UP")="160.2"
^DD(160.21,.01,0)="MAIN FORM BODY^W^^0;1^Q"
^DD(160.21,.01,21,0)="^^1^1^2950301^"
^DD(160.21,.01,21,1,0)="This is the main body of the follow-up form letter."
^DD(160.21,.01,"DT")="2871223"
^DD(160.21,"B","MAIN FORM BODY",.01)=""
^DD(160.21,"GL",0,1,.01)=""
^DD(160.22,0)="AFFILIATED DIVISION SUB-FIELD^^.01^1"
^DD(160.22,0,"DT")="2991220"
^DD(160.22,0,"IX","B",160.22,.01)=""
^DD(160.22,0,"NM","AFFILIATED DIVISION")=""
^DD(160.22,0,"UP")="160.1"
^DD(160.22,.01,0)="AFFILIATED DIVISION^MP4'^DIC(4,^0;1^Q"
^DD(160.22,.01,1,0)="^.1"
^DD(160.22,.01,1,1,0)="160.22^B"
^DD(160.22,.01,1,1,1)="S ^ONCO(160.1,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(160.22,.01,1,1,2)="K ^ONCO(160.1,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(160.22,.01,21,0)="^^7^7^2991220^^^"
^DD(160.22,.01,21,1,0)=""
^DD(160.22,.01,21,2,0)=""
^DD(160.22,.01,21,3,0)="AFFILIATED DIVISION is a division that is affiliated with the primary"
^DD(160.22,.01,21,4,0)="division for purposes of Tumor Registry."
^DD(160.22,.01,21,5,0)=""
^DD(160.22,.01,21,6,0)="e.g. CANANDAIGUA, NY is an AFFILIATED DIVISION of BUFFALO, NY."
^DD(160.22,.01,21,7,0)=" "
^DD(160.22,.01,"DT")="2991220"
^DD(160.22,"B","AFFILIATED DIVISION",.01)=""
^DD(160.22,"GL",0,1,.01)=""
^DD(160.22,"IX",.01)=""
^DD(160.23,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(160.23,0,"NM","DESCRIPTION")=""
^DD(160.23,0,"UP")="160.2"
^DD(160.23,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(160.23,.01,21,0)="^^1^1^2910507^"
^DD(160.23,.01,21,1,0)="Describes purpose of letter."
^DD(160.23,.01,"DT")="2910507"
^DD(160.23,"B","DESCRIPTION",.01)=""
^DD(160.23,"GL",0,1,.01)=""
^DD(160.3,0)="FIELD^^1^2"
^DD(160.3,0,"DDA")="N"
^DD(160.3,0,"DT")="2960110"
^DD(160.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(160.3,0,"IX","B",160.3,.01)=""
^DD(160.3,0,"IX","C",160.3,1)=""
^DD(160.3,0,"IX","D",160.3,1)=""
^DD(160.3,0,"NM","PRIMARY PAYER AT DIAGNOSIS")=""
^DD(160.3,0,"PT",165.5,18)=""
^DD(160.3,0,"VR")="2.11"
^DD(160.3,0,"VRPK")="ONC"
^DD(160.3,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(160.3,.01,1,0)="^.1"
^DD(160.3,.01,1,1,0)="160.3^B"
^DD(160.3,.01,1,1,1)="S ^ONCO(160.3,""B"",$E(X,1,30),DA)="""""
^DD(160.3,.01,1,1,2)="K ^ONCO(160.3,""B"",$E(X,1,30),DA)"
^DD(160.3,.01,3)="Answer must be 2 characters in length."
^DD(160.3,.01,21,0)="^^2^2^2960110^^^^"
^DD(160.3,.01,21,1,0)="The patient's primary payor/insurance carrier code at the time of"
^DD(160.3,.01,21,2,0)="initial diagnosis and/or treatment."
^DD(160.3,.01,"DT")="2960110"
^DD(160.3,1,0)="DEFINITION^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(160.3,1,1,0)="^.1"
^DD(160.3,1,1,1,0)="160.3^C"
^DD(160.3,1,1,1,1)="S ^ONCO(160.3,""C"",$E(X,1,30),DA)="""""
^DD(160.3,1,1,1,2)="K ^ONCO(160.3,""C"",$E(X,1,30),DA)"
^DD(160.3,1,1,1,"%D",0)="^^1^1^3060811^"
^DD(160.3,1,1,1,"%D",1,0)="This cross-reference allows look-up by DEFINITION."
^DD(160.3,1,1,1,"DT")="2990716"
^DD(160.3,1,1,2,0)="160.3^D^MUMPS"
^DD(160.3,1,1,2,1)="D UCASE^ONCOU S ^ONCO(160.3,""D"",$E(X,1,30),DA)="""""
^DD(160.3,1,1,2,2)="D UCASE^ONCOU K ^ONCO(160.3,""D"",$E(X,1,30),DA)"
^DD(160.3,1,1,2,"%D",0)="^^1^1^3060811^"
^DD(160.3,1,1,2,"%D",1,0)="This cross-reference allows uppercase look-up by DEFINITION. "
^DD(160.3,1,1,2,"DT")="3060811"
^DD(160.3,1,3)="Answer must be 1-40 characters in length."
^DD(160.3,1,21,0)="^^1^1^2960110^^^"
^DD(160.3,1,21,1,0)="The definition of the PRIMARY PAYOR AT DIAGNOSIS code value."
^DD(160.3,1,"DT")="3060811"
^DD(160.3,"B","CODE",.01)=""
^DD(160.3,"B","DEFINITION",1)=""
^DD(160.3,"GL",0,1,.01)=""
^DD(160.3,"GL",0,2,1)=""
^DD(160.3,"IX",.01)=""
^DD(160.3,"IX",1)=""
^DD(160.3,"RQ",.01)=""
^DD(160.4,0)="FIELD^^1^2"
^DD(160.4,0,"DDA")="N"
^DD(160.4,0,"DT")="2960112"
^DD(160.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(160.4,0,"IX","B",160.4,.01)=""
^DD(160.4,0,"NM","RECONSTRUCTIVE SURGERY")=""
^DD(160.4,0,"VR")="2.11"
^DD(160.4,0,"VRPK")="ONC"
^DD(160.4,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(160.4,.01,1,0)="^.1"
^DD(160.4,.01,1,1,0)="160.4^B"
^DD(160.4,.01,1,1,1)="S ^ONCO(160.4,""B"",$E(X,1,30),DA)="""""
^DD(160.4,.01,1,1,2)="K ^ONCO(160.4,""B"",$E(X,1,30),DA)"
^DD(160.4,.01,3)="Answer must be 1 character in length."
^DD(160.4,.01,21,0)="^^5^5^2960112^^"
^DD(160.4,.01,21,1,0)="RECONSTRUCTIVE SURGERY reconstructs, restores, or improves the shape and"
^DD(160.4,.01,21,2,0)="appearance or function of body structures that are missing, defective,"
^DD(160.4,.01,21,3,0)="damaged or misshapen by cancer or cancer-directed therapies."
^DD(160.4,.01,21,4,0)="Reconstruction may be a part of the first course of therapy or may be"
^DD(160.4,.01,21,5,0)="done after the first course is completed."
^DD(160.4,.01,"DT")="2960112"
^DD(160.4,1,0)="DEFINITION^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(160.4,1,3)="Answer must be 1-70 characters in length."
^DD(160.4,1,21,0)="^^1^1^2960112^"
^DD(160.4,1,21,1,0)="Definition of RECONSTRUCTIVE SURGERY codes."
^DD(160.4,1,"DT")="2960112"
^DD(160.4,"B","CODE",.01)=""
^DD(160.4,"B","DEFINITION",1)=""
^DD(160.4,"GL",0,1,.01)=""
^DD(160.4,"GL",0,2,1)=""
^DD(160.4,"IX",.01)=""
^DD(160.4,"RQ",.01)=""
^DD(160.45,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(160.45,0,"NM","COMMENTS")=""
^DD(160.45,0,"UP")="160.04"
^DD(160.45,.01,0)="COMMENTS^W^^0;1^Q"
^DD(160.45,.01,21,0)="^^1^1^2930930^"
^DD(160.45,.01,21,1,0)="This is the word-processing text of the comment."
^DD(160.45,.01,"DT")="2870918"
^DD(160.45,"B","COMMENTS",.01)=""
^DD(160.45,"GL",0,1,.01)=""
^DD(160.6,0)="FIELD^^1^2"
^DD(160.6,0,"DDA")="N"
^DD(160.6,0,"DT")="2960118"
^DD(160.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(160.6,0,"IX","B",160.6,.01)=""
^DD(160.6,0,"NM","SURGICAL APPROACH")=""
^DD(160.6,0,"VR")="2.11"
^DD(160.6,0,"VRPK")="ONC"
^DD(160.6,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(160.6,.01,1,0)="^.1"
^DD(160.6,.01,1,1,0)="160.6^B"
^DD(160.6,.01,1,1,1)="S ^ONCO(160.6,""B"",$E(X,1,30),DA)="""""
^DD(160.6,.01,1,1,2)="K ^ONCO(160.6,""B"",$E(X,1,30),DA)"
^DD(160.6,.01,3)="Answer must be 1 character in length."
^DD(160.6,.01,21,0)="^^10^10^2960112^"
^DD(160.6,.01,21,1,0)="SURGICAL APPROACH describes the method used to approach the surgical field."
^DD(160.6,.01,21,2,0)="Use codes 1-9 only if the patient had cancer-directed surgery of the"
^DD(160.6,.01,21,3,0)="primary site.  Use code 0 if the patient did not have cancer-directed"
^DD(160.6,.01,21,4,0)="surgery of the primary site."
^DD(160.6,.01,21,5,0)=" "
^DD(160.6,.01,21,6,0)="Use code 9 for TURP, TURB, and colonoscope with polypectomy, etc."
^DD(160.6,.01,21,7,0)=" "
^DD(160.6,.01,21,8,0)="This item records information on the increasing use of less invasive"
^DD(160.6,.01,21,9,0)="procedures.  The data will make possible a comparative analysis of"
^DD(160.6,.01,21,10,0)="traditional and laparoscopic approaches."
^DD(160.6,.01,"DT")="2960112"
^DD(160.6,1,0)="DEFINITION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(160.6,1,3)="Answer must be 1-60 characters in length."
^DD(160.6,1,21,0)="^^1^1^2960118^^^"
^DD(160.6,1,21,1,0)="Definition of SURGICAL APPROACH codes."
^DD(160.6,1,"DT")="2960118"
^DD(160.6,"B","CODE",.01)=""
^DD(160.6,"B","DEFINITION",1)=""
^DD(160.6,"GL",0,1,.01)=""
^DD(160.6,"GL",0,2,1)=""
^DD(160.6,"IX",.01)=""
^DD(160.6,"RQ",.01)=""
^DD(161,0)="FIELD^^2^7"
^DD(161,0,"DDA")="N"
^DD(161,0,"DT")="2980929"
^DD(161,0,"IX","ACV",161.01,.04)=""
^DD(161,0,"IX","AE",161,.5)=""
^DD(161,0,"IX","AENR01",161.01,.01)=""
^DD(161,0,"IX","AENR02",161.01,.02)=""
^DD(161,0,"IX","AENR03",161.01,.03)=""
^DD(161,0,"IX","AENR095",161.01,.095)=""
^DD(161,0,"IX","AENR102",161.01,102)=""
^DD(161,0,"IX","AF",161.01,1)=""
^DD(161,0,"IX","AIC",161.01,.097)=""
^DD(161,0,"IX","AIC1",161.01,.01)=""
^DD(161,0,"IX","ATST",161.01,.01)=""
^DD(161,0,"IX","B",161,.01)=""
^DD(161,0,"IX","C",161,.5)=""
^DD(161,0,"NM","FEE BASIS PATIENT")=""
^DD(161,0,"PT",161.23,.04)=""
^DD(161,0,"PT",162.11,4)=""
^DD(161,0,"PT",162.3,1)=""
^DD(161,0,"PT",162.5,3)=""
^DD(161,0,"VR")="3.5"
^DD(161,0,"VRPK")="FB"
^DD(161,.01,0)="NAME^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(161,.01,1,0)="^.1"
^DD(161,.01,1,1,0)="161^B"
^DD(161,.01,1,1,1)="S ^FBAAA(""B"",$E(X,1,30),DA)="""""
^DD(161,.01,1,1,2)="K ^FBAAA(""B"",$E(X,1,30),DA)"
^DD(161,.01,3)=""
^DD(161,.01,21,0)="^^2^2^2930514^^"
^DD(161,.01,21,1,0)="The name of the patient who is requesting authorization for obtaining"
^DD(161,.01,21,2,0)="Fee services."
^DD(161,.5,0)="FEE ID CARD NUMBER^FX^^4;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<5) X I $D(X),$D(^FBAAA(""AE"",X))!($D(^FBAA(161.83,""C"",X))) W !,""You cannot assign that number because it already has been assigned!"" K X"
^DD(161,.5,1,0)="^.1"
^DD(161,.5,1,1,0)="161^AE"
^DD(161,.5,1,1,1)="S ^FBAAA(""AE"",$E(X,1,30),DA)="""""
^DD(161,.5,1,1,2)="K ^FBAAA(""AE"",$E(X,1,30),DA)"
^DD(161,.5,1,3,0)="161^C"
^DD(161,.5,1,3,1)="S ^FBAAA(""C"",$E(X,1,30),DA)="""""
^DD(161,.5,1,3,2)="K ^FBAAA(""C"",$E(X,1,30),DA)"
^DD(161,.5,1,3,"%D",0)="^^2^2^2930423^"
^DD(161,.5,1,3,"%D",1,0)="This cross-reference will allow a user to look-up a fee patient"
^DD(161,.5,1,3,"%D",2,0)="with the Fee ID Card number."
^DD(161,.5,1,3,"DT")="2930423"
^DD(161,.5,3)="ANSWER MUST BE 5-7 CHARACTERS IN LENGTH"
^DD(161,.5,21,0)="^^2^2^2870108^"
^DD(161,.5,21,1,0)="The number pre-printed on the Fee ID Card assigned (given) to the patient."
^DD(161,.5,21,2,0)="The patient can only have one number assigned to him/her at a given time."
^DD(161,.5,"DT")="2930701"
^DD(161,.6,0)="FEE ID CARD ISSUE DATE^D^^4;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161,.6,21,0)="^^1^1^2870108^"
^DD(161,.6,21,1,0)="The date that the Fee ID Card was issued to the patient."
^DD(161,.6,"DT")="2851212"
^DD(161,.65,0)="FEE ID CARD EXPIRATION DATE^D^^4;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161,.65,21,0)="^^2^2^2880608^^^"
^DD(161,.65,21,1,0)="This field contains the expiration date for a patient's"
^DD(161,.65,21,2,0)="ID card."
^DD(161,.65,"DT")="2870129"
^DD(161,.7,0)="REASON FOR CARD NUMBER CHANGE^RF^^4;3^K:$L(X)>80!($L(X)<2) X"
^DD(161,.7,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(161,.7,21,0)="^^1^1^2930601^^"
^DD(161,.7,21,1,0)="The reason that the patient's Fee ID Card number was changed or terminated."
^DD(161,.7,"DT")="2860411"
^DD(161,1,0)="AUTHORIZATION^161.01ID^^1;0"
^DD(161,1,21,0)="^^2^2^2930603^^^^"
^DD(161,1,21,1,0)="This data is related to specific validity periods where the veteran"
^DD(161,1,21,2,0)="is authorized to obtain Fee services and the VA will reimburse."
^DD(161,1,"DT")="2930603"
^DD(161,2,0)="REPORT OF CONTACT^161.02D^^2;0"
^DD(161,2,21,0)="^^3^3^2930514^^"
^DD(161,2,21,1,0)="Contains information relating to the initial contact between the VA and"
^DD(161,2,21,2,0)="a patient's representative, regarding patient treatment at a non-VA"
^DD(161,2,21,3,0)="facility."
^DD(161,"B","AUTHORIZATION",1)=""
^DD(161,"B","FEE ID CARD EXPIRATION DATE",.65)=""
^DD(161,"B","FEE ID CARD ISSUE DATE",.6)=""
^DD(161,"B","FEE ID CARD NUMBER",.5)=""
^DD(161,"B","NAME",.01)=""
^DD(161,"B","REASON FOR CARD NUMBER CHANGE",.7)=""
^DD(161,"B","REPORT OF CONTACT",2)=""
^DD(161,"GL",0,1,.01)=""
^DD(161,"GL",1,0,1)=""
^DD(161,"GL",2,0,2)=""
^DD(161,"GL",4,1,.5)=""
^DD(161,"GL",4,2,.6)=""
^DD(161,"GL",4,3,.7)=""
^DD(161,"GL",4,4,.65)=""
^DD(161,"IX",.01)=""
^DD(161,"IX",.5)=""
^DD(161,"RQ",.01)=""
^DD(161,"RQ",.7)=""
^DD(161,"SB",161.01,1)=""
^DD(161,"SB",161.02,2)=""
^DD(161.01,0)="AUTHORIZATION SUB-FIELD^NL^103^22"
^DD(161.01,0,"DT")="2980929"
^DD(161.01,0,"IX","AA",161.01,.096)=""
^DD(161.01,0,"IX","AC",161.01,.097)=""
^DD(161.01,0,"IX","AF",161.01,1)=""
^DD(161.01,0,"IX","AG",161.01,.055)=""
^DD(161.01,0,"IX","B",161.01,.01)=""
^DD(161.01,0,"NM","AUTHORIZATION")=""
^DD(161.01,0,"UP")="161"
^DD(161.01,.01,0)="FROM DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.01,.01,1,0)="^.1"
^DD(161.01,.01,1,1,0)="161^AIC1^MUMPS"
^DD(161.01,.01,1,1,1)="S:$P(^FBAAA(DA(1),1,DA,0),U,20)]"""" ^FBAAA(""AIC"",DA(1),-X,$P(^FBAAA(DA(1),1,DA,0),U,20),DA)="""""
^DD(161.01,.01,1,1,2)="K:$P(^FBAAA(DA(1),1,DA,0),U,20)]"""" ^FBAAA(""AIC"",DA(1),-X,$P(^FBAAA(DA(1),1,DA,0),U,20),DA)"
^DD(161.01,.01,1,1,"%D",0)="2^^2^2^2930514^^^"
^DD(161.01,.01,1,1,"%D",1,0)="Cross-reference used to identify potential billables using inverse date."
^DD(161.01,.01,1,1,"%D",2,0)="Used to set ""AIC"" cross-reference on field .097, POTENTIAL COST RECOVERY CASE."
^DD(161.01,.01,1,1,"DT")="2930326"
^DD(161.01,.01,1,2,0)="161^ATST"
^DD(161.01,.01,1,2,1)="S ^FBAAA(""ATST"",$E(X,1,30),DA(1),DA)="""""
^DD(161.01,.01,1,2,2)="K ^FBAAA(""ATST"",$E(X,1,30),DA(1),DA)"
^DD(161.01,.01,1,2,"DT")="2921014"
^DD(161.01,.01,1,3,0)="161.01^B"
^DD(161.01,.01,1,3,1)="S ^FBAAA(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(161.01,.01,1,3,2)="K ^FBAAA(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(161.01,.01,1,3,"DT")="2980929"
^DD(161.01,.01,1,4,0)="161^AENR01^MUMPS"
^DD(161.01,.01,1,4,1)="D:'$D(DIU(0)) EVENT^IVMPLOG(DA(1))"
^DD(161.01,.01,1,4,2)="D:'$D(DIU(0)) EVENT^IVMPLOG(DA(1))"
^DD(161.01,.01,1,4,"%D",0)="^^1^1^2980723^^"
^DD(161.01,.01,1,4,"%D",1,0)="Notify HEC of changes to FEE Authorization."
^DD(161.01,.01,1,4,"DT")="2980723"
^DD(161.01,.01,21,0)="^^4^4^2930603^^^^"
^DD(161.01,.01,21,1,0)="The beginning date for which the patient is authorized to obtain services"
^DD(161.01,.01,21,2,0)="from private vendors. For every claim made by a vendor for this patient,"
^DD(161.01,.01,21,3,0)="this date will be checked to insure that the date the service was provided"
^DD(161.01,.01,21,4,0)="was on or after this date."
^DD(161.01,.01,"DEL",.01,0)="I $$DELA^FBUCDD1(.DA,1)"
^DD(161.01,.01,"DT")="2980929"
^DD(161.01,.02,0)="TO DATE^RDX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FBAAA(DA(1),1,DA,0),U,1)>X K X W !!,""To Date cannot be earlier than From Date!"",!"
^DD(161.01,.02,1,0)="^.1"
^DD(161.01,.02,1,1,0)="161^AENR02^MUMPS"
^DD(161.01,.02,1,1,1)="D:'$D(DIU(0)) EVENT^IVMPLOG(DA(1)),ENRLLMNT^FBGMT2(DA(1))"
^DD(161.01,.02,1,1,2)="Q"
^DD(161.01,.02,1,1,"%D",0)="^.101^1^1^3030305^^^^"
^DD(161.01,.02,1,1,"%D",1,0)="Notify HEC and Enrollment of changes to FEE Authorization."
^DD(161.01,.02,1,1,"DT")="3030228"
^DD(161.01,.02,21,0)="^^4^4^2930603^^^^"
^DD(161.01,.02,21,1,0)="The date through which the veteran may obtain services from private vendors,"
^DD(161.01,.02,21,2,0)="and which the VA will reimburse. For every claim submitted by a vendor,"
^DD(161.01,.02,21,3,0)="this date is compared with the date the service was provided, and "
^DD(161.01,.02,21,4,0)="service date must be on or before this date."
^DD(161.01,.02,"DT")="3030228"
^DD(161.01,.021,0)="AUTHORIZATION REMARKS^161.06^^2;0"
^DD(161.01,.021,21,0)="^^3^3^2880225^"
^DD(161.01,.021,21,1,0)="Used to identify limitations or detail specifics regarding the "
^DD(161.01,.021,21,2,0)="authorization. The information contained here is displayed during the"
^DD(161.01,.021,21,3,0)="enter payment option and also on patient inquiry option."
^DD(161.01,.03,0)="FEE PROGRAM^RP161.8'^FBAA(161.8,^0;3^Q"
^DD(161.01,.03,1,0)="^.1"
^DD(161.01,.03,1,1,0)="161^AENR03^MUMPS"
^DD(161.01,.03,1,1,1)="D:'$D(DIU(0)) EVENT^IVMPLOG(DA(1))"
^DD(161.01,.03,1,1,2)="Q"
^DD(161.01,.03,1,1,"%D",0)="^^1^1^2980723^^"
^DD(161.01,.03,1,1,"%D",1,0)="Notify HEC of changes to FEE Authorization."
^DD(161.01,.03,1,1,"DT")="2980723"
^DD(161.01,.03,3)=""
^DD(161.01,.03,21,0)="^^2^2^2880225^"
^DD(161.01,.03,21,1,0)="Links this authorization to one of the valid Fee programs (ie Medical,"
^DD(161.01,.03,21,2,0)="Contract Hospital, Community Nursing Home)."
^DD(161.01,.03,"DT")="2980723"
^DD(161.01,.04,0)="VENDOR^P161.2^FBAAV(^0;4^Q"
^DD(161.01,.04,1,0)="^.1"
^DD(161.01,.04,1,1,0)="161^ACV^MUMPS"
^DD(161.01,.04,1,1,1)="S ^FBAAA(""ACV"",$E(X,1,30),DA(1),DA)="""""
^DD(161.01,.04,1,1,2)="K ^FBAAA(""ACV"",$E(X,1,30),DA(1),DA)"
^DD(161.01,.04,1,1,"DT")="2931223"
^DD(161.01,.04,21,0)="^^2^2^2880225^"
^DD(161.01,.04,21,1,0)="The name of the vendor providing the veteran service if the authorization"
^DD(161.01,.04,21,2,0)="is limited to one specific vendor."
^DD(161.01,.04,"DT")="2931223"
^DD(161.01,.055,0)="ASSOCIATED 7078/583^V^^0;9^Q"
^DD(161.01,.055,1,0)="^.1"
^DD(161.01,.055,1,1,0)="161.01^AG^MUMPS"
^DD(161.01,.055,1,1,1)="S ^FBAAA(""AG"",$E(X,1,30),DA(1),DA)="""""
^DD(161.01,.055,1,1,2)="K ^FBAAA(""AG"",$E(X,1,30),DA(1),DA)"
^DD(161.01,.055,3)=""
^DD(161.01,.055,21,0)="^^2^2^2930514^^"
^DD(161.01,.055,21,1,0)="This field contains the related 7078/583 for the authorization.  It"
^DD(161.01,.055,21,2,0)="points to the 7078 file or the 583 file for an unauthorized claim."
^DD(161.01,.055,"DT")="2900919"
^DD(161.01,.055,"V",0)="^.12P^2^2"
^DD(161.01,.055,"V",1,0)="162.4^Select associated 7078^1^FB7078^n^n"
^DD(161.01,.055,"V",2,0)="162.7^Select associated 583^2^FB583^n^n"
^DD(161.01,.055,"V","B",162.4,1)=""
^DD(161.01,.055,"V","B",162.7,2)=""
^DD(161.01,.055,"V","M","Select associated 583",2)=""
^DD(161.01,.055,"V","M","Select associated 7078",1)=""
^DD(161.01,.055,"V","O",1,1)=""
^DD(161.01,.055,"V","O",2,2)=""
^DD(161.01,.055,"V","P","FB583",2)=""
^DD(161.01,.055,"V","P","FB7078",1)=""
^DD(161.01,.06,0)="DISCHARGE TYPE^S^1:TRANSFER TO VA;2:DEATH WITH AUTOPSY;3:DEATH WITHOUT AUTOPSY;4:DISCHARGE;^0;15^Q"
^DD(161.01,.06,21,0)="^^2^2^2890131^"
^DD(161.01,.06,21,1,0)="This field is filled in as part of the disposition process"
^DD(161.01,.06,21,2,0)="in contract hospital."
^DD(161.01,.06,"DT")="2890131"
^DD(161.01,.065,0)="PATIENT TYPE CODE^S^00:SURGICAL;10:MEDICAL;60:HOME NURSING SERVICE;85:PSYCHIATRIC-CONTRACT;86:PSYCHIATRIC;95:NEUROLOGICAL-CONTRACT;96:NEUROLOGICAL;^0;18^Q"
^DD(161.01,.065,21,0)="^^3^3^2880225^"
^DD(161.01,.065,21,1,0)="The code which indicates whether the patient is a medical, surgical,"
^DD(161.01,.065,21,2,0)="psychiatric or one of the other valid codes. See M-1, Part I, Chapter 18"
^DD(161.01,.065,21,3,0)="for specific detail."
^DD(161.01,.065,"DT")="2860221"
^DD(161.01,.07,0)="PURPOSE OF VISIT CODE^R*P161.82'^FBAA(161.82,^0;7^S DIC(""S"")=""I $S('$G(^(""""I"""")):1,DT'>^(""""I""""):1,1:0),$S('$D(FBTYPE):1,$P(^(0),U,2)=FBTYPE:1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(161.01,.07,12)="Allows selection of POV related to FEE Program being used...disallows selection of an inactive POV Code."
^DD(161.01,.07,12.1)="S DIC(""S"")=""I $S('$G(^(""""I"""")):1,DT'>^(""""I""""):1,1:0),$S('$D(FBTYPE):1,$P(^(0),U,2)=FBTYPE:1,1:0)"""
^DD(161.01,.07,21,0)="^^4^4^2930204^^^"
^DD(161.01,.07,21,1,0)="Used to indicate the purpose for the visit to the provider. Selection"
^DD(161.01,.07,21,2,0)="of these are screened based on the Fee program entered earlier. For "
^DD(161.01,.07,21,3,0)="example, if Outpatient Medical Fee Program is selected Purpose of visit"
^DD(161.01,.07,21,4,0)="of 'Authorized Contract Hospitalization' could not be selected."
^DD(161.01,.07,"DT")="2930204"
^DD(161.01,.08,0)="DX LINE 1^F^^0;8^K:$L(X)>60!($L(X)<3) X"
^DD(161.01,.08,.1)="DIAGNOSIS"
^DD(161.01,.08,3)="ANSWER MUST BE 3-60 CHARACTERS IN LENGTH"
^DD(161.01,.08,21,0)="^^1^1^2931012^^^^"
^DD(161.01,.08,21,1,0)="Patient's diagnosis for which this authorization is being issued.[LINE 1]"
^DD(161.01,.08,"DT")="2870316"
^DD(161.01,.085,0)="DX LINE 2^F^^3;1^K:$L(X)>60!($L(X)<2) X"
^DD(161.01,.085,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(161.01,.085,21,0)="^^2^2^2931012^^^^"
^DD(161.01,.085,21,1,0)="An additional 60 characters to continue the description of patient's "
^DD(161.01,.085,21,2,0)="diagnosis for which this authorization is being issued."
^DD(161.01,.085,"DT")="2870316"
^DD(161.01,.086,0)="DX LINE 3^F^^3;2^K:$L(X)>60!($L(X)<2) X"
^DD(161.01,.086,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(161.01,.086,21,0)="^^2^2^2931012^^^^"
^DD(161.01,.086,21,1,0)="An additional 60 characters to continue describing patient's diagnosis."
^DD(161.01,.086,21,2,0)="This is the diagnosis applicable to this authorization."
^DD(161.01,.086,"DT")="2870316"
^DD(161.01,.095,0)="TREATMENT TYPE CODE^R*S^1:SHORT TERM FEE STATUS;2:HOME NURSING SERVICES;3:I.D. CARD STATUS;4:STATE HOME;^0;13^Q"
^DD(161.01,.095,1,0)="^.1"
^DD(161.01,.095,1,1,0)="161^AENR095^MUMPS"
^DD(161.01,.095,1,1,1)="D:'$D(DIU(0)) EVENT^IVMPLOG(DA(1))"
^DD(161.01,.095,1,1,2)="Q"
^DD(161.01,.095,1,1,"%D",0)="^^1^1^2980723^^"
^DD(161.01,.095,1,1,"%D",1,0)="Notify HEC of changes to FEE Authorization."
^DD(161.01,.095,1,1,"DT")="2980723"
^DD(161.01,.095,12)="Select a value appropriate for the FEE program."
^DD(161.01,.095,12.1)="S DIC(""S"")=""I Y'=4"""
^DD(161.01,.095,21,0)="^^2^2^2980929^^^"
^DD(161.01,.095,21,1,0)="Indicates what the type of treatment this authorization is related to."
^DD(161.01,.095,21,2,0)="See M-1, Part 1, Chapter 18, for valid entries."
^DD(161.01,.095,"DT")="2980929"
^DD(161.01,.096,0)="ACCIDENT RELATED (Y/N)^FXO^^0;19^I $D(X) D YN^FBAAUTL3"
^DD(161.01,.096,1,0)="^.1"
^DD(161.01,.096,1,1,0)="161.01^AA^MUMPS"
^DD(161.01,.096,1,1,1)="S ^FBAAA(""AA"",X,$P(^FBAAA(DA(1),1,DA,0),U,1),DA(1),DA)="""""
^DD(161.01,.096,1,1,2)="K ^FBAAA(""AA"",X,$P(^FBAAA(DA(1),1,DA,0),U,1),DA(1),DA)"
^DD(161.01,.096,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.01,.096,2.1)="D OUTYN^FBAAUTL3"
^DD(161.01,.096,3)="Answer 'Yes' or '1' for YES and a 'No' or '0' for NO."
^DD(161.01,.096,21,0)="^^2^2^2940318^^^"
^DD(161.01,.096,21,1,0)="This field allows the fee system to track those authorizations"
^DD(161.01,.096,21,2,0)="that were issued for an accident related condition."
^DD(161.01,.096,"DT")="2940318"
^DD(161.01,.097,0)="POTENTIAL COST RECOVERY CASE^RFXO^^0;20^I $D(X) D YN^FBAAUTL3"
^DD(161.01,.097,.1)="POTENTIAL COST RECOVERY CASE (Y/N)"
^DD(161.01,.097,1,0)="^.1"
^DD(161.01,.097,1,1,0)="161.01^AC^MUMPS"
^DD(161.01,.097,1,1,1)="S ^FBAAA(""AC"",X,$P(^FBAAA(DA(1),1,DA,0),U,1),DA(1),DA)="""""
^DD(161.01,.097,1,1,2)="K ^FBAAA(""AC"",X,$P(^FBAAA(DA(1),1,DA,0),U,1),DA(1),DA)"
^DD(161.01,.097,1,2,0)="161^AIC^MUMPS"
^DD(161.01,.097,1,2,1)="S:$P(^FBAAA(DA(1),1,DA,0),U) ^FBAAA(""AIC"",DA(1),-($P(^FBAAA(DA(1),1,DA,0),U)),X,DA)="""""
^DD(161.01,.097,1,2,2)="K:$P(^FBAAA(DA(1),1,DA,0),U) ^FBAAA(""AIC"",DA(1),-($P(^FBAAA(DA(1),1,DA,0),U)),X,DA)"
^DD(161.01,.097,1,2,"%D",0)="^^1^1^2930514^^^^"
^DD(161.01,.097,1,2,"%D",1,0)="Cross-reference used to identify potential billables using inverse date."
^DD(161.01,.097,1,2,"DT")="2930326"
^DD(161.01,.097,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.01,.097,2.1)="D OUTYN^FBAAUTL3"
^DD(161.01,.097,3)="Answer a 'Yes' or '1' for YES and a 'No' or '0' for NO."
^DD(161.01,.097,21,0)="^^2^2^2930514^"
^DD(161.01,.097,21,1,0)="Determines if payment can be recovered from the veteran's insurance, or"
^DD(161.01,.097,21,2,0)="if payment can be recovered due to the veteran being a Cat. C patient."
^DD(161.01,.097,"DT")="2940318"
^DD(161.01,1,0)="PRINT AUTHORIZATION (Y/N)^FX^^C;1^I $D(X) D YN^FBAAUTL3"
^DD(161.01,1,1,0)="^.1"
^DD(161.01,1,1,1,0)="161.01^AF^MUMPS"
^DD(161.01,1,1,1,1)="D ADD^FBAAUTL2"
^DD(161.01,1,1,1,2)="D KILL^FBAAUTL2"
^DD(161.01,1,3)="Answer a 'Yes' or '1' for YES and a 'No' or '0' for NO."
^DD(161.01,1,4)=""
^DD(161.01,1,21,0)="^^2^2^2940701^^"
^DD(161.01,1,21,1,0)="Used to indicate whether a VA Form 7079, Request For Outpatient Services,"
^DD(161.01,1,21,2,0)="should be printed at the completion of entering the authorization data."
^DD(161.01,1,"DT")="2940525"
^DD(161.01,2,0)="TYPE OF CARE^S^1:C&P;2:OPT NSC;3:OPT SC;^0;14^Q"
^DD(161.01,2,21,0)="^^2^2^2880225^"
^DD(161.01,2,21,1,0)="Defines whether this authorization is related to OPT/NSC, OPT/SC, or C&P"
^DD(161.01,2,21,2,0)="type of care."
^DD(161.01,2,"DT")="2880324"
^DD(161.01,3,0)="DATE PRINTED^D^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.01,3,8.5)="~"
^DD(161.01,3,21,0)="^^1^1^2880225^^"
^DD(161.01,3,21,1,0)="The date the last 7079 was printed for this authorization."
^DD(161.01,100,0)="CLERK^P200'^VA(200,^100;1^Q"
^DD(161.01,100,8.5)="~"
^DD(161.01,100,21,0)="^^1^1^2880608^^^^"
^DD(161.01,100,21,1,0)="The last user to enter/edit data for this authorization."
^DD(161.01,100,"DT")="2900405"
^DD(161.01,101,0)="PRIMARY SERVICE AREA^RP4'^DIC(4,^0;5^Q"
^DD(161.01,101,.1)="PRIMARY SERVICE FACILITY"
^DD(161.01,101,21,0)="^^1^1^2941128^"
^DD(161.01,101,21,1,0)="The VA Hospital responsible for the veterans care."
^DD(161.01,101,"DT")="2900403"
^DD(161.01,102,0)="AUSTIN DELETE FLAG^FXO^^ADEL;1^I $D(X) D YN^FBAAUTL3"
^DD(161.01,102,1,0)="^.1"
^DD(161.01,102,1,1,0)="161^AENR102^MUMPS"
^DD(161.01,102,1,1,1)="D:'$D(DIU(0)) EVENT^IVMPLOG(DA(1))"
^DD(161.01,102,1,1,2)="D:'$D(DIU(0)) EVENT^IVMPLOG(DA(1))"
^DD(161.01,102,1,1,"%D",0)="^^1^1^2980723^^"
^DD(161.01,102,1,1,"%D",1,0)="Notify HEC of changes to FEE Authorization."
^DD(161.01,102,1,1,"DT")="2980723"
^DD(161.01,102,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.01,102,2.1)="D OUTYN^FBAAUTL3"
^DD(161.01,102,3)="Answer 'Yes' or '1' for YES and 'No' or '0' for NO."
^DD(161.01,102,21,0)="^^3^3^2920526^"
^DD(161.01,102,21,1,0)="This field will be populated when a 'Delete MRA' is transmitted to"
^DD(161.01,102,21,2,0)="Austin DPC. This field will also be used to screen out selection"
^DD(161.01,102,21,3,0)="for payments made to Austin."
^DD(161.01,102,"DT")="2980723"
^DD(161.01,103,0)="DATE DELETE MRA TRANSMITTED^D^^ADEL;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.01,103,21,0)="^^3^3^2920526^"
^DD(161.01,103,21,1,0)="This field will be set internally when a 'Delete Veteran MRA' is sent"
^DD(161.01,103,21,2,0)="to Austin.  It will be used to screen selection during the enter"
^DD(161.01,103,21,3,0)="payment options."
^DD(161.01,103,"DT")="2920526"
^DD(161.01,"B","ACCIDENT RELATED (Y/N)",.096)=""
^DD(161.01,"B","ASSOCIATED 7078/583",.055)=""
^DD(161.01,"B","AUSTIN DELETE FLAG",102)=""
^DD(161.01,"B","AUTHORIZATION REMARKS",.021)=""
^DD(161.01,"B","CLERK",100)=""
^DD(161.01,"B","DATE DELETE MRA TRANSMITTED",103)=""
^DD(161.01,"B","DATE PRINTED",3)=""
^DD(161.01,"B","DIAGNOSIS",.08)="1"
^DD(161.01,"B","DISCHARGE TYPE",.06)=""
^DD(161.01,"B","DX LINE 1",.08)=""
^DD(161.01,"B","DX LINE 2",.085)=""
^DD(161.01,"B","DX LINE 3",.086)=""
^DD(161.01,"B","FEE PROGRAM",.03)=""
^DD(161.01,"B","FROM DATE",.01)=""
^DD(161.01,"B","PATIENT TYPE CODE",.065)=""
^DD(161.01,"B","POTENTIAL COST RECOVERY CASE",.097)=""
^DD(161.01,"B","PRIMARY SERVICE AREA",101)=""
^DD(161.01,"B","PRIMARY SERVICE FACILITY",101)="1"
^DD(161.01,"B","PRINT AUTHORIZATION (Y/N)",1)=""
^DD(161.01,"B","PURPOSE OF VISIT CODE",.07)=""
^DD(161.01,"B","TO DATE",.02)=""
^DD(161.01,"B","TREATMENT TYPE CODE",.095)=""
^DD(161.01,"B","TYPE OF CARE",2)=""
^DD(161.01,"B","VENDOR",.04)=""
^DD(161.01,"GL",0,1,.01)=""
^DD(161.01,"GL",0,2,.02)=""
^DD(161.01,"GL",0,3,.03)=""
^DD(161.01,"GL",0,4,.04)=""
^DD(161.01,"GL",0,5,101)=""
^DD(161.01,"GL",0,7,.07)=""
^DD(161.01,"GL",0,8,.08)=""
^DD(161.01,"GL",0,9,.055)=""
^DD(161.01,"GL",0,13,.095)=""
^DD(161.01,"GL",0,14,2)=""
^DD(161.01,"GL",0,15,.06)=""
^DD(161.01,"GL",0,18,.065)=""
^DD(161.01,"GL",0,19,.096)=""
^DD(161.01,"GL",0,20,.097)=""
^DD(161.01,"GL",1,2,3)=""
^DD(161.01,"GL",2,0,.021)=""
^DD(161.01,"GL",3,1,.085)=""
^DD(161.01,"GL",3,2,.086)=""
^DD(161.01,"GL",100,1,100)=""
^DD(161.01,"GL","ADEL",1,102)=""
^DD(161.01,"GL","ADEL",2,103)=""
^DD(161.01,"GL","C",1,1)=""
^DD(161.01,"IX",.01)=""
^DD(161.01,"IX",.02)=""
^DD(161.01,"IX",.03)=""
^DD(161.01,"IX",.04)=""
^DD(161.01,"IX",.055)=""
^DD(161.01,"IX",.095)=""
^DD(161.01,"IX",.096)=""
^DD(161.01,"IX",.097)=""
^DD(161.01,"IX",1)=""
^DD(161.01,"IX",102)=""
^DD(161.01,"RQ",.02)=""
^DD(161.01,"RQ",.03)=""
^DD(161.01,"RQ",.07)=""
^DD(161.01,"RQ",.095)=""
^DD(161.01,"RQ",.097)=""
^DD(161.01,"RQ",101)=""
^DD(161.01,"SB",161.06,.021)=""
^DD(161.02,0)="REPORT OF CONTACT SUB-FIELD^NL^100^8"
^DD(161.02,0,"NM","REPORT OF CONTACT")=""
^DD(161.02,0,"UP")="161"
^DD(161.02,.01,0)="DATE OF CONTACT^MDX^^0;1^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(161.02,.01,21,0)="^^1^1^2880608^^^"
^DD(161.02,.01,21,1,0)="Date the contact occurred. The actual date that a communication occurred."
^DD(161.02,.01,"DT")="2900605"
^DD(161.02,1,0)="VENDOR/PROVIDER^F^^0;2^K:$L(X)>46!($L(X)<2) X"
^DD(161.02,1,3)="ANSWER MUST BE 2-46 CHARACTERS IN LENGTH"
^DD(161.02,1,21,0)="^^1^1^2880229^"
^DD(161.02,1,21,1,0)="The vendor/provider with whom the contact took place."
^DD(161.02,1,"DT")="2860107"
^DD(161.02,1.5,0)="VENDOR/PROVIDER TELEPHONE NO.^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(161.02,1.5,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(161.02,1.5,21,0)="^^2^2^2930514^"
^DD(161.02,1.5,21,1,0)="Contains the phone number of the vendor/provider who initially treated"
^DD(161.02,1.5,21,2,0)="the patient."
^DD(161.02,1.5,"DT")="2880802"
^DD(161.02,2,0)="NARRATIVE^161.04^^1;0"
^DD(161.02,2,21,0)="^^2^2^2880229^"
^DD(161.02,2,21,1,0)="Detail accounting of the discussion or topic of the contact. Clearly"
^DD(161.02,2,21,2,0)="describes the main points and purpose of the contact."
^DD(161.02,3,0)="DX^F^^0;4^K:$L(X)>45!($L(X)<1) X"
^DD(161.02,3,3)="ANSWER MUST BE 1-45 CHARACTERS IN LENGTH"
^DD(161.02,3,21,0)="^^1^1^2931012^^^"
^DD(161.02,3,21,1,0)="Diagnosis of the patient to whom the contact was related."
^DD(161.02,3.5,0)="TYPE OF CONTACT^RS^P:personal;T:telephonic;^0;6^Q"
^DD(161.02,3.5,21,0)="^^2^2^2930514^"
^DD(161.02,3.5,21,1,0)="Field indicates whether initial contact with VA on behalf of a patient"
^DD(161.02,3.5,21,2,0)="was personal or telephonic."
^DD(161.02,3.5,"DT")="2881031"
^DD(161.02,5,0)="INPUT DATE^DX^^0;5^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(161.02,5,21,0)="^^2^2^2880527^^"
^DD(161.02,5,21,1,0)="This is the date that the report of contact was entered into the"
^DD(161.02,5,21,2,0)="DHCP Fee package."
^DD(161.02,5,"DT")="2901016"
^DD(161.02,100,0)="CLERK^P200'^VA(200,^100;1^Q"
^DD(161.02,100,8.5)="~"
^DD(161.02,100,21,0)="^^1^1^2880526^^"
^DD(161.02,100,21,1,0)="Clerk entering this report of contact."
^DD(161.02,100,"DT")="2900405"
^DD(161.02,"B","CLERK",100)=""
^DD(161.02,"B","DATE OF CONTACT",.01)=""
^DD(161.02,"B","DX",3)=""
^DD(161.02,"B","INPUT DATE",5)=""
^DD(161.02,"B","NARRATIVE",2)=""
^DD(161.02,"B","TYPE OF CONTACT",3.5)=""
^DD(161.02,"B","VENDOR/PROVIDER",1)=""
^DD(161.02,"B","VENDOR/PROVIDER TELEPHONE NO.",1.5)=""
^DD(161.02,"GL",0,1,.01)=""
^DD(161.02,"GL",0,2,1)=""
^DD(161.02,"GL",0,3,1.5)=""
^DD(161.02,"GL",0,4,3)=""
^DD(161.02,"GL",0,5,5)=""
^DD(161.02,"GL",0,6,3.5)=""
^DD(161.02,"GL",1,0,2)=""
^DD(161.02,"GL",100,1,100)=""
^DD(161.02,"RQ",3.5)=""
^DD(161.02,"SB",161.04,2)=""
^DD(161.04,0)="NARRATIVE SUB-FIELD^NL^.01^1"
^DD(161.04,0,"NM","NARRATIVE")=""
^DD(161.04,0,"UP")="161.02"
^DD(161.04,.01,0)="NARRATIVE^W^^0;1^Q"
^DD(161.04,.01,"DT")="2860107"
^DD(161.04,"B","NARRATIVE",.01)=""
^DD(161.04,"GL",0,1,.01)=""
^DD(161.06,0)="AUTHORIZATION REMARKS SUB-FIELD^NL^.01^1"
^DD(161.06,0,"NM","AUTHORIZATION REMARKS")=""
^DD(161.06,0,"UP")="161.01"
^DD(161.06,.01,0)="AUTHORIZATION REMARKS^W^^0;1^Q"
^DD(161.06,.01,"DT")="2860127"
^DD(161.06,"B","AUTHORIZATION REMARKS",.01)=""
^DD(161.06,"GL",0,1,.01)=""
^DD(161.2,0)="FIELD^^30.06^35"
^DD(161.2,0,"DDA")="N"
^DD(161.2,0,"DT")="2970814"
^DD(161.2,0,"ID",1)="W """""
^DD(161.2,0,"ID",6)="W """""
^DD(161.2,0,"ID",7)="W """""
^DD(161.2,0,"ID",8)="W """""
^DD(161.2,0,"ID","WRITE")="D ^FBVDISP"
^DD(161.2,0,"IX","AC",161.2,12)=""
^DD(161.2,0,"IX","AD",161.2,8)=""
^DD(161.2,0,"IX","AD1",161.2,1)=""
^DD(161.2,0,"IX","B",161.2,.01)=""
^DD(161.2,0,"IX","BS",161.2,1)=""
^DD(161.2,0,"IX","C",161.2,1)=""
^DD(161.2,0,"IX","D",161.2,30.01)=""
^DD(161.2,0,"IX","E",161.2,1)=""
^DD(161.2,0,"IX","NPI",161.2,41.01)=""
^DD(161.2,0,"IX","NPIHISTORY",161.2,41.01)=""
^DD(161.2,0,"NM","FEE BASIS VENDOR")=""
^DD(161.2,0,"PT",45.9,70)=""
^DD(161.2,0,"PT",161.01,.04)=""
^DD(161.2,0,"PT",161.21,.04)=""
^DD(161.2,0,"PT",161.25,.01)=""
^DD(161.2,0,"PT",161.5,1)=""
^DD(161.2,0,"PT",162.01,.01)=""
^DD(161.2,0,"PT",162.1,3)=""
^DD(161.2,0,"PT",162.2,1)=""
^DD(161.2,0,"PT",162.3,8)=""
^DD(161.2,0,"PT",162.4,1)=""
^DD(161.2,0,"PT",162.5,2)=""
^DD(161.2,0,"PT",162.7,1)=""
^DD(161.2,0,"PT",162.7,23)=""
^DD(161.2,0,"VR")="3.5"
^DD(161.2,0,"VRPK")="FB"
^DD(161.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>46!($L(X)<2)!'(X'?1P.E)!(X["", "") X I $D(X) S X=$$UP^FBAAUTL3(X) I $D(X),'$D(ZTQUEUED),'$D(^XUSEC(""FBAA ESTABLISH VENDOR"",DUZ)) K X W !!,*7,""You do not have the required key to add a new vendor to the Vendor file!"",!"
^DD(161.2,.01,1,0)="^.1^^-1"
^DD(161.2,.01,1,1,0)="161.2^B"
^DD(161.2,.01,1,1,1)="S ^FBAAV(""B"",$E(X,1,46),DA)="""""
^DD(161.2,.01,1,1,2)="K ^FBAAV(""B"",$E(X,1,46),DA)"
^DD(161.2,.01,3)="ANSWER MUST BE 2-46 CHARACTERS IN LENGTH. YOU MUST BE ASSIGNED A KEY TO BE ABLE TO ADD A NEW VENDOR.  IF USING FORMAT LAST,FIRST DO NOT INCLUDE SPACES AFTER COMMA."
^DD(161.2,.01,21,0)="^^1^1^2930507^^^^"
^DD(161.2,.01,21,1,0)="Name of the private vendor/provider providing fee services."
^DD(161.2,.01,"DEL",.01,0)="W !,*7,""You cannot delete vendors from the DHCP Vendor file!!"""
^DD(161.2,.01,"DT")="2950111"
^DD(161.2,.05,0)="SPECIALTY CODE^P161.6'^FBAA(161.6,^0;8^Q"
^DD(161.2,.05,3)=""
^DD(161.2,.05,21,0)="^^3^3^2880229^"
^DD(161.2,.05,21,1,0)="The specialty code which describes this vendors area of expertise "
^DD(161.2,.05,21,2,0)="(ie Dermatology, Anesthesiology, Neurology). Valid codes are documented"
^DD(161.2,.05,21,3,0)="in M-1, Part I, chapter 18, Appendix A."
^DD(161.2,.05,"DT")="2860501"
^DD(161.2,.18,0)="NUMBER OF CNH BEDS^NJ4,0^^1;8^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.2,.18,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(161.2,.18,21,0)="^^1^1^2930514^"
^DD(161.2,.18,21,1,0)="Indicates the number of Contract Nursing Home Beds for this vendor."
^DD(161.2,.18,"DT")="2930301"
^DD(161.2,1,0)="ID NUMBER^RFOX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<9)!(+X=0)!(X'?9N.2AN) X"
^DD(161.2,1,1,0)="^.1"
^DD(161.2,1,1,1,0)="161.2^C"
^DD(161.2,1,1,1,1)="S ^FBAAV(""C"",$E(X,1,30),DA)="""""
^DD(161.2,1,1,1,2)="K ^FBAAV(""C"",$E(X,1,30),DA)"
^DD(161.2,1,1,2,0)="161.2^BS^MUMPS"
^DD(161.2,1,1,2,1)="S ^FBAAV(""BS"",$E(X,6,9),DA)="""""
^DD(161.2,1,1,2,2)="K ^FBAAV(""BS"",$E(X,6,9),DA)"
^DD(161.2,1,1,3,0)="161.2^AD1^MUMPS"
^DD(161.2,1,1,3,1)="S:$P(^FBAAV(DA,0),U,10) ^FBAAV(""AD"",X_$E(""0000"",$L($P(^(0),U,10))+1,4)_$P(^(0),U,10),DA)="""""
^DD(161.2,1,1,3,2)="K:$P(^FBAAV(DA,0),U,10) ^FBAAV(""AD"",X_$E(""0000"",$L($P(^(0),U,10))+1,4)_$P(^(0),U,10),DA)"
^DD(161.2,1,1,3,"%D",0)="^^3^3^2930514^^"
^DD(161.2,1,1,3,"%D",1,0)="X-Ref used to update the AD X-Ref located on the Chain Store field.  If"
^DD(161.2,1,1,3,"%D",2,0)="Vendor Id is changed, the AD1 X-Ref will delete the associated AD X-Ref"
^DD(161.2,1,1,3,"%D",3,0)="and add a new X-Ref (^FBAAV(""AD"",(VENDOR ID_CHAIN STORE),DA)."
^DD(161.2,1,1,3,"DT")="2930323"
^DD(161.2,1,1,4,0)="161.2^E^MUMPS"
^DD(161.2,1,1,4,1)="S ^FBAAV(""E"",$E(X,1,9),DA)="""""
^DD(161.2,1,1,4,2)="K ^FBAAV(""E"",$E(X,1,9),DA)"
^DD(161.2,1,1,4,"%D",0)="^^3^3^2940121^^"
^DD(161.2,1,1,4,"%D",1,0)="This cross-reference is on the base 9 of the Tax-ID number.  It will"
^DD(161.2,1,1,4,"%D",2,0)="group all alpha and numeric suffixes when the base 9 is typed in for"
^DD(161.2,1,1,4,"%D",3,0)="look-up."
^DD(161.2,1,1,4,"DT")="2931126"
^DD(161.2,1,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,99)"
^DD(161.2,1,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,99)"
^DD(161.2,1,3)="Answer must be 9-11 characters in length.  Nine zeros is not a valid ID."
^DD(161.2,1,21,0)="^^4^4^2940610^^^^"
^DD(161.2,1,21,1,0)="Provider's Federal ID Tax number. The first 9 characters of the"
^DD(161.2,1,21,2,0)="ID number must be numeric. If the ID number is"
^DD(161.2,1,21,3,0)="11 characters long the 10th and 11th characters may be alphanumeric."
^DD(161.2,1,21,4,0)="An ID number of '000000000' is not valid."
^DD(161.2,1,"DT")="2940610"
^DD(161.2,2,0)="STREET ADDRESS^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(161.2,2,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(161.2,2,21,0)="^^1^1^2880616^^"
^DD(161.2,2,21,1,0)="First line of vendor's street address."
^DD(161.2,2.5,0)="STREET ADDRESS 2^F^^0;14^K:$L(X)>30!($L(X)<2) X"
^DD(161.2,2.5,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(161.2,2.5,21,0)="^^1^1^2880616^^"
^DD(161.2,2.5,21,1,0)="Second line of vendor's street address."
^DD(161.2,2.5,"DT")="2860324"
^DD(161.2,3,0)="CITY^RF^^0;4^K:$L(X)>33!($L(X)<1) X"
^DD(161.2,3,3)="Answer must be 1-33 characters in length."
^DD(161.2,3,21,0)="^^1^1^2880617^^^"
^DD(161.2,3,21,1,0)="City in which the vendor's mailing address is located."
^DD(161.2,3,"DT")="2931021"
^DD(161.2,4,0)="STATE^RP5'^DIC(5,^0;5^Q"
^DD(161.2,4,1,0)="^.1"
^DD(161.2,4,1,1,0)="^^TRIGGER^161.2^5.5"
^DD(161.2,4,1,1,1)="Q"
^DD(161.2,4,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^FBAAV(D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$S($D(^FBAAV(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=161.2,DIG=5.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(161.2,4,1,1,2.4)="S DIH=$S($D(^FBAAV(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U"" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"""":U_%,1:""""),DIH=161.2,DIG=5.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(161.2,4,1,1,"CREATE VALUE")="NO EFFECT"
^DD(161.2,4,1,1,"DELETE VALUE")="@"
^DD(161.2,4,1,1,"DT")="2970829"
^DD(161.2,4,1,1,"FIELD")="#5.5"
^DD(161.2,4,21,0)="^^1^1^2880616^^"
^DD(161.2,4,21,1,0)="State in which the vendor's mailing address is located."
^DD(161.2,4,"DT")="2970829"
^DD(161.2,5,0)="ZIP CODE^RFX^^0;6^K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1""-""4N))!(X?5""0"") X"
^DD(161.2,5,3)="Answer must be 5-10 characters in length in 12345-1234 format."
^DD(161.2,5,21,0)="^^1^1^2880616^^"
^DD(161.2,5,21,1,0)="Zip Code in which the vendor's mailing address is located."
^DD(161.2,5,"DT")="2931022"
^DD(161.2,5.18,0)="MAIL ROUTE CODE^F^^0;18^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(161.2,5.18,3)="Answer must be 2 numerics in length."
^DD(161.2,5.18,21,0)="^^2^2^2930301^"
^DD(161.2,5.18,21,1,0)="This field will eventually be populated with the Postal Service mail"
^DD(161.2,5.18,21,2,0)="router."
^DD(161.2,5.18,23,0)="^^1^1^2930301^"
^DD(161.2,5.18,23,1,0)="This field will hold the ""plus 2"" in Zip+4+2."
^DD(161.2,5.18,"DT")="2930301"
^DD(161.2,5.5,0)="COUNTY^RNJ4,0XO^^0;13^S Z0=$S($P(^FBAAV(D0,0),""^"",5)]"""":$P(^(0),""^"",5),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEMN"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(161.2,5.5,2)="S Y(0)=Y S Y(0)=Y Q:Y']""""  S Z0=$S($D(^FBAAV(D0,0)):+$P(^(0),""^"",5),1:"""") Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),""^"",1)"
^DD(161.2,5.5,2.1)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^FBAAV(D0,0)):+$P(^(0),""^"",5),1:"""") Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),""^"",1)"
^DD(161.2,5.5,3)="Enter the county  or county code (whole number between 1 and 9999).  The counties are based upon the value for STATE."
^DD(161.2,5.5,4)="S FBZD=D,X=""?"",Z0=$S($P(^FBAAV(D0,0),""^"",5)]"""":$P(^(0),""^"",5),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=FBZD K FBZD"
^DD(161.2,5.5,5,1,0)="161.2^4^1"
^DD(161.2,5.5,21,0)="^^1^1^2930818^^"
^DD(161.2,5.5,21,1,0)="The County in which the vendor is located."
^DD(161.2,5.5,"DT")="2930916"
^DD(161.2,6,0)="TYPE OF VENDOR^RS^1:PUBLIC HOSPITAL;2:PHYSICIAN;3:PHARMACY;4:PROSTHETICS;5:TRAVEL;6:RADIOLOGY;7:LABORATORY;8:OTHER;9:PRIVATE HOSPITAL;10:FEDERAL HOSPITAL;^0;7^Q"
^DD(161.2,6,1,0)="^.1^^0"
^DD(161.2,6,21,0)="^^2^2^2900622^^^^"
^DD(161.2,6,21,1,0)="Identifies the type of services this vendor provides.  "
^DD(161.2,6,21,2,0)="(ie HOSPITAL, PHYSICIAN, OR PHARMACY)"
^DD(161.2,6,"DT")="2900817"
^DD(161.2,7,0)="PART CODE^RP161.81'^FBAA(161.81,^0;9^Q"
^DD(161.2,7,3)=""
^DD(161.2,7,21,0)="^^2^2^2880608^^"
^DD(161.2,7,21,1,0)="This field is a pointer to the Participation code file which is"
^DD(161.2,7,21,2,0)="a description of the type of vendor."
^DD(161.2,7,"DT")="2860501"
^DD(161.2,8,0)="CHAIN^FX^^0;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3)!(X'?3N.1N) X"
^DD(161.2,8,1,0)="^.1"
^DD(161.2,8,1,1,0)="161.2^AD^MUMPS"
^DD(161.2,8,1,1,1)="S:$P(^FBAAV(DA,0),U,2) ^FBAAV(""AD"",$P(^(0),U,2)_$E(""0000"",$L(X)+1,4)_X,DA)="""""
^DD(161.2,8,1,1,2)="K:$P(^FBAAV(DA,0),U,2) ^FBAAV(""AD"",$P(^(0),U,2)_$E(""0000"",$L(X)+1,4)_X,DA)"
^DD(161.2,8,1,1,"%D",0)="^^3^3^2930514^^^^"
^DD(161.2,8,1,1,"%D",1,0)="Sets up mumps X-Ref on the Chain Store field using vendor id_chain store"
^DD(161.2,8,1,1,"%D",2,0)="combination.  Used for lookups for pharmacy vendors when receiving MRA's"
^DD(161.2,8,1,1,"%D",3,0)="back from Austin."
^DD(161.2,8,1,1,"DT")="2930323"
^DD(161.2,8,3)="Answer must be 3-4 numerics."
^DD(161.2,8,21,0)="^^2^2^2880608^^"
^DD(161.2,8,21,1,0)="This is a number that pharmacies use to identify multiple"
^DD(161.2,8,21,2,0)="stores in the chain."
^DD(161.2,8,"DT")="2930323"
^DD(161.2,9,0)="AUSTIN DELETED^S^Y:YES;^ADEL;1^Q"
^DD(161.2,9,21,0)="^^3^3^2930223^"
^DD(161.2,9,21,1,0)=" "
^DD(161.2,9,21,2,0)="This is a flag that is set by the fee software when a delete"
^DD(161.2,9,21,3,0)="vendor master record adjustment is transmitted to Austin."
^DD(161.2,9,"DT")="2930223"
^DD(161.2,12,0)="DATE LAST CORRECTION TO AUSTIN^D^^ADEL;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.2,12,1,0)="^.1"
^DD(161.2,12,1,1,0)="161.2^AC"
^DD(161.2,12,1,1,1)="S ^FBAAV(""AC"",$E(X,1,30),DA)="""""
^DD(161.2,12,1,1,2)="K ^FBAAV(""AC"",$E(X,1,30),DA)"
^DD(161.2,12,1,1,"%D",0)="^^2^2^2930309^"
^DD(161.2,12,1,1,"%D",1,0)="Allows for the retrieval of when the last correction was sent to"
^DD(161.2,12,1,1,"%D",2,0)="Austin via master record transaction."
^DD(161.2,12,1,1,"DT")="2930309"
^DD(161.2,12,21,0)="^^3^3^2930828^^"
^DD(161.2,12,21,1,0)=" "
^DD(161.2,12,21,2,0)="This field contains the date the last master record adjustment"
^DD(161.2,12,21,3,0)="was sent to Austin for this vendor."
^DD(161.2,12,23,0)="^^1^1^2930828^"
^DD(161.2,12,23,1,0)=" "
^DD(161.2,12,"DT")="2930309"
^DD(161.2,12.1,0)="DATE LAST UPDATE FROM AUSTIN^D^^ADEL;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.2,12.1,3)="Date the last master record adjustment was received from Austin for this vendor."
^DD(161.2,12.1,21,0)="^^3^3^2930828^"
^DD(161.2,12.1,21,1,0)="This field contains the date the last master record adjustment was received from Austin for this vendor."
^DD(161.2,12.1,21,2,0)="  "
^DD(161.2,12.1,21,3,0)="This field is updated as the record is processed by the server."
^DD(161.2,12.1,"DT")="2930828"
^DD(161.2,13,0)="DATE OF AUSTIN DELETE^D^^ADEL;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.2,13,21,0)="^^2^2^2930223^"
^DD(161.2,13,21,1,0)="This field contains the date that a delete master record transaction"
^DD(161.2,13,21,2,0)="was sent to Austin, for this vendor."
^DD(161.2,13,"DT")="2930223"
^DD(161.2,13.1,0)="STATION AFFECTING LAST CHANGE^F^^ADEL;5^K:$L(X)>3!($L(X)<3) X"
^DD(161.2,13.1,3)="Answer must be 3 numerics in length."
^DD(161.2,13.1,21,0)="^^5^5^2941130^"
^DD(161.2,13.1,21,1,0)="This field stores the station number that made the"
^DD(161.2,13.1,21,2,0)="last change to the vendor.  If the station number"
^DD(161.2,13.1,21,3,0)="is set to '000', that means the change was picked"
^DD(161.2,13.1,21,4,0)="up off the 'VLOG' file in Austin and affected by"
^DD(161.2,13.1,21,5,0)="a non-fee system."
^DD(161.2,13.1,"DT")="2941130"
^DD(161.2,14,0)="PHONE NUMBER^F^^1;1^K:$L(X)>20!($L(X)<3) X"
^DD(161.2,14,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(161.2,14,21,0)="^^2^2^2941011^^^"
^DD(161.2,14,21,1,0)="This field allows the user to enter the telephone"
^DD(161.2,14,21,2,0)="number of the vendor."
^DD(161.2,14,"DT")="2870602"
^DD(161.2,18,0)="INSPECTED/ACCREDITED^RS^I:INSPECTED BY VA;A:ACCREDITED BY JCAH;B:BOTH INSPECTED AND ACCREDITED;^1;4^Q"
^DD(161.2,18,21,0)="^^2^2^2930519^"
^DD(161.2,18,21,1,0)="This field allows the user to track the status of the CNH as of"
^DD(161.2,18,21,2,0)="the last assesment."
^DD(161.2,18,"DT")="2880902"
^DD(161.2,19,0)="CERTIFIED MEDICARE/MEDICAID^RS^1:NOT CERTIFIED FOR EITHER;2:CERTIFIED FOR MEDICARE;3:CERTIFIED FOR MEDICAID;4:CERTIFIED FOR BOTH;^1;5^Q"
^DD(161.2,19,21,0)="^^1^1^2930514^^"
^DD(161.2,19,21,1,0)="Indicates that the Nursing Home has been certified by Medicare/Medicaid."
^DD(161.2,19,"DT")="2900514"
^DD(161.2,20,0)="DATE OF LAST ASSESSMENT^DX^^1;6^S %DT=""EX"",%DT(0)=""-""_DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(161.2,20,21,0)="^^2^2^2930514^^"
^DD(161.2,20,21,1,0)="The date that the nursing home was last evaluated by either a partial or"
^DD(161.2,20,21,2,0)="full VA team."
^DD(161.2,20,"DT")="2900514"
^DD(161.2,22,0)="MEDICARE ID NUMBER^F^^0;17^K:$L(X)>6!($L(X)<6) X"
^DD(161.2,22,3)="Answer must be 6 characters in length."
^DD(161.2,22,21,0)="^^1^1^2930514^"
^DD(161.2,22,21,1,0)="The Medicare Provider ID number assigned to this vendor."
^DD(161.2,22,"DT")="2940713"
^DD(161.2,23,0)="FAX NUMBER^F^^1;9^K:$L(X)>20!($L(X)<3) X"
^DD(161.2,23,3)="Answer must be 3-20 characters in length."
^DD(161.2,23,21,0)="^^2^2^2941130^^"
^DD(161.2,23,21,1,0)="This field allows the user to enter the fax"
^DD(161.2,23,21,2,0)="number of the vendor."
^DD(161.2,23,"DT")="2941011"
^DD(161.2,24,0)="BUSINESS TYPE (FPDS)^S^1:SMALL BUSINESS;2:LARGE BUSINESS;3:OUTSIDE U.S.;4:OTHER ENTITIES;^1;10^Q"
^DD(161.2,24,3)="Enter FPDS Business Type for FPDS reports."
^DD(161.2,24,21,0)="^^1^1^2970731^"
^DD(161.2,24,21,1,0)="Business type for FPDS reporting purposes."
^DD(161.2,24,"DT")="2970731"
^DD(161.2,25,0)="SOCIOECONOMIC GROUP (FPDS)^161.225P^^2;0"
^DD(161.2,25,12)="Select from groups appropriate for the business type."
^DD(161.2,25,12.1)="S DIC(""S"")=""I Y>155,Y<167"""
^DD(161.2,30.01,0)="AUSTIN NAME FIELD^FX^^AMS;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(161.2,30.01,1,0)="^.1"
^DD(161.2,30.01,1,1,0)="161.2^D"
^DD(161.2,30.01,1,1,1)="S ^FBAAV(""D"",$E(X,1,30),DA)="""""
^DD(161.2,30.01,1,1,2)="K ^FBAAV(""D"",$E(X,1,30),DA)"
^DD(161.2,30.01,1,1,"%D",0)="^^3^3^2930519^^"
^DD(161.2,30.01,1,1,"%D",1,0)="This field, populated by the data returned from Austin contains"
^DD(161.2,30.01,1,1,"%D",2,0)="a match with central fee and FMS name fields.  It will allow"
^DD(161.2,30.01,1,1,"%D",3,0)="the user to lookup vendors both ways."
^DD(161.2,30.01,1,1,"DT")="2930309"
^DD(161.2,30.01,3)="Answer must be 2-30 characters in length."
^DD(161.2,30.01,21,0)="^^2^2^2930519^^^^"
^DD(161.2,30.01,21,1,0)="This field is populated by the software.  It reflects the vendor name"
^DD(161.2,30.01,21,2,0)="as it is on the centralized Austin databases."
^DD(161.2,30.01,23,0)="^^4^4^2930519^^^"
^DD(161.2,30.01,23,1,0)="This field is populated by the background server.  It contains the"
^DD(161.2,30.01,23,2,0)="vendor name as entered into the FMS vendor table in Austin.  Until"
^DD(161.2,30.01,23,3,0)="this field is populated, no payments can be sent to Austin for"
^DD(161.2,30.01,23,4,0)="processing."
^DD(161.2,30.01,"DT")="2930309"
^DD(161.2,30.02,0)="PRICER EXEMPT^FXO^^AMS;2^I $D(X) D YN^FBAAUTL3"
^DD(161.2,30.02,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.2,30.02,2.1)="D OUTYN^FBAAUTL3"
^DD(161.2,30.02,3)="Answer 'Yes' or '1' for YES and a 'No' or '0' for NO."
^DD(161.2,30.02,21,0)="^^2^2^2930519^^"
^DD(161.2,30.02,21,1,0)="There are certain vendors that are exempt from the medicare payment"
^DD(161.2,30.02,21,2,0)="methodology and are paid at a percentage of what is claimed."
^DD(161.2,30.02,23,0)="^^2^2^2930519^^"
^DD(161.2,30.02,23,1,0)="This flag will tell the software that any inpatient payments made"
^DD(161.2,30.02,23,2,0)="to this vendor will not pass through the Austin Pricer system."
^DD(161.2,30.02,"DT")="2940318"
^DD(161.2,30.03,0)="1099 VENDOR^FXO^^AMS;3^I $D(X) D YN^FBAAUTL3"
^DD(161.2,30.03,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.2,30.03,2.1)="D OUTYN^FBAAUTL3"
^DD(161.2,30.03,3)="Answer 'Yes' or '1' for YES and a 'No' or '0' for NO."
^DD(161.2,30.03,21,0)="^^3^3^2930519^^"
^DD(161.2,30.03,21,1,0)="This is a flag that tells the central vendor unit is Austin whether"
^DD(161.2,30.03,21,2,0)="or not a 1099 tax form should be sent to the vendor.  At this time"
^DD(161.2,30.03,21,3,0)="a decision from finance is that all Fee vendors are 1099 vendors."
^DD(161.2,30.03,23,0)="^^3^3^2930519^^"
^DD(161.2,30.03,23,1,0)="This is a flag, that will always be set to yes currrently.  If"
^DD(161.2,30.03,23,2,0)="finance should change their position on 1099 vendors, this flag"
^DD(161.2,30.03,23,3,0)="will be used to notify Austin which vendors should receive 1099s."
^DD(161.2,30.03,"DT")="2940318"
^DD(161.2,30.04,0)="FMS VENDOR TYPE^S^C:commercial;I:individual;F:federal;^AMS;4^Q"
^DD(161.2,30.04,21,0)="^^2^2^2930301^"
^DD(161.2,30.04,21,1,0)="This field is sent with other vendor data to let the central vendorizing"
^DD(161.2,30.04,21,2,0)="unit know the type of vendor for the FMS vendor table."
^DD(161.2,30.04,23,0)="^^2^2^2930301^"
^DD(161.2,30.04,23,1,0)="This set of codes that will be determined by field 6 ('Type of Vendor')."
^DD(161.2,30.04,23,2,0)="It is a manditory data element with the FMS vendor table."
^DD(161.2,30.04,"DT")="2930301"
^DD(161.2,30.05,0)="PROVIDER CODE^S^B:both;V:vendor only;P:provider only;^AMS;5^Q"
^DD(161.2,30.05,21,0)="^^3^3^2930514^^"
^DD(161.2,30.05,21,1,0)="This flag is a mandatory field on the FMS vendor table."
^DD(161.2,30.05,21,2,0)="Choices are V for VENDOR ONLY, P for PROVIDER ONLY or"
^DD(161.2,30.05,21,3,0)="B for both.  All Fee vendors are classified as both."
^DD(161.2,30.05,23,0)="^^1^1^2930514^^"
^DD(161.2,30.05,23,1,0)="Currently always set to 'B' by the software."
^DD(161.2,30.05,"DT")="2930301"
^DD(161.2,30.06,0)="TAX ID/SSN FLAG^RS^T:TAX ID NUMBER;S:SSN NUMBER;^AMS;6^Q"
^DD(161.2,30.06,.1)="TAX ID/SSN (Enter 'T' or 'S')"
^DD(161.2,30.06,21,0)="^^3^3^2930301^"
^DD(161.2,30.06,21,1,0)="This field will be populated and sent to central vendorizing unit"
^DD(161.2,30.06,21,2,0)="to notify the IRS if the 'ID NUMBER' is a Tax ID number or the"
^DD(161.2,30.06,21,3,0)="vendor's SSN number."
^DD(161.2,30.06,23,0)="^^2^2^2930301^"
^DD(161.2,30.06,23,1,0)="Flag used by the FMS vendor table to know if the ID NUMBER sent to"
^DD(161.2,30.06,23,2,0)="the table is a TAX ID number or SSN number."
^DD(161.2,30.06,"DT")="2930305"
^DD(161.2,40,0)="DATE/TIME OF LAST NPI CHANGE^161.24DA^^NPI;0"
^DD(161.2,41.01,0)="NPI^FX^^3;2^K:$L(X)>10!($L(X)<10)!('$$CHKDGT^XUSNPI(X))!($$DUP^FBNPILK(X)>0) X"
^DD(161.2,41.01,1,0)="^.1^^-1"
^DD(161.2,41.01,1,3,0)="161.2^NPI"
^DD(161.2,41.01,1,3,1)="S ^FBAAV(""NPI"",$E(X,1,30),DA)="""""
^DD(161.2,41.01,1,3,2)="K ^FBAAV(""NPI"",$E(X,1,30),DA)"
^DD(161.2,41.01,1,3,"DT")="3060717"
^DD(161.2,41.01,1,4,0)="161.2^NPIHISTORY"
^DD(161.2,41.01,1,4,1)="S ^FBAAV(""NPIHISTORY"",$E(X,1,30),DA)="""""
^DD(161.2,41.01,1,4,2)="K ^FBAAV(""NPIHISTORY"",$E(X,1,30),DA)"
^DD(161.2,41.01,1,4,3)="An entry into the NPI History cross reference should not be deleted"
^DD(161.2,41.01,1,4,"%D",0)="^^2^2^3060911^"
^DD(161.2,41.01,1,4,"%D",1,0)="This cross reference holds the entire history of the NPIs used in the Fee "
^DD(161.2,41.01,1,4,"%D",2,0)="Basis Vendor file"
^DD(161.2,41.01,1,4,"DT")="3060911"
^DD(161.2,41.01,3)="Answer must be a unique 10 character numeric value and a valid NPI number."
^DD(161.2,41.01,21,0)="^.001^2^2^3060728^^^"
^DD(161.2,41.01,21,1,0)="Unique National Provider Identifier.  A unique integer assigned to "
^DD(161.2,41.01,21,2,0)="providers by CMS. This is the current, active, NPI."
^DD(161.2,41.01,"DT")="3060913"
^DD(161.2,"B","1099 VENDOR",30.03)=""
^DD(161.2,"B","AUSTIN DELETED",9)=""
^DD(161.2,"B","AUSTIN NAME FIELD",30.01)=""
^DD(161.2,"B","BUSINESS TYPE (FPDS)",24)=""
^DD(161.2,"B","CERTIFIED MEDICARE/MEDICAID",19)=""
^DD(161.2,"B","CHAIN",8)=""
^DD(161.2,"B","CITY",3)=""
^DD(161.2,"B","COUNTY",5.5)=""
^DD(161.2,"B","DATE LAST CORRECTION TO AUSTIN",12)=""
^DD(161.2,"B","DATE LAST UPDATE FROM AUSTIN",12.1)=""
^DD(161.2,"B","DATE OF AUSTIN DELETE",13)=""
^DD(161.2,"B","DATE OF LAST ASSESSMENT",20)=""
^DD(161.2,"B","DATE/TIME OF LAST NPI CHANGE",40)=""
^DD(161.2,"B","FAX NUMBER",23)=""
^DD(161.2,"B","FMS VENDOR TYPE",30.04)=""
^DD(161.2,"B","ID NUMBER",1)=""
^DD(161.2,"B","INSPECTED/ACCREDITED",18)=""
^DD(161.2,"B","MAIL ROUTE CODE",5.18)=""
^DD(161.2,"B","MEDICARE ID NUMBER",22)=""
^DD(161.2,"B","NAME",.01)=""
^DD(161.2,"B","NPI",41.01)=""
^DD(161.2,"B","NUMBER OF CNH BEDS",.18)=""
^DD(161.2,"B","PART CODE",7)=""
^DD(161.2,"B","PHONE NUMBER",14)=""
^DD(161.2,"B","PRICER EXEMPT",30.02)=""
^DD(161.2,"B","PROVIDER CODE",30.05)=""
^DD(161.2,"B","SOCIOECONOMIC GROUP (FPDS)",25)=""
^DD(161.2,"B","SPECIALTY CODE",.05)=""
^DD(161.2,"B","STATE",4)=""
^DD(161.2,"B","STATION AFFECTING LAST CHANGE",13.1)=""
^DD(161.2,"B","STREET ADDRESS",2)=""
^DD(161.2,"B","STREET ADDRESS 2",2.5)=""
^DD(161.2,"B","TAX ID/SSN (Enter 'T' or 'S')",30.06)="1"
^DD(161.2,"B","TAX ID/SSN FLAG",30.06)=""
^DD(161.2,"B","TYPE OF VENDOR",6)=""
^DD(161.2,"B","ZIP CODE",5)=""
^DD(161.2,"GL",0,1,.01)=""
^DD(161.2,"GL",0,2,1)=""
^DD(161.2,"GL",0,3,2)=""
^DD(161.2,"GL",0,4,3)=""
^DD(161.2,"GL",0,5,4)=""
^DD(161.2,"GL",0,6,5)=""
^DD(161.2,"GL",0,7,6)=""
^DD(161.2,"GL",0,8,.05)=""
^DD(161.2,"GL",0,9,7)=""
^DD(161.2,"GL",0,10,8)=""
^DD(161.2,"GL",0,13,5.5)=""
^DD(161.2,"GL",0,14,2.5)=""
^DD(161.2,"GL",0,17,22)=""
^DD(161.2,"GL",0,18,5.18)=""
^DD(161.2,"GL",1,1,14)=""
^DD(161.2,"GL",1,4,18)=""
^DD(161.2,"GL",1,5,19)=""
^DD(161.2,"GL",1,6,20)=""
^DD(161.2,"GL",1,8,.18)=""
^DD(161.2,"GL",1,9,23)=""
^DD(161.2,"GL",1,10,24)=""
^DD(161.2,"GL",2,0,25)=""
^DD(161.2,"GL",3,2,41.01)=""
^DD(161.2,"GL","ADEL",1,9)=""
^DD(161.2,"GL","ADEL",2,12)=""
^DD(161.2,"GL","ADEL",3,13)=""
^DD(161.2,"GL","ADEL",4,12.1)=""
^DD(161.2,"GL","ADEL",5,13.1)=""
^DD(161.2,"GL","AMS",1,30.01)=""
^DD(161.2,"GL","AMS",2,30.02)=""
^DD(161.2,"GL","AMS",3,30.03)=""
^DD(161.2,"GL","AMS",4,30.04)=""
^DD(161.2,"GL","AMS",5,30.05)=""
^DD(161.2,"GL","AMS",6,30.06)=""
^DD(161.2,"GL","NPI",0,40)=""
^DD(161.2,"IX",.01)=""
^DD(161.2,"IX",1)=""
^DD(161.2,"IX",4)=""
^DD(161.2,"IX",8)=""
^DD(161.2,"IX",12)=""
^DD(161.2,"IX",30.01)=""
^DD(161.2,"IX",41.01)=""
^DD(161.2,"RQ",.01)=""
^DD(161.2,"RQ",1)=""
^DD(161.2,"RQ",3)=""
^DD(161.2,"RQ",4)=""
^DD(161.2,"RQ",5)=""
^DD(161.2,"RQ",5.5)=""
^DD(161.2,"RQ",6)=""
^DD(161.2,"RQ",7)=""
^DD(161.2,"RQ",18)=""
^DD(161.2,"RQ",19)=""
^DD(161.2,"RQ",30.06)=""
^DD(161.2,"SB",161.225,25)=""
^DD(161.2,"SB",161.24,40)=""
^DD(161.21,0)="FIELD^^.04^4"
^DD(161.21,0,"DDA")="N"
^DD(161.21,0,"DT")="2930303"
^DD(161.21,0,"ID",.02)="W """""
^DD(161.21,0,"ID",.03)="W """""
^DD(161.21,0,"IX","AC",161.21,.04)=""
^DD(161.21,0,"IX","AC1",161.21,.02)=""
^DD(161.21,0,"IX","ACR",161.21,.04)=""
^DD(161.21,0,"IX","ACR1",161.21,.02)=""
^DD(161.21,0,"IX","ADR",161.21,.04)=""
^DD(161.21,0,"IX","ADR1",161.21,.03)=""
^DD(161.21,0,"IX","B",161.21,.01)=""
^DD(161.21,0,"IX","C",161.21,.04)=""
^DD(161.21,0,"NM","FEE BASIS CNH CONTRACT")=""
^DD(161.21,0,"PT",161.22,.03)=""
^DD(161.21,0,"VR")="3.5"
^DD(161.21,.01,0)="NUMBER^RFX^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X I $D(X),$D(^FBAA(161.21,""B"",X)) W !,*7,""Contract already exists for another vendor."",! K X"
^DD(161.21,.01,1,0)="^.1"
^DD(161.21,.01,1,1,0)="161.21^B"
^DD(161.21,.01,1,1,1)="S ^FBAA(161.21,""B"",$E(X,1,30),DA)="""""
^DD(161.21,.01,1,1,2)="K ^FBAA(161.21,""B"",$E(X,1,30),DA)"
^DD(161.21,.01,3)="Answer must be 3-15 characters in length."
^DD(161.21,.01,21,0)="^^2^2^2930303^"
^DD(161.21,.01,21,1,0)="This is the Contract number assigned by contracting for the"
^DD(161.21,.01,21,2,0)="Community Nursing Home."
^DD(161.21,.01,"DEL",.01,0)="I $D(^FBAA(161.22,""AC"",DA)) W !,*7,""You cannot delete a contract that has rates associated with it."",!"
^DD(161.21,.01,"DT")="2930903"
^DD(161.21,.02,0)="EFFECTIVE DATE^RDX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D CONDAT^FBAAUTL2"
^DD(161.21,.02,1,0)="^.1"
^DD(161.21,.02,1,1,0)="161.21^ACR1^MUMPS"
^DD(161.21,.02,1,1,1)="S:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,""ACR"",$P(^(0),U,4),-$E(X,1,30),DA)="""""
^DD(161.21,.02,1,1,2)="K:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,""ACR"",$P(^(0),U,4),-$E(X,1,30),DA)"
^DD(161.21,.02,1,1,"%D",0)="^^1^1^2930514^^^^"
^DD(161.21,.02,1,1,"%D",1,0)="update the 'ACR' cross-reference on the vendor field (.04)."
^DD(161.21,.02,1,1,"DT")="2930308"
^DD(161.21,.02,1,2,0)="161.21^AC1^MUMPS"
^DD(161.21,.02,1,2,1)="S:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,""AC"",$P(^(0),U,4),$E(X,1,30),DA)="""""
^DD(161.21,.02,1,2,2)="K:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,""AC"",$P(^(0),U,4),$E(X,1,30),DA)"
^DD(161.21,.02,1,2,"%D",0)="^^1^1^2930514^^^"
^DD(161.21,.02,1,2,"%D",1,0)="This will keep the 'AC' x-ref on the vendor field updated."
^DD(161.21,.02,1,2,"DT")="2930325"
^DD(161.21,.02,21,0)="^^1^1^2930303^^"
^DD(161.21,.02,21,1,0)="This is the beginning date of the contract."
^DD(161.21,.02,"DT")="2930325"
^DD(161.21,.03,0)="EXPIRATION DATE^RDX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D CONDAT^FBAAUTL2 I $D(X),$P(^FBAA(161.21,DA,0),U,2)>X K X W !!,""Expiration date must be after the effective date."",!"
^DD(161.21,.03,1,0)="^.1"
^DD(161.21,.03,1,1,0)="161.21^ADR1^MUMPS"
^DD(161.21,.03,1,1,1)="S:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,""ADR"",$P(^(0),U,4),-$E(X,1,30),DA)="""""
^DD(161.21,.03,1,1,2)="K:$P(^FBAA(161.21,DA,0),U,4) ^FBAA(161.21,""ADR"",$P(^(0),U,4),-X,DA)"
^DD(161.21,.03,1,1,"%D",0)="^^1^1^2930514^^^^"
^DD(161.21,.03,1,1,"%D",1,0)="Updates the vendor cross-reference if the expiration date is changed."
^DD(161.21,.03,1,1,"DT")="2930303"
^DD(161.21,.03,21,0)="^^1^1^2930303^"
^DD(161.21,.03,21,1,0)="This is the date the contract expires."
^DD(161.21,.03,"DT")="2930308"
^DD(161.21,.04,0)="VENDOR^RP161.2'^FBAAV(^0;4^Q"
^DD(161.21,.04,1,0)="^.1"
^DD(161.21,.04,1,1,0)="161.21^C"
^DD(161.21,.04,1,1,1)="S ^FBAA(161.21,""C"",$E(X,1,30),DA)="""""
^DD(161.21,.04,1,1,2)="K ^FBAA(161.21,""C"",$E(X,1,30),DA)"
^DD(161.21,.04,1,1,"%D",0)="^^1^1^2930303^"
^DD(161.21,.04,1,1,"%D",1,0)="This cross-reference allows look-up by vendor."
^DD(161.21,.04,1,1,"DT")="2930303"
^DD(161.21,.04,1,2,0)="161.21^ADR^MUMPS"
^DD(161.21,.04,1,2,1)="S:$P(^FBAA(161.21,DA,0),U,3) ^FBAA(161.21,""ADR"",$E(X,1,30),-$P(^(0),U,3),DA)="""""
^DD(161.21,.04,1,2,2)="K:$P(^FBAA(161.21,DA,0),U,3) ^FBAA(161.21,""ADR"",X,-$P(^(0),U,3),DA)"
^DD(161.21,.04,1,2,"%D",0)="^^2^2^2930514^^^^"
^DD(161.21,.04,1,2,"%D",1,0)="Cross-reference by vendor, negative date. Used to retrieve the latest"
^DD(161.21,.04,1,2,"%D",2,0)="contract for a vendor."
^DD(161.21,.04,1,2,"DT")="2930303"
^DD(161.21,.04,1,3,0)="161.21^ACR^MUMPS"
^DD(161.21,.04,1,3,1)="S:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,""ACR"",$E(X,1,30),-$P(^(0),U,2),DA)="""""
^DD(161.21,.04,1,3,2)="K:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,""ACR"",X,-$P(^(0),U,2),DA)"
^DD(161.21,.04,1,3,"%D",0)="^^1^1^2930514^^"
^DD(161.21,.04,1,3,"%D",1,0)="Inverse date order cross-reference vendor, from date of contract."
^DD(161.21,.04,1,3,"DT")="2930308"
^DD(161.21,.04,1,4,0)="161.21^AC^MUMPS"
^DD(161.21,.04,1,4,1)="S:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,""AC"",X,$P(^(0),U,2),DA)="""""
^DD(161.21,.04,1,4,2)="K:$P(^FBAA(161.21,DA,0),U,2) ^FBAA(161.21,""AC"",X,$P(^(0),U,2),DA)"
^DD(161.21,.04,1,4,"%D",0)="^^2^2^2930514^^"
^DD(161.21,.04,1,4,"%D",1,0)="used to find next available contract when multiple contracts involved"
^DD(161.21,.04,1,4,"%D",2,0)="with an authorization period."
^DD(161.21,.04,1,4,"DT")="2930325"
^DD(161.21,.04,21,0)="^^1^1^2930303^"
^DD(161.21,.04,21,1,0)="Contains the vendor for which the contract applies."
^DD(161.21,.04,"DT")="2930325"
^DD(161.21,"B","EFFECTIVE DATE",.02)=""
^DD(161.21,"B","EXPIRATION DATE",.03)=""
^DD(161.21,"B","NUMBER",.01)=""
^DD(161.21,"B","VENDOR",.04)=""
^DD(161.21,"GL",0,1,.01)=""
^DD(161.21,"GL",0,2,.02)=""
^DD(161.21,"GL",0,3,.03)=""
^DD(161.21,"GL",0,4,.04)=""
^DD(161.21,"IX",.01)=""
^DD(161.21,"IX",.02)=""
^DD(161.21,"IX",.03)=""
^DD(161.21,"IX",.04)=""
^DD(161.21,"RQ",.01)=""
^DD(161.21,"RQ",.02)=""
^DD(161.21,"RQ",.03)=""
^DD(161.21,"RQ",.04)=""
^DD(161.22,0)="FIELD^^.03^3"
^DD(161.22,0,"DT")="2930303"
^DD(161.22,0,"IX","AC",161.22,.03)=""
^DD(161.22,0,"IX","AD",161.22,.03)=""
^DD(161.22,0,"IX","AD1",161.22,.02)=""
^DD(161.22,0,"NM","FEE BASIS CNH RATE")=""
^DD(161.22,0,"VR")="3.5"
^DD(161.22,.01,0)="NUMBER^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.22,.01,1,0)="^.1^^0"
^DD(161.22,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(161.22,.01,21,0)="^^2^2^2930519^^"
^DD(161.22,.01,21,1,0)="This field is a system generated number.  It has no meaning other"
^DD(161.22,.01,21,2,0)="than to make the entry unique."
^DD(161.22,.01,"DT")="2930303"
^DD(161.22,.02,0)="DOLLAR AMOUNT^RNJ10,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01) X"
^DD(161.22,.02,1,0)="^.1"
^DD(161.22,.02,1,1,0)="161.22^AD1^MUMPS"
^DD(161.22,.02,1,1,1)="S:$P(^FBAA(161.22,DA,0),U,3) ^FBAA(161.22,""AD"",$P(^(0),U,3),$E(X,1,30),DA)="""""
^DD(161.22,.02,1,1,2)="K:$P(^FBAA(161.22,DA,0),U,3) ^FBAA(161.22,""AD"",$P(^(0),U,3),$E(X,1,30),DA)"
^DD(161.22,.02,1,1,"%D",0)="^^1^1^2930514^^"
^DD(161.22,.02,1,1,"%D",1,0)="This is a check to maintain the integrity of the 'AD' x-ref on field .03."
^DD(161.22,.02,1,1,"DT")="2930308"
^DD(161.22,.02,3)="Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits"
^DD(161.22,.02,21,0)="^^1^1^2930303^"
^DD(161.22,.02,21,1,0)="This field contains the dollar amounts associated with a contract."
^DD(161.22,.02,"DT")="2930308"
^DD(161.22,.03,0)="CONTRACT^RP161.21'^FBAA(161.21,^0;3^Q"
^DD(161.22,.03,1,0)="^.1"
^DD(161.22,.03,1,1,0)="161.22^AC"
^DD(161.22,.03,1,1,1)="S ^FBAA(161.22,""AC"",$E(X,1,30),DA)="""""
^DD(161.22,.03,1,1,2)="K ^FBAA(161.22,""AC"",$E(X,1,30),DA)"
^DD(161.22,.03,1,1,"%D",0)="^^1^1^2930303^"
^DD(161.22,.03,1,1,"%D",1,0)="Used to group all rates for a given contract together."
^DD(161.22,.03,1,1,"DT")="2930303"
^DD(161.22,.03,1,2,0)="161.22^AD^MUMPS"
^DD(161.22,.03,1,2,1)="S:$P(^FBAA(161.22,DA,0),U,2) ^FBAA(161.22,""AD"",X,$P(^(0),U,2),DA)="""""
^DD(161.22,.03,1,2,2)="K:$P(^FBAA(161.22,DA,0),U,2) ^FBAA(161.22,""AD"",+$P(^(0),U,2),DA)"
^DD(161.22,.03,1,2,"%D",0)="^^2^2^2930514^^^^"
^DD(161.22,.03,1,2,"%D",1,0)="Used to make sure there is not the same rate entered twice for the"
^DD(161.22,.03,1,2,"%D",2,0)="same contract."
^DD(161.22,.03,1,2,"DT")="2930308"
^DD(161.22,.03,21,0)="^^2^2^2930514^^^"
^DD(161.22,.03,21,1,0)="Contains the contract number associated with this rate as listed in the FEE"
^DD(161.22,.03,21,2,0)="Basis CNH Contract file."
^DD(161.22,.03,"DT")="2930308"
^DD(161.22,"B","CONTRACT",.03)=""
^DD(161.22,"B","DOLLAR AMOUNT",.02)=""
^DD(161.22,"B","NUMBER",.01)=""
^DD(161.22,"GL",0,1,.01)=""
^DD(161.22,"GL",0,2,.02)=""
^DD(161.22,"GL",0,3,.03)=""
^DD(161.22,"IX",.02)=""
^DD(161.22,"IX",.03)=""
^DD(161.22,"RQ",.01)=""
^DD(161.22,"RQ",.02)=""
^DD(161.22,"RQ",.03)=""
^DD(161.225,0)="SOCIOECONOMIC GROUP (FPDS) SUB-FIELD^^.01^1"
^DD(161.225,0,"DT")="2970814"
^DD(161.225,0,"IX","B",161.225,.01)=""
^DD(161.225,0,"NM","SOCIOECONOMIC GROUP (FPDS)")=""
^DD(161.225,0,"UP")="161.2"
^DD(161.225,.01,0)="SOCIOECONOMIC GROUP (FPDS)^M*P420.6'^PRCD(420.6,^0;1^S DIC(""S"")=""I Y>155,Y<169,$P(^(0),U,3)=1,$P(^(0),U,6)[$G(FBBT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(161.225,.01,1,0)="^.1"
^DD(161.225,.01,1,1,0)="161.225^B"
^DD(161.225,.01,1,1,1)="S ^FBAAV(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(161.225,.01,1,1,2)="K ^FBAAV(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(161.225,.01,3)="Enter socioeconomic groups for FPDS reporting purposes."
^DD(161.225,.01,12)="Only Socioeconomic Groups appropriate for the Business Type can be selected."
^DD(161.225,.01,12.1)="S DIC(""S"")=""I Y>155,Y<169,$P(^(0),U,3)=1,$P(^(0),U,6)[$G(FBBT)"""
^DD(161.225,.01,21,0)="^.001^1^1^3011024^^^^"
^DD(161.225,.01,21,1,0)="Socioeconomic group for FPDS reporting purposes."
^DD(161.225,.01,23,0)="^.001^3^3^3011024^^^^"
^DD(161.225,.01,23,1,0)="Before this field is edited, variable FBBT should be set equal to the"
^DD(161.225,.01,23,2,0)="current internal value of the BUSINESS TYPE (FPDS) for the vendor so that"
^DD(161.225,.01,23,3,0)="inappropriate socio-economic groups will be screened out."
^DD(161.225,.01,"DT")="3011024"
^DD(161.225,"B","SOCIOECONOMIC GROUP (FPDS)",.01)=""
^DD(161.225,"GL",0,1,.01)=""
^DD(161.225,"IX",.01)=""
^DD(161.23,0)="FIELD^^.06^6"
^DD(161.23,0,"DDA")="N"
^DD(161.23,0,"DT")="2930423"
^DD(161.23,0,"IX","AC",161.23,.03)=""
^DD(161.23,0,"IX","AD",161.23,.03)=""
^DD(161.23,0,"IX","ADR1",161.23,.02)=""
^DD(161.23,0,"IX","AE",161.23,.06)=""
^DD(161.23,0,"IX","AE1",161.23,.05)=""
^DD(161.23,0,"IX","B",161.23,.01)=""
^DD(161.23,0,"IX","C",161.23,.04)=""
^DD(161.23,0,"NM","FEE BASIS CNH AUTHORIZATION RATE")=""
^DD(161.23,0,"VR")="3.5"
^DD(161.23,.01,0)="FROM DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.23,.01,1,0)="^.1"
^DD(161.23,.01,1,1,0)="161.23^B"
^DD(161.23,.01,1,1,1)="S ^FBAA(161.23,""B"",$E(X,1,30),DA)="""""
^DD(161.23,.01,1,1,2)="K ^FBAA(161.23,""B"",$E(X,1,30),DA)"
^DD(161.23,.01,3)=""
^DD(161.23,.01,21,0)="^^1^1^2930303^"
^DD(161.23,.01,21,1,0)="This is the beginning date of the authorization rate."
^DD(161.23,.01,"DT")="2930303"
^DD(161.23,.02,0)="TO DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.23,.02,1,0)="^.1"
^DD(161.23,.02,1,1,0)="161.23^ADR1^MUMPS"
^DD(161.23,.02,1,1,1)="S:$P(^FBAA(161.23,DA,0),U,3) ^FBAA(161.23,""AD"",$E($P(^FBAA(161.23,DA,0),U,3),1,30),-X,DA)="""""
^DD(161.23,.02,1,1,2)="K:$P(^FBAA(161.23,DA,0),U,3) ^FBAA(161.23,""AD"",$P(^FBAA(161.23,DA,0),U,3),-X,DA)"
^DD(161.23,.02,1,1,"%D",0)="^^2^2^2930514^"
^DD(161.23,.02,1,1,"%D",1,0)="Updates the AD X-Reference on field .03 if the To Date for this"
^DD(161.23,.02,1,1,"%D",2,0)="CNH Authorization Rate changes."
^DD(161.23,.02,1,1,"DT")="2930422"
^DD(161.23,.02,21,0)="^^1^1^2930303^"
^DD(161.23,.02,21,1,0)="This is the ending date for this patients care at a given rate."
^DD(161.23,.02,"DT")="2930422"
^DD(161.23,.03,0)="ASSOCIATED 7078^RP162.4'^FB7078(^0;3^Q"
^DD(161.23,.03,1,0)="^.1"
^DD(161.23,.03,1,1,0)="161.23^AC^MUMPS"
^DD(161.23,.03,1,1,1)="S ^FBAA(161.23,""AC"",$E(X,1,30),DA)="""""
^DD(161.23,.03,1,1,2)="K ^FBAA(161.23,""AC"",$E(X,1,30),DA)"
^DD(161.23,.03,1,1,"%D",0)="^^1^1^2930330^^"
^DD(161.23,.03,1,1,"%D",1,0)="Allows the look-up of all dates associated with this authorization."
^DD(161.23,.03,1,1,"DT")="2930330"
^DD(161.23,.03,1,2,0)="161.23^AD^MUMPS"
^DD(161.23,.03,1,2,1)="S ^FBAA(161.23,""AD"",$E(X,1,30),-$P(^FBAA(161.23,DA,0),U,2),DA)="""""
^DD(161.23,.03,1,2,2)="K ^FBAA(161.23,""AD"",X,-$P(^FBAA(161.23,DA,0),U,2),DA)"
^DD(161.23,.03,1,2,"%D",0)="^^2^2^2930514^^^^"
^DD(161.23,.03,1,2,"%D",1,0)="This inverse date crossreference puts the newest rate for a given"
^DD(161.23,.03,1,2,"%D",2,0)="authorization at the top of the stack."
^DD(161.23,.03,1,2,"DT")="2930404"
^DD(161.23,.03,3)=""
^DD(161.23,.03,21,0)="^^2^2^2930308^^"
^DD(161.23,.03,21,1,0)="This field holds the pointer to file 162.4, 7078 FILE."
^DD(161.23,.03,21,2,0)="The field is populated by the system."
^DD(161.23,.03,"DT")="2930404"
^DD(161.23,.04,0)="PATIENT^RP161'^FBAAA(^0;4^Q"
^DD(161.23,.04,1,0)="^.1"
^DD(161.23,.04,1,1,0)="161.23^C"
^DD(161.23,.04,1,1,1)="S ^FBAA(161.23,""C"",$E(X,1,30),DA)="""""
^DD(161.23,.04,1,1,2)="K ^FBAA(161.23,""C"",$E(X,1,30),DA)"
^DD(161.23,.04,1,1,"%D",0)="^^1^1^2930403^"
^DD(161.23,.04,1,1,"%D",1,0)="Used to locate entries for a patient"
^DD(161.23,.04,1,1,"DT")="2930403"
^DD(161.23,.04,21,0)="^^1^1^2930303^"
^DD(161.23,.04,21,1,0)="The name of the Fee Basis Patient."
^DD(161.23,.04,"DT")="2930403"
^DD(161.23,.05,0)="PER DIEM RATE^RNJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01) X"
^DD(161.23,.05,1,0)="^.1"
^DD(161.23,.05,1,1,0)="161.23^AE1^MUMPS"
^DD(161.23,.05,1,1,1)="S:$P(^FBAA(161.23,DA,0),""^"",6) ^FBAA(161.23,""AE"",$P(^FBAA(161.23,DA,0),""^"",6),X,DA)="""""
^DD(161.23,.05,1,1,2)="K:$P(^FBAA(161.23,DA,0),""^"",6) ^FBAA(161.23,""AE"",$P(^FBAA(161.23,DA,0),""^"",6),X,DA)"
^DD(161.23,.05,1,1,"%D",0)="^^3^3^2930617^^^^"
^DD(161.23,.05,1,1,"%D",1,0)="Cross Reference built on Contract Number.  It uses the Perdium Rate as a"
^DD(161.23,.05,1,1,"%D",2,0)="second piece in the X-Ref.  Whenever a change is made to the perdium rate,"
^DD(161.23,.05,1,1,"%D",3,0)="an update to the AE X-Ref. will be made."
^DD(161.23,.05,1,1,"DT")="2930616"
^DD(161.23,.05,3)="Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits"
^DD(161.23,.05,21,0)="^^1^1^2930303^"
^DD(161.23,.05,21,1,0)="This is the dollar amount for this patient's care for a given timeframe."
^DD(161.23,.05,"DT")="2930818"
^DD(161.23,.06,0)="CONTRACT^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X"
^DD(161.23,.06,1,0)="^.1"
^DD(161.23,.06,1,1,0)="161.23^AE^MUMPS"
^DD(161.23,.06,1,1,1)="S:$P(^FBAA(161.23,DA,0),""^"",5) ^FBAA(161.23,""AE"",X,$P(^FBAA(161.23,DA,0),""^"",5),DA)="""""
^DD(161.23,.06,1,1,2)="K:$P(^FBAA(161.23,DA,0),""^"",5) ^FBAA(161.23,""AE"",X,$P(^FBAA(161.23,DA,0),""^"",5),DA)"
^DD(161.23,.06,1,1,"%D",0)="^^4^4^2930617^^^^"
^DD(161.23,.06,1,1,"%D",1,0)="Cross Reference on Contract # field used to identify all rates associated"
^DD(161.23,.06,1,1,"%D",2,0)="with a particular contract.  The rate is a secondary piece of the X-Ref,"
^DD(161.23,.06,1,1,"%D",3,0)="and an associated entry is made to update the X-Ref whenever a rate"
^DD(161.23,.06,1,1,"%D",4,0)="changes or is added."
^DD(161.23,.06,1,1,"DT")="2930616"
^DD(161.23,.06,3)="Answer must be 3-15 characters in length."
^DD(161.23,.06,21,0)="^^2^2^2930514^"
^DD(161.23,.06,21,1,0)="Contains the contract number associated with this authorization period as"
^DD(161.23,.06,21,2,0)="listed in the FEE Basis CNH Contract file."
^DD(161.23,.06,"DT")="2930616"
^DD(161.23,"B","ASSOCIATED 7078",.03)=""
^DD(161.23,"B","CONTRACT",.06)=""
^DD(161.23,"B","FROM DATE",.01)=""
^DD(161.23,"B","PATIENT",.04)=""
^DD(161.23,"B","PER DIEM RATE",.05)=""
^DD(161.23,"B","TO DATE",.02)=""
^DD(161.23,"GL",0,1,.01)=""
^DD(161.23,"GL",0,2,.02)=""
^DD(161.23,"GL",0,3,.03)=""
^DD(161.23,"GL",0,4,.04)=""
^DD(161.23,"GL",0,5,.05)=""
^DD(161.23,"GL",0,6,.06)=""
^DD(161.23,"IX",.01)=""
^DD(161.23,"IX",.02)=""
^DD(161.23,"IX",.03)=""
^DD(161.23,"IX",.04)=""
^DD(161.23,"IX",.05)=""
^DD(161.23,"IX",.06)=""
^DD(161.23,"RQ",.01)=""
^DD(161.23,"RQ",.02)=""
^DD(161.23,"RQ",.03)=""
^DD(161.23,"RQ",.04)=""
^DD(161.23,"RQ",.05)=""
^DD(161.24,0)="DATE/TIME OF LAST NPI CHANGE SUB-FIELD^^.04^4"
^DD(161.24,0,"DT")="3060828"
^DD(161.24,0,"IX","B",161.24,.01)=""
^DD(161.24,0,"NM","DATE/TIME OF LAST NPI CHANGE")=""
^DD(161.24,0,"UP")="161.2"
^DD(161.24,.01,0)="DATE/TIME OF LAST NPI CHANGE^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(161.24,.01,1,0)="^.1"
^DD(161.24,.01,1,1,0)="161.24^B"
^DD(161.24,.01,1,1,1)="S ^FBAAV(DA(1),""NPI"",""B"",$E(X,1,30),DA)="""""
^DD(161.24,.01,1,1,2)="K ^FBAAV(DA(1),""NPI"",""B"",$E(X,1,30),DA)"
^DD(161.24,.01,3)="Enter the date/time of the last change to this NPI"
^DD(161.24,.01,9)="^"
^DD(161.24,.01,21,0)="^^1^1^3060411^"
^DD(161.24,.01,21,1,0)="This field contains the date and time of the last change to the NPI field."
^DD(161.24,.01,"DT")="3060411"
^DD(161.24,.02,0)="STATUS^S^1:ACTIVE;0:INACTIVE;2:DELETED;^0;2^Q"
^DD(161.24,.02,1,0)="^.1^^0"
^DD(161.24,.02,3)="Enter a 1 for 'ACTIVE' or a 0 for 'INACTIVE', or a 2 for DELETED"
^DD(161.24,.02,21,0)="^.001^4^4^3060907^^^"
^DD(161.24,.02,21,1,0)="The status of an NPI is either 'ACTIVE' or 'INACTIVE'.  If 'ACTIVE', then "
^DD(161.24,.02,21,2,0)="the NPI will be accessible by end-users to document a particular "
^DD(161.24,.02,21,3,0)="provider.  If 'INACTIVE', then the NPI will only be accessible by the "
^DD(161.24,.02,21,4,0)="application to display legacy data."
^DD(161.24,.02,"DT")="3060912"
^DD(161.24,.03,0)="NPI^FX^^0;3^K:$L(X)>10!($L(X)<10)!('$$CHKDGT^XUSNPI(X)) X"
^DD(161.24,.03,3)="Answer must be 10 characters in length.  Numerics only."
^DD(161.24,.03,21,0)="^^5^5^3060503^"
^DD(161.24,.03,21,1,0)="Unique National Provider Identifier.  A unique integer assigned to"
^DD(161.24,.03,21,2,0)="providers by CMS. This field contains all of the NPIs associated with"
^DD(161.24,.03,21,3,0)="this provider.  The current NPI will be set as active in the STATUS field"
^DD(161.24,.03,21,4,0)="of this multiple.  All others will be set as inactive.  There can only be"
^DD(161.24,.03,21,5,0)="one active NPI."
^DD(161.24,.03,"DT")="3060412"
^DD(161.24,.04,0)="PERSON AFFECTING LAST CHANGE^P200'^VA(200,^0;4^Q"
^DD(161.24,.04,3)="Enter the name of the person who last changed this NPI."
^DD(161.24,.04,21,0)="^^1^1^3060412^"
^DD(161.24,.04,21,1,0)="This is the VistA person who last modified the NPI field"
^DD(161.24,.04,"DT")="3060412"
^DD(161.24,"B","DATE/TIME OF LAST NPI CHANGE",.01)=""
^DD(161.24,"B","NPI",.03)=""
^DD(161.24,"B","PERSON AFFECTING LAST CHANGE",.04)=""
^DD(161.24,"B","STATUS",.02)=""
^DD(161.24,"GL",0,1,.01)=""
^DD(161.24,"GL",0,2,.02)=""
^DD(161.24,"GL",0,3,.03)=""
^DD(161.24,"GL",0,4,.04)=""
^DD(161.24,"IX",.01)=""
^DD(161.25,0)="FIELD^^5^6"
^DD(161.25,0,"DDA")="N"
^DD(161.25,0,"DT")="2931020"
^DD(161.25,0,"IX","AC",161.25,2)=""
^DD(161.25,0,"IX","AD",161.25,4)=""
^DD(161.25,0,"IX","AE",161.25,1)=""
^DD(161.25,0,"IX","AF",161.25,5)=""
^DD(161.25,0,"IX","B",161.25,.01)=""
^DD(161.25,0,"NM","FEE BASIS VENDOR CORRECTION")=""
^DD(161.25,0,"VR")="3.5"
^DD(161.25,.01,0)="NAME^RP161.2'X^FBAAV(^0;1^S:$D(X) DINUM=X"
^DD(161.25,.01,1,0)="^.1"
^DD(161.25,.01,1,1,0)="161.25^B"
^DD(161.25,.01,1,1,1)="S ^FBAA(161.25,""B"",$E(X,1,30),DA)="""""
^DD(161.25,.01,1,1,2)="K ^FBAA(161.25,""B"",$E(X,1,30),DA)"
^DD(161.25,.01,3)=""
^DD(161.25,.01,21,0)="^^1^1^2930519^^"
^DD(161.25,.01,21,1,0)="Vendor to whom this master record adjustment pertains."
^DD(161.25,.01,"DT")="2930324"
^DD(161.25,1,0)="PHARMACY TYPE ACTION^S^N:NEW;C:CHANGE;D:DELETE;R:REINSTATE;F:FPDS ONLY CHANGE;^0;2^Q"
^DD(161.25,1,1,0)="^.1"
^DD(161.25,1,1,1,0)="161.25^AE^MUMPS"
^DD(161.25,1,1,1,1)="S:$P(^FBAA(161.25,DA,0),U,5)="""" ^FBAA(161.25,""AE"",""P"",DA)="""""
^DD(161.25,1,1,1,2)="K ^FBAA(161.25,""AE"",""P"",DA)"
^DD(161.25,1,1,1,"%D",0)="^^2^2^2931012^"
^DD(161.25,1,1,1,"%D",1,0)="This cross-reference is used to determine which vendors need to"
^DD(161.25,1,1,1,"%D",2,0)="be transmitted to Austin.  It is deleted when data is transmitted."
^DD(161.25,1,1,1,"DT")="2930324"
^DD(161.25,1,21,0)="^^2^2^2930324^"
^DD(161.25,1,21,1,0)="For pharmacy type vendors, the type of MRA transaction"
^DD(161.25,1,21,2,0)="(ie new, change) is entered here."
^DD(161.25,1,"DT")="2970826"
^DD(161.25,2,0)="NON PHARMACY TYPE OF CORR^RS^N:NEW;C:CHANGE;D:DELETED;R:REINSTATE;F:FPDS ONLY CHANGE;^0;3^Q"
^DD(161.25,2,1,0)="^.1"
^DD(161.25,2,1,1,0)="161.25^AC^MUMPS"
^DD(161.25,2,1,1,1)="S:$P(^FBAA(161.25,DA,0),U,5)="""" ^FBAA(161.25,""AE"",""O"",DA)="""""
^DD(161.25,2,1,1,2)="K ^FBAA(161.25,""AE"",""O"",DA)"
^DD(161.25,2,1,1,"%D",0)="^^2^2^2931012^"
^DD(161.25,2,1,1,"%D",1,0)="This cross-reference is used to determine which vendors need to"
^DD(161.25,2,1,1,"%D",2,0)="be transmitted to Austin.  It is deleted when data is transmitted."
^DD(161.25,2,1,1,"DT")="2930324"
^DD(161.25,2,21,0)="^^2^2^2930324^"
^DD(161.25,2,21,1,0)="For non-pharmacy type vendors, the master record adjustment"
^DD(161.25,2,21,2,0)="transaction type (ie new,change) is entered here."
^DD(161.25,2,"DT")="2970826"
^DD(161.25,3,0)="FEE ONLY INDICATOR^S^Y:YES;^0;4^Q"
^DD(161.25,3,21,0)="2"
^DD(161.25,3,21,1,0)="If the data to be changed should ONLY affect the Central Fee file and"
^DD(161.25,3,21,2,0)="not the CALM file, this field must be set."
^DD(161.25,3,"DT")="2930324"
^DD(161.25,4,0)="DATE TRANSMITTED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.25,4,1,0)="^.1"
^DD(161.25,4,1,1,0)="161.25^AD^MUMPS"
^DD(161.25,4,1,1,1)="S ^FBAA(161.25,""AD"",$E(X,1,30),$S($P(^FBAA(161.25,DA,0),U,2)]"""":""P"",1:""O""),DA)="""""
^DD(161.25,4,1,1,2)="K ^FBAA(161.25,""AD"",$E(X,1,30),$S($P(^FBAA(161.25,DA,0),U,2)]"""":""P"",1:""O""),DA)"
^DD(161.25,4,1,1,"%D",0)="^^3^3^2931012^"
^DD(161.25,4,1,1,"%D",1,0)="This cross-reference is used when exercising the purging of MRA's"
^DD(161.25,4,1,1,"%D",2,0)="for a transmitted dated range.  It is also used in the retransmit"
^DD(161.25,4,1,1,"%D",3,0)="MRA's for a date."
^DD(161.25,4,1,1,"DT")="2930324"
^DD(161.25,4,21,0)="^^2^2^2930324^"
^DD(161.25,4,21,1,0)="The date that the last master record adjustment for this vendor"
^DD(161.25,4,21,2,0)="was transmitted to Austin."
^DD(161.25,4,"DT")="2930324"
^DD(161.25,5,0)="LINKED VENDOR^NJ14,0^^0;6^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(161.25,5,1,0)="^.1"
^DD(161.25,5,1,1,0)="161.25^AF"
^DD(161.25,5,1,1,1)="S ^FBAA(161.25,""AF"",$E(X,1,30),DA)="""""
^DD(161.25,5,1,1,2)="K ^FBAA(161.25,""AF"",$E(X,1,30),DA)"
^DD(161.25,5,1,1,"%D",0)="^^2^2^2930330^"
^DD(161.25,5,1,1,"%D",1,0)="Cross-reference on Linked Vendor field to determine what vendor this"
^DD(161.25,5,1,1,"%D",2,0)="change was made from."
^DD(161.25,5,1,1,"DT")="2930330"
^DD(161.25,5,3)="Type a Number between 0 and 99999999999999, 0 Decimal Digits"
^DD(161.25,5,21,0)="^^4^4^2930517^^"
^DD(161.25,5,21,1,0)="If the vendor correction is a change, this entry will contain the internal"
^DD(161.25,5,21,2,0)="entry number of the vendor the change was originated from.  This will"
^DD(161.25,5,21,3,0)="allow for reference to the original vendor, if Austin processes the record"
^DD(161.25,5,21,4,0)="and indicates the two vendors are the same."
^DD(161.25,5,"DT")="2930517"
^DD(161.25,"B","DATE TRANSMITTED",4)=""
^DD(161.25,"B","FEE ONLY INDICATOR",3)=""
^DD(161.25,"B","LINKED VENDOR",5)=""
^DD(161.25,"B","NAME",.01)=""
^DD(161.25,"B","NON PHARMACY TYPE OF CORR",2)=""
^DD(161.25,"B","PHARMACY TYPE ACTION",1)=""
^DD(161.25,"GL",0,1,.01)=""
^DD(161.25,"GL",0,2,1)=""
^DD(161.25,"GL",0,3,2)=""
^DD(161.25,"GL",0,4,3)=""
^DD(161.25,"GL",0,5,4)=""
^DD(161.25,"GL",0,6,5)=""
^DD(161.25,"IX",.01)=""
^DD(161.25,"IX",1)=""
^DD(161.25,"IX",2)=""
^DD(161.25,"IX",4)=""
^DD(161.25,"IX",5)=""
^DD(161.25,"RQ",.01)=""
^DD(161.25,"RQ",2)=""
^DD(161.26,0)="FIELD^^6^7"
^DD(161.26,0,"IX","AC",161.26,1)=""
^DD(161.26,0,"IX","AD",161.26,4)=""
^DD(161.26,0,"IX","B",161.26,.01)=""
^DD(161.26,0,"NM","FEE BASIS PATIENT MRA")=""
^DD(161.26,0,"VR")="3.5"
^DD(161.26,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(161.26,.01,1,0)="^.1"
^DD(161.26,.01,1,1,0)="161.26^B"
^DD(161.26,.01,1,1,1)="S ^FBAA(161.26,""B"",$E(X,1,30),DA)="""""
^DD(161.26,.01,1,1,2)="K ^FBAA(161.26,""B"",$E(X,1,30),DA)"
^DD(161.26,.01,3)=""
^DD(161.26,.01,21,0)="^^1^1^2930519^^"
^DD(161.26,.01,21,1,0)="The veteran for whom this master record adjustment is created. "
^DD(161.26,.01,"DT")="2980604"
^DD(161.26,1,0)="STATUS^RS^P:PENDING TRANSMISSION;T:TRANSMITTED;^0;2^Q"
^DD(161.26,1,1,0)="^.1"
^DD(161.26,1,1,1,0)="161.26^AC"
^DD(161.26,1,1,1,1)="S ^FBAA(161.26,""AC"",$E(X,1,30),DA)="""""
^DD(161.26,1,1,1,2)="K ^FBAA(161.26,""AC"",$E(X,1,30),DA)"
^DD(161.26,1,21,0)="^^2^2^2880304^"
^DD(161.26,1,21,1,0)="This field identifies whether this master record adjustment is pending"
^DD(161.26,1,21,2,0)="transmission to Austin or has already been transmitted."
^DD(161.26,2,0)="POINTER TO AUTHORIZATION NODE^RNJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.26,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999"
^DD(161.26,2,8)="#"
^DD(161.26,2,8.5)="#"
^DD(161.26,2,9)="#"
^DD(161.26,2,21,0)="^^5^5^2931012^^"
^DD(161.26,2,21,1,0)="This field contains the internal entry number of the authorization "
^DD(161.26,2,21,2,0)="record selected for the veteran. This is needed because master record"
^DD(161.26,2,21,3,0)="adjustments are related to specific authorizations. The user does NOT"
^DD(161.26,2,21,4,0)="enter this field directly. The data is captured automatically when the"
^DD(161.26,2,21,5,0)="user selects the authorization."
^DD(161.26,2,23,0)="^^2^2^2931012^"
^DD(161.26,2,23,1,0)="This field contains the 'DA' value from Fee Basis Patient file.  It is"
^DD(161.26,2,23,2,0)="the internal entry number at the authorization multiple. [^FBAAA(DA(1),1,DA]"
^DD(161.26,2,"DT")="2860425"
^DD(161.26,3,0)="TYPE^RS^A:ADD;R:REINSTATE;D:DELETE;C:CHANGE;^0;4^Q"
^DD(161.26,3,21,0)="^^2^2^2880304^"
^DD(161.26,3,21,1,0)="Indicates the type (ie add, change) of master record adjustment this"
^DD(161.26,3,21,2,0)="is."
^DD(161.26,3,"DT")="2860915"
^DD(161.26,4,0)="DATE TRANSMITTED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.26,4,1,0)="^.1"
^DD(161.26,4,1,1,0)="161.26^AD"
^DD(161.26,4,1,1,1)="S ^FBAA(161.26,""AD"",$E(X,1,30),DA)="""""
^DD(161.26,4,1,1,2)="K ^FBAA(161.26,""AD"",$E(X,1,30),DA)"
^DD(161.26,4,21,0)="^^2^2^2880304^"
^DD(161.26,4,21,1,0)="The date that last master record adjustment for this veteran was "
^DD(161.26,4,21,2,0)="transmitted to Austin."
^DD(161.26,4,"DT")="2860710"
^DD(161.26,5,0)="AUTH. FROM DATE CHANGED^S^1:YES;2:NO;^0;6^Q"
^DD(161.26,5,21,0)="^^6^6^2880304^"
^DD(161.26,5,21,1,0)="This field is used as a flag to indicate that the authorization From Date"
^DD(161.26,5,21,2,0)="is being changed by this master record adjustment. If this field is set"
^DD(161.26,5,21,3,0)="to yes, the authorization To Date is set to spaces when the transaction"
^DD(161.26,5,21,4,0)="is created. An Austin requirement is to change the From Date, the To"
^DD(161.26,5,21,5,0)="date must be blank. This field only pertains to a 'Change' type "
^DD(161.26,5,21,6,0)="transaction."
^DD(161.26,5,"DT")="2901012"
^DD(161.26,6,0)="SHORT TERM MRA^S^Y:yes;^0;7^Q"
^DD(161.26,6,21,0)="^^6^6^2880304^"
^DD(161.26,6,21,1,0)="This field is used as a flag and relates to outpatient medical "
^DD(161.26,6,21,2,0)="reimbursements for a veteran with only a short term authorization."
^DD(161.26,6,21,3,0)=" For those reimbursements the system automatically creates"
^DD(161.26,6,21,4,0)="a master record adjustment sending the most current data. This field is"
^DD(161.26,6,21,5,0)="used to identify that this transaction is only temporary and not to"
^DD(161.26,6,21,6,0)="establish a long term master record."
^DD(161.26,6,"DT")="2871203"
^DD(161.26,"B","AUTH. FROM DATE CHANGED",5)=""
^DD(161.26,"B","DATE TRANSMITTED",4)=""
^DD(161.26,"B","NAME",.01)=""
^DD(161.26,"B","POINTER TO AUTHORIZATION NODE",2)=""
^DD(161.26,"B","SHORT TERM MRA",6)=""
^DD(161.26,"B","STATUS",1)=""
^DD(161.26,"B","TYPE",3)=""
^DD(161.26,"GL",0,1,.01)=""
^DD(161.26,"GL",0,2,1)=""
^DD(161.26,"GL",0,3,2)=""
^DD(161.26,"GL",0,4,3)=""
^DD(161.26,"GL",0,5,4)=""
^DD(161.26,"GL",0,6,5)=""
^DD(161.26,"GL",0,7,6)=""
^DD(161.26,"IX",.01)=""
^DD(161.26,"IX",1)=""
^DD(161.26,"IX",4)=""
^DD(161.26,"RQ",.01)=""
^DD(161.26,"RQ",1)=""
^DD(161.26,"RQ",2)=""
^DD(161.26,"RQ",3)=""
^DD(161.27,0)="FIELD^^2^3"
^DD(161.27,0,"ID",2)="W:$D(^(2)) ""   "",$P(^(2),U,1)"
^DD(161.27,0,"IX","B",161.27,.01)=""
^DD(161.27,0,"IX","C",161.27,2)=""
^DD(161.27,0,"NM","FEE BASIS SUSPENSION")=""
^DD(161.27,0,"PT",161.91,3)=""
^DD(161.27,0,"PT",162.03,4)=""
^DD(161.27,0,"PT",162.11,7)=""
^DD(161.27,0,"PT",162.2,14)=""
^DD(161.27,0,"PT",162.5,10)=""
^DD(161.27,0,"VR")="3.5"
^DD(161.27,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(161.27,.01,1,0)="^.1"
^DD(161.27,.01,1,1,0)="161.27^B"
^DD(161.27,.01,1,1,1)="S ^FBAA(161.27,""B"",$E(X,1,30),DA)="""""
^DD(161.27,.01,1,1,2)="K ^FBAA(161.27,""B"",$E(X,1,30),DA)"
^DD(161.27,.01,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(161.27,.01,21,0)="^^2^2^2880617^^^^"
^DD(161.27,.01,21,1,0)="These codes represent reasons for payment suspense. They are"
^DD(161.27,.01,21,2,0)="identified by the 'Short Description' field."
^DD(161.27,1,0)="DESCRIPTION^161.28^^1;0"
^DD(161.27,1,21,0)="^^3^3^2880304^"
^DD(161.27,1,21,1,0)="This field represents the expanded explanation of the"
^DD(161.27,1,21,2,0)="suspense codes.They are used during the printing of"
^DD(161.27,1,21,3,0)="the suspense letters."
^DD(161.27,2,0)="SHORT DESCRIPTION^F^^2;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X"
^DD(161.27,2,1,0)="^.1^^-1"
^DD(161.27,2,1,1,0)="161.27^C^MUMPS"
^DD(161.27,2,1,1,1)="D XSET^FBAAUTL1"
^DD(161.27,2,1,1,2)="D XKILL^FBAAUTL1"
^DD(161.27,2,1,1,"%D",0)="^^2^2^2920903^"
^DD(161.27,2,1,1,"%D",1,0)="Sets a cross-reference in capital letters that allows look-up by"
^DD(161.27,2,1,1,"%D",2,0)="short description."
^DD(161.27,2,1,1,"DT")="2920903"
^DD(161.27,2,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(161.27,2,21,0)="^^2^2^2880304^^^^"
^DD(161.27,2,21,1,0)="This field contains an abbreviated text of the suspense codes."
^DD(161.27,2,21,2,0)="They are used in the help text when entering suspense codes."
^DD(161.27,2,"DT")="2920903"
^DD(161.27,"B","CODE",.01)=""
^DD(161.27,"B","DESCRIPTION",1)=""
^DD(161.27,"B","SHORT DESCRIPTION",2)=""
^DD(161.27,"GL",0,1,.01)=""
^DD(161.27,"GL",1,0,1)=""
^DD(161.27,"GL",2,1,2)=""
^DD(161.27,"IX",.01)=""
^DD(161.27,"IX",2)=""
^DD(161.27,"RQ",.01)=""
^DD(161.27,"SB",161.28,1)=""
^DD(161.28,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(161.28,0,"NM","DESCRIPTION")=""
^DD(161.28,0,"UP")="161.27"
^DD(161.28,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(161.28,"B","DESCRIPTION",.01)=""
^DD(161.28,"GL",0,1,.01)=""
^DD(161.3,0)="FIELD^^2^4"
^DD(161.3,0,"DT")="2930405"
^DD(161.3,0,"IX","B",161.3,.01)=""
^DD(161.3,0,"NM","FEE BASIS LETTER")=""
^DD(161.3,0,"PT",162.92,.05)=""
^DD(161.3,0,"PT",162.92,.06)=""
^DD(161.3,0,"VR")="3.5"
^DD(161.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(161.3,.01,1,0)="^.1"
^DD(161.3,.01,1,1,0)="161.3^B"
^DD(161.3,.01,1,1,1)="S ^FBAA(161.3,""B"",$E(X,1,30),DA)="""""
^DD(161.3,.01,1,1,2)="K ^FBAA(161.3,""B"",$E(X,1,30),DA)"
^DD(161.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(161.3,.01,21,0)="^^1^1^2930514^^"
^DD(161.3,.01,21,1,0)="Name assigned to this letter for later selection."
^DD(161.3,.02,0)="TYPE OF LETTER^*S^1:UNAUTHORIZED CLAIM;^0;2^Q"
^DD(161.3,.02,3)="Select the appropriate letter category."
^DD(161.3,.02,12)="Select appropriate letter."
^DD(161.3,.02,12.1)="S DIC(""S"")=""I $S('$D(FBUC):0,$D(FBUC):1,1:0)"""
^DD(161.3,.02,21,0)="^^1^1^2930405^"
^DD(161.3,.02,21,1,0)="Used to designate the appropriate letter category."
^DD(161.3,.02,23,0)="^^1^1^2930405^"
^DD(161.3,.02,23,1,0)="Used to screen unauthorized claim letters."
^DD(161.3,.02,"DT")="2930405"
^DD(161.3,1,0)="BEGINNING OF LETTER^161.31^^1;0"
^DD(161.3,1,21,0)="^^4^4^2880617^^^^"
^DD(161.3,1,21,1,0)="Any number of paragraphs which will be printed at the top"
^DD(161.3,1,21,2,0)="of the letter. This same data will be printed on every suspense"
^DD(161.3,1,21,3,0)="letter generated, therefore it should be as generic as possible. "
^DD(161.3,1,21,4,0)="See the SAMPLE letter sent out with the DHCP Fee package."
^DD(161.3,2,0)="END OF LETTER^161.32^^2;0"
^DD(161.3,2,21,0)="^^4^4^2880527^^"
^DD(161.3,2,21,1,0)="This can be any number of paragraphs and will be printed after the "
^DD(161.3,2,21,2,0)="specific suspended line items are printed. This, like field #1"
^DD(161.3,2,21,3,0)="will be printed on all suspense letters generated, therefore it must be"
^DD(161.3,2,21,4,0)="generic. See the Sample letter sent out with the system."
^DD(161.3,"B","BEGINNING OF LETTER",1)=""
^DD(161.3,"B","END OF LETTER",2)=""
^DD(161.3,"B","NAME",.01)=""
^DD(161.3,"B","TYPE OF LETTER",.02)=""
^DD(161.3,"GL",0,1,.01)=""
^DD(161.3,"GL",0,2,.02)=""
^DD(161.3,"GL",1,0,1)=""
^DD(161.3,"GL",2,0,2)=""
^DD(161.3,"IX",.01)=""
^DD(161.3,"RQ",.01)=""
^DD(161.3,"SB",161.31,1)=""
^DD(161.3,"SB",161.32,2)=""
^DD(161.31,0)="BEGINNING OF LETTER SUB-FIELD^^.01^1"
^DD(161.31,0,"NM","BEGINNING OF LETTER")=""
^DD(161.31,0,"UP")="161.3"
^DD(161.31,.01,0)="BEGINNING OF LETTER^WL^^0;1^Q"
^DD(161.31,.01,21,0)="^^3^3^2880608^^^"
^DD(161.31,.01,21,1,0)="Any number of paragraphs which will be printed at the top of the letter."
^DD(161.31,.01,21,2,0)="This same data will be printed on every suspense letter generated, "
^DD(161.31,.01,21,3,0)="this has to be generic type information."
^DD(161.31,.01,"DT")="2880209"
^DD(161.31,"B","BEGINNING OF LETTER",.01)=""
^DD(161.31,"GL",0,1,.01)=""
^DD(161.32,0)="END OF LETTER SUB-FIELD^^.01^1"
^DD(161.32,0,"NM","END OF LETTER")=""
^DD(161.32,0,"UP")="161.3"
^DD(161.32,.01,0)="END OF LETTER^WL^^0;1^Q"
^DD(161.32,.01,21,0)="^^1^1^2940811^^"
^DD(161.32,.01,21,1,0)=" "
^DD(161.32,.01,"DT")="2880209"
^DD(161.32,"B","END OF LETTER",.01)=""
^DD(161.32,"GL",0,1,.01)=""
^DD(161.4,0)="FIELD^^35.7^38"
^DD(161.4,0,"DT")="2940714"
^DD(161.4,0,"IX","B",161.4,.01)=""
^DD(161.4,0,"NM","FEE BASIS SITE PARAMETERS")=""
^DD(161.4,0,"VR")="3.5"
^DD(161.4,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.4,.001,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(161.4,.001,21,0)="^^2^2^2941128^"
^DD(161.4,.001,21,1,0)="This field is used to prevent the addition of more than one"
^DD(161.4,.001,21,2,0)="entry into the site parameter file."
^DD(161.4,.001,"DT")="2940318"
^DD(161.4,.01,0)="STATION OF JURISDICTION NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(161.4,.01,1,0)="^.1"
^DD(161.4,.01,1,1,0)="161.4^B"
^DD(161.4,.01,1,1,1)="S ^FBAA(161.4,""B"",$E(X,1,30),DA)="""""
^DD(161.4,.01,1,1,2)="K ^FBAA(161.4,""B"",$E(X,1,30),DA)"
^DD(161.4,.01,3)="Answer must be 3-30 characters in length."
^DD(161.4,.01,21,0)="^^2^2^2880304^"
^DD(161.4,.01,21,1,0)="The name of this Clinic of Jurisdiction for which these site parameters"
^DD(161.4,.01,21,2,0)="are defined. There can be only 1 entry in this file."
^DD(161.4,.01,"DT")="2940318"
^DD(161.4,1,0)="STATION ADDRESS LINE 1^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(161.4,1,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(161.4,1,21,0)="^^2^2^2880304^"
^DD(161.4,1,21,1,0)="Street address line 1 of this COJ. This data will be printed on the"
^DD(161.4,1,21,2,0)="Authorization form 7079."
^DD(161.4,2,0)="STATION ADDRESS LINE 2^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(161.4,2,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(161.4,2,21,0)="^^2^2^2880304^"
^DD(161.4,2,21,1,0)="Street address line 2 of this COJ. This address line will also print on"
^DD(161.4,2,21,2,0)="the Authorization form 7079."
^DD(161.4,3,0)="CITY^RF^^0;4^K:$L(X)>23!($L(X)<2) X"
^DD(161.4,3,3)="ANSWER MUST BE 2-23 CHARACTERS IN LENGTH"
^DD(161.4,3,21,0)="^^1^1^2880304^"
^DD(161.4,3,21,1,0)="The city in which the COJ receives it's mail."
^DD(161.4,4,0)="STATE^RP5'^DIC(5,^0;5^Q"
^DD(161.4,4,21,0)="^^1^1^2930519^^"
^DD(161.4,4,21,1,0)="The state in which the COJ's mailing address resides."
^DD(161.4,5,0)="ZIP^RF^^0;6^K:$L(X)>9!($L(X)<5) X"
^DD(161.4,5,3)="ANSWER MUST BE 5-9 CHARACTERS IN LENGTH"
^DD(161.4,5,21,0)="^^1^1^2880304^"
^DD(161.4,5,21,1,0)="Zip code for the COJ."
^DD(161.4,5.5,0)="MAIL CODE^F^^1;11^K:$L(X)>10!($L(X)<2) X"
^DD(161.4,5.5,3)="Answer must be 2-10 characters in length."
^DD(161.4,5.5,21,0)="^.001^2^2^3001012^^^"
^DD(161.4,5.5,21,1,0)="The Mail Code will appear in the upper right corner of Unauthorized Claim"
^DD(161.4,5.5,21,2,0)="letters immediately after the medical center division."
^DD(161.4,5.5,"DT")="3001012"
^DD(161.4,6,0)="STATION TELEPHONE NUMBER^RF^^0;7^K:$L(X)>20!($L(X)<6) X"
^DD(161.4,6,3)="ANSWER MUST BE 6-20 CHARACTERS IN LENGTH"
^DD(161.4,6,21,0)="^^1^1^2880608^^^"
^DD(161.4,6,21,1,0)="The telephone number where Fee inquiries should be directed."
^DD(161.4,7,0)="APPROVING OFFICIAL FOR 7079^RF^^0;8^K:$L(X)>45!($L(X)<3) X"
^DD(161.4,7,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(161.4,7,21,0)="^^2^2^2880304^"
^DD(161.4,7,21,1,0)="The name of the approving official authorizing fee services. This name "
^DD(161.4,7,21,2,0)="will be printed on the authorization form 7079."
^DD(161.4,8,0)="TITLE OF APPROVING OFFICIAL^RF^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(161.4,8,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(161.4,8,21,0)="^^2^2^2880304^"
^DD(161.4,8,21,1,0)="The title of the approving official which will also be printed on the"
^DD(161.4,8,21,2,0)="authorization form 7079."
^DD(161.4,9,0)="MEDICAID DISPENSING FEE^RNJ5,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>20)!(X<.01) X"
^DD(161.4,9,3)="Type a Dollar Amount between .01 and 20, 2 Decimal Digits"
^DD(161.4,9,21,0)="^^2^2^2930519^^^^"
^DD(161.4,9,21,1,0)="The medicaid dispensing fee for this COJ. Dispensing fees vary from "
^DD(161.4,9,21,2,0)="COJ to COJ. Medicaid approves dispensing fee's."
^DD(161.4,9,"DT")="2930105"
^DD(161.4,10,0)="NEXT BATCH NUMBER^RNJ5,0I^^FBNUM;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.4,10,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(161.4,10,8.5)="~"
^DD(161.4,10,9)="~"
^DD(161.4,10,21,0)="^^2^2^2880617^^^^"
^DD(161.4,10,21,1,0)="The next batch number which will be assigned by the system. This cannot"
^DD(161.4,10,21,2,0)="be edited or changed."
^DD(161.4,10,"DT")="2940725"
^DD(161.4,11,0)="NEXT INVOICE NUMBER^RNJ7,0I^^FBNUM;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.4,11,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999"
^DD(161.4,11,8.5)="~"
^DD(161.4,11,9)="~"
^DD(161.4,11,21,0)="^^2^2^2880617^^^^"
^DD(161.4,11,21,1,0)="The next invoice number which will automatically be assigned by the"
^DD(161.4,11,21,2,0)="system. This number cannot be edited or deleted."
^DD(161.4,11,"DT")="2940725"
^DD(161.4,12,0)="MEDICAL PAYMENT VENDOR DISPLAY^FXO^^0;11^I $D(X) D YN^FBAAUTL3"
^DD(161.4,12,.1)="DISPLAY VENDOR DEMOGRAPHICS DURING MEDICAL PAYMENT PROCESS"
^DD(161.4,12,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.4,12,2.1)="D OUTYN^FBAAUTL3"
^DD(161.4,12,3)="Answer 'Yes' or '1' for YES and 'No' or '0' for NO."
^DD(161.4,12,21,0)="^^3^3^2880304^"
^DD(161.4,12,21,1,0)="This parameter is used to indicate whether the vendor's demographic"
^DD(161.4,12,21,2,0)="data will be displayed and made editable during the entering of a medical"
^DD(161.4,12,21,3,0)="payment."
^DD(161.4,12,"DT")="2940318"
^DD(161.4,13,0)="PHARMACY PAYMNT VENDOR DISPLAY^FXO^^0;12^I $D(X) D YN^FBAAUTL3"
^DD(161.4,13,.1)="DISPLAY VENDOR DEMOGRAPHICS DURING THE ENTER PHARMACY INVOICE OPTION"
^DD(161.4,13,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.4,13,2.1)="D OUTYN^FBAAUTL3"
^DD(161.4,13,3)="Enter 'Yes' or '1' if you want Vendor Demographics to display during Enter Pharmacy Invoice option, otherwise answer 'No' or '0' for No."
^DD(161.4,13,21,0)="^^1^1^2880304^^"
^DD(161.4,13,21,1,0)="If there is a 'Y' in this field, the Vendor Demographics will be displayed during the Enter Pharmacy Invoice option."
^DD(161.4,13,"DT")="2940318"
^DD(161.4,14,0)="DEFAULT AUTH. TIME RANGE^NJ4,0^^0;13^K:+X'=X!(X>1095)!(X<0)!(X?.E1"".""1N.N) X"
^DD(161.4,14,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1095"
^DD(161.4,14,21,0)="^^5^5^2880304^"
^DD(161.4,14,21,1,0)="The number of days that is the usual long term authorization. The data"
^DD(161.4,14,21,2,0)="entered here will be added to the Authorization From date and that date"
^DD(161.4,14,21,3,0)="will become the default 'To Date' for the authorization. For example,"
^DD(161.4,14,21,4,0)="if the normal long term authorization is one year, 364 would be entered"
^DD(161.4,14,21,5,0)="in this parameter."
^DD(161.4,14,"DT")="2870223"
^DD(161.4,15,0)="ASK VENDOR DURING AUTH.^S^y:YES;^1;1^Q"
^DD(161.4,15,21,0)="^^1^1^2880608^"
^DD(161.4,15,21,1,0)="A 'yes' results in asking for Vendor in Enter Authorization."
^DD(161.4,15,"DT")="2860911"
^DD(161.4,16,0)="STATION ADDRESS LINE 3^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(161.4,16,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(161.4,16,21,0)="^^1^1^2880304^"
^DD(161.4,16,21,1,0)="Line 3 of the COJ's street address."
^DD(161.4,16,"DT")="2860922"
^DD(161.4,17,0)="MAX # PAYMENT LINE ITEMS^NJ3,0^^FBNUM;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.4,17,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(161.4,17,21,0)="^^5^5^2901127^^^"
^DD(161.4,17,21,1,0)="The maximum number of payment line items that will be allowed in a batch."
^DD(161.4,17,21,2,0)="Any number between 1 and 100 is acceptable. This value is checked"
^DD(161.4,17,21,3,0)="during the enter payment options and will warn the clerks when they "
^DD(161.4,17,21,4,0)="are within 20 of the maximum. It will prevent the clerks from exceeding"
^DD(161.4,17,21,5,0)="this number."
^DD(161.4,17,"DT")="2901127"
^DD(161.4,19,0)="EDIT AUTH. DURING PAYMENT^FXO^^1;4^I $D(X) D YN^FBAAUTL3"
^DD(161.4,19,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.4,19,2.1)="D OUTYN^FBAAUTL3"
^DD(161.4,19,3)="Answer 'Yes' or '1' for YES and 'No' or '0' for NO."
^DD(161.4,19,21,0)="^^5^5^2930826^^^"
^DD(161.4,19,21,1,0)="This field is used to indicate that editing of the Authorization Remarks"
^DD(161.4,19,21,2,0)="field and the 3 DX fields is allowable during the Enter Payment options."
^DD(161.4,19,21,3,0)="Normally used for six months immediately after installing Fee system."
^DD(161.4,19,21,4,0)="This is because the Remarks and DX data was not available for downloading"
^DD(161.4,19,21,5,0)="from Central Fee system."
^DD(161.4,19,"DT")="2940318"
^DD(161.4,21,0)="*ASK PROGRAM SPECIFIC AUTH.^S^Y:YES;^1;6^Q"
^DD(161.4,21,21,0)="^^3^3^2881117^"
^DD(161.4,21,21,1,0)="A yes answer to this site parameter will show only those authorizations"
^DD(161.4,21,21,2,0)="that are program specific. An example would be the display for selection"
^DD(161.4,21,21,3,0)="of only Community Nursing Home authorizations when entering CNH payments."
^DD(161.4,21,"DT")="2940318"
^DD(161.4,22,0)="APPROVING OFFICIAL FOR 7078^F^^1;7^K:$L(X)>45!($L(X)<3) X"
^DD(161.4,22,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(161.4,22,21,0)="^^1^1^2930519^^"
^DD(161.4,22,21,1,0)="The default approving official for 7078s."
^DD(161.4,22,"DT")="2890203"
^DD(161.4,23,0)="TITLE 7078 APPROVING OFFICIAL^F^^1;8^K:$L(X)>30!($L(X)<3) X"
^DD(161.4,23,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(161.4,23,21,0)="^^1^1^2930519^^"
^DD(161.4,23,21,1,0)="The title of the default approving official for 7078s."
^DD(161.4,23,"DT")="2890203"
^DD(161.4,25,0)="COPIES OF 7078 TO BE PRINTED^RNJ1,0^^1;5^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.4,25,3)="Type a Number between 1 and 5, 0 Decimal Digits"
^DD(161.4,25,21,0)="^^2^2^2930514^"
^DD(161.4,25,21,1,0)="Indicates the default number of copies to be printed for each 7078"
^DD(161.4,25,21,2,0)="generated."
^DD(161.4,25,"DT")="2900306"
^DD(161.4,27,0)="PSA DEFAULT INSTITUTION^RP4'^DIC(4,^1;3^Q"
^DD(161.4,27,.1)="PRIMARY SERVICE FACILITY"
^DD(161.4,27,21,0)="^^2^2^2920617^^^^"
^DD(161.4,27,21,1,0)="The station number for the transmission of data to Austin is determined"
^DD(161.4,27,21,2,0)="using this field."
^DD(161.4,27,"DT")="2900404"
^DD(161.4,28,0)="7078 DEFAULT AUTH SERVICE TEXT^161.428^^S;0"
^DD(161.4,28,21,0)="^^3^3^2930826^^"
^DD(161.4,28,21,1,0)="If data exists in this field it will be used as the default"
^DD(161.4,28,21,2,0)="for the 'Authorized Services' field on the 7078 for CONTRACT"
^DD(161.4,28,21,3,0)="HOSPITAL."
^DD(161.4,29,0)="DATE BATCH PURGE LAST RUN^D^^PURGE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.4,29,21,0)="^^1^1^2930519^^"
^DD(161.4,29,21,1,0)="Indicates the date the last batch purge was run on the system."
^DD(161.4,29,"DT")="2901115"
^DD(161.4,30,0)="OUTPATIENT MONTHLY LIMITATION^RNJ5,0^^1;9^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.4,30,3)="Type a Number between 1 and 99999, 0 Decimal Digits. This amount is set by the program office."
^DD(161.4,30,21,0)="^^2^2^2920515^"
^DD(161.4,30,21,1,0)="This field should contain the monthly Outpatient Medical dollar"
^DD(161.4,30,21,2,0)="limitation set by the program office."
^DD(161.4,30,23,0)="^^3^3^2920515^"
^DD(161.4,30,23,1,0)="This field will replace the hard set dollar amount in the fee routines."
^DD(161.4,30,23,2,0)="By do this, if the program office changes the dollar limitation, a"
^DD(161.4,30,23,3,0)="routine patch will not have to be issued."
^DD(161.4,30,"DT")="2920515"
^DD(161.4,31,0)="TRANSMISSION HEADER^RFX^^1;10^K:$L(X)>3!($L(X)<3) X I $D(X) K:X'=""FEN"" X"
^DD(161.4,31,3)="Answer must be either 'FEE' or 'FEN', depending upon the version."
^DD(161.4,31,9)="@"
^DD(161.4,31,21,0)="^^5^5^2920629^^"
^DD(161.4,31,21,1,0)="The Transmission Header field is used as part of the header information"
^DD(161.4,31,21,2,0)="for transmissions sent to Austin.  Header names change alternately"
^DD(161.4,31,21,3,0)="to FEE or FEN in FEE releases which contain changes to transmission"
^DD(161.4,31,21,4,0)="data/Austin record layouts.  Austin uses the Transmission Header to "
^DD(161.4,31,21,5,0)="distinguish the record layout to be used."
^DD(161.4,31,23,0)="^^2^2^2920629^"
^DD(161.4,31,23,1,0)="The variable FBHD is set to this piece.  It can be found in the "
^DD(161.4,31,23,2,0)="transmission routines subset, FBAAV0:FBAAV6, FBAAV01."
^DD(161.4,31,"DT")="2940413"
^DD(161.4,32,0)="TRACK INCOMPLETE UNAUTH CLAIM?^S^1:YES;0:NO;^UC;1^Q"
^DD(161.4,32,.1)="TRACK INCOMPLETE UNAUTHORIZED CLAIMS?"
^DD(161.4,32,3)="Indicate yes if incomplete unauthorized claims will be tracked."
^DD(161.4,32,21,0)="^^2^2^2930511^"
^DD(161.4,32,21,1,0)="Indicate whether or not incomplete unauthorized claims should be tracked."
^DD(161.4,32,21,2,0)="Yes is to track incomplete claims, otherwise can only track complete claims."
^DD(161.4,32,"DT")="2930318"
^DD(161.4,32.5,0)="'INITIAL ENTRY' STATUS FOR U/C^S^1:ACTIVATE;^UC;7^Q"
^DD(161.4,32.5,3)="If you wish to activate the 'INITIAL ENTRY' status then fill in this field.  Activation will result in minimum data input when entering in an unauthorized claim."
^DD(161.4,32.5,21,0)="^^6^6^2930913^^"
^DD(161.4,32.5,21,1,0)="If this field is filled in, then minimum data is required for entering in"
^DD(161.4,32.5,21,2,0)="an unauthorized claim.  This is designed for sites who have streamlined"
^DD(161.4,32.5,21,3,0)="their workload, where only one user enters in the unauthorized claims"
^DD(161.4,32.5,21,4,0)="received, and another reviews the claim for completeness and makes the "
^DD(161.4,32.5,21,5,0)="necessary requests, etc."
^DD(161.4,32.5,21,6,0)="  "
^DD(161.4,32.5,23,0)="^^6^6^2930913^^"
^DD(161.4,32.5,23,1,0)="The code in routine FBUCEN, enter routine, will branch depending upon the"
^DD(161.4,32.5,23,2,0)="value of this field.  If it is not filled in, the user will be required to"
^DD(161.4,32.5,23,3,0)="enter the necessary data in order to determine if the claim is INCOMPLETE"
^DD(161.4,32.5,23,4,0)="or COMPLETE/PENDING REVIEW.  Otherwise, claim is given the INTIAL ENTRY "
^DD(161.4,32.5,23,5,0)="status, which means further follow up by Fee clerk is required."
^DD(161.4,32.5,23,6,0)=" VENDOR and TREATMENT TO DATE fields are optional."
^DD(161.4,32.5,"DT")="2930707"
^DD(161.4,33,0)="UNAUTHORIZED CLAIM PRINTER^FX^^UC;2^K:$L(X)>30!($L(X)<1) X K:$D(X)&($$DEV^FBUCDD1(X)) X"
^DD(161.4,33,3)="Enter the name of a default printer to which unauthorized letters will print.  The printer name should exactly match a name of a printer in the device file."
^DD(161.4,33,4)="D XHELP^FBUCDD1"
^DD(161.4,33,12)="Select a device with a printer subtype."
^DD(161.4,33,12.1)="S DIC(""S"")=""S Z=$G(^%ZIS(1,+Y,""""SUBTYPE"""")),Z=$G(^%ZIS(2,Z,0)) I $E($P(Z,U),1)=""""P"""" K Z"""
^DD(161.4,33,21,0)="^^2^2^2930420^^^^"
^DD(161.4,33,21,1,0)="Field should contain the name of a printer device to which unauthorized"
^DD(161.4,33,21,2,0)="claim letters will print, if filled in.  Entry in this field is optional."
^DD(161.4,33,23,0)="^^2^2^2930420^^"
^DD(161.4,33,23,1,0)="Input transform limits entry to valid device name with a subtype which"
^DD(161.4,33,23,2,0)="begins with ""P"" for printer terminal types."
^DD(161.4,33,"DT")="2930910"
^DD(161.4,34,0)="UNAUTHORIZED CLAIM LETTER^S^A:AUTOMATIC PRINT;B:BATCH PRINT;^UC;3^Q"
^DD(161.4,34,3)="Enter 'A'utomatic if your printer is dedicated, 'B'atch to print the letters using the option.  If automatic, a printer must be designated in the UNAUTHORIZED CLAIM PRINTER parameter."
^DD(161.4,34,21,0)="^^6^6^2930402^^"
^DD(161.4,34,21,1,0)="Indicate how you wish your unauthorized claim letters to print."
^DD(161.4,34,21,2,0)=" Enter a 'A' if the Unauthorized Claim Printer is dedicated and you always"
^DD(161.4,34,21,3,0)="wish a letter to print when it has been changed to the apppropriate status."
^DD(161.4,34,21,4,0)=" Enter a 'B' if the Unauthorized Claim Printer is not dedicated, or you wish"
^DD(161.4,34,21,5,0)="to batch print letters of claims which have changed to the appropriate status."
^DD(161.4,34,21,6,0)=" Do not enter anything if you will be manually generating your own form letter."
^DD(161.4,34,23,0)="^^3^3^2930402^^"
^DD(161.4,34,23,1,0)="If value of field is set to 'B'atch or if value is set to 'A'utomatic but"
^DD(161.4,34,23,2,0)="the UNAUTHORIZED CLAIM PRINTER has no value, a cross-reference will get set"
^DD(161.4,34,23,3,0)="when a letter needs to be printed."
^DD(161.4,34,"DT")="2930402"
^DD(161.4,35,0)="NUMBER OF COPIES^NJ1,0^^UC;4^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.4,35,3)="Enter the default number of copies you wish to print for an unauthorized claim letter.  Maximum number of copies allowed is five."
^DD(161.4,35,21,0)="^^2^2^2930628^^^^"
^DD(161.4,35,21,1,0)="The number of copies of a letter to be printed."
^DD(161.4,35,21,2,0)="Maximum number of copies allowed is five."
^DD(161.4,35,23,0)="^^3^3^2930628^^^"
^DD(161.4,35,23,1,0)="Field is used in printing of unauthorized claim letters.  If the user is "
^DD(161.4,35,23,2,0)="not prompted for the number of copies, the value in this field will be used."
^DD(161.4,35,23,3,0)="If no value exists, only one copy will print."
^DD(161.4,35,"DT")="2930406"
^DD(161.4,35.5,0)="PRINT U/C ON LETTERHEAD?^S^1:Y;^UC;8^Q"
^DD(161.4,35.5,3)="Enter a value in this field if your unauthorized claims letters will print on VA letterhead.  If there is no entry, the station name and address from the FEE BASIS SITE PARAMETERS file will print."
^DD(161.4,35.5,4)="W !,""No entry is necessary if you will not be printing letters."""
^DD(161.4,35.5,21,0)="^^2^2^2941128^"
^DD(161.4,35.5,21,1,0)="Answer 'Yes' if you will be printing Unauthorized Claims' letters"
^DD(161.4,35.5,21,2,0)="on VHA letterhead."
^DD(161.4,35.5,"DT")="2930707"
^DD(161.4,35.6,0)="STATION NAME (EDITABLE)^RF^^UC;9^K:$L(X)>30!($L(X)<3) X"
^DD(161.4,35.6,3)="Enter the first line of return address, 3-30 characters."
^DD(161.4,35.6,21,0)="^^1^1^2930911^"
^DD(161.4,35.6,21,1,0)="First line of return address.  Data pulled from .01; but is editable."
^DD(161.4,35.6,"DT")="2930911"
^DD(161.4,35.7,0)="UC LETTER LINES AFTER CC^NJ2,0^^UC;10^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(161.4,35.7,3)="Type a Number between 0 and 20, 0 Decimal Digits"
^DD(161.4,35.7,21,0)="^^4^4^3011204^"
^DD(161.4,35.7,21,1,0)="Number of blank lines after the carbon copy address on a disposition"
^DD(161.4,35.7,21,2,0)="letter. This value may be changed to adjust the spacing from the bottom of"
^DD(161.4,35.7,21,3,0)="the page. If a number is not specified here then 0 is used as the default"
^DD(161.4,35.7,21,4,0)="value."
^DD(161.4,35.7,"DT")="3011107"
^DD(161.4,"B","'INITIAL ENTRY' STATUS FOR U/C",32.5)=""
^DD(161.4,"B","*ASK PROGRAM SPECIFIC AUTH.",21)=""
^DD(161.4,"B","7078 DEFAULT AUTH SERVICE TEXT",28)=""
^DD(161.4,"B","APPROVING OFFICIAL FOR 7078",22)=""
^DD(161.4,"B","APPROVING OFFICIAL FOR 7079",7)=""
^DD(161.4,"B","ASK VENDOR DURING AUTH.",15)=""
^DD(161.4,"B","CITY",3)=""
^DD(161.4,"B","COPIES OF 7078 TO BE PRINTED",25)=""
^DD(161.4,"B","DATE BATCH PURGE LAST RUN",29)=""
^DD(161.4,"B","DEFAULT AUTH. TIME RANGE",14)=""
^DD(161.4,"B","EDIT AUTH. DURING PAYMENT",19)=""
^DD(161.4,"B","MAIL CODE",5.5)=""
^DD(161.4,"B","MAX # PAYMENT LINE ITEMS",17)=""
^DD(161.4,"B","MEDICAID DISPENSING FEE",9)=""
^DD(161.4,"B","MEDICAL PAYMENT VENDOR DISPLAY",12)=""
^DD(161.4,"B","NEXT BATCH NUMBER",10)=""
^DD(161.4,"B","NEXT INVOICE NUMBER",11)=""
^DD(161.4,"B","NUMBER",.001)=""
^DD(161.4,"B","NUMBER OF COPIES",35)=""
^DD(161.4,"B","OUTPATIENT MONTHLY LIMITATION",30)=""
^DD(161.4,"B","PHARMACY PAYMNT VENDOR DISPLAY",13)=""
^DD(161.4,"B","PRIMARY SERVICE FACILITY",27)="1"
^DD(161.4,"B","PRINT U/C ON LETTERHEAD?",35.5)=""
^DD(161.4,"B","PSA DEFAULT INSTITUTION",27)=""
^DD(161.4,"B","STATE",4)=""
^DD(161.4,"B","STATION ADDRESS LINE 1",1)=""
^DD(161.4,"B","STATION ADDRESS LINE 2",2)=""
^DD(161.4,"B","STATION ADDRESS LINE 3",16)=""
^DD(161.4,"B","STATION NAME (EDITABLE)",35.6)=""
^DD(161.4,"B","STATION OF JURISDICTION NAME",.01)=""
^DD(161.4,"B","STATION TELEPHONE NUMBER",6)=""
^DD(161.4,"B","TITLE 7078 APPROVING OFFICIAL",23)=""
^DD(161.4,"B","TITLE OF APPROVING OFFICIAL",8)=""
^DD(161.4,"B","TRACK INCOMPLETE UNAUTH CLAIM?",32)=""
^DD(161.4,"B","TRANSMISSION HEADER",31)=""
^DD(161.4,"B","UC LETTER LINES AFTER CC",35.7)=""
^DD(161.4,"B","UNAUTHORIZED CLAIM LETTER",34)=""
^DD(161.4,"B","UNAUTHORIZED CLAIM PRINTER",33)=""
^DD(161.4,"B","ZIP",5)=""
^DD(161.4,"GL",0,1,.01)=""
^DD(161.4,"GL",0,2,1)=""
^DD(161.4,"GL",0,3,2)=""
^DD(161.4,"GL",0,4,3)=""
^DD(161.4,"GL",0,5,4)=""
^DD(161.4,"GL",0,6,5)=""
^DD(161.4,"GL",0,7,6)=""
^DD(161.4,"GL",0,8,7)=""
^DD(161.4,"GL",0,9,8)=""
^DD(161.4,"GL",0,10,9)=""
^DD(161.4,"GL",0,11,12)=""
^DD(161.4,"GL",0,12,13)=""
^DD(161.4,"GL",0,13,14)=""
^DD(161.4,"GL",1,1,15)=""
^DD(161.4,"GL",1,2,16)=""
^DD(161.4,"GL",1,3,27)=""
^DD(161.4,"GL",1,4,19)=""
^DD(161.4,"GL",1,5,25)=""
^DD(161.4,"GL",1,6,21)=""
^DD(161.4,"GL",1,7,22)=""
^DD(161.4,"GL",1,8,23)=""
^DD(161.4,"GL",1,9,30)=""
^DD(161.4,"GL",1,10,31)=""
^DD(161.4,"GL",1,11,5.5)=""
^DD(161.4,"GL","FBNUM",1,10)=""
^DD(161.4,"GL","FBNUM",2,11)=""
^DD(161.4,"GL","FBNUM",3,17)=""
^DD(161.4,"GL","PURGE",1,29)=""
^DD(161.4,"GL","S",0,28)=""
^DD(161.4,"GL","UC",1,32)=""
^DD(161.4,"GL","UC",2,33)=""
^DD(161.4,"GL","UC",3,34)=""
^DD(161.4,"GL","UC",4,35)=""
^DD(161.4,"GL","UC",7,32.5)=""
^DD(161.4,"GL","UC",8,35.5)=""
^DD(161.4,"GL","UC",9,35.6)=""
^DD(161.4,"GL","UC",10,35.7)=""
^DD(161.4,"IX",.01)=""
^DD(161.4,"RQ",.01)=""
^DD(161.4,"RQ",1)=""
^DD(161.4,"RQ",3)=""
^DD(161.4,"RQ",4)=""
^DD(161.4,"RQ",5)=""
^DD(161.4,"RQ",6)=""
^DD(161.4,"RQ",7)=""
^DD(161.4,"RQ",8)=""
^DD(161.4,"RQ",9)=""
^DD(161.4,"RQ",10)=""
^DD(161.4,"RQ",11)=""
^DD(161.4,"RQ",25)=""
^DD(161.4,"RQ",27)=""
^DD(161.4,"RQ",30)=""
^DD(161.4,"RQ",31)=""
^DD(161.4,"RQ",35.6)=""
^DD(161.4,"SB",161.428,28)=""
^DD(161.428,0)="7078 DEFAULT AUTH SERVICE TEXT SUB-FIELD^^.01^1"
^DD(161.428,0,"NM","7078 DEFAULT AUTH SERVICE TEXT")=""
^DD(161.428,0,"UP")="161.4"
^DD(161.428,.01,0)="7078 DEFAULT AUTH SERVICE TEXT^WL^^0;1^Q"
^DD(161.428,.01,"DT")="2900409"
^DD(161.428,"B","7078 DEFAULT AUTH SERVICE TEXT",.01)=""
^DD(161.428,"GL",0,1,.01)=""
^DD(161.45,0)="FIELD^^2^3"
^DD(161.45,0,"DDA")="N"
^DD(161.45,0,"DT")="3000208"
^DD(161.45,0,"IX","B",161.45,.01)=""
^DD(161.45,0,"NM","FEE BASIS PAYMENT MOVES")=""
^DD(161.45,0,"VR")="3.5"
^DD(161.45,0,"VRPK")="FB"
^DD(161.45,.01,0)="FILE #^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(161.45,.01,1,0)="^.1"
^DD(161.45,.01,1,1,0)="161.45^B"
^DD(161.45,.01,1,1,1)="S ^FBAA(161.45,""B"",$E(X,1,30),DA)="""""
^DD(161.45,.01,1,1,2)="K ^FBAA(161.45,""B"",$E(X,1,30),DA)"
^DD(161.45,.01,1,1,"DT")="3000208"
^DD(161.45,.01,3)="Answer must be 1-30 characters in length."
^DD(161.45,.01,21,0)="^^3^3^3000504^"
^DD(161.45,.01,21,1,0)="Identifies the file (or subfile) number where the payment is stored. For"
^DD(161.45,.01,21,2,0)="example, subfile 162.03 containes medical payments and subfile 162.04"
^DD(161.45,.01,21,3,0)="contains travel payments."
^DD(161.45,.01,"DT")="3000208"
^DD(161.45,1,0)="OLD IENS^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(161.45,1,3)="Answer must be 1-30 characters in length."
^DD(161.45,1,21,0)="^^5^5^3001011^"
^DD(161.45,1,21,1,0)="The internal entry numbers (iens) that describe the original location of"
^DD(161.45,1,21,2,0)="the payment before the patient merge. The iens are delimited by commas (,)"
^DD(161.45,1,21,3,0)="beginning with the ien of the lowest level subentry. For example, a travel"
^DD(161.45,1,21,4,0)="payment (subfile 162.04) with iens ""1,2000,"" would be located at"
^DD(161.45,1,21,5,0)="^FBAAC(2000,3,1,0)."
^DD(161.45,1,"DT")="3000208"
^DD(161.45,2,0)="NEW IENS^RF^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(161.45,2,3)="Answer must be 1-30 characters in length."
^DD(161.45,2,21,0)="^^5^5^3001011^"
^DD(161.45,2,21,1,0)="The internal entry numbers (iens) that describe the new location of the"
^DD(161.45,2,21,2,0)="payment after the patient merge has completed. The iens are delimited by"
^DD(161.45,2,21,3,0)="commas (,) beginning with the ien of the lowest level subentry. For"
^DD(161.45,2,21,4,0)="example, a travel payment (subfile 162.04) with iens ""1,3000,"" would be"
^DD(161.45,2,21,5,0)="located at ^FBAAC(3000,3,1,0)."
^DD(161.45,2,"DT")="3000208"
^DD(161.45,"B","FILE #",.01)=""
^DD(161.45,"B","NEW IENS",2)=""
^DD(161.45,"B","OLD IENS",1)=""
^DD(161.45,"GL",0,1,.01)=""
^DD(161.45,"GL",0,2,1)=""
^DD(161.45,"GL",0,3,2)=""
^DD(161.45,"IX",.01)=""
^DD(161.45,"RQ",.01)=""
^DD(161.45,"RQ",1)=""
^DD(161.45,"RQ",2)=""
^DD(161.5,0)="FIELD^^19^22"
^DD(161.5,0,"DT")="2940318"
^DD(161.5,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(161.5,0,"IX","B",161.5,.01)=""
^DD(161.5,0,"IX","D",161.5,2)=""
^DD(161.5,0,"NM","FEE CH REPORT OF CONTACT")=""
^DD(161.5,0,"VR")="3.5"
^DD(161.5,.01,0)="ASSOCIATED REQUEST^P162.2'X^FBAA(162.2,^0;1^S:$D(X) DINUM=X"
^DD(161.5,.01,1,0)="^.1"
^DD(161.5,.01,1,1,0)="161.5^B"
^DD(161.5,.01,1,1,1)="S ^FBAA(161.5,""B"",$E(X,1,30),DA)="""""
^DD(161.5,.01,1,1,2)="K ^FBAA(161.5,""B"",$E(X,1,30),DA)"
^DD(161.5,.01,3)=""
^DD(161.5,.01,21,0)="^^2^2^2930514^^"
^DD(161.5,.01,21,1,0)="This is the report of contact associated with a notification/"
^DD(161.5,.01,21,2,0)="request in contract hospital."
^DD(161.5,1,0)="VENDOR^RP161.2'^FBAAV(^0;2^Q"
^DD(161.5,1,21,0)="^^2^2^2900813^"
^DD(161.5,1,21,1,0)="This is the Fee Basis Vendor, associated with the Contract"
^DD(161.5,1,21,2,0)="Hospital Notification/Request."
^DD(161.5,2,0)="VETERAN^P2'^DPT(^0;3^Q"
^DD(161.5,2,1,0)="^.1"
^DD(161.5,2,1,1,0)="161.5^D"
^DD(161.5,2,1,1,1)="S ^FBAA(161.5,""D"",$E(X,1,30),DA)="""""
^DD(161.5,2,1,1,2)="K ^FBAA(161.5,""D"",$E(X,1,30),DA)"
^DD(161.5,2,21,0)="^^2^2^2900813^"
^DD(161.5,2,21,1,0)="This is the name of the veteran who is requesting contract hospital"
^DD(161.5,2,21,2,0)="services from the VA."
^DD(161.5,2,"DT")="2900814"
^DD(161.5,3,0)="INITIAL DATE OF CONTACT^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(161.5,3,21,0)="^^2^2^2900813^"
^DD(161.5,3,21,1,0)="This field corresponds to the Date/Time field of the Fee"
^DD(161.5,3,21,2,0)="Notification/Request file."
^DD(161.5,4,0)="AUTHORIZATION FROM DATE^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(161.5,4,21,0)="^^1^1^2900813^"
^DD(161.5,4,21,1,0)="This field contains the date/time of admission of the veteran."
^DD(161.5,4,"DT")="2930312"
^DD(161.5,5,0)="TYPE OF CONTACT^RS^T:telephone;P:personal;^0;6^Q"
^DD(161.5,5,21,0)="^^1^1^2901109^^^^"
^DD(161.5,5,21,1,0)="This is a way of identifying how the report of contact was initiated."
^DD(161.5,6,0)="PERSON CONTACTED^F^^0;7^K:$L(X)>40!($L(X)<3) X"
^DD(161.5,6,3)="Answer must be 3-40 characters in length."
^DD(161.5,6,21,0)="^^1^1^2900813^"
^DD(161.5,6,21,1,0)="This is the name of the person who called."
^DD(161.5,6.5,0)="PHONE # OF PERSON CONTACTED^F^^1;4^K:$L(X)>20!($L(X)<3) X"
^DD(161.5,6.5,3)="Answer must be 3-20 characters in length."
^DD(161.5,6.5,21,0)="^^1^1^2930519^^"
^DD(161.5,6.5,21,1,0)="The phone number of the person with whom initial contact was made."
^DD(161.5,6.5,"DT")="2900816"
^DD(161.5,7,0)="STREET ADDRESS[1] OF CONTACT^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(161.5,7,3)="Answer must be 3-30 characters in length."
^DD(161.5,7,21,0)="^^1^1^2900813^"
^DD(161.5,7,21,1,0)="This is the street address of person who called."
^DD(161.5,8,0)="STREET ADDRESS[2] OF CONTACT^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(161.5,8,3)="Answer must be 3-30 characters in length."
^DD(161.5,8,21,0)="^^2^2^2900813^"
^DD(161.5,8,21,1,0)="This is a continuation line for the street address of the"
^DD(161.5,8,21,2,0)="person who called."
^DD(161.5,9,0)="CITY OF CONTACT^F^^0;10^K:$L(X)>30!($L(X)<2) X"
^DD(161.5,9,3)="Answer must be 2-30 characters in length."
^DD(161.5,9,21,0)="^^1^1^2900813^"
^DD(161.5,9,21,1,0)="This is the city of the person who called."
^DD(161.5,10,0)="STATE OF CONTACT^P5'^DIC(5,^0;11^Q"
^DD(161.5,10,21,0)="^^1^1^2900813^^"
^DD(161.5,10,21,1,0)="This is the state of the person who called."
^DD(161.5,11,0)="ZIP CODE OF CONTACT^FX^^0;12^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(161.5,11,3)="Answer must be 5 characters in length."
^DD(161.5,11,21,0)="^^2^2^2900813^"
^DD(161.5,11,21,1,0)="This is the zip code associated with the address of the"
^DD(161.5,11,21,2,0)="person who called."
^DD(161.5,12,0)="ATTENDING PHYSICIAN^F^^0;13^K:$L(X)>30!($L(X)<3) X"
^DD(161.5,12,3)="Answer must be 3-30 characters in length."
^DD(161.5,12,21,0)="^^2^2^2900831^^^"
^DD(161.5,12,21,1,0)="This is the name of the attending physician treating the"
^DD(161.5,12,21,2,0)="patient at the contract hospital."
^DD(161.5,12,"DT")="2900831"
^DD(161.5,13,0)="ATTEND.PHYSICIAN TELEPHONE NO.^F^^0;14^K:$L(X)>20!($L(X)<3) X"
^DD(161.5,13,3)="Answer must be 3-20 characters in length."
^DD(161.5,13,21,0)="^^2^2^2900831^^"
^DD(161.5,13,21,1,0)="This is the number where the attending physician may"
^DD(161.5,13,21,2,0)="be reached."
^DD(161.5,14,0)="TENTATIVE DIAGNOSIS^F^^1;1^K:$L(X)>45!($L(X)<3) X"
^DD(161.5,14,3)="Answer must be 3-45 characters in length."
^DD(161.5,14,21,0)="^^1^1^2900813^^"
^DD(161.5,14,21,1,0)="Initial diagnosis given at the time of notification."
^DD(161.5,15,0)="INSURANCE TYPE^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(161.5,15,3)="Answer must be 3-30 characters in length."
^DD(161.5,15,21,0)="^^2^2^2900813^"
^DD(161.5,15,21,1,0)="This allows the user to document any other insurance the"
^DD(161.5,15,21,2,0)="veteran may have."
^DD(161.5,16,0)="MODE OF TRANSPORTATION^P392.4'^DGBT(392.4,^1;3^Q"
^DD(161.5,16,3)=""
^DD(161.5,16,21,0)="^^2^2^2900813^"
^DD(161.5,16,21,1,0)="This field allows the user to enter in the planned transportation"
^DD(161.5,16,21,2,0)="of the veteran at time of transfer from contract hospital."
^DD(161.5,16,"DT")="2900816"
^DD(161.5,16.5,0)="VETERAN HAVE OTHER INSURANCE^FXO^^1;5^I $D(X) D YN^FBAAUTL3"
^DD(161.5,16.5,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(161.5,16.5,2.1)="D OUTYN^FBAAUTL3"
^DD(161.5,16.5,3)="Answer 'Yes' or '1' for YES and 'No' or '0' for NO."
^DD(161.5,16.5,21,0)="^^2^2^2900816^"
^DD(161.5,16.5,21,1,0)="If the user answers 'Yes' to this question then they will be"
^DD(161.5,16.5,21,2,0)="asked Insurance type."
^DD(161.5,16.5,"DT")="2940318"
^DD(161.5,17,0)="DATE/TIME OF CONTACT^161.517D^^2;0"
^DD(161.5,17,21,0)="^^3^3^2941128^"
^DD(161.5,17,21,1,0)="This multiple allows the CH user to enter contacts"
^DD(161.5,17,21,2,0)="that were made with the VA on behalf of"
^DD(161.5,17,21,3,0)="a patient who was admitted to a non-VA facility for treatment."
^DD(161.5,18,0)="APPROVING OFFICIAL^P200'^VA(200,^1;6^Q"
^DD(161.5,18,21,0)="^^2^2^2900817^"
^DD(161.5,18,21,1,0)="This is the official who is approving/disapproving the"
^DD(161.5,18,21,2,0)="contract hospitalization."
^DD(161.5,18,"DT")="2900817"
^DD(161.5,19,0)="DATE/TIME OF ADMISSION^DX^^1;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(161.5,19,21,0)="^^1^1^2930514^"
^DD(161.5,19,21,1,0)="The date and time the veteran was admitted to a non-VA facility for care."
^DD(161.5,19,"DT")="2930312"
^DD(161.5,"B","APPROVING OFFICIAL",18)=""
^DD(161.5,"B","ASSOCIATED REQUEST",.01)=""
^DD(161.5,"B","ATTEND.PHYSICIAN TELEPHONE NO.",13)=""
^DD(161.5,"B","ATTENDING PHYSICIAN",12)=""
^DD(161.5,"B","AUTHORIZATION FROM DATE",4)=""
^DD(161.5,"B","CITY OF CONTACT",9)=""
^DD(161.5,"B","DATE/TIME OF ADMISSION",19)=""
^DD(161.5,"B","DATE/TIME OF CONTACT",17)=""
^DD(161.5,"B","INITIAL DATE OF CONTACT",3)=""
^DD(161.5,"B","INSURANCE TYPE",15)=""
^DD(161.5,"B","MODE OF TRANSPORTATION",16)=""
^DD(161.5,"B","PERSON CONTACTED",6)=""
^DD(161.5,"B","PHONE # OF PERSON CONTACTED",6.5)=""
^DD(161.5,"B","STATE OF CONTACT",10)=""
^DD(161.5,"B","STREET ADDRESS[1] OF CONTACT",7)=""
^DD(161.5,"B","STREET ADDRESS[2] OF CONTACT",8)=""
^DD(161.5,"B","TENTATIVE DIAGNOSIS",14)=""
^DD(161.5,"B","TYPE OF CONTACT",5)=""
^DD(161.5,"B","VENDOR",1)=""
^DD(161.5,"B","VETERAN",2)=""
^DD(161.5,"B","VETERAN HAVE OTHER INSURANCE",16.5)=""
^DD(161.5,"B","ZIP CODE OF CONTACT",11)=""
^DD(161.5,"GL",0,1,.01)=""
^DD(161.5,"GL",0,2,1)=""
^DD(161.5,"GL",0,3,2)=""
^DD(161.5,"GL",0,4,3)=""
^DD(161.5,"GL",0,5,4)=""
^DD(161.5,"GL",0,6,5)=""
^DD(161.5,"GL",0,7,6)=""
^DD(161.5,"GL",0,8,7)=""
^DD(161.5,"GL",0,9,8)=""
^DD(161.5,"GL",0,10,9)=""
^DD(161.5,"GL",0,11,10)=""
^DD(161.5,"GL",0,12,11)=""
^DD(161.5,"GL",0,13,12)=""
^DD(161.5,"GL",0,14,13)=""
^DD(161.5,"GL",1,1,14)=""
^DD(161.5,"GL",1,2,15)=""
^DD(161.5,"GL",1,3,16)=""
^DD(161.5,"GL",1,4,6.5)=""
^DD(161.5,"GL",1,5,16.5)=""
^DD(161.5,"GL",1,6,18)=""
^DD(161.5,"GL",1,7,19)=""
^DD(161.5,"GL",2,0,17)=""
^DD(161.5,"IX",.01)=""
^DD(161.5,"IX",2)=""
^DD(161.5,"RQ",1)=""
^DD(161.5,"RQ",5)=""
^DD(161.5,"SB",161.517,17)=""
^DD(161.517,0)="DATE/TIME OF CONTACT SUB-FIELD^^2^3"
^DD(161.517,0,"IX","B",161.517,.01)=""
^DD(161.517,0,"NM","DATE/TIME OF CONTACT")=""
^DD(161.517,0,"UP")="161.5"
^DD(161.517,.01,0)="DATE/TIME OF CONTACT^DX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(161.517,.01,1,0)="^.1"
^DD(161.517,.01,1,1,0)="161.517^B"
^DD(161.517,.01,1,1,1)="S ^FBAA(161.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(161.517,.01,1,1,2)="K ^FBAA(161.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(161.517,.01,21,0)="^^2^2^2941128^^"
^DD(161.517,.01,21,1,0)="The date and time initial contact was made with the VA on behalf of"
^DD(161.517,.01,21,2,0)="a patient who was admitted to a non-VA facility for treatment."
^DD(161.517,.01,"DT")="2900814"
^DD(161.517,1,0)="NARRATIVE^161.5171^^1;0"
^DD(161.517,1,21,0)="^^1^1^2900813^"
^DD(161.517,1,21,1,0)="This contains the contents of the report of contact."
^DD(161.517,2,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(161.517,2,21,0)="^^2^2^2941128^"
^DD(161.517,2,21,1,0)="This field captures the name of the user who enters the"
^DD(161.517,2,21,2,0)="report of contact."
^DD(161.517,"B","DATE/TIME OF CONTACT",.01)=""
^DD(161.517,"B","NARRATIVE",1)=""
^DD(161.517,"B","USER",2)=""
^DD(161.517,"GL",0,1,.01)=""
^DD(161.517,"GL",0,2,2)=""
^DD(161.517,"GL",1,0,1)=""
^DD(161.517,"IX",.01)=""
^DD(161.517,"RQ",2)=""
^DD(161.517,"SB",161.5171,1)=""
^DD(161.5171,0)="NARRATIVE SUB-FIELD^^.01^1"
^DD(161.5171,0,"NM","NARRATIVE")=""
^DD(161.5171,0,"UP")="161.517"
^DD(161.5171,.01,0)="NARRATIVE^W^^0;1^Q"
^DD(161.5171,"B","NARRATIVE",.01)=""
^DD(161.5171,"GL",0,1,.01)=""
^DD(161.6,0)="FIELD^^1^2"
^DD(161.6,0,"DDA")="N"
^DD(161.6,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(161.6,0,"IX","B",161.6,.01)=""
^DD(161.6,0,"IX","C",161.6,1)=""
^DD(161.6,0,"NM","FEE BASIS SPECIALTY CODE")=""
^DD(161.6,0,"PT",161.2,.05)=""
^DD(161.6,0,"VR")="3.5"
^DD(161.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(161.6,.01,1,0)="^.1"
^DD(161.6,.01,1,1,0)="161.6^B"
^DD(161.6,.01,1,1,1)="S ^FBAA(161.6,""B"",$E(X,1,30),DA)="""""
^DD(161.6,.01,1,1,2)="K ^FBAA(161.6,""B"",$E(X,1,30),DA)"
^DD(161.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(161.6,.01,21,0)="^^2^2^2880304^"
^DD(161.6,.01,21,1,0)="The name of this specialty code. Each vendor must be assigned a specialty"
^DD(161.6,.01,21,2,0)="code which identifies their area of expertise."
^DD(161.6,1,0)="SPECIALTY CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(161.6,1,1,0)="^.1"
^DD(161.6,1,1,1,0)="161.6^C"
^DD(161.6,1,1,1,1)="S ^FBAA(161.6,""C"",$E(X,1,30),DA)="""""
^DD(161.6,1,1,1,2)="K ^FBAA(161.6,""C"",$E(X,1,30),DA)"
^DD(161.6,1,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(161.6,1,21,0)="^^2^2^2880304^"
^DD(161.6,1,21,1,0)="The specialty code for this entry. Detail description and list of most"
^DD(161.6,1,21,2,0)="current codes can be found in M-1, Part I, Chapter 18."
^DD(161.6,"B","NAME",.01)=""
^DD(161.6,"B","SPECIALTY CODE",1)=""
^DD(161.6,"GL",0,1,.01)=""
^DD(161.6,"GL",0,2,1)=""
^DD(161.6,"IX",.01)=""
^DD(161.6,"IX",1)=""
^DD(161.6,"RQ",.01)=""
^DD(161.6,"RQ",1)=""
^DD(161.7,0)="FIELD^^19^20"
^DD(161.7,0,"DT")="2940921"
^DD(161.7,0,"ID",1)="W ""   "",$P($G(^(0)),U,2)"
^DD(161.7,0,"IX","AB",161.7,11)=""
^DD(161.7,0,"IX","AC",161.7,11)=""
^DD(161.7,0,"IX","AF",161.7,13)=""
^DD(161.7,0,"IX","B",161.7,.01)=""
^DD(161.7,0,"IX","C",161.7,4)=""
^DD(161.7,0,"NM","FEE BASIS BATCH")=""
^DD(161.7,0,"PT",162.03,7)=""
^DD(161.7,0,"PT",162.03,21)=""
^DD(161.7,0,"PT",162.04,1)=""
^DD(161.7,0,"PT",162.04,6)=""
^DD(161.7,0,"PT",162.1,10)=""
^DD(161.7,0,"PT",162.11,13)=""
^DD(161.7,0,"PT",162.11,19)=""
^DD(161.7,0,"PT",162.5,15)=""
^DD(161.7,0,"PT",162.5,20)=""
^DD(161.7,0,"VR")="3.5"
^DD(161.7,.01,0)="NUMBER^RFIX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X I $D(X),'$$CHKBI^FBAAUTL4(X,1) K X"
^DD(161.7,.01,1,0)="^.1^^-1"
^DD(161.7,.01,1,1,0)="161.7^B"
^DD(161.7,.01,1,1,1)="S ^FBAA(161.7,""B"",$E(X,1,30),DA)="""""
^DD(161.7,.01,1,1,2)="K ^FBAA(161.7,""B"",$E(X,1,30),DA)"
^DD(161.7,.01,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(161.7,.01,21,0)="^^2^2^2880304^"
^DD(161.7,.01,21,1,0)="The number identifying this batch. The batch number is automatically"
^DD(161.7,.01,21,2,0)="assigned to the batch when a clerk opens a batch. "
^DD(161.7,.01,"DEL",.01,0)="S Z=$P(^FBAA(161.7,D0,0),U,3) I $S(Z=""B3"":$S($D(^FBAAC(""AC"",D0)):1,1:0),Z=""B2"":$S($D(^FBAAC(""AD"",D0)):1,1:0),Z=""B5"":$S($D(^FBAA(162.1,""AE"",D0)):1,1:0),1:0) W !,*7,""Batch has activity, cannot be deleted!"""
^DD(161.7,.01,"DT")="2940722"
^DD(161.7,1,0)="OBLIGATION NUMBER^RFX^^0;2^K:$L(X)>6!($L(X)<6) X D:$D(X) CKOB^FBAAUTL1"
^DD(161.7,1,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(161.7,1,21,0)="^^5^5^2880304^"
^DD(161.7,1,21,1,0)="The obligation number (which must exist in the obligation file) "
^DD(161.7,1,21,2,0)="associated with this batch number. When this batch is processed"
^DD(161.7,1,21,3,0)="by the Austin Central Fee system, and passed to the CALM payment"
^DD(161.7,1,21,4,0)="system, the funds for these payments will be from the obligation"
^DD(161.7,1,21,5,0)="number identified here."
^DD(161.7,1,"DT")="2890720"
^DD(161.7,2,0)="TYPE^RS^B3:MEDICAL PAYMENTS;B5:HOMETOWN PHARMACY PAYMENTS;C1:VENDOR FILE ACTIVITIES;C2:VETERAN MRA ACTIVITIES;C4:PHARMACY FILE ACTIVITIES;B2:TRAVEL PAYMENTS;B9:CH/CNH;^0;3^Q"
^DD(161.7,2,21,0)="^^3^3^2880304^"
^DD(161.7,2,21,1,0)="The type field identifies what type of records will be contained in this"
^DD(161.7,2,21,2,0)="batch. For example, this could be a 'Pharmacy Payment' type batch or "
^DD(161.7,2,21,3,0)="could be a 'Medical Payment' type batch."
^DD(161.7,2,"DT")="2940921"
^DD(161.7,3,0)="DATE OPENED^DX^^0;4^S %DT=""EX"",%DT(0)=""-""_DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(161.7,3,21,0)="^^2^2^2930519^^^"
^DD(161.7,3,21,1,0)="The date this batch was opened by the clerk or the date it was last "
^DD(161.7,3,21,2,0)="reopened by the clerk or supervisor."
^DD(161.7,3,"DT")="3001129"
^DD(161.7,4,0)="CLERK WHO OPENED^P200'^VA(200,^0;5^Q"
^DD(161.7,4,1,0)="^.1"
^DD(161.7,4,1,1,0)="161.7^C"
^DD(161.7,4,1,1,1)="S ^FBAA(161.7,""C"",$E(X,1,30),DA)="""""
^DD(161.7,4,1,1,2)="K ^FBAA(161.7,""C"",$E(X,1,30),DA)"
^DD(161.7,4,21,0)="^^2^2^2930519^^"
^DD(161.7,4,21,1,0)="The clerk who opened the batch or the clerk or supervisor who last "
^DD(161.7,4,21,2,0)="reopened this batch."
^DD(161.7,4,"DT")="2900405"
^DD(161.7,4.5,0)="DATE CLERK CLOSED^DX^^0;13^S %DT=""EX"",%DT(0)=""-""_DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(161.7,4.5,21,0)="^^2^2^2880304^"
^DD(161.7,4.5,21,1,0)="The date that the clerk closed the batch. Payments cannot be entered"
^DD(161.7,4.5,21,2,0)="after the batch is closed."
^DD(161.7,4.5,"DT")="3001129"
^DD(161.7,5,0)="DATE SUPERVISOR CLOSED^RDX^^0;6^S %DT=""EX"",%DT(0)=""-""_DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(161.7,5,21,0)="^^1^1^2880304^"
^DD(161.7,5,21,1,0)="The date that the supervisor reviewed and released for payment. "
^DD(161.7,5,"DT")="3001129"
^DD(161.7,6,0)="SUPERVISOR WHO CERTIFIED^RP200'^VA(200,^0;7^Q"
^DD(161.7,6,21,0)="^^2^2^2880304^"
^DD(161.7,6,21,1,0)="The supervisor who reviewed the batch to release/certify that the batch"
^DD(161.7,6,21,2,0)="was approved for transmission to Austin for payment."
^DD(161.7,6,"DT")="2900405"
^DD(161.7,8,0)="TOTAL DOLLARS^RNJ8,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999.99)!(X<.01) X"
^DD(161.7,8,3)="TYPE A NUMBER BETWEEN .01 AND 99999.99"
^DD(161.7,8,5,1,0)="162.04^2^1"
^DD(161.7,8,9)="^"
^DD(161.7,8,21,0)="^^3^3^2880304^"
^DD(161.7,8,21,1,0)="The total dollars that will be paid for items in this batch. This field"
^DD(161.7,8,21,2,0)="is calculated when the batch is closed. This field will NOT be accurate"
^DD(161.7,8,21,3,0)="if the batch has NOT been closed."
^DD(161.7,9,0)="INVOICE COUNT^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.7,9,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(161.7,9,21,0)="^^1^1^2880304^"
^DD(161.7,9,21,1,0)="The number of individual invoices associated/included in this batch."
^DD(161.7,10,0)="PAYMENT LINE COUNT^RNJ3,0^^0;11^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.7,10,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(161.7,10,5,1,0)="162.04^2^2"
^DD(161.7,10,5,2,0)="162.04^2^3"
^DD(161.7,10,21,0)="^^1^1^2880304^"
^DD(161.7,10,21,1,0)="The total number of payment line items included in this batch."
^DD(161.7,11,0)="STATUS^RS^C:CLERK CLOSED;S:SUPERVISOR CLOSED;O:OPEN;T:TRANSMITTED;V:VOUCHERED;P:FORWARDED TO PRICER;A:ASSIGNED PRICE;R:REVIEWED AFTER PRICER;^ST;1^Q"
^DD(161.7,11,1,0)="^.1"
^DD(161.7,11,1,1,0)="161.7^AC"
^DD(161.7,11,1,1,1)="S ^FBAA(161.7,""AC"",$E(X,1,30),DA)="""""
^DD(161.7,11,1,1,2)="K ^FBAA(161.7,""AC"",$E(X,1,30),DA)"
^DD(161.7,11,1,2,0)="161.7^AB^MUMPS"
^DD(161.7,11,1,2,1)="I $P(^FBAA(161.7,DA,0),U,5)]"""" S ^FBAA(161.7,""AB"",$E(X,1,30),$P(^FBAA(161.7,DA,0),U,5),DA)="""""
^DD(161.7,11,1,2,2)="I $P(^FBAA(161.7,DA,0),U,5)]"""" K ^FBAA(161.7,""AB"",$E(X,1,30),$P(^FBAA(161.7,DA,0),U,5),DA)"
^DD(161.7,11,21,0)="^^1^1^2900409^^"
^DD(161.7,11,21,1,0)="The current status of the batch (ie Open, Clerk Closed, Transmitted)."
^DD(161.7,11,"DT")="2910111"
^DD(161.7,12,0)="DATE TRANSMITTED^DX^^0;14^S %DT=""EX"",%DT(0)=""-""_DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(161.7,12,21,0)="^^2^2^2880304^"
^DD(161.7,12,21,1,0)="The date/time the supervisor used the 'Queue Data for Transmission' "
^DD(161.7,12,21,2,0)="option. This is NOT the actual date/time the transmission occurred."
^DD(161.7,12,"DT")="3001129"
^DD(161.7,13,0)="DATE FINALIZED^DX^^0;12^S %DT=""EX"",%DT(0)=""-""_DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(161.7,13,1,0)="^.1^^0"
^DD(161.7,13,1,1,0)="161.7^AF"
^DD(161.7,13,1,1,1)="S ^FBAA(161.7,""AF"",$E(X,1,30),DA)="""""
^DD(161.7,13,1,1,2)="K ^FBAA(161.7,""AF"",$E(X,1,30),DA)"
^DD(161.7,13,21,0)="^^4^4^2930519^^"
^DD(161.7,13,21,1,0)="This is the date that the batch is finalized. This occurs after the"
^DD(161.7,13,21,2,0)="batch has been sent to Austin and the Austin processing has"
^DD(161.7,13,21,3,0)="occurred. This is the final step where any items rejected by the Austin"
^DD(161.7,13,21,4,0)="system have been rejected and the batch is finalized."
^DD(161.7,13,"DT")="3001129"
^DD(161.7,14,0)="PERSON WHO COMPLETED^P200'^VA(200,^0;16^Q"
^DD(161.7,14,21,0)="^^1^1^2880304^"
^DD(161.7,14,21,1,0)="The supervisor who completed/finalized the batch."
^DD(161.7,14,"DT")="2900405"
^DD(161.7,15,0)="REJECTS PENDING^S^Y:YES;^0;17^Q"
^DD(161.7,15,21,0)="^^2^2^2930519^^"
^DD(161.7,15,21,1,0)="A flag which indicates whether this batch has any line items which"
^DD(161.7,15,21,2,0)="were rejected and have yet to be reassigned to a new batch."
^DD(161.7,15,"DT")="2860815"
^DD(161.7,16,0)="STATION NUMBER^F^^0;8^K:$L(X)>3!($L(X)<3) X"
^DD(161.7,16,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(161.7,16,21,0)="^^2^2^2930514^"
^DD(161.7,16,21,1,0)="The station number (as defined centrally) for the station that is processing"
^DD(161.7,16,21,2,0)="this batch."
^DD(161.7,16,"DT")="2890731"
^DD(161.7,17,0)="CONTRACT HOSPITAL BATCH^S^Y:yes;^0;15^Q"
^DD(161.7,17,21,0)="^^1^1^2930514^"
^DD(161.7,17,21,1,0)="A flag set to 'Yes' if the batch is a Contract Hospital batch."
^DD(161.7,17,"DT")="2900409"
^DD(161.7,18,0)="BATCH EXEMPT^S^Y:YES;N:NO;^0;18^Q"
^DD(161.7,18,21,0)="^^2^2^2930514^"
^DD(161.7,18,21,1,0)="Population of this field indicates the batch is exempt from processing"
^DD(161.7,18,21,2,0)="by the Austin Pricer."
^DD(161.7,18,"DT")="2930301"
^DD(161.7,19,0)="STATISTICAL BATCH^S^1:YES;0:NO;^0;19^Q"
^DD(161.7,19,21,0)="^^3^3^2940919^"
^DD(161.7,19,21,1,0)="This flag is set by the software.  Batches with this flag set to"
^DD(161.7,19,21,2,0)="'1' (YES) will NOT make payment through FMS.  It is used to"
^DD(161.7,19,21,3,0)="update payment records both in DHCP and Central Fee."
^DD(161.7,19,23,0)="^^2^2^2940919^"
^DD(161.7,19,23,1,0)="Set to '1' if sending Austin a statistical payment.  We only allow"
^DD(161.7,19,23,2,0)="statistical payments to be put into a batch with this flag set."
^DD(161.7,19,"DT")="2940919"
^DD(161.7,"B","BATCH EXEMPT",18)=""
^DD(161.7,"B","CLERK WHO OPENED",4)=""
^DD(161.7,"B","CONTRACT HOSPITAL BATCH",17)=""
^DD(161.7,"B","DATE CLERK CLOSED",4.5)=""
^DD(161.7,"B","DATE FINALIZED",13)=""
^DD(161.7,"B","DATE OPENED",3)=""
^DD(161.7,"B","DATE SUPERVISOR CLOSED",5)=""
^DD(161.7,"B","DATE TRANSMITTED",12)=""
^DD(161.7,"B","INVOICE COUNT",9)=""
^DD(161.7,"B","NUMBER",.01)=""
^DD(161.7,"B","OBLIGATION NUMBER",1)=""
^DD(161.7,"B","PAYMENT LINE COUNT",10)=""
^DD(161.7,"B","PERSON WHO COMPLETED",14)=""
^DD(161.7,"B","REJECTS PENDING",15)=""
^DD(161.7,"B","STATION NUMBER",16)=""
^DD(161.7,"B","STATISTICAL BATCH",19)=""
^DD(161.7,"B","STATUS",11)=""
^DD(161.7,"B","SUPERVISOR WHO CERTIFIED",6)=""
^DD(161.7,"B","TOTAL DOLLARS",8)=""
^DD(161.7,"B","TYPE",2)=""
^DD(161.7,"GL",0,1,.01)=""
^DD(161.7,"GL",0,2,1)=""
^DD(161.7,"GL",0,3,2)=""
^DD(161.7,"GL",0,4,3)=""
^DD(161.7,"GL",0,5,4)=""
^DD(161.7,"GL",0,6,5)=""
^DD(161.7,"GL",0,7,6)=""
^DD(161.7,"GL",0,8,16)=""
^DD(161.7,"GL",0,9,8)=""
^DD(161.7,"GL",0,10,9)=""
^DD(161.7,"GL",0,11,10)=""
^DD(161.7,"GL",0,12,13)=""
^DD(161.7,"GL",0,13,4.5)=""
^DD(161.7,"GL",0,14,12)=""
^DD(161.7,"GL",0,15,17)=""
^DD(161.7,"GL",0,16,14)=""
^DD(161.7,"GL",0,17,15)=""
^DD(161.7,"GL",0,18,18)=""
^DD(161.7,"GL",0,19,19)=""
^DD(161.7,"GL","ST",1,11)=""
^DD(161.7,"IX",.01)=""
^DD(161.7,"IX",4)=""
^DD(161.7,"IX",11)=""
^DD(161.7,"IX",13)=""
^DD(161.7,"RQ",.01)=""
^DD(161.7,"RQ",1)=""
^DD(161.7,"RQ",2)=""
^DD(161.7,"RQ",5)=""
^DD(161.7,"RQ",6)=""
^DD(161.7,"RQ",8)=""
^DD(161.7,"RQ",10)=""
^DD(161.7,"RQ",11)=""
^DD(161.8,0)="FIELD^^2^3"
^DD(161.8,0,"DDA")="N"
^DD(161.8,0,"DT")="2920811"
^DD(161.8,0,"IX","B",161.8,.01)=""
^DD(161.8,0,"NM","FEE BASIS PROGRAM")=""
^DD(161.8,0,"PT",161.01,.03)=""
^DD(161.8,0,"PT",161.82,2)=""
^DD(161.8,0,"PT",162.02,1.5)=""
^DD(161.8,0,"PT",162.03,23)=""
^DD(161.8,0,"PT",162.4,.5)=""
^DD(161.8,0,"PT",162.5,11)=""
^DD(161.8,0,"PT",162.7,.5)=""
^DD(161.8,0,"VR")="3.5"
^DD(161.8,0,"VRPK")="FB"
^DD(161.8,.01,0)="NAME^RF^^0;1^K:$L(X)>46!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(161.8,.01,1,0)="^.1"
^DD(161.8,.01,1,1,0)="161.8^B"
^DD(161.8,.01,1,1,1)="S ^FBAA(161.8,""B"",$E(X,1,30),DA)="""""
^DD(161.8,.01,1,1,2)="K ^FBAA(161.8,""B"",$E(X,1,30),DA)"
^DD(161.8,.01,3)="ANSWER MUST BE 3-46 CHARACTERS IN LENGTH"
^DD(161.8,.01,21,0)="^^2^2^2880617^^^^"
^DD(161.8,.01,21,1,0)="The name of this Fee Basis program. Fee has many different programs such"
^DD(161.8,.01,21,2,0)="as Outpatient Medical, Contract Hospital, Dental, Oxygen etc. ."
^DD(161.8,.01,"DT")="2860115"
^DD(161.8,1,0)="CENTRAL FEE SYSTEM IDENTIFIER^RF^^0;2^K:$L(X)>1!($L(X)<1) X"
^DD(161.8,1,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(161.8,1,21,0)="^^2^2^2880304^"
^DD(161.8,1,21,1,0)="The code the Austin Central system uses to distinguish the different"
^DD(161.8,1,21,2,0)="Fee programs. This will be the code identifying this Fee program."
^DD(161.8,2,0)="ACTIVE?^S^1:YES;0:NO;^0;3^Q"
^DD(161.8,2,3)="Indicate whether or not the fee program is active."
^DD(161.8,2,21,0)="^^2^2^2920811^"
^DD(161.8,2,21,1,0)="This field should indicate whether or not a fee program used in the FEE"
^DD(161.8,2,21,2,0)="Basis package is active.  If active, user's will be able to select."
^DD(161.8,2,23,0)="^^1^1^2920811^"
^DD(161.8,2,23,1,0)="The 'Active?' field is used to screen out inactive programs."
^DD(161.8,2,"DT")="2920811"
^DD(161.8,"B","ACTIVE?",2)=""
^DD(161.8,"B","CENTRAL FEE SYSTEM IDENTIFIER",1)=""
^DD(161.8,"B","NAME",.01)=""
^DD(161.8,"GL",0,1,.01)=""
^DD(161.8,"GL",0,2,1)=""
^DD(161.8,"GL",0,3,2)=""
^DD(161.8,"IX",.01)=""
^DD(161.8,"RQ",.01)=""
^DD(161.8,"RQ",1)=""
^DD(161.81,0)="FIELD^^1^3"
^DD(161.81,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(161.81,0,"IX","B",161.81,.01)=""
^DD(161.81,0,"IX","C",161.81,1)=""
^DD(161.81,0,"NM","FEE BASIS PARTICIPATION CODE")=""
^DD(161.81,0,"PT",161.2,7)=""
^DD(161.81,0,"VR")="3.5"
^DD(161.81,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(161.81,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999"
^DD(161.81,.001,21,0)="^^1^1^2880304^"
^DD(161.81,.001,21,1,0)="The internal entry number of the Participation Code in this file."
^DD(161.81,.001,"DT")="2860117"
^DD(161.81,.01,0)="NAME^RF^^0;1^K:$L(X)>46!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(161.81,.01,1,0)="^.1"
^DD(161.81,.01,1,1,0)="161.81^B"
^DD(161.81,.01,1,1,1)="S ^FBAA(161.81,""B"",$E(X,1,30),DA)="""""
^DD(161.81,.01,1,1,2)="K ^FBAA(161.81,""B"",$E(X,1,30),DA)"
^DD(161.81,.01,3)="ANSWER MUST BE 3-46 CHARACTERS IN LENGTH"
^DD(161.81,.01,21,0)="^^2^2^2880304^"
^DD(161.81,.01,21,1,0)="The name for this Participation code. Each vendor must have a "
^DD(161.81,.01,21,2,0)="participation code."
^DD(161.81,1,0)="CODE REPORTED TO AUSTIN^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X"
^DD(161.81,1,1,0)="^.1"
^DD(161.81,1,1,1,0)="161.81^C"
^DD(161.81,1,1,1,1)="S ^FBAA(161.81,""C"",$E(X,1,30),DA)="""""
^DD(161.81,1,1,1,2)="K ^FBAA(161.81,""C"",$E(X,1,30),DA)"
^DD(161.81,1,1,1,"%D",0)="^^1^1^2930909^"
^DD(161.81,1,1,1,"%D",1,0)="Used to get internal entry number in the server routines."
^DD(161.81,1,1,1,"DT")="2930909"
^DD(161.81,1,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(161.81,1,21,0)="^^2^2^2880304^"
^DD(161.81,1,21,1,0)="The acceptable code the Austin Central system expects for this "
^DD(161.81,1,21,2,0)="participation code."
^DD(161.81,1,"DT")="2930909"
^DD(161.81,"B","CODE REPORTED TO AUSTIN",1)=""
^DD(161.81,"B","NAME",.01)=""
^DD(161.81,"B","NUMBER",.001)=""
^DD(161.81,"GL",0,1,.01)=""
^DD(161.81,"GL",0,2,1)=""
^DD(161.81,"IX",.01)=""
^DD(161.81,"IX",1)=""
^DD(161.81,"RQ",.01)=""
^DD(161.81,"RQ",1)=""
^DD(161.82,0)="FIELD^^5^6"
^DD(161.82,0,"DT")="2941214"
^DD(161.82,0,"ID",3)="W ""   "",$P(^(0),U,3)"
^DD(161.82,0,"IX","AC",161.82,3)=""
^DD(161.82,0,"IX","AC1",161.82,4)=""
^DD(161.82,0,"IX","B",161.82,.01)=""
^DD(161.82,0,"IX","C",161.82,3)=""
^DD(161.82,0,"NM","FEE BASIS PURPOSE OF VISIT")=""
^DD(161.82,0,"PT",161.01,.07)=""
^DD(161.82,0,"PT",162.03,16)=""
^DD(161.82,0,"PT",162.5,21)=""
^DD(161.82,0,"VR")="3.5"
^DD(161.82,0,"VRPK")="FB"
^DD(161.82,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(161.82,.01,1,0)="^.1"
^DD(161.82,.01,1,1,0)="161.82^B^MUMPS"
^DD(161.82,.01,1,1,1)="S ^FBAA(161.82,""B"",$E(X,1,63),DA)="""""
^DD(161.82,.01,1,1,2)="K ^FBAA(161.82,""B"",$E(X,1,63),DA)"
^DD(161.82,.01,3)="ANSWER MUST BE 2-200 CHARACTERS IN LENGTH"
^DD(161.82,.01,21,0)="^^1^1^2930519^^^"
^DD(161.82,.01,21,1,0)="The name of the Purpose of Visit to which a payment will be related."
^DD(161.82,.01,"DT")="2880607"
^DD(161.82,1,0)="DEFINITION^161.821^^1;0"
^DD(161.82,1,21,0)="^^2^2^2880608^^"
^DD(161.82,1,21,1,0)="This allows the input of a more detailed description"
^DD(161.82,1,21,2,0)="of the 'Purpose of Visit' code."
^DD(161.82,2,0)="FEE PROGRAM ASSOCIATED WITH^P161.8'^FBAA(161.8,^0;2^Q"
^DD(161.82,2,21,0)="^^4^4^2930519^^^"
^DD(161.82,2,21,1,0)="The Fee program to which this Purpose of Visit is related. A Purpose of"
^DD(161.82,2,21,2,0)="Visit can relate to only one Fee program."
^DD(161.82,2,21,3,0)="For example, purpose of visit 'Community Nursing Home for SC Disabilities'"
^DD(161.82,2,21,4,0)="is ONLY related to the 'Community Nursing Home' fee program."
^DD(161.82,2,"DT")="2941214"
^DD(161.82,3,0)="AUSTIN CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X"
^DD(161.82,3,1,0)="^.1"
^DD(161.82,3,1,1,0)="161.82^C"
^DD(161.82,3,1,1,1)="S ^FBAA(161.82,""C"",$E(X,1,30),DA)="""""
^DD(161.82,3,1,1,2)="K ^FBAA(161.82,""C"",$E(X,1,30),DA)"
^DD(161.82,3,1,2,0)="161.82^AC^MUMPS"
^DD(161.82,3,1,2,1)="S:'+$G(^FBAA(161.82,DA,""I"")) ^FBAA(161.82,""AC"",X,DA)="""""
^DD(161.82,3,1,2,2)="K ^FBAA(161.82,""AC"",X,DA)"
^DD(161.82,3,1,2,"%D",0)="^^1^1^2931004^^^"
^DD(161.82,3,1,2,"%D",1,0)="Cross-reference those POV's which are active."
^DD(161.82,3,1,2,"DT")="2931004"
^DD(161.82,3,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(161.82,3,21,0)="^^1^1^2880304^"
^DD(161.82,3,21,1,0)="The Austin system code required for this Purpose of Visit."
^DD(161.82,3,"DT")="2931004"
^DD(161.82,4,0)="INACTIVATION DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(161.82,4,1,0)="^.1"
^DD(161.82,4,1,1,0)="161.82^AC1^MUMPS"
^DD(161.82,4,1,1,1)="K:$P($G(^FBAA(161.82,DA,0)),U,3)]"""" ^FBAA(161.82,""AC"",$P(^(0),U,3),DA)"
^DD(161.82,4,1,1,2)="S:$P($G(^FBAA(161.82,DA,0)),U,3)]"""" ^FBAA(161.82,""AC"",$P(^(0),U,3),DA)="""""
^DD(161.82,4,1,1,"%D",0)="^^1^1^2931004^^^^"
^DD(161.82,4,1,1,"%D",1,0)="Cross-reference Purpose of Visit file on active codes."
^DD(161.82,4,1,1,"DT")="2931004"
^DD(161.82,4,21,0)="^^3^3^2930204^"
^DD(161.82,4,21,1,0)="This field allowed the Fee Basis software clean-up any duplicates"
^DD(161.82,4,21,2,0)="that may have resided in this file without re-indexing all payment"
^DD(161.82,4,21,3,0)="records."
^DD(161.82,4,"DT")="2931004"
^DD(161.82,5,0)="LTC COPAY TYPE^S^1:LTC SERVICE IS A SUBJECT FOR LTC-COPAY;2:LTC SERVICE IS EXEMPT FROM LTC-COPAY;3:ALL OTHER LTC SERVICES;^0;4^Q"
^DD(161.82,5,21,0)="^.001^7^7^3021125^^^^"
^DD(161.82,5,21,1,0)="This field is used to determine LTC services in order to treat them"
^DD(161.82,5,21,2,0)="differently in Potential Cost Recovery Report."
^DD(161.82,5,21,3,0)="Null - non-LTC (Means Test) care;"
^DD(161.82,5,21,4,0)="1 - LTC care that can be a subject of LTC copay;"
^DD(161.82,5,21,5,0)="2 - LTC care that is exempt from LTC copay and it cannot be a subject"
^DD(161.82,5,21,6,0)="for Means Test copay either;"
^DD(161.82,5,21,7,0)="3 - all other LTC services;"
^DD(161.82,5,"DT")="3021125"
^DD(161.82,"B","AUSTIN CODE",3)=""
^DD(161.82,"B","DEFINITION",1)=""
^DD(161.82,"B","FEE PROGRAM ASSOCIATED WITH",2)=""
^DD(161.82,"B","INACTIVATION DATE",4)=""
^DD(161.82,"B","LTC COPAY TYPE",5)=""
^DD(161.82,"B","NAME",.01)=""
^DD(161.82,"GL",0,1,.01)=""
^DD(161.82,"GL",0,2,2)=""
^DD(161.82,"GL",0,3,3)=""
^DD(161.82,"GL",0,4,5)=""
^DD(161.82,"GL",1,0,1)=""
^DD(161.82,"GL","I",1,4)=""
^DD(161.82,"IX",.01)=""
^DD(161.82,"IX",3)=""
^DD(161.82,"IX",4)=""
^DD(161.82,"RQ",.01)=""
^DD(161.82,"SB",161.821,1)=""
^DD(161.821,0)="DEFINITION SUB-FIELD^NL^.01^1"
^DD(161.821,0,"NM","DEFINITION")=""
^DD(161.821,0,"UP")="161.82"
^DD(161.821,.01,0)="DEFINITION^W^^0;1^Q"
^DD(161.821,.01,21,0)="^^1^1^2880608^^^^"
^DD(161.821,.01,21,1,0)="A more detail description of the Purpose of Visit code."
^DD(161.821,"B","DEFINITION",.01)=""
^DD(161.821,"GL",0,1,.01)=""
^DD(161.83,0)="FIELD^^1^2"
^DD(161.83,0,"IX","B",161.83,.01)=""
^DD(161.83,0,"IX","C",161.831,1)=""
^DD(161.83,0,"NM","FEE BASIS ID CARD AUDIT")=""
^DD(161.83,0,"VR")="3.5"
^DD(161.83,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(161.83,.01,1,0)="^.1"
^DD(161.83,.01,1,1,0)="161.83^B"
^DD(161.83,.01,1,1,1)="S ^FBAA(161.83,""B"",$E(X,1,30),DA)="""""
^DD(161.83,.01,1,1,2)="K ^FBAA(161.83,""B"",$E(X,1,30),DA)"
^DD(161.83,.01,3)=""
^DD(161.83,.01,21,0)="^^1^1^2880318^^"
^DD(161.83,.01,21,1,0)="Veteran for whom ID card was changed."
^DD(161.83,.01,"DT")="2860411"
^DD(161.83,1,0)="DATE/TIME CARD NUMBER CHANGED^161.831DA^^1;0"
^DD(161.83,1,21,0)="^^1^1^2880304^"
^DD(161.83,1,21,1,0)="Date and time the ID card number was modified."
^DD(161.83,"B","DATE/TIME CARD NUMBER CHANGED",1)=""
^DD(161.83,"B","NAME",.01)=""
^DD(161.83,"GL",0,1,.01)=""
^DD(161.83,"GL",1,0,1)=""
^DD(161.83,"IX",.01)=""
^DD(161.83,"RQ",.01)=""
^DD(161.83,"SB",161.831,1)=""
^DD(161.831,0)="DATE/TIME CARD NUMBER CHANGED SUB-FIELD^^3^4"
^DD(161.831,0,"NM","DATE/TIME CARD NUMBER CHANGED")=""
^DD(161.831,0,"UP")="161.83"
^DD(161.831,.01,0)="DATE/TIME CARD NUMBER CHANGED^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=(9999999.9999-X)"
^DD(161.831,.01,1,0)="^.1^^0"
^DD(161.831,.01,21,0)="^^1^1^2880304^"
^DD(161.831,.01,21,1,0)="The date and time the ID card number was changed for this veteran."
^DD(161.831,.01,"DT")="2860411"
^DD(161.831,1,0)="CARD NUMBER^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<5) X"
^DD(161.831,1,1,0)="^.1"
^DD(161.831,1,1,1,0)="161.83^C"
^DD(161.831,1,1,1,1)="S ^FBAA(161.83,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(161.831,1,1,1,2)="K ^FBAA(161.83,""C"",$E(X,1,30),DA(1),DA)"
^DD(161.831,1,3)="ANSWER MUST BE 5-7 CHARACTERS IN LENGTH"
^DD(161.831,1,21,0)="^^1^1^2880304^"
^DD(161.831,1,21,1,0)="The ID card number before it was changed."
^DD(161.831,1,"DT")="2860411"
^DD(161.831,2,0)="REASON FOR CHANGE^RF^^0;3^K:$L(X)>80!($L(X)<2) X"
^DD(161.831,2,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(161.831,2,21,0)="^^1^1^2880304^"
^DD(161.831,2,21,1,0)="The reason the ID card number was changed."
^DD(161.831,2,"DT")="2860411"
^DD(161.831,3,0)="PERSON WHO CHANGED^RP200'^VA(200,^0;4^Q"
^DD(161.831,3,21,0)="^^1^1^2880304^"
^DD(161.831,3,21,1,0)="The clerk/user who changed the veterans ID card."
^DD(161.831,3,"DT")="2900405"
^DD(161.831,"B","CARD NUMBER",1)=""
^DD(161.831,"B","DATE/TIME CARD NUMBER CHANGED",.01)=""
^DD(161.831,"B","PERSON WHO CHANGED",3)=""
^DD(161.831,"B","REASON FOR CHANGE",2)=""
^DD(161.831,"GL",0,1,.01)=""
^DD(161.831,"GL",0,2,1)=""
^DD(161.831,"GL",0,3,2)=""
^DD(161.831,"GL",0,4,3)=""
^DD(161.831,"IX",1)=""
^DD(161.831,"RQ",.01)=""
^DD(161.831,"RQ",1)=""
^DD(161.831,"RQ",2)=""
^DD(161.831,"RQ",3)=""
^DD(161.91,0)="FIELD^^4^5"
^DD(161.91,0,"DDA")="N"
^DD(161.91,0,"DT")="3030618"
^DD(161.91,0,"ID","CDES")="D ARCDES^FBUTL3"
^DD(161.91,0,"IX","B",161.91,.01)=""
^DD(161.91,0,"NM","ADJUSTMENT REASON")=""
^DD(161.91,0,"PT",162.07,.01)=""
^DD(161.91,0,"PT",162.14,.01)=""
^DD(161.91,0,"PT",162.558,.01)=""
^DD(161.91,0,"VR")="3.5"
^DD(161.91,0,"VRPK")="FB"
^DD(161.91,.01,0)="CODE^RF^^0;1^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(161.91,.01,1,0)="^.1"
^DD(161.91,.01,1,1,0)="161.91^B"
^DD(161.91,.01,1,1,1)="S ^FB(161.91,""B"",$E(X,1,30),DA)="""""
^DD(161.91,.01,1,1,2)="K ^FB(161.91,""B"",$E(X,1,30),DA)"
^DD(161.91,.01,3)="Answer must be 1-5 characters in length."
^DD(161.91,.01,21,0)="^^1^1^3030616^"
^DD(161.91,.01,21,1,0)="Code value."
^DD(161.91,.01,"DT")="3030616"
^DD(161.91,1,0)="STATUS EFFECTIVE DATE^161.911D^^1;0"
^DD(161.91,2,0)="DESCRIPTION EFFECTIVE DATE^161.912D^^2;0"
^DD(161.91,3,0)="ASSOCIATED SUSPEND CODE^P161.27'^FBAA(161.27,^0;2^Q"
^DD(161.91,3,3)="Select a suspend code that is associated with the adjustment code."
^DD(161.91,3,21,0)="^^6^6^3030616^"
^DD(161.91,3,21,1,0)="This field should be populated for every adjustment code that is currently"
^DD(161.91,3,21,2,0)="applicable for use on fee claims.  The software will automatically copy"
^DD(161.91,3,21,3,0)="this value to the SUSPEND CODE field in an invoice file after the "
^DD(161.91,3,21,4,0)="adjustment reason code is specified for the invoice.  If more than one "
^DD(161.91,3,21,5,0)="adjustment reason is specified, the one with the largest dollar impact"
^DD(161.91,3,21,6,0)="will be used to determine the suspend code."
^DD(161.91,3,"DT")="3030616"
^DD(161.91,4,0)="SUSPENSION DESCRIPTION^161.914^^4;0"
^DD(161.91,"B","ASSOCIATED SUSPEND CODE",3)=""
^DD(161.91,"B","CODE",.01)=""
^DD(161.91,"B","DESCRIPTION EFFECTIVE DATE",2)=""
^DD(161.91,"B","STATUS EFFECTIVE DATE",1)=""
^DD(161.91,"B","SUSPENSION DESCRIPTION",4)=""
^DD(161.91,"GL",0,1,.01)=""
^DD(161.91,"GL",0,2,3)=""
^DD(161.91,"GL",1,0,1)=""
^DD(161.91,"GL",2,0,2)=""
^DD(161.91,"GL",4,0,4)=""
^DD(161.91,"IX",.01)=""
^DD(161.91,"RQ",.01)=""
^DD(161.91,"SB",161.911,1)=""
^DD(161.91,"SB",161.912,2)=""
^DD(161.91,"SB",161.914,4)=""
^DD(161.911,0)="STATUS EFFECTIVE DATE SUB-FIELD^^2^3"
^DD(161.911,0,"DT")="3030618"
^DD(161.911,0,"IX","B",161.911,.01)=""
^DD(161.911,0,"NM","STATUS EFFECTIVE DATE")=""
^DD(161.911,0,"UP")="161.91"
^DD(161.911,.01,0)="STATUS EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(3030601>X) X"
^DD(161.911,.01,1,0)="^.1"
^DD(161.911,.01,1,1,0)="161.911^B"
^DD(161.911,.01,1,1,1)="S ^FB(161.91,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(161.911,.01,1,1,2)="K ^FB(161.91,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(161.911,.01,3)="TYPE A DATE BETWEEN 6/1/2003 AND 12/31/2099"
^DD(161.911,.01,21,0)="^.001^1^1^3030618^^^"
^DD(161.911,.01,21,1,0)="Effective date of status."
^DD(161.911,.01,"DT")="3030618"
^DD(161.911,1,0)="STATUS^S^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(161.911,1,3)="Specify the status of the code as of the effective date."
^DD(161.911,1,21,0)="^^3^3^3030616^"
^DD(161.911,1,21,1,0)="The status of the claim adjustment reason code as of the effective date.  "
^DD(161.911,1,21,2,0)="It will be used to prevent inactive codes from being specified during "
^DD(161.911,1,21,3,0)="adjudication of a claim."
^DD(161.911,1,"DT")="3030616"
^DD(161.911,2,0)="FEE USE^S^0:NOT APPLICABLE;1:APPLICABLE;^0;3^Q"
^DD(161.911,2,3)="Specify applicability of use with fee claims as of effective date."
^DD(161.911,2,21,0)="^.001^3^3^3030616^^^"
^DD(161.911,2,21,1,0)="Indicates if code is applicable for use on fee claims as of effective "
^DD(161.911,2,21,2,0)="date. (1 applicable or 0 not applicable)  It will be used to prevent "
^DD(161.911,2,21,3,0)="inappropriate codes from being specified during adjudication of a claim."
^DD(161.911,2,"DT")="3030616"
^DD(161.911,"B","FEE USE",2)=""
^DD(161.911,"B","STATUS",1)=""
^DD(161.911,"B","STATUS EFFECTIVE DATE",.01)=""
^DD(161.911,"GL",0,1,.01)=""
^DD(161.911,"GL",0,2,1)=""
^DD(161.911,"GL",0,3,2)=""
^DD(161.911,"IX",.01)=""
^DD(161.912,0)="DESCRIPTION EFFECTIVE DATE SUB-FIELD^^1^2"
^DD(161.912,0,"DT")="3030618"
^DD(161.912,0,"IX","B",161.912,.01)=""
^DD(161.912,0,"NM","DESCRIPTION EFFECTIVE DATE")=""
^DD(161.912,0,"UP")="161.91"
^DD(161.912,.01,0)="DESCRIPTION EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(3030601>X) X"
^DD(161.912,.01,1,0)="^.1"
^DD(161.912,.01,1,1,0)="161.912^B"
^DD(161.912,.01,1,1,1)="S ^FB(161.91,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(161.912,.01,1,1,2)="K ^FB(161.91,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(161.912,.01,3)="TYPE A DATE BETWEEN 6/1/2003 AND 12/31/2099"
^DD(161.912,.01,21,0)="^.001^1^1^3030618^^"
^DD(161.912,.01,21,1,0)="Effective date of description."
^DD(161.912,.01,"DT")="3030618"
^DD(161.912,1,0)="DESCRIPTION^161.9121^^D;0"
^DD(161.912,"B","DESCRIPTION",1)=""
^DD(161.912,"B","DESCRIPTION EFFECTIVE DATE",.01)=""
^DD(161.912,"GL",0,1,.01)=""
^DD(161.912,"GL","D",0,1)=""
^DD(161.912,"IX",.01)=""
^DD(161.912,"SB",161.9121,1)=""
^DD(161.9121,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(161.9121,0,"DT")="3030616"
^DD(161.9121,0,"NM","DESCRIPTION")=""
^DD(161.9121,0,"UP")="161.912"
^DD(161.9121,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(161.9121,.01,3)="Enter the description of the adjustment reason code as of the effective date."
^DD(161.9121,.01,21,0)="^^2^2^3030616^"
^DD(161.9121,.01,21,1,0)="The description of the adjustment reason code as of the effective date.  "
^DD(161.9121,.01,21,2,0)="It will be used to display a description of the code."
^DD(161.9121,.01,"DT")="3030616"
^DD(161.9121,"B","DESCRIPTION",.01)=""
^DD(161.9121,"GL",0,1,.01)=""
^DD(161.914,0)="SUSPENSION DESCRIPTION SUB-FIELD^^.01^1"
^DD(161.914,0,"DT")="3030616"
^DD(161.914,0,"NM","SUSPENSION DESCRIPTION")=""
^DD(161.914,0,"UP")="161.91"
^DD(161.914,.01,0)="SUSPENSION DESCRIPTION^W^^0;1^Q"
^DD(161.914,.01,3)="Enter description of suspension when associated suspend code is Other."
^DD(161.914,.01,21,0)="^^3^3^3030616^"
^DD(161.914,.01,21,1,0)="This field should be populated with a description of the adjustment reason"
^DD(161.914,.01,21,2,0)="when the associated suspend code is Other.  The system will automatically"
^DD(161.914,.01,21,3,0)="copy this text to the DESCRIPTION OF SUSPENSION field in an invoice file."
^DD(161.914,.01,"DT")="3030616"
^DD(161.914,"B","SUSPENSION DESCRIPTION",.01)=""
^DD(161.914,"GL",0,1,.01)=""
^DD(161.92,0)="FIELD^^2^3"
^DD(161.92,0,"DDA")="N"
^DD(161.92,0,"DT")="3030618"
^DD(161.92,0,"ID","CDN")="D AGCDN^FBUTL3"
^DD(161.92,0,"IX","B",161.92,.01)=""
^DD(161.92,0,"NM","ADJUSTMENT GROUP")=""
^DD(161.92,0,"PT",162.07,1)=""
^DD(161.92,0,"PT",162.14,1)=""
^DD(161.92,0,"PT",162.558,1)=""
^DD(161.92,0,"VR")="3.5"
^DD(161.92,0,"VRPK")="FB"
^DD(161.92,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(161.92,.01,1,0)="^.1"
^DD(161.92,.01,1,1,0)="161.92^B"
^DD(161.92,.01,1,1,1)="S ^FB(161.92,""B"",$E(X,1,30),DA)="""""
^DD(161.92,.01,1,1,2)="K ^FB(161.92,""B"",$E(X,1,30),DA)"
^DD(161.92,.01,3)="Answer must be 1-2 characters in length."
^DD(161.92,.01,21,0)="^^1^1^3030617^"
^DD(161.92,.01,21,1,0)="Code value."
^DD(161.92,.01,"DT")="3030617"
^DD(161.92,1,0)="STATUS EFFECTIVE DATE^161.921D^^1;0"
^DD(161.92,2,0)="DESCRIPTION EFFECTIVE DATE^161.922D^^2;0"
^DD(161.92,"B","CODE",.01)=""
^DD(161.92,"B","DESCRIPTION EFFECTIVE DATE",2)=""
^DD(161.92,"B","STATUS EFFECTIVE DATE",1)=""
^DD(161.92,"GL",0,1,.01)=""
^DD(161.92,"GL",1,0,1)=""
^DD(161.92,"GL",2,0,2)=""
^DD(161.92,"IX",.01)=""
^DD(161.92,"RQ",.01)=""
^DD(161.92,"SB",161.921,1)=""
^DD(161.92,"SB",161.922,2)=""
^DD(161.921,0)="STATUS EFFECTIVE DATE SUB-FIELD^^2^3"
^DD(161.921,0,"DT")="3030617"
^DD(161.921,0,"IX","B",161.921,.01)=""
^DD(161.921,0,"NM","STATUS EFFECTIVE DATE")=""
^DD(161.921,0,"UP")="161.92"
^DD(161.921,.01,0)="STATUS EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(3030601>X) X"
^DD(161.921,.01,1,0)="^.1"
^DD(161.921,.01,1,1,0)="161.921^B"
^DD(161.921,.01,1,1,1)="S ^FB(161.92,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(161.921,.01,1,1,2)="K ^FB(161.92,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(161.921,.01,3)="TYPE A DATE BETWEEN 6/1/2003 AND 12/31/2099"
^DD(161.921,.01,21,0)="^^1^1^3030617^"
^DD(161.921,.01,21,1,0)="Effective date of status."
^DD(161.921,.01,"DT")="3030617"
^DD(161.921,1,0)="STATUS^S^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(161.921,1,3)="Specify the status of the code as of the effective date."
^DD(161.921,1,21,0)="^^3^3^3030617^"
^DD(161.921,1,21,1,0)="The status of the claim adjustment group code as of the effective date.  "
^DD(161.921,1,21,2,0)="It will be used to prevent inactive codes from being specified during"
^DD(161.921,1,21,3,0)="adjudication of a claim."
^DD(161.921,1,"DT")="3030617"
^DD(161.921,2,0)="FEE USE^S^0:NOT APPLICABLE;1:APPLICABLE;^0;3^Q"
^DD(161.921,2,3)="Specify applicability of use with fee claims as of effective date."
^DD(161.921,2,21,0)="^^3^3^3030617^"
^DD(161.921,2,21,1,0)="Indicates if code is applicable for use on fee claims as of effective"
^DD(161.921,2,21,2,0)="date. (1 applicable or 0 not applicable)  It will be used to prevent"
^DD(161.921,2,21,3,0)="inappropriate codes from being specified during adjudication of a claim."
^DD(161.921,2,"DT")="3030617"
^DD(161.921,"B","FEE USE",2)=""
^DD(161.921,"B","STATUS",1)=""
^DD(161.921,"B","STATUS EFFECTIVE DATE",.01)=""
^DD(161.921,"GL",0,1,.01)=""
^DD(161.921,"GL",0,2,1)=""
^DD(161.921,"GL",0,3,2)=""
^DD(161.921,"IX",.01)=""
^DD(161.922,0)="DESCRIPTION EFFECTIVE DATE SUB-FIELD^^1^3"
^DD(161.922,0,"DT")="3030618"
^DD(161.922,0,"IX","B",161.922,.01)=""
^DD(161.922,0,"NM","DESCRIPTION EFFECTIVE DATE")=""
^DD(161.922,0,"UP")="161.92"
^DD(161.922,.01,0)="DESCRIPTION EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(3030601>X) X"
^DD(161.922,.01,1,0)="^.1"
^DD(161.922,.01,1,1,0)="161.922^B"
^DD(161.922,.01,1,1,1)="S ^FB(161.92,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(161.922,.01,1,1,2)="K ^FB(161.92,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(161.922,.01,3)="TYPE A DATE BETWEEN 6/1/2003 AND 12/31/2099"
^DD(161.922,.01,21,0)="^^1^1^3030617^"
^DD(161.922,.01,21,1,0)="Effective date of description."
^DD(161.922,.01,"DT")="3030617"
^DD(161.922,.02,0)="SHORT DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(161.922,.02,3)="Answer must be 1-30 characters in length."
^DD(161.922,.02,21,0)="^^1^1^3030618^"
^DD(161.922,.02,21,1,0)="Short description of adjustment group."
^DD(161.922,.02,"DT")="3030618"
^DD(161.922,1,0)="DESCRIPTION^161.9221^^D;0"
^DD(161.922,"B","DESCRIPTION",1)=""
^DD(161.922,"B","DESCRIPTION EFFECTIVE DATE",.01)=""
^DD(161.922,"B","SHORT DESCRIPTION",.02)=""
^DD(161.922,"GL",0,1,.01)=""
^DD(161.922,"GL",0,2,.02)=""
^DD(161.922,"GL","D",0,1)=""
^DD(161.922,"IX",.01)=""
^DD(161.922,"SB",161.9221,1)=""
^DD(161.9221,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(161.9221,0,"DT")="3030617"
^DD(161.9221,0,"NM","DESCRIPTION")=""
^DD(161.9221,0,"UP")="161.922"
^DD(161.9221,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(161.9221,.01,3)="Description of code as of effective date."
^DD(161.9221,.01,21,0)="^^2^2^3030617^"
^DD(161.9221,.01,21,1,0)="The description of the adjustment group code as of the effective date.  "
^DD(161.9221,.01,21,2,0)="It will be used to display a description of the code."
^DD(161.9221,.01,"DT")="3030617"
^DD(161.9221,"B","DESCRIPTION",.01)=""
^DD(161.9221,"GL",0,1,.01)=""
^DD(161.93,0)="FIELD^^2^3"
^DD(161.93,0,"DDA")="N"
^DD(161.93,0,"DT")="3030617"
^DD(161.93,0,"ID","CDES")="D RRCDES^FBUTL3"
^DD(161.93,0,"IX","B",161.93,.01)=""
^DD(161.93,0,"NM","REMITTANCE REMARK")=""
^DD(161.93,0,"PT",162.08,.01)=""
^DD(161.93,0,"PT",162.15,.01)=""
^DD(161.93,0,"PT",162.559,.01)=""
^DD(161.93,0,"VR")="3.5"
^DD(161.93,0,"VRPK")="FB"
^DD(161.93,.01,0)="CODE^RF^^0;1^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(161.93,.01,1,0)="^.1"
^DD(161.93,.01,1,1,0)="161.93^B"
^DD(161.93,.01,1,1,1)="S ^FB(161.93,""B"",$E(X,1,30),DA)="""""
^DD(161.93,.01,1,1,2)="K ^FB(161.93,""B"",$E(X,1,30),DA)"
^DD(161.93,.01,3)="Answer must be 1-5 characters in length."
^DD(161.93,.01,21,0)="^^1^1^3030617^"
^DD(161.93,.01,21,1,0)="Code value."
^DD(161.93,.01,"DT")="3030617"
^DD(161.93,1,0)="STATUS EFFECTIVE DATE^161.931D^^1;0"
^DD(161.93,2,0)="DESCRIPTION EFFECTIVE DATE^161.932D^^2;0"
^DD(161.93,"B","CODE",.01)=""
^DD(161.93,"B","DESCRIPTION EFFECTIVE DATE",2)=""
^DD(161.93,"B","STATUS EFFECTIVE DATE",1)=""
^DD(161.93,"GL",0,1,.01)=""
^DD(161.93,"GL",1,0,1)=""
^DD(161.93,"GL",2,0,2)=""
^DD(161.93,"IX",.01)=""
^DD(161.93,"RQ",.01)=""
^DD(161.93,"SB",161.931,1)=""
^DD(161.93,"SB",161.932,2)=""
^DD(161.931,0)="STATUS EFFECTIVE DATE SUB-FIELD^^2^3"
^DD(161.931,0,"DT")="3030617"
^DD(161.931,0,"IX","B",161.931,.01)=""
^DD(161.931,0,"NM","STATUS EFFECTIVE DATE")=""
^DD(161.931,0,"UP")="161.93"
^DD(161.931,.01,0)="STATUS EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(3030601>X) X"
^DD(161.931,.01,1,0)="^.1"
^DD(161.931,.01,1,1,0)="161.931^B"
^DD(161.931,.01,1,1,1)="S ^FB(161.93,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(161.931,.01,1,1,2)="K ^FB(161.93,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(161.931,.01,3)="TYPE A DATE BETWEEN 6/1/2003 AND 12/31/2099"
^DD(161.931,.01,21,0)="^^1^1^3030617^"
^DD(161.931,.01,21,1,0)="Effective date of status."
^DD(161.931,.01,"DT")="3030617"
^DD(161.931,1,0)="STATUS^S^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(161.931,1,3)="Specify the status of the code as of the effective date."
^DD(161.931,1,21,0)="^^3^3^3030617^"
^DD(161.931,1,21,1,0)="The status of the remittance remark code as of the effective date.  It"
^DD(161.931,1,21,2,0)="will be used to prevent inactive codes from being specified during"
^DD(161.931,1,21,3,0)="adjudication of a claim."
^DD(161.931,1,"DT")="3030617"
^DD(161.931,2,0)="FEE USE^S^0:NOT APPLICABLE;1:APPLICABLE;^0;3^Q"
^DD(161.931,2,3)="Specify applicability of use with fee claims as of effective date."
^DD(161.931,2,21,0)="^^3^3^3030617^"
^DD(161.931,2,21,1,0)="Indicates if code is applicable for use on fee claims as of effective"
^DD(161.931,2,21,2,0)="date. (1 applicable or 0 not applicable)  It will be used to prevent"
^DD(161.931,2,21,3,0)="inappropriate codes from being specified during adjudication of a claim."
^DD(161.931,2,"DT")="3030617"
^DD(161.931,"B","FEE USE",2)=""
^DD(161.931,"B","STATUS",1)=""
^DD(161.931,"B","STATUS EFFECTIVE DATE",.01)=""
^DD(161.931,"GL",0,1,.01)=""
^DD(161.931,"GL",0,2,1)=""
^DD(161.931,"GL",0,3,2)=""
^DD(161.931,"IX",.01)=""
^DD(161.932,0)="DESCRIPTION EFFECTIVE DATE SUB-FIELD^^1^2"
^DD(161.932,0,"DT")="3030617"
^DD(161.932,0,"IX","B",161.932,.01)=""
^DD(161.932,0,"NM","DESCRIPTION EFFECTIVE DATE")=""
^DD(161.932,0,"UP")="161.93"
^DD(161.932,.01,0)="DESCRIPTION EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(3030601>X) X"
^DD(161.932,.01,1,0)="^.1"
^DD(161.932,.01,1,1,0)="161.932^B"
^DD(161.932,.01,1,1,1)="S ^FB(161.93,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(161.932,.01,1,1,2)="K ^FB(161.93,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(161.932,.01,3)="TYPE A DATE BETWEEN 6/1/2003 AND 12/31/2099"
^DD(161.932,.01,21,0)="^^1^1^3030617^"
^DD(161.932,.01,21,1,0)="Effective date of description."
^DD(161.932,.01,"DT")="3030617"
^DD(161.932,1,0)="DESCRIPTION^161.9321^^D;0"
^DD(161.932,"B","DESCRIPTION",1)=""
^DD(161.932,"B","DESCRIPTION EFFECTIVE DATE",.01)=""
^DD(161.932,"GL",0,1,.01)=""
^DD(161.932,"GL","D",0,1)=""
^DD(161.932,"IX",.01)=""
^DD(161.932,"SB",161.9321,1)=""
^DD(161.9321,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(161.9321,0,"DT")="3030617"
^DD(161.9321,0,"NM","DESCRIPTION")=""
^DD(161.9321,0,"UP")="161.932"
^DD(161.9321,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(161.9321,.01,3)="Enter the description of the adjustment reason code as of the effective date."
^DD(161.9321,.01,21,0)="^^2^2^3030617^"
^DD(161.9321,.01,21,1,0)="The description of the remittance remark code as of the effective date.  "
^DD(161.9321,.01,21,2,0)="It will be used to display a description of the code."
^DD(161.9321,.01,"DT")="3030617"
^DD(161.9321,"B","DESCRIPTION",.01)=""
^DD(161.9321,"GL",0,1,.01)=""
^DD(162,0)="FIELD^^99^4"
^DD(162,0,"DT")="2940926"
^DD(162,0,"IX","AB",162.01,.01)=""
^DD(162,0,"IX","AC",162.03,7)=""
^DD(162,0,"IX","ACK",162.03,35)=""
^DD(162,0,"IX","ACKT",162.04,9)=""
^DD(162,0,"IX","AD",162.04,1)=""
^DD(162,0,"IX","AE",162.06,.01)=""
^DD(162,0,"IX","AF",162.02,3)=""
^DD(162,0,"IX","AG",162.04,6)=""
^DD(162,0,"IX","AH",162.03,21)=""
^DD(162,0,"IX","AI",162.03,4)=""
^DD(162,0,"IX","AJ",162.03,14)=""
^DD(162,0,"IX","AK",162.03,5)=""
^DD(162,0,"IX","AL",162.04,7)=""
^DD(162,0,"IX","AM",162.03,27)=""
^DD(162,0,"IX","AN",162.03,23)=""
^DD(162,0,"IX","AP",162.03,5)=""
^DD(162,0,"IX","AX",162.02,.01)=""
^DD(162,0,"IX","B",162,.01)=""
^DD(162,0,"IX","C",162.03,14)=""
^DD(162,0,"NM","FEE BASIS PAYMENT")=""
^DD(162,0,"VR")="3.5"
^DD(162,.01,0)="PATIENT^RP2X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(162,.01,1,0)="^.1"
^DD(162,.01,1,1,0)="162^B"
^DD(162,.01,1,1,1)="S ^FBAAC(""B"",$E(X,1,30),DA)="""""
^DD(162,.01,1,1,2)="K ^FBAAC(""B"",$E(X,1,30),DA)"
^DD(162,.01,3)=""
^DD(162,.01,21,0)="^^1^1^2880301^"
^DD(162,.01,21,1,0)="The veteran for which service was provided."
^DD(162,6,0)="VENDOR^162.01P^^1;0"
^DD(162,6,21,0)="^^2^2^2941128^"
^DD(162,6,21,1,0)="This mutiple keeps track of all the vendors used by the"
^DD(162,6,21,2,0)="Fee Basis patient."
^DD(162,7,0)="TRAVEL PAYMENT DATE^162.04DA^^3;0"
^DD(162,7,21,0)="^^2^2^2941128^"
^DD(162,7,21,1,0)="This multiple keeps track of any travel paid to a Fee Basis"
^DD(162,7,21,2,0)="patient, in conjunction with an outpatient service."
^DD(162,99,0)="DATE OF PURGE^162.099DA^^PURGE;0"
^DD(162,99,21,0)="^^3^3^2930514^"
^DD(162,99,21,1,0)="Date that the purge routine was run which resulted in the purging of"
^DD(162,99,21,2,0)="payment data for this patient.  This data will exist ONLY IF data was"
^DD(162,99,21,3,0)="purged for the patient for the specific purge run."
^DD(162,"B","DATE OF PURGE",99)=""
^DD(162,"B","PATIENT",.01)=""
^DD(162,"B","TRAVEL PAYMENT DATE",7)=""
^DD(162,"B","VENDOR",6)=""
^DD(162,"GL",0,1,.01)=""
^DD(162,"GL",1,0,6)=""
^DD(162,"GL",3,0,7)=""
^DD(162,"GL","PURGE",0,99)=""
^DD(162,"IX",.01)=""
^DD(162,"RQ",.01)=""
^DD(162,"SB",162.01,6)=""
^DD(162,"SB",162.04,7)=""
^DD(162,"SB",162.099,99)=""
^DD(162.01,0)="VENDOR SUB-FIELD^NL^1^2"
^DD(162.01,0,"DT")="2940426"
^DD(162.01,0,"IX","AB",162.02,.01)=""
^DD(162.01,0,"IX","AC",162.01,.01)=""
^DD(162.01,0,"IX","AD",162.02,.01)=""
^DD(162.01,0,"NM","VENDOR")=""
^DD(162.01,0,"UP")="162"
^DD(162.01,.01,0)="VENDOR^RP161.2X^FBAAV(^0;1^S:$D(X) DINUM=X"
^DD(162.01,.01,1,0)="^.1"
^DD(162.01,.01,1,1,0)="162.01^AC"
^DD(162.01,.01,1,1,1)="S ^FBAAC(DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(162.01,.01,1,1,2)="K ^FBAAC(DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(162.01,.01,1,2,0)="162^AB"
^DD(162.01,.01,1,2,1)="S ^FBAAC(""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(162.01,.01,1,2,2)="K ^FBAAC(""AB"",$E(X,1,30),DA(1),DA)"
^DD(162.01,.01,4)=""
^DD(162.01,.01,21,0)="^^1^1^2880301^"
^DD(162.01,.01,21,1,0)="The vendor/provider who's bill is being entered for payment."
^DD(162.01,.01,"DT")="2860116"
^DD(162.01,1,0)="INITIAL TREATMENT DATE^162.02DA^^1;0"
^DD(162.01,1,21,0)="^^1^1^2880301^"
^DD(162.01,1,21,1,0)="The date that the treatment or service was provided."
^DD(162.01,"B","INITIAL TREATMENT DATE",1)=""
^DD(162.01,"B","VENDOR",.01)=""
^DD(162.01,"GL",0,1,.01)=""
^DD(162.01,"GL",1,0,1)=""
^DD(162.01,"IX",.01)=""
^DD(162.01,"RQ",.01)=""
^DD(162.01,"SB",162.02,1)=""
^DD(162.02,0)="INITIAL TREATMENT DATE SUB-FIELD^NL^3^4"
^DD(162.02,0,"DT")="2940426"
^DD(162.02,0,"NM","INITIAL TREATMENT DATE")=""
^DD(162.02,0,"UP")="162.01"
^DD(162.02,.01,0)="INITIAL TREATMENT DATE^RDX^^0;1^S %DT=""ETXP"" D ^%DT S X=Y D DATCK^FBAAUTL"
^DD(162.02,.01,1,0)="^.1"
^DD(162.02,.01,1,1,0)="162.01^AB^MUMPS"
^DD(162.02,.01,1,1,1)="S ^FBAAC(DA(2),""AB"",(9999999.9999-X),DA(1),DA)="""""
^DD(162.02,.01,1,1,2)="K ^FBAAC(DA(2),""AB"",(9999999.9999-X),DA(1),DA)"
^DD(162.02,.01,1,2,0)="162.01^AD^MUMPS"
^DD(162.02,.01,1,2,1)="S ^FBAAC(DA(2),DA(1),""AD"",(9999999.9999-X),DA)="""""
^DD(162.02,.01,1,2,2)="K ^FBAAC(DA(2),DA(1),""AD"",(9999999.9999-X),DA)"
^DD(162.02,.01,1,3,0)="162^AX^MUMPS"
^DD(162.02,.01,1,3,1)="S ^FBAAC(""AX"",DA(1),(9999999.9999-X),DA(2),DA)="""""
^DD(162.02,.01,1,3,2)="K ^FBAAC(""AX"",DA(1),(9999999.9999-X),DA(2),DA)"
^DD(162.02,.01,21,0)="^^1^1^2880301^"
^DD(162.02,.01,21,1,0)="The date that the treatment/service took place."
^DD(162.02,.01,"DT")="2930512"
^DD(162.02,1.5,0)="*FEE PROGRAM^RP161.8'^FBAA(161.8,^0;3^Q"
^DD(162.02,1.5,3)=""
^DD(162.02,1.5,21,0)="^^3^3^2930514^^"
^DD(162.02,1.5,21,1,0)="The Fee Basis program which this payment is related to. For example,"
^DD(162.02,1.5,21,2,0)="is this a payment related to the Outpatient Medical program or a payment"
^DD(162.02,1.5,21,3,0)="related to the Contract Hospital program."
^DD(162.02,1.5,"DT")="2860218"
^DD(162.02,2,0)="SERVICE PROVIDED^162.03IPA^^1;0"
^DD(162.02,2,8)="#"
^DD(162.02,2,9)="#"
^DD(162.02,2,21,0)="^^2^2^2990702^^"
^DD(162.02,2,21,1,0)="This multiple contains all the outpatient and ancillary services"
^DD(162.02,2,21,2,0)="provided the Fee Basis patient."
^DD(162.02,3,0)="AUTHORIZATION POINTER^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.02,3,1,0)="^.1"
^DD(162.02,3,1,1,0)="162^AF"
^DD(162.02,3,1,1,1)="S ^FBAAC(""AF"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(162.02,3,1,1,2)="K ^FBAAC(""AF"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(162.02,3,1,1,"%D",0)="^^1^1^3021224^"
^DD(162.02,3,1,1,"%D",1,0)="the cross-reference is used for active/ending authorization reports"
^DD(162.02,3,1,1,"DT")="3021224"
^DD(162.02,3,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(162.02,3,21,0)="^^4^4^2941128^^"
^DD(162.02,3,21,1,0)="This field is set to the internal entry number of the"
^DD(162.02,3,21,2,0)="appropriate authorization in file 161. It is used"
^DD(162.02,3,21,3,0)="to retrieve the appropriate purpose of visit code"
^DD(162.02,3,21,4,0)="when payments are sent to Austin."
^DD(162.02,3,"DT")="3021224"
^DD(162.02,"B","*FEE PROGRAM",1.5)=""
^DD(162.02,"B","AUTHORIZATION POINTER",3)=""
^DD(162.02,"B","INITIAL TREATMENT DATE",.01)=""
^DD(162.02,"B","SERVICE PROVIDED",2)=""
^DD(162.02,"GL",0,1,.01)=""
^DD(162.02,"GL",0,3,1.5)=""
^DD(162.02,"GL",0,4,3)=""
^DD(162.02,"GL",1,0,2)=""
^DD(162.02,"IX",.01)=""
^DD(162.02,"IX",3)=""
^DD(162.02,"RQ",.01)=""
^DD(162.02,"RQ",1.5)=""
^DD(162.02,"SB",162.03,2)=""
^DD(162.03,0)="SERVICE PROVIDED SUB-FIELD^NL^53^52"
^DD(162.03,0,"DT")="2940426"
^DD(162.03,0,"IX","AE",162.03,.01)=""
^DD(162.03,0,"IX","AI1",162.03,3.5)=""
^DD(162.03,0,"IX","AQ",162.03,5)=""
^DD(162.03,0,"IX","B",162.03,.01)=""
^DD(162.03,0,"NM","SERVICE PROVIDED")=""
^DD(162.03,0,"UP")="162.02"
^DD(162.03,.01,0)="SERVICE PROVIDED^MRP81'^ICPT(^0;1^Q"
^DD(162.03,.01,1,0)="^.1"
^DD(162.03,.01,1,1,0)="162.03^AE^MUMPS"
^DD(162.03,.01,1,1,1)="D SCPT^FBAAUTL7"
^DD(162.03,.01,1,1,2)="D KCPT^FBAAUTL7"
^DD(162.03,.01,1,1,"%D",0)="^^22^22^2990601^^"
^DD(162.03,.01,1,1,"%D",1,0)="Cross-reference built to concatenate CPT with Modifier(s) for duplicate"
^DD(162.03,.01,1,1,"%D",2,0)="payment checks.  The cross-reference is set by both the Service Provided"
^DD(162.03,.01,1,1,"%D",3,0)="field, as well as the CPT Modifier field."
^DD(162.03,.01,1,1,"%D",4,0)=" "
^DD(162.03,.01,1,1,"%D",5,0)="The cross-reference format is"
^DD(162.03,.01,1,1,"%D",6,0)=" ^FBAAC(""AE"",pat IEN,ven IEN,date,cpt-mod list,serv prov IEN)="""" "
^DD(162.03,.01,1,1,"%D",7,0)="where"
^DD(162.03,.01,1,1,"%D",8,0)="  pat IEN is the PATIENT internal entry number in file 162. (dinum)"
^DD(162.03,.01,1,1,"%D",9,0)="  ven IEN is the VENDOR multiple internal entry number. (dinum)"
^DD(162.03,.01,1,1,"%D",10,0)="  date is the value of the INITIAL TREATMENT DATE (fileman format)"
^DD(162.03,.01,1,1,"%D",11,0)="  cpt-mod list is the value of the SERVICE PROVIDED (internal)"
^DD(162.03,.01,1,1,"%D",12,0)="    followed by a dash (""-"") and a sorted list of values (internal) from"
^DD(162.03,.01,1,1,"%D",13,0)="    the CPT MODIFER multiple. Examples:"
^DD(162.03,.01,1,1,"%D",14,0)="    12345 for a service provided without any modifiers"
^DD(162.03,.01,1,1,"%D",15,0)="    12345-11,12 for a service provided with two modifiers"
^DD(162.03,.01,1,1,"%D",16,0)="  serv prov IEN is the SERVICE PROVIDED multiple internal entry number."
^DD(162.03,.01,1,1,"%D",17,0)=" "
^DD(162.03,.01,1,1,"%D",18,0)="***If the need arises to re-index the entire cross-reference, it should be"
^DD(162.03,.01,1,1,"%D",19,0)="done by re-indexing the Service Provided field and not the CPT Modifier"
^DD(162.03,.01,1,1,"%D",20,0)="field.  As a Service Provided (CPT code) is mandatory for each payment"
^DD(162.03,.01,1,1,"%D",21,0)="entry, but a CPT Modifier is not, to assure a complete cross-reference,"
^DD(162.03,.01,1,1,"%D",22,0)="the re-indexing should be done on the Service Provided field."
^DD(162.03,.01,1,1,"DT")="2990601"
^DD(162.03,.01,1,2,0)="162.03^B"
^DD(162.03,.01,1,2,1)="S ^FBAAC(DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(162.03,.01,1,2,2)="K ^FBAAC(DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(162.03,.01,1,2,"DT")="3010628"
^DD(162.03,.01,3)=""
^DD(162.03,.01,21,0)="^^2^2^2990507^^^^"
^DD(162.03,.01,21,1,0)="The Current Procedural Terminology Code (CPT Code) as specified on the"
^DD(162.03,.01,21,2,0)="vendors invoice identifying the service the vendor provided to the veteran."
^DD(162.03,.01,"DT")="3010628"
^DD(162.03,1,0)="AMOUNT CLAIMED^RNJ9,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<.01) X"
^DD(162.03,1,3)="Type a Dollar Amount between .01 and 999999, 2 Decimal Digits"
^DD(162.03,1,21,0)="^^1^1^2880301^"
^DD(162.03,1,21,1,0)="The amount the vendor is billing us for this service provided."
^DD(162.03,1,"DT")="2880301"
^DD(162.03,2,0)="AMOUNT PAID^RNJ9,2X^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N.1""."".2N)!(X>999999)!(X<0) X I $D(X),$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),""^"",2)<X W !,*7,""Amount Paid cannot be greater than Amount Claimed!"",! K X"
^DD(162.03,2,1,0)="^.1^^0"
^DD(162.03,2,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(162.03,2,21,0)="^^1^1^2880301^"
^DD(162.03,2,21,1,0)="The amount that the VA is going to pay for this service provided."
^DD(162.03,2,"DT")="2940722"
^DD(162.03,3,0)="AMOUNT SUSPENDED^NJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<.01) X"
^DD(162.03,3,3)="Type a Dollar Amount between .01 and 9999999, 2 Decimal Digits"
^DD(162.03,3,21,0)="^^3^3^2880616^^^^"
^DD(162.03,3,21,1,0)="The portion of the vendor's claimed amount that the VA will not pay for"
^DD(162.03,3,21,2,0)="various reasons. This amount is usually the difference between the"
^DD(162.03,3,21,3,0)="vendor's amount claimed and the amount paid."
^DD(162.03,3,"DT")="2880301"
^DD(162.03,3.5,0)="DATE SUSPENDED^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.03,3.5,1,0)="^.1"
^DD(162.03,3.5,1,1,0)="162.03^AI1^MUMPS"
^DD(162.03,3.5,1,1,1)="S:$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,5) ^FBAAC(""AI"",DA(2),$E(X,1,30),DA(3),$P(^(0),U,5),DA(1),DA)="""""
^DD(162.03,3.5,1,1,2)="K:$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,5) ^FBAAC(""AI"",DA(2),$E(X,1,30),DA(3),$P(^(0),U,5),DA(1),DA)"
^DD(162.03,3.5,1,1,"%D",0)="^^2^2^2930514^"
^DD(162.03,3.5,1,1,"%D",1,0)="This will update the cross-reference on the suspense code field if the"
^DD(162.03,3.5,1,1,"%D",2,0)="Date suspended has been changed."
^DD(162.03,3.5,1,1,"DT")="2930514"
^DD(162.03,3.5,21,0)="^^1^1^2880301^"
^DD(162.03,3.5,21,1,0)="The date that this payment is suspended."
^DD(162.03,3.5,"DT")="2930514"
^DD(162.03,4,0)="SUSPEND CODE^P161.27'^FBAA(161.27,^0;5^Q"
^DD(162.03,4,1,0)="^.1"
^DD(162.03,4,1,1,0)="162^AI^MUMPS"
^DD(162.03,4,1,1,1)="S:$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,11) ^FBAAC(""AI"",DA(2),$P(^(0),U,11),DA(3),$E(X,1,30),DA(1),DA)="""""
^DD(162.03,4,1,1,2)="K:$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,11) ^FBAAC(""AI"",DA(2),$P(^(0),U,11),DA(3),$E(X,1,30),DA(1),DA)"
^DD(162.03,4,1,1,"%D",0)="^^1^1^2930514^^"
^DD(162.03,4,1,1,"%D",1,0)="This cross-reference is used to sort suspense letters."
^DD(162.03,4,1,1,"DT")="2930514"
^DD(162.03,4,3)=""
^DD(162.03,4,4)=""
^DD(162.03,4,21,0)="^^3^3^2880301^"
^DD(162.03,4,21,1,0)="The code that identifies why the amount paid was less than the amount"
^DD(162.03,4,21,2,0)="claimed. The valid list of codes are contained in the Fee Basis "
^DD(162.03,4,21,3,0)="Suspension file."
^DD(162.03,4,"DT")="2930514"
^DD(162.03,5,0)="DATE FINALIZED^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.03,5,1,0)="^.1"
^DD(162.03,5,1,1,0)="162^AP^MUMPS"
^DD(162.03,5,1,1,1)="S ^FBAAC(""AP"",DA(2),$E(X,1,30),DA(3),DA(1),DA)="""""
^DD(162.03,5,1,1,2)="K ^FBAAC(""AP"",DA(2),$E(X,1,30),DA(3),DA(1),DA)"
^DD(162.03,5,1,2,0)="162^AK"
^DD(162.03,5,1,2,1)="S ^FBAAC(""AK"",$E(X,1,30),DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,5,1,2,2)="K ^FBAAC(""AK"",$E(X,1,30),DA(3),DA(2),DA(1),DA)"
^DD(162.03,5,1,3,0)="162.03^AQ^MUMPS"
^DD(162.03,5,1,3,1)="I $P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,12)]"""" S ^FBAAC(""AQ"",$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,12),9999999-$E(X,1,30),DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,5,1,3,2)="I $P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,12)]"""" K ^FBAAC(""AQ"",$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,12),9999999-$E(X,1,30),DA(3),DA(2),DA(1),DA)"
^DD(162.03,5,21,0)="^^2^2^2880301^"
^DD(162.03,5,21,1,0)="The date that this payment line item was finalized (Certified) by the"
^DD(162.03,5,21,2,0)="Fee Supervisor."
^DD(162.03,5,"DT")="2900611"
^DD(162.03,6,0)="CLERK^RP200'^VA(200,^0;7^Q"
^DD(162.03,6,21,0)="^^1^1^2880301^"
^DD(162.03,6,21,1,0)="The Fee clerk who entered in the payment data."
^DD(162.03,6,"DT")="2900405"
^DD(162.03,7,0)="BATCH NUMBER^*P161.7'^FBAA(161.7,^0;8^S DIC(""S"")=""I $P(^(""""ST""""),U,1)=""""O"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.03,7,1,0)="^.1^^-1"
^DD(162.03,7,1,1,0)="162^AC"
^DD(162.03,7,1,1,1)="S ^FBAAC(""AC"",$E(X,1,30),DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,7,1,1,2)="K ^FBAAC(""AC"",$E(X,1,30),DA(3),DA(2),DA(1),DA)"
^DD(162.03,7,12)="ALLOWS SELECTION OF ONLY BATCHES THAT ARE OPEN"
^DD(162.03,7,12.1)="S DIC(""S"")=""I $P(^(""""ST""""),U,1)=""""O"""""""
^DD(162.03,7,21,0)="^^2^2^2930519^^"
^DD(162.03,7,21,1,0)="The batch number with which this payment was associated. If the batch"
^DD(162.03,7,21,2,0)="file has been purged this may be blank."
^DD(162.03,7,"DT")="2880122"
^DD(162.03,8,0)="OBLIGATION NUMBER^RFX^^0;10^K:$L(X)>6!($L(X)<6) X D:$D(X) CKOB^FBAAUTL1"
^DD(162.03,8,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(162.03,8,21,0)="^^2^2^2880301^"
^DD(162.03,8,21,1,0)="The obligation number identifying which funds this payment will be paid"
^DD(162.03,8,21,2,0)="with."
^DD(162.03,8,"DT")="2900412"
^DD(162.03,12,0)="DATE PAID^D^^0;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.03,12,3)="This is the date of the check, as issued by the treasury."
^DD(162.03,12,21,0)="^^7^7^2940308^^^"
^DD(162.03,12,21,1,0)="This is the date of the check, as issued by the treasury.  This"
^DD(162.03,12,21,2,0)="information will be passed back to DHCP from the Financial Management"
^DD(162.03,12,21,3,0)="System (FMS) when the check is issued to the vendor.  This field will"
^DD(162.03,12,21,4,0)="use the check date beginning with version 3.5 of Fee Basis.  Entries"
^DD(162.03,12,21,5,0)="prior to version 3.5 are the date the system automatically entered when"
^DD(162.03,12,21,6,0)="the payment line item was queued to be transmitted to the Austin Automation"
^DD(162.03,12,21,7,0)="Center for payment."
^DD(162.03,12,"DT")="2860102"
^DD(162.03,13,0)="DATE CORRECT INVOICE RECEIVED^RDX^^0;15^S %DT=""EX"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(162.03,13,21,0)="^^4^4^2940315^^"
^DD(162.03,13,21,1,0)="Date that the VA receives what it feels to be a complete/correct invoice."
^DD(162.03,13,21,2,0)="This date is very important since it is the date used by the Central Fee"
^DD(162.03,13,21,3,0)="system in determining if interest should be paid because of untimely"
^DD(162.03,13,21,4,0)="processing by VA. Requirements for the prompt payment act apply."
^DD(162.03,13,"DT")="2930308"
^DD(162.03,14,0)="INVOICE NUMBER^NJ9,0X^^0;16^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.03,14,1,0)="^.1"
^DD(162.03,14,1,1,0)="162^C"
^DD(162.03,14,1,1,1)="S ^FBAAC(""C"",$E(X,1,30),DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,14,1,1,2)="K ^FBAAC(""C"",$E(X,1,30),DA(3),DA(2),DA(1),DA)"
^DD(162.03,14,1,2,0)="162^AJ^MUMPS"
^DD(162.03,14,1,2,1)="I +$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,8) S ^FBAAC(""AJ"",$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,8),$E(X,1,30),DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,14,1,2,2)="I +$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,8) K ^FBAAC(""AJ"",$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),U,8),$E(X,1,30),DA(3),DA(2),DA(1),DA)"
^DD(162.03,14,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(162.03,14,21,0)="^^1^1^2880617^^^"
^DD(162.03,14,21,1,0)="An automatically generated number associated with a vendor's bill."
^DD(162.03,14,"DT")="3040913"
^DD(162.03,15,0)="PATIENT TYPE CODE^RS^00:SURGICAL;10:MEDICAL;60:HOME NURSING SERVICE;85:PSYCHIATRIC-CONTRACT;86:PSYCHIATRIC;95:NEUROLOGICAL-CONTACT;96:NEUROLOGICAL;^0;17^Q"
^DD(162.03,15,21,0)="^^3^3^2910111^^"
^DD(162.03,15,21,1,0)="The patient's type code (ie medical, surgical) related to this payment"
^DD(162.03,15,21,2,0)="line item. This is based on the authorization that is selected during"
^DD(162.03,15,21,3,0)="the payment process."
^DD(162.03,15,"DT")="2910111"
^DD(162.03,16,0)="PURPOSE OF VISIT^R*P161.82'X^FBAA(161.82,^0;18^N FBZ S FBZ=$P($G(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0)),U,9),DIC(""S"")=""I $S($G(FBZ):$P(^(0),U,2)=FBZ,1:1)&($S('$G(^(""""I"""")):1,DT'>^(""""I""""):1,1:0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.03,16,12)="A Purpose of Visit that matches the Fee Program selected and the POV must not have an inactive date."
^DD(162.03,16,12.1)="S DIC(""S"")=""I $S($G(FBZ):$P(^(0),U,2)=FBZ,1:1)&($S('$G(^(""""I"""")):1,DT'>^(""""I""""):1,1:0))"""
^DD(162.03,16,21,0)="^^3^3^2880301^"
^DD(162.03,16,21,1,0)="This identifies the purpose that the veteran received the service"
^DD(162.03,16,21,2,0)="provided. This data is obtained from the authorization data for"
^DD(162.03,16,21,3,0)="the patient, at the time of payment entry."
^DD(162.03,16,"DT")="2950113"
^DD(162.03,17,0)="TREATMENT TYPE CODE^RS^1:SHORT TERM FEE STATUS;2:HOME NURSING SERVICE;3:I.D. CARD STATUS;^0;19^Q"
^DD(162.03,17,21,0)="^^3^3^2880301^"
^DD(162.03,17,21,1,0)="The treatment type code this payment is related to. It is obtained from"
^DD(162.03,17,21,2,0)="the authorization data for the patient which was selected at the time "
^DD(162.03,17,21,3,0)="of payment entry."
^DD(162.03,17,"DT")="2930129"
^DD(162.03,18,0)="PAYMENT TYPE CODE^RS^R:REIMBURSEMENT;S:STATISTICAL;V:VENDOR;SR:STAT-REIMBURSEMENT;^0;20^Q"
^DD(162.03,18,21,0)="^^5^5^2940926^^"
^DD(162.03,18,21,1,0)="Identifies whether this is a payment to a vendor, a reimbursement to the"
^DD(162.03,18,21,2,0)="veteran, a statistical payment which only updates veteran year-to-date"
^DD(162.03,18,21,3,0)="amounts and results in NO payment and a statistical reimbursement"
^DD(162.03,18,21,4,0)="which allows the user to update payment record with a"
^DD(162.03,18,21,5,0)="reimbursement paid out of system."
^DD(162.03,18,"DT")="2860424"
^DD(162.03,19,0)="REJECT STATUS^S^P:REJECTED, PENDING;C:REJECTED, COMPLETED;^FBREJ;1^Q"
^DD(162.03,19,21,0)="^^2^2^2880301^"
^DD(162.03,19,21,1,0)="Identifies whether this line item has been rejected and is pending "
^DD(162.03,19,21,2,0)="assignment to another batch."
^DD(162.03,19,"DT")="2941026"
^DD(162.03,20,0)="REJECT REASON^F^^FBREJ;2^K:$L(X)>40!($L(X)<2) X"
^DD(162.03,20,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(162.03,20,21,0)="^^2^2^2880301^"
^DD(162.03,20,21,1,0)="The reason this line item was rejected for payment. Normally, the Austin"
^DD(162.03,20,21,2,0)="reject code is entered. "
^DD(162.03,20,"DT")="2860811"
^DD(162.03,21,0)="OLD BATCH NUMBER^P161.7'^FBAA(161.7,^FBREJ;3^Q"
^DD(162.03,21,1,0)="^.1"
^DD(162.03,21,1,1,0)="162^AH"
^DD(162.03,21,1,1,1)="S ^FBAAC(""AH"",$E(X,1,30),DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,21,1,1,2)="K ^FBAAC(""AH"",$E(X,1,30),DA(3),DA(2),DA(1),DA)"
^DD(162.03,21,21,0)="^^2^2^2880301^"
^DD(162.03,21,21,1,0)="The batch number this line item was associated with before the line "
^DD(162.03,21,21,2,0)="item was rejected. "
^DD(162.03,21,"DT")="2860811"
^DD(162.03,22,0)="DESCRIPTION OF SUSPENSION^162.05^^1;0"
^DD(162.03,22,21,0)="^^3^3^2880919^^^"
^DD(162.03,22,21,1,0)="This field is used only when the suspend code entered is '4' meaning "
^DD(162.03,22,21,2,0)="'Other'. This allows the entering of the reason that the payment amount"
^DD(162.03,22,21,3,0)="was not in full. This will be printed on the suspense letter."
^DD(162.03,23,0)="FEE PROGRAM^P161.8'^FBAA(161.8,^0;9^Q"
^DD(162.03,23,1,0)="^.1^^-1"
^DD(162.03,23,1,1,0)="162^AN^MUMPS"
^DD(162.03,23,1,1,1)="S:X'=2 ^FBAAC(""AN"",X,DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,23,1,1,2)="K ^FBAAC(""AN"",X,DA(3),DA(2),DA(1),DA)"
^DD(162.03,23,1,1,"%D",0)="^^2^2^2920908^"
^DD(162.03,23,1,1,"%D",1,0)="Cross-reference is used to easily identify those fee services which"
^DD(162.03,23,1,1,"%D",2,0)="belong to fee programs other than outpatient medical."
^DD(162.03,23,1,1,"DT")="2920908"
^DD(162.03,23,21,0)="^^2^2^2930519^^"
^DD(162.03,23,21,1,0)="The Fee program that this line item is associated with (ie Outpatient"
^DD(162.03,23,21,2,0)="Medical, Contract Hospital)."
^DD(162.03,23,"DT")="2920908"
^DD(162.03,24,0)="VOID PAYMENT^S^VP:VOID;^0;21^Q"
^DD(162.03,24,21,0)="^^5^5^2941128^"
^DD(162.03,24,21,1,0)="This field is set when a payment was made in error and the"
^DD(162.03,24,21,2,0)="site has initiated a bill of collection to retrieve the"
^DD(162.03,24,21,3,0)="dollars expended."
^DD(162.03,24,21,4,0)="The ability to void a payment is restricted to the holder"
^DD(162.03,24,21,5,0)="of the FBAASUPERVISOR security key."
^DD(162.03,24,"DT")="2880325"
^DD(162.03,24.5,0)="REASON FOR VOIDED PAYMENT^F^^R;1^K:$L(X)>75!($L(X)<3) X"
^DD(162.03,24.5,3)="Answer must be 3-75 characters in length."
^DD(162.03,24.5,21,0)="^^2^2^2920831^"
^DD(162.03,24.5,21,1,0)="This field will allow the Fee Supervisor to store the reason why"
^DD(162.03,24.5,21,2,0)="they had to void a payment."
^DD(162.03,24.5,"DT")="2920831"
^DD(162.03,25,0)="SUPERVISOR^P200'^VA(200,^0;22^Q"
^DD(162.03,25,21,0)="^^1^1^2880325^"
^DD(162.03,25,21,1,0)="This is the Fee Supervisor who cancelled(voided) the payment."
^DD(162.03,25,"DT")="2900405"
^DD(162.03,26,0)="PRIMARY SERVICE FACILITY^P4'^DIC(4,^0;12^Q"
^DD(162.03,26,21,0)="^^1^1^2941128^^^"
^DD(162.03,26,21,1,0)="The VA Hospital responsible for the veterans care."
^DD(162.03,26,"DT")="2900419"
^DD(162.03,27,0)="ASSOCIATED 7078/583^V^^0;13^Q"
^DD(162.03,27,1,0)="^.1"
^DD(162.03,27,1,1,0)="162^AM"
^DD(162.03,27,1,1,1)="S ^FBAAC(""AM"",$E(X,1,30),DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,27,1,1,2)="K ^FBAAC(""AM"",$E(X,1,30),DA(3),DA(2),DA(1),DA)"
^DD(162.03,27,3)=""
^DD(162.03,27,21,0)="^^1^1^2930514^"
^DD(162.03,27,21,1,0)="Contains the related 7078 or 583 if an unauthorized claim."
^DD(162.03,27,"DT")="2900918"
^DD(162.03,27,"V",0)="^.12P^2^2"
^DD(162.03,27,"V",1,0)="162.4^Select associated 7078^1^FB7078^^n"
^DD(162.03,27,"V",2,0)="162.7^Select associated 583^2^FB583^^n"
^DD(162.03,27,"V","B",162.4,1)=""
^DD(162.03,27,"V","B",162.7,2)=""
^DD(162.03,27,"V","M","Select associated 583",2)=""
^DD(162.03,27,"V","M","Select associated 7078",1)=""
^DD(162.03,27,"V","O",1,1)=""
^DD(162.03,27,"V","O",2,2)=""
^DD(162.03,27,"V","P","FB583",2)=""
^DD(162.03,27,"V","P","FB7078",1)=""
^DD(162.03,28,0)="PRIMARY DIAGNOSIS^P80'^ICD9(^0;23^Q"
^DD(162.03,28,21,0)="^^2^2^2920610^"
^DD(162.03,28,21,1,0)="This field contains the primary diagnosis of the patient for the"
^DD(162.03,28,21,2,0)="service provided."
^DD(162.03,28,23,0)="^^2^2^2920610^"
^DD(162.03,28,23,1,0)="This field is a pointer to the ICD DIAGNOSIS (#80) file.  It is"
^DD(162.03,28,23,2,0)="used to attach a diagnosis to a CPT code."
^DD(162.03,28,"DT")="2930526"
^DD(162.03,29,0)="VA TYPE OF SERVICE^P163.85'^FBAA(163.85,^0;24^Q"
^DD(162.03,29,21,0)="^^4^4^2920610^^"
^DD(162.03,29,21,1,0)="The information recorded in this field will be sent with the"
^DD(162.03,29,21,2,0)="payment record to the Austin DPC.  It will allow the program"
^DD(162.03,29,21,3,0)="office to do some comparisons between VA supplied services"
^DD(162.03,29,21,4,0)="and those supplied by Fee Basis."
^DD(162.03,29,23,0)="^^2^2^2920610^"
^DD(162.03,29,23,1,0)="This filed is a pointer to Fee Basis VA Type of Service (#163.85) file."
^DD(162.03,29,23,2,0)="It is a static table file populated by the program office."
^DD(162.03,29,"DT")="2920630"
^DD(162.03,30,0)="PLACE OF SERVICE^P353.1'O^IBE(353.1,^0;25^Q"
^DD(162.03,30,2)="S Y(0)=Y N FBX S FBX=$G(^IBE(353.1,+Y,0)) Q:FBX']""""  S Y=$P(FBX,U,2)_"" (""_$P(FBX,U)_"")"""
^DD(162.03,30,2.1)="N FBX S FBX=$G(^IBE(353.1,+Y,0)) Q:FBX']""""  S Y=$P(FBX,U,2)_"" (""_$P(FBX,U)_"")"""
^DD(162.03,30,21,0)="^^2^2^2920610^"
^DD(162.03,30,21,1,0)="This field determines where the service was administered to the"
^DD(162.03,30,21,2,0)="veteran."
^DD(162.03,30,23,0)="^^3^3^2920610^"
^DD(162.03,30,23,1,0)="This field is a pointer to the Place of Service (#353.1) file."
^DD(162.03,30,23,2,0)="It contains data supplied by the Health Care Finance Administration"
^DD(162.03,30,23,3,0)="and is recorded on HCFA form 1500."
^DD(162.03,30,"DT")="2960610"
^DD(162.03,31,0)="HCFA TYPE OF SERVICE^P353.2'O^IBE(353.2,^0;26^Q"
^DD(162.03,31,2)="S Y(0)=Y N FBX S FBX=$G(^IBE(353.2,+Y,0)) Q:FBX']""""  S Y=$P(FBX,U,2)_"" (""_$P(FBX,U)_"")"""
^DD(162.03,31,2.1)="N FBX S FBX=$G(^IBE(353.2,+Y,0)) Q:FBX']""""  S Y=$P(FBX,U,2)_"" (""_$P(FBX,U)_"")"""
^DD(162.03,31,21,0)="^^2^2^2920610^"
^DD(162.03,31,21,1,0)="This information will be used to determine payment amounts in the"
^DD(162.03,31,21,2,0)="future.  It is currently asked on the HCFA 1500 form."
^DD(162.03,31,23,0)="^^3^3^2920610^"
^DD(162.03,31,23,1,0)="This field is a pointer to the Type of Service (#353.2) file. It"
^DD(162.03,31,23,2,0)="is a table file with data supplied by the Health Care finance"
^DD(162.03,31,23,3,0)="Administration."
^DD(162.03,31,"DT")="2960610"
^DD(162.03,32,0)="SERVICE CONNECTED CONDITION?^FXO^^0;27^I $D(X) D YN^FBAAUTL3"
^DD(162.03,32,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(162.03,32,2.1)="D OUTYN^FBAAUTL3"
^DD(162.03,32,3)="Answer 'Yes' or '1' for YES and 'No' or '0' for NO."
^DD(162.03,32,4)="I $G(DFN) W !?1,*7,""Patient:  "",$$NAME^FBCHREQ2(DFN) D DIS^DGRPDB W !!"
^DD(162.03,32,21,0)="^^3^3^2930723^^^^"
^DD(162.03,32,21,1,0)="Indicates whether the service provided was for a Service Connected"
^DD(162.03,32,21,2,0)="condition.  Answer 'Yes' if service provided was for a Service"
^DD(162.03,32,21,3,0)="Connected condition, 'No' if eligible under NSC such as Aid and Attendance."
^DD(162.03,32,23,0)="^^1^1^2930723^"
^DD(162.03,32,23,1,0)=" "
^DD(162.03,32,"DT")="2940318"
^DD(162.03,33,0)="VENDOR INVOICE DATE^RDX^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I X>$P(^FBAAC(DA(3),1,DA(2),1,DA(1),1,DA,0),""^"",15) W !,*7,""Vendor Invoice Date cannot be later than the Date Correct Invoice Received"" K X"
^DD(162.03,33,3)="Enter the date the vendor issued the invoice."
^DD(162.03,33,21,0)="^^1^1^2940315^^"
^DD(162.03,33,21,1,0)="This is the date that the vendor issued the invoice."
^DD(162.03,33,"DT")="2940414"
^DD(162.03,34,0)="PROMPT PAY TYPE^S^1:MONEY MANAGED;^2;2^Q"
^DD(162.03,34,3)="Set equal to 1 if payment is subject to interest payments."
^DD(162.03,34,21,0)="^^2^2^2940315^^"
^DD(162.03,34,21,1,0)="Field is set to 1 if the payment is subject to interest payments (prompt"
^DD(162.03,34,21,2,0)="pay).  Otherwise it remains blank."
^DD(162.03,34,"DT")="2940318"
^DD(162.03,35,0)="CHECK NUMBER^F^^2;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.NA) X"
^DD(162.03,35,1,0)="^.1"
^DD(162.03,35,1,1,0)="162^ACK^MUMPS"
^DD(162.03,35,1,1,1)="S ^FBAAC(""ACK"",X,DA(3),DA(2),DA(1),DA)="""""
^DD(162.03,35,1,1,2)="K ^FBAAC(""ACK"",X,DA(3),DA(2),DA(1),DA)"
^DD(162.03,35,1,1,"%D",0)="^^2^2^2940425^"
^DD(162.03,35,1,1,"%D",1,0)="This cross-reference is used for finding payment items for specific check"
^DD(162.03,35,1,1,"%D",2,0)="numbers."
^DD(162.03,35,1,1,"DT")="2940425"
^DD(162.03,35,3)="Answer must be 1-8 characters in length."
^DD(162.03,35,21,0)="^^3^3^2940315^^"
^DD(162.03,35,21,1,0)="Contains the check number as issued by the treasury.  This field is updated"
^DD(162.03,35,21,2,0)="after the check is issued, through a server option that records actual"
^DD(162.03,35,21,3,0)="payment information for each Fee payment made."
^DD(162.03,35,"DT")="2940425"
^DD(162.03,36,0)="CANCELLATION DATE^D^^2;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(162.03,36,3)="The date the check was cancelled by the treasury."
^DD(162.03,36,21,0)="^^3^3^2940315^^"
^DD(162.03,36,21,1,0)="This is the date the treasury cancelled the check.  This field is updated"
^DD(162.03,36,21,2,0)="through a server option that records cancellations of previously recorded"
^DD(162.03,36,21,3,0)="payment data."
^DD(162.03,36,"AUDIT")=""
^DD(162.03,36,"DT")="2940315"
^DD(162.03,37,0)="REASON CODE^P162.95'^FB(162.95,^2;5^Q"
^DD(162.03,37,3)="Enter the reason the check was cancelled."
^DD(162.03,37,21,0)="^^3^3^2940315^^"
^DD(162.03,37,21,1,0)="This field contains a pointer to the Fee Basis Check Cancellation Reason"
^DD(162.03,37,21,2,0)="file.  It is populated through a server option that updates the payment"
^DD(162.03,37,21,3,0)="record when the treasury cancels a check that was previously payed."
^DD(162.03,37,"DT")="2940315"
^DD(162.03,38,0)="CANCELLATION ACTIVITY^S^R:WILL BE REPLACED;C:WILL BE REISSUED;X:WILL NOT BE REISSUED;^2;6^Q"
^DD(162.03,38,3)="Field will contain the cancellation code if there has been cancellation activity on this payment."
^DD(162.03,38,21,0)="^^7^7^2940426^^"
^DD(162.03,38,21,1,0)="This field is populated when a cancellation is recorded for the payment"
^DD(162.03,38,21,2,0)="referenced.  This field will always remain populated, to indicate that"
^DD(162.03,38,21,3,0)="there was cancellation activity on this payment at one time.  New payments"
^DD(162.03,38,21,4,0)="will replace the cancellation date and reason code fields, but the"
^DD(162.03,38,21,5,0)="cancellation activity flag will not be overwritten.  This flag will allow"
^DD(162.03,38,21,6,0)="the user to know that previous cancellation activity existed, and to"
^DD(162.03,38,21,7,0)="review the cancellation history output for further information."
^DD(162.03,38,"DT")="2940426"
^DD(162.03,40,0)="DISBURSED AMOUNT^NJ9,2^^2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.03,40,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.03,40,21,0)="^^1^1^2940420^^"
^DD(162.03,40,21,1,0)="This is the dollar amount paid by the treasury, less any interest paid."
^DD(162.03,40,"DT")="2940421"
^DD(162.03,41,0)="INTEREST AMOUNT^NJ9,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.03,41,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.03,41,21,0)="^^1^1^2940420^^"
^DD(162.03,41,21,1,0)="The interest amount paid on this line item by the treasury."
^DD(162.03,41,"DT")="2940421"
^DD(162.03,42,0)="SITE OF SERVICE ZIP CODE^RF^^2;10^K:$L(X)>5!($L(X)<5)!'(X?5N&(X'?5""0"")) X"
^DD(162.03,42,3)="Answer must be 5 characters in length."
^DD(162.03,42,21,0)="^^1^1^2990505^"
^DD(162.03,42,21,1,0)="Zip Code of the location where the service was actually performed."
^DD(162.03,42,"DT")="2990505"
^DD(162.03,43,0)="ANESTHESIA TIME (MINUTES)^NJ3,0^^2;11^K:+X'=X!(X>999)!(X<15)!(X?.E1"".""1N.N) X"
^DD(162.03,43,3)="Type a Number between 15 and 999, 0 Decimal Digits"
^DD(162.03,43,21,0)="^^2^2^2990517^"
^DD(162.03,43,21,1,0)="Enter time billed for an anesthesia service in minutes.  The bill may"
^DD(162.03,43,21,2,0)="specify anesthesia units which will need to be converted to minutes."
^DD(162.03,43,"DT")="2990505"
^DD(162.03,44,0)="FEE SCHEDULE AMOUNT^NJ9,2^^2;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(162.03,44,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(162.03,44,21,0)="^^2^2^2990505^"
^DD(162.03,44,21,1,0)="This is the dollar amount obtained from a fee schedule for the service"
^DD(162.03,44,21,2,0)="provided."
^DD(162.03,44,"DT")="2990505"
^DD(162.03,45,0)="FEE SCHEDULE^S^F:VA FEE SCHEDULE;R:RBRVS FEE SCHEDULE;^2;13^Q"
^DD(162.03,45,3)="Enter the fee schedule used to obtain the fee schedule amount."
^DD(162.03,45,21,0)="^^2^2^2990505^"
^DD(162.03,45,21,1,0)="Specifies which fee schedule was used to obtain the fee schedule amount for"
^DD(162.03,45,21,2,0)="this service provided."
^DD(162.03,45,"DT")="2990505"
^DD(162.03,46,0)="CPT MODIFIER^162.06P^^M;0"
^DD(162.03,47,0)="UNITS PAID^RNJ5,0^^2;14^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.03,47,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(162.03,47,21,0)="^^3^3^3030617^"
^DD(162.03,47,21,1,0)="Units of service being paid for this line item if any payment is being "
^DD(162.03,47,21,2,0)="made for the line item.  If payment disapproved for the line item then "
^DD(162.03,47,21,3,0)="enter the units of service that were billed."
^DD(162.03,47,"DT")="3030626"
^DD(162.03,48,0)="REVENUE CODE^P399.2'^DGCR(399.2,^2;15^Q"
^DD(162.03,48,3)="Answer with the revenue code associated with this charge."
^DD(162.03,48,21,0)="^.001^5^5^3030619^^"
^DD(162.03,48,21,1,0)="Revenue code is a 3-digit code associated with itemized charges on a UB92 "
^DD(162.03,48,21,2,0)="billing invoice.  A revenue code should be entered if a CPT/HCPCS code was"
^DD(162.03,48,21,3,0)="not specified for the line item.  If both revenue code and a CPT/HCPCS"
^DD(162.03,48,21,4,0)="code have been entered for a line item, the revenue code will be"
^DD(162.03,48,21,5,0)="considered the more accurate description of the service."
^DD(162.03,48,23,0)="^^1^1^3030619^"
^DD(162.03,48,23,1,0)="IA #4128 allows Fee Basis to point to the REVENUE CODE (#399.2) file."
^DD(162.03,48,"DT")="3030617"
^DD(162.03,49,0)="PATIENT ACCOUNT NUMBER^F^^2;16^K:$L(X)>20!($L(X)<1) X"
^DD(162.03,49,3)="Answer must be 1-20 characters in length."
^DD(162.03,49,21,0)="^^2^2^3030617^"
^DD(162.03,49,21,1,0)="Please enter the Patient control number.  This could be either the Patient"
^DD(162.03,49,21,2,0)="Identification Number or Patient Account Number from the vendor's invoice."
^DD(162.03,49,"DT")="3030617"
^DD(162.03,50,0)="FPPS CLAIM ID^F^^3;1^K:$L(X)>32!($L(X)<1)!'(X?1.32N) X"
^DD(162.03,50,3)="Enter a non-zero number from 1 to 32 digits long, 0 decimal digits."
^DD(162.03,50,21,0)="^^2^2^3030617^"
^DD(162.03,50,21,1,0)="Enter the entire FPPS Claim ID as shown on the invoice document.  (1-32 "
^DD(162.03,50,21,2,0)="character text ID created by FPPS system)."
^DD(162.03,50,"DT")="3030618"
^DD(162.03,51,0)="FPPS LINE ITEM^F^^3;2^K:$L(X)>40!($L(X)<1) X"
^DD(162.03,51,3)="This response must be a number or a list or range, e.g., 1,3,5 or 2-4,8."
^DD(162.03,51,21,0)="^^8^8^3030617^"
^DD(162.03,51,21,1,0)="Enter the line item sequence number associated with this charge.  Each "
^DD(162.03,51,21,2,0)="charge on the FPPS invoice document will have a line item sequence number "
^DD(162.03,51,21,3,0)="associated with it.  A line item can be entered individually or a group of"
^DD(162.03,51,21,4,0)="charges from multiple lines can be entered.  If all line items in a group"
^DD(162.03,51,21,5,0)="are in numerical sequence, you may enter the first line item sequence"
^DD(162.03,51,21,6,0)="number followed by a hyphen and the last line item sequence number.  If"
^DD(162.03,51,21,7,0)="the grouped charges are not in sequential order, each line item must be"
^DD(162.03,51,21,8,0)="entered individually, followed by a comma."
^DD(162.03,51,"DT")="3030617"
^DD(162.03,52,0)="ADJUSTMENT^162.07PA^^7;0"
^DD(162.03,53,0)="REMITTANCE REMARK^162.08P^^8;0"
^DD(162.03,"B","ADJUSTMENT",52)=""
^DD(162.03,"B","AMOUNT CLAIMED",1)=""
^DD(162.03,"B","AMOUNT PAID",2)=""
^DD(162.03,"B","AMOUNT SUSPENDED",3)=""
^DD(162.03,"B","ANESTHESIA TIME (MINUTES)",43)=""
^DD(162.03,"B","ASSOCIATED 7078/583",27)=""
^DD(162.03,"B","BATCH NUMBER",7)=""
^DD(162.03,"B","CANCELLATION ACTIVITY",38)=""
^DD(162.03,"B","CANCELLATION DATE",36)=""
^DD(162.03,"B","CHECK NUMBER",35)=""
^DD(162.03,"B","CLERK",6)=""
^DD(162.03,"B","CPT MODIFIER",46)=""
^DD(162.03,"B","DATE CORRECT INVOICE RECEIVED",13)=""
^DD(162.03,"B","DATE FINALIZED",5)=""
^DD(162.03,"B","DATE PAID",12)=""
^DD(162.03,"B","DATE SUSPENDED",3.5)=""
^DD(162.03,"B","DESCRIPTION OF SUSPENSION",22)=""
^DD(162.03,"B","DISBURSED AMOUNT",40)=""
^DD(162.03,"B","FEE PROGRAM",23)=""
^DD(162.03,"B","FEE SCHEDULE",45)=""
^DD(162.03,"B","FEE SCHEDULE AMOUNT",44)=""
^DD(162.03,"B","FPPS CLAIM ID",50)=""
^DD(162.03,"B","FPPS LINE ITEM",51)=""
^DD(162.03,"B","HCFA TYPE OF SERVICE",31)=""
^DD(162.03,"B","INTEREST AMOUNT",41)=""
^DD(162.03,"B","INVOICE NUMBER",14)=""
^DD(162.03,"B","OBLIGATION NUMBER",8)=""
^DD(162.03,"B","OLD BATCH NUMBER",21)=""
^DD(162.03,"B","PATIENT ACCOUNT NUMBER",49)=""
^DD(162.03,"B","PATIENT TYPE CODE",15)=""
^DD(162.03,"B","PAYMENT TYPE CODE",18)=""
^DD(162.03,"B","PLACE OF SERVICE",30)=""
^DD(162.03,"B","PRIMARY DIAGNOSIS",28)=""
^DD(162.03,"B","PRIMARY SERVICE FACILITY",26)=""
^DD(162.03,"B","PROMPT PAY TYPE",34)=""
^DD(162.03,"B","PURPOSE OF VISIT",16)=""
^DD(162.03,"B","REASON CODE",37)=""
^DD(162.03,"B","REASON FOR VOIDED PAYMENT",24.5)=""
^DD(162.03,"B","REJECT REASON",20)=""
^DD(162.03,"B","REJECT STATUS",19)=""
^DD(162.03,"B","REMITTANCE REMARK",53)=""
^DD(162.03,"B","REVENUE CODE",48)=""
^DD(162.03,"B","SERVICE CONNECTED CONDITION?",32)=""
^DD(162.03,"B","SERVICE PROVIDED",.01)=""
^DD(162.03,"B","SITE OF SERVICE ZIP CODE",42)=""
^DD(162.03,"B","SUPERVISOR",25)=""
^DD(162.03,"B","SUSPEND CODE",4)=""
^DD(162.03,"B","TREATMENT TYPE CODE",17)=""
^DD(162.03,"B","UNITS PAID",47)=""
^DD(162.03,"B","VA TYPE OF SERVICE",29)=""
^DD(162.03,"B","VENDOR INVOICE DATE",33)=""
^DD(162.03,"B","VOID PAYMENT",24)=""
^DD(162.03,"GL",0,1,.01)=""
^DD(162.03,"GL",0,2,1)=""
^DD(162.03,"GL",0,3,2)=""
^DD(162.03,"GL",0,4,3)=""
^DD(162.03,"GL",0,5,4)=""
^DD(162.03,"GL",0,6,5)=""
^DD(162.03,"GL",0,7,6)=""
^DD(162.03,"GL",0,8,7)=""
^DD(162.03,"GL",0,9,23)=""
^DD(162.03,"GL",0,10,8)=""
^DD(162.03,"GL",0,11,3.5)=""
^DD(162.03,"GL",0,12,26)=""
^DD(162.03,"GL",0,13,27)=""
^DD(162.03,"GL",0,14,12)=""
^DD(162.03,"GL",0,15,13)=""
^DD(162.03,"GL",0,16,14)=""
^DD(162.03,"GL",0,17,15)=""
^DD(162.03,"GL",0,18,16)=""
^DD(162.03,"GL",0,19,17)=""
^DD(162.03,"GL",0,20,18)=""
^DD(162.03,"GL",0,21,24)=""
^DD(162.03,"GL",0,22,25)=""
^DD(162.03,"GL",0,23,28)=""
^DD(162.03,"GL",0,24,29)=""
^DD(162.03,"GL",0,25,30)=""
^DD(162.03,"GL",0,26,31)=""
^DD(162.03,"GL",0,27,32)=""
^DD(162.03,"GL",1,0,22)=""
^DD(162.03,"GL",2,1,33)=""
^DD(162.03,"GL",2,2,34)=""
^DD(162.03,"GL",2,3,35)=""
^DD(162.03,"GL",2,4,36)=""
^DD(162.03,"GL",2,5,37)=""
^DD(162.03,"GL",2,6,38)=""
^DD(162.03,"GL",2,8,40)=""
^DD(162.03,"GL",2,9,41)=""
^DD(162.03,"GL",2,10,42)=""
^DD(162.03,"GL",2,11,43)=""
^DD(162.03,"GL",2,12,44)=""
^DD(162.03,"GL",2,13,45)=""
^DD(162.03,"GL",2,14,47)=""
^DD(162.03,"GL",2,15,48)=""
^DD(162.03,"GL",2,16,49)=""
^DD(162.03,"GL",3,1,50)=""
^DD(162.03,"GL",3,2,51)=""
^DD(162.03,"GL",7,0,52)=""
^DD(162.03,"GL",8,0,53)=""
^DD(162.03,"GL","FBREJ",1,19)=""
^DD(162.03,"GL","FBREJ",2,20)=""
^DD(162.03,"GL","FBREJ",3,21)=""
^DD(162.03,"GL","M",0,46)=""
^DD(162.03,"GL","R",1,24.5)=""
^DD(162.03,"IX",.01)=""
^DD(162.03,"IX",3.5)=""
^DD(162.03,"IX",4)=""
^DD(162.03,"IX",5)=""
^DD(162.03,"IX",7)=""
^DD(162.03,"IX",14)=""
^DD(162.03,"IX",21)=""
^DD(162.03,"IX",23)=""
^DD(162.03,"IX",27)=""
^DD(162.03,"IX",35)=""
^DD(162.03,"RQ",.01)=""
^DD(162.03,"RQ",1)=""
^DD(162.03,"RQ",2)=""
^DD(162.03,"RQ",6)=""
^DD(162.03,"RQ",8)=""
^DD(162.03,"RQ",13)=""
^DD(162.03,"RQ",15)=""
^DD(162.03,"RQ",16)=""
^DD(162.03,"RQ",17)=""
^DD(162.03,"RQ",18)=""
^DD(162.03,"RQ",33)=""
^DD(162.03,"RQ",42)=""
^DD(162.03,"RQ",47)=""
^DD(162.03,"SB",162.05,22)=""
^DD(162.03,"SB",162.06,46)=""
^DD(162.03,"SB",162.07,52)=""
^DD(162.03,"SB",162.08,53)=""
^DD(162.04,0)="TRAVEL PAYMENT DATE SUB-FIELD^^14^16"
^DD(162.04,0,"DT")="2940926"
^DD(162.04,0,"IX","AB",162.04,.01)=""
^DD(162.04,0,"NM","TRAVEL PAYMENT DATE")=""
^DD(162.04,0,"UP")="162"
^DD(162.04,.01,0)="TRAVEL PAYMENT DATE^MDX^^0;1^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(162.04,.01,1,0)="^.1"
^DD(162.04,.01,1,1,0)="162.04^AB"
^DD(162.04,.01,1,1,1)="S ^FBAAC(DA(1),3,""AB"",$E(X,1,30),DA)="""""
^DD(162.04,.01,1,1,2)="K ^FBAAC(DA(1),3,""AB"",$E(X,1,30),DA)"
^DD(162.04,.01,21,0)="^^1^1^2930603^^^^"
^DD(162.04,.01,21,1,0)="The date the travel being paid was performed."
^DD(162.04,.01,"DT")="2870320"
^DD(162.04,1,0)="TRAVEL BATCH NUMBER^R*P161.7'^FBAA(161.7,^0;2^S DIC(""S"")=""I $P(^(0),U,3)=""""B2""""&($P(^(0),U,5)=DUZ)&(^(""""ST"""")=""""O"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.04,1,1,0)="^.1"
^DD(162.04,1,1,1,0)="162^AD"
^DD(162.04,1,1,1,1)="S ^FBAAC(""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(162.04,1,1,1,2)="K ^FBAAC(""AD"",$E(X,1,30),DA(1),DA)"
^DD(162.04,1,12)="Allows selection of travel batches in open status, which were opened by this specific user."
^DD(162.04,1,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""B2""""&($P(^(0),U,5)=DUZ)&(^(""""ST"""")=""""O"""")"""
^DD(162.04,1,21,0)="^^1^1^2930514^^"
^DD(162.04,1,21,1,0)="The batch number that this travel payment will be associated with."
^DD(162.04,1,"DT")="2861216"
^DD(162.04,2,0)="TRAVEL AMOUNT^RNJ6,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999)!(X<.01) X"
^DD(162.04,2,1,0)="^.1^^-1"
^DD(162.04,2,1,1,0)="^^TRIGGER^161.7^8"
^DD(162.04,2,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,1,1.2) S X=DIV S X=DIU+DIV X ^DD(162.04,2,1,1,1.4)"
^DD(162.04,2,1,1,1.2)="X ^DD(162.04,2,1,1,89.2) K DIC S DIC=""^FBAA(161.7,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^DD(162.04,2,1,1,1.4)="S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U"" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"""":U_%,1:""""),DIH=161.7,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(162.04,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,1,2.2) S X=DIV S X=DIU-X X ^DD(162.04,2,1,1,2.4)"
^DD(162.04,2,1,1,2.2)="X ^DD(162.04,2,1,1,89.2) K DIC S DIC=""^FBAA(161.7,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^DD(162.04,2,1,1,2.4)="S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U"" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"""":U_%,1:""""),DIH=161.7,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(162.04,2,1,1,89.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^FBAAC(D0,3,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X"
^DD(162.04,2,1,1,"CREATE VALUE")="TOTAL DOLLARS+TRAVEL AMOUNT"
^DD(162.04,2,1,1,"DELETE VALUE")="TOTAL DOLLARS-OLD TRAVEL AMOUNT"
^DD(162.04,2,1,1,"DIC")="LOOKUP"
^DD(162.04,2,1,1,"FIELD")="TRAVEL BATCH NUMBER:FEE BASIS BATCH:TOTAL DOLLARS"
^DD(162.04,2,1,2,0)="^^TRIGGER^161.7^10"
^DD(162.04,2,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,2,1.2) S X=DIV S X=DIU+1 X ^DD(162.04,2,1,2,1.4)"
^DD(162.04,2,1,2,1.2)="X ^DD(162.04,2,1,2,89.2) K DIC S DIC=""^FBAA(161.7,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^DD(162.04,2,1,2,1.4)="S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U"" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"""":U_%,1:""""),DIH=161.7,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(162.04,2,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,2,2.2) S X=DIV S X=DIU-1 X ^DD(162.04,2,1,2,2.4)"
^DD(162.04,2,1,2,2.2)="X ^DD(162.04,2,1,2,89.2) K DIC S DIC=""^FBAA(161.7,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^DD(162.04,2,1,2,2.4)="S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U"" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"""":U_%,1:""""),DIH=161.7,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(162.04,2,1,2,89.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^FBAAC(D0,3,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X S:X]"""" X=""`""_X"
^DD(162.04,2,1,2,"CREATE VALUE")="PAYMENT LINE COUNT+1"
^DD(162.04,2,1,2,"DELETE VALUE")="PAYMENT LINE COUNT-1"
^DD(162.04,2,1,2,"DIC")="LOOKUP"
^DD(162.04,2,1,2,"FIELD")="TRAVEL BATCH NUMBER:FEE BASIS BATCH:PAYMENT LINE COUNT"
^DD(162.04,2,1,3,0)="^^TRIGGER^161.7^10"
^DD(162.04,2,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,3,1.2) S X=DIV S X=DIU+1 X ^DD(162.04,2,1,3,1.4)"
^DD(162.04,2,1,3,1.2)="X ^DD(162.04,2,1,3,89.2) K DIC S DIC=""^FBAA(161.7,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^DD(162.04,2,1,3,1.4)="S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U"" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"""":U_%,1:""""),DIH=161.7,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(162.04,2,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(162.04,2,1,3,2.2) S X=DIV S X=DIU-1 X ^DD(162.04,2,1,3,2.4)"
^DD(162.04,2,1,3,2.2)="X ^DD(162.04,2,1,3,89.2) K DIC S DIC=""^FBAA(161.7,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^FBAA(161.7,D0,0)):^(0),1:"""") S X=$P(Y(101),U,11) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y"
^DD(162.04,2,1,3,2.4)="S DIH=$S($D(^FBAA(161.7,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) X ""F %=0:0 Q:$L($P(DIH,U,10,99))  S DIH=DIH_U"" S %=$P(DIH,U,12,999),DIU=$P(DIH,U,11),^(0)=$P(DIH,U,1,10)_U_DIV_$S(%]"""":U_%,1:""""),DIH=161.7,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(162.04,2,1,3,89.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^FBAAC(D0,3,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X"
^DD(162.04,2,1,3,"CREATE VALUE")="PAYMENT LINE COUNT+1"
^DD(162.04,2,1,3,"DELETE VALUE")="PAYMENT LINE COUNT-1"
^DD(162.04,2,1,3,"DIC")="LOOKUP"
^DD(162.04,2,1,3,"FIELD")="TRAVEL BATCH NUMBER:FEE BASIS BATCH:PAYMENT LINE COUNT"
^DD(162.04,2,3)="Type a Dollar Amount between .01 and 999, 2 Decimal Digits"
^DD(162.04,2,21,0)="^^1^1^2880301^"
^DD(162.04,2,21,1,0)="The amount to be paid for the travel."
^DD(162.04,2,"DT")="2880301"
^DD(162.04,3,0)="TRAVEL OBLIGATION NUMBER^F^^0;4^K:$L(X)>6!($L(X)<6) X"
^DD(162.04,3,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(162.04,3,21,0)="^^2^2^2930519^^"
^DD(162.04,3,21,1,0)="The obligation number identifying the funds from which this travel payment"
^DD(162.04,3,21,2,0)="will be paid."
^DD(162.04,3,"DT")="2860805"
^DD(162.04,3.5,0)="PAYMENT TYPE CODE^S^R:REIMBURSEMENT;S:STATISTICAL;SR:STAT-REIMBURSEMENT;V:VENDOR;^0;13^Q"
^DD(162.04,3.5,21,0)="^^8^8^2940926^"
^DD(162.04,3.5,21,1,0)="An entry of 'R' will indicate the travel is for a reimbursement to the"
^DD(162.04,3.5,21,2,0)="veteran."
^DD(162.04,3.5,21,3,0)="An entry of 'S' will indicate the travel was paid ""out of system"""
^DD(162.04,3.5,21,4,0)="to a vendor and allows the update of the payment history files."
^DD(162.04,3.5,21,5,0)="An entry of 'SR' will indicate a statistical reimbursement to a"
^DD(162.04,3.5,21,6,0)="party other than the vendor."
^DD(162.04,3.5,21,7,0)="An entry of 'V' or 'S' is not used currently.  Travel is only paid to"
^DD(162.04,3.5,21,8,0)="a veteran."
^DD(162.04,3.5,"DT")="2940926"
^DD(162.04,4,0)="REJECT STATUS^S^P:REJECTED, PENDING;C:REJECTED, COMPLETED;^FBREJ;1^Q"
^DD(162.04,4,1,0)="^.1^^0"
^DD(162.04,4,21,0)="^^2^2^2880301^"
^DD(162.04,4,21,1,0)="Identifies whether this line item is in a reject status pending"
^DD(162.04,4,21,2,0)="assignment to another batch."
^DD(162.04,4,"DT")="2860811"
^DD(162.04,5,0)="REJECT REASON^F^^FBREJ;2^K:$L(X)>40!($L(X)<2) X"
^DD(162.04,5,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(162.04,5,21,0)="^^2^2^2880301^"
^DD(162.04,5,21,1,0)="The reason this line item was rejected for payment. Usually, the error"
^DD(162.04,5,21,2,0)="code identified by the Austin Central Fee system is entered."
^DD(162.04,5,"DT")="2860811"
^DD(162.04,6,0)="OLD BATCH NUMBER^P161.7'^FBAA(161.7,^FBREJ;3^Q"
^DD(162.04,6,1,0)="^.1"
^DD(162.04,6,1,1,0)="162^AG"
^DD(162.04,6,1,1,1)="S ^FBAAC(""AG"",$E(X,1,30),DA(1),DA)="""""
^DD(162.04,6,1,1,2)="K ^FBAAC(""AG"",$E(X,1,30),DA(1),DA)"
^DD(162.04,6,21,0)="^^2^2^2880301^"
^DD(162.04,6,21,1,0)="The batch number this line item was associated with prior to being"
^DD(162.04,6,21,2,0)="rejected."
^DD(162.04,6,"DT")="2860811"
^DD(162.04,7,0)="DATE FINALIZED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.04,7,1,0)="^.1"
^DD(162.04,7,1,1,0)="162^AL"
^DD(162.04,7,1,1,1)="S ^FBAAC(""AL"",$E(X,1,30),DA(1),DA)="""""
^DD(162.04,7,1,1,2)="K ^FBAAC(""AL"",$E(X,1,30),DA(1),DA)"
^DD(162.04,7,21,0)="^^1^1^2930519^^"
^DD(162.04,7,21,1,0)="Indicates the date and time the travel payment was vouchered by Fiscal."
^DD(162.04,7,"DT")="2880321"
^DD(162.04,8,0)="DATE PAID^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(162.04,8,3)="This is the date of the check, as issued by the treasury."
^DD(162.04,8,21,0)="^^4^4^2940324^^"
^DD(162.04,8,21,1,0)="This is the date of the check, as issued by the treasury.  This"
^DD(162.04,8,21,2,0)="information will be passed back to DHCP from the Financial Management"
^DD(162.04,8,21,3,0)="System (FMS) when the check is issued to the vendor.  This field will"
^DD(162.04,8,21,4,0)="be populated beginning in version 3.5 of Fee Basis."
^DD(162.04,8,"DT")="2940324"
^DD(162.04,9,0)="CHECK NUMBER^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.NA) X"
^DD(162.04,9,1,0)="^.1"
^DD(162.04,9,1,1,0)="162^ACKT^MUMPS"
^DD(162.04,9,1,1,1)="S ^FBAAC(""ACKT"",X,DA(1),DA)="""""
^DD(162.04,9,1,1,2)="K ^FBAAC(""ACKT"",X,DA(1),DA)"
^DD(162.04,9,1,1,"%D",0)="^^2^2^2940425^"
^DD(162.04,9,1,1,"%D",1,0)="This cross-reference is used to located payment items for a specific"
^DD(162.04,9,1,1,"%D",2,0)="check number."
^DD(162.04,9,1,1,"DT")="2940425"
^DD(162.04,9,3)="Answer must be 1-8 characters in length."
^DD(162.04,9,21,0)="^^3^3^2940324^^"
^DD(162.04,9,21,1,0)="Contains the check number as issued by the treasury.  This field is updated"
^DD(162.04,9,21,2,0)="after the check is issued, through a server option that records actual"
^DD(162.04,9,21,3,0)="payment information for each Fee payment made."
^DD(162.04,9,"DT")="2940425"
^DD(162.04,10,0)="CANCELLATION DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(162.04,10,3)="The date the check was cancelled by the treasury."
^DD(162.04,10,21,0)="^^3^3^2940324^^"
^DD(162.04,10,21,1,0)="This is the date the treasury cancelled the check.  This field is updated"
^DD(162.04,10,21,2,0)="through a server option that records cancellations of previously recorded"
^DD(162.04,10,21,3,0)="payment data."
^DD(162.04,10,"DT")="2940324"
^DD(162.04,11,0)="REASON CODE^P162.95'^FB(162.95,^0;9^Q"
^DD(162.04,11,3)="Enter the reason the check was cancelled."
^DD(162.04,11,21,0)="^^3^3^2940324^^"
^DD(162.04,11,21,1,0)="This field contains a pointer to the Fee Basis Check Cancellation Reason"
^DD(162.04,11,21,2,0)="file.  It is populated through a server option that updates the payment"
^DD(162.04,11,21,3,0)="record when the treasury cancels a check that was previously payed."
^DD(162.04,11,"DT")="2940324"
^DD(162.04,12,0)="CANCELLATION ACTIVITY^S^R:WILL BE REPLACED;C:WIL BE REISSUED;X:WILL NOT BE REISSUED;^0;10^Q"
^DD(162.04,12,3)="Field will contain the cancellation code if there has been cancellation activity on this payment."
^DD(162.04,12,21,0)="^^7^7^2940324^^"
^DD(162.04,12,21,1,0)="This field is populated when a cancellation is recorded for the payment"
^DD(162.04,12,21,2,0)="referenced.  This field will always remain populated, to indicate that"
^DD(162.04,12,21,3,0)="there was cancellation activity on this payment at one time.  New payments"
^DD(162.04,12,21,4,0)="will replace the cancellation date and reason code fields, but the"
^DD(162.04,12,21,5,0)="cancellation activity flag will not be overwritten.  This flag will allow"
^DD(162.04,12,21,6,0)="the user to know that previous cancellation activity existed, and to"
^DD(162.04,12,21,7,0)="review the cancellation history output for further information."
^DD(162.04,12,"DT")="2940426"
^DD(162.04,13,0)="DISBURSED AMOUNT^NJ9,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.04,13,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.04,13,21,0)="^^1^1^2940420^^"
^DD(162.04,13,21,1,0)="This is the dollar amount paid by the treasury, less any interest paid."
^DD(162.04,13,"DT")="2940421"
^DD(162.04,14,0)="INTEREST AMOUNT^NJ9,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.04,14,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.04,14,21,0)="^^1^1^2940420^^"
^DD(162.04,14,21,1,0)="The interest amount paid on this line item by the treasury."
^DD(162.04,14,"DT")="2940421"
^DD(162.04,"B","CANCELLATION ACTIVITY",12)=""
^DD(162.04,"B","CANCELLATION DATE",10)=""
^DD(162.04,"B","CHECK NUMBER",9)=""
^DD(162.04,"B","DATE FINALIZED",7)=""
^DD(162.04,"B","DATE PAID",8)=""
^DD(162.04,"B","DISBURSED AMOUNT",13)=""
^DD(162.04,"B","INTEREST AMOUNT",14)=""
^DD(162.04,"B","OLD BATCH NUMBER",6)=""
^DD(162.04,"B","PAYMENT TYPE CODE",3.5)=""
^DD(162.04,"B","REASON CODE",11)=""
^DD(162.04,"B","REJECT REASON",5)=""
^DD(162.04,"B","REJECT STATUS",4)=""
^DD(162.04,"B","TRAVEL AMOUNT",2)=""
^DD(162.04,"B","TRAVEL BATCH NUMBER",1)=""
^DD(162.04,"B","TRAVEL OBLIGATION NUMBER",3)=""
^DD(162.04,"B","TRAVEL PAYMENT DATE",.01)=""
^DD(162.04,"GL",0,1,.01)=""
^DD(162.04,"GL",0,2,1)=""
^DD(162.04,"GL",0,3,2)=""
^DD(162.04,"GL",0,4,3)=""
^DD(162.04,"GL",0,5,7)=""
^DD(162.04,"GL",0,6,8)=""
^DD(162.04,"GL",0,7,9)=""
^DD(162.04,"GL",0,8,10)=""
^DD(162.04,"GL",0,9,11)=""
^DD(162.04,"GL",0,10,12)=""
^DD(162.04,"GL",0,11,13)=""
^DD(162.04,"GL",0,12,14)=""
^DD(162.04,"GL",0,13,3.5)=""
^DD(162.04,"GL","FBREJ",1,4)=""
^DD(162.04,"GL","FBREJ",2,5)=""
^DD(162.04,"GL","FBREJ",3,6)=""
^DD(162.04,"IX",.01)=""
^DD(162.04,"IX",1)=""
^DD(162.04,"IX",2)=""
^DD(162.04,"IX",6)=""
^DD(162.04,"IX",7)=""
^DD(162.04,"IX",9)=""
^DD(162.04,"RQ",1)=""
^DD(162.04,"RQ",2)=""
^DD(162.05,0)="DESCRIPTION OF SUSPENSION SUB-FIELD^^.01^1"
^DD(162.05,0,"NM","DESCRIPTION OF SUSPENSION")=""
^DD(162.05,0,"UP")="162.03"
^DD(162.05,.01,0)="DESCRIPTION OF SUSPENSION^W^^0;1^Q"
^DD(162.05,.01,"DT")="2861010"
^DD(162.05,"B","DESCRIPTION OF SUSPENSION",.01)=""
^DD(162.05,"GL",0,1,.01)=""
^DD(162.06,0)="CPT MODIFIER SUB-FIELD^^.01^1"
^DD(162.06,0,"DT")="2990507"
^DD(162.06,0,"IX","B",162.06,.01)=""
^DD(162.06,0,"NM","CPT MODIFIER")=""
^DD(162.06,0,"UP")="162.03"
^DD(162.06,.01,0)="CPT MODIFIER^MP81.3'^DIC(81.3,^0;1^Q"
^DD(162.06,.01,1,0)="^.1"
^DD(162.06,.01,1,1,0)="162.06^B"
^DD(162.06,.01,1,1,1)="S ^FBAAC(DA(4),1,DA(3),1,DA(2),1,DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(162.06,.01,1,1,2)="K ^FBAAC(DA(4),1,DA(3),1,DA(2),1,DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(162.06,.01,1,2,0)="162^AE^MUMPS"
^DD(162.06,.01,1,2,1)="D SMOD^FBAAUTL7"
^DD(162.06,.01,1,2,2)="D KMOD^FBAAUTL7"
^DD(162.06,.01,1,2,"%D",0)="^^23^23^2990615^"
^DD(162.06,.01,1,2,"%D",1,0)="Cross-reference built to concatenate CPT with Modifier(s) for duplicate"
^DD(162.06,.01,1,2,"%D",2,0)="payment checks.  The cross-reference is set by both the Service Provided"
^DD(162.06,.01,1,2,"%D",3,0)="field, as well as the CPT Modifier field."
^DD(162.06,.01,1,2,"%D",4,0)=" "
^DD(162.06,.01,1,2,"%D",5,0)="The cross-reference format is"
^DD(162.06,.01,1,2,"%D",6,0)=" ^FBAAC(""AE"",pat IEN,ven IEN,date,cpt-mod list,serv prov IEN)="""" "
^DD(162.06,.01,1,2,"%D",7,0)="where"
^DD(162.06,.01,1,2,"%D",8,0)="  pat IEN is the PATIENT internal entry number in file 162. (dinum)"
^DD(162.06,.01,1,2,"%D",9,0)="  ven IEN is the VENDOR multiple internal entry number. (dinum)"
^DD(162.06,.01,1,2,"%D",10,0)="  date is the value of the INITIAL TREATMENT DATE (fileman format)"
^DD(162.06,.01,1,2,"%D",11,0)="  cpt-mod list is the value of the SERVICE PROVIDED (internal)"
^DD(162.06,.01,1,2,"%D",12,0)="    followed by a dash (""-"") and a sorted list of values (internal) from"
^DD(162.06,.01,1,2,"%D",13,0)="    the CPT MODIFIER multiple. Examples:"
^DD(162.06,.01,1,2,"%D",14,0)="    12345 for a service provided without any modifiers"
^DD(162.06,.01,1,2,"%D",15,0)="    12345-11,12 for a service provided with two modifiers"
^DD(162.06,.01,1,2,"%D",16,0)="  serv prov IEN is the SERVICE PROVIDED multiple internal entry number."
^DD(162.06,.01,1,2,"%D",17,0)=" "
^DD(162.06,.01,1,2,"%D",18,0)="***If the need arises to re-index the entire cross-reference, it should be"
^DD(162.06,.01,1,2,"%D",19,0)="done by re-indexing the Service Provided field and not the CPT Modifier"
^DD(162.06,.01,1,2,"%D",20,0)="the CPT Modifier field.  As a Service Provided (CPT code) is mandatory for"
^DD(162.06,.01,1,2,"%D",21,0)="each payment entry, but a CPT Modifier is not, to assure a complete"
^DD(162.06,.01,1,2,"%D",22,0)="cross-reference, the re-indexing should be done on the Service Provided"
^DD(162.06,.01,1,2,"%D",23,0)="field."
^DD(162.06,.01,1,2,"DT")="2990601"
^DD(162.06,.01,21,0)="^^3^3^2990702^^^^"
^DD(162.06,.01,21,1,0)="This field is used to better describe the service (CPT) rendered. The"
^DD(162.06,.01,21,2,0)="modifiers (if any) will be combined with the CPT code to determine"
^DD(162.06,.01,21,3,0)="fee schedule amounts and to check for duplicate payments."
^DD(162.06,.01,"DT")="2990601"
^DD(162.06,"B","CPT MODIFIER",.01)=""
^DD(162.06,"GL",0,1,.01)=""
^DD(162.06,"IX",.01)=""
^DD(162.07,0)="ADJUSTMENT SUB-FIELD^^2^3"
^DD(162.07,0,"DT")="3030618"
^DD(162.07,0,"IX","B",162.07,.01)=""
^DD(162.07,0,"NM","ADJUSTMENT")=""
^DD(162.07,0,"UP")="162.03"
^DD(162.07,.01,0)="ADJUSTMENT REASON^M*P161.91'^FB(161.91,^0;1^S DIC(""S"")=""I $P($$AR^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.07,.01,1,0)="^.1"
^DD(162.07,.01,1,1,0)="162.07^B"
^DD(162.07,.01,1,1,1)="S ^FBAAC(DA(4),1,DA(3),1,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(162.07,.01,1,1,2)="K ^FBAAC(DA(4),1,DA(3),1,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(162.07,.01,3)="Select a HIPAA Adjustment (suspense) Reason Code."
^DD(162.07,.01,12)="Only adjustment reasons that are applicable for Fee use can be selected."
^DD(162.07,.01,12.1)="S DIC(""S"")=""I $P($$AR^FBUTL1(Y),U,4)=1"""
^DD(162.07,.01,21,0)="^.001^2^2^3030617^^"
^DD(162.07,.01,21,1,0)="Adjustment reason codes explain why the amount paid differs from the "
^DD(162.07,.01,21,2,0)="amount claimed."
^DD(162.07,.01,"DT")="3030618"
^DD(162.07,1,0)="ADJUSTMENT GROUP^*P161.92'^FB(161.92,^0;2^S DIC(""S"")=""I $P($$AG^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.07,1,3)="Select a HIPAA Adjustment Group Code."
^DD(162.07,1,12)="Only adjustment groups that are applicable for Fee use can be selected."
^DD(162.07,1,12.1)="S DIC(""S"")=""I $P($$AG^FBUTL1(Y),U,4)=1"""
^DD(162.07,1,21,0)="^^2^2^3030617^"
^DD(162.07,1,21,1,0)="The Adjustment Group Code pertains to the previously entered adjustment "
^DD(162.07,1,21,2,0)="reason code."
^DD(162.07,1,"DT")="3030618"
^DD(162.07,2,0)="ADJUSTMENT AMOUNT^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<.01) X"
^DD(162.07,2,3)="Type a Dollar Amount between .01 and 999999, 2 Decimal Digits"
^DD(162.07,2,21,0)="^^2^2^3030617^"
^DD(162.07,2,21,1,0)="Enter the dollar amount that is not being paid for this charge per the "
^DD(162.07,2,21,2,0)="adjustment reason."
^DD(162.07,2,"DT")="3030617"
^DD(162.07,"B","ADJUSTMENT AMOUNT",2)=""
^DD(162.07,"B","ADJUSTMENT GROUP",1)=""
^DD(162.07,"B","ADJUSTMENT REASON",.01)=""
^DD(162.07,"GL",0,1,.01)=""
^DD(162.07,"GL",0,2,1)=""
^DD(162.07,"GL",0,3,2)=""
^DD(162.07,"IX",.01)=""
^DD(162.08,0)="REMITTANCE REMARK SUB-FIELD^^.01^1"
^DD(162.08,0,"DT")="3030618"
^DD(162.08,0,"IX","B",162.08,.01)=""
^DD(162.08,0,"NM","REMITTANCE REMARK")=""
^DD(162.08,0,"UP")="162.03"
^DD(162.08,.01,0)="REMITTANCE REMARK^M*P161.93'^FB(161.93,^0;1^S DIC(""S"")=""I $P($$RR^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.08,.01,1,0)="^.1"
^DD(162.08,.01,1,1,0)="162.08^B"
^DD(162.08,.01,1,1,1)="S ^FBAAC(DA(4),1,DA(3),1,DA(2),1,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(162.08,.01,1,1,2)="K ^FBAAC(DA(4),1,DA(3),1,DA(2),1,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(162.08,.01,3)="Select a HIPAA Remittance Remark Code."
^DD(162.08,.01,12)="Only remittance remarks that are applicable for Fee use can be selected."
^DD(162.08,.01,12.1)="S DIC(""S"")=""I $P($$RR^FBUTL1(Y),U,4)=1"""
^DD(162.08,.01,21,0)="^^2^2^3030617^"
^DD(162.08,.01,21,1,0)="Select a remittance remark code to provide non-financial information "
^DD(162.08,.01,21,2,0)="critical to understanding the adjudication of the claim."
^DD(162.08,.01,"DT")="3030618"
^DD(162.08,"B","REMITTANCE REMARK",.01)=""
^DD(162.08,"GL",0,1,.01)=""
^DD(162.08,"IX",.01)=""
^DD(162.099,0)="DATE OF PURGE SUB-FIELD^^3^4"
^DD(162.099,0,"NM","DATE OF PURGE")=""
^DD(162.099,0,"UP")="162"
^DD(162.099,.01,0)="PURGE DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(162.099,.01,21,0)="^^3^3^2930514^^^"
^DD(162.099,.01,21,1,0)="Date that the purge routine was run which resulted in the purging of"
^DD(162.099,.01,21,2,0)="payment data for this patient. This data will exist ONLY IF data was "
^DD(162.099,.01,21,3,0)="purged for the patient for the specific purge run."
^DD(162.099,.01,"DT")="2920715"
^DD(162.099,1,0)="OPT MEDICAL DATA PURGED^S^Y:YES;^0;2^Q"
^DD(162.099,1,21,0)="^^2^2^2930514^"
^DD(162.099,1,21,1,0)="This field will be populated ONLY if the purge has been run for Outpatient"
^DD(162.099,1,21,2,0)="Medical data for this patient."
^DD(162.099,1,"DT")="2880321"
^DD(162.099,2,0)="PHARMACY DATA PURGED^S^Y:YES;^0;3^Q"
^DD(162.099,2,21,0)="^^2^2^2930514^"
^DD(162.099,2,21,1,0)="This field will be populated ONLY if the purge has been run for Pharmacy"
^DD(162.099,2,21,2,0)="data for this patient."
^DD(162.099,2,"DT")="2880321"
^DD(162.099,3,0)="TRAVEL DATA PURGED^S^Y:YES;^0;4^Q"
^DD(162.099,3,21,0)="^^2^2^2930514^"
^DD(162.099,3,21,1,0)="This field will be populated ONLY if the purge has been run for Travel"
^DD(162.099,3,21,2,0)="data for this patient."
^DD(162.099,3,"DT")="2880321"
^DD(162.099,"B","OPT MEDICAL DATA PURGED",1)=""
^DD(162.099,"B","PHARMACY DATA PURGED",2)=""
^DD(162.099,"B","PURGE DATE",.01)=""
^DD(162.099,"B","TRAVEL DATA PURGED",3)=""
^DD(162.099,"GL",0,1,.01)=""
^DD(162.099,"GL",0,2,1)=""
^DD(162.099,"GL",0,3,2)=""
^DD(162.099,"GL",0,4,3)=""
^DD(162.1,0)="FIELD^^13^16"
^DD(162.1,0,"DT")="2940926"
^DD(162.1,0,"IX","AC",162.1,5)=""
^DD(162.1,0,"IX","ACK",162.11,30)=""
^DD(162.1,0,"IX","AD",162.11,4)=""
^DD(162.1,0,"IX","AE",162.11,13)=""
^DD(162.1,0,"IX","AF",162.11,19)=""
^DD(162.1,0,"IX","AH",162.11,21)=""
^DD(162.1,0,"IX","AN",162.1,3)=""
^DD(162.1,0,"IX","AO",162.11,26)=""
^DD(162.1,0,"IX","B",162.1,.01)=""
^DD(162.1,0,"NM","FEE BASIS PHARMACY INVOICE")=""
^DD(162.1,0,"VR")="3.5"
^DD(162.1,0,"VRPK")="FB"
^DD(162.1,.01,0)="NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N)!('$$CHKBI^FBAAUTL4(X)) X S:$D(X) DINUM=X"
^DD(162.1,.01,1,0)="^.1"
^DD(162.1,.01,1,1,0)="162.1^B"
^DD(162.1,.01,1,1,1)="S ^FBAA(162.1,""B"",$E(X,1,30),DA)="""""
^DD(162.1,.01,1,1,2)="K ^FBAA(162.1,""B"",$E(X,1,30),DA)"
^DD(162.1,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(162.1,.01,21,0)="^^2^2^2880301^"
^DD(162.1,.01,21,1,0)="This is an autogenerated number by the FEE system used to enter"
^DD(162.1,.01,21,2,0)="payments for a provider."
^DD(162.1,.01,"DT")="2940722"
^DD(162.1,1,0)="DATE CORRECT INVOICE RECV'D^RDX^^0;2^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(162.1,1,21,0)="^^2^2^2930519^^"
^DD(162.1,1,21,1,0)="This is the date FEE service receives the correct invoice"
^DD(162.1,1,21,2,0)="from the pharmacy provider."
^DD(162.1,1,"DT")="2901104"
^DD(162.1,1.5,0)="DATE INVOICE ENTERED^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.1,1.5,21,0)="^^2^2^2880301^"
^DD(162.1,1.5,21,1,0)="This is the date the data entry clerk begins to enter in"
^DD(162.1,1.5,21,2,0)="the invoice from the pharmacy provider."
^DD(162.1,1.5,"DT")="2860129"
^DD(162.1,2,0)="DATA ENTRY CLERK^RP200'^VA(200,^0;3^Q"
^DD(162.1,2,21,0)="^^2^2^2880301^"
^DD(162.1,2,21,1,0)="This is the Fee employee who enters the invoice into DHCP"
^DD(162.1,2,21,2,0)="from the pharmacy provider."
^DD(162.1,2,"DT")="2900405"
^DD(162.1,3,0)="VENDOR^RP161.2^FBAAV(^0;4^Q"
^DD(162.1,3,1,0)="^.1"
^DD(162.1,3,1,1,0)="162.1^AN"
^DD(162.1,3,1,1,1)="S ^FBAA(162.1,""AN"",$E(X,1,30),DA)="""""
^DD(162.1,3,1,1,2)="K ^FBAA(162.1,""AN"",$E(X,1,30),DA)"
^DD(162.1,3,1,1,"%D",0)="^^2^2^2930622^^"
^DD(162.1,3,1,1,"%D",1,0)="Used to sort by vendor."
^DD(162.1,3,1,1,"%D",2,0)=" "
^DD(162.1,3,1,1,"DT")="2920901"
^DD(162.1,3,21,0)="^^2^2^2880301^"
^DD(162.1,3,21,1,0)="This is the name of the pharmacy provider whose invoice"
^DD(162.1,3,21,2,0)="is being entered for payment."
^DD(162.1,3,"DT")="2920901"
^DD(162.1,3.1,0)="CHAIN STORE^CJ4^^ ; ^X ^DD(162.1,3.1,9.2) S Y(162.1,3.1,101)=$S($D(^FBAAV(D0,0)):^(0),1:"""") S X=$P(Y(162.1,3.1,101),U,10) S D0=Y(162.1,3.1,80)"
^DD(162.1,3.1,9)="^"
^DD(162.1,3.1,9.01)="161.2^8;162.1^3"
^DD(162.1,3.1,9.1)="VENDOR:CHAIN"
^DD(162.1,3.1,9.2)="S Y(162.1,3.1,80)=$S($D(D0):D0,1:""""),Y(162.1,3.1,1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:""""),D0=$P(Y(162.1,3.1,1),U,4) S:'$D(^FBAAV(+D0,0)) D0=-1"
^DD(162.1,3.1,21,0)="^^2^2^2940926^^"
^DD(162.1,3.1,21,1,0)="This is a four digit number that is assigned by chain stores    "
^DD(162.1,3.1,21,2,0)="to differentiate one store in the chain from another."
^DD(162.1,4,0)="PRESCRIPTION NUMBER^162.11^^RX;0"
^DD(162.1,4,21,0)="^^2^2^2941128^"
^DD(162.1,4,21,1,0)="This multiple allows the user to enter all prescriptions included"
^DD(162.1,4,21,2,0)="on a pharmacy invoice."
^DD(162.1,5,0)="INVOICE STATUS^RS^1:PENDING PHARMACY DETERMINATION;2:PENDING MAS COMPLETION;3:PENDING PAYMENT PROCESS;4:COMPLETED;^0;5^Q"
^DD(162.1,5,1,0)="^.1"
^DD(162.1,5,1,1,0)="162.1^AC"
^DD(162.1,5,1,1,1)="S ^FBAA(162.1,""AC"",$E(X,1,30),DA)="""""
^DD(162.1,5,1,1,2)="K ^FBAA(162.1,""AC"",$E(X,1,30),DA)"
^DD(162.1,5,21,0)="^^2^2^2880301^"
^DD(162.1,5,21,1,0)="This field shows the current status of the invoice in the"
^DD(162.1,5,21,2,0)="payment process."
^DD(162.1,5,"DT")="2860331"
^DD(162.1,6,0)="TOTAL AMOUNT CLAIMED^NJ9,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999.99)!(X<.01) X"
^DD(162.1,6,3)="TYPE A NUMBER BETWEEN .01 AND 999999.99"
^DD(162.1,6,5,1,0)="162.11^3^1"
^DD(162.1,6,21,0)="^^2^2^2880301^^"
^DD(162.1,6,21,1,0)="This is the total dollar amount for each of the line"
^DD(162.1,6,21,2,0)="items in the invoice claimed by the pharmacy provider."
^DD(162.1,7,0)="TOTAL AMOUNT PAID^NJ9,2X^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999.99)!(X<0) X"
^DD(162.1,7,3)="TYPE A NUMBER BETWEEN .01 AND 999999.99"
^DD(162.1,7,5,1,0)="162.11^6.5^1"
^DD(162.1,7,21,0)="^^2^2^2880301^"
^DD(162.1,7,21,1,0)="This is the total dollar amount for each of the line"
^DD(162.1,7,21,2,0)="items in the invoice paid to the pharmacy provider."
^DD(162.1,7,"DT")="2900709"
^DD(162.1,8,0)="TOTAL LINE COUNT^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(162.1,8,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(162.1,8,5,1,0)="162.11^.01^2"
^DD(162.1,8,21,0)="^^2^2^2880301^"
^DD(162.1,8,21,1,0)="This is the total number of line items contained"
^DD(162.1,8,21,2,0)="in the invoice."
^DD(162.1,8,"DT")="2860129"
^DD(162.1,9,0)="GENERIC DRUG NAME STATUS^S^P:PENDING;^0;10^Q"
^DD(162.1,9,21,0)="^^3^3^2880617^^^^"
^DD(162.1,9,21,1,0)="This field tells you if pharmacy service has not made"
^DD(162.1,9,21,2,0)="a correlation between the drug entered by the FEE employee"
^DD(162.1,9,21,3,0)="and the Generic drug in the VA drug file."
^DD(162.1,9,"DT")="2861230"
^DD(162.1,10,0)="BATCH ASSIGNED^*P161.7'^FBAA(161.7,^0;11^S DIC(""S"")=""I $P(^(0),U,3)=""""B5"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.1,10,12)="Allows selection of only 'Pharmacy' batch types."
^DD(162.1,10,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""B5"""""""
^DD(162.1,10,21,0)="^^2^2^2880301^"
^DD(162.1,10,21,1,0)="This is the batch number assigned by the FEE employee"
^DD(162.1,10,21,2,0)="to this invoice for payment."
^DD(162.1,10,"DT")="2870325"
^DD(162.1,11,0)="PAID TO DATE^NJ8,2^^1;E1,245^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(162.1,11,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(162.1,11,21,0)="^^3^3^2941128^"
^DD(162.1,11,21,1,0)="This field is populated when payment information is passed back"
^DD(162.1,11,21,2,0)="to DHCP from the Financial Management System in Austin."
^DD(162.1,11,21,3,0)="It is the date the check is issued."
^DD(162.1,11,"DT")="2881103"
^DD(162.1,12,0)="VENDOR INVOICE DATE^RDX^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) I X>$P(^FBAA(162.1,DA,0),""^"",2) W !,*7,""Vendor Invoice Date cannot be later than the Date Correct Invoice Received"" K X"
^DD(162.1,12,3)="Enter the date the vendor issued the invoice."
^DD(162.1,12,21,0)="^^1^1^2940316^^"
^DD(162.1,12,21,1,0)="This is the date that the vendor issued the invoice."
^DD(162.1,12,"DT")="2940509"
^DD(162.1,13,0)="FPPS CLAIM ID^F^^0;13^K:$L(X)>32!($L(X)<1)!'(X?1.32N) X"
^DD(162.1,13,3)="Enter a non-zero number from 1 to 32 digits long, 0 decimal digits."
^DD(162.1,13,21,0)="^.001^2^2^3030617^^^"
^DD(162.1,13,21,1,0)="Enter the entire FPPS Claim ID as shown on the invoice document.  (1-32 "
^DD(162.1,13,21,2,0)="character text ID created by FPPS system)."
^DD(162.1,13,"DT")="3030618"
^DD(162.1,"B","BATCH ASSIGNED",10)=""
^DD(162.1,"B","CHAIN STORE",3.1)=""
^DD(162.1,"B","DATA ENTRY CLERK",2)=""
^DD(162.1,"B","DATE CORRECT INVOICE RECV'D",1)=""
^DD(162.1,"B","DATE INVOICE ENTERED",1.5)=""
^DD(162.1,"B","FPPS CLAIM ID",13)=""
^DD(162.1,"B","GENERIC DRUG NAME STATUS",9)=""
^DD(162.1,"B","INVOICE STATUS",5)=""
^DD(162.1,"B","NUMBER",.01)=""
^DD(162.1,"B","PAID TO DATE",11)=""
^DD(162.1,"B","PRESCRIPTION NUMBER",4)=""
^DD(162.1,"B","TOTAL AMOUNT CLAIMED",6)=""
^DD(162.1,"B","TOTAL AMOUNT PAID",7)=""
^DD(162.1,"B","TOTAL LINE COUNT",8)=""
^DD(162.1,"B","VENDOR",3)=""
^DD(162.1,"B","VENDOR INVOICE DATE",12)=""
^DD(162.1,"GL",0,1,.01)=""
^DD(162.1,"GL",0,2,1)=""
^DD(162.1,"GL",0,3,2)=""
^DD(162.1,"GL",0,4,3)=""
^DD(162.1,"GL",0,5,5)=""
^DD(162.1,"GL",0,6,6)=""
^DD(162.1,"GL",0,7,7)=""
^DD(162.1,"GL",0,8,1.5)=""
^DD(162.1,"GL",0,9,8)=""
^DD(162.1,"GL",0,10,9)=""
^DD(162.1,"GL",0,11,10)=""
^DD(162.1,"GL",0,12,12)=""
^DD(162.1,"GL",0,13,13)=""
^DD(162.1,"GL",1,"E1,245",11)=""
^DD(162.1,"GL","RX",0,4)=""
^DD(162.1,"IX",.01)=""
^DD(162.1,"IX",3)=""
^DD(162.1,"IX",5)=""
^DD(162.1,"RQ",.01)=""
^DD(162.1,"RQ",1)=""
^DD(162.1,"RQ",2)=""
^DD(162.1,"RQ",3)=""
^DD(162.1,"RQ",5)=""
^DD(162.1,"RQ",12)=""
^DD(162.1,"SB",162.11,4)=""
^DD(162.11,0)="PRESCRIPTION NUMBER SUB-FIELD^NL^38^45"
^DD(162.11,0,"DT")="2940926"
^DD(162.11,0,"IX","AB",162.11,.01)=""
^DD(162.11,0,"IX","AC",162.11,8)=""
^DD(162.11,0,"IX","AI",162.11,15)=""
^DD(162.11,0,"IX","AL",162.11,2)=""
^DD(162.11,0,"IX","AM",162.11,.01)=""
^DD(162.11,0,"IX","B",162.11,.01)=""
^DD(162.11,0,"IX","C",162.11,4)=""
^DD(162.11,0,"NM","PRESCRIPTION NUMBER")=""
^DD(162.11,0,"UP")="162.1"
^DD(162.11,.01,0)="PRESCRIPTION NUMBER^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!($F(X,"" ""))!(X?1P.E) X"
^DD(162.11,.01,1,0)="^.1"
^DD(162.11,.01,1,1,0)="162.11^AB"
^DD(162.11,.01,1,1,1)="S ^FBAA(162.1,DA(1),""RX"",""AB"",$E(X,1,30),DA)="""""
^DD(162.11,.01,1,1,2)="K ^FBAA(162.1,DA(1),""RX"",""AB"",$E(X,1,30),DA)"
^DD(162.11,.01,1,2,0)="^^TRIGGER^162.1^8"
^DD(162.11,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DIU+1 X ^DD(162.11,.01,1,2,1.4)"
^DD(162.11,.01,1,2,1.4)="S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=162.1,DIG=8 D ^DICR"
^DD(162.11,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=DIU-1 S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=162.1,DIG=8 D ^DICR"
^DD(162.11,.01,1,2,"%D",0)="^^1^1^3001017^"
^DD(162.11,.01,1,2,"%D",1,0)="Trigger to maintain the total line count for the invoice."
^DD(162.11,.01,1,2,"CREATE CONDITION")="I '$D(FBAAOUT)"
^DD(162.11,.01,1,2,"CREATE VALUE")="TOTAL LINE COUNT+1"
^DD(162.11,.01,1,2,"DELETE VALUE")="TOTAL LINE COUNT-1"
^DD(162.11,.01,1,2,"DIC")=""
^DD(162.11,.01,1,2,"DT")="3001017"
^DD(162.11,.01,1,2,"FIELD")="TOTAL LINE COUNT"
^DD(162.11,.01,1,3,0)="162.11^B"
^DD(162.11,.01,1,3,1)="S ^FBAA(162.1,DA(1),""RX"",""B"",$E(X,1,30),DA)="""""
^DD(162.11,.01,1,3,2)="K ^FBAA(162.1,DA(1),""RX"",""B"",$E(X,1,30),DA)"
^DD(162.11,.01,1,4,0)="162.11^AM^MUMPS"
^DD(162.11,.01,1,4,1)="I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"""",$D(^FBAA(162.1,DA(1),""RX"",DA,0)),$P(^(0),U,3)]"""" S ^FBAA(162.1,""AL"",$P(^FBAA(162.1,DA(1),0),U,4),$E(X,1,30),$P(^FBAA(162.1,DA(1),""RX"",DA,0),U,3),DA(1),DA)="""""
^DD(162.11,.01,1,4,2)="I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"""",$D(^FBAA(162.1,DA(1),""RX"",DA,0)),$P(^(0),U,3)]"""" K ^FBAA(162.1,""AL"",$P(^FBAA(162.1,DA(1),0),U,4),$E(X,1,30),$P(^FBAA(162.1,DA(1),""RX"",DA,0),U,3),DA(1),DA)"
^DD(162.11,.01,1,4,"%D",0)="^^2^2^2930514^"
^DD(162.11,.01,1,4,"%D",1,0)="Updates the AL X-Ref on field 2 if there is a change to the prescription"
^DD(162.11,.01,1,4,"%D",2,0)="number."
^DD(162.11,.01,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH AND NOT CONTAIN BLANKS OR LEADING PUNCTUATION."
^DD(162.11,.01,21,0)="^^2^2^2901107^^^"
^DD(162.11,.01,21,1,0)="This is a reference number assigned by a pharmacy provider"
^DD(162.11,.01,21,2,0)="for a prescription."
^DD(162.11,.01,"DT")="3001017"
^DD(162.11,1,0)="DRUG NAME^RF^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(162.11,1,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(162.11,1,21,0)="^^2^2^2880301^"
^DD(162.11,1,21,1,0)="This is the name of the medication that was dispensed to the"
^DD(162.11,1,21,2,0)="patient by the FEE provider."
^DD(162.11,1.4,0)="MANUFACTURER^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(162.11,1.4,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(162.11,1.4,21,0)="^^2^2^2880301^"
^DD(162.11,1.4,21,1,0)="This is the name of the company whose drug was"
^DD(162.11,1.4,21,2,0)="dispensed to the patient."
^DD(162.11,1.4,"DT")="2870505"
^DD(162.11,1.5,0)="STRENGTH^F^^0;12^K:$L(X)>20!($L(X)<2) X"
^DD(162.11,1.5,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(162.11,1.5,21,0)="^^2^2^2880301^"
^DD(162.11,1.5,21,1,0)="This field contains the labeled strength of the medication"
^DD(162.11,1.5,21,2,0)="dispensed to the patient."
^DD(162.11,1.5,"DT")="2870225"
^DD(162.11,1.6,0)="QUANTITY^RF^^0;13^K:$L(X)>15!($L(X)<1) X"
^DD(162.11,1.6,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(162.11,1.6,21,0)="^^1^1^2880301^"
^DD(162.11,1.6,21,1,0)="This is the total number of units dispensed to the patient."
^DD(162.11,1.6,"DT")="2870225"
^DD(162.11,2,0)="DATE PRESCRIPTION FILLED^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.11,2,1,0)="^.1"
^DD(162.11,2,1,1,0)="162.11^AL^MUMPS"
^DD(162.11,2,1,1,1)="I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"""" S ^FBAA(162.1,""AL"",$P(^FBAA(162.1,DA(1),0),U,4),$P(^FBAA(162.1,DA(1),""RX"",DA,0),U,1),$E(X,1,30),DA(1),DA)="""""
^DD(162.11,2,1,1,2)="I $D(^FBAA(162.1,DA(1),0)),$P(^(0),U,4)]"""" K ^FBAA(162.1,""AL"",$P(^FBAA(162.1,DA(1),0),U,4),$P(^FBAA(162.1,DA(1),""RX"",DA,0),U,1),$E(X,1,30),DA(1),DA)"
^DD(162.11,2,1,1,"%D",0)="^^1^1^2930514^"
^DD(162.11,2,1,1,"%D",1,0)="X-Referenced to identify the Prescription number and date RX filled."
^DD(162.11,2,21,0)="^^2^2^2880301^"
^DD(162.11,2,21,1,0)="This is the date the provider has filled the prescription"
^DD(162.11,2,21,2,0)="for dispensing to the patient."
^DD(162.11,2,"DT")="3001024"
^DD(162.11,3,0)="AMOUNT CLAIMED^RNJ7,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<.01) X"
^DD(162.11,3,1,0)="^.1"
^DD(162.11,3,1,1,0)="^^TRIGGER^162.1^6"
^DD(162.11,3,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(162.11,3,1,1,1.4)"
^DD(162.11,3,1,1,1.4)="S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=162.1,DIG=6 D ^DICR"
^DD(162.11,3,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(162.11,3,1,1,2.4)"
^DD(162.11,3,1,1,2.4)="S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=162.1,DIG=6 D ^DICR"
^DD(162.11,3,1,1,"%D",0)="^^1^1^3001017^"
^DD(162.11,3,1,1,"%D",1,0)="Trigger to maintain the total amount claimed for the invoice."
^DD(162.11,3,1,1,"CREATE CONDITION")="I '$D(FBAAOUT)"
^DD(162.11,3,1,1,"CREATE VALUE")="TOTAL AMOUNT CLAIMED+AMOUNT CLAIMED"
^DD(162.11,3,1,1,"DELETE CONDITION")="I '$D(FBAAOUT)"
^DD(162.11,3,1,1,"DELETE VALUE")="TOTAL AMOUNT CLAIMED-OLD AMOUNT CLAIMED"
^DD(162.11,3,1,1,"DIC")=""
^DD(162.11,3,1,1,"DT")="3001017"
^DD(162.11,3,1,1,"FIELD")="TOTAL AMOUNT CLAIMED"
^DD(162.11,3,3)="Type a Dollar Amount between .01 and 9999.99, 2 Decimal Digits"
^DD(162.11,3,21,0)="^^2^2^2880301^^"
^DD(162.11,3,21,1,0)="This is the dollar amount claimed by the FEE provider for"
^DD(162.11,3,21,2,0)="the prescription supplied to the patient."
^DD(162.11,3,"DT")="3001017"
^DD(162.11,4,0)="PATIENT^RP161'^FBAAA(^0;5^Q"
^DD(162.11,4,1,0)="^.1^^-1"
^DD(162.11,4,1,1,0)="162.11^C"
^DD(162.11,4,1,1,1)="S ^FBAA(162.1,DA(1),""RX"",""C"",$E(X,1,30),DA)="""""
^DD(162.11,4,1,1,2)="K ^FBAA(162.1,DA(1),""RX"",""C"",$E(X,1,30),DA)"
^DD(162.11,4,1,2,0)="162.1^AD^MUMPS"
^DD(162.11,4,1,2,1)="S ^FBAA(162.1,""AD"",$E(X,1,30),9999999-$P(^FBAA(162.1,DA(1),""RX"",DA,0),U,3),DA(1),DA)="""""
^DD(162.11,4,1,2,2)="K ^FBAA(162.1,""AD"",$E(X,1,30),9999999-$P(^FBAA(162.1,DA(1),""RX"",DA,0),U,3),DA(1),DA)"
^DD(162.11,4,21,0)="^^2^2^2880301^"
^DD(162.11,4,21,1,0)="This is the name of the patient whose prescription/s"
^DD(162.11,4,21,2,0)="are being submitted by the FEE provider for payment."
^DD(162.11,4,"DT")="3001024"
^DD(162.11,5,0)="RED BOOK COST^NJ7,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(162.11,5,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(162.11,5,21,0)="^^2^2^2880301^"
^DD(162.11,5,21,1,0)="This is the cost of the generic drug dispensed"
^DD(162.11,5,21,2,0)="to the patient as listed in the 'RED BOOK'."
^DD(162.11,5,"DT")="2930831"
^DD(162.11,6,0)="AMOUNT SUSPENDED^NJ7,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(162.11,6,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(162.11,6,21,0)="^^2^2^2880301^"
^DD(162.11,6,21,1,0)="This is the difference between the amount claimed by the"
^DD(162.11,6,21,2,0)="FEE provider and the amount paid by the VA."
^DD(162.11,6,"DT")="2880216"
^DD(162.11,6.5,0)="AMOUNT PAID^NJ7,2^^0;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(162.11,6.5,1,0)="^.1"
^DD(162.11,6.5,1,1,0)="^^TRIGGER^162.1^7"
^DD(162.11,6.5,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(162.11,6.5,1,1,1.4)"
^DD(162.11,6.5,1,1,1.4)="S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=162.1,DIG=7 D ^DICR"
^DD(162.11,6.5,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I '$D(FBAAOUT) I X S X=DIV S Y(1)=$S($D(^FBAA(162.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(162.11,6.5,1,1,2.4)"
^DD(162.11,6.5,1,1,2.4)="S DIH=$G(^FBAA(162.1,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=162.1,DIG=7 D ^DICR"
^DD(162.11,6.5,1,1,"%D",0)="^^1^1^3001017^"
^DD(162.11,6.5,1,1,"%D",1,0)="Trigger to maintain the total amount paid for the invoice."
^DD(162.11,6.5,1,1,"CREATE CONDITION")="I '$D(FBAAOUT)"
^DD(162.11,6.5,1,1,"CREATE VALUE")="TOTAL AMOUNT PAID+AMOUNT PAID"
^DD(162.11,6.5,1,1,"DELETE CONDITION")="I '$D(FBAAOUT)"
^DD(162.11,6.5,1,1,"DELETE VALUE")="TOTAL AMOUNT PAID-OLD AMOUNT PAID"
^DD(162.11,6.5,1,1,"DIC")=""
^DD(162.11,6.5,1,1,"DT")="3001017"
^DD(162.11,6.5,1,1,"FIELD")="TOTAL AMOUNT PAID"
^DD(162.11,6.5,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(162.11,6.5,21,0)="^^3^3^2930514^^"
^DD(162.11,6.5,21,1,0)="This field is either the amount claimed by the FEE provider"
^DD(162.11,6.5,21,2,0)="or the sum of RED BOOK cost and the professional dispensing fee"
^DD(162.11,6.5,21,3,0)="- whichever is less."
^DD(162.11,6.5,"DT")="3001017"
^DD(162.11,7,0)="SUSPEND CODE^P161.27'^FBAA(161.27,^0;8^Q"
^DD(162.11,7,1,0)="^.1^^0"
^DD(162.11,7,3)=""
^DD(162.11,7,21,0)="^^4^4^2880301^"
^DD(162.11,7,21,1,0)="This is the explanation why the amount claimed by the FEE"
^DD(162.11,7,21,2,0)="provider is not the same as the amount paid.These codes"
^DD(162.11,7,21,3,0)="are listed in M-1,Part I,Chapter 18,Appendix A for"
^DD(162.11,7,21,4,0)="reference."
^DD(162.11,7,"DT")="3001024"
^DD(162.11,8,0)="LINE ITEM STATUS^RS^1:PENDING PHARMACY DETERMINATION;2:PENDING MAS COMPLETION;3:PENDING PAYMENT PROCESS;4:COMPLETED;0:COMPLETED, WILL NOT PAY;^0;9^Q"
^DD(162.11,8,1,0)="^.1"
^DD(162.11,8,1,1,0)="162.11^AC"
^DD(162.11,8,1,1,1)="S ^FBAA(162.1,DA(1),""RX"",""AC"",$E(X,1,30),DA)="""""
^DD(162.11,8,1,1,2)="K ^FBAA(162.1,DA(1),""RX"",""AC"",$E(X,1,30),DA)"
^DD(162.11,8,21,0)="^^2^2^2880301^"
^DD(162.11,8,21,1,0)="This tells the current status of review of this line item"
^DD(162.11,8,21,2,0)="within the invoice."
^DD(162.11,8,"DT")="2860515"
^DD(162.11,8.5,0)="SUBSTITUTE GENERIC DRUG^S^Y:YES;N:NO;^0;21^Q"
^DD(162.11,8.5,21,0)="^^2^2^2901105^^"
^DD(162.11,8.5,21,1,0)="This field shows if a generic drug was or could have been"
^DD(162.11,8.5,21,2,0)="dispensed to the patient."
^DD(162.11,8.5,"DT")="3050420"
^DD(162.11,9,0)="GENERIC DRUG^RP50'^PSDRUG(^0;10^Q"
^DD(162.11,9,3)=""
^DD(162.11,9,21,0)="^^2^2^2880617^^^"
^DD(162.11,9,21,1,0)="This is the name of the generic equivalent found in the"
^DD(162.11,9,21,2,0)="VA drug file that was dispensed to the patient."
^DD(162.11,9,"DT")="2861209"
^DD(162.11,10,0)="PHARMACY DETERMINATION^S^1:APPROVED FOR PAYMENT;0:DISAPPROVED FOR PAYMENT;^0;11^Q"
^DD(162.11,10,21,0)="^^4^4^2880617^^^"
^DD(162.11,10,21,1,0)="This is a professional determination by the VA pharmacist"
^DD(162.11,10,21,2,0)="to determine if the medication dispensed was for"
^DD(162.11,10,21,3,0)="an authorized condition and whether or not the drug is on the"
^DD(162.11,10,21,4,0)="'inactive drug list' ."
^DD(162.11,10,"DT")="2860327"
^DD(162.11,11,0)="PHARMACIST^P200'^VA(200,^0;14^Q"
^DD(162.11,11,21,0)="^^2^2^2880301^"
^DD(162.11,11,21,1,0)="This is the name of the VA pharmacist who reviewed"
^DD(162.11,11,21,2,0)="the patient's prescriptions for appropriateness."
^DD(162.11,11,"DT")="2900405"
^DD(162.11,12,0)="DATE OF DETERMINATION^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.11,12,21,0)="^^2^2^2880301^"
^DD(162.11,12,21,1,0)="This is the date the VA pharmacist reviewed the prescriptions"
^DD(162.11,12,21,2,0)="for appropriateness of payment."
^DD(162.11,12,"DT")="2860210"
^DD(162.11,13,0)="BATCH NUMBER^RP161.7'^FBAA(161.7,^0;17^Q"
^DD(162.11,13,1,0)="^.1^^-1"
^DD(162.11,13,1,1,0)="162.1^AE"
^DD(162.11,13,1,1,1)="S ^FBAA(162.1,""AE"",$E(X,1,30),DA(1),DA)="""""
^DD(162.11,13,1,1,2)="K ^FBAA(162.1,""AE"",$E(X,1,30),DA(1),DA)"
^DD(162.11,13,3)=""
^DD(162.11,13,21,0)="^^2^2^2880301^"
^DD(162.11,13,21,1,0)="This is the Batch number associated with this line item"
^DD(162.11,13,21,2,0)="for payment."
^DD(162.11,13,"DT")="3001024"
^DD(162.11,14,0)="OBLIGATION NUMBER^RFX^^0;18^K:$L(X)>6!($L(X)<6) X D:$D(X) CKOB^FBAAUTL1"
^DD(162.11,14,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(162.11,14,21,0)="^^2^2^2880302^"
^DD(162.11,14,21,1,0)="This is the account from which the money is taken to pay"
^DD(162.11,14,21,2,0)="the line item."
^DD(162.11,14,"DT")="2900412"
^DD(162.11,15,0)="DATE CERTIFIED FOR PAYMENT^D^^0;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.11,15,1,0)="^.1^^-1"
^DD(162.11,15,1,2,0)="162.11^AI^MUMPS"
^DD(162.11,15,1,2,1)="I $D(^FBAA(162.1,DA(1),""RX"",DA,0)),$P(^(0),U,17)]"""",$D(^(2)),$P(^(2),U,5)]"""" S ^FBAA(162.1,""AI"",$P(^FBAA(162.1,DA(1),""RX"",DA,2),U,5),9999999-$E(X,1,30),DA(1),DA)="""""
^DD(162.11,15,1,2,2)="I $D(^FBAA(162.1,DA(1),""RX"",DA,0)),$P(^(0),U,17)]"""",$D(^(2)),$P(^(2),U,5) K ^FBAA(162.1,""AI"",$P(^FBAA(162.1,DA(1),""RX"",DA,2),U,5),9999999-$E(X,1,30),DA(1),DA)"
^DD(162.11,15,21,0)="^^2^2^2880302^"
^DD(162.11,15,21,1,0)="This is the date that the line item has been approved,"
^DD(162.11,15,21,2,0)="by FEE, for payment."
^DD(162.11,15,"DT")="3000131"
^DD(162.11,16,0)="PAYMENT TYPE CODE^S^V:VENDOR;R:REIMBURSEMENT;S:STATISTICAL;SR:STAT-REIMBURSEMENT;^0;20^Q"
^DD(162.11,16,21,0)="^^3^3^2940926^^^^"
^DD(162.11,16,21,1,0)="This field represents what type of payment this line item"
^DD(162.11,16,21,2,0)="is. The choices are payment to a Vendor, patient Reimbursement or"
^DD(162.11,16,21,3,0)="paid 'out-of-system' for Statistical and stat reimbursement reporting."
^DD(162.11,16,"DT")="2940926"
^DD(162.11,17,0)="REJECT STATUS^S^P:REJECTED, PENDING;C:REJECTED, COMPLETED;^FBREJ;1^Q"
^DD(162.11,17,1,0)="^.1^^0"
^DD(162.11,17,21,0)="^^2^2^2880617^^^"
^DD(162.11,17,21,1,0)="This field represents the status of the Rejected line item in"
^DD(162.11,17,21,2,0)="the invoice. It would either be Pending or Completed."
^DD(162.11,17,"DT")="2860811"
^DD(162.11,18,0)="REJECT REASON^F^^FBREJ;2^K:$L(X)>40!($L(X)<2) X"
^DD(162.11,18,3)="ANSWER MUST BE 2-40 CHARACTERS IN LENGTH"
^DD(162.11,18,21,0)="^^2^2^2880302^"
^DD(162.11,18,21,1,0)="This is a free text field that allows comment on why Fee"
^DD(162.11,18,21,2,0)="rejected this line item payment."
^DD(162.11,18,"DT")="2860811"
^DD(162.11,19,0)="OLD BATCH NUMBER^P161.7'^FBAA(161.7,^FBREJ;3^Q"
^DD(162.11,19,1,0)="^.1"
^DD(162.11,19,1,1,0)="162.1^AF"
^DD(162.11,19,1,1,1)="S ^FBAA(162.1,""AF"",$E(X,1,30),DA(1),DA)="""""
^DD(162.11,19,1,1,2)="K ^FBAA(162.1,""AF"",$E(X,1,30),DA(1),DA)"
^DD(162.11,19,21,0)="^^2^2^2880302^"
^DD(162.11,19,21,1,0)="When a line item was rejected then assigned to a new batch"
^DD(162.11,19,21,2,0)="this field stores the old batch number it belonged to."
^DD(162.11,19,"DT")="2860811"
^DD(162.11,20,0)="SUSPENSION DESCRIPTION^162.12^^1;0"
^DD(162.11,20,21,0)="^^3^3^2880608^^"
^DD(162.11,20,21,1,0)="This field allows the entry of a description of why the "
^DD(162.11,20,21,2,0)="amount claimed for a prescription is not the same as"
^DD(162.11,20,21,3,0)="the amount paid ."
^DD(162.11,21,0)="GENERIC DRUG ONLY STATUS^S^P:PENDING;^2;1^Q"
^DD(162.11,21,1,0)="^.1"
^DD(162.11,21,1,1,0)="162.1^AH"
^DD(162.11,21,1,1,1)="S ^FBAA(162.1,""AH"",$E(X,1,30),DA(1),DA)="""""
^DD(162.11,21,1,1,2)="K ^FBAA(162.1,""AH"",$E(X,1,30),DA(1),DA)"
^DD(162.11,21,21,0)="^^2^2^2880302^"
^DD(162.11,21,21,1,0)="This field reflects whether or not pharmacy has made the"
^DD(162.11,21,21,2,0)="match with the drug dispensed in the VA Drug File."
^DD(162.11,21,"DT")="2861209"
^DD(162.11,22,0)="PHARMACY REMARKS^F^^0;22^K:$L(X)>30!($L(X)<3) X"
^DD(162.11,22,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(162.11,22,21,0)="^^2^2^2880302^"
^DD(162.11,22,21,1,0)="This allows pharmacy service to enter in remarks on their"
^DD(162.11,22,21,2,0)="decision for payment of the prescription."
^DD(162.11,22,"DT")="2870225"
^DD(162.11,23,0)="VOID PAYMENT^S^V:VOID;^2;3^Q"
^DD(162.11,23,21,0)="^^2^2^2900613^^"
^DD(162.11,23,21,1,0)="This field shows if a Fee supervisor voided this payment"
^DD(162.11,23,21,2,0)="after the invoice had been completed."
^DD(162.11,23,"DT")="2880331"
^DD(162.11,23.5,0)="REASON FOR VOIDED PAYMENT^F^^R;1^K:$L(X)>75!($L(X)<3) X"
^DD(162.11,23.5,3)="Answer must be 3-75 characters in length."
^DD(162.11,23.5,21,0)="^^2^2^2920831^"
^DD(162.11,23.5,21,1,0)="This field is used by the supervisor to enter a reason why a payment"
^DD(162.11,23.5,21,2,0)="had to be voided."
^DD(162.11,23.5,"DT")="2920831"
^DD(162.11,24,0)="SUPERVISOR^P200'^VA(200,^2;4^Q"
^DD(162.11,24,21,0)="^^1^1^2880331^"
^DD(162.11,24,21,1,0)="This field stores the supervisor who voided a payment."
^DD(162.11,24,"DT")="2900405"
^DD(162.11,25,0)="PRIMARY SERVICE FACILITY^P4'^DIC(4,^2;5^Q"
^DD(162.11,25,21,0)="^^1^1^2941128^"
^DD(162.11,25,21,1,0)="The VA Hospital responsible for the veterans care."
^DD(162.11,25,"DT")="2900419"
^DD(162.11,26,0)="ASSOCIATED 7078/583^V^^2;6^Q"
^DD(162.11,26,1,0)="^.1"
^DD(162.11,26,1,1,0)="162.1^AO"
^DD(162.11,26,1,1,1)="S ^FBAA(162.1,""AO"",$E(X,1,30),DA(1),DA)="""""
^DD(162.11,26,1,1,2)="K ^FBAA(162.1,""AO"",$E(X,1,30),DA(1),DA)"
^DD(162.11,26,1,1,"DT")="2930111"
^DD(162.11,26,3)=""
^DD(162.11,26,21,0)="^^1^1^2930514^"
^DD(162.11,26,21,1,0)="This field contains the related 7078 or 583 if an unauthorized claim."
^DD(162.11,26,"DT")="2930111"
^DD(162.11,26,"V",0)="^.12P^2^2"
^DD(162.11,26,"V",1,0)="162.4^Select associated 7078^1^FB7078^n^n"
^DD(162.11,26,"V",2,0)="162.7^Select associated 583^2^FB583^^n"
^DD(162.11,26,"V","B",162.4,1)=""
^DD(162.11,26,"V","B",162.7,2)=""
^DD(162.11,26,"V","M","Select associated 583",2)=""
^DD(162.11,26,"V","M","Select associated 7078",1)=""
^DD(162.11,26,"V","O",1,1)=""
^DD(162.11,26,"V","O",2,2)=""
^DD(162.11,26,"V","P","FB583",2)=""
^DD(162.11,26,"V","P","FB7078",1)=""
^DD(162.11,27,0)="AUTHORIZATION POINTER^NJ7,0^^2;7^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.11,27,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(162.11,27,21,0)="^^4^4^2920603^"
^DD(162.11,27,21,1,0)="This field is set internally to the patient's authorization in the"
^DD(162.11,27,21,2,0)="Fee Basis Patient file. It is used to display only the authorization"
^DD(162.11,27,21,3,0)="associated with the prescription to the pharmacist during their"
^DD(162.11,27,21,4,0)="review."
^DD(162.11,27,"DT")="2920603"
^DD(162.11,28,0)="DATE PAID^D^^2;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(162.11,28,3)="This is the date of the check, as issued by the treasury."
^DD(162.11,28,21,0)="^^4^4^2940316^^"
^DD(162.11,28,21,1,0)="This is the date of the check, as issued by the treasury.  This"
^DD(162.11,28,21,2,0)="information will be passed back to DHCP from the Financial Management"
^DD(162.11,28,21,3,0)="System (FMS) when the check is issued to the vendor.  This field will"
^DD(162.11,28,21,4,0)="use the check date beginning with version 3.5 of Fee Basis."
^DD(162.11,28,"DT")="2940316"
^DD(162.11,29,0)="PROMPT PAY TYPE^S^1:MONEY MANAGED;^2;9^Q"
^DD(162.11,29,3)="Set equal to 1 if payment is subject to interest payments."
^DD(162.11,29,21,0)="^^2^2^2940316^^"
^DD(162.11,29,21,1,0)="Field is set to 1 if the payment is subject to interest payments (prompt"
^DD(162.11,29,21,2,0)="pay).  Otherwise it remains blank."
^DD(162.11,29,"DT")="2940318"
^DD(162.11,30,0)="CHECK NUMBER^F^^2;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.AN) X"
^DD(162.11,30,1,0)="^.1"
^DD(162.11,30,1,1,0)="162.1^ACK^MUMPS"
^DD(162.11,30,1,1,1)="S ^FBAA(162.1,""ACK"",X,DA(1),DA)="""""
^DD(162.11,30,1,1,2)="K ^FBAA(162.1,""ACK"",X,DA(1),DA)"
^DD(162.11,30,1,1,"%D",0)="^^2^2^2940425^^^"
^DD(162.11,30,1,1,"%D",1,0)="This cross-reference is used to find payment line items for a specific"
^DD(162.11,30,1,1,"%D",2,0)="check number."
^DD(162.11,30,1,1,"DT")="2940425"
^DD(162.11,30,3)="Answer must be 1-8 characters in length."
^DD(162.11,30,21,0)="^^3^3^2940316^^"
^DD(162.11,30,21,1,0)="Contains the check number as issued by the treasury.  This field is updated"
^DD(162.11,30,21,2,0)="after the check is issued, through a server option that records actual"
^DD(162.11,30,21,3,0)="payment information for each Fee payment made."
^DD(162.11,30,"DT")="2940425"
^DD(162.11,31,0)="CANCELLATION DATE^D^^2;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(162.11,31,3)="The date the check was cancelled by the treasury."
^DD(162.11,31,21,0)="^^3^3^2940316^^"
^DD(162.11,31,21,1,0)="This is the date the treasury cancelled the check.  This field is updated"
^DD(162.11,31,21,2,0)="through a server option that records cancellations of previously recorded"
^DD(162.11,31,21,3,0)="payment data."
^DD(162.11,31,"DT")="2940316"
^DD(162.11,32,0)="REASON CODE^P162.95'^FB(162.95,^2;12^Q"
^DD(162.11,32,3)="Enter the reason the check was cancelled."
^DD(162.11,32,21,0)="^^3^3^2940316^^"
^DD(162.11,32,21,1,0)="This field contains a pointer to the Fee Basis Check Cancellation Reason"
^DD(162.11,32,21,2,0)="file.  It is populated through a server option that updates the payment"
^DD(162.11,32,21,3,0)="record when the treasury cancels a check that was previously payed."
^DD(162.11,32,"DT")="2940316"
^DD(162.11,33,0)="CANCELLATION ACTIVITY^S^R:WILL BE REPLACED;C:WILL BE REISSUED;X:WILL NOT BE REISSUED;^2;13^Q"
^DD(162.11,33,3)="Field will contain cancellation code if there has been cancellation activity on this payment."
^DD(162.11,33,21,0)="^^7^7^2940316^^"
^DD(162.11,33,21,1,0)="This field is populated when a cancellation is recorded for the payment"
^DD(162.11,33,21,2,0)="referenced.  This field will always remain populated, to indicate that"
^DD(162.11,33,21,3,0)="there was cancellation activity on this payment at one time.  New payments"
^DD(162.11,33,21,4,0)="will replace the cancellation date and reason code fields, but the"
^DD(162.11,33,21,5,0)="cancellation activity flag will not be overwritten.  This flag will allow"
^DD(162.11,33,21,6,0)="the user to know that previous cancellation activity existed, and to"
^DD(162.11,33,21,7,0)="review the cancellation history output for further information."
^DD(162.11,33,"DT")="2940426"
^DD(162.11,34,0)="DISBURSED AMOUNT^NJ9,2^^2;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.11,34,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.11,34,21,0)="^^1^1^2940420^^"
^DD(162.11,34,21,1,0)="This is the dollar amount paid by the treasury, less any interest paid."
^DD(162.11,34,"DT")="2940421"
^DD(162.11,35,0)="INTEREST AMOUNT^NJ9,2^^2;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.11,35,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.11,35,21,0)="^^1^1^2940420^^"
^DD(162.11,35,21,1,0)="The interest amount paid on this line item by the treasury."
^DD(162.11,35,"DT")="2940421"
^DD(162.11,36,0)="FPPS LINE ITEM^F^^3;1^K:$L(X)>40!($L(X)<1) X"
^DD(162.11,36,3)="This response must be a number or a list or range, e.g., 1,3,5 or 2-4,8."
^DD(162.11,36,21,0)="^^8^8^3030617^"
^DD(162.11,36,21,1,0)="Enter the line item sequence number associated with this charge.  Each "
^DD(162.11,36,21,2,0)="charge on the FPPS invoice document will have a line item sequence number "
^DD(162.11,36,21,3,0)="associated with it.  A line item can be entered individually or a group of"
^DD(162.11,36,21,4,0)="charges from multiple lines can be entered.  If all line items in a group"
^DD(162.11,36,21,5,0)="are in numerical sequence, you may enter the first line item sequence"
^DD(162.11,36,21,6,0)="number followed by a hyphen and the last line item sequence number.  If"
^DD(162.11,36,21,7,0)="the grouped charges are not in sequential order, each line item must be"
^DD(162.11,36,21,8,0)="entered individually, followed by a comma."
^DD(162.11,36,"DT")="3030617"
^DD(162.11,37,0)="ADJUSTMENT^162.14P^^4;0"
^DD(162.11,38,0)="REMITTANCE REMARK^162.15P^^5;0"
^DD(162.11,"B","ADJUSTMENT",37)=""
^DD(162.11,"B","AMOUNT CLAIMED",3)=""
^DD(162.11,"B","AMOUNT PAID",6.5)=""
^DD(162.11,"B","AMOUNT SUSPENDED",6)=""
^DD(162.11,"B","ASSOCIATED 7078/583",26)=""
^DD(162.11,"B","AUTHORIZATION POINTER",27)=""
^DD(162.11,"B","BATCH NUMBER",13)=""
^DD(162.11,"B","CANCELLATION ACTIVITY",33)=""
^DD(162.11,"B","CANCELLATION DATE",31)=""
^DD(162.11,"B","CHECK NUMBER",30)=""
^DD(162.11,"B","DATE CERTIFIED FOR PAYMENT",15)=""
^DD(162.11,"B","DATE OF DETERMINATION",12)=""
^DD(162.11,"B","DATE PAID",28)=""
^DD(162.11,"B","DATE PRESCRIPTION FILLED",2)=""
^DD(162.11,"B","DISBURSED AMOUNT",34)=""
^DD(162.11,"B","DRUG NAME",1)=""
^DD(162.11,"B","FPPS LINE ITEM",36)=""
^DD(162.11,"B","GENERIC DRUG",9)=""
^DD(162.11,"B","GENERIC DRUG ONLY STATUS",21)=""
^DD(162.11,"B","INTEREST AMOUNT",35)=""
^DD(162.11,"B","LINE ITEM STATUS",8)=""
^DD(162.11,"B","MANUFACTURER",1.4)=""
^DD(162.11,"B","OBLIGATION NUMBER",14)=""
^DD(162.11,"B","OLD BATCH NUMBER",19)=""
^DD(162.11,"B","PATIENT",4)=""
^DD(162.11,"B","PAYMENT TYPE CODE",16)=""
^DD(162.11,"B","PHARMACIST",11)=""
^DD(162.11,"B","PHARMACY DETERMINATION",10)=""
^DD(162.11,"B","PHARMACY REMARKS",22)=""
^DD(162.11,"B","PRESCRIPTION NUMBER",.01)=""
^DD(162.11,"B","PRIMARY SERVICE FACILITY",25)=""
^DD(162.11,"B","PROMPT PAY TYPE",29)=""
^DD(162.11,"B","QUANTITY",1.6)=""
^DD(162.11,"B","REASON CODE",32)=""
^DD(162.11,"B","REASON FOR VOIDED PAYMENT",23.5)=""
^DD(162.11,"B","RED BOOK COST",5)=""
^DD(162.11,"B","REJECT REASON",18)=""
^DD(162.11,"B","REJECT STATUS",17)=""
^DD(162.11,"B","REMITTANCE REMARK",38)=""
^DD(162.11,"B","STRENGTH",1.5)=""
^DD(162.11,"B","SUBSTITUTE GENERIC DRUG",8.5)=""
^DD(162.11,"B","SUPERVISOR",24)=""
^DD(162.11,"B","SUSPEND CODE",7)=""
^DD(162.11,"B","SUSPENSION DESCRIPTION",20)=""
^DD(162.11,"B","VOID PAYMENT",23)=""
^DD(162.11,"GL",0,1,.01)=""
^DD(162.11,"GL",0,2,1)=""
^DD(162.11,"GL",0,3,2)=""
^DD(162.11,"GL",0,4,3)=""
^DD(162.11,"GL",0,5,4)=""
^DD(162.11,"GL",0,6,5)=""
^DD(162.11,"GL",0,7,6)=""
^DD(162.11,"GL",0,8,7)=""
^DD(162.11,"GL",0,9,8)=""
^DD(162.11,"GL",0,10,9)=""
^DD(162.11,"GL",0,11,10)=""
^DD(162.11,"GL",0,12,1.5)=""
^DD(162.11,"GL",0,13,1.6)=""
^DD(162.11,"GL",0,14,11)=""
^DD(162.11,"GL",0,15,12)=""
^DD(162.11,"GL",0,16,6.5)=""
^DD(162.11,"GL",0,17,13)=""
^DD(162.11,"GL",0,18,14)=""
^DD(162.11,"GL",0,19,15)=""
^DD(162.11,"GL",0,20,16)=""
^DD(162.11,"GL",0,21,8.5)=""
^DD(162.11,"GL",0,22,22)=""
^DD(162.11,"GL",1,0,20)=""
^DD(162.11,"GL",2,1,21)=""
^DD(162.11,"GL",2,2,1.4)=""
^DD(162.11,"GL",2,3,23)=""
^DD(162.11,"GL",2,4,24)=""
^DD(162.11,"GL",2,5,25)=""
^DD(162.11,"GL",2,6,26)=""
^DD(162.11,"GL",2,7,27)=""
^DD(162.11,"GL",2,8,28)=""
^DD(162.11,"GL",2,9,29)=""
^DD(162.11,"GL",2,10,30)=""
^DD(162.11,"GL",2,11,31)=""
^DD(162.11,"GL",2,12,32)=""
^DD(162.11,"GL",2,13,33)=""
^DD(162.11,"GL",2,14,34)=""
^DD(162.11,"GL",2,15,35)=""
^DD(162.11,"GL",3,1,36)=""
^DD(162.11,"GL",4,0,37)=""
^DD(162.11,"GL",5,0,38)=""
^DD(162.11,"GL","FBREJ",1,17)=""
^DD(162.11,"GL","FBREJ",2,18)=""
^DD(162.11,"GL","FBREJ",3,19)=""
^DD(162.11,"GL","R",1,23.5)=""
^DD(162.11,"IX",.01)=""
^DD(162.11,"IX",2)=""
^DD(162.11,"IX",3)=""
^DD(162.11,"IX",4)=""
^DD(162.11,"IX",6.5)=""
^DD(162.11,"IX",8)=""
^DD(162.11,"IX",13)=""
^DD(162.11,"IX",15)=""
^DD(162.11,"IX",19)=""
^DD(162.11,"IX",21)=""
^DD(162.11,"IX",26)=""
^DD(162.11,"IX",30)=""
^DD(162.11,"RQ",.01)=""
^DD(162.11,"RQ",1)=""
^DD(162.11,"RQ",1.6)=""
^DD(162.11,"RQ",2)=""
^DD(162.11,"RQ",3)=""
^DD(162.11,"RQ",4)=""
^DD(162.11,"RQ",8)=""
^DD(162.11,"RQ",9)=""
^DD(162.11,"RQ",13)=""
^DD(162.11,"RQ",14)=""
^DD(162.11,"SB",162.12,20)=""
^DD(162.11,"SB",162.14,37)=""
^DD(162.11,"SB",162.15,38)=""
^DD(162.12,0)="SUSPENSION DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.12,0,"NM","SUSPENSION DESCRIPTION")=""
^DD(162.12,0,"UP")="162.11"
^DD(162.12,.01,0)="SUSPENSION DESCRIPTION^W^^0;1^Q"
^DD(162.12,.01,21,0)="^^2^2^2880527^^"
^DD(162.12,.01,21,1,0)="This allows the entry of a description of why the amount claimed for"
^DD(162.12,.01,21,2,0)="the line item does not match the amount paid."
^DD(162.12,.01,"DT")="2861023"
^DD(162.12,"B","SUSPENSION DESCRIPTION",.01)=""
^DD(162.12,"GL",0,1,.01)=""
^DD(162.14,0)="ADJUSTMENT SUB-FIELD^^2^3"
^DD(162.14,0,"DT")="3030618"
^DD(162.14,0,"IX","B",162.14,.01)=""
^DD(162.14,0,"NM","ADJUSTMENT")=""
^DD(162.14,0,"UP")="162.11"
^DD(162.14,.01,0)="ADJUSTMENT REASON^M*P161.91'^FB(161.91,^0;1^S DIC(""S"")=""I $P($$AR^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.14,.01,1,0)="^.1"
^DD(162.14,.01,1,1,0)="162.14^B"
^DD(162.14,.01,1,1,1)="S ^FBAA(162.1,DA(2),""RX"",DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(162.14,.01,1,1,2)="K ^FBAA(162.1,DA(2),""RX"",DA(1),4,""B"",$E(X,1,30),DA)"
^DD(162.14,.01,3)="Select a HIPAA Adjustment (suspense) Reason Code."
^DD(162.14,.01,12)="Only adjustment reasons that are applicable for Fee use can be selected."
^DD(162.14,.01,12.1)="S DIC(""S"")=""I $P($$AR^FBUTL1(Y),U,4)=1"""
^DD(162.14,.01,21,0)="^.001^2^2^3030618^^^"
^DD(162.14,.01,21,1,0)="Adjustment reason codes explain why the amount paid differs from the "
^DD(162.14,.01,21,2,0)="amount claimed."
^DD(162.14,.01,"DT")="3030618"
^DD(162.14,1,0)="ADJUSTMENT GROUP^*P161.92'^FB(161.92,^0;2^S DIC(""S"")=""I $P($$AG^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.14,1,3)="Select a HIPAA Adjustment Group Code."
^DD(162.14,1,12)="Only adjustment groups that are applicable for Fee use can be selected."
^DD(162.14,1,12.1)="S DIC(""S"")=""I $P($$AG^FBUTL1(Y),U,4)=1"""
^DD(162.14,1,21,0)="^^2^2^3030617^"
^DD(162.14,1,21,1,0)="The Adjustment Group Code pertains to the previously entered adjustment "
^DD(162.14,1,21,2,0)="reason code."
^DD(162.14,1,"DT")="3030618"
^DD(162.14,2,0)="ADJUSTMENT AMOUNT^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<.01) X"
^DD(162.14,2,3)="Type a Dollar Amount between .01 and 999999, 2 Decimal Digits"
^DD(162.14,2,21,0)="^^2^2^3030617^"
^DD(162.14,2,21,1,0)="Enter the dollar amount that is not being paid for this charge per the "
^DD(162.14,2,21,2,0)="adjustment reason."
^DD(162.14,2,"DT")="3030617"
^DD(162.14,"B","ADJUSTMENT AMOUNT",2)=""
^DD(162.14,"B","ADJUSTMENT GROUP",1)=""
^DD(162.14,"B","ADJUSTMENT REASON",.01)=""
^DD(162.14,"GL",0,1,.01)=""
^DD(162.14,"GL",0,2,1)=""
^DD(162.14,"GL",0,3,2)=""
^DD(162.14,"IX",.01)=""
^DD(162.15,0)="REMITTANCE REMARK SUB-FIELD^^.01^1"
^DD(162.15,0,"DT")="3030618"
^DD(162.15,0,"IX","B",162.15,.01)=""
^DD(162.15,0,"NM","REMITTANCE REMARK")=""
^DD(162.15,0,"UP")="162.11"
^DD(162.15,.01,0)="REMITTANCE REMARK^M*P161.93'^FB(161.93,^0;1^S DIC(""S"")=""I $P($$RR^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.15,.01,1,0)="^.1"
^DD(162.15,.01,1,1,0)="162.15^B"
^DD(162.15,.01,1,1,1)="S ^FBAA(162.1,DA(2),""RX"",DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(162.15,.01,1,1,2)="K ^FBAA(162.1,DA(2),""RX"",DA(1),5,""B"",$E(X,1,30),DA)"
^DD(162.15,.01,3)="Select a HIPAA Remittance Remark Code."
^DD(162.15,.01,12)="Only remittance remarks that are applicable for Fee use can be selected."
^DD(162.15,.01,12.1)="S DIC(""S"")=""I $P($$RR^FBUTL1(Y),U,4)=1"""
^DD(162.15,.01,21,0)="^.001^2^2^3030618^^^"
^DD(162.15,.01,21,1,0)="Select a remittance remark code to provide non-financial information "
^DD(162.15,.01,21,2,0)="critical to understanding the adjudication of the claim."
^DD(162.15,.01,"DT")="3030618"
^DD(162.15,"B","REMITTANCE REMARK",.01)=""
^DD(162.15,"GL",0,1,.01)=""
^DD(162.15,"IX",.01)=""
^DD(162.2,0)="FIELD^^100^20"
^DD(162.2,0,"DT")="2940318"
^DD(162.2,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FBAAV(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(161.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(162.2,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(162.2,0,"IX","AM",162.2,16)=""
^DD(162.2,0,"IX","B",162.2,.01)=""
^DD(162.2,0,"IX","C",162.2,1)=""
^DD(162.2,0,"IX","D",162.2,3)=""
^DD(162.2,0,"NM","FEE NOTIFICATION/REQUEST")=""
^DD(162.2,0,"PT",161.5,.01)=""
^DD(162.2,0,"VR")="3.5"
^DD(162.2,0,"VRPK")="FB"
^DD(162.2,.01,0)="DATE/TIME^MRDX^^0;1^S %DT=""ESTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(162.2,.01,1,0)="^.1"
^DD(162.2,.01,1,1,0)="162.2^B"
^DD(162.2,.01,1,1,1)="S ^FBAA(162.2,""B"",$E(X,1,30),DA)="""""
^DD(162.2,.01,1,1,2)="K ^FBAA(162.2,""B"",$E(X,1,30),DA)"
^DD(162.2,.01,3)=""
^DD(162.2,.01,21,0)="^^2^2^2890124^^"
^DD(162.2,.01,21,1,0)="Date and Time that the vendor notifies the COJ of this episode of"
^DD(162.2,.01,21,2,0)="hospitalization."
^DD(162.2,.01,"DEL",.01,0)="I $P(^FBAA(162.2,DA,0),""^"",17)]"""" W !!,*7,""Cannot delete a Request because a 7078 entry has already been established!"",!"
^DD(162.2,.01,"DT")="2901023"
^DD(162.2,1,0)="VENDOR^RP161.2^FBAAV(^0;2^Q"
^DD(162.2,1,1,0)="^.1"
^DD(162.2,1,1,1,0)="162.2^C"
^DD(162.2,1,1,1,1)="S ^FBAA(162.2,""C"",$E(X,1,30),DA)="""""
^DD(162.2,1,1,1,2)="K ^FBAA(162.2,""C"",$E(X,1,30),DA)"
^DD(162.2,1,21,0)="^^2^2^2890124^"
^DD(162.2,1,21,1,0)="Name of the vendor who is notifying you of a veteran"
^DD(162.2,1,21,2,0)="request for care."
^DD(162.2,1,"DT")="3000131"
^DD(162.2,2,0)="PERSON WHO CALLED^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(162.2,2,3)="Answer must be 3-30 characters in length."
^DD(162.2,2,21,0)="^^2^2^2890124^"
^DD(162.2,2,21,1,0)="This is a free text field that contains the name of"
^DD(162.2,2,21,2,0)="the person who is notifying you."
^DD(162.2,3,0)="VETERAN^RP2'^DPT(^0;4^Q"
^DD(162.2,3,1,0)="^.1"
^DD(162.2,3,1,1,0)="162.2^D"
^DD(162.2,3,1,1,1)="S ^FBAA(162.2,""D"",$E(X,1,30),DA)="""""
^DD(162.2,3,1,1,2)="K ^FBAA(162.2,""D"",$E(X,1,30),DA)"
^DD(162.2,3,21,0)="^^2^2^2890124^"
^DD(162.2,3,21,1,0)="This is name of the veteran who is requesting services"
^DD(162.2,3,21,2,0)="from the VA."
^DD(162.2,3,"DT")="3000131"
^DD(162.2,3.5,0)="DATE/TIME OF ADMISSION^RDX^^0;19^S %DT=""ESTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(162.2,3.5,21,0)="^^2^2^2930312^"
^DD(162.2,3.5,21,1,0)="This field contains the date and time of admission to the civil"
^DD(162.2,3.5,21,2,0)="hospital."
^DD(162.2,3.5,"DT")="2930312"
^DD(162.2,4,0)="AUTHORIZED FROM DATE/TIME^RDX^^0;5^S %DT=""ESTXR"" D ^%DT K %DT(0) S X=Y D DATCK^FBCHREQ1 K:Y<1!$G(FBOUT) X,FBOUT"
^DD(162.2,4,1,0)="^.1^^0"
^DD(162.2,4,21,0)="^^3^3^2930519^^^^"
^DD(162.2,4,21,1,0)="This field contains the date and time that you begin"
^DD(162.2,4,21,2,0)="accepting responsibility for bills incurred if the veteran"
^DD(162.2,4,21,3,0)="is found to be legally and medically entitled."
^DD(162.2,4,"DT")="2930312"
^DD(162.2,5,0)="ADMITTING DIAGNOSIS^F^^0;6^K:$L(X)>45!($L(X)<3) X"
^DD(162.2,5,3)="Answer must be 3-45 characters in length."
^DD(162.2,5,21,0)="^^2^2^2890124^"
^DD(162.2,5,21,1,0)="This is the admitting diagnosis of the veteran which"
^DD(162.2,5,21,2,0)="is usually obtained from the person who called."
^DD(162.2,6,0)="ATTENDING PHYSICIAN^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(162.2,6,3)="Answer must be 3-30 characters in length."
^DD(162.2,6,21,0)="^^2^2^2930519^^^^"
^DD(162.2,6,21,1,0)="This field is a free text field. Please enter the name of the"
^DD(162.2,6,21,2,0)="attending physician for this patient."
^DD(162.2,6.5,0)="ATTEN.PHYSICIAN PHONE NUMBER^F^^0;18^K:$L(X)>20!($L(X)<3) X"
^DD(162.2,6.5,3)="Answer must be 3-20 characters in length."
^DD(162.2,6.5,21,0)="^^2^2^2930514^"
^DD(162.2,6.5,21,1,0)="This field contains the phone number of the attending physician while"
^DD(162.2,6.5,21,2,0)="the patient was residing in the non-VA facility."
^DD(162.2,6.5,"DT")="2900831"
^DD(162.2,7,0)="USER ENTERING NOTIFICATION^P200'^VA(200,^0;8^Q"
^DD(162.2,7,21,0)="^^2^2^2890124^"
^DD(162.2,7,21,1,0)="This field contains the name of the user who entered the"
^DD(162.2,7,21,2,0)="notification."
^DD(162.2,7,"DT")="2900405"
^DD(162.2,8,0)="LEGAL ENTITLEMENT^FaXO^^0;9^I $D(X) D YN^FBAAUTL3"
^DD(162.2,8,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(162.2,8,2.1)="D OUTYN^FBAAUTL3"
^DD(162.2,8,3)="Answer 'Yes' or '1' for YES or 'No' or '0' for NO."
^DD(162.2,8,21,0)="^^3^3^2930507^^"
^DD(162.2,8,21,1,0)="If a veteran is determined not to be legally entitled"
^DD(162.2,8,21,2,0)="then s/he is assumed not medically entitled and the status"
^DD(162.2,8,21,3,0)="of the request becomes complete."
^DD(162.2,8,"AUDIT")="e"
^DD(162.2,8,"DT")="2940318"
^DD(162.2,9,0)="DATE OF LEGAL DETERMINATION^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.2,9,21,0)="^^2^2^2890124^"
^DD(162.2,9,21,1,0)="This is the date that the legal entitlement was entered"
^DD(162.2,9,21,2,0)="into the computer."
^DD(162.2,10,0)="USER ENTERING LEGAL DETERM.^P200'^VA(200,^0;11^Q"
^DD(162.2,10,21,0)="^^1^1^2890124^"
^DD(162.2,10,21,1,0)="The user who entered the legal entitlement."
^DD(162.2,10,"DT")="2900405"
^DD(162.2,11,0)="MEDICAL ENTITLEMENT^FaXO^^0;12^I $D(X) D YN^FBAAUTL3"
^DD(162.2,11,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(162.2,11,2.1)="D OUTYN^FBAAUTL3"
^DD(162.2,11,3)="Answer 'Yes' or '1' for YES and 'No' or '0' for NO."
^DD(162.2,11,21,0)="^^3^3^2890124^"
^DD(162.2,11,21,1,0)="Once the legal entitlement has been determined the"
^DD(162.2,11,21,2,0)="medical entitlement must be determined following"
^DD(162.2,11,21,3,0)="VA regulations."
^DD(162.2,11,"AUDIT")="e"
^DD(162.2,11,"DT")="2940318"
^DD(162.2,12,0)="DATE OF MEDICAL DETERMINATION^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.2,12,21,0)="^^1^1^2890124^"
^DD(162.2,12,21,1,0)="Date the user entered the Medical determination."
^DD(162.2,12,"DT")="3000131"
^DD(162.2,13,0)="USER ENTERING MEDICAL DETERM.^P200'^VA(200,^0;14^Q"
^DD(162.2,13,21,0)="^^1^1^2890124^"
^DD(162.2,13,21,1,0)="Name of the user who entered the medical determination."
^DD(162.2,13,"DT")="2900405"
^DD(162.2,14,0)="SUSPENSE CODE^P161.27'^FBAA(161.27,^0;16^Q"
^DD(162.2,14,1,0)="^.1^^0"
^DD(162.2,14,21,0)="^^2^2^2890131^"
^DD(162.2,14,21,1,0)="A pointer to the Fee Basis Suspension file, allows the user to"
^DD(162.2,14,21,2,0)="enter in a suspense reason for Legal or Medical denial."
^DD(162.2,14,"DT")="3000131"
^DD(162.2,15,0)="DESCRIPTION OF SUSPENSION^162.215^^1;0"
^DD(162.2,15,21,0)="^^2^2^2890131^"
^DD(162.2,15,21,1,0)="If the user enters a '4' for 'other' in the suspense field"
^DD(162.2,15,21,2,0)="s/he can enter a word processing text for reason why."
^DD(162.2,16,0)="ASSOCIATED 7078^P162.4'^FB7078(^0;17^Q"
^DD(162.2,16,1,0)="^.1"
^DD(162.2,16,1,1,0)="162.2^AM^MUMPS"
^DD(162.2,16,1,1,1)="S ^FBAA(162.2,""AM"",$E(X,1,30),DA)="""""
^DD(162.2,16,1,1,2)="K ^FBAA(162.2,""AM"",$E(X,1,30),DA)"
^DD(162.2,16,1,1,"%D",0)="^^4^4^2920922^"
^DD(162.2,16,1,1,"%D",1,0)="This cross-reference is used to locate a notification that has a"
^DD(162.2,16,1,1,"%D",2,0)="7078 associated with it.  It is used in the 'Cancel a 7078' option"
^DD(162.2,16,1,1,"%D",3,0)="which allows the code to break the association with the request."
^DD(162.2,16,1,1,"%D",4,0)="This usually is only used when a 7078 is entered in error."
^DD(162.2,16,1,1,"DT")="2920922"
^DD(162.2,16,21,0)="^^3^3^2900530^"
^DD(162.2,16,21,1,0)="This field is set by the system when the user sets-up a 7078"
^DD(162.2,16,21,2,0)="for an associated request. This prevents multiple 7078's for"
^DD(162.2,16,21,3,0)="one request."
^DD(162.2,16,"DT")="2920922"
^DD(162.2,100,0)="REQUEST STATUS^RS^1:PENDING ENTITLEMENT;2:PENDING PHYSICIAN CONTACT;3:COMPLETE;^0;15^Q"
^DD(162.2,100,1,0)="^.1^^0"
^DD(162.2,100,21,0)="^^5^5^2890124^"
^DD(162.2,100,21,1,0)="This status is determined based on the medical and legal"
^DD(162.2,100,21,2,0)="entitlement questions being answered. The status is 'Pending"
^DD(162.2,100,21,3,0)="Entitlement' until the legal entitlement is determined. The"
^DD(162.2,100,21,4,0)="status goes to 'Pending Physician Contact' until the Medical"
^DD(162.2,100,21,5,0)="determination has been entered."
^DD(162.2,100,"DT")="2890120"
^DD(162.2,"AUDIT",8)=""
^DD(162.2,"AUDIT",11)=""
^DD(162.2,"B","ADMITTING DIAGNOSIS",5)=""
^DD(162.2,"B","ASSOCIATED 7078",16)=""
^DD(162.2,"B","ATTEN.PHYSICIAN PHONE NUMBER",6.5)=""
^DD(162.2,"B","ATTENDING PHYSICIAN",6)=""
^DD(162.2,"B","AUTHORIZED FROM DATE/TIME",4)=""
^DD(162.2,"B","DATE OF LEGAL DETERMINATION",9)=""
^DD(162.2,"B","DATE OF MEDICAL DETERMINATION",12)=""
^DD(162.2,"B","DATE/TIME",.01)=""
^DD(162.2,"B","DATE/TIME OF ADMISSION",3.5)=""
^DD(162.2,"B","DESCRIPTION OF SUSPENSION",15)=""
^DD(162.2,"B","LEGAL ENTITLEMENT",8)=""
^DD(162.2,"B","MEDICAL ENTITLEMENT",11)=""
^DD(162.2,"B","PERSON WHO CALLED",2)=""
^DD(162.2,"B","REQUEST STATUS",100)=""
^DD(162.2,"B","SUSPENSE CODE",14)=""
^DD(162.2,"B","USER ENTERING LEGAL DETERM.",10)=""
^DD(162.2,"B","USER ENTERING MEDICAL DETERM.",13)=""
^DD(162.2,"B","USER ENTERING NOTIFICATION",7)=""
^DD(162.2,"B","VENDOR",1)=""
^DD(162.2,"B","VETERAN",3)=""
^DD(162.2,"GL",0,1,.01)=""
^DD(162.2,"GL",0,2,1)=""
^DD(162.2,"GL",0,3,2)=""
^DD(162.2,"GL",0,4,3)=""
^DD(162.2,"GL",0,5,4)=""
^DD(162.2,"GL",0,6,5)=""
^DD(162.2,"GL",0,7,6)=""
^DD(162.2,"GL",0,8,7)=""
^DD(162.2,"GL",0,9,8)=""
^DD(162.2,"GL",0,10,9)=""
^DD(162.2,"GL",0,11,10)=""
^DD(162.2,"GL",0,12,11)=""
^DD(162.2,"GL",0,13,12)=""
^DD(162.2,"GL",0,14,13)=""
^DD(162.2,"GL",0,15,100)=""
^DD(162.2,"GL",0,16,14)=""
^DD(162.2,"GL",0,17,16)=""
^DD(162.2,"GL",0,18,6.5)=""
^DD(162.2,"GL",0,19,3.5)=""
^DD(162.2,"GL",1,0,15)=""
^DD(162.2,"IX",.01)=""
^DD(162.2,"IX",1)=""
^DD(162.2,"IX",3)=""
^DD(162.2,"IX",16)=""
^DD(162.2,"RQ",.01)=""
^DD(162.2,"RQ",1)=""
^DD(162.2,"RQ",3)=""
^DD(162.2,"RQ",3.5)=""
^DD(162.2,"RQ",4)=""
^DD(162.2,"RQ",100)=""
^DD(162.2,"SB",162.215,15)=""
^DD(162.215,0)="DESCRIPTION OF SUSPENSION SUB-FIELD^^.01^1"
^DD(162.215,0,"NM","DESCRIPTION OF SUSPENSION")=""
^DD(162.215,0,"UP")="162.2"
^DD(162.215,.01,0)="DESCRIPTION OF SUSPENSION^WL^^0;1^Q"
^DD(162.215,.01,"DT")="2890131"
^DD(162.215,"B","DESCRIPTION OF SUSPENSION",.01)=""
^DD(162.215,"GL",0,1,.01)=""
^DD(162.3,0)="FIELD^^9^11"
^DD(162.3,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FBAAA(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(161,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(162.3,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(162.3,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(162.3,0,"IX","AC",162.3,4)=""
^DD(162.3,0,"IX","AE",162.3,1)=""
^DD(162.3,0,"IX","AF",162.3,1)=""
^DD(162.3,0,"IX","AG",162.3,1)=""
^DD(162.3,0,"IX","AH",162.3,8)=""
^DD(162.3,0,"IX","B",162.3,.01)=""
^DD(162.3,0,"NM","FEE CNH ACTIVITY")=""
^DD(162.3,0,"PT",162.3,4)=""
^DD(162.3,0,"VR")="3.5"
^DD(162.3,0,"VRPK")="FB"
^DD(162.3,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.3,.001,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(162.3,.001,21,0)="^^1^1^2930514^"
^DD(162.3,.001,21,1,0)="The internal entry number for each CNH Activity."
^DD(162.3,.001,"DT")="2890411"
^DD(162.3,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X I $D(X) D DATCK2^FBAAUTL1"
^DD(162.3,.01,1,0)="^.1"
^DD(162.3,.01,1,1,0)="162.3^B"
^DD(162.3,.01,1,1,1)="S ^FBAACNH(""B"",$E(X,1,30),DA)="""""
^DD(162.3,.01,1,1,2)="K ^FBAACNH(""B"",$E(X,1,30),DA)"
^DD(162.3,.01,3)=""
^DD(162.3,.01,21,0)="^^1^1^2930514^"
^DD(162.3,.01,21,1,0)="The date and time of this activity (admission, discharge or transfer)."
^DD(162.3,.01,"DT")="2880830"
^DD(162.3,1,0)="VETERAN^RP161'^FBAAA(^0;2^Q"
^DD(162.3,1,1,0)="^.1"
^DD(162.3,1,1,1,0)="162.3^AE"
^DD(162.3,1,1,1,1)="S ^FBAACNH(""AE"",$E(X,1,30),DA)="""""
^DD(162.3,1,1,1,2)="K ^FBAACNH(""AE"",$E(X,1,30),DA)"
^DD(162.3,1,1,2,0)="162.3^AF^MUMPS"
^DD(162.3,1,1,2,1)="S ^FBAACNH(""AF"",$E(X,1,30),9999999.999999-$P(^FBAACNH(DA,0),""^"",1),DA)="""""
^DD(162.3,1,1,2,2)="K ^FBAACNH(""AF"",$E(X,1,30),9999999.999999-$P(^FBAACNH(DA,0),""^"",1),DA)"
^DD(162.3,1,1,3,0)="162.3^AG^MUMPS"
^DD(162.3,1,1,3,1)="I $P(^FBAACNH(DA,0),U,9)]"""" S ^FBAACNH(""AG"",$E(X,1,30),$P(^FBAACNH(DA,0),U,9),$P(^FBAACNH(DA,0),U,1),DA)="""""
^DD(162.3,1,1,3,2)="I $P(^FBAACNH(DA,0),U,9)]"""" K ^FBAACNH(""AG"",$E(X,1,30),$P(^FBAACNH(DA,0),U,9),$P(^FBAACNH(DA,0),U,1),DA)"
^DD(162.3,1,21,0)="^^1^1^2930514^"
^DD(162.3,1,21,1,0)="The name of the Fee Basis patient associated with this activity."
^DD(162.3,1,"DT")="3000131"
^DD(162.3,2,0)="ACTIVITY TYPE^S^A:ADMISSION;T:TRANSFER;D:DISCHARGE;^0;3^Q"
^DD(162.3,2,21,0)="^^2^2^2930514^"
^DD(162.3,2,21,1,0)="Entry into this field indicates whether activity was an admission,"
^DD(162.3,2,21,2,0)="discharge or transfer."
^DD(162.3,3,0)="ACTIVE ADMISSION^S^Y:YES;^0;4^Q"
^DD(162.3,3,1,0)="^.1^^0"
^DD(162.3,3,21,0)="^^2^2^2930514^"
^DD(162.3,3,21,1,0)="An entry into this field will indicate that the activity at hand is part"
^DD(162.3,3,21,2,0)="of an ""active"" admission."
^DD(162.3,3,"DT")="3000131"
^DD(162.3,4,0)="ASSOCIATED ADMISSION^R*P162.3'X^FBAACNH(^0;5^S DIC(""S"")=""I $P(^(0),U,3)=""""A""""&($P(^(0),U,4)=""""Y"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.3,4,1,0)="^.1"
^DD(162.3,4,1,1,0)="162.3^AC"
^DD(162.3,4,1,1,1)="S ^FBAACNH(""AC"",$E(X,1,30),DA)="""""
^DD(162.3,4,1,1,2)="K ^FBAACNH(""AC"",$E(X,1,30),DA)"
^DD(162.3,4,12)="Allows only activity which is Admission type and active."
^DD(162.3,4,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""A""""&($P(^(0),U,4)=""""Y"""")"""
^DD(162.3,4,21,0)="^^3^3^2930514^"
^DD(162.3,4,21,1,0)="This field points all activities back to the admission that they are"
^DD(162.3,4,21,2,0)="associated with.  It allows for the ability to tie an admission with"
^DD(162.3,4,21,3,0)="all associated transfers and a final discharge if one exists."
^DD(162.3,5,0)="ADMISSION TYPE^RS^1:AFTER RE-HOSPITALIZATION > 15 DAYS;2:TRANSFER FROM OTHER CNH;3:FROM ASIH < 15 DAYS;4:ALL OTHER;^0;6^Q"
^DD(162.3,5,21,0)="^^2^2^2930514^"
^DD(162.3,5,21,1,0)="Field populated for activity types of 'admission' only.  Indicates the"
^DD(162.3,5,21,2,0)="type of admission for veteran."
^DD(162.3,5,"DT")="2900910"
^DD(162.3,6,0)="TRANSFER TYPE^RSX^1:TO AUTHORIZED ABSENCE;2:TO UN-AUTHORIZED ABSENCE;3:TO ASIH;4:FROM AUTHORIZED ABSENCE;5:FROM UN-AUTHORIZED ABSENCE;6:FROM ASIH < 15 DAYS;^0;7^D DATCK3^FBAAUTL1"
^DD(162.3,6,21,0)="^^2^2^2930514^"
^DD(162.3,6,21,1,0)="Field is populated for activity type of 'transfer' only.  Indicates the"
^DD(162.3,6,21,2,0)="type of transfer for each veteran."
^DD(162.3,6,"DT")="2880831"
^DD(162.3,7,0)="DISCHARGE TYPE^S^1:REGULAR;2:DEATH;3:TRANSFER TO OTHER CNH;4:ASIH;5:DEATH WHILE ASIH;6:REGULAR - PRIVATE PAY;^0;8^Q"
^DD(162.3,7,21,0)="^^2^2^2930514^"
^DD(162.3,7,21,1,0)="Field is populated for activity type of 'discharge' only.  Indicates"
^DD(162.3,7,21,2,0)="the type of discharge for each veteran."
^DD(162.3,7,"DT")="2880824"
^DD(162.3,8,0)="NURSING HOME^*P161.2'^FBAAV(^0;9^S DIC(""S"")=""I $P(^(0),U,9)=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.3,8,1,0)="^.1"
^DD(162.3,8,1,1,0)="162.3^AH"
^DD(162.3,8,1,1,1)="S ^FBAACNH(""AH"",$E(X,1,30),DA)="""""
^DD(162.3,8,1,1,2)="K ^FBAACNH(""AH"",$E(X,1,30),DA)"
^DD(162.3,8,1,1,"DT")="2930330"
^DD(162.3,8,12)="Only vendors with Participation Code of Community Nursing Home"
^DD(162.3,8,12.1)="S DIC(""S"")=""I $P(^(0),U,9)=5"""
^DD(162.3,8,21,0)="^^3^3^2930514^"
^DD(162.3,8,21,1,0)="Reference to the Vendor file, this field indicates the name of the"
^DD(162.3,8,21,2,0)="Nursing Home to which this activity is associated with (i.e. where the"
^DD(162.3,8,21,3,0)="veteran is residing)."
^DD(162.3,8,"DT")="2930330"
^DD(162.3,9,0)="ASSOCIATED AUTHORIZATION^NJ9,0^^0;10^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.3,9,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(162.3,9,21,0)="^^3^3^2930514^^"
^DD(162.3,9,21,1,0)="The internal entry number of the Authorization associated with the"
^DD(162.3,9,21,2,0)="admission entry.  Transfer and Discharge entries will not have this"
^DD(162.3,9,21,3,0)="data."
^DD(162.3,9,"DT")="2900516"
^DD(162.3,"B","ACTIVE ADMISSION",3)=""
^DD(162.3,"B","ACTIVITY TYPE",2)=""
^DD(162.3,"B","ADMISSION TYPE",5)=""
^DD(162.3,"B","ASSOCIATED ADMISSION",4)=""
^DD(162.3,"B","ASSOCIATED AUTHORIZATION",9)=""
^DD(162.3,"B","DATE/TIME",.01)=""
^DD(162.3,"B","DISCHARGE TYPE",7)=""
^DD(162.3,"B","NUMBER",.001)=""
^DD(162.3,"B","NURSING HOME",8)=""
^DD(162.3,"B","TRANSFER TYPE",6)=""
^DD(162.3,"B","VETERAN",1)=""
^DD(162.3,"GL",0,1,.01)=""
^DD(162.3,"GL",0,2,1)=""
^DD(162.3,"GL",0,3,2)=""
^DD(162.3,"GL",0,4,3)=""
^DD(162.3,"GL",0,5,4)=""
^DD(162.3,"GL",0,6,5)=""
^DD(162.3,"GL",0,7,6)=""
^DD(162.3,"GL",0,8,7)=""
^DD(162.3,"GL",0,9,8)=""
^DD(162.3,"GL",0,10,9)=""
^DD(162.3,"IX",.01)=""
^DD(162.3,"IX",1)=""
^DD(162.3,"IX",4)=""
^DD(162.3,"IX",8)=""
^DD(162.3,"RQ",.01)=""
^DD(162.3,"RQ",1)=""
^DD(162.3,"RQ",4)=""
^DD(162.3,"RQ",5)=""
^DD(162.3,"RQ",6)=""
^DD(162.4,0)="FIELD^^12^17"
^DD(162.4,0,"DT")="2930510"
^DD(162.4,0,"ID",1)="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,2),1:"""") D NAME^DICM2 W ""   "",DINAME,@(""$E(""_DIC_""Y,0),0)"")"
^DD(162.4,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(162.4,0,"ID",9)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(162.4,9,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,9)_"""":"""",2),$C(59),1)"")"
^DD(162.4,0,"IX","AA",162.4,3)=""
^DD(162.4,0,"IX","AB",162.4,2)=""
^DD(162.4,0,"IX","AC",162.4,9)=""
^DD(162.4,0,"IX","AC1",162.4,2)=""
^DD(162.4,0,"IX","AD",162.4,4)=""
^DD(162.4,0,"IX","B",162.4,.01)=""
^DD(162.4,0,"IX","C",162.4,1)=""
^DD(162.4,0,"IX","D",162.4,2)=""
^DD(162.4,0,"NM","VA FORM 10-7078")=""
^DD(162.4,0,"PT",161.01,.055)=""
^DD(162.4,0,"PT",161.23,.03)=""
^DD(162.4,0,"PT",162.03,27)=""
^DD(162.4,0,"PT",162.11,26)=""
^DD(162.4,0,"PT",162.2,16)=""
^DD(162.4,0,"PT",162.5,4)=""
^DD(162.4,0,"VR")="3.5"
^DD(162.4,.01,0)="REFERENCE NUMBER^RFX^^0;1^K:$L(X)>12!($L(X)<7) X"
^DD(162.4,.01,1,0)="^.1"
^DD(162.4,.01,1,1,0)="162.4^B"
^DD(162.4,.01,1,1,1)="S ^FB7078(""B"",$E(X,1,30),DA)="""""
^DD(162.4,.01,1,1,2)="K ^FB7078(""B"",$E(X,1,30),DA)"
^DD(162.4,.01,3)="Answer must be 7-11 characters in length and populated by calls to IFCAP."
^DD(162.4,.01,21,0)="^^2^2^2960726^^^^"
^DD(162.4,.01,21,1,0)="This number is internally generated and tracked by"
^DD(162.4,.01,21,2,0)="the IFCAP software."
^DD(162.4,.01,23,0)="^^3^3^2960726^"
^DD(162.4,.01,23,1,0)="The format of this field is determined in the IFCAP software."
^DD(162.4,.01,23,2,0)="The field is populated by using the obligation number and the"
^DD(162.4,.01,23,3,0)="reference number.  Sample format - C12345.0002"
^DD(162.4,.01,"DT")="2960726"
^DD(162.4,.013,0)="USER WHO CANCELLED^P200'^VA(200,^0;13^Q"
^DD(162.4,.013,21,0)="^^1^1^2920922^"
^DD(162.4,.013,21,1,0)="This field contains the name of the supervisor who cancelled the 7078."
^DD(162.4,.013,"DT")="2920922"
^DD(162.4,.014,0)="DATE CANCELLED^D^^0;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.4,.014,21,0)="^^1^1^2920922^"
^DD(162.4,.014,21,1,0)="This field contains the date that a supervisor cancelled the 7078."
^DD(162.4,.014,"DT")="2920922"
^DD(162.4,.5,0)="FEE PROGRAM^RP161.8'^FBAA(161.8,^0;11^Q"
^DD(162.4,.5,21,0)="^^3^3^2930514^"
^DD(162.4,.5,21,1,0)="This field contains the valid Fee Program associated with this 7078, as"
^DD(162.4,.5,21,2,0)="defined in the Fee Basis Program file (i.e. Outpatient Medical, Contract"
^DD(162.4,.5,21,3,0)="Hospital, Community Nursing Home)."
^DD(162.4,.5,"DT")="2890210"
^DD(162.4,1,0)="VENDOR^RVO^^0;2^Q"
^DD(162.4,1,1,0)="^.1"
^DD(162.4,1,1,1,0)="162.4^C"
^DD(162.4,1,1,1,1)="S ^FB7078(""C"",$E(X,1,30),DA)="""""
^DD(162.4,1,1,1,2)="K ^FB7078(""C"",$E(X,1,30),DA)"
^DD(162.4,1,2)="S Y(0)=Y S Y(0)=Y Q:Y']""""  S Z0=$P(^FB7078(D0,0),U,2) I $P(Z0,"";"",2)=""FBAAV("" S Y=$S($D(^FBAAV(+Z0,0)):$E($P(^(0),U),1,20)_"" ""_$P(^(0),U,2),1:"""") K Z0"
^DD(162.4,1,2.1)="S Y(0)=Y Q:Y']""""  S Z0=$P(^FB7078(D0,0),U,2) I $P(Z0,"";"",2)=""FBAAV("" S Y=$S($D(^FBAAV(+Z0,0)):$E($P(^(0),U),1,20)_"" ""_$P(^(0),U,2),1:"""") K Z0"
^DD(162.4,1,21,0)="^^2^2^2890124^"
^DD(162.4,1,21,1,0)="This is the vendor that is entered in the request/"
^DD(162.4,1,21,2,0)="notification process."
^DD(162.4,1,"DT")="2900904"
^DD(162.4,1,"V",0)="^.12P^1^1"
^DD(162.4,1,"V",1,0)="161.2^FEE VENDOR^1^FB^^y"
^DD(162.4,1,"V","B",161.2,1)=""
^DD(162.4,1,"V","M","FEE VENDOR",1)=""
^DD(162.4,1,"V","O",1,1)=""
^DD(162.4,1,"V","P","FB",1)=""
^DD(162.4,2,0)="VETERAN^RP2'^DPT(^0;3^Q"
^DD(162.4,2,1,0)="^.1"
^DD(162.4,2,1,1,0)="162.4^D"
^DD(162.4,2,1,1,1)="S ^FB7078(""D"",$E(X,1,30),DA)="""""
^DD(162.4,2,1,1,2)="K ^FB7078(""D"",$E(X,1,30),DA)"
^DD(162.4,2,1,2,0)="162.4^AB^MUMPS"
^DD(162.4,2,1,2,1)="S ^FB7078(""AB"",$E(X,1,30),$P($P(^FB7078(DA,0),""^"",1),""."",1),DA)="""""
^DD(162.4,2,1,2,2)="K ^FB7078(""AB"",$E(X,1,30),$P($P(^FB7078(DA,0),""^"",1),""."",1),DA)"
^DD(162.4,2,1,2,"%D",0)="^^1^1^2930820^"
^DD(162.4,2,1,2,"%D",1,0)=" "
^DD(162.4,2,1,3,0)="162.4^AC1^MUMPS"
^DD(162.4,2,1,3,1)="S:$P(^FB7078(DA,0),U,9)]"""" ^FB7078(""AC"",$E($P(^FB7078(DA,0),U,9),1,30),X,DA)="""""
^DD(162.4,2,1,3,2)="K:$P(^FB7078(DA,0),U,9)]"""" ^FB7078(""AC"",$E($P(^FB7078(DA,0),U,9),1,30),X,DA)"
^DD(162.4,2,1,3,"%D",0)="^^1^1^2930820^"
^DD(162.4,2,1,3,"%D",1,0)="Cross reference by status and veteran."
^DD(162.4,2,1,3,"DT")="2930820"
^DD(162.4,2,21,0)="^^2^2^2890124^"
^DD(162.4,2,21,1,0)="This is the veteran that was entered in the request/"
^DD(162.4,2,21,2,0)="notification process."
^DD(162.4,2,"DT")="2930820"
^DD(162.4,3,0)="AUTHORIZATION FROM DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.4,3,1,0)="^.1"
^DD(162.4,3,1,1,0)="162.4^AA^MUMPS"
^DD(162.4,3,1,1,1)="S ^FB7078(""AA"",$P(^FB7078(DA,0),U,11),$E(X,1,30),DA)="""""
^DD(162.4,3,1,1,2)="K ^FB7078(""AA"",$P(^FB7078(DA,0),U,11),$E(X,1,30),DA)"
^DD(162.4,3,21,0)="^^2^2^2930315^^"
^DD(162.4,3,21,1,0)="This is the date that is entered in the 'Authorization From Date'"
^DD(162.4,3,21,2,0)="field during the request/notification process."
^DD(162.4,3,"DT")="2900501"
^DD(162.4,3.5,0)="DATE OF ADMISSION^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.4,3.5,21,0)="^^2^2^2930315^"
^DD(162.4,3.5,21,1,0)="This is the date that is entered in the 'Date of Admission'"
^DD(162.4,3.5,21,2,0)="field during the request/notification process."
^DD(162.4,3.5,"DT")="2930315"
^DD(162.4,4,0)="AUTHORIZATION TO DATE^RDX^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FB7078(DA,0),U,4)>X K X W !!,""To Date cannot be earlier than the From Date!"",!"
^DD(162.4,4,1,0)="^.1"
^DD(162.4,4,1,1,0)="162.4^AD^MUMPS"
^DD(162.4,4,1,1,1)="S ^FB7078(""AD"",$P(^FB7078(DA,0),""^"",11),$E(X,1,30),DA)="""""
^DD(162.4,4,1,1,2)="K ^FB7078(""AD"",$P(^FB7078(DA,0),""^"",11),$E(X,1,30),DA)"
^DD(162.4,4,21,0)="^^2^2^2930315^^"
^DD(162.4,4,21,1,0)="This is the date you determine"
^DD(162.4,4,21,2,0)="the VA will no longer cover the veteran."
^DD(162.4,4,"DT")="2930510"
^DD(162.4,4.5,0)="DATE OF DISCHARGE^DX^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FB7078(DA,0),U,5)>X K X W !!,""Date of Discharge cannot be earlier than the Authorization To Date!"",!"
^DD(162.4,4.5,21,0)="^^1^1^2930315^"
^DD(162.4,4.5,21,1,0)="This is the actual date of discharge."
^DD(162.4,4.5,"DT")="2930315"
^DD(162.4,5,0)="AUTHORITY^RP43.4'^DIC(43.4,^0;6^Q"
^DD(162.4,5,21,0)="^^2^2^2890124^"
^DD(162.4,5,21,1,0)="This field is the Admitting Authority used for the"
^DD(162.4,5,21,2,0)="authorization."
^DD(162.4,5,"DT")="2890130"
^DD(162.4,6,0)="ESTIMATED AMOUNT^RNJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<.01) X"
^DD(162.4,6,3)="Type a Dollar Amount between .01 and 999999, 2 Decimal Digits"
^DD(162.4,6,21,0)="^^3^3^2901104^^"
^DD(162.4,6,21,1,0)="This dollar amount is the best estimate of costs that"
^DD(162.4,6,21,2,0)="will be incurred by the veteran. This dollar amount is"
^DD(162.4,6,21,3,0)="passed to IFCAP."
^DD(162.4,7,0)="AUTHORIZED SERVICES^162.47^^1;0"
^DD(162.4,7,21,0)="^^6^6^2900409^^"
^DD(162.4,7,21,1,0)="This is a word processing field that should contain a statement"
^DD(162.4,7,21,2,0)="similar to the following:"
^DD(162.4,7,21,3,0)=" ""Hospitalization and Professional care necessary until the"
^DD(162.4,7,21,4,0)="  patients condition is stabilized or improved enough to permit"
^DD(162.4,7,21,5,0)="  transfer without hazard to a VA or other Federal facility for"
^DD(162.4,7,21,6,0)="  continued treatment."" or ""Hospitalization and Professional Care""."
^DD(162.4,8,0)="USER ENTERING^P200'^VA(200,^0;8^Q"
^DD(162.4,8,21,0)="^^1^1^2890124^"
^DD(162.4,8,21,1,0)="This is the name of the user that enters the authorization."
^DD(162.4,8,"DT")="2900405"
^DD(162.4,9,0)="STATUS^S^C:COMPLETE;I:INCOMPLETE;DC:CANCELLED;^0;9^Q"
^DD(162.4,9,1,0)="^.1"
^DD(162.4,9,1,1,0)="162.4^AC^MUMPS"
^DD(162.4,9,1,1,1)="S:+$P(^FB7078(DA,0),U,3) ^FB7078(""AC"",$E(X,1,30),$P(^FB7078(DA,0),U,3),DA)="""""
^DD(162.4,9,1,1,2)="K:+$P(^FB7078(DA,0),U,3) ^FB7078(""AC"",$E(X,1,30),$P(^FB7078(DA,0),U,3),DA)"
^DD(162.4,9,1,1,"%D",0)="^^1^1^2930820^"
^DD(162.4,9,1,1,"%D",1,0)="Cross-reference by status and patient."
^DD(162.4,9,1,1,"DT")="2930820"
^DD(162.4,9,21,0)="^^4^4^2890124^"
^DD(162.4,9,21,1,0)="The status of the 7078/authorization remains 'Incomplete'"
^DD(162.4,9,21,2,0)="until a discharge date is entered. At that time the status"
^DD(162.4,9,21,3,0)="is updated to complete and a corresponding authorization"
^DD(162.4,9,21,4,0)="is built in file 161."
^DD(162.4,9,"DT")="2930820"
^DD(162.4,10,0)="DATE OF ISSUE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.4,10,21,0)="^^1^1^2890124^"
^DD(162.4,10,21,1,0)="This is the date the user sets up the 7078."
^DD(162.4,12,0)="REASON FOR PENDING DISPOSITION^S^1:FOLLOW-UP/NOT STABLE;2:AWAITING DISCHARGE/TRANSFER;^0;12^Q"
^DD(162.4,12,21,0)="^^3^3^2890124^"
^DD(162.4,12,21,1,0)="If the status of a 7078 is Incomplete, that is the discharge"
^DD(162.4,12,21,2,0)="date has not been entered, the user is prompted with this field."
^DD(162.4,12,21,3,0)="Once the status of the 7078 is Complete this field is set to null."
^DD(162.4,12,"DT")="2890124"
^DD(162.4,"B","AUTHORITY",5)=""
^DD(162.4,"B","AUTHORIZATION FROM DATE",3)=""
^DD(162.4,"B","AUTHORIZATION TO DATE",4)=""
^DD(162.4,"B","AUTHORIZED SERVICES",7)=""
^DD(162.4,"B","DATE CANCELLED",.014)=""
^DD(162.4,"B","DATE OF ADMISSION",3.5)=""
^DD(162.4,"B","DATE OF DISCHARGE",4.5)=""
^DD(162.4,"B","DATE OF ISSUE",10)=""
^DD(162.4,"B","ESTIMATED AMOUNT",6)=""
^DD(162.4,"B","FEE PROGRAM",.5)=""
^DD(162.4,"B","REASON FOR PENDING DISPOSITION",12)=""
^DD(162.4,"B","REFERENCE NUMBER",.01)=""
^DD(162.4,"B","STATUS",9)=""
^DD(162.4,"B","USER ENTERING",8)=""
^DD(162.4,"B","USER WHO CANCELLED",.013)=""
^DD(162.4,"B","VENDOR",1)=""
^DD(162.4,"B","VETERAN",2)=""
^DD(162.4,"GL",0,1,.01)=""
^DD(162.4,"GL",0,2,1)=""
^DD(162.4,"GL",0,3,2)=""
^DD(162.4,"GL",0,4,3)=""
^DD(162.4,"GL",0,5,4)=""
^DD(162.4,"GL",0,6,5)=""
^DD(162.4,"GL",0,7,6)=""
^DD(162.4,"GL",0,8,8)=""
^DD(162.4,"GL",0,9,9)=""
^DD(162.4,"GL",0,10,10)=""
^DD(162.4,"GL",0,11,.5)=""
^DD(162.4,"GL",0,12,12)=""
^DD(162.4,"GL",0,13,.013)=""
^DD(162.4,"GL",0,14,.014)=""
^DD(162.4,"GL",0,15,3.5)=""
^DD(162.4,"GL",0,16,4.5)=""
^DD(162.4,"GL",1,0,7)=""
^DD(162.4,"IX",.01)=""
^DD(162.4,"IX",1)=""
^DD(162.4,"IX",2)=""
^DD(162.4,"IX",3)=""
^DD(162.4,"IX",4)=""
^DD(162.4,"IX",9)=""
^DD(162.4,"RQ",.01)=""
^DD(162.4,"RQ",.5)=""
^DD(162.4,"RQ",1)=""
^DD(162.4,"RQ",2)=""
^DD(162.4,"RQ",4)=""
^DD(162.4,"RQ",5)=""
^DD(162.4,"RQ",6)=""
^DD(162.4,"SB",162.47,7)=""
^DD(162.47,0)="AUTHORIZED SERVICES SUB-FIELD^^.01^1"
^DD(162.47,0,"NM","AUTHORIZED SERVICES")=""
^DD(162.47,0,"UP")="162.4"
^DD(162.47,.01,0)="AUTHORIZED SERVICES^W^^0;1^Q"
^DD(162.47,.01,"DT")="2910117"
^DD(162.47,"B","AUTHORIZED SERVICES",.01)=""
^DD(162.47,"GL",0,1,.01)=""
^DD(162.5,0)="FIELD^^59^57"
^DD(162.5,0,"DT")="2940426"
^DD(162.5,0,"IX","AC",162.5,20)=""
^DD(162.5,0,"IX","ACK",162.5,48)=""
^DD(162.5,0,"IX","AD",162.5,19)=""
^DD(162.5,0,"IX","AF",162.5,2)=""
^DD(162.5,0,"IX","AG",162.5,3)=""
^DD(162.5,0,"IX","AH",162.5,15)=""
^DD(162.5,0,"IX","AJ",162.5,4)=""
^DD(162.5,0,"IX","AK",162.5,3)=""
^DD(162.5,0,"IX","AK1",162.5,2)=""
^DD(162.5,0,"IX","AP",162.5,19)=""
^DD(162.5,0,"IX","B",162.5,.01)=""
^DD(162.5,0,"IX","C",162.5,2)=""
^DD(162.5,0,"IX","D",162.5,3)=""
^DD(162.5,0,"NM","FEE BASIS INVOICE")=""
^DD(162.5,0,"VR")="3.5"
^DD(162.5,0,"VRPK")="FB"
^DD(162.5,.01,0)="NUMBER^RNJ8,0X^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N)!('$$CHKBI^FBAAUTL4(X)) X S:$D(X) DINUM=X"
^DD(162.5,.01,1,0)="^.1"
^DD(162.5,.01,1,1,0)="162.5^B"
^DD(162.5,.01,1,1,1)="S ^FBAAI(""B"",$E(X,1,30),DA)="""""
^DD(162.5,.01,1,1,2)="K ^FBAAI(""B"",$E(X,1,30),DA)"
^DD(162.5,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(162.5,.01,21,0)="^^1^1^2930514^"
^DD(162.5,.01,21,1,0)="This field contains the internal entry number for the Fee Basis Invoice."
^DD(162.5,.01,"DT")="2940722"
^DD(162.5,1,0)="INVOICE DATE RECEIVED^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.5,1,1,0)="^.1^^0"
^DD(162.5,1,21,0)="^^2^2^2930519^^^"
^DD(162.5,1,21,1,0)="This field contains the date the correct invoice was received.  It is"
^DD(162.5,1,21,2,0)="used by Austin for the calculation of any applicable interest payments."
^DD(162.5,1,"DT")="3000131"
^DD(162.5,2,0)="VENDOR^RP161.2'^FBAAV(^0;3^Q"
^DD(162.5,2,1,0)="^.1"
^DD(162.5,2,1,1,0)="162.5^C"
^DD(162.5,2,1,1,1)="S ^FBAAI(""C"",$E(X,1,30),DA)="""""
^DD(162.5,2,1,1,2)="K ^FBAAI(""C"",$E(X,1,30),DA)"
^DD(162.5,2,1,2,0)="162.5^AF^MUMPS"
^DD(162.5,2,1,2,1)="S ^FBAAI(""AF"",$E(X,1,30),9999999.9999-$P(^FBAAI(DA,0),U,2),DA)="""""
^DD(162.5,2,1,2,2)="K ^FBAAI(""AF"",$E(X,1,30),9999999.9999-$P(^FBAAI(DA,0),U,2),DA)"
^DD(162.5,2,1,3,0)="162.5^AK1^MUMPS"
^DD(162.5,2,1,3,1)="S:$P(^FBAAI(DA,0),U,4) ^FBAAI(""AK"",$P(^(0),U,4),$E(X,1,30),DA)="""""
^DD(162.5,2,1,3,2)="K:$P(^FBAAI(DA,0),U,4) ^FBAAI(""AK"",$P(^(0),U,4),$E(X,1,30),DA)"
^DD(162.5,2,1,3,"%D",0)="^^2^2^2930514^^"
^DD(162.5,2,1,3,"%D",1,0)="Update cross-reference on veteran field, which includes vendor."
^DD(162.5,2,1,3,"%D",2,0)="Used for displaying payment data by veteran."
^DD(162.5,2,1,3,"DT")="2930303"
^DD(162.5,2,21,0)="^^2^2^2930514^"
^DD(162.5,2,21,1,0)="Reference to the vendor file, this field contains the name of the vendor"
^DD(162.5,2,21,2,0)="associated with this invoice."
^DD(162.5,2,"DT")="3000131"
^DD(162.5,3,0)="VETERAN^RP161'^FBAAA(^0;4^Q"
^DD(162.5,3,1,0)="^.1"
^DD(162.5,3,1,1,0)="162.5^D"
^DD(162.5,3,1,1,1)="S ^FBAAI(""D"",$E(X,1,30),DA)="""""
^DD(162.5,3,1,1,2)="K ^FBAAI(""D"",$E(X,1,30),DA)"
^DD(162.5,3,1,2,0)="162.5^AG^MUMPS"
^DD(162.5,3,1,2,1)="S ^FBAAI(""AG"",$E(X,1,30),9999999.9999-$P(^FBAAI(DA,0),U,2),DA)="""""
^DD(162.5,3,1,2,2)="K ^FBAAI(""AG"",$E(X,1,30),9999999.9999-$P(^FBAAI(DA,0),U,2),DA)"
^DD(162.5,3,1,3,0)="162.5^AK^MUMPS"
^DD(162.5,3,1,3,1)="S:$P(^FBAAI(DA,0),U,3) ^FBAAI(""AK"",$E(X,1,30),$P(^FBAAI(DA,0),U,3),DA)="""""
^DD(162.5,3,1,3,2)="K:$P(^FBAAI(DA,0),U,3) ^FBAAI(""AK"",$E(X,1,30),$P(^(0),U,3),DA)"
^DD(162.5,3,1,3,"%D",0)="^^1^1^2930514^^^^"
^DD(162.5,3,1,3,"%D",1,0)="Cross-reference on veteran field to  include vendor."
^DD(162.5,3,1,3,"DT")="2930303"
^DD(162.5,3,21,0)="^^2^2^2930514^"
^DD(162.5,3,21,1,0)="Reference the Fee Basis Patient file, this field contains the name of"
^DD(162.5,3,21,2,0)="the veteran for which this invoice is established."
^DD(162.5,3,"DT")="3000131"
^DD(162.5,4,0)="ASSOCIATED 7078/583^V^^0;5^Q"
^DD(162.5,4,1,0)="^.1"
^DD(162.5,4,1,1,0)="162.5^AJ^MUMPS"
^DD(162.5,4,1,1,1)="S ^FBAAI(""E"",$E(X,1,30),DA)="""""
^DD(162.5,4,1,1,2)="K ^FBAAI(""E"",$E(X,1,30),DA)"
^DD(162.5,4,3)=""
^DD(162.5,4,21,0)="^^2^2^2930514^^"
^DD(162.5,4,21,1,0)="This field contains the pointer to the appropriate 7078 or"
^DD(162.5,4,21,2,0)="583 file."
^DD(162.5,4,"DT")="2901011"
^DD(162.5,4,"V",0)="^.12P^2^2"
^DD(162.5,4,"V",1,0)="162.4^Select associated 7078^1^AUTH^^n"
^DD(162.5,4,"V",2,0)="162.7^Select associated 583^2^UNAUTH^^n"
^DD(162.5,4,"V","B",162.4,1)=""
^DD(162.5,4,"V","B",162.7,2)=""
^DD(162.5,4,"V","M","Select associated 583",2)=""
^DD(162.5,4,"V","M","Select associated 7078",1)=""
^DD(162.5,4,"V","O",1,1)=""
^DD(162.5,4,"V","O",2,2)=""
^DD(162.5,4,"V","P","AUTH",1)=""
^DD(162.5,4,"V","P","UNAUTH",2)=""
^DD(162.5,5,0)="TREATMENT FROM DATE^RD^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.5,5,1,0)="^.1^^0"
^DD(162.5,5,21,0)="^^2^2^2930514^^"
^DD(162.5,5,21,1,0)="Information in this field indicates the starting date for this invoice."
^DD(162.5,5,21,2,0)="(i.e. the starting treatment date for which this billing covers)."
^DD(162.5,5,"DT")="3000131"
^DD(162.5,6,0)="TREATMENT TO DATE^RDX^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^FBAAI(DA,0),U,6)>X K X W !,*7,""To Date cannot be before From date!"",!"
^DD(162.5,6,3)=""
^DD(162.5,6,21,0)="^^2^2^2930519^^"
^DD(162.5,6,21,1,0)="Information in this field indicates the ending date for this invoice."
^DD(162.5,6,21,2,0)="(i.e. the ending treatment date this billing covers)."
^DD(162.5,6,"DT")="2910129"
^DD(162.5,6.5,0)="DISCHARGE TYPE CODE^P162.6'^FBAA(162.6,^0;21^Q"
^DD(162.5,6.5,21,0)="^^2^2^2930514^"
^DD(162.5,6.5,21,1,0)="This field contains the code pertaining to the type of discharge"
^DD(162.5,6.5,21,2,0)="associated with this invoice."
^DD(162.5,6.5,"DT")="2900416"
^DD(162.5,6.6,0)="BILLED CHARGES^RNJ9,2^^0;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<.01) X"
^DD(162.5,6.6,3)="Type a Dollar Amount between .01 and 999999.99, 2 Decimal Digits"
^DD(162.5,6.6,21,0)="^^2^2^2930514^"
^DD(162.5,6.6,21,1,0)="This field contains cost information on the amount the VA was initially"
^DD(162.5,6.6,21,2,0)="billed by the vendor for an inpatient stay."
^DD(162.5,6.6,"DT")="2900416"
^DD(162.5,6.7,0)="PAYMENT BY MEDICARE/FED AGENCY^RFXO^^0;23^I $D(X) D YN^FBAAUTL3"
^DD(162.5,6.7,2)="S Y(0)=Y D OUTYN^FBAAUTL3"
^DD(162.5,6.7,2.1)="D OUTYN^FBAAUTL3"
^DD(162.5,6.7,3)="Answer 'Yes' or '1' for YES and 'No' or '0' for NO."
^DD(162.5,6.7,21,0)="^^3^3^2940906^^^^"
^DD(162.5,6.7,21,1,0)="Answer 'Yes' if Medicare or some other"
^DD(162.5,6.7,21,2,0)="federal agency has paid some of the"
^DD(162.5,6.7,21,3,0)="bill for contract hospital."
^DD(162.5,6.7,"DT")="2940318"
^DD(162.5,7,0)="AMOUNT CLAIMED^RNJ9,2X^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<.01) X I $D(X),$P(^FBAAI(DA,0),U,12)=6,$P(^(0),U,22)<X K X W !,*7,""Amount Claimed cannot be greater than the 'BILLED CHARGES'."",!"
^DD(162.5,7,3)="Type a Dollar Amount between .01 and 999999, 2 Decimal Digits"
^DD(162.5,7,21,0)="^^3^3^2930514^"
^DD(162.5,7,21,1,0)="The portion of the billed charges that the vendor is requesting payment"
^DD(162.5,7,21,2,0)="for from the VA.  Usually the billed charges and the amount claimed"
^DD(162.5,7,21,3,0)="will be the same."
^DD(162.5,7,"DT")="2910204"
^DD(162.5,8,0)="AMOUNT PAID^RNJ9,2X^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X I $D(X),$P(^FBAAI(DA,0),U,12)'=6,$P(^FBAAI(DA,0),U,8)<X W !,*7,""Amount Paid cannot be greater than Amount Claimed !"",! K X"
^DD(162.5,8,1,0)="^.1^^0"
^DD(162.5,8,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.5,8,21,0)="^^2^2^2930514^"
^DD(162.5,8,21,1,0)="The dollar amount that was actually paid to the vendor for the service"
^DD(162.5,8,21,2,0)="provided."
^DD(162.5,8,"DT")="3030807"
^DD(162.5,9,0)="AMOUNT SUSPENDED^NJ9,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.5,9,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.5,9,21,0)="^^2^2^2950110^^^"
^DD(162.5,9,21,1,0)="This field allows the user to enter in a dollar amount which cannot exceed"
^DD(162.5,9,21,2,0)="$999,999 dollars."
^DD(162.5,9,"DT")="2900614"
^DD(162.5,10,0)="SUSPEND CODE^P161.27'^FBAA(161.27,^0;11^Q"
^DD(162.5,10,1,0)="^.1^^0"
^DD(162.5,10,21,0)="^^2^2^2930514^"
^DD(162.5,10,21,1,0)="If an amount was suspended, the user is requested to indicate the reason"
^DD(162.5,10,21,2,0)="for suspense from the selection of suspense codes."
^DD(162.5,10,"DT")="3000131"
^DD(162.5,11,0)="FEE PROGRAM^RP161.8'^FBAA(161.8,^0;12^Q"
^DD(162.5,11,21,0)="^^3^3^2930514^"
^DD(162.5,11,21,1,0)="This field contains the valid Fee Program associated with this Invoice"
^DD(162.5,11,21,2,0)="as contained in the Fee Basis Program file (i.e. Contract Hospital or"
^DD(162.5,11,21,3,0)="Community Nursing Home for an inpatient stay)."
^DD(162.5,12,0)="PAYMENT TYPE CODE^S^R:REIMBURSEMENT;V:VENDOR;S:STATISTICAL;SR:STAT-REIMBURSEMENT;^0;13^Q"
^DD(162.5,12,21,0)="^^8^8^2940926^^^"
^DD(162.5,12,21,1,0)="An entry of 'R' will indicate the invoice is for a reimbursement to the"
^DD(162.5,12,21,2,0)="veteran for services that he/she has already paid."
^DD(162.5,12,21,3,0)="An entry of 'V' will indicate the invoice is for a payment directly to"
^DD(162.5,12,21,4,0)="a vendor."
^DD(162.5,12,21,5,0)="An entry of 'S' will indicate the invoice was paid ""out of system"""
^DD(162.5,12,21,6,0)="to a vendor and allows the update of the payment history files."
^DD(162.5,12,21,7,0)="An entry of 'SR' will indicate a statistical reimbursement to a"
^DD(162.5,12,21,8,0)="party other than the vendor."
^DD(162.5,13,0)="REJECT STATUS^S^P:REJECTED, PENDING ACTION;C:REJECTED, COMPLETED;^FBREJ;1^Q"
^DD(162.5,13,21,0)="^^4^4^2930514^"
^DD(162.5,13,21,1,0)="An entry in this field will indicate that the invoice has been rejected."
^DD(162.5,13,21,2,0)="An entry of 'P' will indicate the invoice has been rejected"
^DD(162.5,13,21,3,0)="and it is awaiting action.  An entry of 'C' will indicate the invoice"
^DD(162.5,13,21,4,0)="has been rejected and action on it has been completed."
^DD(162.5,14,0)="REJECT REASON^F^^FBREJ;2^K:$L(X)>40!($L(X)<2) X"
^DD(162.5,14,3)="Answer must be 2-40 characters in length."
^DD(162.5,14,21,0)="^^2^2^2930514^"
^DD(162.5,14,21,1,0)="If the invoice has a status of rejected, the user will be prompted to"
^DD(162.5,14,21,2,0)="enter a reason that the reject has occurred."
^DD(162.5,15,0)="OLD BATCH NUMBER^P161.7'^FBAA(161.7,^FBREJ;3^Q"
^DD(162.5,15,1,0)="^.1"
^DD(162.5,15,1,1,0)="162.5^AH^MUMPS"
^DD(162.5,15,1,1,1)="S ^FBAAI(""AH"",$E(X,1,30),DA)="""""
^DD(162.5,15,1,1,2)="K ^FBAAI(""AH"",$E(X,1,30),DA)"
^DD(162.5,15,21,0)="^^3^3^2930514^"
^DD(162.5,15,21,1,0)="This field is populated only if there is a reject pending.  It will contain"
^DD(162.5,15,21,2,0)="the batch number of the old batch associated with the invoice.  This is"
^DD(162.5,15,21,3,0)="to provide a link back to that batch if the user deletes the reject."
^DD(162.5,15,"DT")="2890131"
^DD(162.5,16,0)="VOID PAYMENT^S^VP:VOIDED PAYMENT;^0;14^Q"
^DD(162.5,16,21,0)="^^2^2^2930514^"
^DD(162.5,16,21,1,0)="Entry into this field is made when the user indicates the payment must"
^DD(162.5,16,21,2,0)="be voided."
^DD(162.5,16.5,0)="REASON FOR VOIDED PAYMENT^F^^R;1^K:$L(X)>75!($L(X)<3) X"
^DD(162.5,16.5,3)="Answer must be 3-75 characters in length."
^DD(162.5,16.5,21,0)="^^2^2^2930514^"
^DD(162.5,16.5,21,1,0)="This field is only populated if the Void Payment field is flagged for a"
^DD(162.5,16.5,21,2,0)="void.  The user is prompted to enter a reason the payment was voided."
^DD(162.5,16.5,"DT")="2930304"
^DD(162.5,17,0)="SUPERVISOR WHO VOIDED^P200'^VA(200,^0;15^Q"
^DD(162.5,17,21,0)="^^3^3^2930514^"
^DD(162.5,17,21,1,0)="This field is only populated when the Void Payment field is flagged for"
^DD(162.5,17,21,2,0)="a void.  The field is stuffed with the user who voided the payment (and"
^DD(162.5,17,21,3,0)="in all instances, the user must be a supervisor)."
^DD(162.5,17,"DT")="2900405"
^DD(162.5,18,0)="DESCRIPTION OF SUSPENSION^162.518^^1;0"
^DD(162.5,18,21,0)="^^3^3^2930514^"
^DD(162.5,18,21,1,0)="This field is only populated when there is a dollar amount that has been"
^DD(162.5,18,21,2,0)="suspended.  The user is prompted to enter a description of the suspension"
^DD(162.5,18,21,3,0)="in word-processing format."
^DD(162.5,19,0)="DATE FINALIZED^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.5,19,1,0)="^.1"
^DD(162.5,19,1,1,0)="162.5^AP^MUMPS"
^DD(162.5,19,1,1,1)="S:$P(^FBAAI(DA,0),U,20)]"""" ^FBAAI(""AP"",$P(^FBAAI(DA,0),U,20),9999999-$E(X,1,30),DA)="""""
^DD(162.5,19,1,1,2)="K:$P(^FBAAI(DA,0),U,20)]"""" ^FBAAI(""AP"",$P(^FBAAI(DA,0),U,20),9999999-$E(X,1,30),DA)"
^DD(162.5,19,1,2,0)="162.5^AD"
^DD(162.5,19,1,2,1)="S ^FBAAI(""AD"",$E(X,1,30),DA)="""""
^DD(162.5,19,1,2,2)="K ^FBAAI(""AD"",$E(X,1,30),DA)"
^DD(162.5,19,21,0)="^^1^1^2930514^"
^DD(162.5,19,21,1,0)="This field contains the date the invoice was vouchered by Fiscal."
^DD(162.5,19,"DT")="2900611"
^DD(162.5,20,0)="BATCH NUMBER^*P161.7'^FBAA(161.7,^0;17^S DIC(""S"")=""I $P(^(0),U,3)=""""B9""""&($P(^(0),U,5)=DUZ)&($P(^(""""ST""""),U,1)=""""O"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.5,20,1,0)="^.1^^-1"
^DD(162.5,20,1,1,0)="162.5^AC^MUMPS"
^DD(162.5,20,1,1,1)="S ^FBAAI(""AC"",$E(X,1,30),DA)="""""
^DD(162.5,20,1,1,2)="K ^FBAAI(""AC"",$E(X,1,30),DA)"
^DD(162.5,20,12)="ONLY BATCHES WITH A STATUS OF 'OPEN'"
^DD(162.5,20,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""B9""""&($P(^(0),U,5)=DUZ)&($P(^(""""ST""""),U,1)=""""O"""")"""
^DD(162.5,20,21,0)="^^2^2^2930514^"
^DD(162.5,20,21,1,0)="This field contains the batch number associated with this invoice."
^DD(162.5,20,21,2,0)="(The batch number that the invoice resides in)."
^DD(162.5,20,"DT")="3000131"
^DD(162.5,21,0)="PURPOSE OF VISIT^*P161.82'^FBAA(161.82,^0;18^S DIC(""S"")=""I $S('$G(^(""""I"""")):1,DT'>^(""""I""""):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.5,21,12)="An inactive Purpose of Visit Code may not be selected."
^DD(162.5,21,12.1)="S DIC(""S"")=""I $S('$G(^(""""I"""")):1,DT'>^(""""I""""):1,1:0)"""
^DD(162.5,21,21,0)="^^2^2^2930514^"
^DD(162.5,21,21,1,0)="Contains the valid Purpose of Visit code as defined in the Fee Basis"
^DD(162.5,21,21,2,0)="Purpose of Visit file."
^DD(162.5,21,"DT")="2930205"
^DD(162.5,22,0)="PATIENT TYPE CODE^S^00:SURGICAL;10:MEDICAL;60:HOME NURSING SERVICE;85:PSYCHIATRIC-CONTRACT;86:PSYCHIATRIC;95:NEUROLOGICAL-CONTRACT;96:NEUROLOGICAL;^0;19^Q"
^DD(162.5,22,21,0)="^^2^2^2930514^"
^DD(162.5,22,21,1,0)="This field requires the entry of the type of treatment being provided"
^DD(162.5,22,21,2,0)="to the patient (i.e. Surgical, Medical, Home Nursing Service, etc.)"
^DD(162.5,22,"DT")="2890425"
^DD(162.5,23,0)="PRIMARY SERVICE FACILITY^P4'^DIC(4,^0;20^Q"
^DD(162.5,23,1,0)="^.1^^0"
^DD(162.5,23,21,0)="^^1^1^2941130^^"
^DD(162.5,23,21,1,0)="The VA Hospital responsible for that Veterans care."
^DD(162.5,23,"DT")="2900604"
^DD(162.5,24,0)="DISCHARGE DRG^P80.2'^ICD(^0;24^Q"
^DD(162.5,24,21,0)="^^2^2^2930514^^"
^DD(162.5,24,21,1,0)="This field should contain the discharge DRG that is returned from the"
^DD(162.5,24,21,2,0)="Austin Pricer System."
^DD(162.5,24,23,0)="^^2^2^2930111^"
^DD(162.5,24,23,1,0)="This field is a pointer to the DRG file, however it is the grouped DRG"
^DD(162.5,24,23,2,0)="as calculated by the Austin Pricer system."
^DD(162.5,24,"DT")="2930111"
^DD(162.5,24.5,0)="DRG WEIGHT^NJ8,4^^2;12^K:+X'=X!(X>999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(162.5,24.5,3)="Type a Number between 0 and 999.9999, 4 Decimal Digits"
^DD(162.5,24.5,21,0)="^.001^1^1^3030922^^"
^DD(162.5,24.5,21,1,0)="Enter the DRG weight as reported by the Austin Pricer."
^DD(162.5,24.5,"DT")="3030922"
^DD(162.5,25,0)="RESUBMISSION^S^1:YES;^0;25^Q"
^DD(162.5,25,21,0)="^^3^3^2930514^"
^DD(162.5,25,21,1,0)="Entry into this field indicates that this invoice is a resubmission."
^DD(162.5,25,21,2,0)="Failure to annotate an invoice in such a manner would cause Austin to "
^DD(162.5,25,21,3,0)="reject the payment as duplicate."
^DD(162.5,25,"DT")="2930304"
^DD(162.5,26,0)="NVH PRICER AMOUNT^NJ9,2^^0;26^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<.01) X"
^DD(162.5,26,3)="Type a Dollar Amount between .01 and 999999.99, 2 Decimal Digits"
^DD(162.5,26,21,0)="^^1^1^2930514^"
^DD(162.5,26,21,1,0)="The amount for this payment as determined by the Austin Pricer."
^DD(162.5,26,"DT")="2930322"
^DD(162.5,30,0)="ICD1^RP80'^ICD9(^DX;1^Q"
^DD(162.5,30,21,0)="^^1^1^2930514^"
^DD(162.5,30,21,1,0)="The first valid ICD code associated with this payment."
^DD(162.5,30,"DT")="2900529"
^DD(162.5,31,0)="ICD2^P80'^ICD9(^DX;2^Q"
^DD(162.5,31,3)=""
^DD(162.5,31,21,0)="^^1^1^2930514^"
^DD(162.5,31,21,1,0)="The second valid ICD code (if one exists) associated with this payment."
^DD(162.5,32,0)="ICD3^P80'^ICD9(^DX;3^Q"
^DD(162.5,32,3)=""
^DD(162.5,32,21,0)="^^1^1^2930514^"
^DD(162.5,32,21,1,0)="The third valid ICD code (if one exists) associated with this payment."
^DD(162.5,33,0)="ICD4^P80'^ICD9(^DX;4^Q"
^DD(162.5,33,3)=""
^DD(162.5,33,21,0)="^^1^1^2930514^"
^DD(162.5,33,21,1,0)="The fourth valid ICD code (if one exists) associated with this payment."
^DD(162.5,34,0)="ICD5^P80'^ICD9(^DX;5^Q"
^DD(162.5,34,3)=""
^DD(162.5,34,21,0)="^^1^1^2930514^"
^DD(162.5,34,21,1,0)="The fifth valid ICD code (if one exists) associated with this payment."
^DD(162.5,40,0)="PROC1^P80.1'^ICD0(^PROC;1^Q"
^DD(162.5,40,21,0)="^^1^1^2930514^"
^DD(162.5,40,21,1,0)="The first valid procedure code (if one exists) associated with this payment."
^DD(162.5,41,0)="PROC2^P80.1'^ICD0(^PROC;2^Q"
^DD(162.5,41,3)=""
^DD(162.5,41,21,0)="^^2^2^2930514^"
^DD(162.5,41,21,1,0)="The second valid procedure code (if one exists) associated with this"
^DD(162.5,41,21,2,0)="payment."
^DD(162.5,42,0)="PROC3^P80.1'^ICD0(^PROC;3^Q"
^DD(162.5,42,3)=""
^DD(162.5,42,21,0)="^^2^2^2930514^"
^DD(162.5,42,21,1,0)="The third valid procedure code (if one exists) associated with this"
^DD(162.5,42,21,2,0)="payment."
^DD(162.5,43,0)="PROC4^P80.1'^ICD0(^PROC;4^Q"
^DD(162.5,43,3)=""
^DD(162.5,43,21,0)="^^2^2^2930514^"
^DD(162.5,43,21,1,0)="The fourth valid procedure code (if one exists) associated with this"
^DD(162.5,43,21,2,0)="payment."
^DD(162.5,44,0)="PROC5^P80.1'^ICD0(^PROC;5^Q"
^DD(162.5,44,3)=""
^DD(162.5,44,21,0)="^^2^2^2930514^"
^DD(162.5,44,21,1,0)="The fifth valid procedure code (if one exists) associated with this"
^DD(162.5,44,21,2,0)="payment."
^DD(162.5,45,0)="DATE PAID^D^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(162.5,45,3)="This is the date of the check, as issued by the treasury."
^DD(162.5,45,21,0)="^^4^4^2940315^^"
^DD(162.5,45,21,1,0)="This is the date of the check, as issued by the treasury.  This"
^DD(162.5,45,21,2,0)="information will be passed back to DHCP from the Financial Management"
^DD(162.5,45,21,3,0)="System (FMS) when the check is issued to the vendor.  This field will"
^DD(162.5,45,21,4,0)="use the check date beginning with version 3.5 of Fee Basis."
^DD(162.5,45,"DT")="2940315"
^DD(162.5,46,0)="VENDOR INVOICE DATE^RDX^^2;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I X>$P(^FBAAI(DA,0),U,2) W !,*7,""Vendor Invoice Date cannot be later than the Date Correct Invoice Received"" K X"
^DD(162.5,46,3)="Enter the date the vendor issued the invoice."
^DD(162.5,46,21,0)="^^1^1^2940315^^"
^DD(162.5,46,21,1,0)="This is the date that the vendor issued the invoice."
^DD(162.5,46,"DT")="2940415"
^DD(162.5,47,0)="PROMPT PAY TYPE^S^1:MONEY MANAGED;^2;3^Q"
^DD(162.5,47,3)="Set equal to 1 if payment is subject to interest payments."
^DD(162.5,47,21,0)="^^2^2^2940315^^"
^DD(162.5,47,21,1,0)="Field is set to 1 if the payment is subject to interest payments (prompt"
^DD(162.5,47,21,2,0)="pay)."
^DD(162.5,47,"DT")="2940318"
^DD(162.5,48,0)="CHECK NUMBER^F^^2;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.AN) X"
^DD(162.5,48,1,0)="^.1"
^DD(162.5,48,1,1,0)="162.5^ACK^MUMPS"
^DD(162.5,48,1,1,1)="S ^FBAAI(""ACK"",$E(X,1,30),DA)="""""
^DD(162.5,48,1,1,2)="K ^FBAAI(""ACK"",X,DA)"
^DD(162.5,48,1,1,"%D",0)="^^2^2^2940425^^"
^DD(162.5,48,1,1,"%D",1,0)="This cross-reference is used to find payment line items for specific"
^DD(162.5,48,1,1,"%D",2,0)="check numbers."
^DD(162.5,48,1,1,"DT")="2940425"
^DD(162.5,48,3)="Answer must be 1-8 characters in length."
^DD(162.5,48,21,0)="^^3^3^2940315^^"
^DD(162.5,48,21,1,0)="Contains the check number as issued by the treasury.  This field is updated"
^DD(162.5,48,21,2,0)="after the check is issued, through a server option that records actual"
^DD(162.5,48,21,3,0)="payment information for each Fee payment made."
^DD(162.5,48,"DT")="2940425"
^DD(162.5,49,0)="CANCELLATION DATE^D^^2;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(162.5,49,3)="The date the check was cancelled by the treasury."
^DD(162.5,49,21,0)="^^3^3^2940315^^"
^DD(162.5,49,21,1,0)="This is the date the treasury cancelled the check.  This field is updated"
^DD(162.5,49,21,2,0)="through a server option that records cancellations of previously recorded"
^DD(162.5,49,21,3,0)="payment data."
^DD(162.5,49,"DT")="2940315"
^DD(162.5,50,0)="REASON CODE^P162.95'^FB(162.95,^2;6^Q"
^DD(162.5,50,3)="Enter the reason the check was cancelled."
^DD(162.5,50,21,0)="^^3^3^2940315^^"
^DD(162.5,50,21,1,0)="This field contains a pointer to the Fee Basis Check Cancellation Reason"
^DD(162.5,50,21,2,0)="file.  It is populated through a server option that updates the payment"
^DD(162.5,50,21,3,0)="record when the treasury cancels a check that was previously payed."
^DD(162.5,50,"DT")="2940315"
^DD(162.5,51,0)="CANCELLATION ACTIVITY^S^R:WILL BE REPLACED;C:WILL BE REISSUED;X:WILL NOT BE REISSUED;^2;7^Q"
^DD(162.5,51,3)="Field will contain cancellation code if there has been cancellation activity on this payment."
^DD(162.5,51,21,0)="^^7^7^2940315^^"
^DD(162.5,51,21,1,0)="This field is populated when a cancellation is recorded for the payment"
^DD(162.5,51,21,2,0)="referenced.  This field will always remain populated, to indicate that"
^DD(162.5,51,21,3,0)="there was cancellation activity on this payment at one time.  New payments"
^DD(162.5,51,21,4,0)="will replace the cancellation date and reason code fields, but the"
^DD(162.5,51,21,5,0)="cancellation activity flag will not be overwritten.  This flag will allow"
^DD(162.5,51,21,6,0)="the user to know that previous cancellation activity existed, and to"
^DD(162.5,51,21,7,0)="review the cancellation history output for further information."
^DD(162.5,51,"DT")="2940426"
^DD(162.5,52,0)="DISBURSED AMOUNT^NJ9,2^^2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.5,52,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.5,52,21,0)="^^1^1^2940420^^"
^DD(162.5,52,21,1,0)="This is the dollar amount paid by the treasury, less any interest paid."
^DD(162.5,52,"DT")="2940421"
^DD(162.5,53,0)="INTEREST AMOUNT^NJ9,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(162.5,53,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(162.5,53,21,0)="^^1^1^2940420^^"
^DD(162.5,53,21,1,0)="The interest amount paid on this line item by the treasury."
^DD(162.5,53,"DT")="2940421"
^DD(162.5,54,0)="COVERED DAYS^RNJ5,0^^2;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(162.5,54,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(162.5,54,21,0)="^^2^2^3030617^"
^DD(162.5,54,21,1,0)="This is the number of total number of Inpatient days that the Fee Staff "
^DD(162.5,54,21,2,0)="has determined will be paid.  Enter number of inpatient days to be paid."
^DD(162.5,54,"DT")="3030707"
^DD(162.5,55,0)="PATIENT CONTROL NUMBER^F^^2;11^K:$L(X)>20!($L(X)<1) X"
^DD(162.5,55,3)="Answer must be 1-20 characters in length."
^DD(162.5,55,21,0)="^^2^2^3030617^"
^DD(162.5,55,21,1,0)="Please enter the Patient control number.  This could be either the Patient"
^DD(162.5,55,21,2,0)="Identification Number or Patient Account Number from the vendor's invoice."
^DD(162.5,55,"DT")="3030617"
^DD(162.5,56,0)="FPPS CLAIM ID^F^^3;1^K:$L(X)>32!($L(X)<1)!'(X?1.32N) X"
^DD(162.5,56,3)="Enter a non-zero number from 1 to 32 digits long, 0 decimal digits."
^DD(162.5,56,21,0)="^.001^2^2^3030710^^^"
^DD(162.5,56,21,1,0)="Enter the entire FPPS Claim ID as shown on the invoice document.  (1-32 "
^DD(162.5,56,21,2,0)="character text ID created by FPPS system)."
^DD(162.5,56,"DT")="3030618"
^DD(162.5,57,0)="FPPS LINE ITEM^F^^3;2^K:$L(X)>40!($L(X)<1) X"
^DD(162.5,57,3)="This response must be a number or a list or range or ALL, e.g., 1,3,5 or 2-4,8."
^DD(162.5,57,21,0)="^^8^8^3030617^"
^DD(162.5,57,21,1,0)="Enter the line item sequence number associated with this charge.  Each "
^DD(162.5,57,21,2,0)="charge on the FPPS invoice document will have a line item sequence number "
^DD(162.5,57,21,3,0)="associated with it.  A line item can be entered individually or a group of"
^DD(162.5,57,21,4,0)="charges from multiple lines can be entered.  If all line items in a group"
^DD(162.5,57,21,5,0)="are in numerical sequence, you may enter the first line item sequence"
^DD(162.5,57,21,6,0)="number followed by a hyphen and the last line item sequence number.  If"
^DD(162.5,57,21,7,0)="the grouped charges are not in sequential order, each line item must be"
^DD(162.5,57,21,8,0)="entered individually, followed by a comma."
^DD(162.5,57,"DT")="3030617"
^DD(162.5,58,0)="ADJUSTMENT^162.558P^^8;0"
^DD(162.5,59,0)="REMITTANCE REMARK^162.559P^^9;0"
^DD(162.5,"B","ADJUSTMENT",58)=""
^DD(162.5,"B","AMOUNT CLAIMED",7)=""
^DD(162.5,"B","AMOUNT PAID",8)=""
^DD(162.5,"B","AMOUNT SUSPENDED",9)=""
^DD(162.5,"B","ASSOCIATED 7078/583",4)=""
^DD(162.5,"B","BATCH NUMBER",20)=""
^DD(162.5,"B","BILLED CHARGES",6.6)=""
^DD(162.5,"B","CANCELLATION ACTIVITY",51)=""
^DD(162.5,"B","CANCELLATION DATE",49)=""
^DD(162.5,"B","CHECK NUMBER",48)=""
^DD(162.5,"B","COVERED DAYS",54)=""
^DD(162.5,"B","DATE FINALIZED",19)=""
^DD(162.5,"B","DATE PAID",45)=""
^DD(162.5,"B","DESCRIPTION OF SUSPENSION",18)=""
^DD(162.5,"B","DISBURSED AMOUNT",52)=""
^DD(162.5,"B","DISCHARGE DRG",24)=""
^DD(162.5,"B","DISCHARGE TYPE CODE",6.5)=""
^DD(162.5,"B","DRG WEIGHT",24.5)=""
^DD(162.5,"B","FEE PROGRAM",11)=""
^DD(162.5,"B","FPPS CLAIM ID",56)=""
^DD(162.5,"B","FPPS LINE ITEM",57)=""
^DD(162.5,"B","ICD1",30)=""
^DD(162.5,"B","ICD2",31)=""
^DD(162.5,"B","ICD3",32)=""
^DD(162.5,"B","ICD4",33)=""
^DD(162.5,"B","ICD5",34)=""
^DD(162.5,"B","INTEREST AMOUNT",53)=""
^DD(162.5,"B","INVOICE DATE RECEIVED",1)=""
^DD(162.5,"B","NUMBER",.01)=""
^DD(162.5,"B","NVH PRICER AMOUNT",26)=""
^DD(162.5,"B","OLD BATCH NUMBER",15)=""
^DD(162.5,"B","PATIENT CONTROL NUMBER",55)=""
^DD(162.5,"B","PATIENT TYPE CODE",22)=""
^DD(162.5,"B","PAYMENT BY MEDICARE/FED AGENCY",6.7)=""
^DD(162.5,"B","PAYMENT TYPE CODE",12)=""
^DD(162.5,"B","PRIMARY SERVICE FACILITY",23)=""
^DD(162.5,"B","PROC1",40)=""
^DD(162.5,"B","PROC2",41)=""
^DD(162.5,"B","PROC3",42)=""
^DD(162.5,"B","PROC4",43)=""
^DD(162.5,"B","PROC5",44)=""
^DD(162.5,"B","PROMPT PAY TYPE",47)=""
^DD(162.5,"B","PURPOSE OF VISIT",21)=""
^DD(162.5,"B","REASON CODE",50)=""
^DD(162.5,"B","REASON FOR VOIDED PAYMENT",16.5)=""
^DD(162.5,"B","REJECT REASON",14)=""
^DD(162.5,"B","REJECT STATUS",13)=""
^DD(162.5,"B","REMITTANCE REMARK",59)=""
^DD(162.5,"B","RESUBMISSION",25)=""
^DD(162.5,"B","SUPERVISOR WHO VOIDED",17)=""
^DD(162.5,"B","SUSPEND CODE",10)=""
^DD(162.5,"B","TREATMENT FROM DATE",5)=""
^DD(162.5,"B","TREATMENT TO DATE",6)=""
^DD(162.5,"B","VENDOR",2)=""
^DD(162.5,"B","VENDOR INVOICE DATE",46)=""
^DD(162.5,"B","VETERAN",3)=""
^DD(162.5,"B","VOID PAYMENT",16)=""
^DD(162.5,"GL",0,1,.01)=""
^DD(162.5,"GL",0,2,1)=""
^DD(162.5,"GL",0,3,2)=""
^DD(162.5,"GL",0,4,3)=""
^DD(162.5,"GL",0,5,4)=""
^DD(162.5,"GL",0,6,5)=""
^DD(162.5,"GL",0,7,6)=""
^DD(162.5,"GL",0,8,7)=""
^DD(162.5,"GL",0,9,8)=""
^DD(162.5,"GL",0,10,9)=""
^DD(162.5,"GL",0,11,10)=""
^DD(162.5,"GL",0,12,11)=""
^DD(162.5,"GL",0,13,12)=""
^DD(162.5,"GL",0,14,16)=""
^DD(162.5,"GL",0,15,17)=""
^DD(162.5,"GL",0,16,19)=""
^DD(162.5,"GL",0,17,20)=""
^DD(162.5,"GL",0,18,21)=""
^DD(162.5,"GL",0,19,22)=""
^DD(162.5,"GL",0,20,23)=""
^DD(162.5,"GL",0,21,6.5)=""
^DD(162.5,"GL",0,22,6.6)=""
^DD(162.5,"GL",0,23,6.7)=""
^DD(162.5,"GL",0,24,24)=""
^DD(162.5,"GL",0,25,25)=""
^DD(162.5,"GL",0,26,26)=""
^DD(162.5,"GL",1,0,18)=""
^DD(162.5,"GL",2,1,45)=""
^DD(162.5,"GL",2,2,46)=""
^DD(162.5,"GL",2,3,47)=""
^DD(162.5,"GL",2,4,48)=""
^DD(162.5,"GL",2,5,49)=""
^DD(162.5,"GL",2,6,50)=""
^DD(162.5,"GL",2,7,51)=""
^DD(162.5,"GL",2,8,52)=""
^DD(162.5,"GL",2,9,53)=""
^DD(162.5,"GL",2,10,54)=""
^DD(162.5,"GL",2,11,55)=""
^DD(162.5,"GL",2,12,24.5)=""
^DD(162.5,"GL",3,1,56)=""
^DD(162.5,"GL",3,2,57)=""
^DD(162.5,"GL",8,0,58)=""
^DD(162.5,"GL",9,0,59)=""
^DD(162.5,"GL","DX",1,30)=""
^DD(162.5,"GL","DX",2,31)=""
^DD(162.5,"GL","DX",3,32)=""
^DD(162.5,"GL","DX",4,33)=""
^DD(162.5,"GL","DX",5,34)=""
^DD(162.5,"GL","FBREJ",1,13)=""
^DD(162.5,"GL","FBREJ",2,14)=""
^DD(162.5,"GL","FBREJ",3,15)=""
^DD(162.5,"GL","PROC",1,40)=""
^DD(162.5,"GL","PROC",2,41)=""
^DD(162.5,"GL","PROC",3,42)=""
^DD(162.5,"GL","PROC",4,43)=""
^DD(162.5,"GL","PROC",5,44)=""
^DD(162.5,"GL","R",1,16.5)=""
^DD(162.5,"IX",.01)=""
^DD(162.5,"IX",2)=""
^DD(162.5,"IX",3)=""
^DD(162.5,"IX",4)=""
^DD(162.5,"IX",15)=""
^DD(162.5,"IX",19)=""
^DD(162.5,"IX",20)=""
^DD(162.5,"IX",48)=""
^DD(162.5,"RQ",.01)=""
^DD(162.5,"RQ",1)=""
^DD(162.5,"RQ",2)=""
^DD(162.5,"RQ",3)=""
^DD(162.5,"RQ",5)=""
^DD(162.5,"RQ",6)=""
^DD(162.5,"RQ",6.6)=""
^DD(162.5,"RQ",6.7)=""
^DD(162.5,"RQ",7)=""
^DD(162.5,"RQ",8)=""
^DD(162.5,"RQ",11)=""
^DD(162.5,"RQ",30)=""
^DD(162.5,"RQ",46)=""
^DD(162.5,"RQ",54)=""
^DD(162.5,"SB",162.518,18)=""
^DD(162.5,"SB",162.558,58)=""
^DD(162.5,"SB",162.559,59)=""
^DD(162.518,0)="DESCRIPTION OF SUSPENSION SUB-FIELD^^.01^1"
^DD(162.518,0,"NM","DESCRIPTION OF SUSPENSION")=""
^DD(162.518,0,"UP")="162.5"
^DD(162.518,.01,0)="DESCRIPTION OF SUSPENSION^WL^^0;1^Q"
^DD(162.518,.01,"DT")="2910117"
^DD(162.518,"B","DESCRIPTION OF SUSPENSION",.01)=""
^DD(162.518,"GL",0,1,.01)=""
^DD(162.558,0)="ADJUSTMENT SUB-FIELD^^2^3"
^DD(162.558,0,"DT")="3030625"
^DD(162.558,0,"IX","B",162.558,.01)=""
^DD(162.558,0,"NM","ADJUSTMENT")=""
^DD(162.558,0,"UP")="162.5"
^DD(162.558,.01,0)="ADJUSTMENT REASON^*P161.91'^FB(161.91,^0;1^S DIC(""S"")=""I $P($$AR^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.558,.01,1,0)="^.1"
^DD(162.558,.01,1,1,0)="162.558^B"
^DD(162.558,.01,1,1,1)="S ^FBAAI(DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(162.558,.01,1,1,2)="K ^FBAAI(DA(1),8,""B"",$E(X,1,30),DA)"
^DD(162.558,.01,3)="Select a HIPAA Adjustment (suspense) Reason Code."
^DD(162.558,.01,12)="Only adjustment reasons that are applicable for Fee use can be selected."
^DD(162.558,.01,12.1)="S DIC(""S"")=""I $P($$AR^FBUTL1(Y),U,4)=1"""
^DD(162.558,.01,21,0)="^.001^2^2^3030625^^^^"
^DD(162.558,.01,21,1,0)="Adjustment reason codes explain why the amount paid differs from the "
^DD(162.558,.01,21,2,0)="amount claimed."
^DD(162.558,.01,"DT")="3030625"
^DD(162.558,1,0)="ADJUSTMENT GROUP^R*P161.92'^FB(161.92,^0;2^S DIC(""S"")=""I $P($$AG^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.558,1,3)="Select a HIPAA Adjustment Group Code."
^DD(162.558,1,12)="Only adjustment groups that are applicable for Fee use can be selected."
^DD(162.558,1,12.1)="S DIC(""S"")=""I $P($$AG^FBUTL1(Y),U,4)=1"""
^DD(162.558,1,21,0)="^.001^2^2^3030625^^^^"
^DD(162.558,1,21,1,0)="The Adjustment Group Code pertains to the previously entered adjustment "
^DD(162.558,1,21,2,0)="reason code."
^DD(162.558,1,"DT")="3030625"
^DD(162.558,2,0)="ADJUSTMENT AMOUNT^RNJ9,2X^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X I $D(X) K:+X=0 X"
^DD(162.558,2,3)="Type a non-zero Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(162.558,2,21,0)="^.001^2^2^3030625^^"
^DD(162.558,2,21,1,0)="Enter the dollar amount that is not being paid for this charge per the "
^DD(162.558,2,21,2,0)="adjustment reason."
^DD(162.558,2,"DT")="3030625"
^DD(162.558,"B","ADJUSTMENT AMOUNT",2)=""
^DD(162.558,"B","ADJUSTMENT GROUP",1)=""
^DD(162.558,"B","ADJUSTMENT REASON",.01)=""
^DD(162.558,"GL",0,1,.01)=""
^DD(162.558,"GL",0,2,1)=""
^DD(162.558,"GL",0,3,2)=""
^DD(162.558,"IX",.01)=""
^DD(162.558,"RQ",1)=""
^DD(162.558,"RQ",2)=""
^DD(162.559,0)="REMITTANCE REMARK SUB-FIELD^^.01^1"
^DD(162.559,0,"DT")="3030618"
^DD(162.559,0,"IX","B",162.559,.01)=""
^DD(162.559,0,"NM","REMITTANCE REMARK")=""
^DD(162.559,0,"UP")="162.5"
^DD(162.559,.01,0)="REMITTANCE REMARK^M*P161.93'^FB(161.93,^0;1^S DIC(""S"")=""I $P($$RR^FBUTL1(Y),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.559,.01,1,0)="^.1"
^DD(162.559,.01,1,1,0)="162.559^B"
^DD(162.559,.01,1,1,1)="S ^FBAAI(DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(162.559,.01,1,1,2)="K ^FBAAI(DA(1),9,""B"",$E(X,1,30),DA)"
^DD(162.559,.01,3)="Select a HIPAA Remittance Remark Code."
^DD(162.559,.01,12)="Only remittance remarks applicable for Fee use can be selected."
^DD(162.559,.01,12.1)="S DIC(""S"")=""I $P($$RR^FBUTL1(Y),U,4)=1"""
^DD(162.559,.01,21,0)="^.001^2^2^3030717^^^"
^DD(162.559,.01,21,1,0)="Select a remittance remark code to provide non-financial information "
^DD(162.559,.01,21,2,0)="critical to understanding the adjudication of the claim."
^DD(162.559,.01,"DT")="3030717"
^DD(162.559,"B","REMITTANCE REMARK",.01)=""
^DD(162.559,"GL",0,1,.01)=""
^DD(162.559,"IX",.01)=""
^DD(162.6,0)="FIELD^^1^3"
^DD(162.6,0,"IX","B",162.6,.01)=""
^DD(162.6,0,"IX","C",162.6,1)=""
^DD(162.6,0,"IX","D",162.6,1)=""
^DD(162.6,0,"NM","FEE BASIS DISPOSITION CODE")=""
^DD(162.6,0,"PT",162.5,6.5)=""
^DD(162.6,0,"VR")="3.5"
^DD(162.6,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.6,.001,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(162.6,.001,21,0)="^^1^1^2941128^"
^DD(162.6,.001,21,1,0)="This is the internal number of this file."
^DD(162.6,.001,"DT")="2900731"
^DD(162.6,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(162.6,.01,1,0)="^.1"
^DD(162.6,.01,1,1,0)="162.6^B"
^DD(162.6,.01,1,1,1)="S ^FBAA(162.6,""B"",$E(X,1,30),DA)="""""
^DD(162.6,.01,1,1,2)="K ^FBAA(162.6,""B"",$E(X,1,30),DA)"
^DD(162.6,.01,3)="Answer must be 3-45 characters in length."
^DD(162.6,.01,21,0)="^^2^2^2930519^"
^DD(162.6,.01,21,1,0)="The disposition of a patient used during the inpatient payment"
^DD(162.6,.01,21,2,0)="process."
^DD(162.6,1,0)="CODE^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.6,1,1,0)="^.1"
^DD(162.6,1,1,1,0)="162.6^C"
^DD(162.6,1,1,1,1)="S ^FBAA(162.6,""C"",$E(X,1,30),DA)="""""
^DD(162.6,1,1,1,2)="K ^FBAA(162.6,""C"",$E(X,1,30),DA)"
^DD(162.6,1,1,2,0)="162.6^D^MUMPS"
^DD(162.6,1,1,2,1)="S ^FBAA(162.6,""D"",$E(""00"",$L(X)+1,2)_X,DA)="""""
^DD(162.6,1,1,2,2)="K ^FBAA(162.6,""D"",$E(""00"",$L(X)+1,2)_X,DA)"
^DD(162.6,1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(162.6,1,21,0)="^^2^2^2930519^"
^DD(162.6,1,21,1,0)="This is the code associated with a disposition and is sent with"
^DD(162.6,1,21,2,0)="the payment record to Austin."
^DD(162.6,1,"DT")="2900418"
^DD(162.6,"B","CODE",1)=""
^DD(162.6,"B","NAME",.01)=""
^DD(162.6,"B","NUMBER",.001)=""
^DD(162.6,"GL",0,1,.01)=""
^DD(162.6,"GL",0,2,1)=""
^DD(162.6,"IX",.01)=""
^DD(162.6,"IX",1)=""
^DD(162.6,"RQ",.01)=""
^DD(162.6,"RQ",1)=""
^DD(162.7,0)="FIELD^^55^44"
^DD(162.7,0,"DT")="2940329"
^DD(162.7,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FBAAV(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(161.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(162.7,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(162.7,0,"ID",24)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FB(162.92,+$P(^(0),U,24),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(162.92,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(162.7,0,"ID","WRITE")="S FBZ=$$FBZ^FBUCUTL(Y) W:FBZ]"""" ! W:$P(FBZ,U,5) ?7,""Treatment From: "",$$DATX^FBAAUTL($P(FBZ,U,5)) W:$P(FBZ,U,6) ?35,""Treatment To: "",$$DATX^FBAAUTL($P(FBZ,U,6)) K FBZ"
^DD(162.7,0,"IX","AA",162.7,12)=""
^DD(162.7,0,"IX","AA1",162.7,.5)=""
^DD(162.7,0,"IX","AC",162.7,10)=""
^DD(162.7,0,"IX","AD",162.7,13)=""
^DD(162.7,0,"IX","AD1",162.7,.5)=""
^DD(162.7,0,"IX","AES",162.7,24)=""
^DD(162.7,0,"IX","AES1",162.7,26)=""
^DD(162.7,0,"IX","AID",162.7,.01)=""
^DD(162.7,0,"IX","AL",162.7,19)=""
^DD(162.7,0,"IX","ALP",162.7,19.5)=""
^DD(162.7,0,"IX","AMC",162.7,20)=""
^DD(162.7,0,"IX","AMP",162.7,20)=""
^DD(162.7,0,"IX","AMS",162.7,20)=""
^DD(162.7,0,"IX","AOMS",162.7,23)=""
^DD(162.7,0,"IX","AOMS1",162.7,20)=""
^DD(162.7,0,"IX","AOMS2",162.7,24)=""
^DD(162.7,0,"IX","AOS",162.7,24)=""
^DD(162.7,0,"IX","AOS1",162.7,23)=""
^DD(162.7,0,"IX","APF",162.7,2)=""
^DD(162.7,0,"IX","APF1",162.7,3)=""
^DD(162.7,0,"IX","APMS",162.7,2)=""
^DD(162.7,0,"IX","APMS1",162.7,20)=""
^DD(162.7,0,"IX","APMS2",162.7,24)=""
^DD(162.7,0,"IX","APS",162.7,2)=""
^DD(162.7,0,"IX","APS1",162.7,24)=""
^DD(162.7,0,"IX","AS",162.7,24)=""
^DD(162.7,0,"IX","ASD",162.7,24)=""
^DD(162.7,0,"IX","ASD1",162.7,25)=""
^DD(162.7,0,"IX","AVF",162.7,1)=""
^DD(162.7,0,"IX","AVF1",162.7,3)=""
^DD(162.7,0,"IX","AVMS",162.7,1)=""
^DD(162.7,0,"IX","AVMS1",162.7,20)=""
^DD(162.7,0,"IX","AVMS2",162.7,24)=""
^DD(162.7,0,"IX","AVS",162.7,1)=""
^DD(162.7,0,"IX","AVS1",162.7,24)=""
^DD(162.7,0,"IX","B",162.7,.01)=""
^DD(162.7,0,"IX","C",162.7,1)=""
^DD(162.7,0,"IX","D",162.7,2)=""
^DD(162.7,0,"NM","FEE BASIS UNAUTHORIZED CLAIMS")=""
^DD(162.7,0,"PT",161.01,.055)=""
^DD(162.7,0,"PT",162.03,27)=""
^DD(162.7,0,"PT",162.11,26)=""
^DD(162.7,0,"PT",162.5,4)=""
^DD(162.7,0,"PT",162.7,20)=""
^DD(162.7,0,"PT",162.8,.02)=""
^DD(162.7,0,"VR")="3.5"
^DD(162.7,.01,0)="DATE CLAIM RECEIVED^RDX^^0;1^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,.01,1,0)="^.1"
^DD(162.7,.01,1,1,0)="162.7^B"
^DD(162.7,.01,1,1,1)="S ^FB583(""B"",$E(X,1,30),DA)="""""
^DD(162.7,.01,1,1,2)="K ^FB583(""B"",$E(X,1,30),DA)"
^DD(162.7,.01,1,2,0)="162.7^AID^MUMPS"
^DD(162.7,.01,1,2,1)="S ^FB583(""AID"",-X,DA)="""""
^DD(162.7,.01,1,2,2)="K ^FB583(""AID"",-X,DA)"
^DD(162.7,.01,1,2,"%D",0)="^^1^1^2930301^"
^DD(162.7,.01,1,2,"%D",1,0)="Sort entries by inverse date unauthorized claim received."
^DD(162.7,.01,1,2,"DT")="2930301"
^DD(162.7,.01,3)="Enter when an Unauthorized Claim, complete or incomplete, is received."
^DD(162.7,.01,21,0)="^^2^2^2930511^^^^"
^DD(162.7,.01,21,1,0)="This is the Date that the valid 583 was accepted for"
^DD(162.7,.01,21,2,0)="processing. Usually the date the claim is being entered."
^DD(162.7,.01,"DEL",.01,0)="D DEL^FBUCDD1(DA)"
^DD(162.7,.01,"DT")="2930423"
^DD(162.7,.5,0)="FEE PROGRAM^R*P161.8'^FBAA(161.8,^0;2^S DIC(""S"")=""I +$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.7,.5,1,0)="^.1"
^DD(162.7,.5,1,1,0)="162.7^AA1^MUMPS"
^DD(162.7,.5,1,1,1)="S:$P(^FB583(DA,0),U,13) ^FB583(""AA"",X,$P(^(0),U,13),DA)="""""
^DD(162.7,.5,1,1,2)="K:$P(^FB583(DA,0),U,13) ^FB583(""AA"",X,$P(^(0),U,13),DA)"
^DD(162.7,.5,1,1,"%D",0)="^^1^1^2930301^^^^"
^DD(162.7,.5,1,1,"%D",1,0)="Cross reference by fee program, authorization from date."
^DD(162.7,.5,1,1,"DT")="2930301"
^DD(162.7,.5,1,2,0)="162.7^AD1^MUMPS"
^DD(162.7,.5,1,2,1)="S:$P(^FB583(DA,0),U,14) ^FB583(""AD"",X,$P(^(0),U,14),DA)="""""
^DD(162.7,.5,1,2,2)="K:$P(^FB583(DA,0),U,14) ^FB583(""AD"",X,$P(^(0),U,14),DA)"
^DD(162.7,.5,1,2,"%D",0)="^^1^1^2930301^^^"
^DD(162.7,.5,1,2,"%D",1,0)="Cross reference by fee program and authorization to date."
^DD(162.7,.5,1,2,"DT")="2930301"
^DD(162.7,.5,3)="Enter the appropriate active fee program to which this claim pertains."
^DD(162.7,.5,12)="Only active fee programs can be selected."
^DD(162.7,.5,12.1)="S DIC(""S"")=""I +$P(^(0),U,3)"""
^DD(162.7,.5,21,0)="^^2^2^2940329^"
^DD(162.7,.5,21,1,0)="The appropriate fee program to which this unauthorized claim pertains."
^DD(162.7,.5,21,2,0)="Only active fee programs can be selected."
^DD(162.7,.5,"DT")="2940329"
^DD(162.7,1,0)="VENDOR^RP161.2'^FBAAV(^0;3^Q"
^DD(162.7,1,1,0)="^.1"
^DD(162.7,1,1,1,0)="162.7^C"
^DD(162.7,1,1,1,1)="S ^FB583(""C"",$E(X,1,30),DA)="""""
^DD(162.7,1,1,1,2)="K ^FB583(""C"",$E(X,1,30),DA)"
^DD(162.7,1,1,2,0)="162.7^AVF^MUMPS"
^DD(162.7,1,1,2,1)="S:$P(^FB583(DA,0),U,5) ^FB583(""AVF"",X,$P(^(0),U,5),DA)="""""
^DD(162.7,1,1,2,2)="K:$P(^FB583(DA,0),U,5) ^FB583(""AVF"",X,$P(^(0),U,5),DA)"
^DD(162.7,1,1,2,"%D",0)="^^1^1^2930301^"
^DD(162.7,1,1,2,"%D",1,0)="Cross reference by vendor, treatment from date and record number."
^DD(162.7,1,1,2,"DT")="2930301"
^DD(162.7,1,1,3,0)="162.7^AVS^MUMPS"
^DD(162.7,1,1,3,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,24) ^FB583(""AVS"",X,$P(FBZ,U,24),DA)="""" K FBZ"
^DD(162.7,1,1,3,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) K:$P(FBZ,U,24) ^FB583(""AVS"",X,$P(FBZ,U,24),DA) K FBZ"
^DD(162.7,1,1,3,"%D",0)="^^1^1^2930319^"
^DD(162.7,1,1,3,"%D",1,0)="Cross-reference used to group claims by vendor and status."
^DD(162.7,1,1,3,"DT")="2930702"
^DD(162.7,1,1,4,0)="162.7^AVMS^MUMPS"
^DD(162.7,1,1,4,1)="D MSIX^FBUCDD(X,DA,1,1,""AVMS"")"
^DD(162.7,1,1,4,2)="D MSIX^FBUCDD(X,DA,1,2,""AVMS"")"
^DD(162.7,1,1,4,"%D",0)="^^5^5^2930518^^"
^DD(162.7,1,1,4,"%D",1,0)="This cross-reference sets/kill the 'AVMS' cross-reference.  It is used to"
^DD(162.7,1,1,4,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,1,1,4,"%D",3,0)="Fields involved are:  Vendor, Master Claim and Status, having the"
^DD(162.7,1,1,4,"%D",4,0)="respective index of 'AVMS', 'AVMS1' or 'AVMS2'.  In order to re-set the"
^DD(162.7,1,1,4,"%D",5,0)="'AVMS' index you only need to re-index ONE of these fields."
^DD(162.7,1,1,4,"DT")="2930518"
^DD(162.7,1,3)="Enter the vendor who provided the services being charged."
^DD(162.7,1,21,0)="^^1^1^2930511^"
^DD(162.7,1,21,1,0)="The vendor who provided the services being charged."
^DD(162.7,1,"DT")="2930702"
^DD(162.7,2,0)="VETERAN^RP2'^DPT(^0;4^Q"
^DD(162.7,2,1,0)="^.1"
^DD(162.7,2,1,1,0)="162.7^D"
^DD(162.7,2,1,1,1)="S ^FB583(""D"",$E(X,1,30),DA)="""""
^DD(162.7,2,1,1,2)="K ^FB583(""D"",$E(X,1,30),DA)"
^DD(162.7,2,1,2,0)="162.7^APF^MUMPS"
^DD(162.7,2,1,2,1)="S:$P(^FB583(DA,0),U,5) ^FB583(""APF"",X,$P(^(0),U,5),DA)="""""
^DD(162.7,2,1,2,2)="K:$P(^FB583(DA,0),U,5) ^FB583(""APF"",X,$P(^(0),U,5),DA)"
^DD(162.7,2,1,2,"%D",0)="^^1^1^2930301^"
^DD(162.7,2,1,2,"%D",1,0)="Cross reference by patient, treatment from date, record number."
^DD(162.7,2,1,2,"DT")="2930301"
^DD(162.7,2,1,3,0)="162.7^APS^MUMPS"
^DD(162.7,2,1,3,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,24) ^FB583(""APS"",X,$P(FBZ,U,24),DA)="""" K FBZ"
^DD(162.7,2,1,3,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) K:$P(FBZ,U,24) ^FB583(""APS"",X,$P(FBZ,U,24),DA) K FBZ"
^DD(162.7,2,1,3,"%D",0)="^^1^1^2930319^"
^DD(162.7,2,1,3,"%D",1,0)="Cross-reference used to group claims by veteran (patient) and status."
^DD(162.7,2,1,3,"DT")="2930702"
^DD(162.7,2,1,4,0)="162.7^APMS^MUMPS"
^DD(162.7,2,1,4,1)="D MSIX^FBUCDD(X,DA,2,1,""APMS"")"
^DD(162.7,2,1,4,2)="D MSIX^FBUCDD(X,DA,2,2,""APMS"")"
^DD(162.7,2,1,4,"%D",0)="^^5^5^2930518^^"
^DD(162.7,2,1,4,"%D",1,0)="This cross-reference sets/kill the 'APMS' cross-reference.  It is used to"
^DD(162.7,2,1,4,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,2,1,4,"%D",3,0)="Fields involved are:  Patient, Master Claim and Status, having the"
^DD(162.7,2,1,4,"%D",4,0)="respective index of 'APMS', 'APMS1' or 'APMS2'.  In order to re-set the"
^DD(162.7,2,1,4,"%D",5,0)="'APMS' index you only need to re-index ONE of these fields."
^DD(162.7,2,1,4,"DT")="2930518"
^DD(162.7,2,3)="Enter the veteran who received the services being claimed."
^DD(162.7,2,21,0)="^^1^1^2930511^"
^DD(162.7,2,21,1,0)="The name of the veteran who received the services being claimed."
^DD(162.7,2,"DT")="2930702"
^DD(162.7,3,0)="TREATMENT FROM DATE^RDX^^0;5^S %DT=""EPX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(162.7,3,1,0)="^.1"
^DD(162.7,3,1,1,0)="162.7^APF1^MUMPS"
^DD(162.7,3,1,1,1)="S:$P(^FB583(DA,0),U,4) ^FB583(""APF"",$P(^(0),U,4),X,DA)="""""
^DD(162.7,3,1,1,2)="K:$P(^FB583(DA,0),U,4) ^FB583(""APF"",$P(^(0),U,4),X,DA)"
^DD(162.7,3,1,1,"%D",0)="^^1^1^2930301^"
^DD(162.7,3,1,1,"%D",1,0)="Cross reference by patient, treatment from date and record number."
^DD(162.7,3,1,1,"DT")="2930301"
^DD(162.7,3,1,2,0)="162.7^AVF1^MUMPS"
^DD(162.7,3,1,2,1)="S:$P(^FB583(DA,0),U,3) ^FB583(""AVF"",$P(^(0),U,3),X,DA)="""""
^DD(162.7,3,1,2,2)="K:$P(^FB583(DA,0),U,3) ^FB583(""AVF"",$P(^(0),U,3),X,DA)"
^DD(162.7,3,1,2,"%D",0)="^^1^1^2930301^"
^DD(162.7,3,1,2,"%D",1,0)="Cross reference by vendor, treatment from date and record number."
^DD(162.7,3,1,2,"DT")="2930301"
^DD(162.7,3,3)="Enter the date treatment began for this particular Fee program and claim.  Date can not be in the future."
^DD(162.7,3,21,0)="^^2^2^2930311^^"
^DD(162.7,3,21,1,0)="Date which treatment began for submitted unauthorized claim."
^DD(162.7,3,21,2,0)="Date cannot be in the future."
^DD(162.7,3,"DT")="2930505"
^DD(162.7,4,0)="TREATMENT TO DATE^RDX^^0;6^S %DT=""EPX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y Q:'$G(DA)  S FBZZ=4 K:$$INPUT^FBUCDD(DA,X,Y,FBZZ) X K FBZZ"
^DD(162.7,4,3)="Enter the date treatment ended for this particular Fee program and claim.  Date cannot be in the future.  Treatment To Date cannot be earlier than Treatment From Date."
^DD(162.7,4,21,0)="^^2^2^2930311^^"
^DD(162.7,4,21,1,0)="Date which treatment ended for sumbitted unauthorized claim."
^DD(162.7,4,21,2,0)="Date cannot be in the future or be earlier than Treatment From date."
^DD(162.7,4,"DT")="2930916"
^DD(162.7,5,0)="DIAGNOSIS^F^^DX;1^K:$L(X)>120!($L(X)<3) X"
^DD(162.7,5,3)="Answer must be 3-120 characters in length."
^DD(162.7,5,21,0)="^^1^1^2930511^"
^DD(162.7,5,21,1,0)="Enter the diagnosis upon which services were rendered."
^DD(162.7,6,0)="PRIMARY SERVICE FACILITY^P4'^DIC(4,^0;7^Q"
^DD(162.7,6,3)="Enter the facility which is responsible for reimbursing the COJ."
^DD(162.7,6,21,0)="^^1^1^2930513^^"
^DD(162.7,6,21,1,0)="The name of the facility which will reimburse the COJ."
^DD(162.7,7,0)="DATE VALID CLAIM RECEIVED^DX^^0;8^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y S FBZZ=7 K:$$INPUT^FBUCDD(DA,X,Y,FBZZ) X K FBZZ"
^DD(162.7,7,1,0)="^.1^^0"
^DD(162.7,7,3)="Enter date valid claim was received.  Valid claim includes all supporting information/documentation."
^DD(162.7,7,21,0)="^^1^1^2930304^^"
^DD(162.7,7,21,1,0)="Date complete (valid) unauthorized claim received for medical review."
^DD(162.7,7,23,0)="^^1^1^2930403^"
^DD(162.7,7,23,1,0)="This field is automatically updated in the update routine."
^DD(162.7,7,"DT")="2931015"
^DD(162.7,8,0)="AMOUNT CLAIMED^NJ9,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(162.7,8,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(162.7,8,21,0)="^^1^1^2930511^"
^DD(162.7,8,21,1,0)="The dollar amount being claimed."
^DD(162.7,8,"DT")="2910207"
^DD(162.7,9,0)="PATIENT TYPE CODE^RS^00:SURGICAL;10:MEDICAL;86:PSYCHIATRIC;^0;10^Q"
^DD(162.7,9,.1)="TREATING SPECIALTY"
^DD(162.7,9,3)="Enter the appropriate patient type code for services received."
^DD(162.7,9,21,0)="^^1^1^2930511^"
^DD(162.7,9,21,1,0)="The appropriate patient type code for services which were received."
^DD(162.7,9,"DT")="2900912"
^DD(162.7,10,0)="DISPOSITION^*P162.91'X^FB(162.91,^0;11^S DIC(""S"")=""I $P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y S FBZZ=10 K:$$INPUT^FBUCDD(DA,X,Y,FBZZ) X K FBZZ"
^DD(162.7,10,1,0)="^.1^^-1"
^DD(162.7,10,1,1,0)="162.7^AC^MUMPS"
^DD(162.7,10,1,1,1)="S ^FB583(""AC"",$E(X,1,30),DA)="""""
^DD(162.7,10,1,1,2)="K ^FB583(""AC"",$E(X,1,30),DA)"
^DD(162.7,10,3)="Select the appropriate dispostion reason.  An approved, approved to stabilization or disapproved disposition requires a Complete status."
^DD(162.7,10,12)="Allow selection of active dispositions."
^DD(162.7,10,12.1)="S DIC(""S"")=""I $P(^(0),U,2)"""
^DD(162.7,10,21,0)="^^5^5^2930916^^^^"
^DD(162.7,10,21,1,0)="Only active dispositions can be selected.  If the disposition has been "
^DD(162.7,10,21,2,0)="approved, or approved to stabilization and payments made, then the"
^DD(162.7,10,21,3,0)="disposition can not be changed unless the FBAASUPERVISOR key is held."
^DD(162.7,10,21,4,0)="An approved, approved to stabilization, or disapproved disposition requires"
^DD(162.7,10,21,5,0)="a Complete status."
^DD(162.7,10,23,0)="^^9^9^2930916^^^^"
^DD(162.7,10,23,1,0)="If date valid claim received is null, then only reason for disposition "
^DD(162.7,10,23,2,0)=" should be for cancelled/withdrawn or abandoned. <INPUT TRANSFORM>"
^DD(162.7,10,23,3,0)="If a disposition is not approved, and there are payments made against"
^DD(162.7,10,23,4,0)=" the claim, the user may change the value only if s/he holds the "
^DD(162.7,10,23,5,0)=" supervisor security key.  <INPUT TRANSFORM>"
^DD(162.7,10,23,6,0)="  "
^DD(162.7,10,23,7,0)="When the status or disposition changes, a letter needs to be printed."
^DD(162.7,10,23,8,0)="Once printed, the expiration date is calculated.  The number of days is"
^DD(162.7,10,23,9,0)="derived from the status."
^DD(162.7,10,"DT")="2930513"
^DD(162.7,10.5,0)="DISPOSITION REMARKS^162.702^^4;0"
^DD(162.7,10.5,21,0)="^^2^2^3011126^"
^DD(162.7,10.5,21,1,0)="Special remarks regarding the initial disposition that should be included"
^DD(162.7,10.5,21,2,0)="on a disposition letter to the claimant. (Optional)"
^DD(162.7,10.5,"DT")="3011115"
^DD(162.7,10.6,0)="APPEAL DISPOSITION REMARKS^162.703^^A1;0"
^DD(162.7,10.6,21,0)="^^2^2^3011126^"
^DD(162.7,10.6,21,1,0)="Special remarks regarding the disposition of an appeal that should be"
^DD(162.7,10.6,21,2,0)="included on a disposition letter to the claimant. (Optional)"
^DD(162.7,10.7,0)="COVA DISPOSITION REMARKS^162.704^^A2;0"
^DD(162.7,10.7,21,0)="^^2^2^3011126^"
^DD(162.7,10.7,21,1,0)="Special remarks regarding the disposition of a COVA appeal that should be"
^DD(162.7,10.7,21,2,0)="included on a disposition letter to the claimant. (Optional)"
^DD(162.7,10.7,"DT")="3020816"
^DD(162.7,11,0)="DATE OF DISPOSITION^DX^^0;12^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,11,3)="Enter date claim dispositioned."
^DD(162.7,11,21,0)="^^1^1^2930511^"
^DD(162.7,11,21,1,0)="The date the claim was dispositioned."
^DD(162.7,11,"DT")="2931015"
^DD(162.7,12,0)="AUTHORIZED FROM DATE^DX^^0;13^S %DT=""EPX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y Q:'$D(DA)  S FBZZ=12 K:$$INPUT^FBUCDD(DA,X,Y,FBZZ) X K FBZZ"
^DD(162.7,12,1,0)="^.1"
^DD(162.7,12,1,1,0)="162.7^AA^MUMPS"
^DD(162.7,12,1,1,1)="S:$P(^FB583(DA,0),U,2) ^FB583(""AA"",$P(^(0),U,2),X,DA)="""""
^DD(162.7,12,1,1,2)="K:$P(^FB583(DA,0),U,2) ^FB583(""AA"",$P(^(0),U,2),X,DA)"
^DD(162.7,12,1,1,"%D",0)="^^1^1^2930301^^^^"
^DD(162.7,12,1,1,"%D",1,0)="Cross refernece by fee program and authorization from date."
^DD(162.7,12,1,1,"DT")="2930301"
^DD(162.7,12,3)="Enter the beginning date which fee services are authorized.  Date cannot be in the future.  Date cannot be before Treatment From date or after Treatment To date."
^DD(162.7,12,4)="W !?5,""Treatment From: "",$$DATX^FBAAUTL(+$P(^FB583(DA,0),U,5)),""  Treatment To: "",$$DATX^FBAAUTL(+$P(^FB583(DA,0),U,6)),!"
^DD(162.7,12,21,0)="^^2^2^2930311^^"
^DD(162.7,12,21,1,0)="The beginning date from which fee services for unauthorized claim"
^DD(162.7,12,21,2,0)="are authorized.  Date cannot be in the future or before Treatment From date."
^DD(162.7,12,"DT")="2930505"
^DD(162.7,13,0)="AUTHORIZED TO DATE^DX^^0;14^S %DT=""EPX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y Q:'$D(DA)  S FBZZ=13 K:$$INPUT^FBUCDD(DA,X,Y,FBZZ) X K FBZZ"
^DD(162.7,13,1,0)="^.1"
^DD(162.7,13,1,1,0)="162.7^AD^MUMPS"
^DD(162.7,13,1,1,1)="S:$P(^FB583(DA,0),U,2) ^FB583(""AD"",$P(^(0),U,2),X,DA)="""""
^DD(162.7,13,1,1,2)="K:$P(^FB583(DA,0),U,2) ^FB583(""AD"",$P(^(0),U,2),X,DA)"
^DD(162.7,13,1,1,"%D",0)="^^1^1^2930301^^^^"
^DD(162.7,13,1,1,"%D",1,0)="Cross reference by fee programs, authorization to date."
^DD(162.7,13,1,1,"DT")="2930301"
^DD(162.7,13,3)="Enter the date treatment authorized to.  Date cannot be in the future or earlier than the Authorized From Date.  Authorized To date cannot be after Treatment To date."
^DD(162.7,13,4)="W !?5,""Treatment From: "",$$DATX^FBAAUTL(+$P(^FB583(DA,0),U,5)),""  Treatment To: "",$$DATX^FBAAUTL(+$P(^FB583(DA,0),U,6)),!"
^DD(162.7,13,21,0)="^^3^3^2930511^^"
^DD(162.7,13,21,1,0)="The ending date which fee services are authorized.  Date cannot be in the"
^DD(162.7,13,21,2,0)="future or before the Authorized From date.  Authorized To date cannot be"
^DD(162.7,13,21,3,0)="greater than Treatment To date."
^DD(162.7,13,"DT")="2930505"
^DD(162.7,14,0)="AMOUNT APPROVED^NJ9,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<.01) X"
^DD(162.7,14,3)="Enter the authorized amount for payment of unauthorized claim.  Dollar amount can be as low as .01 and as high as 999999.99."
^DD(162.7,14,21,0)="^^1^1^2930419^"
^DD(162.7,14,21,1,0)="The authorized amount for payment of an unauthorized claim."
^DD(162.7,14,"DT")="2930419"
^DD(162.7,15,0)="REASON FOR DISAPPROVAL^162.715PA^^D;0"
^DD(162.7,15,12)="Allow selection of active disapproval reason(s) for claim with a dispostion of other than APPROVED."
^DD(162.7,15,12.1)="S DIC(""S"")=""I $P(^(0),U,2),$P(^FB583(DA,0),U,11)>1"""
^DD(162.7,15,21,0)="^^1^1^2930511^^"
^DD(162.7,15,21,1,0)="Provides reason(s) why a claim was disapproved."
^DD(162.7,15,23,0)="^^1^1^2930511^^"
^DD(162.7,15,23,1,0)="Only completed if disposition is DISAPPROVED."
^DD(162.7,16,0)="*DISPOSITON DESCRIPTION^162.716^^1;0"
^DD(162.7,16,21,0)="^^1^1^2930511^"
^DD(162.7,16,21,1,0)="The description of the disposition.  Replaced by the REASON FOR DISAPPROVAL field."
^DD(162.7,16,"DT")="2930511"
^DD(162.7,17,0)="*REASON FOR PENDING^162.717^^2;0"
^DD(162.7,17,21,0)="^^2^2^2930511^^"
^DD(162.7,17,21,1,0)="The reason the claim was pending.  Replaced by the FEE BASIS UNAUTHORIZED"
^DD(162.7,17,21,2,0)="REQUESTED INFORMATION file (# 162.93)."
^DD(162.7,17,"DT")="2930511"
^DD(162.7,19,0)="PRINT LETTER?^S^1:YES;^0;16^Q"
^DD(162.7,19,1,0)="^.1^^-1"
^DD(162.7,19,1,1,0)="162.7^AL"
^DD(162.7,19,1,1,1)="S ^FB583(""AL"",$E(X,1,30),DA)="""""
^DD(162.7,19,1,1,2)="K ^FB583(""AL"",$E(X,1,30),DA)"
^DD(162.7,19,1,1,"%D",0)="^^1^1^2930702^^"
^DD(162.7,19,1,1,"%D",1,0)="Cross-reference is used to determine which claims need a letter printed."
^DD(162.7,19,1,1,"DT")="2930403"
^DD(162.7,19,3)="Enter YES if letter needs to be printed."
^DD(162.7,19,21,0)="^^1^1^2930511^^"
^DD(162.7,19,21,1,0)="If this field has a YES value, an unauthorized claim letter needs to be printed."
^DD(162.7,19,23,0)="^^4^4^2930403^^"
^DD(162.7,19,23,1,0)="When the status or disposition changes, a letter needs to be printed."
^DD(162.7,19,23,2,0)="Once printed, the expiration date is calculated.  The number of days is"
^DD(162.7,19,23,3,0)="derived from the status."
^DD(162.7,19,23,4,0)="This field is automatically updated."
^DD(162.7,19,"DT")="2930405"
^DD(162.7,19.5,0)="DATE LETTER SENT^DX^^0;19^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,19.5,1,0)="^.1"
^DD(162.7,19.5,1,1,0)="162.7^ALP"
^DD(162.7,19.5,1,1,1)="S ^FB583(""ALP"",$E(X,1,30),DA)="""""
^DD(162.7,19.5,1,1,2)="K ^FB583(""ALP"",$E(X,1,30),DA)"
^DD(162.7,19.5,1,1,"%D",0)="^^2^2^2930403^"
^DD(162.7,19.5,1,1,"%D",1,0)="Cross-reference is used to determine if a letter has been printed."
^DD(162.7,19.5,1,1,"%D",2,0)="It may be used to reprint letters."
^DD(162.7,19.5,1,1,"DT")="2930403"
^DD(162.7,19.5,3)="Enter the date the follow-up or disposition letter was sent to submitter.  Date can not be in the future."
^DD(162.7,19.5,21,0)="^^1^1^2930403^"
^DD(162.7,19.5,21,1,0)="Date letter sent to submitter."
^DD(162.7,19.5,23,0)="^^4^4^2930403^"
^DD(162.7,19.5,23,1,0)="When the status or disposition changes, a letter needs to be printed."
^DD(162.7,19.5,23,2,0)="Once printed, the expiration date is calculated.  The number of days is"
^DD(162.7,19.5,23,3,0)="derived from the status."
^DD(162.7,19.5,23,4,0)="This field is automatically updated."
^DD(162.7,19.5,"DT")="2930421"
^DD(162.7,20,0)="MASTER CLAIM^R*P162.7'^FB583(^0;20^S DIC(""S"")=""S FBZ=^FB583(DA,0) I $P(^FB583(+Y,0),U,4)=$P(FBZ,U,4),'+$P(^FB583(+Y,0),U,11) K FBZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.7,20,1,0)="^.1"
^DD(162.7,20,1,1,0)="162.7^AMS^MUMPS"
^DD(162.7,20,1,1,1)="S:X'=DA ^FB583(""AMS"",X,DA)="""""
^DD(162.7,20,1,1,2)="K:X'=DA ^FB583(""AMS"",X,DA)"
^DD(162.7,20,1,1,"%D",0)="^^1^1^2930512^"
^DD(162.7,20,1,1,"%D",1,0)="Cross-reference secondary claims...those claims which point to another."
^DD(162.7,20,1,1,"DT")="2930512"
^DD(162.7,20,1,2,0)="162.7^AMP^MUMPS"
^DD(162.7,20,1,2,1)="S:X=DA ^FB583(""AMP"",X,DA)="""""
^DD(162.7,20,1,2,2)="K:X=DA ^FB583(""AMP"",X,DA)"
^DD(162.7,20,1,2,"%D",0)="^^1^1^2930511^"
^DD(162.7,20,1,2,"%D",1,0)="Cross reference primary claims...those master claims which point to themselves."
^DD(162.7,20,1,2,"DT")="2930511"
^DD(162.7,20,1,3,0)="162.7^AMC"
^DD(162.7,20,1,3,1)="S ^FB583(""AMC"",$E(X,1,30),DA)="""""
^DD(162.7,20,1,3,2)="K ^FB583(""AMC"",$E(X,1,30),DA)"
^DD(162.7,20,1,3,"%D",0)="^^1^1^2930512^"
^DD(162.7,20,1,3,"%D",1,0)="Cross-reference claims by master number for sorting."
^DD(162.7,20,1,3,"DT")="2930512"
^DD(162.7,20,1,4,0)="162.7^APMS1^MUMPS"
^DD(162.7,20,1,4,1)="D MSIX^FBUCDD(X,DA,20,1,""APMS"")"
^DD(162.7,20,1,4,2)="D MSIX^FBUCDD(X,DA,20,2,""APMS"")"
^DD(162.7,20,1,4,"%D",0)="^^5^5^2930518^^"
^DD(162.7,20,1,4,"%D",1,0)="This cross-reference sets/kill the 'APMS' cross-reference.  It is used to"
^DD(162.7,20,1,4,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,20,1,4,"%D",3,0)="Fields involved are:  Patient, Master Claim and Status, having the"
^DD(162.7,20,1,4,"%D",4,0)="respective index of 'APMS', 'APMS1' or 'APMS2'.  In order to re-set the"
^DD(162.7,20,1,4,"%D",5,0)="'APMS' index you only need to re-index ONE of these fields."
^DD(162.7,20,1,4,"DT")="2930518"
^DD(162.7,20,1,5,0)="162.7^AVMS1^MUMPS"
^DD(162.7,20,1,5,1)="D MSIX^FBUCDD(X,DA,20,1,""AVMS"")"
^DD(162.7,20,1,5,2)="D MSIX^FBUCDD(X,DA,20,2,""AVMS"")"
^DD(162.7,20,1,5,"%D",0)="^^5^5^2930518^^"
^DD(162.7,20,1,5,"%D",1,0)="This cross-reference sets/kill the 'AVMS' cross-reference.  It is used to"
^DD(162.7,20,1,5,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,20,1,5,"%D",3,0)="Fields involved are:  Vendor, Master Claim and Status, having the"
^DD(162.7,20,1,5,"%D",4,0)="respective index of 'AVMS', 'AVMS1' or 'AVMS2'.  In order to re-set the"
^DD(162.7,20,1,5,"%D",5,0)="'AVMS' index you only need to re-index ONE of these fields."
^DD(162.7,20,1,5,"DT")="2930518"
^DD(162.7,20,1,6,0)="162.7^AOMS1^MUMPS"
^DD(162.7,20,1,6,1)="D MSIX^FBUCDD(X,DA,20,1,""AOMS"")"
^DD(162.7,20,1,6,2)="D MSIX^FBUCDD(X,DA,20,2,""AOMS"")"
^DD(162.7,20,1,6,"%D",0)="^^5^5^2930518^"
^DD(162.7,20,1,6,"%D",1,0)="This cross-reference sets/kill the 'AOMS' cross-reference.  It is used to"
^DD(162.7,20,1,6,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,20,1,6,"%D",3,0)="Fields involved are:  Submitter, Master Claim and Status, having the"
^DD(162.7,20,1,6,"%D",4,0)="respective index of 'AOMS', 'AOMS1' or 'AOMS2'.  In order to re-set the"
^DD(162.7,20,1,6,"%D",5,0)="'AOMS' index you only need to re-index ONE of these fields."
^DD(162.7,20,1,6,"DT")="2930518"
^DD(162.7,20,3)="Enter the existing claim which this claim relates to.  If there is none, relate it to itself."
^DD(162.7,20,12)="Select only those records containing the same veteran, having no dispostion."
^DD(162.7,20,12.1)="S DIC(""S"")=""S FBZ=^FB583(DA,0) I $P(^FB583(+Y,0),U,4)=$P(FBZ,U,4),'+$P(^FB583(+Y,0),U,11) K FBZ"""
^DD(162.7,20,21,0)="^^2^2^2930511^^"
^DD(162.7,20,21,1,0)="Enter the claim to which this claim is related.  It may be related to itself."
^DD(162.7,20,21,2,0)="Select only those records containing the same veteran which have no disposition."
^DD(162.7,20,23,0)="^^4^4^2930511^^"
^DD(162.7,20,23,1,0)="Automatically set upon entry of claim.  If claim submission involves"
^DD(162.7,20,23,2,0)="different fee programs for the same episode of care, claims entered"
^DD(162.7,20,23,3,0)="after the first for that episode of care will point to the first."
^DD(162.7,20,23,4,0)="The first one becomes the 'master'.  Used for displaying claims."
^DD(162.7,20,"DT")="2930521"
^DD(162.7,21,0)="REOPEN CLAIM DATE^D^^0;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.7,21,3)="Enter date dispositioned claim reopened (not appealed) for review."
^DD(162.7,21,12)="Reopen those claims which do not have a disposition of APPROVED."
^DD(162.7,21,12.1)="S DIC(""S"")=""S FBZ=^FB583(DA,0) I $P(^FB583(+Y,0),U,4)=$P(FBZ,U,4),+$P(^(0),U,11)>1 K FBZ"""
^DD(162.7,21,21,0)="^^1^1^2930315^"
^DD(162.7,21,21,1,0)="Date dispositioned claim reopended for review."
^DD(162.7,21,23,0)="^^2^2^2930403^"
^DD(162.7,21,23,1,0)="Automatically updated when claim is reopened."
^DD(162.7,21,23,2,0)=" (Edit template will stuff if action type is REOpen.)"
^DD(162.7,21,"DT")="2930315"
^DD(162.7,22,0)="DATE OF ORIGINAL DISPOSITION^DX^^0;22^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,22,3)="Enter date unauthorized claim was originally dispositioned."
^DD(162.7,22,21,0)="^^2^2^2930318^"
^DD(162.7,22,21,1,0)="Date unauthorized claim was originally dispostioned.  Used in determining"
^DD(162.7,22,21,2,0)="expiration date in the case of appeal status'."
^DD(162.7,22,23,0)="^^1^1^2930403^^"
^DD(162.7,22,23,1,0)="Automatically updated when status is determined."
^DD(162.7,22,"DT")="2931015"
^DD(162.7,23,0)="CLAIM SUBMITTED BY^RVX^^0;23^Q:'$G(DA)  N FBZZ S FBZZ=23 K:$$INPUT^FBUCDD(DA,X,Y,FBZZ) X K FBZZ"
^DD(162.7,23,1,0)="^.1"
^DD(162.7,23,1,1,0)="162.7^AOS1^MUMPS"
^DD(162.7,23,1,1,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,24)&(X[""VA(200"") ^FB583(""AOS"",+X,$P(FBZ,U,24),DA)="""" K FBZ"
^DD(162.7,23,1,1,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,24)&(X[""VA(200"") ^FB583(""AOS"",+X,$P(FBZ,U,24),DA)="""" K FBZ"
^DD(162.7,23,1,1,"%D",0)="^^2^2^2930909^^^^"
^DD(162.7,23,1,1,"%D",1,0)="Cross-reference used to group claims by other party (new persons) and"
^DD(162.7,23,1,1,"%D",2,0)="status."
^DD(162.7,23,1,1,"DT")="2930702"
^DD(162.7,23,1,2,0)="162.7^AOMS^MUMPS"
^DD(162.7,23,1,2,1)="D:X[""VA(200"" MSIX^FBUCDD(X,DA,23,1,""AOMS"")"
^DD(162.7,23,1,2,2)="D:X[""VA(200"" MSIX^FBUCDD(X,DA,23,2,""AOMS"")"
^DD(162.7,23,1,2,"%D",0)="^^5^5^2930909^^^^"
^DD(162.7,23,1,2,"%D",1,0)="This cross-reference sets/kill the 'AOMS' cross-reference.  It is used to"
^DD(162.7,23,1,2,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,23,1,2,"%D",3,0)="Fields involved are:  Submitter, Master Claim and Status, having the"
^DD(162.7,23,1,2,"%D",4,0)="respective index of 'AOMS', 'AOMS1' or 'AOMS2'.  In order to re-set the"
^DD(162.7,23,1,2,"%D",5,0)="'AOMS' index you only need to re-index ONE of these fields."
^DD(162.7,23,1,2,"DT")="2930518"
^DD(162.7,23,3)="Identify the submitter of the Unauthorized Claim.  If the submitter is a vendor, must be same value as entered in the VENDOR field; if veteran, must be same as VETERAN field."
^DD(162.7,23,21,0)="^^4^4^2930910^^^^"
^DD(162.7,23,21,1,0)="Identify the submitter of the unauthorized claim.  The submitter may differ"
^DD(162.7,23,21,2,0)="from the vendor or veteran involved with the claim."
^DD(162.7,23,21,3,0)=" If the submitter is a vendor, must be same value as entered in the VENDOR"
^DD(162.7,23,21,4,0)="field; if veteran, must be same as VETERAN field."
^DD(162.7,23,23,0)="^^2^2^2930910^^^"
^DD(162.7,23,23,1,0)="The address for correspondence is determined from this field.  If there is"
^DD(162.7,23,23,2,0)="no entry, the default is the veteran's address."
^DD(162.7,23,"DT")="2930910"
^DD(162.7,23,"V",0)="^.12P^3^3"
^DD(162.7,23,"V",1,0)="2^Patient^1^p^n^n"
^DD(162.7,23,"V",2,0)="161.2^Vendor^2^v^n^n"
^DD(162.7,23,"V",3,0)="200^Other party^3^o^n^n"
^DD(162.7,23,"V","B",2,1)=""
^DD(162.7,23,"V","B",161.2,2)=""
^DD(162.7,23,"V","B",200,3)=""
^DD(162.7,23,"V","M","Other party",3)=""
^DD(162.7,23,"V","M","Patient",1)=""
^DD(162.7,23,"V","M","Vendor",2)=""
^DD(162.7,23,"V","O",1,1)=""
^DD(162.7,23,"V","O",2,2)=""
^DD(162.7,23,"V","O",3,3)=""
^DD(162.7,23,"V","P","o",3)=""
^DD(162.7,23,"V","P","p",1)=""
^DD(162.7,23,"V","P","v",2)=""
^DD(162.7,24,0)="STATUS^R*P162.92'X^FB(162.92,^0;24^S DIC(""S"")=""I $P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y S FBZZ=24 K:$$INPUT^FBUCDD(DA,X,Y,FBZZ) X K FBZZ"
^DD(162.7,24,1,0)="^.1"
^DD(162.7,24,1,1,0)="162.7^ASD^MUMPS"
^DD(162.7,24,1,1,1)="S:$P(^FB583(DA,0),U,25) ^FB583(""ASD"",X,$P(^(0),U,25),DA)="""""
^DD(162.7,24,1,1,2)="K:$P(^FB583(DA,0),U,25) ^FB583(""ASD"",X,$P(^(0),U,25),DA)"
^DD(162.7,24,1,1,"%D",0)="^^1^1^2930301^"
^DD(162.7,24,1,1,"%D",1,0)="Cross reference by status, status date and record number."
^DD(162.7,24,1,1,"DT")="2930301"
^DD(162.7,24,1,2,0)="162.7^APMS2^MUMPS"
^DD(162.7,24,1,2,1)="D MSIX^FBUCDD(X,DA,24,1,""APMS"")"
^DD(162.7,24,1,2,2)="D MSIX^FBUCDD(X,DA,24,2,""APMS"")"
^DD(162.7,24,1,2,"%D",0)="^^5^5^2930518^^"
^DD(162.7,24,1,2,"%D",1,0)="This cross-reference sets/kill the 'APMS' cross-reference.  It is used to"
^DD(162.7,24,1,2,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,24,1,2,"%D",3,0)="Fields involved are:  Patient, Master Claim and Status, having the"
^DD(162.7,24,1,2,"%D",4,0)="respective index of 'APMS', 'APMS1' or 'APMS2'.  In order to re-set the"
^DD(162.7,24,1,2,"%D",5,0)="'APMS' index you only need to re-index ONE of these fields."
^DD(162.7,24,1,2,"DT")="2930518"
^DD(162.7,24,1,3,0)="162.7^AES^MUMPS"
^DD(162.7,24,1,3,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,26) ^FB583(""AES"",$$ORDER^FBUCUTL(+X),-$P(FBZ,U,26),DA)="""" K FBZ"
^DD(162.7,24,1,3,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) K:$P(FBZ,U,26) ^FB583(""AES"",$$ORDER^FBUCUTL(+X),-$P(FBZ,U,26),DA) K FBZ"
^DD(162.7,24,1,3,"%D",0)="^^1^1^2930706^^^^"
^DD(162.7,24,1,3,"%D",1,0)="Cross-reference by status order and inverse expiration date."
^DD(162.7,24,1,3,"DT")="2930706"
^DD(162.7,24,1,4,0)="162.7^APS1^MUMPS"
^DD(162.7,24,1,4,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,4) ^FB583(""APS"",$P(FBZ,U,4),X,DA)="""" K FBZ"
^DD(162.7,24,1,4,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) K:$P(FBZ,U,4) ^FB583(""APS"",$P(FBZ,U,4),X,DA) K FBZ"
^DD(162.7,24,1,4,"%D",0)="^^1^1^2930517^^^^"
^DD(162.7,24,1,4,"%D",1,0)="Cross-reference used to group claims by veteran (patient) and status."
^DD(162.7,24,1,4,"DT")="2930702"
^DD(162.7,24,1,5,0)="162.7^AVS1^MUMPS"
^DD(162.7,24,1,5,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,3) ^FB583(""AVS"",$P(FBZ,U,3),X,DA)="""" K FBZ"
^DD(162.7,24,1,5,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) K:$P(FBZ,U,3) ^FB583(""AVS"",$P(FBZ,U,3),X,DA) K FBZ"
^DD(162.7,24,1,5,"%D",0)="^^1^1^2930319^"
^DD(162.7,24,1,5,"%D",1,0)="Cross-reference used to group claims by vendor and status."
^DD(162.7,24,1,5,"DT")="2930702"
^DD(162.7,24,1,6,0)="162.7^AS"
^DD(162.7,24,1,6,1)="S ^FB583(""AS"",$E(X,1,30),DA)="""""
^DD(162.7,24,1,6,2)="K ^FB583(""AS"",$E(X,1,30),DA)"
^DD(162.7,24,1,6,"%D",0)="^^1^1^2930319^"
^DD(162.7,24,1,6,"%D",1,0)="Cross-refernece claims by status."
^DD(162.7,24,1,6,"DT")="2930319"
^DD(162.7,24,1,7,0)="162.7^AOS^MUMPS"
^DD(162.7,24,1,7,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,23)[""VA(200"" ^FB583(""AOS"",+$P(FBZ,U,23),X,DA)="""" K FBZ"
^DD(162.7,24,1,7,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) K:$P(FBZ,U,23)[""VA(200"" ^FB583(""AOS"",+$P(FBZ,U,23),X,DA) K FBZ"
^DD(162.7,24,1,7,"%D",0)="^^2^2^2930422^"
^DD(162.7,24,1,7,"%D",1,0)="Cross-reference used to group claims by other party (new persons) and"
^DD(162.7,24,1,7,"%D",2,0)="status."
^DD(162.7,24,1,7,"DT")="2930702"
^DD(162.7,24,1,8,0)="162.7^AVMS2^MUMPS"
^DD(162.7,24,1,8,1)="D MSIX^FBUCDD(X,DA,24,1,""AVMS"")"
^DD(162.7,24,1,8,2)="D MSIX^FBUCDD(X,DA,24,2,""AVMS"")"
^DD(162.7,24,1,8,"%D",0)="^^5^5^2930518^^"
^DD(162.7,24,1,8,"%D",1,0)="This cross-reference sets/kill the 'AVMS' cross-reference.  It is used to"
^DD(162.7,24,1,8,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,24,1,8,"%D",3,0)="Fields involved are:  Vendor, Master Claim and Status, having the"
^DD(162.7,24,1,8,"%D",4,0)="respective index of 'AVMS', 'AVMS1' or 'AVMS2'.  In order to re-set the"
^DD(162.7,24,1,8,"%D",5,0)="'AVMS' index you only need to re-index ONE of these fields."
^DD(162.7,24,1,8,"DT")="2930518"
^DD(162.7,24,1,9,0)="162.7^AOMS2^MUMPS"
^DD(162.7,24,1,9,1)="D MSIX^FBUCDD(X,DA,24,1,""AOMS"")"
^DD(162.7,24,1,9,2)="D MSIX^FBUCDD(X,DA,24,2,""AOMS"")"
^DD(162.7,24,1,9,"%D",0)="^^5^5^2930518^"
^DD(162.7,24,1,9,"%D",1,0)="This cross-reference sets/kill the 'AOMS' cross-reference.  It is used to"
^DD(162.7,24,1,9,"%D",2,0)="display the relationship between primary/secondary claims."
^DD(162.7,24,1,9,"%D",3,0)="Fields involved are:  Submitter, Master Claim and Status, having the"
^DD(162.7,24,1,9,"%D",4,0)="respective index of 'AOMS', 'AOMS1' or 'AOMS2'.  In order to re-set the"
^DD(162.7,24,1,9,"%D",5,0)="'AOMS' index you only need to re-index ONE of these fields."
^DD(162.7,24,1,9,"DT")="2930518"
^DD(162.7,24,3)="Select an active status for this unauthorized claim."
^DD(162.7,24,12)="Allow selection of active status."
^DD(162.7,24,12.1)="S DIC(""S"")=""I $P(^(0),U,2)"""
^DD(162.7,24,21,0)="^^2^2^2930317^^"
^DD(162.7,24,21,1,0)="Select the appropriate status from FEE BASIS UNAUTHORIZED CLAIMS STATUS file."
^DD(162.7,24,21,2,0)="Status is automatically determined and stuffed, it should not be edited."
^DD(162.7,24,23,0)="5^^10^10^2930403^"
^DD(162.7,24,23,1,0)="Only active status' can be selected. <SCREEN>"
^DD(162.7,24,23,2,0)="If valid claim received, status should be greater than informal or returned."
^DD(162.7,24,23,3,0)="If claim is dipositioned, status should only be dispositioned."
^DD(162.7,24,23,4,0)="If claim has not been dispositioned, status should not be dispositioned."
^DD(162.7,24,23,5,0)="  <INPUT TRANSFORM>"
^DD(162.7,24,23,6,0)="Status is automatically determined, based on the status order field in 162.92."
^DD(162.7,24,23,7,0)="When the status or disposition changes, a letter needs to be printed."
^DD(162.7,24,23,8,0)="Once printed, the expiration date is calculated.  The number of days is"
^DD(162.7,24,23,9,0)="derived from the status."
^DD(162.7,24,23,10,0)="This field is automatically updated."
^DD(162.7,24,"DT")="2930706"
^DD(162.7,25,0)="DATE OF CURRENT STATUS^RDX^^0;25^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,25,1,0)="^.1"
^DD(162.7,25,1,1,0)="162.7^ASD1^MUMPS"
^DD(162.7,25,1,1,1)="S:$P(^FB583(DA,0),U,24) ^FB583(""ASD"",$P(^(0),U,24),X,DA)="""""
^DD(162.7,25,1,1,2)="K:$P(^FB583(DA,0),U,24) ^FB583(""ASD"",$P(^(0),U,24),X,DA)"
^DD(162.7,25,1,1,"%D",0)="^^1^1^2930301^"
^DD(162.7,25,1,1,"%D",1,0)="Cross reference by status, status date and record number."
^DD(162.7,25,1,1,"DT")="2930301"
^DD(162.7,25,3)="Enter the date on which the current status was updated."
^DD(162.7,25,21,0)="^^1^1^2930519^"
^DD(162.7,25,21,1,0)="This field contains the date on which the current status was entered or updated."
^DD(162.7,25,"DT")="2931015"
^DD(162.7,26,0)="EXPIRATION DATE OF CLAIM^D^^0;26^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.7,26,1,0)="^.1"
^DD(162.7,26,1,1,0)="162.7^AES1^MUMPS"
^DD(162.7,26,1,1,1)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) S:$P(FBZ,U,24) ^FB583(""AES"",$$ORDER^FBUCUTL(+$P(FBZ,U,24)),-X,DA)="""" K FBZ"
^DD(162.7,26,1,1,2)="N FBZ S FBZ=$$FBZ^FBUCUTL(DA) K:$P(FBZ,U,24) ^FB583(""AES"",$$ORDER^FBUCUTL(+$P(FBZ,U,24)),-X,DA) K FBZ"
^DD(162.7,26,1,1,"%D",0)="^^1^1^2930706^^^^"
^DD(162.7,26,1,1,"%D",1,0)="Cross-reference by status order and inverse expiration date."
^DD(162.7,26,1,1,"DT")="2930706"
^DD(162.7,26,3)="Enter the date, if applicable, by which a response should be received."
^DD(162.7,26,21,0)="^^6^6^2930511^"
^DD(162.7,26,21,1,0)="The date by which a response should be received before the claim expires."
^DD(162.7,26,21,2,0)="If the expiration date arrives with no response, then the appropriate action"
^DD(162.7,26,21,3,0)="may need to be taken (action varies with status of claim).  No further"
^DD(162.7,26,21,4,0)="processing should be allowed.  (If awaiting information, claim should be"
^DD(162.7,26,21,5,0)="dispositioned to abandoned; if already dispostioned, appeal or BVA appeal"
^DD(162.7,26,21,6,0)="can not be entered.)  This field is automatically updated."
^DD(162.7,26,23,0)="^^4^4^2930511^^"
^DD(162.7,26,23,1,0)="When the status or disposition changes, a letter needs to be printed."
^DD(162.7,26,23,2,0)="Once printed, the expiration date is calculated.  The number of days is"
^DD(162.7,26,23,3,0)="derived from the status."
^DD(162.7,26,23,4,0)="This field is automatically updated."
^DD(162.7,26,"DT")="2930706"
^DD(162.7,26.5,0)="EXTENSIONS^162.701D^^3;0"
^DD(162.7,27,0)="ENTERED/LAST EDITED BY^P200'^VA(200,^0;17^Q"
^DD(162.7,27,3)="Enter the person who entered the claim."
^DD(162.7,27,21,0)="^^1^1^2930511^"
^DD(162.7,27,21,1,0)="The name of the person who entered the claim."
^DD(162.7,27,"DT")="2930731"
^DD(162.7,28,0)="DATE ENTERED/LAST EDITED^DX^^0;18^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,28,3)="Enter the date on which the claim was entered."
^DD(162.7,28,21,0)="^^1^1^2930511^"
^DD(162.7,28,21,1,0)="The date on which the unauthorized claim was entered."
^DD(162.7,28,"DT")="2931015"
^DD(162.7,29,0)="DISCHARGE TYPE^C^^ ; ^S X=$$DISCHTYP^FBUCDD(D0)"
^DD(162.7,29,9)="^"
^DD(162.7,29,9.01)=""
^DD(162.7,29,9.1)="S X=$$DISCHTYP^FBUCDD(D0)"
^DD(162.7,29,21,0)="^^1^1^2930527^"
^DD(162.7,29,21,1,0)="Display DISCHARGE TYPE of related entry in authorization subfile."
^DD(162.7,29,23,0)="^^3^3^2930527^"
^DD(162.7,29,23,1,0)="Fee Basis Patient file (161), Authorization sub-file (161.01),"
^DD(162.7,29,23,2,0)="Discharge Type field (.06) is referenced is entry is found in the field's"
^DD(162.7,29,23,3,0)="'AG' cross-reference.  The value of the set is displayed."
^DD(162.7,29,"DT")="2951120"
^DD(162.7,30,0)="AUTHORIZATION^NJ5,0^^0;27^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.7,30,3)="Enter the authorization to which this unauthorized claim is related."
^DD(162.7,30,21,0)="^^2^2^2941128^"
^DD(162.7,30,21,1,0)="This field is set to the internal entry number of the"
^DD(162.7,30,21,2,0)="appropriate authorization in file 161."
^DD(162.7,30,"DT")="2930720"
^DD(162.7,31,0)="38 U.S.C. 1725^S^1:YES;0:NO;^0;28^Q"
^DD(162.7,31,3)="Enter YES if claim is being considered under Millennium Act 38 U.S.C. 1725."
^DD(162.7,31,21,0)="^.001^3^3^3010705^^^^"
^DD(162.7,31,21,1,0)="If this field has a YES value, the software will treat this claim as"
^DD(162.7,31,21,2,0)="an emergency care claim that is being considered under the provisions"
^DD(162.7,31,21,3,0)="of the Millennium Act 38 U.S.C. 1725."
^DD(162.7,31,"DT")="3010621"
^DD(162.7,32,0)="FPPS CLAIM ID^F^^5;1^K:$L(X)>32!($L(X)<1)!'(X?1(1""1"",1""2"",1""3"",1""4"",1""5"",1""6"",1""7"",1""8"",1""9"").31N) X"
^DD(162.7,32,3)="Enter a non-zero number from 1 to 32 digits long, 0 decimal digits."
^DD(162.7,32,21,0)="^.001^2^2^3030617^^"
^DD(162.7,32,21,1,0)="Enter the entire FPPS Claim ID as shown on the invoice document.  (1-32 "
^DD(162.7,32,21,2,0)="character text ID created by FPPS system)."
^DD(162.7,32,"DT")="3030626"
^DD(162.7,50,0)="NOTICE OF DISAGREEMENT RECV'D^DX^^A;1^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,50,.1)="DATE NOTICE OF DISAGREEMENT RECV'D"
^DD(162.7,50,3)="Enter date Notice of Agreement (VAF 21-4138) was received."
^DD(162.7,50,21,0)="^^1^1^2930315^"
^DD(162.7,50,21,1,0)="Date Notice of Agreement (VAF 21-4138) received."
^DD(162.7,50,"DT")="2931015"
^DD(162.7,51,0)="STATEMENT OF THE CASE ISSUED^DX^^A;2^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,51,.1)="DATE STATEMENT OF THE CASE ISSUED"
^DD(162.7,51,3)="Enter date Statement of the Case was issued."
^DD(162.7,51,21,0)="^^1^1^2930315^"
^DD(162.7,51,21,1,0)="Date Statement of the Case was issued."
^DD(162.7,51,"DT")="2931015"
^DD(162.7,52,0)="DATE SUBSTANTIVE APPEAL RECV'D^DX^^A;3^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,52,3)="Enter date Substantive Appeal (VAF 1-9) was received."
^DD(162.7,52,21,0)="^^1^1^2930315^"
^DD(162.7,52,21,1,0)="Date Substantive Appeal was received."
^DD(162.7,52,"DT")="2931015"
^DD(162.7,53,0)="DATE APPEAL DISPOSITIONED^DX^^A;4^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,53,3)="Enter date BVA decided appeal."
^DD(162.7,53,21,0)="^^1^1^2930319^^^"
^DD(162.7,53,21,1,0)="Date appeal decision rendered by Board of Veterans Appeal (BVA)."
^DD(162.7,53,"DT")="2931015"
^DD(162.7,54,0)="DATE APPEALED TO COVA^DX^^A;5^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,54,3)="Enter date BVA decision was appealed to Court of Veteran Affairs (COVA)."
^DD(162.7,54,21,0)="^^2^2^2931008^^"
^DD(162.7,54,21,1,0)="Date Board of Veterans Appeal decision was appealed to Court of Veteran Affairs (COVA)."
^DD(162.7,54,21,2,0)="A timely appeal must be within 120 days of the BVA decision."
^DD(162.7,54,"DT")="2931015"
^DD(162.7,55,0)="DATE COVA APPEAL DISPOSITIONED^DX^^A;6^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT S X=Y K:Y<1 X"
^DD(162.7,55,3)="Enter date a dispositon to a COVA appeal made."
^DD(162.7,55,21,0)="^^1^1^2931008^^"
^DD(162.7,55,21,1,0)="Date a decision to a COVA appeal rendered."
^DD(162.7,55,"DT")="2931015"
^DD(162.7,"B","*DISPOSITON DESCRIPTION",16)=""
^DD(162.7,"B","*REASON FOR PENDING",17)=""
^DD(162.7,"B","38 U.S.C. 1725",31)=""
^DD(162.7,"B","AMOUNT APPROVED",14)=""
^DD(162.7,"B","AMOUNT CLAIMED",8)=""
^DD(162.7,"B","APPEAL DISPOSITION REMARKS",10.6)=""
^DD(162.7,"B","AUTHORIZATION",30)=""
^DD(162.7,"B","AUTHORIZED FROM DATE",12)=""
^DD(162.7,"B","AUTHORIZED TO DATE",13)=""
^DD(162.7,"B","CLAIM SUBMITTED BY",23)=""
^DD(162.7,"B","COVA DISPOSITION REMARKS",10.7)=""
^DD(162.7,"B","DATE APPEAL DISPOSITIONED",53)=""
^DD(162.7,"B","DATE APPEALED TO COVA",54)=""
^DD(162.7,"B","DATE CLAIM RECEIVED",.01)=""
^DD(162.7,"B","DATE COVA APPEAL DISPOSITIONED",55)=""
^DD(162.7,"B","DATE ENTERED/LAST EDITED",28)=""
^DD(162.7,"B","DATE LETTER SENT",19.5)=""
^DD(162.7,"B","DATE OF CURRENT STATUS",25)=""
^DD(162.7,"B","DATE OF DISPOSITION",11)=""
^DD(162.7,"B","DATE OF ORIGINAL DISPOSITION",22)=""
^DD(162.7,"B","DATE SUBSTANTIVE APPEAL RECV'D",52)=""
^DD(162.7,"B","DATE VALID CLAIM RECEIVED",7)=""
^DD(162.7,"B","DIAGNOSIS",5)=""
^DD(162.7,"B","DISCHARGE TYPE",29)=""
^DD(162.7,"B","DISPOSITION",10)=""
^DD(162.7,"B","DISPOSITION REMARKS",10.5)=""
^DD(162.7,"B","ENTERED/LAST EDITED BY",27)=""
^DD(162.7,"B","EXPIRATION DATE OF CLAIM",26)=""
^DD(162.7,"B","EXTENSIONS",26.5)=""
^DD(162.7,"B","FEE PROGRAM",.5)=""
^DD(162.7,"B","FPPS CLAIM ID",32)=""
^DD(162.7,"B","MASTER CLAIM",20)=""
^DD(162.7,"B","NOTICE OF DISAGREEMENT RECV'D",50)=""
^DD(162.7,"B","PATIENT TYPE CODE",9)=""
^DD(162.7,"B","PRIMARY SERVICE FACILITY",6)=""
^DD(162.7,"B","PRINT LETTER?",19)=""
^DD(162.7,"B","REASON FOR DISAPPROVAL",15)=""
^DD(162.7,"B","REOPEN CLAIM DATE",21)=""
^DD(162.7,"B","STATEMENT OF THE CASE ISSUED",51)=""
^DD(162.7,"B","STATUS",24)=""
^DD(162.7,"B","TREATING SPECIALTY",9)="1"
^DD(162.7,"B","TREATMENT FROM DATE",3)=""
^DD(162.7,"B","TREATMENT TO DATE",4)=""
^DD(162.7,"B","VENDOR",1)=""
^DD(162.7,"B","VETERAN",2)=""
^DD(162.7,"GL",0,1,.01)=""
^DD(162.7,"GL",0,2,.5)=""
^DD(162.7,"GL",0,3,1)=""
^DD(162.7,"GL",0,4,2)=""
^DD(162.7,"GL",0,5,3)=""
^DD(162.7,"GL",0,6,4)=""
^DD(162.7,"GL",0,7,6)=""
^DD(162.7,"GL",0,8,7)=""
^DD(162.7,"GL",0,9,8)=""
^DD(162.7,"GL",0,10,9)=""
^DD(162.7,"GL",0,11,10)=""
^DD(162.7,"GL",0,12,11)=""
^DD(162.7,"GL",0,13,12)=""
^DD(162.7,"GL",0,14,13)=""
^DD(162.7,"GL",0,15,14)=""
^DD(162.7,"GL",0,16,19)=""
^DD(162.7,"GL",0,17,27)=""
^DD(162.7,"GL",0,18,28)=""
^DD(162.7,"GL",0,19,19.5)=""
^DD(162.7,"GL",0,20,20)=""
^DD(162.7,"GL",0,21,21)=""
^DD(162.7,"GL",0,22,22)=""
^DD(162.7,"GL",0,23,23)=""
^DD(162.7,"GL",0,24,24)=""
^DD(162.7,"GL",0,25,25)=""
^DD(162.7,"GL",0,26,26)=""
^DD(162.7,"GL",0,27,30)=""
^DD(162.7,"GL",0,28,31)=""
^DD(162.7,"GL",1,0,16)=""
^DD(162.7,"GL",2,0,17)=""
^DD(162.7,"GL",3,0,26.5)=""
^DD(162.7,"GL",4,0,10.5)=""
^DD(162.7,"GL",5,1,32)=""
^DD(162.7,"GL","A",1,50)=""
^DD(162.7,"GL","A",2,51)=""
^DD(162.7,"GL","A",3,52)=""
^DD(162.7,"GL","A",4,53)=""
^DD(162.7,"GL","A",5,54)=""
^DD(162.7,"GL","A",6,55)=""
^DD(162.7,"GL","A1",0,10.6)=""
^DD(162.7,"GL","A2",0,10.7)=""
^DD(162.7,"GL","D",0,15)=""
^DD(162.7,"GL","DX",1,5)=""
^DD(162.7,"IX",.01)=""
^DD(162.7,"IX",.5)=""
^DD(162.7,"IX",1)=""
^DD(162.7,"IX",2)=""
^DD(162.7,"IX",3)=""
^DD(162.7,"IX",10)=""
^DD(162.7,"IX",12)=""
^DD(162.7,"IX",13)=""
^DD(162.7,"IX",19)=""
^DD(162.7,"IX",19.5)=""
^DD(162.7,"IX",20)=""
^DD(162.7,"IX",23)=""
^DD(162.7,"IX",24)=""
^DD(162.7,"IX",25)=""
^DD(162.7,"IX",26)=""
^DD(162.7,"RQ",.01)=""
^DD(162.7,"RQ",.5)=""
^DD(162.7,"RQ",1)=""
^DD(162.7,"RQ",2)=""
^DD(162.7,"RQ",3)=""
^DD(162.7,"RQ",4)=""
^DD(162.7,"RQ",9)=""
^DD(162.7,"RQ",20)=""
^DD(162.7,"RQ",23)=""
^DD(162.7,"RQ",24)=""
^DD(162.7,"RQ",25)=""
^DD(162.7,"SB",162.701,26.5)=""
^DD(162.7,"SB",162.702,10.5)=""
^DD(162.7,"SB",162.703,10.6)=""
^DD(162.7,"SB",162.704,10.7)=""
^DD(162.7,"SB",162.715,15)=""
^DD(162.7,"SB",162.716,16)=""
^DD(162.7,"SB",162.717,17)=""
^DD(162.701,0)="EXTENSIONS SUB-FIELD^^.05^5"
^DD(162.701,0,"DT")="3011009"
^DD(162.701,0,"IX","B",162.701,.01)=""
^DD(162.701,0,"NM","EXTENSIONS")=""
^DD(162.701,0,"UP")="162.7"
^DD(162.701,.01,0)="EXTENSION ENTERED DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(162.701,.01,1,0)="^.1"
^DD(162.701,.01,1,1,0)="162.701^B"
^DD(162.701,.01,1,1,1)="S ^FB583(DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(162.701,.01,1,1,2)="K ^FB583(DA(1),3,""B"",$E(X,1,30),DA)"
^DD(162.701,.01,3)="Enter the date/time when the extension was granted."
^DD(162.701,.01,21,0)="^.001^2^2^3011009^^^"
^DD(162.701,.01,21,1,0)="The date/time when the extension was entered into the computer.  This"
^DD(162.701,.01,21,2,0)="field is automatically populated."
^DD(162.701,.01,"DT")="3011009"
^DD(162.701,.02,0)="ENTERED BY^RP200'^VA(200,^0;2^Q"
^DD(162.701,.02,21,0)="^^1^1^3011009^"
^DD(162.701,.02,21,1,0)="User that entered the extension. Automatically populated."
^DD(162.701,.02,"DT")="3011009"
^DD(162.701,.03,0)="FOR STATUS^RP162.92'^FB(162.92,^0;3^Q"
^DD(162.701,.03,21,0)="^^1^1^3011009^"
^DD(162.701,.03,21,1,0)="Status for which the extension is being granted."
^DD(162.701,.03,"DT")="3011009"
^DD(162.701,.04,0)="EXTENSION DATE^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.701,.04,3)="Enter the extension date."
^DD(162.701,.04,21,0)="^^1^1^3011009^"
^DD(162.701,.04,21,1,0)="New extension date granted."
^DD(162.701,.04,"DT")="3011009"
^DD(162.701,.05,0)="COMMENTS^F^^1;1^K:$L(X)>80!($L(X)<3) X"
^DD(162.701,.05,3)="Answer must be 3-80 characters in length."
^DD(162.701,.05,21,0)="^^1^1^3011009^"
^DD(162.701,.05,21,1,0)="Enter any comments related to the extension."
^DD(162.701,.05,"DT")="3011009"
^DD(162.701,"B","COMMENTS",.05)=""
^DD(162.701,"B","ENTERED BY",.02)=""
^DD(162.701,"B","EXTENSION DATE",.04)=""
^DD(162.701,"B","EXTENSION ENTERED DATE/TIME",.01)=""
^DD(162.701,"B","FOR STATUS",.03)=""
^DD(162.701,"GL",0,1,.01)=""
^DD(162.701,"GL",0,2,.02)=""
^DD(162.701,"GL",0,3,.03)=""
^DD(162.701,"GL",0,4,.04)=""
^DD(162.701,"GL",1,1,.05)=""
^DD(162.701,"IX",.01)=""
^DD(162.701,"RQ",.02)=""
^DD(162.701,"RQ",.03)=""
^DD(162.701,"RQ",.04)=""
^DD(162.702,0)="DISPOSITION REMARKS SUB-FIELD^^.01^1"
^DD(162.702,0,"DT")="3011105"
^DD(162.702,0,"NM","DISPOSITION REMARKS")=""
^DD(162.702,0,"UP")="162.7"
^DD(162.702,.01,0)="DISPOSITION REMARKS^WL^^0;1^Q"
^DD(162.702,.01,21,0)="^.001^2^2^3011126^^"
^DD(162.702,.01,21,1,0)="Special remarks regarding the initial disposition that should be included"
^DD(162.702,.01,21,2,0)="on a disposition letter to the claimant. (Optional)"
^DD(162.702,.01,"DT")="3011115"
^DD(162.702,"B","DISPOSITION REMARKS",.01)=""
^DD(162.702,"GL",0,1,.01)=""
^DD(162.703,0)="APPEAL DISPOSITION REMARKS SUB-FIELD^^.01^1"
^DD(162.703,0,"DT")="3011115"
^DD(162.703,0,"NM","APPEAL DISPOSITION REMARKS")=""
^DD(162.703,0,"UP")="162.7"
^DD(162.703,.01,0)="APPEAL DISPOSITION REMARKS^WL^^0;1^Q"
^DD(162.703,.01,21,0)="^.001^2^2^3011126^^"
^DD(162.703,.01,21,1,0)="Special remarks regarding the disposition of an appeal that should be"
^DD(162.703,.01,21,2,0)="included on a disposition letter to the claimant. (Optional)"
^DD(162.703,.01,"DT")="3011115"
^DD(162.703,"B","APPEAL DISPOSITION REMARKS",.01)=""
^DD(162.703,"GL",0,1,.01)=""
^DD(162.704,0)="COVA DISPOSITION REMARKS SUB-FIELD^^.01^1"
^DD(162.704,0,"DT")="3011115"
^DD(162.704,0,"NM","COVA DISPOSITION REMARKS")=""
^DD(162.704,0,"UP")="162.7"
^DD(162.704,.01,0)="COVA DISPOSITION REMARKS^WL^^0;1^Q"
^DD(162.704,.01,21,0)="^.001^2^2^3011126^^"
^DD(162.704,.01,21,1,0)="Special remarks regarding the disposition of a COVA appeal that should be"
^DD(162.704,.01,21,2,0)="included on a disposition letter to the claimant. (Optional)"
^DD(162.704,.01,"DT")="3020816"
^DD(162.704,"B","COVA DISPOSITION REMARKS",.01)=""
^DD(162.704,"GL",0,1,.01)=""
^DD(162.715,0)="REASON FOR DISAPPROVAL SUB-FIELD^^.01^1"
^DD(162.715,0,"DT")="2930401"
^DD(162.715,0,"IX","B",162.715,.01)=""
^DD(162.715,0,"NM","REASON FOR DISAPPROVAL")=""
^DD(162.715,0,"UP")="162.7"
^DD(162.715,.01,0)="REASON FOR DISAPPROVAL^M*P162.94'X^FB(162.94,^0;1^S DIC(""S"")=""I $P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.715,.01,1,0)="^.1"
^DD(162.715,.01,1,1,0)="162.715^B"
^DD(162.715,.01,1,1,1)="S ^FB583(DA(1),""D"",""B"",$E(X,1,30),DA)="""""
^DD(162.715,.01,1,1,2)="K ^FB583(DA(1),""D"",""B"",$E(X,1,30),DA)"
^DD(162.715,.01,3)="Identify the reason(s) why the unauthorized claim was disapproved."
^DD(162.715,.01,12)="Select only active disapproval reasons if the unauthorized claim has a disposition of other than approved."
^DD(162.715,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)"""
^DD(162.715,.01,21,0)="^^1^1^2930511^"
^DD(162.715,.01,21,1,0)="Reason why claim was not approved."
^DD(162.715,.01,23,0)="^^4^4^2930511^^"
^DD(162.715,.01,23,1,0)="Reason for disapproval is only prompted if the disposition type is other"
^DD(162.715,.01,23,2,0)=" than APPROVED."
^DD(162.715,.01,23,3,0)="If the disposition was changed to APPROVED, all disapproval reason will be"
^DD(162.715,.01,23,4,0)=" deleted."
^DD(162.715,.01,"DT")="2930402"
^DD(162.715,"B","REASON FOR DISAPPROVAL",.01)=""
^DD(162.715,"GL",0,1,.01)=""
^DD(162.715,"IX",.01)=""
^DD(162.716,0)="*DISPOSITON DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.716,0,"NM","*DISPOSITON DESCRIPTION")=""
^DD(162.716,0,"UP")="162.7"
^DD(162.716,.01,0)="DISPOSITION DESCRIPTION^WL^^0;1^Q"
^DD(162.716,"B","DISPOSITION DESCRIPTION",.01)=""
^DD(162.716,"GL",0,1,.01)=""
^DD(162.717,0)="*REASON FOR PENDING SUB-FIELD^^.01^1"
^DD(162.717,0,"NM","*REASON FOR PENDING")=""
^DD(162.717,0,"UP")="162.7"
^DD(162.717,.01,0)="REASON FOR PENDING^WL^^0;1^Q"
^DD(162.717,.01,"DT")="2900822"
^DD(162.717,"B","REASON FOR PENDING",.01)=""
^DD(162.717,"GL",0,1,.01)=""
^DD(162.8,0)="FIELD^^.07^7"
^DD(162.8,0,"DT")="2930303"
^DD(162.8,0,"IX","AC",162.8,.02)=""
^DD(162.8,0,"IX","ACD",162.8,.01)=""
^DD(162.8,0,"IX","ACD1",162.8,.02)=""
^DD(162.8,0,"IX","ACD2",162.8,.05)=""
^DD(162.8,0,"IX","AQ",162.8,.03)=""
^DD(162.8,0,"IX","AUI",162.8,.02)=""
^DD(162.8,0,"IX","AUI1",162.8,.03)=""
^DD(162.8,0,"IX","B",162.8,.01)=""
^DD(162.8,0,"NM","FEE BASIS UNAUTHORIZED CLAIMS PENDING INFO")=""
^DD(162.8,0,"VR")="3.5"
^DD(162.8,.01,0)="DATE INFORMATION REQUESTED^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.8,.01,1,0)="^.1"
^DD(162.8,.01,1,1,0)="162.8^B"
^DD(162.8,.01,1,1,1)="S ^FBAA(162.8,""B"",$E(X,1,30),DA)="""""
^DD(162.8,.01,1,1,2)="K ^FBAA(162.8,""B"",$E(X,1,30),DA)"
^DD(162.8,.01,1,2,0)="162.8^ACD^MUMPS"
^DD(162.8,.01,1,2,1)="S:$P(^FBAA(162.8,DA,0),U,2)&('$P(^(0),U,5)) ^FBAA(162.8,""ACD"",$P(^(0),U,2),X,DA)="""""
^DD(162.8,.01,1,2,2)="K:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,""ACD"",$P(^(0),U,2),X,DA)"
^DD(162.8,.01,1,2,"%D",0)="^^2^2^2930312^^^^"
^DD(162.8,.01,1,2,"%D",1,0)="Cross reference by claim number and request date, only if date information"
^DD(162.8,.01,1,2,"%D",2,0)="received is null."
^DD(162.8,.01,1,2,"DT")="2930312"
^DD(162.8,.01,3)="Enter the date information was requested for completion of an unauthorized claim."
^DD(162.8,.01,21,0)="^^1^1^2930519^^^^"
^DD(162.8,.01,21,1,0)="Date information was requested for completion of an unauthorized claim."
^DD(162.8,.01,"DT")="2930312"
^DD(162.8,.02,0)="UNAUTHORIZED CLAIM^R*P162.7'^FB583(^0;2^S DIC(""S"")=""S FBDFN=+$P($G(^FB583(DA,0)),U,4) I +$P(^FB583(Y,0),U,4)=FBDFN,'$P(^FB583(+Y,0),U,11) K FBDFN"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.8,.02,1,0)="^.1"
^DD(162.8,.02,1,1,0)="162.8^AC"
^DD(162.8,.02,1,1,1)="S ^FBAA(162.8,""AC"",$E(X,1,30),DA)="""""
^DD(162.8,.02,1,1,2)="K ^FBAA(162.8,""AC"",$E(X,1,30),DA)"
^DD(162.8,.02,1,1,"%D",0)="^^1^1^2930302^^"
^DD(162.8,.02,1,1,"%D",1,0)="Cross reference by unauthorized claim."
^DD(162.8,.02,1,1,"DT")="2930301"
^DD(162.8,.02,1,2,0)="162.8^ACD1^MUMPS"
^DD(162.8,.02,1,2,1)="S:'$P(^FBAA(162.8,DA,0),U,5) ^FBAA(162.8,""ACD"",X,$P(^(0),U),DA)="""""
^DD(162.8,.02,1,2,2)="K ^FBAA(162.8,""ACD"",X,$P(^FBAA(162.8,DA,0),U),DA)"
^DD(162.8,.02,1,2,"%D",0)="^^2^2^2930302^^^"
^DD(162.8,.02,1,2,"%D",1,0)="Cross reference by claim number and request date, if date information"
^DD(162.8,.02,1,2,"%D",2,0)="received is null."
^DD(162.8,.02,1,2,"DT")="2930302"
^DD(162.8,.02,1,3,0)="162.8^AUI^MUMPS"
^DD(162.8,.02,1,3,1)="S:$P(^FBAA(162.8,DA,0),U,3) ^FBAA(162.8,""AUI"",X,$P(^FBAA(162.8,DA,0),U,3),DA)="""""
^DD(162.8,.02,1,3,2)="K:$P(^FBAA(162.8,DA,0),U,3) ^FBAA(162.8,""AUI"",X,$P(^FBAA(162.8,DA,0),U,3),DA)"
^DD(162.8,.02,1,3,"%D",0)="^^1^1^2930616^^^"
^DD(162.8,.02,1,3,"%D",1,0)="Group pending information by unauthorized claim."
^DD(162.8,.02,1,3,"DT")="2930616"
^DD(162.8,.02,3)="Select unauthorized claim for veteran."
^DD(162.8,.02,12)="Display only those claims which have not been dispositioned."
^DD(162.8,.02,12.1)="S DIC(""S"")=""S FBDFN=+$P($G(^FB583(DA,0)),U,4) I +$P(^FB583(Y,0),U,4)=FBDFN,'$P(^FB583(+Y,0),U,11) K FBDFN"""
^DD(162.8,.02,21,0)="^^2^2^2930511^"
^DD(162.8,.02,21,1,0)="The unauthorized claim associated with the requested information.  Claim"
^DD(162.8,.02,21,2,0)="must not have been dispostioned."
^DD(162.8,.02,"DT")="2930616"
^DD(162.8,.03,0)="INFORMATION REQUESTED^R*P162.93'^FB(162.93,^0;3^S DIC(""S"")=""I $P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.8,.03,1,0)="^.1"
^DD(162.8,.03,1,1,0)="162.8^AQ"
^DD(162.8,.03,1,1,1)="S ^FBAA(162.8,""AQ"",$E(X,1,30),DA)="""""
^DD(162.8,.03,1,1,2)="K ^FBAA(162.8,""AQ"",$E(X,1,30),DA)"
^DD(162.8,.03,1,1,"%D",0)="^^1^1^2930408^"
^DD(162.8,.03,1,1,"%D",1,0)="Cross-reference used to determine if information already requested."
^DD(162.8,.03,1,1,"DT")="2930408"
^DD(162.8,.03,1,2,0)="162.8^AUI1^MUMPS"
^DD(162.8,.03,1,2,1)="S:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,""AUI"",$P(^FBAA(162.8,DA,0),U,2),X,DA)="""""
^DD(162.8,.03,1,2,2)="K:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,""AUI"",$P(^FBAA(162.8,DA,0),U,2),X,DA)"
^DD(162.8,.03,1,2,"%D",0)="^^1^1^2930616^^"
^DD(162.8,.03,1,2,"%D",1,0)="Group pending information by unauthorized claim."
^DD(162.8,.03,1,2,"DT")="2930616"
^DD(162.8,.03,3)="Select the information which is requested."
^DD(162.8,.03,12)="Allow selection of active requested information."
^DD(162.8,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,2)"""
^DD(162.8,.03,21,0)="^^1^1^2930511^"
^DD(162.8,.03,21,1,0)="The information which is being requested.  Only active ones may be selected."
^DD(162.8,.03,"DT")="2930616"
^DD(162.8,.04,0)="COMMENTS^F^^0;4^K:$L(X)>65!($L(X)<3) X"
^DD(162.8,.04,3)="Answer must be 3-65 characters in length."
^DD(162.8,.04,21,0)="^^2^2^2931007^^"
^DD(162.8,.04,21,1,0)="The elaborated reason why information is being requested.  Should only be"
^DD(162.8,.04,21,2,0)="entered/displayed when information requested is OTHER."
^DD(162.8,.04,23,0)="^^1^1^2931007^^"
^DD(162.8,.04,23,1,0)="This field will be prompted to the user whenever the reason is OTHER."
^DD(162.8,.04,"DT")="2930224"
^DD(162.8,.05,0)="DATE INFORMATION RECEIVED^RDI^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(162.8,.05,1,0)="^.1^^-1"
^DD(162.8,.05,1,1,0)="162.8^ACD2^MUMPS"
^DD(162.8,.05,1,1,1)="K:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,""ACD"",$P(^(0),U,2),$P(^(0),U),DA)"
^DD(162.8,.05,1,1,2)="S:$P(^FBAA(162.8,DA,0),U,2) ^FBAA(162.8,""ACD"",$P(^(0),U,2),$P(^(0),U),DA)="""""
^DD(162.8,.05,1,1,"%D",0)="^^4^4^2930302^^^"
^DD(162.8,.05,1,1,"%D",1,0)="Cross reference by claim number and request date, if date information"
^DD(162.8,.05,1,1,"%D",2,0)="received is null.  If it is not null, kill previously set cross-reference."
^DD(162.8,.05,1,1,"%D",3,0)="Cross reference is to determine if there are any pending information for"
^DD(162.8,.05,1,1,"%D",4,0)="a claim."
^DD(162.8,.05,1,1,"DT")="2930302"
^DD(162.8,.05,3)="Enter date the requested information was received."
^DD(162.8,.05,21,0)="^^1^1^2930511^"
^DD(162.8,.05,21,1,0)="The date the requested information was received."
^DD(162.8,.05,"DT")="2930513"
^DD(162.8,.06,0)="RECEIVED BY^P200'^VA(200,^0;6^Q"
^DD(162.8,.06,3)="Enter user who received the information."
^DD(162.8,.06,21,0)="^^1^1^2930511^"
^DD(162.8,.06,21,1,0)="The user who received the information."
^DD(162.8,.06,"DT")="2930224"
^DD(162.8,.07,0)="REQUESTED BY^P200'^VA(200,^0;7^Q"
^DD(162.8,.07,3)="Enter the user who requested the information."
^DD(162.8,.07,21,0)="^^1^1^2930511^"
^DD(162.8,.07,21,1,0)="The user who requested the information."
^DD(162.8,.07,"DT")="2930224"
^DD(162.8,"B","COMMENTS",.04)=""
^DD(162.8,"B","DATE INFORMATION RECEIVED",.05)=""
^DD(162.8,"B","DATE INFORMATION REQUESTED",.01)=""
^DD(162.8,"B","INFORMATION REQUESTED",.03)=""
^DD(162.8,"B","RECEIVED BY",.06)=""
^DD(162.8,"B","REQUESTED BY",.07)=""
^DD(162.8,"B","UNAUTHORIZED CLAIM",.02)=""
^DD(162.8,"GL",0,1,.01)=""
^DD(162.8,"GL",0,2,.02)=""
^DD(162.8,"GL",0,3,.03)=""
^DD(162.8,"GL",0,4,.04)=""
^DD(162.8,"GL",0,5,.05)=""
^DD(162.8,"GL",0,6,.06)=""
^DD(162.8,"GL",0,7,.07)=""
^DD(162.8,"IX",.01)=""
^DD(162.8,"IX",.02)=""
^DD(162.8,"IX",.03)=""
^DD(162.8,"IX",.05)=""
^DD(162.8,"RQ",.01)=""
^DD(162.8,"RQ",.02)=""
^DD(162.8,"RQ",.03)=""
^DD(162.8,"RQ",.05)=""
^DD(162.91,0)="FIELD^^3^7"
^DD(162.91,0,"DT")="3010710"
^DD(162.91,0,"IX","B",162.91,.01)=""
^DD(162.91,0,"NM","FEE BASIS UNAUTHORIZED CLAIMS DISPOSITIONS")=""
^DD(162.91,0,"PT",162.7,10)=""
^DD(162.91,0,"VR")="3.5"
^DD(162.91,0,"VRPK")="FB"
^DD(162.91,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.91,.001,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(162.91,.001,21,0)="^^1^1^2930511^"
^DD(162.91,.001,21,1,0)="The internal entry number of the record in the file."
^DD(162.91,.001,"DT")="2930304"
^DD(162.91,.01,0)="DISPOSITION^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(162.91,.01,1,0)="^.1"
^DD(162.91,.01,1,1,0)="162.91^B"
^DD(162.91,.01,1,1,1)="S ^FB(162.91,""B"",$E(X,1,30),DA)="""""
^DD(162.91,.01,1,1,2)="K ^FB(162.91,""B"",$E(X,1,30),DA)"
^DD(162.91,.01,3)="Answer must be 3-30 characters in length."
^DD(162.91,.01,21,0)="^.001^1^1^3010417^^"
^DD(162.91,.01,21,1,0)="Enter the dispositon."
^DD(162.91,.01,"DT")="2930304"
^DD(162.91,.02,0)="ACTIVE?^S^1:YES;^0;2^Q"
^DD(162.91,.02,3)="Indicate if disposition is active."
^DD(162.91,.02,21,0)="^^1^1^2930511^"
^DD(162.91,.02,21,1,0)="This field indicates if dispostion is active."
^DD(162.91,.02,"DT")="2921102"
^DD(162.91,.03,0)="CODE^RF^^0;3^K:$L(X)>2!($L(X)<2) X"
^DD(162.91,.03,3)="Answer must be 2 characters in length."
^DD(162.91,.03,21,0)="^^1^1^2930526^"
^DD(162.91,.03,21,1,0)="Code used to identify dispositioned status in outputs."
^DD(162.91,.03,"DT")="2930526"
^DD(162.91,1,0)="DESCRIPTION^162.911^^1;0"
^DD(162.91,1,21,0)="^^3^3^2930511^"
^DD(162.91,1,21,1,0)="This field contains a detailed description of the disposition."
^DD(162.91,1,21,2,0)="This description is used in the letter which prints when a claim"
^DD(162.91,1,21,3,0)="is dispositioned."
^DD(162.91,2,0)="1725 DESCRIPTION^162.912^^2;0"
^DD(162.91,2,21,0)="^^3^3^3010710^"
^DD(162.91,2,21,1,0)="This field contains a detailed description of the disposition for claims"
^DD(162.91,2,21,2,0)="considered under Millennium Act 38 U.S.C. 1725. This description is used"
^DD(162.91,2,21,3,0)="in the letter which prints when that type of claim is dispositioned."
^DD(162.91,3,0)="ADDITIONAL DESCRIPTION^162.913^^3;0"
^DD(162.91,3,21,0)="^^4^4^3010710^"
^DD(162.91,3,21,1,0)="This optional field contains any additional text associated with the"
^DD(162.91,3,21,2,0)="disposition.  This text is used in the letter which prints when a claim is"
^DD(162.91,3,21,3,0)="dispositioned.  If the disposition is a disapproval, this field will be"
^DD(162.91,3,21,4,0)="printed after the list of disapproval reasons."
^DD(162.91,3,"DT")="3010628"
^DD(162.91,"B","1725 DESCRIPTION",2)=""
^DD(162.91,"B","ACTIVE?",.02)=""
^DD(162.91,"B","ADDITIONAL DESCRIPTION",3)=""
^DD(162.91,"B","CODE",.03)=""
^DD(162.91,"B","DESCRIPTION",1)=""
^DD(162.91,"B","DISPOSITION",.01)=""
^DD(162.91,"B","NUMBER",.001)=""
^DD(162.91,"GL",0,1,.01)=""
^DD(162.91,"GL",0,2,.02)=""
^DD(162.91,"GL",0,3,.03)=""
^DD(162.91,"GL",1,0,1)=""
^DD(162.91,"GL",2,0,2)=""
^DD(162.91,"GL",3,0,3)=""
^DD(162.91,"IX",.01)=""
^DD(162.91,"RQ",.01)=""
^DD(162.91,"RQ",.03)=""
^DD(162.91,"SB",162.911,1)=""
^DD(162.91,"SB",162.912,2)=""
^DD(162.91,"SB",162.913,3)=""
^DD(162.911,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.911,0,"DT")="2921102"
^DD(162.911,0,"NM","DESCRIPTION")=""
^DD(162.911,0,"UP")="162.91"
^DD(162.911,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(162.911,.01,"DT")="2921102"
^DD(162.911,"B","DESCRIPTION",.01)=""
^DD(162.911,"GL",0,1,.01)=""
^DD(162.912,0)="1725 DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.912,0,"DT")="3010710"
^DD(162.912,0,"NM","1725 DESCRIPTION")=""
^DD(162.912,0,"UP")="162.91"
^DD(162.912,.01,0)="1725 DESCRIPTION^WL^^0;1^Q"
^DD(162.912,.01,21,0)="^.001^3^3^3010710^^^^"
^DD(162.912,.01,21,1,0)="This field contains a detailed description of the disposition for claims"
^DD(162.912,.01,21,2,0)="considered under Millennium Act 38 U.S.C. 1725. This description is used"
^DD(162.912,.01,21,3,0)="in the letter which prints when that type of claim is dispositioned."
^DD(162.912,.01,"DT")="3010710"
^DD(162.912,"B","1725 DESCRIPTION",.01)=""
^DD(162.912,"GL",0,1,.01)=""
^DD(162.913,0)="ADDITIONAL DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.913,0,"DT")="3010710"
^DD(162.913,0,"NM","ADDITIONAL DESCRIPTION")=""
^DD(162.913,0,"UP")="162.91"
^DD(162.913,.01,0)="ADDITIONAL DESCRIPTION^WL^^0;1^Q"
^DD(162.913,.01,21,0)="^^4^4^3010710^"
^DD(162.913,.01,21,1,0)="This optional field contains any additional text associated with the"
^DD(162.913,.01,21,2,0)="disposition.  This text is used in the letter which prints when a claim is"
^DD(162.913,.01,21,3,0)="dispositioned.  If the disposition is a disapproval, this field will be"
^DD(162.913,.01,21,4,0)="printed after the list of disapproval reasons."
^DD(162.913,.01,"DT")="3010710"
^DD(162.913,"B","ADDITIONAL DESCRIPTION",.01)=""
^DD(162.913,"GL",0,1,.01)=""
^DD(162.92,0)="FIELD^^1^9"
^DD(162.92,0,"DT")="2931007"
^DD(162.92,0,"IX","AO",162.92,.04)=""
^DD(162.92,0,"IX","B",162.92,.01)=""
^DD(162.92,0,"NM","FEE BASIS UNAUTHORIZED CLAIMS STATUS")=""
^DD(162.92,0,"PT",162.7,24)=""
^DD(162.92,0,"PT",162.701,.03)=""
^DD(162.92,0,"VR")="3.5"
^DD(162.92,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.92,.001,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(162.92,.001,21,0)="^^1^1^2930511^"
^DD(162.92,.001,21,1,0)="The internal entry number of the record in the file."
^DD(162.92,.001,"DT")="2930304"
^DD(162.92,.01,0)="STATUS^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(162.92,.01,1,0)="^.1"
^DD(162.92,.01,1,1,0)="162.92^B"
^DD(162.92,.01,1,1,1)="S ^FB(162.92,""B"",$E(X,1,30),DA)="""""
^DD(162.92,.01,1,1,2)="K ^FB(162.92,""B"",$E(X,1,30),DA)"
^DD(162.92,.01,3)="Answer must be 3-30 characters in length."
^DD(162.92,.01,21,0)="^^1^1^2930511^"
^DD(162.92,.01,21,1,0)="This field contains the status of an unauthorized claim."
^DD(162.92,.01,"DT")="2931008"
^DD(162.92,.02,0)="ACTIVE?^S^1:YES;^0;2^Q"
^DD(162.92,.02,3)="Indicate if the status is active."
^DD(162.92,.02,21,0)="^^1^1^2930511^"
^DD(162.92,.02,21,1,0)="This field indicates if the status is active."
^DD(162.92,.02,"DT")="2921102"
^DD(162.92,.03,0)="DAYS PRIOR EXPIRATION^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.92,.03,3)="Enter the days which constitute a timely claim before proceeding to next status, if appropriate for a given status."
^DD(162.92,.03,21,0)="^^2^2^2930511^^"
^DD(162.92,.03,21,1,0)="If filled in, allowable number of days a claim has before proceeding to the"
^DD(162.92,.03,21,2,0)="next status."
^DD(162.92,.03,23,0)="^^4^4^2930315^^"
^DD(162.92,.03,23,1,0)="Expiration date field in file 162.7 is calculated using this date."
^DD(162.92,.03,23,2,0)="Claims with a disposition staus of 5 (appeal pending) may vary, since the"
^DD(162.92,.03,23,3,0)="time period is remainder of year from date dispostitioned or 60 days"
^DD(162.92,.03,23,4,0)="from date statement of the case issued, whichever is greater."
^DD(162.92,.03,"DT")="2930315"
^DD(162.92,.04,0)="STATUS ORDER^RNJ2,0X^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N)!($D(^FB(162.92,""AO"",X))) X"
^DD(162.92,.04,1,0)="^.1"
^DD(162.92,.04,1,1,0)="162.92^AO"
^DD(162.92,.04,1,1,1)="S ^FB(162.92,""AO"",$E(X,1,30),DA)="""""
^DD(162.92,.04,1,1,2)="K ^FB(162.92,""AO"",$E(X,1,30),DA)"
^DD(162.92,.04,1,1,"%D",0)="^^2^2^2930317^"
^DD(162.92,.04,1,1,"%D",1,0)="Cross-reference is used to determine the IEN of status, as well as"
^DD(162.92,.04,1,1,"%D",2,0)="existence of previous status order."
^DD(162.92,.04,1,1,"DT")="2930317"
^DD(162.92,.04,3)="Type a whole number between 1 and 99.  The number represents the sequential order of the status.  It must be unique."
^DD(162.92,.04,21,0)="^^2^2^2930511^^"
^DD(162.92,.04,21,1,0)="A whole number which represents the sequential order of the status. "
^DD(162.92,.04,21,2,0)="Entry must be unique.  Software controls status, based on this value."
^DD(162.92,.04,"DT")="2930317"
^DD(162.92,.05,0)="LETTER^*P161.3'^FBAA(161.3,^0;5^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.92,.05,3)="The letter associated with this status."
^DD(162.92,.05,12)="Only unauthorized claim letters are selectable."
^DD(162.92,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(162.92,.05,21,0)="^^3^3^2930522^"
^DD(162.92,.05,21,1,0)="This field is a pointer to file 161.3, Fee Basis Letter.  A letter will be"
^DD(162.92,.05,21,2,0)="printed if there is an entry in this field.  Only unauthorized claim type"
^DD(162.92,.05,21,3,0)="letters are selectable."
^DD(162.92,.05,"DEL",.05,0)="I 1 W !,""Letters are not deletable."""
^DD(162.92,.05,"DT")="2931007"
^DD(162.92,.06,0)="1725 LETTER^*P161.3'^FBAA(161.3,^0;6^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(162.92,.06,3)="The letter associated with this status for 38 U.S.C. 1725 claims."
^DD(162.92,.06,12)="Only unauthorized claim letters are selectable."
^DD(162.92,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(162.92,.06,21,0)="^^3^3^3010621^"
^DD(162.92,.06,21,1,0)="This field is a pointer to file 161.3, Fee Basis Letter.  A letter for a"
^DD(162.92,.06,21,2,0)="claim being considered under 38 U.S.C. 1725 will be printed if there is an"
^DD(162.92,.06,21,3,0)="entry in this field.  Only unauthorized claim type letters are selectable."
^DD(162.92,.06,"DEL",1,0)="I 1 W !,""Letters are not deletable."""
^DD(162.92,.06,"DT")="3010621"
^DD(162.92,.07,0)="DAYS PRIOR 1725 EXPIRATION^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(162.92,.07,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(162.92,.07,21,0)="^^2^2^3011009^"
^DD(162.92,.07,21,1,0)="If filled in, allowable number of days a Mill Bill (38 U.S.C. 1725) claim"
^DD(162.92,.07,21,2,0)="has before proceeding to the next status."
^DD(162.92,.07,"DT")="3011009"
^DD(162.92,1,0)="DESCRIPTION^162.921^^1;0"
^DD(162.92,1,21,0)="^^1^1^2930511^"
^DD(162.92,1,21,1,0)="This field contains the detailed description of the status."
^DD(162.92,"B","1725 LETTER",.06)=""
^DD(162.92,"B","ACTIVE?",.02)=""
^DD(162.92,"B","DAYS PRIOR 1725 EXPIRATION",.07)=""
^DD(162.92,"B","DAYS PRIOR EXPIRATION",.03)=""
^DD(162.92,"B","DESCRIPTION",1)=""
^DD(162.92,"B","LETTER",.05)=""
^DD(162.92,"B","NUMBER",.001)=""
^DD(162.92,"B","STATUS",.01)=""
^DD(162.92,"B","STATUS ORDER",.04)=""
^DD(162.92,"GL",0,1,.01)=""
^DD(162.92,"GL",0,2,.02)=""
^DD(162.92,"GL",0,3,.03)=""
^DD(162.92,"GL",0,4,.04)=""
^DD(162.92,"GL",0,5,.05)=""
^DD(162.92,"GL",0,6,.06)=""
^DD(162.92,"GL",0,7,.07)=""
^DD(162.92,"GL",1,0,1)=""
^DD(162.92,"IX",.01)=""
^DD(162.92,"IX",.04)=""
^DD(162.92,"RQ",.01)=""
^DD(162.92,"RQ",.04)=""
^DD(162.92,"SB",162.921,1)=""
^DD(162.921,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.921,0,"DT")="2921102"
^DD(162.921,0,"NM","DESCRIPTION")=""
^DD(162.921,0,"UP")="162.92"
^DD(162.921,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(162.921,.01,"DT")="2921102"
^DD(162.921,"B","DESCRIPTION",.01)=""
^DD(162.921,"GL",0,1,.01)=""
^DD(162.93,0)="FIELD^^2^5"
^DD(162.93,0,"DDA")="N"
^DD(162.93,0,"DT")="3010710"
^DD(162.93,0,"IX","B",162.93,.01)=""
^DD(162.93,0,"NM","FEE BASIS UNAUTHORIZED REQUESTED INFORMATION")=""
^DD(162.93,0,"PT",162.8,.03)=""
^DD(162.93,0,"VR")="3.5"
^DD(162.93,0,"VRPK")="FB"
^DD(162.93,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.93,.001,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(162.93,.001,21,0)="^^1^1^2930511^"
^DD(162.93,.001,21,1,0)="This field contains the internal entry number of the record in this file."
^DD(162.93,.001,"DT")="2930304"
^DD(162.93,.01,0)="REASON^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(162.93,.01,1,0)="^.1"
^DD(162.93,.01,1,1,0)="162.93^B"
^DD(162.93,.01,1,1,1)="S ^FB(162.93,""B"",$E(X,1,30),DA)="""""
^DD(162.93,.01,1,1,2)="K ^FB(162.93,""B"",$E(X,1,30),DA)"
^DD(162.93,.01,3)="Answer must be 3-30 characters in length."
^DD(162.93,.01,21,0)="^^1^1^2930511^"
^DD(162.93,.01,21,1,0)="This field contains the requested information."
^DD(162.93,.01,"DT")="2930310"
^DD(162.93,.02,0)="ACTIVE?^S^1:YES;^0;2^Q"
^DD(162.93,.02,3)="Indicate if the requested information is active."
^DD(162.93,.02,21,0)="^^1^1^2930511^"
^DD(162.93,.02,21,1,0)="This field indicates if the requested information is active."
^DD(162.93,.02,"DT")="2921102"
^DD(162.93,1,0)="DESCRIPTION^162.931^^1;0"
^DD(162.93,1,21,0)="^^3^3^2930511^"
^DD(162.93,1,21,1,0)="This field contains a detailed description of the requested information."
^DD(162.93,1,21,2,0)="The description is printed as part of the text of the letter whenever "
^DD(162.93,1,21,3,0)="information is requested."
^DD(162.93,1,22)="%"
^DD(162.93,2,0)="POSTSCRIPT^162.932^^2;0"
^DD(162.93,2,21,0)="^^3^3^3010710^"
^DD(162.93,2,21,1,0)="If populated, the postscript is printed as part of the text of the letter"
^DD(162.93,2,21,2,0)="whenever the associated information is requested.  It is printed at the"
^DD(162.93,2,21,3,0)="end of the letter after the signature."
^DD(162.93,"B","ACTIVE?",.02)=""
^DD(162.93,"B","DESCRIPTION",1)=""
^DD(162.93,"B","NUMBER",.001)=""
^DD(162.93,"B","POSTSCRIPT",2)=""
^DD(162.93,"B","REASON",.01)=""
^DD(162.93,"GL",0,1,.01)=""
^DD(162.93,"GL",0,2,.02)=""
^DD(162.93,"GL",1,0,1)=""
^DD(162.93,"GL",2,0,2)=""
^DD(162.93,"IX",.01)=""
^DD(162.93,"RQ",.01)=""
^DD(162.93,"SB",162.931,1)=""
^DD(162.93,"SB",162.932,2)=""
^DD(162.931,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.931,0,"DT")="2921102"
^DD(162.931,0,"NM","DESCRIPTION")=""
^DD(162.931,0,"UP")="162.93"
^DD(162.931,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(162.931,.01,"DT")="2921102"
^DD(162.931,"B","DESCRIPTION",.01)=""
^DD(162.931,"GL",0,1,.01)=""
^DD(162.932,0)="POSTSCRIPT SUB-FIELD^^.01^1"
^DD(162.932,0,"DT")="3010710"
^DD(162.932,0,"NM","POSTSCRIPT")=""
^DD(162.932,0,"UP")="162.93"
^DD(162.932,.01,0)="POSTSCRIPT^WL^^0;1^Q"
^DD(162.932,.01,21,0)="^.001^3^3^3010710^^^^"
^DD(162.932,.01,21,1,0)="If populated, the postscript is printed as part of the text of the letter"
^DD(162.932,.01,21,2,0)="whenever the associated information is requested.  It is printed at the"
^DD(162.932,.01,21,3,0)="end of the letter after the signature."
^DD(162.932,.01,"DT")="3010710"
^DD(162.932,"B","POSTSCRIPT",.01)=""
^DD(162.932,"GL",0,1,.01)=""
^DD(162.94,0)="FIELD^^1^4"
^DD(162.94,0,"DDA")="N"
^DD(162.94,0,"DT")="2930511"
^DD(162.94,0,"IX","B",162.94,.01)=""
^DD(162.94,0,"NM","FEE BASIS UNAUTHORIZED DISAPPROVAL REASONS")=" "
^DD(162.94,0,"PT",162.715,.01)=" "
^DD(162.94,0,"VR")="3.5"
^DD(162.94,0,"VRPK")="FB"
^DD(162.94,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(162.94,.001,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(162.94,.001,21,0)="^^1^1^2930511^"
^DD(162.94,.001,21,1,0)="This field contains the internal entry number of the record in the file."
^DD(162.94,.001,"DT")="2930304"
^DD(162.94,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(162.94,.01,1,0)="^.1"
^DD(162.94,.01,1,1,0)="162.94^B"
^DD(162.94,.01,1,1,1)="S ^FB(162.94,""B"",$E(X,1,30),DA)="""""
^DD(162.94,.01,1,1,2)="K ^FB(162.94,""B"",$E(X,1,30),DA)"
^DD(162.94,.01,3)="Answer must be 3-30 characters in length."
^DD(162.94,.01,21,0)="^^1^1^2930511^"
^DD(162.94,.01,21,1,0)="This field contains the disapproval reason."
^DD(162.94,.01,"DT")="3020718"
^DD(162.94,.02,0)="ACTIVE?^S^1:YES;^0;2^Q"
^DD(162.94,.02,3)="Indicate if disapproval reason is active."
^DD(162.94,.02,21,0)="^^1^1^2930511^"
^DD(162.94,.02,21,1,0)="This field indicates if the disapproval reason is active."
^DD(162.94,.02,"DT")="2930224"
^DD(162.94,1,0)="DESCRIPTION^162.941^^1;0"
^DD(162.94,1,21,0)="^.001^4^4^3030417^^^"
^DD(162.94,1,21,1,0)="This field contains a detailed description of the disapproval reason."
^DD(162.94,1,21,2,0)="The description may appear as part of the text in a letter when an"
^DD(162.94,1,21,3,0)="unauthorized claim is dispositioned.  It will appear only if REASON FOR"
^DD(162.94,1,21,4,0)="DISAPPROVAL has data."
^DD(162.94,"B","ACTIVE?",.02)=""
^DD(162.94,"B","DESCRIPTION",1)=""
^DD(162.94,"B","NAME",.01)=""
^DD(162.94,"B","NUMBER",.001)=""
^DD(162.94,"GL",0,1,.01)=""
^DD(162.94,"GL",0,2,.02)=""
^DD(162.94,"GL",1,0,1)=""
^DD(162.94,"IX",.01)=""
^DD(162.94,"RQ",.01)=""
^DD(162.94,"SB",162.941,1)=""
^DD(162.941,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(162.941,0,"DT")="2930224"
^DD(162.941,0,"NM","DESCRIPTION")=" "
^DD(162.941,0,"UP")="162.94"
^DD(162.941,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(162.941,.01,"DT")="2930224"
^DD(162.941,"B","DESCRIPTION",.01)=""
^DD(162.941,"GL",0,1,.01)=""
^DD(162.95,0)="FIELD^^2^3"
^DD(162.95,0,"DDA")="N"
^DD(162.95,0,"DT")="2940308"
^DD(162.95,0,"IX","B",162.95,.01)=""
^DD(162.95,0,"IX","C",162.95,1)=""
^DD(162.95,0,"NM","FEE BASIS CHECK CANCELLATION REASON")=""
^DD(162.95,0,"PT",162.03,37)=""
^DD(162.95,0,"PT",162.04,11)=""
^DD(162.95,0,"PT",162.11,32)=""
^DD(162.95,0,"PT",162.5,50)=""
^DD(162.95,0,"VR")="3.5"
^DD(162.95,.01,0)="CANCELLATION REASON^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(162.95,.01,1,0)="^.1"
^DD(162.95,.01,1,1,0)="162.95^B"
^DD(162.95,.01,1,1,1)="S ^FB(162.95,""B"",$E(X,1,30),DA)="""""
^DD(162.95,.01,1,1,2)="K ^FB(162.95,""B"",$E(X,1,30),DA)"
^DD(162.95,.01,3)="Answer must be 3-30 characters in length."
^DD(162.95,.01,21,0)="^^2^2^2941128^"
^DD(162.95,.01,21,1,0)="This reason is passed back from the treasury when a"
^DD(162.95,.01,21,2,0)="check has been cancelled."
^DD(162.95,.01,"DT")="2940308"
^DD(162.95,1,0)="REASON CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X"
^DD(162.95,1,1,0)="^.1"
^DD(162.95,1,1,1,0)="162.95^C"
^DD(162.95,1,1,1,1)="S ^FB(162.95,""C"",$E(X,1,30),DA)="""""
^DD(162.95,1,1,1,2)="K ^FB(162.95,""C"",$E(X,1,30),DA)"
^DD(162.95,1,1,1,"%D",0)="^^2^2^2940308^"
^DD(162.95,1,1,1,"%D",1,0)="Cross-reference used to look up check cancellation reason on the reason"
^DD(162.95,1,1,1,"%D",2,0)="code provided by the Financial Management System (FMS)."
^DD(162.95,1,1,1,"DT")="2940308"
^DD(162.95,1,3)="Answer must be 1 character in length."
^DD(162.95,1,21,0)="^^2^2^2941128^"
^DD(162.95,1,21,1,0)="This is the actual code that is passed back from Austin"
^DD(162.95,1,21,2,0)="when a check has been cancelled."
^DD(162.95,1,"DT")="2940308"
^DD(162.95,2,0)="INACTIVATION FLAG^S^1:INACTIVE;^0;3^Q"
^DD(162.95,2,21,0)="^^2^2^2941128^"
^DD(162.95,2,21,1,0)="This field was added to this file in the event that the"
^DD(162.95,2,21,2,0)="treasury decides to stop using a code."
^DD(162.95,2,"DT")="2940308"
^DD(162.95,"B","CANCELLATION REASON",.01)=""
^DD(162.95,"B","INACTIVATION FLAG",2)=""
^DD(162.95,"B","REASON CODE",1)=""
^DD(162.95,"GL",0,1,.01)=""
^DD(162.95,"GL",0,2,1)=""
^DD(162.95,"GL",0,3,2)=""
^DD(162.95,"IX",.01)=""
^DD(162.95,"IX",1)=""
^DD(162.95,"RQ",.01)=""
^DD(162.95,"RQ",1)=""
^DD(162.96,0)="FIELD^^1^2"
^DD(162.96,0,"DDA")="N"
^DD(162.96,0,"DT")="2950912"
^DD(162.96,0,"IX","B",162.96,.01)=""
^DD(162.96,0,"NM","FEE BASIS GEOGRAPHIC INDEX")=""
^DD(162.96,0,"VR")="3.5"
^DD(162.96,0,"VRPK")="FB"
^DD(162.96,.01,0)="ZIP CODE^RFX^^0;1^K:$L(X)>5!($L(X)<5)!'(X'?1P.E) X"
^DD(162.96,.01,1,0)="^.1"
^DD(162.96,.01,1,1,0)="162.96^B"
^DD(162.96,.01,1,1,1)="S ^FB(162.96,""B"",$E(X,1,30),DA)="""""
^DD(162.96,.01,1,1,2)="K ^FB(162.96,""B"",$E(X,1,30),DA)"
^DD(162.96,.01,3)="ZIP CODE MUST BE 5 CHARACTERS IN LENGTH. "
^DD(162.96,.01,21,0)="^^2^2^2950912^"
^DD(162.96,.01,21,1,0)="This is a table entry from the ZIP CODE [#5.11] file.  This field"
^DD(162.96,.01,21,2,0)="allows the association of a locality to relative value units."
^DD(162.96,1,0)="CALENDAR YEAR^162.961A^^CY;0"
^DD(162.96,1,21,0)="^^2^2^2950912^"
^DD(162.96,1,21,1,0)="This multiple will store by calendar year the GPCI associated"
^DD(162.96,1,21,2,0)="with a ZIP Code Locality."
^DD(162.96,1,23,0)="^^3^3^2950912^"
^DD(162.96,1,23,1,0)="Each year Health Care Finance Administration updates these tables."
^DD(162.96,1,23,2,0)="They are usually published in the Federal Register in the"
^DD(162.96,1,23,3,0)="November time frame."
^DD(162.96,"B","CALENDAR YEAR",1)=""
^DD(162.96,"B","ZIP CODE",.01)=""
^DD(162.96,"GL",0,1,.01)=""
^DD(162.96,"GL","CY",0,1)=""
^DD(162.96,"IX",.01)=""
^DD(162.96,"RQ",.01)=""
^DD(162.96,"SB",162.961,1)=""
^DD(162.961,0)="CALENDAR YEAR SUB-FIELD^^.04^4"
^DD(162.961,0,"DT")="2950912"
^DD(162.961,0,"IX","B",162.961,.01)=""
^DD(162.961,0,"NM","CALENDAR YEAR")=""
^DD(162.961,0,"UP")="162.96"
^DD(162.961,.01,0)="CALENDAR YEAR^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(162.961,.01,1,0)="^.1"
^DD(162.961,.01,1,1,0)="162.961^B"
^DD(162.961,.01,1,1,1)="S ^FB(162.96,DA(1),""CY"",""B"",$E(X,1,30),DA)="""""
^DD(162.961,.01,1,1,2)="K ^FB(162.96,DA(1),""CY"",""B"",$E(X,1,30),DA)"
^DD(162.961,.01,3)="Type a Number between 1900 and 9999, 0 Decimal Digits"
^DD(162.961,.01,21,0)="^^2^2^2950912^"
^DD(162.961,.01,21,1,0)="This is the calendar year and the GPCI associated"
^DD(162.961,.01,21,2,0)="with a given locality or ZIP Code."
^DD(162.961,.01,"DT")="2950912"
^DD(162.961,.02,0)="WORK GPCI^NJ7,3^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""4N.N) X"
^DD(162.961,.02,3)="Type a Number between 0 and 200, 3 Decimal Digits"
^DD(162.961,.02,21,0)="^^2^2^2950912^"
^DD(162.961,.02,21,1,0)="This is the geographic cost index, set by the Health"
^DD(162.961,.02,21,2,0)="Care Finance Administration, for the work expense."
^DD(162.961,.02,"DT")="2950912"
^DD(162.961,.03,0)="PRACTICE EXPENSE GPCI^NJ7,3^^0;3^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""4N.N) X"
^DD(162.961,.03,3)="Type a Number between 0 and 200, 3 Decimal Digits"
^DD(162.961,.03,21,0)="^^2^2^2950912^"
^DD(162.961,.03,21,1,0)="This is the geographic cost index, set by the Health"
^DD(162.961,.03,21,2,0)="Care Finance Administration, for practice expense."
^DD(162.961,.03,"DT")="2950912"
^DD(162.961,.04,0)="MALPRACTICE GPCI^NJ7,3^^0;4^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""4N.N) X"
^DD(162.961,.04,3)="Type a Number between 0 and 200, 3 Decimal Digits"
^DD(162.961,.04,21,0)="^^2^2^2950912^"
^DD(162.961,.04,21,1,0)="This is the geographic cost index, set by the Health"
^DD(162.961,.04,21,2,0)="Care Finance Administration, for the malpractice costs."
^DD(162.961,.04,"DT")="2950912"
^DD(162.961,"B","CALENDAR YEAR",.01)=""
^DD(162.961,"B","MALPRACTICE GPCI",.04)=""
^DD(162.961,"B","PRACTICE EXPENSE GPCI",.03)=""
^DD(162.961,"B","WORK GPCI",.02)=""
^DD(162.961,"GL",0,1,.01)=""
^DD(162.961,"GL",0,2,.02)=""
^DD(162.961,"GL",0,3,.03)=""
^DD(162.961,"GL",0,4,.04)=""
^DD(162.961,"IX",.01)=""
^DD(162.97,0)="FIELD^^1^3"
^DD(162.97,0,"DDA")="N"
^DD(162.97,0,"DT")="2990503"
^DD(162.97,0,"IX","B",162.97,.01)=""
^DD(162.97,0,"NM","FEE BASIS CPT RVU")=""
^DD(162.97,0,"VR")="3.5"
^DD(162.97,0,"VRPK")="FB"
^DD(162.97,.01,0)="CPT CODE-MODIFIER^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<5)!('(X?5AN)&'(X?5AN1""-""2AN)) X I $D(X) D INPUT^FBAAUTL5"
^DD(162.97,.01,1,0)="^.1"
^DD(162.97,.01,1,1,0)="162.97^B"
^DD(162.97,.01,1,1,1)="S ^FB(162.97,""B"",$E(X,1,30),DA)="""""
^DD(162.97,.01,1,1,2)="K ^FB(162.97,""B"",$E(X,1,30),DA)"
^DD(162.97,.01,3)="Answer must be 5-8 characters in length. Answer must be a valid CPT code or a valid CPT code followed by a dash (-) followed by a valid CPT modifier"
^DD(162.97,.01,21,0)="^.001^4^4^3060119^^^"
^DD(162.97,.01,21,1,0)="Answer must be a valid CPT code/modifier"
^DD(162.97,.01,21,2,0)="combination.  This is a table file and should"
^DD(162.97,.01,21,3,0)="not be changed at the station level without"
^DD(162.97,.01,21,4,0)="direction from IRM Field Office.  "
^DD(162.97,.01,23,0)="^.001^2^2^3060119^^^"
^DD(162.97,.01,23,1,0)="The data stored in this field is owned by the AMA.  CPT is"
^DD(162.97,.01,23,2,0)="a way of assigning a code to a service."
^DD(162.97,.01,"DT")="2950912"
^DD(162.97,.02,0)="CONVERSION CATEGORY^P162.99'^FB(162.99,^0;2^Q"
^DD(162.97,.02,21,0)="^.001^3^3^3060119^^^"
^DD(162.97,.02,21,1,0)="This field is a pointer to an entry in the HCFA conversion file."
^DD(162.97,.02,21,2,0)="It classifies codes so, a conversion factor may be determined during"
^DD(162.97,.02,21,3,0)="the calculation of payment."
^DD(162.97,.02,"DT")="2990615"
^DD(162.97,1,0)="CALENDAR YEAR^162.971A^^CY;0"
^DD(162.97,1,21,0)="^.001^3^3^3060119^^^"
^DD(162.97,1,21,1,0)="For each service rendered there are a set of relative value"
^DD(162.97,1,21,2,0)="units by calendar year.  These RVUs are established by"
^DD(162.97,1,21,3,0)="Health Care Finance Administration."
^DD(162.97,1,23,0)="^.001^2^2^3060119^^^"
^DD(162.97,1,23,1,0)="Do not alter these table entries unless instructed to do"
^DD(162.97,1,23,2,0)="so by your IRM Field Office."
^DD(162.97,"B","CALENDAR YEAR",1)=""
^DD(162.97,"B","CONVERSION CATEGORY",.02)=""
^DD(162.97,"B","CPT CODE-MODIFIER",.01)=""
^DD(162.97,"GL",0,1,.01)=""
^DD(162.97,"GL",0,2,.02)=""
^DD(162.97,"GL","CY",0,1)=""
^DD(162.97,"IX",.01)=""
^DD(162.97,"RQ",.01)=""
^DD(162.97,"SB",162.971,1)=""
^DD(162.971,0)="CALENDAR YEAR SUB-FIELD^^.08^8"
^DD(162.971,0,"DT")="2990503"
^DD(162.971,0,"IX","B",162.971,.01)=""
^DD(162.971,0,"NM","CALENDAR YEAR")=""
^DD(162.971,0,"UP")="162.97"
^DD(162.971,.01,0)="CALENDAR YEAR^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(162.971,.01,1,0)="^.1"
^DD(162.971,.01,1,1,0)="162.971^B"
^DD(162.971,.01,1,1,1)="S ^FB(162.97,DA(1),""CY"",""B"",$E(X,1,30),DA)="""""
^DD(162.971,.01,1,1,2)="K ^FB(162.97,DA(1),""CY"",""B"",$E(X,1,30),DA)"
^DD(162.971,.01,3)="Type a Number between 1900 and 9999, 0 Decimal Digits"
^DD(162.971,.01,21,0)="^^2^2^2950912^^"
^DD(162.971,.01,21,1,0)="For each service rendered there are a set of relative value"
^DD(162.971,.01,21,2,0)="units by calendar year."
^DD(162.971,.01,"DT")="2950912"
^DD(162.971,.02,0)="MODIFIER LEVEL^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(162.971,.02,3)="Answer must be 1-30 characters in length."
^DD(162.971,.02,21,0)="^^3^3^2950912^"
^DD(162.971,.02,21,1,0)="This field ties a multiplier to a CPT-modifier combination"
^DD(162.971,.02,21,2,0)="when a CPT-Modifier combination has not been defined in the"
^DD(162.971,.02,21,3,0)="schedule directly."
^DD(162.971,.02,"DT")="2950914"
^DD(162.971,.03,0)="WORK RELATIVE VALUE UNIT^NJ8,2^^0;3^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(162.971,.03,3)="Type a Number between 0 and 99999.99, 2 Decimal Digits"
^DD(162.971,.03,21,0)="^^2^2^2990503^"
^DD(162.971,.03,21,1,0)="This is the work relative value unit associated with a CPT code. These"
^DD(162.971,.03,21,2,0)="units are set by Health Care Finance Administration."
^DD(162.971,.03,"DT")="2990503"
^DD(162.971,.04,0)="NON-FAC PRACTICE EXPENSE RVU^NJ8,2^^0;4^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(162.971,.04,3)="Type a Number between 0 and 99999.99, 2 Decimal Digits"
^DD(162.971,.04,21,0)="^^2^2^2990503^"
^DD(162.971,.04,21,1,0)="This is the practice expense relative value unit for the CPT code when"
^DD(162.971,.04,21,2,0)="performed in a non-facility setting."
^DD(162.971,.04,"DT")="2990503"
^DD(162.971,.05,0)="FACILITY PRACTICE EXPENSE RVU^NJ8,2^^0;5^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(162.971,.05,3)="Type a Number between 0 and 99999.99, 2 Decimal Digits"
^DD(162.971,.05,21,0)="^^4^4^2990503^"
^DD(162.971,.05,21,1,0)="This is the practice expense relative value unit for the CPT code when"
^DD(162.971,.05,21,2,0)="performed in a facility setting such as inpatient or outpatient hospital"
^DD(162.971,.05,21,3,0)="settings, emergency rooms, skilled nursing facilities, or ambulatory"
^DD(162.971,.05,21,4,0)="surgical centers."
^DD(162.971,.05,"DT")="2990503"
^DD(162.971,.06,0)="MALPRACTICE EXPENSE RVU^NJ8,2^^0;6^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(162.971,.06,3)="Type a Number between 0 and 99999.99, 2 Decimal Digits"
^DD(162.971,.06,21,0)="^^2^2^2990503^"
^DD(162.971,.06,21,1,0)="This is the malpractice relative value unit associated with a CPT code."
^DD(162.971,.06,21,2,0)="These units are set by Health Care Finance Administration."
^DD(162.971,.06,"DT")="2990503"
^DD(162.971,.07,0)="BASE UNITS^NJ8,2^^0;7^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(162.971,.07,3)="Type a Number between 0 and 99999.99, 2 Decimal Digits"
^DD(162.971,.07,21,0)="^^6^6^2990503^"
^DD(162.971,.07,21,1,0)="For anesthesia codes (00100-01999) this field holds the base unit."
^DD(162.971,.07,21,2,0)="HCFA plans on changing the calculation for anesthesia payments in the near"
^DD(162.971,.07,21,3,0)="future to be like all other codes but for now the fee is calculated by:"
^DD(162.971,.07,21,4,0)="  (base units + actual time in minutes/15) times anesthesia conversion"
^DD(162.971,.07,21,5,0)="   factor)."
^DD(162.971,.07,21,6,0)="In all other CPT codes this field will be null."
^DD(162.971,.07,"DT")="2990503"
^DD(162.971,.08,0)="NONPAYABLE^NJ1,0^^0;8^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(162.971,.08,3)="Type 0 for ""NO"", 1 for ""YES"""
^DD(162.971,.08,21,0)="^.001^1^1^3060118^^"
^DD(162.971,.08,21,1,0)="Indicates if the CPT/CPT MOD is NOT used for Medicare payment."
^DD(162.971,.08,"DT")="3051110"
^DD(162.971,"B","BASE UNITS",.07)=""
^DD(162.971,"B","CALENDAR YEAR",.01)=""
^DD(162.971,"B","FACILITY PRACTICE EXPENSE RVU",.05)=""
^DD(162.971,"B","MALPRACTICE EXPENSE RVU",.06)=""
^DD(162.971,"B","MODIFIER LEVEL",.02)=""
^DD(162.971,"B","NON-FAC PRACTICE EXPENSE RVU",.04)=""
^DD(162.971,"B","NONPAYABLE",.08)=""
^DD(162.971,"B","WORK RELATIVE VALUE UNIT",.03)=""
^DD(162.971,"GL",0,1,.01)=""
^DD(162.971,"GL",0,2,.02)=""
^DD(162.971,"GL",0,3,.03)=""
^DD(162.971,"GL",0,4,.04)=""
^DD(162.971,"GL",0,5,.05)=""
^DD(162.971,"GL",0,6,.06)=""
^DD(162.971,"GL",0,7,.07)=""
^DD(162.971,"GL",0,8,.08)=""
^DD(162.971,"IX",.01)=""
^DD(162.98,0)="FIELD^^1^3"
^DD(162.98,0,"DDA")="N"
^DD(162.98,0,"DT")="2981112"
^DD(162.98,0,"IX","B",162.98,.01)=""
^DD(162.98,0,"NM","FEE BASIS MODIFIER TABLE INDEX")=""
^DD(162.98,0,"VR")="3.5"
^DD(162.98,0,"VRPK")="FB"
^DD(162.98,.01,0)="MODIFIER RATE LEVEL^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(162.98,.01,1,0)="^.1"
^DD(162.98,.01,1,1,0)="162.98^B"
^DD(162.98,.01,1,1,1)="S ^FB(162.98,""B"",$E(X,1,30),DA)="""""
^DD(162.98,.01,1,1,2)="K ^FB(162.98,""B"",$E(X,1,30),DA)"
^DD(162.98,.01,3)="Answer must be 1-30 characters in length."
^DD(162.98,.01,21,0)="^^1^1^2990615^^"
^DD(162.98,.01,21,1,0)="This field stores a combination of calendar year and table index."
^DD(162.98,.01,23,0)="^^1^1^2990615^^^^"
^DD(162.98,.01,23,1,0)="These tables store  a percentage payment by category."
^DD(162.98,.01,"DT")="2950913"
^DD(162.98,.02,0)="DESCRIPTION^F^^1;1^K:$L(X)>120!($L(X)<3) X"
^DD(162.98,.02,3)="Answer must be 3-120 characters in length."
^DD(162.98,.02,21,0)="^^1^1^2981112^"
^DD(162.98,.02,21,1,0)="This field describes the information stored in the table."
^DD(162.98,.02,"DT")="2981112"
^DD(162.98,1,0)="MODIFIER^162.981A^^M;0"
^DD(162.98,"B","DESCRIPTION",.02)=""
^DD(162.98,"B","MODIFIER",1)=""
^DD(162.98,"B","MODIFIER RATE LEVEL",.01)=""
^DD(162.98,"GL",0,1,.01)=""
^DD(162.98,"GL",1,1,.02)=""
^DD(162.98,"GL","M",0,1)=""
^DD(162.98,"IX",.01)=""
^DD(162.98,"RQ",.01)=""
^DD(162.98,"SB",162.981,1)=""
^DD(162.981,0)="MODIFIER SUB-FIELD^^.02^2"
^DD(162.981,0,"DT")="2981112"
^DD(162.981,0,"IX","B",162.981,.01)=""
^DD(162.981,0,"NM","MODIFIER")=""
^DD(162.981,0,"UP")="162.98"
^DD(162.981,.01,0)="MODIFIER^MF^^0;1^K:$L(X)>2!($L(X)<1) X"
^DD(162.981,.01,1,0)="^.1"
^DD(162.981,.01,1,1,0)="162.981^B"
^DD(162.981,.01,1,1,1)="S ^FB(162.98,DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(162.981,.01,1,1,2)="K ^FB(162.98,DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(162.981,.01,3)="Answer must be 1-2 characters in length."
^DD(162.981,.01,21,0)="^^2^2^2990615^^"
^DD(162.981,.01,21,1,0)="CPT or HICPS modifier for which there is a multiplier used to calculate"
^DD(162.981,.01,21,2,0)="the Fee schedule."
^DD(162.981,.01,"DT")="2981112"
^DD(162.981,.02,0)="PERCENTAGE PAID^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(162.981,.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(162.981,.02,21,0)="^^2^2^2981112^"
^DD(162.981,.02,21,1,0)="For a given modifier this is the multiplier that is used after the"
^DD(162.981,.02,21,2,0)="Medicare Fee schedule is calculated."
^DD(162.981,.02,"DT")="2981112"
^DD(162.981,"B","MODIFIER",.01)=""
^DD(162.981,"B","PERCENTAGE PAID",.02)=""
^DD(162.981,"GL",0,1,.01)=""
^DD(162.981,"GL",0,2,.02)=""
^DD(162.981,"IX",.01)=""
^DD(162.99,0)="FIELD^^1^2"
^DD(162.99,0,"DDA")="N"
^DD(162.99,0,"DT")="2960126"
^DD(162.99,0,"IX","B",162.99,.01)=""
^DD(162.99,0,"NM","FEE BASIS HCFA CONVERSION")=""
^DD(162.99,0,"PT",162.97,.02)=""
^DD(162.99,0,"VR")="3.5"
^DD(162.99,0,"VRPK")="FB"
^DD(162.99,.01,0)="CPT CATEGORY^RF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(162.99,.01,1,0)="^.1"
^DD(162.99,.01,1,1,0)="162.99^B"
^DD(162.99,.01,1,1,1)="S ^FB(162.99,""B"",$E(X,1,30),DA)="""""
^DD(162.99,.01,1,1,2)="K ^FB(162.99,""B"",$E(X,1,30),DA)"
^DD(162.99,.01,3)="Answer must be 2-30 characters in length."
^DD(162.99,.01,12)="Allow only major category entries."
^DD(162.99,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""m"""""""
^DD(162.99,.01,21,0)="^^4^4^2990615^"
^DD(162.99,.01,21,1,0)="This is a free text field that corresponds to major CPT"
^DD(162.99,.01,21,2,0)="Categories."
^DD(162.99,.01,21,3,0)="Evaluation and Management code means the same as Primary Care"
^DD(162.99,.01,21,4,0)="services with HCFA."
^DD(162.99,.01,"DT")="2951010"
^DD(162.99,1,0)="CALENDAR YEAR^162.991A^^CY;0"
^DD(162.99,1,21,0)="^^1^1^2950927^"
^DD(162.99,1,21,1,0)="For each Major CPT Category, HCFA assigns a multiplier by calendar year."
^DD(162.99,1,23,0)="^^2^2^2950927^"
^DD(162.99,1,23,1,0)="Do not alter these entries unless instructed to do"
^DD(162.99,1,23,2,0)="so by a IRM Field Office."
^DD(162.99,"B","CALENDAR YEAR",1)=""
^DD(162.99,"B","CPT CATEGORY",.01)=""
^DD(162.99,"GL",0,1,.01)=""
^DD(162.99,"GL","CY",0,1)=""
^DD(162.99,"IX",.01)=""
^DD(162.99,"RQ",.01)=""
^DD(162.99,"SB",162.991,1)=""
^DD(162.991,0)="CALENDAR YEAR SUB-FIELD^^.02^2"
^DD(162.991,0,"DT")="2960126"
^DD(162.991,0,"IX","B",162.991,.01)=""
^DD(162.991,0,"NM","CALENDAR YEAR")=""
^DD(162.991,0,"UP")="162.99"
^DD(162.991,.01,0)="CALENDAR YEAR^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(162.991,.01,1,0)="^.1"
^DD(162.991,.01,1,1,0)="162.991^B"
^DD(162.991,.01,1,1,1)="S ^FB(162.99,DA(1),""CY"",""B"",$E(X,1,30),DA)="""""
^DD(162.991,.01,1,1,2)="K ^FB(162.99,DA(1),""CY"",""B"",$E(X,1,30),DA)"
^DD(162.991,.01,3)="Type a Number between 1900 and 9999, 0 Decimal Digits"
^DD(162.991,.01,21,0)="^^1^1^2950927^^"
^DD(162.991,.01,21,1,0)="This field is the 4 digit calendar year for the multiplier."
^DD(162.991,.01,23,0)="^^2^2^2950927^"
^DD(162.991,.01,23,1,0)="Format is a 4 digit number as in 1996.  These tables will by"
^DD(162.991,.01,23,2,0)="distributed yearly after publication in the Federal Register."
^DD(162.991,.01,"DT")="2950927"
^DD(162.991,.02,0)="CONVERSION FACTOR^NJ12,4^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(162.991,.02,3)="Type a Number between 0 and 9999999, 4 Decimal Digits"
^DD(162.991,.02,21,0)="^^1^1^2950927^"
^DD(162.991,.02,21,1,0)="This number is used in the calculation of the Medicare Fee schedule."
^DD(162.991,.02,"DT")="2960126"
^DD(162.991,"B","CALENDAR YEAR",.01)=""
^DD(162.991,"B","CONVERSION FACTOR",.02)=""
^DD(162.991,"GL",0,1,.01)=""
^DD(162.991,"GL",0,2,.02)=""
^DD(162.991,"IX",.01)=""
^DD(163.5,0)="FIELD^^11^12"
^DD(163.5,0,"DDA")="N"
^DD(163.5,0,"DT")="3030826"
^DD(163.5,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(163.5,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(163.5,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(163.5,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(163.5,0,"IX","AC",163.5,2)=""
^DD(163.5,0,"IX","AMD",163.5,4)=""
^DD(163.5,0,"IX","AMI",163.5,3)=""
^DD(163.5,0,"IX","ARS",163.5,10)=""
^DD(163.5,0,"IX","B",163.5,.01)=""
^DD(163.5,0,"NM","FPPS QUEUED INVOICES")=""
^DD(163.5,0,"VR")="3.5"
^DD(163.5,0,"VRPK")="FB"
^DD(163.5,.01,0)="INVOICE NUMBER^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(163.5,.01,1,0)="^.1"
^DD(163.5,.01,1,1,0)="163.5^B"
^DD(163.5,.01,1,1,1)="S ^FBHL(163.5,""B"",$E(X,1,30),DA)="""""
^DD(163.5,.01,1,1,2)="K ^FBHL(163.5,""B"",$E(X,1,30),DA)"
^DD(163.5,.01,3)="Answer must be 1-30 characters in length"
^DD(163.5,.01,21,0)="^.001^1^1^3030821^^"
^DD(163.5,.01,21,1,0)="The invoice number as represented throughout the system."
^DD(163.5,.01,"DT")="3030619"
^DD(163.5,1,0)="INVOICE FILE NUMBER^RS^3:162 (OUTP);5:162.1 (PHARM);9:162.5 (INP);^0;2^Q"
^DD(163.5,1,3)="Enter the code associated with the appropriate invoice File."
^DD(163.5,1,21,0)="^.001^2^2^3030821^^"
^DD(163.5,1,21,1,0)="This field represents the invoice file associated with this invoice (i.e. "
^DD(163.5,1,21,2,0)="FEE BASIS INVOICE, FEE BASIS PHARMACY INVOICE, etc.)"
^DD(163.5,1,"DT")="3030821"
^DD(163.5,2,0)="STATUS^RS^0:PENDING;1:TRANSMITTED;2:ACKNOWLEDGED;^0;3^Q"
^DD(163.5,2,1,0)="^.1"
^DD(163.5,2,1,1,0)="163.5^AC"
^DD(163.5,2,1,1,1)="S ^FBHL(163.5,""AC"",$E(X,1,30),DA)="""""
^DD(163.5,2,1,1,2)="K ^FBHL(163.5,""AC"",$E(X,1,30),DA)"
^DD(163.5,2,1,1,"%D",0)="^^3^3^3030619^"
^DD(163.5,2,1,1,"%D",1,0)="This cross reference represents the breakout between those invoices that "
^DD(163.5,2,1,1,"%D",2,0)="are pending to be transmitted vs. those that have already been "
^DD(163.5,2,1,1,"%D",3,0)="transmitted."
^DD(163.5,2,1,1,"DT")="3030619"
^DD(163.5,2,3)=""
^DD(163.5,2,21,0)="^^1^1^3030821^"
^DD(163.5,2,21,1,0)="This field represents the status of this entry."
^DD(163.5,2,"DT")="3030821"
^DD(163.5,3,0)="MESSAGE ID^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(163.5,3,1,0)="^.1"
^DD(163.5,3,1,1,0)="163.5^AMI"
^DD(163.5,3,1,1,1)="S ^FBHL(163.5,""AMI"",$E(X,1,30),DA)="""""
^DD(163.5,3,1,1,2)="K ^FBHL(163.5,""AMI"",$E(X,1,30),DA)"
^DD(163.5,3,1,1,"%D",0)="^^1^1^3030821^"
^DD(163.5,3,1,1,"%D",1,0)="Regular cross-reference of assigned HL7 message ID."
^DD(163.5,3,1,1,"DT")="3030821"
^DD(163.5,3,3)="Answer must be 1-20 characters in length."
^DD(163.5,3,21,0)="^.001^1^1^3030826^^"
^DD(163.5,3,21,1,0)="Message ID as assigned by the HL7 package."
^DD(163.5,3,"DT")="3030826"
^DD(163.5,4,0)="MESSAGE DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(163.5,4,1,0)="^.1"
^DD(163.5,4,1,1,0)="163.5^AMD"
^DD(163.5,4,1,1,1)="S ^FBHL(163.5,""AMD"",$E(X,1,30),DA)="""""
^DD(163.5,4,1,1,2)="K ^FBHL(163.5,""AMD"",$E(X,1,30),DA)"
^DD(163.5,4,1,1,"%D",0)="^^2^2^3030821^"
^DD(163.5,4,1,1,"%D",1,0)="Regular cross-reference of date/time that the message was accepted by the"
^DD(163.5,4,1,1,"%D",2,0)="HL7 package."
^DD(163.5,4,1,1,"DT")="3030821"
^DD(163.5,4,3)="Enter time that message was sent to HL7 package."
^DD(163.5,4,21,0)="^^2^2^3030821^"
^DD(163.5,4,21,1,0)="This field contains the date/time that Fee Basis submitted the message to"
^DD(163.5,4,21,2,0)="the HL7 package."
^DD(163.5,4,"DT")="3030821"
^DD(163.5,5,0)="TRANSACTION TYPE^S^C:CLAIM LEVEL;L:LINE LEVEL;X:CANCELLATION;^0;6^Q"
^DD(163.5,5,3)="Enter Transaction Code that was included in the HL message."
^DD(163.5,5,21,0)="^^2^2^3030821^"
^DD(163.5,5,21,1,0)="This field contains the transaction code that was included in the HL "
^DD(163.5,5,21,2,0)="message."
^DD(163.5,5,"DT")="3030821"
^DD(163.5,6,0)="STATION NUMBER^F^^0;7^K:$L(X)>7!($L(X)<3) X"
^DD(163.5,6,3)="Answer must be 3-7 characters in length."
^DD(163.5,6,21,0)="^^2^2^3030821^"
^DD(163.5,6,21,1,0)="This field contains the station number that was included in the HL "
^DD(163.5,6,21,2,0)="message."
^DD(163.5,6,"DT")="3030821"
^DD(163.5,7,0)="MESSAGE TEXT^163.57^^1;0"
^DD(163.5,8,0)="ACK FLAG^S^A:ACCEPTED;R:REJECTED;^0;8^Q"
^DD(163.5,8,21,0)="^^2^2^3030826^"
^DD(163.5,8,21,1,0)="This field contains the result of the commit acknowledgement from the"
^DD(163.5,8,21,2,0)="VistA Interface Engine."
^DD(163.5,8,"DT")="3030824"
^DD(163.5,9,0)="ACK DATE/TIME^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(163.5,9,21,0)="^^1^1^3030824^"
^DD(163.5,9,21,1,0)="This field contains the date/time that the HL message status was updated."
^DD(163.5,9,"DT")="3030824"
^DD(163.5,10,0)="REJECT STATUS^S^N:NOT REPORTED;R:REPORTED;^0;10^Q"
^DD(163.5,10,1,0)="^.1"
^DD(163.5,10,1,1,0)="163.5^ARS"
^DD(163.5,10,1,1,1)="S ^FBHL(163.5,""ARS"",$E(X,1,30),DA)="""""
^DD(163.5,10,1,1,2)="K ^FBHL(163.5,""ARS"",$E(X,1,30),DA)"
^DD(163.5,10,1,1,"%D",0)="^^2^2^3030826^"
^DD(163.5,10,1,1,"%D",1,0)="This regular cross-reference is used to find reject messages that have not"
^DD(163.5,10,1,1,"%D",2,0)="been reported to users yet."
^DD(163.5,10,1,1,"DT")="3030824"
^DD(163.5,10,21,0)="^^2^2^3030824^"
^DD(163.5,10,21,1,0)="This field will only be populated when the HL message is rejected.  It "
^DD(163.5,10,21,2,0)="indicates if the rejection has been reported to users yet."
^DD(163.5,10,"DT")="3030824"
^DD(163.5,11,0)="REJECT TEXT^163.511^^2;0"
^DD(163.5,11,"DT")="3030826"
^DD(163.5,"B","ACK DATE/TIME",9)=""
^DD(163.5,"B","ACK FLAG",8)=""
^DD(163.5,"B","INVOICE FILE NUMBER",1)=""
^DD(163.5,"B","INVOICE NUMBER",.01)=""
^DD(163.5,"B","MESSAGE DATE/TIME",4)=""
^DD(163.5,"B","MESSAGE ID",3)=""
^DD(163.5,"B","MESSAGE TEXT",7)=""
^DD(163.5,"B","REJECT STATUS",10)=""
^DD(163.5,"B","REJECT TEXT",11)=""
^DD(163.5,"B","STATION NUMBER",6)=""
^DD(163.5,"B","STATUS",2)=""
^DD(163.5,"B","TRANSACTION TYPE",5)=""
^DD(163.5,"GL",0,1,.01)=""
^DD(163.5,"GL",0,2,1)=""
^DD(163.5,"GL",0,3,2)=""
^DD(163.5,"GL",0,4,3)=""
^DD(163.5,"GL",0,5,4)=""
^DD(163.5,"GL",0,6,5)=""
^DD(163.5,"GL",0,7,6)=""
^DD(163.5,"GL",0,8,8)=""
^DD(163.5,"GL",0,9,9)=""
^DD(163.5,"GL",0,10,10)=""
^DD(163.5,"GL",1,0,7)=""
^DD(163.5,"GL",2,0,11)=""
^DD(163.5,"IX",.01)=""
^DD(163.5,"IX",2)=""
^DD(163.5,"IX",3)=""
^DD(163.5,"IX",4)=""
^DD(163.5,"IX",10)=""
^DD(163.5,"RQ",.01)=""
^DD(163.5,"RQ",1)=""
^DD(163.5,"RQ",2)=""
^DD(163.5,"SB",163.511,11)=""
^DD(163.5,"SB",163.57,7)=""
^DD(163.511,0)="REJECT TEXT SUB-FIELD^^.01^1"
^DD(163.511,0,"DT")="3030824"
^DD(163.511,0,"NM","REJECT TEXT")=""
^DD(163.511,0,"UP")="163.5"
^DD(163.511,.01,0)="REJECT TEXT^WL^^0;1^Q"
^DD(163.511,.01,21,0)="^.001^1^1^3030826^^"
^DD(163.511,.01,21,1,0)="This field contains the error message for a reject."
^DD(163.511,.01,"DT")="3030826"
^DD(163.511,"B","REJECT TEXT",.01)=""
^DD(163.511,"GL",0,1,.01)=""
^DD(163.57,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^DD(163.57,0,"DT")="3030821"
^DD(163.57,0,"NM","MESSAGE TEXT")=""
^DD(163.57,0,"UP")="163.5"
^DD(163.57,.01,0)="MESSAGE TEXT^WL^^0;1^Q"
^DD(163.57,.01,3)="Enter the HL segments that were submitted to the HL7 package."
^DD(163.57,.01,21,0)="^^2^2^3030821^"
^DD(163.57,.01,21,1,0)="This field contains the HL segments that were submitted to the HL7 "
^DD(163.57,.01,21,2,0)="package.  The contents of this field may be purged."
^DD(163.57,.01,"DT")="3030821"
^DD(163.57,"B","MESSAGE TEXT",.01)=""
^DD(163.57,"GL",0,1,.01)=""
^DD(163.7,0)="FIELD^^7^8"
^DD(163.7,0,"DDA")="N"
^DD(163.7,0,"DT")="3030718"
^DD(163.7,0,"ID",1)="W ""   "",$$FMTE^DILIBF($P(^(0),U,2),6)"
^DD(163.7,0,"IX","B",163.7,.01)=""
^DD(163.7,0,"IX","C",163.7,1)=""
^DD(163.7,0,"NM","FEE BASIS FPPS AUDIT")=""
^DD(163.7,0,"VR")="3.5"
^DD(163.7,0,"VRPK")="FB"
^DD(163.7,.01,0)="INVOICE NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(163.7,.01,1,0)="^.1"
^DD(163.7,.01,1,1,0)="163.7^B"
^DD(163.7,.01,1,1,1)="S ^FB(163.7,""B"",$E(X,1,30),DA)="""""
^DD(163.7,.01,1,1,2)="K ^FB(163.7,""B"",$E(X,1,30),DA)"
^DD(163.7,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(163.7,.01,21,0)="^^1^1^3030718^"
^DD(163.7,.01,21,1,0)="Number of invoice that was modified."
^DD(163.7,.01,"DT")="3030718"
^DD(163.7,1,0)="DATE/TIME CHANGED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(163.7,1,1,0)="^.1"
^DD(163.7,1,1,1,0)="163.7^C"
^DD(163.7,1,1,1,1)="S ^FB(163.7,""C"",$E(X,1,30),DA)="""""
^DD(163.7,1,1,1,2)="K ^FB(163.7,""C"",$E(X,1,30),DA)"
^DD(163.7,1,1,1,"%D",0)="^^1^1^3030718^"
^DD(163.7,1,1,1,"%D",1,0)="Cross-reference by date/time of change."
^DD(163.7,1,1,1,"DT")="3030718"
^DD(163.7,1,3)="Enter date and time that the item was changed."
^DD(163.7,1,21,0)="^^1^1^3030718^"
^DD(163.7,1,21,1,0)="Date/time the change was made."
^DD(163.7,1,"DT")="3030718"
^DD(163.7,2,0)="FILE #^RF^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(163.7,2,3)="Answer must be 1-10 characters in length."
^DD(163.7,2,21,0)="^^2^2^3030903^"
^DD(163.7,2,21,1,0)="Identifies the file (or subfile) number where the changed entry is stored."
^DD(163.7,2,21,2,0)="For example, subfile 162.03 contains medical payments."
^DD(163.7,2,"DT")="3030718"
^DD(163.7,3,0)="IENS^RF^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(163.7,3,3)="Answer must be 1-30 characters in length."
^DD(163.7,3,21,0)="^^4^4^3030718^"
^DD(163.7,3,21,1,0)="The internal entry numbers (iens) that identify the entry that was "
^DD(163.7,3,21,2,0)="changed.  The iens are delimited by commas(,) beginning with the ien of "
^DD(163.7,3,21,3,0)="the lowest level subentry. For example, a prescription (subfile 162.11)"
^DD(163.7,3,21,4,0)="with iens ""1,2000,"" would be located at ^FBAA(162.1,2000,""RX"",1,0)."
^DD(163.7,3,"DT")="3030718"
^DD(163.7,4,0)="FIELD #^RF^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(163.7,4,3)="Answer must be 1-10 characters in length."
^DD(163.7,4,21,0)="^.001^1^1^3030718^^"
^DD(163.7,4,21,1,0)="Number of the field whose value was changed. "
^DD(163.7,4,"DT")="3030718"
^DD(163.7,5,0)="OLD VALUE^F^^0;6^K:$L(X)>32!($L(X)<1) X"
^DD(163.7,5,3)="Answer must be 1-32 characters in length."
^DD(163.7,5,21,0)="^.001^1^1^3030718^^"
^DD(163.7,5,21,1,0)="Value of field before it was changed."
^DD(163.7,5,"DT")="3030718"
^DD(163.7,6,0)="NEW VALUE^F^^0;7^K:$L(X)>32!($L(X)<1) X"
^DD(163.7,6,3)="Answer must be 1-32 characters in length."
^DD(163.7,6,21,0)="^^1^1^3030718^"
^DD(163.7,6,21,1,0)="Value of field after the change was made."
^DD(163.7,6,"DT")="3030718"
^DD(163.7,7,0)="USER^RP200'^VA(200,^0;8^Q"
^DD(163.7,7,21,0)="^.001^1^1^3030718^^"
^DD(163.7,7,21,1,0)="User that changed the value of the field."
^DD(163.7,7,"DT")="3030718"
^DD(163.7,"B","DATE/TIME CHANGED",1)=""
^DD(163.7,"B","FIELD #",4)=""
^DD(163.7,"B","FILE #",2)=""
^DD(163.7,"B","IENS",3)=""
^DD(163.7,"B","INVOICE NUMBER",.01)=""
^DD(163.7,"B","NEW VALUE",6)=""
^DD(163.7,"B","OLD VALUE",5)=""
^DD(163.7,"B","USER",7)=""
^DD(163.7,"GL",0,1,.01)=""
^DD(163.7,"GL",0,2,1)=""
^DD(163.7,"GL",0,3,2)=""
^DD(163.7,"GL",0,4,3)=""
^DD(163.7,"GL",0,5,4)=""
^DD(163.7,"GL",0,6,5)=""
^DD(163.7,"GL",0,7,6)=""
^DD(163.7,"GL",0,8,7)=""
^DD(163.7,"IX",.01)=""
^DD(163.7,"IX",1)=""
^DD(163.7,"RQ",.01)=""
^DD(163.7,"RQ",1)=""
^DD(163.7,"RQ",2)=""
^DD(163.7,"RQ",3)=""
^DD(163.7,"RQ",4)=""
^DD(163.7,"RQ",7)=""
^DD(163.85,0)="FIELD^^1^3"
^DD(163.85,0,"DT")="2920610"
^DD(163.85,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(163.85,0,"IX","B",163.85,.01)=""
^DD(163.85,0,"IX","C",163.85,.02)=""
^DD(163.85,0,"NM","FEE BASIS VA TYPE OF SERVICE")=""
^DD(163.85,0,"PT",162.03,29)=""
^DD(163.85,0,"VR")="3.5"
^DD(163.85,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(163.85,.01,1,0)="^.1"
^DD(163.85,.01,1,1,0)="163.85^B"
^DD(163.85,.01,1,1,1)="S ^FBAA(163.85,""B"",$E(X,1,30),DA)="""""
^DD(163.85,.01,1,1,2)="K ^FBAA(163.85,""B"",$E(X,1,30),DA)"
^DD(163.85,.01,3)="Answer must be 3-50 characters in length."
^DD(163.85,.01,21,0)="^^10^10^2930519^^^"
^DD(163.85,.01,21,1,0)="VA Type of Service Codes are codes that have been created to track"
^DD(163.85,.01,21,2,0)="""types"" of medical services provided to fee basis patients so"
^DD(163.85,.01,21,3,0)="that a cost analysis can be completed.  With this information we can"
^DD(163.85,.01,21,4,0)="compare outpatient VA costs to outpatient fee basis costs for ""types"""
^DD(163.85,.01,21,5,0)="of care provided.  When assigning the VA Type of Service Code we are"
^DD(163.85,.01,21,6,0)="trying to ""group"" types of VA outpatient care which is recorded by"
^DD(163.85,.01,21,7,0)="outpatient stop code and are reflected in the Cost Distribution"
^DD(163.85,.01,21,8,0)="Report(CDR).  When uncertain of what fee basis VA Type of Service"
^DD(163.85,.01,21,9,0)="code to use - determine how you would designate the care provided"
^DD(163.85,.01,21,10,0)="if you were recording VA outpatient treatment."
^DD(163.85,.01,23,0)="^^2^2^2920609^"
^DD(163.85,.01,23,1,0)="This file is populated by Medical Administration in Central Office."
^DD(163.85,.01,23,2,0)="It is sent out with data and should not be added to by the sites."
^DD(163.85,.01,"DT")="2920609"
^DD(163.85,.02,0)="VA CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X"
^DD(163.85,.02,1,0)="^.1"
^DD(163.85,.02,1,1,0)="163.85^C"
^DD(163.85,.02,1,1,1)="S ^FBAA(163.85,""C"",$E(X,1,30),DA)="""""
^DD(163.85,.02,1,1,2)="K ^FBAA(163.85,""C"",$E(X,1,30),DA)"
^DD(163.85,.02,1,1,"%D",0)="^^2^2^2920610^"
^DD(163.85,.02,1,1,"%D",1,0)="This cross-reference will allow the user to select the VA Type of"
^DD(163.85,.02,1,1,"%D",2,0)="Service by VA Code."
^DD(163.85,.02,1,1,"DT")="2920610"
^DD(163.85,.02,3)="Answer must be 2 characters in length."
^DD(163.85,.02,21,0)="^^2^2^2920610^"
^DD(163.85,.02,21,1,0)="This field contains the two character code which is sent with the"
^DD(163.85,.02,21,2,0)="payment record to Central Fee in Austin."
^DD(163.85,.02,23,0)="^^2^2^2920610^"
^DD(163.85,.02,23,1,0)="This is a two byte numeric field containing padded leading zeros."
^DD(163.85,.02,23,2,0)="It is sent with the payment data to Central Fee in Austin."
^DD(163.85,.02,"DT")="2920610"
^DD(163.85,1,0)="DESCRIPTION^163.851^^1;0"
^DD(163.85,1,21,0)="^^2^2^2930519^^"
^DD(163.85,1,21,1,0)="This field contains a detailed explanation of the VA Type of Service"
^DD(163.85,1,21,2,0)="Code."
^DD(163.85,1,23,0)="^^2^2^2920609^"
^DD(163.85,1,23,1,0)="This description will be used to help the user determine the most"
^DD(163.85,1,23,2,0)="appropriate code to select for a service provided."
^DD(163.85,"B","DESCRIPTION",1)=""
^DD(163.85,"B","NAME",.01)=""
^DD(163.85,"B","VA CODE",.02)=""
^DD(163.85,"GL",0,1,.01)=""
^DD(163.85,"GL",0,2,.02)=""
^DD(163.85,"GL",1,0,1)=""
^DD(163.85,"IX",.01)=""
^DD(163.85,"IX",.02)=""
^DD(163.85,"RQ",.01)=""
^DD(163.85,"RQ",.02)=""
^DD(163.85,"SB",163.851,1)=""
^DD(163.851,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(163.851,0,"DT")="2920609"
^DD(163.851,0,"NM","DESCRIPTION")=""
^DD(163.851,0,"UP")="163.85"
^DD(163.851,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(163.851,.01,"DT")="2920609"
^DD(163.851,"B","DESCRIPTION",.01)=""
^DD(163.851,"GL",0,1,.01)=""
^DD(163.99,0)="FIELD^^1^2"
^DD(163.99,0,"DT")="2940627"
^DD(163.99,0,"ID","WRITE")="D WRITE^FBAAPAA"
^DD(163.99,0,"IX","B",163.99,.01)=""
^DD(163.99,0,"NM","FEE BASIS FEE SCHEDULE")=""
^DD(163.99,0,"VR")="3.5"
^DD(163.99,0,"VRPK")="FB"
^DD(163.99,.01,0)="CPT CODE-MODIFIER^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<5) X I $D(X) D INPUT^FBAAUTL5"
^DD(163.99,.01,1,0)="^.1^^-1"
^DD(163.99,.01,1,1,0)="163.99^B"
^DD(163.99,.01,1,1,1)="S ^FBAA(163.99,""B"",$E(X,1,60),DA)="""""
^DD(163.99,.01,1,1,2)="K ^FBAA(163.99,""B"",$E(X,1,60),DA)"
^DD(163.99,.01,1,1,"%D",0)="^^2^2^2990601^^"
^DD(163.99,.01,1,1,"%D",1,0)="Length of cross-reference subscript increased to maximum field length (60"
^DD(163.99,.01,1,1,"%D",2,0)="characters) for use during fee schedule calculations."
^DD(163.99,.01,3)="Answer must be 5-60 characters in length. Answer must be a valid CPT code or CPT code followed by a dash (-) followed by up to 18 valid CPT Modifiers delimited by commas. Eg. 90050 or 74020-26,32"
^DD(163.99,.01,21,0)="^^3^3^2990601^^^^"
^DD(163.99,.01,21,1,0)="This file contains historical cost statistics which will"
^DD(163.99,.01,21,2,0)="be used to calculate the Fee Schedule. This data is compiled by"
^DD(163.99,.01,21,3,0)="running the FBAA FEE SCHEDULE option."
^DD(163.99,.01,23,0)="^^2^2^2990601^^^"
^DD(163.99,.01,23,1,0)="This field is free text.  However, the input transform checks for the"
^DD(163.99,.01,23,2,0)="validity of the CPT Code or CPT Code-Modifier combination."
^DD(163.99,.01,"DT")="2990601"
^DD(163.99,1,0)="FISCAL YEAR^163.991^^FY;0"
^DD(163.99,1,21,0)="^^2^2^2890322^^^"
^DD(163.99,1,21,1,0)="This is a multiple field that will allow for the storage"
^DD(163.99,1,21,2,0)="of historical costing data by fiscal year."
^DD(163.99,"B","CPT CODE-MODIFIER",.01)=""
^DD(163.99,"B","FISCAL YEAR",1)=""
^DD(163.99,"GL",0,1,.01)=""
^DD(163.99,"GL","FY",0,1)=""
^DD(163.99,"IX",.01)=""
^DD(163.99,"RQ",.01)=""
^DD(163.99,"SB",163.991,1)=""
^DD(163.991,0)="FISCAL YEAR SUB-FIELD^^7^6"
^DD(163.991,0,"IX","AC",163.991,.01)=""
^DD(163.991,0,"NM","FISCAL YEAR")=""
^DD(163.991,0,"UP")="163.99"
^DD(163.991,.01,0)="FISCAL YEAR^RNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N)!(X>($E(DT,1,3)+1700+$E(DT,4))) X S:$D(X) DINUM=X"
^DD(163.991,.01,1,0)="^.1"
^DD(163.991,.01,1,1,0)="163.991^AC^MUMPS"
^DD(163.991,.01,1,1,1)="S ^FBAA(163.99,""AC"",$E(X,1,30),DA)="""""
^DD(163.991,.01,1,1,2)="K ^FBAA(163.99,""AC"",$E(X,1,30),DA)"
^DD(163.991,.01,3)="Type a Number between 1900 and 9999, 0 Decimal Digets. Answer CANNOT exceed current Fiscal Year."
^DD(163.991,.01,21,0)="^^3^3^2890822^^^^"
^DD(163.991,.01,21,1,0)="This is the fiscal year for which the report was run. There is only one"
^DD(163.991,.01,21,2,0)="entry per fiscal year regardless of the date range as long as the"
^DD(163.991,.01,21,3,0)="dates fall within the fiscal year."
^DD(163.991,.01,"DT")="2980114"
^DD(163.991,1,0)="TOTAL OCCURANCES^RNJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<8)!(X?.E1"".""1N.N) X"
^DD(163.991,1,3)="Type a Number between 8 and 9999999, 0 Decimal Digits"
^DD(163.991,1,21,0)="^^3^3^2930519^^^"
^DD(163.991,1,21,1,0)="Total number of payments for a specific CPT code during"
^DD(163.991,1,21,2,0)="a fiscal year. There must be at least 8 occurrences in"
^DD(163.991,1,21,3,0)="order to be used in calculating the Fee schedule."
^DD(163.991,4,0)="SEVENTY-FIFTH PERCENTILE^RNJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(163.991,4,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(163.991,4,21,0)="^^3^3^3030617^"
^DD(163.991,4,21,1,0)="This is internally calculated and stores the 75th percentile dollar amount"
^DD(163.991,4,21,2,0)="based on amount claimed by the vendor for the CPT code.  Amounts are per"
^DD(163.991,4,21,3,0)="unit of service when BEGINNING DATE is on or after October 2004."
^DD(163.991,4,"DT")="2910930"
^DD(163.991,5,0)="DATE COMPILED^RD^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(163.991,5,21,0)="^^1^1^2890412^"
^DD(163.991,5,21,1,0)="This is the date that the FBAAPAY routine was run."
^DD(163.991,5,"DT")="2890322"
^DD(163.991,6,0)="BEGINNING DATE^RD^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(163.991,6,21,0)="^^4^4^2930519^^"
^DD(163.991,6,21,1,0)="The user can enter a date range within a fiscal"
^DD(163.991,6,21,2,0)="year. This is the beginning date of that range."
^DD(163.991,6,21,3,0)="If a fiscal year is selected this field gets"
^DD(163.991,6,21,4,0)="set to 10/1."
^DD(163.991,6,"DT")="2890322"
^DD(163.991,7,0)="ENDING DATE^RD^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(163.991,7,21,0)="^^4^4^2890412^"
^DD(163.991,7,21,1,0)="The user can enter a date range within a fiscal"
^DD(163.991,7,21,2,0)="year. This is the ending date for that range. If"
^DD(163.991,7,21,3,0)="a fiscal year is selected this field gets set"
^DD(163.991,7,21,4,0)="to 9/30."
^DD(163.991,7,"DT")="2890322"
^DD(163.991,"B","BEGINNING DATE",6)=""
^DD(163.991,"B","DATE COMPILED",5)=""
^DD(163.991,"B","ENDING DATE",7)=""
^DD(163.991,"B","FISCAL YEAR",.01)=""
^DD(163.991,"B","SEVENTY-FIFTH PERCENTILE",4)=""
^DD(163.991,"B","TOTAL OCCURANCES",1)=""
^DD(163.991,"GL",0,1,.01)=""
^DD(163.991,"GL",0,2,1)=""
^DD(163.991,"GL",0,5,4)=""
^DD(163.991,"GL",0,6,5)=""
^DD(163.991,"GL",0,7,6)=""
^DD(163.991,"GL",0,8,7)=""
^DD(163.991,"IX",.01)=""
^DD(163.991,"RQ",.01)=""
^DD(163.991,"RQ",1)=""
^DD(163.991,"RQ",4)=""
^DD(163.991,"RQ",5)=""
^DD(163.991,"RQ",6)=""
^DD(163.991,"RQ",7)=""
^DD(164,0)="FIELD^NL^1^54"
^DD(164,0,"DDA")="N"
^DD(164,0,"DT")="3060613"
^DD(164,0,"ID","WRITE")="D EN^DDIOL($P(^(0),U,2)_""  ""_$P(^(0),U,9),"""",""?52"")"
^DD(164,0,"IX","B",164,.01)=""
^DD(164,0,"IX","C",164.01,.01)=""
^DD(164,0,"IX","D",164,30)=""
^DD(164,0,"IX","E",164.05,.01)=""
^DD(164,0,"IX","H",164,1)=""
^DD(164,0,"IX","I",164,.065)=""
^DD(164,0,"NM","ICDO TOPOGRAPHY")=""
^DD(164,0,"PT",164,29)=""
^DD(164,0,"PT",164,41)=""
^DD(164,0,"PT",164,51)=""
^DD(164,0,"PT",164,107)=""
^DD(164,0,"PT",164.1,4)=""
^DD(164,0,"PT",164.22,.01)=""
^DD(164,0,"PT",164.512,.01)=""
^DD(164,0,"PT",164.522,.01)=""
^DD(164,0,"PT",164.532,.01)=""
^DD(164,0,"PT",164.552,.01)=""
^DD(164,0,"PT",165.5,20)=""
^DD(164,0,"PT",165.5,803)=""
^DD(164,0,"PT",165.5,805)=""
^DD(164,0,"PT",165.5,1102)=""
^DD(164,0,"PT",165.5,1104)=""
^DD(164,0,"PT",165.5,1403)=""
^DD(164,0,"PT",165.5,1573)=""
^DD(164,0,"PT",165.52,1)=""
^DD(164,0,"PT",169.3,4)=""
^DD(164,0,"PT",169.3,4.1)=""
^DD(164,0,"VER")="2.0"
^DD(164,0,"VR")="2.11"
^DD(164,0,"VRPK")="ONC"
^DD(164,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>67899)!(X<67000)!(X?.E1"".""1N.N) X"
^DD(164,.001,3)="Type a Number between 67000 and 67899, 0 Decimal Digits"
^DD(164,.001,21,0)="^^8^8^2930512^^"
^DD(164,.001,21,1,0)="This field, artificially created, provides easy direct access to the file."
^DD(164,.001,21,2,0)=" "
^DD(164,.001,21,3,0)="The first two digits are the ASCII value of the first character of the "
^DD(164,.001,21,4,0)="ICD-O code.  The last three digits are the numeric portion of the ICD-O "
^DD(164,.001,21,5,0)="code, omitting the decimal point."
^DD(164,.001,21,6,0)=" "
^DD(164,.001,21,7,0)="Do not confuse this code with the 5-digit MORPHOLOGY code.  One ICD-O"
^DD(164,.001,21,8,0)="TOPOGRAPHY code may have several corresponding MORPHOLOGY codes."
^DD(164,.001,"DT")="2920107"
^DD(164,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(164,.01,1,0)="^.1^^-1"
^DD(164,.01,1,1,0)="164^B"
^DD(164,.01,1,1,1)="S ^ONCO(164,""B"",$E(X,1,30),DA)="""""
^DD(164,.01,1,1,2)="K ^ONCO(164,""B"",$E(X,1,30),DA)"
^DD(164,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(164,.01,21,0)="^.001^1^1^3020618^^^^"
^DD(164,.01,21,1,0)="FREE TEXT FIELD FOR NAME."
^DD(164,.01,"DT")="3020618"
^DD(164,.05,0)="SURGERY CODING^P164.2'^ONCO(164.2,^0;5^Q"
^DD(164,.05,21,0)="^^1^1^2920528^"
^DD(164,.05,21,1,0)="POINTS TO LIST OF SEER SURGERY CODES."
^DD(164,.05,"DT")="2900125"
^DD(164,.065,0)="REPORTING SITE GROUP^P164.14'^ONCO(164.14,^4;1^Q"
^DD(164,.065,1,0)="^.1"
^DD(164,.065,1,1,0)="164^I"
^DD(164,.065,1,1,1)="S ^ONCO(164,""I"",$E(X,1,30),DA)="""""
^DD(164,.065,1,1,2)="K ^ONCO(164,""I"",$E(X,1,30),DA)"
^DD(164,.065,1,1,"%D",0)="^^2^2^2930622^"
^DD(164,.065,1,1,"%D",1,0)="This cross-reference facilitates a backward pointer from the AJCC SITE"
^DD(164,.065,1,1,"%D",2,0)="GROUP FOR REPORTING File (164.14)."
^DD(164,.065,1,1,"DT")="2930622"
^DD(164,.065,21,0)="^^1^1^2930820^^"
^DD(164,.065,21,1,0)="This is the site group under which the topography is classified on reports."
^DD(164,.065,"DT")="2930622"
^DD(164,.07,0)="PAIRED ORGAN^S^1:LATERALITY CODE REQUIRED;^0;7^Q"
^DD(164,.07,21,0)="^^2^2^2920528^"
^DD(164,.07,21,1,0)="RECORDS THE EXISTENCE OF PAIRED ORGANS, THOSE ORGANS THAT ARE"
^DD(164,.07,21,2,0)="TWO IN NUMBER, SUCH AS KIDNEY, TESTES, ARMS, LEGS, LUNGS, ETC."
^DD(164,.07,"DT")="2900516"
^DD(164,.08,0)="SEX^S^1:MALE ONLY;2:FEMALE ONLY;^0;8^Q"
^DD(164,.08,21,0)="^^1^1^2920528^"
^DD(164,.08,21,1,0)="RECORDS THE PATIENT'S SEX."
^DD(164,.08,"DT")="2920107"
^DD(164,1,0)="CODE^RF^^0;2^K:$L(X)>5!($L(X)<5) X"
^DD(164,1,1,0)="^.1"
^DD(164,1,1,1,0)="164^H"
^DD(164,1,1,1,1)="S ^ONCO(164,""H"",$E(X,1,30),DA)="""""
^DD(164,1,1,1,2)="K ^ONCO(164,""H"",$E(X,1,30),DA)"
^DD(164,1,1,1,"%D",0)="^^1^1^3020618^"
^DD(164,1,1,1,"%D",1,0)="Indexes file by CODE."
^DD(164,1,1,1,"DT")="3020618"
^DD(164,1,3)="Answer must be 5 characters in length."
^DD(164,1,21,0)="^^1^1^3020618^"
^DD(164,1,21,1,0)="FREE TEXT FIELD RECORDING CODE NUMBER"
^DD(164,1,"DT")="3020618"
^DD(164,3,0)="TYPE^164.01A^^1;0"
^DD(164,3,21,0)="^^1^1^2930930^^"
^DD(164,3,21,1,0)="MULTIPLE FIELD ALLOWING FOR RECORDING OF TYPE."
^DD(164,21,0)="TNM CODING APPLICABLE^S^Y:Yes;N:No;^0;14^Q"
^DD(164,21,21,0)="^^4^4^2930812^"
^DD(164,21,21,1,0)="Enter 'Y' if TNM coding is applicable to this anatomical site,"
^DD(164,21,21,2,0)="or 'N' if TNM coding does not apply."
^DD(164,21,21,3,0)=" "
^DD(164,21,21,4,0)="If no entry is made, it is assumed that TNM coding *is* applicable."
^DD(164,21,"DT")="2930812"
^DD(164,22,0)="MM SKIN^S^1:Applicable;^0;15^Q"
^DD(164,22,21,0)="^^2^2^2930819^"
^DD(164,22,21,1,0)="This field contains a flag which, when set to 1, indicates that this"
^DD(164,22,21,2,0)="topographic site is one to which malignant melanoma staging may apply."
^DD(164,22,"DT")="2930819"
^DD(164,29,0)="T & N CODES^P164'^ONCO(164,^0;11^Q"
^DD(164,29,21,0)="^^1^1^2930713^^"
^DD(164,29,21,1,0)="POINTER TO FILE CONTAINING THE T(UMOR) AND N(ODES) CODES."
^DD(164,29,"DT")="2930713"
^DD(164,30,0)="AJCC STAGING GROUP^P164.33'^ONCO(164.33,^0;12^Q"
^DD(164,30,1,0)="^.1^^0"
^DD(164,30,1,1,0)="164^D"
^DD(164,30,1,1,1)="S ^ONCO(164,""D"",$E(X,1,30),DA)="""""
^DD(164,30,1,1,2)="K ^ONCO(164,""D"",$E(X,1,30),DA)"
^DD(164,30,1,1,"DT")="2970528"
^DD(164,30,3)=""
^DD(164,30,21,0)="^^3^3^2920528^"
^DD(164,30,21,1,0)="CONTAINS THE POINTERS FOR CHAPTERS IN THE AMERICAN JOINT COMMISSION"
^DD(164,30,21,2,0)="ON CANCER MANUAL FOR THE STAGING OF CANCER, 3RD EDITION.  EACH"
^DD(164,30,21,3,0)="CHAPTER DEALS WITH A DIFFERENT PRIMARY SITE."
^DD(164,30,"DT")="3021028"
^DD(164,31,0)="T-CLASS ENCODING^164.06I^^T;0"
^DD(164,31,21,0)="^^1^1^2971104^^^^"
^DD(164,31,21,1,0)="RECORDS THE T(UMOR) DESCRIPTION."
^DD(164,32,0)="N-CLASS ENCODING^164.065I^^N;0"
^DD(164,32,21,0)="^^1^1^2971104^^^^"
^DD(164,32,21,1,0)="RECORDS THE LYMPH N(ODE) DESCRIPTION."
^DD(164,32.1,0)="4TH EDITION N-CLASS ENCODING^164.09I^^N4;0"
^DD(164,32.1,21,0)="^^2^2^2971105^^^^"
^DD(164,32.1,21,1,0)="This multiple contains the N-codes from the AJCC Manual on Staging of"
^DD(164,32.1,21,2,0)="Cancer, 4th edition (1992)."
^DD(164,33,0)="STAGE GROUP^164.066I^^S;0"
^DD(164,33,21,0)="^^2^2^2930930^^"
^DD(164,33,21,1,0)="RECORDS THE STAGING GROUPING IN ACCORDANCE WITH THE AJCC MANUAL"
^DD(164,33,21,2,0)="FOR THE STAGING OF CANCER."
^DD(164,41,0)="EXTENSION CODING^P164'^ONCO(164,^0;3^Q"
^DD(164,41,21,0)="^^1^1^2920528^"
^DD(164,41,21,1,0)="POINTS TO THE FILE CONTAINING THE SEER EXTENSION CODES."
^DD(164,41,"DT")="2911227"
^DD(164,43,0)="EXTENSION CODE SET-1ST ED^*P164.5'^ONCO(164.5,^E;1^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,43,12)="A first edition extension code set may be chosen."
^DD(164,43,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"""
^DD(164,43,21,0)="^^3^3^2940713^"
^DD(164,43,21,1,0)="This field identifies the set of codes used to characterize extension for "
^DD(164,43,21,2,0)="this topography in the first edition of SEER Extent of Disease Codes and "
^DD(164,43,21,3,0)="Coding Instructions."
^DD(164,43,"DT")="2940713"
^DD(164,43.01,0)="EXTENSION CODE SET-2ND ED^*P164.5'^ONCO(164.5,^E;2^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,43.01,12)="A first or second edition extension code set may be chosen."
^DD(164,43.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"""
^DD(164,43.01,21,0)="^^5^5^2981201^^^"
^DD(164,43.01,21,1,0)=""
^DD(164,43.01,21,2,0)="This field identifies the set of codes used to characterize extension for"
^DD(164,43.01,21,3,0)="this topography in the second edition of SEER Extent of Disease Codes and "
^DD(164,43.01,21,4,0)="Coding Instructions."
^DD(164,43.01,21,5,0)=""
^DD(164,43.01,"DT")="2940713"
^DD(164,43.02,0)="EXTENSION CODE SET-3RD ED^*P164.5'^ONCO(164.5,^E;3^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,43.02,12)="A first, second or third edition extension code may be selected."
^DD(164,43.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"""
^DD(164,43.02,21,0)="^^5^5^2981201^^^^"
^DD(164,43.02,21,1,0)=""
^DD(164,43.02,21,2,0)="This field identifies the set of codes used to characterize extension for"
^DD(164,43.02,21,3,0)="this topography in the third edition of SEER Extent of Disease Codes and "
^DD(164,43.02,21,4,0)="Coding Instructions."
^DD(164,43.02,21,5,0)=""
^DD(164,43.02,"DT")="2981201"
^DD(164,51,0)="LYMPH NODE ENCODING^P164'^ONCO(164,^0;4^Q"
^DD(164,51,21,0)="^^1^1^2920528^"
^DD(164,51,21,1,0)="POINTS TO THE FILE CONTAINING THE LYMPH NODE CODES."
^DD(164,51,"DT")="2911227"
^DD(164,53,0)="LYMPH NODE CODE SET-1ST ED^*P164.5'^ONCO(164.5,^L;1^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,53,12)="A first edition lymph node code may be selected."
^DD(164,53,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"""
^DD(164,53,21,0)="^^3^3^2981112^^^"
^DD(164,53,21,1,0)="This field identifies the set of codes used to characterize lymph node "
^DD(164,53,21,2,0)="involvement for this topography in the first edition of SEER Extent of "
^DD(164,53,21,3,0)="Disease Codes and Coding Instructions."
^DD(164,53,"DT")="2940713"
^DD(164,53.01,0)="LYMPH NODE CODE SET-2ND ED^*P164.5'^ONCO(164.5,^L;2^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,53.01,12)="A first or second edition lymph node code set may be chosen."
^DD(164,53.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"""
^DD(164,53.01,21,0)="^^3^3^2981112^^^"
^DD(164,53.01,21,1,0)="This field identifies the set of codes used to characterize lymph node"
^DD(164,53.01,21,2,0)="involvement for this topography in the second edition of SEER Extent of"
^DD(164,53.01,21,3,0)="Disease Codes and Coding Instructions."
^DD(164,53.01,22)=""
^DD(164,53.01,"DT")="2940713"
^DD(164,53.02,0)="LYMPH NODE CODE SET-3RD ED^*P164.5'^ONCO(164.5,^L;3^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,53.02,12)="A first, second or third edition lymph node code set may be chosen."
^DD(164,53.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"""
^DD(164,53.02,21,0)="^^5^5^2981112^^"
^DD(164,53.02,21,1,0)=""
^DD(164,53.02,21,2,0)="This field identifies the set of codes used to characterize lymph node"
^DD(164,53.02,21,3,0)="involvement for this topography in the third edition of SEER Extent of"
^DD(164,53.02,21,4,0)="Disease Codes and Coding Instructions."
^DD(164,53.02,21,5,0)=""
^DD(164,53.02,"DT")="2981112"
^DD(164,60,0)="SNOMED ENCODING^164.04P^^2;0"
^DD(164,60,21,0)="^^1^1^2990601^^^"
^DD(164,60,21,1,0)="POINTS TO THE FILE CONTAINING THE SNOMED CODES FOR HISTO-MORPHOLOGY."
^DD(164,61,0)="SNOMED DECODING^164.05^^3;0"
^DD(164,61,21,0)="^^1^1^2930930^^"
^DD(164,61,21,1,0)="RECORDS THE TEXT GENERATED BY THE SNOMED CODES."
^DD(164,63,0)="SURGERY CODE SET-1ST ED^*P164.5'^ONCO(164.5,^SR;1^S DIC(""S"")=""I $P(^(0),U,5)=""""S"""",$P(^(0),U,5)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,63,12)="A first edition surgery code set may be chosen."
^DD(164,63,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""S"""",$P(^(0),U,5)'>1"""
^DD(164,63,21,0)="^^3^3^2940715^"
^DD(164,63,21,1,0)="This field identifies the set of codes used to characterize cancer-related"
^DD(164,63,21,2,0)="surgery for this topography in the first edition of the Data Acquisition"
^DD(164,63,21,3,0)="Manual."
^DD(164,63,"DT")="2940715"
^DD(164,63.01,0)="SURGERY CODE SET-2ND ED^*P164.5'^ONCO(164.5,^SR;2^S DIC(""S"")=""I $P(^(0),U,5)=""""S"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164,63.01,12)="A first or second edition surgery code set may be selected."
^DD(164,63.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""S"""",$P(^(0),U,2)'>2"""
^DD(164,63.01,21,0)="^^3^3^2940715^"
^DD(164,63.01,21,1,0)="This field identifies the set of codes used to characterize cancer-related"
^DD(164,63.01,21,2,0)="surgery for this topography in the second edition of the Data Acquisition"
^DD(164,63.01,21,3,0)="Manual."
^DD(164,63.01,"DT")="2940715"
^DD(164,71,0)="AJCC CHAP#-NAME^CJ1^^ ; ^S X=$P(^ONCO(164,D0,0),U,12) Q:X=""""  S X=$S($L(X)=1:0_X,1:X),X=""#""_X_"": ""_$P(^ONCO(164.33,+X,0),U)"
^DD(164,71,9)="^"
^DD(164,71,9.01)=""
^DD(164,71,9.1)="S X=$P(^ONCO(164,D0,0),U,12) Q:X=""""  S X=$S($L(X)=1:0_X,1:X),X=""#""_X_"": ""_$P(^ONCO(164.33,+X,0),U)"
^DD(164,71,21,0)="^^2^2^2920528^"
^DD(164,71,21,1,0)="RECORDS THE AJCC CHAPTER NUMBER AND THE NAME OF THE SECTION"
^DD(164,71,21,2,0)="IT DESCRIBES."
^DD(164,71,"DT")="2920331"
^DD(164,72,0)="ajcc cp#^CJ1^^ ; ^S X=$P(^ONCO(164,D0,0),U,12)"
^DD(164,72,9)="^"
^DD(164,72,9.01)=""
^DD(164,72,9.1)="S X=$P(^ONCO(164,D0,0),U,12)"
^DD(164,72,21,0)="^^2^2^2920528^"
^DD(164,72,21,1,0)="COMPUTED FIELD FOR THE AJCC CHAPTER NUMBER, EACH NUMBER IS ASSOCIATED"
^DD(164,72,21,2,0)="WITH A DIFFERENT TYPE OF CANCER."
^DD(164,101,0)="4TH EDITION T-CLASS ENCODING^164.0101IA^^T4;0"
^DD(164,101,21,0)="^^2^2^2971105^^^^"
^DD(164,101,21,1,0)="This multiple contains T codes from the fourth edition of the AJCC Manual"
^DD(164,101,21,2,0)="on Staging of Cancer."
^DD(164,102,0)="DEFAULT PRIMARY SITE GROUP^P164.2'^ONCO(164.2,^0;13^Q"
^DD(164,102,21,0)="^^4^4^2930703^"
^DD(164,102,21,1,0)="This field maps ICD-O second edition topography codes to the"
^DD(164,102,21,2,0)="SITE-GROUP FOR ONCOLOGY File (#164.2).  Its chief purpose is "
^DD(164,102,21,3,0)="to facilitate conversions from non-DHCP databases by creating "
^DD(164,102,21,4,0)="a .01 field for the ONCOLOGY PRIMARY File (#165.5)."
^DD(164,102,"DT")="2930703"
^DD(164,103,0)="5TH EDITION T-CODES^164.0103^^T5;0"
^DD(164,104,0)="5TH EDITION N-CODES^164.0104^^N5;0"
^DD(164,105,0)="5TH EDITION M-CODES^164.0105^^M5;0"
^DD(164,106,0)="5TH EDITION T-CODE HELP^164.0106^^5;0"
^DD(164,107,0)="SURGERY CODE GROUP-5TH ED^P164'^ONCO(164,^0;16^Q"
^DD(164,107,21,0)="^.001^3^3^3000707^^^"
^DD(164,107,21,1,0)="This field contains a pointer to the Topography which has the surgery codes"
^DD(164,107,21,2,0)="for the group that this Topography is in.  The Topography which contains the"
^DD(164,107,21,3,0)="codes has this field pointing to itself."
^DD(164,107,"DT")="2971212"
^DD(164,108,0)="5TH ED-SURGICAL APPROACH CODES^164.0108^^SUA;0"
^DD(164,108,"DT")="2971222"
^DD(164,109,0)="5TH EDITION N-CODE HELP^164.0109^^6;0"
^DD(164,110,0)="5TH EDITION M-CODE HELP^164.02^^7;0"
^DD(164,110,"DT")="2971223"
^DD(164,111,0)="5TH ED-SURGERY PRIMARY SITE^164.0111^^SPS;0"
^DD(164,112,0)="5TH ED-SURGICAL MARGINS^164.0112^^SM5;0"
^DD(164,113,0)="5TH ED-SCOPE LYMPH NODE SURG^164.0113^^SC5;0"
^DD(164,114,0)="5TH ED-NUMBER LYMPH ND REMOVED^164.0114^^NL5;0"
^DD(164,115,0)="5TH ED-SURGERY OTHER REG SITES^164.0115^^SO5;0"
^DD(164,116,0)="5TH ED-RECONSTRUCTION^164.0116I^^RR5;0"
^DD(164,117,0)="5TH ED-BIOPSY PROCEDURE CODES^164.0117^^BP5;0"
^DD(164,118,0)="5TH ED-GUIDANCE CODES^164.0118^^GU5;0"
^DD(164,119,0)="6TH EDITION (T) CODES^164.0119^^T6;0"
^DD(164,119,21,0)="^.001^2^2^3020702^^^^"
^DD(164,119,21,1,0)="This field contains the Sixth Edition Primary Tumor (T) codes.  T codes"
^DD(164,119,21,2,0)="record the extent of the primary tumor."
^DD(164,119,"DT")="3020619"
^DD(164,120,0)="6TH EDITION (T) CODE HELP^164.012^^8;0"
^DD(164,120,21,0)="^.001^2^2^3020619^^"
^DD(164,120,21,1,0)="This field contains the full text of the Sixth Edition Primary Tumor"
^DD(164,120,21,2,0)="(T) code definitions."
^DD(164,121,0)="6TH EDITION (N) CODES^164.0121^^N6;0"
^DD(164,121,21,0)="^.001^3^3^3020716^^^^"
^DD(164,121,21,1,0)="This field contains the Sixth Edition Regional Lymph Nodes (N) codes.  N"
^DD(164,121,21,2,0)="codes record the absence or presence and extent of regional lymph node"
^DD(164,121,21,3,0)="metastasis."
^DD(164,121,"DT")="3020619"
^DD(164,122,0)="6TH EDITION (N) CODE HELP^164.0122^^9;0"
^DD(164,122,21,0)="^.001^2^2^3020619^^^^"
^DD(164,122,21,1,0)="This field contains the full text of the Sixth Edition Regional Lymph"
^DD(164,122,21,2,0)="Nodes (N) code definitions."
^DD(164,122,"DT")="3020619"
^DD(164,123,0)="6TH EDITION (M) CODES^164.0123^^M6;0"
^DD(164,123,21,0)="^^2^2^3020711^"
^DD(164,123,21,1,0)="This field contains the Sixth Edition Distant Metastasis (M) codes."
^DD(164,123,21,2,0)="M codes record the absence or presence of distant metastasis."
^DD(164,124,0)="6TH EDITION (M) CODE HELP^164.0124^^10;0"
^DD(164,124,21,0)="^^2^2^3020716^"
^DD(164,124,21,1,0)="This field contains the full text of the Sixth Edition Distant"
^DD(164,124,21,2,0)="Metastasis (M) code definitions."
^DD(164,"B","4TH EDITION N-CLASS ENCODING",32.1)=""
^DD(164,"B","4TH EDITION T-CLASS ENCODING",101)=""
^DD(164,"B","5TH ED-BIOPSY PROCEDURE CODES",117)=""
^DD(164,"B","5TH ED-GUIDANCE CODES",118)=""
^DD(164,"B","5TH ED-NUMBER LYMPH ND REMOVED",114)=""
^DD(164,"B","5TH ED-RECONSTRUCTION",116)=""
^DD(164,"B","5TH ED-SCOPE LYMPH NODE SURG",113)=""
^DD(164,"B","5TH ED-SURGERY OTHER REG SITES",115)=""
^DD(164,"B","5TH ED-SURGERY PRIMARY SITE",111)=""
^DD(164,"B","5TH ED-SURGICAL APPROACH CODES",108)=""
^DD(164,"B","5TH ED-SURGICAL MARGINS",112)=""
^DD(164,"B","5TH EDITION M-CODE HELP",110)=""
^DD(164,"B","5TH EDITION M-CODES",105)=""
^DD(164,"B","5TH EDITION N-CODE HELP",109)=""
^DD(164,"B","5TH EDITION N-CODES",104)=""
^DD(164,"B","5TH EDITION T-CODE HELP",106)=""
^DD(164,"B","5TH EDITION T-CODES",103)=""
^DD(164,"B","6TH EDITION (M) CODE HELP",124)=""
^DD(164,"B","6TH EDITION (M) CODES",123)=""
^DD(164,"B","6TH EDITION (N) CODE HELP",122)=""
^DD(164,"B","6TH EDITION (N) CODES",121)=""
^DD(164,"B","6TH EDITION (T) CODE HELP",120)=""
^DD(164,"B","6TH EDITION (T) CODES",119)=""
^DD(164,"B","AJCC CHAP#-NAME",71)=""
^DD(164,"B","AJCC STAGING GROUP",30)=""
^DD(164,"B","CODE",1)=""
^DD(164,"B","DEFAULT PRIMARY SITE GROUP",102)=""
^DD(164,"B","EXTENSION CODE SET-1ST ED",43)=""
^DD(164,"B","EXTENSION CODE SET-2ND ED",43.01)=""
^DD(164,"B","EXTENSION CODE SET-3RD ED",43.02)=""
^DD(164,"B","EXTENSION CODING",41)=""
^DD(164,"B","LYMPH NODE CODE SET-1ST ED",53)=""
^DD(164,"B","LYMPH NODE CODE SET-2ND ED",53.01)=""
^DD(164,"B","LYMPH NODE CODE SET-3RD ED",53.02)=""
^DD(164,"B","LYMPH NODE ENCODING",51)=""
^DD(164,"B","MM SKIN",22)=""
^DD(164,"B","N-CLASS ENCODING",32)=""
^DD(164,"B","NAME",.01)=""
^DD(164,"B","NUMBER",.001)=""
^DD(164,"B","PAIRED ORGAN",.07)=""
^DD(164,"B","REPORTING SITE GROUP",.065)=""
^DD(164,"B","SEX",.08)=""
^DD(164,"B","SNOMED DECODING",61)=""
^DD(164,"B","SNOMED ENCODING",60)=""
^DD(164,"B","STAGE GROUP",33)=""
^DD(164,"B","SURGERY CODE GROUP-5TH ED",107)=""
^DD(164,"B","SURGERY CODE SET-1ST ED",63)=""
^DD(164,"B","SURGERY CODE SET-2ND ED",63.01)=""
^DD(164,"B","SURGERY CODING",.05)=""
^DD(164,"B","T & N CODES",29)=""
^DD(164,"B","T-CLASS ENCODING",31)=""
^DD(164,"B","TNM CODING APPLICABLE",21)=""
^DD(164,"B","TYPE",3)=""
^DD(164,"B","ajcc cp#",72)=""
^DD(164,"GL",0,1,.01)=""
^DD(164,"GL",0,2,1)=""
^DD(164,"GL",0,3,41)=""
^DD(164,"GL",0,4,51)=""
^DD(164,"GL",0,5,.05)=""
^DD(164,"GL",0,7,.07)=""
^DD(164,"GL",0,8,.08)=""
^DD(164,"GL",0,11,29)=""
^DD(164,"GL",0,12,30)=""
^DD(164,"GL",0,13,102)=""
^DD(164,"GL",0,14,21)=""
^DD(164,"GL",0,15,22)=""
^DD(164,"GL",0,16,107)=""
^DD(164,"GL",1,0,3)=""
^DD(164,"GL",2,0,60)=""
^DD(164,"GL",3,0,61)=""
^DD(164,"GL",4,1,.065)=""
^DD(164,"GL",5,0,106)=""
^DD(164,"GL",6,0,109)=""
^DD(164,"GL",7,0,110)=""
^DD(164,"GL",8,0,120)=""
^DD(164,"GL",9,0,122)=""
^DD(164,"GL",10,0,124)=""
^DD(164,"GL","BP5",0,117)=""
^DD(164,"GL","E",1,43)=""
^DD(164,"GL","E",2,43.01)=""
^DD(164,"GL","E",3,43.02)=""
^DD(164,"GL","GU5",0,118)=""
^DD(164,"GL","L",1,53)=""
^DD(164,"GL","L",2,53.01)=""
^DD(164,"GL","L",3,53.02)=""
^DD(164,"GL","M5",0,105)=""
^DD(164,"GL","M6",0,123)=""
^DD(164,"GL","N",0,32)=""
^DD(164,"GL","N4",0,32.1)=""
^DD(164,"GL","N5",0,104)=""
^DD(164,"GL","N6",0,121)=""
^DD(164,"GL","NL5",0,114)=""
^DD(164,"GL","RR5",0,116)=""
^DD(164,"GL","S",0,33)=""
^DD(164,"GL","SC5",0,113)=""
^DD(164,"GL","SM5",0,112)=""
^DD(164,"GL","SO5",0,115)=""
^DD(164,"GL","SPS",0,111)=""
^DD(164,"GL","SR",1,63)=""
^DD(164,"GL","SR",2,63.01)=""
^DD(164,"GL","SUA",0,108)=""
^DD(164,"GL","T",0,31)=""
^DD(164,"GL","T4",0,101)=""
^DD(164,"GL","T5",0,103)=""
^DD(164,"GL","T6",0,119)=""
^DD(164,"IX",.01)=""
^DD(164,"IX",.065)=""
^DD(164,"IX",1)=""
^DD(164,"IX",30)=""
^DD(164,"RQ",.01)=""
^DD(164,"RQ",1)=""
^DD(164,"SB",164.01,3)=""
^DD(164,"SB",164.0101,101)=""
^DD(164,"SB",164.0103,103)=""
^DD(164,"SB",164.0104,104)=""
^DD(164,"SB",164.0105,105)=""
^DD(164,"SB",164.0106,106)=""
^DD(164,"SB",164.0108,108)=""
^DD(164,"SB",164.0109,109)=""
^DD(164,"SB",164.0111,111)=""
^DD(164,"SB",164.0112,112)=""
^DD(164,"SB",164.0113,113)=""
^DD(164,"SB",164.0114,114)=""
^DD(164,"SB",164.0115,115)=""
^DD(164,"SB",164.0116,116)=""
^DD(164,"SB",164.0117,117)=""
^DD(164,"SB",164.0118,118)=""
^DD(164,"SB",164.0119,119)=""
^DD(164,"SB",164.012,120)=""
^DD(164,"SB",164.0121,121)=""
^DD(164,"SB",164.0122,122)=""
^DD(164,"SB",164.0123,123)=""
^DD(164,"SB",164.0124,124)=""
^DD(164,"SB",164.02,110)=""
^DD(164,"SB",164.04,60)=""
^DD(164,"SB",164.05,61)=""
^DD(164,"SB",164.06,31)=""
^DD(164,"SB",164.065,32)=""
^DD(164,"SB",164.066,33)=""
^DD(164,"SB",164.09,32.1)=""
^DD(164.01,0)="TYPE SUB-FIELD^NL^.01^1"
^DD(164.01,0,"NM","TYPE")=""
^DD(164.01,0,"UP")="164"
^DD(164.01,.01,0)="TYPE^MF^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>25!($L(X)<3) X"
^DD(164.01,.01,1,0)="^.1"
^DD(164.01,.01,1,1,0)="164^C"
^DD(164.01,.01,1,1,1)="S ^ONCO(164,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(164.01,.01,1,1,2)="K ^ONCO(164,""C"",$E(X,1,30),DA(1),DA)"
^DD(164.01,.01,1,1,"%D",0)="^^1^1^2930909"
^DD(164.01,.01,1,1,"%D",1,0)="Indexes file by TYPE."
^DD(164.01,.01,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(164.01,.01,21,0)="^^1^1^2930930^"
^DD(164.01,.01,21,1,0)="This is the type of topography code."
^DD(164.01,"B","TYPE",.01)=""
^DD(164.01,"GL",0,1,.01)=""
^DD(164.01,"IX",.01)=""
^DD(164.0101,0)="4TH EDITION T-CLASS ENCODING SUB-FIELD^^.03^3"
^DD(164.0101,0,"DT")="2971105"
^DD(164.0101,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(164.0101,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(164.0101,0,"IX","B",164.0101,.01)=""
^DD(164.0101,0,"NM","4TH EDITION T-CLASS ENCODING")=""
^DD(164.0101,0,"UP")="164"
^DD(164.0101,.01,0)="4TH EDITION T-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X"
^DD(164.0101,.01,1,0)="^.1"
^DD(164.0101,.01,1,1,0)="164.0101^B"
^DD(164.0101,.01,1,1,1)="S ^ONCO(164,DA(1),""T4"",""B"",$E(X,1,30),DA)="""""
^DD(164.0101,.01,1,1,2)="K ^ONCO(164,DA(1),""T4"",""B"",$E(X,1,30),DA)"
^DD(164.0101,.01,3)="Answer must be 2-45 characters in length."
^DD(164.0101,.01,21,0)="^^1^1^2971105^^^"
^DD(164.0101,.01,21,1,0)="This is the type of tumor."
^DD(164.0101,.01,"DT")="2971105"
^DD(164.0101,.02,0)="CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;^0;2^Q"
^DD(164.0101,.02,1,0)="^.1^^0"
^DD(164.0101,.02,21,0)="^^1^1^2971105^^^"
^DD(164.0101,.02,21,1,0)="This is the code as it appears in the AJCC Manual on Staging."
^DD(164.0101,.02,"DT")="3041209"
^DD(164.0101,.03,0)="ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;^0;3^Q"
^DD(164.0101,.03,1,0)="^.1"
^DD(164.0101,.03,1,1,0)="164.065^X^MUMPS"
^DD(164.0101,.03,1,1,1)="S ^ONCO(164,DA(1),""T4"",""X"",X)=DA"
^DD(164.0101,.03,1,1,2)="K ^ONCO(164,DA(1),""T4"",""X"",X)"
^DD(164.0101,.03,1,1,"%D",0)="^^1^1^2930702^^"
^DD(164.0101,.03,1,1,"%D",1,0)="For lookup on output transform"
^DD(164.0101,.03,1,1,"DT")="2930702"
^DD(164.0101,.03,21,0)="^^1^1^2971105^^^"
^DD(164.0101,.03,21,1,0)="This is the code as it is transmitted to ACoS."
^DD(164.0101,.03,"DT")="2971105"
^DD(164.0101,"B","4TH EDITION T-CLASS ENCODING",.01)=""
^DD(164.0101,"B","ACOS CODE",.03)=""
^DD(164.0101,"B","CODE",.02)=""
^DD(164.0101,"GL",0,1,.01)=""
^DD(164.0101,"GL",0,2,.02)=""
^DD(164.0101,"GL",0,3,.03)=""
^DD(164.0101,"IX",.01)=""
^DD(164.0101,"IX",.03)=""
^DD(164.0103,0)="5TH EDITION T-CODES SUB-FIELD^^2^3"
^DD(164.0103,0,"DT")="2971121"
^DD(164.0103,0,"IX","B",164.0103,.01)=""
^DD(164.0103,0,"IX","X",164.0103,1)=""
^DD(164.0103,0,"IX","X",164.0103,2)=""
^DD(164.0103,0,"NM","5TH EDITION T-CODES")=""
^DD(164.0103,0,"UP")="164"
^DD(164.0103,.01,0)="5TH EDITION T-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0103,.01,1,0)="^.1"
^DD(164.0103,.01,1,1,0)="164.0103^B"
^DD(164.0103,.01,1,1,1)="S ^ONCO(164,DA(1),""T5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0103,.01,1,1,2)="K ^ONCO(164,DA(1),""T5"",""B"",$E(X,1,30),DA)"
^DD(164.0103,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0103,.01,"DT")="2971029"
^DD(164.0103,1,0)="CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;1mic:T1mic;1b1:T1b1;1b2:T1b2;^0;2^Q"
^DD(164.0103,1,1,0)="^.1"
^DD(164.0103,1,1,1,0)="164.0103^X^MUMPS"
^DD(164.0103,1,1,1,1)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") S ^ONCO(164,DA(1),""T5"",""X"",X)=DA"
^DD(164.0103,1,1,1,2)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") K ^ONCO(164,DA(1),""T5"",""X"",X)"
^DD(164.0103,1,1,1,"%D",0)="^^1^1^3030206^"
^DD(164.0103,1,1,1,"%D",1,0)="This cross-reference will allow lookup by CODE."
^DD(164.0103,1,1,1,"DT")="3030206"
^DD(164.0103,1,"DT")="3030206"
^DD(164.0103,2,0)="ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;1MIC:T1MIC;1B1:T1B1;1B2:T1B2;^0;3^Q"
^DD(164.0103,2,1,0)="^.1"
^DD(164.0103,2,1,1,0)="164.0103^X^MUMPS"
^DD(164.0103,2,1,1,1)="S ^ONCO(164,DA(1),""T5"",""X"",X)=DA"
^DD(164.0103,2,1,1,2)="K ^ONCO(164,DA(1),""T5"",""X"",X)"
^DD(164.0103,2,1,1,"DT")="2971022"
^DD(164.0103,2,"DT")="2971121"
^DD(164.0103,"B","5TH EDITION T-CODES",.01)=""
^DD(164.0103,"B","ACOS CODE",2)=""
^DD(164.0103,"B","CODE",1)=""
^DD(164.0103,"GL",0,1,.01)=""
^DD(164.0103,"GL",0,2,1)=""
^DD(164.0103,"GL",0,3,2)=""
^DD(164.0103,"IX",.01)=""
^DD(164.0103,"IX",1)=""
^DD(164.0103,"IX",2)=""
^DD(164.0104,0)="5TH EDITION N-CODES SUB-FIELD^^2^3"
^DD(164.0104,0,"DT")="2971029"
^DD(164.0104,0,"IX","B",164.0104,.01)=""
^DD(164.0104,0,"IX","X",164.0104,2)=""
^DD(164.0104,0,"NM","5TH EDITION N-CODES")=""
^DD(164.0104,0,"UP")="164"
^DD(164.0104,.01,0)="5TH EDITION N-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0104,.01,1,0)="^.1"
^DD(164.0104,.01,1,1,0)="164.0104^B"
^DD(164.0104,.01,1,1,1)="S ^ONCO(164,DA(1),""N5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0104,.01,1,1,2)="K ^ONCO(164,DA(1),""N5"",""B"",$E(X,1,30),DA)"
^DD(164.0104,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0104,.01,"DT")="2971029"
^DD(164.0104,1,0)="CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q"
^DD(164.0104,1,"DT")="2971029"
^DD(164.0104,2,0)="ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N1C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q"
^DD(164.0104,2,1,0)="^.1"
^DD(164.0104,2,1,1,0)="164.0104^X^MUMPS"
^DD(164.0104,2,1,1,1)="S ^ONCO(164,DA(1),""N5"",""X"",X)=DA"
^DD(164.0104,2,1,1,2)="K ^ONCO(164,DA(1),""N5"",""X"",X)"
^DD(164.0104,2,1,1,"DT")="2990323"
^DD(164.0104,2,"DT")="2990323"
^DD(164.0104,"B","5TH EDITION N-CODES",.01)=""
^DD(164.0104,"B","ACOS CODE",2)=""
^DD(164.0104,"B","CODE",1)=""
^DD(164.0104,"GL",0,1,.01)=""
^DD(164.0104,"GL",0,2,1)=""
^DD(164.0104,"GL",0,3,2)=""
^DD(164.0104,"IX",.01)=""
^DD(164.0104,"IX",2)=""
^DD(164.0105,0)="5TH EDITION M-CODES SUB-FIELD^^2^3"
^DD(164.0105,0,"DT")="2971031"
^DD(164.0105,0,"IX","B",164.0105,.01)=""
^DD(164.0105,0,"IX","X",164.0105,2)=""
^DD(164.0105,0,"NM","5TH EDITION M-CODES")=""
^DD(164.0105,0,"UP")="164"
^DD(164.0105,.01,0)="5TH EDITION M-CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0105,.01,1,0)="^.1"
^DD(164.0105,.01,1,1,0)="164.0105^B"
^DD(164.0105,.01,1,1,1)="S ^ONCO(164,DA(1),""M5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0105,.01,1,1,2)="K ^ONCO(164,DA(1),""M5"",""B"",$E(X,1,30),DA)"
^DD(164.0105,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0105,.01,"DT")="2971031"
^DD(164.0105,1,0)="CODE^S^x:Mx;0:M0;1:M1;1a:M1a;1b:M1b;88:NA;^0;2^Q"
^DD(164.0105,1,"DT")="2971031"
^DD(164.0105,2,0)="ACOS CODE^S^X:MX;0:M0;1:M1;1A:M1A;1B:M1B;88:NA;^0;3^Q"
^DD(164.0105,2,1,0)="^.1"
^DD(164.0105,2,1,1,0)="164.0105^X^MUMPS"
^DD(164.0105,2,1,1,1)="S ^ONCO(164,DA(1),""M5"",""X"",X)=DA"
^DD(164.0105,2,1,1,2)="K ^ONCO(164,DA(1),""M5"",""X"",X)"
^DD(164.0105,2,1,1,"DT")="2971031"
^DD(164.0105,2,"DT")="2971031"
^DD(164.0105,"B","5TH EDITION M-CODES",.01)=""
^DD(164.0105,"B","ACOS CODE",2)=""
^DD(164.0105,"B","CODE",1)=""
^DD(164.0105,"GL",0,1,.01)=""
^DD(164.0105,"GL",0,2,1)=""
^DD(164.0105,"GL",0,3,2)=""
^DD(164.0105,"IX",.01)=""
^DD(164.0105,"IX",2)=""
^DD(164.0106,0)="5TH EDITION T-CODE HELP SUB-FIELD^^.01^1"
^DD(164.0106,0,"DT")="2971107"
^DD(164.0106,0,"NM","5TH EDITION T-CODE HELP")=""
^DD(164.0106,0,"UP")="164"
^DD(164.0106,.01,0)="5TH EDITION T-CODE HELP^W^^0;1^Q"
^DD(164.0106,.01,"DT")="2971107"
^DD(164.0106,"B","5TH EDITION T-CODE HELP",.01)=""
^DD(164.0106,"GL",0,1,.01)=""
^DD(164.0108,0)="5TH ED-SURGICAL APPROACH CODES SUB-FIELD^^1^2"
^DD(164.0108,0,"DT")="2971212"
^DD(164.0108,0,"IX","B",164.0108,.01)=""
^DD(164.0108,0,"IX","C",164.0108,1)=""
^DD(164.0108,0,"NM","5TH ED-SURGICAL APPROACH CODES")=""
^DD(164.0108,0,"UP")="164"
^DD(164.0108,.01,0)="5TH ED-SURGICAL APPROACH CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0108,.01,1,0)="^.1"
^DD(164.0108,.01,1,1,0)="164.0108^B"
^DD(164.0108,.01,1,1,1)="S ^ONCO(164,DA(1),""SUA"",""B"",$E(X,1,30),DA)="""""
^DD(164.0108,.01,1,1,2)="K ^ONCO(164,DA(1),""SUA"",""B"",$E(X,1,30),DA)"
^DD(164.0108,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0108,.01,"DT")="2971222"
^DD(164.0108,1,0)="CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0108,1,1,0)="^.1"
^DD(164.0108,1,1,1,0)="164.0108^C"
^DD(164.0108,1,1,1,1)="S ^ONCO(164,DA(1),""SUA"",""C"",$E(X,1,30),DA)="""""
^DD(164.0108,1,1,1,2)="K ^ONCO(164,DA(1),""SUA"",""C"",$E(X,1,30),DA)"
^DD(164.0108,1,1,1,"%D",0)="^^1^1^3020115^"
^DD(164.0108,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-SURGICAL APPROACH CODES look-up by CODE."
^DD(164.0108,1,1,1,"DT")="3020115"
^DD(164.0108,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.0108,1,"DT")="3020115"
^DD(164.0108,"B","5TH ED-SURGICAL APPROACH CODES",.01)=""
^DD(164.0108,"B","CODE",1)=""
^DD(164.0108,"GL",0,1,.01)=""
^DD(164.0108,"GL",0,2,1)=""
^DD(164.0108,"IX",.01)=""
^DD(164.0108,"IX",1)=""
^DD(164.0109,0)="5TH EDITION N-CODE HELP SUB-FIELD^^.01^1"
^DD(164.0109,0,"DT")="2971215"
^DD(164.0109,0,"NM","5TH EDITION N-CODE HELP")=""
^DD(164.0109,0,"UP")="164"
^DD(164.0109,.01,0)="5TH EDITION N-CODE HELP^W^^0;1^Q"
^DD(164.0109,.01,"DT")="2971215"
^DD(164.0109,"B","5TH EDITION N-CODE HELP",.01)=""
^DD(164.0109,"GL",0,1,.01)=""
^DD(164.0111,0)="5TH ED-SURGERY PRIMARY SITE SUB-FIELD^^1^2"
^DD(164.0111,0,"DT")="2971222"
^DD(164.0111,0,"IX","B",164.0111,.01)=""
^DD(164.0111,0,"IX","C",164.0111,1)=""
^DD(164.0111,0,"NM","5TH ED-SURGERY PRIMARY SITE")=""
^DD(164.0111,0,"UP")="164"
^DD(164.0111,.01,0)="5TH ED-SURGERY PRIMARY SITE^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0111,.01,1,0)="^.1^^-1"
^DD(164.0111,.01,1,1,0)="164.0111^B"
^DD(164.0111,.01,1,1,1)="S ^ONCO(164,DA(1),""SPS"",""B"",$E(X,1,30),DA)="""""
^DD(164.0111,.01,1,1,2)="K ^ONCO(164,DA(1),""SPS"",""B"",$E(X,1,30),DA)"
^DD(164.0111,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0111,.01,"DT")="3000726"
^DD(164.0111,1,0)="CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0111,1,1,0)="^.1"
^DD(164.0111,1,1,1,0)="164.0111^C"
^DD(164.0111,1,1,1,1)="S ^ONCO(164,DA(1),""SPS"",""C"",$E(X,1,30),DA)="""""
^DD(164.0111,1,1,1,2)="K ^ONCO(164,DA(1),""SPS"",""C"",$E(X,1,30),DA)"
^DD(164.0111,1,1,1,"%D",0)="^^1^1^3020103^"
^DD(164.0111,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-SURGERY PRIMARY SITE look-up by CODE."
^DD(164.0111,1,1,1,"DT")="3020103"
^DD(164.0111,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(164.0111,1,"DT")="3020103"
^DD(164.0111,"B","5TH ED-SURGERY PRIMARY SITE",.01)=""
^DD(164.0111,"B","CODE",1)=""
^DD(164.0111,"GL",0,1,.01)=""
^DD(164.0111,"GL",0,2,1)=""
^DD(164.0111,"IX",.01)=""
^DD(164.0111,"IX",1)=""
^DD(164.0112,0)="5TH ED-SURGICAL MARGINS SUB-FIELD^^1^2"
^DD(164.0112,0,"DT")="2971222"
^DD(164.0112,0,"IX","B",164.0112,.01)=""
^DD(164.0112,0,"IX","C",164.0112,1)=""
^DD(164.0112,0,"NM","5TH ED-SURGICAL MARGINS")=""
^DD(164.0112,0,"UP")="164"
^DD(164.0112,.01,0)="5TH ED-SURGICAL MARGINS^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0112,.01,1,0)="^.1"
^DD(164.0112,.01,1,1,0)="164.0112^B"
^DD(164.0112,.01,1,1,1)="S ^ONCO(164,DA(1),""SM5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0112,.01,1,1,2)="K ^ONCO(164,DA(1),""SM5"",""B"",$E(X,1,30),DA)"
^DD(164.0112,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0112,.01,"DT")="2971222"
^DD(164.0112,1,0)="CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0112,1,1,0)="^.1"
^DD(164.0112,1,1,1,0)="164.0112^C"
^DD(164.0112,1,1,1,1)="S ^ONCO(164,DA(1),""SM5"",""C"",$E(X,1,30),DA)="""""
^DD(164.0112,1,1,1,2)="K ^ONCO(164,DA(1),""SM5"",""C"",$E(X,1,30),DA)"
^DD(164.0112,1,1,1,"%D",0)="^.101^1^1^3020115^^"
^DD(164.0112,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-SURGICAL MARGINS look-up by CODE."
^DD(164.0112,1,1,1,"DT")="3020115"
^DD(164.0112,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.0112,1,"DT")="3020115"
^DD(164.0112,"B","5TH ED-SURGICAL MARGINS",.01)=""
^DD(164.0112,"B","CODE",1)=""
^DD(164.0112,"GL",0,1,.01)=""
^DD(164.0112,"GL",0,2,1)=""
^DD(164.0112,"IX",.01)=""
^DD(164.0112,"IX",1)=""
^DD(164.0113,0)="5TH ED-SCOPE LYMPH NODE SURG SUB-FIELD^^1^2"
^DD(164.0113,0,"DT")="2971222"
^DD(164.0113,0,"IX","B",164.0113,.01)=""
^DD(164.0113,0,"IX","C",164.0113,1)=""
^DD(164.0113,0,"NM","5TH ED-SCOPE LYMPH NODE SURG")=""
^DD(164.0113,0,"UP")="164"
^DD(164.0113,.01,0)="5TH ED-SCOPE LYMPH NODE SURG^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0113,.01,1,0)="^.1"
^DD(164.0113,.01,1,1,0)="164.0113^B"
^DD(164.0113,.01,1,1,1)="S ^ONCO(164,DA(1),""SC5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0113,.01,1,1,2)="K ^ONCO(164,DA(1),""SC5"",""B"",$E(X,1,30),DA)"
^DD(164.0113,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0113,.01,"DT")="2971222"
^DD(164.0113,1,0)="CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0113,1,1,0)="^.1"
^DD(164.0113,1,1,1,0)="164.0113^C"
^DD(164.0113,1,1,1,1)="S ^ONCO(164,DA(1),""SC5"",""C"",$E(X,1,30),DA)="""""
^DD(164.0113,1,1,1,2)="K ^ONCO(164,DA(1),""SC5"",""C"",$E(X,1,30),DA)"
^DD(164.0113,1,1,1,"%D",0)="^^1^1^3020103^"
^DD(164.0113,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-SCOPE LYMPH NODE SURG look-up by CODE."
^DD(164.0113,1,1,1,"DT")="3020103"
^DD(164.0113,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.0113,1,"DT")="3020103"
^DD(164.0113,"B","5TH ED-SCOPE LYMPH NODE SURG",.01)=""
^DD(164.0113,"B","CODE",1)=""
^DD(164.0113,"GL",0,1,.01)=""
^DD(164.0113,"GL",0,2,1)=""
^DD(164.0113,"IX",.01)=""
^DD(164.0113,"IX",1)=""
^DD(164.0114,0)="5TH ED-NUMBER LYMPH ND REMOVED SUB-FIELD^^1^2"
^DD(164.0114,0,"DT")="2971222"
^DD(164.0114,0,"IX","B",164.0114,.01)=""
^DD(164.0114,0,"NM","5TH ED-NUMBER LYMPH ND REMOVED")=""
^DD(164.0114,0,"UP")="164"
^DD(164.0114,.01,0)="5TH ED-NUMBER LYMPH ND REMOVED^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0114,.01,1,0)="^.1"
^DD(164.0114,.01,1,1,0)="164.0114^B"
^DD(164.0114,.01,1,1,1)="S ^ONCO(164,DA(1),""NL5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0114,.01,1,1,2)="K ^ONCO(164,DA(1),""NL5"",""B"",$E(X,1,30),DA)"
^DD(164.0114,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0114,.01,"DT")="2971222"
^DD(164.0114,1,0)="CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0114,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(164.0114,1,"DT")="2971222"
^DD(164.0114,"B","5TH ED-NUMBER LYMPH ND REMOVED",.01)=""
^DD(164.0114,"B","CODE",1)=""
^DD(164.0114,"GL",0,1,.01)=""
^DD(164.0114,"GL",0,2,1)=""
^DD(164.0114,"IX",.01)=""
^DD(164.0115,0)="5TH ED-SURGERY OTHER REG SITES SUB-FIELD^^1^2"
^DD(164.0115,0,"DT")="2971222"
^DD(164.0115,0,"IX","B",164.0115,.01)=""
^DD(164.0115,0,"IX","C",164.0115,1)=""
^DD(164.0115,0,"NM","5TH ED-SURGERY OTHER REG SITES")=""
^DD(164.0115,0,"UP")="164"
^DD(164.0115,.01,0)="5TH ED-SURGERY OTHER REG SITES^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0115,.01,1,0)="^.1"
^DD(164.0115,.01,1,1,0)="164.0115^B"
^DD(164.0115,.01,1,1,1)="S ^ONCO(164,DA(1),""SO5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0115,.01,1,1,2)="K ^ONCO(164,DA(1),""SO5"",""B"",$E(X,1,30),DA)"
^DD(164.0115,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0115,.01,"DT")="2971222"
^DD(164.0115,1,0)="CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0115,1,1,0)="^.1"
^DD(164.0115,1,1,1,0)="164.0115^C"
^DD(164.0115,1,1,1,1)="S ^ONCO(164,DA(1),""SO5"",""C"",$E(X,1,30),DA)="""""
^DD(164.0115,1,1,1,2)="K ^ONCO(164,DA(1),""SO5"",""C"",$E(X,1,30),DA)"
^DD(164.0115,1,1,1,"%D",0)="^^1^1^3020103^"
^DD(164.0115,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-SURGERY OTHER REG SITES look-up by CODE."
^DD(164.0115,1,1,1,"DT")="3020103"
^DD(164.0115,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.0115,1,"DT")="3020103"
^DD(164.0115,"B","5TH ED-SURGERY OTHER REG SITES",.01)=""
^DD(164.0115,"B","CODE",1)=""
^DD(164.0115,"GL",0,1,.01)=""
^DD(164.0115,"GL",0,2,1)=""
^DD(164.0115,"IX",.01)=""
^DD(164.0115,"IX",1)=""
^DD(164.0116,0)="5TH ED-RECONSTRUCTION SUB-FIELD^^1^2"
^DD(164.0116,0,"DT")="2971222"
^DD(164.0116,0,"IX","B",164.0116,.01)=""
^DD(164.0116,0,"IX","C",164.0116,1)=""
^DD(164.0116,0,"NM","5TH ED-RECONSTRUCTION")=""
^DD(164.0116,0,"UP")="164"
^DD(164.0116,.01,0)="5TH ED-RECONSTRUCTION^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0116,.01,1,0)="^.1"
^DD(164.0116,.01,1,1,0)="164.0116^B"
^DD(164.0116,.01,1,1,1)="S ^ONCO(164,DA(1),""RR5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0116,.01,1,1,2)="K ^ONCO(164,DA(1),""RR5"",""B"",$E(X,1,30),DA)"
^DD(164.0116,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0116,.01,"DT")="2971222"
^DD(164.0116,1,0)="CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0116,1,1,0)="^.1"
^DD(164.0116,1,1,1,0)="164.0116^C"
^DD(164.0116,1,1,1,1)="S ^ONCO(164,DA(1),""RR5"",""C"",$E(X,1,30),DA)="""""
^DD(164.0116,1,1,1,2)="K ^ONCO(164,DA(1),""RR5"",""C"",$E(X,1,30),DA)"
^DD(164.0116,1,1,1,"%D",0)="^^1^1^3020115^"
^DD(164.0116,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-RECONSTRUCTION look-up by CODE."
^DD(164.0116,1,1,1,"DT")="3020115"
^DD(164.0116,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.0116,1,"DT")="3000707"
^DD(164.0116,"B","5TH ED-RECONSTRUCTION",.01)=""
^DD(164.0116,"B","CODE",1)=""
^DD(164.0116,"GL",0,1,.01)=""
^DD(164.0116,"GL",0,2,1)=""
^DD(164.0116,"IX",.01)=""
^DD(164.0116,"IX",1)=""
^DD(164.0117,0)="5TH ED-BIOPSY PROCEDURE CODES SUB-FIELD^^1^2"
^DD(164.0117,0,"DT")="2980209"
^DD(164.0117,0,"IX","B",164.0117,.01)=""
^DD(164.0117,0,"IX","C",164.0117,1)=""
^DD(164.0117,0,"NM","5TH ED-BIOPSY PROCEDURE CODES")=""
^DD(164.0117,0,"UP")="164"
^DD(164.0117,.01,0)="5TH ED-BIOPSY PROCEDURE CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0117,.01,1,0)="^.1"
^DD(164.0117,.01,1,1,0)="164.0117^B"
^DD(164.0117,.01,1,1,1)="S ^ONCO(164,DA(1),""BP5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0117,.01,1,1,2)="K ^ONCO(164,DA(1),""BP5"",""B"",$E(X,1,30),DA)"
^DD(164.0117,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0117,.01,"DT")="2980209"
^DD(164.0117,1,0)="CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0117,1,1,0)="^.1"
^DD(164.0117,1,1,1,0)="164.0117^C"
^DD(164.0117,1,1,1,1)="S ^ONCO(164,DA(1),""BP5"",""C"",$E(X,1,30),DA)="""""
^DD(164.0117,1,1,1,2)="K ^ONCO(164,DA(1),""BP5"",""C"",$E(X,1,30),DA)"
^DD(164.0117,1,1,1,"%D",0)="^^1^1^3020104^"
^DD(164.0117,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-BIOPSY PROCEDURE CODES look-up by CODE."
^DD(164.0117,1,1,1,"DT")="3020104"
^DD(164.0117,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.0117,1,"DT")="3020104"
^DD(164.0117,"B","5TH ED-BIOPSY PROCEDURE CODES",.01)=""
^DD(164.0117,"B","CODE",1)=""
^DD(164.0117,"GL",0,1,.01)=""
^DD(164.0117,"GL",0,2,1)=""
^DD(164.0117,"IX",.01)=""
^DD(164.0117,"IX",1)=""
^DD(164.0118,0)="5TH ED-GUIDANCE CODES SUB-FIELD^^1^2"
^DD(164.0118,0,"DT")="2980209"
^DD(164.0118,0,"IX","B",164.0118,.01)=""
^DD(164.0118,0,"IX","C",164.0118,1)=""
^DD(164.0118,0,"NM","5TH ED-GUIDANCE CODES")=""
^DD(164.0118,0,"UP")="164"
^DD(164.0118,.01,0)="5TH ED-GUIDANCE CODES^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(164.0118,.01,1,0)="^.1"
^DD(164.0118,.01,1,1,0)="164.0118^B"
^DD(164.0118,.01,1,1,1)="S ^ONCO(164,DA(1),""GU5"",""B"",$E(X,1,30),DA)="""""
^DD(164.0118,.01,1,1,2)="K ^ONCO(164,DA(1),""GU5"",""B"",$E(X,1,30),DA)"
^DD(164.0118,.01,3)="Answer must be 1-60 characters in length."
^DD(164.0118,.01,"DT")="2980209"
^DD(164.0118,1,0)="CODE^NJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.0118,1,1,0)="^.1"
^DD(164.0118,1,1,1,0)="164.0118^C"
^DD(164.0118,1,1,1,1)="S ^ONCO(164,DA(1),""GU5"",""C"",$E(X,1,30),DA)="""""
^DD(164.0118,1,1,1,2)="K ^ONCO(164,DA(1),""GU5"",""C"",$E(X,1,30),DA)"
^DD(164.0118,1,1,1,"%D",0)="^^1^1^3020104^"
^DD(164.0118,1,1,1,"%D",1,0)="This cross-reference will allow 5TH ED-GUIDANCE CODES look-up by CODE."
^DD(164.0118,1,1,1,"DT")="3020104"
^DD(164.0118,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.0118,1,"DT")="3020104"
^DD(164.0118,"B","5TH ED-GUIDANCE CODES",.01)=""
^DD(164.0118,"B","CODE",1)=""
^DD(164.0118,"GL",0,1,.01)=""
^DD(164.0118,"GL",0,2,1)=""
^DD(164.0118,"IX",.01)=""
^DD(164.0118,"IX",1)=""
^DD(164.0119,0)="6TH EDITION (T) CODES SUB-FIELD^^1^2"
^DD(164.0119,0,"DT")="3020702"
^DD(164.0119,0,"IX","B",164.0119,.01)=""
^DD(164.0119,0,"IX","X",164.0119,1)=""
^DD(164.0119,0,"NM","6TH EDITION (T) CODES")=""
^DD(164.0119,0,"UP")="164"
^DD(164.0119,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(164.0119,.01,1,0)="^.1"
^DD(164.0119,.01,1,1,0)="164.0119^B"
^DD(164.0119,.01,1,1,1)="S ^ONCO(164,DA(1),""T6"",""B"",$E(X,1,30),DA)="""""
^DD(164.0119,.01,1,1,2)="K ^ONCO(164,DA(1),""T6"",""B"",$E(X,1,30),DA)"
^DD(164.0119,.01,3)="Answer must be 1-50 characters in length."
^DD(164.0119,.01,21,0)="^.001^1^1^3020702^^^^"
^DD(164.0119,.01,21,1,0)="This field contains the Sixth Edition Primary Tumor (T) code descriptions."
^DD(164.0119,.01,"DT")="3020702"
^DD(164.0119,1,0)="CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;1mic:T1mic;1b1:T1b1;1b2:T1b2;^0;2^Q"
^DD(164.0119,1,1,0)="^.1"
^DD(164.0119,1,1,1,0)="164.0119^X^MUMPS"
^DD(164.0119,1,1,1,1)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") S ^ONCO(164,DA(1),""T6"",""X"",X)=DA"
^DD(164.0119,1,1,1,2)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") K ^ONCO(164,DA(1),""T6"",""X"",X)"
^DD(164.0119,1,1,1,"%D",0)="^^2^2^3020619^"
^DD(164.0119,1,1,1,"%D",1,0)="This cross-reference is an uppercase cross-reference of the 6TH EDITION"
^DD(164.0119,1,1,1,"%D",2,0)="T-CODE values."
^DD(164.0119,1,1,1,"DT")="3020619"
^DD(164.0119,1,21,0)="^.001^1^1^3020619^^^"
^DD(164.0119,1,21,1,0)="This field contains the Sixth Edition Primary Tumor (T) codes."
^DD(164.0119,1,"DT")="3020619"
^DD(164.0119,"B","CODE",1)=""
^DD(164.0119,"B","DESCRIPTION",.01)=""
^DD(164.0119,"GL",0,1,.01)=""
^DD(164.0119,"GL",0,2,1)=""
^DD(164.0119,"IX",.01)=""
^DD(164.0119,"IX",1)=""
^DD(164.012,0)="6TH EDITION (T) CODE HELP SUB-FIELD^^.01^1"
^DD(164.012,0,"DT")="3020619"
^DD(164.012,0,"NM","6TH EDITION (T) CODE HELP")=""
^DD(164.012,0,"UP")="164"
^DD(164.012,.01,0)="HELP TEXT^W^^0;1^Q"
^DD(164.012,.01,21,0)="^.001^2^2^3020619^^"
^DD(164.012,.01,21,1,0)="This field contains the full text of the Sixth Edition Primary Tumor"
^DD(164.012,.01,21,2,0)="(T) code definitions."
^DD(164.012,.01,"DT")="3020619"
^DD(164.012,"B","HELP TEXT",.01)=""
^DD(164.012,"GL",0,1,.01)=""
^DD(164.0121,0)="6TH EDITION (N) CODES SUB-FIELD^^1^2"
^DD(164.0121,0,"DT")="3020716"
^DD(164.0121,0,"IX","B",164.0121,.01)=""
^DD(164.0121,0,"IX","X",164.0121,1)=""
^DD(164.0121,0,"NM","6TH EDITION (N) CODES")=""
^DD(164.0121,0,"UP")="164"
^DD(164.0121,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(164.0121,.01,1,0)="^.1"
^DD(164.0121,.01,1,1,0)="164.0121^B"
^DD(164.0121,.01,1,1,1)="S ^ONCO(164,DA(1),""N6"",""B"",$E(X,1,30),DA)="""""
^DD(164.0121,.01,1,1,2)="K ^ONCO(164,DA(1),""N6"",""B"",$E(X,1,30),DA)"
^DD(164.0121,.01,3)="Answer must be 1-50 characters in length."
^DD(164.0121,.01,21,0)="^.001^2^2^3020716^^^^"
^DD(164.0121,.01,21,1,0)="This field contains the Sixth Edition Regional Lymph Nodes (N) code"
^DD(164.0121,.01,21,2,0)="descriptions."
^DD(164.0121,.01,"DT")="3020716"
^DD(164.0121,1,0)="CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q"
^DD(164.0121,1,1,0)="^.1^^-1"
^DD(164.0121,1,1,1,0)="164.0121^X^MUMPS"
^DD(164.0121,1,1,1,1)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") S ^ONCO(164,DA(1),""N6"",""X"",X)=DA"
^DD(164.0121,1,1,1,2)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") K ^ONCO(164,DA(1),""N6"",""X"",X)"
^DD(164.0121,1,1,1,"DT")="3020618"
^DD(164.0121,1,21,0)="^.001^1^1^3020619^^^"
^DD(164.0121,1,21,1,0)="This field contains the Sixth Edition Regional Lymph Nodes (N) codes."
^DD(164.0121,1,"DT")="3020619"
^DD(164.0121,"B","CODE",1)=""
^DD(164.0121,"B","DESCRIPTION",.01)=""
^DD(164.0121,"GL",0,1,.01)=""
^DD(164.0121,"GL",0,2,1)=""
^DD(164.0121,"IX",.01)=""
^DD(164.0121,"IX",1)=""
^DD(164.0122,0)="6TH EDITION (N) CODE HELP SUB-FIELD^^.01^1"
^DD(164.0122,0,"DT")="3020619"
^DD(164.0122,0,"NM","6TH EDITION (N) CODE HELP")=""
^DD(164.0122,0,"UP")="164"
^DD(164.0122,.01,0)="HELP TEXT^W^^0;1^Q"
^DD(164.0122,.01,21,0)="^.001^2^2^3020619^^^"
^DD(164.0122,.01,21,1,0)="This field contains the full text of the Sixth Edition Regional Lymph"
^DD(164.0122,.01,21,2,0)="Nodes (N) code definitions."
^DD(164.0122,.01,"DT")="3020619"
^DD(164.0122,"B","HELP TEXT",.01)=""
^DD(164.0122,"GL",0,1,.01)=""
^DD(164.0123,0)="6TH EDITION (M) CODES SUB-FIELD^^1^2"
^DD(164.0123,0,"DT")="3020711"
^DD(164.0123,0,"IX","B",164.0123,.01)=""
^DD(164.0123,0,"IX","X",164.0123,1)=""
^DD(164.0123,0,"NM","6TH EDITION (M) CODES")=""
^DD(164.0123,0,"UP")="164"
^DD(164.0123,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(164.0123,.01,1,0)="^.1"
^DD(164.0123,.01,1,1,0)="164.0123^B"
^DD(164.0123,.01,1,1,1)="S ^ONCO(164,DA(1),""M6"",""B"",$E(X,1,30),DA)="""""
^DD(164.0123,.01,1,1,2)="K ^ONCO(164,DA(1),""M6"",""B"",$E(X,1,30),DA)"
^DD(164.0123,.01,3)="Answer must be 1-50 characters in length."
^DD(164.0123,.01,21,0)="^^2^2^3020711^"
^DD(164.0123,.01,21,1,0)="This field contains the Sixth Edition Distant Metastasis (M) code"
^DD(164.0123,.01,21,2,0)="descriptions."
^DD(164.0123,.01,"DT")="3020711"
^DD(164.0123,1,0)="CODE^S^x:Mx;0:M0;1:M1;1a:M1a;1b:M1b;88:NA;^0;2^Q"
^DD(164.0123,1,1,0)="^.1"
^DD(164.0123,1,1,1,0)="164.0123^X^MUMPS"
^DD(164.0123,1,1,1,1)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") S ^ONCO(164,DA(1),""M6"",""X"",X)=DA"
^DD(164.0123,1,1,1,2)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") K ^ONCO(164,DA(1),""M6"",""X"",X)"
^DD(164.0123,1,1,1,"%D",0)="^^2^2^3020711^"
^DD(164.0123,1,1,1,"%D",1,0)="This cross-reference is an uppercase cross-reference of the 6TH EDITION"
^DD(164.0123,1,1,1,"%D",2,0)="M-CODE values."
^DD(164.0123,1,1,1,"DT")="3020711"
^DD(164.0123,1,21,0)="^^1^1^3020711^"
^DD(164.0123,1,21,1,0)="This field contains the Sixth Edition Distant Metastasis (M) codes."
^DD(164.0123,1,"DT")="3020711"
^DD(164.0123,"B","CODE",1)=""
^DD(164.0123,"B","DESCRIPTION",.01)=""
^DD(164.0123,"GL",0,1,.01)=""
^DD(164.0123,"GL",0,2,1)=""
^DD(164.0123,"IX",.01)=""
^DD(164.0123,"IX",1)=""
^DD(164.0124,0)="6TH EDITION (M) CODE HELP SUB-FIELD^^.01^1"
^DD(164.0124,0,"DT")="3020716"
^DD(164.0124,0,"NM","6TH EDITION (M) CODE HELP")=""
^DD(164.0124,0,"UP")="164"
^DD(164.0124,.01,0)="6TH EDITION (M) CODE HELP^W^^0;1^Q"
^DD(164.0124,.01,21,0)="^.001^2^2^3020716^^"
^DD(164.0124,.01,21,1,0)="This field contains the full text of the Sixth Edition Distant"
^DD(164.0124,.01,21,2,0)="Metastasis (M) code definitions."
^DD(164.0124,.01,"DT")="3020716"
^DD(164.0124,"B","6TH EDITION (M) CODE HELP",.01)=""
^DD(164.0124,"GL",0,1,.01)=""
^DD(164.02,0)="5TH EDITION M-CODE HELP SUB-FIELD^^.01^1"
^DD(164.02,0,"DT")="2971217"
^DD(164.02,0,"NM","5TH EDITION M-CODE HELP")=""
^DD(164.02,0,"UP")="164"
^DD(164.02,.01,0)="5TH EDTION M CODE HELP^W^^0;1^Q"
^DD(164.02,.01,3)="Answer must be 3-70 characters in length."
^DD(164.02,.01,"DT")="2971217"
^DD(164.02,"B","5TH EDTION M CODE HELP",.01)=""
^DD(164.02,"GL",0,1,.01)=""
^DD(164.04,0)="SNOMED ENCODING SUB-FIELD^NL^.01^1"
^DD(164.04,0,"NM","SNOMED ENCODING")=""
^DD(164.04,0,"UP")="164"
^DD(164.04,.01,0)="SNOMED ENCODING^MP61'^LAB(61,^0;1^Q"
^DD(164.04,.01,21,0)="^^1^1^2930930^"
^DD(164.04,.01,21,1,0)="This is a SNOMED histo-morphology code corresponding to the topography code."
^DD(164.04,"B","SNOMED ENCODING",.01)=""
^DD(164.04,"GL",0,1,.01)=""
^DD(164.05,0)="SNOMED DECODING SUB-FIELD^NL^.01^1"
^DD(164.05,0,"NM","SNOMED DECODING")=""
^DD(164.05,0,"UP")="164"
^DD(164.05,.01,0)="SNOMED DECODING^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(164.05,.01,1,0)="^.1"
^DD(164.05,.01,1,1,0)="164^E"
^DD(164.05,.01,1,1,1)="S ^ONCO(164,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(164.05,.01,1,1,2)="K ^ONCO(164,""E"",$E(X,1,30),DA(1),DA)"
^DD(164.05,.01,1,1,"%D",0)="^^1^1^2930909"
^DD(164.05,.01,1,1,"%D",1,0)="Indexes file by SNOMED DECODING."
^DD(164.05,.01,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(164.05,.01,21,0)="^^1^1^2930930^"
^DD(164.05,.01,21,1,0)="This records the text generated by the SNOMED codes."
^DD(164.05,"B","SNOMED DECODING",.01)=""
^DD(164.05,"GL",0,1,.01)=""
^DD(164.05,"IX",.01)=""
^DD(164.06,0)="T-CLASS ENCODING SUB-FIELD^^.03^4"
^DD(164.06,0,"DT")="2971104"
^DD(164.06,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(164.06,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(164.06,0,"IX","B",164.06,.01)=""
^DD(164.06,0,"IX","X",164.06,.03)=""
^DD(164.06,0,"NM","T-CLASS ENCODING")=""
^DD(164.06,0,"UP")="164"
^DD(164.06,.001,0)="NUMBER^NJ5,2^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(164.06,.001,3)="Type a Number between 1 and 99, 2 Decimal Digits"
^DD(164.06,.001,21,0)="^^1^1^2930930^"
^DD(164.06,.001,21,1,0)="This is the numeric sequence of the T code, for display."
^DD(164.06,.001,"DT")="2920623"
^DD(164.06,.01,0)="T-CLASS ENCODING^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<2) X"
^DD(164.06,.01,1,0)="^.1"
^DD(164.06,.01,1,1,0)="164.06^B"
^DD(164.06,.01,1,1,1)="S ^ONCO(164,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(164.06,.01,1,1,2)="K ^ONCO(164,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(164.06,.01,1,1,"DT")="2911212"
^DD(164.06,.01,3)="Answer must be 2-45 characters in length."
^DD(164.06,.01,21,0)="^^1^1^2971104^^^^"
^DD(164.06,.01,21,1,0)="This is the description of the tumor."
^DD(164.06,.01,"DT")="2971104"
^DD(164.06,.02,0)="CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;^0;2^Q"
^DD(164.06,.02,21,0)="^^1^1^2971023^^^^"
^DD(164.06,.02,21,1,0)="This is the code as recorded in the AJCC Manual on Staging."
^DD(164.06,.02,"DT")="2971023"
^DD(164.06,.03,0)="ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1A1:T1A1;1A2:T1A2;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3BI:T3BI;3BII:T3BII;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;4D:T4D;88:NA;^0;3^Q"
^DD(164.06,.03,1,0)="^.1"
^DD(164.06,.03,1,1,0)="164.065^X^MUMPS"
^DD(164.06,.03,1,1,1)="S ^ONCO(164,DA(1),""T"",""X"",X)=DA"
^DD(164.06,.03,1,1,2)="K ^ONCO(164,DA(1),""T"",""X"",X)"
^DD(164.06,.03,1,1,"%D",0)="^^2^2^2920215^"
^DD(164.06,.03,1,1,"%D",1,0)="For lookup on output transform"
^DD(164.06,.03,1,1,"%D",2,0)="\"
^DD(164.06,.03,1,1,"DT")="2911210"
^DD(164.06,.03,21,0)="^^1^1^2971023^^^^"
^DD(164.06,.03,21,1,0)="This is the T code as transmitted to ACOS."
^DD(164.06,.03,"DT")="2971023"
^DD(164.06,"B","ACOS CODE",.03)=""
^DD(164.06,"B","CODE",.02)=""
^DD(164.06,"B","NUMBER",.001)=""
^DD(164.06,"B","T-CLASS ENCODING",.01)=""
^DD(164.06,"GL",0,1,.01)=""
^DD(164.06,"GL",0,2,.02)=""
^DD(164.06,"GL",0,3,.03)=""
^DD(164.06,"IX",.01)=""
^DD(164.06,"IX",.03)=""
^DD(164.065,0)="N-CLASS ENCODING SUB-FIELD^^.03^4"
^DD(164.065,0,"DT")="2971104"
^DD(164.065,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(164.065,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(164.065,0,"IX","B",164.065,.01)=""
^DD(164.065,0,"IX","X",164.0101,.03)=""
^DD(164.065,0,"IX","X",164.06,.03)=""
^DD(164.065,0,"IX","X",164.065,.03)=""
^DD(164.065,0,"NM","N-CLASS ENCODING")=""
^DD(164.065,0,"UP")="164"
^DD(164.065,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.065,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(164.065,.001,21,0)="^^1^1^2930930^"
^DD(164.065,.001,21,1,0)="This is the numeric sequence of the N code, for display."
^DD(164.065,.001,"DT")="2920130"
^DD(164.065,.01,0)="N-CLASS ENCODING^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<2) X"
^DD(164.065,.01,1,0)="^.1"
^DD(164.065,.01,1,1,0)="164.065^B"
^DD(164.065,.01,1,1,1)="S ^ONCO(164,DA(1),""N"",""B"",$E(X,1,30),DA)="""""
^DD(164.065,.01,1,1,2)="K ^ONCO(164,DA(1),""N"",""B"",$E(X,1,30),DA)"
^DD(164.065,.01,1,1,"DT")="2911212"
^DD(164.065,.01,3)="Answer must be 2-75 characters in length."
^DD(164.065,.01,21,0)="^^1^1^2971104^^^"
^DD(164.065,.01,21,1,0)="This is the description of regional lymph node involvement."
^DD(164.065,.01,"DT")="2971104"
^DD(164.065,.02,0)="CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q"
^DD(164.065,.02,21,0)="^^1^1^2971103^^^^"
^DD(164.065,.02,21,1,0)="This is the code from the AJCC Manual on Staging."
^DD(164.065,.02,"DT")="2971103"
^DD(164.065,.03,0)="ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N2C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q"
^DD(164.065,.03,1,0)="^.1"
^DD(164.065,.03,1,1,0)="164.065^X^MUMPS"
^DD(164.065,.03,1,1,1)="S ^ONCO(164,DA(1),""N"",""X"",X)=DA"
^DD(164.065,.03,1,1,2)="K ^ONCO(164,DA(1),""N"",""X"",X)"
^DD(164.065,.03,1,1,"%D",0)="^^1^1^2930910^"
^DD(164.065,.03,1,1,"%D",1,0)="Indexes the sub-file by ACOS CODE."
^DD(164.065,.03,1,1,"DT")="2911210"
^DD(164.065,.03,21,0)="^^1^1^2971103^^^^"
^DD(164.065,.03,21,1,0)="This is the N code as transmitted to ACoS."
^DD(164.065,.03,"DT")="2971103"
^DD(164.065,"B","ACOS CODE",.03)=""
^DD(164.065,"B","CODE",.02)=""
^DD(164.065,"B","N-CLASS ENCODING",.01)=""
^DD(164.065,"B","NUMBER",.001)=""
^DD(164.065,"GL",0,1,.01)=""
^DD(164.065,"GL",0,2,.02)=""
^DD(164.065,"GL",0,3,.03)=""
^DD(164.065,"IX",.01)=""
^DD(164.065,"IX",.03)=""
^DD(164.066,0)="STAGE GROUP SUB-FIELD^^.02^2"
^DD(164.066,0,"DT")="2911211"
^DD(164.066,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(164.066,0,"IX","B",164.066,.01)=""
^DD(164.066,0,"NM","STAGE GROUP")=""
^DD(164.066,0,"UP")="164"
^DD(164.066,.01,0)="TNM SEQ^MF^^0;1^K:$L(X)>12!($L(X)<1) X"
^DD(164.066,.01,1,0)="^.1"
^DD(164.066,.01,1,1,0)="164.066^B"
^DD(164.066,.01,1,1,1)="S ^ONCO(164,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(164.066,.01,1,1,2)="K ^ONCO(164,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(164.066,.01,3)="Answer must be 1-12 characters in length."
^DD(164.066,.01,21,0)="^^1^1^2930930^"
^DD(164.066,.01,21,1,0)="This is the sequence number, for display."
^DD(164.066,.01,"DT")="2911211"
^DD(164.066,.02,0)="STAGE GP^RF^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(164.066,.02,3)="Answer must be 1-3 characters in length."
^DD(164.066,.02,21,0)="^^1^1^2930930^"
^DD(164.066,.02,21,1,0)="This is the stage group."
^DD(164.066,.02,"DT")="2911211"
^DD(164.066,"B","STAGE GP",.02)=""
^DD(164.066,"B","TNM SEQ",.01)=""
^DD(164.066,"GL",0,1,.01)=""
^DD(164.066,"GL",0,2,.02)=""
^DD(164.066,"IX",.01)=""
^DD(164.066,"RQ",.02)=""
^DD(164.07,0)="ICDO-1 ENCODING SUB-FIELD^^.01^1"
^DD(164.07,0,"DT")="2911127"
^DD(164.07,0,"IX","B",164.07,.01)=""
^DD(164.07,0,"NM","ICDO-1 ENCODING")=""
^DD(164.07,0,"UP")="164"
^DD(164.07,.01,0)="ICDO-1 ENCODING^MP169'^ONCO(169,^0;1^Q"
^DD(164.07,.01,1,0)="^.1"
^DD(164.07,.01,1,1,0)="164.07^B"
^DD(164.07,.01,1,1,1)="S ^ONCO(164,DA(1),""X"",""B"",$E(X,1,30),DA)="""""
^DD(164.07,.01,1,1,2)="K ^ONCO(164,DA(1),""X"",""B"",$E(X,1,30),DA)"
^DD(164.07,.01,21,0)="^^1^1^2930930^"
^DD(164.07,.01,21,1,0)="This is a corresponding ICDO-1 code."
^DD(164.07,.01,"DT")="2930930"
^DD(164.07,"B","ICDO-1 ENCODING",.01)=""
^DD(164.07,"GL",0,1,.01)=""
^DD(164.07,"IX",.01)=""
^DD(164.08,0)="FIELD^^100^22"
^DD(164.08,0,"DDA")="N"
^DD(164.08,0,"DT")="2960304"
^DD(164.08,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(164.08,0,"IX","B",164.08,.01)=""
^DD(164.08,0,"IX","C",164.08,.02)=""
^DD(164.08,0,"IX","D",164.08,100)=""
^DD(164.08,0,"IX","E",164.08,4)=""
^DD(164.08,0,"IX","F",164.08,5)=""
^DD(164.08,0,"NM","ICDO-SITES")=""
^DD(164.08,0,"PT",164.1,3)=""
^DD(164.08,0,"PT",165.5,.022)=""
^DD(164.08,0,"PT",169.3,3)=""
^DD(164.08,0,"VER")="2.0"
^DD(164.08,0,"VR")="2.11"
^DD(164.08,0,"VRPK")="ONC"
^DD(164.08,.01,0)="NAME^RF^^0;1^K:$L(X)>45!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(164.08,.01,1,0)="^.1"
^DD(164.08,.01,1,1,0)="164.08^B"
^DD(164.08,.01,1,1,1)="S ^ONCO(164.08,""B"",$E(X,1,30),DA)="""""
^DD(164.08,.01,1,1,2)="K ^ONCO(164.08,""B"",$E(X,1,30),DA)"
^DD(164.08,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(164.08,.01,21,0)="^^1^1^2920528^"
^DD(164.08,.01,21,1,0)="FREE TEXT LIST FOR ICDO SITES."
^DD(164.08,.02,0)="ICDO-2 SITE^RF^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(164.08,.02,1,0)="^.1"
^DD(164.08,.02,1,1,0)="164.08^C"
^DD(164.08,.02,1,1,1)="S ^ONCO(164.08,""C"",$E(X,1,30),DA)="""""
^DD(164.08,.02,1,1,2)="K ^ONCO(164.08,""C"",$E(X,1,30),DA)"
^DD(164.08,.02,1,1,"%D",0)="^^1^1^2930909"
^DD(164.08,.02,1,1,"%D",1,0)="Indexes file by ICDO-2 SITE."
^DD(164.08,.02,3)="Answer must be 3 characters in length."
^DD(164.08,.02,21,0)="^^1^1^2920528^"
^DD(164.08,.02,21,1,0)="INTERNATIONAL CLASSIFICATION OF DISEASE FOR ONCOLOGY, 2ND REVISION, 1990."
^DD(164.08,.02,"DT")="2920121"
^DD(164.08,4,0)="*SYSTEM^S^00-14:HEAD & NECK;15-26:DIGESTIVE;30-39:RESPIRATORY;40-49:MUSCULOSKELETAL;50-:BREAST;51-58:GYNECOLOGIC;60-68:GENITOURINARY;69-:OPTHALMIC;70-72:NERVOUS;73-75:ENDOCRINE;76-:OTHER ILL/DEFINED;77-:LYMPH;80-:UNKNOWN;^0;5^Q"
^DD(164.08,4,1,0)="^.1"
^DD(164.08,4,1,1,0)="164.08^E"
^DD(164.08,4,1,1,1)="S ^ONCO(164.08,""E"",$E(X,1,30),DA)="""""
^DD(164.08,4,1,1,2)="K ^ONCO(164.08,""E"",$E(X,1,30),DA)"
^DD(164.08,4,1,1,"%D",0)="^^1^1^2930909"
^DD(164.08,4,1,1,"%D",1,0)="Indexes file by *SYSTEM."
^DD(164.08,4,1,1,"DT")="2920808"
^DD(164.08,4,21,0)="^^2^2^2930618^"
^DD(164.08,4,21,1,0)="This is the general anatomical system into which the topographical site"
^DD(164.08,4,21,2,0)="falls."
^DD(164.08,4,23,0)="^^4^4^2930618^"
^DD(164.08,4,23,1,0)="This field formerly was used to facilitate the production of the ONCOS"
^DD(164.08,4,23,2,0)="ANNUAL-REGISTRY SUMMARY Report.  It has been superseded by the REPORTING"
^DD(164.08,4,23,3,0)="GROUP Field (#5).  It will be eliminated from releases issued on or after"
^DD(164.08,4,23,4,0)="December 18, 1994."
^DD(164.08,4,164.08,4,0)="^^00-14:HEAD & NEXK;15-26:DIGESTIVE;30-39:RESPIRATORY;40-49:MUSCULOSKELETAL;50:BREAST;51-58:GYNECOLOGIC;60-68:GENITOURINARY;69:OPTHALMIC;70-72:NERVOUS;73-75:ENDOCRINE;76:OTHER ILL/DEFINED;77:LYMPH;80:UNKNOWN"
^DD(164.08,4,"DT")="2930618"
^DD(164.08,5,0)="REPORTING GROUP^P164.14'^ONCO(164.14,^0;4^Q"
^DD(164.08,5,1,0)="^.1"
^DD(164.08,5,1,1,0)="164.08^F"
^DD(164.08,5,1,1,1)="S ^ONCO(164.08,""F"",$E(X,1,30),DA)="""""
^DD(164.08,5,1,1,2)="K ^ONCO(164.08,""F"",$E(X,1,30),DA)"
^DD(164.08,5,1,1,"%D",0)="^^2^2^2930622^"
^DD(164.08,5,1,1,"%D",1,0)="This cross-references facilitates a backward pointer from the AJCC SITE "
^DD(164.08,5,1,1,"%D",2,0)="GROUPS FOR REPORTING File (#164.14)."
^DD(164.08,5,1,1,"DT")="2930622"
^DD(164.08,5,21,0)="^^1^1^2930820^"
^DD(164.08,5,21,1,0)="This is the reporting group under which the site falls."
^DD(164.08,5,"DT")="2930622"
^DD(164.08,10,0)="TOT#^NJ5,0^^CC;1^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,10,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,10,21,0)="^^2^2^2930820^"
^DD(164.08,10,21,1,0)="This field accumulates the total number of cases for the ONCOS ANNUAL-"
^DD(164.08,10,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,10,"DT")="2920808"
^DD(164.08,11,0)="ANAL^NJ5,0^^CC;2^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.08,11,3)="Type a Number between 1 and 10000, 0 Decimal Digits"
^DD(164.08,11,21,0)="^^2^2^2930820^"
^DD(164.08,11,21,1,0)="This field accumulates the number of analytic cases for the ONCOS ANNUAL-"
^DD(164.08,11,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,11,"DT")="2920808"
^DD(164.08,12,0)="NON-ANALYTIC^NJ5,0^^CC;3^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.08,12,3)="Type a Number between 1 and 10000, 0 Decimal Digits"
^DD(164.08,12,21,0)="^^2^2^2930820^"
^DD(164.08,12,21,1,0)="This field accumulates the number of non-analytic cases for the ONCOS"
^DD(164.08,12,21,2,0)="ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,12,"DT")="2920808"
^DD(164.08,13,0)="WHITE-MALE^NJ6,0^^RS;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,13,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(164.08,13,21,0)="^^2^2^2930820^"
^DD(164.08,13,21,1,0)="This field accumulates the number of white male patients for the ONCOS"
^DD(164.08,13,21,2,0)="ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,13,"DT")="2920808"
^DD(164.08,14,0)="WHITE-FEMALE^NJ5,0^^RS;2^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,14,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,14,21,0)="^^2^2^2930820^"
^DD(164.08,14,21,1,0)="This field accumulates the number of white female patients for the ONCOS"
^DD(164.08,14,21,2,0)="ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,14,"DT")="2920808"
^DD(164.08,15,0)="BLACK-MALE^NJ5,0^^RS;3^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,15,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,15,21,0)="^^2^2^2930820^"
^DD(164.08,15,21,1,0)="This field accumulates the number of black male patients for the ONCOS"
^DD(164.08,15,21,2,0)="ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,15,"DT")="2920808"
^DD(164.08,16,0)="BLACK-FEMALE^NJ5,0^^RS;4^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,16,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,16,21,0)="^^2^2^2930820^"
^DD(164.08,16,21,1,0)="This field accumulates the number of black female patients for the ONCOS"
^DD(164.08,16,21,2,0)="ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,16,"DT")="2920808"
^DD(164.08,17,0)="OTHER-MALE^NJ5,0^^RS;5^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,17,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,17,21,0)="^^2^2^2930820^"
^DD(164.08,17,21,1,0)="This field accumulates the number of other (non-white, non-black) male"
^DD(164.08,17,21,2,0)="patients for the ONCOS ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,17,"DT")="2920808"
^DD(164.08,18,0)="OTHER-FEMALE^NJ5,0^^RS;6^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,18,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,18,21,0)="^^2^2^2930820^"
^DD(164.08,18,21,1,0)="This field accumulates the number of other (non-white, non-black) female"
^DD(164.08,18,21,2,0)="patients for the ONCOS ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,18,"DT")="2920808"
^DD(164.08,19,0)="STAGE 0^NJ5,0^^SG;1^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,19,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,19,21,0)="^^2^2^2930820^"
^DD(164.08,19,21,1,0)="This field accumulates the number of Stage 0 cases for the ONCOS ANNUAL-"
^DD(164.08,19,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,19,"DT")="2920808"
^DD(164.08,20,0)="STAGE I^NJ5,0^^SG;2^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,20,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,20,21,0)="^^2^2^2930820^"
^DD(164.08,20,21,1,0)="This field accumulates the number of Stage I cases for the ONCOS ANNUAL-"
^DD(164.08,20,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,20,"DT")="2920808"
^DD(164.08,21,0)="STAGE II^NJ5,0^^SG;3^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,21,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,21,21,0)="1^^2^2^2930820^"
^DD(164.08,21,21,1,0)="This field accumulates the number of Stage II cases for the ONCOS ANNUAL-"
^DD(164.08,21,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,21,"DT")="2920808"
^DD(164.08,22,0)="STAGE III^NJ5,0^^SG;4^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,22,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,22,21,0)="^^2^2^2930820^"
^DD(164.08,22,21,1,0)="This field accumulates the number of Stage III cases for the ONCOS ANNUAL-"
^DD(164.08,22,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,22,"DT")="2920808"
^DD(164.08,23,0)="STAGE IV^NJ5,0^^SG;5^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,23,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,23,21,0)="^^2^2^2930820^"
^DD(164.08,23,21,1,0)="This field accumulates the number of Stage IV cases for the ONCOS ANNUAL-"
^DD(164.08,23,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,23,"DT")="2920808"
^DD(164.08,24,0)="UNSTAGED^NJ5,0^^SG;6^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,24,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,24,21,0)="^^2^2^2960304^^"
^DD(164.08,24,21,1,0)="This field accumulates the number of unstaged cases for the ONCOS ANNUAL-"
^DD(164.08,24,21,2,0)="REGISTRY SUMMARY Report."
^DD(164.08,24,"DT")="2920808"
^DD(164.08,25,0)="YEAR^NJ2,0^^YR;1^K:+X'=X!(X>99)!(X<45)!(X?.E1"".""1N.N) X"
^DD(164.08,25,3)="Type a Number between 45 and 99, 0 Decimal Digits"
^DD(164.08,25,21,0)="^^1^1^2930820^"
^DD(164.08,25,21,1,0)="This field contains the year for the ONCOS ANNUAL-REGISTRY SUMMARY Report."
^DD(164.08,25,"DT")="2920808"
^DD(164.08,26,0)="N/A^NJ5,0^^SG;7^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.08,26,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(164.08,26,21,0)="^^2^2^2960329^^"
^DD(164.08,26,21,1,0)="This field accumulates the number of cases for which staging is not"
^DD(164.08,26,21,2,0)="applicable for use in the ONCOS ANNUAL REGISTRY SUMMARY Report."
^DD(164.08,26,"DT")="2960304"
^DD(164.08,100,0)="ICDO-1 SITE^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X"
^DD(164.08,100,1,0)="^.1^^-1"
^DD(164.08,100,1,1,0)="164.08^D"
^DD(164.08,100,1,1,1)="S ^ONCO(164.08,""D"",$E(X,1,30),DA)="""""
^DD(164.08,100,1,1,2)="K ^ONCO(164.08,""D"",$E(X,1,30),DA)"
^DD(164.08,100,1,1,"%D",0)="^^1^1^2930909"
^DD(164.08,100,1,1,"%D",1,0)="Indexes file by ICDO-1 SITE."
^DD(164.08,100,1,1,"DT")="2911113"
^DD(164.08,100,3)="Answer must be 3 characters in length."
^DD(164.08,100,21,0)="^^2^2^2920528^"
^DD(164.08,100,21,1,0)="INTERNATIONAL CLASSIFICATION OF DIEASES FOR ONCOLOGY, FIELD TRIAL"
^DD(164.08,100,21,2,0)="EDITION 1987."
^DD(164.08,100,"DT")="2911121"
^DD(164.08,"B","*SYSTEM",4)=""
^DD(164.08,"B","ANAL",11)=""
^DD(164.08,"B","BLACK-FEMALE",16)=""
^DD(164.08,"B","BLACK-MALE",15)=""
^DD(164.08,"B","ICDO-1 SITE",100)=""
^DD(164.08,"B","ICDO-2 SITE",.02)=""
^DD(164.08,"B","N/A",26)=""
^DD(164.08,"B","NAME",.01)=""
^DD(164.08,"B","NON-ANALYTIC",12)=""
^DD(164.08,"B","OTHER-FEMALE",18)=""
^DD(164.08,"B","OTHER-MALE",17)=""
^DD(164.08,"B","REPORTING GROUP",5)=""
^DD(164.08,"B","STAGE 0",19)=""
^DD(164.08,"B","STAGE I",20)=""
^DD(164.08,"B","STAGE II",21)=""
^DD(164.08,"B","STAGE III",22)=""
^DD(164.08,"B","STAGE IV",23)=""
^DD(164.08,"B","TOT#",10)=""
^DD(164.08,"B","UNSTAGED",24)=""
^DD(164.08,"B","WHITE-FEMALE",14)=""
^DD(164.08,"B","WHITE-MALE",13)=""
^DD(164.08,"B","YEAR",25)=""
^DD(164.08,"GL",0,1,.01)=""
^DD(164.08,"GL",0,2,.02)=""
^DD(164.08,"GL",0,3,100)=""
^DD(164.08,"GL",0,4,5)=""
^DD(164.08,"GL",0,5,4)=""
^DD(164.08,"GL","CC",1,10)=""
^DD(164.08,"GL","CC",2,11)=""
^DD(164.08,"GL","CC",3,12)=""
^DD(164.08,"GL","RS",1,13)=""
^DD(164.08,"GL","RS",2,14)=""
^DD(164.08,"GL","RS",3,15)=""
^DD(164.08,"GL","RS",4,16)=""
^DD(164.08,"GL","RS",5,17)=""
^DD(164.08,"GL","RS",6,18)=""
^DD(164.08,"GL","SG",1,19)=""
^DD(164.08,"GL","SG",2,20)=""
^DD(164.08,"GL","SG",3,21)=""
^DD(164.08,"GL","SG",4,22)=""
^DD(164.08,"GL","SG",5,23)=""
^DD(164.08,"GL","SG",6,24)=""
^DD(164.08,"GL","SG",7,26)=""
^DD(164.08,"GL","YR",1,25)=""
^DD(164.08,"IX",.01)=""
^DD(164.08,"IX",.02)=""
^DD(164.08,"IX",4)=""
^DD(164.08,"IX",5)=""
^DD(164.08,"IX",100)=""
^DD(164.08,"RQ",.01)=""
^DD(164.08,"RQ",.02)=""
^DD(164.08,"RQ",100)=""
^DD(164.09,0)="4TH EDITION N-CLASS ENCODING SUB-FIELD^^.03^4"
^DD(164.09,0,"DT")="2971105"
^DD(164.09,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(164.09,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(164.09,0,"IX","B",164.09,.01)=""
^DD(164.09,0,"IX","X",164.09,.03)=""
^DD(164.09,0,"NM","4TH EDITION N-CLASS ENCODING")=""
^DD(164.09,0,"UP")="164"
^DD(164.09,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.09,.001,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(164.09,.001,21,0)="^^1^1^2930930^"
^DD(164.09,.001,21,1,0)="This is the sequence number for display."
^DD(164.09,.001,"DT")="2930517"
^DD(164.09,.01,0)="4TH EDITION N-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X"
^DD(164.09,.01,1,0)="^.1"
^DD(164.09,.01,1,1,0)="164.09^B"
^DD(164.09,.01,1,1,1)="S ^ONCO(164,DA(1),""N4"",""B"",$E(X,1,30),DA)="""""
^DD(164.09,.01,1,1,2)="K ^ONCO(164,DA(1),""N4"",""B"",$E(X,1,30),DA)"
^DD(164.09,.01,3)="Answer must be 2-45 characters in length."
^DD(164.09,.01,21,0)="^^1^1^2971105^^^^"
^DD(164.09,.01,21,1,0)="This is a code that describes the degree of regional lymph node metastasis."
^DD(164.09,.01,"DT")="2971105"
^DD(164.09,.02,0)="CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q"
^DD(164.09,.02,21,0)="^^1^1^2971105^^^"
^DD(164.09,.02,21,1,0)="This is the code from the AJCC Manual on Staging."
^DD(164.09,.02,"DT")="2971105"
^DD(164.09,.03,0)="ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1C:N1C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q"
^DD(164.09,.03,1,0)="^.1"
^DD(164.09,.03,1,1,0)="164.09^X^MUMPS"
^DD(164.09,.03,1,1,1)="S ^ONCO(164,DA(1),""N4"",""X"",X)=DA"
^DD(164.09,.03,1,1,2)="K ^ONCO(164,DA(1),""N4"",""X"",X)"
^DD(164.09,.03,1,1,"%D",0)="^^1^1^2930910^"
^DD(164.09,.03,1,1,"%D",1,0)="Indexes the sub-file by ACOS CODE."
^DD(164.09,.03,21,0)="^^1^1^2971105^^^"
^DD(164.09,.03,21,1,0)="This is the N code as transmitted to ACoS."
^DD(164.09,.03,"DT")="2971105"
^DD(164.09,"B","4TH EDITION N-CLASS ENCODING",.01)=""
^DD(164.09,"B","ACOS CODE",.03)=""
^DD(164.09,"B","CODE",.02)=""
^DD(164.09,"B","NUMBER",.001)=""
^DD(164.09,"GL",0,1,.01)=""
^DD(164.09,"GL",0,2,.02)=""
^DD(164.09,"GL",0,3,.03)=""
^DD(164.09,"IX",.01)=""
^DD(164.09,"IX",.03)=""
^DD(164.1,0)="FIELD^NL^71^15"
^DD(164.1,0,"DDA")="N"
^DD(164.1,0,"DT")="2981201"
^DD(164.1,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(164.1,0,"IX","B",164.1,.01)=""
^DD(164.1,0,"IX","C",164.11,.01)=""
^DD(164.1,0,"IX","D",164.1,1)=""
^DD(164.1,0,"NM","ICD-O-2 MORPHOLOGY")=""
^DD(164.1,0,"PT",160.075,10)=""
^DD(164.1,0,"PT",164.1,30)=""
^DD(164.1,0,"PT",164.23,.01)=""
^DD(164.1,0,"PT",165.5,22)=""
^DD(164.1,0,"PT",165.5,804)=""
^DD(164.1,0,"PT",165.5,806)=""
^DD(164.1,0,"VER")="2.0"
^DD(164.1,0,"VR")="2.11"
^DD(164.1,0,"VRPK")="ONC"
^DD(164.1,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<26160)!(X?.E1"".""1N.N) X"
^DD(164.1,.001,3)="Type a Number between 26160 and 99999, 0 Decimal Digits"
^DD(164.1,.001,"DT")="3050929"
^DD(164.1,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(164.1,.01,1,0)="^.1"
^DD(164.1,.01,1,1,0)="164.1^B"
^DD(164.1,.01,1,1,1)="S ^ONCO(164.1,""B"",$E(X,1,30),DA)="""""
^DD(164.1,.01,1,1,2)="K ^ONCO(164.1,""B"",$E(X,1,30),DA)"
^DD(164.1,.01,3)="Answer must be 2-40 characters in length."
^DD(164.1,.01,21,0)="^.001^1^1^3050929^^^"
^DD(164.1,.01,21,1,0)="FREE TEXT FIELD RECORDING NAMES."
^DD(164.1,.01,"DT")="3050929"
^DD(164.1,1,0)="CODE^F^^0;2^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>6!($L(X)<3) X"
^DD(164.1,1,1,0)="^.1"
^DD(164.1,1,1,1,0)="164.1^D"
^DD(164.1,1,1,1,1)="S ^ONCO(164.1,""D"",$E(X,1,30),DA)="""""
^DD(164.1,1,1,1,2)="K ^ONCO(164.1,""D"",$E(X,1,30),DA)"
^DD(164.1,1,1,1,"%D",0)="^^1^1^2930909"
^DD(164.1,1,1,1,"%D",1,0)="Indexes file by CODE."
^DD(164.1,1,3)="ANSWER MUST BE 3-6 CHARACTERS IN LENGTH"
^DD(164.1,1,21,0)="^^1^1^2920528^"
^DD(164.1,1,21,1,0)="FREE TEXT FIELD FOR THE MORHPHOLOGY CODES."
^DD(164.1,2,0)="TYPE^164.11A^^1;0"
^DD(164.1,2,21,0)="^^1^1^2930930^^"
^DD(164.1,2,21,1,0)="FREE TEXT FIELD RECORDING TYPE OF CODE."
^DD(164.1,3,0)="ICDO-SITE^P164.08^ONCO(164.08,^0;5^Q"
^DD(164.1,3,21,0)="^^1^1^2920528^"
^DD(164.1,3,21,1,0)="POINTS TO THE ICDO SITE FILE."
^DD(164.1,3,"DT")="2911205"
^DD(164.1,4,0)="TOPOGRAPHY^P164'^ONCO(164,^0;6^Q"
^DD(164.1,4,21,0)="^^1^1^2930930^^"
^DD(164.1,4,21,1,0)="POINTS TO THE TOPOGRAPHY FILE."
^DD(164.1,4,"DT")="2911205"
^DD(164.1,30,0)="TN-CODES^P164.1'^ONCO(164.1,^0;4^Q"
^DD(164.1,30,21,0)="^^1^1^2920528^"
^DD(164.1,30,21,1,0)="POINTS TO THE FILE CONTAINING THE T AND N CODES."
^DD(164.1,30,"DT")="2911217"
^DD(164.1,31,0)="T-CLASS ENCODING^164.16^^T;0"
^DD(164.1,31,21,0)="^^1^1^2930930^^^"
^DD(164.1,31,21,1,0)="FREE TEXT FIELD RECORDING THE TUMOR CLASS ENCODING SCHEME."
^DD(164.1,43,0)="EXTENSION CODE SET-1ST ED^*P164.5'^ONCO(164.5,^E;1^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.1,43,12)="A first edition extension code set may be selected."
^DD(164.1,43,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"""
^DD(164.1,43,21,0)="^^3^3^2981201^^"
^DD(164.1,43,21,1,0)="This field identifies the set of codes used to characterize extension for"
^DD(164.1,43,21,2,0)="this topography in the first edition of SEER Extent of Disease Codes and "
^DD(164.1,43,21,3,0)="Coding Instructions."
^DD(164.1,43,"DT")="2940713"
^DD(164.1,43.01,0)="EXTENSION CODE SET-2ND ED^*P164.5'^ONCO(164.5,^E;2^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.1,43.01,12)="A first or second edition extension code set may be selected."
^DD(164.1,43.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"""
^DD(164.1,43.01,21,0)="^^3^3^2981201^^^^"
^DD(164.1,43.01,21,1,0)="This field identifies the set of codes used to characterize extension for"
^DD(164.1,43.01,21,2,0)="this topography in the second edition of SEER Extent of Disease Codes and "
^DD(164.1,43.01,21,3,0)="Coding Instructions."
^DD(164.1,43.01,"DT")="2950117"
^DD(164.1,43.02,0)="EXTENSION CODE SET-3RD ED^*P164.5'^ONCO(164.5,^E;3^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.1,43.02,12)="A first, second or third edition extension code set may be selected"
^DD(164.1,43.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"""
^DD(164.1,43.02,21,0)="^^5^5^2981201^^^"
^DD(164.1,43.02,21,1,0)=""
^DD(164.1,43.02,21,2,0)="This field identifies the set of codes used to characterize extension for"
^DD(164.1,43.02,21,3,0)="this topography in the third edition of SEER Extent of Disease Codes and "
^DD(164.1,43.02,21,4,0)="Coding Instructions."
^DD(164.1,43.02,21,5,0)=""
^DD(164.1,43.02,"DT")="2981201"
^DD(164.1,53,0)="LYMPH NODE CODE SET-1ST ED^*P164.5'^ONCO(164.5,^L;1^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.1,53,12)="A first edition lymph node code set may be selected."
^DD(164.1,53,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"""
^DD(164.1,53,21,0)="^^3^3^2981201^^"
^DD(164.1,53,21,1,0)="This field identifies the set of codes used to characterize lymph node involvement for"
^DD(164.1,53,21,2,0)="this topography in the first edition of SEER Extent of Disease Codes and "
^DD(164.1,53,21,3,0)="Coding Instructions."
^DD(164.1,53,"DT")="2940713"
^DD(164.1,53.01,0)="LYMPH NODE CODE SET-2ND ED^*P164.5'^ONCO(164.5,^L;2^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.1,53.01,12)="A first or second edition lymph node code set may be selected."
^DD(164.1,53.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"""
^DD(164.1,53.01,21,0)="^^3^3^2981201^^^"
^DD(164.1,53.01,21,1,0)="This field identifies the set of codes used to characterize lymph node involvement for"
^DD(164.1,53.01,21,2,0)="this topography in the second edition of SEER Extent of Disease Codes and "
^DD(164.1,53.01,21,3,0)="Coding Instructions."
^DD(164.1,53.01,"DT")="2940713"
^DD(164.1,53.02,0)="LYMPH NODE CODE SET-3RD ED^*P164.5'^ONCO(164.5,^L;3^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.1,53.02,12)="A first, second or third edition lymph node code set may be selected."
^DD(164.1,53.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"""
^DD(164.1,53.02,21,0)="^^5^5^2981201^"
^DD(164.1,53.02,21,1,0)=""
^DD(164.1,53.02,21,2,0)="This field identifies the set of codes used to characterize lymph nodes"
^DD(164.1,53.02,21,3,0)="for this topography in the third edition of SEER Extent of Disease Codes"
^DD(164.1,53.02,21,4,0)="and Coding Instructions."
^DD(164.1,53.02,21,5,0)=""
^DD(164.1,53.02,"DT")="2981201"
^DD(164.1,71,0)="CELL TYPE^S^1:Non-Hodgkin's lymphoma;2:Hodgkin's disease;3:Carcinoma;4:Adenocarcinoma;^0;8^Q"
^DD(164.1,71,21,0)="^^1^1^2930819^^^^"
^DD(164.1,71,21,1,0)="This field contains a code indicating the type of cell involved."
^DD(164.1,71,23,0)="^^1^1^2930819^^^^"
^DD(164.1,71,23,1,0)="This field is referenced directly by CK^ONCOTN."
^DD(164.1,71,"DT")="2930819"
^DD(164.1,"B","CELL TYPE",71)=""
^DD(164.1,"B","CODE",1)=""
^DD(164.1,"B","EXTENSION CODE SET-1ST ED",43)=""
^DD(164.1,"B","EXTENSION CODE SET-2ND ED",43.01)=""
^DD(164.1,"B","EXTENSION CODE SET-3RD ED",43.02)=""
^DD(164.1,"B","ICDO-SITE",3)=""
^DD(164.1,"B","LYMPH NODE CODE SET-1ST ED",53)=""
^DD(164.1,"B","LYMPH NODE CODE SET-2ND ED",53.01)=""
^DD(164.1,"B","LYMPH NODE CODE SET-3RD ED",53.02)=""
^DD(164.1,"B","NAME",.01)=""
^DD(164.1,"B","NUMBER",.001)=""
^DD(164.1,"B","T-CLASS ENCODING",31)=""
^DD(164.1,"B","TN-CODES",30)=""
^DD(164.1,"B","TOPOGRAPHY",4)=""
^DD(164.1,"B","TYPE",2)=""
^DD(164.1,"GL",0,1,.01)=""
^DD(164.1,"GL",0,2,1)=""
^DD(164.1,"GL",0,4,30)=""
^DD(164.1,"GL",0,5,3)=""
^DD(164.1,"GL",0,6,4)=""
^DD(164.1,"GL",0,8,71)=""
^DD(164.1,"GL",1,0,2)=""
^DD(164.1,"GL","E",1,43)=""
^DD(164.1,"GL","E",2,43.01)=""
^DD(164.1,"GL","E",3,43.02)=""
^DD(164.1,"GL","L",1,53)=""
^DD(164.1,"GL","L",2,53.01)=""
^DD(164.1,"GL","L",3,53.02)=""
^DD(164.1,"GL","T",0,31)=""
^DD(164.1,"IX",.01)=""
^DD(164.1,"IX",1)=""
^DD(164.1,"RQ",.01)=""
^DD(164.1,"SB",164.11,2)=""
^DD(164.1,"SB",164.16,31)=""
^DD(164.11,0)="TYPE SUB-FIELD^NL^.01^1"
^DD(164.11,0,"NM","TYPE")=""
^DD(164.11,0,"UP")="164.1"
^DD(164.11,.01,0)="TYPE^MF^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>25!($L(X)<3) X"
^DD(164.11,.01,1,0)="^.1"
^DD(164.11,.01,1,1,0)="164.1^C"
^DD(164.11,.01,1,1,1)="S ^ONCO(164.1,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(164.11,.01,1,1,2)="K ^ONCO(164.1,""C"",$E(X,1,30),DA(1),DA)"
^DD(164.11,.01,1,1,"%D",0)="^^1^1^2930909"
^DD(164.11,.01,1,1,"%D",1,0)="Indexes file by TYPE."
^DD(164.11,.01,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(164.11,.01,21,0)="^^1^1^2930930^"
^DD(164.11,.01,21,1,0)="This is the type of code."
^DD(164.11,"B","TYPE",.01)=""
^DD(164.11,"GL",0,1,.01)=""
^DD(164.11,"IX",.01)=""
^DD(164.14,0)="FIELD^^.01^2"
^DD(164.14,0,"DDA")="N"
^DD(164.14,0,"DT")="2930622"
^DD(164.14,0,"IX","B",164.14,.01)=""
^DD(164.14,0,"NM","ICDO SITE GROUPS FOR REPORTING")=""
^DD(164.14,0,"PT",164,.065)=""
^DD(164.14,0,"PT",164.08,5)=""
^DD(164.14,0,"VR")="2.11"
^DD(164.14,0,"VRPK")="ONC"
^DD(164.14,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.14,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(164.14,.001,21,0)="^^1^1^2930930^"
^DD(164.14,.001,21,1,0)="This is the number that controls reporting sequence."
^DD(164.14,.001,"DT")="2930622"
^DD(164.14,.01,0)="TOPOGRAPHY CODE GROUP^RFX^^0;1^K:$L(X)>60!($L(X)<3)!'(X?1""C""2N.E) X"
^DD(164.14,.01,1,0)="^.1"
^DD(164.14,.01,1,1,0)="164.14^B"
^DD(164.14,.01,1,1,1)="S ^ONCO(164.14,""B"",$E(X,1,30),DA)="""""
^DD(164.14,.01,1,1,2)="K ^ONCO(164.14,""B"",$E(X,1,30),DA)"
^DD(164.14,.01,3)="Answer must be 3-60 characters in length."
^DD(164.14,.01,21,0)="^^1^1^2930622^^^^"
^DD(164.14,.01,21,1,0)="This is the group into which the ICDO-2 topography code falls."
^DD(164.14,.01,"DT")="2981106"
^DD(164.14,"B","NUMBER",.001)=""
^DD(164.14,"B","TOPOGRAPHY CODE GROUP",.01)=""
^DD(164.14,"GL",0,1,.01)=""
^DD(164.14,"IX",.01)=""
^DD(164.14,"RQ",.01)=""
^DD(164.15,0)="FIELD^^1^2"
^DD(164.15,0,"DDA")="N"
^DD(164.15,0,"DT")="2980121"
^DD(164.15,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(164.15,0,"IX","B",164.15,.01)=""
^DD(164.15,0,"IX","C",164.15,1)=""
^DD(164.15,0,"NM","TUMOR MARKERS")=""
^DD(164.15,0,"PT",165.5,25.1)=""
^DD(164.15,0,"PT",165.5,25.2)=""
^DD(164.15,0,"PT",165.5,25.3)=""
^DD(164.15,0,"VR")="2.11"
^DD(164.15,0,"VRPK")="ONC"
^DD(164.15,.01,0)="CODE^RNJ1,0^^0;1^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(164.15,.01,1,0)="^.1"
^DD(164.15,.01,1,1,0)="164.15^B"
^DD(164.15,.01,1,1,1)="S ^ONCO(164.15,""B"",$E(X,1,30),DA)="""""
^DD(164.15,.01,1,1,2)="K ^ONCO(164.15,""B"",$E(X,1,30),DA)"
^DD(164.15,.01,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(164.15,.01,21,0)="^^1^1^2980121^^"
^DD(164.15,.01,21,1,0)="""Tumor Marker One"" code."
^DD(164.15,.01,"DT")="2980121"
^DD(164.15,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3) X"
^DD(164.15,1,1,0)="^.1"
^DD(164.15,1,1,1,0)="164.15^C"
^DD(164.15,1,1,1,1)="S ^ONCO(164.15,""C"",$E(X,1,30),DA)="""""
^DD(164.15,1,1,1,2)="K ^ONCO(164.15,""C"",$E(X,1,30),DA)"
^DD(164.15,1,1,1,"DT")="2930703"
^DD(164.15,1,3)="Answer must be 3-45 characters in length."
^DD(164.15,1,21,0)="^^1^1^2980121^^^^"
^DD(164.15,1,21,1,0)="""Tumor Marker One"" description."
^DD(164.15,1,"DT")="2930703"
^DD(164.15,"B","CODE",.01)=""
^DD(164.15,"B","DESCRIPTION",1)=""
^DD(164.15,"GL",0,1,.01)=""
^DD(164.15,"GL",0,2,1)=""
^DD(164.15,"IX",.01)=""
^DD(164.15,"IX",1)=""
^DD(164.15,"RQ",.01)=""
^DD(164.16,0)="T-CLASS ENCODING SUB-FIELD^^.03^4"
^DD(164.16,0,"DT")="2911217"
^DD(164.16,0,"IX","B",164.16,.01)=""
^DD(164.16,0,"NM","T-CLASS ENCODING")=""
^DD(164.16,0,"UP")="164.1"
^DD(164.16,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.16,.001,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(164.16,.001,21,0)="^^1^1^2930930^"
^DD(164.16,.001,21,1,0)="This the sequence number for display."
^DD(164.16,.001,"DT")="2911217"
^DD(164.16,.01,0)="T-CLASS ENCODING^MF^^0;1^K:$L(X)>35!($L(X)<3) X"
^DD(164.16,.01,1,0)="^.1"
^DD(164.16,.01,1,1,0)="164.16^B"
^DD(164.16,.01,1,1,1)="S ^ONCO(164.1,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(164.16,.01,1,1,2)="K ^ONCO(164.1,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(164.16,.01,3)="Answer must be 3-35 characters in length."
^DD(164.16,.01,21,0)="^^1^1^2930930^"
^DD(164.16,.01,21,1,0)="This is the tumor description."
^DD(164.16,.01,"DT")="2911217"
^DD(164.16,.02,0)="CODE^S^1:1;^0;2^Q"
^DD(164.16,.02,3)=""
^DD(164.16,.02,21,0)="^^1^1^2930930^"
^DD(164.16,.02,21,1,0)="This is the code from the AJCC Manual on Staging."
^DD(164.16,.02,"DT")="2911217"
^DD(164.16,.03,0)="ACOS CODE^S^1:1;^0;3^Q"
^DD(164.16,.03,21,0)="^^1^1^2930930^"
^DD(164.16,.03,21,1,0)="This is the T code as transmitted to ACoS."
^DD(164.16,.03,"DT")="2911217"
^DD(164.16,"B","ACOS CODE",.03)=""
^DD(164.16,"B","CODE",.02)=""
^DD(164.16,"B","NUMBER",.001)=""
^DD(164.16,"B","T-CLASS ENCODING",.01)=""
^DD(164.16,"GL",0,1,.01)=""
^DD(164.16,"GL",0,2,.02)=""
^DD(164.16,"GL",0,3,.03)=""
^DD(164.16,"IX",.01)=""
^DD(164.17,0)="FIELD^^1^2"
^DD(164.17,0,"DDA")="N"
^DD(164.17,0,"DT")="3000307"
^DD(164.17,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(164.17,0,"IX","B",164.17,.01)=""
^DD(164.17,0,"NM","KARNOFSKY'S RATING")=""
^DD(164.17,0,"PT",165.5,1311)=""
^DD(164.17,0,"PT",165.5,1367)=""
^DD(164.17,0,"PT",165.5,1371)=""
^DD(164.17,0,"VR")="2.11"
^DD(164.17,0,"VRPK")="ONC"
^DD(164.17,.01,0)="CODE^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(164.17,.01,1,0)="^.1"
^DD(164.17,.01,1,1,0)="164.17^B"
^DD(164.17,.01,1,1,1)="S ^ONCO(164.17,""B"",$E(X,1,30),DA)="""""
^DD(164.17,.01,1,1,2)="K ^ONCO(164.17,""B"",$E(X,1,30),DA)"
^DD(164.17,.01,3)="Answer must be 3 characters in length."
^DD(164.17,.01,21,0)="^.001^1^1^3000307^^"
^DD(164.17,.01,21,1,0)="This field contains the Karnofsky's Rating code."
^DD(164.17,.01,"DT")="3000307"
^DD(164.17,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(164.17,1,3)="Answer must be 1-60 characters in length."
^DD(164.17,1,21,0)="^.001^1^1^3000307^^"
^DD(164.17,1,21,1,0)="This field contains the Karnofsky's Rating code description."
^DD(164.17,1,"DT")="3000307"
^DD(164.17,"B","CODE",.01)=""
^DD(164.17,"B","DESCRIPTION",1)=""
^DD(164.17,"GL",0,1,.01)=""
^DD(164.17,"GL",0,2,1)=""
^DD(164.17,"IX",.01)=""
^DD(164.17,"RQ",.01)=""
^DD(164.18,0)="FIELD^^2^3"
^DD(164.18,0,"DDA")="N"
^DD(164.18,0,"DT")="3010322"
^DD(164.18,0,"ID",1)="W ?32,$P(^(0),U,2)"
^DD(164.18,0,"IX","B",164.18,.01)=""
^DD(164.18,0,"IX","C",164.18,1)=""
^DD(164.18,0,"IX","D",164.182,.01)=""
^DD(164.18,0,"NM","CHEMOTHERAPEUTIC DRUGS")=""
^DD(164.18,0,"PT",165.5,1423)=""
^DD(164.18,0,"PT",165.5,1423.1)=""
^DD(164.18,0,"PT",165.5,1423.2)=""
^DD(164.18,0,"PT",165.5,1576)=""
^DD(164.18,0,"PT",165.5,1576.1)=""
^DD(164.18,0,"PT",165.5,1576.2)=""
^DD(164.18,0,"VR")="2.11"
^DD(164.18,0,"VRPK")="ONC"
^DD(164.18,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X I $D(X),X?1.6N D EN^DDIOL("" NSC NUMBER not found.  To add new entry enter drug NAME."","""",""?20"") K X"
^DD(164.18,.01,1,0)="^.1"
^DD(164.18,.01,1,1,0)="164.18^B"
^DD(164.18,.01,1,1,1)="S ^ONCO(164.18,""B"",$E(X,1,30),DA)="""""
^DD(164.18,.01,1,1,2)="K ^ONCO(164.18,""B"",$E(X,1,30),DA)"
^DD(164.18,.01,3)="Answer must be 3-30 characters in length."
^DD(164.18,.01,21,0)="^^3^3^3010314^"
^DD(164.18,.01,21,1,0)=""
^DD(164.18,.01,21,2,0)="This item describes the generic name of the chemotherapeutic drug."
^DD(164.18,.01,21,3,0)=" "
^DD(164.18,.01,"DT")="3010314"
^DD(164.18,1,0)="NSC NUMBER^RFX^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X I '$D(DIU(0)),$D(X),$D(^ONCO(164.18,""C"",X)) D EN^DDIOL(""  NSC NUMBER already used"","""",""?30"") K X"
^DD(164.18,1,1,0)="^.1"
^DD(164.18,1,1,1,0)="164.18^C"
^DD(164.18,1,1,1,1)="S ^ONCO(164.18,""C"",$E(X,1,30),DA)="""""
^DD(164.18,1,1,1,2)="K ^ONCO(164.18,""C"",$E(X,1,30),DA)"
^DD(164.18,1,1,1,"DT")="3010315"
^DD(164.18,1,3)="Answer must be 6 numbers in length."
^DD(164.18,1,21,0)="^.001^3^3^3010322^^^"
^DD(164.18,1,21,1,0)=""
^DD(164.18,1,21,2,0)="This item describe the NSC (National Service Center) number."
^DD(164.18,1,21,3,0)=""
^DD(164.18,1,"DT")="3010322"
^DD(164.18,2,0)="SYNONYM^164.182A^^1;0"
^DD(164.18,2,21,0)="^.001^1^1^3010315^^^"
^DD(164.18,2,21,1,0)="Short Names, Synonyms and Brand or Trade Names"
^DD(164.18,2,"DT")="3010315"
^DD(164.18,"B","NAME",.01)=""
^DD(164.18,"B","NSC NUMBER",1)=""
^DD(164.18,"B","SYNONYM",2)=""
^DD(164.18,"GL",0,1,.01)=""
^DD(164.18,"GL",0,2,1)=""
^DD(164.18,"GL",1,0,2)=""
^DD(164.18,"IX",.01)=""
^DD(164.18,"IX",1)=""
^DD(164.18,"RQ",.01)=""
^DD(164.18,"RQ",1)=""
^DD(164.18,"SB",164.182,2)=""
^DD(164.182,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(164.182,0,"DT")="3010315"
^DD(164.182,0,"IX","B",164.182,.01)=""
^DD(164.182,0,"NM","SYNONYM")=""
^DD(164.182,0,"UP")="164.18"
^DD(164.182,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(164.182,.01,1,0)="^.1^^-1"
^DD(164.182,.01,1,1,0)="164.182^B"
^DD(164.182,.01,1,1,1)="S ^ONCO(164.18,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(164.182,.01,1,1,2)="K ^ONCO(164.18,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(164.182,.01,1,2,0)="164.18^D"
^DD(164.182,.01,1,2,1)="S ^ONCO(164.18,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(164.182,.01,1,2,2)="K ^ONCO(164.18,""D"",$E(X,1,30),DA(1),DA)"
^DD(164.182,.01,1,2,"DT")="3010315"
^DD(164.182,.01,3)="Answer must be 1-20 characters in length."
^DD(164.182,.01,"DT")="3010524"
^DD(164.182,"B","SYNONYM",.01)=""
^DD(164.182,"GL",0,1,.01)=""
^DD(164.182,"IX",.01)=""
^DD(164.2,0)="FIELD^NL^71^13"
^DD(164.2,0,"DDA")="N"
^DD(164.2,0,"DT")="3050831"
^DD(164.2,0,"IX","B",164.2,.01)=""
^DD(164.2,0,"IX","C",164.21,.01)=""
^DD(164.2,0,"IX","D",164.22,.01)=""
^DD(164.2,0,"IX","E",164.23,.01)=""
^DD(164.2,0,"IX","F",164.22,.01)=""
^DD(164.2,0,"IX","H",164.2,.01)=""
^DD(164.2,0,"IX","I",164.22,.01)=""
^DD(164.2,0,"NM","SITE-GROUP FOR ONCOLOGY")=""
^DD(164.2,0,"PT",160,26.1)=""
^DD(164.2,0,"PT",160,26.2)=""
^DD(164.2,0,"PT",160,26.3)=""
^DD(164.2,0,"PT",160,26.4)=""
^DD(164.2,0,"PT",164,.05)=""
^DD(164.2,0,"PT",164,102)=""
^DD(164.2,0,"PT",164.31,.01)=""
^DD(164.2,0,"PT",165.5,.01)=""
^DD(164.2,0,"PT",165.5,148.1)=""
^DD(164.2,0,"PT",165.5,148.2)=""
^DD(164.2,0,"PT",165.5,148.3)=""
^DD(164.2,0,"PT",165.5,148.4)=""
^DD(164.2,0,"VER")="2.0"
^DD(164.2,0,"VR")="2.11"
^DD(164.2,0,"VRPK")="ONC"
^DD(164.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(164.2,.01,1,0)="^.1"
^DD(164.2,.01,1,1,0)="164.2^B"
^DD(164.2,.01,1,1,1)="S ^ONCO(164.2,""B"",$E(X,1,30),DA)="""""
^DD(164.2,.01,1,1,2)="K ^ONCO(164.2,""B"",$E(X,1,30),DA)"
^DD(164.2,.01,1,1,"DT")="2911205"
^DD(164.2,.01,1,2,0)="164.2^H"
^DD(164.2,.01,1,2,1)="S ^ONCO(164.2,""H"",$E(X,1,30),DA)="""""
^DD(164.2,.01,1,2,2)="K ^ONCO(164.2,""H"",$E(X,1,30),DA)"
^DD(164.2,.01,1,2,"%D",0)="^^1^1^2930909"
^DD(164.2,.01,1,2,"%D",1,0)="Indexes file by NAME."
^DD(164.2,.01,3)="Answer must be 2-30 characters in length."
^DD(164.2,.01,21,0)="^.001^1^1^3030122^^"
^DD(164.2,.01,21,1,0)="FREE TEXT FIELD FOR RECORDING NAME."
^DD(164.2,.01,"DT")="3030122"
^DD(164.2,.02,0)="AJCC STAGING^S^1:YES;Y:YES;^0;2^Q"
^DD(164.2,.02,21,0)="^^1^1^2931102^^"
^DD(164.2,.02,21,1,0)="RECORDS THE AJCC STAGE."
^DD(164.2,.02,"DT")="2931102"
^DD(164.2,1,0)="KEY WORD^164.21A^^1;0"
^DD(164.2,1,21,0)="^^1^1^2930518^^^^"
^DD(164.2,1,21,1,0)="This field is a free-text KWIC cross-reference."
^DD(164.2,1,"DT")="2930518"
^DD(164.2,10,0)="TOPOGRAPHY^164.22P^^T;0"
^DD(164.2,10,21,0)="^^1^1^2960223^^^^"
^DD(164.2,10,21,1,0)="POINTS TO THE FILE CONTAINING TOPOGRAPHY CODES."
^DD(164.2,20,0)="MORPHOLOGY^164.23PA^^M;0"
^DD(164.2,20,21,0)="^.001^1^1^3050901^^"
^DD(164.2,20,21,1,0)="Morphologies associated with this SITE-GP."
^DD(164.2,43,0)="EXTENSION CODE SET-1ST ED^*P164.5'^ONCO(164.5,^E;1^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.2,43,12)="A first edition extension code set may be chosen."
^DD(164.2,43,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"""
^DD(164.2,43,21,0)="^^3^3^2990811^^^"
^DD(164.2,43,21,1,0)="This field identifies the set of codes used to characterize extension"
^DD(164.2,43,21,2,0)="for this site group in the first edition of SEER Extent of"
^DD(164.2,43,21,3,0)="Disease Codes and Coding Instructions."
^DD(164.2,43,"DT")="2950119"
^DD(164.2,43.01,0)="EXTENSION CODE SET-2ND ED^*P164.5'^ONCO(164.5,^E;2^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.2,43.01,12)="A first or second edition code set may be chosen."
^DD(164.2,43.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"""
^DD(164.2,43.01,21,0)="^^3^3^2981201^^^"
^DD(164.2,43.01,21,1,0)="This field identifies the set of codes used to characterize extension"
^DD(164.2,43.01,21,2,0)="for this site group in the second edition of SEER Extent of"
^DD(164.2,43.01,21,3,0)="Disease Codes and Coding Instructions."
^DD(164.2,43.01,"DT")="2940713"
^DD(164.2,43.02,0)="EXTENSION CODE SET-3RD ED^*P164.5'^ONCO(164.5,^E;3^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.2,43.02,12)="A first, second or third edition extension code set may be chosen."
^DD(164.2,43.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"""
^DD(164.2,43.02,21,0)="^^3^3^2990811^"
^DD(164.2,43.02,21,1,0)="This field identifies the set of codes used to characterize extension"
^DD(164.2,43.02,21,2,0)="for this site group in the third edition of SEER Extent of"
^DD(164.2,43.02,21,3,0)="Disease Codes and Coding Instructions."
^DD(164.2,43.02,"DT")="2990811"
^DD(164.2,53,0)="LYMPH NODE CODE SET-1ST ED^*P164.5'^ONCO(164.5,^L;1^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.2,53,12)="A first edition extension code set may be selected."
^DD(164.2,53,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"""
^DD(164.2,53,21,0)="^^3^3^2950119^^^^"
^DD(164.2,53,21,1,0)="This field identifies the set of codes used to characterize lymph node "
^DD(164.2,53,21,2,0)="involvement for this site group in the first edition of SEER Extent of "
^DD(164.2,53,21,3,0)="Disease Codes and Coding Instructions."
^DD(164.2,53,"DT")="2950119"
^DD(164.2,53.01,0)="LYMPH NODE CODE SET-2ND ED^*P164.5'^ONCO(164.5,^L;2^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.2,53.01,12)="A first or second edition lymph node code set may be chosen."
^DD(164.2,53.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"""
^DD(164.2,53.01,21,0)="^^3^3^2990811^^"
^DD(164.2,53.01,21,1,0)="This field identifies the set of codes used to characterize lymph node"
^DD(164.2,53.01,21,2,0)="involvement for this site group in the second edition of SEER Extent of"
^DD(164.2,53.01,21,3,0)="Disease Codes and Coding Instructions."
^DD(164.2,53.01,"DT")="2940713"
^DD(164.2,53.02,0)="LYMPH NODE CODE SET-3RD ED^*P164.5'^ONCO(164.5,^L;3^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(164.2,53.02,12)="A first, second or third edition lymph node code set may be chosen."
^DD(164.2,53.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"""
^DD(164.2,53.02,21,0)="^^3^3^2990811^"
^DD(164.2,53.02,21,1,0)="This field identifies the set of codes used to characterize lymph node"
^DD(164.2,53.02,21,2,0)="involvement for this site group in the third edition of SEER Extent of"
^DD(164.2,53.02,21,3,0)="Disease Codes and Coding Instructions."
^DD(164.2,53.02,"DT")="2990811"
^DD(164.2,70,0)="GRADE^164.25^^G;0"
^DD(164.2,70,21,0)="^^1^1^2930930^^"
^DD(164.2,70,21,1,0)="FREE TEXT FIELD FOR RECORDING ADDITIONAL GRADE INFORMATION."
^DD(164.2,70,"DT")="2920224"
^DD(164.2,71,0)="HISTOLOGIC^S^1:Yes;0:No;^0;3^Q"
^DD(164.2,71,21,0)="^^4^4^2930802^^"
^DD(164.2,71,21,1,0)="This field is referenced by the Screen for the SITE/GP Field (#.01) in the"
^DD(164.2,71,21,2,0)="ONCOLOGY PRIMARY File (#165.5).  Histologic site groups (lymphomas,"
^DD(164.2,71,21,3,0)="melanoma, leukemia, mycosis fungoides) should not be chosen as primary"
^DD(164.2,71,21,4,0)="site groups."
^DD(164.2,71,"DT")="2930713"
^DD(164.2,"B","AJCC STAGING",.02)=""
^DD(164.2,"B","EXTENSION CODE SET-1ST ED",43)=""
^DD(164.2,"B","EXTENSION CODE SET-2ND ED",43.01)=""
^DD(164.2,"B","EXTENSION CODE SET-3RD ED",43.02)=""
^DD(164.2,"B","GRADE",70)=""
^DD(164.2,"B","HISTOLOGIC",71)=""
^DD(164.2,"B","KEY WORD",1)=""
^DD(164.2,"B","LYMPH NODE CODE SET-1ST ED",53)=""
^DD(164.2,"B","LYMPH NODE CODE SET-2ND ED",53.01)=""
^DD(164.2,"B","LYMPH NODE CODE SET-3RD ED",53.02)=""
^DD(164.2,"B","MORPHOLOGY",20)=""
^DD(164.2,"B","NAME",.01)=""
^DD(164.2,"B","TOPOGRAPHY",10)=""
^DD(164.2,"GL",0,1,.01)=""
^DD(164.2,"GL",0,2,.02)=""
^DD(164.2,"GL",0,3,71)=""
^DD(164.2,"GL",1,0,1)=""
^DD(164.2,"GL","E",1,43)=""
^DD(164.2,"GL","E",2,43.01)=""
^DD(164.2,"GL","E",3,43.02)=""
^DD(164.2,"GL","G",0,70)=""
^DD(164.2,"GL","L",1,53)=""
^DD(164.2,"GL","L",2,53.01)=""
^DD(164.2,"GL","L",3,53.02)=""
^DD(164.2,"GL","M",0,20)=""
^DD(164.2,"GL","T",0,10)=""
^DD(164.2,"IX",.01)=""
^DD(164.2,"RQ",.01)=""
^DD(164.2,"SB",164.21,1)=""
^DD(164.2,"SB",164.22,10)=""
^DD(164.2,"SB",164.23,20)=""
^DD(164.2,"SB",164.25,70)=""
^DD(164.21,0)="KEY WORD SUB-FIELD^NL^.01^1"
^DD(164.21,0,"NM","KEY WORD")=""
^DD(164.21,0,"UP")="164.2"
^DD(164.21,.01,0)="KEY WORD^MF^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(164.21,.01,1,0)="^.1"
^DD(164.21,.01,1,1,0)="164.2^C"
^DD(164.21,.01,1,1,1)="S ^ONCO(164.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(164.21,.01,1,1,2)="K ^ONCO(164.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(164.21,.01,1,1,"%D",0)="^^1^1^2930909"
^DD(164.21,.01,1,1,"%D",1,0)="Indexes file by KEY WORD."
^DD(164.21,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(164.21,.01,21,0)="^^2^2^2930518^"
^DD(164.21,.01,21,1,0)="Entries to this field are non-redundant key words from the ICD-O"
^DD(164.21,.01,21,2,0)="topography codes within this site group."
^DD(164.21,.01,"DT")="2930518"
^DD(164.21,"B","KEY WORD",.01)=""
^DD(164.21,"GL",0,1,.01)=""
^DD(164.21,"IX",.01)=""
^DD(164.22,0)="TOPOGRAPHY SUB-FIELD^NL^.01^2"
^DD(164.22,0,"DT")="2960208"
^DD(164.22,0,"IX","B",164.22,.01)=""
^DD(164.22,0,"NM","TOPOGRAPHY")=""
^DD(164.22,0,"UP")="164.2"
^DD(164.22,.001,0)="NUMBER^NJ2,0X^^ ^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.22,.001,3)="Type a Number between 1 and 50, 0 Decimal Digits"
^DD(164.22,.001,21,0)="^^1^1^2960223^^^^"
^DD(164.22,.001,21,1,0)="This is the sequence number for display."
^DD(164.22,.001,"DT")="2960222"
^DD(164.22,.01,0)="TOPOGRAPHY^MRP164'^ONCO(164,^0;1^Q"
^DD(164.22,.01,1,0)="^.1"
^DD(164.22,.01,1,1,0)="164.2^D^MUMPS"
^DD(164.22,.01,1,1,1)="S ^ONCO(164.2,""D"",""C""_$E(X,3,4)_"".""_$E(X,5),DA(1))="""""
^DD(164.22,.01,1,1,2)="K ^ONCO(164.2,""D"",""C""_$E(X,3,4)_"".""_$E(X,5),DA(1))"
^DD(164.22,.01,1,1,"%D",0)="^^1^1^2930910^"
^DD(164.22,.01,1,1,"%D",1,0)="Indexes the file by ICD-O 2nd edition topography code."
^DD(164.22,.01,1,1,"DT")="2911205"
^DD(164.22,.01,1,2,0)="164.2^F^MUMPS"
^DD(164.22,.01,1,2,1)="S D0=0 F  S D0=$O(^ONCO(164,X,""X"",D0)) Q:D0'>0  S XX=^(D0,0),^ONCO(164.2,""F"",""T""_$E(XX,1,3)_"".""_$E(XX,4),DA(1))="""""
^DD(164.22,.01,1,2,2)="S D0=0"
^DD(164.22,.01,1,2,"%D",0)="^^1^1^2930910^"
^DD(164.22,.01,1,2,"%D",1,0)="Indexes the file by permitted topographies."
^DD(164.22,.01,1,2,"DT")="2911205"
^DD(164.22,.01,1,3,0)="164.22^B^MUMPS"
^DD(164.22,.01,1,3,1)="S ^ONCO(164.2,DA(1),2,""B"",X,DA)="""""
^DD(164.22,.01,1,3,2)="K ^ONCO(164.2,DA(1),2,""B"",X,DA)"
^DD(164.22,.01,1,3,"DT")="2911212"
^DD(164.22,.01,1,4,0)="164.2^I"
^DD(164.22,.01,1,4,1)="S ^ONCO(164.2,""I"",$E(X,1,30),DA(1),DA)="""""
^DD(164.22,.01,1,4,2)="K ^ONCO(164.2,""I"",$E(X,1,30),DA(1),DA)"
^DD(164.22,.01,1,4,"%D",0)="^^2^2^2930701^"
^DD(164.22,.01,1,4,"%D",1,0)="This cross-reference facilitates backward-pointing from the ICDO TOPOGRAPHY"
^DD(164.22,.01,1,4,"%D",2,0)="File (#164)."
^DD(164.22,.01,1,4,"DT")="2930701"
^DD(164.22,.01,21,0)="^^1^1^2930930^"
^DD(164.22,.01,21,1,0)="This is the pointer to a suggested topography code."
^DD(164.22,.01,"DT")="2930701"
^DD(164.22,"B","NUMBER",.001)=""
^DD(164.22,"B","TOPOGRAPHY",.01)=""
^DD(164.22,"GL",0,1,.01)=""
^DD(164.22,"IX",.01)=""
^DD(164.22,"RQ",.01)=""
^DD(164.23,0)="MORPHOLOGY SUB-FIELD^NL^.01^2"
^DD(164.23,0,"DT")="3050831"
^DD(164.23,0,"IX","B",164.23,.01)=""
^DD(164.23,0,"NM","MORPHOLOGY")=""
^DD(164.23,0,"UP")="164.2"
^DD(164.23,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.23,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(164.23,.001,21,0)="^^1^1^2930930^"
^DD(164.23,.001,21,1,0)="This is the sequence number for display."
^DD(164.23,.01,0)="MORPHOLOGY^MP169.3'^ONCO(169.3,^0;1^Q"
^DD(164.23,.01,1,0)="^.1"
^DD(164.23,.01,1,1,0)="164.23^B"
^DD(164.23,.01,1,1,1)="S ^ONCO(164.2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(164.23,.01,1,1,2)="K ^ONCO(164.2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(164.23,.01,1,2,0)="164.2^E"
^DD(164.23,.01,1,2,1)="S ^ONCO(164.2,""E"",""M""_$E(X,1,30),DA(1),DA)="""""
^DD(164.23,.01,1,2,2)="K ^ONCO(164.2,""E"",""M""_$E(X,1,30),DA(1),DA)"
^DD(164.23,.01,1,2,3)="Do NOT delete this cross-reference."
^DD(164.23,.01,1,2,"%D",0)="^^1^1^2930910^"
^DD(164.23,.01,1,2,"%D",1,0)="Indexes the file by permitted morphologies."
^DD(164.23,.01,1,2,"DT")="2900406"
^DD(164.23,.01,21,0)="^.001^1^1^3050901^^"
^DD(164.23,.01,21,1,0)="This is the pointer to the ICD-O-3 MORPHOLOGY (169.3) file."
^DD(164.23,.01,"DT")="3050831"
^DD(164.23,"B","MORPHOLOGY",.01)=""
^DD(164.23,"B","NUMBER",.001)=""
^DD(164.23,"GL",0,1,.01)=""
^DD(164.23,"IX",.01)=""
^DD(164.25,0)="GRADE SUB-FIELD^^1^4"
^DD(164.25,0,"DT")="2920219"
^DD(164.25,0,"IX","B",164.25,.01)=""
^DD(164.25,0,"IX","X",164.25,1)=""
^DD(164.25,0,"NM","GRADE")=""
^DD(164.25,0,"UP")="164.2"
^DD(164.25,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.25,.001,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(164.25,.001,21,0)="^^1^1^2930930^"
^DD(164.25,.001,21,1,0)="This is the sequence number for display."
^DD(164.25,.001,"DT")="2920218"
^DD(164.25,.01,0)="GRADE^MF^^0;1^K:$L(X)>9!($L(X)<1) X"
^DD(164.25,.01,1,0)="^.1"
^DD(164.25,.01,1,1,0)="164.25^B"
^DD(164.25,.01,1,1,1)="S ^ONCO(164.2,DA(1),""G"",""B"",$E(X,1,30),DA)="""""
^DD(164.25,.01,1,1,2)="K ^ONCO(164.2,DA(1),""G"",""B"",$E(X,1,30),DA)"
^DD(164.25,.01,3)="Answer must be 1-9 characters in length."
^DD(164.25,.01,4)="S ONCOX=""G"" D HP^ONCODGR"
^DD(164.25,.01,21,0)="^^1^1^2930930^^"
^DD(164.25,.01,21,1,0)="This is the grade code."
^DD(164.25,.01,"DT")="2920219"
^DD(164.25,.02,0)="DESCRIPTION^RF^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(164.25,.02,3)="Answer must be 3-80 characters in length."
^DD(164.25,.02,21,0)="^^1^1^2930930^"
^DD(164.25,.02,21,1,0)="This is the grade description."
^DD(164.25,.02,"DT")="2920219"
^DD(164.25,1,0)="ACOS CODE^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.25,1,1,0)="^.1"
^DD(164.25,1,1,1,0)="164.25^X"
^DD(164.25,1,1,1,1)="S ^ONCO(164.2,DA(1),""G"",""X"",$E(X,1,30),DA)="""""
^DD(164.25,1,1,1,2)="K ^ONCO(164.2,DA(1),""G"",""X"",$E(X,1,30),DA)"
^DD(164.25,1,1,1,3)="DO NOT DELETE"
^DD(164.25,1,1,1,"%D",0)="^^1^1^2920224^"
^DD(164.25,1,1,1,"%D",1,0)="Used to check input for appropriate grade code"
^DD(164.25,1,1,1,"DT")="2920224"
^DD(164.25,1,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(164.25,1,21,0)="^^1^1^2930930^"
^DD(164.25,1,21,1,0)="This is the code as transmitted to ACoS."
^DD(164.25,1,"DT")="2920224"
^DD(164.25,"B","ACOS CODE",1)=""
^DD(164.25,"B","DESCRIPTION",.02)=""
^DD(164.25,"B","GRADE",.01)=""
^DD(164.25,"B","NUMBER",.001)=""
^DD(164.25,"GL",0,1,.01)=""
^DD(164.25,"GL",0,2,.02)=""
^DD(164.25,"GL",0,3,1)=""
^DD(164.25,"IX",.01)=""
^DD(164.25,"IX",1)=""
^DD(164.25,"RQ",.02)=""
^DD(164.3,0)="FIELD^NL^2^3"
^DD(164.3,0,"DDA")="N"
^DD(164.3,0,"DT")="2920218"
^DD(164.3,0,"IX","B",164.3,.01)=""
^DD(164.3,0,"IX","C",164.31,.01)=""
^DD(164.3,0,"NM","OTHER STAGING FOR ONCOLOGY")=""
^DD(164.3,0,"PT",165.5,39)=""
^DD(164.3,0,"VER")="2.0"
^DD(164.3,0,"VR")="2.11"
^DD(164.3,0,"VRPK")="ONC"
^DD(164.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(164.3,.01,1,0)="^.1"
^DD(164.3,.01,1,1,0)="164.3^B"
^DD(164.3,.01,1,1,1)="S ^ONCO(164.3,""B"",$E(X,1,30),DA)="""""
^DD(164.3,.01,1,1,2)="K ^ONCO(164.3,""B"",$E(X,1,30),DA)"
^DD(164.3,.01,3)="Answer must be 1-30 characters in length."
^DD(164.3,.01,21,0)="^^1^1^2920528^"
^DD(164.3,.01,21,1,0)="RECORDS THE NAME."
^DD(164.3,.01,"DT")="2920218"
^DD(164.3,1,0)="TEXT^F^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(164.3,1,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(164.3,1,21,0)="^^1^1^2920528^"
^DD(164.3,1,21,1,0)="FREE TEXT FIELD RECORDING TEXT."
^DD(164.3,2,0)="SITE^164.31PA^^1;0"
^DD(164.3,2,21,0)="^^1^1^2930930^^"
^DD(164.3,2,21,1,0)="POINTS TO FILE CONTAINING SITE INFORMATION."
^DD(164.3,"B","NAME",.01)=""
^DD(164.3,"B","SITE",2)=""
^DD(164.3,"B","TEXT",1)=""
^DD(164.3,"GL",0,1,.01)=""
^DD(164.3,"GL",0,2,1)=""
^DD(164.3,"GL",1,0,2)=""
^DD(164.3,"IX",.01)=""
^DD(164.3,"RQ",.01)=""
^DD(164.3,"SB",164.31,2)=""
^DD(164.31,0)="SITE SUB-FIELD^NL^.01^1"
^DD(164.31,0,"IX","B",164.31,.01)=""
^DD(164.31,0,"NM","SITE")=""
^DD(164.31,0,"UP")="164.3"
^DD(164.31,.01,0)="SITE^MP164.2'^ONCO(164.2,^0;1^Q"
^DD(164.31,.01,1,0)="^.1^^-1"
^DD(164.31,.01,1,1,0)="164.31^B"
^DD(164.31,.01,1,1,1)="S ^ONCO(164.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(164.31,.01,1,1,2)="K ^ONCO(164.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(164.31,.01,1,2,0)="164.3^C"
^DD(164.31,.01,1,2,1)="S ^ONCO(164.3,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(164.31,.01,1,2,2)="K ^ONCO(164.3,""C"",$E(X,1,30),DA(1),DA)"
^DD(164.31,.01,1,2,"%D",0)="^^1^1^2930909"
^DD(164.31,.01,1,2,"%D",1,0)="Indexes file by SITE."
^DD(164.31,.01,21,0)="^^1^1^2930930^"
^DD(164.31,.01,21,1,0)="This is a site for which this alternative staging is appropriate."
^DD(164.31,.01,"DT")="2921006"
^DD(164.31,"B","SITE",.01)=""
^DD(164.31,"GL",0,1,.01)=""
^DD(164.31,"IX",.01)=""
^DD(164.33,0)="FIELD^^15^16"
^DD(164.33,0,"DDA")="N"
^DD(164.33,0,"DT")="3041021"
^DD(164.33,0,"IX","B",164.33,.01)=""
^DD(164.33,0,"IX","X",164.34,1)=""
^DD(164.33,0,"NM","AJCC STAGING GROUPS")=""
^DD(164.33,0,"PT",164,30)=""
^DD(164.33,0,"VER")="2.0"
^DD(164.33,0,"VR")="2.11"
^DD(164.33,0,"VRPK")="ONC"
^DD(164.33,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.33,.001,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(164.33,.001,21,0)="^^1^1^2920528^"
^DD(164.33,.001,21,1,0)="RECORDS NUMERIC VALUE."
^DD(164.33,.001,"DT")="2920624"
^DD(164.33,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(164.33,.01,1,0)="^.1"
^DD(164.33,.01,1,1,0)="164.33^B"
^DD(164.33,.01,1,1,1)="S ^ONCO(164.33,""B"",$E(X,1,30),DA)="""""
^DD(164.33,.01,1,1,2)="K ^ONCO(164.33,""B"",$E(X,1,30),DA)"
^DD(164.33,.01,3)="Answer must be 3-30 characters in length."
^DD(164.33,.01,21,0)="^.001^1^1^3020730^^^"
^DD(164.33,.01,21,1,0)="FREE TEXT FIELD RECORDING NAME."
^DD(164.33,.01,"DT")="3020730"
^DD(164.33,1,0)="T-CLASS ENCODING^164.331I^^T;0"
^DD(164.33,1,21,0)="^^1^1^2980109^^^^"
^DD(164.33,1,21,1,0)="FREE TEXT FIELD CONTAINING TUMOR CLASS ENCODING INFOMATION."
^DD(164.33,2,0)="N-CLASS ENCODING^164.332^^N;0"
^DD(164.33,2,21,0)="^^1^1^2971107^^^^"
^DD(164.33,2,21,1,0)="FREE TEXT FIELD CONTAINING LYMPH NODE CLASS ENCODING INFORMATION."
^DD(164.33,3,0)="STAGE GROUPING^164.333^^S;0"
^DD(164.33,3,21,0)="^.001^1^1^3020625^^^"
^DD(164.33,3,21,1,0)="FREE TEXT FIELD FOR RECORDING STAGE GROUPING INFORMATION."
^DD(164.33,4,0)="M-CLASS ENCODING^164.334^^M;0"
^DD(164.33,4,21,0)="^^1^1^2971118^^^^"
^DD(164.33,4,21,1,0)="FREE TEXT FIELD CONTAINING METASTASIS CLASS ENCODING INFORMATION."
^DD(164.33,5,0)="4TH EDITION M-CLASS ENCODING^164.335A^^M4;0"
^DD(164.33,5,21,0)="^^2^2^2971224^^^^"
^DD(164.33,5,21,1,0)="This multiple contains the M (distant metastasis) codes from the fourth"
^DD(164.33,5,21,2,0)="edition of the AJCC Manual on Staging of Cancer."
^DD(164.33,6,0)="5TH EDITION T-CODE HELP^164.336^^1;0"
^DD(164.33,7,0)="5TH EDITION N-CODE HELP^164.337^^2;0"
^DD(164.33,8,0)="5TH EDITION M-CODE HELP^164.338^^3;0"
^DD(164.33,10,0)="6TH EDITION (T) CODES^164.34^^T6;0"
^DD(164.33,11,0)="6TH EDITION (T) CODE HELP^164.3311^^4;0"
^DD(164.33,12,0)="6TH EDITION (N) CODES^164.3312^^N6;0"
^DD(164.33,13,0)="6TH EDITION (N) CODE HELP^164.3313^^5;0"
^DD(164.33,14,0)="6TH EDITION (M) CODES^164.3314^^M6;0"
^DD(164.33,14,21,0)="^.001^2^2^3020730^^^"
^DD(164.33,14,21,1,0)="This field contains the Sixth Edition Distant Metastasis (M) codes."
^DD(164.33,14,21,2,0)="M codes record the absence or presence of distant metastasis."
^DD(164.33,15,0)="6TH EDITION (M) CODE HELP^164.3315^^6;0"
^DD(164.33,"B","4TH EDITION M-CLASS ENCODING",5)=""
^DD(164.33,"B","5TH EDITION M-CODE HELP",8)=""
^DD(164.33,"B","5TH EDITION N-CODE HELP",7)=""
^DD(164.33,"B","5TH EDITION T-CODE HELP",6)=""
^DD(164.33,"B","6TH EDITION (M) CODE HELP",15)=""
^DD(164.33,"B","6TH EDITION (M) CODES",14)=""
^DD(164.33,"B","6TH EDITION (N) CODE HELP",13)=""
^DD(164.33,"B","6TH EDITION (N) CODES",12)=""
^DD(164.33,"B","6TH EDITION (T) CODE HELP",11)=""
^DD(164.33,"B","6TH EDITION (T) CODES",10)=""
^DD(164.33,"B","M-CLASS ENCODING",4)=""
^DD(164.33,"B","N-CLASS ENCODING",2)=""
^DD(164.33,"B","NAME",.01)=""
^DD(164.33,"B","NUMBER",.001)=""
^DD(164.33,"B","STAGE GROUPING",3)=""
^DD(164.33,"B","T-CLASS ENCODING",1)=""
^DD(164.33,"GL",0,1,.01)=""
^DD(164.33,"GL",1,0,6)=""
^DD(164.33,"GL",2,0,7)=""
^DD(164.33,"GL",3,0,8)=""
^DD(164.33,"GL",4,0,11)=""
^DD(164.33,"GL",5,0,13)=""
^DD(164.33,"GL",6,0,15)=""
^DD(164.33,"GL","M",0,4)=""
^DD(164.33,"GL","M4",0,5)=""
^DD(164.33,"GL","M6",0,14)=""
^DD(164.33,"GL","N",0,2)=""
^DD(164.33,"GL","N6",0,12)=""
^DD(164.33,"GL","S",0,3)=""
^DD(164.33,"GL","T",0,1)=""
^DD(164.33,"GL","T6",0,10)=""
^DD(164.33,"IX",.01)=""
^DD(164.33,"RQ",.01)=""
^DD(164.33,"SB",164.331,1)=""
^DD(164.33,"SB",164.3311,11)=""
^DD(164.33,"SB",164.3312,12)=""
^DD(164.33,"SB",164.3313,13)=""
^DD(164.33,"SB",164.3314,14)=""
^DD(164.33,"SB",164.3315,15)=""
^DD(164.33,"SB",164.332,2)=""
^DD(164.33,"SB",164.333,3)=""
^DD(164.33,"SB",164.334,4)=""
^DD(164.33,"SB",164.335,5)=""
^DD(164.33,"SB",164.336,6)=""
^DD(164.33,"SB",164.337,7)=""
^DD(164.33,"SB",164.338,8)=""
^DD(164.33,"SB",164.34,10)=""
^DD(164.331,0)="T-CLASS ENCODING SUB-FIELD^^.03^4"
^DD(164.331,0,"DT")="2980109"
^DD(164.331,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(164.331,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(164.331,0,"IX","ATX",164.331,.03)=""
^DD(164.331,0,"IX","B",164.331,.01)=""
^DD(164.331,0,"NM","T-CLASS ENCODING")=""
^DD(164.331,0,"UP")="164.33"
^DD(164.331,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.331,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(164.331,.001,21,0)="^^1^1^2930930^"
^DD(164.331,.001,21,1,0)="This is the sequence number for display."
^DD(164.331,.001,"DT")="2920130"
^DD(164.331,.01,0)="T-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X"
^DD(164.331,.01,1,0)="^.1"
^DD(164.331,.01,1,1,0)="164.331^B"
^DD(164.331,.01,1,1,1)="S ^ONCO(164.33,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(164.331,.01,1,1,2)="K ^ONCO(164.33,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(164.331,.01,3)="Answer must be 2-45 characters in length."
^DD(164.331,.01,21,0)="^^1^1^2971118^^"
^DD(164.331,.01,21,1,0)="This is the description of the tumor."
^DD(164.331,.01,"DT")="2971118"
^DD(164.331,.02,0)="CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;88:NA;is pu:Tis pu;is pd:Tis pd;^0;2^Q"
^DD(164.331,.02,21,0)="^^1^1^2980109^^^^"
^DD(164.331,.02,21,1,0)="This is the code from the AJCC Manual on Staging."
^DD(164.331,.02,"DT")="2980109"
^DD(164.331,.03,0)="ACOS CODE^S^X:TX;0:T0;IS:TIS;A:TA;1:T1;1A:T1A;1B:T1B;1C:T1C;2:T2;2A:T2A;2B:T2B;2C:T2C;3:T3;3A:T3A;3B:T3B;3C:T3C;4:T4;4A:T4A;4B:T4B;4C:T4C;88:NA;IS PU:TIS PU;IS PD:TIS PD;^0;3^Q"
^DD(164.331,.03,1,0)="^.1"
^DD(164.331,.03,1,1,0)="164.331^ATX^MUMPS"
^DD(164.331,.03,1,1,1)="S ^ONCO(164.33,DA(1),""T"",""X"",X)=DA"
^DD(164.331,.03,1,1,2)="K ^ONCO(164.33,DA(1),""T"",""X"",X)"
^DD(164.331,.03,1,1,"%D",0)="^^1^1^2920215^"
^DD(164.331,.03,1,1,"%D",1,0)="For lookup on output of code."
^DD(164.331,.03,1,1,"DT")="2920213"
^DD(164.331,.03,21,0)="^^1^1^2980109^^^^"
^DD(164.331,.03,21,1,0)="This is the T code as transmitted to ACOS."
^DD(164.331,.03,"DT")="2980109"
^DD(164.331,"B","ACOS CODE",.03)=""
^DD(164.331,"B","CODE",.02)=""
^DD(164.331,"B","NUMBER",.001)=""
^DD(164.331,"B","T-CLASS ENCODING",.01)=""
^DD(164.331,"GL",0,1,.01)=""
^DD(164.331,"GL",0,2,.02)=""
^DD(164.331,"GL",0,3,.03)=""
^DD(164.331,"IX",.01)=""
^DD(164.331,"IX",.03)=""
^DD(164.3311,0)="6TH EDITION (T) CODE HELP SUB-FIELD^^.01^1"
^DD(164.3311,0,"DT")="3020729"
^DD(164.3311,0,"NM","6TH EDITION (T) CODE HELP")=""
^DD(164.3311,0,"UP")="164.33"
^DD(164.3311,.01,0)="6TH EDITION (T) CODE HELP^W^^0;1^Q"
^DD(164.3311,.01,21,0)="^^2^2^3020729^"
^DD(164.3311,.01,21,1,0)="This field contains the full text of the Sixth Edition Primary Tumor (T)"
^DD(164.3311,.01,21,2,0)="code definitions."
^DD(164.3311,.01,"DT")="3020729"
^DD(164.3311,"B","6TH EDITION (T) CODE HELP",.01)=""
^DD(164.3311,"GL",0,1,.01)=""
^DD(164.3312,0)="6TH EDITION (N) CODES SUB-FIELD^^1^2"
^DD(164.3312,0,"DT")="3041021"
^DD(164.3312,0,"IX","B",164.3312,.01)=""
^DD(164.3312,0,"IX","X",164.3312,1)=""
^DD(164.3312,0,"NM","6TH EDITION (N) CODES")=""
^DD(164.3312,0,"UP")="164.33"
^DD(164.3312,.01,0)="DESCRIPTION^MRF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(164.3312,.01,1,0)="^.1"
^DD(164.3312,.01,1,1,0)="164.3312^B"
^DD(164.3312,.01,1,1,1)="S ^ONCO(164.33,DA(1),""N6"",""B"",$E(X,1,30),DA)="""""
^DD(164.3312,.01,1,1,2)="K ^ONCO(164.33,DA(1),""N6"",""B"",$E(X,1,30),DA)"
^DD(164.3312,.01,3)="Answer must be 1-50 characters in length."
^DD(164.3312,.01,21,0)="^.001^2^2^3020729^^"
^DD(164.3312,.01,21,1,0)="This field contains the Sixth Edition Regional Lymph Nodes (N) code"
^DD(164.3312,.01,21,2,0)="descriptions."
^DD(164.3312,.01,"DT")="3020729"
^DD(164.3312,1,0)="CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1bi:N1bi;1bii:N1bii;1biii:N1biii;1biv:N1biv;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;1mi:N1mi;0(i-):N0(i-);0(i+):N0(i+);0(mol-):N0(mol-);0(mol+):N0(mol+);^0;2^Q"
^DD(164.3312,1,1,0)="^.1^^-1"
^DD(164.3312,1,1,1,0)="164.3312^X^MUMPS"
^DD(164.3312,1,1,1,1)="S X=$TR(X,""abcdilmopsuvx"",""ABCDILMOPSUVX"") S ^ONCO(164.33,DA(1),""N6"",""X"",X)=DA"
^DD(164.3312,1,1,1,2)="S X=$TR(X,""abcdilmopsuvx"",""ABCDILMOPSUVX"") K ^ONCO(164.33,DA(1),""N6"",""X"",X)"
^DD(164.3312,1,1,1,"%D",0)="^.101^2^2^3041022^^^^"
^DD(164.3312,1,1,1,"%D",1,0)="This cross-reference is an uppercase cross-reference of the 6TH EDITION"
^DD(164.3312,1,1,1,"%D",2,0)="(N) CODES values."
^DD(164.3312,1,1,1,"DT")="3041022"
^DD(164.3312,1,21,0)="^.001^1^1^3041021^^^^"
^DD(164.3312,1,21,1,0)="This field contains the Sixth Edition Regional Lymph Nodes (N) codes."
^DD(164.3312,1,"DT")="3041022"
^DD(164.3312,"B","CODE",1)=""
^DD(164.3312,"B","DESCRIPTION",.01)=""
^DD(164.3312,"GL",0,1,.01)=""
^DD(164.3312,"GL",0,2,1)=""
^DD(164.3312,"IX",.01)=""
^DD(164.3312,"IX",1)=""
^DD(164.3312,"RQ",.01)=""
^DD(164.3313,0)="6TH EDITION (N) CODE HELP SUB-FIELD^^.01^1"
^DD(164.3313,0,"DT")="3020730"
^DD(164.3313,0,"NM","6TH EDITION (N) CODE HELP")=""
^DD(164.3313,0,"UP")="164.33"
^DD(164.3313,.01,0)="6TH EDITION (N) CODE HELP^W^^0;1^Q"
^DD(164.3313,.01,21,0)="^^2^2^3020730^"
^DD(164.3313,.01,21,1,0)="This field contains the full text of the Sixth Edition Regional Lymph"
^DD(164.3313,.01,21,2,0)="Nodes (N) code definitions."
^DD(164.3313,.01,"DT")="3020730"
^DD(164.3313,"B","6TH EDITION (N) CODE HELP",.01)=""
^DD(164.3313,"GL",0,1,.01)=""
^DD(164.3314,0)="6TH EDITION (M) CODES SUB-FIELD^^1^2"
^DD(164.3314,0,"DT")="3020730"
^DD(164.3314,0,"IX","B",164.3314,.01)=""
^DD(164.3314,0,"IX","M6",164.3314,1)=""
^DD(164.3314,0,"NM","6TH EDITION (M) CODES")=""
^DD(164.3314,0,"UP")="164.33"
^DD(164.3314,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(164.3314,.01,1,0)="^.1"
^DD(164.3314,.01,1,1,0)="164.3314^B"
^DD(164.3314,.01,1,1,1)="S ^ONCO(164.33,DA(1),""M6"",""B"",$E(X,1,30),DA)="""""
^DD(164.3314,.01,1,1,2)="K ^ONCO(164.33,DA(1),""M6"",""B"",$E(X,1,30),DA)"
^DD(164.3314,.01,3)="Answer must be 1-50 characters in length."
^DD(164.3314,.01,21,0)="^^2^2^3020730^"
^DD(164.3314,.01,21,1,0)="This field contains the Sixth Edition Distant Metastasis (M) code"
^DD(164.3314,.01,21,2,0)="descriptions."
^DD(164.3314,.01,"DT")="3020730"
^DD(164.3314,1,0)="CODE^S^X:MX;0:M0;1:M1;1a:M1a;1b:M1b;1c:M1c;88:NA;^0;2^Q"
^DD(164.3314,1,1,0)="^.1"
^DD(164.3314,1,1,1,0)="164.3314^M6^MUMPS"
^DD(164.3314,1,1,1,1)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") S ^ONCO(164.33,DA(1),""M6"",""X"",X)=DA"
^DD(164.3314,1,1,1,2)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") K ^ONCO(164.33,DA(1),""M6"",""X"",X)"
^DD(164.3314,1,1,1,"%D",0)="^^2^2^3020730^"
^DD(164.3314,1,1,1,"%D",1,0)="This cross-reference is an uppercase cross-reference of the 6TH EDITION"
^DD(164.3314,1,1,1,"%D",2,0)="M-CODE values."
^DD(164.3314,1,1,1,"DT")="3020730"
^DD(164.3314,1,21,0)="^^1^1^3020730^"
^DD(164.3314,1,21,1,0)="This field contains the Sixth Edition Distant Metastasis (M) codes."
^DD(164.3314,1,"DT")="3020730"
^DD(164.3314,"B","CODE",1)=""
^DD(164.3314,"B","DESCRIPTION",.01)=""
^DD(164.3314,"GL",0,1,.01)=""
^DD(164.3314,"GL",0,2,1)=""
^DD(164.3314,"IX",.01)=""
^DD(164.3314,"IX",1)=""
^DD(164.3315,0)="6TH EDITION (M) CODE HELP SUB-FIELD^^.01^1"
^DD(164.3315,0,"DT")="3020730"
^DD(164.3315,0,"NM","6TH EDITION (M) CODE HELP")=""
^DD(164.3315,0,"UP")="164.33"
^DD(164.3315,.01,0)="6TH EDITION (M) CODE HELP^W^^0;1^Q"
^DD(164.3315,.01,21,0)="^^2^2^3020730^"
^DD(164.3315,.01,21,1,0)="This field contains the full text of the Sixth Edition Distant Metastasis"
^DD(164.3315,.01,21,2,0)="(M) code definitions."
^DD(164.3315,.01,"DT")="3020730"
^DD(164.3315,"B","6TH EDITION (M) CODE HELP",.01)=""
^DD(164.3315,"GL",0,1,.01)=""
^DD(164.332,0)="N-CLASS ENCODING SUB-FIELD^^.03^4"
^DD(164.332,0,"DT")="2971107"
^DD(164.332,0,"IX","ANX",164.332,.03)=""
^DD(164.332,0,"IX","B",164.332,.01)=""
^DD(164.332,0,"NM","N-CLASS ENCODING")=""
^DD(164.332,0,"UP")="164.33"
^DD(164.332,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.332,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(164.332,.001,21,0)="^^1^1^2930930^"
^DD(164.332,.001,21,1,0)="This is the sequence number for display."
^DD(164.332,.001,"DT")="2920130"
^DD(164.332,.01,0)="N-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X"
^DD(164.332,.01,1,0)="^.1"
^DD(164.332,.01,1,1,0)="164.332^B"
^DD(164.332,.01,1,1,1)="S ^ONCO(164.33,DA(1),""N"",""B"",$E(X,1,30),DA)="""""
^DD(164.332,.01,1,1,2)="K ^ONCO(164.33,DA(1),""N"",""B"",$E(X,1,30),DA)"
^DD(164.332,.01,3)="Answer must be 2-45 characters in length."
^DD(164.332,.01,21,0)="^^1^1^2971107^^"
^DD(164.332,.01,21,1,0)="This is the description of regional lymph node involvement."
^DD(164.332,.01,"DT")="2971107"
^DD(164.332,.02,0)="CODE^S^X:NX;0:N0;1:N1;1a:N1a;1b:N1b;1bi:N1bi;1bii:N1bii;1biii:N1biii;1biv:N1biv;1c:N1c;2:N2;2a:N2a;2b:N2b;2c:N2c;3:N3;3a:N3a;3b:N3b;3c:N3c;88:NA;^0;2^Q"
^DD(164.332,.02,21,0)="^^1^1^2971107^^^"
^DD(164.332,.02,21,1,0)="This is the code from the AJCC Manual on Staging."
^DD(164.332,.02,"DT")="2971107"
^DD(164.332,.03,0)="ACOS CODE^S^X:NX;0:N0;1:N1;1A:N1A;1B:N1B;1BI:N1BI;1BII:N1BII;1BIII:N1BIII;1BIV:N1BIV;1C:N1C;2:N2;2A:N2A;2B:N2B;2C:N2C;3:N3;3A:N3A;3B:N3B;3C:N3C;88:NA;^0;3^Q"
^DD(164.332,.03,1,0)="^.1"
^DD(164.332,.03,1,1,0)="164.332^ANX^MUMPS"
^DD(164.332,.03,1,1,1)="S ^ONCO(164.33,DA(1),""N"",""X"",X)=DA"
^DD(164.332,.03,1,1,2)="K ^ONCO(164.33,DA(1),""N"",""X"",X)"
^DD(164.332,.03,1,1,"%D",0)="^^1^1^2920215^"
^DD(164.332,.03,1,1,"%D",1,0)="Used for lookup on output of code."
^DD(164.332,.03,1,1,"DT")="2920213"
^DD(164.332,.03,21,0)="^^1^1^2971107^^^^"
^DD(164.332,.03,21,1,0)="This is the code in ACOS reporting format."
^DD(164.332,.03,"DT")="2971107"
^DD(164.332,"B","ACOS CODE",.03)=""
^DD(164.332,"B","CODE",.02)=""
^DD(164.332,"B","N-CLASS ENCODING",.01)=""
^DD(164.332,"B","NUMBER",.001)=""
^DD(164.332,"GL",0,1,.01)=""
^DD(164.332,"GL",0,2,.02)=""
^DD(164.332,"GL",0,3,.03)=""
^DD(164.332,"IX",.01)=""
^DD(164.332,"IX",.03)=""
^DD(164.333,0)="STAGE GROUPING SUB-FIELD^^.03^4"
^DD(164.333,0,"DT")="2921003"
^DD(164.333,0,"IX","B",164.333,.01)=""
^DD(164.333,0,"IX","X",164.333,.03)=""
^DD(164.333,0,"NM","STAGE GROUPING")=""
^DD(164.333,0,"UP")="164.33"
^DD(164.333,.001,0)="NUMBER^NJ4,1^^ ^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""2N.N) X"
^DD(164.333,.001,3)="Type a Number between 1 and 10, 1 Decimal Digit"
^DD(164.333,.001,21,0)="^^1^1^2930930^"
^DD(164.333,.001,21,1,0)="This is the sequence number for display."
^DD(164.333,.001,"DT")="2920720"
^DD(164.333,.01,0)="STAGE GROUPING^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(164.333,.01,1,0)="^.1"
^DD(164.333,.01,1,1,0)="164.333^B"
^DD(164.333,.01,1,1,1)="S ^ONCO(164.33,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(164.333,.01,1,1,2)="K ^ONCO(164.33,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(164.333,.01,3)="Answer must be 1-10 characters in length."
^DD(164.333,.01,21,0)="^^1^1^2930930^^"
^DD(164.333,.01,21,1,0)="This is the stage group code."
^DD(164.333,.01,"DT")="2920130"
^DD(164.333,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>100!($L(X)<3) X"
^DD(164.333,.02,3)="Answer must be 3-100 characters in length."
^DD(164.333,.02,21,0)="^^1^1^2930930^"
^DD(164.333,.02,21,1,0)="This is the description of the stage grouping."
^DD(164.333,.02,"DT")="2920130"
^DD(164.333,.03,0)="FIELD#20^RS^1:I;1E:IE;2:II;2E:IIE;3:III;3E:IIIE;3S:IIIS;3ES:IIIES;4:IV;^0;3^Q"
^DD(164.333,.03,1,0)="^.1"
^DD(164.333,.03,1,1,0)="164.333^X"
^DD(164.333,.03,1,1,1)="S ^ONCO(164.33,DA(1),""S"",""X"",$E(X,1,30),DA)="""""
^DD(164.333,.03,1,1,2)="K ^ONCO(164.33,DA(1),""S"",""X"",$E(X,1,30),DA)"
^DD(164.333,.03,1,1,"%D",0)="^^1^1^2921003^"
^DD(164.333,.03,1,1,"%D",1,0)="Select proper code."
^DD(164.333,.03,1,1,"DT")="2921003"
^DD(164.333,.03,3)="Code stored in field #20 file 165.5"
^DD(164.333,.03,21,0)="^^1^1^2930930^"
^DD(164.333,.03,21,1,0)="This is the ICDO-Topography Code from the ONCOLOGY PRIMARY File."
^DD(164.333,.03,"DT")="2921003"
^DD(164.333,"B","DESCRIPTION",.02)=""
^DD(164.333,"B","FIELD#20",.03)=""
^DD(164.333,"B","NUMBER",.001)=""
^DD(164.333,"B","STAGE GROUPING",.01)=""
^DD(164.333,"GL",0,1,.01)=""
^DD(164.333,"GL",0,2,.02)=""
^DD(164.333,"GL",0,3,.03)=""
^DD(164.333,"IX",.01)=""
^DD(164.333,"IX",.03)=""
^DD(164.333,"RQ",.03)=""
^DD(164.334,0)="M-CLASS ENCODING SUB-FIELD^^.03^3"
^DD(164.334,0,"DT")="2971118"
^DD(164.334,0,"IX","AMX",164.334,.03)=""
^DD(164.334,0,"IX","B",164.334,.01)=""
^DD(164.334,0,"NM","M-CLASS ENCODING")=""
^DD(164.334,0,"UP")="164.33"
^DD(164.334,.01,0)="M-CLASS ENCODING^MF^^0;1^K:$L(X)>45!($L(X)<2) X"
^DD(164.334,.01,1,0)="^.1"
^DD(164.334,.01,1,1,0)="164.334^B"
^DD(164.334,.01,1,1,1)="S ^ONCO(164.33,DA(1),""M"",""B"",$E(X,1,30),DA)="""""
^DD(164.334,.01,1,1,2)="K ^ONCO(164.33,DA(1),""M"",""B"",$E(X,1,30),DA)"
^DD(164.334,.01,3)="Answer must be 2-45 characters in length."
^DD(164.334,.01,21,0)="^^1^1^2971118^^"
^DD(164.334,.01,21,1,0)="This is the description of distant metastasis"
^DD(164.334,.01,"DT")="2971118"
^DD(164.334,.02,0)="CODE^S^X:MX;0:M0;1:M1;1a:M1a;1b:M1b;1c:M1c;88:NA;^0;2^Q"
^DD(164.334,.02,21,0)="^^1^1^2971118^^^^"
^DD(164.334,.02,21,1,0)="This is the code from the AJCC Manual on Staging."
^DD(164.334,.02,"DT")="2971118"
^DD(164.334,.03,0)="ACOS CODE^S^X:MX;0:M0;1:M1;1A:M1A;1B:M1B;1C:M1C;88:NA;^0;3^Q"
^DD(164.334,.03,1,0)="^.1"
^DD(164.334,.03,1,1,0)="164.334^AMX^MUMPS"
^DD(164.334,.03,1,1,1)="S ^ONCO(164.33,DA(1),""M"",""X"",X)=DA"
^DD(164.334,.03,1,1,2)="K ^ONCO(164.33,DA(1),""M"",""X"",X)"
^DD(164.334,.03,1,1,3)="DO NOT DELETE"
^DD(164.334,.03,1,1,"%D",0)="^^1^1^2920215^"
^DD(164.334,.03,1,1,"%D",1,0)="Used for output for M code."
^DD(164.334,.03,1,1,"DT")="2920215"
^DD(164.334,.03,21,0)="^^1^1^2971118^^^"
^DD(164.334,.03,21,1,0)="This is the code as transmitted to ACoS."
^DD(164.334,.03,"DT")="2971118"
^DD(164.334,"B","ACOS CODE",.03)=""
^DD(164.334,"B","CODE",.02)=""
^DD(164.334,"B","M-CLASS ENCODING",.01)=""
^DD(164.334,"GL",0,1,.01)=""
^DD(164.334,"GL",0,2,.02)=""
^DD(164.334,"GL",0,3,.03)=""
^DD(164.334,"IX",.01)=""
^DD(164.334,"IX",.03)=""
^DD(164.335,0)="4TH EDITION M-CLASS ENCODING SUB-FIELD^^2^3"
^DD(164.335,0,"DT")="2971224"
^DD(164.335,0,"IX","AC",164.335,2)=""
^DD(164.335,0,"IX","B",164.335,.01)=""
^DD(164.335,0,"NM","4TH EDITION M-CLASS ENCODING")=""
^DD(164.335,0,"UP")="164.33"
^DD(164.335,.01,0)="4TH EDITION M-CLASS ENCODING^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(164.335,.01,1,0)="^.1"
^DD(164.335,.01,1,1,0)="164.335^B"
^DD(164.335,.01,1,1,1)="S ^ONCO(164.33,DA(1),""M4"",""B"",$E(X,1,30),DA)="""""
^DD(164.335,.01,1,1,2)="K ^ONCO(164.33,DA(1),""M4"",""B"",$E(X,1,30),DA)"
^DD(164.335,.01,3)="Answer must be 2-60 characters in length."
^DD(164.335,.01,21,0)="^^2^2^2971224^^^"
^DD(164.335,.01,21,1,0)="This is the description of distant metastases from the 4th edition of"
^DD(164.335,.01,21,2,0)="the AJCC Manual on Staging of Cancer."
^DD(164.335,.01,"DT")="2971224"
^DD(164.335,1,0)="CODE^S^x:Mx;0:M0;1:M1;1a:M1a;1b:M1b;1c:M1c;88:NA;^0;2^Q"
^DD(164.335,1,21,0)="^^1^1^2960301^^"
^DD(164.335,1,21,1,0)="This is the code from the AJCC Manual on Staging."
^DD(164.335,1,"DT")="2960301"
^DD(164.335,2,0)="ACOS CODE^S^X:MX;0:M0;1:M1;1A:M1A;1B:M1B;1C:M1C;88:NA;^0;3^Q"
^DD(164.335,2,1,0)="^.1"
^DD(164.335,2,1,1,0)="164.335^AC^MUMPS"
^DD(164.335,2,1,1,1)="S ^ONCO(164.33,DA(1),""M4"",""X"",X)=DA"
^DD(164.335,2,1,1,2)="K ^ONCO(164.33,DA(1),""M4"",""X"",X)"
^DD(164.335,2,1,1,"%D",0)="^^1^1^2930910^"
^DD(164.335,2,1,1,"%D",1,0)="Indexes the sub-file by AJCC Manual 4th edition M codes."
^DD(164.335,2,1,1,"DT")="2930609"
^DD(164.335,2,21,0)="^^1^1^2960301^^"
^DD(164.335,2,21,1,0)="This is the M code as transmitted to ACoS."
^DD(164.335,2,"DT")="2960301"
^DD(164.335,"B","4TH EDITION M-CLASS ENCODING",.01)=""
^DD(164.335,"B","ACOS CODE",2)=""
^DD(164.335,"B","CODE",1)=""
^DD(164.335,"GL",0,1,.01)=""
^DD(164.335,"GL",0,2,1)=""
^DD(164.335,"GL",0,3,2)=""
^DD(164.335,"IX",.01)=""
^DD(164.335,"IX",2)=""
^DD(164.336,0)="5TH EDITION T-CODE HELP SUB-FIELD^^.01^1"
^DD(164.336,0,"DT")="2971222"
^DD(164.336,0,"NM","5TH EDITION T-CODE HELP")=""
^DD(164.336,0,"UP")="164.33"
^DD(164.336,.01,0)="5TH EDITION T-CODE HELP^W^^0;1^Q"
^DD(164.336,.01,"DT")="2971222"
^DD(164.336,"B","5TH EDITION T-CODE HELP",.01)=""
^DD(164.336,"GL",0,1,.01)=""
^DD(164.337,0)="5TH EDITION N-CODE HELP SUB-FIELD^^.01^1"
^DD(164.337,0,"DT")="2971223"
^DD(164.337,0,"NM","5TH EDITION N-CODE HELP")=""
^DD(164.337,0,"UP")="164.33"
^DD(164.337,.01,0)="5TH EDITION N-CODE HELP^W^^0;1^Q"
^DD(164.337,.01,"DT")="2971223"
^DD(164.337,"B","5TH EDITION N-CODE HELP",.01)=""
^DD(164.337,"GL",0,1,.01)=""
^DD(164.338,0)="5TH EDITION M-CODE HELP SUB-FIELD^^.01^1"
^DD(164.338,0,"DT")="2971223"
^DD(164.338,0,"NM","5TH EDITION M-CODE HELP")=""
^DD(164.338,0,"UP")="164.33"
^DD(164.338,.01,0)="5TH EDITION M-CODE HELP^W^^0;1^Q"
^DD(164.338,.01,"DT")="2971223"
^DD(164.338,"B","5TH EDITION M-CODE HELP",.01)=""
^DD(164.338,"GL",0,1,.01)=""
^DD(164.34,0)="6TH EDITION (T) CODES SUB-FIELD^^1^2"
^DD(164.34,0,"DT")="3020717"
^DD(164.34,0,"IX","B",164.34,.01)=""
^DD(164.34,0,"NM","6TH EDITION (T) CODES")=""
^DD(164.34,0,"UP")="164.33"
^DD(164.34,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(164.34,.01,1,0)="^.1"
^DD(164.34,.01,1,1,0)="164.34^B"
^DD(164.34,.01,1,1,1)="S ^ONCO(164.33,DA(1),""T6"",""B"",$E(X,1,30),DA)="""""
^DD(164.34,.01,1,1,2)="K ^ONCO(164.33,DA(1),""T6"",""B"",$E(X,1,30),DA)"
^DD(164.34,.01,3)="Answer must be 1-50 characters in length."
^DD(164.34,.01,"DT")="3020717"
^DD(164.34,1,0)="CODE^S^X:TX;0:T0;is:Tis;a:Ta;1:T1;1a:T1a;1a1:T1a1;1a2:T1a2;1b:T1b;1c:T1c;2:T2;2a:T2a;2b:T2b;2c:T2c;3:T3;3a:T3a;3b:T3b;3bi:Tbi;3bii:T3bii;3c:T3c;4:T4;4a:T4a;4b:T4b;4c:T4c;4d:T4d;88:NA;1mic:T1mic;1b1:T1b1;1b2:T1b2;^0;2^Q"
^DD(164.34,1,1,0)="^.1"
^DD(164.34,1,1,1,0)="164.33^X^MUMPS"
^DD(164.34,1,1,1,1)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") S ^ONCO(164.33,DA(1),""T6"",""X"",X)=DA"
^DD(164.34,1,1,1,2)="S X=$TR(X,""abcdimpsuvx"",""ABCDIMPSUVX"") K ^ONCO(164.33,DA(1),""T6"",""X"",X)"
^DD(164.34,1,1,1,"%D",0)="^^2^2^3020717^"
^DD(164.34,1,1,1,"%D",1,0)="This cross-reference is an uppercase cross-reference of the 6TH EDITION"
^DD(164.34,1,1,1,"%D",2,0)="T-CODE values."
^DD(164.34,1,1,1,"DT")="3020717"
^DD(164.34,1,"DT")="3020717"
^DD(164.34,"B","CODE",1)=""
^DD(164.34,"B","DESCRIPTION",.01)=""
^DD(164.34,"GL",0,1,.01)=""
^DD(164.34,"GL",0,2,1)=""
^DD(164.34,"IX",.01)=""
^DD(164.34,"IX",1)=""
^DD(164.4,0)="FIELD^^1^2"
^DD(164.4,0,"DDA")="N"
^DD(164.4,0,"IX","B",164.4,.01)=""
^DD(164.4,0,"IX","NM",164.41,.01)=""
^DD(164.4,0,"NM","COMMON CANCERS")=""
^DD(164.4,0,"PT",160.044,1)=""
^DD(164.4,0,"VR")="2.11"
^DD(164.4,.01,0)="NAME^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(164.4,.01,1,0)="^.1"
^DD(164.4,.01,1,1,0)="164.4^B"
^DD(164.4,.01,1,1,1)="S ^ONCO(164.4,""B"",$E(X,1,30),DA)="""""
^DD(164.4,.01,1,1,2)="K ^ONCO(164.4,""B"",$E(X,1,30),DA)"
^DD(164.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(164.4,.01,21,0)="^^1^1^2920528^"
^DD(164.4,.01,21,1,0)="FREE TEXT FIELD FOR RECORDING THE NAMES."
^DD(164.4,1,0)="X-REF^164.41^^1;0"
^DD(164.4,1,21,0)="^^1^1^2930930^^"
^DD(164.4,1,21,1,0)="FREE TEXT CROSS REFERENCE."
^DD(164.4,"B","NAME",.01)=""
^DD(164.4,"B","X-REF",1)=""
^DD(164.4,"GL",0,1,.01)=""
^DD(164.4,"GL",1,0,1)=""
^DD(164.4,"IX",.01)=""
^DD(164.4,"RQ",.01)=""
^DD(164.4,"SB",164.41,1)=""
^DD(164.41,0)="X-REF SUB-FIELD^NL^.01^1"
^DD(164.41,0,"NM","X-REF")=""
^DD(164.41,0,"UP")="164.4"
^DD(164.41,.01,0)="X-REF^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(164.41,.01,1,0)="^.1"
^DD(164.41,.01,1,1,0)="164.4^NM"
^DD(164.41,.01,1,1,1)="S ^ONCO(164.4,""NM"",$E(X,1,30),DA(1),DA)="""""
^DD(164.41,.01,1,1,2)="K ^ONCO(164.4,""NM"",$E(X,1,30),DA(1),DA)"
^DD(164.41,.01,1,1,"%D",0)="^^1^1^2930909"
^DD(164.41,.01,1,1,"%D",1,0)="Indexes file by X-REF."
^DD(164.41,.01,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(164.41,.01,21,0)="^^1^1^2930930^"
^DD(164.41,.01,21,1,0)="This is the free text cross-reference."
^DD(164.41,"B","X-REF",.01)=""
^DD(164.41,"GL",0,1,.01)=""
^DD(164.41,"IX",.01)=""
^DD(164.42,0)="FIELD^^2^4"
^DD(164.42,0,"DDA")="N"
^DD(164.42,0,"DT")="3050624"
^DD(164.42,0,"IX","B",164.42,.01)=""
^DD(164.42,0,"NM","PRIMARY CANCER STATUS CODE")=""
^DD(164.42,0,"PT",164.42,1)=""
^DD(164.42,0,"PT",165.5,95)=""
^DD(164.42,0,"PT",165.573,.02)=""
^DD(164.42,0,"VR")="2.11"
^DD(164.42,0,"VRPK")="ONC"
^DD(164.42,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.42,.001,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(164.42,.001,21,0)="^^1^1^2930930^"
^DD(164.42,.001,21,1,0)="This is the numeric code assigned by ACoS."
^DD(164.42,.001,"DT")="2930505"
^DD(164.42,.01,0)="DESCRIPTION^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(164.42,.01,1,0)="^.1"
^DD(164.42,.01,1,1,0)="164.42^B"
^DD(164.42,.01,1,1,1)="S ^ONCO(164.42,""B"",$E(X,1,30),DA)="""""
^DD(164.42,.01,1,1,2)="K ^ONCO(164.42,""B"",$E(X,1,30),DA)"
^DD(164.42,.01,1,1,"DT")="2930505"
^DD(164.42,.01,3)="Answer must be 3-40 characters in length."
^DD(164.42,.01,21,0)="^^1^1^2930505^^"
^DD(164.42,.01,21,1,0)="This is the description corresponding to the numeric code."
^DD(164.42,.01,"DT")="2930505"
^DD(164.42,1,0)="DAM EQUIVALENT^P164.42'^ONCO(164.42,^0;2^Q"
^DD(164.42,1,21,0)="^^2^2^2930505^"
^DD(164.42,1,21,1,0)="This is the equivalent code from the Data Acquisition Manual "
^DD(164.42,1,21,2,0)="for cancer status codes that do not conform to DAM."
^DD(164.42,1,"DT")="2930505"
^DD(164.42,2,0)="SHORT DESCRIPTION^F^^0;3^K:$L(X)>24!($L(X)<3) X"
^DD(164.42,2,3)="Answer must be 3-24 characters in length."
^DD(164.42,2,21,0)="^.001^1^1^3050624^^^"
^DD(164.42,2,21,1,0)="This field contains brief text to facilitate multi-columnar displays."
^DD(164.42,2,"DT")="3050624"
^DD(164.42,"B","DAM EQUIVALENT",1)=""
^DD(164.42,"B","DESCRIPTION",.01)=""
^DD(164.42,"B","NUMBER",.001)=""
^DD(164.42,"B","SHORT DESCRIPTION",2)=""
^DD(164.42,"GL",0,1,.01)=""
^DD(164.42,"GL",0,2,1)=""
^DD(164.42,"GL",0,3,2)=""
^DD(164.42,"IX",.01)=""
^DD(164.42,"RQ",.01)=""
^DD(164.43,0)="FIELD^^2^4"
^DD(164.43,0,"DDA")="N"
^DD(164.43,0,"DT")="2960703"
^DD(164.43,0,"ID",1)="W ?37,$P(^(0),U,2)"
^DD(164.43,0,"IX","B",164.43,.01)=""
^DD(164.43,0,"IX","C",164.43,.01)=""
^DD(164.43,0,"IX","D",164.43,1)=""
^DD(164.43,0,"NM","GRADE")=""
^DD(164.43,0,"PT",165.5,24)=""
^DD(164.43,0,"VR")="2.11"
^DD(164.43,0,"VRPK")="ONC"
^DD(164.43,.001,0)="CODE^NJ2,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.43,.001,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(164.43,.001,21,0)="^^1^1^2930528^"
^DD(164.43,.001,21,1,0)="This field contains the code identifying the grade of tumor."
^DD(164.43,.001,"DT")="2930601"
^DD(164.43,.01,0)="SHORT DESCRIPTION^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(164.43,.01,1,0)="^.1"
^DD(164.43,.01,1,1,0)="164.43^B"
^DD(164.43,.01,1,1,1)="S ^ONCO(164.43,""B"",$E(X,1,30),DA)="""""
^DD(164.43,.01,1,1,2)="K ^ONCO(164.43,""B"",$E(X,1,30),DA)"
^DD(164.43,.01,1,2,0)="164.43^C^MUMPS"
^DD(164.43,.01,1,2,1)="D UCASE^ONCOU S ^ONCO(164.43,""C"",$E(X,1,30),DA)="""""
^DD(164.43,.01,1,2,2)="D UCASE^ONCOU K ^ONCO(164.43,""C"",$E(X,1,30),DA)"
^DD(164.43,.01,1,2,"%D",0)="^^1^1^3061117^"
^DD(164.43,.01,1,2,"%D",1,0)="This cross-reference allows for uppercase look-up by SHORT DESCRIPTION."
^DD(164.43,.01,1,2,"DT")="3061117"
^DD(164.43,.01,3)="Answer must be 1-30 characters in length."
^DD(164.43,.01,21,0)="^^1^1^2960703^^"
^DD(164.43,.01,21,1,0)="This is the brief indicator of grade as it will appear on the abstract."
^DD(164.43,.01,"DT")="3061117"
^DD(164.43,1,0)="EXPLANATION^F^^0;2^K:$L(X)>120!($L(X)<1) X"
^DD(164.43,1,1,0)="^.1"
^DD(164.43,1,1,1,0)="164.43^D^MUMPS"
^DD(164.43,1,1,1,1)="D UCASE^ONCOU S ^ONCO(164.43,""D"",$E(X,1,30),DA)="""""
^DD(164.43,1,1,1,2)="D UCASE^ONCOU K ^ONCO(164.43,""D"",$E(X,1,30),DA)"
^DD(164.43,1,1,1,"%D",0)="^^1^1^3061117^"
^DD(164.43,1,1,1,"%D",1,0)="This cross-reference allows for uppercase lookup by EXPLANATION."
^DD(164.43,1,1,1,"DT")="3061117"
^DD(164.43,1,3)="Answer must be 1-120 characters in length."
^DD(164.43,1,21,0)="^^1^1^2930601^^"
^DD(164.43,1,21,1,0)="This field contains text that guides the user in selecting among codes."
^DD(164.43,1,"DT")="3061117"
^DD(164.43,2,0)="ABBREVIATION^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^DD(164.43,2,3)="Answer must be 1-2 characters in length."
^DD(164.43,2,21,0)="^^1^1^2930601^"
^DD(164.43,2,21,1,0)="This field contains a 1-2 character abbreviation for tabular reports."
^DD(164.43,2,"DT")="2930601"
^DD(164.43,"B","ABBREVIATION",2)=""
^DD(164.43,"B","CODE",.001)=""
^DD(164.43,"B","EXPLANATION",1)=""
^DD(164.43,"B","SHORT DESCRIPTION",.01)=""
^DD(164.43,"GL",0,1,.01)=""
^DD(164.43,"GL",0,2,1)=""
^DD(164.43,"GL",0,3,2)=""
^DD(164.43,"IX",.01)=""
^DD(164.43,"IX",1)=""
^DD(164.43,"RQ",.01)=""
^DD(164.45,0)="FIELD^^2^3"
^DD(164.45,0,"DDA")="N"
^DD(164.45,0,"DT")="2970425"
^DD(164.45,0,"ID",1)="W ?10,$P(^(0),U,2)"
^DD(164.45,0,"IX","B",164.45,.01)=""
^DD(164.45,0,"IX","C",164.45,1)=""
^DD(164.45,0,"NM","AJCC STAGE GROUP")=""
^DD(164.45,0,"VR")="2.11"
^DD(164.45,0,"VRPK")="ONC"
^DD(164.45,.01,0)="CODE^RF^^0;1^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(164.45,.01,1,0)="^.1"
^DD(164.45,.01,1,1,0)="164.45^B"
^DD(164.45,.01,1,1,1)="S ^ONCO(164.45,""B"",$E(X,1,30),DA)="""""
^DD(164.45,.01,1,1,2)="K ^ONCO(164.45,""B"",$E(X,1,30),DA)"
^DD(164.45,.01,3)="Answer must be 1-6 characters in length."
^DD(164.45,.01,21,0)="^^2^2^2961120^^^"
^DD(164.45,.01,21,1,0)="This is the alphanumeric code assigned to the stage for AJCC reporting"
^DD(164.45,.01,21,2,0)="purposes."
^DD(164.45,.01,"DT")="2930713"
^DD(164.45,1,0)="EQUIVALENT MANUAL CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(164.45,1,1,0)="^.1"
^DD(164.45,1,1,1,0)="164.45^C"
^DD(164.45,1,1,1,1)="S ^ONCO(164.45,""C"",$E(X,1,30),DA)="""""
^DD(164.45,1,1,1,2)="K ^ONCO(164.45,""C"",$E(X,1,30),DA)"
^DD(164.45,1,1,1,"%D",0)="^^1^1^2930713^"
^DD(164.45,1,1,1,"%D",1,0)="This cross-reference makes changes between roman and numeric codes."
^DD(164.45,1,1,1,"DT")="2930713"
^DD(164.45,1,3)="Answer must be 1-30 characters in length."
^DD(164.45,1,21,0)="^^2^2^2961120^^^"
^DD(164.45,1,21,1,0)="This is the equivalent code from the AJCC Manual on Staging of Cancer,"
^DD(164.45,1,21,2,0)="used to facilitate translations between Arabic and Roman numbering."
^DD(164.45,1,"DT")="2960712"
^DD(164.45,2,0)="STAGE TYPE^F^^0;3^K:$L(X)>5!($L(X)<1) X"
^DD(164.45,2,3)="Answer must be 1-5 characters in length."
^DD(164.45,2,"DT")="2970425"
^DD(164.45,"B","CODE",.01)=""
^DD(164.45,"B","EQUIVALENT MANUAL CODE",1)=""
^DD(164.45,"B","STAGE TYPE",2)=""
^DD(164.45,"GL",0,1,.01)=""
^DD(164.45,"GL",0,2,1)=""
^DD(164.45,"GL",0,3,2)=""
^DD(164.45,"IX",.01)=""
^DD(164.45,"IX",1)=""
^DD(164.45,"RQ",.01)=""
^DD(164.46,0)="FIELD^^.01^2"
^DD(164.46,0,"DDA")="N"
^DD(164.46,0,"DT")="2930720"
^DD(164.46,0,"IX","B",164.46,.01)=""
^DD(164.46,0,"IX","C",164.46,.01)=""
^DD(164.46,0,"NM","RACE CODE FOR ONCOLOGY")=""
^DD(164.46,0,"PT",160,8)=""
^DD(164.46,0,"PT",160,8.1)=""
^DD(164.46,0,"PT",160,8.2)=""
^DD(164.46,0,"PT",160,8.3)=""
^DD(164.46,0,"PT",160,8.4)=""
^DD(164.46,0,"VR")="2.11"
^DD(164.46,0,"VRPK")="ONC"
^DD(164.46,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.46,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(164.46,.001,21,0)="^^1^1^2930720^"
^DD(164.46,.001,21,1,0)="This is the race code as listed in the ACOS Data Acquisition Manual."
^DD(164.46,.001,"DT")="2930720"
^DD(164.46,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(164.46,.01,1,0)="^.1"
^DD(164.46,.01,1,1,0)="164.46^B"
^DD(164.46,.01,1,1,1)="S ^ONCO(164.46,""B"",$E(X,1,30),DA)="""""
^DD(164.46,.01,1,1,2)="K ^ONCO(164.46,""B"",$E(X,1,30),DA)"
^DD(164.46,.01,1,2,0)="164.46^C^MUMPS"
^DD(164.46,.01,1,2,1)="D UCASE^ONCOU S ^ONCO(164.46,""C"",$E(X,1,30),DA)="""""
^DD(164.46,.01,1,2,2)="D UCASE^ONCOU K ^ONCO(164.46,""C"",$E(X,1,30),DA)"
^DD(164.46,.01,1,2,"DT")="3001213"
^DD(164.46,.01,3)="Answer must be 3-50 characters in length."
^DD(164.46,.01,21,0)="^^1^1^2930720^"
^DD(164.46,.01,21,1,0)="This is the name of the race or race group."
^DD(164.46,.01,23,0)="^^1^1^2930720^"
^DD(164.46,.01,23,1,0)="This file is referenced directly by routine ONCOAID."
^DD(164.46,.01,"DT")="3001213"
^DD(164.46,"B","NAME",.01)=""
^DD(164.46,"B","NUMBER",.001)=""
^DD(164.46,"GL",0,1,.01)=""
^DD(164.46,"IX",.01)=""
^DD(164.46,"RQ",.01)=""
^DD(164.5,0)="FIELD^^4^5"
^DD(164.5,0,"DDA")="N"
^DD(164.5,0,"DT")="2981106"
^DD(164.5,0,"ID",.1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(164.5,.1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(164.5,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(164.5,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(164.5,0,"IX","B",164.5,.01)=""
^DD(164.5,0,"NM","SEER CODE SET")=""
^DD(164.5,0,"PT",164,43)=""
^DD(164.5,0,"PT",164,43.01)=""
^DD(164.5,0,"PT",164,43.02)=""
^DD(164.5,0,"PT",164,53)=""
^DD(164.5,0,"PT",164,53.01)=""
^DD(164.5,0,"PT",164,53.02)=""
^DD(164.5,0,"PT",164,63)=""
^DD(164.5,0,"PT",164,63.01)=""
^DD(164.5,0,"PT",164.1,43)=""
^DD(164.5,0,"PT",164.1,43.01)=""
^DD(164.5,0,"PT",164.1,43.02)=""
^DD(164.5,0,"PT",164.1,53)=""
^DD(164.5,0,"PT",164.1,53.01)=""
^DD(164.5,0,"PT",164.1,53.02)=""
^DD(164.5,0,"PT",164.2,43)=""
^DD(164.5,0,"PT",164.2,43.01)=""
^DD(164.5,0,"PT",164.2,43.02)=""
^DD(164.5,0,"PT",164.2,53)=""
^DD(164.5,0,"PT",164.2,53.01)=""
^DD(164.5,0,"PT",164.2,53.02)=""
^DD(164.5,0,"PT",164.5,3)=""
^DD(164.5,0,"PT",169.3,43)=""
^DD(164.5,0,"PT",169.3,43.01)=""
^DD(164.5,0,"PT",169.3,43.02)=""
^DD(164.5,0,"PT",169.3,53)=""
^DD(164.5,0,"PT",169.3,53.01)=""
^DD(164.5,0,"PT",169.3,53.02)=""
^DD(164.5,0,"VR")="2.11"
^DD(164.5,0,"VRPK")="ONC"
^DD(164.5,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(164.5,.01,1,0)="^.1"
^DD(164.5,.01,1,1,0)="164.5^B"
^DD(164.5,.01,1,1,1)="S ^ONCO(164.5,""B"",$E(X,1,30),DA)="""""
^DD(164.5,.01,1,1,2)="K ^ONCO(164.5,""B"",$E(X,1,30),DA)"
^DD(164.5,.01,3)="Answer must be 3-60 characters in length."
^DD(164.5,.01,21,0)="^^2^2^2940708^^^"
^DD(164.5,.01,21,1,0)="This is the topographical and/or histo-morphological description of the"
^DD(164.5,.01,21,2,0)="type of cancer to which this set of codes applies."
^DD(164.5,.01,"DT")="2940708"
^DD(164.5,.1,0)="CODE SET TYPE^S^E:EXTENSION;L:LYMPH NODES;S:SURGERY;^0;5^Q"
^DD(164.5,.1,21,0)="^^2^2^2940713^^^"
^DD(164.5,.1,21,1,0)="This field identifies whether the codes apply to extension, lymph nodes, "
^DD(164.5,.1,21,2,0)="or surgery."
^DD(164.5,.1,"DT")="2940713"
^DD(164.5,1,0)="EDITION^S^1:FIRST EDITION;2:SECOND EDITION;3:THIRD EDITION;^0;2^Q"
^DD(164.5,1,21,0)="^^4^4^2981106^^^"
^DD(164.5,1,21,1,0)="This field identifies the edition of the appropriate manual that contains"
^DD(164.5,1,21,2,0)="this set of codes. The appropriate manuals are SEER Extent of Disease "
^DD(164.5,1,21,3,0)="Codes (for extension and lymph node codes) and SEER Coding Instructions "
^DD(164.5,1,21,4,0)="(for surgery codes)."
^DD(164.5,1,"DT")="2981106"
^DD(164.5,3,0)="NEXT EDITION CODE SET^P164.5'^ONCO(164.5,^0;4^Q"
^DD(164.5,3,21,0)="^^2^2^2940707^"
^DD(164.5,3,21,1,0)="This field points to the record that contains the set of codes that"
^DD(164.5,3,21,2,0)="supersedes this set."
^DD(164.5,3,"DT")="2940707"
^DD(164.5,4,0)="CODE/DESCRIPTION^164.54A^^1;0"
^DD(164.5,4,21,0)="^^1^1^2940715^^"
^DD(164.5,4,21,1,0)="This multiple contains the codes and descriptions for this set."
^DD(164.5,"B","CODE SET TYPE",.1)=""
^DD(164.5,"B","CODE/DESCRIPTION",4)=""
^DD(164.5,"B","EDITION",1)=""
^DD(164.5,"B","NAME",.01)=""
^DD(164.5,"B","NEXT EDITION CODE SET",3)=""
^DD(164.5,"GL",0,1,.01)=""
^DD(164.5,"GL",0,2,1)=""
^DD(164.5,"GL",0,4,3)=""
^DD(164.5,"GL",0,5,.1)=""
^DD(164.5,"GL",1,0,4)=""
^DD(164.5,"IX",.01)=""
^DD(164.5,"RQ",.01)=""
^DD(164.5,"SB",164.54,4)=""
^DD(164.52,0)="FIELD^^3^3"
^DD(164.52,0,"DDA")="N"
^DD(164.52,0,"DT")="3031210"
^DD(164.52,0,"IX","B",164.52,.01)=""
^DD(164.52,0,"IX","C",164.522,.01)=""
^DD(164.52,0,"NM","ONC CS SITE-SPECIFIC FACTORS")=""
^DD(164.52,0,"VR")="2.11"
^DD(164.52,0,"VRPK")="ONC"
^DD(164.52,.01,0)="NAME^RF^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(164.52,.01,1,0)="^.1"
^DD(164.52,.01,1,1,0)="164.52^B"
^DD(164.52,.01,1,1,1)="S ^ONCO(164.52,""B"",$E(X,1,30),DA)="""""
^DD(164.52,.01,1,1,2)="K ^ONCO(164.52,""B"",$E(X,1,30),DA)"
^DD(164.52,.01,3)="Answer must be 3-70 characters in length."
^DD(164.52,.01,21,0)="^.001^1^1^3031210^^^^"
^DD(164.52,.01,21,1,0)="The CS SITE-SPECIFIC FACTOR 1 name."
^DD(164.52,.01,"DT")="3031210"
^DD(164.52,2,0)="PRIMARY SITE^164.522P^^2;0"
^DD(164.52,3,0)="FACTOR^NJ1,0^^0;2^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.52,3,3)="Type a Number between 1 and 6, 0 Decimal Digits"
^DD(164.52,3,21,0)="^^1^1^3031208^"
^DD(164.52,3,21,1,0)="The CS SITE-SPECIFIC FACTOR number."
^DD(164.52,3,"DT")="3031208"
^DD(164.52,"B","FACTOR",3)=""
^DD(164.52,"B","NAME",.01)=""
^DD(164.52,"B","PRIMARY SITE",2)=""
^DD(164.52,"GL",0,1,.01)=""
^DD(164.52,"GL",0,2,3)=""
^DD(164.52,"GL",2,0,2)=""
^DD(164.52,"IX",.01)=""
^DD(164.52,"RQ",.01)=""
^DD(164.52,"SB",164.522,2)=""
^DD(164.522,0)="PRIMARY SITE SUB-FIELD^^.01^1"
^DD(164.522,0,"DT")="3031128"
^DD(164.522,0,"IX","B",164.522,.01)=""
^DD(164.522,0,"NM","PRIMARY SITE")=""
^DD(164.522,0,"UP")="164.52"
^DD(164.522,.01,0)="PRIMARY SITE^MP164'^ONCO(164,^0;1^Q"
^DD(164.522,.01,1,0)="^.1"
^DD(164.522,.01,1,1,0)="164.522^B"
^DD(164.522,.01,1,1,1)="S ^ONCO(164.52,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(164.522,.01,1,1,2)="K ^ONCO(164.52,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(164.522,.01,1,2,0)="164.52^C"
^DD(164.522,.01,1,2,1)="S ^ONCO(164.52,""C"",$E(X,1,30)_""-""_$P(^ONCO(164.52,DA(1),0),U,2),DA(1),DA)="""""
^DD(164.522,.01,1,2,2)="K ^ONCO(164.52,""C"",$E(X,1,30)_""-""_$P(^ONCO(164.52,DA(1),0),U,2),DA(1),DA)"
^DD(164.522,.01,1,2,"DT")="3031128"
^DD(164.522,.01,21,0)="^^1^1^3031128^"
^DD(164.522,.01,21,1,0)="The primary site topography codes associated with this factor."
^DD(164.522,.01,"DT")="3031128"
^DD(164.522,"B","PRIMARY SITE",.01)=""
^DD(164.522,"GL",0,1,.01)=""
^DD(164.522,"IX",.01)=""
^DD(164.54,0)="CODE/DESCRIPTION SUB-FIELD^^.01^2"
^DD(164.54,0,"DT")="2940707"
^DD(164.54,0,"IX","B",164.54,.01)=""
^DD(164.54,0,"IX","C",164.54,.01)=""
^DD(164.54,0,"NM","CODE/DESCRIPTION")=""
^DD(164.54,0,"UP")="164.5"
^DD(164.54,.001,0)="CODE^NJ3,0^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(164.54,.001,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(164.54,.001,21,0)="^^1^1^2940707^"
^DD(164.54,.001,21,1,0)="This field contains the code, plus an offset of 1 to allow for a code of 0."
^DD(164.54,.001,"DT")="2940707"
^DD(164.54,.01,0)="DESCRIPTION^MF^^0;1^K:$L(X)>70!($L(X)<3) X"
^DD(164.54,.01,1,0)="^.1"
^DD(164.54,.01,1,1,0)="164.54^B"
^DD(164.54,.01,1,1,1)="S ^ONCO(164.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(164.54,.01,1,1,2)="K ^ONCO(164.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(164.54,.01,1,1,"DT")="3010921"
^DD(164.54,.01,1,2,0)="164.54^C"
^DD(164.54,.01,1,2,1)="D UCASE^ONCOU S ^ONCO(164.5,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(164.54,.01,1,2,2)="D UCASE^ONCOU K ^ONCO(164.5,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(164.54,.01,1,2,"DT")="3011015"
^DD(164.54,.01,3)="Answer must be 3-70 characters in length."
^DD(164.54,.01,21,0)="^^1^1^2940715^^"
^DD(164.54,.01,21,1,0)="This field contains the description of extent."
^DD(164.54,.01,"DT")="3011015"
^DD(164.54,"B","CODE",.001)=""
^DD(164.54,"B","DESCRIPTION",.01)=""
^DD(164.54,"GL",0,1,.01)=""
^DD(164.54,"IX",.01)=""
^DD(164.6,0)="FIELD^^1^2"
^DD(164.6,0,"DDA")="N"
^DD(164.6,0,"DT")="2961203"
^DD(164.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(164.6,0,"IX","B",164.6,.01)=""
^DD(164.6,0,"IX","C",164.6,1)=""
^DD(164.6,0,"NM","TYPE OF STAGING SYSTEM (PEDIATRIC)")=""
^DD(164.6,0,"PT",165.5,849)=""
^DD(164.6,0,"VR")="2.11"
^DD(164.6,0,"VRPK")="ONC"
^DD(164.6,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(164.6,.01,1,0)="^.1"
^DD(164.6,.01,1,1,0)="164.6^B"
^DD(164.6,.01,1,1,1)="S ^ONCO(164.6,""B"",$E(X,1,30),DA)="""""
^DD(164.6,.01,1,1,2)="K ^ONCO(164.6,""B"",$E(X,1,30),DA)"
^DD(164.6,.01,3)="Answer must be 2 characters in length."
^DD(164.6,.01,21,0)="^^1^1^2961203^"
^DD(164.6,.01,21,1,0)="This field contains the TYPE OF STAGING SYSTEM (PEDIATRIC) code."
^DD(164.6,.01,"DT")="2961203"
^DD(164.6,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(164.6,1,1,0)="^.1"
^DD(164.6,1,1,1,0)="164.6^C"
^DD(164.6,1,1,1,1)="S ^ONCO(164.6,""C"",$E(X,1,30),DA)="""""
^DD(164.6,1,1,1,2)="K ^ONCO(164.6,""C"",$E(X,1,30),DA)"
^DD(164.6,1,1,1,"DT")="2970505"
^DD(164.6,1,3)="Answer must be 1-60 characters in length."
^DD(164.6,1,21,0)="^^1^1^2961203^"
^DD(164.6,1,21,1,0)="This field contains the TYPE OF STAGING SYSTEM (PEDIATRIC) code description."
^DD(164.6,1,"DT")="2970505"
^DD(164.6,"B","CODE",.01)=""
^DD(164.6,"B","DESCRIPTION",1)=""
^DD(164.6,"GL",0,1,.01)=""
^DD(164.6,"GL",0,2,1)=""
^DD(164.6,"IX",.01)=""
^DD(164.6,"IX",1)=""
^DD(164.6,"RQ",.01)=""
^DD(164.7,0)="FIELD^^1^2"
^DD(164.7,0,"DDA")="N"
^DD(164.7,0,"DT")="2970822"
^DD(164.7,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(164.7,0,"IX","B",164.7,.01)=""
^DD(164.7,0,"IX","C",164.7,1)=""
^DD(164.7,0,"IX","D",164.7,1)=""
^DD(164.7,0,"NM","RADIATION TREATMENT VOLUME")=""
^DD(164.7,0,"PT",165.5,125)=""
^DD(164.7,0,"PT",165.5,129)=""
^DD(164.7,0,"VR")="2.11"
^DD(164.7,0,"VRPK")="ONC"
^DD(164.7,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(164.7,.01,1,0)="^.1"
^DD(164.7,.01,1,1,0)="164.7^B"
^DD(164.7,.01,1,1,1)="S ^ONCO(164.7,""B"",$E(X,1,30),DA)="""""
^DD(164.7,.01,1,1,2)="K ^ONCO(164.7,""B"",$E(X,1,30),DA)"
^DD(164.7,.01,3)="Answer must be 2 characters in length."
^DD(164.7,.01,21,0)="^^1^1^2970822^^"
^DD(164.7,.01,21,1,0)="Record the RADIATION TREATMENT VOLUME code."
^DD(164.7,.01,"DT")="2970822"
^DD(164.7,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(164.7,1,1,0)="^.1"
^DD(164.7,1,1,1,0)="164.7^C"
^DD(164.7,1,1,1,1)="S ^ONCO(164.7,""C"",$E(X,1,30),DA)="""""
^DD(164.7,1,1,1,2)="K ^ONCO(164.7,""C"",$E(X,1,30),DA)"
^DD(164.7,1,1,1,"%D",0)="^^1^1^2981029^^"
^DD(164.7,1,1,1,"%D",1,0)="This cross-reference permits lookup by DESCRIPTION."
^DD(164.7,1,1,1,"DT")="2981013"
^DD(164.7,1,1,2,0)="164.7^D^MUMPS"
^DD(164.7,1,1,2,1)="D UCASE^ONCOU S ^ONCO(164.7,""D"",$E(X,1,30),DA)="""""
^DD(164.7,1,1,2,2)="D UCASE^ONCOU K ^ONCO(164.7,""D"",$E(X,1,30),DA)"
^DD(164.7,1,1,2,"%D",0)="^^1^1^2981029^"
^DD(164.7,1,1,2,"%D",1,0)="This cross-reference allows lookup by uppercase DESCRIPTION values."
^DD(164.7,1,1,2,"DT")="2981013"
^DD(164.7,1,3)="Answer must be 1-40 characters in length."
^DD(164.7,1,21,0)="^^1^1^2970822^"
^DD(164.7,1,21,1,0)="Record the RADIATION TREATMENT VOLUME code description."
^DD(164.7,1,"DT")="2981013"
^DD(164.7,"B","CODE",.01)=""
^DD(164.7,"B","DESCRIPTION",1)=""
^DD(164.7,"GL",0,1,.01)=""
^DD(164.7,"GL",0,2,1)=""
^DD(164.7,"IX",.01)=""
^DD(164.7,"IX",1)=""
^DD(164.7,"RQ",.01)=""
^DD(164.8,0)="FIELD^^1^2"
^DD(164.8,0,"DDA")="N"
^DD(164.8,0,"DT")="2970822"
^DD(164.8,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(164.8,0,"IX","B",164.8,.01)=""
^DD(164.8,0,"NM","RADIATION COMPLETION STATUS")=""
^DD(164.8,0,"PT",165.5,128)=""
^DD(164.8,0,"VR")="2.11"
^DD(164.8,0,"VRPK")="ONC"
^DD(164.8,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(164.8,.01,1,0)="^.1"
^DD(164.8,.01,1,1,0)="164.8^B"
^DD(164.8,.01,1,1,1)="S ^ONCO(164.8,""B"",$E(X,1,30),DA)="""""
^DD(164.8,.01,1,1,2)="K ^ONCO(164.8,""B"",$E(X,1,30),DA)"
^DD(164.8,.01,3)="Answer must be 1 character in length."
^DD(164.8,.01,21,0)="^^1^1^2970822^"
^DD(164.8,.01,21,1,0)="Record the RADIATION COMPLETION STATUS code."
^DD(164.8,.01,"DT")="2970822"
^DD(164.8,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(164.8,1,3)="Answer must be 1-40 characters in length."
^DD(164.8,1,21,0)="^^1^1^2970822^"
^DD(164.8,1,21,1,0)="Record the RADIATION COMPLETION STATUS code description."
^DD(164.8,1,"DT")="2970822"
^DD(164.8,"B","CODE",.01)=""
^DD(164.8,"B","DESCRIPTION",1)=""
^DD(164.8,"GL",0,1,.01)=""
^DD(164.8,"GL",0,2,1)=""
^DD(164.8,"IX",.01)=""
^DD(164.8,"RQ",.01)=""
^DD(164.9,0)="FIELD^^1^2"
^DD(164.9,0,"DDA")="N"
^DD(164.9,0,"DT")="3000303"
^DD(164.9,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(164.9,0,"IX","B",164.9,.01)=""
^DD(164.9,0,"IX","C",164.9,1)=""
^DD(164.9,0,"NM","WHO HISTOLOGICAL CLASSIFICATION")=""
^DD(164.9,0,"PT",165.5,1308)=""
^DD(164.9,0,"VR")="2.11"
^DD(164.9,0,"VRPK")="ONC"
^DD(164.9,.01,0)="CODE^RF^^0;1^K:$L(X)>13!($L(X)<5)!'(X'?1P.E) X"
^DD(164.9,.01,1,0)="^.1"
^DD(164.9,.01,1,1,0)="164.9^B"
^DD(164.9,.01,1,1,1)="S ^ONCO(164.9,""B"",$E(X,1,30),DA)="""""
^DD(164.9,.01,1,1,2)="K ^ONCO(164.9,""B"",$E(X,1,30),DA)"
^DD(164.9,.01,3)="Answer must be 5-13 characters in length."
^DD(164.9,.01,21,0)="^^4^4^3000306^"
^DD(164.9,.01,21,1,0)=""
^DD(164.9,.01,21,2,0)="This field contains the WHO Histological Classification of Intracranial/"
^DD(164.9,.01,21,3,0)="CNS Tumors codes."
^DD(164.9,.01,21,4,0)=""
^DD(164.9,.01,"DT")="3000306"
^DD(164.9,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(164.9,1,1,0)="^.1"
^DD(164.9,1,1,1,0)="164.9^C"
^DD(164.9,1,1,1,1)="S ^ONCO(164.9,""C"",$E(X,1,30),DA)="""""
^DD(164.9,1,1,1,2)="K ^ONCO(164.9,""C"",$E(X,1,30),DA)"
^DD(164.9,1,1,1,"DT")="3000302"
^DD(164.9,1,3)="Answer must be 3-50 characters in length."
^DD(164.9,1,21,0)="^.001^4^4^3000613^^"
^DD(164.9,1,21,1,0)=""
^DD(164.9,1,21,2,0)="This field contains the WHO Histological Classification of Intracranial/CNS"
^DD(164.9,1,21,3,0)="Tumors code descriptions."
^DD(164.9,1,21,4,0)=""
^DD(164.9,1,"DT")="3000302"
^DD(164.9,"B","CODE",.01)=""
^DD(164.9,"B","DESCRIPTION",1)=""
^DD(164.9,"GL",0,1,.01)=""
^DD(164.9,"GL",0,2,1)=""
^DD(164.9,"IX",.01)=""
^DD(164.9,"IX",1)=""
^DD(164.9,"RQ",.01)=""
^DD(164.9,"RQ",1)=""
^DD(165,0)="FIELD^NL^100^21"
^DD(165,0,"DT")="2920610"
^DD(165,0,"ID",1)="W ?33,@(""$P($P($C(59)_$S($D(^DD(165,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(165,0,"IX","B",165,.01)=""
^DD(165,0,"IX","BT",165,1)=""
^DD(165,0,"IX","C",165,99)=""
^DD(165,0,"NM","ONCOLOGY CONTACT")=""
^DD(165,0,"PT",160,15.1)=""
^DD(165,0,"PT",160.03,1)=""
^DD(165,0,"PT",160.06,2)=""
^DD(165,0,"PT",160.13,.01)=""
^DD(165,0,"PT",165.5,2)=""
^DD(165,0,"PT",165.5,2.1)=""
^DD(165,0,"PT",165.5,2.2)=""
^DD(165,0,"PT",165.5,2.3)=""
^DD(165,0,"PT",165.5,2.4)=""
^DD(165,0,"PT",165.5,66)=""
^DD(165,0,"VR")="2.11"
^DD(165,.01,0)="CONTACT^RFOX^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) K:X'?1AN.ANP X"
^DD(165,.01,1,0)="^.1"
^DD(165,.01,1,1,0)="165^B"
^DD(165,.01,1,1,1)="S ^ONCO(165,""B"",$E(X,1,30),DA)="""""
^DD(165,.01,1,1,2)="K ^ONCO(165,""B"",$E(X,1,30),DA)"
^DD(165,.01,3)="Answer must be 3-30 characters in length."
^DD(165,.01,21,0)="^^1^1^2920528^"
^DD(165,.01,21,1,0)="FREE TEXT FIELD FOR RECORDING THE CONTACT."
^DD(165,.01,"DEL",.01,0)="I 1 ;deletion only permitted with ^DIK"
^DD(165,.01,"DT")="2920716"
^DD(165,.011,0)="FIRST-LAST^CJ30^^ ; ^S Y(165,.011,1)=$S($D(^ONCO(165,D0,0)):^(0),1:"""") S X=$P(Y(165,.011,1),U,1),X=$P(X,"","",2)_"" ""_$P(X,"","",1)"
^DD(165,.011,9)="^"
^DD(165,.011,9.01)="165^.01"
^DD(165,.011,9.1)="ONCOFIRSTNAME LASTNAME(CONTACT)"
^DD(165,.011,21,0)="^^1^1^2931210^^^^"
^DD(165,.011,21,1,0)="COMPUTED FIELD RECORDING THE FIRST NAME AND THEN LAST NAME OF CONTACT."
^DD(165,.111,0)="STREET ADDRESS 1^RF^^.11;1^K:$L(X)>30!($L(X)<2) X"
^DD(165,.111,3)="Answer must be 2-30 characters in length."
^DD(165,.111,21,0)="^^1^1^2920505^"
^DD(165,.111,21,1,0)="Primary street address for contact - ususally only one needed"
^DD(165,.111,"DT")="2920505"
^DD(165,.112,0)="STREET ADDRESS 2^F^^.11;2^K:$L(X)>30!($L(X)<2) X"
^DD(165,.112,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(165,.112,21,0)="^^1^1^2920528^"
^DD(165,.112,21,1,0)="SECOND LINE OF CONTACT ADDRESS."
^DD(165,.112,"DT")="2871223"
^DD(165,.113,0)="STREET ADDRESS 3^F^^.11;3^K:$L(X)>30!($L(X)<2) X"
^DD(165,.113,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(165,.113,21,0)="^^1^1^2920528^"
^DD(165,.113,21,1,0)="THIRD LINE OF CONTACT STREET ADDRESS."
^DD(165,.113,"DT")="2871223"
^DD(165,.119,0)="ZIP CODE^RP5.11'O^VIC(5.11,^.11;9^Q"
^DD(165,.119,2)="S Y(0)=Y S Y=$S(Y="""":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_"",""_$P(^DIC(5,$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_"" ""_$P(^VIC(5.11,Y,0),U,1),1:"""")"
^DD(165,.119,2.1)="S Y=$S(Y="""":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_"",""_$P(^DIC(5,$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_"" ""_$P(^VIC(5.11,Y,0),U,1),1:"""")"
^DD(165,.119,3)="Enter correct Zipcode"
^DD(165,.119,21,0)="^^1^1^2920528^"
^DD(165,.119,21,1,0)="POINTS TO THE ZIP CODE FILE."
^DD(165,.119,"DT")="2920505"
^DD(165,.1211,0)="TEMPORARY ADDRESS 1^F^^.121;1^K:$L(X)>30!($L(X)<2) X"
^DD(165,.1211,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(165,.1211,21,0)="^^1^1^2920528^"
^DD(165,.1211,21,1,0)="FREE TEXT FIELD FOR RECORDING A CONTACTS TEMPORARY ADDRESS."
^DD(165,.1211,"DT")="2871223"
^DD(165,.1212,0)="TEMPORARY ADDRESS 2^F^^.121;2^K:$L(X)>30!($L(X)<2) X"
^DD(165,.1212,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(165,.1212,21,0)="^^1^1^2920528^"
^DD(165,.1212,21,1,0)="FREE TEXT FIELD FOR RECORDING A SECOND TEMPORARY ADDRESS."
^DD(165,.1212,"DT")="2871223"
^DD(165,.1213,0)="TEMPORARY ADDRESS 3^F^^.121;3^K:$L(X)>30!($L(X)<2) X"
^DD(165,.1213,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(165,.1213,21,0)="^^1^1^2920528^"
^DD(165,.1213,21,1,0)="FREE TEXT FIELD FOR RECORDING A THIRD TEMPORARY ADDRESS."
^DD(165,.1213,"DT")="2871223"
^DD(165,.1217,0)="START DATE OF TEMP ADDRESS^D^^.121;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(165,.1217,21,0)="^^1^1^2920528^"
^DD(165,.1217,21,1,0)="RECORDS THE DATE A TEMPORARY ADDRESS IS IN USE."
^DD(165,.1217,"DT")="2871223"
^DD(165,.1218,0)="END DATE OF TEMP ADDRESS^D^^.121;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(165,.1218,21,0)="^^1^1^2920528^"
^DD(165,.1218,21,1,0)="RECORDS THE ENDING DATE FOR THE TEMPORARY ADDRESS."
^DD(165,.1218,"DT")="2871223"
^DD(165,.1219,0)="TEMPORARY ZIP CODE^P5.11'O^VIC(5.11,^.121;9^Q"
^DD(165,.1219,2)="S Y(0)=Y S Y=$S(Y="""":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_"",""_$P(^DIC(5,$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_"" ""_$P(^VIC(5.11,Y,0),U,1),1:"""")"
^DD(165,.1219,2.1)="S Y=$S(Y="""":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_"",""_$P(^DIC(5,$P(^VIC(5.1,$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_"" ""_$P(^VIC(5.11,Y,0),U,1),1:"""")"
^DD(165,.1219,21,0)="^^1^1^2920528^"
^DD(165,.1219,21,1,0)="POINTS TO THE ZIP CODE FILE FOR THE TEMPORARY ADDRESS."
^DD(165,.1219,"DT")="2881121"
^DD(165,.131,0)="PHONE^F^^.13;1^K:$L(X)>20!($L(X)<4) X"
^DD(165,.131,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(165,.131,21,0)="^^1^1^2920528^^"
^DD(165,.131,21,1,0)="TELEPHONE NUMBER"
^DD(165,.131,"DT")="2871223"
^DD(165,.132,0)="OFFICE PHONE^F^^.13;2^K:$L(X)>20!($L(X)<4) X"
^DD(165,.132,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(165,.132,21,0)="^^1^1^2920528^"
^DD(165,.132,21,1,0)="RECORDS A CONTACT'S OFFICE/BUSINESS TELEPHONE NUMBER."
^DD(165,.132,"DT")="2871223"
^DD(165,.133,0)="PHONE #3^F^^.13;3^K:$L(X)>20!($L(X)<4) X"
^DD(165,.133,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(165,.133,21,0)="^^1^1^2920528^"
^DD(165,.133,21,1,0)="RECORDS ADDITIONAL TELEPHONE NUMBER FOR CONTACT."
^DD(165,.133,"DT")="2871223"
^DD(165,.134,0)="PHONE #4^F^^.13;4^K:$L(X)>20!($L(X)<4) X"
^DD(165,.134,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(165,.134,21,0)="^^1^1^2920528^"
^DD(165,.134,21,1,0)="RECORDS ADDITIONAL TELEPHONE NUMBER FOR CONTACT."
^DD(165,.134,"DT")="2871223"
^DD(165,1,0)="TYPE^RS^1:PATIENT;2:PHYSICIAN;3:CONTACT PERSON;4:INSTITUTION;5:OTHER;6:GOVERNMENT AGENCY;^0;2^Q"
^DD(165,1,1,0)="^.1^^-1"
^DD(165,1,1,2,0)="165^BT^MUMPS"
^DD(165,1,1,2,1)="S ^ONCO(165,""B""_X,$P(^ONCO(165,DA,0),U),DA)="""""
^DD(165,1,1,2,2)="K ^ONCO(165,""B""_X,$P(^ONCO(165,DA,0),U),DA)"
^DD(165,1,1,2,"%D",0)="^^1^1^2930910^"
^DD(165,1,1,2,"%D",1,0)="Indexes the file by contact type."
^DD(165,1,1,2,"DT")="2920502"
^DD(165,1,3)="Contact Type will be linked to Letter Type"
^DD(165,1,21,0)="^^1^1^2920528^"
^DD(165,1,21,1,0)="RECORDS THE TYPE OF CONTACT."
^DD(165,1,"DT")="2920610"
^DD(165,2,0)="TITLE^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(165,2,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(165,2,21,0)="^^1^1^2920919^^"
^DD(165,2,21,1,0)="RECORDS THE TITLE OF THE CONTACT:  MR., MRS., MISS, ETC."
^DD(165,2,"DT")="2871223"
^DD(165,3,0)="COMMENTS^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(165,3,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(165,3,21,0)="^^1^1^2920528^"
^DD(165,3,21,1,0)="FREE TEXT FIELD FOR RECORDING ANY COMMENTS REGARDING THE CONTACT."
^DD(165,3,"DT")="2871223"
^DD(165,99,0)="VA HOSPITAL #^P4'^DIC(4,^VA;2^Q"
^DD(165,99,1,0)="^.1"
^DD(165,99,1,1,0)="165^C"
^DD(165,99,1,1,1)="S ^ONCO(165,""C"",$E(X,1,30),DA)="""""
^DD(165,99,1,1,2)="K ^ONCO(165,""C"",$E(X,1,30),DA)"
^DD(165,99,1,1,"%D",0)="^^1^1^2920610^"
^DD(165,99,1,1,"%D",1,0)="Provides lookup by VA Station number - giving user look and feel of DHCP."
^DD(165,99,1,1,"DT")="2920610"
^DD(165,99,3)="Select corresponding entry in Institution file"
^DD(165,99,21,0)="^^1^1^2920610^"
^DD(165,99,21,1,0)="Pointer to institution file to provide link with Va station number."
^DD(165,99,"DT")="2920610"
^DD(165,100,0)="VA PROVIDER #^P200'^VA(200,^VA;1^Q"
^DD(165,100,3)="Select corresponding entry in New Person File"
^DD(165,100,21,0)="^^1^1^2920610^"
^DD(165,100,21,1,0)="Pointer to New Person file to provide a link to single identity."
^DD(165,100,"DT")="2920610"
^DD(165,"B","COMMENTS",3)=""
^DD(165,"B","CONTACT",.01)=""
^DD(165,"B","END DATE OF TEMP ADDRESS",.1218)=""
^DD(165,"B","FIRST-LAST",.011)=""
^DD(165,"B","OFFICE PHONE",.132)=""
^DD(165,"B","PHONE",.131)=""
^DD(165,"B","PHONE #3",.133)=""
^DD(165,"B","PHONE #4",.134)=""
^DD(165,"B","START DATE OF TEMP ADDRESS",.1217)=""
^DD(165,"B","STREET ADDRESS 1",.111)=""
^DD(165,"B","STREET ADDRESS 2",.112)=""
^DD(165,"B","STREET ADDRESS 3",.113)=""
^DD(165,"B","TEMPORARY ADDRESS 1",.1211)=""
^DD(165,"B","TEMPORARY ADDRESS 2",.1212)=""
^DD(165,"B","TEMPORARY ADDRESS 3",.1213)=""
^DD(165,"B","TEMPORARY ZIP CODE",.1219)=""
^DD(165,"B","TITLE",2)=""
^DD(165,"B","TYPE",1)=""
^DD(165,"B","VA HOSPITAL #",99)=""
^DD(165,"B","VA PROVIDER #",100)=""
^DD(165,"B","ZIP CODE",.119)=""
^DD(165,"GL",0,1,.01)=""
^DD(165,"GL",0,2,1)=""
^DD(165,"GL",0,3,2)=""
^DD(165,"GL",0,4,3)=""
^DD(165,"GL",.11,1,.111)=""
^DD(165,"GL",.11,2,.112)=""
^DD(165,"GL",.11,3,.113)=""
^DD(165,"GL",.11,9,.119)=""
^DD(165,"GL",.121,1,.1211)=""
^DD(165,"GL",.121,2,.1212)=""
^DD(165,"GL",.121,3,.1213)=""
^DD(165,"GL",.121,7,.1217)=""
^DD(165,"GL",.121,8,.1218)=""
^DD(165,"GL",.121,9,.1219)=""
^DD(165,"GL",.13,1,.131)=""
^DD(165,"GL",.13,2,.132)=""
^DD(165,"GL",.13,3,.133)=""
^DD(165,"GL",.13,4,.134)=""
^DD(165,"GL","VA",1,100)=""
^DD(165,"GL","VA",2,99)=""
^DD(165,"IX",.01)=""
^DD(165,"IX",1)=""
^DD(165,"IX",99)=""
^DD(165,"RQ",.01)=""
^DD(165,"RQ",.111)=""
^DD(165,"RQ",.119)=""
^DD(165,"RQ",1)=""
^DD(165.1,0)="FIELD^NL^3^4"
^DD(165.1,0,"DDA")="N"
^DD(165.1,0,"DT")="2920227"
^DD(165.1,0,"IX","B",165.1,.01)=""
^DD(165.1,0,"IX","C",165.1,2)=""
^DD(165.1,0,"NM","FOLLOW-UP FORM LETTER")=""
^DD(165.1,0,"PT",160.06,6)=""
^DD(165.1,0,"VER")="2.0"
^DD(165.1,0,"VR")="2.11"
^DD(165.1,0,"VRPK")="ONC"
^DD(165.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(165.1,.01,1,0)="^.1"
^DD(165.1,.01,1,1,0)="165.1^B"
^DD(165.1,.01,1,1,1)="S ^ONCO(165.1,""B"",$E(X,1,30),DA)="""""
^DD(165.1,.01,1,1,2)="K ^ONCO(165.1,""B"",$E(X,1,30),DA)"
^DD(165.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(165.1,.01,21,0)="^^1^1^2920528^^"
^DD(165.1,.01,21,1,0)="Enter contact MD, Institution, or non-kin Oncology related contact."
^DD(165.1,.01,"DT")="2871216"
^DD(165.1,1,0)="MAIN FORM BODY^165.11^^1;0"
^DD(165.1,1,21,0)="^^2^2^2930930^^"
^DD(165.1,1,21,1,0)="WORD PROCESSING FIELDS RECORDING THE MAIN BODY OF THE CONTACT FORM"
^DD(165.1,1,21,2,0)="LETTERS."
^DD(165.1,2,0)="FORM TYPE^RS^1:PATIENT;2:PHYSICIAN;3:NEXT OF KIN;4:INSTITUTION;5:TUMOR REGISTRAR;6:DEATH INQUIRY;^0;2^Q"
^DD(165.1,2,1,0)="^.1"
^DD(165.1,2,1,1,0)="165.1^C"
^DD(165.1,2,1,1,1)="S ^ONCO(165.1,""C"",$E(X,1,30),DA)="""""
^DD(165.1,2,1,1,2)="K ^ONCO(165.1,""C"",$E(X,1,30),DA)"
^DD(165.1,2,1,1,3)="DO NOT DELETE"
^DD(165.1,2,1,1,"%D",0)="^^1^1^2920226^"
^DD(165.1,2,1,1,"%D",1,0)="Groups types of letters together."
^DD(165.1,2,1,1,"DT")="2920226"
^DD(165.1,2,3)="ENTER TYPE OF LETTER REQUIRED for Proper Selection"
^DD(165.1,2,21,0)="^^1^1^2920528^"
^DD(165.1,2,21,1,0)="RECORDS THE TYPE OF FORM TO BE USED IN CONTACT."
^DD(165.1,2,"DT")="2920227"
^DD(165.1,3,0)="DESCRIPTION^165.13^^2;0"
^DD(165.1,3,21,0)="^^2^2^2910507^"
^DD(165.1,3,21,1,0)="This field allows the Tumore Registrar to define and describe each"
^DD(165.1,3,21,2,0)="letter. Also it allows for the description of letters exported."
^DD(165.1,"B","DESCRIPTION",3)=""
^DD(165.1,"B","FORM TYPE",2)=""
^DD(165.1,"B","MAIN FORM BODY",1)=""
^DD(165.1,"B","NAME",.01)=""
^DD(165.1,"GL",0,1,.01)=""
^DD(165.1,"GL",0,2,2)=""
^DD(165.1,"GL",1,0,1)=""
^DD(165.1,"GL",2,0,3)=""
^DD(165.1,"IX",.01)=""
^DD(165.1,"IX",2)=""
^DD(165.1,"RQ",.01)=""
^DD(165.1,"RQ",2)=""
^DD(165.1,"SB",165.11,1)=""
^DD(165.1,"SB",165.13,3)=""
^DD(165.11,0)="MAIN FORM BODY SUB-FIELD^^.01^1"
^DD(165.11,0,"NM","MAIN FORM BODY")=""
^DD(165.11,0,"UP")="165.1"
^DD(165.11,.01,0)="MAIN FORM BODY^W^^0;1^Q"
^DD(165.11,.01,21,0)="^^1^1^2930930^"
^DD(165.11,.01,21,1,0)="This is a line of the main form body."
^DD(165.11,.01,"DT")="2871223"
^DD(165.11,"B","MAIN FORM BODY",.01)=""
^DD(165.11,"GL",0,1,.01)=""
^DD(165.13,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(165.13,0,"DT")="2910507"
^DD(165.13,0,"NM","DESCRIPTION")=""
^DD(165.13,0,"UP")="165.1"
^DD(165.13,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(165.13,.01,21,0)="^^1^1^2910507^"
^DD(165.13,.01,21,1,0)="Describes purpose of letter."
^DD(165.13,.01,"DT")="2910507"
^DD(165.13,"B","DESCRIPTION",.01)=""
^DD(165.13,"GL",0,1,.01)=""
^DD(165.2,0)="FIELD^NL^2^3"
^DD(165.2,0,"DDA")="N"
^DD(165.2,0,"DT")="2980722"
^DD(165.2,0,"ID",.02)="W ?38,$P(^(0),U,2)"
^DD(165.2,0,"IX","B",165.2,.01)=""
^DD(165.2,0,"IX","C",165.21,.01)=""
^DD(165.2,0,"IX","D",165.2,.02)=""
^DD(165.2,0,"IX","E",165.2,.01)=""
^DD(165.2,0,"NM","GEOCODES")=""
^DD(165.2,0,"PT",160,7)=""
^DD(165.2,0,"PT",160,21)=""
^DD(165.2,0,"VER")="2.0"
^DD(165.2,0,"VR")="2.11"
^DD(165.2,0,"VRPK")="ONC"
^DD(165.2,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(165.2,.01,1,0)="^.1"
^DD(165.2,.01,1,1,0)="165.2^B"
^DD(165.2,.01,1,1,1)="S ^ONCO(165.2,""B"",$E(X,1,30),DA)="""""
^DD(165.2,.01,1,1,2)="K ^ONCO(165.2,""B"",$E(X,1,30),DA)"
^DD(165.2,.01,1,2,0)="165.2^E^MUMPS"
^DD(165.2,.01,1,2,1)="D UCASE^ONCOU S ^ONCO(165.2,""E"",$E(X,1,30),DA)="""""
^DD(165.2,.01,1,2,2)="D UCASE^ONCOU K ^ONCO(165.2,""E"",$E(X,1,30),DA)"
^DD(165.2,.01,1,2,"%D",0)="^^1^1^2980721^"
^DD(165.2,.01,1,2,"%D",1,0)="This cross-reference allows uppercase lookup."
^DD(165.2,.01,1,2,"DT")="2980721"
^DD(165.2,.01,3)="Answer must be 3-40 characters in length."
^DD(165.2,.01,21,0)="^^1^1^2980721^^^^"
^DD(165.2,.01,21,1,0)="The SEER Geocode name."
^DD(165.2,.01,"DT")="2980721"
^DD(165.2,.02,0)="GEOCODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X?1.N) X"
^DD(165.2,.02,1,0)="^.1"
^DD(165.2,.02,1,1,0)="165.2^D"
^DD(165.2,.02,1,1,1)="S ^ONCO(165.2,""D"",$E(X,1,30),DA)="""""
^DD(165.2,.02,1,1,2)="K ^ONCO(165.2,""D"",$E(X,1,30),DA)"
^DD(165.2,.02,1,1,"%D",0)="^^1^1^2930909"
^DD(165.2,.02,1,1,"%D",1,0)="Indexes file by GEOCODE."
^DD(165.2,.02,3)="Answer must be 3 characters in length."
^DD(165.2,.02,21,0)="^^1^1^2980721^^"
^DD(165.2,.02,21,1,0)="The SEER Geocode 3-digit code."
^DD(165.2,.02,"DT")="2891224"
^DD(165.2,2,0)="XREF^165.21A^^1;0"
^DD(165.2,2,21,0)="^^1^1^2980722^^^^"
^DD(165.2,2,21,1,0)="CROSS REFERENCE."
^DD(165.2,"B","GEOCODE",.02)=""
^DD(165.2,"B","NAME",.01)=""
^DD(165.2,"B","XREF",2)=""
^DD(165.2,"GL",0,1,.01)=""
^DD(165.2,"GL",0,2,.02)=""
^DD(165.2,"GL",1,0,2)=""
^DD(165.2,"IX",.01)=""
^DD(165.2,"IX",.02)=""
^DD(165.2,"RQ",.01)=""
^DD(165.2,"SB",165.21,2)=""
^DD(165.21,0)="XREF SUB-FIELD^NL^.01^1"
^DD(165.21,0,"DT")="2980722"
^DD(165.21,0,"NM","XREF")=""
^DD(165.21,0,"UP")="165.2"
^DD(165.21,.01,0)="XREF^MF^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(165.21,.01,1,0)="^.1"
^DD(165.21,.01,1,1,0)="165.2^C"
^DD(165.21,.01,1,1,1)="S ^ONCO(165.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(165.21,.01,1,1,2)="K ^ONCO(165.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(165.21,.01,1,1,"%D",0)="^^1^1^2930909"
^DD(165.21,.01,1,1,"%D",1,0)="Indexes file by XREF."
^DD(165.21,.01,3)="Answer must be 1-40 characters in length."
^DD(165.21,.01,21,0)="^^1^1^2980722^^^"
^DD(165.21,.01,21,1,0)="This is the free text cross-reference."
^DD(165.21,.01,"DT")="2980722"
^DD(165.21,"B","XREF",.01)=""
^DD(165.21,"GL",0,1,.01)=""
^DD(165.21,"IX",.01)=""
^DD(165.5,0)="FIELD^^2000^1486"
^DD(165.5,0,"DDA")="N"
^DD(165.5,0,"DT")="2961112"
^DD(165.5,0,"ID",20)="S %I=Y,Y=$S('$D(^(2)):"""",$D(^ONCO(164,+$P(^(2),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(164,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(165.5,0,"ID","WRITE")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ONCO(160,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(160,.01,0),U,2) D Y^DIQ:Y]"""" W ?50,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(165.5,0,"IX","AA",165.5,.05)=""
^DD(165.5,0,"IX","AAD",165.5,90)=""
^DD(165.5,0,"IX","AAE",165.5,198)=""
^DD(165.5,0,"IX","AAY",165.5,.04)=""
^DD(165.5,0,"IX","AAY1",165.5,.07)=""
^DD(165.5,0,"IX","AC",165.5,.05)=""
^DD(165.5,0,"IX","ACAY",165.5,.07)=""
^DD(165.5,0,"IX","ACF",165.5,.01)=""
^DD(165.5,0,"IX","ACP",165.5,2)=""
^DD(165.5,0,"IX","ACP",165.5,2.1)=""
^DD(165.5,0,"IX","ACP",165.5,2.2)=""
^DD(165.5,0,"IX","ACP",165.5,2.3)=""
^DD(165.5,0,"IX","ACP",165.5,2.4)=""
^DD(165.5,0,"IX","ACP",165.5,66)=""
^DD(165.5,0,"IX","ACS",165.5,95)=""
^DD(165.5,0,"IX","AD",165.5,20)=""
^DD(165.5,0,"IX","ADX",165.5,3)=""
^DD(165.5,0,"IX","AE",165.5,.05)=""
^DD(165.5,0,"IX","AE",165.5,153)=""
^DD(165.5,0,"IX","AF",165.5,.05)=""
^DD(165.5,0,"IX","AFP",165.5,2.1)=""
^DD(165.5,0,"IX","AG",165.5,.042)=""
^DD(165.5,0,"IX","AG1",165.5,.04)=""
^DD(165.5,0,"IX","AGC",165.5,.04)=""
^DD(165.5,0,"IX","AH",165.5,22)=""
^DD(165.5,0,"IX","AI",165.5,58.2)=""
^DD(165.5,0,"IX","AI",165.5,58.6)=""
^DD(165.5,0,"IX","AJ",165.5,51.2)=""
^DD(165.5,0,"IX","AK",165.5,124)=""
^DD(165.5,0,"IX","AL",165.5,22.3)=""
^DD(165.5,0,"IX","AM",165.5,53.2)=""
^DD(165.5,0,"IX","AMP",165.5,2.2)=""
^DD(165.5,0,"IX","AN",165.5,12)=""
^DD(165.5,0,"IX","AN",165.5,54.2)=""
^DD(165.5,0,"IX","AO",165.5,55.2)=""
^DD(165.5,0,"IX","AOP3",165.5,2.3)=""
^DD(165.5,0,"IX","AOP4",165.5,2.4)=""
^DD(165.5,0,"IX","AP",165.5,57.2)=""
^DD(165.5,0,"IX","APC",165.5,2)=""
^DD(165.5,0,"IX","APC",165.5,2.1)=""
^DD(165.5,0,"IX","APC",165.5,2.2)=""
^DD(165.5,0,"IX","APC",165.5,2.3)=""
^DD(165.5,0,"IX","APC",165.5,2.4)=""
^DD(165.5,0,"IX","APC",165.5,66)=""
^DD(165.5,0,"IX","APCE",165.5,84)=""
^DD(165.5,0,"IX","APS",165.5,2)=""
^DD(165.5,0,"IX","APST",165.5,66)=""
^DD(165.5,0,"IX","AQ",165.5,58.1)=""
^DD(165.5,0,"IX","AR",165.5,58.4)=""
^DD(165.5,0,"IX","AS",165.5,91)=""
^DD(165.5,0,"IX","AS1",165.5,38)=""
^DD(165.5,0,"IX","AS2",165.5,88)=""
^DD(165.5,0,"IX","ASC",165.5,138)=""
^DD(165.5,0,"IX","ASC",165.5,138.4)=""
^DD(165.5,0,"IX","ASCF",165.5,138.1)=""
^DD(165.5,0,"IX","ASCF",165.5,138.5)=""
^DD(165.5,0,"IX","ASG",165.5,38.5)=""
^DD(165.5,0,"IX","ASO",165.5,139)=""
^DD(165.5,0,"IX","ASO",165.5,139.4)=""
^DD(165.5,0,"IX","ASOF",165.5,139.1)=""
^DD(165.5,0,"IX","ASOF",165.5,139.5)=""
^DD(165.5,0,"IX","AT",165.5,50.2)=""
^DD(165.5,0,"IX","AT",165.5,58.7)=""
^DD(165.5,0,"IX","ATB",165.5,55)=""
^DD(165.5,0,"IX","ATC",165.5,53)=""
^DD(165.5,0,"IX","ATE",165.5,153.1)=""
^DD(165.5,0,"IX","ATH",165.5,54)=""
^DD(165.5,0,"IX","ATN",165.5,124)=""
^DD(165.5,0,"IX","ATO",165.5,57)=""
^DD(165.5,0,"IX","ATP",165.5,52)=""
^DD(165.5,0,"IX","ATR",165.5,51)=""
^DD(165.5,0,"IX","ATS",165.5,50)=""
^DD(165.5,0,"IX","ATSC",165.5,138.2)=""
^DD(165.5,0,"IX","ATSF",165.5,170)=""
^DD(165.5,0,"IX","ATSO",165.5,139.2)=""
^DD(165.5,0,"IX","AU",165.5,51.4)=""
^DD(165.5,0,"IX","AV",165.5,53.3)=""
^DD(165.5,0,"IX","AW",165.5,54.3)=""
^DD(165.5,0,"IX","AX",165.5,55.3)=""
^DD(165.5,0,"IX","AY",165.5,.07)=""
^DD(165.5,0,"IX","AZ",165.5,57.3)=""
^DD(165.5,0,"IX","B",165.5,.01)=""
^DD(165.5,0,"IX","BT",165.5,20)=""
^DD(165.5,0,"IX","C",165.5,.02)=""
^DD(165.5,0,"IX","D",165.5,.06)=""
^DD(165.5,0,"IX","D1",165.5,.05)=""
^DD(165.5,0,"IX","E",165.5,20)=""
^DD(165.5,0,"IX","F",165.51,.04)=""
^DD(165.5,0,"IX","SS1",165.5,31)=""
^DD(165.5,0,"NM","ONCOLOGY PRIMARY")=""
^DD(165.5,0,"PT",165.59,.01)=""
^DD(165.5,0,"SCR")="I ($G(DUZ(2))=$G(^ONCO(165.5,+Y,""DIV"")))!(DUZ(0)[""@"")"
^DD(165.5,0,"VR")="2.11"
^DD(165.5,0,"VRPK")="ONC"
^DD(165.5,.01,0)="SITE/GP^RP164.2'X^ONCO(164.2,^0;1^Q"
^DD(165.5,.01,.1)=""
^DD(165.5,.01,1,0)="^.1^^-1"
^DD(165.5,.01,1,1,0)="165.5^B"
^DD(165.5,.01,1,1,1)="S ^ONCO(165.5,""B"",$E(X,1,30),DA)="""""
^DD(165.5,.01,1,1,2)="K ^ONCO(165.5,""B"",$E(X,1,30),DA)"
^DD(165.5,.01,1,1,"DT")="2900529"
^DD(165.5,.01,1,2,0)="165.5^ACF^MUMPS"
^DD(165.5,.01,1,2,1)="S ^ONCO(165.59,DA,0)=X"
^DD(165.5,.01,1,2,2)="K ^ONCO(165.59,DA,0)"
^DD(165.5,.01,1,2,"%D",0)="^^3^3^2910627^^"
^DD(165.5,.01,1,2,"%D",1,0)="This cross reference creates an entry in File 165.59 which consists on;y"
^DD(165.5,.01,1,2,"%D",2,0)="of computed fields for this file. It is a side-car/side-kick file which"
^DD(165.5,.01,1,2,"%D",3,0)="does not store any data, but references other data for reports."
^DD(165.5,.01,1,2,"DT")="2910627"
^DD(165.5,.01,3)="Enter the SITE/GP which best categorizes the primary."
^DD(165.5,.01,12)="Histologic site groups may not be selected."
^DD(165.5,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(165.5,.01,20,0)="^.3LA^^0"
^DD(165.5,.01,21,0)="^^2^2^3050816^"
^DD(165.5,.01,21,1,0)=" "
^DD(165.5,.01,21,2,0)="Enter the SITE/GP for this primary."
^DD(165.5,.01,22)=""
^DD(165.5,.01,"DT")="3050812"
^DD(165.5,.0101,0)="PRIMARY SITE/GP^CJ25^^ ; ^S X="""" I D0>0 S X=$P(^ONCO(164.2,$P(^ONCO(165.5,D0,0),U),0),U)"
^DD(165.5,.0101,9)="^"
^DD(165.5,.0101,9.01)=""
^DD(165.5,.0101,9.1)="S X=.01 OF ^ONCO(164.2)"
^DD(165.5,.0101,21,0)="^^1^1^2920528^"
^DD(165.5,.0101,21,1,0)="A COMPUTED FIELD RECORDING THE PRIMARY SITE/GROUP FOR ONCOLOGY."
^DD(165.5,.015,0)="SELECTED SITES^CJ12^^ ; ^S X="""" D SICD^ONCOCOS"
^DD(165.5,.015,9)="^"
^DD(165.5,.015,9.01)=""
^DD(165.5,.015,9.1)="S X="""" D SICD^ONCOCOS"
^DD(165.5,.015,21,0)="^.001^1^1^3070111^^"
^DD(165.5,.015,21,1,0)="This COMPUTED field displays selected SITE/GP (165.5,.01) values. "
^DD(165.5,.015,"DT")="3070111"
^DD(165.5,.017,0)="SYSTEMS^CJ8^^ ; ^S X="""" D SYS^ONCOCOS"
^DD(165.5,.017,9)="^"
^DD(165.5,.017,9.01)=""
^DD(165.5,.017,9.1)="S X="""" D SYS^ONCOCOS"
^DD(165.5,.017,21,0)="^^2^2^2920528^"
^DD(165.5,.017,21,1,0)="COMPUTED FIELD RECORDING THE MAJOR BODY SYSTEMS, SUCH AS"
^DD(165.5,.017,21,2,0)="LYMPHATIC, GASTROINTESTINAL, GENITOURINARY, ETC."
^DD(165.5,.02,0)="PATIENT NAME^RP160X^ONCO(160,^0;2^I $D(X) D PSEX^ONCOCKI"
^DD(165.5,.02,1,0)="^.1^^-1"
^DD(165.5,.02,1,1,0)="165.5^C"
^DD(165.5,.02,1,1,1)="S ^ONCO(165.5,""C"",$E(X,1,30),DA)="""""
^DD(165.5,.02,1,1,2)="K ^ONCO(165.5,""C"",$E(X,1,30),DA)"
^DD(165.5,.02,1,1,"%D",0)="^^1^1^2930909"
^DD(165.5,.02,1,1,"%D",1,0)="Indexes file by PATIENT NAME."
^DD(165.5,.02,1,1,"DT")="2900529"
^DD(165.5,.02,21,0)="^^1^1^2920523^^^^"
^DD(165.5,.02,21,1,0)="Enter Oncology Patient Name."
^DD(165.5,.02,"DT")="2960620"
^DD(165.5,.022,0)="ICDO-SITE^RP164.08'^ONCO(164.08,^0;22^Q"
^DD(165.5,.022,3)=""
^DD(165.5,.022,21,0)="^^1^1^2920523^"
^DD(165.5,.022,21,1,0)="Listing of primary sites in accordance with ICDO-2 (1992)."
^DD(165.5,.022,"DT")="2900406"
^DD(165.5,.023,0)="PRIMARY SITE CODE PREFIX^CJ4X^^ ; ^S X=$P($G(^ONCO(165.5,D0,2)),U,1) I X'="""" S X=""C""_$E(X,3,4)"
^DD(165.5,.023,.1)=""
^DD(165.5,.023,9)="^"
^DD(165.5,.023,9.01)="165.5^.022"
^DD(165.5,.023,9.1)="CUSTOM CODED"
^DD(165.5,.023,21,0)="^.001^1^1^3051125^^^^"
^DD(165.5,.023,21,1,0)="Identifies the three-digit code prefix for the primary site."
^DD(165.5,.023,"DT")="3051125"
^DD(165.5,.025,0)="PATIENT ID^CJ5^^ ; ^S X="""" D PID^ONCOCOP"
^DD(165.5,.025,9)="^"
^DD(165.5,.025,9.01)=""
^DD(165.5,.025,9.1)="S X="""" D PID^ONCOCOP"
^DD(165.5,.025,21,0)="^^1^1^2920528^"
^DD(165.5,.025,21,1,0)="COMPUTED FIELD FOR RECORDING THE PATIENT IDENTIFICATION NUMBER."
^DD(165.5,.03,0)="REPORTING HOSPITAL^RP160.19'O^ONCO(160.19,^0;3^Q"
^DD(165.5,.03,.1)=""
^DD(165.5,.03,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ONCO(160.19,Y,0)),U,2)"
^DD(165.5,.03,2.1)="I Y'="""" S Y=$P($G(^ONCO(160.19,Y,0)),U,2)"
^DD(165.5,.03,3)=""
^DD(165.5,.03,10)=""
^DD(165.5,.03,20,0)="^.3LA^^0"
^DD(165.5,.03,20,1,0)="ACOS-REQUIRED"
^DD(165.5,.03,21,0)="^^8^8^2991110^^^^"
^DD(165.5,.03,21,1,0)=""
^DD(165.5,.03,21,2,0)="REPORTING HOSPITAL identifies the hospital which is reporting this cancer"
^DD(165.5,.03,21,3,0)="case.  The American College of Surgeons suggests using the six-digit code"
^DD(165.5,.03,21,4,0)="which they assign."
^DD(165.5,.03,21,5,0)=" "
^DD(165.5,.03,21,6,0)="This field contains the value of the INSTITUTION ID NUMBER field from the"
^DD(165.5,.03,21,7,0)="ONCOLOGY SITE PARAMETERS file."
^DD(165.5,.03,21,8,0)=""
^DD(165.5,.03,"DT")="2991109"
^DD(165.5,.04,0)="CLASS OF CASE^*SX^0:Dx here, 1st tx ew;1:Dx here, 1st tx here;2:Dx ew, 1st tx here;3:Dx ew, 1st tx ew;4:Dx/1st tx before ref date;5:Dx at autopsy;6:Dx/1st tx in MD office;7:Pathology report only;8:Death cert;9:Unknown;^0;4^D COCIT^ONCOSUR1 Q"
^DD(165.5,.04,.1)=""
^DD(165.5,.04,1,0)="^.1"
^DD(165.5,.04,1,1,0)="165.5^AG1^MUMPS"
^DD(165.5,.04,1,1,1)="D SAG^ONCOCRC"
^DD(165.5,.04,1,1,2)="D KAG^ONCOCRC"
^DD(165.5,.04,1,1,"%D",0)="^^1^1^2930910^"
^DD(165.5,.04,1,1,"%D",1,0)="Indexes the file by class category (analytic/nonanalytic)."
^DD(165.5,.04,1,2,0)="165.5^AGC"
^DD(165.5,.04,1,2,1)="S ^ONCO(165.5,""AGC"",$E(X,1,30),DA)="""""
^DD(165.5,.04,1,2,2)="K ^ONCO(165.5,""AGC"",$E(X,1,30),DA)"
^DD(165.5,.04,1,2,"%D",0)="^^1^1^2930909"
^DD(165.5,.04,1,2,"%D",1,0)="Indexes file by CLASS OF CASE."
^DD(165.5,.04,1,3,0)="165.5^AAY^MUMPS"
^DD(165.5,.04,1,3,1)="I X>-1,X<3 S XX=$P(^ONCO(165.5,DA,0),U,7) S:XX'="""" ^ONCO(165.5,""AAY"",XX,DA)="""""
^DD(165.5,.04,1,3,2)="I X>-1,X<3 S XX=$P(^ONCO(165.5,DA,0),U,7) K:XX'="""" ^ONCO(165.5,""AAY"",XX,DA) K XX"
^DD(165.5,.04,1,3,"%D",0)="^^1^1^2930910^"
^DD(165.5,.04,1,3,"%D",1,0)="Creates an index of analytic cases."
^DD(165.5,.04,10)=""
^DD(165.5,.04,12)="Codes 8 and 9 are used by central registries only."
^DD(165.5,.04,12.1)="S DIC(""S"")=""I (Y'=8)&(Y'=9)"""
^DD(165.5,.04,20,0)="^.3LA^^0"
^DD(165.5,.04,20,1,0)="ACOS-REQUIRED"
^DD(165.5,.04,21,0)="^.001^30^30^3050128^^^^"
^DD(165.5,.04,21,1,0)=""
^DD(165.5,.04,21,2,0)="Classifies cases recorded in the database."
^DD(165.5,.04,21,3,0)=" "
^DD(165.5,.04,21,4,0)="0  Dx at the reporting facility and all of the 1st course of treatment"
^DD(165.5,.04,21,5,0)="   was performed elsewhere or the decision not to treat was made at"
^DD(165.5,.04,21,6,0)="   another facility."
^DD(165.5,.04,21,7,0)=" "
^DD(165.5,.04,21,8,0)="1  Dx at the reporting facility, and all or part of the 1st course of"
^DD(165.5,.04,21,9,0)="   treatment was performed at the reporting facility."
^DD(165.5,.04,21,10,0)=" "
^DD(165.5,.04,21,11,0)="2  Dx elsewhere, and all or part of the 1st course of treatment was"
^DD(165.5,.04,21,12,0)="   performed at the reporting facility."
^DD(165.5,.04,21,13,0)=" "
^DD(165.5,.04,21,14,0)="3  Dx and all of the 1st course of treatment was performed elsewhere."
^DD(165.5,.04,21,15,0)="   Presents at your facility with recurrence or persistent disease."
^DD(165.5,.04,21,16,0)=" "
^DD(165.5,.04,21,17,0)="4  Dx and/or 1st course of treatment was performed at the reporting"
^DD(165.5,.04,21,18,0)="   facility prior to the reference date of the registry."
^DD(165.5,.04,21,19,0)=" "
^DD(165.5,.04,21,20,0)="5  Dx at autopsy."
^DD(165.5,.04,21,21,0)=" "
^DD(165.5,.04,21,22,0)="6  Dx and all of the 1st course of treatment was completed by the same"
^DD(165.5,.04,21,23,0)="   staff physician in an office setting.  ""Staff physician"" is any"
^DD(165.5,.04,21,24,0)="   medical staff with admitting privileges at the reporting facility."
^DD(165.5,.04,21,25,0)=""
^DD(165.5,.04,21,26,0)="7  Pathology report only.  Patient does not enter the reporting"
^DD(165.5,.04,21,27,0)="   facility at any time for dx or treatment.  This category excludes"
^DD(165.5,.04,21,28,0)="   cases diagnosed at autopsy."
^DD(165.5,.04,21,29,0)=" "
^DD(165.5,.04,21,30,0)="For further information see FORDS pages 83-84."
^DD(165.5,.04,"DT")="3050128"
^DD(165.5,.041,0)="CLASS NO.^CJ8^^ ; ^S COC=$P($G(^ONCO(165.5,D0,0)),U,4),X=$S(COC="""":""None"",1:""Class ""_COC)"
^DD(165.5,.041,9)="^"
^DD(165.5,.041,9.01)=""
^DD(165.5,.041,9.1)="S COC=$P($G(^ONCO(165.5,D0,0)),U,4),X=$S(COC="""":""None"",1:""Class ""_COC)"
^DD(165.5,.041,21,0)="^.001^2^2^3041223^^^^"
^DD(165.5,.041,21,1,0)="COMPUTED FIELD CONTAINING THE NUMBERS IDENTIFING THE DIFFERENT TYPE"
^DD(165.5,.041,21,2,0)="OF CLASSES."
^DD(165.5,.041,"DT")="3041223"
^DD(165.5,.042,0)="CLASS CATEGORY^RS^0:NONANALYTIC;1:ANALYTIC;^0;20^Q"
^DD(165.5,.042,1,0)="^.1"
^DD(165.5,.042,1,1,0)="165.5^AG"
^DD(165.5,.042,1,1,1)="S ^ONCO(165.5,""AG"",$E(X,1,30),DA)="""""
^DD(165.5,.042,1,1,2)="K ^ONCO(165.5,""AG"",$E(X,1,30),DA)"
^DD(165.5,.042,1,1,"%D",0)="^^1^1^2930909"
^DD(165.5,.042,1,1,"%D",1,0)="Indexes file by CLASS CATEGORY."
^DD(165.5,.042,3)="DO NOT PROMPT-FIELD IS STUFFED BY #.04 (CLASS OF CASE)"
^DD(165.5,.042,21,0)="^.001^1^1^3021029^^"
^DD(165.5,.042,21,1,0)="Record the category of case, either Analytic or Nonanalytic."
^DD(165.5,.042,"DT")="3021029"
^DD(165.5,.05,0)="ACCESSION NUMBER^RFX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?.N)!($E(X,5,9)=""00000"") X I $D(X) D ACN^ONCOCKI"
^DD(165.5,.05,.1)=""
^DD(165.5,.05,1,0)="^.1"
^DD(165.5,.05,1,1,0)="165.5^D1^MUMPS"
^DD(165.5,.05,1,1,1)="S XX=$P(^ONCO(165.5,DA,0),U,6) Q:XX=""""  S ^ONCO(165.5,""D"",$E(X,1,4)_""-""_$E(X,5,9)_""/""_XX,DA)="""""
^DD(165.5,.05,1,1,2)="S XX=$P(^ONCO(165.5,DA,0),U,6) Q:XX=""""  K ^ONCO(165.5,""D"",$E(X,1,4)_""-""_$E(X,5,9)_""/""_XX,DA)"
^DD(165.5,.05,1,1,"%D",0)="^^1^1^2990519^^^^"
^DD(165.5,.05,1,1,"%D",1,0)="Indexes the file by the display value of ACCESSION NUMBER and SEQUENCE NUMBER."
^DD(165.5,.05,1,1,"DT")="2990519"
^DD(165.5,.05,1,2,0)="165.5^AE^MUMPS"
^DD(165.5,.05,1,2,1)="S ^ONCO(165.5,""AE"",X,$P(^ONCO(165.5,DA,0),U,2),DA)="""""
^DD(165.5,.05,1,2,2)="K ^ONCO(165.5,""AE"",X,$P(^ONCO(165.5,DA,0),U,2),DA)"
^DD(165.5,.05,1,2,"%D",0)="^^1^1^2930910^^"
^DD(165.5,.05,1,2,"%D",1,0)="Indexes the file by ACCESSION NUMBER and PATIENT NAME."
^DD(165.5,.05,1,2,"DT")="2900620"
^DD(165.5,.05,1,3,0)="165.5^AF^MUMPS"
^DD(165.5,.05,1,3,1)="S ^ONCO(165.5,""AF"",999999999-X,DA)="""""
^DD(165.5,.05,1,3,2)="K ^ONCO(165.5,""AF"",999999999-X,DA)"
^DD(165.5,.05,1,3,"%D",0)="^^1^1^2990825^^^"
^DD(165.5,.05,1,3,"%D",1,0)="Indexes the file in inverse order by ACCESSION NUMBER."
^DD(165.5,.05,1,3,"DT")="2990519"
^DD(165.5,.05,1,4,0)="165.5^AA"
^DD(165.5,.05,1,4,1)="S ^ONCO(165.5,""AA"",$E(X,1,30),DA)="""""
^DD(165.5,.05,1,4,2)="K ^ONCO(165.5,""AA"",$E(X,1,30),DA)"
^DD(165.5,.05,1,4,"%D",0)="^^1^1^2930909"
^DD(165.5,.05,1,4,"%D",1,0)="Indexes file by ACCESSION NUMBER."
^DD(165.5,.05,1,4,"DT")="2900606"
^DD(165.5,.05,1,5,0)="165.5^AC^MUMPS"
^DD(165.5,.05,1,5,1)="S ^ONCO(165.5,""AC"",$P(^ONCO(165.5,DA,0),U,2),X,DA)="""""
^DD(165.5,.05,1,5,2)="K ^ONCO(165.5,""AC"",$P(^ONCO(165.5,DA,0),U,2),X,DA)"
^DD(165.5,.05,1,5,"%D",0)="^^1^1^2990617^^"
^DD(165.5,.05,1,5,"%D",1,0)="Indexes the file by PATIENT NAME and ACCESSION NUMBER."
^DD(165.5,.05,1,5,"DT")="2900723"
^DD(165.5,.05,3)="Enter the 9-digit ACCESSION NUMBER."
^DD(165.5,.05,4)=""
^DD(165.5,.05,10)=""
^DD(165.5,.05,20,0)="^.3LA^^0"
^DD(165.5,.05,21,0)="^.001^6^6^3030226^^^^"
^DD(165.5,.05,21,1,0)=""
^DD(165.5,.05,21,2,0)="Provides a unique identifier for the patient consisting of the"
^DD(165.5,.05,21,3,0)="year in which the patient was first seen at the reporting facility"
^DD(165.5,.05,21,4,0)="and the consecutive order in which the patient was abstracted."
^DD(165.5,.05,21,5,0)=""
^DD(165.5,.05,21,6,0)="For further information see FORDS page 33."
^DD(165.5,.05,"DT")="2991207"
^DD(165.5,.06,0)="SEQUENCE NUMBER^FX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2) X I $D(X) D SEQ^ONCOCKI"
^DD(165.5,.06,.1)=""
^DD(165.5,.06,1,0)="^.1"
^DD(165.5,.06,1,1,0)="165.5^D^MUMPS"
^DD(165.5,.06,1,1,1)="S XX=$P(^ONCO(165.5,DA,0),U,5) Q:XX=""""  S ^ONCO(165.5,""D"",$E(XX,1,4)_""-""_$E(XX,5,9)_""/""_X,DA)="""""
^DD(165.5,.06,1,1,2)="S XX=$P(^ONCO(165.5,DA,0),U,5) Q:XX=""""  K ^ONCO(165.5,""D"",$E(XX,1,4)_""-""_$E(XX,5,9)_""/""_X,DA)"
^DD(165.5,.06,1,1,"%D",0)="^^1^1^2990628^^^^"
^DD(165.5,.06,1,1,"%D",1,0)="Indexes the file by the display value of ACCESSION NO. and SEQUENCE NO."
^DD(165.5,.06,1,1,"DT")="2990628"
^DD(165.5,.06,3)="Enter two numerics, e.g. '00' for one primary only."
^DD(165.5,.06,10)=""
^DD(165.5,.06,20,0)="^.3LA^^0"
^DD(165.5,.06,21,0)="^^24^24^3060620^"
^DD(165.5,.06,21,1,0)="Indicates the sequence of malignant and non-malignant neoplasms over"
^DD(165.5,.06,21,2,0)="the lifetime of the patient."
^DD(165.5,.06,21,3,0)=" "
^DD(165.5,.06,21,4,0)="Codes 00-59 and 99 indicate neoplasms of in situ or malignant behavior"
^DD(165.5,.06,21,5,0)="(Behavior equals 2 or 3)."
^DD(165.5,.06,21,6,0)=" "
^DD(165.5,.06,21,7,0)="Codes 60-88 indicate neoplasms of non-malignant behavior (Behavior"
^DD(165.5,.06,21,8,0)="equals 0 or 1)."
^DD(165.5,.06,21,9,0)=" "
^DD(165.5,.06,21,10,0)="Code 00 only if the patient has a single malignant primary.  If the"
^DD(165.5,.06,21,11,0)="patient develops a subsequent malignant or in situ primary tumor,"
^DD(165.5,.06,21,12,0)="change the code for the first tumor from 00 to 01, and number"
^DD(165.5,.06,21,13,0)="subsequent tumors sequentially.  Code 59 for the fifty-ninth of"
^DD(165.5,.06,21,14,0)="fifty-nine independent malignant or in situ primaries.  Code 99 for"
^DD(165.5,.06,21,15,0)="an unspecified malignant or in situ sequence number or unknown."
^DD(165.5,.06,21,16,0)=" "
^DD(165.5,.06,21,17,0)="Code 60 only if the patient has a single non-malignant primary. If"
^DD(165.5,.06,21,18,0)="the patient develops a subsequent non-malignant primary, change the"
^DD(165.5,.06,21,19,0)="code for the first tumor from 60 to 61, and assign codes to subsequent"
^DD(165.5,.06,21,20,0)="non-malignant tumors sequentially.  Code 87 for the twenty-seventh of"
^DD(165.5,.06,21,21,0)="twenty-seven independent non- malignant primaries.  Code 88 for an"
^DD(165.5,.06,21,22,0)="unspecified number of neoplasms in this category."
^DD(165.5,.06,21,23,0)=" "
^DD(165.5,.06,21,24,0)="For further information see FORDS pages 34-35."
^DD(165.5,.06,"DT")="3000816"
^DD(165.5,.061,0)="ACC/SEQ NUMBER^CJ13^^ ; ^X ^DD(165.5,.061,9.3) S X=$E(Y(165.5,.061,5),Y(165.5,.061,6),X) S Y=X,X=Y(165.5,.061,4),X=X_Y_""/""_$P(Y(165.5,.061,1),U,6)"
^DD(165.5,.061,9)="^"
^DD(165.5,.061,9.01)="165.5^.06;165.5^.05"
^DD(165.5,.061,9.1)="$E(ACCESSION NUMBER,1,4)_""-""_$E(ACCESSION NUMBER,5,9)_""/""_SEQUENCE NO."
^DD(165.5,.061,9.2)="S Y(165.5,.061,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(Y(165.5,.061,1),U,5),Y(165.5,.061,2)=X S X=1,Y(165.5,.061,3)=X S X=4"
^DD(165.5,.061,9.3)="X ^DD(165.5,.061,9.2) S X=$E(Y(165.5,.061,2),Y(165.5,.061,3),X)_""-"",Y(165.5,.061,4)=X S X=$P(Y(165.5,.061,1),U,5),Y(165.5,.061,5)=X S X=5,Y(165.5,.061,6)=X S X=9"
^DD(165.5,.061,21,0)="^^4^4^2991207^^^^"
^DD(165.5,.061,21,1,0)=""
^DD(165.5,.061,21,2,0)="ACC/SEQ NUMBER concatinates the ACCESSION NUMBER and SEQUENCE NUMBER"
^DD(165.5,.061,21,3,0)="values."
^DD(165.5,.061,21,4,0)=""
^DD(165.5,.061,"DT")="2991207"
^DD(165.5,.07,0)="ACCESSION YEAR^RF^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(165.5,.07,.1)=""
^DD(165.5,.07,1,0)="^.1"
^DD(165.5,.07,1,1,0)="165.5^AY"
^DD(165.5,.07,1,1,1)="S ^ONCO(165.5,""AY"",$E(X,1,30),DA)="""""
^DD(165.5,.07,1,1,2)="K ^ONCO(165.5,""AY"",$E(X,1,30),DA)"
^DD(165.5,.07,1,1,"%D",0)="^^1^1^2930909"
^DD(165.5,.07,1,1,"%D",1,0)="Indexes file by ACCESSION YEAR."
^DD(165.5,.07,1,2,0)="165.5^AAY1^MUMPS"
^DD(165.5,.07,1,2,1)="S XX=$P($G(^ONCO(165.5,DA,0)),U,20) S:XX ^ONCO(165.5,""AAY"",X,DA)="""" K XX"
^DD(165.5,.07,1,2,2)="S XX=$P($G(^ONCO(165.5,DA,0)),U,20) K:XX ^ONCO(165.5,""AAY"",X,DA) K XX"
^DD(165.5,.07,1,2,"%D",0)="^^1^1^2930910^"
^DD(165.5,.07,1,2,"%D",1,0)="Maintains an index by ACCESSION YEAR for primaries with stages."
^DD(165.5,.07,1,3,0)="165.5^ACAY^MUMPS"
^DD(165.5,.07,1,3,1)="S ^ONCO(165.5,""ACAY"")=X"
^DD(165.5,.07,1,3,2)="S ^ONCO(165.5,""ACAY"")=$E(DT,1)+17_$E(DT,2,3)"
^DD(165.5,.07,1,3,"%D",0)="^^1^1^2990910^^^"
^DD(165.5,.07,1,3,"%D",1,0)="Maintains a default ACCESSION YEAR for the system."
^DD(165.5,.07,1,3,"DT")="2990910"
^DD(165.5,.07,3)="Enter the year first seen for this primary."
^DD(165.5,.07,10)=""
^DD(165.5,.07,20,0)="^.3LA^^0"
^DD(165.5,.07,21,0)="^^12^12^2991207^^^^"
^DD(165.5,.07,21,1,0)=""
^DD(165.5,.07,21,2,0)="ACCESSION YEAR (aka YEAR FIRST SEEN FOR THIS PRIMARY) is the year the"
^DD(165.5,.07,21,3,0)="patient was first seen at the reporting institution for diagnosis and/ "
^DD(165.5,.07,21,4,0)="or treatment of this primary.  It is NOT the year that the registrar"
^DD(165.5,.07,21,5,0)="accession the case.  ACCESSION YEAR relates only to one primary tumor."
^DD(165.5,.07,21,6,0)="A patient with multiple primaries can have a different ACCESSION YEAR"
^DD(165.5,.07,21,7,0)="on each abstract.  "
^DD(165.5,.07,21,8,0)="                                 "
^DD(165.5,.07,21,9,0)="This data item is used to produce an accession register.  The accession"
^DD(165.5,.07,21,10,0)="register identifies all primaries first treated or seen at the reporting"
^DD(165.5,.07,21,11,0)="institution for a given year.  "
^DD(165.5,.07,21,12,0)=""
^DD(165.5,.07,"AUDIT")=""
^DD(165.5,.07,"DT")="2991207"
^DD(165.5,.08,0)="MEDICAL RECORD NUMBER^CJ12^^ ; ^X ^DD(165.5,.08,9.2) X $P(^DD(160,2,0),U,5,99) S Y(165.5,.08,101)=X S X=Y(165.5,.08,101) S D0=Y(165.5,.08,80)"
^DD(165.5,.08,9)="^"
^DD(165.5,.08,9.01)="160^2;165.5^.02"
^DD(165.5,.08,9.1)="PATIENT NAME:SSN"
^DD(165.5,.08,9.2)="S Y(165.5,.08,80)=$S($D(D0):D0,1:""""),Y(165.5,.08,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.08,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.08,21,0)="^.001^5^5^3030212^^^^"
^DD(165.5,.08,21,1,0)="Records the medical record number usually assigned by the reporting"
^DD(165.5,.08,21,2,0)="facility's health information management (HIM) department."
^DD(165.5,.08,21,3,0)=""
^DD(165.5,.08,21,4,0)="For further information see FORDS page 36."
^DD(165.5,.08,21,5,0)=""
^DD(165.5,.09,0)="SOCIAL SECURITY NUMBER^CJ11^^ ; ^X ^DD(165.5,.09,9.2) X $P(^DD(160,2,0),U,5,99) S Y(165.5,.09,101)=X S X=Y(165.5,.09,101) S D0=Y(165.5,.09,80)"
^DD(165.5,.09,9)="^"
^DD(165.5,.09,9.01)="160^2;165.5^.02"
^DD(165.5,.09,9.1)="PATIENT NAME:SSN"
^DD(165.5,.09,9.2)="S Y(165.5,.09,80)=$S($D(D0):D0,1:""""),Y(165.5,.09,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.09,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.09,21,0)="^.001^3^3^3030212^^^^"
^DD(165.5,.09,21,1,0)="Records the patient's Social Security Number."
^DD(165.5,.09,21,2,0)=""
^DD(165.5,.09,21,3,0)="For further information see FORDS page 37."
^DD(165.5,.09,"DT")="3030212"
^DD(165.5,.091,0)="STATUS^CJ8^^ ; ^X ^DD(165.5,.091,9.3) S X=$P($P(Y(165.5,.091,102),$C(59)_$P(Y(165.5,.091,101),U,1)_"":"",2),$C(59),1) S D0=Y(165.5,.091,80)"
^DD(165.5,.091,9)="^"
^DD(165.5,.091,9.01)="160^15;165.5^.02"
^DD(165.5,.091,9.1)="PATIENT NAME:STATUS"
^DD(165.5,.091,9.2)="S Y(165.5,.091,80)=$S($D(D0):D0,1:""""),Y(165.5,.091,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.091,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.091,9.3)="X ^DD(165.5,.091,9.2) S Y(165.5,.091,102)=$C(59)_$S($D(^DD(160,15,0)):$P(^(0),U,3),1:""""),Y(165.5,.091,101)=$S($D(^ONCO(160,D0,1)):^(1),1:"""")"
^DD(165.5,.091,21,0)="^^1^1^2960826^^^"
^DD(165.5,.091,21,1,0)="STATUS IS EITHER ALIVE OR DEAD."
^DD(165.5,.091,"DT")="2910206"
^DD(165.5,.093,0)="PLACE OF BIRTH (STATE)^CJ20^^ ; ^X ^DD(165.5,.093,9.2) S Y(165.5,.093,101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(165.2,+$P(Y(165.5,.093,101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=Y(165.5,.093,80)"
^DD(165.5,.093,9)="^"
^DD(165.5,.093,9.01)="160^7;165.5^.02"
^DD(165.5,.093,9.1)="PATIENT NAME:PLACE OF BIRTH"
^DD(165.5,.093,9.2)="S Y(165.5,.093,80)=$S($D(D0):D0,1:""""),Y(165.5,.093,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.093,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.093,21,0)="^^1^1^2920528^"
^DD(165.5,.093,21,1,0)="THE STATE WHERE THE PATIENT WAS BORN."
^DD(165.5,.1,0)="SEX^CJ21^^ ; ^X ^DD(165.5,.1,9.3) S X=$P($P(Y(165.5,.1,102),$C(59)_$P(Y(165.5,.1,101),U,8)_"":"",2),$C(59),1) S D0=Y(165.5,.1,80)"
^DD(165.5,.1,9)="^"
^DD(165.5,.1,9.01)="160^10;165.5^.02"
^DD(165.5,.1,9.1)="PATIENT NAME:SEX"
^DD(165.5,.1,9.2)="S Y(165.5,.1,80)=$S($D(D0):D0,1:""""),Y(165.5,.1,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.1,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.1,9.3)="X ^DD(165.5,.1,9.2) S Y(165.5,.1,102)=$C(59)_$S($D(^DD(160,10,0)):$P(^(0),U,3),1:""""),Y(165.5,.1,101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DD(165.5,.1,21,0)="^^3^3^2990526^^^^"
^DD(165.5,.1,21,1,0)=""
^DD(165.5,.1,21,2,0)="Code the patient's SEX."
^DD(165.5,.1,21,3,0)=""
^DD(165.5,.1,"DT")="2990526"
^DD(165.5,.115,0)="STATE^CJ2^^ ; ^X ^DD(165.5,.115,9.2) X $P(^DD(160,.115,0),U,5,99) S Y(165.5,.115,101)=X S X=Y(165.5,.115,101) S D0=Y(165.5,.115,80)"
^DD(165.5,.115,9)="^"
^DD(165.5,.115,9.01)="160^.115;165.5^.02"
^DD(165.5,.115,9.1)="PATIENT NAME:STATE"
^DD(165.5,.115,9.2)="S Y(165.5,.115,80)=$S($D(D0):D0,1:""""),Y(165.5,.115,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.115,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.115,21,0)="^^1^1^2920528^"
^DD(165.5,.115,21,1,0)="THE PATIENT'S STATE OF RESIDENCY AT THE TIME OF DIAGNOSIS."
^DD(165.5,.1157,0)="ST-COUNTY^CJ20^^ ; ^D STCT^ONCOCOP"
^DD(165.5,.1157,9)="^"
^DD(165.5,.1157,9.01)=""
^DD(165.5,.1157,9.1)="D STCT^ONCOCOP"
^DD(165.5,.1157,21,0)="^^1^1^2920528^"
^DD(165.5,.1157,21,1,0)="STATE AND COUNTY COMPUTED FIELD."
^DD(165.5,.1157,"DT")="2910322"
^DD(165.5,.117,0)="COUNTY^CJ22^^ ; ^X ^DD(165.5,.117,9.2) X $P(^DD(160,.117,0),U,5,99) S Y(165.5,.117,101)=X S X=Y(165.5,.117,101) S D0=Y(165.5,.117,80)"
^DD(165.5,.117,9)="^"
^DD(165.5,.117,9.01)="160^.117;165.5^.02"
^DD(165.5,.117,9.1)="PATIENT NAME:COUNTY"
^DD(165.5,.117,9.2)="S Y(165.5,.117,80)=$S($D(D0):D0,1:""""),Y(165.5,.117,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.117,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.117,21,0)="^^1^1^2920528^"
^DD(165.5,.117,21,1,0)="THE PATIENT'S RESIDENCE COUNTY AT THE TIME OF DIAGNOSIS."
^DD(165.5,.12,0)="RACE^CJ8^^ ; ^X ^DD(165.5,.12,9.2) S Y(165.5,.12,101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""") S X=$S('$D(^ONCO(164.46,+$P(Y(165.5,.12,101),U,6),0)):"""",1:$P(^(0),U,1)) S D0=Y(165.5,.12,80)"
^DD(165.5,.12,9)="^"
^DD(165.5,.12,9.01)="160^8;165.5^.02"
^DD(165.5,.12,9.1)="PATIENT NAME:RACE"
^DD(165.5,.12,9.2)="S Y(165.5,.12,80)=$S($D(D0):D0,1:""""),Y(165.5,.12,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:""""),D0=$P(Y(165.5,.12,1),U,2) S:'$D(^ONCO(160,+D0,0)) D0=-1"
^DD(165.5,.12,9.3)="X ^DD(165.5,.12,9.2) S Y(165.5,.12,102)=$C(59)_$S($D(^DD(160,8,0)):$P(^(0),U,3),1:""""),Y(165.5,.12,101)=$S($D(^ONCO(160,D0,0)):^(0),1:"""")"
^DD(165.5,.12,21,0)="^^2^2^2961112^^^"
^DD(165.5,.12,21,1,0)="""Race"" is analyzed with the data item Spanish/Hispanic origin.  Both items"
^DD(165.5,.12,21,2,0)="must be recorded."
^DD(165.5,.12,"DT")="2961112"
^DD(165.5,.13,0)="RACE-SEX^CJ9^^ ; ^S X="""" D RSX^ONCOCOS"
^DD(165.5,.13,9)="^"
^DD(165.5,.13,9.01)=""
^DD(165.5,.13,9.1)="S X="""" D RSX^ONCOCOS"
^DD(165.5,.13,21,0)="^^1^1^2920528^"
^DD(165.5,.13,21,1,0)="COMPUTED FIELD COMBINING BOTH RACE AND SEX, USED IN CROSS TABULATIONS."
^DD(165.5,.14,0)="SEX-RACE^CJ9^^ ; ^S X="""" D SXR^ONCOCOS"
^DD(165.5,.14,9)="^"
^DD(165.5,.14,9.01)=""
^DD(165.5,.14,9.1)="S X="""" D SXR^ONCOCOS"
^DD(165.5,.14,21,0)="^^1^1^2930820^"
^DD(165.5,.14,21,1,0)="This is the combined race and sex code, used for cross tabulations."
^DD(165.5,1,0)="DATE OF INPATIENT ADMISSION^DXO^^0;8^D FADIT^ONCODSR"
^DD(165.5,1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,1,3)="*** DATE OF INPATIENT ADMISSION MUST BE BEFORE/EQUAL DATE OF INPATIENT DISCHARGE"
^DD(165.5,1,21,0)="^.001^7^7^3000607^^^^"
^DD(165.5,1,21,1,0)=""
^DD(165.5,1,21,2,0)="Record the date of the inpatient admission to the facility for the"
^DD(165.5,1,21,3,0)="most definitive surgery.  If the patient does not have surgery, use"
^DD(165.5,1,21,4,0)="the inpatient admission date for any other cancer-directed therapy."
^DD(165.5,1,21,5,0)="If the patient has no cancer-directed therapy, use the date of inpatient"
^DD(165.5,1,21,6,0)="admission for diagnostic evaluation."
^DD(165.5,1,21,7,0)=""
^DD(165.5,1,"DT")="3000607"
^DD(165.5,1.1,0)="DATE OF INPATIENT DISCHARGE^DXO^^0;9^D DSDTIT^ONCODSR"
^DD(165.5,1.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,1.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,1.1,3)="DATE OF INPATIENT DISCHARGE MUST BE AFTER/EQUAL DATE OF INPATIENT ADMISSION"
^DD(165.5,1.1,21,0)="^.001^7^7^3000608^^^^"
^DD(165.5,1.1,21,1,0)=""
^DD(165.5,1.1,21,2,0)="Record the date of the inpatient discharge from the facility for the"
^DD(165.5,1.1,21,3,0)="most definitive sugery.  If the patient did not have surgery, use the"
^DD(165.5,1.1,21,4,0)="inpatient discharge date for any other cancer-directed therapy.  If"
^DD(165.5,1.1,21,5,0)="the patient has no cancer-directed therapy, use the date of inpatient"
^DD(165.5,1.1,21,6,0)="discharge for diagnostic evaluation."
^DD(165.5,1.1,21,7,0)=" "
^DD(165.5,1.1,"DT")="3000607"
^DD(165.5,1.2,0)="TYPE OF REPORTING SOURCE^P168'O^ONCO(168,^0;10^Q"
^DD(165.5,1.2,.1)=""
^DD(165.5,1.2,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(168,Y,0),U,2)"
^DD(165.5,1.2,2.1)="S:Y'="""" Y=$P(^ONCO(168,Y,0),U,2)"
^DD(165.5,1.2,3)=""
^DD(165.5,1.2,10)=""
^DD(165.5,1.2,20,0)="^.3LA^^0"
^DD(165.5,1.2,21,0)="^.001^4^4^3060328^^^^"
^DD(165.5,1.2,21,1,0)=""
^DD(165.5,1.2,21,2,0)="Code the source documents used to abstract the cancer being reported."
^DD(165.5,1.2,21,3,0)="This item is used by central registries."
^DD(165.5,1.2,21,4,0)=""
^DD(165.5,1.2,"DT")="3060328"
^DD(165.5,2,0)="PRIMARY SURGEON^*P165^ONCO(165,^0;11^S DIC(""S"")=""I $P(^(0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,2,.1)=""
^DD(165.5,2,1,0)="^.1"
^DD(165.5,2,1,1,0)="165.5^ACP^MUMPS"
^DD(165.5,2,1,1,1)="S ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))="""""
^DD(165.5,2,1,1,2)="K ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))"
^DD(165.5,2,1,1,"%D",0)="^^2^2^2990507^^^^"
^DD(165.5,2,1,1,"%D",1,0)="Creates a list under the Contact file of contacts, and associated patients "
^DD(165.5,2,1,1,"%D",2,0)="orginating from the Primary file pointers to the Contact File."
^DD(165.5,2,1,1,"DT")="2920607"
^DD(165.5,2,1,2,0)="165.5^APC^MUMPS"
^DD(165.5,2,1,2,1)="S ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)="""""
^DD(165.5,2,1,2,2)="K ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)"
^DD(165.5,2,1,2,"%D",0)="^^2^2^2920806^^^^"
^DD(165.5,2,1,2,"%D",1,0)="Creates a list under the contact file of patients, and associated contacts"
^DD(165.5,2,1,2,"%D",2,0)="originating from the Primary file pointers to the contact file."
^DD(165.5,2,1,2,"DT")="2920806"
^DD(165.5,2,1,3,0)="165.5^APS^MUMPS"
^DD(165.5,2,1,3,1)="S ^ONCO(165.5,""APS"",X,$P(^ONCO(165.5,DA,0),U,2),DA)="""""
^DD(165.5,2,1,3,2)="K ^ONCO(165.5,""APS"",X,$P(^ONCO(165.5,DA,0),U,2),DA)"
^DD(165.5,2,1,3,"%D",0)="^^1^1^2990511^^^^"
^DD(165.5,2,1,3,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(165.5,2,1,3,"DT")="2990511"
^DD(165.5,2,3)=""
^DD(165.5,2,4)=""
^DD(165.5,2,10)=""
^DD(165.5,2,12)="Enter a PHYSICIAN CONTACT."
^DD(165.5,2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=2"""
^DD(165.5,2,20,0)="^.3LA^^0"
^DD(165.5,2,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,2,21,0)="^.001^5^5^3021105^^^^"
^DD(165.5,2,21,1,0)=""
^DD(165.5,2,21,2,0)="Records the physician who performed the most definitive surgical"
^DD(165.5,2,21,3,0)="procedure."
^DD(165.5,2,21,4,0)=""
^DD(165.5,2,21,5,0)="For further information see FORDS page 77."
^DD(165.5,2,"DT")="3001226"
^DD(165.5,2.1,0)="FOLLOWING PHYSICIAN^*P165^ONCO(165,^0;12^S DIC(""S"")=""I ($P(^(0),U,2)=2)!($P(^(0),U,2)=4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,2.1,1,0)="^.1"
^DD(165.5,2.1,1,1,0)="165.5^ACP^MUMPS"
^DD(165.5,2.1,1,1,1)="S ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))="""""
^DD(165.5,2.1,1,1,2)="K ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))"
^DD(165.5,2.1,1,1,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.1,1,1,"%D",1,0)="Creates a list under the Contact file of contacts, and associated patients "
^DD(165.5,2.1,1,1,"%D",2,0)="orginating from the Primary file pointers to the Contact File."
^DD(165.5,2.1,1,1,"DT")="2920607"
^DD(165.5,2.1,1,2,0)="165.5^APC^MUMPS"
^DD(165.5,2.1,1,2,1)="S ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)="""""
^DD(165.5,2.1,1,2,2)="K ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)"
^DD(165.5,2.1,1,2,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.1,1,2,"%D",1,0)="Creates a list under the contact file of patients, and associated contacts"
^DD(165.5,2.1,1,2,"%D",2,0)="originating from the Primary file pointers to the contact file."
^DD(165.5,2.1,1,2,"DT")="2920607"
^DD(165.5,2.1,1,3,0)="165.5^AFP^MUMPS"
^DD(165.5,2.1,1,3,1)="S ^ONCO(165.5,""AFP"",X,$P(^ONCO(165.5,DA,0),U,2),DA)="""""
^DD(165.5,2.1,1,3,2)="K ^ONCO(165.5,""AFP"",X,$P(^ONCO(165.5,DA,0),U,2),DA)"
^DD(165.5,2.1,1,3,"%D",0)="^^1^1^2990511^^^^"
^DD(165.5,2.1,1,3,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(165.5,2.1,1,3,"DT")="2990511"
^DD(165.5,2.1,3)=""
^DD(165.5,2.1,4)=""
^DD(165.5,2.1,12)="Enter a PHYSICIAN or INSTITUTION CONTACT."
^DD(165.5,2.1,12.1)="S DIC(""S"")=""I ($P(^(0),U,2)=2)!($P(^(0),U,2)=4)"""
^DD(165.5,2.1,21,0)="^.001^5^5^3021105^^^^"
^DD(165.5,2.1,21,1,0)=""
^DD(165.5,2.1,21,2,0)="Records the person currently responsible for the patient's medical"
^DD(165.5,2.1,21,3,0)="care."
^DD(165.5,2.1,21,4,0)=""
^DD(165.5,2.1,21,5,0)="For further information see FORDS page 76."
^DD(165.5,2.1,"DT")="3000412"
^DD(165.5,2.2,0)="MANAGING PHYSICIAN^*P165^ONCO(165,^0;13^S DIC(""S"")=""I $P(^(0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,2.2,1,0)="^.1"
^DD(165.5,2.2,1,1,0)="165.5^ACP^MUMPS"
^DD(165.5,2.2,1,1,1)="S ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))="""""
^DD(165.5,2.2,1,1,2)="K ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))"
^DD(165.5,2.2,1,1,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.2,1,1,"%D",1,0)="Creates a list under the Contact file of contacts, and associated patients "
^DD(165.5,2.2,1,1,"%D",2,0)="orginating from the Primary file pointers to the Contact File."
^DD(165.5,2.2,1,1,"DT")="2920607"
^DD(165.5,2.2,1,2,0)="165.5^APC^MUMPS"
^DD(165.5,2.2,1,2,1)="S ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)="""""
^DD(165.5,2.2,1,2,2)="K ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)"
^DD(165.5,2.2,1,2,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.2,1,2,"%D",1,0)="Creates a list under the contact file of patients, and associated contacts"
^DD(165.5,2.2,1,2,"%D",2,0)="originating from the Primary file pointers to the contact file."
^DD(165.5,2.2,1,2,"DT")="2920607"
^DD(165.5,2.2,1,3,0)="165.5^AMP^MUMPS"
^DD(165.5,2.2,1,3,1)="S ^ONCO(165.5,""AMP"",X,$P(^ONCO(165.5,DA,0),U,2),DA)="""""
^DD(165.5,2.2,1,3,2)="K ^ONCO(165.5,""AMP"",X,$P(^ONCO(165.5,DA,0),U,2),DA)"
^DD(165.5,2.2,1,3,"%D",0)="^^1^1^2990511^^^^"
^DD(165.5,2.2,1,3,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(165.5,2.2,1,3,"DT")="2990511"
^DD(165.5,2.2,3)="Enter the physician who is responsible for the overall management of the patient."
^DD(165.5,2.2,4)=""
^DD(165.5,2.2,12)="Enter a PHYSICIAN TYPE ONCOLOGY CONTACT."
^DD(165.5,2.2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=2"""
^DD(165.5,2.2,20,0)="^.3LA^^0"
^DD(165.5,2.2,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,2.2,21,0)="^^3^3^3070214^"
^DD(165.5,2.2,21,1,0)=" "
^DD(165.5,2.2,21,2,0)="Identifies the physician who is responsible for the overall management"
^DD(165.5,2.2,21,3,0)="of the patient during diagnosis and/or treatment of this cancer."
^DD(165.5,2.2,"DT")="3070214"
^DD(165.5,2.3,0)="PHYSICIAN #3^*P165^ONCO(165,^0;14^S DIC(""S"")=""I $P(^(0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,2.3,1,0)="^.1"
^DD(165.5,2.3,1,1,0)="165.5^ACP^MUMPS"
^DD(165.5,2.3,1,1,1)="S ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))="""""
^DD(165.5,2.3,1,1,2)="K ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))"
^DD(165.5,2.3,1,1,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.3,1,1,"%D",1,0)="Creates a list under the Contact file of contacts, and associated patients "
^DD(165.5,2.3,1,1,"%D",2,0)="orginating from the Primary file pointers to the Contact File."
^DD(165.5,2.3,1,1,"DT")="2920607"
^DD(165.5,2.3,1,2,0)="165.5^APC^MUMPS"
^DD(165.5,2.3,1,2,1)="S ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)="""""
^DD(165.5,2.3,1,2,2)="K ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)"
^DD(165.5,2.3,1,2,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.3,1,2,"%D",1,0)="Creates a list under the contact file of patients, and associated contacts"
^DD(165.5,2.3,1,2,"%D",2,0)="originating from the Primary file pointers to the contact file."
^DD(165.5,2.3,1,2,"DT")="2920607"
^DD(165.5,2.3,1,3,0)="165.5^AOP3^MUMPS"
^DD(165.5,2.3,1,3,1)="S ^ONCO(165.5,""AOP3"",X,$P(^ONCO(165.5,DA,0),U,2),DA)="""""
^DD(165.5,2.3,1,3,2)="K ^ONCO(165.5,""AOP3"",X,$P(^ONCO(165.5,DA,0),U,2),DA)"
^DD(165.5,2.3,1,3,"%D",0)="^^1^1^2990511^^^^"
^DD(165.5,2.3,1,3,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(165.5,2.3,1,3,"DT")="2990511"
^DD(165.5,2.3,3)=""
^DD(165.5,2.3,4)=""
^DD(165.5,2.3,12)="Enter a PHYSICIAN CONTACT."
^DD(165.5,2.3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=2"""
^DD(165.5,2.3,20,0)="^.3LA^^0"
^DD(165.5,2.3,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,2.3,21,0)="^.001^6^6^3021106^^^^"
^DD(165.5,2.3,21,1,0)=""
^DD(165.5,2.3,21,2,0)="Records another physician involved in the care of the patient.  The"
^DD(165.5,2.3,21,3,0)="Commission on Cancer recommends that this data item identify the"
^DD(165.5,2.3,21,4,0)="physician who performed the most definitive radiation therapy."
^DD(165.5,2.3,21,5,0)=""
^DD(165.5,2.3,21,6,0)="For further information see FORDS page 78."
^DD(165.5,2.3,"DT")="3021105"
^DD(165.5,2.4,0)="PHYSICIAN #4^*P165^ONCO(165,^0;15^S DIC(""S"")=""I $P(^(0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,2.4,1,0)="^.1"
^DD(165.5,2.4,1,1,0)="165.5^ACP^MUMPS"
^DD(165.5,2.4,1,1,1)="S ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))="""""
^DD(165.5,2.4,1,1,2)="K ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))"
^DD(165.5,2.4,1,1,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.4,1,1,"%D",1,0)="Creates a list under the Contact file of contacts, and associated patients "
^DD(165.5,2.4,1,1,"%D",2,0)="orginating from the Primary file pointers to the Contact File."
^DD(165.5,2.4,1,1,"DT")="2920607"
^DD(165.5,2.4,1,2,0)="165.5^APC^MUMPS"
^DD(165.5,2.4,1,2,1)="S ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)="""""
^DD(165.5,2.4,1,2,2)="K ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)"
^DD(165.5,2.4,1,2,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,2.4,1,2,"%D",1,0)="Creates a list under the contact file of patients, and associated contacts"
^DD(165.5,2.4,1,2,"%D",2,0)="originating from the Primary file pointers to the contact file."
^DD(165.5,2.4,1,2,"DT")="2920607"
^DD(165.5,2.4,1,3,0)="165.5^AOP4^MUMPS"
^DD(165.5,2.4,1,3,1)="S ^ONCO(165.5,""AOP4"",X,$P(^ONCO(165.5,DA,0),U,2),DA)="""""
^DD(165.5,2.4,1,3,2)="K ^ONCO(165.5,""AOP4"",X,$P(^ONCO(165.5,DA,0),U,2),DA)"
^DD(165.5,2.4,1,3,"%D",0)="^^1^1^2990511^^^^"
^DD(165.5,2.4,1,3,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(165.5,2.4,1,3,"DT")="2990511"
^DD(165.5,2.4,3)=""
^DD(165.5,2.4,4)=""
^DD(165.5,2.4,12)="Enter a PHYSICIAN CONTACT."
^DD(165.5,2.4,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=2"""
^DD(165.5,2.4,20,0)="^.3LA^^0"
^DD(165.5,2.4,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,2.4,21,0)="^.001^6^6^3021105^^^"
^DD(165.5,2.4,21,1,0)=""
^DD(165.5,2.4,21,2,0)="Records another physician involved in the care of the patient.  The"
^DD(165.5,2.4,21,3,0)="Commission on Cancer recommends that this data item identify the"
^DD(165.5,2.4,21,4,0)="physician who gives the most definitive systemic therapy."
^DD(165.5,2.4,21,5,0)=""
^DD(165.5,2.4,21,6,0)="For further information see FORDS page 79."
^DD(165.5,2.4,"DT")="3021105"
^DD(165.5,3,0)="DATE DX^DXOJ12^^0;16^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) I $D(X) D DTDXIT^ONCODXD"
^DD(165.5,3,.1)=""
^DD(165.5,3,1,0)="^.1"
^DD(165.5,3,1,1,0)="165.5^ADX"
^DD(165.5,3,1,1,1)="S ^ONCO(165.5,""ADX"",$E(X,1,30),DA)="""""
^DD(165.5,3,1,1,2)="K ^ONCO(165.5,""ADX"",$E(X,1,30),DA)"
^DD(165.5,3,1,1,3)="DO NOT DELETE"
^DD(165.5,3,1,1,"%D",0)="^^1^1^2991215^^"
^DD(165.5,3,1,1,"%D",1,0)="Cross-reference by DATE DX"
^DD(165.5,3,1,1,"DT")="2910829"
^DD(165.5,3,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,3,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,3,3)="Future dates are not allowed."
^DD(165.5,3,10)=""
^DD(165.5,3,20,0)="^.3LA^^0"
^DD(165.5,3,21,0)="^.001^5^5^3030630^^^^"
^DD(165.5,3,21,1,0)=""
^DD(165.5,3,21,2,0)="Records the date of initial diagnosis by a physician for"
^DD(165.5,3,21,3,0)="the tumor being reported."
^DD(165.5,3,21,4,0)=""
^DD(165.5,3,21,5,0)="For further information see FORDS pages 89-90."
^DD(165.5,3,"DT")="3061221"
^DD(165.5,3.1,0)="DIAGNOSIS EPISODE CARE^CJ12^^ ; ^S X="""" D ADM^ONCOCON"
^DD(165.5,3.1,9)="^"
^DD(165.5,3.1,9.01)=""
^DD(165.5,3.1,9.1)="S X="""" D ADM^ONCOCON"
^DD(165.5,3.1,21,0)="^^2^2^2920528^"
^DD(165.5,3.1,21,1,0)="RECORDS THE CARE THE PATIENT RECEIVED DURING THE CURRENT EPISODE OF"
^DD(165.5,3.1,21,2,0)="TREATMENT AT DIAGNOSIS."
^DD(165.5,3.5,0)="YEAR DX^DC^^ ; ^S Y(165.5,3.5,1)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=$P(Y(165.5,3.5,1),U,16),X=X S X=X,X=$E(X,1,3)_""0000"" S:'X X="""""
^DD(165.5,3.5,9)="^"
^DD(165.5,3.5,9.01)="165.5^3"
^DD(165.5,3.5,9.1)="YEAR(INTERNAL(DATE DX))"
^DD(165.5,3.5,21,0)="^^1^1^2980310^^^^"
^DD(165.5,3.5,21,1,0)="DATE DX (165.5,3) year"
^DD(165.5,3.5,"DT")="2980310"
^DD(165.5,4,0)="AGE AT DX^CJ3^^ ; ^D AGE^ONCOCOM"
^DD(165.5,4,9)="^"
^DD(165.5,4,9.01)=""
^DD(165.5,4,9.1)="D AGE^ONCOCOM"
^DD(165.5,4,21,0)="^.001^4^4^3021104^^"
^DD(165.5,4,21,1,0)="Records the age of the patient at his or her last birthday"
^DD(165.5,4,21,2,0)="before diagnosis."
^DD(165.5,4,21,3,0)=""
^DD(165.5,4,21,4,0)="For further information see FORDS page 58."
^DD(165.5,4,"DT")="2900621"
^DD(165.5,4.1,0)="DX AGE-GP^CJ8^^ ; ^D DEC^ONCOCOM"
^DD(165.5,4.1,9)="^"
^DD(165.5,4.1,9.01)=""
^DD(165.5,4.1,9.1)="D DEC^ONCOCOM"
^DD(165.5,4.1,21,0)="^^1^1^2920528^"
^DD(165.5,4.1,21,1,0)="DIAGNOSIS AGE GROUP WILL GROUP PATIENTS BY AGE."
^DD(165.5,4.1,"DT")="2900719"
^DD(165.5,5,0)="DX FACILITY^P160.19O^ONCO(160.19,^0;17^Q"
^DD(165.5,5,1,0)="^.1^^0"
^DD(165.5,5,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,5,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,5,3)="Enter Hospital which diagnosed this Primary."
^DD(165.5,5,4)="D HELP^ONCOFLF"
^DD(165.5,5,21,0)="^^1^1^2960808^^^^"
^DD(165.5,5,21,1,0)="Record the name of the facility where diagnosis was first made."
^DD(165.5,5,"DT")="2960531"
^DD(165.5,6,0)="FACILITY REFERRED FROM^P160.19O^ONCO(160.19,^0;18^Q"
^DD(165.5,6,.1)=""
^DD(165.5,6,1,0)="^.1^^0"
^DD(165.5,6,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,6,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,6,3)=""
^DD(165.5,6,4)="D HELP^ONCOFLF"
^DD(165.5,6,10)=""
^DD(165.5,6,20,0)="^.3LA^^0"
^DD(165.5,6,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,6,20,2,0)="ACOS-REQUIRED"
^DD(165.5,6,21,0)="^.001^4^4^3030213^^^^"
^DD(165.5,6,21,1,0)="Identifies the facility that referred the patient to the reporting"
^DD(165.5,6,21,2,0)="facility."
^DD(165.5,6,21,3,0)=""
^DD(165.5,6,21,4,0)="For further information see FORDS page 85."
^DD(165.5,6,"DT")="3021106"
^DD(165.5,7,0)="FACILITY REFERRED TO^P160.19O^ONCO(160.19,^0;19^Q"
^DD(165.5,7,.1)=""
^DD(165.5,7,1,0)="^.1^^0"
^DD(165.5,7,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,7,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,7,3)=""
^DD(165.5,7,4)="D HELP^ONCOFLF"
^DD(165.5,7,10)=""
^DD(165.5,7,20,0)="^.3LA^^0"
^DD(165.5,7,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,7,21,0)="^.001^4^4^3030213^^^^"
^DD(165.5,7,21,1,0)="Identifies the facility to which the patient was referred for"
^DD(165.5,7,21,2,0)="further care after discharge from the reporting facility."
^DD(165.5,7,21,3,0)=""
^DD(165.5,7,21,4,0)="For further information see FORDS page 86."
^DD(165.5,7,"DT")="3021106"
^DD(165.5,8,0)="PATIENT ADDRESS AT DX^FX^^1;1^K:$L(X)>40!($L(X)<1) X I $D(X) D NP^ONCOIT"
^DD(165.5,8,.1)=""
^DD(165.5,8,3)="Enter 1-40 uppercase alphanumeric characters.  No punctuation."
^DD(165.5,8,20,0)="^.3LA^^0"
^DD(165.5,8,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,8,21,0)="^.001^5^5^3021104^^^^"
^DD(165.5,8,21,1,0)=""
^DD(165.5,8,21,2,0)="Identifies the patient's address (number and street) at the time of"
^DD(165.5,8,21,3,0)="diagnosis."
^DD(165.5,8,21,4,0)=""
^DD(165.5,8,21,5,0)="For further information see FORDS page 42."
^DD(165.5,8,"DT")="3010621"
^DD(165.5,8.1,0)="CITY/TOWN AT DX^FX^^1;12^K:$L(X)>20!($L(X)<1) X I $D(X) D NP^ONCOIT"
^DD(165.5,8.1,3)="Enter 1-20 uppercase alphanumeric characters.  No punctuation."
^DD(165.5,8.1,21,0)="^.001^5^5^3021104^^^^"
^DD(165.5,8.1,21,1,0)=""
^DD(165.5,8.1,21,2,0)="Identifies the name of the city or town in which the patient"
^DD(165.5,8.1,21,3,0)="resides at the time the tumor is diagnosed and treated."
^DD(165.5,8.1,21,4,0)=""
^DD(165.5,8.1,21,5,0)="For further information see FORDS page 44."
^DD(165.5,8.1,"DT")="3010621"
^DD(165.5,8.2,0)="PATIENT ADDRESS AT DX - SUPP^FX^^1;13^K:$L(X)>40!($L(X)<1) X I $D(X) D NP^ONCOIT"
^DD(165.5,8.2,3)="Enter 1-40 uppercase alphanumeric characters.  No punctuation."
^DD(165.5,8.2,21,0)="^.001^6^6^3021104^^^^"
^DD(165.5,8.2,21,1,0)=""
^DD(165.5,8.2,21,2,0)="Provides the ability to store additional adress information"
^DD(165.5,8.2,21,3,0)="such as the name of a place or facility (ie, a nursing home"
^DD(165.5,8.2,21,4,0)="or name of an apartment complex) at the time of diagnosis."
^DD(165.5,8.2,21,5,0)=""
^DD(165.5,8.2,21,6,0)="For further information see FORDS page 43."
^DD(165.5,8.2,"DT")="3021104"
^DD(165.5,9,0)="POSTAL CODE AT DX^FX^^1;2^K:$L(X)>9!($L(X)<5) X I $D(X) D NP^ONCOIT"
^DD(165.5,9,.1)=""
^DD(165.5,9,2)="S Y(0)=Y S Y=$S(Y="""":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_"",""_$P(^DIC(5,$P(^VIC(5.1,+$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_"" ""_$P(^VIC(5.11,Y,0),U,1),1:"""")"
^DD(165.5,9,2.1)="S Y=$S(Y="""":Y,$D(^VIC(5.11,Y,0))#2:$P(^(0),U,2)_"",""_$P(^DIC(5,$P(^VIC(5.1,+$P(^VIC(5.11,Y,0),U,3),0),U,2),0),U,2)_"" ""_$P(^VIC(5.11,Y,0),U,1),1:"""")"
^DD(165.5,9,3)="Enter 5-9 alphanumeric characters.  No hyphens or other punctuation."
^DD(165.5,9,20,0)="^.3LA^^0"
^DD(165.5,9,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,9,20,2,0)="SEER"
^DD(165.5,9,21,0)="3^.001^4^4^3021104^^^^"
^DD(165.5,9,21,1,0)=""
^DD(165.5,9,21,2,0)="Identifies the postal code of the patient's address at diagnosis."
^DD(165.5,9,21,3,0)=""
^DD(165.5,9,21,4,0)="For further information see FORDS page 47."
^DD(165.5,9,"DT")="3010621"
^DD(165.5,10,0)="COUNTY AT DX^P5.1'X^VIC(5.1,^1;3^Q"
^DD(165.5,10,3)=""
^DD(165.5,10,21,0)="^.001^5^5^3021104^^^^"
^DD(165.5,10,21,1,0)=""
^DD(165.5,10,21,2,0)="Identifies the county of the patient's residence"
^DD(165.5,10,21,3,0)="at the time the reportable tumor is diagnosed."
^DD(165.5,10,21,4,0)=""
^DD(165.5,10,21,5,0)="For further information see FORDS page 48."
^DD(165.5,10,"DT")="3000802"
^DD(165.5,11,0)="MARITAL STATUS AT DX^S^1:Single/Never married;2:Married/Common Law;3:Separated;4:Divorced;5:Widowed;9:Unknown;^1;5^Q"
^DD(165.5,11,.1)="Marital Status at initial Diagnosis"
^DD(165.5,11,3)="Enter the patient's marital status at diagnosis."
^DD(165.5,11,10)="SEER III.09"
^DD(165.5,11,20,0)="^.3LA^2^2"
^DD(165.5,11,20,1,0)="SEER"
^DD(165.5,11,20,2,0)="ACOS-RECOMMENDED"
^DD(165.5,11,21,0)="^^1^1^2920523^"
^DD(165.5,11,21,1,0)="Record marital status at time of diagnosis."
^DD(165.5,11,"DT")="2920711"
^DD(165.5,12,0)="PALLIATIVE CARE^S^0:No palliative care;1:Surgery;2:Radiation;3:Systemic tx;4:Pain management;5:Surg, rad, and/or systemic tx w/o pain mgt;6:Surg, rad, and/or systemic tx w pain mgt;7:Palliative care, type unknown;9:Unknown, not stated;^3.1;26^Q"
^DD(165.5,12,1,0)="^.1"
^DD(165.5,12,1,1,0)="165.5^AN^MUMPS"
^DD(165.5,12,1,1,1)="Q"
^DD(165.5,12,1,1,2)="D PP^ONCDTX"
^DD(165.5,12,1,1,"DT")="3030305"
^DD(165.5,12,21,0)="^.001^8^8^3060303^^^^"
^DD(165.5,12,21,1,0)=""
^DD(165.5,12,21,2,0)="Identifies any care provided in an effort to palliate or"
^DD(165.5,12,21,3,0)="alleviate symptoms.  Palliative care is performed to"
^DD(165.5,12,21,4,0)="relieve symptoms and may include surgery, radiation therapy,"
^DD(165.5,12,21,5,0)="systemic therapy (chemotherapy, hormone therapy, or other"
^DD(165.5,12,21,6,0)="systemic drugs), and/or pain management therapy."
^DD(165.5,12,21,7,0)=""
^DD(165.5,12,21,8,0)="For further information see FORDS pages 189-190."
^DD(165.5,12,"DT")="3060303"
^DD(165.5,13,0)="PALLIATIVE CARE @FAC^S^0:No palliative care;1:Surgery;2:Radiation;3:Systemic tx;4:Pain management;5:Surg, rad, and/or systemic tx w/o pain mgt;6:Surg, rad, and/or systemic tx w pain mgt;7:Palliative care, type unknown;9:Unknown, not stated;^3.1;27^Q"
^DD(165.5,13,21,0)="^.001^8^8^3040520^^^^"
^DD(165.5,13,21,1,0)=""
^DD(165.5,13,21,2,0)="Identifies care provided at this facility in an effort"
^DD(165.5,13,21,3,0)="to palliate or alleviate symptoms.  Palliative care is"
^DD(165.5,13,21,4,0)="performed to relieve symptoms and may include surgery, radiation"
^DD(165.5,13,21,5,0)="therapy, systemic therapy (chemotherapy, hormone therapy, or"
^DD(165.5,13,21,6,0)="other systemic drugs), and/or other pain management therapy."
^DD(165.5,13,21,7,0)=""
^DD(165.5,13,21,8,0)="For further information see FORDS page 191."
^DD(165.5,13,"DT")="3040520"
^DD(165.5,14,0)="READMISSION W/I 30 DAYS/SURG^S^0:No surgery/not readmitted;1:Unplanned readmission;2:Planned readmission;3:Planned and unplanned readmission;9:Unknown if surgery or readmission;^3.1;28^Q"
^DD(165.5,14,21,0)="^.001^5^5^3030108^^^"
^DD(165.5,14,21,1,0)=""
^DD(165.5,14,21,2,0)="Records a readmission to the same hospital within 30 days of discharge"
^DD(165.5,14,21,3,0)="following a hospitalization for surgical resection of the primary site."
^DD(165.5,14,21,4,0)=""
^DD(165.5,14,21,5,0)="For further information see FORDS page 146."
^DD(165.5,14,"DT")="3030108"
^DD(165.5,15,0)="SYSTEMIC/SURGERY SEQUENCE^S^0:No systemic and/or surgery;2:Systemic before surgery;3:Systemic after surgery;4:Systemic before and after surgery;5:Intraoperative systemic;6:Intraoperative/other before or after surgery;9:Sequence unknown;^3.1;39^Q"
^DD(165.5,15,21,0)="^^3^3^3051227^"
^DD(165.5,15,21,1,0)=" "
^DD(165.5,15,21,2,0)="Records the sequencing of systemic therapy and surgical"
^DD(165.5,15,21,3,0)="procedures given as part of the first course of treatment."
^DD(165.5,15,"DT")="3051227"
^DD(165.5,16,0)="STATE AT DX^P160.15'O^ONCO(160.15,^1;4^Q"
^DD(165.5,16,1,0)="^.1^^0"
^DD(165.5,16,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.15,Y,0),""^"",2),Y=$TR(Y,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^DD(165.5,16,2.1)="S:Y'="""" Y=$P(^ONCO(160.15,Y,0),""^"",2),Y=$TR(Y,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^DD(165.5,16,3)=""
^DD(165.5,16,21,0)="^.001^4^4^3021104^^^^"
^DD(165.5,16,21,1,0)=""
^DD(165.5,16,21,2,0)="Identifies the patient's state of residence at the time of diagnosis."
^DD(165.5,16,21,3,0)=""
^DD(165.5,16,21,4,0)="For further information see FORDS page 45."
^DD(165.5,16,"DT")="3001004"
^DD(165.5,17,0)="SUSPENSE DATE^DOX^^1;10^D DFIT^ONCODSR"
^DD(165.5,17,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,17,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,17,3)="*** SUSPENSE DATE MUST BE AFTER OR EQUAL TO THE DATE DX ***"
^DD(165.5,17,21,0)="^^2^2^2970523^^^"
^DD(165.5,17,21,1,0)=""
^DD(165.5,17,21,2,0)="This is the date on which the primary was added to the suspense file."
^DD(165.5,17,"DT")="2970403"
^DD(165.5,18,0)="PRIMARY PAYER AT DX^P160.3'OX^ONCO(160.3,^1;11^Q"
^DD(165.5,18,1,0)="^.1^^0"
^DD(165.5,18,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.3,Y,0),U,2)"
^DD(165.5,18,2.1)="S:Y'="""" Y=$P(^ONCO(160.3,Y,0),U,2)"
^DD(165.5,18,21,0)="^.001^5^5^3021104^^^^"
^DD(165.5,18,21,1,0)=""
^DD(165.5,18,21,2,0)="Identifies the patient's primary payer/insurance carrier"
^DD(165.5,18,21,3,0)="at the time of initial diagnosis and/or treatment."
^DD(165.5,18,21,4,0)=""
^DD(165.5,18,21,5,0)="For further information see FORDS pages 67-68."
^DD(165.5,18,"DT")="3000707"
^DD(165.5,19,0)="STAGED BY (CLINICAL STAGE)^S^0:Not staged;1:Managing MD;2:Pathologist;3:Pathologist & managing MD;4:Committee chair, liaison MD, registry advisor;5:Registrar;6:Registrar & MD;7:Another facility;8:NA;9:Unknown;^3;32^Q"
^DD(165.5,19,21,0)="^.001^5^5^3021112^^^^"
^DD(165.5,19,21,1,0)=""
^DD(165.5,19,21,2,0)="Identifies the person who recorded the clinical AJCC staging"
^DD(165.5,19,21,3,0)="elements and the stage group in the patient's medical record."
^DD(165.5,19,21,4,0)=""
^DD(165.5,19,21,5,0)="For futher information see FORDS page 117."
^DD(165.5,19,"DT")="2971215"
^DD(165.5,20,0)="PRIMARY SITE^RP164'X^ONCO(164,^2;1^D TOPIT^ONCOSUR1"
^DD(165.5,20,.1)=""
^DD(165.5,20,1,0)="^.1"
^DD(165.5,20,1,1,0)="165.5^BT^MUMPS"
^DD(165.5,20,1,1,1)="S ^ONCO(165.5,""C""_$E(X,3,4),DA)="""""
^DD(165.5,20,1,1,2)="K ^ONCO(165.5,""C""_$E(X,3,4),DA)"
^DD(165.5,20,1,1,"%D",0)="^^2^2^2930910^"
^DD(165.5,20,1,1,"%D",1,0)="Indexes the file by the whole number value of the ICD-O second edition"
^DD(165.5,20,1,1,"%D",2,0)="topography code."
^DD(165.5,20,1,1,"DT")="2911123"
^DD(165.5,20,1,2,0)="165.5^AD^MUMPS"
^DD(165.5,20,1,2,1)="S $P(^ONCO(165.5,DA,0),U,22)=$E(X,1,4)"
^DD(165.5,20,1,2,2)="S $P(^ONCO(165.5,DA,0),U,22)="""""
^DD(165.5,20,1,2,"%D",0)="^^1^1^2930910^"
^DD(165.5,20,1,2,"%D",1,0)="Maintains the ICDO-SITE Field (#.022)."
^DD(165.5,20,1,2,"DT")="2911123"
^DD(165.5,20,1,3,0)="165.5^E"
^DD(165.5,20,1,3,1)="S ^ONCO(165.5,""E"",$E(X,1,30),DA)="""""
^DD(165.5,20,1,3,2)="K ^ONCO(165.5,""E"",$E(X,1,30),DA)"
^DD(165.5,20,1,3,"%D",0)="^^1^1^2930909"
^DD(165.5,20,1,3,"%D",1,0)="Indexes file by ICDO-TOPOGRAPHY."
^DD(165.5,20,1,3,"DT")="2900517"
^DD(165.5,20,3)="Record the ICD-O topography code for the site of origin."
^DD(165.5,20,4)="S ONCOX=164 D HP^ONCOHICD"
^DD(165.5,20,10)=""
^DD(165.5,20,20,0)="^.3LA^^0"
^DD(165.5,20,20,1,0)="SEER"
^DD(165.5,20,20,2,0)="ACOS-REQUIRED"
^DD(165.5,20,21,0)="^.001^3^3^3021106^^^^"
^DD(165.5,20,21,1,0)="Identifies the primary site."
^DD(165.5,20,21,2,0)=""
^DD(165.5,20,21,3,0)="For further information see FORDS page 91."
^DD(165.5,20,"DT")="3021106"
^DD(165.5,20.1,0)="PRIMARY SITE CODE^CJ5^^ ; ^S X=$P($G(^ONCO(165.5,D0,2)),U),X=$S(X="""":"""",1:""C""_$E(X,3,4)_"".""_$E(X,5))"
^DD(165.5,20.1,9)="^"
^DD(165.5,20.1,9.01)="165.5^20"
^DD(165.5,20.1,9.1)="CUSTOM CODED"
^DD(165.5,20.1,21,0)="^.001^1^1^3021106^^"
^DD(165.5,20.1,21,1,0)="Identifies the primary site ICD-O topography code."
^DD(165.5,20.1,"DT")="3021106"
^DD(165.5,21,0)="CASEFINDING SOURCE^P166'O^ONCO(166,^1;6^Q"
^DD(165.5,21,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(166,Y,0),U,2)"
^DD(165.5,21,2.1)="S:Y'="""" Y=$P(^ONCO(166,Y,0),U,2)"
^DD(165.5,21,21,0)="^^2^2^3051228^"
^DD(165.5,21,21,1,0)=" "
^DD(165.5,21,21,2,0)="This field codes the earliest source of identifying information."
^DD(165.5,21,"DT")="3051228"
^DD(165.5,21.5,0)="INFRA/SUPRA^RS^I:INFRATENTORIAL;S:SUPRATENTORIAL;^2;7^Q"
^DD(165.5,21.5,3)="This field applies to brain tumors only."
^DD(165.5,21.5,21,0)="^^4^4^2930622^^^^"
^DD(165.5,21.5,21,1,0)="For brain tumors, enter 'I' or 'S' according to whether the tumor is"
^DD(165.5,21.5,21,2,0)="infratentorial or supratentorial."
^DD(165.5,21.5,21,3,0)=" "
^DD(165.5,21.5,21,4,0)="This field does not apply to tumors other than brain tumors."
^DD(165.5,21.5,"DT")="2930622"
^DD(165.5,21.51,0)="IRIS/CILIARY BODY^S^I:Iris;C:Ciliary body;^2;22^Q"
^DD(165.5,21.51,21,0)="^^2^2^2930630^"
^DD(165.5,21.51,21,1,0)="This field is used to determine the appropriate TNM encoding for malignant"
^DD(165.5,21.51,21,2,0)="melanomas of the uvea."
^DD(165.5,21.51,"DT")="2930630"
^DD(165.5,21.52,0)="UPPER/LOWER^S^U:Upper 2/3;L:Lower 1/3;^24;4^Q"
^DD(165.5,21.52,21,0)="^^4^4^2930704^"
^DD(165.5,21.52,21,1,0)="This field is used to determine the appropriate N coding for tumors of the"
^DD(165.5,21.52,21,2,0)="vagina.  Enter U or L according to whether the regional lymph node"
^DD(165.5,21.52,21,3,0)="metastasis relates to the upper two-thirds or lower one-third of the"
^DD(165.5,21.52,21,4,0)="vagina."
^DD(165.5,21.52,"DT")="2930704"
^DD(165.5,22,0)="HISTOLOGY (ICD-O-2)^*P164.1'X^ONCO(164.1,^2;3^S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2980101)!((Y<96002)!(Y>96423))&($P(^ONCO(165.5,DA,0),U,16)<3010101)"" D ^DIC K DIC S DIC=DIE,X=+Y D HIST23^ONCOHICD K:Y<0 X"
^DD(165.5,22,.1)=""
^DD(165.5,22,1,0)="^.1^^-1"
^DD(165.5,22,1,1,0)="165.5^AH"
^DD(165.5,22,1,1,1)="S ^ONCO(165.5,""AH"",$E(X,1,30),DA)="""""
^DD(165.5,22,1,1,2)="K ^ONCO(165.5,""AH"",$E(X,1,30),DA)"
^DD(165.5,22,1,1,3)="DO NOT DELETE"
^DD(165.5,22,1,1,"%D",0)="^^2^2^2910725^"
^DD(165.5,22,1,1,"%D",1,0)="Cross Reference Histology, (pointer) used in hard-coded routines as"
^DD(165.5,22,1,1,"%D",2,0)="FM will not use this index being a pointer."
^DD(165.5,22,1,1,"DT")="2910725"
^DD(165.5,22,3)="Enter the code, e.g. 81203 or 8120/3, or name, e.g. TRANSITIONAL CELL CA."
^DD(165.5,22,4)="S ONCOX=164.1 D HP^ONCOHICD"
^DD(165.5,22,10)=""
^DD(165.5,22,12)="Codes 9600-9642 are not selectable for 1998 or later cases and this field is not editable at all for 2001 or later cases."
^DD(165.5,22,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2980101)!((Y<96002)!(Y>96423))&($P(^ONCO(165.5,DA,0),U,16)<3010101)"""
^DD(165.5,22,20,0)="^.3LA^^0"
^DD(165.5,22,21,0)="^.001^3^3^3010412^^^^"
^DD(165.5,22,21,1,0)=""
^DD(165.5,22,21,2,0)="Record the histology using the ICD-O-2 codes."
^DD(165.5,22,21,3,0)=""
^DD(165.5,22,"DT")="3030612"
^DD(165.5,22.1,0)="ICDO HISTOLOGY-CODE^CXJ6^^ ; ^S X=$$HIST^ONCFUNC(D0),X=$S(X="""":"""",1:$E(X,1,4)_""/""_$E(X,5))"
^DD(165.5,22.1,9)="^"
^DD(165.5,22.1,9.01)=""
^DD(165.5,22.1,9.1)="S X="""""
^DD(165.5,22.1,21,0)="^.001^4^4^3010522^^^"
^DD(165.5,22.1,21,1,0)=""
^DD(165.5,22.1,21,2,0)="Display the Histology Code value, based on the primary's date DX:"
^DD(165.5,22.1,21,3,0)="If Date DX is before 2001 use the HISTOLOGY (ICD-O-2) value, if it is"
^DD(165.5,22.1,21,4,0)="a 2001 or later case use the HISTOLOGY (ICD-O-3) value."
^DD(165.5,22.1,"DT")="3010522"
^DD(165.5,22.2,0)="PAPILLARY/FOLLICULAR^S^P:PAPILLARY;F:FOLLICULAR;^2;4^Q"
^DD(165.5,22.2,21,0)="^^4^4^2930614^^"
^DD(165.5,22.2,21,1,0)="This code assists in the characterization of tumors of the thyroid"
^DD(165.5,22.2,21,2,0)="gland.  It is only significant for patients 45 years and over."
^DD(165.5,22.2,21,3,0)=" "
^DD(165.5,22.2,21,4,0)="If the tumor is neither papillary nor follicular, leave this field blank."
^DD(165.5,22.2,23,0)="^^2^2^2930614^^"
^DD(165.5,22.2,23,1,0)="For thyroid primaries only (C73.9), this field is set directly by"
^DD(165.5,22.2,23,2,0)="the TBA cross-reference of the HISTOLOGY Field (#22)."
^DD(165.5,22.2,"DT")="2930614"
^DD(165.5,22.3,0)="HISTOLOGY (ICD-O-3)^P169.3'X^ONCO(169.3,^2.2;3^D INIT^ONCCS"
^DD(165.5,22.3,1,0)="^.1"
^DD(165.5,22.3,1,1,0)="165.5^AL^MUMPS"
^DD(165.5,22.3,1,1,1)="Q"
^DD(165.5,22.3,1,1,2)="S $P(^ONCO(165.5,DA,8),U,2)="""""
^DD(165.5,22.3,1,1,"%D",0)="^.101^2^2^3050602^^^^"
^DD(165.5,22.3,1,1,"%D",1,0)="This cross-reference will delete the TEXT-HISTOLOGY TITLE (165.5,101)"
^DD(165.5,22.3,1,1,"%D",2,0)="value if the HISTOLOGY (ICD-O-3) value is changed."
^DD(165.5,22.3,1,1,"DT")="3050411"
^DD(165.5,22.3,3)=""
^DD(165.5,22.3,4)="D ICDO3^ONCOHICD"
^DD(165.5,22.3,21,0)="^.001^9^9^3050602^^^^"
^DD(165.5,22.3,21,1,0)=""
^DD(165.5,22.3,21,2,0)="Identifies the microscopic anatomy of cells for primaries"
^DD(165.5,22.3,21,3,0)="diagnosed in 2001 or later."
^DD(165.5,22.3,21,4,0)=""
^DD(165.5,22.3,21,5,0)="This field also contains the BEHAVIOR CODE which records the"
^DD(165.5,22.3,21,6,0)="behavior of the tumor being reported.  The fifth digit of the"
^DD(165.5,22.3,21,7,0)="morphology code is the behavior code."
^DD(165.5,22.3,21,8,0)=""
^DD(165.5,22.3,21,9,0)="For further information see FORDS pages 93-95."
^DD(165.5,22.3,"DT")="3050531"
^DD(165.5,23,0)="RECONSTRUCTION/RESTORATION^FOX^^3;33^D RRDEFIT^ONCNTX1 K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S NTXDD=1 D RRIT^ONCRR Q"
^DD(165.5,23,2)="S Y(0)=Y D RROT^ONCRR"
^DD(165.5,23,2.1)="D RROT^ONCRR"
^DD(165.5,23,3)=""
^DD(165.5,23,4)="D RRHP^ONCRR"
^DD(165.5,23,21,0)="^.001^10^10^3001226^^^^"
^DD(165.5,23,21,1,0)=""
^DD(165.5,23,21,2,0)="RECONSTRUCTIVE/RESTORATION is a surgical procdure that improves the"
^DD(165.5,23,21,3,0)="shape and appearance or function of body structures that are missing,"
^DD(165.5,23,21,4,0)="defective, damaged or misshapen by cancer or its treatment."
^DD(165.5,23,21,5,0)=""
^DD(165.5,23,21,6,0)="RECONSTRUCTION/RESTORATION is limited to procedures started during"
^DD(165.5,23,21,7,0)="the first course of treatment."
^DD(165.5,23,21,8,0)=""
^DD(165.5,23,21,9,0)="For further information see ROADS page 195."
^DD(165.5,23,21,10,0)=""
^DD(165.5,23,"DT")="3040921"
^DD(165.5,24,0)="GRADE/DIFF/CELL TYPE^P164.43'O^ONCO(164.43,^2;5^Q"
^DD(165.5,24,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(164.43,Y,0),U,1)"
^DD(165.5,24,2.1)="S:Y'="""" Y=$P(^ONCO(164.43,Y,0),U,1)"
^DD(165.5,24,3)=""
^DD(165.5,24,4)=""
^DD(165.5,24,21,0)="^.001^7^7^3051205^^^^"
^DD(165.5,24,21,1,0)=""
^DD(165.5,24,21,2,0)="Describes the tumor's resemblance to normal tissue."
^DD(165.5,24,21,3,0)="Well differentiated (Grade I) is the most like"
^DD(165.5,24,21,4,0)="normal tissue, and undifferentiated (Grade IV) is"
^DD(165.5,24,21,5,0)="the least like normal tissue."
^DD(165.5,24,21,6,0)=""
^DD(165.5,24,21,7,0)="For further information see FORDS pages 96-98."
^DD(165.5,24,"DT")="3051205"
^DD(165.5,25,0)="TNM FORM ASSIGNED^FXO^^7;7^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,25,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,25,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,25,3)="Enter the date on which the TNM form was assigned to the Managing Physician."
^DD(165.5,25,21,0)="^^3^3^3060921^"
^DD(165.5,25,21,1,0)=" "
^DD(165.5,25,21,2,0)="Records the date on which the TNM form was assigned to the Managing"
^DD(165.5,25,21,3,0)="Physician."
^DD(165.5,25,"DT")="3060921"
^DD(165.5,25.1,0)="TUMOR MARKER 1^*P164.15'OX^ONCO(164.15,^24;2^S DIC(""S"")=""D SCREEN^ONCOTM"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,25.1,.1)="Tumor Marker 1"
^DD(165.5,25.1,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.15,+Y,0)),U,2)"
^DD(165.5,25.1,2.1)="S Y=$P($G(^ONCO(164.15,+Y,0)),U,2)"
^DD(165.5,25.1,4)=""
^DD(165.5,25.1,12)="4th edition: 0-3, 8, 9.  5th edition: 0-3, 4-6 (Testis only), 8, 9."
^DD(165.5,25.1,12.1)="S DIC(""S"")=""D SCREEN^ONCOTM"""
^DD(165.5,25.1,21,0)="^^2^2^2980227^^^^"
^DD(165.5,25.1,21,1,0)=""
^DD(165.5,25.1,21,2,0)="Record prognostic indicators."
^DD(165.5,25.1,"DT")="2980227"
^DD(165.5,25.2,0)="TUMOR MARKER 2^*P164.15'O^ONCO(164.15,^24;3^S DIC(""S"")=""D SCREEN^ONCOTM"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,25.2,.1)="Tumor Marker 2"
^DD(165.5,25.2,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.15,+Y,0)),U,2)"
^DD(165.5,25.2,2.1)="S Y=$P($G(^ONCO(164.15,+Y,0)),U,2)"
^DD(165.5,25.2,4)=""
^DD(165.5,25.2,12)="4th edition: 0-3, 8, 9.  5th edition: 0-3, 4-6 (Testis only), 8, 9."
^DD(165.5,25.2,12.1)="S DIC(""S"")=""D SCREEN^ONCOTM"""
^DD(165.5,25.2,21,0)="^^2^2^2980128^^^^"
^DD(165.5,25.2,21,1,0)=""
^DD(165.5,25.2,21,2,0)="Record prognostic indicators."
^DD(165.5,25.2,"DT")="2980128"
^DD(165.5,25.3,0)="TUMOR MARKER 3^*P164.15'O^ONCO(164.15,^24;7^S DIC(""S"")=""D SCREEN^ONCOTM"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,25.3,.1)="Tumor Marker 3"
^DD(165.5,25.3,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.15,+Y,0)),U,2)"
^DD(165.5,25.3,2.1)="S Y=$P($G(^ONCO(164.15,+Y,0)),U,2)"
^DD(165.5,25.3,4)=""
^DD(165.5,25.3,12)="4th edition: 0-3, 8, 9.  5th edition: 0-3, 4-6 (Testis only), 8, 9."
^DD(165.5,25.3,12.1)="S DIC(""S"")=""D SCREEN^ONCOTM"""
^DD(165.5,25.3,21,0)="^^2^2^2980128^^^^"
^DD(165.5,25.3,21,1,0)=""
^DD(165.5,25.3,21,2,0)="Record LDH prognostic indicators for testicular cancer."
^DD(165.5,25.3,"DT")="2980128"
^DD(165.5,26,0)="DIAGNOSTIC CONFIRMATION^S^1:Positive histology;2:Positive cytology;4:Positive Microscopic, method not specified;5:Positive lab test;6:Direct visualization;7:Radiography/other imaging techniques;8:Clinical dx only;9:Unknown;^2;6^Q"
^DD(165.5,26,.1)=""
^DD(165.5,26,10)=""
^DD(165.5,26,20,0)="^.3LA^^0"
^DD(165.5,26,20,1,0)="SEER"
^DD(165.5,26,20,2,0)="ACOS-REQUIRED"
^DD(165.5,26,21,0)="^.001^5^5^3021106^^^^"
^DD(165.5,26,21,1,0)=""
^DD(165.5,26,21,2,0)="Records the best method of diagnostic confirmation of the cancer"
^DD(165.5,26,21,3,0)="being reported at any time in the patient's history. "
^DD(165.5,26,21,4,0)=""
^DD(165.5,26,21,5,0)="For further information see FORDS page 99."
^DD(165.5,26,"DT")="2960906"
^DD(165.5,26,"V",0)="^.12P"
^DD(165.5,27,0)="HISTO-MORPHOLOGY^CJ7^^ ; ^D HM^ONCOCOM"
^DD(165.5,27,9)="^"
^DD(165.5,27,9.01)=""
^DD(165.5,27,9.1)="D HM^ONCOCOM"
^DD(165.5,27,21,0)="^.001^2^2^3050727^^"
^DD(165.5,27,21,1,0)="This field displays the HISTOLOGY ICD-O-3 (165.5,22.3) value concatinated"
^DD(165.5,27,21,2,0)="with the GRADE/DIFFERENTIATION (165.5,24) value."
^DD(165.5,27,"DT")="3050727"
^DD(165.5,28,0)="LATERALITY^S^0:Not a paired site;1:Right;2:Left;3:One side involved, right/left not specified;4:Bilateral involvement, side of origin unknown;9:Paired site, but lateral origin unknown, midline tumor;^2;8^Q"
^DD(165.5,28,.1)=""
^DD(165.5,28,10)=""
^DD(165.5,28,20,0)="^.3LA^^0"
^DD(165.5,28,20,1,0)="SEER"
^DD(165.5,28,20,2,0)="ACOS-REQUIRED"
^DD(165.5,28,21,0)="59^.001^6^6^3050103^^^^"
^DD(165.5,28,21,1,0)=""
^DD(165.5,28,21,2,0)="Identifies the side of a paired organ or the side of"
^DD(165.5,28,21,3,0)="the body on which the reportable tumor originated."
^DD(165.5,28,21,4,0)="This applies to the primary site only."
^DD(165.5,28,21,5,0)=""
^DD(165.5,28,21,6,0)="For further information see FORDS page 92."
^DD(165.5,28,"DT")="3050103"
^DD(165.5,29,0)="TUMOR SIZE^N,2OX^^2;9^D STIT^ONCOOT"
^DD(165.5,29,.1)=""
^DD(165.5,29,2)="S Y(0)=Y D STOT^ONCOOT"
^DD(165.5,29,2.1)="D STOT^ONCOOT"
^DD(165.5,29,3)="Code the exact size of the primary in millimeters (mm)."
^DD(165.5,29,4)=""
^DD(165.5,29,10)=""
^DD(165.5,29,20,0)="^.3LA^^0"
^DD(165.5,29,21,0)="^.001^38^38^3040304^^^^"
^DD(165.5,29,21,1,0)=""
^DD(165.5,29,21,2,0)="Describes the largest dimension of the diameter of the"
^DD(165.5,29,21,3,0)="primary tumor in millimeters (mm)."
^DD(165.5,29,21,4,0)=""
^DD(165.5,29,21,5,0)="Code the exact size of the primary tumor in millimeters (mm)."
^DD(165.5,29,21,6,0)=""
^DD(165.5,29,21,7,0)="EXCEPTION:"
^DD(165.5,29,21,8,0)=" For melanomas of the skin (C44.0-C44.9), vulva (C51.0-C51.9), penis"
^DD(165.5,29,21,9,0)=" (C60.0-C60.9), scrotum (C63.3), and conjunctiva (C69.0):"
^DD(165.5,29,21,10,0)=" - code the depth of invasion in HUNDRETHS of millimeters."
^DD(165.5,29,21,11,0)=" - code 989 for melanomas which are 9.89 mm or greater in depth."
^DD(165.5,29,21,12,0)=""
^DD(165.5,29,21,13,0)="Code 998 when the following terms describe tumor involvement in these"
^DD(165.5,29,21,14,0)="specific sites:"
^DD(165.5,29,21,15,0)=""
^DD(165.5,29,21,16,0)="Esophagus (C15.0-C15.9):  Entire circumference"
^DD(165.5,29,21,17,0)="Stomach (C16.0-C16.9):    Diffuse, widespread, 3/4 or more,"
^DD(165.5,29,21,18,0)="                          linitis plastica"
^DD(165.5,29,21,19,0)="Colorectal (C18.0-C20.9): Familial/multiple polyposis"
^DD(165.5,29,21,20,0)="Lung (C34.0-C34.9):       Diffuse, entire lobe of lung"
^DD(165.5,29,21,21,0)="Breast (C50.0-C50.9):     Inflammatory carcinoma; diffuse, widespread,"
^DD(165.5,29,21,22,0)="                           3/4 or more of breast "
^DD(165.5,29,21,23,0)=""
^DD(165.5,29,21,24,0)="Code 999, unknown, if only one size is given for a mixed in situ and"
^DD(165.5,29,21,25,0)="invasive tumor."
^DD(165.5,29,21,26,0)=""
^DD(165.5,29,21,27,0)="Code 999 if the size of the tumor is unknown or the tumor size is not"
^DD(165.5,29,21,28,0)="documented in the patient record."
^DD(165.5,29,21,29,0)=""
^DD(165.5,29,21,30,0)="Code 999 for histologies or sites where size in not applicable:"
^DD(165.5,29,21,31,0)=""
^DD(165.5,29,21,32,0)="Unknown or ill-defined primary (C76.0-C76.8, C80.9)  "
^DD(165.5,29,21,33,0)="Hematopoietic, reticuloendothelial, immunoproliferative or"
^DD(165.5,29,21,34,0)=" myeloproliferative disease"
^DD(165.5,29,21,35,0)="Multiple myeloma (9732)"
^DD(165.5,29,21,36,0)="Letterer-Siwe disease (9754)"
^DD(165.5,29,21,37,0)=""
^DD(165.5,29,21,38,0)="For further information see FORDS pages 100-101."
^DD(165.5,29,"DT")="3040304"
^DD(165.5,29.1,0)="TUMOR SIZE/EXT EVAL (CS)^FX^^CS;1^D INPUT^ONCSAPI1(3,1,D0)"
^DD(165.5,29.1,3)="Answer must be 1 numeric."
^DD(165.5,29.1,4)="D HELP^ONCSAPI1(3,D0)"
^DD(165.5,29.1,21,0)="^.001^2^2^3040616^^^^"
^DD(165.5,29.1,21,1,0)="Records how the codes for the two items TUMOR SIZE (CS) and EXTENSION (CS)"
^DD(165.5,29.1,21,2,0)="were determined, based on the diagnostic methods employed."
^DD(165.5,29.1,"DT")="3040308"
^DD(165.5,29.2,0)="TUMOR SIZE (CS)^FX^^CS1;10^D INPUT^ONCSAPI1(1,3,D0)"
^DD(165.5,29.2,3)="Answer must be 3 numerics."
^DD(165.5,29.2,4)="D HELP^ONCSAPI1(1,D0)"
^DD(165.5,29.2,21,0)="^.001^11^11^3050603^^^^"
^DD(165.5,29.2,21,1,0)="FOR MALIGNANT MELANOMA:"
^DD(165.5,29.2,21,2,0)="Record the size of the tumor in TUMOR SIZE (CS), not depth or"
^DD(165.5,29.2,21,3,0)="thickness."
^DD(165.5,29.2,21,4,0)="Depth or thickness is recorded in SITE-SPECIFIC FACTOR 1 (CS)."
^DD(165.5,29.2,21,5,0)=""
^DD(165.5,29.2,21,6,0)="Records the largest dimension or diameter of the primary tumor,"
^DD(165.5,29.2,21,7,0)="and is always recorded in millimeters.  To convert centimeters"
^DD(165.5,29.2,21,8,0)="to millimeters, multiply the dimension by 10.  If tumor size is"
^DD(165.5,29.2,21,9,0)="given in tenths of millimeters, round down if between .1 and .5"
^DD(165.5,29.2,21,10,0)="mm, and round up if between .6 and .9 mm."
^DD(165.5,29.2,21,11,0)=""
^DD(165.5,29.2,"DT")="3040401"
^DD(165.5,29.9,0)="EXTENSION LIST USED^CJ30^^ ; ^S X=$$GETLIST^ONCODEL(D0,""E"",""OUT"")"
^DD(165.5,29.9,9)="^"
^DD(165.5,29.9,9.01)=""
^DD(165.5,29.9,9.1)="S X=$$GETLIST^ONCODEL(D0,""E"",""OUT"")"
^DD(165.5,29.9,21,0)="^^3^3^2940714^^^"
^DD(165.5,29.9,21,1,0)="This is a brief description of the SEER extension code list that was"
^DD(165.5,29.9,21,2,0)="selected by the system for this primary.  It is used for audit by"
^DD(165.5,29.9,21,3,0)="print template ONCO PRIMARY EXTENT CODE AUDIT."
^DD(165.5,29.9,"DT")="2940714"
^DD(165.5,30,0)="EXTENSION^NJ1,0OX^^2;10^S ONCOX=""E"",ONCFLD=30 D IN^ONCODEL"
^DD(165.5,30,2)="S Y(0)=Y S ONCOX=""E"",ONCFLD=30 D OT^ONCODEL"
^DD(165.5,30,2.1)="S ONCOX=""E"",ONCFLD=30 D OT^ONCODEL"
^DD(165.5,30,3)=""
^DD(165.5,30,4)="S ONCOX=""E"",ONCFLD=30 D HP^ONCODEL"
^DD(165.5,30,21,0)="^^1^1^2981110^^^"
^DD(165.5,30,21,1,0)="Seer Extent of Disease coding schema."
^DD(165.5,30,"DT")="3010809"
^DD(165.5,30.1,0)="PATHOLOGIC EXTENSION^NJ2,0XO^^2.2;2^K:(X>99)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S ONCOX=""E"",ONCFLD=30.1 D IN^ONCODEL"
^DD(165.5,30.1,2)="S Y(0)=Y S ONCOX=""E"",ONCFLD=30.1 D OT^ONCODEL"
^DD(165.5,30.1,2.1)="S ONCOX=""E"",ONCFLD=30.1 D OT^ONCODEL"
^DD(165.5,30.1,3)=""
^DD(165.5,30.1,4)="S ONCOX=""E"",ONCFLD=30.1 D HP^ONCODEL"
^DD(165.5,30.1,21,0)="^^4^4^2990325^^"
^DD(165.5,30.1,21,1,0)=""
^DD(165.5,30.1,21,2,0)="Code the farthest documented pathologic extension of tumor from the"
^DD(165.5,30.1,21,3,0)="prostate, either by contiguous extension or distant metastasis."
^DD(165.5,30.1,21,4,0)=""
^DD(165.5,30.1,"DT")="2990325"
^DD(165.5,30.2,0)="EXTENSION (CS)^FX^^CS;11^D INPUT^ONCSAPI1(2,2,D0)"
^DD(165.5,30.2,3)="Answer must be 2 numerics."
^DD(165.5,30.2,4)="D HELP^ONCSAPI1(2,D0)"
^DD(165.5,30.2,21,0)="^.001^2^2^3040308^^^^"
^DD(165.5,30.2,21,1,0)="Identifies contiguous growth (extension) of the primary tumor within"
^DD(165.5,30.2,21,2,0)="the organ of origin or its direct extension into neighboring organs."
^DD(165.5,30.2,"DT")="3040308"
^DD(165.5,30.5,0)="PERIPHERAL BLOOD INVOLVEMENT^S^000:No peripheral blood involvement;001:<5% atypical circulating cells in blood;002:>5% atypical circulating cells in blood;003:% not stated;999:NA;^24;5^Q"
^DD(165.5,30.5,3)="enter the code designating the peripheral blood involvement"
^DD(165.5,30.5,21,0)="^^4^4^2970224^^"
^DD(165.5,30.5,21,1,0)="This field is used as a measure of % of circulating atypical cells of the"
^DD(165.5,30.5,21,2,0)="T-cell lymphoma.  This information may be found as part of a blood smear"
^DD(165.5,30.5,21,3,0)="differential.  It is only associated with a histology of mycosis"
^DD(165.5,30.5,21,4,0)="fungoides."
^DD(165.5,30.5,"DT")="2970224"
^DD(165.5,30.9,0)="LYMPH NODE LIST USED^CJ30^^ ; ^S X=$$GETLIST^ONCODEL(D0,""L"",""OUT"")"
^DD(165.5,30.9,9)="^"
^DD(165.5,30.9,9.01)=""
^DD(165.5,30.9,9.1)="S X=$$GETLIST^ONCODEL(D0,""L"",""OUT"")"
^DD(165.5,30.9,21,0)="^^3^3^2940714^^^^"
^DD(165.5,30.9,21,1,0)="This is a brief description of the SEER lymph node code list that was"
^DD(165.5,30.9,21,2,0)="selected by the system for this primary.  It is used for audit by"
^DD(165.5,30.9,21,3,0)="print template ONCO PRIMARY EXTENT CODE AUDIT."
^DD(165.5,30.9,"DT")="2940714"
^DD(165.5,31,0)="LYMPH NODES^NJ1,0OX^^2;11^S ONCOX=""L"" D IN^ONCODEL"
^DD(165.5,31,1,0)="^.1"
^DD(165.5,31,1,1,0)="165.5^SS1^MUMPS"
^DD(165.5,31,1,1,1)="D SNHL^ONCOCRC"
^DD(165.5,31,1,1,2)="D KNHL^ONCOCRC"
^DD(165.5,31,1,1,"%D",0)="^^1^1^2970410^"
^DD(165.5,31,1,1,"%D",1,0)="Trigger to set SYSTEMIC SYMPTOMS field #843 for NON-HODGKIN'S LYMPHOMA'S."
^DD(165.5,31,1,1,"DT")="2970410"
^DD(165.5,31,2)="S Y(0)=Y S ONCOX=""L"" D OT^ONCODEL"
^DD(165.5,31,2.1)="S ONCOX=""L"" D OT^ONCODEL"
^DD(165.5,31,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(165.5,31,4)="S ONCOX=""L"" D HP^ONCODEL"
^DD(165.5,31,21,0)="^.001^1^1^3010306^^"
^DD(165.5,31,21,1,0)="Record SEER lymph node involvement."
^DD(165.5,31,"DT")="3010809"
^DD(165.5,31.1,0)="LYMPH NODES (CS)^FX^^CS;12^D INPUT^ONCSAPI1(4,2,D0)"
^DD(165.5,31.1,3)="Answer must be 2 numerics."
^DD(165.5,31.1,4)="D HELP^ONCSAPI1(4,D0)"
^DD(165.5,31.1,21,0)="^.001^2^2^3040308^^^^"
^DD(165.5,31.1,21,1,0)="Identifies the regional lymph nodes involved"
^DD(165.5,31.1,21,2,0)="with cancer at the time of diagnosis."
^DD(165.5,31.1,"DT")="3040308"
^DD(165.5,32,0)="REGIONAL LYMPH NODES POSITIVE^N,0OX^^2;12^K:X'?1.2N X I $D(X) S X=+X K:X>99!X<0 X I $D(X) K:(X>$P(^ONCO(165.5,D0,2),U,13))&($P(^ONCO(165.5,D0,2),U,13)<91)&(X<91) X I $D(X) K:($P(^ONCO(165.5,D0,2),U,13)=99)&(X'=99) X I $D(X) D RNPIT^ONCOIT"
^DD(165.5,32,.1)=""
^DD(165.5,32,2)="S Y(0)=Y D RNP^ONCOOT"
^DD(165.5,32,2.1)="D RNP^ONCOOT"
^DD(165.5,32,3)="Regional Lymph Nodes Positive cannot exceed Regional Lymph Nodes Examined "
^DD(165.5,32,10)=""
^DD(165.5,32,20,0)="^.3LA^^0"
^DD(165.5,32,21,0)="^.001^14^14^3040422^^^^"
^DD(165.5,32,21,1,0)=""
^DD(165.5,32,21,2,0)="Records the exact number of regional lymph nodes examined by the"
^DD(165.5,32,21,3,0)="pathologist and found to contain metastases."
^DD(165.5,32,21,4,0)=""
^DD(165.5,32,21,5,0)="   00  All nodes examined are negative."
^DD(165.5,32,21,6,0)="01-89  1-89 nodes are positive. (Code exact number of nodes positive)"
^DD(165.5,32,21,7,0)="   90  90 or more nodes are positive."
^DD(165.5,32,21,8,0)="   95  Positive aspiration of lymph node(s) was performed."
^DD(165.5,32,21,9,0)="   97  Positive nodes are documented, but the number is unspecified."
^DD(165.5,32,21,10,0)="   98  No nodes were examined."
^DD(165.5,32,21,11,0)="   99  It is unknown whether nodes are positive; not applicable;"
^DD(165.5,32,21,12,0)="       not stated in patient record."
^DD(165.5,32,21,13,0)=""
^DD(165.5,32,21,14,0)="For further information see FORDS page 103."
^DD(165.5,32,"DT")="3040422"
^DD(165.5,32.1,0)="REG NODES EVAL (CS)^FX^^CS;2^D INPUT^ONCSAPI1(5,1,D0)"
^DD(165.5,32.1,3)="Answer must be 1 numeric."
^DD(165.5,32.1,4)="D HELP^ONCSAPI1(5,D0)"
^DD(165.5,32.1,21,0)="^.001^2^2^3040308^^^^"
^DD(165.5,32.1,21,1,0)="Records how the code for the item LYMPH NODES (CS) was determined,"
^DD(165.5,32.1,21,2,0)="based on the diagnostic methods employed."
^DD(165.5,32.1,"DT")="3040308"
^DD(165.5,33,0)="REGIONAL LYMPH NODES EXAMINED^N,0OX^^2;13^K:X'?1.2N X I $D(X) S X=+X K:X>99!(X<0) X I $D(X) D RNEIT^ONCOIT"
^DD(165.5,33,.1)=""
^DD(165.5,33,2)="S Y(0)=Y D RNE^ONCOOT"
^DD(165.5,33,2.1)="D RNE^ONCOOT"
^DD(165.5,33,3)="Allowable Values: 00-90, 95-99"
^DD(165.5,33,10)=""
^DD(165.5,33,20,0)="^.3LA^^0"
^DD(165.5,33,21,0)="^.001^22^22^3041006^^^^"
^DD(165.5,33,21,1,0)=""
^DD(165.5,33,21,2,0)="Records the total number of regional lymph nodes examined by the"
^DD(165.5,33,21,3,0)="pathologist."
^DD(165.5,33,21,4,0)=""
^DD(165.5,33,21,5,0)="   00  No nodes were examined."
^DD(165.5,33,21,6,0)="01-89  1-89 nodes were examined."
^DD(165.5,33,21,7,0)="       (Code the exact number of regional lymph nodes examined.)"
^DD(165.5,33,21,8,0)="   90  90 or more nodes were examined."
^DD(165.5,33,21,9,0)="   95  No regional nodes were removed, but aspiration of regional"
^DD(165.5,33,21,10,0)="       nodes was performed."
^DD(165.5,33,21,11,0)="   96  Regional lymph node removal was documented as a sampling,"
^DD(165.5,33,21,12,0)="       and the number  of nodes is unknown/not stated."
^DD(165.5,33,21,13,0)="   97  Regional lymph node removal was documented as a dissection,"
^DD(165.5,33,21,14,0)="       and the number of nodes is unknown/not stated."
^DD(165.5,33,21,15,0)="   98  Regional lymph nodes were surgically removed, but the number"
^DD(165.5,33,21,16,0)="       of lymph nodes is unknown/not stated and not documented as a"
^DD(165.5,33,21,17,0)="       sampling or dissection; nodes were examined but the number"
^DD(165.5,33,21,18,0)="       is unknown."
^DD(165.5,33,21,19,0)="   99  It is unknown whether nodes were examined; not applicable or"
^DD(165.5,33,21,20,0)="       negative; not stated in patient record."
^DD(165.5,33,21,21,0)=""
^DD(165.5,33,21,22,0)="For further information see FORDS page 102."
^DD(165.5,33,"DT")="3021108"
^DD(165.5,33.1,0)="#NODES EXAMINED^CJ2,0^^ ; ^S Y=$P($G(^ONCO(165.5,D0,2)),U,13),X=$S(Y=98:""# Not Specified"",Y=99:""Unknown if examined"",1:Y)"
^DD(165.5,33.1,9)="^"
^DD(165.5,33.1,9.01)=""
^DD(165.5,33.1,9.1)="S Y=$P($G(^ONCO(165.5,D0,2)),U,13),X=$S(Y=98:""# Not Specified"",Y=99:""Unknown if examined"",1:Y)"
^DD(165.5,33.1,21,0)="^^1^1^2930810^^"
^DD(165.5,33.1,21,1,0)="RECORD THE NUMBER OF LYMPH NODES EXAMINED BY PATHOLOGIST."
^DD(165.5,33.1,"DT")="2930810"
^DD(165.5,34,0)="SITE OF DISTANT METASTASIS #1^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central nervous system;7:Skin;8:Lymph nodes (distant);9:Other/Gen/Carcinomatosis/Unkn;^2;14^Q"
^DD(165.5,34,.1)=""
^DD(165.5,34,10)=""
^DD(165.5,34,20,0)="^.3LA^^0"
^DD(165.5,34,20,1,0)="ACOS-REQUIRED"
^DD(165.5,34,21,0)="^.001^5^5^3030214^^^^"
^DD(165.5,34,21,1,0)=""
^DD(165.5,34,21,2,0)="Code only the site(s) of distant metastasis identified "
^DD(165.5,34,21,3,0)="during initial diagnosis and workup."
^DD(165.5,34,21,4,0)=""
^DD(165.5,34,21,5,0)="For further information see ROADS pages 131-132."
^DD(165.5,34,"DT")="3030214"
^DD(165.5,34.1,0)="SITE OF DISTANT METASTASIS #2^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central nervous system;7:Skin;8:Lymph nodes (distant);9:Other/Gen/Carcinomatosis/Unkn;^2;15^Q"
^DD(165.5,34.1,.1)=""
^DD(165.5,34.1,10)=""
^DD(165.5,34.1,20,0)="^.3LA^^0"
^DD(165.5,34.1,20,1,0)="ACOS-REQUIRED"
^DD(165.5,34.1,21,0)="^.001^6^6^3030214^^^^"
^DD(165.5,34.1,21,1,0)=""
^DD(165.5,34.1,21,2,0)="Code the second site of distant metastasis identified "
^DD(165.5,34.1,21,3,0)="during initial diagnosis and workup."
^DD(165.5,34.1,21,4,0)=""
^DD(165.5,34.1,21,5,0)="For further information see ROADS pages 133-134."
^DD(165.5,34.1,21,6,0)=""
^DD(165.5,34.1,"DT")="3030214"
^DD(165.5,34.2,0)="SITE OF DISTANT METASTASIS #3^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central nervous system;7:Skin;8:Lymph nodes (distant);9:Other/Gen/Carcinomatosis/Unkn;^2;16^Q"
^DD(165.5,34.2,.1)=""
^DD(165.5,34.2,10)=""
^DD(165.5,34.2,20,0)="^.3LA^^0"
^DD(165.5,34.2,20,1,0)="ACOS-REQUIRED"
^DD(165.5,34.2,21,0)="^.001^5^5^3030214^^^^"
^DD(165.5,34.2,21,1,0)=""
^DD(165.5,34.2,21,2,0)="Code the third site of distant metastasis identified "
^DD(165.5,34.2,21,3,0)="during initial diagnosis and workup."
^DD(165.5,34.2,21,4,0)=" "
^DD(165.5,34.2,21,5,0)="For further information see ROADS pages 135-136."
^DD(165.5,34.2,"DT")="3030214"
^DD(165.5,34.3,0)="METS AT DX (CS)^FX^^CS;3^D INPUT^ONCSAPI1(8,2,D0)"
^DD(165.5,34.3,3)="Answer must be 2 numerics."
^DD(165.5,34.3,4)="D HELP^ONCSAPI1(8,D0)"
^DD(165.5,34.3,21,0)="^.001^2^2^3040308^^^^"
^DD(165.5,34.3,21,1,0)="Identifies the distant site(s) of metastatic involvement at"
^DD(165.5,34.3,21,2,0)="time of diagnosis."
^DD(165.5,34.3,"DT")="3040308"
^DD(165.5,34.4,0)="METS EVAL (CS)^FX^^CS;4^D INPUT^ONCSAPI1(9,1,D0)"
^DD(165.5,34.4,3)="Answer must be 1 numeric."
^DD(165.5,34.4,4)="D HELP^ONCSAPI1(9,D0)"
^DD(165.5,34.4,21,0)="^.001^2^2^3040308^^^^"
^DD(165.5,34.4,21,1,0)="Records how the code for the item METS AT DX (CS) was determined based"
^DD(165.5,34.4,21,2,0)="on the diagnostic methods employed."
^DD(165.5,34.4,"DT")="3040308"
^DD(165.5,35,0)="SEER SUMMARY STAGE 2000^*S^0:In situ;1:Localized;2:Regional by direct extension;3:Regional to lymph nodes;4:Regional by extension & to nodes;5:Regional, NOS;7:Distant metastasis/systemic disease;8:NA;9:Unknown;^2;17^Q"
^DD(165.5,35,.1)=""
^DD(165.5,35,3)=""
^DD(165.5,35,4)=""
^DD(165.5,35,10)=""
^DD(165.5,35,12)="Codes 0, 2, 3, 4 and 8 are not valid for HODGKIN AND NON-HODGKIN LYMPHOMAS."
^DD(165.5,35,12.1)="S DIC(""S"")=""I ('$$LYMPHOMA^ONCFUNC(D0))!((Y'=0)&(Y'=2)&(Y'=3)&(Y'=4)&(Y'=8))"""
^DD(165.5,35,20,0)="^.3LA^^0"
^DD(165.5,35,20,1,0)="ACOS-REQUIRED"
^DD(165.5,35,21,0)="^.001^5^5^3040922^^^^"
^DD(165.5,35,21,1,0)=""
^DD(165.5,35,21,2,0)="Provides a site-specific description of"
^DD(165.5,35,21,3,0)="the extent of disease at diagnosis."
^DD(165.5,35,21,4,0)=""
^DD(165.5,35,21,5,0)="For futher information see FORDS page 124."
^DD(165.5,35,"DT")="3040922"
^DD(165.5,35.1,0)="SEER SUMMARY STAGE ABBREVIATED^CJ13^^ ; ^S X="""" D GSS^ONCOCOS"
^DD(165.5,35.1,9)="^"
^DD(165.5,35.1,9.01)=""
^DD(165.5,35.1,9.1)="S X="""" D GSS^ONCOCOS"
^DD(165.5,35.1,21,0)="^.001^2^2^3061219^^"
^DD(165.5,35.1,21,1,0)="This item abbreviates the SEER SUMMARY STAGE 2000 (165.5,35) output values"
^DD(165.5,35.1,21,2,0)="for condensed display."
^DD(165.5,35.1,"DT")="3061219"
^DD(165.5,36,0)="AJCC STAGING BASIS^S^C:Clinical-diagnostic;P:Pathological (Post-surgical);R:Retreatment Staging;A:Autopsy;S:Surgical Evaluative;^2;18^Q"
^DD(165.5,36,.1)="AJCC Staging Basis"
^DD(165.5,36,10)="ACOS 3.53"
^DD(165.5,36,20,0)="^.3LA^1^1"
^DD(165.5,36,20,1,0)="ACOS-REQUIRED"
^DD(165.5,36,21,0)="^^13^13^2930702^^^^"
^DD(165.5,36,21,1,0)="Record the most appropriate code to reflect the basis on which"
^DD(165.5,36,21,2,0)="the case was staged."
^DD(165.5,36,21,3,0)=" "
^DD(165.5,36,21,4,0)="Clinical-diagnostic staging is used for those sites that are"
^DD(165.5,36,21,5,0)="accessible, i.e. cervix, oral cavity, larynx, and for those"
^DD(165.5,36,21,6,0)="organs where evaluation of extent must be made only on the  "
^DD(165.5,36,21,7,0)="basis of clinical-diagnostic findings.  Clinical-diagnostic"
^DD(165.5,36,21,8,0)="staging is based on the physical examination, diagnostic imaging,"
^DD(165.5,36,21,9,0)="clinical pathology, and biopsy of the primary."
^DD(165.5,36,21,10,0)=" "
^DD(165.5,36,21,11,0)="Postsurgical pathological staging is a combination of all "
^DD(165.5,36,21,12,0)="findings - clinical-diagnostic, surgical-evaluative, and postsurgical "
^DD(165.5,36,21,13,0)="retreatment-pathological."
^DD(165.5,36,23,0)="^^1^1^2930702^^"
^DD(165.5,36,23,1,0)="This field is referenced direction by PATHSTAG^ONCOU55."
^DD(165.5,36,"DT")="2930702"
^DD(165.5,37,0)="TNM CLINICAL^CJ14^^ ; ^S STGIND=""C"",X=$$TNMOUT^ONCOTNO(D0)"
^DD(165.5,37,.1)=""
^DD(165.5,37,3)="Use 6-12 characters, e.g. T1N0M0, T2aN1bM0, or T3NXMX"
^DD(165.5,37,9)="^"
^DD(165.5,37,9.01)=""
^DD(165.5,37,9.1)="S STGIND=""C"",X=$$TNMOUT^ONCOTNO(D0)"
^DD(165.5,37,9.2)="S Y(165.5,37,2)=$S($D(^ONCO(165.5,D0,2)):^(2),1:"""") S X=""T"",Y(165.5,37,1)=X,Y(165.5,37,3)=X,Y=$P(Y(165.5,37,2),U,25) X:$D(^DD(165.5,37.1,2)) ^(2) S X=Y"
^DD(165.5,37,9.3)="X ^DD(165.5,37,9.2) S Y=X,X=Y(165.5,37,1),X=X_Y_"" N"",Y(165.5,37,4)=X,Y(165.5,37,5)=X,Y=$P(Y(165.5,37,2),U,26) X:$D(^DD(165.5,37.2,2)) ^(2) S X=Y"
^DD(165.5,37,9.4)="X ^DD(165.5,37,9.3) S Y=X,X=Y(165.5,37,4),X=X_Y_"" M"",Y(165.5,37,6)=X,Y(165.5,37,7)=X,Y=$P(Y(165.5,37,2),U,27) X:$D(^DD(165.5,37.3,2)) ^(2) S X=Y"
^DD(165.5,37,10)="ACOS 3.54"
^DD(165.5,37,20,0)="^.3LA^^0"
^DD(165.5,37,20,1,0)="ACOS-REQUIRED"
^DD(165.5,37,21,0)="^.001^1^1^3051214^^^^"
^DD(165.5,37,21,1,0)="This is the combined Clinical T, N, and M codes, formatted for display."
^DD(165.5,37,"DT")="3051214"
^DD(165.5,37.1,0)="CLINICAL T^FXO^^2;25^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X I $D(X) S ONCOX=""T"",STGIND=""C"" D IN^ONCOTNM"
^DD(165.5,37.1,1,0)="^.1^^0"
^DD(165.5,37.1,2)="S Y(0)=Y S ONCOX=""T"",STGIND=""C"" D OT^ONCOTNM"
^DD(165.5,37.1,2.1)="S ONCOX=""T"",STGIND=""C"" D OT^ONCOTNM"
^DD(165.5,37.1,3)=""
^DD(165.5,37.1,4)="S ONCOX=""T"",STGIND=""C"" D HP^ONCOTNM"
^DD(165.5,37.1,21,0)="^.001^4^4^3021112^^^^"
^DD(165.5,37.1,21,1,0)="Evaluates the primary tumor and reflects tumor size"
^DD(165.5,37.1,21,2,0)="and/or extension as recorded by the physician."
^DD(165.5,37.1,21,3,0)=""
^DD(165.5,37.1,21,4,0)="For futher information see FORDS page 112."
^DD(165.5,37.1,"DT")="2961010"
^DD(165.5,37.2,0)="CLINICAL N^FXO^^2;26^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X I $D(X) S ONCOX=""N"",STGIND=""C"" D IN^ONCOTNM"
^DD(165.5,37.2,1,0)="^.1^^0"
^DD(165.5,37.2,2)="S Y(0)=Y S ONCOX=""N"",STGIND=""C"" D OT^ONCOTNM"
^DD(165.5,37.2,2.1)="S ONCOX=""N"",STGIND=""C"" D OT^ONCOTNM"
^DD(165.5,37.2,3)=""
^DD(165.5,37.2,4)="S ONCOX=""N"",STGIND=""C"" D HP^ONCOTNM"
^DD(165.5,37.2,21,0)="^.001^5^5^3021112^^^^"
^DD(165.5,37.2,21,1,0)="Identifies the absence or presence of regional lymph node"
^DD(165.5,37.2,21,2,0)="(N) metastasis and describes the extent of regional lymph"
^DD(165.5,37.2,21,3,0)="node metastasis as recorded by the physician."
^DD(165.5,37.2,21,4,0)=""
^DD(165.5,37.2,21,5,0)="For futher information see FORDS page 113."
^DD(165.5,37.2,"DT")="2961010"
^DD(165.5,37.3,0)="CLINICAL M^FXO^^2;27^K:X[""""""""!($A(X)=45) X I $D(X) S ONCOX=""M"",STGIND=""C"" D IN^ONCOTNM"
^DD(165.5,37.3,1,0)="^.1^^0"
^DD(165.5,37.3,2)="S Y(0)=Y S ONCOX=""M"",STGIND=""C"" D OT^ONCOTNM"
^DD(165.5,37.3,2.1)="S ONCOX=""M"",STGIND=""C"" D OT^ONCOTNM"
^DD(165.5,37.3,3)=""
^DD(165.5,37.3,4)="S ONCOX=""M"",STGIND=""C"" D HP^ONCOTNM"
^DD(165.5,37.3,21,0)="^.001^4^4^3021112^^^^"
^DD(165.5,37.3,21,1,0)="Idenifiies the presence or absence of distant"
^DD(165.5,37.3,21,2,0)="metastasis (M) as recorded by the physicain."
^DD(165.5,37.3,21,3,0)=""
^DD(165.5,37.3,21,4,0)="For futher information see FORDS page 114."
^DD(165.5,37.3,"DT")="2961010"
^DD(165.5,37.9,0)="AUTOMATIC STAGING OVERRIDDEN^S^1:Yes;0:No;^24;1^Q"
^DD(165.5,37.9,21,0)="^^2^2^2930720^^^^"
^DD(165.5,37.9,21,1,0)="This field is set to 'Yes' by the abstracting option if the operator"
^DD(165.5,37.9,21,2,0)="overrides automatic staging."
^DD(165.5,37.9,23,0)="^^1^1^2930720^^^"
^DD(165.5,37.9,23,1,0)="This field is referenced directly by input template ONCO ABSTRACT-I."
^DD(165.5,37.9,"DT")="2930720"
^DD(165.5,38,0)="STAGE GROUP CLINICAL^FXO^^2;20^K:X[""""""""!($A(X)=45) X I $D(X) S ONCOX=""S"",STGIND=""C"" D IN^ONCOTNS I $D(X) D INNUM^ONCOTNS"
^DD(165.5,38,1,0)="^.1"
^DD(165.5,38,1,1,0)="165.5^AS1^MUMPS"
^DD(165.5,38,1,1,1)="D CSSG^ONCOCRC"
^DD(165.5,38,1,1,2)="D KSG^ONCOCRC"
^DD(165.5,38,1,1,"%D",0)="^^1^1^2970801^^^^"
^DD(165.5,38,1,1,"%D",1,0)="Maintains STAGE GROUPING-AJCC Field (#38.5)."
^DD(165.5,38,1,1,"DT")="2961120"
^DD(165.5,38,2)="S Y(0)=Y S X="""" D OT^ONCOTNS"
^DD(165.5,38,2.1)="S X="""" D OT^ONCOTNS"
^DD(165.5,38,3)=""
^DD(165.5,38,4)="S ONCOX=""S"",STGIND=""C"" D HP^ONCOTNS"
^DD(165.5,38,21,0)="^.001^5^5^3051214^^^^"
^DD(165.5,38,21,1,0)=""
^DD(165.5,38,21,2,0)="Identifies the anatomic extent of disease based on the"
^DD(165.5,38,21,3,0)="T , N, and M elements as recorded by the physician."
^DD(165.5,38,21,4,0)=""
^DD(165.5,38,21,5,0)="For futher information see FORDS page 115."
^DD(165.5,38,"DT")="3051214"
^DD(165.5,38.1,0)="GP-I AJCC SUMMARY STAGE^CJ2^^ ; ^S X="""" D SSG1^ONCOCOS"
^DD(165.5,38.1,.1)=""
^DD(165.5,38.1,9)="^"
^DD(165.5,38.1,9.01)=""
^DD(165.5,38.1,9.1)="S X="""" D SSG1^ONCOCOS"
^DD(165.5,38.1,21,0)="^^1^1^2920528^"
^DD(165.5,38.1,21,1,0)="RECORD THE AJCC STAGE."
^DD(165.5,38.1,"DT")="2901029"
^DD(165.5,38.2,0)="GP-II AJCC SUMMARY STAGE^CJ3^^ ; ^S X="""" D SSG2^ONCOCOS"
^DD(165.5,38.2,9)="^"
^DD(165.5,38.2,9.01)=""
^DD(165.5,38.2,9.1)="S X="""" D SSG2^ONCOCOS"
^DD(165.5,38.2,21,0)="^^1^1^2920528^"
^DD(165.5,38.2,21,1,0)="RECORD THE AJCC STAGE."
^DD(165.5,38.3,0)="GP-III AJCC SUMMARY STAGE^CJ4^^ ; ^S X="""" D SSG3^ONCOCOS"
^DD(165.5,38.3,9)="^"
^DD(165.5,38.3,9.01)=""
^DD(165.5,38.3,9.1)="S X="""" D SSG3^ONCOCOS"
^DD(165.5,38.3,21,0)="^^1^1^2920528^"
^DD(165.5,38.3,21,1,0)="RECORD THE AJCC STAGE."
^DD(165.5,38.4,0)="GP-IV AJCC SUMMARY STAGE^CJ3^^ ; ^S X="""" D SSG4^ONCOCOS"
^DD(165.5,38.4,9)="^"
^DD(165.5,38.4,9.01)=""
^DD(165.5,38.4,9.1)="S X="""" D SSG4^ONCOCOS"
^DD(165.5,38.4,21,0)="^^1^1^2920528^"
^DD(165.5,38.4,21,1,0)="RECORD THE AJCC STAGE."
^DD(165.5,38.5,0)="STAGE GROUPING-AJCC^S^0:0;I:I;II:II;III:III;IV:IV;U:Unk/Uns;NA:NA;^2;28^Q"
^DD(165.5,38.5,1,0)="^.1"
^DD(165.5,38.5,1,1,0)="165.5^ASG"
^DD(165.5,38.5,1,1,1)="S ^ONCO(165.5,""ASG"",$E(X,1,30),DA)="""""
^DD(165.5,38.5,1,1,2)="K ^ONCO(165.5,""ASG"",$E(X,1,30),DA)"
^DD(165.5,38.5,1,1,"%D",0)="^^1^1^2970724^^"
^DD(165.5,38.5,1,1,"%D",1,0)="Indexes file by STAGE GROUPING-AJCC."
^DD(165.5,38.5,21,0)="3^.001^3^3^3070111^^^^"
^DD(165.5,38.5,21,1,0)="This field is set by either the CLINCICAL STAGE GROUP (38) or PATHOLOGIC"
^DD(165.5,38.5,21,2,0)="STAGE GROUP (88) field depending on which takes precedence.  It consists"
^DD(165.5,38.5,21,3,0)="of the more general stage group values of 0, I, II, III, IV, Unk/Uns or NA."
^DD(165.5,38.5,"DT")="2901126"
^DD(165.5,39,0)="OTHER STAGING SYSTEM^*P164.3'^ONCO(164.3,^2;21^S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<3070000)!((Y>74)&(Y<78))!((Y>94)&(Y<100))!((Y>108)&(Y<132))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,39,1,0)="^.1^^0"
^DD(165.5,39,3)="Enter an additional staging classification."
^DD(165.5,39,4)=""
^DD(165.5,39,12)="For 2007+ cases choose from C-D-S, RAI, D-S or FAB entries."
^DD(165.5,39,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<3070000)!((Y>74)&(Y<78))!((Y>94)&(Y<100))!((Y>108)&(Y<132))"""
^DD(165.5,39,21,0)="^.001^4^4^3061206^^^^"
^DD(165.5,39,21,1,0)=" "
^DD(165.5,39,21,2,0)="OTHER STAGING SYSTEM allows institutions the opportunity to collect"
^DD(165.5,39,21,3,0)="additional staging classifications, for example, C-D-S, RAI, D-S or"
^DD(165.5,39,21,4,0)="FAB."
^DD(165.5,39,"DT")="3061206"
^DD(165.5,40,0)="STAGE GROUP BEST^CJ8^^ ; ^S X="""" D OT1^ONCOTNS"
^DD(165.5,40,9)="^"
^DD(165.5,40,9.01)=""
^DD(165.5,40,9.1)="S X="""" D OT1^ONCOTNS"
^DD(165.5,40,21,0)="^.001^2^2^3051214^^^"
^DD(165.5,40,21,1,0)="This field displays the ""best"" stage group as determined"
^DD(165.5,40,21,2,0)="by the clinical/pathological hierarchy rules."
^DD(165.5,40,"DT")="3051214"
^DD(165.5,40.1,0)="TNM BEST^CJ12^^ ; ^S X="""" D OT1^ONCOTNS S X=HIERTNM"
^DD(165.5,40.1,9)="^"
^DD(165.5,40.1,9.01)=""
^DD(165.5,40.1,9.1)="S X="""" D OT1^ONCOTNS S X=HIERTNM"
^DD(165.5,40.1,21,0)="^.001^2^2^3051214^^^^"
^DD(165.5,40.1,21,1,0)="This field displays the ""best"" TNM string as determined"
^DD(165.5,40.1,21,2,0)="by the clinical/pathological hierarchy rules."
^DD(165.5,40.1,"DT")="3051214"
^DD(165.5,40.2,0)="STAGED BY^CJ36^^ ; ^S X="""" D STGBY^ONCOTNS"
^DD(165.5,40.2,9)="^"
^DD(165.5,40.2,9.01)=""
^DD(165.5,40.2,9.1)="S X="""" D STGBY^ONCOTNS"
^DD(165.5,40.2,21,0)="^^11^11^3030423^"
^DD(165.5,40.2,21,1,0)="     Choose from: "
^DD(165.5,40.2,21,2,0)="       0        Not staged"
^DD(165.5,40.2,21,3,0)="       1        Managing MD"
^DD(165.5,40.2,21,4,0)="       2        Pathologist"
^DD(165.5,40.2,21,5,0)="       3        Pathologist & managing MD"
^DD(165.5,40.2,21,6,0)="       4        Committee chair, liaison MD, registry advisor"
^DD(165.5,40.2,21,7,0)="       5        Registrar"
^DD(165.5,40.2,21,8,0)="       6        Registrar & MD"
^DD(165.5,40.2,21,9,0)="       7        Another facility"
^DD(165.5,40.2,21,10,0)="       8        NA"
^DD(165.5,40.2,21,11,0)="       9        Unknown"
^DD(165.5,40.2,"DT")="3030423"
^DD(165.5,41,0)="ASSOCIATED WITH HIV^S^1:Yes;2:No;999:Unknown;^2;23^Q"
^DD(165.5,41,21,0)="^^1^1^2970714^^^"
^DD(165.5,41,21,1,0)="Record the presence/absence of HIV."
^DD(165.5,41,"DT")="2970714"
^DD(165.5,42,0)="TREATMENT ABBREVIATED^CJ20^^ ; ^S X="""" D TXS^ONCOCOS"
^DD(165.5,42,9)="^"
^DD(165.5,42,9.01)=""
^DD(165.5,42,9.1)="S X="""" D TXS^ONCOCOS"
^DD(165.5,42,21,0)="^^15^15^3060710^"
^DD(165.5,42,21,1,0)=" "
^DD(165.5,42,21,2,0)="TREATMENT ABBREVIATED lists the type(s) of therapies intended to modify or"
^DD(165.5,42,21,3,0)="control the malignancy.  All cancer-directed therapies specified in"
^DD(165.5,42,21,4,0)="TREATMENT ABBREVIATED are a part of the FIRST COURSE OF TREATMENT."
^DD(165.5,42,21,5,0)=" "
^DD(165.5,42,21,6,0)="The therapies have been abbreviated to a 1-character designation:"
^DD(165.5,42,21,7,0)=" "
^DD(165.5,42,21,8,0)=" S - SURGERY OF PRIMARY SITE (F)"
^DD(165.5,42,21,9,0)=" R - RADIATION"
^DD(165.5,42,21,10,0)=" P - RADIATION THERAPY TO CNS"
^DD(165.5,42,21,11,0)=" C - CHEMOTHERAPY"
^DD(165.5,42,21,12,0)=" H - HORMONE THERAPY"
^DD(165.5,42,21,13,0)=" B - IMMUMOTHERAPY"
^DD(165.5,42,21,14,0)=" O - OTHER TREATMENT"
^DD(165.5,42,21,15,0)=" E - HEMA TRANS/ENDOCRINE PROC"
^DD(165.5,42,"DT")="3060710"
^DD(165.5,43,0)="TREATMENT^CJ27^^ ; ^S X="""" D TX^ONCOCOS"
^DD(165.5,43,9)="^"
^DD(165.5,43,9.01)=""
^DD(165.5,43,9.1)="S X="""" D TX^ONCOCOS"
^DD(165.5,43,21,0)="^^2^2^2960502^^^^"
^DD(165.5,43,21,1,0)="The treatment given to a patient, either curative or palliative in"
^DD(165.5,43,21,2,0)="nature."
^DD(165.5,43,"DT")="2960502"
^DD(165.5,44,0)="TNM FORM COMPLETED^FXO^^7;14^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,44,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,44,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,44,3)="Enter the date on which the TNM form was completed by the Managing Physician."
^DD(165.5,44,21,0)="^^3^3^3060921^"
^DD(165.5,44,21,1,0)=" "
^DD(165.5,44,21,2,0)="Records the date on which the TNM form was completed by the Managing "
^DD(165.5,44,21,3,0)="Physician."
^DD(165.5,44,"DT")="3060921"
^DD(165.5,44.1,0)="SITE-SPECIFIC FACTOR 1 (CS)^FX^^CS;5^D INPUT^ONCSAPI1(10,3,D0)"
^DD(165.5,44.1,3)="Answer must be 3 numerics, no decimal places."
^DD(165.5,44.1,4)="D SSF1HP^ONCSSF1,HELP^ONCSAPI1(10,D0)"
^DD(165.5,44.1,21,0)="^.001^2^2^3040317^^^^"
^DD(165.5,44.1,21,1,0)="Identifies additional information needed to generate stage, or"
^DD(165.5,44.1,21,2,0)="prognostic factors that have an effect on stage or survival."
^DD(165.5,44.1,"DT")="3040308"
^DD(165.5,44.2,0)="SITE-SPECIFIC FACTOR 2 (CS)^FX^^CS;6^D INPUT^ONCSAPI1(11,3,D0)"
^DD(165.5,44.2,3)="Answer must be 3 numerics, no decimal places."
^DD(165.5,44.2,4)="D SSF2HP^ONCSSF2,HELP^ONCSAPI1(11,D0)"
^DD(165.5,44.2,21,0)="^.001^2^2^3040317^^^"
^DD(165.5,44.2,21,1,0)="Identifies additional information needed to generate stage, or"
^DD(165.5,44.2,21,2,0)="prognostic factors that have an effect on stage or survival."
^DD(165.5,44.2,"DT")="3040308"
^DD(165.5,44.3,0)="SITE-SPECIFIC FACTOR 3 (CS)^FX^^CS;7^D INPUT^ONCSAPI1(12,3,D0)"
^DD(165.5,44.3,3)="Answer must be 3 numerics, no decimal places."
^DD(165.5,44.3,4)="D SSF3HP^ONCSSF3,HELP^ONCSAPI1(12,D0)"
^DD(165.5,44.3,21,0)="^.001^2^2^3040317^^^"
^DD(165.5,44.3,21,1,0)="Identifies additional information needed to generate stage, or"
^DD(165.5,44.3,21,2,0)="prognostic factors that have an effect on stage or survival."
^DD(165.5,44.3,"DT")="3040308"
^DD(165.5,44.4,0)="SITE-SPECIFIC FACTOR 4 (CS)^FX^^CS;8^D INPUT^ONCSAPI1(13,3,D0)"
^DD(165.5,44.4,3)="Answer must be 3 numerics, no decimal places."
^DD(165.5,44.4,4)="D SSF4HP^ONCSSF4,HELP^ONCSAPI1(13,D0)"
^DD(165.5,44.4,21,0)="^.001^2^2^3040317^^^^"
^DD(165.5,44.4,21,1,0)="Identifies additional information needed to generate stage, or"
^DD(165.5,44.4,21,2,0)="prognostic factors that have an effect on stage or survival."
^DD(165.5,44.4,"DT")="3040308"
^DD(165.5,44.5,0)="SITE-SPECIFIC FACTOR 5 (CS)^FX^^CS;9^D INPUT^ONCSAPI1(14,3,D0)"
^DD(165.5,44.5,3)="Answer must be 3 numerics, no decimal places."
^DD(165.5,44.5,4)="D SSF5HP^ONCSSF5,HELP^ONCSAPI1(14,D0)"
^DD(165.5,44.5,21,0)="^.001^2^2^3040317^^^"
^DD(165.5,44.5,21,1,0)="Identifies additional information needed to generate stage, or"
^DD(165.5,44.5,21,2,0)="prognostic factors that have an effect on stage or survival."
^DD(165.5,44.5,"DT")="3040308"
^DD(165.5,44.6,0)="SITE-SPECIFIC FACTOR 6 (CS)^FX^^CS;10^D INPUT^ONCSAPI1(15,3,D0)"
^DD(165.5,44.6,3)="Answer must be 3 numerics, no decimal places."
^DD(165.5,44.6,4)="D SSF6HP^ONCSSF6,HELP^ONCSAPI1(15,D0)"
^DD(165.5,44.6,21,0)="^.001^2^2^3040317^^^"
^DD(165.5,44.6,21,1,0)="Identifies additional information needed to generate stage, or"
^DD(165.5,44.6,21,2,0)="prognostic factors that have an effect on stage or survival."
^DD(165.5,44.6,"DT")="3040308"
^DD(165.5,45,0)="PERFORMANCE STATUS^S^100:NORMAL;90:MINOR SYMTOMS;80:ACTIVITY W EFFORT;70:NO WORK/SELF CARE;60:OCCASIONAL ASSIST;50:CONSIDERABLE ASSIST;40:DISABLED/SPECIAL CARE;30:SEVERLY DISABLED/HOSP;20:VERY SICK/HOSP;10:MORIBUND;0:DEAD;^2;24^Q"
^DD(165.5,45,3)="Enter Performance Status"
^DD(165.5,45,21,0)="^^1^1^2930820^"
^DD(165.5,45,21,1,0)="This is the performance status of the patient."
^DD(165.5,45,"DT")="2920923"
^DD(165.5,46,0)="CAP PROTOCOL REVIEW^S^0:Failed;1:Complied;9:NA or exempt;^7;19^Q"
^DD(165.5,46,21,0)="^^10^10^3060921^"
^DD(165.5,46,21,1,0)=" "
^DD(165.5,46,21,2,0)="The ACS (American College of Surgeons) requires CAP (College of American"
^DD(165.5,46,21,3,0)="Pathologists) Protocol Review of cases with surgical resection only.  "
^DD(165.5,46,21,4,0)="Biopsy only cases are exempt from review."
^DD(165.5,46,21,5,0)=" "
^DD(165.5,46,21,6,0)="Records whether this case failed, complied with or was exempt from CAP"
^DD(165.5,46,21,7,0)="Protocol Review."
^DD(165.5,46,21,8,0)=" "
^DD(165.5,46,21,9,0)="To use code 1 (Complied), ALL elements of the CAP Cancer Protocol"
^DD(165.5,46,21,10,0)="Checklist must be documented on the pathology report."
^DD(165.5,46,"DT")="3060713"
^DD(165.5,47,0)="CAP TEXT^F^^7;20^K:$L(X)>50!($L(X)<1) X"
^DD(165.5,47,3)="Answer must be 1-50 characters in length."
^DD(165.5,47,21,0)="^^3^3^3060921^"
^DD(165.5,47,21,1,0)=" "
^DD(165.5,47,21,2,0)="Records the reason for CAP (College of American Pathologists) Protocol"
^DD(165.5,47,21,3,0)="non-compliance."
^DD(165.5,47,"DT")="3060719"
^DD(165.5,48,0)="OTHER PRIMARY SITES^CJ80^^ ; ^S X="""" D SDP^ONCOCOM"
^DD(165.5,48,9)="^"
^DD(165.5,48,9.01)=""
^DD(165.5,48,9.1)="S X="""" D SDP^ONCOCOM"
^DD(165.5,48,21,0)="^^1^1^2920528^"
^DD(165.5,48,21,1,0)="SITES OTHER THAN THE COMMON CANCER SITES ARE LISTED."
^DD(165.5,48,"DT")="2900713"
^DD(165.5,49,0)="FIRST COURSE OF TREATMENT DATE^CJ10^^ ; ^S X="""" D DFC^ONCOCOM"
^DD(165.5,49,9)="^"
^DD(165.5,49,9.01)=""
^DD(165.5,49,9.1)="S X="""" D DFC^ONCOCOM"
^DD(165.5,49,21,0)="^.001^4^4^3021120^^^^"
^DD(165.5,49,21,1,0)="Records the date on which treatment (surgery, radiation, systemic,"
^DD(165.5,49,21,2,0)="or other therapy) of the patient begain at any facility."
^DD(165.5,49,21,3,0)=""
^DD(165.5,49,21,4,0)="For further information see FORDS pages 129-130."
^DD(165.5,49,"DT")="2970804"
^DD(165.5,50,0)="MOST DEFINITIVE SURG DATE^DXO^^3;1^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,50,1,0)="^.1"
^DD(165.5,50,1,1,0)="165.5^ATS^MUMPS"
^DD(165.5,50,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""S1"")="""""
^DD(165.5,50,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""S1"")"
^DD(165.5,50,1,1,"%D",0)="^.101^2^2^3041105^^^^"
^DD(165.5,50,1,1,"%D",1,0)="Records most definitive surgical resection of the primary on the unified"
^DD(165.5,50,1,1,"%D",2,0)="treatment index."
^DD(165.5,50,1,1,"DT")="3041105"
^DD(165.5,50,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,50,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,50,3)="*** MOST DEFINITIVE SURG DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,50,21,0)="^.001^5^5^3041109^^^^"
^DD(165.5,50,21,1,0)=""
^DD(165.5,50,21,2,0)="Records the date of the most definitive surgical resection of the"
^DD(165.5,50,21,3,0)="primary site performed as part of the first course of treatment."
^DD(165.5,50,21,4,0)=""
^DD(165.5,50,21,5,0)="For further information see FORDS pages 133-134."
^DD(165.5,50,"DT")="3041109"
^DD(165.5,50.1,0)="SURGERY HOSPITAL^P160.19OX^ONCO(160.19,^3;2^S V="""" D NT^ONCODSR"
^DD(165.5,50.1,.1)="Surgery hospital"
^DD(165.5,50.1,1,0)="^.1^^0"
^DD(165.5,50.1,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,50.1,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,50.1,3)="Record the name of the institution providing treatment."
^DD(165.5,50.1,4)="D HELP^ONCOFLF"
^DD(165.5,50.1,21,0)="^^1^1^2971010^^^^"
^DD(165.5,50.1,21,1,0)="Record the name of the institution providing treatment."
^DD(165.5,50.1,"AUDIT")=""
^DD(165.5,50.1,"DT")="2980302"
^DD(165.5,50.2,0)="SURGERY OF PRIMARY @FAC (R)^FOX^^3.1;7^S FIELD=50.2,SPSFLG=0 D SPSDFIT^ONCTXSM K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X),SPSFLG=0 S NTXDD=1 D SPSIT^ONCOSUR"
^DD(165.5,50.2,1,0)="^.1^^0"
^DD(165.5,50.2,1,1,0)="165.5^AT^MUMPS"
^DD(165.5,50.2,1,1,1)="Q"
^DD(165.5,50.2,1,1,2)="D SPSATF^ONCDTX1"
^DD(165.5,50.2,1,1,"%D",0)="^^2^2^2981029^^^^"
^DD(165.5,50.2,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,50.2,1,1,"%D",2,0)="the associated field values."
^DD(165.5,50.2,1,1,"DT")="2981001"
^DD(165.5,50.2,2)="S Y(0)=Y S FIELD=50.2 D SPSOT^ONCOSUR"
^DD(165.5,50.2,2.1)="S FIELD=50.2 D SPSOT^ONCOSUR"
^DD(165.5,50.2,3)=""
^DD(165.5,50.2,4)="S FIELD=50.2 D SPSHP^ONCOSUR"
^DD(165.5,50.2,21,0)="^.001^5^5^3030319^^^^"
^DD(165.5,50.2,21,1,0)=""
^DD(165.5,50.2,21,2,0)="Records the surgical procedure(s) performed"
^DD(165.5,50.2,21,3,0)="to the primary site at this facilty."
^DD(165.5,50.2,21,4,0)=""
^DD(165.5,50.2,21,5,0)="For further information see ROADS page 190."
^DD(165.5,50.2,"DT")="3030327"
^DD(165.5,50.3,0)="MOST DEFINITIVE SURG @FAC DATE^DXO^^3.1;8^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,50.3,1,0)="^.1^^0"
^DD(165.5,50.3,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,50.3,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,50.3,3)="*** MOST DEFINITIVE SURG @FAC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,50.3,21,0)="^.001^4^4^3041109^^^^"
^DD(165.5,50.3,21,1,0)=""
^DD(165.5,50.3,21,2,0)="Records the date of the most definitive surgical resection of the"
^DD(165.5,50.3,21,3,0)="primary site performed as part of the first course of treatment"
^DD(165.5,50.3,21,4,0)="at this facility."
^DD(165.5,50.3,"DT")="3041109"
^DD(165.5,51,0)="DATE RADIATION STARTED^DXO^^3;4^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,51,1,0)="^.1"
^DD(165.5,51,1,1,0)="165.5^ATR^MUMPS"
^DD(165.5,51,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""R"")="""""
^DD(165.5,51,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""R"")"
^DD(165.5,51,1,1,"%D",0)="^^1^1^2980924^^"
^DD(165.5,51,1,1,"%D",1,0)="Records radiation date on the unified treatment index."
^DD(165.5,51,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,51,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,51,3)="*** DATE RADIATION STARTED MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,51,21,0)="^.001^5^5^3030128^^^^"
^DD(165.5,51,21,1,0)=""
^DD(165.5,51,21,2,0)="Records the date on which radiation therapy began at any"
^DD(165.5,51,21,3,0)="facility that is part of the first course of treatment."
^DD(165.5,51,21,4,0)=""
^DD(165.5,51,21,5,0)="For further information see FORDS pages 148-149."
^DD(165.5,51,"DT")="3030128"
^DD(165.5,51.1,0)="RADIATION HOSPITAL^P160.19OX^ONCO(160.19,^3;5^S V="""" D NT^ONCODSR"
^DD(165.5,51.1,1,0)="^.1^^0"
^DD(165.5,51.1,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,51.1,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,51.1,3)="Enter Facility performing Radiation Therapy"
^DD(165.5,51.1,4)="D HELP^ONCOFLF"
^DD(165.5,51.1,21,0)="^^1^1^2970919^^^^"
^DD(165.5,51.1,21,1,0)="Record the name of the institution administering the therapy."
^DD(165.5,51.1,"DT")="2970902"
^DD(165.5,51.2,0)="RADIATION^*SX^0:None;1:Beam radiation;2:Radioactive implants;3:Radioisotopes;4:Beam rad w implants/radioisotopes;5:Radiation therapy, NOS;7:Refused radiation therapy;8:Recommended, unk if given;9:Unk if administered;^3;6^S V=0 D NT^ONCODSR"
^DD(165.5,51.2,.1)=""
^DD(165.5,51.2,1,0)="^.1"
^DD(165.5,51.2,1,1,0)="165.5^AJ^MUMPS"
^DD(165.5,51.2,1,1,1)="Q"
^DD(165.5,51.2,1,1,2)="D RAD^ONCDTX"
^DD(165.5,51.2,1,1,"DT")="2970912"
^DD(165.5,51.2,10)=""
^DD(165.5,51.2,12)="Codes 7 and 8 should not be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,51.2,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2960101)!((Y'=7)&(Y'=8))"""
^DD(165.5,51.2,20,0)="^.3LA^^0"
^DD(165.5,51.2,20,1,0)="SEER"
^DD(165.5,51.2,20,2,0)="ACOS-REQUIRED"
^DD(165.5,51.2,21,0)="^^6^6^2980522^^^^"
^DD(165.5,51.2,21,1,0)=""
^DD(165.5,51.2,21,2,0)="Record the type of radiation administered to the primary site or any"
^DD(165.5,51.2,21,3,0)="metastatic site.  Include all procedures that are part of the first"
^DD(165.5,51.2,21,4,0)="course of treatment, whether delivered at the reporting institution"
^DD(165.5,51.2,21,5,0)="or at other institutions."
^DD(165.5,51.2,21,6,0)=""
^DD(165.5,51.2,"DT")="2970912"
^DD(165.5,51.3,0)="RADIATION/SURGERY SEQUENCE^SX^0:No rad and/or surgery;2:Rad before surgery;3:Rad after surgery;4:Rad both before/after surgery;5:Intraoperative rad;6:Intraoperative rad w rad before/after surgery;9:Sequence unknown;^3;7^S V=0 D NT^ONCODSR"
^DD(165.5,51.3,.1)=""
^DD(165.5,51.3,10)=""
^DD(165.5,51.3,11,0)="^.2LAP^^0"
^DD(165.5,51.3,20,0)="^.3LA^^0"
^DD(165.5,51.3,20,1,0)="SEER"
^DD(165.5,51.3,20,2,0)="ACOS-RECOMMENDED"
^DD(165.5,51.3,21,0)="^.001^5^5^3030110^^^^"
^DD(165.5,51.3,21,1,0)=""
^DD(165.5,51.3,21,2,0)="Records the sequencing of radiation and surgical procedures"
^DD(165.5,51.3,21,3,0)="given as part of the first course of treatment."
^DD(165.5,51.3,21,4,0)=""
^DD(165.5,51.3,21,5,0)="For further information see FORDS pages 164-165."
^DD(165.5,51.3,"DT")="2970902"
^DD(165.5,51.4,0)="RADIATION @FACILITY^*SX^0:None;1:Beam radiation;2:Radioactive implants;3:Radioisotopes;4:Beam rad w implants/radioisotopes;5:Radiation, NOS;7:Refused radiation;8:Recommended, unk if given;9:Unk if admin;^3.1;12^S V=0 D NT^ONCODSR"
^DD(165.5,51.4,1,0)="^.1"
^DD(165.5,51.4,1,1,0)="165.5^AU^MUMPS"
^DD(165.5,51.4,1,1,1)="Q"
^DD(165.5,51.4,1,1,2)="D RADATF^ONCDTX1"
^DD(165.5,51.4,1,1,"%D",0)="^^2^2^2981029^^"
^DD(165.5,51.4,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,51.4,1,1,"%D",2,0)="the associated field values."
^DD(165.5,51.4,1,1,"DT")="2981001"
^DD(165.5,51.4,12)="Codes 7 and 8 should not be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,51.4,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2960101)!((Y'=7)&(Y'=8))"""
^DD(165.5,51.4,21,0)="^^5^5^2981001^^^^"
^DD(165.5,51.4,21,1,0)=""
^DD(165.5,51.4,21,2,0)="Record the type of radiation administered to the primary site or any"
^DD(165.5,51.4,21,3,0)="metastatic site AT THIS FACILITY.  Include all procedures that are part"
^DD(165.5,51.4,21,4,0)="of the first course of treatment."
^DD(165.5,51.4,21,5,0)=""
^DD(165.5,51.4,"DT")="2981001"
^DD(165.5,51.5,0)="RADIATION @FACILITY DATE^DXO^^3.1;13^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,51.5,1,0)="^.1^^0"
^DD(165.5,51.5,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,51.5,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,51.5,3)="*** RADIATION DATE AT THIS FACILITY MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,51.5,21,0)="^^4^4^2980813^^^^"
^DD(165.5,51.5,21,1,0)=""
^DD(165.5,51.5,21,2,0)="Record the date that the first course of radiation therapy performed"
^DD(165.5,51.5,21,3,0)="AT THIS FACILITY was started."
^DD(165.5,51.5,21,4,0)=""
^DD(165.5,51.5,"DT")="2990121"
^DD(165.5,52,0)="RADIATION THERAPY TO CNS DATE^DXO^^3;8^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,52,.1)=""
^DD(165.5,52,1,0)="^.1^^0"
^DD(165.5,52,1,1,0)="165.5^ATP^MUMPS"
^DD(165.5,52,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""P"")="""""
^DD(165.5,52,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""P"")"
^DD(165.5,52,1,1,"%D",0)="^^1^1^2930910^"
^DD(165.5,52,1,1,"%D",1,0)="Records brain/CNS radiation date on the unified treatment index."
^DD(165.5,52,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,52,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,52,3)="*** RADIATION THERAPY TO CNS DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,52,21,0)="^^5^5^2970523^^^^"
^DD(165.5,52,21,1,0)=""
^DD(165.5,52,21,2,0)="FOR LUNG AND LEUKEMIA ONLY:  record the date radiation therapy"
^DD(165.5,52,21,3,0)="to the brain and CNS was initiated."
^DD(165.5,52,21,4,0)=" "
^DD(165.5,52,21,5,0)="ALL OTHER SITES:  not a valid entry."
^DD(165.5,52,"DT")="3051024"
^DD(165.5,52.1,0)="RADIATION THERAPY TO CNS HOSP^P160.19OX^ONCO(160.19,^3;9^S V="""" D NT^ONCODSR"
^DD(165.5,52.1,.1)=""
^DD(165.5,52.1,1,0)="^.1^^0"
^DD(165.5,52.1,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,52.1,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,52.1,3)="Enter Facility giving the treatment."
^DD(165.5,52.1,4)="D HELP^ONCOFLF"
^DD(165.5,52.1,21,0)="^^2^2^2960814^^^^"
^DD(165.5,52.1,21,1,0)="Record the name of the institution administering the therapy.  This"
^DD(165.5,52.1,21,2,0)="field is used only for LUNGS and LEUKEMIAS."
^DD(165.5,52.1,"DT")="2970902"
^DD(165.5,52.2,0)="RADIATION THERAPY TO CNS^SX^0:No radiation to CNS;1:Radiation;7:Patient refused radiation;8:Radiation recommended, unk if admin;9:Unknown/NA;^3;10^S V=0 D NT^ONCODSR"
^DD(165.5,52.2,.1)=""
^DD(165.5,52.2,1,0)="^.1^^0"
^DD(165.5,52.2,3)="Code '9' unless this is a lung or leukemia case"
^DD(165.5,52.2,10)=""
^DD(165.5,52.2,20,0)="^.3LA^^0"
^DD(165.5,52.2,20,1,0)="SEER"
^DD(165.5,52.2,21,0)="^^9^9^2970821^^^^"
^DD(165.5,52.2,21,1,0)=""
^DD(165.5,52.2,21,2,0)="These data are being kept for historical purposes.  Do not code for"
^DD(165.5,52.2,21,3,0)="cases diagnosed as of January 1, 1996.  Case diagnosed on or after"
^DD(165.5,52.2,21,4,0)="January 1, 1996 should be coded in the field RADIATION."
^DD(165.5,52.2,21,5,0)=""
^DD(165.5,52.2,21,6,0)="Radiation treatment to the central nervous system (CNS) codes 0-8"
^DD(165.5,52.2,21,7,0)="are valid only for patients with lung or leukemia primaries.  Code"
^DD(165.5,52.2,21,8,0)="9 (Unknown/NA) for all other cases."
^DD(165.5,52.2,21,9,0)=""
^DD(165.5,52.2,"DT")="3030811"
^DD(165.5,53,0)="CHEMOTHERAPY DATE^DXO^^3;11^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,53,1,0)="^.1"
^DD(165.5,53,1,1,0)="165.5^ATC^MUMPS"
^DD(165.5,53,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""C"")="""""
^DD(165.5,53,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""C"")"
^DD(165.5,53,1,1,"%D",0)="^^1^1^2930910^"
^DD(165.5,53,1,1,"%D",1,0)="Records chemotheraphy date on the unified treatment index."
^DD(165.5,53,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,53,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,53,3)="*** CHEMOTHERAPY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,53,21,0)="^^3^3^2970919^^^^"
^DD(165.5,53,21,1,0)=""
^DD(165.5,53,21,2,0)="Record the date first course of CHEMOTHERAPY was started."
^DD(165.5,53,21,3,0)=""
^DD(165.5,53,"DT")="2980311"
^DD(165.5,53.1,0)="CHEMOTHERAPY HOSPITAL^P160.19OX^ONCO(160.19,^3;12^S V="""" D NT^ONCODSR"
^DD(165.5,53.1,1,0)="^.1^^0"
^DD(165.5,53.1,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,53.1,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,53.1,3)="Enter the institution where CHEMOTHERPY was administered."
^DD(165.5,53.1,4)="D HELP^ONCOFLF"
^DD(165.5,53.1,21,0)="^^3^3^2970919^^^^"
^DD(165.5,53.1,21,1,0)=""
^DD(165.5,53.1,21,2,0)="Record the name of the institution where CHEMOTHERAPY was given."
^DD(165.5,53.1,21,3,0)=""
^DD(165.5,53.1,"DT")="2970919"
^DD(165.5,53.2,0)="CHEMOTHERAPY^SX^00:None;01:Chemotherapy, NOS;02:Single-agent;03:Multiagent;82:Not administered/contraindicated;85:Pt died prior to tx;86:Recommended, not admin, no reason given;87:Refusal;88:Recommended, unknown if admin;99:Unknown^3;13^Q"
^DD(165.5,53.2,.1)=""
^DD(165.5,53.2,1,0)="^.1"
^DD(165.5,53.2,1,1,0)="165.5^AM^MUMPS"
^DD(165.5,53.2,1,1,1)="Q"
^DD(165.5,53.2,1,1,2)="D CHE^ONCDTX"
^DD(165.5,53.2,1,1,"%D",0)="^^2^2^3060710^"
^DD(165.5,53.2,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,53.2,1,1,"%D",2,0)="the associated field values."
^DD(165.5,53.2,1,1,"DT")="2970923"
^DD(165.5,53.2,10)=""
^DD(165.5,53.2,12)="Codes 7 and 8 should not be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,53.2,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2960101)!((Y'=7)&(Y'=8))"""
^DD(165.5,53.2,20,0)="^.3LA^^0"
^DD(165.5,53.2,20,1,0)="SEER"
^DD(165.5,53.2,20,2,0)="ACOS-REQUIRED"
^DD(165.5,53.2,21,0)="^.001^9^9^3030910^^^^"
^DD(165.5,53.2,21,1,0)=""
^DD(165.5,53.2,21,2,0)="Records the type of chemotherapy administered as first course of"
^DD(165.5,53.2,21,3,0)="treatment at this and at all other facilities.  If chemotherapy"
^DD(165.5,53.2,21,4,0)="was not administered, then this item records the reason it was not"
^DD(165.5,53.2,21,5,0)="administered to the patient.  Chemotherapy consists of a group of"
^DD(165.5,53.2,21,6,0)="anticancer drugs that inhibit the reproduction of cancer cells by"
^DD(165.5,53.2,21,7,0)="interfering with DNA synthesis and mitosis."
^DD(165.5,53.2,21,8,0)=""
^DD(165.5,53.2,21,9,0)="For further information see FORDS pages 171-172."
^DD(165.5,53.2,"DT")="3030909"
^DD(165.5,53.3,0)="CHEMOTHERAPY @FAC^S^00:None;01:Chemotherapy, NOS;02:Single-agent;03:Multiagent;82:Not administered/contraindicated;85:Pt died prior to tx;86:Recommended, not admin, no reason given;87:Refusal;88:Recommended, unknown if admin;99:Unknown^3.1;14^Q"
^DD(165.5,53.3,1,0)="^.1"
^DD(165.5,53.3,1,1,0)="165.5^AV^MUMPS"
^DD(165.5,53.3,1,1,1)="Q"
^DD(165.5,53.3,1,1,2)="D CHEMATF^ONCDTX1"
^DD(165.5,53.3,1,1,"%D",0)="^.101^2^2^3060710^^"
^DD(165.5,53.3,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,53.3,1,1,"%D",2,0)="the associated field values."
^DD(165.5,53.3,1,1,"DT")="2981001"
^DD(165.5,53.3,12)="Codes 7 and 8 should not be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,53.3,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2960101)!((Y'=7)&(Y'=8))"""
^DD(165.5,53.3,21,0)="^.001^9^9^3030128^^^^"
^DD(165.5,53.3,21,1,0)=""
^DD(165.5,53.3,21,2,0)="Records the type of chemotherapy administered as first course of"
^DD(165.5,53.3,21,3,0)="treatment at this facility.  If chemotherapy was not administered,"
^DD(165.5,53.3,21,4,0)="then this item records the reason it was not administered to the"
^DD(165.5,53.3,21,5,0)="patient.  Chemotherapy consists of a group of anticancer drugs"
^DD(165.5,53.3,21,6,0)="that inhibit the reproduction of cancer cells by interfering with"
^DD(165.5,53.3,21,7,0)="DNA synthesis and mitosis."
^DD(165.5,53.3,21,8,0)=""
^DD(165.5,53.3,21,9,0)="For further information see FORDS pages 173-174."
^DD(165.5,53.3,"DT")="3030128"
^DD(165.5,53.4,0)="CHEMOTHERAPY @FAC DATE^DXO^^3.1;15^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,53.4,1,0)="^.1^^0"
^DD(165.5,53.4,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,53.4,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,53.4,3)="*** CHEMOTHERAPY @FAC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,53.4,21,0)="^.001^3^3^3030225^^^^"
^DD(165.5,53.4,21,1,0)=""
^DD(165.5,53.4,21,2,0)="Record the date chemotherapy was administered"
^DD(165.5,53.4,21,3,0)="as first course of treatment at this facility."
^DD(165.5,53.4,"DT")="3030225"
^DD(165.5,54,0)="HORMONE THERAPY DATE^DXO^^3;14^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,54,1,0)="^.1"
^DD(165.5,54,1,1,0)="165.5^ATH^MUMPS"
^DD(165.5,54,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""H"")="""""
^DD(165.5,54,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""H"")"
^DD(165.5,54,1,1,"%D",0)="^^1^1^2930910^"
^DD(165.5,54,1,1,"%D",1,0)="Records hormone therapy date on the unified treatment index."
^DD(165.5,54,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,54,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,54,3)="*** HORMONE THERAPY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,54,21,0)="^^3^3^2970919^^^"
^DD(165.5,54,21,1,0)=""
^DD(165.5,54,21,2,0)="Record the date HORMONE THERAPY was started."
^DD(165.5,54,21,3,0)=""
^DD(165.5,54,"DT")="2980311"
^DD(165.5,54.1,0)="HORMONE THERAPY HOSPITAL^P160.19OX^ONCO(160.19,^3;15^S V="""" D NT^ONCODSR"
^DD(165.5,54.1,1,0)="^.1^^0"
^DD(165.5,54.1,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,54.1,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,54.1,3)="Enter Hospital where Hormone Therapy was performed."
^DD(165.5,54.1,4)="D HELP^ONCOFLF"
^DD(165.5,54.1,21,0)="^^2^2^2960814^^^^"
^DD(165.5,54.1,21,1,0)="Record the name of the institution that administered the hormone "
^DD(165.5,54.1,21,2,0)="therapy."
^DD(165.5,54.1,"DT")="2971003"
^DD(165.5,54.2,0)="HORMONE THERAPY^SX^00:None;01:Hormone therapy;82:Not administered/contraindicated;85:Pt died prior to tx;86:Recommended, not admin, no reason given;87:Refusal;88:Recommended, unknown if admin;99:Unknown^3;16^Q"
^DD(165.5,54.2,.1)=""
^DD(165.5,54.2,1,0)="^.1"
^DD(165.5,54.2,1,1,0)="165.5^AN^MUMPS"
^DD(165.5,54.2,1,1,1)="Q"
^DD(165.5,54.2,1,1,2)="D HOR^ONCDTX"
^DD(165.5,54.2,1,1,"%D",0)="^^2^2^3060710^"
^DD(165.5,54.2,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,54.2,1,1,"%D",2,0)="the associated field values."
^DD(165.5,54.2,1,1,"DT")="2970923"
^DD(165.5,54.2,10)=""
^DD(165.5,54.2,12)="Codes 7 and 8 should not be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,54.2,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2960101)!((Y'=7)&(Y'=8))"""
^DD(165.5,54.2,20,0)="^.3LA^^0"
^DD(165.5,54.2,20,1,0)="SEER"
^DD(165.5,54.2,20,2,0)="ACOS-REQUIRED"
^DD(165.5,54.2,21,0)="1^.001^9^9^3030225^^^^"
^DD(165.5,54.2,21,1,0)=""
^DD(165.5,54.2,21,2,0)="Records the type of hormone therapy administered as first course"
^DD(165.5,54.2,21,3,0)="treatment at this and all other facilities.  If hormone therapy"
^DD(165.5,54.2,21,4,0)="was not administered, then this item records the reason it was"
^DD(165.5,54.2,21,5,0)="not administered to the patient.  Hormone therapy consists of a"
^DD(165.5,54.2,21,6,0)="group of drugs that may affect the long-term control of a cancer's"
^DD(165.5,54.2,21,7,0)="growth.  It is not usually used as a curative measure."
^DD(165.5,54.2,21,8,0)=""
^DD(165.5,54.2,21,9,0)="For further information see FORDS pages 175-176."
^DD(165.5,54.2,"DT")="3030909"
^DD(165.5,54.3,0)="HORMONE THERAPY @FAC^S^00:None;01:Hormone therapy;82:Not administered/contraindicated;85:Pt died prior to tx;86:Recommended, not admin, no reason given;87:Refusal;88:Recommended, unknown if admin;99:Unknown;^3.1;16^Q"
^DD(165.5,54.3,1,0)="^.1"
^DD(165.5,54.3,1,1,0)="165.5^AW^MUMPS"
^DD(165.5,54.3,1,1,1)="Q"
^DD(165.5,54.3,1,1,2)="D HORATF^ONCDTX1"
^DD(165.5,54.3,1,1,"%D",0)="^.101^2^2^3060710^^"
^DD(165.5,54.3,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,54.3,1,1,"%D",2,0)="the associated field values."
^DD(165.5,54.3,1,1,"DT")="2981001"
^DD(165.5,54.3,12)="Codes 7 and 8 should not be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,54.3,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)<2960101)!((Y'=7)&(Y'=8))"""
^DD(165.5,54.3,21,0)="^.001^9^9^3060629^^^^"
^DD(165.5,54.3,21,1,0)=""
^DD(165.5,54.3,21,2,0)="Records the type of hormone therapy administered as first"
^DD(165.5,54.3,21,3,0)="course treatment at this facility.  If hormone therapy was"
^DD(165.5,54.3,21,4,0)="not administered, then this item records the reason it was"
^DD(165.5,54.3,21,5,0)="not administered to the patient.  Hormone therapy consists"
^DD(165.5,54.3,21,6,0)="of a group of drugs that may affect the long-term control of"
^DD(165.5,54.3,21,7,0)="a cancer's growth.  It is not usually used as a curative measure."
^DD(165.5,54.3,21,8,0)=""
^DD(165.5,54.3,21,9,0)="For further information see FORDS pages 177-178."
^DD(165.5,54.3,"DT")="3060629"
^DD(165.5,54.4,0)="HORMONE THERAPY @FAC DATE^DXO^^3.1;17^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,54.4,1,0)="^.1^^0"
^DD(165.5,54.4,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,54.4,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,54.4,3)="*** HORMONE THERAPY @FAC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,54.4,21,0)="^.001^3^3^3030225^^^^"
^DD(165.5,54.4,21,1,0)=""
^DD(165.5,54.4,21,2,0)="Records the date hormone therapy was administered"
^DD(165.5,54.4,21,3,0)="as first course of treatment at this facility."
^DD(165.5,54.4,"DT")="3030225"
^DD(165.5,55,0)="IMMUNOTHERAPY DATE^DXO^^3;17^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,55,.1)=""
^DD(165.5,55,1,0)="^.1"
^DD(165.5,55,1,1,0)="165.5^ATB^MUMPS"
^DD(165.5,55,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""B"")="""""
^DD(165.5,55,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""B"")"
^DD(165.5,55,1,1,"%D",0)="^^1^1^2930910^"
^DD(165.5,55,1,1,"%D",1,0)="Records biological response modifier date on the unified treatment index."
^DD(165.5,55,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,55,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,55,3)="*** IMMUNOTHERAPY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,55,21,0)="^^2^2^2970523^^^"
^DD(165.5,55,21,1,0)=""
^DD(165.5,55,21,2,0)="The date immunotherapy was started."
^DD(165.5,55,"DT")="2980311"
^DD(165.5,55.1,0)="IMMUNOTHERAPY HOSPITAL^P160.19OX^ONCO(160.19,^3;18^S V="""" D NT^ONCODSR"
^DD(165.5,55.1,1,0)="^.1^^0"
^DD(165.5,55.1,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,55.1,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,55.1,3)="Record the ACOS number of the institution where immunotherapy was performed."
^DD(165.5,55.1,4)="D HELP^ONCOFLF"
^DD(165.5,55.1,21,0)="^^1^1^2960814^^^^"
^DD(165.5,55.1,21,1,0)="The ACOS number of the institution where immunotherapy was performed."
^DD(165.5,55.1,"DT")="2970923"
^DD(165.5,55.2,0)="IMMUNOTHERAPY^SX^00:None;01:Immunotherapy;82:Not administered/contraindicated;85:Pt died prior to tx;86:Recommended, not admin, no reason given;87:Refusal;88:Recommended, unknown if admin;99:Unknown^3;19^Q"
^DD(165.5,55.2,.1)=""
^DD(165.5,55.2,1,0)="^.1"
^DD(165.5,55.2,1,1,0)="165.5^AO^MUMPS"
^DD(165.5,55.2,1,1,1)="Q"
^DD(165.5,55.2,1,1,2)="D IMM^ONCDTX"
^DD(165.5,55.2,1,1,"%D",0)="^^2^2^3060710^"
^DD(165.5,55.2,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,55.2,1,1,"%D",2,0)="the associated field values."
^DD(165.5,55.2,1,1,"DT")="2970923"
^DD(165.5,55.2,2)="S Y(0)=Y S Y=$P($G(^ONCO(160.5,+Y,0)),U,2)"
^DD(165.5,55.2,2.1)="S Y=$P($G(^ONCO(160.5,+Y,0)),U,2)"
^DD(165.5,55.2,3)=""
^DD(165.5,55.2,4)=""
^DD(165.5,55.2,10)=""
^DD(165.5,55.2,12)="Codes 3, 4, 5 and 6 should only be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,55.2,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)>2951231)!((Y'=3)&(Y'=4)&(Y'=5)&(Y'=6))"""
^DD(165.5,55.2,20,0)="^.3LA^^0"
^DD(165.5,55.2,20,1,0)="SEER"
^DD(165.5,55.2,20,2,0)="ACOS-REQUIRED"
^DD(165.5,55.2,21,0)="^.001^9^9^3030225^^^^"
^DD(165.5,55.2,21,1,0)=""
^DD(165.5,55.2,21,2,0)="Records the type of immunotherapy administered as first course"
^DD(165.5,55.2,21,3,0)="treatment at this and all other facilities.  If immunotherapy"
^DD(165.5,55.2,21,4,0)="was not administered, then this item records the reason it was"
^DD(165.5,55.2,21,5,0)="not administered to the patient.  Immunotherapy consists of"
^DD(165.5,55.2,21,6,0)="biological or chemical agents that alter the immune system or"
^DD(165.5,55.2,21,7,0)="change the host's response to the tumor cells."
^DD(165.5,55.2,21,8,0)=""
^DD(165.5,55.2,21,9,0)="For further information see FORDS pages 179-180."
^DD(165.5,55.2,"DT")="3030909"
^DD(165.5,55.3,0)="IMMUNOTHERAPY @FAC^S^00:None;01:Immunotherapy;82:Not administered/contraindicated;85:Pt died prior to tx;86:Recommended, not admin, no reason given;87:Refusal;88:Recommended, unknown if admin;99:Unknown;^3.1;18^Q"
^DD(165.5,55.3,1,0)="^.1"
^DD(165.5,55.3,1,1,0)="165.5^AX^MUMPS"
^DD(165.5,55.3,1,1,1)="Q"
^DD(165.5,55.3,1,1,2)="D IMMATF^ONCDTX1"
^DD(165.5,55.3,1,1,"%D",0)="^^2^2^2981029^"
^DD(165.5,55.3,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,55.3,1,1,"%D",2,0)="the associated field values."
^DD(165.5,55.3,1,1,"DT")="2981001"
^DD(165.5,55.3,12)="Codes 3, 4, 5 and 6 should only be used for primaries with a DATE DX > 12/31/95."
^DD(165.5,55.3,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,16)>2951231)!((Y'=3)&(Y'=4)&(Y'=5)&(Y'=6))"""
^DD(165.5,55.3,21,0)="^.001^9^9^3030129^^^^"
^DD(165.5,55.3,21,1,0)=""
^DD(165.5,55.3,21,2,0)="Records the type of immunotherapy administered as first course"
^DD(165.5,55.3,21,3,0)="treatment at this facility.  If immunotherapy was not administered,"
^DD(165.5,55.3,21,4,0)="then this item records the reason it was not administered to the"
^DD(165.5,55.3,21,5,0)="patient.  Immunotherapy consists of biological or chemical agents"
^DD(165.5,55.3,21,6,0)="that alter the immune system or change the host's response to the"
^DD(165.5,55.3,21,7,0)="tumor cells."
^DD(165.5,55.3,21,8,0)=""
^DD(165.5,55.3,21,9,0)="For further information see FORDS page 181."
^DD(165.5,55.3,"DT")="3030129"
^DD(165.5,55.4,0)="IMMUNOTHERAPY @FAC DATE^DXO^^3.1;19^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,55.4,1,0)="^.1^^0"
^DD(165.5,55.4,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,55.4,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,55.4,3)="*** IMMUNOTHERAPY @FAC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,55.4,21,0)="^.001^3^3^3030225^^^^"
^DD(165.5,55.4,21,1,0)=""
^DD(165.5,55.4,21,2,0)="Records the date immunotherapy was administered"
^DD(165.5,55.4,21,3,0)="as first course of treatment at this facility."
^DD(165.5,55.4,"DT")="3030225"
^DD(165.5,56,0)="NUMBER OF TXS TO THIS VOLUME^NJ2,0OX^^3;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S V=0 D NT^ONCODSR"
^DD(165.5,56,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""None"",Y=99:""Unknown"",1:Y)"
^DD(165.5,56,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""None"",Y=99:""Unknown"",1:Y)"
^DD(165.5,56,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,56,21,0)="^.001^5^5^3030110^^^^"
^DD(165.5,56,21,1,0)=""
^DD(165.5,56,21,2,0)="Records the total number of treatment sessions (fractions)"
^DD(165.5,56,21,3,0)="administered during the first course of treatment."
^DD(165.5,56,21,4,0)=""
^DD(165.5,56,21,5,0)="For further information see FORDS page 163."
^DD(165.5,56,"DT")="3030110"
^DD(165.5,57,0)="OTHER TREATMENT START DATE^DXO^^3;23^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,57,.1)=""
^DD(165.5,57,1,0)="^.1"
^DD(165.5,57,1,1,0)="165.5^ATO^MUMPS"
^DD(165.5,57,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""O"")="""""
^DD(165.5,57,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""O"")"
^DD(165.5,57,1,1,"%D",0)="^^1^1^2930910^"
^DD(165.5,57,1,1,"%D",1,0)="Records other cancer-directed therapy date on the unified treatment index."
^DD(165.5,57,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,57,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,57,3)="*** OTHER TREATMENT START DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,57,21,0)="^.001^4^4^3030131^^^^"
^DD(165.5,57,21,1,0)=""
^DD(165.5,57,21,2,0)="Records the date on which other treatment began at any facility."
^DD(165.5,57,21,3,0)=""
^DD(165.5,57,21,4,0)="For further information see FORDS pages 184-185."
^DD(165.5,57,"DT")="3030131"
^DD(165.5,57.1,0)="OTHER TREATMENT HOSPITAL^P160.19OX^ONCO(160.19,^3;24^S V="""" D NT^ONCODSR"
^DD(165.5,57.1,.1)="Other treatment hospital"
^DD(165.5,57.1,1,0)="^.1^^0"
^DD(165.5,57.1,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,57.1,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.5,57.1,3)="Enter facility where other treatment was given."
^DD(165.5,57.1,4)="D HELP^ONCOFLF"
^DD(165.5,57.1,21,0)="^^1^1^2970808^^^^"
^DD(165.5,57.1,21,1,0)="Record the name of the institution where other treatment was administered."
^DD(165.5,57.1,"DT")="2970923"
^DD(165.5,57.2,0)="OTHER TREATMENT^SX^0:None;1:Other;2:Other - Experimental;3:Other - Double Blind;6:Other - Unproven;7:Refusal;8:Recommended, unknown if administered;9:Unknown;^3;25^Q"
^DD(165.5,57.2,.1)=""
^DD(165.5,57.2,1,0)="^.1"
^DD(165.5,57.2,1,1,0)="165.5^AP^MUMPS"
^DD(165.5,57.2,1,1,1)="Q"
^DD(165.5,57.2,1,1,2)="D OTH^ONCDTX"
^DD(165.5,57.2,1,1,"%D",0)="^^2^2^3060710^"
^DD(165.5,57.2,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,57.2,1,1,"%D",2,0)="the associated field values."
^DD(165.5,57.2,1,1,"DT")="2970923"
^DD(165.5,57.2,10)=""
^DD(165.5,57.2,20,0)="^.3LA^^0"
^DD(165.5,57.2,20,1,0)="SEER"
^DD(165.5,57.2,20,2,0)="ACOS-REQUIRED"
^DD(165.5,57.2,21,0)="^.001^6^6^3041124^^^^"
^DD(165.5,57.2,21,1,0)=""
^DD(165.5,57.2,21,2,0)="Identifies other treatment that cannot be defined as surgery,"
^DD(165.5,57.2,21,3,0)="radiation, or systemic therapy according to the defined data"
^DD(165.5,57.2,21,4,0)="elements in the FORDS manual."
^DD(165.5,57.2,21,5,0)=""
^DD(165.5,57.2,21,6,0)="For further information see FORDS page 186."
^DD(165.5,57.2,"DT")="3030909"
^DD(165.5,57.3,0)="OTHER TREATMENT @FAC^SX^0:None;1:Other;2:Other - Experimental;3:Other - Double Blind;6:Other - Unproven;7:Refusal;8:Recommended, unknown if administered;9:Unknown;^3.1;20^Q"
^DD(165.5,57.3,1,0)="^.1"
^DD(165.5,57.3,1,1,0)="165.5^AZ^MUMPS"
^DD(165.5,57.3,1,1,1)="Q"
^DD(165.5,57.3,1,1,2)="D OTHATF^ONCDTX1"
^DD(165.5,57.3,1,1,"%D",0)="^^2^2^2981029^"
^DD(165.5,57.3,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,57.3,1,1,"%D",2,0)="the associated field values."
^DD(165.5,57.3,1,1,"DT")="2981001"
^DD(165.5,57.3,21,0)="^.001^6^6^3041124^^^^"
^DD(165.5,57.3,21,1,0)=""
^DD(165.5,57.3,21,2,0)="Identifies other treatment given at this facility that cannot be"
^DD(165.5,57.3,21,3,0)="defined as surgery, radiation, or systemic therapy according to"
^DD(165.5,57.3,21,4,0)="the defined data elements in the FORDS manual."
^DD(165.5,57.3,21,5,0)=""
^DD(165.5,57.3,21,6,0)="For further information see FORDS page 187."
^DD(165.5,57.3,"DT")="3030909"
^DD(165.5,57.4,0)="OTHER TREATMENT @FACILITY DATE^DXO^^3.1;21^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,57.4,1,0)="^.1^^0"
^DD(165.5,57.4,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,57.4,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,57.4,3)="*** OTHER TREATMENT AT THIS FACILITY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,57.4,21,0)="^^8^8^2980821^^^^"
^DD(165.5,57.4,21,1,0)=""
^DD(165.5,57.4,21,2,0)="Record the month, day, and year first course of other treatment"
^DD(165.5,57.4,21,3,0)="performed AT THIS FACILITY was started."
^DD(165.5,57.4,21,4,0)=""
^DD(165.5,57.4,21,5,0)="Collecting dates for each treatment modality allows sequencing of multiple"
^DD(165.5,57.4,21,6,0)="treatments and aids evaluation of time intervals (from diagnosis to"
^DD(165.5,57.4,21,7,0)="treatment and from treatment to recurrence)."
^DD(165.5,57.4,21,8,0)=""
^DD(165.5,57.4,"DT")="2990121"
^DD(165.5,58,0)="REASON NO SURGERY OF PRIMARY^S^0:Surgery performed;1:Not part of 1st course;2:Contraindicated;5:Pt died prior to surgery;6:Recommended, not performed, no reason given;7:Refusal;8:Recommended, unknown if performed;9:Unknown;^3;26^Q   "
^DD(165.5,58,.1)=""
^DD(165.5,58,10)=""
^DD(165.5,58,20,0)="^.3LA^^0"
^DD(165.5,58,21,0)="^.001^4^4^3060629^^^^"
^DD(165.5,58,21,1,0)=""
^DD(165.5,58,21,2,0)="Records the reason that no surgery was performed on the primary site."
^DD(165.5,58,21,3,0)=""
^DD(165.5,58,21,4,0)="For further information see FORDS page 147."
^DD(165.5,58,"DT")="3050125"
^DD(165.5,58.1,0)="SURGICAL DX/STAGING PROC^FOX^^3;27^D NCDSIT^ONCODSR"
^DD(165.5,58.1,.1)=""
^DD(165.5,58.1,1,0)="^.1"
^DD(165.5,58.1,1,1,0)="165.5^AQ^MUMPS"
^DD(165.5,58.1,1,1,1)="Q"
^DD(165.5,58.1,1,1,2)="D NCDS^ONCDTX"
^DD(165.5,58.1,1,1,"DT")="2970930"
^DD(165.5,58.1,2)="S Y(0)=Y D NCDSOT^ONCODSR"
^DD(165.5,58.1,2.1)="D NCDSOT^ONCODSR"
^DD(165.5,58.1,3)=""
^DD(165.5,58.1,4)="D HP0^ONCODSR"
^DD(165.5,58.1,10)=""
^DD(165.5,58.1,20,0)="^.3LA^^0"
^DD(165.5,58.1,20,1,0)="SEER"
^DD(165.5,58.1,21,0)="^.001^5^5^3030407^^^^"
^DD(165.5,58.1,21,1,0)=""
^DD(165.5,58.1,21,2,0)="Identifies the surgical procedure(s) performed"
^DD(165.5,58.1,21,3,0)="in an effort to diagnose and/or stage disease."
^DD(165.5,58.1,21,4,0)=""
^DD(165.5,58.1,21,5,0)="For further information see FORDS pages 109-110."
^DD(165.5,58.1,"DT")="3021108"
^DD(165.5,58.2,0)="SURGERY OF PRIMARY (R)^NJ2,0XO^^3;38^S FIELD=58.2,NTXDD=1 D SPSIT^ONCOSUR"
^DD(165.5,58.2,1,0)="^.1"
^DD(165.5,58.2,1,1,0)="165.5^AI^MUMPS"
^DD(165.5,58.2,1,1,1)="Q"
^DD(165.5,58.2,1,1,2)="D SURR^ONCDTX"
^DD(165.5,58.2,1,1,"DT")="3030325"
^DD(165.5,58.2,2)="S Y(0)=Y S FIELD=58.2 D SPSOT^ONCOSUR"
^DD(165.5,58.2,2.1)="S FIELD=58.2 D SPSOT^ONCOSUR"
^DD(165.5,58.2,3)=""
^DD(165.5,58.2,4)="S FIELD=58.2 D SPSHP^ONCOSUR"
^DD(165.5,58.2,21,0)="12^.001^4^4^3030319^^^^"
^DD(165.5,58.2,21,1,0)=""
^DD(165.5,58.2,21,2,0)="Records the surgical procedure(s) performed to the primary site."
^DD(165.5,58.2,21,3,0)=""
^DD(165.5,58.2,21,4,0)="For further information see ROADS pages 187-189."
^DD(165.5,58.2,"DT")="3030327"
^DD(165.5,58.3,0)="SURGICAL DX/STAGING PROC DATE^DOX^^3;31^D DFIT^ONCODSR"
^DD(165.5,58.3,.1)=""
^DD(165.5,58.3,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,58.3,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,58.3,3)="Enter the date the surgical diagnostic and/or staging procedure was performed."
^DD(165.5,58.3,21,0)="^.001^5^5^3021112^^^^"
^DD(165.5,58.3,21,1,0)=""
^DD(165.5,58.3,21,2,0)="Records the date on which the surgical diagnostic"
^DD(165.5,58.3,21,3,0)="and/or staging procedure was performed."
^DD(165.5,58.3,21,4,0)=""
^DD(165.5,58.3,21,5,0)="For further information see FORDS pages 107-108."
^DD(165.5,58.3,"DT")="3070329"
^DD(165.5,58.4,0)="SURG DX/STAGING PROC @FAC^FXO^^3.1;5^D NCDSIT^ONCODSR"
^DD(165.5,58.4,1,0)="^.1"
^DD(165.5,58.4,1,1,0)="165.5^AR^MUMPS"
^DD(165.5,58.4,1,1,1)="Q"
^DD(165.5,58.4,1,1,2)="D NCDSATF^ONCDTX1"
^DD(165.5,58.4,1,1,"%D",0)="^^2^2^2981029^"
^DD(165.5,58.4,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,58.4,1,1,"%D",2,0)="the associated field values."
^DD(165.5,58.4,1,1,"DT")="2981001"
^DD(165.5,58.4,2)="S Y(0)=Y D NCDSOT^ONCODSR"
^DD(165.5,58.4,2.1)="D NCDSOT^ONCODSR"
^DD(165.5,58.4,3)=""
^DD(165.5,58.4,4)="D HP0^ONCODSR"
^DD(165.5,58.4,21,0)="^.001^5^5^3030407^^^^"
^DD(165.5,58.4,21,1,0)=""
^DD(165.5,58.4,21,2,0)="Identifies the surgical procedure(s) performed in an effort to"
^DD(165.5,58.4,21,3,0)="diagnose and/or stage disease at this facility."
^DD(165.5,58.4,21,4,0)=""
^DD(165.5,58.4,21,5,0)="For further information see FORDS page 111."
^DD(165.5,58.4,"DT")="3030107"
^DD(165.5,58.5,0)="SURG DX/STAGING PROC @FAC DATE^DXO^^3.1;6^D DFIT^ONCODSR"
^DD(165.5,58.5,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,58.5,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,58.5,3)="Enter the date the surgical diagnostic and/or staging procedure was performed at this facility."
^DD(165.5,58.5,21,0)="^.001^3^3^3030107^^^^"
^DD(165.5,58.5,21,1,0)=""
^DD(165.5,58.5,21,2,0)="Records the date on which the surgical diagnostic and/or staging procedure"
^DD(165.5,58.5,21,3,0)="was performed at this facility."
^DD(165.5,58.5,"DT")="3070329"
^DD(165.5,58.6,0)="SURGERY OF PRIMARY (F)^FOX^^3.1;29^S FIELD=58.6,NTXDD=1 D SPSIT^ONCOSUR"
^DD(165.5,58.6,1,0)="^.1"
^DD(165.5,58.6,1,1,0)="165.5^AI^MUMPS"
^DD(165.5,58.6,1,1,1)="Q"
^DD(165.5,58.6,1,1,2)="D SUR^ONCDTX"
^DD(165.5,58.6,1,1,"%D",0)="^^2^2^3030115^"
^DD(165.5,58.6,1,1,"%D",1,0)="If SURGICAL PROC OF PRIMARY is deleted, the"
^DD(165.5,58.6,1,1,"%D",2,0)="associated surgery fields are also deleted."
^DD(165.5,58.6,1,1,"DT")="3030115"
^DD(165.5,58.6,2)="S Y(0)=Y S FIELD=58.6 D SPSOT^ONCOSUR"
^DD(165.5,58.6,2.1)="S FIELD=58.6 D SPSOT^ONCOSUR"
^DD(165.5,58.6,3)="Enter the surgical procedure CODE.  Alphabetic entries are prohibited."
^DD(165.5,58.6,4)="S FIELD=58.6 D SPSHP^ONCOSUR"
^DD(165.5,58.6,21,0)="^.001^4^4^3030319^^^^"
^DD(165.5,58.6,21,1,0)=""
^DD(165.5,58.6,21,2,0)="Records the surgical procedure(s) performed to the primary site."
^DD(165.5,58.6,21,3,0)=""
^DD(165.5,58.6,21,4,0)="For further information see FORDS page 135."
^DD(165.5,58.6,"DT")="3030328"
^DD(165.5,58.7,0)="SURGERY OF PRIMARY @FAC (F)^FOX^^3.1;30^S SPSFLG=0 D SPSDFIT^ONCTXSM K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X),SPSFLG=0 S FIELD=58.7,NTXDD=1 D SPSIT^ONCOSUR"
^DD(165.5,58.7,1,0)="^.1"
^DD(165.5,58.7,1,1,0)="165.5^AT^MUMPS"
^DD(165.5,58.7,1,1,1)="Q"
^DD(165.5,58.7,1,1,2)="D SPSATF^ONCDTX1"
^DD(165.5,58.7,1,1,"%D",0)="^^2^2^3030117^"
^DD(165.5,58.7,1,1,"%D",1,0)="If SURGICAL PROC OF PRIMARY @FAC is deleted, the"
^DD(165.5,58.7,1,1,"%D",2,0)="associated surgery @FAC fields are also deleted."
^DD(165.5,58.7,1,1,"DT")="3030117"
^DD(165.5,58.7,2)="S Y(0)=Y S FIELD=58.7 D SPSOT^ONCOSUR"
^DD(165.5,58.7,2.1)="S FIELD=58.7 D SPSOT^ONCOSUR"
^DD(165.5,58.7,3)=""
^DD(165.5,58.7,4)="S FIELD=58.7 D SPSHP^ONCOSUR"
^DD(165.5,58.7,21,0)="^.001^5^5^3031010^^^^"
^DD(165.5,58.7,21,1,0)=""
^DD(165.5,58.7,21,2,0)="Records the surgical procedure(s) performed"
^DD(165.5,58.7,21,3,0)="to the primary at this facility."
^DD(165.5,58.7,21,4,0)=""
^DD(165.5,58.7,21,5,0)="For further information see FORDS page 136."
^DD(165.5,58.7,"DT")="3031010"
^DD(165.5,59,0)="SURGICAL MARGINS^SO^0:No residual tumor;1:Residual tumor, NOS;2:Microscopic residual tumor;3:Macroscopic residual tumor;7:Margins not evaluable;8:No primary site surgery;9:Unknown or NA;^3;28^Q"
^DD(165.5,59,.1)=""
^DD(165.5,59,2)="S Y(0)=Y S FILNUM=165.5,FLDNUM=59 D SOC^ONCOOT"
^DD(165.5,59,2.1)="S FILNUM=165.5,FLDNUM=59 D SOC^ONCOOT"
^DD(165.5,59,3)="Record the margin status as it appears in the pathology report."
^DD(165.5,59,4)=""
^DD(165.5,59,10)=""
^DD(165.5,59,20,0)="^.3LA^^0"
^DD(165.5,59,20,1,0)="ACOS-RECOMMENDED"
^DD(165.5,59,21,0)="31^.001^5^5^3030415^^^^"
^DD(165.5,59,21,1,0)=""
^DD(165.5,59,21,2,0)="Records the final status of the surgical margins"
^DD(165.5,59,21,3,0)="after resection of the primary tumor."
^DD(165.5,59,21,4,0)=""
^DD(165.5,59,21,5,0)="For further information see FORDS page 137."
^DD(165.5,59,"DT")="3030414"
^DD(165.5,60,0)="SUBSEQUENT COURSE OF TREATMENT^165.51DA^^4;0"
^DD(165.5,60,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,60,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,60,21,0)="^^2^2^2970523^^^^"
^DD(165.5,60,21,1,0)="Enter subsequent therapy (therapy provided after completion of"
^DD(165.5,60,21,2,0)="the first course of therapy)."
^DD(165.5,60,"DT")="2930504"
^DD(165.5,61,0)="PID#^CJ5^^ ; ^S X="""" D PID5^ONCOCOM"
^DD(165.5,61,9)="^"
^DD(165.5,61,9.01)=""
^DD(165.5,61,9.1)="S X="""" D PID5^ONCOCOM"
^DD(165.5,61,21,0)="^^1^1^2920528^"
^DD(165.5,61,21,1,0)="RECORD THE PATIENT'S IDENTIFICATION NUMBER."
^DD(165.5,62,0)="QA SELECTED^S^Y:YES;^7;4^Q"
^DD(165.5,62,3)="Abstract has been selected for QA Review (from QA option)"
^DD(165.5,62,21,0)="^^1^1^2920710^"
^DD(165.5,62,21,1,0)="Field is stuffed if randomly selected for QA review."
^DD(165.5,62,"DT")="2920923"
^DD(165.5,63,0)="QA REVIEW^S^N:NO;Y:YES;^7;8^Q"
^DD(165.5,63,3)="Enter if QReview was performed on the selected Abstract."
^DD(165.5,63,21,0)="^^1^1^2920710^"
^DD(165.5,63,21,1,0)="Field only used if Abstract was randomly selected for QA Review."
^DD(165.5,63,"DT")="2920923"
^DD(165.5,64,0)="QA DATE^DOX^^7;9^S %DT=""EPX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X) S DTDX=$P($G(^ONCO(165.5,D0,0)),""^"",16) I DTDX'="""" K:X<DTDX X K %DT(0)"
^DD(165.5,64,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,64,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,64,3)="*** QA DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,64,21,0)="^^2^2^2970523^^"
^DD(165.5,64,21,1,0)=""
^DD(165.5,64,21,2,0)="Date of QA Review if done on this Abstract."
^DD(165.5,64,"DT")="2970403"
^DD(165.5,64.1,0)="QA REVIEWER^P200'^VA(200,^7;18^Q"
^DD(165.5,64.1,21,0)="^^3^3^2990719^"
^DD(165.5,64.1,21,1,0)=""
^DD(165.5,64.1,21,2,0)="Select the name of the QA reviewer."
^DD(165.5,64.1,21,3,0)=""
^DD(165.5,64.1,"DT")="2990719"
^DD(165.5,64.2,0)="QA FINDINGS^165.54^^28;0"
^DD(165.5,64.2,21,0)="^^4^4^2990727^"
^DD(165.5,64.2,21,1,0)=""
^DD(165.5,64.2,21,2,0)="Enter the QA FINDINGS of the QA review.  Please limit your findings to 3"
^DD(165.5,64.2,21,3,0)="lines of text."
^DD(165.5,64.2,21,4,0)=""
^DD(165.5,65,0)="PHYSICIAN'S STAGE^F^^7;10^K:$L(X)>30!($L(X)<3) X"
^DD(165.5,65,3)="Answer must be 3-30 characters in length."
^DD(165.5,65,21,0)="^.001^1^1^3030717^^^^"
^DD(165.5,65,21,1,0)="Records information regarding the physician's stage. "
^DD(165.5,65,"DT")="3030717"
^DD(165.5,66,0)="PHYSICIAN STAGING^*P165^ONCO(165,^7;11^S DIC(""S"")=""I $P(^(0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,66,1,0)="^.1"
^DD(165.5,66,1,1,0)="165.5^ACP^MUMPS"
^DD(165.5,66,1,1,1)="S ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))="""""
^DD(165.5,66,1,1,2)="K ^ONCO(165,""ACP"",X,$P(^ONCO(165.5,DA,0),U,2))"
^DD(165.5,66,1,1,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,66,1,1,"%D",1,0)="Creates a list under the Contact file of contacts, and associated patients "
^DD(165.5,66,1,1,"%D",2,0)="orginating from the Primary file pointers to the Contact File."
^DD(165.5,66,1,1,"DT")="2920607"
^DD(165.5,66,1,2,0)="165.5^APC^MUMPS"
^DD(165.5,66,1,2,1)="S ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)="""""
^DD(165.5,66,1,2,2)="K ^ONCO(165,""APC"",$P(^ONCO(165.5,DA,0),U,2),X)"
^DD(165.5,66,1,2,"%D",0)="^^2^2^2920608^^^"
^DD(165.5,66,1,2,"%D",1,0)="Creates a list under the contact file of patients, and associated contacts"
^DD(165.5,66,1,2,"%D",2,0)="originating from the Primary file pointers to the contact file."
^DD(165.5,66,1,2,"DT")="2920607"
^DD(165.5,66,1,3,0)="165.5^APST^MUMPS"
^DD(165.5,66,1,3,1)="S ^ONCO(165.5,""APST"",X,$P(^ONCO(165.5,DA,0),U,2),DA)="""""
^DD(165.5,66,1,3,2)="K ^ONCO(165.5,""APST"",X,$P(^ONCO(165.5,DA,0),U,2),DA)"
^DD(165.5,66,1,3,"%D",0)="^^1^1^2990511^^^^"
^DD(165.5,66,1,3,"%D",1,0)="Creates a list of CONTACTs and the ONCOLOGY PATIENTs who use them."
^DD(165.5,66,1,3,"DT")="2990511"
^DD(165.5,66,3)="Enter physician's name who did the staging"
^DD(165.5,66,12)="Contact Type is MD"
^DD(165.5,66,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=2"""
^DD(165.5,66,21,0)="^^3^3^2990507^^^^"
^DD(165.5,66,21,1,0)=""
^DD(165.5,66,21,2,0)="This is the name of the physician performing the staging."
^DD(165.5,66,21,3,0)=""
^DD(165.5,66,"DT")="2990511"
^DD(165.5,67,0)="ACOS #^CJ8^^ ; ^S X=$$IIN^ONCFUNC"
^DD(165.5,67,9)="^"
^DD(165.5,67,9.01)=""
^DD(165.5,67,9.1)="S X=$$IIN^ONCFUNC"
^DD(165.5,67,21,0)="^^4^4^2991103^^^"
^DD(165.5,67,21,1,0)=""
^DD(165.5,67,21,2,0)="ACOS # is the equivalent of the INSTITUTION ID NUMBER as recorded in the"
^DD(165.5,67,21,3,0)="ONCOLOGY SITE PARAMETERS file."
^DD(165.5,67,21,4,0)=""
^DD(165.5,67,"DT")="2991103"
^DD(165.5,68,0)="STATE HOSPITAL #^CJ8^^ ; ^S X=$$SHN^ONCFUNC"
^DD(165.5,68,9)="^"
^DD(165.5,68,9.01)=""
^DD(165.5,68,9.1)="S X=$$SHN^ONCFUNC"
^DD(165.5,68,21,0)="^^3^3^2991103^^^^"
^DD(165.5,68,21,1,0)=""
^DD(165.5,68,21,2,0)="This is the state identification number."
^DD(165.5,68,21,3,0)=""
^DD(165.5,68,"DT")="2991103"
^DD(165.5,69,0)="MULTIPLE TUMORS^NJ3,0^^2;31^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,69,3)="If multiple tumors, enter a 1 or the exact number if known."
^DD(165.5,69,21,0)="^^7^7^2930701^"
^DD(165.5,69,21,1,0)="This field documents the existence and (if known) number of multiple tumors"
^DD(165.5,69,21,2,0)="at an anatomic site."
^DD(165.5,69,21,3,0)=" "
^DD(165.5,69,21,4,0)="If there are NOT multiple tumors at this site, leave this field BLANK."
^DD(165.5,69,21,5,0)=" "
^DD(165.5,69,21,6,0)="If there ARE multiple tumors at this site, enter the exact number of tumors"
^DD(165.5,69,21,7,0)="here if known, or a 1 if the exact number if not known."
^DD(165.5,69,"DT")="2930701"
^DD(165.5,69.1,0)="FAMILY HISTORY^S^0:No;1:Yes;^2;32^Q"
^DD(165.5,69.1,21,0)="^^5^5^2960823^^"
^DD(165.5,69.1,21,1,0)="If there is a known family history for this case, enter a 1."
^DD(165.5,69.1,21,2,0)=" "
^DD(165.5,69.1,21,3,0)="Otherwise, enter a 0 or leave blank."
^DD(165.5,69.1,21,4,0)=" "
^DD(165.5,69.1,21,5,0)="This field only applies to cancers of the retina."
^DD(165.5,69.1,"DT")="2930701"
^DD(165.5,69.2,0)="DIFFUSE RETINAL INVOLVEMENT^S^0:No;1:Yes;^3;30^Q"
^DD(165.5,69.2,3)=""
^DD(165.5,69.2,21,0)="^^6^6^2930701^"
^DD(165.5,69.2,21,1,0)="If there is diffuse retinal involvement without the formation of discrete"
^DD(165.5,69.2,21,2,0)="masses, enter a 1."
^DD(165.5,69.2,21,3,0)=" "
^DD(165.5,69.2,21,4,0)="Otherwise, enter a 0 or leave blank."
^DD(165.5,69.2,21,5,0)=" "
^DD(165.5,69.2,21,6,0)="This field applies only to cancers of the retina."
^DD(165.5,69.2,"DT")="2930701"
^DD(165.5,69.3,0)="MULTIMODALITY THERAPY (CLIN)^S^Y:Yes;N:No;^7;16^Q"
^DD(165.5,69.3,21,0)="^^7^7^2970530^^"
^DD(165.5,69.3,21,1,0)="The first method of therapy is other than cancer-directed surgery.  The"
^DD(165.5,69.3,21,2,0)="patient is first treated with radiation therapy, chemotherapy, hormone"
^DD(165.5,69.3,21,3,0)="therapy, immunotherapy, ""other"" therapy, or any combination of these"
^DD(165.5,69.3,21,4,0)="therapies.  The stage is based on a pathologic resection of the primary"
^DD(165.5,69.3,21,5,0)="done after at least one of the other therapies has started.  The other"
^DD(165.5,69.3,21,6,0)="therapy may or may not be complete.  This stage should supplement the"
^DD(165.5,69.3,21,7,0)="clinical AJCC stage, not replace it. "
^DD(165.5,69.3,"DT")="2970530"
^DD(165.5,69.4,0)="MULTIMODALITY THERAPY^S^Y:Yes;N:No;^7;17^Q"
^DD(165.5,69.4,3)="Enter Yes to prefix the pTNM category with ""y""."
^DD(165.5,69.4,21,0)="^.001^8^8^3021024^^^^"
^DD(165.5,69.4,21,1,0)="MULTIMODALITY THERAPY determines whether the pTNM category will have a"
^DD(165.5,69.4,21,2,0)="""y Prefix"" (eg yT1 N0 M0)."
^DD(165.5,69.4,21,3,0)=""
^DD(165.5,69.4,21,4,0)="The ""y Prefix"" indicates those cases in which classification is"
^DD(165.5,69.4,21,5,0)="performed during or following initial multimodality therapy.  The"
^DD(165.5,69.4,21,6,0)="ypTNM categorizes the extent of tumor actually present at the time"
^DD(165.5,69.4,21,7,0)="of that examination.  The ""y"" category is not an estimate of the"
^DD(165.5,69.4,21,8,0)="extent of tumor prior to multimodality therapy. "
^DD(165.5,69.4,"DT")="3021024"
^DD(165.5,70,0)="DATE OF FIRST RECURRENCE^DOX^^5;1^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,70,.1)=""
^DD(165.5,70,2)="S Y(0)=Y S X=Y D DATEOT^ONCOPCE"
^DD(165.5,70,2.1)="S X=Y D DATEOT^ONCOPCE"
^DD(165.5,70,3)="*** DATE OF FIRST RECURRENCE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,70,10)=""
^DD(165.5,70,20,0)="^.3LA^^0"
^DD(165.5,70,20,1,0)="ACOS-REQUIRED"
^DD(165.5,70,21,0)="^.001^4^4^3030131^^^^"
^DD(165.5,70,21,1,0)=""
^DD(165.5,70,21,2,0)="Records the date of the first recurrence."
^DD(165.5,70,21,3,0)=""
^DD(165.5,70,21,4,0)="For further information see FORDS pages 195-196."
^DD(165.5,70,"DT")="3000512"
^DD(165.5,71,0)="TYPE OF FIRST RECURRENCE^*P160.12'O^ONCO(160.12,^5;2^S DIC(""S"")=""I ($P(^(0),U,1)'=11)&($P(^(0),U,1)'=""""01"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,71,.1)=""
^DD(165.5,71,2)="S Y(0)=Y S:Y'="""" Y=$P($G(^ONCO(160.12,Y,0)),U,2)"
^DD(165.5,71,2.1)="S:Y'="""" Y=$P($G(^ONCO(160.12,Y,0)),U,2)"
^DD(165.5,71,3)=""
^DD(165.5,71,10)=""
^DD(165.5,71,12)="ROADS codes 01 and 11 have been discontinued."
^DD(165.5,71,12.1)="S DIC(""S"")=""I ($P(^(0),U,1)'=11)&($P(^(0),U,1)'=""""01"""")"""
^DD(165.5,71,20,0)="^.3LA^^0"
^DD(165.5,71,21,0)="22^.001^5^5^3030204^^^^"
^DD(165.5,71,21,1,0)=""
^DD(165.5,71,21,2,0)="Identifies the type of first recurrence after a period of"
^DD(165.5,71,21,3,0)="documented disease-free intermission or remission."
^DD(165.5,71,21,4,0)=""
^DD(165.5,71,21,5,0)="For further information see FORDS pages 197-198."
^DD(165.5,71,"DT")="3030204"
^DD(165.5,71.1,0)="DISTANT SITE 1^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central Nervous System;7:Skin;8:Lymph Nodes (Distant);9:Other/Generalized/NOS;^5;3^Q"
^DD(165.5,71.1,.1)=""
^DD(165.5,71.1,3)=""
^DD(165.5,71.1,10)=""
^DD(165.5,71.1,20,0)="^.3LA^^0"
^DD(165.5,71.1,20,1,0)="ACOS-REQUIRED"
^DD(165.5,71.1,21,0)="^.001^1^1^3040709^^^^"
^DD(165.5,71.1,21,1,0)="Record the first site of distant recurrence."
^DD(165.5,71.1,"DT")="3040709"
^DD(165.5,71.2,0)="DISTANT SITE 2^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central Nervous System;7:Skin;8:Lymph Nodes (Distant);9:Other/Generalized/NOS;^5;4^Q"
^DD(165.5,71.2,.1)=""
^DD(165.5,71.2,3)=""
^DD(165.5,71.2,10)=""
^DD(165.5,71.2,20,0)="^.3LA^^0"
^DD(165.5,71.2,20,1,0)="ACOS-REQUIRED"
^DD(165.5,71.2,21,0)="^.001^1^1^3040709^^^^"
^DD(165.5,71.2,21,1,0)="Record the second site of distant recurrence."
^DD(165.5,71.2,"DT")="3040709"
^DD(165.5,71.3,0)="DISTANT SITE 3^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central Nervous System;7:Skin;8:Lymph Nodes (Distant);9:Other/Generalized/NOS;^5;5^Q"
^DD(165.5,71.3,.1)=""
^DD(165.5,71.3,3)=""
^DD(165.5,71.3,10)=""
^DD(165.5,71.3,20,0)="^.3LA^^0"
^DD(165.5,71.3,20,1,0)="ACOS-REQUIRED"
^DD(165.5,71.3,21,0)="^.001^1^1^3040709^^^^"
^DD(165.5,71.3,21,1,0)="Record the third site of distant recurrence."
^DD(165.5,71.3,"DT")="3040709"
^DD(165.5,71.4,0)="OTHER TYPE OF FIRST RECURRENCE^P160.12'O^ONCO(160.12,^5;6^Q"
^DD(165.5,71.4,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.12,Y,0),""^"",2)"
^DD(165.5,71.4,2.1)="S:Y'="""" Y=$P(^ONCO(160.12,Y,0),""^"",2)"
^DD(165.5,71.4,21,0)="^.001^12^12^3000317^^^^"
^DD(165.5,71.4,21,1,0)=""
^DD(165.5,71.4,21,2,0)="Record the OTHER TYPE OF FIRST RECURRENCE.  The term ""recurrence"" means"
^DD(165.5,71.4,21,3,0)="the return or reappearance of the cancer after a disease-free intermission"
^DD(165.5,71.4,21,4,0)="or remission."
^DD(165.5,71.4,21,5,0)=""
^DD(165.5,71.4,21,6,0)="The patient may have more than one site of recurrence (i.e., both regional"
^DD(165.5,71.4,21,7,0)="and distant metastases).  Code regional in the data field TYPE OF FIRST"
^DD(165.5,71.4,21,8,0)="RECURRENCE, and distant in this field."
^DD(165.5,71.4,21,9,0)=""
^DD(165.5,71.4,21,10,0)="If the patient has only one site of recurrence or has been disease-free"
^DD(165.5,71.4,21,11,0)="since treatment, code 00."
^DD(165.5,71.4,21,12,0)=""
^DD(165.5,71.4,"DT")="3000317"
^DD(165.5,72,0)="SUBSEQUENT RECURRENCES^165.572D^^23;0"
^DD(165.5,72,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,72,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,72,21,0)="^^1^1^2970523^^^^"
^DD(165.5,72,21,1,0)="This multiple records information on subsequent recurrences of the tumor."
^DD(165.5,73,0)="TUMOR STATUS^165.573DA^^TS;0"
^DD(165.5,73,21,0)="^^3^3^2930930^^^^"
^DD(165.5,73,21,1,0)="This multiple is populated by the Post/Edit Follow-Up option"
^DD(165.5,73,21,2,0)="of the Follow-Up Menu.  It contains the date of each follow-up"
^DD(165.5,73,21,3,0)="for this patient, and the tumor status at each follow-up."
^DD(165.5,73,23,0)="^^2^2^2930930^^^^"
^DD(165.5,73,23,1,0)="This field is set directly by STSMONE^ONCOFTS."
^DD(165.5,73,23,2,0)="This field is killed directly by KTSMONE^ONCOFTS."
^DD(165.5,73,"DT")="2930309"
^DD(165.5,74,0)="SURGICAL APPROACH (R)^NJ1,0XO^^3;34^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D SAIT^ONCOSUR"
^DD(165.5,74,2)="S Y(0)=Y D SAOT^ONCOSUR"
^DD(165.5,74,2.1)="D SAOT^ONCOSUR"
^DD(165.5,74,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(165.5,74,4)="D SAHP^ONCOSUR"
^DD(165.5,74,21,0)="^.001^11^11^3030513^^^^"
^DD(165.5,74,21,1,0)=""
^DD(165.5,74,21,2,0)="SURGICAL APPROACH describes the method used to approach the organ"
^DD(165.5,74,21,3,0)="of origin and/or primary tumor.  Code the approach for surgery of the"
^DD(165.5,74,21,4,0)="primary site only.  If no primary site surgical procedure was done"
^DD(165.5,74,21,5,0)="(SURGERY OF PRIMARY SITE is coded 00), SURGICAL APPROACH must be"
^DD(165.5,74,21,6,0)="coded 0.  If the field SURGERY OF PRIMARY SITE is 99 (Unknown if"
^DD(165.5,74,21,7,0)="surgery performed; death certificate ONLY), code SURGICAL APPROACH"
^DD(165.5,74,21,8,0)="9 (Unknown; not stated; death certificate ONLY)."
^DD(165.5,74,21,9,0)=" "
^DD(165.5,74,21,10,0)="For further information see ROADS page 186."
^DD(165.5,74,21,11,0)=""
^DD(165.5,74,"DT")="3030513"
^DD(165.5,75,0)="REASON FOR NO RADIATION^S^0:Radiation administered;1:Not part of 1st course;2:Contraindicated;5:Pt died prior to tx;6:Recommended, not admin, no reason given;7:Refusal;8:Recommended, unknown if admin;9:Unknown;^3;35^Q"
^DD(165.5,75,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.7,Y,0),""^"",2)"
^DD(165.5,75,2.1)="S:Y'="""" Y=$P(^ONCO(160.7,Y,0),""^"",2)"
^DD(165.5,75,21,0)="^.001^5^5^3060707^^^^"
^DD(165.5,75,21,1,0)=""
^DD(165.5,75,21,2,0)="Records the reason that no regional radiation"
^DD(165.5,75,21,3,0)="therapy was administered to the primary site."
^DD(165.5,75,21,4,0)=""
^DD(165.5,75,21,5,0)="For further information see FORDS page 168."
^DD(165.5,75,"DT")="3030128"
^DD(165.5,76,0)="REASON FOR NO CHEMOTHERAPY^S^0:Chemo administered;1:Chemo not recommended;2:Contraindicated, autopsy-only cases;6:Reason unk;7:Pt refused chemo;8:Chemo recommended, unk if administered;9:Unk if administered, death cert-only cases;^3;36^Q"
^DD(165.5,76,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.8,Y,0),""^"",2)"
^DD(165.5,76,2.1)="S:Y'="""" Y=$P(^ONCO(160.8,Y,0),""^"",2)"
^DD(165.5,76,21,0)="^^3^3^2970919^^^^"
^DD(165.5,76,21,1,0)="Record the reason the patient did not receive chemotherapy.  REASON FOR NO"
^DD(165.5,76,21,2,0)="CHEMOTHERAPY is useful in survival analysis.  It is a quality assurance"
^DD(165.5,76,21,3,0)="monitor of appropriateness of treatment."
^DD(165.5,76,"DT")="2970807"
^DD(165.5,77,0)="REASON FOR NO HORMONE THERAPY^S^0:HT administered;1:HT not recommended;2:Contraindicated, autopsy-only cases;6:Reason unk;7:Pt refused HT;8:HT recommended, unk if administered;9:Unk if administered, death cert-only cases;^3;37^Q"
^DD(165.5,77,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.9,Y,0),""^"",2)"
^DD(165.5,77,2.1)="S:Y'="""" Y=$P(^ONCO(160.9,Y,0),""^"",2)"
^DD(165.5,77,21,0)="^^1^1^2970807^^^^"
^DD(165.5,77,21,1,0)="The reason the patient did not receive hormone therapy."
^DD(165.5,77,"DT")="2970807"
^DD(165.5,78,0)="CONVERTED^S^Y:YES;N:NO;^24;6^Q"
^DD(165.5,78,21,0)="^^4^4^2960202^^"
^DD(165.5,78,21,1,0)="If this field is ""YES"" it means that the primary has had the pointers in"
^DD(165.5,78,21,2,0)="fields 5,6,7,50.1,51.1,52.1,53.1,54.1,55.1,56.1,57.1 and 60 subfield 2"
^DD(165.5,78,21,3,0)="converted from pointers to the ONCOLOGY CONTACT File (165) to pointers"
^DD(165.5,78,21,4,0)="to the new ACOS NUMBER file (160.19) already, and should not try to convert."
^DD(165.5,78,"DT")="2960201"
^DD(165.5,79,0)="SCREENING DATE^DOX^^0;24^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(165.5,79,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,79,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,79,3)=""
^DD(165.5,79,21,0)="^^3^3^2970523^^^^"
^DD(165.5,79,21,1,0)=""
^DD(165.5,79,21,2,0)="Record the most recent date on which the patient participated in a"
^DD(165.5,79,21,3,0)="screening program related to this primary cancer."
^DD(165.5,79,"DT")="2970708"
^DD(165.5,80,0)="RADIATION TREATMENT^165.52A^^6;0"
^DD(165.5,80,21,0)="^^1^1^2960122^^^^"
^DD(165.5,80,21,1,0)="Record the type of radiation therapy."
^DD(165.5,81,0)="COMPLETED BY^F^^7;12^K:$L(X)>3!($L(X)<2) X"
^DD(165.5,81,3)="Answer must be 2-3 characters in length."
^DD(165.5,81,21,0)="^^1^1^2980522^^"
^DD(165.5,81,21,1,0)="Record the initials of the person who completed the PCE."
^DD(165.5,81,"DT")="2980522"
^DD(165.5,82,0)="REVIEWED BY CANCER COMMITTEE^F^^7;13^K:$L(X)>3!($L(X)<2) X"
^DD(165.5,82,3)="Answer must be 2-3 characters in length."
^DD(165.5,82,21,0)="^^4^4^2980522^^"
^DD(165.5,82,21,1,0)="As a method of quality control, it is recommended that a member of the"
^DD(165.5,82,21,2,0)="cancer committee review the abstract for accuracy prior to the submission"
^DD(165.5,82,21,3,0)="of data to the Commission on Cancer.  Record the initials of the chairman"
^DD(165.5,82,21,4,0)="or member of the cancer committee who reviewed the completed PCE."
^DD(165.5,82,"DT")="2980522"
^DD(165.5,83,0)="AFIP SUBMISSION^S^0:No;1:Yes;9:Unknown;^0;21^Q"
^DD(165.5,83,21,0)="^.001^3^3^3020214^^"
^DD(165.5,83,21,1,0)=""
^DD(165.5,83,21,2,0)="AFIP SUBMISSION records whether the pathology was sent to the"
^DD(165.5,83,21,3,0)="Armed Forces Institute of Pathology (AFIP) for a second opinion."
^DD(165.5,83,"DT")="3020214"
^DD(165.5,84,0)="PCE INDICATOR^S^BLA:Bladder;THY:Thyroid;STS:Soft Tissue Sarcoma;PRO:Prostate (1992);COL:Colorectal;NHL:Non-Hodgkins Lymphoma;BRE:Breast;PRO2:Prostate (1998);MEL:Melanoma;HEP:Hepatocellular;CNS:Intracranial/CNS;GAS:Gastric;LNG:Lung;^7;15^Q"
^DD(165.5,84,1,0)="^.1"
^DD(165.5,84,1,1,0)="165.5^APCE"
^DD(165.5,84,1,1,1)="S ^ONCO(165.5,""APCE"",$E(X,1,30),DA)="""""
^DD(165.5,84,1,1,2)="K ^ONCO(165.5,""APCE"",$E(X,1,30),DA)"
^DD(165.5,84,1,1,"%D",0)="^^1^1^2961001^"
^DD(165.5,84,1,1,"%D",1,0)="This is a cross-reference of those primaries who have a PCE study."
^DD(165.5,84,1,1,"DT")="2961001"
^DD(165.5,84,21,0)="^.001^3^3^3010223^^^^"
^DD(165.5,84,21,1,0)=""
^DD(165.5,84,21,2,0)="This field indicates the existence of a PCE (Patient Care Evaluation) study."
^DD(165.5,84,21,3,0)=""
^DD(165.5,84,"DT")="3010223"
^DD(165.5,85,0)="PATHOLOGIC T^FXO^^2.1;1^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""T"",STGIND=""P"" D IN^ONCOTNM"
^DD(165.5,85,2)="S Y(0)=Y S ONCOX=""T"",STGIND=""P"" D OT^ONCOTNM"
^DD(165.5,85,2.1)="S ONCOX=""T"",STGIND=""P"" D OT^ONCOTNM"
^DD(165.5,85,3)=""
^DD(165.5,85,4)="S ONCOX=""T"",STGIND=""P"" D HP^ONCOTNM"
^DD(165.5,85,21,0)="^.001^4^4^3021112^^^^"
^DD(165.5,85,21,1,0)="Evaluates the primary tumor (T) and reflects the tumor"
^DD(165.5,85,21,2,0)="size and/or extension as recorded by the physician."
^DD(165.5,85,21,3,0)=""
^DD(165.5,85,21,4,0)="For futher information see FORDS page 118."
^DD(165.5,85,"DT")="2961010"
^DD(165.5,86,0)="PATHOLOGIC N^FXO^^2.1;2^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""N"",STGIND=""P"" D IN^ONCOTNM"
^DD(165.5,86,2)="S Y(0)=Y S ONCOX=""N"",STGIND=""P"" D OT^ONCOTNM"
^DD(165.5,86,2.1)="S ONCOX=""N"",STGIND=""P"" D OT^ONCOTNM"
^DD(165.5,86,3)=""
^DD(165.5,86,4)="S ONCOX=""N"",STGIND=""P"" D HP^ONCOTNM"
^DD(165.5,86,21,0)="^.001^5^5^3021112^^^^"
^DD(165.5,86,21,1,0)="Identifies the absence or presence of regional lymph node (N)"
^DD(165.5,86,21,2,0)="metastasis and describes the extent of regional lymph node"
^DD(165.5,86,21,3,0)="metastasis as recorded by the physician."
^DD(165.5,86,21,4,0)=""
^DD(165.5,86,21,5,0)="For futher information see FORDS page 119."
^DD(165.5,86,"DT")="2961010"
^DD(165.5,87,0)="PATHOLOGIC M^FXO^^2.1;3^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""M"",STGIND=""P"" D IN^ONCOTNM"
^DD(165.5,87,2)="S Y(0)=Y S ONCOX=""M"",STGIND=""P"" D OT^ONCOTNM"
^DD(165.5,87,2.1)="S ONCOX=""M"",STGIND=""P"" D OT^ONCOTNM"
^DD(165.5,87,3)=""
^DD(165.5,87,4)="S ONCOX=""M"",STGIND=""P"" D HP^ONCOTNM"
^DD(165.5,87,21,0)="^.001^4^4^3021112^^^"
^DD(165.5,87,21,1,0)="Identifies the presence or absence of distant"
^DD(165.5,87,21,2,0)="metastasis (M) as recorded by the physician."
^DD(165.5,87,21,3,0)=""
^DD(165.5,87,21,4,0)="For futher information see FORDS page 120."
^DD(165.5,87,"DT")="2961010"
^DD(165.5,88,0)="STAGE GROUP PATHOLOGIC^FXO^^2.1;4^K:$L(X)>14!($L(X)<1) X I $D(X) S ONCOX=""S"",STGIND=""P"" D IN^ONCOTNS I $D(X) D INNUM^ONCOTNS"
^DD(165.5,88,1,0)="^.1"
^DD(165.5,88,1,1,0)="165.5^AS2^MUMPS"
^DD(165.5,88,1,1,1)="D PSSG^ONCOCRC"
^DD(165.5,88,1,1,2)="D KSG^ONCOCRC"
^DD(165.5,88,1,1,"%D",0)="^^1^1^2970801^^^^"
^DD(165.5,88,1,1,"%D",1,0)="Maintains STAGE GROUPING-AJCC field (#38.5)."
^DD(165.5,88,1,1,"DT")="2961120"
^DD(165.5,88,2)="S Y(0)=Y S X="""" D OT^ONCOTNS"
^DD(165.5,88,2.1)="S X="""" D OT^ONCOTNS"
^DD(165.5,88,3)=""
^DD(165.5,88,4)="S ONCOX=""S"",STGIND=""P"" D HP^ONCOTNS"
^DD(165.5,88,21,0)="^.001^5^5^3051214^^^^"
^DD(165.5,88,21,1,0)=""
^DD(165.5,88,21,2,0)="Identifies the anatomic extent of disease based on the"
^DD(165.5,88,21,3,0)="T, N, and M elements as recorded by the physician."
^DD(165.5,88,21,4,0)=""
^DD(165.5,88,21,5,0)="For futher information see FORDS page 121."
^DD(165.5,88,"DT")="3051214"
^DD(165.5,89,0)="STAGED BY (PATHOLOGIC STAGE)^S^0:Not staged;1:Managing MD;2:Pathologist;3:Pathologist & managing MD;4:Committee chair, liaison MD, registry advisor;5:Registrar;6:Registrar & MD;7:Another facility;8:NA;9:Unknown;^2.1;5^Q"
^DD(165.5,89,21,0)="^.001^5^5^3021112^^^^"
^DD(165.5,89,21,1,0)=""
^DD(165.5,89,21,2,0)="Identifies the person who recorded the pathologic AJCC staging"
^DD(165.5,89,21,3,0)="elements and the stage group in the patient's medical record."
^DD(165.5,89,21,4,0)=""
^DD(165.5,89,21,5,0)="For futher information see FORDS page 123."
^DD(165.5,89,"DT")="2971215"
^DD(165.5,89.1,0)="TNM PATHOLOGIC^CJ14^^ ; ^S STGIND=""P"",X=$$TNMOUT^ONCOTNO(D0)"
^DD(165.5,89.1,.1)=""
^DD(165.5,89.1,9)="^"
^DD(165.5,89.1,9.01)=""
^DD(165.5,89.1,9.1)="S STGIND=""P"",X=$$TNMOUT^ONCOTNO(D0)"
^DD(165.5,89.1,21,0)="^.001^1^1^3051214^^^^"
^DD(165.5,89.1,21,1,0)="This is the combined Pathologic T, N, and M codes, formatted for display."
^DD(165.5,89.1,"DT")="3051214"
^DD(165.5,90,0)="DATE CASE COMPLETED^DOX^^7;1^D DFIT^ONCODSR"
^DD(165.5,90,1,0)="^.1"
^DD(165.5,90,1,1,0)="165.5^AAD^MUMPS"
^DD(165.5,90,1,1,1)="S ^ONCO(165.5,""AAD"",X,DA)="""""
^DD(165.5,90,1,1,2)="K ^ONCO(165.5,""AAD"",X,DA)"
^DD(165.5,90,1,1,"%D",0)="^^1^1^2920401^"
^DD(165.5,90,1,1,"%D",1,0)="Used for QA - 10% abstracts completed in particular timeframe"
^DD(165.5,90,1,1,"DT")="2920401"
^DD(165.5,90,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,90,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,90,3)="*** DATE CASE COMPLETED MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,90,21,0)="^.001^3^3^3030127^^^^"
^DD(165.5,90,21,1,0)=""
^DD(165.5,90,21,2,0)="The date that: (1) the abstractor decided that the case report was"
^DD(165.5,90,21,3,0)="complete, and (2) the case passed all edits that were applied."
^DD(165.5,90,"DT")="3030127"
^DD(165.5,91,0)="ABSTRACT STATUS^SX^0:Incomplete;1:Minimal data;2:Partial;3:Complete;^7;2^D CHECK^ONCOEDC Q"
^DD(165.5,91,1,0)="^.1"
^DD(165.5,91,1,1,0)="165.5^AS"
^DD(165.5,91,1,1,1)="S ^ONCO(165.5,""AS"",$E(X,1,30),DA)="""""
^DD(165.5,91,1,1,2)="K ^ONCO(165.5,""AS"",$E(X,1,30),DA)"
^DD(165.5,91,1,1,"%D",0)="^.101^1^1^3001003^^"
^DD(165.5,91,1,1,"%D",1,0)="Allow sorting by status of abstract"
^DD(165.5,91,1,1,"DT")="2920710"
^DD(165.5,91,3)=""
^DD(165.5,91,4)="D PRINT^ONCOEDC"
^DD(165.5,91,21,0)="^.001^1^1^3001031^^^^"
^DD(165.5,91,21,1,0)="Enter the status of the abstract data entry."
^DD(165.5,91,"DT")="3001031"
^DD(165.5,92,0)="ABSTRACTED BY^RP200'^VA(200,^7;3^Q"
^DD(165.5,92,21,0)="^.001^4^4^3030211^^^"
^DD(165.5,92,21,1,0)="Records the initials or assigned code of"
^DD(165.5,92,21,2,0)="the individual abstracting the case."
^DD(165.5,92,21,3,0)=""
^DD(165.5,92,21,4,0)="For further information see FORDS page 207."
^DD(165.5,92,"DT")="3030211"
^DD(165.5,93,0)="OTHER T^FXO^^2.1;6^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""T"",STGIND=""O"" D IN^ONCOTNM"
^DD(165.5,93,2)="S Y(0)=Y S ONCOX=""T"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.5,93,2.1)="S ONCOX=""T"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.5,93,3)="Answer must be appropriate ""T"" code from the AJCC Staging Manual"
^DD(165.5,93,4)="S ONCOX=""T"",STGIND=""O"" D HP^ONCOTNM"
^DD(165.5,93,21,0)="^^2^2^2961010^^^^"
^DD(165.5,93,21,1,0)="""Other T"" evaluates the primary tumor and identifies tumor size and/or"
^DD(165.5,93,21,2,0)="extension."
^DD(165.5,93,"DT")="2961010"
^DD(165.5,94,0)="REPORTING DATE^DOX^^7;5^D DFIT^ONCODSR"
^DD(165.5,94,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,94,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,94,3)="*** REPORTING DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,94,21,0)="^^2^2^2970523^^"
^DD(165.5,94,21,1,0)=""
^DD(165.5,94,21,2,0)="Records automatically the default date as reporting date."
^DD(165.5,94,"DT")="2970403"
^DD(165.5,95,0)="LAST TUMOR STATUS^P164.42'^ONCO(164.42,^7;6^Q"
^DD(165.5,95,.1)="Current Cancer Status"
^DD(165.5,95,1,0)="^.1"
^DD(165.5,95,1,1,0)="165.5^ACS"
^DD(165.5,95,1,1,1)="S ^ONCO(165.5,""ACS"",$E(X,1,30),DA)="""""
^DD(165.5,95,1,1,2)="K ^ONCO(165.5,""ACS"",$E(X,1,30),DA)"
^DD(165.5,95,1,1,3)="NO DELTETE"
^DD(165.5,95,1,1,"%D",0)="^^2^2^2930413^"
^DD(165.5,95,1,1,"%D",1,0)="DEVELOPERS NOTE:  Please read the Technical Documentation for this field before making"
^DD(165.5,95,1,1,"%D",2,0)="any changes to this or any other cross-references for this field."
^DD(165.5,95,1,1,"DT")="2910929"
^DD(165.5,95,3)=""
^DD(165.5,95,10)="ACOS 3.118"
^DD(165.5,95,20,0)="^.3LA^1^1"
^DD(165.5,95,20,1,0)="ACOS-REQUIRED"
^DD(165.5,95,21,0)="^^1^1^2940328^^^^"
^DD(165.5,95,21,1,0)="This field records the code that summarizes the cancer status."
^DD(165.5,95,23,0)="^^2^2^2940328^"
^DD(165.5,95,23,1,0)="This field is populated by a call to LTS^ONCOU."
^DD(165.5,95,23,2,0)="This field is referenced directly by TRS^ONCOCOS."
^DD(165.5,95,"DT")="2930505"
^DD(165.5,95.1,0)="STATUS/LAST TUMOR STATUS^CJ17^^ ; ^S X="""" D TRS^ONCOCOS"
^DD(165.5,95.1,9)="^"
^DD(165.5,95.1,9.01)=""
^DD(165.5,95.1,9.1)="S X="""" D TRS^ONCOCOS"
^DD(165.5,95.1,21,0)="^^2^2^3070112^"
^DD(165.5,95.1,21,1,0)="This COMPUTED field concatinates STATUS (160,15) and LAST TUMOR STATUS "
^DD(165.5,95.1,21,2,0)="(165.5,95)."
^DD(165.5,95.1,"DT")="3070112"
^DD(165.5,96,0)="PSA DATE^FXO^^PRO2;50^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,96,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,96,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,96,3)="Record the date on which the PSA test was performed."
^DD(165.5,96,21,0)="^.001^3^3^3060829^^"
^DD(165.5,96,21,1,0)=" "
^DD(165.5,96,21,2,0)="Records the date on which the Prostate Specific Antigen (PSA) test was "
^DD(165.5,96,21,3,0)="performed."
^DD(165.5,96,"DT")="3060921"
^DD(165.5,97,0)="ABSTRACT INCOMPLETE^BC^^ ; ^S Y(165.5,97,1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""") S X=$P(Y(165.5,97,1),U,2),X=X S X=X=0"
^DD(165.5,97,9)="^"
^DD(165.5,97,9.01)="165.5^91"
^DD(165.5,97,9.1)="INTERNAL(#91)=0"
^DD(165.5,97,9.2)="S Y(165.5,97,2)=$C(59)_$S($D(^DD(165.5,91,0)):$P(^(0),U,3),1:""""),Y(165.5,97,1)=$S($D(^ONCO(165.5,D0,7)):^(7),1:"""")"
^DD(165.5,97,21,0)="^^1^1^2920528^"
^DD(165.5,97,21,1,0)="RECORD THE ABSTRACT STATUS AS INCOMPLETE WHEN DATA IS MISSING."
^DD(165.5,97,23,0)="^^1^1^2900810^"
^DD(165.5,97,23,1,0)="Looks at Internal value of field #91 (ABstract status) for those values=0"
^DD(165.5,97,"DT")="2900810"
^DD(165.5,98,0)="OTHER N^FXO^^2.1;7^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""N"",STGIND=""O"" D IN^ONCOTNM"
^DD(165.5,98,2)="S Y(0)=Y S ONCOX=""N"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.5,98,2.1)="S ONCOX=""N"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.5,98,3)="Answer must be appropriate ""N"" code from the AJCC Staging Manual"
^DD(165.5,98,4)="S ONCOX=""N"",STGIND=""O"" D HP^ONCOTNM"
^DD(165.5,98,21,0)="^^2^2^2961010^^^"
^DD(165.5,98,21,1,0)="""Other N"" classifies the regional lymph nodes and describes the absence"
^DD(165.5,98,21,2,0)="or presence and the extent of node metastases."
^DD(165.5,98,"DT")="2961010"
^DD(165.5,99,0)="OTHER M^FXO^^2.1;8^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""M"",STGIND=""O"" D IN^ONCOTNM"
^DD(165.5,99,2)="S Y(0)=Y S ONCOX=""M"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.5,99,2.1)="S ONCOX=""M"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.5,99,3)="Answer must be appropriate ""M"" code from the AJCC Staging Manual"
^DD(165.5,99,4)="S ONCOX=""M"",STGIND=""O"" D HP^ONCOTNM"
^DD(165.5,99,21,0)="^^2^2^2970114^^^"
^DD(165.5,99,21,1,0)="""Other M"" records the presence or absence of distant metastases.  Choose"
^DD(165.5,99,21,2,0)="the lower (less advanced) M category when there is any uncertainty."
^DD(165.5,99,"DT")="2970115"
^DD(165.5,100,0)="TEXT-PRIMARY SITE TITLE^F^^8;1^K:$L(X)>40!($L(X)<1) X"
^DD(165.5,100,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(165.5,100,21,0)="^.001^3^3^3001227^^^"
^DD(165.5,100,21,1,0)=""
^DD(165.5,100,21,2,0)="Text area for description of primary site in natural language."
^DD(165.5,100,21,3,0)=""
^DD(165.5,100,"DT")="3001012"
^DD(165.5,101,0)="TEXT-HISTOLOGY TITLE^F^^8;2^K:$L(X)>40!($L(X)<1) X"
^DD(165.5,101,3)="Answer must be 1-40 characters in length."
^DD(165.5,101,21,0)="^.001^4^4^3001012^^^"
^DD(165.5,101,21,1,0)=""
^DD(165.5,101,21,2,0)="Text area for description of histologic type, behavior, and grade in"
^DD(165.5,101,21,3,0)="natural language."
^DD(165.5,101,21,4,0)=""
^DD(165.5,101,"DT")="3001012"
^DD(165.5,102,0)="DRE +/-^S^0:Negative;1:Positive;9:Not done/not recorded in chart;^24;10^Q"
^DD(165.5,102,21,0)="^^2^2^3060901^"
^DD(165.5,102,21,1,0)=" "
^DD(165.5,102,21,2,0)="Records the findings of a DRE (Digital Rectal Examination."
^DD(165.5,102,"DT")="3060901"
^DD(165.5,103,0)="TEXT-DX PROC-OP^165.5103A^^9;0"
^DD(165.5,103,21,0)="^^1^1^2920523^"
^DD(165.5,103,21,1,0)="Free text field."
^DD(165.5,104,0)="TEXT-DX PROC-PE^165.5104A^^10;0"
^DD(165.5,104,21,0)="^.001^3^3^3001012^^^^"
^DD(165.5,104,21,1,0)=""
^DD(165.5,104,21,2,0)="Text area for information from history and physical examinations."
^DD(165.5,104,21,3,0)=""
^DD(165.5,105,0)="TEXT-DX PROC-X-RAY/SCAN^165.5105A^^11;0"
^DD(165.5,105,21,0)="^^1^1^2920523^"
^DD(165.5,105,21,1,0)="Free text field."
^DD(165.5,106,0)="TEXT-DX PROC-SCOPES^165.5106A^^12;0"
^DD(165.5,106,21,0)="^^1^1^2920523^"
^DD(165.5,106,21,1,0)="Free text field."
^DD(165.5,107,0)="TEXT-DX PROC-PATH^165.5107A^^13;0"
^DD(165.5,107,21,0)="^^1^1^2920523^"
^DD(165.5,107,21,1,0)="Free text field."
^DD(165.5,108,0)="RX TEXT-SURGERY^165.5108A^^14;0"
^DD(165.5,108,21,0)="^.001^1^1^3001013^^"
^DD(165.5,108,21,1,0)="Free text field."
^DD(165.5,108,"DT")="3001013"
^DD(165.5,109,0)="RX TEXT-RADIATION^165.5109A^^15;0"
^DD(165.5,109,21,0)="^.001^1^1^3030604^^^"
^DD(165.5,109,21,1,0)="Free text field."
^DD(165.5,109,"DT")="3030604"
^DD(165.5,110,0)="RX TEXT-RADIATION OTHER^165.53A^^16;0"
^DD(165.5,110,21,0)="^.001^1^1^3001013^^"
^DD(165.5,110,21,1,0)="Free text field."
^DD(165.5,110,"DT")="3001013"
^DD(165.5,111,0)="RX TEXT-CHEMO^165.5111A^^17;0"
^DD(165.5,111,21,0)="^.001^1^1^3001013^^"
^DD(165.5,111,21,1,0)="Free text field."
^DD(165.5,111,"DT")="3001013"
^DD(165.5,112,0)="RX TEXT-HORMONE^165.5112A^^18;0"
^DD(165.5,112,21,0)="^.001^1^1^3001013^^"
^DD(165.5,112,21,1,0)="Free text field."
^DD(165.5,112,"DT")="3001013"
^DD(165.5,113,0)="TEXT-REMARKS^165.5113A^^19;0"
^DD(165.5,113,21,0)="^^1^1^2930930^^"
^DD(165.5,113,21,1,0)="Free text field."
^DD(165.5,113,"DT")="2900518"
^DD(165.5,114,0)="RX TEXT-BRM^165.5114A^^20;0"
^DD(165.5,114,21,0)="^.001^1^1^3001013^^^^"
^DD(165.5,114,21,1,0)="Free text field."
^DD(165.5,114,"DT")="3001013"
^DD(165.5,115,0)="RX TEXT-OTHER^165.5115A^^21;0"
^DD(165.5,115,21,0)="^.001^1^1^3001013^^^^"
^DD(165.5,115,21,1,0)="Free text field."
^DD(165.5,115,"DT")="3001013"
^DD(165.5,116,0)="TEXT-DX PROC-LAB TESTS^165.5116A^^22;0"
^DD(165.5,116,21,0)="^.001^4^4^3001013^^^"
^DD(165.5,116,21,1,0)=""
^DD(165.5,116,21,2,0)="Text area for information from laboratory examinations other than cytology"
^DD(165.5,116,21,3,0)="and histopatholgy."
^DD(165.5,116,21,4,0)=""
^DD(165.5,116,"DT")="3001013"
^DD(165.5,117,0)="OTHER STAGE GROUP^FXO^^2.1;9^K:$L(X)>14!($L(X)<1) X S ONCOX=""S"",STGIND=""O"" D IN^ONCOTNS I $D(X) D INNUM^ONCOTNS"
^DD(165.5,117,2)="S Y(0)=Y S X="""" D OT^ONCOTNS"
^DD(165.5,117,2.1)="S X="""" D OT^ONCOTNS"
^DD(165.5,117,3)="Answer with the appropriate stage from the AJCC Staging Manual."
^DD(165.5,117,4)="S ONCOX=""S"",STGIND=""O"" D HP^ONCOTNS"
^DD(165.5,117,21,0)="^^11^11^2971124^^^^"
^DD(165.5,117,21,1,0)="Record the apparent extent of disease in accordance with AJCC staging"
^DD(165.5,117,21,2,0)="requirements."
^DD(165.5,117,21,3,0)=""
^DD(165.5,117,21,4,0)="Stage codes:"
^DD(165.5,117,21,5,0)=""
^DD(165.5,117,21,6,0)="0        IB        III       IVB"
^DD(165.5,117,21,7,0)="0A       IC        IIIA      IVC"
^DD(165.5,117,21,8,0)="Occult   II        IIIB      Not applicable"
^DD(165.5,117,21,9,0)="0is      IIA       IIIC      Unknown"
^DD(165.5,117,21,10,0)="I        IIB       IV"
^DD(165.5,117,21,11,0)="IA       IIC       IVA"
^DD(165.5,117,"DT")="2971124"
^DD(165.5,118,0)="STAGED BY (OTHER STAGE)^S^0:Not staged;1:Managing physician;2:Pathologist;3:Other physician;4:Any combination of 1, 2, or 3;5:Registrar;6:Any combination of 5 with 1, 2, or 3;7:Other;8:Staged, individual not specified;9:Unk if staged;^2.1;10^Q"
^DD(165.5,118,21,0)="^^4^4^2990419^^"
^DD(165.5,118,21,1,0)="""Staged By (Other Stage)"" identifies the person who documented the other"
^DD(165.5,118,21,2,0)="AJCC staging elements and the stage group.  The Commission requires"
^DD(165.5,118,21,3,0)="analytic cases to be staged by the managing physician.  Compliance with"
^DD(165.5,118,21,4,0)="Commission-approved program requirements can be analyzed using this data."
^DD(165.5,118,"DT")="2990419"
^DD(165.5,119,0)="SCREENING RESULT^S^0:Within normal limits;1:Abnormal/not suggestive of cancer;2:Abnormal/suggestive of cancer;3:Equivocal/no followup necessary;4:Equivocal/evaluation recommended;8:NA;9:Unknown result, not specified;^0;25^Q"
^DD(165.5,119,21,0)="^^3^3^2970716^^"
^DD(165.5,119,21,1,0)="This item categorizes findings from the most recent screening(s), serves"
^DD(165.5,119,21,2,0)="as a triage for patient notification, and acts as a tickler file to aid"
^DD(165.5,119,21,3,0)="the institution in meeting patient notification requirements."
^DD(165.5,119,"DT")="2970716"
^DD(165.5,120,0)="PRESENTATION AT CANCER CONF^S^0:Not presented;1:Prospective (diagnostic);2:Prospective (treatment);3:Prospective (follow-up);4:Prospective (combinations);5:Prospective, NOS;6:Retrospective;7:Follow-up;8:Presentation, NOS;9:Unknown;^0;26^Q"
^DD(165.5,120,21,0)="^^4^4^2961112^^^^"
^DD(165.5,120,21,1,0)="This item documents case presentation at a cancer conference and the type"
^DD(165.5,120,21,2,0)="or format of presentation.  The number of cancer conferences, sites"
^DD(165.5,120,21,3,0)="presented, and types of presentation can be analyzed and reported for"
^DD(165.5,120,21,4,0)="administrative use, quality control, and survey preperation."
^DD(165.5,120,"DT")="2961112"
^DD(165.5,121,0)="DATE OF CANCER CONF^DOX^^0;27^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) W:'$D(X) !,""Future dates are not allowed"""
^DD(165.5,121,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,121,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,121,3)="Enter the Date of Cancer Conference"
^DD(165.5,121,21,0)="^.001^7^7^3010130^^^"
^DD(165.5,121,21,1,0)=""
^DD(165.5,121,21,2,0)="Enter the date on which the case was first presented at a cancer"
^DD(165.5,121,21,3,0)="conference.  The number of cancer conferences, sites presented,"
^DD(165.5,121,21,4,0)="types of presentations, and dates can be analyzed and reported for"
^DD(165.5,121,21,5,0)="administration, quality control, and Commission on Cancer survey"
^DD(165.5,121,21,6,0)="preparation.  Update this item if a patient is presented at a"
^DD(165.5,121,21,7,0)="subsequent cancer conference."
^DD(165.5,121,"DT")="3010130"
^DD(165.5,122,0)="REFERRAL TO SUPPORT SERVICES^S^0:No;1:Yes;9:Unknown;^0;28^Q"
^DD(165.5,122,21,0)="^^20^20^2961202^^^"
^DD(165.5,122,21,1,0)="Record if the patient was referred to any of the following services."
^DD(165.5,122,21,2,0)="   "
^DD(165.5,122,21,3,0)="   Enterostomal/stomal therapy"
^DD(165.5,122,21,4,0)="   Home care"
^DD(165.5,122,21,5,0)="   Hospice"
^DD(165.5,122,21,6,0)="   Infusion/parenteral therapy"
^DD(165.5,122,21,7,0)="   Nutritionist"
^DD(165.5,122,21,8,0)="   Occupational therapy"
^DD(165.5,122,21,9,0)="   Other"
^DD(165.5,122,21,10,0)="   Patient services (American Cancer Society)"
^DD(165.5,122,21,11,0)="   Patient services (other)"
^DD(165.5,122,21,12,0)="   Patient support group (American Cancer Society)"
^DD(165.5,122,21,13,0)="   Patient support group (hospital operated)"
^DD(165.5,122,21,14,0)="   Patient support group (other organization/agency)"
^DD(165.5,122,21,15,0)="   Physical therapy"
^DD(165.5,122,21,16,0)="   Referral; service unspecified"
^DD(165.5,122,21,17,0)="   Rehabilitation facility"
^DD(165.5,122,21,18,0)="   Respiratory therapy"
^DD(165.5,122,21,19,0)="   Speech therapy"
^DD(165.5,122,21,20,0)="   Visiting nurse assistance"
^DD(165.5,122,"DT")="2961112"
^DD(165.5,123,0)="INPATIENT/OUTPATIENT STATUS^S^1:Inpatient only;2:Outpatient only;3:In and outpatient;8:Other, including physician's office;9:Unknown;^0;23^Q"
^DD(165.5,123,21,0)="^^2^2^2961220^"
^DD(165.5,123,21,1,0)="""Inpatient/Outpatient Status"" allows the facility to identify points of"
^DD(165.5,123,21,2,0)="access used to initially diagnose and/or treat the patient."
^DD(165.5,123,"DT")="2961220"
^DD(165.5,124,0)="DATE OF NO TREATMENT^DXO^^2.1;11^D NTIT^ONCODSR"
^DD(165.5,124,1,0)="^.1"
^DD(165.5,124,1,1,0)="165.5^ATN^MUMPS"
^DD(165.5,124,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""N"")="""""
^DD(165.5,124,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""N"")"
^DD(165.5,124,1,1,"%D",0)="^^1^1^2970801^"
^DD(165.5,124,1,1,"%D",1,0)="Records NO TREATMENT DECISION DATE on the unified treatment index."
^DD(165.5,124,1,1,"DT")="2970801"
^DD(165.5,124,1,2,0)="165.5^AK^MUMPS"
^DD(165.5,124,1,2,1)="Q"
^DD(165.5,124,1,2,2)="S NTDEL="""" D DEL^ONCDTX"
^DD(165.5,124,1,2,"DT")="2970912"
^DD(165.5,124,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,124,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,124,3)="*** DATE OF NO TREATMENT MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,124,21,0)="^^8^8^2990218^^^^"
^DD(165.5,124,21,1,0)=""
^DD(165.5,124,21,2,0)="If, for any reason, the patient is not treated, record the date"
^DD(165.5,124,21,3,0)="of this decision as the DATE OF NO TREATMENT.  The physician may"
^DD(165.5,124,21,4,0)="decide not to treat the patient because of comorbid conditions,"
^DD(165.5,124,21,5,0)="advanced disease, or because the accepted management of the cancer"
^DD(165.5,124,21,6,0)="is to observe until the disease progresses or until the patient"
^DD(165.5,124,21,7,0)="becomes symptomatic.  The patient may also refuse treatment."
^DD(165.5,124,21,8,0)=""
^DD(165.5,124,"DT")="2971028"
^DD(165.5,125,0)="RADIATION TREATMENT VOLUME^P164.7'OX^ONCO(164.7,^3;21^S V=1 D NT^ONCODSR"
^DD(165.5,125,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(164.7,Y,0),""^"",2)"
^DD(165.5,125,2.1)="S:Y'="""" Y=$P(^ONCO(164.7,Y,0),""^"",2)"
^DD(165.5,125,21,0)="^.001^6^6^3030109^^^^"
^DD(165.5,125,21,1,0)=""
^DD(165.5,125,21,2,0)="Identifies the volume or anatomic target of the most clinically"
^DD(165.5,125,21,3,0)="significant regional radiation therapy delivered to the patient"
^DD(165.5,125,21,4,0)="during the first course of treatment."
^DD(165.5,125,21,5,0)=""
^DD(165.5,125,21,6,0)="For further information see FORDS pages 151-154."
^DD(165.5,125,"DT")="2970902"
^DD(165.5,126,0)="LOCATION OF RADIATION TX^SX^0:No radiation tx;1:All radiation tx at this fac;2:Regional tx at this fac, boost elsewhere;3:Boost at this fac, regional elsewhere;4:All radiation tx elsewhere;8:Other;9:Unknown;^3;22^S V=0 D NT^ONCODSR"
^DD(165.5,126,21,0)="^.001^5^5^3030109^^^^"
^DD(165.5,126,21,1,0)=""
^DD(165.5,126,21,2,0)="Identifies the location of the facility where radiation therapy was"
^DD(165.5,126,21,3,0)="administered during the first course of treatment."
^DD(165.5,126,21,4,0)=""
^DD(165.5,126,21,5,0)="For further information see FORDS page 150."
^DD(165.5,126,"DT")="3030109"
^DD(165.5,127,0)="INTENT OF RADIATION^SX^0:No radiation;1:Curative (primary);2:Curative (adjuvant);4:Palliative (pain control);5:Palliative (other, cosmetic);6:Prophylacitc (no symptoms, preventive);8:Other, NOS;9:Unknown;^3;29^S V=0 D NT^ONCODSR"
^DD(165.5,127,21,0)="^^10^10^2970918^^"
^DD(165.5,127,21,1,0)=""
^DD(165.5,127,21,2,0)="Code the intent of radiation treatment."
^DD(165.5,127,21,3,0)=""
^DD(165.5,127,21,4,0)="This item is useful in assessing the appropriateness of treatment and"
^DD(165.5,127,21,5,0)="correlating outcome with original intent of the treatment.  The choice"
^DD(165.5,127,21,6,0)="in this data field is subjective."
^DD(165.5,127,21,7,0)=""
^DD(165.5,127,21,8,0)="The responsible radiation oncologist is the best person to provide this"
^DD(165.5,127,21,9,0)="information."
^DD(165.5,127,21,10,0)=""
^DD(165.5,127,"DT")="2970918"
^DD(165.5,128,0)="RADIATION COMPLETION STATUS^P164.8'XO^ONCO(164.8,^3;39^S V=1 D NT^ONCODSR"
^DD(165.5,128,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(164.8,Y,0),U,2)"
^DD(165.5,128,2.1)="S:Y'="""" Y=$P(^ONCO(164.8,Y,0),U,2)"
^DD(165.5,128,21,0)="^^7^7^2971119^^"
^DD(165.5,128,21,1,0)=""
^DD(165.5,128,21,2,0)="RADIATION COMPLETION STATUS is useful in evaluating treatment outcomes"
^DD(165.5,128,21,3,0)="and the appropriateness of the initial decision to treat."
^DD(165.5,128,21,4,0)=""
^DD(165.5,128,21,5,0)="This field indicates whether the patient's radiation therapy was"
^DD(165.5,128,21,6,0)="completed as outlined in the initial treatment plan.  This information"
^DD(165.5,128,21,7,0)="is generally available only in the radiation treatment chart."
^DD(165.5,128,"DT")="2980603"
^DD(165.5,129,0)="RADIATION AUXILIARY VOLUME^P164.7'XO^ONCO(164.7,^3.1;1^S V=1 D NT^ONCODSR"
^DD(165.5,129,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(164.7,Y,0),""^"",2)"
^DD(165.5,129,2.1)="S:Y'="""" Y=$P(^ONCO(164.7,Y,0),""^"",2)"
^DD(165.5,129,"DT")="2980929"
^DD(165.5,130,0)="RADIATION AUXILIARY DATE^DXO^^3.1;2^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,130,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,130,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,130,"DT")="2980311"
^DD(165.5,131,0)="RADIATION AUXILIARY TEXT^165.5131^^15.1;0"
^DD(165.5,132,0)="RADIATION LOCAL CONTROL STATUS^SX^0:No radiation;1:Tumor control status not evaluable;2:Tumor/symptoms controlled;3:Tumor/symptoms returned;4:Tumor/symptoms never controlled;8:Other, NOS;9:Unknown;^3.1;3^S V=0 D NT^ONCODSR"
^DD(165.5,132,21,0)="^^7^7^2971119^^"
^DD(165.5,132,21,1,0)=""
^DD(165.5,132,21,2,0)="RADIATION LOCAL CONTROL STATUS records the radiation treatment results"
^DD(165.5,132,21,3,0)="in terms of disease control within the irradiated volume.  The data"
^DD(165.5,132,21,4,0)="may be used in quality assurance studies to assess the effectiveness"
^DD(165.5,132,21,5,0)="of treatment.  This is a dynamic data item.  To be clinically useful,"
^DD(165.5,132,21,6,0)="this data must be evaluated at each follow-up."
^DD(165.5,132,21,7,0)=""
^DD(165.5,132,"DT")="2971003"
^DD(165.5,133,0)="YEAR PUT ON PROTOCOL^F^^3.1;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(165.5,133,3)="Answer must be a 4-digit year."
^DD(165.5,133,21,0)="^^3^3^2980318^"
^DD(165.5,133,21,1,0)=""
^DD(165.5,133,21,2,0)="Record the year in which the patient was entered into a protocol."
^DD(165.5,133,21,3,0)=""
^DD(165.5,133,"DT")="2980318"
^DD(165.5,134,0)="CLINICAL RISK FACTORS^*S^0:None;1:hCG > 100,000 IU/24-hour urine;2:Detection > 6 mo from term of pregnancy;3:Both;U:Unknown;L:Low risk;H:High risk;^2.1;12^Q"
^DD(165.5,134,12)="Risk factors"
^DD(165.5,134,12.1)="S DIC(""S"")=""S ONCOED=$$TNMED^ONCOU55(D0) I ((ONCOED<6)&(Y?1N))!((ONCOED=6)&(Y?1A))"""
^DD(165.5,134,21,0)="^.001^7^7^3020808^^^^"
^DD(165.5,134,21,1,0)=""
^DD(165.5,134,21,2,0)="For Gestational Trophoblastic Tumors FIGO added nonsurgical-pathologic"
^DD(165.5,134,21,3,0)="prognostic risk factors to the classic anatomic staging system.  These"
^DD(165.5,134,21,4,0)="include B-hCG levels of greater than 100,000 and the detection of disease"
^DD(165.5,134,21,5,0)="more than 6 months from termination of the antecedent pregnancy.  These"
^DD(165.5,134,21,6,0)="risk factors affect staging."
^DD(165.5,134,21,7,0)=""
^DD(165.5,134,"DT")="3020808"
^DD(165.5,135,0)="PATHOLOGIC RISK FACTORS^*S^0:None;1:hCG > 100,000 IU/24-hour urine;2:Detection > 6 mo from term of pregnancy;3:Both;U:Unknown;L:Low risk;H:High risk;^2.1;13^Q"
^DD(165.5,135,12)="Risk factors"
^DD(165.5,135,12.1)="S DIC(""S"")=""S ONCOED=$$TNMED^ONCOU55(D0) I ((ONCOED<6)&(Y?1N))!((ONCOED=6)&(Y?1A))"""
^DD(165.5,135,21,0)="^.001^7^7^3020808^^^^"
^DD(165.5,135,21,1,0)=""
^DD(165.5,135,21,2,0)="For Gestational Trophoblastic Tumors FIGO added nonsurgical-pathologic"
^DD(165.5,135,21,3,0)="prognostic risk factors to the classic anatomic staging system.  These"
^DD(165.5,135,21,4,0)="include B-hCG levels of greater than 100,000 and the detection of disease"
^DD(165.5,135,21,5,0)="more than 6 months from termination of the antecedent pregnancy.  These"
^DD(165.5,135,21,6,0)="risk factors affect staging."
^DD(165.5,135,21,7,0)=""
^DD(165.5,135,"DT")="3020808"
^DD(165.5,136,0)="SERUM TUMOR MARKERS^SO^SX:Not available;S0:Normal;S1:LDH < 1.5XN, hCG < 5000 mIU/ml, AFP < 1000 ng/ml;S2:LDH 1.5-10XN or hCG 5000-50,000 mIu/ml or AFP 1000-10,000 ng/ml;S3:LDH > 10XN or hCG > 50,000 mIu/ml or AFP > 10,000 ng/ml;^24;8^Q"
^DD(165.5,136,2)="S Y(0)=Y S FILNUM=165.5,FLDNUM=136 D SOC^ONCOOT"
^DD(165.5,136,2.1)="S FILNUM=165.5,FLDNUM=136 D SOC^ONCOOT"
^DD(165.5,136,21,0)="^^16^16^2980128^^^^"
^DD(165.5,136,21,1,0)="Serum Tumor Markers (S)"
^DD(165.5,136,21,2,0)=""
^DD(165.5,136,21,3,0)="SX  Marker studies not available or not performed"
^DD(165.5,136,21,4,0)="S0  Marker study levels within normal limits*"
^DD(165.5,136,21,5,0)="S1  LDH          < 1.5 X N   AND"
^DD(165.5,136,21,6,0)="    hCG (mIU/ml) < 5000      AND"
^DD(165.5,136,21,7,0)="    AFP (ng/ml)  < 1000"
^DD(165.5,136,21,8,0)="S2  LDH          1.5-10 X N  OR"
^DD(165.5,136,21,9,0)="    hCG (mIu/ml) 5000-50,000 OR"
^DD(165.5,136,21,10,0)="    AFP (ng/ml)  1000-10,000"
^DD(165.5,136,21,11,0)="S3  LDH          > 10 X N    OR"
^DD(165.5,136,21,12,0)="    hCG (mIu/ml) > 50,000    OR"
^DD(165.5,136,21,13,0)="    AFP (ng/ml)  > 10,000"
^DD(165.5,136,21,14,0)=""
^DD(165.5,136,21,15,0)="N indicates the upper limit of normal for the LDH assay."
^DD(165.5,136,21,16,0)="* Check with your laboratory for normal limits values."
^DD(165.5,136,"DT")="2980129"
^DD(165.5,137,0)="DATE OF 1ST POSITIVE BIOPSY^DXO^^2.2;1^D DFIT^ONCODSR"
^DD(165.5,137,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,137,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,137,21,0)="^^7^7^2980204^^^^"
^DD(165.5,137,21,1,0)=""
^DD(165.5,137,21,2,0)="Record the date of the first positive incisional or excisional biopsy."
^DD(165.5,137,21,3,0)="The biopsy may be taken from the primary or a secondary site.  This"
^DD(165.5,137,21,4,0)="data item refers to a tissue biopsy/positive histology only.  The first"
^DD(165.5,137,21,5,0)="positive biopsy may be at any time during the disease course.  It may be"
^DD(165.5,137,21,6,0)="non cancer-directed or cancer-directed surgery."
^DD(165.5,137,21,7,0)=""
^DD(165.5,137,"DT")="2980204"
^DD(165.5,138,0)="SCOPE OF LN SURGERY (R)^NJ1,0XO^^3;40^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S FIELD=138,NTXDD=1 D SCIT^ONCOSUR1"
^DD(165.5,138,1,0)="^.1^^0"
^DD(165.5,138,1,1,0)="165.5^ASC^MUMPS"
^DD(165.5,138,1,1,1)="Q"
^DD(165.5,138,1,1,2)="D SCOPE^ONCDTX"
^DD(165.5,138,1,1,"DT")="2981009"
^DD(165.5,138,2)="S Y(0)=Y S FIELD=138 D SCOT^ONCOSUR1 K FIELD"
^DD(165.5,138,2.1)="S FIELD=138 D SCOT^ONCOSUR1 K FIELD"
^DD(165.5,138,3)=""
^DD(165.5,138,4)="S FIELD=138 D SCHP^ONCOSUR1 K FIELD"
^DD(165.5,138,21,0)="^.001^4^4^3030319^^^^"
^DD(165.5,138,21,1,0)=""
^DD(165.5,138,21,2,0)="Record the scope of regional lymph node surgery."
^DD(165.5,138,21,3,0)=""
^DD(165.5,138,21,4,0)="For further information see ROADS page 192."
^DD(165.5,138,"DT")="3030327"
^DD(165.5,138.1,0)="SCOPE OF LN SURGERY @FAC (R)^FOX^^3.1;9^S SCPFLG=0 D SCPDFIT^ONCTXSM K:$L(X)>1!($L(X)<1)!'(X?1N) X I $D(X),SCPFLG=0 S FIELD=138.1,NTXDD=1 D SCIT^ONCOSUR1"
^DD(165.5,138.1,1,0)="^.1^^0"
^DD(165.5,138.1,1,1,0)="165.5^ASCF^MUMPS"
^DD(165.5,138.1,1,1,1)="Q"
^DD(165.5,138.1,1,1,2)="D SCPATF^ONCDTX1"
^DD(165.5,138.1,1,1,"%D",0)="^^2^2^2981029^"
^DD(165.5,138.1,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,138.1,1,1,"%D",2,0)="the associated field values."
^DD(165.5,138.1,1,1,"DT")="2981009"
^DD(165.5,138.1,2)="S Y(0)=Y S FIELD=138.1 D SCOT^ONCOSUR1 K FIELD"
^DD(165.5,138.1,2.1)="S FIELD=138.1 D SCOT^ONCOSUR1 K FIELD"
^DD(165.5,138.1,3)=""
^DD(165.5,138.1,4)="S FIELD=138.1 D SCHP^ONCOSUR1 K FIELD"
^DD(165.5,138.1,21,0)="^.001^4^4^3030319^^^^"
^DD(165.5,138.1,21,1,0)=""
^DD(165.5,138.1,21,2,0)="Record the scope of regional lymph node surgery done AT THIS FACILITY."
^DD(165.5,138.1,21,3,0)=""
^DD(165.5,138.1,21,4,0)="For further information see ROADS page 190."
^DD(165.5,138.1,"DT")="3070403"
^DD(165.5,138.2,0)="SCOPE OF LN SURGERY DATE^DXO^^3.1;22^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,138.2,1,0)="^.1"
^DD(165.5,138.2,1,1,0)="165.5^ATSC^MUMPS"
^DD(165.5,138.2,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""S2"")="""""
^DD(165.5,138.2,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""S2"")"
^DD(165.5,138.2,1,1,"%D",0)="^.101^2^2^3041105^^^^"
^DD(165.5,138.2,1,1,"%D",1,0)="Records the scope of regional lymph node surgery date on the unified treatment"
^DD(165.5,138.2,1,1,"%D",2,0)="index."
^DD(165.5,138.2,1,1,"DT")="3041105"
^DD(165.5,138.2,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,138.2,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,138.2,3)="*** SCOPE OF LN SURGERY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,138.2,21,0)="^.001^2^2^3030319^^^^"
^DD(165.5,138.2,21,1,0)=""
^DD(165.5,138.2,21,2,0)="Record the date that SCOPE OF LN SURGERY was performed."
^DD(165.5,138.2,"DT")="3041105"
^DD(165.5,138.3,0)="SCOPE OF LN SURGERY @FAC DATE^DXO^^3.1;23^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,138.3,1,0)="^.1^^0"
^DD(165.5,138.3,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,138.3,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,138.3,3)="*** SCOPE OF LN SURGERY @FAC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,138.3,21,0)="^.001^2^2^3030319^^^^"
^DD(165.5,138.3,21,1,0)=""
^DD(165.5,138.3,21,2,0)="Record the date that SCOPE OF LN SURGERY @FAC was performed."
^DD(165.5,138.3,"DT")="3030319"
^DD(165.5,138.4,0)="SCOPE OF LN SURGERY (F)^S^0:None;1:Bx/aspiration, NOS;2:Sentinel Bx;3:Nodes removed, num unk;4:1-3 nodes removed;5:4 or more nodes removed;6:Sentinel + 3, 4 or 5, timing not stated;7:Sentinel + 3, 4, or 5, diff times;9:Unknown/NA;^3.1;31^Q"
^DD(165.5,138.4,1,0)="^.1"
^DD(165.5,138.4,1,1,0)="165.5^ASC^MUMPS"
^DD(165.5,138.4,1,1,1)="Q"
^DD(165.5,138.4,1,1,2)="D SCOPE^ONCDTX"
^DD(165.5,138.4,1,1,"%D",0)="^^2^2^3030121^"
^DD(165.5,138.4,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,138.4,1,1,"%D",2,0)="the associated field values."
^DD(165.5,138.4,1,1,"DT")="3030121"
^DD(165.5,138.4,21,0)="^.001^6^6^3030319^^^^"
^DD(165.5,138.4,21,1,0)=""
^DD(165.5,138.4,21,2,0)="Identifies the removal, biopsy, or aspiration of regional"
^DD(165.5,138.4,21,3,0)="lymph node(s) at the time of surgery of the primary site"
^DD(165.5,138.4,21,4,0)="or during a separate surgical event."
^DD(165.5,138.4,21,5,0)=""
^DD(165.5,138.4,21,6,0)="For further information see FORDS pages 138-139."
^DD(165.5,138.4,"DT")="3030319"
^DD(165.5,138.5,0)="SCOPE OF LN SURGERY @FAC (F)^S^0:None;1:Bx/aspiration, NOS;2:Sentinel Bx;3:Nodes removed, num unk;4:1-3 nodes removed;5:4 or more nodes removed;6:Sentinel + 3, 4 or 5, timing not stated;7:Sentinel + 3, 4, or 5, diff times;9:Unknown/NA;^3.1;32^Q"
^DD(165.5,138.5,1,0)="^.1"
^DD(165.5,138.5,1,1,0)="165.5^ASCF^MUMPS"
^DD(165.5,138.5,1,1,1)="Q"
^DD(165.5,138.5,1,1,2)="D SCPATF^ONCDTX1"
^DD(165.5,138.5,1,1,"%D",0)="^^2^2^3030121^"
^DD(165.5,138.5,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,138.5,1,1,"%D",2,0)="the associated field values."
^DD(165.5,138.5,1,1,"DT")="3030121"
^DD(165.5,138.5,21,0)="^.001^6^6^3030319^^^^"
^DD(165.5,138.5,21,1,0)=""
^DD(165.5,138.5,21,2,0)="Identifies the removal, biopsy, or aspiration of regional"
^DD(165.5,138.5,21,3,0)="lymph node(s) at the time of surgery of the primary site"
^DD(165.5,138.5,21,4,0)="or during a separate surgical event at this facility."
^DD(165.5,138.5,21,5,0)=""
^DD(165.5,138.5,21,6,0)="For further information see FORDS pages 140-141."
^DD(165.5,138.5,"DT")="3030319"
^DD(165.5,139,0)="SURG PROC/OTHER SITE (R)^NJ1,0XO^^3;41^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S FIELD=139,NTXDD=1 D SOIT^ONCOSUR1"
^DD(165.5,139,1,0)="^.1"
^DD(165.5,139,1,1,0)="165.5^ASO^MUMPS"
^DD(165.5,139,1,1,1)="Q"
^DD(165.5,139,1,1,2)="D SOSNR^ONCDTX"
^DD(165.5,139,1,1,"DT")="3030401"
^DD(165.5,139,2)="S Y(0)=Y S FIELD=139 D SOOT^ONCOSUR1 K FIELD"
^DD(165.5,139,2.1)="S FIELD=139 D SOOT^ONCOSUR1 K FIELD"
^DD(165.5,139,3)=""
^DD(165.5,139,4)="S FIELD=139 D SOHP^ONCOSUR1 K FIELD"
^DD(165.5,139,21,0)="^.001^5^5^3030319^^^^"
^DD(165.5,139,21,1,0)=""
^DD(165.5,139,21,2,0)="Enter the code for surgery of other regional site(s), distant site(s)"
^DD(165.5,139,21,3,0)="or distant lymph node(s)."
^DD(165.5,139,21,4,0)=""
^DD(165.5,139,21,5,0)="For further information see ROADS page 194."
^DD(165.5,139,"DT")="3030401"
^DD(165.5,139.1,0)="SURG PROC/OTHER SITE @FAC (R)^FOX^^3.1;10^S SOSFLG=0 D SOSDFIT^ONCTXSM K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X),SOSFLG=0 S FIELD=139.1,NTXDD=1 D SOIT^ONCOSUR1"
^DD(165.5,139.1,1,0)="^.1^^0"
^DD(165.5,139.1,1,1,0)="165.5^ASOF^MUMPS"
^DD(165.5,139.1,1,1,1)="Q"
^DD(165.5,139.1,1,1,2)="D SOSNATF^ONCDTX1"
^DD(165.5,139.1,1,1,"%D",0)="^^2^2^2981029^"
^DD(165.5,139.1,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,139.1,1,1,"%D",2,0)="the associated field values."
^DD(165.5,139.1,1,1,"DT")="2981009"
^DD(165.5,139.1,2)="S Y(0)=Y S FIELD=139.1 D SOOT^ONCOSUR1 K FIELD"
^DD(165.5,139.1,2.1)="S FIELD=139.1 D SOOT^ONCOSUR1 K FIELD"
^DD(165.5,139.1,3)=""
^DD(165.5,139.1,4)="S FIELD=139.1 D SOHP^ONCOSUR1 K FIELD"
^DD(165.5,139.1,21,0)="^.001^5^5^3030319^^^^"
^DD(165.5,139.1,21,1,0)=""
^DD(165.5,139.1,21,2,0)="Enter the code for surgery of other regional site(s), distant site(s)"
^DD(165.5,139.1,21,3,0)="or distant lymph node(s) performed AT THIS FACILITY."
^DD(165.5,139.1,21,4,0)=""
^DD(165.5,139.1,21,5,0)="For further information see ROADS page 190."
^DD(165.5,139.1,"DT")="3030327"
^DD(165.5,139.2,0)="SURG PROC/OTHER SITE DATE^DXO^^3.1;24^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,139.2,1,0)="^.1"
^DD(165.5,139.2,1,1,0)="165.5^ATSO^MUMPS"
^DD(165.5,139.2,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""S3"")="""""
^DD(165.5,139.2,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""S3"")"
^DD(165.5,139.2,1,1,"%D",0)="^.101^1^1^3041105^^^"
^DD(165.5,139.2,1,1,"%D",1,0)="Records the surgery of other sites/nodes date on the unified treatment index."
^DD(165.5,139.2,1,1,"DT")="3041105"
^DD(165.5,139.2,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,139.2,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,139.2,3)="*** SURG PROC/OTHER SITE DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,139.2,21,0)="^.001^3^3^3030319^^^^"
^DD(165.5,139.2,21,1,0)=""
^DD(165.5,139.2,21,2,0)="Records the date of surgical removal of distant lymph nodes"
^DD(165.5,139.2,21,3,0)="or other tissue(s)/organ(s) beyond the primary site."
^DD(165.5,139.2,"DT")="3041105"
^DD(165.5,139.3,0)="SURG PROC/OTHER SITE @FAC DATE^DXO^^3.1;25^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,139.3,1,0)="^.1^^0"
^DD(165.5,139.3,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,139.3,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,139.3,3)="*** SURG PROC/OTHER SITE @FAC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,139.3,21,0)="^.001^2^2^3030319^^^^"
^DD(165.5,139.3,21,1,0)=""
^DD(165.5,139.3,21,2,0)="Record the date that SURG PROC/OTHER SITE @FAC was performed."
^DD(165.5,139.3,"DT")="3030107"
^DD(165.5,139.4,0)="SURG PROC/OTHER SITE (F)^S^0:None;1:Nonprimary surg proc performed;2:Nonprimary surg proc/other regional sites;3:Nonprimary surg proc/distant lymph node(s);4:Nonprimary surg proc/distant site;5:Combination of codes;9:Unknown;^3.1;33^Q"
^DD(165.5,139.4,1,0)="^.1"
^DD(165.5,139.4,1,1,0)="165.5^ASO^MUMPS"
^DD(165.5,139.4,1,1,1)="Q"
^DD(165.5,139.4,1,1,2)="D SOSN^ONCDTX"
^DD(165.5,139.4,1,1,"%D",0)="^^2^2^3030121^"
^DD(165.5,139.4,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,139.4,1,1,"%D",2,0)="the associated field values."
^DD(165.5,139.4,1,1,"DT")="3030121"
^DD(165.5,139.4,21,0)="^.001^5^5^3030319^^^"
^DD(165.5,139.4,21,1,0)=""
^DD(165.5,139.4,21,2,0)="Records the surgical removal of distant lymph nodes"
^DD(165.5,139.4,21,3,0)="or other issue(s)/organ(s) beyond the primary site."
^DD(165.5,139.4,21,4,0)=""
^DD(165.5,139.4,21,5,0)="For further information see FORDS page 142."
^DD(165.5,139.4,"DT")="3030319"
^DD(165.5,139.5,0)="SURG PROC/OTHER SITE @FAC (F)^S^0:None;1:Nonprimary surg proc performed;2:Nonprimary surg proc/other regional sites;3:Nonprimary surg proc/distant lymph node(s);4:Nonprimary surg proc/distant site;5:Combination of codes;9:Unknown;^3.1;34^Q"
^DD(165.5,139.5,1,0)="^.1"
^DD(165.5,139.5,1,1,0)="165.5^ASOF^MUMPS"
^DD(165.5,139.5,1,1,1)="Q"
^DD(165.5,139.5,1,1,2)="D SOSNATF^ONCDTX1"
^DD(165.5,139.5,1,1,"%D",0)="^.101^2^2^3030121^^^"
^DD(165.5,139.5,1,1,"%D",1,0)="When the value of this field is deleted, the KILL logic will delete all of"
^DD(165.5,139.5,1,1,"%D",2,0)="the associated field values."
^DD(165.5,139.5,1,1,"DT")="3030121"
^DD(165.5,139.5,21,0)="^.001^5^5^3030324^^^^"
^DD(165.5,139.5,21,1,0)=""
^DD(165.5,139.5,21,2,0)="Records the surgical removal of distant lymph nodes or other"
^DD(165.5,139.5,21,3,0)="tissue(s)/organ(s) beyond the primary site at this facility."
^DD(165.5,139.5,21,4,0)=""
^DD(165.5,139.5,21,5,0)="For further information see FORDS page 143."
^DD(165.5,139.5,"DT")="3030319"
^DD(165.5,140,0)="NUMBER OF LN REMOVED (R)^N,0OX^^3;42^K:X'?1.2N X I $D(X) S NTXDD=1 S X=+X K:X>99!(X<0) X I $D(X) D NRIT^ONCOSUR1"
^DD(165.5,140,2)="S Y(0)=Y D NROT^ONCOSUR1"
^DD(165.5,140,2.1)="D NROT^ONCOSUR1"
^DD(165.5,140,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,140,4)=""
^DD(165.5,140,21,0)="^.001^18^18^3030319^^^^"
^DD(165.5,140,21,1,0)=""
^DD(165.5,140,21,2,0)="Record the number of regional lymph nodes that were microscopically"
^DD(165.5,140,21,3,0)="examined and identified in the pathology report FOR THIS SURGICAL"
^DD(165.5,140,21,4,0)="PROCEDURE ONLY.  DO NOT add numbers of nodes removed during different"
^DD(165.5,140,21,5,0)="surgical events."
^DD(165.5,140,21,6,0)=""
^DD(165.5,140,21,7,0)=" 00 for No nodes removed"
^DD(165.5,140,21,8,0)=" 01 for 1 node removed"
^DD(165.5,140,21,9,0)=" 02 for 2 nodes removed"
^DD(165.5,140,21,10,0)=" ..."
^DD(165.5,140,21,11,0)=" 90 for 90 or more nodes removed"
^DD(165.5,140,21,12,0)=" 95 for No nodes removed, aspiration performed"
^DD(165.5,140,21,13,0)=" 96 for Node removal as a sampling, number unknown"
^DD(165.5,140,21,14,0)=" 97 for Node removal as dissection, number unknown"
^DD(165.5,140,21,15,0)=" 98 for Nodes surgically removed, number unknown"
^DD(165.5,140,21,16,0)=" 99 for Unknown, not stated, death cert ONLY"
^DD(165.5,140,21,17,0)=""
^DD(165.5,140,21,18,0)="For further information see ROADS page 193."
^DD(165.5,140,"DT")="3030319"
^DD(165.5,140.1,0)="NUMBER OF LN REMOVED @FAC (R)^FOX^^3.1;11^D NUMDFIT^ONCTXSM K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S NTXDD=1 S X=+X K:X>99!(X<0) X I $D(X) D NRIT^ONCOSUR1"
^DD(165.5,140.1,2)="S Y(0)=Y D NROT^ONCOSUR1"
^DD(165.5,140.1,2.1)="D NROT^ONCOSUR1"
^DD(165.5,140.1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,140.1,4)=""
^DD(165.5,140.1,21,0)="^.001^18^18^3030319^^^^"
^DD(165.5,140.1,21,1,0)=""
^DD(165.5,140.1,21,2,0)="Record the number of regional lymph nodes that were microscopically"
^DD(165.5,140.1,21,3,0)="examined and identified at this facility in the pathology report FOR"
^DD(165.5,140.1,21,4,0)="THIS SURGICAL PROCEDURE ONLY.  DO NOT add numbers of nodes removed"
^DD(165.5,140.1,21,5,0)="during different surgical events."
^DD(165.5,140.1,21,6,0)=""
^DD(165.5,140.1,21,7,0)=" 00 for No nodes removed"
^DD(165.5,140.1,21,8,0)=" 01 for 1 node removed"
^DD(165.5,140.1,21,9,0)=" 02 for 2 nodes removed"
^DD(165.5,140.1,21,10,0)=" ..."
^DD(165.5,140.1,21,11,0)=" 90 for 90 or more nodes removed"
^DD(165.5,140.1,21,12,0)=" 95 for No nodes removed, aspiration performed"
^DD(165.5,140.1,21,13,0)=" 96 for Node removal as a sampling, number unknown"
^DD(165.5,140.1,21,14,0)=" 97 for Node removal as dissection, number unknown"
^DD(165.5,140.1,21,15,0)=" 98 for Nodes surgically removed, number unknown"
^DD(165.5,140.1,21,16,0)=" 99 for Unknown, not stated, death cert ONLY"
^DD(165.5,140.1,21,17,0)=""
^DD(165.5,140.1,21,18,0)="For further information see ROADS page 190."
^DD(165.5,140.1,"DT")="3030107"
^DD(165.5,141,0)="BIOPSY PROCEDURE^NJ1,0XO^^2.1;14^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D BP^ONCOIT"
^DD(165.5,141,2)="S Y(0)=Y D BP^ONCOOT"
^DD(165.5,141,2.1)="D BP^ONCOOT"
^DD(165.5,141,3)=""
^DD(165.5,141,4)="D BP^ONCOHELP"
^DD(165.5,141,21,0)="^.001^3^3^3010710^^^^"
^DD(165.5,141,21,1,0)=""
^DD(165.5,141,21,2,0)="Records the biopsy procedure if the primary site is breast or prostate."
^DD(165.5,141,21,3,0)=""
^DD(165.5,141,"DT")="3010710"
^DD(165.5,142,0)="GUIDANCE^NJ1,0XO^^2.1;15^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D GUIT^ONCOTNMX"
^DD(165.5,142,2)="S Y(0)=Y D GUOT^ONCOTNMX"
^DD(165.5,142,2.1)="D GUOT^ONCOTNMX"
^DD(165.5,142,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(165.5,142,4)="D GUHP^ONCOTNMX"
^DD(165.5,142,21,0)="^^1^1^2980209^^^^"
^DD(165.5,142,21,1,0)="Records the guidance if the primary site is breast or prostate."
^DD(165.5,142,"DT")="2980827"
^DD(165.5,143,0)="PALPABILITY OF PRIMARY^S^0:Not palpable;1:Palpable;9:Not stated/death cert only;^2.1;16^Q"
^DD(165.5,143,21,0)="^^1^1^2980204^^^"
^DD(165.5,143,21,1,0)="Records the palpability of primary if the primary site is breast."
^DD(165.5,143,"DT")="2980204"
^DD(165.5,144,0)="FIRST DETECTED BY^S^0:Not a breast primary;1:Patient felt lump/nipple discharge;2:Physician felt lump;3:Mammography - routine;4:Occult, incidental finding;9:Unknown;^2.1;17^Q"
^DD(165.5,144,21,0)="^^1^1^2980204^^^^"
^DD(165.5,144,21,1,0)="Records how it was first detected if the primary site is breast."
^DD(165.5,144,"DT")="2980204"
^DD(165.5,145,0)="APPROACH FOR BIOPSY OF PRIMARY^S^0:No biopsy;1:Transrectal;2:Transperineal;3:Transurethral;4:Laparoscopic;5:Open (laparotomy);9:Unknown/death cert only;^2.1;18^Q"
^DD(165.5,145,21,0)="^^1^1^2980209^^^^"
^DD(165.5,145,21,1,0)="Records the approach for biopsy of primary if the primary site is prostate."
^DD(165.5,145,"DT")="2980209"
^DD(165.5,146,0)="BIOPSY OF OTHER THAN PRIMARY^S^0:None;1:Seminal vesicle(s), NOS;2:Unilateral;3:Bilateral;4:Other than seminal vesicle;5:4 + 1;6:4 + 2;7:4 + 3;9:Unknown/death cert only;^2.1;19^Q"
^DD(165.5,146,21,0)="^^1^1^2980209^^^^"
^DD(165.5,146,21,1,0)="Records the biopsy of other than primary site if the primary site is prostate."
^DD(165.5,146,"DT")="2980209"
^DD(165.5,147,0)="CENSUS TRACT^F^^0;29^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(165.5,147,3)="Answer must be 6 characters in length, all numeric."
^DD(165.5,147,21,0)="^.001^15^15^3000627^^^"
^DD(165.5,147,21,1,0)=""
^DD(165.5,147,21,2,0)="CENSUS TRACT identifies the patient's usual residence at the time the"
^DD(165.5,147,21,3,0)="tumor was diagnosed."
^DD(165.5,147,21,4,0)=""
^DD(165.5,147,21,5,0)="A CENSUS TRACT is a small statistical subdivision of a county."
^DD(165.5,147,21,6,0)=""
^DD(165.5,147,21,7,0)="To code CENSUS TRACT, assume the decimal point is between the fourth "
^DD(165.5,147,21,8,0)="and fifth positions of the field.  Add zeros to fill all six positions."
^DD(165.5,147,21,9,0)=""
^DD(165.5,147,21,10,0)="Example: CENSUS TRACT 409.6 would be coded 040960, and CENSUS TRACT"
^DD(165.5,147,21,11,0)="         516.21 would be coded 051621."
^DD(165.5,147,21,12,0)=""
^DD(165.5,147,21,13,0)="000000   Area is not census tracted"
^DD(165.5,147,21,14,0)="999999   Area is census tracted, but census tract is not available"
^DD(165.5,147,21,15,0)=""
^DD(165.5,147,"DT")="3000627"
^DD(165.5,148,0)="PREVIOUS HISTORY OF CANCER^S^0:No;1:Yes;9:Unknown;^0;30^Q"
^DD(165.5,148,21,0)="^.001^2^2^3020603^^^"
^DD(165.5,148,21,1,0)="PREVIOUS HISTORY OF CANCER records whether the patient"
^DD(165.5,148,21,2,0)="has a prior history of any reportable malignancy."
^DD(165.5,148,"DT")="3020603"
^DD(165.5,148.1,0)="CANCER #1^P164.2'^ONCO(164.2,^0;31^Q"
^DD(165.5,148.1,21,0)="^^3^3^3020531^"
^DD(165.5,148.1,21,1,0)=""
^DD(165.5,148.1,21,2,0)="CANCER #1 records the 1st reportable malignancy associated with this"
^DD(165.5,148.1,21,3,0)="patient's PREVIOUS HISTORY OF CANCER."
^DD(165.5,148.1,"DT")="3020531"
^DD(165.5,148.2,0)="CANCER #2^P164.2'^ONCO(164.2,^0;32^Q"
^DD(165.5,148.2,21,0)="^.001^3^3^3020531^^"
^DD(165.5,148.2,21,1,0)=""
^DD(165.5,148.2,21,2,0)="CANCER #2 records the 2nd reportable malignancy associated with this"
^DD(165.5,148.2,21,3,0)="patient's PREVIOUS HISTORY OF CANCER."
^DD(165.5,148.2,"DT")="3020531"
^DD(165.5,148.3,0)="CANCER #3^P164.2'^ONCO(164.2,^0;33^Q"
^DD(165.5,148.3,21,0)="^^3^3^3020531^"
^DD(165.5,148.3,21,1,0)=""
^DD(165.5,148.3,21,2,0)="CANCER #3 records the 3rd reportable malignancy associated with this"
^DD(165.5,148.3,21,3,0)="patient's PREVIOUS HISTORY OF CANCER."
^DD(165.5,148.3,"DT")="3020531"
^DD(165.5,148.4,0)="CANCER #4^P164.2'^ONCO(164.2,^0;34^Q"
^DD(165.5,148.4,21,0)="^^3^3^3020531^"
^DD(165.5,148.4,21,1,0)=""
^DD(165.5,148.4,21,2,0)="CANCER #4 records the 4th reportable malignancy associated with this"
^DD(165.5,148.4,21,3,0)="patient's PREVIOUS HISTORY OF CANCER."
^DD(165.5,148.4,"DT")="3020531"
^DD(165.5,149,0)="LYMPHATIC VESSEL INVASION (L)^S^X:Lymphatic vessel invasion cannot be assessed;0:No lymphatic vessel invasion;1:Lymphatic vessel invasion;^2;19^Q"
^DD(165.5,149,21,0)="^.001^2^2^3021022^^^"
^DD(165.5,149,21,1,0)="LYMPHATIC VESSEL INVASION records whether lymphatic vessel invasion"
^DD(165.5,149,21,2,0)="was involved."
^DD(165.5,149,"DT")="3021022"
^DD(165.5,150,0)="FOLLOW-UP HISTORY^CJ80^^ ; ^S X="""" D FHP^ONCODLF"
^DD(165.5,150,9)="^"
^DD(165.5,150,9.01)=""
^DD(165.5,150,9.1)="S X="""" D FHP^ONCODLF"
^DD(165.5,150,21,0)="^^1^1^2960515^^"
^DD(165.5,150,21,1,0)="RECORDS ALL FOLLOW SUCCESSFULLY COMPLETED."
^DD(165.5,151,0)="VENOUS INVASION (V)^S^X:Venous invasion cannot be assessed;0:No venous invasion;1:Microscopic venous invasion;2:Macroscopic venous invasion;^2;29^Q"
^DD(165.5,151,21,0)="^.001^1^1^3021022^^"
^DD(165.5,151,21,1,0)="VENOUS INVASION records whether venous invasion was involved."
^DD(165.5,151,"DT")="3021022"
^DD(165.5,152,0)="DATE SYSTEMIC THERAPY STARTED^CJ10^^ ; ^S X="""" D DSTS^ONCOCOM"
^DD(165.5,152,9)="^"
^DD(165.5,152,9.01)=""
^DD(165.5,152,9.1)="S X="""" D DSTS^ONCOCOM"
^DD(165.5,152,21,0)="^.001^7^7^3030210^^"
^DD(165.5,152,21,1,0)="Records the date of initiation for systemic therapy that is part"
^DD(165.5,152,21,2,0)="of the first course of treatment.  Systemic therapy includes the"
^DD(165.5,152,21,3,0)="administration of chemotherapy agents, hormonal agents, biological"
^DD(165.5,152,21,4,0)="response modifiers, bone marrow transplants, stem cell harvests,"
^DD(165.5,152,21,5,0)="and surgical and/or radiation endocrine therapy."
^DD(165.5,152,21,6,0)=""
^DD(165.5,152,21,7,0)="For further information see FORDS pages 169-170."
^DD(165.5,152,"DT")="3030210"
^DD(165.5,153,0)="HEMA TRANS/ENDOCRINE PROC^P167'O^ONCO(167,^3.1;36^Q"
^DD(165.5,153,1,0)="^.1"
^DD(165.5,153,1,1,0)="165.5^AE^MUMPS"
^DD(165.5,153,1,1,1)="Q"
^DD(165.5,153,1,1,2)="D HTEP^ONCDTX"
^DD(165.5,153,1,1,"DT")="3030516"
^DD(165.5,153,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ONCO(167,Y,0)),U,2)"
^DD(165.5,153,2.1)="I Y'="""" S Y=$P($G(^ONCO(167,Y,0)),U,2)"
^DD(165.5,153,21,0)="^.001^9^9^3030515^^"
^DD(165.5,153,21,1,0)=""
^DD(165.5,153,21,2,0)="Identifies systemic therapeutic procedures administered as part"
^DD(165.5,153,21,3,0)="of the first course of treatment at this and all other facilities."
^DD(165.5,153,21,4,0)="If none of these procedures were administered, then this item"
^DD(165.5,153,21,5,0)="records the reason they were not performed.  These include bone"
^DD(165.5,153,21,6,0)="marrow transplants, stem cell harvests, surgical and/or radiation"
^DD(165.5,153,21,7,0)="endocrine therapy."
^DD(165.5,153,21,8,0)=""
^DD(165.5,153,21,9,0)="For further information see FORDS pages 182-183."
^DD(165.5,153,"DT")="3030516"
^DD(165.5,153.1,0)="HEMA TRANS/ENDOCRINE PROC DATE^DXO^^3.1;35^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,153.1,1,0)="^.1"
^DD(165.5,153.1,1,1,0)="165.5^ATE^MUMPS"
^DD(165.5,153.1,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""E"")="""""
^DD(165.5,153.1,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""E"")"
^DD(165.5,153.1,1,1,"%D",0)="^^2^2^3030515^"
^DD(165.5,153.1,1,1,"%D",1,0)="Records the hematologic transplant and endocrine"
^DD(165.5,153.1,1,1,"%D",2,0)="procedures date on the unified treatment index."
^DD(165.5,153.1,1,1,"DT")="3030515"
^DD(165.5,153.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,153.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,153.1,3)="*** HEMA TRANS/ENDOCRINE PROC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,153.1,21,0)="^.001^3^3^3030515^^^"
^DD(165.5,153.1,21,1,0)=""
^DD(165.5,153.1,21,2,0)="Records the date on which hematologic transplant"
^DD(165.5,153.1,21,3,0)="and endocrine procedures were performed."
^DD(165.5,153.1,"DT")="3030515"
^DD(165.5,154,0)="PAIN ASSESSMENT^S^0:No pain assessment;1:No need for palliative care;2:Need for palliative care, no referral;3:Need for palliative care, referral;9:Unknown;^3.1;37^Q"
^DD(165.5,154,21,0)="^^5^5^3030131^"
^DD(165.5,154,21,1,0)=""
^DD(165.5,154,21,2,0)="Records whether or not a pain assessment was performed to"
^DD(165.5,154,21,3,0)="determine the need for palliative care."
^DD(165.5,154,21,4,0)=""
^DD(165.5,154,21,5,0)="For further information see FORDS page 188."
^DD(165.5,154,"DT")="3030131"
^DD(165.5,155,0)="DATE OF FIRST CONTACT^DXO^^0;35^D FADIT^ONCODSR"
^DD(165.5,155,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,155,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,155,3)=""
^DD(165.5,155,21,0)="^.001^10^10^3030410^^^^"
^DD(165.5,155,21,1,0)=""
^DD(165.5,155,21,2,0)="Date of first contact with the reporting facility"
^DD(165.5,155,21,3,0)="for diagnosis and/or treatment of this cancer."
^DD(165.5,155,21,4,0)=""
^DD(165.5,155,21,5,0)="If this is an autopsy-only or death certificate-only"
^DD(165.5,155,21,6,0)="case, then use the date of death."
^DD(165.5,155,21,7,0)=""
^DD(165.5,155,21,8,0)="00/00/000 is not allowed."
^DD(165.5,155,21,9,0)=""
^DD(165.5,155,21,10,0)="For further information see FORDS page 87."
^DD(165.5,155,"DT")="3030410"
^DD(165.5,156,0)="DRE DATE^FXO^^24;11^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,156,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,156,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,156,3)="Record the date on which the DRE was performed."
^DD(165.5,156,21,0)="^^3^3^3060901^"
^DD(165.5,156,21,1,0)=" "
^DD(165.5,156,21,2,0)="Records the date on which the DRE (Digital Rectal Examination) was "
^DD(165.5,156,21,3,0)="performed."
^DD(165.5,156,"DT")="3060921"
^DD(165.5,157,0)="ELAPSED DAYS TO COMPLETION^CJ40^^ ; ^D ET^ONCOCOM"
^DD(165.5,157,9)="^"
^DD(165.5,157,9.01)=""
^DD(165.5,157,9.1)="D ET^ONCOCOM"
^DD(165.5,157,21,0)="^^2^2^3061004^"
^DD(165.5,157,21,1,0)="Computes the time interval in days between DATE OF FIRST CONTACT"
^DD(165.5,157,21,2,0)="(165.5,155) and DATE CASE COMPLETED (165.5,90)."
^DD(165.5,157,"DT")="3061004"
^DD(165.5,159,0)="AMBIGUOUS TERMINOLOGY DX^S^0:Conclusive term;1:Ambiguous term only;2:Ambiguous term followed by conclusive term;9:Unknown term;^24;12^Q"
^DD(165.5,159,21,0)="^^8^8^3070117^"
^DD(165.5,159,21,1,0)=" "
^DD(165.5,159,21,2,0)="Identifies cases for which an ambiguous term is the most definitive"
^DD(165.5,159,21,3,0)="word or phrase used to establish a cancer diagnosis (i.e., to determine"
^DD(165.5,159,21,4,0)="whether or not the case is reportable). Do not include cases where a "
^DD(165.5,159,21,5,0)="definite statement of malignancy is made within two months following"
^DD(165.5,159,21,6,0)="the original/initial diagnosis. (This does not include the use of"
^DD(165.5,159,21,7,0)="ambiguous terminology from cancer screening followed by a positive"
^DD(165.5,159,21,8,0)="cancer confirmation that is follow-up to the screening.)"
^DD(165.5,159,"DT")="3070117"
^DD(165.5,160,0)="DERIVED AJCC T^FO^^CS1;1^K:$L(X)>2!($L(X)<2) X"
^DD(165.5,160,2)="S Y(0)=Y D TOT^ONCCSOT"
^DD(165.5,160,2.1)="D TOT^ONCCSOT"
^DD(165.5,160,3)="Answer must be 2 characters in length."
^DD(165.5,160,21,0)="^^2^2^3040309^"
^DD(165.5,160,21,1,0)="This is the AJCC ""T"" component that is derived from CS coded fields,"
^DD(165.5,160,21,2,0)="using the CS algoritm, effective with 2004 diagnosis."
^DD(165.5,160,"DT")="3040309"
^DD(165.5,161,0)="DERIVED AJCC T DESCRIPTOR^S^c:clinical;p:pathological;a:autopsy only;y:y prefix;N:Not applicable;0:Not derived;^CS1;2^Q"
^DD(165.5,161,21,0)="^.001^2^2^3041008^^^^"
^DD(165.5,161,21,1,0)="This is the AJCC ""T Descriptor"" component that is derived from CS"
^DD(165.5,161,21,2,0)="coded fields, using the CS algorithm, effective with 2004 diagnosis."
^DD(165.5,161,"DT")="3041008"
^DD(165.5,162,0)="DERIVED AJCC N^FO^^CS1;3^K:$L(X)>2!($L(X)<2) X"
^DD(165.5,162,2)="S Y(0)=Y D NOT^ONCCSOT"
^DD(165.5,162,2.1)="D NOT^ONCCSOT"
^DD(165.5,162,3)="Answer must be 2 characters in length."
^DD(165.5,162,21,0)="^^2^2^3040309^"
^DD(165.5,162,21,1,0)="This is the AJCC ""N"" component that is derived from CS coded fields,"
^DD(165.5,162,21,2,0)="using the CS algoritm, effective with 2004 diagnosis."
^DD(165.5,162,"DT")="3040310"
^DD(165.5,163,0)="DERIVED AJCC N DESCRIPTOR^S^c:clinical;p:pathological;a:autopsy only;y:y prefix;N:Not applicable;0:Not derived;^CS1;4^Q"
^DD(165.5,163,21,0)="^.001^2^2^3041008^^^"
^DD(165.5,163,21,1,0)="This is the AJCC ""N Descriptor"" component that is derived from CS"
^DD(165.5,163,21,2,0)="coded fields, using the CS algorithm, effective with 2004 diagnosis."
^DD(165.5,163,"DT")="3041008"
^DD(165.5,164,0)="DERIVED AJCC M^FO^^CS1;5^K:$L(X)>2!($L(X)<2) X"
^DD(165.5,164,2)="S Y(0)=Y D MOT^ONCCSOT"
^DD(165.5,164,2.1)="D MOT^ONCCSOT"
^DD(165.5,164,3)="Answer must be 2 characters in length."
^DD(165.5,164,21,0)="^.001^2^2^3040309^^"
^DD(165.5,164,21,1,0)="This is the AJCC ""N"" component that is derived from CS coded fields,"
^DD(165.5,164,21,2,0)="using the CS algorithm, effective with 2004 diagnosis."
^DD(165.5,164,"DT")="3040310"
^DD(165.5,165,0)="DERIVED AJCC M DESCRIPTOR^S^c:clinical;p:pathological;a:autopsy only;y:y prefix;N:Not applicable;0:Not derived;^CS1;6^Q"
^DD(165.5,165,21,0)="^.001^2^2^3041008^^^^"
^DD(165.5,165,21,1,0)="This is the AJCC ""M Descriptor"" component that is derived from CS"
^DD(165.5,165,21,2,0)="coded fields, using the CS algorithm, effective with 2004 diagnosis."
^DD(165.5,165,"DT")="3041008"
^DD(165.5,166,0)="DERIVED AJCC STAGE GROUP^FO^^CS1;7^K:$L(X)>2!($L(X)<2) X"
^DD(165.5,166,2)="S Y(0)=Y D SGOT^ONCCSOT"
^DD(165.5,166,2.1)="D SGOT^ONCCSOT"
^DD(165.5,166,3)="Answer must be 2 characters in length."
^DD(165.5,166,21,0)="^^3^3^3040309^"
^DD(165.5,166,21,1,0)="This is the AJCC ""Stage Group"" component that is derived from the"
^DD(165.5,166,21,2,0)="CS detailed site-specfic codes, using the CS from the CS algoritm"
^DD(165.5,166,21,3,0)="effective with 2004 diagnosis."
^DD(165.5,166,"DT")="3040310"
^DD(165.5,167,0)="DERIVED SS1977^S^0:In situ;1:Localized;2:Regional, direct extension;3:Regional, lymph nodes only;4:Regional, extension and nodes;5:Regional, NOS;7:Distant;8:NA;9:Unknown/Unstaged;^CS1;8^Q"
^DD(165.5,167,21,0)="^.001^2^2^3040310^^^^"
^DD(165.5,167,21,1,0)="This is the derived ""SEER Summary Stage 1977"" from the CS"
^DD(165.5,167,21,2,0)="algorithm (or EOD codes) effective with 2004 diagnosis."
^DD(165.5,167,"DT")="3040310"
^DD(165.5,168,0)="DERIVED SS2000^S^0:In situ;1:Localized;2:Regional, direct extension;3:Regional, lymph nodes only;4:Regional, extension and nodes;5:Regional, NOS;7:Distant;8:NA;9:Unknown/Unstaged;^CS1;9^Q"
^DD(165.5,168,21,0)="^^2^2^3040309^"
^DD(165.5,168,21,1,0)="This is the derived ""SEER Summary Stage 2000"" from the CS"
^DD(165.5,168,21,2,0)="algorithm (or EOD codes) effective with 2004 diagnosis."
^DD(165.5,168,"DT")="3040309"
^DD(165.5,169,0)="CS VERSION^F^^CS1;11^K:$L(X)>6!($L(X)<6) X"
^DD(165.5,169,3)="Answer must be 6 characters in length."
^DD(165.5,169,21,0)="^^2^2^3040315^"
^DD(165.5,169,21,1,0)="This item inicates the number of the version of the CS used to derive"
^DD(165.5,169,21,2,0)="the CS output fields."
^DD(165.5,169,"DT")="3040315"
^DD(165.5,170,0)="DATE FIRST SURGICAL PROCEDURE^DXO^^3.1;38^D DFIT^ONCODSR I $D(X) D DFSPIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,170,1,0)="^.1"
^DD(165.5,170,1,1,0)="165.5^ATSF^MUMPS"
^DD(165.5,170,1,1,1)="S ^ONCO(165.5,""ATX"",DA,X_""S0"")="""""
^DD(165.5,170,1,1,2)="K ^ONCO(165.5,""ATX"",DA,X_""S0"")"
^DD(165.5,170,1,1,"%D",0)="^.101^2^2^3041105^^"
^DD(165.5,170,1,1,"%D",1,0)="Records the earliest date on which any first course surgical"
^DD(165.5,170,1,1,"%D",2,0)="procedure was performed on the unified treatment index."
^DD(165.5,170,1,1,"DT")="3041105"
^DD(165.5,170,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,170,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,170,3)="*** DATE FIRST SURGICAL PROCEDURE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,170,21,0)="^.001^5^5^3041105^^^^"
^DD(165.5,170,21,1,0)=""
^DD(165.5,170,21,2,0)="Records the earliest date on which any first"
^DD(165.5,170,21,3,0)="course surgical procedure was performed."
^DD(165.5,170,21,4,0)=""
^DD(165.5,170,21,5,0)="For further information see FORDS pages 131-132."
^DD(165.5,170,"DT")="3041105"
^DD(165.5,171,0)="DATE OF FIRST SYMPTOMS^FOX^^2.2;4^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,171,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,171,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,171,3)="Enter the date of first symptoms or abnormal test results."
^DD(165.5,171,21,0)="^^5^5^3060921^"
^DD(165.5,171,21,1,0)=" "
^DD(165.5,171,21,2,0)="Records the date on which the patient was first seen with symptoms"
^DD(165.5,171,21,3,0)="or had abnormal test results which began the workup which led to"
^DD(165.5,171,21,4,0)="the diagnosis of cancer.  This date would be before or equal to the"
^DD(165.5,171,21,5,0)="DATE DX."
^DD(165.5,171,"DT")="3060921"
^DD(165.5,172,0)="DATE START OF WORKUP ORDERED^FOX^^2.2;5^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,172,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,172,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,172,3)="Enter the date the physician ordered diagnostic tests."
^DD(165.5,172,21,0)="^^3^3^3060921^"
^DD(165.5,172,21,1,0)=" "
^DD(165.5,172,21,2,0)="Records the date the physician placed consult to specialty"
^DD(165.5,172,21,3,0)="clinic OR ordered diagnostic procedures or tests."
^DD(165.5,172,"DT")="3060921"
^DD(165.5,173,0)="DATE WORKUP STARTED^FOX^^2.2;6^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,173,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,173,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,173,3)="Enter the date the patient started diagnostic tests."
^DD(165.5,173,21,0)="^^3^3^3060921^"
^DD(165.5,173,21,1,0)=" "
^DD(165.5,173,21,2,0)="Records the date when the patient was seen in the specialty"
^DD(165.5,173,21,3,0)="clinic OR had diagnostic procedures or tests performed."
^DD(165.5,173,"DT")="3060921"
^DD(165.5,174,0)="BLOOD IN SPUTUM PER PT^S^0:No;1:Yes;9:Unknown/Not documented;^2.2;7^Q"
^DD(165.5,174,21,0)="^.001^3^3^3050523^^^^"
^DD(165.5,174,21,1,0)=""
^DD(165.5,174,21,2,0)="Record the presence of blood in the patient's"
^DD(165.5,174,21,3,0)="sputum as reported by the patient."
^DD(165.5,174,"DT")="3050523"
^DD(165.5,174.1,0)="DATE OF BLOOD IN SPUTUM PER PT^FOX^^2.2;18^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,174.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,174.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,174.1,3)="Enter the date of blood in the patient's sputum."
^DD(165.5,174.1,21,0)="^^3^3^3060921^"
^DD(165.5,174.1,21,1,0)=" "
^DD(165.5,174.1,21,2,0)="Records the date of the presence of blood in the"
^DD(165.5,174.1,21,3,0)="patient's sputum (as reported by the patient)."
^DD(165.5,174.1,"DT")="3060921"
^DD(165.5,175,0)="CHEST X-RAY^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;8^Q"
^DD(165.5,175,21,0)="^.001^3^3^3050520^^^^"
^DD(165.5,175,21,1,0)=""
^DD(165.5,175,21,2,0)="Record the results of the diagnostic test CHEST X-RAY."
^DD(165.5,175,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,175,"DT")="3050404"
^DD(165.5,175.1,0)="DATE OF CHEST X-RAY^FOX^^2.2;19^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,175.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,175.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,175.1,3)="Enter the date of the diagnostic test CHEST X-RAY."
^DD(165.5,175.1,21,0)="^^2^2^3060921^"
^DD(165.5,175.1,21,1,0)=" "
^DD(165.5,175.1,21,2,0)="Records the date of the diagnostic test CHEST X-RAY."
^DD(165.5,175.1,"DT")="3060921"
^DD(165.5,176,0)="CT SCAN^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;9^Q"
^DD(165.5,176,21,0)="^.001^3^3^3050520^^^^"
^DD(165.5,176,21,1,0)=""
^DD(165.5,176,21,2,0)="Record the results of the diagnostic test CT SCAN."
^DD(165.5,176,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,176,"DT")="3050405"
^DD(165.5,176.1,0)="DATE OF CT SCAN^FOX^^2.2;20^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,176.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,176.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,176.1,3)="Enter the date of the diagnostic test CT SCAN."
^DD(165.5,176.1,21,0)="^^2^2^3060921^"
^DD(165.5,176.1,21,1,0)=" "
^DD(165.5,176.1,21,2,0)="Records the date of the diagnostic test CT SCAN."
^DD(165.5,176.1,"DT")="3060921"
^DD(165.5,177,0)="BRONCHOSCOPY^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;10^Q"
^DD(165.5,177,21,0)="^.001^3^3^3050520^^^^"
^DD(165.5,177,21,1,0)=""
^DD(165.5,177,21,2,0)="Record the results of the diagnostic test BRONCHOSCOPY."
^DD(165.5,177,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,177,"DT")="3050405"
^DD(165.5,177.1,0)="DATE OF BRONCHOSCOPY^FOX^^2.2;21^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,177.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,177.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,177.1,3)="Enter the date of the diagnostic test BRONCHOSCOPY."
^DD(165.5,177.1,21,0)="^^2^2^3060921^"
^DD(165.5,177.1,21,1,0)=" "
^DD(165.5,177.1,21,2,0)="Records the date of the diagnostic test BRONCHOSCOPY."
^DD(165.5,177.1,"DT")="3060921"
^DD(165.5,178,0)="MEDIASTINOSCOPY^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;11^Q"
^DD(165.5,178,21,0)="^.001^3^3^3050520^^^^"
^DD(165.5,178,21,1,0)=""
^DD(165.5,178,21,2,0)="Record the results of the diagnostic test MEDIASTINOSCOPY."
^DD(165.5,178,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,178,"DT")="3050405"
^DD(165.5,178.1,0)="DATE OF MEDIASTINOSCOPY^FOX^^2.2;22^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,178.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,178.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,178.1,3)="Enter the date of the diagnostic test MEDIASTINOSCOPY."
^DD(165.5,178.1,21,0)="^^2^2^3060921^"
^DD(165.5,178.1,21,1,0)=" "
^DD(165.5,178.1,21,2,0)="Records the date of the diagnostic test MEDIASTINOSCOPY."
^DD(165.5,178.1,"DT")="3060921"
^DD(165.5,179,0)="PET SCAN^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;12^Q"
^DD(165.5,179,21,0)="^.001^3^3^3050520^^^^"
^DD(165.5,179,21,1,0)=""
^DD(165.5,179,21,2,0)="Record the results of the diagnostic test PET SCAN."
^DD(165.5,179,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,179,"DT")="3050405"
^DD(165.5,179.1,0)="DATE OF PET SCAN^FOX^^2.2;23^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,179.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,179.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,179.1,3)="Enter the date of the diagnostic test PET SCAN."
^DD(165.5,179.1,21,0)="^^2^2^3060921^"
^DD(165.5,179.1,21,1,0)=" "
^DD(165.5,179.1,21,2,0)="Records the date of the diagnostic test PET SCAN."
^DD(165.5,179.1,"DT")="3060921"
^DD(165.5,180,0)="CHANGE IN BOWEL HABITS PER PT^S^0:No;1:Yes;9:Unknown/not documented;^2.2;13^Q"
^DD(165.5,180,21,0)="^.001^3^3^3050523^^^^"
^DD(165.5,180,21,1,0)=""
^DD(165.5,180,21,2,0)="Record all changes in bowel habits "
^DD(165.5,180,21,3,0)="as reported by the patient."
^DD(165.5,180,"DT")="3050523"
^DD(165.5,180.1,0)="DATE OF CHANGE IN BOWEL HABITS^FOX^^2.2;24^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,180.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,180.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,180.1,3)="Enter the date of a change in bowel habits."
^DD(165.5,180.1,21,0)="^^3^3^3060921^"
^DD(165.5,180.1,21,1,0)=" "
^DD(165.5,180.1,21,2,0)="Records the date of a change in bowel"
^DD(165.5,180.1,21,3,0)="habits (as reported by the patient)."
^DD(165.5,180.1,"DT")="3060921"
^DD(165.5,181,0)="FECAL OCCULT BLOOD TEST (FOBT)^S^0:Not done;1:Positive (3-card sample);2:Negative (3-card sample);3:Positive (6-card sample);4:Negative (6-card sample);9:Unknown/not documented;^2.2;14^Q"
^DD(165.5,181,21,0)="^.001^3^3^3050525^^^^"
^DD(165.5,181,21,1,0)=""
^DD(165.5,181,21,2,0)="Record the results of the diagnostic test FECAL OCCULT BLOOD"
^DD(165.5,181,21,3,0)="TEST (FOBT).  If this test was not done, record a '0'."
^DD(165.5,181,"DT")="3050525"
^DD(165.5,181.1,0)="DATE OF FOBT^FOX^^2.2;25^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,181.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,181.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,181.1,3)="Enter the date of the diagnostic test FOBT."
^DD(165.5,181.1,21,0)="^^3^3^3060921^"
^DD(165.5,181.1,21,1,0)=" "
^DD(165.5,181.1,21,2,0)="Records the date of the diagnostic test"
^DD(165.5,181.1,21,3,0)="FECAL OCCULT BLOOD TEST (FOBT)."
^DD(165.5,181.1,"DT")="3060921"
^DD(165.5,182,0)="BARIUM ENEMA^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;15^Q"
^DD(165.5,182,21,0)="^.001^3^3^3051108^^^^"
^DD(165.5,182,21,1,0)=""
^DD(165.5,182,21,2,0)="Record the results of the diagnostic test BARIUM ENEMA."
^DD(165.5,182,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,182,"DT")="3050405"
^DD(165.5,182.1,0)="DATE OF BARIUM ENEMA^FOX^^2.2;27^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,182.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,182.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,182.1,3)="Enter the results of the diagnostic test BARIUM ENEMA."
^DD(165.5,182.1,21,0)="^^2^2^3060921^"
^DD(165.5,182.1,21,1,0)=" "
^DD(165.5,182.1,21,2,0)="Records the results of the diagnostic test BARIUM ENEMA."
^DD(165.5,182.1,"DT")="3060921"
^DD(165.5,183,0)="SIGMOIDOSCOPY^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;16^Q"
^DD(165.5,183,21,0)="^.001^3^3^3050523^^^"
^DD(165.5,183,21,1,0)=""
^DD(165.5,183,21,2,0)="Record the results of the diagnostic test SIGMOIDOSCOPY."
^DD(165.5,183,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,183,"DT")="3050523"
^DD(165.5,183.1,0)="DATE OF SIGMOIDOSCOPY^FOX^^2.2;28^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,183.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,183.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,183.1,3)="Enter the date of the diagnostic test SIGMOIDOSCOPY."
^DD(165.5,183.1,21,0)="^^2^2^3060921^"
^DD(165.5,183.1,21,1,0)=" "
^DD(165.5,183.1,21,2,0)="Records the date of the diagnostic test SIGMOIDOSCOPY."
^DD(165.5,183.1,"DT")="3060921"
^DD(165.5,184,0)="CT OF ABDOMEN/PELVIS^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;17^Q"
^DD(165.5,184,21,0)="^.001^3^3^3050523^^^^"
^DD(165.5,184,21,1,0)=""
^DD(165.5,184,21,2,0)="Record the results of the diagnostic test CT OF ABDOMEN/PELVIS."
^DD(165.5,184,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,184,"DT")="3050523"
^DD(165.5,184.1,0)="DATE OF CT OF ABDOMEN/PELVIS^FOX^^2.2;31^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,184.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,184.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,184.1,3)="Enter the date of the diagnostic test CT OF ABDOMEN/PELVIS."
^DD(165.5,184.1,21,0)="^^1^1^3060921^"
^DD(165.5,184.1,21,1,0)="Records the date of the diagnostic test CT OF ABDOMEN/PELVIS."
^DD(165.5,184.1,"DT")="3060921"
^DD(165.5,185,0)="COLONOSCOPY^S^0:Not done;1:Abnormal;2:Within normal limits;9:Unknown/not documented;^2.2;29^Q"
^DD(165.5,185,21,0)="^^3^3^3050523^"
^DD(165.5,185,21,1,0)=""
^DD(165.5,185,21,2,0)="Record the results of the diagnostic test COLONOSCOPY."
^DD(165.5,185,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,185,"DT")="3050523"
^DD(165.5,185.1,0)="DATE OF COLONOSCOPY^FOX^^2.2;30^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,185.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,185.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,185.1,3)="Enter the date of the diagnostic test COLONOSCOPY."
^DD(165.5,185.1,21,0)="^^3^3^3060921^"
^DD(165.5,185.1,21,1,0)=" "
^DD(165.5,185.1,21,2,0)="Records the date of the diagnostic test COLONOSCOPY."
^DD(165.5,185.1,21,3,0)="If this test was not done, record a '0'."
^DD(165.5,185.1,"DT")="3060921"
^DD(165.5,186,0)="DYSPNEA^S^0:No;1:Yes;9:Unknown/not documented;^2.2;32^Q"
^DD(165.5,186,21,0)="^.001^2^2^3050603^^^^"
^DD(165.5,186,21,1,0)=""
^DD(165.5,186,21,2,0)="Record whether the patient experienced dyspnea."
^DD(165.5,186,"DT")="3050603"
^DD(165.5,186.1,0)="DATE OF DYSPNEA^FOX^^2.2;33^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,186.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,186.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,186.1,3)="Enter the date on which the patient was affected by dyspnea."
^DD(165.5,186.1,21,0)="^^2^2^3060921^"
^DD(165.5,186.1,21,1,0)=" "
^DD(165.5,186.1,21,2,0)="Records the date on which the patient was affected by dyspnea."
^DD(165.5,186.1,"DT")="3060921"
^DD(165.5,187,0)="INCREASED COUGH^S^0:No;1:Yes;9:Unknown/not documented;^2.2;34^Q"
^DD(165.5,187,21,0)="^.001^2^2^3050523^^"
^DD(165.5,187,21,1,0)=""
^DD(165.5,187,21,2,0)="Record whether the patient experienced increased coughing."
^DD(165.5,187,"DT")="3050523"
^DD(165.5,187.1,0)="DATE OF INCREASED COUGH^FOX^^2.2;35^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,187.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,187.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,187.1,3)="Enter the date on which the patient experienced increased coughing."
^DD(165.5,187.1,21,0)="^^2^2^3060921^"
^DD(165.5,187.1,21,1,0)=" "
^DD(165.5,187.1,21,2,0)="Records the date on which the patient experienced increased coughing."
^DD(165.5,187.1,"DT")="3060921"
^DD(165.5,188,0)="FEVER^S^0:No;1:Yes;9:Unknown/not documented;^2.2;36^Q"
^DD(165.5,188,21,0)="^.001^2^2^3050523^^"
^DD(165.5,188,21,1,0)=""
^DD(165.5,188,21,2,0)="Record whether the patient experienced a fever."
^DD(165.5,188,"DT")="3050523"
^DD(165.5,188.1,0)="DATE OF FEVER^FOX^^2.2;37^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,188.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,188.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,188.1,3)="Enter the date on which the patient experienced a fever."
^DD(165.5,188.1,21,0)="^^2^2^3060921^"
^DD(165.5,188.1,21,1,0)=" "
^DD(165.5,188.1,21,2,0)="Records the date on which the patient experienced a fever."
^DD(165.5,188.1,"DT")="3060921"
^DD(165.5,189,0)="NIGHT SWEATS^S^0:No;1:Yes;9:Unknown/not documented;^2.2;38^Q"
^DD(165.5,189,21,0)="^.001^2^2^3050603^^^^"
^DD(165.5,189,21,1,0)=""
^DD(165.5,189,21,2,0)="Record whether the patient experienced night sweats."
^DD(165.5,189,"DT")="3050603"
^DD(165.5,189.1,0)="DATE OF NIGHT SWEATS^FOX^^2.2;39^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,189.1,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,189.1,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,189.1,3)="Enter the date on which the patient experienced night sweats."
^DD(165.5,189.1,21,0)="^^2^2^3060921^"
^DD(165.5,189.1,21,1,0)=" "
^DD(165.5,189.1,21,2,0)="Records the date on which the patient experienced night sweats."
^DD(165.5,189.1,"DT")="3060921"
^DD(165.5,190,0)="WEIGHT LOSS PER PT^S^0:No;1:Yes;9:Unknown/not documented;^2.2;40^Q"
^DD(165.5,190,21,0)="^.001^2^2^3050523^^"
^DD(165.5,190,21,1,0)=""
^DD(165.5,190,21,2,0)="Record weight loss as reported by the patient."
^DD(165.5,190,"DT")="3050523"
^DD(165.5,191,0)="ULCERATIVE COLITIS (UC)^S^0:No;1:Yes;9:Unknown/not documented;^2.2;41^Q"
^DD(165.5,191,21,0)="^.001^3^3^3050524^^^^"
^DD(165.5,191,21,1,0)=""
^DD(165.5,191,21,2,0)="Record whether the patient was affected by"
^DD(165.5,191,21,3,0)="ulcerative colitis (UC)."
^DD(165.5,191,"DT")="3050524"
^DD(165.5,192,0)="SPORADIC POLYPS^S^0:No;1:Yes;9:Unknown/not documented;^2.2;42^Q"
^DD(165.5,192,21,0)="^.001^8^8^3050603^^^"
^DD(165.5,192,21,1,0)=""
^DD(165.5,192,21,2,0)="Sporadic polyps can also develop in people with no family history of"
^DD(165.5,192,21,3,0)="colon cancer.  They are called ""sporadic"" to distinguish them from the"
^DD(165.5,192,21,4,0)="familial kind. Certain types of sporadic polyps do increase the risk of"
^DD(165.5,192,21,5,0)="colon cancer. These polyps, known as adenomas, often can be removed"
^DD(165.5,192,21,6,0)="during a colonoscopic examination."
^DD(165.5,192,21,7,0)="  "
^DD(165.5,192,21,8,0)="Record the existence of sporadic polyps."
^DD(165.5,192,"DT")="3050603"
^DD(165.5,193,0)="DATE OF CONCLUSIVE DX^FOX^^24;13^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) D DCD^ONCOCOM"
^DD(165.5,193,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,193,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,193,3)="Enter the date of a definite state of malignancy."
^DD(165.5,193,21,0)="^^6^6^3070117^"
^DD(165.5,193,21,1,0)=" "
^DD(165.5,193,21,2,0)="Documents the date when a conclusive cancer diagnosis (definite"
^DD(165.5,193,21,3,0)="statement of malignancy) is made following an initial diagnosis that"
^DD(165.5,193,21,4,0)="was based only on ambiguous terminology. The date of the conclusive"
^DD(165.5,193,21,5,0)="diagnosis must be greater than two months following the initial"
^DD(165.5,193,21,6,0)="(ambiguous terminology only) diagnosis."
^DD(165.5,193,"DT")="3070124"
^DD(165.5,194,0)="MULT TUM RPT AS ONE PRIM^P169'O^ONCO(169,^24;14^Q"
^DD(165.5,194,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(169,Y,0),U,2)"
^DD(165.5,194,2.1)="S:Y'="""" Y=$P(^ONCO(169,Y,0),U,2)"
^DD(165.5,194,21,0)="^^27^27^3070124^"
^DD(165.5,194,21,1,0)=" "
^DD(165.5,194,21,2,0)="This data item is used to identify cases with multiple tumors that are "
^DD(165.5,194,21,3,0)="abstracted ans reported as a single primary."
^DD(165.5,194,21,4,0)=" "
^DD(165.5,194,21,5,0)="Codes  Description"
^DD(165.5,194,21,6,0)="-----  -----------"
^DD(165.5,194,21,7,0)="00     Single tumor"
^DD(165.5,194,21,8,0)="10     At least two benign tumors in same organ/primary site"
^DD(165.5,194,21,9,0)="       (Intracranial and CNS sites only)"
^DD(165.5,194,21,10,0)="11     At least two borderline tumors in the same organ/primary site "
^DD(165.5,194,21,11,0)="       (Intracranial and CNS sites only)"
^DD(165.5,194,21,12,0)="12     Benign and borderline tumors in the same organ/primary site "
^DD(165.5,194,21,13,0)="       (Intracranial and CNS sites only)"
^DD(165.5,194,21,14,0)="20     At least two in situ tumors in the same organ/primary site"
^DD(165.5,194,21,15,0)="30     One or more in situ and one or more invasive tumors in the same "
^DD(165.5,194,21,16,0)="       organ/primary site"
^DD(165.5,194,21,17,0)="31     One or more in situ/invasive adenocarcinoma in a polyp and one"
^DD(165.5,194,21,18,0)="       or more frank adenocarcinoma in one segment of colon"
^DD(165.5,194,21,19,0)="32     Familial polyposis with one or more in situ/invasive carcinoma"
^DD(165.5,194,21,20,0)="40     At least two invasive tumors in the same organ (Includes one"
^DD(165.5,194,21,21,0)="       or more invasive tumor with histology ""NOS"" and one or more"
^DD(165.5,194,21,22,0)="       separate invasive tumor with a more specific histology)"
^DD(165.5,194,21,23,0)="80     Multiple tumors present in the same organ/primary site, unknown"
^DD(165.5,194,21,24,0)="       if in situ or invasive"
^DD(165.5,194,21,25,0)="88     Information on multiple tumors not collected/not applicable for"
^DD(165.5,194,21,26,0)="       this site"
^DD(165.5,194,21,27,0)="99     Unknown"
^DD(165.5,194,"DT")="3070124"
^DD(165.5,195,0)="DATE OF MULTIPLE TUMORS^FOX^^24;15^D ZS9S^ONCODSR Q:ZS9S=1  S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(165.5,195,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,195,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,195,3)="Enter the date the patient was diagnosed with multiple tumors reported as a single primary."
^DD(165.5,195,21,0)="^^5^5^3070124^"
^DD(165.5,195,21,1,0)=" "
^DD(165.5,195,21,2,0)="This data item is used to identify the month, day and year the patient"
^DD(165.5,195,21,3,0)="is diagnosed with multiple tumors reported as a single primary.  Use"
^DD(165.5,195,21,4,0)="the multiple primary rules for that specific site to determine whether"
^DD(165.5,195,21,5,0)="the tumors are a single primary or multiple primaries."
^DD(165.5,195,"DT")="3070124"
^DD(165.5,196,0)="MULTIPLICITY COUNTER^F^^24;16^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(165.5,196,3)="Answer must 2 numerics in the range 01-99."
^DD(165.5,196,21,0)="^.001^15^15^3070124^^"
^DD(165.5,196,21,1,0)=" "
^DD(165.5,196,21,2,0)="This data item is used to count the number of tumors (multiplicity) "
^DD(165.5,196,21,3,0)="reported as a single primary.  Do not count metastatic tumors.  Use the "
^DD(165.5,196,21,4,0)="multiple primary rules for the specific site to determine whether the "
^DD(165.5,196,21,5,0)="tumors are a single primary or multiple primaries."
^DD(165.5,196,21,6,0)=" "
^DD(165.5,196,21,7,0)="Codes"
^DD(165.5,196,21,8,0)="01 One tumor only"
^DD(165.5,196,21,9,0)="02 Two tumors present"
^DD(165.5,196,21,10,0)="03 Three tumors present"
^DD(165.5,196,21,11,0)=".."
^DD(165.5,196,21,12,0)=".."
^DD(165.5,196,21,13,0)="88 Information on multiple tumors not collected/not applicable for this "
^DD(165.5,196,21,14,0)="   site"
^DD(165.5,196,21,15,0)="99 Multiple tumors present, unknown how many"
^DD(165.5,196,"DT")="3070124"
^DD(165.5,197,0)="EDITS CHECKSUM^F^^EDITS;1^K:$L(X)>20!($L(X)<1) X"
^DD(165.5,197,3)="Answer must be 1-20 characters in length."
^DD(165.5,197,21,0)="^^3^3^3070306^"
^DD(165.5,197,21,1,0)="Provides a checksum value for the NAACCR record associated with this "
^DD(165.5,197,21,2,0)="abstract. This checksum will be used to detect changes to the NAACCR"
^DD(165.5,197,21,3,0)="record once the ABSTRACT STATUS (165.5,91) has been set to 3 (Complete)."
^DD(165.5,197,"DT")="3070306"
^DD(165.5,198,0)="DATE CASE LAST CHANGED^DO^^7;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(165.5,198,1,0)="^.1"
^DD(165.5,198,1,1,0)="165.5^AAE"
^DD(165.5,198,1,1,1)="S ^ONCO(165.5,""AAE"",$E(X,1,30),DA)="""""
^DD(165.5,198,1,1,2)="K ^ONCO(165.5,""AAE"",$E(X,1,30),DA)"
^DD(165.5,198,1,1,"%D",0)="^^2^2^3070326^"
^DD(165.5,198,1,1,"%D",1,0)="This cross-reference will be used to facilitate the extraction"
^DD(165.5,198,1,1,"%D",2,0)="of the data from specified start/end dates."
^DD(165.5,198,1,1,"DT")="3070326"
^DD(165.5,198,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,198,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,198,21,0)="^^1^1^3070326^"
^DD(165.5,198,21,1,0)="Date the case was last changed or updated."
^DD(165.5,198,"DT")="3070326"
^DD(165.5,199,0)="CASE LAST CHANGED BY^P200'^VA(200,^7;22^Q"
^DD(165.5,199,21,0)="^^1^1^3070326^"
^DD(165.5,199,21,1,0)="Records the name of the individual who last changed the case."
^DD(165.5,199,"DT")="3070326"
^DD(165.5,200,0)="DATE LAST CONTACT^DCJ12^^ ; ^S X="""" D PDLC^ONCOCRF"
^DD(165.5,200,9)="^"
^DD(165.5,200,9.01)=""
^DD(165.5,200,9.1)="S X="""" D PDLC^ONCOCRF"
^DD(165.5,200,21,0)="^^1^1^2970226^^"
^DD(165.5,200,21,1,0)="Date last contact with the patient - computed from file #160."
^DD(165.5,200,"DT")="2900911"
^DD(165.5,201,0)="SURVIVAL DAYS^CJ8,0^^ ; ^S X="""" D SDA^ONCOCRF S X=$J(X,0,0)"
^DD(165.5,201,9)="^"
^DD(165.5,201,9.01)=""
^DD(165.5,201,9.1)="S X="""" D SDA^ONCOCRF"
^DD(165.5,201,21,0)="^^1^1^2920528^"
^DD(165.5,201,21,1,0)="COMPUTED SURVIVAL DATA IN DAYS."
^DD(165.5,201,"DT")="2900911"
^DD(165.5,202,0)="SURVIVAL MONTHS^CJ8,1^^ ; ^S X="""" D SUR^ONCOCRF S X=$J(X,0,1)"
^DD(165.5,202,9)="^"
^DD(165.5,202,9.01)=""
^DD(165.5,202,9.1)="S X="""" D SUR^ONCOCRF"
^DD(165.5,202,9.2)="X $P(^DD(165.5,200,0),U,5,99) S Y(165.5,202,1)=X S Y(165.5,202,2)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=Y(165.5,202,1),X1=X,X2=$P(Y(165.5,202,2),U,16),X="""" D:X2 ^%DTC:X1 S X=X"
^DD(165.5,202,21,0)="^^1^1^2920528^"
^DD(165.5,202,21,1,0)="COMPUTED SURVIVAL DATA IN MONTHS."
^DD(165.5,202,"DT")="2900911"
^DD(165.5,203,0)="SURVIVAL (YEARS)^CJ8,1^^ ; ^S X="""" D SYR^ONCOCRF S X=$J(X,0,1)"
^DD(165.5,203,9)="^"
^DD(165.5,203,9.01)=""
^DD(165.5,203,9.1)="S X="""" D SYR^ONCOCRF"
^DD(165.5,203,9.2)="X $P(^DD(165.5,200,0),U,5,99) S Y(165.5,203,1)=X S Y(165.5,203,2)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=Y(165.5,203,1),X1=X,X2=$P(Y(165.5,203,2),U,16),X="""" D:X2 ^%DTC:X1 S X=X"
^DD(165.5,203,21,0)="^^1^1^2920528^"
^DD(165.5,203,21,1,0)="COMPUTED SURVIVAL DATA IN YEARS."
^DD(165.5,203,"DT")="2900911"
^DD(165.5,204,0)="WEEKS of FOLLOW-UP^CJ8,0^^ ; ^S X="""" D SWK^ONCOCRF S X=$J(X,0,0)"
^DD(165.5,204,.1)=""
^DD(165.5,204,9)="^"
^DD(165.5,204,9.01)=""
^DD(165.5,204,9.1)="S X="""" D SWK^ONCOCRF"
^DD(165.5,204,9.2)="X $P(^DD(165.5,201,0),U,5,99) S Y(165.5,204,1)=X S Y(165.5,204,3)=$S($D(^ONCO(165.5,D0,0)):^(0),1:"""") S X=Y(165.5,204,1),Y(165.5,204,2)=X S X=$P(Y(165.5,204,3),U,16)"
^DD(165.5,204,21,0)="^^1^1^2920528^"
^DD(165.5,204,21,1,0)="FOLLOW UP IN WEEKS."
^DD(165.5,204,"DT")="2900911"
^DD(165.5,205,0)="OVER-RIDE AGE/SITE/MORPH^S^1:Reviewed;^OVRD;1^Q"
^DD(165.5,205,21,0)="^.001^4^4^3001130^^"
^DD(165.5,205,21,1,0)=""
^DD(165.5,205,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,205,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,205,21,4,0)=""
^DD(165.5,205,"DT")="3001130"
^DD(165.5,206,0)="OVER-RIDE SEQNO/DXCONF^S^1:Reviewed;^OVRD;2^Q"
^DD(165.5,206,21,0)="^.001^4^4^3001130^^"
^DD(165.5,206,21,1,0)=""
^DD(165.5,206,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,206,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,206,21,4,0)=""
^DD(165.5,206,"DT")="3001130"
^DD(165.5,207,0)="OVER-RIDE SITE/LAT/SEQNO^S^1:Reviewed;^OVRD;3^Q"
^DD(165.5,207,21,0)="^^4^4^3000815^"
^DD(165.5,207,21,1,0)=""
^DD(165.5,207,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,207,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,207,21,4,0)=""
^DD(165.5,207,"DT")="3001130"
^DD(165.5,208,0)="OVER-RIDE SURG/DXCONF^S^1:Reviewed;^OVRD;4^Q"
^DD(165.5,208,21,0)="^^4^4^3000815^"
^DD(165.5,208,21,1,0)=""
^DD(165.5,208,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,208,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,208,21,4,0)=""
^DD(165.5,208,"DT")="3001130"
^DD(165.5,209,0)="OVER-RIDE SITE/TYPE^S^1:Reviewed;^OVRD;5^Q"
^DD(165.5,209,21,0)="^^4^4^3000815^"
^DD(165.5,209,21,1,0)=""
^DD(165.5,209,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,209,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,209,21,4,0)=""
^DD(165.5,209,"DT")="3001130"
^DD(165.5,210,0)="OVER-RIDE HISTOLOGY^S^1:Reviewed - allow flags Morphology-Type & Behavior;2:Reviewed - allow flags Dx Conf, Behavior Code;3:Reviewed - conditions 1 & 2 both apply;^OVRD;6^Q"
^DD(165.5,210,21,0)="^^4^4^3000815^"
^DD(165.5,210,21,1,0)=""
^DD(165.5,210,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,210,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,210,21,4,0)=""
^DD(165.5,210,"DT")="3001130"
^DD(165.5,211,0)="OVER-RIDE REPORT SOURCE^S^1:Reviewed;^OVRD;7^Q"
^DD(165.5,211,21,0)="^^4^4^3000815^"
^DD(165.5,211,21,1,0)=""
^DD(165.5,211,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,211,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,211,21,4,0)=""
^DD(165.5,211,"DT")="3001130"
^DD(165.5,212,0)="OVER-RIDE ILL-DEFINE SITE^S^1:Reviewed;^OVRD;8^Q"
^DD(165.5,212,21,0)="^^4^4^3000815^"
^DD(165.5,212,21,1,0)=""
^DD(165.5,212,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,212,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,212,21,4,0)=""
^DD(165.5,212,"DT")="3001130"
^DD(165.5,213,0)="OVER-RIDE LEUK,LYMPHOMA^S^1:Reviewed;^OVRD;9^Q"
^DD(165.5,213,21,0)="^^4^4^3000815^"
^DD(165.5,213,21,1,0)=""
^DD(165.5,213,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,213,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,213,21,4,0)=""
^DD(165.5,213,"DT")="3001130"
^DD(165.5,214,0)="OVER-RIDE SITE/BEHAVIOR^S^1:Reviewed;^OVRD;10^Q"
^DD(165.5,214,21,0)="^^4^4^3000815^"
^DD(165.5,214,21,1,0)=""
^DD(165.5,214,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,214,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,214,21,4,0)=""
^DD(165.5,214,"DT")="3001130"
^DD(165.5,215,0)="OVER-RIDE SITE/EOD/DX DT^S^1:Reviewed;^OVRD;11^Q"
^DD(165.5,215,21,0)="^^4^4^3000815^"
^DD(165.5,215,21,1,0)=""
^DD(165.5,215,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,215,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,215,21,4,0)=""
^DD(165.5,215,"DT")="3001130"
^DD(165.5,216,0)="OVER-RIDE SITE/LAT/EOD^S^1:Reviewed;^OVRD;12^Q"
^DD(165.5,216,21,0)="^^4^4^3000815^"
^DD(165.5,216,21,1,0)=""
^DD(165.5,216,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,216,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,216,21,4,0)=""
^DD(165.5,216,"DT")="3001130"
^DD(165.5,217,0)="OVER-RIDE SITE/LAT/MORPH^S^1:Reviewed;^OVRD;13^Q"
^DD(165.5,217,21,0)="^^4^4^3000815^"
^DD(165.5,217,21,1,0)=""
^DD(165.5,217,21,2,0)="This is one of the thirteen flags used to override certain interfield"
^DD(165.5,217,21,3,0)="and interrecord edits defined by SEER."
^DD(165.5,217,21,4,0)=""
^DD(165.5,217,"DT")="3001130"
^DD(165.5,218,0)="OVER-RIDE SS/NODESPOS^S^1:Reviewed;^OVRD;14^Q"
^DD(165.5,218,21,0)="^.001^3^3^3010727^^"
^DD(165.5,218,21,1,0)=""
^DD(165.5,218,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,218,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,218,"DT")="3010727"
^DD(165.5,219,0)="OVER-RIDE SS/TNM-N^S^1:Reviewed;^OVRD;15^Q"
^DD(165.5,219,21,0)="^^3^3^3010727^"
^DD(165.5,219,21,1,0)=""
^DD(165.5,219,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,219,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,219,"DT")="3010727"
^DD(165.5,220,0)="OVER-RIDE SS/TNM-M^S^1:Reviewed;^OVRD;16^Q"
^DD(165.5,220,21,0)="^^3^3^3010727^"
^DD(165.5,220,21,1,0)=""
^DD(165.5,220,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,220,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,220,"DT")="3010727"
^DD(165.5,221,0)="OVER-RIDE SS/DISMET1^S^1:Reviewed;^OVRD;17^Q"
^DD(165.5,221,21,0)="^^3^3^3010727^"
^DD(165.5,221,21,1,0)=""
^DD(165.5,221,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,221,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,221,"DT")="3010727"
^DD(165.5,222,0)="OVER-RIDE ACSN/CLASS/SEQ^S^1:Reviewed;^OVRD;18^Q"
^DD(165.5,222,21,0)="^^3^3^3010727^"
^DD(165.5,222,21,1,0)=""
^DD(165.5,222,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,222,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,222,"DT")="3010727"
^DD(165.5,223,0)="OVER-RIDE HOSPSEQ/DXCONF^S^1:Reviewed;^OVRD;19^Q"
^DD(165.5,223,21,0)="^^3^3^3010727^"
^DD(165.5,223,21,1,0)=""
^DD(165.5,223,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,223,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,223,"DT")="3010727"
^DD(165.5,224,0)="OVER-RIDE COC-SITE/TYPE^S^1:Reviewed;^OVRD;20^Q"
^DD(165.5,224,21,0)="^^3^3^3010727^"
^DD(165.5,224,21,1,0)=""
^DD(165.5,224,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,224,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,224,"DT")="3010727"
^DD(165.5,225,0)="OVER-RIDE HOSPSEQ/SITE^S^1:Reviewed;^OVRD;21^Q"
^DD(165.5,225,21,0)="^^3^3^3010727^"
^DD(165.5,225,21,1,0)=""
^DD(165.5,225,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,225,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,225,"DT")="3010727"
^DD(165.5,226,0)="OVER-RIDE SITE/TNM-STGGRP^S^1:Reviewed;^OVRD;22^Q"
^DD(165.5,226,21,0)="^^3^3^3010727^"
^DD(165.5,226,21,1,0)=""
^DD(165.5,226,21,2,0)="This is one of the flags used to override certain interfield and"
^DD(165.5,226,21,3,0)="interrecord edits defined by NAACCR."
^DD(165.5,226,"DT")="3010727"
^DD(165.5,300,0)="PATIENT REFERRED FOR TREATMENT^S^1:Another hospital;2:Staff physician office;3:Non-staff physician office;4:Free standing facility;5:Other;8:Not applicable;9:Unknown;^BLA1;1^Q"
^DD(165.5,300,21,0)="^^2^2^2960826^"
^DD(165.5,300,21,1,0)="If the patient was referred elsewhere for part or all of the first course"
^DD(165.5,300,21,2,0)="of therapy, record the type of facility to which the referral was made."
^DD(165.5,300,"DT")="2960906"
^DD(165.5,301,0)="LENGTH OF STAY^NJ3,0O^^BLA1;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,301,2)="S Y(0)=Y S Y=$S(Y=888:""Never an inpatient"",Y=999:""Unknown"",Y=1:Y_"" day"",1:Y_"" days"")"
^DD(165.5,301,2.1)="S Y=$S(Y=888:""Never an inpatient"",Y=999:""Unknown"",Y=1:Y_"" day"",1:Y_"" days"")"
^DD(165.5,301,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(165.5,301,21,0)="^^5^5^2960905^^"
^DD(165.5,301,21,1,0)="Record the length of stay in days for inpatient cases only.  If the"
^DD(165.5,301,21,2,0)="patient has multiple inpatient stays, record the length of the admission"
^DD(165.5,301,21,3,0)="for the most definitive treatment.  If the patient was never an inpatient"
^DD(165.5,301,21,4,0)="at your institution, record 888.  If the length of stay cannot be"
^DD(165.5,301,21,5,0)="determined, code as 999 (unknown)."
^DD(165.5,301,"DT")="2960906"
^DD(165.5,302,0)="HISTORY OF CERVIX CA (PT)^S^0:No;1:Yes;9:Unknown;^BLA1;3^Q"
^DD(165.5,302,21,0)="^^3^3^2960826^^"
^DD(165.5,302,21,1,0)="Record whether cervix cancer was diagnosed prior to the patient's bladder"
^DD(165.5,302,21,2,0)="cancer or simultaneously with the bladder cancer.  Simultaneous diagnosis"
^DD(165.5,302,21,3,0)="is within six months of the diagnosis of bladder cancer."
^DD(165.5,302,"DT")="2960906"
^DD(165.5,303,0)="HISTORY OF COLON CA (PT)^S^0:No;1:Yes;9:Unknown;^BLA1;4^Q"
^DD(165.5,303,21,0)="^^3^3^2960826^"
^DD(165.5,303,21,1,0)="Record whether colon cancer was diagnosed prior to the patient's bladder"
^DD(165.5,303,21,2,0)="cancer or simultaneously with the bladder cancer.  Simultaneous diagnosis"
^DD(165.5,303,21,3,0)="is within six months of the diagnosis of bladder cancer."
^DD(165.5,303,"DT")="2960906"
^DD(165.5,304,0)="HISTORY OF BLADDER CA (PT)^S^0:No;1:Yes;9:Unknown;^BLA1;5^Q"
^DD(165.5,304,21,0)="^^3^3^2960826^^"
^DD(165.5,304,21,1,0)="Record whether bladder cancer was diagnosed prior to the patient's bladder"
^DD(165.5,304,21,2,0)="cancer or simultaneously with the bladder cancer.  Simultaneous diagnosis"
^DD(165.5,304,21,3,0)="is within six months of the diagnosis of bladder cancer."
^DD(165.5,304,"DT")="2960906"
^DD(165.5,305,0)="HISTORY OF HEAD & NECK CA (PT)^S^0:No;1:Yes;9:Unknown;^BLA1;6^Q"
^DD(165.5,305,21,0)="^^3^3^2960826^"
^DD(165.5,305,21,1,0)="Record whether head and neck cancer was diagnosed prior to the patient's"
^DD(165.5,305,21,2,0)="bladder cancer or simultaneously with the bladder cancer.  Simultaneous"
^DD(165.5,305,21,3,0)="diagnosis is within six months of the diagnosis of bladder cancer."
^DD(165.5,305,"DT")="2960906"
^DD(165.5,306,0)="HISTORY OF KIDNEY CA (PT)^S^0:No;1:Yes;9:Unknown;^BLA1;7^Q"
^DD(165.5,306,21,0)="^^3^3^2960826^"
^DD(165.5,306,21,1,0)="Record whether kidney cancer was diagnosed prior to the patient's bladder"
^DD(165.5,306,21,2,0)="cancer or simultaneously with the bladder cancer.  Simultaneous diagnosis"
^DD(165.5,306,21,3,0)="is within six months of the diagnosis of bladder cancer."
^DD(165.5,306,"DT")="2960906"
^DD(165.5,307,0)="HISTORY OF PROSTATE CA (PT)^S^0:No;1:Yes;9:Unknown;^BLA1;8^Q"
^DD(165.5,307,21,0)="^^3^3^2960826^"
^DD(165.5,307,21,1,0)="Record whether prostate cancer was diagnosed prior to the patient's bladder"
^DD(165.5,307,21,2,0)="cancer or simultaneously with the bladder cancer.  Simultaneous diagnosis"
^DD(165.5,307,21,3,0)="is within six months of the diagnosis of bladder cancer."
^DD(165.5,307,"DT")="2960906"
^DD(165.5,308,0)="HISTORY OF OTHER CA (PT)^S^0:No;1:Yes;9:Unknown;^BLA1;9^Q"
^DD(165.5,308,21,0)="^^3^3^2960906^^"
^DD(165.5,308,21,1,0)="Record whether other cancer was diagnosed prior to the patient's bladder"
^DD(165.5,308,21,2,0)="cancer or simultaneously with the bladder cancer.  Simultaneous diagnosis"
^DD(165.5,308,21,3,0)="is within six months of the diagnosis of bladder cancer."
^DD(165.5,308,"DT")="2960906"
^DD(165.5,309,0)="HISTORY OF BLADDER CA (FAM)^S^0:No;1:Yes;9:Unknown;^BLA1;10^Q"
^DD(165.5,309,21,0)="^^3^3^2960827^^"
^DD(165.5,309,21,1,0)="Record any familial history of bladder cancer documented in the medical"
^DD(165.5,309,21,2,0)="record.  If the record does not mention familial history of bladder cancer,"
^DD(165.5,309,21,3,0)="code 9 (unknown)."
^DD(165.5,309,"DT")="2960906"
^DD(165.5,310,0)="HISTORY OF COLON CA (FAM)^S^0:No;1:Yes;9:Unknown;^BLA1;11^Q"
^DD(165.5,310,21,0)="^^3^3^2960826^"
^DD(165.5,310,21,1,0)="Record any familial history of colon cancer documented in the medical"
^DD(165.5,310,21,2,0)="record.  If the record does not mention familial history of colon cancer,"
^DD(165.5,310,21,3,0)="code 9 (unknown)."
^DD(165.5,310,"DT")="2960906"
^DD(165.5,311,0)="HISTORY OF LUNG CA (FAM)^S^0:No;1:Yes;9:Unknown;^BLA1;12^Q"
^DD(165.5,311,21,0)="^^3^3^2960826^"
^DD(165.5,311,21,1,0)="Record any familial history of lung cancer documented in the medical"
^DD(165.5,311,21,2,0)="record.  If the record does not mention familial history of lung cancer,"
^DD(165.5,311,21,3,0)="code 9 (unknown)."
^DD(165.5,311,"DT")="2960906"
^DD(165.5,312,0)="HISTORY OF PROSTATE CA (FAM)^S^0:No;1:Yes;9:Unknown;^BLA1;13^Q"
^DD(165.5,312,21,0)="^^3^3^2960826^"
^DD(165.5,312,21,1,0)="Record any familial history of prostate cancer documented in the medical"
^DD(165.5,312,21,2,0)="record.  If the record does not mention familial history of prostate cancer,"
^DD(165.5,312,21,3,0)="code 9 (unknown)."
^DD(165.5,312,"DT")="2960906"
^DD(165.5,313,0)="HISTORY OF OTHER CA (FAM)^S^0:No;1:Yes;9:Unknown;^BLA1;14^Q"
^DD(165.5,313,21,0)="^^3^3^2960906^^"
^DD(165.5,313,21,1,0)="Record any familial history of other cancer documented in the medical"
^DD(165.5,313,21,2,0)="record.  If the record does not mention familial history of other cancer,"
^DD(165.5,313,21,3,0)="code 9 (unknown)."
^DD(165.5,313,"DT")="2960906"
^DD(165.5,314,0)="SMOKING HISTORY^NJ2,0O^^BLA1;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,314,2)="S Y(0)=Y S Y=$S(Y=0:""Never smoked"",$L(Y)=1:""0""_Y,Y=98:""98 Currently does not smoke, but did previously"",Y=99:""99 Unknown"",1:Y)"
^DD(165.5,314,2.1)="S Y=$S(Y=0:""Never smoked"",$L(Y)=1:""0""_Y,Y=98:""98 Currently does not smoke, but did previously"",Y=99:""99 Unknown"",1:Y)"
^DD(165.5,314,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,314,21,0)="^^5^5^2960827^"
^DD(165.5,314,21,1,0)="Record the actual number of packs of cigarettes smoked per day.  A zero"
^DD(165.5,314,21,2,0)="must precede single-digit packs.  If one or less packs per day are smoked,"
^DD(165.5,314,21,3,0)="code as 01.  If the patient was never a smoker, code 00.  If the patient"
^DD(165.5,314,21,4,0)="currently does not smoke, but did previously, code as 98.  If the medical"
^DD(165.5,314,21,5,0)="record does not mention tobacco use, code as 99 (unknown)."
^DD(165.5,314,"DT")="2970424"
^DD(165.5,315,0)="DURATION OF SMOKING HISTORY^NJ2,0O^^BLA1;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,315,2)="S Y(0)=Y S Y=$S(Y=0:""Never smoked"",$L(Y)=1:""0""_Y_"" years"",Y=98:""Currently does not smoke, but did previously"",Y=99:""Unknown"",1:Y_"" years"")"
^DD(165.5,315,2.1)="S Y=$S(Y=0:""Never smoked"",$L(Y)=1:""0""_Y_"" years"",Y=98:""Currently does not smoke, but did previously"",Y=99:""Unknown"",1:Y_"" years"")"
^DD(165.5,315,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,315,21,0)="^^3^3^2960827^"
^DD(165.5,315,21,1,0)="Record the number of years the patient has smoked.  A zero must precede"
^DD(165.5,315,21,2,0)="single-digit years.  If the patient never smoked, code 00.  If the medical"
^DD(165.5,315,21,3,0)="record does not mention duration of years, code 99 (unknown)."
^DD(165.5,315,"DT")="2960906"
^DD(165.5,316,0)="DURATION OF SMOKE FREE HISTORY^NJ2,0O^^BLA1;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,316,2)="S Y(0)=Y S Y=$S(Y=0:""Never smoked"",Y=88:""Not applicable"",Y=99:""Unknown"",Y=1:Y_"" year"",1:Y_"" years"")"
^DD(165.5,316,2.1)="S Y=$S(Y=0:""Never smoked"",Y=88:""Not applicable"",Y=99:""Unknown"",Y=1:Y_"" year"",1:Y_"" years"")"
^DD(165.5,316,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,316,21,0)="^^5^5^2960827^"
^DD(165.5,316,21,1,0)="If the patient was a previous smoker and no longer smokes, record the"
^DD(165.5,316,21,2,0)="number of years since his/her last cigarette.  A zero must precede single-"
^DD(165.5,316,21,3,0)="digit years.  If the patient never smoked, code 00.  If the patient never"
^DD(165.5,316,21,4,0)="stopped smoking code 88 (not applicable).  If the duration is unknown, code"
^DD(165.5,316,21,5,0)="99 (unknown)."
^DD(165.5,316,"DT")="2960906"
^DD(165.5,317,0)="GROSS HEMATURIA^S^0:No;1:Yes;9:Unknown;^BLA1;18^Q"
^DD(165.5,317,21,0)="^^2^2^2960827^"
^DD(165.5,317,21,1,0)="Record whether the patient was presented with a clinical finding of gross"
^DD(165.5,317,21,2,0)="hematuria.  If not present, code 0 (no)."
^DD(165.5,317,"DT")="2960906"
^DD(165.5,318,0)="MICROSCOPIC HEMATURIA^S^0:No;1:Yes;9:Unknown;^BLA1;19^Q"
^DD(165.5,318,21,0)="^^2^2^2960909^^"
^DD(165.5,318,21,1,0)="Record whether the patient was presented with a clinical finding of"
^DD(165.5,318,21,2,0)="microscopic hematuria.  If not present, code 0 (no)."
^DD(165.5,318,"DT")="2960906"
^DD(165.5,319,0)="URINARY FREQUENCY^S^0:No;1:Yes;9:Unknown;^BLA1;20^Q"
^DD(165.5,319,21,0)="^^2^2^2960827^"
^DD(165.5,319,21,1,0)="Record whether the patient was presented with a clinical finding of"
^DD(165.5,319,21,2,0)="urinary frequency.  If not present, code 0 (no)."
^DD(165.5,319,"DT")="2960906"
^DD(165.5,320,0)="BLADDER IRRITABILITY^S^0:No;1:Yes;9:Unknown;^BLA1;21^Q"
^DD(165.5,320,21,0)="^^2^2^2960827^"
^DD(165.5,320,21,1,0)="Record whether the patient was presented with a clinical finding of"
^DD(165.5,320,21,2,0)="bladder irritability.  If not present, code 0 (no)."
^DD(165.5,320,"DT")="2960906"
^DD(165.5,321,0)="DYSURIA^S^0:No;1:Yes;9:Unknown;^BLA1;22^Q"
^DD(165.5,321,21,0)="^^2^2^2960827^"
^DD(165.5,321,21,1,0)="Record whether the patient was presented with a clinical finding of"
^DD(165.5,321,21,2,0)="dysuria.  If not present, code 0 (no)."
^DD(165.5,321,"DT")="2960906"
^DD(165.5,322,0)="OTHER CLINICAL DETECTIONS^S^0:No;1:Yes;9:Unknown;^BLA1;23^Q"
^DD(165.5,322,21,0)="^^2^2^2960828^^"
^DD(165.5,322,21,1,0)="Record whether the patient was presented with other clinical findings.  If"
^DD(165.5,322,21,2,0)="not present, code 0 (no)."
^DD(165.5,322,"DT")="2960906"
^DD(165.5,323,0)="ONSET OF SYMPTOMS^DXO^^BLA1;24^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) W !,""Future dates are not allowed"""
^DD(165.5,323,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,323,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,323,3)=""
^DD(165.5,323,21,0)="^^5^5^2970523^^"
^DD(165.5,323,21,1,0)=""
^DD(165.5,323,21,2,0)="Record the date (mm/dd/ccyy) on which the symptoms were noted to begin."
^DD(165.5,323,21,3,0)="If the patient did not experience any symptoms, or if the documentation"
^DD(165.5,323,21,4,0)="of symptoms was not recorded, enter date as 00/00/0000.  If symptoms were"
^DD(165.5,323,21,5,0)="present, but date of onset was unknown, record date as 99/99/9999. "
^DD(165.5,323,"DT")="2971015"
^DD(165.5,324,0)="DURATION OF GROSS HEMATURIA^NJ2,0O^^BLA1;25^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,324,2)="S Y(0)=Y S Y=$S(Y=0:""Symptoms not present"",Y=1:Y_"" month"",Y=99:""Unknown"",1:Y_"" months"")"
^DD(165.5,324,2.1)="S Y=$S(Y=0:""Symptoms not present"",Y=1:Y_"" month"",Y=99:""Unknown"",1:Y_"" months"")"
^DD(165.5,324,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,324,21,0)="^^4^4^2960827^"
^DD(165.5,324,21,1,0)="Record the duration (in months) of the patient's symptoms of gross"
^DD(165.5,324,21,2,0)="hematuria prior to the diagnosis of cancer.  If symptoms were not "
^DD(165.5,324,21,3,0)="present, code 00.  If symptoms were present and the duration unknown,"
^DD(165.5,324,21,4,0)="code 99."
^DD(165.5,324,"DT")="2960906"
^DD(165.5,325,0)="DURATION OF DYSURIA^NJ2,0O^^BLA1;26^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,325,2)="S Y(0)=Y S Y=$S(Y=0:""Symptoms not present"",Y=1:Y_"" month"",Y=99:""Unknown"",1:Y_"" months"")"
^DD(165.5,325,2.1)="S Y=$S(Y=0:""Symptoms not present"",Y=1:Y_"" month"",Y=99:""Unknown"",1:Y_"" months"")"
^DD(165.5,325,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,325,21,0)="^^3^3^2960827^"
^DD(165.5,325,21,1,0)="Record the duration (in months) of the patient's symptoms of dysuria"
^DD(165.5,325,21,2,0)="prior to the diagnosis of cancer.  If symptoms were not present, code"
^DD(165.5,325,21,3,0)="00.  If symptoms were present and the duration unknown, code 99."
^DD(165.5,325,"DT")="2960906"
^DD(165.5,326,0)="BIMANAUL EXAM OF BLADDER^S^0:Not done;1:Done;9:Unknown if done;^BLA1;27^Q"
^DD(165.5,326,21,0)="^^2^2^2960918^^"
^DD(165.5,326,21,1,0)="Record whether a bimanual examination of the bladder was used to diagnose"
^DD(165.5,326,21,2,0)="the bladder cancer.  If the procedure was not performed, code 0 (not done)."
^DD(165.5,326,"DT")="2960918"
^DD(165.5,327,0)="CYSTOSCOPY WITH BIOPSY^S^0:Not done;1:Done;9:Unknown if done;^BLA1;28^Q"
^DD(165.5,327,21,0)="^^2^2^2960918^^"
^DD(165.5,327,21,1,0)="Record whether a cystoscopy with biopsy was used to diagnose the bladder"
^DD(165.5,327,21,2,0)="cancer.  If the procedure was not performed, code 0 (not done)."
^DD(165.5,327,"DT")="2960918"
^DD(165.5,328,0)="CYSTOSCOPY WITHOUT BIOPSY^S^0:Not done;1:Done;9:Unknown if done;^BLA1;29^Q"
^DD(165.5,328,21,0)="^^2^2^2960918^^"
^DD(165.5,328,21,1,0)="Record whether a cystoscopy without biopsy was used to diagnose the"
^DD(165.5,328,21,2,0)="bladder cancer.  If the procedure was not performed, code 0 (not done)."
^DD(165.5,328,"DT")="2960918"
^DD(165.5,329,0)="FLOW CYTOMETRY^S^0:Not done;1:Done;9:Unknown if done;^BLA1;30^Q"
^DD(165.5,329,21,0)="^^2^2^2960918^^^^"
^DD(165.5,329,21,1,0)="Record whether a flow cytometry was used to diagnose this cancer."
^DD(165.5,329,21,2,0)="If the procedure was not performed, code 0 (not done)."
^DD(165.5,329,"DT")="2960918"
^DD(165.5,330,0)="INTRAVENOUS PYELOGRAM (BLA)^S^0:Not done;1:Done;9:Unknown if done;^BLA1;31^Q"
^DD(165.5,330,21,0)="^^2^2^2970214^^^^"
^DD(165.5,330,21,1,0)="Record whether an intravenous pyelogram was used to diagnose the bladder"
^DD(165.5,330,21,2,0)="cancer.  If the procedure was not performed, code 0 (not done)."
^DD(165.5,330,"DT")="2970213"
^DD(165.5,331,0)="URINE CYTOLOGY^S^0:Not done;1:Done;9:Unknown if done;^BLA1;32^Q"
^DD(165.5,331,21,0)="^^2^2^2960918^^"
^DD(165.5,331,21,1,0)="Record whether a urine cytology was used to diagnose the bladder cancer."
^DD(165.5,331,21,2,0)="If the procedure was not performed, code 0 (not done)."
^DD(165.5,331,"DT")="2960918"
^DD(165.5,332,0)="URINALYSIS^S^0:Not done;1:Done;9:Unknown if done;^BLA1;33^Q"
^DD(165.5,332,21,0)="^^2^2^2960918^^"
^DD(165.5,332,21,1,0)="Record whether a urinalysis was used to diagnose the bladder cancer."
^DD(165.5,332,21,2,0)="If the procedure was not performed, code 0 (not done)."
^DD(165.5,332,"DT")="2960918"
^DD(165.5,333,0)="OTHER DIAGNOSTIC PROCEDURES^S^0:Not done;1:Done;9:Unknown if done;^BLA1;34^Q"
^DD(165.5,333,21,0)="^^2^2^2961025^^^^"
^DD(165.5,333,21,1,0)="Record whether other diagnostic procedures were used to diagnose the"
^DD(165.5,333,21,2,0)="bladder cancer.  If no other procedure was performed, code 0 (not done)."
^DD(165.5,333,"DT")="2960918"
^DD(165.5,334,0)="SPECIALTY MAKING DIAGNOSIS^S^0:Internal Medicine;1:Family Practice;2:General Surgeon;3:Surgical Oncologist;4:Urologist;5:Urologic Oncologist;6:Medical Oncologist;7:Radiation Oncologist;8:Other;9:Unknown;^BLA1;35^Q"
^DD(165.5,334,21,0)="^^2^2^2960827^"
^DD(165.5,334,21,1,0)="Provide the specialty of the practitioner (other than the pathologist) who"
^DD(165.5,334,21,2,0)="diagnosed this case of bladder cancer."
^DD(165.5,334,"DT")="2960906"
^DD(165.5,335,0)="ABDOMINAL ULTRASOUND^S^0:Not done;1:Done;9:Unknown;^BLA1;36^Q"
^DD(165.5,335,21,0)="^^2^2^2960828^^"
^DD(165.5,335,21,1,0)="Record whether an abdominal ultrasound procedure was performed to stage"
^DD(165.5,335,21,2,0)="this case."
^DD(165.5,335,"DT")="2960906"
^DD(165.5,336,0)="BONE IMAGING^S^0:Not done;1:Done;9:Unknown;^BLA1;37^Q"
^DD(165.5,336,21,0)="^^1^1^2960828^^"
^DD(165.5,336,21,1,0)="Record whether a bone imaging procedure was performed to stage this case."
^DD(165.5,336,"DT")="2960906"
^DD(165.5,337,0)="CHEST X-RAY (BLADDER)^S^0:Not done;1:Done;9:Unknown;^BLA1;38^Q"
^DD(165.5,337,21,0)="^^1^1^2961025^^^^"
^DD(165.5,337,21,1,0)="Record whether a chest x-ray was performed to stage this case."
^DD(165.5,337,"DT")="2961025"
^DD(165.5,338,0)="CT CHEST/LUNG^S^0:Not done;1:Done;9:Unknown;^BLA1;39^Q"
^DD(165.5,338,21,0)="^^2^2^2960828^"
^DD(165.5,338,21,1,0)="Record whether a CT chest/lung procedure was performed to stage this"
^DD(165.5,338,21,2,0)="case."
^DD(165.5,338,"DT")="2960906"
^DD(165.5,339,0)="CT ABDOMEN/PELVIS^S^0:Not done;1:Done;9:Unknown;^BLA1;40^Q"
^DD(165.5,339,21,0)="^^2^2^2960828^"
^DD(165.5,339,21,1,0)="Record whether a CT abdomen/pelvis procedure was performed to stage this"
^DD(165.5,339,21,2,0)="case."
^DD(165.5,339,"DT")="2960906"
^DD(165.5,340,0)="CT OTHER^S^0:Not done;1:Done;9:Unknown;^BLA1;41^Q"
^DD(165.5,340,21,0)="^^1^1^2960828^"
^DD(165.5,340,21,1,0)="Record whether other CT procedures were performed to stage this case."
^DD(165.5,340,"DT")="2960906"
^DD(165.5,341,0)="MRI PELVIS/ABDOMEN^S^0:Not done;1:Done;9:Unknown;^BLA1;42^Q"
^DD(165.5,341,21,0)="^^2^2^2960828^"
^DD(165.5,341,21,1,0)="Record whether an MRI pelvis/abdomen procedure was performed to stage this"
^DD(165.5,341,21,2,0)="case."
^DD(165.5,341,"DT")="2960906"
^DD(165.5,342,0)="MRI OTHER^S^0:Not done;1:Done;9:Unknown;^BLA1;43^Q"
^DD(165.5,342,21,0)="^^1^1^2960909^^^"
^DD(165.5,342,21,1,0)="Record whether other MRI procedures were performed to stage this case."
^DD(165.5,342,"DT")="2960906"
^DD(165.5,343,0)="OTHER STAGING PROCEDURES^S^0:Not done;1:Done;9:Unknown;^BLA1;44^Q"
^DD(165.5,343,21,0)="^^1^1^2960828^"
^DD(165.5,343,21,1,0)="Record whether other staging procedures were performed to stage this case."
^DD(165.5,343,"DT")="2960906"
^DD(165.5,344,0)="PRESENCE OF HYDRONEPHROSIS^S^0:No;1:Yes;9:Unknown;^BLA1;45^Q"
^DD(165.5,344,21,0)="^^2^2^2960828^"
^DD(165.5,344,21,1,0)="Record whether the patient was noted at any time to have hydronephrosis."
^DD(165.5,344,21,2,0)="If the medical record does not mention hydronephrosis, code as 9 (unknown)."
^DD(165.5,344,"DT")="2960906"
^DD(165.5,345,0)="PRESENCE OF MULTIPLE TUMORS^S^0:No;1:Yes;9:Unknown;^BLA1;46^Q"
^DD(165.5,345,21,0)="^^2^2^2960828^"
^DD(165.5,345,21,1,0)="Record whether the presence of multiple primary bladder tumors was detected"
^DD(165.5,345,21,2,0)="either clinically or pathologically."
^DD(165.5,345,"DT")="2960906"
^DD(165.5,346,0)="PROTOCOL ELIGIBILITY STATUS^S^0:Not available;1:On protocol;2:Ineligible (age,stage,etc.);3:Ineligible (comorbidity, preexist cond);4:Entered but withdrawn;6:Eligible, not entered;7:Eligible, refused;8:Not recommended;9:Unknown;^BLA2;1^Q"
^DD(165.5,346,21,0)="^^2^2^2970522^^^^"
^DD(165.5,346,21,1,0)="Record the eligibility status of the patient to be entered into a protocol."
^DD(165.5,346,21,2,0)="Analysis of protocol eligibility status assists program planning."
^DD(165.5,346,"DT")="2970522"
^DD(165.5,347,0)="MANAGING PHYSICIAN (PRIMARY)^P166.12'O^ONCO(166.12,^BLA2;2^Q"
^DD(165.5,347,2)="S Y(0)=Y S Y=$P($G(^ONCO(166.12,+Y,0)),""^"",2)"
^DD(165.5,347,2.1)="S Y=$P($G(^ONCO(166.12,+Y,0)),""^"",2)"
^DD(165.5,347,3)=""
^DD(165.5,347,21,0)="^^3^3^2960828^^^^"
^DD(165.5,347,21,1,0)="Record the specialty of the primary-care physician who managed the"
^DD(165.5,347,21,2,0)="patient upon discharge.  If it cannot be determined who the primary"
^DD(165.5,347,21,3,0)="managing physician is, code 99 (unknown)."
^DD(165.5,347,"DT")="2960906"
^DD(165.5,348,0)="MANAGING PHYSICIAN (SECONDARY)^P166.12'O^ONCO(166.12,^BLA2;3^Q"
^DD(165.5,348,2)="S Y(0)=Y S Y=$P($G(^ONCO(166.12,+Y,0)),""^"",2)"
^DD(165.5,348,2.1)="S Y=$P($G(^ONCO(166.12,+Y,0)),""^"",2)"
^DD(165.5,348,3)=""
^DD(165.5,348,21,0)="^^3^3^2960828^^^^"
^DD(165.5,348,21,1,0)="Record the specialty of the secondary-care physician who managed the"
^DD(165.5,348,21,2,0)="patient upon discharge.  If it cannot be determined who the secondary"
^DD(165.5,348,21,3,0)="managing physician is, code 99 (unknown)."
^DD(165.5,348,"DT")="2960906"
^DD(165.5,349,0)="TUMOR RESECTION DURING TURB^S^1:Visibly complete resection;2:Visibly incomplete resection;8:Not applicable;9:Unknown;^BLA2;4^Q"
^DD(165.5,349,21,0)="^^5^5^2960806^^^^"
^DD(165.5,349,21,1,0)="For all bladder cases undergoing a transurethral resection of the bladder"
^DD(165.5,349,21,2,0)="(code 10) for the first course of treatment, record whether or not a tumor"
^DD(165.5,349,21,3,0)="was grossly visible or not after resection.  This information should be"
^DD(165.5,349,21,4,0)="found in the operative report.  For primary tumors of the prostatic utricle"
^DD(165.5,349,21,5,0)="(C68.0), code 8 (not applicable)."
^DD(165.5,349,"DT")="2960906"
^DD(165.5,350,0)="TYPE OF URINARY DIVERSION^S^1:Ileoconduit;2:Continent cutaneous;3:Neobladder;8:Not applicable;9:Unknown;^BLA2;5^Q"
^DD(165.5,350,21,0)="^^4^4^2960828^"
^DD(165.5,350,21,1,0)="If cancer-directed surgery codes 20-70 are reported, code the type of"
^DD(165.5,350,21,2,0)="urinary diversion performed.  This information should be found in the"
^DD(165.5,350,21,3,0)="operative report.  For primary tumors of the prostatic utricle (C68.0),"
^DD(165.5,350,21,4,0)="code 8 (not applicable)."
^DD(165.5,350,"DT")="2960906"
^DD(165.5,351,0)="PELVIC LYMPH NODE DISSECT (BL)^S^0:Not done;1:Done;8:Not applicable;9:Unknown;^BLA2;6^Q"
^DD(165.5,351,21,0)="^^5^5^2961025^^"
^DD(165.5,351,21,1,0)="If cancer-directed surgery code 70 is reported, code whether a pelvic"
^DD(165.5,351,21,2,0)="lymph node dissection for radical surgery was performed.  This information"
^DD(165.5,351,21,3,0)="should be obtained from the operative and pathology reports.  If the"
^DD(165.5,351,21,4,0)="patient had a type of cancer-directed surgery other than a code 70, code 8"
^DD(165.5,351,21,5,0)="(not applicable)."
^DD(165.5,351,"DT")="2961025"
^DD(165.5,352,0)="BLEEDING REQUIRING TRANSFUSION^S^0:No;1:Yes;9:Unknown;^BLA2;7^Q"
^DD(165.5,352,21,0)="^^2^2^2960829^^"
^DD(165.5,352,21,1,0)="Record whether this surgical complication resulted from operation.  If this"
^DD(165.5,352,21,2,0)="complication did not occur, code 0 (none)."
^DD(165.5,352,"DT")="2960906"
^DD(165.5,353,0)="DEEP VENOUS THROMBOSIS^S^0:No;1:Yes;9:Unknown;^BLA2;8^Q"
^DD(165.5,353,21,0)="^^2^2^2960829^"
^DD(165.5,353,21,1,0)="Record whether this surgical complication resulted from operation.  If this"
^DD(165.5,353,21,2,0)="complication did not occur, code 0 (none)."
^DD(165.5,353,"DT")="2960906"
^DD(165.5,354,0)="MYOCARDIAL INFARCTION (MI)^S^0:No;1:Yes;9:Unknown;^BLA2;9^Q"
^DD(165.5,354,21,0)="^.001^3^3^3000530^^^^"
^DD(165.5,354,21,1,0)=""
^DD(165.5,354,21,2,0)="This field describes a patient's prior medical condition."
^DD(165.5,354,21,3,0)=""
^DD(165.5,354,"DT")="3000114"
^DD(165.5,355,0)="PELVIC ABSCESS^S^0:No;1:Yes;9:Unknown;^BLA2;10^Q"
^DD(165.5,355,21,0)="^^2^2^2960829^"
^DD(165.5,355,21,1,0)="Record whether this surgical complication resulted from operation.  If this"
^DD(165.5,355,21,2,0)="complication did not occur, code 0 (none)."
^DD(165.5,355,"DT")="2960906"
^DD(165.5,356,0)="PNEUMONIA REQ ANTIBIOTICS^S^0:No;1:Yes;9:Unknown;^BLA2;11^Q"
^DD(165.5,356,21,0)="^^2^2^2960829^"
^DD(165.5,356,21,1,0)="Record whether this surgical complication resulted from operation.  If this"
^DD(165.5,356,21,2,0)="complication did not occur, code 0 (none)."
^DD(165.5,356,"DT")="2960906"
^DD(165.5,357,0)="POST-OPERATIVE DEATH^S^0:No;1:Yes;9:Unknown;^BLA2;12^Q"
^DD(165.5,357,21,0)="^^2^2^2960829^"
^DD(165.5,357,21,1,0)="Record whether this surgical complication resulted from operation.  If this"
^DD(165.5,357,21,2,0)="complication did not occur, code 0 (none)."
^DD(165.5,357,"DT")="2960906"
^DD(165.5,358,0)="PULMONARY EMBOLISM/THROMBOSIS^S^0:No;1:Yes;9:Unknown;^BLA2;13^Q"
^DD(165.5,358,21,0)="^^2^2^2960829^"
^DD(165.5,358,21,1,0)="Record whether this surgical complication resulted from operation.  If this"
^DD(165.5,358,21,2,0)="complication did not occur, code 0 (none)."
^DD(165.5,358,"DT")="2960906"
^DD(165.5,359,0)="REOPERATION^S^0:No;1:Yes;9:Unknown;^BLA2;14^Q"
^DD(165.5,359,21,0)="^^2^2^2960829^"
^DD(165.5,359,21,1,0)="Record whether this surgical complication resulted from operation.  If this"
^DD(165.5,359,21,2,0)="complication did not occur, code 0 (none)."
^DD(165.5,359,"DT")="2960906"
^DD(165.5,360,0)="OTHER SURGICAL COMPLICATIONS^S^0:No;1:Yes;8:NA, surgery not performed;9:Unknown;^BLA2;15^Q"
^DD(165.5,360,21,0)="^.001^5^5^3000327^^^^"
^DD(165.5,360,21,1,0)=""
^DD(165.5,360,21,2,0)="This field describes a complication or event that occurred after surgery"
^DD(165.5,360,21,3,0)="of the primary site and before the date of patient discharge from the"
^DD(165.5,360,21,4,0)="hospital."
^DD(165.5,360,21,5,0)=""
^DD(165.5,360,"DT")="3000327"
^DD(165.5,361,0)="DATE RADIATION ENDED^DXO^^BLA2;16^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,361,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,361,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,361,3)="*** DATE RADIATION ENDED MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,361,21,0)="^.001^5^5^3030128^^^^"
^DD(165.5,361,21,1,0)=""
^DD(165.5,361,21,2,0)="The date on which the patient completes or receives"
^DD(165.5,361,21,3,0)="the last radiation treatment at any facility."
^DD(165.5,361,21,4,0)=""
^DD(165.5,361,21,5,0)="For further information see FORDS pages 166-167."
^DD(165.5,361,"DT")="3000331"
^DD(165.5,362,0)="TOTAL RAD (cGy/rad) DOSE^NJ5,0O^^BLA2;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,362,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,362,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,362,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,362,21,0)="^^4^4^2960829^"
^DD(165.5,362,21,1,0)="Record the total external rad dose and brachytherapy dosage given to all"
^DD(165.5,362,21,2,0)="sites treated, including boost dosage.  If the patient did not receive"
^DD(165.5,362,21,3,0)="radiation therapy, code 00000.  If it is known that the patient received"
^DD(165.5,362,21,4,0)="radiation therapy but the amount is unknown, code 99999."
^DD(165.5,362,"DT")="2960829"
^DD(165.5,363,0)="REGIONAL TREATMENT MODALITY^*P166.13'O^ONCO(166.13,^BLA2;18^S DIC(""S"")=""I ((+$P(^(0),U,1)<1)!(+$P(^(0),U,1)>16)),(($P(^ONCO(165.5,DA,0),U,16)<3030101)!((Y'=46)&(Y'=47)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,363,2)="S Y(0)=Y S Y=$P($G(^ONCO(166.13,+Y,0)),U,2)"
^DD(165.5,363,2.1)="S Y=$P($G(^ONCO(166.13,+Y,0)),U,2)"
^DD(165.5,363,12)="Codes 01-16 have been discontinued.  Codes 80 and 85 are prohibited for 2003+ cases."
^DD(165.5,363,12.1)="S DIC(""S"")=""I ((+$P(^(0),U,1)<1)!(+$P(^(0),U,1)>16)),(($P(^ONCO(165.5,DA,0),U,16)<3030101)!((Y'=46)&(Y'=47)))"""
^DD(165.5,363,21,0)="^.001^6^6^3041126^^^^"
^DD(165.5,363,21,1,0)=""
^DD(165.5,363,21,2,0)="Records the dominant modality of radiation therapy used to deliver "
^DD(165.5,363,21,3,0)="the most clinically significant regional dose to the primary volume"
^DD(165.5,363,21,4,0)="of interest during the first course of treatment."
^DD(165.5,363,21,5,0)=""
^DD(165.5,363,21,6,0)="For further information see FORDS pages 155-157."
^DD(165.5,363,"DT")="3041122"
^DD(165.5,363.1,0)="BOOST TREATMENT MODALITY^*P166.13'O^ONCO(166.13,^24;9^S DIC(""S"")=""I (+$P(^(0),U,1)<1)!(+$P(^(0),U,1)>16)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S V=1 D NT^ONCODSR"
^DD(165.5,363.1,2)="S Y(0)=Y S Y=$P($G(^ONCO(166.13,+Y,0)),U,2)"
^DD(165.5,363.1,2.1)="S Y=$P($G(^ONCO(166.13,+Y,0)),U,2)"
^DD(165.5,363.1,12)="ROADS codes 01-16 have been discontinued."
^DD(165.5,363.1,12.1)="S DIC(""S"")=""I (+$P(^(0),U,1)<1)!(+$P(^(0),U,1)>16)"""
^DD(165.5,363.1,21,0)="^.001^11^11^3030327^^"
^DD(165.5,363.1,21,1,0)=""
^DD(165.5,363.1,21,2,0)="Records the dominant modality of radiation therapy used to deliver"
^DD(165.5,363.1,21,3,0)="the most clinically significant boost dose to the primary volume of"
^DD(165.5,363.1,21,4,0)="interest during the first course of treatment.  This is accomplished"
^DD(165.5,363.1,21,5,0)="with external beam fields of reduced size (relative to the regional"
^DD(165.5,363.1,21,6,0)="treatment fields), implants, stereotactic radiosurgery, conformal"
^DD(165.5,363.1,21,7,0)="therapy, or IMRT.  External beam boosts may consist of two or more"
^DD(165.5,363.1,21,8,0)="successive phases with progressively smaller fields generally coded"
^DD(165.5,363.1,21,9,0)="as a single entry."
^DD(165.5,363.1,21,10,0)=""
^DD(165.5,363.1,21,11,0)="For further information see FORDS pages 159-161."
^DD(165.5,363.1,"DT")="3030109"
^DD(165.5,364,0)="URINARY INCONTINENCE^S^0:None;1:Yes;8:Not applicable;9:Unknown;^BLA2;19^Q"
^DD(165.5,364,21,0)="^^3^3^2960829^"
^DD(165.5,364,21,1,0)="Record whether the patient experienced any urinary incontinence as a"
^DD(165.5,364,21,2,0)="result of radiation therapy.  If the patient did not receive radiation"
^DD(165.5,364,21,3,0)="therapy, code 8 (not applicable)."
^DD(165.5,364,"DT")="2960906"
^DD(165.5,365,0)="HEMATURIA^S^0:None;1:Yes;8:Not applicable;9:Unknown;^BLA2;20^Q"
^DD(165.5,365,21,0)="^^3^3^2960829^"
^DD(165.5,365,21,1,0)="Record whether the patient experienced any hematuria as a result of"
^DD(165.5,365,21,2,0)="radiation therapy.  If the patient did not receive radiation therapy,"
^DD(165.5,365,21,3,0)="code 8 (not applicable)."
^DD(165.5,365,"DT")="2960906"
^DD(165.5,366,0)="RADIATION BOWEL INJURY^S^0:None;1:Yes;8:Not applicable;9:Unknown;^BLA2;21^Q"
^DD(165.5,366,21,0)="^^3^3^2960829^"
^DD(165.5,366,21,1,0)="Record whether the patient experienced a radiation bowel injury as a"
^DD(165.5,366,21,2,0)="result of radiation therapy.  If the patient did not receive radiation"
^DD(165.5,366,21,3,0)="therapy, enter 8 (not applicable)."
^DD(165.5,366,"DT")="2960906"
^DD(165.5,367,0)="DATE CHEMOTHERAPY ENDED^DXO^^BLA2;22^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,367,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,367,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,367,3)="*** DATE CHEMOTHERAPY ENDED MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,367,21,0)="^^3^3^2970523^^"
^DD(165.5,367,21,1,0)=""
^DD(165.5,367,21,2,0)="Record the date on which the entire first course of chemotherapy was"
^DD(165.5,367,21,3,0)="completed.  If chemotherapy was not given, code date as 00/00/0000."
^DD(165.5,367,"DT")="2970403"
^DD(165.5,368,0)="ROUTE CHEMOTHERAPY ADMIN^S^0:No chemotherapy;1:Systemic;2:Intravesicle;9:Unknown;^BLA2;23^Q"
^DD(165.5,368,21,0)="^^2^2^2960829^"
^DD(165.5,368,21,1,0)="Record the route by which the chemotherapy was administered.  If the"
^DD(165.5,368,21,2,0)="patient did not receive chemotherapy, code 0 (no chemotherapy)."
^DD(165.5,368,"DT")="2960906"
^DD(165.5,369,0)="ADRIAMYCIN^S^0:No;1:Yes;9:Unknown;^BLA2;24^Q"
^DD(165.5,369,21,0)="^^2^2^2960829^^"
^DD(165.5,369,21,1,0)="Record whether the chemotherapeutic agent, Adriamycin, was given.  If no"
^DD(165.5,369,21,2,0)="chemotherapy was given, code as 0 (no)."
^DD(165.5,369,"DT")="2960906"
^DD(165.5,370,0)="CARBOPLATINUM^S^0:No;1:Yes;9:Unknown;^BLA2;25^Q"
^DD(165.5,370,21,0)="^^2^2^2960829^"
^DD(165.5,370,21,1,0)="Record whether the chemotherapeutic agent, Carboplatinum, was given.  If"
^DD(165.5,370,21,2,0)="no chemotherapy was given, code as 0 (no)."
^DD(165.5,370,"DT")="2960906"
^DD(165.5,371,0)="CISPLATIN^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^BLA2;26^Q"
^DD(165.5,371,21,0)="^.001^4^4^3000420^^^^"
^DD(165.5,371,21,1,0)=""
^DD(165.5,371,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,371,21,3,0)="patient."
^DD(165.5,371,21,4,0)=""
^DD(165.5,371,"DT")="3000420"
^DD(165.5,372,0)="CYCLOPHOSPHAMIDE^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^BLA2;27^Q"
^DD(165.5,372,21,0)="^.001^4^4^3000420^^^^"
^DD(165.5,372,21,1,0)=""
^DD(165.5,372,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,372,21,3,0)="patient."
^DD(165.5,372,21,4,0)=""
^DD(165.5,372,"DT")="3000420"
^DD(165.5,373,0)="5-FLUOROURACIL^S^0:No;1:Yes;9:Unknown;^BLA2;28^Q"
^DD(165.5,373,21,0)="^^2^2^2960829^"
^DD(165.5,373,21,1,0)="Record whether the chemotherapeutic agent, 5-fluorouracil, was given.  If"
^DD(165.5,373,21,2,0)="no chemotherapy was given, code as 0 (no)."
^DD(165.5,373,"DT")="2960906"
^DD(165.5,374,0)="GALLIUM NITRATE^S^0:No;1:Yes;9:Unknown;^BLA2;29^Q"
^DD(165.5,374,21,0)="^^2^2^2960829^"
^DD(165.5,374,21,1,0)="Record whether the chemotherapeutic agent, Gallium Nitrate, was given.  If"
^DD(165.5,374,21,2,0)="no chemotherapy was given, code as 0 (no)."
^DD(165.5,374,"DT")="2960906"
^DD(165.5,375,0)="IFOSFAMIDE^S^0:No;1:Yes;9:Unknown;^BLA2;30^Q"
^DD(165.5,375,21,0)="^^2^2^2960913^^^^"
^DD(165.5,375,21,1,0)="Record whether the chemotherapeutic agent, Ifosfamide, was given.  If no"
^DD(165.5,375,21,2,0)="chemotherapy was given, code as 0 (no)."
^DD(165.5,375,"DT")="2960913"
^DD(165.5,376,0)="METHOTREXATE^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^BLA2;31^Q"
^DD(165.5,376,21,0)="^.001^4^4^3000420^^^"
^DD(165.5,376,21,1,0)=""
^DD(165.5,376,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,376,21,3,0)="patient."
^DD(165.5,376,21,4,0)=""
^DD(165.5,376,"DT")="3000420"
^DD(165.5,377,0)="TAXOL^S^0:No;1:Yes;9:Unknown;^BLA2;32^Q"
^DD(165.5,377,21,0)="^^2^2^2960829^"
^DD(165.5,377,21,1,0)="Record whether the chemotherapeutic agent, Taxol, was given.  If no"
^DD(165.5,377,21,2,0)="chemotherapy was given, code as 0 (no)."
^DD(165.5,377,"DT")="2960906"
^DD(165.5,378,0)="THIOTEPA^S^0:No;1:Yes;9:Unknown;^BLA2;33^Q"
^DD(165.5,378,21,0)="^^2^2^2960829^"
^DD(165.5,378,21,1,0)="Record whether the chemotherapeutic agent, Thiotepa, was given.  If no"
^DD(165.5,378,21,2,0)="chemotherapy was given, code as 0 (no)."
^DD(165.5,378,"DT")="2960906"
^DD(165.5,379,0)="VINBLASTINE^S^0:No;1:Yes;9:Unknown;^BLA2;34^Q"
^DD(165.5,379,21,0)="^^2^2^2960829^"
^DD(165.5,379,21,1,0)="Record whether the chemotherapeutic agent, Vinblastine, was given.  If no"
^DD(165.5,379,21,2,0)="chemotherapy was given, code as 0 (no)."
^DD(165.5,379,"DT")="2960906"
^DD(165.5,380,0)="OTHER CHEMOTHERAPEUTIC AGENTS^S^0:No;1:Yes;8:NA, no chemotherapy administered;9:Unknown;^BLA2;35^Q"
^DD(165.5,380,21,0)="^.001^4^4^3000420^^^"
^DD(165.5,380,21,1,0)=""
^DD(165.5,380,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,380,21,3,0)="patient."
^DD(165.5,380,21,4,0)=""
^DD(165.5,380,"DT")="3000420"
^DD(165.5,381,0)="INDICATION FOR ADMIN OF AGENTS^S^0:No agents administered, NA;1:Metastatic disease;2:Adjuvant therapy;3:Neoadjuvant therapy;8:Other;9:Unknown;^BLA2;36^Q"
^DD(165.5,381,21,0)="^^2^2^2960830^"
^DD(165.5,381,21,1,0)="Record the reason for chemotherapy.  If the patient never received"
^DD(165.5,381,21,2,0)="chemotherapy, code 0 (no agents administered, na)."
^DD(165.5,381,"DT")="2960906"
^DD(165.5,382,0)="REASON CHEMOTHERAPY STOPPED^S^0:Treatment completed, NA;1:Complications;2:Disease progression;3:Recommended but medically contraindicated;8:Other;9:Unknown;^BLA2;41^Q"
^DD(165.5,382,21,0)="^^3^3^2960830^"
^DD(165.5,382,21,1,0)="Record the reason chemotherapy was discontinued.  If therapy ended when"
^DD(165.5,382,21,2,0)="treatment was complete, or if the patient never received chemotherapy,"
^DD(165.5,382,21,3,0)="code 0 (treatment completed, na)."
^DD(165.5,382,"DT")="2960906"
^DD(165.5,383,0)="BCG^S^0:No;1:Yes;9:Unknown;^BLA2;37^Q"
^DD(165.5,383,21,0)="^^2^2^2990114^^^"
^DD(165.5,383,21,1,0)="Record whether BCG immunotherapy was administered for the"
^DD(165.5,383,21,2,0)="first course of therapy."
^DD(165.5,383,"DT")="2990114"
^DD(165.5,384,0)="INTERFERON^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^BLA2;38^Q"
^DD(165.5,384,21,0)="^.001^4^4^3000420^^^^"
^DD(165.5,384,21,1,0)=""
^DD(165.5,384,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,384,21,3,0)="patient."
^DD(165.5,384,21,4,0)=""
^DD(165.5,384,"DT")="3000420"
^DD(165.5,385,0)="INTERLEUKIN-2^*S^0:No;1:Yes;8:NA;9:Unknown;^BLA2;39^Q"
^DD(165.5,385,12)="Code 8 should not be used for cases with a DATE DX < 1/1/1999"
^DD(165.5,385,12.1)="S DIC(""S"")=""I ($P($G(^ONCO(165.5,DA,0)),U,16)>2981231)!(Y'=8)"""
^DD(165.5,385,21,0)="^^2^2^2990114^^^^"
^DD(165.5,385,21,1,0)="Record whether Interleukin-2 immunotherapy was administered for the"
^DD(165.5,385,21,2,0)="first course of therapy."
^DD(165.5,385,"DT")="2990114"
^DD(165.5,386,0)="OTHER TYPE OF IMMUNOTHERAPY^*S^0:No;1:Yes;8:NA;9:Unknown;^BLA2;40^Q"
^DD(165.5,386,12)="Code 8 should not be used for cases with a DATE DX < 1/1/1999"
^DD(165.5,386,12.1)="S DIC(""S"")=""I ($P($G(^ONCO(165.5,DA,0)),U,16)>2981231)!(Y'=8)"""
^DD(165.5,386,21,0)="^^2^2^2990114^^^^"
^DD(165.5,386,21,1,0)="Record whether other immunotherapy was administered for the"
^DD(165.5,386,21,2,0)="first course of therapy."
^DD(165.5,386,"DT")="2990114"
^DD(165.5,387,0)="TYPE OF 1ST RECURRENCE/BLADDER^S^0:No recurrence;1:Bladder, superficial;2:Bladder, muscle invasion;3:Bladder, NOS;4:Pelvis;5:Distant;8:Never disease-free;9:Unknown;^BLA2;42^Q"
^DD(165.5,387,21,0)="^^5^5^2960903^^"
^DD(165.5,387,21,1,0)="Record the type of the first recurrence.  ""Pelvic recurrence"" is tumor"
^DD(165.5,387,21,2,0)="that has invaded any of the following sites: prostate, uterus, vagina,"
^DD(165.5,387,21,3,0)="pelvic wall, or abdominal wall.  ""Distant recurrence"" occurs in a site"
^DD(165.5,387,21,4,0)="considered distant from the organ or origin as presented in most staging"
^DD(165.5,387,21,5,0)="schemes."
^DD(165.5,387,"DT")="2960906"
^DD(165.5,400,0)="HISTORY OF THYROID CA (FAM)^S^0:No;1:Yes;9:Unknown;^THY1;1^Q"
^DD(165.5,400,21,0)="^^3^3^2970210^^^^"
^DD(165.5,400,21,1,0)="Record any familial history of thyroid cancer documented in the medical"
^DD(165.5,400,21,2,0)="record.  If the record does not mention familial history of thyroid cancer,"
^DD(165.5,400,21,3,0)="code 9 (unknown)."
^DD(165.5,400,"DT")="2970210"
^DD(165.5,401,0)="HISTORY OF LYMPHOMA (PT)^S^0:No;1:Yes;9:Unknown;^THY1;2^Q"
^DD(165.5,401,21,0)="^^2^2^2960827^"
^DD(165.5,401,21,1,0)="Record whether the patient has a history of Lymphoma, including Hodgkin's"
^DD(165.5,401,21,2,0)="Disease."
^DD(165.5,401,"DT")="2960906"
^DD(165.5,402,0)="HISTORY OF CHILDHOOD MALIG^S^0:No;1:Yes;9:Unknown;^THY1;3^Q"
^DD(165.5,402,21,0)="^^2^2^2960905^^"
^DD(165.5,402,21,1,0)="Record whether the patient has a history of childhood malignancies, other"
^DD(165.5,402,21,2,0)="than lymphoma."
^DD(165.5,402,"DT")="2960906"
^DD(165.5,403,0)="PRIOR EXPOSURE TO RADIATION^S^0:No;1:Yes;9:Unknown;^THY1;4^Q"
^DD(165.5,403,21,0)="^^7^7^3000114^^^"
^DD(165.5,403,21,1,0)=""
^DD(165.5,403,21,2,0)="This field describes a patient's known prior radiation exposure."
^DD(165.5,403,21,3,0)="Exposure to fluoroscopy, exposure to radioactive isotopes, or"
^DD(165.5,403,21,4,0)="actual radiation treatments should be considered prior radiation"
^DD(165.5,403,21,5,0)="exposure.  Do not consider routine chest or dental x-rays as prior"
^DD(165.5,403,21,6,0)="radiation exposure."
^DD(165.5,403,21,7,0)=""
^DD(165.5,403,"DT")="2960909"
^DD(165.5,404,0)="HISTORY OF GOITER (PT)^S^0:No;1:Yes;9:Unknown;^THY1;5^Q"
^DD(165.5,404,21,0)="^^2^2^2960827^^"
^DD(165.5,404,21,1,0)="Record history of enlarged thyroid gland for a period of greater than"
^DD(165.5,404,21,2,0)="5 years prior to diagnosis."
^DD(165.5,404,"DT")="2960909"
^DD(165.5,405,0)="HISTORY OF GOITER (FAM)^S^0:No;1:Yes;9:Unknown;^THY1;6^Q"
^DD(165.5,405,21,0)="^^2^2^2960827^^"
^DD(165.5,405,21,1,0)="Record any familial history of thyroid enlargement (goiter), Graves Disease"
^DD(165.5,405,21,2,0)="or thyroiditis."
^DD(165.5,405,"DT")="2960909"
^DD(165.5,406,0)="HISTORY OF GRAVES DISEASE (PT)^S^0:No;1:Yes;9:Unknown;^THY1;7^Q"
^DD(165.5,406,21,0)="^^2^2^2960827^"
^DD(165.5,406,21,1,0)="Record whether the patient has a history of Graves Disease, i.e.,"
^DD(165.5,406,21,2,0)="autoimmune hyperthyroidism with or withour eye symptoms."
^DD(165.5,406,"DT")="2960909"
^DD(165.5,407,0)="HISTORY OF THYROIDITIS (PT)^S^0:No;1:Yes;9:Unknown;^THY1;8^Q"
^DD(165.5,407,21,0)="^^3^3^2960828^^^"
^DD(165.5,407,21,1,0)="Record whether the patient has a history of Hashimoto's thyroiditis or"
^DD(165.5,407,21,2,0)="any other type of thyroiditis.  Thyroiditis is often associated with"
^DD(165.5,407,21,3,0)="hypothyroidism."
^DD(165.5,407,"DT")="2960909"
^DD(165.5,408,0)="DYSPHAGIA^S^0:No;1:Yes;9:Unknown;^THY1;9^Q"
^DD(165.5,408,21,0)="^^2^2^2960828^^^"
^DD(165.5,408,21,1,0)="Record whether the sign/symptom 'DYSPHAGIA' was present at the time of"
^DD(165.5,408,21,2,0)="diagnosis."
^DD(165.5,408,"DT")="2960909"
^DD(165.5,409,0)="HOARSENESS OR VOICE CHANGE^S^0:No;1:Yes;9:Unknown;^THY1;10^Q"
^DD(165.5,409,21,0)="^^2^2^2960828^^"
^DD(165.5,409,21,1,0)="Record whether the sign/symptom 'HOARSENESS OR VOICE CHANGE' was present"
^DD(165.5,409,21,2,0)="at the time of diagnosis."
^DD(165.5,409,"DT")="2960909"
^DD(165.5,410,0)="NECK NODAL MASS^S^0:No;1:Yes;9:Unknown;^THY1;11^Q"
^DD(165.5,410,21,0)="^^2^2^2960828^^"
^DD(165.5,410,21,1,0)="Record whether the sign/symptom 'NECK NODAL MASS' was present at the time of"
^DD(165.5,410,21,2,0)="diagnosis."
^DD(165.5,410,"DT")="2960909"
^DD(165.5,411,0)="PAIN, BONE^S^0:No;1:Yes;9:Unknown;^THY1;12^Q"
^DD(165.5,411,21,0)="^^2^2^2960828^^"
^DD(165.5,411,21,1,0)="Record whether the sign/symptom 'PAIN, BONE' was present at the time of"
^DD(165.5,411,21,2,0)="diagnosis."
^DD(165.5,411,"DT")="2960909"
^DD(165.5,412,0)="PAIN, NECK^S^0:No;1:Yes;9:Unknown;^THY1;13^Q"
^DD(165.5,412,21,0)="^^2^2^2960828^"
^DD(165.5,412,21,1,0)="Record whether the sign/symptom 'PAIN, NECK' was present at the time of"
^DD(165.5,412,21,2,0)="diagnosis."
^DD(165.5,412,"DT")="2960909"
^DD(165.5,413,0)="PATHOLOGIC FRACTURE^S^0:No;1:Yes;9:Unknown;^THY1;14^Q"
^DD(165.5,413,21,0)="^^2^2^2960828^"
^DD(165.5,413,21,1,0)="Record whether the sign/symptom 'PATHOLOGIC FRACTURE' was present at the"
^DD(165.5,413,21,2,0)="time of diagnosis."
^DD(165.5,413,"DT")="2960909"
^DD(165.5,414,0)="STRIDOR/DIFFICULTY BREATHING^S^0:No;1:Yes;9:Unknown;^THY1;15^Q"
^DD(165.5,414,21,0)="^^2^2^2960828^"
^DD(165.5,414,21,1,0)="Record whether the sign/symptom 'STRIDOR OR DIFFICULTY BREATHING' was"
^DD(165.5,414,21,2,0)="present at the time of diagnosis."
^DD(165.5,414,"DT")="2960909"
^DD(165.5,415,0)="THYROID MASS^S^0:No;1:Yes;9:Unknown;^THY1;16^Q"
^DD(165.5,415,21,0)="^^2^2^2960828^"
^DD(165.5,415,21,1,0)="Record whether the sign/symptom 'THYROID MASS' was present at the time of"
^DD(165.5,415,21,2,0)="diagnosis."
^DD(165.5,415,"DT")="2960909"
^DD(165.5,416,0)="WEIGHT LOSS^S^0:No;1:Yes;9:Unknown;^THY1;17^Q"
^DD(165.5,416,21,0)="^^2^2^2960828^"
^DD(165.5,416,21,1,0)="Record whether the sign/symptom 'WEIGHT LOSS' was present at the time of"
^DD(165.5,416,21,2,0)="diagnosis."
^DD(165.5,416,"DT")="2960909"
^DD(165.5,417,0)="OTHER SIGNS/SYMPTOMS^S^0:No;1:Yes;9:Unknown;^THY1;18^Q"
^DD(165.5,417,21,0)="^^2^2^2960828^"
^DD(165.5,417,21,1,0)="Record whether any OTHER signs/symptoms were present at the time of"
^DD(165.5,417,21,2,0)="diagnosis."
^DD(165.5,417,"DT")="2960909"
^DD(165.5,418,0)="BONE SCAN (THYROID)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;19^Q"
^DD(165.5,418,21,0)="^^3^3^2960909^^^^"
^DD(165.5,418,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'BONE SCAN', if it"
^DD(165.5,418,21,2,0)="was performed to evaluate this Thyroid cancer.  If this test was not done"
^DD(165.5,418,21,3,0)="record a '0'."
^DD(165.5,418,"DT")="2960909"
^DD(165.5,419,0)="CHEST X-RAY (THYROID)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;20^Q"
^DD(165.5,419,21,0)="^^3^3^2960909^^^"
^DD(165.5,419,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'CHEST X-RAY', if it"
^DD(165.5,419,21,2,0)="was performed to evaluate this Thyroid cancer.  If this test was not done"
^DD(165.5,419,21,3,0)="record a '0'."
^DD(165.5,419,"DT")="2960909"
^DD(165.5,420,0)="CT SCAN OF NECK (THYROID)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;21^Q"
^DD(165.5,420,21,0)="^^3^3^2960906^^^"
^DD(165.5,420,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'CT SCAN OF NECK', if"
^DD(165.5,420,21,2,0)="it was performed to evaluate this Thyroid cancer.  If this test was not done"
^DD(165.5,420,21,3,0)="record a '0'."
^DD(165.5,420,"DT")="2960909"
^DD(165.5,421,0)="CT SCAN OF CHEST^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;22^Q"
^DD(165.5,421,21,0)="^^3^3^2970318^^^^"
^DD(165.5,421,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'CT SCAN OF CHEST', if"
^DD(165.5,421,21,2,0)="it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,421,21,3,0)="record a '0'."
^DD(165.5,421,"DT")="2970213"
^DD(165.5,422,0)="INCISIONAL BIOPSY OF THYROID^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;23^Q"
^DD(165.5,422,21,0)="^^3^3^2960911^^^"
^DD(165.5,422,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'INCISIONAL BIOPSY OF"
^DD(165.5,422,21,2,0)="THYROID', if it was performed to evaluate this Thyroid cancer.  If this test"
^DD(165.5,422,21,3,0)="was not done record a '0'."
^DD(165.5,422,"DT")="2960909"
^DD(165.5,423,0)="LARYNGOSCOPY^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;24^Q"
^DD(165.5,423,21,0)="^^3^3^2960829^^^"
^DD(165.5,423,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'LARYNGOSCOPY', if"
^DD(165.5,423,21,2,0)="it was performed to evaluate this Thyroid cancer.  If this test was not done"
^DD(165.5,423,21,3,0)="record a '0'."
^DD(165.5,423,"DT")="2960909"
^DD(165.5,424,0)="NECK X-RAY (AP & LATERAL)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;25^Q"
^DD(165.5,424,21,0)="^^3^3^2960829^"
^DD(165.5,424,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'NECK X-RAY (AP &"
^DD(165.5,424,21,2,0)="LATERAL)', if it was performed to evaluate this Thyroid cancer.  If this"
^DD(165.5,424,21,3,0)="test was not done record a '0'."
^DD(165.5,424,"DT")="2960909"
^DD(165.5,425,0)="NEEDLE ASPIRATION OF NECK NODE^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;26^Q"
^DD(165.5,425,21,0)="^^3^3^2960829^^"
^DD(165.5,425,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'NEEDLE ASPIRATION OF"
^DD(165.5,425,21,2,0)="NECK NODE', if it was performed to evaluate this Thyroid cancer.  If this"
^DD(165.5,425,21,3,0)="test was not done record a '0'."
^DD(165.5,425,"DT")="2960909"
^DD(165.5,426,0)="NEEDLE ASPIRATION OF THYROID^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;27^Q"
^DD(165.5,426,21,0)="^^3^3^2960829^^"
^DD(165.5,426,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'NEEDLE ASPIRATION OF"
^DD(165.5,426,21,2,0)="THYROID', if it was performed to evaluate this Thyroid cancer.  If this"
^DD(165.5,426,21,3,0)="test was not done record a '0'."
^DD(165.5,426,"DT")="2960909"
^DD(165.5,427,0)="MRI OF NECK^S^0:Test not donw;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;28^Q"
^DD(165.5,427,21,0)="^^3^3^2960829^^"
^DD(165.5,427,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'MRI OF NECK', if"
^DD(165.5,427,21,2,0)="it was performed to evaluate this Thyroid cancer.  If this test was not"
^DD(165.5,427,21,3,0)="done record a '0'."
^DD(165.5,427,"DT")="2960909"
^DD(165.5,428,0)="THYROID SCAN^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;29^Q"
^DD(165.5,428,21,0)="^^3^3^2960829^^"
^DD(165.5,428,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'THYROID SCAN', if it"
^DD(165.5,428,21,2,0)="was performed to evaluate this Thyroid cancer.  If this test was not done"
^DD(165.5,428,21,3,0)="record a '0'."
^DD(165.5,428,"DT")="2960909"
^DD(165.5,429,0)="ULTRASOUND OF THYROID^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^THY1;30^Q"
^DD(165.5,429,21,0)="^^3^3^2960829^"
^DD(165.5,429,21,1,0)="Record the results of the Diagnostic/Surgical Work-up 'ULTRASOUND OF THYROID',"
^DD(165.5,429,21,2,0)="if it was performed to evaluate this Thyroid cancer.  If this test was not"
^DD(165.5,429,21,3,0)="done record a '0'."
^DD(165.5,429,"DT")="2960909"
^DD(165.5,430,0)="OTHER DIAGNOSTIC/SURGICAL TEST^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if other test done;^THY1;31^Q"
^DD(165.5,430,21,0)="^^3^3^2960909^^"
^DD(165.5,430,21,1,0)="Record the results of any OTHER Diagnostic/Surgical Work-ups done, if any"
^DD(165.5,430,21,2,0)="were performed to evaluate this Thyroid cancer.  If other test were not done"
^DD(165.5,430,21,3,0)="record a '0'."
^DD(165.5,430,"DT")="2960909"
^DD(165.5,431,0)="BLOOD VESSEL INVASION^S^0:No invasion;1:Yes;8:No surgery, not applicable;9:Unknown;^THY1;32^Q"
^DD(165.5,431,21,0)="^^4^4^2960829^^"
^DD(165.5,431,21,1,0)="Record the presence of blood vessel invasion.  NOTE: This refers to the"
^DD(165.5,431,21,2,0)="presence of tumor cells inside blood vessels of a caliber larger than capil-"
^DD(165.5,431,21,3,0)="laries, located in the tumor capsule or beyond.  The tumor cells should be"
^DD(165.5,431,21,4,0)="attached to the vessel wall."
^DD(165.5,431,"DT")="2960909"
^DD(165.5,432,0)="EXTRA-THYROIDAL EXTENSION^S^0:No extension;1:Esophagus;2:Trachea;3:Larynx;4:Strap muscles;5:Soft tissue;6:Multiple sites;7:Extension, NOS;8:Not applicable, no surgery;9:Unknown;^THY1;33^Q"
^DD(165.5,432,21,0)="^^3^3^2960829^^^"
^DD(165.5,432,21,1,0)="Record any gross or microscopic extension beyond thyroid capsule.  NOTE: Do"
^DD(165.5,432,21,2,0)="not code invasion of the tumor capsule around a follicular cancer as an"
^DD(165.5,432,21,3,0)="extra-thyroidal extension."
^DD(165.5,432,"DT")="2960909"
^DD(165.5,433,0)="MULTIFOCAL^S^0:No;1:Microscopic;2:Gross;3:Multifocal, NOS;9:Unknown;^THY1;34^Q"
^DD(165.5,433,21,0)="^^2^2^2960905^^^"
^DD(165.5,433,21,1,0)="Record whether the tumor was multifocal.  Pathologic confirmation is"
^DD(165.5,433,21,2,0)="required."
^DD(165.5,433,"DT")="2960829"
^DD(165.5,434,0)="LOCATION OF POSITIVE NODES^S^0:No positive nodes;1:Perithyroid only;2:Lateral neck only;3:Mediastinum only;4:Multiple regions;5:Other;8:Not applicable;9:Unknown;^THY1;35^Q"
^DD(165.5,434,21,0)="^^1^1^2960829^"
^DD(165.5,434,21,1,0)="Record the location of regional nodes if they are positive."
^DD(165.5,434,"DT")="2960829"
^DD(165.5,435,0)="DATE OF SURGICAL DISCHARGE^DXO^^THY1;36^D DFIT^ONCODSR I $D(X) S V=""0000000"" D NT^ONCODSR"
^DD(165.5,435,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,435,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,435,3)="*** DATE OF SURGICAL DISCHARGE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,435,21,0)="^.001^6^6^3030108^^^^"
^DD(165.5,435,21,1,0)=""
^DD(165.5,435,21,2,0)="Records the date the patient was discharged following primary"
^DD(165.5,435,21,3,0)="site surgery.  The date corresponds to the event recorded in"
^DD(165.5,435,21,4,0)="SURGICAL PROC OF PRIMARY and SURGICAL RESECTION DATE."
^DD(165.5,435,21,5,0)=""
^DD(165.5,435,21,6,0)="For further information see FORDS pages 144-145."
^DD(165.5,435,"DT")="3030108"
^DD(165.5,436,0)="AIRWAY PROBLEM^S^0:No;1:Yes;8:NA;9:Unknown;^THY1;37^Q"
^DD(165.5,436,21,0)="^^3^3^2970404^^^"
^DD(165.5,436,21,1,0)="Record whether the patient had the surgical complication 'AIRWAY PROBLEM"
^DD(165.5,436,21,2,0)="REQUIRING TRACHEOSTOMY', which resulted from cancer-directed surgery.  If"
^DD(165.5,436,21,3,0)="no cancer-directed surgery was performed, code 8 (not applicable)."
^DD(165.5,436,"DT")="2970404"
^DD(165.5,437,0)="BLEEDING/HEMATOMA^S^0:No;1:Yes;8:NA;9:Unknown;^THY1;38^Q"
^DD(165.5,437,21,0)="^^3^3^2970404^^^^"
^DD(165.5,437,21,1,0)="Record whether the patient had the surgical complication 'BLEEDING HEMATOMA',"
^DD(165.5,437,21,2,0)="which resulted from cancer-directed surgery.  If no cancer-directed surgery"
^DD(165.5,437,21,3,0)="was performed, code 8 (not applicable)."
^DD(165.5,437,"DT")="2970404"
^DD(165.5,438,0)="HYPOCALCEMIA^S^0:No;1:Yes;8:NA;9:Unknown;^THY1;39^Q"
^DD(165.5,438,21,0)="^^3^3^2970404^^^^"
^DD(165.5,438,21,1,0)="Record whether the patient had the surgical complication 'HYPOCALCEMIA (NEEDS"
^DD(165.5,438,21,2,0)="ORAL CALCIUM', which resulted from cancer-directed surgery.  If no cancer-"
^DD(165.5,438,21,3,0)="directed surgery was performed, code 8 (not applicable)."
^DD(165.5,438,"DT")="2970404"
^DD(165.5,439,0)="RECURRENT NERVE INJURY^S^0:No;1:Yes;8:NA;9:Unknown;^THY1;40^Q"
^DD(165.5,439,21,0)="^^3^3^2970404^^^"
^DD(165.5,439,21,1,0)="Record whether the patient had the surgical complication 'RECURRENT NERVE"
^DD(165.5,439,21,2,0)="INJURY (OR VOCAL CORD PARESIS)', which resulted from cancer-directed surgery."
^DD(165.5,439,21,3,0)="If no cancer-directed surgery was performed, code 8 (not applicable)."
^DD(165.5,439,"DT")="2970404"
^DD(165.5,440,0)="WOUND INFECTION^S^0:No;1:Yes;8:NA;9:Unknown;^THY1;41^Q"
^DD(165.5,440,21,0)="^^3^3^2970404^^^"
^DD(165.5,440,21,1,0)="Record whether the patient had the surgical complication 'WOUND INFECTION',"
^DD(165.5,440,21,2,0)="which resulted from cancer-directed surgery.  If no cancer-directed surgery"
^DD(165.5,440,21,3,0)="was performed, code 8 (not applicable)."
^DD(165.5,440,"DT")="2970404"
^DD(165.5,441,0)="POSTOPERATIVE DEATH^S^0:No;1:Yes;8:Not applicable, no surgery;9:Unknown;^THY1;42^Q"
^DD(165.5,441,21,0)="^^2^2^2960830^^"
^DD(165.5,441,21,1,0)="Record operative death occurring within 30 days of the cancer-directed"
^DD(165.5,441,21,2,0)="surgery.  If no cancer-directed surgery was performed, code 8 (not applicable)."
^DD(165.5,441,"DT")="2960830"
^DD(165.5,442,0)="REGIONAL DOSE: cGy^N,0OX^^THY1;43^K:X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S V=0 D NT^ONCODSR I $D(X) S ONCL=5 D RDIT^ONCOIT"
^DD(165.5,442,2)="S Y(0)=Y S Y=$S(Y=""00000"":""Radiation tx not administered"",Y=88888:""NA, brachytherapy/radioisotopes administered"",Y=99999:""Dose unknown/unknown if administered"",1:Y)"
^DD(165.5,442,2.1)="S Y=$S(Y=""00000"":""Radiation tx not administered"",Y=88888:""NA, brachytherapy/radioisotopes administered"",Y=99999:""Dose unknown/unknown if administered"",1:Y)"
^DD(165.5,442,3)="Type a Number between 0 and 99999"
^DD(165.5,442,21,0)="^.001^6^6^3051005^^^^"
^DD(165.5,442,21,1,0)=""
^DD(165.5,442,21,2,0)="Records the dominant or most clinically significant total dose of"
^DD(165.5,442,21,3,0)="regional radiation therapy delivered to the patient during the"
^DD(165.5,442,21,4,0)="first course of treatment.  The unit of measure is centiGray (cGy)."
^DD(165.5,442,21,5,0)=""
^DD(165.5,442,21,6,0)="For further information see FORDS page 158."
^DD(165.5,442,"DT")="3030109"
^DD(165.5,443,0)="BOOST DOSE: cGy^NJ5,0OX^^THY1;44^K:X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S V=0 D NT^ONCODSR I $D(X) S ONCL=5 D RDIT^ONCOIT"
^DD(165.5,443,2)="S Y(0)=Y S Y=$S(Y=""00000"":""Boost tx not administered"",Y=88888:""NA, brachytherapy/radioisotopes administered"",Y=99999:""Dose unknown/unknown if administered"",1:Y)"
^DD(165.5,443,2.1)="S Y=$S(Y=""00000"":""Boost tx not administered"",Y=88888:""NA, brachytherapy/radioisotopes administered"",Y=99999:""Dose unknown/unknown if administered"",1:Y)"
^DD(165.5,443,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,443,21,0)="^.001^6^6^3030221^^^^"
^DD(165.5,443,21,1,0)=""
^DD(165.5,443,21,2,0)="Records the additional boost dosage delivered to that part"
^DD(165.5,443,21,3,0)="of the treatment volume encompassed by the boost fields or"
^DD(165.5,443,21,4,0)="devices.  The unit of measure is centiGray (cGy)."
^DD(165.5,443,21,5,0)=""
^DD(165.5,443,21,6,0)="For further information see FORDS page 162."
^DD(165.5,443,"DT")="3030221"
^DD(165.5,444,0)="INITIAL DOSE OF RADIOIODINE^NJ5,0O^^THY1;45^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,444,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,444,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,444,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,444,21,0)="^^3^3^2960903^^"
^DD(165.5,444,21,1,0)="Record the total Millicuries (mCi) of radioiodine given as part of initial"
^DD(165.5,444,21,2,0)="therapy, whether for the purpose of ablation or therapy.  If none received,"
^DD(165.5,444,21,3,0)="code 00000.  If unknown, code 99999."
^DD(165.5,444,"DT")="2960903"
^DD(165.5,445,0)="SECOND DOSE OF RADIOIODINE^NJ5,0O^^THY1;46^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,445,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,445,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,445,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,445,21,0)="^^3^3^2960903^"
^DD(165.5,445,21,1,0)="Record the total Millicuries (mCi) of radioiodine given as second dose"
^DD(165.5,445,21,2,0)="within the next 6 months after date of diagnosis.  If none received,"
^DD(165.5,445,21,3,0)="code 00000.  If unknown, code 99999."
^DD(165.5,445,"DT")="2960903"
^DD(165.5,446,0)="ADJUVANT CHEMOTHERAPY (THY)^S^0:No concomitant treatment;1:Radiation treatment and concomitant adjuvant chemotherapy;9:Unknown if therapy concomitant;^THY1;47^Q"
^DD(165.5,446,21,0)="^^5^5^2970221^^^^"
^DD(165.5,446,21,1,0)="Record the Adjuvant Chemotherapy with Concomitant External Beam Radiation."
^DD(165.5,446,21,2,0)="If patient receives chemotherapy at any time during radiation as a radio-"
^DD(165.5,446,21,3,0)="sensitizing agent, code 1.  If chemotherapy is stopped more than 2 days"
^DD(165.5,446,21,4,0)="prior to radiation therapy and not given until external beam therapy is"
^DD(165.5,446,21,5,0)="completed, code 0.  If unknown, code 9."
^DD(165.5,446,"DT")="2970221"
^DD(165.5,500,0)="HISTORY OF SOFT TIS SARC (FAM)^S^0:No;1:Yes;9:Unknown;^STS1;1^Q"
^DD(165.5,500,21,0)="^^3^3^2960909^^^"
^DD(165.5,500,21,1,0)="Record any familial history of soft tissue sarcoma documented in the"
^DD(165.5,500,21,2,0)="medical record.  If the record does not mention familial history of"
^DD(165.5,500,21,3,0)="soft tissue sarcoma, code 9 (unknown)."
^DD(165.5,500,"DT")="2960909"
^DD(165.5,501,0)="HISTORY OF ANY CANCER (PT)^S^0:No;1:Yes;9:Unknown;^STS1;2^Q"
^DD(165.5,501,21,0)="^^3^3^2960906^"
^DD(165.5,501,21,1,0)="Record the personal history of any cancer documented in the medical"
^DD(165.5,501,21,2,0)="record.  If the record does not mention personal history of any cancer,"
^DD(165.5,501,21,3,0)="code 9 (unknown)."
^DD(165.5,501,"DT")="2960906"
^DD(165.5,502,0)="ANGIOGRAM OF PRIMARY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;3^Q"
^DD(165.5,502,21,0)="^^3^3^2960924^^^^"
^DD(165.5,502,21,1,0)="Record the results of the Diagnostic Workup 'Angiogram for Primary', if"
^DD(165.5,502,21,2,0)="it was performed to evaluate this soft tissue sarcoma.  If this test was"
^DD(165.5,502,21,3,0)="not done, record a '0'."
^DD(165.5,502,"DT")="2960924"
^DD(165.5,503,0)="BONE MARROW ASPIRATE OR BIOPSY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;4^Q"
^DD(165.5,503,21,0)="^^3^3^2960909^^^"
^DD(165.5,503,21,1,0)="Record the results of the Diagnostic Workup 'Bone marrow aspirate and/or"
^DD(165.5,503,21,2,0)="Biopsy', if it was performed to evaluate this soft tissue sarcoma.  If this"
^DD(165.5,503,21,3,0)="test was not done, record a '0'."
^DD(165.5,503,"DT")="2960906"
^DD(165.5,504,0)="BONE SCAN (SOFT TIS SARCOMA)^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;5^Q"
^DD(165.5,504,21,0)="^^3^3^2960909^^"
^DD(165.5,504,21,1,0)="Record the results of the Diagnostic Workup 'Bone scan', if it was"
^DD(165.5,504,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,504,21,3,0)="record a '0'."
^DD(165.5,504,"DT")="2961025"
^DD(165.5,505,0)="CHEST X-RAY (STS/NHL)^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;6^Q"
^DD(165.5,505,21,0)="^^3^3^2970318^^^^"
^DD(165.5,505,21,1,0)="Record the results of the Diagnostic Workup 'Chest X-RAY', if it was"
^DD(165.5,505,21,2,0)="performed to evaluate this primary.  If this test was not done,"
^DD(165.5,505,21,3,0)="record a '0'."
^DD(165.5,505,"DT")="2970318"
^DD(165.5,506,0)="CT SCAN OF CHEST (STS)^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;7^Q"
^DD(165.5,506,21,0)="^^3^3^2960909^^"
^DD(165.5,506,21,1,0)="Record the results of the Diagnostic Workup 'CT scan of chest', if it was"
^DD(165.5,506,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,506,21,3,0)="record a '0'."
^DD(165.5,506,"DT")="2960909"
^DD(165.5,507,0)="CT SCAN OF PRIMARY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;8^Q"
^DD(165.5,507,21,0)="^^3^3^2960909^^^"
^DD(165.5,507,21,1,0)="Record the results of the Diagnostic Workup 'CT scan of primary', if it was"
^DD(165.5,507,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,507,21,3,0)="record a '0'."
^DD(165.5,507,"DT")="2960909"
^DD(165.5,508,0)="LIVER FUNCTION STUDIES (STS)^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;9^Q"
^DD(165.5,508,21,0)="^^3^3^2970320^^^^"
^DD(165.5,508,21,1,0)="Record the results of the Diagnostic Workup 'Liver Function Studies', if it"
^DD(165.5,508,21,2,0)="was performed to evaluate this soft tissue sarcoma.  If this test was not"
^DD(165.5,508,21,3,0)="done, record a '0'."
^DD(165.5,508,"DT")="2970320"
^DD(165.5,509,0)="LYMPHANGIOGRAM^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;10^Q"
^DD(165.5,509,21,0)="^^3^3^2960909^^"
^DD(165.5,509,21,1,0)="Record the results of the Diagnostic Workup 'Lymphangiogram', if it was"
^DD(165.5,509,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,509,21,3,0)="record a '0'."
^DD(165.5,509,"DT")="2960909"
^DD(165.5,510,0)="MRI OF PRIMARY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;11^Q"
^DD(165.5,510,21,0)="^^3^3^2960909^"
^DD(165.5,510,21,1,0)="Record the results of the Diagnostic Workup 'MRI of primary', if it was"
^DD(165.5,510,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,510,21,3,0)="record a '0'."
^DD(165.5,510,"DT")="2960909"
^DD(165.5,511,0)="MRI OF OTHER^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;12^Q"
^DD(165.5,511,21,0)="^^3^3^2960909^^"
^DD(165.5,511,21,1,0)="Record the results of the Diagnostic Workup 'MRI of other', if it was"
^DD(165.5,511,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,511,21,3,0)="record a '0'."
^DD(165.5,511,"DT")="2960909"
^DD(165.5,512,0)="SKELETAL X-RAY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;13^Q"
^DD(165.5,512,21,0)="^^3^3^2960909^^"
^DD(165.5,512,21,1,0)="Record the results of the Diagnostic Workup 'Skeletal X-RAY', if it was"
^DD(165.5,512,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,512,21,3,0)="record a '0'."
^DD(165.5,512,"DT")="2960909"
^DD(165.5,513,0)="SONOGRAM^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^STS1;14^Q"
^DD(165.5,513,21,0)="^^3^3^2960909^^^"
^DD(165.5,513,21,1,0)="Record the results of the Diagnostic Workup 'Sonogram', if it was"
^DD(165.5,513,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was not done,"
^DD(165.5,513,21,3,0)="record a '0'."
^DD(165.5,513,"DT")="2960909"
^DD(165.5,514,0)="CYTOGENETICS^S^0:Not done;1:Done;9:Unknown if done;^STS1;15^Q"
^DD(165.5,514,21,0)="^^2^2^2970320^^^^"
^DD(165.5,514,21,1,0)="Record whether the 'Cytogenetics' test was performed to evaluate"
^DD(165.5,514,21,2,0)="this primary.  If this test was not done, record a '0'."
^DD(165.5,514,"DT")="2960909"
^DD(165.5,515,0)="ELECTRON MICROSCOPY^S^0:Not done;1:Done;9:Unknown if done;^STS1;16^Q"
^DD(165.5,515,21,0)="^^3^3^2960918^^^^"
^DD(165.5,515,21,1,0)="Record whether the Histologic Workup 'Electron microscopy' was"
^DD(165.5,515,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was"
^DD(165.5,515,21,3,0)="not done,  record a '0'."
^DD(165.5,515,"DT")="2960909"
^DD(165.5,516,0)="IMMUNOHISTOCHEMISTRY^S^0:Not done;1:Done;9:Unknown if done;^STS1;17^Q"
^DD(165.5,516,21,0)="^^3^3^2970320^^^^"
^DD(165.5,516,21,1,0)="Record whether the 'Immunohistochemistry/Tumor Surface Marker'"
^DD(165.5,516,21,2,0)="test was performed to evaluate this primary.  If this test was"
^DD(165.5,516,21,3,0)="not done,  record a '0'."
^DD(165.5,516,"DT")="2960909"
^DD(165.5,517,0)="IN SITU HYBRIDIZATION^S^0:Not done;1:Done;9:Unknown if done;^STS1;18^Q"
^DD(165.5,517,21,0)="^^3^3^2960918^^^"
^DD(165.5,517,21,1,0)="Record whether the Histologic Workup 'In situ hybridization' was"
^DD(165.5,517,21,2,0)="performed to evaluate this soft tissue sarcoma.  If this test was"
^DD(165.5,517,21,3,0)="not done,  record a '0'."
^DD(165.5,517,"DT")="2960909"
^DD(165.5,518,0)="OUTSIDE CONFIRMATION REQUESTED^S^0:No;1:Yes;8:Not applicable;9:Unknown;^STS1;19^Q"
^DD(165.5,518,21,0)="^^1^1^2960910^^"
^DD(165.5,518,21,1,0)="Record whether an outside confirmation of a biopsy was requested."
^DD(165.5,518,"DT")="2960910"
^DD(165.5,519,0)="SUBSITE^P166.3'^ONCO(166.3,^STS1;20^Q"
^DD(165.5,519,21,0)="^^1^1^2960910^^"
^DD(165.5,519,21,1,0)="Record the appropriate subsite code."
^DD(165.5,519,"DT")="2960910"
^DD(165.5,520,0)="TYPE OF ADDITIONAL CODING SYS^S^1:1 to 3 system;2:1 to 2 or high/low system;8:Not applicable;9:Unknown;^STS1;21^Q"
^DD(165.5,520,21,0)="^^4^4^2960910^^"
^DD(165.5,520,21,1,0)="If your institution uses an additional grade coding system, record the"
^DD(165.5,520,21,2,0)="additional system that is used.  Code '1' if the coding system is a 1 to 3"
^DD(165.5,520,21,3,0)="scale.  Code '2' if the coding system is a 1 to 2 or high/low scale.  If"
^DD(165.5,520,21,4,0)="not applicable code '8', and if unknown, code '9'."
^DD(165.5,520,"DT")="2960910"
^DD(165.5,521,0)="VALUE OF ADDITIONAL CODING SYS^S^1:1;2:2;3:3;5:Low;6:High;8:Not applicable;9:Unknown;^STS1;22^Q"
^DD(165.5,521,21,0)="^^3^3^2960910^^"
^DD(165.5,521,21,1,0)="Enter the numeric (1,2 or 3) value from the additional coding system."
^DD(165.5,521,21,2,0)="If code is 'low', code '5'; if code is 'high', code 6.  If not applicable"
^DD(165.5,521,21,3,0)="code '8', and if unknown, code '9'."
^DD(165.5,521,"DT")="2960910"
^DD(165.5,522,0)="PATHOLOGIC SIZE OF TUMOR^NJ3,0O^^STS1;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,522,2)="S Y(0)=Y S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,522,2.1)="S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,522,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(165.5,522,21,0)="^^7^7^2960924^^^^"
^DD(165.5,522,21,1,0)="Record the largest diameter of the primary tumor in milimeters (1 cm = 10"
^DD(165.5,522,21,2,0)="mm) as specified in the pathology report.  If there is more than one tumor"
^DD(165.5,522,21,3,0)="in the same primary site (multifocal), record the largest diameter of the"
^DD(165.5,522,21,4,0)="largest tumor.  Do not use size of the entire specimen for tumor size.  In"
^DD(165.5,522,21,5,0)="cases where the tumor diameter is not specified in the pathology report,"
^DD(165.5,522,21,6,0)="size of tumor should be obtained from the operative report, followed by"
^DD(165.5,522,21,7,0)="x-rays, or physical examinations."
^DD(165.5,522,"DT")="2960924"
^DD(165.5,523,0)="DEPTH OF TUMOR^S^1:Superficial (above muscle fascia);2:Deep (all else);8:Not applicable;9:Unknown;^STS1;24^Q"
^DD(165.5,523,21,0)="^^2^2^2960910^^"
^DD(165.5,523,21,1,0)="Tumor depth is applicable for extremity, trunk and head and neck lesions."
^DD(165.5,523,21,2,0)="Code 8 if not applicable and 9 if unknown."
^DD(165.5,523,"DT")="2960910"
^DD(165.5,524,0)="CONSULTATIONS (MED ONCOLOGIST)^S^0:No;1:Yes;9:Unknown;^STS1;25^Q"
^DD(165.5,524,21,0)="^^1^1^2960910^^"
^DD(165.5,524,21,1,0)="Enter whether there was a consultation with a medical oncologist."
^DD(165.5,524,"DT")="2960910"
^DD(165.5,525,0)="CONSULTATIONS (RAD ONCOLOGIST)^S^0:No;1:Yes;9:Unknown;^STS1;26^Q"
^DD(165.5,525,21,0)="^^1^1^2960910^^"
^DD(165.5,525,21,1,0)="Enter whether there was a consultation with a radiation oncologist."
^DD(165.5,525,"DT")="2960910"
^DD(165.5,526,0)="TREATING SURGEON^S^1:General surgeon;2:Orthopedic surgeon;3:Urologist;4:Gynecologist;5:ENT (ear, nose and throat);6:Other;8:Not applicable, no surgery;9:Unknown;^STS2;1^Q"
^DD(165.5,526,21,0)="^^1^1^2960910^^"
^DD(165.5,526,21,1,0)="Record the appropriate code for the type of treating surgeon."
^DD(165.5,526,"DT")="2960910"
^DD(165.5,527,0)="ASA CLASS^S^1:No systemic disturbance;2:Mild to moderate systemic disturbance;3:Severe systemic disturbance;4:Life-threatening disturbance;5:Moribund with little chance of survival;9:Class unknown or not applicable;^STS2;2^Q"
^DD(165.5,527,21,0)="^^3^3^2960920^^^"
^DD(165.5,527,21,1,0)="Record appropriate code from anesthesiologist's report.  If no organic,"
^DD(165.5,527,21,2,0)="physiologic, biochemical or psychiatric disturbance, code 1.  If not"
^DD(165.5,527,21,3,0)="recorded or if the patient did not receive surgery, code 9."
^DD(165.5,527,"DT")="2960920"
^DD(165.5,528,0)="FINE NEEDLE ASPIRATION^NJ6,0XO^^STS1;27^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N)!($L(X)<6) X"
^DD(165.5,528,2)="S Y(0)=Y S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,528,2.1)="S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,528,3)="Type a Number between 000000 and 999999, 0 Decimal Digits.  Must be 6 characters long."
^DD(165.5,528,21,0)="^^11^11^2960912^^^^"
^DD(165.5,528,21,1,0)="Enter the morphology code for this biopsy if it was performed.  The"
^DD(165.5,528,21,2,0)="first 4 digits should represent the HISTOLOGY, the 5th digit should "
^DD(165.5,528,21,3,0)="represent the BEHAVIOR, and the 6th digit should represent the GRADE."
^DD(165.5,528,21,4,0)="For example, if this biopsy was performed and the HISTOLOGY was '8693',"
^DD(165.5,528,21,5,0)="the BEHAVIOR was '3' and the GRADE was '1', then enter ""869331"".  This"
^DD(165.5,528,21,6,0)="will display as ""8693/3/1""."
^DD(165.5,528,21,7,0)="     If the biopsy was not done code 8's (ie - 888888), if it is unknown"
^DD(165.5,528,21,8,0)="whether the biopsy was done code 9's (ie - 999999).  If the biopsy was"
^DD(165.5,528,21,9,0)="done but one or more items are unknown, code 7's where unknown.  For"
^DD(165.5,528,21,10,0)="example, if the HISTOLOGY is '8693' and the behavior is '3' , but the"
^DD(165.5,528,21,11,0)="GRADE is unknown, then enter ""869337""."
^DD(165.5,528,"DT")="2960911"
^DD(165.5,529,0)="CORE NEEDLE BIOPSY^NJ6,0XO^^STS1;28^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N)!($L(X)<6) X"
^DD(165.5,529,2)="S Y(0)=Y S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,529,2.1)="S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,529,3)="Type a Number between 0 and 999999, 0 Decimal Digits.  Must be 6 characters long."
^DD(165.5,529,21,0)="^^11^11^2960911^"
^DD(165.5,529,21,1,0)="Enter the morphology code for this biopsy if it was performed.  The"
^DD(165.5,529,21,2,0)="first 4 digits should represent the HISTOLOGY, the 5th digit should "
^DD(165.5,529,21,3,0)="represent the BEHAVIOR, and the 6th digit should represent the GRADE."
^DD(165.5,529,21,4,0)="For example, if this biopsy was performed and the HISTOLOGY was '8693',"
^DD(165.5,529,21,5,0)="the BEHAVIOR was '3' and the GRADE was '1', then enter ""869331"".  This"
^DD(165.5,529,21,6,0)="will display as ""8693/3/1""."
^DD(165.5,529,21,7,0)="     If the biopsy was not done code 8's (ie - 888888), if it is unknown"
^DD(165.5,529,21,8,0)="whether the biopsy was done code 9's (ie - 999999).  If the biopsy was"
^DD(165.5,529,21,9,0)="done but one or more items are unknown, code 7's where unknown.  For"
^DD(165.5,529,21,10,0)="example, if the HISTOLOGY is '8693' and the behavior is '3' , but the"
^DD(165.5,529,21,11,0)="GRADE is unknown, then enter ""869337""."
^DD(165.5,529,"DT")="2960911"
^DD(165.5,530,0)="INCISIONAL BIOPSY (STS PCE)^NJ6,0XO^^STS1;29^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N)!($L(X)<6) X"
^DD(165.5,530,2)="S Y(0)=Y S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,530,2.1)="S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,530,3)="Type a Number between 0 and 999999, 0 Decimal Digits.  Must be 6 characters long."
^DD(165.5,530,21,0)="^^11^11^2960911^"
^DD(165.5,530,21,1,0)="Enter the morphology code for this biopsy if it was performed.  The"
^DD(165.5,530,21,2,0)="first 4 digits should represent the HISTOLOGY, the 5th digit should "
^DD(165.5,530,21,3,0)="represent the BEHAVIOR, and the 6th digit should represent the GRADE."
^DD(165.5,530,21,4,0)="For example, if this biopsy was performed and the HISTOLOGY was '8693',"
^DD(165.5,530,21,5,0)="the BEHAVIOR was '3' and the GRADE was '1', then enter ""869331"".  This"
^DD(165.5,530,21,6,0)="will display as ""8693/3/1""."
^DD(165.5,530,21,7,0)="     If the biopsy was not done code 8's (ie - 888888), if it is unknown"
^DD(165.5,530,21,8,0)="whether the biopsy was done code 9's (ie - 999999).  If the biopsy was"
^DD(165.5,530,21,9,0)="done but one or more items are unknown, code 7's where unknown.  For"
^DD(165.5,530,21,10,0)="example, if the HISTOLOGY is '8693' and the behavior is '3' , but the"
^DD(165.5,530,21,11,0)="GRADE is unknown, then enter ""869337""."
^DD(165.5,530,"DT")="2960911"
^DD(165.5,531,0)="EXCISIONAL BIOPSY^NJ6,0XO^^STS1;30^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N)!($L(X)<6) X"
^DD(165.5,531,2)="S Y(0)=Y S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,531,2.1)="S Y=$E(Y,1,4)_""/""_$E(Y,5)_""/""_$E(Y,6)"
^DD(165.5,531,3)="Type a Number between 0 and 999999, 0 Decimal Digits.  Must be 6 characters long."
^DD(165.5,531,21,0)="^^11^11^2960912^^^^"
^DD(165.5,531,21,1,0)="Enter the morphology code for this biopsy if it was performed.  The"
^DD(165.5,531,21,2,0)="first 4 digits should represent the HISTOLOGY, the 5th digit should "
^DD(165.5,531,21,3,0)="represent the BEHAVIOR, and the 6th digit should represent the GRADE."
^DD(165.5,531,21,4,0)="For example, if this biopsy was performed and the HISTOLOGY was '8693',"
^DD(165.5,531,21,5,0)="the BEHAVIOR was '3' and the GRADE was '1', then enter ""869331"".  This"
^DD(165.5,531,21,6,0)="will display as ""8693/3/1""."
^DD(165.5,531,21,7,0)="     If the biopsy was not done code 8's (ie - 888888), if it is unknown"
^DD(165.5,531,21,8,0)="whether the biopsy was done code 9's (ie - 999999).  If the biopsy was"
^DD(165.5,531,21,9,0)="done but one or more items are unknown, code 7's where unknown.  For"
^DD(165.5,531,21,10,0)="example, if the HISTOLOGY is '8693' and the behavior is '3' , but the"
^DD(165.5,531,21,11,0)="GRADE is unknown, then enter ""869337""."
^DD(165.5,531,"DT")="2960911"
^DD(165.5,532,0)="EXTERNAL BEAM RADIATION^S^0:No;1:Yes;9:Unknown;^STS2;3^Q"
^DD(165.5,532,21,0)="^^1^1^2960912^^^"
^DD(165.5,532,21,1,0)="Record whether any external beam radiation therapy was performed."
^DD(165.5,532,"DT")="2960912"
^DD(165.5,533,0)="EXTERNAL BEAM RAD FRACTIONS^NJ3,0O^^STS2;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,533,2)="S Y(0)=Y S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,533,2.1)="S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,533,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(165.5,533,21,0)="^^1^1^2960913^^^^"
^DD(165.5,533,21,1,0)="Record the number of fractions for external beam radiation."
^DD(165.5,533,"DT")="2960913"
^DD(165.5,534,0)="EXTERNAL BEAM RADIATION ENERGY^NJ2,0O^^STS2;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,534,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0""_Y,1:Y)"
^DD(165.5,534,2.1)="S Y=$S($L(Y)=1:""0""_Y,1:Y)"
^DD(165.5,534,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,534,21,0)="^^2^2^2960912^^^^"
^DD(165.5,534,21,1,0)="Record the units (MV) of radiation energy if external beam radiation"
^DD(165.5,534,21,2,0)="was performed ."
^DD(165.5,534,"DT")="2960912"
^DD(165.5,535,0)="INTRAOPERATIVE RADIATION^S^0:No;1:Yes;9:Unknown;^STS2;6^Q"
^DD(165.5,535,21,0)="^^1^1^2960912^^"
^DD(165.5,535,21,1,0)="Record whether intraoperative radiation was performed."
^DD(165.5,535,"DT")="2960912"
^DD(165.5,536,0)="INTRAOPERATIVE RADIATION DOSE^NJ5,0O^^STS2;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,536,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,536,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,536,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,536,21,0)="^^4^4^2960912^^"
^DD(165.5,536,21,1,0)="Record the total intraoperative radiation dose given.  If the patient did"
^DD(165.5,536,21,2,0)="not receive this type of radiation therapy, code 0's. If it is known that"
^DD(165.5,536,21,3,0)="the patient received this type of radiation therapy but the dose is not"
^DD(165.5,536,21,4,0)="known, code 9's."
^DD(165.5,536,"DT")="2960912"
^DD(165.5,537,0)="INTRAOPERATIVE RADIATION ENER^NJ2,0O^^STS2;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,537,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0""_Y,1:Y)"
^DD(165.5,537,2.1)="S Y=$S($L(Y)=1:""0""_Y,1:Y)"
^DD(165.5,537,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,537,21,0)="^^2^2^2960912^^"
^DD(165.5,537,21,1,0)="Record the units (MV) of intraoperative radiation energy if this"
^DD(165.5,537,21,2,0)="was performed."
^DD(165.5,537,"DT")="2960912"
^DD(165.5,538,0)="BRACHYTHERAPY^S^0:No;1:Yes;9:Unknown;^STS2;9^Q"
^DD(165.5,538,21,0)="^^1^1^2960913^^"
^DD(165.5,538,21,1,0)="Record whether brachytherapy was performed."
^DD(165.5,538,"DT")="2960913"
^DD(165.5,539,0)="BRACHYTHERAPY DAYS^NJ3,0O^^STS2;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,539,2)="S Y(0)=Y S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,539,2.1)="S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,539,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(165.5,539,21,0)="^^1^1^2960916^^^^"
^DD(165.5,539,21,1,0)="Record the number of days brachytherapy was given."
^DD(165.5,539,"DT")="2960913"
^DD(165.5,540,0)="BRACHYTHERAPY RADIATION DOSE^NJ5,0O^^STS2;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,540,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,540,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,540,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,540,21,0)="^^4^4^2960913^^"
^DD(165.5,540,21,1,0)="Record the total brachytherapy radiation dose given.  If the patient did"
^DD(165.5,540,21,2,0)="not receive this type of radiation therapy, code 0's.  If it is known that"
^DD(165.5,540,21,3,0)="the patient received this type of radiation therapy, but the dose is"
^DD(165.5,540,21,4,0)="unknown, code 9's."
^DD(165.5,540,"DT")="2960913"
^DD(165.5,541,0)="DATE BRACHYTHERAPY STARTED^DXO^^STS2;12^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DBTS^ONCODSR"
^DD(165.5,541,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,541,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,541,3)="*** DATE BRACHYTHERAPY STARTED MUST BE AFTER OR EQUAL TO THE DATE DX, AND BEFORE OR EQUAL TO THE DATE BRACHYTHERAPY ENDED ***"
^DD(165.5,541,21,0)="^^3^3^2970523^^^^"
^DD(165.5,541,21,1,0)=""
^DD(165.5,541,21,2,0)="Record the date on which brachytherapy was started.  If brachytherapy was"
^DD(165.5,541,21,3,0)="not given, code the date as 00/00/00.  If it is unknown code as 99/99/99."
^DD(165.5,541,"DT")="2970404"
^DD(165.5,542,0)="DATE BRACHYTHERAPY ENDED^DXO^^STS2;13^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DBTE^ONCODSR"
^DD(165.5,542,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,542,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,542,3)="*** DATE BRACHYTHERAPY ENDED MUST BE AFTER OR EQUAL TO THE DATE BRACHYTHERAPY STARTED ***"
^DD(165.5,542,21,0)="^^3^3^2970523^^^^"
^DD(165.5,542,21,1,0)=""
^DD(165.5,542,21,2,0)="Record the date on which brachytherapy ended.  If brachytherapy was not"
^DD(165.5,542,21,3,0)="given, code the date as 00/00/00.  If it is unknown code as 99/99/99."
^DD(165.5,542,"DT")="2970407"
^DD(165.5,543,0)="CYTOXAN^S^0:No;1:Yes;9:Unknown;^STS2;14^Q"
^DD(165.5,543,21,0)="^^2^2^2960913^^"
^DD(165.5,543,21,1,0)="Record whether the chemotherapeutic agent, Cytoxan, was given.  If no"
^DD(165.5,543,21,2,0)="chemotherapy was given, code as 0."
^DD(165.5,543,"DT")="2960913"
^DD(165.5,544,0)="DTIC^S^0:No;1:Yes;9:Unknown;^STS2;15^Q"
^DD(165.5,544,21,0)="^^2^2^2960913^^"
^DD(165.5,544,21,1,0)="Record whether the chemotherapeutic agent, DTIC, was administered.  If no"
^DD(165.5,544,21,2,0)="chemotherapy was given, code as 0."
^DD(165.5,544,"DT")="2960913"
^DD(165.5,545,0)="DOXORUBICIN (STS)^S^0:No;1:Yes;9:Unknown;^STS2;16^Q"
^DD(165.5,545,21,0)="^^2^2^2970331^^^^"
^DD(165.5,545,21,1,0)="Record whether the chemotherapeutic agent, Doxorubicin, was administered."
^DD(165.5,545,21,2,0)="If no chemotherapy was given, code as 0."
^DD(165.5,545,"DT")="2970331"
^DD(165.5,546,0)="ETOPOSIDE^S^0:No;1:Yes;9:Unknown;^STS2;17^Q"
^DD(165.5,546,21,0)="^^2^2^2960913^^"
^DD(165.5,546,21,1,0)="Record whether the chemotherapeutic agent, Etoposide, was administered."
^DD(165.5,546,21,2,0)="If no chemotherapy was given, code as 0."
^DD(165.5,546,"DT")="2960913"
^DD(165.5,547,0)="CISPLATIN METHOD OF DELIVERY^S^1:Bolus;2:Infusion;8:Not applicable;9:Unknown;^STS2;18^Q"
^DD(165.5,547,21,0)="^^2^2^2960913^^^"
^DD(165.5,547,21,1,0)="Record the method of delivery for this agent, bolus or infusion.  If not"
^DD(165.5,547,21,2,0)="applicable cade 8, and if unknown code 9."
^DD(165.5,547,"DT")="2960913"
^DD(165.5,548,0)="CYTOXAN METHOD OF DELIVERY^S^1:Bolus;2:Infusion;8:Not applicable;9:Unknown;^STS2;19^Q"
^DD(165.5,548,21,0)="^^2^2^2960913^^^^"
^DD(165.5,548,21,1,0)="Record the method of delivery for this agent, bolus or infusion.  If not"
^DD(165.5,548,21,2,0)="applicable cade 8, and if unknown code 9."
^DD(165.5,548,"DT")="2960913"
^DD(165.5,549,0)="DTIC METHOD OF DELIVERY^S^1:Bolus;2:Infusion;8:Not applicable;9:Unknown;^STS2;20^Q"
^DD(165.5,549,21,0)="^^2^2^2960913^^^"
^DD(165.5,549,21,1,0)="Record the method of delivery for this agent, bolus or infusion.  If not"
^DD(165.5,549,21,2,0)="applicable cade 8, and if unknown code 9."
^DD(165.5,549,"DT")="2960913"
^DD(165.5,550,0)="DOXORUBICIN METHOD OF DELIVERY^S^1:Bolus;2:Infusion;8:Not applicable;9:Unknown;^STS2;21^Q"
^DD(165.5,550,21,0)="^^2^2^2960913^^"
^DD(165.5,550,21,1,0)="Record the method of delivery for this agent, bolus or infusion.  If not"
^DD(165.5,550,21,2,0)="applicable cade 8, and if unknown code 9."
^DD(165.5,550,"DT")="2960913"
^DD(165.5,551,0)="ETOPOSIDE METHOD OF DELIVERY^S^1:Bolus;2:Infusion;8:Not applicable;9:Unknown;^STS2;22^Q"
^DD(165.5,551,21,0)="^^2^2^2960913^^"
^DD(165.5,551,21,1,0)="Record the method of delivery for this agent, bolus or infusion.  If not"
^DD(165.5,551,21,2,0)="applicable cade 8, and if unknown code 9."
^DD(165.5,551,"DT")="2960913"
^DD(165.5,552,0)="IFOSFAMIDE METHOD OF DELIVERY^S^1:Bolus;2:Infusion;8:Not applicable;9:Unknown;^STS2;23^Q"
^DD(165.5,552,21,0)="^^2^2^2960913^^"
^DD(165.5,552,21,1,0)="Record the method of delivery for this agent, bolus or infusion.  If not"
^DD(165.5,552,21,2,0)="applicable cade 8, and if unknown code 9."
^DD(165.5,552,"DT")="2960913"
^DD(165.5,553,0)="CISPLATIN LOCATION^S^1:Intra-arterial;2:Intravenous;3:Oral;8:Not applicable;9:Unknown;^STS2;24^Q"
^DD(165.5,553,21,0)="^^2^2^2960913^^"
^DD(165.5,553,21,1,0)="Record the location of this agent, whether intra-arterial, intravenous or"
^DD(165.5,553,21,2,0)="oral.  If not applicable, code 8, and if unknown code 9."
^DD(165.5,553,"DT")="2960913"
^DD(165.5,554,0)="CYTOXAN LOCATION^S^1:Intra-arterial;2:Intravenous;3:Oral;8:Not applicable;9:Unknown;^STS2;25^Q"
^DD(165.5,554,21,0)="^^2^2^2960913^^"
^DD(165.5,554,21,1,0)="Record the location of this agent, whether intra-arterial, intravenous or"
^DD(165.5,554,21,2,0)="oral.  If not applicable, code 8, and if unknown code 9."
^DD(165.5,554,"DT")="2960913"
^DD(165.5,555,0)="DTIC LOCATION^S^1:Intra-arterial;2:Intravenous;3:Oral;8:Not applicable;9:Unknown;^STS2;26^Q"
^DD(165.5,555,21,0)="^^2^2^2960913^^"
^DD(165.5,555,21,1,0)="Record the location of this agent, whether intra-arterial, intravenous or"
^DD(165.5,555,21,2,0)="oral.  If not applicable, code 8, and if unknown code 9."
^DD(165.5,555,"DT")="2960913"
^DD(165.5,556,0)="DOXORUBICIN LOCATION^S^1:Intra-arterial;2:Intravenous;3:Oral;8:Not applicable;9:Unknown;^STS2;27^Q"
^DD(165.5,556,21,0)="^^2^2^2960913^^"
^DD(165.5,556,21,1,0)="Record the location of this agent, whether intra-arterial, intravenous or"
^DD(165.5,556,21,2,0)="oral.  If not applicable, code 8, and if unknown code 9."
^DD(165.5,556,"DT")="2960913"
^DD(165.5,557,0)="ETOPOSIDE LOCATION^S^1:Intra-arterial;2:Intravenous;3:Oral;8:Not applicable;9:Unknown;^STS2;28^Q"
^DD(165.5,557,21,0)="^^2^2^2960913^^"
^DD(165.5,557,21,1,0)="Record the location of this agent, whether intra-arterial, intravenous or"
^DD(165.5,557,21,2,0)="oral.  If not applicable, code 8, and if unknown code 9."
^DD(165.5,557,"DT")="2960913"
^DD(165.5,558,0)="IFOSFAMIDE LOCATION^S^1:Intra-arterial;2:Intravenous;3:Oral;8:Not applicable;9:Unknown;^STS2;29^Q"
^DD(165.5,558,21,0)="^^2^2^2960913^^"
^DD(165.5,558,21,1,0)="Record the location of this agent, whether intra-arterial, intravenous or"
^DD(165.5,558,21,2,0)="oral.  If not applicable, code 8, and if unknown code 9."
^DD(165.5,558,"DT")="2960913"
^DD(165.5,559,0)="COLONY STIMULATING FACTORS^*S^0:No;1:Yes;8:NA;9:Unknown;^STS2;30^Q"
^DD(165.5,559,12)="Code 8 should not be used for cases with a DATE DX < 1/1/1999"
^DD(165.5,559,12.1)="S DIC(""S"")=""I ($P($G(^ONCO(165.5,DA,0)),U,16)>2981231)!(Y'=8)"""
^DD(165.5,559,21,0)="^^1^1^2990114^^^^"
^DD(165.5,559,21,1,0)="Record whether colony stimulating factors were used."
^DD(165.5,559,"DT")="2990114"
^DD(165.5,560,0)="PROTOCOL PARTICIPATION^*S^00:Not on/NA;01:NSABP;02:GOG;03:RTOG;04:SWOG;05:ECOG;06:POG;07:CCG;08:CALGB;09:NCI;10:ACS;11:National protocol, NOS;12:Local protocol, NOS;99:Unknown;^STS2;31^Q"
^DD(165.5,560,12)="Code 12 should not be used for cases with a DATE DX < 1/1/1999"
^DD(165.5,560,12.1)="S DIC(""S"")=""I ($P($G(^ONCO(165.5,DA,0)),U,16)>2981231)!(Y'=12)"""
^DD(165.5,560,21,0)="^^4^4^2990114^^^^"
^DD(165.5,560,21,1,0)="Record whether the patient was enrolled in and treated on a protocol.  A"
^DD(165.5,560,21,2,0)="physician may treat a patient following the guidelines of an established"
^DD(165.5,560,21,3,0)="protocol; however, the patient is not enrolled into the protocol.  For"
^DD(165.5,560,21,4,0)="these patients, use code 00 (Not on/NA)."
^DD(165.5,560,"DT")="2990111"
^DD(165.5,561,0)="OTHER PROTOCOL^S^0:Not on protocol/not applicable;1:In house protocol;2:Non-cooperative, multi-institutional protocol;3:On protocol, type unknown;9:Unknown;^STS2;32^Q"
^DD(165.5,561,21,0)="^^1^1^2960916^^"
^DD(165.5,561,21,1,0)="Record whether therapy was given under another protocol."
^DD(165.5,561,"DT")="2960916"
^DD(165.5,562,0)="REFERRED TO REHAB SERVICES^S^0:No;1:Yes;9:Unknown;^STS2;33^Q"
^DD(165.5,562,21,0)="^^1^1^2960916^^"
^DD(165.5,562,21,1,0)="Record whether the patient was referred to rehabilitation services."
^DD(165.5,562,"DT")="2960916"
^DD(165.5,563,0)="PHYSICAL THERAPY/REHABILTATION^S^0:No;1:Yes;9:Unknown;^STS2;34^Q"
^DD(165.5,563,21,0)="^^2^2^2960916^^"
^DD(165.5,563,21,1,0)="Record whether the patient was referred to physical therapy or"
^DD(165.5,563,21,2,0)="rehabilitation service."
^DD(165.5,563,"DT")="2960916"
^DD(165.5,564,0)="TRANSFERRED TO REHABILITATION^S^0:No;1:Yes;9:Unknown;^STS2;35^Q"
^DD(165.5,564,21,0)="^^2^2^2960916^^"
^DD(165.5,564,21,1,0)="Record whether the patient was transferred to a rehabilitation facility"
^DD(165.5,564,21,2,0)="after being released from the hospital."
^DD(165.5,564,"DT")="2960916"
^DD(165.5,565,0)="NUMBER OF HOSPITALIZATIONS^NJ2,0O^^STS2;36^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,565,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0""_Y,1:Y)"
^DD(165.5,565,2.1)="S Y=$S($L(Y)=1:""0""_Y,1:Y)"
^DD(165.5,565,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,565,21,0)="^^3^3^2960916^^"
^DD(165.5,565,21,1,0)="Record the number of hospitalizations for this patient, counting only"
^DD(165.5,565,21,2,0)="overnight stays during the first six months after diagnosis.  Do not"
^DD(165.5,565,21,3,0)="count stays for 23 hour observation.  If unknown, code 9's."
^DD(165.5,565,"DT")="2960916"
^DD(165.5,566,0)="TOTAL LENGTH OF STAYS^NJ3,0O^^STS2;37^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,566,2)="S Y(0)=Y S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,566,2.1)="S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(165.5,566,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(165.5,566,21,0)="^^3^3^2960916^^"
^DD(165.5,566,21,1,0)="Add all days for each overnight hospitalization together to get a"
^DD(165.5,566,21,2,0)="cumulative total for all stays during the first six months after diagnosis."
^DD(165.5,566,21,3,0)="Do not count stays for 23 hour observation.  If unknown, code 9's."
^DD(165.5,566,"DT")="2960916"
^DD(165.5,567,0)="DATE EXT BEAM RAD STARTED^DXO^^STS2;38^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,567,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,567,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,567,3)="*** DATE EXT BEAM RADIATION STARTED MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,567,21,0)="^^3^3^2970523^^"
^DD(165.5,567,21,1,0)=""
^DD(165.5,567,21,2,0)="Record the date external beam radiation therapy was started.  Code 0's if"
^DD(165.5,567,21,3,0)="not given.  Code 9's if unknown."
^DD(165.5,567,"DT")="2970403"
^DD(165.5,600,0)="CLINICAL DX WITH BONE LESION^S^1:Yes;2:No;9:Unknown;^PRO1;1^Q"
^DD(165.5,600,21,0)="^^2^2^2961025^^^"
^DD(165.5,600,21,1,0)="Record whether the Method of Diagnosis: CLINICAL DIAGNOSIS WITH BONE"
^DD(165.5,600,21,2,0)="LESION was used to diagnose this case of prostate cancer."
^DD(165.5,600,"DT")="2961025"
^DD(165.5,601,0)="CLINICAL DX BY RECTAL EXAM^S^1:Yes;2:No;9:Unknown;^PRO1;2^Q"
^DD(165.5,601,21,0)="^^2^2^2961025^"
^DD(165.5,601,21,1,0)="Record whether the Method of Diagnosis: CLINICAL DIAGNOSIS BY RECTAL EXAM "
^DD(165.5,601,21,2,0)="was used to diagnose this case of prostate cancer."
^DD(165.5,601,"DT")="2961025"
^DD(165.5,602,0)="CYTOLOGY^S^1:Yes;2:No;9:Unknown;^PRO1;3^Q"
^DD(165.5,602,21,0)="^^2^2^2961025^"
^DD(165.5,602,21,1,0)="Record whether the Method of Diagnosis: CYTOLOGY was used to diagnose this"
^DD(165.5,602,21,2,0)="case of prostate cancer."
^DD(165.5,602,"DT")="2961025"
^DD(165.5,603,0)="INCIDENTAL FINDING IN TURP^S^1:Yes;2:No;9:Unknown;^PRO1;4^Q"
^DD(165.5,603,21,0)="^^3^3^2961025^^"
^DD(165.5,603,21,1,0)="Record whether the Method of Diagnosis: INCIDENTAL FINDING IN"
^DD(165.5,603,21,2,0)="TRANSURETHRAL RESECTION OF PROSTATE (TURP) FOR BENIGN DISEASE"
^DD(165.5,603,21,3,0)="was used to diagnose this case of prostate cancer."
^DD(165.5,603,"DT")="2961025"
^DD(165.5,604,0)="NEEDLE ASPIRATION BIOPSY^S^1:Yes;2:No;9:Unknown;^PRO1;5^Q"
^DD(165.5,604,21,0)="^^2^2^2961025^^"
^DD(165.5,604,21,1,0)="Record whether the Method of Diagnosis: NEEDLE ASPIRATION BIOPSY was used"
^DD(165.5,604,21,2,0)="to diagnose this case of prostate cancer."
^DD(165.5,604,"DT")="2961025"
^DD(165.5,605,0)="NEEDLE BIOPSY, NOS^S^1:Yes;2:No;9:Unknown;^PRO1;6^Q"
^DD(165.5,605,21,0)="^^2^2^2961025^"
^DD(165.5,605,21,1,0)="Record whether the Method of Diagnosis: NEEDLE BIOPSY, NOS was used to"
^DD(165.5,605,21,2,0)="diagnose this case of prostate cancer."
^DD(165.5,605,"DT")="2961025"
^DD(165.5,606,0)="PERINEAL BIOPSY^S^1:Yes;2:No;9:Unknown;^PRO1;7^Q"
^DD(165.5,606,21,0)="^^2^2^2961025^^"
^DD(165.5,606,21,1,0)="Record whether the Method of Diagnosis: PERINEAL BIOPSY was used to"
^DD(165.5,606,21,2,0)="diagnose this case of prostate cancer."
^DD(165.5,606,"DT")="2961025"
^DD(165.5,607,0)="TRANSRECTAL BIOPSY^S^1:Yes;2:No;9:Unknown;^PRO1;8^Q"
^DD(165.5,607,21,0)="^^2^2^2961025^"
^DD(165.5,607,21,1,0)="Record whether the Method of Diagnosis: TRANSRECTAL BIOPSY was used to"
^DD(165.5,607,21,2,0)="diagnose this case of prostate cancer."
^DD(165.5,607,"DT")="2961025"
^DD(165.5,608,0)="TRUS^S^1:Yes;2:No;9:Unknown;^PRO1;9^Q"
^DD(165.5,608,21,0)="^^2^2^2961025^"
^DD(165.5,608,21,1,0)="Record whether the Method of Diagnosis: TRANSRECTAL ULTRASONOGRAPHICALLY"
^DD(165.5,608,21,2,0)="GUIDED BIOPSY (TRUS) was used to diagnose this case of prostate cancer."
^DD(165.5,608,"DT")="2961025"
^DD(165.5,609,0)="TRANSURETHRAL RESECTION^S^1:Yes;2:No;9:Unknown;^PRO1;10^Q"
^DD(165.5,609,21,0)="^^2^2^2961025^^"
^DD(165.5,609,21,1,0)="Record whether the Method of Diagnosis: TRANSURETHRAL RESECTION OF"
^DD(165.5,609,21,2,0)="PROSTATE, NOS was used to diagnose this case of prostate cancer."
^DD(165.5,609,"DT")="2961025"
^DD(165.5,610,0)="OTHER METHOD OF DX (PROSTATE)^S^1:Yes;2:No;9:Unknown;^PRO1;11^Q"
^DD(165.5,610,21,0)="^^2^2^2961025^^"
^DD(165.5,610,21,1,0)="Record whether the Method of Diagnosis: OTHER was used to diagnose this"
^DD(165.5,610,21,2,0)="case of prostate cancer."
^DD(165.5,610,"DT")="2961025"
^DD(165.5,611,0)="BONE MARROW ASPIRATION^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;12^Q"
^DD(165.5,611,21,0)="^^3^3^2961025^^^"
^DD(165.5,611,21,1,0)="Record the results of the BONE MARROW ASPIRATION diagnostic test performed"
^DD(165.5,611,21,2,0)="to evaluate the prostate tumor.  If the study was done and the results"
^DD(165.5,611,21,3,0)="cannot be determined, code 9 (Test done, results unknown). "
^DD(165.5,611,"DT")="2961025"
^DD(165.5,612,0)="BONE SCAN (PROSTATE)^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;13^Q"
^DD(165.5,612,21,0)="^^3^3^2961025^^"
^DD(165.5,612,21,1,0)="Record the results of the BONE SCAN diagnostic test performed to evaluate"
^DD(165.5,612,21,2,0)="the prostate tumor.  If the study was done and the results cannot be"
^DD(165.5,612,21,3,0)="determined, code 9 (Test done, results unknown). "
^DD(165.5,612,"DT")="2961025"
^DD(165.5,613,0)="BONE X-RAY^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;14^Q"
^DD(165.5,613,21,0)="^^3^3^2961025^"
^DD(165.5,613,21,1,0)="Record the results of the BONE X-RAY diagnostic test performed to evaluate"
^DD(165.5,613,21,2,0)="the prostate tumor.  If the study was done and the results cannot be"
^DD(165.5,613,21,3,0)="determined, code 9 (Test done, results unknown). "
^DD(165.5,613,"DT")="2961025"
^DD(165.5,614,0)="CHEST X-RAY (PROSTATE)^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;15^Q"
^DD(165.5,614,21,0)="^^3^3^2961025^"
^DD(165.5,614,21,1,0)="Record the results of the CHEST X-RAY diagnostic test performed to"
^DD(165.5,614,21,2,0)="evaluate the prostate tumor.  If the study was done and the results"
^DD(165.5,614,21,3,0)="cannot be determined, code 9 (Test done, results unknown). "
^DD(165.5,614,"DT")="2961025"
^DD(165.5,615,0)="CT SCAN OF PRIMARY SITE^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;16^Q"
^DD(165.5,615,21,0)="^^5^5^2961025^^"
^DD(165.5,615,21,1,0)="Record the results of the CT SCAN OF PRIMARY SITE diagnostic test"
^DD(165.5,615,21,2,0)="performed to evaluate the prostate tumor.  If a scan of the abdomen"
^DD(165.5,615,21,3,0)="was performed by computed tomography (CT), record the results under"
^DD(165.5,615,21,4,0)="CT SCAN OF PRIMARY SITE.  If the study was done and the results cannot"
^DD(165.5,615,21,5,0)="be determined, code 9 (Test done, results unknown). "
^DD(165.5,615,"DT")="2961025"
^DD(165.5,616,0)="INTRAVENOUS PYELOGRAM (PRO)^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;17^Q"
^DD(165.5,616,21,0)="^^3^3^2970214^^^^"
^DD(165.5,616,21,1,0)="Record the results of the INTRAVENOUS PYELOGRAM (IVP) diagnostic test"
^DD(165.5,616,21,2,0)="performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,616,21,3,0)="the results cannot be determined, code 9 (Test done, results unknown). "
^DD(165.5,616,"DT")="2970213"
^DD(165.5,617,0)="LIVER SCAN^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;18^Q"
^DD(165.5,617,21,0)="^^3^3^2961025^"
^DD(165.5,617,21,1,0)="Record the results of the LIVER SCAN diagnostic test performed to evaluate"
^DD(165.5,617,21,2,0)="the prostate tumor.  If the study was done and the results cannot be"
^DD(165.5,617,21,3,0)="determined, code 9 (Test done, results unknown). "
^DD(165.5,617,"DT")="2961025"
^DD(165.5,618,0)="MRI (PRO)^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;19^Q"
^DD(165.5,618,21,0)="^^3^3^2970214^^^^"
^DD(165.5,618,21,1,0)="Record the results of the MAGNETIC RESONANCE IMAGING (MRI) diagnostic test"
^DD(165.5,618,21,2,0)="performed to evaluate the prostate tumor.  If the study was done and the"
^DD(165.5,618,21,3,0)="results cannot be determined, code 9 (Test done, results unknown). "
^DD(165.5,618,"DT")="2970214"
^DD(165.5,619,0)="PELVIC LYMPH NODE DISSECT (PR)^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;20^Q"
^DD(165.5,619,21,0)="^^3^3^2961025^"
^DD(165.5,619,21,1,0)="Record the results of the PELVIC LYMPH NODE DISSECTION diagnostic test"
^DD(165.5,619,21,2,0)="performed to evaluate the prostate tumor.  If the study was done and the"
^DD(165.5,619,21,3,0)="results cannot be determined, code 9 (Test done, results unknown). "
^DD(165.5,619,"DT")="2961025"
^DD(165.5,620,0)="PROSTATIC ACID PHOSPHATASE^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;21^Q"
^DD(165.5,620,21,0)="^^3^3^2961025^"
^DD(165.5,620,21,1,0)="Record the results of the PROSTATIC ACID PHOSPHATASE (PAP) diagnostic test"
^DD(165.5,620,21,2,0)="performed to evaluate the prostate tumor.  If the study was done and the"
^DD(165.5,620,21,3,0)="results cannot be determined, code 9 (Test done, results unknown). "
^DD(165.5,620,"DT")="2961025"
^DD(165.5,621,0)="PROSTATE SPECIFIC ANTIGEN^S^1:Normal;2:Abnormal/elevated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;22^Q"
^DD(165.5,621,21,0)="^^3^3^2961025^"
^DD(165.5,621,21,1,0)="Record the results of the PROSTATE SPECIFIC ANTIGEN (PSA) diagnostic test"
^DD(165.5,621,21,2,0)="performed to evaluate the prostate tumor.  If the study was done and the"
^DD(165.5,621,21,3,0)="results cannot be determined, code 9 (Test done, results unknown). "
^DD(165.5,621,"DT")="2961025"
^DD(165.5,622,0)="OTHER DIAGNOSTIC INFORMATION^S^1:Normal;2:Abnormal/elelvated;8:Test not done/unknown if done;9:Test done, results unknown;^PRO1;23^Q"
^DD(165.5,622,21,0)="^^3^3^2961025^"
^DD(165.5,622,21,1,0)="Record the results of OTHER diagnostic tests performed to evaluate"
^DD(165.5,622,21,2,0)="the prostate tumor.  If the study was done and the results cannot be"
^DD(165.5,622,21,3,0)="determined, code 9 (Test done, results unknown). "
^DD(165.5,622,"DT")="2961025"
^DD(165.5,623,0)="GLEASON'S SCORE^FO^^PRO1;24^K:$L(X)>2!($L(X)<0) X"
^DD(165.5,623,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0""_Y,Y=99:""99 Unknown, not reported, or NA"",1:Y)"
^DD(165.5,623,2.1)="S Y=$S($L(Y)=1:""0""_Y,Y=99:""99 Unknown, not reported, or NA"",1:Y)"
^DD(165.5,623,3)="Answer must be 0-2 characters in length."
^DD(165.5,623,21,0)="^.001^3^3^3021029^^^^"
^DD(165.5,623,21,1,0)="Record the Gleason's score.  For cases where Gleason's score is unknown,"
^DD(165.5,623,21,2,0)="not reported or not applicable, code 99."
^DD(165.5,623,21,3,0)=""
^DD(165.5,623,"DT")="3021029"
^DD(165.5,623.1,0)="PREDOMINANT PATTERN (02-40)^NJ1,0^^PRO2;43^K:+X'=X!(X=6)!(X=7)!(X=8)!($L(X)>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,623.1,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(165.5,623.1,21,0)="^^8^8^2980512^^^^"
^DD(165.5,623.1,21,1,0)=""
^DD(165.5,623.1,21,2,0)="Record the predominant (primary) pattern of tumor for Biopsy, Local"
^DD(165.5,623.1,21,3,0)="Resection, or Simple Prostatectomy, surgical codes 02-40.  Gleason's"
^DD(165.5,623.1,21,4,0)="grading system assigns histologic grade ranging from 1-5 to predominant"
^DD(165.5,623.1,21,5,0)="pattern of tumor.  Record the predominant pattern as stated in the"
^DD(165.5,623.1,21,6,0)="pathology report.  If the grade is not provided and only a Gleason"
^DD(165.5,623.1,21,7,0)="score is available, enter a '0'."
^DD(165.5,623.1,21,8,0)=""
^DD(165.5,623.1,"DT")="2980511"
^DD(165.5,623.2,0)="LESSER PATTERN (02-40)^NJ1,0X^^PRO2;44^D LP25^ONCOIT"
^DD(165.5,623.2,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(165.5,623.2,21,0)="^^8^8^2980511^^^"
^DD(165.5,623.2,21,1,0)=""
^DD(165.5,623.2,21,2,0)="Record the lesser (secondary) pattern of tumor for Biopsy, Local"
^DD(165.5,623.2,21,3,0)="Resection, or Simple Prostatectomy, surgical codes 02-40.  Gleason's"
^DD(165.5,623.2,21,4,0)="grading system assigns histologic grade ranging from 1-5 to lesser"
^DD(165.5,623.2,21,5,0)="pattern of tumor.  Record the lesser pattern as stated in the pathology"
^DD(165.5,623.2,21,6,0)="report.  If the grade is not provided and only a Gleason score is"
^DD(165.5,623.2,21,7,0)="available, enter a '0'."
^DD(165.5,623.2,21,8,0)=""
^DD(165.5,623.2,"DT")="2980512"
^DD(165.5,623.3,0)="GLEASON'S SCORE (50-70)^FO^^PRO2;45^K:$L(X)>2!'(X?1.2N&(((+X>1)&(X<11))!(X=99))) X"
^DD(165.5,623.3,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0""_Y,Y=99:""99 Unknown, not reported, or NA"",1:Y)"
^DD(165.5,623.3,2.1)="S Y=$S($L(Y)=1:""0""_Y,Y=99:""99 Unknown, not reported, or NA"",1:Y)"
^DD(165.5,623.3,3)="Answer 02-10 or 99 (Score unknown, not reported or NA)"
^DD(165.5,623.3,21,0)="^^11^11^2980512^^^^"
^DD(165.5,623.3,21,1,0)=""
^DD(165.5,623.3,21,2,0)="Record the Gleason's score for Radical Prostatectomy, surgical codes"
^DD(165.5,623.3,21,3,0)="50-70.  Gleason's grading system assigns histologic grade ranging from"
^DD(165.5,623.3,21,4,0)="1-5 to predominant (primary) and lesser (secondary) patterns of tumor."
^DD(165.5,623.3,21,5,0)="The grade numbers of the two patterns are added to obtain the Gleason"
^DD(165.5,623.3,21,6,0)="score, which ranges from 02 to 10.  Record the Gleason's score by adding"
^DD(165.5,623.3,21,7,0)="the predominant and lesser patterns as stated in the pathology report."
^DD(165.5,623.3,21,8,0)="For example, if predominant pattern is 3 and lesser pattern is 4, then"
^DD(165.5,623.3,21,9,0)="Gleason's score is 3 + 4 = 7.  For cases where Gleason's score is unknown,"
^DD(165.5,623.3,21,10,0)="not reported or not applicable, code 99."
^DD(165.5,623.3,21,11,0)=""
^DD(165.5,623.3,"DT")="2980512"
^DD(165.5,623.4,0)="PREDOMINANT PATTERN (50-70)^NJ1,0^^PRO2;46^K:+X'=X!(X=6)!(X=7)!(X=8)!($L(X)>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,623.4,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(165.5,623.4,21,0)="^^8^8^2980511^"
^DD(165.5,623.4,21,1,0)=""
^DD(165.5,623.4,21,2,0)="Record the predominant (primary) pattern of tumor for Radical"
^DD(165.5,623.4,21,3,0)="Prostatectomy, surgical codes 50-70.  Gleason's grading system"
^DD(165.5,623.4,21,4,0)="assigns histologic grade ranging from 1-5 to predominant pattern"
^DD(165.5,623.4,21,5,0)="of tumor.  Record the predominant pattern as stated in the pathology"
^DD(165.5,623.4,21,6,0)="report.  If the grade is not provided and only a Gleason score is"
^DD(165.5,623.4,21,7,0)="available, enter a '0'."
^DD(165.5,623.4,21,8,0)=""
^DD(165.5,623.4,"DT")="2980511"
^DD(165.5,623.5,0)="LESSER PATTERN (50-70)^NJ1,0X^^PRO2;47^D LP26^ONCOIT"
^DD(165.5,623.5,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(165.5,623.5,21,0)="^^8^8^2980511^"
^DD(165.5,623.5,21,1,0)=""
^DD(165.5,623.5,21,2,0)="Record the lesser (secondary) pattern of tumor for Radical"
^DD(165.5,623.5,21,3,0)="Prostatectomy, surgical codes 50-70.  Gleason's grading system"
^DD(165.5,623.5,21,4,0)="assigns histologic grade ranging from 1-5 to lesser pattern of"
^DD(165.5,623.5,21,5,0)="tumor.  Record the lesser pattern as stated in the pathology report."
^DD(165.5,623.5,21,6,0)="If the grade is not provided and only a Gleason score is available,"
^DD(165.5,623.5,21,7,0)="enter a '0'."
^DD(165.5,623.5,21,8,0)=""
^DD(165.5,623.5,"DT")="2980513"
^DD(165.5,624,0)="RESEARCH PROTOCOL^S^1:In-house;2:Cooperative group;3:Not in a protocol;9:Unknown;^PRO1;25^Q"
^DD(165.5,624,21,0)="^^1^1^2961025^"
^DD(165.5,624,21,1,0)="Record whether the patient was entered into a protocol."
^DD(165.5,624,"DT")="2961025"
^DD(165.5,625,0)="RAD THERAPY PLANNED/GIVEN^S^1:Yes;2:No, not recommended;3:Patient refused radiation therapy;4:Radiation was planned, but not given;9:Unknown;^PRO1;26^Q"
^DD(165.5,625,21,0)="^^1^1^2961025^^"
^DD(165.5,625,21,1,0)="Record whether the patient received radiation therapy."
^DD(165.5,625,"DT")="2961025"
^DD(165.5,626,0)="INTERSTITIAL RAD PLANNED/GIVEN^S^1:Yes;2:No, not recommended;3:Patient refused radiation therapy;4:Radiation was planned, but not given;9:Unknown;^PRO1;27^Q"
^DD(165.5,626,21,0)="^^1^1^2961025^"
^DD(165.5,626,21,1,0)="Record whether the patient received interstitial radiation."
^DD(165.5,626,"DT")="2961025"
^DD(165.5,627,0)="IODINE 125^S^0:No;1:Yes;9:Unknown;^PRO1;28^Q"
^DD(165.5,627,21,0)="^.001^3^3^3000313^^^^"
^DD(165.5,627,21,1,0)=""
^DD(165.5,627,21,2,0)="Record whether the isotope IODINE 125 was administered interstitially."
^DD(165.5,627,21,3,0)=""
^DD(165.5,627,"DT")="3000313"
^DD(165.5,628,0)="GOLD 198^S^0:No;1:Yes;9:Unknown;^PRO1;29^Q"
^DD(165.5,628,21,0)="^.001^3^3^3000313^^^"
^DD(165.5,628,21,1,0)=""
^DD(165.5,628,21,2,0)="Record whether the isotope GOLD 198 was administered interstitially."
^DD(165.5,628,21,3,0)=""
^DD(165.5,628,"DT")="3000313"
^DD(165.5,629,0)="PALLADIUM 103^S^0:No;1:Yes;9:Unknown;^PRO1;30^Q"
^DD(165.5,629,21,0)="^.001^3^3^3000313^^^"
^DD(165.5,629,21,1,0)=""
^DD(165.5,629,21,2,0)="Record whether the isotope PALLADIUM 103 was administered interstitially."
^DD(165.5,629,21,3,0)=""
^DD(165.5,629,"DT")="3000313"
^DD(165.5,630,0)="IRIDIUM 192^S^0:No;1:Yes;9:Unknown;^PRO1;31^Q"
^DD(165.5,630,21,0)="^.001^3^3^3000313^^^"
^DD(165.5,630,21,1,0)=""
^DD(165.5,630,21,2,0)="Record whether the isotope IRIDIUM 192 was administered interstitially."
^DD(165.5,630,21,3,0)=""
^DD(165.5,630,"DT")="3000313"
^DD(165.5,631,0)="OTHER INTERSTITIAL, NOS^S^0:No;1:Yes;9:Unknown;^PRO1;32^Q"
^DD(165.5,631,21,0)="^.001^3^3^3000313^^^"
^DD(165.5,631,21,1,0)=""
^DD(165.5,631,21,2,0)="Record whether OTHER INTERSTITIAL, NOS isotopes were administered."
^DD(165.5,631,21,3,0)=""
^DD(165.5,631,"DT")="3000313"
^DD(165.5,632,0)="EXTERNAL RAD PLANNED/GIVEN^S^1:Yes;2:No, not recommended;3:Patient refused external radiation;4:Radiation was planned, but not given;9:Unknown;^PRO1;33^Q"
^DD(165.5,632,21,0)="^^1^1^2961029^"
^DD(165.5,632,21,1,0)="Record whether the patient received external radiation."
^DD(165.5,632,"DT")="2961029"
^DD(165.5,633,0)="PROSTATE REGION ONLY^S^0:No, region/site not targeted;1:Yes;8:NA, external radiation not administered;9:Unknown;^PRO1;34^Q"
^DD(165.5,633,21,0)="^.001^3^3^3000313^^^"
^DD(165.5,633,21,1,0)=""
^DD(165.5,633,21,2,0)="Record whether the PROSTATE REGION ONLY was irradiated."
^DD(165.5,633,21,3,0)=""
^DD(165.5,633,"DT")="3000313"
^DD(165.5,634,0)="PROSTATE AND PELVIC NODES^S^0:No, region/site not targeted;1:Yes;8:NA, external radiation not administered;9:Unknown;^PRO1;35^Q"
^DD(165.5,634,21,0)="^.001^3^3^3000313^^^"
^DD(165.5,634,21,1,0)=""
^DD(165.5,634,21,2,0)="Record whether PROSTATE AND PELVIC NODES were irradiated."
^DD(165.5,634,21,3,0)=""
^DD(165.5,634,"DT")="3000313"
^DD(165.5,635,0)="PROSTATE & PELVIC PARA-AORTIC^S^0:No, region/site not targeted;1:Yes;8:NA, external radiation not administered;9:Unknown;^PRO1;36^Q"
^DD(165.5,635,21,0)="^.001^3^3^3000313^^^"
^DD(165.5,635,21,1,0)=""
^DD(165.5,635,21,2,0)="Record whether PROSTATE AND PELVIC PARA-AORTIC NODES were irradiated."
^DD(165.5,635,21,3,0)=""
^DD(165.5,635,"DT")="3000313"
^DD(165.5,636,0)="DISTANT METASTATIC SITES^S^0:No, region/site not targeted;1:Yes;8:NA, external radiation not administered;9:Unknown;^PRO1;37^Q"
^DD(165.5,636,21,0)="^.001^3^3^3000313^^^^"
^DD(165.5,636,21,1,0)=""
^DD(165.5,636,21,2,0)="Record whether DISTANT METASTATIC SITES were irradiated."
^DD(165.5,636,21,3,0)=""
^DD(165.5,636,"DT")="3000313"
^DD(165.5,637,0)="OTHER EXTERNAL SITES, NOS^S^0:No, region/site not targeted;1:Yes;8:NA, external radiation not administered;9:Unknown;^PRO1;38^Q"
^DD(165.5,637,21,0)="^.001^3^3^3000313^^^^"
^DD(165.5,637,21,1,0)=""
^DD(165.5,637,21,2,0)="Record whether OTHER EXTERNAL SITES, NOS were irradiated."
^DD(165.5,637,21,3,0)=""
^DD(165.5,637,"DT")="3000313"
^DD(165.5,638,0)="TOTAL RAD DOSE (PROSTATE)^S^1:Less than 1999 rad;2:2000-3000 rad;3:3001-4000 rad;4:4001-5000 rad;5:5001-6000 rad;6:6001-7000 rad;7:More than 7001 rad;8:Not given;9:Rad does unknown;^PRO1;39^Q"
^DD(165.5,638,21,0)="^^4^4^2961029^"
^DD(165.5,638,21,1,0)="Record the TOTAL (external) RAD DOSE given to the PROSTATE; this includes"
^DD(165.5,638,21,2,0)="boost dosage.  Do not include interstitial rad dose.  If it is known that"
^DD(165.5,638,21,3,0)="the patient received radiation therapy, but the amount given is unknown,"
^DD(165.5,638,21,4,0)="code 9 (rad dose unknown)."
^DD(165.5,638,"DT")="2961029"
^DD(165.5,639,0)="TOTAL RAD DOSE (PELVIC NODES)^S^1:Less than 1999 rad;2:2000-3000 rad;3:3001-4000 rad;4:4001-5000 rad;5:More than 5001 rad;8:Not given;9:Rad dose unknown;^PRO1;40^Q"
^DD(165.5,639,21,0)="^^4^4^2961029^"
^DD(165.5,639,21,1,0)="Record the TOTAL (external) RAD DOSE given to the PELVIC NODES; this"
^DD(165.5,639,21,2,0)="includes boost dosage.  Do not include interstitial rad dose.  If it"
^DD(165.5,639,21,3,0)="is known that the patient received radiation therapy, but the amount"
^DD(165.5,639,21,4,0)="given is unknown, code 9 (rad dose unknown)."
^DD(165.5,639,"DT")="2961029"
^DD(165.5,640,0)="TOTAL RAD DOSE (PARA-AORTIC)^S^1:Less than 1999 rad;2:2000-3000 rad;3:3001-4000 rad;5:More than 5001 rad;8:Not given;9:Rad dose unknown;^PRO1;41^Q"
^DD(165.5,640,21,0)="^^4^4^2961029^"
^DD(165.5,640,21,1,0)="Record the TOTAL (external) RAD DOSE given to the PARA-AORTIC NODES; this"
^DD(165.5,640,21,2,0)="includes boost dosage.  Do not include interstitial rad dose.  If it is"
^DD(165.5,640,21,3,0)="known that the patient received radiation therapy, but the amount given"
^DD(165.5,640,21,4,0)="is unknown, code 9 (rad dose unknown)."
^DD(165.5,640,"DT")="2961029"
^DD(165.5,641,0)="RESEARCH PROTOCOL (RADIATION)^S^1:In-house;2:Cooperative group;3:Not in a protocol;9:Unknown;^PRO1;42^Q"
^DD(165.5,641,21,0)="^^1^1^2961029^"
^DD(165.5,641,21,1,0)="Record the patient was entered into a protocol."
^DD(165.5,641,"DT")="2961029"
^DD(165.5,642,0)="HORMONE THERAPY PLANNED/GIVEN^S^1:Yes;2:No, not recommended;3:Patient refused hormonal therapy;4:Hormonal therapy was planned, but not given;9:Unknown;^PRO1;43^Q"
^DD(165.5,642,21,0)="^^1^1^2961029^"
^DD(165.5,642,21,1,0)="Record whether the patient received hormonal therapy."
^DD(165.5,642,"DT")="2961029"
^DD(165.5,643,0)="ESTROGENS^*S^0:No;1:Yes;9:Unknown;2:No;^PRO1;44^Q"
^DD(165.5,643,12)="Record all types of hormonal drugs given."
^DD(165.5,643,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,7)'=1998)!(Y'=2)"""
^DD(165.5,643,21,0)="^^3^3^2980522^^^"
^DD(165.5,643,21,1,0)=""
^DD(165.5,643,21,2,0)="Record all types of hormonal drugs given."
^DD(165.5,643,21,3,0)=""
^DD(165.5,643,"DT")="2980522"
^DD(165.5,644,0)="ANTIANDROGENS^*S^0:No;1:Yes;9:Unknown;2:No;^PRO1;45^Q"
^DD(165.5,644,12)="Record all types of hormonal drugs given."
^DD(165.5,644,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,7)'=1998)!(Y'=2)"""
^DD(165.5,644,21,0)="^^3^3^2980522^^^^"
^DD(165.5,644,21,1,0)=""
^DD(165.5,644,21,2,0)="Record all types of hormonal drugs given."
^DD(165.5,644,21,3,0)=""
^DD(165.5,644,"DT")="2980522"
^DD(165.5,645,0)="PROGESTATIONAL AGENTS^*S^0:No;1:Yes;9:Unknown;2:No;^PRO1;46^Q"
^DD(165.5,645,12)="Record all types of hormonal drugs given."
^DD(165.5,645,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,7)'=1998)!(Y'=2)"""
^DD(165.5,645,21,0)="^^3^3^2980522^^^^"
^DD(165.5,645,21,1,0)=""
^DD(165.5,645,21,2,0)="Record all types of hormonal drugs given."
^DD(165.5,645,21,3,0)=""
^DD(165.5,645,"DT")="2980522"
^DD(165.5,646,0)="LUTEINIZING HORMONES^*S^0:No;1:Yes;9:Unknown;2:No;^PRO1;47^Q"
^DD(165.5,646,12)="Record all types of hormonal drugs given."
^DD(165.5,646,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,7)'=1998)!(Y'=2)"""
^DD(165.5,646,21,0)="^^3^3^2980522^^^"
^DD(165.5,646,21,1,0)=""
^DD(165.5,646,21,2,0)="Record all types of hormonal drugs given."
^DD(165.5,646,21,3,0)=""
^DD(165.5,646,"DT")="2980522"
^DD(165.5,647,0)="ORCHIECTOMY^S^1:Yes;2:No;9:Unknown;^PRO1;48^Q"
^DD(165.5,647,21,0)="^^2^2^2961029^"
^DD(165.5,647,21,1,0)="Record whether an ORCHIECTOMY was administered.  Code 2 (No) if an"
^DD(165.5,647,21,2,0)="ORCHIECTOMY was not given."
^DD(165.5,647,"DT")="2961029"
^DD(165.5,648,0)="OTHER EXOGENOUS HORMONE AGENTS^*S^0:No;1:Yes;9:Unknown;2:No;^PRO1;49^Q"
^DD(165.5,648,12)="Record all types of hormonal drugs given."
^DD(165.5,648,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,DA,0),U,7)'=1998)!(Y'=2)"""
^DD(165.5,648,21,0)="^^3^3^2980522^^^"
^DD(165.5,648,21,1,0)=""
^DD(165.5,648,21,2,0)="Record all types of hormonal drugs given."
^DD(165.5,648,21,3,0)=""
^DD(165.5,648,"DT")="2980522"
^DD(165.5,649,0)="BACKACHE (1ST RECURRENCE)^S^1:Yes;2:No;9:Unknown;^PRO1;50^Q"
^DD(165.5,649,21,0)="^^1^1^2961030^"
^DD(165.5,649,21,1,0)="Record whether a BACKACHE was used to diagnose the first recurrence."
^DD(165.5,649,"DT")="2961030"
^DD(165.5,650,0)="BONE SCAN (1ST RECURRENCE)^S^1:Yes;2:No;9:Unknown;^PRO1;51^Q"
^DD(165.5,650,21,0)="^^1^1^2961030^"
^DD(165.5,650,21,1,0)="Record if a BONE SCAN was used to diagnose the first recurrence."
^DD(165.5,650,"DT")="2961030"
^DD(165.5,651,0)="LETHARGY^S^1:Yes;2:No;9:Unknown;^PRO1;52^Q"
^DD(165.5,651,21,0)="^^1^1^2961030^"
^DD(165.5,651,21,1,0)="Record if LETHARGY was used to diagnose the first recurrence."
^DD(165.5,651,"DT")="2961030"
^DD(165.5,652,0)="RECTAL EXAM (1ST RECURRENCE)^S^1:Yes;2:No;9:Unknown;^PRO1;53^Q"
^DD(165.5,652,21,0)="^^2^2^2961030^"
^DD(165.5,652,21,1,0)="Record whether a RECTAL EXAMINATION FOLLOWED BY NEEDLE BIOPSY was used to"
^DD(165.5,652,21,2,0)="diagnose the first recurrence."
^DD(165.5,652,"DT")="2961030"
^DD(165.5,653,0)="TUMOR MARKER (1ST RECURRENCE)^S^1:Yes;2:No;9:Unknown;^PRO1;54^Q"
^DD(165.5,653,21,0)="^^2^2^2961030^"
^DD(165.5,653,21,1,0)="Record whether TUMOR MARKER ELEVATION was used to diagnose the first"
^DD(165.5,653,21,2,0)="recurrence."
^DD(165.5,653,"DT")="2961030"
^DD(165.5,654,0)="WEIGHT LOSS (1ST RECURRENCE)^S^1:Yes;2:No;9:Unknown;^PRO1;55^Q"
^DD(165.5,654,21,0)="^^1^1^2961030^"
^DD(165.5,654,21,1,0)="Record whether WEIGHT LOSS was used to diagnose the first recurrence."
^DD(165.5,654,"DT")="2961030"
^DD(165.5,655,0)="OTHER METHODS (1ST RECURRENCE)^S^1:Yes;2:No;9:Unknown;^PRO1;56^Q"
^DD(165.5,655,21,0)="^^1^1^2961030^"
^DD(165.5,655,21,1,0)="Record whether OTHER methods were used to diagnose the first recurrence."
^DD(165.5,655,"DT")="2961030"
^DD(165.5,656,0)="REASON FOR 2ND COURSE^S^1:Recurrence;2:Progression of disease;8:No therapy;9:Unknown;^PRO1;57^Q"
^DD(165.5,656,21,0)="^^2^2^2961031^^"
^DD(165.5,656,21,1,0)="Record whether the patient received treatment for recurrence or"
^DD(165.5,656,21,2,0)="progression of disease."
^DD(165.5,656,"DT")="2961031"
^DD(165.5,657,0)="FAM HIST OF PROSTATE CA (PR98)^S^0:No;1:Yes, 1st degree relative;2:Yes, relative other than 1st degree;3:Yes, degree of relative unknown;9:Unknown;^PRO2;1^Q"
^DD(165.5,657,21,0)="^^6^6^2980513^^^"
^DD(165.5,657,21,1,0)=""
^DD(165.5,657,21,2,0)="Record any familial history of prostate cancer documented in the medical"
^DD(165.5,657,21,3,0)="record.  First degree relatives include the patient's father, brother, or"
^DD(165.5,657,21,4,0)="son.  A grandfather, uncle, or cousin would not be considered a first"
^DD(165.5,657,21,5,0)="degree relative."
^DD(165.5,657,21,6,0)=""
^DD(165.5,657,"DT")="2980513"
^DD(165.5,658,0)="HEMATURIA (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;2^Q"
^DD(165.5,658,21,0)="^^4^4^2980513^^^"
^DD(165.5,658,21,1,0)=""
^DD(165.5,658,21,2,0)="Record all symptoms specific to prostate cancer that were"
^DD(165.5,658,21,3,0)="reported by the patient and included in the medical chart."
^DD(165.5,658,21,4,0)=""
^DD(165.5,658,"DT")="2980513"
^DD(165.5,659,0)="LOWER BACK PAIN (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;3^Q"
^DD(165.5,659,21,0)="^^4^4^2980513^^"
^DD(165.5,659,21,1,0)=""
^DD(165.5,659,21,2,0)="Record all symptoms specific to prostate cancer that were"
^DD(165.5,659,21,3,0)="reported by the patient and included in the medical chart."
^DD(165.5,659,21,4,0)=""
^DD(165.5,659,"DT")="2980513"
^DD(165.5,660,0)="TROUBLE URINATING (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;4^Q"
^DD(165.5,660,21,0)="^^4^4^2980513^^"
^DD(165.5,660,21,1,0)=""
^DD(165.5,660,21,2,0)="Record all symptoms specific to prostate cancer that were"
^DD(165.5,660,21,3,0)="reported by the patient and included in the medical chart."
^DD(165.5,660,21,4,0)=""
^DD(165.5,660,"DT")="2980513"
^DD(165.5,661,0)="CLIN DX W/ BONE LESION (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;5^Q"
^DD(165.5,661,21,0)="^^4^4^2981203^^^^"
^DD(165.5,661,21,1,0)=""
^DD(165.5,661,21,2,0)="Record whether the Initial Method of Diagnosis: CLINICAL DIAGNOSIS"
^DD(165.5,661,21,3,0)="WITH BONE LESION was performed to diagnose this case of prostate cancer."
^DD(165.5,661,21,4,0)=""
^DD(165.5,661,"DT")="2981130"
^DD(165.5,662,0)="CLIN DX BY RECTAL EXAM (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;6^Q"
^DD(165.5,662,21,0)="^^4^4^2981130^^^^"
^DD(165.5,662,21,1,0)=""
^DD(165.5,662,21,2,0)="Record whether the Initial Method of Diagnosis: CLINICAL DIAGNOSIS"
^DD(165.5,662,21,3,0)="BY RECTAL EXAM was performed to diagnose this case of prostate cancer."
^DD(165.5,662,21,4,0)=""
^DD(165.5,662,"DT")="2981130"
^DD(165.5,663,0)="CYTOLOGY (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;7^Q"
^DD(165.5,663,21,0)="^^4^4^2981130^^"
^DD(165.5,663,21,1,0)=""
^DD(165.5,663,21,2,0)="Record whether the Initial Method of Diagnosis: CYTOLOGY"
^DD(165.5,663,21,3,0)="was performed to diagnose this case of prostate cancer."
^DD(165.5,663,21,4,0)=""
^DD(165.5,663,"DT")="2981130"
^DD(165.5,664,0)="DIGITAL TRANSRECTAL BIO (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;8^Q"
^DD(165.5,664,21,0)="^^4^4^2981130^^^^"
^DD(165.5,664,21,1,0)=""
^DD(165.5,664,21,2,0)="Record whether the Initial Method of Diagnosis: DIGITAL TRANSRECTAL"
^DD(165.5,664,21,3,0)="BIOPSY was performed to diagnose this case of prostate cancer."
^DD(165.5,664,21,4,0)=""
^DD(165.5,664,"DT")="2981130"
^DD(165.5,665,0)="INCIDENTAL FIND IN TURP (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;9^Q"
^DD(165.5,665,21,0)="^^5^5^2981130^^"
^DD(165.5,665,21,1,0)=""
^DD(165.5,665,21,2,0)="Record whether the Method of Diagnosis: INCIDENTAL FINDING IN"
^DD(165.5,665,21,3,0)="TRANSURETHRAL RESECTION OF PROSTATE (TURP) FOR BENIGN DISEASE"
^DD(165.5,665,21,4,0)="was performed to diagnose this case of prostate cancer."
^DD(165.5,665,21,5,0)=""
^DD(165.5,665,"DT")="2981130"
^DD(165.5,666,0)="NEEDLE BIOPSY, NOS (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;10^Q"
^DD(165.5,666,21,0)="^^4^4^2981130^^"
^DD(165.5,666,21,1,0)=""
^DD(165.5,666,21,2,0)="Record whether the Initial Method of Diagnosis: NEEDLE BIOPSY, NOS"
^DD(165.5,666,21,3,0)="was performed to diagnose this case of prostate cancer."
^DD(165.5,666,21,4,0)=""
^DD(165.5,666,"DT")="2981130"
^DD(165.5,667,0)="PERINEAL BIOPSY (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;11^Q"
^DD(165.5,667,21,0)="^^4^4^2981130^^"
^DD(165.5,667,21,1,0)=""
^DD(165.5,667,21,2,0)="Record whether the Initial Method of Diagnosis: PERINEAL BIOPSY"
^DD(165.5,667,21,3,0)="was performed to diagnose this case of prostate cancer."
^DD(165.5,667,21,4,0)=""
^DD(165.5,667,"DT")="2981130"
^DD(165.5,668,0)="PSA METHOD OF DIAGNOSIS (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;12^Q"
^DD(165.5,668,21,0)="^^4^4^2981130^^^^"
^DD(165.5,668,21,1,0)=""
^DD(165.5,668,21,2,0)="Record whether the Initial Method of Diagnosis: PROSTATIC SPECIFIC"
^DD(165.5,668,21,3,0)="ANTIGEN (PSA) was performed to diagnose this case of prostate cancer."
^DD(165.5,668,21,4,0)=""
^DD(165.5,668,"DT")="2981130"
^DD(165.5,669,0)="TRANSRECTAL BIOPSY (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;13^Q"
^DD(165.5,669,21,0)="^^5^5^2981130^^"
^DD(165.5,669,21,1,0)=""
^DD(165.5,669,21,2,0)="Record whether the Initial Method of Diagnosis: TRANSRECTAL"
^DD(165.5,669,21,3,0)="ULTRASONOGRAPHICALLY GUIDED BIOPSY (TRUS) was performed to diagnose"
^DD(165.5,669,21,4,0)="this case of prostate cancer."
^DD(165.5,669,21,5,0)=""
^DD(165.5,669,"DT")="2981130"
^DD(165.5,670,0)="TRANSURETHRAL RESECTION (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;14^Q"
^DD(165.5,670,21,0)="^^5^5^2981130^^"
^DD(165.5,670,21,1,0)=""
^DD(165.5,670,21,2,0)="Record whether the Initial Method of Diagnosis: TRANSURETHRAL"
^DD(165.5,670,21,3,0)="RESECTION OF PROSTATE, NOS was performed to diagnose this case"
^DD(165.5,670,21,4,0)="of prostate cancer."
^DD(165.5,670,21,5,0)=""
^DD(165.5,670,"DT")="2981130"
^DD(165.5,671,0)="BONE MARROW ASPIRATION (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;15^Q"
^DD(165.5,671,21,0)="^^6^6^2980508^"
^DD(165.5,671,21,1,0)=""
^DD(165.5,671,21,2,0)="Record the results of the BONE MARROW ASPIRATION diagnostic test"
^DD(165.5,671,21,3,0)="performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,671,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,671,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,671,21,6,0)=""
^DD(165.5,671,"DT")="2980508"
^DD(165.5,672,0)="BONE SCAN (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;16^Q"
^DD(165.5,672,21,0)="^^6^6^2980508^"
^DD(165.5,672,21,1,0)=""
^DD(165.5,672,21,2,0)="Record the results of the BONE SCAN diagnostic test performed"
^DD(165.5,672,21,3,0)="to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,672,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,672,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,672,21,6,0)=""
^DD(165.5,672,"DT")="2980508"
^DD(165.5,673,0)="BONE X-RAY (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;17^Q"
^DD(165.5,673,21,0)="^^6^6^2980508^"
^DD(165.5,673,21,1,0)=""
^DD(165.5,673,21,2,0)="Record the results of the BONE X-RAY diagnostic test performed"
^DD(165.5,673,21,3,0)="to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,673,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,673,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,673,21,6,0)=""
^DD(165.5,673,"DT")="2980508"
^DD(165.5,674,0)="CHEST X-RAY (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;18^Q"
^DD(165.5,674,21,0)="^^6^6^2980508^"
^DD(165.5,674,21,1,0)=""
^DD(165.5,674,21,2,0)="Record the results of the CHEST X-RAY diagnostic test performed"
^DD(165.5,674,21,3,0)="to evaluate the prostate tumor.  If the study was done and the"
^DD(165.5,674,21,4,0)="results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,674,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,674,21,6,0)=""
^DD(165.5,674,"DT")="2980508"
^DD(165.5,675,0)="CT SCAN OF ABDOMEN (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;19^Q"
^DD(165.5,675,21,0)="^^6^6^2980508^"
^DD(165.5,675,21,1,0)=""
^DD(165.5,675,21,2,0)="Record the results of the CT SCAN OF ABDOMEN diagnostic test"
^DD(165.5,675,21,3,0)="performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,675,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,675,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,675,21,6,0)=""
^DD(165.5,675,"DT")="2980508"
^DD(165.5,676,0)="CT SCAN OF PELVIS (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;20^Q"
^DD(165.5,676,21,0)="^^6^6^2980508^"
^DD(165.5,676,21,1,0)=""
^DD(165.5,676,21,2,0)="Record the results of the CT SCAN OF PELVIS diagnostic test"
^DD(165.5,676,21,3,0)="performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,676,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,676,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,676,21,6,0)=""
^DD(165.5,676,"DT")="2980508"
^DD(165.5,677,0)="INTRAVENOUS PYELOGRAM (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;21^Q"
^DD(165.5,677,21,0)="^^6^6^2980508^"
^DD(165.5,677,21,1,0)=""
^DD(165.5,677,21,2,0)="Record the results of the INTRAVENOUS PYELOGRAM (IVP) diagnostic test"
^DD(165.5,677,21,3,0)="performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,677,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,677,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,677,21,6,0)=""
^DD(165.5,677,"DT")="2980508"
^DD(165.5,678,0)="MRI (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;22^Q"
^DD(165.5,678,21,0)="^^6^6^2980508^"
^DD(165.5,678,21,1,0)=""
^DD(165.5,678,21,2,0)="Record the results of the MAGNETIC RESONANCE IMAGING (MRI) diagnostic"
^DD(165.5,678,21,3,0)="test performed to evaluate the prostate tumor.  If the study was done"
^DD(165.5,678,21,4,0)="and the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,678,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,678,21,6,0)=""
^DD(165.5,678,"DT")="2980508"
^DD(165.5,679,0)="PELVIC LYMPH ND DISSECT (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;23^Q"
^DD(165.5,679,21,0)="^^6^6^2980508^"
^DD(165.5,679,21,1,0)=""
^DD(165.5,679,21,2,0)="Record the results of the PELVIC LYMPH NODE DISSECTION diagnostic test"
^DD(165.5,679,21,3,0)="performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,679,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,679,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,679,21,6,0)=""
^DD(165.5,679,"DT")="2980508"
^DD(165.5,680,0)="POLYMERASE CHAIN REACT (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;24^Q"
^DD(165.5,680,21,0)="^^7^7^2980508^"
^DD(165.5,680,21,1,0)=""
^DD(165.5,680,21,2,0)="Record the results of the POLYMERASE CHAIN REACTION ASSAY (PCR)"
^DD(165.5,680,21,3,0)="diagnostic test performed to evaluate the prostate tumor.  If the"
^DD(165.5,680,21,4,0)="study was done and the results cannot be determined, code 8 (Test"
^DD(165.5,680,21,5,0)="done, results unknown).  If it is unknown if the test was done"
^DD(165.5,680,21,6,0)="code 9 (Unknown if test done)."
^DD(165.5,680,21,7,0)=""
^DD(165.5,680,"DT")="2980508"
^DD(165.5,681,0)="PROSTATIC ACID PHOSPH (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;25^Q"
^DD(165.5,681,21,0)="^^6^6^2980508^"
^DD(165.5,681,21,1,0)=""
^DD(165.5,681,21,2,0)="Record the results of the PROSTATIC ACID PHOSPHATASE (PAP) diagnostic"
^DD(165.5,681,21,3,0)="test performed to evaluate the prostate tumor.  If the study was done"
^DD(165.5,681,21,4,0)="and the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,681,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,681,21,6,0)=""
^DD(165.5,681,"DT")="2980508"
^DD(165.5,682,0)="PSA DIAGNOSTIC EVAL (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;26^Q"
^DD(165.5,682,21,0)="^^6^6^2980508^"
^DD(165.5,682,21,1,0)=""
^DD(165.5,682,21,2,0)="Record the results of the PROSTATE SPECIFIC ANTIGEN (PSA) diagnostic"
^DD(165.5,682,21,3,0)="test performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,682,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,682,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,682,21,6,0)=""
^DD(165.5,682,"DT")="2980508"
^DD(165.5,683,0)="ULTRASOUND OF ABDOMEN (PR98)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^PRO2;27^Q"
^DD(165.5,683,21,0)="^^6^6^2980508^"
^DD(165.5,683,21,1,0)=""
^DD(165.5,683,21,2,0)="Record the results of the ULTRASOUND OF ABDOMEN diagnostic test"
^DD(165.5,683,21,3,0)="performed to evaluate the prostate tumor.  If the study was done and"
^DD(165.5,683,21,4,0)="the results cannot be determined, code 8 (Test done, results unknown)."
^DD(165.5,683,21,5,0)="If it is unknown if the test was done code 9 (Unknown if test done)."
^DD(165.5,683,21,6,0)=""
^DD(165.5,683,"DT")="2980508"
^DD(165.5,684,0)="PSA^FXO^^PRO2;28^K:$L(X)>5!($L(X)<1) X I $D(X) D PSA^ONCOIT"
^DD(165.5,684,2)="S Y(0)=Y D PSA^ONCOOT"
^DD(165.5,684,2.1)="D PSA^ONCOOT"
^DD(165.5,684,3)="Answer must be between 000.0 and 999.9, up to 1 decimal digit"
^DD(165.5,684,21,0)="^^11^11^3060921^"
^DD(165.5,684,21,1,0)=" "
^DD(165.5,684,21,2,0)="Records the results of the most recent pre-treatment Prostate Specific"
^DD(165.5,684,21,3,0)="Antigen (PSA) test, given prior to date of first course of treatment."
^DD(165.5,684,21,4,0)="If the first course of treatment was Watchful Waiting, the date the"
^DD(165.5,684,21,5,0)="decision was made is considered the first course of treatment.  Round"
^DD(165.5,684,21,6,0)="the test result to the nearest single decimal point."
^DD(165.5,684,21,7,0)=" "
^DD(165.5,684,21,8,0)="Record 999.6 if PSA value was 999.6 or higher."
^DD(165.5,684,21,9,0)="Record 999.7 if no PSA test was performed."
^DD(165.5,684,21,10,0)="Record 999.8 if the test was done and results are unknown/not reported."
^DD(165.5,684,21,11,0)="Record 999.9 if it is unknown if the test was performed."
^DD(165.5,684,"DT")="3021029"
^DD(165.5,685,0)="WATCHFUL WAITING (PR98)^S^0:No;1:Yes;9:Unknown;^PRO2;29^Q"
^DD(165.5,685,21,0)="^^5^5^2980508^"
^DD(165.5,685,21,1,0)=""
^DD(165.5,685,21,2,0)="Record whether or not the patient chose to forego surgery, radiation"
^DD(165.5,685,21,3,0)="therapy, chemotherapy, and hormone therapy in favor of no immediate"
^DD(165.5,685,21,4,0)="medical intervention."
^DD(165.5,685,21,5,0)=""
^DD(165.5,685,"DT")="2980508"
^DD(165.5,686,0)="LENGTH OF STAY (PR98)^NJ2,0O^^PRO2;30^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,686,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0""_Y,1:Y) S Y=$S(Y=88:Y_"" NA"",Y=99:Y_"" Unknown"",Y=""01"":Y_"" day"",1:Y_"" days"")"
^DD(165.5,686,2.1)="S Y=$S($L(Y)=1:""0""_Y,1:Y) S Y=$S(Y=88:Y_"" NA"",Y=99:Y_"" Unknown"",Y=""01"":Y_"" day"",1:Y_"" days"")"
^DD(165.5,686,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,686,21,0)="^^8^8^2980508^^"
^DD(165.5,686,21,1,0)=""
^DD(165.5,686,21,2,0)="Record the number of days the patient remained in the hospital following"
^DD(165.5,686,21,3,0)="cancer-directed surgery.  Include the day on which the patient was"
^DD(165.5,686,21,4,0)="admitted to the hospital for treatment, and the day before the patient"
^DD(165.5,686,21,5,0)="was discharged from the hospital.  For example, if patient was admitted"
^DD(165.5,686,21,6,0)="1/12/98 and discharged 1/18/98, the length of stay is 6 days.  If not"
^DD(165.5,686,21,7,0)="applicable code, 88.  If unknown, code 99."
^DD(165.5,686,21,8,0)=""
^DD(165.5,686,"DT")="2980513"
^DD(165.5,687,0)="LAPAROSCOPIC (PR98)^S^0:No;1:Yes;8:NA;9:Unknown;^PRO2;31^Q"
^DD(165.5,687,21,0)="^^4^4^2980513^^"
^DD(165.5,687,21,1,0)=""
^DD(165.5,687,21,2,0)="Record whether the LAPAROSCOPIC Type of Regional Lymph Node surgery"
^DD(165.5,687,21,3,0)="was performed.  If not applicable, code 8.  If unknown, code 9."
^DD(165.5,687,21,4,0)=""
^DD(165.5,687,"DT")="2980513"
^DD(165.5,688,0)="OPEN (PR98)^S^0:No;1:Yes;8:NA;9:Unknown;^PRO2;32^Q"
^DD(165.5,688,21,0)="^^4^4^2980513^^"
^DD(165.5,688,21,1,0)=""
^DD(165.5,688,21,2,0)="Record whether the OPEN Type of Regional Lymph Node surgery"
^DD(165.5,688,21,3,0)="was performed.  If not applicable, code 8.  If unknown, code 9."
^DD(165.5,688,21,4,0)=""
^DD(165.5,688,"DT")="2980513"
^DD(165.5,689,0)="PERMANENT RECTAL INJURY (PR98)^S^0:No;1:Yes;8:NA, no surgery;9:Unknown;^PRO2;33^Q"
^DD(165.5,689,21,0)="^^5^5^2980515^^^"
^DD(165.5,689,21,1,0)=""
^DD(165.5,689,21,2,0)="Record whether permanent rectal injury was a surgical complication"
^DD(165.5,689,21,3,0)="which was reported within 30 days of first course of treatment cancer-"
^DD(165.5,689,21,4,0)="directed surgery.  If not applicable, code 8.  If unknown, code 9."
^DD(165.5,689,21,5,0)=""
^DD(165.5,689,"DT")="2980515"
^DD(165.5,690,0)="THROMBOEMBOLISM (PR98)^S^0:No;1:Yes;8:NA, no surgery;9:Unknown;^PRO2;34^Q"
^DD(165.5,690,21,0)="^^5^5^2980515^^^^"
^DD(165.5,690,21,1,0)=""
^DD(165.5,690,21,2,0)="Record whether thromboembolism was a surgical complication which"
^DD(165.5,690,21,3,0)="was reported within 30 days of first course of treatment cancer-"
^DD(165.5,690,21,4,0)="directed surgery.  If not applicable, code 8.  If unknown, code 9."
^DD(165.5,690,21,5,0)=""
^DD(165.5,690,"DT")="2980515"
^DD(165.5,691,0)="URETHRAL STRICTURE (PR98)^S^0:No;1:Yes;8:NA, no surgery;9:Unknown;^PRO2;35^Q"
^DD(165.5,691,21,0)="^^5^5^2980515^^"
^DD(165.5,691,21,1,0)=""
^DD(165.5,691,21,2,0)="Record whether urethral stricture was a surgical complication which"
^DD(165.5,691,21,3,0)="was reported within 30 days of first course of treatment cancer-"
^DD(165.5,691,21,4,0)="directed surgery.  If not applicable, code 8.  If unknown, code 9."
^DD(165.5,691,21,5,0)=""
^DD(165.5,691,"DT")="2980515"
^DD(165.5,692,0)="RADIATION FACILITY^S^1:Reporting hospital;2:Other hospital;3:Freestanding facility;4:NOS;8:NA, radiation not administered;9:Unknown;^PRO2;36^Q"
^DD(165.5,692,21,0)="^^5^5^2980522^^"
^DD(165.5,692,21,1,0)=""
^DD(165.5,692,21,2,0)="Record whether radiation was administered at reporting hospital or"
^DD(165.5,692,21,3,0)="administered elsewhere.  Record 8 if no radiation administered."
^DD(165.5,692,21,4,0)="Record 9 if the radiation facility is unknown."
^DD(165.5,692,21,5,0)=""
^DD(165.5,692,"DT")="2980522"
^DD(165.5,693,0)="ROUTE OF INTERSTITIAL RAD^S^1:Perineal;2:Open;8:NA, not administered;9:Unknown;^PRO2;37^Q"
^DD(165.5,693,21,0)="^^4^4^2980522^^"
^DD(165.5,693,21,1,0)=""
^DD(165.5,693,21,2,0)="Record the route by which interstitial radiation/brachytherapy was"
^DD(165.5,693,21,3,0)="administered.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,693,21,4,0)=""
^DD(165.5,693,"DT")="2980522"
^DD(165.5,694,0)="TYPE OF RADIATION ADMIN^S^1:Conformal therapy;2:Standard;8:NA;9:Unknown;^PRO2;38^Q"
^DD(165.5,694,21,0)="^^6^6^2980522^"
^DD(165.5,694,21,1,0)=""
^DD(165.5,694,21,2,0)="Record the method by which external beam radiation was administered."
^DD(165.5,694,21,3,0)="Conformal therapy is a three dimensional radiation technique that"
^DD(165.5,694,21,4,0)="minimizes exposure to normal tissue.  Record 8 if not applicable."
^DD(165.5,694,21,5,0)="Record 9 if unknown."
^DD(165.5,694,21,6,0)=""
^DD(165.5,694,"DT")="2980522"
^DD(165.5,695,0)="GASTROINTESTINAL COMPLICATIONS^S^0:No;1:Yes;8:NA;9:Unknown;^PRO2;39^Q"
^DD(165.5,695,21,0)="^^5^5^2980522^"
^DD(165.5,695,21,1,0)=""
^DD(165.5,695,21,2,0)="Record whether or not acute gastrointestinal complications were"
^DD(165.5,695,21,3,0)="reported within 90 days of the start of radiation therapy.  Record"
^DD(165.5,695,21,4,0)="8 if not applicable.  Record 9 if unknown."
^DD(165.5,695,21,5,0)=""
^DD(165.5,695,"DT")="2980522"
^DD(165.5,696,0)="GASTROURINARY COMPLICATIONS^S^0:No;1:Yes;8:NA;9:Unknown;^PRO2;40^Q"
^DD(165.5,696,21,0)="^^5^5^2980522^"
^DD(165.5,696,21,1,0)=""
^DD(165.5,696,21,2,0)="Record whether or not acute gastrourinary complications were"
^DD(165.5,696,21,3,0)="reported within 90 days of the start of radiation therapy.  Record"
^DD(165.5,696,21,4,0)="8 if not applicable.  Record 9 if unknown."
^DD(165.5,696,21,5,0)=""
^DD(165.5,696,"DT")="2980522"
^DD(165.5,697,0)="ANORECTAL COMPLICATIONS^S^0:No;1:Yes;8:NA;9:Unknown;^PRO2;41^Q"
^DD(165.5,697,21,0)="^^5^5^2980522^"
^DD(165.5,697,21,1,0)=""
^DD(165.5,697,21,2,0)="Record whether or not anorectal complications were reported"
^DD(165.5,697,21,3,0)="within 90 days of the start of radiation therapy.  Record 8"
^DD(165.5,697,21,4,0)="if not applicable.  Record 9 if unknown."
^DD(165.5,697,21,5,0)=""
^DD(165.5,697,"DT")="2980522"
^DD(165.5,698,0)="CHRONIC COMPLICATIONS^S^0:No;1:Yes;8:NA;9:Unknown;^PRO2;42^Q"
^DD(165.5,698,21,0)="^^5^5^2980522^"
^DD(165.5,698,21,1,0)=""
^DD(165.5,698,21,2,0)="Record whether or not chronic complications requiring surgery or"
^DD(165.5,698,21,3,0)="prolonged hospitalization were reported within 90 days of the start of"
^DD(165.5,698,21,4,0)="radiation therapy.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,698,21,5,0)=""
^DD(165.5,698,"DT")="2980522"
^DD(165.5,699,0)="URETHRAL/BLADDER COMPLICATIONS^S^0:No;1:Yes;8:NA;9:Unknown;^PRO2;48^Q"
^DD(165.5,699,21,0)="^^5^5^2980522^"
^DD(165.5,699,21,1,0)=""
^DD(165.5,699,21,2,0)="Record whether or not urethral or bladder complications were reported"
^DD(165.5,699,21,3,0)="within 90 days of the start of radiation therapy.  Record 8 if not"
^DD(165.5,699,21,4,0)="applicable.  Record 9 if unknown."
^DD(165.5,699,21,5,0)=""
^DD(165.5,699,"DT")="2980522"
^DD(165.5,699.1,0)="DATE OF ORCHIECTOMY^DXO^^PRO2;49^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,699.1,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,699.1,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,699.1,3)="*** DATE OF ORCHIECTOMY MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,699.1,21,0)="^^5^5^2980608^^^^"
^DD(165.5,699.1,21,1,0)=""
^DD(165.5,699.1,21,2,0)="Record the date of the orchiectomy.  If no orchiectomy was performed,"
^DD(165.5,699.1,21,3,0)="code 00/00/0000.  If an orchiectomy was performed, but the month, day"
^DD(165.5,699.1,21,4,0)="or year is unknown, code the unknown item with 9's."
^DD(165.5,699.1,21,5,0)=""
^DD(165.5,699.1,"DT")="2980522"
^DD(165.5,700,0)="HISTORY OF COLORECTAL CA (FAM)^S^0:No;1:Yes;9:Unknown;^COL1;1^Q"
^DD(165.5,700,21,0)="^^2^2^2970210^^"
^DD(165.5,700,21,1,0)="Record any familial history of colorectal cancer documented in the medical"
^DD(165.5,700,21,2,0)="record."
^DD(165.5,700,"DT")="2970210"
^DD(165.5,701,0)="HISTORY OF COLORECTAL CA (PT)^S^0:No;1:Yes;9:Unknown;^COL1;2^Q"
^DD(165.5,701,21,0)="^^2^2^2970210^"
^DD(165.5,701,21,1,0)="Record and personal history of a previous colorectal cancer documented in the"
^DD(165.5,701,21,2,0)="medical record prior to 1997."
^DD(165.5,701,"DT")="2970210"
^DD(165.5,702,0)="MULTIPLE COLORECTAL PRIMARIES^S^0:No;1:Yes;9:Unknown;^COL1;3^Q"
^DD(165.5,702,21,0)="^^7^7^2970210^"
^DD(165.5,702,21,1,0)="Record if a second colorectal primary was diagnosed in addition to this"
^DD(165.5,702,21,2,0)="reported cancer.  If a patient has more than one colorectal primary and"
^DD(165.5,702,21,3,0)="more than one record will be submitted, answer 'yes' on all records "
^DD(165.5,702,21,4,0)="submitted for the patient."
^DD(165.5,702,21,5,0)="   "
^DD(165.5,702,21,6,0)="Note: If a second primary is accessioned late in the year, please remember"
^DD(165.5,702,21,7,0)="to change the data item on any earlier records."
^DD(165.5,702,"DT")="2970210"
^DD(165.5,703,0)="HISTORY OF BREAST CA (PT)^S^0:No;1:Yes;9:Unknown;^COL1;4^Q"
^DD(165.5,703,21,0)="^^1^1^2970210^"
^DD(165.5,703,21,1,0)="Record whether the patient has a history of breast cancer."
^DD(165.5,703,"DT")="2970210"
^DD(165.5,704,0)="HISTORY OF LUNG CA (PT)^S^0:No;1:Yes;9:Unknown;^COL1;5^Q"
^DD(165.5,704,21,0)="^^1^1^2970210^"
^DD(165.5,704,21,1,0)="Record whether the patient has a history of lung cancer."
^DD(165.5,704,"DT")="2970210"
^DD(165.5,705,0)="HISTORY OF OVARIAN CA (PT)^S^0:No;1:Yes;9:Unknown;^COL1;6^Q"
^DD(165.5,705,21,0)="^^1^1^2970210^^"
^DD(165.5,705,21,1,0)="Record whether the patient has a history of ovarian cancer."
^DD(165.5,705,"DT")="2970210"
^DD(165.5,706,0)="HISTORY OF OVARIAN CARCINOMA^S^0:No;1:Yes;9:Unknown;^COL1;7^Q"
^DD(165.5,706,21,0)="^^4^4^2970210^^"
^DD(165.5,706,21,1,0)="Record whether the patient has a history of ovarian carcinoma, peritoneal"
^DD(165.5,706,21,2,0)="site.  Note: Ovarian carcinoma, peritoneal site does not refer to metastatic"
^DD(165.5,706,21,3,0)="disease.  It is a primary ovarian cancer arising in the peritoneum, not in"
^DD(165.5,706,21,4,0)="the ovary."
^DD(165.5,706,"DT")="2970210"
^DD(165.5,707,0)="HISTORY OF STOMACH CA (PT)^S^0:No;1:Yes;9:Unknown;^COL1;8^Q"
^DD(165.5,707,21,0)="^^1^1^2970210^"
^DD(165.5,707,21,1,0)="Record whether the patient has a history of stomach cancer."
^DD(165.5,707,"DT")="2970210"
^DD(165.5,708,0)="HISTORY OF THYROID CA (PT)^S^0:No;1:Yes;9:Unknown;^COL1;9^Q"
^DD(165.5,708,21,0)="^^1^1^2970210^"
^DD(165.5,708,21,1,0)="Record whether the patient has a history of thyroid cancer."
^DD(165.5,708,"DT")="2970210"
^DD(165.5,709,0)="HISTORY OF UTERUS CA (PT)^S^0:No;1:Yes;9:Unknown;^COL1;10^Q"
^DD(165.5,709,21,0)="^^1^1^2970210^"
^DD(165.5,709,21,1,0)="Record whether the patient has a history of uterus cancer."
^DD(165.5,709,"DT")="2970210"
^DD(165.5,710,0)="PREVIOUS TAH/BSO^S^0:No;1:Yes;9:Unknown;^COL1;11^Q"
^DD(165.5,710,21,0)="^^2^2^2970210^"
^DD(165.5,710,21,1,0)="TAH/BSO (Total abdominal hysterectomy/bilateral salpingo-oophorectomy)"
^DD(165.5,710,21,2,0)="Record the appropriate code."
^DD(165.5,710,"DT")="2970210"
^DD(165.5,711,0)="FAMILIAL ADENOMATOUS POLYPS^S^0:No;1:Yes;9:Unknown/not documented;^COL1;12^Q"
^DD(165.5,711,21,0)="^.001^3^3^3050524^^^^"
^DD(165.5,711,21,1,0)=""
^DD(165.5,711,21,2,0)="Record whether the patient was affected by"
^DD(165.5,711,21,3,0)="FAP (Familial adenomatous polyposis)."
^DD(165.5,711,"DT")="3050524"
^DD(165.5,712,0)="HNPCC^S^0:No;1:Yes;9:Unknown/not documented;^COL1;13^Q"
^DD(165.5,712,21,0)="^.001^3^3^3050524^^"
^DD(165.5,712,21,1,0)=""
^DD(165.5,712,21,2,0)="Record whether the patient is affected by hereditary"
^DD(165.5,712,21,3,0)="nonpolyposis colon cancer (HNPCC) syndrome."
^DD(165.5,712,"DT")="3050524"
^DD(165.5,713,0)="INFLAMMATORY BOWEL DISEASE^S^0:No;1:Yes;9:Unknown/not documented;^COL1;14^Q"
^DD(165.5,713,21,0)="^.001^3^3^3050524^^"
^DD(165.5,713,21,1,0)=""
^DD(165.5,713,21,2,0)="Record whether the patient was affected by"
^DD(165.5,713,21,3,0)="inflammatory bowel disease (IBD)."
^DD(165.5,713,"DT")="3050524"
^DD(165.5,714,0)="PRIOR POLYPS^S^0:No;1:Yes;9:Unknown;^COL1;15^Q"
^DD(165.5,714,21,0)="^^1^1^2970211^"
^DD(165.5,714,21,1,0)="Record the appropriate code for prior polyps."
^DD(165.5,714,"DT")="2970211"
^DD(165.5,715,0)="POLYPS^NJ2,0O^^COL1;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,715,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0""_Y,Y=88:""NA, no adenomas"",Y=90:""Unknown number"",Y=99:""Unknown if adenomas"",1:Y)"
^DD(165.5,715,2.1)="S Y=$S($L(Y)=1:""0""_Y,Y=88:""NA, no adenomas"",Y=90:""Unknown number"",Y=99:""Unknown if adenomas"",1:Y)"
^DD(165.5,715,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,715,21,0)="^^2^2^2970211^"
^DD(165.5,715,21,1,0)="Record number of adenomas.  If no adenomas, record 88.  If number of adenomas"
^DD(165.5,715,21,2,0)="unknown, record 90.  If unknown if adenomas, record 99."
^DD(165.5,715,"DT")="2970211"
^DD(165.5,716,0)="DURATION OF ANEMIA^NJ2,0O^^COL1;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,716,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,716,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,716,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,716,21,0)="^^5^5^2970212^^^^"
^DD(165.5,716,21,1,0)="Record all anemia symptoms specific to the colorectal cancer that were"
^DD(165.5,716,21,2,0)="reported by the patient and included in the medical chart.  Round down"
^DD(165.5,716,21,3,0)="to the nearest whole number if months fall into a range.  For example,"
^DD(165.5,716,21,4,0)="if the patient had symptoms for two to three months, record 02.  If a"
^DD(165.5,716,21,5,0)="symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,716,"DT")="2970212"
^DD(165.5,717,0)="DURATION OF BOWEL OBSTRUCTION^NJ2,0O^^COL1;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,717,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,717,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,717,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,717,21,0)="^^5^5^2970212^"
^DD(165.5,717,21,1,0)="Record all bowel obstruction symptoms specific to the colorectal cancer"
^DD(165.5,717,21,2,0)="that were reported by the patient and included in the medical chart."
^DD(165.5,717,21,3,0)="Round down to the nearest whole number if months fall into a range."
^DD(165.5,717,21,4,0)="For example, if the patient had symptoms for two to three months,"
^DD(165.5,717,21,5,0)="record 02.  If a symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,717,"DT")="2970212"
^DD(165.5,718,0)="DURATION OF BOWEL HABIT CHANGE^NJ2,0O^^COL1;19^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,718,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,718,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,718,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,718,21,0)="^^5^5^2970212^"
^DD(165.5,718,21,1,0)="Record all change in bowel habit symptoms specific to the colorectal"
^DD(165.5,718,21,2,0)="cancer that were reported by the patient and included in the medical chart."
^DD(165.5,718,21,3,0)="Round down to the nearest whole number if months fall into a range."
^DD(165.5,718,21,4,0)="For example, if the patient had symptoms for two to three months,"
^DD(165.5,718,21,5,0)="record 02.  If a symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,718,"DT")="2970212"
^DD(165.5,719,0)="DURATION OF EMERGENCY PRES-OBS^NJ2,0O^^COL1;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,719,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,719,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,719,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,719,21,0)="^^6^6^2970212^"
^DD(165.5,719,21,1,0)="Record all emergency presentation-obstruction symptoms specific to"
^DD(165.5,719,21,2,0)="the colorectal cancer that were reported by the patient and included"
^DD(165.5,719,21,3,0)="in the medical chart.  Round down to the nearest whole number if months"
^DD(165.5,719,21,4,0)="fall into a range.  For example, if the patient had symptoms for two to"
^DD(165.5,719,21,5,0)="three months, record 02.  If a symptom was not reported in the chart,"
^DD(165.5,719,21,6,0)="code 99 (Unknown)."
^DD(165.5,719,"DT")="2970212"
^DD(165.5,720,0)="DURATION OF JAUNDICE^NJ2,0O^^COL1;21^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,720,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,720,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,720,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,720,21,0)="^^5^5^2970212^"
^DD(165.5,720,21,1,0)="Record all jaundice symptoms specific to the colorectal cancer that were"
^DD(165.5,720,21,2,0)="reported by the patient and included in the medical chart.  Round down"
^DD(165.5,720,21,3,0)="to the nearest whole number if months fall into a range.  For example,"
^DD(165.5,720,21,4,0)="if the patient had symptoms for two to three months, record 02.  If a"
^DD(165.5,720,21,5,0)="symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,720,"DT")="2970212"
^DD(165.5,721,0)="DURATION OF MALAISE^NJ2,0O^^COL1;22^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,721,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,721,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,721,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,721,21,0)="^^5^5^2970212^"
^DD(165.5,721,21,1,0)="Record all malaise symptoms specific to the colorectal cancer that were"
^DD(165.5,721,21,2,0)="reported by the patient and included in the medical chart.  Round down"
^DD(165.5,721,21,3,0)="to the nearest whole number if months fall into a range.  For example,"
^DD(165.5,721,21,4,0)="if the patient had symptoms for two to three months, record 02.  If a"
^DD(165.5,721,21,5,0)="symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,721,"DT")="2970212"
^DD(165.5,722,0)="DURATION OF BLOOD IN STOOL^NJ2,0O^^COL1;23^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,722,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,722,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,722,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,722,21,0)="^^6^6^2970212^"
^DD(165.5,722,21,1,0)="Record all occult blood in stool symptoms specific to the colorectal"
^DD(165.5,722,21,2,0)="cancer that were reported by the patient and included in the medical"
^DD(165.5,722,21,3,0)="chart.  Round down to the nearest whole number if months fall into a"
^DD(165.5,722,21,4,0)="range.  For example, if the patient had symptoms for two to three"
^DD(165.5,722,21,5,0)="months, record 02.  If a symptom was not reported in the chart,"
^DD(165.5,722,21,6,0)="code 99 (Unknown)."
^DD(165.5,722,"DT")="2970212"
^DD(165.5,723,0)="DURATION OF PAIN (ABDOMINAL)^NJ2,0O^^COL1;24^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,723,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,723,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,723,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,723,21,0)="^^5^5^2970212^"
^DD(165.5,723,21,1,0)="Record all abdominal pain symptoms specific to the colorectal cancer"
^DD(165.5,723,21,2,0)="that were reported by the patient and included in the medical chart."
^DD(165.5,723,21,3,0)="Round down to the nearest whole number if months fall into a range."
^DD(165.5,723,21,4,0)="For example, if the patient had symptoms for two to three months,"
^DD(165.5,723,21,5,0)="record 02.  If a symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,723,"DT")="2970212"
^DD(165.5,724,0)="DURATION OF PAIN (PELVIC)^NJ2,0O^^COL1;25^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,724,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,724,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,724,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,724,21,0)="^^5^5^2970212^"
^DD(165.5,724,21,1,0)="Record all pelvic pain symptoms specific to the colorectal cancer"
^DD(165.5,724,21,2,0)="that were reported by the patient and included in the medical chart."
^DD(165.5,724,21,3,0)="Round down to the nearest whole number if months fall into a range."
^DD(165.5,724,21,4,0)="For example, if the patient had symptoms for two to three months,"
^DD(165.5,724,21,5,0)="record 02.  If a symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,724,"DT")="2970212"
^DD(165.5,725,0)="DURATION OF RECTAL BLEEDING^NJ2,0O^^COL1;26^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,725,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,725,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,725,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,725,21,0)="^^5^5^2970527^^"
^DD(165.5,725,21,1,0)="Record all rectal bleeding symptoms specific to the colorectal cancer"
^DD(165.5,725,21,2,0)="that were reported by the patient and included in the medical chart."
^DD(165.5,725,21,3,0)="Round down to the nearest whole number if months fall into a range."
^DD(165.5,725,21,4,0)="For example, if the patient had symptoms for two to three months,"
^DD(165.5,725,21,5,0)="record 02.  If a symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,725,"DT")="2970212"
^DD(165.5,726,0)="DURATION OF OTHER^NJ2,0O^^COL1;27^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,726,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,726,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""Not present"",Y=""01"":""1 month or less"",Y=97:""Chart stated patient w/o symptom"",Y=98:""Symptom present, duration unknown"",Y=99:""Symptom not recorded in chart, unknown"",1:Y_"" months"")"
^DD(165.5,726,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,726,21,0)="^^5^5^2970212^"
^DD(165.5,726,21,1,0)="Record all other symptoms specific to the colorectal cancer"
^DD(165.5,726,21,2,0)="that were reported by the patient and included in the medical chart."
^DD(165.5,726,21,3,0)="Round down to the nearest whole number if months fall into a range."
^DD(165.5,726,21,4,0)="For example, if the patient had symptoms for two to three months,"
^DD(165.5,726,21,5,0)="record 02.  If a symptom was not reported in the chart, code 99 (Unknown)."
^DD(165.5,726,"DT")="2970212"
^DD(165.5,727,0)="ENDOSCOPIC METHOD^S^0:Not done;1:Done;9:Unknown if done;^COL1;28^Q"
^DD(165.5,727,21,0)="^^2^2^2970214^^^^"
^DD(165.5,727,21,1,0)="Record whether 'endoscopic' initial method of diagnosis was"
^DD(165.5,727,21,2,0)="performed.  If unknown, code a '9'."
^DD(165.5,727,"DT")="2970213"
^DD(165.5,728,0)="RADIOGRAPHIC METHOD^S^0:Not done;1:Done;9:Unknown if done;^COL1;29^Q"
^DD(165.5,728,21,0)="^^2^2^2970213^^"
^DD(165.5,728,21,1,0)="Record whether 'radiographic' initial method of diagnosis was"
^DD(165.5,728,21,2,0)="performed.  If unknown, code a '9'."
^DD(165.5,728,"DT")="2970213"
^DD(165.5,729,0)="SCREENING DIGITAL RECTAL EXAM^S^0:Not done;1:Done;9:Unknown if done;^COL1;30^Q"
^DD(165.5,729,21,0)="^^2^2^2970213^^"
^DD(165.5,729,21,1,0)="Record whether 'screening digital rectal exam' initial method of"
^DD(165.5,729,21,2,0)="diagnosis was performed.  If unknown, code a '9'."
^DD(165.5,729,"DT")="2970213"
^DD(165.5,730,0)="SCREENING PHYSICAL EXAM METHOD^S^0:Not done;1:Done;9:Unknown if done;^COL1;31^Q"
^DD(165.5,730,21,0)="^^2^2^2970213^"
^DD(165.5,730,21,1,0)="Record whether 'screening physical exam' initial method of"
^DD(165.5,730,21,2,0)="diagnosis was performed.  If unknown, code a '9'."
^DD(165.5,730,"DT")="2970213"
^DD(165.5,731,0)="OTHER INITIAL METHOD^S^0:Not done;1:Done;9:Unknown if done;^COL1;32^Q"
^DD(165.5,731,21,0)="^^2^2^2970213^"
^DD(165.5,731,21,1,0)="Record whether other initial method of diagnosis was performed."
^DD(165.5,731,21,2,0)="If unknown, code a '9'."
^DD(165.5,731,"DT")="2970213"
^DD(165.5,732,0)="REASON LEADING TO EVENTUAL DX^S^0:General screening (endoscopy, hemocult);1:Symptoms;2:Familial history;3:Genetic test;4:Other;9:Unknown;^COL1;33^Q"
^DD(165.5,732,21,0)="^^3^3^2970213^^"
^DD(165.5,732,21,1,0)="Record the appropriate code for the precipitating reason or procedure"
^DD(165.5,732,21,2,0)="which eventually lead to diagnosing this patient with this cancer."
^DD(165.5,732,21,3,0)="If unknown, code a '9'."
^DD(165.5,732,"DT")="2970213"
^DD(165.5,733,0)="BARIUM ENEMA, DOUBLE CONTRAST^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;34^Q"
^DD(165.5,733,21,0)="^^3^3^2970213^^"
^DD(165.5,733,21,1,0)="Record the results of the Diagnostic Test 'BARIUM ENEMA, DOUBLE CONTRAST',"
^DD(165.5,733,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,733,21,3,0)="record a '0'."
^DD(165.5,733,"DT")="2970213"
^DD(165.5,734,0)="BARIUM ENEMA, SINGLE CONTRAST^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;35^Q"
^DD(165.5,734,21,0)="^^3^3^2970213^"
^DD(165.5,734,21,1,0)="Record the results of the Diagnostic Test 'BARIUM ENEMA, SINGLE CONTRAST',"
^DD(165.5,734,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,734,21,3,0)="record a '0'."
^DD(165.5,734,"DT")="2970213"
^DD(165.5,735,0)="BARIUM ENEMA, NOS^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;36^Q"
^DD(165.5,735,21,0)="^^3^3^2970213^"
^DD(165.5,735,21,1,0)="Record the results of the Diagnostic Test 'BARIUM ENEMA, NOS',"
^DD(165.5,735,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,735,21,3,0)="record a '0'."
^DD(165.5,735,"DT")="2970213"
^DD(165.5,736,0)="BIOPSY OF PRIMARY SITE^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;37^Q"
^DD(165.5,736,21,0)="^^3^3^2970213^"
^DD(165.5,736,21,1,0)="Record the results of the Diagnostic Test 'BIOPSY OF PRIMARY SITE',"
^DD(165.5,736,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,736,21,3,0)="record a '0'."
^DD(165.5,736,"DT")="2970213"
^DD(165.5,737,0)="BIOPSY OF METASTATIC SITE^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;38^Q"
^DD(165.5,737,21,0)="^^3^3^2970213^^"
^DD(165.5,737,21,1,0)="Record the results of the Diagnostic Test 'BIOPSY OF METASTATIC SITE',"
^DD(165.5,737,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,737,21,3,0)="record a '0'."
^DD(165.5,737,"DT")="2970213"
^DD(165.5,738,0)="CT SCAN OF LIVER^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;39^Q"
^DD(165.5,738,21,0)="^^3^3^2970213^"
^DD(165.5,738,21,1,0)="Record the results of the Diagnostic Test 'CT SCAN OF LIVER',"
^DD(165.5,738,21,2,0)="if it was performed to evaluate this cancer.  If this test was not"
^DD(165.5,738,21,3,0)="done record a '0'."
^DD(165.5,738,"DT")="2970213"
^DD(165.5,739,0)="CT SCAN OF PRIMARY SITE (COL)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;40^Q"
^DD(165.5,739,21,0)="^^3^3^2970213^"
^DD(165.5,739,21,1,0)="Record the results of the Diagnostic Test 'CT SCAN OF PRIMARY SITE',"
^DD(165.5,739,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,739,21,3,0)="record a '0'."
^DD(165.5,739,"DT")="2970213"
^DD(165.5,740,0)="CARCINOEMBRYONIC ANTIGEN (CEA)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;41^Q"
^DD(165.5,740,21,0)="^^3^3^2970213^"
^DD(165.5,740,21,1,0)="Record the results of the Diagnostic Test 'CARCINOEMBRYONIC ANTIGEN (CEA)',"
^DD(165.5,740,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,740,21,3,0)="record a '0'."
^DD(165.5,740,"DT")="2970213"
^DD(165.5,741,0)="CHEST ROENTGENOGRAM^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;42^Q"
^DD(165.5,741,21,0)="^^3^3^2970213^"
^DD(165.5,741,21,1,0)="Record the results of the Diagnostic Test 'CHEST ROENTGENOGRAM',"
^DD(165.5,741,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,741,21,3,0)="record a '0'."
^DD(165.5,741,"DT")="2970213"
^DD(165.5,742,0)="COLONOSCOPY^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;43^Q"
^DD(165.5,742,21,0)="^^3^3^2970213^^"
^DD(165.5,742,21,1,0)="Record the results of the Diagnostic Test 'COLONOSCOPY',"
^DD(165.5,742,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,742,21,3,0)="record a '0'."
^DD(165.5,742,"DT")="2970213"
^DD(165.5,743,0)="DIGITAL RECTAL EXAM^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;44^Q"
^DD(165.5,743,21,0)="^^3^3^2970213^"
^DD(165.5,743,21,1,0)="Record the results of the Diagnostic Test 'DIGITAL RECTAL EXAM',"
^DD(165.5,743,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,743,21,3,0)="record a '0'."
^DD(165.5,743,"DT")="2970213"
^DD(165.5,744,0)="FLEXIBLE SIGMOIDOSCOPY^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;45^Q"
^DD(165.5,744,21,0)="^^3^3^2970214^^^"
^DD(165.5,744,21,1,0)="Record the results of the Diagnostic Test 'FLEXIBLE SIGMOIDOSCOPY',"
^DD(165.5,744,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,744,21,3,0)="record a '0'."
^DD(165.5,744,"DT")="2970213"
^DD(165.5,745,0)="INTRAVENOUS PYELOGRAM (COL)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;46^Q"
^DD(165.5,745,21,0)="^^3^3^2970214^^"
^DD(165.5,745,21,1,0)="Record the results of the Diagnostic Test 'INTRAVENOUS PYELOGRAM (IVP)',"
^DD(165.5,745,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,745,21,3,0)="record a '0'."
^DD(165.5,745,"DT")="2970214"
^DD(165.5,746,0)="SERUM-LIVER FUNCTION TEST^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;47^Q"
^DD(165.5,746,21,0)="^^3^3^2970214^^"
^DD(165.5,746,21,1,0)="Record the results of the Diagnostic Test 'SERUM-LIVER FUNCTION TEST',"
^DD(165.5,746,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,746,21,3,0)="record a '0'."
^DD(165.5,746,"DT")="2970214"
^DD(165.5,747,0)="MRI (COL)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;48^Q"
^DD(165.5,747,21,0)="^^3^3^2970214^^"
^DD(165.5,747,21,1,0)="Record the results of the Diagnostic Test 'MAGNETIC RESONANCE IMAGING (MRI)',"
^DD(165.5,747,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,747,21,3,0)="record a '0'."
^DD(165.5,747,"DT")="2970214"
^DD(165.5,748,0)="PROCTOSCOPY (RIGID)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;49^Q"
^DD(165.5,748,21,0)="^^3^3^2970214^^"
^DD(165.5,748,21,1,0)="Record the results of the Diagnostic Test 'PROCTOSCOPY (RIGID)', if"
^DD(165.5,748,21,2,0)="it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,748,21,3,0)="record a '0'."
^DD(165.5,748,"DT")="2970214"
^DD(165.5,749,0)="STOOL GUAIAC (OCCULT BLOOD)^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;50^Q"
^DD(165.5,749,21,0)="^^3^3^2970214^^"
^DD(165.5,749,21,1,0)="Record the results of the Diagnostic Test 'STOOL GUAIAC (OCCULT BLOOD)',"
^DD(165.5,749,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,749,21,3,0)="record a '0'."
^DD(165.5,749,"DT")="2970214"
^DD(165.5,750,0)="ULTRASOUND, LIVER, ABDOMEN^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;51^Q"
^DD(165.5,750,21,0)="^^3^3^2970214^^"
^DD(165.5,750,21,1,0)="Record the results of the Diagnostic Test 'ULTRASOUND, LIVER, ABDOMEN',"
^DD(165.5,750,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,750,21,3,0)="record a '0'."
^DD(165.5,750,"DT")="2970214"
^DD(165.5,751,0)="ULTRASOUND, ENDORECTAL^S^0:Test not done;1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Procedure attempted and incomplete;8:Test done, results unknown;9:Unknown if test done;^COL1;52^Q"
^DD(165.5,751,10)=""
^DD(165.5,751,21,0)="^^3^3^2970214^^^^"
^DD(165.5,751,21,1,0)="Record the results of the Diagnostic Test 'ULTRASOUND, ENDORECTAL',"
^DD(165.5,751,21,2,0)="if it was performed to evaluate this cancer.  If this test was not done"
^DD(165.5,751,21,3,0)="record a '0'."
^DD(165.5,751,"DT")="2970214"
^DD(165.5,752,0)="TUMOR LEVEL-ENDOSCOPIC EXAM^NJ2,0O^^COL2;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,752,2)="S Y(0)=Y D TLEEOT^ONCOES"
^DD(165.5,752,2.1)="D TLEEOT^ONCOES"
^DD(165.5,752,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,752,21,0)="^^7^7^2970219^^^"
^DD(165.5,752,21,1,0)="Record the level of tumor from anal verge by endoscopic exam in"
^DD(165.5,752,21,2,0)="centimeters if less than 61 centimeters.  If greater than 60 centi-"
^DD(165.5,752,21,3,0)="meters, record the appropriate code for tumor site in colon.  If"
^DD(165.5,752,21,4,0)="examination performed but tumor not visualized, record a '70'.  If"
^DD(165.5,752,21,5,0)="examination was performed, but results unknown, record '80'.  If"
^DD(165.5,752,21,6,0)="unknown whether examination was performed, record '99'. If this exam-"
^DD(165.5,752,21,7,0)="ination was not performed code '00'."
^DD(165.5,752,"DT")="2970214"
^DD(165.5,753,0)="LEVEL OF RECTAL TUMOR^S^0:Not measured;1:Low (0-5 cm);2:Medium (6-10 cm);3:High (11-15 cm);7:Measured but results unknown;8:NA, not a rectal tumor;9:Unknown if measured;^COL2;2^Q"
^DD(165.5,753,20,0)="^.3LA^^0"
^DD(165.5,753,21,0)="^^4^4^2970219^^^^"
^DD(165.5,753,21,1,0)="Record the appropriate code for the level of rectal tumor.  If level"
^DD(165.5,753,21,2,0)="not measured, record '0'.  If level measured, but results unknown,"
^DD(165.5,753,21,3,0)="record '7'.  If not applicable, record '8'.  Record '9' if unknown"
^DD(165.5,753,21,4,0)="if measured."
^DD(165.5,753,"DT")="2970219"
^DD(165.5,754,0)="PROXIMAL MARGIN OF RESECTION^S^0:Negative;1:Microscopically positive;2:Grossly positive;8:NA;9:Unknown, not described;^COL2;3^Q"
^DD(165.5,754,21,0)="^^1^1^2970319^^^"
^DD(165.5,754,21,1,0)="Record the appropriate code for the Proximal margin of resection."
^DD(165.5,754,"DT")="2970319"
^DD(165.5,755,0)="DISTAL MARGIN OF RESECTION^S^0:Negative;1:Microscopically positive;2:Grossly positive;8:NA;9:Unknown, not described;^COL2;4^Q"
^DD(165.5,755,21,0)="^^1^1^2970319^^^"
^DD(165.5,755,21,1,0)="Record the appropriate code for the Distal margin of resection."
^DD(165.5,755,"DT")="2970319"
^DD(165.5,756,0)="RADIAL MARGIN OF RESECTION^S^0:Negative;1:Microscopically positive;2:Grossly positive;8:NA;9:Unknown, not described;^COL2;5^Q"
^DD(165.5,756,21,0)="^^1^1^2970319^^^"
^DD(165.5,756,21,1,0)="Record the appropriate code for the Radial margin of resection."
^DD(165.5,756,"DT")="2970319"
^DD(165.5,757,0)="DIST TO CLOSEST MUCOSAL MARGIN^NJ2,0O^^COL2;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,757,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=88:""Not applicable"",Y=99:""Unknown"",1:Y_"" mm"")"
^DD(165.5,757,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=88:""Not applicable"",Y=99:""Unknown"",1:Y_"" mm"")"
^DD(165.5,757,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,757,21,0)="^^5^5^2970220^^^"
^DD(165.5,757,21,1,0)="Record the distance in millimeters (mm) to the closest mucosal"
^DD(165.5,757,21,2,0)="margin (or to dentate for abdominal perineal resection).  This"
^DD(165.5,757,21,3,0)="may also be described as the lateral or circumferential margin."
^DD(165.5,757,21,4,0)="Record the distance in millimeters.  Record 88 if not applicable."
^DD(165.5,757,21,5,0)="If unknown, record 99."
^DD(165.5,757,"DT")="2970218"
^DD(165.5,758,0)="DIST TO CLOSEST RADIAL MARGIN^NJ2,0O^^COL2;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,758,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=88:""Not applicable"",Y=99:""Unknown"",1:Y_"" mm"")"
^DD(165.5,758,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=88:""Not applicable"",Y=99:""Unknown"",1:Y_"" mm"")"
^DD(165.5,758,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,758,21,0)="^^3^3^2970218^^"
^DD(165.5,758,21,1,0)="Record the distance in millimeters (mm) to the closest radial"
^DD(165.5,758,21,2,0)="margin (or to the base of excision, if polyp).  Record the distance"
^DD(165.5,758,21,3,0)="in millimeters.  Record 88 if not applicable.  If unknown, record 99."
^DD(165.5,758,"DT")="2970218"
^DD(165.5,759,0)="BLOOD VESSEL OR LYMPHATIC INV^S^0:No;1:Yes;9:Unknown;^COL2;8^Q"
^DD(165.5,759,21,0)="^^1^1^2970218^^"
^DD(165.5,759,21,1,0)="Record the appropriate code for blood vessel or lymphatic invasion."
^DD(165.5,759,"DT")="2970218"
^DD(165.5,760,0)="EXTRAMURAL VENOUS INVASION^S^0:No;1:Yes;9:Unknown;^COL2;9^Q"
^DD(165.5,760,21,0)="^^1^1^2970218^^"
^DD(165.5,760,21,1,0)="Record the appropriate code for extramural venous invasion."
^DD(165.5,760,"DT")="2970218"
^DD(165.5,761,0)="PROMINENT LYMPHOID INFILTRATE^S^0:No;1:Yes;9:Unknown;^COL2;10^Q"
^DD(165.5,761,21,0)="^^2^2^2970218^^"
^DD(165.5,761,21,1,0)="Record the appropriate code for prominent lymphoid infiltrate (Crohn's"
^DD(165.5,761,21,2,0)="lymphoid follicle)."
^DD(165.5,761,"DT")="2970218"
^DD(165.5,762,0)="PHYS PROVIDING DEF TREATMENT^S^1:Colorectal board certified surgeon;2:Gastroenterologist;3:General surgeon;4:Radiation therapist;5:Other;9:Unknown;^COL2;11^Q"
^DD(165.5,762,21,0)="^^2^2^2970219^^"
^DD(165.5,762,21,1,0)="Record the appropriate code representing the physician that provided"
^DD(165.5,762,21,2,0)="the definitive treatment."
^DD(165.5,762,"DT")="2970219"
^DD(165.5,763,0)="ADDITIONAL SURGICAL PROCEDURES^NJ2,0XO^^COL2;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D ASPIT^ONCOES"
^DD(165.5,763,2)="S Y(0)=Y D ASPOT^ONCOES"
^DD(165.5,763,2.1)="D ASPOT^ONCOES"
^DD(165.5,763,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,763,4)="D ASPHP^ONCOES"
^DD(165.5,763,21,0)="^^7^7^2970324^^^^"
^DD(165.5,763,21,1,0)="Enter any modified or additional surgical procedures for primary"
^DD(165.5,763,21,2,0)="rectosigmoid or rectal cancer.  Record the appropriate code if any"
^DD(165.5,763,21,3,0)="of the specified procedures were performed.  Please note that these"
^DD(165.5,763,21,4,0)="codes do not represent the procedures as defined for the required"
^DD(165.5,763,21,5,0)="surgery codes.  For this field, these codes identify only the specified"
^DD(165.5,763,21,6,0)="procedures.  Record 88 for not applicable, not performed.  Record 99"
^DD(165.5,763,21,7,0)="for unknown if performed."
^DD(165.5,763,"DT")="2970220"
^DD(165.5,764,0)="LAPAROSCOPY USED DURING CDS^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;13^Q"
^DD(165.5,764,21,0)="^^2^2^2970319^^^"
^DD(165.5,764,21,1,0)="Record whether a laparoscopic procedure was used during cancer-"
^DD(165.5,764,21,2,0)="directed surgery.  Record an '8' if not applicable."
^DD(165.5,764,"DT")="2970319"
^DD(165.5,765,0)="METHOD OF ANASTOMOSIS^S^0:Not done;1:Staple;2:Created by hand;8:Method not recorded;9:Unknown if done;^COL2;14^Q"
^DD(165.5,765,21,0)="^^1^1^2970220^^"
^DD(165.5,765,21,1,0)="Record the appropriate code for the method of anastomosis."
^DD(165.5,765,"DT")="2970220"
^DD(165.5,766,0)="CM FROM ANASTOMOSIS TO DENTATE^NJ4,1^^COL2;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(165.5,766,3)="Type a Number between 0 and 99, 1 Decimal Digit"
^DD(165.5,766,21,0)="^^1^1^2970220^^"
^DD(165.5,766,21,1,0)="Record the distance in centimeters of anastomosis from dentate."
^DD(165.5,766,"DT")="2970220"
^DD(165.5,767,0)="COLOSTOMY^S^0:No;1:Yes;9:Unknown;^COL2;16^Q"
^DD(165.5,767,21,0)="^^1^1^2970220^^"
^DD(165.5,767,21,1,0)="Record whether a colonscopy was performed."
^DD(165.5,767,"DT")="2970220"
^DD(165.5,768,0)="OOPHORECTOMY^S^0:No;1:Yes;9:Unknown;^COL2;17^Q"
^DD(165.5,768,21,0)="^^2^2^2970220^^"
^DD(165.5,768,21,1,0)="Record whether an oophorectomy was performed.  If an oophorectomy was"
^DD(165.5,768,21,2,0)="performed, record the pathological status in the pathological status field."
^DD(165.5,768,"DT")="2970220"
^DD(165.5,769,0)="PATHOLOGICAL STATUS^S^0:Not involved;1:Involved;8:NA;9:Unknown;^COL2;18^Q"
^DD(165.5,769,21,0)="^^3^3^2970319^^^^"
^DD(165.5,769,21,1,0)="Record the appropriate code.  If an oophorectomy was performed,"
^DD(165.5,769,21,2,0)="then record the pathological status in this field.  If not performed,"
^DD(165.5,769,21,3,0)="code an '8' (NA)."
^DD(165.5,769,"DT")="2970319"
^DD(165.5,770,0)="ABDOMINAL INFECTION^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;19^Q"
^DD(165.5,770,21,0)="^^3^3^2970404^^^^"
^DD(165.5,770,21,1,0)="Record whether the patient had the surgical complication 'BLEEDING/HEMATOMA',"
^DD(165.5,770,21,2,0)="which resulted from treatment.  If the complication did not occur, code"
^DD(165.5,770,21,3,0)="a '0' (no).  If no treatment was performed, code 8 (NA)."
^DD(165.5,770,"DT")="2970404"
^DD(165.5,771,0)="ABSCESS^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;20^Q"
^DD(165.5,771,21,0)="^^3^3^2970404^^^^"
^DD(165.5,771,21,1,0)="Record whether the patient had the surgical complication 'ABSCESS',"
^DD(165.5,771,21,2,0)="which resulted from treatment.  If the complication did not occur, code"
^DD(165.5,771,21,3,0)="a '0' (no).  If no treatment was performed, code 8 (NA)."
^DD(165.5,771,"DT")="2970404"
^DD(165.5,772,0)="ADMISSION FOR NEUTROPENIA^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;21^Q"
^DD(165.5,772,21,0)="^^4^4^2970404^^^^"
^DD(165.5,772,21,1,0)="Record whether the patient had the surgical complication 'ADMISSION"
^DD(165.5,772,21,2,0)="FOR NEUTROPENIA', which resulted from treatment.  If the complication"
^DD(165.5,772,21,3,0)="did not occur, code a '0' (no).  If no treatment was performed,"
^DD(165.5,772,21,4,0)="code 8 (NA)."
^DD(165.5,772,"DT")="2970404"
^DD(165.5,773,0)="ANASTOMOTIC DEHISCENCE^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;22^Q"
^DD(165.5,773,21,0)="^^3^3^2970404^^^^"
^DD(165.5,773,21,1,0)="Record whether the patient had the surgical complication 'ANASTOMOTIC"
^DD(165.5,773,21,2,0)="DEHISCENCE', which resulted from treatment.  If the complication did"
^DD(165.5,773,21,3,0)="not occur, code a '0' (no).  If no treatment was performed, code 8 (NA)."
^DD(165.5,773,"DT")="2970404"
^DD(165.5,774,0)="DEHYDRATION^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;23^Q"
^DD(165.5,774,21,0)="^^3^3^2970404^^^^"
^DD(165.5,774,21,1,0)="Record whether the patient had the surgical complication 'DEHYDRATION',"
^DD(165.5,774,21,2,0)="which resulted from treatment.  If the complication did not occur, code"
^DD(165.5,774,21,3,0)="a '0' (no).  If no treatment was performed, code 8 (NA)."
^DD(165.5,774,"DT")="2970404"
^DD(165.5,775,0)="DIARRHEA^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;24^Q"
^DD(165.5,775,21,0)="^^3^3^2970404^^^^"
^DD(165.5,775,21,1,0)="Record whether the patient had the surgical complication 'DIARRHEA',"
^DD(165.5,775,21,2,0)="which resulted from treatment.  If the complication did not occur, code"
^DD(165.5,775,21,3,0)="a '0' (no).  If no treatment was performed, code 8 (NA)."
^DD(165.5,775,"DT")="2970404"
^DD(165.5,776,0)="EARLY BOWEL OBSTRUCTION^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;25^Q"
^DD(165.5,776,21,0)="^^4^4^2970404^^^^"
^DD(165.5,776,21,1,0)="Record whether the patient had the surgical complication 'EARLY BOWEL"
^DD(165.5,776,21,2,0)="OBSTRUCTION', which resulted from treatment.  If the complication"
^DD(165.5,776,21,3,0)="did not occur, code a '0' (no).  If no treatment was performed,"
^DD(165.5,776,21,4,0)="code 8 (NA)."
^DD(165.5,776,"DT")="2970404"
^DD(165.5,777,0)="PERINEAL INFECTION^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;26^Q"
^DD(165.5,777,21,0)="^^4^4^2970404^^^^"
^DD(165.5,777,21,1,0)="Record whether the patient had the surgical complication 'PERINEAL"
^DD(165.5,777,21,2,0)="INFECTION', which resulted from treatment.  If the complication did"
^DD(165.5,777,21,3,0)="not occur, code a '0' (no).  If no treatment was performed,"
^DD(165.5,777,21,4,0)="code 8 (NA)."
^DD(165.5,777,"DT")="2970404"
^DD(165.5,778,0)="PNEUMONIA (COL)^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;27^Q"
^DD(165.5,778,21,0)="^^3^3^2970404^^^^"
^DD(165.5,778,21,1,0)="Record whether the patient had the surgical complication 'PNEUMONIA',"
^DD(165.5,778,21,2,0)="which resulted from treatment.  If the complication did not occur, code"
^DD(165.5,778,21,3,0)="a '0' (no).  If no treatment was performed, code 8 (NA)."
^DD(165.5,778,"DT")="2970404"
^DD(165.5,779,0)="PROCTITIS^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;28^Q"
^DD(165.5,779,21,0)="^^3^3^2970404^^^^"
^DD(165.5,779,21,1,0)="Record whether the patient had the surgical complication 'PROCTITIS',"
^DD(165.5,779,21,2,0)="which resulted from treatment.  If the complication did not occur, code"
^DD(165.5,779,21,3,0)="a '0' (no).  If no treatment was performed, code 8 (NA)."
^DD(165.5,779,"DT")="2970404"
^DD(165.5,780,0)="PULMONARY EMBOLISM (COL)^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;29^Q"
^DD(165.5,780,21,0)="^^4^4^2970404^^^^"
^DD(165.5,780,21,1,0)="Record whether the patient had the surgical complication 'PULMONARY"
^DD(165.5,780,21,2,0)="EMBOLISM', which resulted from treatment.  If the complication"
^DD(165.5,780,21,3,0)="did not occur, code a '0' (no).  If no treatment was performed,"
^DD(165.5,780,21,4,0)="code 8 (NA)."
^DD(165.5,780,"DT")="2970404"
^DD(165.5,781,0)="RADIATION ENTERITIS^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;30^Q"
^DD(165.5,781,21,0)="^^4^4^2970404^^^^"
^DD(165.5,781,21,1,0)="Record whether the patient had the surgical complication 'RADIATION"
^DD(165.5,781,21,2,0)="ENTERITIS', which resulted from treatment.  If the complication"
^DD(165.5,781,21,3,0)="did not occur, code a '0' (no).  If no treatment was performed,"
^DD(165.5,781,21,4,0)="code 8 (NA)."
^DD(165.5,781,"DT")="2970404"
^DD(165.5,782,0)="STOMA COMPLICATION^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;31^Q"
^DD(165.5,782,21,0)="^^4^4^2970404^^^^"
^DD(165.5,782,21,1,0)="Record whether the patient had the surgical complication 'STOMA"
^DD(165.5,782,21,2,0)="COMPLICATION', which resulted from treatment.  If the complication"
^DD(165.5,782,21,3,0)="did not occur, code a '0' (no).  If no treatment was performed,"
^DD(165.5,782,21,4,0)="code 8 (NA)."
^DD(165.5,782,"DT")="2970404"
^DD(165.5,783,0)="URINARY TRACT INFECTION^S^0:No;1:Yes;8:NA;9:Unknown;^COL2;32^Q"
^DD(165.5,783,21,0)="^^4^4^2970404^^^^"
^DD(165.5,783,21,1,0)="Record whether the patient had the surgical complication 'URINARY"
^DD(165.5,783,21,2,0)="TRACT INFECTION', which resulted from treatment.  If the complication"
^DD(165.5,783,21,3,0)="did not occur, code a '0' (no).  If no treatment was performed,"
^DD(165.5,783,21,4,0)="code 8 (NA)."
^DD(165.5,783,"DT")="2970404"
^DD(165.5,784,0)="ENDOCAVITARY RADIATION (ECRT)^S^0:None;1:Yes;9:Unknown;^COL2;33^Q"
^DD(165.5,784,21,0)="^^3^3^2970221^^"
^DD(165.5,784,21,1,0)="Record the appropriate code for whether endocavitary radiation (ECRT)"
^DD(165.5,784,21,2,0)="was given.  ECRT refers to contact radiation delivered through the"
^DD(165.5,784,21,3,0)="bowel lumen, usually proctoscopically, especially for rectal cancer."
^DD(165.5,784,"DT")="2970221"
^DD(165.5,785,0)="INTRA-OPERATIVE RAD THERAPY^S^0:No;1:Yes;9:Unknown;^COL2;34^Q"
^DD(165.5,785,21,0)="^^3^3^2970221^"
^DD(165.5,785,21,1,0)="Record the appropriate code for whether intra-operative radiation"
^DD(165.5,785,21,2,0)="therapy (IORT) was given.  IORT is beam radiation and/or radioactive"
^DD(165.5,785,21,3,0)="implants and/or radioisotopes at time of surgery."
^DD(165.5,785,"DT")="2970221"
^DD(165.5,786,0)="PRIMARY TUMOR RAD DOSE (cGy)^NJ5,0O^^COL2;35^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,786,2)="S Y(0)=Y D PTRDOT^ONCOES"
^DD(165.5,786,2.1)="D PTRDOT^ONCOES"
^DD(165.5,786,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,786,21,0)="^^5^5^2970221^^^"
^DD(165.5,786,21,1,0)="Record the primary tumor total rad dose (cGy) given, including boost."
^DD(165.5,786,21,2,0)="If the patient did not receive radiation therapy, code 00000.  If"
^DD(165.5,786,21,3,0)="it is known that the patient received radiation therapy but the"
^DD(165.5,786,21,4,0)="dose is unknown, code 88888.  If it is unknown if patient received"
^DD(165.5,786,21,5,0)="radiation, code 99999."
^DD(165.5,786,"DT")="2970221"
^DD(165.5,787,0)="NUMBER OF RADIATION TREATMENTS^NJ2,0O^^COL2;36^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,787,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""None"",Y=88:""Given but number unknown"",Y=99:""Unknown if radiation given"",1:Y)"
^DD(165.5,787,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""00"":""None"",Y=88:""Given but number unknown"",Y=99:""Unknown if radiation given"",1:Y)"
^DD(165.5,787,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,787,21,0)="^^3^3^2970221^^"
^DD(165.5,787,21,1,0)="Record the number of radiation treatments.  If none, record 00.  If"
^DD(165.5,787,21,2,0)="given, but number unknown, record 88.  If unknown if radiation given,"
^DD(165.5,787,21,3,0)="record 99."
^DD(165.5,787,"DT")="2970221"
^DD(165.5,788,0)="ADJUVANT CHEMOTHERAPY (COL)^S^0:No concomitant treatment;1:Radiation and concomitant bolus chemo;2:Radiation and concomitant infusion chemo;9:Unknown if therapy concomitant;^COL2;37^Q"
^DD(165.5,788,21,0)="^^5^5^2970327^^^^"
^DD(165.5,788,21,1,0)="Record the Adjuvant Chemotherapy with Concomitant External Beam Radiation."
^DD(165.5,788,21,2,0)="If patient receives chemotherapy at any time during radiation as a radio-"
^DD(165.5,788,21,3,0)="sensitizing agent, code 1.  If chemotherapy is stopped more than 2 days"
^DD(165.5,788,21,4,0)="prior to radiation therapy and not given until external beam therapy is"
^DD(165.5,788,21,5,0)="completed, code 0.  If unknown, code 9."
^DD(165.5,788,"DT")="2970327"
^DD(165.5,789,0)="5 FU (FLUOROURACIL)^S^0:No;1:Yes;9:Unknown;^COL2;38^Q"
^DD(165.5,789,21,0)="^^2^2^2970221^^^"
^DD(165.5,789,21,1,0)="Record whether the adjuvant therapy 5 FU (Fluorouracil) was given."
^DD(165.5,789,21,2,0)="If it is unknown if it was given, record a 9."
^DD(165.5,789,"DT")="2970221"
^DD(165.5,790,0)="LEUCOVORIN^S^0:No;1:Yes;9:Unknown;^COL2;39^Q"
^DD(165.5,790,21,0)="^^2^2^2970221^^^^"
^DD(165.5,790,21,1,0)="Record whether the adjuvant therapy Leucovorin was given."
^DD(165.5,790,21,2,0)="If it is unknown if it was given, record a 9."
^DD(165.5,790,"DT")="2970221"
^DD(165.5,791,0)="LEVAMISOLE^*S^0:No;1:Yes;8:NA;9:Unknown;^COL2;40^Q"
^DD(165.5,791,12)="Code 8 should not be used for cases with a DATE DX < 1/1/1999"
^DD(165.5,791,12.1)="S DIC(""S"")=""I ($P($G(^ONCO(165.5,DA,0)),U,16)>2981231)!(Y'=8)"""
^DD(165.5,791,21,0)="^^2^2^2990114^^^^"
^DD(165.5,791,21,1,0)="Record whether the adjuvant therapy Levamisole was given."
^DD(165.5,791,21,2,0)="If it is unknown if it was given, record a 9."
^DD(165.5,791,"DT")="2990114"
^DD(165.5,792,0)="CPT 11^S^0:No;1:Yes;9:Unknown;^COL2;41^Q"
^DD(165.5,792,21,0)="^^2^2^2970221^^"
^DD(165.5,792,21,1,0)="Record whether the adjuvant therapy CPT 11 was given."
^DD(165.5,792,21,2,0)="If it is unknown if it was given, record a 9."
^DD(165.5,792,"DT")="2970221"
^DD(165.5,793,0)="OTHER ADJUVANT THERAPY^S^0:No;1:Yes;9:Unknown;^COL2;42^Q"
^DD(165.5,793,21,0)="^^2^2^2970221^^"
^DD(165.5,793,21,1,0)="Record whether any other adjuvant therapy was given."
^DD(165.5,793,21,2,0)="If it is unknown if any was given, record a 9."
^DD(165.5,793,"DT")="2970221"
^DD(165.5,794,0)="DURATION OF ADJUVANT THERAPY^S^0:No adjuvant therapy;1:1 to 6 months;2:7 to 12 months;8:Therapy given but duration unknown;9:Unknown if therapy given;^COL2;43^Q"
^DD(165.5,794,21,0)="^^1^1^2970221^^"
^DD(165.5,794,21,1,0)="Record the appropriate code for the duration of adjuvant therapy."
^DD(165.5,794,"DT")="2970221"
^DD(165.5,795,0)="COMPLETED DURATION OF THERAPY^S^0:No (0-1 cycle);1:Yes (2 or more cycles);7:No therapy planned, not applicable;8:Unknown if therapy completed;9:Unknown if therapy given;^COL2;44^Q"
^DD(165.5,795,21,0)="^^4^4^2970221^^"
^DD(165.5,795,21,1,0)="Record the appropriate code.  If one or less than one cycle completed,"
^DD(165.5,795,21,2,0)="record 0.  If two or more cycles completed, record 1.  If there was no"
^DD(165.5,795,21,3,0)="adjuvant therapy planned, record 7.  If therapy was given, but unknown"
^DD(165.5,795,21,4,0)="if completed, record 8.  If unknown if therapy given, record 9."
^DD(165.5,795,"DT")="2970221"
^DD(165.5,796,0)="NUTRITIONAL CONSULTATION^S^0:No;1:Yes;9:Unknown;^COL2;45^Q"
^DD(165.5,796,21,0)="^^2^2^2970221^^"
^DD(165.5,796,21,1,0)="Record whether the other referral, nutritional consultation was"
^DD(165.5,796,21,2,0)="made.  If unknown, record 9."
^DD(165.5,796,"DT")="2970221"
^DD(165.5,797,0)="OCCUPATIONAL THERAPY^S^0:No;1:Yes;9:Unknown;^COL2;46^Q"
^DD(165.5,797,21,0)="^^2^2^2970221^^"
^DD(165.5,797,21,1,0)="Record whether the other referral, occupational therapy was"
^DD(165.5,797,21,2,0)="made.  If unknown, record 9."
^DD(165.5,797,"DT")="2970221"
^DD(165.5,798,0)="OSTOMY CONSULTATION^S^0:No;1:Yes;9:Unknown;^COL2;47^Q"
^DD(165.5,798,21,0)="^^2^2^2970221^^"
^DD(165.5,798,21,1,0)="Record whether the other referral, ostomy consultation was"
^DD(165.5,798,21,2,0)="made.  If unknown, record 9."
^DD(165.5,798,"DT")="2970221"
^DD(165.5,799,0)="PSYCHOSOCIAL^S^0:No;1:Yes;9:Unknown;^COL2;48^Q"
^DD(165.5,799,21,0)="^^2^2^2970221^^"
^DD(165.5,799,21,1,0)="Record whether the other referral, psychosocial was"
^DD(165.5,799,21,2,0)="made.  If unknown, record 9."
^DD(165.5,799,"DT")="2970221"
^DD(165.5,800,0)="HISTORY OF LEUKEMIA (FAM)^S^0:No;1:Yes;9:Unknown;^NHL1;1^Q"
^DD(165.5,800,11,0)="^.2LAP"
^DD(165.5,800,21,0)="^^3^3^2970225^^"
^DD(165.5,800,21,1,0)="Record any familial history of leukemia documented in the"
^DD(165.5,800,21,2,0)="medical record.  If the record does not mention familial history"
^DD(165.5,800,21,3,0)="of cancer, code 9 (unknown)."
^DD(165.5,800,"DT")="2970225"
^DD(165.5,801,0)="HISTORY OF NON-HODGKIN'S LYMPH^S^0:No;1:Yes;9:Unknown;^NHL1;2^Q"
^DD(165.5,801,21,0)="^^3^3^2970225^^"
^DD(165.5,801,21,1,0)="Record any familial history of Non-Hodgkin's lymphoma documented in"
^DD(165.5,801,21,2,0)="the medical record.  If the record does not mention familial history"
^DD(165.5,801,21,3,0)="of cancer, code 9 (unknown)."
^DD(165.5,801,"DT")="2970225"
^DD(165.5,802,0)="HISTORY OF HODGKIN'S LYMPHOMA^S^0:No;1:Yes;9:Unknown;^NHL1;3^Q"
^DD(165.5,802,21,0)="^^3^3^2970225^^"
^DD(165.5,802,21,1,0)="Record any familial history of Hodgkin's lymphoma documented in the"
^DD(165.5,802,21,2,0)="medical record.  If the record does not mention familial history"
^DD(165.5,802,21,3,0)="of cancer, code 9 (unknown)."
^DD(165.5,802,"DT")="2970225"
^DD(165.5,803,0)="1ST PRIMARY SITE^P164'O^ONCO(164,^NHL1;4^Q"
^DD(165.5,803,2)="S Y(0)=Y S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,803,2.1)="S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,803,9)="^"
^DD(165.5,803,9.01)=""
^DD(165.5,803,9.1)="D CHFPS^ONCOMNI"
^DD(165.5,803,21,0)="^^3^3^2971007^^^"
^DD(165.5,803,21,1,0)="Record the ICD-O-2 code for the first site of any personal history of cancer"
^DD(165.5,803,21,2,0)="documented in the medical record.  If not applicable record 8's.  If record"
^DD(165.5,803,21,3,0)="does not mention personal history of any cancer, record 9's."
^DD(165.5,803,"DT")="2971007"
^DD(165.5,804,0)="1ST PRIMARY HISTOLOGY^P164.1'O^ONCO(164.1,^NHL1;5^Q"
^DD(165.5,804,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.1,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164.1,+Y,0)),U,1)"
^DD(165.5,804,2.1)="S Y=$P($G(^ONCO(164.1,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164.1,+Y,0)),U,1)"
^DD(165.5,804,9)="^"
^DD(165.5,804,9.01)=""
^DD(165.5,804,9.1)="D CHFPH^ONCOMNI"
^DD(165.5,804,21,0)="^^4^4^2971007^^"
^DD(165.5,804,21,1,0)="Record the 5-digit histology (including behavior) code for the first"
^DD(165.5,804,21,2,0)="histology of any personal history of cancer documented in the medical record."
^DD(165.5,804,21,3,0)="If not applicable record 8's.  If record does not mention personal history"
^DD(165.5,804,21,4,0)="of any cancer, record 9's."
^DD(165.5,804,"DT")="2971007"
^DD(165.5,805,0)="2ND PRIMARY SITE^P164'O^ONCO(164,^NHL1;6^Q"
^DD(165.5,805,2)="S Y(0)=Y S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,805,2.1)="S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,805,9)="^"
^DD(165.5,805,9.01)=""
^DD(165.5,805,9.1)="D CHSPS^ONCOMNI"
^DD(165.5,805,21,0)="^^3^3^2971007^"
^DD(165.5,805,21,1,0)="Record the ICD-O-2 code for the second site of any personal history of cancer"
^DD(165.5,805,21,2,0)="documented in the medical record.  If not applicable record 8's.  If record"
^DD(165.5,805,21,3,0)="does not mention personal history of any cancer, record 9's."
^DD(165.5,805,"DT")="2971007"
^DD(165.5,806,0)="2ND PRIMARY HISTOLOGY^P164.1'O^ONCO(164.1,^NHL1;7^Q"
^DD(165.5,806,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.1,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164.1,+Y,0)),U,1)"
^DD(165.5,806,2.1)="S Y=$P($G(^ONCO(164.1,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164.1,+Y,0)),U,1)"
^DD(165.5,806,9)="^"
^DD(165.5,806,9.01)=""
^DD(165.5,806,9.1)="D CHSPH^ONCOMNI"
^DD(165.5,806,21,0)="^^4^4^2971007^"
^DD(165.5,806,21,1,0)="Record the 5-digit histology (including behavior) code for the second"
^DD(165.5,806,21,2,0)="histology of any personal history of cancer documented in the medical record."
^DD(165.5,806,21,3,0)="If not applicable record 8's.  If record does not mention personal history"
^DD(165.5,806,21,4,0)="of any cancer, record 9's."
^DD(165.5,806,"DT")="2971007"
^DD(165.5,807,0)="ORGAN TRANSPLANT^S^0:No;1:Yes;9:Unknown;^NHL1;8^Q"
^DD(165.5,807,21,0)="^^2^2^2970306^^^"
^DD(165.5,807,21,1,0)="Record the appropriate code for whether an organ transplant was"
^DD(165.5,807,21,2,0)="a pre-existing condition.  If unknown, code 9."
^DD(165.5,807,"DT")="2970227"
^DD(165.5,808,0)="HIV POSITIVE^S^0:No;1:Yes;9:Unknown;^NHL1;9^Q"
^DD(165.5,808,21,0)="^^2^2^2970311^^^^"
^DD(165.5,808,21,1,0)="Record the appropriate code for whether being HIV positive"
^DD(165.5,808,21,2,0)="was a pre-existing condition.  If unknown, code 9."
^DD(165.5,808,"DT")="2970227"
^DD(165.5,809,0)="CROHN'S DISEASE^S^0:No;1:Yes;9:Unknown/not documented;^NHL1;10^Q"
^DD(165.5,809,21,0)="^.001^2^2^3050524^^^^"
^DD(165.5,809,21,1,0)=""
^DD(165.5,809,21,2,0)="Record whether Crohn's disease was a pre-existing condition."
^DD(165.5,809,"DT")="3050524"
^DD(165.5,810,0)="HASHIMOTO'S THYROIDITIS^S^0:No;1:Yes;9:Unknown;^NHL1;11^Q"
^DD(165.5,810,21,0)="^^2^2^2970306^^"
^DD(165.5,810,21,1,0)="Record the appropriate code for whether Hashimoto's thyroiditis was"
^DD(165.5,810,21,2,0)="a pre-existing condition.  If unknown, code 9."
^DD(165.5,810,"DT")="2970306"
^DD(165.5,811,0)="SYSTEMIC LUPUS ERYTHEMATOSUS^S^0:No;1:Yes;9:Unknown;^NHL1;12^Q"
^DD(165.5,811,21,0)="^^2^2^2970306^^^^"
^DD(165.5,811,21,1,0)="Record the appropriate code for whether systemic lupus erythematosus"
^DD(165.5,811,21,2,0)="was a pre-existing condition.  If unknown, code 9."
^DD(165.5,811,"DT")="2970306"
^DD(165.5,812,0)="RHEUMATOID ARTHRITIS^S^0:No;1:Yes;9:Unknown;^NHL1;13^Q"
^DD(165.5,812,21,0)="^^3^3^2970306^^"
^DD(165.5,812,21,1,0)="Record the appropriate code for whether rheumatoid arthritis,"
^DD(165.5,812,21,2,0)="including Sjogren's syndrome was a pre-existing condition.  If"
^DD(165.5,812,21,3,0)="unknown, code 9."
^DD(165.5,812,"DT")="2970306"
^DD(165.5,813,0)="PNEUMOCYSTIS CARINII^S^0:No;1:Yes;9:Unknown;^NHL1;14^Q"
^DD(165.5,813,21,0)="^^2^2^2970306^^"
^DD(165.5,813,21,1,0)="Record the appropriate code for whether pneumocystis carinii was"
^DD(165.5,813,21,2,0)="a pre-existing condition.  If unknown, code 9."
^DD(165.5,813,"DT")="2970306"
^DD(165.5,814,0)="CMV INFECTION^S^0:No;1:Yes;9:Unknown;^NHL1;15^Q"
^DD(165.5,814,21,0)="^^2^2^2970306^^"
^DD(165.5,814,21,1,0)="Record the appropriate code for whether CMV infection was"
^DD(165.5,814,21,2,0)="a pre-existing condition.  If unknown, code 9."
^DD(165.5,814,"DT")="2970306"
^DD(165.5,815,0)="TUBERCULOSIS^S^0:No;1:Yes;9:Unknown;^NHL1;16^Q"
^DD(165.5,815,21,0)="^^2^2^2970306^^"
^DD(165.5,815,21,1,0)="Record the appropriate code for whether tuberculosis was"
^DD(165.5,815,21,2,0)="a pre-existing condition.  If unknown, code 9."
^DD(165.5,815,"DT")="2970306"
^DD(165.5,816,0)="MYCOBACTERIUM AVIUM^S^0:No;1:Yes;9:Unknown;^NHL1;17^Q"
^DD(165.5,816,21,0)="^^2^2^2970306^^"
^DD(165.5,816,21,1,0)="Record the appropriate code for whether mycobacterium avium was"
^DD(165.5,816,21,2,0)="a pre-existing condition.  If unknown, code 9."
^DD(165.5,816,"DT")="2970306"
^DD(165.5,817,0)="OTHER PARASITIC INFECTIONS^S^0:No;1:Yes;9:Unknown;^NHL1;18^Q"
^DD(165.5,817,21,0)="^^2^2^2970306^^"
^DD(165.5,817,21,1,0)="Record the appropriate code for whether there were any other parasitic"
^DD(165.5,817,21,2,0)="infections that were pre-existing conditions.  If unknown, code 9."
^DD(165.5,817,"DT")="2970306"
^DD(165.5,818,0)="OTHER CONGENITAL DISEASES^S^0:No;1:Yes;9:Unknown;^NHL1;19^Q"
^DD(165.5,818,21,0)="^^2^2^2970306^^"
^DD(165.5,818,21,1,0)="Record the appropriate code for whether there were any other congenital"
^DD(165.5,818,21,2,0)="diseases that were pre-existing conditions.  If unknown, code 9."
^DD(165.5,818,"DT")="2970306"
^DD(165.5,819,0)="OPPORTUNISTIC DISEASE^S^0:No;1:Yes;9:Unknown;^NHL1;20^Q"
^DD(165.5,819,21,0)="^^3^3^2970311^^^^"
^DD(165.5,819,21,1,0)="Record the appropriate code for whether opportunistic disease"
^DD(165.5,819,21,2,0)="was a pre-existing condition, ONLY IF IT WAS WITHIN THE LAST 2 YEARS."
^DD(165.5,819,21,3,0)="If unknown, code 9."
^DD(165.5,819,"DT")="2970306"
^DD(165.5,820,0)="PREVIOUS CHEMOTHERAPY^S^0:No;1:Yes;9:Unknown;^NHL1;21^Q"
^DD(165.5,820,21,0)="^^2^2^2970311^^"
^DD(165.5,820,21,1,0)="Record the appropriate code for whether the patient received"
^DD(165.5,820,21,2,0)="any previous chemotherapy.  If unknown, code 9."
^DD(165.5,820,"DT")="2970311"
^DD(165.5,821,0)="PREVIOUS RADIATION THERAPY^S^0:No;1:Yes;9:Unknown;^NHL1;22^Q"
^DD(165.5,821,21,0)="^^2^2^2970311^^"
^DD(165.5,821,21,1,0)="Record the appropriate code for whether the patient received"
^DD(165.5,821,21,2,0)="any previous radiation therapy.  If unknown, code 9."
^DD(165.5,821,"DT")="2970311"
^DD(165.5,822,0)="AIDS RISK CATEGORY^NJ1,0OX^^NHL1;23^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S Y=X D ARCHP^ONCOMNI W ""  "",Y K Y"
^DD(165.5,822,2)="S Y(0)=Y D ARCHP^ONCOMNI"
^DD(165.5,822,2.1)="D ARCHP^ONCOMNI"
^DD(165.5,822,3)=""
^DD(165.5,822,4)="D ARCHHLP^ONCOMNI"
^DD(165.5,822,21,0)="^^5^5^2970423^^^^"
^DD(165.5,822,21,1,0)="Record the appropriate code.  The risk categories listed (1-8) only"
^DD(165.5,822,21,2,0)="apply to those patients who are HIV positive.  Record 0 if the patient"
^DD(165.5,822,21,3,0)="is not HIV positive.  Record 7 if the patient has more than one risk"
^DD(165.5,822,21,4,0)="category (2-6).  Record 8 if the patient's risk category is other or"
^DD(165.5,822,21,5,0)="unknown.  Record 9 if it is unknown if the patient is HIV positive."
^DD(165.5,822,"DT")="2970423"
^DD(165.5,823,0)="CT SCAN OF BRAIN^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;24^Q"
^DD(165.5,823,21,0)="^^3^3^2970319^^^^"
^DD(165.5,823,21,1,0)="Record the results of the CT SCAN OF BRAIN if the test was performed"
^DD(165.5,823,21,2,0)="to evaluate this non-Hodgkin's Lymphoma.  If the test was not done,"
^DD(165.5,823,21,3,0)="code 0.  Do not leave blank."
^DD(165.5,823,"DT")="2970319"
^DD(165.5,824,0)="CT SCAN OF ABDOMEN/PELVIS^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;25^Q"
^DD(165.5,824,21,0)="^^3^3^2970319^^"
^DD(165.5,824,21,1,0)="Record the results of the CT SCAN OF ABDOMEN/PELVIS if the test"
^DD(165.5,824,21,2,0)="was performed to evaluate this non-Hodgkin's Lymphoma.  If the"
^DD(165.5,824,21,3,0)="test was not done, code 0.  Do not leave blank."
^DD(165.5,824,"DT")="2970319"
^DD(165.5,825,0)="MRI OF BRAIN^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;26^Q"
^DD(165.5,825,21,0)="^^3^3^2970319^^^"
^DD(165.5,825,21,1,0)="Record the results of the MRI OF BRAIN if the test was performed"
^DD(165.5,825,21,2,0)="to evaluate this non-Hodgkin's Lymphoma.  If the test was not done,"
^DD(165.5,825,21,3,0)="code 0.  Do not leave blank."
^DD(165.5,825,"DT")="2970319"
^DD(165.5,826,0)="MRI OF CHEST^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;27^Q"
^DD(165.5,826,21,0)="^^3^3^2970319^^"
^DD(165.5,826,21,1,0)="Record the results of the MRI OF CHEST if the test was performed"
^DD(165.5,826,21,2,0)="to evaluate this non-Hodgkin's Lymphoma.  If the test was not done,"
^DD(165.5,826,21,3,0)="code 0.  Do not leave blank."
^DD(165.5,826,"DT")="2970319"
^DD(165.5,827,0)="MRI OF ABDOMEN/PELVIS^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;28^Q"
^DD(165.5,827,21,0)="^^3^3^2970319^^^^"
^DD(165.5,827,21,1,0)="Record the results of the MRI OF ABDOMEN/PELVIS if the test"
^DD(165.5,827,21,2,0)="was performed to evaluate this non-Hodgkin's Lymphoma.  If the"
^DD(165.5,827,21,3,0)="test was not done, code 0.  Do not leave blank."
^DD(165.5,827,"DT")="2970319"
^DD(165.5,828,0)="GALLIUM SCAN^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;29^Q"
^DD(165.5,828,21,0)="^^3^3^2970319^^"
^DD(165.5,828,21,1,0)="Record the results of the GALLIUM SCAN if the test was performed"
^DD(165.5,828,21,2,0)="to evaluate this non-Hodgkin's Lymphoma.  If the test was not done,"
^DD(165.5,828,21,3,0)="code 0.  Do not leave blank."
^DD(165.5,828,"DT")="2970319"
^DD(165.5,829,0)="PET SCAN^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;30^Q"
^DD(165.5,829,21,0)="^^3^3^2970319^^"
^DD(165.5,829,21,1,0)="Record the results of the PET SCAN if the test was performed"
^DD(165.5,829,21,2,0)="to evaluate this non-Hodgkin's Lymphoma.  If the test was not done,"
^DD(165.5,829,21,3,0)="code 0.  Do not leave blank."
^DD(165.5,829,"DT")="2970319"
^DD(165.5,830,0)="LUMBAR PUNCTURE^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;31^Q"
^DD(165.5,830,21,0)="^^3^3^2970320^^"
^DD(165.5,830,21,1,0)="Record the results of the LUMBAR PUNCTURE if the test was performed"
^DD(165.5,830,21,2,0)="to evaluate this non-Hodgkin's Lymphoma.  If the test was not done,"
^DD(165.5,830,21,3,0)="code 0.  Do not leave blank."
^DD(165.5,830,"DT")="2970319"
^DD(165.5,831,0)="HEMOGLOBIN/HEMATOCRIT^S^0:Test not done;1:Normal;2:Higher than normal;3:Lower than normal;8:Test done, results unknown;9:Unknown if test done;^NHL1;32^Q"
^DD(165.5,831,21,0)="^^3^3^2970320^^"
^DD(165.5,831,21,1,0)="Record the appropriate code for the results of the"
^DD(165.5,831,21,2,0)="hemoglobin/hematocrit laboratory test, if it was performed."
^DD(165.5,831,21,3,0)="If the test was not performed, record a '0'."
^DD(165.5,831,"DT")="2970320"
^DD(165.5,832,0)="WHITE COUNT^S^0:Test not done;1:Normal;2:Higher than normal;3:Lower than normal;8:Test done, results unknown;9:Unknown if test done;^NHL1;33^Q"
^DD(165.5,832,21,0)="^^3^3^2970320^^"
^DD(165.5,832,21,1,0)="Record the appropriate code for the results of the"
^DD(165.5,832,21,2,0)="white count laboratory test, if it was performed."
^DD(165.5,832,21,3,0)="If the test was not performed, record a '0'."
^DD(165.5,832,"DT")="2970320"
^DD(165.5,833,0)="PLATELET COUNT^S^0:Test not done;1:Normal;2:Higher than normal;3:Lower than normal;8:Test done, results unknown;9:Unknown if test done;^NHL1;34^Q"
^DD(165.5,833,21,0)="^^3^3^2970320^^"
^DD(165.5,833,21,1,0)="Record the appropriate code for the results of the"
^DD(165.5,833,21,2,0)="platelet count laboratory test, if it was performed."
^DD(165.5,833,21,3,0)="If the test was not performed, record a '0'."
^DD(165.5,833,"DT")="2970320"
^DD(165.5,834,0)="LACTIC DEHYDROGENASE (LDH)^S^0:Test not done;1:Normal;2:Higher than normal;3:Lower than normal;8:Test done, results unknown;9:Unknown if test done;^NHL1;35^Q"
^DD(165.5,834,21,0)="^^3^3^2970320^^"
^DD(165.5,834,21,1,0)="Record the appropriate code for the results of the"
^DD(165.5,834,21,2,0)="lactic dehydrogenase (LDH) laboratory test, if it was performed."
^DD(165.5,834,21,3,0)="If the test was not performed, record a '0'."
^DD(165.5,834,"DT")="2970320"
^DD(165.5,835,0)="LIVER FUNCTION STUDIES (NHL)^S^0:Test not done;1:Normal;2:Higher than normal;3:Lower than normal;8:Test done, results unknown;9:Unknown if test done;^NHL1;36^Q"
^DD(165.5,835,21,0)="^^3^3^2970320^^"
^DD(165.5,835,21,1,0)="Record the appropriate code for the results of the"
^DD(165.5,835,21,2,0)="liver function studies laboratory test, if it was performed."
^DD(165.5,835,21,3,0)="If the test was not performed, record a '0'."
^DD(165.5,835,"DT")="2970320"
^DD(165.5,836,0)="TOTAL PROTEIN/ALBUMIN^S^0:Test not done;1:Normal;2:Higher than normal;3:Lower than normal;8:Test done, results unknown;9:Unknown if test done;^NHL1;37^Q"
^DD(165.5,836,21,0)="^^3^3^2970320^^"
^DD(165.5,836,21,1,0)="Record the appropriate code for the results of the"
^DD(165.5,836,21,2,0)="total protein/albumin laboratory test, if it was performed."
^DD(165.5,836,21,3,0)="If the test was not performed, record a '0'."
^DD(165.5,836,"DT")="2970320"
^DD(165.5,837,0)="GENE REARRANGEMENTS^S^0:Not done;1:Done;9:Unknown if test done;^NHL1;38^Q"
^DD(165.5,837,21,0)="^^2^2^2970320^"
^DD(165.5,837,21,1,0)="Record whether the 'Gene rearrangements' test was performed to evaluate"
^DD(165.5,837,21,2,0)="this primary.  If this test was not done, record a '0'."
^DD(165.5,837,"DT")="2970320"
^DD(165.5,838,0)="REVIEW OF PATHOLOGY/OTHER INST^S^0:No;1:Yes;9:Unknown if done;^NHL1;39^Q"
^DD(165.5,838,21,0)="^^2^2^2970528^^"
^DD(165.5,838,21,1,0)="Record the appropriate code for whether there was a review of"
^DD(165.5,838,21,2,0)="pathology at another institution by another pathologist."
^DD(165.5,838,"DT")="2970528"
^DD(165.5,839,0)="LYMPH NODE BIOPSY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;40^Q"
^DD(165.5,839,21,0)="^^2^2^2970320^^"
^DD(165.5,839,21,1,0)="Record the appropriate code for lymph node biopsy, if it was"
^DD(165.5,839,21,2,0)="performed.  If this biopsy was not performed record a '0'."
^DD(165.5,839,"DT")="2970320"
^DD(165.5,840,0)="BONE MARROW BIOPSY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;41^Q"
^DD(165.5,840,21,0)="^^2^2^2970320^^"
^DD(165.5,840,21,1,0)="Record the appropriate code for bone marrow biopsy, if it was"
^DD(165.5,840,21,2,0)="performed.  If this biopsy was not performed record a '0'."
^DD(165.5,840,"DT")="2970320"
^DD(165.5,841,0)="CSF CYTOLOGY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;42^Q"
^DD(165.5,841,21,0)="^^2^2^2970320^^"
^DD(165.5,841,21,1,0)="Record the appropriate code for CSF cytology biopsy, if it was"
^DD(165.5,841,21,2,0)="performed.  If this biopsy was not performed record a '0'."
^DD(165.5,841,"DT")="2970320"
^DD(165.5,842,0)="OTHER SITE BIOPSY^S^0:Test not done;1:Positive for cancer;2:Negative for cancer;3:Equivocal, suggestive of cancer;7:Test attempted but not completed;8:Test done, results unknown;9:Unknown if test done;^NHL1;43^Q"
^DD(165.5,842,21,0)="^^2^2^2970320^^"
^DD(165.5,842,21,1,0)="Record the appropriate code for other site biopsy, if it was"
^DD(165.5,842,21,2,0)="performed.  If this biopsy was not performed record a '0'."
^DD(165.5,842,"DT")="2970320"
^DD(165.5,843,0)="SYSTEMIC SYMPTOMS^S^1:A (no symptoms);2:B (defined systemic symptoms);9:Unknown whether A or B;^NHL1;44^Q"
^DD(165.5,843,21,0)="^^6^6^2970410^^^"
^DD(165.5,843,21,1,0)="Record whether the patient was category A (without defined systemic"
^DD(165.5,843,21,2,0)="symptoms) or B (with defined systemic symptoms).  These symptoms"
^DD(165.5,843,21,3,0)="include unexplained weight loss of at least 10% within 6 months prior"
^DD(165.5,843,21,4,0)="to diagnosis, unexplained fever above 38 C, and drenching night sweats."
^DD(165.5,843,21,5,0)="Neither pruritus alone or short febrile illness associated with"
^DD(165.5,843,21,6,0)="infection qualify within these systemic symptoms."
^DD(165.5,843,"DT")="2970320"
^DD(165.5,844,0)="CD4 COUNT^S^0:Test not done;1:< 1,000 copies/ml;2:1,000 to 9,999 copies/ml;3:> or = to 10,000 copies/ml;8:Test done, results unknown;9:Unknown if test done;^NHL1;45^Q"
^DD(165.5,844,21,0)="^^3^3^2970415^^^"
^DD(165.5,844,21,1,0)="Record the appropriate code for CD4 count, a diagnostic test"
^DD(165.5,844,21,2,0)="specifically related to HIV disease.  If the test was not performed,"
^DD(165.5,844,21,3,0)="record a '0'."
^DD(165.5,844,"DT")="2970415"
^DD(165.5,845,0)="HIV VIRAL LOADS^S^0:Test not done;1:< 10,000 copies/ml;2:> or = to 10,000 copies/ml;8:Test done, results unknown;9:Unknown if test done;^NHL1;46^Q"
^DD(165.5,845,21,0)="^^3^3^2970415^^^"
^DD(165.5,845,21,1,0)="Record the appropriate code for HIV viral loads, a diagnostic test"
^DD(165.5,845,21,2,0)="specifically related to HIV disease.  If the test was not performed,"
^DD(165.5,845,21,3,0)="record a '0'."
^DD(165.5,845,"DT")="2970415"
^DD(165.5,846,0)="SPECIFIC HISTOLOGIC INFO^S^1:Mantle cell lymphoma;2:MALT lymphoma;3:Peripheral T-cell lymphoma;4:Anaplastic, large cell (Ki-1) lymphoma;8:NA, no additional histologies noted;9:Unknown if any histologies noted;^NHL2;1^Q"
^DD(165.5,846,21,0)="^^6^6^2970415^^^"
^DD(165.5,846,21,1,0)="This field is used to record any additional specific histologic data."
^DD(165.5,846,21,2,0)="For this field record the appropriate code (1-4) if any of the specified"
^DD(165.5,846,21,3,0)="histologies were noted.  (Please note that 1-Mantle cell lymphoma is not the"
^DD(165.5,846,21,4,0)="same histology as mantle zone lymphoma which is listed in the ICD-0-2 code"
^DD(165.5,846,21,5,0)="book as 9673).  Record '8' for not applicable, if none of these listed were"
^DD(165.5,846,21,6,0)="noted.  Record '9' if unknown if any of these histologies were noted."
^DD(165.5,846,"DT")="2970415"
^DD(165.5,847,0)="CELL TYPE OF LYMPHOMA^S^1:T cell;2:B cell;3:Null cell;4:N X cell (natural killer cell);9:Cell type unknown;^NHL2;2^Q"
^DD(165.5,847,21,0)="^^2^2^2970321^^"
^DD(165.5,847,21,1,0)="Record the appropriate code for the cell type of the lymphoma."
^DD(165.5,847,21,2,0)="If the cell type is unknown, record a '9'."
^DD(165.5,847,"DT")="2970321"
^DD(165.5,848,0)="PATIENT STATUS AT DIAGNOSIS^S^0:Bedridden < or = to 50%;1:Bedridden > 50%;9:Unknown;^NHL2;3^Q"
^DD(165.5,848,21,0)="^^2^2^2970415^^^"
^DD(165.5,848,21,1,0)="Record the appropriate code for the patient's status at diagnosis."
^DD(165.5,848,21,2,0)="If completely ambulatory, record a '0'.  If unknown, record a '9'."
^DD(165.5,848,"DT")="2970415"
^DD(165.5,849,0)="TYPE OF STAGING SYSTEM (PED)^P164.6'O^ONCO(164.6,^NHL2;4^Q"
^DD(165.5,849,2)="S Y(0)=Y S Y=$S(Y'="""":$P($G(^ONCO(164.6,Y,0)),""^"",2),1:"""")"
^DD(165.5,849,2.1)="S Y=$S(Y'="""":$P($G(^ONCO(164.6,Y,0)),""^"",2),1:"""")"
^DD(165.5,849,21,0)="^^2^2^2970425^^^^"
^DD(165.5,849,21,1,0)="If recording a pediatric case, enter the type of staging system used to"
^DD(165.5,849,21,2,0)="stage this patient.  If not applicable, code '88'.  If unknown, code '99'."
^DD(165.5,849,"DT")="2970429"
^DD(165.5,850,0)="PEDIATRIC STAGE^FOX^^NHL2;5^K:$L(X)>2!($L(X)<1) X I $D(X) S STGIND=""X"" D IN^ONCOTNS"
^DD(165.5,850,2)="S Y(0)=Y S X="""" D OT^ONCOTNS"
^DD(165.5,850,2.1)="S X="""" D OT^ONCOTNS"
^DD(165.5,850,3)="Answer with the appropriate stage from the AJCC Staging Manual."
^DD(165.5,850,4)="S STGIND=""X"" D HP^ONCOTNS"
^DD(165.5,850,21,0)="^^3^3^2970501^^^^"
^DD(165.5,850,21,1,0)="Enter the pediatric stage as specified in the pediatric staging system"
^DD(165.5,850,21,2,0)="selected.  If not applicable, code '88'.  If the pediatric stage is"
^DD(165.5,850,21,3,0)="unknown, code '99'."
^DD(165.5,850,"DT")="2970501"
^DD(165.5,851,0)="STAGED BY (PEDIATRIC STAGE)^S^0:Not staged;1:Managing physician;2:Pathologist;3:Other physician;4:Any combination of 1,2 or 3;5:Registrar;6:Any combination of 5 w/ 1,2 or 3;7:Other;8:Staged, individual not specified;9:Unknown if staged;^NHL2;6^Q"
^DD(165.5,851,21,0)="^^2^2^2970418^^^"
^DD(165.5,851,21,1,0)="Record the appropriate code for the individual who staged this"
^DD(165.5,851,21,2,0)="pediatric case.  If the patient was not staged, code '0'."
^DD(165.5,851,"DT")="2970418"
^DD(165.5,852,0)="EXTRANODAL SITE 1^FXO^^NHL2;7^K:$L(X)>20!($L(X)<1) X I $D(X) D EXNSIT^ONCOMNI"
^DD(165.5,852,2)="S Y(0)=Y D EXNSOT^ONCOMNI"
^DD(165.5,852,2.1)="D EXNSOT^ONCOMNI"
^DD(165.5,852,3)=""
^DD(165.5,852,4)="D XHP^ONCOMNI"
^DD(165.5,852,21,0)="^^3^3^2970416^^"
^DD(165.5,852,21,1,0)="Provide ICD-O-2 site codes for the 1st clinically and/or pathologically"
^DD(165.5,852,21,2,0)="involved extranodal site (in addition to the primary site).  If no 1st"
^DD(165.5,852,21,3,0)="extranodal site, code 8's.  If unknown, code 9's."
^DD(165.5,852,"DT")="2970326"
^DD(165.5,853,0)="EXTRANODAL SITE 2^FXO^^NHL2;8^K:$L(X)>20!($L(X)<1) X I $D(X) D EXNSIT^ONCOMNI"
^DD(165.5,853,2)="S Y(0)=Y D EXNSOT^ONCOMNI"
^DD(165.5,853,2.1)="D EXNSOT^ONCOMNI"
^DD(165.5,853,3)=""
^DD(165.5,853,4)="D XHP^ONCOMNI"
^DD(165.5,853,21,0)="^^3^3^2970416^^^"
^DD(165.5,853,21,1,0)="Provide ICD-O-2 site codes for the 2nd clinically and/or pathologically"
^DD(165.5,853,21,2,0)="involved extranodal site (in addition to the primary site).  If no 2nd"
^DD(165.5,853,21,3,0)="extranodal site, code 8's.  If unknown, code 9's."
^DD(165.5,853,"DT")="2970326"
^DD(165.5,854,0)="EXTRANODAL SITE 3^FXO^^NHL2;9^K:$L(X)>20!($L(X)<1) X I $D(X) D EXNSIT^ONCOMNI"
^DD(165.5,854,2)="S Y(0)=Y D EXNSOT^ONCOMNI"
^DD(165.5,854,2.1)="D EXNSOT^ONCOMNI"
^DD(165.5,854,3)=""
^DD(165.5,854,4)="D XHP^ONCOMNI"
^DD(165.5,854,21,0)="^^3^3^2970416^^^"
^DD(165.5,854,21,1,0)="Provide ICD-O-2 site codes for the 3rd clinically and/or pathologically"
^DD(165.5,854,21,2,0)="involved extranodal site (in addition to the primary site).  If no 3rd"
^DD(165.5,854,21,3,0)="extranodal site, code 8's.  If unknown, code 9's."
^DD(165.5,854,"DT")="2970326"
^DD(165.5,855,0)="EXTRANODAL SITE W/C-D SURGERY^FXO^^NHL2;10^K:$L(X)>20!($L(X)<1) X I $D(X) D EXNSIT^ONCOMNI"
^DD(165.5,855,2)="S Y(0)=Y D EXNSOT^ONCOMNI"
^DD(165.5,855,2.1)="D EXNSOT^ONCOMNI"
^DD(165.5,855,3)=""
^DD(165.5,855,4)="D XHP^ONCOMNI"
^DD(165.5,855,21,0)="^^4^4^2970326^^"
^DD(165.5,855,21,1,0)="Record the ICD-O-2 site code for any extranodal cancer-directed"
^DD(165.5,855,21,2,0)="surgery, other than the primary-site surgery.  If no additional"
^DD(165.5,855,21,3,0)="cancer-directed surgery to an extranodal site, code 8's.  If"
^DD(165.5,855,21,4,0)="unknown, code 9's."
^DD(165.5,855,"DT")="2970326"
^DD(165.5,856,0)="EXTRANODAL SITE SURGICAL PROC^NJ2,0XO^^NHL2;11^D ESSPIT^ONCODSR"
^DD(165.5,856,2)="S Y(0)=Y D ESSPOT^ONCODSR"
^DD(165.5,856,2.1)="D ESSPOT^ONCODSR"
^DD(165.5,856,3)="Type a Number between 0 and 90, 0 Decimal Digits"
^DD(165.5,856,4)="D ESSHP^ONCODSR"
^DD(165.5,856,21,0)="^^3^3^2970416^^^^"
^DD(165.5,856,21,1,0)="Record the appropriate cancer-directed surgical code for the"
^DD(165.5,856,21,2,0)="first extranodal site.  If there is no additional cancer-directed"
^DD(165.5,856,21,3,0)="surgical procedure to an extranodal site, code '00'."
^DD(165.5,856,"DT")="2970328"
^DD(165.5,857,0)="LYMPH NODES ABOVE DIAPHRAGM^S^1:Irradiated;2:Not irradiated;8:NA, unknown if radiation therapy given;9:Radiation given, unknown if irradiated;^NHL2;12^Q"
^DD(165.5,857,21,0)="^^3^3^2970418^^^^"
^DD(165.5,857,21,1,0)="Record the appropriate code for whether the lymph nodes above the"
^DD(165.5,857,21,2,0)="diaphragm were irradiated.  Please see the ""Lymph Node Location"
^DD(165.5,857,21,3,0)="Relative to Diaphragm"" handout for additional information."
^DD(165.5,857,"DT")="2970418"
^DD(165.5,858,0)="LYMPH NODES BELOW DIAPHRAGM^S^1:Irradiated;2:Not irradiated;8:NA, unknown if radiation therapy given;9:Radiation therapy administered, unknown if this field irradiated;^NHL2;13^Q"
^DD(165.5,858,21,0)="^^3^3^2970331^^^"
^DD(165.5,858,21,1,0)="Record the appropriate code for whether the lymph nodes below the"
^DD(165.5,858,21,2,0)="diaphragm were irradiated.  Please see the ""Lymph Node Location"
^DD(165.5,858,21,3,0)="Relative to Diaphragm"" handout for additional information."
^DD(165.5,858,"DT")="2970331"
^DD(165.5,859,0)="BRAIN^S^1:Irradiated;2:Not irradiated;8:NA, unknown if radiation therapy given;9:Radiation therapy administered, unknown if this field irradiated;^NHL2;14^Q"
^DD(165.5,859,21,0)="^^3^3^2970331^^^"
^DD(165.5,859,21,1,0)="Record the appropriate code for whether the brain was irradiated.  If"
^DD(165.5,859,21,2,0)="it is unknown if radiation therapy was given, code 8.  If radiation therapy"
^DD(165.5,859,21,3,0)="was administered but it is unknown if the brain was irradiated, code 9."
^DD(165.5,859,"DT")="2970328"
^DD(165.5,860,0)="OTHER EXTRANODAL SITE(S)^S^1:Irradiated;2:Not irradiated;8:NA, unknown if radiation therapy given;9:Radiation therapy administered, unknown if this field irradiated;^NHL2;15^Q"
^DD(165.5,860,21,0)="^^4^4^2970331^^^"
^DD(165.5,860,21,1,0)="Record the appropriate code for whether other extranodal site(s) were"
^DD(165.5,860,21,2,0)="irradiated.  If it is unknown if radiation therapy was given, code 8."
^DD(165.5,860,21,3,0)="If radiation therapy was administered but it is unknown if other"
^DD(165.5,860,21,4,0)="extranodal sites were irradiated, code 9."
^DD(165.5,860,"DT")="2970328"
^DD(165.5,861,0)="TOTAL BODY^S^1:Irradiated;2:Not irradiated;8:NA, unknown if radiation therapy given;9:Radiation therapy administered, unknown if this field irradiated;^NHL2;16^Q"
^DD(165.5,861,21,0)="^^3^3^2970331^^^"
^DD(165.5,861,21,1,0)="Record the appropriate code for whether the total body was irradiated.  If"
^DD(165.5,861,21,2,0)="it is unknown if radiation therapy was given, code 8.  If radiation therapy"
^DD(165.5,861,21,3,0)="was administered but it is unknown if the total body was irradiated, code 9."
^DD(165.5,861,"DT")="2970331"
^DD(165.5,862,0)="RADIATION/CHEMO SEQUENCE^NJ1,0XO^^NHL2;17^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X I $D(X) D RCSIT^ONCOMNI"
^DD(165.5,862,2)="S Y(0)=Y D RCSOT^ONCOMNI"
^DD(165.5,862,2.1)="D RCSOT^ONCOMNI"
^DD(165.5,862,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(165.5,862,4)="D RCSHP^ONCOMNI"
^DD(165.5,862,21,0)="^^1^1^2970328^^^^"
^DD(165.5,862,21,1,0)="Record the appropriate code for radiation/chemotherapy sequence."
^DD(165.5,862,"DT")="2970328"
^DD(165.5,863,0)="PROTOCOL^S^0:Not on protocol;1:Cancer cooperative group trial;2:Other investigative, IRB-approved protocol;9:Unknown if on protocol;^NHL2;18^Q"
^DD(165.5,863,21,0)="^^2^2^2970331^^"
^DD(165.5,863,21,1,0)="Record the appropriate code for systemic and/or intrathecal"
^DD(165.5,863,21,2,0)="chemotherapy.  If unknown, code 9."
^DD(165.5,863,"DT")="2970331"
^DD(165.5,864,0)="SYSTEMIC CHEMOTHERAPY^S^0:None;1:Systemic chemotherapy, NOS;2:Systemic chemotherapy, single agent;3:Systemic chemotherapy, multiple agents;9:Unknown if administered;^NHL2;19^Q"
^DD(165.5,864,21,0)="^^2^2^2970422^^^"
^DD(165.5,864,21,1,0)="Record the appropriate code for the administration of"
^DD(165.5,864,21,2,0)="systemic chemotherapy.  If unknown if administered, code 9."
^DD(165.5,864,"DT")="2970422"
^DD(165.5,865,0)="SYSTEMIC CHEMOTHERAPY DATE^DXO^^NHL2;20^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,865,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.5,865,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.5,865,3)="*** SYSTEMIC CHEMOTHERAPY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,865,21,0)="^^2^2^2970523^^^"
^DD(165.5,865,21,1,0)=""
^DD(165.5,865,21,2,0)="Record the first date on which systemic chemotherapy was administered."
^DD(165.5,865,"DT")="2970403"
^DD(165.5,866,0)="SYSTEMIC CHEMOTHERAPY CYCLES^NJ2,0O^^NHL2;21^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.5,866,2)="S Y(0)=Y S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""01"":Y_"" cycle"",Y=88:""NA"",Y=97:""Given but number unknown"",Y=98:""No termination date assigned at onset of chemotherapy"",Y=99:""Unknown if chemotherapy given"",1:Y_"" cycles"")"
^DD(165.5,866,2.1)="S:$L(Y)=1 Y=""0""_Y S Y=$S(Y=""01"":Y_"" cycle"",Y=88:""NA"",Y=97:""Given but number unknown"",Y=98:""No termination date assigned at onset of chemotherapy"",Y=99:""Unknown if chemotherapy given"",1:Y_"" cycles"")"
^DD(165.5,866,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.5,866,21,0)="^^5^5^2970422^^^^"
^DD(165.5,866,21,1,0)="Record the number of planned cycles of systemic chemotherapy."
^DD(165.5,866,21,2,0)="If not applicable (no systemic chemotherapy given), code 88.  If"
^DD(165.5,866,21,3,0)="given, but number unknown, code 97.  If no termination date assigned"
^DD(165.5,866,21,4,0)="at onset of systemic chemotherapy, code 98.  If unknown if systemic"
^DD(165.5,866,21,5,0)="chemotherapy was administered, code 99."
^DD(165.5,866,"DT")="2970422"
^DD(165.5,867,0)="CHLORAMBUCIL^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;22^Q"
^DD(165.5,867,21,0)="^^3^3^2970422^^^^"
^DD(165.5,867,21,1,0)="Record whether this chemotherapeutic agent was administered"
^DD(165.5,867,21,2,0)="during systemic chemotherapy.  If not applicable (chemotherapy"
^DD(165.5,867,21,3,0)="not given), code 8.  If unknown if given, code 9."
^DD(165.5,867,"DT")="2970422"
^DD(165.5,868,0)="CYCLOPHOSPHAMIDE (NHL)^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;23^Q"
^DD(165.5,868,21,0)="^^3^3^2970422^^^^"
^DD(165.5,868,21,1,0)="Record whether this chemotherapeutic agent was administered"
^DD(165.5,868,21,2,0)="during systemic chemotherapy.  If not applicable (chemotherapy"
^DD(165.5,868,21,3,0)="not given), code 8.  If unknown if given, code 9."
^DD(165.5,868,"DT")="2970422"
^DD(165.5,869,0)="DOXORUBICIN (NHL)^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;24^Q"
^DD(165.5,869,21,0)="^^3^3^2970422^^^^"
^DD(165.5,869,21,1,0)="Record whether this chemotherapeutic agent was administered"
^DD(165.5,869,21,2,0)="during systemic chemotherapy.  If not applicable (chemotherapy"
^DD(165.5,869,21,3,0)="not given), code 8.  If unknown if given, code 9."
^DD(165.5,869,"DT")="2970422"
^DD(165.5,870,0)="FLUDARABINE^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;25^Q"
^DD(165.5,870,21,0)="^^3^3^2970422^^^^"
^DD(165.5,870,21,1,0)="Record whether this chemotherapeutic agent was administered"
^DD(165.5,870,21,2,0)="during systemic chemotherapy.  If not applicable (chemotherapy"
^DD(165.5,870,21,3,0)="not given), code 8.  If unknown if given, code 9."
^DD(165.5,870,"DT")="2970422"
^DD(165.5,871,0)="CHOP^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;26^Q"
^DD(165.5,871,21,0)="^^3^3^2970422^^^^"
^DD(165.5,871,21,1,0)="Record whether the combination chemotherapy agents, CHOP were"
^DD(165.5,871,21,2,0)="administered during systemic chemotherapy.  If not applicable"
^DD(165.5,871,21,3,0)="(chemotherapy not given), code 8.  If unknown if given, code 9."
^DD(165.5,871,"DT")="2970422"
^DD(165.5,872,0)="CVP^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;27^Q"
^DD(165.5,872,21,0)="^^3^3^2970422^^^^"
^DD(165.5,872,21,1,0)="Record whether the combination chemotherapy agents, CVP were"
^DD(165.5,872,21,2,0)="administered during systemic chemotherapy.  If not applicable"
^DD(165.5,872,21,3,0)="(chemotherapy not given), code 8.  If unknown if given, code 9."
^DD(165.5,872,"DT")="2970422"
^DD(165.5,873,0)="COMLA^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;28^Q"
^DD(165.5,873,21,0)="^^3^3^2970422^^^^"
^DD(165.5,873,21,1,0)="Record whether the combination chemotherapy agents, COMLA were"
^DD(165.5,873,21,2,0)="administered during systemic chemotherapy.  If not applicable"
^DD(165.5,873,21,3,0)="(chemotherapy not given), code 8.  If unknown if given, code 9."
^DD(165.5,873,"DT")="2970422"
^DD(165.5,874,0)="MACOP-B^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;29^Q"
^DD(165.5,874,21,0)="^^3^3^2970422^^^^"
^DD(165.5,874,21,1,0)="Record whether the combination chemotherapy agents, MACOP-B were"
^DD(165.5,874,21,2,0)="administered during systemic chemotherapy.  If not applicable"
^DD(165.5,874,21,3,0)="(chemotherapy not given), code 8.  If unknown if given, code 9."
^DD(165.5,874,"DT")="2970422"
^DD(165.5,875,0)="M-BACOD^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;30^Q"
^DD(165.5,875,21,0)="^^3^3^2970422^^^^"
^DD(165.5,875,21,1,0)="Record whether the combination chemotherapy agents, M-BACOD were"
^DD(165.5,875,21,2,0)="administered during systemic chemotherapy.  If not applicable"
^DD(165.5,875,21,3,0)="(chemotherapy not given), code 8.  If unknown if given, code 9."
^DD(165.5,875,"DT")="2970422"
^DD(165.5,876,0)="PRO-MACE-Cyta BOM^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;31^Q"
^DD(165.5,876,21,0)="^^3^3^2970422^^^^"
^DD(165.5,876,21,1,0)="Record whether the combination chemotherapy agents, PRO-MACE-Cyta BOM"
^DD(165.5,876,21,2,0)="were administered during systemic chemotherapy.  If not applicable"
^DD(165.5,876,21,3,0)="(chemotherapy not given), code 8.  If unknown if given, code 9."
^DD(165.5,876,"DT")="2970422"
^DD(165.5,877,0)="OTHER SYSTEMIC CHEMO AGENTS^S^0:No;1:Yes;8:NA;9:Unknown if given;^NHL2;32^Q"
^DD(165.5,877,21,0)="^^3^3^2970422^^^^"
^DD(165.5,877,21,1,0)="Record whether any other combination chemotherapy agents were"
^DD(165.5,877,21,2,0)="administered during systemic chemotherapy.  If not applicable"
^DD(165.5,877,21,3,0)="(chemotherapy not given), code 8.  If unknown if given, code 9."
^DD(165.5,877,"DT")="2970422"
^DD(165.5,878,0)="HIGH DOSE SYSTEMIC CHEMO^S^0:No;1:Yes;9:Unknown if given;^NHL2;33^Q"
^DD(165.5,878,21,0)="^^2^2^2970401^^^"
^DD(165.5,878,21,1,0)="Record the appropriate code for whether high dose systemic chemotherapy"
^DD(165.5,878,21,2,0)="with stem cell rescue was done.  If unknown if done, code 9."
^DD(165.5,878,"DT")="2970401"
^DD(165.5,879,0)="INTRATHECAL CHEMOTHERAPY^S^0:None;1:Administered;9:Unknown if administered;^NHL2;34^Q"
^DD(165.5,879,21,0)="^^2^2^2970423^^^"
^DD(165.5,879,21,1,0)="Record the appropriate code for whether intrathecal chemotherapy"
^DD(165.5,879,21,2,0)="was administered.  If unknown if administered, code 9."
^DD(165.5,879,"DT")="2970423"
^DD(165.5,880,0)="PURPOSE OF INTRATHECAL CHEMO^S^1:Treatment;2:Prophylaxis;7:NA, not administered;8:Administered, purpose unknown;9:Unknown if administered;^NHL2;35^Q"
^DD(165.5,880,21,0)="^^4^4^2970423^^^"
^DD(165.5,880,21,1,0)="Record the appropriate code for the purpose of intrathecal chemotherapy."
^DD(165.5,880,21,2,0)="If not applicable, intrathecal chemetherapy not administered, code 7.  If"
^DD(165.5,880,21,3,0)="intrathecal chemotherapy administered, but purpose unknown, code 8.  If"
^DD(165.5,880,21,4,0)="unknown whether intrathecal chemotherapy administered, code 9."
^DD(165.5,880,"DT")="2970423"
^DD(165.5,881,0)="INTERFERON (NHL)^S^0:No;1:Yes;9:Unknown;^NHL2;36^Q"
^DD(165.5,881,21,0)="^^2^2^2990114^^^^"
^DD(165.5,881,21,1,0)="Record the appropriate code for whether this type of immunotherapy"
^DD(165.5,881,21,2,0)="was performed.  If unknown if performed, code 9."
^DD(165.5,881,"DT")="2990114"
^DD(165.5,882,0)="INTERLEUKIN-2 (IL-2) (NHL)^S^0:No;1:Yes;9:Unknown;^NHL2;37^Q"
^DD(165.5,882,21,0)="^^2^2^2990114^^^^"
^DD(165.5,882,21,1,0)="Record the appropriate code for whether this type of immunotherapy"
^DD(165.5,882,21,2,0)="was performed.  If unknown if performed, code 9."
^DD(165.5,882,"DT")="2990114"
^DD(165.5,883,0)="MONOCLONAL ANTIBODIES^S^0:No;1:Yes;9:Unknown;^NHL2;38^Q"
^DD(165.5,883,21,0)="^^2^2^2990114^^^^"
^DD(165.5,883,21,1,0)="Record the appropriate code for whether this type of immunotherapy"
^DD(165.5,883,21,2,0)="was performed.  If unknown if performed, code 9."
^DD(165.5,883,"DT")="2990114"
^DD(165.5,884,0)="VACCINE THERAPY^*S^0:No;1:Yes;8:NA;9:Unknown;^NHL2;39^Q"
^DD(165.5,884,12)="Code 8 should not be used for cases with a DATE DX < 1/1/1999"
^DD(165.5,884,12.1)="S DIC(""S"")=""I ($P($G(^ONCO(165.5,DA,0)),U,16)>2981231)!(Y'=8)"""
^DD(165.5,884,21,0)="^^2^2^2990114^^^^"
^DD(165.5,884,21,1,0)="Record the appropriate code for whether this type of immunotherapy"
^DD(165.5,884,21,2,0)="was performed.  If unknown if performed, code 9."
^DD(165.5,884,"DT")="2990114"
^DD(165.5,900,0)="DAUGHTER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;1^Q"
^DD(165.5,900,21,0)="^^4^4^2980515^^"
^DD(165.5,900,21,1,0)=""
^DD(165.5,900,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,900,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,900,21,4,0)=""
^DD(165.5,900,"DT")="2980515"
^DD(165.5,901,0)="MATERNAL AUNT (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;2^Q"
^DD(165.5,901,21,0)="^^4^4^2980515^"
^DD(165.5,901,21,1,0)=""
^DD(165.5,901,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,901,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,901,21,4,0)=""
^DD(165.5,901,"DT")="2980515"
^DD(165.5,902,0)="MATERNAL GRANDMOTHER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;3^Q"
^DD(165.5,902,21,0)="^^4^4^2980515^"
^DD(165.5,902,21,1,0)=""
^DD(165.5,902,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,902,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,902,21,4,0)=""
^DD(165.5,902,"DT")="2980515"
^DD(165.5,903,0)="MOTHER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;4^Q"
^DD(165.5,903,21,0)="^^4^4^2980515^"
^DD(165.5,903,21,1,0)=""
^DD(165.5,903,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,903,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,903,21,4,0)=""
^DD(165.5,903,"DT")="2980515"
^DD(165.5,904,0)="ONE SISTER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;5^Q"
^DD(165.5,904,21,0)="^^4^4^2980515^"
^DD(165.5,904,21,1,0)=""
^DD(165.5,904,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,904,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,904,21,4,0)=""
^DD(165.5,904,"DT")="2980515"
^DD(165.5,905,0)="MORE THAN ONE SISTER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;6^Q"
^DD(165.5,905,21,0)="^^4^4^2980515^"
^DD(165.5,905,21,1,0)=""
^DD(165.5,905,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,905,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,905,21,4,0)=""
^DD(165.5,905,"DT")="2980515"
^DD(165.5,906,0)="FATHER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;7^Q"
^DD(165.5,906,21,0)="^^4^4^2980515^"
^DD(165.5,906,21,1,0)=""
^DD(165.5,906,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,906,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,906,21,4,0)=""
^DD(165.5,906,"DT")="2980515"
^DD(165.5,907,0)="BROTHER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;8^Q"
^DD(165.5,907,21,0)="^^4^4^2980515^"
^DD(165.5,907,21,1,0)=""
^DD(165.5,907,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,907,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,907,21,4,0)=""
^DD(165.5,907,"DT")="2980515"
^DD(165.5,908,0)="FAM HISTORY BREAST CA (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;9^Q"
^DD(165.5,908,21,0)="^^4^4^2980515^^"
^DD(165.5,908,21,1,0)=""
^DD(165.5,908,21,2,0)="Record any familial history of breast cancer documented in the"
^DD(165.5,908,21,3,0)="medical record.  Record 8 if not applicable.  Record 9 if unknown."
^DD(165.5,908,21,4,0)=""
^DD(165.5,908,"DT")="2980515"
^DD(165.5,909,0)="HISTORY OF BREAST CA (BR98)^S^0:None;1:Invasive;2:Ductal carcinoma in situ;3:Lobular carcinoma in situ;4:Other histology;8:History of breast ca, type unknown;9:Unknown;^BRE1;10^Q"
^DD(165.5,909,21,0)="^^5^5^2980625^^^^"
^DD(165.5,909,21,1,0)=""
^DD(165.5,909,21,2,0)="For females, record any personal history of breast cancer not synchronous"
^DD(165.5,909,21,3,0)="(diagnosed 6 months or more prior) with the current breast cancer.  For"
^DD(165.5,909,21,4,0)="males, leave this field blank."
^DD(165.5,909,21,5,0)=""
^DD(165.5,909,"DT")="2980625"
^DD(165.5,910,0)="SYNCHRONOUS BREAST CA (BR98)^S^0:No;1:Ipsilateral;2:Contralateral;3:Both;8:Yes, but laterality unknown;9:Unknown;^BRE1;11^Q"
^DD(165.5,910,21,0)="^^4^4^2980612^^"
^DD(165.5,910,21,1,0)=""
^DD(165.5,910,21,2,0)="Record any synchronous breast cancer diagnosed up to but not"
^DD(165.5,910,21,3,0)="including 6 months prior to current breast cancer."
^DD(165.5,910,21,4,0)=""
^DD(165.5,910,"DT")="2980602"
^DD(165.5,911,0)="COLON (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;12^Q"
^DD(165.5,911,21,0)="^^5^5^2980604^"
^DD(165.5,911,21,1,0)=""
^DD(165.5,911,21,2,0)="Record whether the patient had colon cancer diagnosed either"
^DD(165.5,911,21,3,0)="prior to this breast cancer or at the same time that this"
^DD(165.5,911,21,4,0)="breast cancer was diagnosed."
^DD(165.5,911,21,5,0)=""
^DD(165.5,911,"DT")="2980604"
^DD(165.5,912,0)="OVARY (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;13^Q"
^DD(165.5,912,21,0)="^^5^5^2980605^^"
^DD(165.5,912,21,1,0)=""
^DD(165.5,912,21,2,0)="Record whether the patient had ovarian cancer diagnosed either prior"
^DD(165.5,912,21,3,0)="to this breast cancer or at the same time that this breast cancer was"
^DD(165.5,912,21,4,0)="diagnosed.  If the patient is a male leave this field blank."
^DD(165.5,912,21,5,0)=""
^DD(165.5,912,"DT")="2980604"
^DD(165.5,913,0)="UTERUS (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;14^Q"
^DD(165.5,913,21,0)="^^5^5^2980604^"
^DD(165.5,913,21,1,0)=""
^DD(165.5,913,21,2,0)="Record whether the patient had uterine cancer diagnosed either prior"
^DD(165.5,913,21,3,0)="to this breast cancer or at the same time that this breast cancer was"
^DD(165.5,913,21,4,0)="diagnosed.  If the patient is a male leave this field blank."
^DD(165.5,913,21,5,0)=""
^DD(165.5,913,"DT")="2980604"
^DD(165.5,914,0)="PROSTATE (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;15^Q"
^DD(165.5,914,21,0)="^^5^5^2980605^^"
^DD(165.5,914,21,1,0)=""
^DD(165.5,914,21,2,0)="Record whether the patient had prostate cancer diagnosed either prior"
^DD(165.5,914,21,3,0)="to this breast cancer or at the same time that this breast cancer was"
^DD(165.5,914,21,4,0)="diagnosed.  If the patient is a female leave this field blank."
^DD(165.5,914,21,5,0)=""
^DD(165.5,914,"DT")="2980604"
^DD(165.5,915,0)="OTHER (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;16^Q"
^DD(165.5,915,21,0)="^^5^5^2980605^^"
^DD(165.5,915,21,1,0)=""
^DD(165.5,915,21,2,0)="Record whether the patient had other cancer diagnosed either"
^DD(165.5,915,21,3,0)="prior to this breast cancer or at the same time that this breast"
^DD(165.5,915,21,4,0)="cancer was diagnosed."
^DD(165.5,915,21,5,0)=""
^DD(165.5,915,"DT")="2980604"
^DD(165.5,916,0)="HORMONE REPLACEMENT TPY (BR98)^S^0:No;1:Yes;9:Unknown;^BRE1;17^Q"
^DD(165.5,916,21,0)="^^5^5^2980605^^^^"
^DD(165.5,916,21,1,0)=""
^DD(165.5,916,21,2,0)="Record whether the patient was/is on hormone replacement"
^DD(165.5,916,21,3,0)="therapy (estrogen/progesterone).  If the patient is a male"
^DD(165.5,916,21,4,0)="leave this field blank."
^DD(165.5,916,21,5,0)=""
^DD(165.5,916,"DT")="2980605"
^DD(165.5,917,0)="HORMONE REPLACEMENT YRS (BR98)^S^1:Less than 5 years;2:5 to 9 years;3:10 years or more;8:NA;9:Unknown;^BRE1;18^Q"
^DD(165.5,917,21,0)="^^6^6^2980608^^"
^DD(165.5,917,21,1,0)=""
^DD(165.5,917,21,2,0)="Record the appropriate code for the number of years of hormone"
^DD(165.5,917,21,3,0)="replacement therapy the patient had.  If patient is not on this"
^DD(165.5,917,21,4,0)="therapy, code 8, not applicable.  If the patient is a male"
^DD(165.5,917,21,5,0)="leave this field blank."
^DD(165.5,917,21,6,0)=""
^DD(165.5,917,"DT")="2980608"
^DD(165.5,918,0)="UNKNOWN MAMMOGRAM (BR98)^S^0:No;1:Yes;9:Unknown;^BRE1;19^Q"
^DD(165.5,918,21,0)="^^5^5^2980605^"
^DD(165.5,918,21,1,0)=""
^DD(165.5,918,21,2,0)="For FEMALE patients ONLY, record the appropriate code for whether a"
^DD(165.5,918,21,3,0)="mammogram was given, but the type was unknown.  If the type is known"
^DD(165.5,918,21,4,0)="then record a 0.  If the patient is male, leave this field blank."
^DD(165.5,918,21,5,0)=""
^DD(165.5,918,"DT")="2980605"
^DD(165.5,919,0)="UNKNOWN MAMMOGRAM DT (BR98)^DXO^^BRE1;20^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,919,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,919,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,919,3)="*** UNKNOWN MAMMOGRAM DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,919,21,0)="^^7^7^2980605^^^"
^DD(165.5,919,21,1,0)=""
^DD(165.5,919,21,2,0)="For FEMALE patients ONLY, record the date the mammogram was given if"
^DD(165.5,919,21,3,0)="the type of mammogram is unknown.  Use the most recent date if this"
^DD(165.5,919,21,4,0)="unknown type of mammogram was done more than once.  Record 0's if this"
^DD(165.5,919,21,5,0)="type of mammogram was not given.  Record 9's if it is unknown if this"
^DD(165.5,919,21,6,0)="type was given.  If the patient is male, leave this field blank."
^DD(165.5,919,21,7,0)=""
^DD(165.5,919,"DT")="2980605"
^DD(165.5,920,0)="SCREENING MAMMOGRAM (BR98)^S^0:No;1:Yes;9:Unknown;^BRE1;21^Q"
^DD(165.5,920,21,0)="^^5^5^2980605^"
^DD(165.5,920,21,1,0)=""
^DD(165.5,920,21,2,0)="For FEMALE patients ONLY, record the appropriate code for whether"
^DD(165.5,920,21,3,0)="a screening mammogram was given.  If the patient is male, leave"
^DD(165.5,920,21,4,0)="this field blank."
^DD(165.5,920,21,5,0)=""
^DD(165.5,920,"DT")="2980605"
^DD(165.5,921,0)="SCREENING MAMMOGRAM DT (BR98)^DXO^^BRE1;22^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,921,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,921,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,921,3)="*** SCREENING MAMMOGRAM DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,921,21,0)="^^7^7^2980605^^^"
^DD(165.5,921,21,1,0)=""
^DD(165.5,921,21,2,0)="For FEMALE patients ONLY, record the date the screening mammogram"
^DD(165.5,921,21,3,0)="was given.  Use the most recent date if screening mammogram was done"
^DD(165.5,921,21,4,0)="more than once.  Record 0's if screening mammogram was not given."
^DD(165.5,921,21,5,0)="Record 9's if it is unknown if screening mammogram was given.  If"
^DD(165.5,921,21,6,0)="the patient is male, leave this field blank."
^DD(165.5,921,21,7,0)=""
^DD(165.5,921,"DT")="2980605"
^DD(165.5,922,0)="DIAGNOSTIC MAMMOGRAM (BR98)^S^0:No;1:Yes;9:Unknown;^BRE1;23^Q"
^DD(165.5,922,21,0)="^^5^5^2980605^"
^DD(165.5,922,21,1,0)=""
^DD(165.5,922,21,2,0)="For FEMALE patients ONLY, record the appropriate code for whether"
^DD(165.5,922,21,3,0)="a diagnostic mammogram was given.  If the patient is male, leave"
^DD(165.5,922,21,4,0)="this field blank."
^DD(165.5,922,21,5,0)=""
^DD(165.5,922,"DT")="2980605"
^DD(165.5,923,0)="DIAGNOSTIC MAMMOGRAM DT (BR98)^DXO^^BRE1;24^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,923,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,923,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,923,3)="*** DIAGNOSTIC MAMMOGRAM DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,923,21,0)="^^7^7^2980605^^^"
^DD(165.5,923,21,1,0)=""
^DD(165.5,923,21,2,0)="For FEMALE patients ONLY, record the date the diagnostic mammogram"
^DD(165.5,923,21,3,0)="was given.  Use the most recent date if diagnostic mammogram was done"
^DD(165.5,923,21,4,0)="more than once.  Record 0's if diagnostic mammogram was not given."
^DD(165.5,923,21,5,0)="Record 9's if it is unknown if diagnostic mammogram was given.  If"
^DD(165.5,923,21,6,0)="the patient is male, leave this field blank."
^DD(165.5,923,21,7,0)=""
^DD(165.5,923,"DT")="2980605"
^DD(165.5,924,0)="MAGNIFICATION MAMMOGRAM (BR98)^S^0:No;1:Yes;9:Unknown;^BRE1;25^Q"
^DD(165.5,924,21,0)="^^7^7^2980605^"
^DD(165.5,924,21,1,0)=""
^DD(165.5,924,21,2,0)="For FEMALE patients ONLY, record the appropriate code for whether"
^DD(165.5,924,21,3,0)="a magnification mammogram was given.  A magnification mammogram can"
^DD(165.5,924,21,4,0)="be identified by finding the word ""magnification"" or ""compression"""
^DD(165.5,924,21,5,0)="in the title or body of the report.  If the patient is male, leave"
^DD(165.5,924,21,6,0)="this field blank."
^DD(165.5,924,21,7,0)=""
^DD(165.5,924,"DT")="2980605"
^DD(165.5,925,0)="MAGNIFICATION MAMM DT (BR98)^DXO^^BRE1;26^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,925,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,925,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,925,3)="*** MAGNIFICATION MAMMOGRAM DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,925,21,0)="^^7^7^2980605^^^"
^DD(165.5,925,21,1,0)=""
^DD(165.5,925,21,2,0)="For FEMALE patients ONLY, record the date the magnification mammogram"
^DD(165.5,925,21,3,0)="was given.  Use the most recent date if magnification mammogram was"
^DD(165.5,925,21,4,0)="done more than once.  Record 0's if magnification mammogram was not"
^DD(165.5,925,21,5,0)="given.  Record 9's if it is unknown if magnification mammogram was given."
^DD(165.5,925,21,6,0)="If the patient is male, leave this field blank."
^DD(165.5,925,21,7,0)=""
^DD(165.5,925,"DT")="2980605"
^DD(165.5,926,0)="MAMMOGRAM (BR98)^S^0:Test not done;1:Results positive for cancer;2:Results negative for cancer;8:Test done, results equivocal/unknown;9:Unknown if test done;^BRE1;27^Q"
^DD(165.5,926,21,0)="^^6^6^2980608^"
^DD(165.5,926,21,1,0)=""
^DD(165.5,926,21,2,0)="For MALES ONLY, record the results of the mammogram performed to"
^DD(165.5,926,21,3,0)="evaluate the extent of breast cancer.  If the mammogram was done"
^DD(165.5,926,21,4,0)="but the results cannot be determined, code 8.  If it is unknown if a"
^DD(165.5,926,21,5,0)="mammogram was performed, code 9.  If no mammogram was done, code 0."
^DD(165.5,926,21,6,0)=""
^DD(165.5,926,"DT")="2980608"
^DD(165.5,927,0)="ULTRASOUND (BR98)^S^0:Test not done;1:Results positive for cancer;2:Results negative for cancer;8:Test done, results equivocal/unknown;9:Unknown if test done;^BRE1;28^Q"
^DD(165.5,927,21,0)="^^6^6^2980608^"
^DD(165.5,927,21,1,0)=""
^DD(165.5,927,21,2,0)="Record the results of the ultrasound if one was performed to"
^DD(165.5,927,21,3,0)="evaluate the extent of breast cancer.  If the ultrasound was done but"
^DD(165.5,927,21,4,0)="the results cannot be determined, code 8.  If it is unknown if an"
^DD(165.5,927,21,5,0)="ultrasound was performed, code 9.  If no ultrasound was done, code 0."
^DD(165.5,927,21,6,0)=""
^DD(165.5,927,"DT")="2980608"
^DD(165.5,928,0)="MOST DEFINITIVE MAMM (BR98)^S^0:Negative/no abnormality;1:Localized calcifications;2:Diffuse calcifications;3:Mass, no calcifications;4:Mass plus one quad calcification;5:Mass plus multiple quad calcifications;6:NOS;8:NA;9:Unknown;^BRE1;29^Q"
^DD(165.5,928,21,0)="^^5^5^2980609^^^^"
^DD(165.5,928,21,1,0)=""
^DD(165.5,928,21,2,0)="For FEMALES ONLY, record the results of the patient's most"
^DD(165.5,928,21,3,0)="definitive mammogram in this field.  If no mammogram was done"
^DD(165.5,928,21,4,0)="record 8, not applicable.  For males, leave this field blank."
^DD(165.5,928,21,5,0)=""
^DD(165.5,928,"DT")="2980608"
^DD(165.5,929,0)="DATE OF PATHOLOGIC DX (BR98)^DXO^^BRE1;30^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  D DFIT^ONCODSR"
^DD(165.5,929,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,929,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,929,3)="*** DATE OF PATHOLOGIC DX MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.5,929,21,0)="^^4^4^2980608^^^^"
^DD(165.5,929,21,1,0)=""
^DD(165.5,929,21,2,0)="Record the date that this breast cancer was first pathologically"
^DD(165.5,929,21,3,0)="diagnosed."
^DD(165.5,929,21,4,0)=""
^DD(165.5,929,"DT")="2980608"
^DD(165.5,930,0)="DCSI ALSO PRESENT (BR98)^FXO^^BRE1;31^K:$L(X)>1!($L(X)<1) X I $D(X) D DCISIT^ONCOOT"
^DD(165.5,930,2)="S Y(0)=Y D DCISOT^ONCOOT"
^DD(165.5,930,2.1)="D DCISOT^ONCOOT"
^DD(165.5,930,3)="Answer must be 1 character in length."
^DD(165.5,930,4)="D DCISHP^ONCOOT"
^DD(165.5,930,21,0)="^^11^11^2980609^^^"
^DD(165.5,930,21,1,0)=""
^DD(165.5,930,21,2,0)="If invasive ductal carcinoma is reported (Behavior code = 3), code if"
^DD(165.5,930,21,3,0)="ductal carcinoma in situ (DCIS) is also present.  If DCIS is not present,"
^DD(165.5,930,21,4,0)="code 0.  If DCIS is also present as a separate, simultaneous tumor, record"
^DD(165.5,930,21,5,0)="1. If DCIS is also present as mixed histology (in situ/invasive) in one"
^DD(165.5,930,21,6,0)="tumor, record 2. If DCIS is also present, both as a separate tumor and in"
^DD(165.5,930,21,7,0)="a tumor with mixed histology, record 3.  If DCIS is also present, but"
^DD(165.5,930,21,8,0)="unknown whether as a separate tumor or mixed histology, record 4.  If"
^DD(165.5,930,21,9,0)="reported tumor is not invasive ductal carcinoma, record 8, not applicable."
^DD(165.5,930,21,10,0)="If unknown whether DCIS is also present, record 9."
^DD(165.5,930,21,11,0)=""
^DD(165.5,930,"DT")="2980609"
^DD(165.5,931,0)="ARCHITECTURE PATTERN (BR98)^S^1:Cribriform;2:Micro papillary;3:Comedo;4:Solid;5:Other;6:NOS;7:Mixed (any combination);8:NA, not DCIS;9:Pattern unknown;^BRE1;32^Q"
^DD(165.5,931,21,0)="^^8^8^2980612^^^"
^DD(165.5,931,21,1,0)=""
^DD(165.5,931,21,2,0)="Record the architecture pattern, if DCIS is present (either as the"
^DD(165.5,931,21,3,0)="reported tumor, or as a separate tumor simultaneous with an invasive"
^DD(165.5,931,21,4,0)="ductal carcinoma, or as a tumor with mixed histology - in situ/invasive"
^DD(165.5,931,21,5,0)="ductal carcinoma).  This information is found on the pathology report,"
^DD(165.5,931,21,6,0)="often under the histology description, or it may be found in the"
^DD(165.5,931,21,7,0)="diagnostic report."
^DD(165.5,931,21,8,0)=""
^DD(165.5,931,"DT")="2980612"
^DD(165.5,932,0)="NUCLEAR GRADE (BR98)^S^1:Low;2:Intermediate;3:High;4:NOS;8:NA;9:Unknown;^BRE1;33^Q"
^DD(165.5,932,21,0)="^^8^8^2980612^"
^DD(165.5,932,21,1,0)=""
^DD(165.5,932,21,2,0)="Record the nuclear grade, if DCIS is present (either as the reported"
^DD(165.5,932,21,3,0)="tumor, or as a separate tumor simultaneous with an invasive ductal"
^DD(165.5,932,21,4,0)="carcinoma, or as a tumor with mixed histology - in situ/invasive ductal"
^DD(165.5,932,21,5,0)="carcinoma).  This information is found on the pathology report, often"
^DD(165.5,932,21,6,0)="under the histology description, or it may be in the diagnostic report."
^DD(165.5,932,21,7,0)="It is identified by the terms low, intermediate and high."
^DD(165.5,932,21,8,0)=""
^DD(165.5,932,"DT")="2980612"
^DD(165.5,933,0)="SKIN INVOLVEMENT (BR98)^S^0:No involvement;1:Involvement;9:Unknown;^BRE1;34^Q"
^DD(165.5,933,21,0)="^^4^4^2980612^"
^DD(165.5,933,21,1,0)=""
^DD(165.5,933,21,2,0)="For male patients, record the extent of involvement of the skin."
^DD(165.5,933,21,3,0)="For female patients, leave this field blank."
^DD(165.5,933,21,4,0)=""
^DD(165.5,933,"DT")="2980612"
^DD(165.5,934,0)="CHEST WALL INVOLVEMENT (BR98)^S^0:No involvement;1:Involvement;9:Unknown;^BRE1;35^Q"
^DD(165.5,934,21,0)="^^4^4^2980612^"
^DD(165.5,934,21,1,0)=""
^DD(165.5,934,21,2,0)="For male patients, record the extent of involvement of the chest"
^DD(165.5,934,21,3,0)="wall.  For female patients, leave this field blank."
^DD(165.5,934,21,4,0)=""
^DD(165.5,934,"DT")="2980612"
^DD(165.5,935,0)="PECTORAL INVOLVEMENT (BR98)^S^0:No involvement;1:Involvement;9:Unknown;^BRE1;36^Q"
^DD(165.5,935,21,0)="^^4^4^2980612^"
^DD(165.5,935,21,1,0)=""
^DD(165.5,935,21,2,0)="For male patients, record the extent of involvement of the"
^DD(165.5,935,21,3,0)="pectoral muscles.  For female patients, leave this field blank."
^DD(165.5,935,21,4,0)=""
^DD(165.5,935,"DT")="2980612"
^DD(165.5,936,0)="DERMAL/LYMPHATIC INV (BR98)^S^0:No involvement;1:Involvement;9:Unknown;^BRE1;37^Q"
^DD(165.5,936,21,0)="^^4^4^2980612^"
^DD(165.5,936,21,1,0)=""
^DD(165.5,936,21,2,0)="For male patients, record the extent of dermal/lymphatic"
^DD(165.5,936,21,3,0)="involvement.  For female patients, leave this field blank."
^DD(165.5,936,21,4,0)=""
^DD(165.5,936,"DT")="2980612"
^DD(165.5,937,0)="DNA INDEX/PLOIDY (BR98)^S^0:Test not done;1:Diploid;2:Non-diploid;8:Test done, results unknown;9:Unknown if test done;^BRE1;38^Q"
^DD(165.5,937,21,0)="^^4^4^2980612^"
^DD(165.5,937,21,1,0)=""
^DD(165.5,937,21,2,0)="For male patients, record the DNA Index/Ploidy.  This is usually"
^DD(165.5,937,21,3,0)="determined by flow symmetry.  For females, leave this field blank."
^DD(165.5,937,21,4,0)=""
^DD(165.5,937,"DT")="2980612"
^DD(165.5,940,0)="ANDROGEN RECEPTOR (BR98)^S^0:Not done;1:Positive;2:Negative;3:Low borderline;7:NA;8:Test done, results unknown;9:Unknown if test done;^BRE1;41^Q"
^DD(165.5,940,21,0)="^^5^5^2980612^"
^DD(165.5,940,21,1,0)=""
^DD(165.5,940,21,2,0)="For male patients, record the results of the androgen receptor"
^DD(165.5,940,21,3,0)="protein test.  The results of these tests are sometimes shown"
^DD(165.5,940,21,4,0)="as percents.  For females, leave this field blank."
^DD(165.5,940,21,5,0)=""
^DD(165.5,940,"DT")="2980612"
^DD(165.5,941,0)="TYPE OF TEST (BR98)^S^0:Neither ERA nor PRA was done;1:Immunohistochemical test;2:Biochemical test;8:ERA or PSA was done, type of test unknown;9:Unknown if ERA/PRA was done;^BRE1;42^Q"
^DD(165.5,941,21,0)="^^6^6^2980618^^"
^DD(165.5,941,21,1,0)=""
^DD(165.5,941,21,2,0)="If possible to determine, indicate which type of test was used"
^DD(165.5,941,21,3,0)="for the ERA/PRA.  Answer for estrogen receptor protein (ERA) first,"
^DD(165.5,941,21,4,0)="and if that was not done, then answer for progesterone receptor"
^DD(165.5,941,21,5,0)="protein (PRA).  If neither ERA or PRA tests were done, record 0."
^DD(165.5,941,21,6,0)=""
^DD(165.5,941,"DT")="2980618"
^DD(165.5,942,0)="SIZE OF DCIS TUMOR (MM) (BR98)^NJ3,0XO^^BRE1;43^K:X>999!(X<0)!(X?.E1"".""1N.N) X I $D(X) D DCSZIT^ONCOOT"
^DD(165.5,942,2)="S Y(0)=Y D DCSZOT^ONCOOT"
^DD(165.5,942,2.1)="D DCSZOT^ONCOOT"
^DD(165.5,942,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(165.5,942,21,0)="^^14^14^2980619^^"
^DD(165.5,942,21,1,0)=""
^DD(165.5,942,21,2,0)="Record the size of DCIS tumor.  If the tumor being reported is coded"
^DD(165.5,942,21,3,0)="as invasive ductal carcinoma and ductal carcinoma in situ is also"
^DD(165.5,942,21,4,0)="present either as a separate, simultaneous tumor or in a tumor with"
^DD(165.5,942,21,5,0)="mixed histology (in situ/invasive), record the largest dimension or"
^DD(165.5,942,21,6,0)="diameter of the DCIS tumor in millimeters. Do not guess the size of"
^DD(165.5,942,21,7,0)="the tumor. Do not use specimen size.  Use size as recorded in the"
^DD(165.5,942,21,8,0)="pathology report, if it is present.  If invasive ductal carcinoma is"
^DD(165.5,942,21,9,0)="reported but DCIS is not present, record 000.  If invasive ductal"
^DD(165.5,942,21,10,0)="carcinoma is not reported, record 888, not applicable.  If invasive"
^DD(165.5,942,21,11,0)="ductal carcinoma is reported and DCIS is also present but its size is"
^DD(165.5,942,21,12,0)="not known, record 988.  If ductal carcinoma is reported but presence"
^DD(165.5,942,21,13,0)="of DCIS is unknown, record 999."
^DD(165.5,942,21,14,0)=""
^DD(165.5,942,"DT")="2980619"
^DD(165.5,943,0)="SENTINEL NODE BIOPSY^*S^0:No;1:Yes, positive;2:Yes, negative;3:Yes, results unknown;4:Attempted, unsuccessful;8:NA, not done, ocular site;9:Unknown;^BRE1;44^Q"
^DD(165.5,943,12)="Code 8 should not be used for cases with a DATE DX < 1/1/1999."
^DD(165.5,943,12.1)="S DIC(""S"")=""I ($P($G(^ONCO(165.5,DA,0)),U,16)>2981231)!(Y'=8)"""
^DD(165.5,943,21,0)="^^8^8^2990429^^^^"
^DD(165.5,943,21,1,0)=""
^DD(165.5,943,21,2,0)="Record whether a sentinel node biopsy was performed.  The sentinel node"
^DD(165.5,943,21,3,0)="is the first lymph node(s) in the axillary lymph node basin receiving the"
^DD(165.5,943,21,4,0)="lymphatic drainage of the breast.  There may be one or several sentinel"
^DD(165.5,943,21,5,0)="nodes identified by radionuclide injection, dye injection, or combination"
^DD(165.5,943,21,6,0)="of the two.  If surgeon could not find a sentinel node, record 4 -"
^DD(165.5,943,21,7,0)="attempted, unsuccessful."
^DD(165.5,943,21,8,0)=""
^DD(165.5,943,"DT")="2990129"
^DD(165.5,944,0)="SENTINEL NODES EXAMINED (BR98)^S^0:None;1:1 node examined;2:2 nodes examined;3:3 nodes examined;4:4 nodes examined;5:5 nodes examined;6:6 nodes examined;7:7 or more nodes examined;8:Examined, number unknown;9:Unknown if examined;^BRE1;45^Q"
^DD(165.5,944,21,0)="^^5^5^2980617^^"
^DD(165.5,944,21,1,0)=""
^DD(165.5,944,21,2,0)="Enter the number of sentinel nodes examined.  Record 0 if no sentinel"
^DD(165.5,944,21,3,0)="nodes examined.  Record 8 if nodes examined, but the number is unknown"
^DD(165.5,944,21,4,0)="and record 9 if it is unknown if sentinel nodes were examined."
^DD(165.5,944,21,5,0)=""
^DD(165.5,944,"DT")="2980617"
^DD(165.5,945,0)="SENTINEL NODES POSITIVE (BR98)^S^0:None positive;1:1 positive node;2:2 positive nodes;3:3 positive nodes;4:4 positive nodes;5:5 positive nodes;6:6 or more positive nodes;7:None examined;8:Positive, number unknown;9:Unknown if positive;^BRE1;46^Q"
^DD(165.5,945,21,0)="^^5^5^2980617^^"
^DD(165.5,945,21,1,0)=""
^DD(165.5,945,21,2,0)="Enter the number of sentinel nodes positive.  Record 0 if none are"
^DD(165.5,945,21,3,0)="positive.  Record 7 if none were examined.  Record 8 if the positive"
^DD(165.5,945,21,4,0)="number is unknown, and record 9 if it is unknown if any were positive."
^DD(165.5,945,21,5,0)=""
^DD(165.5,945,"DT")="2980617"
^DD(165.5,946,0)="SENTINEL NODES DETECTED (BR98)^S^1:Vital blue dye;2:Radionuclide;3:Combination;8:NA, not done;9:Method unknown;^BRE1;47^Q"
^DD(165.5,946,21,0)="^^3^3^2980617^"
^DD(165.5,946,21,1,0)=""
^DD(165.5,946,21,2,0)="Record the method by which the sentinel node was detected."
^DD(165.5,946,21,3,0)=""
^DD(165.5,946,"DT")="2980617"
^DD(165.5,947,0)="SPECIMEN RADIOGRAPH (BR98)^S^0:Not done;1:Calcification;2:Mass;3:Both calcification and mass;4:Radiograph done, results NOS;8:NA;9:Unknown;^BRE1;48^Q"
^DD(165.5,947,21,0)="^^4^4^2980618^"
^DD(165.5,947,21,1,0)=""
^DD(165.5,947,21,2,0)="Record the results of the radiograph.  The radiograph is"
^DD(165.5,947,21,3,0)="a film of the excised specimen."
^DD(165.5,947,21,4,0)=""
^DD(165.5,947,"DT")="2980618"
^DD(165.5,948,0)="SUBMITTED TO PATHOLOGY (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;49^Q"
^DD(165.5,948,21,0)="^^3^3^2980618^^"
^DD(165.5,948,21,1,0)=""
^DD(165.5,948,21,2,0)="Record whether the entire specimen was submitted to pathology."
^DD(165.5,948,21,3,0)=""
^DD(165.5,948,"DT")="2980618"
^DD(165.5,949,0)="MARGIN DISTANCE (BR98)^S^0:Margins not free, involved;1:Less than 1 mm;2:1 to 2 mm;3:3 to 5 mm;4:Greater than 5 mm;8:NA;9:Unknown;^BRE1;50^Q"
^DD(165.5,949,21,0)="^^4^4^2980618^"
^DD(165.5,949,21,1,0)=""
^DD(165.5,949,21,2,0)="If margins are free, record the distance in millimeters from"
^DD(165.5,949,21,3,0)="the tumor to the edge of the specimen (margin)."
^DD(165.5,949,21,4,0)=""
^DD(165.5,949,"DT")="2980618"
^DD(165.5,950,0)="RE-EXCISION (BR98)^S^0:No;1:Yes;8:NA;9:Unknown;^BRE1;51^Q"
^DD(165.5,950,21,0)="^^6^6^2980618^"
^DD(165.5,950,21,1,0)=""
^DD(165.5,950,21,2,0)="Record whether a re-excision was performed following examination"
^DD(165.5,950,21,3,0)="of the margins.  Record 8 if margins were clear, not applicable."
^DD(165.5,950,21,4,0)="(NOTE: A mastectomy after an excisional biopsy does not count"
^DD(165.5,950,21,5,0)="as a re-excision)."
^DD(165.5,950,21,6,0)=""
^DD(165.5,950,"DT")="2980618"
^DD(165.5,951,0)="MICROSCOPIC STATUS (BR98)^S^0:Uninvolved;1:Involved;8:NA;9:Unknown;^BRE1;52^Q"
^DD(165.5,951,21,0)="^^5^5^2980618^"
^DD(165.5,951,21,1,0)=""
^DD(165.5,951,21,2,0)="Record the microscopic status of final margin after re-excision."
^DD(165.5,951,21,3,0)="If re-excision was performed indicate the status.  If re-excision"
^DD(165.5,951,21,4,0)="was not done, record 8, not applicable."
^DD(165.5,951,21,5,0)=""
^DD(165.5,951,"DT")="2980618"
^DD(165.5,952,0)="PRE-RADIATION MAMMOGRAM (BR98)^S^0:Not done;1:Done, and entire lesion removed;2:Done, and entire lesion not removed;8:Done, but status of lesion unknown;9:Unknown if done;^BRE1;53^Q"
^DD(165.5,952,21,0)="^^4^4^2980619^"
^DD(165.5,952,21,1,0)=""
^DD(165.5,952,21,2,0)="Record whether there was a pre-radiation therapy mammogram of"
^DD(165.5,952,21,3,0)="the patient.  If unknown, record 9."
^DD(165.5,952,21,4,0)=""
^DD(165.5,952,"DT")="2980618"
^DD(165.5,953,0)="SITES IRRADIATED (BR98)^S^0:No radiation;1:Breast only;2:Breast and regional lymphatics;3:Other;8:Radiation, sites unknown;9:Unknown if radiation;^BRE1;54^Q"
^DD(165.5,953,21,0)="^^7^7^2980619^^"
^DD(165.5,953,21,1,0)=""
^DD(165.5,953,21,2,0)="Record the sites which were irradiated.  Regional lymphatics"
^DD(165.5,953,21,3,0)="includes axilla, chest wall, internal mammary lymph nodes and"
^DD(165.5,953,21,4,0)="supraclavicular lymph nodes.  Breast refers to 'whole' or 'entire'"
^DD(165.5,953,21,5,0)="breast.  If radiation was given, but site(s) unknown, record 8."
^DD(165.5,953,21,6,0)="If it is unknown if radiation was given, record 9."
^DD(165.5,953,21,7,0)=""
^DD(165.5,953,"DT")="2980619"
^DD(165.5,954,0)="cGy DOSE TO BREAST (BR98)^NJ5,0OX^^BRE1;55^K:X>99999!(X<0)!(X?.E1"".""1N.N) X I $D(X) D CGYIT^ONCOOT"
^DD(165.5,954,2)="S Y(0)=Y D CGYOT^ONCOOT"
^DD(165.5,954,2.1)="D CGYOT^ONCOOT"
^DD(165.5,954,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,954,21,0)="^^8^8^2980619^^"
^DD(165.5,954,21,1,0)=""
^DD(165.5,954,21,2,0)="For female patients ONLY, record the cGy dose (00001-88887) given"
^DD(165.5,954,21,3,0)="to the whole breast or chest wall.  Do not include boost dose.  If"
^DD(165.5,954,21,4,0)="the patient did not receive radiation therapy, code 00000.  If it is"
^DD(165.5,954,21,5,0)="known that the patient received radiation therapy, but the dose is"
^DD(165.5,954,21,6,0)="unknown, code 88888.  If it is unknown if the patient raceived"
^DD(165.5,954,21,7,0)="radiation, code 99999.  For male patients, leave this field blank."
^DD(165.5,954,21,8,0)=""
^DD(165.5,954,"DT")="2980619"
^DD(165.5,955,0)="SPECIFIC HORMONE THPY (BR98)^S^0:None;1:Tamoxifen;2:Orchiectomy;3:Estrogen;4:Other;8:NA;9:Unknown;^BRE1;56^Q"
^DD(165.5,955,21,0)="^^4^4^2980619^"
^DD(165.5,955,21,1,0)=""
^DD(165.5,955,21,2,0)="For male patients ONLY, record the specific hormone treatment."
^DD(165.5,955,21,3,0)="Estrogen includes Diethylstilbestrol.  For females, leave blank."
^DD(165.5,955,21,4,0)=""
^DD(165.5,955,"DT")="2980619"
^DD(165.5,956,0)="CHEMOTHERAPY REGIME (BR98)^S^0:No;1:Yes;8:NA, no chemotherapy;9:Unknown;^BRE1;57^Q"
^DD(165.5,956,21,0)="^^5^5^2980619^^^"
^DD(165.5,956,21,1,0)=""
^DD(165.5,956,21,2,0)="Record the chemotherapeutic regime containing doxorubicin."
^DD(165.5,956,21,3,0)="Doxorubicin includes Adriamycin, Adriamycin-TM, Adriblastina,"
^DD(165.5,956,21,4,0)="FT-106, 14-hydroxy daunomycin and Rubex."
^DD(165.5,956,21,5,0)=""
^DD(165.5,956,"DT")="2980619"
^DD(165.5,993,0)="REGIONAL TX MODALITY CONV FLAG^S^Y:YES;^27;7^Q"
^DD(165.5,993,21,0)="^^3^3^3030206^"
^DD(165.5,993,21,1,0)="This field will flag this record as having its REGIONAL TREATMENT MODALITY"
^DD(165.5,993,21,2,0)="values converted from ROADS TO FORDS.  The purpose of this field is to"
^DD(165.5,993,21,3,0)="avoid converting already converted values."
^DD(165.5,993,"DT")="3030206"
^DD(165.5,994,0)="TYPE OF FIRST RECUR CONV FLAG^S^Y:YES;^27;6^Q"
^DD(165.5,994,21,0)="^.001^3^3^3030206^^"
^DD(165.5,994,21,1,0)="This field will flag this record as having its TYPE OF FIRST RECURRENCE"
^DD(165.5,994,21,2,0)="values converted from ROADS TO FORDS.  The purpose of this field is to"
^DD(165.5,994,21,3,0)="avoid converting already converted values."
^DD(165.5,994,"DT")="3030131"
^DD(165.5,995,0)="STAGED BY CONV FLAG^S^Y:YES;^27;5^Q"
^DD(165.5,995,21,0)="^^4^4^3030106^"
^DD(165.5,995,21,1,0)="This field will flag this record as having its STAGED BY (CLINICAL"
^DD(165.5,995,21,2,0)="STAGE and STAGED BY (PATHOLOGIC STAGE) values converted from ROADS"
^DD(165.5,995,21,3,0)="to FORDS.  The purpose of this field is to avoid converting already"
^DD(165.5,995,21,4,0)="converted values."
^DD(165.5,995,"DT")="3030106"
^DD(165.5,996,0)="SURGICAL MARGINS CONV FLAG^S^Y:YES;^27;2^Q"
^DD(165.5,996,21,0)="^^3^3^3030106^"
^DD(165.5,996,21,1,0)="This field will flag this record as having its SURGICAL MARGINS"
^DD(165.5,996,21,2,0)="value converted from ROADS to FORDS.  The purpose of this field"
^DD(165.5,996,21,3,0)="is to avoid converting already converted values."
^DD(165.5,996,"DT")="3030106"
^DD(165.5,997,0)="STAGE FLAG^S^Y:YES;N:NO;^27;1^Q"
^DD(165.5,997,21,0)="^^1^1^2961004^"
^DD(165.5,997,21,1,0)="Staging conversion flag."
^DD(165.5,997,"DT")="2961004"
^DD(165.5,998,0)="SCOPE OF LN SURGERY CONV FLAG^S^Y:YES;^27;3^Q"
^DD(165.5,998,21,0)="^^3^3^3030106^"
^DD(165.5,998,21,1,0)="This field will flag this record as having its SCOPE OF LYMPH NODE"
^DD(165.5,998,21,2,0)="SURGERY and SCOPE OF LN SURG @FACILITY values converted from ROADS"
^DD(165.5,998,21,3,0)="to FORDS.  The purpose of this field is to avoid converting already"
^DD(165.5,998,"DT")="3030106"
^DD(165.5,999,0)="SURGICAL PROC/OTHER CONV FLAG^S^Y:YES;^27;4^Q"
^DD(165.5,999,21,0)="^.001^4^4^3030106^^"
^DD(165.5,999,21,1,0)="This field will flag this record as having its SURGICAL PROC/OTHER"
^DD(165.5,999,21,2,0)="SITE and SURGICAL PROC/OTHER SITE @FAC values converted from ROADS"
^DD(165.5,999,21,3,0)="to FORDS.  The purpose of this field is to avoid converting already"
^DD(165.5,999,21,4,0)="converted values."
^DD(165.5,999,"DT")="3030106"
^DD(165.5,1000,0)="ORAL CONTRACEPTIVES^S^0:No;1:Yes;9:Unknown;^HEP1;1^Q"
^DD(165.5,1000,21,0)="^.001^5^5^3000530^^^^"
^DD(165.5,1000,21,1,0)=""
^DD(165.5,1000,21,2,0)="This field describes whether the patient was receiving prescribed hormonal"
^DD(165.5,1000,21,3,0)="therapy at the time of diagnosis.  This information can typically be found"
^DD(165.5,1000,21,4,0)="in either the patient's clinic chart or the managing physician's notes."
^DD(165.5,1000,21,5,0)=" "
^DD(165.5,1000,"DT")="3000106"
^DD(165.5,1001,0)="ESTROGEN REPLACEMENT^S^0:No;1:Yes;9:Unknown;^HEP1;2^Q"
^DD(165.5,1001,21,0)="^.001^6^6^3000530^^^"
^DD(165.5,1001,21,1,0)=""
^DD(165.5,1001,21,2,0)=""
^DD(165.5,1001,21,3,0)="This field describes whether the patient was receiving prescribed hormonal"
^DD(165.5,1001,21,4,0)="therapy at the time of diagnosis.  This information can typically be found"
^DD(165.5,1001,21,5,0)="in either the patient's clinic chart or the managing physician's notes."
^DD(165.5,1001,21,6,0)=" "
^DD(165.5,1001,"DT")="3000106"
^DD(165.5,1002,0)="TAMOXIFEN^S^0:No;1:Yes;9:Unknown;^HEP1;3^Q"
^DD(165.5,1002,21,0)="^.001^5^5^3000530^^^^"
^DD(165.5,1002,21,1,0)=""
^DD(165.5,1002,21,2,0)="This field describes whether the patient was receiving prescribed hormonal"
^DD(165.5,1002,21,3,0)="therapy at the time of diagnosis.  This information can typically be found"
^DD(165.5,1002,21,4,0)="in either the patient's clinic chart or the managing physician's notes."
^DD(165.5,1002,21,5,0)=" "
^DD(165.5,1002,"DT")="3000106"
^DD(165.5,1003,0)="OTHER HORMONES^S^0:No;1:Yes;9:Unknown;^HEP1;4^Q"
^DD(165.5,1003,21,0)="^.001^5^5^3000530^^^"
^DD(165.5,1003,21,1,0)=""
^DD(165.5,1003,21,2,0)="This field describes whether the patient was receiving prescribed hormonal"
^DD(165.5,1003,21,3,0)="therapy at the time of diagnosis.  This information can typically be found"
^DD(165.5,1003,21,4,0)="in either the patient's clinic chart or the managing physician's notes."
^DD(165.5,1003,21,5,0)=" "
^DD(165.5,1003,"DT")="3000106"
^DD(165.5,1004,0)="ASCITES^S^0:No;1:Yes;9:Unknown;^HEP1;5^Q"
^DD(165.5,1004,21,0)="^.001^5^5^3000530^^^"
^DD(165.5,1004,21,1,0)=""
^DD(165.5,1004,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1004,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1004,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1004,21,5,0)="  "
^DD(165.5,1004,"DT")="3000106"
^DD(165.5,1005,0)="CIRRHOSIS^S^0:No;1:Yes;9:Unknown;^HEP1;6^Q"
^DD(165.5,1005,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1005,21,1,0)=""
^DD(165.5,1005,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1005,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1005,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1005,21,5,0)="  "
^DD(165.5,1005,"DT")="3000106"
^DD(165.5,1006,0)="CHILD'S CLASS A^S^0:No;1:Yes;9:Unknown;^HEP1;7^Q"
^DD(165.5,1006,21,0)="^.001^5^5^3000530^^^"
^DD(165.5,1006,21,1,0)=""
^DD(165.5,1006,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1006,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1006,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1006,21,5,0)="  "
^DD(165.5,1006,"DT")="3000106"
^DD(165.5,1007,0)="CHILD'S CLASS B^S^0:No;1:Yes;9:Unknown;^HEP1;8^Q"
^DD(165.5,1007,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1007,21,1,0)=""
^DD(165.5,1007,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1007,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1007,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1007,21,5,0)="  "
^DD(165.5,1007,"DT")="3000106"
^DD(165.5,1008,0)="CHILD'S CLASS C^S^0:No;1:Yes;9:Unknown;^HEP1;9^Q"
^DD(165.5,1008,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1008,21,1,0)=""
^DD(165.5,1008,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1008,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1008,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1008,21,5,0)="  "
^DD(165.5,1008,"DT")="3000106"
^DD(165.5,1009,0)="HEPATITIS B^S^0:No;1:Yes;9:Unknown;^HEP1;10^Q"
^DD(165.5,1009,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1009,21,1,0)=""
^DD(165.5,1009,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1009,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1009,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1009,21,5,0)="  "
^DD(165.5,1009,"DT")="3000106"
^DD(165.5,1010,0)="HEPATITIS C^S^0:Patient screened, negative results;1:Patient screened, positive results for Hep C;8:Patient refused;9:Unknown if patient screened;^HEP1;11^Q"
^DD(165.5,1010,21,0)="^.001^5^5^3030416^^^^"
^DD(165.5,1010,21,1,0)=""
^DD(165.5,1010,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1010,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1010,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1010,21,5,0)="  "
^DD(165.5,1010,"DT")="3030416"
^DD(165.5,1011,0)="HEMOCHROMATOSIS^S^0:No;1:Yes;9:Unknown;^HEP1;12^Q"
^DD(165.5,1011,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1011,21,1,0)=""
^DD(165.5,1011,21,2,0)="This field describes all conditions relevant to liver cancer which were"
^DD(165.5,1011,21,3,0)="reported as occurring in the patient at the time of diagnosis.  This"
^DD(165.5,1011,21,4,0)="information can typically be found in the managing physician's notes."
^DD(165.5,1011,21,5,0)="  "
^DD(165.5,1011,"DT")="3000106"
^DD(165.5,1012,0)="ALCOHOL CONSUMPTION^FO^^HEP1;13^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S X=$S($L(X)=1:""00""_X,$L(X)=2:""0""_X,1:X) W:X=""000"" "" Never consumed alcohol"" W:X=""999"" "" Number of drinks unknown"""
^DD(165.5,1012,2)="S Y(0)=Y S Y=$S(Y=""000"":""Never consumed alcohol"",Y=999:""Number of drinks unknown"",1:Y)"
^DD(165.5,1012,2.1)="S Y=$S(Y=""000"":""Never consumed alcohol"",Y=999:""Number of drinks unknown"",1:Y)"
^DD(165.5,1012,3)="Enter 000-Never consumed alcohol; 001-998; 999-Number of drinks unknown"
^DD(165.5,1012,21,0)="^.001^7^7^3000630^^^^"
^DD(165.5,1012,21,1,0)=""
^DD(165.5,1012,21,2,0)="This field describes the number of drinks (beer, wine, other alcohol)"
^DD(165.5,1012,21,3,0)="consumed by the patient per week.  If the patient has never consumed"
^DD(165.5,1012,21,4,0)="alcohol, code 000.  If the number of drinks per week is unknown, code"
^DD(165.5,1012,21,5,0)="999.  This information can typically be found in either the patient's"
^DD(165.5,1012,21,6,0)="clinic chart or the managing physician's notes."
^DD(165.5,1012,21,7,0)=""
^DD(165.5,1012,"DT")="3000630"
^DD(165.5,1013,0)="AFP (IU/ml)^FO^^HEP1;14^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(165.5,1013,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1013,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1013,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,1013,21,0)="^.001^12^12^3000530^^^^"
^DD(165.5,1013,21,1,0)=""
^DD(165.5,1013,21,2,0)="This field describes the absolute value of each tumor marker test"
^DD(165.5,1013,21,3,0)="administered to the patient prior to the start of the first course"
^DD(165.5,1013,21,4,0)="of treatment.  Tumor markers considered in this study include: AFP"
^DD(165.5,1013,21,5,0)="(IU/ml); CEA (mg/ml); and CA19.9 (U/ml).  This information can"
^DD(165.5,1013,21,6,0)="typically be found in either the patient's hospital chart or laboratory"
^DD(165.5,1013,21,7,0)="records.  Record tumor markers as whole numbers, round decimals to the"
^DD(165.5,1013,21,8,0)="nearest integer; for example 12.5 would be rounded up to 13, and 4.4 would"
^DD(165.5,1013,21,9,0)="be rounded down to 4.  If a particular tumor marker test was not"
^DD(165.5,1013,21,10,0)="administered code 00000.  If a test was administered but the results is"
^DD(165.5,1013,21,11,0)="unknown, code 99999."
^DD(165.5,1013,21,12,0)=""
^DD(165.5,1013,"DT")="3000106"
^DD(165.5,1014,0)="CEA (mg/ml)^FO^^HEP1;15^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(165.5,1014,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1014,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1014,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,1014,21,0)="^^12^12^3000106^^^"
^DD(165.5,1014,21,1,0)=""
^DD(165.5,1014,21,2,0)="This field describes the absolute value of each tumor marker test"
^DD(165.5,1014,21,3,0)="administered to the patient prior to the start of the first course"
^DD(165.5,1014,21,4,0)="of treatment.  Tumor markers considered in this study include: AFP"
^DD(165.5,1014,21,5,0)="(IU/ml); CEA (mg/ml); and CA19.9 (U/ml).  This information can"
^DD(165.5,1014,21,6,0)="typically be found in either the patient's hospital chart or laboratory"
^DD(165.5,1014,21,7,0)="records.  Record tumor markers as whole numbers, round decimals to the"
^DD(165.5,1014,21,8,0)="nearest integer; for example 12.5 would be rounded up to 13, and 4.4 would"
^DD(165.5,1014,21,9,0)="be rounded down to 4.  If a particular tumor marker test was not"
^DD(165.5,1014,21,10,0)="administered code 00000.  If a test was administered but the results is"
^DD(165.5,1014,21,11,0)="unknown, code 99999."
^DD(165.5,1014,21,12,0)=""
^DD(165.5,1014,"DT")="3000106"
^DD(165.5,1015,0)="CA19.9 (U/ml)^FO^^HEP1;16^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(165.5,1015,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1015,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1015,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,1015,21,0)="^^12^12^3000106^^^"
^DD(165.5,1015,21,1,0)=""
^DD(165.5,1015,21,2,0)="This field describes the absolute value of each tumor marker test"
^DD(165.5,1015,21,3,0)="administered to the patient prior to the start of the first course"
^DD(165.5,1015,21,4,0)="of treatment.  Tumor markers considered in this study include: AFP"
^DD(165.5,1015,21,5,0)="(IU/ml); CEA (mg/ml); and CA19.9 (U/ml).  This information can"
^DD(165.5,1015,21,6,0)="typically be found in either the patient's hospital chart or laboratory"
^DD(165.5,1015,21,7,0)="records.  Record tumor markers as whole numbers, round decimals to the"
^DD(165.5,1015,21,8,0)="nearest integer; for example 12.5 would be rounded up to 13, and 4.4 would"
^DD(165.5,1015,21,9,0)="be rounded down to 4.  If a particular tumor marker test was not"
^DD(165.5,1015,21,10,0)="administered code 00000.  If a test was administered but the results is"
^DD(165.5,1015,21,11,0)="unknown, code 99999."
^DD(165.5,1015,21,12,0)=""
^DD(165.5,1015,"DT")="3000106"
^DD(165.5,1016,0)="PROTIME (sec)^FO^^HEP1;17^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(165.5,1016,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1016,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1016,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,1016,21,0)="^.001^10^10^3000530^^^^"
^DD(165.5,1016,21,1,0)=""
^DD(165.5,1016,21,2,0)="This field describes the absolute value of each liver function test"
^DD(165.5,1016,21,3,0)="administered to the patient prior to the start of the first course of"
^DD(165.5,1016,21,4,0)="treatment.  This information can typically be found in either the"
^DD(165.5,1016,21,5,0)="patient's hospital chart or laboratory records.  Record test results"
^DD(165.5,1016,21,6,0)="as whole numbers, round decimals to the nearest integer; for example"
^DD(165.5,1016,21,7,0)="12.5 would be rounded up to 13, and 4.4 would be rounded down to 4."
^DD(165.5,1016,21,8,0)="If a particular test was not administered, code 00000.  If a test was"
^DD(165.5,1016,21,9,0)="administered but the result unknown, code 99999."
^DD(165.5,1016,21,10,0)=""
^DD(165.5,1016,"DT")="3000107"
^DD(165.5,1017,0)="BILIRUBIN (mg/ml)^FO^^HEP1;18^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(165.5,1017,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1017,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1017,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,1017,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1017,21,1,0)=""
^DD(165.5,1017,21,2,0)="This field describes the absolute value of each liver function test"
^DD(165.5,1017,21,3,0)="administered to the patient prior to the start of the first course of"
^DD(165.5,1017,21,4,0)="treatment.  This information can typically be found in either the"
^DD(165.5,1017,21,5,0)="patient's hospital chart or laboratory records.  Record test results"
^DD(165.5,1017,21,6,0)="as whole numbers, round decimals to the nearest integer; for example"
^DD(165.5,1017,21,7,0)="12.5 would be rounded up to 13, and 4.4 would be rounded down to 4."
^DD(165.5,1017,21,8,0)="If a particular test was not administered, code 00000.  If a test was"
^DD(165.5,1017,21,9,0)="administered but the result unknown, code 99999."
^DD(165.5,1017,21,10,0)=""
^DD(165.5,1017,"DT")="3000107"
^DD(165.5,1018,0)="ALBUMIN (g/dl)^FO^^HEP1;19^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(165.5,1018,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1018,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1018,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,1018,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1018,21,1,0)=""
^DD(165.5,1018,21,2,0)="This field describes the absolute value of each liver function test"
^DD(165.5,1018,21,3,0)="administered to the patient prior to the start of the first course of"
^DD(165.5,1018,21,4,0)="treatment.  This information can typically be found in either the"
^DD(165.5,1018,21,5,0)="patient's hospital chart or laboratory records.  Record test results"
^DD(165.5,1018,21,6,0)="as whole numbers, round decimals to the nearest integer; for example"
^DD(165.5,1018,21,7,0)="12.5 would be rounded up to 13, and 4.4 would be rounded down to 4."
^DD(165.5,1018,21,8,0)="If a particular test was not administered, code 00000.  If a test was"
^DD(165.5,1018,21,9,0)="administered but the result unknown, code 99999."
^DD(165.5,1018,21,10,0)=""
^DD(165.5,1018,"DT")="3000107"
^DD(165.5,1019,0)="LDH (U/I)^FO^^HEP1;20^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(165.5,1019,2)="S Y(0)=Y S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1019,2.1)="S Y=$S($L(Y)=1:""0000""_Y,$L(Y)=2:""000""_Y,$L(Y)=3:""00""_Y,$L(Y)=4:""0""_Y,1:Y)"
^DD(165.5,1019,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(165.5,1019,21,0)="^.001^10^10^3000530^^^^"
^DD(165.5,1019,21,1,0)=""
^DD(165.5,1019,21,2,0)="This field describes the absolute value of each liver function test"
^DD(165.5,1019,21,3,0)="administered to the patient prior to the start of the first course of"
^DD(165.5,1019,21,4,0)="treatment.  This information can typically be found in either the"
^DD(165.5,1019,21,5,0)="patient's hospital chart or laboratory records.  Record test results"
^DD(165.5,1019,21,6,0)="as whole numbers, round decimals to the nearest integer; for example"
^DD(165.5,1019,21,7,0)="12.5 would be rounded up to 13, and 4.4 would be rounded down to 4."
^DD(165.5,1019,21,8,0)="If a particular test was not administered, code 00000.  If a test was"
^DD(165.5,1019,21,9,0)="administered but the result unknown, code 99999."
^DD(165.5,1019,21,10,0)=""
^DD(165.5,1019,"DT")="3000107"
^DD(165.5,1020,0)="CT ARTERIAL PORT-PERFORMED^S^0:Not performed;1:Performed;9:Unknown;^HEP1;21^Q"
^DD(165.5,1020,21,0)="^.001^10^10^3000530^^^^"
^DD(165.5,1020,21,1,0)=""
^DD(165.5,1020,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1020,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1020,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1020,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1020,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1020,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1020,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1020,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1020,21,10,0)=""
^DD(165.5,1020,"DT")="3000107"
^DD(165.5,1021,0)="CT ARTERIAL PORT-CIRRHOSIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;22^Q"
^DD(165.5,1021,21,0)="^.001^10^10^3000530^^^^"
^DD(165.5,1021,21,1,0)=""
^DD(165.5,1021,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1021,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1021,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1021,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1021,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1021,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1021,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1021,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1021,21,10,0)=""
^DD(165.5,1021,"DT")="3000107"
^DD(165.5,1022,0)="CT ARTERIAL PORT-VASCULAR INV^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;23^Q"
^DD(165.5,1022,21,0)="^.001^10^10^3000530^^^^"
^DD(165.5,1022,21,1,0)=""
^DD(165.5,1022,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1022,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1022,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1022,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1022,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1022,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1022,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1022,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1022,21,10,0)=""
^DD(165.5,1022,"DT")="3000107"
^DD(165.5,1023,0)="CT ARTERIAL PORT-BILOBAR DIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;24^Q"
^DD(165.5,1023,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1023,21,1,0)=""
^DD(165.5,1023,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1023,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1023,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1023,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1023,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1023,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1023,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1023,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1023,21,10,0)=""
^DD(165.5,1023,"DT")="3000107"
^DD(165.5,1024,0)="CT ARTERIAL PORT-LYMPH NODES^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;25^Q"
^DD(165.5,1024,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1024,21,1,0)=""
^DD(165.5,1024,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1024,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1024,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1024,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1024,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1024,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1024,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1024,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1024,21,10,0)=""
^DD(165.5,1024,"DT")="3000107"
^DD(165.5,1025,0)="CT ARTERIAL PORT-SIZE OF TUMOR^FOX^^HEP1;26^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S X=$S($L(X)=1:""00""_X,$L(X)=2:""0""_X,1:X) W:X=""000"" "" Not performed"" W:X=""999"" "" Performed, size unknown"""
^DD(165.5,1025,2)="S Y(0)=Y S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1025,2.1)="S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1025,3)="Enter 000-Not performed; 001-998; 999 Performed, size unknown"
^DD(165.5,1025,21,0)="^.001^15^15^3000530^^^^"
^DD(165.5,1025,21,1,0)=""
^DD(165.5,1025,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1025,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1025,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1025,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1025,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1025,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1025,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1025,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1025,21,10,0)=""
^DD(165.5,1025,21,11,0)="The size of the dominant tumor describes the dimension or diameter of the"
^DD(165.5,1025,21,12,0)="largest identified tumor in millimeters (1 cm = 10 mm). If the tumor has"
^DD(165.5,1025,21,13,0)="multiple measurements, code the largest size. For example, if the dominant"
^DD(165.5,1025,21,14,0)="or largest tumor is reported as measuring 3x4.4x2.5 cm, then code as 044."
^DD(165.5,1025,21,15,0)=" "
^DD(165.5,1025,"DT")="3000107"
^DD(165.5,1026,0)="CT ARTERIAL PORT-NUM 0F TUMORS^FXO^^HEP1;27^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S X=$S($L(X)=1:""0""_X,1:X) W:X=""00"" "" Not performed"" W:X=""99"" "" Performed, number unknown"""
^DD(165.5,1026,2)="S Y(0)=Y S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1026,2.1)="S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1026,3)="Enter 00-Not performed; 01-98; 99-Performed, number unknown"
^DD(165.5,1026,21,0)="^.001^10^10^3000530^^^^"
^DD(165.5,1026,21,1,0)=""
^DD(165.5,1026,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1026,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1026,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1026,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1026,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1026,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1026,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1026,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1026,21,10,0)=""
^DD(165.5,1026,"DT")="3000107"
^DD(165.5,1027,0)="SPIRAL CT-PERFORMED^S^0:Not performed;1:Performed;9:Unknown;^HEP1;28^Q"
^DD(165.5,1027,21,0)="^.001^10^10^3000530^^^^"
^DD(165.5,1027,21,1,0)=""
^DD(165.5,1027,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1027,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1027,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1027,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1027,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1027,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1027,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1027,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1027,21,10,0)=""
^DD(165.5,1027,"DT")="3000107"
^DD(165.5,1028,0)="SPIRAL CT-CIRRHOSIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;29^Q"
^DD(165.5,1028,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1028,21,1,0)=""
^DD(165.5,1028,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1028,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1028,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1028,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1028,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1028,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1028,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1028,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1028,21,10,0)=""
^DD(165.5,1028,"DT")="3000107"
^DD(165.5,1029,0)="SPIRAL CT-VASCULAR INV^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;30^Q"
^DD(165.5,1029,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1029,21,1,0)=""
^DD(165.5,1029,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1029,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1029,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1029,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1029,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1029,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1029,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1029,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1029,21,10,0)=""
^DD(165.5,1029,"DT")="3000107"
^DD(165.5,1030,0)="SPIRAL CT-BILOBAR DIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;31^Q"
^DD(165.5,1030,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1030,21,1,0)=""
^DD(165.5,1030,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1030,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1030,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1030,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1030,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1030,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1030,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1030,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1030,21,10,0)=""
^DD(165.5,1030,"DT")="3000107"
^DD(165.5,1031,0)="SPIRAL CT-LYMPH NODES^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;32^Q"
^DD(165.5,1031,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1031,21,1,0)=""
^DD(165.5,1031,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1031,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1031,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1031,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1031,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1031,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1031,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1031,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1031,21,10,0)=""
^DD(165.5,1031,"DT")="3000107"
^DD(165.5,1032,0)="SPIRAL CT-SIZE OF TUMOR^FXO^^HEP1;33^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S X=$S($L(X)=1:""00""_X,$L(X)=2:""0""_X,1:X) W:X=""000"" "" Not performed"" W:X=""999"" "" Performed, size unknown"""
^DD(165.5,1032,2)="S Y(0)=Y S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1032,2.1)="S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1032,3)="Enter 000-Not performed; 001-998; 999 Performed, size unknown"
^DD(165.5,1032,21,0)="^.001^15^15^3000530^^^"
^DD(165.5,1032,21,1,0)=""
^DD(165.5,1032,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1032,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1032,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1032,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1032,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1032,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1032,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1032,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1032,21,10,0)=""
^DD(165.5,1032,21,11,0)="The size of the dominant tumor describes the dimension or diameter of the"
^DD(165.5,1032,21,12,0)="largest identified tumor in millimeters (1 cm = 10 mm). If the tumor has"
^DD(165.5,1032,21,13,0)="multiple measurements, code the largest size. For example, if the dominant"
^DD(165.5,1032,21,14,0)="or largest tumor is reported as measuring 3x4.4x2.5 cm, then code as 044."
^DD(165.5,1032,21,15,0)=""
^DD(165.5,1032,"DT")="3000107"
^DD(165.5,1033,0)="SPIRAL CT-NUM OF TUMORS^FXO^^HEP1;34^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S X=$S($L(X)=1:""0""_X,1:X) W:X=""00"" "" Not performed"" W:X=""99"" "" Performed, number unknown"""
^DD(165.5,1033,2)="S Y(0)=Y S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1033,2.1)="S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1033,3)="Enter 00-Not performed; 01-98; 99-Performed, number unknown"
^DD(165.5,1033,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1033,21,1,0)=""
^DD(165.5,1033,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1033,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1033,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1033,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1033,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1033,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1033,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1033,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1033,21,10,0)=""
^DD(165.5,1033,"DT")="3000107"
^DD(165.5,1034,0)="INCREMENTAL CT-PERFORMED^S^0:Not performed;1:Performed;9:Unknown;^HEP1;35^Q"
^DD(165.5,1034,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1034,21,1,0)=""
^DD(165.5,1034,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1034,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1034,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1034,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1034,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1034,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1034,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1034,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1034,21,10,0)=""
^DD(165.5,1034,"DT")="3000107"
^DD(165.5,1035,0)="INCREMENTAL CT-CIRRHOSIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;36^Q"
^DD(165.5,1035,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1035,21,1,0)=""
^DD(165.5,1035,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1035,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1035,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1035,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1035,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1035,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1035,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1035,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1035,21,10,0)=""
^DD(165.5,1035,"DT")="3000107"
^DD(165.5,1036,0)="INCREMENTAL CT-VASCULAR INV^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;37^Q"
^DD(165.5,1036,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1036,21,1,0)=""
^DD(165.5,1036,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1036,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1036,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1036,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1036,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1036,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1036,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1036,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1036,21,10,0)=""
^DD(165.5,1036,"DT")="3000107"
^DD(165.5,1037,0)="INCREMENTAL CT-BILOBAR DIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;38^Q"
^DD(165.5,1037,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1037,21,1,0)=""
^DD(165.5,1037,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1037,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1037,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1037,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1037,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1037,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1037,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1037,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1037,21,10,0)=""
^DD(165.5,1037,"DT")="3000107"
^DD(165.5,1038,0)="INCREMENTAL CT-LYMPH NODES^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;39^Q"
^DD(165.5,1038,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1038,21,1,0)=""
^DD(165.5,1038,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1038,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1038,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1038,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1038,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1038,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1038,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1038,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1038,21,10,0)=""
^DD(165.5,1038,"DT")="3000107"
^DD(165.5,1039,0)="INCREMENTAL CT-SIZE OF TUMOR^FXO^^HEP1;40^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S X=$S($L(X)=1:""00""_X,$L(X)=2:""0""_X,1:X) W:X=""000"" "" Not performed"" W:X=""999"" "" Performed, size unknown"""
^DD(165.5,1039,2)="S Y(0)=Y S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1039,2.1)="S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1039,3)="Enter 000-Not performed; 001-998; 999 Performed, size unknown"
^DD(165.5,1039,21,0)="^.001^15^15^3000530^^^"
^DD(165.5,1039,21,1,0)=""
^DD(165.5,1039,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1039,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1039,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1039,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1039,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1039,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1039,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1039,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1039,21,10,0)=""
^DD(165.5,1039,21,11,0)="The size of the dominant tumor describes the dimension or diameter of the"
^DD(165.5,1039,21,12,0)="largest identified tumor in millimeters (1 cm = 10 mm). If the tumor has"
^DD(165.5,1039,21,13,0)="multiple measurements, code the largest size. For example, if the dominant"
^DD(165.5,1039,21,14,0)="or largest tumor is reported as measuring 3x4.4x2.5 cm, then code as 044."
^DD(165.5,1039,21,15,0)=""
^DD(165.5,1039,"DT")="3000107"
^DD(165.5,1040,0)="INCREMENTAL CT-NUM 0F TUMORS^FXO^^HEP1;41^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S X=$S($L(X)=1:""0""_X,1:X) W:X=""00"" "" Not performed"" W:X=""99"" "" Performed, number unknown"""
^DD(165.5,1040,2)="S Y(0)=Y S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1040,2.1)="S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1040,3)="Enter 00-Not performed; 01-98; 99-Performed, number unknown"
^DD(165.5,1040,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1040,21,1,0)=""
^DD(165.5,1040,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1040,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1040,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1040,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1040,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1040,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1040,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1040,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1040,21,10,0)=""
^DD(165.5,1040,"DT")="3000107"
^DD(165.5,1041,0)="ULTRASOUND-PERFORMED^S^0:Not performed;1:Performed;9:Unknown;^HEP1;42^Q"
^DD(165.5,1041,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1041,21,1,0)=""
^DD(165.5,1041,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1041,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1041,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1041,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1041,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1041,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1041,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1041,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1041,21,10,0)=""
^DD(165.5,1041,"DT")="3000107"
^DD(165.5,1042,0)="ULTRASOUND-CIRRHOSIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;43^Q"
^DD(165.5,1042,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1042,21,1,0)=""
^DD(165.5,1042,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1042,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1042,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1042,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1042,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1042,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1042,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1042,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1042,21,10,0)=""
^DD(165.5,1042,"DT")="3000107"
^DD(165.5,1043,0)="ULTRASOUND-VASCULAR INV^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;44^Q"
^DD(165.5,1043,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1043,21,1,0)=""
^DD(165.5,1043,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1043,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1043,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1043,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1043,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1043,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1043,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1043,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1043,21,10,0)=""
^DD(165.5,1043,"DT")="3000107"
^DD(165.5,1044,0)="ULTRASOUND-BILOBAR DIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;45^Q"
^DD(165.5,1044,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1044,21,1,0)=""
^DD(165.5,1044,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1044,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1044,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1044,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1044,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1044,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1044,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1044,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1044,21,10,0)=""
^DD(165.5,1044,"DT")="3000107"
^DD(165.5,1045,0)="ULTRASOUND-LYMPH NODES^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;46^Q"
^DD(165.5,1045,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1045,21,1,0)=""
^DD(165.5,1045,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1045,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1045,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1045,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1045,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1045,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1045,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1045,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1045,21,10,0)=""
^DD(165.5,1045,"DT")="3000107"
^DD(165.5,1046,0)="ULTRASOUND-SIZE OF TUMOR^FXO^^HEP1;47^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S X=$S($L(X)=1:""00""_X,$L(X)=2:""0""_X,1:X) W:X=""000"" "" Not performed"" W:X=""999"" "" Performed, size unknown"""
^DD(165.5,1046,2)="S Y(0)=Y S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1046,2.1)="S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1046,3)="Enter 000-Not performed; 001-998; 999 Performed, size unknown"
^DD(165.5,1046,21,0)="^.001^15^15^3000530^^^"
^DD(165.5,1046,21,1,0)=""
^DD(165.5,1046,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1046,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1046,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1046,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1046,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1046,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1046,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1046,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1046,21,10,0)=""
^DD(165.5,1046,21,11,0)="The size of the dominant tumor describes the dimension or diameter of the"
^DD(165.5,1046,21,12,0)="largest identified tumor in millimeters (1 cm = 10 mm). If the tumor has"
^DD(165.5,1046,21,13,0)="multiple measurements, code the largest size. For example, if the dominant"
^DD(165.5,1046,21,14,0)="or largest tumor is reported as measuring 3x4.4x2.5 cm, then code as 044."
^DD(165.5,1046,21,15,0)=""
^DD(165.5,1046,"DT")="3000107"
^DD(165.5,1047,0)="ULTRASOUND-NUM 0F TUMORS^FXO^^HEP1;48^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S X=$S($L(X)=1:""0""_X,1:X) W:X=""00"" "" Not performed"" W:X=""99"" "" Performed, number unknown"""
^DD(165.5,1047,2)="S Y(0)=Y S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1047,2.1)="S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1047,3)="Enter 00-Not performed; 01-98; 99-Performed, number unknown"
^DD(165.5,1047,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1047,21,1,0)=""
^DD(165.5,1047,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1047,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1047,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1047,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1047,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1047,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1047,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1047,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1047,21,10,0)=""
^DD(165.5,1047,"DT")="3000107"
^DD(165.5,1048,0)="MRI-PERFORMED^S^0:Not performed;1:Performed;9:Unknown;^HEP1;49^Q"
^DD(165.5,1048,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1048,21,1,0)=""
^DD(165.5,1048,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1048,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1048,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1048,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1048,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1048,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1048,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1048,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1048,21,10,0)=""
^DD(165.5,1048,"DT")="3000107"
^DD(165.5,1049,0)="MRI-CIRRHOSIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;50^Q"
^DD(165.5,1049,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1049,21,1,0)=""
^DD(165.5,1049,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1049,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1049,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1049,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1049,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1049,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1049,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1049,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1049,21,10,0)=""
^DD(165.5,1049,"DT")="3000107"
^DD(165.5,1050,0)="MRI-VASCULAR INV^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;51^Q"
^DD(165.5,1050,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1050,21,1,0)=""
^DD(165.5,1050,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1050,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1050,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1050,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1050,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1050,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1050,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1050,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1050,21,10,0)=""
^DD(165.5,1050,"DT")="3000107"
^DD(165.5,1051,0)="MRI-BILOBAR DIS^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;52^Q"
^DD(165.5,1051,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1051,21,1,0)=""
^DD(165.5,1051,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1051,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1051,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1051,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1051,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1051,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1051,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1051,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1051,21,10,0)=""
^DD(165.5,1051,"DT")="3000107"
^DD(165.5,1052,0)="MRI-LYMPH NODES^S^0:NO;1:Yes;8:NA;9:Unknown;^HEP1;53^Q"
^DD(165.5,1052,21,0)="^.001^10^10^3000530^^"
^DD(165.5,1052,21,1,0)=""
^DD(165.5,1052,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1052,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1052,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1052,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1052,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1052,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1052,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1052,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1052,21,10,0)=""
^DD(165.5,1052,"DT")="3000107"
^DD(165.5,1053,0)="MRI-SIZE OF TUMOR^FXO^^HEP1;54^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S X=$S($L(X)=1:""00""_X,$L(X)=2:""0""_X,1:X) W:X=""000"" "" Not performed"" W:X=""999"" "" Performed, size unknown"""
^DD(165.5,1053,2)="S Y(0)=Y S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1053,2.1)="S Y=$S(Y=""000"":""Not performed"",Y=999:""Performed, size unknown"",1:Y)"
^DD(165.5,1053,3)="Enter 000-Not performed; 001-998; 999 Performed, size unknown"
^DD(165.5,1053,21,0)="^.001^15^15^3000530^^^^"
^DD(165.5,1053,21,1,0)=""
^DD(165.5,1053,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1053,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1053,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1053,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1053,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1053,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1053,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1053,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1053,21,10,0)=""
^DD(165.5,1053,21,11,0)="The size of the dominant tumor describes the dimension or diameter of the"
^DD(165.5,1053,21,12,0)="largest identified tumor in millimeters (1 cm = 10 mm). If the tumor has"
^DD(165.5,1053,21,13,0)="multiple measurements, code the largest size. For example, if the dominant"
^DD(165.5,1053,21,14,0)="or largest tumor is reported as measuring 3x4.4x2.5 cm, then code as 044."
^DD(165.5,1053,21,15,0)=""
^DD(165.5,1053,"DT")="3000107"
^DD(165.5,1054,0)="MRI-NUM 0F TUMORS^FXO^^HEP1;55^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S X=$S($L(X)=1:""0""_X,1:X) W:X=""00"" "" Not performed"" W:X=""99"" "" Performed, number unknown"""
^DD(165.5,1054,2)="S Y(0)=Y S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1054,2.1)="S Y=$S(Y=""00"":""Not performed"",Y=99:""Performed, number unknown"",1:Y)"
^DD(165.5,1054,3)="Enter 00-Not performed; 01-98; 99-Performed, number unknown"
^DD(165.5,1054,21,0)="^.001^10^10^3000530^^^"
^DD(165.5,1054,21,1,0)=""
^DD(165.5,1054,21,2,0)="This field describes the findings from each type of radiological imaging"
^DD(165.5,1054,21,3,0)="technique utilized in the evaluation of the patient. Record four pieces"
^DD(165.5,1054,21,4,0)="of information, 1) whether the imaging technique was performed; 2) whether"
^DD(165.5,1054,21,5,0)="the presence of cirrhosis, bilobar disease, vascular invasion, or enlarged"
^DD(165.5,1054,21,6,0)="lymph nodes were noted; 3) record the size of the dominant (largest) tumor"
^DD(165.5,1054,21,7,0)="in millimeters, and 4) the number of tumor nodules present.  This"
^DD(165.5,1054,21,8,0)="information can typically be found in either the patient's hospital chart,"
^DD(165.5,1054,21,9,0)="the managing physician's notes, or the managing radiologist's notes.    "
^DD(165.5,1054,21,10,0)=""
^DD(165.5,1054,"DT")="3000107"
^DD(165.5,1055,0)="DEFINITIVE DIAGNOSIS^S^1:Percutaneous biopsy;2:At definitive cancer-directed surgery;3:Incidental at liver transplantation;9:Unknown;^HEP1;56^Q"
^DD(165.5,1055,21,0)="^^7^7^3000110^"
^DD(165.5,1055,21,1,0)=""
^DD(165.5,1055,21,2,0)="This field describes whether the DEFINITIVE DIAGNOSIS was achieved"
^DD(165.5,1055,21,3,0)="by percutaneous biopsy; at the time of the definitive cancer-directed"
^DD(165.5,1055,21,4,0)="surgical procedure; or at the time of pathologic examination of an"
^DD(165.5,1055,21,5,0)="explanted liver specimen.  This information can typically by found in"
^DD(165.5,1055,21,6,0)="either the patient's hospital or clinical chart, or operative note."
^DD(165.5,1055,21,7,0)=""
^DD(165.5,1055,"DT")="3000110"
^DD(165.5,1056,0)="RADIO-FREQUENCY DESTRUCTION^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;57^Q"
^DD(165.5,1056,21,0)="^^6^6^3000110^"
^DD(165.5,1056,21,1,0)=""
^DD(165.5,1056,21,2,0)="This field describes cancer-directed surgery of the primary site which"
^DD(165.5,1056,21,3,0)="does not appear as part of the Commission on Cancer's required surgical"
^DD(165.5,1056,21,4,0)="codes.  If SURGERY OF PRIMARY SITE (question 36) was coded 17 then record"
^DD(165.5,1056,21,5,0)="whether the patient received RADIO-FREQUENCY DESTRUCTION of the tumor."
^DD(165.5,1056,21,6,0)=""
^DD(165.5,1056,"DT")="3000110"
^DD(165.5,1057,0)="ABLATION & RESECTION^S^00:Ablation & resection not administered;11:Photodynamic therapy;12:Electrocautery, fulguration;13:Cryosurgery;14:Laser;15:Alcohol;16:Heat;17:Radio-frequency;18:Other;88:NA;99:Ablation administered, type unknown;^HEP1;58^Q"
^DD(165.5,1057,21,0)="^^8^8^3000110^"
^DD(165.5,1057,21,1,0)=""
^DD(165.5,1057,21,2,0)="This field describes the combination of ablative surgery and resection"
^DD(165.5,1057,21,3,0)="administered to the primary site.  If the patient received both ablation"
^DD(165.5,1057,21,4,0)="and resection, record the ablative surgical therapy administered.  If"
^DD(165.5,1057,21,5,0)="the patient did not receive a combination of surgical ablation and"
^DD(165.5,1057,21,6,0)="resection, code 00.  If no cancer-directed surgery was administered, "
^DD(165.5,1057,21,7,0)="code 88."
^DD(165.5,1057,21,8,0)=""
^DD(165.5,1057,"DT")="3000110"
^DD(165.5,1058,0)="DISTANCE TO CLOSEST MARGIN^S^0:Margins involved;1:Negative margins, < 1cm;2:Negative margins, 1cm - 2cm;3:Negative margins, > 2cm;8:NA;9:Unknown, not described;^HEP1;59^Q"
^DD(165.5,1058,21,0)="^^7^7^3000110^^"
^DD(165.5,1058,21,1,0)=""
^DD(165.5,1058,21,2,0)="This field describes the distance from the resected tumor to the"
^DD(165.5,1058,21,3,0)="closest margin.  Code distance of margin ONLY if the tumor was"
^DD(165.5,1058,21,4,0)="surgically resected, this includes tumors which were ablated and"
^DD(165.5,1058,21,5,0)="resected.  If no cancer-directed surgery was administered, or if "
^DD(165.5,1058,21,6,0)="the tumor was surgically ablated only, code 8."
^DD(165.5,1058,21,7,0)=""
^DD(165.5,1058,"DT")="3000110"
^DD(165.5,1059,0)="ABLATION^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;60^Q"
^DD(165.5,1059,21,0)="^^8^8^3000110^^^^"
^DD(165.5,1059,21,1,0)=""
^DD(165.5,1059,21,2,0)="This field describes the surgical treatment of either microscopic or"
^DD(165.5,1059,21,3,0)="macroscopic residual tumor remaining AFTER the most definitive surgery"
^DD(165.5,1059,21,4,0)="of the primary site.  Record whether this remaining tumor was ablated"
^DD(165.5,1059,21,5,0)="and/or resected.  Ablation includes: photodynamic therapy; electrocautery;"
^DD(165.5,1059,21,6,0)="fulguration; cryosurgery; laser; alcohol; heat; radio-frequency; ultra-"
^DD(165.5,1059,21,7,0)="sound; acetic acid."
^DD(165.5,1059,21,8,0)=" "
^DD(165.5,1059,"DT")="3000110"
^DD(165.5,1060,0)="RESECTION^S^0:No;1:Yes;8:NA;9:Unknown;^HEP1;61^Q"
^DD(165.5,1060,21,0)="^^8^8^3000110^"
^DD(165.5,1060,21,1,0)=""
^DD(165.5,1060,21,2,0)="This field describes the surgical treatment of either microscopic or"
^DD(165.5,1060,21,3,0)="macroscopic residual tumor remaining AFTER the most definitive surgery"
^DD(165.5,1060,21,4,0)="of the primary site.  Record whether this remaining tumor was ablated"
^DD(165.5,1060,21,5,0)="and/or resected.  Resection includes: wedge resection, NOS; segmental"
^DD(165.5,1060,21,6,0)="resection; lobectomy, NOS (simple and extended); total hepatectomy with"
^DD(165.5,1060,21,7,0)="transplant; hepatectomy, NOS."
^DD(165.5,1060,21,8,0)=""
^DD(165.5,1060,"DT")="3000110"
^DD(165.5,1061,0)="CISPLATIN^S^0:No;1:Yes;8:Recommended, not known if administered;9:Unknown if recommended or administered;^HEP1;62^Q"
^DD(165.5,1061,21,0)="^.001^5^5^3000530^^^"
^DD(165.5,1061,21,1,0)=""
^DD(165.5,1061,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1061,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1061,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1061,21,5,0)=""
^DD(165.5,1061,"DT")="3000111"
^DD(165.5,1062,0)="FUDR^S^0:No;1:Yes;8:Recommended, not known if administered;9:Unknown if recommended or administered;^HEP1;63^Q"
^DD(165.5,1062,21,0)="^.001^5^5^3000530^^^"
^DD(165.5,1062,21,1,0)=""
^DD(165.5,1062,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1062,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1062,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1062,21,5,0)=""
^DD(165.5,1062,"DT")="3000111"
^DD(165.5,1063,0)="5-FU^S^0:No;1:Yes;8:Recommended, not known if administered;9:Unknown if recommended or administered;^HEP1;64^Q"
^DD(165.5,1063,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1063,21,1,0)=""
^DD(165.5,1063,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1063,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1063,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1063,21,5,0)=""
^DD(165.5,1063,"DT")="3000111"
^DD(165.5,1064,0)="FU & LEUCOVORIN^S^0:No;1:Yes;8:Recommended, not known if administered;9:Unknown if recommended or administered;^HEP1;65^Q"
^DD(165.5,1064,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1064,21,1,0)=""
^DD(165.5,1064,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1064,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1064,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1064,21,5,0)=""
^DD(165.5,1064,"DT")="3000111"
^DD(165.5,1065,0)="IRINOTECAN (CPT-11)^S^0:No;1:Yes;8:Recommended, not known if administered;9:Unknown if recommended or administered;^HEP1;66^Q"
^DD(165.5,1065,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1065,21,1,0)=""
^DD(165.5,1065,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1065,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1065,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1065,21,5,0)=""
^DD(165.5,1065,"DT")="3000111"
^DD(165.5,1066,0)="MITOMYCIN C^S^0:No;1:Yes;8:Recommended, now known if administered;9:Unknown if recommended or administered;^HEP1;67^Q"
^DD(165.5,1066,21,0)="^.001^5^5^3000530^^^"
^DD(165.5,1066,21,1,0)=""
^DD(165.5,1066,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1066,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1066,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1066,21,5,0)=""
^DD(165.5,1066,"DT")="3000111"
^DD(165.5,1067,0)="OXALIPLATIN^S^0:No;1:Yes;8:Recommended, not known if administered;9:Unknown if recommended or administered;^HEP1;68^Q"
^DD(165.5,1067,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1067,21,1,0)=""
^DD(165.5,1067,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1067,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1067,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1067,21,5,0)=""
^DD(165.5,1067,"DT")="3000111"
^DD(165.5,1068,0)="GEMCITABINE^S^0:No;1:Yes;8:Recommended, not known if administered;9:Unknown if recommended or administered;^HEP1;69^Q"
^DD(165.5,1068,21,0)="^.001^5^5^3000530^^"
^DD(165.5,1068,21,1,0)=""
^DD(165.5,1068,21,2,0)="This field describes whether this type of chemotherapeutic agent was"
^DD(165.5,1068,21,3,0)="administered.  This information can typically be found in either the"
^DD(165.5,1068,21,4,0)="patient's hospital chart or the managing medical oncologist's notes."
^DD(165.5,1068,21,5,0)=""
^DD(165.5,1068,"DT")="3000111"
^DD(165.5,1069,0)="ROUTE CHEMO ADMIN^S^01:Intrathecal;02:Intra-arterial, bolus;03:Intravenous inf;04:Hepatic inf;05:Intra-arterial chemoembolization;06:Intratumoral inj of alcohol;07:Portal inf;08:Orally;09:Intramuscular;88:NA;99:Chemo admin, route unk;^HEP1;70^Q"
^DD(165.5,1069,21,0)="^.001^6^6^3000420^^"
^DD(165.5,1069,21,1,0)=""
^DD(165.5,1069,21,2,0)="This field describes the route/method by which chemotherapy was"
^DD(165.5,1069,21,3,0)="administered.  This information can typically be found in either"
^DD(165.5,1069,21,4,0)="the patient's hospital chart or the managing medical oncologist's"
^DD(165.5,1069,21,5,0)="notes."
^DD(165.5,1069,21,6,0)=""
^DD(165.5,1069,"DT")="3000111"
^DD(165.5,1070,0)="CHEMOTHERAPY/SURGERY SEQUENCE^S^0:No chemotherapy and/or no surgery;1:Chemotherapy before surgery;2:Chemotherapy after surgery;3:Chemotherapy before and after surgery;9:Chemotherapy and surgery, sequence unknown;^HEP1;71^Q"
^DD(165.5,1070,21,0)="^^4^4^3000111^"
^DD(165.5,1070,21,1,0)=""
^DD(165.5,1070,21,2,0)="This field describes the sequence in which chemotherapy and primary"
^DD(165.5,1070,21,3,0)="tumor cancer-directed surgery were administered."
^DD(165.5,1070,21,4,0)=""
^DD(165.5,1070,"DT")="3000111"
^DD(165.5,1071,0)="ARTERIAL EMBOLIZATION^S^0:No;1:Yes;9:Unknown;^HEP1;72^Q"
^DD(165.5,1071,21,0)="^^7^7^3000111^"
^DD(165.5,1071,21,1,0)=""
^DD(165.5,1071,21,2,0)="This field describes whether the patient had their tumor embolized "
^DD(165.5,1071,21,3,0)="without chemotherapy.  This procedure involves the embolizing or"
^DD(165.5,1071,21,4,0)="clotting of a portion of the hepatic artery to disrupt the blood"
^DD(165.5,1071,21,5,0)="flow to the tumor.  Information about this treatment modality can"
^DD(165.5,1071,21,6,0)="be found in the Vascular/Interventional Radiology procedure notes."
^DD(165.5,1071,21,7,0)=""
^DD(165.5,1071,"DT")="3000111"
^DD(165.5,1072,0)="DEATH W/I 30 DAYS START TX^S^0:No;1:Yes;9:Unknown;^HEP1;73^Q"
^DD(165.5,1072,21,0)="^^4^4^3000111^"
^DD(165.5,1072,21,1,0)=""
^DD(165.5,1072,21,2,0)="This field describes whether the patient died from any cause within"
^DD(165.5,1072,21,3,0)="30 days of the start of cancer-directed therapy."
^DD(165.5,1072,21,4,0)=""
^DD(165.5,1072,"DT")="3000111"
^DD(165.5,1100,0)="HISTORY OF MELANOMA (PT)^S^0:None;1:Yes, synchronous or <2 months;2:Yes, 2 months to <4 years;3:Yes, 4 years to <7 years;4:Yes, 7 years to <15 years;5:Yes, 15 years or more;6:Yes, time period unknown;9:Unk if history of melanoma exists;^MEL1;1^Q"
^DD(165.5,1100,21,0)="^^5^5^2990106^^^"
^DD(165.5,1100,21,1,0)=""
^DD(165.5,1100,21,2,0)="Record if patient had or currently has any personal history of"
^DD(165.5,1100,21,3,0)="other melanoma and, if so, how far back it occurred in relation"
^DD(165.5,1100,21,4,0)="to the present melanoma."
^DD(165.5,1100,21,5,0)=""
^DD(165.5,1100,"DT")="2990106"
^DD(165.5,1101,0)="HISTORY OF OTHER CANCER (PT)^S^0:No;1:Yes;9:Unknown;^MEL1;2^Q"
^DD(165.5,1101,21,0)="^^3^3^2990108^^"
^DD(165.5,1101,21,1,0)=""
^DD(165.5,1101,21,2,0)="Record if the patient had any history of other types of cancer."
^DD(165.5,1101,21,3,0)=""
^DD(165.5,1101,"DT")="2990108"
^DD(165.5,1102,0)="FIRST SITE CODE^P164'O^ONCO(164,^MEL1;3^Q"
^DD(165.5,1102,2)="S Y(0)=Y S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1102,2.1)="S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1102,21,0)="^^7^7^2990106^^^"
^DD(165.5,1102,21,1,0)=""
^DD(165.5,1102,21,2,0)="Record the primary site of the most recent other cancer with which"
^DD(165.5,1102,21,3,0)="the patient has been diagnosed, if any.  If no previous cancer was"
^DD(165.5,1102,21,4,0)="diagnosed, code 000.  If a previous cancer was diagnosed, but the"
^DD(165.5,1102,21,5,0)="site is unknown, code 888.  If it is unknown whether a history of"
^DD(165.5,1102,21,6,0)="other cancers exists for the patient, code 999."
^DD(165.5,1102,21,7,0)=""
^DD(165.5,1102,"DT")="2990107"
^DD(165.5,1103,0)="FIRST SITE DIAGNOSIS DATE^DXO^^MEL1;4^D CHDTIT^ONCOPCE"
^DD(165.5,1103,2)="S Y(0)=Y D CHDTOT^ONCOPCE"
^DD(165.5,1103,2.1)="D CHDTOT^ONCOPCE"
^DD(165.5,1103,21,0)="^^7^7^2990304^^"
^DD(165.5,1103,21,1,0)=""
^DD(165.5,1103,21,2,0)="Record the date on which the most recent other cancer was diagnosed."
^DD(165.5,1103,21,3,0)="If no previous cancer was diagnosed, code the date with 0's.  If a"
^DD(165.5,1103,21,4,0)="previous cancer was diagnosed, but the date is unknown, code the date"
^DD(165.5,1103,21,5,0)="with 8's.  If it is unknown whether a history of other cancers exists"
^DD(165.5,1103,21,6,0)="for the patient, code the date with 9's."
^DD(165.5,1103,21,7,0)=""
^DD(165.5,1103,"DT")="2990108"
^DD(165.5,1104,0)="SECOND SITE CODE^P164'O^ONCO(164,^MEL1;5^Q"
^DD(165.5,1104,2)="S Y(0)=Y S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1104,2.1)="S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1104,21,0)="^^7^7^2990106^"
^DD(165.5,1104,21,1,0)=""
^DD(165.5,1104,21,2,0)="Record the primary site of the second most recent other cancer with"
^DD(165.5,1104,21,3,0)="which the patient has been diagnosed, if any.  If no previous cancer"
^DD(165.5,1104,21,4,0)="was diagnosed, code 000.  If a previous cancer was diagnosed, but the"
^DD(165.5,1104,21,5,0)="site is unknown, code 888.  If it is unknown whether a history of"
^DD(165.5,1104,21,6,0)="other cancers exists for the patient, code 999."
^DD(165.5,1104,21,7,0)=""
^DD(165.5,1104,"DT")="2990107"
^DD(165.5,1105,0)="SECOND SITE DIAGNOSIS DATE^DOX^^MEL1;6^D CHDTIT^ONCOPCE"
^DD(165.5,1105,2)="S Y(0)=Y D CHDTOT^ONCOPCE"
^DD(165.5,1105,2.1)="D CHDTOT^ONCOPCE"
^DD(165.5,1105,3)=""
^DD(165.5,1105,21,0)="^^7^7^2990107^^"
^DD(165.5,1105,21,1,0)=""
^DD(165.5,1105,21,2,0)="Record the date on which the second most recent other cancer"
^DD(165.5,1105,21,3,0)="was diagnosed.  If no previous cancer was diagnosed, code the"
^DD(165.5,1105,21,4,0)="date 00/00/00.  If a previous cancer was diagnosed, but the date is"
^DD(165.5,1105,21,5,0)="unknown, code the date 88/88/88.  If it is unknown whether a history"
^DD(165.5,1105,21,6,0)="of other cancers exists for the patient, code the date 99/99/99."
^DD(165.5,1105,21,7,0)=""
^DD(165.5,1105,"DT")="2990108"
^DD(165.5,1106,0)="PREGNANCY AT INITIAL DIAGNOSIS^S^0:No;1:Yes;8:NA, male;9:Unknown;^MEL1;7^Q"
^DD(165.5,1106,21,0)="^^3^3^2990108^^"
^DD(165.5,1106,21,1,0)=""
^DD(165.5,1106,21,2,0)="Record whether the patient was pregnant at the time of initial diagnosis."
^DD(165.5,1106,21,3,0)=""
^DD(165.5,1106,"DT")="2990108"
^DD(165.5,1107,0)="EXOGENOUS HORMONES^S^0:None;1:Yes, HRT (hormone replacement therapy);2:Yes, OC (oral contraceptives);3:Yes, both HRT and OC;4:Yes, type unknown;8:NA, male;9:Unknown;^MEL1;8^Q"
^DD(165.5,1107,21,0)="^^5^5^2990112^^^^"
^DD(165.5,1107,21,1,0)=""
^DD(165.5,1107,21,2,0)="Record whether the patient was receiving prescribed exogenous therapy"
^DD(165.5,1107,21,3,0)="at the time of initial diagnosis and the number of years of therapy."
^DD(165.5,1107,21,4,0)="For this question, exogenous hormones are estrogen"
^DD(165.5,1107,21,5,0)=""
^DD(165.5,1107,"DT")="2990112"
^DD(165.5,1108,0)="DISEASE PRESENTATION LOCATION^S^1:Solitary cutaneous/subcutaneous;2:Multiple cutaneous/subcutaneous;3:Nodal;4:Visceral;5:Other;8:NA, primary site known;9:Unknown;^MEL1;9^Q"
^DD(165.5,1108,21,0)="^^4^4^2990108^"
^DD(165.5,1108,21,1,0)=""
^DD(165.5,1108,21,2,0)="Record the location of the disease presentation.  If the primary"
^DD(165.5,1108,21,3,0)="site is known, code as 8, not applicable."
^DD(165.5,1108,21,4,0)=""
^DD(165.5,1108,"DT")="2990108"
^DD(165.5,1109,0)="TYPE OF BIOPSY^S^0:No biopsy performed;1:Excisional;2:Punch;3:Incisional;4:Shave;5:Saucerization;6:Fine needle aspiration;8:NA, non-cutaneous melanoma;9:Unknown;^MEL1;10^Q"
^DD(165.5,1109,21,0)="^^4^4^2990111^"
^DD(165.5,1109,21,1,0)=""
^DD(165.5,1109,21,2,0)="Record the appropriate code for cutaneous melanomas only."
^DD(165.5,1109,21,3,0)="Code 8, not applicable, for non-cutaneous sites."
^DD(165.5,1109,21,4,0)=""
^DD(165.5,1109,"DT")="2990111"
^DD(165.5,1110,0)="EXTRANODAL EXTENSION^S^0:None;1:Microscopic, 2mm or less;2:Gross, greater than 2mm;3:Present, size unknown;8:NA, no nodes examined;9:Unknown;^MEL1;11^Q"
^DD(165.5,1110,21,0)="^^4^4^2990108^"
^DD(165.5,1110,21,1,0)=""
^DD(165.5,1110,21,2,0)="Record whether extranodal extension was determined on gross (greater"
^DD(165.5,1110,21,3,0)="than 2mm) observation or microscopic (2mm or less) observation."
^DD(165.5,1110,21,4,0)=""
^DD(165.5,1110,"DT")="2990108"
^DD(165.5,1111,0)="MICROSATELLITOSIS^S^0:No;1:Yes;8:NA, non-cutaneous melanoma;9:Unknown;^MEL1;12^Q"
^DD(165.5,1111,21,0)="^^6^6^2990108^"
^DD(165.5,1111,21,1,0)=""
^DD(165.5,1111,21,2,0)="Record the presence of microsatellitosis.  They are visualized with"
^DD(165.5,1111,21,3,0)="the aid of a microscope and defined as discrete nests of melanoma"
^DD(165.5,1111,21,4,0)="cells >0.05mm, noncontiguous and clearly separated from the main body"
^DD(165.5,1111,21,5,0)="of the tumor by normal reticular dermal collagen or subcutaneous fat."
^DD(165.5,1111,21,6,0)=""
^DD(165.5,1111,"DT")="2990108"
^DD(165.5,1112,0)="NUMBER OF SATELLITE NODULES^FXO^^MEL1;13^K:$L(X)>2!($L(X)<1) X I $D(X) D NSNIT^ONCOMNI"
^DD(165.5,1112,2)="S Y(0)=Y D NSNOT^ONCOMNI"
^DD(165.5,1112,2.1)="D NSNOT^ONCOMNI"
^DD(165.5,1112,3)="Answer must be 1-2 numbers, no decimal point."
^DD(165.5,1112,21,0)="^^8^8^2990112^^^"
^DD(165.5,1112,21,1,0)=""
^DD(165.5,1112,21,2,0)="Record the number of satellite nodules within 2 cm of the primary"
^DD(165.5,1112,21,3,0)="tumor.  If there were no satellite nodules, microsatellitosis not"
^DD(165.5,1112,21,4,0)="present, record 00.  If there were multiple nodules but an exact"
^DD(165.5,1112,21,5,0)="number is not stated, record 97.  Record 98 if not applicable, non-"
^DD(165.5,1112,21,6,0)="cutaneous melanoma.  Record 99 if it is unknown whether there were"
^DD(165.5,1112,21,7,0)="satellite nodules."
^DD(165.5,1112,21,8,0)=""
^DD(165.5,1112,"DT")="2990108"
^DD(165.5,1113,0)="LOCATION OF IN-TRANSIT NODULES^S^0:None;1:Regional;2:Distant;3:Other;4:Present, location unknown;8:NA, non-cutaneous melanoma;9:Unknown;^MEL1;14^Q"
^DD(165.5,1113,21,0)="^^4^4^2990108^"
^DD(165.5,1113,21,1,0)=""
^DD(165.5,1113,21,2,0)="Record the location of in-transit nodules that were farthest from the"
^DD(165.5,1113,21,3,0)="primary lesion but not beyond the site of primary lymph node drainage."
^DD(165.5,1113,21,4,0)=""
^DD(165.5,1113,"DT")="2990108"
^DD(165.5,1114,0)="BRESLOW'S THICKNESS^FXO^^MEL1;15^K:$L(X)>3!($L(X)<1) X I $D(X) D BTIT^ONCOMNI"
^DD(165.5,1114,2)="S Y(0)=Y D BTOT^ONCOMNI"
^DD(165.5,1114,2.1)="D BTOT^ONCOMNI"
^DD(165.5,1114,3)="Answer must be 1-3 numbers, no decimal point."
^DD(165.5,1114,21,0)="^^7^7^2990112^^^"
^DD(165.5,1114,21,1,0)=""
^DD(165.5,1114,21,2,0)="Record the thickness of the primary lesion in millimeters using"
^DD(165.5,1114,21,3,0)="Breslow's method to measure the depth of the invasion.  Record from"
^DD(165.5,1114,21,4,0)="the pathology report.  Record 997 if cutaneous melanoma, Breslow's"
^DD(165.5,1114,21,5,0)="thickness unknown.  Record 998, not applicable if non-cutaneous melanoma."
^DD(165.5,1114,21,6,0)="Record 999 if cutaneous melanoma, but the primary site is unknown."
^DD(165.5,1114,21,7,0)=""
^DD(165.5,1114,"DT")="2990108"
^DD(165.5,1115,0)="CLARK'S LEVEL OF INVASION^S^1:I;2:II;3:III;4:IV;5:V;8:NA, primary site unknown;9:Unknown;^MEL1;16^Q"
^DD(165.5,1115,21,0)="^^19^19^2990108^^"
^DD(165.5,1115,21,1,0)=""
^DD(165.5,1115,21,2,0)="There are 5 levels of invasion.  Convert level from Roman to Arabic"
^DD(165.5,1115,21,3,0)="numerals.  Code 8, not applicable, if primary site unknown or non-"
^DD(165.5,1115,21,4,0)="cutaneous melanoma.  Code 9 if Clark's level is unknown."
^DD(165.5,1115,21,5,0)=""
^DD(165.5,1115,21,6,0)="1. Level I:   All tumor cells confined to the epidermis with no invasion"
^DD(165.5,1115,21,7,0)="              through the basement membrane (in situ melanoma)."
^DD(165.5,1115,21,8,0)=""
^DD(165.5,1115,21,9,0)="2. Level II:  Tumor cells penetrating through the basement membrane into"
^DD(165.5,1115,21,10,0)="              the papillary dermis but not extending to the reticular dermis."
^DD(165.5,1115,21,11,0)=""
^DD(165.5,1115,21,12,0)="3. Level III: Tumor cells filling the papillary dermis and abutting against"
^DD(165.5,1115,21,13,0)="              the reticular dermis but not invading it."
^DD(165.5,1115,21,14,0)=""
^DD(165.5,1115,21,15,0)="4. Level IV:  Extension of tumor cells between the bundles of collagen"
^DD(165.5,1115,21,16,0)="              characteristic of the reticular dermis."
^DD(165.5,1115,21,17,0)=""
^DD(165.5,1115,21,18,0)="5. Level V:   Invasion into the subcutaneous tissue."
^DD(165.5,1115,21,19,0)=""
^DD(165.5,1115,"DT")="2990108"
^DD(165.5,1116,0)="ANGIOLYMPHATIC INVASION^S^0:No;1:Yes;8:NA, site unknown or ocular;9:Unknown;^MEL1;17^Q"
^DD(165.5,1116,21,0)="^^8^8^2990129^^"
^DD(165.5,1116,21,1,0)=""
^DD(165.5,1116,21,2,0)="Record if this histologic feature was noted in the pathology report."
^DD(165.5,1116,21,3,0)="Angiolymphatic invasion can be pathologically evaluated using either"
^DD(165.5,1116,21,4,0)="the whole tissue specimen or tissue taken from a core biopsy.  Code 8,"
^DD(165.5,1116,21,5,0)="not applicable, in situations in which either there was no specimen,"
^DD(165.5,1116,21,6,0)="a specimen was not adequately large enough to determine these factors,"
^DD(165.5,1116,21,7,0)="or the primary site was unknown."
^DD(165.5,1116,21,8,0)=""
^DD(165.5,1116,"DT")="2990129"
^DD(165.5,1117,0)="PERINEURAL INVASION^S^0:No;1:Yes;8:NA, site unknown or ocular;9:Unknown;^MEL1;18^Q"
^DD(165.5,1117,21,0)="^^8^8^2990129^^^"
^DD(165.5,1117,21,1,0)=""
^DD(165.5,1117,21,2,0)="Record if this histologic feature was noted in the pathology report."
^DD(165.5,1117,21,3,0)="Perineural invasion can be pathologically evaluated using either the"
^DD(165.5,1117,21,4,0)="whole tissue specimen or tissue taken from a core biopsy.  Code 8,"
^DD(165.5,1117,21,5,0)="not applicable, in situations in which either there was no specimen,"
^DD(165.5,1117,21,6,0)="a specimen was not adequately large enough to determine these factors,"
^DD(165.5,1117,21,7,0)="or the primary site was unknown."
^DD(165.5,1117,21,8,0)=""
^DD(165.5,1117,"DT")="2990129"
^DD(165.5,1118,0)="ULCERATION^S^0:No;1:Yes;8:NA, site unknown or ocular;9:Unknown;^MEL1;19^Q"
^DD(165.5,1118,21,0)="^^7^7^2990129^^"
^DD(165.5,1118,21,1,0)=""
^DD(165.5,1118,21,2,0)="Record whether the primary site was ulcerated.  Ulceration is defined"
^DD(165.5,1118,21,3,0)="as a microscopic interruption of the surface epithelium involved by"
^DD(165.5,1118,21,4,0)="tumor.  This does not alter the staging procedure but is typically"
^DD(165.5,1118,21,5,0)="associated with a worse prognosis.  Code 8, not applicable, if a"
^DD(165.5,1118,21,6,0)="primary site is mucosal, occular or unknown."
^DD(165.5,1118,21,7,0)=""
^DD(165.5,1118,"DT")="2990129"
^DD(165.5,1119,0)="CLINICALLY AMELANOTIC^S^0:No;1:Yes;8:NA, site unknown or ocular;9:Unknown;^MEL1;20^Q"
^DD(165.5,1119,21,0)="^^8^8^2990129^^"
^DD(165.5,1119,21,1,0)=""
^DD(165.5,1119,21,2,0)="Record whether the primary site was lacking in melanin.  Frequently,"
^DD(165.5,1119,21,3,0)="terms such as brownish, black, blue or tan are used to describe a"
^DD(165.5,1119,21,4,0)="primary site with melanin.  Primary sites lacking melanin may be"
^DD(165.5,1119,21,5,0)="described as non-pigmented or not dark.  Primary sites which are"
^DD(165.5,1119,21,6,0)="reported to appear red or have redness should be considered amelanotic."
^DD(165.5,1119,21,7,0)="Code 8, not applicable, if primary site is mucosal, ocular or unknown."
^DD(165.5,1119,21,8,0)=""
^DD(165.5,1119,"DT")="2990129"
^DD(165.5,1120,0)="MARGIN DISTANCE (MEL)^FXO^^MEL1;21^K:$L(X)>3!($L(X)<1) X I $D(X) D MDIT^ONCOMNI"
^DD(165.5,1120,2)="S Y(0)=Y D MDOT^ONCOMNI"
^DD(165.5,1120,2.1)="D MDOT^ONCOMNI"
^DD(165.5,1120,3)="Answer must be 1-3 numbers, no decimal point."
^DD(165.5,1120,21,0)="^^4^4^2990112^^^^"
^DD(165.5,1120,21,1,0)=""
^DD(165.5,1120,21,2,0)="If margins are free according to the operative report, record the shortest"
^DD(165.5,1120,21,3,0)="distance in millimeters from the tumor to the edge of specimen (margin)."
^DD(165.5,1120,21,4,0)=""
^DD(165.5,1120,"DT")="2990112"
^DD(165.5,1121,0)="SURGICAL CLOSURE^S^1:Primary or suture closure;2:Split-thickness skin graft;3:Flap;4:Full-thickness skin graft;5:Other, NOS;8:NA, surgery not performed;9:Unknown;^MEL1;22^Q"
^DD(165.5,1121,21,0)="^^4^4^2990112^^"
^DD(165.5,1121,21,1,0)=""
^DD(165.5,1121,21,2,0)="Record the type of surgical closure.  Code 8, not applicable if"
^DD(165.5,1121,21,3,0)="surgery was not performed for this site."
^DD(165.5,1121,21,4,0)=""
^DD(165.5,1121,"DT")="2990112"
^DD(165.5,1122,0)="PRE-OP LYMPHOSCINTIGRAPHY^S^0:No;1:Yes, unidirectional flow;2:Yes, multidirectional flow;3:Yes, flow unknown;8:NA, ocular site;9:Unknown;^MEL1;23^Q"
^DD(165.5,1122,21,0)="^^6^6^2990112^"
^DD(165.5,1122,21,1,0)=""
^DD(165.5,1122,21,2,0)="Record whether lymphoscintigraphy was performed, and if done, what"
^DD(165.5,1122,21,3,0)="was the flow.  Unidirectional flow indicates that only one lynph node"
^DD(165.5,1122,21,4,0)="basin drained the site.   Multidirectional flow indicates that more"
^DD(165.5,1122,21,5,0)="than one lymph node basin drained the site."
^DD(165.5,1122,21,6,0)=""
^DD(165.5,1122,"DT")="2990112"
^DD(165.5,1123,0)="SENTINEL NODES DETECTED BY^S^0:Not done;1:Vital blue die;2:Radiolabeled colloid;3:Combination of 1 and 2;4:Done, method unknown;8:NA, not done, ocular site;9:Unknown;^MEL1;24^Q"
^DD(165.5,1123,21,0)="^^3^3^2990205^^^^"
^DD(165.5,1123,21,1,0)=""
^DD(165.5,1123,21,2,0)="Record the method of detecion of the sentinel node."
^DD(165.5,1123,21,3,0)=""
^DD(165.5,1123,"DT")="2990129"
^DD(165.5,1124,0)="SENTINEL NODES EXAMINED (MEL)^S^0:No nodes;1:1 node;2:2 nodes;3:3 nodes;4:4 nodes;5:5 nodes;6:6 or more nodes;7:Nodes examined, number unknown;8:NA, not done, ocular site;9:Unknown;^MEL1;25^Q"
^DD(165.5,1124,21,0)="^^3^3^2990205^^^^"
^DD(165.5,1124,21,1,0)=""
^DD(165.5,1124,21,2,0)="Enter the exact number of sentinel nodes examined."
^DD(165.5,1124,21,3,0)=""
^DD(165.5,1124,"DT")="2990129"
^DD(165.5,1125,0)="SENTINEL NODES POSITIVE (MEL)^SX^0:No nodes;1:1 node;2:2 nodes;3:3 nodes;4:4 nodes;5:5 nodes;6:6 or more nodes;7:Nodes positive, number unknown;8:NA, not done, no exam, ocular site;9:Unknown;^MEL1;26^D SNPIT^ONCOMNI"
^DD(165.5,1125,21,0)="^^3^3^2990129^^^"
^DD(165.5,1125,21,1,0)=""
^DD(165.5,1125,21,2,0)="Enter the exact number of sentinel nodes positive."
^DD(165.5,1125,21,3,0)=""
^DD(165.5,1125,"DT")="2990226"
^DD(165.5,1126,0)="METHOD OF PATHOLOGIC EXAM^S^0:Not examined;1:Routine staining;2:Immunochemistry;3:Serial sectioning;4:PCR;5:Other;6:Any comb of 1,2,3,4;7:Examined, method unknown;8:NA, not done, ocular site;9:Unknown;^MEL1;27^Q"
^DD(165.5,1126,21,0)="^^3^3^2990205^^^^"
^DD(165.5,1126,21,1,0)=""
^DD(165.5,1126,21,2,0)="Record the method of pathological examination of the sentinel node."
^DD(165.5,1126,21,3,0)=""
^DD(165.5,1126,"DT")="2990205"
^DD(165.5,1127,0)="LYMPH NODE DISSECTION^S^0:No;1:Yes;8:NA, not done, no + nodes, ocular site;9:Unknown;^MEL1;28^Q"
^DD(165.5,1127,21,0)="^^5^5^2990205^^^"
^DD(165.5,1127,21,1,0)=""
^DD(165.5,1127,21,2,0)="If sentinel node(s) positive, record if a complete node dissection"
^DD(165.5,1127,21,3,0)="was performed.  A complete node dissection is the dissection of"
^DD(165.5,1127,21,4,0)="all nodes found in a particular basin."
^DD(165.5,1127,21,5,0)=""
^DD(165.5,1127,"DT")="2990205"
^DD(165.5,1128,0)="NUMBER OF BASINS DISSECTED^S^0:No basins;1:1 basin;2:2 basins;3:3 basins;4:4 basins;5:5 basins;6:6 or more basins;7:Basins dissected, number unknown;8:NA, not done, no + nodes, ocular site;Unknown:Unknown;^MEL1;29^Q"
^DD(165.5,1128,21,0)="^^3^3^2990205^^^^"
^DD(165.5,1128,21,1,0)=""
^DD(165.5,1128,21,2,0)="If sentinel node(s) positive, record the number of basins dissected."
^DD(165.5,1128,21,3,0)=""
^DD(165.5,1128,"DT")="2990205"
^DD(165.5,1129,0)="NUMBER OF BASINS POSITIVE^SX^0:No basins;1:1 basin;2:2 basins;3:3 basins;4:4 basins;5:5 basins;6:6 or more basins;7:Basins positive, number unknown;8:NA, not done, no basins dissected, ocular;9:Unknown;^MEL1;30^D NBPIT^ONCOMNI"
^DD(165.5,1129,21,0)="^^5^5^2990205^^^^"
^DD(165.5,1129,21,1,0)=""
^DD(165.5,1129,21,2,0)="If sentinel node(s) positive, record the number of basins positive."
^DD(165.5,1129,21,3,0)="A positive basin is one in which at least one lymph node, other than"
^DD(165.5,1129,21,4,0)="the sentinel node, is determined to be positive."
^DD(165.5,1129,21,5,0)=""
^DD(165.5,1129,"DT")="2990308"
^DD(165.5,1130,0)="INTRAVENOUS THERAPY^S^1:Yes, systemic;2:Yes, regional;3:Yes, combination of 1 and 2;7:Yes, type unknown;8:NA, chemotherapy not administered;9:Unknown if chemotherapy administered;^MEL1;31^Q"
^DD(165.5,1130,21,0)="^^3^3^2990301^^^"
^DD(165.5,1130,21,1,0)=""
^DD(165.5,1130,21,2,0)="Record how the intravenous therapy was given."
^DD(165.5,1130,21,3,0)=""
^DD(165.5,1130,"DT")="2990301"
^DD(165.5,1131,0)="GENE THERAPY^S^0:No;1:Yes;8:NA;9:Unknown;^MEL1;32^Q"
^DD(165.5,1131,21,0)="^^3^3^2990114^^"
^DD(165.5,1131,21,1,0)=""
^DD(165.5,1131,21,2,0)="Record whether the patient received this adjuvant immunotherapy."
^DD(165.5,1131,21,3,0)=""
^DD(165.5,1131,"DT")="2990114"
^DD(165.5,1132,0)="SIZE OF TUMOR (MELANOMA)^NJ3,0XO^^MEL1;33^D STMIT^ONCOOT"
^DD(165.5,1132,2)="S Y(0)=Y S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y) D STMOT^ONCOOT"
^DD(165.5,1132,2.1)="S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y) D STMOT^ONCOOT"
^DD(165.5,1132,3)="Record the largest dimension or diameter, not depth, of the primary tumor."
^DD(165.5,1132,21,0)="^^15^15^2990428^^^^"
^DD(165.5,1132,21,1,0)=""
^DD(165.5,1132,21,2,0)="SIZE OF TUMOR (MELANOMA) is the largest dimension, or the diameter of"
^DD(165.5,1132,21,3,0)="the primary tumor, and is always recorded in millimeters.  Record the"
^DD(165.5,1132,21,4,0)="largest diameter of the primary tumor for cutaneous melanomas.  Record"
^DD(165.5,1132,21,5,0)="the tumor size for clinically diagnosed ocular melanoma.  Record 998"
^DD(165.5,1132,21,6,0)="for mucosal melanomas.  Record 999 when the primary site is unknown or"
^DD(165.5,1132,21,7,0)="tumor size is not recorded or not available."
^DD(165.5,1132,21,8,0)=""
^DD(165.5,1132,21,9,0)="IMPORTANT NOTE:"
^DD(165.5,1132,21,10,0)="Do NOT confuse this item with SIZE OF TUMOR in ROADS.  For malignant"
^DD(165.5,1132,21,11,0)="melanoma SIZE OF TUMOR in ROADS records ""depth of invasion"" and is"
^DD(165.5,1132,21,12,0)="equivalent to PCE item #30 (BRESLOW'S THICKNESS).  SIZE OF TUMOR"
^DD(165.5,1132,21,13,0)="(MELANOMA) records the largest dimension or diameter of the primary"
^DD(165.5,1132,21,14,0)="tumor."
^DD(165.5,1132,21,15,0)=""
^DD(165.5,1132,"DT")="2990428"
^DD(165.5,1200,0)="HANDEDNESS^S^1:Left handed;2:Right handed;3:Ambidextrous;9:Unknown;^CNS1;1^Q"
^DD(165.5,1200,21,0)="^^4^4^3000114^"
^DD(165.5,1200,21,1,0)=""
^DD(165.5,1200,21,2,0)="This field describes whether the patient is left handed, right handed"
^DD(165.5,1200,21,3,0)="or ambidextrous."
^DD(165.5,1200,21,4,0)=""
^DD(165.5,1200,"DT")="3000114"
^DD(165.5,1201,0)="HYPERTENSION^S^0:No;1:Yes;9:Unknown;^CNS1;2^Q"
^DD(165.5,1201,21,0)="^.001^3^3^3000530^^^^"
^DD(165.5,1201,21,1,0)=""
^DD(165.5,1201,21,2,0)="This field describes a patient's prior medical condition."
^DD(165.5,1201,21,3,0)=""
^DD(165.5,1201,"DT")="3000114"
^DD(165.5,1202,0)="MULTIPLE SCLEROSIS (MS)^S^0:No;1:Yes;9:Unknown;^CNS1;3^Q"
^DD(165.5,1202,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1202,21,1,0)=""
^DD(165.5,1202,21,2,0)="This field describes a patient's prior medical condition."
^DD(165.5,1202,21,3,0)=""
^DD(165.5,1202,"DT")="3000114"
^DD(165.5,1203,0)="DIABETES^S^0:No;1:Yes;9:Unknown;^CNS1;4^Q"
^DD(165.5,1203,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1203,21,1,0)=""
^DD(165.5,1203,21,2,0)="This field describes a patient's prior medical condition."
^DD(165.5,1203,21,3,0)=""
^DD(165.5,1203,"DT")="3000114"
^DD(165.5,1204,0)="CEREBROVASCULAR DISEASE^S^0:No;1:Yes;9:Unknown;^CNS1;5^Q"
^DD(165.5,1204,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1204,21,1,0)=""
^DD(165.5,1204,21,2,0)="This field describes a patient's prior medical condition."
^DD(165.5,1204,21,3,0)=""
^DD(165.5,1204,"DT")="3000114"
^DD(165.5,1205,0)="BRAIN^S^0:No;1:Yes;9:Unknown;^CNS1;6^Q"
^DD(165.5,1205,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1205,21,1,0)=""
^DD(165.5,1205,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1205,21,3,0)=""
^DD(165.5,1205,"DT")="3000114"
^DD(165.5,1206,0)="BREAST^S^0:No;1:Yes;9:Unknown;^CNS1;7^Q"
^DD(165.5,1206,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1206,21,1,0)=""
^DD(165.5,1206,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1206,21,3,0)=""
^DD(165.5,1206,"DT")="3000114"
^DD(165.5,1207,0)="PROSTATE^S^0:No;1:Yes;9:Unknown;^CNS1;8^Q"
^DD(165.5,1207,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1207,21,1,0)=""
^DD(165.5,1207,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1207,21,3,0)=""
^DD(165.5,1207,"DT")="3000114"
^DD(165.5,1208,0)="MALIGNANT MELANOMA^S^0:No;1:Yes;9:Unknown;^CNS1;9^Q"
^DD(165.5,1208,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1208,21,1,0)=""
^DD(165.5,1208,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1208,21,3,0)=""
^DD(165.5,1208,"DT")="3000114"
^DD(165.5,1209,0)="OTHER SKIN CANCER^S^0:No;1:Yes;9:Unknown;^CNS1;10^Q"
^DD(165.5,1209,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1209,21,1,0)=""
^DD(165.5,1209,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1209,21,3,0)=""
^DD(165.5,1209,"DT")="3000114"
^DD(165.5,1210,0)="LEUKEMIA^S^0:No;1:Yes;9:Unknown;^CNS1;11^Q"
^DD(165.5,1210,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1210,21,1,0)=""
^DD(165.5,1210,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1210,21,3,0)=""
^DD(165.5,1210,"DT")="3000114"
^DD(165.5,1211,0)="COLON OR OTHER GI CANCERS^S^0:No;1:Yes;9:Unknown;^CNS1;12^Q"
^DD(165.5,1211,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1211,21,1,0)=""
^DD(165.5,1211,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1211,21,3,0)=""
^DD(165.5,1211,"DT")="3000114"
^DD(165.5,1212,0)="OTHER PERSONAL HISTORY OF CA^S^0:No;1:Yes;9:Unknown;^CNS1;13^Q"
^DD(165.5,1212,21,0)="^.001^3^3^3000530^^^^"
^DD(165.5,1212,21,1,0)=""
^DD(165.5,1212,21,2,0)="This field describes a patient's prior history of any cancers."
^DD(165.5,1212,21,3,0)=""
^DD(165.5,1212,"DT")="3000127"
^DD(165.5,1213,0)="NEUROFIBROMATOSIS^S^0:No;1:Yes;9:Unknown;^CNS1;14^Q"
^DD(165.5,1213,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1213,21,1,0)=""
^DD(165.5,1213,21,2,0)="This field describes a patient's predispostion to brain/CNS tumors.  "
^DD(165.5,1213,21,3,0)=""
^DD(165.5,1213,"DT")="3000118"
^DD(165.5,1214,0)="VON HIPPEL-LINDAU DISEASE^S^0:No;1:Yes;9:Unknown;^CNS1;15^Q"
^DD(165.5,1214,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1214,21,1,0)=""
^DD(165.5,1214,21,2,0)="This field describes a patient's predispostion to brain/CNS tumors.  "
^DD(165.5,1214,21,3,0)=""
^DD(165.5,1214,"DT")="3000118"
^DD(165.5,1215,0)="TUBEROUS SCLEROSIS^S^0:No;1:Yes;9:Unknown;^CNS1;16^Q"
^DD(165.5,1215,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1215,21,1,0)=""
^DD(165.5,1215,21,2,0)="This field describes a patient's predispostion to brain/CNS tumors.  "
^DD(165.5,1215,21,3,0)=""
^DD(165.5,1215,"DT")="3000118"
^DD(165.5,1216,0)="TURCOT SYNDROME^S^0:No;1:Yes;9:Unknown;^CNS1;17^Q"
^DD(165.5,1216,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1216,21,1,0)=""
^DD(165.5,1216,21,2,0)="This field describes a patient's predispostion to brain/CNS tumors.  "
^DD(165.5,1216,21,3,0)=""
^DD(165.5,1216,"DT")="3000118"
^DD(165.5,1217,0)="LI-FRAUMENI SYNDROME^S^0:No;1:Yes;9:Unknown;^CNS1;18^Q"
^DD(165.5,1217,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1217,21,1,0)=""
^DD(165.5,1217,21,2,0)="This field describes a patient's predispostion to brain/CNS tumors.  "
^DD(165.5,1217,21,3,0)=""
^DD(165.5,1217,"DT")="3000118"
^DD(165.5,1218,0)="KOWDEN DISEASE^S^0:No;1:Yes;9:Unknown;^CNS1;19^Q"
^DD(165.5,1218,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1218,21,1,0)=""
^DD(165.5,1218,21,2,0)="This field describes a patient's predispostion to brain/CNS tumors.  "
^DD(165.5,1218,21,3,0)=""
^DD(165.5,1218,"DT")="3000118"
^DD(165.5,1219,0)="NEVOID BASAL CELL CARCINOMA^S^0:No;1:Yes;9:Unknown;^CNS1;20^Q"
^DD(165.5,1219,21,0)="^.001^3^3^3000530^^"
^DD(165.5,1219,21,1,0)=""
^DD(165.5,1219,21,2,0)="This field describes a patient's predispostion to brain/CNS tumors.  "
^DD(165.5,1219,21,3,0)=""
^DD(165.5,1219,"DT")="3000118"
^DD(165.5,1220,0)="HEADACHE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;21^Q"
^DD(165.5,1220,21,0)="^.001^4^4^3000531^^^^"
^DD(165.5,1220,21,1,0)=""
^DD(165.5,1220,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1220,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1220,21,4,0)=""
^DD(165.5,1220,"DT")="3000118"
^DD(165.5,1221,0)="NAUSEA/VOMITING^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;22^Q"
^DD(165.5,1221,21,0)="^.001^4^4^3000531^^^^"
^DD(165.5,1221,21,1,0)=""
^DD(165.5,1221,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1221,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1221,21,4,0)=""
^DD(165.5,1221,"DT")="3000118"
^DD(165.5,1222,0)="CHANGE IN SENSE OF SMELL/TASTE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;23^Q"
^DD(165.5,1222,21,0)="^.001^4^4^3000531^^^^"
^DD(165.5,1222,21,1,0)=""
^DD(165.5,1222,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1222,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1222,21,4,0)=""
^DD(165.5,1222,"DT")="3000118"
^DD(165.5,1223,0)="ALTERED ALERTNESS^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;24^Q"
^DD(165.5,1223,21,0)="^.001^4^4^3000531^^^"
^DD(165.5,1223,21,1,0)=""
^DD(165.5,1223,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1223,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1223,21,4,0)=""
^DD(165.5,1223,"DT")="3000118"
^DD(165.5,1224,0)="FATIGUE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;25^Q"
^DD(165.5,1224,21,0)="^.001^4^4^3000531^^^^"
^DD(165.5,1224,21,1,0)=""
^DD(165.5,1224,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1224,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1224,21,4,0)=""
^DD(165.5,1224,"DT")="3000118"
^DD(165.5,1225,0)="SPEECH DISTURBANCE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;26^Q"
^DD(165.5,1225,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1225,21,1,0)=""
^DD(165.5,1225,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1225,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1225,21,4,0)=""
^DD(165.5,1225,"DT")="3000118"
^DD(165.5,1226,0)="PERSONALITY CHANGES^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;27^Q"
^DD(165.5,1226,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1226,21,1,0)=""
^DD(165.5,1226,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1226,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1226,21,4,0)=""
^DD(165.5,1226,"DT")="3000118"
^DD(165.5,1227,0)="DEPRESSION^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;28^Q"
^DD(165.5,1227,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1227,21,1,0)=""
^DD(165.5,1227,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1227,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1227,21,4,0)=""
^DD(165.5,1227,"DT")="3000118"
^DD(165.5,1228,0)="MEMORY LOSS^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;29^Q"
^DD(165.5,1228,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1228,21,1,0)=""
^DD(165.5,1228,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1228,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1228,21,4,0)=""
^DD(165.5,1228,"DT")="3000118"
^DD(165.5,1229,0)="LACK OF CONCENTRATION^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;30^Q"
^DD(165.5,1229,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1229,21,1,0)=""
^DD(165.5,1229,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1229,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1229,21,4,0)=""
^DD(165.5,1229,"DT")="3000118"
^DD(165.5,1230,0)="DOUBLE VISION^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;31^Q"
^DD(165.5,1230,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1230,21,1,0)=""
^DD(165.5,1230,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1230,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1230,21,4,0)=""
^DD(165.5,1230,"DT")="3000118"
^DD(165.5,1231,0)="OTHER VISUAL DISTURBANCE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;32^Q"
^DD(165.5,1231,21,0)="^.001^4^4^3000531^^^"
^DD(165.5,1231,21,1,0)=""
^DD(165.5,1231,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1231,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1231,21,4,0)=""
^DD(165.5,1231,"DT")="3000118"
^DD(165.5,1232,0)="DECREASED HEARING^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;33^Q"
^DD(165.5,1232,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1232,21,1,0)=""
^DD(165.5,1232,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1232,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1232,21,4,0)=""
^DD(165.5,1232,"DT")="3000118"
^DD(165.5,1233,0)="VERTIGO^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;34^Q"
^DD(165.5,1233,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1233,21,1,0)=""
^DD(165.5,1233,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1233,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1233,21,4,0)=""
^DD(165.5,1233,"DT")="3000118"
^DD(165.5,1234,0)="TINNITUS^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;35^Q"
^DD(165.5,1234,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1234,21,1,0)=""
^DD(165.5,1234,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1234,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1234,21,4,0)=""
^DD(165.5,1234,"DT")="3000118"
^DD(165.5,1235,0)="NUMBNESS/TINGLING^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;36^Q"
^DD(165.5,1235,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1235,21,1,0)=""
^DD(165.5,1235,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1235,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1235,21,4,0)=""
^DD(165.5,1235,"DT")="3000118"
^DD(165.5,1236,0)="WEAKNESS OR PARALYSIS^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;37^Q"
^DD(165.5,1236,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1236,21,1,0)=""
^DD(165.5,1236,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1236,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1236,21,4,0)=""
^DD(165.5,1236,"DT")="3000118"
^DD(165.5,1237,0)="DIFFICULTY IN COORD/BALANCE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;38^Q"
^DD(165.5,1237,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1237,21,1,0)=""
^DD(165.5,1237,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1237,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1237,21,4,0)=""
^DD(165.5,1237,"DT")="3000118"
^DD(165.5,1238,0)="GENERALIZED SEIZURE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;39^Q"
^DD(165.5,1238,21,0)="^.001^4^4^3000531^^^"
^DD(165.5,1238,21,1,0)=""
^DD(165.5,1238,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1238,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1238,21,4,0)=""
^DD(165.5,1238,"DT")="3000118"
^DD(165.5,1239,0)="FOCAL SEIZURE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;40^Q"
^DD(165.5,1239,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1239,21,1,0)=""
^DD(165.5,1239,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1239,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1239,21,4,0)=""
^DD(165.5,1239,"DT")="3000118"
^DD(165.5,1240,0)="BLADDER INCONTINENCE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;41^Q"
^DD(165.5,1240,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1240,21,1,0)=""
^DD(165.5,1240,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1240,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1240,21,4,0)=""
^DD(165.5,1240,"DT")="3000118"
^DD(165.5,1241,0)="BOWEL INCONTINENCE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;42^Q"
^DD(165.5,1241,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1241,21,1,0)=""
^DD(165.5,1241,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1241,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1241,21,4,0)=""
^DD(165.5,1241,"DT")="3000118"
^DD(165.5,1242,0)="PAIN (OTHER THAN HEADACHE)^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;43^Q"
^DD(165.5,1242,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1242,21,1,0)=""
^DD(165.5,1242,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1242,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1242,21,4,0)=""
^DD(165.5,1242,"DT")="3000118"
^DD(165.5,1243,0)="WEIGHT CHANGE^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;44^Q"
^DD(165.5,1243,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1243,21,1,0)=""
^DD(165.5,1243,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1243,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1243,21,4,0)=""
^DD(165.5,1243,"DT")="3000118"
^DD(165.5,1244,0)="OTHER SYMPTOMS^S^0:No;1:Yes;9:Unknown, not stated;^CNS1;45^Q"
^DD(165.5,1244,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1244,21,1,0)=""
^DD(165.5,1244,21,2,0)="This field describes one of the symptoms specific to the brain tumor"
^DD(165.5,1244,21,3,0)="as reported by the patient or recorded in the medical chart."
^DD(165.5,1244,21,4,0)=""
^DD(165.5,1244,"DT")="3000118"
^DD(165.5,1245,0)="ALERTNESS^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;46^Q"
^DD(165.5,1245,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1245,21,1,0)=""
^DD(165.5,1245,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1245,21,3,0)="the status of the tumor."
^DD(165.5,1245,21,4,0)=""
^DD(165.5,1245,"DT")="3000119"
^DD(165.5,1246,0)="SPEECH^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;47^Q"
^DD(165.5,1246,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1246,21,1,0)=""
^DD(165.5,1246,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1246,21,3,0)="the status of the tumor."
^DD(165.5,1246,21,4,0)=""
^DD(165.5,1246,"DT")="3000119"
^DD(165.5,1247,0)="PERSONALITY^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;48^Q"
^DD(165.5,1247,21,0)="^^4^4^3000119^"
^DD(165.5,1247,21,1,0)=""
^DD(165.5,1247,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1247,21,3,0)="the status of the tumor."
^DD(165.5,1247,21,4,0)=""
^DD(165.5,1247,"DT")="3000119"
^DD(165.5,1248,0)="MEMORY OR JUDGEMENT^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;49^Q"
^DD(165.5,1248,21,0)="^^4^4^3000119^"
^DD(165.5,1248,21,1,0)=""
^DD(165.5,1248,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1248,21,3,0)="the status of the tumor."
^DD(165.5,1248,21,4,0)=""
^DD(165.5,1248,"DT")="3000119"
^DD(165.5,1249,0)="VISUAL ACUITY^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;50^Q"
^DD(165.5,1249,21,0)="^^4^4^3000119^^"
^DD(165.5,1249,21,1,0)=""
^DD(165.5,1249,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1249,21,3,0)="the status of the tumor."
^DD(165.5,1249,21,4,0)=""
^DD(165.5,1249,"DT")="3000119"
^DD(165.5,1250,0)="VISUAL FIELDS^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;51^Q"
^DD(165.5,1250,21,0)="^^4^4^3000119^^"
^DD(165.5,1250,21,1,0)=""
^DD(165.5,1250,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1250,21,3,0)="the status of the tumor."
^DD(165.5,1250,21,4,0)=""
^DD(165.5,1250,"DT")="3000119"
^DD(165.5,1251,0)="EYE MOVEMENTS (EOM)^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;52^Q"
^DD(165.5,1251,21,0)="^^4^4^3000124^^"
^DD(165.5,1251,21,1,0)=""
^DD(165.5,1251,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1251,21,3,0)="the status of the tumor."
^DD(165.5,1251,21,4,0)=""
^DD(165.5,1251,"DT")="3000119"
^DD(165.5,1252,0)="FACIAL SENSATION^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;53^Q"
^DD(165.5,1252,21,0)="^^4^4^3000124^"
^DD(165.5,1252,21,1,0)=""
^DD(165.5,1252,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1252,21,3,0)="the status of the tumor."
^DD(165.5,1252,21,4,0)=""
^DD(165.5,1252,"DT")="3000124"
^DD(165.5,1253,0)="FACIAL MOVEMENT^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;54^Q"
^DD(165.5,1253,21,0)="^^4^4^3000124^^"
^DD(165.5,1253,21,1,0)=""
^DD(165.5,1253,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1253,21,3,0)="the status of the tumor."
^DD(165.5,1253,21,4,0)=""
^DD(165.5,1253,"DT")="3000124"
^DD(165.5,1254,0)="HEARING^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;55^Q"
^DD(165.5,1254,21,0)="^.001^4^4^3000420^^"
^DD(165.5,1254,21,1,0)=""
^DD(165.5,1254,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1254,21,3,0)="the status of the tumor."
^DD(165.5,1254,21,4,0)=""
^DD(165.5,1254,"DT")="3000124"
^DD(165.5,1255,0)="GAG REFLEX^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;56^Q"
^DD(165.5,1255,21,0)="^^4^4^3000125^^"
^DD(165.5,1255,21,1,0)=""
^DD(165.5,1255,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1255,21,3,0)="the status of the tumor."
^DD(165.5,1255,21,4,0)=""
^DD(165.5,1255,"DT")="3000124"
^DD(165.5,1256,0)="STERNOCLEIDOMASTOID/SHLD STR^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;57^Q"
^DD(165.5,1256,21,0)="^^4^4^3000125^"
^DD(165.5,1256,21,1,0)=""
^DD(165.5,1256,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1256,21,3,0)="the status of the tumor."
^DD(165.5,1256,21,4,0)=""
^DD(165.5,1256,"DT")="3000125"
^DD(165.5,1257,0)="ARTICULATION OR ENUNCIATION^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;58^Q"
^DD(165.5,1257,21,0)="^^4^4^3000125^"
^DD(165.5,1257,21,1,0)=""
^DD(165.5,1257,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1257,21,3,0)="the status of the tumor."
^DD(165.5,1257,21,4,0)=""
^DD(165.5,1257,"DT")="3000125"
^DD(165.5,1258,0)="PAPILLEDEMA^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;59^Q"
^DD(165.5,1258,21,0)="^^4^4^3000125^"
^DD(165.5,1258,21,1,0)=""
^DD(165.5,1258,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1258,21,3,0)="the status of the tumor."
^DD(165.5,1258,21,4,0)=""
^DD(165.5,1258,"DT")="3000125"
^DD(165.5,1259,0)="TONGUE FASCICULATIONS/ATROPHY^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;60^Q"
^DD(165.5,1259,21,0)="^^4^4^3000125^"
^DD(165.5,1259,21,1,0)=""
^DD(165.5,1259,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1259,21,3,0)="the status of the tumor."
^DD(165.5,1259,21,4,0)=""
^DD(165.5,1259,"DT")="3000125"
^DD(165.5,1260,0)="DECREASE IN SENSATION/ANY SITE^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;61^Q"
^DD(165.5,1260,21,0)="^^5^5^3000126^^^"
^DD(165.5,1260,21,1,0)=""
^DD(165.5,1260,21,2,0)=""
^DD(165.5,1260,21,3,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1260,21,4,0)="the status of the tumor."
^DD(165.5,1260,21,5,0)=""
^DD(165.5,1260,"DT")="3000125"
^DD(165.5,1261,0)="CORTICAL SENSORY DEFICIT^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;62^Q"
^DD(165.5,1261,21,0)="^^4^4^3000126^"
^DD(165.5,1261,21,1,0)=""
^DD(165.5,1261,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1261,21,3,0)="the status of the tumor."
^DD(165.5,1261,21,4,0)=""
^DD(165.5,1261,"DT")="3000126"
^DD(165.5,1262,0)="WEAKNESS/ATROPHY/FASCICULATION^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;63^Q"
^DD(165.5,1262,21,0)="^^4^4^3000126^"
^DD(165.5,1262,21,1,0)=""
^DD(165.5,1262,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1262,21,3,0)="the status of the tumor."
^DD(165.5,1262,21,4,0)=""
^DD(165.5,1262,"DT")="3000126"
^DD(165.5,1263,0)="ATAXIA OF GAIT^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;64^Q"
^DD(165.5,1263,21,0)="^^4^4^3000126^"
^DD(165.5,1263,21,1,0)=""
^DD(165.5,1263,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1263,21,3,0)="the status of the tumor."
^DD(165.5,1263,21,4,0)=""
^DD(165.5,1263,"DT")="3000126"
^DD(165.5,1264,0)="TRUNCAL ATAXIA^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;65^Q"
^DD(165.5,1264,21,0)="^^4^4^3000126^"
^DD(165.5,1264,21,1,0)=""
^DD(165.5,1264,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1264,21,3,0)="the status of the tumor."
^DD(165.5,1264,21,4,0)=""
^DD(165.5,1264,"DT")="3000126"
^DD(165.5,1265,0)="DYSMETRIA^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;66^Q"
^DD(165.5,1265,21,0)="^^4^4^3000126^^"
^DD(165.5,1265,21,1,0)=""
^DD(165.5,1265,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1265,21,3,0)="the status of the tumor."
^DD(165.5,1265,21,4,0)=""
^DD(165.5,1265,"DT")="3000126"
^DD(165.5,1266,0)="RAPID ALTERNATING MOVEMENTS^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;67^Q"
^DD(165.5,1266,21,0)="^^4^4^3000126^"
^DD(165.5,1266,21,1,0)=""
^DD(165.5,1266,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1266,21,3,0)="the status of the tumor."
^DD(165.5,1266,21,4,0)=""
^DD(165.5,1266,"DT")="3000126"
^DD(165.5,1267,0)="FINGER TO FINGER NOSE TESTING^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;68^Q"
^DD(165.5,1267,21,0)="^^4^4^3000126^"
^DD(165.5,1267,21,1,0)=""
^DD(165.5,1267,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1267,21,3,0)="the status of the tumor."
^DD(165.5,1267,21,4,0)=""
^DD(165.5,1267,"DT")="3000126"
^DD(165.5,1268,0)="HEEL TO KNEE TO SHIN TESTING^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;69^Q"
^DD(165.5,1268,21,0)="^^4^4^3000126^"
^DD(165.5,1268,21,1,0)=""
^DD(165.5,1268,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1268,21,3,0)="the status of the tumor."
^DD(165.5,1268,21,4,0)=""
^DD(165.5,1268,"DT")="3000126"
^DD(165.5,1269,0)="DEEP TENDON REFLEXES/UPPER EXT^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;70^Q"
^DD(165.5,1269,21,0)="^^4^4^3000126^"
^DD(165.5,1269,21,1,0)=""
^DD(165.5,1269,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1269,21,3,0)="the status of the tumor."
^DD(165.5,1269,21,4,0)=""
^DD(165.5,1269,"DT")="3000126"
^DD(165.5,1270,0)="DEEP TENDON REFLEXES/LOWER EXT^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;71^Q"
^DD(165.5,1270,21,0)="^^4^4^3000126^"
^DD(165.5,1270,21,1,0)=""
^DD(165.5,1270,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1270,21,3,0)="the status of the tumor."
^DD(165.5,1270,21,4,0)=""
^DD(165.5,1270,"DT")="3000126"
^DD(165.5,1271,0)="BABINSKI SIGN^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;72^Q"
^DD(165.5,1271,21,0)="^^4^4^3000126^"
^DD(165.5,1271,21,1,0)=""
^DD(165.5,1271,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1271,21,3,0)="the status of the tumor."
^DD(165.5,1271,21,4,0)=""
^DD(165.5,1271,"DT")="3000126"
^DD(165.5,1272,0)="HOFFMAN REFLEX^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;73^Q"
^DD(165.5,1272,21,0)="^^4^4^3000126^"
^DD(165.5,1272,21,1,0)=""
^DD(165.5,1272,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1272,21,3,0)="the status of the tumor."
^DD(165.5,1272,21,4,0)=""
^DD(165.5,1272,"DT")="3000126"
^DD(165.5,1273,0)="OTHER ABNORMAL REFLEXES^S^0:No;1:Yes;8:NA, examination not done;9:Unknown;^CNS1;74^Q"
^DD(165.5,1273,21,0)="^^4^4^3000126^"
^DD(165.5,1273,21,1,0)=""
^DD(165.5,1273,21,2,0)="Record all findings from the neurological examination that evaluated"
^DD(165.5,1273,21,3,0)="the status of the tumor."
^DD(165.5,1273,21,4,0)=""
^DD(165.5,1273,"DT")="3000126"
^DD(165.5,1274,0)="ANGIOGRAPHY^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;75^Q"
^DD(165.5,1274,21,0)="^.001^4^4^3000607^^^"
^DD(165.5,1274,21,1,0)=""
^DD(165.5,1274,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1274,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1274,21,4,0)=""
^DD(165.5,1274,"DT")="3000607"
^DD(165.5,1275,0)="COMPUTED TOMOGRAPHY (CT) SCAN^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;76^Q"
^DD(165.5,1275,21,0)="^^4^4^3000126^"
^DD(165.5,1275,21,1,0)="     "
^DD(165.5,1275,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1275,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1275,21,4,0)=""
^DD(165.5,1275,"DT")="3000126"
^DD(165.5,1276,0)="CT SCAN OF SPINE^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;77^Q"
^DD(165.5,1276,21,0)="^^4^4^3000126^"
^DD(165.5,1276,21,1,0)="     "
^DD(165.5,1276,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1276,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1276,21,4,0)=""
^DD(165.5,1276,"DT")="3000126"
^DD(165.5,1277,0)="ELECTROENCEPHALOGRAPHY (EEG)^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;78^Q"
^DD(165.5,1277,21,0)="^^4^4^3000126^"
^DD(165.5,1277,21,1,0)="     "
^DD(165.5,1277,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1277,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1277,21,4,0)=""
^DD(165.5,1277,"DT")="3000126"
^DD(165.5,1278,0)="ISOTOPE BRAIN SCAN^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;79^Q"
^DD(165.5,1278,21,0)="^^4^4^3000126^"
^DD(165.5,1278,21,1,0)="     "
^DD(165.5,1278,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1278,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1278,21,4,0)=""
^DD(165.5,1278,"DT")="3000126"
^DD(165.5,1279,0)="POSITRON EMISSION TOMOGRAPHY^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;80^Q"
^DD(165.5,1279,21,0)="^^4^4^3000126^^"
^DD(165.5,1279,21,1,0)="     "
^DD(165.5,1279,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1279,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1279,21,4,0)=""
^DD(165.5,1279,"DT")="3000126"
^DD(165.5,1280,0)="SPECT SCAN^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;81^Q"
^DD(165.5,1280,21,0)="^^4^4^3000126^"
^DD(165.5,1280,21,1,0)="     "
^DD(165.5,1280,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1280,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1280,21,4,0)=""
^DD(165.5,1280,"DT")="3000126"
^DD(165.5,1281,0)="MRI OF BRAIN^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;82^Q"
^DD(165.5,1281,21,0)="^^4^4^3000126^"
^DD(165.5,1281,21,1,0)="     "
^DD(165.5,1281,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1281,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1281,21,4,0)=""
^DD(165.5,1281,"DT")="3000126"
^DD(165.5,1282,0)="MRI OF SPINE^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;83^Q"
^DD(165.5,1282,21,0)="^^4^4^3000126^"
^DD(165.5,1282,21,1,0)="     "
^DD(165.5,1282,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1282,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1282,21,4,0)=""
^DD(165.5,1282,"DT")="3000126"
^DD(165.5,1283,0)="FUNCTIONAL MRI^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;84^Q"
^DD(165.5,1283,21,0)="^^4^4^3000126^"
^DD(165.5,1283,21,1,0)="     "
^DD(165.5,1283,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1283,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1283,21,4,0)=""
^DD(165.5,1283,"DT")="3000126"
^DD(165.5,1284,0)="MYELOGRAPHY^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;85^Q"
^DD(165.5,1284,21,0)="^^4^4^3000126^"
^DD(165.5,1284,21,1,0)="     "
^DD(165.5,1284,21,2,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1284,21,3,0)="to evaluate the patient's tumor."
^DD(165.5,1284,21,4,0)=""
^DD(165.5,1284,"DT")="3000126"
^DD(165.5,1285,0)="MAGNETIC RES SPECTROSCOPY^S^0:Results -, no evidence of brain tumor;1:Results +, some indication of disease;2:Results unknown, equivocal/inconclusive;8:NA, test not done;9:Unknown if test done;^CNS1;86^Q"
^DD(165.5,1285,21,0)="^^5^5^3000126^"
^DD(165.5,1285,21,1,0)="     "
^DD(165.5,1285,21,2,0)=""
^DD(165.5,1285,21,3,0)="This field describes the results of a neurodiagnostic study performed"
^DD(165.5,1285,21,4,0)="to evaluate the patient's tumor."
^DD(165.5,1285,21,5,0)=""
^DD(165.5,1285,"DT")="3000126"
^DD(165.5,1286,0)="FRONTAL LOBE^S^0:No;1:Yes;9:Unknown;^CNS2;1^Q"
^DD(165.5,1286,21,0)="^.001^4^4^3000531^^"
^DD(165.5,1286,21,1,0)=""
^DD(165.5,1286,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1286,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1286,21,4,0)=""
^DD(165.5,1286,"DT")="3000127"
^DD(165.5,1287,0)="TEMPORAL LOBE^S^0:No;1:Yes;9:Unknown;^CNS2;2^Q"
^DD(165.5,1287,21,0)="^^4^4^3000127^"
^DD(165.5,1287,21,1,0)=""
^DD(165.5,1287,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1287,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1287,21,4,0)=""
^DD(165.5,1287,"DT")="3000127"
^DD(165.5,1288,0)="PARIETAL LOBE^S^0:No;1:Yes;9:Unknown;^CNS2;3^Q"
^DD(165.5,1288,21,0)="^^4^4^3000127^"
^DD(165.5,1288,21,1,0)=""
^DD(165.5,1288,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1288,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1288,21,4,0)=""
^DD(165.5,1288,"DT")="3000127"
^DD(165.5,1289,0)="OCCIPITAL LOBE^S^0:No;1:Yes;9:Unknown;^CNS2;4^Q"
^DD(165.5,1289,21,0)="^^4^4^3000127^"
^DD(165.5,1289,21,1,0)=""
^DD(165.5,1289,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1289,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1289,21,4,0)=""
^DD(165.5,1289,"DT")="3000127"
^DD(165.5,1290,0)="OPTIC NERVES^S^0:No;1:Yes;9:Unknown;^CNS2;5^Q"
^DD(165.5,1290,21,0)="^^4^4^3000127^"
^DD(165.5,1290,21,1,0)=""
^DD(165.5,1290,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1290,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1290,21,4,0)=""
^DD(165.5,1290,"DT")="3000127"
^DD(165.5,1291,0)="PITUITARY GLAND^S^0:No;1:Yes;9:Unknown;^CNS2;6^Q"
^DD(165.5,1291,21,0)="^^4^4^3000127^"
^DD(165.5,1291,21,1,0)=""
^DD(165.5,1291,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1291,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1291,21,4,0)=""
^DD(165.5,1291,"DT")="3000127"
^DD(165.5,1292,0)="PINEAL GLAND^S^0:No;1:Yes;9:Unknown;^CNS2;7^Q"
^DD(165.5,1292,21,0)="^^4^4^3000127^"
^DD(165.5,1292,21,1,0)=""
^DD(165.5,1292,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1292,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1292,21,4,0)=""
^DD(165.5,1292,"DT")="3000127"
^DD(165.5,1293,0)="CEREBELLUM^S^0:No;1:Yes;9:Unknown;^CNS2;8^Q"
^DD(165.5,1293,21,0)="^^4^4^3000127^"
^DD(165.5,1293,21,1,0)=""
^DD(165.5,1293,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1293,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1293,21,4,0)=""
^DD(165.5,1293,"DT")="3000127"
^DD(165.5,1294,0)="BRAIN STEM^S^0:No;1:Yes;9:Unknown;^CNS2;9^Q"
^DD(165.5,1294,21,0)="^^4^4^3000127^"
^DD(165.5,1294,21,1,0)=""
^DD(165.5,1294,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1294,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1294,21,4,0)=""
^DD(165.5,1294,"DT")="3000127"
^DD(165.5,1295,0)="SKULL BASE^S^0:No;1:Yes;9:Unknown;^CNS2;10^Q"
^DD(165.5,1295,21,0)="^^4^4^3000127^"
^DD(165.5,1295,21,1,0)=""
^DD(165.5,1295,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1295,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1295,21,4,0)=""
^DD(165.5,1295,"DT")="3000127"
^DD(165.5,1296,0)="OTHER SKULL^S^0:No;1:Yes;9:Unknown;^CNS2;11^Q"
^DD(165.5,1296,21,0)="^^4^4^3000127^"
^DD(165.5,1296,21,1,0)=""
^DD(165.5,1296,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1296,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1296,21,4,0)=""
^DD(165.5,1296,"DT")="3000127"
^DD(165.5,1297,0)="SPINAL CORD^S^0:No;1:Yes;9:Unknown;^CNS2;12^Q"
^DD(165.5,1297,21,0)="^^4^4^3000127^"
^DD(165.5,1297,21,1,0)=""
^DD(165.5,1297,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1297,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1297,21,4,0)=""
^DD(165.5,1297,"DT")="3000127"
^DD(165.5,1298,0)="CEREBRAL SPINAL FLUID (CSF)^S^0:No;1:Yes;9:Unknown;^CNS2;13^Q"
^DD(165.5,1298,21,0)="^^4^4^3000127^"
^DD(165.5,1298,21,1,0)=""
^DD(165.5,1298,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1298,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1298,21,4,0)=""
^DD(165.5,1298,"DT")="3000127"
^DD(165.5,1299,0)="CRANIAL MENINGES^S^0:No;1:Yes;9:Unknown;^CNS2;14^Q"
^DD(165.5,1299,21,0)="^^4^4^3000127^"
^DD(165.5,1299,21,1,0)=""
^DD(165.5,1299,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1299,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1299,21,4,0)=""
^DD(165.5,1299,"DT")="3000127"
^DD(165.5,1300,0)="SPINAL MENINGES^S^0:No;1:Yes;9:Unknown;^CNS2;15^Q"
^DD(165.5,1300,21,0)="^^4^4^3000127^"
^DD(165.5,1300,21,1,0)=""
^DD(165.5,1300,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1300,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1300,21,4,0)=""
^DD(165.5,1300,"DT")="3000127"
^DD(165.5,1301,0)="OTHER TUMOR LOC/INVOLVEMENT^S^0:No;1:Yes;9:Unknown;^CNS2;16^Q"
^DD(165.5,1301,21,0)="^^4^4^3000127^"
^DD(165.5,1301,21,1,0)=""
^DD(165.5,1301,21,2,0)="This field describes a location involved by the tumor.  If more than one"
^DD(165.5,1301,21,3,0)="location is involved, record all locations involved by the tumor."
^DD(165.5,1301,21,4,0)=""
^DD(165.5,1301,"DT")="3000127"
^DD(165.5,1302,0)="LEFT^S^0:No;1:Yes;9:Unknown;^CNS2;17^Q"
^DD(165.5,1302,21,0)="^^7^7^3000127^"
^DD(165.5,1302,21,1,0)=""
^DD(165.5,1302,21,2,0)="This field describes which side of the brain the tumor is located."
^DD(165.5,1302,21,3,0)="Some tumors typically involve midline structures, such as pineal and"
^DD(165.5,1302,21,4,0)="pituitary gland tumors, and extend to the left or right.  For these"
^DD(165.5,1302,21,5,0)="tumors code midline yes and indicate the side of the brain into which"
^DD(165.5,1302,21,6,0)="the tumor extends.  Bilateral tumors should be coded as left and right."
^DD(165.5,1302,21,7,0)=""
^DD(165.5,1302,"DT")="3000127"
^DD(165.5,1303,0)="RIGHT^S^0:No;1:Yes;9:Unknown;^CNS2;18^Q"
^DD(165.5,1303,21,0)="^^7^7^3000127^^"
^DD(165.5,1303,21,1,0)=""
^DD(165.5,1303,21,2,0)="This field describes which side of the brain the tumor is located."
^DD(165.5,1303,21,3,0)="Some tumors typically involve midline structures, such as pineal and"
^DD(165.5,1303,21,4,0)="pituitary gland tumors, and extend to the left or right.  For these"
^DD(165.5,1303,21,5,0)="tumors code midline yes and indicate the side of the brain into which"
^DD(165.5,1303,21,6,0)="the tumor extends.  Bilateral tumors should be coded as left and right."
^DD(165.5,1303,21,7,0)=""
^DD(165.5,1303,"DT")="3000127"
^DD(165.5,1304,0)="MIDLINE^S^0:No;1:Yes;9:Unknown;^CNS2;19^Q"
^DD(165.5,1304,21,0)="^^7^7^3000127^"
^DD(165.5,1304,21,1,0)=""
^DD(165.5,1304,21,2,0)="This field describes which side of the brain the tumor is located."
^DD(165.5,1304,21,3,0)="Some tumors typically involve midline structures, such as pineal and"
^DD(165.5,1304,21,4,0)="pituitary gland tumors, and extend to the left or right.  For these"
^DD(165.5,1304,21,5,0)="tumors code midline yes and indicate the side of the brain into which"
^DD(165.5,1304,21,6,0)="the tumor extends.  Bilateral tumors should be coded as left and right."
^DD(165.5,1304,21,7,0)=""
^DD(165.5,1304,"DT")="3000127"
^DD(165.5,1305,0)="NUMBER OF TUMORS^S^1:One tumor only;2:Multiple tumors;9:Unknown;^CNS2;20^Q"
^DD(165.5,1305,21,0)="^^3^3^3000131^^"
^DD(165.5,1305,21,1,0)=""
^DD(165.5,1305,21,2,0)="This field describes whether the tumor is singular or multiple."
^DD(165.5,1305,21,3,0)=""
^DD(165.5,1305,"DT")="3000127"
^DD(165.5,1306,0)="DATE OF FIRST SYMPTOMS^DOX^^CNS2;21^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) W:'$D(X) !,""Future dates are not allowed"""
^DD(165.5,1306,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,1306,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,1306,21,0)="^^5^5^3000201^"
^DD(165.5,1306,21,1,0)=""
^DD(165.5,1306,21,2,0)="This field describes the date of the first onset of symptoms.  This"
^DD(165.5,1306,21,3,0)="information can typically be found in the patient's history & physical."
^DD(165.5,1306,21,4,0)="If the date can not be determined or is unknown, code 99999999."
^DD(165.5,1306,21,5,0)=""
^DD(165.5,1306,"DT")="3000201"
^DD(165.5,1307,0)="DATE OF PATHOLOGIC DIAGNOSIS^DXO^^CNS2;22^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) W:'$D(X) !,""Future dates are not allowed"""
^DD(165.5,1307,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,1307,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,1307,21,0)="^^6^6^3000201^"
^DD(165.5,1307,21,1,0)=""
^DD(165.5,1307,21,2,0)="This field describes the month, day, and year that this cancer was first"
^DD(165.5,1307,21,3,0)="pathologically diagnosed.  If no pathologic diagnosis was determined,"
^DD(165.5,1307,21,4,0)="code 00000000; if the date of pathologic diagnosis is unknown or cannot"
^DD(165.5,1307,21,5,0)="be determined, code 99999999."
^DD(165.5,1307,21,6,0)=""
^DD(165.5,1307,"DT")="3000201"
^DD(165.5,1308,0)="WHO HISTOLOGICAL CL^P164.9'^ONCO(164.9,^CNS2;23^Q"
^DD(165.5,1308,21,0)="^^5^5^3000306^"
^DD(165.5,1308,21,1,0)=""
^DD(165.5,1308,21,2,0)="This field describes the WHO histological classfication of the tumor."
^DD(165.5,1308,21,3,0)="Report the appropriate WHO code that corresponds to the written"
^DD(165.5,1308,21,4,0)="description of the tumor appearing on the pathology report."
^DD(165.5,1308,21,5,0)=""
^DD(165.5,1308,"DT")="3000306"
^DD(165.5,1309,0)="MOLECULAR MARKERS^S^0:No;1:Yes;8:NA, no pathologic diagnosis;9:Unknown if molecular markers used;^CNS2;24^Q"
^DD(165.5,1309,21,0)="^^6^6^3000306^"
^DD(165.5,1309,21,1,0)=""
^DD(165.5,1309,21,2,0)="This field describes whether molecular markers were used in the pathologic"
^DD(165.5,1309,21,3,0)="evaluation of the tumor.  The most commonly used markers are GFAP, DNA"
^DD(165.5,1309,21,4,0)="analysis, and KI-67 (MIB antibody).  If a pathologic diagnosis was not"
^DD(165.5,1309,21,5,0)="made, code 8."
^DD(165.5,1309,21,6,0)=""
^DD(165.5,1309,"DT")="3000306"
^DD(165.5,1310,0)="TUMOR SIZE (SOURCE)^S^0:Size not recorded;1:CT scan w or w/o contrast;2:MRI w/o contrast;3:MRI w contrast;4:PET scan;5:SPECT scan;6:Operative report;7:Other;9:Size recorded, source unknown;^CNS2;25^Q"
^DD(165.5,1310,21,0)="^.001^5^5^3000324^^"
^DD(165.5,1310,21,1,0)=""
^DD(165.5,1310,21,2,0)="This field describes the source of the data from which the reported size"
^DD(165.5,1310,21,3,0)="of tumor was documented.  DO NOT use the pathology report to determine"
^DD(165.5,1310,21,4,0)="tumor size."
^DD(165.5,1310,21,5,0)=""
^DD(165.5,1310,"DT")="3000306"
^DD(165.5,1311,0)="KARNOFSKY'S RATING PRIOR TO TX^*P164.17'^ONCO(164.17,^CNS2;26^S DIC(""S"")=""I $P(^(0),U,1)'=888"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1311,12)="Enter the appropriate Karnofsky's Rating."
^DD(165.5,1311,12.1)="S DIC(""S"")=""I $P(^(0),U,1)'=888"""
^DD(165.5,1311,21,0)="^.001^6^6^3000719^^^^"
^DD(165.5,1311,21,1,0)=""
^DD(165.5,1311,21,2,0)="This field describes the physical status of the patient prior to the"
^DD(165.5,1311,21,3,0)="beginning of intial treatment using Karnofsky's Rating.  This is prior"
^DD(165.5,1311,21,4,0)="to any definitive therapy.  If the rating is not recorded, assign a"
^DD(165.5,1311,21,5,0)="rating based upon the best available information."
^DD(165.5,1311,21,6,0)=""
^DD(165.5,1311,"DT")="3000719"
^DD(165.5,1312,0)="PROTOCOL PARTICIPATION (CNS)^S^00:Not on;01:RTOG;02:SWOG;03:ECOG;04:POG;05:CCG;06:NCI;07:NABTT;08:NABTC;09:National protcol, NOS;10:Other institutional protocols;^CNS2;27^Q"
^DD(165.5,1312,21,0)="^^6^6^3000310^"
^DD(165.5,1312,21,1,0)=""
^DD(165.5,1312,21,2,0)="This field describes whether the patient was enrolled in and treated on"
^DD(165.5,1312,21,3,0)="a protocol.  A physician may treat a patient following the guidelines"
^DD(165.5,1312,21,4,0)="of an established protocol but not enroll the patient.  For these cases,"
^DD(165.5,1312,21,5,0)="code 00."
^DD(165.5,1312,21,6,0)=""
^DD(165.5,1312,"DT")="3000310"
^DD(165.5,1313,0)="PROTOCOL PHASE^S^0:Not on;1:Phase I;2:Phase I/II;3:Phase II;4:Phase III;9:On protocol, phase unknown;^CNS2;28^Q"
^DD(165.5,1313,21,0)="^^4^4^3000310^"
^DD(165.5,1313,21,1,0)=""
^DD(165.5,1313,21,2,0)="This field describes the phase of the protocol in which the patient is"
^DD(165.5,1313,21,3,0)="enrolled.  If the patient is not enrolled into a protocol, code 0."
^DD(165.5,1313,21,4,0)=""
^DD(165.5,1313,"DT")="3000310"
^DD(165.5,1314,0)="NONE, NO NON-CA DIR SURGERY^S^0:No;1:Yes;9:Unknown;^CNS2;29^Q"
^DD(165.5,1314,21,0)="^.001^5^5^3000531^^"
^DD(165.5,1314,21,1,0)=""
^DD(165.5,1314,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1314,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1314,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1314,21,5,0)=""
^DD(165.5,1314,"DT")="3000317"
^DD(165.5,1315,0)="VENTRICULOSTOMY/EXT VENT DRAIN^S^0:No;1:Yes;9:Unknown;^CNS2;30^Q"
^DD(165.5,1315,21,0)="^.001^5^5^3000320^^"
^DD(165.5,1315,21,1,0)=""
^DD(165.5,1315,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1315,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1315,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1315,21,5,0)=""
^DD(165.5,1315,"DT")="3000317"
^DD(165.5,1316,0)="CSF SHUNT/VENTRICULOPERITONEAL^S^0:No;1:Yes;9:Unknown;^CNS2;31^Q"
^DD(165.5,1316,21,0)="^^5^5^3000320^"
^DD(165.5,1316,21,1,0)=""
^DD(165.5,1316,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1316,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1316,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1316,21,5,0)=""
^DD(165.5,1316,"DT")="3000320"
^DD(165.5,1317,0)="CSF SHUNT/3RD VENTRICULOSTOMY^S^0:No;1:Yes;9:Unknown;^CNS2;32^Q"
^DD(165.5,1317,21,0)="^^5^5^3000320^"
^DD(165.5,1317,21,1,0)=""
^DD(165.5,1317,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1317,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1317,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1317,21,5,0)=""
^DD(165.5,1317,"DT")="3000320"
^DD(165.5,1318,0)="CSF SHUNT/OTHER^S^0:No;1:Yes;9:Unknown;^CNS2;33^Q"
^DD(165.5,1318,21,0)="^^5^5^3000320^"
^DD(165.5,1318,21,1,0)=""
^DD(165.5,1318,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1318,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1318,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1318,21,5,0)=""
^DD(165.5,1318,"DT")="3000320"
^DD(165.5,1319,0)="STEREOTACTIC BIOPSY^S^0:No;1:Yes;9:Unknown;^CNS2;34^Q"
^DD(165.5,1319,21,0)="^.001^5^5^3000320^^"
^DD(165.5,1319,21,1,0)=""
^DD(165.5,1319,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1319,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1319,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1319,21,5,0)=""
^DD(165.5,1319,"DT")="3000320"
^DD(165.5,1320,0)="OPEN BRAIN BIOPSY^S^0:No;1:Yes;9:Unknown;^CNS2;35^Q"
^DD(165.5,1320,21,0)="^^5^5^3000320^"
^DD(165.5,1320,21,1,0)=""
^DD(165.5,1320,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1320,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1320,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1320,21,5,0)=""
^DD(165.5,1320,"DT")="3000320"
^DD(165.5,1321,0)="OPEN BX OF SPINCAL CORD TUMOR^S^0:No;1:Yes;9:Unknown;^CNS2;36^Q"
^DD(165.5,1321,21,0)="^^5^5^3000320^"
^DD(165.5,1321,21,1,0)=""
^DD(165.5,1321,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1321,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1321,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1321,21,5,0)=""
^DD(165.5,1321,"DT")="3000320"
^DD(165.5,1322,0)="LAMINECTOMY W/O RESECT/DURA^S^0:No;1:Yes;9:Unknown;^CNS2;37^Q"
^DD(165.5,1322,21,0)="^^5^5^3000320^"
^DD(165.5,1322,21,1,0)=""
^DD(165.5,1322,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1322,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1322,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1322,21,5,0)=""
^DD(165.5,1322,"DT")="3000320"
^DD(165.5,1323,0)="LAMINECTOMY W/O RESECT W DURA^S^0:No;1:Yes;9:Unknown;^CNS2;38^Q"
^DD(165.5,1323,21,0)="^^5^5^3000320^"
^DD(165.5,1323,21,1,0)=""
^DD(165.5,1323,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1323,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1323,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1323,21,5,0)=""
^DD(165.5,1323,"DT")="3000320"
^DD(165.5,1324,0)="SURGERY, NOS^S^0:No;1:Yes;9:Unknown;^CNS2;39^Q"
^DD(165.5,1324,21,0)="^^5^5^3000320^"
^DD(165.5,1324,21,1,0)=""
^DD(165.5,1324,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1324,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1324,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1324,21,5,0)=""
^DD(165.5,1324,"DT")="3000320"
^DD(165.5,1325,0)="UNKNOWN IF SURGERY DONE^S^0:No;1:Yes;9:Unknown;^CNS2;40^Q"
^DD(165.5,1325,21,0)="^^5^5^3000320^"
^DD(165.5,1325,21,1,0)=""
^DD(165.5,1325,21,2,0)="This field describes one of the surgical procedures performed to diagnose/"
^DD(165.5,1325,21,3,0)="stage disease (exploratory) or for the relief of symptoms (palliative)"
^DD(165.5,1325,21,4,0)="which are non-cancer directed surgery."
^DD(165.5,1325,21,5,0)=""
^DD(165.5,1325,"DT")="3000320"
^DD(165.5,1326,0)="SURGICAL APPROACH (CNS)^S^0:None, no ca-directed surgery;1:Craniotomy/craniectomy, w/o stereotactic/image guidance;2:Craniotomy/craniectomy, w sterotactic/image guidance;3:Endoscopy;4:Laminectomy;5:Other;9:Surgical approach unknown;^CNS2;41^Q"
^DD(165.5,1326,21,0)="^.001^10^10^3000323^^"
^DD(165.5,1326,21,1,0)=""
^DD(165.5,1326,21,2,0)="This field describes the method used to approach the organ of origin"
^DD(165.5,1326,21,3,0)="and/or primary tumor.  Code the approach for cancer-directed surgery"
^DD(165.5,1326,21,4,0)="of the primary site only.  Stereotactic image guidance, with regard to"
^DD(165.5,1326,21,5,0)="SURGICAL APPROACH, is not the same as stereotactic radiosurgery, a"
^DD(165.5,1326,21,6,0)="method of radiation therapy.  Stereotactic radiosurgery is addressed"
^DD(165.5,1326,21,7,0)="in question 57.  BCNU wafer implants are surgically placed following"
^DD(165.5,1326,21,8,0)="resection of tumor.  Report whether a wafer implantation occurred in"
^DD(165.5,1326,21,9,0)="questions 63 & 64."
^DD(165.5,1326,21,10,0)=""
^DD(165.5,1326,"DT")="3000323"
^DD(165.5,1327,0)="EXTENT OF SURGICAL RESECTION^S^0:None, no surgery performed;1:Subtotal resection;2:Total or gross resection;3:Lobectomy;4:Surgery, NOS;9:Unknown if surgery performed;^CNS2;42^Q"
^DD(165.5,1327,21,0)="^^6^6^3000323^"
^DD(165.5,1327,21,1,0)=""
^DD(165.5,1327,21,2,0)="This field describes only surgeries of the primary site.  Record the"
^DD(165.5,1327,21,3,0)="most definitive surgery performed to the primary site.  Biospy procedures"
^DD(165.5,1327,21,4,0)="are addressed in question 42.  Codes 0, 1, 2, 4 and 9 may apply to brain"
^DD(165.5,1327,21,5,0)="and spinal cord tumors.  Code 3 applies to brain tumors only."
^DD(165.5,1327,21,6,0)=""
^DD(165.5,1327,"DT")="3000323"
^DD(165.5,1328,0)="SIZE OF RESIDUAL TUMOR^NJ3,0XO^^CNS2;43^D SRPTIT^ONCOOT"
^DD(165.5,1328,2)="S Y(0)=Y S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y) D SRPTOT^ONCOOT"
^DD(165.5,1328,2.1)="S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y) D SRPTOT^ONCOOT"
^DD(165.5,1328,3)="Record the size of the remaining primary tumor AFTER the most definitive therapy."
^DD(165.5,1328,21,0)="^.001^16^16^3000327^^^^"
^DD(165.5,1328,21,1,0)=""
^DD(165.5,1328,21,2,0)="This field describes the size of remaining primary tumor AFTER the most"
^DD(165.5,1328,21,3,0)="definitive therapy.  Record the largest dimension or diameter of the"
^DD(165.5,1328,21,4,0)="residual primary tumor in millimeters (1 cm = 10 mm).  If the residual"
^DD(165.5,1328,21,5,0)="tumor has multiple measurements, code the largest size.  For example,"
^DD(165.5,1328,21,6,0)="a residual tumor measuring 3 x 4.4 x 2.5 cm is coded as 044.  Use"
^DD(165.5,1328,21,7,0)="information from postoperative or follow-up imaging studies (MRI, CT,"
^DD(165.5,1328,21,8,0)="PET, SPECT) to determine tumor size.  Do not guess at the size of tumor."
^DD(165.5,1328,21,9,0)=""
^DD(165.5,1328,21,10,0)=" 000-No residual tumor"
^DD(165.5,1328,21,11,0)=" 995-Size not specified, tumor judged smaller"
^DD(165.5,1328,21,12,0)=" 996-Size not specified, tumor judged unchanged"
^DD(165.5,1328,21,13,0)=" 997-Size not specified, tumor judged larger"
^DD(165.5,1328,21,14,0)=" 998-NA, surgical treatment not administered"
^DD(165.5,1328,21,15,0)=" 999-Unknown, tumor not evaluated"
^DD(165.5,1328,21,16,0)=""
^DD(165.5,1328,"DT")="3000324"
^DD(165.5,1329,0)="SIZE OF RES TUMOR (SOURCE)^S^0:Size not recorded;1:CT scan w or w/o contrast;2:MRI w/o contrast;3:MRI w contrast;4:PET scan;5:SPECT scan;6:Operative report;7:Other;9:Size recorded, source unknown;^CNS2;44^Q"
^DD(165.5,1329,21,0)="^^4^4^3000324^"
^DD(165.5,1329,21,1,0)=""
^DD(165.5,1329,21,2,0)="This field describes the source of the data from which the reported size"
^DD(165.5,1329,21,3,0)="of the residual tumor was documented."
^DD(165.5,1329,21,4,0)=""
^DD(165.5,1329,"DT")="3000324"
^DD(165.5,1330,0)="ANESTHETIC PROBLEM^S^0:No;1:Yes;8:NA, surgery not performed;9:Unknown;^CNS2;45^Q"
^DD(165.5,1330,21,0)="^.001^5^5^3000531^^^"
^DD(165.5,1330,21,1,0)=""
^DD(165.5,1330,21,2,0)="This field describes a complication or event that occurred after surgery"
^DD(165.5,1330,21,3,0)="of the primary site and before the date of patient discharge from the"
^DD(165.5,1330,21,4,0)="hospital."
^DD(165.5,1330,21,5,0)=""
^DD(165.5,1330,"DT")="3000327"
^DD(165.5,1331,0)="HEMORRHAGE AT OPERATIVE SITE^S^0:No;1:Yes;8:NA, surgery not performed;9:Unknown;^CNS2;46^Q"
^DD(165.5,1331,21,0)="^^5^5^3000327^"
^DD(165.5,1331,21,1,0)=""
^DD(165.5,1331,21,2,0)="This field describes a complication or event that occurred after surgery"
^DD(165.5,1331,21,3,0)="of the primary site and before the date of patient discharge from the"
^DD(165.5,1331,21,4,0)="hospital."
^DD(165.5,1331,21,5,0)=""
^DD(165.5,1331,"DT")="3000327"
^DD(165.5,1332,0)="SEIZURE^S^0:No;1:Yes;8:NA, surgery not performed;9:Unknown;^CNS2;47^Q"
^DD(165.5,1332,21,0)="^^5^5^3000327^"
^DD(165.5,1332,21,1,0)=""
^DD(165.5,1332,21,2,0)="This field describes a complication or event that occurred after surgery"
^DD(165.5,1332,21,3,0)="of the primary site and before the date of patient discharge from the"
^DD(165.5,1332,21,4,0)="hospital."
^DD(165.5,1332,21,5,0)=""
^DD(165.5,1332,"DT")="3000327"
^DD(165.5,1333,0)="INFECTION(S)^S^0:No;1:Yes;8:NA, surgery not performed;9:Unknown;^CNS2;48^Q"
^DD(165.5,1333,21,0)="^.001^5^5^3000420^^"
^DD(165.5,1333,21,1,0)=""
^DD(165.5,1333,21,2,0)="This field describes a complication or event that occurred after surgery"
^DD(165.5,1333,21,3,0)="of the primary site and before the date of patient discharge from the"
^DD(165.5,1333,21,4,0)="hospital."
^DD(165.5,1333,21,5,0)=""
^DD(165.5,1333,"DT")="3000327"
^DD(165.5,1334,0)="DVT (DEEP VENOUS THROMBOSIS)^S^0:No;1:Yes;8:NA, surgery not performed;9:Unknown;^CNS2;49^Q"
^DD(165.5,1334,21,0)="^^5^5^3000327^"
^DD(165.5,1334,21,1,0)=""
^DD(165.5,1334,21,2,0)="This field describes a complication or event that occurred after surgery"
^DD(165.5,1334,21,3,0)="of the primary site and before the date of patient discharge from the"
^DD(165.5,1334,21,4,0)="hospital."
^DD(165.5,1334,21,5,0)=""
^DD(165.5,1334,"DT")="3000327"
^DD(165.5,1335,0)="PERSISTENT NEUROL WORSENING^S^0:No;1:Yes;8:NA, surgery not performed;9:Unknown;^CNS2;50^Q"
^DD(165.5,1335,21,0)="^^5^5^3000327^"
^DD(165.5,1335,21,1,0)=""
^DD(165.5,1335,21,2,0)="This field describes a complication or event that occurred after surgery"
^DD(165.5,1335,21,3,0)="of the primary site and before the date of patient discharge from the"
^DD(165.5,1335,21,4,0)="hospital."
^DD(165.5,1335,21,5,0)=""
^DD(165.5,1335,"DT")="3000327"
^DD(165.5,1336,0)="TOTAL RADIATION DOSE (cGy)^S^0:No radiation administered;1:Less than 3000 cGy;2:3000-3999 cGy;3:4000-4999 cGy;4:5000-5999 cGy;5:6000-6999 cGy;6:7000-7999 cGy;7:8000-8999 cGy;8:10000 or more cGy;9:Dose unknown;^CNS2;51^Q"
^DD(165.5,1336,21,0)="^^4^4^3000331^"
^DD(165.5,1336,21,1,0)=""
^DD(165.5,1336,21,2,0)="This field describes the total dose delivered to the primary volume of"
^DD(165.5,1336,21,3,0)="interest, include any boost doses."
^DD(165.5,1336,21,4,0)=""
^DD(165.5,1336,"DT")="3000331"
^DD(165.5,1337,0)="TYPE OF EXT BEAM RADIATION^S^0:No radiation therapy;1:Cobalt;2:>=2 and <4 MV X-rays;3:>=4 and <6 MV X-rays;4:>=6 and <10 MV X-rays;5:>=10 MV X-rays;6:Protons;7:Neutrons;9:Unknown;^CNS2;52^Q"
^DD(165.5,1337,21,0)="^^4^4^3000331^"
^DD(165.5,1337,21,1,0)=""
^DD(165.5,1337,21,2,0)="This field describes the type of external beam radiation therapy delivered"
^DD(165.5,1337,21,3,0)="to the primary volume of interest."
^DD(165.5,1337,21,4,0)=""
^DD(165.5,1337,"DT")="3000331"
^DD(165.5,1338,0)="INTERSTITIAL RAD/BRACHYTHERAPY^S^0:None, brachytherapy not given;1:Iodine-125;2:Iridium-192;3:Other;9:Unknown;^CNS2;53^Q"
^DD(165.5,1338,21,0)="^^3^3^3000331^"
^DD(165.5,1338,21,1,0)=""
^DD(165.5,1338,21,2,0)="This field describes any radioactive implant used to treat the patient."
^DD(165.5,1338,21,3,0)=""
^DD(165.5,1338,"DT")="3000331"
^DD(165.5,1339,0)="STEREOTACTIC RADIOSURGERY^S^0:None, not administered;1:Gamma knife;2:Linear accelerator (linac);3:Other;9:Unknown;^CNS2;54^Q"
^DD(165.5,1339,21,0)="^.001^7^7^3000420^^"
^DD(165.5,1339,21,1,0)=""
^DD(165.5,1339,21,2,0)="This field describes the type of delivery of the external radiation dose."
^DD(165.5,1339,21,3,0)="Stereotactic radiosurgery is a method by which the focus and target of"
^DD(165.5,1339,21,4,0)="the radiation beam is precisely directed, and is different from external"
^DD(165.5,1339,21,5,0)="beam radiation which is a less controlled means of radiation therapy"
^DD(165.5,1339,21,6,0)="delivery."
^DD(165.5,1339,21,7,0)=""
^DD(165.5,1339,"DT")="3000420"
^DD(165.5,1340,0)="SKIN REACTIONS^S^0:No, not present;1:Present, no tx delay, not req medication;2:Present, no tx delay, req medication;3:Present, tx delay or cessation;8:NA, radiation tx not administered;9:Unknown;^CNS2;55^Q"
^DD(165.5,1340,21,0)="^.001^4^4^3000420^^^"
^DD(165.5,1340,21,1,0)=""
^DD(165.5,1340,21,2,0)="This field describes a complication that resulted during or subsequent to"
^DD(165.5,1340,21,3,0)="radiation therapy."
^DD(165.5,1340,21,4,0)=""
^DD(165.5,1340,"DT")="3000420"
^DD(165.5,1341,0)="ANOREXIA^S^0:No, not present;1:Present, no tx delay, not req medication;2:Present, no tx delay, req medication;3:Present, tx delay or cessation;8:NA, radiation tx not administered;9:Unknown;^CNS2;56^Q"
^DD(165.5,1341,21,0)="^^4^4^3000418^"
^DD(165.5,1341,21,1,0)=""
^DD(165.5,1341,21,2,0)="This field describes a complication that resulted during or subsequent to"
^DD(165.5,1341,21,3,0)="radiation therapy."
^DD(165.5,1341,21,4,0)=""
^DD(165.5,1341,"DT")="3000418"
^DD(165.5,1342,0)="NAUSEA OR VOMITING^S^0:No, not present;1:Present, no tx delay, not req medication;2:Present, no tx delay, req medication;3:Present, tx delay or cessation;8:NA, radiation tx not administered;9:Unknown;^CNS2;57^Q"
^DD(165.5,1342,21,0)="^.001^4^4^3000420^^"
^DD(165.5,1342,21,1,0)=""
^DD(165.5,1342,21,2,0)="This field describes a complication that resulted during or subsequent to"
^DD(165.5,1342,21,3,0)="radiation therapy."
^DD(165.5,1342,21,4,0)=""
^DD(165.5,1342,"DT")="3000418"
^DD(165.5,1343,0)="FATIGUE^S^0:No, not present;1:Present, no tx delay, not req medication;2:Present, no tx delay, req medication;3:Present, tx delay or cessation;8:NA, radiation tx not administered;9:Unknown;^CNS2;58^Q"
^DD(165.5,1343,21,0)="^^4^4^3000418^"
^DD(165.5,1343,21,1,0)=""
^DD(165.5,1343,21,2,0)="This field describes a complication that resulted during or subsequent to"
^DD(165.5,1343,21,3,0)="radiation therapy."
^DD(165.5,1343,21,4,0)=""
^DD(165.5,1343,"DT")="3000418"
^DD(165.5,1344,0)="NEUROLOGIC WORSENING^S^0:No, not present;1:Present, no tx delay, not req medication;2:Present, no tx delay, req medication;3:Present, tx delay or cessation;8:NA, radiation tx not administered;9:Unknown;^CNS2;59^Q"
^DD(165.5,1344,21,0)="^^4^4^3000418^"
^DD(165.5,1344,21,1,0)=""
^DD(165.5,1344,21,2,0)="This field describes a complication that resulted during or subsequent to"
^DD(165.5,1344,21,3,0)="radiation therapy."
^DD(165.5,1344,21,4,0)=""
^DD(165.5,1344,"DT")="3000418"
^DD(165.5,1345,0)="RADIATION THERAPY^S^0:None;1:Ext beam;2:RA implants (brachytherapy);3:Radioisotopes;4:Stereotactic radiosurgery;5:Ext beam/RA implants or radioisotopes;6:Ext beam/stereotactic radiosurgery;7:Radiation, NOS;9:Unk, death cert cases only;^CNS2;60^Q"
^DD(165.5,1345,21,0)="^.001^5^5^3000418^^"
^DD(165.5,1345,21,1,0)=""
^DD(165.5,1345,21,2,0)="This field describes the type of radiation administered to the primary site."
^DD(165.5,1345,21,3,0)="Include all procedures that are part of the first course of treatment,"
^DD(165.5,1345,21,4,0)="whether delivered at the reporting institution or at other institutions."
^DD(165.5,1345,21,5,0)=""
^DD(165.5,1345,"DT")="3000418"
^DD(165.5,1346,0)="PROCARBAZINE^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;61^Q"
^DD(165.5,1346,21,0)="^.001^4^4^3000427^^"
^DD(165.5,1346,21,1,0)=""
^DD(165.5,1346,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1346,21,3,0)="patient."
^DD(165.5,1346,21,4,0)=""
^DD(165.5,1346,"DT")="3000420"
^DD(165.5,1347,0)="CCNU^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;62^Q"
^DD(165.5,1347,21,0)="^^4^4^3000420^"
^DD(165.5,1347,21,1,0)=""
^DD(165.5,1347,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1347,21,3,0)="patient."
^DD(165.5,1347,21,4,0)=""
^DD(165.5,1347,"DT")="3000420"
^DD(165.5,1348,0)="VINCRISTINE^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;63^Q"
^DD(165.5,1348,21,0)="^^4^4^3000420^"
^DD(165.5,1348,21,1,0)=""
^DD(165.5,1348,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1348,21,3,0)="patient."
^DD(165.5,1348,21,4,0)=""
^DD(165.5,1348,"DT")="3000420"
^DD(165.5,1349,0)="HYDROXYUREA^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;64^Q"
^DD(165.5,1349,21,0)="^^4^4^3000420^"
^DD(165.5,1349,21,1,0)=""
^DD(165.5,1349,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1349,21,3,0)="patient."
^DD(165.5,1349,21,4,0)=""
^DD(165.5,1349,"DT")="3000420"
^DD(165.5,1350,0)="BCNU^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;65^Q"
^DD(165.5,1350,21,0)="^^4^4^3000420^"
^DD(165.5,1350,21,1,0)=""
^DD(165.5,1350,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1350,21,3,0)="patient."
^DD(165.5,1350,21,4,0)=""
^DD(165.5,1350,"DT")="3000420"
^DD(165.5,1351,0)="BCNU WAFER IMPLANT^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;66^Q"
^DD(165.5,1351,21,0)="^^4^4^3000420^"
^DD(165.5,1351,21,1,0)=""
^DD(165.5,1351,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1351,21,3,0)="patient."
^DD(165.5,1351,21,4,0)=""
^DD(165.5,1351,"DT")="3000420"
^DD(165.5,1352,0)="VP-16^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;67^Q"
^DD(165.5,1352,21,0)="^^4^4^3000420^"
^DD(165.5,1352,21,1,0)=""
^DD(165.5,1352,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1352,21,3,0)="patient."
^DD(165.5,1352,21,4,0)=""
^DD(165.5,1352,"DT")="3000420"
^DD(165.5,1353,0)="CARBOPLATIN^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;68^Q"
^DD(165.5,1353,21,0)="^^4^4^3000420^"
^DD(165.5,1353,21,1,0)=""
^DD(165.5,1353,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1353,21,3,0)="patient."
^DD(165.5,1353,21,4,0)=""
^DD(165.5,1353,"DT")="3000420"
^DD(165.5,1354,0)="TEMOZOLOMIDE^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;69^Q"
^DD(165.5,1354,21,0)="^^4^4^3000420^"
^DD(165.5,1354,21,1,0)=""
^DD(165.5,1354,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1354,21,3,0)="patient."
^DD(165.5,1354,21,4,0)=""
^DD(165.5,1354,"DT")="3000420"
^DD(165.5,1355,0)="CPT-11^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;70^Q"
^DD(165.5,1355,21,0)="^^4^4^3000420^"
^DD(165.5,1355,21,1,0)=""
^DD(165.5,1355,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1355,21,3,0)="patient."
^DD(165.5,1355,21,4,0)=""
^DD(165.5,1355,"DT")="3000420"
^DD(165.5,1356,0)="TAMOXIFEN^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;71^Q"
^DD(165.5,1356,21,0)="^^4^4^3000420^"
^DD(165.5,1356,21,1,0)=""
^DD(165.5,1356,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1356,21,3,0)="patient."
^DD(165.5,1356,21,4,0)=""
^DD(165.5,1356,"DT")="3000420"
^DD(165.5,1357,0)="CYTARABINE (ARA-C)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;72^Q"
^DD(165.5,1357,21,0)="^^4^4^3000420^"
^DD(165.5,1357,21,1,0)=""
^DD(165.5,1357,21,2,0)="This field describes one type of chemotherapeutic agent administered to the"
^DD(165.5,1357,21,3,0)="patient."
^DD(165.5,1357,21,4,0)=""
^DD(165.5,1357,"DT")="3000420"
^DD(165.5,1358,0)="CHEMOTHERAPEUTIC ROUTE^S^1:Intrathecal;2:Intra-arterial;3:Intravenous;4:Orally;5:Intramuscular;6:BCNU wafer implant;8:NA, chemotherapy not administered;9:Unknown;^CNS2;73^Q"
^DD(165.5,1358,21,0)="^^4^4^3000420^"
^DD(165.5,1358,21,1,0)=""
^DD(165.5,1358,21,2,0)="This field describes the route or method used to administer the"
^DD(165.5,1358,21,3,0)="chemotherapy."
^DD(165.5,1358,21,4,0)=""
^DD(165.5,1358,"DT")="3000420"
^DD(165.5,1359,0)="HEARING LOSS^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;74^Q"
^DD(165.5,1359,21,0)="^^4^4^3000420^"
^DD(165.5,1359,21,1,0)=""
^DD(165.5,1359,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1359,21,3,0)="administration of chemotherapy."
^DD(165.5,1359,21,4,0)=""
^DD(165.5,1359,"DT")="3000420"
^DD(165.5,1360,0)="INFECTION^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;75^Q"
^DD(165.5,1360,21,0)="^^4^4^3000420^"
^DD(165.5,1360,21,1,0)=""
^DD(165.5,1360,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1360,21,3,0)="administration of chemotherapy."
^DD(165.5,1360,21,4,0)=""
^DD(165.5,1360,"DT")="3000420"
^DD(165.5,1361,0)="NAUSEA AND VOMITING^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;76^Q"
^DD(165.5,1361,21,0)="^^4^4^3000420^"
^DD(165.5,1361,21,1,0)=""
^DD(165.5,1361,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1361,21,3,0)="administration of chemotherapy."
^DD(165.5,1361,21,4,0)=""
^DD(165.5,1361,"DT")="3000420"
^DD(165.5,1362,0)="BLOOD COUNT DROP/BLEEDING^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;77^Q"
^DD(165.5,1362,21,0)="^^4^4^3000420^"
^DD(165.5,1362,21,1,0)=""
^DD(165.5,1362,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1362,21,3,0)="administration of chemotherapy."
^DD(165.5,1362,21,4,0)=""
^DD(165.5,1362,"DT")="3000420"
^DD(165.5,1363,0)="PERIPHERAL NEUROPATHY^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;78^Q"
^DD(165.5,1363,21,0)="^^4^4^3000420^"
^DD(165.5,1363,21,1,0)=""
^DD(165.5,1363,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1363,21,3,0)="administration of chemotherapy."
^DD(165.5,1363,21,4,0)=""
^DD(165.5,1363,"DT")="3000420"
^DD(165.5,1364,0)="RENAL FAILURE^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;79^Q"
^DD(165.5,1364,21,0)="^^4^4^3000420^"
^DD(165.5,1364,21,1,0)=""
^DD(165.5,1364,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1364,21,3,0)="administration of chemotherapy."
^DD(165.5,1364,21,4,0)=""
^DD(165.5,1364,"DT")="3000420"
^DD(165.5,1365,0)="PULMONARY TOXICITY^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;80^Q"
^DD(165.5,1365,21,0)="^^4^4^3000420^"
^DD(165.5,1365,21,1,0)=""
^DD(165.5,1365,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1365,21,3,0)="administration of chemotherapy."
^DD(165.5,1365,21,4,0)=""
^DD(165.5,1365,"DT")="3000420"
^DD(165.5,1366,0)="OTHER CHEMO COMPLICATIONS^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS2;81^Q"
^DD(165.5,1366,21,0)="^^4^4^3000420^"
^DD(165.5,1366,21,1,0)=""
^DD(165.5,1366,21,2,0)="This field describes one of the complications which resulted from the"
^DD(165.5,1366,21,3,0)="administration of chemotherapy."
^DD(165.5,1366,21,4,0)=""
^DD(165.5,1366,"DT")="3000420"
^DD(165.5,1367,0)="KARNOFSKY'S RATING @ DIS/TRANS^*P164.17'^ONCO(164.17,^CNS2;82^S DIC(""S"")=""I $P(^(0),U,1)'=888"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1367,12)="Enter the appropriate Karnofsky's Rating."
^DD(165.5,1367,12.1)="S DIC(""S"")=""I $P(^(0),U,1)'=888"""
^DD(165.5,1367,21,0)="^.001^8^8^3000719^^"
^DD(165.5,1367,21,1,0)=""
^DD(165.5,1367,21,2,0)="This field describes the physical status of the patient at the time of"
^DD(165.5,1367,21,3,0)="discharge or transfer from the treating facility following definitive"
^DD(165.5,1367,21,4,0)="therapy.  In some cases, the patient may be discharged from the treating"
^DD(165.5,1367,21,5,0)="facility and transferred to another care facility; use codes 030 and 020"
^DD(165.5,1367,21,6,0)="to describe these cases.  If rating is not recorded, assign a rating based"
^DD(165.5,1367,21,7,0)="upon the best available information."
^DD(165.5,1367,21,8,0)=""
^DD(165.5,1367,"DT")="3000719"
^DD(165.5,1368,0)="DATE OF PROGRESSION^DXO^^CNS2;83^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) W:'$D(X) !,""Future dates are not allowed"""
^DD(165.5,1368,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,1368,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,1368,21,0)="^.001^12^12^3000421^^"
^DD(165.5,1368,21,1,0)=""
^DD(165.5,1368,21,2,0)="This field describes the date the medical practitioner determines"
^DD(165.5,1368,21,3,0)="that the tumor has progressed and that the first course of therapy"
^DD(165.5,1368,21,4,0)="has failed, necessitating consideration of a subsequent course of"
^DD(165.5,1368,21,5,0)="treatment.  Patients with tumor progression were never disease free"
^DD(165.5,1368,21,6,0)="following the first course of treatment.  Record the month, day and"
^DD(165.5,1368,21,7,0)="year of the determined progression, based on the best available"
^DD(165.5,1368,21,8,0)="information.  If the patient was disease free following the first"
^DD(165.5,1368,21,9,0)="course of treatment, code 00000000; if no progression was noted or"
^DD(165.5,1368,21,10,0)="first course of therapy was not administered, code 88888888; if the"
^DD(165.5,1368,21,11,0)="date of tumor progression is unknown, code 99999999."
^DD(165.5,1368,21,12,0)=""
^DD(165.5,1368,"DT")="3000421"
^DD(165.5,1369,0)="TYPE OF PROGRESSION^S^0:None, disease-free;1:Local;2:Regional, same hemisphere;3:Regional, opposite hemisphere;4:Distant, spine/spinal cord;5:Distant, abdomen;6:Distant, other;8:NA, no progression, or no 1st course;9:Unknown if progressed;^CNS2;84^Q"
^DD(165.5,1369,21,0)="^^4^4^3000424^"
^DD(165.5,1369,21,1,0)=""
^DD(165.5,1369,21,2,0)="This field describes the progression of the cancer after the completion"
^DD(165.5,1369,21,3,0)="of the first course of therapy."
^DD(165.5,1369,21,4,0)=""
^DD(165.5,1369,"DT")="3000424"
^DD(165.5,1370,0)="RECURRENCE/PROGRESSION DOC^S^0:No recurrence/progression;1:Neurological or Karnofsky's deterioration;2:CT scan;3:MRI scan;4:Comb of 1 + 2, or 1 + 3;5:Other;9:Unknown;^CNS2;85^Q"
^DD(165.5,1370,"DT")="3000424"
^DD(165.5,1371,0)="KARNOFSKY'S RATING RECURRENCE^P164.17'^ONCO(164.17,^CNS2;86^Q"
^DD(165.5,1371,21,0)="^^4^4^3000424^"
^DD(165.5,1371,21,1,0)=""
^DD(165.5,1371,21,2,0)="This field describes the patient's physical status at the time that either"
^DD(165.5,1371,21,3,0)="recurrence or progression was noted."
^DD(165.5,1371,21,4,0)=""
^DD(165.5,1371,"DT")="3000424"
^DD(165.5,1372,0)="TYPE OF 1ST RECURRENCE/CNS^S^0:None, disease free;1:Local;2:Regional, same hemisphere;3:Regional, opposite hemisphere;4:Distant, spine/spincal cord;5:Distant, abdomen;6:Distant, other;8:NA, never disease free;9:Unknown if recurred;^CNS2;87^Q"
^DD(165.5,1372,21,0)="^^5^5^3000424^"
^DD(165.5,1372,21,1,0)=""
^DD(165.5,1372,21,2,0)="This field describes the return or reappearance of the cancer after a"
^DD(165.5,1372,21,3,0)="disease free intermission or remission.  Record the type of the first"
^DD(165.5,1372,21,4,0)="recurrence.  If the patient has been disease-free since treatment, code 0."
^DD(165.5,1372,21,5,0)=""
^DD(165.5,1372,"DT")="3000424"
^DD(165.5,1373,0)="PROTOCOL PARTICIPATION (SUBTX)^S^00:Not on;01:RTOG;02:SWOG;03:ECOG;04:POG;05:CCG;06:NCI;07:NABTT;08:NABTC;09:National protcol, NOS;10:Other institutional protocols;^CNS2;88^Q"
^DD(165.5,1373,21,0)="^.001^7^7^3000714^^"
^DD(165.5,1373,21,1,0)=""
^DD(165.5,1373,21,2,0)="This field describes whether the patient was enrolled in and treated"
^DD(165.5,1373,21,3,0)="on a protocol as part of their treatment for progression or recurrence"
^DD(165.5,1373,21,4,0)="of disease.  A physician may treat a patient following the guidelines"
^DD(165.5,1373,21,5,0)="of an established protocol but not enroll the patient.  For these cases,"
^DD(165.5,1373,21,6,0)="code 00."
^DD(165.5,1373,21,7,0)=""
^DD(165.5,1373,"DT")="3000427"
^DD(165.5,1374,0)="TYPE OF SUBSEQUENT SURGICAL TX^S^0:None, no subsequent surgery;1:Subtotal resection;2:Total or gross resection;3:Lobectomy;4:Surgery, NOS;9:Unknown if subsequent surgery performed;^CNS2;89^Q"
^DD(165.5,1374,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1374,21,1,0)=""
^DD(165.5,1374,21,2,0)="This field describes subsequent surgical treatment administered to"
^DD(165.5,1374,21,3,0)="the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1374,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1374,21,5,0)=""
^DD(165.5,1374,"DT")="3000427"
^DD(165.5,1375,0)="TYPE OF SUBSEQUENT RADIATION^S^0:None;1:Beam radiation;2:RA implants;3:Radioisotopes;4:Stereotactic radiosurgery;5:Beam rad/RA implants or radioisotopes;6:Beam rad/stereotactic radiosurgery;7:Radiation, NOS;9:Unknown if administered;^CNS2;90^Q"
^DD(165.5,1375,21,0)="^.001^5^5^3041124^^^"
^DD(165.5,1375,21,1,0)=""
^DD(165.5,1375,21,2,0)="This field describes subsequent radiation treatment administered to"
^DD(165.5,1375,21,3,0)="the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1375,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1375,21,5,0)=""
^DD(165.5,1375,"DT")="3041124"
^DD(165.5,1376,0)="PROCARBAZINE (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;1^Q"
^DD(165.5,1376,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1376,21,1,0)=""
^DD(165.5,1376,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1376,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1376,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1376,21,5,0)=""
^DD(165.5,1376,"DT")="3000427"
^DD(165.5,1377,0)="CCNU (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;2^Q"
^DD(165.5,1377,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1377,21,1,0)=""
^DD(165.5,1377,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1377,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1377,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1377,21,5,0)=""
^DD(165.5,1377,"DT")="3000427"
^DD(165.5,1378,0)="VINCRISTINE (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;3^Q"
^DD(165.5,1378,21,0)="^.001^5^5^3000714^^^"
^DD(165.5,1378,21,1,0)=""
^DD(165.5,1378,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1378,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1378,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1378,21,5,0)=""
^DD(165.5,1378,"DT")="3000427"
^DD(165.5,1379,0)="HYDROXYUREA (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;4^Q"
^DD(165.5,1379,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1379,21,1,0)=""
^DD(165.5,1379,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1379,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1379,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1379,21,5,0)=""
^DD(165.5,1379,"DT")="3000427"
^DD(165.5,1380,0)="METHOTREXATE (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;5^Q"
^DD(165.5,1380,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1380,21,1,0)=""
^DD(165.5,1380,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1380,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1380,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1380,21,5,0)=""
^DD(165.5,1380,"DT")="3000427"
^DD(165.5,1381,0)="CISPLATIN (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;6^Q"
^DD(165.5,1381,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1381,21,1,0)=""
^DD(165.5,1381,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1381,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1381,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1381,21,5,0)=""
^DD(165.5,1381,"DT")="3000427"
^DD(165.5,1382,0)="BCNU (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;7^Q"
^DD(165.5,1382,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1382,21,1,0)=""
^DD(165.5,1382,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1382,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1382,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1382,21,5,0)=""
^DD(165.5,1382,"DT")="3000427"
^DD(165.5,1383,0)="BCNU WAFER IMPLANT (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;8^Q"
^DD(165.5,1383,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1383,21,1,0)=""
^DD(165.5,1383,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1383,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1383,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1383,21,5,0)=""
^DD(165.5,1383,"DT")="3000427"
^DD(165.5,1384,0)="VP-16 (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;9^Q"
^DD(165.5,1384,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1384,21,1,0)=""
^DD(165.5,1384,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1384,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1384,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1384,21,5,0)=""
^DD(165.5,1384,"DT")="3000427"
^DD(165.5,1385,0)="CARBOPLATIN (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;10^Q"
^DD(165.5,1385,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1385,21,1,0)=""
^DD(165.5,1385,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1385,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1385,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1385,21,5,0)=""
^DD(165.5,1385,"DT")="3000427"
^DD(165.5,1386,0)="TEMOZOLOMIDE (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;11^Q"
^DD(165.5,1386,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1386,21,1,0)=""
^DD(165.5,1386,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1386,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1386,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1386,21,5,0)=""
^DD(165.5,1386,"DT")="3000427"
^DD(165.5,1387,0)="CYCLOPHOSPHAMIDE (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;12^Q"
^DD(165.5,1387,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1387,21,1,0)=""
^DD(165.5,1387,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1387,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1387,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1387,21,5,0)=""
^DD(165.5,1387,"DT")="3000427"
^DD(165.5,1388,0)="CPT-11 (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;13^Q"
^DD(165.5,1388,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1388,21,1,0)=""
^DD(165.5,1388,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1388,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1388,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1388,21,5,0)=""
^DD(165.5,1388,"DT")="3000427"
^DD(165.5,1389,0)="TAMOXIFEN (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;14^Q"
^DD(165.5,1389,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1389,21,1,0)=""
^DD(165.5,1389,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1389,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1389,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1389,21,5,0)=""
^DD(165.5,1389,"DT")="3000427"
^DD(165.5,1390,0)="INTERFERON (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;15^Q"
^DD(165.5,1390,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1390,21,1,0)=""
^DD(165.5,1390,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1390,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1390,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1390,21,5,0)=""
^DD(165.5,1390,"DT")="3000427"
^DD(165.5,1391,0)="CYTARABINE (ARA-C) (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;16^Q"
^DD(165.5,1391,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1391,21,1,0)=""
^DD(165.5,1391,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1391,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1391,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1391,21,5,0)=""
^DD(165.5,1391,"DT")="3000427"
^DD(165.5,1392,0)="OTHER CHEMOTHERAPY (SUB TX)^S^0:No;1:Yes;8:NA, chemotherapy not administered;9:Unknown;^CNS3;17^Q"
^DD(165.5,1392,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1392,21,1,0)=""
^DD(165.5,1392,21,2,0)="This field describes one type of subsequent chemotherapy administered"
^DD(165.5,1392,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1392,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1392,21,5,0)=""
^DD(165.5,1392,"DT")="3000427"
^DD(165.5,1393,0)="OTHER SUBSEQUENT TREATMENT^S^0:No other tx;1:Ca-directed tx, NOS;2:Monoclonal antibodies;3:Other experimental ca-dir tx;4:Double-blind clin trial;6:Unproven tx;7:Patient refused tx;8:Other tx rec, unk if admin;9:Unk if administered;^CNS3;18^Q"
^DD(165.5,1393,21,0)="^.001^5^5^3000714^^"
^DD(165.5,1393,21,1,0)=""
^DD(165.5,1393,21,2,0)="This field describes other types of subsequent treatment administered"
^DD(165.5,1393,21,3,0)="to the patient.  Subsequent therapy begins after the first course of"
^DD(165.5,1393,21,4,0)="therapy is complete, stopped, or changed."
^DD(165.5,1393,21,5,0)=""
^DD(165.5,1393,"DT")="3000428"
^DD(165.5,1394,0)="TUMOR SIZE^NJ3,0XO^^CNS3;19^D TSIT^ONCOOT"
^DD(165.5,1394,2)="S Y(0)=Y S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y) D TSOT^ONCOOT"
^DD(165.5,1394,2.1)="S Y=$S($L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y) D TSOT^ONCOOT"
^DD(165.5,1394,3)="Record the tumor size from the most significant imaging test."
^DD(165.5,1394,21,0)="^.001^16^16^3010110^^^^"
^DD(165.5,1394,21,1,0)=""
^DD(165.5,1394,21,2,0)="This field describes the largest dimension or diameter of the"
^DD(165.5,1394,21,3,0)="primary tumor in millimeters (1 cm = 10 mm).  If the tumor has"
^DD(165.5,1394,21,4,0)="multiple measurements, code the largest size.  For example, a"
^DD(165.5,1394,21,5,0)="tumor measuring 3 x 4.4 x 2.5 cm is coded as 044.  If there are"
^DD(165.5,1394,21,6,0)="multiple tumors, code the size of the largest tumor.  For example,"
^DD(165.5,1394,21,7,0)="if the first tumor measures 2 x .5 cm and the second measures 1 x .5"
^DD(165.5,1394,21,8,0)="cm, code 020.  See ROADS for instructions on converting centimeters"
^DD(165.5,1394,21,9,0)="to millimeters.  Use information from preoperative imaging (MRI, CT,"
^DD(165.5,1394,21,10,0)="PET, SPECT) to determine TUMOR SIZE.  DO NOT use the pathology report"
^DD(165.5,1394,21,11,0)="to determine TUMOR SIZE.  DO NOT guess at the TUMOR SIZE.  Code 999"
^DD(165.5,1394,21,12,0)="if TUMOR SIZE cannot be determined."
^DD(165.5,1394,21,13,0)=""
^DD(165.5,1394,21,14,0)="Codes: 001 thru 997 - tumor size (mm)"
^DD(165.5,1394,21,15,0)="       999 - Unknown, cannot be determined, not recorded"
^DD(165.5,1394,21,16,0)=""
^DD(165.5,1394,"DT")="3010110"
^DD(165.5,1400,0)="LNG CO-MORBID CONDITION 1^*P80'O^ICD9(^LUN1;1^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1400,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400,12)="If the CO-MORBID CONDITIONS (Y/N) field is set to ""NO"", then no editing of this field is allowed."
^DD(165.5,1400,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1400,21,0)="^.001^13^13^3010509^^^^"
^DD(165.5,1400,21,1,0)=""
^DD(165.5,1400,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1400,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1400,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1400,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1400,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1400,21,7,0)=""
^DD(165.5,1400,21,8,0)="Allowable Codes: 000.00"
^DD(165.5,1400,21,9,0)="                 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1400,21,10,0)=""
^DD(165.5,1400,21,11,0)="If no co-morbid conditions were documented, answer ""No"" to the"
^DD(165.5,1400,21,12,0)="CO-MORBID CONDITIONS (YES/NO) prompt."
^DD(165.5,1400,21,13,0)=""
^DD(165.5,1400,"DT")="3010501"
^DD(165.5,1400.1,0)="LNG CO-MORBID CONDITION 2^*P80'O^ICD9(^LUN1;2^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1400.1,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.1,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.1,12)="If the CO-MORBID CONDITIONS (Y/N) field is set to ""NO"", then no editing of this field is allowed."
^DD(165.5,1400.1,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1400.1,21,0)="^.001^11^11^3010509^^^^"
^DD(165.5,1400.1,21,1,0)=""
^DD(165.5,1400.1,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1400.1,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1400.1,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1400.1,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1400.1,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1400.1,21,7,0)=""
^DD(165.5,1400.1,21,8,0)="Allowable Codes: 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1400.1,21,9,0)=""
^DD(165.5,1400.1,21,10,0)="If there was only one co-morbid condition, leave this field blank."
^DD(165.5,1400.1,21,11,0)=""
^DD(165.5,1400.1,"DT")="3010501"
^DD(165.5,1400.2,0)="LNG CO-MORBID CONDITION 3^*P80'O^ICD9(^LUN1;3^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1400.2,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.2,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.2,12)="If the CO-MORBID CONDITIONS (Y/N) field is set to ""NO"", then no editing of this field is allowed."
^DD(165.5,1400.2,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1400.2,21,0)="^.001^11^11^3010322^^^^"
^DD(165.5,1400.2,21,1,0)=""
^DD(165.5,1400.2,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1400.2,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1400.2,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1400.2,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1400.2,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1400.2,21,7,0)=""
^DD(165.5,1400.2,21,8,0)="Allowable Codes: 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1400.2,21,9,0)=""
^DD(165.5,1400.2,21,10,0)="If there was only one co-morbid condition, leave this field blank."
^DD(165.5,1400.2,21,11,0)=""
^DD(165.5,1400.2,"DT")="3010501"
^DD(165.5,1400.3,0)="LNG CO-MORBID CONDITION 4^*P80'O^ICD9(^LUN1;4^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1400.3,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.3,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.3,12)="If the CO-MORBID CONDITIONS (Y/N) field is set to ""NO"", then no editing of this field is allowed."
^DD(165.5,1400.3,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1400.3,21,0)="^.001^11^11^3010322^^^^"
^DD(165.5,1400.3,21,1,0)=""
^DD(165.5,1400.3,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1400.3,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1400.3,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1400.3,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1400.3,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1400.3,21,7,0)=""
^DD(165.5,1400.3,21,8,0)="Allowable Codes: 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1400.3,21,9,0)=""
^DD(165.5,1400.3,21,10,0)="If there was only one co-morbid condition, leave this field blank."
^DD(165.5,1400.3,21,11,0)=""
^DD(165.5,1400.3,"DT")="3010501"
^DD(165.5,1400.4,0)="LNG CO-MORBID CONDITION 5^*P80'O^ICD9(^LUN1;5^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1400.4,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.4,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.4,12)="If the CO-MORBID CONDITIONS (Y/N) field is set to ""NO"", then no editing of this field is allowed."
^DD(165.5,1400.4,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1400.4,21,0)="^.001^11^11^3010322^^^^"
^DD(165.5,1400.4,21,1,0)=""
^DD(165.5,1400.4,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1400.4,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1400.4,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1400.4,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1400.4,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1400.4,21,7,0)=""
^DD(165.5,1400.4,21,8,0)="Allowable Codes: 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1400.4,21,9,0)=""
^DD(165.5,1400.4,21,10,0)="If there was only one co-morbid condition, leave this field blank."
^DD(165.5,1400.4,21,11,0)=""
^DD(165.5,1400.4,"DT")="3010501"
^DD(165.5,1400.5,0)="LNG CO-MORBID CONDITION 6^*P80'O^ICD9(^LUN1;6^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1400.5,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.5,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1400.5,12)="If the CO-MORBID CONDITIONS (Y/N) field is set to ""NO"", then no editing of this field is allowed."
^DD(165.5,1400.5,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1400.5,21,0)="^.001^11^11^3010322^^^^"
^DD(165.5,1400.5,21,1,0)=""
^DD(165.5,1400.5,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1400.5,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1400.5,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1400.5,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1400.5,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1400.5,21,7,0)=""
^DD(165.5,1400.5,21,8,0)="Allowable Codes: 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1400.5,21,9,0)=""
^DD(165.5,1400.5,21,10,0)="If there was only one co-morbid condition, leave this field blank."
^DD(165.5,1400.5,21,11,0)=""
^DD(165.5,1400.5,"DT")="3010501"
^DD(165.5,1400.6,0)="LNG CO-MORBID CONDITION Y/N^RS^0:No;1:Yes;^LUN1;76^Q"
^DD(165.5,1400.6,21,0)="^.001^11^11^3010509^^^^"
^DD(165.5,1400.6,21,1,0)=""
^DD(165.5,1400.6,21,2,0)="Are CO-MORBID CONDITIONS associated with this cancer (Yes/No)?"
^DD(165.5,1400.6,21,3,0)=""
^DD(165.5,1400.6,21,4,0)="This item records if there were pre-existing medical conditions"
^DD(165.5,1400.6,21,5,0)="present at the time of diagnosis for this cancer."
^DD(165.5,1400.6,21,6,0)=""
^DD(165.5,1400.6,21,7,0)="Answering ""Yes"" will prompt you for CO-MORBID CONDITIONS #1-6."
^DD(165.5,1400.6,21,8,0)=""
^DD(165.5,1400.6,21,9,0)="Answering ""No"" will code CO-MORBID CONDITION #1 with 000.00 and"
^DD(165.5,1400.6,21,10,0)="leave the remaining co-morbid fields blank."
^DD(165.5,1400.6,21,11,0)=""
^DD(165.5,1400.6,"DT")="3010501"
^DD(165.5,1401,0)="LNG DURATION OF TOBACCO USE^FOX^^LUN1;7^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D DTU^ONCOIT"
^DD(165.5,1401,2)="S Y(0)=Y S Y=$S(Y=""00"":""Never used tobacco"",Y=99:""Not documented"",Y=""01"":Y_"" year"",1:Y_"" years"")"
^DD(165.5,1401,2.1)="S Y=$S(Y=""00"":""Never used tobacco"",Y=99:""Not documented"",Y=""01"":Y_"" year"",1:Y_"" years"")"
^DD(165.5,1401,3)="Type a Number between 00 and 99"
^DD(165.5,1401,21,0)="^.001^11^11^3010501^^^^"
^DD(165.5,1401,21,1,0)=""
^DD(165.5,1401,21,2,0)="This item describes the number of known years the patient used some"
^DD(165.5,1401,21,3,0)="form of tobacco, even if the patient is not presently using tobacco."
^DD(165.5,1401,21,4,0)="If the patient has never used tobacco, code 00.  If the patient's"
^DD(165.5,1401,21,5,0)="tobacco use cannot be determined, or if the duration of use is not"
^DD(165.5,1401,21,6,0)="known, code 99."
^DD(165.5,1401,21,7,0)=""
^DD(165.5,1401,21,8,0)="Allowable Codes: 00 - never used tobacco"
^DD(165.5,1401,21,9,0)="                 01 thru 98 - one or more years of tobacco use"
^DD(165.5,1401,21,10,0)="                 99 - duration of tobacco use not documented"
^DD(165.5,1401,21,11,0)=""
^DD(165.5,1401,"DT")="3010501"
^DD(165.5,1402,0)="LNG DATE OF FIRST TISSUE DX^DXO^^LUN1;8^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) D:'$D(X) EN^DDIOL(""Future dates are not allowed"")"
^DD(165.5,1402,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,1402,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,1402,21,0)="^.001^8^8^3010508^^"
^DD(165.5,1402,21,1,0)=""
^DD(165.5,1402,21,2,0)="This item describes the month, day, and year (MMDDCCYY) that this"
^DD(165.5,1402,21,3,0)="primary cancer was first diagnosed using a tissue sample to arrive at"
^DD(165.5,1402,21,4,0)="a positive histologic or cytologic evaluation of the tumor."
^DD(165.5,1402,21,5,0)=""
^DD(165.5,1402,21,6,0)="If a positive histologic or cytologic evaluation was made but the date"
^DD(165.5,1402,21,7,0)="is unknown code 99/99/9999."
^DD(165.5,1402,21,8,0)=""
^DD(165.5,1402,"DT")="3010719"
^DD(165.5,1403,0)="LNG PERSONAL HIST OTH MALIG^P164'O^ONCO(164,^LUN1;9^Q"
^DD(165.5,1403,2)="S Y(0)=Y S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1403,2.1)="S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1403,4)="D ITEM3^ONCLPC1"
^DD(165.5,1403,21,0)="^.001^12^12^3010504^^^^"
^DD(165.5,1403,21,1,0)=""
^DD(165.5,1403,21,2,0)="This item describes the patient's prior history of other invasive"
^DD(165.5,1403,21,3,0)="malignancies.  If the patient has a history of other malignancies"
^DD(165.5,1403,21,4,0)="report the ICD-O-3 site code for the most recently diagnosed disease."
^DD(165.5,1403,21,5,0)="If the patient has no personal history of other cancer, code C88.8. If"
^DD(165.5,1403,21,6,0)="the patient's personal history of other invasive malignancies is not"
^DD(165.5,1403,21,7,0)="documented, code C99.9."
^DD(165.5,1403,21,8,0)=""
^DD(165.5,1403,21,9,0)="Allowable Codes: C00.0 thru C80.9 - valid ICD-0-3 site (topography) codes"
^DD(165.5,1403,21,10,0)="                 C88.8 - no personal history of other cancer"
^DD(165.5,1403,21,11,0)="                 C99.9 - personal history of other cancer not documented"
^DD(165.5,1403,21,12,0)=""
^DD(165.5,1403,"DT")="3010501"
^DD(165.5,1404,0)="LNG COUGH^S^1:Present;2:Not present;9:Not documented if present;^LUN1;10^Q"
^DD(165.5,1404,21,0)="^.001^3^3^3010306^^^^"
^DD(165.5,1404,21,1,0)=""
^DD(165.5,1404,21,2,0)="This item describes the presence of a cough specific to lung (NSCLC)"
^DD(165.5,1404,21,3,0)="cancer that was recorded in the medical chart."
^DD(165.5,1404,"DT")="3010501"
^DD(165.5,1404.1,0)="LNG SHORTNESS OF BREATH^S^1:Present;2:Not present;9:Not documented if present;^LUN1;11^Q"
^DD(165.5,1404.1,21,0)="^.001^3^3^3010306^^"
^DD(165.5,1404.1,21,1,0)=""
^DD(165.5,1404.1,21,2,0)="This item describes the presence of shortness of breath specific to"
^DD(165.5,1404.1,21,3,0)="lung (NSCLC) cancer that was recorded in the medical chart."
^DD(165.5,1404.1,"DT")="3010501"
^DD(165.5,1404.2,0)="LNG WEIGHT LOSS^S^1:Present;2:Not present;9:Not documented if present;^LUN1;12^Q"
^DD(165.5,1404.2,21,0)="^.001^3^3^3010501^^^^"
^DD(165.5,1404.2,21,1,0)=""
^DD(165.5,1404.2,21,2,0)="This item describes the presence of weight loss specific to lung (NSCLC)"
^DD(165.5,1404.2,21,3,0)="cancer that was recorded in the medical chart."
^DD(165.5,1404.2,"DT")="3010501"
^DD(165.5,1404.3,0)="LNG HEMOPTYSIS^S^1:Present;2:Not present;9:Not documented if present;^LUN1;13^Q"
^DD(165.5,1404.3,21,0)="^.001^3^3^3010306^^"
^DD(165.5,1404.3,21,1,0)=""
^DD(165.5,1404.3,21,2,0)="This item describes the presence of hemoptysis specific to lung (NSCLC)"
^DD(165.5,1404.3,21,3,0)="cancer that was recorded in the medical chart."
^DD(165.5,1404.3,"DT")="3010501"
^DD(165.5,1404.4,0)="LNG PALPABLE LYMPH NODES^S^1:Present;2:Not present;9:Not documented if present;^LUN1;14^Q"
^DD(165.5,1404.4,21,0)="^.001^3^3^3020430^^^^"
^DD(165.5,1404.4,21,1,0)=""
^DD(165.5,1404.4,21,2,0)="This item describes the presence of palpable lymph nodes specific to"
^DD(165.5,1404.4,21,3,0)="lung (NSCLC) cancer that was recorded in the medical chart."
^DD(165.5,1404.4,"DT")="3020430"
^DD(165.5,1405,0)="LNG CHEST X-RAY^S^1:Used;2:Not used;9:Not documented if used;^LUN1;15^Q"
^DD(165.5,1405,21,0)="^.001^4^4^3010306^^^"
^DD(165.5,1405,21,1,0)=""
^DD(165.5,1405,21,2,0)="This item identifies patients who are screened routinely or due to a"
^DD(165.5,1405,21,3,0)="high risk history of cardiac and/or pulmonary disease.  Record whether"
^DD(165.5,1405,21,4,0)="a chest x-ray method was used."
^DD(165.5,1405,"DT")="3010501"
^DD(165.5,1405.1,0)="LNG CT SCAN^S^1:Used;2:Not used;9:Not documented if used;^LUN1;16^Q"
^DD(165.5,1405.1,21,0)="^.001^4^4^3010306^^"
^DD(165.5,1405.1,21,1,0)=""
^DD(165.5,1405.1,21,2,0)="This item identifies patients who are screened routinely or due to a"
^DD(165.5,1405.1,21,3,0)="high risk history of cardiac and/or pulmonary disease.  Record whether"
^DD(165.5,1405.1,21,4,0)="a CT scan method was used."
^DD(165.5,1405.1,"DT")="3010501"
^DD(165.5,1405.2,0)="LNG BRONCHOSCOPY^S^1:Used;2:Not used;9:Not documented if used;^LUN1;17^Q"
^DD(165.5,1405.2,21,0)="^.001^4^4^3010306^^"
^DD(165.5,1405.2,21,1,0)=""
^DD(165.5,1405.2,21,2,0)="This item identifies patients who are screened routinely or due to a"
^DD(165.5,1405.2,21,3,0)="high risk history of cardiac and/or pulmonary disease.  Record whether"
^DD(165.5,1405.2,21,4,0)="a bronchoscopy method was used."
^DD(165.5,1405.2,"DT")="3010501"
^DD(165.5,1406,0)="LNG HISTORY AND PHYSICAL^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal results;8:Not performed, not mentioned in record;9:Done, results not documented;^LUN1;18^Q"
^DD(165.5,1406,21,0)="^^4^4^3010306^"
^DD(165.5,1406,21,1,0)=""
^DD(165.5,1406,21,2,0)="This item describes the methods and results of the history and"
^DD(165.5,1406,21,3,0)="physical performed to evaluate and or diagnose the primary tumor"
^DD(165.5,1406,21,4,0)="before definitive therapy."
^DD(165.5,1406,"DT")="3010501"
^DD(165.5,1406.1,0)="LNG BRONCHOSCOPY PRE-THERAPY^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal results;8:Not performed, not mentioned in record;9:Done, results not documented;^LUN1;19^Q"
^DD(165.5,1406.1,21,0)="^^4^4^3010306^"
^DD(165.5,1406.1,21,1,0)=""
^DD(165.5,1406.1,21,2,0)="This item describes the methods and results of the bronchoscopy"
^DD(165.5,1406.1,21,3,0)="performed to evaluate and or diagnose the primary tumor before"
^DD(165.5,1406.1,21,4,0)="definitive therapy."
^DD(165.5,1406.1,"DT")="3010501"
^DD(165.5,1406.2,0)="LNG FNAB^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal results;8:Not performed, not mentioned in record;9:Done, results not documented;^LUN1;20^Q"
^DD(165.5,1406.2,21,0)="^^4^4^3010306^"
^DD(165.5,1406.2,21,1,0)=""
^DD(165.5,1406.2,21,2,0)="This item describes the methods and results of the FNAB (fine"
^DD(165.5,1406.2,21,3,0)="needle aspiration biopsy) performed to evaluate and or diagnose"
^DD(165.5,1406.2,21,4,0)="the primary tumor before definitive therapy."
^DD(165.5,1406.2,"DT")="3010501"
^DD(165.5,1406.3,0)="LNG MEDIASTINOSCOPY^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal results;8:Not performed, not mentioned in record;9:Done, results not documented;^LUN1;21^Q"
^DD(165.5,1406.3,21,0)="^^4^4^3010306^"
^DD(165.5,1406.3,21,1,0)=""
^DD(165.5,1406.3,21,2,0)="This item describes the methods and results of the mediastinoscopy"
^DD(165.5,1406.3,21,3,0)="performed to evaluate and or diagnose the primary tumor before"
^DD(165.5,1406.3,21,4,0)="definitive therapy."
^DD(165.5,1406.3,"DT")="3010501"
^DD(165.5,1406.4,0)="LNG THOROCOTOMY/OPEN BIOPSY^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal results;8:Not performed, not mentioned in record;9:Done, results not documented;^LUN1;22^Q"
^DD(165.5,1406.4,21,0)="^.001^4^4^3010306^^"
^DD(165.5,1406.4,21,1,0)=""
^DD(165.5,1406.4,21,2,0)="This item describes the methods and results of the thorocotomy/open"
^DD(165.5,1406.4,21,3,0)="biopsy (open technique) performed to evaluate and or diagnose the"
^DD(165.5,1406.4,21,4,0)="primary tumor before definitive therapy."
^DD(165.5,1406.4,"DT")="3010501"
^DD(165.5,1406.5,0)="LNG VATS^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal results;8:Not performed, not mentioned in record;9:Done, results not documented;^LUN1;23^Q"
^DD(165.5,1406.5,21,0)="^^4^4^3010306^"
^DD(165.5,1406.5,21,1,0)=""
^DD(165.5,1406.5,21,2,0)="This item describes the methods and results of the VATS (visual"
^DD(165.5,1406.5,21,3,0)="assisted thorocotomy surgery) performed to evaluate and or diagnose"
^DD(165.5,1406.5,21,4,0)="the primary tumor before definitive therapy."
^DD(165.5,1406.5,"DT")="3010501"
^DD(165.5,1407,0)="LNG FVC^NJ4,2XO^^LUN1;24^K:X>9.99!(X<0)!(X?.E1"".""3N.N) X I $D(X) S ONCL=1,ONCF=2 D PFT^ONCOIT"
^DD(165.5,1407,2)="S Y(0)=Y S Y=$S(Y=""0.00"":""Not done"",Y=9.98:""Done, results not documented"",Y=9.99:""Not documented if performed"",1:Y_"" liter(s)"")"
^DD(165.5,1407,2.1)="S Y=$S(Y=""0.00"":""Not done"",Y=9.98:""Done, results not documented"",Y=9.99:""Not documented if performed"",1:Y_"" liter(s)"")"
^DD(165.5,1407,3)="Type a Number between 0.00 and 9.99, 2 Decimal Digits"
^DD(165.5,1407,21,0)="^.001^9^9^3010307^^"
^DD(165.5,1407,21,1,0)=""
^DD(165.5,1407,21,2,0)="This item describes the results of the FVC (forced vital capacity)"
^DD(165.5,1407,21,3,0)="pulmonary function test (PFT).  Record the absolute value of the"
^DD(165.5,1407,21,4,0)="result in liters (L).  Record results to the precision of 2 decimal"
^DD(165.5,1407,21,5,0)="points and record zeros in unused positions; for example 2.54L"
^DD(165.5,1407,21,6,0)="would be coded as 2.54; 1.2L would be coded as 1.20; 0.5L would be"
^DD(165.5,1407,21,7,0)="coded as 0.50.  If a test was administered but the result is not"
^DD(165.5,1407,21,8,0)="documented, code 9.98; if it's not documented whether the test was"
^DD(165.5,1407,21,9,0)="administered, code 9.99."
^DD(165.5,1407,"DT")="3010501"
^DD(165.5,1407.1,0)="LNG FEV^NJ4,2XO^^LUN1;25^K:X>9.99!(X<0)!(X?.E1"".""3N.N) X I $D(X) S ONCL=1,ONCF=2 D PFT^ONCOIT"
^DD(165.5,1407.1,2)="S Y(0)=Y S Y=$S(+Y=0:""Not done"",Y=9.98:""Done, results not documented"",Y=9.99:""Not documented if performed"",1:Y_"" liter(s)"")"
^DD(165.5,1407.1,2.1)="S Y=$S(+Y=0:""Not done"",Y=9.98:""Done, results not documented"",Y=9.99:""Not documented if performed"",1:Y_"" liter(s)"")"
^DD(165.5,1407.1,3)="Type a Number between 0.00 and 9.99, 2 Decimal Digits"
^DD(165.5,1407.1,21,0)="^.001^9^9^3010307^^"
^DD(165.5,1407.1,21,1,0)=""
^DD(165.5,1407.1,21,2,0)="This item describes the results of the FEV (forced expiratory"
^DD(165.5,1407.1,21,3,0)="volume) pulmonary function test (PFT).  Record the absolute value"
^DD(165.5,1407.1,21,4,0)="of the result in liters (L).  Record results to the precision of"
^DD(165.5,1407.1,21,5,0)="2 decimal points and record zeros in unused positions; for example"
^DD(165.5,1407.1,21,6,0)="2.54L would be coded as 2.54; 1.2L would be coded as 1.20; 0.5L"
^DD(165.5,1407.1,21,7,0)="would be coded as 0.50.  If a test was administered but the result"
^DD(165.5,1407.1,21,8,0)="is not documented, code 9.98; if it's not documented whether the"
^DD(165.5,1407.1,21,9,0)="test was administered, code 9.99."
^DD(165.5,1407.1,"DT")="3010501"
^DD(165.5,1408,0)="LNG LIVER FUNCTION TESTS^S^1:Abnormal results, for at least one test;2:Normal results on all tests;8:Test(s) not performed, not mentioned;9:Test(s) done, results not documented;^LUN1;26^Q"
^DD(165.5,1408,21,0)="^.001^6^6^3010307^^"
^DD(165.5,1408,21,1,0)=""
^DD(165.5,1408,21,2,0)="This item describes the results of any test performed to evaluate"
^DD(165.5,1408,21,3,0)="the patient's liver function.  Liver function tests typically include"
^DD(165.5,1408,21,4,0)="protime, bilirubin, albumin and LDH.  If ANY of these tests were"
^DD(165.5,1408,21,5,0)="performed and were documented with abnormal results, code 1.  If ALL"
^DD(165.5,1408,21,6,0)="liver function tests had normal results, code 2."
^DD(165.5,1408,"DT")="3010501"
^DD(165.5,1409,0)="LNG BONE SCAN^S^1:Performed;2:Not performed;9:Requested, not documented if performed;^LUN1;27^Q"
^DD(165.5,1409,21,0)="^^2^2^3010307^"
^DD(165.5,1409,21,1,0)=""
^DD(165.5,1409,21,2,0)="This item records whether or not a bone scan was performed."
^DD(165.5,1409,"DT")="3010501"
^DD(165.5,1409.1,0)="LNG EMPHYSEMA (BONE SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;28^Q"
^DD(165.5,1409.1,21,0)="^.001^3^3^3010308^^^^"
^DD(165.5,1409.1,21,1,0)=""
^DD(165.5,1409.1,21,2,0)="This item records the presence or absence of emphysema as"
^DD(165.5,1409.1,21,3,0)="detected in the bone scan."
^DD(165.5,1409.1,"DT")="3010501"
^DD(165.5,1409.2,0)="LNG VASCULAR INV (BONE SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;29^Q"
^DD(165.5,1409.2,21,0)="^.001^3^3^3010312^^^^"
^DD(165.5,1409.2,21,1,0)=""
^DD(165.5,1409.2,21,2,0)="This item records the presence or absence of vascular invasion as"
^DD(165.5,1409.2,21,3,0)="detected in the bone scan."
^DD(165.5,1409.2,"DT")="3010501"
^DD(165.5,1409.3,0)="LNG MEDIASTINAL LN (BONE SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;30^Q"
^DD(165.5,1409.3,21,0)="^.001^3^3^3010308^^^^"
^DD(165.5,1409.3,21,1,0)=""
^DD(165.5,1409.3,21,2,0)="This item records the presence or absence of enlarged mediastinal"
^DD(165.5,1409.3,21,3,0)="lymph nodes as detected in the bone scan."
^DD(165.5,1409.3,"DT")="3010501"
^DD(165.5,1409.4,0)="LNG TUMOR SIZE (BONE SCAN)^FXO^^LUN1;31^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D RE^ONCOIT"
^DD(165.5,1409.4,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1409.4,2.1)="D RE^ONCOOT"
^DD(165.5,1409.4,3)="Type a Number between 000 and 999"
^DD(165.5,1409.4,21,0)="^.001^3^3^3010315^^^^"
^DD(165.5,1409.4,21,1,0)=""
^DD(165.5,1409.4,21,2,0)="Record the size in millimeters of the dominant (largest) tumor"
^DD(165.5,1409.4,21,3,0)="as detected by the bone scan."
^DD(165.5,1409.4,"DT")="3010501"
^DD(165.5,1409.5,0)="LNG NUM OF TUMORS (BONE SCAN)^FXO^^LUN1;32^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D RE^ONCOIT"
^DD(165.5,1409.5,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1409.5,2.1)="D RE^ONCOOT"
^DD(165.5,1409.5,3)="Type a Number between 00 and 99"
^DD(165.5,1409.5,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1409.5,21,1,0)=""
^DD(165.5,1409.5,21,2,0)="Record the number of tumor nodules found (or identified) by"
^DD(165.5,1409.5,21,3,0)="the bone scan."
^DD(165.5,1409.5,"DT")="3010501"
^DD(165.5,1409.6,0)="LNG METASTASIS (BONE SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;33^Q"
^DD(165.5,1409.6,21,0)="^.001^3^3^3010308^^"
^DD(165.5,1409.6,21,1,0)=""
^DD(165.5,1409.6,21,2,0)="This item records the presence or absence of metastasis as"
^DD(165.5,1409.6,21,3,0)="detected in the bone scan."
^DD(165.5,1409.6,"DT")="3010501"
^DD(165.5,1410,0)="LNG CT SCAN OF CHEST^S^1:Performed;2:Not performed;9:Requested, not documented if performed;^LUN1;34^Q"
^DD(165.5,1410,21,0)="^^3^3^3010307^"
^DD(165.5,1410,21,1,0)=""
^DD(165.5,1410,21,2,0)="This item records whether or not a CT scan of the chest"
^DD(165.5,1410,21,3,0)="was performed."
^DD(165.5,1410,"DT")="3010501"
^DD(165.5,1410.1,0)="LNG EMPHYSEMA (CHEST CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;35^Q"
^DD(165.5,1410.1,21,0)="^.001^3^3^3010308^^^^"
^DD(165.5,1410.1,21,1,0)=""
^DD(165.5,1410.1,21,2,0)="This item records the presence or absence of emphysema as"
^DD(165.5,1410.1,21,3,0)="detected in the CT scan of the chest."
^DD(165.5,1410.1,"DT")="3010501"
^DD(165.5,1410.2,0)="LNG VASCULAR INV (CHEST CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;36^Q"
^DD(165.5,1410.2,21,0)="^^3^3^3010308^"
^DD(165.5,1410.2,21,1,0)=""
^DD(165.5,1410.2,21,2,0)="This item records the presence or absence of vascular invasion as"
^DD(165.5,1410.2,21,3,0)="detected in the CT scan of the chest."
^DD(165.5,1410.2,"DT")="3010501"
^DD(165.5,1410.3,0)="LNG MEDIASTINAL LN (CHEST CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;37^Q"
^DD(165.5,1410.3,21,0)="^^3^3^3010308^"
^DD(165.5,1410.3,21,1,0)=""
^DD(165.5,1410.3,21,2,0)="This item records the presence or absence of enlarged mediastinal"
^DD(165.5,1410.3,21,3,0)="lymph nodes as detected in the CT scan of the chest."
^DD(165.5,1410.3,"DT")="3010501"
^DD(165.5,1410.4,0)="LNG TUMOR SIZE (CHEST CT)^FXO^^LUN1;38^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D RE^ONCOIT"
^DD(165.5,1410.4,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1410.4,2.1)="D RE^ONCOOT"
^DD(165.5,1410.4,3)="Type a Number between 000 and 999"
^DD(165.5,1410.4,21,0)="^.001^3^3^3010314^^^^"
^DD(165.5,1410.4,21,1,0)=""
^DD(165.5,1410.4,21,2,0)="Record the size in millimeters of the dominant (largest) tumor"
^DD(165.5,1410.4,21,3,0)="as detected by the CT scan of the chest."
^DD(165.5,1410.4,"DT")="3010501"
^DD(165.5,1410.5,0)="LNG NUM OF TUMORS (CHEST CT)^FXO^^LUN1;39^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D RE^ONCOIT"
^DD(165.5,1410.5,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1410.5,2.1)="D RE^ONCOOT"
^DD(165.5,1410.5,3)="Type a Number between 00 and 99"
^DD(165.5,1410.5,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1410.5,21,1,0)=""
^DD(165.5,1410.5,21,2,0)="Record the number of tumor nodules found (or identified) by"
^DD(165.5,1410.5,21,3,0)="the CT scan of the chest."
^DD(165.5,1410.5,"DT")="3010501"
^DD(165.5,1410.6,0)="LNG METASTASIS (CHEST CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;40^Q"
^DD(165.5,1410.6,21,0)="^^3^3^3010308^"
^DD(165.5,1410.6,21,1,0)=""
^DD(165.5,1410.6,21,2,0)="This item records the presence or absence of metastasis as"
^DD(165.5,1410.6,21,3,0)="detected in the CT scan of the chest."
^DD(165.5,1410.6,"DT")="3010501"
^DD(165.5,1411,0)="LNG CT SCAN OF BRAIN^S^1:Performed;2:Not performed;9:Requested, not documented if performed;^LUN1;41^Q"
^DD(165.5,1411,21,0)="^^3^3^3010307^"
^DD(165.5,1411,21,1,0)=""
^DD(165.5,1411,21,2,0)="This item records whether or not a CT scan of the brain"
^DD(165.5,1411,21,3,0)="was performed."
^DD(165.5,1411,"DT")="3010501"
^DD(165.5,1411.1,0)="LNG EMPHYSEMA (BRAIN CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;42^Q"
^DD(165.5,1411.1,21,0)="^.001^3^3^3010308^^^"
^DD(165.5,1411.1,21,1,0)=""
^DD(165.5,1411.1,21,2,0)="This item records the presence or absence of emphysema as"
^DD(165.5,1411.1,21,3,0)="detected in the CT scan of the brain."
^DD(165.5,1411.1,"DT")="3010501"
^DD(165.5,1411.2,0)="LNG VASCULAR INV (BRAIN CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;43^Q"
^DD(165.5,1411.2,21,0)="^^3^3^3010308^"
^DD(165.5,1411.2,21,1,0)=""
^DD(165.5,1411.2,21,2,0)="This item records the presence or absence of vascular invasion as"
^DD(165.5,1411.2,21,3,0)="detected in the CT scan of the brain."
^DD(165.5,1411.2,"DT")="3010501"
^DD(165.5,1411.3,0)="LNG MEDIASTINAL LN (BRAIN CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;44^Q"
^DD(165.5,1411.3,21,0)="^.001^3^3^3010312^^"
^DD(165.5,1411.3,21,1,0)=""
^DD(165.5,1411.3,21,2,0)="This item records the presence or absence of enlarged mediastinal"
^DD(165.5,1411.3,21,3,0)="lymph nodes as detected in the CT scan of the brain."
^DD(165.5,1411.3,"DT")="3010501"
^DD(165.5,1411.4,0)="LNG TUMOR SIZE (BRAIN CT)^FXO^^LUN1;45^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D RE^ONCOIT"
^DD(165.5,1411.4,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1411.4,2.1)="D RE^ONCOOT"
^DD(165.5,1411.4,3)="Type a Number between 000 and 999"
^DD(165.5,1411.4,21,0)="^.001^3^3^3010314^^^^"
^DD(165.5,1411.4,21,1,0)=""
^DD(165.5,1411.4,21,2,0)="Record the size in millimeters of the dominant (largest) tumor"
^DD(165.5,1411.4,21,3,0)="as detected by the CT scan of the brain."
^DD(165.5,1411.4,"DT")="3010501"
^DD(165.5,1411.5,0)="LNG NUM OF TUMORS (BRAIN CT)^FXO^^LUN1;46^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D RE^ONCOIT"
^DD(165.5,1411.5,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1411.5,2.1)="D RE^ONCOOT"
^DD(165.5,1411.5,3)="Type a Number between 00 and 99"
^DD(165.5,1411.5,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1411.5,21,1,0)=""
^DD(165.5,1411.5,21,2,0)="Record the number of tumor nodules found (or identified) by"
^DD(165.5,1411.5,21,3,0)="the CT scan of the brain."
^DD(165.5,1411.5,"DT")="3010501"
^DD(165.5,1411.6,0)="LNG METASTASIS (BRAIN CT)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;47^Q"
^DD(165.5,1411.6,21,0)="^^3^3^3010308^"
^DD(165.5,1411.6,21,1,0)=""
^DD(165.5,1411.6,21,2,0)="This item records the presence or absence of metastasis as"
^DD(165.5,1411.6,21,3,0)="detected in the CT scan of the brain."
^DD(165.5,1411.6,"DT")="3010501"
^DD(165.5,1412,0)="LNG MRI SCAN OF CHEST^S^1:Performed;2:Not performed;9:Requested, not documented if performed;^LUN1;48^Q"
^DD(165.5,1412,21,0)="^^3^3^3010307^"
^DD(165.5,1412,21,1,0)=""
^DD(165.5,1412,21,2,0)="This item records whether or not a MRI scan of the chest"
^DD(165.5,1412,21,3,0)="was performed."
^DD(165.5,1412,"DT")="3010501"
^DD(165.5,1412.1,0)="LNG EMPHYSEMA (CHEST MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;49^Q"
^DD(165.5,1412.1,21,0)="^.001^3^3^3010308^^^"
^DD(165.5,1412.1,21,1,0)=""
^DD(165.5,1412.1,21,2,0)="This item records the presence or absence of emphysema as"
^DD(165.5,1412.1,21,3,0)="detected in the MRI of the chest."
^DD(165.5,1412.1,"DT")="3010501"
^DD(165.5,1412.2,0)="LNG VASCULAR INV (CHEST MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;50^Q"
^DD(165.5,1412.2,21,0)="^^3^3^3010308^"
^DD(165.5,1412.2,21,1,0)=""
^DD(165.5,1412.2,21,2,0)="This item records the presence or absence of vascular invasion as"
^DD(165.5,1412.2,21,3,0)="detected in the MRI scan of chest."
^DD(165.5,1412.2,"DT")="3010501"
^DD(165.5,1412.3,0)="LNG MEDIASTINAL LN (CHEST MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;51^Q"
^DD(165.5,1412.3,21,0)="^^3^3^3010308^"
^DD(165.5,1412.3,21,1,0)=""
^DD(165.5,1412.3,21,2,0)="This item records the presence or absence of enlarged mediastinal"
^DD(165.5,1412.3,21,3,0)="lymph nodes as detected in the MRI scan of the chest."
^DD(165.5,1412.3,"DT")="3010501"
^DD(165.5,1412.4,0)="LNG TUMOR SIZE (CHEST MRI)^FXO^^LUN1;52^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D RE^ONCOIT"
^DD(165.5,1412.4,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1412.4,2.1)="D RE^ONCOOT"
^DD(165.5,1412.4,3)="Type a Number between 000 and 999"
^DD(165.5,1412.4,21,0)="^.001^3^3^3010314^^^"
^DD(165.5,1412.4,21,1,0)=""
^DD(165.5,1412.4,21,2,0)="Record the size in millimeters of the dominant (largest) tumor"
^DD(165.5,1412.4,21,3,0)="as detected by the MRI scan of the chest."
^DD(165.5,1412.4,"DT")="3010501"
^DD(165.5,1412.5,0)="LNG NUM OF TUMORS (CHEST MRI)^FXO^^LUN1;53^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D RE^ONCOIT"
^DD(165.5,1412.5,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1412.5,2.1)="D RE^ONCOOT"
^DD(165.5,1412.5,3)="Type a Number between 00 and 99"
^DD(165.5,1412.5,21,0)="^.001^3^3^3010314^^^"
^DD(165.5,1412.5,21,1,0)=""
^DD(165.5,1412.5,21,2,0)="Record the number of tumor nodules found (or identified) by"
^DD(165.5,1412.5,21,3,0)="the MRI scan of the chest."
^DD(165.5,1412.5,"DT")="3010501"
^DD(165.5,1412.6,0)="LNG METASTASIS (CHEST MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;54^Q"
^DD(165.5,1412.6,21,0)="^.001^3^3^3010308^^"
^DD(165.5,1412.6,21,1,0)=""
^DD(165.5,1412.6,21,2,0)="This item records the presence or absence of metastasis as"
^DD(165.5,1412.6,21,3,0)="detected in the MRI scan of the chest."
^DD(165.5,1412.6,"DT")="3010501"
^DD(165.5,1413,0)="LNG MRI SCAN OF BRAIN^S^1:Performed;2:Not performed;9:Requested, not documented if performed;^LUN1;55^Q"
^DD(165.5,1413,21,0)="^^3^3^3010307^"
^DD(165.5,1413,21,1,0)=""
^DD(165.5,1413,21,2,0)="This item records whether or not a MRI scan of the brain"
^DD(165.5,1413,21,3,0)="was performed."
^DD(165.5,1413,"DT")="3010501"
^DD(165.5,1413.1,0)="LNG EMPHYSEMA (BRAIN MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;56^Q"
^DD(165.5,1413.1,21,0)="^.001^3^3^3010308^^"
^DD(165.5,1413.1,21,1,0)=""
^DD(165.5,1413.1,21,2,0)="This item records the presence or absence of emphysema as"
^DD(165.5,1413.1,21,3,0)="detected in the MRI of the brain."
^DD(165.5,1413.1,"DT")="3010501"
^DD(165.5,1413.2,0)="LNG VASCULAR INV (BRAIN MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;57^Q"
^DD(165.5,1413.2,21,0)="^^3^3^3010308^"
^DD(165.5,1413.2,21,1,0)=""
^DD(165.5,1413.2,21,2,0)="This item records the presence or absence of vascular invasion as"
^DD(165.5,1413.2,21,3,0)="detected in the MRI scan of the brain."
^DD(165.5,1413.2,"DT")="3010501"
^DD(165.5,1413.3,0)="LNG MEDIASTINAL LN (BRAIN MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;58^Q"
^DD(165.5,1413.3,21,0)="^^3^3^3010308^"
^DD(165.5,1413.3,21,1,0)=""
^DD(165.5,1413.3,21,2,0)="This item records the presence or absence of enlarged mediastinal"
^DD(165.5,1413.3,21,3,0)="lymph nodes as detected in the MRI scan of the brain."
^DD(165.5,1413.3,"DT")="3010501"
^DD(165.5,1413.4,0)="LNG TUMOR SIZE (BRAIN MRI)^FXO^^LUN1;59^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D RE^ONCOIT"
^DD(165.5,1413.4,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1413.4,2.1)="D RE^ONCOOT"
^DD(165.5,1413.4,3)="Type a Number between 000 and 999"
^DD(165.5,1413.4,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1413.4,21,1,0)=""
^DD(165.5,1413.4,21,2,0)="Record the size in millimeters of the dominant (largest) tumor"
^DD(165.5,1413.4,21,3,0)="as detected by the MRI scan of the brain."
^DD(165.5,1413.4,"DT")="3010501"
^DD(165.5,1413.5,0)="LNG NUM OF TUMORS (BRAIN MRI)^FXO^^LUN1;60^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D RE^ONCOIT"
^DD(165.5,1413.5,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1413.5,2.1)="D RE^ONCOOT"
^DD(165.5,1413.5,3)="Type a Number between 00 and 99"
^DD(165.5,1413.5,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1413.5,21,1,0)=""
^DD(165.5,1413.5,21,2,0)="Record the number of tumor nodules found (or identified) by"
^DD(165.5,1413.5,21,3,0)="the MRI scan of the brain."
^DD(165.5,1413.5,"DT")="3010501"
^DD(165.5,1413.6,0)="LNG METASTASIS (BRAIN MRI)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;61^Q"
^DD(165.5,1413.6,21,0)="^^3^3^3010308^"
^DD(165.5,1413.6,21,1,0)=""
^DD(165.5,1413.6,21,2,0)="This item records the presence or absence of metastasis as"
^DD(165.5,1413.6,21,3,0)="detected in the MRI scan of the brain."
^DD(165.5,1413.6,"DT")="3010501"
^DD(165.5,1414,0)="LNG PET SCAN^S^1:Performed;2:Not performed;9:Requested, not documented if performed;^LUN1;62^Q"
^DD(165.5,1414,21,0)="^^3^3^3010307^"
^DD(165.5,1414,21,1,0)=""
^DD(165.5,1414,21,2,0)="This item records whether or not a PET (positron emission"
^DD(165.5,1414,21,3,0)="tomography) scan was performed."
^DD(165.5,1414,"DT")="3010501"
^DD(165.5,1414.1,0)="LNG EMPHYSEMA (PET SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;63^Q"
^DD(165.5,1414.1,21,0)="^.001^3^3^3010308^^"
^DD(165.5,1414.1,21,1,0)=""
^DD(165.5,1414.1,21,2,0)="This item records the presence or absence of emphysema as"
^DD(165.5,1414.1,21,3,0)="detected in the PET (positron emission tomography) scan."
^DD(165.5,1414.1,"DT")="3010501"
^DD(165.5,1414.2,0)="LNG VASCULAR INV (PET SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;64^Q"
^DD(165.5,1414.2,21,0)="^^3^3^3010308^"
^DD(165.5,1414.2,21,1,0)=""
^DD(165.5,1414.2,21,2,0)="This item records the presence or absence of vascular invasion as"
^DD(165.5,1414.2,21,3,0)="detected in the PET (positron emission tomography) scan."
^DD(165.5,1414.2,"DT")="3010501"
^DD(165.5,1414.3,0)="LNG MEDIASTINAL LN (PET SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;65^Q"
^DD(165.5,1414.3,21,0)="^.001^3^3^3010308^^"
^DD(165.5,1414.3,21,1,0)=""
^DD(165.5,1414.3,21,2,0)="This item records the presence or absence of enlarged mediastinal lymph"
^DD(165.5,1414.3,21,3,0)="nodes as detected in the PET (positron emission tomography) scan."
^DD(165.5,1414.3,"DT")="3010501"
^DD(165.5,1414.4,0)="LNG TUMOR SIZE (PET SCAN)^FXO^^LUN1;66^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D RE^ONCOIT"
^DD(165.5,1414.4,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1414.4,2.1)="D RE^ONCOOT"
^DD(165.5,1414.4,3)="Type a Number between 000 and 999"
^DD(165.5,1414.4,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1414.4,21,1,0)=""
^DD(165.5,1414.4,21,2,0)="Record the size in millimeters of the dominant (largest) tumor"
^DD(165.5,1414.4,21,3,0)="as detected by the PET (positron emission tomography) scan."
^DD(165.5,1414.4,"DT")="3010501"
^DD(165.5,1414.5,0)="LNG NUM OF TUMORS (PET SCAN)^FXO^^LUN1;67^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D RE^ONCOIT"
^DD(165.5,1414.5,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1414.5,2.1)="D RE^ONCOOT"
^DD(165.5,1414.5,3)="Type a Number between 00 and 99"
^DD(165.5,1414.5,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1414.5,21,1,0)=""
^DD(165.5,1414.5,21,2,0)="Record the number of tumor nodules found (or identified) by"
^DD(165.5,1414.5,21,3,0)="the PET (positron emission tomography) scan."
^DD(165.5,1414.5,"DT")="3010501"
^DD(165.5,1414.6,0)="LNG METASTASIS (PET SCAN)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;68^Q"
^DD(165.5,1414.6,21,0)="^.001^3^3^3010312^^"
^DD(165.5,1414.6,21,1,0)=""
^DD(165.5,1414.6,21,2,0)="This item records the presence or absence of metastasis as"
^DD(165.5,1414.6,21,3,0)="detected in the PET (positron emission tomography) scan."
^DD(165.5,1414.6,"DT")="3010501"
^DD(165.5,1415,0)="LNG X-RAY OF CHEST^S^1:Performed;2:Not performed;9:Requested, not documented if performed;^LUN1;69^Q"
^DD(165.5,1415,21,0)="^^2^2^3010307^"
^DD(165.5,1415,21,1,0)=""
^DD(165.5,1415,21,2,0)="This item records whether or not a chest x-ray was performed."
^DD(165.5,1415,"DT")="3010501"
^DD(165.5,1415.1,0)="LNG EMPHYSEMA (CHEST XRAY)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;70^Q"
^DD(165.5,1415.1,21,0)="^.001^3^3^3010308^^^"
^DD(165.5,1415.1,21,1,0)=""
^DD(165.5,1415.1,21,2,0)="This item records the presence or absence of emphysema as"
^DD(165.5,1415.1,21,3,0)="detected in the X-Ray of the chest."
^DD(165.5,1415.1,"DT")="3010501"
^DD(165.5,1415.2,0)="LNG VASCULAR INV (CHEST XRAY)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;71^Q"
^DD(165.5,1415.2,21,0)="^^3^3^3010308^"
^DD(165.5,1415.2,21,1,0)=""
^DD(165.5,1415.2,21,2,0)="This item records the presence or absence of vascular invasion as"
^DD(165.5,1415.2,21,3,0)="detected in the X-ray of the chest."
^DD(165.5,1415.2,"DT")="3010501"
^DD(165.5,1415.3,0)="LNG MEDIASTINAL (CHEST XRAY)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;72^Q"
^DD(165.5,1415.3,21,0)="^^3^3^3010308^"
^DD(165.5,1415.3,21,1,0)=""
^DD(165.5,1415.3,21,2,0)="This item records the presence or absence of enlarged mediastinal"
^DD(165.5,1415.3,21,3,0)="lymph nodes as detected in the X-ray of the chest."
^DD(165.5,1415.3,"DT")="3010501"
^DD(165.5,1415.4,0)="LNG TUMOR SIZE (CHEST XRAY)^FXO^^LUN1;73^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D RE^ONCOIT"
^DD(165.5,1415.4,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1415.4,2.1)="D RE^ONCOOT"
^DD(165.5,1415.4,3)="Type a Number between 000 and 999"
^DD(165.5,1415.4,21,0)="^.001^3^3^3010314^^^"
^DD(165.5,1415.4,21,1,0)=""
^DD(165.5,1415.4,21,2,0)="Record the size in millimeters of the dominant (largest) tumor"
^DD(165.5,1415.4,21,3,0)="as detected by the X-ray of the chest."
^DD(165.5,1415.4,"DT")="3010501"
^DD(165.5,1415.5,0)="LNG NUM OF TUMORS (CHEST XRAY)^FXO^^LUN1;74^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D RE^ONCOIT"
^DD(165.5,1415.5,2)="S Y(0)=Y D RE^ONCOOT"
^DD(165.5,1415.5,2.1)="D RE^ONCOOT"
^DD(165.5,1415.5,3)="Type a Number between 00 and 99"
^DD(165.5,1415.5,21,0)="^.001^3^3^3010314^^"
^DD(165.5,1415.5,21,1,0)=""
^DD(165.5,1415.5,21,2,0)="Record the number of tumor nodules found (or identified) by"
^DD(165.5,1415.5,21,3,0)="the X-ray of the chest."
^DD(165.5,1415.5,"DT")="3010501"
^DD(165.5,1415.6,0)="LNG METASTASIS (CHEST XRAY)^S^1:Present;2:Absent;8:NA, test not performed;9:Not documented;^LUN1;75^Q"
^DD(165.5,1415.6,21,0)="^.001^3^3^3010308^^"
^DD(165.5,1415.6,21,1,0)=""
^DD(165.5,1415.6,21,2,0)="This item records the presence or absence of metastasis as"
^DD(165.5,1415.6,21,3,0)="detected in the X-ray of the chest."
^DD(165.5,1415.6,"DT")="3010501"
^DD(165.5,1416,0)="LNG HIGH MEDIASTINAL (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;1^Q"
^DD(165.5,1416,21,0)="^.001^4^4^3010315^^^^"
^DD(165.5,1416,21,1,0)=""
^DD(165.5,1416,21,2,0)="This item describes whether the highest mediastinal (level 1) nodes"
^DD(165.5,1416,21,3,0)="were sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416,21,4,0)="any positive nodes were found."
^DD(165.5,1416,"DT")="3010501"
^DD(165.5,1416.1,0)="LNG UPPER PARATRACH (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;2^Q"
^DD(165.5,1416.1,21,0)="^.001^4^4^3010315^^^^"
^DD(165.5,1416.1,21,1,0)=""
^DD(165.5,1416.1,21,2,0)="This item describes whether the upper paratracheal (level 2) nodes"
^DD(165.5,1416.1,21,3,0)="were sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416.1,21,4,0)="any positive nodes were found."
^DD(165.5,1416.1,"DT")="3010501"
^DD(165.5,1416.2,0)="LNG PREVASC/RETRO (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;3^Q"
^DD(165.5,1416.2,21,0)="^.001^4^4^3010315^^^^"
^DD(165.5,1416.2,21,1,0)=""
^DD(165.5,1416.2,21,2,0)="This item describes whether the prevascular and retrotracheal"
^DD(165.5,1416.2,21,3,0)="(level 3) nodes were sampled prior to the first course of therapy"
^DD(165.5,1416.2,21,4,0)="and if so, whether any positive nodes were found."
^DD(165.5,1416.2,"DT")="3010501"
^DD(165.5,1416.3,0)="LNG LOWER PARATRACH (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;4^Q"
^DD(165.5,1416.3,21,0)="^.001^4^4^3010315^^^^"
^DD(165.5,1416.3,21,1,0)=""
^DD(165.5,1416.3,21,2,0)="This item describes whether the lower paratracheal (level 4) nodes"
^DD(165.5,1416.3,21,3,0)="were sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416.3,21,4,0)="any positive nodes were found."
^DD(165.5,1416.3,"DT")="3010501"
^DD(165.5,1416.4,0)="LNG SUBAORTIC (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;5^Q"
^DD(165.5,1416.4,21,0)="^.001^4^4^3010315^^^^"
^DD(165.5,1416.4,21,1,0)=""
^DD(165.5,1416.4,21,2,0)="This item describes whether the subaortic (level 5) nodes were"
^DD(165.5,1416.4,21,3,0)="sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416.4,21,4,0)="any positive nodes were found."
^DD(165.5,1416.4,"DT")="3010501"
^DD(165.5,1416.5,0)="LNG PARAORTIC (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;6^Q"
^DD(165.5,1416.5,21,0)="^.001^4^4^3010315^^^"
^DD(165.5,1416.5,21,1,0)=""
^DD(165.5,1416.5,21,2,0)="This item describes whether the paraortic (level 6) nodes were"
^DD(165.5,1416.5,21,3,0)="sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416.5,21,4,0)="any positive nodes were found."
^DD(165.5,1416.5,"DT")="3010501"
^DD(165.5,1416.6,0)="LNG SUBCARINAL (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;7^Q"
^DD(165.5,1416.6,21,0)="^.001^4^4^3010315^^^"
^DD(165.5,1416.6,21,1,0)=""
^DD(165.5,1416.6,21,2,0)="This item describes whether the subcarinal (level 7) nodes were"
^DD(165.5,1416.6,21,3,0)="sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416.6,21,4,0)="any positive nodes were found."
^DD(165.5,1416.6,"DT")="3010501"
^DD(165.5,1416.7,0)="LNG PARAESOPHAGEAL (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;8^Q"
^DD(165.5,1416.7,21,0)="^.001^4^4^3010315^^^"
^DD(165.5,1416.7,21,1,0)=""
^DD(165.5,1416.7,21,2,0)="This item describes whether the paraesophageal (level 8) nodes"
^DD(165.5,1416.7,21,3,0)="were sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416.7,21,4,0)="any positive nodes were found."
^DD(165.5,1416.7,"DT")="3010501"
^DD(165.5,1416.8,0)="LNG PULMONARY LIG (PRE-OP)^S^1:No nodes sampled;2:Sampled, no evidence of positive nodes;3:Sampled, evidence of positive nodes;4:Node sampling not mentioned;5:Sampled, results not documented;^LUN2;9^Q"
^DD(165.5,1416.8,21,0)="^.001^4^4^3010315^^^^"
^DD(165.5,1416.8,21,1,0)=""
^DD(165.5,1416.8,21,2,0)="This item describes whether the pulmonary ligament (level 9) nodes"
^DD(165.5,1416.8,21,3,0)="were sampled prior to the first course of therapy and if so, whether"
^DD(165.5,1416.8,21,4,0)="any positive nodes were found."
^DD(165.5,1416.8,"DT")="3010501"
^DD(165.5,1417,0)="LNG FROZEN SECTION^S^1:Surgery performed, no frozen section taken;2:Surgery performed, frozen section taken;8:NA, no surgery;9:Not documented;^LUN2;10^Q"
^DD(165.5,1417,21,0)="^^3^3^3010315^"
^DD(165.5,1417,21,1,0)=""
^DD(165.5,1417,21,2,0)="This item describes whether or not a frozen section was taken"
^DD(165.5,1417,21,3,0)="according to the pathology report."
^DD(165.5,1417,"DT")="3010501"
^DD(165.5,1418,0)="LNG VASCULAR INVASION^S^1:Structure not involved;2:Yes, structure involved;9:Not documented;^LUN2;11^Q"
^DD(165.5,1418,21,0)="^.001^2^2^3010315^^^^"
^DD(165.5,1418,21,1,0)=""
^DD(165.5,1418,21,2,0)="This item describes any tumor invasion of the vascular structure."
^DD(165.5,1418,"DT")="3010501"
^DD(165.5,1418.1,0)="LNG LYMPHATICS INVASION^S^1:Structure not involved;2:Yes, structure involved;9:Not documented;^LUN2;12^Q"
^DD(165.5,1418.1,21,0)="^^2^2^3010315^"
^DD(165.5,1418.1,21,1,0)=""
^DD(165.5,1418.1,21,2,0)="This item describes any tumor invasion of the lymphatics structure."
^DD(165.5,1418.1,"DT")="3010501"
^DD(165.5,1418.2,0)="LNG PLEURA INVASION^S^1:Structure not involved;2:Yes, structure involved;9:Not documented;^LUN2;13^Q"
^DD(165.5,1418.2,21,0)="^^2^2^3010315^"
^DD(165.5,1418.2,21,1,0)=""
^DD(165.5,1418.2,21,2,0)="This item describes any tumor invasion of the pleura structure."
^DD(165.5,1418.2,"DT")="3010501"
^DD(165.5,1418.3,0)="LNG CHEST WALL INVASION^S^1:Structure not involved;2:Yes, structure involved;9:Not documented;^LUN2;14^Q"
^DD(165.5,1418.3,21,0)="^^2^2^3010315^"
^DD(165.5,1418.3,21,1,0)=""
^DD(165.5,1418.3,21,2,0)="This item describes any tumor invasion of the chest wall."
^DD(165.5,1418.3,"DT")="3010501"
^DD(165.5,1418.4,0)="LNG OTHER INVASION^S^1:Structure not involved;2:Yes, structure involved;9:Not documented;^LUN2;15^Q"
^DD(165.5,1418.4,21,0)="^^2^2^3010315^"
^DD(165.5,1418.4,21,1,0)=""
^DD(165.5,1418.4,21,2,0)="This item describes any tumor invasion of any other structure."
^DD(165.5,1418.4,"DT")="3010501"
^DD(165.5,1419,0)="LNG HIGH MEDIASTINAL (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;16^Q"
^DD(165.5,1419,21,0)="^.001^4^4^3010315^^^"
^DD(165.5,1419,21,1,0)=""
^DD(165.5,1419,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419,21,4,0)="highest mediastinal (level 1) nodes were sampled or taken en bloc."
^DD(165.5,1419,"DT")="3010501"
^DD(165.5,1419.1,0)="LNG UPPER PARATRACHEAL (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;17^Q"
^DD(165.5,1419.1,21,0)="^.001^4^4^3010315^^^"
^DD(165.5,1419.1,21,1,0)=""
^DD(165.5,1419.1,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.1,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.1,21,4,0)="upper paratracheal (level 2) nodes were sampled or taken en bloc."
^DD(165.5,1419.1,"DT")="3010501"
^DD(165.5,1419.2,0)="LNG PREVASC/RETROTRACH (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;18^Q"
^DD(165.5,1419.2,21,0)="^^5^5^3010315^"
^DD(165.5,1419.2,21,1,0)=""
^DD(165.5,1419.2,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.2,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.2,21,4,0)="prevascular & retrotracheal (level 3) nodes were sampled or taken"
^DD(165.5,1419.2,21,5,0)="en bloc."
^DD(165.5,1419.2,"DT")="3010501"
^DD(165.5,1419.3,0)="LNG LOWER PARATRACHEAL (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;19^Q"
^DD(165.5,1419.3,21,0)="^^4^4^3010315^"
^DD(165.5,1419.3,21,1,0)=""
^DD(165.5,1419.3,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.3,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.3,21,4,0)="lower paratracheal (level 4) nodes were sampled or taken en bloc."
^DD(165.5,1419.3,"DT")="3010501"
^DD(165.5,1419.4,0)="LNG SUBAORTIC (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;20^Q"
^DD(165.5,1419.4,21,0)="^^4^4^3010315^"
^DD(165.5,1419.4,21,1,0)=""
^DD(165.5,1419.4,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.4,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.4,21,4,0)="subaortic (level 5) nodes were sampled or taken en bloc."
^DD(165.5,1419.4,"DT")="3010501"
^DD(165.5,1419.5,0)="LNG PARAORTIC (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;21^Q"
^DD(165.5,1419.5,21,0)="^^4^4^3010315^"
^DD(165.5,1419.5,21,1,0)=""
^DD(165.5,1419.5,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.5,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.5,21,4,0)="paraortic (level 6) nodes were sampled or taken en bloc."
^DD(165.5,1419.5,"DT")="3010501"
^DD(165.5,1419.6,0)="LNG SUBCARINAL (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;22^Q"
^DD(165.5,1419.6,21,0)="^^4^4^3010315^"
^DD(165.5,1419.6,21,1,0)=""
^DD(165.5,1419.6,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.6,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.6,21,4,0)="subcarinal (level 7) nodes were sampled or taken en bloc."
^DD(165.5,1419.6,"DT")="3010501"
^DD(165.5,1419.7,0)="LNG PARAESOPHAGEAL (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;23^Q"
^DD(165.5,1419.7,21,0)="^^4^4^3010315^"
^DD(165.5,1419.7,21,1,0)=""
^DD(165.5,1419.7,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.7,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.7,21,4,0)="paraesophageal (level 8) nodes were sampled or taken en bloc."
^DD(165.5,1419.7,"DT")="3010501"
^DD(165.5,1419.8,0)="LNG PULMONARY LIGAMENT (SCOPE)^S^1:Nodes not sampled;2:Nodes sampled, but not removed en bloc;3:Nodes removed en bloc;9:Lymph node assessment not documented;^LUN2;24^Q"
^DD(165.5,1419.8,21,0)="^^4^4^3010315^"
^DD(165.5,1419.8,21,1,0)=""
^DD(165.5,1419.8,21,2,0)="This item describes the scope of operative mediastinal lymph node"
^DD(165.5,1419.8,21,3,0)="assessment during surgery of the primary site.  Record whether the"
^DD(165.5,1419.8,21,4,0)="pulmonary ligament (level 9) nodes were sampled or taken en bloc."
^DD(165.5,1419.8,"DT")="3010501"
^DD(165.5,1420,0)="LNG PERI-OPERATIVE BLOOD REP^FXO^^LUN2;25^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D TPBR^ONCOIT"
^DD(165.5,1420,.1)=""
^DD(165.5,1420,2)="S Y(0)=Y S Y=$S(Y=""00"":""No transfusion"",Y=98:""Transfusion, # of units not documented"",Y=99:""Not recorded if transfusion done"",Y=""01"":Y_"" unit"",1:Y_"" units"")"
^DD(165.5,1420,2.1)="S Y=$S(Y=""00"":""No transfusion"",Y=98:""Transfusion, # of units not documented"",Y=99:""Not recorded if transfusion done"",Y=""01"":Y_"" unit"",1:Y_"" units"")"
^DD(165.5,1420,3)="Type a Number between 00 and 99"
^DD(165.5,1420,21,0)="^.001^4^4^3010509^^^^"
^DD(165.5,1420,21,1,0)=""
^DD(165.5,1420,21,2,0)="This item describes the total number of units of blood transfused"
^DD(165.5,1420,21,3,0)="within 30 days of operation.  If the patient was transfused but"
^DD(165.5,1420,21,4,0)="the number of units is unknown, code 98."
^DD(165.5,1420,"DT")="3010501"
^DD(165.5,1421,0)="LNG PERI-OPERATIVE DEATH^S^1:Died within same hospitalization;2:Died within 30 days of surgery;3:Both 1 & 2;4:Discharged/alive 30 days after surgery;9:Unknown;^LUN2;26^Q"
^DD(165.5,1421,21,0)="^.001^2^2^3010315^^^"
^DD(165.5,1421,21,1,0)=""
^DD(165.5,1421,21,2,0)="This item describes whether or not the patient died peri-operatively."
^DD(165.5,1421,"DT")="3010501"
^DD(165.5,1422,0)="LNG BOOST DOSE (cGy)^FXO^^LUN2;27^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X I $D(X) S ONCL=5 D BD^ONCOIT"
^DD(165.5,1422,2)="S Y(0)=Y S Y=$S(Y=""00000"":""Not administered"",Y=99999:""Not documented"",1:Y)"
^DD(165.5,1422,2.1)="S Y=$S(Y=""00000"":""Not administered"",Y=99999:Not documented"",1:Y)"
^DD(165.5,1422,3)="Type a Number between 00000 and 99999"
^DD(165.5,1422,21,0)="^.001^9^9^3010501^^^^"
^DD(165.5,1422,21,1,0)=""
^DD(165.5,1422,21,2,0)="This item describes the boost dose of radiation administered to"
^DD(165.5,1422,21,3,0)="the central tumor field of the patient.  If radiation was administered"
^DD(165.5,1422,21,4,0)="but boost dose is unknown, code 99999."
^DD(165.5,1422,21,5,0)=""
^DD(165.5,1422,21,6,0)="Allowable Codes: 00000 - no radiation boost dose administered"
^DD(165.5,1422,21,7,0)="                 00001 thru 99998 - boost dose administered (cGy)"
^DD(165.5,1422,21,8,0)="                 99999- boost dose administered, dose not documented"
^DD(165.5,1422,21,9,0)=""
^DD(165.5,1422,"DT")="3010501"
^DD(165.5,1423,0)="LNG CHEMOTHERAPEUTIC AGENT #1^P164.18O^ONCO(164.18,^LUN2;28^Q"
^DD(165.5,1423,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_""  ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1423,2.1)="S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_""  ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1423,21,0)="^.001^11^11^3010502^^^^"
^DD(165.5,1423,21,1,0)=""
^DD(165.5,1423,21,2,0)="This item records the first chemotherapeutic agent administered to"
^DD(165.5,1423,21,3,0)="the patient as part of the first course of therapy.  If chemotherapy"
^DD(165.5,1423,21,4,0)="was administered but the type(s) of agent(s) are unknown, code 999999."
^DD(165.5,1423,21,5,0)=""
^DD(165.5,1423,21,6,0)="Allowable Codes: Valid NSC (National Service Center) number for"
^DD(165.5,1423,21,7,0)="                 chemotherapeutic agents listed in the Self"
^DD(165.5,1423,21,8,0)="                 Instructional Manual for Tumor Registrars, Book 8,"
^DD(165.5,1423,21,9,0)="                 Surveillance, Epidemiology and End Results Program,"
^DD(165.5,1423,21,10,0)="                 National Cancer Institute."
^DD(165.5,1423,21,11,0)=""
^DD(165.5,1423,"DT")="3010501"
^DD(165.5,1423.1,0)="LNG CHEMOTHERAPEUTIC AGENT #2^P164.18O^ONCO(164.18,^LUN2;29^Q"
^DD(165.5,1423.1,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_""  ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1423.1,2.1)="S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_""  ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1423.1,21,0)="^.001^11^11^3010322^^^"
^DD(165.5,1423.1,21,1,0)=""
^DD(165.5,1423.1,21,2,0)="This item records the second chemotherapeutic agent administered to"
^DD(165.5,1423.1,21,3,0)="the patient as part of the first course of therapy.  If chemotherapy"
^DD(165.5,1423.1,21,4,0)="was administered but the type(s) of agent(s) are unknown, code 999999."
^DD(165.5,1423.1,21,5,0)=""
^DD(165.5,1423.1,21,6,0)="Allowable Codes: Valid NSC (National Service Center) number for"
^DD(165.5,1423.1,21,7,0)="                 chemotherapeutic agents listed in the Self"
^DD(165.5,1423.1,21,8,0)="                 Instructional Manual for Tumor Registrars, Book 8,"
^DD(165.5,1423.1,21,9,0)="                 Surveillance, Epidemiology and End Results Program,"
^DD(165.5,1423.1,21,10,0)="                 National Cancer Institute."
^DD(165.5,1423.1,21,11,0)=""
^DD(165.5,1423.1,"DT")="3010501"
^DD(165.5,1423.2,0)="LNG CHEMOTHERAPEUTIC AGENT #3^P164.18O^ONCO(164.18,^LUN2;30^Q"
^DD(165.5,1423.2,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_""  ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1423.2,2.1)="S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_""  ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1423.2,21,0)="^.001^11^11^3010322^^^"
^DD(165.5,1423.2,21,1,0)=""
^DD(165.5,1423.2,21,2,0)="This item records the third chemotherapeutic agent administered to"
^DD(165.5,1423.2,21,3,0)="the patient as part of the first course of therapy.  If chemotherapy"
^DD(165.5,1423.2,21,4,0)="was administered but the type(s) of agent(s) are unknown, code 999999."
^DD(165.5,1423.2,21,5,0)=""
^DD(165.5,1423.2,21,6,0)="Allowable Codes: Valid NSC (National Service Center) number for"
^DD(165.5,1423.2,21,7,0)="                 chemotherapeutic agents listed in the Self"
^DD(165.5,1423.2,21,8,0)="                 Instructional Manual for Tumor Registrars, Book 8,"
^DD(165.5,1423.2,21,9,0)="                 Surveillance, Epidemiology and End Results Program,"
^DD(165.5,1423.2,21,10,0)="                 National Cancer Institute."
^DD(165.5,1423.2,21,11,0)=""
^DD(165.5,1423.2,"DT")="3010501"
^DD(165.5,1424,0)="LNG CHEMOTHERAPEUTIC TOXICITY^S^1:Chemo discontinued due to toxicity;2:No chemo toxicity;9:Not documented;^LUN2;31^Q"
^DD(165.5,1424,21,0)="^.001^3^3^3010502^^"
^DD(165.5,1424,21,1,0)=""
^DD(165.5,1424,21,2,0)="This item describes whether the administration of chemotherapy"
^DD(165.5,1424,21,3,0)="was discontinued as a result of toxicity."
^DD(165.5,1424,"DT")="3010501"
^DD(165.5,1425,0)="LNG CHEMOTHERAPY/SURG SEQUENCE^S^1:Chemo before surgery;2:Chemo after surgery;3:Chemo before and after surgery;8:Chemo administered, no surgery;9:Chemo and surgery, sequence unknown;^LUN2;32^Q"
^DD(165.5,1425,21,0)="^.001^3^3^3010502^^^^"
^DD(165.5,1425,21,1,0)=""
^DD(165.5,1425,21,2,0)="This data item describes the sequence in which chemotherapy"
^DD(165.5,1425,21,3,0)="and surgery of the primary site were administered."
^DD(165.5,1425,"DT")="3010501"
^DD(165.5,1426,0)="LNG COMPLICATION #1^*P80'O^ICD9(^LUN2;33^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1426,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1426,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1426,21,0)="^.001^7^7^3010502^^^^"
^DD(165.5,1426,21,1,0)=""
^DD(165.5,1426,21,2,0)="This item describes the first medical complication acquired by"
^DD(165.5,1426,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1426,21,4,0)="Record valid ICD-9-CM codes."
^DD(165.5,1426,21,5,0)=""
^DD(165.5,1426,21,6,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1426,21,7,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1426,"DT")="3010502"
^DD(165.5,1426.1,0)="LNG COMPLICATION #2^*P80'O^ICD9(^LUN2;34^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1426.1,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.1,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.1,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1426.1,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1426.1,21,0)="^.001^7^7^3010322^^^^"
^DD(165.5,1426.1,21,1,0)=""
^DD(165.5,1426.1,21,2,0)="This item describes the second medical complication acquired by"
^DD(165.5,1426.1,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1426.1,21,4,0)=""
^DD(165.5,1426.1,21,5,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1426.1,21,6,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1426.1,21,7,0)=""
^DD(165.5,1426.1,"DT")="3010502"
^DD(165.5,1426.2,0)="LNG COMPLICATION #3^*P80'O^ICD9(^LUN2;35^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1426.2,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.2,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.2,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1426.2,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1426.2,21,0)="^.001^7^7^3010322^^^^"
^DD(165.5,1426.2,21,1,0)=""
^DD(165.5,1426.2,21,2,0)="This item describes the third medical complication acquired by"
^DD(165.5,1426.2,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1426.2,21,4,0)=""
^DD(165.5,1426.2,21,5,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1426.2,21,6,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1426.2,21,7,0)=""
^DD(165.5,1426.2,"DT")="3010502"
^DD(165.5,1426.3,0)="LNG COMPLICATION #4^*P80'O^ICD9(^LUN2;36^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1426.3,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.3,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.3,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1426.3,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1426.3,21,0)="^.001^7^7^3010322^^^^"
^DD(165.5,1426.3,21,1,0)=""
^DD(165.5,1426.3,21,2,0)="This item describes the fourth medical complication acquired by"
^DD(165.5,1426.3,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1426.3,21,4,0)=""
^DD(165.5,1426.3,21,5,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1426.3,21,6,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1426.3,21,7,0)=""
^DD(165.5,1426.3,"DT")="3010502"
^DD(165.5,1426.4,0)="LNG COMPLICATION #5^*P80'O^ICD9(^LUN2;37^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1426.4,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.4,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1426.4,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1426.4,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1426.4,21,0)="^.001^7^7^3010322^^^^"
^DD(165.5,1426.4,21,1,0)=""
^DD(165.5,1426.4,21,2,0)="This item describes the fifth medical complication acquired by"
^DD(165.5,1426.4,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1426.4,21,4,0)=""
^DD(165.5,1426.4,21,5,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1426.4,21,6,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1426.4,21,7,0)=""
^DD(165.5,1426.4,"DT")="3010502"
^DD(165.5,1426.5,0)="LNG TREATMENT COMPLICATION Y/N^RS^0:No;1:Yes;^LUN2;40^Q"
^DD(165.5,1426.5,21,0)="^.001^8^8^3010322^^^^"
^DD(165.5,1426.5,21,1,0)=""
^DD(165.5,1426.5,21,2,0)="This item records if there were medical complications acquired by"
^DD(165.5,1426.5,21,3,0)="the patient during or resulting from first course of therapy for"
^DD(165.5,1426.5,21,4,0)="this cancer."
^DD(165.5,1426.5,21,5,0)=""
^DD(165.5,1426.5,21,6,0)="If no complications are listed, answer ""No"".  COMPLICATION #1 will"
^DD(165.5,1426.5,21,7,0)="be automatically coded 000.00 with the remaining complication fields"
^DD(165.5,1426.5,21,8,0)="left blank."
^DD(165.5,1426.5,"DT")="3010501"
^DD(165.5,1427,0)="LNG CASE ABSTRACTOR INITIALS^F^^LUN2;38^K:$L(X)>3!($L(X)<1) X"
^DD(165.5,1427,3)="Answer must be 1-3 characters in length."
^DD(165.5,1427,21,0)="^^4^4^3010316^"
^DD(165.5,1427,21,1,0)=""
^DD(165.5,1427,21,2,0)="This item records the initials of the person responsible for"
^DD(165.5,1427,21,3,0)="abstracting this case and having reviewed all the special study"
^DD(165.5,1427,21,4,0)="items for completeness and validity."
^DD(165.5,1427,"DT")="3010501"
^DD(165.5,1428,0)="LNG DATE CASE WAS ABSTRACTED^D^^LUN2;39^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(165.5,1428,21,0)="^^4^4^3010316^"
^DD(165.5,1428,21,1,0)=""
^DD(165.5,1428,21,2,0)="This item describes the month, day and year (in the MMDDCCYY"
^DD(165.5,1428,21,3,0)="format) that this case was reviewed for completeness and validity"
^DD(165.5,1428,21,4,0)="by the case abstractor."
^DD(165.5,1428,"DT")="3010501"
^DD(165.5,1429,0)="LNG PROXIMAL MARGIN^FXO^^LUN2;41^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D DMCM^ONCOIT"
^DD(165.5,1429,2)="S Y(0)=Y S Y=$S(Y=""000"":""No free margins"",Y=998:""NA, no surgery of primary site"",Y=999:""Unknown, not documented"",1:Y_"" mm"")"
^DD(165.5,1429,2.1)="S Y=$S(Y=""000"":""No free margins"",Y=998:""NA, no surgery of primary site"",Y=999:""Unknown, not documented"",1:Y_"" mm"")"
^DD(165.5,1429,3)="Type a number between 0 and 999"
^DD(165.5,1429,21,0)="^.001^12^12^3020326^^^"
^DD(165.5,1429,21,1,0)=""
^DD(165.5,1429,21,2,0)="This item describes the distance of the closest proximal free"
^DD(165.5,1429,21,3,0)="margin in millimeters of the resected primary tumor specimen."
^DD(165.5,1429,21,4,0)="This information can be obtained from the pathology report."
^DD(165.5,1429,21,5,0)="If surgery of primary site was performed but the extent of the"
^DD(165.5,1429,21,6,0)="free margin is unknown, code 999."
^DD(165.5,1429,21,7,0)=""
^DD(165.5,1429,21,8,0)="Allowable Codes: 000 - no free margins in this segment"
^DD(165.5,1429,21,9,0)="                 001 thru 997 - distance of closest free margin (mm)"
^DD(165.5,1429,21,10,0)="                 998 - NA, no surgery of primary site"
^DD(165.5,1429,21,11,0)="                 999 - unknown, extent of free margin not documented"
^DD(165.5,1429,21,12,0)=""
^DD(165.5,1429,"DT")="3010508"
^DD(165.5,1429.1,0)="LNG DISTAL MARGIN^FXO^^LUN2;42^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D DMCM^ONCOIT"
^DD(165.5,1429.1,2)="S Y(0)=Y S Y=$S(Y=""000"":""No free margins"",Y=998:""NA, no surgery of primary site"",Y=999:""Unknown, not documented"",1:Y_"" mm"")"
^DD(165.5,1429.1,2.1)="S Y=$S(Y=""000"":""No free margins"",Y=998:""NA, no surgery of primary site"",Y=999:""Unknown, not documented"",1:Y_"" mm"")"
^DD(165.5,1429.1,3)="Type a Number between 0 and 999"
^DD(165.5,1429.1,21,0)="^.001^12^12^3020326^^"
^DD(165.5,1429.1,21,1,0)=""
^DD(165.5,1429.1,21,2,0)="This item describes the distance of the closest distal free"
^DD(165.5,1429.1,21,3,0)="margin in millimeters of the resected primary tumor specimen."
^DD(165.5,1429.1,21,4,0)="This information can be obtained from the pathology report."
^DD(165.5,1429.1,21,5,0)="If surgery of primary site was performed but the extent of the"
^DD(165.5,1429.1,21,6,0)="free margin is unknown, code 999."
^DD(165.5,1429.1,21,7,0)=""
^DD(165.5,1429.1,21,8,0)="Allowable Codes: 000 - no free margins in this segment"
^DD(165.5,1429.1,21,9,0)="                 001 thru 997 - distance of closest free margin (mm)"
^DD(165.5,1429.1,21,10,0)="                 998 - NA, no surgery of primary site"
^DD(165.5,1429.1,21,11,0)="                 999 - unknown, extent of free margin not documented"
^DD(165.5,1429.1,21,12,0)=""
^DD(165.5,1429.1,"DT")="3010508"
^DD(165.5,1430,0)="LNG HCT VAL BEFORE TRANSFUSION^NJ4,1XO^^LUN2;43^K:(X>99.9)!(X<0)!(X?.E1"".""2N.N) X I $D(X) S ONCL=2,ONCF=1 D HVBT^ONCOIT"
^DD(165.5,1430,2)="S Y(0)=Y S Y=$S(+Y=0:""No transfusion"",Y=99.9:""Transfusion, % Hct not documented"",1:Y_""% Hct"")"
^DD(165.5,1430,2.1)="S Y=$S(+Y=0:""No transfusion"",Y=99.9:""Transfusion, % Hct not documented"",1:Y_""% Hct"")"
^DD(165.5,1430,3)="Type a Number between 0.00 and 99.9, 1 Decimal Digit"
^DD(165.5,1430,21,0)="^^11^11^3010508^"
^DD(165.5,1430,21,1,0)=""
^DD(165.5,1430,21,2,0)="This item describes the percent (%) of hematocrit before the first"
^DD(165.5,1430,21,3,0)="transfusion.  Record results to the precision of one decimal point,"
^DD(165.5,1430,21,4,0)="record zeros in unused positions; for example 9.5% would be coded as"
^DD(165.5,1430,21,5,0)="09.5.  If the patient was transfused but hematocrit value is not"
^DD(165.5,1430,21,6,0)="documented, code 99.9."
^DD(165.5,1430,21,7,0)=""
^DD(165.5,1430,21,8,0)="Allowable Codes: 00.0 - no transfusion"
^DD(165.5,1430,21,9,0)="                 00.1 thru 99.0 - % Hct"
^DD(165.5,1430,21,10,0)="                 99.9 - transfusion, % Hct not documented"
^DD(165.5,1430,21,11,0)=""
^DD(165.5,1430,"DT")="3010508"
^DD(165.5,1500,0)="GAS PRIOR EXPOSURE TO RAD^S^1:Documented exposure;2:Documented no exposure;9:Not documented;^GAS1;1^Q"
^DD(165.5,1500,10)=""
^DD(165.5,1500,20,0)="^.3LA^^0"
^DD(165.5,1500,21,0)="^.001^8^8^3010427^^^^"
^DD(165.5,1500,21,1,0)=""
^DD(165.5,1500,21,2,0)="This item describes a patient's known prior radiation exposure."
^DD(165.5,1500,21,3,0)="Exposure to fluoroscopy, exposure to radioactive isotopes, or actual"
^DD(165.5,1500,21,4,0)="radiation treatments should be considered prior radiation exposure."
^DD(165.5,1500,21,5,0)="Occupational exposure to radiation should be considered: radioisotope"
^DD(165.5,1500,21,6,0)="lab worker; radiation therapist; radiology technician; miner.  Do not"
^DD(165.5,1500,21,7,0)="code routine chest or dental x-rays as prior radiation exposure."
^DD(165.5,1500,21,8,0)=""
^DD(165.5,1500,"DT")="3010430"
^DD(165.5,1501,0)="GAS ALCOHOL COMSUMPTION^FOX^^GAS1;2^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D AC^ONCOIT"
^DD(165.5,1501,2)="S Y(0)=Y S Y=$S(Y=""00"":""Never consumed alcohol"",Y=97:""97 or more drinks per week"",Y=98:""Yes, number of drinks unknown"",Y=99:""Not documented"",1:Y_"" drink(s) per week"")"
^DD(165.5,1501,2.1)="S Y=$S(Y=""00"":""Never consumed alcohol"",Y=97:""97 or more drinks per week"",Y=98:""Yes, number of drinks unknown"",Y=99:""Not documented"",1:Y_"" drink(s) per week"")"
^DD(165.5,1501,3)="Type a Number between 00 and 99"
^DD(165.5,1501,10)=""
^DD(165.5,1501,11,0)="^.2LAP"
^DD(165.5,1501,20,0)="^.3LA^^0"
^DD(165.5,1501,21,0)="^.001^13^13^3010427^^^^"
^DD(165.5,1501,21,1,0)=""
^DD(165.5,1501,21,2,0)="This item describes the number of drinks (beer, wine, other alcohol)"
^DD(165.5,1501,21,3,0)="consumed by the patient per week.  If the patient has never consumed"
^DD(165.5,1501,21,4,0)="alcohol, code 00.  If the number of drinks per week is not documented,"
^DD(165.5,1501,21,5,0)="code 99.  This information can typically be found in either the"
^DD(165.5,1501,21,6,0)="patient's clinic chart or the managing physician's notes."
^DD(165.5,1501,21,7,0)=""
^DD(165.5,1501,21,8,0)="Allowable Codes: 00 - never consumed alcohol"
^DD(165.5,1501,21,9,0)="                 01 thru 96 - 1 or more drinks up to 96 drinks per week"
^DD(165.5,1501,21,10,0)="                 97 - 97 or more drinks per week"
^DD(165.5,1501,21,11,0)="                 98 - alcohol consumption, number of drinks unknown"
^DD(165.5,1501,21,12,0)="                 99 - alcohol consumption not documented"
^DD(165.5,1501,21,13,0)=""
^DD(165.5,1501,"DT")="3010430"
^DD(165.5,1502,0)="GAS MENOPAUSAL STATUS/HOR TX^S^1:Menopause, no hormome tx;2:Menopause, hormone tx stopped before dx;3:Menopause, hormone tx at dx;8:NA, male patient;9:Menopause not documented;^GAS1;3^Q"
^DD(165.5,1502,21,0)="^^9^9^3010301^"
^DD(165.5,1502,21,1,0)=""
^DD(165.5,1502,21,2,0)="This item describes whether a female patient has experienced menopause"
^DD(165.5,1502,21,3,0)="and, if so, whether or not she was receiving prescribed hormone"
^DD(165.5,1502,21,4,0)="replacement therapy.  Menopause may occur naturally or as a result of"
^DD(165.5,1502,21,5,0)="a hysterectomy.  If the patient is male, code 8.  If the woman's"
^DD(165.5,1502,21,6,0)="menopausal status can not be determined, code 9.  This information can"
^DD(165.5,1502,21,7,0)="typically be found in either the patient's clinic chart or the"
^DD(165.5,1502,21,8,0)="managing physician's notes."
^DD(165.5,1502,21,9,0)=""
^DD(165.5,1502,"DT")="3010430"
^DD(165.5,1503,0)="GAS H2 BLOCKER/PROTON PUMP^S^1:H2 blocker;2:Proton pump inhibitor;3:Both;8:Neither;9:Not documented;^GAS1;4^Q"
^DD(165.5,1503,21,0)="^.001^10^10^3010511^^^^"
^DD(165.5,1503,21,1,0)=""
^DD(165.5,1503,21,2,0)="This item describes whether the patient was either self-medicating"
^DD(165.5,1503,21,3,0)="or taking prescribed H2 blocker or proton pump inhibitor drugs to"
^DD(165.5,1503,21,4,0)="suppress gastric acidity and control reflux.  Common drug names for"
^DD(165.5,1503,21,5,0)="H2 blocker include: Pepcid (famotidine), Tagamet (cimetidine), Zantac"
^DD(165.5,1503,21,6,0)="(ranitidine), and Axid (nizatidine).  Common names for proton pump"
^DD(165.5,1503,21,7,0)="inhibitors include: Prilosec (omeprazole), Prevacid (lansoprazole),"
^DD(165.5,1503,21,8,0)="Protonix (pantaprazol), Aciphex (rebeprazol), and Nexium"
^DD(165.5,1503,21,9,0)="(es-omeprazole)."
^DD(165.5,1503,21,10,0)=""
^DD(165.5,1503,"DT")="3010430"
^DD(165.5,1504,0)="GAS FAMILY HIST OF GASTRIC CA^S^1:No 1st or 2nd deg relatives;2:1 1st deg relative;3:2 1st deg relatives;4:3 or more 1st deg relatives;5:1 or more 2nd deg relatives;6:Both 1st and 2nd deg relatives;9:Familial history, relation not indicated;^GAS1;5^Q"
^DD(165.5,1504,21,0)="^.001^6^6^3010321^^"
^DD(165.5,1504,21,1,0)=""
^DD(165.5,1504,21,2,0)="This item describes whether there is any familial history of gastric"
^DD(165.5,1504,21,3,0)="cancer.  Record familial history of gastric cancer in first degree"
^DD(165.5,1504,21,4,0)="relatives (parent, siblings, and child) or 2nd degree relatives (1st"
^DD(165.5,1504,21,5,0)="cousins, aunt, uncle, grandparent, grandchild)."
^DD(165.5,1504,21,6,0)=""
^DD(165.5,1504,"DT")="3010430"
^DD(165.5,1505,0)="GAS H-PYLORI INFECTION^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;6^Q"
^DD(165.5,1505,21,0)="^.001^6^6^3010302^^"
^DD(165.5,1505,21,1,0)=""
^DD(165.5,1505,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1505,21,3,0)="associated benign gastric condition:"
^DD(165.5,1505,21,4,0)=""
^DD(165.5,1505,21,5,0)="Helicobacter pylori (H-pylori) infection"
^DD(165.5,1505,21,6,0)=""
^DD(165.5,1505,"DT")="3010430"
^DD(165.5,1506,0)="GAS DUODENAL ULCER^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;7^Q"
^DD(165.5,1506,21,0)="^^6^6^3010302^"
^DD(165.5,1506,21,1,0)=""
^DD(165.5,1506,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1506,21,3,0)="associated benign gastric condition:"
^DD(165.5,1506,21,4,0)=""
^DD(165.5,1506,21,5,0)="Duodenal ulcer"
^DD(165.5,1506,21,6,0)=""
^DD(165.5,1506,"DT")="3010430"
^DD(165.5,1507,0)="GAS GASTRIC ULCER^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;8^Q"
^DD(165.5,1507,21,0)="^^6^6^3010302^"
^DD(165.5,1507,21,1,0)=""
^DD(165.5,1507,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1507,21,3,0)="associated benign gastric condition:"
^DD(165.5,1507,21,4,0)=""
^DD(165.5,1507,21,5,0)="Gastric ulcer"
^DD(165.5,1507,21,6,0)=""
^DD(165.5,1507,"DT")="3010430"
^DD(165.5,1508,0)="GAS HEARTBURN (BENIGN COND)^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;9^Q"
^DD(165.5,1508,21,0)="^.001^6^6^3010305^^"
^DD(165.5,1508,21,1,0)=""
^DD(165.5,1508,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1508,21,3,0)="associated benign gastric condition:"
^DD(165.5,1508,21,4,0)=""
^DD(165.5,1508,21,5,0)="Heartburn"
^DD(165.5,1508,21,6,0)=""
^DD(165.5,1508,"DT")="3010430"
^DD(165.5,1509,0)="GAS PERNICIOUS ANEMIA^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;10^Q"
^DD(165.5,1509,21,0)="^^6^6^3010302^"
^DD(165.5,1509,21,1,0)=""
^DD(165.5,1509,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1509,21,3,0)="associated benign gastric condition:"
^DD(165.5,1509,21,4,0)=""
^DD(165.5,1509,21,5,0)="Pernicious anemia"
^DD(165.5,1509,21,6,0)=""
^DD(165.5,1509,"DT")="3010430"
^DD(165.5,1510,0)="GAS POLYPS OF STOMACH^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;11^Q"
^DD(165.5,1510,21,0)="^^6^6^3010302^"
^DD(165.5,1510,21,1,0)=""
^DD(165.5,1510,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1510,21,3,0)="associated benign gastric condition:"
^DD(165.5,1510,21,4,0)=""
^DD(165.5,1510,21,5,0)="Polyps of stomach"
^DD(165.5,1510,21,6,0)=""
^DD(165.5,1510,"DT")="3010430"
^DD(165.5,1511,0)="GAS POLYPOSIS OF BOWEL^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;12^Q"
^DD(165.5,1511,21,0)="^^6^6^3010302^"
^DD(165.5,1511,21,1,0)=""
^DD(165.5,1511,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1511,21,3,0)="associated benign gastric condition:"
^DD(165.5,1511,21,4,0)=""
^DD(165.5,1511,21,5,0)="Polyposis of small or large bowel"
^DD(165.5,1511,21,6,0)=""
^DD(165.5,1511,"DT")="3010430"
^DD(165.5,1512,0)="GAS BARRET'S ESOPHAGUS^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;13^Q"
^DD(165.5,1512,21,0)="^^6^6^3010302^"
^DD(165.5,1512,21,1,0)=""
^DD(165.5,1512,21,2,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1512,21,3,0)="associated benign gastric condition:"
^DD(165.5,1512,21,4,0)=""
^DD(165.5,1512,21,5,0)="Barret's esophagus"
^DD(165.5,1512,21,6,0)=""
^DD(165.5,1512,"DT")="3010430"
^DD(165.5,1513,0)="GAS ATROPHIC GASTRITIS^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;14^Q"
^DD(165.5,1513,21,0)="^^5^5^3010302^"
^DD(165.5,1513,21,1,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1513,21,2,0)="associated benign gastric condition:"
^DD(165.5,1513,21,3,0)=""
^DD(165.5,1513,21,4,0)="Atrophic gastritis"
^DD(165.5,1513,21,5,0)=""
^DD(165.5,1513,"DT")="3010430"
^DD(165.5,1514,0)="GAS GASTRIC METAPLASIA^S^1:Past history, present at dx;2:No past history, present at dx;3:Past history, not present at dx;4:Documented never present;9:Unknown, not documented;^GAS1;15^Q"
^DD(165.5,1514,21,0)="^^5^5^3010302^"
^DD(165.5,1514,21,1,0)="This item describes whether the patient had at any time the following"
^DD(165.5,1514,21,2,0)="associated benign gastric condition:"
^DD(165.5,1514,21,3,0)=""
^DD(165.5,1514,21,4,0)="Gastric metaplasia"
^DD(165.5,1514,21,5,0)=""
^DD(165.5,1514,"DT")="3010430"
^DD(165.5,1515,0)="GAS ANTIBIOTICS^S^1:Regimen given;2:H-pylori present, regimen not given;8:H-pylori not present;9:Not documented;^GAS1;16^Q"
^DD(165.5,1515,21,0)="^^5^5^3010302^"
^DD(165.5,1515,21,1,0)=""
^DD(165.5,1515,21,2,0)="This item records the use of antibiotics for H-pylori infection prior"
^DD(165.5,1515,21,3,0)="to diagnosis of gastric cancer.  Examples of antibiotics include:"
^DD(165.5,1515,21,4,0)="ampicillin, amoxicillin, clarithromycin, etc."
^DD(165.5,1515,21,5,0)=""
^DD(165.5,1515,"DT")="3010430"
^DD(165.5,1516,0)="GAS PROTON PUMP INHIBITORS^S^1:Regimen given;2:H-pylori present, regimen not given;8:H-pylori not present;9:Not documented;^GAS1;17^Q"
^DD(165.5,1516,21,0)="^^6^6^3010302^"
^DD(165.5,1516,21,1,0)=""
^DD(165.5,1516,21,2,0)="This item records the use of proton pump inhibitors for H-pylori"
^DD(165.5,1516,21,3,0)="infection prior to diagnosis of gastric cancer.  Examples of proton"
^DD(165.5,1516,21,4,0)="pump inhibitors include: omeprazole, lansoprazole, rabeprazole,"
^DD(165.5,1516,21,5,0)="pantoprazol, es-omeprazole."
^DD(165.5,1516,21,6,0)=""
^DD(165.5,1516,"DT")="3010430"
^DD(165.5,1517,0)="GAS H2 BLOCKERS^S^1:Regimen given;2:H-pylori present, regimen not given;8:H-pylori not present;9:Not documented;^GAS1;18^Q"
^DD(165.5,1517,21,0)="^^6^6^3010302^"
^DD(165.5,1517,21,1,0)=""
^DD(165.5,1517,21,2,0)="This item records the use of H2 blockers for H-pylori infection prior"
^DD(165.5,1517,21,3,0)="to diagnosis of gastric cancer.  Examples of H2 blockers include:"
^DD(165.5,1517,21,4,0)="ranitidine (Zantac), famotidine (Pepcid), nizatidine (Axid), cimetidine"
^DD(165.5,1517,21,5,0)="(Tagamet)."
^DD(165.5,1517,21,6,0)=""
^DD(165.5,1517,"DT")="3010430"
^DD(165.5,1518,0)="GAS BISMUTH COMPOUNDS^S^1:Regimen given;2:H-pylori present, regimen not given;8:H-pylori not present;9:Not documented;^GAS1;19^Q"
^DD(165.5,1518,21,0)="^^5^5^3010302^"
^DD(165.5,1518,21,1,0)=""
^DD(165.5,1518,21,2,0)="This item records the use of bismuth compounds for H-pylori infection"
^DD(165.5,1518,21,3,0)="prior to diagnosis of gastric cancer.  Examples of bismuth compounds"
^DD(165.5,1518,21,4,0)="include: Pepo Bismol, prescription bismuth drugs."
^DD(165.5,1518,21,5,0)=""
^DD(165.5,1518,"DT")="3010430"
^DD(165.5,1519,0)="GAS PRIOR INTRA-ABDOMINAL SURG^S^1:Documented;2:Documented No;9:Not mentioned;^GAS1;20^Q"
^DD(165.5,1519,21,0)="^.001^6^6^3010302^^"
^DD(165.5,1519,21,1,0)=""
^DD(165.5,1519,21,2,0)="This item describes whether the patient had undergone any intra-"
^DD(165.5,1519,21,3,0)="abdominal surgery including a prior gastric resection, before the"
^DD(165.5,1519,21,4,0)="diagnosis of this cancer.  Do not record retroperitoneal or"
^DD(165.5,1519,21,5,0)="extraperitoneal procedures as intra-abdominal surgeries."
^DD(165.5,1519,21,6,0)=""
^DD(165.5,1519,"DT")="3010430"
^DD(165.5,1520,0)="GAS YEAR OF GASTRIC RESECTION^FOX^^GAS1;21^K:$L(X)>4!($L(X)<4)!'(X?4N) X I $D(X) D GYGR^ONCOIT"
^DD(165.5,1520,2)="S Y(0)=Y S Y=$S(Y=""0000"":""No prior gastric resection"",Y=9999:""Not documented"",1:Y)"
^DD(165.5,1520,2.1)="S Y=$S(Y=""0000"":""No prior gastric resection"",Y=9999:""Not documented"",1:Y)"
^DD(165.5,1520,3)="Type a Number between 0000 and 9999"
^DD(165.5,1520,21,0)="^.001^13^13^3010322^^^^"
^DD(165.5,1520,21,1,0)=""
^DD(165.5,1520,21,2,0)="This item describes the year that the patient received a gastric"
^DD(165.5,1520,21,3,0)="resection prior to this diagnosis.  If the patient has a documented"
^DD(165.5,1520,21,4,0)="prior abdominal surgical resection indicate whether that surgery"
^DD(165.5,1520,21,5,0)="included a gastric resection by coding the year the resection occurred."
^DD(165.5,1520,21,6,0)="If the patient has received more than one gastric resection, code the"
^DD(165.5,1520,21,7,0)="earliest (first) year."
^DD(165.5,1520,21,8,0)=""
^DD(165.5,1520,21,9,0)="Allowable Codes: 0000 - documented no prior gastric resection"
^DD(165.5,1520,21,10,0)="                 1901 thru 2001 - year of prior gastric resection"
^DD(165.5,1520,21,11,0)="                 9999 - not documented whether there was prior gastric"
^DD(165.5,1520,21,12,0)="                        resection"
^DD(165.5,1520,21,13,0)=""
^DD(165.5,1520,"DT")="3010719"
^DD(165.5,1521,0)="GAS PERFORMANCE STATUS AT DX^S^1:Normal, no symptoms;2:Symptoms/ambulatory/min limits;3:Out of bed > 50% of day/mod limits;4:In bed > 50% of day/severe limits;5:Bedridden/moribund;9:Not documented;^GAS1;22^Q"
^DD(165.5,1521,21,0)="^^5^5^3010302^"
^DD(165.5,1521,21,1,0)=""
^DD(165.5,1521,21,2,0)="This item describes the performance status of the patient at initial"
^DD(165.5,1521,21,3,0)="diagnosis.  The scale used in this study is widely known as the ECOG"
^DD(165.5,1521,21,4,0)="performance status."
^DD(165.5,1521,21,5,0)=""
^DD(165.5,1521,"DT")="3010430"
^DD(165.5,1522,0)="GAS HEARTBURN (SYMPTOMS)^S^1:Present;2:Not present;9:Not documented;^GAS1;23^Q"
^DD(165.5,1522,21,0)="^.001^4^4^3010305^^"
^DD(165.5,1522,21,1,0)=""
^DD(165.5,1522,21,2,0)="This item describes the presence of heartburn specific to gastric"
^DD(165.5,1522,21,3,0)="cancer that was recorded in the medical chart."
^DD(165.5,1522,21,4,0)=""
^DD(165.5,1522,"DT")="3010430"
^DD(165.5,1523,0)="GAS FEVER/NIGHT SWEATS^S^1:Present;2:Not present;9:Not documented;^GAS1;24^Q"
^DD(165.5,1523,21,0)="^.001^4^4^3010305^^"
^DD(165.5,1523,21,1,0)=""
^DD(165.5,1523,21,2,0)="This item describes the presence of fever/night sweats specific to"
^DD(165.5,1523,21,3,0)="gastric cancer that was recorded in the medical chart."
^DD(165.5,1523,21,4,0)=""
^DD(165.5,1523,"DT")="3010430"
^DD(165.5,1524,0)="GAS ACUTE HEMATEMESIS^S^1:Present;2:Not present;9:Not documented;^GAS1;25^Q"
^DD(165.5,1524,21,0)="^.001^4^4^3010305^^"
^DD(165.5,1524,21,1,0)=""
^DD(165.5,1524,21,2,0)="This item describes the presence of acute hematemesis specific to"
^DD(165.5,1524,21,3,0)="gastric cancer that was recorded in the medical chart."
^DD(165.5,1524,21,4,0)=""
^DD(165.5,1524,"DT")="3010430"
^DD(165.5,1525,0)="GAS TRANSFUSIONS FOR BLD LOSS^S^1:Present;2:Not present;9:Not documented;^GAS1;26^Q"
^DD(165.5,1525,21,0)="^.001^4^4^3010305^^"
^DD(165.5,1525,21,1,0)=""
^DD(165.5,1525,21,2,0)="This item describes the presence of transfusions for blood loss"
^DD(165.5,1525,21,3,0)="specific to gastric cancer that were recorded in the medical chart."
^DD(165.5,1525,21,4,0)=""
^DD(165.5,1525,"DT")="3010430"
^DD(165.5,1526,0)="GAS MELENA^S^1:Present;2:Not present;9:Not documented;^GAS1;27^Q"
^DD(165.5,1526,21,0)="^.001^4^4^3010305^^"
^DD(165.5,1526,21,1,0)=""
^DD(165.5,1526,21,2,0)="This item describes the presence of melena specific to gastric cancer"
^DD(165.5,1526,21,3,0)="that was recorded in the medical chart."
^DD(165.5,1526,21,4,0)=""
^DD(165.5,1526,"DT")="3010430"
^DD(165.5,1527,0)="GAS PAIN^S^1:Present;2:Not present;9:Not documented;^GAS1;28^Q"
^DD(165.5,1527,21,0)="^.001^4^4^3010305^^"
^DD(165.5,1527,21,1,0)=""
^DD(165.5,1527,21,2,0)="This item describes the presence of pain specific to gastric cancer"
^DD(165.5,1527,21,3,0)="that was recorded in the medical chart."
^DD(165.5,1527,21,4,0)=""
^DD(165.5,1527,"DT")="3010430"
^DD(165.5,1528,0)="GAS EARLY SATIETY^S^1:Present;2:Not present;9:Not documented;^GAS1;29^Q"
^DD(165.5,1528,21,0)="^.001^4^4^3010305^^^"
^DD(165.5,1528,21,1,0)=""
^DD(165.5,1528,21,2,0)="This item describes the presence of early satiety specific to gastric"
^DD(165.5,1528,21,3,0)="cancer that was recorded in the medical chart."
^DD(165.5,1528,21,4,0)=""
^DD(165.5,1528,"DT")="3010430"
^DD(165.5,1529,0)="GAS CT SCAN OF ABDOMEN^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;30^Q"
^DD(165.5,1529,21,0)="^^4^4^3010305^"
^DD(165.5,1529,21,1,0)=""
^DD(165.5,1529,21,2,0)="This item describes the results of a CT scan of abdomen performed to"
^DD(165.5,1529,21,3,0)="evaluate the primary tumor."
^DD(165.5,1529,21,4,0)=""
^DD(165.5,1529,"DT")="3010430"
^DD(165.5,1530,0)="GAS CT SCAN OF CHEST^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;31^Q"
^DD(165.5,1530,21,0)="^^4^4^3010305^"
^DD(165.5,1530,21,1,0)=""
^DD(165.5,1530,21,2,0)="This item describes the results of a CT scan of chest performed to"
^DD(165.5,1530,21,3,0)="evaluate the primary tumor."
^DD(165.5,1530,21,4,0)=""
^DD(165.5,1530,"DT")="3010430"
^DD(165.5,1531,0)="GAS CT PELVIS^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;32^Q"
^DD(165.5,1531,21,0)="^^4^4^3010305^"
^DD(165.5,1531,21,1,0)=""
^DD(165.5,1531,21,2,0)="This item describes the results of a CT pelvis performed to evaluate the"
^DD(165.5,1531,21,3,0)="primary tumor."
^DD(165.5,1531,21,4,0)=""
^DD(165.5,1531,"DT")="3010430"
^DD(165.5,1532,0)="GAS CHEST X-RAY^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;33^Q"
^DD(165.5,1532,21,0)="^.001^4^4^3010306^^"
^DD(165.5,1532,21,1,0)=""
^DD(165.5,1532,21,2,0)="This item describes the results of a chest x-ray performed to evaluate"
^DD(165.5,1532,21,3,0)="the primary tumor."
^DD(165.5,1532,21,4,0)=""
^DD(165.5,1532,"DT")="3010430"
^DD(165.5,1533,0)="GAS GALLIUM SCAN^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;34^Q"
^DD(165.5,1533,21,0)="^^4^4^3010305^"
^DD(165.5,1533,21,1,0)=""
^DD(165.5,1533,21,2,0)="This item describes the results of a gallium scan performed to evaluate"
^DD(165.5,1533,21,3,0)="the primary tumor."
^DD(165.5,1533,21,4,0)=""
^DD(165.5,1533,"DT")="3010430"
^DD(165.5,1534,0)="GAS BIPEDAL LYMPHANGIOGRAM^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;35^Q"
^DD(165.5,1534,21,0)="^^4^4^3010305^"
^DD(165.5,1534,21,1,0)=""
^DD(165.5,1534,21,2,0)="This item describes the results of a bipedal lymphangiogram (LAB)"
^DD(165.5,1534,21,3,0)="performed to evaluate the primary tumor."
^DD(165.5,1534,21,4,0)=""
^DD(165.5,1534,"DT")="3010430"
^DD(165.5,1535,0)="GAS MRI^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;36^Q"
^DD(165.5,1535,21,0)="^^4^4^3010305^"
^DD(165.5,1535,21,1,0)=""
^DD(165.5,1535,21,2,0)="This item describes the results of an MRI performed to evaluate the"
^DD(165.5,1535,21,3,0)="primary tumor."
^DD(165.5,1535,21,4,0)=""
^DD(165.5,1535,"DT")="3010430"
^DD(165.5,1536,0)="GAS PET SCAN^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;37^Q"
^DD(165.5,1536,21,0)="^^4^4^3010305^"
^DD(165.5,1536,21,1,0)=""
^DD(165.5,1536,21,2,0)="This item describes the results of a PET scan performed to evaluate"
^DD(165.5,1536,21,3,0)="the primary tumor."
^DD(165.5,1536,21,4,0)=""
^DD(165.5,1536,"DT")="3010430"
^DD(165.5,1537,0)="GAS LAPAROSCOPY^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;38^Q"
^DD(165.5,1537,21,0)="^^4^4^3010305^"
^DD(165.5,1537,21,1,0)=""
^DD(165.5,1537,21,2,0)="This item describes the results of a laparoscopy performed to evaluate"
^DD(165.5,1537,21,3,0)="the primary tumor."
^DD(165.5,1537,21,4,0)=""
^DD(165.5,1537,"DT")="3010430"
^DD(165.5,1538,0)="GAS EUS^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;39^Q"
^DD(165.5,1538,21,0)="^^4^4^3010305^"
^DD(165.5,1538,21,1,0)=""
^DD(165.5,1538,21,2,0)="This item describes the results of an EUS (endoscopic ultrasound)"
^DD(165.5,1538,21,3,0)="performed to evaluate the primary tumor."
^DD(165.5,1538,21,4,0)=""
^DD(165.5,1538,"DT")="3010430"
^DD(165.5,1539,0)="GAS PERITONEAL LAVAGE^S^1:Abnormal, suggestive of cancer;2:Abnormal, not suggestive of cancer;3:Normal;4:Not performed;8:Performed, results not documented;9:Not documented;^GAS1;40^Q"
^DD(165.5,1539,21,0)="^^4^4^3010305^"
^DD(165.5,1539,21,1,0)=""
^DD(165.5,1539,21,2,0)="This item describes the results of a peritoneal lavage performed to"
^DD(165.5,1539,21,3,0)="evaluate the primary tumor."
^DD(165.5,1539,21,4,0)=""
^DD(165.5,1539,"DT")="3010430"
^DD(165.5,1540,0)="GAS LDH (IU/L)^NJ6,1OX^^GAS1;41^K:X>9999.9!(X<0)!(X?.E1"".""2N.N) X I $D(X) S ONCL=4,ONCF=1 D LS^ONCOIT"
^DD(165.5,1540,2)="S Y(0)=Y S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1540,2.1)="S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1540,3)="Type a Number between 0000.0 and 9999.9, 1 Decimal Digit"
^DD(165.5,1540,21,0)="^.001^16^16^3010322^^^^"
^DD(165.5,1540,21,1,0)=""
^DD(165.5,1540,21,2,0)="This item describes the absolute value of the LDH (IU/L) study"
^DD(165.5,1540,21,3,0)="administered to the patient prior to the start of the first course of"
^DD(165.5,1540,21,4,0)="treatment.  This information can typically be found in either the"
^DD(165.5,1540,21,5,0)="patient's hospital chart or laboratory records.  Record results to the"
^DD(165.5,1540,21,6,0)="precision of one decimal point; record zeros in unused positions; for"
^DD(165.5,1540,21,7,0)="example 12.5 would be coded as 0012.5, and 4.4 would be coded as 0004.4."
^DD(165.5,1540,21,8,0)="If a particular test was not administered, code 0000.0; if a test was"
^DD(165.5,1540,21,9,0)="administered but the result is unknown, code 8888.8; if it is not"
^DD(165.5,1540,21,10,0)="documented whether a test is administered, code 9999.9."
^DD(165.5,1540,21,11,0)=""
^DD(165.5,1540,21,12,0)="Allowable Codes: 0000.0 - test not administered"
^DD(165.5,1540,21,13,0)="                 0000.1 thru 8888.7 - absolute value of test"
^DD(165.5,1540,21,14,0)="                 8888.8 - test administered, results unknown"
^DD(165.5,1540,21,15,0)="                 9999.9 - not documented if test administered"
^DD(165.5,1540,21,16,0)=""
^DD(165.5,1540,"DT")="3010430"
^DD(165.5,1541,0)="GAS CEA (ng/ml)^NJ6,1OX^^GAS1;42^K:X>9999.9!(X<0)!(X?.E1"".""2N.N) X I $D(X) S ONCL=4,ONCF=1 D LS^ONCOIT"
^DD(165.5,1541,2)="S Y(0)=Y S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1541,2.1)="S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1541,3)="Type a Number between 0000.0 and 9999.9, 1 Decimal Digit"
^DD(165.5,1541,21,0)="^.001^17^17^3010322^^^^"
^DD(165.5,1541,21,1,0)=""
^DD(165.5,1541,21,2,0)="This item describes the absolute value of the Carcinoembryonic antigen,"
^DD(165.5,1541,21,3,0)="CEA (ng/ml) study administered to the patient prior to the start of"
^DD(165.5,1541,21,4,0)="the first course of treatment.  This information can typically be found"
^DD(165.5,1541,21,5,0)="in either the patient's hospital chart or laboratory records.  Record"
^DD(165.5,1541,21,6,0)="results to the precision of one decimal point; record zeros in unused"
^DD(165.5,1541,21,7,0)="positions; for example 12.5 would be coded as 0012.5, and 4.4 would be"
^DD(165.5,1541,21,8,0)="coded as 0004.4.  If a particular test was not administered, code"
^DD(165.5,1541,21,9,0)="0000.0; if a test was administered but the result is unknown, code"
^DD(165.5,1541,21,10,0)="8888.8; if it is not documented whether a test is administered, code"
^DD(165.5,1541,21,11,0)="9999.9."
^DD(165.5,1541,21,12,0)=""
^DD(165.5,1541,21,13,0)="Allowable Codes: 0000.0 - test not administered"
^DD(165.5,1541,21,14,0)="                 0000.1 thru 8888.7 - absolute value of test"
^DD(165.5,1541,21,15,0)="                 8888.8 - test administered, results unknown"
^DD(165.5,1541,21,16,0)="                 9999.9 - not documented if test administered"
^DD(165.5,1541,21,17,0)=""
^DD(165.5,1541,"DT")="3010430"
^DD(165.5,1542,0)="GAS CA125 (U/ml)^NJ6,1OX^^GAS1;43^K:X>9999.9!(X<0)!(X?.E1"".""2N.N) X I $D(X) S ONCL=4,ONCF=1 D LS^ONCOIT"
^DD(165.5,1542,2)="S Y(0)=Y S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1542,2.1)="S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1542,3)="Type a Number between 0000.0 and 9999.9, 1 Decimal Digit"
^DD(165.5,1542,21,0)="^.001^16^16^3010322^^^^"
^DD(165.5,1542,21,1,0)=""
^DD(165.5,1542,21,2,0)="This item describes the absolute value of the CA125 (U/ml) study"
^DD(165.5,1542,21,3,0)="administered to the patient prior to the start of the first course of"
^DD(165.5,1542,21,4,0)="treatment.  This information can typically be found in either the"
^DD(165.5,1542,21,5,0)="patient's hospital chart or laboratory records.  Record results to the"
^DD(165.5,1542,21,6,0)="precision of one decimal point; record zeros in unused positions; for"
^DD(165.5,1542,21,7,0)="example 12.5 would be coded as 0012.5, and 4.4 would be coded as 0004.4."
^DD(165.5,1542,21,8,0)="If a particular test was not administered, code 0000.0; if a test was"
^DD(165.5,1542,21,9,0)="administered but the result is unknown, code 8888.8; if it is not"
^DD(165.5,1542,21,10,0)="documented whether a test is administered, code 9999.9."
^DD(165.5,1542,21,11,0)=""
^DD(165.5,1542,21,12,0)="Allowable Codes: 0000.0 - test not administered"
^DD(165.5,1542,21,13,0)="                 0000.1 thru 8888.7 - absolute value of test"
^DD(165.5,1542,21,14,0)="                 8888.8 - test administered, results unknown"
^DD(165.5,1542,21,15,0)="                 9999.9 - not documented if test administered"
^DD(165.5,1542,21,16,0)=""
^DD(165.5,1542,"DT")="3010430"
^DD(165.5,1543,0)="GAS BETA2 MICROGLOBULIN^NJ6,1OX^^GAS1;44^K:X>9999.9!(X<0)!(X?.E1"".""2N.N) X I $D(X) S ONCL=4,ONCF=1 D LS^ONCOIT"
^DD(165.5,1543,2)="S Y(0)=Y S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1543,2.1)="S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1543,3)="Type a Number between 0000.0 and 9999.9, 1 Decimal Digit"
^DD(165.5,1543,21,0)="^.001^17^17^3010322^^^"
^DD(165.5,1543,21,1,0)=""
^DD(165.5,1543,21,2,0)="This item describes the absolute value of the Beta2 microglobulin"
^DD(165.5,1543,21,3,0)="(ng/ml) study administered to the patient prior to the start of the"
^DD(165.5,1543,21,4,0)="first course of treatment.  This information can typically be found"
^DD(165.5,1543,21,5,0)="in either the patient's hospital chart or laboratory records.  Record"
^DD(165.5,1543,21,6,0)="results to the precision of one decimal point; record zeros in unused"
^DD(165.5,1543,21,7,0)="positions; for example 12.5 would be coded as 0012.5, and 4.4 would be"
^DD(165.5,1543,21,8,0)="coded as 0004.4.  If a particular test was not administered, code"
^DD(165.5,1543,21,9,0)="0000.0; if a test was administered but the result is unknown, code"
^DD(165.5,1543,21,10,0)="8888.8; if it is not documented whether a test is administered, code"
^DD(165.5,1543,21,11,0)="9999.9."
^DD(165.5,1543,21,12,0)=""
^DD(165.5,1543,21,13,0)="Allowable Codes: 0000.0 - test not administered"
^DD(165.5,1543,21,14,0)="                 0000.1 thru 8888.7 - absolute value of test"
^DD(165.5,1543,21,15,0)="                 8888.8 - test administered, results unknown"
^DD(165.5,1543,21,16,0)="                 9999.9 - not documented if test administered"
^DD(165.5,1543,21,17,0)=""
^DD(165.5,1543,"DT")="3010430"
^DD(165.5,1544,0)="GAS URINARY 5-HIAA (mg/24hr)^NJ6,1OX^^GAS1;45^K:X>9999.9!(X<0)!(X?.E1"".""2N.N) X I $D(X) S ONCL=4,ONCF=1 D LS^ONCOIT"
^DD(165.5,1544,2)="S Y(0)=Y S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1544,2.1)="S Y=$S(Y=""0000.0"":""Test not administered"",Y=""8888.8"":""Test administered, results unknown"",Y=""9999.9"":""Not documented"",1:Y)"
^DD(165.5,1544,3)="Type a Number between 0000.0 and 9999.9, 1 Decimal Digit"
^DD(165.5,1544,21,0)="^.001^16^16^3010322^^^"
^DD(165.5,1544,21,1,0)=""
^DD(165.5,1544,21,2,0)="This item describes the absolute value of the Urinary 5-HIAA (mg/24hr)"
^DD(165.5,1544,21,3,0)="study administered to the patient prior to the start of the first"
^DD(165.5,1544,21,4,0)="course of treatment.  This information can typically be found in either"
^DD(165.5,1544,21,5,0)="the patient's hospital chart or laboratory records.  Record results to"
^DD(165.5,1544,21,6,0)="the precision of one decimal point; record zeros in unused positions;"
^DD(165.5,1544,21,7,0)="for example 12.5 would be coded as 0012.5, and 4.4 would be coded as"
^DD(165.5,1544,21,8,0)="0004.4.  If a particular test was not administered, code 0000.0; if a"
^DD(165.5,1544,21,9,0)="test was administered but the result is unknown, code 8888.8; if it is"
^DD(165.5,1544,21,10,0)="not documented whether a test is administered, code 9999.9."
^DD(165.5,1544,21,11,0)=""
^DD(165.5,1544,21,12,0)="Allowable Codes: 0000.0 - test not administered"
^DD(165.5,1544,21,13,0)="                 0000.1 thru 8888.7 - absolute value of test"
^DD(165.5,1544,21,14,0)="                 8888.8 - test administered, results unknown"
^DD(165.5,1544,21,15,0)="                 9999.9 - not documented if test administered"
^DD(165.5,1544,21,16,0)=""
^DD(165.5,1544,"DT")="3010430"
^DD(165.5,1545,0)="GAS CLINICAL/VISUAL EXAM^S^1:Results positive for cancer;2:Results negative for caner;8:Not performed;9:Not documented, exam type not mentioned;^GAS1;46^Q"
^DD(165.5,1545,21,0)="^.001^4^4^3010306^^"
^DD(165.5,1545,21,1,0)=""
^DD(165.5,1545,21,2,0)="This item describes the most definitive results of a gastroscopic"
^DD(165.5,1545,21,3,0)="clinical/visual examination."
^DD(165.5,1545,21,4,0)=""
^DD(165.5,1545,"DT")="3010430"
^DD(165.5,1545.1,0)="GAS BIOPSY^S^1:Results positive for cancer;2:Results negative for cancer;8:Not performed;9:Not documented, exam type not mentioned;^GAS1;47^Q"
^DD(165.5,1545.1,21,0)="^.001^4^4^3010322^^"
^DD(165.5,1545.1,21,1,0)=""
^DD(165.5,1545.1,21,2,0)="This item describes the most definitive results of a gastrscopic"
^DD(165.5,1545.1,21,3,0)="biopsy."
^DD(165.5,1545.1,21,4,0)=""
^DD(165.5,1545.1,"DT")="3010430"
^DD(165.5,1546,0)="GAS GASTRO-ESOPHAGEAL JUNCTION^S^1:Siewart II <= 2cm from squamocolunmar junc;2:Siewart III > 2cm from squamocolumnar junc;9:No documented Siewart type or distance;^GAS1;48^Q"
^DD(165.5,1546,21,0)="^.001^7^7^3010306^^^"
^DD(165.5,1546,21,1,0)=""
^DD(165.5,1546,21,2,0)="This item distinguishes tumors that clearly arise within the stomach"
^DD(165.5,1546,21,3,0)="(type III) from those that start at or near the esophageal gastric"
^DD(165.5,1546,21,4,0)="junction (type II).  Siewert type I tumors are excluded from this study"
^DD(165.5,1546,21,5,0)="as these are considered esophageal (C15.0-C15.9).  This information may"
^DD(165.5,1546,21,6,0)="be obtained from the pathology report."
^DD(165.5,1546,21,7,0)=""
^DD(165.5,1546,"DT")="3010430"
^DD(165.5,1547,0)="GAS STOMACH^S^1:Site of initial histologic dx;2:Not site of initial histologic dx;9:Site not documented;^GAS1;49^Q"
^DD(165.5,1547,21,0)="^^4^4^3010306^"
^DD(165.5,1547,21,1,0)=""
^DD(165.5,1547,21,2,0)="This item describes the site(s) of the initial histologic diagnosis of"
^DD(165.5,1547,21,3,0)="this cancer."
^DD(165.5,1547,21,4,0)=""
^DD(165.5,1547,"DT")="3010430"
^DD(165.5,1547.1,0)="GAS LIVER^S^1:Site of initial histologic dx;2:Not site of initial histologic dx;9:Site not documented;^GAS1;50^Q"
^DD(165.5,1547.1,21,0)="^.001^4^4^3010308^^"
^DD(165.5,1547.1,21,1,0)=""
^DD(165.5,1547.1,21,2,0)="This item describes the site(s) of the initial histologic diagnosis of"
^DD(165.5,1547.1,21,3,0)="this cancer."
^DD(165.5,1547.1,21,4,0)=""
^DD(165.5,1547.1,"DT")="3010430"
^DD(165.5,1547.2,0)="GAS EXTRA-ABDOMINAL^S^1:Site of initial histologic dx;2:Not site of initial histologic dx;9:Site not documented;^GAS1;51^Q"
^DD(165.5,1547.2,21,0)="^^4^4^3010306^"
^DD(165.5,1547.2,21,1,0)=""
^DD(165.5,1547.2,21,2,0)="This item describes the site(s) of the initial histologic diagnosis of"
^DD(165.5,1547.2,21,3,0)="this cancer."
^DD(165.5,1547.2,21,4,0)=""
^DD(165.5,1547.2,"DT")="3010430"
^DD(165.5,1547.3,0)="GAS LYMPH NODES^S^1:Site of initial histologic dx;2:Not site of initial histologic dx;9:Site not documented;^GAS1;52^Q"
^DD(165.5,1547.3,21,0)="^^4^4^3010306^"
^DD(165.5,1547.3,21,1,0)=""
^DD(165.5,1547.3,21,2,0)="This item describes the site(s) of the initial histologic diagnosis of"
^DD(165.5,1547.3,21,3,0)="this cancer."
^DD(165.5,1547.3,21,4,0)=""
^DD(165.5,1547.3,"DT")="3010430"
^DD(165.5,1547.4,0)="GAS PERITONEUM^S^1:Site of initial histologic dx;2:Not site of initial histologic dx;9:Site not documented;^GAS1;53^Q"
^DD(165.5,1547.4,21,0)="^^4^4^3010306^"
^DD(165.5,1547.4,21,1,0)=""
^DD(165.5,1547.4,21,2,0)="This item describes the site(s) of the initial histologic diagnosis of"
^DD(165.5,1547.4,21,3,0)="this cancer."
^DD(165.5,1547.4,21,4,0)=""
^DD(165.5,1547.4,"DT")="3010430"
^DD(165.5,1548,0)="GAS DATE OF FIRST TISSUE DX^DXO^^GAS1;54^S ITFLAG=""NO"" D DATEIT^ONCOPCE Q:ITFLAG=""YES""  S %DT=""EP"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) D:'$D(X) EN^DDIOL(""Future dates are not allowed"")"
^DD(165.5,1548,2)="S Y(0)=Y D DATEOT^ONCOPCE"
^DD(165.5,1548,2.1)="D DATEOT^ONCOPCE"
^DD(165.5,1548,21,0)="^.001^8^8^3010508^^"
^DD(165.5,1548,21,1,0)=""
^DD(165.5,1548,21,2,0)="This item describes the month, day, and year (MMDDCCYY) that this"
^DD(165.5,1548,21,3,0)="primary cancer was first diagnosed using a tissue sample to arrive at"
^DD(165.5,1548,21,4,0)="a positive histologic or cytologic evaluation of the tumor."
^DD(165.5,1548,21,5,0)=""
^DD(165.5,1548,21,6,0)="If a positive histologic or cytologic evaluation was made but the date"
^DD(165.5,1548,21,7,0)="is unknown code 99/99/9999."
^DD(165.5,1548,21,8,0)=""
^DD(165.5,1548,"DT")="3010719"
^DD(165.5,1549,0)="GAS LAUREN'S CLASSIFICATION^S^1:Diffuse;2:Intestinal;3:Mixed;4:Other;9:Not documented;^GAS1;55^Q"
^DD(165.5,1549,21,0)="^^5^5^3010307^"
^DD(165.5,1549,21,1,0)=""
^DD(165.5,1549,21,2,0)="This item describes Lauren's classification which divides gastric"
^DD(165.5,1549,21,3,0)="carcinoma into two main histologic types, diffuse or intestinal."
^DD(165.5,1549,21,4,0)="Record the classification if it is stated in the pathology report."
^DD(165.5,1549,21,5,0)=""
^DD(165.5,1549,"DT")="3010430"
^DD(165.5,1550,0)="GAS GOSEKI'S CLASSIFICATION^S^1:Type I   tubular diff well/mucin poor;2:Type II  tubular diff well/mucin rich;3:Type III tubular diff poor/mucin poor;3:Type IV  tubular diff poor/mucin rich;9:Not documented;^GAS1;56^Q"
^DD(165.5,1550,21,0)="^.001^9^9^3010514^^"
^DD(165.5,1550,21,1,0)=""
^DD(165.5,1550,21,2,0)="This item describes Goseki's classification which divides gastric"
^DD(165.5,1550,21,3,0)="carcinoma into four histologic types, depending upon the degree of"
^DD(165.5,1550,21,4,0)="tubular differentiation and mucin content.  It is thought that this"
^DD(165.5,1550,21,5,0)="classification scheme can aid in predicting a tumor's mode of"
^DD(165.5,1550,21,6,0)="extension, recurrence and conditions of metastasis.  This information"
^DD(165.5,1550,21,7,0)="may not appear on the pathology report.  Request assistance from the"
^DD(165.5,1550,21,8,0)="attending pathologist to determine the appropriate code."
^DD(165.5,1550,21,9,0)=""
^DD(165.5,1550,"DT")="3010430"
^DD(165.5,1551,0)="GAS GASTRIN^S^1:Used in pathologic evaluation;2:Not used;8:NA, pathologic dx not made;9:Not documented if used;^GAS1;57^Q"
^DD(165.5,1551,21,0)="^.001^5^5^3010307^^^"
^DD(165.5,1551,21,1,0)=""
^DD(165.5,1551,21,2,0)="This item describes whether molecular marker gastrin was used in the"
^DD(165.5,1551,21,3,0)="pathologic evaluation of the tumor. If a pathologic diagnosis was not"
^DD(165.5,1551,21,4,0)="made, code 8."
^DD(165.5,1551,21,5,0)=""
^DD(165.5,1551,"DT")="3010430"
^DD(165.5,1551.1,0)="GAS 5-HIAA^S^1:Used in pathologic evaluation;2:Not used;8:NA, pathologic dx not made;9:Not documented if used;^GAS1;58^Q"
^DD(165.5,1551.1,21,0)="^^5^5^3010307^"
^DD(165.5,1551.1,21,1,0)=""
^DD(165.5,1551.1,21,2,0)="This item describes whether molecular marker 5-HIAA was used in the"
^DD(165.5,1551.1,21,3,0)="pathologic evaluation of the tumor. If a pathologic diagnosis was not"
^DD(165.5,1551.1,21,4,0)="made, code 8."
^DD(165.5,1551.1,21,5,0)=""
^DD(165.5,1551.1,"DT")="3010430"
^DD(165.5,1551.2,0)="GAS CEA^S^1:Used in pathologic evaluation;2:Not used;8:NA, pathologic dx not made;9:Not documented if used;^GAS1;59^Q"
^DD(165.5,1551.2,21,0)="^^5^5^3010307^"
^DD(165.5,1551.2,21,1,0)=""
^DD(165.5,1551.2,21,2,0)="This item describes whether molecular marker CEA was used in the"
^DD(165.5,1551.2,21,3,0)="pathologic evaluation of the tumor. If a pathologic diagnosis was"
^DD(165.5,1551.2,21,4,0)="not made, code 8."
^DD(165.5,1551.2,21,5,0)=""
^DD(165.5,1551.2,"DT")="3010430"
^DD(165.5,1551.3,0)="GAS CA125^S^1:Used in pathologic evaluation;2:Not used;8:NA, pathologic dx not made;9:Not documented if used;^GAS1;60^Q"
^DD(165.5,1551.3,21,0)="^^5^5^3010307^"
^DD(165.5,1551.3,21,1,0)=""
^DD(165.5,1551.3,21,2,0)="This item describes whether molecular marker CA124 was used in the"
^DD(165.5,1551.3,21,3,0)="pathologic evaluation of the tumor. If a pathologic diagnosis was"
^DD(165.5,1551.3,21,4,0)="not made, code 8."
^DD(165.5,1551.3,21,5,0)=""
^DD(165.5,1551.3,"DT")="3010430"
^DD(165.5,1551.4,0)="GAS OTHER MOLECULAR MARKER^S^1:Used in pathologic evaluation;2:Not used;8:NA, pathologic dx not made;9:Not documented if used;^GAS1;61^Q"
^DD(165.5,1551.4,21,0)="^^5^5^3010307^"
^DD(165.5,1551.4,21,1,0)=""
^DD(165.5,1551.4,21,2,0)="This item describes whether other molecular markers were used in the"
^DD(165.5,1551.4,21,3,0)="pathologic evaluation of the tumor. If a pathologic diagnosis was not"
^DD(165.5,1551.4,21,4,0)="made, code 8."
^DD(165.5,1551.4,21,5,0)=""
^DD(165.5,1551.4,"DT")="3010430"
^DD(165.5,1552,0)="GAS MITOTIC RATE^S^1:< or equal to 2/10 HPF;2:> 2 and < 5/10 HPF;3:Equal to or > 5/10 HPF;9:Not documented;^GAS1;62^Q"
^DD(165.5,1552,21,0)="^^3^3^3010307^"
^DD(165.5,1552,21,1,0)=""
^DD(165.5,1552,21,2,0)="This item describes the number of mitoses per high power field (HPF)."
^DD(165.5,1552,21,3,0)=""
^DD(165.5,1552,"DT")="3010430"
^DD(165.5,1553,0)="GAS TUMOR NECROSIS^S^1:Frequent, larger areas;2:Few small areas (rare/scattered);3:No tumor cell necrosis;9:Not documented;^GAS1;63^Q"
^DD(165.5,1553,21,0)="^^3^3^3010307^"
^DD(165.5,1553,21,1,0)=""
^DD(165.5,1553,21,2,0)="This item describes the presence and degree of tumor necrosis."
^DD(165.5,1553,21,3,0)=""
^DD(165.5,1553,"DT")="3010307"
^DD(165.5,1554,0)="GAS FLOW CYTOMETRY/FRESH TISS^S^1:Used;2:Not used;9:Not documented;^GAS1;64^Q"
^DD(165.5,1554,21,0)="^.001^4^4^3010307^^^"
^DD(165.5,1554,21,1,0)=""
^DD(165.5,1554,21,2,0)="This data item describes if the flow cytometry on fresh tissue"
^DD(165.5,1554,21,3,0)="phenotype modality was performed on the lymphoma tissue in this case."
^DD(165.5,1554,21,4,0)=""
^DD(165.5,1554,"DT")="3010501"
^DD(165.5,1554.1,0)="GAS IMMUNOHISTOCHEM/FROZEN TIS^S^1:Used;2:Not used;9:Not documented;^GAS1;65^Q"
^DD(165.5,1554.1,21,0)="^^4^4^3010307^"
^DD(165.5,1554.1,21,1,0)=""
^DD(165.5,1554.1,21,2,0)="This data item describes if the immunohistochemistry on frozen tissue"
^DD(165.5,1554.1,21,3,0)="phenotype modality was performed on the lymphoma tissue in this case."
^DD(165.5,1554.1,21,4,0)=""
^DD(165.5,1554.1,"DT")="3010501"
^DD(165.5,1554.2,0)="GAS IMMUNOHISTOCHEM/PARAFFIN^S^1:Used;2:Not used;9:Not documented;^GAS1;66^Q"
^DD(165.5,1554.2,21,0)="^^5^5^3010307^"
^DD(165.5,1554.2,21,1,0)=""
^DD(165.5,1554.2,21,2,0)="This data item describes if the immunohistochemistry on paraffin"
^DD(165.5,1554.2,21,3,0)="embedded tissue phenotype modality was performed on the lymphoma"
^DD(165.5,1554.2,21,4,0)="tissue in this case."
^DD(165.5,1554.2,21,5,0)=""
^DD(165.5,1554.2,"DT")="3010501"
^DD(165.5,1554.3,0)="GAS MOLECULAR GENETICS^S^1:Used;2:Not used;9:Not documented;^GAS1;67^Q"
^DD(165.5,1554.3,21,0)="^^4^4^3010307^"
^DD(165.5,1554.3,21,1,0)=""
^DD(165.5,1554.3,21,2,0)="This data item describes if the molecular genetics phenotype modality"
^DD(165.5,1554.3,21,3,0)="was performed on the lymphoma tissue in this case."
^DD(165.5,1554.3,21,4,0)=""
^DD(165.5,1554.3,"DT")="3010501"
^DD(165.5,1554.4,0)="GAS POLYMERASE CHAIN REACTION^S^1:Used;2:Not used;9:Not documented;^GAS1;68^Q"
^DD(165.5,1554.4,21,0)="^^4^4^3010307^"
^DD(165.5,1554.4,21,1,0)=""
^DD(165.5,1554.4,21,2,0)="This data item describes if the polymerase chain reaction technique"
^DD(165.5,1554.4,21,3,0)="phenotype modality was performed on the lymphoma tissue in this case."
^DD(165.5,1554.4,21,4,0)=""
^DD(165.5,1554.4,"DT")="3010501"
^DD(165.5,1554.5,0)="GAS SOUTHERN BLOT TECHNIQUE^S^1:Used;2:Not used;9:Not documented;^GAS1;69^Q"
^DD(165.5,1554.5,21,0)="^^4^4^3010307^"
^DD(165.5,1554.5,21,1,0)=""
^DD(165.5,1554.5,21,2,0)="This data item describes if the Southern blot technique phenotype"
^DD(165.5,1554.5,21,3,0)="modality was performed on the lymphoma tissue in this case."
^DD(165.5,1554.5,21,4,0)=""
^DD(165.5,1554.5,"DT")="3010501"
^DD(165.5,1555,0)="GAS ANN ARBOR STAGING^S^1:Stage IE (stomach);2:Stage IIEi (stomach/perigastric ln);3:Stage IIEii (stomach/periaortic ln);4:Stage III (spleen tumor);5:Stage IV (distant/liver/bone marrow);9:Not documented;^GAS1;70^Q"
^DD(165.5,1555,21,0)="^^9^9^3010308^"
^DD(165.5,1555,21,1,0)=""
^DD(165.5,1555,21,2,0)="Gastric lymphoma staging is performed differently than adenocarcinoma"
^DD(165.5,1555,21,3,0)="staging, using a modification of the Ann Arbor System with Stage IE"
^DD(165.5,1555,21,4,0)="confined to the stomach, Stage IIEi confined to the stomach and"
^DD(165.5,1555,21,5,0)="perigastric lymph nodes, Stage IIEii confined to stomach and periaortic"
^DD(165.5,1555,21,6,0)="lymph nodes, Stage III involvement of the spleen, tumor on both sides"
^DD(165.5,1555,21,7,0)="of diaphragm and Stage IV involvement of distant sites (liver, bone"
^DD(165.5,1555,21,8,0)="marrow)."
^DD(165.5,1555,21,9,0)=""
^DD(165.5,1555,"DT")="3010501"
^DD(165.5,1556,0)="GAS ADHERENCE OF RESECTED PRIM^S^1:No tumor adherence;2:Tumor adherence lysed w/o resection;3:Tumor adherence, adj organ resected en bloc;9:Not documented;^GAS1;71^Q"
^DD(165.5,1556,21,0)="^^4^4^3010308^"
^DD(165.5,1556,21,1,0)=""
^DD(165.5,1556,21,2,0)="This item evaluates adherence of the resected primary specimen to"
^DD(165.5,1556,21,3,0)="other structures."
^DD(165.5,1556,21,4,0)=""
^DD(165.5,1556,"DT")="3010501"
^DD(165.5,1557,0)="GAS MARGIN STAT OF RESECT PRIM^S^1:Negative proximal and distal;2:Positive proximal, negative distal;3:Negative proximal, positive distal;4:Positive proximal and distal;9:Not documented;^GAS1;72^Q"
^DD(165.5,1557,21,0)="^^3^3^3010308^"
^DD(165.5,1557,21,1,0)=""
^DD(165.5,1557,21,2,0)="This item evaluates the margin status of the resected primary specimen."
^DD(165.5,1557,21,3,0)=""
^DD(165.5,1557,"DT")="3010501"
^DD(165.5,1558,0)="GAS PROXIMAL MARGIN^FXO^^GAS1;73^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D EFM^ONCOIT"
^DD(165.5,1558,2)="S Y(0)=Y S Y=$S(Y=""000"":""No free margins"",Y=999:""Not documented"",1:Y_"" mm"")"
^DD(165.5,1558,2.1)="S Y=$S(Y=""000"":""No free margins"",Y=999:""Not documented"",1:Y_"" mm"")"
^DD(165.5,1558,3)="Type a Number between 0 and 999"
^DD(165.5,1558,21,0)="^.001^11^11^3010508^^^^"
^DD(165.5,1558,21,1,0)=""
^DD(165.5,1558,21,2,0)="This item describes the extent of the proximal free margin around the"
^DD(165.5,1558,21,3,0)="resected primary tumor specimen.  Record the extent of the closest free"
^DD(165.5,1558,21,4,0)="margin in millimeters.  If surgery of primary site was performed but"
^DD(165.5,1558,21,5,0)="the extent of the free margin is not documented, code 999.  This"
^DD(165.5,1558,21,6,0)="information can be obtained from the pathology report."
^DD(165.5,1558,21,7,0)=""
^DD(165.5,1558,21,8,0)="Allowable Codes: 000 - no free margins in this segment"
^DD(165.5,1558,21,9,0)="                 001 thru 997 - extent of free margin (mm)"
^DD(165.5,1558,21,10,0)="                 999 - extent of free margin not documented"
^DD(165.5,1558,21,11,0)=""
^DD(165.5,1558,"DT")="3010501"
^DD(165.5,1558.1,0)="GAS DISTAL MARGIN^FOX^^GAS1;74^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X I $D(X) S ONCL=3 D EFM^ONCOIT"
^DD(165.5,1558.1,2)="S Y(0)=Y S Y=$S(Y=""000"":""No free margins"",Y=999:""Not documented"",1:Y_"" mm"")"
^DD(165.5,1558.1,2.1)="S Y=$S(Y=""000"":""No free margins"",Y=999:""Not documented"",1:Y_"" mm"")"
^DD(165.5,1558.1,3)="Type a Number between 0 and 999"
^DD(165.5,1558.1,21,0)="^.001^11^11^3010508^^^"
^DD(165.5,1558.1,21,1,0)=""
^DD(165.5,1558.1,21,2,0)="This item describes the extent of the distal free margin around the"
^DD(165.5,1558.1,21,3,0)="resected primary tumor specimen.  Record the extent of the closest"
^DD(165.5,1558.1,21,4,0)="free margin in millimeters.  If surgery of primary site was performed"
^DD(165.5,1558.1,21,5,0)="but the extent of the free margin is not documented, code 999.  This"
^DD(165.5,1558.1,21,6,0)="information can be obtained from the pathology report."
^DD(165.5,1558.1,21,7,0)=""
^DD(165.5,1558.1,21,8,0)="Allowable Codes: 000 - no free margins in this segment"
^DD(165.5,1558.1,21,9,0)="                 001 thru 997 - extent of free margin (mm)"
^DD(165.5,1558.1,21,10,0)="                 999 - extent of free margin not documented"
^DD(165.5,1558.1,21,11,0)=""
^DD(165.5,1558.1,"DT")="3010501"
^DD(165.5,1559,0)="GAS SPLEEN^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;1^Q"
^DD(165.5,1559,21,0)="^^6^6^3010308^"
^DD(165.5,1559,21,1,0)=""
^DD(165.5,1559,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559,21,5,0)="pathology report."
^DD(165.5,1559,21,6,0)=""
^DD(165.5,1559,"DT")="3010501"
^DD(165.5,1559.1,0)="GAS TRANSVERSE COLON^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;2^Q"
^DD(165.5,1559.1,21,0)="^^6^6^3010308^"
^DD(165.5,1559.1,21,1,0)=""
^DD(165.5,1559.1,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.1,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.1,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.1,21,5,0)="pathology report."
^DD(165.5,1559.1,21,6,0)=""
^DD(165.5,1559.1,"DT")="3010501"
^DD(165.5,1559.2,0)="GAS LIVER^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;3^Q"
^DD(165.5,1559.2,21,0)="^^6^6^3010308^"
^DD(165.5,1559.2,21,1,0)=""
^DD(165.5,1559.2,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.2,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.2,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.2,21,5,0)="pathology report."
^DD(165.5,1559.2,21,6,0)=""
^DD(165.5,1559.2,"DT")="3010501"
^DD(165.5,1559.3,0)="GAS DIAPHRAGM^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;4^Q"
^DD(165.5,1559.3,21,0)="^^6^6^3010308^"
^DD(165.5,1559.3,21,1,0)=""
^DD(165.5,1559.3,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.3,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.3,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.3,21,5,0)="pathology report."
^DD(165.5,1559.3,21,6,0)=""
^DD(165.5,1559.3,"DT")="3010501"
^DD(165.5,1559.4,0)="GAS PANCREAS^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;5^Q"
^DD(165.5,1559.4,21,0)="^^6^6^3010308^"
^DD(165.5,1559.4,21,1,0)=""
^DD(165.5,1559.4,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.4,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.4,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.4,21,5,0)="pathology report."
^DD(165.5,1559.4,21,6,0)=""
^DD(165.5,1559.4,"DT")="3010501"
^DD(165.5,1559.5,0)="GAS ABDOMINAL WALL^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;6^Q"
^DD(165.5,1559.5,21,0)="^^6^6^3010308^"
^DD(165.5,1559.5,21,1,0)=""
^DD(165.5,1559.5,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.5,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.5,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.5,21,5,0)="pathology report."
^DD(165.5,1559.5,21,6,0)=""
^DD(165.5,1559.5,"DT")="3010501"
^DD(165.5,1559.6,0)="GAS ADRENAL GLAND^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;7^Q"
^DD(165.5,1559.6,21,0)="^^6^6^3010308^"
^DD(165.5,1559.6,21,1,0)=""
^DD(165.5,1559.6,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.6,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.6,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.6,21,5,0)="pathology report."
^DD(165.5,1559.6,21,6,0)=""
^DD(165.5,1559.6,"DT")="3010501"
^DD(165.5,1559.7,0)="GAS KIDNEY^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;8^Q"
^DD(165.5,1559.7,21,0)="^^6^6^3010308^"
^DD(165.5,1559.7,21,1,0)=""
^DD(165.5,1559.7,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.7,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.7,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.7,21,5,0)="pathology report."
^DD(165.5,1559.7,21,6,0)=""
^DD(165.5,1559.7,"DT")="3010501"
^DD(165.5,1559.8,0)="GAS SMALL INTESTINE^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;9^Q"
^DD(165.5,1559.8,21,0)="^^6^6^3010308^"
^DD(165.5,1559.8,21,1,0)=""
^DD(165.5,1559.8,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.8,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.8,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.8,21,5,0)="pathology report."
^DD(165.5,1559.8,21,6,0)=""
^DD(165.5,1559.8,"DT")="3010501"
^DD(165.5,1559.9,0)="GAS RETROPERITONEUM^S^1:Resected, tumor adherence;2:Resected, no tumor adherence;3:Not resected, tumor adherence;4:Not resected, no tumor adherence;9:Extent of resection not documented;^GAS2;10^Q"
^DD(165.5,1559.9,21,0)="^^6^6^3010308^"
^DD(165.5,1559.9,21,1,0)=""
^DD(165.5,1559.9,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1559.9,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1559.9,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1559.9,21,5,0)="pathology report."
^DD(165.5,1559.9,21,6,0)=""
^DD(165.5,1559.9,"DT")="3010501"
^DD(165.5,1560,0)="GAS PERIGASTRIC LYMPH NODES^S^2:Resected;4:Not resected;9:Extent of resection not documented;^GAS2;11^Q"
^DD(165.5,1560,21,0)="^^6^6^3010308^"
^DD(165.5,1560,21,1,0)=""
^DD(165.5,1560,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1560,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1560,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1560,21,5,0)="pathology report."
^DD(165.5,1560,21,6,0)=""
^DD(165.5,1560,"DT")="3010501"
^DD(165.5,1560.1,0)="GAS COMMON HEPATIC LYMPH NODES^S^2:Resected;4:Not resected;9:Extent of resection not documented;^GAS2;12^Q"
^DD(165.5,1560.1,21,0)="^^6^6^3010308^"
^DD(165.5,1560.1,21,1,0)=""
^DD(165.5,1560.1,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1560.1,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1560.1,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1560.1,21,5,0)="pathology report."
^DD(165.5,1560.1,21,6,0)=""
^DD(165.5,1560.1,"DT")="3010501"
^DD(165.5,1560.2,0)="GAS CELIAC LYMPH NODES^S^2:Resected;4:Not resected;9:Extent of resection not documented;^GAS2;13^Q"
^DD(165.5,1560.2,21,0)="^^6^6^3010308^"
^DD(165.5,1560.2,21,1,0)=""
^DD(165.5,1560.2,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1560.2,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1560.2,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1560.2,21,5,0)="pathology report."
^DD(165.5,1560.2,21,6,0)=""
^DD(165.5,1560.2,"DT")="3010501"
^DD(165.5,1560.3,0)="GAS SPLENIC LYMPH NODES^S^2:Resected;4:Not resected;9:Extent of resection not documented;^GAS2;14^Q"
^DD(165.5,1560.3,21,0)="^^6^6^3010308^"
^DD(165.5,1560.3,21,1,0)=""
^DD(165.5,1560.3,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1560.3,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1560.3,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1560.3,21,5,0)="pathology report."
^DD(165.5,1560.3,21,6,0)=""
^DD(165.5,1560.3,"DT")="3010501"
^DD(165.5,1560.4,0)="GAS OTHER INTRA-ABDOMINAL NDES^S^2:Resected;4:Not resected;9:Extent of resection not documented;^GAS2;15^Q"
^DD(165.5,1560.4,21,0)="^.001^6^6^3010309^^"
^DD(165.5,1560.4,21,1,0)=""
^DD(165.5,1560.4,21,2,0)="This item describes the removal of an organ or lymph node structure"
^DD(165.5,1560.4,21,3,0)="beyond the stomach and if there was tumor adherence to this structure."
^DD(165.5,1560.4,21,4,0)="This information should be obtained from both the surgical and"
^DD(165.5,1560.4,21,5,0)="pathology report."
^DD(165.5,1560.4,21,6,0)=""
^DD(165.5,1560.4,"DT")="3010501"
^DD(165.5,1561,0)="GAS GROSSLY INVOLVED REG LN^S^1:Resected;2:Not resected;9:Resection not documented;^GAS2;16^Q"
^DD(165.5,1561,21,0)="^^5^5^3010309^"
^DD(165.5,1561,21,1,0)=""
^DD(165.5,1561,21,2,0)="This item describes whether regional nodes were grossly involved at"
^DD(165.5,1561,21,3,0)="surgical resection.  This information should only be recorded from the"
^DD(165.5,1561,21,4,0)="operative report.  Do not report pathologically involved nodes."
^DD(165.5,1561,21,5,0)=""
^DD(165.5,1561,"DT")="3010501"
^DD(165.5,1562,0)="GAS HCT VAL BEFORE TRANSFUSION^NJ4,1XO^^GAS2;17^K:(X>99.9)!(X<0)!(X?.E1"".""2N.N) X I $D(X) S ONCL=2,ONCF=1 D HVBT^ONCOIT"
^DD(165.5,1562,2)="S Y(0)=Y S Y=$S(+Y=0:""No transfusion"",Y=99.9:""Not documented"",1:Y_""% Hct"")"
^DD(165.5,1562,2.1)="S Y=$S(+Y=0:""No transfusion"",Y=99.9:""Not documented"",1:Y_""% Hct"")"
^DD(165.5,1562,3)="Type a Number between 00.0 and 99.9, 1 Decimal Digit"
^DD(165.5,1562,21,0)="^.001^11^11^3010508^^^^"
^DD(165.5,1562,21,1,0)=""
^DD(165.5,1562,21,2,0)="This item describes the percent (%) of hematocrit before the first"
^DD(165.5,1562,21,3,0)="transfusion.  Record results to the precision of one decimal point,"
^DD(165.5,1562,21,4,0)="record zeros in unused positions; for example 9.5% would be coded as"
^DD(165.5,1562,21,5,0)="09.5.  If the patient was transfused but hematocrit value is not"
^DD(165.5,1562,21,6,0)="documented, code 99.9."
^DD(165.5,1562,21,7,0)=""
^DD(165.5,1562,21,8,0)="Allowable Codes: 00.0 - no transfusion"
^DD(165.5,1562,21,9,0)="                 00.1 thru 99.0 - % Hct"
^DD(165.5,1562,21,10,0)="                 99.9 - transfusion, % Hct not documented"
^DD(165.5,1562,21,11,0)=""
^DD(165.5,1562,"DT")="3010501"
^DD(165.5,1563,0)="GAS TOTAL OPERATIVE BLOOD REPL^FXO^^GAS2;18^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S X=$S($L(X)=1:""0""_X,1:X) D GTOBR^ONCOIT"
^DD(165.5,1563,2)="S Y(0)=Y S Y=$S(Y=""00"":""No transfusion"",Y=98:""Transfusion, # of units not documented"",Y=99:""Not recorded if transfusion done"",1:Y_"" unit(s) tranfused"")"
^DD(165.5,1563,2.1)="S Y=$S(Y=""00"":""No transfusion"",Y=98:""Transfusion, # of units not documented"",Y=99:""Not recorded if transfusion done"",1:Y_"" unit(s) tranfused"")"
^DD(165.5,1563,3)="Type a Number between 00 and 99"
^DD(165.5,1563,21,0)="^.001^10^10^3010322^^^^"
^DD(165.5,1563,21,1,0)="This item describes the total number of units of blood transfused"
^DD(165.5,1563,21,2,0)="during the surgery of primary site and within 24 hours postoperatively."
^DD(165.5,1563,21,3,0)="If the patient was transfused but the number of units is not documented,"
^DD(165.5,1563,21,4,0)="code 99."
^DD(165.5,1563,21,5,0)=""
^DD(165.5,1563,21,6,0)="Allowable Codes: 00 - no transfusion performed"
^DD(165.5,1563,21,7,0)="                      01 thru 97 - units transfused"
^DD(165.5,1563,21,8,0)="                      98 - transfusion, # of units not documented"
^DD(165.5,1563,21,9,0)="                      99 - not recorded if transfusion done"
^DD(165.5,1563,21,10,0)=""
^DD(165.5,1563,"DT")="3010719"
^DD(165.5,1564,0)="GAS INTRA/PERI-OPERATIVE DEATH^S^1:Pt died intra-operatively;2:Pt died w/i 30 days while hospitalized ;3:Pt died > 30 days while hospitalized;4:Pt died w/i 30 days/discharged;5:Pt alive and discharged 30 days following;9:Not documented;^GAS2;19^Q"
^DD(165.5,1564,21,0)="^^4^4^3010309^"
^DD(165.5,1564,21,1,0)=""
^DD(165.5,1564,21,2,0)="This item describes whether or not the patient died intra-operatively"
^DD(165.5,1564,21,3,0)="or peri-operatively."
^DD(165.5,1564,21,4,0)=""
^DD(165.5,1564,"DT")="3010501"
^DD(165.5,1565,0)="GAS ANASTOMATIC LEAK^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;20^Q"
^DD(165.5,1565,21,0)="^^4^4^3010309^"
^DD(165.5,1565,21,1,0)=""
^DD(165.5,1565,21,2,0)="This item describes whether an anastomotic leak required re-operation"
^DD(165.5,1565,21,3,0)="during the same hospitalization."
^DD(165.5,1565,21,4,0)=""
^DD(165.5,1565,"DT")="3010501"
^DD(165.5,1565.1,0)="GAS STUMP LEAK^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;21^Q"
^DD(165.5,1565.1,21,0)="^^4^4^3010309^"
^DD(165.5,1565.1,21,1,0)=""
^DD(165.5,1565.1,21,2,0)="This item describes whether a stump leak required re-operation during"
^DD(165.5,1565.1,21,3,0)="the same hospitalization."
^DD(165.5,1565.1,21,4,0)=""
^DD(165.5,1565.1,"DT")="3010501"
^DD(165.5,1565.2,0)="GAS BLEEDING^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;22^Q"
^DD(165.5,1565.2,21,0)="^^4^4^3010309^"
^DD(165.5,1565.2,21,1,0)=""
^DD(165.5,1565.2,21,2,0)="This item describes whether bleeding required re-operation during the"
^DD(165.5,1565.2,21,3,0)="same hospitalization."
^DD(165.5,1565.2,21,4,0)=""
^DD(165.5,1565.2,"DT")="3010501"
^DD(165.5,1565.3,0)="GAS WOUND INFECTION^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;23^Q"
^DD(165.5,1565.3,21,0)="^^4^4^3010309^"
^DD(165.5,1565.3,21,1,0)=""
^DD(165.5,1565.3,21,2,0)="This item describes whether a wound infection required re-operation"
^DD(165.5,1565.3,21,3,0)="during the same hospitalization."
^DD(165.5,1565.3,21,4,0)=""
^DD(165.5,1565.3,"DT")="3010501"
^DD(165.5,1565.4,0)="GAS SEPSIS^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;24^Q"
^DD(165.5,1565.4,21,0)="^^4^4^3010309^"
^DD(165.5,1565.4,21,1,0)=""
^DD(165.5,1565.4,21,2,0)="This item describes whether sepsis required re-operation during the"
^DD(165.5,1565.4,21,3,0)="same hospitalization."
^DD(165.5,1565.4,21,4,0)=""
^DD(165.5,1565.4,"DT")="3010501"
^DD(165.5,1565.5,0)="GAS PANCREATITIS^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;25^Q"
^DD(165.5,1565.5,21,0)="^^4^4^3010309^"
^DD(165.5,1565.5,21,1,0)=""
^DD(165.5,1565.5,21,2,0)="This item describes whether pancreatitis required re-operation during"
^DD(165.5,1565.5,21,3,0)="the same hospitalization."
^DD(165.5,1565.5,21,4,0)=""
^DD(165.5,1565.5,"DT")="3010501"
^DD(165.5,1565.6,0)="GAS DEAD BOWEL^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;26^Q"
^DD(165.5,1565.6,21,0)="^^4^4^3010309^"
^DD(165.5,1565.6,21,1,0)=""
^DD(165.5,1565.6,21,2,0)="This item describes whether a dead bowel required re-operation during"
^DD(165.5,1565.6,21,3,0)="the same hospitalization."
^DD(165.5,1565.6,21,4,0)=""
^DD(165.5,1565.6,"DT")="3010501"
^DD(165.5,1565.7,0)="GAS OTHER COMPLICATIONS^S^1:Caused re-operation;2:Did not cause re-operation;3:Did not occur;9:Not documented;^GAS2;27^Q"
^DD(165.5,1565.7,21,0)="^^4^4^3010309^"
^DD(165.5,1565.7,21,1,0)=""
^DD(165.5,1565.7,21,2,0)="This item describes whether other complications required re-operation"
^DD(165.5,1565.7,21,3,0)="during the same hospitalization."
^DD(165.5,1565.7,21,4,0)=""
^DD(165.5,1565.7,"DT")="3010501"
^DD(165.5,1566,0)="GAS DATE OF SURGICAL DISCHARGE^D^^GAS2;28^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(165.5,1566,21,0)="^.001^10^10^3010322^^"
^DD(165.5,1566,21,1,0)=""
^DD(165.5,1566,21,2,0)="The date of surgical discharge is used to calculate a patient's"
^DD(165.5,1566,21,3,0)="length of stay in the hospital and is the month, day, and year"
^DD(165.5,1566,21,4,0)="that the patient was discharged from the hospital following surgery"
^DD(165.5,1566,21,5,0)="of primary site.  Surgical treatment is defined as the surgical event"
^DD(165.5,1566,21,6,0)="which corresponds to the procedure recorded in the ROADS data item"
^DD(165.5,1566,21,7,0)="""Date of Surgery and includes surgical procedures of the primary site,"
^DD(165.5,1566,21,8,0)="scope of regional lymph nodes, or surgery to other regional sites,"
^DD(165.5,1566,21,9,0)="distant sites or distant lymph nodes."
^DD(165.5,1566,21,10,0)=""
^DD(165.5,1566,"DT")="3010501"
^DD(165.5,1567,0)="GAS INTRA-OPERATIVE RADIATION^FXO^^GAS2;29^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X I $D(X) S ONCL=5 D IRTD^ONCOIT"
^DD(165.5,1567,2)="S Y(0)=Y S Y=$S(Y=""00000"":""Not administered"",Y=88888:""Administered, dose not documented"",Y=99999:""Not documented"",1:Y)"
^DD(165.5,1567,2.1)="S Y=$S(Y=""00000"":""Not administered"",Y=88888:""Administered, dose not documented"",Y=99999:""Not documented"",1:Y)"
^DD(165.5,1567,3)="Type a Number between 00000 and 99999"
^DD(165.5,1567,21,0)="^.001^15^15^3010322^^"
^DD(165.5,1567,21,1,0)=""
^DD(165.5,1567,21,2,0)="This item describes the intra-operative dose of radiation was"
^DD(165.5,1567,21,3,0)="administered to the patient.  The intra-operative dose may not"
^DD(165.5,1567,21,4,0)="be the dominant or most clinically significant dose delivered"
^DD(165.5,1567,21,5,0)="(data item #38), record the intra-operative dose separately from"
^DD(165.5,1567,21,6,0)="the dose recorded in data item #38.  If intra-operative radiation"
^DD(165.5,1567,21,7,0)="therapy was not administered, code 00000. If intra-operative radiation"
^DD(165.5,1567,21,8,0)="was administered but the dose is not documented, code 88888."
^DD(165.5,1567,21,9,0)=""
^DD(165.5,1567,21,10,0)="Allowable Codes: 00000 - no intraoperative radiation therapy"
^DD(165.5,1567,21,11,0)="                 00001 thru 99998 - intraoperative dose administered"
^DD(165.5,1567,21,12,0)="                 88888 - intraoperative radiation administered,"
^DD(165.5,1567,21,13,0)="                         dose not documented"
^DD(165.5,1567,21,14,0)="                 99999 - not documented if administered"
^DD(165.5,1567,21,15,0)=""
^DD(165.5,1567,"DT")="3010501"
^DD(165.5,1568,0)="GAS CONCURRENT CHEMOTHERAPY^S^1:Chemo concurrent with radiation;2:Chemo not concurrent with radiation;8:No chemo/unknown if chemo administered;9:Timing of chemo not documented;^GAS2;30^Q"
^DD(165.5,1568,21,0)="^^5^5^3010314^"
^DD(165.5,1568,21,1,0)=""
^DD(165.5,1568,21,2,0)="This item describes whether radiation therapy and chemotherapy were"
^DD(165.5,1568,21,3,0)="administered to the patient at the same time during the first course"
^DD(165.5,1568,21,4,0)="of treatment."
^DD(165.5,1568,21,5,0)=""
^DD(165.5,1568,"DT")="3010501"
^DD(165.5,1569,0)="GAS INTRAPERITONEAL CMX^S^1:Catheter, mitoycin;2:Catheter, 5-fluorouracil;3:Catheter, other;4:Portal vein, mitomycin;5:Portal vein, 5-fluorouracil;6:Portal vein, other;8:Administered, method not documented;9:Not documented;^GAS2;31^Q"
^DD(165.5,1569,21,0)="^^4^4^3010315^"
^DD(165.5,1569,21,1,0)=""
^DD(165.5,1569,21,2,0)="This item describes the method of intraperitoneal chemotherapy"
^DD(165.5,1569,21,3,0)="administration and the chemotherapy agent used."
^DD(165.5,1569,21,4,0)=""
^DD(165.5,1569,"DT")="3010501"
^DD(165.5,1570,0)="GAS ADMIN OF INTERFERON^S^1:Administered;2:Not administered;9:Not documented;^GAS2;32^Q"
^DD(165.5,1570,21,0)="^^4^4^3010315^"
^DD(165.5,1570,21,1,0)=""
^DD(165.5,1570,21,2,0)="This item describes whether the patient was administered Interferon"
^DD(165.5,1570,21,3,0)="to treat the primary tumor."
^DD(165.5,1570,21,4,0)=""
^DD(165.5,1570,"DT")="3010501"
^DD(165.5,1571,0)="GAS CO-MORBID CONDITION 1^*P80'O^ICD9(^GAS2;33^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1571,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571,12)="Enter the ICD-9-CM code."
^DD(165.5,1571,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1571,21,0)="^.001^13^13^3010529^^^^"
^DD(165.5,1571,21,1,0)=""
^DD(165.5,1571,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1571,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1571,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1571,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1571,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1571,21,7,0)=""
^DD(165.5,1571,21,8,0)="Allowable Codes: 000.00"
^DD(165.5,1571,21,9,0)="                 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1571,21,10,0)=""
^DD(165.5,1571,21,11,0)="If no co-morbid conditions were documented, then code 000.00 in this"
^DD(165.5,1571,21,12,0)="field and leave the remaining co-morbid fields blank."
^DD(165.5,1571,21,13,0)=""
^DD(165.5,1571,"DT")="3010501"
^DD(165.5,1571.1,0)="GAS CO-MORBID CONDITION 2^*P80'O^ICD9(^GAS2;34^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1571.1,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.1,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.1,12)="Enter the ICD-9-CM code."
^DD(165.5,1571.1,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1571.1,21,0)="^.001^13^13^3010529^^^"
^DD(165.5,1571.1,21,1,0)=""
^DD(165.5,1571.1,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1571.1,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1571.1,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1571.1,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1571.1,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1571.1,21,7,0)=""
^DD(165.5,1571.1,21,8,0)="Allowable Codes: 000.00"
^DD(165.5,1571.1,21,9,0)="                 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1571.1,21,10,0)=""
^DD(165.5,1571.1,21,11,0)="If no co-morbid conditions were documented, then code 000.00 in this"
^DD(165.5,1571.1,21,12,0)="field and leave the remaining co-morbid fields blank."
^DD(165.5,1571.1,21,13,0)=""
^DD(165.5,1571.1,"DT")="3010501"
^DD(165.5,1571.2,0)="GAS CO-MORBID CONDITION 3^*P80'O^ICD9(^GAS2;35^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1571.2,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.2,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.2,12)="Enter the ICD-9-CM code."
^DD(165.5,1571.2,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1571.2,21,0)="^.001^13^13^3010529^^^"
^DD(165.5,1571.2,21,1,0)=""
^DD(165.5,1571.2,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1571.2,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1571.2,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1571.2,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1571.2,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1571.2,21,7,0)=""
^DD(165.5,1571.2,21,8,0)="Allowable Codes: 000.00"
^DD(165.5,1571.2,21,9,0)="                 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1571.2,21,10,0)=""
^DD(165.5,1571.2,21,11,0)="If no co-morbid conditions were documented, then code 000.00 in this"
^DD(165.5,1571.2,21,12,0)="field and leave the remaining co-morbid fields blank."
^DD(165.5,1571.2,21,13,0)=""
^DD(165.5,1571.2,"DT")="3010501"
^DD(165.5,1571.3,0)="GAS CO-MORBID CONDITION 4^*P80'O^ICD9(^GAS2;36^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1571.3,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.3,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.3,12)="Enter the ICD-9-CM code."
^DD(165.5,1571.3,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1571.3,21,0)="^.001^13^13^3010529^^^"
^DD(165.5,1571.3,21,1,0)=""
^DD(165.5,1571.3,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1571.3,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1571.3,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1571.3,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1571.3,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1571.3,21,7,0)=""
^DD(165.5,1571.3,21,8,0)="Allowable Codes: 000.00"
^DD(165.5,1571.3,21,9,0)="                 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1571.3,21,10,0)=""
^DD(165.5,1571.3,21,11,0)="If no co-morbid conditions were documented, then code 000.00 in this"
^DD(165.5,1571.3,21,12,0)="field and leave the remaining co-morbid fields blank."
^DD(165.5,1571.3,21,13,0)=""
^DD(165.5,1571.3,"DT")="3010501"
^DD(165.5,1571.4,0)="GAS CO-MORBID CONDITION 5^*P80'O^ICD9(^GAS2;37^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1571.4,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.4,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.4,12)="Enter the ICD-9-CM code."
^DD(165.5,1571.4,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1571.4,21,0)="^.001^13^13^3010529^^^"
^DD(165.5,1571.4,21,1,0)=""
^DD(165.5,1571.4,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1571.4,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1571.4,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1571.4,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1571.4,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1571.4,21,7,0)=""
^DD(165.5,1571.4,21,8,0)="Allowable Codes: 000.00"
^DD(165.5,1571.4,21,9,0)="                 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1571.4,21,10,0)=""
^DD(165.5,1571.4,21,11,0)="If no co-morbid conditions were documented, then code 000.00 in this"
^DD(165.5,1571.4,21,12,0)="field and leave the remaining co-morbid fields blank."
^DD(165.5,1571.4,21,13,0)=""
^DD(165.5,1571.4,"DT")="3010501"
^DD(165.5,1571.5,0)="GAS CO-MORBID CONDITION 6^*P80'O^ICD9(^GAS2;38^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1571.5,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.5,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1571.5,12)="Enter the ICD-9-CM code."
^DD(165.5,1571.5,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN1"""")),U,76)'=0"""
^DD(165.5,1571.5,21,0)="^.001^13^13^3010529^^^"
^DD(165.5,1571.5,21,1,0)=""
^DD(165.5,1571.5,21,2,0)="This field records a pre-existing medical condition that was present"
^DD(165.5,1571.5,21,3,0)="at the time of diagnosis for this cancer or the patient was first seen"
^DD(165.5,1571.5,21,4,0)="at your facility following diagnosis.  Report the ICD-9-CM code.  Pre-"
^DD(165.5,1571.5,21,5,0)="existing conditions should be coded; do NOT code conditions which the"
^DD(165.5,1571.5,21,6,0)="patient acquired while being treated for this condition."
^DD(165.5,1571.5,21,7,0)=""
^DD(165.5,1571.5,21,8,0)="Allowable Codes: 000.00"
^DD(165.5,1571.5,21,9,0)="                 001.00 thru 994.90 (valid ICD-9-CM codes)"
^DD(165.5,1571.5,21,10,0)=""
^DD(165.5,1571.5,21,11,0)="If no co-morbid conditions were documented, then code 000.00 in this"
^DD(165.5,1571.5,21,12,0)="field and leave the remaining co-morbid fields blank."
^DD(165.5,1571.5,21,13,0)=""
^DD(165.5,1571.5,"DT")="3010501"
^DD(165.5,1572,0)="GAS DURATION OF TOBACCO USE^FXO^^GAS2;39^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X I $D(X) S ONCL=2 D DTU^ONCOIT"
^DD(165.5,1572,2)="S Y(0)=Y S Y=$S(Y=""00"":""Never used tobacco"",Y=99:""Not documented"",Y=""01"":Y_"" year"",1:Y_"" years"")"
^DD(165.5,1572,2.1)="S Y=$S(Y=""00"":""Never used tobacco"",Y=99:""Not documented"",Y=""01"":Y_"" year"",1:Y_"" years"")"
^DD(165.5,1572,3)="Type a Number between 00 and 99"
^DD(165.5,1572,21,0)="^.001^11^11^3010501^^"
^DD(165.5,1572,21,1,0)=""
^DD(165.5,1572,21,2,0)="This item describes the number of known years the patient used some"
^DD(165.5,1572,21,3,0)="form of tobacco, even if the patient is not presently using tobacco."
^DD(165.5,1572,21,4,0)="If the patient has never used tobacco, code 00.  If the patient's"
^DD(165.5,1572,21,5,0)="tobacco use cannot be determined, or if the duration of use is not"
^DD(165.5,1572,21,6,0)="known, code 99."
^DD(165.5,1572,21,7,0)=""
^DD(165.5,1572,21,8,0)="Allowable Codes: 00 - never used tobacco"
^DD(165.5,1572,21,9,0)="                 01 thru 98 - one or more years of tobacco use"
^DD(165.5,1572,21,10,0)="                 99 - duration of tobacco use not documented"
^DD(165.5,1572,21,11,0)=""
^DD(165.5,1572,"DT")="3010501"
^DD(165.5,1573,0)="GAS PERSONAL HIST OTH MALIG^P164'O^ONCO(164,^GAS2;40^Q"
^DD(165.5,1573,2)="S Y(0)=Y S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1573,2.1)="S Y=$P($G(^ONCO(164,+Y,0)),U,2)_"" ""_$P($G(^ONCO(164,+Y,0)),U,1)"
^DD(165.5,1573,4)="D ITEM3^ONCLPC1"
^DD(165.5,1573,21,0)="^.001^12^12^3010510^^"
^DD(165.5,1573,21,1,0)=""
^DD(165.5,1573,21,2,0)="This item describes the patient's prior history of other invasive"
^DD(165.5,1573,21,3,0)="malignancies.  If the patient has a history of other malignancies"
^DD(165.5,1573,21,4,0)="report the ICD-O-3 site code for the most recently diagnosed disease."
^DD(165.5,1573,21,5,0)="If the patient has no personal history of other cancer, code C88.8. If"
^DD(165.5,1573,21,6,0)="the patient's personal history of other invasive malignancies is not"
^DD(165.5,1573,21,7,0)="documented, code C99.9."
^DD(165.5,1573,21,8,0)=""
^DD(165.5,1573,21,9,0)="Allowable Codes: C00.0 thru C80.9 - valid ICD-0-3 site (topography) codes"
^DD(165.5,1573,21,10,0)="                 C88.8 - no personal history of other cancer"
^DD(165.5,1573,21,11,0)="                 C99.9 - personal history of other cancer not documented"
^DD(165.5,1573,21,12,0)=""
^DD(165.5,1573,"DT")="3010501"
^DD(165.5,1574,0)="GAS WEIGHT LOSS^S^1:Present;2:Not present;9:Not documented;^GAS2;41^Q"
^DD(165.5,1574,21,0)="^.001^4^4^3010501^^"
^DD(165.5,1574,21,1,0)=""
^DD(165.5,1574,21,2,0)="This item describes the presence of weight loss specific to gastric"
^DD(165.5,1574,21,3,0)="cancer that was recorded in the medical chart."
^DD(165.5,1574,21,4,0)=""
^DD(165.5,1574,"DT")="3010501"
^DD(165.5,1575,0)="GAS BOOST DOSE (cGy)^FX^^GAS2;42^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X I $D(X) S ONCL=5 D BD^ONCOIT"
^DD(165.5,1575,3)="Type a Number between 00000 and 99999"
^DD(165.5,1575,21,0)="^^9^9^3010501^"
^DD(165.5,1575,21,1,0)=""
^DD(165.5,1575,21,2,0)="This item describes the boost dose of radiation administered to"
^DD(165.5,1575,21,3,0)="the central tumor field of the patient.  If radiation was administered"
^DD(165.5,1575,21,4,0)="but boost dose is unknown, code 99999."
^DD(165.5,1575,21,5,0)=""
^DD(165.5,1575,21,6,0)="Allowable Codes: 00000 - no radiation boost dose administered"
^DD(165.5,1575,21,7,0)="                 00001 thru 99998 - boost dose administered (cGy)"
^DD(165.5,1575,21,8,0)="                 99999- boost dose administered, dose not documented"
^DD(165.5,1575,21,9,0)=""
^DD(165.5,1575,"DT")="3010501"
^DD(165.5,1576,0)="GAS CHEMOTHERAPEUTIC AGENT #1^P164.18'O^ONCO(164.18,^GAS2;43^Q"
^DD(165.5,1576,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_"" ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1576,2.1)="S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_"" ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1576,21,0)="^^11^11^3010502^"
^DD(165.5,1576,21,1,0)=""
^DD(165.5,1576,21,2,0)="This item records the first chemotherapeutic agent administered to"
^DD(165.5,1576,21,3,0)="the patient as part of the first course of therapy.  If chemotherapy"
^DD(165.5,1576,21,4,0)="was administered but the type(s) of agent(s) are unknown, code 999999."
^DD(165.5,1576,21,5,0)=""
^DD(165.5,1576,21,6,0)="Allowable Codes: Valid NSC (National Service Center) number for"
^DD(165.5,1576,21,7,0)="                 chemotherapeutic agents listed in the Self"
^DD(165.5,1576,21,8,0)="                 Instructional Manual for Tumor Registrars, Book 8,"
^DD(165.5,1576,21,9,0)="                 Surveillance, Epidemiology and End Results Program,"
^DD(165.5,1576,21,10,0)="                 National Cancer Institute."
^DD(165.5,1576,21,11,0)=""
^DD(165.5,1576,"DT")="3010502"
^DD(165.5,1576.1,0)="GAS CHEMOTHERAPEUTIC AGENT #2^P164.18'O^ONCO(164.18,^GAS2;44^Q"
^DD(165.5,1576.1,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_"" ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1576.1,2.1)="S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_"" ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1576.1,21,0)="^.001^11^11^3010502^^"
^DD(165.5,1576.1,21,1,0)=""
^DD(165.5,1576.1,21,2,0)="This item records the second chemotherapeutic agent administered to"
^DD(165.5,1576.1,21,3,0)="the patient as part of the first course of therapy.  If chemotherapy"
^DD(165.5,1576.1,21,4,0)="was administered but the type(s) of agent(s) are unknown, code 999999."
^DD(165.5,1576.1,21,5,0)=""
^DD(165.5,1576.1,21,6,0)="Allowable Codes: Valid NSC (National Service Center) number for"
^DD(165.5,1576.1,21,7,0)="                 chemotherapeutic agents listed in the Self"
^DD(165.5,1576.1,21,8,0)="                 Instructional Manual for Tumor Registrars, Book 8,"
^DD(165.5,1576.1,21,9,0)="                 Surveillance, Epidemiology and End Results Program,"
^DD(165.5,1576.1,21,10,0)="                 National Cancer Institute."
^DD(165.5,1576.1,21,11,0)=""
^DD(165.5,1576.1,"DT")="3010502"
^DD(165.5,1576.2,0)="GAS CHEMOTHERAPEUTIC AGENT #3^P164.18'O^ONCO(164.18,^GAS2;45^Q"
^DD(165.5,1576.2,2)="S Y(0)=Y S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_"" ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1576.2,2.1)="S Y=$P($G(^ONCO(164.18,Y,0)),""^"",2)_"" ""_$P($G(^ONCO(164.18,Y,0)),""^"",1)"
^DD(165.5,1576.2,21,0)="^.001^11^11^3010502^^"
^DD(165.5,1576.2,21,1,0)=""
^DD(165.5,1576.2,21,2,0)="This item records the third chemotherapeutic agent administered to"
^DD(165.5,1576.2,21,3,0)="the patient as part of the first course of therapy.  If chemotherapy"
^DD(165.5,1576.2,21,4,0)="was administered but the type(s) of agent(s) are unknown, code 999999."
^DD(165.5,1576.2,21,5,0)=""
^DD(165.5,1576.2,21,6,0)="Allowable Codes: Valid NSC (National Service Center) number for"
^DD(165.5,1576.2,21,7,0)="                 chemotherapeutic agents listed in the Self"
^DD(165.5,1576.2,21,8,0)="                 Instructional Manual for Tumor Registrars, Book 8,"
^DD(165.5,1576.2,21,9,0)="                 Surveillance, Epidemiology and End Results Program,"
^DD(165.5,1576.2,21,10,0)="                 National Cancer Institute."
^DD(165.5,1576.2,21,11,0)=""
^DD(165.5,1576.2,"DT")="3010502"
^DD(165.5,1577,0)="GAS CHEMOTHERAPEUTIC TOXICITY^S^1:Chemo discontinued due to toxicity;2:No chemo toxicity;9:Not documented;^GAS2;46^Q"
^DD(165.5,1577,21,0)="^^4^4^3010502^"
^DD(165.5,1577,21,1,0)=""
^DD(165.5,1577,21,2,0)="This item describes whether the administration of chemotherapy"
^DD(165.5,1577,21,3,0)="was discontinued as a result of toxicity."
^DD(165.5,1577,21,4,0)=""
^DD(165.5,1577,"DT")="3010502"
^DD(165.5,1578,0)="GAS CHEMOTHERAPY/SURG SEQUENCE^S^1:Chemo administered, no surgery;2:Chemo administered before surgery;3:Chemo administered after surgery;4:Chemo administered before and after surgery;9:Chemo and surgery administered, seq unk;^GAS2;47^Q"
^DD(165.5,1578,21,0)="^^4^4^3010502^"
^DD(165.5,1578,21,1,0)=""
^DD(165.5,1578,21,2,0)="This data item describes the sequence in which chemotherapy"
^DD(165.5,1578,21,3,0)="and surgery of the primary site were administered."
^DD(165.5,1578,21,4,0)=""
^DD(165.5,1578,"DT")="3010502"
^DD(165.5,1579,0)="GAS COMPLICATION #1^*P80'O^ICD9(^GAS2;48^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1579,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1579,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1579,21,0)="^.001^8^8^3010502^^"
^DD(165.5,1579,21,1,0)=""
^DD(165.5,1579,21,2,0)="This item describes the first medical complication acquired by"
^DD(165.5,1579,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1579,21,4,0)="Record valid ICD-9-CM codes."
^DD(165.5,1579,21,5,0)=""
^DD(165.5,1579,21,6,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1579,21,7,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1579,21,8,0)=""
^DD(165.5,1579,"DT")="3010502"
^DD(165.5,1579.1,0)="GAS COMPLICATION #2^*P80'O^ICD9(^GAS2;49^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1579.1,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.1,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.1,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1579.1,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1579.1,21,0)="^^8^8^3010502^"
^DD(165.5,1579.1,21,1,0)=""
^DD(165.5,1579.1,21,2,0)="This item describes the first medical complication acquired by"
^DD(165.5,1579.1,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1579.1,21,4,0)="Record valid ICD-9-CM codes."
^DD(165.5,1579.1,21,5,0)=""
^DD(165.5,1579.1,21,6,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1579.1,21,7,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1579.1,21,8,0)=""
^DD(165.5,1579.1,"DT")="3010502"
^DD(165.5,1579.2,0)="GAS COMPLICATION #3^*P80'O^ICD9(^GAS2;50^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1579.2,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.2,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.2,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1579.2,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1579.2,21,0)="^.001^8^8^3010502^^"
^DD(165.5,1579.2,21,1,0)=""
^DD(165.5,1579.2,21,2,0)="This item describes the first medical complication acquired by"
^DD(165.5,1579.2,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1579.2,21,4,0)="Record valid ICD-9-CM codes."
^DD(165.5,1579.2,21,5,0)=""
^DD(165.5,1579.2,21,6,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1579.2,21,7,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1579.2,21,8,0)=""
^DD(165.5,1579.2,"DT")="3010502"
^DD(165.5,1579.3,0)="GAS COMPLICATION #4^*P80'O^ICD9(^GAS2;51^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1579.3,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.3,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.3,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1579.3,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1579.3,21,0)="^^8^8^3010502^"
^DD(165.5,1579.3,21,1,0)=""
^DD(165.5,1579.3,21,2,0)="This item describes the first medical complication acquired by"
^DD(165.5,1579.3,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1579.3,21,4,0)="Record valid ICD-9-CM codes."
^DD(165.5,1579.3,21,5,0)=""
^DD(165.5,1579.3,21,6,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1579.3,21,7,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1579.3,21,8,0)=""
^DD(165.5,1579.3,"DT")="3010502"
^DD(165.5,1579.4,0)="GAS COMPLICATION #5^*P80'O^ICD9(^GAS2;52^S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(165.5,1579.4,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.4,2.1)="I Y'="""" S Y=$P($G(^ICD9(Y,0)),U,1)_"" ""_$P($G(^ICD9(Y,0)),U,3)"
^DD(165.5,1579.4,12)="If the COMPLICATIONS (YES/NO) field is set to ""No"", then no editing of this field is allowed."
^DD(165.5,1579.4,12.1)="S DIC(""S"")=""I $P($G(^ONCO(165.5,DA,""""LUN2"""")),U,40)'=0"""
^DD(165.5,1579.4,21,0)="^^8^8^3010502^"
^DD(165.5,1579.4,21,1,0)=""
^DD(165.5,1579.4,21,2,0)="This item describes the first medical complication acquired by"
^DD(165.5,1579.4,21,3,0)="the patient during or resulting from the first course of therapy."
^DD(165.5,1579.4,21,4,0)="Record valid ICD-9-CM codes."
^DD(165.5,1579.4,21,5,0)=""
^DD(165.5,1579.4,21,6,0)="Allowable Codes: 001.00 - 999.90 (valid ICD-9-CM codes)"
^DD(165.5,1579.4,21,7,0)="                 E930.0 - E949.7 (valid ICD-9-CM adverse effect codes)"
^DD(165.5,1579.4,21,8,0)=""
^DD(165.5,1579.4,"DT")="3010502"
^DD(165.5,2000,0)="DIVISION^RP4'^DIC(4,^DIV;1^Q"
^DD(165.5,2000,1,0)="^.1^^0"
^DD(165.5,2000,21,0)="^^3^3^2991220^^^"
^DD(165.5,2000,21,1,0)=""
^DD(165.5,2000,21,2,0)="DIVISION is the division to which this primary belongs."
^DD(165.5,2000,21,3,0)=""
^DD(165.5,2000,"DT")="2991217"
^DD(165.5,"B","#NODES EXAMINED",33.1)=""
^DD(165.5,"B","1ST PRIMARY HISTOLOGY",804)=""
^DD(165.5,"B","1ST PRIMARY SITE",803)=""
^DD(165.5,"B","2ND PRIMARY HISTOLOGY",806)=""
^DD(165.5,"B","2ND PRIMARY SITE",805)=""
^DD(165.5,"B","5 FU (FLUOROURACIL)",789)=""
^DD(165.5,"B","5-FLUOROURACIL",373)=""
^DD(165.5,"B","5-FU",1063)=""
^DD(165.5,"B","ABDOMINAL INFECTION",770)=""
^DD(165.5,"B","ABDOMINAL ULTRASOUND",335)=""
^DD(165.5,"B","ABLATION",1059)=""
^DD(165.5,"B","ABLATION & RESECTION",1057)=""
^DD(165.5,"B","ABSCESS",771)=""
^DD(165.5,"B","ABSTRACT INCOMPLETE",97)=""
^DD(165.5,"B","ABSTRACT STATUS",91)=""
^DD(165.5,"B","ABSTRACTED BY",92)=""
^DD(165.5,"B","ACC/SEQ NUMBER",.061)=""
^DD(165.5,"B","ACCESSION NUMBER",.05)=""
^DD(165.5,"B","ACCESSION YEAR",.07)=""
^DD(165.5,"B","ACOS #",67)=""
^DD(165.5,"B","ADDITIONAL SURGICAL PROCEDURES",763)=""
^DD(165.5,"B","ADJUVANT CHEMOTHERAPY (COL)",788)=""
^DD(165.5,"B","ADJUVANT CHEMOTHERAPY (THY)",446)=""
^DD(165.5,"B","ADMISSION FOR NEUTROPENIA",772)=""
^DD(165.5,"B","ADRIAMYCIN",369)=""
^DD(165.5,"B","AFIP SUBMISSION",83)=""
^DD(165.5,"B","AFP (IU/ml)",1013)=""
^DD(165.5,"B","AGE AT DX",4)=""
^DD(165.5,"B","AIDS RISK CATEGORY",822)=""
^DD(165.5,"B","AIRWAY PROBLEM",436)=""
^DD(165.5,"B","AJCC STAGING BASIS",36)=""
^DD(165.5,"B","AJCC Staging Basis",36)="1"
^DD(165.5,"B","ALBUMIN (g/dl)",1018)=""
^DD(165.5,"B","ALCOHOL CONSUMPTION",1012)=""
^DD(165.5,"B","ALERTNESS",1245)=""
^DD(165.5,"B","ALTERED ALERTNESS",1223)=""
^DD(165.5,"B","AMBIGUOUS TERMINOLOGY DX",159)=""
^DD(165.5,"B","ANASTOMOTIC DEHISCENCE",773)=""
^DD(165.5,"B","ANDROGEN RECEPTOR (BR98)",940)=""
^DD(165.5,"B","ANESTHETIC PROBLEM",1330)=""
^DD(165.5,"B","ANGIOGRAM OF PRIMARY",502)=""
^DD(165.5,"B","ANGIOGRAPHY",1274)=""
^DD(165.5,"B","ANGIOLYMPHATIC INVASION",1116)=""
^DD(165.5,"B","ANORECTAL COMPLICATIONS",697)=""
^DD(165.5,"B","ANOREXIA",1341)=""
^DD(165.5,"B","ANTIANDROGENS",644)=""
^DD(165.5,"B","APPROACH FOR BIOPSY OF PRIMARY",145)=""
^DD(165.5,"B","ARCHITECTURE PATTERN (BR98)",931)=""
^DD(165.5,"B","ARTERIAL EMBOLIZATION",1071)=""
^DD(165.5,"B","ARTICULATION OR ENUNCIATION",1257)=""
^DD(165.5,"B","ASA CLASS",527)=""
^DD(165.5,"B","ASCITES",1004)=""
^DD(165.5,"B","ASSOCIATED WITH HIV",41)=""
^DD(165.5,"B","ATAXIA OF GAIT",1263)=""
^DD(165.5,"B","AUTOMATIC STAGING OVERRIDDEN",37.9)=""
^DD(165.5,"B","BABINSKI SIGN",1271)=""
^DD(165.5,"B","BACKACHE (1ST RECURRENCE)",649)=""
^DD(165.5,"B","BARIUM ENEMA",182)=""
^DD(165.5,"B","BARIUM ENEMA, DOUBLE CONTRAST",733)=""
^DD(165.5,"B","BARIUM ENEMA, NOS",735)=""
^DD(165.5,"B","BARIUM ENEMA, SINGLE CONTRAST",734)=""
^DD(165.5,"B","BCG",383)=""
^DD(165.5,"B","BCNU",1350)=""
^DD(165.5,"B","BCNU (SUB TX)",1382)=""
^DD(165.5,"B","BCNU WAFER IMPLANT",1351)=""
^DD(165.5,"B","BCNU WAFER IMPLANT (SUB TX)",1383)=""
^DD(165.5,"B","BILIRUBIN (mg/ml)",1017)=""
^DD(165.5,"B","BIMANAUL EXAM OF BLADDER",326)=""
^DD(165.5,"B","BIOPSY OF METASTATIC SITE",737)=""
^DD(165.5,"B","BIOPSY OF OTHER THAN PRIMARY",146)=""
^DD(165.5,"B","BIOPSY OF PRIMARY SITE",736)=""
^DD(165.5,"B","BIOPSY PROCEDURE",141)=""
^DD(165.5,"B","BLADDER INCONTINENCE",1240)=""
^DD(165.5,"B","BLADDER IRRITABILITY",320)=""
^DD(165.5,"B","BLEEDING REQUIRING TRANSFUSION",352)=""
^DD(165.5,"B","BLEEDING/HEMATOMA",437)=""
^DD(165.5,"B","BLOOD COUNT DROP/BLEEDING",1362)=""
^DD(165.5,"B","BLOOD IN SPUTUM PER PT",174)=""
^DD(165.5,"B","BLOOD VESSEL INVASION",431)=""
^DD(165.5,"B","BLOOD VESSEL OR LYMPHATIC INV",759)=""
^DD(165.5,"B","BONE IMAGING",336)=""
^DD(165.5,"B","BONE MARROW ASPIRATE OR BIOPSY",503)=""
^DD(165.5,"B","BONE MARROW ASPIRATION",611)=""
^DD(165.5,"B","BONE MARROW ASPIRATION (PR98)",671)=""
^DD(165.5,"B","BONE MARROW BIOPSY",840)=""
^DD(165.5,"B","BONE SCAN (1ST RECURRENCE)",650)=""
^DD(165.5,"B","BONE SCAN (PR98)",672)=""
^DD(165.5,"B","BONE SCAN (PROSTATE)",612)=""
^DD(165.5,"B","BONE SCAN (SOFT TIS SARCOMA)",504)=""
^DD(165.5,"B","BONE SCAN (THYROID)",418)=""
^DD(165.5,"B","BONE X-RAY",613)=""
^DD(165.5,"B","BONE X-RAY (PR98)",673)=""
^DD(165.5,"B","BOOST DOSE: cGy",443)=""
^DD(165.5,"B","BOOST TREATMENT MODALITY",363.1)=""
^DD(165.5,"B","BOWEL INCONTINENCE",1241)=""
^DD(165.5,"B","BRACHYTHERAPY",538)=""
^DD(165.5,"B","BRACHYTHERAPY DAYS",539)=""
^DD(165.5,"B","BRACHYTHERAPY RADIATION DOSE",540)=""
^DD(165.5,"B","BRAIN",859)=""
^DD(165.5,"B","BRAIN",1205)=""
^DD(165.5,"B","BRAIN STEM",1294)=""
^DD(165.5,"B","BREAST",1206)=""
^DD(165.5,"B","BRESLOW'S THICKNESS",1114)=""
^DD(165.5,"B","BRONCHOSCOPY",177)=""
^DD(165.5,"B","BROTHER (BR98)",907)=""
^DD(165.5,"B","CA19.9 (U/ml)",1015)=""
^DD(165.5,"B","CANCER #1",148.1)=""
^DD(165.5,"B","CANCER #2",148.2)=""
^DD(165.5,"B","CANCER #3",148.3)=""
^DD(165.5,"B","CANCER #4",148.4)=""
^DD(165.5,"B","CAP PROTOCOL REVIEW",46)=""
^DD(165.5,"B","CAP TEXT",47)=""
^DD(165.5,"B","CARBOPLATIN",1353)=""
^DD(165.5,"B","CARBOPLATIN (SUB TX)",1385)=""
^DD(165.5,"B","CARBOPLATINUM",370)=""
^DD(165.5,"B","CARCINOEMBRYONIC ANTIGEN (CEA)",740)=""
^DD(165.5,"B","CASE LAST CHANGED BY",199)=""
^DD(165.5,"B","CASEFINDING SOURCE",21)=""
^DD(165.5,"B","CCNU",1347)=""
^DD(165.5,"B","CCNU (SUB TX)",1377)=""
^DD(165.5,"B","CD4 COUNT",844)=""
^DD(165.5,"B","CEA (mg/ml)",1014)=""
^DD(165.5,"B","CELL TYPE OF LYMPHOMA",847)=""
^DD(165.5,"B","CENSUS TRACT",147)=""
^DD(165.5,"B","CEREBELLUM",1293)=""
^DD(165.5,"B","CEREBRAL SPINAL FLUID (CSF)",1298)=""
^DD(165.5,"B","CEREBROVASCULAR DISEASE",1204)=""
^DD(165.5,"B","CHANGE IN BOWEL HABITS PER PT",180)=""
^DD(165.5,"B","CHANGE IN SENSE OF SMELL/TASTE",1222)=""
^DD(165.5,"B","CHEMOTHERAPEUTIC ROUTE",1358)=""
^DD(165.5,"B","CHEMOTHERAPY",53.2)=""
^DD(165.5,"B","CHEMOTHERAPY @FAC",53.3)=""
^DD(165.5,"B","CHEMOTHERAPY @FAC DATE",53.4)=""
^DD(165.5,"B","CHEMOTHERAPY DATE",53)=""
^DD(165.5,"B","CHEMOTHERAPY HOSPITAL",53.1)=""
^DD(165.5,"B","CHEMOTHERAPY REGIME (BR98)",956)=""
^DD(165.5,"B","CHEMOTHERAPY/SURGERY SEQUENCE",1070)=""
^DD(165.5,"B","CHEST ROENTGENOGRAM",741)=""
^DD(165.5,"B","CHEST WALL INVOLVEMENT (BR98)",934)=""
^DD(165.5,"B","CHEST X-RAY",175)=""
^DD(165.5,"B","CHEST X-RAY (BLADDER)",337)=""
^DD(165.5,"B","CHEST X-RAY (PR98)",674)=""
^DD(165.5,"B","CHEST X-RAY (PROSTATE)",614)=""
^DD(165.5,"B","CHEST X-RAY (STS/NHL)",505)=""
^DD(165.5,"B","CHEST X-RAY (THYROID)",419)=""
^DD(165.5,"B","CHILD'S CLASS A",1006)=""
^DD(165.5,"B","CHILD'S CLASS B",1007)=""
^DD(165.5,"B","CHILD'S CLASS C",1008)=""
^DD(165.5,"B","CHLORAMBUCIL",867)=""
^DD(165.5,"B","CHOP",871)=""
^DD(165.5,"B","CHRONIC COMPLICATIONS",698)=""
^DD(165.5,"B","CIRRHOSIS",1005)=""
^DD(165.5,"B","CISPLATIN",371)=""
^DD(165.5,"B","CISPLATIN",1061)=""
^DD(165.5,"B","CISPLATIN (SUB TX)",1381)=""
^DD(165.5,"B","CISPLATIN LOCATION",553)=""
^DD(165.5,"B","CISPLATIN METHOD OF DELIVERY",547)=""
^DD(165.5,"B","CITY/TOWN AT DX",8.1)=""
^DD(165.5,"B","CLARK'S LEVEL OF INVASION",1115)=""
^DD(165.5,"B","CLASS CATEGORY",.042)=""
^DD(165.5,"B","CLASS NO.",.041)=""
^DD(165.5,"B","CLASS OF CASE",.04)=""
^DD(165.5,"B","CLIN DX BY RECTAL EXAM (PR98)",662)=""
^DD(165.5,"B","CLIN DX W/ BONE LESION (PR98)",661)=""
^DD(165.5,"B","CLINICAL DX BY RECTAL EXAM",601)=""
^DD(165.5,"B","CLINICAL DX WITH BONE LESION",600)=""
^DD(165.5,"B","CLINICAL M",37.3)=""
^DD(165.5,"B","CLINICAL N",37.2)=""
^DD(165.5,"B","CLINICAL RISK FACTORS",134)=""
^DD(165.5,"B","CLINICAL T",37.1)=""
^DD(165.5,"B","CLINICALLY AMELANOTIC",1119)=""
^DD(165.5,"B","CM FROM ANASTOMOSIS TO DENTATE",766)=""
^DD(165.5,"B","CMV INFECTION",814)=""
^DD(165.5,"B","COLON (BR98)",911)=""
^DD(165.5,"B","COLON OR OTHER GI CANCERS",1211)=""
^DD(165.5,"B","COLONOSCOPY",185)=""
^DD(165.5,"B","COLONOSCOPY",742)=""
^DD(165.5,"B","COLONY STIMULATING FACTORS",559)=""
^DD(165.5,"B","COLOSTOMY",767)=""
^DD(165.5,"B","COMLA",873)=""
^DD(165.5,"B","COMPLETED BY",81)=""
^DD(165.5,"B","COMPLETED DURATION OF THERAPY",795)=""
^DD(165.5,"B","COMPUTED TOMOGRAPHY (CT) SCAN",1275)=""
^DD(165.5,"B","CONSULTATIONS (MED ONCOLOGIST)",524)=""
^DD(165.5,"B","CONSULTATIONS (RAD ONCOLOGIST)",525)=""
^DD(165.5,"B","CONVERTED",78)=""
^DD(165.5,"B","CORE NEEDLE BIOPSY",529)=""
^DD(165.5,"B","CORTICAL SENSORY DEFICIT",1261)=""
^DD(165.5,"B","COUNTY",.117)=""
^DD(165.5,"B","COUNTY AT DX",10)=""
^DD(165.5,"B","CPT 11",792)=""
^DD(165.5,"B","CPT-11",1355)=""
^DD(165.5,"B","CPT-11 (SUB TX)",1388)=""
^DD(165.5,"B","CRANIAL MENINGES",1299)=""
^DD(165.5,"B","CROHN'S DISEASE",809)=""
^DD(165.5,"B","CS VERSION",169)=""
^DD(165.5,"B","CSF CYTOLOGY",841)=""
^DD(165.5,"B","CSF SHUNT/3RD VENTRICULOSTOMY",1317)=""
^DD(165.5,"B","CSF SHUNT/OTHER",1318)=""
^DD(165.5,"B","CSF SHUNT/VENTRICULOPERITONEAL",1316)=""
^DD(165.5,"B","CT ABDOMEN/PELVIS",339)=""
^DD(165.5,"B","CT ARTERIAL PORT-BILOBAR DIS",1023)=""
^DD(165.5,"B","CT ARTERIAL PORT-CIRRHOSIS",1021)=""
^DD(165.5,"B","CT ARTERIAL PORT-LYMPH NODES",1024)=""
^DD(165.5,"B","CT ARTERIAL PORT-NUM 0F TUMORS",1026)=""
^DD(165.5,"B","CT ARTERIAL PORT-PERFORMED",1020)=""
^DD(165.5,"B","CT ARTERIAL PORT-SIZE OF TUMOR",1025)=""
^DD(165.5,"B","CT ARTERIAL PORT-VASCULAR INV",1022)=""
^DD(165.5,"B","CT CHEST/LUNG",338)=""
^DD(165.5,"B","CT OF ABDOMEN/PELVIS",184)=""
^DD(165.5,"B","CT OTHER",340)=""
^DD(165.5,"B","CT SCAN",176)=""
^DD(165.5,"B","CT SCAN OF ABDOMEN (PR98)",675)=""
^DD(165.5,"B","CT SCAN OF ABDOMEN/PELVIS",824)=""
^DD(165.5,"B","CT SCAN OF BRAIN",823)=""
^DD(165.5,"B","CT SCAN OF CHEST",421)=""
^DD(165.5,"B","CT SCAN OF CHEST (STS)",506)=""
^DD(165.5,"B","CT SCAN OF LIVER",738)=""
^DD(165.5,"B","CT SCAN OF NECK (THYROID)",420)=""
^DD(165.5,"B","CT SCAN OF PELVIS (PR98)",676)=""
^DD(165.5,"B","CT SCAN OF PRIMARY",507)=""
^DD(165.5,"B","CT SCAN OF PRIMARY SITE",615)=""
^DD(165.5,"B","CT SCAN OF PRIMARY SITE (COL)",739)=""
^DD(165.5,"B","CT SCAN OF SPINE",1276)=""
^DD(165.5,"B","CVP",872)=""
^DD(165.5,"B","CYCLOPHOSPHAMIDE",372)=""
^DD(165.5,"B","CYCLOPHOSPHAMIDE (NHL)",868)=""
^DD(165.5,"B","CYCLOPHOSPHAMIDE (SUB TX)",1387)=""
^DD(165.5,"B","CYSTOSCOPY WITH BIOPSY",327)=""
^DD(165.5,"B","CYSTOSCOPY WITHOUT BIOPSY",328)=""
^DD(165.5,"B","CYTARABINE (ARA-C)",1357)=""
^DD(165.5,"B","CYTARABINE (ARA-C) (SUB TX)",1391)=""
^DD(165.5,"B","CYTOGENETICS",514)=""
^DD(165.5,"B","CYTOLOGY",602)=""
^DD(165.5,"B","CYTOLOGY (PR98)",663)=""
^DD(165.5,"B","CYTOXAN",543)=""
^DD(165.5,"B","CYTOXAN LOCATION",554)=""
^DD(165.5,"B","CYTOXAN METHOD OF DELIVERY",548)=""
^DD(165.5,"B","Current Cancer Status",95)="1"
^DD(165.5,"B","DATE BRACHYTHERAPY ENDED",542)=""
^DD(165.5,"B","DATE BRACHYTHERAPY STARTED",541)=""
^DD(165.5,"B","DATE CASE COMPLETED",90)=""
^DD(165.5,"B","DATE CASE LAST CHANGED",198)=""
^DD(165.5,"B","DATE CHEMOTHERAPY ENDED",367)=""
^DD(165.5,"B","DATE DX",3)=""
^DD(165.5,"B","DATE EXT BEAM RAD STARTED",567)=""
^DD(165.5,"B","DATE FIRST SURGICAL PROCEDURE",170)=""
^DD(165.5,"B","DATE LAST CONTACT",200)=""
^DD(165.5,"B","DATE OF 1ST POSITIVE BIOPSY",137)=""
^DD(165.5,"B","DATE OF BARIUM ENEMA",182.1)=""
^DD(165.5,"B","DATE OF BLOOD IN SPUTUM PER PT",174.1)=""
^DD(165.5,"B","DATE OF BRONCHOSCOPY",177.1)=""
^DD(165.5,"B","DATE OF CANCER CONF",121)=""
^DD(165.5,"B","DATE OF CHANGE IN BOWEL HABITS",180.1)=""
^DD(165.5,"B","DATE OF CHEST X-RAY",175.1)=""
^DD(165.5,"B","DATE OF COLONOSCOPY",185.1)=""
^DD(165.5,"B","DATE OF CONCLUSIVE DX",193)=""
^DD(165.5,"B","DATE OF CT OF ABDOMEN/PELVIS",184.1)=""
^DD(165.5,"B","DATE OF CT SCAN",176.1)=""
^DD(165.5,"B","DATE OF DYSPNEA",186.1)=""
^DD(165.5,"B","DATE OF FEVER",188.1)=""
^DD(165.5,"B","DATE OF FIRST CONTACT",155)=""
^DD(165.5,"B","DATE OF FIRST RECURRENCE",70)=""
^DD(165.5,"B","DATE OF FIRST SYMPTOMS",171)=""
^DD(165.5,"B","DATE OF FIRST SYMPTOMS",1306)=""
^DD(165.5,"B","DATE OF FOBT",181.1)=""
^DD(165.5,"B","DATE OF INCREASED COUGH",187.1)=""
^DD(165.5,"B","DATE OF INPATIENT ADMISSION",1)=""
^DD(165.5,"B","DATE OF INPATIENT DISCHARGE",1.1)=""
^DD(165.5,"B","DATE OF MEDIASTINOSCOPY",178.1)=""
^DD(165.5,"B","DATE OF MULTIPLE TUMORS",195)=""
^DD(165.5,"B","DATE OF NIGHT SWEATS",189.1)=""
^DD(165.5,"B","DATE OF NO TREATMENT",124)=""
^DD(165.5,"B","DATE OF ORCHIECTOMY",699.1)=""
^DD(165.5,"B","DATE OF PATHOLOGIC DIAGNOSIS",1307)=""
^DD(165.5,"B","DATE OF PATHOLOGIC DX (BR98)",929)=""
^DD(165.5,"B","DATE OF PET SCAN",179.1)=""
^DD(165.5,"B","DATE OF PROGRESSION",1368)=""
^DD(165.5,"B","DATE OF SIGMOIDOSCOPY",183.1)=""
^DD(165.5,"B","DATE OF SURGICAL DISCHARGE",435)=""
^DD(165.5,"B","DATE RADIATION ENDED",361)=""
^DD(165.5,"B","DATE RADIATION STARTED",51)=""
^DD(165.5,"B","DATE START OF WORKUP ORDERED",172)=""
^DD(165.5,"B","DATE SYSTEMIC THERAPY STARTED",152)=""
^DD(165.5,"B","DATE WORKUP STARTED",173)=""
^DD(165.5,"B","DAUGHTER (BR98)",900)=""
^DD(165.5,"B","DCSI ALSO PRESENT (BR98)",930)=""
^DD(165.5,"B","DEATH W/I 30 DAYS START TX",1072)=""
^DD(165.5,"B","DECREASE IN SENSATION/ANY SITE",1260)=""
^DD(165.5,"B","DECREASED HEARING",1232)=""
^DD(165.5,"B","DEEP TENDON REFLEXES/LOWER EXT",1270)=""
^DD(165.5,"B","DEEP TENDON REFLEXES/UPPER EXT",1269)=""
^DD(165.5,"B","DEEP VENOUS THROMBOSIS",353)=""
^DD(165.5,"B","DEFINITIVE DIAGNOSIS",1055)=""
^DD(165.5,"B","DEHYDRATION",774)=""
^DD(165.5,"B","DEPRESSION",1227)=""
^DD(165.5,"B","DEPTH OF TUMOR",523)=""
^DD(165.5,"B","DERIVED AJCC M",164)=""
^DD(165.5,"B","DERIVED AJCC M DESCRIPTOR",165)=""
^DD(165.5,"B","DERIVED AJCC N",162)=""
^DD(165.5,"B","DERIVED AJCC N DESCRIPTOR",163)=""
^DD(165.5,"B","DERIVED AJCC STAGE GROUP",166)=""
^DD(165.5,"B","DERIVED AJCC T",160)=""
^DD(165.5,"B","DERIVED AJCC T DESCRIPTOR",161)=""
^DD(165.5,"B","DERIVED SS1977",167)=""
^DD(165.5,"B","DERIVED SS2000",168)=""
^DD(165.5,"B","DERMAL/LYMPHATIC INV (BR98)",936)=""
^DD(165.5,"B","DIABETES",1203)=""
^DD(165.5,"B","DIAGNOSIS EPISODE CARE",3.1)=""
^DD(165.5,"B","DIAGNOSTIC CONFIRMATION",26)=""
^DD(165.5,"B","DIAGNOSTIC MAMMOGRAM (BR98)",922)=""
^DD(165.5,"B","DIAGNOSTIC MAMMOGRAM DT (BR98)",923)=""
^DD(165.5,"B","DIARRHEA",775)=""
^DD(165.5,"B","DIFFICULTY IN COORD/BALANCE",1237)=""
^DD(165.5,"B","DIFFUSE RETINAL INVOLVEMENT",69.2)=""
^DD(165.5,"B","DIGITAL RECTAL EXAM",743)=""
^DD(165.5,"B","DIGITAL TRANSRECTAL BIO (PR98)",664)=""
^DD(165.5,"B","DISEASE PRESENTATION LOCATION",1108)=""
^DD(165.5,"B","DIST TO CLOSEST MUCOSAL MARGIN",757)=""
^DD(165.5,"B","DIST TO CLOSEST RADIAL MARGIN",758)=""
^DD(165.5,"B","DISTAL MARGIN OF RESECTION",755)=""
^DD(165.5,"B","DISTANCE TO CLOSEST MARGIN",1058)=""
^DD(165.5,"B","DISTANT METASTATIC SITES",636)=""
^DD(165.5,"B","DISTANT SITE 1",71.1)=""
^DD(165.5,"B","DISTANT SITE 2",71.2)=""
^DD(165.5,"B","DISTANT SITE 3",71.3)=""
^DD(165.5,"B","DIVISION",2000)=""
^DD(165.5,"B","DNA INDEX/PLOIDY (BR98)",937)=""
^DD(165.5,"B","DOUBLE VISION",1230)=""
^DD(165.5,"B","DOXORUBICIN (NHL)",869)=""
^DD(165.5,"B","DOXORUBICIN (STS)",545)=""
^DD(165.5,"B","DOXORUBICIN LOCATION",556)=""
^DD(165.5,"B","DOXORUBICIN METHOD OF DELIVERY",550)=""
^DD(165.5,"B","DRE +/-",102)=""
^DD(165.5,"B","DRE DATE",156)=""
^DD(165.5,"B","DTIC",544)=""
^DD(165.5,"B","DTIC LOCATION",555)=""
^DD(165.5,"B","DTIC METHOD OF DELIVERY",549)=""
^DD(165.5,"B","DURATION OF ADJUVANT THERAPY",794)=""
^DD(165.5,"B","DURATION OF ANEMIA",716)=""
^DD(165.5,"B","DURATION OF BLOOD IN STOOL",722)=""
^DD(165.5,"B","DURATION OF BOWEL HABIT CHANGE",718)=""
^DD(165.5,"B","DURATION OF BOWEL OBSTRUCTION",717)=""
^DD(165.5,"B","DURATION OF DYSURIA",325)=""
^DD(165.5,"B","DURATION OF EMERGENCY PRES-OBS",719)=""
^DD(165.5,"B","DURATION OF GROSS HEMATURIA",324)=""
^DD(165.5,"B","DURATION OF JAUNDICE",720)=""
^DD(165.5,"B","DURATION OF MALAISE",721)=""
^DD(165.5,"B","DURATION OF OTHER",726)=""
^DD(165.5,"B","DURATION OF PAIN (ABDOMINAL)",723)=""
^DD(165.5,"B","DURATION OF PAIN (PELVIC)",724)=""
^DD(165.5,"B","DURATION OF RECTAL BLEEDING",725)=""
^DD(165.5,"B","DURATION OF SMOKE FREE HISTORY",316)=""
^DD(165.5,"B","DURATION OF SMOKING HISTORY",315)=""
^DD(165.5,"B","DVT (DEEP VENOUS THROMBOSIS)",1334)=""
^DD(165.5,"B","DX AGE-GP",4.1)=""
^DD(165.5,"B","DX FACILITY",5)=""
^DD(165.5,"B","DYSMETRIA",1265)=""
^DD(165.5,"B","DYSPHAGIA",408)=""
^DD(165.5,"B","DYSPNEA",186)=""
^DD(165.5,"B","DYSURIA",321)=""
^DD(165.5,"B","EARLY BOWEL OBSTRUCTION",776)=""
^DD(165.5,"B","EDITS CHECKSUM",197)=""
^DD(165.5,"B","ELAPSED DAYS TO COMPLETION",157)=""
^DD(165.5,"B","ELECTROENCEPHALOGRAPHY (EEG)",1277)=""
^DD(165.5,"B","ELECTRON MICROSCOPY",515)=""
^DD(165.5,"B","ENDOCAVITARY RADIATION (ECRT)",784)=""
^DD(165.5,"B","ENDOSCOPIC METHOD",727)=""
^DD(165.5,"B","ESTROGEN REPLACEMENT",1001)=""
^DD(165.5,"B","ESTROGENS",643)=""
^DD(165.5,"B","ETOPOSIDE",546)=""
^DD(165.5,"B","ETOPOSIDE LOCATION",557)=""
^DD(165.5,"B","ETOPOSIDE METHOD OF DELIVERY",551)=""
^DD(165.5,"B","EXCISIONAL BIOPSY",531)=""
^DD(165.5,"B","EXOGENOUS HORMONES",1107)=""
^DD(165.5,"B","EXTENSION",30)=""
^DD(165.5,"B","EXTENSION (CS)",30.2)=""
^DD(165.5,"B","EXTENSION LIST USED",29.9)=""
^DD(165.5,"B","EXTENT OF SURGICAL RESECTION",1327)=""
^DD(165.5,"B","EXTERNAL BEAM RAD FRACTIONS",533)=""
^DD(165.5,"B","EXTERNAL BEAM RADIATION",532)=""
^DD(165.5,"B","EXTERNAL BEAM RADIATION ENERGY",534)=""
^DD(165.5,"B","EXTERNAL RAD PLANNED/GIVEN",632)=""
^DD(165.5,"B","EXTRA-THYROIDAL EXTENSION",432)=""
^DD(165.5,"B","EXTRAMURAL VENOUS INVASION",760)=""
^DD(165.5,"B","EXTRANODAL EXTENSION",1110)=""
^DD(165.5,"B","EXTRANODAL SITE 1",852)=""
^DD(165.5,"B","EXTRANODAL SITE 2",853)=""
^DD(165.5,"B","EXTRANODAL SITE 3",854)=""
^DD(165.5,"B","EXTRANODAL SITE SURGICAL PROC",856)=""
^DD(165.5,"B","EXTRANODAL SITE W/C-D SURGERY",855)=""
^DD(165.5,"B","EYE MOVEMENTS (EOM)",1251)=""
^DD(165.5,"B","FACIAL MOVEMENT",1253)=""
^DD(165.5,"B","FACIAL SENSATION",1252)=""
^DD(165.5,"B","FACILITY REFERRED FROM",6)=""
^DD(165.5,"B","FACILITY REFERRED TO",7)=""
^DD(165.5,"B","FAM HIST OF PROSTATE CA (PR98)",657)=""
^DD(165.5,"B","FAM HISTORY BREAST CA (BR98)",908)=""
^DD(165.5,"B","FAMILIAL ADENOMATOUS POLYPS",711)=""
^DD(165.5,"B","FAMILY HISTORY",69.1)=""
^DD(165.5,"B","FATHER (BR98)",906)=""
^DD(165.5,"B","FATIGUE",1224)=""
^DD(165.5,"B","FATIGUE",1343)=""
^DD(165.5,"B","FECAL OCCULT BLOOD TEST (FOBT)",181)=""
^DD(165.5,"B","FEVER",188)=""
^DD(165.5,"B","FINE NEEDLE ASPIRATION",528)=""
^DD(165.5,"B","FINGER TO FINGER NOSE TESTING",1267)=""
^DD(165.5,"B","FIRST COURSE OF TREATMENT DATE",49)=""
^DD(165.5,"B","FIRST DETECTED BY",144)=""
^DD(165.5,"B","FIRST SITE CODE",1102)=""
^DD(165.5,"B","FIRST SITE DIAGNOSIS DATE",1103)=""
^DD(165.5,"B","FLEXIBLE SIGMOIDOSCOPY",744)=""
^DD(165.5,"B","FLOW CYTOMETRY",329)=""
^DD(165.5,"B","FLUDARABINE",870)=""
^DD(165.5,"B","FOCAL SEIZURE",1239)=""
^DD(165.5,"B","FOLLOW-UP HISTORY",150)=""
^DD(165.5,"B","FOLLOWING PHYSICIAN",2.1)=""
^DD(165.5,"B","FRONTAL LOBE",1286)=""
^DD(165.5,"B","FU & LEUCOVORIN",1064)=""
^DD(165.5,"B","FUDR",1062)=""
^DD(165.5,"B","FUNCTIONAL MRI",1283)=""
^DD(165.5,"B","GAG REFLEX",1255)=""
^DD(165.5,"B","GALLIUM NITRATE",374)=""
^DD(165.5,"B","GALLIUM SCAN",828)=""
^DD(165.5,"B","GAS 5-HIAA",1551.1)=""
^DD(165.5,"B","GAS ABDOMINAL WALL",1559.5)=""
^DD(165.5,"B","GAS ACUTE HEMATEMESIS",1524)=""
^DD(165.5,"B","GAS ADHERENCE OF RESECTED PRIM",1556)=""
^DD(165.5,"B","GAS ADMIN OF INTERFERON",1570)=""
^DD(165.5,"B","GAS ADRENAL GLAND",1559.6)=""
^DD(165.5,"B","GAS ALCOHOL COMSUMPTION",1501)=""
^DD(165.5,"B","GAS ANASTOMATIC LEAK",1565)=""
^DD(165.5,"B","GAS ANN ARBOR STAGING",1555)=""
^DD(165.5,"B","GAS ANTIBIOTICS",1515)=""
^DD(165.5,"B","GAS ATROPHIC GASTRITIS",1513)=""
^DD(165.5,"B","GAS BARRET'S ESOPHAGUS",1512)=""
^DD(165.5,"B","GAS BETA2 MICROGLOBULIN",1543)=""
^DD(165.5,"B","GAS BIOPSY",1545.1)=""
^DD(165.5,"B","GAS BIPEDAL LYMPHANGIOGRAM",1534)=""
^DD(165.5,"B","GAS BISMUTH COMPOUNDS",1518)=""
^DD(165.5,"B","GAS BLEEDING",1565.2)=""
^DD(165.5,"B","GAS BOOST DOSE (cGy)",1575)=""
^DD(165.5,"B","GAS CA125",1551.3)=""
^DD(165.5,"B","GAS CA125 (U/ml)",1542)=""
^DD(165.5,"B","GAS CEA",1551.2)=""
^DD(165.5,"B","GAS CEA (ng/ml)",1541)=""
^DD(165.5,"B","GAS CELIAC LYMPH NODES",1560.2)=""
^DD(165.5,"B","GAS CHEMOTHERAPEUTIC AGENT #1",1576)=""
^DD(165.5,"B","GAS CHEMOTHERAPEUTIC AGENT #2",1576.1)=""
^DD(165.5,"B","GAS CHEMOTHERAPEUTIC AGENT #3",1576.2)=""
^DD(165.5,"B","GAS CHEMOTHERAPEUTIC TOXICITY",1577)=""
^DD(165.5,"B","GAS CHEMOTHERAPY/SURG SEQUENCE",1578)=""
^DD(165.5,"B","GAS CHEST X-RAY",1532)=""
^DD(165.5,"B","GAS CLINICAL/VISUAL EXAM",1545)=""
^DD(165.5,"B","GAS CO-MORBID CONDITION 1",1571)=""
^DD(165.5,"B","GAS CO-MORBID CONDITION 2",1571.1)=""
^DD(165.5,"B","GAS CO-MORBID CONDITION 3",1571.2)=""
^DD(165.5,"B","GAS CO-MORBID CONDITION 4",1571.3)=""
^DD(165.5,"B","GAS CO-MORBID CONDITION 5",1571.4)=""
^DD(165.5,"B","GAS CO-MORBID CONDITION 6",1571.5)=""
^DD(165.5,"B","GAS COMMON HEPATIC LYMPH NODES",1560.1)=""
^DD(165.5,"B","GAS COMPLICATION #1",1579)=""
^DD(165.5,"B","GAS COMPLICATION #2",1579.1)=""
^DD(165.5,"B","GAS COMPLICATION #3",1579.2)=""
^DD(165.5,"B","GAS COMPLICATION #4",1579.3)=""
^DD(165.5,"B","GAS COMPLICATION #5",1579.4)=""
^DD(165.5,"B","GAS CONCURRENT CHEMOTHERAPY",1568)=""
^DD(165.5,"B","GAS CT PELVIS",1531)=""
^DD(165.5,"B","GAS CT SCAN OF ABDOMEN",1529)=""
^DD(165.5,"B","GAS CT SCAN OF CHEST",1530)=""
^DD(165.5,"B","GAS DATE OF FIRST TISSUE DX",1548)=""
^DD(165.5,"B","GAS DATE OF SURGICAL DISCHARGE",1566)=""
^DD(165.5,"B","GAS DEAD BOWEL",1565.6)=""
^DD(165.5,"B","GAS DIAPHRAGM",1559.3)=""
^DD(165.5,"B","GAS DISTAL MARGIN",1558.1)=""
^DD(165.5,"B","GAS DUODENAL ULCER",1506)=""
^DD(165.5,"B","GAS DURATION OF TOBACCO USE",1572)=""
^DD(165.5,"B","GAS EARLY SATIETY",1528)=""
^DD(165.5,"B","GAS EUS",1538)=""
^DD(165.5,"B","GAS EXTRA-ABDOMINAL",1547.2)=""
^DD(165.5,"B","GAS FAMILY HIST OF GASTRIC CA",1504)=""
^DD(165.5,"B","GAS FEVER/NIGHT SWEATS",1523)=""
^DD(165.5,"B","GAS FLOW CYTOMETRY/FRESH TISS",1554)=""
^DD(165.5,"B","GAS GALLIUM SCAN",1533)=""
^DD(165.5,"B","GAS GASTRIC METAPLASIA",1514)=""
^DD(165.5,"B","GAS GASTRIC ULCER",1507)=""
^DD(165.5,"B","GAS GASTRIN",1551)=""
^DD(165.5,"B","GAS GASTRO-ESOPHAGEAL JUNCTION",1546)=""
^DD(165.5,"B","GAS GOSEKI'S CLASSIFICATION",1550)=""
^DD(165.5,"B","GAS GROSSLY INVOLVED REG LN",1561)=""
^DD(165.5,"B","GAS H-PYLORI INFECTION",1505)=""
^DD(165.5,"B","GAS H2 BLOCKER/PROTON PUMP",1503)=""
^DD(165.5,"B","GAS H2 BLOCKERS",1517)=""
^DD(165.5,"B","GAS HCT VAL BEFORE TRANSFUSION",1562)=""
^DD(165.5,"B","GAS HEARTBURN (BENIGN COND)",1508)=""
^DD(165.5,"B","GAS HEARTBURN (SYMPTOMS)",1522)=""
^DD(165.5,"B","GAS IMMUNOHISTOCHEM/FROZEN TIS",1554.1)=""
^DD(165.5,"B","GAS IMMUNOHISTOCHEM/PARAFFIN",1554.2)=""
^DD(165.5,"B","GAS INTRA-OPERATIVE RADIATION",1567)=""
^DD(165.5,"B","GAS INTRA/PERI-OPERATIVE DEATH",1564)=""
^DD(165.5,"B","GAS INTRAPERITONEAL CMX",1569)=""
^DD(165.5,"B","GAS KIDNEY",1559.7)=""
^DD(165.5,"B","GAS LAPAROSCOPY",1537)=""
^DD(165.5,"B","GAS LAUREN'S CLASSIFICATION",1549)=""
^DD(165.5,"B","GAS LDH (IU/L)",1540)=""
^DD(165.5,"B","GAS LIVER",1547.1)=""
^DD(165.5,"B","GAS LIVER",1559.2)=""
^DD(165.5,"B","GAS LYMPH NODES",1547.3)=""
^DD(165.5,"B","GAS MARGIN STAT OF RESECT PRIM",1557)=""
^DD(165.5,"B","GAS MELENA",1526)=""
^DD(165.5,"B","GAS MENOPAUSAL STATUS/HOR TX",1502)=""
^DD(165.5,"B","GAS MITOTIC RATE",1552)=""
^DD(165.5,"B","GAS MOLECULAR GENETICS",1554.3)=""
^DD(165.5,"B","GAS MRI",1535)=""
^DD(165.5,"B","GAS OTHER COMPLICATIONS",1565.7)=""
^DD(165.5,"B","GAS OTHER INTRA-ABDOMINAL NDES",1560.4)=""
^DD(165.5,"B","GAS OTHER MOLECULAR MARKER",1551.4)=""
^DD(165.5,"B","GAS PAIN",1527)=""
^DD(165.5,"B","GAS PANCREAS",1559.4)=""
^DD(165.5,"B","GAS PANCREATITIS",1565.5)=""
^DD(165.5,"B","GAS PERFORMANCE STATUS AT DX",1521)=""
^DD(165.5,"B","GAS PERIGASTRIC LYMPH NODES",1560)=""
^DD(165.5,"B","GAS PERITONEAL LAVAGE",1539)=""
^DD(165.5,"B","GAS PERITONEUM",1547.4)=""
^DD(165.5,"B","GAS PERNICIOUS ANEMIA",1509)=""
^DD(165.5,"B","GAS PERSONAL HIST OTH MALIG",1573)=""
^DD(165.5,"B","GAS PET SCAN",1536)=""
^DD(165.5,"B","GAS POLYMERASE CHAIN REACTION",1554.4)=""
^DD(165.5,"B","GAS POLYPOSIS OF BOWEL",1511)=""
^DD(165.5,"B","GAS POLYPS OF STOMACH",1510)=""
^DD(165.5,"B","GAS PRIOR EXPOSURE TO RAD",1500)=""
^DD(165.5,"B","GAS PRIOR INTRA-ABDOMINAL SURG",1519)=""
^DD(165.5,"B","GAS PROTON PUMP INHIBITORS",1516)=""
^DD(165.5,"B","GAS PROXIMAL MARGIN",1558)=""
^DD(165.5,"B","GAS RETROPERITONEUM",1559.9)=""
^DD(165.5,"B","GAS SEPSIS",1565.4)=""
^DD(165.5,"B","GAS SMALL INTESTINE",1559.8)=""
^DD(165.5,"B","GAS SOUTHERN BLOT TECHNIQUE",1554.5)=""
^DD(165.5,"B","GAS SPLEEN",1559)=""
^DD(165.5,"B","GAS SPLENIC LYMPH NODES",1560.3)=""
^DD(165.5,"B","GAS STOMACH",1547)=""
^DD(165.5,"B","GAS STUMP LEAK",1565.1)=""
^DD(165.5,"B","GAS TOTAL OPERATIVE BLOOD REPL",1563)=""
^DD(165.5,"B","GAS TRANSFUSIONS FOR BLD LOSS",1525)=""
^DD(165.5,"B","GAS TRANSVERSE COLON",1559.1)=""
^DD(165.5,"B","GAS TUMOR NECROSIS",1553)=""
^DD(165.5,"B","GAS URINARY 5-HIAA (mg/24hr)",1544)=""
^DD(165.5,"B","GAS WEIGHT LOSS",1574)=""
^DD(165.5,"B","GAS WOUND INFECTION",1565.3)=""
^DD(165.5,"B","GAS YEAR OF GASTRIC RESECTION",1520)=""
^DD(165.5,"B","GASTROINTESTINAL COMPLICATIONS",695)=""
^DD(165.5,"B","GASTROURINARY COMPLICATIONS",696)=""
^DD(165.5,"B","GEMCITABINE",1068)=""
^DD(165.5,"B","GENE REARRANGEMENTS",837)=""
^DD(165.5,"B","GENE THERAPY",1131)=""
^DD(165.5,"B","GENERALIZED SEIZURE",1238)=""
^DD(165.5,"B","GLEASON'S SCORE",623)=""
^DD(165.5,"B","GLEASON'S SCORE (50-70)",623.3)=""
^DD(165.5,"B","GOLD 198",628)=""
^DD(165.5,"B","GP-I AJCC SUMMARY STAGE",38.1)=""
^DD(165.5,"B","GP-II AJCC SUMMARY STAGE",38.2)=""
^DD(165.5,"B","GP-III AJCC SUMMARY STAGE",38.3)=""
^DD(165.5,"B","GP-IV AJCC SUMMARY STAGE",38.4)=""
^DD(165.5,"B","GRADE/DIFF/CELL TYPE",24)=""
^DD(165.5,"B","GROSS HEMATURIA",317)=""
^DD(165.5,"B","GUIDANCE",142)=""
^DD(165.5,"B","HANDEDNESS",1200)=""
^DD(165.5,"B","HASHIMOTO'S THYROIDITIS",810)=""
^DD(165.5,"B","HEADACHE",1220)=""
^DD(165.5,"B","HEARING",1254)=""
^DD(165.5,"B","HEARING LOSS",1359)=""
^DD(165.5,"B","HEEL TO KNEE TO SHIN TESTING",1268)=""
^DD(165.5,"B","HEMA TRANS/ENDOCRINE PROC",153)=""
^DD(165.5,"B","HEMA TRANS/ENDOCRINE PROC DATE",153.1)=""
^DD(165.5,"B","HEMATURIA",365)=""
^DD(165.5,"B","HEMATURIA (PR98)",658)=""
^DD(165.5,"B","HEMOCHROMATOSIS",1011)=""
^DD(165.5,"B","HEMOGLOBIN/HEMATOCRIT",831)=""
^DD(165.5,"B","HEMORRHAGE AT OPERATIVE SITE",1331)=""
^DD(165.5,"B","HEPATITIS B",1009)=""
^DD(165.5,"B","HEPATITIS C",1010)=""
^DD(165.5,"B","HIGH DOSE SYSTEMIC CHEMO",878)=""
^DD(165.5,"B","HISTO-MORPHOLOGY",27)=""
^DD(165.5,"B","HISTOLOGY (ICD-O-2)",22)=""
^DD(165.5,"B","HISTOLOGY (ICD-O-3)",22.3)=""
^DD(165.5,"B","HISTORY OF ANY CANCER (PT)",501)=""
^DD(165.5,"B","HISTORY OF BLADDER CA (FAM)",309)=""
^DD(165.5,"B","HISTORY OF BLADDER CA (PT)",304)=""
^DD(165.5,"B","HISTORY OF BREAST CA (BR98)",909)=""
^DD(165.5,"B","HISTORY OF BREAST CA (PT)",703)=""
^DD(165.5,"B","HISTORY OF CERVIX CA (PT)",302)=""
^DD(165.5,"B","HISTORY OF CHILDHOOD MALIG",402)=""
^DD(165.5,"B","HISTORY OF COLON CA (FAM)",310)=""
^DD(165.5,"B","HISTORY OF COLON CA (PT)",303)=""
^DD(165.5,"B","HISTORY OF COLORECTAL CA (FAM)",700)=""
^DD(165.5,"B","HISTORY OF COLORECTAL CA (PT)",701)=""
^DD(165.5,"B","HISTORY OF GOITER (FAM)",405)=""
^DD(165.5,"B","HISTORY OF GOITER (PT)",404)=""
^DD(165.5,"B","HISTORY OF GRAVES DISEASE (PT)",406)=""
^DD(165.5,"B","HISTORY OF HEAD & NECK CA (PT)",305)=""
^DD(165.5,"B","HISTORY OF HODGKIN'S LYMPHOMA",802)=""
^DD(165.5,"B","HISTORY OF KIDNEY CA (PT)",306)=""
^DD(165.5,"B","HISTORY OF LEUKEMIA (FAM)",800)=""
^DD(165.5,"B","HISTORY OF LUNG CA (FAM)",311)=""
^DD(165.5,"B","HISTORY OF LUNG CA (PT)",704)=""
^DD(165.5,"B","HISTORY OF LYMPHOMA (PT)",401)=""
^DD(165.5,"B","HISTORY OF MELANOMA (PT)",1100)=""
^DD(165.5,"B","HISTORY OF NON-HODGKIN'S LYMPH",801)=""
^DD(165.5,"B","HISTORY OF OTHER CA (FAM)",313)=""
^DD(165.5,"B","HISTORY OF OTHER CA (PT)",308)=""
^DD(165.5,"B","HISTORY OF OTHER CANCER (PT)",1101)=""
^DD(165.5,"B","HISTORY OF OVARIAN CA (PT)",705)=""
^DD(165.5,"B","HISTORY OF OVARIAN CARCINOMA",706)=""
^DD(165.5,"B","HISTORY OF PROSTATE CA (FAM)",312)=""
^DD(165.5,"B","HISTORY OF PROSTATE CA (PT)",307)=""
^DD(165.5,"B","HISTORY OF SOFT TIS SARC (FAM)",500)=""
^DD(165.5,"B","HISTORY OF STOMACH CA (PT)",707)=""
^DD(165.5,"B","HISTORY OF THYROID CA (FAM)",400)=""
^DD(165.5,"B","HISTORY OF THYROID CA (PT)",708)=""
^DD(165.5,"B","HISTORY OF THYROIDITIS (PT)",407)=""
^DD(165.5,"B","HISTORY OF UTERUS CA (PT)",709)=""
^DD(165.5,"B","HIV POSITIVE",808)=""
^DD(165.5,"B","HIV VIRAL LOADS",845)=""
^DD(165.5,"B","HNPCC",712)=""
^DD(165.5,"B","HOARSENESS OR VOICE CHANGE",409)=""
^DD(165.5,"B","HOFFMAN REFLEX",1272)=""
^DD(165.5,"B","HORMONE REPLACEMENT TPY (BR98)",916)=""
^DD(165.5,"B","HORMONE REPLACEMENT YRS (BR98)",917)=""
^DD(165.5,"B","HORMONE THERAPY",54.2)=""
^DD(165.5,"B","HORMONE THERAPY @FAC",54.3)=""
^DD(165.5,"B","HORMONE THERAPY @FAC DATE",54.4)=""
^DD(165.5,"B","HORMONE THERAPY DATE",54)=""
^DD(165.5,"B","HORMONE THERAPY HOSPITAL",54.1)=""
^DD(165.5,"B","HORMONE THERAPY PLANNED/GIVEN",642)=""
^DD(165.5,"B","HYDROXYUREA",1349)=""
^DD(165.5,"B","HYDROXYUREA (SUB TX)",1379)=""
^DD(165.5,"B","HYPERTENSION",1201)=""
^DD(165.5,"B","HYPOCALCEMIA",438)=""
^DD(165.5,"B","ICDO HISTOLOGY-CODE",22.1)=""
^DD(165.5,"B","ICDO-SITE",.022)=""
^DD(165.5,"B","IFOSFAMIDE",375)=""
^DD(165.5,"B","IFOSFAMIDE LOCATION",558)=""
^DD(165.5,"B","IFOSFAMIDE METHOD OF DELIVERY",552)=""
^DD(165.5,"B","IMMUNOHISTOCHEMISTRY",516)=""
^DD(165.5,"B","IMMUNOTHERAPY",55.2)=""
^DD(165.5,"B","IMMUNOTHERAPY @FAC",55.3)=""
^DD(165.5,"B","IMMUNOTHERAPY @FAC DATE",55.4)=""
^DD(165.5,"B","IMMUNOTHERAPY DATE",55)=""
^DD(165.5,"B","IMMUNOTHERAPY HOSPITAL",55.1)=""
^DD(165.5,"B","IN SITU HYBRIDIZATION",517)=""
^DD(165.5,"B","INCIDENTAL FIND IN TURP (PR98)",665)=""
^DD(165.5,"B","INCIDENTAL FINDING IN TURP",603)=""
^DD(165.5,"B","INCISIONAL BIOPSY (STS PCE)",530)=""
^DD(165.5,"B","INCISIONAL BIOPSY OF THYROID",422)=""
^DD(165.5,"B","INCREASED COUGH",187)=""
^DD(165.5,"B","INCREMENTAL CT-BILOBAR DIS",1037)=""
^DD(165.5,"B","INCREMENTAL CT-CIRRHOSIS",1035)=""
^DD(165.5,"B","INCREMENTAL CT-LYMPH NODES",1038)=""
^DD(165.5,"B","INCREMENTAL CT-NUM 0F TUMORS",1040)=""
^DD(165.5,"B","INCREMENTAL CT-PERFORMED",1034)=""
^DD(165.5,"B","INCREMENTAL CT-SIZE OF TUMOR",1039)=""
^DD(165.5,"B","INCREMENTAL CT-VASCULAR INV",1036)=""
^DD(165.5,"B","INDICATION FOR ADMIN OF AGENTS",381)=""
^DD(165.5,"B","INFECTION",1360)=""
^DD(165.5,"B","INFECTION(S)",1333)=""
^DD(165.5,"B","INFLAMMATORY BOWEL DISEASE",713)=""
^DD(165.5,"B","INFRA/SUPRA",21.5)=""
^DD(165.5,"B","INITIAL DOSE OF RADIOIODINE",444)=""
^DD(165.5,"B","INPATIENT/OUTPATIENT STATUS",123)=""
^DD(165.5,"B","INTENT OF RADIATION",127)=""
^DD(165.5,"B","INTERFERON",384)=""
^DD(165.5,"B","INTERFERON (NHL)",881)=""
^DD(165.5,"B","INTERFERON (SUB TX)",1390)=""
^DD(165.5,"B","INTERLEUKIN-2",385)=""
^DD(165.5,"B","INTERLEUKIN-2 (IL-2) (NHL)",882)=""
^DD(165.5,"B","INTERSTITIAL RAD PLANNED/GIVEN",626)=""
^DD(165.5,"B","INTERSTITIAL RAD/BRACHYTHERAPY",1338)=""
^DD(165.5,"B","INTRA-OPERATIVE RAD THERAPY",785)=""
^DD(165.5,"B","INTRAOPERATIVE RADIATION",535)=""
^DD(165.5,"B","INTRAOPERATIVE RADIATION DOSE",536)=""
^DD(165.5,"B","INTRAOPERATIVE RADIATION ENER",537)=""
^DD(165.5,"B","INTRATHECAL CHEMOTHERAPY",879)=""
^DD(165.5,"B","INTRAVENOUS PYELOGRAM (BLA)",330)=""
^DD(165.5,"B","INTRAVENOUS PYELOGRAM (COL)",745)=""
^DD(165.5,"B","INTRAVENOUS PYELOGRAM (PR98)",677)=""
^DD(165.5,"B","INTRAVENOUS PYELOGRAM (PRO)",616)=""
^DD(165.5,"B","INTRAVENOUS THERAPY",1130)=""
^DD(165.5,"B","IODINE 125",627)=""
^DD(165.5,"B","IRIDIUM 192",630)=""
^DD(165.5,"B","IRINOTECAN (CPT-11)",1065)=""
^DD(165.5,"B","IRIS/CILIARY BODY",21.51)=""
^DD(165.5,"B","ISOTOPE BRAIN SCAN",1278)=""
^DD(165.5,"B","KARNOFSKY'S RATING @ DIS/TRANS",1367)=""
^DD(165.5,"B","KARNOFSKY'S RATING PRIOR TO TX",1311)=""
^DD(165.5,"B","KARNOFSKY'S RATING RECURRENCE",1371)=""
^DD(165.5,"B","KOWDEN DISEASE",1218)=""
^DD(165.5,"B","LACK OF CONCENTRATION",1229)=""
^DD(165.5,"B","LACTIC DEHYDROGENASE (LDH)",834)=""
^DD(165.5,"B","LAMINECTOMY W/O RESECT W DURA",1323)=""
^DD(165.5,"B","LAMINECTOMY W/O RESECT/DURA",1322)=""
^DD(165.5,"B","LAPAROSCOPIC (PR98)",687)=""
^DD(165.5,"B","LAPAROSCOPY USED DURING CDS",764)=""
^DD(165.5,"B","LARYNGOSCOPY",423)=""
^DD(165.5,"B","LAST TUMOR STATUS",95)=""
^DD(165.5,"B","LATERALITY",28)=""
^DD(165.5,"B","LDH (U/I)",1019)=""
^DD(165.5,"B","LEFT",1302)=""
^DD(165.5,"B","LENGTH OF STAY",301)=""
^DD(165.5,"B","LENGTH OF STAY (PR98)",686)=""
^DD(165.5,"B","LESSER PATTERN (02-40)",623.2)=""
^DD(165.5,"B","LESSER PATTERN (50-70)",623.5)=""
^DD(165.5,"B","LETHARGY",651)=""
^DD(165.5,"B","LEUCOVORIN",790)=""
^DD(165.5,"B","LEUKEMIA",1210)=""
^DD(165.5,"B","LEVAMISOLE",791)=""
^DD(165.5,"B","LEVEL OF RECTAL TUMOR",753)=""
^DD(165.5,"B","LI-FRAUMENI SYNDROME",1217)=""
^DD(165.5,"B","LIVER FUNCTION STUDIES (NHL)",835)=""
^DD(165.5,"B","LIVER FUNCTION STUDIES (STS)",508)=""
^DD(165.5,"B","LIVER SCAN",617)=""
^DD(165.5,"B","LNG BONE SCAN",1409)=""
^DD(165.5,"B","LNG BOOST DOSE (cGy)",1422)=""
^DD(165.5,"B","LNG BRONCHOSCOPY",1405.2)=""
^DD(165.5,"B","LNG BRONCHOSCOPY PRE-THERAPY",1406.1)=""
^DD(165.5,"B","LNG CASE ABSTRACTOR INITIALS",1427)=""
^DD(165.5,"B","LNG CHEMOTHERAPEUTIC AGENT #1",1423)=""
^DD(165.5,"B","LNG CHEMOTHERAPEUTIC AGENT #2",1423.1)=""
^DD(165.5,"B","LNG CHEMOTHERAPEUTIC AGENT #3",1423.2)=""
^DD(165.5,"B","LNG CHEMOTHERAPEUTIC TOXICITY",1424)=""
^DD(165.5,"B","LNG CHEMOTHERAPY/SURG SEQUENCE",1425)=""
^DD(165.5,"B","LNG CHEST WALL INVASION",1418.3)=""
^DD(165.5,"B","LNG CHEST X-RAY",1405)=""
^DD(165.5,"B","LNG CO-MORBID CONDITION 1",1400)=""
^DD(165.5,"B","LNG CO-MORBID CONDITION 2",1400.1)=""
^DD(165.5,"B","LNG CO-MORBID CONDITION 3",1400.2)=""
^DD(165.5,"B","LNG CO-MORBID CONDITION 4",1400.3)=""
^DD(165.5,"B","LNG CO-MORBID CONDITION 5",1400.4)=""
^DD(165.5,"B","LNG CO-MORBID CONDITION 6",1400.5)=""
^DD(165.5,"B","LNG CO-MORBID CONDITION Y/N",1400.6)=""
^DD(165.5,"B","LNG COMPLICATION #1",1426)=""
^DD(165.5,"B","LNG COMPLICATION #2",1426.1)=""
^DD(165.5,"B","LNG COMPLICATION #3",1426.2)=""
^DD(165.5,"B","LNG COMPLICATION #4",1426.3)=""
^DD(165.5,"B","LNG COMPLICATION #5",1426.4)=""
^DD(165.5,"B","LNG COUGH",1404)=""
^DD(165.5,"B","LNG CT SCAN",1405.1)=""
^DD(165.5,"B","LNG CT SCAN OF BRAIN",1411)=""
^DD(165.5,"B","LNG CT SCAN OF CHEST",1410)=""
^DD(165.5,"B","LNG DATE CASE WAS ABSTRACTED",1428)=""
^DD(165.5,"B","LNG DATE OF FIRST TISSUE DX",1402)=""
^DD(165.5,"B","LNG DISTAL MARGIN",1429.1)=""
^DD(165.5,"B","LNG DURATION OF TOBACCO USE",1401)=""
^DD(165.5,"B","LNG EMPHYSEMA (BONE SCAN)",1409.1)=""
^DD(165.5,"B","LNG EMPHYSEMA (BRAIN CT)",1411.1)=""
^DD(165.5,"B","LNG EMPHYSEMA (BRAIN MRI)",1413.1)=""
^DD(165.5,"B","LNG EMPHYSEMA (CHEST CT)",1410.1)=""
^DD(165.5,"B","LNG EMPHYSEMA (CHEST MRI)",1412.1)=""
^DD(165.5,"B","LNG EMPHYSEMA (CHEST XRAY)",1415.1)=""
^DD(165.5,"B","LNG EMPHYSEMA (PET SCAN)",1414.1)=""
^DD(165.5,"B","LNG FEV",1407.1)=""
^DD(165.5,"B","LNG FNAB",1406.2)=""
^DD(165.5,"B","LNG FROZEN SECTION",1417)=""
^DD(165.5,"B","LNG FVC",1407)=""
^DD(165.5,"B","LNG HCT VAL BEFORE TRANSFUSION",1430)=""
^DD(165.5,"B","LNG HEMOPTYSIS",1404.3)=""
^DD(165.5,"B","LNG HIGH MEDIASTINAL (PRE-OP)",1416)=""
^DD(165.5,"B","LNG HIGH MEDIASTINAL (SCOPE)",1419)=""
^DD(165.5,"B","LNG HISTORY AND PHYSICAL",1406)=""
^DD(165.5,"B","LNG LIVER FUNCTION TESTS",1408)=""
^DD(165.5,"B","LNG LOWER PARATRACH (PRE-OP)",1416.3)=""
^DD(165.5,"B","LNG LOWER PARATRACHEAL (SCOPE)",1419.3)=""
^DD(165.5,"B","LNG LYMPHATICS INVASION",1418.1)=""
^DD(165.5,"B","LNG MEDIASTINAL (CHEST XRAY)",1415.3)=""
^DD(165.5,"B","LNG MEDIASTINAL LN (BONE SCAN)",1409.3)=""
^DD(165.5,"B","LNG MEDIASTINAL LN (BRAIN CT)",1411.3)=""
^DD(165.5,"B","LNG MEDIASTINAL LN (BRAIN MRI)",1413.3)=""
^DD(165.5,"B","LNG MEDIASTINAL LN (CHEST CT)",1410.3)=""
^DD(165.5,"B","LNG MEDIASTINAL LN (CHEST MRI)",1412.3)=""
^DD(165.5,"B","LNG MEDIASTINAL LN (PET SCAN)",1414.3)=""
^DD(165.5,"B","LNG MEDIASTINOSCOPY",1406.3)=""
^DD(165.5,"B","LNG METASTASIS (BONE SCAN)",1409.6)=""
^DD(165.5,"B","LNG METASTASIS (BRAIN CT)",1411.6)=""
^DD(165.5,"B","LNG METASTASIS (BRAIN MRI)",1413.6)=""
^DD(165.5,"B","LNG METASTASIS (CHEST CT)",1410.6)=""
^DD(165.5,"B","LNG METASTASIS (CHEST MRI)",1412.6)=""
^DD(165.5,"B","LNG METASTASIS (CHEST XRAY)",1415.6)=""
^DD(165.5,"B","LNG METASTASIS (PET SCAN)",1414.6)=""
^DD(165.5,"B","LNG MRI SCAN OF BRAIN",1413)=""
^DD(165.5,"B","LNG MRI SCAN OF CHEST",1412)=""
^DD(165.5,"B","LNG NUM OF TUMORS (BONE SCAN)",1409.5)=""
^DD(165.5,"B","LNG NUM OF TUMORS (BRAIN CT)",1411.5)=""
^DD(165.5,"B","LNG NUM OF TUMORS (BRAIN MRI)",1413.5)=""
^DD(165.5,"B","LNG NUM OF TUMORS (CHEST CT)",1410.5)=""
^DD(165.5,"B","LNG NUM OF TUMORS (CHEST MRI)",1412.5)=""
^DD(165.5,"B","LNG NUM OF TUMORS (CHEST XRAY)",1415.5)=""
^DD(165.5,"B","LNG NUM OF TUMORS (PET SCAN)",1414.5)=""
^DD(165.5,"B","LNG OTHER INVASION",1418.4)=""
^DD(165.5,"B","LNG PALPABLE LYMPH NODES",1404.4)=""
^DD(165.5,"B","LNG PARAESOPHAGEAL (PRE-OP)",1416.7)=""
^DD(165.5,"B","LNG PARAESOPHAGEAL (SCOPE)",1419.7)=""
^DD(165.5,"B","LNG PARAORTIC (PRE-OP)",1416.5)=""
^DD(165.5,"B","LNG PARAORTIC (SCOPE)",1419.5)=""
^DD(165.5,"B","LNG PERI-OPERATIVE BLOOD REP",1420)=""
^DD(165.5,"B","LNG PERI-OPERATIVE DEATH",1421)=""
^DD(165.5,"B","LNG PERSONAL HIST OTH MALIG",1403)=""
^DD(165.5,"B","LNG PET SCAN",1414)=""
^DD(165.5,"B","LNG PLEURA INVASION",1418.2)=""
^DD(165.5,"B","LNG PREVASC/RETRO (PRE-OP)",1416.2)=""
^DD(165.5,"B","LNG PREVASC/RETROTRACH (SCOPE)",1419.2)=""
^DD(165.5,"B","LNG PROXIMAL MARGIN",1429)=""
^DD(165.5,"B","LNG PULMONARY LIG (PRE-OP)",1416.8)=""
^DD(165.5,"B","LNG PULMONARY LIGAMENT (SCOPE)",1419.8)=""
^DD(165.5,"B","LNG SHORTNESS OF BREATH",1404.1)=""
^DD(165.5,"B","LNG SUBAORTIC (PRE-OP)",1416.4)=""
^DD(165.5,"B","LNG SUBAORTIC (SCOPE)",1419.4)=""
^DD(165.5,"B","LNG SUBCARINAL (PRE-OP)",1416.6)=""
^DD(165.5,"B","LNG SUBCARINAL (SCOPE)",1419.6)=""
^DD(165.5,"B","LNG THOROCOTOMY/OPEN BIOPSY",1406.4)=""
^DD(165.5,"B","LNG TREATMENT COMPLICATION Y/N",1426.5)=""
^DD(165.5,"B","LNG TUMOR SIZE (BONE SCAN)",1409.4)=""
^DD(165.5,"B","LNG TUMOR SIZE (BRAIN CT)",1411.4)=""
^DD(165.5,"B","LNG TUMOR SIZE (BRAIN MRI)",1413.4)=""
^DD(165.5,"B","LNG TUMOR SIZE (CHEST CT)",1410.4)=""
^DD(165.5,"B","LNG TUMOR SIZE (CHEST MRI)",1412.4)=""
^DD(165.5,"B","LNG TUMOR SIZE (CHEST XRAY)",1415.4)=""
^DD(165.5,"B","LNG TUMOR SIZE (PET SCAN)",1414.4)=""
^DD(165.5,"B","LNG UPPER PARATRACH (PRE-OP)",1416.1)=""
^DD(165.5,"B","LNG UPPER PARATRACHEAL (SCOPE)",1419.1)=""
^DD(165.5,"B","LNG VASCULAR INV (BONE SCAN)",1409.2)=""
^DD(165.5,"B","LNG VASCULAR INV (BRAIN CT)",1411.2)=""
^DD(165.5,"B","LNG VASCULAR INV (BRAIN MRI)",1413.2)=""
^DD(165.5,"B","LNG VASCULAR INV (CHEST CT)",1410.2)=""
^DD(165.5,"B","LNG VASCULAR INV (CHEST MRI)",1412.2)=""
^DD(165.5,"B","LNG VASCULAR INV (CHEST XRAY)",1415.2)=""
^DD(165.5,"B","LNG VASCULAR INV (PET SCAN)",1414.2)=""
^DD(165.5,"B","LNG VASCULAR INVASION",1418)=""
^DD(165.5,"B","LNG VATS",1406.5)=""
^DD(165.5,"B","LNG WEIGHT LOSS",1404.2)=""
^DD(165.5,"B","LNG X-RAY OF CHEST",1415)=""
^DD(165.5,"B","LOCATION OF IN-TRANSIT NODULES",1113)=""
^DD(165.5,"B","LOCATION OF POSITIVE NODES",434)=""
^DD(165.5,"B","LOCATION OF RADIATION TX",126)=""
^DD(165.5,"B","LOWER BACK PAIN (PR98)",659)=""
^DD(165.5,"B","LUMBAR PUNCTURE",830)=""
^DD(165.5,"B","LUTEINIZING HORMONES",646)=""
^DD(165.5,"B","LYMPH NODE BIOPSY",839)=""
^DD(165.5,"B","LYMPH NODE DISSECTION",1127)=""
^DD(165.5,"B","LYMPH NODE LIST USED",30.9)=""
^DD(165.5,"B","LYMPH NODES",31)=""
^DD(165.5,"B","LYMPH NODES (CS)",31.1)=""
^DD(165.5,"B","LYMPH NODES ABOVE DIAPHRAGM",857)=""
^DD(165.5,"B","LYMPH NODES BELOW DIAPHRAGM",858)=""
^DD(165.5,"B","LYMPHANGIOGRAM",509)=""
^DD(165.5,"B","LYMPHATIC VESSEL INVASION (L)",149)=""
^DD(165.5,"B","M-BACOD",875)=""
^DD(165.5,"B","MACOP-B",874)=""
^DD(165.5,"B","MAGNETIC RES SPECTROSCOPY",1285)=""
^DD(165.5,"B","MAGNIFICATION MAMM DT (BR98)",925)=""
^DD(165.5,"B","MAGNIFICATION MAMMOGRAM (BR98)",924)=""
^DD(165.5,"B","MALIGNANT MELANOMA",1208)=""
^DD(165.5,"B","MAMMOGRAM (BR98)",926)=""
^DD(165.5,"B","MANAGING PHYSICIAN",2.2)=""
^DD(165.5,"B","MANAGING PHYSICIAN (PRIMARY)",347)=""
^DD(165.5,"B","MANAGING PHYSICIAN (SECONDARY)",348)=""
^DD(165.5,"B","MARGIN DISTANCE (BR98)",949)=""
^DD(165.5,"B","MARGIN DISTANCE (MEL)",1120)=""
^DD(165.5,"B","MARITAL STATUS AT DX",11)=""
^DD(165.5,"B","MATERNAL AUNT (BR98)",901)=""
^DD(165.5,"B","MATERNAL GRANDMOTHER (BR98)",902)=""
^DD(165.5,"B","MEDIASTINOSCOPY",178)=""
^DD(165.5,"B","MEDICAL RECORD NUMBER",.08)=""
^DD(165.5,"B","MEMORY LOSS",1228)=""
^DD(165.5,"B","MEMORY OR JUDGEMENT",1248)=""
^DD(165.5,"B","METHOD OF ANASTOMOSIS",765)=""
^DD(165.5,"B","METHOD OF PATHOLOGIC EXAM",1126)=""
^DD(165.5,"B","METHOTREXATE",376)=""
^DD(165.5,"B","METHOTREXATE (SUB TX)",1380)=""
^DD(165.5,"B","METS AT DX (CS)",34.3)=""
^DD(165.5,"B","METS EVAL (CS)",34.4)=""
^DD(165.5,"B","MICROSATELLITOSIS",1111)=""
^DD(165.5,"B","MICROSCOPIC HEMATURIA",318)=""
^DD(165.5,"B","MICROSCOPIC STATUS (BR98)",951)=""
^DD(165.5,"B","MIDLINE",1304)=""
^DD(165.5,"B","MITOMYCIN C",1066)=""
^DD(165.5,"B","MOLECULAR MARKERS",1309)=""
^DD(165.5,"B","MONOCLONAL ANTIBODIES",883)=""
^DD(165.5,"B","MORE THAN ONE SISTER (BR98)",905)=""
^DD(165.5,"B","MOST DEFINITIVE MAMM (BR98)",928)=""
^DD(165.5,"B","MOST DEFINITIVE SURG @FAC DATE",50.3)=""
^DD(165.5,"B","MOST DEFINITIVE SURG DATE",50)=""
^DD(165.5,"B","MOTHER (BR98)",903)=""
^DD(165.5,"B","MRI (COL)",747)=""
^DD(165.5,"B","MRI (PR98)",678)=""
^DD(165.5,"B","MRI (PRO)",618)=""
^DD(165.5,"B","MRI OF ABDOMEN/PELVIS",827)=""
^DD(165.5,"B","MRI OF BRAIN",825)=""
^DD(165.5,"B","MRI OF BRAIN",1281)=""
^DD(165.5,"B","MRI OF CHEST",826)=""
^DD(165.5,"B","MRI OF NECK",427)=""
^DD(165.5,"B","MRI OF OTHER",511)=""
^DD(165.5,"B","MRI OF PRIMARY",510)=""
^DD(165.5,"B","MRI OF SPINE",1282)=""
^DD(165.5,"B","MRI OTHER",342)=""
^DD(165.5,"B","MRI PELVIS/ABDOMEN",341)=""
^DD(165.5,"B","MRI-BILOBAR DIS",1051)=""
^DD(165.5,"B","MRI-CIRRHOSIS",1049)=""
^DD(165.5,"B","MRI-LYMPH NODES",1052)=""
^DD(165.5,"B","MRI-NUM 0F TUMORS",1054)=""
^DD(165.5,"B","MRI-PERFORMED",1048)=""
^DD(165.5,"B","MRI-SIZE OF TUMOR",1053)=""
^DD(165.5,"B","MRI-VASCULAR INV",1050)=""
^DD(165.5,"B","MULT TUM RPT AS ONE PRIM",194)=""
^DD(165.5,"B","MULTIFOCAL",433)=""
^DD(165.5,"B","MULTIMODALITY THERAPY",69.4)=""
^DD(165.5,"B","MULTIMODALITY THERAPY (CLIN)",69.3)=""
^DD(165.5,"B","MULTIPLE COLORECTAL PRIMARIES",702)=""
^DD(165.5,"B","MULTIPLE SCLEROSIS (MS)",1202)=""
^DD(165.5,"B","MULTIPLE TUMORS",69)=""
^DD(165.5,"B","MULTIPLICITY COUNTER",196)=""
^DD(165.5,"B","MYCOBACTERIUM AVIUM",816)=""
^DD(165.5,"B","MYELOGRAPHY",1284)=""
^DD(165.5,"B","MYOCARDIAL INFARCTION (MI)",354)=""
^DD(165.5,"B","NAUSEA AND VOMITING",1361)=""
^DD(165.5,"B","NAUSEA OR VOMITING",1342)=""
^DD(165.5,"B","NAUSEA/VOMITING",1221)=""
^DD(165.5,"B","NECK NODAL MASS",410)=""
^DD(165.5,"B","NECK X-RAY (AP & LATERAL)",424)=""
^DD(165.5,"B","NEEDLE ASPIRATION BIOPSY",604)=""
^DD(165.5,"B","NEEDLE ASPIRATION OF NECK NODE",425)=""
^DD(165.5,"B","NEEDLE ASPIRATION OF THYROID",426)=""
^DD(165.5,"B","NEEDLE BIOPSY, NOS",605)=""
^DD(165.5,"B","NEEDLE BIOPSY, NOS (PR98)",666)=""
^DD(165.5,"B","NEUROFIBROMATOSIS",1213)=""
^DD(165.5,"B","NEUROLOGIC WORSENING",1344)=""
^DD(165.5,"B","NEVOID BASAL CELL CARCINOMA",1219)=""
^DD(165.5,"B","NIGHT SWEATS",189)=""
^DD(165.5,"B","NONE, NO NON-CA DIR SURGERY",1314)=""
^DD(165.5,"B","NUCLEAR GRADE (BR98)",932)=""
^DD(165.5,"B","NUMBER OF BASINS DISSECTED",1128)=""
^DD(165.5,"B","NUMBER OF BASINS POSITIVE",1129)=""
^DD(165.5,"B","NUMBER OF HOSPITALIZATIONS",565)=""
^DD(165.5,"B","NUMBER OF LN REMOVED (R)",140)=""
^DD(165.5,"B","NUMBER OF LN REMOVED @FAC (R)",140.1)=""
^DD(165.5,"B","NUMBER OF RADIATION TREATMENTS",787)=""
^DD(165.5,"B","NUMBER OF SATELLITE NODULES",1112)=""
^DD(165.5,"B","NUMBER OF TUMORS",1305)=""
^DD(165.5,"B","NUMBER OF TXS TO THIS VOLUME",56)=""
^DD(165.5,"B","NUMBNESS/TINGLING",1235)=""
^DD(165.5,"B","NUTRITIONAL CONSULTATION",796)=""
^DD(165.5,"B","OCCIPITAL LOBE",1289)=""
^DD(165.5,"B","OCCUPATIONAL THERAPY",797)=""
^DD(165.5,"B","ONE SISTER (BR98)",904)=""
^DD(165.5,"B","ONSET OF SYMPTOMS",323)=""
^DD(165.5,"B","OOPHORECTOMY",768)=""
^DD(165.5,"B","OPEN (PR98)",688)=""
^DD(165.5,"B","OPEN BRAIN BIOPSY",1320)=""
^DD(165.5,"B","OPEN BX OF SPINCAL CORD TUMOR",1321)=""
^DD(165.5,"B","OPPORTUNISTIC DISEASE",819)=""
^DD(165.5,"B","OPTIC NERVES",1290)=""
^DD(165.5,"B","ORAL CONTRACEPTIVES",1000)=""
^DD(165.5,"B","ORCHIECTOMY",647)=""
^DD(165.5,"B","ORGAN TRANSPLANT",807)=""
^DD(165.5,"B","OSTOMY CONSULTATION",798)=""
^DD(165.5,"B","OTHER (BR98)",915)=""
^DD(165.5,"B","OTHER ABNORMAL REFLEXES",1273)=""
^DD(165.5,"B","OTHER ADJUVANT THERAPY",793)=""
^DD(165.5,"B","OTHER CHEMO COMPLICATIONS",1366)=""
^DD(165.5,"B","OTHER CHEMOTHERAPEUTIC AGENTS",380)=""
^DD(165.5,"B","OTHER CHEMOTHERAPY (SUB TX)",1392)=""
^DD(165.5,"B","OTHER CLINICAL DETECTIONS",322)=""
^DD(165.5,"B","OTHER CONGENITAL DISEASES",818)=""
^DD(165.5,"B","OTHER DIAGNOSTIC INFORMATION",622)=""
^DD(165.5,"B","OTHER DIAGNOSTIC PROCEDURES",333)=""
^DD(165.5,"B","OTHER DIAGNOSTIC/SURGICAL TEST",430)=""
^DD(165.5,"B","OTHER EXOGENOUS HORMONE AGENTS",648)=""
^DD(165.5,"B","OTHER EXTERNAL SITES, NOS",637)=""
^DD(165.5,"B","OTHER EXTRANODAL SITE(S)",860)=""
^DD(165.5,"B","OTHER HORMONES",1003)=""
^DD(165.5,"B","OTHER INITIAL METHOD",731)=""
^DD(165.5,"B","OTHER INTERSTITIAL, NOS",631)=""
^DD(165.5,"B","OTHER M",99)=""
^DD(165.5,"B","OTHER METHOD OF DX (PROSTATE)",610)=""
^DD(165.5,"B","OTHER METHODS (1ST RECURRENCE)",655)=""
^DD(165.5,"B","OTHER N",98)=""
^DD(165.5,"B","OTHER PARASITIC INFECTIONS",817)=""
^DD(165.5,"B","OTHER PERSONAL HISTORY OF CA",1212)=""
^DD(165.5,"B","OTHER PRIMARY SITES",48)=""
^DD(165.5,"B","OTHER PROTOCOL",561)=""
^DD(165.5,"B","OTHER SIGNS/SYMPTOMS",417)=""
^DD(165.5,"B","OTHER SITE BIOPSY",842)=""
^DD(165.5,"B","OTHER SKIN CANCER",1209)=""
^DD(165.5,"B","OTHER SKULL",1296)=""
^DD(165.5,"B","OTHER STAGE GROUP",117)=""
^DD(165.5,"B","OTHER STAGING PROCEDURES",343)=""
^DD(165.5,"B","OTHER STAGING SYSTEM",39)=""
^DD(165.5,"B","OTHER SUBSEQUENT TREATMENT",1393)=""
^DD(165.5,"B","OTHER SURGICAL COMPLICATIONS",360)=""
^DD(165.5,"B","OTHER SYMPTOMS",1244)=""
^DD(165.5,"B","OTHER SYSTEMIC CHEMO AGENTS",877)=""
^DD(165.5,"B","OTHER T",93)=""
^DD(165.5,"B","OTHER TREATMENT",57.2)=""
^DD(165.5,"B","OTHER TREATMENT @FAC",57.3)=""
^DD(165.5,"B","OTHER TREATMENT @FACILITY DATE",57.4)=""
^DD(165.5,"B","OTHER TREATMENT HOSPITAL",57.1)=""
^DD(165.5,"B","OTHER TREATMENT START DATE",57)=""
^DD(165.5,"B","OTHER TUMOR LOC/INVOLVEMENT",1301)=""
^DD(165.5,"B","OTHER TYPE OF FIRST RECURRENCE",71.4)=""
^DD(165.5,"B","OTHER TYPE OF IMMUNOTHERAPY",386)=""
^DD(165.5,"B","OTHER VISUAL DISTURBANCE",1231)=""
^DD(165.5,"B","OUTSIDE CONFIRMATION REQUESTED",518)=""
^DD(165.5,"B","OVARY (BR98)",912)=""
^DD(165.5,"B","OVER-RIDE ACSN/CLASS/SEQ",222)=""
^DD(165.5,"B","OVER-RIDE AGE/SITE/MORPH",205)=""
^DD(165.5,"B","OVER-RIDE COC-SITE/TYPE",224)=""
^DD(165.5,"B","OVER-RIDE HISTOLOGY",210)=""
^DD(165.5,"B","OVER-RIDE HOSPSEQ/DXCONF",223)=""
^DD(165.5,"B","OVER-RIDE HOSPSEQ/SITE",225)=""
^DD(165.5,"B","OVER-RIDE ILL-DEFINE SITE",212)=""
^DD(165.5,"B","OVER-RIDE LEUK,LYMPHOMA",213)=""
^DD(165.5,"B","OVER-RIDE REPORT SOURCE",211)=""
^DD(165.5,"B","OVER-RIDE SEQNO/DXCONF",206)=""
^DD(165.5,"B","OVER-RIDE SITE/BEHAVIOR",214)=""
^DD(165.5,"B","OVER-RIDE SITE/EOD/DX DT",215)=""
^DD(165.5,"B","OVER-RIDE SITE/LAT/EOD",216)=""
^DD(165.5,"B","OVER-RIDE SITE/LAT/MORPH",217)=""
^DD(165.5,"B","OVER-RIDE SITE/LAT/SEQNO",207)=""
^DD(165.5,"B","OVER-RIDE SITE/TNM-STGGRP",226)=""
^DD(165.5,"B","OVER-RIDE SITE/TYPE",209)=""
^DD(165.5,"B","OVER-RIDE SS/DISMET1",221)=""
^DD(165.5,"B","OVER-RIDE SS/NODESPOS",218)=""
^DD(165.5,"B","OVER-RIDE SS/TNM-M",220)=""
^DD(165.5,"B","OVER-RIDE SS/TNM-N",219)=""
^DD(165.5,"B","OVER-RIDE SURG/DXCONF",208)=""
^DD(165.5,"B","OXALIPLATIN",1067)=""
^DD(165.5,"B","Other treatment hospital",57.1)="1"
^DD(165.5,"B","PAIN (OTHER THAN HEADACHE)",1242)=""
^DD(165.5,"B","PAIN ASSESSMENT",154)=""
^DD(165.5,"B","PAIN, BONE",411)=""
^DD(165.5,"B","PAIN, NECK",412)=""
^DD(165.5,"B","PALLADIUM 103",629)=""
^DD(165.5,"B","PALLIATIVE CARE",12)=""
^DD(165.5,"B","PALLIATIVE CARE @FAC",13)=""
^DD(165.5,"B","PALPABILITY OF PRIMARY",143)=""
^DD(165.5,"B","PAPILLARY/FOLLICULAR",22.2)=""
^DD(165.5,"B","PAPILLEDEMA",1258)=""
^DD(165.5,"B","PARIETAL LOBE",1288)=""
^DD(165.5,"B","PATHOLOGIC EXTENSION",30.1)=""
^DD(165.5,"B","PATHOLOGIC FRACTURE",413)=""
^DD(165.5,"B","PATHOLOGIC M",87)=""
^DD(165.5,"B","PATHOLOGIC N",86)=""
^DD(165.5,"B","PATHOLOGIC RISK FACTORS",135)=""
^DD(165.5,"B","PATHOLOGIC SIZE OF TUMOR",522)=""
^DD(165.5,"B","PATHOLOGIC T",85)=""
^DD(165.5,"B","PATHOLOGICAL STATUS",769)=""
^DD(165.5,"B","PATIENT ADDRESS AT DX",8)=""
^DD(165.5,"B","PATIENT ADDRESS AT DX - SUPP",8.2)=""
^DD(165.5,"B","PATIENT ID",.025)=""
^DD(165.5,"B","PATIENT NAME",.02)=""
^DD(165.5,"B","PATIENT REFERRED FOR TREATMENT",300)=""
^DD(165.5,"B","PATIENT STATUS AT DIAGNOSIS",848)=""
^DD(165.5,"B","PCE INDICATOR",84)=""
^DD(165.5,"B","PECTORAL INVOLVEMENT (BR98)",935)=""
^DD(165.5,"B","PEDIATRIC STAGE",850)=""
^DD(165.5,"B","PELVIC ABSCESS",355)=""
^DD(165.5,"B","PELVIC LYMPH ND DISSECT (PR98)",679)=""
^DD(165.5,"B","PELVIC LYMPH NODE DISSECT (BL)",351)=""
^DD(165.5,"B","PELVIC LYMPH NODE DISSECT (PR)",619)=""
^DD(165.5,"B","PERFORMANCE STATUS",45)=""
^DD(165.5,"B","PERINEAL BIOPSY",606)=""
^DD(165.5,"B","PERINEAL BIOPSY (PR98)",667)=""
^DD(165.5,"B","PERINEAL INFECTION",777)=""
^DD(165.5,"B","PERINEURAL INVASION",1117)=""
^DD(165.5,"B","PERIPHERAL BLOOD INVOLVEMENT",30.5)=""
^DD(165.5,"B","PERIPHERAL NEUROPATHY",1363)=""
^DD(165.5,"B","PERMANENT RECTAL INJURY (PR98)",689)=""
^DD(165.5,"B","PERSISTENT NEUROL WORSENING",1335)=""
^DD(165.5,"B","PERSONALITY",1247)=""
^DD(165.5,"B","PERSONALITY CHANGES",1226)=""
^DD(165.5,"B","PET SCAN",179)=""
^DD(165.5,"B","PET SCAN",829)=""
^DD(165.5,"B","PHYS PROVIDING DEF TREATMENT",762)=""
^DD(165.5,"B","PHYSICAL THERAPY/REHABILTATION",563)=""
^DD(165.5,"B","PHYSICIAN #3",2.3)=""
^DD(165.5,"B","PHYSICIAN #4",2.4)=""
^DD(165.5,"B","PHYSICIAN STAGING",66)=""
^DD(165.5,"B","PHYSICIAN'S STAGE",65)=""
^DD(165.5,"B","PID#",61)=""
^DD(165.5,"B","PINEAL GLAND",1292)=""
^DD(165.5,"B","PITUITARY GLAND",1291)=""
^DD(165.5,"B","PLACE OF BIRTH (STATE)",.093)=""
^DD(165.5,"B","PLATELET COUNT",833)=""
^DD(165.5,"B","PNEUMOCYSTIS CARINII",813)=""
^DD(165.5,"B","PNEUMONIA (COL)",778)=""
^DD(165.5,"B","PNEUMONIA REQ ANTIBIOTICS",356)=""
^DD(165.5,"B","POLYMERASE CHAIN REACT (PR98)",680)=""
^DD(165.5,"B","POLYPS",715)=""
^DD(165.5,"B","POSITRON EMISSION TOMOGRAPHY",1279)=""
^DD(165.5,"B","POST-OPERATIVE DEATH",357)=""
^DD(165.5,"B","POSTAL CODE AT DX",9)=""
^DD(165.5,"B","POSTOPERATIVE DEATH",441)=""
^DD(165.5,"B","PRE-OP LYMPHOSCINTIGRAPHY",1122)=""
^DD(165.5,"B","PRE-RADIATION MAMMOGRAM (BR98)",952)=""
^DD(165.5,"B","PREDOMINANT PATTERN (02-40)",623.1)=""
^DD(165.5,"B","PREDOMINANT PATTERN (50-70)",623.4)=""
^DD(165.5,"B","PREGNANCY AT INITIAL DIAGNOSIS",1106)=""
^DD(165.5,"B","PRESENCE OF HYDRONEPHROSIS",344)=""
^DD(165.5,"B","PRESENCE OF MULTIPLE TUMORS",345)=""
^DD(165.5,"B","PRESENTATION AT CANCER CONF",120)=""
^DD(165.5,"B","PREVIOUS CHEMOTHERAPY",820)=""
^DD(165.5,"B","PREVIOUS HISTORY OF CANCER",148)=""
^DD(165.5,"B","PREVIOUS RADIATION THERAPY",821)=""
^DD(165.5,"B","PREVIOUS TAH/BSO",710)=""
^DD(165.5,"B","PRIMARY PAYER AT DX",18)=""
^DD(165.5,"B","PRIMARY SITE",20)=""
^DD(165.5,"B","PRIMARY SITE CODE",20.1)=""
^DD(165.5,"B","PRIMARY SITE CODE PREFIX",.023)=""
^DD(165.5,"B","PRIMARY SITE/GP",.0101)=""
^DD(165.5,"B","PRIMARY SURGEON",2)=""
^DD(165.5,"B","PRIMARY TUMOR RAD DOSE (cGy)",786)=""
^DD(165.5,"B","PRIOR EXPOSURE TO RADIATION",403)=""
^DD(165.5,"B","PRIOR POLYPS",714)=""
^DD(165.5,"B","PRO-MACE-Cyta BOM",876)=""
^DD(165.5,"B","PROCARBAZINE",1346)=""
^DD(165.5,"B","PROCARBAZINE (SUB TX)",1376)=""
^DD(165.5,"B","PROCTITIS",779)=""
^DD(165.5,"B","PROCTOSCOPY (RIGID)",748)=""
^DD(165.5,"B","PROGESTATIONAL AGENTS",645)=""
^DD(165.5,"B","PROMINENT LYMPHOID INFILTRATE",761)=""
^DD(165.5,"B","PROSTATE",1207)=""
^DD(165.5,"B","PROSTATE & PELVIC PARA-AORTIC",635)=""
^DD(165.5,"B","PROSTATE (BR98)",914)=""
^DD(165.5,"B","PROSTATE AND PELVIC NODES",634)=""
^DD(165.5,"B","PROSTATE REGION ONLY",633)=""
^DD(165.5,"B","PROSTATE SPECIFIC ANTIGEN",621)=""
^DD(165.5,"B","PROSTATIC ACID PHOSPH (PR98)",681)=""
^DD(165.5,"B","PROSTATIC ACID PHOSPHATASE",620)=""
^DD(165.5,"B","PROTIME (sec)",1016)=""
^DD(165.5,"B","PROTOCOL",863)=""
^DD(165.5,"B","PROTOCOL ELIGIBILITY STATUS",346)=""
^DD(165.5,"B","PROTOCOL PARTICIPATION",560)=""
^DD(165.5,"B","PROTOCOL PARTICIPATION (CNS)",1312)=""
^DD(165.5,"B","PROTOCOL PARTICIPATION (SUBTX)",1373)=""
^DD(165.5,"B","PROTOCOL PHASE",1313)=""
^DD(165.5,"B","PROXIMAL MARGIN OF RESECTION",754)=""
^DD(165.5,"B","PSA",684)=""
^DD(165.5,"B","PSA DATE",96)=""
^DD(165.5,"B","PSA DIAGNOSTIC EVAL (PR98)",682)=""
^DD(165.5,"B","PSA METHOD OF DIAGNOSIS (PR98)",668)=""
^DD(165.5,"B","PSYCHOSOCIAL",799)=""
^DD(165.5,"B","PULMONARY EMBOLISM (COL)",780)=""
^DD(165.5,"B","PULMONARY EMBOLISM/THROMBOSIS",358)=""
^DD(165.5,"B","PULMONARY TOXICITY",1365)=""
^DD(165.5,"B","PURPOSE OF INTRATHECAL CHEMO",880)=""
^DD(165.5,"B","QA DATE",64)=""
^DD(165.5,"B","QA FINDINGS",64.2)=""
^DD(165.5,"B","QA REVIEW",63)=""
^DD(165.5,"B","QA REVIEWER",64.1)=""
^DD(165.5,"B","QA SELECTED",62)=""
^DD(165.5,"B","RACE",.12)=""
^DD(165.5,"B","RACE-SEX",.13)=""
^DD(165.5,"B","RAD THERAPY PLANNED/GIVEN",625)=""
^DD(165.5,"B","RADIAL MARGIN OF RESECTION",756)=""
^DD(165.5,"B","RADIATION",51.2)=""
^DD(165.5,"B","RADIATION @FACILITY",51.4)=""
^DD(165.5,"B","RADIATION @FACILITY DATE",51.5)=""
^DD(165.5,"B","RADIATION AUXILIARY DATE",130)=""
^DD(165.5,"B","RADIATION AUXILIARY TEXT",131)=""
^DD(165.5,"B","RADIATION AUXILIARY VOLUME",129)=""
^DD(165.5,"B","RADIATION BOWEL INJURY",366)=""
^DD(165.5,"B","RADIATION COMPLETION STATUS",128)=""
^DD(165.5,"B","RADIATION ENTERITIS",781)=""
^DD(165.5,"B","RADIATION FACILITY",692)=""
^DD(165.5,"B","RADIATION HOSPITAL",51.1)=""
^DD(165.5,"B","RADIATION LOCAL CONTROL STATUS",132)=""
^DD(165.5,"B","RADIATION THERAPY",1345)=""
^DD(165.5,"B","RADIATION THERAPY TO CNS",52.2)=""
^DD(165.5,"B","RADIATION THERAPY TO CNS DATE",52)=""
^DD(165.5,"B","RADIATION THERAPY TO CNS HOSP",52.1)=""
^DD(165.5,"B","RADIATION TREATMENT",80)=""
^DD(165.5,"B","RADIATION TREATMENT VOLUME",125)=""
^DD(165.5,"B","RADIATION/CHEMO SEQUENCE",862)=""
^DD(165.5,"B","RADIATION/SURGERY SEQUENCE",51.3)=""
^DD(165.5,"B","RADIO-FREQUENCY DESTRUCTION",1056)=""
^DD(165.5,"B","RADIOGRAPHIC METHOD",728)=""
^DD(165.5,"B","RAPID ALTERNATING MOVEMENTS",1266)=""
^DD(165.5,"B","RE-EXCISION (BR98)",950)=""
^DD(165.5,"B","READMISSION W/I 30 DAYS/SURG",14)=""
^DD(165.5,"B","REASON CHEMOTHERAPY STOPPED",382)=""
^DD(165.5,"B","REASON FOR 2ND COURSE",656)=""
^DD(165.5,"B","REASON FOR NO CHEMOTHERAPY",76)=""
^DD(165.5,"B","REASON FOR NO HORMONE THERAPY",77)=""
^DD(165.5,"B","REASON FOR NO RADIATION",75)=""
^DD(165.5,"B","REASON LEADING TO EVENTUAL DX",732)=""
^DD(165.5,"B","REASON NO SURGERY OF PRIMARY",58)=""
^DD(165.5,"B","RECONSTRUCTION/RESTORATION",23)=""
^DD(165.5,"B","RECTAL EXAM (1ST RECURRENCE)",652)=""
^DD(165.5,"B","RECURRENCE/PROGRESSION DOC",1370)=""
^DD(165.5,"B","RECURRENT NERVE INJURY",439)=""
^DD(165.5,"B","REFERRAL TO SUPPORT SERVICES",122)=""
^DD(165.5,"B","REFERRED TO REHAB SERVICES",562)=""
^DD(165.5,"B","REG NODES EVAL (CS)",32.1)=""
^DD(165.5,"B","REGIONAL DOSE: cGy",442)=""
^DD(165.5,"B","REGIONAL LYMPH NODES EXAMINED",33)=""
^DD(165.5,"B","REGIONAL LYMPH NODES POSITIVE",32)=""
^DD(165.5,"B","REGIONAL TREATMENT MODALITY",363)=""
^DD(165.5,"B","REGIONAL TX MODALITY CONV FLAG",993)=""
^DD(165.5,"B","RENAL FAILURE",1364)=""
^DD(165.5,"B","REOPERATION",359)=""
^DD(165.5,"B","REPORTING DATE",94)=""
^DD(165.5,"B","REPORTING HOSPITAL",.03)=""
^DD(165.5,"B","RESEARCH PROTOCOL",624)=""
^DD(165.5,"B","RESEARCH PROTOCOL (RADIATION)",641)=""
^DD(165.5,"B","RESECTION",1060)=""
^DD(165.5,"B","REVIEW OF PATHOLOGY/OTHER INST",838)=""
^DD(165.5,"B","REVIEWED BY CANCER COMMITTEE",82)=""
^DD(165.5,"B","RHEUMATOID ARTHRITIS",812)=""
^DD(165.5,"B","RIGHT",1303)=""
^DD(165.5,"B","ROUTE CHEMO ADMIN",1069)=""
^DD(165.5,"B","ROUTE CHEMOTHERAPY ADMIN",368)=""
^DD(165.5,"B","ROUTE OF INTERSTITIAL RAD",693)=""
^DD(165.5,"B","RX TEXT-BRM",114)=""
^DD(165.5,"B","RX TEXT-CHEMO",111)=""
^DD(165.5,"B","RX TEXT-HORMONE",112)=""
^DD(165.5,"B","RX TEXT-OTHER",115)=""
^DD(165.5,"B","RX TEXT-RADIATION",109)=""
^DD(165.5,"B","RX TEXT-RADIATION OTHER",110)=""
^DD(165.5,"B","RX TEXT-SURGERY",108)=""
^DD(165.5,"B","SCOPE OF LN SURGERY (F)",138.4)=""
^DD(165.5,"B","SCOPE OF LN SURGERY (R)",138)=""
^DD(165.5,"B","SCOPE OF LN SURGERY @FAC (F)",138.5)=""
^DD(165.5,"B","SCOPE OF LN SURGERY @FAC (R)",138.1)=""
^DD(165.5,"B","SCOPE OF LN SURGERY @FAC DATE",138.3)=""
^DD(165.5,"B","SCOPE OF LN SURGERY CONV FLAG",998)=""
^DD(165.5,"B","SCOPE OF LN SURGERY DATE",138.2)=""
^DD(165.5,"B","SCREENING DATE",79)=""
^DD(165.5,"B","SCREENING DIGITAL RECTAL EXAM",729)=""
^DD(165.5,"B","SCREENING MAMMOGRAM (BR98)",920)=""
^DD(165.5,"B","SCREENING MAMMOGRAM DT (BR98)",921)=""
^DD(165.5,"B","SCREENING PHYSICAL EXAM METHOD",730)=""
^DD(165.5,"B","SCREENING RESULT",119)=""
^DD(165.5,"B","SECOND DOSE OF RADIOIODINE",445)=""
^DD(165.5,"B","SECOND SITE CODE",1104)=""
^DD(165.5,"B","SECOND SITE DIAGNOSIS DATE",1105)=""
^DD(165.5,"B","SEER SUMMARY STAGE 2000",35)=""
^DD(165.5,"B","SEER SUMMARY STAGE ABBREVIATED",35.1)=""
^DD(165.5,"B","SEIZURE",1332)=""
^DD(165.5,"B","SELECTED SITES",.015)=""
^DD(165.5,"B","SENTINEL NODE BIOPSY",943)=""
^DD(165.5,"B","SENTINEL NODES DETECTED (BR98)",946)=""
^DD(165.5,"B","SENTINEL NODES DETECTED BY",1123)=""
^DD(165.5,"B","SENTINEL NODES EXAMINED (BR98)",944)=""
^DD(165.5,"B","SENTINEL NODES EXAMINED (MEL)",1124)=""
^DD(165.5,"B","SENTINEL NODES POSITIVE (BR98)",945)=""
^DD(165.5,"B","SENTINEL NODES POSITIVE (MEL)",1125)=""
^DD(165.5,"B","SEQUENCE NUMBER",.06)=""
^DD(165.5,"B","SERUM TUMOR MARKERS",136)=""
^DD(165.5,"B","SERUM-LIVER FUNCTION TEST",746)=""
^DD(165.5,"B","SEX",.1)=""
^DD(165.5,"B","SEX-RACE",.14)=""
^DD(165.5,"B","SIGMOIDOSCOPY",183)=""
^DD(165.5,"B","SITE OF DISTANT METASTASIS #1",34)=""
^DD(165.5,"B","SITE OF DISTANT METASTASIS #2",34.1)=""
^DD(165.5,"B","SITE OF DISTANT METASTASIS #3",34.2)=""
^DD(165.5,"B","SITE-SPECIFIC FACTOR 1 (CS)",44.1)=""
^DD(165.5,"B","SITE-SPECIFIC FACTOR 2 (CS)",44.2)=""
^DD(165.5,"B","SITE-SPECIFIC FACTOR 3 (CS)",44.3)=""
^DD(165.5,"B","SITE-SPECIFIC FACTOR 4 (CS)",44.4)=""
^DD(165.5,"B","SITE-SPECIFIC FACTOR 5 (CS)",44.5)=""
^DD(165.5,"B","SITE-SPECIFIC FACTOR 6 (CS)",44.6)=""
^DD(165.5,"B","SITE/GP",.01)=""
^DD(165.5,"B","SITES IRRADIATED (BR98)",953)=""
^DD(165.5,"B","SIZE OF DCIS TUMOR (MM) (BR98)",942)=""
^DD(165.5,"B","SIZE OF RES TUMOR (SOURCE)",1329)=""
^DD(165.5,"B","SIZE OF RESIDUAL TUMOR",1328)=""
^DD(165.5,"B","SIZE OF TUMOR (MELANOMA)",1132)=""
^DD(165.5,"B","SKELETAL X-RAY",512)=""
^DD(165.5,"B","SKIN INVOLVEMENT (BR98)",933)=""
^DD(165.5,"B","SKIN REACTIONS",1340)=""
^DD(165.5,"B","SKULL BASE",1295)=""
^DD(165.5,"B","SMOKING HISTORY",314)=""
^DD(165.5,"B","SOCIAL SECURITY NUMBER",.09)=""
^DD(165.5,"B","SONOGRAM",513)=""
^DD(165.5,"B","SPECIALTY MAKING DIAGNOSIS",334)=""
^DD(165.5,"B","SPECIFIC HISTOLOGIC INFO",846)=""
^DD(165.5,"B","SPECIFIC HORMONE THPY (BR98)",955)=""
^DD(165.5,"B","SPECIMEN RADIOGRAPH (BR98)",947)=""
^DD(165.5,"B","SPECT SCAN",1280)=""
^DD(165.5,"B","SPEECH",1246)=""
^DD(165.5,"B","SPEECH DISTURBANCE",1225)=""
^DD(165.5,"B","SPINAL CORD",1297)=""
^DD(165.5,"B","SPINAL MENINGES",1300)=""
^DD(165.5,"B","SPIRAL CT-BILOBAR DIS",1030)=""
^DD(165.5,"B","SPIRAL CT-CIRRHOSIS",1028)=""
^DD(165.5,"B","SPIRAL CT-LYMPH NODES",1031)=""
^DD(165.5,"B","SPIRAL CT-NUM OF TUMORS",1033)=""
^DD(165.5,"B","SPIRAL CT-PERFORMED",1027)=""
^DD(165.5,"B","SPIRAL CT-SIZE OF TUMOR",1032)=""
^DD(165.5,"B","SPIRAL CT-VASCULAR INV",1029)=""
^DD(165.5,"B","SPORADIC POLYPS",192)=""
^DD(165.5,"B","ST-COUNTY",.1157)=""
^DD(165.5,"B","STAGE FLAG",997)=""
^DD(165.5,"B","STAGE GROUP BEST",40)=""
^DD(165.5,"B","STAGE GROUP CLINICAL",38)=""
^DD(165.5,"B","STAGE GROUP PATHOLOGIC",88)=""
^DD(165.5,"B","STAGE GROUPING-AJCC",38.5)=""
^DD(165.5,"B","STAGED BY",40.2)=""
^DD(165.5,"B","STAGED BY (CLINICAL STAGE)",19)=""
^DD(165.5,"B","STAGED BY (OTHER STAGE)",118)=""
^DD(165.5,"B","STAGED BY (PATHOLOGIC STAGE)",89)=""
^DD(165.5,"B","STAGED BY (PEDIATRIC STAGE)",851)=""
^DD(165.5,"B","STAGED BY CONV FLAG",995)=""
^DD(165.5,"B","STATE",.115)=""
^DD(165.5,"B","STATE AT DX",16)=""
^DD(165.5,"B","STATE HOSPITAL #",68)=""
^DD(165.5,"B","STATUS",.091)=""
^DD(165.5,"B","STATUS/LAST TUMOR STATUS",95.1)=""
^DD(165.5,"B","STEREOTACTIC BIOPSY",1319)=""
^DD(165.5,"B","STEREOTACTIC RADIOSURGERY",1339)=""
^DD(165.5,"B","STERNOCLEIDOMASTOID/SHLD STR",1256)=""
^DD(165.5,"B","STOMA COMPLICATION",782)=""
^DD(165.5,"B","STOOL GUAIAC (OCCULT BLOOD)",749)=""
^DD(165.5,"B","STRIDOR/DIFFICULTY BREATHING",414)=""
^DD(165.5,"B","SUBMITTED TO PATHOLOGY (BR98)",948)=""
^DD(165.5,"B","SUBSEQUENT COURSE OF TREATMENT",60)=""
^DD(165.5,"B","SUBSEQUENT RECURRENCES",72)=""
^DD(165.5,"B","SUBSITE",519)=""
^DD(165.5,"B","SURG DX/STAGING PROC @FAC",58.4)=""
^DD(165.5,"B","SURG DX/STAGING PROC @FAC DATE",58.5)=""
^DD(165.5,"B","SURG PROC/OTHER SITE (F)",139.4)=""
^DD(165.5,"B","SURG PROC/OTHER SITE (R)",139)=""
^DD(165.5,"B","SURG PROC/OTHER SITE @FAC (F)",139.5)=""
^DD(165.5,"B","SURG PROC/OTHER SITE @FAC (R)",139.1)=""
^DD(165.5,"B","SURG PROC/OTHER SITE @FAC DATE",139.3)=""
^DD(165.5,"B","SURG PROC/OTHER SITE DATE",139.2)=""
^DD(165.5,"B","SURGERY HOSPITAL",50.1)=""
^DD(165.5,"B","SURGERY OF PRIMARY (F)",58.6)=""
^DD(165.5,"B","SURGERY OF PRIMARY (R)",58.2)=""
^DD(165.5,"B","SURGERY OF PRIMARY @FAC (F)",58.7)=""
^DD(165.5,"B","SURGERY OF PRIMARY @FAC (R)",50.2)=""
^DD(165.5,"B","SURGERY, NOS",1324)=""
^DD(165.5,"B","SURGICAL APPROACH (CNS)",1326)=""
^DD(165.5,"B","SURGICAL APPROACH (R)",74)=""
^DD(165.5,"B","SURGICAL CLOSURE",1121)=""
^DD(165.5,"B","SURGICAL DX/STAGING PROC",58.1)=""
^DD(165.5,"B","SURGICAL DX/STAGING PROC DATE",58.3)=""
^DD(165.5,"B","SURGICAL MARGINS",59)=""
^DD(165.5,"B","SURGICAL MARGINS CONV FLAG",996)=""
^DD(165.5,"B","SURGICAL PROC/OTHER CONV FLAG",999)=""
^DD(165.5,"B","SURVIVAL (YEARS)",203)=""
^DD(165.5,"B","SURVIVAL DAYS",201)=""
^DD(165.5,"B","SURVIVAL MONTHS",202)=""
^DD(165.5,"B","SUSPENSE DATE",17)=""
^DD(165.5,"B","SYNCHRONOUS BREAST CA (BR98)",910)=""
^DD(165.5,"B","SYSTEMIC CHEMOTHERAPY",864)=""
^DD(165.5,"B","SYSTEMIC CHEMOTHERAPY CYCLES",866)=""
^DD(165.5,"B","SYSTEMIC CHEMOTHERAPY DATE",865)=""
^DD(165.5,"B","SYSTEMIC LUPUS ERYTHEMATOSUS",811)=""
^DD(165.5,"B","SYSTEMIC SYMPTOMS",843)=""
^DD(165.5,"B","SYSTEMIC/SURGERY SEQUENCE",15)=""
^DD(165.5,"B","SYSTEMS",.017)=""
^DD(165.5,"B","Surgery hospital",50.1)="1"
^DD(165.5,"B","TAMOXIFEN",1002)=""
^DD(165.5,"B","TAMOXIFEN",1356)=""
^DD(165.5,"B","TAMOXIFEN (SUB TX)",1389)=""
^DD(165.5,"B","TAXOL",377)=""
^DD(165.5,"B","TEMOZOLOMIDE",1354)=""
^DD(165.5,"B","TEMOZOLOMIDE (SUB TX)",1386)=""
^DD(165.5,"B","TEMPORAL LOBE",1287)=""
^DD(165.5,"B","TEXT-DX PROC-LAB TESTS",116)=""
^DD(165.5,"B","TEXT-DX PROC-OP",103)=""
^DD(165.5,"B","TEXT-DX PROC-PATH",107)=""
^DD(165.5,"B","TEXT-DX PROC-PE",104)=""
^DD(165.5,"B","TEXT-DX PROC-SCOPES",106)=""
^DD(165.5,"B","TEXT-DX PROC-X-RAY/SCAN",105)=""
^DD(165.5,"B","TEXT-HISTOLOGY TITLE",101)=""
^DD(165.5,"B","TEXT-PRIMARY SITE TITLE",100)=""
^DD(165.5,"B","TEXT-REMARKS",113)=""
^DD(165.5,"B","THIOTEPA",378)=""
^DD(165.5,"B","THROMBOEMBOLISM (PR98)",690)=""
^DD(165.5,"B","THYROID MASS",415)=""
^DD(165.5,"B","THYROID SCAN",428)=""
^DD(165.5,"B","TINNITUS",1234)=""
^DD(165.5,"B","TNM BEST",40.1)=""
^DD(165.5,"B","TNM CLINICAL",37)=""
^DD(165.5,"B","TNM FORM ASSIGNED",25)=""
^DD(165.5,"B","TNM FORM COMPLETED",44)=""
^DD(165.5,"B","TNM PATHOLOGIC",89.1)=""
^DD(165.5,"B","TONGUE FASCICULATIONS/ATROPHY",1259)=""
^DD(165.5,"B","TOTAL BODY",861)=""
^DD(165.5,"B","TOTAL LENGTH OF STAYS",566)=""
^DD(165.5,"B","TOTAL PROTEIN/ALBUMIN",836)=""
^DD(165.5,"B","TOTAL RAD (cGy/rad) DOSE",362)=""
^DD(165.5,"B","TOTAL RAD DOSE (PARA-AORTIC)",640)=""
^DD(165.5,"B","TOTAL RAD DOSE (PELVIC NODES)",639)=""
^DD(165.5,"B","TOTAL RAD DOSE (PROSTATE)",638)=""
^DD(165.5,"B","TOTAL RADIATION DOSE (cGy)",1336)=""
^DD(165.5,"B","TRANSFERRED TO REHABILITATION",564)=""
^DD(165.5,"B","TRANSRECTAL BIOPSY",607)=""
^DD(165.5,"B","TRANSRECTAL BIOPSY (PR98)",669)=""
^DD(165.5,"B","TRANSURETHRAL RESECTION",609)=""
^DD(165.5,"B","TRANSURETHRAL RESECTION (PR98)",670)=""
^DD(165.5,"B","TREATING SURGEON",526)=""
^DD(165.5,"B","TREATMENT",43)=""
^DD(165.5,"B","TREATMENT ABBREVIATED",42)=""
^DD(165.5,"B","TROUBLE URINATING (PR98)",660)=""
^DD(165.5,"B","TRUNCAL ATAXIA",1264)=""
^DD(165.5,"B","TRUS",608)=""
^DD(165.5,"B","TUBERCULOSIS",815)=""
^DD(165.5,"B","TUBEROUS SCLEROSIS",1215)=""
^DD(165.5,"B","TUMOR LEVEL-ENDOSCOPIC EXAM",752)=""
^DD(165.5,"B","TUMOR MARKER (1ST RECURRENCE)",653)=""
^DD(165.5,"B","TUMOR MARKER 1",25.1)=""
^DD(165.5,"B","TUMOR MARKER 2",25.2)=""
^DD(165.5,"B","TUMOR MARKER 3",25.3)=""
^DD(165.5,"B","TUMOR RESECTION DURING TURB",349)=""
^DD(165.5,"B","TUMOR SIZE",29)=""
^DD(165.5,"B","TUMOR SIZE",1394)=""
^DD(165.5,"B","TUMOR SIZE (CS)",29.2)=""
^DD(165.5,"B","TUMOR SIZE (SOURCE)",1310)=""
^DD(165.5,"B","TUMOR SIZE/EXT EVAL (CS)",29.1)=""
^DD(165.5,"B","TUMOR STATUS",73)=""
^DD(165.5,"B","TURCOT SYNDROME",1216)=""
^DD(165.5,"B","TYPE OF 1ST RECURRENCE/BLADDER",387)=""
^DD(165.5,"B","TYPE OF 1ST RECURRENCE/CNS",1372)=""
^DD(165.5,"B","TYPE OF ADDITIONAL CODING SYS",520)=""
^DD(165.5,"B","TYPE OF BIOPSY",1109)=""
^DD(165.5,"B","TYPE OF EXT BEAM RADIATION",1337)=""
^DD(165.5,"B","TYPE OF FIRST RECUR CONV FLAG",994)=""
^DD(165.5,"B","TYPE OF FIRST RECURRENCE",71)=""
^DD(165.5,"B","TYPE OF PROGRESSION",1369)=""
^DD(165.5,"B","TYPE OF RADIATION ADMIN",694)=""
^DD(165.5,"B","TYPE OF REPORTING SOURCE",1.2)=""
^DD(165.5,"B","TYPE OF STAGING SYSTEM (PED)",849)=""
^DD(165.5,"B","TYPE OF SUBSEQUENT RADIATION",1375)=""
^DD(165.5,"B","TYPE OF SUBSEQUENT SURGICAL TX",1374)=""
^DD(165.5,"B","TYPE OF TEST (BR98)",941)=""
^DD(165.5,"B","TYPE OF URINARY DIVERSION",350)=""
^DD(165.5,"B","Tumor Marker 1",25.1)="1"
^DD(165.5,"B","Tumor Marker 2",25.2)="1"
^DD(165.5,"B","Tumor Marker 3",25.3)="1"
^DD(165.5,"B","ULCERATION",1118)=""
^DD(165.5,"B","ULCERATIVE COLITIS (UC)",191)=""
^DD(165.5,"B","ULTRASOUND (BR98)",927)=""
^DD(165.5,"B","ULTRASOUND OF ABDOMEN (PR98)",683)=""
^DD(165.5,"B","ULTRASOUND OF THYROID",429)=""
^DD(165.5,"B","ULTRASOUND, ENDORECTAL",751)=""
^DD(165.5,"B","ULTRASOUND, LIVER, ABDOMEN",750)=""
^DD(165.5,"B","ULTRASOUND-BILOBAR DIS",1044)=""
^DD(165.5,"B","ULTRASOUND-CIRRHOSIS",1042)=""
^DD(165.5,"B","ULTRASOUND-LYMPH NODES",1045)=""
^DD(165.5,"B","ULTRASOUND-NUM 0F TUMORS",1047)=""
^DD(165.5,"B","ULTRASOUND-PERFORMED",1041)=""
^DD(165.5,"B","ULTRASOUND-SIZE OF TUMOR",1046)=""
^DD(165.5,"B","ULTRASOUND-VASCULAR INV",1043)=""
^DD(165.5,"B","UNKNOWN IF SURGERY DONE",1325)=""
^DD(165.5,"B","UNKNOWN MAMMOGRAM (BR98)",918)=""
^DD(165.5,"B","UNKNOWN MAMMOGRAM DT (BR98)",919)=""
^DD(165.5,"B","UPPER/LOWER",21.52)=""
^DD(165.5,"B","URETHRAL STRICTURE (PR98)",691)=""
^DD(165.5,"B","URETHRAL/BLADDER COMPLICATIONS",699)=""
^DD(165.5,"B","URINALYSIS",332)=""
^DD(165.5,"B","URINARY FREQUENCY",319)=""
^DD(165.5,"B","URINARY INCONTINENCE",364)=""
^DD(165.5,"B","URINARY TRACT INFECTION",783)=""
^DD(165.5,"B","URINE CYTOLOGY",331)=""
^DD(165.5,"B","UTERUS (BR98)",913)=""
^DD(165.5,"B","VACCINE THERAPY",884)=""
^DD(165.5,"B","VALUE OF ADDITIONAL CODING SYS",521)=""
^DD(165.5,"B","VENOUS INVASION (V)",151)=""
^DD(165.5,"B","VENTRICULOSTOMY/EXT VENT DRAIN",1315)=""
^DD(165.5,"B","VERTIGO",1233)=""
^DD(165.5,"B","VINBLASTINE",379)=""
^DD(165.5,"B","VINCRISTINE",1348)=""
^DD(165.5,"B","VINCRISTINE (SUB TX)",1378)=""
^DD(165.5,"B","VISUAL ACUITY",1249)=""
^DD(165.5,"B","VISUAL FIELDS",1250)=""
^DD(165.5,"B","VON HIPPEL-LINDAU DISEASE",1214)=""
^DD(165.5,"B","VP-16",1352)=""
^DD(165.5,"B","VP-16 (SUB TX)",1384)=""
^DD(165.5,"B","WATCHFUL WAITING (PR98)",685)=""
^DD(165.5,"B","WEAKNESS OR PARALYSIS",1236)=""
^DD(165.5,"B","WEAKNESS/ATROPHY/FASCICULATION",1262)=""
^DD(165.5,"B","WEEKS of FOLLOW-UP",204)=""
^DD(165.5,"B","WEIGHT CHANGE",1243)=""
^DD(165.5,"B","WEIGHT LOSS",416)=""
^DD(165.5,"B","WEIGHT LOSS (1ST RECURRENCE)",654)=""
^DD(165.5,"B","WEIGHT LOSS PER PT",190)=""
^DD(165.5,"B","WHITE COUNT",832)=""
^DD(165.5,"B","WHO HISTOLOGICAL CL",1308)=""
^DD(165.5,"B","WOUND INFECTION",440)=""
^DD(165.5,"B","YEAR DX",3.5)=""
^DD(165.5,"B","YEAR PUT ON PROTOCOL",133)=""
^DD(165.5,"B","cGy DOSE TO BREAST (BR98)",954)=""
^DD(165.5,"GL",0,1,.01)=""
^DD(165.5,"GL",0,2,.02)=""
^DD(165.5,"GL",0,3,.03)=""
^DD(165.5,"GL",0,4,.04)=""
^DD(165.5,"GL",0,5,.05)=""
^DD(165.5,"GL",0,6,.06)=""
^DD(165.5,"GL",0,7,.07)=""
^DD(165.5,"GL",0,8,1)=""
^DD(165.5,"GL",0,9,1.1)=""
^DD(165.5,"GL",0,10,1.2)=""
^DD(165.5,"GL",0,11,2)=""
^DD(165.5,"GL",0,12,2.1)=""
^DD(165.5,"GL",0,13,2.2)=""
^DD(165.5,"GL",0,14,2.3)=""
^DD(165.5,"GL",0,15,2.4)=""
^DD(165.5,"GL",0,16,3)=""
^DD(165.5,"GL",0,17,5)=""
^DD(165.5,"GL",0,18,6)=""
^DD(165.5,"GL",0,19,7)=""
^DD(165.5,"GL",0,20,.042)=""
^DD(165.5,"GL",0,21,83)=""
^DD(165.5,"GL",0,22,.022)=""
^DD(165.5,"GL",0,23,123)=""
^DD(165.5,"GL",0,24,79)=""
^DD(165.5,"GL",0,25,119)=""
^DD(165.5,"GL",0,26,120)=""
^DD(165.5,"GL",0,27,121)=""
^DD(165.5,"GL",0,28,122)=""
^DD(165.5,"GL",0,29,147)=""
^DD(165.5,"GL",0,30,148)=""
^DD(165.5,"GL",0,31,148.1)=""
^DD(165.5,"GL",0,32,148.2)=""
^DD(165.5,"GL",0,33,148.3)=""
^DD(165.5,"GL",0,34,148.4)=""
^DD(165.5,"GL",0,35,155)=""
^DD(165.5,"GL",1,1,8)=""
^DD(165.5,"GL",1,2,9)=""
^DD(165.5,"GL",1,3,10)=""
^DD(165.5,"GL",1,4,16)=""
^DD(165.5,"GL",1,5,11)=""
^DD(165.5,"GL",1,6,21)=""
^DD(165.5,"GL",1,10,17)=""
^DD(165.5,"GL",1,11,18)=""
^DD(165.5,"GL",1,12,8.1)=""
^DD(165.5,"GL",1,13,8.2)=""
^DD(165.5,"GL",2,1,20)=""
^DD(165.5,"GL",2,3,22)=""
^DD(165.5,"GL",2,4,22.2)=""
^DD(165.5,"GL",2,5,24)=""
^DD(165.5,"GL",2,6,26)=""
^DD(165.5,"GL",2,7,21.5)=""
^DD(165.5,"GL",2,8,28)=""
^DD(165.5,"GL",2,9,29)=""
^DD(165.5,"GL",2,10,30)=""
^DD(165.5,"GL",2,11,31)=""
^DD(165.5,"GL",2,12,32)=""
^DD(165.5,"GL",2,13,33)=""
^DD(165.5,"GL",2,14,34)=""
^DD(165.5,"GL",2,15,34.1)=""
^DD(165.5,"GL",2,16,34.2)=""
^DD(165.5,"GL",2,17,35)=""
^DD(165.5,"GL",2,18,36)=""
^DD(165.5,"GL",2,19,149)=""
^DD(165.5,"GL",2,20,38)=""
^DD(165.5,"GL",2,21,39)=""
^DD(165.5,"GL",2,22,21.51)=""
^DD(165.5,"GL",2,23,41)=""
^DD(165.5,"GL",2,24,45)=""
^DD(165.5,"GL",2,25,37.1)=""
^DD(165.5,"GL",2,26,37.2)=""
^DD(165.5,"GL",2,27,37.3)=""
^DD(165.5,"GL",2,28,38.5)=""
^DD(165.5,"GL",2,29,151)=""
^DD(165.5,"GL",2,31,69)=""
^DD(165.5,"GL",2,32,69.1)=""
^DD(165.5,"GL",2.1,1,85)=""
^DD(165.5,"GL",2.1,2,86)=""
^DD(165.5,"GL",2.1,3,87)=""
^DD(165.5,"GL",2.1,4,88)=""
^DD(165.5,"GL",2.1,5,89)=""
^DD(165.5,"GL",2.1,6,93)=""
^DD(165.5,"GL",2.1,7,98)=""
^DD(165.5,"GL",2.1,8,99)=""
^DD(165.5,"GL",2.1,9,117)=""
^DD(165.5,"GL",2.1,10,118)=""
^DD(165.5,"GL",2.1,11,124)=""
^DD(165.5,"GL",2.1,12,134)=""
^DD(165.5,"GL",2.1,13,135)=""
^DD(165.5,"GL",2.1,14,141)=""
^DD(165.5,"GL",2.1,15,142)=""
^DD(165.5,"GL",2.1,16,143)=""
^DD(165.5,"GL",2.1,17,144)=""
^DD(165.5,"GL",2.1,18,145)=""
^DD(165.5,"GL",2.1,19,146)=""
^DD(165.5,"GL",2.2,1,137)=""
^DD(165.5,"GL",2.2,2,30.1)=""
^DD(165.5,"GL",2.2,3,22.3)=""
^DD(165.5,"GL",2.2,4,171)=""
^DD(165.5,"GL",2.2,5,172)=""
^DD(165.5,"GL",2.2,6,173)=""
^DD(165.5,"GL",2.2,7,174)=""
^DD(165.5,"GL",2.2,8,175)=""
^DD(165.5,"GL",2.2,9,176)=""
^DD(165.5,"GL",2.2,10,177)=""
^DD(165.5,"GL",2.2,11,178)=""
^DD(165.5,"GL",2.2,12,179)=""
^DD(165.5,"GL",2.2,13,180)=""
^DD(165.5,"GL",2.2,14,181)=""
^DD(165.5,"GL",2.2,15,182)=""
^DD(165.5,"GL",2.2,16,183)=""
^DD(165.5,"GL",2.2,17,184)=""
^DD(165.5,"GL",2.2,18,174.1)=""
^DD(165.5,"GL",2.2,19,175.1)=""
^DD(165.5,"GL",2.2,20,176.1)=""
^DD(165.5,"GL",2.2,21,177.1)=""
^DD(165.5,"GL",2.2,22,178.1)=""
^DD(165.5,"GL",2.2,23,179.1)=""
^DD(165.5,"GL",2.2,24,180.1)=""
^DD(165.5,"GL",2.2,25,181.1)=""
^DD(165.5,"GL",2.2,27,182.1)=""
^DD(165.5,"GL",2.2,28,183.1)=""
^DD(165.5,"GL",2.2,29,185)=""
^DD(165.5,"GL",2.2,30,185.1)=""
^DD(165.5,"GL",2.2,31,184.1)=""
^DD(165.5,"GL",2.2,32,186)=""
^DD(165.5,"GL",2.2,33,186.1)=""
^DD(165.5,"GL",2.2,34,187)=""
^DD(165.5,"GL",2.2,35,187.1)=""
^DD(165.5,"GL",2.2,36,188)=""
^DD(165.5,"GL",2.2,37,188.1)=""
^DD(165.5,"GL",2.2,38,189)=""
^DD(165.5,"GL",2.2,39,189.1)=""
^DD(165.5,"GL",2.2,40,190)=""
^DD(165.5,"GL",2.2,41,191)=""
^DD(165.5,"GL",2.2,42,192)=""
^DD(165.5,"GL",3,1,50)=""
^DD(165.5,"GL",3,2,50.1)=""
^DD(165.5,"GL",3,4,51)=""
^DD(165.5,"GL",3,5,51.1)=""
^DD(165.5,"GL",3,6,51.2)=""
^DD(165.5,"GL",3,7,51.3)=""
^DD(165.5,"GL",3,8,52)=""
^DD(165.5,"GL",3,9,52.1)=""
^DD(165.5,"GL",3,10,52.2)=""
^DD(165.5,"GL",3,11,53)=""
^DD(165.5,"GL",3,12,53.1)=""
^DD(165.5,"GL",3,13,53.2)=""
^DD(165.5,"GL",3,14,54)=""
^DD(165.5,"GL",3,15,54.1)=""
^DD(165.5,"GL",3,16,54.2)=""
^DD(165.5,"GL",3,17,55)=""
^DD(165.5,"GL",3,18,55.1)=""
^DD(165.5,"GL",3,19,55.2)=""
^DD(165.5,"GL",3,20,56)=""
^DD(165.5,"GL",3,21,125)=""
^DD(165.5,"GL",3,22,126)=""
^DD(165.5,"GL",3,23,57)=""
^DD(165.5,"GL",3,24,57.1)=""
^DD(165.5,"GL",3,25,57.2)=""
^DD(165.5,"GL",3,26,58)=""
^DD(165.5,"GL",3,27,58.1)=""
^DD(165.5,"GL",3,28,59)=""
^DD(165.5,"GL",3,29,127)=""
^DD(165.5,"GL",3,30,69.2)=""
^DD(165.5,"GL",3,31,58.3)=""
^DD(165.5,"GL",3,32,19)=""
^DD(165.5,"GL",3,33,23)=""
^DD(165.5,"GL",3,34,74)=""
^DD(165.5,"GL",3,35,75)=""
^DD(165.5,"GL",3,36,76)=""
^DD(165.5,"GL",3,37,77)=""
^DD(165.5,"GL",3,38,58.2)=""
^DD(165.5,"GL",3,39,128)=""
^DD(165.5,"GL",3,40,138)=""
^DD(165.5,"GL",3,41,139)=""
^DD(165.5,"GL",3,42,140)=""
^DD(165.5,"GL",3.1,1,129)=""
^DD(165.5,"GL",3.1,2,130)=""
^DD(165.5,"GL",3.1,3,132)=""
^DD(165.5,"GL",3.1,4,133)=""
^DD(165.5,"GL",3.1,5,58.4)=""
^DD(165.5,"GL",3.1,6,58.5)=""
^DD(165.5,"GL",3.1,7,50.2)=""
^DD(165.5,"GL",3.1,8,50.3)=""
^DD(165.5,"GL",3.1,9,138.1)=""
^DD(165.5,"GL",3.1,10,139.1)=""
^DD(165.5,"GL",3.1,11,140.1)=""
^DD(165.5,"GL",3.1,12,51.4)=""
^DD(165.5,"GL",3.1,13,51.5)=""
^DD(165.5,"GL",3.1,14,53.3)=""
^DD(165.5,"GL",3.1,15,53.4)=""
^DD(165.5,"GL",3.1,16,54.3)=""
^DD(165.5,"GL",3.1,17,54.4)=""
^DD(165.5,"GL",3.1,18,55.3)=""
^DD(165.5,"GL",3.1,19,55.4)=""
^DD(165.5,"GL",3.1,20,57.3)=""
^DD(165.5,"GL",3.1,21,57.4)=""
^DD(165.5,"GL",3.1,22,138.2)=""
^DD(165.5,"GL",3.1,23,138.3)=""
^DD(165.5,"GL",3.1,24,139.2)=""
^DD(165.5,"GL",3.1,25,139.3)=""
^DD(165.5,"GL",3.1,26,12)=""
^DD(165.5,"GL",3.1,27,13)=""
^DD(165.5,"GL",3.1,28,14)=""
^DD(165.5,"GL",3.1,29,58.6)=""
^DD(165.5,"GL",3.1,30,58.7)=""
^DD(165.5,"GL",3.1,31,138.4)=""
^DD(165.5,"GL",3.1,32,138.5)=""
^DD(165.5,"GL",3.1,33,139.4)=""
^DD(165.5,"GL",3.1,34,139.5)=""
^DD(165.5,"GL",3.1,35,153.1)=""
^DD(165.5,"GL",3.1,36,153)=""
^DD(165.5,"GL",3.1,37,154)=""
^DD(165.5,"GL",3.1,38,170)=""
^DD(165.5,"GL",3.1,39,15)=""
^DD(165.5,"GL",4,0,60)=""
^DD(165.5,"GL",5,1,70)=""
^DD(165.5,"GL",5,2,71)=""
^DD(165.5,"GL",5,3,71.1)=""
^DD(165.5,"GL",5,4,71.2)=""
^DD(165.5,"GL",5,5,71.3)=""
^DD(165.5,"GL",5,6,71.4)=""
^DD(165.5,"GL",6,0,80)=""
^DD(165.5,"GL",7,1,90)=""
^DD(165.5,"GL",7,2,91)=""
^DD(165.5,"GL",7,3,92)=""
^DD(165.5,"GL",7,4,62)=""
^DD(165.5,"GL",7,5,94)=""
^DD(165.5,"GL",7,6,95)=""
^DD(165.5,"GL",7,7,25)=""
^DD(165.5,"GL",7,8,63)=""
^DD(165.5,"GL",7,9,64)=""
^DD(165.5,"GL",7,10,65)=""
^DD(165.5,"GL",7,11,66)=""
^DD(165.5,"GL",7,12,81)=""
^DD(165.5,"GL",7,13,82)=""
^DD(165.5,"GL",7,14,44)=""
^DD(165.5,"GL",7,15,84)=""
^DD(165.5,"GL",7,16,69.3)=""
^DD(165.5,"GL",7,17,69.4)=""
^DD(165.5,"GL",7,18,64.1)=""
^DD(165.5,"GL",7,19,46)=""
^DD(165.5,"GL",7,20,47)=""
^DD(165.5,"GL",7,21,198)=""
^DD(165.5,"GL",7,22,199)=""
^DD(165.5,"GL",8,1,100)=""
^DD(165.5,"GL",8,2,101)=""
^DD(165.5,"GL",9,0,103)=""
^DD(165.5,"GL",10,0,104)=""
^DD(165.5,"GL",11,0,105)=""
^DD(165.5,"GL",12,0,106)=""
^DD(165.5,"GL",13,0,107)=""
^DD(165.5,"GL",14,0,108)=""
^DD(165.5,"GL",15,0,109)=""
^DD(165.5,"GL",15.1,0,131)=""
^DD(165.5,"GL",16,0,110)=""
^DD(165.5,"GL",17,0,111)=""
^DD(165.5,"GL",18,0,112)=""
^DD(165.5,"GL",19,0,113)=""
^DD(165.5,"GL",20,0,114)=""
^DD(165.5,"GL",21,0,115)=""
^DD(165.5,"GL",22,0,116)=""
^DD(165.5,"GL",23,0,72)=""
^DD(165.5,"GL",24,1,37.9)=""
^DD(165.5,"GL",24,2,25.1)=""
^DD(165.5,"GL",24,3,25.2)=""
^DD(165.5,"GL",24,4,21.52)=""
^DD(165.5,"GL",24,5,30.5)=""
^DD(165.5,"GL",24,6,78)=""
^DD(165.5,"GL",24,7,25.3)=""
^DD(165.5,"GL",24,8,136)=""
^DD(165.5,"GL",24,9,363.1)=""
^DD(165.5,"GL",24,10,102)=""
^DD(165.5,"GL",24,11,156)=""
^DD(165.5,"GL",24,12,159)=""
^DD(165.5,"GL",24,13,193)=""
^DD(165.5,"GL",24,14,194)=""
^DD(165.5,"GL",24,15,195)=""
^DD(165.5,"GL",24,16,196)=""
^DD(165.5,"GL",27,1,997)=""
^DD(165.5,"GL",27,2,996)=""
^DD(165.5,"GL",27,3,998)=""
^DD(165.5,"GL",27,4,999)=""
^DD(165.5,"GL",27,5,995)=""
^DD(165.5,"GL",27,6,994)=""
^DD(165.5,"GL",27,7,993)=""
^DD(165.5,"GL",28,0,64.2)=""
^DD(165.5,"GL","BLA1",1,300)=""
^DD(165.5,"GL","BLA1",2,301)=""
^DD(165.5,"GL","BLA1",3,302)=""
^DD(165.5,"GL","BLA1",4,303)=""
^DD(165.5,"GL","BLA1",5,304)=""
^DD(165.5,"GL","BLA1",6,305)=""
^DD(165.5,"GL","BLA1",7,306)=""
^DD(165.5,"GL","BLA1",8,307)=""
^DD(165.5,"GL","BLA1",9,308)=""
^DD(165.5,"GL","BLA1",10,309)=""
^DD(165.5,"GL","BLA1",11,310)=""
^DD(165.5,"GL","BLA1",12,311)=""
^DD(165.5,"GL","BLA1",13,312)=""
^DD(165.5,"GL","BLA1",14,313)=""
^DD(165.5,"GL","BLA1",15,314)=""
^DD(165.5,"GL","BLA1",16,315)=""
^DD(165.5,"GL","BLA1",17,316)=""
^DD(165.5,"GL","BLA1",18,317)=""
^DD(165.5,"GL","BLA1",19,318)=""
^DD(165.5,"GL","BLA1",20,319)=""
^DD(165.5,"GL","BLA1",21,320)=""
^DD(165.5,"GL","BLA1",22,321)=""
^DD(165.5,"GL","BLA1",23,322)=""
^DD(165.5,"GL","BLA1",24,323)=""
^DD(165.5,"GL","BLA1",25,324)=""
^DD(165.5,"GL","BLA1",26,325)=""
^DD(165.5,"GL","BLA1",27,326)=""
^DD(165.5,"GL","BLA1",28,327)=""
^DD(165.5,"GL","BLA1",29,328)=""
^DD(165.5,"GL","BLA1",30,329)=""
^DD(165.5,"GL","BLA1",31,330)=""
^DD(165.5,"GL","BLA1",32,331)=""
^DD(165.5,"GL","BLA1",33,332)=""
^DD(165.5,"GL","BLA1",34,333)=""
^DD(165.5,"GL","BLA1",35,334)=""
^DD(165.5,"GL","BLA1",36,335)=""
^DD(165.5,"GL","BLA1",37,336)=""
^DD(165.5,"GL","BLA1",38,337)=""
^DD(165.5,"GL","BLA1",39,338)=""
^DD(165.5,"GL","BLA1",40,339)=""
^DD(165.5,"GL","BLA1",41,340)=""
^DD(165.5,"GL","BLA1",42,341)=""
^DD(165.5,"GL","BLA1",43,342)=""
^DD(165.5,"GL","BLA1",44,343)=""
^DD(165.5,"GL","BLA1",45,344)=""
^DD(165.5,"GL","BLA1",46,345)=""
^DD(165.5,"GL","BLA2",1,346)=""
^DD(165.5,"GL","BLA2",2,347)=""
^DD(165.5,"GL","BLA2",3,348)=""
^DD(165.5,"GL","BLA2",4,349)=""
^DD(165.5,"GL","BLA2",5,350)=""
^DD(165.5,"GL","BLA2",6,351)=""
^DD(165.5,"GL","BLA2",7,352)=""
^DD(165.5,"GL","BLA2",8,353)=""
^DD(165.5,"GL","BLA2",9,354)=""
^DD(165.5,"GL","BLA2",10,355)=""
^DD(165.5,"GL","BLA2",11,356)=""
^DD(165.5,"GL","BLA2",12,357)=""
^DD(165.5,"GL","BLA2",13,358)=""
^DD(165.5,"GL","BLA2",14,359)=""
^DD(165.5,"GL","BLA2",15,360)=""
^DD(165.5,"GL","BLA2",16,361)=""
^DD(165.5,"GL","BLA2",17,362)=""
^DD(165.5,"GL","BLA2",18,363)=""
^DD(165.5,"GL","BLA2",19,364)=""
^DD(165.5,"GL","BLA2",20,365)=""
^DD(165.5,"GL","BLA2",21,366)=""
^DD(165.5,"GL","BLA2",22,367)=""
^DD(165.5,"GL","BLA2",23,368)=""
^DD(165.5,"GL","BLA2",24,369)=""
^DD(165.5,"GL","BLA2",25,370)=""
^DD(165.5,"GL","BLA2",26,371)=""
^DD(165.5,"GL","BLA2",27,372)=""
^DD(165.5,"GL","BLA2",28,373)=""
^DD(165.5,"GL","BLA2",29,374)=""
^DD(165.5,"GL","BLA2",30,375)=""
^DD(165.5,"GL","BLA2",31,376)=""
^DD(165.5,"GL","BLA2",32,377)=""
^DD(165.5,"GL","BLA2",33,378)=""
^DD(165.5,"GL","BLA2",34,379)=""
^DD(165.5,"GL","BLA2",35,380)=""
^DD(165.5,"GL","BLA2",36,381)=""
^DD(165.5,"GL","BLA2",37,383)=""
^DD(165.5,"GL","BLA2",38,384)=""
^DD(165.5,"GL","BLA2",39,385)=""
^DD(165.5,"GL","BLA2",40,386)=""
^DD(165.5,"GL","BLA2",41,382)=""
^DD(165.5,"GL","BLA2",42,387)=""
^DD(165.5,"GL","BRE1",1,900)=""
^DD(165.5,"GL","BRE1",2,901)=""
^DD(165.5,"GL","BRE1",3,902)=""
^DD(165.5,"GL","BRE1",4,903)=""
^DD(165.5,"GL","BRE1",5,904)=""
^DD(165.5,"GL","BRE1",6,905)=""
^DD(165.5,"GL","BRE1",7,906)=""
^DD(165.5,"GL","BRE1",8,907)=""
^DD(165.5,"GL","BRE1",9,908)=""
^DD(165.5,"GL","BRE1",10,909)=""
^DD(165.5,"GL","BRE1",11,910)=""
^DD(165.5,"GL","BRE1",12,911)=""
^DD(165.5,"GL","BRE1",13,912)=""
^DD(165.5,"GL","BRE1",14,913)=""
^DD(165.5,"GL","BRE1",15,914)=""
^DD(165.5,"GL","BRE1",16,915)=""
^DD(165.5,"GL","BRE1",17,916)=""
^DD(165.5,"GL","BRE1",18,917)=""
^DD(165.5,"GL","BRE1",19,918)=""
^DD(165.5,"GL","BRE1",20,919)=""
^DD(165.5,"GL","BRE1",21,920)=""
^DD(165.5,"GL","BRE1",22,921)=""
^DD(165.5,"GL","BRE1",23,922)=""
^DD(165.5,"GL","BRE1",24,923)=""
^DD(165.5,"GL","BRE1",25,924)=""
^DD(165.5,"GL","BRE1",26,925)=""
^DD(165.5,"GL","BRE1",27,926)=""
^DD(165.5,"GL","BRE1",28,927)=""
^DD(165.5,"GL","BRE1",29,928)=""
^DD(165.5,"GL","BRE1",30,929)=""
^DD(165.5,"GL","BRE1",31,930)=""
^DD(165.5,"GL","BRE1",32,931)=""
^DD(165.5,"GL","BRE1",33,932)=""
^DD(165.5,"GL","BRE1",34,933)=""
^DD(165.5,"GL","BRE1",35,934)=""
^DD(165.5,"GL","BRE1",36,935)=""
^DD(165.5,"GL","BRE1",37,936)=""
^DD(165.5,"GL","BRE1",38,937)=""
^DD(165.5,"GL","BRE1",41,940)=""
^DD(165.5,"GL","BRE1",42,941)=""
^DD(165.5,"GL","BRE1",43,942)=""
^DD(165.5,"GL","BRE1",44,943)=""
^DD(165.5,"GL","BRE1",45,944)=""
^DD(165.5,"GL","BRE1",46,945)=""
^DD(165.5,"GL","BRE1",47,946)=""
^DD(165.5,"GL","BRE1",48,947)=""
^DD(165.5,"GL","BRE1",49,948)=""
^DD(165.5,"GL","BRE1",50,949)=""
^DD(165.5,"GL","BRE1",51,950)=""
^DD(165.5,"GL","BRE1",52,951)=""
^DD(165.5,"GL","BRE1",53,952)=""
^DD(165.5,"GL","BRE1",54,953)=""
^DD(165.5,"GL","BRE1",55,954)=""
^DD(165.5,"GL","BRE1",56,955)=""
^DD(165.5,"GL","BRE1",57,956)=""
^DD(165.5,"GL","CNS1",1,1200)=""
^DD(165.5,"GL","CNS1",2,1201)=""
^DD(165.5,"GL","CNS1",3,1202)=""
^DD(165.5,"GL","CNS1",4,1203)=""
^DD(165.5,"GL","CNS1",5,1204)=""
^DD(165.5,"GL","CNS1",6,1205)=""
^DD(165.5,"GL","CNS1",7,1206)=""
^DD(165.5,"GL","CNS1",8,1207)=""
^DD(165.5,"GL","CNS1",9,1208)=""
^DD(165.5,"GL","CNS1",10,1209)=""
^DD(165.5,"GL","CNS1",11,1210)=""
^DD(165.5,"GL","CNS1",12,1211)=""
^DD(165.5,"GL","CNS1",13,1212)=""
^DD(165.5,"GL","CNS1",14,1213)=""
^DD(165.5,"GL","CNS1",15,1214)=""
^DD(165.5,"GL","CNS1",16,1215)=""
^DD(165.5,"GL","CNS1",17,1216)=""
^DD(165.5,"GL","CNS1",18,1217)=""
^DD(165.5,"GL","CNS1",19,1218)=""
^DD(165.5,"GL","CNS1",20,1219)=""
^DD(165.5,"GL","CNS1",21,1220)=""
^DD(165.5,"GL","CNS1",22,1221)=""
^DD(165.5,"GL","CNS1",23,1222)=""
^DD(165.5,"GL","CNS1",24,1223)=""
^DD(165.5,"GL","CNS1",25,1224)=""
^DD(165.5,"GL","CNS1",26,1225)=""
^DD(165.5,"GL","CNS1",27,1226)=""
^DD(165.5,"GL","CNS1",28,1227)=""
^DD(165.5,"GL","CNS1",29,1228)=""
^DD(165.5,"GL","CNS1",30,1229)=""
^DD(165.5,"GL","CNS1",31,1230)=""
^DD(165.5,"GL","CNS1",32,1231)=""
^DD(165.5,"GL","CNS1",33,1232)=""
^DD(165.5,"GL","CNS1",34,1233)=""
^DD(165.5,"GL","CNS1",35,1234)=""
^DD(165.5,"GL","CNS1",36,1235)=""
^DD(165.5,"GL","CNS1",37,1236)=""
^DD(165.5,"GL","CNS1",38,1237)=""
^DD(165.5,"GL","CNS1",39,1238)=""
^DD(165.5,"GL","CNS1",40,1239)=""
^DD(165.5,"GL","CNS1",41,1240)=""
^DD(165.5,"GL","CNS1",42,1241)=""
^DD(165.5,"GL","CNS1",43,1242)=""
^DD(165.5,"GL","CNS1",44,1243)=""
^DD(165.5,"GL","CNS1",45,1244)=""
^DD(165.5,"GL","CNS1",46,1245)=""
^DD(165.5,"GL","CNS1",47,1246)=""
^DD(165.5,"GL","CNS1",48,1247)=""
^DD(165.5,"GL","CNS1",49,1248)=""
^DD(165.5,"GL","CNS1",50,1249)=""
^DD(165.5,"GL","CNS1",51,1250)=""
^DD(165.5,"GL","CNS1",52,1251)=""
^DD(165.5,"GL","CNS1",53,1252)=""
^DD(165.5,"GL","CNS1",54,1253)=""
^DD(165.5,"GL","CNS1",55,1254)=""
^DD(165.5,"GL","CNS1",56,1255)=""
^DD(165.5,"GL","CNS1",57,1256)=""
^DD(165.5,"GL","CNS1",58,1257)=""
^DD(165.5,"GL","CNS1",59,1258)=""
^DD(165.5,"GL","CNS1",60,1259)=""
^DD(165.5,"GL","CNS1",61,1260)=""
^DD(165.5,"GL","CNS1",62,1261)=""
^DD(165.5,"GL","CNS1",63,1262)=""
^DD(165.5,"GL","CNS1",64,1263)=""
^DD(165.5,"GL","CNS1",65,1264)=""
^DD(165.5,"GL","CNS1",66,1265)=""
^DD(165.5,"GL","CNS1",67,1266)=""
^DD(165.5,"GL","CNS1",68,1267)=""
^DD(165.5,"GL","CNS1",69,1268)=""
^DD(165.5,"GL","CNS1",70,1269)=""
^DD(165.5,"GL","CNS1",71,1270)=""
^DD(165.5,"GL","CNS1",72,1271)=""
^DD(165.5,"GL","CNS1",73,1272)=""
^DD(165.5,"GL","CNS1",74,1273)=""
^DD(165.5,"GL","CNS1",75,1274)=""
^DD(165.5,"GL","CNS1",76,1275)=""
^DD(165.5,"GL","CNS1",77,1276)=""
^DD(165.5,"GL","CNS1",78,1277)=""
^DD(165.5,"GL","CNS1",79,1278)=""
^DD(165.5,"GL","CNS1",80,1279)=""
^DD(165.5,"GL","CNS1",81,1280)=""
^DD(165.5,"GL","CNS1",82,1281)=""
^DD(165.5,"GL","CNS1",83,1282)=""
^DD(165.5,"GL","CNS1",84,1283)=""
^DD(165.5,"GL","CNS1",85,1284)=""
^DD(165.5,"GL","CNS1",86,1285)=""
^DD(165.5,"GL","CNS2",1,1286)=""
^DD(165.5,"GL","CNS2",2,1287)=""
^DD(165.5,"GL","CNS2",3,1288)=""
^DD(165.5,"GL","CNS2",4,1289)=""
^DD(165.5,"GL","CNS2",5,1290)=""
^DD(165.5,"GL","CNS2",6,1291)=""
^DD(165.5,"GL","CNS2",7,1292)=""
^DD(165.5,"GL","CNS2",8,1293)=""
^DD(165.5,"GL","CNS2",9,1294)=""
^DD(165.5,"GL","CNS2",10,1295)=""
^DD(165.5,"GL","CNS2",11,1296)=""
^DD(165.5,"GL","CNS2",12,1297)=""
^DD(165.5,"GL","CNS2",13,1298)=""
^DD(165.5,"GL","CNS2",14,1299)=""
^DD(165.5,"GL","CNS2",15,1300)=""
^DD(165.5,"GL","CNS2",16,1301)=""
^DD(165.5,"GL","CNS2",17,1302)=""
^DD(165.5,"GL","CNS2",18,1303)=""
^DD(165.5,"GL","CNS2",19,1304)=""
^DD(165.5,"GL","CNS2",20,1305)=""
^DD(165.5,"GL","CNS2",21,1306)=""
^DD(165.5,"GL","CNS2",22,1307)=""
^DD(165.5,"GL","CNS2",23,1308)=""
^DD(165.5,"GL","CNS2",24,1309)=""
^DD(165.5,"GL","CNS2",25,1310)=""
^DD(165.5,"GL","CNS2",26,1311)=""
^DD(165.5,"GL","CNS2",27,1312)=""
^DD(165.5,"GL","CNS2",28,1313)=""
^DD(165.5,"GL","CNS2",29,1314)=""
^DD(165.5,"GL","CNS2",30,1315)=""
^DD(165.5,"GL","CNS2",31,1316)=""
^DD(165.5,"GL","CNS2",32,1317)=""
^DD(165.5,"GL","CNS2",33,1318)=""
^DD(165.5,"GL","CNS2",34,1319)=""
^DD(165.5,"GL","CNS2",35,1320)=""
^DD(165.5,"GL","CNS2",36,1321)=""
^DD(165.5,"GL","CNS2",37,1322)=""
^DD(165.5,"GL","CNS2",38,1323)=""
^DD(165.5,"GL","CNS2",39,1324)=""
^DD(165.5,"GL","CNS2",40,1325)=""
^DD(165.5,"GL","CNS2",41,1326)=""
^DD(165.5,"GL","CNS2",42,1327)=""
^DD(165.5,"GL","CNS2",43,1328)=""
^DD(165.5,"GL","CNS2",44,1329)=""
^DD(165.5,"GL","CNS2",45,1330)=""
^DD(165.5,"GL","CNS2",46,1331)=""
^DD(165.5,"GL","CNS2",47,1332)=""
^DD(165.5,"GL","CNS2",48,1333)=""
^DD(165.5,"GL","CNS2",49,1334)=""
^DD(165.5,"GL","CNS2",50,1335)=""
^DD(165.5,"GL","CNS2",51,1336)=""
^DD(165.5,"GL","CNS2",52,1337)=""
^DD(165.5,"GL","CNS2",53,1338)=""
^DD(165.5,"GL","CNS2",54,1339)=""
^DD(165.5,"GL","CNS2",55,1340)=""
^DD(165.5,"GL","CNS2",56,1341)=""
^DD(165.5,"GL","CNS2",57,1342)=""
^DD(165.5,"GL","CNS2",58,1343)=""
^DD(165.5,"GL","CNS2",59,1344)=""
^DD(165.5,"GL","CNS2",60,1345)=""
^DD(165.5,"GL","CNS2",61,1346)=""
^DD(165.5,"GL","CNS2",62,1347)=""
^DD(165.5,"GL","CNS2",63,1348)=""
^DD(165.5,"GL","CNS2",64,1349)=""
^DD(165.5,"GL","CNS2",65,1350)=""
^DD(165.5,"GL","CNS2",66,1351)=""
^DD(165.5,"GL","CNS2",67,1352)=""
^DD(165.5,"GL","CNS2",68,1353)=""
^DD(165.5,"GL","CNS2",69,1354)=""
^DD(165.5,"GL","CNS2",70,1355)=""
^DD(165.5,"GL","CNS2",71,1356)=""
^DD(165.5,"GL","CNS2",72,1357)=""
^DD(165.5,"GL","CNS2",73,1358)=""
^DD(165.5,"GL","CNS2",74,1359)=""
^DD(165.5,"GL","CNS2",75,1360)=""
^DD(165.5,"GL","CNS2",76,1361)=""
^DD(165.5,"GL","CNS2",77,1362)=""
^DD(165.5,"GL","CNS2",78,1363)=""
^DD(165.5,"GL","CNS2",79,1364)=""
^DD(165.5,"GL","CNS2",80,1365)=""
^DD(165.5,"GL","CNS2",81,1366)=""
^DD(165.5,"GL","CNS2",82,1367)=""
^DD(165.5,"GL","CNS2",83,1368)=""
^DD(165.5,"GL","CNS2",84,1369)=""
^DD(165.5,"GL","CNS2",85,1370)=""
^DD(165.5,"GL","CNS2",86,1371)=""
^DD(165.5,"GL","CNS2",87,1372)=""
^DD(165.5,"GL","CNS2",88,1373)=""
^DD(165.5,"GL","CNS2",89,1374)=""
^DD(165.5,"GL","CNS2",90,1375)=""
^DD(165.5,"GL","CNS3",1,1376)=""
^DD(165.5,"GL","CNS3",2,1377)=""
^DD(165.5,"GL","CNS3",3,1378)=""
^DD(165.5,"GL","CNS3",4,1379)=""
^DD(165.5,"GL","CNS3",5,1380)=""
^DD(165.5,"GL","CNS3",6,1381)=""
^DD(165.5,"GL","CNS3",7,1382)=""
^DD(165.5,"GL","CNS3",8,1383)=""
^DD(165.5,"GL","CNS3",9,1384)=""
^DD(165.5,"GL","CNS3",10,1385)=""
^DD(165.5,"GL","CNS3",11,1386)=""
^DD(165.5,"GL","CNS3",12,1387)=""
^DD(165.5,"GL","CNS3",13,1388)=""
^DD(165.5,"GL","CNS3",14,1389)=""
^DD(165.5,"GL","CNS3",15,1390)=""
^DD(165.5,"GL","CNS3",16,1391)=""
^DD(165.5,"GL","CNS3",17,1392)=""
^DD(165.5,"GL","CNS3",18,1393)=""
^DD(165.5,"GL","CNS3",19,1394)=""
^DD(165.5,"GL","COL1",1,700)=""
^DD(165.5,"GL","COL1",2,701)=""
^DD(165.5,"GL","COL1",3,702)=""
^DD(165.5,"GL","COL1",4,703)=""
^DD(165.5,"GL","COL1",5,704)=""
^DD(165.5,"GL","COL1",6,705)=""
^DD(165.5,"GL","COL1",7,706)=""
^DD(165.5,"GL","COL1",8,707)=""
^DD(165.5,"GL","COL1",9,708)=""
^DD(165.5,"GL","COL1",10,709)=""
^DD(165.5,"GL","COL1",11,710)=""
^DD(165.5,"GL","COL1",12,711)=""
^DD(165.5,"GL","COL1",13,712)=""
^DD(165.5,"GL","COL1",14,713)=""
^DD(165.5,"GL","COL1",15,714)=""
^DD(165.5,"GL","COL1",16,715)=""
^DD(165.5,"GL","COL1",17,716)=""
^DD(165.5,"GL","COL1",18,717)=""
^DD(165.5,"GL","COL1",19,718)=""
^DD(165.5,"GL","COL1",20,719)=""
^DD(165.5,"GL","COL1",21,720)=""
^DD(165.5,"GL","COL1",22,721)=""
^DD(165.5,"GL","COL1",23,722)=""
^DD(165.5,"GL","COL1",24,723)=""
^DD(165.5,"GL","COL1",25,724)=""
^DD(165.5,"GL","COL1",26,725)=""
^DD(165.5,"GL","COL1",27,726)=""
^DD(165.5,"GL","COL1",28,727)=""
^DD(165.5,"GL","COL1",29,728)=""
^DD(165.5,"GL","COL1",30,729)=""
^DD(165.5,"GL","COL1",31,730)=""
^DD(165.5,"GL","COL1",32,731)=""
^DD(165.5,"GL","COL1",33,732)=""
^DD(165.5,"GL","COL1",34,733)=""
^DD(165.5,"GL","COL1",35,734)=""
^DD(165.5,"GL","COL1",36,735)=""
^DD(165.5,"GL","COL1",37,736)=""
^DD(165.5,"GL","COL1",38,737)=""
^DD(165.5,"GL","COL1",39,738)=""
^DD(165.5,"GL","COL1",40,739)=""
^DD(165.5,"GL","COL1",41,740)=""
^DD(165.5,"GL","COL1",42,741)=""
^DD(165.5,"GL","COL1",43,742)=""
^DD(165.5,"GL","COL1",44,743)=""
^DD(165.5,"GL","COL1",45,744)=""
^DD(165.5,"GL","COL1",46,745)=""
^DD(165.5,"GL","COL1",47,746)=""
^DD(165.5,"GL","COL1",48,747)=""
^DD(165.5,"GL","COL1",49,748)=""
^DD(165.5,"GL","COL1",50,749)=""
^DD(165.5,"GL","COL1",51,750)=""
^DD(165.5,"GL","COL1",52,751)=""
^DD(165.5,"GL","COL2",1,752)=""
^DD(165.5,"GL","COL2",2,753)=""
^DD(165.5,"GL","COL2",3,754)=""
^DD(165.5,"GL","COL2",4,755)=""
^DD(165.5,"GL","COL2",5,756)=""
^DD(165.5,"GL","COL2",6,757)=""
^DD(165.5,"GL","COL2",7,758)=""
^DD(165.5,"GL","COL2",8,759)=""
^DD(165.5,"GL","COL2",9,760)=""
^DD(165.5,"GL","COL2",10,761)=""
^DD(165.5,"GL","COL2",11,762)=""
^DD(165.5,"GL","COL2",12,763)=""
^DD(165.5,"GL","COL2",13,764)=""
^DD(165.5,"GL","COL2",14,765)=""
^DD(165.5,"GL","COL2",15,766)=""
^DD(165.5,"GL","COL2",16,767)=""
^DD(165.5,"GL","COL2",17,768)=""
^DD(165.5,"GL","COL2",18,769)=""
^DD(165.5,"GL","COL2",19,770)=""
^DD(165.5,"GL","COL2",20,771)=""
^DD(165.5,"GL","COL2",21,772)=""
^DD(165.5,"GL","COL2",22,773)=""
^DD(165.5,"GL","COL2",23,774)=""
^DD(165.5,"GL","COL2",24,775)=""
^DD(165.5,"GL","COL2",25,776)=""
^DD(165.5,"GL","COL2",26,777)=""
^DD(165.5,"GL","COL2",27,778)=""
^DD(165.5,"GL","COL2",28,779)=""
^DD(165.5,"GL","COL2",29,780)=""
^DD(165.5,"GL","COL2",30,781)=""
^DD(165.5,"GL","COL2",31,782)=""
^DD(165.5,"GL","COL2",32,783)=""
^DD(165.5,"GL","COL2",33,784)=""
^DD(165.5,"GL","COL2",34,785)=""
^DD(165.5,"GL","COL2",35,786)=""
^DD(165.5,"GL","COL2",36,787)=""
^DD(165.5,"GL","COL2",37,788)=""
^DD(165.5,"GL","COL2",38,789)=""
^DD(165.5,"GL","COL2",39,790)=""
^DD(165.5,"GL","COL2",40,791)=""
^DD(165.5,"GL","COL2",41,792)=""
^DD(165.5,"GL","COL2",42,793)=""
^DD(165.5,"GL","COL2",43,794)=""
^DD(165.5,"GL","COL2",44,795)=""
^DD(165.5,"GL","COL2",45,796)=""
^DD(165.5,"GL","COL2",46,797)=""
^DD(165.5,"GL","COL2",47,798)=""
^DD(165.5,"GL","COL2",48,799)=""
^DD(165.5,"GL","CS",1,29.1)=""
^DD(165.5,"GL","CS",2,32.1)=""
^DD(165.5,"GL","CS",3,34.3)=""
^DD(165.5,"GL","CS",4,34.4)=""
^DD(165.5,"GL","CS",5,44.1)=""
^DD(165.5,"GL","CS",6,44.2)=""
^DD(165.5,"GL","CS",7,44.3)=""
^DD(165.5,"GL","CS",8,44.4)=""
^DD(165.5,"GL","CS",9,44.5)=""
^DD(165.5,"GL","CS",10,44.6)=""
^DD(165.5,"GL","CS",11,30.2)=""
^DD(165.5,"GL","CS",12,31.1)=""
^DD(165.5,"GL","CS1",1,160)=""
^DD(165.5,"GL","CS1",2,161)=""
^DD(165.5,"GL","CS1",3,162)=""
^DD(165.5,"GL","CS1",4,163)=""
^DD(165.5,"GL","CS1",5,164)=""
^DD(165.5,"GL","CS1",6,165)=""
^DD(165.5,"GL","CS1",7,166)=""
^DD(165.5,"GL","CS1",8,167)=""
^DD(165.5,"GL","CS1",9,168)=""
^DD(165.5,"GL","CS1",10,29.2)=""
^DD(165.5,"GL","CS1",11,169)=""
^DD(165.5,"GL","DIV",1,2000)=""
^DD(165.5,"GL","EDITS",1,197)=""
^DD(165.5,"GL","GAS1",1,1500)=""
^DD(165.5,"GL","GAS1",2,1501)=""
^DD(165.5,"GL","GAS1",3,1502)=""
^DD(165.5,"GL","GAS1",4,1503)=""
^DD(165.5,"GL","GAS1",5,1504)=""
^DD(165.5,"GL","GAS1",6,1505)=""
^DD(165.5,"GL","GAS1",7,1506)=""
^DD(165.5,"GL","GAS1",8,1507)=""
^DD(165.5,"GL","GAS1",9,1508)=""
^DD(165.5,"GL","GAS1",10,1509)=""
^DD(165.5,"GL","GAS1",11,1510)=""
^DD(165.5,"GL","GAS1",12,1511)=""
^DD(165.5,"GL","GAS1",13,1512)=""
^DD(165.5,"GL","GAS1",14,1513)=""
^DD(165.5,"GL","GAS1",15,1514)=""
^DD(165.5,"GL","GAS1",16,1515)=""
^DD(165.5,"GL","GAS1",17,1516)=""
^DD(165.5,"GL","GAS1",18,1517)=""
^DD(165.5,"GL","GAS1",19,1518)=""
^DD(165.5,"GL","GAS1",20,1519)=""
^DD(165.5,"GL","GAS1",21,1520)=""
^DD(165.5,"GL","GAS1",22,1521)=""
^DD(165.5,"GL","GAS1",23,1522)=""
^DD(165.5,"GL","GAS1",24,1523)=""
^DD(165.5,"GL","GAS1",25,1524)=""
^DD(165.5,"GL","GAS1",26,1525)=""
^DD(165.5,"GL","GAS1",27,1526)=""
^DD(165.5,"GL","GAS1",28,1527)=""
^DD(165.5,"GL","GAS1",29,1528)=""
^DD(165.5,"GL","GAS1",30,1529)=""
^DD(165.5,"GL","GAS1",31,1530)=""
^DD(165.5,"GL","GAS1",32,1531)=""
^DD(165.5,"GL","GAS1",33,1532)=""
^DD(165.5,"GL","GAS1",34,1533)=""
^DD(165.5,"GL","GAS1",35,1534)=""
^DD(165.5,"GL","GAS1",36,1535)=""
^DD(165.5,"GL","GAS1",37,1536)=""
^DD(165.5,"GL","GAS1",38,1537)=""
^DD(165.5,"GL","GAS1",39,1538)=""
^DD(165.5,"GL","GAS1",40,1539)=""
^DD(165.5,"GL","GAS1",41,1540)=""
^DD(165.5,"GL","GAS1",42,1541)=""
^DD(165.5,"GL","GAS1",43,1542)=""
^DD(165.5,"GL","GAS1",44,1543)=""
^DD(165.5,"GL","GAS1",45,1544)=""
^DD(165.5,"GL","GAS1",46,1545)=""
^DD(165.5,"GL","GAS1",47,1545.1)=""
^DD(165.5,"GL","GAS1",48,1546)=""
^DD(165.5,"GL","GAS1",49,1547)=""
^DD(165.5,"GL","GAS1",50,1547.1)=""
^DD(165.5,"GL","GAS1",51,1547.2)=""
^DD(165.5,"GL","GAS1",52,1547.3)=""
^DD(165.5,"GL","GAS1",53,1547.4)=""
^DD(165.5,"GL","GAS1",54,1548)=""
^DD(165.5,"GL","GAS1",55,1549)=""
^DD(165.5,"GL","GAS1",56,1550)=""
^DD(165.5,"GL","GAS1",57,1551)=""
^DD(165.5,"GL","GAS1",58,1551.1)=""
^DD(165.5,"GL","GAS1",59,1551.2)=""
^DD(165.5,"GL","GAS1",60,1551.3)=""
^DD(165.5,"GL","GAS1",61,1551.4)=""
^DD(165.5,"GL","GAS1",62,1552)=""
^DD(165.5,"GL","GAS1",63,1553)=""
^DD(165.5,"GL","GAS1",64,1554)=""
^DD(165.5,"GL","GAS1",65,1554.1)=""
^DD(165.5,"GL","GAS1",66,1554.2)=""
^DD(165.5,"GL","GAS1",67,1554.3)=""
^DD(165.5,"GL","GAS1",68,1554.4)=""
^DD(165.5,"GL","GAS1",69,1554.5)=""
^DD(165.5,"GL","GAS1",70,1555)=""
^DD(165.5,"GL","GAS1",71,1556)=""
^DD(165.5,"GL","GAS1",72,1557)=""
^DD(165.5,"GL","GAS1",73,1558)=""
^DD(165.5,"GL","GAS1",74,1558.1)=""
^DD(165.5,"GL","GAS2",1,1559)=""
^DD(165.5,"GL","GAS2",2,1559.1)=""
^DD(165.5,"GL","GAS2",3,1559.2)=""
^DD(165.5,"GL","GAS2",4,1559.3)=""
^DD(165.5,"GL","GAS2",5,1559.4)=""
^DD(165.5,"GL","GAS2",6,1559.5)=""
^DD(165.5,"GL","GAS2",7,1559.6)=""
^DD(165.5,"GL","GAS2",8,1559.7)=""
^DD(165.5,"GL","GAS2",9,1559.8)=""
^DD(165.5,"GL","GAS2",10,1559.9)=""
^DD(165.5,"GL","GAS2",11,1560)=""
^DD(165.5,"GL","GAS2",12,1560.1)=""
^DD(165.5,"GL","GAS2",13,1560.2)=""
^DD(165.5,"GL","GAS2",14,1560.3)=""
^DD(165.5,"GL","GAS2",15,1560.4)=""
^DD(165.5,"GL","GAS2",16,1561)=""
^DD(165.5,"GL","GAS2",17,1562)=""
^DD(165.5,"GL","GAS2",18,1563)=""
^DD(165.5,"GL","GAS2",19,1564)=""
^DD(165.5,"GL","GAS2",20,1565)=""
^DD(165.5,"GL","GAS2",21,1565.1)=""
^DD(165.5,"GL","GAS2",22,1565.2)=""
^DD(165.5,"GL","GAS2",23,1565.3)=""
^DD(165.5,"GL","GAS2",24,1565.4)=""
^DD(165.5,"GL","GAS2",25,1565.5)=""
^DD(165.5,"GL","GAS2",26,1565.6)=""
^DD(165.5,"GL","GAS2",27,1565.7)=""
^DD(165.5,"GL","GAS2",28,1566)=""
^DD(165.5,"GL","GAS2",29,1567)=""
^DD(165.5,"GL","GAS2",30,1568)=""
^DD(165.5,"GL","GAS2",31,1569)=""
^DD(165.5,"GL","GAS2",32,1570)=""
^DD(165.5,"GL","GAS2",33,1571)=""
^DD(165.5,"GL","GAS2",34,1571.1)=""
^DD(165.5,"GL","GAS2",35,1571.2)=""
^DD(165.5,"GL","GAS2",36,1571.3)=""
^DD(165.5,"GL","GAS2",37,1571.4)=""
^DD(165.5,"GL","GAS2",38,1571.5)=""
^DD(165.5,"GL","GAS2",39,1572)=""
^DD(165.5,"GL","GAS2",40,1573)=""
^DD(165.5,"GL","GAS2",41,1574)=""
^DD(165.5,"GL","GAS2",42,1575)=""
^DD(165.5,"GL","GAS2",43,1576)=""
^DD(165.5,"GL","GAS2",44,1576.1)=""
^DD(165.5,"GL","GAS2",45,1576.2)=""
^DD(165.5,"GL","GAS2",46,1577)=""
^DD(165.5,"GL","GAS2",47,1578)=""
^DD(165.5,"GL","GAS2",48,1579)=""
^DD(165.5,"GL","GAS2",49,1579.1)=""
^DD(165.5,"GL","GAS2",50,1579.2)=""
^DD(165.5,"GL","GAS2",51,1579.3)=""
^DD(165.5,"GL","GAS2",52,1579.4)=""
^DD(165.5,"GL","HEP1",1,1000)=""
^DD(165.5,"GL","HEP1",2,1001)=""
^DD(165.5,"GL","HEP1",3,1002)=""
^DD(165.5,"GL","HEP1",4,1003)=""
^DD(165.5,"GL","HEP1",5,1004)=""
^DD(165.5,"GL","HEP1",6,1005)=""
^DD(165.5,"GL","HEP1",7,1006)=""
^DD(165.5,"GL","HEP1",8,1007)=""
^DD(165.5,"GL","HEP1",9,1008)=""
^DD(165.5,"GL","HEP1",10,1009)=""
^DD(165.5,"GL","HEP1",11,1010)=""
^DD(165.5,"GL","HEP1",12,1011)=""
^DD(165.5,"GL","HEP1",13,1012)=""
^DD(165.5,"GL","HEP1",14,1013)=""
^DD(165.5,"GL","HEP1",15,1014)=""
^DD(165.5,"GL","HEP1",16,1015)=""
^DD(165.5,"GL","HEP1",17,1016)=""
^DD(165.5,"GL","HEP1",18,1017)=""
^DD(165.5,"GL","HEP1",19,1018)=""
^DD(165.5,"GL","HEP1",20,1019)=""
^DD(165.5,"GL","HEP1",21,1020)=""
^DD(165.5,"GL","HEP1",22,1021)=""
^DD(165.5,"GL","HEP1",23,1022)=""
^DD(165.5,"GL","HEP1",24,1023)=""
^DD(165.5,"GL","HEP1",25,1024)=""
^DD(165.5,"GL","HEP1",26,1025)=""
^DD(165.5,"GL","HEP1",27,1026)=""
^DD(165.5,"GL","HEP1",28,1027)=""
^DD(165.5,"GL","HEP1",29,1028)=""
^DD(165.5,"GL","HEP1",30,1029)=""
^DD(165.5,"GL","HEP1",31,1030)=""
^DD(165.5,"GL","HEP1",32,1031)=""
^DD(165.5,"GL","HEP1",33,1032)=""
^DD(165.5,"GL","HEP1",34,1033)=""
^DD(165.5,"GL","HEP1",35,1034)=""
^DD(165.5,"GL","HEP1",36,1035)=""
^DD(165.5,"GL","HEP1",37,1036)=""
^DD(165.5,"GL","HEP1",38,1037)=""
^DD(165.5,"GL","HEP1",39,1038)=""
^DD(165.5,"GL","HEP1",40,1039)=""
^DD(165.5,"GL","HEP1",41,1040)=""
^DD(165.5,"GL","HEP1",42,1041)=""
^DD(165.5,"GL","HEP1",43,1042)=""
^DD(165.5,"GL","HEP1",44,1043)=""
^DD(165.5,"GL","HEP1",45,1044)=""
^DD(165.5,"GL","HEP1",46,1045)=""
^DD(165.5,"GL","HEP1",47,1046)=""
^DD(165.5,"GL","HEP1",48,1047)=""
^DD(165.5,"GL","HEP1",49,1048)=""
^DD(165.5,"GL","HEP1",50,1049)=""
^DD(165.5,"GL","HEP1",51,1050)=""
^DD(165.5,"GL","HEP1",52,1051)=""
^DD(165.5,"GL","HEP1",53,1052)=""
^DD(165.5,"GL","HEP1",54,1053)=""
^DD(165.5,"GL","HEP1",55,1054)=""
^DD(165.5,"GL","HEP1",56,1055)=""
^DD(165.5,"GL","HEP1",57,1056)=""
^DD(165.5,"GL","HEP1",58,1057)=""
^DD(165.5,"GL","HEP1",59,1058)=""
^DD(165.5,"GL","HEP1",60,1059)=""
^DD(165.5,"GL","HEP1",61,1060)=""
^DD(165.5,"GL","HEP1",62,1061)=""
^DD(165.5,"GL","HEP1",63,1062)=""
^DD(165.5,"GL","HEP1",64,1063)=""
^DD(165.5,"GL","HEP1",65,1064)=""
^DD(165.5,"GL","HEP1",66,1065)=""
^DD(165.5,"GL","HEP1",67,1066)=""
^DD(165.5,"GL","HEP1",68,1067)=""
^DD(165.5,"GL","HEP1",69,1068)=""
^DD(165.5,"GL","HEP1",70,1069)=""
^DD(165.5,"GL","HEP1",71,1070)=""
^DD(165.5,"GL","HEP1",72,1071)=""
^DD(165.5,"GL","HEP1",73,1072)=""
^DD(165.5,"GL","LUN1",1,1400)=""
^DD(165.5,"GL","LUN1",2,1400.1)=""
^DD(165.5,"GL","LUN1",3,1400.2)=""
^DD(165.5,"GL","LUN1",4,1400.3)=""
^DD(165.5,"GL","LUN1",5,1400.4)=""
^DD(165.5,"GL","LUN1",6,1400.5)=""
^DD(165.5,"GL","LUN1",7,1401)=""
^DD(165.5,"GL","LUN1",8,1402)=""
^DD(165.5,"GL","LUN1",9,1403)=""
^DD(165.5,"GL","LUN1",10,1404)=""
^DD(165.5,"GL","LUN1",11,1404.1)=""
^DD(165.5,"GL","LUN1",12,1404.2)=""
^DD(165.5,"GL","LUN1",13,1404.3)=""
^DD(165.5,"GL","LUN1",14,1404.4)=""
^DD(165.5,"GL","LUN1",15,1405)=""
^DD(165.5,"GL","LUN1",16,1405.1)=""
^DD(165.5,"GL","LUN1",17,1405.2)=""
^DD(165.5,"GL","LUN1",18,1406)=""
^DD(165.5,"GL","LUN1",19,1406.1)=""
^DD(165.5,"GL","LUN1",20,1406.2)=""
^DD(165.5,"GL","LUN1",21,1406.3)=""
^DD(165.5,"GL","LUN1",22,1406.4)=""
^DD(165.5,"GL","LUN1",23,1406.5)=""
^DD(165.5,"GL","LUN1",24,1407)=""
^DD(165.5,"GL","LUN1",25,1407.1)=""
^DD(165.5,"GL","LUN1",26,1408)=""
^DD(165.5,"GL","LUN1",27,1409)=""
^DD(165.5,"GL","LUN1",28,1409.1)=""
^DD(165.5,"GL","LUN1",29,1409.2)=""
^DD(165.5,"GL","LUN1",30,1409.3)=""
^DD(165.5,"GL","LUN1",31,1409.4)=""
^DD(165.5,"GL","LUN1",32,1409.5)=""
^DD(165.5,"GL","LUN1",33,1409.6)=""
^DD(165.5,"GL","LUN1",34,1410)=""
^DD(165.5,"GL","LUN1",35,1410.1)=""
^DD(165.5,"GL","LUN1",36,1410.2)=""
^DD(165.5,"GL","LUN1",37,1410.3)=""
^DD(165.5,"GL","LUN1",38,1410.4)=""
^DD(165.5,"GL","LUN1",39,1410.5)=""
^DD(165.5,"GL","LUN1",40,1410.6)=""
^DD(165.5,"GL","LUN1",41,1411)=""
^DD(165.5,"GL","LUN1",42,1411.1)=""
^DD(165.5,"GL","LUN1",43,1411.2)=""
^DD(165.5,"GL","LUN1",44,1411.3)=""
^DD(165.5,"GL","LUN1",45,1411.4)=""
^DD(165.5,"GL","LUN1",46,1411.5)=""
^DD(165.5,"GL","LUN1",47,1411.6)=""
^DD(165.5,"GL","LUN1",48,1412)=""
^DD(165.5,"GL","LUN1",49,1412.1)=""
^DD(165.5,"GL","LUN1",50,1412.2)=""
^DD(165.5,"GL","LUN1",51,1412.3)=""
^DD(165.5,"GL","LUN1",52,1412.4)=""
^DD(165.5,"GL","LUN1",53,1412.5)=""
^DD(165.5,"GL","LUN1",54,1412.6)=""
^DD(165.5,"GL","LUN1",55,1413)=""
^DD(165.5,"GL","LUN1",56,1413.1)=""
^DD(165.5,"GL","LUN1",57,1413.2)=""
^DD(165.5,"GL","LUN1",58,1413.3)=""
^DD(165.5,"GL","LUN1",59,1413.4)=""
^DD(165.5,"GL","LUN1",60,1413.5)=""
^DD(165.5,"GL","LUN1",61,1413.6)=""
^DD(165.5,"GL","LUN1",62,1414)=""
^DD(165.5,"GL","LUN1",63,1414.1)=""
^DD(165.5,"GL","LUN1",64,1414.2)=""
^DD(165.5,"GL","LUN1",65,1414.3)=""
^DD(165.5,"GL","LUN1",66,1414.4)=""
^DD(165.5,"GL","LUN1",67,1414.5)=""
^DD(165.5,"GL","LUN1",68,1414.6)=""
^DD(165.5,"GL","LUN1",69,1415)=""
^DD(165.5,"GL","LUN1",70,1415.1)=""
^DD(165.5,"GL","LUN1",71,1415.2)=""
^DD(165.5,"GL","LUN1",72,1415.3)=""
^DD(165.5,"GL","LUN1",73,1415.4)=""
^DD(165.5,"GL","LUN1",74,1415.5)=""
^DD(165.5,"GL","LUN1",75,1415.6)=""
^DD(165.5,"GL","LUN1",76,1400.6)=""
^DD(165.5,"GL","LUN2",1,1416)=""
^DD(165.5,"GL","LUN2",2,1416.1)=""
^DD(165.5,"GL","LUN2",3,1416.2)=""
^DD(165.5,"GL","LUN2",4,1416.3)=""
^DD(165.5,"GL","LUN2",5,1416.4)=""
^DD(165.5,"GL","LUN2",6,1416.5)=""
^DD(165.5,"GL","LUN2",7,1416.6)=""
^DD(165.5,"GL","LUN2",8,1416.7)=""
^DD(165.5,"GL","LUN2",9,1416.8)=""
^DD(165.5,"GL","LUN2",10,1417)=""
^DD(165.5,"GL","LUN2",11,1418)=""
^DD(165.5,"GL","LUN2",12,1418.1)=""
^DD(165.5,"GL","LUN2",13,1418.2)=""
^DD(165.5,"GL","LUN2",14,1418.3)=""
^DD(165.5,"GL","LUN2",15,1418.4)=""
^DD(165.5,"GL","LUN2",16,1419)=""
^DD(165.5,"GL","LUN2",17,1419.1)=""
^DD(165.5,"GL","LUN2",18,1419.2)=""
^DD(165.5,"GL","LUN2",19,1419.3)=""
^DD(165.5,"GL","LUN2",20,1419.4)=""
^DD(165.5,"GL","LUN2",21,1419.5)=""
^DD(165.5,"GL","LUN2",22,1419.6)=""
^DD(165.5,"GL","LUN2",23,1419.7)=""
^DD(165.5,"GL","LUN2",24,1419.8)=""
^DD(165.5,"GL","LUN2",25,1420)=""
^DD(165.5,"GL","LUN2",26,1421)=""
^DD(165.5,"GL","LUN2",27,1422)=""
^DD(165.5,"GL","LUN2",28,1423)=""
^DD(165.5,"GL","LUN2",29,1423.1)=""
^DD(165.5,"GL","LUN2",30,1423.2)=""
^DD(165.5,"GL","LUN2",31,1424)=""
^DD(165.5,"GL","LUN2",32,1425)=""
^DD(165.5,"GL","LUN2",33,1426)=""
^DD(165.5,"GL","LUN2",34,1426.1)=""
^DD(165.5,"GL","LUN2",35,1426.2)=""
^DD(165.5,"GL","LUN2",36,1426.3)=""
^DD(165.5,"GL","LUN2",37,1426.4)=""
^DD(165.5,"GL","LUN2",38,1427)=""
^DD(165.5,"GL","LUN2",39,1428)=""
^DD(165.5,"GL","LUN2",40,1426.5)=""
^DD(165.5,"GL","LUN2",41,1429)=""
^DD(165.5,"GL","LUN2",42,1429.1)=""
^DD(165.5,"GL","LUN2",43,1430)=""
^DD(165.5,"GL","MEL1",1,1100)=""
^DD(165.5,"GL","MEL1",2,1101)=""
^DD(165.5,"GL","MEL1",3,1102)=""
^DD(165.5,"GL","MEL1",4,1103)=""
^DD(165.5,"GL","MEL1",5,1104)=""
^DD(165.5,"GL","MEL1",6,1105)=""
^DD(165.5,"GL","MEL1",7,1106)=""
^DD(165.5,"GL","MEL1",8,1107)=""
^DD(165.5,"GL","MEL1",9,1108)=""
^DD(165.5,"GL","MEL1",10,1109)=""
^DD(165.5,"GL","MEL1",11,1110)=""
^DD(165.5,"GL","MEL1",12,1111)=""
^DD(165.5,"GL","MEL1",13,1112)=""
^DD(165.5,"GL","MEL1",14,1113)=""
^DD(165.5,"GL","MEL1",15,1114)=""
^DD(165.5,"GL","MEL1",16,1115)=""
^DD(165.5,"GL","MEL1",17,1116)=""
^DD(165.5,"GL","MEL1",18,1117)=""
^DD(165.5,"GL","MEL1",19,1118)=""
^DD(165.5,"GL","MEL1",20,1119)=""
^DD(165.5,"GL","MEL1",21,1120)=""
^DD(165.5,"GL","MEL1",22,1121)=""
^DD(165.5,"GL","MEL1",23,1122)=""
^DD(165.5,"GL","MEL1",24,1123)=""
^DD(165.5,"GL","MEL1",25,1124)=""
^DD(165.5,"GL","MEL1",26,1125)=""
^DD(165.5,"GL","MEL1",27,1126)=""
^DD(165.5,"GL","MEL1",28,1127)=""
^DD(165.5,"GL","MEL1",29,1128)=""
^DD(165.5,"GL","MEL1",30,1129)=""
^DD(165.5,"GL","MEL1",31,1130)=""
^DD(165.5,"GL","MEL1",32,1131)=""
^DD(165.5,"GL","MEL1",33,1132)=""
^DD(165.5,"GL","NHL1",1,800)=""
^DD(165.5,"GL","NHL1",2,801)=""
^DD(165.5,"GL","NHL1",3,802)=""
^DD(165.5,"GL","NHL1",4,803)=""
^DD(165.5,"GL","NHL1",5,804)=""
^DD(165.5,"GL","NHL1",6,805)=""
^DD(165.5,"GL","NHL1",7,806)=""
^DD(165.5,"GL","NHL1",8,807)=""
^DD(165.5,"GL","NHL1",9,808)=""
^DD(165.5,"GL","NHL1",10,809)=""
^DD(165.5,"GL","NHL1",11,810)=""
^DD(165.5,"GL","NHL1",12,811)=""
^DD(165.5,"GL","NHL1",13,812)=""
^DD(165.5,"GL","NHL1",14,813)=""
^DD(165.5,"GL","NHL1",15,814)=""
^DD(165.5,"GL","NHL1",16,815)=""
^DD(165.5,"GL","NHL1",17,816)=""
^DD(165.5,"GL","NHL1",18,817)=""
^DD(165.5,"GL","NHL1",19,818)=""
^DD(165.5,"GL","NHL1",20,819)=""
^DD(165.5,"GL","NHL1",21,820)=""
^DD(165.5,"GL","NHL1",22,821)=""
^DD(165.5,"GL","NHL1",23,822)=""
^DD(165.5,"GL","NHL1",24,823)=""
^DD(165.5,"GL","NHL1",25,824)=""
^DD(165.5,"GL","NHL1",26,825)=""
^DD(165.5,"GL","NHL1",27,826)=""
^DD(165.5,"GL","NHL1",28,827)=""
^DD(165.5,"GL","NHL1",29,828)=""
^DD(165.5,"GL","NHL1",30,829)=""
^DD(165.5,"GL","NHL1",31,830)=""
^DD(165.5,"GL","NHL1",32,831)=""
^DD(165.5,"GL","NHL1",33,832)=""
^DD(165.5,"GL","NHL1",34,833)=""
^DD(165.5,"GL","NHL1",35,834)=""
^DD(165.5,"GL","NHL1",36,835)=""
^DD(165.5,"GL","NHL1",37,836)=""
^DD(165.5,"GL","NHL1",38,837)=""
^DD(165.5,"GL","NHL1",39,838)=""
^DD(165.5,"GL","NHL1",40,839)=""
^DD(165.5,"GL","NHL1",41,840)=""
^DD(165.5,"GL","NHL1",42,841)=""
^DD(165.5,"GL","NHL1",43,842)=""
^DD(165.5,"GL","NHL1",44,843)=""
^DD(165.5,"GL","NHL1",45,844)=""
^DD(165.5,"GL","NHL1",46,845)=""
^DD(165.5,"GL","NHL2",1,846)=""
^DD(165.5,"GL","NHL2",2,847)=""
^DD(165.5,"GL","NHL2",3,848)=""
^DD(165.5,"GL","NHL2",4,849)=""
^DD(165.5,"GL","NHL2",5,850)=""
^DD(165.5,"GL","NHL2",6,851)=""
^DD(165.5,"GL","NHL2",7,852)=""
^DD(165.5,"GL","NHL2",8,853)=""
^DD(165.5,"GL","NHL2",9,854)=""
^DD(165.5,"GL","NHL2",10,855)=""
^DD(165.5,"GL","NHL2",11,856)=""
^DD(165.5,"GL","NHL2",12,857)=""
^DD(165.5,"GL","NHL2",13,858)=""
^DD(165.5,"GL","NHL2",14,859)=""
^DD(165.5,"GL","NHL2",15,860)=""
^DD(165.5,"GL","NHL2",16,861)=""
^DD(165.5,"GL","NHL2",17,862)=""
^DD(165.5,"GL","NHL2",18,863)=""
^DD(165.5,"GL","NHL2",19,864)=""
^DD(165.5,"GL","NHL2",20,865)=""
^DD(165.5,"GL","NHL2",21,866)=""
^DD(165.5,"GL","NHL2",22,867)=""
^DD(165.5,"GL","NHL2",23,868)=""
^DD(165.5,"GL","NHL2",24,869)=""
^DD(165.5,"GL","NHL2",25,870)=""
^DD(165.5,"GL","NHL2",26,871)=""
^DD(165.5,"GL","NHL2",27,872)=""
^DD(165.5,"GL","NHL2",28,873)=""
^DD(165.5,"GL","NHL2",29,874)=""
^DD(165.5,"GL","NHL2",30,875)=""
^DD(165.5,"GL","NHL2",31,876)=""
^DD(165.5,"GL","NHL2",32,877)=""
^DD(165.5,"GL","NHL2",33,878)=""
^DD(165.5,"GL","NHL2",34,879)=""
^DD(165.5,"GL","NHL2",35,880)=""
^DD(165.5,"GL","NHL2",36,881)=""
^DD(165.5,"GL","NHL2",37,882)=""
^DD(165.5,"GL","NHL2",38,883)=""
^DD(165.5,"GL","NHL2",39,884)=""
^DD(165.5,"GL","OVRD",1,205)=""
^DD(165.5,"GL","OVRD",2,206)=""
^DD(165.5,"GL","OVRD",3,207)=""
^DD(165.5,"GL","OVRD",4,208)=""
^DD(165.5,"GL","OVRD",5,209)=""
^DD(165.5,"GL","OVRD",6,210)=""
^DD(165.5,"GL","OVRD",7,211)=""
^DD(165.5,"GL","OVRD",8,212)=""
^DD(165.5,"GL","OVRD",9,213)=""
^DD(165.5,"GL","OVRD",10,214)=""
^DD(165.5,"GL","OVRD",11,215)=""
^DD(165.5,"GL","OVRD",12,216)=""
^DD(165.5,"GL","OVRD",13,217)=""
^DD(165.5,"GL","OVRD",14,218)=""
^DD(165.5,"GL","OVRD",15,219)=""
^DD(165.5,"GL","OVRD",16,220)=""
^DD(165.5,"GL","OVRD",17,221)=""
^DD(165.5,"GL","OVRD",18,222)=""
^DD(165.5,"GL","OVRD",19,223)=""
^DD(165.5,"GL","OVRD",20,224)=""
^DD(165.5,"GL","OVRD",21,225)=""
^DD(165.5,"GL","OVRD",22,226)=""
^DD(165.5,"GL","PRO1",1,600)=""
^DD(165.5,"GL","PRO1",2,601)=""
^DD(165.5,"GL","PRO1",3,602)=""
^DD(165.5,"GL","PRO1",4,603)=""
^DD(165.5,"GL","PRO1",5,604)=""
^DD(165.5,"GL","PRO1",6,605)=""
^DD(165.5,"GL","PRO1",7,606)=""
^DD(165.5,"GL","PRO1",8,607)=""
^DD(165.5,"GL","PRO1",9,608)=""
^DD(165.5,"GL","PRO1",10,609)=""
^DD(165.5,"GL","PRO1",11,610)=""
^DD(165.5,"GL","PRO1",12,611)=""
^DD(165.5,"GL","PRO1",13,612)=""
^DD(165.5,"GL","PRO1",14,613)=""
^DD(165.5,"GL","PRO1",15,614)=""
^DD(165.5,"GL","PRO1",16,615)=""
^DD(165.5,"GL","PRO1",17,616)=""
^DD(165.5,"GL","PRO1",18,617)=""
^DD(165.5,"GL","PRO1",19,618)=""
^DD(165.5,"GL","PRO1",20,619)=""
^DD(165.5,"GL","PRO1",21,620)=""
^DD(165.5,"GL","PRO1",22,621)=""
^DD(165.5,"GL","PRO1",23,622)=""
^DD(165.5,"GL","PRO1",24,623)=""
^DD(165.5,"GL","PRO1",25,624)=""
^DD(165.5,"GL","PRO1",26,625)=""
^DD(165.5,"GL","PRO1",27,626)=""
^DD(165.5,"GL","PRO1",28,627)=""
^DD(165.5,"GL","PRO1",29,628)=""
^DD(165.5,"GL","PRO1",30,629)=""
^DD(165.5,"GL","PRO1",31,630)=""
^DD(165.5,"GL","PRO1",32,631)=""
^DD(165.5,"GL","PRO1",33,632)=""
^DD(165.5,"GL","PRO1",34,633)=""
^DD(165.5,"GL","PRO1",35,634)=""
^DD(165.5,"GL","PRO1",36,635)=""
^DD(165.5,"GL","PRO1",37,636)=""
^DD(165.5,"GL","PRO1",38,637)=""
^DD(165.5,"GL","PRO1",39,638)=""
^DD(165.5,"GL","PRO1",40,639)=""
^DD(165.5,"GL","PRO1",41,640)=""
^DD(165.5,"GL","PRO1",42,641)=""
^DD(165.5,"GL","PRO1",43,642)=""
^DD(165.5,"GL","PRO1",44,643)=""
^DD(165.5,"GL","PRO1",45,644)=""
^DD(165.5,"GL","PRO1",46,645)=""
^DD(165.5,"GL","PRO1",47,646)=""
^DD(165.5,"GL","PRO1",48,647)=""
^DD(165.5,"GL","PRO1",49,648)=""
^DD(165.5,"GL","PRO1",50,649)=""
^DD(165.5,"GL","PRO1",51,650)=""
^DD(165.5,"GL","PRO1",52,651)=""
^DD(165.5,"GL","PRO1",53,652)=""
^DD(165.5,"GL","PRO1",54,653)=""
^DD(165.5,"GL","PRO1",55,654)=""
^DD(165.5,"GL","PRO1",56,655)=""
^DD(165.5,"GL","PRO1",57,656)=""
^DD(165.5,"GL","PRO2",1,657)=""
^DD(165.5,"GL","PRO2",2,658)=""
^DD(165.5,"GL","PRO2",3,659)=""
^DD(165.5,"GL","PRO2",4,660)=""
^DD(165.5,"GL","PRO2",5,661)=""
^DD(165.5,"GL","PRO2",6,662)=""
^DD(165.5,"GL","PRO2",7,663)=""
^DD(165.5,"GL","PRO2",8,664)=""
^DD(165.5,"GL","PRO2",9,665)=""
^DD(165.5,"GL","PRO2",10,666)=""
^DD(165.5,"GL","PRO2",11,667)=""
^DD(165.5,"GL","PRO2",12,668)=""
^DD(165.5,"GL","PRO2",13,669)=""
^DD(165.5,"GL","PRO2",14,670)=""
^DD(165.5,"GL","PRO2",15,671)=""
^DD(165.5,"GL","PRO2",16,672)=""
^DD(165.5,"GL","PRO2",17,673)=""
^DD(165.5,"GL","PRO2",18,674)=""
^DD(165.5,"GL","PRO2",19,675)=""
^DD(165.5,"GL","PRO2",20,676)=""
^DD(165.5,"GL","PRO2",21,677)=""
^DD(165.5,"GL","PRO2",22,678)=""
^DD(165.5,"GL","PRO2",23,679)=""
^DD(165.5,"GL","PRO2",24,680)=""
^DD(165.5,"GL","PRO2",25,681)=""
^DD(165.5,"GL","PRO2",26,682)=""
^DD(165.5,"GL","PRO2",27,683)=""
^DD(165.5,"GL","PRO2",28,684)=""
^DD(165.5,"GL","PRO2",29,685)=""
^DD(165.5,"GL","PRO2",30,686)=""
^DD(165.5,"GL","PRO2",31,687)=""
^DD(165.5,"GL","PRO2",32,688)=""
^DD(165.5,"GL","PRO2",33,689)=""
^DD(165.5,"GL","PRO2",34,690)=""
^DD(165.5,"GL","PRO2",35,691)=""
^DD(165.5,"GL","PRO2",36,692)=""
^DD(165.5,"GL","PRO2",37,693)=""
^DD(165.5,"GL","PRO2",38,694)=""
^DD(165.5,"GL","PRO2",39,695)=""
^DD(165.5,"GL","PRO2",40,696)=""
^DD(165.5,"GL","PRO2",41,697)=""
^DD(165.5,"GL","PRO2",42,698)=""
^DD(165.5,"GL","PRO2",43,623.1)=""
^DD(165.5,"GL","PRO2",44,623.2)=""
^DD(165.5,"GL","PRO2",45,623.3)=""
^DD(165.5,"GL","PRO2",46,623.4)=""
^DD(165.5,"GL","PRO2",47,623.5)=""
^DD(165.5,"GL","PRO2",48,699)=""
^DD(165.5,"GL","PRO2",49,699.1)=""
^DD(165.5,"GL","PRO2",50,96)=""
^DD(165.5,"GL","STS1",1,500)=""
^DD(165.5,"GL","STS1",2,501)=""
^DD(165.5,"GL","STS1",3,502)=""
^DD(165.5,"GL","STS1",4,503)=""
^DD(165.5,"GL","STS1",5,504)=""
^DD(165.5,"GL","STS1",6,505)=""
^DD(165.5,"GL","STS1",7,506)=""
^DD(165.5,"GL","STS1",8,507)=""
^DD(165.5,"GL","STS1",9,508)=""
^DD(165.5,"GL","STS1",10,509)=""
^DD(165.5,"GL","STS1",11,510)=""
^DD(165.5,"GL","STS1",12,511)=""
^DD(165.5,"GL","STS1",13,512)=""
^DD(165.5,"GL","STS1",14,513)=""
^DD(165.5,"GL","STS1",15,514)=""
^DD(165.5,"GL","STS1",16,515)=""
^DD(165.5,"GL","STS1",17,516)=""
^DD(165.5,"GL","STS1",18,517)=""
^DD(165.5,"GL","STS1",19,518)=""
^DD(165.5,"GL","STS1",20,519)=""
^DD(165.5,"GL","STS1",21,520)=""
^DD(165.5,"GL","STS1",22,521)=""
^DD(165.5,"GL","STS1",23,522)=""
^DD(165.5,"GL","STS1",24,523)=""
^DD(165.5,"GL","STS1",25,524)=""
^DD(165.5,"GL","STS1",26,525)=""
^DD(165.5,"GL","STS1",27,528)=""
^DD(165.5,"GL","STS1",28,529)=""
^DD(165.5,"GL","STS1",29,530)=""
^DD(165.5,"GL","STS1",30,531)=""
^DD(165.5,"GL","STS2",1,526)=""
^DD(165.5,"GL","STS2",2,527)=""
^DD(165.5,"GL","STS2",3,532)=""
^DD(165.5,"GL","STS2",4,533)=""
^DD(165.5,"GL","STS2",5,534)=""
^DD(165.5,"GL","STS2",6,535)=""
^DD(165.5,"GL","STS2",7,536)=""
^DD(165.5,"GL","STS2",8,537)=""
^DD(165.5,"GL","STS2",9,538)=""
^DD(165.5,"GL","STS2",10,539)=""
^DD(165.5,"GL","STS2",11,540)=""
^DD(165.5,"GL","STS2",12,541)=""
^DD(165.5,"GL","STS2",13,542)=""
^DD(165.5,"GL","STS2",14,543)=""
^DD(165.5,"GL","STS2",15,544)=""
^DD(165.5,"GL","STS2",16,545)=""
^DD(165.5,"GL","STS2",17,546)=""
^DD(165.5,"GL","STS2",18,547)=""
^DD(165.5,"GL","STS2",19,548)=""
^DD(165.5,"GL","STS2",20,549)=""
^DD(165.5,"GL","STS2",21,550)=""
^DD(165.5,"GL","STS2",22,551)=""
^DD(165.5,"GL","STS2",23,552)=""
^DD(165.5,"GL","STS2",24,553)=""
^DD(165.5,"GL","STS2",25,554)=""
^DD(165.5,"GL","STS2",26,555)=""
^DD(165.5,"GL","STS2",27,556)=""
^DD(165.5,"GL","STS2",28,557)=""
^DD(165.5,"GL","STS2",29,558)=""
^DD(165.5,"GL","STS2",30,559)=""
^DD(165.5,"GL","STS2",31,560)=""
^DD(165.5,"GL","STS2",32,561)=""
^DD(165.5,"GL","STS2",33,562)=""
^DD(165.5,"GL","STS2",34,563)=""
^DD(165.5,"GL","STS2",35,564)=""
^DD(165.5,"GL","STS2",36,565)=""
^DD(165.5,"GL","STS2",37,566)=""
^DD(165.5,"GL","STS2",38,567)=""
^DD(165.5,"GL","THY1",1,400)=""
^DD(165.5,"GL","THY1",2,401)=""
^DD(165.5,"GL","THY1",3,402)=""
^DD(165.5,"GL","THY1",4,403)=""
^DD(165.5,"GL","THY1",5,404)=""
^DD(165.5,"GL","THY1",6,405)=""
^DD(165.5,"GL","THY1",7,406)=""
^DD(165.5,"GL","THY1",8,407)=""
^DD(165.5,"GL","THY1",9,408)=""
^DD(165.5,"GL","THY1",10,409)=""
^DD(165.5,"GL","THY1",11,410)=""
^DD(165.5,"GL","THY1",12,411)=""
^DD(165.5,"GL","THY1",13,412)=""
^DD(165.5,"GL","THY1",14,413)=""
^DD(165.5,"GL","THY1",15,414)=""
^DD(165.5,"GL","THY1",16,415)=""
^DD(165.5,"GL","THY1",17,416)=""
^DD(165.5,"GL","THY1",18,417)=""
^DD(165.5,"GL","THY1",19,418)=""
^DD(165.5,"GL","THY1",20,419)=""
^DD(165.5,"GL","THY1",21,420)=""
^DD(165.5,"GL","THY1",22,421)=""
^DD(165.5,"GL","THY1",23,422)=""
^DD(165.5,"GL","THY1",24,423)=""
^DD(165.5,"GL","THY1",25,424)=""
^DD(165.5,"GL","THY1",26,425)=""
^DD(165.5,"GL","THY1",27,426)=""
^DD(165.5,"GL","THY1",28,427)=""
^DD(165.5,"GL","THY1",29,428)=""
^DD(165.5,"GL","THY1",30,429)=""
^DD(165.5,"GL","THY1",31,430)=""
^DD(165.5,"GL","THY1",32,431)=""
^DD(165.5,"GL","THY1",33,432)=""
^DD(165.5,"GL","THY1",34,433)=""
^DD(165.5,"GL","THY1",35,434)=""
^DD(165.5,"GL","THY1",36,435)=""
^DD(165.5,"GL","THY1",37,436)=""
^DD(165.5,"GL","THY1",38,437)=""
^DD(165.5,"GL","THY1",39,438)=""
^DD(165.5,"GL","THY1",40,439)=""
^DD(165.5,"GL","THY1",41,440)=""
^DD(165.5,"GL","THY1",42,441)=""
^DD(165.5,"GL","THY1",43,442)=""
^DD(165.5,"GL","THY1",44,443)=""
^DD(165.5,"GL","THY1",45,444)=""
^DD(165.5,"GL","THY1",46,445)=""
^DD(165.5,"GL","THY1",47,446)=""
^DD(165.5,"GL","TS",0,73)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",2,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",2.2,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",2.3,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",2.4,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",6,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",7,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",8,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",9,1)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",11,2)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",51.3,2)=""
^DD(165.5,"GR","ACOS-RECOMMENDED",59,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",.03,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",.04,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",6,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",20,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",26,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",28,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",34,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",34.1,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",34.2,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",35,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",36,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",37,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",51.2,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",53.2,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",54.2,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",55.2,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",57.2,2)=""
^DD(165.5,"GR","ACOS-REQUIRED",70,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",71.1,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",71.2,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",71.3,1)=""
^DD(165.5,"GR","ACOS-REQUIRED",95,1)=""
^DD(165.5,"GR","SEER",9,2)=""
^DD(165.5,"GR","SEER",11,1)=""
^DD(165.5,"GR","SEER",20,1)=""
^DD(165.5,"GR","SEER",26,1)=""
^DD(165.5,"GR","SEER",28,1)=""
^DD(165.5,"GR","SEER",51.2,1)=""
^DD(165.5,"GR","SEER",51.3,1)=""
^DD(165.5,"GR","SEER",52.2,1)=""
^DD(165.5,"GR","SEER",53.2,1)=""
^DD(165.5,"GR","SEER",54.2,1)=""
^DD(165.5,"GR","SEER",55.2,1)=""
^DD(165.5,"GR","SEER",57.2,1)=""
^DD(165.5,"GR","SEER",58.1,1)=""
^DD(165.5,"IX",.01)=""
^DD(165.5,"IX",.02)=""
^DD(165.5,"IX",.04)=""
^DD(165.5,"IX",.042)=""
^DD(165.5,"IX",.05)=""
^DD(165.5,"IX",.06)=""
^DD(165.5,"IX",.07)=""
^DD(165.5,"IX",2)=""
^DD(165.5,"IX",2.1)=""
^DD(165.5,"IX",2.2)=""
^DD(165.5,"IX",2.3)=""
^DD(165.5,"IX",2.4)=""
^DD(165.5,"IX",3)=""
^DD(165.5,"IX",12)=""
^DD(165.5,"IX",20)=""
^DD(165.5,"IX",22)=""
^DD(165.5,"IX",22.3)=""
^DD(165.5,"IX",31)=""
^DD(165.5,"IX",38)=""
^DD(165.5,"IX",38.5)=""
^DD(165.5,"IX",50)=""
^DD(165.5,"IX",50.2)=""
^DD(165.5,"IX",51)=""
^DD(165.5,"IX",51.2)=""
^DD(165.5,"IX",51.4)=""
^DD(165.5,"IX",52)=""
^DD(165.5,"IX",53)=""
^DD(165.5,"IX",53.2)=""
^DD(165.5,"IX",53.3)=""
^DD(165.5,"IX",54)=""
^DD(165.5,"IX",54.2)=""
^DD(165.5,"IX",54.3)=""
^DD(165.5,"IX",55)=""
^DD(165.5,"IX",55.2)=""
^DD(165.5,"IX",55.3)=""
^DD(165.5,"IX",57)=""
^DD(165.5,"IX",57.2)=""
^DD(165.5,"IX",57.3)=""
^DD(165.5,"IX",58.1)=""
^DD(165.5,"IX",58.2)=""
^DD(165.5,"IX",58.4)=""
^DD(165.5,"IX",58.6)=""
^DD(165.5,"IX",58.7)=""
^DD(165.5,"IX",66)=""
^DD(165.5,"IX",84)=""
^DD(165.5,"IX",88)=""
^DD(165.5,"IX",90)=""
^DD(165.5,"IX",91)=""
^DD(165.5,"IX",95)=""
^DD(165.5,"IX",124)=""
^DD(165.5,"IX",138)=""
^DD(165.5,"IX",138.1)=""
^DD(165.5,"IX",138.2)=""
^DD(165.5,"IX",138.4)=""
^DD(165.5,"IX",138.5)=""
^DD(165.5,"IX",139)=""
^DD(165.5,"IX",139.1)=""
^DD(165.5,"IX",139.2)=""
^DD(165.5,"IX",139.4)=""
^DD(165.5,"IX",139.5)=""
^DD(165.5,"IX",153)=""
^DD(165.5,"IX",153.1)=""
^DD(165.5,"IX",170)=""
^DD(165.5,"IX",198)=""
^DD(165.5,"RQ",.01)=""
^DD(165.5,"RQ",.02)=""
^DD(165.5,"RQ",.022)=""
^DD(165.5,"RQ",.03)=""
^DD(165.5,"RQ",.042)=""
^DD(165.5,"RQ",.05)=""
^DD(165.5,"RQ",.07)=""
^DD(165.5,"RQ",20)=""
^DD(165.5,"RQ",21.5)=""
^DD(165.5,"RQ",92)=""
^DD(165.5,"RQ",1400.6)=""
^DD(165.5,"RQ",1426.5)=""
^DD(165.5,"RQ",2000)=""
^DD(165.5,"SB",165.51,60)=""
^DD(165.5,"SB",165.5103,103)=""
^DD(165.5,"SB",165.5104,104)=""
^DD(165.5,"SB",165.5105,105)=""
^DD(165.5,"SB",165.5106,106)=""
^DD(165.5,"SB",165.5107,107)=""
^DD(165.5,"SB",165.5108,108)=""
^DD(165.5,"SB",165.5109,109)=""
^DD(165.5,"SB",165.5111,111)=""
^DD(165.5,"SB",165.5112,112)=""
^DD(165.5,"SB",165.5113,113)=""
^DD(165.5,"SB",165.5114,114)=""
^DD(165.5,"SB",165.5115,115)=""
^DD(165.5,"SB",165.5116,116)=""
^DD(165.5,"SB",165.5131,131)=""
^DD(165.5,"SB",165.52,80)=""
^DD(165.5,"SB",165.53,110)=""
^DD(165.5,"SB",165.54,64.2)=""
^DD(165.5,"SB",165.572,72)=""
^DD(165.5,"SB",165.573,73)=""
^DD(165.51,0)="SUBSEQUENT COURSE OF TREATMENT SUB-FIELD^^37^54"
^DD(165.51,0,"DT")="2960730"
^DD(165.51,0,"NM","SUBSEQUENT COURSE OF TREATMENT")=""
^DD(165.51,0,"UP")="165.5"
^DD(165.51,.01,0)="INITIATION DATE^MDOX^^0;1^D DFIT^ONCODSR"
^DD(165.51,.01,.1)="Initiation Date"
^DD(165.51,.01,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.01,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.01,3)="*** INITIATION DATE OF SUBSEQUENT COURSE OF THERAPY MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.01,10)="ACOS 3.113"
^DD(165.51,.01,20,0)="^.3LA^1^1"
^DD(165.51,.01,20,1,0)="ACOS-REQUIRED"
^DD(165.51,.01,21,0)="^^2^2^2970523^^^"
^DD(165.51,.01,21,1,0)=""
^DD(165.51,.01,21,2,0)="Record the date that subsequent therapy was initiated."
^DD(165.51,.01,23,0)="^^2^2^2970523^^^"
^DD(165.51,.01,23,1,0)="Effective with Oncology V2.1 the name of this field has been changed"
^DD(165.51,.01,23,2,0)="from SUBSEQUENT TREATMENT DATE."
^DD(165.51,.01,"DT")="2970403"
^DD(165.51,.02,0)="HEMA TRANS/ENDOCRINE PROC^P167'O^ONCO(167,^0;18^Q"
^DD(165.51,.02,2)="S Y(0)=Y I Y'="""" S Y=$P($G(^ONCO(167,Y,0)),U,2)"
^DD(165.51,.02,2.1)="I Y'="""" S Y=$P($G(^ONCO(167,Y,0)),U,2)"
^DD(165.51,.02,21,0)="^.001^8^8^3030708^^"
^DD(165.51,.02,21,1,0)="Identifies systemic therapeutic procedures administered as part"
^DD(165.51,.02,21,2,0)="of subsequent course of treatment at this and all other facilities."
^DD(165.51,.02,21,3,0)="If none of these procedures were administered, then this item"
^DD(165.51,.02,21,4,0)="records the reason they were not performed.  These include bone"
^DD(165.51,.02,21,5,0)="marrow transplants, stem cell harvests, surgical and/or radiation"
^DD(165.51,.02,21,6,0)="endocrine therapy."
^DD(165.51,.02,21,7,0)=""
^DD(165.51,.02,21,8,0)="For further information see FORDS pages 182-183."
^DD(165.51,.02,"DT")="3030708"
^DD(165.51,.021,0)="HEMA TRANS/ENDOCRINE PROC DATE^DXO^^0;19^D DFIT^ONCODSR"
^DD(165.51,.021,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.021,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.021,3)="*** HEMA TRANS/ENDOCRINE PROC DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.021,21,0)="^^2^2^3030708^"
^DD(165.51,.021,21,1,0)="Records the date on which hematologic transplant"
^DD(165.51,.021,21,2,0)="and endocrine procedures were performed."
^DD(165.51,.021,"DT")="3030708"
^DD(165.51,.03,0)="RADIATION THERAPY TO CNS^S^0:None;1:Radiation Given;7:Refused Radiation;8:Recommended, Unknown if Given;9:Unknown if Recommended/Given or Not Applicable;^0;10^Q"
^DD(165.51,.03,3)="Radiation to the Brain and Central Nervous System - code '9' unless Lung/Leukemia"
^DD(165.51,.03,21,0)="^^2^2^2960612^^"
^DD(165.51,.03,21,1,0)="This is a code indicating whether radiation therapy was performed to"
^DD(165.51,.03,21,2,0)="the brain and/or central nervous system."
^DD(165.51,.03,"DT")="2960612"
^DD(165.51,.031,0)="RADIATION THERAPY TO CNS DATE^DOX^^0;17^D DFIT^ONCODSR"
^DD(165.51,.031,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.031,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.031,3)="*** RADIATION THERAPY TO CNS DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.031,21,0)="^^2^2^2970523^^^"
^DD(165.51,.031,21,1,0)=""
^DD(165.51,.031,21,2,0)="This is the date on which brain/CNS radiation therapy was initiated."
^DD(165.51,.031,"DT")="2970403"
^DD(165.51,.04,0)="SURGERY OF PRIMARY SITE^NJ2,0OX^^0;4^S FIELD=.04,NTXDD=1 D SPSIT^ONCOSUR"
^DD(165.51,.04,1,0)="^.1"
^DD(165.51,.04,1,1,0)="165.5^F^MUMPS"
^DD(165.51,.04,1,1,1)="Q"
^DD(165.51,.04,1,1,2)="D SCT^ONCDTX"
^DD(165.51,.04,1,1,"DT")="2980303"
^DD(165.51,.04,2)="S Y(0)=Y S FIELD=.04 D SPSOT^ONCOSUR"
^DD(165.51,.04,2.1)="S FIELD=.04 D SPSOT^ONCOSUR"
^DD(165.51,.04,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.51,.04,4)="S FIELD=.04 D SPSHP^ONCOSUR"
^DD(165.51,.04,21,0)="^.001^4^4^3030313^^^^"
^DD(165.51,.04,21,1,0)=""
^DD(165.51,.04,21,2,0)="Records the surgical procedure(s) performed to the primary site."
^DD(165.51,.04,21,3,0)=""
^DD(165.51,.04,21,4,0)="For further information see FORDS page 135."
^DD(165.51,.04,"DT")="3040227"
^DD(165.51,.041,0)="SURGERY OF PRIMARY SITE DATE^DOX^^0;11^D DFIT^ONCODSR"
^DD(165.51,.041,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.041,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.041,3)="*** SURGERY OF PRIMARY SITE DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.041,21,0)="^.001^3^3^3030314^^^^"
^DD(165.51,.041,21,1,0)=""
^DD(165.51,.041,21,2,0)="Records the date of the most definitive surgical resection of the"
^DD(165.51,.041,21,3,0)="primary site performed as part of subsequent treatment."
^DD(165.51,.041,"DT")="3030314"
^DD(165.51,.05,0)="RADIATION^S^0:None;1:Beam Radiation;2:Radioactive Implants;3:Radioisotopes;4:Combination of Beam + Implants or Isotopes;5:Radiation NOS;7:Radiation Therapy Refused;8:Recommended, Unknown if Given;9:Unknown if Recommended/Given;^0;5^Q"
^DD(165.51,.05,21,0)="^^1^1^2930930^"
^DD(165.51,.05,21,1,0)="This is a code indicating whether beam radiation therapy was performed."
^DD(165.51,.05,"DT")="2900202"
^DD(165.51,.051,0)="RADIATION DATE^DOX^^0;12^D DFIT^ONCODSR"
^DD(165.51,.051,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.051,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.051,3)="*** RADIATION DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.051,21,0)="^^2^2^2970523^^^^"
^DD(165.51,.051,21,1,0)=""
^DD(165.51,.051,21,2,0)="This is the date on which radiation therapy was given."
^DD(165.51,.051,23,0)="^^1^1^2970523^^^"
^DD(165.51,.051,23,1,0)="This field is new with Patch ONC*2*11."
^DD(165.51,.051,"DT")="2970403"
^DD(165.51,.06,0)="CHEMOTHERAPY^S^00:None;01:Chemotherapy, NOS;02:Single agent;03:Multiagent;82:Not admin/contraindicated;85:Pt died prior to tx;86:Not admin, no reason given;87:Refused by pt;88:Unknown if admin;99:Unknown, death cert;^0;6^Q"
^DD(165.51,.06,21,0)="^.001^9^9^3030307^^^^"
^DD(165.51,.06,21,1,0)=""
^DD(165.51,.06,21,2,0)="Records the type of chemotherapy administered as subsequent"
^DD(165.51,.06,21,3,0)="treatment at this and at all other facilities.  If chemotherapy"
^DD(165.51,.06,21,4,0)="was not administered, then this item records the reason it was not"
^DD(165.51,.06,21,5,0)="administered to the patient.  Chemotherapy consists of a group of"
^DD(165.51,.06,21,6,0)="anticancer drugs that inhibit the reproduction of cancer cells by"
^DD(165.51,.06,21,7,0)="interfering with DNA synthesis and mitosis."
^DD(165.51,.06,21,8,0)=""
^DD(165.51,.06,21,9,0)="For further information see FORDS pages 171-172."
^DD(165.51,.06,"DT")="3030224"
^DD(165.51,.061,0)="CHEMOTHERAPY DATE^DOX^^0;13^D DFIT^ONCODSR"
^DD(165.51,.061,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.061,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.061,3)="*** CHEMOTHERAPY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.061,21,0)="^^2^2^2970523^^^"
^DD(165.51,.061,21,1,0)=""
^DD(165.51,.061,21,2,0)="This is the date on which chemotherapy was initiated."
^DD(165.51,.061,23,0)="^^1^1^2970523^^^"
^DD(165.51,.061,23,1,0)="This field is new with Patch ONC*2*10."
^DD(165.51,.061,"DT")="2970403"
^DD(165.51,.07,0)="HORMONE THERAPY^S^00:None;01:Hormone therapy;82:Not admin/contraindicated;85:Pt died prior to tx;86:Not admin, no reason given;87:Refused by pt;88:Unknown if admin;99:Unknown, death cert;^0;7^Q"
^DD(165.51,.07,21,0)="^.001^8^8^3030225^^"
^DD(165.51,.07,21,1,0)="Records the type of hormone therapy administered as subsequent"
^DD(165.51,.07,21,2,0)="treatment at this and all other facilities.  If hormone therapy"
^DD(165.51,.07,21,3,0)="was not administered, then this item records the reason it was"
^DD(165.51,.07,21,4,0)="not administered to the patient.  Hormone therapy consists of a"
^DD(165.51,.07,21,5,0)="group of drugs that may affect the long-term control of a cancer's"
^DD(165.51,.07,21,6,0)="growth.  It is not usually used as a curative measure."
^DD(165.51,.07,21,7,0)=""
^DD(165.51,.07,21,8,0)="For further information see FORDS pages 175-176."
^DD(165.51,.07,"DT")="3030225"
^DD(165.51,.071,0)="HORMONE THERAPY DATE^DOX^^0;14^D DFIT^ONCODSR"
^DD(165.51,.071,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.071,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.071,3)="*** HORMONE THERAPY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.071,21,0)="^.001^2^2^3030225^^^"
^DD(165.51,.071,21,1,0)=""
^DD(165.51,.071,21,2,0)="This is the date on which hormone/steroid therapy was initiated."
^DD(165.51,.071,"DT")="3030225"
^DD(165.51,.08,0)="IMMUNOTHERAPY^*SX^00:None;01:Immunotherapy;82:Not admin/contraindicated;85:Pt died prior to tx;86:Not admin, no reason given;87:Refused by pt;88:Unknown if admin;99:Unknown, death cert^0;8^Q"
^DD(165.51,.08,.1)=""
^DD(165.51,.08,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.5,Y,0),""^"",2)"
^DD(165.51,.08,2.1)="S:Y'="""" Y=$P(^ONCO(160.5,Y,0),""^"",2)"
^DD(165.51,.08,3)=""
^DD(165.51,.08,4)=""
^DD(165.51,.08,10)=""
^DD(165.51,.08,12)="Codes 3, 4, 5 and 6 should only be used if the INITIATION DATE is > 12/31/95."
^DD(165.51,.08,12.1)="S DIC(""S"")=""I ($P(^ONCO(165.5,D0,4,DA,0),U,1)>2951231)!((Y'=3)&(Y'=4)&(Y'=5)&(Y'=6))"""
^DD(165.51,.08,20,0)="^.3LA^^0"
^DD(165.51,.08,20,1,0)="SEER"
^DD(165.51,.08,20,2,0)="ACOS-REQUIRED"
^DD(165.51,.08,21,0)="^.001^9^9^3030225^^^^"
^DD(165.51,.08,21,1,0)=""
^DD(165.51,.08,21,2,0)="Records the type of immunotherapy administered as subsequent"
^DD(165.51,.08,21,3,0)="treatment at this and all other facilities.  If immunotherapy"
^DD(165.51,.08,21,4,0)="was not administered, then this item records the reason it was"
^DD(165.51,.08,21,5,0)="not administered to the patient.  Immunotherapy consists of"
^DD(165.51,.08,21,6,0)="biological or chemical agents that alter the immune system or"
^DD(165.51,.08,21,7,0)="change the host's response to the tumor cells."
^DD(165.51,.08,21,8,0)=""
^DD(165.51,.08,21,9,0)="For further information see FORDS pages 179-180."
^DD(165.51,.08,"DT")="3030714"
^DD(165.51,.081,0)="IMMUNOTHERAPY DATE^DOX^^0;15^D DFIT^ONCODSR"
^DD(165.51,.081,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.081,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.081,3)="*** IMMUNOTHERAPY DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.081,21,0)="^^2^2^2970523^^^^"
^DD(165.51,.081,21,1,0)=""
^DD(165.51,.081,21,2,0)="The date immunotherapy was started."
^DD(165.51,.081,23,0)="^^1^1^2970523^^^^"
^DD(165.51,.081,23,1,0)="This field is new with Patch ONC*2*10."
^DD(165.51,.081,"DT")="2970403"
^DD(165.51,.09,0)="OTHER TREATMENT^S^0:None;1:Other;2:Other - Experimental;3:Other - Double Blind;6:Other - Unproven;7:Refusal;8:Reccommended, unknown if administered;9:Unknown;^0;9^Q"
^DD(165.51,.09,21,0)="^.001^5^5^3030307^^^"
^DD(165.51,.09,21,1,0)=""
^DD(165.51,.09,21,2,0)="Identifies other treatment that cannot be defined as surgery, radiation,"
^DD(165.51,.09,21,3,0)="or systemic therapy."
^DD(165.51,.09,21,4,0)=""
^DD(165.51,.09,21,5,0)="For further informatin see FORDS page 186. "
^DD(165.51,.09,"DT")="3030307"
^DD(165.51,.091,0)="OTHER TREATMENT START DATE^DOX^^0;16^D DFIT^ONCODSR"
^DD(165.51,.091,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,.091,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,.091,3)="*** OTHER TREATMENT START DATE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.51,.091,21,0)="^.001^4^4^3030307^^^^"
^DD(165.51,.091,21,1,0)=""
^DD(165.51,.091,21,2,0)="Records the date on which other treatment began at any facility."
^DD(165.51,.091,21,3,0)=""
^DD(165.51,.091,21,4,0)="For further information see FORDS pages 184-185."
^DD(165.51,.091,"DT")="3030307"
^DD(165.51,1,0)="RADIATION SEQUENCE^S^0:Not Applicable;2:Radiation Before Surgery;3:Radiation After Surgery;4:Both Before AND After Surgery;5:Intraoperative Radiation;6:Intraoperative Radiation with other radiation before/after surgery;9:Sequence Unknown;^0;2^Q"
^DD(165.51,1,.1)="Radiation Sequence"
^DD(165.51,1,3)="Record Sequence of Radiation and Surgery"
^DD(165.51,1,10)="DAM 3.119"
^DD(165.51,1,20,0)="^.3LA^1^1"
^DD(165.51,1,20,1,0)="ACOS-RECOMMENDED"
^DD(165.51,1,21,0)="^^1^1^2930930^"
^DD(165.51,1,21,1,0)="This is the sequence of beam radiation therapy performed."
^DD(165.51,1,"DT")="2921003"
^DD(165.51,2,0)="PLACE^P160.19O^ONCO(160.19,^0;3^Q"
^DD(165.51,2,1,0)="^.1^^0"
^DD(165.51,2,2)="S Y(0)=Y S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.51,2,2.1)="S:Y'="""" Y=$S($D(^ONCO(160.19,Y,0)):$P(^(0),U,2),1:Y)"
^DD(165.51,2,3)="Enter Hospital providing subsequent treatment"
^DD(165.51,2,4)="D HELP^ONCOFLF"
^DD(165.51,2,21,0)="^^1^1^2960814^^^^"
^DD(165.51,2,21,1,0)="This is the institution performing the treatment."
^DD(165.51,2,"DT")="2960531"
^DD(165.51,3,0)="SUBSEQUENT THERAPY COMMENTS^165.513^^1;0"
^DD(165.51,3,21,0)="^^1^1^2930930^"
^DD(165.51,3,21,1,0)="This is a multi-line free text field permitting comments to be entered."
^DD(165.51,3,"DT")="2900518"
^DD(165.51,4,0)="INTERSTITIAL RADIATION^SO^1:Yes;2:No, not recommended;3:Patient refused interstitial radiation;4:Radiation planned, but not given;9:Unknown;^2;1^Q"
^DD(165.51,4,2)="S Y(0)=Y S FILNUM=165.51,FLDNUM=4 D SOC^ONCOOT"
^DD(165.51,4,2.1)="S FILNUM=165.51,FLDNUM=4 D SOC^ONCOOT"
^DD(165.51,4,21,0)="^^1^1^2960731^^^"
^DD(165.51,4,21,1,0)="Record whether the patient received interstitial radiation."
^DD(165.51,4,"DT")="2960730"
^DD(165.51,5,0)="IODINE 125^SO^1:Yes;2:No;9:Unknown;^2;2^Q"
^DD(165.51,5,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=5 D SOC^ONCOOT"
^DD(165.51,5,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=5 D SOC^ONCOOT"
^DD(165.51,5,21,0)="^^1^1^2960731^"
^DD(165.51,5,21,1,0)="Record whether Iodine 125 was used interstitially."
^DD(165.51,5,"DT")="2960730"
^DD(165.51,6,0)="GOLD 198^SO^1:Yes;2:No;9:Unknown;^2;3^Q"
^DD(165.51,6,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=6 D SOC^ONCOOT"
^DD(165.51,6,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=6 D SOC^ONCOOT"
^DD(165.51,6,21,0)="^^1^1^2960731^"
^DD(165.51,6,21,1,0)="Record whether Gold 198 was used interstitially."
^DD(165.51,6,"DT")="2960730"
^DD(165.51,7,0)="PALLADIUM 103^SO^1:Yes;2:No;9:Unknown;^2;4^Q"
^DD(165.51,7,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=7 D SOC^ONCOOT"
^DD(165.51,7,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=7 D SOC^ONCOOT"
^DD(165.51,7,21,0)="^^1^1^2960731^"
^DD(165.51,7,21,1,0)="Record whether Palladium 103 was used interstitially."
^DD(165.51,7,"DT")="2960730"
^DD(165.51,8,0)="IRIDIUM 192^SO^1:Yes;2:No;9:Unknown;^2;5^Q"
^DD(165.51,8,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=8 D SOC^ONCOOT"
^DD(165.51,8,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=8 D SOC^ONCOOT"
^DD(165.51,8,21,0)="^^1^1^2960731^"
^DD(165.51,8,21,1,0)="Record whether Iridium 192 was used interstitially."
^DD(165.51,8,"DT")="2960730"
^DD(165.51,9,0)="OTHER INTERSTITIAL, NOS^SO^1:Yes;2:No;9:Unknown;^2;6^Q"
^DD(165.51,9,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=9 D SOC^ONCOOT"
^DD(165.51,9,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=9 D SOC^ONCOOT"
^DD(165.51,9,21,0)="^^1^1^2960731^"
^DD(165.51,9,21,1,0)="Record whether other isotopes were used interstitially."
^DD(165.51,9,"DT")="2960730"
^DD(165.51,10,0)="EXTERNAL RADIATION^SO^1:Yes;2:No, not recommended;3:Patient refused external radiation;4:Radiation planned, but not given;9:Unknown;^2;7^Q"
^DD(165.51,10,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=10 D SOC^ONCOOT"
^DD(165.51,10,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=10 D SOC^ONCOOT"
^DD(165.51,10,21,0)="^^1^1^2960731^"
^DD(165.51,10,21,1,0)="Record whether the patient received external radiation."
^DD(165.51,10,"DT")="2960730"
^DD(165.51,11,0)="PROSTATE REGION ONLY^SO^1:Yes;2:No;9:Unknown;^2;8^Q"
^DD(165.51,11,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=11 D SOC^ONCOOT"
^DD(165.51,11,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=11 D SOC^ONCOOT"
^DD(165.51,11,21,0)="^^1^1^2960731^"
^DD(165.51,11,21,1,0)="Record whether the prostate region only was irradiated."
^DD(165.51,11,"DT")="2960730"
^DD(165.51,12,0)="PROSTATE AND PELVIC NODES^SO^1:Yes;2:No;9:Unknown;^2;9^Q"
^DD(165.51,12,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=12 D SOC^ONCOOT"
^DD(165.51,12,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=12 D SOC^ONCOOT"
^DD(165.51,12,21,0)="^^1^1^2960731^"
^DD(165.51,12,21,1,0)="Record whether the prostate and pelvic nodes were irradiated."
^DD(165.51,12,"DT")="2960730"
^DD(165.51,13,0)="PROSTATE & PELVIC PARA-AORTIC^SO^1:Yes;2:No;9:Unknown;^2;10^Q"
^DD(165.51,13,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=13 D SOC^ONCOOT"
^DD(165.51,13,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=13 D SOC^ONCOOT"
^DD(165.51,13,21,0)="^^1^1^2960731^"
^DD(165.51,13,21,1,0)="Record whether the prostate and pelvic para-aortic nodes were irradiated."
^DD(165.51,13,"DT")="2960730"
^DD(165.51,14,0)="DISTANT METASTATIC SITES^SO^1:Yes;2:No;9:Unknown;^2;11^Q"
^DD(165.51,14,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=14 D SOC^ONCOOT"
^DD(165.51,14,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=14 D SOC^ONCOOT"
^DD(165.51,14,21,0)="^^1^1^2960731^"
^DD(165.51,14,21,1,0)="Record whether distant metastatic sites were irradiated."
^DD(165.51,14,"DT")="2960730"
^DD(165.51,15,0)="OTHER EXTERNAL SITES, NOS^SO^1:Yes;2:No;9:Unknown;^2;12^Q"
^DD(165.51,15,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=15 D SOC^ONCOOT"
^DD(165.51,15,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=15 D SOC^ONCOOT"
^DD(165.51,15,21,0)="^^1^1^2960731^"
^DD(165.51,15,21,1,0)="Record whether other external sites were irradiated."
^DD(165.51,15,"DT")="2960730"
^DD(165.51,16,0)="RADIATION PLANNED/GIVEN^SO^1:Yes;2:No, not recommended;3:Patient refused radiation therapy;4:Radiation planned, but not given;9:Unknown;^2;13^Q"
^DD(165.51,16,2)="S Y(0)=Y S FILNUM=165.51,FLDNUM=16 D SOC^ONCOOT"
^DD(165.51,16,2.1)="S FILNUM=165.51,FLDNUM=16 D SOC^ONCOOT"
^DD(165.51,16,21,0)="^^1^1^2960731^^"
^DD(165.51,16,21,1,0)="Record whether the patient received subsequent radiation therapy."
^DD(165.51,16,"DT")="2960730"
^DD(165.51,17,0)="TOTAL RAD DOSE (PROSTATE)^SO^1:Less than 1999 rad;2:2000-3000 rad;3:3001-4000 rad;4:4001-5000 rad;5:5001-6000 rad;6:6001-7000 rad;7:More than 7001 rad;8:Not given;9:Rad dose unknown;^2;14^Q"
^DD(165.51,17,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=17 D SOC^ONCOOT"
^DD(165.51,17,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=17 D SOC^ONCOOT"
^DD(165.51,17,21,0)="^^4^4^2960731^"
^DD(165.51,17,21,1,0)="Record the total (external) rad dose given to the prostate; this includes"
^DD(165.51,17,21,2,0)="boost dosage.  Do not include interstitial rad dose.  If it is known that"
^DD(165.51,17,21,3,0)="the patient received radiation therapy, but the amount given is unknown,"
^DD(165.51,17,21,4,0)="code 9 (rad dose unknown)."
^DD(165.51,17,"DT")="2960730"
^DD(165.51,18,0)="TOTAL RAD DOSE (PELVIC NODES)^SO^1:Less than 1999 rad;2:2000-3000 rad;3:3001-4000 rad;4:4001-5000 rad;5:5001-6000 rad;8:Not given;9:Rad dose unknown;^2;15^Q"
^DD(165.51,18,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=18 D SOC^ONCOOT"
^DD(165.51,18,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=18 D SOC^ONCOOT"
^DD(165.51,18,21,0)="^^4^4^2960731^"
^DD(165.51,18,21,1,0)="Record the total (external) rad dose given to the pelvic nodes; this"
^DD(165.51,18,21,2,0)="includes boost dosage.  Do not include interstitial rad dose.  If it"
^DD(165.51,18,21,3,0)="is known that the patient received radiation therapy, but the amount"
^DD(165.51,18,21,4,0)="given is unknown, code 9 (rad dose unknown)."
^DD(165.51,18,"DT")="2960730"
^DD(165.51,19,0)="TOTAL RAD DOSE (PARA-AORTIC)^SO^1:Less than 1999 rad;2:2000-3000 rad;3:3001-4000 rad;4:4001-5000 rad;5:5001-6000 rad;8:Not given;9:Rad dose unknown;^2;16^Q"
^DD(165.51,19,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=19 D SOC^ONCOOT"
^DD(165.51,19,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=19 D SOC^ONCOOT"
^DD(165.51,19,21,0)="^^4^4^2960731^"
^DD(165.51,19,21,1,0)="Record the total (external) rad dose given to the para-aortic nodes; this"
^DD(165.51,19,21,2,0)="includes boost dosage.  Do not include interstitial rad dose.  If it is"
^DD(165.51,19,21,3,0)="known that the patient received radiation therapy, but the amount given"
^DD(165.51,19,21,4,0)="is unknown, code 9 (rad dose unknown)."
^DD(165.51,19,"DT")="2960730"
^DD(165.51,20,0)="CHEMOTHERAPY PLANNED/GIVEN^SO^1:Yes;2:No, not recommended;3:Patient refused chemotherapy;4:Chemotherapy planned, but not given;9:Unknown;^2;17^Q"
^DD(165.51,20,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=20 D SOC^ONCOOT"
^DD(165.51,20,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=20 D SOC^ONCOOT"
^DD(165.51,20,21,0)="^^1^1^2960731^"
^DD(165.51,20,21,1,0)="Record whether the patient received chemotherapy."
^DD(165.51,20,"DT")="2960730"
^DD(165.51,21,0)="ADRIAMYCIN^SO^1:Yes;2:No;9:Unknown;^2;18^Q"
^DD(165.51,21,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=21 D SOC^ONCOOT"
^DD(165.51,21,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=21 D SOC^ONCOOT"
^DD(165.51,21,21,0)="^^1^1^2960731^"
^DD(165.51,21,21,1,0)="Record whether Adriamycin was administered."
^DD(165.51,21,"DT")="2960730"
^DD(165.51,22,0)="CYTOXAN^SO^1:Yes;2:No;9:Unknown;^2;19^Q"
^DD(165.51,22,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=22 D SOC^ONCOOT"
^DD(165.51,22,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=22 D SOC^ONCOOT"
^DD(165.51,22,21,0)="^^1^1^2960731^"
^DD(165.51,22,21,1,0)="Record whether Cytoxan was administered."
^DD(165.51,22,"DT")="2960730"
^DD(165.51,23,0)="METHOTREXATE^SO^1:Yes;2:No;9:Unknown;^2;20^Q"
^DD(165.51,23,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=23 D SOC^ONCOOT"
^DD(165.51,23,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=23 D SOC^ONCOOT"
^DD(165.51,23,21,0)="^^1^1^2960731^"
^DD(165.51,23,21,1,0)="Record whether Methotrexate was administered."
^DD(165.51,23,"DT")="2960730"
^DD(165.51,24,0)="5-FLUOROURACIL^SO^1:Yes;2:No;9:Unknown;^2;21^Q"
^DD(165.51,24,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=24 D SOC^ONCOOT"
^DD(165.51,24,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=24 D SOC^ONCOOT"
^DD(165.51,24,21,0)="^^1^1^2960731^"
^DD(165.51,24,21,1,0)="Record whether 5-Fluorourcil was administered."
^DD(165.51,24,"DT")="2960730"
^DD(165.51,25,0)="OTHER^SO^1:Yes;2:No;9:Unknown;^2;22^Q"
^DD(165.51,25,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=25 D SOC^ONCOOT"
^DD(165.51,25,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=25 D SOC^ONCOOT"
^DD(165.51,25,21,0)="^^1^1^2960731^"
^DD(165.51,25,21,1,0)="Record whether other chemotherapy drugs were administered."
^DD(165.51,25,"DT")="2960730"
^DD(165.51,26,0)="HORMONE THERAPY PLANNED/GIVEN^SO^1:Yes;2:No, not recommended;3:Patient refused hormone therapy;4:Hormone therapy planned, but not given;9:Unknown;^2;23^Q"
^DD(165.51,26,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=26 D SOC^ONCOOT"
^DD(165.51,26,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=26 D SOC^ONCOOT"
^DD(165.51,26,21,0)="^^1^1^2960731^"
^DD(165.51,26,21,1,0)="Record whether the patient received hormonal therapy."
^DD(165.51,26,"DT")="2960730"
^DD(165.51,27,0)="ESTROGENS^SO^1:Yes;2:No;9:Unknown;^2;24^Q"
^DD(165.51,27,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=27 D SOC^ONCOOT"
^DD(165.51,27,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=27 D SOC^ONCOOT"
^DD(165.51,27,21,0)="^^3^3^2960731^"
^DD(165.51,27,21,1,0)="Record whether estrogens were administered.  Code 2 (no) if estrogens were"
^DD(165.51,27,21,2,0)="not given.  Estrogens include diethylstilbestrol (DES), Stilphostrol, TACE"
^DD(165.51,27,21,3,0)="(chlorotrianisene), and Emcyt (estramustine phosphate)."
^DD(165.51,27,"DT")="2960730"
^DD(165.51,28,0)="ANTIANDROGENS^SO^1:Yes;2:No;9:Unknown;^2;25^Q"
^DD(165.51,28,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=28 D SOC^ONCOOT"
^DD(165.51,28,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=28 D SOC^ONCOOT"
^DD(165.51,28,21,0)="^^3^3^2960731^"
^DD(165.51,28,21,1,0)="Record whether antiandrogens were administered.  Code 2 (no) if"
^DD(165.51,28,21,2,0)="antiandrogens were not given.  The most widely used antiandrogen"
^DD(165.51,28,21,3,0)="is Eulexin (fultamide)."
^DD(165.51,28,"DT")="2960730"
^DD(165.51,29,0)="PROGESTATIONAL AGENTS^SO^1:Yes;2:No;9:Unknown;^2;26^Q"
^DD(165.51,29,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=29 D SOC^ONCOOT"
^DD(165.51,29,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=29 D SOC^ONCOOT"
^DD(165.51,29,21,0)="^^3^3^2960731^^"
^DD(165.51,29,21,1,0)="Record whether progestational agents were administered.  Code 2 (no) if"
^DD(165.51,29,21,2,0)="progestational agents were not given.  Progestational agents include"
^DD(165.51,29,21,3,0)="Provera (medroxyprogesterone) and Megace (megestrol acetate)."
^DD(165.51,29,"DT")="2960730"
^DD(165.51,30,0)="LUTEINIZING HORMONE-RELEASING^SO^1:Yes;2:No;9:Unknown;^2;27^Q"
^DD(165.51,30,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=30 D SOC^ONCOOT"
^DD(165.51,30,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=30 D SOC^ONCOOT"
^DD(165.51,30,21,0)="^^4^4^2960731^"
^DD(165.51,30,21,1,0)="Record whether luteinizing hormone-releasing hormones were administered."
^DD(165.51,30,21,2,0)="Code 2 (no) if luteinizing hormone-releasing hormones were not given."
^DD(165.51,30,21,3,0)="Luteinizing hormone-releasing hormones (LH/RH) include Lupron (leuprolide)"
^DD(165.51,30,21,4,0)="and Zoladex (goserelin)."
^DD(165.51,30,"DT")="2960730"
^DD(165.51,31,0)="ORCHIECTOMY^SO^1:Yes;2:No;9:Unknown;^2;28^Q"
^DD(165.51,31,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=31 D SOC^ONCOOT"
^DD(165.51,31,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=31 D SOC^ONCOOT"
^DD(165.51,31,21,0)="^^2^2^2960731^"
^DD(165.51,31,21,1,0)="Record whether an orchiectomy was administered.  Code 2 (no) if an"
^DD(165.51,31,21,2,0)="orchiectomy was not given."
^DD(165.51,31,"DT")="2960730"
^DD(165.51,32,0)="OTHER HORMONES^SO^1:Yes;2:No;9:Unknown;^2;29^Q"
^DD(165.51,32,2)="S Y(0)=Y S Y(0)=Y S FILNUM=165.51,FLDNUM=32 D SOC^ONCOOT"
^DD(165.51,32,2.1)="S Y(0)=Y S FILNUM=165.51,FLDNUM=32 D SOC^ONCOOT"
^DD(165.51,32,21,0)="^^2^2^2960731^"
^DD(165.51,32,21,1,0)="Record whether other hormones were administered.  Code 2 (no) if no other"
^DD(165.51,32,21,2,0)="hormones were given."
^DD(165.51,32,"DT")="2960730"
^DD(165.51,33,0)="RECON/RESTORE - DELAYED^NJ2,0XO^^2;30^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S NTXDD=0 D RRIT^ONCRR"
^DD(165.51,33,2)="S Y(0)=Y D RROT^ONCRR"
^DD(165.51,33,2.1)="D RROT^ONCRR"
^DD(165.51,33,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(165.51,33,4)="D RRHP^ONCRR"
^DD(165.51,33,21,0)="^^9^9^2980210^^"
^DD(165.51,33,21,1,0)=""
^DD(165.51,33,21,2,0)="""Reconstruction/Restoration - Delayed"" describes surgical procedures"
^DD(165.51,33,21,3,0)="that improve the shape and appearance or function of body structures"
^DD(165.51,33,21,4,0)="that are missing, defective, damaged, or misshapen by cancer or"
^DD(165.51,33,21,5,0)="cancer-directed therapies.  ""Reconstruction/Restoration - Delayed"""
^DD(165.51,33,21,6,0)="is limited to procedures started after the first course of cancer-"
^DD(165.51,33,21,7,0)="directed therapy is complete or when it is unknown whether reconstruction"
^DD(165.51,33,21,8,0)="was started during first or second course of therapy."
^DD(165.51,33,21,9,0)=""
^DD(165.51,33,"DT")="3041029"
^DD(165.51,34,0)="RECON/RESTORE - DELAYED DATE^DO^^2;31^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(165.51,34,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.51,34,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.51,34,"DT")="2980210"
^DD(165.51,35,0)="SCOPE OF LYMPH NODE SURGERY^S^0:None;1:Bx/aspiration, NOS;2:Sentinel Bx;3:Nodes removed, number unk;4:1-3 nodes removed;5:4 or more nodes removed;6:Sentinel + 3, 4 or 5, timing not stated;7:Sentinel + 3, 4, or 5, diff times;9:Unknown/NA;^2;32^Q"
^DD(165.51,35,2)="S Y(0)=Y D SCOT^ONCOSUR1"
^DD(165.51,35,2.1)="D SCOT^ONCOSUR1"
^DD(165.51,35,3)=""
^DD(165.51,35,4)=""
^DD(165.51,35,21,0)="^.001^5^5^3030103^^^^"
^DD(165.51,35,21,1,0)="Indentifies the removal, biopsy, or aspiration of regional"
^DD(165.51,35,21,2,0)="lymph node(s) at the time of surgery of the primary site"
^DD(165.51,35,21,3,0)="or during a separate surgical event."
^DD(165.51,35,21,4,0)=""
^DD(165.51,35,21,5,0)="For further information see FORDS pages 138-139."
^DD(165.51,35,"DT")="3021227"
^DD(165.51,36,0)="SURGICAL PROC/OTHER SITE^S^0:None;1:Nonprimary surgical proc;2:Nonprimary surgical proc/other regional sites;3:Nonprimary surgical proc/distant lymph node(s);4:Nonprimary surgical proc/distant site;5:Combination of codes;9:Unknown;^2;33^Q"
^DD(165.51,36,2)="S Y(0)=Y D SOOT^ONCOSUR1"
^DD(165.51,36,2.1)="D SOOT^ONCOSUR1"
^DD(165.51,36,3)=""
^DD(165.51,36,4)=""
^DD(165.51,36,21,0)="^.001^5^5^3030103^^^^"
^DD(165.51,36,21,1,0)=""
^DD(165.51,36,21,2,0)="Records the surgical removal of distant lymph nodes"
^DD(165.51,36,21,3,0)="or other issue(s)/organ(s) beyond the primary site."
^DD(165.51,36,21,4,0)=""
^DD(165.51,36,21,5,0)="For further information see FORDS page 142."
^DD(165.51,36,"DT")="3030102"
^DD(165.51,37,0)="NUMBER OF NODES REMOVED^NJ2,0XO^^2;34^K:X'?1.2N X I $D(X) S NTXDD=0 S X=+X K:X>99!(X<0) X I $D(X) D NRIT^ONCOSUR1"
^DD(165.51,37,2)="S Y(0)=Y D NROT^ONCOSUR1"
^DD(165.51,37,2.1)="D NROT^ONCOSUR1"
^DD(165.51,37,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(165.51,37,4)=""
^DD(165.51,37,21,0)="^.001^12^12^3030909^^^^"
^DD(165.51,37,21,1,0)="Enter the number of regional lymph nodes removed."
^DD(165.51,37,21,2,0)=""
^DD(165.51,37,21,3,0)="      00 for No nodes removed"
^DD(165.51,37,21,4,0)="      01 for 1 node removed"
^DD(165.51,37,21,5,0)="      02 for 2 nodes removed"
^DD(165.51,37,21,6,0)="      ..."
^DD(165.51,37,21,7,0)="      90 for 90 or more nodes removed"
^DD(165.51,37,21,8,0)="      95 for No nodes removed, aspiration performed"
^DD(165.51,37,21,9,0)="      96 for Node removal as a sampling, number unknown"
^DD(165.51,37,21,10,0)="      97 for Node removal as dissection, number unknown"
^DD(165.51,37,21,11,0)="      98 for Nodes surgically removed, number unknown"
^DD(165.51,37,21,12,0)="      99 for Unknown; not stated; death certificate only"
^DD(165.51,37,"DT")="2981204"
^DD(165.51,"B","5-FLUOROURACIL",24)=""
^DD(165.51,"B","ADRIAMYCIN",21)=""
^DD(165.51,"B","ANTIANDROGENS",28)=""
^DD(165.51,"B","CHEMOTHERAPY",.06)=""
^DD(165.51,"B","CHEMOTHERAPY DATE",.061)=""
^DD(165.51,"B","CHEMOTHERAPY PLANNED/GIVEN",20)=""
^DD(165.51,"B","CYTOXAN",22)=""
^DD(165.51,"B","DISTANT METASTATIC SITES",14)=""
^DD(165.51,"B","ESTROGENS",27)=""
^DD(165.51,"B","EXTERNAL RADIATION",10)=""
^DD(165.51,"B","GOLD 198",6)=""
^DD(165.51,"B","HEMA TRANS/ENDOCRINE PROC",.02)=""
^DD(165.51,"B","HEMA TRANS/ENDOCRINE PROC DATE",.021)=""
^DD(165.51,"B","HORMONE THERAPY",.07)=""
^DD(165.51,"B","HORMONE THERAPY DATE",.071)=""
^DD(165.51,"B","HORMONE THERAPY PLANNED/GIVEN",26)=""
^DD(165.51,"B","IMMUNOTHERAPY",.08)=""
^DD(165.51,"B","IMMUNOTHERAPY DATE",.081)=""
^DD(165.51,"B","INITIATION DATE",.01)=""
^DD(165.51,"B","INTERSTITIAL RADIATION",4)=""
^DD(165.51,"B","IODINE 125",5)=""
^DD(165.51,"B","IRIDIUM 192",8)=""
^DD(165.51,"B","Initiation Date",.01)="1"
^DD(165.51,"B","LUTEINIZING HORMONE-RELEASING",30)=""
^DD(165.51,"B","METHOTREXATE",23)=""
^DD(165.51,"B","NUMBER OF NODES REMOVED",37)=""
^DD(165.51,"B","ORCHIECTOMY",31)=""
^DD(165.51,"B","OTHER",25)=""
^DD(165.51,"B","OTHER EXTERNAL SITES, NOS",15)=""
^DD(165.51,"B","OTHER HORMONES",32)=""
^DD(165.51,"B","OTHER INTERSTITIAL, NOS",9)=""
^DD(165.51,"B","OTHER TREATMENT",.09)=""
^DD(165.51,"B","OTHER TREATMENT START DATE",.091)=""
^DD(165.51,"B","PALLADIUM 103",7)=""
^DD(165.51,"B","PLACE",2)=""
^DD(165.51,"B","PROGESTATIONAL AGENTS",29)=""
^DD(165.51,"B","PROSTATE & PELVIC PARA-AORTIC",13)=""
^DD(165.51,"B","PROSTATE AND PELVIC NODES",12)=""
^DD(165.51,"B","PROSTATE REGION ONLY",11)=""
^DD(165.51,"B","RADIATION",.05)=""
^DD(165.51,"B","RADIATION DATE",.051)=""
^DD(165.51,"B","RADIATION PLANNED/GIVEN",16)=""
^DD(165.51,"B","RADIATION SEQUENCE",1)=""
^DD(165.51,"B","RADIATION THERAPY TO CNS",.03)=""
^DD(165.51,"B","RADIATION THERAPY TO CNS DATE",.031)=""
^DD(165.51,"B","RECON/RESTORE - DELAYED",33)=""
^DD(165.51,"B","RECON/RESTORE - DELAYED DATE",34)=""
^DD(165.51,"B","Radiation Sequence",1)="1"
^DD(165.51,"B","SCOPE OF LYMPH NODE SURGERY",35)=""
^DD(165.51,"B","SUBSEQUENT THERAPY COMMENTS",3)=""
^DD(165.51,"B","SURGERY OF PRIMARY SITE",.04)=""
^DD(165.51,"B","SURGERY OF PRIMARY SITE DATE",.041)=""
^DD(165.51,"B","SURGICAL PROC/OTHER SITE",36)=""
^DD(165.51,"B","TOTAL RAD DOSE (PARA-AORTIC)",19)=""
^DD(165.51,"B","TOTAL RAD DOSE (PELVIC NODES)",18)=""
^DD(165.51,"B","TOTAL RAD DOSE (PROSTATE)",17)=""
^DD(165.51,"GL",0,1,.01)=""
^DD(165.51,"GL",0,2,1)=""
^DD(165.51,"GL",0,3,2)=""
^DD(165.51,"GL",0,4,.04)=""
^DD(165.51,"GL",0,5,.05)=""
^DD(165.51,"GL",0,6,.06)=""
^DD(165.51,"GL",0,7,.07)=""
^DD(165.51,"GL",0,8,.08)=""
^DD(165.51,"GL",0,9,.09)=""
^DD(165.51,"GL",0,10,.03)=""
^DD(165.51,"GL",0,11,.041)=""
^DD(165.51,"GL",0,12,.051)=""
^DD(165.51,"GL",0,13,.061)=""
^DD(165.51,"GL",0,14,.071)=""
^DD(165.51,"GL",0,15,.081)=""
^DD(165.51,"GL",0,16,.091)=""
^DD(165.51,"GL",0,17,.031)=""
^DD(165.51,"GL",0,18,.02)=""
^DD(165.51,"GL",0,19,.021)=""
^DD(165.51,"GL",1,0,3)=""
^DD(165.51,"GL",2,1,4)=""
^DD(165.51,"GL",2,2,5)=""
^DD(165.51,"GL",2,3,6)=""
^DD(165.51,"GL",2,4,7)=""
^DD(165.51,"GL",2,5,8)=""
^DD(165.51,"GL",2,6,9)=""
^DD(165.51,"GL",2,7,10)=""
^DD(165.51,"GL",2,8,11)=""
^DD(165.51,"GL",2,9,12)=""
^DD(165.51,"GL",2,10,13)=""
^DD(165.51,"GL",2,11,14)=""
^DD(165.51,"GL",2,12,15)=""
^DD(165.51,"GL",2,13,16)=""
^DD(165.51,"GL",2,14,17)=""
^DD(165.51,"GL",2,15,18)=""
^DD(165.51,"GL",2,16,19)=""
^DD(165.51,"GL",2,17,20)=""
^DD(165.51,"GL",2,18,21)=""
^DD(165.51,"GL",2,19,22)=""
^DD(165.51,"GL",2,20,23)=""
^DD(165.51,"GL",2,21,24)=""
^DD(165.51,"GL",2,22,25)=""
^DD(165.51,"GL",2,23,26)=""
^DD(165.51,"GL",2,24,27)=""
^DD(165.51,"GL",2,25,28)=""
^DD(165.51,"GL",2,26,29)=""
^DD(165.51,"GL",2,27,30)=""
^DD(165.51,"GL",2,28,31)=""
^DD(165.51,"GL",2,29,32)=""
^DD(165.51,"GL",2,30,33)=""
^DD(165.51,"GL",2,31,34)=""
^DD(165.51,"GL",2,32,35)=""
^DD(165.51,"GL",2,33,36)=""
^DD(165.51,"GL",2,34,37)=""
^DD(165.51,"GR","ACOS-RECOMMENDED",1,1)=""
^DD(165.51,"GR","ACOS-REQUIRED",.01,1)=""
^DD(165.51,"GR","ACOS-REQUIRED",.08,2)=""
^DD(165.51,"GR","SEER",.08,1)=""
^DD(165.51,"IX",.04)=""
^DD(165.51,"SB",165.513,3)=""
^DD(165.5103,0)="TEXT-DX PROC-OP SUB-FIELD^^.01^1"
^DD(165.5103,0,"IX","B",165.5103,.01)=""
^DD(165.5103,0,"NM","TEXT-DX PROC-OP")=""
^DD(165.5103,0,"UP")="165.5"
^DD(165.5103,.01,0)="TEXT-DX PROC-OP^WL^^0;1^Q"
^DD(165.5103,.01,1,0)="^.1"
^DD(165.5103,.01,1,1,0)="165.5103^B"
^DD(165.5103,.01,1,1,1)="S ^ONCO(165.5,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(165.5103,.01,1,1,2)="K ^ONCO(165.5,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(165.5103,.01,3)=""
^DD(165.5103,.01,21,0)="^^1^1^2871028^^"
^DD(165.5103,.01,21,1,0)="Enter Dx Procedure - Operative Procedures text.  5 lines maximum of 50 characters each."
^DD(165.5103,.01,"DT")="2901109"
^DD(165.5103,"B","TEXT-DX PROC-OP",.01)=""
^DD(165.5103,"GL",0,1,.01)=""
^DD(165.5103,"IX",.01)=""
^DD(165.5104,0)="TEXT-DX PROC-PE SUB-FIELD^^.01^1"
^DD(165.5104,0,"IX","B",165.5104,.01)=""
^DD(165.5104,0,"NM","TEXT-DX PROC-PE")=""
^DD(165.5104,0,"UP")="165.5"
^DD(165.5104,.01,0)="TEXT-DX PROC-PE^WL^^0;1^Q"
^DD(165.5104,.01,1,0)="^.1"
^DD(165.5104,.01,1,1,0)="165.5104^B"
^DD(165.5104,.01,1,1,1)="S ^ONCO(165.5,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(165.5104,.01,1,1,2)="K ^ONCO(165.5,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(165.5104,.01,3)="Limit your text to 200 characters."
^DD(165.5104,.01,21,0)="^.001^3^3^3001012^^^^"
^DD(165.5104,.01,21,1,0)=""
^DD(165.5104,.01,21,2,0)="Text area for information from history and physical examinations."
^DD(165.5104,.01,21,3,0)=""
^DD(165.5104,.01,"DT")="2901109"
^DD(165.5104,"B","TEXT-DX PROC-PE",.01)=""
^DD(165.5104,"GL",0,1,.01)=""
^DD(165.5104,"IX",.01)=""
^DD(165.5105,0)="TEXT-DX PROC-X-RAY/SCAN SUB-FIELD^^.01^1"
^DD(165.5105,0,"IX","B",165.5105,.01)=""
^DD(165.5105,0,"NM","TEXT-DX PROC-X-RAY/SCAN")=""
^DD(165.5105,0,"UP")="165.5"
^DD(165.5105,.01,0)="TEXT-DX PROC-X-RAY/SCAN^WL^^0;1^Q"
^DD(165.5105,.01,1,0)="^.1"
^DD(165.5105,.01,1,1,0)="165.5105^B"
^DD(165.5105,.01,1,1,1)="S ^ONCO(165.5,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(165.5105,.01,1,1,2)="K ^ONCO(165.5,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(165.5105,.01,3)=""
^DD(165.5105,.01,21,0)="^^1^1^2871028^"
^DD(165.5105,.01,21,1,0)="Enter Dx Procedure X-ray/Scan text.  5 lines maximum of 50 characters each."
^DD(165.5105,.01,"DT")="2901109"
^DD(165.5105,"B","TEXT-DX PROC-X-RAY/SCAN",.01)=""
^DD(165.5105,"GL",0,1,.01)=""
^DD(165.5105,"IX",.01)=""
^DD(165.5106,0)="TEXT-DX PROC-SCOPES SUB-FIELD^^.01^1"
^DD(165.5106,0,"IX","B",165.5106,.01)=""
^DD(165.5106,0,"NM","TEXT-DX PROC-SCOPES")=""
^DD(165.5106,0,"UP")="165.5"
^DD(165.5106,.01,0)="TEXT-DX PROC-SCOPES^WL^^0;1^Q"
^DD(165.5106,.01,1,0)="^.1"
^DD(165.5106,.01,1,1,0)="165.5106^B"
^DD(165.5106,.01,1,1,1)="S ^ONCO(165.5,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(165.5106,.01,1,1,2)="K ^ONCO(165.5,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(165.5106,.01,3)=""
^DD(165.5106,.01,21,0)="^^1^1^2871028^^"
^DD(165.5106,.01,21,1,0)="Enter Dx Procedures Scopes text.  5 lines maximum of 50 characters each."
^DD(165.5106,.01,"DT")="2901109"
^DD(165.5106,"B","TEXT-DX PROC-SCOPES",.01)=""
^DD(165.5106,"GL",0,1,.01)=""
^DD(165.5106,"IX",.01)=""
^DD(165.5107,0)="TEXT-DX PROC-PATH SUB-FIELD^^.01^1"
^DD(165.5107,0,"IX","B",165.5107,.01)=""
^DD(165.5107,0,"NM","TEXT-DX PROC-PATH")=""
^DD(165.5107,0,"UP")="165.5"
^DD(165.5107,.01,0)="TEXT-DX PROC-PATH^WL^^0;1^Q"
^DD(165.5107,.01,1,0)="^.1"
^DD(165.5107,.01,1,1,0)="165.5107^B"
^DD(165.5107,.01,1,1,1)="S ^ONCO(165.5,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(165.5107,.01,1,1,2)="K ^ONCO(165.5,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(165.5107,.01,3)=""
^DD(165.5107,.01,21,0)="^^1^1^2871028^"
^DD(165.5107,.01,21,1,0)="Enter Dx Procedures Pathology text.  5 lines maximum of 50 characters each."
^DD(165.5107,.01,"DT")="2901109"
^DD(165.5107,"B","TEXT-DX PROC-PATH",.01)=""
^DD(165.5107,"GL",0,1,.01)=""
^DD(165.5107,"IX",.01)=""
^DD(165.5108,0)="RX TEXT-SURGERY SUB-FIELD^^.01^1"
^DD(165.5108,0,"IX","B",165.5108,.01)=""
^DD(165.5108,0,"NM","RX TEXT-SURGERY")=""
^DD(165.5108,0,"UP")="165.5"
^DD(165.5108,.01,0)="RX TEXT-SURGERY^WL^^0;1^Q"
^DD(165.5108,.01,1,0)="^.1"
^DD(165.5108,.01,1,1,0)="165.5108^B"
^DD(165.5108,.01,1,1,1)="S ^ONCO(165.5,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(165.5108,.01,1,1,2)="K ^ONCO(165.5,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(165.5108,.01,3)=""
^DD(165.5108,.01,21,0)="^.001^1^1^3001013^^"
^DD(165.5108,.01,21,1,0)="Enter Surgical Treatment text.  3 lines maximum of 50 characters each."
^DD(165.5108,.01,"DT")="3001013"
^DD(165.5108,"B","RX TEXT-SURGERY",.01)=""
^DD(165.5108,"GL",0,1,.01)=""
^DD(165.5108,"IX",.01)=""
^DD(165.5109,0)="RX TEXT-RADIATION SUB-FIELD^^.01^1"
^DD(165.5109,0,"IX","B",165.5109,.01)=""
^DD(165.5109,0,"NM","RX TEXT-RADIATION")=""
^DD(165.5109,0,"UP")="165.5"
^DD(165.5109,.01,0)="RX TEXT-RADIATION (BEAM)^WL^^0;1^Q"
^DD(165.5109,.01,1,0)="^.1"
^DD(165.5109,.01,1,1,0)="165.5109^B"
^DD(165.5109,.01,1,1,1)="S ^ONCO(165.5,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(165.5109,.01,1,1,2)="K ^ONCO(165.5,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(165.5109,.01,3)=""
^DD(165.5109,.01,21,0)="^.001^1^1^3030604^^^^"
^DD(165.5109,.01,21,1,0)="Enter Beam Radiation Treatment.   3 lines maximum of 50 characters each."
^DD(165.5109,.01,"DT")="3001013"
^DD(165.5109,"B","RX TEXT-RADIATION (BEAM)",.01)=""
^DD(165.5109,"GL",0,1,.01)=""
^DD(165.5109,"IX",.01)=""
^DD(165.5111,0)="RX TEXT-CHEMO SUB-FIELD^^.01^1"
^DD(165.5111,0,"IX","B",165.5111,.01)=""
^DD(165.5111,0,"NM","RX TEXT-CHEMO")=""
^DD(165.5111,0,"UP")="165.5"
^DD(165.5111,.01,0)="RX TEXT-CHEMO^WL^^0;1^Q"
^DD(165.5111,.01,1,0)="^.1"
^DD(165.5111,.01,1,1,0)="165.5111^B"
^DD(165.5111,.01,1,1,1)="S ^ONCO(165.5,DA(1),17,""B"",$E(X,1,30),DA)="""""
^DD(165.5111,.01,1,1,2)="K ^ONCO(165.5,DA(1),17,""B"",$E(X,1,30),DA)"
^DD(165.5111,.01,3)=""
^DD(165.5111,.01,21,0)="^.001^1^1^3001013^^^"
^DD(165.5111,.01,21,1,0)="Enter Chemotherapy Treatment text.  4 lines maximum of 50 characters each."
^DD(165.5111,.01,"DT")="3001013"
^DD(165.5111,"B","RX TEXT-CHEMO",.01)=""
^DD(165.5111,"GL",0,1,.01)=""
^DD(165.5111,"IX",.01)=""
^DD(165.5112,0)="RX TEXT-HORMONE SUB-FIELD^^.01^1"
^DD(165.5112,0,"IX","B",165.5112,.01)=""
^DD(165.5112,0,"NM","RX TEXT-HORMONE")=""
^DD(165.5112,0,"UP")="165.5"
^DD(165.5112,.01,0)="RX TEXT-HORMONE^WL^^0;1^Q"
^DD(165.5112,.01,1,0)="^.1"
^DD(165.5112,.01,1,1,0)="165.5112^B"
^DD(165.5112,.01,1,1,1)="S ^ONCO(165.5,DA(1),18,""B"",$E(X,1,30),DA)="""""
^DD(165.5112,.01,1,1,2)="K ^ONCO(165.5,DA(1),18,""B"",$E(X,1,30),DA)"
^DD(165.5112,.01,3)=""
^DD(165.5112,.01,21,0)="^.001^1^1^3001013^^^"
^DD(165.5112,.01,21,1,0)="Enter Immunotherapy Treatment text.  2 lines maximum of 50 characters each."
^DD(165.5112,.01,"DT")="3001013"
^DD(165.5112,"B","RX TEXT-HORMONE",.01)=""
^DD(165.5112,"GL",0,1,.01)=""
^DD(165.5112,"IX",.01)=""
^DD(165.5113,0)="TEXT-REMARKS SUB-FIELD^^.01^1"
^DD(165.5113,0,"IX","B",165.5113,.01)=""
^DD(165.5113,0,"NM","TEXT-REMARKS")=""
^DD(165.5113,0,"UP")="165.5"
^DD(165.5113,.01,0)="TEXT-REMARKS^WL^^0;1^Q"
^DD(165.5113,.01,1,0)="^.1"
^DD(165.5113,.01,1,1,0)="165.5113^B"
^DD(165.5113,.01,1,1,1)="S ^ONCO(165.5,DA(1),19,""B"",$E(X,1,30),DA)="""""
^DD(165.5113,.01,1,1,2)="K ^ONCO(165.5,DA(1),19,""B"",$E(X,1,30),DA)"
^DD(165.5113,.01,3)=""
^DD(165.5113,.01,21,0)="^^1^1^2930930^"
^DD(165.5113,.01,21,1,0)="A line of the free text field."
^DD(165.5113,.01,"DT")="2901109"
^DD(165.5113,"B","TEXT-REMARKS",.01)=""
^DD(165.5113,"GL",0,1,.01)=""
^DD(165.5113,"IX",.01)=""
^DD(165.5114,0)="RX TEXT-BRM SUB-FIELD^^.01^1"
^DD(165.5114,0,"DT")="2900518"
^DD(165.5114,0,"IX","B",165.5114,.01)=""
^DD(165.5114,0,"NM","RX TEXT-BRM")=""
^DD(165.5114,0,"UP")="165.5"
^DD(165.5114,.01,0)="RX TEXT-BRM^WL^^0;1^Q"
^DD(165.5114,.01,1,0)="^.1"
^DD(165.5114,.01,1,1,0)="165.5114^B"
^DD(165.5114,.01,1,1,1)="S ^ONCO(165.5,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(165.5114,.01,1,1,2)="K ^ONCO(165.5,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(165.5114,.01,3)=""
^DD(165.5114,.01,21,0)="^.001^1^1^3001013^^^^"
^DD(165.5114,.01,21,1,0)="This is a line of the free text field."
^DD(165.5114,.01,"DT")="3001013"
^DD(165.5114,"B","RX TEXT-BRM",.01)=""
^DD(165.5114,"GL",0,1,.01)=""
^DD(165.5114,"IX",.01)=""
^DD(165.5115,0)="RX TEXT-OTHER SUB-FIELD^^.01^1"
^DD(165.5115,0,"DT")="2900518"
^DD(165.5115,0,"IX","B",165.5115,.01)=""
^DD(165.5115,0,"NM","RX TEXT-OTHER")=""
^DD(165.5115,0,"UP")="165.5"
^DD(165.5115,.01,0)="RX TEXT-OTHER^WL^^0;1^Q"
^DD(165.5115,.01,1,0)="^.1"
^DD(165.5115,.01,1,1,0)="165.5115^B"
^DD(165.5115,.01,1,1,1)="S ^ONCO(165.5,DA(1),21,""B"",$E(X,1,30),DA)="""""
^DD(165.5115,.01,1,1,2)="K ^ONCO(165.5,DA(1),21,""B"",$E(X,1,30),DA)"
^DD(165.5115,.01,3)=""
^DD(165.5115,.01,21,0)="^.001^1^1^3001013^^^^"
^DD(165.5115,.01,21,1,0)="Enter relevant text for other treatment."
^DD(165.5115,.01,"DT")="3001013"
^DD(165.5115,"B","RX TEXT-OTHER",.01)=""
^DD(165.5115,"GL",0,1,.01)=""
^DD(165.5115,"IX",.01)=""
^DD(165.5116,0)="TEXT-DX PROC-LAB TESTS SUB-FIELD^^.01^1"
^DD(165.5116,0,"DT")="2900518"
^DD(165.5116,0,"IX","B",165.5116,.01)=""
^DD(165.5116,0,"NM","TEXT-DX PROC-LAB TESTS")=""
^DD(165.5116,0,"UP")="165.5"
^DD(165.5116,.01,0)="TEXT-DX PROC-LAB TESTS^WL^^0;1^Q"
^DD(165.5116,.01,1,0)="^.1"
^DD(165.5116,.01,1,1,0)="165.5116^B"
^DD(165.5116,.01,1,1,1)="S ^ONCO(165.5,DA(1),22,""B"",$E(X,1,30),DA)="""""
^DD(165.5116,.01,1,1,2)="K ^ONCO(165.5,DA(1),22,""B"",$E(X,1,30),DA)"
^DD(165.5116,.01,3)=""
^DD(165.5116,.01,21,0)="^.001^4^4^3001013^^"
^DD(165.5116,.01,21,1,0)=""
^DD(165.5116,.01,21,2,0)="Text area for information from laboratory examinations other than cytology"
^DD(165.5116,.01,21,3,0)="and histopatholgy."
^DD(165.5116,.01,21,4,0)=""
^DD(165.5116,.01,"DT")="3001013"
^DD(165.5116,"B","TEXT-DX PROC-LAB TESTS",.01)=""
^DD(165.5116,"GL",0,1,.01)=""
^DD(165.5116,"IX",.01)=""
^DD(165.513,0)="SUBSEQUENT THERAPY COMMENTS SUB-FIELD^^.01^1"
^DD(165.513,0,"NM","SUBSEQUENT THERAPY COMMENTS")=""
^DD(165.513,0,"UP")="165.51"
^DD(165.513,.01,0)="COMMENTS^W^^0;1^Q"
^DD(165.513,.01,21,0)="^^1^1^2930930^"
^DD(165.513,.01,21,1,0)="This is a line of the free text field."
^DD(165.513,.01,"DT")="2870918"
^DD(165.513,"B","COMMENTS",.01)=""
^DD(165.513,"GL",0,1,.01)=""
^DD(165.5131,0)="RADIATION AUXILIARY TEXT SUB-FIELD^^.01^1"
^DD(165.5131,0,"DT")="2970825"
^DD(165.5131,0,"NM","RADIATION AUXILIARY TEXT")=""
^DD(165.5131,0,"UP")="165.5"
^DD(165.5131,.01,0)="RADIATION AUXILIARY TEXT^W^^0;1^Q"
^DD(165.5131,.01,"DT")="2970825"
^DD(165.5131,"B","RADIATION AUXILIARY TEXT",.01)=""
^DD(165.5131,"GL",0,1,.01)=""
^DD(165.52,0)="RADIATION TREATMENT SUB-FIELD^^9^10"
^DD(165.52,0,"DT")="2930721"
^DD(165.52,0,"IX","B",165.52,.01)=""
^DD(165.52,0,"NM","RADIATION TREATMENT")=""
^DD(165.52,0,"UP")="165.5"
^DD(165.52,.01,0)="TARGET PLACE^MF^^0;1^K:$L(X)>24!($L(X)<3) X"
^DD(165.52,.01,1,0)="^.1"
^DD(165.52,.01,1,1,0)="165.52^B"
^DD(165.52,.01,1,1,1)="S ^ONCO(165.5,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(165.52,.01,1,1,2)="K ^ONCO(165.5,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(165.52,.01,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(165.52,.01,21,0)="^^1^1^2871007^"
^DD(165.52,.01,21,1,0)="Enter site irradiated."
^DD(165.52,.01,"DT")="2871007"
^DD(165.52,1,0)="TARGET SITE^P164'^ONCO(164,^0;2^Q"
^DD(165.52,1,21,0)="^^3^3^2940712^"
^DD(165.52,1,21,1,0)="This is the anatomic site toward which radiation treatment was directed,"
^DD(165.52,1,21,2,0)="as listed in International Classification of Diseases for Oncology,"
^DD(165.52,1,21,3,0)="second edition."
^DD(165.52,1,"DT")="2871007"
^DD(165.52,2,0)="RADIATION SOURCE^S^EB:EXTERNAL BEAM;SS:SEALED SOURCES;US:UNSEALED SYSTEMIC;C:COMBINATION;O:OTHER;U:UNKNOWN;^0;3^Q"
^DD(165.52,2,21,0)="^^1^1^2930930^"
^DD(165.52,2,21,1,0)="This is a code indicating the source of radiation."
^DD(165.52,2,"DT")="2871007"
^DD(165.52,3,0)="TOTAL DOSE TO TARGET (cGy)^NJ2,0X^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(165.52,3,3)="1 cGy = 1 RAD    1Gy = 100 RADs"
^DD(165.52,3,4)="I X=""??"" D RAD^ONCOHELP K X"
^DD(165.52,3,21,0)="^^1^1^2960122^^"
^DD(165.52,3,21,1,0)="This is the total dose to the target site, in hundredths of grays."
^DD(165.52,3,"DT")="2901109"
^DD(165.52,4,0)="# FRACTIONS^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(165.52,4,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(165.52,4,21,0)="^^1^1^2930930^"
^DD(165.52,4,21,1,0)="This is the number of fractions administered."
^DD(165.52,4,"DT")="2871007"
^DD(165.52,5,0)="PREDOMINANT FXN SIZE (cGy)^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(165.52,5,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(165.52,5,21,0)="^^1^1^2930930^"
^DD(165.52,5,21,1,0)="This is the predominant fraction size, in hundredths of grays."
^DD(165.52,5,"DT")="2871007"
^DD(165.52,6,0)="# DAYS^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(165.52,6,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(165.52,6,21,0)="^^1^1^2930930^"
^DD(165.52,6,21,1,0)="This is the number of days of treatment administered."
^DD(165.52,6,"DT")="2930721"
^DD(165.52,7,0)="START DATE^DX^^0;8^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) I $D(X) S Y=$P(^ONCO(165.5,D0,6,D1,0),U,9) I Y'="""" K:X>Y X"
^DD(165.52,7,3)="START DATE must be before or equal to STOP DATE.  Future dates are not allowed."
^DD(165.52,7,21,0)="^^2^2^2970523^^^^"
^DD(165.52,7,21,1,0)=""
^DD(165.52,7,21,2,0)="This is the date on which treatment began."
^DD(165.52,7,"DT")="2970204"
^DD(165.52,8,0)="STOP DATE^DX^^0;9^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0) I $D(X) S Y=$P(^ONCO(165.5,D0,6,D1,0),U,8) I Y'="""" K:X<Y X"
^DD(165.52,8,3)="STOP DATE must be after or equal to START DATE.  Future dates are not allowed."
^DD(165.52,8,21,0)="^^1^1^2970403^^"
^DD(165.52,8,21,1,0)="This is the date on which treatment ended."
^DD(165.52,8,"DT")="2970403"
^DD(165.52,9,0)="TEXT^165.529^^1;0"
^DD(165.52,9,21,0)="^^1^1^2930930^"
^DD(165.52,9,21,1,0)="This is a multi-line free text field permitting comments."
^DD(165.52,"B","# DAYS",6)=""
^DD(165.52,"B","# FRACTIONS",4)=""
^DD(165.52,"B","PREDOMINANT FXN SIZE (cGy)",5)=""
^DD(165.52,"B","RADIATION SOURCE",2)=""
^DD(165.52,"B","START DATE",7)=""
^DD(165.52,"B","STOP DATE",8)=""
^DD(165.52,"B","TARGET PLACE",.01)=""
^DD(165.52,"B","TARGET SITE",1)=""
^DD(165.52,"B","TEXT",9)=""
^DD(165.52,"B","TOTAL DOSE TO TARGET (cGy)",3)=""
^DD(165.52,"GL",0,1,.01)=""
^DD(165.52,"GL",0,2,1)=""
^DD(165.52,"GL",0,3,2)=""
^DD(165.52,"GL",0,4,3)=""
^DD(165.52,"GL",0,5,4)=""
^DD(165.52,"GL",0,6,5)=""
^DD(165.52,"GL",0,7,6)=""
^DD(165.52,"GL",0,8,7)=""
^DD(165.52,"GL",0,9,8)=""
^DD(165.52,"GL",1,0,9)=""
^DD(165.52,"IX",.01)=""
^DD(165.52,"SB",165.529,9)=""
^DD(165.529,0)="TEXT SUB-FIELD^^.01^1"
^DD(165.529,0,"NM","TEXT")=""
^DD(165.529,0,"UP")="165.52"
^DD(165.529,.01,0)="TEXT^W^^0;1^Q"
^DD(165.529,.01,21,0)="^^1^1^2930930^"
^DD(165.529,.01,21,1,0)="This is a line of the text."
^DD(165.529,.01,"DT")="2871007"
^DD(165.529,"B","TEXT",.01)=""
^DD(165.529,"GL",0,1,.01)=""
^DD(165.53,0)="RX TEXT-RADIATION OTHER SUB-FIELD^^.01^1"
^DD(165.53,0,"IX","B",165.53,.01)=""
^DD(165.53,0,"NM","RX TEXT-RADIATION OTHER")=""
^DD(165.53,0,"UP")="165.5"
^DD(165.53,.01,0)="RX TEXT-RADIATION OTHER^WL^^0;1^Q"
^DD(165.53,.01,1,0)="^.1"
^DD(165.53,.01,1,1,0)="165.53^B"
^DD(165.53,.01,1,1,1)="S ^ONCO(165.5,DA(1),16,""B"",$E(X,1,30),DA)="""""
^DD(165.53,.01,1,1,2)="K ^ONCO(165.5,DA(1),16,""B"",$E(X,1,30),DA)"
^DD(165.53,.01,3)=""
^DD(165.53,.01,21,0)="^.001^1^1^3001013^^^"
^DD(165.53,.01,21,1,0)="Enter Radiation Treatment other than Beam.  3 lines maximum of 50 characters each."
^DD(165.53,.01,"DT")="3001013"
^DD(165.53,"B","RX TEXT-RADIATION OTHER",.01)=""
^DD(165.53,"GL",0,1,.01)=""
^DD(165.53,"IX",.01)=""
^DD(165.54,0)="QA FINDINGS SUB-FIELD^^.01^1"
^DD(165.54,0,"DT")="2990727"
^DD(165.54,0,"NM","QA FINDINGS")=""
^DD(165.54,0,"UP")="165.5"
^DD(165.54,.01,0)="QA FINDINGS^W^^0;1^Q"
^DD(165.54,.01,21,0)="^^4^4^2990727^^^"
^DD(165.54,.01,21,1,0)=""
^DD(165.54,.01,21,2,0)="Enter the QA FINDINGS of the QA review.  Please limit your findings to 3"
^DD(165.54,.01,21,3,0)="lines of text."
^DD(165.54,.01,21,4,0)=""
^DD(165.54,.01,"DT")="2990727"
^DD(165.54,"B","QA FINDINGS",.01)=""
^DD(165.54,"GL",0,1,.01)=""
^DD(165.55,0)="FIELD^^1^2"
^DD(165.55,0,"DDA")="N"
^DD(165.55,0,"DT")="3030206"
^DD(165.55,0,"IX","B",165.55,.01)=""
^DD(165.55,0,"NM","CONVERSION FLAGS")=""
^DD(165.55,0,"VR")="2.11"
^DD(165.55,0,"VRPK")="ONC"
^DD(165.55,.01,0)="CONVERSION^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(165.55,.01,1,0)="^.1"
^DD(165.55,.01,1,1,0)="165.55^B"
^DD(165.55,.01,1,1,1)="S ^ONCO(165.55,""B"",$E(X,1,30),DA)="""""
^DD(165.55,.01,1,1,2)="K ^ONCO(165.55,""B"",$E(X,1,30),DA)"
^DD(165.55,.01,3)="Answer must be 1-30 characters in length."
^DD(165.55,.01,"DT")="3030206"
^DD(165.55,1,0)="CONVERSION COMPLETED^S^Y:YES;^0;2^Q"
^DD(165.55,1,"DT")="3030206"
^DD(165.55,"B","CONVERSION",.01)=""
^DD(165.55,"B","CONVERSION COMPLETED",1)=""
^DD(165.55,"GL",0,1,.01)=""
^DD(165.55,"GL",0,2,1)=""
^DD(165.55,"IX",.01)=""
^DD(165.55,"RQ",.01)=""
^DD(165.572,0)="SUBSEQUENT RECURRENCES SUB-FIELD^^5^10"
^DD(165.572,0,"DT")="2960129"
^DD(165.572,0,"IX","B",165.572,.01)=""
^DD(165.572,0,"NM","SUBSEQUENT RECURRENCES")=""
^DD(165.572,0,"UP")="165.5"
^DD(165.572,.01,0)="DATE of SUBSEQUENT RECURRENCE^MDOX^^0;1^D DFIT^ONCODSR"
^DD(165.572,.01,.1)="Date of Recurrence"
^DD(165.572,.01,1,0)="^.1"
^DD(165.572,.01,1,1,0)="165.572^B"
^DD(165.572,.01,1,1,1)="S ^ONCO(165.5,DA(1),23,""B"",$E(X,1,30),DA)="""""
^DD(165.572,.01,1,1,2)="K ^ONCO(165.5,DA(1),23,""B"",$E(X,1,30),DA)"
^DD(165.572,.01,2)="S Y(0)=Y S X=Y D DATEOT^ONCOES"
^DD(165.572,.01,2.1)="S X=Y D DATEOT^ONCOES"
^DD(165.572,.01,3)="*** DATE OF SUBSEQUENT RECURRENCE MUST BE AFTER OR EQUAL TO DATE DX ***"
^DD(165.572,.01,21,0)="^^2^2^2970523^^"
^DD(165.572,.01,21,1,0)=""
^DD(165.572,.01,21,2,0)="This is the date on which a recurrence was recorded to have occurred."
^DD(165.572,.01,"DT")="2970403"
^DD(165.572,.02,0)="TYPE of SUBSEQUENT RECURRENCE^P160.12'O^ONCO(160.12,^0;2^Q"
^DD(165.572,.02,2)="S Y(0)=Y S:Y'="""" Y=$P(^ONCO(160.12,Y,0),""^"",2)"
^DD(165.572,.02,2.1)="S:Y'="""" Y=$P(^ONCO(160.12,Y,0),""^"",2)"
^DD(165.572,.02,3)=""
^DD(165.572,.02,21,0)="^^1^1^2960129^^^"
^DD(165.572,.02,21,1,0)="Record the code for the type of subsequent recurrence."
^DD(165.572,.02,"DT")="2960129"
^DD(165.572,.03,0)="DISTANT SITE 1^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central Nervous System;7:Skin;8:Lymph Nodes (Distant);9:Other/Generalized/NOS;^0;3^Q"
^DD(165.572,.03,3)=""
^DD(165.572,.03,21,0)="^.001^1^1^3040709^^"
^DD(165.572,.03,21,1,0)="Record the first site of distant recurrence."
^DD(165.572,.03,"DT")="3040709"
^DD(165.572,.031,0)="DISTANT SITE 2^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central Nervous System;7:Skin;8:Lymph Nodes (Distant);9:Other/Generalized/NOS;^0;4^Q"
^DD(165.572,.031,3)=""
^DD(165.572,.031,21,0)="^.001^1^1^3040709^^"
^DD(165.572,.031,21,1,0)="Record the second site of distant recurrence."
^DD(165.572,.031,"DT")="3040709"
^DD(165.572,.032,0)="DISTANT SITE 3^S^0:None;1:Peritoneum;2:Lung;3:Pleura;4:Liver;5:Bone;6:Central Nervous System;7:Skin;8:Lymph Nodes (Distant);9:Other/Generalized/NOS;^0;5^Q"
^DD(165.572,.032,3)=""
^DD(165.572,.032,21,0)="^.001^1^1^3040709^^"
^DD(165.572,.032,21,1,0)="Record the third site of distant recurrence."
^DD(165.572,.032,"DT")="3040709"
^DD(165.572,1,0)="OTHER T^FXO^^0;6^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""T"",STGIND=""O"" D IN^ONCOTNM"
^DD(165.572,1,2)="S Y(0)=Y S ONCOX=""T"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.572,1,2.1)="S ONCOX=""T"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.572,1,3)="Answer must be appropriate ""T"" code from the AJCC Staging Manual"
^DD(165.572,1,4)="S ONCOX=""T"",STGIND=""O"" D HP^ONCOTNM"
^DD(165.572,1,21,0)="^^2^2^2970114^"
^DD(165.572,1,21,1,0)="""Other T"" evaluates the primary tumor and identifies tumor size and/or"
^DD(165.572,1,21,2,0)="extension."
^DD(165.572,1,"DT")="2970115"
^DD(165.572,2,0)="OTHER N^FXO^^0;7^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""N"",STGIND=""O"" D IN^ONCOTNM"
^DD(165.572,2,2)="S Y(0)=Y S ONCOX=""N"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.572,2,2.1)="S ONCOX=""N"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.572,2,3)="Answer must be appropriate ""N"" code from the AJCC Staging Manual"
^DD(165.572,2,4)="S ONCOX=""N"",STGIND=""O"" D HP^ONCOTNM"
^DD(165.572,2,21,0)="^^2^2^2970114^"
^DD(165.572,2,21,1,0)="""Other N"" classifies the regional lymph nodes and describes the"
^DD(165.572,2,21,2,0)="absence or presence and the extent of node metastases."
^DD(165.572,2,"DT")="2970115"
^DD(165.572,3,0)="OTHER M^FXO^^0;8^K:$L(X)>30!($L(X)<1) X I $D(X) S ONCOX=""M"",STGIND=""O"" D IN^ONCOTNM"
^DD(165.572,3,2)="S Y(0)=Y S ONCOX=""M"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.572,3,2.1)="S ONCOX=""M"",STGIND=""O"" D OT^ONCOTNM"
^DD(165.572,3,3)="Answer must be appropriate ""M"" code from the AJCC Staging Manual"
^DD(165.572,3,4)="S ONCOX=""M"",STGIND=""O"" D HP^ONCOTNM"
^DD(165.572,3,21,0)="^^2^2^2970114^"
^DD(165.572,3,21,1,0)="""Other M"" records the presence or absence of distant metastases.  Choose"
^DD(165.572,3,21,2,0)="the lower (less advanced) M category when there is any uncertainty."
^DD(165.572,3,"DT")="2970115"
^DD(165.572,4,0)="OTHER STAGE GROUP^FXO^^0;9^K:$L(X)>14!($L(X)<1) X S ONCOX=""S"",STGIND=""O"" D IN^ONCOTNS"
^DD(165.572,4,2)="S Y(0)=Y S X="""" D OT^ONCOTNS"
^DD(165.572,4,2.1)="S X="""" D OT^ONCOTNS"
^DD(165.572,4,3)="Answer with the appropriate stage from the AJCC Stage Manual"
^DD(165.572,4,4)="S ONCOX=""S"",STGIND=""O"" D HP^ONCOTNS"
^DD(165.572,4,21,0)="^^11^11^2970114^"
^DD(165.572,4,21,1,0)="Record the apparent extent of disease in accordance with AJCC staging"
^DD(165.572,4,21,2,0)="requirements."
^DD(165.572,4,21,3,0)=""
^DD(165.572,4,21,4,0)="Stage codes:"
^DD(165.572,4,21,5,0)=""
^DD(165.572,4,21,6,0)="0        IB        III        IVB"
^DD(165.572,4,21,7,0)="0A       IC        IIIA       Not applicable"
^DD(165.572,4,21,8,0)="Occult   II        IIIB       Unknown"
^DD(165.572,4,21,9,0)="0is      IIA       IIIC"
^DD(165.572,4,21,10,0)="I        IIB        IV"
^DD(165.572,4,21,11,0)="IA       IIC        IVA"
^DD(165.572,4,"DT")="2970115"
^DD(165.572,5,0)="STAGED BY (OTHER STAGE)^S^0:Not staged;1:Managing physician;2:Pathologist;3:Other physician;4:Any combination of 1, 2, or 3;5:Registrar;6:Any combination of 5 with 1, 2, or 3;7:Other;8:Staged, individual not specified;9:Unknown if staged;^0;10^Q"
^DD(165.572,5,21,0)="^^4^4^2970114^"
^DD(165.572,5,21,1,0)="""Staged By (Other Stage)"" identifies the person who documented the other"
^DD(165.572,5,21,2,0)="AJCC staging elements and the stage group.  The Commission requires"
^DD(165.572,5,21,3,0)="analytic cases to be staged by the managing physician.  Compliance with"
^DD(165.572,5,21,4,0)="Commission-approved program requirements can be analyzed using this data."
^DD(165.572,5,"DT")="2970114"
^DD(165.572,"B","DATE of SUBSEQUENT RECURRENCE",.01)=""
^DD(165.572,"B","DISTANT SITE 1",.03)=""
^DD(165.572,"B","DISTANT SITE 2",.031)=""
^DD(165.572,"B","DISTANT SITE 3",.032)=""
^DD(165.572,"B","Date of Recurrence",.01)="1"
^DD(165.572,"B","OTHER M",3)=""
^DD(165.572,"B","OTHER N",2)=""
^DD(165.572,"B","OTHER STAGE GROUP",4)=""
^DD(165.572,"B","OTHER T",1)=""
^DD(165.572,"B","STAGED BY (OTHER STAGE)",5)=""
^DD(165.572,"B","TYPE of SUBSEQUENT RECURRENCE",.02)=""
^DD(165.572,"GL",0,1,.01)=""
^DD(165.572,"GL",0,2,.02)=""
^DD(165.572,"GL",0,3,.03)=""
^DD(165.572,"GL",0,4,.031)=""
^DD(165.572,"GL",0,5,.032)=""
^DD(165.572,"GL",0,6,1)=""
^DD(165.572,"GL",0,7,2)=""
^DD(165.572,"GL",0,8,3)=""
^DD(165.572,"GL",0,9,4)=""
^DD(165.572,"GL",0,10,5)=""
^DD(165.572,"IX",.01)=""
^DD(165.573,0)="TUMOR STATUS SUB-FIELD^^.02^2"
^DD(165.573,0,"DT")="2930610"
^DD(165.573,0,"IX","AA",165.573,.01)=""
^DD(165.573,0,"IX","AC",165.573,.02)=""
^DD(165.573,0,"IX","B",165.573,.01)=""
^DD(165.573,0,"NM","TUMOR STATUS")=""
^DD(165.573,0,"UP")="165.5"
^DD(165.573,.01,0)="TUMOR STATUS DATE^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(165.573,.01,1,0)="^.1"
^DD(165.573,.01,1,1,0)="165.573^B"
^DD(165.573,.01,1,1,1)="S ^ONCO(165.5,DA(1),""TS"",""B"",$E(X,1,30),DA)="""""
^DD(165.573,.01,1,1,2)="K ^ONCO(165.5,DA(1),""TS"",""B"",$E(X,1,30),DA)"
^DD(165.573,.01,1,2,0)="165.573^AA^MUMPS"
^DD(165.573,.01,1,2,1)="S ^ONCO(165.5,DA(1),""TS"",""AA"",9999999-X,DA)="""""
^DD(165.573,.01,1,2,2)="K ^ONCO(165.5,DA(1),""TS"",""AA"",9999999-X,DA)"
^DD(165.573,.01,1,2,"%D",0)="^^1^1^2930910^"
^DD(165.573,.01,1,2,"%D",1,0)="Indexes file in inverse order by tumor status date."
^DD(165.573,.01,1,2,"DT")="2921006"
^DD(165.573,.01,3)="Enter Date of Tumor Status Evaluation"
^DD(165.573,.01,21,0)="^^1^1^2930930^"
^DD(165.573,.01,21,1,0)="This is the date on which the tumor status was evaluated."
^DD(165.573,.01,"DT")="2921006"
^DD(165.573,.02,0)="CANCER STATUS^RP164.42'^ONCO(164.42,^0;2^Q"
^DD(165.573,.02,1,0)="^.1"
^DD(165.573,.02,1,1,0)="165.573^AC^MUMPS"
^DD(165.573,.02,1,1,1)="D LTS^ONCOU55(DA(1))"
^DD(165.573,.02,1,1,2)="D LTS^ONCOU55(DA(1),DA)"
^DD(165.573,.02,1,1,"%D",0)="^^1^1^3050624^"
^DD(165.573,.02,1,1,"%D",1,0)="This cross-reference updates LAST TUMOR STATUS (95)."
^DD(165.573,.02,1,1,"DT")="2930412"
^DD(165.573,.02,3)=""
^DD(165.573,.02,12)="The selections available depend on the patient's vital status at the time of follow-up."
^DD(165.573,.02,12.1)="S DIC(""S"")=""N OD,VS X ^DD(165.573,.02,9.2) I ((VS=0)&(Y>3))!((VS'=0)&((Y=1)!(Y=2)!(Y=9)))"""
^DD(165.573,.02,21,0)="5^.001^5^5^3050624^^"
^DD(165.573,.02,21,1,0)=""
^DD(165.573,.02,21,2,0)="Records the presence or absence of clincial evidence"
^DD(165.573,.02,21,3,0)="of cancer as of the DATE OF LAST CONTACT OR DEATH."
^DD(165.573,.02,21,4,0)=""
^DD(165.573,.02,21,5,0)="For further information see FORDS page 201."
^DD(165.573,.02,"DT")="3050624"
^DD(165.573,"B","CANCER STATUS",.02)=""
^DD(165.573,"B","TUMOR STATUS DATE",.01)=""
^DD(165.573,"GL",0,1,.01)=""
^DD(165.573,"GL",0,2,.02)=""
^DD(165.573,"IX",.01)=""
^DD(165.573,"IX",.02)=""
^DD(165.573,"RQ",.01)=""
^DD(165.573,"RQ",.02)=""
^DD(165.59,0)="FIELD^^101^3"
^DD(165.59,0,"DDA")="N"
^DD(165.59,0,"NM","COMPUTED PRIMARY")=""
^DD(165.59,0,"VR")="2.11"
^DD(165.59,.01,0)="SITE/GP*^RP165.5'X'^ONCO(165.5,^0;1^S DINUM=X"
^DD(165.59,.01,1,0)="^.1^^0"
^DD(165.59,.01,3)=""
^DD(165.59,.01,21,0)="^^1^1^2930820^"
^DD(165.59,.01,21,1,0)="This is the site group into which the primary's topography is classified."
^DD(165.59,.01,"DT")="2910706"
^DD(165.59,100,0)="SYSTEMS^CJ14^^ ; ^S X="""" D SYS^ONCOCOS"
^DD(165.59,100,9)="^"
^DD(165.59,100,9.01)=""
^DD(165.59,100,9.1)="S X="""" D SYS^ONCOCOS"
^DD(165.59,100,21,0)="^^1^1^2930820^"
^DD(165.59,100,21,1,0)="This is the systems description, formatted for output."
^DD(165.59,101,0)="LAST FOLLOWUP STATUS^CJ80^^ ; ^S X="""" D LFS^ONCODLF"
^DD(165.59,101,9)="^"
^DD(165.59,101,9.01)=""
^DD(165.59,101,9.1)="S X="""" D LFS^ONCODLF"
^DD(165.59,101,21,0)="^^1^1^2930820^"
^DD(165.59,101,21,1,0)="This is the last followup status, formatted for output."
^DD(165.59,"B","LAST FOLLOWUP STATUS",101)=""
^DD(165.59,"B","SITE/GP*",.01)=""
^DD(165.59,"B","SYSTEMS",100)=""
^DD(165.59,"GL",0,1,.01)=""
^DD(165.59,"RQ",.01)=""
^DD(166,0)="FIELD^^1^2"
^DD(166,0,"DDA")="N"
^DD(166,0,"DT")="3051228"
^DD(166,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(166,0,"IX","B",166,.01)=""
^DD(166,0,"IX","C",166,1)=""
^DD(166,0,"NM","CASEFINDING SOURCE")=""
^DD(166,0,"PT",165.5,21)=""
^DD(166,0,"VR")="2.11"
^DD(166,0,"VRPK")="ONC"
^DD(166,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(166,.01,1,0)="^.1"
^DD(166,.01,1,1,0)="166^B"
^DD(166,.01,1,1,1)="S ^ONCO(166,""B"",$E(X,1,30),DA)="""""
^DD(166,.01,1,1,2)="K ^ONCO(166,""B"",$E(X,1,30),DA)"
^DD(166,.01,3)="Answer must be 2 characters in length."
^DD(166,.01,21,0)="^^1^1^3051228^"
^DD(166,.01,21,1,0)="Records the CASEFINDING SOURCE codes."
^DD(166,.01,"DT")="3051228"
^DD(166,1,0)="DEFINITION^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(166,1,1,0)="^.1"
^DD(166,1,1,1,0)="166^C^MUMPS"
^DD(166,1,1,1,1)="D UCASE^ONCOU S ^ONCO(166,""C"",$E(X,1,30),DA)="""""
^DD(166,1,1,1,2)="D UCASE^ONCOU K ^ONCO(166,""C"",$E(X,1,30),DA)"
^DD(166,1,1,1,"%D",0)="^^1^1^3061117^"
^DD(166,1,1,1,"%D",1,0)="This cross-reference allows for uppercase look-up by DEFINITION."
^DD(166,1,1,1,"DT")="3061117"
^DD(166,1,3)="Answer must be 1-100 characters in length."
^DD(166,1,21,0)="^^1^1^3051228^"
^DD(166,1,21,1,0)="Records the CASEFINDING SOURCE code definitions."
^DD(166,1,"DT")="3061117"
^DD(166,"B","CODE",.01)=""
^DD(166,"B","DEFINITION",1)=""
^DD(166,"GL",0,1,.01)=""
^DD(166,"GL",0,2,1)=""
^DD(166,"IX",.01)=""
^DD(166,"IX",1)=""
^DD(166,"RQ",.01)=""
^DD(166.12,0)="FIELD^^1^2"
^DD(166.12,0,"DDA")="N"
^DD(166.12,0,"DT")="2960621"
^DD(166.12,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(166.12,0,"IX","B",166.12,.01)=""
^DD(166.12,0,"IX","C",166.12,1)=""
^DD(166.12,0,"NM","BLADDER PHYSICIAN SPECIALTY")=""
^DD(166.12,0,"PT",165.5,347)=""
^DD(166.12,0,"PT",165.5,348)=""
^DD(166.12,0,"VR")="2.11"
^DD(166.12,0,"VRPK")="ONC"
^DD(166.12,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(166.12,.01,1,0)="^.1"
^DD(166.12,.01,1,1,0)="166.12^B"
^DD(166.12,.01,1,1,1)="S ^ONCO(166.12,""B"",$E(X,1,30),DA)="""""
^DD(166.12,.01,1,1,2)="K ^ONCO(166.12,""B"",$E(X,1,30),DA)"
^DD(166.12,.01,3)="Answer must be 2 characters in length."
^DD(166.12,.01,21,0)="^^1^1^2960621^^^^"
^DD(166.12,.01,21,1,0)="This field contains the 2-digit code for physician specialty name."
^DD(166.12,.01,"DT")="2960621"
^DD(166.12,1,0)="NAME^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(166.12,1,1,0)="^.1"
^DD(166.12,1,1,1,0)="166.12^C"
^DD(166.12,1,1,1,1)="S ^ONCO(166.12,""C"",$E(X,1,30),DA)="""""
^DD(166.12,1,1,1,2)="K ^ONCO(166.12,""C"",$E(X,1,30),DA)"
^DD(166.12,1,1,1,"%D",0)="^^1^1^2960123^"
^DD(166.12,1,1,1,"%D",1,0)="This is a regular cross reference on the name field for lookup."
^DD(166.12,1,1,1,"DT")="2960123"
^DD(166.12,1,3)="Answer must be 3-30 characters in length."
^DD(166.12,1,21,0)="^^1^1^2960123^"
^DD(166.12,1,21,1,0)="This field contains the physician specialty name."
^DD(166.12,1,"DT")="2960123"
^DD(166.12,"B","CODE",.01)=""
^DD(166.12,"B","NAME",1)=""
^DD(166.12,"GL",0,1,.01)=""
^DD(166.12,"GL",0,2,1)=""
^DD(166.12,"IX",.01)=""
^DD(166.12,"IX",1)=""
^DD(166.12,"RQ",.01)=""
^DD(166.12,"RQ",1)=""
^DD(166.13,0)="FIELD^^1^2"
^DD(166.13,0,"DDA")="N"
^DD(166.13,0,"DT")="2970820"
^DD(166.13,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(166.13,0,"IX","B",166.13,.01)=""
^DD(166.13,0,"IX","C",166.13,1)=""
^DD(166.13,0,"NM","REGIONAL TREATMENT MODALITY")=""
^DD(166.13,0,"PT",165.5,363)=""
^DD(166.13,0,"PT",165.5,363.1)=""
^DD(166.13,0,"VR")="2.11"
^DD(166.13,0,"VRPK")="ONC"
^DD(166.13,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(166.13,.01,1,0)="^.1"
^DD(166.13,.01,1,1,0)="166.13^B"
^DD(166.13,.01,1,1,1)="S ^ONCO(166.13,""B"",$E(X,1,30),DA)="""""
^DD(166.13,.01,1,1,2)="K ^ONCO(166.13,""B"",$E(X,1,30),DA)"
^DD(166.13,.01,3)="Answer must be 2 characters in length."
^DD(166.13,.01,21,0)="^^1^1^2970820^^^^"
^DD(166.13,.01,21,1,0)="Enter the REGIONAL TREATMENT MODALITY code."
^DD(166.13,.01,"DT")="2960621"
^DD(166.13,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(166.13,1,1,0)="^.1"
^DD(166.13,1,1,1,0)="166.13^C"
^DD(166.13,1,1,1,1)="S ^ONCO(166.13,""C"",$E(X,1,30),DA)="""""
^DD(166.13,1,1,1,2)="K ^ONCO(166.13,""C"",$E(X,1,30),DA)"
^DD(166.13,1,1,1,"%D",0)="^^1^1^2960123^^"
^DD(166.13,1,1,1,"%D",1,0)="This is a regular cross reference on the name field for lookup."
^DD(166.13,1,1,1,"DT")="2960123"
^DD(166.13,1,3)="Answer must be 3-40 characters in length."
^DD(166.13,1,21,0)="^^1^1^2970820^^^^"
^DD(166.13,1,21,1,0)="Enter the REGIONAL TREATMENT MODALITY code description."
^DD(166.13,1,"DT")="2970820"
^DD(166.13,"B","CODE",.01)=""
^DD(166.13,"B","DESCRIPTION",1)=""
^DD(166.13,"GL",0,1,.01)=""
^DD(166.13,"GL",0,2,1)=""
^DD(166.13,"IX",.01)=""
^DD(166.13,"IX",1)=""
^DD(166.13,"RQ",.01)=""
^DD(166.13,"RQ",1)=""
^DD(166.3,0)="FIELD^^.01^2"
^DD(166.3,0,"DDA")="N"
^DD(166.3,0,"DT")="2960910"
^DD(166.3,0,"IX","B",166.3,.01)=""
^DD(166.3,0,"NM","ONCOLOGY SUBSITE")=""
^DD(166.3,0,"PT",165.5,519)=""
^DD(166.3,0,"VR")="2.11"
^DD(166.3,0,"VRPK")="ONC"
^DD(166.3,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(166.3,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(166.3,.001,21,0)="^^1^1^2960910^^"
^DD(166.3,.001,21,1,0)="This is the subsite code."
^DD(166.3,.001,"DT")="2960910"
^DD(166.3,.01,0)="NAME^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X"
^DD(166.3,.01,1,0)="^.1"
^DD(166.3,.01,1,1,0)="166.3^B"
^DD(166.3,.01,1,1,1)="S ^ONCO(166.3,""B"",$E(X,1,30),DA)="""""
^DD(166.3,.01,1,1,2)="K ^ONCO(166.3,""B"",$E(X,1,30),DA)"
^DD(166.3,.01,3)="Answer must be 3-80 characters in length."
^DD(166.3,.01,21,0)="^^1^1^2960910^^^^"
^DD(166.3,.01,21,1,0)="This is the name of the subsite."
^DD(166.3,.01,"DT")="2960910"
^DD(166.3,"B","NAME",.01)=""
^DD(166.3,"B","NUMBER",.001)=""
^DD(166.3,"GL",0,1,.01)=""
^DD(166.3,"IX",.01)=""
^DD(166.3,"RQ",.01)=""
^DD(167,0)="FIELD^^1^2"
^DD(167,0,"DDA")="N"
^DD(167,0,"DT")="3030129"
^DD(167,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(167,0,"IX","B",167,.01)=""
^DD(167,0,"NM","HEMATOLOGIC TRANSPLANT/ENDOCRINE PROCEDURES")=""
^DD(167,0,"PT",165.5,153)=""
^DD(167,0,"PT",165.51,.02)=""
^DD(167,0,"VR")="2.11"
^DD(167,0,"VRPK")="ONC"
^DD(167,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(167,.01,1,0)="^.1"
^DD(167,.01,1,1,0)="167^B"
^DD(167,.01,1,1,1)="S ^ONCO(167,""B"",$E(X,1,30),DA)="""""
^DD(167,.01,1,1,2)="K ^ONCO(167,""B"",$E(X,1,30),DA)"
^DD(167,.01,3)="Answer must be 2 characters in length."
^DD(167,.01,21,0)="^^1^1^3030129^"
^DD(167,.01,21,1,0)="Identifies systemic therapeutic procedure codes."
^DD(167,.01,"DT")="3030129"
^DD(167,1,0)="DEFINITION^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(167,1,3)="Answer must be 1-40 characters in length."
^DD(167,1,21,0)="^^1^1^3030129^"
^DD(167,1,21,1,0)="Identifies systemic therapeutic procedure code definitions."
^DD(167,1,"DT")="3030129"
^DD(167,"B","CODE",.01)=""
^DD(167,"B","DEFINITION",1)=""
^DD(167,"GL",0,1,.01)=""
^DD(167,"GL",0,2,1)=""
^DD(167,"IX",.01)=""
^DD(167,"RQ",.01)=""
^DD(168,0)="FIELD^^1^2"
^DD(168,0,"DDA")="N"
^DD(168,0,"DT")="3060201"
^DD(168,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(168,0,"IX","B",168,.01)=""
^DD(168,0,"IX","C",168,1)=""
^DD(168,0,"IX","D",168,1)=""
^DD(168,0,"NM","TYPE OF REPORTING SOURCE")=""
^DD(168,0,"PT",165.5,1.2)=""
^DD(168,0,"VR")="2.11"
^DD(168,0,"VRPK")="ONC"
^DD(168,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(168,.01,1,0)="^.1"
^DD(168,.01,1,1,0)="168^B"
^DD(168,.01,1,1,1)="S ^ONCO(168,""B"",$E(X,1,30),DA)="""""
^DD(168,.01,1,1,2)="K ^ONCO(168,""B"",$E(X,1,30),DA)"
^DD(168,.01,3)="Answer must be 1 character in length."
^DD(168,.01,21,0)="^^1^1^3060201^"
^DD(168,.01,21,1,0)="Records TYPE OF REPORTING SOURCE codes."
^DD(168,.01,"DT")="3060201"
^DD(168,1,0)="DEFINITION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(168,1,1,0)="^.1"
^DD(168,1,1,1,0)="168^C"
^DD(168,1,1,1,1)="S ^ONCO(168,""C"",$E(X,1,30),DA)="""""
^DD(168,1,1,1,2)="K ^ONCO(168,""C"",$E(X,1,30),DA)"
^DD(168,1,1,1,"%D",0)="^^1^1^3060811^"
^DD(168,1,1,1,"%D",1,0)="This cross-reference allows look-up by DEFINTION."
^DD(168,1,1,1,"DT")="3060811"
^DD(168,1,1,2,0)="168^D^MUMPS"
^DD(168,1,1,2,1)="D UCASE^ONCOU S ^ONCO(168,""D"",$E(X,1,30),DA)="""""
^DD(168,1,1,2,2)="D UCASE^ONCOU K ^ONCO(168,""D"",$E(X,1,30),DA)"
^DD(168,1,1,2,"%D",0)="^^1^1^3060811^"
^DD(168,1,1,2,"%D",1,0)="This cross-reference allows uppercase look-up by DEFINITION."
^DD(168,1,1,2,"DT")="3060811"
^DD(168,1,3)="Answer must be 1-50 characters in length."
^DD(168,1,21,0)="^^1^1^3060201^"
^DD(168,1,21,1,0)="Records the TYPE OF REPORTING SOURCE code definitions."
^DD(168,1,"DT")="3060811"
^DD(168,"B","CODE",.01)=""
^DD(168,"B","DEFINITION",1)=""
^DD(168,"GL",0,1,.01)=""
^DD(168,"GL",0,2,1)=""
^DD(168,"IX",.01)=""
^DD(168,"IX",1)=""
^DD(168,"RQ",.01)=""
^DD(169,0)="FIELD^^1^2"
^DD(169,0,"DDA")="N"
^DD(169,0,"DT")="3070122"
^DD(169,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(169,0,"IX","B",169,.01)=""
^DD(169,0,"NM","TYPE OF MULTIPLE TUMORS")=""
^DD(169,0,"PT",165.5,194)=""
^DD(169,0,"VR")="2.11"
^DD(169,0,"VRPK")="ONC"
^DD(169,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(169,.01,1,0)="^.1"
^DD(169,.01,1,1,0)="169^B"
^DD(169,.01,1,1,1)="S ^ONCO(169,""B"",$E(X,1,30),DA)="""""
^DD(169,.01,1,1,2)="K ^ONCO(169,""B"",$E(X,1,30),DA)"
^DD(169,.01,3)="Answer must be 2 characters in length."
^DD(169,.01,21,0)="^^1^1^3070122^"
^DD(169,.01,21,1,0)="This data item contains the TYPE OF MULTIPLE TUMORS CODE values."
^DD(169,.01,"DT")="3070122"
^DD(169,1,0)="CODE TEXT^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(169,1,3)="Answer must be 1-30 characters in length."
^DD(169,1,21,0)="^^1^1^3070122^"
^DD(169,1,21,1,0)="This data item contains the TYPE OF MULTIPLE TUMORS CODE definition. "
^DD(169,1,"DT")="3070122"
^DD(169,"B","CODE",.01)=""
^DD(169,"B","CODE TEXT",1)=""
^DD(169,"GL",0,1,.01)=""
^DD(169,"GL",0,2,1)=""
^DD(169,"IX",.01)=""
^DD(169,"RQ",.01)=""
^DD(169.3,0)="FIELD^^71^14"
^DD(169.3,0,"DDA")="N"
^DD(169.3,0,"DT")="3010406"
^DD(169.3,0,"IX","AC",169.3,4)=""
^DD(169.3,0,"IX","AC",169.3,4.1)=""
^DD(169.3,0,"IX","B",169.3,.01)=""
^DD(169.3,0,"IX","C",169.32,.01)=""
^DD(169.3,0,"IX","D",169.3,1)=""
^DD(169.3,0,"NM","ICD-O-3 MORPHOLOGY")=""
^DD(169.3,0,"PT",164.23,.01)=""
^DD(169.3,0,"PT",165.5,22.3)=""
^DD(169.3,0,"VR")="2.11"
^DD(169.3,0,"VRPK")="ONC"
^DD(169.3,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<80000)!(X?.E1"".""1N.N) X"
^DD(169.3,.001,3)="Type a Number between 80000 and 99999, 0 Decimal Digits"
^DD(169.3,.001,"DT")="3001117"
^DD(169.3,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<2)!'(X'?1P.E) X"
^DD(169.3,.01,1,0)="^.1"
^DD(169.3,.01,1,1,0)="169.3^B"
^DD(169.3,.01,1,1,1)="S ^ONCO(169.3,""B"",$E(X,1,30),DA)="""""
^DD(169.3,.01,1,1,2)="K ^ONCO(169.3,""B"",$E(X,1,30),DA)"
^DD(169.3,.01,3)="Answer must be 2-45 characters in length."
^DD(169.3,.01,"DT")="3001122"
^DD(169.3,1,0)="CODE^F^^0;2^K:$L(X)>6!($L(X)<3) X"
^DD(169.3,1,1,0)="^.1"
^DD(169.3,1,1,1,0)="169.3^D"
^DD(169.3,1,1,1,1)="S ^ONCO(169.3,""D"",$E(X,1,30),DA)="""""
^DD(169.3,1,1,1,2)="K ^ONCO(169.3,""D"",$E(X,1,30),DA)"
^DD(169.3,1,1,1,"%D",0)="^^1^1^3001120^"
^DD(169.3,1,1,1,"%D",1,0)="Indexes file by CODE."
^DD(169.3,1,1,1,"DT")="3001120"
^DD(169.3,1,3)="Answer must be 3-6 characters in length."
^DD(169.3,1,"DT")="3001120"
^DD(169.3,2,0)="SYNONYM/EQUIVALENT TERM^169.32^^1;0"
^DD(169.3,2,21,0)="^.001^4^4^3010131^^^^"
^DD(169.3,2,21,1,0)=""
^DD(169.3,2,21,2,0)="This field contains the synonyms and equivalent terms for this"
^DD(169.3,2,21,3,0)="morphology."
^DD(169.3,2,21,4,0)=""
^DD(169.3,2,"DT")="3010131"
^DD(169.3,3,0)="ICDO-SITE^P164.08'^ONCO(164.08,^0;5^Q"
^DD(169.3,3,21,0)="^^1^1^3001120^"
^DD(169.3,3,21,1,0)="POINTS TO THE ICDO SITE FILE."
^DD(169.3,3,"DT")="3001120"
^DD(169.3,4,0)="TOPOGRAPHY 1^P164'^ONCO(164,^0;6^Q"
^DD(169.3,4,1,0)="^.1"
^DD(169.3,4,1,1,0)="169.3^AC"
^DD(169.3,4,1,1,1)="S ^ONCO(169.3,""AC"",$E(X,1,4),DA)="""""
^DD(169.3,4,1,1,2)="K ^ONCO(169.3,""AC"",$E(X,1,4),DA)"
^DD(169.3,4,1,1,"DT")="3010131"
^DD(169.3,4,21,0)="^.001^4^4^3010131^^^^"
^DD(169.3,4,21,1,0)=""
^DD(169.3,4,21,2,0)="This field indicates a usual primary site (ICD-O TOPOGRPAHY) for this"
^DD(169.3,4,21,3,0)="morphology."
^DD(169.3,4,21,4,0)=""
^DD(169.3,4,"DT")="3010131"
^DD(169.3,4.1,0)="TOPOGRAPHY 2^P164'^ONCO(164,^0;3^Q"
^DD(169.3,4.1,1,0)="^.1"
^DD(169.3,4.1,1,1,0)="169.3^AC"
^DD(169.3,4.1,1,1,1)="S ^ONCO(169.3,""AC"",$E(X,1,4),DA)="""""
^DD(169.3,4.1,1,1,2)="K ^ONCO(169.3,""AC"",$E(X,1,4),DA)"
^DD(169.3,4.1,1,1,"DT")="3010131"
^DD(169.3,4.1,21,0)="^^4^4^3010131^"
^DD(169.3,4.1,21,1,0)=""
^DD(169.3,4.1,21,2,0)="This field indicates a usual primary site (ICD-O TOPOGRPAHY) for this"
^DD(169.3,4.1,21,3,0)="morphology."
^DD(169.3,4.1,21,4,0)=""
^DD(169.3,4.1,"DT")="3010131"
^DD(169.3,43,0)="EXTENSION CODE SET-1ST ED^*P164.5'^ONCO(164.5,^E;1^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(169.3,43,12)="A first edition extension code set may be selected."
^DD(169.3,43,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>1"""
^DD(169.3,43,21,0)="^.001^3^3^3010406^^^^"
^DD(169.3,43,21,1,0)="This field identifies the set of codes used to characterize extension"
^DD(169.3,43,21,2,0)="for this topography in the first edition of SEER Extent of Disease Codes"
^DD(169.3,43,21,3,0)="and Coding Instructions."
^DD(169.3,43,"DT")="3010406"
^DD(169.3,43.01,0)="EXTENSION CODE SET-2ND ED^*P164.5'^ONCO(164.5,^E;2^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(169.3,43.01,12)="A first or second edition extension code set may be selected."
^DD(169.3,43.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>2"""
^DD(169.3,43.01,21,0)="^.001^3^3^3001120^^"
^DD(169.3,43.01,21,1,0)="This field identifies the set of codes used to characterize extension"
^DD(169.3,43.01,21,2,0)="for this topography in the second edition of SEER Extent of Disease Codes"
^DD(169.3,43.01,21,3,0)="and Coding Instructions."
^DD(169.3,43.01,"DT")="3001120"
^DD(169.3,43.02,0)="EXTENSION CODE SET-3RD ED^*P164.5'^ONCO(164.5,^E;3^S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(169.3,43.02,12)="A first, second or third edition extension code set may be selected."
^DD(169.3,43.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""E"""",$P(^(0),U,2)'>3"""
^DD(169.3,43.02,21,0)="^.001^3^3^3001120^^^^"
^DD(169.3,43.02,21,1,0)="This field identifies the set of codes used to characterize extension"
^DD(169.3,43.02,21,2,0)="for this topography in the third edition of SEER Extent of Disease Codes"
^DD(169.3,43.02,21,3,0)="and Coding Instructions."
^DD(169.3,43.02,"DT")="3001120"
^DD(169.3,53,0)="LYMPH NODE CODE SET-1ST ED^*P164.5'^ONCO(164.5,^L;1^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(169.3,53,12)="A first edition lymph node code set may be selected."
^DD(169.3,53,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>1"""
^DD(169.3,53,21,0)="^.001^4^4^3001120^^^"
^DD(169.3,53,21,1,0)="This field identifies the set of codes used to"
^DD(169.3,53,21,2,0)="characterize lymph node involvement for this"
^DD(169.3,53,21,3,0)="topography in the first edition of SEER Extent"
^DD(169.3,53,21,4,0)="of Disease Codes and Coding Instructions."
^DD(169.3,53,"DT")="3001120"
^DD(169.3,53.01,0)="LYMPH NODE CODE SET-2ND ED^*P164.5'^ONCO(164.5,^L;2^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(169.3,53.01,12)="A first or second edition lymph node code set may be selected."
^DD(169.3,53.01,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>2"""
^DD(169.3,53.01,21,0)="^.001^4^4^3001120^^"
^DD(169.3,53.01,21,1,0)="This field identifies the set of codes used to"
^DD(169.3,53.01,21,2,0)="characterize lymph node involvement for this"
^DD(169.3,53.01,21,3,0)="topography in the second edition of SEER Extent"
^DD(169.3,53.01,21,4,0)="of Disease Codes and Coding Instructions."
^DD(169.3,53.01,"DT")="3001120"
^DD(169.3,53.02,0)="LYMPH NODE CODE SET-3RD ED^*P164.5'^ONCO(164.5,^L;3^S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(169.3,53.02,12)="A first, second or third edition lymph node code set may be selected."
^DD(169.3,53.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=""""L"""",$P(^(0),U,2)'>3"""
^DD(169.3,53.02,21,0)="^.001^4^4^3001120^^"
^DD(169.3,53.02,21,1,0)="This field identifies the set of codes used to"
^DD(169.3,53.02,21,2,0)="characterize lymph node involvement for this"
^DD(169.3,53.02,21,3,0)="topography in the third edition of SEER Extent"
^DD(169.3,53.02,21,4,0)="of Disease Codes and Coding Instructions."
^DD(169.3,53.02,"DT")="3001120"
^DD(169.3,71,0)="HISTOPATHOLOGIC TYPE^S^1:Lymphoid;2:Embryonal;3:Epithelial;4:Reticuloendothelial;5:Sarcoma;6:Hematogenous;7:Melanoma;8:Nerve;9:Other;^0;8^Q"
^DD(169.3,71,21,0)="^^2^2^3001120^"
^DD(169.3,71,21,1,0)="The HISTOPATHOLOGIC TYPE is the category (type) of morphology according to"
^DD(169.3,71,21,2,0)="cell type."
^DD(169.3,71,"DT")="3001120"
^DD(169.3,"B","CODE",1)=""
^DD(169.3,"B","EXTENSION CODE SET-1ST ED",43)=""
^DD(169.3,"B","EXTENSION CODE SET-2ND ED",43.01)=""
^DD(169.3,"B","EXTENSION CODE SET-3RD ED",43.02)=""
^DD(169.3,"B","HISTOPATHOLOGIC TYPE",71)=""
^DD(169.3,"B","ICDO-SITE",3)=""
^DD(169.3,"B","LYMPH NODE CODE SET-1ST ED",53)=""
^DD(169.3,"B","LYMPH NODE CODE SET-2ND ED",53.01)=""
^DD(169.3,"B","LYMPH NODE CODE SET-3RD ED",53.02)=""
^DD(169.3,"B","NAME",.01)=""
^DD(169.3,"B","NUMBER",.001)=""
^DD(169.3,"B","SYNONYM/EQUIVALENT TERM",2)=""
^DD(169.3,"B","TOPOGRAPHY 1",4)=""
^DD(169.3,"B","TOPOGRAPHY 2",4.1)=""
^DD(169.3,"GL",0,1,.01)=""
^DD(169.3,"GL",0,2,1)=""
^DD(169.3,"GL",0,3,4.1)=""
^DD(169.3,"GL",0,5,3)=""
^DD(169.3,"GL",0,6,4)=""
^DD(169.3,"GL",0,8,71)=""
^DD(169.3,"GL",1,0,2)=""
^DD(169.3,"GL","E",1,43)=""
^DD(169.3,"GL","E",2,43.01)=""
^DD(169.3,"GL","E",3,43.02)=""
^DD(169.3,"GL","L",1,53)=""
^DD(169.3,"GL","L",2,53.01)=""
^DD(169.3,"GL","L",3,53.02)=""
^DD(169.3,"IX",.01)=""
^DD(169.3,"IX",1)=""
^DD(169.3,"IX",4)=""
^DD(169.3,"IX",4.1)=""
^DD(169.3,"RQ",.01)=""
^DD(169.3,"SB",169.32,2)=""
^DD(169.32,0)="SYNONYM/EQUIVALENT TERM SUB-FIELD^^.01^1"
^DD(169.32,0,"DT")="3001120"
^DD(169.32,0,"NM","SYNONYM/EQUIVALENT TERM")=""
^DD(169.32,0,"UP")="169.3"
^DD(169.32,.01,0)="SYNONYM/EQUIVALENT TERM^MFX^^0;1^K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>45!($L(X)<3) X"
^DD(169.32,.01,1,0)="^.1"
^DD(169.32,.01,1,1,0)="169.3^C"
^DD(169.32,.01,1,1,1)="S ^ONCO(169.3,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(169.32,.01,1,1,2)="K ^ONCO(169.3,""C"",$E(X,1,30),DA(1),DA)"
^DD(169.32,.01,1,1,"DT")="3001122"
^DD(169.32,.01,3)="Answer must be 3-45 characters in length."
^DD(169.32,.01,21,0)="^.001^4^4^3010131^^^"
^DD(169.32,.01,21,1,0)=""
^DD(169.32,.01,21,2,0)="This field contains a synonym or equivalent term for this"
^DD(169.32,.01,21,3,0)="morphology."
^DD(169.32,.01,21,4,0)=""
^DD(169.32,.01,"DT")="3010131"
^DD(169.32,"B","SYNONYM/EQUIVALENT TERM",.01)=""
^DD(169.32,"GL",0,1,.01)=""
^DD(169.32,"IX",.01)=""
^DD(169.99,0)="FIELD^^1^5"
^DD(169.99,0,"DT")="2920701"
^DD(169.99,0,"IX","B",169.99,.01)=""
^DD(169.99,0,"NM","ONCOLOGY PACKAGE STATUS")=""
^DD(169.99,0,"VR")="2.11"
^DD(169.99,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(169.99,.01,1,0)="^.1"
^DD(169.99,.01,1,1,0)="169.99^B"
^DD(169.99,.01,1,1,1)="S ^ONCO(169.99,""B"",$E(X,1,30),DA)="""""
^DD(169.99,.01,1,1,2)="K ^ONCO(169.99,""B"",$E(X,1,30),DA)"
^DD(169.99,.01,3)="Answer must be 3-30 characters in length."
^DD(169.99,.01,21,0)="^^1^1^2920528^^"
^DD(169.99,.01,21,1,0)="RECORDS THE NAME."
^DD(169.99,.01,"DT")="2920519"
^DD(169.99,.02,0)="CURRENT VERSION^RF^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(169.99,.02,3)="Answer must be 1-4 characters in length."
^DD(169.99,.02,21,0)="^^1^1^2920528^"
^DD(169.99,.02,21,1,0)="RECORDS THE CURRENT VERSION OF THE PACKAGE."
^DD(169.99,.02,"DT")="2920519"
^DD(169.99,.03,0)="BEGIN INSTALL^RD^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(169.99,.03,21,0)="^^1^1^2920528^"
^DD(169.99,.03,21,1,0)="RECORDS THE TIME INSTALLATION WAS BEGUN."
^DD(169.99,.03,"DT")="2920519"
^DD(169.99,.04,0)="END INSTALL^RD^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(169.99,.04,21,0)="^^1^1^2920528^"
^DD(169.99,.04,21,1,0)="RECORDS THE TIME THE INSTALLATION WAS COMPLETE."
^DD(169.99,.04,"DT")="2920519"
^DD(169.99,1,0)="PREVIOUS VERSION^F^^OVR;1^K:$L(X)>6!($L(X)<1) X"
^DD(169.99,1,3)="Answer must be 1-6 characters in length."
^DD(169.99,1,21,0)="^^2^2^2930820^"
^DD(169.99,1,21,1,0)="This is the previous version of the package that was installed at this"
^DD(169.99,1,21,2,0)="location."
^DD(169.99,1,"DT")="2920701"
^DD(169.99,"B","BEGIN INSTALL",.03)=""
^DD(169.99,"B","CURRENT VERSION",.02)=""
^DD(169.99,"B","END INSTALL",.04)=""
^DD(169.99,"B","NAME",.01)=""
^DD(169.99,"B","PREVIOUS VERSION",1)=""
^DD(169.99,"GL",0,1,.01)=""
^DD(169.99,"GL",0,2,.02)=""
^DD(169.99,"GL",0,3,.03)=""
^DD(169.99,"GL",0,4,.04)=""
^DD(169.99,"GL","OVR",1,1)=""
^DD(169.99,"IX",.01)=""
^DD(169.99,"RQ",.01)=""
^DD(169.99,"RQ",.02)=""
^DD(169.99,"RQ",.03)=""
^DD(169.99,"RQ",.04)=""
^DD(183,0)="FIELD^^1^2"
^DD(183,0,"DT")="3071119"
^DD(183,0,"IX","B",183,.01)=""
^DD(183,0,"NM","CRHD HANDOFF PARAMETERS")=""
^DD(183,0,"VR")="1.0"
^DD(183,0,"VRPK")="CRHD"
^DD(183,.01,0)="NAME^RV^^0;1^Q"
^DD(183,.01,1,0)="^.1"
^DD(183,.01,1,1,0)="183^B"
^DD(183,.01,1,1,1)="S ^CRHD(183,""B"",$E(X,1,30),DA)="""""
^DD(183,.01,1,1,2)="K ^CRHD(183,""B"",$E(X,1,30),DA)"
^DD(183,.01,3)=""
^DD(183,.01,"DT")="3071119"
^DD(183,.01,"V",0)="^.12P^7^7"
^DD(183,.01,"V",1,0)="200^USER^1^USR^n^n"
^DD(183,.01,"V",2,0)="100.21^OE/RR TEAM^2^OTL^n^n"
^DD(183,.01,"V",3,0)="45.7^TREATING SPECIALTY^3^TS^n^n"
^DD(183,.01,"V",4,0)="404.51^SD TEAM^4^SD^n^n"
^DD(183,.01,"V",5,0)="49^SERVICE^5^SRV^n^n"
^DD(183,.01,"V",6,0)="44^LOCATION^6^LOC^n^n"
^DD(183,.01,"V",7,0)="4^DIVISION^7^DIV^n^n"
^DD(183,.01,"V","B",4,7)=""
^DD(183,.01,"V","B",44,6)=""
^DD(183,.01,"V","B",45.7,3)=""
^DD(183,.01,"V","B",49,5)=""
^DD(183,.01,"V","B",100.21,2)=""
^DD(183,.01,"V","B",200,1)=""
^DD(183,.01,"V","B",404.51,4)=""
^DD(183,.01,"V","M","DIVISION",7)=""
^DD(183,.01,"V","M","LOCATION",6)=""
^DD(183,.01,"V","M","OE/RR TEAM",2)=""
^DD(183,.01,"V","M","SD TEAM",4)=""
^DD(183,.01,"V","M","SERVICE",5)=""
^DD(183,.01,"V","M","TREATING SPECIALTY",3)=""
^DD(183,.01,"V","M","USER",1)=""
^DD(183,.01,"V","O",1,1)=""
^DD(183,.01,"V","O",2,2)=""
^DD(183,.01,"V","O",3,3)=""
^DD(183,.01,"V","O",4,4)=""
^DD(183,.01,"V","O",5,5)=""
^DD(183,.01,"V","O",6,6)=""
^DD(183,.01,"V","O",7,7)=""
^DD(183,.01,"V","P","DIV",7)=""
^DD(183,.01,"V","P","LOC",6)=""
^DD(183,.01,"V","P","OTL",2)=""
^DD(183,.01,"V","P","SD",4)=""
^DD(183,.01,"V","P","SRV",5)=""
^DD(183,.01,"V","P","TS",3)=""
^DD(183,.01,"V","P","USR",1)=""
^DD(183,1,0)="ENTITY^183.01^^1;0"
^DD(183,"B","ENTITY",1)=""
^DD(183,"B","NAME",.01)=""
^DD(183,"GL",0,1,.01)=""
^DD(183,"GL",1,0,1)=""
^DD(183,"IX",.01)=""
^DD(183,"RQ",.01)=""
^DD(183,"SB",183.01,1)=""
^DD(183.01,0)="ENTITY SUB-FIELD^^2^3"
^DD(183.01,0,"DT")="3071119"
^DD(183.01,0,"IX","B",183.01,.01)=""
^DD(183.01,0,"NM","ENTITY")=""
^DD(183.01,0,"UP")="183"
^DD(183.01,.01,0)="NAME^MRF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(183.01,.01,1,0)="^.1"
^DD(183.01,.01,1,1,0)="183.01^B"
^DD(183.01,.01,1,1,1)="S ^CRHD(183,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(183.01,.01,1,1,2)="K ^CRHD(183,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(183.01,.01,3)="Answer must be 1-30 characters in length."
^DD(183.01,.01,21,0)="^^1^1^3071119^"
^DD(183.01,.01,21,1,0)="This file holds the parameters for a Hand-off configuration."
^DD(183.01,.01,"DT")="3071119"
^DD(183.01,1,0)="VALUE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(183.01,1,3)="Answer must be 1-30 characters in length."
^DD(183.01,1,"DT")="3071119"
^DD(183.01,2,0)="LIST VALUE^183.12^^1;0"
^DD(183.01,"B","LIST VALUE",2)=""
^DD(183.01,"B","NAME",.01)=""
^DD(183.01,"B","VALUE",1)=""
^DD(183.01,"GL",0,1,.01)=""
^DD(183.01,"GL",0,2,1)=""
^DD(183.01,"GL",1,0,2)=""
^DD(183.01,"IX",.01)=""
^DD(183.01,"RQ",.01)=""
^DD(183.01,"SB",183.12,2)=""
^DD(183.12,0)="LIST VALUE SUB-FIELD^^.01^1"
^DD(183.12,0,"DT")="3071119"
^DD(183.12,0,"IX","B",183.12,.01)=""
^DD(183.12,0,"NM","LIST VALUE")=""
^DD(183.12,0,"UP")="183.01"
^DD(183.12,.01,0)="LIST VALUE^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(183.12,.01,1,0)="^.1"
^DD(183.12,.01,1,1,0)="183.12^B"
^DD(183.12,.01,1,1,1)="S ^CRHD(183,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(183.12,.01,1,1,2)="K ^CRHD(183,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(183.12,.01,3)="Answer must be 1-30 characters in length."
^DD(183.12,.01,"DT")="3071119"
^DD(183.12,"B","LIST VALUE",.01)=""
^DD(183.12,"GL",0,1,.01)=""
^DD(183.12,"IX",.01)=""
^DD(183.2,0)="FIELD^^1^2"
^DD(183.2,0,"DT")="3071119"
^DD(183.2,0,"IX","AC",183.21,1)=""
^DD(183.2,0,"IX","AD",183.21,5)=""
^DD(183.2,0,"IX","B",183.2,.01)=""
^DD(183.2,0,"IX","C",183.21,.01)=""
^DD(183.2,0,"IX","D",183.21,1)=""
^DD(183.2,0,"NM","CRHD TEMPORARY DATA")=""
^DD(183.2,0,"VR")="1.0"
^DD(183.2,0,"VRPK")="CRHD"
^DD(183.2,.01,0)="FIELD NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(183.2,.01,1,0)="^.1"
^DD(183.2,.01,1,1,0)="183.2^B"
^DD(183.2,.01,1,1,1)="S ^CRHD(183.2,""B"",$E(X,1,30),DA)="""""
^DD(183.2,.01,1,1,2)="K ^CRHD(183.2,""B"",$E(X,1,30),DA)"
^DD(183.2,.01,3)="Answer must be 3-30 characters in length."
^DD(183.2,.01,"DT")="3071119"
^DD(183.2,1,0)="PATIENT^183.21P^^1;0"
^DD(183.2,"B","FIELD NAME",.01)=""
^DD(183.2,"B","PATIENT",1)=""
^DD(183.2,"GL",0,1,.01)=""
^DD(183.2,"GL",1,0,1)=""
^DD(183.2,"IX",.01)=""
^DD(183.2,"RQ",.01)=""
^DD(183.2,"SB",183.21,1)=""
^DD(183.21,0)="PATIENT SUB-FIELD^^6^7"
^DD(183.21,0,"DT")="3071119"
^DD(183.21,0,"IX","AC",183.21,1)=""
^DD(183.21,0,"IX","B",183.21,.01)=""
^DD(183.21,0,"IX","D",183.21,1)=""
^DD(183.21,0,"NM","PATIENT")=""
^DD(183.21,0,"UP")="183.2"
^DD(183.21,.01,0)="PATIENT^MRP2'^DPT(^0;1^Q"
^DD(183.21,.01,1,0)="^.1"
^DD(183.21,.01,1,1,0)="183.21^B"
^DD(183.21,.01,1,1,1)="S ^CRHD(183.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(183.21,.01,1,1,2)="K ^CRHD(183.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(183.21,.01,1,2,0)="183.2^C"
^DD(183.21,.01,1,2,1)="S ^CRHD(183.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(183.21,.01,1,2,2)="K ^CRHD(183.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(183.21,.01,1,2,"DT")="3071120"
^DD(183.21,.01,"DT")="3071120"
^DD(183.21,1,0)="AUTHOR^P200'^VA(200,^0;2^Q"
^DD(183.21,1,1,0)="^.1"
^DD(183.21,1,1,1,0)="183.21^D^MUMPS"
^DD(183.21,1,1,1,1)="S ^CRHD(183.2,""D"",X,+^CRHD(183.2,DA(1),1,DA,0),DA(1),DA)="""""
^DD(183.21,1,1,1,2)="K ^CRHD(183.2,""D"",X,+^CRHD(183.2,DA(1),1,DA,0),DA(1),DA)"
^DD(183.21,1,1,1,"DT")="3071120"
^DD(183.21,1,1,2,0)="183.21^AC^MUMPS"
^DD(183.21,1,1,2,1)="D XREF^CRHD2(DA(1),DA)"
^DD(183.21,1,1,2,2)="D KILXREF^CRHD2(DA(1),DA)"
^DD(183.21,1,1,2,"DT")="3080201"
^DD(183.21,1,"DT")="3080201"
^DD(183.21,2,0)="DATE ENTERED^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(183.21,2,"DT")="3071119"
^DD(183.21,3,0)="LAST EDITED BY^P200'^VA(200,^0;4^Q"
^DD(183.21,3,"DT")="3071119"
^DD(183.21,4,0)="DATE/TIME OF LAST EDIT^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(183.21,4,"DT")="3071119"
^DD(183.21,5,0)="PRIVATE^S^1:YES;0:NO;^0;6^Q"
^DD(183.21,5,1,0)="^.1"
^DD(183.21,5,1,1,0)="183.2^AD^MUMPS"
^DD(183.21,5,1,1,1)="D ONOFFPRV^CRHD2(X,DA(1),DA)"
^DD(183.21,5,1,1,2)="Q"
^DD(183.21,5,1,1,"DT")="3080201"
^DD(183.21,5,"DT")="3080201"
^DD(183.21,6,0)="READ ONLY^S^1:YES;0:NO;^0;7^Q"
^DD(183.21,6,"DT")="3071119"
^DD(183.21,"B","AUTHOR",1)=""
^DD(183.21,"B","DATE ENTERED",2)=""
^DD(183.21,"B","DATE/TIME OF LAST EDIT",4)=""
^DD(183.21,"B","LAST EDITED BY",3)=""
^DD(183.21,"B","PATIENT",.01)=""
^DD(183.21,"B","PRIVATE",5)=""
^DD(183.21,"B","READ ONLY",6)=""
^DD(183.21,"GL",0,1,.01)=""
^DD(183.21,"GL",0,2,1)=""
^DD(183.21,"GL",0,3,2)=""
^DD(183.21,"GL",0,4,3)=""
^DD(183.21,"GL",0,5,4)=""
^DD(183.21,"GL",0,6,5)=""
^DD(183.21,"GL",0,7,6)=""
^DD(183.21,"IX",.01)=""
^DD(183.21,"IX",1)=""
^DD(183.21,"IX",5)=""
^DD(183.21,"RQ",.01)=""
^DD(183.3,0)="FIELD^^2^4"
^DD(183.3,0,"DT")="3071119"
^DD(183.3,0,"IX","B",183.3,.01)=""
^DD(183.3,0,"NM","CRHD HOT TEAM PATIENT LIST")=""
^DD(183.3,0,"VR")="1.0"
^DD(183.3,0,"VRPK")="CRHD"
^DD(183.3,.01,0)="TEAM^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(183.3,.01,1,0)="^.1"
^DD(183.3,.01,1,1,0)="183.3^B"
^DD(183.3,.01,1,1,1)="S ^CRHD(183.3,""B"",$E(X,1,30),DA)="""""
^DD(183.3,.01,1,1,2)="K ^CRHD(183.3,""B"",$E(X,1,30),DA)"
^DD(183.3,.01,3)="Answer must be 3-30 characters in length."
^DD(183.3,.01,"DT")="3071119"
^DD(183.3,.02,0)="INACTIVE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(183.3,.02,"DT")="3071119"
^DD(183.3,1,0)="PATIENTS^183.31P^^1;0"
^DD(183.3,2,0)="PROVIDERS^183.32P^^2;0"
^DD(183.3,"B","INACTIVE",.02)=""
^DD(183.3,"B","PATIENTS",1)=""
^DD(183.3,"B","PROVIDERS",2)=""
^DD(183.3,"B","TEAM",.01)=""
^DD(183.3,"GL",0,1,.01)=""
^DD(183.3,"GL",0,2,.02)=""
^DD(183.3,"GL",1,0,1)=""
^DD(183.3,"GL",2,0,2)=""
^DD(183.3,"IX",.01)=""
^DD(183.3,"RQ",.01)=""
^DD(183.3,"SB",183.31,1)=""
^DD(183.3,"SB",183.32,2)=""
^DD(183.31,0)="PATIENTS SUB-FIELD^^6^7"
^DD(183.31,0,"DT")="3071119"
^DD(183.31,0,"IX","B",183.31,.01)=""
^DD(183.31,0,"NM","PATIENTS")=""
^DD(183.31,0,"UP")="183.3"
^DD(183.31,.01,0)="PATIENTS^MP2'^DPT(^0;1^Q"
^DD(183.31,.01,1,0)="^.1"
^DD(183.31,.01,1,1,0)="183.31^B"
^DD(183.31,.01,1,1,1)="S ^CRHD(183.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(183.31,.01,1,1,2)="K ^CRHD(183.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(183.31,.01,"DT")="3071119"
^DD(183.31,1,0)="ATTENDING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(183.31,1,3)="Answer must be 1-30 characters in length."
^DD(183.31,1,"DT")="3071119"
^DD(183.31,2,0)="RESIDENT^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(183.31,2,3)="Answer must be 1-30 characters in length."
^DD(183.31,2,"DT")="3071119"
^DD(183.31,3,0)="INTERN^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(183.31,3,3)="Answer must be 1-30 characters in length."
^DD(183.31,3,"DT")="3071119"
^DD(183.31,4,0)="FELLOW^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(183.31,4,3)="Answer must be 1-30 characters in length."
^DD(183.31,4,"DT")="3071119"
^DD(183.31,5,0)="MED STUDENT^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(183.31,5,3)="Answer must be 1-30 characters in length."
^DD(183.31,5,"DT")="3071119"
^DD(183.31,6,0)="NURSE^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(183.31,6,3)="Answer must be 1-30 characters in length."
^DD(183.31,6,"DT")="3071119"
^DD(183.31,"B","ATTENDING",1)=""
^DD(183.31,"B","FELLOW",4)=""
^DD(183.31,"B","INTERN",3)=""
^DD(183.31,"B","MED STUDENT",5)=""
^DD(183.31,"B","NURSE",6)=""
^DD(183.31,"B","PATIENTS",.01)=""
^DD(183.31,"B","RESIDENT",2)=""
^DD(183.31,"GL",0,1,.01)=""
^DD(183.31,"GL",0,2,1)=""
^DD(183.31,"GL",0,3,2)=""
^DD(183.31,"GL",0,4,3)=""
^DD(183.31,"GL",0,5,4)=""
^DD(183.31,"GL",0,6,5)=""
^DD(183.31,"GL",0,7,6)=""
^DD(183.31,"IX",.01)=""
^DD(183.32,0)="PROVIDERS SUB-FIELD^^5^6"
^DD(183.32,0,"DT")="3071119"
^DD(183.32,0,"IX","B",183.32,.01)=""
^DD(183.32,0,"NM","PROVIDERS")=""
^DD(183.32,0,"UP")="183.3"
^DD(183.32,.01,0)="PROVIDERS^MP200'^VA(200,^0;1^Q"
^DD(183.32,.01,1,0)="^.1"
^DD(183.32,.01,1,1,0)="183.32^B"
^DD(183.32,.01,1,1,1)="S ^CRHD(183.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(183.32,.01,1,1,2)="K ^CRHD(183.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(183.32,.01,"DT")="3071119"
^DD(183.32,1,0)="CLASS^S^ATTN:ATTENDING;RES:RESIDENT;INTERN:INTERN;FELLOW:FELLOW;STUD:MED STUDENT;NUR:NURSE;^0;2^Q"
^DD(183.32,1,"DT")="3071119"
^DD(183.32,2,0)="MODIFY PATIENT LIST^S^1:YES;0:NO;^0;3^Q"
^DD(183.32,2,"DT")="3071119"
^DD(183.32,3,0)="MODIFY PROVIDER LIST^S^1:YES;0:NO;^0;4^Q"
^DD(183.32,3,"DT")="3071119"
^DD(183.32,4,0)="PAGER^F^^0;5^K:$L(X)>20!($L(X)<3) X"
^DD(183.32,4,3)="Answer must be 3-20 characters in length."
^DD(183.32,4,"DT")="3071119"
^DD(183.32,5,0)="OFFICE PHONE^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(183.32,5,3)="Answer must be 3-20 characters in length."
^DD(183.32,5,"DT")="3071119"
^DD(183.32,"B","CLASS",1)=""
^DD(183.32,"B","MODIFY PATIENT LIST",2)=""
^DD(183.32,"B","MODIFY PROVIDER LIST",3)=""
^DD(183.32,"B","OFFICE PHONE",5)=""
^DD(183.32,"B","PAGER",4)=""
^DD(183.32,"B","PROVIDERS",.01)=""
^DD(183.32,"GL",0,1,.01)=""
^DD(183.32,"GL",0,2,1)=""
^DD(183.32,"GL",0,3,2)=""
^DD(183.32,"GL",0,4,3)=""
^DD(183.32,"GL",0,5,4)=""
^DD(183.32,"GL",0,6,5)=""
^DD(183.32,"IX",.01)=""
^DD(183.4,0)="FIELD^^2^3"
^DD(183.4,0,"DT")="3080411"
^DD(183.4,0,"IX","B",183.4,.01)=""
^DD(183.4,0,"NM","CRHD TEAM CONTACT LIST")=""
^DD(183.4,0,"VR")="1.0"
^DD(183.4,0,"VRPK")="CRHD"
^DD(183.4,.01,0)="TEAM^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(183.4,.01,1,0)="^.1"
^DD(183.4,.01,1,1,0)="183.4^B"
^DD(183.4,.01,1,1,1)="S ^CRHD(183.4,""B"",$E(X,1,30),DA)="""""
^DD(183.4,.01,1,1,2)="K ^CRHD(183.4,""B"",$E(X,1,30),DA)"
^DD(183.4,.01,3)="Answer must be 3-30 characters in length."
^DD(183.4,.01,"DT")="3071119"
^DD(183.4,1,0)="PROVIDERS^183.41P^^1;0"
^DD(183.4,2,0)="FILENAME^F^^2;1^K:$L(X)>30!($L(X)<2) X"
^DD(183.4,2,1,0)="^.1^^0"
^DD(183.4,2,3)="Answer must be 2-30 characters in length."
^DD(183.4,2,"DT")="3080411"
^DD(183.4,"B","FILENAME",2)=""
^DD(183.4,"B","PROVIDERS",1)=""
^DD(183.4,"B","TEAM",.01)=""
^DD(183.4,"GL",0,1,.01)=""
^DD(183.4,"GL",1,0,1)=""
^DD(183.4,"GL",2,1,2)=""
^DD(183.4,"IX",.01)=""
^DD(183.4,"RQ",.01)=""
^DD(183.4,"SB",183.41,1)=""
^DD(183.41,0)="PROVIDERS SUB-FIELD^^3^4"
^DD(183.41,0,"DT")="3071119"
^DD(183.41,0,"IX","B",183.41,.01)=""
^DD(183.41,0,"NM","PROVIDERS")=""
^DD(183.41,0,"UP")="183.4"
^DD(183.41,.01,0)="PROVIDERS^MP200'^VA(200,^0;1^Q"
^DD(183.41,.01,1,0)="^.1"
^DD(183.41,.01,1,1,0)="183.41^B"
^DD(183.41,.01,1,1,1)="S ^CRHD(183.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(183.41,.01,1,1,2)="K ^CRHD(183.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(183.41,.01,"DT")="3071119"
^DD(183.41,1,0)="CLASS^S^ATTN:ATTENDING;RES:RESIDENT;INTERN:INTERN;FELLOW:FELLOW;STUD:STUDENT;NUR:NURSE;^0;2^Q"
^DD(183.41,1,"DT")="3071119"
^DD(183.41,2,0)="PAGER^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(183.41,2,3)="Answer must be 3-20 characters in length."
^DD(183.41,2,"DT")="3071119"
^DD(183.41,3,0)="OFFICE PHONE^F^^0;4^K:$L(X)>20!($L(X)<3) X"
^DD(183.41,3,3)="Answer must be 3-20 characters in length."
^DD(183.41,3,"DT")="3071119"
^DD(183.41,"B","CLASS",1)=""
^DD(183.41,"B","OFFICE PHONE",3)=""
^DD(183.41,"B","PAGER",2)=""
^DD(183.41,"B","PROVIDERS",.01)=""
^DD(183.41,"GL",0,1,.01)=""
^DD(183.41,"GL",0,2,1)=""
^DD(183.41,"GL",0,3,2)=""
^DD(183.41,"GL",0,4,3)=""
^DD(183.41,"IX",.01)=""
^DD(190,0)="FIELD^^300^27"
^DD(190,0,"DIK")="RTXR"
^DD(190,0,"DIKOLD")="RTXR"
^DD(190,0,"DT")="2950424"
^DD(190,0,"ID","WRITE")="D DISP^RTUTL1,LINE^RTUTL3 I $D(^RT(+Y,0)) Q"
^DD(190,0,"IX","AA",190,4)=""
^DD(190,0,"IX","ABOR",190,105)=""
^DD(190,0,"IX","AC",190,106)=""
^DD(190,0,"IX","ACC",190,6)=""
^DD(190,0,"IX","ACCC",190,105)=""
^DD(190,0,"IX","AH",190,6)=""
^DD(190,0,"IX","AL",190,13)=""
^DD(190,0,"IX","AOLDBC",190,300)=""
^DD(190,0,"IX","AR",190,11)=""
^DD(190,0,"IX","AT",190,3)=""
^DD(190,0,"IX","B",190,.01)=""
^DD(190,0,"IX","C",190,9)=""
^DD(190,0,"IX","P",190,5)=""
^DD(190,0,"NM","RECORDS")=""
^DD(190,0,"PT",190,5)=""
^DD(190,0,"PT",190.1,.01)=""
^DD(190,0,"PT",190.2,.01)=""
^DD(190,0,"PT",190.3,.01)=""
^DD(190,0,"SCR")="I $S($D(RTINACFL):1,'$D(^(""I"")):1,'^(""I""):1,DT'>^(""I""):1,1:0)"
^DD(190,0,"VR")="2"
^DD(190,.001,0)="RECORD NUMBER^NJ9,0X^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N)!(X?4N) X"
^DD(190,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(190,.001,21,0)="^^1^1^2900215^^"
^DD(190,.001,21,1,0)="This is the internal number which is barcoded for record selection."
^DD(190,.001,"DT")="2870115"
^DD(190,.01,0)="ASSOCIATED ENTITY OR ITEM^RVI^^0;1^Q"
^DD(190,.01,1,0)="^.1^^-1"
^DD(190,.01,1,1,0)="190^B"
^DD(190,.01,1,1,1)="S ^RT(""B"",$E(X,1,30),DA)="""""
^DD(190,.01,1,1,2)="K ^RT(""B"",$E(X,1,30),DA)"
^DD(190,.01,3)=""
^DD(190,.01,4)=""
^DD(190,.01,7.5)="I X?.N1""/""1N.ANP D BC^RTDPA"
^DD(190,.01,21,0)="^^2^2^2900306^^^"
^DD(190,.01,21,1,0)="This defines the items in variable pointed to files which will be tracked"
^DD(190,.01,21,2,0)="as records."
^DD(190,.01,"DT")="2870427"
^DD(190,.01,"V",0)="^.12P^1^1"
^DD(190,.01,"V",1,0)="2^PATIENT^1^P^n^n"
^DD(190,.01,"V","B",2,1)=""
^DD(190,.01,"V","M","PATIENT",1)=""
^DD(190,.01,"V","O",1,1)=""
^DD(190,.01,"V","P","P",1)=""
^DD(190,2,0)="SITE NUMBER^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3) X"
^DD(190,2,1,0)="^.1^^0"
^DD(190,2,3)="ANSWER MUST BE 3-7 CHARACTERS IN LENGTH"
^DD(190,2,9)="^"
^DD(190,2,21,0)="^^1^1^2900803^^^^"
^DD(190,2,21,1,0)="This field is stuffed with the value of ^DD(""SITE"",1) upon creation."
^DD(190,2,"DT")="2870429"
^DD(190,3,0)="TYPE OF RECORD^RP195.2'I^DIC(195.2,^0;3^Q"
^DD(190,3,1,0)="^.1"
^DD(190,3,1,1,0)="^^TRIGGER^190^4"
^DD(190,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RT(D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(190,3,1,1,1.1) X ^DD(190,3,1,1,1.4)"
^DD(190,3,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(190,3,1,1,1.4)="S DIH=$S($D(^RT(DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=190,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(190,3,1,1,2)="Q"
^DD(190,3,1,1,"CREATE VALUE")="INTERNAL(#3:#3)"
^DD(190,3,1,1,"DELETE VALUE")="NO EFFECT"
^DD(190,3,1,1,"FIELD")="APPLICATION"
^DD(190,3,1,2,0)="190^AT^MUMPS"
^DD(190,3,1,2,1)="S ^RT(""AT"",X,$P(^RT(DA,0),U),DA)="""""
^DD(190,3,1,2,2)="K ^RT(""AT"",X,$P(^RT(DA,0),U),DA)"
^DD(190,3,21,0)="^^1^1^2900306^^"
^DD(190,3,21,1,0)="This allows records of the same source to be differentiated by type."
^DD(190,3,"DT")="2860917"
^DD(190,4,0)="APPLICATION^RP195.1'I^DIC(195.1,^0;4^Q"
^DD(190,4,1,0)="^.1"
^DD(190,4,1,1,0)="190^AA^MUMPS"
^DD(190,4,1,1,1)="S ^RT(""AA"",X,$P(^RT(DA,0),U),DA)="""""
^DD(190,4,1,1,2)="K ^RT(""AA"",X,$P(^RT(DA,0),U),DA)"
^DD(190,4,5,1,0)="190^3^1"
^DD(190,4,9)="^"
^DD(190,4,21,0)="^^2^2^2900215^"
^DD(190,4,21,1,0)="This allows multiple applications to access the record file as if each"
^DD(190,4,21,2,0)="application had its own file."
^DD(190,4,"DT")="2870128"
^DD(190,5,0)="PARENT RECORD^*P190'I^RT(^0;5^S DIC(""S"")=""I $D(D0),$P(^(0),U,7)=1,$P(^RT(+Y,0),U,1,3)=$P(^RT(D0,0),U,1,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190,5,1,0)="^.1"
^DD(190,5,1,1,0)="190^P"
^DD(190,5,1,1,1)="S ^RT(""P"",$E(X,1,30),DA)="""""
^DD(190,5,1,1,2)="K ^RT(""P"",$E(X,1,30),DA)"
^DD(190,5,12)="Allows only records with a volume number of 1 and the patient, computer site and record type the same."
^DD(190,5,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,7)=1,$P(^RT(+Y,0),U,1,3)=$P(^RT(D0,0),U,1,3)"""
^DD(190,5,21,0)="^^2^2^2900803^^"
^DD(190,5,21,1,0)="This identifies the original or initial record of a set of records that"
^DD(190,5,21,2,0)="are logically or physically described in terms of volumes."
^DD(190,5,"DT")="2870428"
^DD(190,6,0)="HOME LOCATION^R*P195.9'X^RTV(195.9,^0;6^S DIC(""V"")=""I $P(Y(0),U,4)=""""L"""""",DIC(""S"")=""I $D(D0),$D(^DIC(195.2,""""AF"""",Y,+$P(^RT(D0,0),U,3))) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190,6,1,0)="^.1"
^DD(190,6,1,1,0)="190^AH"
^DD(190,6,1,1,1)="S ^RT(""AH"",$E(X,1,30),DA)="""""
^DD(190,6,1,1,2)="K ^RT(""AH"",$E(X,1,30),DA)"
^DD(190,6,1,2,0)="190^ACC^MUMPS"
^DD(190,6,1,2,1)="Q:'$D(^RT(DA,""CL""))  Q:X=$P(^(""CL""),""^"",5)!('$P(^(""CL""),""^"",6))  S ^RT(""AC"",+$P(^(""CL""),""^"",6),DA)="""""
^DD(190,6,1,2,2)="Q"
^DD(190,6,12)="Allows only file rooms that handle this type of record."
^DD(190,6,12.1)="S DIC(""S"")=""I $D(D0),$D(^RTV(195.2,""""AF"""",Y,+$P(^RT(D0,0),U,3))) D DICS^RTDPA31"""
^DD(190,6,21,0)="^^2^2^2900215^"
^DD(190,6,21,1,0)="This identifies the place where a record normally resides when it isn't"
^DD(190,6,21,2,0)="charged to a borrower."
^DD(190,6,"DT")="2870514"
^DD(190,7,0)="VOLUME NUMBER^RNJ2,0I^^0;7^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(190,7,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(190,7,21,0)="^^2^2^2900803^^^"
^DD(190,7,21,1,0)="This further identifies a record which is a type which is normally allowed"
^DD(190,7,21,2,0)="to have multiple volumes."
^DD(190,7,"DT")="2860801"
^DD(190,8,0)="BARCODE LAST PRINTED^DI^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190,8,9)="^"
^DD(190,8,21,0)="^^2^2^2900215^"
^DD(190,8,21,1,0)="This gives an indication of the age of the label which was attached to"
^DD(190,8,21,2,0)="the record.  Labels wear out and have to be reprinted."
^DD(190,8,"DT")="2910222"
^DD(190,9,0)="PATIENT FILE POINTER^P2'I^DPT(^0;9^Q"
^DD(190,9,1,0)="^.1"
^DD(190,9,1,1,0)="190^C"
^DD(190,9,1,1,1)="S ^RT(""C"",$E(X,1,30),DA)="""""
^DD(190,9,1,1,2)="K ^RT(""C"",$E(X,1,30),DA)"
^DD(190,9,9)="^"
^DD(190,9,21,0)="^^2^2^2900215^"
^DD(190,9,21,1,0)="This allows faster access to the patient file entities for the MAS"
^DD(190,9,21,2,0)="RADIOLOGY DHCP applications."
^DD(190,9,"DT")="2860715"
^DD(190,11,0)="REASON NOT TO RETIRE RECORD^S^t:TEACHING;r:TUMOR REGISTRY;o:OK TO RETIRE;^0;11^Q"
^DD(190,11,1,0)="^.1"
^DD(190,11,1,1,0)="190^AR"
^DD(190,11,1,1,1)="S ^RT(""AR"",$E(X,1,30),DA)="""""
^DD(190,11,1,1,2)="K ^RT(""AR"",$E(X,1,30),DA)"
^DD(190,11,21,0)="^^1^1^2900215^"
^DD(190,11,21,1,0)="This marks the record to identify action that may not be appropriate."
^DD(190,11,"DT")="2870115"
^DD(190,12,0)="CONTENT DESCRIPTOR^F^^0;12^K:$L(X)>20!($L(X)<2) X"
^DD(190,12,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(190,12,21,0)="^^2^2^2900306^^"
^DD(190,12,21,1,0)="This allows free text descriptions for further delineation of record"
^DD(190,12,21,2,0)="contents."
^DD(190,12,"DT")="2861112"
^DD(190,13,0)="LOOSE FILING INDICATOR^S^y:YES;n:NO;^0;13^Q"
^DD(190,13,1,0)="^.1"
^DD(190,13,1,1,0)="190^AL^MUMPS"
^DD(190,13,1,1,1)="S:X=""y"" ^RT(""AL"",X,DA)="""""
^DD(190,13,1,1,2)="K ^RT(""AL"",X,DA)"
^DD(190,13,21,0)="^^2^2^2900215^"
^DD(190,13,21,1,0)="This is a flag that indicates the record may have items which should be"
^DD(190,13,21,2,0)="added to it."
^DD(190,13,"DT")="2870504"
^DD(190,50,0)="INACTIVATION DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(190,50,21,0)="^^2^2^2900215^"
^DD(190,50,21,1,0)="This defines a time when the record should no longer be used or is"
^DD(190,50,21,2,0)="no longer useful to a borrower."
^DD(190,50,"DT")="2861030"
^DD(190,75,0)="TEMPORARY COMMENT^F^^COMMENT;1^K:$L(X)>75!($L(X)<2) X"
^DD(190,75,3)="ANSWER MUST BE 2-75 CHARACTERS IN LENGTH"
^DD(190,75,21,0)="^^2^2^2900215^"
^DD(190,75,21,1,0)="This allows free text to be added to the record description to aid in its"
^DD(190,75,21,2,0)="distribution."
^DD(190,75,"DT")="2870514"
^DD(190,101,0)="ASSOCIATED REQUEST^*P190.1'^RTV(190.1,^CL;1^S DIC(""S"")=""I $D(D0),D0=+^(0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190,101,12)="Allows only request associated with this record."
^DD(190,101,12.1)="S DIC(""S"")=""I $D(D0),D0=+^(0)"""
^DD(190,101,21,0)="^^1^1^2900215^"
^DD(190,101,21,1,0)="This defines the reason why a record is moved in the system."
^DD(190,101,"DT")="2860721"
^DD(190,102,0)="ASSOCIATED MOVEMENT^*P190.3^RTV(190.3,^CL;2^S DIC(""S"")=""I $D(D0),D0=+^(0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190,102,12)="Allows only movements associated with the record."
^DD(190,102,12.1)="S DIC(""S"")=""I $D(D0),D0=+^(0)"""
^DD(190,102,21,0)="^^1^1^2900215^"
^DD(190,102,21,1,0)="This defines the most recent action that has taken place on the record."
^DD(190,102,"DT")="2861110"
^DD(190,105,0)="CURRENT BORROWER/FILE ROOM^R*P195.9X^RTV(195.9,^CL;5^D REC^RTDPA31 S DIC(""S"")=""I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190,105,1,0)="^.1"
^DD(190,105,1,1,0)="190^ABOR"
^DD(190,105,1,1,1)="S ^RT(""ABOR"",$E(X,1,30),DA)="""""
^DD(190,105,1,1,2)="K ^RT(""ABOR"",$E(X,1,30),DA)"
^DD(190,105,1,2,0)="190^ACCC^MUMPS"
^DD(190,105,1,2,1)="Q:'$D(^RT(DA,""CL""))!('$D(^(0)))  Q:X=$P(^(0),""^"",6)!('$P(^(""CL""),""^"",6))  S ^RT(""AC"",+$P(^(""CL""),""^"",6),DA)="""""
^DD(190,105,1,2,2)="Q"
^DD(190,105,3)=""
^DD(190,105,4)=""
^DD(190,105,12)="Allows borrowers/locations associated with the application."
^DD(190,105,12.1)="S DIC(""S"")=""I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(190,105,20,0)="^.3LA^^0"
^DD(190,105,21,0)="^^2^2^2900215^"
^DD(190,105,21,1,0)="This identifies the current location of the record as known by the record"
^DD(190,105,21,2,0)="tracking system."
^DD(190,105,"DT")="2870219"
^DD(190,106,0)="DATE/TIME CHARGED TO BORROWER^D^^CL;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190,106,1,0)="^.1"
^DD(190,106,1,1,0)="190^AC^MUMPS"
^DD(190,106,1,1,1)="Q:'$D(^RT(DA,""CL""))!('$D(^(0)))  Q:$P(^(0),""^"",6)=$P(^(""CL""),""^"",5)  S ^RT(""AC"",X,DA)="""""
^DD(190,106,1,1,2)="K ^RT(""AC"",X,DA)"
^DD(190,106,20,0)="^.3LA^^0"
^DD(190,106,21,0)="^^1^1^2900215^"
^DD(190,106,21,1,0)="This identifies the time of the last movement of a record."
^DD(190,106,"DT")="2870216"
^DD(190,107,0)="USER THAT CHARGED RECORD^P200'^VA(200,^CL;7^Q"
^DD(190,107,20,0)="^.3LA^^0"
^DD(190,107,21,0)="^^2^2^2900215^"
^DD(190,107,21,1,0)="This identifies the user of the system responsible for the movement of"
^DD(190,107,21,2,0)="the record to a borrower."
^DD(190,107,"DT")="2910624"
^DD(190,108,0)="TYPE OF MOVEMENT^*P195.3'^DIC(195.3,^CL;8^S DIC(""S"")=""I $D(D0),$P(^RT(D0,0),U,4)=$P(^DIC(195.3,Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190,108,1,0)="^.1^^0"
^DD(190,108,3)=""
^DD(190,108,12)="Allows only movement types associated with the record's application."
^DD(190,108,12.1)="S DIC(""S"")=""I $D(D0),$P(^RT(D0,0),U,4)=$P(^DIC(195.3,Y,0),U,3)"""
^DD(190,108,21,0)="^^1^1^2900215^"
^DD(190,108,21,1,0)="This identifies the most recent action on the record by the system."
^DD(190,108,"DT")="2870214"
^DD(190,114,0)="ASSOCIATED BORROWER^*P195.9X^RTV(195.9,^CL;14^D REC^RTDPA31 S DIC(""S"")=""I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190,114,4)=""
^DD(190,114,12)="Allows only different types of borrowers/locations associated with the application."
^DD(190,114,12.1)="S DIC(""S"")=""I $D(D0),$P(^RT(D0,0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(190,114,21,0)="^^2^2^2900215^"
^DD(190,114,21,1,0)="This identifies a borrower in the system which is associated with the"
^DD(190,114,21,2,0)="area where the record has been moved."
^DD(190,114,"DT")="2870218"
^DD(190,115,0)="LAST TIME SELECTED BY BARCODE?^S^y:YES;n:NO;^CL;15^Q"
^DD(190,115,21,0)="^^2^2^2900215^"
^DD(190,115,21,1,0)="This allows a guarantee that the last movement was valid since the"
^DD(190,115,21,2,0)="selection by barcode means positive identification of the record."
^DD(190,115,"DT")="2870201"
^DD(190,200,0)="# DAYS CHARGED TO BORROWER^CJ8^^ ; ^S Y(190,200,1)=$S($D(^RT(D0,""CL"")):^(""CL""),1:""""),X=DT S X=X,X1=X,X2=$P(Y(190,200,1),U,6),X="""" D:X2 ^%DTC:X1"
^DD(190,200,9)="^"
^DD(190,200,9.01)="190^106"
^DD(190,200,9.1)="TODAY-#106"
^DD(190,200,21,0)="^^1^1^2900215^"
^DD(190,200,21,1,0)="This is the amount of time the record has been with the borrower."
^DD(190,201,0)="DAYS OVERDUE^CJ8^^ ; ^D OVER^RTUTL1"
^DD(190,201,9)="^"
^DD(190,201,9.01)=""
^DD(190,201,9.1)="D OVER^RTUTL1"
^DD(190,201,21,0)="^^2^2^2900215^"
^DD(190,201,21,1,0)="This identifies from the system defined limit that the record should be"
^DD(190,201,21,2,0)="returned to the home file room."
^DD(190,201,"DT")="2870217"
^DD(190,202,0)="NUMBER OF MOVEMENTS ON FILE^CJ8,0X^^ ; ^S RT=D0 D COUNT^RTPURGE K RT"
^DD(190,202,9)="^"
^DD(190,202,9.01)=""
^DD(190,202,9.1)="D COUNT^PURGE"
^DD(190,202,21,0)="^^2^2^2900306^^"
^DD(190,202,21,1,0)="This shows how much background information on a record's movements is "
^DD(190,202,21,2,0)="available in the system."
^DD(190,202,"DT")="2870428"
^DD(190,300,0)="OLD BARCODE^F^^OLDBC;E1,45^K:$L(X)>45!($L(X)<1) X"
^DD(190,300,1,0)="^.1"
^DD(190,300,1,1,0)="190^AOLDBC"
^DD(190,300,1,1,1)="S ^RT(""AOLDBC"",$E(X,1,30),DA)="""""
^DD(190,300,1,1,2)="K ^RT(""AOLDBC"",$E(X,1,30),DA)"
^DD(190,300,1,1,"%D",0)="^^5^5^2950518^"
^DD(190,300,1,1,"%D",1,0)="This cross-reference is used only for consolidated sites.  If a record was"
^DD(190,300,1,1,"%D",2,0)="created at a VAMC which has had its database consolidated, this"
^DD(190,300,1,1,"%D",3,0)="cross-reference will contain the old barcode information.  The look-up"
^DD(190,300,1,1,"%D",4,0)="process will use this cross-reference to find the proper IEN of the"
^DD(190,300,1,1,"%D",5,0)="RECORDS file."
^DD(190,300,1,1,"DT")="2950424"
^DD(190,300,3)="Answer must be 1-45 characters in length."
^DD(190,300,9)="^"
^DD(190,300,21,0)="^^15^15^2950518^^"
^DD(190,300,21,1,0)="This field is to be used by VA consolidated sites ONLY.  It will be set as"
^DD(190,300,21,2,0)="part of the consolidation process and must not be altered in any way."
^DD(190,300,21,3,0)=" "
^DD(190,300,21,4,0)="The purpose of this field is to allow consolidated sites to continue to"
^DD(190,300,21,5,0)="use existing barcoded labels on their records rather than having to"
^DD(190,300,21,6,0)="relabel all records.  It will store the value of the record label's"
^DD(190,300,21,7,0)="barcode.  A cross-reference has been added to allow the look-up to select"
^DD(190,300,21,8,0)="the appropriate record.  This will only be used for records created prior"
^DD(190,300,21,9,0)="to the consolidation."
^DD(190,300,21,10,0)=" "
^DD(190,300,21,11,0)="This field will contain the barcode information EXCEPT for the"
^DD(190,300,21,12,0)="check-digit."
^DD(190,300,21,13,0)=" "
^DD(190,300,21,14,0)="For sites not involved in a consolidation, this field will contain no"
^DD(190,300,21,15,0)="data and look-up will be unaffected."
^DD(190,300,"DT")="2950424"
^DD(190,"B","# DAYS CHARGED TO BORROWER",200)=""
^DD(190,"B","APPLICATION",4)=""
^DD(190,"B","ASSOCIATED BORROWER",114)=""
^DD(190,"B","ASSOCIATED ENTITY OR ITEM",.01)=""
^DD(190,"B","ASSOCIATED MOVEMENT",102)=""
^DD(190,"B","ASSOCIATED REQUEST",101)=""
^DD(190,"B","BARCODE LAST PRINTED",8)=""
^DD(190,"B","CONTENT DESCRIPTOR",12)=""
^DD(190,"B","CURRENT BORROWER/FILE ROOM",105)=""
^DD(190,"B","DATE/TIME CHARGED TO BORROWER",106)=""
^DD(190,"B","DAYS OVERDUE",201)=""
^DD(190,"B","HOME LOCATION",6)=""
^DD(190,"B","INACTIVATION DATE",50)=""
^DD(190,"B","LAST TIME SELECTED BY BARCODE?",115)=""
^DD(190,"B","LOOSE FILING INDICATOR",13)=""
^DD(190,"B","NUMBER OF MOVEMENTS ON FILE",202)=""
^DD(190,"B","OLD BARCODE",300)=""
^DD(190,"B","PARENT RECORD",5)=""
^DD(190,"B","PATIENT FILE POINTER",9)=""
^DD(190,"B","REASON NOT TO RETIRE RECORD",11)=""
^DD(190,"B","RECORD NUMBER",.001)=""
^DD(190,"B","SITE NUMBER",2)=""
^DD(190,"B","TEMPORARY COMMENT",75)=""
^DD(190,"B","TYPE OF MOVEMENT",108)=""
^DD(190,"B","TYPE OF RECORD",3)=""
^DD(190,"B","USER THAT CHARGED RECORD",107)=""
^DD(190,"B","VOLUME NUMBER",7)=""
^DD(190,"GL",0,1,.01)=""
^DD(190,"GL",0,2,2)=""
^DD(190,"GL",0,3,3)=""
^DD(190,"GL",0,4,4)=""
^DD(190,"GL",0,5,5)=""
^DD(190,"GL",0,6,6)=""
^DD(190,"GL",0,7,7)=""
^DD(190,"GL",0,8,8)=""
^DD(190,"GL",0,9,9)=""
^DD(190,"GL",0,11,11)=""
^DD(190,"GL",0,12,12)=""
^DD(190,"GL",0,13,13)=""
^DD(190,"GL","CL",1,101)=""
^DD(190,"GL","CL",2,102)=""
^DD(190,"GL","CL",5,105)=""
^DD(190,"GL","CL",6,106)=""
^DD(190,"GL","CL",7,107)=""
^DD(190,"GL","CL",8,108)=""
^DD(190,"GL","CL",14,114)=""
^DD(190,"GL","CL",15,115)=""
^DD(190,"GL","COMMENT",1,75)=""
^DD(190,"GL","I",1,50)=""
^DD(190,"GL","OLDBC","E1,45",300)=""
^DD(190,"IX",.01)=""
^DD(190,"IX",3)=""
^DD(190,"IX",4)=""
^DD(190,"IX",5)=""
^DD(190,"IX",6)=""
^DD(190,"IX",9)=""
^DD(190,"IX",11)=""
^DD(190,"IX",13)=""
^DD(190,"IX",105)=""
^DD(190,"IX",106)=""
^DD(190,"IX",300)=""
^DD(190,"RQ",.01)=""
^DD(190,"RQ",2)=""
^DD(190,"RQ",3)=""
^DD(190,"RQ",4)=""
^DD(190,"RQ",6)=""
^DD(190,"RQ",7)=""
^DD(190,"RQ",105)=""
^DD(190.1,0)="FIELD^^200^16"
^DD(190.1,0,"DIK")="RTXQ"
^DD(190.1,0,"DIKOLD")="RTXQ"
^DD(190.1,0,"DT")="2910624"
^DD(190.1,0,"ID","WRITE")="D DISP1^RTUTL1"
^DD(190.1,0,"IX","ABOR",190.1,5)=""
^DD(190.1,0,"IX","AC",190.1,4)=""
^DD(190.1,0,"IX","AD",190.1,2)=""
^DD(190.1,0,"IX","AP",190.1,10)=""
^DD(190.1,0,"IX","AP1",190.1,10)=""
^DD(190.1,0,"IX","APAR",190.1,11)=""
^DD(190.1,0,"IX","B",190.1,.01)=""
^DD(190.1,0,"IX","C",190.1,4)=""
^DD(190.1,0,"NM","REQUESTED RECORDS")=""
^DD(190.1,0,"PT",44.003,200)=""
^DD(190.1,0,"PT",190,101)=""
^DD(190.1,0,"PT",190.1,11)=""
^DD(190.1,0,"VR")="2"
^DD(190.1,.01,0)="NAME^RP190'I^RT(^0;1^Q"
^DD(190.1,.01,1,0)="^.1^^-1"
^DD(190.1,.01,1,1,0)="190.1^B"
^DD(190.1,.01,1,1,1)="S ^RTV(190.1,""B"",$E(X,1,30),DA)="""""
^DD(190.1,.01,1,1,2)="K ^RTV(190.1,""B"",$E(X,1,30),DA)"
^DD(190.1,.01,3)=""
^DD(190.1,.01,7.5)="S X=$S(X?4N:X,X?.N:""`""_X,1:X) I X?1""REQ""1N.ANP S W=$E(X,1,$L(X)-1) D CHAR^RTDPA I Y,C=$E(X,$L(X)) S X=""`""_$E(X,4,$L(X)-1)"
^DD(190.1,.01,21,0)="^^2^2^2900217^"
^DD(190.1,.01,21,1,0)="This allows the identification of the request for a record with the"
^DD(190.1,.01,21,2,0)="entity defined in the record file."
^DD(190.1,.01,"DT")="2870429"
^DD(190.1,2,0)="DATE/TIME REQUESTED^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.1,2,1,0)="^.1"
^DD(190.1,2,1,1,0)="190.1^AD"
^DD(190.1,2,1,1,1)="S ^RTV(190.1,""AD"",$E(X,1,30),DA)="""""
^DD(190.1,2,1,1,2)="K ^RTV(190.1,""AD"",$E(X,1,30),DA)"
^DD(190.1,2,21,0)="^^1^1^2900217^"
^DD(190.1,2,21,1,0)="This identifies the date, time when the request was made"
^DD(190.1,2,"DT")="2870422"
^DD(190.1,3,0)="USER REQUESTING RECORD^P200'^VA(200,^0;3^Q"
^DD(190.1,3,21,0)="^^1^1^2900217^"
^DD(190.1,3,21,1,0)="This shows the person who made the request."
^DD(190.1,3,"DT")="2910624"
^DD(190.1,4,0)="DATE/TIME RECORD NEEDED^RDX^^0;4^S %DT(0)=$S($D(RTNOW):RTNOW,1:DT),%DT=""ETX"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S RTX=""RTQDT"" D TEST^RTQ1"
^DD(190.1,4,1,0)="^.1"
^DD(190.1,4,1,1,0)="190.1^C"
^DD(190.1,4,1,1,1)="S ^RTV(190.1,""C"",$E(X,1,30),DA)="""""
^DD(190.1,4,1,1,2)="K ^RTV(190.1,""C"",$E(X,1,30),DA)"
^DD(190.1,4,1,2,0)="190.1^AC^MUMPS"
^DD(190.1,4,1,2,1)="S ^RTV(190.1,""AC"",+^RTV(190.1,DA,0),$P(X,"".""),DA)="""""
^DD(190.1,4,1,2,2)="K ^RTV(190.1,""AC"",+^RTV(190.1,DA,0),$P(X,"".""),DA)"
^DD(190.1,4,3)="Date/time must be in the future."
^DD(190.1,4,21,0)="^^1^1^2900217^"
^DD(190.1,4,21,1,0)="This identifies the date, time when the record is needed."
^DD(190.1,4,"DT")="2910508"
^DD(190.1,5,0)="REQUESTOR^R*P195.9X^RTV(195.9,^0;5^D RTQ^RTDPA31 S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.1,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S RTX=""RTB"" D TEST^RTQ1 K RTX"
^DD(190.1,5,1,0)="^.1"
^DD(190.1,5,1,1,0)="190.1^ABOR"
^DD(190.1,5,1,1,1)="S ^RTV(190.1,""ABOR"",$E(X,1,30),DA)="""""
^DD(190.1,5,1,1,2)="K ^RTV(190.1,""ABOR"",$E(X,1,30),DA)"
^DD(190.1,5,3)=""
^DD(190.1,5,4)=""
^DD(190.1,5,12)="Allows borrowers/locations associated with the application."
^DD(190.1,5,12.1)="S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.1,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(190.1,5,21,0)="^^1^1^2900217^"
^DD(190.1,5,21,1,0)="This identifies the borrower who needs the record"
^DD(190.1,5,"DT")="2870218"
^DD(190.1,6,0)="REQUEST STATUS^S^c:CHARGED;x:CANCELLED;r:REQUESTED;n:NOT FILLABLE;^0;6^Q"
^DD(190.1,6,1,0)="^.1^^0"
^DD(190.1,6,21,0)="^^1^1^2910331^^"
^DD(190.1,6,21,1,0)="This allows the system to differentiate the state of the request process."
^DD(190.1,6,"DT")="2870424"
^DD(190.1,7,0)="DATE/TIME CURRENT STATUS^D^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.1,7,21,0)="^^1^1^2900217^"
^DD(190.1,7,21,1,0)="This defines the date, time when the current status was established."
^DD(190.1,7,"DT")="2860617"
^DD(190.1,8,0)="USER RESPONSIBLE FOR STATUS^P200'^VA(200,^0;8^Q"
^DD(190.1,8,21,0)="^^1^1^2900217^"
^DD(190.1,8,21,1,0)="This identifies the user in the system associated with the current status."
^DD(190.1,8,"DT")="2910624"
^DD(190.1,9,0)="CANCEL REASON^*P195.6'^DIC(195.6,^0;9^S DIC(""S"")=""I $P(^(0),U,2)=""""c""""!($P(^(0),U,2)=""""g"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.1,9,3)=""
^DD(190.1,9,12)="Allow only general or cancel-request reasons."
^DD(190.1,9,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""c""""!($P(^(0),U,2)=""""g"""")"""
^DD(190.1,9,21,0)="^^1^1^2900217^"
^DD(190.1,9,21,1,0)="This differentiates the status of a canceled request."
^DD(190.1,9,"DT")="2860617"
^DD(190.1,10,0)="PULL LIST^P194.2'^RTV(194.2,^0;10^Q"
^DD(190.1,10,1,0)="^.1"
^DD(190.1,10,1,1,0)="190.1^AP"
^DD(190.1,10,1,1,1)="S ^RTV(190.1,""AP"",$E(X,1,30),DA)="""""
^DD(190.1,10,1,1,2)="K ^RTV(190.1,""AP"",$E(X,1,30),DA)"
^DD(190.1,10,1,2,0)="190.1^AP1^MUMPS"
^DD(190.1,10,1,2,1)="S ^RTV(190.1,""AP1"",X,+^RTV(190.1,DA,0),DA)="""""
^DD(190.1,10,1,2,2)="K ^RTV(190.1,""AP1"",X,+^RTV(190.1,DA,0),DA)"
^DD(190.1,10,21,0)="^^2^2^2900217^"
^DD(190.1,10,21,1,0)="This identifies a list of requests which are logically grouped together"
^DD(190.1,10,21,2,0)="to allow the system to perform a group action on a series of requests."
^DD(190.1,10,"DT")="2860725"
^DD(190.1,11,0)="PARENT REQUEST^P190.1'^RTV(190.1,^0;11^Q"
^DD(190.1,11,1,0)="^.1"
^DD(190.1,11,1,1,0)="190.1^APAR"
^DD(190.1,11,1,1,1)="S ^RTV(190.1,""APAR"",$E(X,1,30),DA)="""""
^DD(190.1,11,1,1,2)="K ^RTV(190.1,""APAR"",$E(X,1,30),DA)"
^DD(190.1,11,21,0)="^^2^2^2900217^"
^DD(190.1,11,21,1,0)="This allows the system to create a series of linked requests so that the"
^DD(190.1,11,21,2,0)="request for 1 record can spawn requests for logically associated records."
^DD(190.1,11,"DT")="2860801"
^DD(190.1,12,0)="INSTITUTION OF REQUESTOR^RP4'^DIC(4,^0;12^Q"
^DD(190.1,12,21,0)="^^2^2^2900217^"
^DD(190.1,12,21,1,0)="This further identifies the requestor to support divisions within the"
^DD(190.1,12,21,2,0)="system."
^DD(190.1,12,"DT")="2861110"
^DD(190.1,13,0)="DATE REQUEST LAST PRINTED^D^^0;13^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.1,13,9)="^"
^DD(190.1,13,21,0)="^^2^2^2900217^"
^DD(190.1,13,21,1,0)="This identifies the date, time the barcoded request label was printed in"
^DD(190.1,13,21,2,0)="the system."
^DD(190.1,13,"DT")="2860805"
^DD(190.1,14,0)="ASSOCIATED REQUESTOR^*P195.9X^RTV(195.9,^0;14^D RTQ^RTDPA31 S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.1,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.1,14,4)=""
^DD(190.1,14,12)="Allows borrowers/locations associated with the application."
^DD(190.1,14,12.1)="S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.1,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(190.1,14,21,0)="^^2^2^2900217^"
^DD(190.1,14,21,1,0)="This allows the system to associate one borrower with another borrower to"
^DD(190.1,14,21,2,0)="further more fully describe the need for a record."
^DD(190.1,14,"DT")="2870218"
^DD(190.1,75,0)="COMMENT^F^^COMMENT;1^K:$L(X)>50!($L(X)<3) X"
^DD(190.1,75,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(190.1,75,21,0)="^^2^2^2900306^^"
^DD(190.1,75,21,1,0)="This allows the addition of free text to more fully describe the request"
^DD(190.1,75,21,2,0)="for a record."
^DD(190.1,75,"DT")="2861114"
^DD(190.1,200,0)="ELAPSED TIME TO CURRENT STATUS^CJ8,0^^ ; ^X ^DD(190.1,200,9.2) S X1=Y(190.1,200,2) S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y S X=$J(X,0,0)"
^DD(190.1,200,9)="^"
^DD(190.1,200,9.01)="190.1^2;190.1^7"
^DD(190.1,200,9.1)="MINUTES(DATE/TIME CURRENT STATUS,DATE/TIME REQUESTED)"
^DD(190.1,200,9.2)="S Y(190.1,200,1)=$S($D(^RTV(190.1,D0,0)):^(0),1:"""") S X=$P(Y(190.1,200,1),U,7),Y(190.1,200,2)=X S X=$P(Y(190.1,200,1),U,2)"
^DD(190.1,200,21,0)="^^2^2^2900217^"
^DD(190.1,200,21,1,0)="This allows the system to quantify the status of a request and sort"
^DD(190.1,200,21,2,0)="requests for priority."
^DD(190.1,"B","ASSOCIATED REQUESTOR",14)=""
^DD(190.1,"B","CANCEL REASON",9)=""
^DD(190.1,"B","COMMENT",75)=""
^DD(190.1,"B","DATE REQUEST LAST PRINTED",13)=""
^DD(190.1,"B","DATE/TIME CURRENT STATUS",7)=""
^DD(190.1,"B","DATE/TIME RECORD NEEDED",4)=""
^DD(190.1,"B","DATE/TIME REQUESTED",2)=""
^DD(190.1,"B","ELAPSED TIME TO CURRENT STATUS",200)=""
^DD(190.1,"B","INSTITUTION OF REQUESTOR",12)=""
^DD(190.1,"B","NAME",.01)=""
^DD(190.1,"B","PARENT REQUEST",11)=""
^DD(190.1,"B","PULL LIST",10)=""
^DD(190.1,"B","REQUEST STATUS",6)=""
^DD(190.1,"B","REQUESTOR",5)=""
^DD(190.1,"B","USER REQUESTING RECORD",3)=""
^DD(190.1,"B","USER RESPONSIBLE FOR STATUS",8)=""
^DD(190.1,"GL",0,1,.01)=""
^DD(190.1,"GL",0,2,2)=""
^DD(190.1,"GL",0,3,3)=""
^DD(190.1,"GL",0,4,4)=""
^DD(190.1,"GL",0,5,5)=""
^DD(190.1,"GL",0,6,6)=""
^DD(190.1,"GL",0,7,7)=""
^DD(190.1,"GL",0,8,8)=""
^DD(190.1,"GL",0,9,9)=""
^DD(190.1,"GL",0,10,10)=""
^DD(190.1,"GL",0,11,11)=""
^DD(190.1,"GL",0,12,12)=""
^DD(190.1,"GL",0,13,13)=""
^DD(190.1,"GL",0,14,14)=""
^DD(190.1,"GL","COMMENT",1,75)=""
^DD(190.1,"IX",.01)=""
^DD(190.1,"IX",2)=""
^DD(190.1,"IX",4)=""
^DD(190.1,"IX",5)=""
^DD(190.1,"IX",10)=""
^DD(190.1,"IX",11)=""
^DD(190.1,"RQ",.01)=""
^DD(190.1,"RQ",2)=""
^DD(190.1,"RQ",4)=""
^DD(190.1,"RQ",5)=""
^DD(190.1,"RQ",12)=""
^DD(190.2,0)="FIELD^^150^12"
^DD(190.2,0,"DT")="2910624"
^DD(190.2,0,"IX","ABOR",190.2,5)=""
^DD(190.2,0,"IX","AC",190.2,4)=""
^DD(190.2,0,"IX","AL",190.2,7)=""
^DD(190.2,0,"IX","AM",190.2,4)=""
^DD(190.2,0,"IX","B",190.2,.01)=""
^DD(190.2,0,"NM","MISSING RECORDS")=""
^DD(190.2,0,"VR")="2"
^DD(190.2,.01,0)="NAME^RP190'I^RT(^0;1^Q"
^DD(190.2,.01,1,0)="^.1"
^DD(190.2,.01,1,1,0)="190.2^B"
^DD(190.2,.01,1,1,1)="S ^RTV(190.2,""B"",$E(X,1,30),DA)="""""
^DD(190.2,.01,1,1,2)="K ^RTV(190.2,""B"",$E(X,1,30),DA)"
^DD(190.2,.01,3)=""
^DD(190.2,.01,21,0)="^^1^1^2900217^"
^DD(190.2,.01,21,1,0)="This identifies the record with the entity which it defines."
^DD(190.2,.01,"DT")="2860910"
^DD(190.2,2,0)="DATE/TIME ENTERED AS MISSING^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.2,2,21,0)="^^1^1^2900217^"
^DD(190.2,2,21,1,0)="This defines the date, time when the record was identified as missing."
^DD(190.2,2,"DT")="2860502"
^DD(190.2,3,0)="USER^P200'^VA(200,^0;3^Q"
^DD(190.2,3,21,0)="^^1^1^2900217^"
^DD(190.2,3,21,1,0)="This identifies the user in the system who identified the record as missing."
^DD(190.2,3,"DT")="2910624"
^DD(190.2,4,0)="STATUS^RS^f:FOUND;m:MISSING;s:FOUND/SUPERVISOR APPROVAL PENDING;^0;4^Q"
^DD(190.2,4,1,0)="^.1^^-1"
^DD(190.2,4,1,1,0)="190.2^AM^MUMPS"
^DD(190.2,4,1,1,1)="S:X=""m""!(X=""s"") ^RTV(190.2,""AM"",X,+^RTV(190.2,DA,0),DA)="""""
^DD(190.2,4,1,1,2)="K ^RTV(190.2,""AM"",X,+^RTV(190.2,DA,0),DA)"
^DD(190.2,4,1,2,0)="190.2^AC"
^DD(190.2,4,1,2,1)="S ^RTV(190.2,""AC"",$E(X,1,30),DA)="""""
^DD(190.2,4,1,2,2)="K ^RTV(190.2,""AC"",$E(X,1,30),DA)"
^DD(190.2,4,21,0)="^^1^1^2900217^"
^DD(190.2,4,21,1,0)="This differentiates the state of the record which is described as missing."
^DD(190.2,4,"DT")="2860827"
^DD(190.2,5,0)="WHERE WAS RECORD FOUND?^R*P195.9X^RTV(195.9,^0;5^D MISS^RTDPA31 S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.2,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.2,5,1,0)="^.1"
^DD(190.2,5,1,1,0)="190.2^ABOR"
^DD(190.2,5,1,1,1)="S ^RTV(190.2,""ABOR"",$E(X,1,30),DA)="""""
^DD(190.2,5,1,1,2)="K ^RTV(190.2,""ABOR"",$E(X,1,30),DA)"
^DD(190.2,5,3)=""
^DD(190.2,5,4)=""
^DD(190.2,5,12)="Allows borrowers/locations associated with the application."
^DD(190.2,5,12.1)="S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.2,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(190.2,5,21,0)="^^1^1^2900217^"
^DD(190.2,5,21,1,0)="This identifies the borrower, area with the record when it is located."
^DD(190.2,5,"DT")="2870218"
^DD(190.2,6,0)="DATE/TIME RECORD FOUND^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.2,6,21,0)="^^2^2^2900217^"
^DD(190.2,6,21,1,0)="This identifies the date, time when a record which was previously"
^DD(190.2,6,21,2,0)="designated as missing was located."
^DD(190.2,6,"DT")="2860617"
^DD(190.2,7,0)="REASON RECORD WAS MISSING^*P195.6'X^DIC(195.6,^0;7^S DIC(""S"")=""I $P(^(0),U,2)=""""m""""!($P(^(0),U,2)=""""g""""),$D(^RT(+^RTV(190.2,D0,0),0)),$P(^(0),U,4)=$P(^DIC(195.6,+Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.2,7,1,0)="^.1"
^DD(190.2,7,1,1,0)="190.2^AL"
^DD(190.2,7,1,1,1)="S ^RTV(190.2,""AL"",$E(X,1,30),DA)="""""
^DD(190.2,7,1,1,2)="K ^RTV(190.2,""AL"",$E(X,1,30),DA)"
^DD(190.2,7,12)="Allows only general or missing specific reasons associated with the application of the record."
^DD(190.2,7,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""m""""!($P(^(0),U,2)=""""g""""),$D(^RT(+^RTV(190.2,D0,0),0)),$P(^(0),U,4)=$P(^DIC(195.6,+Y,0),U,3)"""
^DD(190.2,7,21,0)="^^2^2^2900217^"
^DD(190.2,7,21,1,0)="This allows the system to classify the cause of records being lost as a"
^DD(190.2,7,21,2,0)="means of identifying corrective action to prevent future loss."
^DD(190.2,7,"DT")="2870527"
^DD(190.2,8,0)="USER WHO ENTERED AS FOUND^P200'^VA(200,^0;8^Q"
^DD(190.2,8,21,0)="^^2^2^2900217^"
^DD(190.2,8,21,1,0)="This identifies the user in the system who defined the record as no longer"
^DD(190.2,8,21,2,0)="missing."
^DD(190.2,8,"DT")="2910624"
^DD(190.2,9,0)="APPROVING SUPERVISOR^*P200'^VA(200,^0;9^S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.2,D0,0),0)),$D(^DIC(195.1,+$P(^(0),U,4),0)),$P(^(0),U,8)]"""""""",$D(^XUSEC($P(^(0),U,8),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.2,9,12)="Allows only file room supervisors for the application to approve findings."
^DD(190.2,9,12.1)="S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.2,D0,0),0)),$D(^DIC(195.1,+$P(^(0),U,4),0)),$P(^(0),U,8)]"""""""",$D(^XUSEC($P(^(0),U,8),+Y))"""
^DD(190.2,9,21,0)="^^2^2^2900306^^"
^DD(190.2,9,21,1,0)="This identifies the user in the system who confirms the retrieval of a "
^DD(190.2,9,21,2,0)="missing record when the system is set to require such action."
^DD(190.2,9,"DT")="2910624"
^DD(190.2,10,0)="DATE FINDING APPROVED^D^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.2,10,21,0)="^^2^2^2900217^"
^DD(190.2,10,21,1,0)="This identifies the date, time when the approval was made if required by"
^DD(190.2,10,21,2,0)="the system."
^DD(190.2,10,"DT")="2860827"
^DD(190.2,100,0)="SUPERVISOR COMMENTS^190.21^^1;0"
^DD(190.2,100,21,0)="^^2^2^2900217^"
^DD(190.2,100,21,1,0)="This allows free text comments for expanding the ability of the system"
^DD(190.2,100,21,2,0)="to describe the history of the missing record episode."
^DD(190.2,150,0)="USER COMMENTS^190.22^^2;0"
^DD(190.2,150,21,0)="^^2^2^2900217^"
^DD(190.2,150,21,1,0)="This allow the user who found the record to describe with free text the"
^DD(190.2,150,21,2,0)="episode in which the missing record was found."
^DD(190.2,"B","APPROVING SUPERVISOR",9)=""
^DD(190.2,"B","DATE FINDING APPROVED",10)=""
^DD(190.2,"B","DATE/TIME ENTERED AS MISSING",2)=""
^DD(190.2,"B","DATE/TIME RECORD FOUND",6)=""
^DD(190.2,"B","NAME",.01)=""
^DD(190.2,"B","REASON RECORD WAS MISSING",7)=""
^DD(190.2,"B","STATUS",4)=""
^DD(190.2,"B","SUPERVISOR COMMENTS",100)=""
^DD(190.2,"B","USER",3)=""
^DD(190.2,"B","USER COMMENTS",150)=""
^DD(190.2,"B","USER WHO ENTERED AS FOUND",8)=""
^DD(190.2,"B","WHERE WAS RECORD FOUND?",5)=""
^DD(190.2,"GL",0,1,.01)=""
^DD(190.2,"GL",0,2,2)=""
^DD(190.2,"GL",0,3,3)=""
^DD(190.2,"GL",0,4,4)=""
^DD(190.2,"GL",0,5,5)=""
^DD(190.2,"GL",0,6,6)=""
^DD(190.2,"GL",0,7,7)=""
^DD(190.2,"GL",0,8,8)=""
^DD(190.2,"GL",0,9,9)=""
^DD(190.2,"GL",0,10,10)=""
^DD(190.2,"GL",1,0,100)=""
^DD(190.2,"GL",2,0,150)=""
^DD(190.2,"IX",.01)=""
^DD(190.2,"IX",4)=""
^DD(190.2,"IX",5)=""
^DD(190.2,"IX",7)=""
^DD(190.2,"RQ",.01)=""
^DD(190.2,"RQ",4)=""
^DD(190.2,"RQ",5)=""
^DD(190.2,"SB",190.21,100)=""
^DD(190.2,"SB",190.22,150)=""
^DD(190.21,0)="SUPERVISOR COMMENTS SUB-FIELD^^.01^1"
^DD(190.21,0,"NM","SUPERVISOR COMMENTS")=""
^DD(190.21,0,"UP")="190.2"
^DD(190.21,.01,0)="SUPERVISOR COMMENT^W^^0;1^Q"
^DD(190.21,.01,"DT")="2860617"
^DD(190.21,"B","SUPERVISOR COMMENT",.01)=""
^DD(190.21,"GL",0,1,.01)=""
^DD(190.22,0)="USER COMMENTS SUB-FIELD^^.01^1"
^DD(190.22,0,"NM","USER COMMENTS")=""
^DD(190.22,0,"UP")="190.2"
^DD(190.22,.01,0)="USER COMMENTS^W^^0;1^Q"
^DD(190.22,.01,"DT")="2860828"
^DD(190.22,"B","USER COMMENTS",.01)=""
^DD(190.22,"GL",0,1,.01)=""
^DD(190.3,0)="FIELD^^200^13"
^DD(190.3,0,"DIK")="RTXM"
^DD(190.3,0,"DIKOLD")="RTXM"
^DD(190.3,0,"DT")="2910624"
^DD(190.3,0,"IX","B",190.3,.01)=""
^DD(190.3,0,"IX","C",190.3,6)=""
^DD(190.3,0,"NM","RECORD MOVEMENT HISTORY")=""
^DD(190.3,0,"PT",190,102)=""
^DD(190.3,0,"VR")="2"
^DD(190.3,.01,0)="NAME^RP190'I^RT(^0;1^Q"
^DD(190.3,.01,1,0)="^.1"
^DD(190.3,.01,1,1,0)="190.3^B"
^DD(190.3,.01,1,1,1)="S ^RTV(190.3,""B"",$E(X,1,30),DA)="""""
^DD(190.3,.01,1,1,2)="K ^RTV(190.3,""B"",$E(X,1,30),DA)"
^DD(190.3,.01,3)=""
^DD(190.3,.01,21,0)="^^2^2^2900218^"
^DD(190.3,.01,21,1,0)="This identifies the movements of a record in terms of the entity of"
^DD(190.3,.01,21,2,0)="the record."
^DD(190.3,.01,"DT")="2870128"
^DD(190.3,2,0)="DATE/TIME RECORD WAS REQUESTED^DI^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.3,2,21,0)="^^2^2^2900218^"
^DD(190.3,2,21,1,0)="This identifies the date, time of the request which lead to the movement"
^DD(190.3,2,21,2,0)="of the record."
^DD(190.3,2,"DT")="2860617"
^DD(190.3,3,0)="USER THAT REQUESTED RECORD^P200'I^VA(200,^0;3^Q"
^DD(190.3,3,21,0)="^^1^1^2900218^"
^DD(190.3,3,21,1,0)="This identifies the user in the system that requested the record."
^DD(190.3,3,"DT")="2910624"
^DD(190.3,4,0)="DATE/TIME RECORD WAS NEEDED^DI^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.3,4,21,0)="^^2^2^2900218^"
^DD(190.3,4,21,1,0)="This identifies the date, time the record was needed to distinguish from"
^DD(190.3,4,21,2,0)="the time it was requested."
^DD(190.3,4,"DT")="2860617"
^DD(190.3,5,0)="BORROWER^R*P195.9IX^RTV(195.9,^0;5^D HIS^RTDPA31 S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.3,5,3)=""
^DD(190.3,5,4)=""
^DD(190.3,5,12)="Allows borrowers/locations associated with the application."
^DD(190.3,5,12.1)="S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(190.3,5,21,0)="^^2^2^2900218^"
^DD(190.3,5,21,1,0)="This points to the entry in the Borrower file who was charged with the "
^DD(190.3,5,21,2,0)="record."
^DD(190.3,5,"DT")="2870218"
^DD(190.3,6,0)="DATE/TIME CHARGED TO BORROWER^DI^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.3,6,1,0)="^.1"
^DD(190.3,6,1,1,0)="190.3^C"
^DD(190.3,6,1,1,1)="S ^RTV(190.3,""C"",$E(X,1,30),DA)="""""
^DD(190.3,6,1,1,2)="K ^RTV(190.3,""C"",$E(X,1,30),DA)"
^DD(190.3,6,21,0)="^^1^1^2900218^"
^DD(190.3,6,21,1,0)="This identifies the date, time the record was charged to the borrower."
^DD(190.3,6,"DT")="2870129"
^DD(190.3,7,0)="USER THAT CHARGED RECORD^P200'I^VA(200,^0;7^Q"
^DD(190.3,7,21,0)="^^1^1^2900218^"
^DD(190.3,7,21,1,0)="This identifies the user in the system who charged out the record."
^DD(190.3,7,"DT")="2910624"
^DD(190.3,8,0)="TYPE OF MOVEMENT^R*P195.3'I^DIC(195.3,^0;8^S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(0),U,4)=$P(^DIC(195.3,Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.3,8,3)=""
^DD(190.3,8,12)="Allows only movement types associated with the record's application."
^DD(190.3,8,12.1)="S DIC(""S"")=""I $D(D0),$D(^RT(+^RTV(190.3,D0,0),0)),$P(^(0),U,4)=$P(^DIC(195.3,Y,0),U,3)"""
^DD(190.3,8,21,0)="^^2^2^2900218^"
^DD(190.3,8,21,1,0)="This defines the different types of actions that can be carried out on"
^DD(190.3,8,21,2,0)="a record."
^DD(190.3,8,"DT")="2870128"
^DD(190.3,9,0)="DATE/TIME OF NEXT MOVEMENT^D^^0;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(190.3,9,3)=""
^DD(190.3,9,21,0)="^^2^2^2900218^"
^DD(190.3,9,21,1,0)="This identifies the date, time of the next movement which is known to"
^DD(190.3,9,21,2,0)="the system to aid in tracking the movement."
^DD(190.3,9,"DT")="2870115"
^DD(190.3,10,0)="USER RESPON FOR NEXT MOVEMENT^P200'^VA(200,^0;10^Q"
^DD(190.3,10,.1)="USER RESPONSIBLE FOR NEXT MOVEMENT"
^DD(190.3,10,21,0)="^^2^2^2900218^"
^DD(190.3,10,21,1,0)="This identifies the user in the system who was connected with the next"
^DD(190.3,10,21,2,0)="movement of the record."
^DD(190.3,10,"DT")="2910624"
^DD(190.3,14,0)="ASSOCIATED BORROWER^*P195.9IX^RTV(195.9,^0;14^D HIS^RTDPA31 S DIC(""S"")=""I $D(D0),$D(^RT(+^RT(190.3,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(190.3,14,4)=""
^DD(190.3,14,12)="Allows borrowers/locations associated with the application."
^DD(190.3,14,12.1)="S DIC(""S"")=""I $D(D0),$D(^RT(+^RT(190.3,D0,0),0)),$P(^(0),U,4)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(190.3,14,21,0)="^^2^2^2900218^"
^DD(190.3,14,21,1,0)="This links a borrower area with another borrower for purposes of more"
^DD(190.3,14,21,2,0)="fully describing the location of the record."
^DD(190.3,14,"DT")="2870218"
^DD(190.3,15,0)="SELECTION BY BARCODE?^S^y:YES;n:NO;^0;15^Q"
^DD(190.3,15,21,0)="^^2^2^2900218^"
^DD(190.3,15,21,1,0)="This validates the movement in the system since the selection by barcode"
^DD(190.3,15,21,2,0)="defines an error free identification of the movement."
^DD(190.3,15,"DT")="2870201"
^DD(190.3,200,0)="# DAYS CHARGED TO MOVEMENT^CJ8^^ ; ^S Y(190.3,200,1)=$S($D(^RTV(190.3,D0,0)):^(0),1:"""") S X=$P(Y(190.3,200,1),U,9),X1=X,X2=$P(Y(190.3,200,1),U,6),X="""" D:X2 ^%DTC:X1"
^DD(190.3,200,9)="^"
^DD(190.3,200,9.01)="190.3^6;190.3^9"
^DD(190.3,200,9.1)="#9-#6"
^DD(190.3,200,21,0)="^^2^2^2900306^^"
^DD(190.3,200,21,1,0)="This describes the time span involved in the movement to group record "
^DD(190.3,200,21,2,0)="movements for system management."
^DD(190.3,"B","# DAYS CHARGED TO MOVEMENT",200)=""
^DD(190.3,"B","ASSOCIATED BORROWER",14)=""
^DD(190.3,"B","BORROWER",5)=""
^DD(190.3,"B","DATE/TIME CHARGED TO BORROWER",6)=""
^DD(190.3,"B","DATE/TIME OF NEXT MOVEMENT",9)=""
^DD(190.3,"B","DATE/TIME RECORD WAS NEEDED",4)=""
^DD(190.3,"B","DATE/TIME RECORD WAS REQUESTED",2)=""
^DD(190.3,"B","NAME",.01)=""
^DD(190.3,"B","SELECTION BY BARCODE?",15)=""
^DD(190.3,"B","TYPE OF MOVEMENT",8)=""
^DD(190.3,"B","USER RESPON FOR NEXT MOVEMENT",10)=""
^DD(190.3,"B","USER THAT CHARGED RECORD",7)=""
^DD(190.3,"B","USER THAT REQUESTED RECORD",3)=""
^DD(190.3,"GL",0,1,.01)=""
^DD(190.3,"GL",0,2,2)=""
^DD(190.3,"GL",0,3,3)=""
^DD(190.3,"GL",0,4,4)=""
^DD(190.3,"GL",0,5,5)=""
^DD(190.3,"GL",0,6,6)=""
^DD(190.3,"GL",0,7,7)=""
^DD(190.3,"GL",0,8,8)=""
^DD(190.3,"GL",0,9,9)=""
^DD(190.3,"GL",0,10,10)=""
^DD(190.3,"GL",0,14,14)=""
^DD(190.3,"GL",0,15,15)=""
^DD(190.3,"IX",.01)=""
^DD(190.3,"IX",6)=""
^DD(190.3,"RQ",.01)=""
^DD(190.3,"RQ",5)=""
^DD(190.3,"RQ",8)=""
^DD(194.2,0)="FIELD^^100^18"
^DD(194.2,0,"DIK")="RTXP"
^DD(194.2,0,"DIKOLD")="RTXP"
^DD(194.2,0,"DT")="2910624"
^DD(194.2,0,"ID",2)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(194.2,0,"ID",4)="W ""   "",$S($D(^DIC(195.2,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(194.2,0,"ID",6)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(194.2,6,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,6)_"""":"""",2),$C(59),1)"")"
^DD(194.2,0,"IX","AC",194.2,15)=""
^DD(194.2,0,"IX","B",194.2,.01)=""
^DD(194.2,0,"IX","C",194.2,2)=""
^DD(194.2,0,"NM","PULL LIST")=""
^DD(194.2,0,"PT",190.1,10)=""
^DD(194.2,0,"VR")="2"
^DD(194.2,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(194.2,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999"
^DD(194.2,.001,21,0)="^^1^1^2910506^^"
^DD(194.2,.001,21,1,0)="This allows pull lists to be selected by internal file number"
^DD(194.2,.001,"DT")="2860630"
^DD(194.2,.01,0)="PULL LIST^RFX^^0;1^K:$L(X)>45!($L(X)<3) X I $D(X) S X=$$UP^XLFSTR(X)"
^DD(194.2,.01,1,0)="^.1"
^DD(194.2,.01,1,1,0)="194.2^B"
^DD(194.2,.01,1,1,1)="S ^RTV(194.2,""B"",$E(X,1,45),DA)="""""
^DD(194.2,.01,1,1,2)="K ^RTV(194.2,""B"",$E(X,1,45),DA)"
^DD(194.2,.01,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(194.2,.01,21,0)="^^2^2^2951122^^^"
^DD(194.2,.01,21,1,0)="This allows a group of requests for records to be logically grouped in a "
^DD(194.2,.01,21,2,0)="list for group action, charged out by the system."
^DD(194.2,.01,"DT")="2951122"
^DD(194.2,2,0)="DATE RECORDS NEEDED^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(194.2,2,1,0)="^.1"
^DD(194.2,2,1,1,0)="194.2^C"
^DD(194.2,2,1,1,1)="S ^RTV(194.2,""C"",$E(X,1,30),DA)="""""
^DD(194.2,2,1,1,2)="K ^RTV(194.2,""C"",$E(X,1,30),DA)"
^DD(194.2,2,21,0)="^^1^1^2900218^"
^DD(194.2,2,21,1,0)="This identifies the date for a group of requests for records."
^DD(194.2,2,"DT")="2860617"
^DD(194.2,3,0)="USER ENTERING REQUEST^P200'^VA(200,^0;3^Q"
^DD(194.2,3,21,0)="^^1^1^2910312^"
^DD(194.2,3,21,1,0)="This defines the user who made the requests on the pull list"
^DD(194.2,3,"DT")="2910624"
^DD(194.2,4,0)="RECORD TYPE RESTRICTION^*P195.2'^DIC(195.2,^0;4^S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=$P(^RTV(194.2,D0,0),U,15)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(194.2,4,1,0)="^.1^^0"
^DD(194.2,4,3)=""
^DD(194.2,4,12)="Allows only record types associated with the application."
^DD(194.2,4,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=$P(^RTV(194.2,D0,0),U,15)"""
^DD(194.2,4,21,0)="^^2^2^2900306^^"
^DD(194.2,4,21,1,0)="This defines particular types of records which may be requested on a pull"
^DD(194.2,4,21,2,0)="list."
^DD(194.2,4,"DT")="2870506"
^DD(194.2,5,0)="BORROWER^R*P195.9X^RTV(195.9,^0;5^D PULL^RTDPA31 S DIC(""S"")=""I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(194.2,5,3)=""
^DD(194.2,5,4)=""
^DD(194.2,5,12)="Allows borrowers/locations associated with this application."
^DD(194.2,5,12.1)="S DIC(""S"")=""I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(194.2,5,21,0)="^^1^1^2910312^^"
^DD(194.2,5,21,1,0)="This defines the borrower in the system for the list of records."
^DD(194.2,5,"DT")="2870218"
^DD(194.2,6,0)="PULL LIST STATUS^S^c:CHARGED;x:CANCELLED;r:REQUESTED;^0;6^Q"
^DD(194.2,6,1,0)="^.1^^0"
^DD(194.2,6,21,0)="^^1^1^2900218^"
^DD(194.2,6,21,1,0)="This delineates the state of the pull list in the system."
^DD(194.2,6,"DT")="2861110"
^DD(194.2,7,0)="DATE/TIME CURRENT STATUS^D^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(194.2,7,21,0)="^^1^1^2910312^^"
^DD(194.2,7,21,1,0)="This defines the date, time the status of the pull list was set."
^DD(194.2,7,"DT")="2860725"
^DD(194.2,8,0)="USER RESPONSIBLE FOR STATUS^P200'^VA(200,^0;8^Q"
^DD(194.2,8,21,0)="^^1^1^2900218^"
^DD(194.2,8,21,1,0)="This defines the user in the system who changed the status of the pull list."
^DD(194.2,8,"DT")="2910624"
^DD(194.2,9,0)="CANCEL REASON^*P195.6'X^DIC(195.6,^0;9^S DIC(""S"")=""I $P(^(0),U,2)=""""c""""!($P(^(0),U,2)=""""g"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(194.2,9,12)="Allows only cancel or general reasons."
^DD(194.2,9,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""c""""!($P(^(0),U,2)=""""g"""")"""
^DD(194.2,9,21,0)="^^1^1^2900218^"
^DD(194.2,9,21,1,0)="This defines different reasons for cancelling the pull list."
^DD(194.2,9,"DT")="2870527"
^DD(194.2,10,0)="TYPE OF LIST^S^1:SCHEDULING;2:ADHOC;3:RECORD RETIREMENT;^0;10^Q"
^DD(194.2,10,21,0)="^^2^2^2910310^^^"
^DD(194.2,10,21,1,0)="This allows the system to differentiate between pull list generated from"
^DD(194.2,10,21,2,0)="Scheduling clinics and other pull lists."
^DD(194.2,10,"DT")="2910310"
^DD(194.2,11,0)="VOLUMES REQUESTED^S^A:ALL VOLUMES;L:LATEST VOLUME;^0;11^Q"
^DD(194.2,11,21,0)="^^2^2^2900218^"
^DD(194.2,11,21,1,0)="This allows the system to handle multi-volume records by defining the"
^DD(194.2,11,21,2,0)="needs of the borrower."
^DD(194.2,11,"DT")="2870215"
^DD(194.2,12,0)="INSTITUTION OF BORROWER^RP4'^DIC(4,^0;12^Q"
^DD(194.2,12,3)=""
^DD(194.2,12,21,0)="^^2^2^2900306^^"
^DD(194.2,12,21,1,0)="This further describes the borrower of the record for different divisions"
^DD(194.2,12,21,2,0)="within the system."
^DD(194.2,12,"DT")="2861110"
^DD(194.2,13,0)="DATE/TIME PULL LIST PRINTED^D^^0;13^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(194.2,13,9)="^"
^DD(194.2,13,21,0)="^^2^2^2900218^"
^DD(194.2,13,21,1,0)="This defines the date, time the pull list was printed to identify the"
^DD(194.2,13,21,2,0)="validity of the list at the present time."
^DD(194.2,13,"DT")="2860805"
^DD(194.2,14,0)="DATE/TIME LAST UPDATED^D^^0;14^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(194.2,14,9)="^"
^DD(194.2,14,21,0)="^^1^1^2900218^"
^DD(194.2,14,21,1,0)="This defines the date, time of the last update to the list."
^DD(194.2,14,"DT")="2860807"
^DD(194.2,15,0)="APPLICATION^RP195.1'^DIC(195.1,^0;15^Q"
^DD(194.2,15,1,0)="^.1"
^DD(194.2,15,1,1,0)="194.2^AC"
^DD(194.2,15,1,1,1)="S ^RTV(194.2,""AC"",$E(X,1,30),DA)="""""
^DD(194.2,15,1,1,2)="K ^RTV(194.2,""AC"",$E(X,1,30),DA)"
^DD(194.2,15,21,0)="^^2^2^2900218^"
^DD(194.2,15,21,1,0)="This defines the application identified with the list to allow the system"
^DD(194.2,15,21,2,0)="to share the same file with different applications."
^DD(194.2,15,"DT")="2860916"
^DD(194.2,16,0)="HOLDING AREA^*P195.9'^RTV(195.9,^0;16^S DIC(""S"")=""I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(194.2,16,12)="Allows borrowers/locations associated with this application."
^DD(194.2,16,12.1)="S DIC(""S"")=""I $D(D0),$P(^RTV(194.2,D0,0),U,15)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(194.2,16,21,0)="^^2^2^2900218^"
^DD(194.2,16,21,1,0)="This allows groups of records to be moved to a temporary area before  "
^DD(194.2,16,21,2,0)="further distribution."
^DD(194.2,16,"DT")="2870515"
^DD(194.2,100,0)="COMMENTS^194.21^^1;0"
^DD(194.2,100,21,0)="^^2^2^2900218^"
^DD(194.2,100,21,1,0)="This allows free text description to be added to the pull list to "
^DD(194.2,100,21,2,0)="aid in justification and identification of the list."
^DD(194.2,"B","APPLICATION",15)=""
^DD(194.2,"B","BORROWER",5)=""
^DD(194.2,"B","CANCEL REASON",9)=""
^DD(194.2,"B","COMMENTS",100)=""
^DD(194.2,"B","DATE RECORDS NEEDED",2)=""
^DD(194.2,"B","DATE/TIME CURRENT STATUS",7)=""
^DD(194.2,"B","DATE/TIME LAST UPDATED",14)=""
^DD(194.2,"B","DATE/TIME PULL LIST PRINTED",13)=""
^DD(194.2,"B","HOLDING AREA",16)=""
^DD(194.2,"B","INSTITUTION OF BORROWER",12)=""
^DD(194.2,"B","NUMBER",.001)=""
^DD(194.2,"B","PULL LIST",.01)=""
^DD(194.2,"B","PULL LIST STATUS",6)=""
^DD(194.2,"B","RECORD TYPE RESTRICTION",4)=""
^DD(194.2,"B","TYPE OF LIST",10)=""
^DD(194.2,"B","USER ENTERING REQUEST",3)=""
^DD(194.2,"B","USER RESPONSIBLE FOR STATUS",8)=""
^DD(194.2,"B","VOLUMES REQUESTED",11)=""
^DD(194.2,"GL",0,1,.01)=""
^DD(194.2,"GL",0,2,2)=""
^DD(194.2,"GL",0,3,3)=""
^DD(194.2,"GL",0,4,4)=""
^DD(194.2,"GL",0,5,5)=""
^DD(194.2,"GL",0,6,6)=""
^DD(194.2,"GL",0,7,7)=""
^DD(194.2,"GL",0,8,8)=""
^DD(194.2,"GL",0,9,9)=""
^DD(194.2,"GL",0,10,10)=""
^DD(194.2,"GL",0,11,11)=""
^DD(194.2,"GL",0,12,12)=""
^DD(194.2,"GL",0,13,13)=""
^DD(194.2,"GL",0,14,14)=""
^DD(194.2,"GL",0,15,15)=""
^DD(194.2,"GL",0,16,16)=""
^DD(194.2,"GL",1,0,100)=""
^DD(194.2,"IX",.01)=""
^DD(194.2,"IX",2)=""
^DD(194.2,"IX",15)=""
^DD(194.2,"RQ",.01)=""
^DD(194.2,"RQ",2)=""
^DD(194.2,"RQ",5)=""
^DD(194.2,"RQ",12)=""
^DD(194.2,"RQ",15)=""
^DD(194.2,"SB",194.21,100)=""
^DD(194.21,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(194.21,0,"NM","COMMENTS")=""
^DD(194.21,0,"UP")="194.2"
^DD(194.21,.01,0)="COMMENTS^W^^0;1^Q"
^DD(194.21,.01,"DT")="2860904"
^DD(194.21,"B","COMMENTS",.01)=""
^DD(194.21,"GL",0,1,.01)=""
^DD(194.3,0)="FIELD^^1^4"
^DD(194.3,0,"DT")="2930910"
^DD(194.3,0,"NM","RECORD TRACKING SORT GLOBAL")=""
^DD(194.3,0,"VR")="2.0"
^DD(194.3,.01,0)="SORT^F^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(194.3,.01,1,0)="^.1^^0"
^DD(194.3,.01,3)="Answer must be 3-15 characters in length."
^DD(194.3,.01,21,0)="^^2^2^2931122^^^^"
^DD(194.3,.01,21,1,0)="This field contains the name of the type of sort that is implemented using"
^DD(194.3,.01,21,2,0)="the global.  Curently only a terminal digit sort is implemented."
^DD(194.3,.01,"DT")="2930910"
^DD(194.3,.02,0)="START COMPILE^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(194.3,.02,21,0)="^^2^2^2931122^^"
^DD(194.3,.02,21,1,0)="This field contains the date/time that compiling or re-compiling the sort"
^DD(194.3,.02,21,2,0)="global started."
^DD(194.3,.02,"DT")="2930910"
^DD(194.3,.03,0)="FINISH COMPILE^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(194.3,.03,3)=""
^DD(194.3,.03,21,0)="^^1^1^2931122^^"
^DD(194.3,.03,21,1,0)="This field contains the date/time that the sort global compile finished."
^DD(194.3,.03,"DT")="2930910"
^DD(194.3,1,0)="DFN^194.31PA^^1;0"
^DD(194.3,1,21,0)="^^2^2^2931122^^^^"
^DD(194.3,1,21,1,0)="This field contains the DFN, the internal file number of the PATIENT file(#2)."
^DD(194.3,1,21,2,0)="The system uses the DFN to find the SSN to calculate the terminal digits. "
^DD(194.3,1,"DT")="2931122"
^DD(194.3,"B","DFN",1)=""
^DD(194.3,"B","FINISH COMPILE",.03)=""
^DD(194.3,"B","SORT",.01)=""
^DD(194.3,"B","START COMPILE",.02)=""
^DD(194.3,"GL",0,1,.01)=""
^DD(194.3,"GL",0,2,.02)=""
^DD(194.3,"GL",0,3,.03)=""
^DD(194.3,"GL",1,0,1)=""
^DD(194.3,"SB",194.31,1)=""
^DD(194.31,0)="DFN SUB-FIELD^^.01^1"
^DD(194.31,0,"DT")="2930910"
^DD(194.31,0,"IX","AC",194.31,.01)=""
^DD(194.31,0,"NM","DFN")=""
^DD(194.31,0,"UP")="194.3"
^DD(194.31,.01,0)="DFN^MP2'X^DPT(^0;1^S DINUM=X"
^DD(194.31,.01,.1)=""
^DD(194.31,.01,1,0)="^.1^^-1"
^DD(194.31,.01,1,2,0)="194.31^AC^MUMPS"
^DD(194.31,.01,1,2,1)="D S1943^RTSM1"
^DD(194.31,.01,1,2,2)="D K1943^RTSM1"
^DD(194.31,.01,1,2,"%D",0)="^^4^4^2931028^"
^DD(194.31,.01,1,2,"%D",1,0)="This cross-reference indexes each entry in the patient file"
^DD(194.31,.01,1,2,"%D",2,0)="by terminal digits and DFN.  The cross-reference is set equal to"
^DD(194.31,.01,1,2,"%D",3,0)="the facility of the last disposition.  The facility is only used"
^DD(194.31,.01,1,2,"%D",4,0)="for initial system bar-code printing."
^DD(194.31,.01,1,2,"DT")="2930910"
^DD(194.31,.01,"DT")="2931122"
^DD(194.31,"B","DFN",.01)=""
^DD(194.31,"GL",0,1,.01)=""
^DD(194.31,"IX",.01)=""
^DD(194.4,0)="FIELD^^100^6"
^DD(194.4,0,"ID",3)="W ""   "",$S($D(^DIC(195.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(194.4,0,"IX","AB",194.41,.01)=""
^DD(194.4,0,"IX","B",194.4,.01)=""
^DD(194.4,0,"IX","C",194.4,3)=""
^DD(194.4,0,"NM","LABEL FORMAT")=""
^DD(194.4,0,"PT",195.1,3)=""
^DD(194.4,0,"PT",195.2,5)=""
^DD(194.4,0,"PT",195.2,6)=""
^DD(194.4,0,"VR")="2"
^DD(194.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(194.4,.01,1,0)="^.1"
^DD(194.4,.01,1,1,0)="194.4^B"
^DD(194.4,.01,1,1,1)="S ^DIC(194.4,""B"",$E(X,1,30),DA)="""""
^DD(194.4,.01,1,1,2)="K ^DIC(194.4,""B"",$E(X,1,30),DA)"
^DD(194.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(194.4,.01,21,0)="^^3^3^2900225^^"
^DD(194.4,.01,21,1,0)="This identifies different label formats for records, requests, and borrowers"
^DD(194.4,.01,21,2,0)="and allows copies of standard formats to be customized by application"
^DD(194.4,.01,21,3,0)="and site."
^DD(194.4,2,0)="NUMBER OF ROWS IN FORMAT^NJ2,0^^0;2^K:+X'=X!(X>66)!(X<1)!(X?.E1"".""1N.N) X"
^DD(194.4,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 66"
^DD(194.4,2,21,0)="^^1^1^2900225^"
^DD(194.4,2,21,1,0)="This identifies the number of lines on the label"
^DD(194.4,3,0)="APPLICATION^P195.1'^DIC(195.1,^0;3^Q"
^DD(194.4,3,1,0)="^.1"
^DD(194.4,3,1,1,0)="194.4^C"
^DD(194.4,3,1,1,1)="S ^DIC(194.4,""C"",$E(X,1,30),DA)="""""
^DD(194.4,3,1,1,2)="K ^DIC(194.4,""C"",$E(X,1,30),DA)"
^DD(194.4,3,3)=""
^DD(194.4,3,21,0)="^^2^2^2900225^"
^DD(194.4,3,21,1,0)="This allows applications to use different label formats for records or"
^DD(194.4,3,21,2,0)="requestors."
^DD(194.4,3,"DT")="2870115"
^DD(194.4,4,0)="TYPE OF LABEL^SI^r:RECORD;b:BORROWER;q:REQUEST;^0;4^Q"
^DD(194.4,4,21,0)="^^2^2^2900225^^^"
^DD(194.4,4,21,1,0)="Record labels are barcoded for the record file, Request labels for the"
^DD(194.4,4,21,2,0)="request file, and Borrower labels for the borrower/file areas file."
^DD(194.4,4,"DT")="2870110"
^DD(194.4,50,0)="PRINT FIELDS^194.41PA^^1;0"
^DD(194.4,50,21,0)="^^1^1^2900225^^^"
^DD(194.4,50,21,1,0)="This identifies the data to be printed on the label."
^DD(194.4,100,0)="COMPILED LOGIC^194.42^^E;0"
^DD(194.4,100,9)="^"
^DD(194.4,100,21,0)="^^1^1^2900225^"
^DD(194.4,100,21,1,0)="This is the executable code which prints the label."
^DD(194.4,"B","APPLICATION",3)=""
^DD(194.4,"B","COMPILED LOGIC",100)=""
^DD(194.4,"B","NAME",.01)=""
^DD(194.4,"B","NUMBER OF ROWS IN FORMAT",2)=""
^DD(194.4,"B","PRINT FIELDS",50)=""
^DD(194.4,"B","TYPE OF LABEL",4)=""
^DD(194.4,"GL",0,1,.01)=""
^DD(194.4,"GL",0,2,2)=""
^DD(194.4,"GL",0,3,3)=""
^DD(194.4,"GL",0,4,4)=""
^DD(194.4,"GL",1,0,50)=""
^DD(194.4,"GL","E",0,100)=""
^DD(194.4,"IX",.01)=""
^DD(194.4,"IX",3)=""
^DD(194.4,"RQ",.01)=""
^DD(194.4,"SB",194.41,50)=""
^DD(194.4,"SB",194.42,100)=""
^DD(194.41,0)="PRINT FIELDS SUB-FIELD^^5^5"
^DD(194.41,0,"IX","AC",194.41,.01)=""
^DD(194.41,0,"IX","B",194.41,.01)=""
^DD(194.41,0,"NM","PRINT FIELDS")=""
^DD(194.41,0,"UP")="194.4"
^DD(194.41,.01,0)="FIELD^M*P194.5'^DIC(194.5,^0;1^S DIC(""S"")=""D BC^RTL2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(194.41,.01,1,0)="^.1"
^DD(194.41,.01,1,1,0)="194.41^B"
^DD(194.41,.01,1,1,1)="S ^DIC(194.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(194.41,.01,1,1,2)="K ^DIC(194.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(194.41,.01,1,2,0)="194.41^AC^MUMPS"
^DD(194.41,.01,1,2,1)="S:$P(^DIC(194.5,X,0),U,6)=""y"" $P(^DIC(194.4,DA(1),1,DA,0),U,2,3)=""^"""
^DD(194.41,.01,1,2,2)="Q"
^DD(194.41,.01,1,3,0)="194.4^AB"
^DD(194.41,.01,1,3,1)="S ^DIC(194.4,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(194.41,.01,1,3,2)="K ^DIC(194.4,""AB"",$E(X,1,30),DA(1),DA)"
^DD(194.41,.01,12)="Allows fields to be printed for this type of label including only one barcode field"
^DD(194.41,.01,12.1)="S DIC(""S"")=""D BC^RTL2"""
^DD(194.41,.01,"DT")="2860808"
^DD(194.41,2,0)="ROW^NJ2,0^^0;2^K:+X'=X!(X>66)!(X<1)!(X?.E1"".""1N.N) X"
^DD(194.41,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 66"
^DD(194.41,2,21,0)="^^1^1^2900225^"
^DD(194.41,2,21,1,0)="This defines the row where the data will be printed."
^DD(194.41,3,0)="COLUMN^NJ2,0^^0;3^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1N.N) X"
^DD(194.41,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 80"
^DD(194.41,3,21,0)="^^1^1^2900225^"
^DD(194.41,3,21,1,0)="This defines the column of the row where the data will be printed."
^DD(194.41,4,0)="TITLE(OPTIONAL)^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(194.41,4,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(194.41,4,21,0)="^^1^1^2900225^^^"
^DD(194.41,4,21,1,0)="This allows free text to be printed with the data on the label."
^DD(194.41,5,0)="LITERAL TEXT^F^^0;5^K:$L(X)>80!($L(X)<1) X"
^DD(194.41,5,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(194.41,5,21,0)="^^2^2^2900225^"
^DD(194.41,5,21,1,0)="This allow text to be printed on the label which is not associated"
^DD(194.41,5,21,2,0)="with with any data fields."
^DD(194.41,"B","COLUMN",3)=""
^DD(194.41,"B","FIELD",.01)=""
^DD(194.41,"B","LITERAL TEXT",5)=""
^DD(194.41,"B","ROW",2)=""
^DD(194.41,"B","TITLE(OPTIONAL)",4)=""
^DD(194.41,"GL",0,1,.01)=""
^DD(194.41,"GL",0,2,2)=""
^DD(194.41,"GL",0,3,3)=""
^DD(194.41,"GL",0,4,4)=""
^DD(194.41,"GL",0,5,5)=""
^DD(194.41,"IX",.01)=""
^DD(194.42,0)="COMPILED LOGIC SUB-FIELD^^.01^1"
^DD(194.42,0,"NM","COMPILED LOGIC")=""
^DD(194.42,0,"UP")="194.4"
^DD(194.42,.01,0)="COMPILED LOGIC^WL^^0;1^Q"
^DD(194.42,"B","COMPILED LOGIC",.01)=""
^DD(194.42,"GL",0,1,.01)=""
^DD(194.5,0)="FIELD^^100^8"
^DD(194.5,0,"ID",2)="W """""
^DD(194.5,0,"IX","B",194.5,.01)=""
^DD(194.5,0,"IX","C",194.5,5)=""
^DD(194.5,0,"IX","D",194.51,.01)=""
^DD(194.5,0,"IX","E",194.5,2)=""
^DD(194.5,0,"NM","LABEL PRINT FIELD")=""
^DD(194.5,0,"PT",194.41,.01)=""
^DD(194.5,0,"VR")="2"
^DD(194.5,.01,0)="PRINT FIELD^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(194.5,.01,1,0)="^.1"
^DD(194.5,.01,1,1,0)="194.5^B"
^DD(194.5,.01,1,1,1)="S ^DIC(194.5,""B"",$E(X,1,30),DA)="""""
^DD(194.5,.01,1,1,2)="K ^DIC(194.5,""B"",$E(X,1,30),DA)"
^DD(194.5,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(194.5,.01,21,0)="^^1^1^2900303^^"
^DD(194.5,.01,21,1,0)="This defines the data which may be printed on the label."
^DD(194.5,2,0)="TYPE OF LABEL^RS^r:RECORD or REQUEST;a:ALL;q:REQUEST;b:BORROWER;^0;2^Q"
^DD(194.5,2,1,0)="^.1"
^DD(194.5,2,1,1,0)="194.5^E"
^DD(194.5,2,1,1,1)="S ^DIC(194.5,""E"",$E(X,1,30),DA)="""""
^DD(194.5,2,1,1,2)="K ^DIC(194.5,""E"",$E(X,1,30),DA)"
^DD(194.5,2,21,0)="^^1^1^2900225^"
^DD(194.5,2,21,1,0)="This defines labels which are allowed to print the data."
^DD(194.5,2,"DT")="2870111"
^DD(194.5,3,0)="DEFAULT TITLE^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(194.5,3,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(194.5,3,21,0)="^^1^1^2900225^"
^DD(194.5,3,21,1,0)="This allows free text to be printed whenever this data is printed."
^DD(194.5,4,0)="TEST VALUE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(194.5,4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(194.5,4,21,0)="^^1^1^2900225^"
^DD(194.5,4,21,1,0)="This defines data which is displayed when testing the label format."
^DD(194.5,5,0)="INTERNAL VARIABLE^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<6)!'(X?1""RTV(""1N.N1"")"") X I $D(X),$N(^DIC(194.5,""C"",X,0))>0,$N(^DIC(194.5,""C"",X,0))'=DA W !!?8,""*** Must be UNIQUE - This variable is already in use ***"" K X"
^DD(194.5,5,1,0)="^.1"
^DD(194.5,5,1,1,0)="194.5^C"
^DD(194.5,5,1,1,1)="S ^DIC(194.5,""C"",$E(X,1,30),DA)="""""
^DD(194.5,5,1,1,2)="K ^DIC(194.5,""C"",$E(X,1,30),DA)"
^DD(194.5,5,3)="Must be in the form RTV(<n>)."
^DD(194.5,5,21,0)="^^2^2^2900225^"
^DD(194.5,5,21,1,0)="This is the variable which contains the data and is printed by the"
^DD(194.5,5,21,2,0)="executable code in the Label format."
^DD(194.5,5,"DT")="2870508"
^DD(194.5,6,0)="BARCODED FIELD^S^y:YES;n:NO;^0;6^Q"
^DD(194.5,6,21,0)="^^1^1^2900225^"
^DD(194.5,6,21,1,0)="Yes means this data will be printed as barcode in the label format."
^DD(194.5,6,"DT")="2860708"
^DD(194.5,50,0)="PARENT FILE^194.51P^^50;0"
^DD(194.5,50,21,0)="^^1^1^2900225^^"
^DD(194.5,50,21,1,0)="This defines where the data for the print field comes from."
^DD(194.5,100,0)="MUMPS CODE TO SET VARIABLE^FXI^^E;E1,240^K:$L(X)>240!($L(X)<1) X D ^DIM:$D(X)"
^DD(194.5,100,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(194.5,100,9)="^"
^DD(194.5,100,21,0)="^^2^2^2900303^^"
^DD(194.5,100,21,1,0)="This is the logic used to set the internal variable for printing in"
^DD(194.5,100,21,2,0)="the label format."
^DD(194.5,100,"DT")="2910626"
^DD(194.5,"B","BARCODED FIELD",6)=""
^DD(194.5,"B","DEFAULT TITLE",3)=""
^DD(194.5,"B","INTERNAL VARIABLE",5)=""
^DD(194.5,"B","MUMPS CODE TO SET VARIABLE",100)=""
^DD(194.5,"B","PARENT FILE",50)=""
^DD(194.5,"B","PRINT FIELD",.01)=""
^DD(194.5,"B","TEST VALUE",4)=""
^DD(194.5,"B","TYPE OF LABEL",2)=""
^DD(194.5,"GL",0,1,.01)=""
^DD(194.5,"GL",0,2,2)=""
^DD(194.5,"GL",0,3,3)=""
^DD(194.5,"GL",0,4,4)=""
^DD(194.5,"GL",0,5,5)=""
^DD(194.5,"GL",0,6,6)=""
^DD(194.5,"GL",50,0,50)=""
^DD(194.5,"GL","E","E1,240",100)=""
^DD(194.5,"IX",.01)=""
^DD(194.5,"IX",2)=""
^DD(194.5,"IX",5)=""
^DD(194.5,"RQ",.01)=""
^DD(194.5,"RQ",2)=""
^DD(194.5,"SB",194.51,50)=""
^DD(194.51,0)="PARENT FILE SUB-FIELD^^3^3"
^DD(194.51,0,"IX","AC",194.51,2)=""
^DD(194.51,0,"NM","PARENT FILE")=""
^DD(194.51,0,"UP")="194.5"
^DD(194.51,.01,0)="PARENT FILE^MP1'X^DIC(^0;1^S DINUM=X Q"
^DD(194.51,.01,1,0)="^.1^^-1"
^DD(194.51,.01,1,2,0)="194.5^D"
^DD(194.51,.01,1,2,1)="S ^DIC(194.5,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(194.51,.01,1,2,2)="K ^DIC(194.5,""D"",$E(X,1,30),DA(1),DA)"
^DD(194.51,.01,21,0)="^^1^1^2900225^^"
^DD(194.51,.01,21,1,0)="This defines the file where the data for the print field comes from."
^DD(194.51,.01,"DT")="2860805"
^DD(194.51,2,0)="FIELD NUMBER^NJ19,9X^^0;2^K RTZDIC S:$D(DIC) RTZDIC=DIC S DIC=""^DD(""_DA_"","",DIC(0)=""EQM"",DIC(""S"")=""I $P(^(0),U,2)'[""""C"""""" D ^DIC K DIC S:$D(RTZDIC) DIC=RTZDIC S X=+Y I Y'>0 K X I $D(X) K:+X'=X!(X>999999999)!(X<.01)!(X?.E1"".""10N.N) X K RTZDIC"
^DD(194.51,2,1,0)="^.1"
^DD(194.51,2,1,1,0)="194.51^AC^MUMPS"
^DD(194.51,2,1,1,1)="S $P(^DIC(194.5,DA(1),50,DA,0),U,3)=$P(^DD(DA,$P(^DIC(194.5,DA(1),50,DA,0),U,2),0),U,4)"
^DD(194.51,2,1,1,2)="S $P(^DIC(194.5,DA(1),50,DA,0),U,3)="""""
^DD(194.51,2,3)="TYPE A NUMBER BETWEEN .01 AND 999999999"
^DD(194.51,2,4)="S DIC(0)=""EQ"",DIC(""S"")=""I $P(^(0),U,2)'[""""C"""""",DIC=""^DD(""_DA_"","",X=""?"" D ^DIC S DIC=DIE K DIC"
^DD(194.51,2,21,0)="^^1^1^2900225^^"
^DD(194.51,2,21,1,0)="This define the field in the parent file where the data comes from."
^DD(194.51,2,"DT")="2910506"
^DD(194.51,3,0)="GLOBAL LOCATION^FI^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(194.51,3,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(194.51,3,21,0)="^^1^1^2900225^"
^DD(194.51,3,21,1,0)="This identifies the global location of the data in the print field."
^DD(194.51,3,"DT")="2860805"
^DD(194.51,"B","FIELD NUMBER",2)=""
^DD(194.51,"B","GLOBAL LOCATION",3)=""
^DD(194.51,"B","PARENT FILE",.01)=""
^DD(194.51,"GL",0,1,.01)=""
^DD(194.51,"GL",0,2,2)=""
^DD(194.51,"GL",0,3,3)=""
^DD(194.51,"IX",.01)=""
^DD(194.51,"IX",2)=""
^DD(195.1,0)="FIELD^^300^31"
^DD(195.1,0,"DT")="2910917"
^DD(195.1,0,"IX","AB",195.13,.01)=""
^DD(195.1,0,"IX","B",195.1,.01)=""
^DD(195.1,0,"IX","D",195.1,2)=""
^DD(195.1,0,"IX","S",195.11,.01)=""
^DD(195.1,0,"NM","RECORD TRACKING APPLICATION")=""
^DD(195.1,0,"PT",190,4)=""
^DD(195.1,0,"PT",194.2,15)=""
^DD(195.1,0,"PT",194.4,3)=""
^DD(195.1,0,"PT",195.14,3)=""
^DD(195.1,0,"PT",195.15,3)=""
^DD(195.1,0,"PT",195.2,3)=""
^DD(195.1,0,"PT",195.3,3)=""
^DD(195.1,0,"PT",195.4,101)=""
^DD(195.1,0,"PT",195.4,201)=""
^DD(195.1,0,"PT",195.6,3)=""
^DD(195.1,0,"PT",195.9,3)=""
^DD(195.1,0,"PT",195.9001,3)=""
^DD(195.1,0,"VR")="2"
^DD(195.1,.01,0)="APPLICATION^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(195.1,.01,1,0)="^.1"
^DD(195.1,.01,1,1,0)="195.1^B"
^DD(195.1,.01,1,1,1)="S ^DIC(195.1,""B"",$E(X,1,30),DA)="""""
^DD(195.1,.01,1,1,2)="K ^DIC(195.1,""B"",$E(X,1,30),DA)"
^DD(195.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(195.1,.01,21,0)="^^2^2^2900303^^"
^DD(195.1,.01,21,1,0)="This identifies the application or functional work group which is"
^DD(195.1,.01,21,2,0)="using record tracking."
^DD(195.1,2,0)="SERVICE^P49'^DIC(49,^0;2^Q"
^DD(195.1,2,1,0)="^.1"
^DD(195.1,2,1,1,0)="195.1^D"
^DD(195.1,2,1,1,1)="S ^DIC(195.1,""D"",$E(X,1,30),DA)="""""
^DD(195.1,2,1,1,2)="K ^DIC(195.1,""D"",$E(X,1,30),DA)"
^DD(195.1,2,21,0)="^^1^1^2900225^"
^DD(195.1,2,21,1,0)="This links the application with an entry in the service/section file."
^DD(195.1,2,"DT")="2870114"
^DD(195.1,3,0)="BORROWER BARCODE FORMAT^*P194.4'^DIC(194.4,^0;3^S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0,$P(^(0),U,4)=""""b"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.1,3,12)="Allows only borrower type formats for the application."
^DD(195.1,3,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0,$P(^(0),U,4)=""""b"""""""
^DD(195.1,3,21,0)="^^2^2^2900225^"
^DD(195.1,3,21,1,0)="This defines which label format will be used to print Borrower labels"
^DD(195.1,3,21,2,0)="for this application."
^DD(195.1,3,"DT")="2870117"
^DD(195.1,7,0)="FILE ROOM STAFF KEY^FX^^0;7^K:$L(X)>40!($L(X)<2) X I $D(X) S DIC(0)=""EM"",DIC=""^DIC(19.1,"",DIC(""S"")=""I $E(^(0),1,2)=""""RT"""""" D ^DIC K DIC S DIC=DIE,X=$P(Y,U,2) K:Y<0 X"
^DD(195.1,7,3)=""
^DD(195.1,7,4)="S DIC(""S"")=""I $E(^(0),1,2)=""""RT"""""",DIC=""^DIC(19.1,"",DIC(0)=""E"" D ^DIC K DIC S DIC=DIE"
^DD(195.1,7,21,0)="^^2^2^2900225^"
^DD(195.1,7,21,1,0)="This identifies the Security key which is necessary to charge-out and"
^DD(195.1,7,21,2,0)="check-in records to a file room."
^DD(195.1,7,"DT")="2870206"
^DD(195.1,8,0)="FILE ROOM SUPERVISOR KEY^FX^^0;8^K:$L(X)>40!($L(X)<2) X I $D(X) S DIC(0)=""EM"",DIC=""^DIC(19.1,"",DIC(""S"")=""I $E(^(0),1,2)=""""RT"""""" D ^DIC K DIC S DIC=DIE,X=$P(Y,U,2) K:Y<0 X"
^DD(195.1,8,3)=""
^DD(195.1,8,4)="S DIC(""S"")=""I $E(^(0),1,2)=""""RT"""""",DIC=""^DIC(19.1,"",DIC(0)=""E"" D ^DIC K DIC S DIC=DIE"
^DD(195.1,8,21,0)="^^2^2^2900225^^"
^DD(195.1,8,21,1,0)="This defines the security key which is required to cancel, edit requests,"
^DD(195.1,8,21,2,0)="define or find missing records."
^DD(195.1,8,"DT")="2870130"
^DD(195.1,9,0)="ENTITY DISPLAY HEADER^F^^0;9^K:$L(X)>25!($L(X)<3) X"
^DD(195.1,9,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(195.1,9,21,0)="^^1^1^2900225^"
^DD(195.1,9,21,1,0)="This is the text used when displaying the record data."
^DD(195.1,9,"DT")="2860829"
^DD(195.1,10,0)="DEFAULT RECORD CREATION TYPE^*P195.2'^DIC(195.2,^0;10^S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.1,10,12)="Allows only records associated with this application."
^DD(195.1,10,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"""
^DD(195.1,10,21,0)="^^2^2^2900225^"
^DD(195.1,10,21,1,0)="This identifies the type of record which is normally created by the"
^DD(195.1,10,21,2,0)="system for this application."
^DD(195.1,10,"DT")="2860908"
^DD(195.1,12,0)="MISSING RECORD MAIL GROUP^P3.8'^XMB(3.8,^0;12^Q"
^DD(195.1,12,21,0)="^^2^2^2900225^"
^DD(195.1,12,21,1,0)="This identifies the mail group which is notified when missing records"
^DD(195.1,12,21,2,0)="are accessed or identified."
^DD(195.1,12,"DT")="2870505"
^DD(195.1,14,0)="CLINIC REQUESTS MAIL GROUP^P3.8'^XMB(3.8,^0;14^Q"
^DD(195.1,14,3)="This mail group will receive a bulletin when the Clinic initialization batch proccess runs each night."
^DD(195.1,14,10)="SITE MANAGER"
^DD(195.1,14,21,0)="^^3^3^2900225^^^^"
^DD(195.1,14,21,1,0)="This identifies the mail group which receives notification when"
^DD(195.1,14,21,2,0)="requests for records, xrays are generated at night by the clinic"
^DD(195.1,14,21,3,0)="request initialization."
^DD(195.1,14,"DT")="2880317"
^DD(195.1,21,0)="CANCELATION BULLETIN^S^0:NOTHING;1:BULLETIN;2:DEVICE;3:BOTH;^2;1^Q"
^DD(195.1,21,"DT")="2901212"
^DD(195.1,22,0)="CANCELATION MAIL GROUP^P3.8'^XMB(3.8,^2;2^Q"
^DD(195.1,22,3)=""
^DD(195.1,22,"DT")="2910411"
^DD(195.1,23,0)="TERMINATED BORROWERS^S^y:YES;n:NO;^2;3^Q"
^DD(195.1,23,3)="Answer Yes to revoke borrowing for terminated users"
^DD(195.1,23,"DT")="2901211"
^DD(195.1,24,0)="CANCEL REQUESTS^S^y:YES;n:NO;^2;4^Q"
^DD(195.1,24,3)="Answer Yes to cancel requests for terminated borrowers"
^DD(195.1,24,"DT")="2901211"
^DD(195.1,25,0)="OK TO RETIRE RECORDS?^S^y:YES;n:NO;^2;5^Q"
^DD(195.1,25,"DT")="2910314"
^DD(195.1,31,0)="ENTITY SELECT PROMPT^F^^3;1^K:$L(X)>40!($L(X)<3) X"
^DD(195.1,31,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(195.1,31,21,0)="^^2^2^2900225^"
^DD(195.1,31,21,1,0)="This defines the prompt which is used when the system prompts for a"
^DD(195.1,31,21,2,0)="record."
^DD(195.1,31,"DT")="2860711"
^DD(195.1,32,0)="BORROWER SELECT PROMPT^F^^3;2^K:$L(X)>40!($L(X)<3) X"
^DD(195.1,32,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(195.1,32,21,0)="^^1^1^2900225^"
^DD(195.1,32,21,1,0)="This identifies the prompt used when the system asks for a Borrower."
^DD(195.1,32,"DT")="2860711"
^DD(195.1,41,0)="EXCLUDE INPATIENTS^S^1:YES;0:NO;^4;1^Q"
^DD(195.1,41,"DT")="2901216"
^DD(195.1,42,0)="DEFAULT SCHEDULED ADMISSIONS^*P195.9'^RTV(195.9,^4;2^S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.1,42,12)="allows only borrowers/file areas associated with this application"
^DD(195.1,42,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"""
^DD(195.1,42,21,0)="^^2^2^2910917^"
^DD(195.1,42,21,1,0)="This defines the borrower/file areas which will be used in "
^DD(195.1,42,21,2,0)="generating a pull list from the scheduled admissions file."
^DD(195.1,42,"DT")="2910917"
^DD(195.1,43,0)="CREATE RECORDS-CLINIC REQUESTS^S^y:YES;n:NO;^4;3^Q"
^DD(195.1,43,3)="No prevents requests, pull lists, if no record exists."
^DD(195.1,43,21,0)="^^3^3^2910423^^^^"
^DD(195.1,43,21,1,0)="If set to yes a clinic request for a record will generate a record if"
^DD(195.1,43,21,2,0)="none exists.  If set to no, a request, pull list and record will not"
^DD(195.1,43,21,3,0)="be created if there is no record at the time of the request."
^DD(195.1,43,"DT")="2910423"
^DD(195.1,44,0)="DEFAULT RETIREMENT BORROWER^*P195.9'^RTV(195.9,^4;4^S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.1,44,12)="Allows only borrowers associated with this application"
^DD(195.1,44,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"""
^DD(195.1,44,21,0)="^^2^2^2910917^^^^"
^DD(195.1,44,21,1,0)="This field contains the default Borrower to charge/transfer records "
^DD(195.1,44,21,2,0)="when they are retired."
^DD(195.1,44,"DT")="2910917"
^DD(195.1,45,0)="DEFAULT PERPETUAL RECORD^*P195.2'^DIC(195.2,^4;5^S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.1,45,12)="Allows only records associated with this application."
^DD(195.1,45,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=D0"""
^DD(195.1,45,21,0)="^^2^2^2910917^^^^"
^DD(195.1,45,21,1,0)="This contains the record type that should be created when"
^DD(195.1,45,21,2,0)="records are retired."
^DD(195.1,45,"DT")="2910915"
^DD(195.1,50,0)="SYNONYMS^195.11A^^1;0"
^DD(195.1,50,21,0)="^^1^1^2900306^^"
^DD(195.1,50,21,1,0)="This allows the application to be selected by different names."
^DD(195.1,75,0)="PROFILE/REPORT HEADER^F^^HD;1^K:$L(X)>40!($L(X)<5) X"
^DD(195.1,75,3)="ANSWER MUST BE 5-40 CHARACTERS IN LENGTH"
^DD(195.1,75,21,0)="^^2^2^2900225^"
^DD(195.1,75,21,1,0)="This defines the text which will be displayed on various reports for"
^DD(195.1,75,21,2,0)="this application."
^DD(195.1,75,"DT")="2861016"
^DD(195.1,100,0)="INSTITUTION^195.12PA^^INST;0"
^DD(195.1,100,21,0)="^^1^1^2900225^"
^DD(195.1,100,21,1,0)="This defines the institutions using this application."
^DD(195.1,125,0)="BORROWER FILE PARAMETERS^195.16P^^BOR;0"
^DD(195.1,125,21,0)="^^2^2^2900304^"
^DD(195.1,125,21,1,0)="This defines that the system should ask for phone/room, associated"
^DD(195.1,125,21,2,0)="borrower and show charged records when a borrower is accessed."
^DD(195.1,150,0)="MAS RECORDS NEEDED BY CLINICS^195.14PA^^MAS;0"
^DD(195.1,150,12)="Allows only MAS application records."
^DD(195.1,150,12.1)="S DIC(""S"")=""I $D(D0),$D(^DIC(195.4,1,""""MAS"""")),D0=+^(""""MAS""""),+^(""""MAS"""")=+$P(^DIC(195.2,+Y,0),U,3)"""
^DD(195.1,150,21,0)="^^2^2^2900304^"
^DD(195.1,150,21,1,0)="This defines the type of record, volumes needed, and application"
^DD(195.1,150,21,2,0)="when a clinic schedules a visit."
^DD(195.1,161,0)="*EXCLUDE COLLATERAL REQUESTS^S^1:YES;^CL EX;1^Q"
^DD(195.1,161,.1)="EXCLUDE COLLATERAL APPOINTMENT CLINIC REQUESTS"
^DD(195.1,161,21,0)="^^2^2^2900304^^"
^DD(195.1,161,21,1,0)="YES means do not request records for scheduled clinics if the patient type"
^DD(195.1,161,21,2,0)="is collateral."
^DD(195.1,161,"DT")="2880706"
^DD(195.1,162,0)="*EXCLUDE C&P REQUESTS^S^1:YES;^CL EX;2^Q"
^DD(195.1,162,.1)="EXCLUDE C&P APPOINTMENT CLINIC REQUESTS"
^DD(195.1,162,21,0)="^^2^2^2900304^"
^DD(195.1,162,21,1,0)="YES means do not request records for a scheduled clinic if the patient"
^DD(195.1,162,21,2,0)="type is C&P."
^DD(195.1,162,"DT")="2880706"
^DD(195.1,165,0)="EXCLUDE APPOINTMENT TYPES^195.1165P^^EXCLUDE;0"
^DD(195.1,165,21,0)="^^2^2^2910411^^^"
^DD(195.1,165,21,1,0)="Appointment types listed in this field are excluded from pull lists"
^DD(195.1,165,21,2,0)="generated for clinics"
^DD(195.1,250,0)="RAD FOLDERS NEEDED BY CLINICS^195.15PA^^RAD;0"
^DD(195.1,250,12)="Allows only radiology record types."
^DD(195.1,250,12.1)="S DIC(""S"")=""I $D(^DIC(195.4,1,""""RAD""""),+^(""""RAD"""")=+$P(^DIC(195.2,+Y,0),U,3)"" "
^DD(195.1,250,21,0)="^^2^2^2900304^"
^DD(195.1,250,21,1,0)="This defines the folder, volume and application that should be "
^DD(195.1,250,21,2,0)="requested when a scheduled clinic requires x-rays."
^DD(195.1,300,0)="ENTITY FILE^195.17P^^ENTITY;0"
^DD(195.1,300,21,0)="^^1^1^2900304^"
^DD(195.1,300,21,1,0)="This defines by application the file which the record file points to."
^DD(195.1,"B","*EXCLUDE C&P REQUESTS",162)=""
^DD(195.1,"B","*EXCLUDE COLLATERAL REQUESTS",161)=""
^DD(195.1,"B","APPLICATION",.01)=""
^DD(195.1,"B","BORROWER BARCODE FORMAT",3)=""
^DD(195.1,"B","BORROWER FILE PARAMETERS",125)=""
^DD(195.1,"B","BORROWER SELECT PROMPT",32)=""
^DD(195.1,"B","CANCEL REQUESTS",24)=""
^DD(195.1,"B","CANCELATION BULLETIN",21)=""
^DD(195.1,"B","CANCELATION MAIL GROUP",22)=""
^DD(195.1,"B","CLINIC REQUESTS MAIL GROUP",14)=""
^DD(195.1,"B","CREATE RECORDS-CLINIC REQUESTS",43)=""
^DD(195.1,"B","DEFAULT PERPETUAL RECORD",45)=""
^DD(195.1,"B","DEFAULT RECORD CREATION TYPE",10)=""
^DD(195.1,"B","DEFAULT RETIREMENT BORROWER",44)=""
^DD(195.1,"B","DEFAULT SCHEDULED ADMISSIONS",42)=""
^DD(195.1,"B","ENTITY DISPLAY HEADER",9)=""
^DD(195.1,"B","ENTITY FILE",300)=""
^DD(195.1,"B","ENTITY SELECT PROMPT",31)=""
^DD(195.1,"B","EXCLUDE APPOINTMENT TYPES",165)=""
^DD(195.1,"B","EXCLUDE INPATIENTS",41)=""
^DD(195.1,"B","FILE ROOM STAFF KEY",7)=""
^DD(195.1,"B","FILE ROOM SUPERVISOR KEY",8)=""
^DD(195.1,"B","INSTITUTION",100)=""
^DD(195.1,"B","MAS RECORDS NEEDED BY CLINICS",150)=""
^DD(195.1,"B","MISSING RECORD MAIL GROUP",12)=""
^DD(195.1,"B","OK TO RETIRE RECORDS?",25)=""
^DD(195.1,"B","PROFILE/REPORT HEADER",75)=""
^DD(195.1,"B","RAD FOLDERS NEEDED BY CLINICS",250)=""
^DD(195.1,"B","SERVICE",2)=""
^DD(195.1,"B","SYNONYMS",50)=""
^DD(195.1,"B","TERMINATED BORROWERS",23)=""
^DD(195.1,"GL",0,1,.01)=""
^DD(195.1,"GL",0,2,2)=""
^DD(195.1,"GL",0,3,3)=""
^DD(195.1,"GL",0,7,7)=""
^DD(195.1,"GL",0,8,8)=""
^DD(195.1,"GL",0,9,9)=""
^DD(195.1,"GL",0,10,10)=""
^DD(195.1,"GL",0,12,12)=""
^DD(195.1,"GL",0,14,14)=""
^DD(195.1,"GL",1,0,50)=""
^DD(195.1,"GL",2,1,21)=""
^DD(195.1,"GL",2,2,22)=""
^DD(195.1,"GL",2,3,23)=""
^DD(195.1,"GL",2,4,24)=""
^DD(195.1,"GL",2,5,25)=""
^DD(195.1,"GL",3,1,31)=""
^DD(195.1,"GL",3,2,32)=""
^DD(195.1,"GL",4,1,41)=""
^DD(195.1,"GL",4,2,42)=""
^DD(195.1,"GL",4,3,43)=""
^DD(195.1,"GL",4,4,44)=""
^DD(195.1,"GL",4,5,45)=""
^DD(195.1,"GL","BOR",0,125)=""
^DD(195.1,"GL","CL EX",1,161)=""
^DD(195.1,"GL","CL EX",2,162)=""
^DD(195.1,"GL","ENTITY",0,300)=""
^DD(195.1,"GL","EXCLUDE",0,165)=""
^DD(195.1,"GL","HD",1,75)=""
^DD(195.1,"GL","INST",0,100)=""
^DD(195.1,"GL","MAS",0,150)=""
^DD(195.1,"GL","RAD",0,250)=""
^DD(195.1,"IX",.01)=""
^DD(195.1,"IX",2)=""
^DD(195.1,"RQ",.01)=""
^DD(195.1,"SB",195.11,50)=""
^DD(195.1,"SB",195.1165,165)=""
^DD(195.1,"SB",195.12,100)=""
^DD(195.1,"SB",195.14,150)=""
^DD(195.1,"SB",195.15,250)=""
^DD(195.1,"SB",195.16,125)=""
^DD(195.1,"SB",195.17,300)=""
^DD(195.11,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(195.11,0,"NM","SYNONYMS")=""
^DD(195.11,0,"UP")="195.1"
^DD(195.11,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(195.11,.01,1,0)="^.1"
^DD(195.11,.01,1,1,0)="195.1^S"
^DD(195.11,.01,1,1,1)="S ^DIC(195.1,""S"",$E(X,1,30),DA(1),DA)="""""
^DD(195.11,.01,1,1,2)="K ^DIC(195.1,""S"",$E(X,1,30),DA(1),DA)"
^DD(195.11,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(195.11,.01,"DT")="2860822"
^DD(195.11,"B","SYNONYM",.01)=""
^DD(195.11,"GL",0,1,.01)=""
^DD(195.11,"IX",.01)=""
^DD(195.1165,0)="EXCLUDE APPOINTMENT TYPES SUB-FIELD^^.01^1"
^DD(195.1165,0,"IX","B",195.1165,.01)=""
^DD(195.1165,0,"NM","EXCLUDE APPOINTMENT TYPES")=""
^DD(195.1165,0,"UP")="195.1"
^DD(195.1165,.01,0)="EXCLUDE APPOINTMENT TYPES^MP409.1'^SD(409.1,^0;1^Q"
^DD(195.1165,.01,1,0)="^.1"
^DD(195.1165,.01,1,1,0)="195.1165^B"
^DD(195.1165,.01,1,1,1)="S ^DIC(195.1,DA(1),""EXCLUDE"",""B"",$E(X,1,30),DA)="""""
^DD(195.1165,.01,1,1,2)="K ^DIC(195.1,DA(1),""EXCLUDE"",""B"",$E(X,1,30),DA)"
^DD(195.1165,.01,"DT")="2900918"
^DD(195.1165,"B","EXCLUDE APPOINTMENT TYPES",.01)=""
^DD(195.1165,"GL",0,1,.01)=""
^DD(195.1165,"IX",.01)=""
^DD(195.12,0)="INSTITUTION SUB-FIELD^^100^5"
^DD(195.12,0,"NM","INSTITUTION")=""
^DD(195.12,0,"UP")="195.1"
^DD(195.12,.01,0)="INSTITUTION^MP4'X^DIC(4,^0;1^S:$D(X) DINUM=X"
^DD(195.12,.01,1,0)="^.1^^0"
^DD(195.12,.01,"DT")="2870209"
^DD(195.12,2,0)="CENTRAL FILE ROOM^*P195.9'X^RTV(195.9,^0;2^S DIC(""V"")=""I $P(Y(0),U,4)=""""L"""""",DIC(""S"")=""I $D(D0),$D(D1),$P(^(0),U,3)=D0,$D(^SC(+$P(^(0),U,2),0)),$P(^(0),U,3)=""""F"""",$P(^(0),U,4)=D1 D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.12,2,12)="Allows only file rooms associated with the division and associated with the application."
^DD(195.12,2,12.1)="S DIC(""S"")=""I $D(D0),$D(D1),$P(^(0),U,3)=D0,$D(^SC(+$P(^(0),U,2),0)),$P(^(0),U,3)=""""F"""",$P(^(0),U,4)=D1 D DICS^RTDPA31"""
^DD(195.12,2,21,0)="^^2^2^2900225^"
^DD(195.12,2,21,1,0)="This allows different file rooms to be associated by application"
^DD(195.12,2,21,2,0)="and institution or division."
^DD(195.12,2,"DT")="2870514"
^DD(195.12,3,0)="DEFAULT PULL LIST SORT^S^t:TERMINAL DIGITS;c:CLINIC NAME THEN TERMINAL DIGITS;a:APPOINTMENT TIME;h:HOME LOCATION THEN TERMINAL DIGITS;d:DETAILED-HOME LOC,CLINIC,TERMINAL;^0;3^Q"
^DD(195.12,3,"DT")="2880414"
^DD(195.12,4,0)="ALL REQUESTS TO CENTRAL FR^S^y:YES;n:NO;^0;4^Q"
^DD(195.12,4,"DT")="2870501"
^DD(195.12,100,0)="TYPE OF RECORDS^195.13PA^^TYPE;0"
^DD(195.12,100,12)="Allows only record types associated with the application."
^DD(195.12,100,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=D0"""
^DD(195.12,"B","ALL REQUESTS TO CENTRAL FR",4)=""
^DD(195.12,"B","CENTRAL FILE ROOM",2)=""
^DD(195.12,"B","DEFAULT PULL LIST SORT",3)=""
^DD(195.12,"B","INSTITUTION",.01)=""
^DD(195.12,"B","TYPE OF RECORDS",100)=""
^DD(195.12,"GL",0,1,.01)=""
^DD(195.12,"GL",0,2,2)=""
^DD(195.12,"GL",0,3,3)=""
^DD(195.12,"GL",0,4,4)=""
^DD(195.12,"GL","TYPE",0,100)=""
^DD(195.12,"SB",195.13,100)=""
^DD(195.13,0)="TYPE OF RECORDS SUB-FIELD^^5^3"
^DD(195.13,0,"NM","TYPE OF RECORDS")=""
^DD(195.13,0,"UP")="195.12"
^DD(195.13,.01,0)="TYPE OF RECORD^MR*P195.2'^DIC(195.2,^0;1^S DIC(""S"")=""I $P(^(0),U,3)=D0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.13,.01,1,0)="^.1"
^DD(195.13,.01,1,1,0)="195.1^AB"
^DD(195.13,.01,1,1,1)="S ^DIC(195.1,""AB"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(195.13,.01,1,1,2)="K ^DIC(195.1,""AB"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(195.13,.01,"DT")="2860702"
^DD(195.13,2,0)="DEFAULT HOME LOCATION^*P195.9'X^RTV(195.9,^0;2^S DIC(""V"")=""I $P(Y(0),U,4)=""""L"""""",DIC(""S"")=""D HOMESCR^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.13,2,12)="Allows only file rooms associated with the division and associated with the application."
^DD(195.13,2,12.1)="S DIC(""S"")=""D HOMESCR^RTDPA31"""
^DD(195.13,2,"DT")="2870514"
^DD(195.13,5,0)="DEFAULT INITIAL BORROWER^*P195.9X^RTV(195.9,^0;5^D APL^RTDPA31 S DIC(""S"")=""I $D(^DIC(195.2,+^DIC(195.1,D0,""""INST"""",D1,""""TYPE"""",D2,0),0)),$P(^(0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.13,5,3)=""
^DD(195.13,5,4)=""
^DD(195.13,5,12)="Allows borrowers/locations associated with this application."
^DD(195.13,5,12.1)="S DIC(""S"")=""I $D(D0),$D(D1),$D(D2),$D(^DIC(195.2,+^DIC(195.1,D0,""""INST"""",D1,""""TYPE"""",D2,0),0)),$P(^(0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(195.13,5,"DT")="2870218"
^DD(195.13,"B","DEFAULT HOME LOCATION",2)=""
^DD(195.13,"B","DEFAULT INITIAL BORROWER",5)=""
^DD(195.13,"B","TYPE OF RECORD",.01)=""
^DD(195.13,"GL",0,1,.01)=""
^DD(195.13,"GL",0,2,2)=""
^DD(195.13,"GL",0,5,5)=""
^DD(195.13,"IX",.01)=""
^DD(195.13,"RQ",.01)=""
^DD(195.14,0)="MAS RECORDS NEEDED BY CLINICS SUB-FIELD^^3^3"
^DD(195.14,0,"NM","MAS RECORDS NEEDED BY CLINICS")=""
^DD(195.14,0,"UP")="195.1"
^DD(195.14,.01,0)="MAS RECORD^M*P195.2'^DIC(195.2,^0;1^S DIC(""S"")=""I $D(D0),$D(^DIC(195.4,1,""""MAS"""")),D0=+^(""""MAS""""),+^(""""MAS"""")=+$P(^DIC(195.2,+Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.14,.01,1,0)="^.1"
^DD(195.14,.01,1,1,0)="^^TRIGGER^195.14^3"
^DD(195.14,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DIC(195.1,D0,""MAS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.14,.01,1,1,1.1) X ^DD(195.14,.01,1,1,1.4)"
^DD(195.14,.01,1,1,1.1)="S X=DIV X ^DD(195.14,.01,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)"
^DD(195.14,.01,1,1,1.4)="S DIH=$S($D(^DIC(195.1,DIV(0),""MAS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.14,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.14,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DIC(195.1,D0,""MAS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(195.14,.01,1,1,2.4)"
^DD(195.14,.01,1,1,2.4)="S DIH=$S($D(^DIC(195.1,DIV(0),""MAS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.14,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.14,.01,1,1,49.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3)"
^DD(195.14,.01,1,1,"CREATE VALUE")="INTERNAL(#.01:#3)"
^DD(195.14,.01,1,1,"DELETE VALUE")="@"
^DD(195.14,.01,1,1,"FIELD")="APPLICATION"
^DD(195.14,.01,12)="Allows only MAS record types."
^DD(195.14,.01,12.1)="S DIC(""S"")=""I $D(D0),$D(^DIC(195.4,1,""""MAS"""")),D0=+^(""""MAS""""),+^(""""MAS"""")=+$P(^DIC(195.2,+Y,0),U,3)"""
^DD(195.14,.01,"DT")="2861006"
^DD(195.14,2,0)="VOLUMES NEEDED^RS^a:ALL;l:LAST;n:NONE;^0;2^Q"
^DD(195.14,2,"DT")="2861006"
^DD(195.14,3,0)="APPLICATION^*P195.1'^DIC(195.1,^0;3^S DIC(""S"")=""I $D(D0),D0=+Y"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.14,3,5,1,0)="195.14^.01^1"
^DD(195.14,3,9)="^"
^DD(195.14,3,12)="Allows only the MAS application."
^DD(195.14,3,12.1)="S DIC(""S"")=""I $D(D0),D0=+Y"""
^DD(195.14,3,"DT")="2861006"
^DD(195.14,"B","APPLICATION",3)=""
^DD(195.14,"B","MAS RECORD",.01)=""
^DD(195.14,"B","VOLUMES NEEDED",2)=""
^DD(195.14,"GL",0,1,.01)=""
^DD(195.14,"GL",0,2,2)=""
^DD(195.14,"GL",0,3,3)=""
^DD(195.14,"IX",.01)=""
^DD(195.14,"RQ",2)=""
^DD(195.15,0)="RAD FOLDERS NEEDED BY CLINICS SUB-FIELD^^3^3"
^DD(195.15,0,"NM","RAD FOLDERS NEEDED BY CLINICS")=""
^DD(195.15,0,"UP")="195.1"
^DD(195.15,.01,0)="RADIOLOGY FOLDER^M*P195.2'^DIC(195.2,^0;1^S DIC(""S"")=""I $D(^DIC(195.4,1,""""RAD"""")),+^(""""RAD"""")=+$P(^DIC(195.2,+Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.15,.01,1,0)="^.1"
^DD(195.15,.01,1,1,0)="^^TRIGGER^195.15^3"
^DD(195.15,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DIC(195.1,D0,""RAD"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.15,.01,1,1,1.1) X ^DD(195.15,.01,1,1,1.4)"
^DD(195.15,.01,1,1,1.1)="S X=DIV X ^DD(195.15,.01,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)"
^DD(195.15,.01,1,1,1.4)="S DIH=$S($D(^DIC(195.1,DIV(0),""RAD"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.15,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.15,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DIC(195.1,D0,""RAD"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(195.15,.01,1,1,2.4)"
^DD(195.15,.01,1,1,2.4)="S DIH=$S($D(^DIC(195.1,DIV(0),""RAD"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.15,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.15,.01,1,1,49.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3)"
^DD(195.15,.01,1,1,"CREATE VALUE")="INTERNAL(#.01:#3)"
^DD(195.15,.01,1,1,"DELETE VALUE")="@"
^DD(195.15,.01,1,1,"FIELD")="APPLICATION"
^DD(195.15,.01,12)="Allows only radiology record types."
^DD(195.15,.01,12.1)="S DIC(""S"")=""I $D(^DIC(195.4,1,""""RAD"""")),+^(""""RAD"""")=+$P(^DIC(195.2,+Y,0),U,3)"""
^DD(195.15,.01,"DT")="2861006"
^DD(195.15,2,0)="VOLUMES NEEDED^RS^a:ALL;l:LAST;n:NONE;^0;2^Q"
^DD(195.15,2,"DT")="2861006"
^DD(195.15,3,0)="APPLICATION^*P195.1'^DIC(195.1,^0;3^S DIC(""S"")=""I $D(D0),$D(^DIC(195.4,1,""""RAD"""")),D0=+^(""""RAD"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.15,3,5,1,0)="195.15^.01^1"
^DD(195.15,3,9)="^"
^DD(195.15,3,12)="Allows only the radiology application."
^DD(195.15,3,12.1)="S DIC(""S"")=""I $D(D0),$D(^DIC(195.4,1,""""RAD"""")),D0=+^(""""RAD"""")"""
^DD(195.15,3,"DT")="2861006"
^DD(195.15,"B","APPLICATION",3)=""
^DD(195.15,"B","RADIOLOGY FOLDER",.01)=""
^DD(195.15,"B","VOLUMES NEEDED",2)=""
^DD(195.15,"GL",0,1,.01)=""
^DD(195.15,"GL",0,2,2)=""
^DD(195.15,"GL",0,3,3)=""
^DD(195.15,"IX",.01)=""
^DD(195.15,"RQ",2)=""
^DD(195.16,0)="BORROWER FILE PARAMETERS SUB-FIELD^^4^4"
^DD(195.16,0,"IX","AC",195.16,.01)=""
^DD(195.16,0,"IX","B",195.16,.01)=""
^DD(195.16,0,"NM","BORROWER FILE PARAMETERS")=""
^DD(195.16,0,"UP")="195.1"
^DD(195.16,.01,0)="BORROWER FILE^MP1'^DIC(^0;1^Q"
^DD(195.16,.01,1,0)="^.1"
^DD(195.16,.01,1,1,0)="195.16^B"
^DD(195.16,.01,1,1,1)="S ^DIC(195.1,DA(1),""BOR"",""B"",$E(X,1,30),DA)="""""
^DD(195.16,.01,1,1,2)="K ^DIC(195.1,DA(1),""BOR"",""B"",$E(X,1,30),DA)"
^DD(195.16,.01,1,2,0)="195.16^AC^MUMPS"
^DD(195.16,.01,1,2,1)="S ^DIC(195.1,DA(1),""BOR"",""AC"",$P(^DIC(X,0,""GL""),U,2),DA)="""""
^DD(195.16,.01,1,2,2)="K ^DIC(195.1,DA(1),""BOR"",""AC"",$P(^DIC(X,0,""GL""),U,2),DA)"
^DD(195.16,.01,21,0)="^^2^2^2900304^"
^DD(195.16,.01,21,1,0)="This defines for each application actions to be taken when a"
^DD(195.16,.01,21,2,0)="borrower is accessed."
^DD(195.16,.01,"DT")="2870218"
^DD(195.16,2,0)="ASK PHONE/ROOM?^S^y:YES;n:NO;^0;2^Q"
^DD(195.16,2,21,0)="^^1^1^2900304^"
^DD(195.16,2,21,1,0)="YES means the system will ask for phone/room when accessing borrowers."
^DD(195.16,2,"DT")="2861112"
^DD(195.16,3,0)="ASK FOR ASSOCIATED BORROWER?^S^y:YES;n:NO;^0;3^Q"
^DD(195.16,3,21,0)="^^2^2^2900304^"
^DD(195.16,3,21,1,0)="YES means the system will ask for an associated borrower when another"
^DD(195.16,3,21,2,0)="borrower is accessed."
^DD(195.16,3,"DT")="2861112"
^DD(195.16,4,0)="SHOW CHARGED RECORDS?^S^y:YES;n:NO;^0;4^Q"
^DD(195.16,4,21,0)="^^2^2^2900304^"
^DD(195.16,4,21,1,0)="YES means the system will display charged records when a borrower"
^DD(195.16,4,21,2,0)="is accessed."
^DD(195.16,4,"DT")="2870327"
^DD(195.16,"B","ASK FOR ASSOCIATED BORROWER?",3)=""
^DD(195.16,"B","ASK PHONE/ROOM?",2)=""
^DD(195.16,"B","BORROWER FILE",.01)=""
^DD(195.16,"B","SHOW CHARGED RECORDS?",4)=""
^DD(195.16,"GL",0,1,.01)=""
^DD(195.16,"GL",0,2,2)=""
^DD(195.16,"GL",0,3,3)=""
^DD(195.16,"GL",0,4,4)=""
^DD(195.16,"IX",.01)=""
^DD(195.17,0)="ENTITY FILE SUB-FIELD^^.01^1"
^DD(195.17,0,"IX","B",195.17,.01)=""
^DD(195.17,0,"NM","ENTITY FILE")=""
^DD(195.17,0,"UP")="195.1"
^DD(195.17,.01,0)="ENTITY FILE^MP1'^DIC(^0;1^Q"
^DD(195.17,.01,1,0)="^.1"
^DD(195.17,.01,1,1,0)="195.17^B"
^DD(195.17,.01,1,1,1)="S ^DIC(195.1,DA(1),""ENTITY"",""B"",$E(X,1,30),DA)="""""
^DD(195.17,.01,1,1,2)="K ^DIC(195.1,DA(1),""ENTITY"",""B"",$E(X,1,30),DA)"
^DD(195.17,.01,"DT")="2870114"
^DD(195.17,"B","ENTITY FILE",.01)=""
^DD(195.17,"GL",0,1,.01)=""
^DD(195.17,"IX",.01)=""
^DD(195.2,0)="FIELD^^150^26"
^DD(195.2,0,"DT")="2910523"
^DD(195.2,0,"IX","AF",195.21,.01)=""
^DD(195.2,0,"IX","B",195.2,.01)=""
^DD(195.2,0,"IX","C",195.2,3)=""
^DD(195.2,0,"NM","RECORD TYPES")=""
^DD(195.2,0,"PT",40.8,100.3)=""
^DD(195.2,0,"PT",190,3)=""
^DD(195.2,0,"PT",194.2,4)=""
^DD(195.2,0,"PT",195.1,10)=""
^DD(195.2,0,"PT",195.1,45)=""
^DD(195.2,0,"PT",195.13,.01)=""
^DD(195.2,0,"PT",195.14,.01)=""
^DD(195.2,0,"PT",195.15,.01)=""
^DD(195.2,0,"PT",195.22,.01)=""
^DD(195.2,0,"PT",195.4,102)=""
^DD(195.2,0,"PT",195.4,202)=""
^DD(195.2,0,"PT",195.9001,.01)=""
^DD(195.2,0,"VR")="2"
^DD(195.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(195.2,.01,1,0)="^.1"
^DD(195.2,.01,1,1,0)="195.2^B"
^DD(195.2,.01,1,1,1)="S ^DIC(195.2,""B"",$E(X,1,30),DA)="""""
^DD(195.2,.01,1,1,2)="K ^DIC(195.2,""B"",$E(X,1,30),DA)"
^DD(195.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(195.2,.01,21,0)="^^1^1^2900303^"
^DD(195.2,.01,21,1,0)="This describes the record as to function."
^DD(195.2,2,0)="ABBREVIATION^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(195.2,2,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(195.2,2,21,0)="^^1^1^2900303^"
^DD(195.2,2,21,1,0)="This allows the record type to be selected by a few characters."
^DD(195.2,2,"DT")="2860905"
^DD(195.2,3,0)="APPLICATION^P195.1'I^DIC(195.1,^0;3^Q"
^DD(195.2,3,1,0)="^.1^^-1"
^DD(195.2,3,1,1,0)="195.2^C"
^DD(195.2,3,1,1,1)="S ^DIC(195.2,""C"",$E(X,1,30),DA)="""""
^DD(195.2,3,1,1,2)="K ^DIC(195.2,""C"",$E(X,1,30),DA)"
^DD(195.2,3,21,0)="^^1^1^2900303^"
^DD(195.2,3,21,1,0)="This allows the record type to be associated with one or many applications."
^DD(195.2,3,"DT")="2870122"
^DD(195.2,4,0)="INQUIRY DISPLAY ORDER^RNJ3,0X^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X D CHK^RTUTL3:$D(X)"
^DD(195.2,4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(195.2,4,21,0)="^^1^1^2900303^"
^DD(195.2,4,21,1,0)="This is used by the system to allow application modification of displays."
^DD(195.2,4,"DT")="2870306"
^DD(195.2,5,0)="RECORD LABEL FORMAT^*P194.4'^DIC(194.4,^0;5^S DIC(""S"")=""I $D(D0),$P(^(0),U,4)=""""r"""",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.2,5,12)="Allows only record formats for current application."
^DD(195.2,5,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,4)=""""r"""",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"""
^DD(195.2,5,21,0)="^^1^1^2900303^^"
^DD(195.2,5,21,1,0)="This defines the label format to be used when printing a record label."
^DD(195.2,5,"DT")="2860819"
^DD(195.2,6,0)="REQUEST NOTICE FORMAT^*P194.4'^DIC(194.4,^0;6^S DIC(""S"")=""I $D(D0),$P(^(0),U,4)=""""q"""",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.2,6,12)="Allows only request formats for current application."
^DD(195.2,6,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,4)=""""q"""",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"""
^DD(195.2,6,21,0)="^^2^2^2900303^"
^DD(195.2,6,21,1,0)="This defines the label format to be used when printing a request for"
^DD(195.2,6,21,2,0)="a record."
^DD(195.2,6,"DT")="2860819"
^DD(195.2,7,0)="CONTROL OF FINDING RECORDS^S^f:FILE ROOM SUPERVISOR ONLY!;a:ANY USER;^0;7^Q"
^DD(195.2,7,3)=""
^DD(195.2,7,21,0)="^^2^2^2900303^"
^DD(195.2,7,21,1,0)="This allows the application to limit the designation of a missing record"
^DD(195.2,7,21,2,0)="as found."
^DD(195.2,7,"DT")="2860826"
^DD(195.2,8,0)="REQUEST PURGE CUTOFF (days)^NJ8,0^^0;8^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(195.2,8,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(195.2,8,21,0)="^^1^1^2900303^"
^DD(195.2,8,21,1,0)="This defines the number of days to retain requests before purging."
^DD(195.2,8,"DT")="2860826"
^DD(195.2,9,0)="PENDING REQUEST CUTOFF (days)^NJ8,0^^0;9^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(195.2,9,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(195.2,9,21,0)="^^2^2^2901124^^"
^DD(195.2,9,21,1,0)="This defines the number of days before a request is considered not filled"
^DD(195.2,9,21,2,0)="by the system."
^DD(195.2,9,"DT")="2860826"
^DD(195.2,10,0)="PULL LIST PURGE CUTOFF (days)^NJ8,0^^0;10^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(195.2,10,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(195.2,10,21,0)="^^2^2^2900303^"
^DD(195.2,10,21,1,0)="This defines the number of days to retain pull lists before the pull"
^DD(195.2,10,21,2,0)="lists are purged by the purge option."
^DD(195.2,10,"DT")="2860827"
^DD(195.2,11,0)="OVERDUE RECORD CUTOFF (days)^NJ8,0^^0;11^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(195.2,11,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(195.2,11,21,0)="^^2^2^2900303^"
^DD(195.2,11,21,1,0)="This defines the number of days that a charged record is allowed to be"
^DD(195.2,11,21,2,0)="charged before it is considered by the system as overdue."
^DD(195.2,11,"DT")="2860902"
^DD(195.2,11.1,0)="BARCODE RENEWAL CUTOFF (days)^NJ4,0^^0;20^K:+X'=X!(X>9999)!(X<365)!(X?.E1"".""1N.N) X"
^DD(195.2,11.1,.1)="Barcode Renewal Cutoff (days)"
^DD(195.2,11.1,3)="Type a Number between 365 and 9999, 0 Decimal Digits"
^DD(195.2,11.1,21,0)="^^4^4^2910531^^^^"
^DD(195.2,11.1,21,1,0)="This field contains the number of days required to consider re-printing"
^DD(195.2,11.1,21,2,0)="a barcode label."
^DD(195.2,11.1,21,3,0)=" "
^DD(195.2,11.1,21,4,0)=" "
^DD(195.2,11.1,"DT")="2910523"
^DD(195.2,12,0)="# PREVIOUS MOVEMENTS TO RETAIN^NJ4,0X^^0;12^K:+X'=X!(X>9999)!(X<5)!(X?.E1"".""1N.N) X"
^DD(195.2,12,3)="TYPE A WHOLE NUMBER BETWEEN 5 AND 9999"
^DD(195.2,12,21,0)="^^1^1^2900303^"
^DD(195.2,12,21,1,0)="This defines the number of movements to not be purged by the purge option."
^DD(195.2,12,"DT")="2880606"
^DD(195.2,13,0)="CURRENT BORR REQUEST TIME MIN.^NJ5,0^^0;13^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(195.2,13,.1)="CURRENT BORROWER FUTURE REQUEST TIME MINIMUM (minutes)"
^DD(195.2,13,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(195.2,13,21,0)="^^2^2^2900303^"
^DD(195.2,13,21,1,0)="This defines the time in the future when the current borrower may request"
^DD(195.2,13,21,2,0)="the record again."
^DD(195.2,13,"DT")="2861028"
^DD(195.2,14,0)="CAN RECORD BE REQUESTED?^S^y:YES;n:NO;^0;14^Q"
^DD(195.2,14,21,0)="^^1^1^2900303^"
^DD(195.2,14,21,1,0)="No means the record cannot be requested."
^DD(195.2,14,"DT")="2861112"
^DD(195.2,15,0)="IS RECORD TEMPORARY?^S^y:YES;n:NO;^0;15^Q"
^DD(195.2,15,21,0)="^^1^1^2900303^"
^DD(195.2,15,21,1,0)="This means that the record can only be charged out once."
^DD(195.2,15,"DT")="2861112"
^DD(195.2,16,0)="ASK FOR CONTENT DESCRIPTOR?^S^y:YES;n:NO;^0;16^Q"
^DD(195.2,16,21,0)="^^2^2^2900303^"
^DD(195.2,16,21,1,0)="Yes means the system will query the user to add free text for record"
^DD(195.2,16,21,2,0)="description."
^DD(195.2,16,"DT")="2861112"
^DD(195.2,17,0)="MULTIPLE VOLUMES ALLOWED?^RS^y:YES;n:NO;^0;17^Q"
^DD(195.2,17,21,0)="^^2^2^2900303^"
^DD(195.2,17,21,1,0)="Yes means the system will allow creation of multiple volumes for"
^DD(195.2,17,21,2,0)="this type of record."
^DD(195.2,17,"DT")="2870214"
^DD(195.2,18,0)="OK TO PURGE DATA?^S^y:YES;n:NO;^0;18^Q"
^DD(195.2,18,21,0)="^^2^2^2900306^^"
^DD(195.2,18,21,1,0)="NO means that all the purge parameters will be ignored by the purge option"
^DD(195.2,18,21,2,0)="and no data is purged until this parameter is set to YES."
^DD(195.2,18,"DT")="2870428"
^DD(195.2,19,0)="RETIRE RECORD CUTOFF (days)^NJ4,0^^0;19^K:+X'=X!(X>9999)!(X<365)!(X?.E1"".""1N.N) X"
^DD(195.2,19,.1)="Record Retirement Cutoff (days)"
^DD(195.2,19,3)="Type a Number between 365 and 9999, 0 Decimal Digits"
^DD(195.2,19,21,0)="^^4^4^2910618^^^"
^DD(195.2,19,21,1,0)="This field will contain the number of days required for a record to be"
^DD(195.2,19,21,2,0)="considered for retirement."
^DD(195.2,19,21,3,0)=" "
^DD(195.2,19,21,4,0)=" "
^DD(195.2,19,"DT")="2910523"
^DD(195.2,21,0)="PENDING CHECK-IN CUTOFF (days)^NJ5,0^^1;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(195.2,21,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(195.2,21,21,0)="^^2^2^2910528^^"
^DD(195.2,21,21,1,0)="This describes the number of days a pending request will be displayed"
^DD(195.2,21,21,2,0)="for a record when the record is being checked in."
^DD(195.2,21,"DT")="2901218"
^DD(195.2,22,0)="OK TO RETIRE RECORDS?^S^y:YES;n:NO;^1;2^Q"
^DD(195.2,22,"DT")="2910313"
^DD(195.2,50,0)="INACTIVATION DATE^D^^I;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(195.2,50,21,0)="^^2^2^2900306^^"
^DD(195.2,50,21,1,0)="This defines a date when the record is no longer available to be "
^DD(195.2,50,21,2,0)="charged out."
^DD(195.2,75,0)="LINKED RECORDS^195.22PA^^LINKED;0"
^DD(195.2,75,12)="Allows only records for the same application."
^DD(195.2,75,12.1)="S DIC(""S"")=""I $D(D0),D0'=+Y,$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"""
^DD(195.2,75,21,0)="^^2^2^2900303^"
^DD(195.2,75,21,1,0)="This points to other record types which should be automatically"
^DD(195.2,75,21,2,0)="created by the system when this record is created."
^DD(195.2,100,0)="ALLOWABLE FILE ROOMS^195.21IPA^^F;0"
^DD(195.2,100,12)="Allows only file rooms that match the record type application."
^DD(195.2,100,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3),$D(^SC(+$P(^RTV(195.9,Y,0),U,2),0)),$P(^(0),U,3)=""""F"""" D DICS^RTDPA31"""
^DD(195.2,100,21,0)="^^2^2^2900303^"
^DD(195.2,100,21,1,0)="This defines which borrower/file areas may be allowed to check in "
^DD(195.2,100,21,2,0)="this type of record."
^DD(195.2,150,0)="DESCRIPTION^195.23^^D;0"
^DD(195.2,150,21,0)="^^1^1^2900303^"
^DD(195.2,150,21,1,0)="This free text allows the record to be described more fully."
^DD(195.2,"B","# PREVIOUS MOVEMENTS TO RETAIN",12)=""
^DD(195.2,"B","ABBREVIATION",2)=""
^DD(195.2,"B","ALLOWABLE FILE ROOMS",100)=""
^DD(195.2,"B","APPLICATION",3)=""
^DD(195.2,"B","ASK FOR CONTENT DESCRIPTOR?",16)=""
^DD(195.2,"B","BARCODE RENEWAL CUTOFF (days)",11.1)=""
^DD(195.2,"B","Barcode Renewal Cutoff (days)",11.1)="1"
^DD(195.2,"B","CAN RECORD BE REQUESTED?",14)=""
^DD(195.2,"B","CONTROL OF FINDING RECORDS",7)=""
^DD(195.2,"B","CURRENT BORR REQUEST TIME MIN.",13)=""
^DD(195.2,"B","DESCRIPTION",150)=""
^DD(195.2,"B","INACTIVATION DATE",50)=""
^DD(195.2,"B","INQUIRY DISPLAY ORDER",4)=""
^DD(195.2,"B","IS RECORD TEMPORARY?",15)=""
^DD(195.2,"B","LINKED RECORDS",75)=""
^DD(195.2,"B","MULTIPLE VOLUMES ALLOWED?",17)=""
^DD(195.2,"B","NAME",.01)=""
^DD(195.2,"B","OK TO PURGE DATA?",18)=""
^DD(195.2,"B","OK TO RETIRE RECORDS?",22)=""
^DD(195.2,"B","OVERDUE RECORD CUTOFF (days)",11)=""
^DD(195.2,"B","PENDING CHECK-IN CUTOFF (days)",21)=""
^DD(195.2,"B","PENDING REQUEST CUTOFF (days)",9)=""
^DD(195.2,"B","PULL LIST PURGE CUTOFF (days)",10)=""
^DD(195.2,"B","RECORD LABEL FORMAT",5)=""
^DD(195.2,"B","REQUEST NOTICE FORMAT",6)=""
^DD(195.2,"B","REQUEST PURGE CUTOFF (days)",8)=""
^DD(195.2,"B","RETIRE RECORD CUTOFF (days)",19)=""
^DD(195.2,"GL",0,1,.01)=""
^DD(195.2,"GL",0,2,2)=""
^DD(195.2,"GL",0,3,3)=""
^DD(195.2,"GL",0,4,4)=""
^DD(195.2,"GL",0,5,5)=""
^DD(195.2,"GL",0,6,6)=""
^DD(195.2,"GL",0,7,7)=""
^DD(195.2,"GL",0,8,8)=""
^DD(195.2,"GL",0,9,9)=""
^DD(195.2,"GL",0,10,10)=""
^DD(195.2,"GL",0,11,11)=""
^DD(195.2,"GL",0,12,12)=""
^DD(195.2,"GL",0,13,13)=""
^DD(195.2,"GL",0,14,14)=""
^DD(195.2,"GL",0,15,15)=""
^DD(195.2,"GL",0,16,16)=""
^DD(195.2,"GL",0,17,17)=""
^DD(195.2,"GL",0,18,18)=""
^DD(195.2,"GL",0,19,19)=""
^DD(195.2,"GL",0,20,11.1)=""
^DD(195.2,"GL",1,1,21)=""
^DD(195.2,"GL",1,2,22)=""
^DD(195.2,"GL","D",0,150)=""
^DD(195.2,"GL","F",0,100)=""
^DD(195.2,"GL","I",1,50)=""
^DD(195.2,"GL","LINKED",0,75)=""
^DD(195.2,"IX",.01)=""
^DD(195.2,"IX",3)=""
^DD(195.2,"RQ",.01)=""
^DD(195.2,"RQ",4)=""
^DD(195.2,"RQ",17)=""
^DD(195.2,"SB",195.21,100)=""
^DD(195.2,"SB",195.22,75)=""
^DD(195.2,"SB",195.23,150)=""
^DD(195.21,0)="ALLOWABLE FILE ROOMS SUB-FIELD^^.01^1"
^DD(195.21,0,"NM","ALLOWABLE FILE ROOMS")=""
^DD(195.21,0,"UP")="195.2"
^DD(195.21,.01,0)="FILE ROOM^M*P195.9'X^RTV(195.9,^0;1^S DIC(""V"")=""I $P(Y(0),U,4)=""""L"""""",DIC(""S"")=""I $D(D0),$P(^(0),U,13)=""""F"""",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.21,.01,1,0)="^.1"
^DD(195.21,.01,1,1,0)="195.2^AF"
^DD(195.21,.01,1,1,1)="S ^DIC(195.2,""AF"",$E(X,1,30),DA(1),DA)="""""
^DD(195.21,.01,1,1,2)="K ^DIC(195.2,""AF"",$E(X,1,30),DA(1),DA)"
^DD(195.21,.01,12)="Allows only file rooms associated with the same application as the record type."
^DD(195.21,.01,12.1)="S DIC(""S"")=""I $D(D0),$P(^(0),U,13)=""""F"""",$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3) D DICS^RTDPA31"""
^DD(195.21,.01,"DT")="2870514"
^DD(195.21,"B","FILE ROOM",.01)=""
^DD(195.21,"GL",0,1,.01)=""
^DD(195.21,"IX",.01)=""
^DD(195.22,0)="LINKED RECORDS SUB-FIELD^^.01^1"
^DD(195.22,0,"IX","B",195.22,.01)=""
^DD(195.22,0,"NM","LINKED RECORDS")=""
^DD(195.22,0,"UP")="195.2"
^DD(195.22,.01,0)="LINKED RECORDS^M*P195.2'^DIC(195.2,^0;1^S DIC(""S"")=""I $D(D0),D0'=+Y,$P(^(0),U,3)=$P(^DIC(195.2,D0,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.22,.01,1,0)="^.1"
^DD(195.22,.01,1,1,0)="195.22^B"
^DD(195.22,.01,1,1,1)="S ^DIC(195.2,DA(1),""LINKED"",""B"",$E(X,1,30),DA)="""""
^DD(195.22,.01,1,1,2)="K ^DIC(195.2,DA(1),""LINKED"",""B"",$E(X,1,30),DA)"
^DD(195.22,.01,"DT")="2860908"
^DD(195.22,"B","LINKED RECORDS",.01)=""
^DD(195.22,"GL",0,1,.01)=""
^DD(195.22,"IX",.01)=""
^DD(195.23,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(195.23,0,"NM","DESCRIPTION")=""
^DD(195.23,0,"UP")="195.2"
^DD(195.23,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(195.23,.01,"DT")="2860923"
^DD(195.23,"B","DESCRIPTION",.01)=""
^DD(195.23,"GL",0,1,.01)=""
^DD(195.3,0)="FIELD^^4^4"
^DD(195.3,0,"DDA")="N"
^DD(195.3,0,"ID",3)="W ""   "",$S($D(^DIC(195.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(195.3,0,"IX","AA",195.3,3)=""
^DD(195.3,0,"IX","AA1",195.3,.01)=""
^DD(195.3,0,"IX","B",195.3,.01)=""
^DD(195.3,0,"IX","C",195.3,3)=""
^DD(195.3,0,"NM","RECORD MOVEMENT TYPES")=""
^DD(195.3,0,"PT",190,108)=""
^DD(195.3,0,"PT",190.3,8)=""
^DD(195.3,0,"VR")="2"
^DD(195.3,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(195.3,.01,1,0)="^.1"
^DD(195.3,.01,1,1,0)="195.3^B"
^DD(195.3,.01,1,1,1)="S ^DIC(195.3,""B"",$E(X,1,30),DA)="""""
^DD(195.3,.01,1,1,2)="K ^DIC(195.3,""B"",$E(X,1,30),DA)"
^DD(195.3,.01,1,2,0)="195.3^AA1^MUMPS"
^DD(195.3,.01,1,2,1)="S:$P(^DIC(195.3,DA,0),U,3) ^DIC(195.3,""AA"",+$P(^(0),U,3),X,DA)="""""
^DD(195.3,.01,1,2,2)="K ^DIC(195.3,""AA"",+$P(^DIC(195.3,DA,0),U,3),X,DA)"
^DD(195.3,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(195.3,.01,21,0)="^^1^1^2910506^^^^"
^DD(195.3,.01,21,1,0)="This describes the action when the system manipulates a record."
^DD(195.3,.01,"DEL",.01,0)="I 1 W !,""Movement Types may not be deleted"""
^DD(195.3,.01,"DT")="2900614"
^DD(195.3,2,0)="DISPLAY MESSAGE^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(195.3,2,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(195.3,2,21,0)="^^2^2^2900303^"
^DD(195.3,2,21,1,0)="This describes what is displayed by the system when a movement is"
^DD(195.3,2,21,2,0)="done."
^DD(195.3,3,0)="APPLICATION^RP195.1'^DIC(195.1,^0;3^Q"
^DD(195.3,3,1,0)="^.1"
^DD(195.3,3,1,1,0)="195.3^AA^MUMPS"
^DD(195.3,3,1,1,1)="S ^DIC(195.3,""AA"",X,$P(^DIC(195.3,DA,0),U),DA)="""""
^DD(195.3,3,1,1,2)="K ^DIC(195.3,""AA"",X,$P(^DIC(195.3,DA,0),U),DA)"
^DD(195.3,3,1,2,0)="195.3^C"
^DD(195.3,3,1,2,1)="S ^DIC(195.3,""C"",$E(X,1,30),DA)="""""
^DD(195.3,3,1,2,2)="K ^DIC(195.3,""C"",$E(X,1,30),DA)"
^DD(195.3,3,21,0)="^^2^2^2900303^"
^DD(195.3,3,21,1,0)="This allows certain types of movements to be allowed for some applications"
^DD(195.3,3,21,2,0)="and not performed for others."
^DD(195.3,3,"DT")="2870115"
^DD(195.3,4,0)="INCLUDE ON OVERDUE REPORT^S^y:YES;n:NO;^0;4^Q"
^DD(195.3,4,21,0)="^^2^2^2900303^"
^DD(195.3,4,21,1,0)="YES means that the current movement of the record indicates that"
^DD(195.3,4,21,2,0)="it may not be available for distribution."
^DD(195.3,4,"DT")="2870109"
^DD(195.3,"B","APPLICATION",3)=""
^DD(195.3,"B","DISPLAY MESSAGE",2)=""
^DD(195.3,"B","INCLUDE ON OVERDUE REPORT",4)=""
^DD(195.3,"B","NAME",.01)=""
^DD(195.3,"GL",0,1,.01)=""
^DD(195.3,"GL",0,2,2)=""
^DD(195.3,"GL",0,3,3)=""
^DD(195.3,"GL",0,4,4)=""
^DD(195.3,"IX",.01)=""
^DD(195.3,"IX",3)=""
^DD(195.3,"RQ",.01)=""
^DD(195.3,"RQ",3)=""
^DD(195.4,0)="FIELD^^202^17"
^DD(195.4,0,"DT")="2910506"
^DD(195.4,0,"IX","B",195.4,.01)=""
^DD(195.4,0,"IX","MAS",195.4,101)=""
^DD(195.4,0,"IX","RAD",195.4,201)=""
^DD(195.4,0,"NM","RECORD TRACKING SYSTEM PARAMETERS")=""
^DD(195.4,0,"VR")="2"
^DD(195.4,.01,0)="NAME^RFX^^0;1^K:X'=""OVERALL PARAMETERS""&(X'=""MISSING RECORD"") X"
^DD(195.4,.01,1,0)="^.1"
^DD(195.4,.01,1,1,0)="195.4^B"
^DD(195.4,.01,1,1,1)="S ^DIC(195.4,""B"",$E(X,1,30),DA)="""""
^DD(195.4,.01,1,1,2)="K ^DIC(195.4,""B"",$E(X,1,30),DA)"
^DD(195.4,.01,3)="Enter one of the choices from the list above."
^DD(195.4,.01,21,0)="^^2^2^2940426^^^^"
^DD(195.4,.01,21,1,0)="This defines parameters that are used through out the system"
^DD(195.4,.01,21,2,0)="and applications."
^DD(195.4,.01,"DEL",1,0)="I 1 W *7,!,""CAN'T DELETE THIS ENTRY"""
^DD(195.4,.01,"DT")="2940502"
^DD(195.4,2,0)="QUEUE THRESHOLD^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(195.4,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(195.4,2,21,0)="^^3^3^2910506^^"
^DD(195.4,2,21,1,0)="This number is the number of records that can be charged-out or check-in"
^DD(195.4,2,21,2,0)="at one time before the system queue's the job to process in the "
^DD(195.4,2,21,3,0)="backround."
^DD(195.4,2,"DT")="2870130"
^DD(195.4,3,0)="NULL QUEUING DEVICE^FX^^0;3^K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)"
^DD(195.4,3,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(195.4,3,4)="D HELP^RTDPA3"
^DD(195.4,3,21,0)="^^3^3^2900303^^"
^DD(195.4,3,21,1,0)="This defines a non-sharable device in the device file which limits"
^DD(195.4,3,21,2,0)="the number of requests that are processed simultaneously by the"
^DD(195.4,3,21,3,0)="task manager."
^DD(195.4,3,"DT")="2870514"
^DD(195.4,4,0)="OPERATING CONDITIONS^RS^n:NORMAL;e:EMERGENCY(NORMAL COMPUTER DOWN);^0;4^Q"
^DD(195.4,4,1,0)="^.1"
^DD(195.4,4,21,0)="^^8^8^2900303^^^"
^DD(195.4,4,21,1,0)="This field contains the hardware conditions parameter that tells the system"
^DD(195.4,4,21,2,0)="the type of operating conditions that are in effect.  The available"
^DD(195.4,4,21,3,0)="conditions are: 'N' for normal and 'E' for emergency."
^DD(195.4,4,21,4,0)=" "
^DD(195.4,4,21,5,0)="Under NORMAL conditions, the system uses the parameters set up"
^DD(195.4,4,21,6,0)="in the files 195.1, 195.2, 195.9 to determine which input and printer"
^DD(195.4,4,21,7,0)="devices to use.  Under EMERGENCY conditions, the system ignores all the"
^DD(195.4,4,21,8,0)="location parameters set up and the user is prompted for this information."
^DD(195.4,4,"DT")="2870407"
^DD(195.4,5,0)="BATCH RECORD,XRAY REQUESTS^S^0:NO;1:YES;^0;5^Q"
^DD(195.4,5,3)="Enter Yes to Batch requests, No to process immediately"
^DD(195.4,5,4)=""
^DD(195.4,5,10)="Site manager"
^DD(195.4,5,21,0)="^^6^6^2910512^^^^"
^DD(195.4,5,21,1,0)="No means Appointments for clinics which require records, and/or xrays"
^DD(195.4,5,21,2,0)="cause Requests for Records to be processed immediately through the"
^DD(195.4,5,21,3,0)="taskmanager, null queuing device, in the background."
^DD(195.4,5,21,4,0)=" "
^DD(195.4,5,21,5,0)="YES means clinic Requests for Records are not made until the clinic"
^DD(195.4,5,21,6,0)="requests option is run at night."
^DD(195.4,5,"DT")="2880412"
^DD(195.4,6,0)="BATCH REQUESTS CUTOFF (days)^NJ1,0^^0;6^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(195.4,6,3)="Enter a digit from 1 to 9"
^DD(195.4,6,21,0)="^^2^2^2900303^^^^"
^DD(195.4,6,21,1,0)="This defines the number of days in the future that the clinic request"
^DD(195.4,6,21,2,0)="option should look for clinic requests for records and/or xrays."
^DD(195.4,6,"DT")="2880412"
^DD(195.4,8,0)="OK TO PURGE REQUESTS?^S^y:YES;n:NO;^0;8^Q"
^DD(195.4,8,21,0)="^^1^1^2900303^"
^DD(195.4,8,21,1,0)="YES means the purge option will purge requests."
^DD(195.4,8,"DT")="2870428"
^DD(195.4,10,0)="OK TO PURGE PULL LISTS?^S^y:YES;n:NO;^0;10^Q"
^DD(195.4,10,21,0)="^^1^1^2900303^"
^DD(195.4,10,21,1,0)="YES means the purge option will purge pull lists."
^DD(195.4,10,"DT")="2870428"
^DD(195.4,12,0)="OK TO PURGE MOVEMENT LOGS?^S^y:YES;n:NO;^0;12^Q"
^DD(195.4,12,21,0)="^^1^1^2900303^"
^DD(195.4,12,21,1,0)="YES means the purge option will purge movements."
^DD(195.4,12,"DT")="2870428"
^DD(195.4,20,0)="LABEL PRINTER COOLER^NJ2,0^^COOL;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(195.4,20,3)="Enter a number from 0 to 99."
^DD(195.4,20,10)="site manager"
^DD(195.4,20,21,0)="^^3^3^2900304^^^^"
^DD(195.4,20,21,1,0)="This defines the number of minutes the program will hang every 100 "
^DD(195.4,20,21,2,0)="records when printing barcodes to allow the printer to relax.  It is"
^DD(195.4,20,21,3,0)="dynamic."
^DD(195.4,20,"DT")="2880409"
^DD(195.4,30,0)="INSTITUTION/STATION NUMBER^FX^^SITE;1^S DIC=""^DIC(4,"",DIC(0)=""ENM"" D ^DIC K DIC K:Y=-1 X I $D(X) S X=+$P(^DIC(4,+Y,99),""^"")"
^DD(195.4,30,3)="Enter your Station Number in the Institution file"
^DD(195.4,30,21,0)="^^2^2^2910512^"
^DD(195.4,30,21,1,0)="This field should contain the Station Number of the site."
^DD(195.4,30,21,2,0)="It is usually the same as the ^DD(""SITE"")"
^DD(195.4,30,"DT")="2910508"
^DD(195.4,100,0)="MAS INTERFACE STATUS^S^0:DOWN;1:UP;^UP;1^Q"
^DD(195.4,100,21,0)="^^2^2^2900303^"
^DD(195.4,100,21,1,0)="UP means clinic requests for records will be processed."
^DD(195.4,100,21,2,0)="DOWN means clinic requests for records will be ignored."
^DD(195.4,100,"DT")="2860918"
^DD(195.4,101,0)="MAS TRACKING APPLICATION^P195.1'^DIC(195.1,^MAS;1^Q"
^DD(195.4,101,1,0)="^.1"
^DD(195.4,101,1,1,0)="195.4^MAS"
^DD(195.4,101,1,1,1)="S ^DIC(195.4,""MAS"",$E(X,1,30),DA)="""""
^DD(195.4,101,1,1,2)="K ^DIC(195.4,""MAS"",$E(X,1,30),DA)"
^DD(195.4,101,5,1,0)="195.4^102^1"
^DD(195.4,101,9)="^"
^DD(195.4,101,21,0)="^^1^1^2900303^"
^DD(195.4,101,21,1,0)="This defines the application which is called by clinic requests."
^DD(195.4,101,"DT")="2860827"
^DD(195.4,102,0)="RECORD TYPE FOR MEDICAL FOLDER^P195.2'^DIC(195.2,^MAS;2^Q"
^DD(195.4,102,1,0)="^.1"
^DD(195.4,102,1,1,0)="^^TRIGGER^195.4^101"
^DD(195.4,102,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(195.4,D0,""MAS"")):^(""MAS""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(195.4,102,1,1,1.1) X ^DD(195.4,102,1,1,1.4)"
^DD(195.4,102,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(195.4,102,1,1,1.4)="S DIH=$S($D(^DIC(195.4,DIV(0),""MAS"")):^(""MAS""),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(""MAS"")=DIV_$S(%]"""":U_%,1:""""),DIH=195.4,DIG=101 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.4,102,1,1,2)="Q"
^DD(195.4,102,1,1,"CREATE VALUE")="INTERNAL(#102:#3)"
^DD(195.4,102,1,1,"DELETE VALUE")="NO EFFECT"
^DD(195.4,102,1,1,"FIELD")="#101"
^DD(195.4,102,21,0)="^^1^1^2900303^"
^DD(195.4,102,21,1,0)="This defines the record type for the medical record."
^DD(195.4,200,0)="RADIOLOGY INTERFACE STATUS^S^0:DOWN;1:UP;^UP;2^Q"
^DD(195.4,200,21,0)="^^2^2^2900303^"
^DD(195.4,200,21,1,0)="UP means clinic requests for xrays are processed."
^DD(195.4,200,21,2,0)="DOWN means clinic requests for xrays are ignored."
^DD(195.4,200,"DT")="2861110"
^DD(195.4,201,0)="RADIOLOGY TRACKING APPLICATION^P195.1'^DIC(195.1,^RAD;1^Q"
^DD(195.4,201,1,0)="^.1"
^DD(195.4,201,1,1,0)="195.4^RAD"
^DD(195.4,201,1,1,1)="S ^DIC(195.4,""RAD"",$E(X,1,30),DA)="""""
^DD(195.4,201,1,1,2)="K ^DIC(195.4,""RAD"",$E(X,1,30),DA)"
^DD(195.4,201,5,1,0)="195.4^202^1"
^DD(195.4,201,9)="^"
^DD(195.4,201,21,0)="^^1^1^2900303^"
^DD(195.4,201,21,1,0)="This defines the application which is called by radiology scheduling."
^DD(195.4,201,"DT")="2860827"
^DD(195.4,202,0)="RECORD TYPE FOR MASTER JACKET^P195.2'^DIC(195.2,^RAD;2^Q"
^DD(195.4,202,.1)=""
^DD(195.4,202,1,0)="^.1"
^DD(195.4,202,1,1,0)="^^TRIGGER^195.4^201"
^DD(195.4,202,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIC(195.4,D0,""RAD"")):^(""RAD""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(195.4,202,1,1,1.1) X ^DD(195.4,202,1,1,1.4)"
^DD(195.4,202,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(195.4,202,1,1,1.4)="S DIH=$S($D(^DIC(195.4,DIV(0),""RAD"")):^(""RAD""),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(""RAD"")=DIV_$S(%]"""":U_%,1:""""),DIH=195.4,DIG=201 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.4,202,1,1,2)="Q"
^DD(195.4,202,1,1,"CREATE VALUE")="INTERNAL(#202:#3)"
^DD(195.4,202,1,1,"DELETE VALUE")="NO EFFECT"
^DD(195.4,202,1,1,"FIELD")="#201"
^DD(195.4,202,21,0)="^^1^1^2900303^"
^DD(195.4,202,21,1,0)="This defines the record type for the radiology application."
^DD(195.4,"B","BATCH RECORD,XRAY REQUESTS",5)=""
^DD(195.4,"B","BATCH REQUESTS CUTOFF (days)",6)=""
^DD(195.4,"B","INSTITUTION/STATION NUMBER",30)=""
^DD(195.4,"B","LABEL PRINTER COOLER",20)=""
^DD(195.4,"B","MAS INTERFACE STATUS",100)=""
^DD(195.4,"B","MAS TRACKING APPLICATION",101)=""
^DD(195.4,"B","NAME",.01)=""
^DD(195.4,"B","NULL QUEUING DEVICE",3)=""
^DD(195.4,"B","OK TO PURGE MOVEMENT LOGS?",12)=""
^DD(195.4,"B","OK TO PURGE PULL LISTS?",10)=""
^DD(195.4,"B","OK TO PURGE REQUESTS?",8)=""
^DD(195.4,"B","OPERATING CONDITIONS",4)=""
^DD(195.4,"B","QUEUE THRESHOLD",2)=""
^DD(195.4,"B","RADIOLOGY INTERFACE STATUS",200)=""
^DD(195.4,"B","RADIOLOGY TRACKING APPLICATION",201)=""
^DD(195.4,"B","RECORD TYPE FOR MASTER JACKET",202)=""
^DD(195.4,"B","RECORD TYPE FOR MEDICAL FOLDER",102)=""
^DD(195.4,"GL",0,1,.01)=""
^DD(195.4,"GL",0,2,2)=""
^DD(195.4,"GL",0,3,3)=""
^DD(195.4,"GL",0,4,4)=""
^DD(195.4,"GL",0,5,5)=""
^DD(195.4,"GL",0,6,6)=""
^DD(195.4,"GL",0,8,8)=""
^DD(195.4,"GL",0,10,10)=""
^DD(195.4,"GL",0,12,12)=""
^DD(195.4,"GL","COOL",1,20)=""
^DD(195.4,"GL","MAS",1,101)=""
^DD(195.4,"GL","MAS",2,102)=""
^DD(195.4,"GL","RAD",1,201)=""
^DD(195.4,"GL","RAD",2,202)=""
^DD(195.4,"GL","SITE",1,30)=""
^DD(195.4,"GL","UP",1,100)=""
^DD(195.4,"GL","UP",2,200)=""
^DD(195.4,"IX",.01)=""
^DD(195.4,"IX",101)=""
^DD(195.4,"IX",102)=""
^DD(195.4,"IX",201)=""
^DD(195.4,"IX",202)=""
^DD(195.4,"RQ",.01)=""
^DD(195.4,"RQ",4)=""
^DD(195.6,0)="FIELD^^100^4"
^DD(195.6,0,"ID",2)="W """""
^DD(195.6,0,"IX","B",195.6,.01)=""
^DD(195.6,0,"IX","C",195.6,3)=""
^DD(195.6,0,"NM","REASONS")=""
^DD(195.6,0,"PT",190.1,9)=""
^DD(195.6,0,"PT",190.2,7)=""
^DD(195.6,0,"PT",194.2,9)=""
^DD(195.6,0,"VR")="2"
^DD(195.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(195.6,.01,1,0)="^.1"
^DD(195.6,.01,1,1,0)="195.6^B"
^DD(195.6,.01,1,1,1)="S ^DIC(195.6,""B"",$E(X,1,30),DA)="""""
^DD(195.6,.01,1,1,2)="K ^DIC(195.6,""B"",$E(X,1,30),DA)"
^DD(195.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(195.6,.01,21,0)="^^2^2^2900304^"
^DD(195.6,.01,21,1,0)="These entries provide standard answers which can provide"
^DD(195.6,.01,21,2,0)="statistical analysis."
^DD(195.6,2,0)="TYPE OF REASON^RS^c:CANCEL REQUEST;m:MISSING RECORD;g:GENERAL;^0;2^Q"
^DD(195.6,2,21,0)="^^3^3^2900304^"
^DD(195.6,2,21,1,0)="CANCEL requests limits use of certain reasons for canceling requests."
^DD(195.6,2,21,2,0)="MISSING records limits use of certain reasons for missing records."
^DD(195.6,2,21,3,0)="GENERAL allows the reason to be used anywhere."
^DD(195.6,2,"DT")="2861002"
^DD(195.6,3,0)="APPLICATION^RP195.1'^DIC(195.1,^0;3^Q"
^DD(195.6,3,1,0)="^.1"
^DD(195.6,3,1,1,0)="195.6^C"
^DD(195.6,3,1,1,1)="S ^DIC(195.6,""C"",$E(X,1,30),DA)="""""
^DD(195.6,3,1,1,2)="K ^DIC(195.6,""C"",$E(X,1,30),DA)"
^DD(195.6,3,21,0)="^^1^1^2900304^"
^DD(195.6,3,21,1,0)="This limits the reason for use in a particular application."
^DD(195.6,3,"DT")="2870115"
^DD(195.6,100,0)="DESCRIPTION^195.61^^1;0"
^DD(195.6,100,21,0)="^^2^2^2900304^"
^DD(195.6,100,21,1,0)="This allows the reason to be full described with free text.  Laygo may be"
^DD(195.6,100,21,2,0)="allowed to provide additional explanations."
^DD(195.6,"B","APPLICATION",3)=""
^DD(195.6,"B","DESCRIPTION",100)=""
^DD(195.6,"B","NAME",.01)=""
^DD(195.6,"B","TYPE OF REASON",2)=""
^DD(195.6,"GL",0,1,.01)=""
^DD(195.6,"GL",0,2,2)=""
^DD(195.6,"GL",0,3,3)=""
^DD(195.6,"GL",1,0,100)=""
^DD(195.6,"IX",.01)=""
^DD(195.6,"IX",3)=""
^DD(195.6,"RQ",.01)=""
^DD(195.6,"RQ",2)=""
^DD(195.6,"RQ",3)=""
^DD(195.6,"SB",195.61,100)=""
^DD(195.61,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(195.61,0,"NM","DESCRIPTION")=""
^DD(195.61,0,"UP")="195.6"
^DD(195.61,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(195.61,"B","DESCRIPTION",.01)=""
^DD(195.61,"GL",0,1,.01)=""
^DD(195.9,0)="FIELD^^172^25"
^DD(195.9,0,"DDA")="N"
^DD(195.9,0,"DIK")="RTXB"
^DD(195.9,0,"DIKOLD")="RTXB"
^DD(195.9,0,"ID","WRITE")="W ?30,$E($S($D(^DIC(195.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),1,25) W ?58,$E($S('$D(^SC(+$P(^RTV(195.9,Y,0),U,2),0)):"""",'$D(^DIC(4,+$P(^(0),U,4),0)):"""",1:""  [""_$P(^(0),U)_""]""),1,20),?79,@(""$E(""_DIC_""Y,0),0)"")"
^DD(195.9,0,"IX","ABOR",195.9,3)=""
^DD(195.9,0,"IX","AC",195.9,4)=""
^DD(195.9,0,"IX","AD",195.9,171)=""
^DD(195.9,0,"IX","ADEV",195.9002,.01)=""
^DD(195.9,0,"IX","AE",195.9,21)=""
^DD(195.9,0,"IX","B",195.9,.01)=""
^DD(195.9,0,"IX","S",195.9003,.01)=""
^DD(195.9,0,"NM","BORROWERS/FILE AREAS")=""
^DD(195.9,0,"PT",190,6)=""
^DD(195.9,0,"PT",190,105)=""
^DD(195.9,0,"PT",190,114)=""
^DD(195.9,0,"PT",190.1,5)=""
^DD(195.9,0,"PT",190.1,14)=""
^DD(195.9,0,"PT",190.2,5)=""
^DD(195.9,0,"PT",190.3,5)=""
^DD(195.9,0,"PT",190.3,14)=""
^DD(195.9,0,"PT",194.2,5)=""
^DD(195.9,0,"PT",194.2,16)=""
^DD(195.9,0,"PT",195.1,42)=""
^DD(195.9,0,"PT",195.1,44)=""
^DD(195.9,0,"PT",195.12,2)=""
^DD(195.9,0,"PT",195.13,2)=""
^DD(195.9,0,"PT",195.13,5)=""
^DD(195.9,0,"PT",195.21,.01)=""
^DD(195.9,0,"PT",195.9,12)=""
^DD(195.9,0,"VR")="2"
^DD(195.9,.01,0)="NAME^RV^^0;1^Q"
^DD(195.9,.01,1,0)="^.1"
^DD(195.9,.01,1,1,0)="195.9^B"
^DD(195.9,.01,1,1,1)="S ^RTV(195.9,""B"",$E(X,1,30),DA)="""""
^DD(195.9,.01,1,1,2)="K ^RTV(195.9,""B"",$E(X,1,30),DA)"
^DD(195.9,.01,1,2,0)="^^TRIGGER^195.9^2"
^DD(195.9,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X["";SC("" I X S X=DIV S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+X X ^DD(195.9,.01,1,2,1.4)"
^DD(195.9,.01,1,2,1.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(195.9,.01,1,2,2.4)"
^DD(195.9,.01,1,2,2.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,.01,1,2,"CREATE CONDITION")="INTERNAL(NAME)["";SC("""
^DD(195.9,.01,1,2,"CREATE VALUE")="S X=+X"
^DD(195.9,.01,1,2,"DELETE VALUE")="@"
^DD(195.9,.01,1,2,"FIELD")="HOSPITAL"
^DD(195.9,.01,3)=""
^DD(195.9,.01,7.5)="I X?.N1""/"".N,$D(^DIC(+X,0,""GL"")) S X=+$P(X,""/"",2)_"";""_$P(^(""GL""),""^"",2)"
^DD(195.9,.01,21,0)="^^1^1^2910401^^^^"
^DD(195.9,.01,21,1,0)="These entries describe entities which can posses records."
^DD(195.9,.01,"DT")="2870127"
^DD(195.9,.01,"V",0)="^.12P^4^4"
^DD(195.9,.01,"V",1,0)="200^PROVIDER PERSON^1^P^n^n"
^DD(195.9,.01,"V",2,0)="42^WARD^2^W^y^n"
^DD(195.9,.01,"V",2,1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,$P(^(""""I""""),U)'=""""I"""":1,1:0)"""
^DD(195.9,.01,"V",2,2)="Allows only active wards."
^DD(195.9,.01,"V",3,0)="44^LOCATION^3^L^y^n"
^DD(195.9,.01,"V",3,1)="S DIC(""S"")=""I """"W""""'[$P(^(0),U,3),$S('$D(^(""""I"""")):1,'^(""""I""""):1,DT<+^(""""I""""):1,'$P(^(""""I""""),U,2):0,1:DT>+$P(^(""""I""""),U,2))"""
^DD(195.9,.01,"V",3,2)="Allows only active hospital locations (excluding wards and file areas)."
^DD(195.9,.01,"V",4,0)="4^INSTITUTION^4^I^y^n"
^DD(195.9,.01,"V","B",4,4)=""
^DD(195.9,.01,"V","B",42,2)=""
^DD(195.9,.01,"V","B",44,3)=""
^DD(195.9,.01,"V","B",200,1)=""
^DD(195.9,.01,"V","M","INSTITUTION",4)=""
^DD(195.9,.01,"V","M","LOCATION",3)=""
^DD(195.9,.01,"V","M","PROVIDER PERSON",1)=""
^DD(195.9,.01,"V","M","WARD",2)=""
^DD(195.9,.01,"V","O",1,1)=""
^DD(195.9,.01,"V","O",2,2)=""
^DD(195.9,.01,"V","O",3,3)=""
^DD(195.9,.01,"V","O",4,4)=""
^DD(195.9,.01,"V","P","I",4)=""
^DD(195.9,.01,"V","P","L",3)=""
^DD(195.9,.01,"V","P","P",1)=""
^DD(195.9,.01,"V","P","W",2)=""
^DD(195.9,2,0)="HOSPITAL LOCATION FILE POINTER^P44'^SC(^0;2^Q"
^DD(195.9,2,1,0)="^.1"
^DD(195.9,2,1,1,0)="^^TRIGGER^195.9^8"
^DD(195.9,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(195.9,2,1,1,1.1) X ^DD(195.9,2,1,1,1.4)"
^DD(195.9,2,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,99)):^(99),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(195.9,2,1,1,1.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U"" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(0)=$P(DIH,U,1,7)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,2,1,1,2)="Q"
^DD(195.9,2,1,1,"CREATE VALUE")="HOSPITAL LOCATION FILE POINTER:TELEPHONE"
^DD(195.9,2,1,1,"DELETE VALUE")="NO EFFECT"
^DD(195.9,2,1,1,"FIELD")="PHONE #"
^DD(195.9,2,1,2,0)="^^TRIGGER^195.9^13"
^DD(195.9,2,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(195.9,2,1,2,1.1) X ^DD(195.9,2,1,2,1.4)"
^DD(195.9,2,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(102)=$S($D(^SC(D0,0)):^(0),1:""""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)"
^DD(195.9,2,1,2,1.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U"" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,2,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(195.9,2,1,2,2.4)"
^DD(195.9,2,1,2,2.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,12,99))  S DIH=DIH_U"" S %=$P(DIH,U,14,999),DIU=$P(DIH,U,13),^(0)=$P(DIH,U,1,12)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,2,1,2,"CREATE VALUE")="HOSPITAL LOCATION FILE POINTER:INTERNAL(LOCATION TYPE)"
^DD(195.9,2,1,2,"DELETE VALUE")="@"
^DD(195.9,2,1,2,"FIELD")="HOSPITAL LOCATION TYPE"
^DD(195.9,2,1,3,0)="^^TRIGGER^195.9^9"
^DD(195.9,2,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(195.9,2,1,3,1.1) X ^DD(195.9,2,1,3,1.4)"
^DD(195.9,2,1,3,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(101)=$S($D(^SC(D0,0)):^(0),1:"""") S X=$P(Y(101),U,11) S D0=I(0,0)"
^DD(195.9,2,1,3,1.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U"" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,2,1,3,2)="Q"
^DD(195.9,2,1,3,"CREATE VALUE")="HOSPITAL LOCATION FILE POINTER:PHYSICAL LOCATION"
^DD(195.9,2,1,3,"DELETE VALUE")="NO EFFECT"
^DD(195.9,2,1,3,"FIELD")="LOCATION/ROOM#"
^DD(195.9,2,5,1,0)="195.9^.01^2"
^DD(195.9,2,9)="^"
^DD(195.9,2,21,0)="^^1^1^2900306^^^"
^DD(195.9,2,21,1,0)="This defines borrowers who are entries in the hospital location file."
^DD(195.9,2,"DT")="2870424"
^DD(195.9,3,0)="APPLICATION^RP195.1'IX^DIC(195.1,^0;3^D DUPCHK^RTDPA32:$D(X)"
^DD(195.9,3,1,0)="^.1"
^DD(195.9,3,1,1,0)="195.9^ABOR^MUMPS"
^DD(195.9,3,1,1,1)="S ^RTV(195.9,""ABOR"",$P(^RTV(195.9,DA,0),U),X,DA)="""""
^DD(195.9,3,1,1,2)="K ^RTV(195.9,""ABOR"",$P(^RTV(195.9,DA,0),U),X,DA)"
^DD(195.9,3,21,0)="^^1^1^2900304^^^^"
^DD(195.9,3,21,1,0)="This defines the application associated with the entry in this file."
^DD(195.9,3,"DT")="2870519"
^DD(195.9,4,0)="RECORD BARCODE PRINTER^FX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)"
^DD(195.9,4,1,0)="^.1"
^DD(195.9,4,1,1,0)="195.9^AC"
^DD(195.9,4,1,1,1)="S ^RTV(195.9,""AC"",$E(X,1,30),DA)="""""
^DD(195.9,4,1,1,2)="K ^RTV(195.9,""AC"",$E(X,1,30),DA)"
^DD(195.9,4,3)=""
^DD(195.9,4,4)="D HELP^RTDPA3"
^DD(195.9,4,21,0)="^^2^2^2900304^^"
^DD(195.9,4,21,1,0)="This allows the system to know where to print record barcodes"
^DD(195.9,4,21,2,0)="depending on the borrower/file area."
^DD(195.9,4,"DT")="2870220"
^DD(195.9,5,0)="REQUEST NOTICE PRINTER^FX^^0;5^K:$L(X)>40!($L(X)<1) X I $D(X),'$D(RTREMOTE) D PRT^RTDPA3"
^DD(195.9,5,3)=""
^DD(195.9,5,4)="D HELP^RTDPA3"
^DD(195.9,5,21,0)="^^1^1^2910224^^^^"
^DD(195.9,5,21,1,0)="This allows the system to know where to print requests for records."
^DD(195.9,5,"DT")="2910224"
^DD(195.9,6,0)="MANAGEMENT REPORT PRINTER^FX^^0;6^K:$L(X)>40!($L(X)<1) X D PRT^RTDPA3:$D(X)"
^DD(195.9,6,3)=""
^DD(195.9,6,4)="D HELP^RTDPA3"
^DD(195.9,6,21,0)="^^1^1^2900304^"
^DD(195.9,6,21,1,0)="This allows the system to know where to print management reports."
^DD(195.9,6,"DT")="2870130"
^DD(195.9,7,0)="PHONE/LOCATION COMBO^F^^0;7^K:$L(X)>21!($L(X)<1) X"
^DD(195.9,7,3)="ANSWER MUST BE 1-21 CHARACTERS IN LENGTH"
^DD(195.9,7,5,1,0)="195.9^8^1"
^DD(195.9,7,5,2,0)="195.9^9^1"
^DD(195.9,7,9)="^"
^DD(195.9,7,21,0)="^^2^2^2900306^^"
^DD(195.9,7,21,1,0)="This defines the phone number and location in a dynamic format for"
^DD(195.9,7,21,2,0)="descriptions of borrowers/file areas."
^DD(195.9,8,0)="PHONE #^F^^0;8^K:$L(X)>15!($L(X)<1) X"
^DD(195.9,8,1,0)="^.1"
^DD(195.9,8,1,1,0)="^^TRIGGER^195.9^7"
^DD(195.9,8,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,8,1,1,1.1) X ^DD(195.9,8,1,1,1.4)"
^DD(195.9,8,1,1,1.1)="S X=DIV X ^DD(195.9,8,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(3),X=X_Y"
^DD(195.9,8,1,1,1.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U"" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,8,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,8,1,1,2.1) X ^DD(195.9,8,1,1,2.4)"
^DD(195.9,8,1,1,2.1)="S X=DIV S Y(2)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=""/"",Y(1)=X S X=$P(Y(2),U,9),Y(3)=X S X=1,Y(4)=X S X=10,X=$E(Y(3),Y(4),X) S Y=X,X=Y(1),X=X_Y"
^DD(195.9,8,1,1,2.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U"" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,8,1,1,49.2)="S Y(4)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=DIV,Y(1)=X S X=1,Y(2)=X S X=10,X=$E(Y(1),Y(2),X)_""/"",Y(3)=X S X=$P(Y(4),U,9),Y(5)=X S X=1,Y(6)=X S X=10"
^DD(195.9,8,1,1,"CREATE VALUE")="$E(#8,1,10)_""/""_$E(#9,1,10)"
^DD(195.9,8,1,1,"DELETE VALUE")="""/""_$E(#9,1,10)"
^DD(195.9,8,1,1,"FIELD")="PHONE/LOCATION COMBO"
^DD(195.9,8,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(195.9,8,5,1,0)="195.9^2^1"
^DD(195.9,8,21,0)="^^1^1^2900304^"
^DD(195.9,8,21,1,0)="This defines the phone number of the borrower/file areas."
^DD(195.9,8,"DT")="2860929"
^DD(195.9,9,0)="LOCATION/ROOM#^F^^0;9^K:$L(X)>15!($L(X)<1) X"
^DD(195.9,9,1,0)="^.1"
^DD(195.9,9,1,1,0)="^^TRIGGER^195.9^7"
^DD(195.9,9,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,9,1,1,1.1) X ^DD(195.9,9,1,1,1.4)"
^DD(195.9,9,1,1,1.1)="S X=DIV X ^DD(195.9,9,1,1,49.2) S X=$E(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y"
^DD(195.9,9,1,1,1.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U"" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,9,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(195.9,9,1,1,2.1) X ^DD(195.9,9,1,1,2.4)"
^DD(195.9,9,1,1,2.1)="S X=DIV S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),Y(2)=X S X=1,Y(3)=X S X=10,X=$E(Y(2),Y(3),X)_""/"""
^DD(195.9,9,1,1,2.4)="S DIH=$S($D(^RTV(195.9,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,6,99))  S DIH=DIH_U"" S %=$P(DIH,U,8,999),DIU=$P(DIH,U,7),^(0)=$P(DIH,U,1,6)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9,9,1,1,49.2)="S Y(1)=$S($D(^RTV(195.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),Y(2)=X S X=1,Y(3)=X S X=10,X=$E(Y(2),Y(3),X)_""/"",Y(4)=X S X=DIV,Y(5)=X S X=1,Y(6)=X S X=10"
^DD(195.9,9,1,1,"CREATE VALUE")="$E(#8,1,10)_""/""_$E(#9,1,10)"
^DD(195.9,9,1,1,"DELETE VALUE")="$E(#8,1,10)_""/"""
^DD(195.9,9,1,1,"FIELD")="PHONE/LOCATION COMBO"
^DD(195.9,9,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(195.9,9,5,1,0)="195.9^2^3"
^DD(195.9,9,21,0)="^^1^1^2900304^"
^DD(195.9,9,21,1,0)="This defines the location of a borrower/file areas."
^DD(195.9,9,"DT")="2860929"
^DD(195.9,10,0)="BORROWING PRIVILEGES^S^n:NORMAL;i:INACTIVATED;r:REVOKED;^0;10^Q"
^DD(195.9,10,21,0)="^^3^3^2900304^"
^DD(195.9,10,21,1,0)="NORMAL means records may be charged to the borrower/file area."
^DD(195.9,10,21,2,0)="INACTIVATED means records will not normally be charged."
^DD(195.9,10,21,3,0)="REVOKED means records may not be charged to this borrower/file area."
^DD(195.9,10,"DT")="2870217"
^DD(195.9,11,0)="RECORD SORT^S^a:ALPHA;t:TERMINAL DIGITS;^0;11^Q"
^DD(195.9,11,21,0)="^^3^3^2900304^"
^DD(195.9,11,21,1,0)="ALPHA means record lists are sorted alphabetically."
^DD(195.9,11,21,2,0)="TERMINAL DIGIT means record lists are sorted by social security number"
^DD(195.9,11,21,3,0)="in right to left order."
^DD(195.9,11,"DT")="2860929"
^DD(195.9,12,0)="REQUESTS FOR WHICH BORROWER?^*P195.9'X^RTV(195.9,^0;12^D BOR^RTDPA31 S DIC(""S"")=""I $D(D0),$P(^RTV(195.9,D0,0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.9,12,3)=""
^DD(195.9,12,12)="Allows borrowers associated with same application."
^DD(195.9,12,12.1)="S DIC(""S"")=""I $D(D0),$P(^RTV(195.9,D0,0),U,3)=$P(^RTV(195.9,Y,0),U,3) D DICS^RTDPA31"""
^DD(195.9,12,21,0)="^^2^2^2901117^^"
^DD(195.9,12,21,1,0)="This allows the system to query for a associated borrower/file area"
^DD(195.9,12,21,2,0)="when a borrower is selected."
^DD(195.9,12,"DT")="2870218"
^DD(195.9,13,0)="HOSPITAL LOCATION TYPE^S^C:CLINIC;F:FILE AREA;I:IMAGING;M:MODULE;N:NON-CLINIC STOP;W:WARD;Z:OTHER;^0;13^Q"
^DD(195.9,13,5,1,0)="195.9^2^2"
^DD(195.9,13,9)="^"
^DD(195.9,13,21,0)="^^2^2^2901117^^"
^DD(195.9,13,21,1,0)="This defines the hospital location type when a borrower is an entry in"
^DD(195.9,13,21,2,0)="the hospital location file."
^DD(195.9,13,"DT")="2870314"
^DD(195.9,14,0)="ARE RECORDS REQUIRED?^S^y:YES;n:NO;^0;14^Q"
^DD(195.9,14,.1)="DOES THIS LOCATION REQUIRE RECORDS?"
^DD(195.9,14,21,0)="^^2^2^2900304^^^"
^DD(195.9,14,21,1,0)="YES means request a record when a patient visit is scheduled."
^DD(195.9,14,21,2,0)="NO means records are not required."
^DD(195.9,14,"DT")="2870407"
^DD(195.9,15,0)="ACTION IF HOME IS DIFFERENT^S^n:NO ACTION;a:AUTOMATICALLY CHANGE;q:QUESTION USER ABOUT CHANGE;d:DISPLAY WARNING ONLY;^0;15^Q"
^DD(195.9,15,21,0)="^^2^2^2900304^"
^DD(195.9,15,21,1,0)="These actions take place when the device of the user is not associated"
^DD(195.9,15,21,2,0)="with the file room where the user is logged in."
^DD(195.9,15,"DT")="2870508"
^DD(195.9,21,0)="DOMAIN FILE POINTER^P4.2'^DIC(4.2,^1;1^Q"
^DD(195.9,21,1,0)="^.1"
^DD(195.9,21,1,1,0)="195.9^AE"
^DD(195.9,21,1,1,1)="S ^RTV(195.9,""AE"",$E(X,1,30),DA)="""""
^DD(195.9,21,1,1,2)="K ^RTV(195.9,""AE"",$E(X,1,30),DA)"
^DD(195.9,21,1,1,"%D",0)="^^1^1^2910918^"
^DD(195.9,21,1,1,"%D",1,0)="Used for remote site profile"
^DD(195.9,21,1,1,"DT")="2910918"
^DD(195.9,21,"DT")="2910918"
^DD(195.9,22,0)="REMOTE MAIL GROUP^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(195.9,22,3)="Answer must be 1-30 characters in length."
^DD(195.9,22,"DT")="2910223"
^DD(195.9,23,0)="MAIL ROUTING SYMBOL^F^^1;3^K:$L(X)>10!($L(X)<1) X"
^DD(195.9,23,3)="Answer must be 1-10 characters in length."
^DD(195.9,23,"DT")="2910223"
^DD(195.9,50,0)="RECORDS NEEDED BY LOCATION^195.9001PA^^RECS;0"
^DD(195.9,50,12)="Allows only active record types."
^DD(195.9,50,12.1)="S DIC(""S"")=""I $S('$D(^(""""I"""")):1,'^(""""I""""):1,DT'>^(""""I""""),1:0)"""
^DD(195.9,50,21,0)="^^2^2^2900304^"
^DD(195.9,50,21,1,0)="This defines the record types, volumes and application for records"
^DD(195.9,50,21,2,0)="which are normally needed when a particular borrower requests records."
^DD(195.9,75,0)="WHICH SECURITY KEY IS NEEDED?^FX^^KEY;1^K:$L(X)>40!($L(X)<2) X I $D(X) S DIC(0)=""EM"",DIC=""^DIC(19.1,"",DIC(""S"")=""I $E(^(0),1,2)=""""RT"""""" D ^DIC K DIC S DIC=DIE,X=$P(Y,U,2) K:Y<0 X"
^DD(195.9,75,3)=""
^DD(195.9,75,4)="S DIC(""S"")=""I $E(^(0),1,2)=""""RT"""""",DIC=""^DIC(19.1,"",DIC(0)=""E"" D ^DIC K DIC S DIC=DIE"
^DD(195.9,75,21,0)="^^2^2^2900304^"
^DD(195.9,75,21,1,0)="This defines a security key to be associated with a file area to"
^DD(195.9,75,21,2,0)="limit system actions normally associated only with file areas."
^DD(195.9,75,"DT")="2870519"
^DD(195.9,100,0)="INPUT DEVICES^195.9002A^^DEV;0"
^DD(195.9,100,21,0)="^^2^2^2900304^"
^DD(195.9,100,21,1,0)="This allows the system to know the borrower/file area associated with"
^DD(195.9,100,21,2,0)="the user logged on the system."
^DD(195.9,125,0)="NO. OF RECORDS CHARGED^CJ8,0^^ ; ^S X=$S('$D(D0):"""",D0<0:"""",1:D0) D COUNT^RTDPA3 S X=$J(X,0,0)"
^DD(195.9,125,9)="^"
^DD(195.9,125,9.01)=""
^DD(195.9,125,9.1)="RT RECORDS CHARGED(NUMBER)"
^DD(195.9,125,21,0)="^^1^1^2900306^^"
^DD(195.9,125,21,1,0)="This defines the number of records currently charged to this borrower."
^DD(195.9,125,"DT")="2870306"
^DD(195.9,150,0)="SYNONYMS^195.9003A^^S;0"
^DD(195.9,150,21,0)="^^1^1^2900304^"
^DD(195.9,150,21,1,0)="This allows a particular borrower to be selected by short notation."
^DD(195.9,171,0)="SCHEDULED ADMISSION BORROWER^S^y:YES;n:NO;^ADM;1^Q"
^DD(195.9,171,1,0)="^.1"
^DD(195.9,171,1,1,0)="195.9^AD"
^DD(195.9,171,1,1,1)="S ^RTV(195.9,""AD"",$E(X,1,30),DA)="""""
^DD(195.9,171,1,1,2)="K ^RTV(195.9,""AD"",$E(X,1,30),DA)"
^DD(195.9,171,"DT")="2901218"
^DD(195.9,172,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^ADM;2^Q"
^DD(195.9,172,3)=""
^DD(195.9,172,"DT")="2901218"
^DD(195.9,"B","ACTION IF HOME IS DIFFERENT",15)=""
^DD(195.9,"B","APPLICATION",3)=""
^DD(195.9,"B","ARE RECORDS REQUIRED?",14)=""
^DD(195.9,"B","BORROWING PRIVILEGES",10)=""
^DD(195.9,"B","DOMAIN FILE POINTER",21)=""
^DD(195.9,"B","HOSPITAL LOCATION FILE POINTER",2)=""
^DD(195.9,"B","HOSPITAL LOCATION TYPE",13)=""
^DD(195.9,"B","INPUT DEVICES",100)=""
^DD(195.9,"B","LOCATION/ROOM#",9)=""
^DD(195.9,"B","MAIL ROUTING SYMBOL",23)=""
^DD(195.9,"B","MANAGEMENT REPORT PRINTER",6)=""
^DD(195.9,"B","NAME",.01)=""
^DD(195.9,"B","NO. OF RECORDS CHARGED",125)=""
^DD(195.9,"B","PHONE #",8)=""
^DD(195.9,"B","PHONE/LOCATION COMBO",7)=""
^DD(195.9,"B","RECORD BARCODE PRINTER",4)=""
^DD(195.9,"B","RECORD SORT",11)=""
^DD(195.9,"B","RECORDS NEEDED BY LOCATION",50)=""
^DD(195.9,"B","REMOTE MAIL GROUP",22)=""
^DD(195.9,"B","REQUEST NOTICE PRINTER",5)=""
^DD(195.9,"B","REQUESTS FOR WHICH BORROWER?",12)=""
^DD(195.9,"B","SCHEDULED ADMISSION BORROWER",171)=""
^DD(195.9,"B","SYNONYMS",150)=""
^DD(195.9,"B","TREATING SPECIALTY",172)=""
^DD(195.9,"B","WHICH SECURITY KEY IS NEEDED?",75)=""
^DD(195.9,"GL",0,1,.01)=""
^DD(195.9,"GL",0,2,2)=""
^DD(195.9,"GL",0,3,3)=""
^DD(195.9,"GL",0,4,4)=""
^DD(195.9,"GL",0,5,5)=""
^DD(195.9,"GL",0,6,6)=""
^DD(195.9,"GL",0,7,7)=""
^DD(195.9,"GL",0,8,8)=""
^DD(195.9,"GL",0,9,9)=""
^DD(195.9,"GL",0,10,10)=""
^DD(195.9,"GL",0,11,11)=""
^DD(195.9,"GL",0,12,12)=""
^DD(195.9,"GL",0,13,13)=""
^DD(195.9,"GL",0,14,14)=""
^DD(195.9,"GL",0,15,15)=""
^DD(195.9,"GL",1,1,21)=""
^DD(195.9,"GL",1,2,22)=""
^DD(195.9,"GL",1,3,23)=""
^DD(195.9,"GL","ADM",1,171)=""
^DD(195.9,"GL","ADM",2,172)=""
^DD(195.9,"GL","DEV",0,100)=""
^DD(195.9,"GL","KEY",1,75)=""
^DD(195.9,"GL","RECS",0,50)=""
^DD(195.9,"GL","S",0,150)=""
^DD(195.9,"IX",.01)=""
^DD(195.9,"IX",2)=""
^DD(195.9,"IX",3)=""
^DD(195.9,"IX",4)=""
^DD(195.9,"IX",8)=""
^DD(195.9,"IX",9)=""
^DD(195.9,"IX",21)=""
^DD(195.9,"IX",171)=""
^DD(195.9,"RQ",.01)=""
^DD(195.9,"RQ",3)=""
^DD(195.9,"SB",195.9001,50)=""
^DD(195.9,"SB",195.9002,100)=""
^DD(195.9,"SB",195.9003,150)=""
^DD(195.9001,0)="RECORDS NEEDED BY LOCATION SUB-FIELD^^3^3"
^DD(195.9001,0,"DIK")="RTXB"
^DD(195.9001,0,"NM","RECORDS NEEDED BY LOCATION")=""
^DD(195.9001,0,"UP")="195.9"
^DD(195.9001,.01,0)="RECORD TYPE NEEDED^M*P195.2'^DIC(195.2,^0;1^S DIC(""S"")=""I $P(^(0),U,14)=""""y"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(195.9001,.01,1,0)="^.1"
^DD(195.9001,.01,1,1,0)="^^TRIGGER^195.9001^3"
^DD(195.9001,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,""RECS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.9001,.01,1,1,1.1) X ^DD(195.9001,.01,1,1,1.4)"
^DD(195.9001,.01,1,1,1.1)="S X=DIV X ^DD(195.9001,.01,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)"
^DD(195.9001,.01,1,1,1.4)="S DIH=$S($D(^RTV(195.9,DIV(0),""RECS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9001,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9001,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,""RECS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(195.9001,.01,1,1,2.4)"
^DD(195.9001,.01,1,1,2.4)="S DIH=$S($D(^RTV(195.9,DIV(0),""RECS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=195.9001,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(195.9001,.01,1,1,49.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3)"
^DD(195.9001,.01,1,1,"CREATE VALUE")="INTERNAL(#.01:#3)"
^DD(195.9001,.01,1,1,"DELETE VALUE")="@"
^DD(195.9001,.01,1,1,"FIELD")="APPLICATION"
^DD(195.9001,.01,12)="Allows only 'requestable' record type."
^DD(195.9001,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,14)=""""y"""""""
^DD(195.9001,.01,"DT")="2870203"
^DD(195.9001,2,0)="VOLUMES REQUIRED^RS^a:ALL;l:LAST;n:NONE;^0;2^Q"
^DD(195.9001,2,"DT")="2860929"
^DD(195.9001,3,0)="APPLICATION^P195.1'^DIC(195.1,^0;3^Q"
^DD(195.9001,3,5,1,0)="195.9001^.01^1"
^DD(195.9001,3,9)="^"
^DD(195.9001,3,"DT")="2860929"
^DD(195.9001,"B","APPLICATION",3)=""
^DD(195.9001,"B","RECORD TYPE NEEDED",.01)=""
^DD(195.9001,"B","VOLUMES REQUIRED",2)=""
^DD(195.9001,"GL",0,1,.01)=""
^DD(195.9001,"GL",0,2,2)=""
^DD(195.9001,"GL",0,3,3)=""
^DD(195.9001,"IX",.01)=""
^DD(195.9001,"RQ",2)=""
^DD(195.9002,0)="INPUT DEVICES SUB-FIELD^^.01^1"
^DD(195.9002,0,"DIK")="RTXB"
^DD(195.9002,0,"NM","INPUT DEVICES")=""
^DD(195.9002,0,"UP")="195.9"
^DD(195.9002,.01,0)="INPUT DEVICES^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X D FRCHK^RTUTL5:$D(X)"
^DD(195.9002,.01,1,0)="^.1"
^DD(195.9002,.01,1,1,0)="195.9^ADEV"
^DD(195.9002,.01,1,1,1)="S ^RTV(195.9,""ADEV"",$E(X,1,30),DA(1),DA)="""""
^DD(195.9002,.01,1,1,2)="K ^RTV(195.9,""ADEV"",$E(X,1,30),DA(1),DA)"
^DD(195.9002,.01,3)="Select a CRT located in borrowe/file room area."
^DD(195.9002,.01,4)="D HELP^RTUTL5"
^DD(195.9002,.01,"DT")="2870413"
^DD(195.9002,"B","INPUT DEVICES",.01)=""
^DD(195.9002,"GL",0,1,.01)=""
^DD(195.9002,"IX",.01)=""
^DD(195.9003,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(195.9003,0,"DIK")="RTXB"
^DD(195.9003,0,"NM","SYNONYMS")=""
^DD(195.9003,0,"UP")="195.9"
^DD(195.9003,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X"
^DD(195.9003,.01,1,0)="^.1"
^DD(195.9003,.01,1,1,0)="195.9^S"
^DD(195.9003,.01,1,1,1)="S ^RTV(195.9,""S"",$E(X,1,30),DA(1),DA)="""""
^DD(195.9003,.01,1,1,2)="K ^RTV(195.9,""S"",$E(X,1,30),DA(1),DA)"
^DD(195.9003,.01,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(195.9003,.01,"DT")="2870514"
^DD(195.9003,"B","SYNONYM",.01)=""
^DD(195.9003,"GL",0,1,.01)=""
^DD(195.9003,"IX",.01)=""
^DD(200,0)="FIELD^NL^9000^221"
^DD(200,0,"DDA")="N"
^DD(200,0,"DT")="3000424"
^DD(200,0,"ID",1)="D EN^DDIOL(""   ""_$P(^(0),U,2),"""",""?0"")"
^DD(200,0,"ID",28)="D:$D(^(5)) EN^DDIOL(""   ""_$P(^(5),U,2),"""",""?0"")"
^DD(200,0,"ID","W8")="D:$P(^(0),U,9) EN^DDIOL(""   ""_$$EXTERNAL^DILFD(200,8,"""",$P(^(0),U,9)),"""",""?0"")"
^DD(200,0,"IX","A",200,2)=""
^DD(200,0,"IX","A16",200,8980.16)=""
^DD(200,0,"IX","AB",200.051,.01)=""
^DD(200,0,"IX","AB2",200,200.09)=""
^DD(200,0,"IX","AC",200,14.9)=""
^DD(200,0,"IX","ACSW",200,654.3)=""
^DD(200,0,"IX","AD",200.03,.01)=""
^DD(200,0,"IX","AE",200,.01)=""
^DD(200,0,"IX","AF",200,201)=""
^DD(200,0,"IX","AFOF",200.032,.01)=""
^DD(200,0,"IX","AG",200,.01)=""
^DD(200,0,"IX","AH",200.02,.01)=""
^DD(200,0,"IX","AI",200,201)=""
^DD(200,0,"IX","AJ",200,9)=""
^DD(200,0,"IX","AK",200.051,.01)=""
^DD(200,0,"IX","ANPI",200,41.99)=""
^DD(200,0,"IX","AOA",200.03,.01)=""
^DD(200,0,"IX","AOAA",200,12.5)=""
^DD(200,0,"IX","AOB",200.03,2)=""
^DD(200,0,"IX","AOLD",200,2)=""
^DD(200,0,"IX","AP",200,201)=""
^DD(200,0,"IX","ARA",200,11.7)=""
^DD(200,0,"IX","ASWB",200,654)=""
^DD(200,0,"IX","ASWC",200,654.1)=""
^DD(200,0,"IX","ASWD",200,654.2)=""
^DD(200,0,"IX","ASWE",200,654.15)=""
^DD(200,0,"IX","ASX",200,.01)=""
^DD(200,0,"IX","AVPID",200,9000)=""
^DD(200,0,"IX","AXQA",200.194,.02)=""
^DD(200,0,"IX","AXQAN",200.194,.02)=""
^DD(200,0,"IX","BB",200.04,.01)=""
^DD(200,0,"IX","BS",200,9)=""
^DD(200,0,"IX","BS5",200,.01)=""
^DD(200,0,"IX","BS55",200,9)=""
^DD(200,0,"IX","C",200,1)=""
^DD(200,0,"IX","D",200,13)=""
^DD(200,0,"IX","E",200,29)=""
^DD(200,0,"IX","PS1",200,53.2)=""
^DD(200,0,"IX","PS2",200,53.3)=""
^DD(200,0,"IX","SSN",200,9)=""
^DD(200,0,"IX","VOLD",200,11)=""
^DD(200,0,"NM","NEW PERSON")=""
^DD(200,0,"PT",.46,5)=""
^DD(200,0,"PT",.6,.04)=""
^DD(200,0,"PT",1,20)=""
^DD(200,0,"PT",1.1,.04)=""
^DD(200,0,"PT",1.11,5)=""
^DD(200,0,"PT",1.11,8)=""
^DD(200,0,"PT",1.11,9)=""
^DD(200,0,"PT",1.11,15)=""
^DD(200,0,"PT",2,.096)=""
^DD(200,0,"PT",2,.104)=""
^DD(200,0,"PT",2,.1041)=""
^DD(200,0,"PT",2,.122)=""
^DD(200,0,"PT",2,.352)=""
^DD(200,0,"PT",2,.355)=""
^DD(200,0,"PT",2,.3616)=""
^DD(200,0,"PT",2,404.01)=""
^DD(200,0,"PT",2,1100.02)=""
^DD(200,0,"PT",2,1100.04)=""
^DD(200,0,"PT",2.101,4)=""
^DD(200,0,"PT",2.101,9)=""
^DD(200,0,"PT",2.312,1.02)=""
^DD(200,0,"PT",2.312,1.04)=""
^DD(200,0,"PT",2.312,1.06)=""
^DD(200,0,"PT",2.98,14)=""
^DD(200,0,"PT",2.98,19)=""
^DD(200,0,"PT",3.05,5)=""
^DD(200,0,"PT",3.07,.01)=""
^DD(200,0,"PT",3.081,.01)=""
^DD(200,0,"PT",3.51,4)=""
^DD(200,0,"PT",3.5131,.01)=""
^DD(200,0,"PT",3.7,.01)=""
^DD(200,0,"PT",3.7,3.2)=""
^DD(200,0,"PT",3.703,.01)=""
^DD(200,0,"PT",3.73,1)=""
^DD(200,0,"PT",3.8,5)=""
^DD(200,0,"PT",3.8,5.1)=""
^DD(200,0,"PT",3.802,.01)=""
^DD(200,0,"PT",3.81,.01)=""
^DD(200,0,"PT",3.91,8.01)=""
^DD(200,0,"PT",3.914,2)=""
^DD(200,0,"PT",4.2995,2)=""
^DD(200,0,"PT",4.31,2)=""
^DD(200,0,"PT",9.2,6)=""
^DD(200,0,"PT",9.24,.01)=""
^DD(200,0,"PT",9.49,3)=""
^DD(200,0,"PT",9.4901,.03)=""
^DD(200,0,"PT",9.7,9)=""
^DD(200,0,"PT",9.823,3)=""
^DD(200,0,"PT",9.9,13)=""
^DD(200,0,"PT",14.4,3)=""
^DD(200,0,"PT",15,.01)=""
^DD(200,0,"PT",15,.02)=""
^DD(200,0,"PT",15,.09)=""
^DD(200,0,"PT",15,.11)=""
^DD(200,0,"PT",15,.12)=""
^DD(200,0,"PT",15.02,.03)=""
^DD(200,0,"PT",15.121,.01)=""
^DD(200,0,"PT",18.04,.04)=""
^DD(200,0,"PT",19,3.6)=""
^DD(200,0,"PT",19.081,1)=""
^DD(200,0,"PT",19.2,11)=""
^DD(200,0,"PT",26.112,.01)=""
^DD(200,0,"PT",26.12,.03)=""
^DD(200,0,"PT",26.14,.04)=""
^DD(200,0,"PT",26.14,.05)=""
^DD(200,0,"PT",26.152,.01)=""
^DD(200,0,"PT",27.11,75.02)=""
^DD(200,0,"PT",27.12,.08)=""
^DD(200,0,"PT",28.11,.08)=""
^DD(200,0,"PT",28.11,1.03)=""
^DD(200,0,"PT",28.11,2.03)=""
^DD(200,0,"PT",29.11,4)=""
^DD(200,0,"PT",29.11,5)=""
^DD(200,0,"PT",38.1,3)=""
^DD(200,0,"PT",38.11,2)=""
^DD(200,0,"PT",38.5,3)=""
^DD(200,0,"PT",38.5,5)=""
^DD(200,0,"PT",39.4,.04)=""
^DD(200,0,"PT",40.8,26.03)=""
^DD(200,0,"PT",41.1,5)=""
^DD(200,0,"PT",41.1,11)=""
^DD(200,0,"PT",41.1,14)=""
^DD(200,0,"PT",41.41,2)=""
^DD(200,0,"PT",41.43,2)=""
^DD(200,0,"PT",42.61,52)=""
^DD(200,0,"PT",42.702,99.1)=""
^DD(200,0,"PT",43,603)=""
^DD(200,0,"PT",43,720)=""
^DD(200,0,"PT",43,907)=""
^DD(200,0,"PT",43.5,.07)=""
^DD(200,0,"PT",44,16)=""
^DD(200,0,"PT",44.003,7)=""
^DD(200,0,"PT",44.003,302)=""
^DD(200,0,"PT",44.003,304)=""
^DD(200,0,"PT",44.04,.01)=""
^DD(200,0,"PT",44.1,.01)=""
^DD(200,0,"PT",45,7)=""
^DD(200,0,"PT",45,79.1)=""
^DD(200,0,"PT",45.02,24)=""
^DD(200,0,"PT",45.03,.01)=""
^DD(200,0,"PT",45.06,.02)=""
^DD(200,0,"PT",45.06,.03)=""
^DD(200,0,"PT",45.5,2)=""
^DD(200,0,"PT",45.62,.02)=""
^DD(200,0,"PT",45.62,.05)=""
^DD(200,0,"PT",45.701,.01)=""
^DD(200,0,"PT",45.84,3)=""
^DD(200,0,"PT",45.84,5)=""
^DD(200,0,"PT",45.87,.02)=""
^DD(200,0,"PT",45.9,82)=""
^DD(200,0,"PT",45.9,84)=""
^DD(200,0,"PT",45.9001,1)=""
^DD(200,0,"PT",46,.18)=""
^DD(200,0,"PT",46.1,1.2)=""
^DD(200,0,"PT",49,2)=""
^DD(200,0,"PT",49,4)=""
^DD(200,0,"PT",49,16000)=""
^DD(200,0,"PT",50.0214,2)=""
^DD(200,0,"PT",50.0731,4)=""
^DD(200,0,"PT",50.0731,5)=""
^DD(200,0,"PT",50.0731,9)=""
^DD(200,0,"PT",50.07331,.01)=""
^DD(200,0,"PT",50.612,7)=""
^DD(200,0,"PT",50.612,9)=""
^DD(200,0,"PT",50.807,.01)=""
^DD(200,0,"PT",50.9001,.01)=""
^DD(200,0,"PT",50.9004,.01)=""
^DD(200,0,"PT",50.901,.01)=""
^DD(200,0,"PT",52,4)=""
^DD(200,0,"PT",52,16)=""
^DD(200,0,"PT",52,23)=""
^DD(200,0,"PT",52,38)=""
^DD(200,0,"PT",52,38.1)=""
^DD(200,0,"PT",52,38.2)=""
^DD(200,0,"PT",52,104)=""
^DD(200,0,"PT",52,109)=""
^DD(200,0,"PT",52.0107,2)=""
^DD(200,0,"PT",52.032,3)=""
^DD(200,0,"PT",52.1,4)=""
^DD(200,0,"PT",52.1,6)=""
^DD(200,0,"PT",52.1,15)=""
^DD(200,0,"PT",52.1,19)=""
^DD(200,0,"PT",52.1,20)=""
^DD(200,0,"PT",52.2,.05)=""
^DD(200,0,"PT",52.2,.07)=""
^DD(200,0,"PT",52.2,6)=""
^DD(200,0,"PT",52.2,10)=""
^DD(200,0,"PT",52.2,11)=""
^DD(200,0,"PT",52.25,4)=""
^DD(200,0,"PT",52.25,11)=""
^DD(200,0,"PT",52.2551,1)=""
^DD(200,0,"PT",52.3,.03)=""
^DD(200,0,"PT",52.4,2)=""
^DD(200,0,"PT",52.41,4)=""
^DD(200,0,"PT",52.41,5)=""
^DD(200,0,"PT",52.5,5)=""
^DD(200,0,"PT",52.51,4)=""
^DD(200,0,"PT",52.52,2)=""
^DD(200,0,"PT",52.52,3)=""
^DD(200,0,"PT",52.8551,.01)=""
^DD(200,0,"PT",53.1,1)=""
^DD(200,0,"PT",53.1,15)=""
^DD(200,0,"PT",53.1,16)=""
^DD(200,0,"PT",53.1,18)=""
^DD(200,0,"PT",53.1,20)=""
^DD(200,0,"PT",53.1,22)=""
^DD(200,0,"PT",53.1,31)=""
^DD(200,0,"PT",53.1,51)=""
^DD(200,0,"PT",53.1114,1)=""
^DD(200,0,"PT",53.1114,2)=""
^DD(200,0,"PT",53.1119,1)=""
^DD(200,0,"PT",53.4,.01)=""
^DD(200,0,"PT",53.44,.01)=""
^DD(200,0,"PT",53.45,.01)=""
^DD(200,0,"PT",53.68,.03)=""
^DD(200,0,"PT",53.68,.22)=""
^DD(200,0,"PT",53.69,.03)=""
^DD(200,0,"PT",53.78,.03)=""
^DD(200,0,"PT",53.79,.05)=""
^DD(200,0,"PT",53.79,.07)=""
^DD(200,0,"PT",53.79,.23)=""
^DD(200,0,"PT",53.793,.02)=""
^DD(200,0,"PT",53.799,.02)=""
^DD(200,0,"PT",55,57)=""
^DD(200,0,"PT",55,62.02)=""
^DD(200,0,"PT",55.01,.06)=""
^DD(200,0,"PT",55.01,16)=""
^DD(200,0,"PT",55.01,135)=""
^DD(200,0,"PT",55.01,140)=""
^DD(200,0,"PT",55.0108,3)=""
^DD(200,0,"PT",55.04,.06)=""
^DD(200,0,"PT",55.05,12)=""
^DD(200,0,"PT",55.051,1)=""
^DD(200,0,"PT",55.06,1)=""
^DD(200,0,"PT",55.06,16)=""
^DD(200,0,"PT",55.06,18)=""
^DD(200,0,"PT",55.06,20)=""
^DD(200,0,"PT",55.06,22)=""
^DD(200,0,"PT",55.06,44)=""
^DD(200,0,"PT",55.06,47)=""
^DD(200,0,"PT",55.06,57)=""
^DD(200,0,"PT",55.06,61)=""
^DD(200,0,"PT",55.0611,.06)=""
^DD(200,0,"PT",55.0611,.08)=""
^DD(200,0,"PT",55.1138,1)=""
^DD(200,0,"PT",55.1138,2)=""
^DD(200,0,"PT",55.6114,1)=""
^DD(200,0,"PT",55.6114,2)=""
^DD(200,0,"PT",57.62,.01)=""
^DD(200,0,"PT",58.19,1)=""
^DD(200,0,"PT",58.28,2)=""
^DD(200,0,"PT",58.28,4)=""
^DD(200,0,"PT",58.800118,3)=""
^DD(200,0,"PT",58.800118,4)=""
^DD(200,0,"PT",58.800118,6)=""
^DD(200,0,"PT",58.800118,23)=""
^DD(200,0,"PT",58.81,6)=""
^DD(200,0,"PT",58.81,18)=""
^DD(200,0,"PT",58.81,20)=""
^DD(200,0,"PT",58.81,23)=""
^DD(200,0,"PT",58.81,25)=""
^DD(200,0,"PT",58.81,25.5)=""
^DD(200,0,"PT",58.81,29)=""
^DD(200,0,"PT",58.81,30)=""
^DD(200,0,"PT",58.81,32)=""
^DD(200,0,"PT",58.81,33)=""
^DD(200,0,"PT",58.81,49)=""
^DD(200,0,"PT",58.81,56)=""
^DD(200,0,"PT",58.81,63.6)=""
^DD(200,0,"PT",58.81,65)=""
^DD(200,0,"PT",58.81,68)=""
^DD(200,0,"PT",58.81,74)=""
^DD(200,0,"PT",58.81,78)=""
^DD(200,0,"PT",58.81,80)=""
^DD(200,0,"PT",58.81,81)=""
^DD(200,0,"PT",58.81,83)=""
^DD(200,0,"PT",58.81,84)=""
^DD(200,0,"PT",58.8112,11)=""
^DD(200,0,"PT",58.8112,12)=""
^DD(200,0,"PT",58.81125,6)=""
^DD(200,0,"PT",58.81125,8)=""
^DD(200,0,"PT",58.811259,4)=""
^DD(200,0,"PT",58.811259,8)=""
^DD(200,0,"PT",58.85,12)=""
^DD(200,0,"PT",58.85,14)=""
^DD(200,0,"PT",58.85,17)=""
^DD(200,0,"PT",58.85,20)=""
^DD(200,0,"PT",58.86,3)=""
^DD(200,0,"PT",58.86,4)=""
^DD(200,0,"PT",58.86,9)=""
^DD(200,0,"PT",58.86,16)=""
^DD(200,0,"PT",58.87,2)=""
^DD(200,0,"PT",58.87,6)=""
^DD(200,0,"PT",58.87,9)=""
^DD(200,0,"PT",58.89,3)=""
^DD(200,0,"PT",59.7,20.3)=""
^DD(200,0,"PT",59.7,63.53)=""
^DD(200,0,"PT",59.7,70.1)=""
^DD(200,0,"PT",59.7,94)=""
^DD(200,0,"PT",62.85,.02)=""
^DD(200,0,"PT",63,.101)=""
^DD(200,0,"PT",63,12.1)=""
^DD(200,0,"PT",63,13.5)=""
^DD(200,0,"PT",63,13.6)=""
^DD(200,0,"PT",63,13.8)=""
^DD(200,0,"PT",63,14.8)=""
^DD(200,0,"PT",63,102.1)=""
^DD(200,0,"PT",63.01,.04)=""
^DD(200,0,"PT",63.01,.07)=""
^DD(200,0,"PT",63.01,.09)=""
^DD(200,0,"PT",63.01,10.2)=""
^DD(200,0,"PT",63.01,11.2)=""
^DD(200,0,"PT",63.017,.04)=""
^DD(200,0,"PT",63.0171,.03)=""
^DD(200,0,"PT",63.02,.02)=""
^DD(200,0,"PT",63.02,.021)=""
^DD(200,0,"PT",63.02,.07)=""
^DD(200,0,"PT",63.02,.13)=""
^DD(200,0,"PT",63.02,.171)=""
^DD(200,0,"PT",63.025,.02)=""
^DD(200,0,"PT",63.0272,.02)=""
^DD(200,0,"PT",63.04,.04)=""
^DD(200,0,"PT",63.04,.1)=""
^DD(200,0,"PT",63.041,1)=""
^DD(200,0,"PT",63.05,.04)=""
^DD(200,0,"PT",63.05,.07)=""
^DD(200,0,"PT",63.05,11.55)=""
^DD(200,0,"PT",63.05,11.56)=""
^DD(200,0,"PT",63.05,15.5)=""
^DD(200,0,"PT",63.05,19.5)=""
^DD(200,0,"PT",63.05,25.5)=""
^DD(200,0,"PT",63.05,35)=""
^DD(200,0,"PT",63.08,.02)=""
^DD(200,0,"PT",63.08,.021)=""
^DD(200,0,"PT",63.08,.07)=""
^DD(200,0,"PT",63.08,.13)=""
^DD(200,0,"PT",63.08,.171)=""
^DD(200,0,"PT",63.084,.08)=""
^DD(200,0,"PT",63.085,.02)=""
^DD(200,0,"PT",63.086,.02)=""
^DD(200,0,"PT",63.087,.02)=""
^DD(200,0,"PT",63.09,.02)=""
^DD(200,0,"PT",63.09,.021)=""
^DD(200,0,"PT",63.09,.07)=""
^DD(200,0,"PT",63.09,.13)=""
^DD(200,0,"PT",63.09,.171)=""
^DD(200,0,"PT",63.095,.02)=""
^DD(200,0,"PT",63.097,.02)=""
^DD(200,0,"PT",63.2072,.02)=""
^DD(200,0,"PT",63.2072,.03)=""
^DD(200,0,"PT",63.242,.02)=""
^DD(200,0,"PT",63.3242,.02)=""
^DD(200,0,"PT",63.3242,.03)=""
^DD(200,0,"PT",63.8172,.02)=""
^DD(200,0,"PT",63.8172,.03)=""
^DD(200,0,"PT",63.84,.02)=""
^DD(200,0,"PT",63.9072,.02)=""
^DD(200,0,"PT",63.9072,.03)=""
^DD(200,0,"PT",63.94,.02)=""
^DD(200,0,"PT",63.999904,.04)=""
^DD(200,0,"PT",63.999904,.1)=""
^DD(200,0,"PT",63.9999041,1)=""
^DD(200,0,"PT",64.03,1)=""
^DD(200,0,"PT",64.036,12)=""
^DD(200,0,"PT",64.1111,9)=""
^DD(200,0,"PT",64.1111,15)=""
^DD(200,0,"PT",64.1111,17)=""
^DD(200,0,"PT",64.1111,23)=""
^DD(200,0,"PT",64.317,4)=""
^DD(200,0,"PT",64.369,4)=""
^DD(200,0,"PT",65,.09)=""
^DD(200,0,"PT",65,4.3)=""
^DD(200,0,"PT",65,6.6)=""
^DD(200,0,"PT",65,10.2)=""
^DD(200,0,"PT",65,11.2)=""
^DD(200,0,"PT",65.02,.05)=""
^DD(200,0,"PT",65.02,.08)=""
^DD(200,0,"PT",65.03,.03)=""
^DD(200,0,"PT",65.15,.04)=""
^DD(200,0,"PT",65.15,.07)=""
^DD(200,0,"PT",65.31,.02)=""
^DD(200,0,"PT",65.5,.09)=""
^DD(200,0,"PT",65.5,.12)=""
^DD(200,0,"PT",65.54,.011)=""
^DD(200,0,"PT",65.54,4.8)=""
^DD(200,0,"PT",65.54,10.2)=""
^DD(200,0,"PT",65.54,10.5)=""
^DD(200,0,"PT",65.54,11.2)=""
^DD(200,0,"PT",65.54,11.5)=""
^DD(200,0,"PT",65.54,12.2)=""
^DD(200,0,"PT",65.54,13.2)=""
^DD(200,0,"PT",65.54,14.2)=""
^DD(200,0,"PT",65.54,15.2)=""
^DD(200,0,"PT",65.54,16.2)=""
^DD(200,0,"PT",65.54,17.2)=""
^DD(200,0,"PT",65.54,18.2)=""
^DD(200,0,"PT",65.54,19.2)=""
^DD(200,0,"PT",65.54,20.2)=""
^DD(200,0,"PT",65.5991,.02)=""
^DD(200,0,"PT",65.61,.03)=""
^DD(200,0,"PT",65.66,.06)=""
^DD(200,0,"PT",65.66,.07)=""
^DD(200,0,"PT",66.21,.07)=""
^DD(200,0,"PT",66.22,.01)=""
^DD(200,0,"PT",67.1,.104)=""
^DD(200,0,"PT",67.2,.104)=""
^DD(200,0,"PT",67.3,.104)=""
^DD(200,0,"PT",67.911,1)=""
^DD(200,0,"PT",68,.1)=""
^DD(200,0,"PT",68.02,6.5)=""
^DD(200,0,"PT",68.02,6.7)=""
^DD(200,0,"PT",68.04,3)=""
^DD(200,0,"PT",68.14,2)=""
^DD(200,0,"PT",68.21,3)=""
^DD(200,0,"PT",69.01,1)=""
^DD(200,0,"PT",69.01,7)=""
^DD(200,0,"PT",69.01,12)=""
^DD(200,0,"PT",69.03,10)=""
^DD(200,0,"PT",69.28,.01)=""
^DD(200,0,"PT",69.31,.04)=""
^DD(200,0,"PT",69.45,.01)=""
^DD(200,0,"PT",69.9,617)=""
^DD(200,0,"PT",70,.06)=""
^DD(200,0,"PT",70.03,12)=""
^DD(200,0,"PT",70.03,14)=""
^DD(200,0,"PT",70.03,15)=""
^DD(200,0,"PT",70.05,3)=""
^DD(200,0,"PT",70.07,3)=""
^DD(200,0,"PT",70.08,3)=""
^DD(200,0,"PT",70.09,.01)=""
^DD(200,0,"PT",70.11,.01)=""
^DD(200,0,"PT",70.12,.01)=""
^DD(200,0,"PT",70.15,4)=""
^DD(200,0,"PT",70.16,3)=""
^DD(200,0,"PT",70.21,3)=""
^DD(200,0,"PT",70.21,6)=""
^DD(200,0,"PT",70.21,9)=""
^DD(200,0,"PT",70.21,10)=""
^DD(200,0,"PT",71.06,3)=""
^DD(200,0,"PT",74,9)=""
^DD(200,0,"PT",74,11)=""
^DD(200,0,"PT",74,15)=""
^DD(200,0,"PT",74,17)=""
^DD(200,0,"PT",74.01,3)=""
^DD(200,0,"PT",74.2,3)=""
^DD(200,0,"PT",74.33,3)=""
^DD(200,0,"PT",74.4,3)=""
^DD(200,0,"PT",74.4,12)=""
^DD(200,0,"PT",75.1,8)=""
^DD(200,0,"PT",75.1,14)=""
^DD(200,0,"PT",75.1,15)=""
^DD(200,0,"PT",75.12,3)=""
^DD(200,0,"PT",79.03,.01)=""
^DD(200,0,"PT",79.13,.01)=""
^DD(200,0,"PT",79.23,3)=""
^DD(200,0,"PT",79.3,.06)=""
^DD(200,0,"PT",90,106)=""
^DD(200,0,"PT",90,109)=""
^DD(200,0,"PT",90.01,29)=""
^DD(200,0,"PT",90.05,2)=""
^DD(200,0,"PT",90.06,2)=""
^DD(200,0,"PT",90.07,2)=""
^DD(200,0,"PT",90.11,2)=""
^DD(200,0,"PT",90.16,2)=""
^DD(200,0,"PT",90.17,2)=""
^DD(200,0,"PT",95.11,5)=""
^DD(200,0,"PT",95.11,7.5)=""
^DD(200,0,"PT",95.11,8)=""
^DD(200,0,"PT",95.11,14)=""
^DD(200,0,"PT",99.02,.01)=""
^DD(200,0,"PT",99.06,.01)=""
^DD(200,0,"PT",99.14,.01)=""
^DD(200,0,"PT",99.17,.01)=""
^DD(200,0,"PT",99.3,.01)=""
^DD(200,0,"PT",99.4,.01)=""
^DD(200,0,"PT",100,1)=""
^DD(200,0,"PT",100,3)=""
^DD(200,0,"PT",100,35)=""
^DD(200,0,"PT",100,62)=""
^DD(200,0,"PT",100,67)=""
^DD(200,0,"PT",100.008,3)=""
^DD(200,0,"PT",100.008,5)=""
^DD(200,0,"PT",100.008,7)=""
^DD(200,0,"PT",100.008,8)=""
^DD(200,0,"PT",100.008,10)=""
^DD(200,0,"PT",100.008,13)=""
^DD(200,0,"PT",100.008,17)=""
^DD(200,0,"PT",100.008,18)=""
^DD(200,0,"PT",100.008,22)=""
^DD(200,0,"PT",100.008,34)=""
^DD(200,0,"PT",100.008,37)=""
^DD(200,0,"PT",100.008,39)=""
^DD(200,0,"PT",100.008,73)=""
^DD(200,0,"PT",100.09,.05)=""
^DD(200,0,"PT",100.2,6)=""
^DD(200,0,"PT",100.21,1.6)=""
^DD(200,0,"PT",100.212,.01)=""
^DD(200,0,"PT",100.213,.01)=""
^DD(200,0,"PT",100.24,.01)=""
^DD(200,0,"PT",100.241,.01)=""
^DD(200,0,"PT",100.25,3)=""
^DD(200,0,"PT",100.4,2)=""
^DD(200,0,"PT",100.512,1)=""
^DD(200,0,"PT",100.681,1)=""
^DD(200,0,"PT",101,5)=""
^DD(200,0,"PT",102.21,5)=""
^DD(200,0,"PT",102.3,2)=""
^DD(200,0,"PT",102.3,7)=""
^DD(200,0,"PT",102.3,9)=""
^DD(200,0,"PT",102.4,2)=""
^DD(200,0,"PT",112.6,.8)=""
^DD(200,0,"PT",115,15)=""
^DD(200,0,"PT",115.011,101)=""
^DD(200,0,"PT",115.012,2)=""
^DD(200,0,"PT",115.012,4)=""
^DD(200,0,"PT",115.016,12)=""
^DD(200,0,"PT",115.016,16)=""
^DD(200,0,"PT",115.016,21.7)=""
^DD(200,0,"PT",115.016,24.5)=""
^DD(200,0,"PT",115.017,4)=""
^DD(200,0,"PT",115.017,5)=""
^DD(200,0,"PT",115.017,10)=""
^DD(200,0,"PT",115.018,9)=""
^DD(200,0,"PT",115.02,10)=""
^DD(200,0,"PT",115.02,16)=""
^DD(200,0,"PT",115.02,18)=""
^DD(200,0,"PT",115.02,20)=""
^DD(200,0,"PT",115.03,4)=""
^DD(200,0,"PT",115.03,6)=""
^DD(200,0,"PT",115.03,9)=""
^DD(200,0,"PT",115.04,10)=""
^DD(200,0,"PT",115.04,12)=""
^DD(200,0,"PT",115.04,15)=""
^DD(200,0,"PT",115.05,4)=""
^DD(200,0,"PT",115.06,3)=""
^DD(200,0,"PT",115.06,6)=""
^DD(200,0,"PT",115.07,2)=""
^DD(200,0,"PT",115.07,41)=""
^DD(200,0,"PT",115.07,43)=""
^DD(200,0,"PT",115.08,4)=""
^DD(200,0,"PT",115.08,6)=""
^DD(200,0,"PT",115.11,3)=""
^DD(200,0,"PT",115.1626,4)=""
^DD(200,0,"PT",115.1626,6)=""
^DD(200,0,"PT",115.1627,2)=""
^DD(200,0,"PT",115.1627,30)=""
^DD(200,0,"PT",115.1627,32)=""
^DD(200,0,"PT",115.7,2)=""
^DD(200,0,"PT",115.7,101)=""
^DD(200,0,"PT",115.7,104)=""
^DD(200,0,"PT",119,.01)=""
^DD(200,0,"PT",119.5,5)=""
^DD(200,0,"PT",119.6,1)=""
^DD(200,0,"PT",119.66,.01)=""
^DD(200,0,"PT",119.8,8)=""
^DD(200,0,"PT",119.9,9)=""
^DD(200,0,"PT",119.9,10)=""
^DD(200,0,"PT",119.9,11)=""
^DD(200,0,"PT",119.9,12)=""
^DD(200,0,"PT",119.9,13)=""
^DD(200,0,"PT",119.9,50)=""
^DD(200,0,"PT",119.9,51)=""
^DD(200,0,"PT",119.9,52)=""
^DD(200,0,"PT",119.9,53)=""
^DD(200,0,"PT",119.9,54)=""
^DD(200,0,"PT",119.9,55)=""
^DD(200,0,"PT",119.9,56)=""
^DD(200,0,"PT",119.9,57)=""
^DD(200,0,"PT",119.9,58)=""
^DD(200,0,"PT",119.9,59)=""
^DD(200,0,"PT",120.5,.06)=""
^DD(200,0,"PT",120.5,3)=""
^DD(200,0,"PT",120.8,5)=""
^DD(200,0,"PT",120.8,21)=""
^DD(200,0,"PT",120.8,24)=""
^DD(200,0,"PT",120.81,2)=""
^DD(200,0,"PT",120.813,1)=""
^DD(200,0,"PT",120.814,1)=""
^DD(200,0,"PT",120.826,1)=""
^DD(200,0,"PT",120.85,.5)=""
^DD(200,0,"PT",120.85,1.2)=""
^DD(200,0,"PT",120.8502,2)=""
^DD(200,0,"PT",120.86,2)=""
^DD(200,0,"PT",123,7)=""
^DD(200,0,"PT",123,10)=""
^DD(200,0,"PT",123.02,3)=""
^DD(200,0,"PT",123.02,4)=""
^DD(200,0,"PT",123.02,7)=""
^DD(200,0,"PT",123.3,129)=""
^DD(200,0,"PT",123.5,5)=""
^DD(200,0,"PT",123.5,123.08)=""
^DD(200,0,"PT",123.5,123.5)=""
^DD(200,0,"PT",123.5,135)=""
^DD(200,0,"PT",123.54,1)=""
^DD(200,0,"PT",123.55,.01)=""
^DD(200,0,"PT",123.555,.01)=""
^DD(200,0,"PT",124.3,3)=""
^DD(200,0,"PT",124.3,5.2)=""
^DD(200,0,"PT",124.313,2)=""
^DD(200,0,"PT",125.8,3)=""
^DD(200,0,"PT",125.8,7)=""
^DD(200,0,"PT",126.01,6)=""
^DD(200,0,"PT",126.02,5)=""
^DD(200,0,"PT",126.03,6)=""
^DD(200,0,"PT",126.03,9)=""
^DD(200,0,"PT",126.313,3)=""
^DD(200,0,"PT",126.316,2)=""
^DD(200,0,"PT",126.41,4)=""
^DD(200,0,"PT",130,.12)=""
^DD(200,0,"PT",130,.14)=""
^DD(200,0,"PT",130,.15)=""
^DD(200,0,"PT",130,.16)=""
^DD(200,0,"PT",130,.164)=""
^DD(200,0,"PT",130,.167)=""
^DD(200,0,"PT",130,.168)=""
^DD(200,0,"PT",130,.18)=""
^DD(200,0,"PT",130,.31)=""
^DD(200,0,"PT",130,.32)=""
^DD(200,0,"PT",130,.33)=""
^DD(200,0,"PT",130,.34)=""
^DD(200,0,"PT",130,.522)=""
^DD(200,0,"PT",130,.525)=""
^DD(200,0,"PT",130,.57)=""
^DD(200,0,"PT",130,.69)=""
^DD(200,0,"PT",130,1.099)=""
^DD(200,0,"PT",130,4)=""
^DD(200,0,"PT",130,5)=""
^DD(200,0,"PT",130,47)=""
^DD(200,0,"PT",130,48)=""
^DD(200,0,"PT",130,61)=""
^DD(200,0,"PT",130,63)=""
^DD(200,0,"PT",130,69)=""
^DD(200,0,"PT",130,70)=""
^DD(200,0,"PT",130,123)=""
^DD(200,0,"PT",130,124)=""
^DD(200,0,"PT",130.01,10)=""
^DD(200,0,"PT",130.0129,3)=""
^DD(200,0,"PT",130.013,1)=""
^DD(200,0,"PT",130.02,2)=""
^DD(200,0,"PT",130.03,6)=""
^DD(200,0,"PT",130.06,35)=""
^DD(200,0,"PT",130.06,39)=""
^DD(200,0,"PT",130.23,.01)=""
^DD(200,0,"PT",130.28,.01)=""
^DD(200,0,"PT",130.31,1)=""
^DD(200,0,"PT",130.34,2)=""
^DD(200,0,"PT",130.34,3)=""
^DD(200,0,"PT",130.36,.01)=""
^DD(200,0,"PT",130.39,2)=""
^DD(200,0,"PT",130.41,3)=""
^DD(200,0,"PT",131.7,2)=""
^DD(200,0,"PT",131.704,2)=""
^DD(200,0,"PT",133.361,.01)=""
^DD(200,0,"PT",133.8013,6)=""
^DD(200,0,"PT",136.011,.01)=""
^DD(200,0,"PT",142,.06)=""
^DD(200,0,"PT",142.5,.17)=""
^DD(200,0,"PT",142.98,.01)=""
^DD(200,0,"PT",142.99,.06)=""
^DD(200,0,"PT",154,.06)=""
^DD(200,0,"PT",154,8.1)=""
^DD(200,0,"PT",154,8.2)=""
^DD(200,0,"PT",154.101,.01)=""
^DD(200,0,"PT",154.9101,.01)=""
^DD(200,0,"PT",160.04,11)=""
^DD(200,0,"PT",160.18,.01)=""
^DD(200,0,"PT",161.01,100)=""
^DD(200,0,"PT",161.02,100)=""
^DD(200,0,"PT",161.24,.04)=""
^DD(200,0,"PT",161.5,18)=""
^DD(200,0,"PT",161.517,2)=""
^DD(200,0,"PT",161.7,4)=""
^DD(200,0,"PT",161.7,6)=""
^DD(200,0,"PT",161.7,14)=""
^DD(200,0,"PT",161.831,3)=""
^DD(200,0,"PT",162.03,6)=""
^DD(200,0,"PT",162.03,25)=""
^DD(200,0,"PT",162.1,2)=""
^DD(200,0,"PT",162.11,11)=""
^DD(200,0,"PT",162.11,24)=""
^DD(200,0,"PT",162.2,7)=""
^DD(200,0,"PT",162.2,10)=""
^DD(200,0,"PT",162.2,13)=""
^DD(200,0,"PT",162.4,.013)=""
^DD(200,0,"PT",162.4,8)=""
^DD(200,0,"PT",162.5,17)=""
^DD(200,0,"PT",162.7,23)=""
^DD(200,0,"PT",162.7,27)=""
^DD(200,0,"PT",162.701,.02)=""
^DD(200,0,"PT",162.8,.06)=""
^DD(200,0,"PT",162.8,.07)=""
^DD(200,0,"PT",163.7,7)=""
^DD(200,0,"PT",165,100)=""
^DD(200,0,"PT",165.5,64.1)=""
^DD(200,0,"PT",165.5,92)=""
^DD(200,0,"PT",165.5,199)=""
^DD(200,0,"PT",183,.01)=""
^DD(200,0,"PT",183.21,1)=""
^DD(200,0,"PT",183.21,3)=""
^DD(200,0,"PT",183.32,.01)=""
^DD(200,0,"PT",183.41,.01)=""
^DD(200,0,"PT",190,107)=""
^DD(200,0,"PT",190.1,3)=""
^DD(200,0,"PT",190.1,8)=""
^DD(200,0,"PT",190.2,3)=""
^DD(200,0,"PT",190.2,8)=""
^DD(200,0,"PT",190.2,9)=""
^DD(200,0,"PT",190.3,3)=""
^DD(200,0,"PT",190.3,7)=""
^DD(200,0,"PT",190.3,10)=""
^DD(200,0,"PT",194.2,3)=""
^DD(200,0,"PT",194.2,8)=""
^DD(200,0,"PT",195.9,.01)=""
^DD(200,0,"PT",200,19)=""
^DD(200,0,"PT",200,31)=""
^DD(200,0,"PT",200,53.8)=""
^DD(200,0,"PT",200,53.96)=""
^DD(200,0,"PT",200,654.1)=""
^DD(200,0,"PT",200,654.3)=""
^DD(200,0,"PT",200.051,1)=""
^DD(200,0,"PT",200.052,1)=""
^DD(200,0,"PT",200.19,1)=""
^DD(200,0,"PT",210,.01)=""
^DD(200,0,"PT",210.03,1.6)=""
^DD(200,0,"PT",210.18,1)=""
^DD(200,0,"PT",211.82,.02)=""
^DD(200,0,"PT",213.4,10)=""
^DD(200,0,"PT",213.52,.01)=""
^DD(200,0,"PT",214.6,4)=""
^DD(200,0,"PT",214.7,3)=""
^DD(200,0,"PT",216.82,1)=""
^DD(200,0,"PT",216.83,1)=""
^DD(200,0,"PT",216.84,2)=""
^DD(200,0,"PT",217,1)=""
^DD(200,0,"PT",220.5,.01)=""
^DD(200,0,"PT",221,60)=""
^DD(200,0,"PT",222,60)=""
^DD(200,0,"PT",223,60)=""
^DD(200,0,"PT",224,60)=""
^DD(200,0,"PT",226,60)=""
^DD(200,0,"PT",301.61,1.02)=""
^DD(200,0,"PT",301.61,1.04)=""
^DD(200,0,"PT",301.62,.04)=""
^DD(200,0,"PT",301.7,2)=""
^DD(200,0,"PT",301.7,5)=""
^DD(200,0,"PT",340,.01)=""
^DD(200,0,"PT",341,.08)=""
^DD(200,0,"PT",342,3.04)=""
^DD(200,0,"PT",342.31,.01)=""
^DD(200,0,"PT",344,.02)=""
^DD(200,0,"PT",344,.07)=""
^DD(200,0,"PT",344,.11)=""
^DD(200,0,"PT",344.01,.12)=""
^DD(200,0,"PT",344.01,.14)=""
^DD(200,0,"PT",344.1,.06)=""
^DD(200,0,"PT",344.1,.08)=""
^DD(200,0,"PT",344.1,.1)=""
^DD(200,0,"PT",344.4,20.02)=""
^DD(200,0,"PT",344.491,.12)=""
^DD(200,0,"PT",344.491,2.01)=""
^DD(200,0,"PT",344.491,2.03)=""
^DD(200,0,"PT",344.4914,.02)=""
^DD(200,0,"PT",344.492,.01)=""
^DD(200,0,"PT",344.493,.04)=""
^DD(200,0,"PT",349.11,.01)=""
^DD(200,0,"PT",350,11)=""
^DD(200,0,"PT",350,13)=""
^DD(200,0,"PT",350.6,1.03)=""
^DD(200,0,"PT",350.6,2.03)=""
^DD(200,0,"PT",350.6,3.03)=""
^DD(200,0,"PT",350.9,1.08)=""
^DD(200,0,"PT",350.9,51.16)=""
^DD(200,0,"PT",350.9,51.24)=""
^DD(200,0,"PT",351,11)=""
^DD(200,0,"PT",351,13)=""
^DD(200,0,"PT",351.1,.03)=""
^DD(200,0,"PT",351.1,.05)=""
^DD(200,0,"PT",351.2,2.01)=""
^DD(200,0,"PT",351.2,2.03)=""
^DD(200,0,"PT",351.5,6.02)=""
^DD(200,0,"PT",351.73,.01)=""
^DD(200,0,"PT",351.73,.03)=""
^DD(200,0,"PT",351.731,.04)=""
^DD(200,0,"PT",351.81,4.01)=""
^DD(200,0,"PT",351.81,4.03)=""
^DD(200,0,"PT",351.9,.05)=""
^DD(200,0,"PT",351.9,.07)=""
^DD(200,0,"PT",351.9,.09)=""
^DD(200,0,"PT",351.9,.11)=""
^DD(200,0,"PT",351.9,.12)=""
^DD(200,0,"PT",351.9,.14)=""
^DD(200,0,"PT",354.1,.07)=""
^DD(200,0,"PT",354.4,.03)=""
^DD(200,0,"PT",354.5002,.01)=""
^DD(200,0,"PT",354.71,.14)=""
^DD(200,0,"PT",354.71,.16)=""
^DD(200,0,"PT",355.3,1.02)=""
^DD(200,0,"PT",355.3,1.04)=""
^DD(200,0,"PT",355.3,1.06)=""
^DD(200,0,"PT",355.32,1.02)=""
^DD(200,0,"PT",355.32,1.04)=""
^DD(200,0,"PT",355.33,.02)=""
^DD(200,0,"PT",355.33,.06)=""
^DD(200,0,"PT",355.33,.11)=""
^DD(200,0,"PT",355.4,1.02)=""
^DD(200,0,"PT",355.4,1.04)=""
^DD(200,0,"PT",355.4,1.06)=""
^DD(200,0,"PT",355.5,1.02)=""
^DD(200,0,"PT",355.5,1.04)=""
^DD(200,0,"PT",355.5,1.06)=""
^DD(200,0,"PT",355.9,.01)=""
^DD(200,0,"PT",355.9301,.04)=""
^DD(200,0,"PT",356,1.02)=""
^DD(200,0,"PT",356,1.04)=""
^DD(200,0,"PT",356,1.05)=""
^DD(200,0,"PT",356,1.06)=""
^DD(200,0,"PT",356,2.01)=""
^DD(200,0,"PT",356,2.02)=""
^DD(200,0,"PT",356,2.03)=""
^DD(200,0,"PT",356.1,1.02)=""
^DD(200,0,"PT",356.1,1.04)=""
^DD(200,0,"PT",356.1,1.06)=""
^DD(200,0,"PT",356.2,1.02)=""
^DD(200,0,"PT",356.2,1.04)=""
^DD(200,0,"PT",356.94,.03)=""
^DD(200,0,"PT",357.96,.16)=""
^DD(200,0,"PT",357.963,.05)=""
^DD(200,0,"PT",359.3,.13)=""
^DD(200,0,"PT",359.3,1.03)=""
^DD(200,0,"PT",361.02,.02)=""
^DD(200,0,"PT",361.1,.18)=""
^DD(200,0,"PT",361.1,100.03)=""
^DD(200,0,"PT",361.121,.02)=""
^DD(200,0,"PT",361.3,.03)=""
^DD(200,0,"PT",361.3,.05)=""
^DD(200,0,"PT",361.41,.03)=""
^DD(200,0,"PT",364.1,1.02)=""
^DD(200,0,"PT",364.1,1.04)=""
^DD(200,0,"PT",364.2,1.04)=""
^DD(200,0,"PT",364.4,10.01)=""
^DD(200,0,"PT",364.4,10.03)=""
^DD(200,0,"PT",365.11,.04)=""
^DD(200,0,"PT",365.11,.06)=""
^DD(200,0,"PT",365.121,.04)=""
^DD(200,0,"PT",366.013,.04)=""
^DD(200,0,"PT",366.023,.04)=""
^DD(200,0,"PT",366.033,.04)=""
^DD(200,0,"PT",366.141,.06)=""
^DD(200,0,"PT",366.141,.211)=""
^DD(200,0,"PT",366.141,.31)=""
^DD(200,0,"PT",372.01,.03)=""
^DD(200,0,"PT",373,3.11)=""
^DD(200,0,"PT",373,3.12)=""
^DD(200,0,"PT",373,6.2)=""
^DD(200,0,"PT",373,6.21)=""
^DD(200,0,"PT",375,1.07)=""
^DD(200,0,"PT",375,1.09)=""
^DD(200,0,"PT",375,1.17)=""
^DD(200,0,"PT",375,1.52)=""
^DD(200,0,"PT",375,3.11)=""
^DD(200,0,"PT",391.12,.02)=""
^DD(200,0,"PT",391.12,.04)=""
^DD(200,0,"PT",391.31,4)=""
^DD(200,0,"PT",391.317,.03)=""
^DD(200,0,"PT",391.71,.09)=""
^DD(200,0,"PT",391.98,12)=""
^DD(200,0,"PT",392,12)=""
^DD(200,0,"PT",392,41)=""
^DD(200,0,"PT",392.2,5)=""
^DD(200,0,"PT",393,.09)=""
^DD(200,0,"PT",393,.1)=""
^DD(200,0,"PT",393,.12)=""
^DD(200,0,"PT",393,.14)=""
^DD(200,0,"PT",393,10.02)=""
^DD(200,0,"PT",393,10.04)=""
^DD(200,0,"PT",393,10.06)=""
^DD(200,0,"PT",393,10.08)=""
^DD(200,0,"PT",394.6171,.01)=""
^DD(200,0,"PT",394.82,10)=""
^DD(200,0,"PT",394.83,.02)=""
^DD(200,0,"PT",394.831,10)=""
^DD(200,0,"PT",394.84,.03)=""
^DD(200,0,"PT",394.841,.02)=""
^DD(200,0,"PT",394.87,.02)=""
^DD(200,0,"PT",395.51,.01)=""
^DD(200,0,"PT",395.7,1)=""
^DD(200,0,"PT",395.7,5)=""
^DD(200,0,"PT",396,6.84)=""
^DD(200,0,"PT",396.17,2)=""
^DD(200,0,"PT",396.17,10)=""
^DD(200,0,"PT",396.1714,1)=""
^DD(200,0,"PT",396.2,5)=""
^DD(200,0,"PT",396.3,3)=""
^DD(200,0,"PT",396.3,14)=""
^DD(200,0,"PT",396.3,16)=""
^DD(200,0,"PT",396.3,20)=""
^DD(200,0,"PT",396.3,23.4)=""
^DD(200,0,"PT",396.3,23.6)=""
^DD(200,0,"PT",396.327,2.3)=""
^DD(200,0,"PT",396.4,51)=""
^DD(200,0,"PT",399,2)=""
^DD(200,0,"PT",399,5)=""
^DD(200,0,"PT",399,8)=""
^DD(200,0,"PT",399,11)=""
^DD(200,0,"PT",399,13)=""
^DD(200,0,"PT",399,15)=""
^DD(200,0,"PT",399,18)=""
^DD(200,0,"PT",399,32)=""
^DD(200,0,"PT",399.0222,.02)=""
^DD(200,0,"PT",399.0304,18)=""
^DD(200,0,"PT",399.046,.02)=""
^DD(200,0,"PT",399.077,.02)=""
^DD(200,0,"PT",403.35,.01)=""
^DD(200,0,"PT",404.42,.11)=""
^DD(200,0,"PT",404.42,.13)=""
^DD(200,0,"PT",404.43,.06)=""
^DD(200,0,"PT",404.43,.08)=""
^DD(200,0,"PT",404.43,.16)=""
^DD(200,0,"PT",404.471,.08)=""
^DD(200,0,"PT",404.48,.05)=""
^DD(200,0,"PT",404.52,.03)=""
^DD(200,0,"PT",404.52,.07)=""
^DD(200,0,"PT",404.521,.03)=""
^DD(200,0,"PT",404.53,.07)=""
^DD(200,0,"PT",404.56,.02)=""
^DD(200,0,"PT",404.9101,.03)=""
^DD(200,0,"PT",404.9101,.04)=""
^DD(200,0,"PT",404.91709,.04)=""
^DD(200,0,"PT",404.95,.02)=""
^DD(200,0,"PT",404.9503,.01)=""
^DD(200,0,"PT",404.9825,.06)=""
^DD(200,0,"PT",405,.08)=""
^DD(200,0,"PT",405,.19)=""
^DD(200,0,"PT",405,43)=""
^DD(200,0,"PT",405,100)=""
^DD(200,0,"PT",405,102)=""
^DD(200,0,"PT",408,10)=""
^DD(200,0,"PT",408.21,101)=""
^DD(200,0,"PT",408.21,103)=""
^DD(200,0,"PT",408.31,.06)=""
^DD(200,0,"PT",408.31,.08)=""
^DD(200,0,"PT",408.31,.22)=""
^DD(200,0,"PT",408.41,.07)=""
^DD(200,0,"PT",409.3,9)=""
^DD(200,0,"PT",409.3,12)=""
^DD(200,0,"PT",409.3,13.7)=""
^DD(200,0,"PT",409.3,17)=""
^DD(200,0,"PT",409.3,20)=""
^DD(200,0,"PT",409.3,28)=""
^DD(200,0,"PT",409.311,2)=""
^DD(200,0,"PT",409.311,4)=""
^DD(200,0,"PT",409.32,2)=""
^DD(200,0,"PT",409.32,4)=""
^DD(200,0,"PT",409.35,4)=""
^DD(200,0,"PT",409.44,.01)=""
^DD(200,0,"PT",409.48,.03)=""
^DD(200,0,"PT",409.48,.08)=""
^DD(200,0,"PT",409.481,.03)=""
^DD(200,0,"PT",409.51,2)=""
^DD(200,0,"PT",409.65,.04)=""
^DD(200,0,"PT",409.68,101)=""
^DD(200,0,"PT",409.68,103)=""
^DD(200,0,"PT",409.73,.07)=""
^DD(200,0,"PT",409.91,1)=""
^DD(200,0,"PT",409.91,3)=""
^DD(200,0,"PT",410,29)=""
^DD(200,0,"PT",410,39)=""
^DD(200,0,"PT",410,40)=""
^DD(200,0,"PT",410,42)=""
^DD(200,0,"PT",410,44.7)=""
^DD(200,0,"PT",410,53)=""
^DD(200,0,"PT",410,62)=""
^DD(200,0,"PT",410,68)=""
^DD(200,0,"PT",411,46)=""
^DD(200,0,"PT",411.045,.01)=""
^DD(200,0,"PT",411.05,.01)=""
^DD(200,0,"PT",411.3,2)=""
^DD(200,0,"PT",413,1)=""
^DD(200,0,"PT",413,5)=""
^DD(200,0,"PT",413,9.1)=""
^DD(200,0,"PT",413,30)=""
^DD(200,0,"PT",413,67)=""
^DD(200,0,"PT",413.1,1)=""
^DD(200,0,"PT",413.1,5)=""
^DD(200,0,"PT",413.1,16)=""
^DD(200,0,"PT",413.2,.01)=""
^DD(200,0,"PT",413.3,.01)=""
^DD(200,0,"PT",414.02,3)=""
^DD(200,0,"PT",414.02,9)=""
^DD(200,0,"PT",414.021,1)=""
^DD(200,0,"PT",420.01,23)=""
^DD(200,0,"PT",420.02,.01)=""
^DD(200,0,"PT",420.05,.01)=""
^DD(200,0,"PT",420.1,.6)=""
^DD(200,0,"PT",420.2,.6)=""
^DD(200,0,"PT",420.9999,4)=""
^DD(200,0,"PT",421,12)=""
^DD(200,0,"PT",421.1,6)=""
^DD(200,0,"PT",421.2,.8)=""
^DD(200,0,"PT",421.2,5)=""
^DD(200,0,"PT",421.2,8)=""
^DD(200,0,"PT",421.4,2)=""
^DD(200,0,"PT",421.5,54.5)=""
^DD(200,0,"PT",421.5,59)=""
^DD(200,0,"PT",421.5,60)=""
^DD(200,0,"PT",421.5,66)=""
^DD(200,0,"PT",421.51,2)=""
^DD(200,0,"PT",423,999)=""
^DD(200,0,"PT",423,999.2)=""
^DD(200,0,"PT",423.9001,.01)=""
^DD(200,0,"PT",424,.08)=""
^DD(200,0,"PT",424,.14)=""
^DD(200,0,"PT",424.1,.05)=""
^DD(200,0,"PT",424.1,.1)=""
^DD(200,0,"PT",430,17)=""
^DD(200,0,"PT",430,32)=""
^DD(200,0,"PT",430,34)=""
^DD(200,0,"PT",430,79.21)=""
^DD(200,0,"PT",430,90)=""
^DD(200,0,"PT",430,94)=""
^DD(200,0,"PT",430,97)=""
^DD(200,0,"PT",430,111)=""
^DD(200,0,"PT",433,42)=""
^DD(200,0,"PT",440,31)=""
^DD(200,0,"PT",440,33)=""
^DD(200,0,"PT",440.3,31)=""
^DD(200,0,"PT",440.3,33)=""
^DD(200,0,"PT",440.5,7)=""
^DD(200,0,"PT",440.5,8)=""
^DD(200,0,"PT",440.5,9)=""
^DD(200,0,"PT",440.512,.01)=""
^DD(200,0,"PT",440.6,16)=""
^DD(200,0,"PT",440.6,27)=""
^DD(200,0,"PT",440.6,45)=""
^DD(200,0,"PT",441,15)=""
^DD(200,0,"PT",441,18)=""
^DD(200,0,"PT",442,16)=""
^DD(200,0,"PT",442,19)=""
^DD(200,0,"PT",442,56)=""
^DD(200,0,"PT",442,57)=""
^DD(200,0,"PT",442,61)=""
^DD(200,0,"PT",442,104)=""
^DD(200,0,"PT",442,113)=""
^DD(200,0,"PT",442.07,6)=""
^DD(200,0,"PT",442.07,10)=""
^DD(200,0,"PT",442.09,1)=""
^DD(200,0,"PT",442.11,6)=""
^DD(200,0,"PT",442.11,14)=""
^DD(200,0,"PT",442.11,17)=""
^DD(200,0,"PT",442.11,19.3)=""
^DD(200,0,"PT",442.14,2)=""
^DD(200,0,"PT",442.14,6)=""
^DD(200,0,"PT",442.714,6)=""
^DD(200,0,"PT",442.9,2)=""
^DD(200,0,"PT",443,2)=""
^DD(200,0,"PT",443,6)=""
^DD(200,0,"PT",443.6,16)=""
^DD(200,0,"PT",443.6,19)=""
^DD(200,0,"PT",443.6,56)=""
^DD(200,0,"PT",443.6,57)=""
^DD(200,0,"PT",443.6,61)=""
^DD(200,0,"PT",443.67,6)=""
^DD(200,0,"PT",443.67,10)=""
^DD(200,0,"PT",443.6714,6)=""
^DD(200,0,"PT",443.75,5.5)=""
^DD(200,0,"PT",443.76,2)=""
^DD(200,0,"PT",444,3)=""
^DD(200,0,"PT",444,10)=""
^DD(200,0,"PT",444,20.7)=""
^DD(200,0,"PT",444,25)=""
^DD(200,0,"PT",444.021,13)=""
^DD(200,0,"PT",444.024,13)=""
^DD(200,0,"PT",444.4,.01)=""
^DD(200,0,"PT",445,19.5)=""
^DD(200,0,"PT",445,24)=""
^DD(200,0,"PT",445.026,.01)=""
^DD(200,0,"PT",445.027,.01)=""
^DD(200,0,"PT",445.04,.01)=""
^DD(200,0,"PT",445.13,1)=""
^DD(200,0,"PT",445.2,8.5)=""
^DD(200,0,"PT",445.2,21)=""
^DD(200,0,"PT",445.3,4)=""
^DD(200,0,"PT",445.7,3)=""
^DD(200,0,"PT",445.7,5)=""
^DD(200,0,"PT",445.8,3)=""
^DD(200,0,"PT",445.8,5)=""
^DD(200,0,"PT",446.1,130.04)=""
^DD(200,0,"PT",446.4,.1)=""
^DD(200,0,"PT",446.42,.02)=""
^DD(200,0,"PT",447,1)=""
^DD(200,0,"PT",450,700)=""
^DD(200,0,"PT",450,755)=""
^DD(200,0,"PT",452,.01)=""
^DD(200,0,"PT",452.4,3)=""
^DD(200,0,"PT",452.8894,.01)=""
^DD(200,0,"PT",455.51,.01)=""
^DD(200,0,"PT",455.511,.01)=""
^DD(200,0,"PT",455.512,.01)=""
^DD(200,0,"PT",458,2)=""
^DD(200,0,"PT",458.01,2)=""
^DD(200,0,"PT",458.01,34)=""
^DD(200,0,"PT",458.01,36)=""
^DD(200,0,"PT",458.02,5)=""
^DD(200,0,"PT",458.02,10)=""
^DD(200,0,"PT",458.02,102)=""
^DD(200,0,"PT",458.1,9)=""
^DD(200,0,"PT",458.1,11)=""
^DD(200,0,"PT",458.1101,2)=""
^DD(200,0,"PT",458.1101,5)=""
^DD(200,0,"PT",458.1101,7)=""
^DD(200,0,"PT",458.1101,9)=""
^DD(200,0,"PT",458.1105,2)=""
^DD(200,0,"PT",458.2,15)=""
^DD(200,0,"PT",458.2,17)=""
^DD(200,0,"PT",458.2,21)=""
^DD(200,0,"PT",458.3,9)=""
^DD(200,0,"PT",458.3,11)=""
^DD(200,0,"PT",458.5,6)=""
^DD(200,0,"PT",458.6,5)=""
^DD(200,0,"PT",458.7,6)=""
^DD(200,0,"PT",458.7,19)=""
^DD(200,0,"PT",458.7,23)=""
^DD(200,0,"PT",458.83,1)=""
^DD(200,0,"PT",470,10.7)=""
^DD(200,0,"PT",470,69)=""
^DD(200,0,"PT",470.1,13)=""
^DD(200,0,"PT",550.04,1)=""
^DD(200,0,"PT",550.07,5)=""
^DD(200,0,"PT",550.09,5)=""
^DD(200,0,"PT",550.2,4)=""
^DD(200,0,"PT",552.01,4)=""
^DD(200,0,"PT",552.41,5)=""
^DD(200,0,"PT",554.01,4)=""
^DD(200,0,"PT",554.01,6)=""
^DD(200,0,"PT",554.02,4)=""
^DD(200,0,"PT",600.71,3)=""
^DD(200,0,"PT",601,37)=""
^DD(200,0,"PT",601.22,2)=""
^DD(200,0,"PT",601.22,3)=""
^DD(200,0,"PT",601.2213,2)=""
^DD(200,0,"PT",601.2213,3)=""
^DD(200,0,"PT",601.2213,6)=""
^DD(200,0,"PT",601.2213,7)=""
^DD(200,0,"PT",601.41,16)=""
^DD(200,0,"PT",601.781,1)=""
^DD(200,0,"PT",601.84,5)=""
^DD(200,0,"PT",601.84,6)=""
^DD(200,0,"PT",604,.09)=""
^DD(200,0,"PT",604,.14)=""
^DD(200,0,"PT",604,.52)=""
^DD(200,0,"PT",604,.71)=""
^DD(200,0,"PT",604,.81)=""
^DD(200,0,"PT",604.81,.01)=""
^DD(200,0,"PT",615.01,5)=""
^DD(200,0,"PT",615.02,2)=""
^DD(200,0,"PT",615.03,4)=""
^DD(200,0,"PT",615.2,.05)=""
^DD(200,0,"PT",615.2,4)=""
^DD(200,0,"PT",615.2,25)=""
^DD(200,0,"PT",615.2,40)=""
^DD(200,0,"PT",615.2,41)=""
^DD(200,0,"PT",615.2,43)=""
^DD(200,0,"PT",615.2,50)=""
^DD(200,0,"PT",615.2,53)=""
^DD(200,0,"PT",615.3,1)=""
^DD(200,0,"PT",615.3,2)=""
^DD(200,0,"PT",617.01,2)=""
^DD(200,0,"PT",618.04,2)=""
^DD(200,0,"PT",618.2,1)=""
^DD(200,0,"PT",618.2,2)=""
^DD(200,0,"PT",618.2,3)=""
^DD(200,0,"PT",618.2,4)=""
^DD(200,0,"PT",618.2,5)=""
^DD(200,0,"PT",618.2,6)=""
^DD(200,0,"PT",618.2,7)=""
^DD(200,0,"PT",618.2,8)=""
^DD(200,0,"PT",618.4,4)=""
^DD(200,0,"PT",618.4,5)=""
^DD(200,0,"PT",618.4,6)=""
^DD(200,0,"PT",618.418,1)=""
^DD(200,0,"PT",618.419,2)=""
^DD(200,0,"PT",627.8,.04)=""
^DD(200,0,"PT",627.8,.05)=""
^DD(200,0,"PT",631,80)=""
^DD(200,0,"PT",631,82)=""
^DD(200,0,"PT",631.4,1)=""
^DD(200,0,"PT",632,12)=""
^DD(200,0,"PT",650,2)=""
^DD(200,0,"PT",650.121,.01)=""
^DD(200,0,"PT",652,3)=""
^DD(200,0,"PT",655.2,.03)=""
^DD(200,0,"PT",655.2,.04)=""
^DD(200,0,"PT",655.2,.05)=""
^DD(200,0,"PT",655.218,.01)=""
^DD(200,0,"PT",655.38,1)=""
^DD(200,0,"PT",660,8.6)=""
^DD(200,0,"PT",660,27)=""
^DD(200,0,"PT",660,35)=""
^DD(200,0,"PT",660,105)=""
^DD(200,0,"PT",661.2,7)=""
^DD(200,0,"PT",661.5,6)=""
^DD(200,0,"PT",661.6,9)=""
^DD(200,0,"PT",664,3.2)=""
^DD(200,0,"PT",664,8.5)=""
^DD(200,0,"PT",664,8.6)=""
^DD(200,0,"PT",664,10)=""
^DD(200,0,"PT",664,23)=""
^DD(200,0,"PT",664.1,7)=""
^DD(200,0,"PT",664.1,9)=""
^DD(200,0,"PT",664.1,12.1)=""
^DD(200,0,"PT",664.1,13)=""
^DD(200,0,"PT",664.1,14)=""
^DD(200,0,"PT",664.1,15)=""
^DD(200,0,"PT",664.1,21)=""
^DD(200,0,"PT",664.1,22)=""
^DD(200,0,"PT",664.1,27)=""
^DD(200,0,"PT",664.129,3)=""
^DD(200,0,"PT",664.129,5)=""
^DD(200,0,"PT",664.2,9)=""
^DD(200,0,"PT",664.2,11)=""
^DD(200,0,"PT",664.33,.01)=""
^DD(200,0,"PT",665,19.7)=""
^DD(200,0,"PT",665.01,7)=""
^DD(200,0,"PT",665.02,6)=""
^DD(200,0,"PT",665.1,3)=""
^DD(200,0,"PT",665.193,101)=""
^DD(200,0,"PT",665.4,4)=""
^DD(200,0,"PT",665.723191,102)=""
^DD(200,0,"PT",665.7232,4)=""
^DD(200,0,"PT",667.3,13)=""
^DD(200,0,"PT",668,6)=""
^DD(200,0,"PT",668,8)=""
^DD(200,0,"PT",668,13)=""
^DD(200,0,"PT",668,16)=""
^DD(200,0,"PT",668,17)=""
^DD(200,0,"PT",668,24)=""
^DD(200,0,"PT",669.9003,.01)=""
^DD(200,0,"PT",680.5,13)=""
^DD(200,0,"PT",681,3)=""
^DD(200,0,"PT",682,1.5)=""
^DD(200,0,"PT",682.04,2)=""
^DD(200,0,"PT",682.04,6)=""
^DD(200,0,"PT",682.1,37)=""
^DD(200,0,"PT",691,39)=""
^DD(200,0,"PT",691,43)=""
^DD(200,0,"PT",691,701)=""
^DD(200,0,"PT",691,1500)=""
^DD(200,0,"PT",691,1503)=""
^DD(200,0,"PT",691,1512)=""
^DD(200,0,"PT",691.1,62)=""
^DD(200,0,"PT",691.1,63)=""
^DD(200,0,"PT",691.1,64)=""
^DD(200,0,"PT",691.1,65)=""
^DD(200,0,"PT",691.1,701)=""
^DD(200,0,"PT",691.1,1500)=""
^DD(200,0,"PT",691.1,1503)=""
^DD(200,0,"PT",691.1,1512)=""
^DD(200,0,"PT",691.5,12)=""
^DD(200,0,"PT",691.5,701)=""
^DD(200,0,"PT",691.5,1500)=""
^DD(200,0,"PT",691.5,1503)=""
^DD(200,0,"PT",691.5,1512)=""
^DD(200,0,"PT",691.6,4)=""
^DD(200,0,"PT",691.6,6)=""
^DD(200,0,"PT",691.6,10)=""
^DD(200,0,"PT",691.6,12)=""
^DD(200,0,"PT",691.6,14)=""
^DD(200,0,"PT",691.6,701)=""
^DD(200,0,"PT",691.6,1500)=""
^DD(200,0,"PT",691.6,1503)=""
^DD(200,0,"PT",691.6,1512)=""
^DD(200,0,"PT",691.7,57)=""
^DD(200,0,"PT",691.7,58)=""
^DD(200,0,"PT",691.7,701)=""
^DD(200,0,"PT",691.7,1500)=""
^DD(200,0,"PT",691.7,1503)=""
^DD(200,0,"PT",691.7,1512)=""
^DD(200,0,"PT",691.8,16)=""
^DD(200,0,"PT",691.8,17)=""
^DD(200,0,"PT",691.8,19)=""
^DD(200,0,"PT",691.8,20)=""
^DD(200,0,"PT",691.8,24)=""
^DD(200,0,"PT",691.8,25)=""
^DD(200,0,"PT",691.8,701)=""
^DD(200,0,"PT",691.8,1500)=""
^DD(200,0,"PT",691.8,1503)=""
^DD(200,0,"PT",691.8,1512)=""
^DD(200,0,"PT",691.9,24)=""
^DD(200,0,"PT",691.9,701)=""
^DD(200,0,"PT",692,21)=""
^DD(200,0,"PT",692,701)=""
^DD(200,0,"PT",694,50)=""
^DD(200,0,"PT",694,51)=""
^DD(200,0,"PT",694,701)=""
^DD(200,0,"PT",694,1500)=""
^DD(200,0,"PT",694,1503)=""
^DD(200,0,"PT",694,1512)=""
^DD(200,0,"PT",694.8,7.1)=""
^DD(200,0,"PT",694.801,.04)=""
^DD(200,0,"PT",698,300)=""
^DD(200,0,"PT",698,301)=""
^DD(200,0,"PT",698,302)=""
^DD(200,0,"PT",698,701)=""
^DD(200,0,"PT",698.1,300)=""
^DD(200,0,"PT",698.1,301)=""
^DD(200,0,"PT",698.1,302)=""
^DD(200,0,"PT",698.1,701)=""
^DD(200,0,"PT",698.2,300)=""
^DD(200,0,"PT",698.2,301)=""
^DD(200,0,"PT",698.2,302)=""
^DD(200,0,"PT",698.2,701)=""
^DD(200,0,"PT",698.3,2)=""
^DD(200,0,"PT",698.3,300)=""
^DD(200,0,"PT",698.3,301)=""
^DD(200,0,"PT",698.3,701)=""
^DD(200,0,"PT",699,6)=""
^DD(200,0,"PT",699,200)=""
^DD(200,0,"PT",699,201)=""
^DD(200,0,"PT",699,701)=""
^DD(200,0,"PT",699,1500)=""
^DD(200,0,"PT",699,1503)=""
^DD(200,0,"PT",699,1512)=""
^DD(200,0,"PT",699.5,6)=""
^DD(200,0,"PT",699.5,701)=""
^DD(200,0,"PT",699.5,1500)=""
^DD(200,0,"PT",699.5,1503)=""
^DD(200,0,"PT",699.5,1512)=""
^DD(200,0,"PT",700,10)=""
^DD(200,0,"PT",700,31)=""
^DD(200,0,"PT",700,34)=""
^DD(200,0,"PT",700,701)=""
^DD(200,0,"PT",700,1500)=""
^DD(200,0,"PT",700,1503)=""
^DD(200,0,"PT",700,1512)=""
^DD(200,0,"PT",700.021,.01)=""
^DD(200,0,"PT",701,314)=""
^DD(200,0,"PT",701,701)=""
^DD(200,0,"PT",702,.03)=""
^DD(200,0,"PT",703.9,.03)=""
^DD(200,0,"PT",704.202,.05)=""
^DD(200,0,"PT",704.209,.02)=""
^DD(200,0,"PT",704.209,.03)=""
^DD(200,0,"PT",712,3.1)=""
^DD(200,0,"PT",712,4.2)=""
^DD(200,0,"PT",712,5.2)=""
^DD(200,0,"PT",712,6.2)=""
^DD(200,0,"PT",712,7.2)=""
^DD(200,0,"PT",712,8.2)=""
^DD(200,0,"PT",712,9.2)=""
^DD(200,0,"PT",712.01,1.3)=""
^DD(200,0,"PT",713,3)=""
^DD(200,0,"PT",713.1,4)=""
^DD(200,0,"PT",713.2,6)=""
^DD(200,0,"PT",721,10)=""
^DD(200,0,"PT",721,13)=""
^DD(200,0,"PT",721,15)=""
^DD(200,0,"PT",721,17)=""
^DD(200,0,"PT",721.042,.01)=""
^DD(200,0,"PT",727,16)=""
^DD(200,0,"PT",727.805,11)=""
^DD(200,0,"PT",740.51,.02)=""
^DD(200,0,"PT",741,8)=""
^DD(200,0,"PT",741,9)=""
^DD(200,0,"PT",741.01,.02)=""
^DD(200,0,"PT",741.024,.01)=""
^DD(200,0,"PT",741.3,.01)=""
^DD(200,0,"PT",742.4,.06)=""
^DD(200,0,"PT",745.1,8)=""
^DD(200,0,"PT",745.1,9)=""
^DD(200,0,"PT",745.117,.01)=""
^DD(200,0,"PT",745.128,.01)=""
^DD(200,0,"PT",748,.055)=""
^DD(200,0,"PT",748.02,.01)=""
^DD(200,0,"PT",757.201,.01)=""
^DD(200,0,"PT",776.1061,.01)=""
^DD(200,0,"PT",776.2,7)=""
^DD(200,0,"PT",776.4,.08)=""
^DD(200,0,"PT",776.5,.01)=""
^DD(200,0,"PT",785,14)=""
^DD(200,0,"PT",785.5,14)=""
^DD(200,0,"PT",789.5,3)=""
^DD(200,0,"PT",790.01,.01)=""
^DD(200,0,"PT",790.08,.07)=""
^DD(200,0,"PT",790.08,.18)=""
^DD(200,0,"PT",790.1,.07)=""
^DD(200,0,"PT",790.1,.18)=""
^DD(200,0,"PT",790.72,.01)=""
^DD(200,0,"PT",798,2.1)=""
^DD(200,0,"PT",798,6.1)=""
^DD(200,0,"PT",798.114,.01)=""
^DD(200,0,"PT",798.7,7)=""
^DD(200,0,"PT",798.8,.08)=""
^DD(200,0,"PT",799.4,9.05)=""
^DD(200,0,"PT",801.44,1)=""
^DD(200,0,"PT",801.5,.05)=""
^DD(200,0,"PT",801.55,.05)=""
^DD(200,0,"PT",801.9,.05)=""
^DD(200,0,"PT",802.42,1)=""
^DD(200,0,"PT",810.14,.01)=""
^DD(200,0,"PT",810.24,1)=""
^DD(200,0,"PT",810.3,.05)=""
^DD(200,0,"PT",810.42,1)=""
^DD(200,0,"PT",810.5,.07)=""
^DD(200,0,"PT",810.54,.01)=""
^DD(200,0,"PT",810.72,1)=""
^DD(200,0,"PT",810.82,1)=""
^DD(200,0,"PT",810.9002,1)=""
^DD(200,0,"PT",811.21,1)=""
^DD(200,0,"PT",811.42,1)=""
^DD(200,0,"PT",811.53,1)=""
^DD(200,0,"PT",811.63,1)=""
^DD(200,0,"PT",811.9001,1)=""
^DD(200,0,"PT",812,.01)=""
^DD(200,0,"PT",863.5,.03)=""
^DD(200,0,"PT",910.11,.01)=""
^DD(200,0,"PT",910.85,.02)=""
^DD(200,0,"PT",912,.06)=""
^DD(200,0,"PT",912,5.03)=""
^DD(200,0,"PT",912,5.07)=""
^DD(200,0,"PT",912,6.03)=""
^DD(200,0,"PT",912.17,.01)=""
^DD(200,0,"PT",912.17,.03)=""
^DD(200,0,"PT",912.5,.01)=""
^DD(200,0,"PT",913,2.01)=""
^DD(200,0,"PT",913,2.02)=""
^DD(200,0,"PT",914,.06)=""
^DD(200,0,"PT",916.05,1)=""
^DD(200,0,"PT",916.31,.01)=""
^DD(200,0,"PT",984.9,.02)=""
^DD(200,0,"PT",984.9,2.01)=""
^DD(200,0,"PT",991.12,8)=""
^DD(200,0,"PT",991.8,50)=""
^DD(200,0,"PT",991.8,51)=""
^DD(200,0,"PT",991.8,52)=""
^DD(200,0,"PT",991.8,53)=""
^DD(200,0,"PT",991.8,54)=""
^DD(200,0,"PT",991.8,55)=""
^DD(200,0,"PT",991.8,104)=""
^DD(200,0,"PT",991.8,109)=""
^DD(200,0,"PT",991.8,114)=""
^DD(200,0,"PT",991.8,119)=""
^DD(200,0,"PT",1020.4,3)=""
^DD(200,0,"PT",1020.5,2)=""
^DD(200,0,"PT",1020.8,10)=""
^DD(200,0,"PT",2005,8)=""
^DD(200,0,"PT",2005,30)=""
^DD(200,0,"PT",2005.05,3)=""
^DD(200,0,"PT",2005.1,8)=""
^DD(200,0,"PT",2005.1,30)=""
^DD(200,0,"PT",2005.201,.01)=""
^DD(200,0,"PT",2005.87,20)=""
^DD(200,0,"PT",2005.87,22)=""
^DD(200,0,"PT",2006.03,1)=""
^DD(200,0,"PT",2006.18,1)=""
^DD(200,0,"PT",2006.5843,.01)=""
^DD(200,0,"PT",2006.5849,13)=""
^DD(200,0,"PT",2006.68,1)=""
^DD(200,0,"PT",2006.81,1)=""
^DD(200,0,"PT",2006.82,1)=""
^DD(200,0,"PT",2006.95,2)=""
^DD(200,0,"PT",2040,11)=""
^DD(200,0,"PT",2100,.95)=""
^DD(200,0,"PT",2100,9.01)=""
^DD(200,0,"PT",2101.3,.8)=""
^DD(200,0,"PT",2101.3,5)=""
^DD(200,0,"PT",2101.6,2)=""
^DD(200,0,"PT",2260,44)=""
^DD(200,0,"PT",2260,48)=""
^DD(200,0,"PT",2260,53)=""
^DD(200,0,"PT",2260,53.1)=""
^DD(200,0,"PT",2260,56)=""
^DD(200,0,"PT",2260,67)=""
^DD(200,0,"PT",2260,76)=""
^DD(200,0,"PT",2260,79)=""
^DD(200,0,"PT",2260,119)=""
^DD(200,0,"PT",2260,169)=""
^DD(200,0,"PT",2260,221)=""
^DD(200,0,"PT",2260,265)=""
^DD(200,0,"PT",2260,309)=""
^DD(200,0,"PT",2260,312)=""
^DD(200,0,"PT",2260.095,7)=""
^DD(200,0,"PT",2260.095,9)=""
^DD(200,0,"PT",2262.03,7)=""
^DD(200,0,"PT",2263.7,2)=""
^DD(200,0,"PT",2264,.5)=""
^DD(200,0,"PT",2264,47)=""
^DD(200,0,"PT",2264,83)=""
^DD(200,0,"PT",6914,.5)=""
^DD(200,0,"PT",6914,90.1)=""
^DD(200,0,"PT",6914,99)=""
^DD(200,0,"PT",6914.1,1)=""
^DD(200,0,"PT",6914.1,20)=""
^DD(200,0,"PT",6915.2,1.5)=""
^DD(200,0,"PT",6915.2,302)=""
^DD(200,0,"PT",6915.3,1.5)=""
^DD(200,0,"PT",6915.3,302)=""
^DD(200,0,"PT",6915.4,1.5)=""
^DD(200,0,"PT",6915.4,302)=""
^DD(200,0,"PT",6915.5,1.5)=""
^DD(200,0,"PT",6915.5,302)=""
^DD(200,0,"PT",6915.6,1.5)=""
^DD(200,0,"PT",6915.6,302)=""
^DD(200,0,"PT",6916.3,1)=""
^DD(200,0,"PT",6916.3,3)=""
^DD(200,0,"PT",6916.3,6)=""
^DD(200,0,"PT",6916.3,8)=""
^DD(200,0,"PT",6916.31,3)=""
^DD(200,0,"PT",6917,11)=""
^DD(200,0,"PT",6917,13)=""
^DD(200,0,"PT",6917,15)=""
^DD(200,0,"PT",6918.01,2)=""
^DD(200,0,"PT",6920,7.5)=""
^DD(200,0,"PT",6925,245)=""
^DD(200,0,"PT",6925,248)=""
^DD(200,0,"PT",6925,279.1)=""
^DD(200,0,"PT",6925,279.3)=""
^DD(200,0,"PT",7100,2.1)=""
^DD(200,0,"PT",7100,5.2)=""
^DD(200,0,"PT",7100,124)=""
^DD(200,0,"PT",7100.2,3)=""
^DD(200,0,"PT",7100.3,.01)=""
^DD(200,0,"PT",7100.5,1)=""
^DD(200,0,"PT",7100.6,1)=""
^DD(200,0,"PT",7100.7,2)=""
^DD(200,0,"PT",7100.7,4)=""
^DD(200,0,"PT",7101.1,.01)=""
^DD(200,0,"PT",7101.2,.01)=""
^DD(200,0,"PT",7101.3,.01)=""
^DD(200,0,"PT",7101.4,1)=""
^DD(200,0,"PT",7103.5,1)=""
^DD(200,0,"PT",7104.3,.01)=""
^DD(200,0,"PT",7105.1,5)=""
^DD(200,0,"PT",7105.2,.01)=""
^DD(200,0,"PT",7107.1,1)=""
^DD(200,0,"PT",7107.6,.05)=""
^DD(200,0,"PT",8925,1202)=""
^DD(200,0,"PT",8925,1204)=""
^DD(200,0,"PT",8925,1208)=""
^DD(200,0,"PT",8925,1209)=""
^DD(200,0,"PT",8925,1302)=""
^DD(200,0,"PT",8925,1306)=""
^DD(200,0,"PT",8925,1502)=""
^DD(200,0,"PT",8925,1508)=""
^DD(200,0,"PT",8925,1512)=""
^DD(200,0,"PT",8925,1513)=""
^DD(200,0,"PT",8925,1602)=""
^DD(200,0,"PT",8925,1610)=""
^DD(200,0,"PT",8925.1,.05)=""
^DD(200,0,"PT",8925.1,1503)=""
^DD(200,0,"PT",8925.2,.02)=""
^DD(200,0,"PT",8925.4,.02)=""
^DD(200,0,"PT",8925.5,.03)=""
^DD(200,0,"PT",8925.5,1.02)=""
^DD(200,0,"PT",8925.5,2.02)=""
^DD(200,0,"PT",8925.5,3.03)=""
^DD(200,0,"PT",8925.7,.03)=""
^DD(200,0,"PT",8925.7,.05)=""
^DD(200,0,"PT",8925.954,.01)=""
^DD(200,0,"PT",8925.98,.01)=""
^DD(200,0,"PT",8925.992,.01)=""
^DD(200,0,"PT",8926,.01)=""
^DD(200,0,"PT",8926,.09)=""
^DD(200,0,"PT",8927,.06)=""
^DD(200,0,"PT",8930.3,.01)=""
^DD(200,0,"PT",8972.1,.03)=""
^DD(200,0,"PT",8972.1,2.02)=""
^DD(200,0,"PT",8973.2,.05)=""
^DD(200,0,"PT",8980,4)=""
^DD(200,0,"PT",8980.01,.01)=""
^DD(200,0,"PT",8980.2,.03)=""
^DD(200,0,"PT",8987.16,.01)=""
^DD(200,0,"PT",8989.3,321.01)=""
^DD(200,0,"PT",8989.3,321.02)=""
^DD(200,0,"PT",8989.34,.01)=""
^DD(200,0,"PT",8989.5,.01)=""
^DD(200,0,"PT",8992,.01)=""
^DD(200,0,"PT",8992,.02)=""
^DD(200,0,"PT",8992.02,.02)=""
^DD(200,0,"PT",8992.1,.05)=""
^DD(200,0,"PT",8992.11,.01)=""
^DD(200,0,"PT",8992.11,.07)=""
^DD(200,0,"PT",8992.11,.09)=""
^DD(200,0,"PT",8992.111,.02)=""
^DD(200,0,"PT",8992.112,.03)=""
^DD(200,0,"PT",8992.113,.01)=""
^DD(200,0,"PT",177100.13,2)=""
^DD(200,0,"PT",503335,2.2)=""
^DD(200,0,"PT",503335,2.4)=""
^DD(200,0,"PT",503336,10)=""
^DD(200,0,"PT",503336,12)=""
^DD(200,0,"PT",503338.08,.01)=""
^DD(200,0,"PT",503340,10)=""
^DD(200,0,"PT",503340,12)=""
^DD(200,0,"PT",509850.9,.03)=""
^DD(200,0,"PT",509850.9,.16)=""
^DD(200,0,"PT",791810,.05)=""
^DD(200,0,"PT",791810,.08)=""
^DD(200,0,"PT",791810,.1)=""
^DD(200,0,"PT",791810,2.03)=""
^DD(200,0,"PT",791810,2.07)=""
^DD(200,0,"PT",791810,10.06)=""
^DD(200,0,"PT",791810.0101,90.01)=""
^DD(200,0,"PT",791810.0101,90.08)=""
^DD(200,0,"PT",791810.0101,90.1)=""
^DD(200,0,"PT",791810.0101,90.12)=""
^DD(200,0,"PT",791810.0101,90.13)=""
^DD(200,0,"PT",791810.101102,.05)=""
^DD(200,0,"PT",791810.201101,.07)=""
^DD(200,0,"PT",791812,.05)=""
^DD(200,0,"PT",791812.0101,.02)=""
^DD(200,0,"PT",791813,2.03)=""
^DD(200,0,"PT",791813.0101,.01)=""
^DD(200,0,"PT",791814,.03)=""
^DD(200,0,"PT",791814,2.03)=""
^DD(200,0,"PT",9000010,.23)=""
^DD(200,0,"PT",9000010.06,.01)=""
^DD(200,0,"PT",9000010.07,1202)=""
^DD(200,0,"PT",9000010.07,1204)=""
^DD(200,0,"PT",9000010.11,1202)=""
^DD(200,0,"PT",9000010.11,1204)=""
^DD(200,0,"PT",9000010.12,1202)=""
^DD(200,0,"PT",9000010.12,1204)=""
^DD(200,0,"PT",9000010.13,1202)=""
^DD(200,0,"PT",9000010.13,1204)=""
^DD(200,0,"PT",9000010.15,1202)=""
^DD(200,0,"PT",9000010.15,1204)=""
^DD(200,0,"PT",9000010.16,1202)=""
^DD(200,0,"PT",9000010.16,1204)=""
^DD(200,0,"PT",9000010.18,1202)=""
^DD(200,0,"PT",9000010.18,1204)=""
^DD(200,0,"PT",9000010.23,1202)=""
^DD(200,0,"PT",9000010.23,1204)=""
^DD(200,0,"PT",9000011,1.03)=""
^DD(200,0,"PT",9000011,1.04)=""
^DD(200,0,"PT",9000011,1.05)=""
^DD(200,0,"PT",9000011.1111,.06)=""
^DD(200,0,"PT",9002313.02,903)=""
^DD(200,0,"PT",9002313.02,907)=""
^DD(200,0,"PT",9002313.56,1900.01)=""
^DD(200,0,"PT",9002313.56,1900.02)=""
^DD(200,0,"PT",9002313.56,1900.03)=""
^DD(200,0,"PT",9002313.57,13)=""
^DD(200,0,"PT",9002313.57111,.02)=""
^DD(200,0,"PT",9002313.59,13)=""
^DD(200,0,"PT",9002313.59111,.02)=""
^DD(200,0,"PT",9002313.99,2500)=""
^DD(200,0,"PT",9002313.99,6000)=""
^DD(200,0,"PT",9002313.99,6001)=""
^DD(200,0,"PT",9009032.4,.03)=""
^DD(200,0,"PT",9009032.4,.04)=""
^DD(200,0,"PT",9009032.4,.11)=""
^DD(200,0,"SCR")="I $$SCR200^XUSER"
^DD(200,0,"VR")="8.0"
^DD(200,0,"VRPK")="XU"
^DD(200,.01,0)="NAME^RFX^^0;1^K XLFNC K:($L(X,"","")'=2) X I $D(X) S XLFNC=X,(X,XLFNC)=$$FORMAT^XLFNAME7(.XLFNC,3,35,,,,,2) K:$L(X)>35!($L(X)<3)!($L(X,"","")'=2)!(X'?1.E1"",""1.E) X,XLFNC K:'$G(XUITNAME) XLFNC"
^DD(200,.01,.1)=""
^DD(200,.01,1,0)="^.1"
^DD(200,.01,1,2,0)="200^AE^MUMPS"
^DD(200,.01,1,2,1)="S X1=$P($G(^VA(200,DA,1)),""^"",8) I X1="""" S $P(^VA(200,DA,1),""^"",7,8)=DT_""^""_DUZ"
^DD(200,.01,1,2,2)="Q"
^DD(200,.01,1,2,3)="Stuffing Creator and date"
^DD(200,.01,1,2,"%D",0)="^^1^1^2990617^^"
^DD(200,.01,1,2,"%D",1,0)="This X-ref stuffs the DATE ENTERED and CREATOR fields on a new entry."
^DD(200,.01,1,2,"DT")="2990617"
^DD(200,.01,1,5,0)="200^BS5^MUMPS"
^DD(200,.01,1,5,1)="Q:$P($G(^VA(200,DA,1)),U,9)']""""  S ^VA(200,""BS5"",$E(X,1)_$E($P(^(1),U,9),6,9),DA)="""""
^DD(200,.01,1,5,2)="Q:$P($G(^VA(200,DA,1)),U,9)']""""  K ^VA(200,""BS5"",$E(X,1)_$E($P(^(1),U,9),6,9),DA)"
^DD(200,.01,1,5,3)="Special BS5 lookup X-ref"
^DD(200,.01,1,5,"%D",0)="^^3^3^2990617^^"
^DD(200,.01,1,5,"%D",1,0)="This X-ref builds the 'BS5' X-ref on name changes."
^DD(200,.01,1,5,"%D",2,0)="The BS5 is the first letter of the last name concatinated with the last"
^DD(200,.01,1,5,"%D",3,0)="four digits of the SSN."
^DD(200,.01,1,8,0)="200^AG^MUMPS"
^DD(200,.01,1,8,1)="F X1=0:0 S X1=$O(^VA(200,""AB"",X1)) Q:X1'>0  I $D(^VA(200,""AB"",X1,DA)),$S($D(^DIC(19.1,X1,0)):$P(^(0),U,3)[""l"",1:0) S X2=^(0),^VA(200,""AK.""_$P(X2,U),X,DA)="""""
^DD(200,.01,1,8,2)="S X1=""AK."" F X2=0:0 S X1=$O(^VA(200,X1)) Q:$E(X1,3)'="".""  K ^VA(200,X1,X,DA)"
^DD(200,.01,1,8,3)="Updates the AK.key special lookup X-ref."
^DD(200,.01,1,8,"%D",0)="^^1^1^2920513^"
^DD(200,.01,1,8,"%D",1,0)="Builds the AK.key special lookup X-ref when there is a name change."
^DD(200,.01,1,8,"DT")="2890929"
^DD(200,.01,1,9,0)="200^ASX^MUMPS"
^DD(200,.01,1,9,1)="S ^VA(200,""ASX"",$$EN^XUA4A71(X),DA)="""""
^DD(200,.01,1,9,2)="K ^VA(200,""ASX"",$$EN^XUA4A71(X),DA)"
^DD(200,.01,1,9,3)="LAYGO SOUNDEX X-REF"
^DD(200,.01,1,9,"%D",0)="^^3^3^2920513^^"
^DD(200,.01,1,9,"%D",1,0)="This builds a soundex X-ref so that a check for simular names can be"
^DD(200,.01,1,9,"%D",2,0)="done at the time of LAYGOing to the file."
^DD(200,.01,1,9,"%D",3,0)="It calls XUA4A71 to convert X. The LAYGO test calls XUA4A7."
^DD(200,.01,1,9,"DT")="2920117"
^DD(200,.01,1,10,0)="^^BULLETIN MESSAGE"
^DD(200,.01,1,10,1)="S Y(0)=X,D0=DA K XMB,XMY S XMB(1)=Y(0),XMB=""XMNEWUSER"" D ^XMB:$D(^XMB(3.6,""B"",XMB)) K Y,XMB"
^DD(200,.01,1,10,2)="Q"
^DD(200,.01,1,10,3)="New User Bulletin"
^DD(200,.01,1,10,"%D",0)="^^1^1^3000719^"
^DD(200,.01,1,10,"%D",1,0)="This bulletin is sent whenever a new user is added to the New Person file."
^DD(200,.01,1,10,"CREATE PARAMETER #1")="NAME"
^DD(200,.01,1,10,"CREATE VALUE")="XMNEWUSER"
^DD(200,.01,1,10,"DELETE VALUE")="NO EFFECT"
^DD(200,.01,1,10,"DT")="3000719"
^DD(200,.01,1,11,0)="^^TRIGGER^46.11^.02"
^DD(200,.01,1,11,1)="Q"
^DD(200,.01,1,11,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(200,.01,1,11,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=X X ^DD(200,.01,1,11,2.4)"
^DD(200,.01,1,11,2.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=46.11,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,.01,1,11,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMFL"",X=""""""""_X_"""""""" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(200,.01,1,11,"%D",0)="^^2^2^2991018^"
^DD(200,.01,1,11,"%D",1,0)="Trigger the Name field before it was changed into the RAI MDS MONITOR"
^DD(200,.01,1,11,"%D",2,0)="file whenever the Name field of the New Person file is added or changed."
^DD(200,.01,1,11,"CREATE VALUE")="NO EFFECT"
^DD(200,.01,1,11,"DELETE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(200,.01,1,11,"DELETE VALUE")="OLD NAME"
^DD(200,.01,1,11,"DIC")="LOOKUP"
^DD(200,.01,1,11,"DT")="2991018"
^DD(200,.01,1,11,"FIELD")="NAME:RAI MDS MONITOR:#.02"
^DD(200,.01,1,12,0)="^^TRIGGER^46.11^.03"
^DD(200,.01,1,12,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(200,.01,1,12,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=200 X ^DD(200,.01,1,12,1.4)"
^DD(200,.01,1,12,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,3)=DIV,DIH=46.11,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,.01,1,12,2)="Q"
^DD(200,.01,1,12,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMFL"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(200,.01,1,12,"%D",0)="^^2^2^2991018^"
^DD(200,.01,1,12,"%D",1,0)="Trigger the New Person file number (#200) into the RAI MDS MONITOR"
^DD(200,.01,1,12,"%D",2,0)="file whenever the New Person name field is added or changed."
^DD(200,.01,1,12,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(200,.01,1,12,"CREATE VALUE")="S X=200"
^DD(200,.01,1,12,"DELETE VALUE")="NO EFFECT"
^DD(200,.01,1,12,"DIC")="LOOKUP"
^DD(200,.01,1,12,"DT")="2991018"
^DD(200,.01,1,12,"FIELD")="NAME:RAI MDS MONITOR:#.03"
^DD(200,.01,1,13,0)="^^TRIGGER^46.11^.04"
^DD(200,.01,1,13,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(200,.01,1,13,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DA X ^DD(200,.01,1,13,1.4)"
^DD(200,.01,1,13,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,4)=DIV,DIH=46.11,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,.01,1,13,2)="Q"
^DD(200,.01,1,13,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(200,.01,1,13,"%D",0)="^^2^2^2991018^"
^DD(200,.01,1,13,"%D",1,0)="Trigger the internal entry number of the entry which was changed or added"
^DD(200,.01,1,13,"%D",2,0)="in the New Person file, into the RAI MDS MONITOR file."
^DD(200,.01,1,13,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(200,.01,1,13,"CREATE VALUE")="S X=DA"
^DD(200,.01,1,13,"DELETE VALUE")="NO EFFECT"
^DD(200,.01,1,13,"DIC")="LOOKUP"
^DD(200,.01,1,13,"DT")="2991018"
^DD(200,.01,1,13,"FIELD")="NAME:RAI MDS MONITOR:#.04"
^DD(200,.01,3)="Answer must be 3-35 upper-case characters in length, and be in the format Family(Last),Given(First) Middle Suffix. Enter '??' for more help."
^DD(200,.01,21,0)="^^6^6^3040421^"
^DD(200,.01,21,1,0)="Enter only data that is actually part of the person's name. Do not"
^DD(200,.01,21,2,0)="include extra titles, identification, flags, local information, etc."
^DD(200,.01,21,3,0)="Enter the person's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(200,.01,21,4,0)="This value must be 3-35 characters in length and may contain only"
^DD(200,.01,21,5,0)="uppercase alpha characters, spaces, apostrophes, hyphens and one comma."
^DD(200,.01,21,6,0)="All other characters and parenthetical text will be removed."
^DD(200,.01,"AUDIT")="n"
^DD(200,.01,"AX")=""
^DD(200,.01,"DEL",1,0)="I 1 W *7,""  PERSONS CAN'T BE DELETED!!"""
^DD(200,.01,"DT")="3040903"
^DD(200,.01,"LAYGO",1,0)="D LAYGO^XUA4A7"
^DD(200,.111,0)="STREET ADDRESS 1^F^^.11;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(200,.111,1,0)="^.1^^0"
^DD(200,.111,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(200,.111,21,0)="^^2^2^2920513^^^^"
^DD(200,.111,21,1,0)="This is the first line of the street address of the permanent"
^DD(200,.111,21,2,0)=" address of the new person."
^DD(200,.111,"DT")="2890418"
^DD(200,.112,0)="STREET ADDRESS 2^F^^.11;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(200,.112,1,0)="^.1^^0"
^DD(200,.112,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(200,.112,21,0)="^^2^2^2920513^^^^"
^DD(200,.112,21,1,0)=" This is the second line of the street address of the permanent"
^DD(200,.112,21,2,0)="address of the new person."
^DD(200,.112,"DT")="2890418"
^DD(200,.113,0)="STREET ADDRESS 3^F^^.11;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(200,.113,1,0)="^.1^^0"
^DD(200,.113,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(200,.113,21,0)="^^2^2^2920513^^^^"
^DD(200,.113,21,1,0)="This is the third line of the street address of the permanent"
^DD(200,.113,21,2,0)="address of the new person."
^DD(200,.113,"DT")="2890418"
^DD(200,.114,0)="CITY^F^^.11;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(200,.114,1,0)="^.1^^0"
^DD(200,.114,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(200,.114,21,0)="^^2^2^2920513^^^^"
^DD(200,.114,21,1,0)="This is the city of the permanent address of"
^DD(200,.114,21,2,0)="the new person."
^DD(200,.114,"DT")="2890418"
^DD(200,.115,0)="STATE^P5'^DIC(5,^.11;5^Q"
^DD(200,.115,1,0)="^.1^^0"
^DD(200,.115,21,0)="^^2^2^2920513^^^^"
^DD(200,.115,21,1,0)="This is the state of the permanent address of"
^DD(200,.115,21,2,0)="the new person."
^DD(200,.115,"DT")="2890418"
^DD(200,.116,0)="ZIP CODE^F^^.11;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(200,.116,1,0)="^.1^^0"
^DD(200,.116,3)="Answer with ZIP CODE or ZIP+4."
^DD(200,.116,21,0)="^^2^2^2920513^^^^"
^DD(200,.116,21,1,0)="This is the postal ZIP code of the"
^DD(200,.116,21,2,0)="permanent address of the new person."
^DD(200,.116,"DT")="2890418"
^DD(200,.1211,0)="TEMPORARY ADDRESS 1^F^^.121;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(200,.1211,1,0)="^.1^^0"
^DD(200,.1211,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(200,.1211,21,0)="^^2^2^2920513^^^^"
^DD(200,.1211,21,1,0)="This is the first line of a temporary address"
^DD(200,.1211,21,2,0)="for the new person."
^DD(200,.1211,"DT")="2890418"
^DD(200,.1212,0)="TEMPORARY ADDRESS 2^F^^.121;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(200,.1212,1,0)="^.1^^0"
^DD(200,.1212,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(200,.1212,21,0)="^^2^2^2920513^^^^"
^DD(200,.1212,21,1,0)="This is the second line of a temporary address"
^DD(200,.1212,21,2,0)="for the new person."
^DD(200,.1212,"DT")="2890418"
^DD(200,.1213,0)="TEMPORARY ADDRESS 3^F^^.121;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(200,.1213,1,0)="^.1^^0"
^DD(200,.1213,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(200,.1213,21,0)="^^2^2^2920513^^^^"
^DD(200,.1213,21,1,0)="This is the third line of a temporary address"
^DD(200,.1213,21,2,0)="for the new person."
^DD(200,.1213,"DT")="2890418"
^DD(200,.1214,0)="TEMPORARY CITY^F^^.121;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(200,.1214,1,0)="^.1^^0"
^DD(200,.1214,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(200,.1214,21,0)="^^1^1^2920513^^^"
^DD(200,.1214,21,1,0)="This is the city of the temporary location for the new person."
^DD(200,.1214,"DT")="2890418"
^DD(200,.1215,0)="TEMPORARY STATE^P5'^DIC(5,^.121;5^Q"
^DD(200,.1215,1,0)="^.1^^0"
^DD(200,.1215,3)=""
^DD(200,.1215,21,0)="^^1^1^2920513^^^"
^DD(200,.1215,21,1,0)="This is the state of the temporary location for the new person."
^DD(200,.1215,"DT")="2890418"
^DD(200,.1216,0)="TEMPORARY ZIP CODE^F^^.121;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(200,.1216,1,0)="^.1^^0"
^DD(200,.1216,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(200,.1216,21,0)="^^1^1^2920513^^^"
^DD(200,.1216,21,1,0)="This is the postal ZIP code for the temporary location for the new person."
^DD(200,.1216,"DT")="2890418"
^DD(200,.1217,0)="START DATE OF TEMP ADDRES^D^^.121;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,.1217,1,0)="^.1^^0"
^DD(200,.1217,21,0)="^^2^2^2920513^^^"
^DD(200,.1217,21,1,0)="This is the beginning date for use of the temporary address for the"
^DD(200,.1217,21,2,0)="new person."
^DD(200,.1217,"DT")="2890418"
^DD(200,.1218,0)="END DATE OF TEMP ADDRESS^D^^.121;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,.1218,1,0)="^.1^^0"
^DD(200,.1218,3)=""
^DD(200,.1218,21,0)="^^2^2^2920513^^^"
^DD(200,.1218,21,1,0)="This is the ending date for use of the temporary address for the"
^DD(200,.1218,21,2,0)="new person."
^DD(200,.1218,"DT")="2890418"
^DD(200,.131,0)="PHONE (HOME)^F^^.13;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4)!'(X?4.20NP) X"
^DD(200,.131,1,0)="^.1^^0"
^DD(200,.131,3)="Answer must be 4-20 characters in length. Only numeric/punctuation characters will be allowed."
^DD(200,.131,21,0)="^^1^1^3021212^^^^"
^DD(200,.131,21,1,0)="This is the telephone number for the new person."
^DD(200,.131,"DT")="2941024"
^DD(200,.132,0)="OFFICE PHONE^F^^.13;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4)!'(X?4.20NP) X"
^DD(200,.132,1,0)="^.1^^0"
^DD(200,.132,3)="Answer must be 4-20 characters in length. Only numeric/punctuation characters will be allowed."
^DD(200,.132,21,0)="1^^1^1^3021118^^"
^DD(200,.132,21,1,0)="This is the business/office telephone for the new person."
^DD(200,.132,"DT")="2941024"
^DD(200,.133,0)="PHONE #3^F^^.13;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4)!'(X?4.20NP) X"
^DD(200,.133,1,0)="^.1^^0"
^DD(200,.133,3)="Answer must be 4-20 characters in length. Only numeric/punctuation characters will be allowed."
^DD(200,.133,21,0)="^^2^2^3021118^^^"
^DD(200,.133,21,1,0)="This is an alternate telephone number where the new person might also"
^DD(200,.133,21,2,0)="be reached."
^DD(200,.133,"DT")="2941024"
^DD(200,.134,0)="PHONE #4^F^^.13;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4)!'(X?4.20NP) X"
^DD(200,.134,1,0)="^.1^^0"
^DD(200,.134,3)="Answer must be 4-20 characters in length. Only numeric/punctuation characters will be allowed."
^DD(200,.134,21,0)="^^2^2^3021118^^^"
^DD(200,.134,21,1,0)="This is another alternate telephone number where the new person might"
^DD(200,.134,21,2,0)="also be reached."
^DD(200,.134,"DT")="2941024"
^DD(200,.135,0)="COMMERCIAL PHONE^F^^.13;5^K:$L(X)>20!($L(X)<4)!'(X?4.20NP) X"
^DD(200,.135,3)="Answer must be 4-20 characters in length. Only numeric/punctuation characters will be allowed."
^DD(200,.135,21,0)="^^1^1^3021118^^^"
^DD(200,.135,21,1,0)="This is a commercial phone number used by IFCAP."
^DD(200,.135,"DT")="2941024"
^DD(200,.136,0)="FAX NUMBER^F^^.13;6^K:$L(X)>20!($L(X)<7)!'(X?4.20NP) X"
^DD(200,.136,3)="Answer must be 4-20 characters in length. Only numeric/punctuation characters will be allowed."
^DD(200,.136,21,0)="^^3^3^3030107^^^^"
^DD(200,.136,21,1,0)="This field holds a phone number for a FAX machine for this user."
^DD(200,.136,21,2,0)="It needs to be a format that can be understood by a sending "
^DD(200,.136,21,3,0)="MODEM."
^DD(200,.136,"DT")="3030107"
^DD(200,.137,0)="VOICE PAGER^F^^.13;7^K:$L(X)>20!($L(X)<3)!'(X?3.20NP) X"
^DD(200,.137,3)="Answer must be 3-20 characters in length."
^DD(200,.137,21,0)="^^4^4^2941024^"
^DD(200,.137,21,1,0)="This field holds a phone number for an ANALOG PAGER that this person"
^DD(200,.137,21,2,0)="carries with them."
^DD(200,.137,21,3,0)="It needs to be a format that can be understood by a sending "
^DD(200,.137,21,4,0)="MODEM."
^DD(200,.137,"DT")="2950801"
^DD(200,.138,0)="DIGITAL PAGER^F^^.13;8^K:$L(X)>20!($L(X)<3)!'(X?3.20NP) X"
^DD(200,.138,3)="Answer must be 3-20 characters in length."
^DD(200,.138,21,0)="^^4^4^2941024^"
^DD(200,.138,21,1,0)="This field holds a phone number for a DIGITAL PAGER that this person"
^DD(200,.138,21,2,0)="carries with them."
^DD(200,.138,21,3,0)="It needs to be a format that can be understood by a sending "
^DD(200,.138,21,4,0)="MODEM."
^DD(200,.138,"DT")="2950801"
^DD(200,.141,0)="ROOM^F^^.14;1^K:$L(X)>30!($L(X)<2) X"
^DD(200,.141,3)="Answer must be 2-30 characters in length.  Where does one go to see you."
^DD(200,.141,21,0)="^^1^1^2920513^^"
^DD(200,.141,21,1,0)="This is the room number assigned to the new person."
^DD(200,.141,"DT")="2891026"
^DD(200,.151,0)="EMAIL ADDRESS^FX^^.15;1^K:$L(X)>50!($L(X)<7)!'(X?1.E1""@""1.E) X I $D(X) K:X["",""!(X["" "") X"
^DD(200,.151,3)="Enter valid internet address in xxx@domain format, 7-50 characters in length, no commas or spaces."
^DD(200,.151,21,0)="^.001^13^13^3020509^^"
^DD(200,.151,21,1,0)="This field contains the e-mail address to which an outside person or"
^DD(200,.151,21,2,0)="vendor can send correspondence."
^DD(200,.151,21,3,0)=" "
^DD(200,.151,21,4,0)="(i.e. firstname.lastname@med.va.gov or "
^DD(200,.151,21,5,0)=" lastname.firstname@forum.va.gov or"
^DD(200,.151,21,6,0)=" lastname.firstname_i+@forum.va.gov as in"
^DD(200,.151,21,7,0)=" smith.robert_b+@forum.va.gov for Robert B. Smith on Forum)."
^DD(200,.151,21,8,0)=" "
^DD(200,.151,21,9,0)="(* Note: period replaces comma in lastname.firstname syntax, underscore"
^DD(200,.151,21,10,0)="replaces space, and plus sign replaces period following middle initial for"
^DD(200,.151,21,11,0)="VISTA MailMan addresses.)"
^DD(200,.151,21,12,0)=" "
^DD(200,.151,21,13,0)="This address may appear on documents going to vendors."
^DD(200,.151,"DT")="2990219"
^DD(200,1,0)="INITIAL^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>5!($L(X)<2)!'(X'?.N) X"
^DD(200,1,1,0)="^.1^^-1"
^DD(200,1,1,1,0)="200^C"
^DD(200,1,1,1,1)="S ^VA(200,""C"",$E(X,1,30),DA)="""""
^DD(200,1,1,1,2)="K ^VA(200,""C"",$E(X,1,30),DA)"
^DD(200,1,3)="Answer must be 2-5 characters in length."
^DD(200,1,21,0)="^^2^2^2930415^^^"
^DD(200,1,21,1,0)="These are the initials of the user, which may be entered for naming"
^DD(200,1,21,2,0)="users."
^DD(200,1,"AUDIT")=""
^DD(200,1,"DT")="2950316"
^DD(200,2,0)="ACCESS CODE^FXO^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) Q"
^DD(200,2,.1)=""
^DD(200,2,1,0)="^.1"
^DD(200,2,1,1,0)="200^A^MUMPS"
^DD(200,2,1,1,1)="S ^VA(200,""A"",X,DA)=+$H"
^DD(200,2,1,1,2)="K ^VA(200,""A"",X,DA)"
^DD(200,2,1,1,3)="ACCESS CODE lookup"
^DD(200,2,1,2,0)="200^AOLD^MUMPS"
^DD(200,2,1,2,1)="Q"
^DD(200,2,1,2,2)="S ^VA(200,""AOLD"",X,DA)=+$H"
^DD(200,2,1,2,3)="OLD ACCESS CODES"
^DD(200,2,1,2,"%D",0)="^^2^2^2920513^"
^DD(200,2,1,2,"%D",1,0)="This is a list of used ACCESS CODES that may not be used again untill"
^DD(200,2,1,2,"%D",2,0)="the OLD ACCESS CODE PURGE option is run."
^DD(200,2,1,3,0)="^^TRIGGER^200^202.04"
^DD(200,2,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR"
^DD(200,2,1,3,2)="Q"
^DD(200,2,1,3,3)="DO NOT DELETE"
^DD(200,2,1,3,"%D",0)="^^3^3^3010709^"
^DD(200,2,1,3,"%D",1,0)="This cross reference triggers the ""Entry Last Edit Date"" field with todays"
^DD(200,2,1,3,"%D",2,0)="date.  The Entry Last Edit Date field is used to track when changes are"
^DD(200,2,1,3,"%D",3,0)="made so that we don't disable the account right after it is edited."
^DD(200,2,1,3,"CREATE VALUE")="TODAY"
^DD(200,2,1,3,"DELETE VALUE")="NO EFFECT"
^DD(200,2,1,3,"DT")="3010709"
^DD(200,2,1,3,"FIELD")="#202.04"
^DD(200,2,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(200,2,2.1)="S Y=""<Hidden>"""
^DD(200,2,3)=""
^DD(200,2,4)=""
^DD(200,2,9)="^"
^DD(200,2,9.2)="S XMB=""XUS ACCESS CODE VIOLATION"",XMY(%)=1 D ^XMB K X,XMB"
^DD(200,2,21,0)="^^6^6^2920513^^^^"
^DD(200,2,21,1,0)="This is a unique code to identify a user to the system."
^DD(200,2,21,2,0)="This code is hashed so that it can't be looked up to find out the code."
^DD(200,2,21,3,0)="The access code will appear as a string of numbers, but must be entered"
^DD(200,2,21,4,0)="as a separate entry.  Users who have no access code will not receive"
^DD(200,2,21,5,0)="mail."
^DD(200,2,21,6,0)="*** This field should never be edited directly - do not remove WRITE ACCESS!"
^DD(200,2,"AUDIT")=""
^DD(200,2,"DT")="3010709"
^DD(200,2.1,0)="Want to edit ACCESS CODE (Y/N)^FX^^.1;10^D ACCED^XUS2"
^DD(200,2.1,.1)="ACCESS CODE"
^DD(200,2.1,3)="Enter 'Y' if you wish to edit at this time, 'N' otherwise."
^DD(200,2.1,21,0)="^^2^2^2920513^^^^"
^DD(200,2.1,21,1,0)="Entering a YES to this field calls the KERNEL routine"
^DD(200,2.1,21,2,0)="for entering ACCESS codes. No data is stored for this field."
^DD(200,2.1,"AUDIT")=""
^DD(200,2.2,0)="DATE ACCESS CODE LAST CHANGED^CD^^ ; ^S X=$P(^VA(200,D0,0),U,3) I X]"""",$D(^VA(200,""A"",X,D0)),^(D0) S %H=+^(D0) D YMD^%DTC"
^DD(200,2.2,9)="^"
^DD(200,2.2,9.01)=""
^DD(200,2.2,9.1)="S X=$P(^VA(200,D0,0),U,3) I X]"""",$D(^VA(200,""A"",X,D0)) S %H=+^(D0) D YMD^%DTC"
^DD(200,2.2,21,0)="^^2^2^2920513^^^"
^DD(200,2.2,21,1,0)="This is the date the ACCESS CODE was last changed. It is used"
^DD(200,2.2,21,2,0)="to see that codes are changed on a regular basis."
^DD(200,3,0)="FILE MANAGER ACCESS CODE^FX^^0;4^K:X[""""""""!(X[""@"")!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(200,3,.1)="DUZ(0)"
^DD(200,3,1,0)="^.1^^0"
^DD(200,3,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(200,3,10)="LOGON PROGRAM"
^DD(200,3,11,0)="^.2LAP^^"
^DD(200,3,21,0)="^^2^2^2920513^^^^"
^DD(200,3,21,1,0)="This is the string that is put in DUZ(0) for use by fileman"
^DD(200,3,21,2,0)="to check file and field access."
^DD(200,3,"DT")="2890418"
^DD(200,4,0)="SEX^S^M:MALE;F:FEMALE;^1;2^Q"
^DD(200,4,1,0)="^.1^^0"
^DD(200,4,21,0)="^^1^1^2920513^^"
^DD(200,4,21,1,0)="This is the gender for the new person."
^DD(200,4,"DT")="2890420"
^DD(200,5,0)="DOB^D^^1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,5,1,0)="^.1^^0"
^DD(200,5,21,0)="^^1^1^2920513^^"
^DD(200,5,21,1,0)="This is the date of birth of the new person."
^DD(200,5,"DT")="2890420"
^DD(200,7,0)="DISUSER^S^0:NO;1:YES;^0;7^Q"
^DD(200,7,1,0)="^.1"
^DD(200,7,1,1,0)="^^TRIGGER^200^202.04"
^DD(200,7,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR"
^DD(200,7,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR"
^DD(200,7,1,1,3)="Keep users from repeat lockout."
^DD(200,7,1,1,"%D",0)="^^3^3^3020213^"
^DD(200,7,1,1,"%D",1,0)="This cross reference sets the todays date into field 202.04 to keep the"
^DD(200,7,1,1,"%D",2,0)="XUAUTODEACTIVATE from setting the DISUSER flag after being cleared if the"
^DD(200,7,1,1,"%D",3,0)="user doesn't sign-on that day."
^DD(200,7,1,1,"CREATE VALUE")="TODAY"
^DD(200,7,1,1,"DELETE VALUE")="TODAY"
^DD(200,7,1,1,"DT")="3020213"
^DD(200,7,1,1,"FIELD")="#202.04"
^DD(200,7,3)="Enter YES to disable this user from login-on to the system."
^DD(200,7,21,0)="^^7^7^2940419^"
^DD(200,7,21,1,0)="This field, if set to YES (1), marks a user that is not allowed to"
^DD(200,7,21,2,0)="log on to this system.  It will leave all Menus, Keys and other attributes"
^DD(200,7,21,3,0)="exabled for the user."
^DD(200,7,21,4,0)="An example would be an external support person"
^DD(200,7,21,5,0)="that you only want to be able to log on to your system when you are"
^DD(200,7,21,6,0)="monitoring them.  Setting this field would prevent them from loging"
^DD(200,7,21,7,0)="on to the system untill you cleared the field."
^DD(200,7,"DT")="3020213"
^DD(200,7.2,0)="VERIFY CODE never expires^*S^0:No;1:Yes;^0;8^Q"
^DD(200,7.2,5,1,0)="200^9.2^1"
^DD(200,7.2,12)="Only persons with the proper key can set this field."
^DD(200,7.2,12.1)="S DIC(""S"")=""I Y&$D(^XUSEC(""""XUMGR"""",DUZ))"""
^DD(200,7.2,21,0)="^^6^6^3010330^"
^DD(200,7.2,21,1,0)="This field will control if the users VERIFY code will expire at the"
^DD(200,7.2,21,2,0)="interval set by the Kernel System Parameter LIFETIME OF VERIFY CODE."
^DD(200,7.2,21,3,0)="This field should only be used for access to the VistA system from other"
^DD(200,7.2,21,4,0)="systems making connection with the RPCBroker and have very controlled"
^DD(200,7.2,21,5,0)="access."
^DD(200,7.2,21,6,0)="Only persons with the XUMGR key are allowed to set this flag."
^DD(200,7.2,"DT")="3010330"
^DD(200,8,0)="TITLE^P3.1^DIC(3.1,^0;9^Q"
^DD(200,8,1,0)="^.1^^0"
^DD(200,8,3)=""
^DD(200,8,21,0)="^^1^1^2920513^^"
^DD(200,8,21,1,0)="This is the title for the new person."
^DD(200,8,"DT")="2890418"
^DD(200,9,0)="SSN^FX^^1;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?9N) X I $D(X) S Y=$N(^VA(200,""SSN"",X,0)) I Y>0,$D(^VA(200,Y,0)) S DDH=2,DDH(1,""T"")="""",DDH(2,""T"")=""  Already used by ""_$P(^(0),""^"",1) K X Q"
^DD(200,9,1,0)="^.1^^-1"
^DD(200,9,1,1,0)="200^BS55^MUMPS"
^DD(200,9,1,1,1)="S ^VA(200,""BS5"",$E(^VA(200,DA,0),1)_$E(X,6,9),DA)="""""
^DD(200,9,1,1,2)="K ^VA(200,""BS5"",$E(^VA(200,DA,0),1)_$E(X,6,9),DA)"
^DD(200,9,1,1,"%D",0)="^^2^2^2920513^"
^DD(200,9,1,1,"%D",1,0)="This is the 'BS5' X-ref on the SSN field."
^DD(200,9,1,1,"%D",2,0)="See the 'BS5' X-ref on the name field."
^DD(200,9,1,2,0)="200^SSN"
^DD(200,9,1,2,1)="S ^VA(200,""SSN"",$E(X,1,30),DA)="""""
^DD(200,9,1,2,2)="K ^VA(200,""SSN"",$E(X,1,30),DA)"
^DD(200,9,1,4,0)="200^BS^MUMPS"
^DD(200,9,1,4,1)="S ^VA(200,""BS"",$E(X,6,9),DA)="""""
^DD(200,9,1,4,2)="K ^VA(200,""BS"",$E(X,6,9),DA)"
^DD(200,9,1,4,"%D",0)="^^1^1^2920513^"
^DD(200,9,1,4,"%D",1,0)="This is a X-ref of the last 4 of the SSN."
^DD(200,9,1,5,0)="200^AJ^MUMPS"
^DD(200,9,1,5,1)="S %=X,X=""PRSD450"" X ^%ZOSF(""TEST"") K X I $T S X=% D SET450^PRSD450"
^DD(200,9,1,5,2)="S %=X,X=""PRSD450"" X ^%ZOSF(""TEST"") K X I $T S X=% D KILL450^PRSD450"
^DD(200,9,1,5,"%D",0)="^^3^3^2950428^^^^"
^DD(200,9,1,5,"%D",1,0)="This cross-reference will set or kill the NEW PERSON pointer in the PAID"
^DD(200,9,1,5,"%D",2,0)="EMPLOYEE file and the PAID EMPLOYEE pointer in the NEW PERSON file whenever"
^DD(200,9,1,5,"%D",3,0)="the SSN value is changed or deleted."
^DD(200,9,1,5,"DT")="2950426"
^DD(200,9,3)="ANSWER MUST BE 9 CHARACTERS IN LENGTH"
^DD(200,9,21,0)="^^1^1^2920513^^"
^DD(200,9,21,1,0)="This is the social security number of the new person."
^DD(200,9,"DT")="2950426"
^DD(200,9.2,0)="TERMINATION DATE^DXa^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,9.2,1,0)="^.1"
^DD(200,9.2,1,1,0)="^^TRIGGER^200^7.2"
^DD(200,9.2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" S DIH=$G(^VA(200,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=200,DIG=7.2 D ^DICR"
^DD(200,9.2,1,1,2)="Q"
^DD(200,9.2,1,1,3)="Don't Delete"
^DD(200,9.2,1,1,"%D",0)="^^2^2^3010131^"
^DD(200,9.2,1,1,"%D",1,0)="This triger will delete the ""VERIFY CODE never expires"" field when a"
^DD(200,9.2,1,1,"%D",2,0)="termination date is entered."
^DD(200,9.2,1,1,"CREATE VALUE")="@"
^DD(200,9.2,1,1,"DELETE VALUE")="NO EFFECT"
^DD(200,9.2,1,1,"DT")="3010131"
^DD(200,9.2,1,1,"FIELD")="VERIFY CODE never expires"
^DD(200,9.2,1,2,0)="^^TRIGGER^200^202.04"
^DD(200,9.2,1,2,1)="Q"
^DD(200,9.2,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,1.1)):^(1.1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^VA(200,DIV(0),1.1)),DIV=X S $P(^(1.1),U,4)=DIV,DIH=200,DIG=202.04 D ^DICR"
^DD(200,9.2,1,2,3)="Don't Delete"
^DD(200,9.2,1,2,"%D",0)="^^3^3^3010927^"
^DD(200,9.2,1,2,"%D",1,0)="This cross reference triggers the ""Entry Last Edit Date"" field with todays"
^DD(200,9.2,1,2,"%D",2,0)="date.  The Entry Last Edit Date field is used to track when changes are"
^DD(200,9.2,1,2,"%D",3,0)="made so that we don't disable the account right after it is edited."
^DD(200,9.2,1,2,"CREATE VALUE")="NO EFFECT"
^DD(200,9.2,1,2,"DELETE VALUE")="TODAY"
^DD(200,9.2,1,2,"DT")="3010927"
^DD(200,9.2,1,2,"FIELD")="#202.04"
^DD(200,9.2,21,0)="^.001^4^4^3040805^^^"
^DD(200,9.2,21,1,0)="This is the date after which the computer will no longer recognize this"
^DD(200,9.2,21,2,0)="user's ACCESS CODE."
^DD(200,9.2,21,3,0)="Once this date has passed, when the USER TERMINATE job runs it will clean"
^DD(200,9.2,21,4,0)="out this users data based on flags in the NEW PERSON file."
^DD(200,9.2,"AUDIT")="y"
^DD(200,9.2,"DT")="3040928"
^DD(200,9.21,0)="DELETE ALL MAIL ACCESS^S^y:YES;n:NO;^0;5^Q"
^DD(200,9.21,.1)=""
^DD(200,9.21,3)="When a user is terminated you have the option of deleting all of their mail messages.  This is recommended."
^DD(200,9.21,21,0)="^^4^4^2940809^"
^DD(200,9.21,21,1,0)="This gives you the ability to purge all of a user's mail related"
^DD(200,9.21,21,2,0)="information. This includes Mail messages, Mail Boxes, Mail Groups,"
^DD(200,9.21,21,3,0)="Surrogate privlages when that user is terminated."
^DD(200,9.21,21,4,0)="This is recomended."
^DD(200,9.21,"DT")="2940809"
^DD(200,9.22,0)="DELETE KEYS AT TERMINATION^S^y:YES;n:NO;^0;6^Q"
^DD(200,9.22,.1)=""
^DD(200,9.22,3)="When a user is terminated you have the option of deleting all of their security keys.  This is recommended."
^DD(200,9.22,21,0)="^^3^3^2940809^"
^DD(200,9.22,21,1,0)="This gives you the ability to delete all of a user's security"
^DD(200,9.22,21,2,0)="keys, and delagated keys when the user is terminated."
^DD(200,9.22,21,3,0)="This is recomended."
^DD(200,9.3,0)="TERMINAL TYPE LAST USED^*P3.2'^%ZIS(2,^1.2;1^S DIC(""S"")=""I $P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200,9.3,9)="^"
^DD(200,9.3,12)="Check the SELECTABLE at signon flag"
^DD(200,9.3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)"""
^DD(200,9.3,21,0)="^^2^2^2920513^^"
^DD(200,9.3,21,1,0)="This field holds a pointer to the last terminal type the user selected"
^DD(200,9.3,21,2,0)="at sign-on or in edit user char."
^DD(200,9.3,23,0)="^^3^3^2910322^"
^DD(200,9.3,23,1,0)="This field is set in TT^XUS3 then the user selects a Terminal type"
^DD(200,9.3,23,2,0)="at sign-on.  It is used as the default terminal type for the user"
^DD(200,9.3,23,3,0)="if not asked."
^DD(200,9.3,"DT")="2910322"
^DD(200,9.4,0)="Termination Reason^F^^0;13^K:$L(X)>45!($L(X)<2) X"
^DD(200,9.4,3)="Answer must be 2-45 characters in length."
^DD(200,9.4,21,0)="^^2^2^3010131^"
^DD(200,9.4,21,1,0)="This field holds a short description of why the user has been terminated"
^DD(200,9.4,21,2,0)="or has DISUSER flag set."
^DD(200,9.4,"DT")="3010131"
^DD(200,9.5,0)="USER CLASS^200.07P^^USC3;0"
^DD(200,9.5,"DT")="3041104"
^DD(200,10,0)="ALIAS^200.04^^3;0"
^DD(200,10,9)="#"
^DD(200,10,21,0)="^^1^1^2920513^^^^"
^DD(200,10,21,1,0)="Other names used by this new person."
^DD(200,10.1,0)="NAME COMPONENTS^RP20'I^VA(20,^3.1;1^Q"
^DD(200,10.1,3)="Answer '??' for more help."
^DD(200,10.1,21,0)="^^2^2^2991129^"
^DD(200,10.1,21,1,0)="Answer with the entry in the NAME COMPONENTS file that contains the"
^DD(200,10.1,21,2,0)="components of the person's name."
^DD(200,10.1,"DT")="2991129"
^DD(200,10.6,0)="DEGREE^F^^3.1;6^K:$L(X)>10!($L(X)<1) X"
^DD(200,10.6,3)="Answer must be 1-10 characters in length."
^DD(200,10.6,21,0)="^.001^2^2^3010104^^"
^DD(200,10.6,21,1,0)="This field holds any academic or professional degree that have been earned"
^DD(200,10.6,21,2,0)="by the user. This would be things like BS, BA, MD, and PHD."
^DD(200,10.6,"DT")="3000105"
^DD(200,11,0)="VERIFY CODE^FXOa^^.1;2^Q"
^DD(200,11,1,0)="^.1"
^DD(200,11,1,1,0)="^^TRIGGER^200^11.2"
^DD(200,11,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,.1)):^(.1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(D0=DUZ:$H,1:""60000,1"") S DIH=$G(^VA(200,DIV(0),.1)),DIV=X S $P(^(.1),U,1)=DIV,DIH=200,DIG=11.2 D ^DICR"
^DD(200,11,1,1,1.4)="S DIH=$S($D(^VA(200,DIV(0),.1)):^(.1),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(.1)=DIV_$S(%]"""":U_%,1:""""),DIH=200,DIG=11.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,11,1,1,2)="Q"
^DD(200,11,1,1,3)="Triggers the DATE VERIFY CODE LAST CHANGED field."
^DD(200,11,1,1,"CREATE VALUE")="$S(D0=DUZ:$H,1:""60000,1"")"
^DD(200,11,1,1,"DELETE VALUE")="NO EFFECT"
^DD(200,11,1,1,"DT")="3060511"
^DD(200,11,1,1,"FIELD")="DATE VERIFY CODE LAST CHANGED"
^DD(200,11,1,2,0)="200^VOLD^MUMPS"
^DD(200,11,1,2,1)="Q"
^DD(200,11,1,2,2)="S ^VA(200,DA,""VOLD"",X)=+$H"
^DD(200,11,1,2,"%D",0)="^^3^3^2920513^"
^DD(200,11,1,2,"%D",1,0)="This builds a list of old VERIFY CODEs that this user has had in the past."
^DD(200,11,1,2,"%D",2,0)="It is cleaned  out with the same option the purges the old"
^DD(200,11,1,2,"%D",3,0)="access code X-ref."
^DD(200,11,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(200,11,2.1)="S Y=""<Hidden>"""
^DD(200,11,3)=""
^DD(200,11,9)="^"
^DD(200,11,21,0)="^^8^8^2920513^^^^"
^DD(200,11,21,1,0)="This is the code that is used to verify that the ACCESS CODE was not"
^DD(200,11,21,2,0)="found by accident."
^DD(200,11,21,3,0)="It may be entered at logon time immediately after the ACCESS CODE"
^DD(200,11,21,4,0)="by typing a semicolon, then the VERIFY CODE."
^DD(200,11,21,5,0)=""
^DD(200,11,21,6,0)="Verify codes may be changed by the user with the CHANGE USER CHARACTERISTICS"
^DD(200,11,21,7,0)="option.  The kernel site parameter field LIFETIME OF VERIFY CODE forces"
^DD(200,11,21,8,0)="the user to periodically enter a new verify code."
^DD(200,11,"AUDIT")="y"
^DD(200,11,"DT")="3060511"
^DD(200,11.1,0)="Want to edit VERIFY CODE (Y/N)^FX^^.1;11^D VERED^XUS2"
^DD(200,11.1,.1)="VERIFY CODE"
^DD(200,11.1,3)="Enter 'Y' if you wish to edit at this time, 'N' otherwise."
^DD(200,11.1,21,0)="^^2^2^2920513^^^"
^DD(200,11.1,21,1,0)="Entering a YES to this field calls the KERNEL routine"
^DD(200,11.1,21,2,0)="for entering VERIFY codes. No data is stored for this field."
^DD(200,11.2,0)="DATE VERIFY CODE LAST CHANGED^FOI^^.1;1^"
^DD(200,11.2,2)="S Y(0)=Y S %H=+Y D YMD^%DTC S Y=X X ^DD(""DD"")"
^DD(200,11.2,2.1)="S %H=+Y D YMD^%DTC S Y=X X ^DD(""DD"")"
^DD(200,11.2,5,1,0)="200^11^1"
^DD(200,11.2,9)="^"
^DD(200,11.2,21,0)="^^2^2^2920513^^^^"
^DD(200,11.2,21,1,0)="This field is triggered by a change in the VERIFY CODE.  It is used"
^DD(200,11.2,21,2,0)="to determine when the USER must be notified to change their code."
^DD(200,11.6,0)="ALLOW ARA ACCESS^S^0:NO;1:YES;^.1;6^Q"
^DD(200,11.6,3)="Do you want to allow this USER to have ARA access?"
^DD(200,11.6,21,0)="^^1^1^2950317^"
^DD(200,11.6,21,1,0)="This field is for a control that is under development."
^DD(200,11.6,"DT")="2940506"
^DD(200,11.7,0)="ARA VALUE^F^^.1;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<20) X"
^DD(200,11.7,1,0)="^.1"
^DD(200,11.7,1,1,0)="200^ARA"
^DD(200,11.7,1,1,1)="S ^VA(200,""ARA"",X,DA)="""""
^DD(200,11.7,1,1,2)="K ^VA(200,""ARA"",X,DA)"
^DD(200,11.7,1,1,3)="This is used by GUI to start new processes."
^DD(200,11.7,1,1,"%D",0)="^^2^2^2940506^"
^DD(200,11.7,1,1,"%D",1,0)="This X-ref is used to do a lookup and find a user for network"
^DD(200,11.7,1,1,"%D",2,0)="and new process jobs."
^DD(200,11.7,1,1,"DT")="2940506"
^DD(200,11.7,3)="Answer must be 20-50 characters in length."
^DD(200,11.7,21,0)="^^1^1^2940506^"
^DD(200,11.7,21,1,0)="This value is used to identify the user in non interactive connections."
^DD(200,11.7,"DT")="2940506"
^DD(200,12.1,0)="CURRENT DEGREE LEVEL^*P771.9'^HL(771.9,^12;1^S DIC(""S"")=""I $D(^(51,""""B"""",""""OAA""""))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(200,12.1,3)="Enter the current degree level upon entry into the current training program/residency at this VA medical facility."
^DD(200,12.1,12)="You will only be able to select degrees used by the Office of Academic Affiliations."
^DD(200,12.1,12.1)="S DIC(""S"")=""I $D(^(51,""""B"""",""""OAA""""))"""
^DD(200,12.1,21,0)="^.001^2^2^3030512^^^^"
^DD(200,12.1,21,1,0)="This is the current degree level upon entry into the current training"
^DD(200,12.1,21,2,0)="program/residency at this VA medical facility."
^DD(200,12.1,"DT")="3030516"
^DD(200,12.2,0)="PROGRAM OF STUDY^P8932.2'^USC(8932.2,^12;2^Q"
^DD(200,12.2,3)="Enter a discipline that best describes the current program of study."
^DD(200,12.2,21,0)="^^2^2^3030512^^"
^DD(200,12.2,21,1,0)="This is the discipline that best describes the trainee's current"
^DD(200,12.2,21,2,0)="program of study at this VA medical facility."
^DD(200,12.2,"DT")="3030516"
^DD(200,12.3,0)="LAST TRAINING MONTH & YEAR^FXO^^12;3^S %DT=""EM"" D ^%DT S X=Y K:Y<1 X K:((($E(Y)*100)+1700)+$E(Y,2,3))<2000 X I $D(X) S X=$S($E(Y,4,4)=0:$E(Y,5,5),1:$E(Y,4,5))_""/""_((($E(Y)*100)+1700)+$E(Y,2,3)) K:+$E(X)=0 X"
^DD(200,12.3,2)="S Y(0)=Y I Y'="""" N DIERR D DT^DILF("""",Y,.Y,"""",""DIERR"") S Y=$$FMTE^XLFDT(Y,""D"")"
^DD(200,12.3,2.1)="I Y'="""" N DIERR D DT^DILF("""",Y,.Y,"""",""DIERR"") S Y=$$FMTE^XLFDT(Y,""D"")"
^DD(200,12.3,3)="Answer with MONTH & YEAR.  YEAR can NOT be less than 2000."
^DD(200,12.3,4)="N %DT S %DT=""M"" D HELP^%DTC"
^DD(200,12.3,21,0)="^.001^2^2^3040818^^^^"
^DD(200,12.3,21,1,0)="This is the MONTH and LAST year the trainee anticipates being in a"
^DD(200,12.3,21,2,0)="training program at this VA medical facility."
^DD(200,12.3,"DT")="3070615"
^DD(200,12.4,0)="VHA TRAINING FACILITY^*P4'^DIC(4,^12;4^S DIC(""S"")=""I $$SCRN4^XUOAAUTL(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200,12.4,3)=""
^DD(200,12.4,4)="D HLP1^XUOAAUTL"
^DD(200,12.4,12)="VAMCs, M&ROCs, and RO-OCs only"
^DD(200,12.4,12.1)="S DIC(""S"")=""I $$SCRN4^XUOAAUTL(Y)"""
^DD(200,12.4,"DT")="3050608"
^DD(200,12.5,0)="DATE HL7 TRAINEE RECORD BUILT^D^^12;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,12.5,1,0)="^.1"
^DD(200,12.5,1,1,0)="200^AOAA"
^DD(200,12.5,1,1,1)="S ^VA(200,""AOAA"",$E(X,1,30),DA)="""""
^DD(200,12.5,1,1,2)="K ^VA(200,""AOAA"",$E(X,1,30),DA)"
^DD(200,12.5,1,1,"%D",0)="^^2^2^3040513^"
^DD(200,12.5,1,1,"%D",1,0)="This index is index reflects when the transmission of the trainee record "
^DD(200,12.5,1,1,"%D",2,0)="last took place."
^DD(200,12.5,1,1,"DT")="3040513"
^DD(200,12.5,21,0)="^^2^2^3040513^"
^DD(200,12.5,21,1,0)="This is the date that the trainee information was built and sent to the"
^DD(200,12.5,21,2,0)="OAA server."
^DD(200,12.5,"DT")="3050110"
^DD(200,12.6,0)="CLINICAL CORE TRAINEE^S^Y:YES;N:NO;^12;6^Q"
^DD(200,12.6,3)="Is this person an active Trainee?"
^DD(200,12.6,21,0)="^^1^1^3050923^"
^DD(200,12.6,21,1,0)="This field designates whether or not the person is an active Trainee."
^DD(200,12.6,"DT")="3050105"
^DD(200,12.7,0)="DATE NO LONGER TRAINEE^DX^^12;7^S %DT=""EX"",%DT(0)=""-""_DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(200,12.7,3)="Answer with the Date when this Trainee became inactive. Future dates are not allowed."
^DD(200,12.7,21,0)="^^3^3^3050923^"
^DD(200,12.7,21,1,0)="This is the date when a Registered Trainee is no longer to be considered"
^DD(200,12.7,21,2,0)="an trainee.  This may be at the end of a rotation period or at the end VA"
^DD(200,12.7,21,3,0)="training experience."
^DD(200,12.7,"DT")="3050923"
^DD(200,12.8,0)="START OF TRAINING^D^^12;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,12.8,"DT")="3050105"
^DD(200,13,0)="NICK NAME^F^^.1;4^K:X[""""""""!($A(X)=45) X I $D(X) K:X[""""""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(200,13,1,0)="^.1^^-1"
^DD(200,13,1,1,0)="200^D^MUMPS"
^DD(200,13,1,1,1)="S ^VA(200,""D"",$$UP^XLFSTR($E(X,1,30)),DA)="""""
^DD(200,13,1,1,2)="K ^VA(200,""D"",$$UP^XLFSTR($E(X,1,30)),DA)"
^DD(200,13,1,1,3)="This is a UPPERCASE regular X-ref"
^DD(200,13,1,1,"%D",0)="^^1^1^2941121^"
^DD(200,13,1,1,"%D",1,0)="The X-ref is held in UPPERCASE, it is a regular X-ref otherwise."
^DD(200,13,1,1,"DT")="2941121"
^DD(200,13,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(200,13,4)=""
^DD(200,13,21,0)="^^2^2^2920513^^^^"
^DD(200,13,21,1,0)="This is a string that is used in the sign-on greeting and"
^DD(200,13,21,2,0)="for mailman user lookup."
^DD(200,13,"DT")="2941121"
^DD(200,14,0)="PAC^FX^^.1;5^D LC^XUS K:$L(X)>8!($L(X)<3) X"
^DD(200,14,3)="ANSWER MUST BE 3-8 CHARACTERS IN LENGTH"
^DD(200,14,10)="M"
^DD(200,14,21,0)="^^2^2^2920513^^^"
^DD(200,14,21,1,0)="This is a code to be checked before a user is allowed to get into"
^DD(200,14,21,2,0)="programmer mode."
^DD(200,14.9,0)="HINQ EMPLOYEE NUMBER^FX^^.1;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X I $D(X),$D(^VA(200,""AC"",X)),'$D(^(X,DA)) S DGEMP=X K X"
^DD(200,14.9,1,0)="^.1^^-1"
^DD(200,14.9,1,1,0)="200^AC"
^DD(200,14.9,1,1,1)="S ^VA(200,""AC"",$E(X,1,30),DA)="""""
^DD(200,14.9,1,1,2)="K ^VA(200,""AC"",$E(X,1,30),DA)"
^DD(200,14.9,3)="Answer Must be 4 digits and Unique in User file."
^DD(200,14.9,4)="I $D(DGEMP),$D(^VA(200,""AC"",DGEMP)),'$D(^(DGEMP,DA)) S %=$O(^VA(200,""AC"",DGEMP,0)) W ?5,""Employee number '"",DGEMP,""' Already assigned to user, "",$S($D(^VA(200,%,0)):$P(^(0),""^""),1:%) K DGEMP"
^DD(200,14.9,21,0)="^^2^2^2920513^^"
^DD(200,14.9,21,1,0)="The employee number associated with HINQ passwords from the DVB should"
^DD(200,14.9,21,2,0)="be entered here."
^DD(200,14.9,"DT")="2920630"
^DD(200,15,0)="PROHIBITED TIMES FOR SIGN-ON^F^^0;12^K:$L(X)>9!($L(X)<9)!'(X?4N1""-""4N) X"
^DD(200,15,3)="Time range that this user may not sign-on."
^DD(200,15,21,0)="^^4^4^2920513^^^^"
^DD(200,15,21,1,0)="This is a pair of times within which the user will not be allowed"
^DD(200,15,21,2,0)="access to the computer."
^DD(200,15,21,3,0)="They should be entered in Military format, for example 0900-1300 would"
^DD(200,15,21,4,0)="prohibit signons from 9AM to 1PM each day."
^DD(200,16,0)="DIVISION^200.02P^^2;0"
^DD(200,16,21,0)="^^2^2^2920513^^^^"
^DD(200,16,21,1,0)="This is the one or more divisions that this user may sign-on and do"
^DD(200,16,21,2,0)="work for."
^DD(200,19,0)="DELEGATE OF^P200'^VA(200,^19;1^Q"
^DD(200,19,1,0)="^.1"
^DD(200,19,1,1,0)="^^TRIGGER^200^19.1"
^DD(200,19,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,19)):^(19),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200,19,1,1,1.4)"
^DD(200,19,1,1,1.4)="S DIH=$S($D(^VA(200,DIV(0),19)):^(19),1:""""),DIV=X S $P(^(19),U,2)=DIV,DIH=200,DIG=19.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,19,1,1,2)="Q"
^DD(200,19,1,1,"%D",0)="^^1^1^2920513^"
^DD(200,19,1,1,"%D",1,0)="Trigger the DELEGATION DATE field."
^DD(200,19,1,1,"CREATE VALUE")="TODAY"
^DD(200,19,1,1,"DELETE VALUE")="NO EFFECT"
^DD(200,19,1,1,"FIELD")="DELEGATION DATE"
^DD(200,19,21,0)="^^3^3^2920513^^^^"
^DD(200,19,21,1,0)="This field holds the name of the person who has delegated menu manager"
^DD(200,19,21,2,0)="authority to the user.  The user is thus the 'delegate of' the person"
^DD(200,19,21,3,0)="named here."
^DD(200,19,"DT")="2890416"
^DD(200,19.1,0)="DELEGATION DATE^D^^19;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,19.1,5,1,0)="200^19^1"
^DD(200,19.1,21,0)="^^1^1^2920513^^"
^DD(200,19.1,21,1,0)="This field records the data that the user became a delegate."
^DD(200,19.1,"DT")="2880120"
^DD(200,19.2,0)="DELEGATION LEVEL^NJ3,0^^19;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(200,19.2,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(200,19.2,21,0)="^^5^5^2920513^^^"
^DD(200,19.2,21,1,0)="This field records the level of delegation authority with respect to"
^DD(200,19.2,21,2,0)="the systems manager, level zero.  When the systems manager delegates"
^DD(200,19.2,21,3,0)="authority to someone else, that person will be at level one.  Levels"
^DD(200,19.2,21,4,0)="are maintained so that lower level delegates cannot interfere with"
^DD(200,19.2,21,5,0)="the menus of higher level delegates."
^DD(200,19.2,"DT")="2880120"
^DD(200,19.4,0)="ALERT DATE/TIME^200.194DA^^XQA;0"
^DD(200,19.4,21,0)="^^2^2^2930402^"
^DD(200,19.4,21,1,0)="This is a multiple field which is used to generate alerts to the users."
^DD(200,19.4,21,2,0)="The data for alerts is filed by date and time."
^DD(200,19.5,0)="DELEGATED OPTIONS^200.19P^^19.5;0"
^DD(200,19.5,21,0)="^^2^2^2920513^^^^"
^DD(200,19.5,21,1,0)="This is a sub-file of pointers to the Option File which detail those"
^DD(200,19.5,21,2,0)="options this user may delegate to others."
^DD(200,19.6,0)="ALLOWABLE NEW MENU PREFIX^200.196^^19.6;0"
^DD(200,19.6,21,0)="^^2^2^2920513^^^"
^DD(200,19.6,21,1,0)="This subfile holds the set of namespaces available to this user in"
^DD(200,19.6,21,2,0)="the creation of menus with delegated options."
^DD(200,19.8,0)="MENU TEMPLATE^200.198A^^19.8;0"
^DD(200,19.8,21,0)="^^3^3^2930407^^^"
^DD(200,19.8,21,1,0)="This multiple holds sets of predefined menus which can be envoked by"
^DD(200,19.8,21,2,0)="the user by entering a right-square-bracket (""["") followed by a"
^DD(200,19.8,21,3,0)="template's name."
^DD(200,20,0)="UCI^200.01^^.2;0"
^DD(200,20,21,0)="^^2^2^2920513^^"
^DD(200,20,21,1,0)="This is the set of UCI's that this user must choose from at sign-on"
^DD(200,20,21,2,0)="time."
^DD(200,20.1,0)="DATE E-SIG LAST CHANGED^FO^^20;1^K:$L(X)>6!($L(X)<5)!'(X?5.6N) X"
^DD(200,20.1,2)="S Y(0)=Y S %H=+Y D YMD^%DTC S Y=X X ^DD(""DD"")"
^DD(200,20.1,2.1)="S %H=+Y D YMD^%DTC S Y=X X ^DD(""DD"")"
^DD(200,20.1,3)="Answer must be 5-6 characters in length."
^DD(200,20.1,5,1,0)="200^20.4^2"
^DD(200,20.1,21,0)="^^2^2^2951002^^"
^DD(200,20.1,21,1,0)="A $H date of the last time the E-Sig code was changed. Triggered by a"
^DD(200,20.1,21,2,0)="X-ref on the ELECTRONIC SIGNATURE CODE field."
^DD(200,20.1,"DT")="2951002"
^DD(200,20.2,0)="SIGNATURE BLOCK PRINTED NAME^FX^^20;2^K:X[""""""""!($A(X)=45)!($L(X)>40)!($L(X)<2) X I $D(X) K:$$FORMAT^XLFNAME7(X,2,40,,0,,1)'[$P(^VA(200,DA,0),"","") X"
^DD(200,20.2,1,0)="^.1^^0"
^DD(200,20.2,3)="Enter your name as you want it to appear on official documents"
^DD(200,20.2,9)="^"
^DD(200,20.2,21,0)="^^6^6^3010808^"
^DD(200,20.2,21,1,0)="The name entered must contain the surname of the user."
^DD(200,20.2,21,2,0)="The name must be 2 to 40 characters in length."
^DD(200,20.2,21,3,0)=" "
^DD(200,20.2,21,4,0)="This field can then contain the name of the user as they wish it to"
^DD(200,20.2,21,5,0)="be displayed with the notation that they signed the document electronically."
^DD(200,20.2,21,6,0)="For example:  John R. Doe, M.D.   or    Fred A. Sample, RN."
^DD(200,20.2,"DT")="3050401"
^DD(200,20.3,0)="SIGNATURE BLOCK TITLE^F^^20;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<2) X"
^DD(200,20.3,1,0)="^.1^^0"
^DD(200,20.3,3)="Enter your title, e.g., Chief of Surgery."
^DD(200,20.3,21,0)="^^7^7^3010808^"
^DD(200,20.3,21,1,0)="This field should contain the title of the person who is electronically"
^DD(200,20.3,21,2,0)="signing a document.  Examples of titles are Chief of Surgery, Dietician,"
^DD(200,20.3,21,3,0)="Clinical Pharmacist, etc.  This title will print next to the name of the"
^DD(200,20.3,21,4,0)="person who signs the document.  The person's name will be taken from the"
^DD(200,20.3,21,5,0)="SIGNATURE BLOCK PRINTED NAME field."
^DD(200,20.3,21,6,0)=" "
^DD(200,20.3,21,7,0)="The title must be 2 to 50 characters in length."
^DD(200,20.3,"DT")="3010808"
^DD(200,20.4,0)="ELECTRONIC SIGNATURE CODE^FOX^^20;4^K:$L(X)>20!($L(X)<6) X I $D(X) D HASH^XUSHSHP"
^DD(200,20.4,1,0)="^.1^^-1"
^DD(200,20.4,1,2,0)="^^TRIGGER^200^20.1"
^DD(200,20.4,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,20)):^(20),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=+$H X ^DD(200,20.4,1,2,1.4)"
^DD(200,20.4,1,2,1.4)="S DIH=$S($D(^VA(200,DIV(0),20)):^(20),1:""""),DIV=X S $P(^(20),U,1)=DIV,DIH=200,DIG=20.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,20.4,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,20)):^(20),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(200,20.4,1,2,2.4)"
^DD(200,20.4,1,2,2.4)="S DIH=$S($D(^VA(200,DIV(0),20)):^(20),1:""""),DIV=X S $P(^(20),U,1)=DIV,DIH=200,DIG=20.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,20.4,1,2,3)="Required to meet needs."
^DD(200,20.4,1,2,"%D",0)="^^2^2^2960705^"
^DD(200,20.4,1,2,"%D",1,0)="This X-ref sets the DATE E-SIG LAST CHANGED so we can expire the E-sig"
^DD(200,20.4,1,2,"%D",2,0)="after the VERIFY code lifetime days as the G.C. asked us to do."
^DD(200,20.4,1,2,"CREATE VALUE")="S X=+$H"
^DD(200,20.4,1,2,"DELETE VALUE")="@"
^DD(200,20.4,1,2,"DT")="2960705"
^DD(200,20.4,1,2,"FIELD")="#20.1"
^DD(200,20.4,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(200,20.4,2.1)="S Y=""<Hidden>"""
^DD(200,20.4,3)="Enter your code (6-20 chars); it won't display!"
^DD(200,20.4,21,0)="^^4^4^2920706^^"
^DD(200,20.4,21,1,0)="This field contains the encrypted code which the user types when"
^DD(200,20.4,21,2,0)="signing documents electronically.  The user's input will be compared to"
^DD(200,20.4,21,3,0)="this field when validating his electronic signature."
^DD(200,20.4,21,4,0)="All electronic signature codes should be treated as confidential."
^DD(200,20.4,"DT")="2960705"
^DD(200,28,0)="MAIL CODE^F^^5;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X"
^DD(200,28,.1)="VA HOSPITAL SERVICE NUMBER, I.E. 116A FOR PSYCHIATRY, 116B FOR PSYCHOLOGY, ETC"
^DD(200,28,1,0)="^.1^^0"
^DD(200,28,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(200,28,10)="SYSTEM MANAGER"
^DD(200,28,21,0)="^^1^1^2920317^"
^DD(200,28,21,1,0)="This is the mail code for the new person."
^DD(200,28,"DT")="2890418"
^DD(200,29,0)="SERVICE/SECTION^RP49'^DIC(49,^5;1^Q"
^DD(200,29,1,0)="^.1"
^DD(200,29,1,1,0)="200^E"
^DD(200,29,1,1,1)="S ^VA(200,""E"",$E(X,1,30),DA)="""""
^DD(200,29,1,1,2)="K ^VA(200,""E"",$E(X,1,30),DA)"
^DD(200,29,1,1,"DT")="3000218"
^DD(200,29,21,0)="^^1^1^2920317^"
^DD(200,29,21,1,0)="This is the name of the service or section for the new person."
^DD(200,29,"DT")="3000218"
^DD(200,30,0)="DATE ENTERED^D^^1;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,30,9)="^"
^DD(200,30,21,0)="^^2^2^2851003^"
^DD(200,30,21,1,0)="This is the date on which the user was entered into the user file."
^DD(200,30,21,2,0)="It is automatically inserted into the file by the ADD USER option."
^DD(200,31,0)="CREATOR^P200^VA(200,^1;8^Q"
^DD(200,31,9)="^"
^DD(200,31,21,0)="^^2^2^2851003^"
^DD(200,31,21,1,0)="This is the name of the user who entered this user into the user file."
^DD(200,31,21,2,0)="It is automatically set by the ADD USER option."
^DD(200,31,"DT")="2870731"
^DD(200,31.1,0)="FILE RANGE^FX^^1;1^K:$L(X)>30!($L(X)<1)!(X<2)!'(X?1.N.1""."".2N1""-""1.N.1""."".2N) X I $D(X),$P(X,""-"",2)'>$P(X,""-"") K X"
^DD(200,31.1,3)="Enter a range of numbers, e.g., 10000-10000.99.  The second number must be larger than the first."
^DD(200,31.1,21,0)="2^^3^3^2880706^^"
^DD(200,31.1,21,1,0)="This field limits a user to a specific range of file numbers.  When"
^DD(200,31.1,21,2,0)="creating new files, only a number within this range can be assigned"
^DD(200,31.1,21,3,0)="to the new file."
^DD(200,31.1,"DT")="2880712"
^DD(200,31.2,0)="TEXT TERMINATOR^F^^1;4^K:$L(X)>5!($L(X)<1) X"
^DD(200,31.2,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(200,31.2,21,0)="^^8^8^2890124^"
^DD(200,31.2,21,1,0)="If specified, the character string in this field will be used instead"
^DD(200,31.2,21,2,0)="of a carriage return to mark the end of word-processing text.  It will"
^DD(200,31.2,21,3,0)="be used in all VA FileMan word-processing contexts, e.g. in mail"
^DD(200,31.2,21,4,0)="messages.  It can facilitate the uploading of files from a PC"
^DD(200,31.2,21,5,0)="environment."
^DD(200,31.2,21,6,0)=" "
^DD(200,31.2,21,7,0)="Note that the VA FileMan edit menu provides an option for temporarily"
^DD(200,31.2,21,8,0)="specifying a text terminator for that edit session only."
^DD(200,31.2,"DT")="2880630"
^DD(200,31.3,0)="PREFERRED EDITOR^P1.2'^DIST(1.2,^1;5^Q"
^DD(200,31.3,21,0)="^^5^5^2920702^"
^DD(200,31.3,21,1,0)="If an entry exists in this field, then whenever a user edits data in a"
^DD(200,31.3,21,2,0)="FileMan word-processing field, they will automatically be transferred into"
^DD(200,31.3,21,3,0)="their preferred editor.  If this field is blank, then the default editor"
^DD(200,31.3,21,4,0)="will be either the FileMan screen editor when editing within ScreenMan"
^DD(200,31.3,21,5,0)="format, or the standard FileMan line editor in all other cases."
^DD(200,31.3,"DT")="2910307"
^DD(200,32,0)="ACCESSIBLE FILE^200.032PA^^FOF;0"
^DD(200,32,9)="^"
^DD(200,32,21,0)="^^6^6^2940627^^^"
^DD(200,32,21,1,0)="This multiple-valued field contains the list of files the user may access."
^DD(200,32,21,2,0)="The type of access granted to the user is included for each file that"
^DD(200,32,21,3,0)="appears on the list.  The user may be allowed to look at records (READ"
^DD(200,32,21,4,0)="access), edit existing records (WRITE access), add new record (LAYGO"
^DD(200,32,21,5,0)="access), delete records (DELETE access), or modify the file structure"
^DD(200,32,21,6,0)="(DATA DICTIONARY ACCESS)."
^DD(200,41,0)="ALLOWED TO USE SPOOLER^S^y:YES;n:NO;^SPL;1^Q"
^DD(200,41,3)="Is this user allowed to spool documents?"
^DD(200,41,21,0)="^^2^2^2890124^"
^DD(200,41,21,1,0)="If set to 'YES', this user will be able to use the spool device to"
^DD(200,41,21,2,0)="create spool documents."
^DD(200,41,"DT")="2880203"
^DD(200,41.1,0)="MULTI-DEVICE DESPOOLING^S^y:YES;n:NO;^SPL;2^Q"
^DD(200,41.1,3)="Can user despool to multiple devices at once."
^DD(200,41.1,21,0)="^^2^2^2890124^^"
^DD(200,41.1,21,1,0)="If set to 'YES', the user will be able to print (despool) a spooled"
^DD(200,41.1,21,2,0)="document to more than one device simultaneously."
^DD(200,41.1,"DT")="2880203"
^DD(200,41.2,0)="CAN MAKE INTO A MAIL MESSAGE^S^y:YES;n:NO;^SPL;3^Q"
^DD(200,41.2,21,0)="^^5^5^2890124^"
^DD(200,41.2,21,1,0)="If set to 'YES', the document is given the status of a mail message and"
^DD(200,41.2,21,2,0)="the user will be able to use all MailMan functions such as copying and"
^DD(200,41.2,21,3,0)="forwarding.  As a mail message, the document can no longer be manipulated"
^DD(200,41.2,21,4,0)="with the spooler since its flag in the Spool Document File has been"
^DD(200,41.2,21,5,0)="deleted."
^DD(200,41.2,"DT")="2880215"
^DD(200,41.98,0)="NPI ENTRY STATUS^S^N:NEEDS ENTRY;E:EXEMPT;D:DONE;^NPI;2^Q"
^DD(200,41.98,3)="This field is filled in automatically if needed."
^DD(200,41.98,21,0)="^^10^10^3060508^"
^DD(200,41.98,21,1,0)="This field is used in tracking the entry status of NPI d ata for those"
^DD(200,41.98,21,2,0)="providers who require an NPI.  The providers needing this value are"
^DD(200,41.98,21,3,0)="identified based on data entered in the PERSON CLASS subfile which"
^DD(200,41.98,21,4,0)="indicates providers that may be related to billing activities."
^DD(200,41.98,21,5,0)=" "
^DD(200,41.98,21,6,0)="The value is initially set to N or NEEDS ENTRY.  It can be changed to E or"
^DD(200,41.98,21,7,0)="EXEMPT for individuals who have been identified, but who due to"
^DD(200,41.98,21,8,0)="administrative activities, etc., will not be involved in activities"
^DD(200,41.98,21,9,0)="requiring billing.  When the NPI value is entered, the value is changed to"
^DD(200,41.98,21,10,0)="D or DONE."
^DD(200,41.98,"DT")="3060508"
^DD(200,41.99,0)="NPI^FX^^NPI;1^K:'($$CHKDGT^XUSNPIE1(X,DA,""Individual_ID"")) X"
^DD(200,41.99,1,0)="^.1^^-1"
^DD(200,41.99,1,1,0)="200^ANPI"
^DD(200,41.99,1,1,1)="S ^VA(200,""ANPI"",$E(X,1,30),DA)="""""
^DD(200,41.99,1,1,2)="K ^VA(200,""ANPI"",$E(X,1,30),DA)"
^DD(200,41.99,1,1,"%D",0)="^^1^1^3060301^"
^DD(200,41.99,1,1,"%D",1,0)="File entries by NPI."
^DD(200,41.99,1,1,"DT")="3060301"
^DD(200,41.99,3)="Answer must be 10 digit value assigned by Centers for Medicare and Medicaid Services (CMS)."
^DD(200,41.99,21,0)="^^6^6^3070918^"
^DD(200,41.99,21,1,0)="Each VHA Billable Practitioner should have applied for the NPI through"
^DD(200,41.99,21,2,0)="CMS' National Plan and Provider Enumeration System (NPPES).  NPI"
^DD(200,41.99,21,3,0)="Confirmation Letters are sent by CMS and indicate the NPI assigned."
^DD(200,41.99,21,4,0)="Practitioners may present their NPI Confirmation Letter as a source"
^DD(200,41.99,21,5,0)="document to verify the accuracy of the NPI or you may contact your Local"
^DD(200,41.99,21,6,0)="NPI Maintenance Team Leader for assistance."
^DD(200,41.99,"DT")="3070918"
^DD(200,42,0)="EFFECTIVE DATE/TIME^200.042D^^NPISTATUS;0"
^DD(200,42,"DT")="3060425"
^DD(200,50.1,0)="KEY DELEGATION LEVEL^NJ3,0^^50;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200,50.1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(200,50.1,21,0)="^^2^2^2911230^"
^DD(200,50.1,21,1,0)="This a simple, numeric value which prevents removing delegated keys"
^DD(200,50.1,21,2,0)="from someone with a lower level number."
^DD(200,50.1,"DT")="2890926"
^DD(200,51,0)="KEYS^200.051PA^^51;0"
^DD(200,51,12)="The person granting must hold as a delegated key which s/he may re-delegate."
^DD(200,51,12.1)="S DIC(""S"")=""I DUZ(0)=""""@""""!$D(^VA(200,DUZ,52,Y,0))"""
^DD(200,51,21,0)="^^2^2^2920508^^^^"
^DD(200,51,21,1,0)="These are ""keys"" that define the characteristic(s), authorization(s), or"
^DD(200,51,21,2,0)="privilege(s) of the person."
^DD(200,51,"DT")="2890926"
^DD(200,52,0)="DELEGATED KEYS^200.052P^^52;0"
^DD(200,52,12)="The person granting must hold as a delegated key which s/he may re-delegate."
^DD(200,52,12.1)="S DIC(""S"")=""I DUZ(0)=""""@""""!$S('$D(^VA(200,DUZ,52,Y,0)):0,1:$P(^(0),U,4)"""
^DD(200,52,21,0)="^^2^2^2920423^"
^DD(200,52,21,1,0)="This subfile contains pointers to the Key File of those keys that"
^DD(200,52,21,2,0)="this person is allowed to allocate to other users."
^DD(200,52,"DT")="2920423"
^DD(200,53.1,0)="AUTHORIZED TO WRITE MED ORDERS^S^1:YES;^PS;1^Q"
^DD(200,53.1,3)="Enter '1' or 'Yes' if provider is authorized to write orders."
^DD(200,53.1,20,0)="^.3LA^1^1"
^DD(200,53.1,20,1,0)="PS"
^DD(200,53.1,20,2,0)="PSO"
^DD(200,53.1,21,0)="^^1^1^2930506^"
^DD(200,53.1,21,1,0)="This field is used to determin if the provider is authorized to write orders."
^DD(200,53.1,23,0)="^^1^1^2920930^^"
^DD(200,53.1,23,1,0)="set of codes"
^DD(200,53.1,"DT")="2960430"
^DD(200,53.2,0)="DEA#^FX^^PS;2^K:'$$VALDEA^XUSER2(X) X"
^DD(200,53.2,1,0)="^.1^^-1"
^DD(200,53.2,1,1,0)="200^PS1"
^DD(200,53.2,1,1,1)="S ^VA(200,""PS1"",$E(X,1,30),DA)="""""
^DD(200,53.2,1,1,2)="K ^VA(200,""PS1"",$E(X,1,30),DA)"
^DD(200,53.2,1,1,3)="Lookup providers by their DEA number"
^DD(200,53.2,1,1,"%D",0)="^^1^1^2931208^^"
^DD(200,53.2,1,1,"%D",1,0)="This was 'APS1' before.  Also used to stop duplicate numbers."
^DD(200,53.2,1,1,"DT")="2930924"
^DD(200,53.2,3)="Enter the DEA number 2 letters 7 numbers."
^DD(200,53.2,4)="W:$X>5 ! W ?5,""Enter the DEA number as two upper case letters followed by 7 digits"",!,?5,""e.g. AA1234567.  Each provider must have a unique number."",!"
^DD(200,53.2,20,0)="^.3LA^1^1"
^DD(200,53.2,20,1,0)="PS"
^DD(200,53.2,20,2,0)="PSO"
^DD(200,53.2,21,0)="^^3^3^3021223^"
^DD(200,53.2,21,1,0)="This field is used to enter the drug enforcement agency (DEA) number."
^DD(200,53.2,21,2,0)="Enter the DEA number as two upper case letters followed by 7 digits."
^DD(200,53.2,21,3,0)="e.g. AA1234567.  Each provider must have a unique number."
^DD(200,53.2,23,0)="^^21^21^3021223^"
^DD(200,53.2,23,1,0)="This is the algorithm for DEA # checking."
^DD(200,53.2,23,2,0)=""
^DD(200,53.2,23,3,0)="The first letter for practitioners (physicians, dentists, veterinarians,"
^DD(200,53.2,23,4,0)="pharmacies etc.) is either an ""A"" or ""B"""
^DD(200,53.2,23,5,0)=" "
^DD(200,53.2,23,6,0)="The second letter should be the first letter of the practitioner's last"
^DD(200,53.2,23,7,0)="name.  Sometimes this does not match if the registrant changed their name "
^DD(200,53.2,23,8,0)="or the DEA did not get it correct the first time."
^DD(200,53.2,23,9,0)=" "
^DD(200,53.2,23,10,0)="The check digit algorithm is as follows:"
^DD(200,53.2,23,11,0)=" "
^DD(200,53.2,23,12,0)="AS1234563"
^DD(200,53.2,23,13,0)=" "
^DD(200,53.2,23,14,0)="1 + 3 + 5 =   9"
^DD(200,53.2,23,15,0)="2 + 4 + 6 = 12 x 2 = 24"
^DD(200,53.2,23,16,0)=" "
^DD(200,53.2,23,17,0)="9 + 24 = 33"
^DD(200,53.2,23,18,0)=" "
^DD(200,53.2,23,19,0)="The last digit of the total must equal the check digit (the last"
^DD(200,53.2,23,20,0)="digit of the DEA number)."
^DD(200,53.2,23,21,0)="(33#10)=$E(""AS1234563"",9)"
^DD(200,53.2,"DT")="3021223"
^DD(200,53.3,0)="VA#^FX^^PS;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X I $D(X),$D(^VA(200,""PS2"",X)),$O(^(X,0))'=DA,$S('$D(^VA(200,+$O(^VA(200,""PS2"",X,0)),""PS"")):0,'$P(^(""PS""),""^"",4):1,1:$P(^(""PS""),""^"",4)'<DT) K X W !,*7,?5,""DUPLICATE VA #"",!"
^DD(200,53.3,1,0)="^.1^^-1"
^DD(200,53.3,1,1,0)="200^PS2"
^DD(200,53.3,1,1,1)="S ^VA(200,""PS2"",$E(X,1,30),DA)="""""
^DD(200,53.3,1,1,2)="K ^VA(200,""PS2"",$E(X,1,30),DA)"
^DD(200,53.3,1,1,3)="Lookup providers by their VA number"
^DD(200,53.3,1,1,"%D",0)="^^1^1^2931208^^"
^DD(200,53.3,1,1,"%D",1,0)="This was 'APS2' before. Also used to stop duplicate numbers."
^DD(200,53.3,1,1,"DT")="2930924"
^DD(200,53.3,3)="Enter the VA number 3 to 10 characters."
^DD(200,53.3,4)="W !,?5,""Enter the VA number.  VA number must be unique among active providers."",!"
^DD(200,53.3,20,0)="^.3LA^1^1"
^DD(200,53.3,20,1,0)="PS"
^DD(200,53.3,20,2,0)="PSO"
^DD(200,53.3,21,0)="^^1^1^2930506^"
^DD(200,53.3,21,1,0)="This field is used to enter the VA number."
^DD(200,53.3,"DT")="2930924"
^DD(200,53.4,0)="INACTIVE DATE^D^^PS;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,53.4,1,0)="^.1^^0"
^DD(200,53.4,3)="Enter the date after which this person may not write medication orders."
^DD(200,53.4,20,0)="^.3LA^1^1"
^DD(200,53.4,20,1,0)="PS"
^DD(200,53.4,20,2,0)="PSO"
^DD(200,53.4,21,0)="^^2^2^2930506^"
^DD(200,53.4,21,1,0)="This field is used to show the inactive date of a provider whereas they"
^DD(200,53.4,21,2,0)="can no longer write orders."
^DD(200,53.4,23,0)="^^1^1^2970204^^^"
^DD(200,53.4,23,1,0)="date"
^DD(200,53.4,"DT")="2931020"
^DD(200,53.5,0)="PROVIDER CLASS^P7'^DIC(7,^PS;5^Q"
^DD(200,53.5,1,0)="^.1^^-1"
^DD(200,53.5,1,2,0)="^^TRIGGER^46.11^.03"
^DD(200,53.5,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(200,53.5,1,2,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=200 X ^DD(200,53.5,1,2,1.4)"
^DD(200,53.5,1,2,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,3)=DIV,DIH=46.11,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,53.5,1,2,2)="Q"
^DD(200,53.5,1,2,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMFL"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(200,53.5,1,2,"%D",0)="^^2^2^2991018^"
^DD(200,53.5,1,2,"%D",1,0)="Trigger the New Person file number (#200) into the RAI MDS MONITOR"
^DD(200,53.5,1,2,"%D",2,0)="file whenever the New Person Provider Class is changed or added."
^DD(200,53.5,1,2,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(200,53.5,1,2,"CREATE VALUE")="S X=200"
^DD(200,53.5,1,2,"DELETE VALUE")="NO EFFECT"
^DD(200,53.5,1,2,"DIC")="LOOKUP"
^DD(200,53.5,1,2,"DT")="2991018"
^DD(200,53.5,1,2,"FIELD")="NAME:RAI MDS MONITOR:#.03"
^DD(200,53.5,1,3,0)="^^TRIGGER^46.11^.04"
^DD(200,53.5,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(200,53.5,1,3,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DA X ^DD(200,53.5,1,3,1.4)"
^DD(200,53.5,1,3,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,4)=DIV,DIH=46.11,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,53.5,1,3,2)="Q"
^DD(200,53.5,1,3,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(200,53.5,1,3,"%D",0)="^^1^1^2991018^"
^DD(200,53.5,1,3,"%D",1,0)="Trigger the internal entry number of the entry changed or added into the New Person file, into the RAI MDS MONITOR file."
^DD(200,53.5,1,3,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(200,53.5,1,3,"CREATE VALUE")="S X=DA"
^DD(200,53.5,1,3,"DELETE VALUE")="NO EFFECT"
^DD(200,53.5,1,3,"DIC")="LOOKUP"
^DD(200,53.5,1,3,"DT")="2991018"
^DD(200,53.5,1,3,"FIELD")="NAME:RAI MDS MONITOR:#.04"
^DD(200,53.5,3)="Enter provider class of provider (MD, PA etc)."
^DD(200,53.5,20,0)="^.3LA^1^1"
^DD(200,53.5,20,1,0)="PS"
^DD(200,53.5,20,2,0)="PSO"
^DD(200,53.5,21,0)="^^1^1^2930506^"
^DD(200,53.5,21,1,0)="This field is used to show the providers class."
^DD(200,53.5,"DT")="2991018"
^DD(200,53.6,0)="PROVIDER TYPE^S^1:FULL TIME;2:PART TIME;3:C & A;4:FEE BASIS;5:HOUSE STAFF;^PS;6^Q"
^DD(200,53.6,1,0)="^.1^^0"
^DD(200,53.6,3)="Enter type of provider."
^DD(200,53.6,20,0)="^.3LA^1^1"
^DD(200,53.6,20,1,0)="PS"
^DD(200,53.6,20,2,0)="PSO"
^DD(200,53.6,21,0)="^^1^1^2930506^"
^DD(200,53.6,21,1,0)="This field is used to show the type of provider (staff, fee, etc.)"
^DD(200,53.6,23,0)="^^1^1^2920930^^"
^DD(200,53.6,23,1,0)="set of codes."
^DD(200,53.6,"DT")="2931208"
^DD(200,53.7,0)="REQUIRES COSIGNER^S^1:YES;^PS;7^Q"
^DD(200,53.7,3)="Enter yes if medication orders written by this person must be cosigned by another provider of care."
^DD(200,53.7,20,0)="^.3LA^1^1"
^DD(200,53.7,20,1,0)="PS"
^DD(200,53.7,20,2,0)="PSO"
^DD(200,53.7,21,0)="^^1^1^2930506^"
^DD(200,53.7,21,1,0)="This field is used to determine if the provider needs a cosigner."
^DD(200,53.7,23,0)="^^1^1^2920930^"
^DD(200,53.7,23,1,0)="set of codes."
^DD(200,53.7,"DT")="2891012"
^DD(200,53.8,0)="USUAL COSIGNER^*P200'^VA(200,^PS;8^S DIC(""S"")=""I $D(^(""""PS"""")),$P(^(""""PS""""),""""^""""),'$P(^(""""PS""""),""""^"""",7),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200,53.8,3)="Select cosigner."
^DD(200,53.8,12)="Only active providers of care who do not themselves require a cosigner"
^DD(200,53.8,12.1)="S DIC(""S"")=""I $D(^(""""PS"""")),$P(^(""""PS""""),""""^""""),'$P(^(""""PS""""),""""^"""",7),$S('$P(^(""""PS""""),""""^"""",4):1,1:$P(^(""""PS""""),""""^"""",4)'<DT)"""
^DD(200,53.8,20,0)="^.3LA^1^1"
^DD(200,53.8,20,1,0)="PS"
^DD(200,53.8,20,2,0)="PSO"
^DD(200,53.8,21,0)="^^1^1^2930506^"
^DD(200,53.8,21,1,0)="This field is used to show the usual cosigner for the provider."
^DD(200,53.8,23,0)="^^1^1^2920930^"
^DD(200,53.8,23,1,0)="pointer."
^DD(200,53.8,"DT")="2891012"
^DD(200,53.9,0)="REMARKS^F^^PS;9^K:$L(X)>60!($L(X)<1) X"
^DD(200,53.9,.1)="REMARKS"
^DD(200,53.9,3)="Enter remarks about this provider to be displayed when s/he is selected during order entry."
^DD(200,53.9,20,0)="^.3LA^1^1"
^DD(200,53.9,20,1,0)="PS"
^DD(200,53.9,20,2,0)="PSO"
^DD(200,53.9,21,0)="^^1^1^2920930^"
^DD(200,53.9,21,1,0)="This field is used to enter remarks and or comments about the provider."
^DD(200,53.9,23,0)="^^1^1^2920930^"
^DD(200,53.9,23,1,0)="free text"
^DD(200,53.9,"DT")="2891012"
^DD(200,53.91,0)="NON-VA PRESCRIBER^S^1:YES;0:NO;^TPB;1^Q"
^DD(200,53.91,21,0)="^^6^6^3030829^"
^DD(200,53.91,21,1,0)="The Transitional Pharmacy Care Project (TPB) introduces fields 53.91 - "
^DD(200,53.91,21,2,0)="53.96, to allow a NON-VA Physician to be added to the New Person file"
^DD(200,53.91,21,3,0)="(#200), so that Outpatient Pharmacy could process medication prescribed by"
^DD(200,53.91,21,4,0)="such physicians."
^DD(200,53.91,21,5,0)=" "
^DD(200,53.91,21,6,0)="A value of 1 indicates that this person is a NON-VA Physician."
^DD(200,53.91,"DT")="3030829"
^DD(200,53.92,0)="TAX ID^F^^TPB;2^K:$L(X)>10!($L(X)<10)!'(X?2N1""-""7N) X"
^DD(200,53.92,3)="Answer must be 10 characters in length and should be of the format '99-9999999'."
^DD(200,53.92,21,0)="^^2^2^3030829^"
^DD(200,53.92,21,1,0)="TAX ID of the NON-VA Physician's Private Clinic, where the prescription"
^DD(200,53.92,21,2,0)="was written."
^DD(200,53.92,"DT")="3030829"
^DD(200,53.93,0)="EXCLUSIONARY CHECK PERFORMED^S^1:YES;^TPB;3^Q"
^DD(200,53.93,21,0)="^^7^7^3030829^"
^DD(200,53.93,21,1,0)="Department of Health and Human Services provides an exclusionary list of"
^DD(200,53.93,21,2,0)="Medical Practitioners (providers excluded are those who are not allowed to"
^DD(200,53.93,21,3,0)="receive payment for government services due to various reasons). When"
^DD(200,53.93,21,4,0)="adding NON-VA Physicians, they must be checked against this list."
^DD(200,53.93,21,5,0)=" "
^DD(200,53.93,21,6,0)="A value of 1 indicates that an Exclusionary Check was performed for this"
^DD(200,53.93,21,7,0)="physician."
^DD(200,53.93,"DT")="3030829"
^DD(200,53.94,0)="DATE EXCLUSIONARY LIST CHECKED^D^^TPB;4^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(3030801>X) X"
^DD(200,53.94,3)="TYPE A DATE BETWEEN AUG 01, 2003 AND CURRENT DATE"
^DD(200,53.94,21,0)="^^1^1^3030822^"
^DD(200,53.94,21,1,0)="The date Exclusionary Check was performed."
^DD(200,53.94,"DT")="3030822"
^DD(200,53.95,0)="ON EXCLUSIONARY LIST^S^1:YES;0:NO;^TPB;5^Q"
^DD(200,53.95,21,0)="^^2^2^3030904^"
^DD(200,53.95,21,1,0)="Was the NON-VA Physician on the Exclusionary Check List?"
^DD(200,53.95,21,2,0)="A value of 1 indicates that the Physician was on the Exclusionary Check."
^DD(200,53.95,"DT")="3030904"
^DD(200,53.96,0)="EXCLUSIONARY CHECKED BY^P200'^VA(200,^TPB;6^Q"
^DD(200,53.96,21,0)="^^1^1^3030829^"
^DD(200,53.96,21,1,0)="User ID of the person who made the entry."
^DD(200,53.96,"DT")="3030829"
^DD(200,54.1,0)="LICENSING STATE^200.541P^^PS1;0"
^DD(200,54.1,20,0)="^.3LA^1^1"
^DD(200,54.1,20,1,0)="PS"
^DD(200,54.1,20,2,0)="PSO"
^DD(200,54.1,21,0)="^^2^2^2930506^"
^DD(200,54.1,21,1,0)="This multiple contains credentialing information about a provider"
^DD(200,54.1,21,2,0)="that is used by the state."
^DD(200,54.1,23,0)="^^1^1^2921104^"
^DD(200,54.1,23,1,0)="This mulitple utilized by the Indian Health Service"
^DD(200,54.2,0)="STATE ISSUING DEA NUMBER^200.55P^^PS2;0"
^DD(200,54.2,20,0)="^.3LA^1^1"
^DD(200,54.2,20,1,0)="PS"
^DD(200,54.2,20,2,0)="PSO"
^DD(200,54.2,21,0)="^^2^2^2921106^^"
^DD(200,54.2,21,1,0)="This mutiple contains the DEA# issued by a state in order to allow"
^DD(200,54.2,21,2,0)="providers to write medication orders for controlled medications."
^DD(200,54.2,23,0)="^^1^1^2921106^^"
^DD(200,54.2,23,1,0)="This multiple is utilized by the Indian Health Service."
^DD(200,70,0)="STAFF REVIEW REQUIRED^S^Y:yes;N:no;^RA;1^Q"
^DD(200,70,10)="RAD/NUC MED COORDINATOR"
^DD(200,70,21,0)="^^3^3^2941228^^"
^DD(200,70,21,1,0)="This field applies to 'Interpreting Resident' personnel. If"
^DD(200,70,21,2,0)="it contains a 'yes', an interpreting staff is required to"
^DD(200,70,21,3,0)="review this resident's report results."
^DD(200,70,"DT")="2900207"
^DD(200,71,0)="ALLOW VERIFYING OF OTHERS^S^y:YES;n:NO;^RA;2^Q"
^DD(200,71,10)="RAD/NUC MED COORDINATOR"
^DD(200,71,21,0)="^^14^14^2970205^"
^DD(200,71,21,1,0)="If this field is set to 'YES' and the 'ALLOW VERIFYING BY RESIDENTS'"
^DD(200,71,21,2,0)="division parameter is also set to 'YES' then this resident is allowed to"
^DD(200,71,21,3,0)="verify reports associated with another interpreting physician.  (If both"
^DD(200,71,21,4,0)="parameters are set to 'YES' the 'On-line Verifying of Reports' option will"
^DD(200,71,21,5,0)="prompt the user to 'Select Interpreting Physician: ' allowing the user to"
^DD(200,71,21,6,0)="select an interpreting physician other than him/herself.) If this field is"
^DD(200,71,21,7,0)="set to 'NO' then this resident is only allowed to verify his/her own"
^DD(200,71,21,8,0)="reports.  If the division parameter 'ALLOW VERIFYING BY RESIDENT' is set"
^DD(200,71,21,9,0)="to 'NO' then regardless of how this field is set, the resident will not be"
^DD(200,71,21,10,0)="allowed to verify other interpreting physicians' reports."
^DD(200,71,21,11,0)=" "
^DD(200,71,21,12,0)="If the user is classified as Interpreting Staff, s/he will be allowed to"
^DD(200,71,21,13,0)="select another interpreting physician's name and reports if this field is"
^DD(200,71,21,14,0)="set to 'YES'."
^DD(200,71,"DT")="2900207"
^DD(200,72,0)="RAD/NUC MED CLASSIFICATION^200.072S^^RAC;0"
^DD(200,72,21,0)="^^3^3^2971202^^^^"
^DD(200,72,21,1,0)="This multiple field contains information about the classification assigned"
^DD(200,72,21,2,0)="to Rad/Nuc Med personnel.  Possible classifications are Technologist,"
^DD(200,72,21,3,0)="Interpreting Resident, Interpreting Staff, and Clerk."
^DD(200,72,"DT")="2941104"
^DD(200,73,0)="RAD/NUC MED INACTIVE DATE^D^^RA;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,73,21,0)="^^2^2^2941228^^"
^DD(200,73,21,1,0)="This field contains the date that this person was inactivated as a Rad/Nuc"
^DD(200,73,21,2,0)="Med user."
^DD(200,73,"DT")="2941104"
^DD(200,74,0)="RAD/NUC MED LOCATION ACCESS^200.074P^^RAL;0"
^DD(200,74,21,0)="^^2^2^2971202^^^^"
^DD(200,74,21,1,0)="This field will allow the user to access all data specific to a particular"
^DD(200,74,21,2,0)="Radiology/Nuclear Medicine location."
^DD(200,74,"DT")="2941104"
^DD(200,101.01,0)="RESTRICT PATIENT SELECTION^S^0:NO;1:YES;^101;1^Q"
^DD(200,101.01,21,0)="^^3^3^3011029^"
^DD(200,101.01,21,1,0)="Answer 'YES' to restrict this user to selecting only those patients"
^DD(200,101.01,21,2,0)="associated with the list pointed to by the PATIENT SELECTION LIST field"
^DD(200,101.01,21,3,0)="(#101.02)."
^DD(200,101.01,"DT")="3011019"
^DD(200,101.02,0)="PATIENT SELECTION LIST^*P100.21'^OR(100.21,^101;2^S DIC(""S"")=""I $P($G(^(0)),U,2)'=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200,101.02,12)="You cannot select a personal-type list."
^DD(200,101.02,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,2)'=""""P"""""""
^DD(200,101.02,21,0)="^.001^2^2^3020322^^"
^DD(200,101.02,21,1,0)="If a value is entered into this field, the user is allowed to select only"
^DD(200,101.02,21,2,0)="those patients associated with this OE/RR LIST."
^DD(200,101.02,"DT")="3020322"
^DD(200,101.13,0)="CPRS TAB^200.010113POI^^ORD;0"
^DD(200,125,0)="PROBLEM LIST PRIMARY VIEW^F^^125;1^K:$L(X)>210!($L(X)<3) X"
^DD(200,125,3)="Answer must be 3-210 characters in length."
^DD(200,125,21,0)="^^4^4^2931001^^^^"
^DD(200,125,21,1,0)="This string contains the user's preferred view of the problem list."
^DD(200,125,21,2,0)="Problems are assigned a category based upon the service of the provider"
^DD(200,125,21,3,0)="who entered and/or is treating the problem; a screen may then be invoked"
^DD(200,125,21,4,0)="allowing a filtered view of the problem list."
^DD(200,125,23,0)="^^4^4^2931001^^^^"
^DD(200,125,23,1,0)="This string should be in the format '/#/#/.../#/' where each # is a"
^DD(200,125,23,2,0)="pointer to an entry in the Service/Section file (#49).  The option"
^DD(200,125,23,3,0)="GMPL USER VIEW is exported with the Problem List application to facilitate"
^DD(200,125,23,4,0)="building this string; its use is recommended."
^DD(200,125,"DT")="2930512"
^DD(200,125.1,0)="PROBLEM SELECTION LIST^P125'^GMPL(125,^125;2^Q"
^DD(200,125.1,3)="Enter the list of problems you wish displayed to select from, when adding to a patient's problem list."
^DD(200,125.1,21,0)="^^6^6^2931110^^"
^DD(200,125.1,21,1,0)="This is the user's preferred default list of problems to select from"
^DD(200,125.1,21,2,0)="when adding to a patient's problem list.  If there is a list specified"
^DD(200,125.1,21,3,0)="here from the Problem Selection List File (#125), it will be automatically"
^DD(200,125.1,21,4,0)="presented to the user when the ""Add New Problem(s)"" action is selected;"
^DD(200,125.1,21,5,0)="otherwise, the user will simply be prompted to select a problem from"
^DD(200,125.1,21,6,0)="the Clinical Lexicon Utility."
^DD(200,125.1,"DT")="2931110"
^DD(200,200.04,0)="MULTIPLE SIGN-ON^S^0:NOT ALLOWED;1:ALLOWED;2:Only one IP;^200;4^Q"
^DD(200,200.04,3)="Answer '0' to limit this USER to ONE connection, '2' will limit USER to one workstation."
^DD(200,200.04,21,0)="^^9^9^3030130^"
^DD(200,200.04,21,1,0)="This field, if filled in, overrides the SITE and DEVICE Files as to"
^DD(200,200.04,21,2,0)="whether this user can sign-on to multiple terminals at the same time, "
^DD(200,200.04,21,3,0)="or is limited to one workstation (IP), only one connection."
^DD(200,200.04,21,4,0)="If you select ""Only one IP"" be sure to put a value into the ""MULTIPLE"
^DD(200,200.04,21,5,0)="SIGN-ON LIMIT"" field so users can sign-on at least once."
^DD(200,200.04,21,6,0)="Values are:"
^DD(200,200.04,21,7,0)="0 = Only one connection."
^DD(200,200.04,21,8,0)="1 = Multiple connections from multiple IP's."
^DD(200,200.04,21,9,0)="2 = Only one IP address."
^DD(200,200.04,"DT")="3030130"
^DD(200,200.05,0)="ASK DEVICE TYPE AT SIGN-ON^S^1:ASK;0:DON'T ASK;^200;5^Q"
^DD(200,200.05,21,0)="^^5^5^2920702^"
^DD(200,200.05,21,1,0)="This field controls if the user/terminal should be asked for a terminal"
^DD(200,200.05,21,2,0)="type during sign-on. If set to YES then the system will try and get the"
^DD(200,200.05,21,3,0)="terminal type from the terminal. If this doesn't work, then user is"
^DD(200,200.05,21,4,0)="prompted. If set to NO then the one from the users Last Sign-on field or"
^DD(200,200.05,21,5,0)="the device subtype will be used."
^DD(200,200.05,23,0)="^^8^8^2920702^"
^DD(200,200.05,23,1,0)="This field (if filled in) will override the ones in the KERNEL site"
^DD(200,200.05,23,2,0)="parameter file. It controls if the user/terminal should be asked for a"
^DD(200,200.05,23,3,0)="terminal type during sign-on."
^DD(200,200.05,23,4,0)="If set to YES then a ANSI DA is sent to the terminal to collect the"
^DD(200,200.05,23,5,0)="terminals DEVICE ATTRIBUTES message. If it is a know one then the terminal"
^DD(200,200.05,23,6,0)="type is set to this. Otherwise the user is prompted."
^DD(200,200.05,23,7,0)="If set to NO then the one from the Last Sign-on field or device subtype"
^DD(200,200.05,23,8,0)="will be used."
^DD(200,200.05,"DT")="2880222"
^DD(200,200.06,0)="AUTO MENU^S^0:NO MENUS GENERATED;1:YES, MENUS GENERATED;^200;6^Q"
^DD(200,200.06,21,0)="^^2^2^2851218^^^^"
^DD(200,200.06,21,1,0)="This field controls whether the user will see menus automatically"
^DD(200,200.06,21,2,0)="displayed (as if he had typed a ""?"") each time a new option is presented."
^DD(200,200.07,0)="LANGUAGE^P.85'^DI(.85,^200;7^Q"
^DD(200,200.07,21,0)="^^3^3^2940524^"
^DD(200,200.07,21,1,0)="The value in this field replaces the Default Language field in the"
^DD(200,200.07,21,2,0)="Kernel Site Parameters file.  It points to the Language file"
^DD(200,200.07,21,3,0)="for the VA FileMan Dialog file."
^DD(200,200.07,"DT")="2940524"
^DD(200,200.08,0)="RESERVED^F^^XUS;8^K:$L(X)>1!($L(X)<1) X"
^DD(200,200.08,3)="Answer must be 1 character in length."
^DD(200,200.08,21,0)="^^1^1^2940527^"
^DD(200,200.08,21,1,0)="Place holder, see file 3.5 #51.8"
^DD(200,200.08,"DT")="2940527"
^DD(200,200.09,0)="TYPE-AHEAD^S^Y:ALLOWED;N:NOT ALLOWED;^200;9^Q"
^DD(200,200.09,1,0)="^.1"
^DD(200,200.09,1,1,0)="200^AB2^MUMPS"
^DD(200,200.09,1,1,1)="X:DA=DUZ ^%ZOSF($S(X=""Y"":"""",1:""NO-"")_""TYPE-AHEAD"")"
^DD(200,200.09,1,1,2)="I 1"
^DD(200,200.09,1,1,"%D",0)="^^1^1^2910521^"
^DD(200,200.09,1,1,"%D",1,0)="If the user edits them self, Changes there type-ahead."
^DD(200,200.09,1,1,"DT")="2910521"
^DD(200,200.09,3)="ANSWER 'Y' IF USER CAN TYPE ANSWERS BEFORE HE SEES THE QUESTIONS!"
^DD(200,200.09,21,0)="^^4^4^2851003^^^"
^DD(200,200.09,21,1,0)="If type ahead is selected, the user will be able to type text ahead"
^DD(200,200.09,21,2,0)="of what the computer is actually reading.  The computer stores the"
^DD(200,200.09,21,3,0)="keystrokes from the user, which may be confusing if the computer is slow"
^DD(200,200.09,21,4,0)="but more efficient if the user is careful."
^DD(200,200.09,"DT")="2910521"
^DD(200,200.1,0)="TIMED READ (# OF SECONDS)^NJ5,0^^200;10^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200,200.1,3)="NUMBER OF SECONDS (1-99999) THAT TERMINAL WILL WAIT FOR RESPONSE"
^DD(200,200.1,21,0)="^^2^2^2851011^^^"
^DD(200,200.1,21,1,0)="This field, if filled in, overrides the SITE and DEVICE files as to"
^DD(200,200.1,21,2,0)="the time this user has to respond to a timed read.  Stored in DTIME."
^DD(200,200.11,0)="ALWAYS SHOW SECONDARIES^S^1:YES;^200;11^Q"
^DD(200,200.11,3)="Enter 1 or YES if the secondary menus should always be shown for this user"
^DD(200,200.11,21,0)="^^2^2^2930330^"
^DD(200,200.11,21,1,0)="This field is a flag used by the menu system to control if"
^DD(200,200.11,21,2,0)="the user is shown there secondary menu list with one '?' or two."
^DD(200,200.11,"DT")="2900123"
^DD(200,200.18,0)="AUTO SIGN-ON^S^0:No;1:Yes;^200;18^Q"
^DD(200,200.18,21,0)="^^2^2^2970303^"
^DD(200,200.18,21,1,0)="This field will control if the Auto Sign-on (Single Sign-on) is enabled"
^DD(200,200.18,21,2,0)="for use with terminal sessions."
^DD(200,200.18,"DT")="2970303"
^DD(200,200.19,0)="MULTIPLE SIGN-ON LIMIT^NJ3,0^^200;19^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200,200.19,.1)="Multiple Sign-on Limit"
^DD(200,200.19,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(200,200.19,21,0)="^^4^4^3021021^"
^DD(200,200.19,21,1,0)="This field, if filled in, overrides the SITE file. This field sets an"
^DD(200,200.19,21,2,0)="upper limit on the number of concurrent sessions that this user can have"
^DD(200,200.19,21,3,0)="from one IP address when the Multiple Sign-on field (#204) is set to ""One"
^DD(200,200.19,21,4,0)="IP"""
^DD(200,200.19,"DT")="3021021"
^DD(200,201,0)="PRIMARY MENU OPTION^*P19'X^DIC(19,^201;1^S DIC(""S"")=""I $D(^XUSEC(""""XUMGR"""",DUZ))!$D(^VA(200,DUZ,19.5,+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200,201,1,0)="^.1"
^DD(200,201,1,1,0)="200^AP"
^DD(200,201,1,1,1)="S ^VA(200,""AP"",$E(X,1,30),DA)="""""
^DD(200,201,1,1,2)="K ^VA(200,""AP"",$E(X,1,30),DA)"
^DD(200,201,1,2,0)="200^AI^MUMPS"
^DD(200,201,1,2,1)="D REDOXP^XQ7 Q"
^DD(200,201,1,2,2)="Q"
^DD(200,201,1,2,3)="This x-ref is used to facilitate microsurgery of the compiled menu trees."
^DD(200,201,1,2,"%D",0)="^^4^4^2930303^"
^DD(200,201,1,2,"%D",1,0)="This cross-reference causes a node to be set in the ""AT"" cross-reference"
^DD(200,201,1,2,"%D",2,0)="of file 19, if there is not currently a ""P"" node for this option number"
^DD(200,201,1,2,"%D",3,0)="in ^XUTL(""XQO"",""Pnum"",    so that a tree will be built for this primary"
^DD(200,201,1,2,"%D",4,0)="menu."
^DD(200,201,1,2,"DT")="2930303"
^DD(200,201,1,3,0)="200^AF^MUMPS"
^DD(200,201,1,3,1)="D CONTCL^XUSTERM1(DA)"
^DD(200,201,1,3,2)="D CONTCL^XUSTERM1(DA)"
^DD(200,201,1,3,3)="Clear Continue"
^DD(200,201,1,3,"%D",0)="^.101^3^3^3020725^^^"
^DD(200,201,1,3,"%D",1,0)="This X-ref calls code to clear the following fields  LAST OPTION ACCESSED"
^DD(200,201,1,3,"%D",2,0)="(202.1) and LAST OPTION MAIN MENU (202.2). This is too keep users from"
^DD(200,201,1,3,"%D",3,0)="getting asked to continue if there menu has changed."
^DD(200,201,1,3,"DT")="3020411"
^DD(200,201,3)="IF NO PRIMARY MENU FOR TERMINAL, SIGN-ON WILL BRANCH TO THIS OPTION"
^DD(200,201,12)="Can only be edited by Site manager staff or SMD user."
^DD(200,201,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""XUMGR"""",DUZ))!$D(^VA(200,DUZ,19.5,+Y,0))"""
^DD(200,201,21,0)="^^3^3^2940804^^^^"
^DD(200,201,21,1,0)="This is the menu option that this user will be dropped into"
^DD(200,201,21,2,0)="if none of the following are set: (in the order checked)"
^DD(200,201,21,3,0)="Tied routine, Device primary menu."
^DD(200,201,"DT")="3020411"
^DD(200,201.1,0)="PRIMARY WINDOW^P19'^DIC(19,^201;2^Q"
^DD(200,201.1,21,0)="^^1^1^2941108^"
^DD(200,201.1,21,1,0)="This is the lead or first window launched at startup."
^DD(200,201.1,"DT")="2941108"
^DD(200,201.2,0)="STARTUP DEFAULT^S^M:Primary Menu Option;W:Primary Window;^201;3^Q"
^DD(200,201.2,3)="Should the user be started with the Primary Menu Option or the Primary Window?"
^DD(200,201.2,21,0)="^^2^2^2941110^"
^DD(200,201.2,21,1,0)="This field determines if the Primary Menu or the Primary Window is"
^DD(200,201.2,21,2,0)="loaded at logon."
^DD(200,201.2,"DT")="2941108"
^DD(200,202,0)="LAST SIGN-ON DATE/TIME^DI^^1.1;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(200,202,21,0)="^^1^1^2910322^"
^DD(200,202,21,1,0)="This field is set when a user signs on to the system."
^DD(200,202,23,0)="^^1^1^2910322^"
^DD(200,202,23,1,0)="This field is set in XUS1.  It has been moved from XMB(3.7,DUZ,.1)"
^DD(200,202,"DT")="2910322"
^DD(200,202.02,0)="XUS Logon Attempt Count^NJ2,0^^1.1;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(200,202.02,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(200,202.02,21,0)="^^1^1^2960404^"
^DD(200,202.02,21,1,0)="This is used to let the user know about unsuccessful logon atempts."
^DD(200,202.02,"DT")="2981208"
^DD(200,202.03,0)="XUS Active User^S^0:No;1:Yes;^1.1;3^Q"
^DD(200,202.03,21,0)="^^3^3^2960404^"
^DD(200,202.03,21,1,0)="If a user gets the ** MULTIPULE SIGN-ON NOT ALLOWED ** message"
^DD(200,202.03,21,2,0)="this field can be set to NO to allow them to sign-on again."
^DD(200,202.03,21,3,0)="This flag is set by XUS and XUSCLEAN."
^DD(200,202.03,"DT")="2960404"
^DD(200,202.04,0)="Entry Last Edit Date^DI^^1.1;4^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(200,202.04,3)="(No range limit on date)"
^DD(200,202.04,5,1,0)="200^2^3"
^DD(200,202.04,5,2,0)="200^7^1"
^DD(200,202.04,5,3,0)="200^9.2^2"
^DD(200,202.04,21,0)="^^3^3^3010927^"
^DD(200,202.04,21,1,0)="This field holds the date time this entry in the file was last edited."
^DD(200,202.04,21,2,0)="The following fields now trigger the current date to the ENTRY LAST EDIT"
^DD(200,202.04,21,3,0)="DATE field: DISUSER (#7), ACCESS CODE (#2), and TERMINATION DATE (#9.2). "
^DD(200,202.04,"DT")="3010927"
^DD(200,202.05,0)="LOCKOUT USER UNTIL^D^^1.1;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,202.05,21,0)="^^4^4^3040121^"
^DD(200,202.05,21,1,0)="This field is used by the signon code to lockout users that have"
^DD(200,202.05,21,2,0)="tried bad VERIFY codes too many times.  This field holds the date/time "
^DD(200,202.05,21,3,0)="that the user should be locked out of the system until."
^DD(200,202.05,21,4,0)="It is set with the current time plus the lockout time."
^DD(200,202.05,"DT")="3040121"
^DD(200,202.1,0)="LAST OPTION ACCESSED^P19'I^DIC(19,^202.1;1^Q"
^DD(200,202.1,9)="^"
^DD(200,202.1,21,0)="^^3^3^2860729^^^"
^DD(200,202.1,21,1,0)="This field holds the last option accessed by the user, when the user"
^DD(200,202.1,21,2,0)="selects the CONTINUE option instead of HALTing.  When the user logs"
^DD(200,202.1,21,3,0)="on again, he will be able to continue directly at that option."
^DD(200,202.2,0)="LAST OPTION MAIN MENU^FI^^202.1;2^K:$L(X)>10!($L(X)<1) X"
^DD(200,202.2,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(200,202.2,9)="^"
^DD(200,202.2,21,0)="^^4^4^2860729^"
^DD(200,202.2,21,1,0)="This field holds an indicator of which primary or secondary menu a"
^DD(200,202.2,21,2,0)="user was in, after selecting the CONTINUE option.  It is used in con-"
^DD(200,202.2,21,3,0)="junction with the LAST OPTION ACCESSED to resume when a user logs back"
^DD(200,202.2,21,4,0)="on."
^DD(200,203,0)="SECONDARY MENU OPTIONS^200.03IP^^203;0"
^DD(200,203,21,0)="^^1^1^2930415^^^"
^DD(200,203,21,1,0)="Options awarded a user not on his or her primary menu option"
^DD(200,203.1,0)="TIMESTAMP^FI^^203.1;1^K:$L(X)>15!($L(X)<1) X"
^DD(200,203.1,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(200,203.1,9)="^"
^DD(200,203.1,21,0)="^^4^4^2851011^^"
^DD(200,203.1,21,1,0)="This is the time at which this option was last modified.  It is triggered"
^DD(200,203.1,21,2,0)="automatically by the appropriate fields.  If a CPU references an option"
^DD(200,203.1,21,3,0)="which has been modified since it was last rebuilt, it triggers a rebuilding"
^DD(200,203.1,21,4,0)="of the options."
^DD(200,351,0)="PERSONAL DIAGNOSES LIST^200.0351PA^^351;0"
^DD(200,351,21,0)="^.001^1^1^3040708^^^^"
^DD(200,351,21,1,0)="This is the provider's personal list of preferred diagnoses codes."
^DD(200,400,0)="SUPPLY EMPLOYEE^S^1:WAREHOUSE;2:PPM ACCOUNTABLE OFFICER;3:PURCHASING AGENT;4:MANAGER;^400;1^Q"
^DD(200,400,"DT")="2921230"
^DD(200,450,0)="PAID EMPLOYEE^P450'^PRSPC(^450;1^Q"
^DD(200,450,9)="^"
^DD(200,450,21,0)="^^1^1^2950426^^"
^DD(200,450,21,1,0)="This field is a pointer to the PAID EMPLOYEE (#450) file."
^DD(200,450,"DT")="2950426"
^DD(200,500,0)="NETWORK ADDRESS^200.005A^^500;0"
^DD(200,500,21,0)="^^2^2^2910621^^"
^DD(200,500,21,1,0)="This is the begining of a network address.  Enter the Lastname of the user"
^DD(200,500,21,2,0)="or an identifier that he is known as on the receiving system."
^DD(200,654,0)="SOCIAL WORKER ?^SX^1:YES;0:NO;^654;1^K:'$D(SOWKNEW) X"
^DD(200,654,1,0)="^.1"
^DD(200,654,1,1,0)="200^ASWB^MUMPS"
^DD(200,654,1,1,1)="S ^VA(200,""ASWB"",DA,DA)="""""
^DD(200,654,1,1,2)="K ^VA(200,""ASWB"",DA,DA)"
^DD(200,654,1,1,"%D",0)="^^1^1^2911125^"
^DD(200,654,1,1,"%D",1,0)="This cross reference is used for screening out non-social workers."
^DD(200,654,3)="Enter '1' for YES to indicate if user is a Social Worker."
^DD(200,654,21,0)="^^2^2^2930618^^^^"
^DD(200,654,21,1,0)="This field will be used to indicate if the user is a Social Worker."
^DD(200,654,21,2,0)="It will also act as a screen for lookups."
^DD(200,654,"DT")="2911108"
^DD(200,654.1,0)="IMMEDIATE SUPERVISOR^*P200'X^VA(200,^654;2^S DIC(""S"")=""I $D(^VA(200,""""ASWE"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0!'$D(SOWKNEW) X"
^DD(200,654.1,1,0)="^.1"
^DD(200,654.1,1,1,0)="200^ASWC"
^DD(200,654.1,1,1,1)="S ^VA(200,""ASWC"",$E(X,1,30),DA)="""""
^DD(200,654.1,1,1,2)="K ^VA(200,""ASWC"",$E(X,1,30),DA)"
^DD(200,654.1,3)="Enter the name of the immediate supervisor of the social worker."
^DD(200,654.1,4)=""
^DD(200,654.1,12)="Only Valid social work management are to be selected."
^DD(200,654.1,12.1)="S DIC(""S"")=""I $D(^VA(200,""""ASWE"""",+Y))"""
^DD(200,654.1,21,0)="^^1^1^2930618^^^^"
^DD(200,654.1,21,1,0)="This field is used to indicate the immediate supervisor of the social worker."
^DD(200,654.1,"DT")="2930222"
^DD(200,654.15,0)="POSITION/TITLE^SX^1:SW CHIEF;2:ASST. CHIEF;3:SUPERVISOR;4:SW COORDINATOR;5:SOCIAL WORKER;6:SW ASSOCIATE;7:SECRETARY;8:SW CLERK/STENO;9:STUDENT;10:VOLUNTEER;11:WOC;^654;5^K:'$D(SOWKNEW) X"
^DD(200,654.15,1,0)="^.1"
^DD(200,654.15,1,1,0)="200^ASWE^MUMPS"
^DD(200,654.15,1,1,1)="S:X=1!(X=2)!(X=3) ^VA(200,""ASWE"",DA,$E(X,1,30))="""""
^DD(200,654.15,1,1,2)="K:X=1!(X=2)!(X=3) ^VA(200,""ASWE"",DA,$E(X,1,30))"
^DD(200,654.15,1,1,"%D",0)="^^1^1^2911125^"
^DD(200,654.15,1,1,"%D",1,0)="This cross reference is used for chiefs, asst. chiefs, and supervisors only."
^DD(200,654.15,3)="Enter the title of the social worker."
^DD(200,654.15,21,0)="^^1^1^2930618^^^^"
^DD(200,654.15,21,1,0)="This field will be used to indicate the position/title of the social worker."
^DD(200,654.15,"DT")="2911108"
^DD(200,654.2,0)="SOCIAL WORKER'S NUMBER^NJ3,0X^^654;3^K:$L(X)>3!($L(X)<2)!'(X?2N.N)!('$D(SOWKNEW)) X I $D(X),$D(^VA(200,""ASWD"",X)) W *7,"" NUMBER ALREADY ASSIGNED !!"",! K X"
^DD(200,654.2,1,0)="^.1"
^DD(200,654.2,1,1,0)="200^ASWD"
^DD(200,654.2,1,1,1)="S ^VA(200,""ASWD"",$E(X,1,30),DA)="""""
^DD(200,654.2,1,1,2)="K ^VA(200,""ASWD"",$E(X,1,30),DA)"
^DD(200,654.2,3)="Enter number 01-999."
^DD(200,654.2,21,0)="^^1^1^2930618^^^"
^DD(200,654.2,21,1,0)="Unique number assigned to social worker by service.  Enter a number 01-999."
^DD(200,654.2,"DT")="2911113"
^DD(200,654.3,0)="SURROGATE^P200'X^VA(200,^654;4^K:'$D(SOWKNEW) X"
^DD(200,654.3,1,0)="^.1"
^DD(200,654.3,1,1,0)="200^ACSW"
^DD(200,654.3,1,1,1)="S ^VA(200,""ACSW"",$E(X,1,30),DA)="""""
^DD(200,654.3,1,1,2)="K ^VA(200,""ACSW"",$E(X,1,30),DA)"
^DD(200,654.3,3)="Enter supervisor's name that is to be the surrogate."
^DD(200,654.3,21,0)="^^3^3^2930618^^^^"
^DD(200,654.3,21,1,0)="This field will be used to indicate a surrogate supervisor.  When this"
^DD(200,654.3,21,2,0)="field has data, the surrogate supervisor will have access to data pertaining"
^DD(200,654.3,21,3,0)="to worker information for the surrogated supervisor."
^DD(200,654.3,"DT")="2911108"
^DD(200,720,0)="DMMS UNITS^200.72P^^EC;0"
^DD(200,720,21,0)="^^2^2^2930408^^"
^DD(200,720,21,1,0)="This multiple field contains the DMMS units to which this person has"
^DD(200,720,21,2,0)="access for entering data and generating reports."
^DD(200,720,23,0)="^^1^1^2930408^"
^DD(200,720,23,1,0)="Multiple pointer to 724"
^DD(200,747.1,0)="SERVICE^RP730'^ECC(730,^QAR;1^Q"
^DD(200,747.1,3)="Enter a National Service File name."
^DD(200,747.1,21,0)="^^1^1^2910403^"
^DD(200,747.1,21,1,0)="Contains the Service for this person."
^DD(200,747.1,21,2,0)=" "
^DD(200,747.1,21,3,0)=" "
^DD(200,747.1,"DT")="2910214"
^DD(200,747.11,0)="APPOINTMENT STATUS^S^1:FULL-TIME;2:PART-TIME;3:CONSULTING;4:CONTRACT;5:RESIDENT;6:FEE BASIS, ON STATION;7:SPECIALTY FELLOW;8:WOC;9:OTHER;^QAR12;1^Q"
^DD(200,747.11,3)="Enter the appropriate Appointment Status."
^DD(200,747.11,21,0)="^^1^1^2910403^^"
^DD(200,747.11,21,1,0)="Contains the Appointment Status for this person."
^DD(200,747.11,"DT")="2900817"
^DD(200,747.111,0)="SPECIALTY^200.0747111P^^QAR7;0"
^DD(200,747.111,12)="YOU MAY SELECT A SPECIALTY ASSOCIATED WITH THIS SERVICE."
^DD(200,747.111,12.1)="S DIC(""S"")=""D ^QARCSS"""
^DD(200,747.111,21,0)="^^1^1^2920702^"
^DD(200,747.111,21,1,0)="Enter the Specialty associated with this person."
^DD(200,747.111,21,2,0)=" "
^DD(200,747.111,21,3,0)=" "
^DD(200,747.112,0)="EFFECTIVE DATE^D^^QAR8;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.112,3)="Enter the Effective Date for our General Privilege."
^DD(200,747.112,21,0)="^^1^1^2921015^^"
^DD(200,747.112,21,1,0)="Contains the Effective Date for a General Privilege."
^DD(200,747.112,21,2,0)=" "
^DD(200,747.112,21,3,0)=" "
^DD(200,747.112,23,0)="0"
^DD(200,747.112,"DT")="2900821"
^DD(200,747.113,0)="RENEW DATE^D^^QAR8;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.113,3)="Enter the Renewal Date for our General Privilege."
^DD(200,747.113,21,0)="^^1^1^2910403^"
^DD(200,747.113,21,1,0)="Contains the Renewal Date for our General Privilege."
^DD(200,747.113,"DT")="2900821"
^DD(200,747.114,0)="GENERAL PRIVILEGE^P730'^ECC(730,^QAR8;3^Q"
^DD(200,747.114,3)="Enter the General Privilege for this person."
^DD(200,747.114,21,0)="^^1^1^2910403^"
^DD(200,747.114,21,1,0)="Contains the General Privilege for this person."
^DD(200,747.114,21,2,0)=" "
^DD(200,747.114,21,3,0)=" "
^DD(200,747.114,"DT")="2910201"
^DD(200,747.12,0)="ALIEN VISA^S^1:YES;2:NO;3:N/A;^QAR12;2^Q"
^DD(200,747.12,3)="Enter whether the Alien Visa has been sighted by the COS."
^DD(200,747.12,21,0)="^^2^2^2910429^^^^"
^DD(200,747.12,21,1,0)="Contains whether the Chief of Staff sighted the Alien Visa for the"
^DD(200,747.12,21,2,0)="Applicant who is not a citizen."
^DD(200,747.12,21,3,0)=" "
^DD(200,747.12,21,4,0)=" "
^DD(200,747.12,"DT")="2900817"
^DD(200,747.13,0)="CLINICAL BACKGROUND^200.074713PA^^QAR11;0"
^DD(200,747.13,21,0)="^^1^1^2910403^"
^DD(200,747.13,21,1,0)="Contains the Clinical Background of our person."
^DD(200,747.13,21,2,0)=" "
^DD(200,747.13,21,3,0)=" "
^DD(200,747.14,0)="VAF 10-2850 SIGNED/COS (Y/N)^S^1:YES;2:NO;^QAR12;3^Q"
^DD(200,747.14,3)="Enter whether the Chief of Staff signed the VAF 10-2850. "
^DD(200,747.14,21,0)="^^1^1^2910403^"
^DD(200,747.14,21,1,0)="Contains the response to if the Chief of Staff signed the VAF 10-2850."
^DD(200,747.14,21,2,0)=" "
^DD(200,747.14,21,3,0)=" "
^DD(200,747.14,"DT")="2910402"
^DD(200,747.15,0)="VAF 10-2850 LICENSE DATA (Y/N)^S^1:YES;2:NO;^QAR12;4^Q"
^DD(200,747.15,3)="Enter whether all license information is listed on the VAF 10-2850."
^DD(200,747.15,21,0)="2^^2^2^2910429^^^"
^DD(200,747.15,21,1,0)="Are all the states/territories in which the applicant claims to have been"
^DD(200,747.15,21,2,0)="licensed listed on the VAF 10-2850 (item 13a-13d) ?"
^DD(200,747.15,21,3,0)=" "
^DD(200,747.15,21,4,0)=" "
^DD(200,747.15,"DT")="2910402"
^DD(200,747.16,0)="LICENSURE CHALLENGE ?^S^1:YES;2:NO;^QAR12;5^Q"
^DD(200,747.16,3)="Enter whether there has been a License challenge."
^DD(200,747.16,21,0)="^^2^2^2910403^^^"
^DD(200,747.16,21,1,0)="Has the applicant responded to the question on vaf 10-2850 regarding"
^DD(200,747.16,21,2,0)="any licensure challenge?  Refer to VAF 10-2850 item 14."
^DD(200,747.16,21,3,0)=" "
^DD(200,747.16,"DT")="2900817"
^DD(200,747.17,0)="CLINICAL PRIVILEGES^S^1:YES;2:NO;^QAR12;6^Q"
^DD(200,747.17,3)="Enter whether Clinical Privilege information exists on the VAF 10-2850."
^DD(200,747.17,21,0)="^^1^1^2920702^"
^DD(200,747.17,21,1,0)="Contains information about Clinical Privileges on the VAF 10-2850."
^DD(200,747.17,21,2,0)=" "
^DD(200,747.17,21,3,0)=" "
^DD(200,747.17,"DT")="2900817"
^DD(200,747.18,0)="CLIN PRIVILEGES CHALLENGES ?^S^1:YES;2:NO;^QAR12;7^Q"
^DD(200,747.18,3)="Enter whether our Clinical Privileges have been challenged."
^DD(200,747.18,21,0)="^^1^1^2921015^^^"
^DD(200,747.18,21,1,0)="Contains whether Clinical Privileges have been challenged."
^DD(200,747.18,21,2,0)="challenged."
^DD(200,747.18,21,3,0)=" "
^DD(200,747.18,21,4,0)=" "
^DD(200,747.18,"DT")="2910430"
^DD(200,747.19,0)="LICENSE CHECK^S^1:LETTER FROM STATE BOARD;2:ROC WITH STATE BOARD;3:COMPLETION OF VAF 5-4682 WITH VISUAL SIGHTING OF LICENSES;^QAR12;8^Q"
^DD(200,747.19,3)="Enter the method of verification for this License."
^DD(200,747.19,21,0)="^^1^1^2910403^"
^DD(200,747.19,21,1,0)="Contains the method of verification for this License."
^DD(200,747.19,"DT")="2900817"
^DD(200,747.2,0)="MANDATORY TRAINING^200.07472A^^QAR1;0"
^DD(200,747.2,21,0)="^^1^1^2921015^^^^"
^DD(200,747.2,21,1,0)="Contains the Mandatory Training a person must complete."
^DD(200,747.2,21,2,0)=" "
^DD(200,747.2,21,3,0)=" "
^DD(200,747.21,0)="LICENSE VERIFICATION^S^1:YES;2:NO;^QAR12;9^Q"
^DD(200,747.21,3)="Has the COS verified license by signing VAF 5-4682 ?"
^DD(200,747.21,21,0)="^^1^1^2910502^^"
^DD(200,747.21,21,1,0)="Has COS verified by signing VAF 5-4682."
^DD(200,747.21,"DT")="2900817"
^DD(200,747.22,0)="SERVICE COMPUTATION DATE^D^^QAR12;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.22,3)="Enter the Length of Service for our individual."
^DD(200,747.22,21,0)="^^1^1^2910403^"
^DD(200,747.22,21,1,0)="Contains the Length of Service for our individual."
^DD(200,747.22,21,2,0)=" "
^DD(200,747.22,21,3,0)=" "
^DD(200,747.22,"DT")="2900817"
^DD(200,747.23,0)="END OF PROBATIONARY PERIOD^D^^QAR12;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.23,3)="Enter the ending date for the Probationary Period."
^DD(200,747.23,21,0)="^^1^1^2910403^"
^DD(200,747.23,21,1,0)="Contains the ending date for the Probationary Period."
^DD(200,747.23,21,2,0)=" "
^DD(200,747.23,21,3,0)=" "
^DD(200,747.23,"DT")="2900817"
^DD(200,747.24,0)="ECFMG COMPLETED^D^^QAR12;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.24,3)="Enter the date the ECFMG exam was taken. "
^DD(200,747.24,21,0)="^^2^2^2910403^^^^"
^DD(200,747.24,21,1,0)="This field refers to the date the Education Commission for Foreign Medical"
^DD(200,747.24,21,2,0)="Graduate exam was taken."
^DD(200,747.24,21,3,0)=" "
^DD(200,747.24,21,4,0)=" "
^DD(200,747.24,"DT")="2900817"
^DD(200,747.241,0)="ECFMG VERIFICATION^S^1:LETTER FROM ECFMG;2:ROC WITH ECFMG;3:NO RESPONSE TO INQUIRY;^QAR12;16^Q"
^DD(200,747.241,3)="Enter the method used for verification."
^DD(200,747.241,21,0)="^^1^1^2911212^^"
^DD(200,747.241,21,1,0)="Indicates the method used for verification."
^DD(200,747.241,"DT")="2911212"
^DD(200,747.25,0)="TIMEFRAME TO RENEW PRIVILEGES?^S^1:ONE(1) YEAR;2:TWO (2) YEARS;^QAR12;13^Q"
^DD(200,747.25,3)="Enter the date when Clinical Privileges must be renewed."
^DD(200,747.25,21,0)="^^1^1^2910403^"
^DD(200,747.25,21,1,0)="Contains the date when Clinical Privileges must be renewed."
^DD(200,747.25,"DT")="2900817"
^DD(200,747.26,0)="HEALTH STATEMENT, APPLICANT^D^^QAR12;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.26,3)="Enter the date the Health Statement is received from the individual."
^DD(200,747.26,21,0)="^^2^2^2910403^"
^DD(200,747.26,21,1,0)="This field contains the date the Health Statement is received from the "
^DD(200,747.26,21,2,0)="individual."
^DD(200,747.26,"DT")="2900817"
^DD(200,747.27,0)="HEALTH STATEMENT, COLLEAGUE^200.074727D^^QAR14;0"
^DD(200,747.27,21,0)="^^4^4^2910403^"
^DD(200,747.27,21,1,0)="This field allows you to enter the date on which the Statement of Health"
^DD(200,747.27,21,2,0)="Status was received from a colleague of the above individual.  Individuals"
^DD(200,747.27,21,3,0)="from which this could be received include the Chief of Staff, Chief of"
^DD(200,747.27,21,4,0)="Service, Training Program Director, or peer."
^DD(200,747.28,0)="DATE REFERENCE RECEIVED^200.074728SA^^QAR15;0"
^DD(200,747.28,21,0)="^^1^1^2910430^^^^"
^DD(200,747.28,21,1,0)="Three (3) references are needed for the applicant.  This is a requirement."
^DD(200,747.28,"DT")="2910430"
^DD(200,747.29,0)="BYLAWS AGREEMENT DATE^D^^QAR12;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.29,3)="Enter the date the Bylaws Agreement was signed."
^DD(200,747.29,21,0)="^^3^3^2910403^^^"
^DD(200,747.29,21,1,0)="Enter the date of the signature of the applicant indicating agreement to "
^DD(200,747.29,21,2,0)="abide by the bylaws of the medical staff.  This signature is contained "
^DD(200,747.29,21,3,0)="on the form titled ""Applicant Memo to Director""."
^DD(200,747.29,"DT")="2910403"
^DD(200,747.3,0)="TYPE OF APPOINTMENT^S^1:APPOINTMENT (INITIAL/15-DAY BREAK);2:REAPPRAISAL ;^QAR;2^Q"
^DD(200,747.3,3)="Enter the appropriate Type of Appointment for our individual."
^DD(200,747.3,21,0)="^^1^1^2920702^"
^DD(200,747.3,21,1,0)="Contains the type of appointment for our individual."
^DD(200,747.3,21,2,0)=" "
^DD(200,747.3,21,3,0)=" "
^DD(200,747.3,"DT")="2900731"
^DD(200,747.31,0)="RECOMMENDATION SIGNATURES^200.074731S^^QAR16;0"
^DD(200,747.31,21,0)="^^1^1^2910430^^"
^DD(200,747.31,21,1,0)="Contains the signature date for the approving committee/official."
^DD(200,747.32,0)="PERTINENT CLINICAL INFORMATION^200.074732^^QAR17;0"
^DD(200,747.32,21,0)="^^2^2^2910403^^^"
^DD(200,747.32,21,1,0)="Enter any pertinent clinical information, awards received, society member-"
^DD(200,747.32,21,2,0)="ships, etc.  Entry of this data is optional"
^DD(200,747.32,21,3,0)=" "
^DD(200,747.32,21,4,0)=" "
^DD(200,747.33,0)="PRIMARY DEGREE^P747.7'^QA(747.7,^QAR;5^Q"
^DD(200,747.33,3)="Enter the Primary Degree for this individual."
^DD(200,747.33,21,0)="^^1^1^2910403^^"
^DD(200,747.33,21,1,0)="Select the primary degree used for this position."
^DD(200,747.33,21,2,0)=" "
^DD(200,747.33,21,3,0)=" "
^DD(200,747.33,"DT")="2900820"
^DD(200,747.34,0)="SCHOOL ATTENDED^200.074734^^QAR9;0"
^DD(200,747.34,21,0)="^^1^1^2910430^^^^"
^DD(200,747.34,21,1,0)="Contains the School(s) attended."
^DD(200,747.35,0)="DATE REAPPRAISAL IS DUE^D^^QAR;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.35,3)="Enter the Date Reappraisal is due."
^DD(200,747.35,21,0)="^^1^1^2921015^^"
^DD(200,747.35,21,1,0)="Contains the Date Reappraisal is due."
^DD(200,747.35,"DT")="2921015"
^DD(200,747.36,0)="CONTINUING EDUCATION PROGRAM^200.074736A^^QAR10;0"
^DD(200,747.36,21,0)="^^1^1^2910502^^^"
^DD(200,747.36,21,1,0)="Name of the continuing education program you have attended."
^DD(200,747.37,0)="NPDB QUERIED ?^S^1:YES;2:NO;^QAR18;1^Q"
^DD(200,747.37,3)="Enter whether the NPDB has been Queried."
^DD(200,747.37,21,0)="^^1^1^2910403^^"
^DD(200,747.37,21,1,0)="Has the national practitioner's data bank been queried?"
^DD(200,747.37,"DT")="2910225"
^DD(200,747.38,0)="DATE SENT TO NPDB ?^D^^QAR18;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.38,3)="Enter the Date the NPDB was queried."
^DD(200,747.38,21,0)="^^1^1^2910403^"
^DD(200,747.38,21,1,0)="Contains the Date the NPDB was queried."
^DD(200,747.38,21,2,0)=" "
^DD(200,747.38,21,3,0)=" "
^DD(200,747.38,"DT")="2910225"
^DD(200,747.381,0)="DATE REC'D FROM NPDB^D^^QAR18;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.381,3)="Enter date response received from NPDB."
^DD(200,747.381,21,0)="^^1^1^2920821^"
^DD(200,747.381,21,1,0)="This field contains the date a response is received from NPDB."
^DD(200,747.381,"DT")="2920820"
^DD(200,747.39,0)="RESULTS OF QUERY ?^S^1:RESULTS UNREMARKABLE;2:RESULTS NEED FURTHER EXPLANATION (PLEASE REFER TO DOCUMENTATION IN FILE);^QAR18;3^Q"
^DD(200,747.39,3)="Query results as they apply to our individual."
^DD(200,747.39,21,0)="^^1^1^2910503^^"
^DD(200,747.39,21,1,0)="Query results as they are applicable to our individual."
^DD(200,747.39,"DT")="2910225"
^DD(200,747.4,0)="APPOINTMENT DATE^D^^QAR;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.4,3)="Enter the date of Appointment."
^DD(200,747.4,21,0)="^^1^1^2910403^"
^DD(200,747.4,21,1,0)="Contains the date of Appointment."
^DD(200,747.4,21,2,0)=" "
^DD(200,747.4,21,3,0)=" "
^DD(200,747.4,"DT")="2900723"
^DD(200,747.41,0)="PLACE OF BIRTH^F^^QAR;7^K:$L(X)>35!($L(X)<3) X"
^DD(200,747.41,3)="Answer with the practitioner's place of birth. Must be 3-35 characters in length."
^DD(200,747.41,21,0)="^^1^1^2910430^^"
^DD(200,747.41,21,1,0)="Contains the Place of Birth for our individual."
^DD(200,747.41,21,2,0)=" "
^DD(200,747.41,21,3,0)=" "
^DD(200,747.41,"DT")="2910402"
^DD(200,747.42,0)="VA CAUTIONARY LIST CHECKED?^S^1:YES;2:NO;3:N/A;^QAR;8^Q"
^DD(200,747.42,3)="Enter whether the VA Cautionary List has been checked."
^DD(200,747.42,21,0)="^^1^1^2910430^^^"
^DD(200,747.42,21,1,0)="Has  VA cautionary list issued by VACO been checked?"
^DD(200,747.42,21,2,0)=" "
^DD(200,747.42,21,3,0)=" "
^DD(200,747.42,"DT")="2910402"
^DD(200,747.43,0)="INTERNSHIP/RESIDENCY^200.074743^^QAR19;0"
^DD(200,747.43,21,0)="^^4^4^2910617^^^^"
^DD(200,747.43,21,1,0)="This field contains information relevant to the practitioner's"
^DD(200,747.43,21,2,0)="Internship and Residency training."
^DD(200,747.43,21,3,0)=" "
^DD(200,747.43,21,4,0)=" "
^DD(200,747.44,0)="DEA EXPIRATION DATE^D^^QAR;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,747.44,3)="Enter DEA # Expiration Date"
^DD(200,747.44,21,0)="^^1^1^2920731^"
^DD(200,747.44,21,1,0)="This field contains the expiration date for DEA #."
^DD(200,747.44,"DT")="2910723"
^DD(200,747.45,0)="CONTROL/SUBSTANCE CERT (Y/N)^200.074745SA^^QAR20;0"
^DD(200,747.45,21,0)="^^1^1^2920731^^"
^DD(200,747.45,21,1,0)="Does the Physician have a Controlled Substance Certificate?"
^DD(200,747.5,0)="CERTIFICATION^200.07475P^^QAR2;0"
^DD(200,747.5,21,0)="^^4^4^2910410^^^^"
^DD(200,747.5,21,1,0)="This field allows you to enter specialties in which the practitioner is"
^DD(200,747.5,21,2,0)="Board Certified."
^DD(200,747.5,21,3,0)=" "
^DD(200,747.5,21,4,0)=" "
^DD(200,747.6,0)="BOARD ELIGIBLE^200.07476PA^^QAR4;0"
^DD(200,747.6,21,0)="^^2^2^2910430^^^"
^DD(200,747.6,21,1,0)="If this applicant is eligible to complete specialty board exams, enter"
^DD(200,747.6,21,2,0)="the area of specialty."
^DD(200,747.6,21,3,0)=" "
^DD(200,747.7,0)="PROFESSIONAL ORGANIZATION^200.07477A^^QAR5;0"
^DD(200,747.7,21,0)="^^2^2^2910430^^^"
^DD(200,747.7,21,1,0)="Membership in professional organizations (local, state medical society,"
^DD(200,747.7,21,2,0)="AMA, FACP, FACS, etc.)"
^DD(200,747.7,21,3,0)=" "
^DD(200,747.8,0)="HONORS/OFFICES HELD^200.07478A^^QAR6;0"
^DD(200,747.8,21,0)="2^^2^2^2910502^^^^"
^DD(200,747.8,21,1,0)="Honors received and offices held in medical and/or scientific societies."
^DD(200,747.8,21,2,0)="enter academic appointments here also"
^DD(200,747.8,21,3,0)=" "
^DD(200,747.8,21,4,0)=" "
^DD(200,747.9,0)="VAF 10-2850 COMPLETION (Y/N)^S^1:YES;2:NO;^QAR;4^Q"
^DD(200,747.9,3)="Enter whether the VAF 10-2850 has been completed."
^DD(200,747.9,21,0)="^^1^1^2910403^^^"
^DD(200,747.9,21,1,0)="Has VAF 10-2850 been completed by the applicant?"
^DD(200,747.9,21,2,0)=" "
^DD(200,747.9,"DT")="2910401"
^DD(200,910.1,0)="BADGE NUMBER^NJ6,0^^ESP;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200,910.1,3)="Enter the police officer's assigned badge number [1-999999]."
^DD(200,910.1,21,0)="^^1^1^2931001^^"
^DD(200,910.1,21,1,0)="Enter the badge number assigned to the VA police officer."
^DD(200,910.1,"DT")="2930715"
^DD(200,910.2,0)="RANK^F^^ESP;2^K:$L(X)>30!($L(X)<2) X"
^DD(200,910.2,3)="Enter the police officer's assigned rank [2-30 characters]."
^DD(200,910.2,21,0)="^^2^2^2930913^"
^DD(200,910.2,21,1,0)="Enter the VA police officer's assigned rank designation, i.e., CHIEF,"
^DD(200,910.2,21,2,0)="LIEUTENANT, PATROL OFFICER, etc."
^DD(200,910.2,"DT")="2930715"
^DD(200,8910,0)="VISITED FROM^200.06A^^8910;0"
^DD(200,8910,21,0)="^^8^8^3000208^"
^DD(200,8910,21,1,0)="This subfile stores the information that travels along with visitors using"
^DD(200,8910,21,2,0)="the CPRS Foreign Views software to look at medical data of a patient which"
^DD(200,8910,21,3,0)="resides on a system where the visitor may not have valid access or verify"
^DD(200,8910,21,4,0)="codes.  When that person name and Social Security Number is put into the"
^DD(200,8910,21,5,0)="visited system's New Person File this multiple is updated to provide the"
^DD(200,8910,21,6,0)="ability to trace the visitors back to the system from which they are"
^DD(200,8910,21,7,0)="visiting.  This field (.01) stores the number of the site where the"
^DD(200,8910,21,8,0)="visitor was authenticated."
^DD(200,8932.001,0)="PROVIDER KEY^CJ1^^ ; ^S X=($D(^XUSEC(""PROVIDER"",D0))[1)"
^DD(200,8932.001,9)="^"
^DD(200,8932.001,9.01)=""
^DD(200,8932.001,9.1)="S X=($D(^XUSEC(""PROVIDER"",D0))[1)"
^DD(200,8932.001,21,0)="^^3^3^2960703^"
^DD(200,8932.001,21,1,0)="This Computed field gets a 1 if the user holds the provider key."
^DD(200,8932.001,21,2,0)="It is expected that the field will be removed or changed after"
^DD(200,8932.001,21,3,0)="the Person class field conversion is completed."
^DD(200,8932.001,"DT")="2960614"
^DD(200,8932.1,0)="PERSON CLASS^200.05P^^USC1;0"
^DD(200,8932.2,0)="PGYear^NJ2,0^^USC2;1^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200,8932.2,1,0)="^.1"
^DD(200,8932.2,1,1,0)="^^TRIGGER^200^8932.21"
^DD(200,8932.2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,""USC2"")):^(""USC2""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200,8932.2,1,1,1.4)"
^DD(200,8932.2,1,1,1.4)="S DIH=$S($D(^VA(200,DIV(0),""USC2"")):^(""USC2""),1:""""),DIV=X S $P(^(""USC2""),U,2)=DIV,DIH=200,DIG=8932.21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,8932.2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,""USC2"")):^(""USC2""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(200,8932.2,1,1,2.4)"
^DD(200,8932.2,1,1,2.4)="S DIH=$S($D(^VA(200,DIV(0),""USC2"")):^(""USC2""),1:""""),DIV=X S $P(^(""USC2""),U,2)=DIV,DIH=200,DIG=8932.21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,8932.2,1,1,"CREATE VALUE")="TODAY"
^DD(200,8932.2,1,1,"DELETE VALUE")="@"
^DD(200,8932.2,1,1,"FIELD")="PGY as"
^DD(200,8932.2,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(200,8932.2,21,0)="^^1^1^2960612^"
^DD(200,8932.2,21,1,0)="This field holds what Post Graduate year a person is."
^DD(200,8932.2,"DT")="2960614"
^DD(200,8932.21,0)="PGY assigned^D^^USC2;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,8932.21,5,1,0)="200^8932.2^1"
^DD(200,8932.21,9)="^"
^DD(200,8932.21,21,0)="^^1^1^2960614^^"
^DD(200,8932.21,21,1,0)="This field holds the date that the PGYear field was last edited."
^DD(200,8932.21,"DT")="2960614"
^DD(200,8932.3,0)="FYear^NJ1,0^^USC2;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200,8932.3,1,0)="^.1"
^DD(200,8932.3,1,1,0)="^^TRIGGER^200^8932.31"
^DD(200,8932.3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,""USC2"")):^(""USC2""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200,8932.3,1,1,1.4)"
^DD(200,8932.3,1,1,1.4)="S DIH=$S($D(^VA(200,DIV(0),""USC2"")):^(""USC2""),1:""""),DIV=X S $P(^(""USC2""),U,4)=DIV,DIH=200,DIG=8932.31 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,8932.3,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VA(200,D0,""USC2"")):^(""USC2""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(200,8932.3,1,1,2.4)"
^DD(200,8932.3,1,1,2.4)="S DIH=$S($D(^VA(200,DIV(0),""USC2"")):^(""USC2""),1:""""),DIV=X S $P(^(""USC2""),U,4)=DIV,DIH=200,DIG=8932.31 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200,8932.3,1,1,"CREATE VALUE")="TODAY"
^DD(200,8932.3,1,1,"DELETE VALUE")="@"
^DD(200,8932.3,1,1,"FIELD")="FY as"
^DD(200,8932.3,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(200,8932.3,21,0)="^^1^1^2960614^"
^DD(200,8932.3,21,1,0)="This field is the Fellowship year of a person."
^DD(200,8932.3,"DT")="2960614"
^DD(200,8932.31,0)="FY assigned^D^^USC2;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200,8932.31,5,1,0)="200^8932.3^1"
^DD(200,8932.31,9)="^"
^DD(200,8932.31,21,0)="^^1^1^2960614^"
^DD(200,8932.31,21,1,0)="This field holds the Date that the FYear field was edited."
^DD(200,8932.31,"DT")="2960614"
^DD(200,8980.16,0)="PERSON FILE POINTER^RP16'^DIC(16,^0;16^Q"
^DD(200,8980.16,1,0)="^.1"
^DD(200,8980.16,1,1,0)="200^A16"
^DD(200,8980.16,1,1,1)="S ^VA(200,""A16"",$E(X,1,30),DA)="""""
^DD(200,8980.16,1,1,2)="K ^VA(200,""A16"",$E(X,1,30),DA)"
^DD(200,8980.16,1,1,3)="PERSON FILE CONVERSION"
^DD(200,8980.16,1,1,"%D",0)="^^2^2^2931208^^"
^DD(200,8980.16,1,1,"%D",1,0)="This X-ref is to allow packages to have a stable way to convert"
^DD(200,8980.16,1,1,"%D",2,0)="'person file pointers' into 'new person file pointers'."
^DD(200,8980.16,1,1,"DT")="2920730"
^DD(200,8980.16,3)="Loaded by cross file link"
^DD(200,8980.16,9)="^"
^DD(200,8980.16,21,0)="^^3^3^2920730^"
^DD(200,8980.16,21,1,0)="This field holds a pointer to the person file so there will be a way to"
^DD(200,8980.16,21,2,0)="provide a cross reference to help convert 'person file' pointers into"
^DD(200,8980.16,21,3,0)="'new person file' pointer after the person file is removed."
^DD(200,8980.16,"DT")="2920730"
^DD(200,8983.11,0)="DISPLAY HELP AT ENTRY TO LM^S^y:YES;n:NO;^LM;1^Q"
^DD(200,8983.11,3)="Enter yes to display the help text before entering the editor."
^DD(200,8983.11,21,0)="^^2^2^2890831^"
^DD(200,8983.11,21,1,0)="If set to yes, a help text will be displayed before entering the editor."
^DD(200,8983.11,21,2,0)="This is used primarily for new users."
^DD(200,8983.11,"DT")="2900126"
^DD(200,8983.12,0)="ASK TERMINAL TYPE AT LM ENTRY^S^y:YES;n:NO;^LM;2^Q"
^DD(200,8983.12,3)="Enter yes to ask the terminal type upon entry to the editor."
^DD(200,8983.12,21,0)="^^1^1^2890831^"
^DD(200,8983.12,21,1,0)="If set to yes, the terminal type will be asked upon entry to the editor."
^DD(200,8983.13,0)="DEFAULT TERMINAL TYPE FOR LM^P3.2'^%ZIS(2,^LM;3^Q"
^DD(200,8983.13,21,0)="^^1^1^2890831^^"
^DD(200,8983.13,21,1,0)="This field stores the default terminal type for a user."
^DD(200,8983.13,"DT")="2900126"
^DD(200,8983.14,0)="DISPLAY LM COMMANDS^S^y:YES;n:NO;^LM;4^Q"
^DD(200,8983.14,3)="Enter yes to display the list of commands when entering the command mode."
^DD(200,8983.14,21,0)="^^2^2^2890831^"
^DD(200,8983.14,21,1,0)="If set to yes, the list of commands will be displayed at the bottom"
^DD(200,8983.14,21,2,0)="of the screen when entering the command mode."
^DD(200,8983.14,"DT")="2900126"
^DD(200,8983.15,0)="BRIGHT CHARS AT EXIT FROM LM^S^y:YES;n:NO;^LM;5^Q"
^DD(200,8983.15,3)="Enter yes to leave the terminal in high intensity after exiting LetterMan."
^DD(200,8983.15,21,0)="^^1^1^2890831^^"
^DD(200,8983.15,21,1,0)="If set to yes, the terminal will be left in high intensity after exiting."
^DD(200,8983.15,"DT")="2900126"
^DD(200,8983.16,0)="DATE LAST ACCESSED LM WP^D^^LM;6^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(200,8983.16,21,0)="^^2^2^2900128^^^"
^DD(200,8983.16,21,1,0)="The date and time a user last accessed the LetterMan word processor"
^DD(200,8983.16,21,2,0)="document editor."
^DD(200,8983.16,"DT")="2900128"
^DD(200,8983.17,0)="TOTAL MINUTES USING LM WP^NJ9,0^^LM;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(200,8983.17,3)="Enter the total minutes spent using the LetterMan Word Processor (Editor), from 0 to 999999999."
^DD(200,8983.17,21,0)="^^2^2^2900128^^"
^DD(200,8983.17,21,1,0)="The total minutes a user has used the LetterMan word processor"
^DD(200,8983.17,21,2,0)="document editor."
^DD(200,8983.17,"DT")="2900128"
^DD(200,8983.18,0)="KEYSTROKES FROM LM WP^NJ9,0^^LM;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(200,8983.18,3)="Enter the total number of keystrokes a user has typed from the word processor document editor, from 0 to 999999999."
^DD(200,8983.18,21,0)="^^2^2^2900128^"
^DD(200,8983.18,21,1,0)="This field stores the total number of keystrokes a user has typed from"
^DD(200,8983.18,21,2,0)="the word processor document editor."
^DD(200,8983.18,"DT")="2900128"
^DD(200,8983.5,0)="SPELLING EXCEPTION DICTIONARY^200.0089831^^LM1;0"
^DD(200,8983.5,21,0)="^^1^1^2900126^"
^DD(200,8983.5,21,1,0)="This field stores the exception spelling dictionary for the user."
^DD(200,8983.51,0)="DEFINED FORMATS FOR LM^200.0089832I^^LM2;0"
^DD(200,8983.51,21,0)="^^2^2^2900126^"
^DD(200,8983.51,21,1,0)="This field is used to store predefined format lines which a user can"
^DD(200,8983.51,21,2,0)="select from during editing."
^DD(200,8983.52,0)="DEFINED PHRASES FOR LM^200.0089833^^LM3;0"
^DD(200,8983.52,21,0)="^^1^1^2900126^"
^DD(200,8983.52,21,1,0)="This field stores predefined phrases which can be inserted into the document during editing."
^DD(200,8983.6,0)="LM LIMIT WP FIELDS TO EDIT^200.0089834^^LM4;0"
^DD(200,8983.6,21,0)="^^2^2^2901212^"
^DD(200,8983.6,21,1,0)="This field is used by the user to limit which word processing"
^DD(200,8983.6,21,2,0)="fields should be edited by LetterMan."
^DD(200,9000,0)="VPID^F^^VPID;1^K:$L(X)>25!($L(X)<10) X"
^DD(200,9000,.1)="VA Person Identification Code"
^DD(200,9000,1,0)="^.1^^-1"
^DD(200,9000,1,1,0)="200^AVPID"
^DD(200,9000,1,1,1)="S ^VA(200,""AVPID"",$E(X,1,30),DA)="""""
^DD(200,9000,1,1,2)="K ^VA(200,""AVPID"",$E(X,1,30),DA)"
^DD(200,9000,1,1,"%D",0)="^^2^2^3030811^"
^DD(200,9000,1,1,"%D",1,0)="Index of entries by VPID.  Will be used by Person Service when the "
^DD(200,9000,1,1,"%D",2,0)="XUPSVPID remote procedure is executed."
^DD(200,9000,1,1,"DT")="3030811"
^DD(200,9000,3)="Answer must be 10-25 characters in length."
^DD(200,9000,21,0)="^^2^2^3031203^"
^DD(200,9000,21,1,0)="The VA Person Identification Number which was assigned by the Person"
^DD(200,9000,21,2,0)="Service central system.  Used to uniquely identify a Person."
^DD(200,9000,"DT")="3031203"
^DD(200,"AUDIT",9.2)=""
^DD(200,"AUDIT",11)=""
^DD(200,"B","ACCESS CODE",2)=""
^DD(200,"B","ACCESS CODE",2.1)="1"
^DD(200,"B","ACCESSIBLE FILE",32)=""
^DD(200,"B","ALERT DATE/TIME",19.4)=""
^DD(200,"B","ALIAS",10)=""
^DD(200,"B","ALIEN VISA",747.12)=""
^DD(200,"B","ALLOW ARA ACCESS",11.6)=""
^DD(200,"B","ALLOW VERIFYING OF OTHERS",71)=""
^DD(200,"B","ALLOWABLE NEW MENU PREFIX",19.6)=""
^DD(200,"B","ALLOWED TO USE SPOOLER",41)=""
^DD(200,"B","ALWAYS SHOW SECONDARIES",200.11)=""
^DD(200,"B","APPOINTMENT DATE",747.4)=""
^DD(200,"B","APPOINTMENT STATUS",747.11)=""
^DD(200,"B","ARA VALUE",11.7)=""
^DD(200,"B","ASK DEVICE TYPE AT SIGN-ON",200.05)=""
^DD(200,"B","ASK TERMINAL TYPE AT LM ENTRY",8983.12)=""
^DD(200,"B","AUTHORIZED TO WRITE MED ORDERS",53.1)=""
^DD(200,"B","AUTO MENU",200.06)=""
^DD(200,"B","AUTO SIGN-ON",200.18)=""
^DD(200,"B","BADGE NUMBER",910.1)=""
^DD(200,"B","BOARD ELIGIBLE",747.6)=""
^DD(200,"B","BRIGHT CHARS AT EXIT FROM LM",8983.15)=""
^DD(200,"B","BYLAWS AGREEMENT DATE",747.29)=""
^DD(200,"B","CAN MAKE INTO A MAIL MESSAGE",41.2)=""
^DD(200,"B","CERTIFICATION",747.5)=""
^DD(200,"B","CITY",.114)=""
^DD(200,"B","CLIN PRIVILEGES CHALLENGES ?",747.18)=""
^DD(200,"B","CLINICAL BACKGROUND",747.13)=""
^DD(200,"B","CLINICAL CORE TRAINEE",12.6)=""
^DD(200,"B","CLINICAL PRIVILEGES",747.17)=""
^DD(200,"B","COMMERCIAL PHONE",.135)=""
^DD(200,"B","CONTINUING EDUCATION PROGRAM",747.36)=""
^DD(200,"B","CONTROL/SUBSTANCE CERT (Y/N)",747.45)=""
^DD(200,"B","CPRS TAB",101.13)=""
^DD(200,"B","CREATOR",31)=""
^DD(200,"B","CURRENT DEGREE LEVEL",12.1)=""
^DD(200,"B","DATE ACCESS CODE LAST CHANGED",2.2)=""
^DD(200,"B","DATE E-SIG LAST CHANGED",20.1)=""
^DD(200,"B","DATE ENTERED",30)=""
^DD(200,"B","DATE EXCLUSIONARY LIST CHECKED",53.94)=""
^DD(200,"B","DATE HL7 TRAINEE RECORD BUILT",12.5)=""
^DD(200,"B","DATE LAST ACCESSED LM WP",8983.16)=""
^DD(200,"B","DATE NO LONGER TRAINEE",12.7)=""
^DD(200,"B","DATE REAPPRAISAL IS DUE",747.35)=""
^DD(200,"B","DATE REC'D FROM NPDB",747.381)=""
^DD(200,"B","DATE REFERENCE RECEIVED",747.28)=""
^DD(200,"B","DATE SENT TO NPDB ?",747.38)=""
^DD(200,"B","DATE VERIFY CODE LAST CHANGED",11.2)=""
^DD(200,"B","DEA EXPIRATION DATE",747.44)=""
^DD(200,"B","DEA#",53.2)=""
^DD(200,"B","DEFAULT TERMINAL TYPE FOR LM",8983.13)=""
^DD(200,"B","DEFINED FORMATS FOR LM",8983.51)=""
^DD(200,"B","DEFINED PHRASES FOR LM",8983.52)=""
^DD(200,"B","DEGREE",10.6)=""
^DD(200,"B","DELEGATE OF",19)=""
^DD(200,"B","DELEGATED KEYS",52)=""
^DD(200,"B","DELEGATED OPTIONS",19.5)=""
^DD(200,"B","DELEGATION DATE",19.1)=""
^DD(200,"B","DELEGATION LEVEL",19.2)=""
^DD(200,"B","DELETE ALL MAIL ACCESS",9.21)=""
^DD(200,"B","DELETE KEYS AT TERMINATION",9.22)=""
^DD(200,"B","DIGITAL PAGER",.138)=""
^DD(200,"B","DISPLAY HELP AT ENTRY TO LM",8983.11)=""
^DD(200,"B","DISPLAY LM COMMANDS",8983.14)=""
^DD(200,"B","DISUSER",7)=""
^DD(200,"B","DIVISION",16)=""
^DD(200,"B","DMMS UNITS",720)=""
^DD(200,"B","DOB",5)=""
^DD(200,"B","DUZ(0)",3)="1"
^DD(200,"B","ECFMG COMPLETED",747.24)=""
^DD(200,"B","ECFMG VERIFICATION",747.241)=""
^DD(200,"B","EFFECTIVE DATE",747.112)=""
^DD(200,"B","EFFECTIVE DATE/TIME",42)=""
^DD(200,"B","ELECTRONIC SIGNATURE CODE",20.4)=""
^DD(200,"B","EMAIL ADDRESS",.151)=""
^DD(200,"B","END DATE OF TEMP ADDRESS",.1218)=""
^DD(200,"B","END OF PROBATIONARY PERIOD",747.23)=""
^DD(200,"B","EXCLUSIONARY CHECK PERFORMED",53.93)=""
^DD(200,"B","EXCLUSIONARY CHECKED BY",53.96)=""
^DD(200,"B","Entry Last Edit Date",202.04)=""
^DD(200,"B","FAX NUMBER",.136)=""
^DD(200,"B","FILE MANAGER ACCESS CODE",3)=""
^DD(200,"B","FILE RANGE",31.1)=""
^DD(200,"B","FY assigned",8932.31)=""
^DD(200,"B","FYear",8932.3)=""
^DD(200,"B","GENERAL PRIVILEGE",747.114)=""
^DD(200,"B","HEALTH STATEMENT, APPLICANT",747.26)=""
^DD(200,"B","HEALTH STATEMENT, COLLEAGUE",747.27)=""
^DD(200,"B","HINQ EMPLOYEE NUMBER",14.9)=""
^DD(200,"B","HONORS/OFFICES HELD",747.8)=""
^DD(200,"B","IMMEDIATE SUPERVISOR",654.1)=""
^DD(200,"B","INACTIVE DATE",53.4)=""
^DD(200,"B","INITIAL",1)=""
^DD(200,"B","INTERNSHIP/RESIDENCY",747.43)=""
^DD(200,"B","KEY DELEGATION LEVEL",50.1)=""
^DD(200,"B","KEYS",51)=""
^DD(200,"B","KEYSTROKES FROM LM WP",8983.18)=""
^DD(200,"B","LANGUAGE",200.07)=""
^DD(200,"B","LAST OPTION ACCESSED",202.1)=""
^DD(200,"B","LAST OPTION MAIN MENU",202.2)=""
^DD(200,"B","LAST SIGN-ON DATE/TIME",202)=""
^DD(200,"B","LAST TRAINING MONTH & YEAR",12.3)=""
^DD(200,"B","LICENSE CHECK",747.19)=""
^DD(200,"B","LICENSE VERIFICATION",747.21)=""
^DD(200,"B","LICENSING STATE",54.1)=""
^DD(200,"B","LICENSURE CHALLENGE ?",747.16)=""
^DD(200,"B","LM LIMIT WP FIELDS TO EDIT",8983.6)=""
^DD(200,"B","LOCKOUT USER UNTIL",202.05)=""
^DD(200,"B","MAIL CODE",28)=""
^DD(200,"B","MANDATORY TRAINING",747.2)=""
^DD(200,"B","MENU TEMPLATE",19.8)=""
^DD(200,"B","MULTI-DEVICE DESPOOLING",41.1)=""
^DD(200,"B","MULTIPLE SIGN-ON",200.04)=""
^DD(200,"B","MULTIPLE SIGN-ON LIMIT",200.19)=""
^DD(200,"B","Multiple Sign-on Limit",200.19)="1"
^DD(200,"B","NAME",.01)=""
^DD(200,"B","NAME COMPONENTS",10.1)=""
^DD(200,"B","NETWORK ADDRESS",500)=""
^DD(200,"B","NICK NAME",13)=""
^DD(200,"B","NON-VA PRESCRIBER",53.91)=""
^DD(200,"B","NPDB QUERIED ?",747.37)=""
^DD(200,"B","NPI",41.99)=""
^DD(200,"B","NPI ENTRY STATUS",41.98)=""
^DD(200,"B","OFFICE PHONE",.132)=""
^DD(200,"B","ON EXCLUSIONARY LIST",53.95)=""
^DD(200,"B","PAC",14)=""
^DD(200,"B","PAID EMPLOYEE",450)=""
^DD(200,"B","PATIENT SELECTION LIST",101.02)=""
^DD(200,"B","PERSON CLASS",8932.1)=""
^DD(200,"B","PERSON FILE POINTER",8980.16)=""
^DD(200,"B","PERSONAL DIAGNOSES LIST",351)=""
^DD(200,"B","PERTINENT CLINICAL INFORMATION",747.32)=""
^DD(200,"B","PGY assigned",8932.21)=""
^DD(200,"B","PGYear",8932.2)=""
^DD(200,"B","PHONE #3",.133)=""
^DD(200,"B","PHONE #4",.134)=""
^DD(200,"B","PHONE (HOME)",.131)=""
^DD(200,"B","PLACE OF BIRTH",747.41)=""
^DD(200,"B","POSITION/TITLE",654.15)=""
^DD(200,"B","PREFERRED EDITOR",31.3)=""
^DD(200,"B","PRIMARY DEGREE",747.33)=""
^DD(200,"B","PRIMARY MENU OPTION",201)=""
^DD(200,"B","PRIMARY WINDOW",201.1)=""
^DD(200,"B","PROBLEM LIST PRIMARY VIEW",125)=""
^DD(200,"B","PROBLEM SELECTION LIST",125.1)=""
^DD(200,"B","PROFESSIONAL ORGANIZATION",747.7)=""
^DD(200,"B","PROGRAM OF STUDY",12.2)=""
^DD(200,"B","PROHIBITED TIMES FOR SIGN-ON",15)=""
^DD(200,"B","PROVIDER CLASS",53.5)=""
^DD(200,"B","PROVIDER KEY",8932.001)=""
^DD(200,"B","PROVIDER TYPE",53.6)=""
^DD(200,"B","RAD/NUC MED CLASSIFICATION",72)=""
^DD(200,"B","RAD/NUC MED INACTIVE DATE",73)=""
^DD(200,"B","RAD/NUC MED LOCATION ACCESS",74)=""
^DD(200,"B","RANK",910.2)=""
^DD(200,"B","RECOMMENDATION SIGNATURES",747.31)=""
^DD(200,"B","REMARKS",53.9)="1"
^DD(200,"B","RENEW DATE",747.113)=""
^DD(200,"B","REQUIRES COSIGNER",53.7)=""
^DD(200,"B","RESERVED",200.08)=""
^DD(200,"B","RESTRICT PATIENT SELECTION",101.01)=""
^DD(200,"B","RESULTS OF QUERY ?",747.39)=""
^DD(200,"B","ROOM",.141)=""
^DD(200,"B","SCHOOL ATTENDED",747.34)=""
^DD(200,"B","SECONDARY MENU OPTIONS",203)=""
^DD(200,"B","SERVICE",747.1)=""
^DD(200,"B","SERVICE COMPUTATION DATE",747.22)=""
^DD(200,"B","SERVICE/SECTION",29)=""
^DD(200,"B","SEX",4)=""
^DD(200,"B","SIGNATURE BLOCK PRINTED NAME",20.2)=""
^DD(200,"B","SIGNATURE BLOCK TITLE",20.3)=""
^DD(200,"B","SOCIAL WORKER ?",654)=""
^DD(200,"B","SOCIAL WORKER'S NUMBER",654.2)=""
^DD(200,"B","SPECIALTY",747.111)=""
^DD(200,"B","SPELLING EXCEPTION DICTIONARY",8983.5)=""
^DD(200,"B","SSN",9)=""
^DD(200,"B","STAFF REVIEW REQUIRED",70)=""
^DD(200,"B","START DATE OF TEMP ADDRES",.1217)=""
^DD(200,"B","START OF TRAINING",12.8)=""
^DD(200,"B","STARTUP DEFAULT",201.2)=""
^DD(200,"B","STATE",.115)=""
^DD(200,"B","STATE ISSUING DEA NUMBER",54.2)=""
^DD(200,"B","STREET ADDRESS 1",.111)=""
^DD(200,"B","STREET ADDRESS 2",.112)=""
^DD(200,"B","STREET ADDRESS 3",.113)=""
^DD(200,"B","SUPPLY EMPLOYEE",400)=""
^DD(200,"B","SURROGATE",654.3)=""
^DD(200,"B","TAX ID",53.92)=""
^DD(200,"B","TEMPORARY ADDRESS 1",.1211)=""
^DD(200,"B","TEMPORARY ADDRESS 2",.1212)=""
^DD(200,"B","TEMPORARY ADDRESS 3",.1213)=""
^DD(200,"B","TEMPORARY CITY",.1214)=""
^DD(200,"B","TEMPORARY STATE",.1215)=""
^DD(200,"B","TEMPORARY ZIP CODE",.1216)=""
^DD(200,"B","TERMINAL TYPE LAST USED",9.3)=""
^DD(200,"B","TERMINATION DATE",9.2)=""
^DD(200,"B","TEXT TERMINATOR",31.2)=""
^DD(200,"B","TIMED READ (# OF SECONDS)",200.1)=""
^DD(200,"B","TIMEFRAME TO RENEW PRIVILEGES?",747.25)=""
^DD(200,"B","TIMESTAMP",203.1)=""
^DD(200,"B","TITLE",8)=""
^DD(200,"B","TOTAL MINUTES USING LM WP",8983.17)=""
^DD(200,"B","TYPE OF APPOINTMENT",747.3)=""
^DD(200,"B","TYPE-AHEAD",200.09)=""
^DD(200,"B","Termination Reason",9.4)=""
^DD(200,"B","UCI",20)=""
^DD(200,"B","USER CLASS",9.5)=""
^DD(200,"B","USUAL COSIGNER",53.8)=""
^DD(200,"B","VA CAUTIONARY LIST CHECKED?",747.42)=""
^DD(200,"B","VA Person Identification Code",9000)="1"
^DD(200,"B","VA#",53.3)=""
^DD(200,"B","VAF 10-2850 COMPLETION (Y/N)",747.9)=""
^DD(200,"B","VAF 10-2850 LICENSE DATA (Y/N)",747.15)=""
^DD(200,"B","VAF 10-2850 SIGNED/COS (Y/N)",747.14)=""
^DD(200,"B","VERIFY CODE",11)=""
^DD(200,"B","VERIFY CODE",11.1)="1"
^DD(200,"B","VERIFY CODE never expires",7.2)=""
^DD(200,"B","VHA TRAINING FACILITY",12.4)=""
^DD(200,"B","VISITED FROM",8910)=""
^DD(200,"B","VOICE PAGER",.137)=""
^DD(200,"B","VPID",9000)=""
^DD(200,"B","Want to edit ACCESS CODE (Y/N)",2.1)=""
^DD(200,"B","Want to edit VERIFY CODE (Y/N)",11.1)=""
^DD(200,"B","XUS Active User",202.03)=""
^DD(200,"B","XUS Logon Attempt Count",202.02)=""
^DD(200,"B","ZIP CODE",.116)=""
^DD(200,"GL",0,1,.01)=""
^DD(200,"GL",0,2,1)=""
^DD(200,"GL",0,3,2)=""
^DD(200,"GL",0,4,3)=""
^DD(200,"GL",0,5,9.21)=""
^DD(200,"GL",0,6,9.22)=""
^DD(200,"GL",0,7,7)=""
^DD(200,"GL",0,8,7.2)=""
^DD(200,"GL",0,9,8)=""
^DD(200,"GL",0,11,9.2)=""
^DD(200,"GL",0,12,15)=""
^DD(200,"GL",0,13,9.4)=""
^DD(200,"GL",0,16,8980.16)=""
^DD(200,"GL",.1,1,11.2)=""
^DD(200,"GL",.1,2,11)=""
^DD(200,"GL",.1,4,13)=""
^DD(200,"GL",.1,5,14)=""
^DD(200,"GL",.1,6,11.6)=""
^DD(200,"GL",.1,7,11.7)=""
^DD(200,"GL",.1,9,14.9)=""
^DD(200,"GL",.1,10,2.1)=""
^DD(200,"GL",.1,11,11.1)=""
^DD(200,"GL",.11,1,.111)=""
^DD(200,"GL",.11,2,.112)=""
^DD(200,"GL",.11,3,.113)=""
^DD(200,"GL",.11,4,.114)=""
^DD(200,"GL",.11,5,.115)=""
^DD(200,"GL",.11,6,.116)=""
^DD(200,"GL",.121,1,.1211)=""
^DD(200,"GL",.121,2,.1212)=""
^DD(200,"GL",.121,3,.1213)=""
^DD(200,"GL",.121,4,.1214)=""
^DD(200,"GL",.121,5,.1215)=""
^DD(200,"GL",.121,6,.1216)=""
^DD(200,"GL",.121,7,.1217)=""
^DD(200,"GL",.121,8,.1218)=""
^DD(200,"GL",.13,1,.131)=""
^DD(200,"GL",.13,2,.132)=""
^DD(200,"GL",.13,3,.133)=""
^DD(200,"GL",.13,4,.134)=""
^DD(200,"GL",.13,5,.135)=""
^DD(200,"GL",.13,6,.136)=""
^DD(200,"GL",.13,7,.137)=""
^DD(200,"GL",.13,8,.138)=""
^DD(200,"GL",.14,1,.141)=""
^DD(200,"GL",.15,1,.151)=""
^DD(200,"GL",.2,0,20)=""
^DD(200,"GL",1,1,31.1)=""
^DD(200,"GL",1,2,4)=""
^DD(200,"GL",1,3,5)=""
^DD(200,"GL",1,4,31.2)=""
^DD(200,"GL",1,5,31.3)=""
^DD(200,"GL",1,7,30)=""
^DD(200,"GL",1,8,31)=""
^DD(200,"GL",1,9,9)=""
^DD(200,"GL",1.1,1,202)=""
^DD(200,"GL",1.1,2,202.02)=""
^DD(200,"GL",1.1,3,202.03)=""
^DD(200,"GL",1.1,4,202.04)=""
^DD(200,"GL",1.1,5,202.05)=""
^DD(200,"GL",1.2,1,9.3)=""
^DD(200,"GL",2,0,16)=""
^DD(200,"GL",3,0,10)=""
^DD(200,"GL",3.1,1,10.1)=""
^DD(200,"GL",3.1,6,10.6)=""
^DD(200,"GL",5,1,29)=""
^DD(200,"GL",5,2,28)=""
^DD(200,"GL",12,1,12.1)=""
^DD(200,"GL",12,2,12.2)=""
^DD(200,"GL",12,3,12.3)=""
^DD(200,"GL",12,4,12.4)=""
^DD(200,"GL",12,5,12.5)=""
^DD(200,"GL",12,6,12.6)=""
^DD(200,"GL",12,7,12.7)=""
^DD(200,"GL",12,8,12.8)=""
^DD(200,"GL",19,1,19)=""
^DD(200,"GL",19,2,19.1)=""
^DD(200,"GL",19,3,19.2)=""
^DD(200,"GL",19.5,0,19.5)=""
^DD(200,"GL",19.6,0,19.6)=""
^DD(200,"GL",19.8,0,19.8)=""
^DD(200,"GL",20,1,20.1)=""
^DD(200,"GL",20,2,20.2)=""
^DD(200,"GL",20,3,20.3)=""
^DD(200,"GL",20,4,20.4)=""
^DD(200,"GL",50,1,50.1)=""
^DD(200,"GL",51,0,51)=""
^DD(200,"GL",52,0,52)=""
^DD(200,"GL",101,1,101.01)=""
^DD(200,"GL",101,2,101.02)=""
^DD(200,"GL",125,1,125)=""
^DD(200,"GL",125,2,125.1)=""
^DD(200,"GL",200,4,200.04)=""
^DD(200,"GL",200,5,200.05)=""
^DD(200,"GL",200,6,200.06)=""
^DD(200,"GL",200,7,200.07)=""
^DD(200,"GL",200,9,200.09)=""
^DD(200,"GL",200,10,200.1)=""
^DD(200,"GL",200,11,200.11)=""
^DD(200,"GL",200,18,200.18)=""
^DD(200,"GL",200,19,200.19)=""
^DD(200,"GL",201,1,201)=""
^DD(200,"GL",201,2,201.1)=""
^DD(200,"GL",201,3,201.2)=""
^DD(200,"GL",202.1,1,202.1)=""
^DD(200,"GL",202.1,2,202.2)=""
^DD(200,"GL",203,0,203)=""
^DD(200,"GL",203.1,1,203.1)=""
^DD(200,"GL",351,0,351)=""
^DD(200,"GL",400,1,400)=""
^DD(200,"GL",450,1,450)=""
^DD(200,"GL",500,0,500)=""
^DD(200,"GL",654,1,654)=""
^DD(200,"GL",654,2,654.1)=""
^DD(200,"GL",654,3,654.2)=""
^DD(200,"GL",654,4,654.3)=""
^DD(200,"GL",654,5,654.15)=""
^DD(200,"GL",8910,0,8910)=""
^DD(200,"GL","EC",0,720)=""
^DD(200,"GL","ESP",1,910.1)=""
^DD(200,"GL","ESP",2,910.2)=""
^DD(200,"GL","FOF",0,32)=""
^DD(200,"GL","LM",1,8983.11)=""
^DD(200,"GL","LM",2,8983.12)=""
^DD(200,"GL","LM",3,8983.13)=""
^DD(200,"GL","LM",4,8983.14)=""
^DD(200,"GL","LM",5,8983.15)=""
^DD(200,"GL","LM",6,8983.16)=""
^DD(200,"GL","LM",7,8983.17)=""
^DD(200,"GL","LM",8,8983.18)=""
^DD(200,"GL","LM1",0,8983.5)=""
^DD(200,"GL","LM2",0,8983.51)=""
^DD(200,"GL","LM3",0,8983.52)=""
^DD(200,"GL","LM4",0,8983.6)=""
^DD(200,"GL","NPI",1,41.99)=""
^DD(200,"GL","NPI",2,41.98)=""
^DD(200,"GL","NPISTATUS",0,42)=""
^DD(200,"GL","ORD",0,101.13)=""
^DD(200,"GL","PS",1,53.1)=""
^DD(200,"GL","PS",2,53.2)=""
^DD(200,"GL","PS",3,53.3)=""
^DD(200,"GL","PS",4,53.4)=""
^DD(200,"GL","PS",5,53.5)=""
^DD(200,"GL","PS",6,53.6)=""
^DD(200,"GL","PS",7,53.7)=""
^DD(200,"GL","PS",8,53.8)=""
^DD(200,"GL","PS",9,53.9)=""
^DD(200,"GL","PS1",0,54.1)=""
^DD(200,"GL","PS2",0,54.2)=""
^DD(200,"GL","QAR",1,747.1)=""
^DD(200,"GL","QAR",2,747.3)=""
^DD(200,"GL","QAR",3,747.4)=""
^DD(200,"GL","QAR",4,747.9)=""
^DD(200,"GL","QAR",5,747.33)=""
^DD(200,"GL","QAR",6,747.35)=""
^DD(200,"GL","QAR",7,747.41)=""
^DD(200,"GL","QAR",8,747.42)=""
^DD(200,"GL","QAR",9,747.44)=""
^DD(200,"GL","QAR1",0,747.2)=""
^DD(200,"GL","QAR10",0,747.36)=""
^DD(200,"GL","QAR11",0,747.13)=""
^DD(200,"GL","QAR12",1,747.11)=""
^DD(200,"GL","QAR12",2,747.12)=""
^DD(200,"GL","QAR12",3,747.14)=""
^DD(200,"GL","QAR12",4,747.15)=""
^DD(200,"GL","QAR12",5,747.16)=""
^DD(200,"GL","QAR12",6,747.17)=""
^DD(200,"GL","QAR12",7,747.18)=""
^DD(200,"GL","QAR12",8,747.19)=""
^DD(200,"GL","QAR12",9,747.21)=""
^DD(200,"GL","QAR12",10,747.22)=""
^DD(200,"GL","QAR12",11,747.23)=""
^DD(200,"GL","QAR12",12,747.24)=""
^DD(200,"GL","QAR12",13,747.25)=""
^DD(200,"GL","QAR12",14,747.26)=""
^DD(200,"GL","QAR12",15,747.29)=""
^DD(200,"GL","QAR12",16,747.241)=""
^DD(200,"GL","QAR14",0,747.27)=""
^DD(200,"GL","QAR15",0,747.28)=""
^DD(200,"GL","QAR16",0,747.31)=""
^DD(200,"GL","QAR17",0,747.32)=""
^DD(200,"GL","QAR18",1,747.37)=""
^DD(200,"GL","QAR18",2,747.38)=""
^DD(200,"GL","QAR18",3,747.39)=""
^DD(200,"GL","QAR18",4,747.381)=""
^DD(200,"GL","QAR19",0,747.43)=""
^DD(200,"GL","QAR2",0,747.5)=""
^DD(200,"GL","QAR20",0,747.45)=""
^DD(200,"GL","QAR4",0,747.6)=""
^DD(200,"GL","QAR5",0,747.7)=""
^DD(200,"GL","QAR6",0,747.8)=""
^DD(200,"GL","QAR7",0,747.111)=""
^DD(200,"GL","QAR8",1,747.112)=""
^DD(200,"GL","QAR8",2,747.113)=""
^DD(200,"GL","QAR8",3,747.114)=""
^DD(200,"GL","QAR9",0,747.34)=""
^DD(200,"GL","RA",1,70)=""
^DD(200,"GL","RA",2,71)=""
^DD(200,"GL","RA",3,73)=""
^DD(200,"GL","RAC",0,72)=""
^DD(200,"GL","RAL",0,74)=""
^DD(200,"GL","SPL",1,41)=""
^DD(200,"GL","SPL",2,41.1)=""
^DD(200,"GL","SPL",3,41.2)=""
^DD(200,"GL","TPB",1,53.91)=""
^DD(200,"GL","TPB",2,53.92)=""
^DD(200,"GL","TPB",3,53.93)=""
^DD(200,"GL","TPB",4,53.94)=""
^DD(200,"GL","TPB",5,53.95)=""
^DD(200,"GL","TPB",6,53.96)=""
^DD(200,"GL","USC1",0,8932.1)=""
^DD(200,"GL","USC2",1,8932.2)=""
^DD(200,"GL","USC2",2,8932.21)=""
^DD(200,"GL","USC2",3,8932.3)=""
^DD(200,"GL","USC2",4,8932.31)=""
^DD(200,"GL","USC3",0,9.5)=""
^DD(200,"GL","VPID",1,9000)=""
^DD(200,"GL","XQA",0,19.4)=""
^DD(200,"GL","XUS",8,200.08)=""
^DD(200,"GR","PS",53.1,1)=""
^DD(200,"GR","PS",53.2,1)=""
^DD(200,"GR","PS",53.3,1)=""
^DD(200,"GR","PS",53.4,1)=""
^DD(200,"GR","PS",53.5,1)=""
^DD(200,"GR","PS",53.6,1)=""
^DD(200,"GR","PS",53.7,1)=""
^DD(200,"GR","PS",53.8,1)=""
^DD(200,"GR","PS",53.9,1)=""
^DD(200,"GR","PS",54.1,1)=""
^DD(200,"GR","PS",54.2,1)=""
^DD(200,"GR","PSO",53.1,2)=""
^DD(200,"GR","PSO",53.2,2)=""
^DD(200,"GR","PSO",53.3,2)=""
^DD(200,"GR","PSO",53.4,2)=""
^DD(200,"GR","PSO",53.5,2)=""
^DD(200,"GR","PSO",53.6,2)=""
^DD(200,"GR","PSO",53.7,2)=""
^DD(200,"GR","PSO",53.8,2)=""
^DD(200,"GR","PSO",53.9,2)=""
^DD(200,"GR","PSO",54.1,2)=""
^DD(200,"GR","PSO",54.2,2)=""
^DD(200,"IX",.01)=""
^DD(200,"IX",1)=""
^DD(200,"IX",2)=""
^DD(200,"IX",7)=""
^DD(200,"IX",9)=""
^DD(200,"IX",9.2)=""
^DD(200,"IX",11)=""
^DD(200,"IX",11.7)=""
^DD(200,"IX",12.5)=""
^DD(200,"IX",13)=""
^DD(200,"IX",14.9)=""
^DD(200,"IX",19)=""
^DD(200,"IX",20.4)=""
^DD(200,"IX",29)=""
^DD(200,"IX",41.99)=""
^DD(200,"IX",53.2)=""
^DD(200,"IX",53.3)=""
^DD(200,"IX",53.5)=""
^DD(200,"IX",200.09)=""
^DD(200,"IX",201)=""
^DD(200,"IX",654)=""
^DD(200,"IX",654.1)=""
^DD(200,"IX",654.15)=""
^DD(200,"IX",654.2)=""
^DD(200,"IX",654.3)=""
^DD(200,"IX",8932.2)=""
^DD(200,"IX",8932.3)=""
^DD(200,"IX",8980.16)=""
^DD(200,"IX",9000)=""
^DD(200,"RQ",.01)=""
^DD(200,"RQ",10.1)=""
^DD(200,"RQ",29)=""
^DD(200,"RQ",747.1)=""
^DD(200,"RQ",8980.16)=""
^DD(200,"SB",200.005,500)=""
^DD(200,"SB",200.0089831,8983.5)=""
^DD(200,"SB",200.0089832,8983.51)=""
^DD(200,"SB",200.0089833,8983.52)=""
^DD(200,"SB",200.0089834,8983.6)=""
^DD(200,"SB",200.01,20)=""
^DD(200,"SB",200.010113,101.13)=""
^DD(200,"SB",200.02,16)=""
^DD(200,"SB",200.03,203)=""
^DD(200,"SB",200.032,32)=""
^DD(200,"SB",200.0351,351)=""
^DD(200,"SB",200.04,10)=""
^DD(200,"SB",200.042,42)=""
^DD(200,"SB",200.05,8932.1)=""
^DD(200,"SB",200.051,51)=""
^DD(200,"SB",200.052,52)=""
^DD(200,"SB",200.06,8910)=""
^DD(200,"SB",200.07,9.5)=""
^DD(200,"SB",200.072,72)=""
^DD(200,"SB",200.074,74)=""
^DD(200,"SB",200.0747111,747.111)=""
^DD(200,"SB",200.074713,747.13)=""
^DD(200,"SB",200.07472,747.2)=""
^DD(200,"SB",200.074727,747.27)=""
^DD(200,"SB",200.074728,747.28)=""
^DD(200,"SB",200.074731,747.31)=""
^DD(200,"SB",200.074732,747.32)=""
^DD(200,"SB",200.074734,747.34)=""
^DD(200,"SB",200.074736,747.36)=""
^DD(200,"SB",200.074743,747.43)=""
^DD(200,"SB",200.074745,747.45)=""
^DD(200,"SB",200.07475,747.5)=""
^DD(200,"SB",200.07476,747.6)=""
^DD(200,"SB",200.07477,747.7)=""
^DD(200,"SB",200.07478,747.8)=""
^DD(200,"SB",200.19,19.5)=""
^DD(200,"SB",200.194,19.4)=""
^DD(200,"SB",200.196,19.6)=""
^DD(200,"SB",200.198,19.8)=""
^DD(200,"SB",200.541,54.1)=""
^DD(200,"SB",200.55,54.2)=""
^DD(200,"SB",200.72,720)=""
^DD(200.005,0)="NETWORK ADDRESS SUB-FIELD^^99^14"
^DD(200.005,0,"DT")="2910620"
^DD(200.005,0,"IX","B",200.005,.01)=""
^DD(200.005,0,"NM","NETWORK ADDRESS")=""
^DD(200.005,0,"UP")="200"
^DD(200.005,.01,0)="NETWORK ADDRESS LASTNAME^F^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(200.005,.01,1,0)="^.1"
^DD(200.005,.01,1,1,0)="200.005^B"
^DD(200.005,.01,1,1,1)="S ^VA(200,DA(1),500,""B"",$E(X,1,30),DA)="""""
^DD(200.005,.01,1,1,2)="K ^VA(200,DA(1),500,""B"",$E(X,1,30),DA)"
^DD(200.005,.01,3)="Answer must be 3-30 characters in length."
^DD(200.005,.01,21,0)="^^1^1^2910621^^^^"
^DD(200.005,.01,21,1,0)="This is the last name of the user."
^DD(200.005,.01,"DT")="2910620"
^DD(200.005,1,0)="NETWORK ADDRESS FIRST NAME^RF^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,1,3)="Answer must be 2-30 characters in length."
^DD(200.005,1,21,0)="^^1^1^2901129^"
^DD(200.005,1,21,1,0)="The recipient's first name should be entered into this field."
^DD(200.005,1,"DT")="2901129"
^DD(200.005,2,0)="X.400 USER ID^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,2,3)="Answer must be 2-30 characters in length."
^DD(200.005,2,21,0)="^^1^1^2901129^"
^DD(200.005,2,21,1,0)="Enter a string that uniquely identifies the user at the remote system."
^DD(200.005,2,"DT")="2901129"
^DD(200.005,3,0)="GENERATION^F^^0;4^K:$L(X)>9!($L(X)<1) X"
^DD(200.005,3,3)="Answer must be 1-9 characters in length."
^DD(200.005,3,21,0)="^^2^2^2901129^"
^DD(200.005,3,21,1,0)="The generation of the recipient is a suffix that further identifies him."
^DD(200.005,3,21,2,0)="Common strings used as such suffixes are: 'junior', 'senior', 'III'."
^DD(200.005,3,"DT")="2901129"
^DD(200.005,4,0)="COUNTRY^S^US:US;^0;5^Q"
^DD(200.005,4,21,0)="^^4^4^2901129^"
^DD(200.005,4,21,1,0)="All X.400 addresses require a 'country'.  If no country is known this system"
^DD(200.005,4,21,2,0)="will not deliver the mail.  As of 11/90 'US' was the only valid country."
^DD(200.005,4,21,3,0)="SMTP addresses such as 'name@domain' where domain ends with such strings as"
^DD(200.005,4,21,4,0)="'.EDU' need no country."
^DD(200.005,4,"DT")="2901129"
^DD(200.005,5,0)="ORGANIZATION^F^^1;1^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,5,3)="Answer must be 2-30 characters in length."
^DD(200.005,5,21,0)="^^6^6^2901129^"
^DD(200.005,5,21,1,0)="If you are filling in this field for an X.400 address, it is a standard"
^DD(200.005,5,21,2,0)="field.  If, however, you are filling in this field for an SMTP address,"
^DD(200.005,5,21,3,0)="you must fill in the third level of the domain.  For example, the third"
^DD(200.005,5,21,4,0)="level of the domain 'SILVER.FORUM.VA.GOV' is the string after the second"
^DD(200.005,5,21,5,0)="""."" starting from the right.  'GOV' is the first.  'VA' is the second."
^DD(200.005,5,21,6,0)="'SILVER' is the fourth level."
^DD(200.005,5,"DT")="2901129"
^DD(200.005,5.1,0)="ORGANIZATIONAL UNIT sub0^F^^1;2^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,5.1,3)="Answer must be 2-30 characters in length."
^DD(200.005,5.1,21,0)="^^4^4^2901129^^"
^DD(200.005,5.1,21,1,0)="This field contains the 'Orgainzational Unit' of the address if it is the"
^DD(200.005,5.1,21,2,0)="address of an X.400 recipient.  IF it is the address of an SMTP recipient,"
^DD(200.005,5.1,21,3,0)="this is the FOURTH LEVEL NAME of the DOMAIN.  See the ORGANIZATION field"
^DD(200.005,5.1,21,4,0)="for a description of domain levels of SMTP domains."
^DD(200.005,5.1,"DT")="2901129"
^DD(200.005,5.2,0)="ORGANIZATIONAL UNIT sub1^F^^1;3^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,5.2,3)="Answer must be 2-30 characters in length."
^DD(200.005,5.2,21,0)="^^7^7^2901129^"
^DD(200.005,5.2,21,1,0)="The Organizational Unit field of X.400 recipients is infinitely repeating."
^DD(200.005,5.2,21,2,0)="This system will only be able to handle 4 levels of Organizational Units."
^DD(200.005,5.2,21,3,0)="SMTP domains also have levels.  Each Organizational Unit 'subn' field is"
^DD(200.005,5.2,21,4,0)="a deeper definition (and level) of the SMTP domain.  'Sub1' is the fift"
^DD(200.005,5.2,21,5,0)="level of the domain field.  'Sub2' is the sixth level. 'Sub3' is the seventh."
^DD(200.005,5.2,21,6,0)="See the description of the ORGANIZATION field for further information on"
^DD(200.005,5.2,21,7,0)="levels of SMTP domains."
^DD(200.005,5.2,"DT")="2901129"
^DD(200.005,5.3,0)="ORGANIZATIONAL UNIT sub2^F^^1;4^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,5.3,3)="Answer must be 2-30 characters in length."
^DD(200.005,5.3,21,0)="^^2^2^2901129^"
^DD(200.005,5.3,21,1,0)="See the description of the 'ORGANIZATIONAL UNIT sub1' field for further"
^DD(200.005,5.3,21,2,0)="information."
^DD(200.005,5.3,"DT")="2901129"
^DD(200.005,5.4,0)="ORGANIZATIONAL UNIT sub3^F^^1;5^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,5.4,3)="Answer must be 2-30 characters in length."
^DD(200.005,5.4,21,0)="^^2^2^2901129^"
^DD(200.005,5.4,21,1,0)="See the description of the 'ORGANIZATIONAL UNIT SUB1' field for further"
^DD(200.005,5.4,21,2,0)="information."
^DD(200.005,5.4,"DT")="2901129"
^DD(200.005,6,0)="LOCALITY^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(200.005,6,3)="Answer must be 3-30 characters in length."
^DD(200.005,6,"DT")="2901129"
^DD(200.005,7,0)="APPLICATION ENTITY^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(200.005,7,3)="Answer must be 3-30 characters in length."
^DD(200.005,7,21,0)="^^2^2^2901129^"
^DD(200.005,7,21,1,0)="The 'Application Entity' field is the name of a piece of software that will"
^DD(200.005,7,21,2,0)="receive and process any messages it receives."
^DD(200.005,7,"DT")="2901129"
^DD(200.005,98,0)="PRIVATE ADMINISTRATIVE DOMAIN^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(200.005,98,3)="Answer must be 3-30 characters in length."
^DD(200.005,98,21,0)="^^7^7^2901129^"
^DD(200.005,98,21,1,0)="For X.400 addresses this field is standard.  For mapping into the SMTP"
^DD(200.005,98,21,2,0)="mail system (MailMan is an SMTP mail system.), this field is filled in"
^DD(200.005,98,21,3,0)="with a special string.  'DHCP' will be interpreted as "".VA.GOV"" for all"
^DD(200.005,98,21,4,0)="Department of Veterans' Affairs SMTP systems.  If the address does have"
^DD(200.005,98,21,5,0)="""DHCP' in this field, MailMan will try to deliver it to a VA site.  If"
^DD(200.005,98,21,6,0)="the address has anything else, MailMan will try to deliver to an X.400"
^DD(200.005,98,21,7,0)="system as of 11/90.  Later there may be additional special PRMDs."
^DD(200.005,98,"DT")="2901129"
^DD(200.005,99,0)="ADMINISTRATIVE DOMAIN^F^^0;8^K:$L(X)>30!($L(X)<2) X"
^DD(200.005,99,3)="Answer must be 2-30 characters in length."
^DD(200.005,99,21,0)="^^3^3^2901129^^"
^DD(200.005,99,21,1,0)="The Administrative domain is the carrier of the electronic channels.  Some"
^DD(200.005,99,21,2,0)="examples of carriers in the US are US SPRINT, AT&T and MCI Communications."
^DD(200.005,99,21,3,0)="This field is required only for X.400 addresses."
^DD(200.005,99,"DT")="2901129"
^DD(200.005,"B","ADMINISTRATIVE DOMAIN",99)=""
^DD(200.005,"B","APPLICATION ENTITY",7)=""
^DD(200.005,"B","COUNTRY",4)=""
^DD(200.005,"B","GENERATION",3)=""
^DD(200.005,"B","LOCALITY",6)=""
^DD(200.005,"B","NETWORK ADDRESS FIRST NAME",1)=""
^DD(200.005,"B","NETWORK ADDRESS LASTNAME",.01)=""
^DD(200.005,"B","ORGANIZATION",5)=""
^DD(200.005,"B","ORGANIZATIONAL UNIT sub0",5.1)=""
^DD(200.005,"B","ORGANIZATIONAL UNIT sub1",5.2)=""
^DD(200.005,"B","ORGANIZATIONAL UNIT sub2",5.3)=""
^DD(200.005,"B","ORGANIZATIONAL UNIT sub3",5.4)=""
^DD(200.005,"B","PRIVATE ADMINISTRATIVE DOMAIN",98)=""
^DD(200.005,"B","X.400 USER ID",2)=""
^DD(200.005,"GL",0,1,.01)=""
^DD(200.005,"GL",0,2,1)=""
^DD(200.005,"GL",0,3,2)=""
^DD(200.005,"GL",0,4,3)=""
^DD(200.005,"GL",0,5,4)=""
^DD(200.005,"GL",0,6,6)=""
^DD(200.005,"GL",0,7,7)=""
^DD(200.005,"GL",0,8,99)=""
^DD(200.005,"GL",0,9,98)=""
^DD(200.005,"GL",1,1,5)=""
^DD(200.005,"GL",1,2,5.1)=""
^DD(200.005,"GL",1,3,5.2)=""
^DD(200.005,"GL",1,4,5.3)=""
^DD(200.005,"GL",1,5,5.4)=""
^DD(200.005,"IX",.01)=""
^DD(200.005,"RQ",1)=""
^DD(200.0089831,0)="SPELLING EXCEPTION DICTIONARY SUB-FIELD^^.01^1"
^DD(200.0089831,0,"IX","B",200.0089831,.01)=""
^DD(200.0089831,0,"NM","SPELLING EXCEPTION DICTIONARY")=""
^DD(200.0089831,0,"UP")="200"
^DD(200.0089831,.01,0)="WORD^MFX^^0;1^K:$L(X)>30!($L(X)<1) X I $D(X),X'?.L,X'[""-"" K X"
^DD(200.0089831,.01,1,0)="^.1"
^DD(200.0089831,.01,1,1,0)="200.0089831^B"
^DD(200.0089831,.01,1,1,1)="S ^VA(200,DA(1),""LM1"",""B"",$E(X,1,30),DA)="""""
^DD(200.0089831,.01,1,1,2)="K ^VA(200,DA(1),""LM1"",""B"",$E(X,1,30),DA)"
^DD(200.0089831,.01,3)="Enter the WORD which should be checked by the spelling checker, from 1 to 30 lower case characters including '-'."
^DD(200.0089831,.01,21,0)="^^1^1^2900126^"
^DD(200.0089831,.01,21,1,0)="This field stores words which will be checked when spell checking a document."
^DD(200.0089831,.01,"DT")="2900126"
^DD(200.0089831,"B","WORD",.01)=""
^DD(200.0089831,"GL",0,1,.01)=""
^DD(200.0089831,"IX",.01)=""
^DD(200.0089832,0)="DEFINED FORMATS FOR LM SUB-FIELD^^2^3"
^DD(200.0089832,0,"IX","AC",200.0089832,1)=""
^DD(200.0089832,0,"IX","B",200.0089832,.01)=""
^DD(200.0089832,0,"NM","DEFINED FORMATS FOR LM")=""
^DD(200.0089832,0,"UP")="200"
^DD(200.0089832,.01,0)="NUMBER^MNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200.0089832,.01,1,0)="^.1"
^DD(200.0089832,.01,1,1,0)="200.0089832^B"
^DD(200.0089832,.01,1,1,1)="S ^VA(200,DA(1),""LM2"",""B"",$E(X,1,30),DA)="""""
^DD(200.0089832,.01,1,1,2)="K ^VA(200,DA(1),""LM2"",""B"",$E(X,1,30),DA)"
^DD(200.0089832,.01,3)="Enter the number of the predefined format line, from 1 to 9999999."
^DD(200.0089832,.01,21,0)="^^1^1^2900126^"
^DD(200.0089832,.01,21,1,0)="This is the reference number to the predefined format line."
^DD(200.0089832,.01,"DT")="2900126"
^DD(200.0089832,1,0)="DEFAULT^S^y:YES;n:NO;^0;2^Q"
^DD(200.0089832,1,1,0)="^.1"
^DD(200.0089832,1,1,1,0)="200.0089832^AC"
^DD(200.0089832,1,1,1,1)="S ^VA(200,DA(1),""LM2"",""AC"",$E(X,1,30),DA)="""""
^DD(200.0089832,1,1,1,2)="K ^VA(200,DA(1),""LM2"",""AC"",$E(X,1,30),DA)"
^DD(200.0089832,1,3)="Enter yes to use this format line when you enter the screen editor."
^DD(200.0089832,1,21,0)="^^3^3^2900126^"
^DD(200.0089832,1,21,1,0)="If set to yes, this format line will be used as the default format line"
^DD(200.0089832,1,21,2,0)="when using the screen editor.  If a document already has a format line"
^DD(200.0089832,1,21,3,0)="defined, then the document format will be used."
^DD(200.0089832,1,"DT")="2900126"
^DD(200.0089832,2,0)="FORMAT LINE^FX^^0;3^K:$L(X)>79!($L(X)<1) X I $D(X) S %=X,X=""WPSEPHR1"" X ^%ZOSF(""TEST"") K X I $T S X=% D CHECK^WPSEPHR1"
^DD(200.0089832,2,3)="The format line should contain dots '.' representing spaces or 'T' representing tab or indent markers followed by a '<' indicating the end of the right margin."
^DD(200.0089832,2,21,0)="^^1^1^2900126^"
^DD(200.0089832,2,21,1,0)="This field stores the predefined format lines of the user."
^DD(200.0089832,2,"DT")="2900710"
^DD(200.0089832,"B","DEFAULT",1)=""
^DD(200.0089832,"B","FORMAT LINE",2)=""
^DD(200.0089832,"B","NUMBER",.01)=""
^DD(200.0089832,"GL",0,1,.01)=""
^DD(200.0089832,"GL",0,2,1)=""
^DD(200.0089832,"GL",0,3,2)=""
^DD(200.0089832,"IX",.01)=""
^DD(200.0089832,"IX",1)=""
^DD(200.0089833,0)="DEFINED PHRASES FOR LM SUB-FIELD^^1^2"
^DD(200.0089833,0,"IX","B",200.0089833,.01)=""
^DD(200.0089833,0,"NM","DEFINED PHRASES FOR LM")=""
^DD(200.0089833,0,"UP")="200"
^DD(200.0089833,.01,0)="KEYWORD^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(200.0089833,.01,1,0)="^.1"
^DD(200.0089833,.01,1,1,0)="200.0089833^B"
^DD(200.0089833,.01,1,1,1)="S ^VA(200,DA(1),""LM3"",""B"",$E(X,1,30),DA)="""""
^DD(200.0089833,.01,1,1,2)="K ^VA(200,DA(1),""LM3"",""B"",$E(X,1,30),DA)"
^DD(200.0089833,.01,3)="Enter the keyword used to select this phrase, from 1 to 50 characters."
^DD(200.0089833,.01,21,0)="^^1^1^2900126^"
^DD(200.0089833,.01,21,1,0)="The predefined phrase 'keyword' used to select the phrase."
^DD(200.0089833,.01,"DT")="2900126"
^DD(200.0089833,1,0)="PHRASE^200.00898331^^1;0"
^DD(200.0089833,1,21,0)="^^1^1^2900126^"
^DD(200.0089833,1,21,1,0)="The phrase to be inserted into the document."
^DD(200.0089833,"B","KEYWORD",.01)=""
^DD(200.0089833,"B","PHRASE",1)=""
^DD(200.0089833,"GL",0,1,.01)=""
^DD(200.0089833,"GL",1,0,1)=""
^DD(200.0089833,"IX",.01)=""
^DD(200.0089833,"SB",200.00898331,1)=""
^DD(200.00898331,0)="PHRASE SUB-FIELD^^.01^1"
^DD(200.00898331,0,"NM","PHRASE")=""
^DD(200.00898331,0,"UP")="200.0089833"
^DD(200.00898331,.01,0)="PHRASE^WL^^0;1^Q"
^DD(200.00898331,.01,"DT")="2900126"
^DD(200.00898331,"B","PHRASE",.01)=""
^DD(200.00898331,"GL",0,1,.01)=""
^DD(200.0089834,0)="LM LIMIT WP FIELDS TO EDIT SUB-FIELD^^.01^1"
^DD(200.0089834,0,"IX","B",200.0089834,.01)=""
^DD(200.0089834,0,"NM","LM LIMIT WP FIELDS TO EDIT")=""
^DD(200.0089834,0,"UP")="200"
^DD(200.0089834,.01,0)="LM LIMIT WP FIELDS TO EDIT^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>150!($L(X)<4) X I $D(X) S %=X,X=""WPSEFM"" X ^%ZOSF(""TEST"") K X I $T S X=% D SCREEN^WPSEFM"
^DD(200.0089834,.01,.1)="Limited Word-Processing Fields to Edit"
^DD(200.0089834,.01,1,0)="^.1"
^DD(200.0089834,.01,1,1,0)="200.0089834^B"
^DD(200.0089834,.01,1,1,1)="S ^VA(200,DA(1),""LM4"",""B"",$E(X,1,30),DA)="""""
^DD(200.0089834,.01,1,1,2)="K ^VA(200,DA(1),""LM4"",""B"",$E(X,1,30),DA)"
^DD(200.0089834,.01,3)="Answer must be 4-150 characters in length."
^DD(200.0089834,.01,4)="S X=""WPSEHELP"" X ^%ZOSF(""TEST"") I $T D FMHELP^WPSEHELP"
^DD(200.0089834,.01,"DT")="2901212"
^DD(200.0089834,"B","LM LIMIT WP FIELDS TO EDIT",.01)=""
^DD(200.0089834,"GL",0,1,.01)=""
^DD(200.0089834,"IX",.01)=""
^DD(200.01,0)="UCI SUB-FIELD^NL^2^2"
^DD(200.01,0,"IX","B",200.01,.01)=""
^DD(200.01,0,"NM","UCI")=""
^DD(200.01,0,"UP")="200"
^DD(200.01,.01,0)="UCI^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(200.01,.01,1,0)="^.1"
^DD(200.01,.01,1,1,0)="200.01^B"
^DD(200.01,.01,1,1,1)="S ^VA(200,DA(1),.2,""B"",$E(X,1,30),DA)="""""
^DD(200.01,.01,1,1,2)="K ^VA(200,DA(1),.2,""B"",$E(X,1,30),DA)"
^DD(200.01,.01,3)="THE 3 CHAR. NAME OF THE UCI'S THE USER IS ALLOWED IN"
^DD(200.01,.01,21,0)="^^2^2^2920513^^"
^DD(200.01,.01,21,1,0)="This is one of a set of UCI's that this user may choose to work in"
^DD(200.01,.01,21,2,0)="at sign-on time."
^DD(200.01,2,0)="ROUTINES (RN1:RN2)^F^^0;2^K:$L(X)>200!($L(X)<2) X"
^DD(200.01,2,3)="ENTRY POINT ROUTINE NAMES SEPARATED BY ':'"
^DD(200.01,2,21,0)="^^2^2^2920513^^"
^DD(200.01,2,21,1,0)="This is a list of routines that the user may choose to run when signing on"
^DD(200.01,2,21,2,0)="to this UCI.  The routines are seperated by ':'s."
^DD(200.01,"B","ROUTINES (RN1:RN2)",2)=""
^DD(200.01,"B","UCI",.01)=""
^DD(200.01,"GL",0,1,.01)=""
^DD(200.01,"GL",0,2,2)=""
^DD(200.01,"IX",.01)=""
^DD(200.010113,0)="CPRS TAB SUB-FIELD^^.03^3"
^DD(200.010113,0,"DT")="3020313"
^DD(200.010113,0,"ID","WR1")="D EN^DDIOL(""   ""_$$FMTE^DILIBF($P(^(0),U,2),5),"""",""?0"")"
^DD(200.010113,0,"ID","WR2")="D EN^DDIOL(""   ""_$$FMTE^DILIBF($P(^(0),U,3),5),"""",""?0"")"
^DD(200.010113,0,"IX","B",200.010113,.01)=""
^DD(200.010113,0,"NM","CPRS TAB")=""
^DD(200.010113,0,"UP")="200"
^DD(200.010113,.01,0)="CPRS TAB^MP101.13'^ORD(101.13,^0;1^Q"
^DD(200.010113,.01,1,0)="^.1"
^DD(200.010113,.01,1,1,0)="200.010113^B"
^DD(200.010113,.01,1,1,1)="S ^VA(200,DA(1),""ORD"",""B"",$E(X,1,30),DA)="""""
^DD(200.010113,.01,1,1,2)="K ^VA(200,DA(1),""ORD"",""B"",$E(X,1,30),DA)"
^DD(200.010113,.01,21,0)="^^3^3^3020314^"
^DD(200.010113,.01,21,1,0)="This is a pointer to the OR CPRS TABS (#101.13) file. Enter the name of"
^DD(200.010113,.01,21,2,0)="the CPRS tab for which you want to set effective and expiration dates for"
^DD(200.010113,.01,21,3,0)="access for this user."
^DD(200.010113,.01,"DT")="3020313"
^DD(200.010113,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.010113,.02,21,0)="^^1^1^3020315^"
^DD(200.010113,.02,21,1,0)="This is the effective date of access to the CPRS tab."
^DD(200.010113,.02,"DT")="3020313"
^DD(200.010113,.03,0)="EXPIRATION DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.010113,.03,21,0)="^^1^1^3020315^"
^DD(200.010113,.03,21,1,0)="This is the expiration date of access to the CPRS tab."
^DD(200.010113,.03,"DT")="3020313"
^DD(200.010113,"B","CPRS TAB",.01)=""
^DD(200.010113,"B","EFFECTIVE DATE",.02)=""
^DD(200.010113,"B","EXPIRATION DATE",.03)=""
^DD(200.010113,"GL",0,1,.01)=""
^DD(200.010113,"GL",0,2,.02)=""
^DD(200.010113,"GL",0,3,.03)=""
^DD(200.010113,"IX",.01)=""
^DD(200.010113,"RQ",.02)=""
^DD(200.02,0)="DIVISION SUB-FIELD^NL^1^2"
^DD(200.02,0,"DT")="3000424"
^DD(200.02,0,"IX","AX1",200.02,1)=""
^DD(200.02,0,"IX","B",200.02,.01)=""
^DD(200.02,0,"NM","DIVISION")=""
^DD(200.02,0,"UP")="200"
^DD(200.02,.01,0)="DIVISION^P4'X^DIC(4,^0;1^S DINUM=X K:$S($D(^XUSEC(""XUMGR"",DUZ)):0,'$$TF^XUAF4(X):1,1:0) X,DINUM"
^DD(200.02,.01,1,0)="^.1"
^DD(200.02,.01,1,1,0)="200.02^B"
^DD(200.02,.01,1,1,1)="S ^VA(200,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(200.02,.01,1,1,2)="K ^VA(200,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(200.02,.01,1,1,"%D",0)="^^1^1^2990208^"
^DD(200.02,.01,1,1,"%D",1,0)="This is a standard B cross-reference."
^DD(200.02,.01,1,1,"DT")="2990208"
^DD(200.02,.01,1,2,0)="200^AH"
^DD(200.02,.01,1,2,1)="S ^VA(200,""AH"",$E(X,1,30),DA(1),DA)="""""
^DD(200.02,.01,1,2,2)="K ^VA(200,""AH"",$E(X,1,30),DA(1),DA)"
^DD(200.02,.01,1,2,"DT")="2991122"
^DD(200.02,.01,3)="Please enter the name of the Division that the user may sign-on as a employee of.  The Division should be an active treating facility."
^DD(200.02,.01,21,0)="^^1^1^2920513^^^^"
^DD(200.02,.01,21,1,0)="The name of a Division that this user may sign on to."
^DD(200.02,.01,"DT")="3030306"
^DD(200.02,1,0)="DEFAULT^SX^1:Yes;0:No;^0;2^I X=1,$D(^VA(200,DA(1),2,""AX1"",1)) K X"
^DD(200.02,1,1,0)="^.1"
^DD(200.02,1,1,1,0)="200.02^AX1^MUMPS"
^DD(200.02,1,1,1,1)="S:X=1 ^VA(200,DA(1),2,""AX1"",X,DA)="""""
^DD(200.02,1,1,1,2)="K:X=1 ^VA(200,DA(1),2,""AX1"",X,DA)"
^DD(200.02,1,1,1,3)="Used to see that only one entry is marked as default."
^DD(200.02,1,1,1,"DT")="3000424"
^DD(200.02,1,3)="Can only be set 'yes' for one division."
^DD(200.02,1,4)="N % S %=$O(^VA(200,DA(1),2,""AX1"",1,0)) I % D EN^DDIOL(""Division ""_$P($G(^DIC(4,%,0)),U)_"" is the default"","""",""?0"")"
^DD(200.02,1,21,0)="^.001^4^4^3000424^^"
^DD(200.02,1,21,1,0)="This field is used to indicate that a particular division should be"
^DD(200.02,1,21,2,0)="presented to the user as a default when selecting a division.  This will"
^DD(200.02,1,21,3,0)="only affect users that have more than one division."
^DD(200.02,1,21,4,0)="A cross reference will only allow one entry to have this flag set."
^DD(200.02,1,"DT")="3000424"
^DD(200.02,"B","DEFAULT",1)=""
^DD(200.02,"B","DIVISION",.01)=""
^DD(200.02,"GL",0,1,.01)=""
^DD(200.02,"GL",0,2,1)=""
^DD(200.02,"IX",.01)=""
^DD(200.02,"IX",1)=""
^DD(200.03,0)="SECONDARY MENU OPTIONS SUB-FIELD^NL^2^2"
^DD(200.03,0,"DT")="2930105"
^DD(200.03,0,"IX","AC",200.03,.01)=""
^DD(200.03,0,"IX","AOB",200.03,.01)=""
^DD(200.03,0,"IX","B",200.03,.01)=""
^DD(200.03,0,"NM","SECONDARY MENU OPTIONS")=""
^DD(200.03,0,"UP")="200"
^DD(200.03,.01,0)="SECONDARY MENU OPTIONS^M*P19'^DIC(19,^0;1^S DIC(""S"")=""I $D(^XUSEC(""""XUMGR"""",DUZ))!$D(^VA(200,DUZ,19.5,+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200.03,.01,1,0)="^.1"
^DD(200.03,.01,1,1,0)="200^AD"
^DD(200.03,.01,1,1,1)="S ^VA(200,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(200.03,.01,1,1,2)="K ^VA(200,""AD"",$E(X,1,30),DA(1),DA)"
^DD(200.03,.01,1,2,0)="200^AOA^MUMPS"
^DD(200.03,.01,1,2,1)="S ^VA(200,DA(1),203.1)=$H"
^DD(200.03,.01,1,2,2)="S ^VA(200,DA(1),203.1)=$H"
^DD(200.03,.01,1,2,3)="Updates the timestamp field."
^DD(200.03,.01,1,3,0)="200.03^AOB^MUMPS"
^DD(200.03,.01,1,3,1)="D REDOXP^XQ7"
^DD(200.03,.01,1,3,2)="Q"
^DD(200.03,.01,1,3,"%D",0)="^^5^5^2930415^^"
^DD(200.03,.01,1,3,"%D",1,0)="This cross reference checks for whether this entry creates a new"
^DD(200.03,.01,1,3,"%D",2,0)="entry in the compiled menu tree in XUTL(""XQO"",  If it is a new"
^DD(200.03,.01,1,3,"%D",3,0)="entry then a flag will be set by the code in XQ7 in the ""AT"""
^DD(200.03,.01,1,3,"%D",4,0)="cross reference of the option file (^DIC(19,""AT"",  to cause the"
^DD(200.03,.01,1,3,"%D",5,0)="menu tree to be generated."
^DD(200.03,.01,1,3,"DT")="2900126"
^DD(200.03,.01,1,4,0)="200.03^B"
^DD(200.03,.01,1,4,1)="S ^VA(200,DA(1),203,""B"",$E(X,1,30),DA)="""""
^DD(200.03,.01,1,4,2)="K ^VA(200,DA(1),203,""B"",$E(X,1,30),DA)"
^DD(200.03,.01,1,4,"DT")="2960209"
^DD(200.03,.01,1,5,0)="200.03^AC^MUMPS"
^DD(200.03,.01,1,5,1)="D CONTCL^XUSTERM1(DA(1))"
^DD(200.03,.01,1,5,2)="D CONTCL^XUSTERM1(DA(1))"
^DD(200.03,.01,1,5,3)="Clear Continue"
^DD(200.03,.01,1,5,"%D",0)="^.101^3^3^3020411^^"
^DD(200.03,.01,1,5,"%D",1,0)="This X-ref calls code to clear the following fields  LAST OPTION ACCESSED"
^DD(200.03,.01,1,5,"%D",2,0)="(202.1) and LAST OPTION MAIN MENU (202.2). This is too keep users from"
^DD(200.03,.01,1,5,"%D",3,0)="getting asked to continue if there menu has changed."
^DD(200.03,.01,1,5,"DT")="3020411"
^DD(200.03,.01,3)="Please enter a menu-type option."
^DD(200.03,.01,12)="YOU MUST HAVE XUMGR OR HAVE BEEN DELEGATED THAT OPTION."
^DD(200.03,.01,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""XUMGR"""",DUZ))!$D(^VA(200,DUZ,19.5,+Y,0))"""
^DD(200.03,.01,21,0)="^^3^3^2930415^^^^"
^DD(200.03,.01,21,1,0)="This is an option which is merged with the users primary menu"
^DD(200.03,.01,21,2,0)="and XUCOMMAND option, giving the user this option on all of her/his"
^DD(200.03,.01,21,3,0)="menus."
^DD(200.03,.01,"DT")="3020411"
^DD(200.03,2,0)="SYNONYM^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(200.03,2,1,0)="^.1"
^DD(200.03,2,1,1,0)="200^AOB^MUMPS"
^DD(200.03,2,1,1,1)="S ^VA(200,DA(1),203.1)=$H"
^DD(200.03,2,1,1,2)="S ^VA(200,DA(1),203.1)=$H"
^DD(200.03,2,1,1,3)="Updates the timestamp field."
^DD(200.03,2,3)="Answer must be 1-4 characters in length."
^DD(200.03,2,21,0)="^^2^2^2930415^^^^"
^DD(200.03,2,21,1,0)="This is a user-specific synonym which may be used in addressing this"
^DD(200.03,2,21,2,0)="option."
^DD(200.03,2,"AUDIT")=""
^DD(200.03,2,"DT")="2910619"
^DD(200.03,"B","SECONDARY MENU OPTIONS",.01)=""
^DD(200.03,"B","SYNONYM",2)=""
^DD(200.03,"GL",0,1,.01)=""
^DD(200.03,"GL",0,2,2)=""
^DD(200.03,"IX",.01)=""
^DD(200.03,"IX",2)=""
^DD(200.032,0)="ACCESSIBLE FILE SUB-FIELD^^6^8"
^DD(200.032,0,"DT")="2920402"
^DD(200.032,0,"IX","B",200.032,.01)=""
^DD(200.032,0,"NM","ACCESSIBLE FILE")=""
^DD(200.032,0,"UP")="200"
^DD(200.032,.001,0)="FILE NUMBER^NJ16,4^^ ^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""5N.N) X"
^DD(200.032,.001,3)="Type a Number between 1 and 99999999999, 4 Decimal Digits"
^DD(200.032,.001,21,0)="^^2^2^2930506^^"
^DD(200.032,.001,21,1,0)="When defined, this field makes the sub-file's internal entry number"
^DD(200.032,.001,21,2,0)="accessible for inquiry and edit."
^DD(200.032,.001,"DT")="2920402"
^DD(200.032,.01,0)="ACCESSIBLE FILE^M*P1'X^DIC(^0;1^S DIC(""S"")=""I $D(^VA(200,DUZ,""""FOF"""",+Y,0)),$P(^(0),U,2)"" S:DUZ(0)[""@"" DIC(""S"")=""I Y>1.1"" D ^DIC K DIC S DIC=DIE,DINUM=X K:Y<0 X"
^DD(200.032,.01,1,0)="^.1"
^DD(200.032,.01,1,1,0)="200.032^B"
^DD(200.032,.01,1,1,1)="S ^VA(200,DA(1),""FOF"",""B"",$E(X,1,30),DA)="""""
^DD(200.032,.01,1,1,2)="K ^VA(200,DA(1),""FOF"",""B"",$E(X,1,30),DA)"
^DD(200.032,.01,1,2,0)="200^AFOF"
^DD(200.032,.01,1,2,1)="S ^VA(200,""AFOF"",$E(X,1,30),DA(1),DA)="""""
^DD(200.032,.01,1,2,2)="K ^VA(200,""AFOF"",$E(X,1,30),DA(1),DA)"
^DD(200.032,.01,12)="Only files that may be seen"
^DD(200.032,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,DUZ,""""FOF"""",+Y,0)),$P(^(0),U,2)"" S:DUZ(0)[""@"" DIC(""S"")=""I Y>1.1"""
^DD(200.032,.01,"DT")="2880414"
^DD(200.032,1,0)="DATA DICTIONARY ACCESS^S^1:YES;0:NO;^0;2^Q"
^DD(200.032,1,21,0)="^^2^2^2940627^^^"
^DD(200.032,1,21,1,0)="This field is a flag that, when set to 1, gives the user data dictionary"
^DD(200.032,1,21,2,0)="access to the file (in the .01 field) represented in this record."
^DD(200.032,1,"DT")="3030408"
^DD(200.032,2,0)="DELETE ACCESS^S^1:YES;0:NO;^0;3^Q"
^DD(200.032,2,3)=""
^DD(200.032,2,21,0)="^^2^2^2940627^^^"
^DD(200.032,2,21,1,0)="This field is a flag that, when set to 1, gives the user delete access to"
^DD(200.032,2,21,2,0)="the file (in the .01 field) represented in this record."
^DD(200.032,2,"DT")="3030408"
^DD(200.032,3,0)="LAYGO ACCESS^S^1:YES;0:NO;^0;4^Q"
^DD(200.032,3,3)=""
^DD(200.032,3,21,0)="^^2^2^2930506^"
^DD(200.032,3,21,1,0)="This field is a flag that, when set to 1, gives the user LAYGO access to"
^DD(200.032,3,21,2,0)="the file (in the .01 field) represented in this record."
^DD(200.032,3,"DT")="3030408"
^DD(200.032,4,0)="READ ACCESS^S^1:YES;0:NO;^0;5^Q"
^DD(200.032,4,3)=""
^DD(200.032,4,21,0)="^^2^2^2930506^"
^DD(200.032,4,21,1,0)="This field is a flag that, when set to 1, gives the user read access to"
^DD(200.032,4,21,2,0)="the file (in the .01 field) represented in this record."
^DD(200.032,4,"DT")="3030408"
^DD(200.032,5,0)="WRITE ACCESS^S^1:YES;0:NO;^0;6^Q"
^DD(200.032,5,3)=""
^DD(200.032,5,21,0)="^^2^2^2930506^"
^DD(200.032,5,21,1,0)="This field is a flag that, when set to 1, gives the user write access to"
^DD(200.032,5,21,2,0)="the file (in the .01 field) represented in this record."
^DD(200.032,5,"DT")="3030408"
^DD(200.032,6,0)="AUDIT ACCESS^S^1:YES;0:NO;^0;7^Q"
^DD(200.032,6,21,0)="^^2^2^2930506^"
^DD(200.032,6,21,1,0)="This field is a flag that, when set to 1, gives the user audit access to"
^DD(200.032,6,21,2,0)="the file (in the .01 field) represented in this record."
^DD(200.032,6,"DT")="3030408"
^DD(200.032,"B","ACCESSIBLE FILE",.01)=""
^DD(200.032,"B","AUDIT ACCESS",6)=""
^DD(200.032,"B","DATA DICTIONARY ACCESS",1)=""
^DD(200.032,"B","DELETE ACCESS",2)=""
^DD(200.032,"B","FILE NUMBER",.001)=""
^DD(200.032,"B","LAYGO ACCESS",3)=""
^DD(200.032,"B","READ ACCESS",4)=""
^DD(200.032,"B","WRITE ACCESS",5)=""
^DD(200.032,"GL",0,1,.01)=""
^DD(200.032,"GL",0,2,1)=""
^DD(200.032,"GL",0,3,2)=""
^DD(200.032,"GL",0,4,3)=""
^DD(200.032,"GL",0,5,4)=""
^DD(200.032,"GL",0,6,5)=""
^DD(200.032,"GL",0,7,6)=""
^DD(200.032,"IX",.01)=""
^DD(200.0351,0)="PERSONAL DIAGNOSES LIST SUB-FIELD^^1^2"
^DD(200.0351,0,"DT")="3040707"
^DD(200.0351,0,"IX","B",200.0351,.01)=""
^DD(200.0351,0,"NM","PERSONAL DIAGNOSES LIST")=""
^DD(200.0351,0,"UP")="200"
^DD(200.0351,.01,0)="DIAGNOSIS^P80'^ICD9(^0;1^Q"
^DD(200.0351,.01,1,0)="^.1"
^DD(200.0351,.01,1,1,0)="200.0351^B"
^DD(200.0351,.01,1,1,1)="S ^VA(200,DA(1),351,""B"",$E(X,1,30),DA)="""""
^DD(200.0351,.01,1,1,2)="K ^VA(200,DA(1),351,""B"",$E(X,1,30),DA)"
^DD(200.0351,.01,21,0)="^.001^1^1^3040707^^"
^DD(200.0351,.01,21,1,0)="A diagnosis in the provider's preferred list."
^DD(200.0351,.01,"DT")="3040302"
^DD(200.0351,1,0)="EXPRESSION^P757.01'^LEX(757.01,^0;2^Q"
^DD(200.0351,1,21,0)="^.001^3^3^3040708^^^^"
^DD(200.0351,1,21,1,0)="This is the diagnosis code's Lexicon"
^DD(200.0351,1,21,2,0)="expression as stored in the EXPRESSION file,"
^DD(200.0351,1,21,3,0)="file # 757.01."
^DD(200.0351,1,"DT")="3040707"
^DD(200.0351,"B","DIAGNOSIS",.01)=""
^DD(200.0351,"B","EXPRESSION",1)=""
^DD(200.0351,"GL",0,1,.01)=""
^DD(200.0351,"GL",0,2,1)=""
^DD(200.0351,"IX",.01)=""
^DD(200.04,0)="ALIAS SUB-FIELD^^.01^1"
^DD(200.04,0,"DT")="2911210"
^DD(200.04,0,"IX","B",200.04,.01)=""
^DD(200.04,0,"NM","ALIAS")=""
^DD(200.04,0,"UP")="200"
^DD(200.04,.01,0)="ALIAS^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<2)!(X'?2U.UP) X"
^DD(200.04,.01,1,0)="^.1"
^DD(200.04,.01,1,1,0)="200.04^B"
^DD(200.04,.01,1,1,1)="S ^VA(200,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(200.04,.01,1,1,2)="K ^VA(200,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(200.04,.01,1,2,0)="200^BB"
^DD(200.04,.01,1,2,1)="S ^VA(200,""BB"",$E(X,1,30),DA(1),DA)="""""
^DD(200.04,.01,1,2,2)="K ^VA(200,""BB"",$E(X,1,30),DA(1),DA)"
^DD(200.04,.01,3)="Answer must be 2-35 uppercase characters in length."
^DD(200.04,.01,"DT")="2911210"
^DD(200.04,"B","ALIAS",.01)=""
^DD(200.04,"GL",0,1,.01)=""
^DD(200.04,"IX",.01)=""
^DD(200.042,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.03^3"
^DD(200.042,0,"DT")="3060301"
^DD(200.042,0,"IX","AC",200.042,.03)=""
^DD(200.042,0,"IX","B",200.042,.01)=""
^DD(200.042,0,"IX","C",200.042,.03)=""
^DD(200.042,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(200.042,0,"UP")="200"
^DD(200.042,.01,0)="EFFECTIVE DATE/TIME^DX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.042,.01,1,0)="^.1"
^DD(200.042,.01,1,1,0)="200.042^B"
^DD(200.042,.01,1,1,1)="S ^VA(200,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(200.042,.01,1,1,2)="K ^VA(200,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)"
^DD(200.042,.01,3)="Enter the date/time of the last change to this NPI."
^DD(200.042,.01,21,0)="^^1^1^3060425^"
^DD(200.042,.01,21,1,0)="This field contains the date and time of the last change to the NPI field."
^DD(200.042,.01,"DT")="3060425"
^DD(200.042,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(200.042,.02,21,0)="^.001^4^4^3060405^^^"
^DD(200.042,.02,21,1,0)="The Status of an NPI is either 'ACTIVE' or 'INACTIVE'. I 'ACTIVE' then "
^DD(200.042,.02,21,2,0)="the NPI will be accessible by end-users to document a particular "
^DD(200.042,.02,21,3,0)="provider. If 'INACTIVE', then the NPI will only be accessible by the "
^DD(200.042,.02,21,4,0)="application to display legacy data."
^DD(200.042,.02,"DT")="3060301"
^DD(200.042,.03,0)="NPI^RFX^^0;3^K:'($$CHKDGT^XUSNPIE1(X,DA,""Individual_ID"")) X"
^DD(200.042,.03,1,0)="^.1"
^DD(200.042,.03,1,1,0)="200.042^C"
^DD(200.042,.03,1,1,1)="S ^VA(200,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)="""""
^DD(200.042,.03,1,1,2)="K ^VA(200,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)"
^DD(200.042,.03,1,1,"DT")="3060301"
^DD(200.042,.03,1,2,0)="200.042^AC^MUMPS"
^DD(200.042,.03,1,2,1)="D SET^XUSNPIE1(DA(1),X)"
^DD(200.042,.03,1,2,2)="Q"
^DD(200.042,.03,1,2,3)="Special Trigger"
^DD(200.042,.03,1,2,"%D",0)="^.101^1^1^3060511^^"
^DD(200.042,.03,1,2,"%D",1,0)="This Special x-ref sets the NPI field (#41.99)."
^DD(200.042,.03,1,2,"DT")="3060511"
^DD(200.042,.03,3)="Answer must be 10 digit value assigned by Centers for Medicare and Medicaid Services (CMS)."
^DD(200.042,.03,21,0)="^^6^6^3070918^"
^DD(200.042,.03,21,1,0)="Each VHA Billable Practitioner should have applied for the NPI through"
^DD(200.042,.03,21,2,0)="CMS' National Plan and Provider Enumeration System (NPPES).  NPI"
^DD(200.042,.03,21,3,0)="Confirmation Letters are sent by CMS and indicate the NPI assigned."
^DD(200.042,.03,21,4,0)="Practitioners may present their NPI Confirmation Letter as a source"
^DD(200.042,.03,21,5,0)="document to verify the accuracy of the NPI or you may contact your Local"
^DD(200.042,.03,21,6,0)="NPI Maintenance Team Leader for assistance."
^DD(200.042,.03,"DT")="3070918"
^DD(200.042,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(200.042,"B","NPI",.03)=""
^DD(200.042,"B","STATUS",.02)=""
^DD(200.042,"GL",0,1,.01)=""
^DD(200.042,"GL",0,2,.02)=""
^DD(200.042,"GL",0,3,.03)=""
^DD(200.042,"IX",.01)=""
^DD(200.042,"IX",.03)=""
^DD(200.042,"RQ",.02)=""
^DD(200.042,"RQ",.03)=""
^DD(200.05,0)="PERSON CLASS SUB-FIELD^^3^3"
^DD(200.05,0,"ACT")="I $P($G(^VA(200,DA(1),""USC1"",DA,0)),U,3)>0 S Y=-1"
^DD(200.05,0,"DT")="2960603"
^DD(200.05,0,"IX","AC",200.05,.01)=""
^DD(200.05,0,"IX","AD",200.05,2)=""
^DD(200.05,0,"IX","AE",200.05,2)=""
^DD(200.05,0,"IX","B",200.05,.01)=""
^DD(200.05,0,"NM","PERSON CLASS")=""
^DD(200.05,0,"UP")="200"
^DD(200.05,.01,0)="Person Class^*P8932.1'^USC(8932.1,^0;1^S DIC(""S"")=""I $P(^(0),U,4)'[""""i"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200.05,.01,1,0)="^.1"
^DD(200.05,.01,1,1,0)="200.05^B"
^DD(200.05,.01,1,1,1)="S ^VA(200,DA(1),""USC1"",""B"",$E(X,1,30),DA)="""""
^DD(200.05,.01,1,1,2)="K ^VA(200,DA(1),""USC1"",""B"",$E(X,1,30),DA)"
^DD(200.05,.01,1,2,0)="200.05^AC^MUMPS"
^DD(200.05,.01,1,2,1)="D SET01^XUA4A72"
^DD(200.05,.01,1,2,2)="Q"
^DD(200.05,.01,1,2,3)="Special Trigger"
^DD(200.05,.01,1,2,"%D",0)="^^1^1^2960603^"
^DD(200.05,.01,1,2,"%D",1,0)="This X-ref triggers the current date into the Effective Date field."
^DD(200.05,.01,1,2,"DT")="2960603"
^DD(200.05,.01,12)="Don't allow Inactive entries to be selected."
^DD(200.05,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)'[""""i"""""""
^DD(200.05,.01,21,0)="^^1^1^2960730^^^"
^DD(200.05,.01,21,1,0)="This is a pointer to the Person class file."
^DD(200.05,.01,"DEL",1,0)="I 1 ;Don't allow delete"
^DD(200.05,.01,"DT")="2960603"
^DD(200.05,2,0)="Effective Date^RDX^^0;2^N %DT,% S %DT=""EX"",%=$O(^VA(200,D0,""USC1"",DA),-1) S:% %=$P($G(^(%,0)),U,2) S:% %DT(0)=% D ^%DT S X=Y K:Y<1 X"
^DD(200.05,2,1,0)="^.1"
^DD(200.05,2,1,1,0)="200.05^AD"
^DD(200.05,2,1,1,1)="S ^VA(200,DA(1),""USC1"",""AD"",$E(X,1,30),DA)="""""
^DD(200.05,2,1,1,2)="K ^VA(200,DA(1),""USC1"",""AD"",$E(X,1,30),DA)"
^DD(200.05,2,1,1,3)="Don't Delete"
^DD(200.05,2,1,1,"%D",0)="^^2^2^2960529^"
^DD(200.05,2,1,1,"%D",1,0)="This X-ref is by date and allows us to find the most current entry"
^DD(200.05,2,1,1,"%D",2,0)="in the file."
^DD(200.05,2,1,1,"DT")="2960529"
^DD(200.05,2,1,2,0)="200.05^AE^MUMPS"
^DD(200.05,2,1,2,1)="D SET2^XUA4A72"
^DD(200.05,2,1,2,2)="D KILL2^XUA4A72"
^DD(200.05,2,1,2,3)="Special Trigger"
^DD(200.05,2,1,2,"%D",0)="^^2^2^2960703^"
^DD(200.05,2,1,2,"%D",1,0)="This Special X-ref sets the Expiration date of the previous person class"
^DD(200.05,2,1,2,"%D",2,0)="entry to the current record's Effective date."
^DD(200.05,2,1,2,"DT")="2960603"
^DD(200.05,2,3)="The date that this Person Class became effective."
^DD(200.05,2,21,0)="^^1^1^2960703^^^^"
^DD(200.05,2,21,1,0)="This field is trigger by adding a new person class."
^DD(200.05,2,"DT")="3030424"
^DD(200.05,3,0)="Expiration Date^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y I Y<1!'$$ENT^XUA4A73(.DA,X) K X"
^DD(200.05,3,3)="Last active date. After this date the Person Class is no longer valid."
^DD(200.05,3,21,0)="^^7^7^3070419^"
^DD(200.05,3,21,1,0)="This field is the date after which this class becomes inactive."
^DD(200.05,3,21,2,0)="This field must be not less than the EFFECTIVE DATE and not greater "
^DD(200.05,3,21,3,0)="than the DATE INACTIVATED field(#4) of the Person Class entry in the"
^DD(200.05,3,21,4,0)="PERSON CLASS file(#8932.1)."
^DD(200.05,3,21,5,0)="       "
^DD(200.05,3,21,6,0)="It will get triggered if a new Person Class is entered or someone"
^DD(200.05,3,21,7,0)="edits the field to inactivate the class."
^DD(200.05,3,"DT")="3070316"
^DD(200.05,"B","Effective Date",2)=""
^DD(200.05,"B","Expiration Date",3)=""
^DD(200.05,"B","Person Class",.01)=""
^DD(200.05,"GL",0,1,.01)=""
^DD(200.05,"GL",0,2,2)=""
^DD(200.05,"GL",0,3,3)=""
^DD(200.05,"IX",.01)=""
^DD(200.05,"IX",2)=""
^DD(200.05,"RQ",2)=""
^DD(200.051,0)="KEYS SUB-FIELD^^3^4"
^DD(200.051,0,"DT")="2890929"
^DD(200.051,0,"IX","AC",200.051,.01)=""
^DD(200.051,0,"IX","B",200.051,.01)=""
^DD(200.051,0,"NM","KEYS")=""
^DD(200.051,0,"UP")="200"
^DD(200.051,.01,0)="KEY^M*P19.1'X^DIC(19.1,^0;1^S DIC(""S"")=""I DUZ(0)=""""@""""!$D(^VA(200,DUZ,52,Y,0))!$D(^XUSEC(""""XUMGR"""",DUZ))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(200.051,.01,1,0)="^.1"
^DD(200.051,.01,1,1,0)="200.051^B"
^DD(200.051,.01,1,1,1)="S ^VA(200,DA(1),51,""B"",$E(X,1,30),DA)="""""
^DD(200.051,.01,1,1,2)="K ^VA(200,DA(1),51,""B"",$E(X,1,30),DA)"
^DD(200.051,.01,1,2,0)="200.051^AC^MUMPS"
^DD(200.051,.01,1,2,1)="N % S %=$P($G(^DIC(19.1,DA,0)),U) S:%]"""" ^XUSEC(%,DA(1))="""""
^DD(200.051,.01,1,2,2)="N % S %=$P($G(^DIC(19.1,DA,0)),U) K:%]"""" ^XUSEC(%,DA(1))"
^DD(200.051,.01,1,2,3)="This sets the XUSEC X-ref."
^DD(200.051,.01,1,2,"%D",0)="^.101^3^3^3050307^^"
^DD(200.051,.01,1,2,"%D",1,0)="This is the X-ref that keeps the ^XUSEC(keyname,DUZ) global in place."
^DD(200.051,.01,1,2,"%D",2,0)="This global is used the menu system and other to check if a new person"
^DD(200.051,.01,1,2,"%D",3,0)="holds a given key."
^DD(200.051,.01,1,2,"DT")="2920121"
^DD(200.051,.01,1,3,0)="200^AB"
^DD(200.051,.01,1,3,1)="S ^VA(200,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(200.051,.01,1,3,2)="K ^VA(200,""AB"",$E(X,1,30),DA(1),DA)"
^DD(200.051,.01,1,3,3)="X-ref whole file by KEY."
^DD(200.051,.01,1,3,"DT")="2890927"
^DD(200.051,.01,1,4,0)="200^AK^MUMPS"
^DD(200.051,.01,1,4,1)="G FE51S^XUA4A7"
^DD(200.051,.01,1,4,2)="G FE51K^XUA4A7"
^DD(200.051,.01,1,4,3)="Special lookup X-ref for Applications."
^DD(200.051,.01,1,4,"%D",0)="^^2^2^2910916^"
^DD(200.051,.01,1,4,"%D",1,0)="Special X-ref to allow applications to do lookup on just holders"
^DD(200.051,.01,1,4,"%D",2,0)="of a special key."
^DD(200.051,.01,1,4,"DT")="2910916"
^DD(200.051,.01,1,5,0)="^^TRIGGER^200.051^1"
^DD(200.051,.01,1,5,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1,X=DUZ,DIU=$P(^VA(200,D0,51,D1,0),U,2),$P(^(0),U,2)=X,DIH=200.051,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.051,.01,1,5,2)="Q"
^DD(200.051,.01,1,5,3)="Edited trigger"
^DD(200.051,.01,1,5,"CREATE VALUE")="S X=DUZ"
^DD(200.051,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(200.051,.01,1,5,"DT")="2890927"
^DD(200.051,.01,1,5,"FIELD")="GIVEN BY"
^DD(200.051,.01,1,6,0)="^^TRIGGER^200.051^2"
^DD(200.051,.01,1,6,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1,X=DT,DIU=$P(^VA(200,D0,51,D1,0),U,3),$P(^(0),U,3)=X,DIH=200.051,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.051,.01,1,6,2)="Q"
^DD(200.051,.01,1,6,3)="Edited trigger"
^DD(200.051,.01,1,6,"CREATE VALUE")="TODAY"
^DD(200.051,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(200.051,.01,1,6,"DT")="2890927"
^DD(200.051,.01,1,6,"FIELD")="DATE GIVEN"
^DD(200.051,.01,12.1)="S DIC(""S"")=""I DUZ(0)=""""@""""!$D(^VA(200,DUZ,52,Y,0))!$D(^XUSEC(""""XUMGR"""",DUZ))"""
^DD(200.051,.01,21,0)="^^1^1^2911212^^"
^DD(200.051,.01,21,1,0)="This is a security key that this person holds."
^DD(200.051,.01,"DEL",1,0)="I $P($G(^DIC(19.1,DA,0)),U,4)=""Y"""
^DD(200.051,.01,"DT")="2920121"
^DD(200.051,.01,"LAYGO",1,0)="S Y=DA(1) X:$D(^DIC(19.1,+X,4)) ^(4)"
^DD(200.051,1,0)="GIVEN BY^P200'^VA(200,^0;2^Q"
^DD(200.051,1,5,1,0)="200.051^.01^5"
^DD(200.051,1,9)="^"
^DD(200.051,1,21,0)="^^2^2^2911212^^"
^DD(200.051,1,21,1,0)="This is a pointer to the person that entered this security  key into this"
^DD(200.051,1,21,2,0)="persons file."
^DD(200.051,1,"DT")="2890926"
^DD(200.051,2,0)="DATE GIVEN^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.051,2,5,1,0)="200.051^.01^6"
^DD(200.051,2,9)="^"
^DD(200.051,2,21,0)="^^2^2^2911212^^^"
^DD(200.051,2,21,1,0)="This is the date that the security key was given to the person."
^DD(200.051,2,21,2,0)="There is know history."
^DD(200.051,2,"DT")="2890926"
^DD(200.051,3,0)="REVIEW DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.051,3,3)="The date after which this persons holding the key should be reviewed."
^DD(200.051,3,21,0)="^^2^2^2911212^^^"
^DD(200.051,3,21,1,0)="This is the date after which the persons need for this security key should"
^DD(200.051,3,21,2,0)="be reviewed."
^DD(200.051,3,"DT")="2890929"
^DD(200.051,"B","DATE GIVEN",2)=""
^DD(200.051,"B","GIVEN BY",1)=""
^DD(200.051,"B","KEY",.01)=""
^DD(200.051,"B","REVIEW DATE",3)=""
^DD(200.051,"GL",0,1,.01)=""
^DD(200.051,"GL",0,2,1)=""
^DD(200.051,"GL",0,3,2)=""
^DD(200.051,"GL",0,4,3)=""
^DD(200.051,"IX",.01)=""
^DD(200.052,0)="DELEGATED KEYS SUB-FIELD^^3^4"
^DD(200.052,0,"DT")="2890929"
^DD(200.052,0,"IX","B",200.052,.01)=""
^DD(200.052,0,"NM","DELEGATED KEYS")=""
^DD(200.052,0,"UP")="200"
^DD(200.052,.01,0)="DELEGATED KEY^M*P19.1'X^DIC(19.1,^0;1^S DIC(""S"")=""I DUZ(0)=""""@""""!$D(^XUSEC(""""XUMGR"""",DUZ))!$S('$D(^VA(200,DUZ,52,Y,0)):0,1:$P(^(0),U,4))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(200.052,.01,1,0)="^.1"
^DD(200.052,.01,1,1,0)="200.052^B"
^DD(200.052,.01,1,1,1)="S ^VA(200,DA(1),52,""B"",$E(X,1,30),DA)="""""
^DD(200.052,.01,1,1,2)="K ^VA(200,DA(1),52,""B"",$E(X,1,30),DA)"
^DD(200.052,.01,1,2,0)="^^TRIGGER^200.052^1"
^DD(200.052,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,52,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(200.052,.01,1,2,1.4)"
^DD(200.052,.01,1,2,1.4)="S DIH=$S($D(^VA(200,DIV(0),52,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.052,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.052,.01,1,2,2)="Q"
^DD(200.052,.01,1,2,"%D",0)="^^1^1^2890929^"
^DD(200.052,.01,1,2,"%D",1,0)="This keeps track of who gave the key for delegation."
^DD(200.052,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(200.052,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(200.052,.01,1,2,"DT")="2890929"
^DD(200.052,.01,1,2,"FIELD")="DELEGATED BY"
^DD(200.052,.01,1,3,0)="^^TRIGGER^200.052^2"
^DD(200.052,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,52,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200.052,.01,1,3,1.4)"
^DD(200.052,.01,1,3,1.4)="S DIH=$S($D(^VA(200,DIV(0),52,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.052,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.052,.01,1,3,2)="Q"
^DD(200.052,.01,1,3,"%D",0)="^^1^1^2890929^"
^DD(200.052,.01,1,3,"%D",1,0)="This sets when it was given."
^DD(200.052,.01,1,3,"CREATE VALUE")="TODAY"
^DD(200.052,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(200.052,.01,1,3,"DT")="2890929"
^DD(200.052,.01,1,3,"FIELD")="DATE DELEGATED"
^DD(200.052,.01,3)="These are the keys this person may allocate."
^DD(200.052,.01,12.1)="S DIC(""S"")=""I DUZ(0)=""""@""""!$D(^XUSEC(""""XUMGR"""",DUZ))!$S('$D(^VA(200,DUZ,52,Y,0)):0,1:$P(^(0),U,4))"""
^DD(200.052,.01,21,0)="^^1^1^2920423^^^^"
^DD(200.052,.01,21,1,0)="This is a security key that this person my allocate to another person."
^DD(200.052,.01,"DT")="2920423"
^DD(200.052,1,0)="DELEGATED BY^P200'^VA(200,^0;2^Q"
^DD(200.052,1,5,1,0)="200.052^.01^2"
^DD(200.052,1,9)="^"
^DD(200.052,1,21,0)="^^1^1^2911230^^^"
^DD(200.052,1,21,1,0)="This is the person that gave the security key that may be delegated."
^DD(200.052,1,"DT")="2890926"
^DD(200.052,2,0)="DATE DELEGATED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.052,2,5,1,0)="200.052^.01^3"
^DD(200.052,2,9)="^"
^DD(200.052,2,21,0)="^^1^1^2911230^^^"
^DD(200.052,2,21,1,0)="This is the date that the security key was given to be delegated."
^DD(200.052,2,"DT")="2890926"
^DD(200.052,3,0)="MAY RE-DELEGATE^S^0:NO;1:YES;0:no;1:yes;^0;4^Q"
^DD(200.052,3,21,0)="^^3^3^2911230^^^"
^DD(200.052,3,21,1,0)="Re-delegation means that the person has total control over the key,"
^DD(200.052,3,21,2,0)="the person may not only delegate the key to others but may also give"
^DD(200.052,3,21,3,0)="others the authorization to delegate it."
^DD(200.052,3,"DT")="2890929"
^DD(200.052,"B","DATE DELEGATED",2)=""
^DD(200.052,"B","DELEGATED BY",1)=""
^DD(200.052,"B","DELEGATED KEY",.01)=""
^DD(200.052,"B","MAY RE-DELEGATE",3)=""
^DD(200.052,"GL",0,1,.01)=""
^DD(200.052,"GL",0,2,1)=""
^DD(200.052,"GL",0,3,2)=""
^DD(200.052,"GL",0,4,3)=""
^DD(200.052,"IX",.01)=""
^DD(200.06,0)="VISITED FROM SUB-FIELD^^5^6"
^DD(200.06,0,"DT")="3000126"
^DD(200.06,0,"IX","B",200.06,.01)=""
^DD(200.06,0,"NM","VISITED FROM")=""
^DD(200.06,0,"UP")="200"
^DD(200.06,.01,0)="VISITED FROM^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(200.06,.01,1,0)="^.1"
^DD(200.06,.01,1,1,0)="200.06^B"
^DD(200.06,.01,1,1,1)="S ^VA(200,DA(1),8910,""B"",$E(X,1,30),DA)="""""
^DD(200.06,.01,1,1,2)="K ^VA(200,DA(1),8910,""B"",$E(X,1,30),DA)"
^DD(200.06,.01,3)="This is the numerical designation of the user's home site"
^DD(200.06,.01,21,0)="^^3^3^3000208^"
^DD(200.06,.01,21,1,0)="This field holds the official Station Number ID of the remote site that"
^DD(200.06,.01,21,2,0)="did the user authentication. This may be the site that caused this user to"
^DD(200.06,.01,21,3,0)="be added to the NPF."
^DD(200.06,.01,"DT")="3020715"
^DD(200.06,1,0)="SITE NAME^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(200.06,1,3)="Please enter the name of the user's home site"
^DD(200.06,1,21,0)="^^2^2^3000126^"
^DD(200.06,1,21,1,0)="This field contains the name of the site where the visitor was"
^DD(200.06,1,21,2,0)="authenticated."
^DD(200.06,1,"DT")="3000124"
^DD(200.06,2,0)="DUZ AT HOME SITE^NJ12,0^^0;3^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200.06,2,3)="Please enter the New Person File IEN at the home site"
^DD(200.06,2,21,0)="^^2^2^3000126^"
^DD(200.06,2,21,1,0)="This field contains the internal entry number in the New Person File at"
^DD(200.06,2,21,2,0)="the site where this visitor was authenticated."
^DD(200.06,2,"DT")="3020715"
^DD(200.06,3,0)="FIRST VISIT^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(200.06,3,3)="Please enter the FileMan date/time of first visit."
^DD(200.06,3,21,0)="^^2^2^3000126^"
^DD(200.06,3,21,1,0)="This field contains the date when this visitor first visited from the site"
^DD(200.06,3,21,2,0)="recorded in the .01 field."
^DD(200.06,3,"DT")="3000126"
^DD(200.06,4,0)="LAST VISITED^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(200.06,4,3)="Please enter a Fileman date for today."
^DD(200.06,4,21,0)="^^2^2^3000126^"
^DD(200.06,4,21,1,0)="This field is updated each time a visitor arrives from the site in the .01"
^DD(200.06,4,21,2,0)="field."
^DD(200.06,4,"DT")="3000126"
^DD(200.06,5,0)="PHONE AT SITE^F^^0;6^K:$L(X)>33!($L(X)<3) X"
^DD(200.06,5,3)="Pleas enter the commercial phone number at home site"
^DD(200.06,5,21,0)="^^2^2^3000126^"
^DD(200.06,5,21,1,0)="This field may contain a phone number for the visitor at their home site."
^DD(200.06,5,21,2,0)="Since phone numbers are not always entered, this field may be blank."
^DD(200.06,5,"DT")="3000124"
^DD(200.06,"B","DUZ AT HOME SITE",2)=""
^DD(200.06,"B","FIRST VISIT",3)=""
^DD(200.06,"B","LAST VISITED",4)=""
^DD(200.06,"B","PHONE AT SITE",5)=""
^DD(200.06,"B","SITE NAME",1)=""
^DD(200.06,"B","VISITED FROM",.01)=""
^DD(200.06,"GL",0,1,.01)=""
^DD(200.06,"GL",0,2,1)=""
^DD(200.06,"GL",0,3,2)=""
^DD(200.06,"GL",0,4,3)=""
^DD(200.06,"GL",0,5,4)=""
^DD(200.06,"GL",0,6,5)=""
^DD(200.06,"IX",.01)=""
^DD(200.07,0)="USER CLASS SUB-FIELD^^2^2"
^DD(200.07,0,"DT")="3041229"
^DD(200.07,0,"IX","B",200.07,.01)=""
^DD(200.07,0,"NM","USER CLASS")=""
^DD(200.07,0,"UP")="200"
^DD(200.07,.01,0)="User Class^P201'^VA(201,^0;1^Q"
^DD(200.07,.01,1,0)="^.1"
^DD(200.07,.01,1,1,0)="200.07^B"
^DD(200.07,.01,1,1,1)="S ^VA(200,DA(1),""USC3"",""B"",$E(X,1,30),DA)="""""
^DD(200.07,.01,1,1,2)="K ^VA(200,DA(1),""USC3"",""B"",$E(X,1,30),DA)"
^DD(200.07,.01,"DT")="3041105"
^DD(200.07,2,0)="ISPRIMARY^S^0:No;1:Yes;^0;2^Q"
^DD(200.07,2,.1)="Is Primary"
^DD(200.07,2,21,0)="^^3^3^3041229^"
^DD(200.07,2,21,1,0)="This field notes if this User Class is the primary User Class for this "
^DD(200.07,2,21,2,0)="user.  If returning just one User Class then this is the one to be "
^DD(200.07,2,21,3,0)="returned."
^DD(200.07,2,"DT")="3041229"
^DD(200.07,"B","ISPRIMARY",2)=""
^DD(200.07,"B","Is Primary",2)="1"
^DD(200.07,"B","User Class",.01)=""
^DD(200.07,"GL",0,1,.01)=""
^DD(200.07,"GL",0,2,2)=""
^DD(200.07,"IX",.01)=""
^DD(200.072,0)="CLASSIFICATION SUB-FIELD^^.01^1"
^DD(200.072,0,"DT")="2941104"
^DD(200.072,0,"IX","ARC",200.072,.01)=""
^DD(200.072,0,"NM","RAD/NUC MED CLASSIFICATION")=""
^DD(200.072,0,"UP")="200"
^DD(200.072,.01,0)="RAD/NUC MED CLASSIFICATION^MSX^T:technologist;R:resident;S:staff;C:clerk;^0;1^X ^DD(200.072,.01,9.2)"
^DD(200.072,.01,1,0)="^.1"
^DD(200.072,.01,1,1,0)="200.072^ARC^MUMPS"
^DD(200.072,.01,1,1,1)="S ^VA(200,""ARC"",$E(X,1,30),DA(1),DA)="""""
^DD(200.072,.01,1,1,2)="K ^VA(200,""ARC"",$E(X,1,30),DA(1),DA)"
^DD(200.072,.01,1,1,3)="DO NOT DELETE"
^DD(200.072,.01,1,1,"%D",0)="^^2^2^2950111^"
^DD(200.072,.01,1,1,"%D",1,0)="Used to determine if a person has Radiology/Nuclear Medicine personnel"
^DD(200.072,.01,1,1,"%D",2,0)="classification."
^DD(200.072,.01,3)="Enter a classification for this individual.  This person cannot be both an Interpreting Resident and Interpreting Staff simultaneously."
^DD(200.072,.01,9.2)="K:($D(^VA(200,""ARC"",""R"",DA(1)))&(X=""S""))!(($D(^VA(200,""ARC"",""S"",DA(1))))&(X=""R"")) X"
^DD(200.072,.01,21,0)="^^2^2^2971202^^^^"
^DD(200.072,.01,21,1,0)="Defines the role of this individual in the Radiology/Nuclear Medicine"
^DD(200.072,.01,21,2,0)="world."
^DD(200.072,.01,23,0)="^^3^3^2971202^^^^"
^DD(200.072,.01,23,1,0)="     This field is a multiple and the data type is a set of codes.  It"
^DD(200.072,.01,23,2,0)="should be noted that an individual cannot be designated as both"
^DD(200.072,.01,23,3,0)="Interpreting Staff and Interpreting Resident."
^DD(200.072,.01,"DT")="2941104"
^DD(200.072,"B","RAD/NUC MED CLASSIFICATION",.01)=""
^DD(200.072,"GL",0,1,.01)=""
^DD(200.072,"IX",.01)=""
^DD(200.074,0)="RAD/NUC MED LOCATION ACCESS SUB-FIELD^^.01^1"
^DD(200.074,0,"DT")="2940105"
^DD(200.074,0,"IX","B",200.074,.01)=""
^DD(200.074,0,"NM","RAD/NUC MED LOCATION ACCESS")=""
^DD(200.074,0,"UP")="200"
^DD(200.074,.01,0)="RAD/NUC MED LOCATION ACCESS^MP79.1'^RA(79.1,^0;1^Q"
^DD(200.074,.01,1,0)="^.1"
^DD(200.074,.01,1,1,0)="200.074^B"
^DD(200.074,.01,1,1,1)="S ^VA(200,DA(1),""RAL"",""B"",$E(X,1,30),DA)="""""
^DD(200.074,.01,1,1,2)="K ^VA(200,DA(1),""RAL"",""B"",$E(X,1,30),DA)"
^DD(200.074,.01,1,1,3)="DO NOT DELETE"
^DD(200.074,.01,1,1,"%D",0)="^^2^2^2950111^"
^DD(200.074,.01,1,1,"%D",1,0)="Used to determine which Radiology/Nuclear Medicine Imaging locations a"
^DD(200.074,.01,1,1,"%D",2,0)="person may access."
^DD(200.074,.01,3)="Enter an appropriate Rad/Nuc Med location this user can access."
^DD(200.074,.01,21,0)="^^2^2^2971021^^^^"
^DD(200.074,.01,21,1,0)="This field will allow the user to access all data specific to a particular"
^DD(200.074,.01,21,2,0)="Radiology/Nuclear Medicine location."
^DD(200.074,.01,"DT")="2941104"
^DD(200.074,"B","RAD/NUC MED LOCATION ACCESS",.01)=""
^DD(200.074,"GL",0,1,.01)=""
^DD(200.074,"IX",.01)=""
^DD(200.0747111,0)="SPECIALTY SUB-FIELD^^1^2"
^DD(200.0747111,0,"DT")="2910214"
^DD(200.0747111,0,"IX","B",200.0747111,.01)=""
^DD(200.0747111,0,"NM","SPECIALTY")=""
^DD(200.0747111,0,"UP")="200"
^DD(200.0747111,.01,0)="SPECIALTY^M*P747.9'^QA(747.9,^0;1^S DIC(""S"")=""D ^QARCSS"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200.0747111,.01,1,0)="^.1"
^DD(200.0747111,.01,1,1,0)="200.0747111^B"
^DD(200.0747111,.01,1,1,1)="S ^VA(200,DA(1),""QAR7"",""B"",$E(X,1,30),DA)="""""
^DD(200.0747111,.01,1,1,2)="K ^VA(200,DA(1),""QAR7"",""B"",$E(X,1,30),DA)"
^DD(200.0747111,.01,3)="Enter the appropriate Specialty."
^DD(200.0747111,.01,12)="YOU MAY SELECT A SPECIALTY ASSOCIATED WITH THIS SERVICE."
^DD(200.0747111,.01,12.1)="S DIC(""S"")=""D ^QARCSS"""
^DD(200.0747111,.01,21,0)="^^1^1^2920702^"
^DD(200.0747111,.01,21,1,0)="Enter the Specialty associated with this person."
^DD(200.0747111,.01,21,2,0)=" "
^DD(200.0747111,.01,21,3,0)=" "
^DD(200.0747111,.01,"DT")="2910214"
^DD(200.0747111,1,0)="SPECIAL PROCEDURE^200.07471111PA^^1;0"
^DD(200.0747111,1,12)="SCREEN SPECIAL PROCEDURES"
^DD(200.0747111,1,12.1)="S DIC(""S"")=""D ^QARPROC"""
^DD(200.0747111,1,21,0)="^^1^1^2920702^^"
^DD(200.0747111,1,21,1,0)="Contains the appropriate Special Procedure."
^DD(200.0747111,1,21,2,0)=" "
^DD(200.0747111,1,21,3,0)=" "
^DD(200.0747111,"B","SPECIAL PROCEDURE",1)=""
^DD(200.0747111,"B","SPECIALTY",.01)=""
^DD(200.0747111,"GL",0,1,.01)=""
^DD(200.0747111,"GL",1,0,1)=""
^DD(200.0747111,"IX",.01)=""
^DD(200.0747111,"SB",200.07471111,1)=""
^DD(200.07471111,0)="SPECIAL PROCEDURE SUB-FIELD^^.01^1"
^DD(200.07471111,0,"DT")="2910214"
^DD(200.07471111,0,"IX","B",200.07471111,.01)=""
^DD(200.07471111,0,"NM","SPECIAL PROCEDURE")=""
^DD(200.07471111,0,"UP")="200.0747111"
^DD(200.07471111,.01,0)="SPECIAL PROCEDURE^M*P747.25'^QA(747.25,^0;1^S DIC(""S"")=""D ^QARPROC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(200.07471111,.01,1,0)="^.1"
^DD(200.07471111,.01,1,1,0)="200.07471111^B"
^DD(200.07471111,.01,1,1,1)="S ^VA(200,DA(2),""QAR7"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(200.07471111,.01,1,1,2)="K ^VA(200,DA(2),""QAR7"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(200.07471111,.01,3)="Enter the appropriate Special Procedure."
^DD(200.07471111,.01,12)="SCREENS PROCEDURES ACCORDING TO SPECIALTY."
^DD(200.07471111,.01,12.1)="S DIC(""S"")=""D ^QARPROC"""
^DD(200.07471111,.01,21,0)="^^1^1^2920702^^"
^DD(200.07471111,.01,21,1,0)="Contains the appropriate Special Procedure."
^DD(200.07471111,.01,21,2,0)=" "
^DD(200.07471111,.01,21,3,0)=" "
^DD(200.07471111,.01,"DT")="2910214"
^DD(200.07471111,"B","SPECIAL PROCEDURE",.01)=""
^DD(200.07471111,"GL",0,1,.01)=""
^DD(200.07471111,"IX",.01)=""
^DD(200.074713,0)="CLINICAL BACKGROUND SUB-FIELD^^1^2"
^DD(200.074713,0,"DT")="2910130"
^DD(200.074713,0,"IX","B",200.074713,.01)=""
^DD(200.074713,0,"NM","CLINICAL BACKGROUND")=""
^DD(200.074713,0,"UP")="200"
^DD(200.074713,.01,0)="CLINICAL BACKGROUND^MP747.8'^QA(747.8,^0;1^Q"
^DD(200.074713,.01,1,0)="^.1"
^DD(200.074713,.01,1,1,0)="200.074713^B"
^DD(200.074713,.01,1,1,1)="S ^VA(200,DA(1),""QAR11"",""B"",$E(X,1,30),DA)="""""
^DD(200.074713,.01,1,1,2)="K ^VA(200,DA(1),""QAR11"",""B"",$E(X,1,30),DA)"
^DD(200.074713,.01,3)="Enter the appropriate Clinical Background."
^DD(200.074713,.01,21,0)="^^1^1^2910403^"
^DD(200.074713,.01,21,1,0)="Contains the Clinical Background for our person."
^DD(200.074713,.01,21,2,0)=" "
^DD(200.074713,.01,21,3,0)=" "
^DD(200.074713,.01,"DT")="2910130"
^DD(200.074713,1,0)="YRS. OF EXPERIENCE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(200.074713,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(200.074713,1,21,0)="^^1^1^2910403^"
^DD(200.074713,1,21,1,0)="Contains the Years of Experience in a Clinical Background."
^DD(200.074713,1,21,2,0)="practitioner."
^DD(200.074713,1,21,3,0)=" "
^DD(200.074713,1,21,4,0)=" "
^DD(200.074713,1,"DT")="2910130"
^DD(200.074713,"B","CLINICAL BACKGROUND",.01)=""
^DD(200.074713,"B","YRS. OF EXPERIENCE",1)=""
^DD(200.074713,"GL",0,1,.01)=""
^DD(200.074713,"GL",0,2,1)=""
^DD(200.074713,"IX",.01)=""
^DD(200.07472,0)="MANDATORY TRAINING SUB-FIELD^^3^4"
^DD(200.07472,0,"DT")="2921015"
^DD(200.07472,0,"IX","B",200.07472,.01)=""
^DD(200.07472,0,"NM","MANDATORY TRAINING")=""
^DD(200.07472,0,"UP")="200"
^DD(200.07472,.01,0)="MANDATORY TRAINING^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(200.07472,.01,1,0)="^.1"
^DD(200.07472,.01,1,1,0)="200.07472^B"
^DD(200.07472,.01,1,1,1)="S ^VA(200,DA(1),""QAR1"",""B"",$E(X,1,30),DA)="""""
^DD(200.07472,.01,1,1,2)="K ^VA(200,DA(1),""QAR1"",""B"",$E(X,1,30),DA)"
^DD(200.07472,.01,3)="Answer must be 3-30 characters in length."
^DD(200.07472,.01,21,0)="^^1^1^2921015^^^"
^DD(200.07472,.01,21,1,0)="Contains the Mandatory Training a person must complete."
^DD(200.07472,.01,21,2,0)=" "
^DD(200.07472,.01,21,3,0)=" "
^DD(200.07472,.01,"DT")="2921015"
^DD(200.07472,1,0)="DATE ATTENDED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.07472,1,3)="Enter the date Mandatory Training was started."
^DD(200.07472,1,21,0)="^^1^1^2910403^"
^DD(200.07472,1,21,1,0)="Contains the date Mandatory Training was started."
^DD(200.07472,1,21,2,0)=" "
^DD(200.07472,1,21,3,0)=" "
^DD(200.07472,1,"DT")="2910131"
^DD(200.07472,2,0)="DATE COMPLETED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.07472,2,3)="Enter the date Mandatory Training was completed."
^DD(200.07472,2,21,0)="^^1^1^2910403^"
^DD(200.07472,2,21,1,0)="Contains the date Mandatory Training was completed."
^DD(200.07472,2,21,2,0)=" "
^DD(200.07472,2,21,3,0)=" "
^DD(200.07472,2,"DT")="2910131"
^DD(200.07472,3,0)="RENEWAL DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.07472,3,3)="Enter the date Mandatory Training must be renewed."
^DD(200.07472,3,21,0)="^^1^1^2910430^^^"
^DD(200.07472,3,21,1,0)="Contain the date when Mandatory Training must be renewed."
^DD(200.07472,3,21,2,0)=" "
^DD(200.07472,3,21,3,0)=" "
^DD(200.07472,3,"DT")="2910131"
^DD(200.07472,"B","DATE ATTENDED",1)=""
^DD(200.07472,"B","DATE COMPLETED",2)=""
^DD(200.07472,"B","MANDATORY TRAINING",.01)=""
^DD(200.07472,"B","RENEWAL DATE",3)=""
^DD(200.07472,"GL",0,1,.01)=""
^DD(200.07472,"GL",0,2,1)=""
^DD(200.07472,"GL",0,3,2)=""
^DD(200.07472,"GL",0,4,3)=""
^DD(200.07472,"IX",.01)=""
^DD(200.074727,0)="HEALTH STATEMENT, COLLEAGUE SUB-FIELD^^.01^1"
^DD(200.074727,0,"DT")="2910211"
^DD(200.074727,0,"IX","B",200.074727,.01)=""
^DD(200.074727,0,"NM","HEALTH STATEMENT, COLLEAGUE")=""
^DD(200.074727,0,"UP")="200"
^DD(200.074727,.01,0)="HEALTH STATEMENT, COLLEAGUE^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.074727,.01,1,0)="^.1"
^DD(200.074727,.01,1,1,0)="200.074727^B"
^DD(200.074727,.01,1,1,1)="S ^VA(200,DA(1),""QAR14"",""B"",$E(X,1,30),DA)="""""
^DD(200.074727,.01,1,1,2)="K ^VA(200,DA(1),""QAR14"",""B"",$E(X,1,30),DA)"
^DD(200.074727,.01,3)="Enter the date the Health Statement was received from a colleague of the above individual."
^DD(200.074727,.01,21,0)="^^4^4^2910403^^"
^DD(200.074727,.01,21,1,0)="This field allows you to enter the date on which the Statement of Health"
^DD(200.074727,.01,21,2,0)="Status was received from a colleague of the above individual.  Individuals"
^DD(200.074727,.01,21,3,0)="from which this could be received include the Chief of Staff, Chief of"
^DD(200.074727,.01,21,4,0)="Service, Training Program Director, or peer."
^DD(200.074727,.01,"DT")="2910211"
^DD(200.074727,"B","HEALTH STATEMENT, COLLEAGUE",.01)=""
^DD(200.074727,"GL",0,1,.01)=""
^DD(200.074727,"IX",.01)=""
^DD(200.074728,0)="DATE REFERENCE RECEIVED SUB-FIELD^^1^2"
^DD(200.074728,0,"DT")="2910430"
^DD(200.074728,0,"IX","B",200.074728,.01)=""
^DD(200.074728,0,"NM","DATE REFERENCE RECEIVED")=""
^DD(200.074728,0,"UP")="200"
^DD(200.074728,.01,0)="REFERENCES^MS^A:REFERENCE A;B:REFERENCE B;C:REFERENCE C;^0;1^Q"
^DD(200.074728,.01,1,0)="^.1"
^DD(200.074728,.01,1,1,0)="200.074728^B"
^DD(200.074728,.01,1,1,1)="S ^VA(200,DA(1),""QAR15"",""B"",$E(X,1,30),DA)="""""
^DD(200.074728,.01,1,1,2)="K ^VA(200,DA(1),""QAR15"",""B"",$E(X,1,30),DA)"
^DD(200.074728,.01,3)="Enter the appropriate Reference."
^DD(200.074728,.01,21,0)="^^1^1^2910430^^"
^DD(200.074728,.01,21,1,0)="Contains the Reference."
^DD(200.074728,.01,"DT")="2910430"
^DD(200.074728,1,0)="DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.074728,1,3)="Enter the date of the Reference."
^DD(200.074728,1,21,0)="^^1^1^2910403^"
^DD(200.074728,1,21,1,0)="Contains the date of the Reference."
^DD(200.074728,1,"DT")="2910211"
^DD(200.074728,"B","DATE",1)=""
^DD(200.074728,"B","REFERENCES",.01)=""
^DD(200.074728,"GL",0,1,.01)=""
^DD(200.074728,"GL",0,2,1)=""
^DD(200.074728,"IX",.01)=""
^DD(200.074731,0)="RECOMMENDATION SIGNATURES SUB-FIELD^^1^2"
^DD(200.074731,0,"DT")="2910321"
^DD(200.074731,0,"IX","B",200.074731,.01)=""
^DD(200.074731,0,"NM","RECOMMENDATION SIGNATURES")=""
^DD(200.074731,0,"UP")="200"
^DD(200.074731,.01,0)="RECOMMENDATION SIGNATURES^MS^1:APPLICANT STATEMENT;2:SERVICE CHIEF RECOMMENDATION;3:PSB RECOMMENDATION;4:EXECUTIVE COMMITTEE RECOMMENDATION;5:DIRECTOR'S APPROVAL/DISAPPROVAL;^0;1^Q"
^DD(200.074731,.01,1,0)="^.1"
^DD(200.074731,.01,1,1,0)="200.074731^B"
^DD(200.074731,.01,1,1,1)="S ^VA(200,DA(1),""QAR16"",""B"",$E(X,1,30),DA)="""""
^DD(200.074731,.01,1,1,2)="K ^VA(200,DA(1),""QAR16"",""B"",$E(X,1,30),DA)"
^DD(200.074731,.01,3)="Enter the appropriate type of Recommendation code."
^DD(200.074731,.01,21,0)="^^1^1^2910430^^"
^DD(200.074731,.01,21,1,0)="Contains the signature date for the approving committee/official."
^DD(200.074731,.01,"DT")="2910211"
^DD(200.074731,1,0)="DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.074731,1,3)="Enter the date of the Recommendation Signature."
^DD(200.074731,1,21,0)="^^1^1^2910403^"
^DD(200.074731,1,21,1,0)="Contains the date of the Recommendation Signature."
^DD(200.074731,1,"DT")="2910321"
^DD(200.074731,"B","DATE",1)=""
^DD(200.074731,"B","RECOMMENDATION SIGNATURES",.01)=""
^DD(200.074731,"GL",0,1,.01)=""
^DD(200.074731,"GL",0,2,1)=""
^DD(200.074731,"IX",.01)=""
^DD(200.074732,0)="PERTINENT CLINICAL INFORMATION SUB-FIELD^^.01^1"
^DD(200.074732,0,"DT")="2910207"
^DD(200.074732,0,"NM","PERTINENT CLINICAL INFORMATION")=""
^DD(200.074732,0,"UP")="200"
^DD(200.074732,.01,0)="PERTINENT CLINICAL INFORMATION^W^^0;1^Q"
^DD(200.074732,.01,21,0)="^^1^1^2910403^"
^DD(200.074732,.01,21,1,0)="Contains any Pertinent Clinical Information."
^DD(200.074732,.01,21,2,0)="the practitioner practices, experience, and academic appointment."
^DD(200.074732,.01,"DT")="2910207"
^DD(200.074732,"B","PERTINENT CLINICAL INFORMATION",.01)=""
^DD(200.074732,"GL",0,1,.01)=""
^DD(200.074734,0)="SCHOOL ATTENDED SUB-FIELD^^8^10"
^DD(200.074734,0,"DT")="2910401"
^DD(200.074734,0,"IX","B",200.074734,.01)=""
^DD(200.074734,0,"NM","SCHOOL ATTENDED")=""
^DD(200.074734,0,"UP")="200"
^DD(200.074734,.01,0)="SCHOOL ATTENDED^MF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(200.074734,.01,1,0)="^.1"
^DD(200.074734,.01,1,1,0)="200.074734^B"
^DD(200.074734,.01,1,1,1)="S ^VA(200,DA(1),""QAR9"",""B"",$E(X,1,30),DA)="""""
^DD(200.074734,.01,1,1,2)="K ^VA(200,DA(1),""QAR9"",""B"",$E(X,1,30),DA)"
^DD(200.074734,.01,3)="Answer must be 3-40 characters in length."
^DD(200.074734,.01,21,0)="^^2^2^2910430^^^"
^DD(200.074734,.01,21,1,0)="Enter the school(s) attended to complete/renew requirements for your field of"
^DD(200.074734,.01,21,2,0)="study."
^DD(200.074734,.01,21,3,0)=" "
^DD(200.074734,.01,21,4,0)=" "
^DD(200.074734,.01,"DT")="2910211"
^DD(200.074734,1,0)="ADDRESS^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(200.074734,1,3)="Answer must be 3-30 characters in length."
^DD(200.074734,1,21,0)="^^1^1^2910403^"
^DD(200.074734,1,21,1,0)="Contains the Address of the school."
^DD(200.074734,1,21,2,0)=" "
^DD(200.074734,1,21,3,0)=" "
^DD(200.074734,1,"DT")="2910211"
^DD(200.074734,2,0)="ADDRESS 2^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(200.074734,2,3)="Answer must be 3-30 characters in length."
^DD(200.074734,2,21,0)="^^1^1^2910403^"
^DD(200.074734,2,21,1,0)="Contains the Address of the school."
^DD(200.074734,2,21,2,0)=" "
^DD(200.074734,2,21,3,0)=" "
^DD(200.074734,2,"DT")="2910211"
^DD(200.074734,3,0)="CITY^F^^0;4^K:$L(X)>20!($L(X)<3) X"
^DD(200.074734,3,3)="Answer must be 3-20 characters in length."
^DD(200.074734,3,21,0)="^^1^1^2910403^"
^DD(200.074734,3,21,1,0)="Contains the City where the school is located."
^DD(200.074734,3,21,2,0)=" "
^DD(200.074734,3,21,3,0)=" "
^DD(200.074734,3,"DT")="2910211"
^DD(200.074734,4,0)="STATE^P5'^DIC(5,^0;5^Q"
^DD(200.074734,4,3)="Enter the State where the school is located."
^DD(200.074734,4,21,0)="^^1^1^2910403^"
^DD(200.074734,4,21,1,0)="Contains the State where the school is located."
^DD(200.074734,4,21,2,0)=" "
^DD(200.074734,4,21,3,0)=" "
^DD(200.074734,4,"DT")="2910211"
^DD(200.074734,4.5,0)="COUNTRY^P747.5'^QA(747.5,^0;9^Q"
^DD(200.074734,4.5,3)="Enter the Foreign Country Name"
^DD(200.074734,4.5,21,0)="^^1^1^2920731^"
^DD(200.074734,4.5,21,1,0)="This field contains the Foreign country that the school is located."
^DD(200.074734,4.5,"DT")="2910618"
^DD(200.074734,5,0)="ZIP CODE^F^^0;6^K:$L(X)>10!($L(X)<5) X"
^DD(200.074734,5,3)="Answer must be 5-10 characters in length."
^DD(200.074734,5,21,0)="^^1^1^2910403^"
^DD(200.074734,5,21,1,0)="Contains the Zip Code for the school."
^DD(200.074734,5,21,2,0)=" "
^DD(200.074734,5,21,3,0)=" "
^DD(200.074734,5,"DT")="2910401"
^DD(200.074734,6,0)="DATE COMPLETED^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.074734,6,3)="Enter the Date that school is completed."
^DD(200.074734,6,21,0)="^^1^1^2910403^"
^DD(200.074734,6,21,1,0)="Contains the Date school is completed."
^DD(200.074734,6,21,2,0)=" "
^DD(200.074734,6,21,3,0)=" "
^DD(200.074734,6,"DT")="2910211"
^DD(200.074734,7,0)="VERIFICATION^S^1:LETTER FROM THE SCHOOL;2:AMA MASTER FILE;3:VERIFIED DOCUMENTS FROM SLB;^0;8^Q"
^DD(200.074734,7,3)="Enter the type of Verification for education."
^DD(200.074734,7,21,0)="^^1^1^2910403^"
^DD(200.074734,7,21,1,0)="Contains the Verification type for schooling."
^DD(200.074734,7,"DT")="2910211"
^DD(200.074734,8,0)="EDUCATION LEVEL^200.0747348P^^1;0"
^DD(200.074734,8,21,0)="^^1^1^2910430^^"
^DD(200.074734,8,21,1,0)="Contains the Education level for this school."
^DD(200.074734,"B","ADDRESS",1)=""
^DD(200.074734,"B","ADDRESS 2",2)=""
^DD(200.074734,"B","CITY",3)=""
^DD(200.074734,"B","COUNTRY",4.5)=""
^DD(200.074734,"B","DATE COMPLETED",6)=""
^DD(200.074734,"B","EDUCATION LEVEL",8)=""
^DD(200.074734,"B","SCHOOL ATTENDED",.01)=""
^DD(200.074734,"B","STATE",4)=""
^DD(200.074734,"B","VERIFICATION",7)=""
^DD(200.074734,"B","ZIP CODE",5)=""
^DD(200.074734,"GL",0,1,.01)=""
^DD(200.074734,"GL",0,2,1)=""
^DD(200.074734,"GL",0,3,2)=""
^DD(200.074734,"GL",0,4,3)=""
^DD(200.074734,"GL",0,5,4)=""
^DD(200.074734,"GL",0,6,5)=""
^DD(200.074734,"GL",0,7,6)=""
^DD(200.074734,"GL",0,8,7)=""
^DD(200.074734,"GL",0,9,4.5)=""
^DD(200.074734,"GL",1,0,8)=""
^DD(200.074734,"IX",.01)=""
^DD(200.074734,"SB",200.0747348,8)=""
^DD(200.0747348,0)="EDUCATION LEVEL SUB-FIELD^^.01^1"
^DD(200.0747348,0,"DT")="2910211"
^DD(200.0747348,0,"IX","B",200.0747348,.01)=""
^DD(200.0747348,0,"NM","EDUCATION LEVEL")=""
^DD(200.0747348,0,"UP")="200.074734"
^DD(200.0747348,.01,0)="EDUCATION LEVEL^MP747.7'^QA(747.7,^0;1^Q"
^DD(200.0747348,.01,1,0)="^.1"
^DD(200.0747348,.01,1,1,0)="200.0747348^B"
^DD(200.0747348,.01,1,1,1)="S ^VA(200,DA(2),""QAR9"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(200.0747348,.01,1,1,2)="K ^VA(200,DA(2),""QAR9"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(200.0747348,.01,3)="Enter the Education level."
^DD(200.0747348,.01,21,0)="^^1^1^2910403^"
^DD(200.0747348,.01,21,1,0)="Contains the Education level."
^DD(200.0747348,.01,"DT")="2910211"
^DD(200.0747348,"B","EDUCATION LEVEL",.01)=""
^DD(200.0747348,"GL",0,1,.01)=""
^DD(200.0747348,"IX",.01)=""
^DD(200.074736,0)="CONTINUING EDUCATION PROGRAM SUB-FIELD^^5^6"
^DD(200.074736,0,"DT")="2910211"
^DD(200.074736,0,"IX","B",200.074736,.01)=""
^DD(200.074736,0,"NM","CONTINUING EDUCATION PROGRAM")=""
^DD(200.074736,0,"UP")="200"
^DD(200.074736,.01,0)="CONTINUING EDUCATION PROGRAM^MF^^0;1^K:$L(X)>45!($L(X)<3) X"
^DD(200.074736,.01,1,0)="^.1"
^DD(200.074736,.01,1,1,0)="200.074736^B"
^DD(200.074736,.01,1,1,1)="S ^VA(200,DA(1),""QAR10"",""B"",$E(X,1,30),DA)="""""
^DD(200.074736,.01,1,1,2)="K ^VA(200,DA(1),""QAR10"",""B"",$E(X,1,30),DA)"
^DD(200.074736,.01,3)="Answer must be 3-45 characters in length."
^DD(200.074736,.01,21,0)="^^1^1^2910403^"
^DD(200.074736,.01,21,1,0)="Name of the Continuing Education Program attended."
^DD(200.074736,.01,21,2,0)=" "
^DD(200.074736,.01,21,3,0)=" "
^DD(200.074736,.01,"DT")="2910211"
^DD(200.074736,1,0)="DESCRIPTION^200.0747361^^1;0"
^DD(200.074736,1,21,0)="^^1^1^2910502^^"
^DD(200.074736,1,21,1,0)="Contains a Description of the Continuing Education Program."
^DD(200.074736,1,21,2,0)=" "
^DD(200.074736,1,21,3,0)=" "
^DD(200.074736,2,0)="DATE ATTENDED^F^^2;1^K:$L(X)>30!($L(X)<3) X"
^DD(200.074736,2,3)="Use the format:  FROM DATE/TO DATE"
^DD(200.074736,2,21,0)="^^1^1^2910403^"
^DD(200.074736,2,21,1,0)="Contains the starting Date for continuing education."
^DD(200.074736,2,21,2,0)=" "
^DD(200.074736,2,21,3,0)=" "
^DD(200.074736,2,"DT")="2910211"
^DD(200.074736,3,0)="NUMBER OF C.M.E. HOURS^NJ6,2^^2;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(200.074736,3,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(200.074736,3,21,0)="^^1^1^2910403^"
^DD(200.074736,3,21,1,0)="Contains the number of C.M.E hours."
^DD(200.074736,3,21,2,0)=" "
^DD(200.074736,3,21,3,0)=" "
^DD(200.074736,3,"DT")="2910211"
^DD(200.074736,4,0)="LOCATION OF PROGRAM^F^^2;3^K:$L(X)>40!($L(X)<3) X"
^DD(200.074736,4,3)="Answer must be 3-40 characters in length."
^DD(200.074736,4,21,0)="^^1^1^2910403^"
^DD(200.074736,4,21,1,0)="Contains the location of the program."
^DD(200.074736,4,21,2,0)=" "
^DD(200.074736,4,21,3,0)=" "
^DD(200.074736,4,"DT")="2910211"
^DD(200.074736,5,0)="C.M.E. COMMENTS^200.0747365^^3;0"
^DD(200.074736,5,21,0)="^^1^1^2910403^"
^DD(200.074736,5,21,1,0)="Contains C.M.E comments."
^DD(200.074736,5,21,2,0)=" "
^DD(200.074736,"B","C.M.E. COMMENTS",5)=""
^DD(200.074736,"B","CONTINUING EDUCATION PROGRAM",.01)=""
^DD(200.074736,"B","DATE ATTENDED",2)=""
^DD(200.074736,"B","DESCRIPTION",1)=""
^DD(200.074736,"B","LOCATION OF PROGRAM",4)=""
^DD(200.074736,"B","NUMBER OF C.M.E. HOURS",3)=""
^DD(200.074736,"GL",0,1,.01)=""
^DD(200.074736,"GL",1,0,1)=""
^DD(200.074736,"GL",2,1,2)=""
^DD(200.074736,"GL",2,2,3)=""
^DD(200.074736,"GL",2,3,4)=""
^DD(200.074736,"GL",3,0,5)=""
^DD(200.074736,"IX",.01)=""
^DD(200.074736,"SB",200.0747361,1)=""
^DD(200.074736,"SB",200.0747365,5)=""
^DD(200.0747361,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(200.0747361,0,"DT")="2910211"
^DD(200.0747361,0,"NM","DESCRIPTION")=""
^DD(200.0747361,0,"UP")="200.074736"
^DD(200.0747361,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(200.0747361,.01,21,0)="^^3^3^2910410^^"
^DD(200.0747361,.01,21,1,0)="Contains a Description of the education level."
^DD(200.0747361,.01,21,2,0)=" "
^DD(200.0747361,.01,21,3,0)=" "
^DD(200.0747361,.01,"DT")="2910211"
^DD(200.0747361,"B","DESCRIPTION",.01)=""
^DD(200.0747361,"GL",0,1,.01)=""
^DD(200.0747365,0)="C.M.E. COMMENTS SUB-FIELD^^.01^1"
^DD(200.0747365,0,"DT")="2910211"
^DD(200.0747365,0,"NM","C.M.E. COMMENTS")=""
^DD(200.0747365,0,"UP")="200.074736"
^DD(200.0747365,.01,0)="C.M.E. COMMENTS^W^^0;1^Q"
^DD(200.0747365,.01,21,0)="^^1^1^2910403^"
^DD(200.0747365,.01,21,1,0)="Contains C.M.E comments."
^DD(200.0747365,.01,"DT")="2910211"
^DD(200.0747365,"B","C.M.E. COMMENTS",.01)=""
^DD(200.0747365,"GL",0,1,.01)=""
^DD(200.074743,0)="INTERNSHIP/RESIDENCY SUB-FIELD^^5^10"
^DD(200.074743,0,"DT")="2910617"
^DD(200.074743,0,"IX","B",200.074743,.01)=""
^DD(200.074743,0,"NM","INTERNSHIP/RESIDENCY")=""
^DD(200.074743,0,"UP")="200"
^DD(200.074743,.01,0)="RES. INSTITUTION^MF^^0;1^K:$L(X)>35!($L(X)<2) X"
^DD(200.074743,.01,1,0)="^.1"
^DD(200.074743,.01,1,1,0)="200.074743^B"
^DD(200.074743,.01,1,1,1)="S ^VA(200,DA(1),""QAR19"",""B"",$E(X,1,30),DA)="""""
^DD(200.074743,.01,1,1,2)="K ^VA(200,DA(1),""QAR19"",""B"",$E(X,1,30),DA)"
^DD(200.074743,.01,3)="Answer must be 2-35 characters in length."
^DD(200.074743,.01,21,0)="^^4^4^2910411^^^^"
^DD(200.074743,.01,21,1,0)="This field contains the institution where the Internship or "
^DD(200.074743,.01,21,2,0)="Residency was conducted."
^DD(200.074743,.01,21,3,0)=" "
^DD(200.074743,.01,21,4,0)=" "
^DD(200.074743,.01,"DT")="2910403"
^DD(200.074743,1,0)="ADDRESS^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(200.074743,1,3)="Answer must be 2-30 characters in length."
^DD(200.074743,1,21,0)="^^3^3^2910410^^"
^DD(200.074743,1,21,1,0)="Indicates the Address of the institution."
^DD(200.074743,1,21,2,0)=" "
^DD(200.074743,1,21,3,0)=" "
^DD(200.074743,1,"DT")="2910402"
^DD(200.074743,1.1,0)="ADDRESS 2^F^^0;7^K:$L(X)>45!($L(X)<2) X"
^DD(200.074743,1.1,3)="Answer must be 2-45 characters in length."
^DD(200.074743,1.1,21,0)="^^1^1^2920820^"
^DD(200.074743,1.1,21,1,0)="This is the address of the training institution."
^DD(200.074743,1.1,"DT")="2920820"
^DD(200.074743,1.2,0)="CITY^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(200.074743,1.2,3)="Answer must be 3-30 characters in length."
^DD(200.074743,1.2,"DT")="2920820"
^DD(200.074743,1.3,0)="STATE^P5'^DIC(5,^0;9^Q"
^DD(200.074743,1.3,3)="Enter the State of athe institution."
^DD(200.074743,1.3,"DT")="2920820"
^DD(200.074743,1.4,0)="ZIP^F^^0;10^K:$L(X)>10!($L(X)<5) X"
^DD(200.074743,1.4,3)="Answer must be 5-10 characters in length."
^DD(200.074743,1.4,21,0)="^^1^1^2920820^"
^DD(200.074743,1.4,21,1,0)="Indicate the zip code of the institution."
^DD(200.074743,1.4,"DT")="2920820"
^DD(200.074743,2,0)="SPECIALTY^P747.9'^QA(747.9,^0;3^Q"
^DD(200.074743,2,3)=""
^DD(200.074743,2,21,0)="^^3^3^2910617^^^^"
^DD(200.074743,2,21,1,0)="Indicates the Specialties covered in Internship/Residency. "
^DD(200.074743,2,21,2,0)=" "
^DD(200.074743,2,21,3,0)=" "
^DD(200.074743,2,"DT")="2910617"
^DD(200.074743,3,0)="COMPLETION DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.074743,3,3)="Enter the Completion Date of training."
^DD(200.074743,3,21,0)="^^1^1^2910410^^"
^DD(200.074743,3,21,1,0)="Indicates the Completion Date for training."
^DD(200.074743,3,"DT")="2910402"
^DD(200.074743,4,0)="# OF MONTHS^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(200.074743,4,2)="S Y(0)=Y S Y=Y_"" MONTHS"""
^DD(200.074743,4,2.1)="S Y=Y_"" MONTHS"""
^DD(200.074743,4,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(200.074743,4,21,0)="^^3^3^2910410^^^"
^DD(200.074743,4,21,1,0)="Number of months doing internship or residency at this institution."
^DD(200.074743,4,21,2,0)=" "
^DD(200.074743,4,21,3,0)=" "
^DD(200.074743,4,"DT")="2910402"
^DD(200.074743,5,0)="VERIFICATION^S^1:LETTER FROM TRAINING INSTITUTE;2:R.O.C;3:AMA PHYSICIAN VERIF. SVC.;^0;6^Q"
^DD(200.074743,5,3)="Enter the method of verification."
^DD(200.074743,5,21,0)="^^2^2^2910913^"
^DD(200.074743,5,21,1,0)="#3 should only be used if the primary source institution is CLOSED and"
^DD(200.074743,5,21,2,0)="no longer in operation."
^DD(200.074743,5,"DT")="2910913"
^DD(200.074743,"B","# OF MONTHS",4)=""
^DD(200.074743,"B","ADDRESS",1)=""
^DD(200.074743,"B","ADDRESS 2",1.1)=""
^DD(200.074743,"B","CITY",1.2)=""
^DD(200.074743,"B","COMPLETION DATE",3)=""
^DD(200.074743,"B","RES. INSTITUTION",.01)=""
^DD(200.074743,"B","SPECIALTY",2)=""
^DD(200.074743,"B","STATE",1.3)=""
^DD(200.074743,"B","VERIFICATION",5)=""
^DD(200.074743,"B","ZIP",1.4)=""
^DD(200.074743,"GL",0,1,.01)=""
^DD(200.074743,"GL",0,2,1)=""
^DD(200.074743,"GL",0,3,2)=""
^DD(200.074743,"GL",0,4,3)=""
^DD(200.074743,"GL",0,5,4)=""
^DD(200.074743,"GL",0,6,5)=""
^DD(200.074743,"GL",0,7,1.1)=""
^DD(200.074743,"GL",0,8,1.2)=""
^DD(200.074743,"GL",0,9,1.3)=""
^DD(200.074743,"GL",0,10,1.4)=""
^DD(200.074743,"IX",.01)=""
^DD(200.074745,0)="CONTROL/SUBSTANCE CERT (Y/N) SUB-FIELD^^2^3"
^DD(200.074745,0,"DT")="2910826"
^DD(200.074745,0,"IX","B",200.074745,.01)=""
^DD(200.074745,0,"NM","CONTROL/SUBSTANCE CERT (Y/N)")=""
^DD(200.074745,0,"UP")="200"
^DD(200.074745,.01,0)="CONTROL/SUBSTANCE CERT (Y/N)^S^1:YES;2:NO;^0;1^Q"
^DD(200.074745,.01,1,0)="^.1"
^DD(200.074745,.01,1,1,0)="200.074745^B"
^DD(200.074745,.01,1,1,1)="S ^VA(200,DA(1),""QAR20"",""B"",$E(X,1,30),DA)="""""
^DD(200.074745,.01,1,1,2)="K ^VA(200,DA(1),""QAR20"",""B"",$E(X,1,30),DA)"
^DD(200.074745,.01,3)="Enter whether the Physician has a Controlled Substance Certificate"
^DD(200.074745,.01,21,0)="^^1^1^2920731^"
^DD(200.074745,.01,21,1,0)="Does the physician have a Controlled Substance Certificate?"
^DD(200.074745,.01,"DT")="2910826"
^DD(200.074745,1,0)="STATE^P5'^DIC(5,^0;2^Q"
^DD(200.074745,1,21,0)="^^1^1^2910826^"
^DD(200.074745,1,21,1,0)="Enter the State issuing the Controlled Substance Certificate."
^DD(200.074745,1,"DT")="2910826"
^DD(200.074745,2,0)="EXPIRATION DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.074745,2,21,0)="^^1^1^2910826^"
^DD(200.074745,2,21,1,0)="Enter the Expiration date for the Controlled Substance Certificate."
^DD(200.074745,2,"DT")="2910826"
^DD(200.074745,"B","CONTROL/SUBSTANCE CERT (Y/N)",.01)=""
^DD(200.074745,"B","EXPIRATION DATE",2)=""
^DD(200.074745,"B","STATE",1)=""
^DD(200.074745,"GL",0,1,.01)=""
^DD(200.074745,"GL",0,2,1)=""
^DD(200.074745,"GL",0,3,2)=""
^DD(200.074745,"IX",.01)=""
^DD(200.07475,0)="CERTIFICATION SUB-FIELD^^2^4"
^DD(200.07475,0,"DT")="2910401"
^DD(200.07475,0,"IX","B",200.07475,.01)=""
^DD(200.07475,0,"NM","CERTIFICATION")=""
^DD(200.07475,0,"UP")="200"
^DD(200.07475,.01,0)="CERTIFICATION^MP747.9'^QA(747.9,^0;1^Q"
^DD(200.07475,.01,1,0)="^.1"
^DD(200.07475,.01,1,1,0)="200.07475^B"
^DD(200.07475,.01,1,1,1)="S ^VA(200,DA(1),""QAR2"",""B"",$E(X,1,30),DA)="""""
^DD(200.07475,.01,1,1,2)="K ^VA(200,DA(1),""QAR2"",""B"",$E(X,1,30),DA)"
^DD(200.07475,.01,3)="Enter the specialties in which the practitioner is Board Certified."
^DD(200.07475,.01,21,0)="^^4^4^2910410^^"
^DD(200.07475,.01,21,1,0)="This field allows you to enter specialties in which the practitioner is"
^DD(200.07475,.01,21,2,0)="Board Certified."
^DD(200.07475,.01,21,3,0)=" "
^DD(200.07475,.01,21,4,0)=" "
^DD(200.07475,.01,"DT")="2910201"
^DD(200.07475,1,0)="DATE^DX^^0;2^S %DT=""E"" D IN^QARVER1,^%DT S X=Y K:Y<1 X"
^DD(200.07475,1,3)="Enter the date of Certification."
^DD(200.07475,1,4)="D XHELP^QARVER1"
^DD(200.07475,1,21,0)="^^3^3^2910410^^"
^DD(200.07475,1,21,1,0)="Indicates the Date of Certification."
^DD(200.07475,1,21,2,0)=" "
^DD(200.07475,1,21,3,0)=" "
^DD(200.07475,1,"DT")="2910618"
^DD(200.07475,1.1,0)="EXPIRATION DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.07475,1.1,3)="Enter the Expiration date for this Certification."
^DD(200.07475,1.1,"DT")="2920820"
^DD(200.07475,2,0)="VERIFICATION^S^1:COMPENDIUM/MED SPECIALTY;2:LETTER FROM BOARD;3:AMERICAN DENTAL DIRECTORY;^0;3^Q"
^DD(200.07475,2,3)="Enter the type of Verification."
^DD(200.07475,2,21,0)="^^8^8^2910410^^^^"
^DD(200.07475,2,21,1,0)="This field refers to the method of verification used.  ""1"" indicates that"
^DD(200.07475,2,21,2,0)="the compendium of certified medical specialists was used to verify"
^DD(200.07475,2,21,3,0)="specialty and that a xeroxed page signed by the chief of staff is filed"
^DD(200.07475,2,21,4,0)="in the credentials folder.  ""2"" indicates that a letter from the "
^DD(200.07475,2,21,5,0)="specialty board is filed in the credentials folder.  ""3"" indicates that"
^DD(200.07475,2,21,6,0)="verification was made with the American Dental Directory and a xeroxed"
^DD(200.07475,2,21,7,0)="page is filed in the credentials folder."
^DD(200.07475,2,21,8,0)=" "
^DD(200.07475,2,21,9,0)="page is filed in the credentials folder.  ""5"" indicates that a ROC was made"
^DD(200.07475,2,21,10,0)="with the Board of Specialty."
^DD(200.07475,2,"DT")="2910401"
^DD(200.07475,"B","CERTIFICATION",.01)=""
^DD(200.07475,"B","DATE",1)=""
^DD(200.07475,"B","EXPIRATION DATE",1.1)=""
^DD(200.07475,"B","VERIFICATION",2)=""
^DD(200.07475,"GL",0,1,.01)=""
^DD(200.07475,"GL",0,2,1)=""
^DD(200.07475,"GL",0,3,2)=""
^DD(200.07475,"GL",0,4,1.1)=""
^DD(200.07475,"IX",.01)=""
^DD(200.07476,0)="BOARD ELIGIBLE SUB-FIELD^^2^3"
^DD(200.07476,0,"DT")="2910201"
^DD(200.07476,0,"IX","B",200.07476,.01)=""
^DD(200.07476,0,"NM","BOARD ELIGIBLE")=""
^DD(200.07476,0,"UP")="200"
^DD(200.07476,.01,0)="BOARD ELIGIBLE^MP747.9'^QA(747.9,^0;1^Q"
^DD(200.07476,.01,1,0)="^.1"
^DD(200.07476,.01,1,1,0)="200.07476^B"
^DD(200.07476,.01,1,1,1)="S ^VA(200,DA(1),""QAR4"",""B"",$E(X,1,30),DA)="""""
^DD(200.07476,.01,1,1,2)="K ^VA(200,DA(1),""QAR4"",""B"",$E(X,1,30),DA)"
^DD(200.07476,.01,3)="Enter the Board Specialties Eligibility"
^DD(200.07476,.01,21,0)="^^1^1^2910430^^"
^DD(200.07476,.01,21,1,0)="Contains the individuals Board Eligibility information."
^DD(200.07476,.01,21,2,0)="the area of specialty."
^DD(200.07476,.01,21,3,0)=" "
^DD(200.07476,.01,21,4,0)=" "
^DD(200.07476,.01,"DT")="2910201"
^DD(200.07476,1,0)="EXPIRATION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.07476,1,3)="ENTER DATE WHEN BOARD ELIGIBILITY EXPIRES."
^DD(200.07476,1,21,0)="^^1^1^2910430^^"
^DD(200.07476,1,21,1,0)="Contains the date the individuals eligibility expires."
^DD(200.07476,1,21,2,0)=" "
^DD(200.07476,1,"DT")="2910201"
^DD(200.07476,2,0)="VERIFICATION^S^1:LETTER FROM TRAINING DIRECTOR;2:LETTER FROM SPECIALTY BOARD;^0;3^Q"
^DD(200.07476,2,3)="Enter the type of Verification."
^DD(200.07476,2,21,0)="^^4^4^2910403^^"
^DD(200.07476,2,21,1,0)="This field refers to the method of verification used.  ""1"" indicates"
^DD(200.07476,2,21,2,0)="a letter from the training director is filed in the credentials folder."
^DD(200.07476,2,21,3,0)="""2"" indicates a letter from the prospective specialty board is filed"
^DD(200.07476,2,21,4,0)="in the credentials folder."
^DD(200.07476,2,21,5,0)="to the inquiry."
^DD(200.07476,2,"DT")="2910201"
^DD(200.07476,"B","BOARD ELIGIBLE",.01)=""
^DD(200.07476,"B","EXPIRATION DATE",1)=""
^DD(200.07476,"B","VERIFICATION",2)=""
^DD(200.07476,"GL",0,1,.01)=""
^DD(200.07476,"GL",0,2,1)=""
^DD(200.07476,"GL",0,3,2)=""
^DD(200.07476,"IX",.01)=""
^DD(200.07477,0)="PROFESSIONAL ORGANIZATION SUB-FIELD^^.01^1"
^DD(200.07477,0,"DT")="2910201"
^DD(200.07477,0,"IX","B",200.07477,.01)=""
^DD(200.07477,0,"NM","PROFESSIONAL ORGANIZATION")=""
^DD(200.07477,0,"UP")="200"
^DD(200.07477,.01,0)="PROFESSIONAL ORGANIZATION^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(200.07477,.01,1,0)="^.1"
^DD(200.07477,.01,1,1,0)="200.07477^B"
^DD(200.07477,.01,1,1,1)="S ^VA(200,DA(1),""QAR5"",""B"",$E(X,1,30),DA)="""""
^DD(200.07477,.01,1,1,2)="K ^VA(200,DA(1),""QAR5"",""B"",$E(X,1,30),DA)"
^DD(200.07477,.01,3)="Answer must be 2-30 characters in length."
^DD(200.07477,.01,21,0)="^^2^2^2910403^^"
^DD(200.07477,.01,21,1,0)="Membership in professional organizations (Local, State Medical Society,"
^DD(200.07477,.01,21,2,0)="AMA FACP, FACS, etc)."
^DD(200.07477,.01,21,3,0)=" "
^DD(200.07477,.01,"DT")="2910201"
^DD(200.07477,"B","PROFESSIONAL ORGANIZATION",.01)=""
^DD(200.07477,"GL",0,1,.01)=""
^DD(200.07477,"IX",.01)=""
^DD(200.07478,0)="HONORS/OFFICES HELD SUB-FIELD^^1^2"
^DD(200.07478,0,"DT")="2910211"
^DD(200.07478,0,"IX","B",200.07478,.01)=""
^DD(200.07478,0,"NM","HONORS/OFFICES HELD")=""
^DD(200.07478,0,"UP")="200"
^DD(200.07478,.01,0)="HONORS/OFFICES HELD^MF^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(200.07478,.01,1,0)="^.1"
^DD(200.07478,.01,1,1,0)="200.07478^B"
^DD(200.07478,.01,1,1,1)="S ^VA(200,DA(1),""QAR6"",""B"",$E(X,1,30),DA)="""""
^DD(200.07478,.01,1,1,2)="K ^VA(200,DA(1),""QAR6"",""B"",$E(X,1,30),DA)"
^DD(200.07478,.01,3)="Answer must be 3-80 characters in length."
^DD(200.07478,.01,21,0)="^^1^1^2910403^^"
^DD(200.07478,.01,21,1,0)="List any Honors/Offices held that pertain to your field of study."
^DD(200.07478,.01,21,2,0)="societies."
^DD(200.07478,.01,21,3,0)=" "
^DD(200.07478,.01,21,4,0)=" "
^DD(200.07478,.01,"DT")="2910211"
^DD(200.07478,1,0)="SOCIETY^200.074781A^^1;0"
^DD(200.07478,1,21,0)="^^1^1^2920731^"
^DD(200.07478,1,21,1,0)="This field contains the Society name."
^DD(200.07478,"B","HONORS/OFFICES HELD",.01)=""
^DD(200.07478,"B","SOCIETY",1)=""
^DD(200.07478,"GL",0,1,.01)=""
^DD(200.07478,"GL",1,0,1)=""
^DD(200.07478,"IX",.01)=""
^DD(200.07478,"SB",200.074781,1)=""
^DD(200.074781,0)="SOCIETY SUB-FIELD^^.01^1"
^DD(200.074781,0,"DT")="2910211"
^DD(200.074781,0,"IX","B",200.074781,.01)=""
^DD(200.074781,0,"NM","SOCIETY")=""
^DD(200.074781,0,"UP")="200.07478"
^DD(200.074781,.01,0)="SOCIETY^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(200.074781,.01,1,0)="^.1"
^DD(200.074781,.01,1,1,0)="200.074781^B"
^DD(200.074781,.01,1,1,1)="S ^VA(200,DA(2),""QAR6"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(200.074781,.01,1,1,2)="K ^VA(200,DA(2),""QAR6"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(200.074781,.01,3)="Answer must be 3-30 characters in length."
^DD(200.074781,.01,"DT")="2910211"
^DD(200.074781,"B","SOCIETY",.01)=""
^DD(200.074781,"GL",0,1,.01)=""
^DD(200.074781,"IX",.01)=""
^DD(200.19,0)="DELEGATED OPTIONS SUB-FIELD^^3^4"
^DD(200.19,0,"IX","B",200.19,.01)=""
^DD(200.19,0,"NM","DELEGATED OPTIONS")=""
^DD(200.19,0,"UP")="200"
^DD(200.19,.01,0)="DELEGATED OPTIONS^MP19'X^DIC(19,^0;1^S DINUM=X"
^DD(200.19,.01,1,0)="^.1"
^DD(200.19,.01,1,1,0)="200.19^B"
^DD(200.19,.01,1,1,1)="S ^VA(200,DA(1),19.5,""B"",$E(X,1,30),DA)="""""
^DD(200.19,.01,1,1,2)="K ^VA(200,DA(1),19.5,""B"",$E(X,1,30),DA)"
^DD(200.19,.01,1,2,0)="^^TRIGGER^200.19^1"
^DD(200.19,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(200.19,.01,1,2,1.4)"
^DD(200.19,.01,1,2,1.4)="S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.19,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.19,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(200.19,.01,1,2,2.4)"
^DD(200.19,.01,1,2,2.4)="S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=200.19,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.19,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(200.19,.01,1,2,"DELETE VALUE")="@"
^DD(200.19,.01,1,2,"FIELD")="DELEGATED BY"
^DD(200.19,.01,1,3,0)="^^TRIGGER^200.19^2"
^DD(200.19,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(200.19,.01,1,3,1.4)"
^DD(200.19,.01,1,3,1.4)="S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.19,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.19,.01,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VA(200,D0,19.5,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(200.19,.01,1,3,2.4)"
^DD(200.19,.01,1,3,2.4)="S DIH=$S($D(^VA(200,DIV(0),19.5,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=200.19,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(200.19,.01,1,3,"CREATE VALUE")="TODAY"
^DD(200.19,.01,1,3,"DELETE VALUE")="@"
^DD(200.19,.01,1,3,"FIELD")="DATE DEL"
^DD(200.19,.01,21,0)="^^1^1^2920513^^"
^DD(200.19,.01,21,1,0)="This field identifies which options this user may delegate to others."
^DD(200.19,.01,"DT")="2890417"
^DD(200.19,1,0)="DELEGATED BY^P200'^VA(200,^0;2^Q"
^DD(200.19,1,5,1,0)="200.19^.01^2"
^DD(200.19,1,9)="^"
^DD(200.19,1,21,0)="^^2^2^2920513^^^"
^DD(200.19,1,21,1,0)="This field indicates who granted authority for this user to delegate"
^DD(200.19,1,21,2,0)="this option to others."
^DD(200.19,1,"DT")="2880120"
^DD(200.19,2,0)="DATE DELEGATED^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(200.19,2,5,1,0)="200.19^.01^3"
^DD(200.19,2,9)="^"
^DD(200.19,2,21,0)="^^2^2^2920513^^"
^DD(200.19,2,21,1,0)="This field records the date when this option was added to the list"
^DD(200.19,2,21,2,0)="of options this user may delegate to others."
^DD(200.19,2,"DT")="2880120"
^DD(200.19,3,0)="EDITABLE^S^0:N;1:Y;^0;4^Q"
^DD(200.19,3,21,0)="^^1^1^2920513^^"
^DD(200.19,3,21,1,0)="This field indicates whether this use is allowed to edit this option."
^DD(200.19,3,"DT")="2880120"
^DD(200.19,"B","DATE DELEGATED",2)=""
^DD(200.19,"B","DELEGATED BY",1)=""
^DD(200.19,"B","DELEGATED OPTIONS",.01)=""
^DD(200.19,"B","EDITABLE",3)=""
^DD(200.19,"GL",0,1,.01)=""
^DD(200.19,"GL",0,2,1)=""
^DD(200.19,"GL",0,3,2)=""
^DD(200.19,"GL",0,4,3)=""
^DD(200.19,"IX",.01)=""
^DD(200.194,0)="ALERT DATE TIME SUB-FIELD^^1^11"
^DD(200.194,0,"DT")="2940705"
^DD(200.194,0,"NM","ALERT DATE TIME")=""
^DD(200.194,0,"UP")="200"
^DD(200.194,.01,0)="ALERT DATE TIME^MDX^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(200.194,.01,1,0)="^.1^^0"
^DD(200.194,.01,21,0)="^^1^1^2930402^"
^DD(200.194,.01,21,1,0)="This is the date and time when the alert was generated."
^DD(200.194,.01,"DT")="2900822"
^DD(200.194,.02,0)="PACKAGE ID^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(200.194,.02,1,0)="^.1"
^DD(200.194,.02,1,1,0)="200^AXQA^MUMPS"
^DD(200.194,.02,1,1,1)="S ^VA(200,""AXQA"",$E(X,1,30),DA(1),DA)="""""
^DD(200.194,.02,1,1,2)="K ^VA(200,""AXQA"",$E(X,1,30),DA(1),DA)"
^DD(200.194,.02,1,1,"%D",0)="^^5^5^2930402^^^"
^DD(200.194,.02,1,1,"%D",1,0)=" "
^DD(200.194,.02,1,1,"%D",2,0)="This is a cross-reference on the complete XQAID value for this alert,"
^DD(200.194,.02,1,1,"%D",3,0)="which can be used to identify those individuals who received this particular"
^DD(200.194,.02,1,1,"%D",4,0)="instance of the alert, and could be used to delete other entries which"
^DD(200.194,.02,1,1,"%D",5,0)="had received the alert."
^DD(200.194,.02,1,1,"DT")="2910528"
^DD(200.194,.02,1,2,0)="200^AXQAN^MUMPS"
^DD(200.194,.02,1,2,1)="S ^VA(200,""AXQAN"",$E($P(X,"";""),1,30),DA(1),DA)="""""
^DD(200.194,.02,1,2,2)="K ^VA(200,""AXQAN"",$E($P(X,"";""),1,30),DA(1),DA)"
^DD(200.194,.02,1,2,"%D",0)="^^6^6^2930402^^^"
^DD(200.194,.02,1,2,"%D",1,0)=" "
^DD(200.194,.02,1,2,"%D",2,0)="This cross-reference may be used to identify those users who received the"
^DD(200.194,.02,1,2,"%D",3,0)="alert with the application package specified XQAID (the first "";""-piece"
^DD(200.194,.02,1,2,"%D",4,0)="of the complete XQAID value) for those cases in which the full XQAID value"
^DD(200.194,.02,1,2,"%D",5,0)="may not be known, e.g., an application which was selected by the user"
^DD(200.194,.02,1,2,"%D",6,0)="without selecting the ALERT ACTION option to process the alert."
^DD(200.194,.02,1,2,"DT")="2910528"
^DD(200.194,.02,3)="Answer must be 2-20 characters in length."
^DD(200.194,.02,21,0)="^^4^4^2930402^"
^DD(200.194,.02,21,1,0)="This is a field in which the package id passed during alert filing.  This"
^DD(200.194,.02,21,2,0)="id may simply be a package namespace, or it may be a namespace followed by"
^DD(200.194,.02,21,3,0)="additional data to more accurately identify the type or purpose of the"
^DD(200.194,.02,21,4,0)="alert."
^DD(200.194,.02,"DT")="2910528"
^DD(200.194,.03,0)="MESSAGE TEXT^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(200.194,.03,3)="Answer must be 3-60 characters in length."
^DD(200.194,.03,21,0)="^^4^4^2930402^"
^DD(200.194,.03,21,1,0)="This field contains the text of the message to be presented to the user at"
^DD(200.194,.03,21,2,0)="the time when he cycles through the menu system the first time after the"
^DD(200.194,.03,21,3,0)="alert has been filed for the user, and when the user selects the VIEW"
^DD(200.194,.03,21,4,0)="ALERTS option."
^DD(200.194,.03,"DT")="2900822"
^DD(200.194,.04,0)="NEW ALERT FLAG^S^1:NEW;^0;4^Q"
^DD(200.194,.04,21,0)="^^4^4^2930402^"
^DD(200.194,.04,21,1,0)="This flag is used by the alert processing to indicate a new alert which"
^DD(200.194,.04,21,2,0)="has not previously been presented to the user.  After the alert message"
^DD(200.194,.04,21,3,0)="text has been shown to the user, this flag is cleared and the user must"
^DD(200.194,.04,21,4,0)="then select the VIEW ALERTS option to process the alert."
^DD(200.194,.04,"DT")="2900822"
^DD(200.194,.05,0)="ACTION FLAG^S^D:DELETE;R:RUN ROUTINE;I:IMMEDIATE RUN;^0;5^Q"
^DD(200.194,.05,21,0)="^^3^3^2930402^"
^DD(200.194,.05,21,1,0)="This flag is optional at the present time, since the need for action"
^DD(200.194,.05,21,2,0)="processing can be determined by the presence of an option name or a"
^DD(200.194,.05,21,3,0)="routine name for use during alert processing."
^DD(200.194,.05,"DT")="2900822"
^DD(200.194,.06,0)="RESERVED1^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(200.194,.06,3)="Answer must be 1-10 characters in length."
^DD(200.194,.06,21,0)="^^1^1^2930402^"
^DD(200.194,.06,21,1,0)="This field is reserved for future use by the alert system."
^DD(200.194,.06,"DT")="2910612"
^DD(200.194,.07,0)="ENTRY POINT^FX^^0;7^K:$L(X)>8!($L(X)<1)!'(X?.UN) X"
^DD(200.194,.07,3)="Enter a valid line tag 1 to 8 characters"
^DD(200.194,.07,21,0)="^^6^6^2930402^"
^DD(200.194,.07,21,1,0)="While named ENTRY POINT, this is a dual function field.  If the next field"
^DD(200.194,.07,21,2,0)="(#.08, AROUTINE NAME) contains a routine name, this field contains the"
^DD(200.194,.07,21,3,0)="desired entry point within that routine (this field may also be null,"
^DD(200.194,.07,21,4,0)="indicating that the entry point should be at the top of the routine).  If"
^DD(200.194,.07,21,5,0)="field #.08 is null, then the contents of this field is interpreted as the"
^DD(200.194,.07,21,6,0)="name of an option which is to be entered when the alert is processed."
^DD(200.194,.07,"DT")="2910613"
^DD(200.194,.08,0)="AROUTINE NAME^F^^0;8^K:$L(X)>8!($L(X)<2)!'(X?1U.UN) X"
^DD(200.194,.08,3)="Answer must be 2-8 characters in length."
^DD(200.194,.08,21,0)="^^10^10^2930402^"
^DD(200.194,.08,21,1,0)="If this field is not null, it contains the name of a routine which is to"
^DD(200.194,.08,21,2,0)="be used when the alert is processed.  If there is also a value in field"
^DD(200.194,.08,21,3,0)="#.07, that value is used as an entry point into the routine specified in"
^DD(200.194,.08,21,4,0)="this field."
^DD(200.194,.08,21,5,0)=" "
^DD(200.194,.08,21,6,0)="If this field is null, field #.07 is interpreted as an option name which"
^DD(200.194,.08,21,7,0)="is to be used when the alert is processed."
^DD(200.194,.08,21,8,0)=" "
^DD(200.194,.08,21,9,0)="If both this field and field #.07 are null, the alert is processed as an"
^DD(200.194,.08,21,10,0)="information only alert."
^DD(200.194,.08,"DT")="2910612"
^DD(200.194,.09,0)="RESERVED FIELD^F^^0;9^K:$L(X)>10!($L(X)<1) X"
^DD(200.194,.09,3)="Answer must be 1-10 characters in length."
^DD(200.194,.09,21,0)="^^1^1^2930402^"
^DD(200.194,.09,21,1,0)="This field is reserved for future use in the alert processing system."
^DD(200.194,.09,"DT")="2910612"
^DD(200.194,.1,0)="FIRST DATA PIECE^F^^0;10^K:$L(X)>115!($L(X)<1) X"
^DD(200.194,.1,3)="Answer must be 1-115 characters in length."
^DD(200.194,.1,21,0)="^^9^9^2930402^"
^DD(200.194,.1,21,1,0)="This field and all following ^-separated fields are processed as a single"
^DD(200.194,.1,21,2,0)="entity and are returned in the variable XQADATA for use by the application"
^DD(200.194,.1,21,3,0)="which generated the alert.  The package may pass a series of variables"
^DD(200.194,.1,21,4,0)="using any desired separator in the variable XQADATA at the time the alert"
^DD(200.194,.1,21,5,0)="is setup.  When the alert is processed the value of XQADATA is returned to"
^DD(200.194,.1,21,6,0)="the application and may be used to establish parameters related to the"
^DD(200.194,.1,21,7,0)="alert without requiring interaction or provision of information by the"
^DD(200.194,.1,21,8,0)="user.  In this way information related to patient entry number, specific"
^DD(200.194,.1,21,9,0)="internal numbers for the desired data, etc may be stored and returned."
^DD(200.194,.1,"DT")="2910612"
^DD(200.194,1,0)="DATA STRING^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(200.194,1,3)="This field contains the data associated with the alert."
^DD(200.194,1,"DT")="2940705"
^DD(200.194,"B","ACTION FLAG",.05)=""
^DD(200.194,"B","ALERT DATE TIME",.01)=""
^DD(200.194,"B","AROUTINE NAME",.08)=""
^DD(200.194,"B","DATA STRING",1)=""
^DD(200.194,"B","ENTRY POINT",.07)=""
^DD(200.194,"B","FIRST DATA PIECE",.1)=""
^DD(200.194,"B","MESSAGE TEXT",.03)=""
^DD(200.194,"B","NEW ALERT FLAG",.04)=""
^DD(200.194,"B","PACKAGE ID",.02)=""
^DD(200.194,"B","RESERVED FIELD",.09)=""
^DD(200.194,"B","RESERVED1",.06)=""
^DD(200.194,"GL",0,1,.01)=""
^DD(200.194,"GL",0,2,.02)=""
^DD(200.194,"GL",0,3,.03)=""
^DD(200.194,"GL",0,4,.04)=""
^DD(200.194,"GL",0,5,.05)=""
^DD(200.194,"GL",0,6,.06)=""
^DD(200.194,"GL",0,7,.07)=""
^DD(200.194,"GL",0,8,.08)=""
^DD(200.194,"GL",0,9,.09)=""
^DD(200.194,"GL",0,10,.1)=""
^DD(200.194,"GL",1,"E1,245",1)=""
^DD(200.194,"IX",.02)=""
^DD(200.196,0)="ALLOWABLE NEW MENU PREFIX SUB-FIELD^^.01^1"
^DD(200.196,0,"IX","B",200.196,.01)=""
^DD(200.196,0,"NM","ALLOWABLE NEW MENU PREFIX")=""
^DD(200.196,0,"UP")="200"
^DD(200.196,.01,0)="ALLOWABLE NEW MENU PREFIX^MF^^0;1^K:$L(X)>4!($L(X)<2)!'(X?1U1UN.UN) X"
^DD(200.196,.01,1,0)="^.1"
^DD(200.196,.01,1,1,0)="200.196^B"
^DD(200.196,.01,1,1,1)="S ^VA(200,DA(1),19.6,""B"",$E(X,1,30),DA)="""""
^DD(200.196,.01,1,1,2)="K ^VA(200,DA(1),19.6,""B"",$E(X,1,30),DA)"
^DD(200.196,.01,3)="Enter 2-4 character package identifier which can be used for menus built using delegated options."
^DD(200.196,.01,21,0)="^^5^5^2920513^^"
^DD(200.196,.01,21,1,0)="This menu prefix will namespace any menu that this user creates with"
^DD(200.196,.01,21,2,0)="delegated options.  The menu will begin with the characters specified"
^DD(200.196,.01,21,3,0)="here, e.g. LR.  When the menu is built, the system will append a 'Z'"
^DD(200.196,.01,21,4,0)="to indicate local status, e.g. LRZ, to avoid conflict with national"
^DD(200.196,.01,21,5,0)="releases."
^DD(200.196,.01,"DT")="2880527"
^DD(200.196,"B","ALLOWABLE NEW MENU PREFIX",.01)=""
^DD(200.196,"GL",0,1,.01)=""
^DD(200.196,"IX",.01)=""
^DD(200.198,0)="MENU TEMPLATE SUB-FIELD^^1^2"
^DD(200.198,0,"DT")="2891117"
^DD(200.198,0,"IX","B",200.198,.01)=""
^DD(200.198,0,"NM","MENU TEMPLATE")=""
^DD(200.198,0,"UP")="200"
^DD(200.198,.01,0)="MENU TEMPLATE^F^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(200.198,.01,1,0)="^.1"
^DD(200.198,.01,1,1,0)="200.198^B"
^DD(200.198,.01,1,1,1)="S ^VA(200,DA(1),19.8,""B"",$E(X,1,30),DA)="""""
^DD(200.198,.01,1,1,2)="K ^VA(200,DA(1),19.8,""B"",$E(X,1,30),DA)"
^DD(200.198,.01,3)="Enter a unique name between 1 and 6 characters in length."
^DD(200.198,.01,"DT")="2891117"
^DD(200.198,1,0)="PATHWAY^200.1981^^1;0"
^DD(200.198,1,21,0)="^^2^2^2930407^"
^DD(200.198,1,21,1,0)="This multiple contains the information on the option sequence specified"
^DD(200.198,1,21,2,0)="for a given MENU TEMPLATE."
^DD(200.198,"B","MENU TEMPLATE",.01)=""
^DD(200.198,"B","PATHWAY",1)=""
^DD(200.198,"GL",0,1,.01)=""
^DD(200.198,"GL",1,0,1)=""
^DD(200.198,"IX",.01)=""
^DD(200.198,"SB",200.1981,1)=""
^DD(200.1981,0)="PATHWAY SUB-FIELD^^.01^1"
^DD(200.1981,0,"DT")="2891117"
^DD(200.1981,0,"NM","PATHWAY")=""
^DD(200.1981,0,"UP")="200.198"
^DD(200.1981,.01,0)="PATHWAY^WL^^0;1^Q"
^DD(200.1981,.01,21,0)="^^2^2^2930407^"
^DD(200.1981,.01,21,1,0)="This field contains the information on the option sequence specified for"
^DD(200.1981,.01,21,2,0)="the menu template."
^DD(200.1981,.01,"DT")="2891117"
^DD(200.1981,"B","PATHWAY",.01)=""
^DD(200.1981,"GL",0,1,.01)=""
^DD(200.541,0)="LICENSING STATE SUB-FIELD^^2^3"
^DD(200.541,0,"IX","B",200.541,.01)=""
^DD(200.541,0,"NM","LICENSING STATE")=""
^DD(200.541,0,"UP")="200"
^DD(200.541,.01,0)="LICENSING STATE^P5'^DIC(5,^0;1^Q"
^DD(200.541,.01,1,0)="^.1"
^DD(200.541,.01,1,1,0)="200.541^B"
^DD(200.541,.01,1,1,1)="S ^VA(200,DA(1),""PS1"",""B"",$E(X,1,30),DA)="""""
^DD(200.541,.01,1,1,2)="K ^VA(200,DA(1),""PS1"",""B"",$E(X,1,30),DA)"
^DD(200.541,.01,20,0)="^.3LA^1^1"
^DD(200.541,.01,20,1,0)="PS"
^DD(200.541,.01,21,0)="^^1^1^2930506^"
^DD(200.541,.01,21,1,0)="This is the state issuing a license to practice medicine for a provider."
^DD(200.541,.01,23,0)="^^1^1^2921104^"
^DD(200.541,.01,23,1,0)="This field is utilized by the Indian Health Service."
^DD(200.541,.01,"DT")="2891022"
^DD(200.541,1,0)="LICENSE NUMBER^RF^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(200.541,1,3)="Enter the provider's state license number."
^DD(200.541,1,20,0)="^.3LA^1^1"
^DD(200.541,1,20,1,0)="PS"
^DD(200.541,1,21,0)="^^2^2^2930506^"
^DD(200.541,1,21,1,0)="This is the licence number that was issued to a provider by the sate"
^DD(200.541,1,21,2,0)="he is licenced in."
^DD(200.541,1,23,0)="^^1^1^2921104^"
^DD(200.541,1,23,1,0)="This field utilized by the Indian Health Service"
^DD(200.541,1,"DT")="2891022"
^DD(200.541,2,0)="EXPIRATION DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(200.541,2,3)="Enter the date upon which this state license will expire."
^DD(200.541,2,20,0)="^.3LA^1^1"
^DD(200.541,2,20,1,0)="PS"
^DD(200.541,2,21,0)="^^1^1^2930506^"
^DD(200.541,2,21,1,0)="This is the expiration date of the provider's licence issued by the state."
^DD(200.541,2,21,2,0)="by the state."
^DD(200.541,2,23,0)="^^1^1^2921104^"
^DD(200.541,2,23,1,0)="This field is utilized by the Indian Health Service"
^DD(200.541,2,"DT")="2891022"
^DD(200.541,"B","EXPIRATION DATE",2)=""
^DD(200.541,"B","LICENSE NUMBER",1)=""
^DD(200.541,"B","LICENSING STATE",.01)=""
^DD(200.541,"GL",0,1,.01)=""
^DD(200.541,"GL",0,2,1)=""
^DD(200.541,"GL",0,3,2)=""
^DD(200.541,"GR","PS",.01,1)=""
^DD(200.541,"GR","PS",1,1)=""
^DD(200.541,"GR","PS",2,1)=""
^DD(200.541,"IX",.01)=""
^DD(200.541,"RQ",1)=""
^DD(200.541,"RQ",2)=""
^DD(200.55,0)="STATE ISSUING DEA NUMBER SUB-FIELD^^1^2"
^DD(200.55,0,"IX","B",200.55,.01)=""
^DD(200.55,0,"NM","STATE ISSUING DEA NUMBER")=""
^DD(200.55,0,"UP")="200"
^DD(200.55,.01,0)="STATE ISSUING DEA NUMBER^MP5'^DIC(5,^0;1^Q"
^DD(200.55,.01,1,0)="^.1"
^DD(200.55,.01,1,1,0)="200.55^B"
^DD(200.55,.01,1,1,1)="S ^VA(200,DA(1),""PS2"",""B"",$E(X,1,30),DA)="""""
^DD(200.55,.01,1,1,2)="K ^VA(200,DA(1),""PS2"",""B"",$E(X,1,30),DA)"
^DD(200.55,.01,3)="Enter the state which has issued its DEA number."
^DD(200.55,.01,20,0)="^.3LA^1^1"
^DD(200.55,.01,20,1,0)="PS"
^DD(200.55,.01,21,0)="^^2^2^2921104^"
^DD(200.55,.01,21,1,0)="This is the state which has issued a State DEA# to a provider.  Not all"
^DD(200.55,.01,21,2,0)="states require a seperate DEA #"
^DD(200.55,.01,23,0)="^^1^1^2921104^"
^DD(200.55,.01,23,1,0)="This field is utilized by the Indian Health Service"
^DD(200.55,.01,"DT")="2891022"
^DD(200.55,1,0)="STATE DEA NUMBER^RF^^0;2^K:$L(X)>20!($L(X)<3) X"
^DD(200.55,1,3)="Enter the DEA number issued by this state."
^DD(200.55,1,20,0)="^.3LA^1^1"
^DD(200.55,1,20,1,0)="PS"
^DD(200.55,1,21,0)="^^3^3^2921104^"
^DD(200.55,1,21,1,0)="This is the DEA # issued by an individual state, it is not required"
^DD(200.55,1,21,2,0)="by all states and in some cases may be the same as the Federal"
^DD(200.55,1,21,3,0)="DEA #."
^DD(200.55,1,23,0)="^^1^1^2921104^"
^DD(200.55,1,23,1,0)="This field is utilized by the Indian Health Service."
^DD(200.55,1,"DT")="2891022"
^DD(200.55,"B","STATE DEA NUMBER",1)=""
^DD(200.55,"B","STATE ISSUING DEA NUMBER",.01)=""
^DD(200.55,"GL",0,1,.01)=""
^DD(200.55,"GL",0,2,1)=""
^DD(200.55,"GR","PS",.01,1)=""
^DD(200.55,"GR","PS",1,1)=""
^DD(200.55,"IX",.01)=""
^DD(200.55,"RQ",1)=""
^DD(200.72,0)="DMMS UNITS SUB-FIELD^^.01^1"
^DD(200.72,0,"DT")="2930408"
^DD(200.72,0,"IX","B",200.72,.01)=""
^DD(200.72,0,"NM","DMMS UNITS")=""
^DD(200.72,0,"UP")="200"
^DD(200.72,.01,0)="DMMS UNITS^MP724'^ECD(^0;1^Q"
^DD(200.72,.01,1,0)="^.1"
^DD(200.72,.01,1,1,0)="200.72^B"
^DD(200.72,.01,1,1,1)="S ^VA(200,DA(1),""EC"",""B"",$E(X,1,30),DA)="""""
^DD(200.72,.01,1,1,2)="K ^VA(200,DA(1),""EC"",""B"",$E(X,1,30),DA)"
^DD(200.72,.01,8.5)="^"
^DD(200.72,.01,9)="^"
^DD(200.72,.01,21,0)="^^3^3^2930408^"
^DD(200.72,.01,21,1,0)="The DMMS unit to which this person has access for entering data and"
^DD(200.72,.01,21,2,0)="generating reports."
^DD(200.72,.01,21,3,0)=" "
^DD(200.72,.01,23,0)="^^2^2^2930408^"
^DD(200.72,.01,23,1,0)="Pointer to file 724.  Entries into this field should be made only"
^DD(200.72,.01,23,2,0)="through the package and not directly through VA FileMan."
^DD(200.72,.01,"DT")="2930408"
^DD(200.72,"B","DMMS UNITS",.01)=""
^DD(200.72,"GL",0,1,.01)=""
^DD(200.72,"IX",.01)=""
^DD(201,0)="FIELD^^99.991^4"
^DD(201,0,"DDA")="N"
^DD(201,0,"DT")="3041108"
^DD(201,0,"IX","B",201,.01)=""
^DD(201,0,"IX","C",201.01,1)=""
^DD(201,0,"NM","USER CLASS")=""
^DD(201,0,"PT",200.07,.01)=""
^DD(201,0,"VR")="8.0"
^DD(201,0,"VRPK")="XU"
^DD(201,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(201,.01,1,0)="^.1"
^DD(201,.01,1,1,0)="201^B"
^DD(201,.01,1,1,1)="S ^VA(201,""B"",$E(X,1,30),DA)="""""
^DD(201,.01,1,1,2)="K ^VA(201,""B"",$E(X,1,30),DA)"
^DD(201,.01,3)="Answer must be 3-30 characters in length."
^DD(201,.01,21,0)="^.001^1^1^3041005^^^"
^DD(201,.01,21,1,0)="This field is User Class that is to be used for identifying users."
^DD(201,.01,"DT")="3041005"
^DD(201,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>75!($L(X)<3) X"
^DD(201,1,3)="Answer must be 3-75 characters in length."
^DD(201,1,"DT")="3041108"
^DD(201,99.99,0)="VUID^FX^^0;3^K:$L(X)>18!($L(X)<18)!(X'?.N) X"
^DD(201,99.99,3)="Answer must be 18 numeric digit VUID value"
^DD(201,99.99,"DT")="3041108"
^DD(201,99.991,0)="STATUS^201.01SA^^1;0"
^DD(201,"B","DESCRIPTION",1)=""
^DD(201,"B","NAME",.01)=""
^DD(201,"B","STATUS",99.991)=""
^DD(201,"B","VUID",99.99)=""
^DD(201,"GL",0,1,.01)=""
^DD(201,"GL",0,2,1)=""
^DD(201,"GL",0,3,99.99)=""
^DD(201,"GL",1,0,99.991)=""
^DD(201,"IX",.01)=""
^DD(201,"RQ",.01)=""
^DD(201,"SB",201.01,99.991)=""
^DD(201.01,0)="STATUS SUB-FIELD^^1^2"
^DD(201.01,0,"DT")="3041108"
^DD(201.01,0,"IX","B",201.01,.01)=""
^DD(201.01,0,"NM","STATUS")=""
^DD(201.01,0,"UP")="201"
^DD(201.01,.01,0)="STATUS^MS^0:INACTIVE;1:ACTIVE;^0;1^Q"
^DD(201.01,.01,1,0)="^.1"
^DD(201.01,.01,1,1,0)="201.01^B"
^DD(201.01,.01,1,1,1)="S ^VA(201,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(201.01,.01,1,1,2)="K ^VA(201,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(201.01,.01,"DT")="3041108"
^DD(201.01,1,0)="EFFECTIVE DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(201.01,1,1,0)="^.1"
^DD(201.01,1,1,1,0)="201^C"
^DD(201.01,1,1,1,1)="S ^VA(201,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(201.01,1,1,1,2)="K ^VA(201,""C"",$E(X,1,30),DA(1),DA)"
^DD(201.01,1,1,1,"%D",0)="^^1^1^3041108^"
^DD(201.01,1,1,1,"%D",1,0)="This x-ref is the effective date of the entry."
^DD(201.01,1,1,1,"DT")="3041108"
^DD(201.01,1,21,0)="^^2^2^3041108^"
^DD(201.01,1,21,1,0)="This field is the effective date the entry was activated or"
^DD(201.01,1,21,2,0)="inactivated."
^DD(201.01,1,"DT")="3041108"
^DD(201.01,"B","EFFECTIVE DATE",1)=""
^DD(201.01,"B","STATUS",.01)=""
^DD(201.01,"GL",0,1,.01)=""
^DD(201.01,"GL",0,2,1)=""
^DD(201.01,"IX",.01)=""
^DD(201.01,"IX",1)=""
^DD(210,0)="FIELD^^42^53"
^DD(210,0,"DDA")="N"
^DD(210,0,"DT")="2981029"
^DD(210,0,"ID",2)="W ""   "",$S($D(^NURSF(211.3,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(210,0,"ID",5)="W """""
^DD(210,0,"ID",5.5)="W """""
^DD(210,0,"ID",28.1)="W """""
^DD(210,0,"IX","AC",210,5.5)=""
^DD(210,0,"IX","B",210,.01)=""
^DD(210,0,"IX","B",210.13,.01)=""
^DD(210,0,"IX","D",210,6.5)=""
^DD(210,0,"NM","NURS STAFF")=""
^DD(210,0,"VR")="4.0"
^DD(210,0,"VRPK")="NUR"
^DD(210,.01,0)="EMPLOYEE NAME^RP200X^VA(200,^0;1^Q"
^DD(210,.01,1,0)="^.1"
^DD(210,.01,1,1,0)="210^B"
^DD(210,.01,1,1,1)="S ^NURSF(210,""B"",$E(X,1,30),DA)="""""
^DD(210,.01,1,1,2)="K ^NURSF(210,""B"",$E(X,1,30),DA)"
^DD(210,.01,1,1,"%D",0)="^^2^2^2950324^^^^"
^DD(210,.01,1,1,"%D",1,0)="This is the main index on the NURS STAFF file on the Employee Name"
^DD(210,.01,1,1,"%D",2,0)="Field."
^DD(210,.01,3)="Name of employee (Last,First MI)"
^DD(210,.01,4)=""
^DD(210,.01,21,0)="^^1^1^2950324^^^^"
^DD(210,.01,21,1,0)="Pointer to NEW PERSON FILE (#200)."
^DD(210,.01,"AUDIT")=""
^DD(210,.01,"DT")="2900807"
^DD(210,1,0)="SOCIAL SECURITY NUMBER^CJ11^^ ; ^S:$D(^VA(200,$P(^NURSF(210,D0,0),""^""),1)) NSSN=$P(^(1),""^"",9),X=$E(NSSN,1,3)_""-""_$E(NSSN,4,5)_""-""_$E(NSSN,6,9) K NSSN"
^DD(210,1,9)="^"
^DD(210,1,9.01)=""
^DD(210,1,9.1)="S:$D(^VA(200,$P(^NURSF(210,D0,0),""^""),1)) NSSN=$P(^(1),""^"",9),X=$E(NSSN,1,3)_""-""_$E(NSSN,4,5)_""-""_$E(NSSN,6,9) K NSSN"
^DD(210,1,21,0)="^^1^1^2911220^^^^"
^DD(210,1,21,1,0)="Extended pointer to NEW PERSON FILE (field 9 of FILE #200).  Employee's SSN."
^DD(210,1,"DT")="2900518"
^DD(210,2,0)="PRIMARY SERVICE POSITION^CJ8^^ ; ^S DA=D0 D EN2^NURSUT0 S X=$S($G(NPSPOS)="""":"""",1:$G(NPSPOS)) K DA,NPSPOS,NOD1,NOD2"
^DD(210,2,9)="^"
^DD(210,2,9.01)=""
^DD(210,2,9.1)="S DA=D0 D EN2^NURSUT0 S X=$S($G(NPSPOS)="""":"""",1:$G(NPSPOS)) K DA,NPSPOS,NOD1,NOD2"
^DD(210,2,21,0)="^^1^1^2960422^^^^"
^DD(210,2,21,1,0)="This field indicates the employee's primary SERVICE POSITION."
^DD(210,2,"DT")="2950322"
^DD(210,3,0)="LOCATION PRIMARY PRODUCT LINE^CJ30^^ ; ^S DA=+D0 D EN2^NURSUT0 S X=$P($G(^NURSF(212.7,+$P($G(^NURSF(211.4,+$O(^NURSF(211.4,""B"",+$G(^NURSF(211.8,+$G(NOD1),0)),0)),1)),""^"",4),0)),""^"")"
^DD(210,3,.1)=""
^DD(210,3,9)="^"
^DD(210,3,9.01)=""
^DD(210,3,9.1)="S DA=+D0 D EN2^NURSUT0 S X=$P($G(^NURSF(212.7,+$P($G(^NURSF(211.4,+$O(^NURSF(211.4,""B"",+$G(^NURSF(211.8,+$G(NOD1),0)),0)),1)),""^"",4),0)),""^"")"
^DD(210,3,21,0)="^^2^2^2960729^^^^"
^DD(210,3,21,1,0)="This field indicates the service/program/product line associated with the"
^DD(210,3,21,2,0)="employee's primary assignment."
^DD(210,3,"DT")="2960729"
^DD(210,3.1,0)="SVC POS PRIMARY PRODUCT LINE^CJ30^^ ; ^S DA=+D0 D EN2^NURSUT0 S X=$G(NPSPOS(2))"
^DD(210,3.1,9)="^"
^DD(210,3.1,9.01)=""
^DD(210,3.1,9.1)="S DA=+D0 D EN2^NURSUT0 S X=$G(NPSPOS(2))"
^DD(210,3.1,21,0)="^^2^2^2960729^"
^DD(210,3.1,21,1,0)="This field indicates the service/program/product line associated with the"
^DD(210,3.1,21,2,0)="employee's primary service position."
^DD(210,4,0)="PRIMARY FACILITY^CJ30X^^ ; ^S DA=+D0 D EN2^NURSUT0 Q:'NOD1  S X=$$GET1^DIQ(4,+$P($G(^SC(+$G(^NURSF(211.8,NOD1,0)),0)),U,4),.01,""I"")"
^DD(210,4,9)="^"
^DD(210,4,9.01)=""
^DD(210,4,9.1)="S DA=+D0 D EN2^NURSUT0 Q:'NOD1  S X=$$GET1^DIQ(4,+$P($G(^SC(+$G(^NURSF(211.8,NOD1,0)),0)),U,4),.01,""I"")"
^DD(210,4,21,0)="^^2^2^2960416^^^^"
^DD(210,4,21,1,0)="This field indicates the Institution/Division associated with the employee's"
^DD(210,4,21,2,0)="primary assignment."
^DD(210,4,"DT")="3030304"
^DD(210,5,0)="TOTAL ASSIGNMENT FTEE^CJ5,3X^^ ; ^S NUR(""DA"")=D0 D EN1^NURSUT2 S X=+$J(NURTFTEE,5,3) K NURTFTEE"
^DD(210,5,3)=""
^DD(210,5,4)="W:$D(NURSEP) !,?5,""TYPE A NUMBER BETWEEN 0 AND 1 (e.g. 0,.2,.5,1)."""
^DD(210,5,9)="^"
^DD(210,5,9.01)=""
^DD(210,5,9.1)="S NUR(""DA"")=D0 D EN1^NURSUT2 S X=$J(NURTFTEE,5,3) K NURTFTEE"
^DD(210,5,21,0)="^^1^1^2950622^^^^"
^DD(210,5,21,1,0)="This is the employee's actual FTEE."
^DD(210,5,"DT")="2970522"
^DD(210,5.5,0)="STATUS^RS^A:ACTIVE;I:INTERMITTENT;R:INACTIVE;^0;2^Q"
^DD(210,5.5,1,0)="^.1"
^DD(210,5.5,1,1,0)="210^AC"
^DD(210,5.5,1,1,1)="S ^NURSF(210,""AC"",$E(X,1,30),DA)="""""
^DD(210,5.5,1,1,2)="K ^NURSF(210,""AC"",$E(X,1,30),DA)"
^DD(210,5.5,1,1,"%D",0)="^^1^1^2950324^^"
^DD(210,5.5,1,1,"%D",1,0)="This index is used to identify the employee's status."
^DD(210,5.5,3)=""
^DD(210,5.5,21,0)="^^2^2^2970319^^^^"
^DD(210,5.5,21,1,0)="Indicates if the individual is currently employed in Nursing Service."
^DD(210,5.5,21,2,0)="IDENTIFIER"
^DD(210,5.5,"DT")="2910212"
^DD(210,6,0)="LOCATION^CJ8^^ ; ^D EN2^NURSUT2"
^DD(210,6,9)="^"
^DD(210,6,9.01)=""
^DD(210,6,9.1)="D EN2^NURSUT2"
^DD(210,6,21,0)="^^1^1^2970411^^^^"
^DD(210,6,21,1,0)="Employee's Primary Assignment Location."
^DD(210,6,"DT")="2880818"
^DD(210,6.3,0)="ASSIGN TOUR OF DUTY^CJ8^^ ; ^S DA=D0 D EN3^NURSUT0 S NUR=$S($D(^NURSF(211.8,+NOD1,1,+NOD2,0)):$P(^(0),U,10),1:""""),X=$S($D(^NURSF(211.6,+NUR,0)):$P(^(0),U),1:"""") K NUR,NOD1,NOD2"
^DD(210,6.3,.1)="ASSIGN TOUR OF DUTY"
^DD(210,6.3,3)=""
^DD(210,6.3,9)="^"
^DD(210,6.3,9.01)=""
^DD(210,6.3,9.1)="S DA=D0 D EN3^NURSUT0 S NUR=$S($D(^NURSF(211.8,+NOD1,1,+NOD2,0)):$P(^(0),U,10),1:""""),X=$S($D(^NURSF(211.6,+NUR,0)):$P(^(0),U),1:"""") K NUR,NOD1,NOD2"
^DD(210,6.3,21,0)="^^1^1^2950324^^^^"
^DD(210,6.3,21,1,0)="Employee's primary assignment location."
^DD(210,6.3,"DT")="2920818"
^DD(210,6.5,0)="GRADE/STEP CODE^RP211.1'^NURSF(211.1,^7;1^Q"
^DD(210,6.5,1,0)="^.1"
^DD(210,6.5,1,1,0)="210^D"
^DD(210,6.5,1,1,1)="S ^NURSF(210,""D"",$E(X,1,30),DA)="""""
^DD(210,6.5,1,1,2)="K ^NURSF(210,""D"",$E(X,1,30),DA)"
^DD(210,6.5,1,1,"%D",0)="^^1^1^2950324^^"
^DD(210,6.5,1,1,"%D",1,0)="This index is used to identify the employee's grade/step."
^DD(210,6.5,3)=""
^DD(210,6.5,4)="S MSG(1)=""Examples of Grade/Step Code:"",MSG(2)=""R/A/5 = Registered Nurse,Associate Grade,Step 5"",MSG(3)=""N/4/7 = Nursing Assistant,GS4,Step 7"" D EN^DDIOL(.MSG) K MSG"
^DD(210,6.5,21,0)="^^2^2^2950418^^^^"
^DD(210,6.5,21,1,0)="Indicates employee's service category, grade, and step level."
^DD(210,6.5,21,2,0)="Pointer to NURS PAY SCALE FILE (#211.1)."
^DD(210,6.5,"DT")="2860225"
^DD(210,6.7,0)="UNIFORM ALLOWANCE^S^Y:YES;N:NO;^13;3^Q"
^DD(210,6.7,3)=""
^DD(210,6.7,21,0)="^^1^1^2890602^^^^"
^DD(210,6.7,21,1,0)="Indicates whether or not an employee is receiving a uniform allowance."
^DD(210,7,0)="DATE OF BIRTH^DC^^ ; ^X ^DD(210,7,9.2) S X=$P(Y(210,7,101),U,3) S D0=Y(210,7,80)"
^DD(210,7,9)="^"
^DD(210,7,9.01)="200^5;210^.01"
^DD(210,7,9.1)=".01:5"
^DD(210,7,9.2)="S Y(210,7,80)=$S($D(D0):D0,1:""""),Y(210,7,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(Y(210,7,1),U,1) S:'$D(^VA(200,+D0,1)) D0=-1 S Y(210,7,101)=$S($D(^VA(200,D0,1)):^(1),1:"""")"
^DD(210,7,21,0)="^^1^1^2900320^^^"
^DD(210,7,21,1,0)="Extended pointer to NEW PERSON FILE (field 5 of File #200)."
^DD(210,7,"DT")="2900320"
^DD(210,7.5,0)="AGE^CJ8^^ ; ^X ^DD(210,7.5,9.6) S X=$S(Y(210,7.5,2):Y(210,7.5,18),Y(210,7.5,19):X)"
^DD(210,7.5,9)="^"
^DD(210,7.5,9.01)="210^7"
^DD(210,7.5,9.1)="$S(#7>0:$E(TODAY,1,3)-$E(#7,1,3)-($E(TODAY,4,7)<$E(#7,4,7)),1:0)"
^DD(210,7.5,9.2)="X $P(^DD(210,7,0),U,5,99) S Y(210,7.5,1)=X S X=Y(210,7.5,1)>0,Y(210,7.5,2)=X,Y(210,7.5,3)=X,Y(210,7.5,4)=X,X=DT S X=X,Y(210,7.5,5)=X S X=1,Y(210,7.5,6)=X S X=3"
^DD(210,7.5,9.3)="X ^DD(210,7.5,9.2) S X=$E(Y(210,7.5,5),Y(210,7.5,6),X),Y(210,7.5,7)=X S X=Y(210,7.5,1),Y(210,7.5,8)=X S X=1,Y(210,7.5,9)=X S X=3"
^DD(210,7.5,9.4)="X ^DD(210,7.5,9.3) S X=$E(Y(210,7.5,8),Y(210,7.5,9),X) S Y=X,X=Y(210,7.5,7),X=X-Y,Y(210,7.5,10)=X,Y(210,7.5,11)=X,Y(210,7.5,12)=X,X=DT S X=X,Y(210,7.5,13)=X S X=4"
^DD(210,7.5,9.5)="X ^DD(210,7.5,9.4) S Y(210,7.5,14)=X S X=7,X=$E(Y(210,7.5,13),Y(210,7.5,14),X),Y(210,7.5,15)=X S X=Y(210,7.5,1),Y(210,7.5,16)=X S X=4,Y(210,7.5,17)=X S X=7"
^DD(210,7.5,9.6)="X ^DD(210,7.5,9.5) S X=$E(Y(210,7.5,16),Y(210,7.5,17),X) S Y=X,X=Y(210,7.5,15),X=X<Y,Y=X,X=Y(210,7.5,10),X=X-Y,Y(210,7.5,18)=X S X=1,Y(210,7.5,19)=X S X=0"
^DD(210,7.5,21,0)="^^1^1^2980326^^^^"
^DD(210,7.5,21,1,0)="Computed age of employee."
^DD(210,7.5,"DT")="2900320"
^DD(210,8,0)="SEX^CJ8^^ ; ^X ^DD(210,8,9.3) S X=$P($P(Y(210,8,102),$C(59)_$P(Y(210,8,101),U,2)_"":"",2),$C(59),1) S D0=Y(210,8,80)"
^DD(210,8,9)="^"
^DD(210,8,9.01)="200^4;210^.01"
^DD(210,8,9.1)=".01:4"
^DD(210,8,9.2)="S Y(210,8,80)=$S($D(D0):D0,1:""""),Y(210,8,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(Y(210,8,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1"
^DD(210,8,9.3)="X ^DD(210,8,9.2) S Y(210,8,102)=$C(59)_$S($D(^DD(200,4,0)):$P(^(0),U,3),1:""""),Y(210,8,101)=$S($D(^VA(200,D0,1)):^(1),1:"""")"
^DD(210,8,21,0)="^^1^1^2900320^^"
^DD(210,8,21,1,0)="Extended pointer to NEW PERSON FILE (field 4 of FILE #200)."
^DD(210,8,"DT")="2900320"
^DD(210,9,0)="HOME ADDRESS^CJ8^^ ; ^X ^DD(210,9,9.2) S X=$P(Y(210,9,101),U,1) S D0=Y(210,9,80)"
^DD(210,9,9)="^"
^DD(210,9,9.01)="200^.111;210^.01"
^DD(210,9,9.1)=".01:.111"
^DD(210,9,9.2)="S Y(210,9,80)=$S($D(D0):D0,1:""""),Y(210,9,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(Y(210,9,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(210,9,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""")"
^DD(210,9,21,0)="^^1^1^2900320^^"
^DD(210,9,21,1,0)="Street number and street name of current residence."
^DD(210,9,"DT")="2900320"
^DD(210,11,0)="HOME CITY^CJ8^^ ; ^X ^DD(210,11,9.2) S Y(210,11,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""") S X=$P(Y(210,11,101),U,4) S D0=Y(210,11,80)"
^DD(210,11,9)="^"
^DD(210,11,9.01)="200^.114;210^.01"
^DD(210,11,9.1)=".01:.114"
^DD(210,11,9.2)="S Y(210,11,80)=$S($D(D0):D0,1:""""),Y(210,11,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(Y(210,11,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1"
^DD(210,11,21,0)="^^1^1^2920127^^^"
^DD(210,11,21,1,0)="City where employee is currently residing."
^DD(210,11,"DT")="2900320"
^DD(210,12,0)="HOME STATE^CJ8^^ ; ^X ^DD(210,12,9.2) S Y(210,12,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""") S X=$S('$D(^DIC(5,+$P(Y(210,12,101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=Y(210,12,80)"
^DD(210,12,9)="^"
^DD(210,12,9.01)="200^.115;210^.01"
^DD(210,12,9.1)=".01:.115"
^DD(210,12,9.2)="S Y(210,12,80)=$S($D(D0):D0,1:""""),Y(210,12,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(Y(210,12,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1"
^DD(210,12,21,0)="^^1^1^2911108^^^^"
^DD(210,12,21,1,0)="Pointer to the STATE FILE (#5)."
^DD(210,12,"DT")="2900320"
^DD(210,12.1,0)="HOME ZIP CODE^CJ10^^ ; ^X ^DD(210,12.1,9.2) S Y(210,12.1,101)=$S($D(^VA(200,D0,.11)):^(.11),1:"""") S X=$P(Y(210,12.1,101),U,6) S D0=Y(210,12.1,80)"
^DD(210,12.1,9)="^"
^DD(210,12.1,9.01)="200^.116;210^.01"
^DD(210,12.1,9.1)=".01:.116"
^DD(210,12.1,9.2)="S Y(210,12.1,80)=$S($D(D0):D0,1:""""),Y(210,12.1,1)=$S($D(^NURSF(210,D0,0)):^(0),1:""""),D0=$P(Y(210,12.1,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1"
^DD(210,12.1,21,0)="^^1^1^2920127^"
^DD(210,12.1,21,1,0)="Zip code for employee's home address."
^DD(210,13.3,0)="MAILING ADDRESS^F^^15;1^K:$L(X)>50!($L(X)<2) X"
^DD(210,13.3,3)="ANSWER MUST BE 2-50 CHARACTERS IN LENGTH"
^DD(210,13.3,21,0)="^^1^1^2900320^^^^"
^DD(210,13.3,21,1,0)="Street number and street name of current mailing address."
^DD(210,13.3,"DT")="2870406"
^DD(210,13.35,0)="MAILING ADDRESS 2^F^^15;2^K:$L(X)>50!($L(X)<2) X"
^DD(210,13.35,3)="Answer must be 2-50 characters in length."
^DD(210,13.35,21,0)="^^1^1^2930611^^^^"
^DD(210,13.35,21,1,0)="This is the second line of the mailing address of the new person."
^DD(210,13.35,"DT")="2921015"
^DD(210,13.4,0)="MAILING ADDRESS 3^FX^^15;3^K:$L(X)<2 X S:$L(X)>35 X=$E(X,1,35)"
^DD(210,13.4,3)="Answer must be 2-35 characters in length."
^DD(210,13.4,21,0)="^^1^1^2930611^^^^"
^DD(210,13.4,21,1,0)="This is the third line of the mailing address of the new person."
^DD(210,13.4,"DT")="2921015"
^DD(210,13.5,0)="MAILING CITY^F^^15;4^K:$L(X)>30!($L(X)<2) X"
^DD(210,13.5,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(210,13.5,21,0)="^^1^1^2851118^^"
^DD(210,13.5,21,1,0)="City of mailing address."
^DD(210,13.5,"DT")="2870417"
^DD(210,13.7,0)="MAILING STATE^P5'^DIC(5,^15;5^Q"
^DD(210,13.7,3)="Enter state where mailing address is located."
^DD(210,13.7,21,0)="^^1^1^2900320^^^^"
^DD(210,13.7,21,1,0)="Pointer to STATE FILE (#5)."
^DD(210,13.9,0)="MAILING ZIP CODE^FX^^15;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(210,13.9,3)="Answer with ZIP CODE or ZIP+4."
^DD(210,13.9,21,0)="^^1^1^2900320^^^^"
^DD(210,13.9,21,1,0)="Zip code of mailing address."
^DD(210,13.9,"DT")="2900908"
^DD(210,14,0)="TELEPHONE NUMBER^210.01A^^2;0"
^DD(210,14,21,0)="^^1^1^2920904^^^^"
^DD(210,14,21,1,0)="Current telephone number of employee."
^DD(210,15,0)="NAME OF EMERGENCY CONTACT^210.02A^^3;0"
^DD(210,15,21,0)="^^3^3^2880502^^^^"
^DD(210,15,21,1,0)="Indicates name of individual to contact if employee is involved in an"
^DD(210,15,21,2,0)="accident. Demographic information on the 'Emergency Contact' is also"
^DD(210,15,21,3,0)="documented."
^DD(210,16,0)="STATE ISSUING LICENSE^210.03PA^^4;0"
^DD(210,16,21,0)="^^1^1^2930210^^^^"
^DD(210,16,21,1,0)="Documents licensure information for RNs, LPNs, and LVNs."
^DD(210,16.5,0)="VETERAN PREFERENCE^S^0:NO SERVICE;1:NONE;2:5 PT.;3:10 PT. DISAB.;4:10 PT. COMP.;5:10 PT. OTHER;6:10 PT./30% COMP;^0;8^Q"
^DD(210,16.5,3)="Enter the Veteran Preference code for this employee."
^DD(210,16.5,21,0)="^^1^1^2881229^"
^DD(210,16.5,21,1,0)="Employee veteran preference code.  A number 0 - 6."
^DD(210,16.5,"DT")="2881229"
^DD(210,17,0)="STATION ENTRY ON DUTY DATE^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(210,17,9)="^"
^DD(210,17,9.01)=""
^DD(210,17,9.1)="S Y=$S($G(^PRSPC(D0,0)):$P(^(0),""^"",3),1:"""") D:+Y D^DIQ S X=Y"
^DD(210,17,9.2)="S Y(210,17,80)=$S($D(D0):D0,1:""""),Y(210,17,1)=$S($D(^NURSTAFF(D0,0)):^(0),1:""""),D0=$P(Y(210,17,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(210,17,180)=$S($D(D0):D0,1:"""")"
^DD(210,17,9.3)="X ^DD(210,17,9.2) S Y(210,17,101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(210,17,101),U,1) K DIC S DIC=""^VA(200,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y"
^DD(210,17,21,0)="^^2^2^2950926^^^^"
^DD(210,17,21,1,0)="Indicates employee's EOD (entry on duty) date for this facility (i.e."
^DD(210,17,21,2,0)="VAMC, OPC etc.)."
^DD(210,17,"DT")="2890621"
^DD(210,18,0)="VA EMPLOYMENT STARTING DATE^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(210,18,9)="^"
^DD(210,18,9.01)=""
^DD(210,18,9.1)="S Y=$S($D(^PRSPC(D0,2)):$P(^(2),""^"",22),1:"""") D:+Y D^DIQ S X=Y"
^DD(210,18,9.2)="S Y(210,18,80)=$S($D(D0):D0,1:""""),Y(210,18,1)=$S($D(^NURSTAFF(D0,0)):^(0),1:""""),D0=$P(Y(210,18,1),U,1) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(210,18,180)=$S($D(D0):D0,1:"""")"
^DD(210,18,9.3)="X ^DD(210,18,9.2) S Y(210,18,101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(210,18,101),U,1) K DIC S DIC=""^VA(200,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y"
^DD(210,18,21,0)="^^1^1^2901120^^^^"
^DD(210,18,21,1,0)="Indicates the employee's EOD date within the VA system."
^DD(210,18,"DT")="2890621"
^DD(210,19,0)="SERVICE COMPUTATION DATE^CD^^ ; ^S X=$$COMPDAT^NURSUT4(D0)"
^DD(210,19,9)="^"
^DD(210,19,9.01)=""
^DD(210,19,9.1)="S X=$$COMPDAT^NURSUT4(D0)"
^DD(210,19,"DT")="2981022"
^DD(210,19.5,0)="END OF PROBATIONARY PERIOD^D^^13;2^S %DT=""EX"" D ^%DT S X=Y K:3500101<X!(2500101>X) X"
^DD(210,19.5,3)="TYPE A DATE BETWEEN 1/1/1950 AND 1/1/2050"
^DD(210,19.5,21,0)="^^1^1^2851118^^^"
^DD(210,19.5,21,1,0)="Indicates date on which employee's probationary period ends."
^DD(210,19.5,"DT")="2970211"
^DD(210,19.61,0)="DATE OF PROMOTION^210.17D^^9;0"
^DD(210,19.61,21,0)="^^1^1^2981109^^^^"
^DD(210,19.61,21,1,0)="Date of the employee's last promotion."
^DD(210,19.86,0)="NPSB^210.18D^^14;0"
^DD(210,19.86,21,0)="^^1^1^2981123^^^^"
^DD(210,19.86,21,1,0)="Date on which the registered nurse's proficiency/annual narrative is due."
^DD(210,21.3,0)="PROFESSIONAL EDUCATION^210.04PA^^6;0"
^DD(210,21.3,21,0)="^^1^1^2950222^^^^"
^DD(210,21.3,21,1,0)="Describes the professional education of the employee."
^DD(210,21.5,0)="HIGHEST NURSING DEGREE^P212.1'^NURSF(212.1,^17;1^Q"
^DD(210,21.5,1,0)="^.1^^0"
^DD(210,21.5,3)=""
^DD(210,21.5,21,0)="^^2^2^2950926^^^^"
^DD(210,21.5,21,1,0)="Indicates highest nursing degree held by the employee. Pointer to the"
^DD(210,21.5,21,2,0)="NURS EDUCATION FILE (#212.1)."
^DD(210,21.5,"DT")="2860225"
^DD(210,21.51,0)="HIGHEST NURSING CODE^CJ5^^ ; ^X ^DD(210,21.51,9.2) S Y(210,21.51,101)=$S($D(^NURSF(212.1,D0,0)):^(0),1:"""") S X=$P(Y(210,21.51,101),U,3) S D0=Y(210,21.51,80)"
^DD(210,21.51,9)="^"
^DD(210,21.51,9.01)="212.1^2;210^21.5"
^DD(210,21.51,9.1)="HIGHEST NURSING DEGREE:CODE"
^DD(210,21.51,9.2)="S Y(210,21.51,80)=$S($D(D0):D0,1:""""),Y(210,21.51,1)=$S($D(^NURSF(210,D0,17)):^(17),1:""""),D0=$P(Y(210,21.51,1),U,1) S:'$D(^NURSF(212.1,+D0,0)) D0=-1"
^DD(210,21.51,9.3)="X ^DD(210,21.51,9.2) S Y(210,21.51,180)=$S($D(D0):D0,1:""""),Y(210,21.51,101)=$S($D(^NURSF(212.1,D0,0)):^(0),1:"""")"
^DD(210,21.51,21,0)="^^2^2^2950324^^^"
^DD(210,21.51,21,1,0)="Abbreviation from File 212.1 indicating the highest nursing degree for this"
^DD(210,21.51,21,2,0)="employee."
^DD(210,21.7,0)="HIGHEST ACADEMIC DEGREE^P212.1'^NURSF(212.1,^17;2^Q"
^DD(210,21.7,3)="The highest academic degree held by this employee."
^DD(210,21.7,21,0)="^^1^1^2890104^^^^"
^DD(210,21.7,21,1,0)="The highest academic degree held by this employee."
^DD(210,21.7,"DT")="2890104"
^DD(210,21.71,0)="HIGHEST ACADEMIC CODE^CJ5^^ ; ^X ^DD(210,21.71,9.2) S Y(210,21.71,101)=$S($D(^NURSF(212.1,D0,0)):^(0),1:"""") S X=$P(Y(210,21.71,101),U,3) S D0=Y(210,21.71,80)"
^DD(210,21.71,9)="^"
^DD(210,21.71,9.01)="212.1^2;210^21.7"
^DD(210,21.71,9.1)="HIGHEST ACADEMIC DEGREE:CODE"
^DD(210,21.71,9.2)="S Y(210,21.71,80)=$S($D(D0):D0,1:""""),Y(210,21.71,1)=$S($D(^NURSF(210,D0,17)):^(17),1:""""),D0=$P(Y(210,21.71,1),U,2) S:'$D(^NURSF(212.1,+D0,0)) D0=-1"
^DD(210,21.71,21,0)="^^1^1^2890105^"
^DD(210,21.71,21,1,0)="The abbreviation of the highest academic degree for this employee."
^DD(210,22.5,0)="PROFESSIONAL EXPERIENCE^210.13IA^^20;0"
^DD(210,22.5,21,0)="^^2^2^2950222^^^^"
^DD(210,22.5,21,1,0)="Identifies the professional experience of the employee before 'Station"
^DD(210,22.5,21,2,0)="EOD Date'."
^DD(210,22.5,23,0)="^^1^1^2931026^^^^"
^DD(210,22.5,23,1,0)="Free Text Value of .01 Field in File #211.5."
^DD(210,22.5,"DT")="2940524"
^DD(210,23.1,0)="FACULTY^SX^Y:YES;N:NO;^15;9^S X=$$UP^XLFSTR(X)"
^DD(210,23.1,3)=""
^DD(210,23.1,21,0)="^^1^1^2950922^^^^"
^DD(210,23.1,21,1,0)="This field indicates if the employee is a faculty member."
^DD(210,23.1,"DT")="2940907"
^DD(210,23.2,0)="FACULTY APPOINTMENT^210.08^^1;0"
^DD(210,23.2,21,0)="^^1^1^2950222^^^"
^DD(210,23.2,21,1,0)="This field indicates that the employee has a faculty appointment."
^DD(210,23.5,0)="INSTITUTION^F^^15;10^K:$L(X)>30!($L(X)<3) X"
^DD(210,23.5,3)="Answer must be 3-30 characters in length."
^DD(210,23.5,21,0)="^^1^1^2900316^"
^DD(210,23.5,21,1,0)="Institution at which employee is a faculty member."
^DD(210,24,0)="NATIONAL CERTIFICATION^210.024P^^12;0"
^DD(210,24,21,0)="^^1^1^2950324^^^^"
^DD(210,24,21,1,0)="Documents national certification of registered nurses."
^DD(210,25,0)="MILITARY EXPERIENCE^CJ3^^ ; ^S X=$S('$D(^NURSF(210,D0,0)):"""",$P(^(0),U,8)="""":"""",'$P(^(0),U,8):""NO"",1:""YES"")"
^DD(210,25,9)="^"
^DD(210,25,9.01)=""
^DD(210,25,9.1)="S X=$S('$D(^NURSF(210,D0,0)):"""",$P(^(0),U,8)="""":"""",'$P(^(0),U,8):""NO"",1:""YES"")"
^DD(210,25,21,0)="^^1^1^2970319^^^^"
^DD(210,25,21,1,0)="Indicates military experience for this employee."
^DD(210,25,"DT")="2881229"
^DD(210,26,0)="MILITARY STATUS^210.06SA^^10;0"
^DD(210,26,21,0)="^^1^1^2970404^^^^"
^DD(210,26,21,1,0)="Documents active and/or inactive status of military experience."
^DD(210,27,0)="*CONTINUING EDUCATION PROGRAM^210.12^^18;0"
^DD(210,27,21,0)="^^1^1^2950922^^^^"
^DD(210,27,21,1,0)="Continuing education programs attended by employee."
^DD(210,27,"DT")="2930415"
^DD(210,28,0)="*MANDATORY INSERVICE PROGRAM^210.05ID^^8;0"
^DD(210,28,21,0)="^^1^1^2930415^^^^"
^DD(210,28,21,1,0)="Tracks employee attendance at mandatory inservices."
^DD(210,28,"DT")="2930415"
^DD(210,28.1,0)="MI REVIEW GROUP^CJ12^^ ; ^D EN11^NURSUT0($G(D0))"
^DD(210,28.1,3)="Enter the name of the group of mandatory inservices that this employee is to attend."
^DD(210,28.1,9)="^"
^DD(210,28.1,9.01)=""
^DD(210,28.1,9.1)="D EN11^NURSUT0($G(D0))"
^DD(210,28.1,21,0)="^^2^2^2951130^^^^"
^DD(210,28.1,21,1,0)="The name of the mandatory inservice/training group(s) associated with this"
^DD(210,28.1,21,2,0)="employee."
^DD(210,28.1,"DT")="2890106"
^DD(210,29,0)="PRIVILEGES^210.19P^^16;0"
^DD(210,29,21,0)="^^1^1^2950222^^^^"
^DD(210,29,21,1,0)="Indicates the privileges granted to an employee."
^DD(210,41,0)="SERVICE CATEGORY^CJ8^^ ; ^S DA=D0 D EN2^NURSUT0 S X=$S('$D(NPSPOS(1)):"""",NPSPOS(1)="""":"""",1:NPSPOS(1)) K DA,NPSPOS,NOD1,NOD2"
^DD(210,41,9)="^"
^DD(210,41,9.01)=""
^DD(210,41,9.1)="S DA=D0 D EN2^NURSUT0 S X=$S('$D(NPSPOS(1)):"""",NPSPOS(1)="""":"""",1:NPSPOS(1)) K DA,NPSPOS,NOD1,NOD2"
^DD(210,41,21,0)="^^1^1^2950926^^^^"
^DD(210,41,21,1,0)="This field indicates the service category of the employee."
^DD(210,41,23,0)="^^2^2^2950926^^^^"
^DD(210,41,23,1,0)="This field contains the name of the service category associated with the"
^DD(210,41,23,2,0)="FTEE.  The category is computed from File #211.3."
^DD(210,42,0)="SALARY^CJ8^^ ; ^S DA=D0,Z=$$EN12^NURSUT0(DA),X=$J(+Z,6,2)"
^DD(210,42,9)="^"
^DD(210,42,9.01)=""
^DD(210,42,9.1)="S DA=D0,Z=$$EN12^NURSUT0(DA),X=$J(+Z,6,2)"
^DD(210,42,21,0)="^^2^2^2950324^^"
^DD(210,42,21,1,0)="This field indicates the employee's salary which is stored in the PAID"
^DD(210,42,21,2,0)="Employee (#450) file."
^DD(210,42,"DT")="2940308"
^DD(210,"B","*CONTINUING EDUCATION PROGRAM",27)=""
^DD(210,"B","*MANDATORY INSERVICE PROGRAM",28)=""
^DD(210,"B","AGE",7.5)=""
^DD(210,"B","ASSIGN TOUR OF DUTY",6.3)="1"
^DD(210,"B","DATE OF BIRTH",7)=""
^DD(210,"B","DATE OF PROMOTION",19.61)=""
^DD(210,"B","EMPLOYEE NAME",.01)=""
^DD(210,"B","END OF PROBATIONARY PERIOD",19.5)=""
^DD(210,"B","FACULTY",23.1)=""
^DD(210,"B","FACULTY APPOINTMENT",23.2)=""
^DD(210,"B","GRADE/STEP CODE",6.5)=""
^DD(210,"B","HIGHEST ACADEMIC CODE",21.71)=""
^DD(210,"B","HIGHEST ACADEMIC DEGREE",21.7)=""
^DD(210,"B","HIGHEST NURSING CODE",21.51)=""
^DD(210,"B","HIGHEST NURSING DEGREE",21.5)=""
^DD(210,"B","HOME ADDRESS",9)=""
^DD(210,"B","HOME CITY",11)=""
^DD(210,"B","HOME STATE",12)=""
^DD(210,"B","HOME ZIP CODE",12.1)=""
^DD(210,"B","INSTITUTION",23.5)=""
^DD(210,"B","LOCATION",6)=""
^DD(210,"B","LOCATION PRIMARY PRODUCT LINE",3)=""
^DD(210,"B","MAILING ADDRESS",13.3)=""
^DD(210,"B","MAILING ADDRESS 2",13.35)=""
^DD(210,"B","MAILING ADDRESS 3",13.4)=""
^DD(210,"B","MAILING CITY",13.5)=""
^DD(210,"B","MAILING STATE",13.7)=""
^DD(210,"B","MAILING ZIP CODE",13.9)=""
^DD(210,"B","MI REVIEW GROUP",28.1)=""
^DD(210,"B","MILITARY EXPERIENCE",25)=""
^DD(210,"B","MILITARY STATUS",26)=""
^DD(210,"B","NAME OF EMERGENCY CONTACT",15)=""
^DD(210,"B","NATIONAL CERTIFICATION",24)=""
^DD(210,"B","NPSB",19.86)=""
^DD(210,"B","PRIMARY FACILITY",4)=""
^DD(210,"B","PRIMARY SERVICE POSITION",2)=""
^DD(210,"B","PRIVILEGES",29)=""
^DD(210,"B","PROFESSIONAL EDUCATION",21.3)=""
^DD(210,"B","PROFESSIONAL EXPERIENCE",22.5)=""
^DD(210,"B","SALARY",42)=""
^DD(210,"B","SERVICE CATEGORY",41)=""
^DD(210,"B","SERVICE COMPUTATION DATE",19)=""
^DD(210,"B","SEX",8)=""
^DD(210,"B","SOCIAL SECURITY NUMBER",1)=""
^DD(210,"B","STATE ISSUING LICENSE",16)=""
^DD(210,"B","STATION ENTRY ON DUTY DATE",17)=""
^DD(210,"B","STATUS",5.5)=""
^DD(210,"B","SVC POS PRIMARY PRODUCT LINE",3.1)=""
^DD(210,"B","TELEPHONE NUMBER",14)=""
^DD(210,"B","TOTAL ASSIGNMENT FTEE",5)=""
^DD(210,"B","UNIFORM ALLOWANCE",6.7)=""
^DD(210,"B","VA EMPLOYMENT STARTING DATE",18)=""
^DD(210,"B","VETERAN PREFERENCE",16.5)=""
^DD(210,"GL",0,1,.01)=""
^DD(210,"GL",0,2,5.5)=""
^DD(210,"GL",0,5,18)=""
^DD(210,"GL",0,6,17)=""
^DD(210,"GL",0,8,16.5)=""
^DD(210,"GL",1,0,23.2)=""
^DD(210,"GL",2,0,14)=""
^DD(210,"GL",3,0,15)=""
^DD(210,"GL",4,0,16)=""
^DD(210,"GL",6,0,21.3)=""
^DD(210,"GL",7,1,6.5)=""
^DD(210,"GL",8,0,28)=""
^DD(210,"GL",9,0,19.61)=""
^DD(210,"GL",10,0,26)=""
^DD(210,"GL",12,0,24)=""
^DD(210,"GL",13,2,19.5)=""
^DD(210,"GL",13,3,6.7)=""
^DD(210,"GL",14,0,19.86)=""
^DD(210,"GL",15,1,13.3)=""
^DD(210,"GL",15,2,13.35)=""
^DD(210,"GL",15,3,13.4)=""
^DD(210,"GL",15,4,13.5)=""
^DD(210,"GL",15,5,13.7)=""
^DD(210,"GL",15,6,13.9)=""
^DD(210,"GL",15,9,23.1)=""
^DD(210,"GL",15,10,23.5)=""
^DD(210,"GL",16,0,29)=""
^DD(210,"GL",17,1,21.5)=""
^DD(210,"GL",17,2,21.7)=""
^DD(210,"GL",18,0,27)=""
^DD(210,"GL",20,0,22.5)=""
^DD(210,"IX",.01)=""
^DD(210,"IX",5.5)=""
^DD(210,"IX",6.5)=""
^DD(210,"RQ",.01)=""
^DD(210,"RQ",5.5)=""
^DD(210,"RQ",6.5)=""
^DD(210,"SB",210.01,14)=""
^DD(210,"SB",210.02,15)=""
^DD(210,"SB",210.024,24)=""
^DD(210,"SB",210.03,16)=""
^DD(210,"SB",210.04,21.3)=""
^DD(210,"SB",210.05,28)=""
^DD(210,"SB",210.06,26)=""
^DD(210,"SB",210.08,23.2)=""
^DD(210,"SB",210.12,27)=""
^DD(210,"SB",210.13,22.5)=""
^DD(210,"SB",210.17,19.61)=""
^DD(210,"SB",210.18,19.86)=""
^DD(210,"SB",210.19,29)=""
^DD(210.01,0)="TELEPHONE NUMBER SUB-FIELD^NL^2^3"
^DD(210.01,0,"NM","TELEPHONE NUMBER")=""
^DD(210.01,0,"UP")="210"
^DD(210.01,.01,0)="TELEPHONE NUMBER^MF^^0;1^K:$L(X)>30!($L(X)<4) X"
^DD(210.01,.01,3)="Answer must be 4-30 characters in length."
^DD(210.01,.01,21,0)="^^1^1^2900320^^^^"
^DD(210.01,.01,21,1,0)="Current telephone number of employee."
^DD(210.01,.01,"DT")="2900908"
^DD(210.01,1,0)="OWNER OF TELEPHONE NUMBER^RS^S:SELF;R:RELATIVE;N:NEIGHBOR;O:OTHER;^0;2^Q"
^DD(210.01,1,21,0)="^^1^1^2911220^^^^"
^DD(210.01,1,21,1,0)="Indicates owner of the phone number (i.e., self, relative, neighbor or other)."
^DD(210.01,1,21,2,0)="other)."
^DD(210.01,1,"DT")="2850509"
^DD(210.01,2,0)="OTHER OWNER OF TELEPHONE NO.^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(210.01,2,1,0)="^.1^^0"
^DD(210.01,2,3)="Answer must be 1-30 characters in length."
^DD(210.01,2,21,0)="^^1^1^2900320^^^^"
^DD(210.01,2,21,1,0)="Indicates name of 'other' phone owner. "
^DD(210.01,2,"DT")="2880122"
^DD(210.01,"B","OTHER OWNER OF TELEPHONE NO.",2)=""
^DD(210.01,"B","OWNER OF TELEPHONE NUMBER",1)=""
^DD(210.01,"B","TELEPHONE NUMBER",.01)=""
^DD(210.01,"GL",0,1,.01)=""
^DD(210.01,"GL",0,2,1)=""
^DD(210.01,"GL",0,3,2)=""
^DD(210.01,"RQ",1)=""
^DD(210.02,0)="NAME OF EMERGENCY CONTACT SUB-FIELD^NL^7^7"
^DD(210.02,0,"NM","NAME OF EMERGENCY CONTACT")=""
^DD(210.02,0,"UP")="210"
^DD(210.02,.01,0)="NAME OF EMERGENCY CONTACT^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(210.02,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(210.02,.01,21,0)="^^1^1^2851118^^^^"
^DD(210.02,.01,21,1,0)="Name of individual to be contacted in case of an emergency."
^DD(210.02,1,0)="RELATIONSHIP TO STAFF MEMBER^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(210.02,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(210.02,1,21,0)="^^1^1^2851118^^^^"
^DD(210.02,1,21,1,0)="Indicates relationship of 'emergency contact' to employee."
^DD(210.02,2,0)="E-ADDRESS^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(210.02,2,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(210.02,2,21,0)="^^1^1^2851118^^^"
^DD(210.02,2,21,1,0)="Street number and street name of 'emergency contact'."
^DD(210.02,4,0)="E-CITY^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(210.02,4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(210.02,4,21,0)="^^1^1^2851118^^^^"
^DD(210.02,4,21,1,0)="City where 'emergency contact' resides."
^DD(210.02,5,0)="E-STATE^P5'^DIC(5,^0;6^Q"
^DD(210.02,5,3)="Enter state where 'emergency contact' resides."
^DD(210.02,5,21,0)="^^1^1^2851119^^^^"
^DD(210.02,5,21,1,0)="Pointer to STATE FILE (#5)."
^DD(210.02,6,0)="E-ZIP CODE^FX^^0;7^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(210.02,6,3)="Answer with ZIP CODE or ZIP+4."
^DD(210.02,6,21,0)="^^1^1^2870602^^^^"
^DD(210.02,6,21,1,0)="Zip code of 'emergency contact'."
^DD(210.02,6,"DT")="2900908"
^DD(210.02,7,0)="E-TELEPHONE NUMBER^F^^1;1^K:$L(X)>30!($L(X)<4) X"
^DD(210.02,7,3)="ANSWER MUST BE 4-30 CHARACTERS IN LENGTH"
^DD(210.02,7,21,0)="^^1^1^2851118^^^"
^DD(210.02,7,21,1,0)="Indicates telephone number of 'emergency contact'."
^DD(210.02,"B","E-ADDRESS",2)=""
^DD(210.02,"B","E-CITY",4)=""
^DD(210.02,"B","E-STATE",5)=""
^DD(210.02,"B","E-TELEPHONE NUMBER",7)=""
^DD(210.02,"B","E-ZIP CODE",6)=""
^DD(210.02,"B","NAME OF EMERGENCY CONTACT",.01)=""
^DD(210.02,"B","RELATIONSHIP TO STAFF MEMBER",1)=""
^DD(210.02,"GL",0,1,.01)=""
^DD(210.02,"GL",0,2,1)=""
^DD(210.02,"GL",0,3,2)=""
^DD(210.02,"GL",0,5,4)=""
^DD(210.02,"GL",0,6,5)=""
^DD(210.02,"GL",0,7,6)=""
^DD(210.02,"GL",1,1,7)=""
^DD(210.024,0)="NATIONAL CERTIFICATION SUB-FIELD^^3^5"
^DD(210.024,0,"DT")="2911021"
^DD(210.024,0,"IX","B",210.024,.01)=""
^DD(210.024,0,"NM","NATIONAL CERTIFICATION")=""
^DD(210.024,0,"UP")="210"
^DD(210.024,.01,0)="NATIONAL CERTIFICATION^MP212.2'^NURSF(212.2,^0;1^Q"
^DD(210.024,.01,1,0)="^.1"
^DD(210.024,.01,1,1,0)="210.024^B"
^DD(210.024,.01,1,1,1)="S ^NURSF(210,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(210.024,.01,1,1,2)="K ^NURSF(210,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(210.024,.01,1,1,"%D",0)="^^1^1^2950222^"
^DD(210.024,.01,1,1,"%D",1,0)="This is the main index on the National Certification subfile."
^DD(210.024,.01,4)="D EN1^NURAED3"
^DD(210.024,.01,"DT")="2911021"
^DD(210.024,.05,0)="NAME OF CERTIFICATION^CJ50^^ ; ^X ^DD(210.024,.05,9.3) S X=$P(Y(210.024,.05,101),U,2) S D0=Y(210.024,.05,80) S D1=Y(210.024,.05,81)"
^DD(210.024,.05,9)="^"
^DD(210.024,.05,9.01)="212.2^1;210.024^.01"
^DD(210.024,.05,9.1)=".01:1"
^DD(210.024,.05,9.2)="S Y(210.024,.05,81)=$S($D(D1):D1,1:""""),Y(210.024,.05,80)=$S($D(D0):D0,1:""""),Y(210.024,.05,1)=$S($D(^NURSF(210,D0,12,D1,0)):^(0),1:"""")"
^DD(210.024,.05,9.3)="X ^DD(210.024,.05,9.2) S D0=$P(Y(210.024,.05,1),U,1) S:'$D(^NURSF(212.2,+D0,0)) D0=-1 S Y(210.024,.05,101)=$S($D(^NURSF(212.2,D0,0)):^(0),1:"""")"
^DD(210.024,.05,21,0)="^^1^1^2930210^"
^DD(210.024,.05,21,1,0)="This field indicates the name of the certification for this employee."
^DD(210.024,1,0)="CERTIFYING AGENCY^CJ50^^ ; ^X ^DD(210.024,1,9.2) S D0=$P(Y(210.024,1,1),U,1) S:'$D(^NURSF(212.2,+D0,0)) D0=-1 S Y(210.024,1,101)=$S($D(^NURSF(212.2,D0,0)):^(0),1:"""") S X=$P(Y(210.024,1,101),U,3) S D0=Y(210.024,1,80) S D1=Y(210.024,1,81)"
^DD(210.024,1,9)="^"
^DD(210.024,1,9.01)="212.2^2;210.024^.01"
^DD(210.024,1,9.1)=".01:2"
^DD(210.024,1,9.2)="S Y(210.024,1,81)=$S($D(D1):D1,1:""""),Y(210.024,1,80)=$S($D(D0):D0,1:""""),Y(210.024,1,1)=$S($D(^NURSF(210,D0,12,D1,0)):^(0),1:"""")"
^DD(210.024,1,21,0)="^^1^1^2930210^"
^DD(210.024,1,21,1,0)="This field indicates the name of the certifying agency for this employee."
^DD(210.024,2,0)="ORIGINAL CERTIFICATION DATE^DX^^0;3^S NURS=2 D EN5^NURSUT3"
^DD(210.024,2,21,0)="^^1^1^2950222^^^"
^DD(210.024,2,21,1,0)="This field indicates the original date for this certification."
^DD(210.024,2,"DT")="2921112"
^DD(210.024,3,0)="DATE CERTIFICATION EXPIRES^DX^^0;4^S NURS=3 D EN5^NURSUT3"
^DD(210.024,3,21,0)="^^1^1^2930210^"
^DD(210.024,3,21,1,0)="This field indicates the expiration date of the employee's certification."
^DD(210.024,3,"DT")="2911108"
^DD(210.024,"B","CERTIFYING AGENCY",1)=""
^DD(210.024,"B","DATE CERTIFICATION EXPIRES",3)=""
^DD(210.024,"B","NAME OF CERTIFICATION",.05)=""
^DD(210.024,"B","NATIONAL CERTIFICATION",.01)=""
^DD(210.024,"B","ORIGINAL CERTIFICATION DATE",2)=""
^DD(210.024,"GL",0,1,.01)=""
^DD(210.024,"GL",0,3,2)=""
^DD(210.024,"GL",0,4,3)=""
^DD(210.024,"IX",.01)=""
^DD(210.03,0)="STATE ISSUING LICENSE SUB-FIELD^NL^2^4"
^DD(210.03,0,"DT")="2970211"
^DD(210.03,0,"NM","STATE ISSUING LICENSE")=""
^DD(210.03,0,"UP")="210"
^DD(210.03,.01,0)="STATE ISSUING LICENSE^MP5'^DIC(5,^0;1^Q"
^DD(210.03,.01,3)="Enter name of state issuing license."
^DD(210.03,.01,21,0)="^^1^1^2851224^^^^"
^DD(210.03,.01,21,1,0)="Pointer to STATE FILE (#5)."
^DD(210.03,1,0)="PROFESSIONAL LICENSE NUMBER^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(210.03,1,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(210.03,1,21,0)="^^1^1^2890602^^^^"
^DD(210.03,1,21,1,0)="License number printed on state license. "
^DD(210.03,1.6,0)="VERIFIED BY^P200'^VA(200,^0;5^Q"
^DD(210.03,1.6,21,0)="^^1^1^2921028^"
^DD(210.03,1.6,21,1,0)="Indicates the person verifying this employee's license."
^DD(210.03,1.6,"DT")="2900831"
^DD(210.03,2,0)="EXPIRATION DATE OF LICENSE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:3500101<X!(2500101>X) X"
^DD(210.03,2,1,0)="^.1^^0"
^DD(210.03,2,3)="TYPE A DATE BETWEEN 1/1/1950 AND 1/1/2050"
^DD(210.03,2,21,0)="^^1^1^2851118^^^^"
^DD(210.03,2,21,1,0)="Expiration date of license."
^DD(210.03,2,"DT")="2970211"
^DD(210.03,"B","EXPIRATION DATE OF LICENSE",2)=""
^DD(210.03,"B","PROFESSIONAL LICENSE NUMBER",1)=""
^DD(210.03,"B","STATE ISSUING LICENSE",.01)=""
^DD(210.03,"B","VERIFIED BY",1.6)=""
^DD(210.03,"GL",0,1,.01)=""
^DD(210.03,"GL",0,2,1)=""
^DD(210.03,"GL",0,3,2)=""
^DD(210.03,"GL",0,5,1.6)=""
^DD(210.04,0)="PROFESSIONAL EDUCATION SUB-FIELD^NL^3^4"
^DD(210.04,0,"DT")="2920825"
^DD(210.04,0,"NM","PROFESSIONAL EDUCATION")=""
^DD(210.04,0,"UP")="210"
^DD(210.04,.01,0)="PROFESSIONAL EDUCATION^MP212.1'^NURSF(212.1,^0;1^Q"
^DD(210.04,.01,3)=""
^DD(210.04,.01,4)=""
^DD(210.04,.01,21,0)="^^2^2^2950222^^^^"
^DD(210.04,.01,21,1,0)="This field indicates a general type of nursing or academic degree held by"
^DD(210.04,.01,21,2,0)="an employee."
^DD(210.04,.01,"DT")="2860225"
^DD(210.04,1,0)="MAJOR^P212.3'^NURSF(212.3,^0;2^Q"
^DD(210.04,1,3)=""
^DD(210.04,1,21,0)="^^1^1^2950222^^^^"
^DD(210.04,1,21,1,0)="This field contains the college major associated with the degree."
^DD(210.04,1,"DT")="2860225"
^DD(210.04,2,0)="COLLEGE/UNIVERSITY^F^^0;3^K:$L(X)>50!($L(X)<2) X"
^DD(210.04,2,3)="Answer must be 2-50 characters in length."
^DD(210.04,2,21,0)="^^1^1^2920825^^^^"
^DD(210.04,2,21,1,0)="Name of the college/university granting the degree."
^DD(210.04,2,"DT")="2920825"
^DD(210.04,3,0)="YEAR^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(210.04,3,3)=""
^DD(210.04,3,21,0)="^^1^1^2851118^^^^"
^DD(210.04,3,21,1,0)="Year the degree was obtained."
^DD(210.04,"B","COLLEGE/UNIVERSITY",2)=""
^DD(210.04,"B","MAJOR",1)=""
^DD(210.04,"B","PROFESSIONAL EDUCATION",.01)=""
^DD(210.04,"B","YEAR",3)=""
^DD(210.04,"GL",0,1,.01)=""
^DD(210.04,"GL",0,2,1)=""
^DD(210.04,"GL",0,3,2)=""
^DD(210.04,"GL",0,4,3)=""
^DD(210.05,0)="*MANDATORY INSERVICE PROGRAM SUB-FIELD^NL^1^2"
^DD(210.05,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^NURSF(212.4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(212.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(210.05,0,"IX","AA",210.05,.01)=""
^DD(210.05,0,"IX","AA1",210.05,1)=""
^DD(210.05,0,"IX","B",210.05,.01)=""
^DD(210.05,0,"IX","C",210.05,1)=""
^DD(210.05,0,"NM","*MANDATORY INSERVICE PROGRAM")=""
^DD(210.05,0,"UP")="210"
^DD(210.05,.01,0)="*DATE ATTENDED^MRD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(210.05,.01,1,0)="^.1"
^DD(210.05,.01,1,1,0)="210.05^B"
^DD(210.05,.01,1,1,1)="S ^NURSF(210,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(210.05,.01,1,1,2)="K ^NURSF(210,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(210.05,.01,1,1,"%D",0)="^^2^2^2950324^^^^"
^DD(210.05,.01,1,1,"%D",1,0)="This is the main index on the 'Date Attended' field of the Mandatory"
^DD(210.05,.01,1,1,"%D",2,0)="Inservice Program subfile."
^DD(210.05,.01,1,2,0)="210.05^AA^MUMPS"
^DD(210.05,.01,1,2,1)="S NURS=$S($D(^NURSF(210,DA(1),8,DA,0)):$P(^(0),""^"",2),1:"""") S:NURS'="""" ^NURSF(210,DA(1),8,""AA"",NURS,9999999-X,DA)="""" K NURS"
^DD(210.05,.01,1,2,2)="S NURS=$S($D(^NURSF(210,DA(1),8,DA,0)):$P(^(0),""^"",2),1:"""") K:NURS'="""" ^NURSF(210,DA(1),8,""AA"",NURS,9999999-X,DA) K NURS"
^DD(210.05,.01,1,2,"%D",0)="^^2^2^2950324^^^"
^DD(210.05,.01,1,2,"%D",1,0)="This index is an inverted time/date cross reference on the date attended"
^DD(210.05,.01,1,2,"%D",2,0)="subfile."
^DD(210.05,.01,3)=""
^DD(210.05,.01,21,0)="^^1^1^2930415^^^^"
^DD(210.05,.01,21,1,0)="Date on which employee attended inservice."
^DD(210.05,.01,21,2,0)="(#212.4)."
^DD(210.05,.01,"DT")="2930415"
^DD(210.05,1,0)="*CLASS^RP212.4'^NURSF(212.4,^0;2^Q"
^DD(210.05,1,1,0)="^.1"
^DD(210.05,1,1,1,0)="210.05^C"
^DD(210.05,1,1,1,1)="S ^NURSF(210,DA(1),8,""C"",$E(X,1,30),DA)="""""
^DD(210.05,1,1,1,2)="K ^NURSF(210,DA(1),8,""C"",$E(X,1,30),DA)"
^DD(210.05,1,1,1,"%D",0)="^^2^2^2950324^^"
^DD(210.05,1,1,1,"%D",1,0)="This is a regular index on the class field of the mandatory inservice"
^DD(210.05,1,1,1,"%D",2,0)="program subfile."
^DD(210.05,1,1,2,0)="210.05^AA1^MUMPS"
^DD(210.05,1,1,2,1)="S NURS=$S($D(^NURSF(210,DA(1),8,DA,0)):$P(^(0),""^""),1:"""") S:NURS'="""" ^NURSF(210,DA(1),8,""AA"",X,9999999-NURS,DA)="""" K NURS"
^DD(210.05,1,1,2,2)="S NURS=$S($D(^NURSF(210,DA(1),8,DA,0)):$P(^(0),""^""),1:"""") K:NURS'="""" ^NURSF(210,DA(1),8,""AA"",X,9999999-NURS,DA) K NURS"
^DD(210.05,1,1,2,"%D",0)="^^2^2^2950324^^"
^DD(210.05,1,1,2,"%D",1,0)="This is an inverted time/date cross-reference on the Date Attended subfile"
^DD(210.05,1,1,2,"%D",2,0)="which is used to identify the latest date the class was attended."
^DD(210.05,1,3)=""
^DD(210.05,1,21,0)="^^2^2^2930415^^^^"
^DD(210.05,1,21,1,0)="Name of inservice program.  Pointer to Nurs Mandatory Inservice (#212.4)"
^DD(210.05,1,21,2,0)="file."
^DD(210.05,1,"DT")="2930415"
^DD(210.05,"B","*CLASS",1)=""
^DD(210.05,"B","*DATE ATTENDED",.01)=""
^DD(210.05,"GL",0,1,.01)=""
^DD(210.05,"GL",0,2,1)=""
^DD(210.05,"IX",.01)=""
^DD(210.05,"IX",1)=""
^DD(210.05,"RQ",.01)=""
^DD(210.05,"RQ",1)=""
^DD(210.06,0)="MILITARY STATUS SUB-FIELD^NL^2^3"
^DD(210.06,0,"DT")="2920825"
^DD(210.06,0,"NM","MILITARY STATUS")=""
^DD(210.06,0,"UP")="210"
^DD(210.06,.01,0)="MILITARY STATUS^M*S^R:RETIRED/DISCHARGED;A:ACTIVE RESERVE;IRR:INDIVIDUAL READY RESERVE;IMA:INDIVIDUAL MOBILIZATION AUGMENTEE;^0;1^Q"
^DD(210.06,.01,1,0)="^.1^^0"
^DD(210.06,.01,7.5)="X:$D(^%ZOSF(""UPPERCASE"")) ""N Y X ^%ZOSF(""""UPPERCASE"""") S X=Y Q"""
^DD(210.06,.01,12)="This screen allows lower case data to be entered."
^DD(210.06,.01,12.1)="X:$D(^%ZOSF(""UPPERCASE"")) ""N Y X ^%ZOSF(""""UPPERCASE"""") S X=Y Q"""
^DD(210.06,.01,21,0)="^^1^1^2970404^^^^"
^DD(210.06,.01,21,1,0)="Indicates military status."
^DD(210.06,.01,"DT")="2920825"
^DD(210.06,1,0)="BRANCH OF SERVICE^P23'^DIC(23,^0;2^Q"
^DD(210.06,1,21,0)="^^2^2^2851224^^^^"
^DD(210.06,1,21,1,0)="Name of 'service branch' if active-reservist. Pointer to BRANCH OF"
^DD(210.06,1,21,2,0)="SERVICE FILE (#23)."
^DD(210.06,1,"DT")="2880415"
^DD(210.06,2,0)="VA PREFERENCE^S^0:NO SERVICE;1:NONE;2:5 PT.;3:10 PT. DISAB.;4:10 PT. COMP.;5:10 PT. OTHER;6:10 PT./30% COMP;^0;3^Q"
^DD(210.06,2,21,0)="^^1^1^2900725^"
^DD(210.06,2,21,1,0)="Employee veteran preference for this military experience."
^DD(210.06,2,"DT")="2881220"
^DD(210.06,"B","BRANCH OF SERVICE",1)=""
^DD(210.06,"B","MILITARY STATUS",.01)=""
^DD(210.06,"B","VA PREFERENCE",2)=""
^DD(210.06,"GL",0,1,.01)=""
^DD(210.06,"GL",0,2,1)=""
^DD(210.06,"GL",0,3,2)=""
^DD(210.08,0)="FACULTY APPOINTMENT SUB-FIELD^^1^2"
^DD(210.08,0,"DT")="2940906"
^DD(210.08,0,"IX","B",210.08,.01)=""
^DD(210.08,0,"NM","FACULTY APPOINTMENT")=""
^DD(210.08,0,"UP")="210"
^DD(210.08,.01,0)="TYPE OF APPOINTMENT^MFX^^0;1^K:$L(X)>60!($L(X)<3) X Q:'$D(X)  S X=$$UP^XLFSTR(X)"
^DD(210.08,.01,1,0)="^.1"
^DD(210.08,.01,1,1,0)="210.08^B"
^DD(210.08,.01,1,1,1)="S ^NURSF(210,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(210.08,.01,1,1,2)="K ^NURSF(210,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(210.08,.01,1,1,"%D",0)="^^1^1^2950222^"
^DD(210.08,.01,1,1,"%D",1,0)="This is the main index on the 'Type of Appointment' subfile."
^DD(210.08,.01,3)="Answer must be 3-60 characters in length."
^DD(210.08,.01,21,0)="^^1^1^2950324^^^"
^DD(210.08,.01,21,1,0)="This field contains the type of the employee's faculty appointment."
^DD(210.08,.01,"DT")="2940907"
^DD(210.08,1,0)="INSTITUTION^FX^^0;2^S X=$$UP^XLFSTR(X) K:$L(X)>60!($L(X)<3) X"
^DD(210.08,1,3)="Answer must be 3-60 characters in length."
^DD(210.08,1,21,0)="^^2^2^2950222^^"
^DD(210.08,1,21,1,0)="This field contains the name of the institution where the employee has"
^DD(210.08,1,21,2,0)="a faculty appointment."
^DD(210.08,1,"DT")="2940907"
^DD(210.08,"B","INSTITUTION",1)=""
^DD(210.08,"B","TYPE OF APPOINTMENT",.01)=""
^DD(210.08,"GL",0,1,.01)=""
^DD(210.08,"GL",0,2,1)=""
^DD(210.08,"IX",.01)=""
^DD(210.12,0)="*CONTINUING EDUCATION PROGRAM SUB-FIELD^NL^6^10"
^DD(210.12,0,"DT")="2921113"
^DD(210.12,0,"IX","B",210.12,.01)=""
^DD(210.12,0,"NM","*CONTINUING EDUCATION PROGRAM")=""
^DD(210.12,0,"UP")="210"
^DD(210.12,.01,0)="*CONTINUING EDUCATION PROGRAM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(210.12,.01,1,0)="^.1"
^DD(210.12,.01,1,1,0)="210.12^B"
^DD(210.12,.01,1,1,1)="S ^NURSF(210,DA(1),18,""B"",$E(X,1,30),DA)="""""
^DD(210.12,.01,1,1,2)="K ^NURSF(210,DA(1),18,""B"",$E(X,1,30),DA)"
^DD(210.12,.01,1,1,"%D",0)="^^1^1^2950222^"
^DD(210.12,.01,1,1,"%D",1,0)="This is the main index for the 'Continuing Education Program' subfile."
^DD(210.12,.01,3)="Answer must be 1-30 characters in length."
^DD(210.12,.01,21,0)="^^1^1^2950222^^^^"
^DD(210.12,.01,21,1,0)="Name of the continuing education program."
^DD(210.12,.01,"DT")="2930415"
^DD(210.12,1,0)="*DATE ATTENDED FROM^RDX^^0;2^S NURS=1 D EN2^NURSUT3"
^DD(210.12,1,3)=""
^DD(210.12,1,21,0)="^^1^1^2950222^^^^"
^DD(210.12,1,21,1,0)="Date the continuing education program began."
^DD(210.12,1,"DT")="2930415"
^DD(210.12,1.5,0)="*DATE ATTENDED TO^RDX^^0;4^S NURS=1.5 D EN2^NURSUT3"
^DD(210.12,1.5,3)=""
^DD(210.12,1.5,21,0)="^^1^1^2950922^^^^"
^DD(210.12,1.5,21,1,0)="Date the continuing education program ended."
^DD(210.12,1.5,"DT")="2950922"
^DD(210.12,2,0)="*NUMBER OF C.E.U.s^RNJ7,2^^0;3^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(210.12,2,3)="TYPE A NUMBER BETWEEN 0 AND 9999.99"
^DD(210.12,2,21,0)="^^1^1^2930415^^^^"
^DD(210.12,2,21,1,0)="Total number of C.E.U.s received by attendee."
^DD(210.12,2,"DT")="2930415"
^DD(210.12,3,0)="*LOCATION OF PROGRAM^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(210.12,3,1,0)="^.1^^0"
^DD(210.12,3,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(210.12,3,21,0)="^^1^1^2930415^^^^"
^DD(210.12,3,21,1,0)="City/state/institution where program is being held."
^DD(210.12,3,"DT")="2930415"
^DD(210.12,3.5,0)="*HOURS OF A/A REQUESTED^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(210.12,3.5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(210.12,3.5,21,0)="^^1^1^2930415^^^^"
^DD(210.12,3.5,21,1,0)="Hours of authorized absence requested by employee."
^DD(210.12,3.5,"DT")="2930415"
^DD(210.12,4,0)="*HOURS OF A/A GRANTED^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(210.12,4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(210.12,4,21,0)="^^1^1^2930415^^^^"
^DD(210.12,4,21,1,0)="Total hours of authorized absence granted by Nursing Service."
^DD(210.12,4,"DT")="2930415"
^DD(210.12,5,0)="*FUNDS REQUESTED^210.14SA^^1;0"
^DD(210.12,5,21,0)="^^1^1^2930415^^^^"
^DD(210.12,5,21,1,0)="Program funding requested by employee."
^DD(210.12,5,"DT")="2930415"
^DD(210.12,5.5,0)="*FUNDS AUTHORIZED^210.15SA^^2;0"
^DD(210.12,5.5,21,0)="^^1^1^2930415^^^^"
^DD(210.12,5.5,21,1,0)="Program funding authorized by the service to the employee."
^DD(210.12,5.5,"DT")="2930415"
^DD(210.12,6,0)="*C.E.U. COMMENTS^210.16^^3;0"
^DD(210.12,6,21,0)="^^1^1^2930415^^^^"
^DD(210.12,6,21,1,0)="Enter additional comments regarding program/funding."
^DD(210.12,6,"DT")="2930415"
^DD(210.12,"B","*C.E.U. COMMENTS",6)=""
^DD(210.12,"B","*CONTINUING EDUCATION PROGRAM",.01)=""
^DD(210.12,"B","*DATE ATTENDED FROM",1)=""
^DD(210.12,"B","*DATE ATTENDED TO",1.5)=""
^DD(210.12,"B","*FUNDS AUTHORIZED",5.5)=""
^DD(210.12,"B","*FUNDS REQUESTED",5)=""
^DD(210.12,"B","*HOURS OF A/A GRANTED",4)=""
^DD(210.12,"B","*HOURS OF A/A REQUESTED",3.5)=""
^DD(210.12,"B","*LOCATION OF PROGRAM",3)=""
^DD(210.12,"B","*NUMBER OF C.E.U.s",2)=""
^DD(210.12,"GL",0,1,.01)=""
^DD(210.12,"GL",0,2,1)=""
^DD(210.12,"GL",0,3,2)=""
^DD(210.12,"GL",0,4,1.5)=""
^DD(210.12,"GL",0,5,3)=""
^DD(210.12,"GL",0,6,4)=""
^DD(210.12,"GL",0,9,3.5)=""
^DD(210.12,"GL",1,0,5)=""
^DD(210.12,"GL",2,0,5.5)=""
^DD(210.12,"GL",3,0,6)=""
^DD(210.12,"IX",.01)=""
^DD(210.12,"RQ",1)=""
^DD(210.12,"RQ",1.5)=""
^DD(210.12,"RQ",2)=""
^DD(210.12,"SB",210.14,5)=""
^DD(210.12,"SB",210.15,5.5)=""
^DD(210.12,"SB",210.16,6)=""
^DD(210.13,0)="PROFESSIONAL EXPERIENCE SUB-FIELD^^4^6"
^DD(210.13,0,"DT")="2931209"
^DD(210.13,0,"ID","WRITE")="D EN6^NURAED3"
^DD(210.13,0,"IX","APE",210.13,4)=""
^DD(210.13,0,"IX","B",210.13,.01)=""
^DD(210.13,0,"NM","PROFESSIONAL EXPERIENCE")=""
^DD(210.13,0,"UP")="210"
^DD(210.13,.01,0)="PROFESSIONAL EXPERIENCE^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(210.13,.01,.1)=""
^DD(210.13,.01,1,0)="^.1"
^DD(210.13,.01,1,1,0)="210^B"
^DD(210.13,.01,1,1,1)="S ^NURSF(210,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(210.13,.01,1,1,2)="K ^NURSF(210,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(210.13,.01,1,1,"%D",0)="^^1^1^2950222^"
^DD(210.13,.01,1,1,"%D",1,0)="This is the main index on the 'Professional Experience' subfile."
^DD(210.13,.01,3)=""
^DD(210.13,.01,4)=""
^DD(210.13,.01,21,0)="^^1^1^2950222^^^^"
^DD(210.13,.01,21,1,0)="This is the area of the nurse's professional experience."
^DD(210.13,.01,21,2,0)="Free Text value of FILE (#211.5)"
^DD(210.13,.01,"DT")="2940524"
^DD(210.13,1,0)="TITLE/POSITION^P211.3'^NURSF(211.3,^0;2^Q"
^DD(210.13,1,3)=""
^DD(210.13,1,21,0)="^^2^2^2900316^^^^"
^DD(210.13,1,21,1,0)="Name of title/position held during this period of employment. Pointer to"
^DD(210.13,1,21,2,0)="NURS SERVICE POSITION FILE (211.3)."
^DD(210.13,1,"DT")="2860225"
^DD(210.13,2.1,0)="DATE STARTED^DX^^0;5^S NURS=2.1 D EN8^NURSUT0"
^DD(210.13,2.1,3)=""
^DD(210.13,2.1,21,0)="^^1^1^2900824^^^"
^DD(210.13,2.1,21,1,0)="Beginning date of employee's assignment."
^DD(210.13,2.1,"DT")="2911023"
^DD(210.13,2.5,0)="DATE ENDED^DX^^0;6^S NURS=2.5 D EN8^NURSUT0"
^DD(210.13,2.5,3)=""
^DD(210.13,2.5,21,0)="^^1^1^2900508^"
^DD(210.13,2.5,21,1,0)="Ending date of employee's assignment."
^DD(210.13,2.5,"DT")="2911023"
^DD(210.13,3,0)="LAST ASSIGNMENT LOCATION^F^^0;4^K:$L(X)>30!($L(X)<2) X"
^DD(210.13,3,3)="Answer must be 2-30 characters in length."
^DD(210.13,3,21,0)="^^1^1^2900507^^^^"
^DD(210.13,3,21,1,0)="Name of facility, agency, or unit which employed individual."
^DD(210.13,3,"DT")="2900417"
^DD(210.13,4,0)="POSITION ENTRY^FI^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X?1.N1"";""1.N) X"
^DD(210.13,4,1,0)="^.1^^0"
^DD(210.13,4,1,1,0)="210.13^APE"
^DD(210.13,4,1,1,1)="S ^NURSF(210,DA(1),20,""APE"",$E(X,1,30),DA)="""""
^DD(210.13,4,1,1,2)="K ^NURSF(210,DA(1),20,""APE"",$E(X,1,30),DA)"
^DD(210.13,4,1,1,"%D",0)="^^2^2^2951130^"
^DD(210.13,4,1,1,"%D",1,0)="This is a regular index on the Position Entry field of the Professional"
^DD(210.13,4,1,1,"%D",2,0)="Experience sub-field."
^DD(210.13,4,3)="Answer must be 3-30 characters in length."
^DD(210.13,4,8.5)="^"
^DD(210.13,4,9)="^"
^DD(210.13,4,21,0)="^^3^3^2950324^^^"
^DD(210.13,4,21,1,0)="This field identifies the entry for the employee in the Position Control"
^DD(210.13,4,21,2,0)="file (#211.8). The first number indicates the location entry for this"
^DD(210.13,4,21,3,0)="employee and the second number indicates the service position."
^DD(210.13,4,"DT")="2931220"
^DD(210.13,"B","DATE ENDED",2.5)=""
^DD(210.13,"B","DATE STARTED",2.1)=""
^DD(210.13,"B","LAST ASSIGNMENT LOCATION",3)=""
^DD(210.13,"B","POSITION ENTRY",4)=""
^DD(210.13,"B","PROFESSIONAL EXPERIENCE",.01)=""
^DD(210.13,"B","TITLE/POSITION",1)=""
^DD(210.13,"GL",0,1,.01)=""
^DD(210.13,"GL",0,2,1)=""
^DD(210.13,"GL",0,3,4)=""
^DD(210.13,"GL",0,4,3)=""
^DD(210.13,"GL",0,5,2.1)=""
^DD(210.13,"GL",0,6,2.5)=""
^DD(210.13,"IX",.01)=""
^DD(210.13,"IX",4)=""
^DD(210.13,"RQ",.01)=""
^DD(210.14,0)="*FUNDS REQUESTED SUB-FIELD^NL^1^2"
^DD(210.14,0,"NM","*FUNDS REQUESTED")=""
^DD(210.14,0,"UP")="210.12"
^DD(210.14,.01,0)="*FUNDS REQUESTED^MS^A:AIRFARE;P:PER DIEM;R:REGISTRATION;H:HOTEL;T:TRAVEL;N:NONE REQUESTED;^0;1^Q"
^DD(210.14,.01,21,0)="^^1^1^2930415^^^^"
^DD(210.14,.01,21,1,0)="Indicates intended use of requested funds (e.g., hotel, registration)."
^DD(210.14,.01,"DT")="2930415"
^DD(210.14,1,0)="*AMOUNT REQUESTED^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(210.14,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(210.14,1,21,0)="^^1^1^2930415^^^"
^DD(210.14,1,21,1,0)="Total funding (dollar amount) requested by employee."
^DD(210.14,1,"DT")="2930415"
^DD(210.14,"B","*AMOUNT REQUESTED",1)=""
^DD(210.14,"B","*FUNDS REQUESTED",.01)=""
^DD(210.14,"GL",0,1,.01)=""
^DD(210.14,"GL",0,2,1)=""
^DD(210.15,0)="*FUNDS AUTHORIZED SUB-FIELD^NL^1^2"
^DD(210.15,0,"NM","*FUNDS AUTHORIZED")=""
^DD(210.15,0,"UP")="210.12"
^DD(210.15,.01,0)="*FUNDS AUTHORIZED^MSX^A:AIRFARE;P:PER DIEM;R:REGISTRATION;H:HOTEL;T:TRAVEL;N:NONE REQUESTED;^0;1^D EN3^NURSUT3"
^DD(210.15,.01,21,0)="^^1^1^2930415^^^"
^DD(210.15,.01,21,1,0)="Indicates intended use of authorized funds (e.g., hotel, airfare)."
^DD(210.15,.01,"DT")="2930415"
^DD(210.15,1,0)="*AMOUNT AUTHORIZED^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(210.15,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(210.15,1,21,0)="^^1^1^2930415^^^^"
^DD(210.15,1,21,1,0)="Dollar amount authorized by service to employee."
^DD(210.15,1,"DT")="2930415"
^DD(210.15,"B","*AMOUNT AUTHORIZED",1)=""
^DD(210.15,"B","*FUNDS AUTHORIZED",.01)=""
^DD(210.15,"GL",0,1,.01)=""
^DD(210.15,"GL",0,2,1)=""
^DD(210.16,0)="*C.E.U. COMMENTS SUB-FIELD^NL^.01^1"
^DD(210.16,0,"NM","*C.E.U. COMMENTS")=""
^DD(210.16,0,"UP")="210.12"
^DD(210.16,.01,0)="*C.E.U. COMMENTS^W^^0;1^Q"
^DD(210.16,.01,3)=""
^DD(210.16,.01,21,0)="^^1^1^2930415^^^^"
^DD(210.16,.01,21,1,0)="Enter additional comments regarding program/funding."
^DD(210.16,.01,"DT")="2930415"
^DD(210.16,"B","*C.E.U. COMMENTS",.01)=""
^DD(210.16,"GL",0,1,.01)=""
^DD(210.17,0)="DATE OF PROMOTION SUB-FIELD^^1^2"
^DD(210.17,0,"DT")="2981023"
^DD(210.17,0,"IX","B",210.17,.01)=""
^DD(210.17,0,"IX","C",210.17,.01)=""
^DD(210.17,0,"NM","DATE OF PROMOTION")=""
^DD(210.17,0,"UP")="210"
^DD(210.17,.01,0)="DATE OF PROMOTION^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:3500101<X!(2500101>X) X"
^DD(210.17,.01,1,0)="^.1"
^DD(210.17,.01,1,1,0)="210.17^B"
^DD(210.17,.01,1,1,1)="S ^NURSF(210,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(210.17,.01,1,1,2)="K ^NURSF(210,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(210.17,.01,1,1,"%D",0)="^^2^2^2950324^^"
^DD(210.17,.01,1,1,"%D",1,0)="This is the main index on the Date field of the Date of Promotion"
^DD(210.17,.01,1,1,"%D",2,0)="subfile of the NURS STAFF File."
^DD(210.17,.01,1,2,0)="210.17^C^MUMPS"
^DD(210.17,.01,1,2,1)="S:+X ^NURSF(210,DA(1),9,""AA"",(9999999-X),DA)="""""
^DD(210.17,.01,1,2,2)="K:+X ^NURSF(210,DA(1),9,""AA"",(9999999-X),DA)"
^DD(210.17,.01,1,2,"%D",0)="^^2^2^2950222^^^^"
^DD(210.17,.01,1,2,"%D",1,0)="This X-ref is an inverted time/date cross reference on the date of"
^DD(210.17,.01,1,2,"%D",2,0)="promotion subfile so that the latest promotion date can be easily obtained."
^DD(210.17,.01,1,2,"DT")="2940308"
^DD(210.17,.01,3)="TYPE A DATE BETWEEN 1/1/1950 AND 1/1/2050"
^DD(210.17,.01,21,0)="^^1^1^2930210^^"
^DD(210.17,.01,21,1,0)="Indicates date of RN/LPN/LVN promotions."
^DD(210.17,.01,"DT")="2970211"
^DD(210.17,1,0)="TYPE OF PROMOTION^*S^S:WITHIN GRADE STEP INCREASE;G:PROMOTION TO NEXT GRADE;A:SPECIAL ADVANCEMENT FOR ACHIEVEMENT;P:SPECIAL ADVANCEMENT FOR PERFORMANCE;E:ADVANCEMENT TO NEXT LEVEL;N:NOT PROMOTED AT THIS TIME;^0;2^Q"
^DD(210.17,1,12)="This screen allows lower case data to be entered."
^DD(210.17,1,12.1)="X:$D(^%ZOSF(""UPPERCASE"")) ""N Y X ^%ZOSF(""""UPPERCASE"""") S X=Y Q"""
^DD(210.17,1,21,0)="^^3^3^2981023^^^^"
^DD(210.17,1,21,1,0)="Describe type of latest promotion (i.e., Automatic Step Increase, Promotion"
^DD(210.17,1,21,2,0)="to Next Grade, Special Advancement for Achievement, Special Advancement"
^DD(210.17,1,21,3,0)="for Performance, or Advancement to Next Level)."
^DD(210.17,1,"DT")="2981023"
^DD(210.17,"B","DATE OF PROMOTION",.01)=""
^DD(210.17,"B","TYPE OF PROMOTION",1)=""
^DD(210.17,"GL",0,1,.01)=""
^DD(210.17,"GL",0,2,1)=""
^DD(210.17,"IX",.01)=""
^DD(210.18,0)="NPSB SUB-FIELD^^6^7"
^DD(210.18,0,"DT")="2981029"
^DD(210.18,0,"IX","B",210.18,.01)=""
^DD(210.18,0,"NM","NPSB")=""
^DD(210.18,0,"UP")="210"
^DD(210.18,.01,0)="DATE PROFICIENCY IS DUE^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:3500101<X!(2500101>X) X"
^DD(210.18,.01,1,0)="^.1"
^DD(210.18,.01,1,1,0)="210.18^B"
^DD(210.18,.01,1,1,1)="S ^NURSF(210,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(210.18,.01,1,1,2)="K ^NURSF(210,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(210.18,.01,1,1,"%D",0)="^^2^2^2950222^"
^DD(210.18,.01,1,1,"%D",1,0)="This is the main index on the Date Proficiency is Due field of the NPSB"
^DD(210.18,.01,1,1,"%D",2,0)="subfile."
^DD(210.18,.01,3)="TYPE A DATE BETWEEN 1/1/1950 AND 1/1/2050"
^DD(210.18,.01,21,0)="^^1^1^2981029^^^"
^DD(210.18,.01,21,1,0)="Date on which registered nurse's proficiency/annual narrative is due."
^DD(210.18,.01,"DT")="2970211"
^DD(210.18,1,0)="NAME OF EVALUATOR^P200'^VA(200,^0;2^Q"
^DD(210.18,1,21,0)="^^1^1^2950222^^^^"
^DD(210.18,1,21,1,0)="Name of the supervisor responsible for completing the proficiency/annual narrative."
^DD(210.18,2,0)="ACTUAL DATE OF BOARD ACTION^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(210.18,2,21,0)="^^1^1^2900321^"
^DD(210.18,2,21,1,0)="Date on which the standards board actually reviewed the employee."
^DD(210.18,3,0)="DATE WORK COPY SENT OUT^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(210.18,3,21,0)="^^2^2^2950222^"
^DD(210.18,3,21,1,0)="This is the date the work copy/notice for the nurse's proficiency or annual"
^DD(210.18,3,21,2,0)="narrative is sent to the evaluator."
^DD(210.18,3,"DT")="2930210"
^DD(210.18,4,0)="DATE PROF RETURNED FOR TYPING^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(210.18,4,21,0)="^^2^2^2950222^"
^DD(210.18,4,21,1,0)="The date on which the nurse's written proficiency/annual narrative is"
^DD(210.18,4,21,2,0)="returned by the evaluator for typing."
^DD(210.18,4,"DT")="2930210"
^DD(210.18,5,0)="TENTATIVE DATE FOR BOARD ACT^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(210.18,5,21,0)="^^2^2^2981029^^"
^DD(210.18,5,21,1,0)="This is the targeted date the employee is scheduled for review by the"
^DD(210.18,5,21,2,0)="'Nurse Professional Standards Board'."
^DD(210.18,5,"DT")="2930210"
^DD(210.18,6,0)="DATE OF NEXT BOARD ACTION^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(210.18,6,21,0)="^^1^1^2981029^"
^DD(210.18,6,21,1,0)="This field indicates when the next board action will be due."
^DD(210.18,6,"DT")="2981029"
^DD(210.18,"B","ACTUAL DATE OF BOARD ACTION",2)=""
^DD(210.18,"B","DATE OF NEXT BOARD ACTION",6)=""
^DD(210.18,"B","DATE PROF RETURNED FOR TYPING",4)=""
^DD(210.18,"B","DATE PROFICIENCY IS DUE",.01)=""
^DD(210.18,"B","DATE WORK COPY SENT OUT",3)=""
^DD(210.18,"B","NAME OF EVALUATOR",1)=""
^DD(210.18,"B","TENTATIVE DATE FOR BOARD ACT",5)=""
^DD(210.18,"GL",0,1,.01)=""
^DD(210.18,"GL",0,2,1)=""
^DD(210.18,"GL",0,3,2)=""
^DD(210.18,"GL",0,4,3)=""
^DD(210.18,"GL",0,5,4)=""
^DD(210.18,"GL",0,6,5)=""
^DD(210.18,"GL",0,7,6)=""
^DD(210.18,"IX",.01)=""
^DD(210.19,0)="PRIVILEGES SUB-FIELD^^2^3"
^DD(210.19,0,"DT")="2920324"
^DD(210.19,0,"IX","B",210.19,.01)=""
^DD(210.19,0,"NM","PRIVILEGES")=""
^DD(210.19,0,"UP")="210"
^DD(210.19,.01,0)="PRIVILEGES^MP212.6'^NURSF(212.6,^0;1^Q"
^DD(210.19,.01,1,0)="^.1"
^DD(210.19,.01,1,1,0)="210.19^B"
^DD(210.19,.01,1,1,1)="S ^NURSF(210,DA(1),16,""B"",$E(X,1,30),DA)="""""
^DD(210.19,.01,1,1,2)="K ^NURSF(210,DA(1),16,""B"",$E(X,1,30),DA)"
^DD(210.19,.01,1,1,"%D",0)="^^1^1^2950222^"
^DD(210.19,.01,1,1,"%D",1,0)="This is the main index on the 'Privileges' subfile."
^DD(210.19,.01,3)=""
^DD(210.19,.01,21,0)="^^1^1^2950222^^^"
^DD(210.19,.01,21,1,0)="Indicates a specific privilege."
^DD(210.19,.01,"DT")="2900908"
^DD(210.19,1,0)="DATE GRANTED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(210.19,1,21,0)="^^1^1^2950222^^"
^DD(210.19,1,21,1,0)="Indicates the date the privilege was granted."
^DD(210.19,2,0)="COMMENTS^210.192^^1;0"
^DD(210.19,2,21,0)="^^1^1^2950222^^"
^DD(210.19,2,21,1,0)="This field contains additional comments regarding an employee's privileges."
^DD(210.19,"B","COMMENTS",2)=""
^DD(210.19,"B","DATE GRANTED",1)=""
^DD(210.19,"B","PRIVILEGES",.01)=""
^DD(210.19,"GL",0,1,.01)=""
^DD(210.19,"GL",0,2,1)=""
^DD(210.19,"GL",1,0,2)=""
^DD(210.19,"IX",.01)=""
^DD(210.19,"SB",210.192,2)=""
^DD(210.192,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(210.192,0,"NM","COMMENTS")=""
^DD(210.192,0,"UP")="210.19"
^DD(210.192,.01,0)="COMMENTS^W^^0;1^Q"
^DD(210.192,"B","COMMENTS",.01)=""
^DD(210.192,"GL",0,1,.01)=""
^DD(211.1,0)="FIELD^^1^2"
^DD(211.1,0,"DDA")="N"
^DD(211.1,0,"DT")="2910627"
^DD(211.1,0,"IX","B",211.1,.01)=""
^DD(211.1,0,"IX","C",211.1,1)=""
^DD(211.1,0,"NM","NURS PAY SCALE")=""
^DD(211.1,0,"PT",210,6.5)=""
^DD(211.1,0,"VR")="4.0"
^DD(211.1,0,"VRPK")="NURSING SERVICE"
^DD(211.1,.01,0)="GRADE/STEP CODE^RF^^0;1^K:$L(X)>10!($L(X)<4)!'(X'?1P.E)!(X'?.ANP) X"
^DD(211.1,.01,1,0)="^.1"
^DD(211.1,.01,1,1,0)="211.1^B"
^DD(211.1,.01,1,1,1)="S ^NURSF(211.1,""B"",$E(X,1,30),DA)="""""
^DD(211.1,.01,1,1,2)="K ^NURSF(211.1,""B"",$E(X,1,30),DA)"
^DD(211.1,.01,1,1,"%D",0)="^^2^2^2950926^^^^"
^DD(211.1,.01,1,1,"%D",1,0)="This is the main index on the NURS PAY SCALE file which references all"
^DD(211.1,.01,1,1,"%D",2,0)="grade/step code entries."
^DD(211.1,.01,3)="Answer must be 4-10 characters in length."
^DD(211.1,.01,4)=""
^DD(211.1,.01,21,0)="^^5^5^2950328^^^^"
^DD(211.1,.01,21,1,0)="Indicates the employee's 'service category', grade, and step level."
^DD(211.1,.01,21,2,0)="Example: R/S/5; registered nurse/senior grade/step 5."
^DD(211.1,.01,21,3,0)="'Service category' abbreviations are: C = clerical, R = registered"
^DD(211.1,.01,21,4,0)="nurse, L = licensed practical nurse/licensed vocational nurse, N ="
^DD(211.1,.01,21,5,0)="nursing assistant, O = other category(i.e., trainee, etc.)."
^DD(211.1,.01,"DT")="2910627"
^DD(211.1,1,0)="*GRADE/STEP^RP211.2'^NURSF(211.2,^0;2^Q"
^DD(211.1,1,1,0)="^.1"
^DD(211.1,1,1,1,0)="211.1^C^MUMPS"
^DD(211.1,1,1,1,1)="S:$D(^NURSF(211.2,+X,0)) ^NURSF(211.1,""C"",$P($G(^NURSF(211.2,+X,0)),U),DA)="""""
^DD(211.1,1,1,1,2)="K:$D(^NURSF(211.2,+X,0)) ^NURSF(211.1,""C"",$P($G(^NURSF(211.2,+X,0)),U),DA)"
^DD(211.1,1,1,1,"%D",0)="^^1^1^2950324^^^"
^DD(211.1,1,1,1,"%D",1,0)="This is an index that references grade/step entries."
^DD(211.1,1,1,1,"DT")="2940406"
^DD(211.1,1,3)=""
^DD(211.1,1,21,0)="^^2^2^2950927^^^^"
^DD(211.1,1,21,1,0)="Name of the grade/step associated with the above 'grade/step code'."
^DD(211.1,1,21,2,0)="Pointer to NURS GRADE/STEP FILE (211.2)."
^DD(211.1,1,"DT")="2950925"
^DD(211.1,"B","*GRADE/STEP",1)=""
^DD(211.1,"B","GRADE/STEP CODE",.01)=""
^DD(211.1,"GL",0,1,.01)=""
^DD(211.1,"GL",0,2,1)=""
^DD(211.1,"IX",.01)=""
^DD(211.1,"IX",1)=""
^DD(211.1,"RQ",.01)=""
^DD(211.1,"RQ",1)=""
^DD(211.2,0)="FIELD^^1^2"
^DD(211.2,0,"DDA")="N"
^DD(211.2,0,"IX","AC",211.2,.01)=""
^DD(211.2,0,"IX","B",211.2,.01)=""
^DD(211.2,0,"NM","*NURS GRADE/STEP")=""
^DD(211.2,0,"PT",211.1,1)=""
^DD(211.2,0,"VR")="4.0"
^DD(211.2,0,"VRPK")="NURSING SERVICE"
^DD(211.2,.01,0)="GRADE/STEP^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(211.2,.01,1,0)="^.1"
^DD(211.2,.01,1,1,0)="211.2^B"
^DD(211.2,.01,1,1,1)="S ^NURSF(211.2,""B"",$E(X,1,30),DA)="""""
^DD(211.2,.01,1,1,2)="K ^NURSF(211.2,""B"",$E(X,1,30),DA)"
^DD(211.2,.01,1,1,"%D",0)="^^2^2^2950926^^"
^DD(211.2,.01,1,1,"%D",1,0)="This is the main index on the NURS Grade/Step file. It lists all the"
^DD(211.2,.01,1,1,"%D",2,0)="grade/step entries in the file."
^DD(211.2,.01,1,2,0)="211.2^AC^MUMPS"
^DD(211.2,.01,1,2,1)="S:'$D(^NURSF(211.2,""AC"",$P(X,""-"",1))) ^NURSF(211.2,""AC"",$P(X,""-"",1),DA)="""""
^DD(211.2,.01,1,2,2)="I $D(^NURSF(211.2,""AC"",$P(X,""-"",1),DA)) S NURSNM=$O(^NURSF(211.2,""B"",$P(X,""-"",1))) S:NURSNM'=""""&($P(NURSNM,""-"",1)=$P(X,""-"",1)) ^NURSF(211.2,""AC"",$P(X,""-"",1),$O(^NURSF(211.2,""B"",NURSNM,"""")))="""" K ^NURSF(211.2,""AC"",$P(X,""-"",1),DA),NURSNM"
^DD(211.2,.01,1,2,"%D",0)="^^1^1^2950222^"
^DD(211.2,.01,1,2,"%D",1,0)="This index lists the categories of entries in the NURS Grade/Step file."
^DD(211.2,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(211.2,.01,21,0)="^^1^1^2950222^^^^"
^DD(211.2,.01,21,1,0)="Name of a specific grade/step."
^DD(211.2,.01,"DT")="2920218"
^DD(211.2,1,0)="GRADE/STEP SALARY^NJ10,2X^^0;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X!(X'?.N.1""."".2N)!(X>9999999.99)!(X<1) X"
^DD(211.2,1,.1)=""
^DD(211.2,1,3)="Type a Dollar Amount between 1 and 9999999.99, 2 Decimal Digits when cents are to be indicated"
^DD(211.2,1,21,0)="^^1^1^2920129^^^^"
^DD(211.2,1,21,1,0)="Indicates the salary of a specific grade/step."
^DD(211.2,1,"DT")="2900201"
^DD(211.2,"B","GRADE/STEP",.01)=""
^DD(211.2,"B","GRADE/STEP SALARY",1)=""
^DD(211.2,"GL",0,1,.01)=""
^DD(211.2,"GL",0,2,1)=""
^DD(211.2,"IX",.01)=""
^DD(211.2,"RQ",.01)=""
^DD(211.3,0)="FIELD^^6^7"
^DD(211.3,0,"DDA")="N"
^DD(211.3,0,"DT")="2960703"
^DD(211.3,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(211.3,0,"ID",2)="W """""
^DD(211.3,0,"ID",4)="W """""
^DD(211.3,0,"ID",6)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^NURSF(212.7,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(212.7,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(211.3,0,"IX","AC",211.3,4)=""
^DD(211.3,0,"IX","B",211.3,.01)=""
^DD(211.3,0,"IX","C",211.3,1)=""
^DD(211.3,0,"IX","D",211.3,2)=""
^DD(211.3,0,"IX","E",211.3,5)=""
^DD(211.3,0,"IX","F",211.3,5)=""
^DD(211.3,0,"IX","P",211.3,6)=""
^DD(211.3,0,"NM","NURS SERVICE POSITION")=""
^DD(211.3,0,"PT",210.13,1)=""
^DD(211.3,0,"PT",211.82,.03)=""
^DD(211.3,0,"PT",211.83,.01)=""
^DD(211.3,0,"PT",213.52,5)=""
^DD(211.3,0,"VR")="4.0"
^DD(211.3,0,"VRPK")="NURSING SERVICE"
^DD(211.3,.01,0)="ABBREVIATION^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X I $G(DA) I $$DUPCHK^NURSBPO(DA,X)=1 K X D EN^DDIOL(""Sorry, that value is already being used."")"
^DD(211.3,.01,.1)="Enter abbreviation for Service Position"
^DD(211.3,.01,1,0)="^.1"
^DD(211.3,.01,1,1,0)="211.3^B"
^DD(211.3,.01,1,1,1)="S ^NURSF(211.3,""B"",$E(X,1,30),DA)="""""
^DD(211.3,.01,1,1,2)="K ^NURSF(211.3,""B"",$E(X,1,30),DA)"
^DD(211.3,.01,1,1,"%D",0)="^^2^2^2950926^^^^"
^DD(211.3,.01,1,1,"%D",1,0)="This is the main index on the NURS Service Position file. It lists the"
^DD(211.3,.01,1,1,"%D",2,0)="abbreviations for all service positions."
^DD(211.3,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(211.3,.01,21,0)="^^1^1^2950222^^^^"
^DD(211.3,.01,21,1,0)="Abbreviation of the 'service position' name."
^DD(211.3,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Sorry, entries may not be deleted."")"
^DD(211.3,1,0)="NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(211.3,1,.1)="Enter Service Position title"
^DD(211.3,1,1,0)="^.1"
^DD(211.3,1,1,1,0)="211.3^C"
^DD(211.3,1,1,1,1)="S ^NURSF(211.3,""C"",$E(X,1,30),DA)="""""
^DD(211.3,1,1,1,2)="K ^NURSF(211.3,""C"",$E(X,1,30),DA)"
^DD(211.3,1,1,1,"%D",0)="^^1^1^2950222^"
^DD(211.3,1,1,1,"%D",1,0)="This index is on the name field (service position titles)."
^DD(211.3,1,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(211.3,1,21,0)="^^1^1^2950222^^^^"
^DD(211.3,1,21,1,0)="Name of the service position/title."
^DD(211.3,1,"DT")="2860724"
^DD(211.3,2,0)="PRIORITY SEQUENCE^NJ7,2X^^0;3^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X I $D(X)#2 I $D(^NURSF(211.3,""D"",X)) K X D EN^DDIOL(""YOU ALREADY HAVE A SERVICE POSITION WITH THIS PRIORITY SEQUENCE"")"
^DD(211.3,2,1,0)="^.1^^-1"
^DD(211.3,2,1,1,0)="211.3^D"
^DD(211.3,2,1,1,1)="S ^NURSF(211.3,""D"",$E(X,1,30),DA)="""""
^DD(211.3,2,1,1,2)="K ^NURSF(211.3,""D"",$E(X,1,30),DA)"
^DD(211.3,2,1,1,"%D",0)="^^2^2^2950926^^"
^DD(211.3,2,1,1,"%D",1,0)="This index is on the priority sequence field which lists priority sequence"
^DD(211.3,2,1,1,"%D",2,0)="numbers used in printing reports."
^DD(211.3,2,3)="TYPE A NUMBER BETWEEN 0 AND 9999.99"
^DD(211.3,2,4)=""
^DD(211.3,2,21,0)="^^11^11^2950926^^^^"
^DD(211.3,2,21,1,0)="This number will determine the order in which a service position"
^DD(211.3,2,21,2,0)="will print out on a report.   A service position with a priority"
^DD(211.3,2,21,3,0)="sequence of 200 will sort and print before a service position with a"
^DD(211.3,2,21,4,0)="priority sequence of 900. There are some restrictions on this"
^DD(211.3,2,21,5,0)="numbering system:"
^DD(211.3,2,21,6,0)="1.  Service positions with priority sequences"
^DD(211.3,2,21,7,0)="    of less than 100 will not print on reports."
^DD(211.3,2,21,8,0)="    This is to enable the user to add a service"
^DD(211.3,2,21,9,0)="    position that is not desired in the prints."
^DD(211.3,2,21,10,0)=" "
^DD(211.3,2,21,11,0)="2.  No two service positions can have duplicate priority sequences."
^DD(211.3,2,"DT")="2870529"
^DD(211.3,3,0)="AMIS POSITION^P211.7'^NURSF(211.7,^0;4^Q"
^DD(211.3,3,3)=""
^DD(211.3,3,21,0)="^^3^3^2951023^^^^"
^DD(211.3,3,21,1,0)="Indicates an appropriate AMIS staffing position for the above 'service"
^DD(211.3,3,21,2,0)="position'.  This data is used in generating all AMIS FTEE reports."
^DD(211.3,3,21,3,0)="Pointer to NURS AMIS POSITION FILE (#211.7)."
^DD(211.3,3,"DT")="2851105"
^DD(211.3,4,0)="SERVICE CATEGORY^S^R:RN  REGISTERED NURSE;L:LPN LIC. PRACTICAL NURSE;N:NA  NURSING ASSISTANT;C:CK  CLERICAL;S:SE  SUMMER EMPLOYEE;A:AO  ADMIN. OFFICER;O:OT  OTHER;^0;5^Q"
^DD(211.3,4,1,0)="^.1"
^DD(211.3,4,1,1,0)="211.3^AC"
^DD(211.3,4,1,1,1)="S ^NURSF(211.3,""AC"",$E(X,1,30),DA)="""""
^DD(211.3,4,1,1,2)="K ^NURSF(211.3,""AC"",$E(X,1,30),DA)"
^DD(211.3,4,1,1,"%D",0)="^^1^1^2950222^"
^DD(211.3,4,1,1,"%D",1,0)="This index is on the service category field."
^DD(211.3,4,3)=""
^DD(211.3,4,21,0)="^^3^3^2860529^^^^"
^DD(211.3,4,21,1,0)="Name of appropriate 'service category' (i.e., Registered Nurse,"
^DD(211.3,4,21,2,0)="Licensed Practical Nurse, Nursing Assistant, Clerical, Summer Employee, "
^DD(211.3,4,21,3,0)="Administrative Officer, or Other) related to 'service position'."
^DD(211.3,4,"DT")="2860116"
^DD(211.3,5,0)="OTHER SERVICE CATEGORY^FX^^0;6^N DIC S DIC=211.3,D=""F"",DIC(0)=""ES"",DIC(""W"")="""" D IX^DIC S:+Y>0 X=$P(Y,""^"",2) I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(211.3,5,.1)="OTHER SERVICE CATEGORY"
^DD(211.3,5,1,0)="^.1"
^DD(211.3,5,1,1,0)="211.3^E"
^DD(211.3,5,1,1,1)="S ^NURSF(211.3,""E"",$E(X,1,30),DA)="""""
^DD(211.3,5,1,1,2)="K ^NURSF(211.3,""E"",$E(X,1,30),DA)"
^DD(211.3,5,1,1,"%D",0)="^^1^1^2960703^^"
^DD(211.3,5,1,1,"%D",1,0)="This is a regular index of Other Service Category."
^DD(211.3,5,1,1,"DT")="2960703"
^DD(211.3,5,1,2,0)="211.3^F^MUMPS"
^DD(211.3,5,1,2,1)="S:'$D(^NURSF(211.3,""F"",X)) ^NURSF(211.3,""F"",X,DA)="""""
^DD(211.3,5,1,2,2)="K ^NURSF(211.3,""E"",X,DA),^NURSF(211.3,""F"",X,DA) I '$D(^NURSF(211.3,""F"",X)) S NURSDA=$O(^NURSF(211.3,""E"",X,"""")) I NURSDA>0 S ^NURSF(211.3,""F"",X,NURSDA)="""""
^DD(211.3,5,1,2,"%D",0)="^^2^2^2960703^"
^DD(211.3,5,1,2,"%D",1,0)="This is a MUMPs index which will provide a list of Other Service Category"
^DD(211.3,5,1,2,"%D",2,0)="entries in the Nurs Service Position (211.3)."
^DD(211.3,5,1,2,"DT")="2960703"
^DD(211.3,5,3)="Answer must be 2-30 characters in length."
^DD(211.3,5,4)="N DIC,X S DIC=211.3,DIC(0)=""ES"",DIC(""W"")="""",D=""F"",X=""??"" D IX^DIC"
^DD(211.3,5,21,0)="^^3^3^2971009^^"
^DD(211.3,5,21,1,0)="Name of 'other service category' (i.e., RD (Registered Dietetian), RPhD"
^DD(211.3,5,21,2,0)="(Registered Pharmacist), food handler, Service Chief, Inhalation"
^DD(211.3,5,21,3,0)="Therapist, volunteer, etc.)."
^DD(211.3,5,"DT")="2971009"
^DD(211.3,6,0)="PRODUCT LINE^P212.7'^NURSF(212.7,^0;7^Q"
^DD(211.3,6,1,0)="^.1"
^DD(211.3,6,1,1,0)="211.3^P"
^DD(211.3,6,1,1,1)="S ^NURSF(211.3,""P"",$E(X,1,30),DA)="""""
^DD(211.3,6,1,1,2)="K ^NURSF(211.3,""P"",$E(X,1,30),DA)"
^DD(211.3,6,1,1,"%D",0)="^^1^1^2960710^"
^DD(211.3,6,1,1,"%D",1,0)="This is a regular cross-reference on the Product Line field."
^DD(211.3,6,1,1,"DT")="2960710"
^DD(211.3,6,21,0)="2"
^DD(211.3,6,21,1,0)="This field associates a service/program/product line to this Service"
^DD(211.3,6,21,2,0)="Position."
^DD(211.3,6,"DT")="2960710"
^DD(211.3,"B","ABBREVIATION",.01)=""
^DD(211.3,"B","AMIS POSITION",3)=""
^DD(211.3,"B","Enter Service Position title",1)="1"
^DD(211.3,"B","NAME",1)=""
^DD(211.3,"B","OTHER SERVICE CATEGORY",5)="1"
^DD(211.3,"B","PRIORITY SEQUENCE",2)=""
^DD(211.3,"B","PRODUCT LINE",6)=""
^DD(211.3,"B","SERVICE CATEGORY",4)=""
^DD(211.3,"GL",0,1,.01)=""
^DD(211.3,"GL",0,2,1)=""
^DD(211.3,"GL",0,3,2)=""
^DD(211.3,"GL",0,4,3)=""
^DD(211.3,"GL",0,5,4)=""
^DD(211.3,"GL",0,6,5)=""
^DD(211.3,"GL",0,7,6)=""
^DD(211.3,"IX",.01)=""
^DD(211.3,"IX",1)=""
^DD(211.3,"IX",2)=""
^DD(211.3,"IX",4)=""
^DD(211.3,"IX",5)=""
^DD(211.3,"IX",6)=""
^DD(211.3,"RQ",.01)=""
^DD(211.4,0)="FIELD^^37^10"
^DD(211.4,0,"DIC")="NURSAFLL"
^DD(211.4,0,"DT")="2960416"
^DD(211.4,0,"ID","WRITE")="N NUR S NUR=$G(^(""I"")) D:NUR=""I"" EN^DDIOL(""**INACTIVE**""_$E(@(DIC_""Y,0)""),0),"""",""?$X+2"")"
^DD(211.4,0,"IX","ABS",211.41,1)=""
^DD(211.4,0,"IX","ABS1",211.43,.01)=""
^DD(211.4,0,"IX","B",211.4,.01)=""
^DD(211.4,0,"IX","C",211.41,.01)=""
^DD(211.4,0,"IX","D",211.4,1)=""
^DD(211.4,0,"IX","P",211.4,.03)=""
^DD(211.4,0,"NM","NURS LOCATION")=""
^DD(211.4,0,"PT",53.69,.13)=""
^DD(211.4,0,"PT",213.51,1)=""
^DD(211.4,0,"PT",213.52,4)=""
^DD(211.4,0,"PT",214,2)=""
^DD(211.4,0,"PT",214.6,6)=""
^DD(211.4,0,"PT",727.805,12)=""
^DD(211.4,0,"VR")="4.0"
^DD(211.4,0,"VRPK")="NURSING SERVICE"
^DD(211.4,.01,0)="NAME^R*P44'O^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,22)=$O(^DIC(40.9,""""C"""",""""NU"""",0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(211.4,.01,1,0)="^.1"
^DD(211.4,.01,1,1,0)="211.4^B"
^DD(211.4,.01,1,1,1)="S ^NURSF(211.4,""B"",$E(X,1,30),DA)="""""
^DD(211.4,.01,1,1,2)="K ^NURSF(211.4,""B"",$E(X,1,30),DA)"
^DD(211.4,.01,1,1,"%D",0)="^^1^1^2950927^^"
^DD(211.4,.01,1,1,"%D",1,0)="This is the main index on the name field of the NURS Location file."
^DD(211.4,.01,2)="S Y(0)=Y S Y=$S(+Y'>0:"""",'$D(^SC(+Y,0)):"""",$P(^(0),U)?1""NUR "".E:$P($P(^(0),U),""NUR "",2),1:$P(^(0),U))"
^DD(211.4,.01,2.1)="S Y=$S(+Y'>0:"""",'$D(^SC(+Y,0)):"""",$P(^(0),U)?1""NUR "".E:$P($P(^(0),U),""NUR "",2),1:$P(^(0),U))"
^DD(211.4,.01,3)=""
^DD(211.4,.01,4)="S MSG(1)=""NOTE:  The letters NUR may be in front of the location name."",MSG(1,""F"")=""!!"",MSG(2)=""This is not to be corrected under any circumstance."",MSG(2,""F"")=""!?7"" D EN^DDIOL(.MSG) K MSG"
^DD(211.4,.01,12)="Only nursing type locations may be selected from the Hospital Location file. Editing the name of this location must be done through the Hospital Location file."
^DD(211.4,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,22)=$O(^DIC(40.9,""""C"""",""""NU"""",0))"""
^DD(211.4,.01,21,0)="^^1^1^2950927^^^^"
^DD(211.4,.01,21,1,0)="Name of the nursing location."
^DD(211.4,.01,"DEL",1,0)="I 1 D EN^DDIOL($C(7),"""",""?0"") S XQH=""NURS-LOCATION-DELETE"" D EN^XQH D EN^DDIOL("""","""",""!?5"")"
^DD(211.4,.01,"DT")="2880818"
^DD(211.4,.02,0)="FACILITY^CJ30^^ ; ^S X=$$GET1^DIQ(4,+$$GET1^DIQ(44,+$G(^NURSF(211.4,D0,0)),3,""I""),.01,""I"")"
^DD(211.4,.02,9)="^"
^DD(211.4,.02,9.01)=""
^DD(211.4,.02,9.1)="S X=$$GET1^DIQ(4,+$$GET1^DIQ(44,+$G(^NURSF(211.4,D0,0)),3,""I""),.01,""I"")"
^DD(211.4,.02,21,0)="^^2^2^2960416^^^^"
^DD(211.4,.02,21,1,0)="This field associates a nursing unit/location with a division of a medical"
^DD(211.4,.02,21,2,0)="center or facility."
^DD(211.4,.02,"DT")="2960416"
^DD(211.4,.03,0)="PRODUCT LINE^P212.7'^NURSF(212.7,^1;4^Q"
^DD(211.4,.03,1,0)="^.1"
^DD(211.4,.03,1,1,0)="211.4^P"
^DD(211.4,.03,1,1,1)="S ^NURSF(211.4,""P"",$E(X,1,30),DA)="""""
^DD(211.4,.03,1,1,2)="K ^NURSF(211.4,""P"",$E(X,1,30),DA)"
^DD(211.4,.03,1,1,"%D",0)="^^1^1^2960710^"
^DD(211.4,.03,1,1,"%D",1,0)="This is a regular cross-reference on the Product Line field."
^DD(211.4,.03,1,1,"DT")="2960710"
^DD(211.4,.03,21,0)="^^2^2^2960422^^^^"
^DD(211.4,.03,21,1,0)="This field associates a service/programs/product line with this Nursing"
^DD(211.4,.03,21,2,0)="Location."
^DD(211.4,.03,"DT")="2960710"
^DD(211.4,1,0)="PATIENT CARE FLAG^RS^A:ACTIVE;I:INACTIVE;^1;1^Q"
^DD(211.4,1,.1)="PATIENT CARE STATUS"
^DD(211.4,1,1,0)="^.1"
^DD(211.4,1,1,1,0)="211.4^D"
^DD(211.4,1,1,1,1)="S ^NURSF(211.4,""D"",$E(X,1,30),DA)="""""
^DD(211.4,1,1,1,2)="K ^NURSF(211.4,""D"",$E(X,1,30),DA)"
^DD(211.4,1,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(211.4,1,1,1,"%D",1,0)="This is an index on the 'Patient Care Status' field and indicates the"
^DD(211.4,1,1,1,"%D",2,0)="active or inactive patient care status of the nursing location."
^DD(211.4,1,3)=""
^DD(211.4,1,4)="S:X?1""??"".E X=""?"" S XQH=""NURS-PATIENT FLAG"" D EN^XQH K XQH Q"
^DD(211.4,1,21,0)="^^3^3^2910207^^^^"
^DD(211.4,1,21,1,0)="This field determines if this location is for patient care.  ACTIVE denotes"
^DD(211.4,1,21,2,0)="that this is a patient care location, and INACTIVE denotes that this is not"
^DD(211.4,1,21,3,0)="a patient care location."
^DD(211.4,1,"DT")="2870526"
^DD(211.4,1.5,0)="INACTIVE FLAG^SX^A:ACTIVE;I:**INACTIVE**;^I;1^D CHKSTAT^NURSUT1 K:$G(NURSTAT) X K NURSTAT,NURACTV"
^DD(211.4,1.5,.1)="WARD STATUS"
^DD(211.4,1.5,3)=""
^DD(211.4,1.5,4)="S:X?1""??"".E X=""?"" S XQH=""NURS-INACTIVE FLAG"" D EN^XQH K XQH Q"
^DD(211.4,1.5,21,0)="^^2^2^2970409^"
^DD(211.4,1.5,21,1,0)="This field flags whether this location is associated with active FTEE in"
^DD(211.4,1.5,21,2,0)="the Nursing Package."
^DD(211.4,1.5,"DT")="2970211"
^DD(211.4,2,0)="MAS WARD^211.41IP^^3;0"
^DD(211.4,2,21,0)="^^2^2^2950927^^^^"
^DD(211.4,2,21,1,0)="Pointer to the WARD LOCATION (#42) file represents the MAS equivalent of"
^DD(211.4,2,21,2,0)="a NURSING LOCATION."
^DD(211.4,4,0)="AMIS BED SECTION^211.43PA^^4;0"
^DD(211.4,4,21,0)="^^2^2^2970226^^^^"
^DD(211.4,4,21,1,0)="Pointer to the #213.3 file. This field assigns one or more bed sections per"
^DD(211.4,4,21,2,0)="NURS LOCATION."
^DD(211.4,11,0)="PROFESSIONAL PERCENTAGE^NJ3,0^^1;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(211.4,11,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(211.4,11,21,0)="^^2^2^2950927^^^^"
^DD(211.4,11,21,1,0)="This number indicates the percentage of professional nursing personnel"
^DD(211.4,11,21,2,0)="assigned to a unit."
^DD(211.4,11,"DT")="2900618"
^DD(211.4,12,0)="UNIT EXPERIENCE^P211.5'^NURSF(211.5,^1;3^Q"
^DD(211.4,12,21,0)="^^4^4^2960416^^^^"
^DD(211.4,12,21,1,0)="This field contains the clinical background that is associated with this"
^DD(211.4,12,21,2,0)="location.  The data in this field is used by the Nursing Acuity/Separation-"
^DD(211.4,12,21,3,0)="Activation Run to update the professional experience field of the NURS"
^DD(211.4,12,21,4,0)="Staff (#210) file."
^DD(211.4,12,21,5,0)="no longer active into the experience field of the NURS Staff (#210) file."
^DD(211.4,12,"DT")="2960416"
^DD(211.4,37,0)="STAFF FLAG^CJ8^^ ; ^S Y=+$G(^NURSF(211.4,D0,0)),X=$S(+$$LOCSTAT^NURSUT1(Y):""YES"",1:""NO"")"
^DD(211.4,37,9)="^"
^DD(211.4,37,9.01)=""
^DD(211.4,37,9.1)="S Y=+$G(^NURSF(211.4,D0,0)),X=$S(+$$LOCSTAT^NURSUT1(Y):""YES"",1:""NO"")"
^DD(211.4,37,21,0)="^^2^2^2970303^^"
^DD(211.4,37,21,1,0)=" This field indicates weather or not active staff members are assigned to"
^DD(211.4,37,21,2,0)="the nursing location."
^DD(211.4,"B","AMIS BED SECTION",4)=""
^DD(211.4,"B","FACILITY",.02)=""
^DD(211.4,"B","INACTIVE FLAG",1.5)=""
^DD(211.4,"B","MAS WARD",2)=""
^DD(211.4,"B","NAME",.01)=""
^DD(211.4,"B","PATIENT CARE FLAG",1)=""
^DD(211.4,"B","PATIENT CARE STATUS",1)="1"
^DD(211.4,"B","PRODUCT LINE",.03)=""
^DD(211.4,"B","PROFESSIONAL PERCENTAGE",11)=""
^DD(211.4,"B","STAFF FLAG",37)=""
^DD(211.4,"B","UNIT EXPERIENCE",12)=""
^DD(211.4,"B","WARD STATUS",1.5)="1"
^DD(211.4,"GL",0,1,.01)=""
^DD(211.4,"GL",1,1,1)=""
^DD(211.4,"GL",1,2,11)=""
^DD(211.4,"GL",1,3,12)=""
^DD(211.4,"GL",1,4,.03)=""
^DD(211.4,"GL",3,0,2)=""
^DD(211.4,"GL",4,0,4)=""
^DD(211.4,"GL","I",1,1.5)=""
^DD(211.4,"IX",.01)=""
^DD(211.4,"IX",.03)=""
^DD(211.4,"IX",1)=""
^DD(211.4,"RQ",.01)=""
^DD(211.4,"RQ",1)=""
^DD(211.4,"SB",211.41,2)=""
^DD(211.4,"SB",211.43,4)=""
^DD(211.41,0)="MAS WARD SUB-FIELD^^1^2"
^DD(211.41,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^NURSF(213.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(213.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(211.41,0,"NM","MAS WARD")=""
^DD(211.41,0,"UP")="211.4"
^DD(211.41,.01,0)="MAS WARD^MP42'^DIC(42,^0;1^Q"
^DD(211.41,.01,1,0)="^.1"
^DD(211.41,.01,1,1,0)="211.4^C"
^DD(211.41,.01,1,1,1)="S ^NURSF(211.4,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(211.41,.01,1,1,2)="K ^NURSF(211.4,""C"",$E(X,1,30),DA(1),DA)"
^DD(211.41,.01,1,1,"%D",0)="^^2^2^2950927^^"
^DD(211.41,.01,1,1,"%D",1,0)="This is an index on the 'MAS Ward' field which lists ward locations"
^DD(211.41,.01,1,1,"%D",2,0)="that are associated with the nursing location."
^DD(211.41,.01,3)=""
^DD(211.41,.01,21,0)="^^2^2^2950927^^^^"
^DD(211.41,.01,21,1,0)="Pointer to WARD LOCATION (#42) file represents the MAS equivalent of a "
^DD(211.41,.01,21,2,0)="NURSING LOCATION."
^DD(211.41,.01,"DT")="2870416"
^DD(211.41,1,0)="AMIS BED SECTION^*P213.3'^NURSF(213.3,^0;2^S DIC(""S"")=""I $D(^NURSF(211.4,""""ABS"""",+Y,DA(1),4))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(211.41,1,.1)="MAS BED SECTION"
^DD(211.41,1,1,0)="^.1"
^DD(211.41,1,1,1,0)="211.4^ABS^MUMPS"
^DD(211.41,1,1,1,1)="S ^NURSF(211.4,""ABS"",X,DA(1),3,DA)="""""
^DD(211.41,1,1,1,2)="K ^NURSF(211.4,""ABS"",X,DA(1),3,DA)"
^DD(211.41,1,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(211.41,1,1,1,"%D",1,0)="This mumps index identifies the nursing AMIS bedsection that has been"
^DD(211.41,1,1,1,"%D",2,0)="associated with this MAS ward location."
^DD(211.41,1,3)=""
^DD(211.41,1,8.5)="^"
^DD(211.41,1,9)="^"
^DD(211.41,1,12)="Select AMIS bed sections that are only in the AMIS bed section multiple for this location."
^DD(211.41,1,12.1)="S DIC(""S"")=""I $D(^NURSF(211.4,""""ABS"""",+Y,DA(1),4))"""
^DD(211.41,1,21,0)="^^2^2^2950224^^^^"
^DD(211.41,1,21,1,0)="The nursing AMIS bedsection that corresponds to this MAS ward for this"
^DD(211.41,1,21,2,0)="nursing location."
^DD(211.41,1,"DT")="2891107"
^DD(211.41,"B","AMIS BED SECTION",1)=""
^DD(211.41,"B","MAS BED SECTION",1)="1"
^DD(211.41,"B","MAS WARD",.01)=""
^DD(211.41,"GL",0,1,.01)=""
^DD(211.41,"GL",0,2,1)=""
^DD(211.41,"IX",.01)=""
^DD(211.41,"IX",1)=""
^DD(211.43,0)="AMIS BED SECTION SUB-FIELD^NL^.01^1"
^DD(211.43,0,"NM","AMIS BED SECTION")=""
^DD(211.43,0,"UP")="211.4"
^DD(211.43,.01,0)="AMIS BED SECTION^MP213.3'^NURSF(213.3,^0;1^Q"
^DD(211.43,.01,.1)=""
^DD(211.43,.01,1,0)="^.1"
^DD(211.43,.01,1,1,0)="211.4^ABS1^MUMPS"
^DD(211.43,.01,1,1,1)="S ^NURSF(211.4,""ABS"",X,DA(1),4,DA)="""""
^DD(211.43,.01,1,1,2)="K ^NURSF(211.4,""ABS"",X,DA(1),4,DA)"
^DD(211.43,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(211.43,.01,1,1,"%D",1,0)="This mumps index indicates the nursing AMIS bedsection that has been"
^DD(211.43,.01,1,1,"%D",2,0)="associated with this nursing location."
^DD(211.43,.01,3)=""
^DD(211.43,.01,4)=""
^DD(211.43,.01,21,0)="^^2^2^2910920^^^^"
^DD(211.43,.01,21,1,0)="Name of the Nursing 'AMIS bed section' to which a ward/unit is assigned."
^DD(211.43,.01,21,2,0)="Points to NURS AMIS WARD FILE (213.3)."
^DD(211.43,.01,"DT")="2881021"
^DD(211.43,"B","AMIS BED SECTION",.01)=""
^DD(211.43,"GL",0,1,.01)=""
^DD(211.43,"IX",.01)=""
^DD(211.5,0)="FIELD^NL^.01^1"
^DD(211.5,0,"IX","B",211.5,.01)=""
^DD(211.5,0,"NM","NURS CLINICAL BACKGROUND")=""
^DD(211.5,0,"PT",211.4,12)=""
^DD(211.5,0,"VR")="4.0"
^DD(211.5,0,"VRPK")="NURSING SERVICE"
^DD(211.5,.01,0)="DESCRIPTION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(211.5,.01,.1)="Description"
^DD(211.5,.01,1,0)="^.1"
^DD(211.5,.01,1,1,0)="211.5^B"
^DD(211.5,.01,1,1,1)="S ^NURSF(211.5,""B"",$E(X,1,30),DA)="""""
^DD(211.5,.01,1,1,2)="K ^NURSF(211.5,""B"",$E(X,1,30),DA)"
^DD(211.5,.01,1,1,"%D",0)="^^3^3^2950927^^^^"
^DD(211.5,.01,1,1,"%D",1,0)="This is the main index on the NURS Clinical Background file and lists"
^DD(211.5,.01,1,1,"%D",2,0)="the entries in the description field (i.e., descriptions of professional"
^DD(211.5,.01,1,1,"%D",3,0)="experience)."
^DD(211.5,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(211.5,.01,21,0)="^^1^1^2920218^^^^"
^DD(211.5,.01,21,1,0)="Area of professional experience."
^DD(211.5,"B","DESCRIPTION",.01)=""
^DD(211.5,"B","Description",.01)="1"
^DD(211.5,"GL",0,1,.01)=""
^DD(211.5,"IX",.01)=""
^DD(211.5,"RQ",.01)=""
^DD(211.6,0)="FIELD^^1^2"
^DD(211.6,0,"DDA")="N"
^DD(211.6,0,"DT")="2910522"
^DD(211.6,0,"IX","B",211.6,.01)=""
^DD(211.6,0,"NM","NURS TOUR OF DUTY")=""
^DD(211.6,0,"PT",211.82,7)=""
^DD(211.6,0,"PT",615.2,.06)=""
^DD(211.6,0,"VR")="4.0"
^DD(211.6,0,"VRPK")="NURSING SERVICE"
^DD(211.6,.01,0)="TOUR OF DUTY^F^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(211.6,.01,1,0)="^.1"
^DD(211.6,.01,1,1,0)="211.6^B"
^DD(211.6,.01,1,1,1)="S ^NURSF(211.6,""B"",$E(X,1,30),DA)="""""
^DD(211.6,.01,1,1,2)="K ^NURSF(211.6,""B"",$E(X,1,30),DA)"
^DD(211.6,.01,1,1,"%D",0)="^^2^2^2950927^^^^"
^DD(211.6,.01,1,1,"%D",1,0)="This is the main index on the NURS Tour of Duty file which lists the tour"
^DD(211.6,.01,1,1,"%D",2,0)="of duty times."
^DD(211.6,.01,3)="Answer must be 3-30 characters in length."
^DD(211.6,.01,21,0)="^^1^1^2920114^^^^"
^DD(211.6,.01,21,1,0)="Time of specific tour of duty."
^DD(211.6,.01,"DT")="2910522"
^DD(211.6,1,0)="MEAL INDICATOR^S^Y:YES;N:NO;^0;2^Q"
^DD(211.6,1,21,0)="^^2^2^2851219^^"
^DD(211.6,1,21,1,0)="Indicates whether or not a meal time factor has been included in the"
^DD(211.6,1,21,2,0)="tour of duty. ""Yes"" = a meal time has been provided ."
^DD(211.6,"B","MEAL INDICATOR",1)=""
^DD(211.6,"B","TOUR OF DUTY",.01)=""
^DD(211.6,"GL",0,1,.01)=""
^DD(211.6,"GL",0,2,1)=""
^DD(211.6,"IX",.01)=""
^DD(211.7,0)="FIELD^^2^3"
^DD(211.7,0,"DDA")="N"
^DD(211.7,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(211.7,0,"IX","B",211.7,.01)=""
^DD(211.7,0,"NM","NURS AMIS POSITION")=""
^DD(211.7,0,"PT",211.3,3)=""
^DD(211.7,0,"VR")="4.0"
^DD(211.7,0,"VRPK")="NURSING SERVICE"
^DD(211.7,.01,0)="AMIS NUMBER^RFI^^0;1^K:$L(X)>30!($L(X)<0) X"
^DD(211.7,.01,1,0)="^.1"
^DD(211.7,.01,1,1,0)="211.7^B"
^DD(211.7,.01,1,1,1)="S ^NURSF(211.7,""B"",$E(X,1,30),DA)="""""
^DD(211.7,.01,1,1,2)="K ^NURSF(211.7,""B"",$E(X,1,30),DA)"
^DD(211.7,.01,1,1,"%D",0)="^^2^2^2950927^^^^"
^DD(211.7,.01,1,1,"%D",1,0)="This is the main index on the NURS AMIS Position file which lists the"
^DD(211.7,.01,1,1,"%D",2,0)="AMIS number entries."
^DD(211.7,.01,3)="ANSWER MUST BE 0-30 CHARACTERS IN LENGTH"
^DD(211.7,.01,8.5)="^"
^DD(211.7,.01,9)="^"
^DD(211.7,.01,21,0)="^^2^2^2851230^"
^DD(211.7,.01,21,1,0)="A field number related to staffing positions contained on the "
^DD(211.7,.01,21,2,0)="VAF 10-1106b (AMIS)."
^DD(211.7,1,0)="AMIS DESCRIPTION^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(211.7,1,1,0)="^.1^^0"
^DD(211.7,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(211.7,1,21,0)="^^1^1^2890525^^"
^DD(211.7,1,21,1,0)="Name of specific staffing position contained on VAF 10-1106b (AMIS)."
^DD(211.7,2,0)="PRIORITY^RNJ2,0I^^0;3^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(211.7,2,3)="Type a Number between 1 and 15, 0 Decimal Digits"
^DD(211.7,2,21,0)="^^2^2^2950324^^^^"
^DD(211.7,2,21,1,0)="This field is used by the Nursing Package to determine levels of security"
^DD(211.7,2,21,2,0)="access to nursing data."
^DD(211.7,2,"DT")="2871110"
^DD(211.7,"B","AMIS DESCRIPTION",1)=""
^DD(211.7,"B","AMIS NUMBER",.01)=""
^DD(211.7,"B","PRIORITY",2)=""
^DD(211.7,"GL",0,1,.01)=""
^DD(211.7,"GL",0,2,1)=""
^DD(211.7,"GL",0,3,2)=""
^DD(211.7,"IX",.01)=""
^DD(211.7,"RQ",.01)=""
^DD(211.7,"RQ",1)=""
^DD(211.7,"RQ",2)=""
^DD(211.8,0)="FIELD^^3^5"
^DD(211.8,0,"DDA")="N"
^DD(211.8,0,"DT")="2960409"
^DD(211.8,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(211.8,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(211.8,0,"IX","AA1",211.8,.01)=""
^DD(211.8,0,"IX","AA2",211.8,.02)=""
^DD(211.8,0,"IX","AD",211.82,.03)=""
^DD(211.8,0,"IX","ADAE",211.82,.02)=""
^DD(211.8,0,"IX","AE",211.82,6)=""
^DD(211.8,0,"IX","ASDT",211.82,.01)=""
^DD(211.8,0,"IX","ASDT1",211.82,.02)=""
^DD(211.8,0,"IX","B",211.8,.01)=""
^DD(211.8,0,"IX","C",211.82,.02)=""
^DD(211.8,0,"IX","SC",211.8,.02)=""
^DD(211.8,0,"NM","NURS POSITION CONTROL")=""
^DD(211.8,0,"VR")="4.0"
^DD(211.8,0,"VRPK")="NURSING SERVICE"
^DD(211.8,.01,0)="LOCATION^R*P44'X^SC(^0;1^S:$D(NURSHLIT) @NURSHLIT K DIC(""S"") S:$D(NURSHFLS) DIC(""S"")=NURSHFLS D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(211.8,.01,1,0)="^.1"
^DD(211.8,.01,1,1,0)="211.8^B"
^DD(211.8,.01,1,1,1)="S ^NURSF(211.8,""B"",$E(X,1,30),DA)="""""
^DD(211.8,.01,1,1,2)="K ^NURSF(211.8,""B"",$E(X,1,30),DA)"
^DD(211.8,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(211.8,.01,1,1,"%D",1,0)="This is the main index on the NURS Position Control file which lists"
^DD(211.8,.01,1,1,"%D",2,0)="nursing locations in the Hospital Location file."
^DD(211.8,.01,1,2,0)="211.8^AA1^MUMPS"
^DD(211.8,.01,1,2,1)="S NUR=$S($D(^NURSF(211.8,DA,0)):^(0),1:"""") S:$P(NUR,""^"",2)'="""" ^NURSF(211.8,""AA"",X,$P(NUR,""^"",2),DA)="""" K NUR"
^DD(211.8,.01,1,2,2)="S NUR=$S($D(^NURSF(211.8,DA,0)):^(0),1:"""") K:$P(NUR,""^"",2)'="""" ^NURSF(211.8,""AA"",X,$P(NUR,""^"",2),DA) K NUR"
^DD(211.8,.01,1,2,"%D",0)="^^2^2^2950927^^"
^DD(211.8,.01,1,2,"%D",1,0)="This is a mumps index on the Position Control file which indicates the"
^DD(211.8,.01,1,2,"%D",2,0)="location and service category associated with the location."
^DD(211.8,.01,3)=""
^DD(211.8,.01,12)="Screen for different applications to get appropriate locations."
^DD(211.8,.01,12.1)="K DIC(""S"") S:$D(NURSHFLS) DIC(""S"")=NURSHFLS"
^DD(211.8,.01,21,0)="^^1^1^2900315^^^^"
^DD(211.8,.01,21,1,0)="Nursing location for this budgeted FTEE."
^DD(211.8,.01,"DT")="2900403"
^DD(211.8,.02,0)="SERVICE CATEGORY^RS^R:REGISTERED NURSE;L:LICENSED PRACTICAL NURSE;N:NURSE ASSISTANT;C:CLERICAL;O:OTHER;S:SUMMER EMPLOYEE;A:ADMIN;^0;2^Q"
^DD(211.8,.02,1,0)="^.1"
^DD(211.8,.02,1,1,0)="211.8^AA2^MUMPS"
^DD(211.8,.02,1,1,1)="S NUR=$S($D(^NURSF(211.8,DA,0)):^(0),1:"""") S:$P(NUR,""^"")'="""" ^NURSF(211.8,""AA"",$P(NUR,""^""),X,DA)="""" K NUR"
^DD(211.8,.02,1,1,2)="S NUR=$S($D(^NURSF(211.8,DA,0)):^(0),1:"""") K:$P(NUR,""^"")'="""" ^NURSF(211.8,""AA"",$P(NUR,""^""),X,DA) K NUR"
^DD(211.8,.02,1,1,"%D",0)="^^2^2^2950224^"
^DD(211.8,.02,1,1,"%D",1,0)="This mumps index indicates the location and the nursing service category"
^DD(211.8,.02,1,1,"%D",2,0)="associated with the location."
^DD(211.8,.02,1,2,0)="211.8^SC"
^DD(211.8,.02,1,2,1)="S ^NURSF(211.8,""SC"",$E(X,1,30),DA)="""""
^DD(211.8,.02,1,2,2)="K ^NURSF(211.8,""SC"",$E(X,1,30),DA)"
^DD(211.8,.02,1,2,"%D",0)="^^2^2^2950224^^^"
^DD(211.8,.02,1,2,"%D",1,0)="This is a mumps index on the 'Service Category' field which indicates"
^DD(211.8,.02,1,2,"%D",2,0)="the service category associated with each location."
^DD(211.8,.02,21,0)="^^1^1^2950324^^^^"
^DD(211.8,.02,21,1,0)="Service category for this location (e.g., RN, LPN, NA)."
^DD(211.8,.02,"DT")="2911125"
^DD(211.8,1,0)="BUDGETED FTEE^CJ8,3^^ ; ^S X=+$$BUDCAT^NURSUT1(D0) S X=$J(X,0,3)"
^DD(211.8,1,3)="Type a Number between 0 and 999.999, 3 Decimal Digits"
^DD(211.8,1,9)="^"
^DD(211.8,1,9.01)=""
^DD(211.8,1,9.1)="S X=+$$BUDCAT^NURSUT1(D0)"
^DD(211.8,1,21,0)="^^3^3^2970611^^^^"
^DD(211.8,1,21,1,0)=" This field contains the computed value of the budgeted service category"
^DD(211.8,1,21,2,0)=" FTEE for this location based on the budgeted service position FTEE that has"
^DD(211.8,1,21,3,0)=" been entered for this location."
^DD(211.8,1,"DT")="2970609"
^DD(211.8,2,0)="OCCUPANCY/TRANSFERRED DATE^211.82ID^^1;0"
^DD(211.8,2,21,0)="^^1^1^2960422^^^^"
^DD(211.8,2,21,1,0)="Date this FTEE was/or will be occupied or transferred."
^DD(211.8,3,0)="POSITION BUDGETED^211.83P^^2;0"
^DD(211.8,3,21,0)="^^1^1^2950224^^^^"
^DD(211.8,3,21,1,0)="Indicate the service position to be budgeted within this category."
^DD(211.8,"B","BUDGETED FTEE",1)=""
^DD(211.8,"B","LOCATION",.01)=""
^DD(211.8,"B","OCCUPANCY/TRANSFERRED DATE",2)=""
^DD(211.8,"B","POSITION BUDGETED",3)=""
^DD(211.8,"B","SERVICE CATEGORY",.02)=""
^DD(211.8,"GL",0,1,.01)=""
^DD(211.8,"GL",0,2,.02)=""
^DD(211.8,"GL",1,0,2)=""
^DD(211.8,"GL",2,0,3)=""
^DD(211.8,"IX",.01)=""
^DD(211.8,"IX",.02)=""
^DD(211.8,"RQ",.01)=""
^DD(211.8,"RQ",.02)=""
^DD(211.8,"SB",211.82,2)=""
^DD(211.8,"SB",211.83,3)=""
^DD(211.82,0)="OCCUPANCY/TRANSFERRED DATE SUB-FIELD^^8^11"
^DD(211.82,0,"DT")="2960409"
^DD(211.82,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(211.82,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^NURSF(211.3,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(211.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(211.82,0,"IX","AA1",211.82,.01)=""
^DD(211.82,0,"IX","AA2",211.82,.02)=""
^DD(211.82,0,"IX","AA3",211.82,.03)=""
^DD(211.82,0,"IX","APE",211.82,.03)=""
^DD(211.82,0,"IX","ASD1",211.82,.01)=""
^DD(211.82,0,"IX","ASD2",211.82,3)=""
^DD(211.82,0,"IX","ASD3",211.82,5)=""
^DD(211.82,0,"IX","B",211.82,.01)=""
^DD(211.82,0,"IX","C",211.82,.02)=""
^DD(211.82,0,"NM","OCCUPANCY/TRANSFERRED DATE")=""
^DD(211.82,0,"UP")="211.8"
^DD(211.82,.01,0)="START/TRANSFER DATE^MRDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S NUR(0)=$P($G(^NURSF(211.8,DA(1),0)),""^"",1,2)_""^""_X_""^""_$S($D(^NURSF(211.8,DA(1),1,DA,0)):$P(^(0),""^"",2,10),1:"""") D EN3^NURSUT2 K:NURSBAD X D EN4^NURSUT3"
^DD(211.82,.01,1,0)="^.1"
^DD(211.82,.01,1,1,0)="211.82^B"
^DD(211.82,.01,1,1,1)="S ^NURSF(211.8,DA(1),1,""B"",X,DA)="""""
^DD(211.82,.01,1,1,2)="K ^NURSF(211.8,DA(1),1,""B"",X,DA)"
^DD(211.82,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(211.82,.01,1,1,"%D",1,0)="This is the main index on the 'Start/Transfer Date' field of the"
^DD(211.82,.01,1,1,"%D",2,0)="Occupancy/Transferred Date subfile."
^DD(211.82,.01,1,2,0)="211.82^ASD1^MUMPS"
^DD(211.82,.01,1,2,1)="S NUR="".01^1"" D EN1^NURSUT1"
^DD(211.82,.01,1,2,2)="S NUR="".01^0"" D EN1^NURSUT1"
^DD(211.82,.01,1,2,"%D",0)="2^^2^2^2950927^^^^"
^DD(211.82,.01,1,2,"%D",1,0)="This is a mumps index that identifies entries for activation"
^DD(211.82,.01,1,2,"%D",2,0)="to the Nursing Acuity/Separation-Activation Run."
^DD(211.82,.01,1,3,0)="211.8^ASDT^MUMPS"
^DD(211.82,.01,1,3,1)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") S:$P(NUR,""^"",2) ^NURSF(211.8,""ASDT"",$P(NUR,""^"",2),X,DA(1),DA)="""" K NUR"
^DD(211.82,.01,1,3,2)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") K:$P(NUR,""^"",2) ^NURSF(211.8,""ASDT"",$P(NUR,""^"",2),X,DA(1),DA) K NUR"
^DD(211.82,.01,1,3,"%D",0)="^^2^2^2950224^"
^DD(211.82,.01,1,3,"%D",1,0)="This mumps index is used to identify the starting date of all employee"
^DD(211.82,.01,1,3,"%D",2,0)="assignments."
^DD(211.82,.01,1,4,0)="211.82^AA1^MUMPS"
^DD(211.82,.01,1,4,1)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") S:$P(NUR,""^"",2)&$P(NUR,""^"",3) ^NURSF(211.8,DA(1),1,""AA"",$P(NUR,""^"",2),X,$P(NUR,""^"",3),DA)="""" K NUR"
^DD(211.82,.01,1,4,2)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") K:$P(NUR,""^"",2)&$P(NUR,""^"",3) ^NURSF(211.8,DA(1),1,""AA"",$P(NUR,""^"",2),X,$P(NUR,""^"",3),DA) K NUR"
^DD(211.82,.01,1,4,"%D",0)="^^2^2^2950224^"
^DD(211.82,.01,1,4,"%D",1,0)="This mumps index identifies the employee, start/transfer date, and service"
^DD(211.82,.01,1,4,"%D",2,0)="position associated with each position control entry."
^DD(211.82,.01,8.5)="D"
^DD(211.82,.01,21,0)="^^1^1^2950324^^^^"
^DD(211.82,.01,21,1,0)="Indicate the start/transfer date for this position."
^DD(211.82,.01,"DT")="2911109"
^DD(211.82,.01,"LAYGO",1,0)="D:'$D(NURSNPOS) EN^DDIOL($C(7)_""ENTRIES MUST BE ADDED VIA THE STATUS AND POSITION OPTION"","""",""!?5"") I $D(NURSNPOS)"
^DD(211.82,.02,0)="EMPLOYEE^RP200'I^VA(200,^0;2^Q"
^DD(211.82,.02,1,0)="^.1"
^DD(211.82,.02,1,1,0)="211.8^C^MUMPS"
^DD(211.82,.02,1,1,1)="S ^NURSF(211.8,""C"",X,DA(1),DA)="""",NUR=.03 D EN1^NURSUT1"
^DD(211.82,.02,1,1,2)="K ^NURSF(211.8,""C"",X,DA(1),DA)"
^DD(211.82,.02,1,1,"%D",0)="2"
^DD(211.82,.02,1,1,"%D",1,0)="This mumps index identifies the employee associated with each position"
^DD(211.82,.02,1,1,"%D",2,0)="control entry."
^DD(211.82,.02,1,2,0)="211.82^C"
^DD(211.82,.02,1,2,1)="S ^NURSF(211.8,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(211.82,.02,1,2,2)="K ^NURSF(211.8,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(211.82,.02,1,2,"%D",0)="^^1^1^2950224^"
^DD(211.82,.02,1,2,"%D",1,0)="This mumps index identifies the employees assigned to a location."
^DD(211.82,.02,1,3,0)="211.8^ADAE^MUMPS"
^DD(211.82,.02,1,3,1)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") D EN4^NURSUT0"
^DD(211.82,.02,1,3,2)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") D EN5^NURSUT0"
^DD(211.82,.02,1,3,"%D",0)="^^2^2^2950224^"
^DD(211.82,.02,1,3,"%D",1,0)="This mumps index identifies the primary service position and primary"
^DD(211.82,.02,1,3,"%D",2,0)="assigment for an employee."
^DD(211.82,.02,1,4,0)="211.8^ASDT1^MUMPS"
^DD(211.82,.02,1,4,1)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") S:$P(NUR,""^"") ^NURSF(211.8,""ASDT"",X,$P(NUR,""^""),DA(1),DA)="""" K NUR"
^DD(211.82,.02,1,4,2)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") K:$P(NUR,""^"") ^NURSF(211.8,""ASDT"",X,$P(NUR,""^""),DA(1),DA) K NUR"
^DD(211.82,.02,1,4,"%D",0)="^^2^2^2950927^^^"
^DD(211.82,.02,1,4,"%D",1,0)="This mumps index identifies entries that are to be activated by the Nursing"
^DD(211.82,.02,1,4,"%D",2,0)="Acuity/Separation-Activation Run."
^DD(211.82,.02,1,5,0)="211.82^AA2^MUMPS"
^DD(211.82,.02,1,5,1)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") S:$P(NUR,""^"")&$P(NUR,""^"",3) ^NURSF(211.8,DA(1),1,""AA"",X,$P(NUR,""^""),$P(NUR,""^"",3),DA)="""" K NUR"
^DD(211.82,.02,1,5,2)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") K:$P(NUR,""^"")&$P(NUR,""^"",3) ^NURSF(211.8,DA(1),1,""AA"",X,$P(NUR,""^""),$P(NUR,""^"",3),DA) K NUR"
^DD(211.82,.02,1,5,"%D",0)="^^2^2^2950224^"
^DD(211.82,.02,1,5,"%D",1,0)="This mumps index identifies position control file entries by employee,"
^DD(211.82,.02,1,5,"%D",2,0)="start/transfer date, and service position."
^DD(211.82,.02,9)="^"
^DD(211.82,.02,21,0)="^^1^1^2900515^^^^"
^DD(211.82,.02,21,1,0)="The employee who is/will be assigned this FTEE."
^DD(211.82,.02,"DT")="2900817"
^DD(211.82,.03,0)="SERVICE POSITION^R*P211.3'^NURSF(211.3,^0;3^S DIC(""S"")=""I $P(^NURSF(211.8,DA(1),0),U,2)=""""""""!($P(^NURSF(211.3,+Y,0),U,5)=$P(^NURSF(211.8,DA(1),0),U,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(211.82,.03,1,0)="^.1"
^DD(211.82,.03,1,1,0)="211.8^AD^MUMPS"
^DD(211.82,.03,1,1,1)="S NUR=$S($P(^NURSF(211.8,DA(1),1,DA,0),""^"",2):$P(^(0),""^"",2),1:"""") S:+NUR ^NURSF(211.8,""AD"",NUR,$E(X,1,30),DA(1),DA)="""" K NUR"
^DD(211.82,.03,1,1,2)="S NUR=$S($P(^NURSF(211.8,DA(1),1,DA,0),""^"",2):$P(^(0),""^"",2),1:"""") K:+NUR ^NURSF(211.8,""AD"",NUR,$E(X,1,30),DA(1),DA) K NUR"
^DD(211.82,.03,1,1,"%D",0)="^^2^2^2950324^^"
^DD(211.82,.03,1,1,"%D",1,0)="This mumps index identifies position control entries by employee, and"
^DD(211.82,.03,1,1,"%D",2,0)="service position."
^DD(211.82,.03,1,2,0)="211.82^AA3^MUMPS"
^DD(211.82,.03,1,2,1)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") S:$P(NUR,""^"")&$P(NUR,""^"",2) ^NURSF(211.8,DA(1),1,""AA"",$P(NUR,""^"",2),$P(NUR,""^""),X,DA)="""" K NUR"
^DD(211.82,.03,1,2,2)="S NUR=$S($D(^NURSF(211.8,DA(1),1,DA,0)):^(0),1:"""") K:$P(NUR,""^"")&$P(NUR,""^"",2) ^NURSF(211.8,DA(1),1,""AA"",$P(NUR,""^"",2),$P(NUR,""^""),X,DA) K NUR"
^DD(211.82,.03,1,2,"%D",0)="^^2^2^2950224^"
^DD(211.82,.03,1,2,"%D",1,0)="This mumps index identifies position control entries by start/transfer date,"
^DD(211.82,.03,1,2,"%D",2,0)="employee, and service position."
^DD(211.82,.03,1,3,0)="211.82^APE^MUMPS"
^DD(211.82,.03,1,3,1)="S NUR(""PE"")="".03^1"" D EN1^NURSAPE0"
^DD(211.82,.03,1,3,2)="S NUR(""PE"")="".03^0"" D EN1^NURSAPE0"
^DD(211.82,.03,1,3,"%D",0)="^^2^2^2950927^^^"
^DD(211.82,.03,1,3,"%D",1,0)="This mumps xref is used to update the experience multiple in the staff"
^DD(211.82,.03,1,3,"%D",2,0)="file by the Nursing Acuity/Separation-Activation Run."
^DD(211.82,.03,12)="Select service positions with the appropriate service category."
^DD(211.82,.03,12.1)="S DIC(""S"")=""I $P(^NURSF(211.8,DA(1),0),U,2)=""""""""!($P(^NURSF(211.3,+Y,0),U,5)=$P(^NURSF(211.8,DA(1),0),U,2))"""
^DD(211.82,.03,21,0)="^^1^1^2900402^^"
^DD(211.82,.03,21,1,0)="Type of position this employee is filling."
^DD(211.82,.03,"DT")="2901015"
^DD(211.82,1,0)="FTEE^RNJ4,3X^^0;4^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""4N.N) X"
^DD(211.82,1,3)="Type a Number between 0 and 1, 3 Decimal Digits"
^DD(211.82,1,21,0)="^^1^1^2950427^^^^"
^DD(211.82,1,21,1,0)="The amount of FTEE assigned to this employee for this position."
^DD(211.82,1,"DT")="2950427"
^DD(211.82,2,0)="PRODUCT LINE^CJ30^^ ; ^S DA(1)=D0,DA=D1 S X=$$GET1^DIQ(211.3,+$P($G(^NURSF(211.8,DA(1),1,DA,0)),U,3),6)"
^DD(211.82,2,.1)=""
^DD(211.82,2,9)="^"
^DD(211.82,2,9.01)=""
^DD(211.82,2,9.1)="S DA(1)=D0,DA=D1 S X=$$GET1^DIQ(211.3,+$P($G(^NURSF(211.8,DA(1),1,DA,0)),U,3),6)"
^DD(211.82,2,21,0)="^^2^2^2960422^^^^"
^DD(211.82,2,21,1,0)="This field is a computed field displaying the service/program/product"
^DD(211.82,2,21,2,0)="line associated with this position."
^DD(211.82,2,"DT")="2960416"
^DD(211.82,3,0)="VACANCY DATE^DX^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) D EN1^NURSUT3"
^DD(211.82,3,1,0)="^.1"
^DD(211.82,3,1,1,0)="211.82^ASD2^MUMPS"
^DD(211.82,3,1,1,1)="S NUR=""3^1"" D EN1^NURSUT1"
^DD(211.82,3,1,1,2)="S NUR=""3^0"" D EN1^NURSUT1"
^DD(211.82,3,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(211.82,3,1,1,"%D",1,0)="This mumps index is used to identify entries that are to be deactivated by"
^DD(211.82,3,1,1,"%D",2,0)="the Nursing Acuity/Separation-Activation Run."
^DD(211.82,3,21,0)="^^1^1^2950224^^^^"
^DD(211.82,3,21,1,0)="Date this FTEE will be/is vacant."
^DD(211.82,3,"DT")="2911109"
^DD(211.82,4,0)="TRANSFER TO^F^^0;7^K:$L(X)>30!($L(X)<2) X"
^DD(211.82,4,3)="Answer must be 2-30 characters in length."
^DD(211.82,4,21,0)="^^2^2^2950224^^^^"
^DD(211.82,4,21,1,0)="The name of location/service (if not nursing) where this FTEE was temporarily"
^DD(211.82,4,21,2,0)="transferred."
^DD(211.82,4,"DT")="2910109"
^DD(211.82,5,0)="VACANCY REASON^P211.9^NURSF(211.9,^0;8^Q"
^DD(211.82,5,1,0)="^.1"
^DD(211.82,5,1,1,0)="211.82^ASD3^MUMPS"
^DD(211.82,5,1,1,1)="S NUR=""5^1"" D EN1^NURSUT1"
^DD(211.82,5,1,1,2)="S NUR=""5^0"" D EN1^NURSUT1"
^DD(211.82,5,1,1,"%D",0)="^^3^3^2950927^^^"
^DD(211.82,5,1,1,"%D",1,0)="This mumps index is used by the Nursing Acuity/Separation-Activation Run"
^DD(211.82,5,1,1,"%D",2,0)="to update the experience multiple in the NURS Staff file with vacancy reason"
^DD(211.82,5,1,1,"%D",3,0)="information when an assignment is deactivated."
^DD(211.82,5,3)=""
^DD(211.82,5,21,0)="^^1^1^2900312^^^^"
^DD(211.82,5,21,1,0)="Reason why position is vacant or why employee transferred."
^DD(211.82,5,"DT")="2900627"
^DD(211.82,6,0)="PRIMARY ASSIGNMENT^S^1:PRIMARY ASSIGNMENT;^0;9^Q"
^DD(211.82,6,1,0)="^.1"
^DD(211.82,6,1,1,0)="211.8^AE^MUMPS"
^DD(211.82,6,1,1,1)="S NUR=$S($P(^NURSF(211.8,DA(1),1,DA,0),""^"",2):$P(^(0),""^"",2),1:"""") S:+NUR ^NURSF(211.8,""AE"",NUR,$E(X,1,30),DA(1),DA)="""" K NUR"
^DD(211.82,6,1,1,2)="S NUR=$S($P(^NURSF(211.8,DA(1),1,DA,0),""^"",2):$P(^(0),""^"",2),1:"""") K:+NUR ^NURSF(211.8,""AE"",NUR,$E(X,1,30),DA(1),DA) K NUR"
^DD(211.82,6,1,1,"%D",0)="^^1^1^2950224^"
^DD(211.82,6,1,1,"%D",1,0)="This mumps index is used to identify an employee's primary assigment."
^DD(211.82,6,9)="^"
^DD(211.82,6,21,0)="^^1^1^2950224^^^"
^DD(211.82,6,21,1,0)="This flag designates this assignment as the employee's primary assignment."
^DD(211.82,6,"DT")="2900713"
^DD(211.82,7,0)="ASSIGN TOUR OF DUTY^P211.6'X^NURSF(211.6,^0;10^Q"
^DD(211.82,7,21,0)="^^1^1^2950301^"
^DD(211.82,7,21,1,0)="This field indicates the employee's tour of duty."
^DD(211.82,7,"DT")="2910521"
^DD(211.82,8,0)="FACILITY^CJ30^^ ; ^S X=$$GET1^DIQ(4,+$P($G(^SC(+$G(^NURSF(211.8,+D0,0)),0)),U,4),.01,""I"")"
^DD(211.82,8,9)="^"
^DD(211.82,8,9.01)=""
^DD(211.82,8,9.1)="S X=$$GET1^DIQ(4,+$P($G(^SC(+$G(^NURSF(211.8,+D0,0)),0)),U,4),.01,""I"")"
^DD(211.82,8,21,0)="^^2^2^2960416^^^^"
^DD(211.82,8,21,1,0)="This field associates each position with a division of the medical center"
^DD(211.82,8,21,2,0)="or facility."
^DD(211.82,8,"DT")="2960416"
^DD(211.82,"B","ASSIGN TOUR OF DUTY",7)=""
^DD(211.82,"B","EMPLOYEE",.02)=""
^DD(211.82,"B","FACILITY",8)=""
^DD(211.82,"B","FTEE",1)=""
^DD(211.82,"B","PRIMARY ASSIGNMENT",6)=""
^DD(211.82,"B","PRODUCT LINE",2)=""
^DD(211.82,"B","SERVICE POSITION",.03)=""
^DD(211.82,"B","START/TRANSFER DATE",.01)=""
^DD(211.82,"B","TRANSFER TO",4)=""
^DD(211.82,"B","VACANCY DATE",3)=""
^DD(211.82,"B","VACANCY REASON",5)=""
^DD(211.82,"GL",0,1,.01)=""
^DD(211.82,"GL",0,2,.02)=""
^DD(211.82,"GL",0,3,.03)=""
^DD(211.82,"GL",0,4,1)=""
^DD(211.82,"GL",0,6,3)=""
^DD(211.82,"GL",0,7,4)=""
^DD(211.82,"GL",0,8,5)=""
^DD(211.82,"GL",0,9,6)=""
^DD(211.82,"GL",0,10,7)=""
^DD(211.82,"IX",.01)=""
^DD(211.82,"IX",.02)=""
^DD(211.82,"IX",.03)=""
^DD(211.82,"IX",3)=""
^DD(211.82,"IX",5)=""
^DD(211.82,"IX",6)=""
^DD(211.82,"RQ",.01)=""
^DD(211.82,"RQ",.02)=""
^DD(211.82,"RQ",.03)=""
^DD(211.82,"RQ",1)=""
^DD(211.83,0)="POSITION BUDGETED SUB-FIELD^^1^3"
^DD(211.83,0,"DT")="2950427"
^DD(211.83,0,"IX","B",211.83,.01)=""
^DD(211.83,0,"NM","POSITION BUDGETED")=""
^DD(211.83,0,"UP")="211.8"
^DD(211.83,.01,0)="SERVICE POSITION^M*P211.3'^NURSF(211.3,^0;1^S DIC(""S"")=""I $P(^NURSF(211.8,DA(1),0),U,2)=""""""""!($P(^NURSF(211.3,+Y,0),U,5)=$P(^NURSF(211.8,DA(1),0),U,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(211.83,.01,1,0)="^.1"
^DD(211.83,.01,1,1,0)="211.83^B"
^DD(211.83,.01,1,1,1)="S ^NURSF(211.8,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(211.83,.01,1,1,2)="K ^NURSF(211.8,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(211.83,.01,1,1,"%D",0)="^^2^2^2950224^"
^DD(211.83,.01,1,1,"%D",1,0)="This is the main index on the 'Service Position' field of the Budgeted"
^DD(211.83,.01,1,1,"%D",2,0)="Position subfile."
^DD(211.83,.01,3)=""
^DD(211.83,.01,12)="Select only service positions with the appropriate service category."
^DD(211.83,.01,12.1)="S DIC(""S"")=""I $P(^NURSF(211.8,DA(1),0),U,2)=""""""""!($P(^NURSF(211.3,+Y,0),U,5)=$P(^NURSF(211.8,DA(1),0),U,2))"""
^DD(211.83,.01,21,0)="^^1^1^2931122^^^^"
^DD(211.83,.01,21,1,0)="Service position to be budgeted."
^DD(211.83,.01,"DT")="2900709"
^DD(211.83,.05,0)="PRIORITY SEQUENCE^NJ7,2^^0;3^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(211.83,.05,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(211.83,.05,21,0)="^^1^1^2900713^^^"
^DD(211.83,.05,21,1,0)="A number commonly used in print templates to display data in a specified format."
^DD(211.83,.05,"DT")="2900713"
^DD(211.83,1,0)="BUDGETED FTEE^NJ6,3^^0;2^K:+X'=X!(X>99.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(211.83,1,3)="Type a Number between 0 and 99.999, 3 Decimal Digits"
^DD(211.83,1,21,0)="^^1^1^2901026^^^^"
^DD(211.83,1,21,1,0)="Indicate the amount of budgeted FTEE for this service position."
^DD(211.83,1,"DT")="2950427"
^DD(211.83,"B","BUDGETED FTEE",1)=""
^DD(211.83,"B","PRIORITY SEQUENCE",.05)=""
^DD(211.83,"B","SERVICE POSITION",.01)=""
^DD(211.83,"GL",0,1,.01)=""
^DD(211.83,"GL",0,2,1)=""
^DD(211.83,"GL",0,3,.05)=""
^DD(211.83,"IX",.01)=""
^DD(211.9,0)="FIELD^^2^3"
^DD(211.9,0,"DDA")="N"
^DD(211.9,0,"DT")="2910212"
^DD(211.9,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(211.9,0,"ID",2)="W """""
^DD(211.9,0,"IX","B",211.9,.01)=""
^DD(211.9,0,"IX","C",211.9,1)=""
^DD(211.9,0,"NM","NURS VACANCY/TRANSFERRED REASONS")=""
^DD(211.9,0,"PT",211.82,5)=""
^DD(211.9,0,"PT",213.52,3)=""
^DD(211.9,0,"VR")="4.0"
^DD(211.9,0,"VRPK")="NURSING SERVICE"
^DD(211.9,.01,0)="CODE^RF^^0;1^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(211.9,.01,1,0)="^.1"
^DD(211.9,.01,1,1,0)="211.9^B"
^DD(211.9,.01,1,1,1)="S ^NURSF(211.9,""B"",$E(X,1,30),DA)="""""
^DD(211.9,.01,1,1,2)="K ^NURSF(211.9,""B"",$E(X,1,30),DA)"
^DD(211.9,.01,1,1,"%D",0)="^^2^2^2950324^^^^"
^DD(211.9,.01,1,1,"%D",1,0)="This is the main index on the 'Code' field in the NURS Vacancy/Transferred"
^DD(211.9,.01,1,1,"%D",2,0)="Reasons file."
^DD(211.9,.01,3)="Answer must be 1-5 characters in length."
^DD(211.9,.01,21,0)="^^1^1^2950831^^^^"
^DD(211.9,.01,21,1,0)="Code for vacancy/transferred reasons."
^DD(211.9,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(211.9,1,1,0)="^.1"
^DD(211.9,1,1,1,0)="211.9^C"
^DD(211.9,1,1,1,1)="S ^NURSF(211.9,""C"",$E(X,1,30),DA)="""""
^DD(211.9,1,1,1,2)="K ^NURSF(211.9,""C"",$E(X,1,30),DA)"
^DD(211.9,1,1,1,"%D",0)="^^2^2^2950324^^^"
^DD(211.9,1,1,1,"%D",1,0)="This index is on the 'Description' field of the NURS Vacancy/Transferred"
^DD(211.9,1,1,1,"%D",2,0)="Reason file."
^DD(211.9,1,3)="Answer must be 3-30 characters in length."
^DD(211.9,1,21,0)="^^1^1^2950301^"
^DD(211.9,1,21,1,0)="This field describes the vacancy reason entry."
^DD(211.9,1,"DT")="2900712"
^DD(211.9,2,0)="STATUS^RS^A:ACTIVE;I:INTERMITTENT;R:INACTIVE;^0;3^Q"
^DD(211.9,2,21,0)="^^2^2^2950927^^^^"
^DD(211.9,2,21,1,0)="This field builds a relation between status in the NURS Staff file, and"
^DD(211.9,2,21,2,0)="Vacancy Reasons field in the Position Control file."
^DD(211.9,2,"DT")="2910212"
^DD(211.9,"B","CODE",.01)=""
^DD(211.9,"B","DESCRIPTION",1)=""
^DD(211.9,"B","STATUS",2)=""
^DD(211.9,"GL",0,1,.01)=""
^DD(211.9,"GL",0,2,1)=""
^DD(211.9,"GL",0,3,2)=""
^DD(211.9,"IX",.01)=""
^DD(211.9,"IX",1)=""
^DD(211.9,"RQ",.01)=""
^DD(211.9,"RQ",1)=""
^DD(211.9,"RQ",2)=""
^DD(212.1,0)="FIELD^^3^4"
^DD(212.1,0,"ID",.01)="W ?45,$S(X="""":"""",1:$P(^(0),U,3))"
^DD(212.1,0,"IX","B",212.1,.01)=""
^DD(212.1,0,"IX","C",212.1,2)=""
^DD(212.1,0,"NM","NURS EDUCATION")=""
^DD(212.1,0,"PT",210,21.5)=""
^DD(212.1,0,"PT",210,21.7)=""
^DD(212.1,0,"PT",210.04,.01)=""
^DD(212.1,0,"VR")="4.0"
^DD(212.1,0,"VRPK")="NURSING SERVICE"
^DD(212.1,.001,0)="NURSING NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(212.1,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(212.1,.001,21,0)="^^1^1^2860410^^"
^DD(212.1,.001,21,1,0)="Internal number assigned to the 'education description'."
^DD(212.1,.01,0)="EDUCATION DESCRIPTION^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(212.1,.01,1,0)="^.1"
^DD(212.1,.01,1,1,0)="212.1^B"
^DD(212.1,.01,1,1,1)="S ^NURSF(212.1,""B"",$E(X,1,30),DA)="""""
^DD(212.1,.01,1,1,2)="K ^NURSF(212.1,""B"",$E(X,1,30),DA)"
^DD(212.1,.01,1,1,"%D",0)="^^2^2^2950324^^^"
^DD(212.1,.01,1,1,"%D",1,0)="This is the main index on the NURS Education file and lists educational"
^DD(212.1,.01,1,1,"%D",2,0)="degree descriptions."
^DD(212.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(212.1,.01,21,0)="^^1^1^2890602^^"
^DD(212.1,.01,21,1,0)="Generic name given to different types or levels of degrees."
^DD(212.1,.01,21,2,0)="EDUCATION FILE (#20.11)."
^DD(212.1,.01,"DT")="2890104"
^DD(212.1,2,0)="NURSING CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X"
^DD(212.1,2,1,0)="^.1"
^DD(212.1,2,1,1,0)="212.1^C"
^DD(212.1,2,1,1,1)="S ^NURSF(212.1,""C"",$E(X,1,30),DA)="""""
^DD(212.1,2,1,1,2)="K ^NURSF(212.1,""C"",$E(X,1,30),DA)"
^DD(212.1,2,1,1,"%D",0)="^^2^2^2950224^"
^DD(212.1,2,1,1,"%D",1,0)="This index is on the 'Nursing Code' field and lists the code associated"
^DD(212.1,2,1,1,"%D",2,0)="with an educational degree."
^DD(212.1,2,3)="ANSWER MUST BE 2-5 CHARACTERS IN LENGTH"
^DD(212.1,2,21,0)="^^1^1^2890105^^"
^DD(212.1,2,21,1,0)="An abbreviation of the `education description'."
^DD(212.1,2,"DT")="2890104"
^DD(212.1,3,0)="NURSING CODE PRIORITY^NJ1,0^^0;4^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(212.1,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 4"
^DD(212.1,3,21,0)="^^4^4^2890104^^^^"
^DD(212.1,3,21,1,0)="A number assigned to a specific degree for the purpose of ranking the"
^DD(212.1,3,21,2,0)="educational preparation of an employee.  This number is used to "
^DD(212.1,3,21,3,0)="generate administrative reports under the options: 'Service Reports' and"
^DD(212.1,3,21,4,0)="'Location Reports'."
^DD(212.1,"B","EDUCATION DESCRIPTION",.01)=""
^DD(212.1,"B","NURSING CODE",2)=""
^DD(212.1,"B","NURSING CODE PRIORITY",3)=""
^DD(212.1,"B","NURSING NUMBER",.001)=""
^DD(212.1,"GL",0,1,.01)=""
^DD(212.1,"GL",0,3,2)=""
^DD(212.1,"GL",0,4,3)=""
^DD(212.1,"IX",.01)=""
^DD(212.1,"IX",2)=""
^DD(212.2,0)="FIELD^^3^4"
^DD(212.2,0,"DDA")="N"
^DD(212.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(212.2,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(212.2,0,"IX","B",212.2,.01)=""
^DD(212.2,0,"IX","C",212.2,1)=""
^DD(212.2,0,"NM","NURS CERTIFICATION")=""
^DD(212.2,0,"PT",210.024,.01)=""
^DD(212.2,0,"VR")="4.0"
^DD(212.2,0,"VRPK")="NURSING SERVICE"
^DD(212.2,.01,0)="ABBREVIATION^RF^^0;1^K:$L(X)>8!($L(X)<2) X"
^DD(212.2,.01,.1)="NAME OF CERTIFICATION"
^DD(212.2,.01,1,0)="^.1"
^DD(212.2,.01,1,1,0)="212.2^B"
^DD(212.2,.01,1,1,1)="S ^NURSF(212.2,""B"",$E(X,1,30),DA)="""""
^DD(212.2,.01,1,1,2)="K ^NURSF(212.2,""B"",$E(X,1,30),DA)"
^DD(212.2,.01,1,1,"%D",0)="^^2^2^2950224^"
^DD(212.2,.01,1,1,"%D",1,0)="This is the main index of the NURS Certification file which lists"
^DD(212.2,.01,1,1,"%D",2,0)="certification abbreviations."
^DD(212.2,.01,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(212.2,.01,21,0)="^^1^1^2890525^^^^"
^DD(212.2,.01,21,1,0)="Initials (abbreviation) identifying the type of certification."
^DD(212.2,.01,"DT")="2860123"
^DD(212.2,1,0)="NAME OF CERTIFICATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(212.2,1,.1)="CERTIFICATION"
^DD(212.2,1,1,0)="^.1"
^DD(212.2,1,1,1,0)="212.2^C"
^DD(212.2,1,1,1,1)="S ^NURSF(212.2,""C"",$E(X,1,30),DA)="""""
^DD(212.2,1,1,1,2)="K ^NURSF(212.2,""C"",$E(X,1,30),DA)"
^DD(212.2,1,1,1,"%D",0)="^^1^1^2950224^"
^DD(212.2,1,1,1,"%D",1,0)="This index is on the 'Name of Certification' field."
^DD(212.2,1,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(212.2,1,21,0)="^^1^1^2890602^^^^"
^DD(212.2,1,21,1,0)="Name or type of certification."
^DD(212.2,1,"DT")="2870310"
^DD(212.2,2,0)="NAME OF CERTIFYING AGENCY^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(212.2,2,.1)="CERTIFYING AGENCY"
^DD(212.2,2,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(212.2,2,21,0)="^^1^1^2860128^^^^"
^DD(212.2,2,21,1,0)="Name of national organization granting certification."
^DD(212.2,2,"DT")="2860123"
^DD(212.2,3,0)="ABBREVIATED NAME OF AGENCY^F^^0;4^K:$L(X)>8!($L(X)<2) X"
^DD(212.2,3,.1)="CERTIFYING AGENCY"
^DD(212.2,3,3)="ANSWER MUST BE 2-8 CHARACTERS IN LENGTH"
^DD(212.2,3,21,0)="^^1^1^2900814^^^^"
^DD(212.2,3,21,1,0)="Abbreviated name or initials of certifying organization."
^DD(212.2,3,"DT")="2860123"
^DD(212.2,"B","ABBREVIATED NAME OF AGENCY",3)=""
^DD(212.2,"B","ABBREVIATION",.01)=""
^DD(212.2,"B","CERTIFICATION",1)="1"
^DD(212.2,"B","CERTIFYING AGENCY",2)="1"
^DD(212.2,"B","CERTIFYING AGENCY",3)="1"
^DD(212.2,"B","NAME OF CERTIFICATION",.01)="1"
^DD(212.2,"B","NAME OF CERTIFICATION",1)=""
^DD(212.2,"B","NAME OF CERTIFYING AGENCY",2)=""
^DD(212.2,"GL",0,1,.01)=""
^DD(212.2,"GL",0,2,1)=""
^DD(212.2,"GL",0,3,2)=""
^DD(212.2,"GL",0,4,3)=""
^DD(212.2,"IX",.01)=""
^DD(212.2,"IX",1)=""
^DD(212.2,"RQ",.01)=""
^DD(212.3,0)="FIELD^^.01^2"
^DD(212.3,0,"DDA")="N"
^DD(212.3,0,"IX","B",212.3,.01)=""
^DD(212.3,0,"NM","NURS COLLEGE MAJOR")=""
^DD(212.3,0,"PT",210.04,1)=""
^DD(212.3,0,"VR")="4.0"
^DD(212.3,0,"VRPK")="NURSING SERVICE"
^DD(212.3,.001,0)="COLLEGE MAJOR CODE^NJ4,0^^ ^K:+X'=X!(X>4999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(212.3,.001,3)="TYPE A WHOLE NUMBER BETWEEN 100 AND 4999"
^DD(212.3,.001,21,0)="^^1^1^2851230^"
^DD(212.3,.001,21,1,0)="Code of college major."
^DD(212.3,.01,0)="COLLEGE MAJOR DESCRIPTION^RF^^0;1^K:$L(X)>50!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(212.3,.01,1,0)="^.1"
^DD(212.3,.01,1,1,0)="212.3^B"
^DD(212.3,.01,1,1,1)="S ^NURSF(212.3,""B"",$E(X,1,30),DA)="""""
^DD(212.3,.01,1,1,2)="K ^NURSF(212.3,""B"",$E(X,1,30),DA)"
^DD(212.3,.01,1,1,"%D",0)="^^2^2^2950324^^"
^DD(212.3,.01,1,1,"%D",1,0)="This is the main index on the 'College Major Description' field of the"
^DD(212.3,.01,1,1,"%D",2,0)="NURS College Major file."
^DD(212.3,.01,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(212.3,.01,21,0)="^^1^1^2851230^"
^DD(212.3,.01,21,1,0)="Name of college major/area in which degree was earned."
^DD(212.3,"B","COLLEGE MAJOR CODE",.001)=""
^DD(212.3,"B","COLLEGE MAJOR DESCRIPTION",.01)=""
^DD(212.3,"GL",0,1,.01)=""
^DD(212.3,"IX",.01)=""
^DD(212.3,"RQ",.01)=""
^DD(212.4,0)="FIELD^^1^2"
^DD(212.4,0,"DDA")="N"
^DD(212.4,0,"IX","B",212.4,.01)=""
^DD(212.4,0,"IX","C",212.41,.01)=""
^DD(212.4,0,"NM","*NURS MANDATORY INSERVICE")=""
^DD(212.4,0,"PT",210.05,1)=""
^DD(212.4,0,"VR")="4.0"
^DD(212.4,0,"VRPK")="NURSING SERVICE"
^DD(212.4,.01,0)="CLASS NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(212.4,.01,1,0)="^.1"
^DD(212.4,.01,1,1,0)="212.4^B"
^DD(212.4,.01,1,1,1)="S ^NURSF(212.4,""B"",$E(X,1,30),DA)="""""
^DD(212.4,.01,1,1,2)="K ^NURSF(212.4,""B"",$E(X,1,30),DA)"
^DD(212.4,.01,1,1,"%D",0)="^^2^2^2950927^^"
^DD(212.4,.01,1,1,"%D",1,0)="This is the main index on the 'Class Name' field of the NURS Mandatory"
^DD(212.4,.01,1,1,"%D",2,0)="Inservice file."
^DD(212.4,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(212.4,.01,21,0)="^^1^1^2890602^^^^"
^DD(212.4,.01,21,1,0)="Name of mandatory inservice program."
^DD(212.4,1,0)="REVIEW GROUP^212.41P^^1;0"
^DD(212.4,1,21,0)="^^1^1^2950927^^^^"
^DD(212.4,1,21,1,0)="Groupings of mandatory inservices specific to service category."
^DD(212.4,"B","CLASS NAME",.01)=""
^DD(212.4,"B","REVIEW GROUP",1)=""
^DD(212.4,"GL",0,1,.01)=""
^DD(212.4,"GL",1,0,1)=""
^DD(212.4,"IX",.01)=""
^DD(212.4,"RQ",.01)=""
^DD(212.4,"SB",212.41,1)=""
^DD(212.41,0)="REVIEW GROUP SUB-FIELD^^.01^1"
^DD(212.41,0,"NM","REVIEW GROUP")=""
^DD(212.41,0,"UP")="212.4"
^DD(212.41,.01,0)="REVIEW GROUP^MP212.42^NURSF(212.42,^0;1^Q"
^DD(212.41,.01,1,0)="^.1"
^DD(212.41,.01,1,1,0)="212.4^C"
^DD(212.41,.01,1,1,1)="S ^NURSF(212.4,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(212.41,.01,1,1,2)="K ^NURSF(212.4,""C"",$E(X,1,30),DA(1),DA)"
^DD(212.41,.01,1,1,"%D",0)="^^2^2^2950927^^"
^DD(212.41,.01,1,1,"%D",1,0)="This is the main index on the 'Review Group' field of the Review Group"
^DD(212.41,.01,1,1,"%D",2,0)="subfile."
^DD(212.41,.01,3)=""
^DD(212.41,.01,21,0)="^^1^1^2950927^^^^"
^DD(212.41,.01,21,1,0)="Pointer to NURS MI Class Group (#214.42) file."
^DD(212.41,.01,"DT")="2890510"
^DD(212.41,"B","REVIEW GROUP",.01)=""
^DD(212.41,"GL",0,1,.01)=""
^DD(212.41,"IX",.01)=""
^DD(212.42,0)="FIELD^^.01^1"
^DD(212.42,0,"DDA")="N"
^DD(212.42,0,"IX","B",212.42,.01)=""
^DD(212.42,0,"NM","*NURS MI CLASS GROUP")=""
^DD(212.42,0,"PT",212.41,.01)=""
^DD(212.42,0,"VR")="4.0"
^DD(212.42,0,"VRPK")="NURSING SERVICE"
^DD(212.42,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(212.42,.01,1,0)="^.1"
^DD(212.42,.01,1,1,0)="212.42^B"
^DD(212.42,.01,1,1,1)="S ^NURSF(212.42,""B"",$E(X,1,30),DA)="""""
^DD(212.42,.01,1,1,2)="K ^NURSF(212.42,""B"",$E(X,1,30),DA)"
^DD(212.42,.01,1,1,"%D",0)="^^2^2^2950927^^"
^DD(212.42,.01,1,1,"%D",1,0)="This is the main index on the 'Name' field of the NURS MI Class Group"
^DD(212.42,.01,1,1,"%D",2,0)="file."
^DD(212.42,.01,3)="Answer must be 2-30 characters in length."
^DD(212.42,.01,21,0)="^^1^1^2890106^"
^DD(212.42,.01,21,1,0)="The name of a group of mandatory inservice classes."
^DD(212.42,"B","NAME",.01)=""
^DD(212.42,"GL",0,1,.01)=""
^DD(212.42,"IX",.01)=""
^DD(212.42,"RQ",.01)=""
^DD(212.6,0)="FIELD^^.01^1"
^DD(212.6,0,"DDA")="N"
^DD(212.6,0,"DT")="2910227"
^DD(212.6,0,"IX","B",212.6,.01)=""
^DD(212.6,0,"NM","NURS PRIVILEGE")=""
^DD(212.6,0,"PT",210.19,.01)=""
^DD(212.6,0,"VR")="4.0"
^DD(212.6,0,"VRPK")="NURSING SERVICE"
^DD(212.6,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(212.6,.01,1,0)="^.1"
^DD(212.6,.01,1,1,0)="212.6^B"
^DD(212.6,.01,1,1,1)="S ^NURSF(212.6,""B"",$E(X,1,30),DA)="""""
^DD(212.6,.01,1,1,2)="K ^NURSF(212.6,""B"",$E(X,1,30),DA)"
^DD(212.6,.01,1,1,"%D",0)="^^1^1^2950324^^"
^DD(212.6,.01,1,1,"%D",1,0)="This in the main index on the 'Name' field of the NURS Privilege file."
^DD(212.6,.01,3)="Answer must be 3-50 characters in length."
^DD(212.6,.01,21,0)="^^1^1^2950224^^"
^DD(212.6,.01,21,1,0)="The name of the clinical privilege."
^DD(212.6,.01,"DT")="2910227"
^DD(212.6,"B","NAME",.01)=""
^DD(212.6,"GL",0,1,.01)=""
^DD(212.6,"IX",.01)=""
^DD(212.6,"RQ",.01)=""
^DD(212.7,0)="FIELD^^.01^1"
^DD(212.7,0,"DDA")="N"
^DD(212.7,0,"DT")="2960416"
^DD(212.7,0,"IX","B",212.7,.01)=""
^DD(212.7,0,"NM","NURS PRODUCT LINE")=""
^DD(212.7,0,"PT",211.3,6)=""
^DD(212.7,0,"PT",211.4,.03)=""
^DD(212.7,0,"VR")="4.0"
^DD(212.7,0,"VRPK")="NURSING SERVICE"
^DD(212.7,.01,0)="NAME^RFX^^0;1^K:'$G(NURSEDIT) X D:'$G(NURSEDIT) EN^DDIOL(""USE NURSING OPTIONS TO ENTER/EDIT THIS FILE DATA""_$C(7)) I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(212.7,.01,1,0)="^.1"
^DD(212.7,.01,1,1,0)="212.7^B"
^DD(212.7,.01,1,1,1)="S ^NURSF(212.7,""B"",$E(X,1,30),DA)="""""
^DD(212.7,.01,1,1,2)="K ^NURSF(212.7,""B"",$E(X,1,30),DA)"
^DD(212.7,.01,3)="Answer must be 3 to 30 characters in length."
^DD(212.7,.01,21,0)="^^1^1^2960501^^"
^DD(212.7,.01,21,1,0)="This field contains the name of the product line/program/service."
^DD(212.7,.01,"DEL",1,0)="I DA=1 D EN^DDIOL(""CANNOT DELETE NURSING ENTRY"")"
^DD(212.7,.01,"DT")="2960425"
^DD(212.7,"B","NAME",.01)=""
^DD(212.7,"GL",0,1,.01)=""
^DD(212.7,"IX",.01)=""
^DD(212.7,"RQ",.01)=""
^DD(213.2,0)="FIELD^^43^45"
^DD(213.2,0,"DDA")="N"
^DD(213.2,0,"DT")="2951017"
^DD(213.2,0,"IX","B",213.2,.01)=""
^DD(213.2,0,"NM","NURS AMIS 1106B FTEE")=""
^DD(213.2,0,"VR")="4.0"
^DD(213.2,0,"VRPK")="NURSING SERVICE"
^DD(213.2,.01,0)="FACILITY^RP4'^DIC(4,^0;1^Q"
^DD(213.2,.01,1,0)="^.1"
^DD(213.2,.01,1,1,0)="213.2^B"
^DD(213.2,.01,1,1,1)="S ^NURSA(213.2,""B"",$E(X,1,30),DA)="""""
^DD(213.2,.01,1,1,2)="K ^NURSA(213.2,""B"",$E(X,1,30),DA)"
^DD(213.2,.01,1,1,"%D",0)="^^2^2^2951017^^^^"
^DD(213.2,.01,1,1,"%D",1,0)="This is the main index on the 'FACILITY' field of the NURS AMIS 1106B FTEE"
^DD(213.2,.01,1,1,"%D",2,0)="file."
^DD(213.2,.01,3)=""
^DD(213.2,.01,21,0)="^^2^2^2960312^^^^"
^DD(213.2,.01,21,1,0)="Compares budgeted/ceiling FTEE against the actual FTEE present within"
^DD(213.2,.01,21,2,0)="Nursing Service for a specific facility."
^DD(213.2,.01,"DT")="2951017"
^DD(213.2,1,0)="(01) BUDGETED RN^RNJ9,3^^0;2^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,1,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,1,21,0)="^^1^1^2951016^^^^"
^DD(213.2,1,21,1,0)="Total number of (budgeted/ceiling) FTEE designated as RN positions. "
^DD(213.2,1,"DT")="2950427"
^DD(213.2,2,0)="(02) BUDGETED LPN^RNJ9,3^^0;3^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,2,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,2,21,0)="^^1^1^2951016^^^^"
^DD(213.2,2,21,1,0)="Total number of (budgeted/ceiling) FTEE designated as LPN/LVN positions."
^DD(213.2,2,"DT")="2950427"
^DD(213.2,3,0)="(03) BUDGETED NA^RNJ9,3^^0;4^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,3,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,3,21,0)="^^1^1^2951016^^^^"
^DD(213.2,3,21,1,0)="Total number of (budgeted/ceiling) FTEE designated as NA positions."
^DD(213.2,3,"DT")="2950427"
^DD(213.2,4,0)="(04) BUDGETED CLERICAL^RNJ9,3^^0;5^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,4,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,4,21,0)="^^1^1^2951016^^^^"
^DD(213.2,4,21,1,0)="Total number of (budgeted/ceiling) FTEE designated as 'clerical' positions."
^DD(213.2,4,"DT")="2950427"
^DD(213.2,5,0)="(05) BUDGETED ADMIN OFFICER^RNJ9,3^^0;6^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,5,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,5,21,0)="^^2^2^2951016^^^^"
^DD(213.2,5,21,1,0)="Total number of (budgeted/ceiling) FTEE designated as 'administrative"
^DD(213.2,5,21,2,0)="officer' positions."
^DD(213.2,5,"DT")="2950427"
^DD(213.2,6,0)="(06) BUDGETED CLIN SPECIALIST^RNJ9,3^^0;7^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,6,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,6,21,0)="^^2^2^2951016^^^^"
^DD(213.2,6,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'clinical"
^DD(213.2,6,21,2,0)="specialist' positions."
^DD(213.2,6,"DT")="2950427"
^DD(213.2,7,0)="(07) BUDGETED RN PRACTITIONER^RNJ9,3^^0;8^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,7,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,7,21,0)="^^2^2^2951016^^^"
^DD(213.2,7,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'nurse"
^DD(213.2,7,21,2,0)="practitioner' positions."
^DD(213.2,7,"DT")="2950427"
^DD(213.2,8,0)="(08) BUDGETED INFECT. CONTROL^RNJ9,3^^0;9^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,8,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,8,21,0)="^^2^2^2951016^^^"
^DD(213.2,8,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'infection"
^DD(213.2,8,21,2,0)="control' positions."
^DD(213.2,8,"DT")="2950427"
^DD(213.2,9,0)="(09) BUDGETED PUBLIC HEALTH^RNJ9,3^^0;10^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,9,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,9,21,0)="^^2^2^2951016^^^"
^DD(213.2,9,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'public"
^DD(213.2,9,21,2,0)="health' positions."
^DD(213.2,9,"DT")="2950427"
^DD(213.2,10,0)="(10) BUDGETED STAFF NURSE^RNJ9,3^^0;11^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,10,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,10,21,0)="^^2^2^2951016^^^^"
^DD(213.2,10,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'staff nurse'"
^DD(213.2,10,21,2,0)="positions."
^DD(213.2,10,"DT")="2950428"
^DD(213.2,11,0)="(11) BUDGETED CHIEF NURSE^RNJ9,3^^0;12^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,11,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,11,21,0)="^^2^2^2951016^^^^"
^DD(213.2,11,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'chief nurse'"
^DD(213.2,11,21,2,0)="positions."
^DD(213.2,11,"DT")="2950428"
^DD(213.2,12,0)="(12) BUDGETED ASST CHIEF NURSE^RNJ9,3^^0;13^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,12,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,12,21,0)="^^2^2^2951016^^^"
^DD(213.2,12,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'asst chief"
^DD(213.2,12,21,2,0)="nurse' positions."
^DD(213.2,12,"DT")="2950428"
^DD(213.2,13,0)="(13) BUDGETED ASSOC CHIEF N.S.^RNJ9,3^^0;14^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,13,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,13,21,0)="^^2^2^2951016^^^^"
^DD(213.2,13,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'associate"
^DD(213.2,13,21,2,0)="chief for N.S.' positions."
^DD(213.2,13,"DT")="2950428"
^DD(213.2,14,0)="(14) BUDGETED SUPERVISOR^RNJ9,3^^0;15^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,14,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,14,21,0)="^^2^2^2951016^^^"
^DD(213.2,14,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'supervisor'"
^DD(213.2,14,21,2,0)="positions."
^DD(213.2,14,"DT")="2950428"
^DD(213.2,15,0)="(15) BUDGETED HEAD NURSE^RNJ9,3^^0;16^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,15,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,15,21,0)="^^2^2^2951016^^^"
^DD(213.2,15,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'head nurse'"
^DD(213.2,15,21,2,0)="positions."
^DD(213.2,15,"DT")="2950428"
^DD(213.2,16,0)="(16) BUDGETED OTHER NURSE^RNJ9,3^^0;17^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,16,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,16,21,0)="^^2^2^2951016^^^"
^DD(213.2,16,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated for special"
^DD(213.2,16,21,2,0)="positions not identified in fields 6 thru 15 or 17 thru 20."
^DD(213.2,16,"DT")="2950428"
^DD(213.2,17,0)="(17) BUDGETED NURSE RESHR^RNJ9,3^^.5;1^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,17,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,17,21,0)="^^2^2^2951016^^^"
^DD(213.2,17,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'nurse"
^DD(213.2,17,21,2,0)="researcher' positions."
^DD(213.2,17,"DT")="2950428"
^DD(213.2,18,0)="(18) BUDGETED ASSOC CHIEF/RESH^RNJ9,3^^.5;2^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,18,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,18,21,0)="^^2^2^2951016^^^^"
^DD(213.2,18,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'associate"
^DD(213.2,18,21,2,0)="chief/research' positions."
^DD(213.2,18,"DT")="2950428"
^DD(213.2,19,0)="(19) BUDGETED ASSOC CHIEF/EDU^RNJ9,3^^.5;3^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,19,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,19,21,0)="^^2^2^2951016^^^^"
^DD(213.2,19,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'associate"
^DD(213.2,19,21,2,0)="chief/education' positions."
^DD(213.2,19,"DT")="2950428"
^DD(213.2,20,0)="(20) BUDGETED INSTR/EDU^RNJ9,3^^.5;4^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,20,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,20,21,0)="^^2^2^2951016^^^^"
^DD(213.2,20,21,1,0)="Total number of RN (budgeted/ceiling) FTEE designated as 'instructor/"
^DD(213.2,20,21,2,0)="education' positions."
^DD(213.2,20,"DT")="2950428"
^DD(213.2,21,0)="(21) ACTUAL RN^NJ9,3^^.5;5^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,21,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,21,21,0)="^^1^1^2951016^^^"
^DD(213.2,21,21,1,0)="Total number of FTEE currently in RN positions."
^DD(213.2,21,"DT")="2950428"
^DD(213.2,22,0)="(22) ACTUAL LPN^NJ9,3^^.5;6^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,22,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,22,21,0)="^^1^1^2951016^^^^"
^DD(213.2,22,21,1,0)="Total number of FTEE currently in LPN/LVN positions."
^DD(213.2,22,"DT")="2950428"
^DD(213.2,23,0)="(23) ACTUAL NA^NJ9,3^^.5;7^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,23,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,23,21,0)="^^1^1^2951016^^"
^DD(213.2,23,21,1,0)="Total number of FTEE currently in 'nursing assistant' positions."
^DD(213.2,23,"DT")="2950428"
^DD(213.2,24,0)="(24) ACTUAL CLERICAL^NJ9,3^^.5;8^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,24,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,24,21,0)="^^1^1^2951016^^"
^DD(213.2,24,21,1,0)="Total number of FTEE currently in clerical positions."
^DD(213.2,24,"DT")="2950428"
^DD(213.2,25,0)="(25) ACTUAL ADMIN OFFICER^NJ9,3^^.5;9^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,25,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,25,21,0)="^^1^1^2951016^^"
^DD(213.2,25,21,1,0)="Total number of FTEE currently in 'administrative officer' positions."
^DD(213.2,25,"DT")="2950428"
^DD(213.2,26,0)="(26) ACTUAL CLIN SPECIALIST^NJ9,3^^.5;10^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,26,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,26,21,0)="^^1^1^2951016^^"
^DD(213.2,26,21,1,0)="Total number of RN FTEE currently in 'clinical specialist' positions."
^DD(213.2,26,"DT")="2950428"
^DD(213.2,27,0)="(27) ACTUAL RN PRACTITIONER^NJ9,3^^.5;11^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,27,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,27,21,0)="^^1^1^2951016^^"
^DD(213.2,27,21,1,0)="Total number of RN FTEE currently in 'nurse practitioner' positions."
^DD(213.2,27,"DT")="2950428"
^DD(213.2,28,0)="(28) ACTUAL INFECTION CONTROL^NJ9,3^^.5;12^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,28,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,28,21,0)="^^1^1^2951016^^"
^DD(213.2,28,21,1,0)="Total number of RN FTEE currently in 'infection control' positions."
^DD(213.2,28,"DT")="2950428"
^DD(213.2,29,0)="(29) ACTUAL PUBLIC HEALTH^NJ9,3^^.5;13^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,29,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,29,21,0)="^^1^1^2951016^^"
^DD(213.2,29,21,1,0)="Total number of RN FTEE currently in 'public health' positions."
^DD(213.2,29,"DT")="2950428"
^DD(213.2,30,0)="(30) ACTUAL STAFF NURSE^NJ9,3^^.5;14^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,30,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,30,21,0)="^^1^1^2951016^^"
^DD(213.2,30,21,1,0)="Total number of RN FTEE currently in 'staff nurse' positions."
^DD(213.2,30,"DT")="2950428"
^DD(213.2,31,0)="(31) ACTUAL CHIEF NURSE^NJ9,3^^1;1^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,31,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,31,21,0)="^^1^1^2951016^^"
^DD(213.2,31,21,1,0)="Total number of RN FTEE in 'chief nurse' positions."
^DD(213.2,31,"DT")="2950428"
^DD(213.2,32,0)="(32) ACTUAL ASST CHIEF NURSE^NJ9,3^^1;2^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,32,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,32,21,0)="^^1^1^2951016^^"
^DD(213.2,32,21,1,0)="Total number of RN FTEE currently in 'assistant chief' positions."
^DD(213.2,32,"DT")="2950428"
^DD(213.2,33,0)="(33) ACTUAL ASSOC CHIEF N.S.^NJ9,3^^1;3^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,33,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,33,21,0)="^^1^1^2951016^^"
^DD(213.2,33,21,1,0)="Total number of RN FTEE in 'associate chief/N.S.' positions."
^DD(213.2,33,"DT")="2950428"
^DD(213.2,34,0)="(34) ACTUAL SUPERVISOR^NJ9,3^^1;4^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,34,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,34,21,0)="^^1^1^2951016^^^"
^DD(213.2,34,21,1,0)="Total number of RN FTEE currently in 'supervisor' positions."
^DD(213.2,34,"DT")="2950428"
^DD(213.2,35,0)="(35) ACTUAL HEAD NURSE^NJ9,3^^1;5^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,35,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,35,21,0)="^^1^1^2951016^^"
^DD(213.2,35,21,1,0)="Total number of RN FTEE currently in 'head nurse' positions."
^DD(213.2,35,"DT")="2950428"
^DD(213.2,36,0)="(36) ACTUAL OTHER NURSE^NJ9,3^^1;6^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,36,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,36,21,0)="^^1^1^2951016^^"
^DD(213.2,36,21,1,0)="Total number of RN FTEE currently in special positions."
^DD(213.2,36,"DT")="2950428"
^DD(213.2,37,0)="(37) ACTUAL NURSE RESHR^NJ9,3^^1;7^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,37,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,37,21,0)="^^1^1^2951016^^"
^DD(213.2,37,21,1,0)="Total number of RN FTEE currently in 'nurse researcher' positions."
^DD(213.2,37,"DT")="2950428"
^DD(213.2,38,0)="(38) ACTUAL ASSOC CHIEF/RESHR^NJ9,3^^1;8^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,38,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,38,21,0)="^^1^1^2951016^^"
^DD(213.2,38,21,1,0)="Total number of RN FTEE currently in 'associate chief/research' positions."
^DD(213.2,38,"DT")="2950428"
^DD(213.2,39,0)="(39) ACTUAL ASSOC CHIEF/EDU^NJ9,3^^1;9^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,39,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,39,21,0)="^^2^2^2951016^^"
^DD(213.2,39,21,1,0)="Total number of RN FTEE currently in 'associate chief/education'"
^DD(213.2,39,21,2,0)="positions."
^DD(213.2,39,"DT")="2950428"
^DD(213.2,40,0)="(40) ACTUAL INSTR/EDU^NJ9,3^^1;10^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.2,40,3)="Type a Number between 0 and 99999.999, 3 Decimal Digits"
^DD(213.2,40,21,0)="^^1^1^2951016^^"
^DD(213.2,40,21,1,0)="Total number of RN FTEE currently in 'instructor/education' positions."
^DD(213.2,40,"DT")="2950428"
^DD(213.2,41,0)="TOTAL ACTUAL 26-40^CJ8,1^^ ; ^X ^DD(213.2,41,9.3) S X=X+$P(Y(213.2,41,2),U,5)+$P(Y(213.2,41,2),U,6)+$P(Y(213.2,41,2),U,7)+$P(Y(213.2,41,2),U,8)+$P(Y(213.2,41,2),U,9)+$P(Y(213.2,41,2),U,10) S X=$J(X,0,1)"
^DD(213.2,41,9)="^"
^DD(213.2,41,9.01)="213.2^40;213.2^39;213.2^38;213.2^37;213.2^36;213.2^35;213.2^34;213.2^33;213.2^32;213.2^31;213.2^30;213.2^29;213.2^28;213.2^27;213.2^26"
^DD(213.2,41,9.1)="#26+#27+#28+#29+#30+#31+#32+#33+#34+#35+#36+#37+#38+#39+#40"
^DD(213.2,41,9.2)="S Y(213.2,41,1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:""""),Y(213.2,41,2)=$S($D(^(1)):^(1),1:"""") S X=$P(Y(213.2,41,1),U,27)+$P(Y(213.2,41,1),U,28)+$P(Y(213.2,41,1),U,29)"
^DD(213.2,41,9.3)="X ^DD(213.2,41,9.2) S X=X+$P(Y(213.2,41,1),U,30)+$P(Y(213.2,41,1),U,31)+$P(Y(213.2,41,2),U,1)+$P(Y(213.2,41,2),U,2)+$P(Y(213.2,41,2),U,3)+$P(Y(213.2,41,2),U,4)"
^DD(213.2,41,21,0)="^^1^1^2951016^^^^"
^DD(213.2,41,21,1,0)="Computed total of actual RN FTEE from fields 26 thru 40."
^DD(213.2,41.5,0)="TOTAL BUDGET 6-20^CJ8,1^^ ; ^X ^DD(213.2,41.5,9.4) S X=X+$P(Y(213.2,41.5,1),U,21) S X=$J(X,0,1)"
^DD(213.2,41.5,9)="^"
^DD(213.2,41.5,9.01)="213.2^20;213.2^19;213.2^18;213.2^17;213.2^16;213.2^15;213.2^14;213.2^13;213.2^12;213.2^11;213.2^10;213.2^9;213.2^8;213.2^7;213.2^6"
^DD(213.2,41.5,9.1)="#6+#7+#8+#9+#10+#11+#12+#13+#14+#15+#16+#17+#18+#19+#20"
^DD(213.2,41.5,9.2)="S Y(213.2,41.5,1)=$S($D(^NURSA(213.2,D0,0)):^(0),1:"""") S X=$P(Y(213.2,41.5,1),U,7)+$P(Y(213.2,41.5,1),U,8)+$P(Y(213.2,41.5,1),U,9)+$P(Y(213.2,41.5,1),U,10)"
^DD(213.2,41.5,9.3)="X ^DD(213.2,41.5,9.2) S X=X+$P(Y(213.2,41.5,1),U,11)+$P(Y(213.2,41.5,1),U,12)+$P(Y(213.2,41.5,1),U,13)+$P(Y(213.2,41.5,1),U,14)+$P(Y(213.2,41.5,1),U,15)"
^DD(213.2,41.5,9.4)="X ^DD(213.2,41.5,9.3) S X=X+$P(Y(213.2,41.5,1),U,16)+$P(Y(213.2,41.5,1),U,17)+$P(Y(213.2,41.5,1),U,18)+$P(Y(213.2,41.5,1),U,19)+$P(Y(213.2,41.5,1),U,20)"
^DD(213.2,41.5,21,0)="^^1^1^2951016^^^^"
^DD(213.2,41.5,21,1,0)="Computed total of budgeted/ceiling RN FTEE from fields 6 thru 20."
^DD(213.2,42,0)="DISCREPANCY^CJ8,1^^ ; ^X $P(^DD(213.2,41,0),U,5,99) S Y(213.2,42,2)=X X $P(^DD(213.2,41.5,0),U,5,99) S Y(213.2,42,1)=X S X=Y(213.2,42,1)-Y(213.2,42,2) S X=$J(X,0,1)"
^DD(213.2,42,9)="^"
^DD(213.2,42,9.01)="213.2^41;213.2^41.5"
^DD(213.2,42,9.1)="#41.5-#41"
^DD(213.2,42,21,0)="^^1^1^2951016^^"
^DD(213.2,42,21,1,0)="The difference between the total actual FTEE and total budgeted FTEE."
^DD(213.2,43,0)="DATE^RD^^1;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(213.2,43,21,0)="^^1^1^2951016^^^^"
^DD(213.2,43,21,1,0)="The date for which this budgeted FTEE information was entered."
^DD(213.2,43,"DT")="2860423"
^DD(213.2,"B","(01) BUDGETED RN",1)=""
^DD(213.2,"B","(02) BUDGETED LPN",2)=""
^DD(213.2,"B","(03) BUDGETED NA",3)=""
^DD(213.2,"B","(04) BUDGETED CLERICAL",4)=""
^DD(213.2,"B","(05) BUDGETED ADMIN OFFICER",5)=""
^DD(213.2,"B","(06) BUDGETED CLIN SPECIALIST",6)=""
^DD(213.2,"B","(07) BUDGETED RN PRACTITIONER",7)=""
^DD(213.2,"B","(08) BUDGETED INFECT. CONTROL",8)=""
^DD(213.2,"B","(09) BUDGETED PUBLIC HEALTH",9)=""
^DD(213.2,"B","(10) BUDGETED STAFF NURSE",10)=""
^DD(213.2,"B","(11) BUDGETED CHIEF NURSE",11)=""
^DD(213.2,"B","(12) BUDGETED ASST CHIEF NURSE",12)=""
^DD(213.2,"B","(13) BUDGETED ASSOC CHIEF N.S.",13)=""
^DD(213.2,"B","(14) BUDGETED SUPERVISOR",14)=""
^DD(213.2,"B","(15) BUDGETED HEAD NURSE",15)=""
^DD(213.2,"B","(16) BUDGETED OTHER NURSE",16)=""
^DD(213.2,"B","(17) BUDGETED NURSE RESHR",17)=""
^DD(213.2,"B","(18) BUDGETED ASSOC CHIEF/RESH",18)=""
^DD(213.2,"B","(19) BUDGETED ASSOC CHIEF/EDU",19)=""
^DD(213.2,"B","(20) BUDGETED INSTR/EDU",20)=""
^DD(213.2,"B","(21) ACTUAL RN",21)=""
^DD(213.2,"B","(22) ACTUAL LPN",22)=""
^DD(213.2,"B","(23) ACTUAL NA",23)=""
^DD(213.2,"B","(24) ACTUAL CLERICAL",24)=""
^DD(213.2,"B","(25) ACTUAL ADMIN OFFICER",25)=""
^DD(213.2,"B","(26) ACTUAL CLIN SPECIALIST",26)=""
^DD(213.2,"B","(27) ACTUAL RN PRACTITIONER",27)=""
^DD(213.2,"B","(28) ACTUAL INFECTION CONTROL",28)=""
^DD(213.2,"B","(29) ACTUAL PUBLIC HEALTH",29)=""
^DD(213.2,"B","(30) ACTUAL STAFF NURSE",30)=""
^DD(213.2,"B","(31) ACTUAL CHIEF NURSE",31)=""
^DD(213.2,"B","(32) ACTUAL ASST CHIEF NURSE",32)=""
^DD(213.2,"B","(33) ACTUAL ASSOC CHIEF N.S.",33)=""
^DD(213.2,"B","(34) ACTUAL SUPERVISOR",34)=""
^DD(213.2,"B","(35) ACTUAL HEAD NURSE",35)=""
^DD(213.2,"B","(36) ACTUAL OTHER NURSE",36)=""
^DD(213.2,"B","(37) ACTUAL NURSE RESHR",37)=""
^DD(213.2,"B","(38) ACTUAL ASSOC CHIEF/RESHR",38)=""
^DD(213.2,"B","(39) ACTUAL ASSOC CHIEF/EDU",39)=""
^DD(213.2,"B","(40) ACTUAL INSTR/EDU",40)=""
^DD(213.2,"B","DATE",43)=""
^DD(213.2,"B","DISCREPANCY",42)=""
^DD(213.2,"B","FACILITY",.01)=""
^DD(213.2,"B","TOTAL ACTUAL 26-40",41)=""
^DD(213.2,"B","TOTAL BUDGET 6-20",41.5)=""
^DD(213.2,"GL",0,1,.01)=""
^DD(213.2,"GL",0,2,1)=""
^DD(213.2,"GL",0,3,2)=""
^DD(213.2,"GL",0,4,3)=""
^DD(213.2,"GL",0,5,4)=""
^DD(213.2,"GL",0,6,5)=""
^DD(213.2,"GL",0,7,6)=""
^DD(213.2,"GL",0,8,7)=""
^DD(213.2,"GL",0,9,8)=""
^DD(213.2,"GL",0,10,9)=""
^DD(213.2,"GL",0,11,10)=""
^DD(213.2,"GL",0,12,11)=""
^DD(213.2,"GL",0,13,12)=""
^DD(213.2,"GL",0,14,13)=""
^DD(213.2,"GL",0,15,14)=""
^DD(213.2,"GL",0,16,15)=""
^DD(213.2,"GL",0,17,16)=""
^DD(213.2,"GL",.5,1,17)=""
^DD(213.2,"GL",.5,2,18)=""
^DD(213.2,"GL",.5,3,19)=""
^DD(213.2,"GL",.5,4,20)=""
^DD(213.2,"GL",.5,5,21)=""
^DD(213.2,"GL",.5,6,22)=""
^DD(213.2,"GL",.5,7,23)=""
^DD(213.2,"GL",.5,8,24)=""
^DD(213.2,"GL",.5,9,25)=""
^DD(213.2,"GL",.5,10,26)=""
^DD(213.2,"GL",.5,11,27)=""
^DD(213.2,"GL",.5,12,28)=""
^DD(213.2,"GL",.5,13,29)=""
^DD(213.2,"GL",.5,14,30)=""
^DD(213.2,"GL",1,1,31)=""
^DD(213.2,"GL",1,2,32)=""
^DD(213.2,"GL",1,3,33)=""
^DD(213.2,"GL",1,4,34)=""
^DD(213.2,"GL",1,5,35)=""
^DD(213.2,"GL",1,6,36)=""
^DD(213.2,"GL",1,7,37)=""
^DD(213.2,"GL",1,8,38)=""
^DD(213.2,"GL",1,9,39)=""
^DD(213.2,"GL",1,10,40)=""
^DD(213.2,"GL",1,11,43)=""
^DD(213.2,"IX",.01)=""
^DD(213.2,"RQ",.01)=""
^DD(213.2,"RQ",1)=""
^DD(213.2,"RQ",2)=""
^DD(213.2,"RQ",3)=""
^DD(213.2,"RQ",4)=""
^DD(213.2,"RQ",5)=""
^DD(213.2,"RQ",6)=""
^DD(213.2,"RQ",7)=""
^DD(213.2,"RQ",8)=""
^DD(213.2,"RQ",9)=""
^DD(213.2,"RQ",10)=""
^DD(213.2,"RQ",11)=""
^DD(213.2,"RQ",12)=""
^DD(213.2,"RQ",13)=""
^DD(213.2,"RQ",14)=""
^DD(213.2,"RQ",15)=""
^DD(213.2,"RQ",16)=""
^DD(213.2,"RQ",17)=""
^DD(213.2,"RQ",18)=""
^DD(213.2,"RQ",19)=""
^DD(213.2,"RQ",20)=""
^DD(213.2,"RQ",43)=""
^DD(213.3,0)="FIELD^^3.2^17"
^DD(213.3,0,"DDA")="N"
^DD(213.3,0,"IX","B",213.3,.01)=""
^DD(213.3,0,"NM","NURS AMIS WARD")=""
^DD(213.3,0,"PT",211.41,1)=""
^DD(213.3,0,"PT",211.43,.01)=""
^DD(213.3,0,"PT",213.41,.01)=""
^DD(213.3,0,"PT",214,3)=""
^DD(213.3,0,"PT",214.6,7)=""
^DD(213.3,0,"PT",727.805,13)=""
^DD(213.3,0,"VR")="4.0"
^DD(213.3,0,"VRPK")="NURSING SERVICE"
^DD(213.3,.01,0)="BED SECTION^RFXI^^0;1^K X D EN^DDIOL($C(7)_""NO EDITING/ADDING OF ENTRIES ALLOWED"",,""!?4"")"
^DD(213.3,.01,1,0)="^.1"
^DD(213.3,.01,1,1,0)="213.3^B"
^DD(213.3,.01,1,1,1)="S ^NURSF(213.3,""B"",$E(X,1,30),DA)="""""
^DD(213.3,.01,1,1,2)="K ^NURSF(213.3,""B"",$E(X,1,30),DA)"
^DD(213.3,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(213.3,.01,1,1,"%D",1,0)="This is the main index on the 'Bed Section' field of the NURS AMIS Ward"
^DD(213.3,.01,1,1,"%D",2,0)="file."
^DD(213.3,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(213.3,.01,9)="^"
^DD(213.3,.01,21,0)="1^^1^1^2950224^"
^DD(213.3,.01,21,1,0)="Name of a nursing AMIS bed section."
^DD(213.3,.01,"DEL",1,0)="I 1"
^DD(213.3,.01,"DT")="2880427"
^DD(213.3,1,0)="ABBREVIATION^RF^^1;1^K:$L(X)>3!($L(X)<3) X"
^DD(213.3,1,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(213.3,1,21,0)="^^1^1^2950224^^^^"
^DD(213.3,1,21,1,0)="Abbreviation (3 characters) for this bed section."
^DD(213.3,1,"DT")="2860708"
^DD(213.3,2,0)="WLFACT DAY1^NJ5,2^^1;2^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2,1,0)="^.1^^0"
^DD(213.3,2,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2,21,0)="^^1^1^2960802^^^^"
^DD(213.3,2,21,1,0)="Hours of nursing care/category 1 pts./day shift."
^DD(213.3,2,"DT")="2890627"
^DD(213.3,2.1,0)="WLFACT DAY2^NJ5,2^^1;3^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.1,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.1,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.1,21,1,0)="Hours of nursing care/category 2 pts./day shift."
^DD(213.3,2.1,"DT")="2890627"
^DD(213.3,2.2,0)="WLFACT DAY3^NJ5,2^^1;4^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.2,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.2,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.2,21,1,0)="Hours of nursing care/category 3 pts./ day shift."
^DD(213.3,2.2,"DT")="2890627"
^DD(213.3,2.3,0)="WLFACT DAY4^NJ5,2^^1;5^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.3,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.3,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.3,21,1,0)="Hours of nursing care/category 4 pts./day shift."
^DD(213.3,2.3,"DT")="2890627"
^DD(213.3,2.31,0)="WLFACT DAY5^NJ5,2^^1;14^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.31,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.31,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.31,21,1,0)="Hours of nursing care/category 5 pts./day shift."
^DD(213.3,2.31,"DT")="2890627"
^DD(213.3,2.4,0)="WLFACT EVE1^NJ5,2^^1;6^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.4,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.4,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.4,21,1,0)="Hours of nursing care/category 1 pts./evening shift."
^DD(213.3,2.4,"DT")="2890627"
^DD(213.3,2.5,0)="WLFACT EVE2^NJ5,2^^1;7^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.5,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.5,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.5,21,1,0)="Hours of nursing care/category 2 pts./evening shift."
^DD(213.3,2.5,"DT")="2890627"
^DD(213.3,2.6,0)="WLFACT EVE3^NJ5,2^^1;8^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.6,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.6,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.6,21,1,0)="Hours of nursing care/category 3 pts./evening shift."
^DD(213.3,2.6,"DT")="2890627"
^DD(213.3,2.7,0)="WLFACT EVE4^NJ5,2^^1;9^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.7,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.7,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.7,21,1,0)="Hours of nursing care/category 4 pts./evening shift."
^DD(213.3,2.7,"DT")="2890627"
^DD(213.3,2.71,0)="WLFACT EVE5^NJ5,2^^1;15^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.71,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.71,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.71,21,1,0)="Hours of nursing care/category 5 pts./evening shift."
^DD(213.3,2.71,"DT")="2890627"
^DD(213.3,2.8,0)="WLFACT NGH1^NJ5,2^^1;10^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.8,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.8,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.8,21,1,0)="Hours of nursing care/category 1 pts./night shift."
^DD(213.3,2.8,"DT")="2890627"
^DD(213.3,2.9,0)="WLFACT NGH2^NJ5,2^^1;11^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,2.9,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,2.9,21,0)="^^1^1^2950927^^^^"
^DD(213.3,2.9,21,1,0)="Hours of nursing care/category 2 pts./night shift."
^DD(213.3,2.9,"DT")="2890627"
^DD(213.3,3,0)="WLFACT NGH3^NJ5,2^^1;12^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,3,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,3,21,0)="^^1^1^2950927^^^^"
^DD(213.3,3,21,1,0)="Hours of nursing care/category 3 pts./night shift."
^DD(213.3,3,"DT")="2890627"
^DD(213.3,3.1,0)="WLFACT NGH4^NJ5,2^^1;13^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,3.1,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,3.1,21,0)="^^1^1^2950927^^^^"
^DD(213.3,3.1,21,1,0)="Hours of nursing care/category 4 pts./night shift."
^DD(213.3,3.1,"DT")="2890627"
^DD(213.3,3.2,0)="WLFACT NGH5^NJ5,2^^1;16^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.3,3.2,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(213.3,3.2,21,0)="^^1^1^2950927^^^^"
^DD(213.3,3.2,21,1,0)="Hours of nursing care/category 5 pts./night shift."
^DD(213.3,3.2,"DT")="2890627"
^DD(213.3,"B","ABBREVIATION",1)=""
^DD(213.3,"B","BED SECTION",.01)=""
^DD(213.3,"B","WLFACT DAY1",2)=""
^DD(213.3,"B","WLFACT DAY2",2.1)=""
^DD(213.3,"B","WLFACT DAY3",2.2)=""
^DD(213.3,"B","WLFACT DAY4",2.3)=""
^DD(213.3,"B","WLFACT DAY5",2.31)=""
^DD(213.3,"B","WLFACT EVE1",2.4)=""
^DD(213.3,"B","WLFACT EVE2",2.5)=""
^DD(213.3,"B","WLFACT EVE3",2.6)=""
^DD(213.3,"B","WLFACT EVE4",2.7)=""
^DD(213.3,"B","WLFACT EVE5",2.71)=""
^DD(213.3,"B","WLFACT NGH1",2.8)=""
^DD(213.3,"B","WLFACT NGH2",2.9)=""
^DD(213.3,"B","WLFACT NGH3",3)=""
^DD(213.3,"B","WLFACT NGH4",3.1)=""
^DD(213.3,"B","WLFACT NGH5",3.2)=""
^DD(213.3,"GL",0,1,.01)=""
^DD(213.3,"GL",1,1,1)=""
^DD(213.3,"GL",1,2,2)=""
^DD(213.3,"GL",1,3,2.1)=""
^DD(213.3,"GL",1,4,2.2)=""
^DD(213.3,"GL",1,5,2.3)=""
^DD(213.3,"GL",1,6,2.4)=""
^DD(213.3,"GL",1,7,2.5)=""
^DD(213.3,"GL",1,8,2.6)=""
^DD(213.3,"GL",1,9,2.7)=""
^DD(213.3,"GL",1,10,2.8)=""
^DD(213.3,"GL",1,11,2.9)=""
^DD(213.3,"GL",1,12,3)=""
^DD(213.3,"GL",1,13,3.1)=""
^DD(213.3,"GL",1,14,2.31)=""
^DD(213.3,"GL",1,15,2.71)=""
^DD(213.3,"GL",1,16,3.2)=""
^DD(213.3,"IX",.01)=""
^DD(213.3,"RQ",.01)=""
^DD(213.3,"RQ",1)=""
^DD(213.4,0)="FIELD^^13^9"
^DD(213.4,0,"DDA")="N"
^DD(213.4,0,"DT")="2920312"
^DD(213.4,0,"IX","AB",213.4,.01)=""
^DD(213.4,0,"IX","B",213.4,.01)=""
^DD(213.4,0,"NM","NURS AMIS 1106 MANHOURS")=""
^DD(213.4,0,"VR")="4.0"
^DD(213.4,0,"VRPK")="NURSING SERVICE"
^DD(213.4,.01,0)="DATE/SHIFT/WARD^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>22!($L(X)<8)!'(X?7N.1A1.15E) X"
^DD(213.4,.01,1,0)="^.1"
^DD(213.4,.01,1,1,0)="213.4^B"
^DD(213.4,.01,1,1,1)="S ^NURSA(213.4,""B"",$E(X,1,30),DA)="""""
^DD(213.4,.01,1,1,2)="K ^NURSA(213.4,""B"",$E(X,1,30),DA)"
^DD(213.4,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(213.4,.01,1,1,"%D",1,0)="This is the main index on the 'Date/Shift/Ward' field of the NURS AMIS"
^DD(213.4,.01,1,1,"%D",2,0)="1106 Manhours file."
^DD(213.4,.01,1,5,0)="213.4^AB^MUMPS"
^DD(213.4,.01,1,5,1)="S ^NURSA(213.4,""AB"",$E(X,1,7),DA)="""""
^DD(213.4,.01,1,5,2)="K ^NURSA(213.4,""AB"",$E(X,1,7),DA)"
^DD(213.4,.01,1,5,"%D",0)="^^2^2^2980305^"
^DD(213.4,.01,1,5,"%D",1,0)="This is a Mumps cross-reference of just the date of the"
^DD(213.4,.01,1,5,"%D",2,0)="AMIS 1106 Manhours."
^DD(213.4,.01,1,5,"DT")="2980302"
^DD(213.4,.01,3)="ANSWER MUST BE 8-22 CHARACTERS IN LENGTH"
^DD(213.4,.01,21,0)="^^3^3^2950927^^^"
^DD(213.4,.01,21,1,0)="This field is composed of the DATE of the data concatenated to the SHIFT"
^DD(213.4,.01,21,2,0)="(D=Day, E=Evening, N=Night) of the data concatenated with the WARD"
^DD(213.4,.01,21,3,0)="associated with the data."
^DD(213.4,.01,"DT")="2980302"
^DD(213.4,1,0)="ACTUAL HOURS ON DUTY RN^NJ6,2^^0;2^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.4,1,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(213.4,1,21,0)="^^2^2^2910408^^^^"
^DD(213.4,1,21,1,0)="Actual number of RN manhours worked for this ward"
^DD(213.4,1,21,2,0)="on this shift on this day."
^DD(213.4,1,"DT")="2900719"
^DD(213.4,2,0)="ACTUAL HOURS ON DUTY LPN^NJ6,2^^0;3^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.4,2,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(213.4,2,21,0)="2^^2^2^2900719^^^^"
^DD(213.4,2,21,1,0)="Indicates the number of LPN manhours worked for this ward on this"
^DD(213.4,2,21,2,0)="shift on this day."
^DD(213.4,2,"DT")="2890202"
^DD(213.4,3,0)="ACTUAL HOURS ON DUTY NA^NJ6,2^^0;4^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.4,3,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(213.4,3,21,0)="^^2^2^2900719^^^^"
^DD(213.4,3,21,1,0)="Indicates the number of NA manhours worked for this ward on this"
^DD(213.4,3,21,2,0)="shift on this day."
^DD(213.4,3,"DT")="2900423"
^DD(213.4,5,0)="ACUITY^213.41PA^^1;0"
^DD(213.4,10,0)="ENTERED BY^RP200'^VA(200,^0;8^Q"
^DD(213.4,10,8.5)="^"
^DD(213.4,10,9)="^"
^DD(213.4,10,21,0)="^^1^1^2920113^^^"
^DD(213.4,10,21,1,0)="This field indicates the user entering the manhour entries."
^DD(213.4,10,"DT")="2920113"
^DD(213.4,11,0)="DATE^CDJ8^^ ; ^S X=$E(^NURSA(213.4,D0,0),1,7)"
^DD(213.4,11,9)="^"
^DD(213.4,11,9.01)=""
^DD(213.4,11,9.1)="S X=$E(^NURSA(213.4,D0,0),1,7)"
^DD(213.4,11,21,0)="^^1^1^2900814^^"
^DD(213.4,11,21,1,0)="This field indicates the date of this entry."
^DD(213.4,11,"DT")="2900622"
^DD(213.4,12,0)="SHIFT^CJ8^^ ; ^S NURX=$E(^NURSA(213.4,D0,0),8),X=$S(NURX=""D"":""DAY"",NURX=""N"":""NIGHT"",NURX=""E"":""EVENING"",1:"""")"
^DD(213.4,12,9)="^"
^DD(213.4,12,9.01)=""
^DD(213.4,12,9.1)="S NURX=$E(^NURSA(213.4,D0,0),8),X=$S(NURX=""D"":""DAY"",NURX=""N"":""NIGHT"",NURX=""E"":""EVENING"",1:"""")"
^DD(213.4,12,21,0)="^^1^1^2950927^^"
^DD(213.4,12,21,1,0)="This field indicates the shift associated with this entry."
^DD(213.4,13,0)="WARD^CJ8^^ ; ^S NPWARD=$E($P(^NURSA(213.4,D0,0),""^""),9,99) D EN6^NURSAUTL S:NPWARD'="""" X=NPWARD"
^DD(213.4,13,9)="^"
^DD(213.4,13,9.01)=""
^DD(213.4,13,9.1)="S NPWARD=$E($P(^NURSA(213.4,D0,0),""^""),9,99) D EN6^NURSAUTL S:NPWARD'="""" X=NPWARD"
^DD(213.4,13,21,0)="^^1^1^2950927^^"
^DD(213.4,13,21,1,0)="This field indicates the location associated with this entry."
^DD(213.4,13,"DT")="2900622"
^DD(213.4,"B","ACTUAL HOURS ON DUTY LPN",2)=""
^DD(213.4,"B","ACTUAL HOURS ON DUTY NA",3)=""
^DD(213.4,"B","ACTUAL HOURS ON DUTY RN",1)=""
^DD(213.4,"B","ACUITY",5)=""
^DD(213.4,"B","DATE",11)=""
^DD(213.4,"B","DATE/SHIFT/WARD",.01)=""
^DD(213.4,"B","ENTERED BY",10)=""
^DD(213.4,"B","SHIFT",12)=""
^DD(213.4,"B","WARD",13)=""
^DD(213.4,"GL",0,1,.01)=""
^DD(213.4,"GL",0,2,1)=""
^DD(213.4,"GL",0,3,2)=""
^DD(213.4,"GL",0,4,3)=""
^DD(213.4,"GL",0,8,10)=""
^DD(213.4,"GL",1,0,5)=""
^DD(213.4,"IX",.01)=""
^DD(213.4,"RQ",.01)=""
^DD(213.4,"RQ",10)=""
^DD(213.4,"SB",213.41,5)=""
^DD(213.41,0)="ACUITY SUB-FIELD^^5^6"
^DD(213.41,0,"DT")="2920312"
^DD(213.41,0,"IX","B",213.41,.01)=""
^DD(213.41,0,"NM","ACUITY")=""
^DD(213.41,0,"UP")="213.4"
^DD(213.41,.01,0)="ACUITY BED SECTION^MP213.3'^NURSF(213.3,^0;1^Q"
^DD(213.41,.01,1,0)="^.1"
^DD(213.41,.01,1,1,0)="213.41^B"
^DD(213.41,.01,1,1,1)="S ^NURSA(213.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(213.41,.01,1,1,2)="K ^NURSA(213.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(213.41,.01,1,1,"%D",0)="^^2^2^2950927^^^^"
^DD(213.41,.01,1,1,"%D",1,0)="This is the main index on the 'Acuity bed Section' field of the Acuity"
^DD(213.41,.01,1,1,"%D",2,0)="subfile in the NURS 1106 Manhours file."
^DD(213.41,.01,3)="Choose a NURSING BED SECTION."
^DD(213.41,.01,21,0)="^^1^1^2950927^^^^"
^DD(213.41,.01,21,1,0)="This is the bed section associated with the following acuity data."
^DD(213.41,.01,"DT")="2910920"
^DD(213.41,1,0)="CATEGORY 1^RNJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(213.41,1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(213.41,1,21,0)="^^2^2^2950927^^^^"
^DD(213.41,1,21,1,0)="Represents the number of patients with an acuity rating of one for this"
^DD(213.41,1,21,2,0)="nursing bed section."
^DD(213.41,1,"DT")="2920312"
^DD(213.41,2,0)="CATEGORY 2^RNJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(213.41,2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(213.41,2,21,0)="^^2^2^2950224^^^^"
^DD(213.41,2,21,1,0)="Represents the number of patients with an acuity rating of two for this"
^DD(213.41,2,21,2,0)="nursing bed section."
^DD(213.41,2,"DT")="2920312"
^DD(213.41,3,0)="CATEGORY 3^RNJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(213.41,3,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(213.41,3,21,0)="^^2^2^2950224^^^^"
^DD(213.41,3,21,1,0)="Represents the number of patients with an acuity rating of three for this"
^DD(213.41,3,21,2,0)="nursing bed section."
^DD(213.41,3,"DT")="2920312"
^DD(213.41,4,0)="CATEGORY 4^RNJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(213.41,4,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(213.41,4,21,0)="^^2^2^2950224^^^^"
^DD(213.41,4,21,1,0)="Represents the number of patients with an acuity rating of four for this"
^DD(213.41,4,21,2,0)="nursing bed section."
^DD(213.41,4,"DT")="2920312"
^DD(213.41,5,0)="CATEGORY 5^RNJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(213.41,5,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(213.41,5,21,0)="^^2^2^2950224^^^^"
^DD(213.41,5,21,1,0)="Represents the number of patients with an acuity rating of five for this"
^DD(213.41,5,21,2,0)="nursing bed section."
^DD(213.41,5,"DT")="2920312"
^DD(213.41,"B","ACUITY BED SECTION",.01)=""
^DD(213.41,"B","CATEGORY 1",1)=""
^DD(213.41,"B","CATEGORY 2",2)=""
^DD(213.41,"B","CATEGORY 3",3)=""
^DD(213.41,"B","CATEGORY 4",4)=""
^DD(213.41,"B","CATEGORY 5",5)=""
^DD(213.41,"GL",0,1,.01)=""
^DD(213.41,"GL",0,2,1)=""
^DD(213.41,"GL",0,3,2)=""
^DD(213.41,"GL",0,4,3)=""
^DD(213.41,"GL",0,5,4)=""
^DD(213.41,"GL",0,6,5)=""
^DD(213.41,"IX",.01)=""
^DD(213.41,"RQ",1)=""
^DD(213.41,"RQ",2)=""
^DD(213.41,"RQ",3)=""
^DD(213.41,"RQ",4)=""
^DD(213.41,"RQ",5)=""
^DD(213.5,0)="FIELD^^2^4"
^DD(213.5,0,"DDA")="N"
^DD(213.5,0,"DT")="2970408"
^DD(213.5,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(213.5,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(213.5,0,"IX","B",213.5,.01)=""
^DD(213.5,0,"IX","C",213.51,.01)=""
^DD(213.5,0,"IX","D",213.51,1)=""
^DD(213.5,0,"IX","E",213.5,.02)=""
^DD(213.5,0,"NM","NURS AMIS DAILY EXCEPTION REPORT")=""
^DD(213.5,0,"VR")="4.0"
^DD(213.5,0,"VRPK")="NURSING SERVICE"
^DD(213.5,.01,0)="DATE^RDI^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(213.5,.01,1,0)="^.1"
^DD(213.5,.01,1,1,0)="213.5^B"
^DD(213.5,.01,1,1,1)="S ^NURSA(213.5,""B"",$E(X,1,30),DA)="""""
^DD(213.5,.01,1,1,2)="K ^NURSA(213.5,""B"",$E(X,1,30),DA)"
^DD(213.5,.01,1,1,"%D",0)="^^2^2^2950927^^^^"
^DD(213.5,.01,1,1,"%D",1,0)="This is the main index on the 'Date' field of the NURS Exception"
^DD(213.5,.01,1,1,"%D",2,0)="Report file."
^DD(213.5,.01,3)=""
^DD(213.5,.01,21,0)="^^3^3^2950922^^^^"
^DD(213.5,.01,21,1,0)="Date to which this unclassified patient AMIS data pertains."
^DD(213.5,.01,21,2,0)="The date the patient was not classified."
^DD(213.5,.01,21,3,0)=" "
^DD(213.5,.01,"DT")="2890114"
^DD(213.5,.02,0)="AMIS TYPE^RSI^0:3 PM TOTALS;1:MIDNIGHT TOTALS;^0;2^Q"
^DD(213.5,.02,1,0)="^.1"
^DD(213.5,.02,1,1,0)="213.5^E"
^DD(213.5,.02,1,1,1)="S ^NURSA(213.5,""E"",$E(X,1,30),DA)="""""
^DD(213.5,.02,1,1,2)="K ^NURSA(213.5,""E"",$E(X,1,30),DA)"
^DD(213.5,.02,1,1,"%D",0)="^^2^2^2950927^^"
^DD(213.5,.02,1,1,"%D",1,0)="This index indicates the type of AMIS totals (3 PM or Midnight) that this"
^DD(213.5,.02,1,1,"%D",2,0)="entry references."
^DD(213.5,.02,21,0)="^^1^1^2920414^^^"
^DD(213.5,.02,21,1,0)="This flag indicates the type of AMIS totals contained in this field."
^DD(213.5,.02,"DT")="2920414"
^DD(213.5,1,0)="PATIENT^213.51P^^1;0"
^DD(213.5,1,3)=""
^DD(213.5,1,21,0)="^^2^2^2970409^^^^"
^DD(213.5,1,21,1,0)="The unclassified patient information associated with a particular time/date."
^DD(213.5,1,21,2,0)=" "
^DD(213.5,2,0)="STAFF EMPLOYEE^213.52PA^^2;0"
^DD(213.5,2,21,0)="^^3^3^2950927^^^^"
^DD(213.5,2,21,1,0)="This field stores data from the Nursing Acuity/Separation-Activation"
^DD(213.5,2,21,2,0)="Run for a period of thirty days. The Employee Activation/Separation"
^DD(213.5,2,21,3,0)="Report is generated from this file."
^DD(213.5,"B","AMIS TYPE",.02)=""
^DD(213.5,"B","DATE",.01)=""
^DD(213.5,"B","PATIENT",1)=""
^DD(213.5,"B","STAFF EMPLOYEE",2)=""
^DD(213.5,"GL",0,1,.01)=""
^DD(213.5,"GL",0,2,.02)=""
^DD(213.5,"GL",1,0,1)=""
^DD(213.5,"GL",2,0,2)=""
^DD(213.5,"IX",.01)=""
^DD(213.5,"IX",.02)=""
^DD(213.5,"RQ",.01)=""
^DD(213.5,"RQ",.02)=""
^DD(213.5,"SB",213.51,1)=""
^DD(213.5,"SB",213.52,2)=""
^DD(213.51,0)="PATIENT SUB-FIELD^^4^5"
^DD(213.51,0,"DT")="2970408"
^DD(213.51,0,"NM","PATIENT")=""
^DD(213.51,0,"UP")="213.5"
^DD(213.51,.01,0)="PATIENT^MRP2'X^DPT(^0;1^S DINUM=X Q"
^DD(213.51,.01,1,0)="^.1^^-1"
^DD(213.51,.01,1,2,0)="213.5^C"
^DD(213.51,.01,1,2,1)="S ^NURSA(213.5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(213.51,.01,1,2,2)="K ^NURSA(213.5,""C"",$E(X,1,30),DA(1),DA)"
^DD(213.51,.01,1,2,"%D",0)="^^2^2^2950224^"
^DD(213.51,.01,1,2,"%D",1,0)="This index indicates the name of the unclassified patient referenced"
^DD(213.51,.01,1,2,"%D",2,0)="by this time/date."
^DD(213.51,.01,21,0)="^^2^2^2950328^^^^"
^DD(213.51,.01,21,1,0)="The name of the patient who was unclassified for the AMIS 1106 run for the"
^DD(213.51,.01,21,2,0)="date indicated on this record.  Pointer to the patient (#2) file."
^DD(213.51,.01,"DT")="2890207"
^DD(213.51,1,0)="NURS LOCATION^RP211.4'I^NURSF(211.4,^0;2^Q"
^DD(213.51,1,1,0)="^.1"
^DD(213.51,1,1,1,0)="213.5^D"
^DD(213.51,1,1,1,1)="S ^NURSA(213.5,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(213.51,1,1,1,2)="K ^NURSA(213.5,""D"",$E(X,1,30),DA(1),DA)"
^DD(213.51,1,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(213.51,1,1,1,"%D",1,0)="This index indicates the location where the patient was not"
^DD(213.51,1,1,1,"%D",2,0)="classified on a specific time/date."
^DD(213.51,1,21,0)="^^2^2^2950328^^^^"
^DD(213.51,1,21,1,0)="Nursing location of this patient.  Pointer to the NURS Location (#211.4)"
^DD(213.51,1,21,2,0)="file."
^DD(213.51,1,"DT")="2890114"
^DD(213.51,2,0)="REASON ON REPORT^RSI^1:NO WARD ASSIGNED;2:NOT CLASSIFIED;3:CLASS. NOT CURRENT;4:NOT CLASS. BY 3 PM;5:BAD CLASS. XREF;6:NO CLASS./NEW WARD;7:BAD DATA;8:NOT ADMITTED;9:UNIT NOT CURRENT;^0;3^Q"
^DD(213.51,2,21,0)="^^2^2^2970409^^^^"
^DD(213.51,2,21,1,0)="Set of codes denoting the reason why the patient was not included in the "
^DD(213.51,2,21,2,0)="AMIS statistics."
^DD(213.51,2,"DT")="2970408"
^DD(213.51,3,0)="ABSENCE^RSI^1:N/A;2:LEAVE;3:AWOL;4:OTH. FAC.;5:ERROR;^0;4^Q"
^DD(213.51,3,21,0)="^^2^2^2900405^^^^"
^DD(213.51,3,21,1,0)="Set of codes denoting whether or not the patient was in the hospital at the "
^DD(213.51,3,21,2,0)="time the AMIS statistics were calculated."
^DD(213.51,3,"DT")="2890114"
^DD(213.51,4,0)="LAST CLASSIFICATION^DI^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(213.51,4,21,0)="^^1^1^2910320^^^^"
^DD(213.51,4,21,1,0)="The date/time of the patient's last classification, if applicable."
^DD(213.51,4,"DT")="2890323"
^DD(213.51,"B","ABSENCE",3)=""
^DD(213.51,"B","LAST CLASSIFICATION",4)=""
^DD(213.51,"B","NURS LOCATION",1)=""
^DD(213.51,"B","PATIENT",.01)=""
^DD(213.51,"B","REASON ON REPORT",2)=""
^DD(213.51,"GL",0,1,.01)=""
^DD(213.51,"GL",0,2,1)=""
^DD(213.51,"GL",0,3,2)=""
^DD(213.51,"GL",0,4,3)=""
^DD(213.51,"GL",0,5,4)=""
^DD(213.51,"IX",.01)=""
^DD(213.51,"IX",1)=""
^DD(213.51,"RQ",.01)=""
^DD(213.51,"RQ",1)=""
^DD(213.51,"RQ",2)=""
^DD(213.51,"RQ",3)=""
^DD(213.52,0)="STAFF EMPLOYEE SUB-FIELD^^6^7"
^DD(213.52,0,"DT")="2960123"
^DD(213.52,0,"IX","B",213.52,.01)=""
^DD(213.52,0,"NM","STAFF EMPLOYEE")=""
^DD(213.52,0,"UP")="213.5"
^DD(213.52,.01,0)="STAFF EMPLOYEE^RP200'^VA(200,^0;1^Q"
^DD(213.52,.01,1,0)="^.1"
^DD(213.52,.01,1,1,0)="213.52^B"
^DD(213.52,.01,1,1,1)="S ^NURSA(213.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(213.52,.01,1,1,2)="K ^NURSA(213.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(213.52,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(213.52,.01,1,1,"%D",1,0)="This is the main index on the 'Staff Employee' field of the Staff Employee"
^DD(213.52,.01,1,1,"%D",2,0)="subfile in the NURS AMIS Daily Exception Report file."
^DD(213.52,.01,21,0)="^^1^1^2950328^^^^"
^DD(213.52,.01,21,1,0)="Name of the employee that was activated/separated."
^DD(213.52,.01,"DT")="2910312"
^DD(213.52,1,0)="ACTION^S^S:SEPARATED;A:ACTIVATED;^0;2^Q"
^DD(213.52,1,21,0)="^^2^2^2950328^^"
^DD(213.52,1,21,1,0)="This field indicates the action taken for this entry (i.e., employee"
^DD(213.52,1,21,2,0)="activated or employee separated)."
^DD(213.52,1,"DT")="2910920"
^DD(213.52,2,0)="START/VACANCY DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(213.52,2,21,0)="^^1^1^2950224^"
^DD(213.52,2,21,1,0)="This field indicates the separation/activation date for this entry."
^DD(213.52,2,"DT")="2910312"
^DD(213.52,3,0)="REASON^P211.9'^NURSF(211.9,^0;4^Q"
^DD(213.52,3,21,0)="^^1^1^2950224^^"
^DD(213.52,3,21,1,0)="This field indicates the separation/activation reason for this entry."
^DD(213.52,3,"DT")="2910312"
^DD(213.52,4,0)="LOCATION^P211.4'^NURSF(211.4,^0;5^Q"
^DD(213.52,4,21,0)="^^1^1^2950224^"
^DD(213.52,4,21,1,0)="This field indicates the employee's activation/separation location."
^DD(213.52,4,"DT")="2910325"
^DD(213.52,5,0)="SERVICE POSITION^P211.3'^NURSF(211.3,^0;6^Q"
^DD(213.52,5,21,0)="^^1^1^2950224^"
^DD(213.52,5,21,1,0)="This field indicates the employee's service position for this assignment."
^DD(213.52,5,"DT")="2910524"
^DD(213.52,6,0)="FTEE^RNJ5,3^^0;7^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.52,6,3)="Type a Number between 0 and 1, 3 Decimal Digits"
^DD(213.52,6,21,0)="^^2^2^2960123^^"
^DD(213.52,6,21,1,0)="This field contains the employee's FTEE at the time of separation from"
^DD(213.52,6,21,2,0)="Nursing Service."
^DD(213.52,6,"DT")="2960123"
^DD(213.52,"B","ACTION",1)=""
^DD(213.52,"B","FTEE",6)=""
^DD(213.52,"B","LOCATION",4)=""
^DD(213.52,"B","REASON",3)=""
^DD(213.52,"B","SERVICE POSITION",5)=""
^DD(213.52,"B","STAFF EMPLOYEE",.01)=""
^DD(213.52,"B","START/VACANCY DATE",2)=""
^DD(213.52,"GL",0,1,.01)=""
^DD(213.52,"GL",0,2,1)=""
^DD(213.52,"GL",0,3,2)=""
^DD(213.52,"GL",0,4,3)=""
^DD(213.52,"GL",0,5,4)=""
^DD(213.52,"GL",0,6,5)=""
^DD(213.52,"GL",0,7,6)=""
^DD(213.52,"IX",.01)=""
^DD(213.52,"RQ",.01)=""
^DD(213.52,"RQ",6)=""
^DD(213.9,0)="FIELD^^56^38"
^DD(213.9,0,"DDA")="N"
^DD(213.9,0,"DT")="2970206"
^DD(213.9,0,"IX","B",213.9,.01)=""
^DD(213.9,0,"NM","NURS PARAMETERS")=""
^DD(213.9,0,"VR")="4.0"
^DD(213.9,0,"VRPK")="NURSING SERVICE"
^DD(213.9,.01,0)="NAME^RFIX^^0;1^K:'$D(DA)#2 X I $D(X)#2 K:DA'=1 X I $D(X)#2 K:$L(X)>3!($L(X)<3)!'(X=""ONE"") X"
^DD(213.9,.01,1,0)="^.1"
^DD(213.9,.01,1,1,0)="213.9^B"
^DD(213.9,.01,1,1,1)="S ^DIC(213.9,""B"",$E(X,1,30),DA)="""""
^DD(213.9,.01,1,1,2)="K ^DIC(213.9,""B"",$E(X,1,30),DA)"
^DD(213.9,.01,1,1,"%D",0)="^^2^2^2950328^^^"
^DD(213.9,.01,1,1,"%D",1,0)="This is the main index on the 'Name' field of the NURS Parameters"
^DD(213.9,.01,1,1,"%D",2,0)="file."
^DD(213.9,.01,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(213.9,.01,21,0)="^^2^2^2891023^^^^"
^DD(213.9,.01,21,1,0)="This field contains the word ONE, and can only contain this word.  Also, there can"
^DD(213.9,.01,21,2,0)="only be one entry in this file."
^DD(213.9,.01,"DEL",1,0)="I 1"
^DD(213.9,.01,"DT")="2870821"
^DD(213.9,2,0)="CNO PRINTER^P3.5'^%ZIS(1,^0;2^Q"
^DD(213.9,2,3)=""
^DD(213.9,2,21,0)="^^2^2^2980309^^^^"
^DD(213.9,2,21,1,0)="This field denotes the device which is assigned to print all of the nursing"
^DD(213.9,2,21,2,0)="exception reports.  This printer should be on at all times."
^DD(213.9,2,"DT")="2980309"
^DD(213.9,3,0)="NURSING OFFLINE/ONLINE^RS^1:OFF-LINE;0:ON-LINE;^OFF;1^Q"
^DD(213.9,3,21,0)="^^2^2^2950328^^^"
^DD(213.9,3,21,1,0)="This switch will allow the site manager to bring the Nursing application "
^DD(213.9,3,21,2,0)="off-line without bringing the entire system down."
^DD(213.9,3,"DT")="2870821"
^DD(213.9,4,0)="NURSING NEW PERSON FILE ACCESS^S^1:ACCESS TO NEW PERSON FILE;0:NO ACCESS TO NEW PERSON FILE;^0;3^Q"
^DD(213.9,4,21,0)="^^2^2^2950328^^^^"
^DD(213.9,4,21,1,0)="This field allows the Site Manager to turn on/off access to the NEW PERSON"
^DD(213.9,4,21,2,0)="file from the Nursing Package."
^DD(213.9,4,"DT")="2920312"
^DD(213.9,5,0)="NURS INITIALIZATION SWITCH^NJ7,3^^INIT;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.9,5,3)="Type a Number between 0 and 100, 3 Decimal Digits"
^DD(213.9,5,8)="^"
^DD(213.9,5,8.5)="^"
^DD(213.9,5,9)="^"
^DD(213.9,5,21,0)="^^1^1^2920124^^^^"
^DD(213.9,5,21,1,0)="This switch is used by the NURSINIT's ONLY.  NO EDITING ALLOWED!!!"
^DD(213.9,5,"DT")="2901002"
^DD(213.9,5.1,0)="NURA INITIALIZATION SWITCH^NJ7,3^^INIT;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.9,5.1,3)="Type a Number between 0 and 100, 3 Decimal Digits"
^DD(213.9,5.1,8)="^"
^DD(213.9,5.1,8.5)="^"
^DD(213.9,5.1,9)="^"
^DD(213.9,5.1,21,0)="^^1^1^2901002^"
^DD(213.9,5.1,21,1,0)="This switch is used by the NURAINIT's ONLY.  NO EDITING ALLOWED!!!"
^DD(213.9,5.1,"DT")="2901002"
^DD(213.9,5.2,0)="NURQ INITIALIZATION SWITCH^NJ7,3^^INIT;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.9,5.2,3)="Type a Number between 0 and 100, 3 Decimal Digits"
^DD(213.9,5.2,8)="^"
^DD(213.9,5.2,8.5)="^"
^DD(213.9,5.2,9)="^"
^DD(213.9,5.2,21,0)="^^1^1^2930325^^"
^DD(213.9,5.2,21,1,0)="This switch is used by the NURQINIT's ONLY.  NO EDITING ALLOWED!!!"
^DD(213.9,5.2,"DT")="2930325"
^DD(213.9,5.3,0)="NURC INITIALIZATION SWITCH^NJ7,3^^INIT;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(213.9,5.3,3)="Type a Number between 0 and 100, 3 Decimal Digits"
^DD(213.9,5.3,8)="^"
^DD(213.9,5.3,8.5)="^"
^DD(213.9,5.3,9)="^"
^DD(213.9,5.3,21,0)="^^1^1^2901002^"
^DD(213.9,5.3,21,1,0)="This switch is used by the NURCINIT's ONLY.  NO EDITING ALLOWED!!!"
^DD(213.9,5.3,"DT")="2901002"
^DD(213.9,6.1,0)="DATE AMIS JOB LAST RUN^DI^^DATE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(213.9,6.1,21,0)="^^3^3^2950927^^^^"
^DD(213.9,6.1,21,1,0)="This field will contain the last date that the Nursing Acuity/"
^DD(213.9,6.1,21,2,0)="Separation-Activation Run has run.  This is the Nursing Acuity/"
^DD(213.9,6.1,21,3,0)="Separation-Activation Run that calculates patient category totals."
^DD(213.9,6.1,"DT")="2880504"
^DD(213.9,6.4,0)="AMIS JOB COMPLETION^SI^0:NOT COMPLETED;1:COMPLETED;^DATE;2^Q"
^DD(213.9,6.4,21,0)="^^2^2^2950927^^^^"
^DD(213.9,6.4,21,1,0)="Flag denoting whether or not the Nursing Acuity/Separation-Activation Run"
^DD(213.9,6.4,21,2,0)="ran to completion."
^DD(213.9,6.4,"DT")="2890117"
^DD(213.9,6.5,0)="AMIS WARD LAST PROCESSED^NJ6,0^^DATE;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,6.5,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(213.9,6.5,21,0)="^^4^4^2950927^^^^"
^DD(213.9,6.5,21,1,0)="The ward that was last being processed by the Nursing Acuity/"
^DD(213.9,6.5,21,2,0)="Separation-Activation Run.  This number is the variable NWARD in"
^DD(213.9,6.5,21,3,0)="the routine NURAAU0, and corresponds to an internal entry number in the"
^DD(213.9,6.5,21,4,0)="NURS Location file."
^DD(213.9,6.5,"DT")="2890117"
^DD(213.9,6.6,0)="AMIS PATIENT LAST PROCESSED^NJ7,0^^DATE;4^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,6.6,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(213.9,6.6,21,0)="^^4^4^2950927^^^^"
^DD(213.9,6.6,21,1,0)="The patient that was last being processed by the Nursing Acuity/"
^DD(213.9,6.6,21,2,0)="Separation-Activation Run.  This number is the variable DFN"
^DD(213.9,6.6,21,3,0)="in the routine NURAAU0, and it corresponds to the internal entry"
^DD(213.9,6.6,21,4,0)="number in the Patient file."
^DD(213.9,6.6,"DT")="2890117"
^DD(213.9,6.8,0)="EVENING ACUITY COMPLETION^S^0:NOT COMPLETED;1:COMPLETED;^DATE;6^Q"
^DD(213.9,6.8,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(213.9,6.8,21,0)="^^1^1^2950927^^^^"
^DD(213.9,6.8,21,1,0)="Flag denoting whether or not the midnight batch job ran to completion."
^DD(213.9,6.8,21,2,0)="being processed by the midnight acuity batch job."
^DD(213.9,6.8,"DT")="2950914"
^DD(213.9,6.9,0)="EVENING WARD LAST PROCESSED^NJ6,0^^DATE;7^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,6.9,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(213.9,6.9,21,0)="^^4^4^2951025^^^^"
^DD(213.9,6.9,21,1,0)="The ward that was last being processed for midnights by the Nursing Acuity/"
^DD(213.9,6.9,21,2,0)="Separation-Activation Run.  This number is the variable NWARD in the"
^DD(213.9,6.9,21,3,0)="routine NURAMU0, and corresponds to an internal entry number in the NURS"
^DD(213.9,6.9,21,4,0)="Location file."
^DD(213.9,6.9,"DT")="2950822"
^DD(213.9,6.91,0)="EVENING PT LAST PROCESSED^NJ7,0^^DATE;8^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,6.91,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(213.9,6.91,21,0)="^^4^4^2950927^^^^"
^DD(213.9,6.91,21,1,0)="The patient that was last being processed for midnights by the Nursing"
^DD(213.9,6.91,21,2,0)="Acuity/Separation-Activation Run.  This number is the variable DFN in"
^DD(213.9,6.91,21,3,0)="the routine NURAMU0, and it corresponds to the internal entry number in"
^DD(213.9,6.91,21,4,0)="the Patient file."
^DD(213.9,6.91,"DT")="2950822"
^DD(213.9,6.92,0)="SEP/ACT JOB COMPLETION^S^0:NOT COMPLETED;1:COMPLETED;^DATE;9^Q"
^DD(213.9,6.92,21,0)="^^2^2^2950927^^^^"
^DD(213.9,6.92,21,1,0)="This field indicates whether or not the Nursing Acuity/Separation-"
^DD(213.9,6.92,21,2,0)="Activation Run has been completed."
^DD(213.9,6.92,"DT")="2920307"
^DD(213.9,6.93,0)="NIGHT ACUITY COMPLETION^S^0:NOT COMPLETED;1:COMPLETED;^DATE;10^Q"
^DD(213.9,6.93,21,0)="^^2^2^2950927^^"
^DD(213.9,6.93,21,1,0)="Flag denoting whether or not the the Nursing Acuity/Separation-Activation"
^DD(213.9,6.93,21,2,0)="Run ran to completion."
^DD(213.9,6.93,"DT")="2950314"
^DD(213.9,6.94,0)="NIGHT WARD LAST PROCESSED^NJ6,0^^DATE;11^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,6.94,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(213.9,6.94,21,0)="^^3^3^2950927^^^^"
^DD(213.9,6.94,21,1,0)="The ward that was last being processed by the Nursing Acuity/Separation-"
^DD(213.9,6.94,21,2,0)="Activation Run.  This number is the variable NWARD in the routine NURAMB1,"
^DD(213.9,6.94,21,3,0)="and corresponds to an internal entry number in the NURS Location File."
^DD(213.9,6.94,"DT")="2950314"
^DD(213.9,6.95,0)="NIGHT PATIENT LAST PROCESSED^NJ6,0^^DATE;12^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,6.95,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(213.9,6.95,21,0)="^^3^3^2950927^^"
^DD(213.9,6.95,21,1,0)="The patient that was last being processed by the Nursing Acuity/Separation-"
^DD(213.9,6.95,21,2,0)="Activation Run.  This number is the variable DFN in the routine NURAMB1, and"
^DD(213.9,6.95,21,3,0)="it corresponds to the internal entry number in the patient file."
^DD(213.9,6.95,"DT")="2950314"
^DD(213.9,7.1,0)="DAY SHIFT ACUITY TIME^RFX^^0;4^K:X'?4N!'(+X>0&(+X<2401)) X"
^DD(213.9,7.1,3)="ANSWER MUST BE 4 NUMBERS REPRESENTING MILITARY TIME, (i.e., 0800 OR 1500)."
^DD(213.9,7.1,4)=""
^DD(213.9,7.1,21,0)="2^^2^2^2950927^^^^"
^DD(213.9,7.1,21,1,0)="The time that the acuity totals will be calculated for"
^DD(213.9,7.1,21,2,0)="the day shift for the current workload statistics report."
^DD(213.9,7.1,"DT")="2900703"
^DD(213.9,7.2,0)="EVENING SHIFT ACUITY TIME^RFX^^0;5^K:X'?4N!'(+X>0&(+X<2401)) X"
^DD(213.9,7.2,3)="ANSWER MUST BE 4 NUMBERS REPRESENTING MILITARY TIME, (i.e., 0800 OR 1500)."
^DD(213.9,7.2,21,0)="^^2^2^2950927^^^^"
^DD(213.9,7.2,21,1,0)="The time that the acuity totals will be calculated for the evening shift"
^DD(213.9,7.2,21,2,0)="for the current workload statistics report."
^DD(213.9,7.2,"DT")="2900703"
^DD(213.9,7.3,0)="NIGHT SHIFT ACUITY TIME^RFX^^0;6^K:X'?4N!'(+X>0&(+X<2401)) X"
^DD(213.9,7.3,3)="ANSWER MUST BE 4 NUMBERS REPRESENTING MILITARY TIME, (i.e., 0800 OR 1500)."
^DD(213.9,7.3,21,0)="^^2^2^2950927^^^^"
^DD(213.9,7.3,21,1,0)="The time that the acuity totals will be calculated for the"
^DD(213.9,7.3,21,2,0)="night shift for the AMIS and current workload statistics report."
^DD(213.9,7.3,"DT")="2900703"
^DD(213.9,8,0)="PROFESSIONAL PERCENTAGE^RNJ3,0^^0;7^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,8,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(213.9,8,21,0)="^^4^4^2951002^^^^"
^DD(213.9,8,21,1,0)="This field defaults the percentage of professional personnel assigned"
^DD(213.9,8,21,2,0)="to a unit if the professional percentage field is not defined in the NURS"
^DD(213.9,8,21,3,0)="Location file.  This data is used in the calculation of unit workload"
^DD(213.9,8,21,4,0)="statistics."
^DD(213.9,8,"DT")="2931119"
^DD(213.9,8.1,0)="*MANHOURS BATCH JOB STATUS^213.9003DA^^MAN;0"
^DD(213.9,8.1,21,0)="^^2^2^2951130^^^^"
^DD(213.9,8.1,21,1,0)="This field contains the status of the Nursing Acuity/Separation-Activation"
^DD(213.9,8.1,21,2,0)="Run for a specific date."
^DD(213.9,8.1,"DT")="2950914"
^DD(213.9,9,0)="*NURS VERSION^NJ6,2^^VERSION;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.9,9,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(213.9,9,8.5)="^"
^DD(213.9,9,9)="^"
^DD(213.9,9,21,0)="^^2^2^2950927^^^^"
^DD(213.9,9,21,1,0)="This field indicates the version of the Nursing Service General Module"
^DD(213.9,9,21,2,0)="(NURS) software."
^DD(213.9,9,"DT")="2950926"
^DD(213.9,9.1,0)="*NURA VERSION^NJ6,2^^VERSION;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.9,9.1,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(213.9,9.1,8.5)="^"
^DD(213.9,9.1,9)="^"
^DD(213.9,9.1,21,0)="^^2^2^2950927^^^^"
^DD(213.9,9.1,21,1,0)="The field indicates the version of the Nursing Administration (NURA) "
^DD(213.9,9.1,21,2,0)="Package."
^DD(213.9,9.1,"DT")="2950926"
^DD(213.9,9.2,0)="*NURE VERSION^NJ6,2^^VERSION;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.9,9.2,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(213.9,9.2,8.5)="^"
^DD(213.9,9.2,9)="^"
^DD(213.9,9.2,21,0)="^^1^1^2950927^^"
^DD(213.9,9.2,21,1,0)="This field indicates the version of the Nursing Education (NURE) Package."
^DD(213.9,9.2,"DT")="2950926"
^DD(213.9,9.3,0)="*NURC VERSION^NJ6,2^^VERSION;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(213.9,9.3,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(213.9,9.3,8.5)="^"
^DD(213.9,9.3,9)="^"
^DD(213.9,9.3,21,0)="^^1^1^2950927^^"
^DD(213.9,9.3,21,1,0)="This field indicates the version of the Nursing Clinical (NURC) Package."
^DD(213.9,9.3,"DT")="2950926"
^DD(213.9,10,0)="PATIENT PLAN OF CARE HEADER^F^^CPH;1^K:$L(X)>50!($L(X)<1) X"
^DD(213.9,10,3)="Answer must be 1-50 characters in length."
^DD(213.9,10,21,0)="^^2^2^2960124^^^^"
^DD(213.9,10,21,1,0)="The data in this field will allow the site to change the title of the"
^DD(213.9,10,21,2,0)="report generated by the Patient Plan of Care, Print (NURCPP-CARE) option."
^DD(213.9,10,21,3,0)="(NURCPP-CARE) option.  For example, the title, Nursing Care Plan, can be"
^DD(213.9,10,21,4,0)="renamed to Patient Care Plan."
^DD(213.9,10,"DT")="2960124"
^DD(213.9,10.1,0)="PATIENT PROBLEM HEADER^F^^CPH;2^K:$L(X)>28!($L(X)<1) X"
^DD(213.9,10.1,3)="Answer must be 1-28 characters in length."
^DD(213.9,10.1,21,0)="^^4^4^2950927^^^^"
^DD(213.9,10.1,21,1,0)="The data in this field allows the site to change the header, Patient"
^DD(213.9,10.1,21,2,0)="Problem, for the report generated by the Patient Plan of Care, Print"
^DD(213.9,10.1,21,3,0)="(NURCPP-CARE) option.  If this field has no data, the Patient Problem"
^DD(213.9,10.1,21,4,0)="heading will still print."
^DD(213.9,10.1,"DT")="2930506"
^DD(213.9,10.2,0)="GOALS/EXPECTED OUTCOMES HEADER^F^^CPH;3^K:$L(X)>28!($L(X)<1) X"
^DD(213.9,10.2,3)="Answer must be 1-28 characters in length."
^DD(213.9,10.2,21,0)="^^4^4^2950927^^^"
^DD(213.9,10.2,21,1,0)="The data in this field allows the site to change the Goals/Expected"
^DD(213.9,10.2,21,2,0)="Outcomes heading on the report generated by the Patient Plan of Care, Print"
^DD(213.9,10.2,21,3,0)="(NURCPP-CARE) option.  If this field has no data then the heading Goals/"
^DD(213.9,10.2,21,4,0)="Expected Outcomes will be used."
^DD(213.9,10.2,21,5,0)="will be used."
^DD(213.9,10.2,"DT")="2930506"
^DD(213.9,10.3,0)="INTERVENTIONS/ORDERS HEADER^F^^CPH;4^K:$L(X)>28!($L(X)<1) X"
^DD(213.9,10.3,3)="Answer must be 1-28 characters in length."
^DD(213.9,10.3,21,0)="^^4^4^2950927^^^"
^DD(213.9,10.3,21,1,0)="The data in this field allows the site to change the Nursing Interventions/"
^DD(213.9,10.3,21,2,0)="Orders heading of the report generated by the Patient Plan of Care, Print"
^DD(213.9,10.3,21,3,0)="(NURCPP-CARE) option.  If this field has no data, then the Nursing"
^DD(213.9,10.3,21,4,0)="Interventions/Orders heading will be used."
^DD(213.9,10.3,21,5,0)="Interventions/Orders heading will be used."
^DD(213.9,10.3,"DT")="2930506"
^DD(213.9,10.4,0)="DEFAULT EVALUATION DATE^FX^^CPD;1^D EN1^NURSUT4"
^DD(213.9,10.4,3)="Answer with the default evaluation date.  Use T for TODAY or N for NOW followed optionally by a number of days.  E.g., T, T+5, N."
^DD(213.9,10.4,21,0)="^^3^3^2950927^^^"
^DD(213.9,10.4,21,1,0)="The data in this field represents the default evaluation date displayed in"
^DD(213.9,10.4,21,2,0)="the Patient Plan of Care, Edit (NURCPE-CARE) option when an evaluation date"
^DD(213.9,10.4,21,3,0)="for a problem is edited."
^DD(213.9,10.4,21,4,0)="edited."
^DD(213.9,10.4,"DT")="2930517"
^DD(213.9,10.5,0)="DEFAULT TARGET DATE^FX^^CPD;2^D EN1^NURSUT4"
^DD(213.9,10.5,3)="Answer with the default target date.  Use T for TODAY or N for NOW followed optionally by a number of days.  E.g., T, T+5, N."
^DD(213.9,10.5,21,0)="^^2^2^2950927^^^^"
^DD(213.9,10.5,21,1,0)="The data in this field represents the default target date displayed in the"
^DD(213.9,10.5,21,2,0)="Patient Plan of Care, Edit (NURCPE-CARE) option."
^DD(213.9,10.5,21,3,0)="(NURCPE-CARE) option when an target date for a goal is edited."
^DD(213.9,10.5,"DT")="2930517"
^DD(213.9,11,0)="PRODUCT LINE^S^Y:YES;N:NO;^0;8^Q"
^DD(213.9,11,.1)=""
^DD(213.9,11,21,0)="^^5^5^2960618^"
^DD(213.9,11,21,1,0)="This field indicates whether or not FTEE data in the NURS Position"
^DD(213.9,11,21,2,0)="Control file (#211.8) is associated with multiple services/product lines."
^DD(213.9,11,21,3,0)="'YES' indicates that an FTEE can be associated with one of multiple"
^DD(213.9,11,21,4,0)="services or product lines. 'NO' indicates that all FTEE is associated with"
^DD(213.9,11,21,5,0)="Nursing Service."
^DD(213.9,11,"DT")="2960422"
^DD(213.9,12,0)="MULTI-DIVISIONAL^S^Y:YES;N:NO;^0;9^Q"
^DD(213.9,12,21,0)="^^4^4^2960618^^^^"
^DD(213.9,12,21,1,0)="This field indicates whether or not the facilty is multi-divisional."
^DD(213.9,12,21,2,0)="YES indicates that each nursing location may be associated with a"
^DD(213.9,12,21,3,0)="separate and different division/institution.  NO indicates that all"
^DD(213.9,12,21,4,0)="locations are associated with a single institution."
^DD(213.9,12,"DT")="2960416"
^DD(213.9,55,0)="*AUTOMATED MAR BATCH ZTSK^NJ7,0^^MAR;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(213.9,55,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(213.9,55,21,0)="^^2^2^2950927^^^^"
^DD(213.9,55,21,1,0)="This field contains the ZTSK number of the Automated MAR Pharmacy Extract"
^DD(213.9,55,21,2,0)="Batch Job."
^DD(213.9,55,"DT")="2950822"
^DD(213.9,56,0)="ACUITY TASK NUMBER^F^^DATE;13^K:$L(X)>15!($L(X)<1) X"
^DD(213.9,56,3)="Answer must be 1-15 characters in length."
^DD(213.9,56,21,0)="^^4^4^2970212^^"
^DD(213.9,56,21,1,0)="This field will contain a number if the patient acuity job is currently"
^DD(213.9,56,21,2,0)="being calculated. If the NURAAM-ACU (tasked) option is running the number"
^DD(213.9,56,21,3,0)="will be the task number. If the NURAAM-ACUMAN (manual) option is running"
^DD(213.9,56,21,4,0)="the number will be '1'."
^DD(213.9,56,"DT")="2970206"
^DD(213.9,"B","*AUTOMATED MAR BATCH ZTSK",55)=""
^DD(213.9,"B","*MANHOURS BATCH JOB STATUS",8.1)=""
^DD(213.9,"B","*NURA VERSION",9.1)=""
^DD(213.9,"B","*NURC VERSION",9.3)=""
^DD(213.9,"B","*NURE VERSION",9.2)=""
^DD(213.9,"B","*NURS VERSION",9)=""
^DD(213.9,"B","ACUITY TASK NUMBER",56)=""
^DD(213.9,"B","AMIS JOB COMPLETION",6.4)=""
^DD(213.9,"B","AMIS PATIENT LAST PROCESSED",6.6)=""
^DD(213.9,"B","AMIS WARD LAST PROCESSED",6.5)=""
^DD(213.9,"B","CNO PRINTER",2)=""
^DD(213.9,"B","DATE AMIS JOB LAST RUN",6.1)=""
^DD(213.9,"B","DAY SHIFT ACUITY TIME",7.1)=""
^DD(213.9,"B","DEFAULT EVALUATION DATE",10.4)=""
^DD(213.9,"B","DEFAULT TARGET DATE",10.5)=""
^DD(213.9,"B","EVENING ACUITY COMPLETION",6.8)=""
^DD(213.9,"B","EVENING PT LAST PROCESSED",6.91)=""
^DD(213.9,"B","EVENING SHIFT ACUITY TIME",7.2)=""
^DD(213.9,"B","EVENING WARD LAST PROCESSED",6.9)=""
^DD(213.9,"B","GOALS/EXPECTED OUTCOMES HEADER",10.2)=""
^DD(213.9,"B","INTERVENTIONS/ORDERS HEADER",10.3)=""
^DD(213.9,"B","MULTI-DIVISIONAL",12)=""
^DD(213.9,"B","NAME",.01)=""
^DD(213.9,"B","NIGHT ACUITY COMPLETION",6.93)=""
^DD(213.9,"B","NIGHT PATIENT LAST PROCESSED",6.95)=""
^DD(213.9,"B","NIGHT SHIFT ACUITY TIME",7.3)=""
^DD(213.9,"B","NIGHT WARD LAST PROCESSED",6.94)=""
^DD(213.9,"B","NURA INITIALIZATION SWITCH",5.1)=""
^DD(213.9,"B","NURC INITIALIZATION SWITCH",5.3)=""
^DD(213.9,"B","NURQ INITIALIZATION SWITCH",5.2)=""
^DD(213.9,"B","NURS INITIALIZATION SWITCH",5)=""
^DD(213.9,"B","NURSING NEW PERSON FILE ACCESS",4)=""
^DD(213.9,"B","NURSING OFFLINE/ONLINE",3)=""
^DD(213.9,"B","PATIENT PLAN OF CARE HEADER",10)=""
^DD(213.9,"B","PATIENT PROBLEM HEADER",10.1)=""
^DD(213.9,"B","PRODUCT LINE",11)=""
^DD(213.9,"B","PROFESSIONAL PERCENTAGE",8)=""
^DD(213.9,"B","SEP/ACT JOB COMPLETION",6.92)=""
^DD(213.9,"GL",0,1,.01)=""
^DD(213.9,"GL",0,2,2)=""
^DD(213.9,"GL",0,3,4)=""
^DD(213.9,"GL",0,4,7.1)=""
^DD(213.9,"GL",0,5,7.2)=""
^DD(213.9,"GL",0,6,7.3)=""
^DD(213.9,"GL",0,7,8)=""
^DD(213.9,"GL",0,8,11)=""
^DD(213.9,"GL",0,9,12)=""
^DD(213.9,"GL","CPD",1,10.4)=""
^DD(213.9,"GL","CPD",2,10.5)=""
^DD(213.9,"GL","CPH",1,10)=""
^DD(213.9,"GL","CPH",2,10.1)=""
^DD(213.9,"GL","CPH",3,10.2)=""
^DD(213.9,"GL","CPH",4,10.3)=""
^DD(213.9,"GL","DATE",1,6.1)=""
^DD(213.9,"GL","DATE",2,6.4)=""
^DD(213.9,"GL","DATE",3,6.5)=""
^DD(213.9,"GL","DATE",4,6.6)=""
^DD(213.9,"GL","DATE",6,6.8)=""
^DD(213.9,"GL","DATE",7,6.9)=""
^DD(213.9,"GL","DATE",8,6.91)=""
^DD(213.9,"GL","DATE",9,6.92)=""
^DD(213.9,"GL","DATE",10,6.93)=""
^DD(213.9,"GL","DATE",11,6.94)=""
^DD(213.9,"GL","DATE",12,6.95)=""
^DD(213.9,"GL","DATE",13,56)=""
^DD(213.9,"GL","INIT",1,5)=""
^DD(213.9,"GL","INIT",2,5.1)=""
^DD(213.9,"GL","INIT",3,5.2)=""
^DD(213.9,"GL","INIT",4,5.3)=""
^DD(213.9,"GL","MAN",0,8.1)=""
^DD(213.9,"GL","MAR",1,55)=""
^DD(213.9,"GL","OFF",1,3)=""
^DD(213.9,"GL","VERSION",1,9)=""
^DD(213.9,"GL","VERSION",2,9.1)=""
^DD(213.9,"GL","VERSION",3,9.2)=""
^DD(213.9,"GL","VERSION",4,9.3)=""
^DD(213.9,"IX",.01)=""
^DD(213.9,"RQ",.01)=""
^DD(213.9,"RQ",3)=""
^DD(213.9,"RQ",7.1)=""
^DD(213.9,"RQ",7.2)=""
^DD(213.9,"RQ",7.3)=""
^DD(213.9,"RQ",8)=""
^DD(213.9,"SB",213.9003,8.1)=""
^DD(213.9003,0)="*MANHOURS BATCH JOB STATUS SUB-FIELD^^3^4"
^DD(213.9003,0,"IX","B",213.9003,.01)=""
^DD(213.9003,0,"NM","*MANHOURS BATCH JOB STATUS")=""
^DD(213.9003,0,"UP")="213.9"
^DD(213.9003,.01,0)="*DATE^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(213.9003,.01,1,0)="^.1"
^DD(213.9003,.01,1,1,0)="213.9003^B"
^DD(213.9003,.01,1,1,1)="S ^DIC(213.9,DA(1),""MAN"",""B"",$E(X,1,30),DA)="""""
^DD(213.9003,.01,1,1,2)="K ^DIC(213.9,DA(1),""MAN"",""B"",$E(X,1,30),DA)"
^DD(213.9003,.01,1,1,"%D",0)="^^2^2^2951130^"
^DD(213.9003,.01,1,1,"%D",1,0)="This is the main index on the date field of the Manhours Batch Job Status"
^DD(213.9003,.01,1,1,"%D",2,0)="sub-field."
^DD(213.9003,.01,21,0)="^^1^1^2950927^^^"
^DD(213.9003,.01,21,1,0)="Indicates the date of this run."
^DD(213.9003,.01,"DT")="2890223"
^DD(213.9003,1,0)="*NIGHT SHIFT^S^0:NOT COMPLETED;1:COMPLETED;^0;2^Q"
^DD(213.9003,1,21,0)="^^2^2^2950927^^"
^DD(213.9003,1,21,1,0)="Flag to indicate if the Nursing Acuity/Separation-Activation Run ran to"
^DD(213.9003,1,21,2,0)="completion for the Night Shift."
^DD(213.9003,1,"DT")="2890223"
^DD(213.9003,2,0)="*DAY SHIFT^S^1:COMPLETED;0:NOT COMPLETED;^0;3^Q"
^DD(213.9003,2,21,0)="^^2^2^2950927^^"
^DD(213.9003,2,21,1,0)="Flag to indicate if the Nursing Acuity/Separation-Activation Run ran to"
^DD(213.9003,2,21,2,0)="completion for the Day Shift."
^DD(213.9003,2,"DT")="2890223"
^DD(213.9003,3,0)="*EVENING SHIFT^S^0:NOT COMPLETED;1:COMPLETED;^0;4^Q"
^DD(213.9003,3,21,0)="^^2^2^2950927^^"
^DD(213.9003,3,21,1,0)="Flag to indicate if the Nursing Acuity/Separation-Activation Run for the"
^DD(213.9003,3,21,2,0)="Evening Shift ran to completion."
^DD(213.9003,3,"DT")="2890223"
^DD(213.9003,"B","*DATE",.01)=""
^DD(213.9003,"B","*DAY SHIFT",2)=""
^DD(213.9003,"B","*EVENING SHIFT",3)=""
^DD(213.9003,"B","*NIGHT SHIFT",1)=""
^DD(213.9003,"GL",0,1,.01)=""
^DD(213.9003,"GL",0,2,1)=""
^DD(213.9003,"GL",0,3,2)=""
^DD(213.9003,"GL",0,4,3)=""
^DD(213.9003,"IX",.01)=""
^DD(214,0)="FIELD^^7^8"
^DD(214,0,"DDA")="N"
^DD(214,0,"DT")="2950224"
^DD(214,0,"IX","AF",214,2)=""
^DD(214,0,"IX","AZ1",214,1)=""
^DD(214,0,"IX","B",214,.01)=""
^DD(214,0,"IX","C",214,1)=""
^DD(214,0,"IX","E",214,2)=""
^DD(214,0,"NM","NURS PATIENT")=""
^DD(214,0,"VR")="4.0"
^DD(214,0,"VRPK")="NURSING SERVICE"
^DD(214,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(214,.01,1,0)="^.1^^-1"
^DD(214,.01,1,1,0)="214^B"
^DD(214,.01,1,1,1)="S ^NURSF(214,""B"",$E(X,1,30),DA)="""""
^DD(214,.01,1,1,2)="K ^NURSF(214,""B"",$E(X,1,30),DA)"
^DD(214,.01,1,1,"%D",0)="^^1^1^2950328^^"
^DD(214,.01,1,1,"%D",1,0)="This is the main index on the 'Name' field of the NURS Patient file."
^DD(214,.01,3)=""
^DD(214,.01,21,0)="^^1^1^2950224^^^^"
^DD(214,.01,21,1,0)="This field contains the name of the person associated with this record."
^DD(214,.01,"DT")="2871118"
^DD(214,1,0)="ADMISSION STATUS^RS^A:ACTIVE;I:INACTIVE;^0;2^Q"
^DD(214,1,1,0)="^.1"
^DD(214,1,1,1,0)="214^AZ1^MUMPS"
^DD(214,1,1,1,1)="S NURSW=$S('$D(^NURSF(214,DA,0)):"""",1:$P(^(0),U,3)) K:(X'=""A"")&(NURSW'="""") ^NURSF(214,""AF"",""A"",NURSW,DA) S:(X=""A"")&(NURSW'="""") ^NURSF(214,""AF"",""A"",NURSW,DA)="""" K NURSW"
^DD(214,1,1,1,2)="S NURSW=$S('$D(^NURSF(214,DA,0)):"""",1:$P(^(0),U,3)) K:NURSW'="""" ^NURSF(214,""AF"",""A"",NURSW,DA) K NURSW"
^DD(214,1,1,1,"%D",0)="^^1^1^2960802^^^"
^DD(214,1,1,1,"%D",1,0)="This mumps index identifies all active patients in the NURS Patient file."
^DD(214,1,1,2,0)="214^C"
^DD(214,1,1,2,1)="S ^NURSF(214,""C"",$E(X,1,30),DA)="""""
^DD(214,1,1,2,2)="K ^NURSF(214,""C"",$E(X,1,30),DA)"
^DD(214,1,1,2,"%D",0)="^^1^1^2970116^^^^"
^DD(214,1,1,2,"%D",1,0)="This is an index on the 'Status' field in the NURS Patient file."
^DD(214,1,21,0)="^^1^1^2960802^^^"
^DD(214,1,21,1,0)="Determines if patient is actively admitted into the hospital."
^DD(214,1,"DT")="2871118"
^DD(214,2,0)="NURS LOCATION^R*P211.4'^NURSF(211.4,^0;3^S DIC(""S"")=$S($D(NURLSCR):""I $S($P($G(^(""""I"""")),U)="""""""":1,$P(^(""""I""""),U)=""""A"""":1,1:0),$S('$D(^(1)):1,$P(^(1),U)=""""A"""":1,1:0)"",1:""I 1"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(214,2,1,0)="^.1"
^DD(214,2,1,1,0)="214^E"
^DD(214,2,1,1,1)="S ^NURSF(214,""E"",$E(X,1,30),DA)="""""
^DD(214,2,1,1,2)="K ^NURSF(214,""E"",$E(X,1,30),DA)"
^DD(214,2,1,1,"%D",0)="^^1^1^2950328^^"
^DD(214,2,1,1,"%D",1,0)="This index is on the 'NURS Location' field of the NURS Patient file."
^DD(214,2,1,2,0)="214^AF^MUMPS"
^DD(214,2,1,2,1)="S NURSS=$S('$D(^NURSF(214,DA,0)):"""",1:$P(^(0),U,2)) K:(NURSS'=""A"") ^NURSF(214,""AF"",""A"",X,DA) S:NURSS=""A"" ^NURSF(214,""AF"",""A"",X,DA)="""" K NURSS"
^DD(214,2,1,2,2)="K ^NURSF(214,""AF"",""A"",X,DA)"
^DD(214,2,1,2,"%D",0)="^^2^2^2950927^^^"
^DD(214,2,1,2,"%D",1,0)="This mumps index identifies active records in the NURS Patient file by"
^DD(214,2,1,2,"%D",2,0)="patient name and NURS Location."
^DD(214,2,12)="Screen to pick out active Nursing locations if a Nursing option is being run."
^DD(214,2,12.1)="S DIC(""S"")=$S($D(NURLSCR):""I $S($P($G(^(""""I"""")),U)="""""""":1,$P(^(""""I""""),U)=""""A"""":1,1:0),$S('$D(^(1)):1,$P(^(1),U)=""""A"""":1,1:0)"",1:""I 1"")"
^DD(214,2,21,0)="^^2^2^2950224^^^^"
^DD(214,2,21,1,0)="Nursing location to which the patient is admitted.  Pointer to the NURS"
^DD(214,2,21,2,0)="Location File (#211.4)"
^DD(214,2,"DT")="2950224"
^DD(214,3,0)="NURS BED SECTION^RP213.3'^NURSF(213.3,^0;4^Q"
^DD(214,3,1,0)="^.1^^0"
^DD(214,3,21,0)="^^2^2^2950328^^^^"
^DD(214,3,21,1,0)="The nursing bed section of the patient.  Pointer to the NURS AMIS Ward"
^DD(214,3,21,2,0)="(#213.3) file."
^DD(214,3,"DT")="2871106"
^DD(214,4,0)="DATE/TIME ON UNIT^RD^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(214,4,21,0)="^^1^1^2950224^^^^"
^DD(214,4,21,1,0)="The date and time the patient was admitted to the ward."
^DD(214,4,"DT")="2871224"
^DD(214,5,0)="DATE/TIME DISCHARGE^D^^0;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(214,5,21,0)="^^1^1^2950927^^^"
^DD(214,5,21,1,0)="This is the date and time the patient physically left the ward."
^DD(214,6,0)="PHYSICIAN NOTIFIED^S^Y:YES;N:NO;^0;7^Q"
^DD(214,6,21,0)="^^1^1^2950224^^^^"
^DD(214,6,21,1,0)="Indicates if a physician was notified of patient's admission."
^DD(214,7,0)="PHYSICIAN NOTIFIED DATE/TIME^D^^0;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(214,7,21,0)="^^1^1^2911108^^^^"
^DD(214,7,21,1,0)="Date and time physician was notified of patient's admission."
^DD(214,"B","ADMISSION STATUS",1)=""
^DD(214,"B","DATE/TIME DISCHARGE",5)=""
^DD(214,"B","DATE/TIME ON UNIT",4)=""
^DD(214,"B","NAME",.01)=""
^DD(214,"B","NURS BED SECTION",3)=""
^DD(214,"B","NURS LOCATION",2)=""
^DD(214,"B","PHYSICIAN NOTIFIED",6)=""
^DD(214,"B","PHYSICIAN NOTIFIED DATE/TIME",7)=""
^DD(214,"GL",0,1,.01)=""
^DD(214,"GL",0,2,1)=""
^DD(214,"GL",0,3,2)=""
^DD(214,"GL",0,4,3)=""
^DD(214,"GL",0,5,4)=""
^DD(214,"GL",0,6,5)=""
^DD(214,"GL",0,7,6)=""
^DD(214,"GL",0,8,7)=""
^DD(214,"IX",.01)=""
^DD(214,"IX",1)=""
^DD(214,"IX",2)=""
^DD(214,"RQ",.01)=""
^DD(214,"RQ",1)=""
^DD(214,"RQ",2)=""
^DD(214,"RQ",3)=""
^DD(214,"RQ",4)=""
^DD(214.6,0)="FIELD^^9^11"
^DD(214.6,0,"DDA")="N"
^DD(214.6,0,"DT")="2960123"
^DD(214.6,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(214.6,0,"IX","AA",214.6,.02)=""
^DD(214.6,0,"IX","AZ1",214.6,.01)=""
^DD(214.6,0,"IX","AZ2",214.6,.01)=""
^DD(214.6,0,"IX","AZ3",214.6,8)=""
^DD(214.6,0,"IX","AZ4",214.6,6)=""
^DD(214.6,0,"IX","B",214.6,.01)=""
^DD(214.6,0,"IX","C",214.6,.02)=""
^DD(214.6,0,"IX","E",214.6,6)=""
^DD(214.6,0,"NM","NURS CLASSIFICATION")=""
^DD(214.6,0,"PT",214.7,.04)=""
^DD(214.6,0,"PT",214.7,2)=""
^DD(214.6,0,"VR")="4.0"
^DD(214.6,0,"VRPK")="NURSING SERVICE"
^DD(214.6,.01,0)="CLASSIFICATION DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:($P(Y,""."")>DT)!(Y<1) X"
^DD(214.6,.01,1,0)="^.1"
^DD(214.6,.01,1,1,0)="214.6^B"
^DD(214.6,.01,1,1,1)="S ^NURSA(214.6,""B"",$E(X,1,30),DA)="""""
^DD(214.6,.01,1,1,2)="K ^NURSA(214.6,""B"",$E(X,1,30),DA)"
^DD(214.6,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(214.6,.01,1,1,"%D",1,0)="This is the main index on the 'Classification Date/Time' field of the"
^DD(214.6,.01,1,1,"%D",2,0)="NURS Classification file."
^DD(214.6,.01,1,2,0)="214.6^AZ1^MUMPS"
^DD(214.6,.01,1,2,1)="S NURSD=$S('$D(^NURSA(214.6,DA,0)):"""",1:$P(^(0),U,2)) S:NURSD'="""" ^NURSA(214.6,""AA"",NURSD,9999999-X,DA)="""" K NURSD"
^DD(214.6,.01,1,2,2)="S NURSD=$S('$D(^NURSA(214.6,DA,0)):"""",1:$P(^(0),U,2)) K:NURSD'="""" ^NURSA(214.6,""AA"",NURSD,9999999-X,DA) K NURSD"
^DD(214.6,.01,1,2,"%D",0)="^^2^2^2950927^^"
^DD(214.6,.01,1,2,"%D",1,0)="This mumps index is an inverted time/date index which make the latest"
^DD(214.6,.01,1,2,"%D",2,0)="classification the first one accessed by sorting through this index."
^DD(214.6,.01,1,3,0)="214.6^AZ2^MUMPS"
^DD(214.6,.01,1,3,1)="S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"""") S:$P(NUR,""^"",8)'=""""&($P(NUR,""^"",10)'="""") ^NURSA(214.6,""ACNT"",X\1,+$P(NUR,""^"",8),$P(NUR,""^"",10),DA)="""" K NUR"
^DD(214.6,.01,1,3,2)="S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"""") K:$P(NUR,""^"",8)'=""""&($P(NUR,""^"",10)'="""") ^NURSA(214.6,""ACNT"",X\1,+$P(NUR,""^"",8),$P(NUR,""^"",10),DA) K NUR"
^DD(214.6,.01,1,3,"%D",0)="^^2^2^2950927^^"
^DD(214.6,.01,1,3,"%D",1,0)="This index separates true classification entries from DOM, hemodialysis,"
^DD(214.6,.01,1,3,"%D",2,0)="and recovery room counts."
^DD(214.6,.01,3)=""
^DD(214.6,.01,21,0)="^^1^1^2950224^^"
^DD(214.6,.01,21,1,0)="This field indicates the date and time of a patient's classification."
^DD(214.6,.01,"DT")="2911122"
^DD(214.6,.02,0)="NAME^RP2'^DPT(^0;2^Q"
^DD(214.6,.02,1,0)="^.1"
^DD(214.6,.02,1,1,0)="214.6^C"
^DD(214.6,.02,1,1,1)="S ^NURSA(214.6,""C"",$E(X,1,30),DA)="""""
^DD(214.6,.02,1,1,2)="K ^NURSA(214.6,""C"",$E(X,1,30),DA)"
^DD(214.6,.02,1,1,"%D",0)="^^1^1^2950328^^"
^DD(214.6,.02,1,1,"%D",1,0)="This index is on the 'Name' field in the NURS Classification file."
^DD(214.6,.02,1,2,0)="214.6^AA^MUMPS"
^DD(214.6,.02,1,2,1)="S NURSDT=$S('$D(^NURSA(214.6,DA,0)):"""",1:$P(^(0),U,1)) S:NURSDT'="""" ^NURSA(214.6,""AA"",X,9999999-NURSDT,DA)="""" K NURSDT"
^DD(214.6,.02,1,2,2)="S NURSDT=$S('$D(^NURSA(214.6,DA,0)):"""",1:$P(^(0),U,1)) K:NURSDT'="""" ^NURSA(214.6,""AA"",X,9999999-NURSDT,DA) K NURSDT"
^DD(214.6,.02,1,2,"%D",0)="^^2^2^2950927^^^"
^DD(214.6,.02,1,2,"%D",1,0)="This mumps index identifies the latest patient classification by name"
^DD(214.6,.02,1,2,"%D",2,0)="and date/time."
^DD(214.6,.02,21,0)="^^1^1^2871118^^"
^DD(214.6,.02,21,1,0)="Name of the patient being classified.  Pointer to the Patient File (#2)."
^DD(214.6,.02,"DT")="2871118"
^DD(214.6,1,0)="CATEGORY^RNJ1,0^^0;3^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(214.6,1,3)="Type a Number between 1 and 5, 0 Decimal Digits"
^DD(214.6,1,21,0)="^^2^2^2950927^^^^"
^DD(214.6,1,21,1,0)="The patient's current nursing AMIS classification or acuity rating. "
^DD(214.6,1,21,2,0)="Entered as a whole number between 1 and 5."
^DD(214.6,1,"DT")="2890622"
^DD(214.6,2,0)="FACTORS^RFX^^0;4^K:$L(X)>9!($L(X)<1)!(X'=""N/A""&(X'?.AN)) X I $D(X) X:$D(^%ZOSF(""UPPERCASE"")) ""N Y X ^%ZOSF(""""UPPERCASE"""") S X=Y Q"""
^DD(214.6,2,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(214.6,2,21,0)="^^1^1^2950927^^^"
^DD(214.6,2,21,1,0)="The factors (elements) selected by an RN in classifying the patient."
^DD(214.6,2,21,2,0)="(1-9 characters in length)"
^DD(214.6,2,"DT")="2940330"
^DD(214.6,3,0)="ENTERED BY^RS^C:COMPUTER;U:USER;^0;5^Q"
^DD(214.6,3,21,0)="^^3^3^2950927^^^^"
^DD(214.6,3,21,1,0)="This field identifies how the classification was finally determined,"
^DD(214.6,3,21,2,0)="(i.e., by the computer or RN user).  Identified by a set of codes."
^DD(214.6,3,21,3,0)="C=Computer  U=User."
^DD(214.6,4,0)="CLASSIFIER^RP200'^VA(200,^0;6^Q"
^DD(214.6,4,21,0)="^^2^2^2950927^^^^"
^DD(214.6,4,21,1,0)="The person entered the classification.  Points to the NEW PERSON file"
^DD(214.6,4,21,2,0)="(#200)."
^DD(214.6,4,"DT")="2920113"
^DD(214.6,5,0)="COMMENTS^F^^0;7^K:$L(X)>50!($L(X)<1) X"
^DD(214.6,5,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(214.6,5,21,0)="^^2^2^2911220^^"
^DD(214.6,5,21,1,0)="The circumstances or factors for altering the computer's classification"
^DD(214.6,5,21,2,0)="of the patient."
^DD(214.6,6,0)="NURS LOCATION^RP211.4'^NURSF(211.4,^0;8^Q"
^DD(214.6,6,1,0)="^.1"
^DD(214.6,6,1,1,0)="214.6^E"
^DD(214.6,6,1,1,1)="S ^NURSA(214.6,""E"",$E(X,1,30),DA)="""""
^DD(214.6,6,1,1,2)="K ^NURSA(214.6,""E"",$E(X,1,30),DA)"
^DD(214.6,6,1,1,"%D",0)="^^1^1^2950328^^"
^DD(214.6,6,1,1,"%D",1,0)="This index is on the 'NURS Location' field in the NURS Classification file."
^DD(214.6,6,1,2,0)="214.6^AZ4^MUMPS"
^DD(214.6,6,1,2,1)="S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"""") S:$P(NUR,""^"",10)'="""" ^NURSA(214.6,""ACNT"",$P(NUR,""^"")\1,X,$P(NUR,""^"",10),DA)="""" K NUR"
^DD(214.6,6,1,2,2)="S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"""") K:$P(NUR,""^"",10)'="""" ^NURSA(214.6,""ACNT"",$P(NUR,""^"")\1,X,$P(NUR,""^"",10),DA) K NUR"
^DD(214.6,6,1,2,"%D",0)="^^2^2^2950922^^^"
^DD(214.6,6,1,2,"%D",1,0)="This mumps index separates DOM, Hemodialysis, and Recovery Room counts,"
^DD(214.6,6,1,2,"%D",2,0)="from regular classification entries."
^DD(214.6,6,1,2,"DT")="2920226"
^DD(214.6,6,21,0)="^^2^2^2950927^^^^"
^DD(214.6,6,21,1,0)="Ward on which the patient is classified.  Points to the NURS LOCATION "
^DD(214.6,6,21,2,0)="(#211.4) file."
^DD(214.6,6,"DT")="2920226"
^DD(214.6,7,0)="NURSING BED SECTION^RP213.3'^NURSF(213.3,^0;9^Q"
^DD(214.6,7,21,0)="^^2^2^2950927^^^^"
^DD(214.6,7,21,1,0)="Nursing bed section associated with the patient's classification.  Points to"
^DD(214.6,7,21,2,0)="the NURS AMIS WARD (213.3) file."
^DD(214.6,8,0)="COUNT^SX^H:HEMODIALYSIS;R:RECOVERY ROOM;^0;10^S NUR=$S($D(^NURSA(214.6,DA,0)):$P(^(0),U,9),1:""""),NUR=$S($D(^NURSF(213.3,+NUR,0)):$P(^(0),U),1:"""") K:$S(NUR=""HEMODIALYSIS""&(X=""H""):0,NUR=""RECOVERY ROOM""&(X=""R""):0,1:1) X"
^DD(214.6,8,1,0)="^.1"
^DD(214.6,8,1,1,0)="214.6^AZ3^MUMPS"
^DD(214.6,8,1,1,1)="S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"""") S:+NUR&(+$P(NUR,""^"",8)) ^NURSA(214.6,""ACNT"",$P(NUR,""^"")\1,$P(NUR,""^"",8),X,DA)="""" K NUR"
^DD(214.6,8,1,1,2)="S NUR=$S($D(^NURSA(214.6,DA,0)):^(0),1:"""") K:+NUR&(+$P(NUR,""^"",8)) ^NURSA(214.6,""ACNT"",$P(NUR,""^"")\1,$P(NUR,""^"",8),X,DA) K NUR"
^DD(214.6,8,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(214.6,8,1,1,"%D",1,0)="This mumps index separates the Hemodialysis and Recovery Room counts from"
^DD(214.6,8,1,1,"%D",2,0)="regular classification entries."
^DD(214.6,8,1,1,"DT")="2911109"
^DD(214.6,8,21,0)="^^6^6^2950224^^^"
^DD(214.6,8,21,1,0)="This field indicates whether this data is an actual patient classification"
^DD(214.6,8,21,2,0)="or a hemodialysis or recovery room count.  If this field is left blank then"
^DD(214.6,8,21,3,0)="it indicates that this record is a normal classification.  If this field"
^DD(214.6,8,21,4,0)="has an ""H"" then it indicates that this is part of the daily hemodialysis"
^DD(214.6,8,21,5,0)="count, and an ""R"" indicates that it is part of the daily recovery room"
^DD(214.6,8,21,6,0)="count."
^DD(214.6,8,"DEL",1,0)="I 1 D EN^DDIOL($C(7)_""Required"",,""!?2"")"
^DD(214.6,8,"DT")="2911109"
^DD(214.6,9,0)="ROOM-BED^F^^0;11^K:$L(X)>15!($L(X)<3)!'(X?.UN1""-""1UN.UN!(X?.UN1""-"".UN1""-""1UN.UN)) X"
^DD(214.6,9,3)="Answer must be 3-15 characters in length."
^DD(214.6,9,21,0)="^^2^2^2960123^^^"
^DD(214.6,9,21,1,0)="This field contains the patient's room-bed at time of classification,"
^DD(214.6,9,21,2,0)="if appropriate."
^DD(214.6,9,"DT")="2960123"
^DD(214.6,"B","CATEGORY",1)=""
^DD(214.6,"B","CLASSIFICATION DATE/TIME",.01)=""
^DD(214.6,"B","CLASSIFIER",4)=""
^DD(214.6,"B","COMMENTS",5)=""
^DD(214.6,"B","COUNT",8)=""
^DD(214.6,"B","ENTERED BY",3)=""
^DD(214.6,"B","FACTORS",2)=""
^DD(214.6,"B","NAME",.02)=""
^DD(214.6,"B","NURS LOCATION",6)=""
^DD(214.6,"B","NURSING BED SECTION",7)=""
^DD(214.6,"B","ROOM-BED",9)=""
^DD(214.6,"GL",0,1,.01)=""
^DD(214.6,"GL",0,2,.02)=""
^DD(214.6,"GL",0,3,1)=""
^DD(214.6,"GL",0,4,2)=""
^DD(214.6,"GL",0,5,3)=""
^DD(214.6,"GL",0,6,4)=""
^DD(214.6,"GL",0,7,5)=""
^DD(214.6,"GL",0,8,6)=""
^DD(214.6,"GL",0,9,7)=""
^DD(214.6,"GL",0,10,8)=""
^DD(214.6,"GL",0,11,9)=""
^DD(214.6,"IX",.01)=""
^DD(214.6,"IX",.02)=""
^DD(214.6,"IX",6)=""
^DD(214.6,"IX",8)=""
^DD(214.6,"RQ",.01)=""
^DD(214.6,"RQ",.02)=""
^DD(214.6,"RQ",1)=""
^DD(214.6,"RQ",2)=""
^DD(214.6,"RQ",3)=""
^DD(214.6,"RQ",4)=""
^DD(214.6,"RQ",6)=""
^DD(214.6,"RQ",7)=""
^DD(214.7,0)="FIELD^^3^6"
^DD(214.7,0,"DDA")="N"
^DD(214.7,0,"DT")="2920113"
^DD(214.7,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(214.7,0,"IX","AA",214.7,.04)=""
^DD(214.7,0,"IX","AZ1",214.7,.01)=""
^DD(214.7,0,"IX","AZ2",214.7,.02)=""
^DD(214.7,0,"IX","B",214.7,.01)=""
^DD(214.7,0,"IX","C",214.7,.02)=""
^DD(214.7,0,"NM","NURS REVIEW CLASSIFICATION")=""
^DD(214.7,0,"VR")="4.0"
^DD(214.7,0,"VRPK")="NURSING SERVICE"
^DD(214.7,.01,0)="REVIEW DATE/TIME^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:($P(Y,""."")>DT)!(Y<1) X"
^DD(214.7,.01,1,0)="^.1"
^DD(214.7,.01,1,1,0)="214.7^B"
^DD(214.7,.01,1,1,1)="S ^NURSA(214.7,""B"",$E(X,1,30),DA)="""""
^DD(214.7,.01,1,1,2)="K ^NURSA(214.7,""B"",$E(X,1,30),DA)"
^DD(214.7,.01,1,1,"%D",0)="^^2^2^2950927^^^"
^DD(214.7,.01,1,1,"%D",1,0)="This is the main index on the 'Review Date/Time' field of the NURS Review"
^DD(214.7,.01,1,1,"%D",2,0)="Classification file."
^DD(214.7,.01,1,2,0)="214.7^AZ1^MUMPS"
^DD(214.7,.01,1,2,1)="I $D(^NURSA(214.7,DA,0)) S:$P(^(0),U,2)'=""""&($P(^(0),U,3)'="""") ^NURSA(214.7,""AA"",$P(^NURSA(214.7,DA,0),U,2),$P(^NURSA(214.7,DA,0),U,3),9999999-X,DA)="""""
^DD(214.7,.01,1,2,2)="I $D(^NURSA(214.7,DA,0)) K:$P(^(0),U,2)'=""""&($P(^(0),U,3)'="""") ^NURSA(214.7,""AA"",$P(^NURSA(214.7,DA,0),U,2),$P(^NURSA(214.7,DA,0),U,3),9999999-X,DA)"
^DD(214.7,.01,1,2,"%D",0)="^^2^2^2950927^^"
^DD(214.7,.01,1,2,"%D",1,0)="This mumps index is an inverted time/date index which make the latest entry"
^DD(214.7,.01,1,2,"%D",2,0)="reviewed the first entry accessed when using this index."
^DD(214.7,.01,3)=""
^DD(214.7,.01,21,0)="^^1^1^2861028^"
^DD(214.7,.01,21,1,0)="Date/time of the review of a classification."
^DD(214.7,.01,"DT")="2870618"
^DD(214.7,.02,0)="NAME^RP2'^DPT(^0;2^Q"
^DD(214.7,.02,1,0)="^.1"
^DD(214.7,.02,1,1,0)="214.7^C"
^DD(214.7,.02,1,1,1)="S ^NURSA(214.7,""C"",$E(X,1,30),DA)="""""
^DD(214.7,.02,1,1,2)="K ^NURSA(214.7,""C"",$E(X,1,30),DA)"
^DD(214.7,.02,1,1,"%D",0)="^^1^1^2950328^^"
^DD(214.7,.02,1,1,"%D",1,0)="This index is on the 'Name' field in the NURS Review Classification file."
^DD(214.7,.02,1,2,0)="214.7^AZ2^MUMPS"
^DD(214.7,.02,1,2,1)="I $D(^NURSA(214.7,DA,0)) S:$P(^(0),U,1)'=""""&($P(^(0),U,3)'="""") ^NURSA(214.7,""AA"",X,$P(^NURSA(214.7,DA,0),U,3),9999999-$P(^NURSA(214.7,DA,0),U,1),DA)="""""
^DD(214.7,.02,1,2,2)="I $D(^NURSA(214.7,DA,0)) K:$P(^(0),U,1)'=""""&($P(^(0),U,3)'="""") ^NURSA(214.7,""AA"",X,$P(^NURSA(214.7,DA,0),U,3),9999999-$P(^NURSA(214.7,DA,0),U,1),DA)"
^DD(214.7,.02,1,2,"%D",0)="^^2^2^2950927^^"
^DD(214.7,.02,1,2,"%D",1,0)="This mumps index make the latest review entry available by patient name,"
^DD(214.7,.02,1,2,"%D",2,0)="NURS Location, and review date/time."
^DD(214.7,.02,21,0)="^^2^2^2950224^^"
^DD(214.7,.02,21,1,0)="Name of patient whose classification is being reviewed.  Points to the"
^DD(214.7,.02,21,2,0)="PATIENT (#2) File."
^DD(214.7,.02,"DT")="2871118"
^DD(214.7,.04,0)="CLASSIFICATION REVIEWED^R*P214.6'^NURSA(214.6,^0;3^S DIC(""S"")=""D EN4^NURSCUTL"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(214.7,.04,1,0)="^.1^^-1"
^DD(214.7,.04,1,2,0)="214.7^AA^MUMPS"
^DD(214.7,.04,1,2,1)="D EN3^NURSCUTL S:(NURSDFN'="""")&(NURSR'="""") ^NURSA(214.7,""AA"",NURSDFN,X,9999999-NURSR,DA)="""" K NURSDFN,NURSR"
^DD(214.7,.04,1,2,2)="D EN3^NURSCUTL K:(NURSDFN'="""")&(NURSR'="""") ^NURSA(214.7,""AA"",NURSDFN,X,9999999-NURSR,DA) K NURSDFN,NURSR"
^DD(214.7,.04,1,2,"%D",0)="^^2^2^2950927^^^"
^DD(214.7,.04,1,2,"%D",1,0)="This mumps index indicates the review date/time of the latest"
^DD(214.7,.04,1,2,"%D",2,0)="classification for this patient."
^DD(214.7,.04,12)="Screen to allow selection of only valid classification dates"
^DD(214.7,.04,12.1)="S DIC(""S"")=""D EN4^NURSCUTL"""
^DD(214.7,.04,21,0)="^^2^2^2950328^^^^"
^DD(214.7,.04,21,1,0)="The classification being reviewed.  Points to the NURS CLASSIFICATION"
^DD(214.7,.04,21,2,0)="(#214.6) file."
^DD(214.7,.04,"DT")="2911007"
^DD(214.7,1,0)="CLASSIFICATION CHANGED^RS^Y:YES;N:NO;^0;4^Q"
^DD(214.7,1,21,0)="^^1^1^2950224^^"
^DD(214.7,1,21,1,0)="This field indicates if the classification was changed.  Answer Yes or No."
^DD(214.7,2,0)="NEW CLASSIFICATION DATE/TIME^*P214.6'^NURSA(214.6,^0;5^S DIC(""S"")=""D EN4^NURSCUTL"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(214.7,2,12)="Only valid classifications for this patient"
^DD(214.7,2,12.1)="S DIC(""S"")=""D EN4^NURSCUTL"""
^DD(214.7,2,21,0)="^^2^2^2950328^^^^"
^DD(214.7,2,21,1,0)="This field contains the new classification for the patient if it was"
^DD(214.7,2,21,2,0)="changed.  Points to the NURS CLASSIfICATION (#214.6) file."
^DD(214.7,2,"DT")="2911007"
^DD(214.7,3,0)="REVIEWER^RP200'^VA(200,^0;6^Q"
^DD(214.7,3,21,0)="^^2^2^2950328^^^^"
^DD(214.7,3,21,1,0)="Person who reviewed the classification.  Points to the NEW PERSON (#200)"
^DD(214.7,3,21,2,0)="file."
^DD(214.7,3,"DT")="2920113"
^DD(214.7,"B","CLASSIFICATION CHANGED",1)=""
^DD(214.7,"B","CLASSIFICATION REVIEWED",.04)=""
^DD(214.7,"B","NAME",.02)=""
^DD(214.7,"B","NEW CLASSIFICATION DATE/TIME",2)=""
^DD(214.7,"B","REVIEW DATE/TIME",.01)=""
^DD(214.7,"B","REVIEWER",3)=""
^DD(214.7,"GL",0,1,.01)=""
^DD(214.7,"GL",0,2,.02)=""
^DD(214.7,"GL",0,3,.04)=""
^DD(214.7,"GL",0,4,1)=""
^DD(214.7,"GL",0,5,2)=""
^DD(214.7,"GL",0,6,3)=""
^DD(214.7,"IX",.01)=""
^DD(214.7,"IX",.02)=""
^DD(214.7,"IX",.04)=""
^DD(214.7,"RQ",.01)=""
^DD(214.7,"RQ",.02)=""
^DD(214.7,"RQ",.04)=""
^DD(214.7,"RQ",1)=""
^DD(214.7,"RQ",3)=""
^DD(216.8,0)="FIELD^^4^5"
^DD(216.8,0,"DDA")="N"
^DD(216.8,0,"DT")="2931208"
^DD(216.8,0,"ID","WRITE")="D EN^DDIOL("""",,""?0"")"
^DD(216.8,0,"IX","B",216.8,.01)=""
^DD(216.8,0,"NM","NURS CARE PLAN")=""
^DD(216.8,0,"VR")="4.0"
^DD(216.8,0,"VRPK")="NURSING SERVICE"
^DD(216.8,.01,0)="TEXT FILE ENTRY^R*P124.3'I^GMR(124.3,^0;1^S DIC(""S"")=""D EN2^NURCCPU4"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(216.8,.01,1,0)="^.1"
^DD(216.8,.01,1,1,0)="216.8^B"
^DD(216.8,.01,1,1,1)="S ^NURSC(216.8,""B"",$E(X,1,30),DA)="""""
^DD(216.8,.01,1,1,2)="K ^NURSC(216.8,""B"",$E(X,1,30),DA)"
^DD(216.8,.01,1,1,"%D",0)="^^1^1^2950927^"
^DD(216.8,.01,1,1,"%D",1,0)="This is the main cross-reference on the Text File Entry field."
^DD(216.8,.01,3)=""
^DD(216.8,.01,4)=""
^DD(216.8,.01,12)="Only the nursing care plan entries otherwise known a patient plan of care in the GMR Text file are valid selections."
^DD(216.8,.01,12.1)="S DIC(""S"")=""D EN2^NURCCPU4"""
^DD(216.8,.01,21,0)="^^2^2^2950927^^^^"
^DD(216.8,.01,21,1,0)="This field is a pointer to the GMR Text (#124.3) File.  The data in this"
^DD(216.8,.01,21,2,0)="record pertains to the entry that this field points to."
^DD(216.8,.01,"DT")="2900712"
^DD(216.8,1,0)="NURSING PROBLEM LIST^216.81P^^PROB;0"
^DD(216.8,1,21,0)="^^1^1^2950927^^^"
^DD(216.8,1,21,1,0)="A list of problems for this nursing care plan or patient plan of care."
^DD(216.8,2,0)="EVALUATION DATE^216.82ID^^EVAL;0"
^DD(216.8,2,21,0)="^^1^1^2950927^^^^"
^DD(216.8,2,21,1,0)="Evaluation information for a particular problem for a particular date."
^DD(216.8,3,0)="TARGET DATE^216.83ID^^TARG;0"
^DD(216.8,3,21,0)="^^1^1^2950927^^^^"
^DD(216.8,3,21,1,0)="The target dates for the goals/expected outcomes for the plan of care."
^DD(216.8,3,21,2,0)="Plan."
^DD(216.8,4,0)="ORDER INFO^216.84ID^^ORD;0"
^DD(216.8,4,21,0)="^^1^1^2950927^^^^"
^DD(216.8,4,21,1,0)="Stored here is the status information for nursing orderables (or interventions)."
^DD(216.8,"B","EVALUATION DATE",2)=""
^DD(216.8,"B","NURSING PROBLEM LIST",1)=""
^DD(216.8,"B","ORDER INFO",4)=""
^DD(216.8,"B","TARGET DATE",3)=""
^DD(216.8,"B","TEXT FILE ENTRY",.01)=""
^DD(216.8,"GL",0,1,.01)=""
^DD(216.8,"GL","EVAL",0,2)=""
^DD(216.8,"GL","ORD",0,4)=""
^DD(216.8,"GL","PROB",0,1)=""
^DD(216.8,"GL","TARG",0,3)=""
^DD(216.8,"IX",.01)=""
^DD(216.8,"RQ",.01)=""
^DD(216.8,"SB",216.81,1)=""
^DD(216.8,"SB",216.82,2)=""
^DD(216.8,"SB",216.83,3)=""
^DD(216.8,"SB",216.84,4)=""
^DD(216.81,0)="NURSING PROBLEM LIST SUB-FIELD^^.01^1"
^DD(216.81,0,"IX","B",216.81,.01)=""
^DD(216.81,0,"NM","NURSING PROBLEM LIST")=""
^DD(216.81,0,"UP")="216.8"
^DD(216.81,.01,0)="PROBLEM^M*P124.2'^GMRD(124.2,^0;1^S DIC(""S"")=""I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""""B"""",""""NURSING PROBLEM"""",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""""B"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(216.81,.01,1,0)="^.1"
^DD(216.81,.01,1,1,0)="216.81^B"
^DD(216.81,.01,1,1,1)="S ^NURSC(216.8,DA(1),""PROB"",""B"",$E(X,1,30),DA)="""""
^DD(216.81,.01,1,1,2)="K ^NURSC(216.8,DA(1),""PROB"",""B"",$E(X,1,30),DA)"
^DD(216.81,.01,1,1,"%D",0)="^^1^1^2950927^"
^DD(216.81,.01,1,1,"%D",1,0)="This is the main cross-reference on the problem field."
^DD(216.81,.01,12)="Select only patient problems that have been chosen for this nursing care plan or patient plan of care."
^DD(216.81,.01,12.1)="S DIC(""S"")=""I $P(^GMRD(124.2,+Y,0),U,4)=$O(^GMRD(124.25,""""B"""",""""NURSING PROBLEM"""",0)),$D(^GMR(124.3,$P(^NURSC(216.8,D0,0),U),1,""""B"""",+Y))"""
^DD(216.81,.01,21,0)="^^1^1^2950927^^"
^DD(216.81,.01,21,1,0)="A particular problem for this nursing care plan or patient plan of care."
^DD(216.81,.01,"DT")="2890227"
^DD(216.81,"B","PROBLEM",.01)=""
^DD(216.81,"GL",0,1,.01)=""
^DD(216.81,"IX",.01)=""
^DD(216.82,0)="EVALUATION DATE SUB-FIELD^^3^5"
^DD(216.82,0,"DT")="2931208"
^DD(216.82,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^GMRD(124.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(124.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(216.82,0,"IX","AA",216.82,.01)=""
^DD(216.82,0,"IX","AA1",216.82,.02)=""
^DD(216.82,0,"IX","B",216.82,.01)=""
^DD(216.82,0,"NM","EVALUATION DATE")=""
^DD(216.82,0,"UP")="216.8"
^DD(216.82,.01,0)="DATE/TIME ENTERED^MRD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(216.82,.01,1,0)="^.1"
^DD(216.82,.01,1,1,0)="216.82^B"
^DD(216.82,.01,1,1,1)="S ^NURSC(216.8,DA(1),""EVAL"",""B"",$E(X,1,30),DA)="""""
^DD(216.82,.01,1,1,2)="K ^NURSC(216.8,DA(1),""EVAL"",""B"",$E(X,1,30),DA)"
^DD(216.82,.01,1,1,"%D",0)="^^1^1^2950927^"
^DD(216.82,.01,1,1,"%D",1,0)="This is the main cross-reference evaluation date field."
^DD(216.82,.01,1,2,0)="216.82^AA^MUMPS"
^DD(216.82,.01,1,2,1)="S NURS=$S($D(^NURSC(216.8,DA(1),""EVAL"",DA,0)):$P(^(0),U,2),1:"""") S:NURS'="""" ^NURSC(216.8,DA(1),""EVAL"",""AA"",NURS,9999999-X,DA)="""" K NURS"
^DD(216.82,.01,1,2,2)="S NURS=$S($D(^NURSC(216.8,DA(1),""EVAL"",DA,0)):$P(^(0),U,2),1:"""") K:NURS'="""" ^NURSC(216.8,DA(1),""EVAL"",""AA"",NURS,9999999-X,DA) K NURS"
^DD(216.82,.01,1,2,"%D",0)="^^1^1^2950927^"
^DD(216.82,.01,1,2,"%D",1,0)="This is an inverted time/date mumps cross-reference on the date field."
^DD(216.82,.01,1,3,0)="^^TRIGGER^216.82^1"
^DD(216.82,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^NURSC(216.8,D0,""EVAL"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(216.82,.01,1,3,1.1) X ^DD(216.82,.01,1,3,1.4)"
^DD(216.82,.01,1,3,1.1)="S X=DIV S X=$P($G(^NURSC(216.8,DA(1),""EVAL"",DA,0)),""^"",3),X=$S(X]"""":X,1:DUZ)"
^DD(216.82,.01,1,3,1.4)="S DIH=$S($D(^NURSC(216.8,DIV(0),""EVAL"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=216.82,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(216.82,.01,1,3,2)="Q"
^DD(216.82,.01,1,3,2.4)="S DIH=$S($D(^NURSC(216.8,DIV(0),""EVAL"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=216.82,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(216.82,.01,1,3,"%D",0)="^^3^3^2961105^"
^DD(216.82,.01,1,3,"%D",1,0)="This cross-reference triggers an entry into the User Who Evaluated field"
^DD(216.82,.01,1,3,"%D",2,0)="of the Evaluation Date sub-file in the NURS Care Plan (#216.8) file when"
^DD(216.82,.01,1,3,"%D",3,0)="the evaluation date is edited."
^DD(216.82,.01,1,3,"CREATE VALUE")="S X=$P($G(^NURSC(216.8,DA(1),""EVAL"",DA,0)),""^"",3),X=$S(X]"""":X,1:DUZ)"
^DD(216.82,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(216.82,.01,1,3,"DT")="2961105"
^DD(216.82,.01,1,3,"FIELD")="USER WHO EVALUATED"
^DD(216.82,.01,21,0)="^^1^1^2950927^^^"
^DD(216.82,.01,21,1,0)="Date/time this evaluation information was entered."
^DD(216.82,.01,"DT")="2961105"
^DD(216.82,.02,0)="PROBLEM^R*P124.2'^GMRD(124.2,^0;2^S DIC(""S"")=""I $D(^NURSC(216.8,DA(1),""""PROB"""",""""B"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(216.82,.02,1,0)="^.1"
^DD(216.82,.02,1,1,0)="216.82^AA1^MUMPS"
^DD(216.82,.02,1,1,1)="S NURS=$S($D(^NURSC(216.8,DA(1),""EVAL"",DA,0)):$P(^(0),U),1:"""") S:NURS'="""" ^NURSC(216.8,DA(1),""EVAL"",""AA"",X,9999999-NURS,DA)="""" K NURS"
^DD(216.82,.02,1,1,2)="S NURS=$S($D(^NURSC(216.8,DA(1),""EVAL"",DA,0)):$P(^(0),U),1:"""") K:NURS'="""" ^NURSC(216.8,DA(1),""EVAL"",""AA"",X,9999999-NURS,DA) K NURS"
^DD(216.82,.02,1,1,"%D",0)="^^1^1^2950927^"
^DD(216.82,.02,1,1,"%D",1,0)="This is an inverted time/date mumps cross-reference on the Problem field."
^DD(216.82,.02,12)="Only select problems that are in the problem list of this nursing care plan or patient plan of care."
^DD(216.82,.02,12.1)="S DIC(""S"")=""I $D(^NURSC(216.8,DA(1),""""PROB"""",""""B"""",+Y))"""
^DD(216.82,.02,21,0)="^^1^1^2950927^^"
^DD(216.82,.02,21,1,0)="The problem associated with this evaluation date."
^DD(216.82,.02,"DT")="2890227"
^DD(216.82,1,0)="USER WHO EVALUATED^RP200'^VA(200,^0;3^Q"
^DD(216.82,1,5,1,0)="216.82^.01^3"
^DD(216.82,1,9)="^"
^DD(216.82,1,21,0)="^^1^1^2950927^^"
^DD(216.82,1,21,1,0)="User who made this evaluation."
^DD(216.82,1,"DT")="2920113"
^DD(216.82,2,0)="PROBLEM STATUS^RSX^0:EVALUATE;1:RESOLVED;2:UNRESOLVED @ DC;3:SUSPENDED;^0;4^Q"
^DD(216.82,2,21,0)="^^1^1^2950927^^^^"
^DD(216.82,2,21,1,0)="The status of the problem associated with this evaluation."
^DD(216.82,2,"DT")="2931208"
^DD(216.82,3,0)="EVALUATION DATE^RD^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(216.82,3,21,0)="^^2^2^2950927^^^^"
^DD(216.82,3,21,1,0)="This is the date/time of the follow up evaluation when a problem had been"
^DD(216.82,3,21,2,0)="evaluated."
^DD(216.82,3,"DT")="2890427"
^DD(216.82,"B","DATE/TIME ENTERED",.01)=""
^DD(216.82,"B","EVALUATION DATE",3)=""
^DD(216.82,"B","PROBLEM",.02)=""
^DD(216.82,"B","PROBLEM STATUS",2)=""
^DD(216.82,"B","USER WHO EVALUATED",1)=""
^DD(216.82,"GL",0,1,.01)=""
^DD(216.82,"GL",0,2,.02)=""
^DD(216.82,"GL",0,3,1)=""
^DD(216.82,"GL",0,4,2)=""
^DD(216.82,"GL",0,5,3)=""
^DD(216.82,"IX",.01)=""
^DD(216.82,"IX",.02)=""
^DD(216.82,"RQ",.01)=""
^DD(216.82,"RQ",.02)=""
^DD(216.82,"RQ",1)=""
^DD(216.82,"RQ",2)=""
^DD(216.82,"RQ",3)=""
^DD(216.83,0)="TARGET DATE SUB-FIELD^^3^5"
^DD(216.83,0,"DT")="2920113"
^DD(216.83,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^GMRD(124.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(124.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(216.83,0,"IX","AA1",216.83,.01)=""
^DD(216.83,0,"IX","AA2",216.83,.03)=""
^DD(216.83,0,"IX","B",216.83,.01)=""
^DD(216.83,0,"NM","TARGET DATE")=""
^DD(216.83,0,"UP")="216.8"
^DD(216.83,.01,0)="DATE/TIME ENTERED^MRDI^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(216.83,.01,1,0)="^.1"
^DD(216.83,.01,1,1,0)="216.83^B"
^DD(216.83,.01,1,1,1)="S ^NURSC(216.8,DA(1),""TARG"",""B"",$E(X,1,30),DA)="""""
^DD(216.83,.01,1,1,2)="K ^NURSC(216.8,DA(1),""TARG"",""B"",$E(X,1,30),DA)"
^DD(216.83,.01,1,1,"%D",0)="^^1^1^2950927^"
^DD(216.83,.01,1,1,"%D",1,0)="This is the main cross-reference on the Target date field."
^DD(216.83,.01,1,2,0)="216.83^AA1^MUMPS"
^DD(216.83,.01,1,2,1)="S NURS=$S($D(^NURSC(216.8,DA(1),""TARG"",DA,0)):^(0),1:""""),NURS(3)=$P(NURS,U,3) S:NURS(3)'="""" ^NURSC(216.8,DA(1),""TARG"",""AA"",NURS(3),9999999-X,DA)="""" K NURS"
^DD(216.83,.01,1,2,2)="S NURS=$S($D(^NURSC(216.8,DA(1),""TARG"",DA,0)):^(0),1:""""),NURS(3)=$P(NURS,U,3) K:NURS(3)'="""" ^NURSC(216.8,DA(1),""TARG"",""AA"",NURS(3),9999999-X,DA) K NURS"
^DD(216.83,.01,1,2,"%D",0)="^^1^1^2950927^"
^DD(216.83,.01,1,2,"%D",1,0)="This is an inverted time/date mumps cross-reference on the Target Date field."
^DD(216.83,.01,1,3,0)="^^TRIGGER^216.83^1"
^DD(216.83,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^NURSC(216.8,D0,""TARG"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(216.83,.01,1,3,1.1) X ^DD(216.83,.01,1,3,1.4)"
^DD(216.83,.01,1,3,1.1)="S X=DIV S X=$P($G(^NURSC(216.8,DA(1),""TARG"",DA,0)),""^"",4),X=$S(X]"""":X,1:DUZ)"
^DD(216.83,.01,1,3,1.4)="S DIH=$S($D(^NURSC(216.8,DIV(0),""TARG"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=216.83,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(216.83,.01,1,3,2)="Q"
^DD(216.83,.01,1,3,2.4)="S DIH=$S($D(^NURSC(216.8,DIV(0),""TARG"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=216.83,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(216.83,.01,1,3,"%D",0)="^^3^3^2961105^^"
^DD(216.83,.01,1,3,"%D",1,0)="This cross-reference triggers an entry into the User Who Entered field of"
^DD(216.83,.01,1,3,"%D",2,0)="the Target Date sub-file in the NURS Care Plan (#216.8) file when the"
^DD(216.83,.01,1,3,"%D",3,0)="Target Date field is edited."
^DD(216.83,.01,1,3,"CREATE VALUE")="S X=$P($G(^NURSC(216.8,DA(1),""TARG"",DA,0)),""^"",4),X=$S(X]"""":X,1:DUZ)"
^DD(216.83,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(216.83,.01,1,3,"DT")="2961105"
^DD(216.83,.01,1,3,"FIELD")="USER WHO ENTERED"
^DD(216.83,.01,21,0)="^^1^1^2890425^^^^"
^DD(216.83,.01,21,1,0)="The date/time this target date info. was added to the system"
^DD(216.83,.01,"DT")="2961105"
^DD(216.83,.03,0)="GOAL/EXPECTED OUTCOME^R*P124.2'^GMRD(124.2,^0;3^S DIC(""S"")=""D EN3^NURCCPU4"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(216.83,.03,1,0)="^.1"
^DD(216.83,.03,1,1,0)="216.83^AA2^MUMPS"
^DD(216.83,.03,1,1,1)="S NURS=$S($D(^NURSC(216.8,DA(1),""TARG"",DA,0)):^(0),1:""""),NURS(1)=$P(NURS,U) S:NURS(1)'="""" ^NURSC(216.8,DA(1),""TARG"",""AA"",X,9999999-NURS(1),DA)="""" K NURS"
^DD(216.83,.03,1,1,2)="S NURS=$S($D(^NURSC(216.8,DA(1),""TARG"",DA,0)):^(0),1:""""),NURS(1)=$P(NURS,U) K:NURS(1)'="""" ^NURSC(216.8,DA(1),""TARG"",""AA"",X,9999999-NURS(1),DA) K NURS"
^DD(216.83,.03,1,1,"%D",0)="^^2^2^2950927^"
^DD(216.83,.03,1,1,"%D",1,0)="This is an inverted time/date cross-reference on the goal/expected outcome"
^DD(216.83,.03,1,1,"%D",2,0)="field."
^DD(216.83,.03,12)="Data can only be a goal/expected outcome for this particular problem for this nursing care plan or patient plan of care entry."
^DD(216.83,.03,12.1)="S DIC(""S"")=""D EN3^NURCCPU4"""
^DD(216.83,.03,21,0)="^^1^1^2950927^^^^"
^DD(216.83,.03,21,1,0)="The particular goal/expected outcome associated with this target date."
^DD(216.83,.03,"DT")="2900712"
^DD(216.83,1,0)="USER WHO ENTERED^RP200'^VA(200,^0;4^Q"
^DD(216.83,1,5,1,0)="216.83^.01^3"
^DD(216.83,1,9)="^"
^DD(216.83,1,21,0)="^^1^1^2890227^"
^DD(216.83,1,21,1,0)="The user who entered this target date."
^DD(216.83,1,"DT")="2920113"
^DD(216.83,2,0)="GOAL MET/DC'D^S^0:CURRENT;1:MET;2:DISCONTINUED;^0;2^Q"
^DD(216.83,2,21,0)="^^2^2^2950927^^^^"
^DD(216.83,2,21,1,0)="This field tracks whether the outcome is still current, has been met, or"
^DD(216.83,2,21,2,0)="has been discontinued for this particular patient plan of care."
^DD(216.83,2,"DT")="2891028"
^DD(216.83,3,0)="TARGET DATE^RD^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(216.83,3,21,0)="^^1^1^2950927^^^^"
^DD(216.83,3,21,1,0)="The target date that was entered for this patient's goal."
^DD(216.83,3,"DT")="2890425"
^DD(216.83,"B","DATE/TIME ENTERED",.01)=""
^DD(216.83,"B","GOAL MET/DC'D",2)=""
^DD(216.83,"B","GOAL/EXPECTED OUTCOME",.03)=""
^DD(216.83,"B","TARGET DATE",3)=""
^DD(216.83,"B","USER WHO ENTERED",1)=""
^DD(216.83,"GL",0,1,.01)=""
^DD(216.83,"GL",0,2,2)=""
^DD(216.83,"GL",0,3,.03)=""
^DD(216.83,"GL",0,4,1)=""
^DD(216.83,"GL",0,5,3)=""
^DD(216.83,"IX",.01)=""
^DD(216.83,"IX",.03)=""
^DD(216.83,"RQ",.01)=""
^DD(216.83,"RQ",.03)=""
^DD(216.83,"RQ",1)=""
^DD(216.83,"RQ",3)=""
^DD(216.84,0)="ORDER INFO SUB-FIELD^^2^4"
^DD(216.84,0,"DT")="2920113"
^DD(216.84,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^GMRD(124.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(124.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(216.84,0,"IX","AA",216.84,.01)=""
^DD(216.84,0,"IX","AA1",216.84,.02)=""
^DD(216.84,0,"IX","B",216.84,.01)=""
^DD(216.84,0,"NM","ORDER INFO")=""
^DD(216.84,0,"UP")="216.8"
^DD(216.84,.01,0)="ORDER STATUS DATE/TIME^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(216.84,.01,1,0)="^.1"
^DD(216.84,.01,1,1,0)="216.84^B"
^DD(216.84,.01,1,1,1)="S ^NURSC(216.8,DA(1),""ORD"",""B"",$E(X,1,30),DA)="""""
^DD(216.84,.01,1,1,2)="K ^NURSC(216.8,DA(1),""ORD"",""B"",$E(X,1,30),DA)"
^DD(216.84,.01,1,1,"%D",0)="^^1^1^2950927^"
^DD(216.84,.01,1,1,"%D",1,0)="This is the main cross-reference on the Order Status Date/Time field."
^DD(216.84,.01,1,2,0)="216.84^AA^MUMPS"
^DD(216.84,.01,1,2,1)="S NURS=$S($D(^NURSC(216.8,DA(1),""ORD"",DA,0)):$P(^(0),""^"",2),1:"""") S:NURS'="""" ^NURSC(216.8,DA(1),""ORD"",""AA"",NURS,9999999-X,DA)="""" K NURS"
^DD(216.84,.01,1,2,2)="S NURS=$S($D(^NURSC(216.8,DA(1),""ORD"",DA,0)):$P(^(0),""^"",2),1:"""") K:NURS'="""" ^NURSC(216.8,DA(1),""ORD"",""AA"",NURS,9999999-X,DA) K NURS"
^DD(216.84,.01,1,2,"%D",0)="^^2^2^2950927^"
^DD(216.84,.01,1,2,"%D",1,0)="This is an inverted time/date mumps cross-reference on the Order Status Date/Time"
^DD(216.84,.01,1,2,"%D",2,0)="field."
^DD(216.84,.01,1,3,0)="^^TRIGGER^216.84^2"
^DD(216.84,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^NURSC(216.8,D0,""ORD"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(216.84,.01,1,3,1.1) X ^DD(216.84,.01,1,3,1.4)"
^DD(216.84,.01,1,3,1.1)="S X=DIV S X=$P($G(^NURSC(216.8,DA(1),""ORD"",DA,0)),""^"",4),X=$S(X]"""":X,1:DUZ)"
^DD(216.84,.01,1,3,1.4)="S DIH=$S($D(^NURSC(216.8,DIV(0),""ORD"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=216.84,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(216.84,.01,1,3,2)="Q"
^DD(216.84,.01,1,3,2.4)="S DIH=$S($D(^NURSC(216.8,DIV(0),""ORD"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=216.84,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(216.84,.01,1,3,"%D",0)="^^3^3^2961105^"
^DD(216.84,.01,1,3,"%D",1,0)="This cross-reference triggers an entry into the User Modifying field of the"
^DD(216.84,.01,1,3,"%D",2,0)="Order Info sub-file in the NURS Care Plan (#216.8) file whenever the Order"
^DD(216.84,.01,1,3,"%D",3,0)="Status Date/Time field is edited."
^DD(216.84,.01,1,3,"CREATE VALUE")="S X=$P($G(^NURSC(216.8,DA(1),""ORD"",DA,0)),""^"",4),X=$S(X]"""":X,1:DUZ)"
^DD(216.84,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(216.84,.01,1,3,"DT")="2961105"
^DD(216.84,.01,1,3,"FIELD")="USER MODIFY"
^DD(216.84,.01,21,0)="^^1^1^2950927^^^^"
^DD(216.84,.01,21,1,0)="The date/time associated with the order information."
^DD(216.84,.01,"DT")="2961105"
^DD(216.84,.02,0)="ORDERABLE^R*P124.2'^GMRD(124.2,^0;2^S DIC(""S"")=""D EN5^NURCCPU1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(216.84,.02,1,0)="^.1"
^DD(216.84,.02,1,1,0)="216.84^AA1^MUMPS"
^DD(216.84,.02,1,1,1)="S NURS=$S($D(^NURSC(216.8,DA(1),""ORD"",DA,0)):$P(^(0),""^""),1:"""") S:NURS'="""" ^NURSC(216.8,DA(1),""ORD"",""AA"",X,9999999-NURS,DA)="""" K NURS"
^DD(216.84,.02,1,1,2)="S NURS=$S($D(^NURSC(216.8,DA(1),""ORD"",DA,0)):$P(^(0),""^""),1:"""") K:NURS'="""" ^NURSC(216.8,DA(1),""ORD"",""AA"",X,9999999-NURS,DA) K NURS"
^DD(216.84,.02,1,1,"%D",0)="^^1^1^2950927^"
^DD(216.84,.02,1,1,"%D",1,0)="This is an inverted time/date mumps cross-reference on the Orderable field."
^DD(216.84,.02,12)="Select only valid orderables."
^DD(216.84,.02,12.1)="S DIC(""S"")=""D EN5^NURCCPU1"""
^DD(216.84,.02,21,0)="^^1^1^2950927^^"
^DD(216.84,.02,21,1,0)="This is the nursing order associated with this problem."
^DD(216.84,.02,"DT")="2890321"
^DD(216.84,1,0)="STATUS^*S^0:RE-ACTIVATED;1:DC;^0;3^Q"
^DD(216.84,1,12)="Select proper status."
^DD(216.84,1,12.1)="S DIC(""S"")=""D EN1^NURCCPU4"""
^DD(216.84,1,21,0)="^^1^1^2950927^^^^"
^DD(216.84,1,21,1,0)="The status of the order in question."
^DD(216.84,1,"DT")="2890321"
^DD(216.84,2,0)="USER MODIFYING^RP200'^VA(200,^0;4^Q"
^DD(216.84,2,5,1,0)="216.84^.01^3"
^DD(216.84,2,9)="^"
^DD(216.84,2,21,0)="^^1^1^2890413^"
^DD(216.84,2,21,1,0)="The user who made this modification."
^DD(216.84,2,"DT")="2920113"
^DD(216.84,"B","ORDER STATUS DATE/TIME",.01)=""
^DD(216.84,"B","ORDERABLE",.02)=""
^DD(216.84,"B","STATUS",1)=""
^DD(216.84,"B","USER MODIFYING",2)=""
^DD(216.84,"GL",0,1,.01)=""
^DD(216.84,"GL",0,2,.02)=""
^DD(216.84,"GL",0,3,1)=""
^DD(216.84,"GL",0,4,2)=""
^DD(216.84,"IX",.01)=""
^DD(216.84,"IX",.02)=""
^DD(216.84,"RQ",.02)=""
^DD(216.84,"RQ",2)=""
^DD(217,0)="FIELD^^11^13"
^DD(217,0,"DDA")="N"
^DD(217,0,"DT")="2960503"
^DD(217,0,"IX","B",217,.01)=""
^DD(217,0,"IX","F",217.43,.01)=""
^DD(217,0,"NM","NURQ QI SUMMARY")=""
^DD(217,0,"VR")="4.0"
^DD(217,0,"VRPK")="NURSING SERVICE"
^DD(217,0,"VRRV")="Patch NUR*3.0*1"
^DD(217,.01,0)="SURVEY^RP748'X^QA(748,^0;1^S DINUM=X Q"
^DD(217,.01,1,0)="^.1"
^DD(217,.01,1,1,0)="217^B"
^DD(217,.01,1,1,1)="S ^NURQ(217,""B"",$E(X,1,30),DA)="""""
^DD(217,.01,1,1,2)="K ^NURQ(217,""B"",$E(X,1,30),DA)"
^DD(217,.01,1,1,"%D",0)="^^1^1^2950927^^^^"
^DD(217,.01,1,1,"%D",1,0)="This is the main cross-reference on the Date field."
^DD(217,.01,3)=""
^DD(217,.01,21,0)="^^1^1^2960314^^^^"
^DD(217,.01,21,1,0)="This field contains the survey for which this QI Summary pertains."
^DD(217,.01,"DT")="2960314"
^DD(217,1,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(217,1,21,0)="^^1^1^2921127^^"
^DD(217,1,21,1,0)="Name of person or group who entered this data."
^DD(217,1,"DT")="2920811"
^DD(217,2,0)="SERVICE^P49'^DIC(49,^0;4^Q"
^DD(217,2,21,0)="^^1^1^2950224^^^^"
^DD(217,2,21,1,0)="Service associated with this QI Summary."
^DD(217,2,"DT")="2920811"
^DD(217,3,0)="DISCIPLINES^F^^1;1^K:$L(X)>80!($L(X)<3) X"
^DD(217,3,3)="Answer must be 3-80 characters in length."
^DD(217,3,21,0)="^^1^1^2950728^^^^"
^DD(217,3,21,1,0)="Person(s) or units responsible for this report."
^DD(217,3,"DT")="2950728"
^DD(217,4,0)="LOCATION^217.04P^^2;0"
^DD(217,4,21,0)="^^2^2^2960329^^^^"
^DD(217,4,21,1,0)="This field contains the hospital locations associated with"
^DD(217,4,21,2,0)="this nursing survey."
^DD(217,5,0)="DATA SOURCE^217.05^^5;0"
^DD(217,6,0)="METHODOLOGY^217.06^^6;0"
^DD(217,7.1,0)="SAMPLE SIZE^NJ4,0^^7;1^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(217,7.1,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(217,7.1,21,0)="^^1^1^2960321^"
^DD(217,7.1,21,1,0)="Number of observations."
^DD(217,7.1,"DT")="2960321"
^DD(217,7.2,0)="FREQUENCY^P217.3'^NURQ(217.3,^7;2^Q"
^DD(217,7.2,3)="Select a reports frequency from the NURQ Frequency file."
^DD(217,7.2,21,0)="^^1^1^2960503^^"
^DD(217,7.2,21,1,0)="How often do you report this information, i.e., monthly, quarterly, etc."
^DD(217,7.2,"DT")="2960321"
^DD(217,7.3,0)="MONITORING PERIOD^F^^7;3^K:$L(X)>100!($L(X)<3) X"
^DD(217,7.3,3)="Answer must be 3-100 characters in length."
^DD(217,7.3,21,0)="^^1^1^2960321^"
^DD(217,7.3,21,1,0)="Period of time data was collected, i.e., June , 1995; April-June 1996; etc."
^DD(217,7.3,"DT")="2960321"
^DD(217,8,0)="RECEIVER OF RESULTS^217.08^^8;0"
^DD(217,8,21,0)="^^2^2^2960321^"
^DD(217,8,21,1,0)="This information is being (or was) sent to which individual, committee,"
^DD(217,8,21,2,0)="etc., on a specific date."
^DD(217,9,0)="REFERENCES^217.09^^9;0"
^DD(217,11,0)="OTHER^217.011^^11;0"
^DD(217,"B","DATA SOURCE",5)=""
^DD(217,"B","DISCIPLINES",3)=""
^DD(217,"B","ENTERED BY",1)=""
^DD(217,"B","FREQUENCY",7.2)=""
^DD(217,"B","LOCATION",4)=""
^DD(217,"B","METHODOLOGY",6)=""
^DD(217,"B","MONITORING PERIOD",7.3)=""
^DD(217,"B","OTHER",11)=""
^DD(217,"B","RECEIVER OF RESULTS",8)=""
^DD(217,"B","REFERENCES",9)=""
^DD(217,"B","SAMPLE SIZE",7.1)=""
^DD(217,"B","SERVICE",2)=""
^DD(217,"B","SURVEY",.01)=""
^DD(217,"GL",0,1,.01)=""
^DD(217,"GL",0,3,1)=""
^DD(217,"GL",0,4,2)=""
^DD(217,"GL",1,1,3)=""
^DD(217,"GL",2,0,4)=""
^DD(217,"GL",5,0,5)=""
^DD(217,"GL",6,0,6)=""
^DD(217,"GL",7,1,7.1)=""
^DD(217,"GL",7,2,7.2)=""
^DD(217,"GL",7,3,7.3)=""
^DD(217,"GL",8,0,8)=""
^DD(217,"GL",9,0,9)=""
^DD(217,"GL",11,0,11)=""
^DD(217,"IX",.01)=""
^DD(217,"RQ",.01)=""
^DD(217,"SB",217.011,11)=""
^DD(217,"SB",217.04,4)=""
^DD(217,"SB",217.05,5)=""
^DD(217,"SB",217.06,6)=""
^DD(217,"SB",217.08,8)=""
^DD(217,"SB",217.09,9)=""
^DD(217.011,0)="OTHER SUB-FIELD^^.01^1"
^DD(217.011,0,"DT")="2960321"
^DD(217.011,0,"NM","OTHER")=""
^DD(217.011,0,"UP")="217"
^DD(217.011,.01,0)="OTHER^W^^0;1^Q"
^DD(217.011,.01,21,0)="^^2^2^2960321^"
^DD(217.011,.01,21,1,0)="This field may be used to document any additional related information"
^DD(217.011,.01,21,2,0)="associated with this survey."
^DD(217.011,.01,"DT")="2960321"
^DD(217.011,"B","OTHER",.01)=""
^DD(217.011,"GL",0,1,.01)=""
^DD(217.04,0)="LOCATION SUB-FIELD^^3^3"
^DD(217.04,0,"DT")="2960503"
^DD(217.04,0,"IX","B",217.04,.01)=""
^DD(217.04,0,"NM","LOCATION")=""
^DD(217.04,0,"UP")="217"
^DD(217.04,.01,0)="LOCATION^P44'^SC(^0;1^Q"
^DD(217.04,.01,1,0)="^.1"
^DD(217.04,.01,1,1,0)="217.04^B"
^DD(217.04,.01,1,1,1)="S ^NURQ(217,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(217.04,.01,1,1,2)="K ^NURQ(217,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(217.04,.01,1,1,"%D",0)="^^1^1^2950927^^"
^DD(217.04,.01,1,1,"%D",1,0)="This is the main cross-reference on the Location field."
^DD(217.04,.01,21,0)="^^1^1^2921127^^^"
^DD(217.04,.01,21,1,0)="Hospital location associated with this survey."
^DD(217.04,.01,"DT")="2921112"
^DD(217.04,2,0)="IMPORTANT FUNCTIONS^217.42^^2;0"
^DD(217.04,2,21,0)="^^3^3^2960329^^^^"
^DD(217.04,2,21,1,0)="High priority functions, processes, treatments, and activities"
^DD(217.04,2,21,2,0)="that have the greatest impact on patient care, occur most frequently, "
^DD(217.04,2,21,3,0)="affect the largest number of patients, produce risk or problems."
^DD(217.04,2,22)="NURS"
^DD(217.04,2,"DT")="2950718"
^DD(217.04,3,0)="PERFORMANCE MEASURE^217.43^^3;0"
^DD(217.04,3,21,0)="^^2^2^2951103^^^^"
^DD(217.04,3,21,1,0)="A quantitative measure (tool) that can be used to assess and improve the"
^DD(217.04,3,21,2,0)="performance of key functions affecting outcomes."
^DD(217.04,3,"DT")="2951103"
^DD(217.04,"B","IMPORTANT FUNCTIONS",2)=""
^DD(217.04,"B","LOCATION",.01)=""
^DD(217.04,"B","PERFORMANCE MEASURE",3)=""
^DD(217.04,"GL",0,1,.01)=""
^DD(217.04,"GL",2,0,2)=""
^DD(217.04,"GL",3,0,3)=""
^DD(217.04,"IX",.01)=""
^DD(217.04,"SB",217.42,2)=""
^DD(217.04,"SB",217.43,3)=""
^DD(217.05,0)="DATA SOURCE SUB-FIELD^^.01^1"
^DD(217.05,0,"DT")="2960321"
^DD(217.05,0,"NM","DATA SOURCE")=""
^DD(217.05,0,"UP")="217"
^DD(217.05,.01,0)="DATA SOURCE^W^^0;1^Q"
^DD(217.05,.01,21,0)="^^3^3^2960321^"
^DD(217.05,.01,21,1,0)="Source of information, for example patient records, patient/staff/visitor"
^DD(217.05,.01,21,2,0)="interview, questionnaire, laboratory report, progress notes, patient"
^DD(217.05,.01,21,3,0)="education records, etc."
^DD(217.05,.01,"DT")="2960321"
^DD(217.05,"B","DATA SOURCE",.01)=""
^DD(217.05,"GL",0,1,.01)=""
^DD(217.06,0)="METHODOLOGY SUB-FIELD^^.01^1"
^DD(217.06,0,"DT")="2960321"
^DD(217.06,0,"NM","METHODOLOGY")=""
^DD(217.06,0,"UP")="217"
^DD(217.06,.01,0)="METHODOLOGY^W^^0;1^Q"
^DD(217.06,.01,21,0)="^^2^2^2960321^"
^DD(217.06,.01,21,1,0)="How did you collect data (e.g., staff nurse reviewed patient"
^DD(217.06,.01,21,2,0)="records/observed patient)."
^DD(217.06,.01,"DT")="2960321"
^DD(217.06,"B","METHODOLOGY",.01)=""
^DD(217.06,"GL",0,1,.01)=""
^DD(217.08,0)="RECEIVER OF RESULTS SUB-FIELD^^.02^2"
^DD(217.08,0,"DT")="2960321"
^DD(217.08,0,"IX","B",217.08,.01)=""
^DD(217.08,0,"NM","RECEIVER OF RESULTS")=""
^DD(217.08,0,"UP")="217"
^DD(217.08,.01,0)="RECEIVER OF RESULTS^MF^^0;1^K:$L(X)>75!($L(X)<1) X"
^DD(217.08,.01,1,0)="^.1"
^DD(217.08,.01,1,1,0)="217.08^B"
^DD(217.08,.01,1,1,1)="S ^NURQ(217,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(217.08,.01,1,1,2)="K ^NURQ(217,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(217.08,.01,3)="Answer must be 1-75 characters in length."
^DD(217.08,.01,21,0)="^^2^2^2960321^"
^DD(217.08,.01,21,1,0)="this information is being (or was) sent to which individual, committee,"
^DD(217.08,.01,21,2,0)="etc., on a specific date."
^DD(217.08,.01,"DT")="2960321"
^DD(217.08,.02,0)="DATE COMMUNICATED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(217.08,.02,21,0)="^^1^1^2960321^"
^DD(217.08,.02,21,1,0)="What date was this information communicated."
^DD(217.08,.02,"DT")="2960321"
^DD(217.08,"B","DATE COMMUNICATED",.02)=""
^DD(217.08,"B","RECEIVER OF RESULTS",.01)=""
^DD(217.08,"GL",0,1,.01)=""
^DD(217.08,"GL",0,2,.02)=""
^DD(217.08,"IX",.01)=""
^DD(217.09,0)="REFERENCES SUB-FIELD^^.01^1"
^DD(217.09,0,"DT")="2960321"
^DD(217.09,0,"NM","REFERENCES")=""
^DD(217.09,0,"UP")="217"
^DD(217.09,.01,0)="REFERENCES^W^^0;1^Q"
^DD(217.09,.01,21,0)="^^1^1^2960321^"
^DD(217.09,.01,21,1,0)="The information from a review of literature supporting this indicator."
^DD(217.09,.01,"DT")="2960321"
^DD(217.09,"B","REFERENCES",.01)=""
^DD(217.09,"GL",0,1,.01)=""
^DD(217.1,0)="FIELD^^2^3"
^DD(217.1,0,"DDA")="N"
^DD(217.1,0,"IX","B",217.1,.01)=""
^DD(217.1,0,"IX","C",217.1,1)=""
^DD(217.1,0,"NM","NURQ STANDARDS OF CARE/PRACTICE")=""
^DD(217.1,0,"PT",217.421,.01)=""
^DD(217.1,0,"PT",217.422,.01)=""
^DD(217.1,0,"VR")="4.0"
^DD(217.1,0,"VRPK")="NURSING SERVICE"
^DD(217.1,.01,0)="NAME OF STANDARD^RF^^0;1^K:$L(X)>245!($L(X)<3)!'(X'?1P.E) X"
^DD(217.1,.01,1,0)="^.1"
^DD(217.1,.01,1,1,0)="217.1^B"
^DD(217.1,.01,1,1,1)="S ^NURQ(217.1,""B"",$E(X,1,30),DA)="""""
^DD(217.1,.01,1,1,2)="K ^NURQ(217.1,""B"",$E(X,1,30),DA)"
^DD(217.1,.01,1,1,"%D",0)="^^1^1^2950927^^^^"
^DD(217.1,.01,1,1,"%D",1,0)="This is the main cross-reference on the Name of Standard field."
^DD(217.1,.01,3)="Answer must be 3-245 characters in length."
^DD(217.1,.01,21,0)="^^1^1^2921112^^"
^DD(217.1,.01,21,1,0)="Name of standard of care or practice."
^DD(217.1,.01,"DT")="2921023"
^DD(217.1,1,0)="TYPE OF STANDARD^S^c:CARE;p:PRACTICE;^1;1^Q"
^DD(217.1,1,1,0)="^.1"
^DD(217.1,1,1,1,0)="217.1^C"
^DD(217.1,1,1,1,1)="S ^NURQ(217.1,""C"",$E(X,1,30),DA)="""""
^DD(217.1,1,1,1,2)="K ^NURQ(217.1,""C"",$E(X,1,30),DA)"
^DD(217.1,1,1,1,"%D",0)="^^1^1^2950927^^^"
^DD(217.1,1,1,1,"%D",1,0)="This is the cross-reference on the Type of Standard field."
^DD(217.1,1,1,1,"DT")="2921023"
^DD(217.1,1,21,0)="^^1^1^2950927^^"
^DD(217.1,1,21,1,0)="This field identifies a specific standard as a type of care or practice."
^DD(217.1,1,"DT")="2921023"
^DD(217.1,2,0)="SERVICE^P49'^DIC(49,^1;2^Q"
^DD(217.1,2,21,0)="^^1^1^2950928^^^^"
^DD(217.1,2,21,1,0)="The service associated with this standard."
^DD(217.1,2,"DT")="2921028"
^DD(217.1,"B","NAME OF STANDARD",.01)=""
^DD(217.1,"B","SERVICE",2)=""
^DD(217.1,"B","TYPE OF STANDARD",1)=""
^DD(217.1,"GL",0,1,.01)=""
^DD(217.1,"GL",1,1,1)=""
^DD(217.1,"GL",1,2,2)=""
^DD(217.1,"IX",.01)=""
^DD(217.1,"IX",1)=""
^DD(217.1,"RQ",.01)=""
^DD(217.2,0)="FIELD^^.01^1"
^DD(217.2,0,"IX","B",217.2,.01)=""
^DD(217.2,0,"NM","NURQ RATIONALE")=""
^DD(217.2,0,"PT",217.431,.01)=""
^DD(217.2,0,"VR")="4.0"
^DD(217.2,0,"VRPK")="NURSING SERVICE"
^DD(217.2,.01,0)="RATIONALE^RF^^0;1^K:$L(X)>75!($L(X)<3) X"
^DD(217.2,.01,1,0)="^.1"
^DD(217.2,.01,1,1,0)="217.2^B"
^DD(217.2,.01,1,1,1)="S ^NURQ(217.2,""B"",$E(X,1,30),DA)="""""
^DD(217.2,.01,1,1,2)="K ^NURQ(217.2,""B"",$E(X,1,30),DA)"
^DD(217.2,.01,1,1,"%D",0)="^^1^1^2950927^^^^"
^DD(217.2,.01,1,1,"%D",1,0)="This is the main cross-reference on the Rationale field."
^DD(217.2,.01,3)="Answer must be 3-75 characters in length."
^DD(217.2,.01,21,0)="^^2^2^2950927^^^"
^DD(217.2,.01,21,1,0)="This field describes the rationale or reason for looking at the indicator."
^DD(217.2,.01,21,2,0)="High risk, high volume, and problem prone are the only rationale entries exported in this version."
^DD(217.2,.01,"DT")="2950227"
^DD(217.2,"B","RATIONALE",.01)=""
^DD(217.2,"GL",0,1,.01)=""
^DD(217.2,"IX",.01)=""
^DD(217.2,"RQ",.01)=""
^DD(217.3,0)="FIELD^^.01^1"
^DD(217.3,0,"DDA")="N"
^DD(217.3,0,"IX","B",217.3,.01)=""
^DD(217.3,0,"NM","NURQ FREQUENCY")=""
^DD(217.3,0,"PT",217,7.2)=""
^DD(217.3,0,"VR")="4.0"
^DD(217.3,0,"VRPK")="NURSING SERVICE"
^DD(217.3,.01,0)="FREQUENCY^RF^^0;1^K:$L(X)>75!($L(X)<3) X"
^DD(217.3,.01,1,0)="^.1"
^DD(217.3,.01,1,1,0)="217.3^B"
^DD(217.3,.01,1,1,1)="S ^NURQ(217.3,""B"",$E(X,1,30),DA)="""""
^DD(217.3,.01,1,1,2)="K ^NURQ(217.3,""B"",$E(X,1,30),DA)"
^DD(217.3,.01,1,1,"%D",0)="^^1^1^2950927^^^^"
^DD(217.3,.01,1,1,"%D",1,0)="This is the main cross-reference on the Frequency field."
^DD(217.3,.01,3)="Answer must be 3-75 characters in length."
^DD(217.3,.01,21,0)="^^2^2^2950927^^^^"
^DD(217.3,.01,21,1,0)="The field contains frequency data (e.g., annually, monthly, quarterly) used"
^DD(217.3,.01,21,2,0)="to identify how often the data collected is reported."
^DD(217.3,.01,"DT")="2920127"
^DD(217.3,"B","FREQUENCY",.01)=""
^DD(217.3,"GL",0,1,.01)=""
^DD(217.3,"IX",.01)=""
^DD(217.3,"RQ",.01)=""
^DD(217.42,0)="IMPORTANT FUNCTIONS SUB-FIELD^^2^3"
^DD(217.42,0,"DT")="2930518"
^DD(217.42,0,"IX","B",217.42,.01)=""
^DD(217.42,0,"NM","IMPORTANT FUNCTIONS")=""
^DD(217.42,0,"UP")="217.04"
^DD(217.42,.01,0)="IMPORTANT FUNCTIONS^MF^^0;1^K:$L(X)>100!($L(X)<3) X"
^DD(217.42,.01,1,0)="^.1"
^DD(217.42,.01,1,1,0)="217.42^B"
^DD(217.42,.01,1,1,1)="S ^NURQ(217,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(217.42,.01,1,1,2)="K ^NURQ(217,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(217.42,.01,1,1,"%D",0)="^^1^1^2950927^^"
^DD(217.42,.01,1,1,"%D",1,0)="This is the cross-reference on the Key Functions field."
^DD(217.42,.01,3)="Answer must be 3-100 characters in length."
^DD(217.42,.01,21,0)="^^3^3^2950718^^"
^DD(217.42,.01,21,1,0)="High priority functions, processes, treatments, and activities that have"
^DD(217.42,.01,21,2,0)="the greatest impact on patient care, occur most frequently, affect the "
^DD(217.42,.01,21,3,0)="largest number of patients, produce risk problems."
^DD(217.42,.01,"DT")="2950718"
^DD(217.42,1,0)="STANDARDS OF CARE^217.421P^^1;0"
^DD(217.42,1,21,0)="^^2^2^2960329^^^^"
^DD(217.42,1,21,1,0)="Patient expectations describing the kinds of care the patient can expect"
^DD(217.42,1,21,2,0)="to receive from nurses."
^DD(217.42,2,0)="STANDARDS OF PRACTICE^217.422P^^2;0"
^DD(217.42,2,21,0)="^^1^1^2930518^^"
^DD(217.42,2,21,1,0)="Nurses expectations -- what the nurse does to meet the patient expectations."
^DD(217.42,"B","IMPORTANT FUNCTIONS",.01)=""
^DD(217.42,"B","STANDARDS OF CARE",1)=""
^DD(217.42,"B","STANDARDS OF PRACTICE",2)=""
^DD(217.42,"GL",0,1,.01)=""
^DD(217.42,"GL",1,0,1)=""
^DD(217.42,"GL",2,0,2)=""
^DD(217.42,"IX",.01)=""
^DD(217.42,"SB",217.421,1)=""
^DD(217.42,"SB",217.422,2)=""
^DD(217.421,0)="STANDARDS OF CARE SUB-FIELD^^.01^1"
^DD(217.421,0,"DT")="2930518"
^DD(217.421,0,"IX","B",217.421,.01)=""
^DD(217.421,0,"NM","STANDARDS OF CARE")=""
^DD(217.421,0,"UP")="217.42"
^DD(217.421,.01,0)="STANDARDS OF CARE^*P217.1'^NURQ(217.1,^0;1^S DIC(""S"")=""I $D(^NURQ(217.1,""""C"""",""""c"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(217.421,.01,1,0)="^.1"
^DD(217.421,.01,1,1,0)="217.421^B"
^DD(217.421,.01,1,1,1)="S ^NURQ(217,DA(3),2,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(217.421,.01,1,1,2)="K ^NURQ(217,DA(3),2,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(217.421,.01,1,1,"%D",0)="^^1^1^2950927^^"
^DD(217.421,.01,1,1,"%D",1,0)="This is the cross-reference on the Standards of Care field."
^DD(217.421,.01,12)="RETURNS ONLY STANDARDS OF CARE"
^DD(217.421,.01,12.1)="S DIC(""S"")=""I $D(^NURQ(217.1,""""C"""",""""c"""",+Y))"""
^DD(217.421,.01,21,0)="^^2^2^2960329^^^"
^DD(217.421,.01,21,1,0)="Patient expectations describing the kinds of care the patient can expect"
^DD(217.421,.01,21,2,0)="to receive from nurses."
^DD(217.421,.01,"DT")="2930518"
^DD(217.421,"B","STANDARDS OF CARE",.01)=""
^DD(217.421,"GL",0,1,.01)=""
^DD(217.421,"IX",.01)=""
^DD(217.422,0)="STANDARDS OF PRACTICE SUB-FIELD^^.01^1"
^DD(217.422,0,"DT")="2930518"
^DD(217.422,0,"IX","B",217.422,.01)=""
^DD(217.422,0,"NM","STANDARDS OF PRACTICE")=""
^DD(217.422,0,"UP")="217.42"
^DD(217.422,.01,0)="STANDARDS OF PRACTICE^*P217.1'^NURQ(217.1,^0;1^S DIC(""S"")=""I $D(^NURQ(217.1,""""C"""",""""p"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(217.422,.01,1,0)="^.1"
^DD(217.422,.01,1,1,0)="217.422^B"
^DD(217.422,.01,1,1,1)="S ^NURQ(217,DA(3),2,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(217.422,.01,1,1,2)="K ^NURQ(217,DA(3),2,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(217.422,.01,1,1,"%D",0)="^^1^1^2950927^^"
^DD(217.422,.01,1,1,"%D",1,0)="This is the cross-reference on the Standards of Practice field."
^DD(217.422,.01,12)="RETURNS ONLY STANDARDS OF PRACTICE"
^DD(217.422,.01,12.1)="S DIC(""S"")=""I $D(^NURQ(217.1,""""C"""",""""p"""",+Y))"""
^DD(217.422,.01,21,0)="^^1^1^2930518^^"
^DD(217.422,.01,21,1,0)="Nurses expectations -- what the nurse does to meet the patient expectations."
^DD(217.422,.01,"DT")="2930518"
^DD(217.422,"B","STANDARDS OF PRACTICE",.01)=""
^DD(217.422,"GL",0,1,.01)=""
^DD(217.422,"IX",.01)=""
^DD(217.43,0)="PERFORMANCE MEASURE SUB-FIELD^^19^10"
^DD(217.43,0,"DT")="2960503"
^DD(217.43,0,"IX","B",217.43,.01)=""
^DD(217.43,0,"NM","PERFORMANCE MEASURE")=""
^DD(217.43,0,"UP")="217.04"
^DD(217.43,.01,0)="PERFORMANCE MEASURE^MFXO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:X'?1""QA(748.25,""1N.N1"",1,""1N.N1"","" X"
^DD(217.43,.01,1,0)="^.1"
^DD(217.43,.01,1,1,0)="217.43^B"
^DD(217.43,.01,1,1,1)="S ^NURQ(217,DA(2),2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(217.43,.01,1,1,2)="K ^NURQ(217,DA(2),2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(217.43,.01,1,1,"%D",0)="^^1^1^2950927^^^"
^DD(217.43,.01,1,1,"%D",1,0)="This is the main cross-reference on the Related Indicators field."
^DD(217.43,.01,1,2,0)="217^F^MUMPS"
^DD(217.43,.01,1,2,1)="S ^NURQ(217,DA(2),2,DA(1),3,""F"",+$P(X,"","",4),DA)="""""
^DD(217.43,.01,1,2,2)="K ^NURQ(217,DA(2),2,DA(1),3,""F"",+$P(X,"","",4),DA)"
^DD(217.43,.01,1,2,"%D",0)="^^1^1^2950927^^^^"
^DD(217.43,.01,1,2,"%D",1,0)="This xref returns the entry in the Questions (.02) multiple of the QA Questions (748.25) file."
^DD(217.43,.01,1,2,"DT")="2920811"
^DD(217.43,.01,2)="S Y(0)=Y N NURQY S NURQY=Y,Y=$$GET1^DIQ(748.26,$P(Y,"","",4)_"",""_$P(Y,"","",2)_"","",.015) S:Y="""" Y=NURQY"
^DD(217.43,.01,2.1)="N NURQY S NURQY=Y,Y=$$GET1^DIQ(748.26,$P(Y,"","",4)_"",""_$P(Y,"","",2)_"","",.015) S:Y="""" Y=NURQY"
^DD(217.43,.01,3)="This is a question for this particular survey defined in the QA QUESTIONS file.  The data in this field is not editable, but it can be deleted."
^DD(217.43,.01,21,0)="^^2^2^2951103^^^^"
^DD(217.43,.01,21,1,0)="A quantitative measure (tool) that can be used to assess and improve the"
^DD(217.43,.01,21,2,0)="performance of key functions affecting outcomes."
^DD(217.43,.01,"DT")="2960425"
^DD(217.43,1,0)="RATIONALE^217.431P^^1;0"
^DD(217.43,1,21,0)="^^2^2^2921127^"
^DD(217.43,1,21,1,0)="High Risk (causes great risk to patient); High Volume (occurs frequently);"
^DD(217.43,1,21,2,0)="Problem Prone (causes problems for patients and staff)."
^DD(217.43,1,22)=""
^DD(217.43,5,0)="TYPE OF INDICATOR^S^1:STRUCTURE;2:PROCESS;3:OUTCOME;^2;4^Q"
^DD(217.43,5,21,0)="^^5^5^2960322^^^^"
^DD(217.43,5,21,1,0)="Structure (an indicator that assesses the environment in which care occurs)"
^DD(217.43,5,21,2,0)="; Process (indicator that assesses an important and discrete activity that"
^DD(217.43,5,21,3,0)="is carried out, either to directly care for the patient or to support "
^DD(217.43,5,21,4,0)="patient care); Outcome (indicator that assess what happens or does not "
^DD(217.43,5,21,5,0)="happen to a patient following a process)."
^DD(217.43,5,"DT")="2960322"
^DD(217.43,5.5,0)="DEFINITION OF TERMS^217.47^^12;0"
^DD(217.43,5.5,21,0)="^^1^1^2921127^"
^DD(217.43,5.5,21,1,0)="Define any terms in indicator which may be unfamiliar."
^DD(217.43,8,0)="METHOD OF DETERMINING VARIANCE^F^^3;1^K:$L(X)>245!($L(X)<3) X"
^DD(217.43,8,3)="Answer must be 3-245 characters in length."
^DD(217.43,8,21,0)="^^1^1^2921127^"
^DD(217.43,8,21,1,0)="Mechanism to determine when further evaluation must be triggered."
^DD(217.43,8,"DT")="2920811"
^DD(217.43,9.5,0)="CONCLUSIONS^217.44^^10;0"
^DD(217.43,9.5,21,0)="^^1^1^2921127^"
^DD(217.43,9.5,21,1,0)="What caused the results?  Ask the question ""why"" five times."
^DD(217.43,10,0)="RECOMMENDATION/ACTION^F^^5;1^K:$L(X)>245!($L(X)<3) X"
^DD(217.43,10,.1)=""
^DD(217.43,10,3)="Answer must be 3-245 characters in length."
^DD(217.43,10,21,0)="^^2^2^2960322^^"
^DD(217.43,10,21,1,0)="This field will describe the recommendations and actions taken on this"
^DD(217.43,10,21,2,0)="performance measure."
^DD(217.43,10,"DT")="2960322"
^DD(217.43,11,0)="PERSON/GROUP TAKING ACTION^F^^6;1^K:$L(X)>75!($L(X)<3) X"
^DD(217.43,11,3)="Answer must be 3-75 characters in length."
^DD(217.43,11,21,0)="^^1^1^2960326^^^^"
^DD(217.43,11,21,1,0)="Person(s) responsible for implementing the action."
^DD(217.43,11,"DT")="2960326"
^DD(217.43,13,0)="DATE IMPLEMENTED^D^^6;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(217.43,13,3)=""
^DD(217.43,13,21,0)="^^1^1^2960322^^"
^DD(217.43,13,21,1,0)="Date action is initiated."
^DD(217.43,13,"DT")="2960322"
^DD(217.43,19,0)="EFFECTIVENESS OF ACTION TAKEN^S^1:NO ACTIONS TAKEN;2:ACTIONS TAKEN WERE EFFECTIVE IN IMPROVING PATIENT CARE;3:ACTIONS TAKEN WERE PARTIALLY EFFECTIVE IN IMPROVING PATIENT CARE;4:ACTIONS TAKEN WERE NOT EFFECTIVE IN IMPROVING PATIENT CARE;^9;4^Q"
^DD(217.43,19,21,0)="^^2^2^2960322^^"
^DD(217.43,19,21,1,0)="Did you demonstrate improvement from the last reported results to these"
^DD(217.43,19,21,2,0)="results?"
^DD(217.43,19,"DT")="2920831"
^DD(217.43,"B","CONCLUSIONS",9.5)=""
^DD(217.43,"B","DATE IMPLEMENTED",13)=""
^DD(217.43,"B","DEFINITION OF TERMS",5.5)=""
^DD(217.43,"B","EFFECTIVENESS OF ACTION TAKEN",19)=""
^DD(217.43,"B","METHOD OF DETERMINING VARIANCE",8)=""
^DD(217.43,"B","PERFORMANCE MEASURE",.01)=""
^DD(217.43,"B","PERSON/GROUP TAKING ACTION",11)=""
^DD(217.43,"B","RATIONALE",1)=""
^DD(217.43,"B","RECOMMENDATION/ACTION",10)=""
^DD(217.43,"B","TYPE OF INDICATOR",5)=""
^DD(217.43,"GL",0,1,.01)=""
^DD(217.43,"GL",1,0,1)=""
^DD(217.43,"GL",2,4,5)=""
^DD(217.43,"GL",3,1,8)=""
^DD(217.43,"GL",5,1,10)=""
^DD(217.43,"GL",6,1,11)=""
^DD(217.43,"GL",6,3,13)=""
^DD(217.43,"GL",9,4,19)=""
^DD(217.43,"GL",10,0,9.5)=""
^DD(217.43,"GL",12,0,5.5)=""
^DD(217.43,"IX",.01)=""
^DD(217.43,"SB",217.431,1)=""
^DD(217.43,"SB",217.44,9.5)=""
^DD(217.43,"SB",217.47,5.5)=""
^DD(217.431,0)="RATIONALE SUB-FIELD^^.01^1"
^DD(217.431,0,"DT")="2960503"
^DD(217.431,0,"IX","B",217.431,.01)=""
^DD(217.431,0,"NM","RATIONALE")=""
^DD(217.431,0,"UP")="217.43"
^DD(217.431,.01,0)="RATIONALE^MP217.2'^NURQ(217.2,^0;1^Q"
^DD(217.431,.01,1,0)="^.1"
^DD(217.431,.01,1,1,0)="217.431^B"
^DD(217.431,.01,1,1,1)="S ^NURQ(217,DA(3),2,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(217.431,.01,1,1,2)="K ^NURQ(217,DA(3),2,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(217.431,.01,1,1,"%D",0)="^^1^1^2950927^^"
^DD(217.431,.01,1,1,"%D",1,0)="This is the cross-reference on the Rationale field."
^DD(217.431,.01,21,0)="^^2^2^2960503^^^"
^DD(217.431,.01,21,1,0)="High Risk (causes great risk to patient); High Volume (occurs frequently);"
^DD(217.431,.01,21,2,0)="Problem Prone (causes problems for patients and staff)."
^DD(217.431,.01,"DT")="2960503"
^DD(217.431,"B","RATIONALE",.01)=""
^DD(217.431,"GL",0,1,.01)=""
^DD(217.431,"IX",.01)=""
^DD(217.44,0)="CONCLUSIONS SUB-FIELD^^.01^1"
^DD(217.44,0,"NM","CONCLUSIONS")=""
^DD(217.44,0,"UP")="217.43"
^DD(217.44,.01,0)="CONCLUSIONS^W^^0;1^Q"
^DD(217.44,.01,21,0)="^^1^1^2921127^"
^DD(217.44,.01,21,1,0)="What caused the results?  Ask the question ""why"" five times."
^DD(217.44,.01,"DT")="2921027"
^DD(217.44,"B","CONCLUSIONS",.01)=""
^DD(217.44,"GL",0,1,.01)=""
^DD(217.47,0)="DEFINITION OF TERMS SUB-FIELD^^.01^1"
^DD(217.47,0,"NM","DEFINITION OF TERMS")=""
^DD(217.47,0,"UP")="217.43"
^DD(217.47,.01,0)="DEFINITION OF TERMS^W^^0;1^Q"
^DD(217.47,.01,21,0)="^^1^1^2921127^"
^DD(217.47,.01,21,1,0)="Define any terms in indicator which may be unfamiliar."
^DD(217.47,.01,"DT")="2921120"
^DD(217.47,"B","DEFINITION OF TERMS",.01)=""
^DD(217.47,"GL",0,1,.01)=""
^DD(219.7,0)="FIELD^^2^3"
^DD(219.7,0,"DDA")="N"
^DD(219.7,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(219.7,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(219.7,0,"IX","B",219.7,.01)=""
^DD(219.7,0,"IX","C",219.7,2)=""
^DD(219.7,0,"NM","*NURS CONVERSION NAME CHANGE")=""
^DD(219.7,0,"VR")="4.0"
^DD(219.7,0,"VRPK")="NURSING SERVICE"
^DD(219.7,.01,0)="OLD NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(219.7,.01,1,0)="^.1"
^DD(219.7,.01,1,1,0)="219.7^B"
^DD(219.7,.01,1,1,1)="S ^NURSF(219.7,""B"",$E(X,1,30),DA)="""""
^DD(219.7,.01,1,1,2)="K ^NURSF(219.7,""B"",$E(X,1,30),DA)"
^DD(219.7,.01,1,1,"%D",0)="^^2^2^2951130^"
^DD(219.7,.01,1,1,"%D",1,0)="This is the main index on the Old Name field of the NURS Conversion Name"
^DD(219.7,.01,1,1,"%D",2,0)="Change file."
^DD(219.7,.01,3)="Answer must be 3-30 characters in length."
^DD(219.7,.01,21,0)="^^3^3^2900706^^^^"
^DD(219.7,.01,21,1,0)="This field contains the name of the item prior to version 2.5 of the "
^DD(219.7,.01,21,2,0)="Nursing package.  An item is either an option, routine, help frame or "
^DD(219.7,.01,21,3,0)="bulletin."
^DD(219.7,1,0)="NEW NAME^F^^0;2^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(219.7,1,3)="Answer must be 3-30 characters in length."
^DD(219.7,1,21,0)="^^3^3^2900706^^"
^DD(219.7,1,21,1,0)="This field contains the name of the item in version 2.5 of the Nursing "
^DD(219.7,1,21,2,0)="package.  If this field is left blank, then the item does not exist in "
^DD(219.7,1,21,3,0)="version 2.5.  An item is either an option, routine, help frame or bulletin."
^DD(219.7,2,0)="TYPE^RS^R:ROUTINE;O:OPTION;H:HELP FRAME;B:BULLETIN;^0;3^Q"
^DD(219.7,2,1,0)="^.1"
^DD(219.7,2,1,1,0)="219.7^C"
^DD(219.7,2,1,1,1)="S ^NURSF(219.7,""C"",$E(X,1,30),DA)="""""
^DD(219.7,2,1,1,2)="K ^NURSF(219.7,""C"",$E(X,1,30),DA)"
^DD(219.7,2,1,1,"%D",0)="^^2^2^2951130^"
^DD(219.7,2,1,1,"%D",1,0)="This is a regular index on the type field of the NURS Conversion Name Change"
^DD(219.7,2,1,1,"%D",2,0)="file."
^DD(219.7,2,3)=""
^DD(219.7,2,21,0)="^^2^2^2910326^^^^"
^DD(219.7,2,21,1,0)="This field defines the type of an item.  An item can be either an option,"
^DD(219.7,2,21,2,0)="routine, help frame or bulletin."
^DD(219.7,"B","NEW NAME",1)=""
^DD(219.7,"B","OLD NAME",.01)=""
^DD(219.7,"B","TYPE",2)=""
^DD(219.7,"GL",0,1,.01)=""
^DD(219.7,"GL",0,2,1)=""
^DD(219.7,"GL",0,3,2)=""
^DD(219.7,"IX",.01)=""
^DD(219.7,"IX",2)=""
^DD(219.7,"RQ",.01)=""
^DD(219.7,"RQ",2)=""
^DD(220,0)="FIELD^^71^26"
^DD(220,0,"IX","B",220,.01)=""
^DD(220,0,"NM","DENTAL PATIENT")=""
^DD(220,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(220,.01,1,0)="^.1^^-1"
^DD(220,.01,1,1,0)="220^B"
^DD(220,.01,1,1,1)="S ^DENT(220,""B"",$E(X,1,30),DA)="""""
^DD(220,.01,1,1,2)="K ^DENT(220,""B"",$E(X,1,30),DA)"
^DD(220,.01,3)="PLEASE SELECT NAME OF DENTAL PATIENT"
^DD(220,.01,21,0)="^^1^1^2871203^^^^"
^DD(220,.01,21,1,0)="ENTER PATIENT'S NAME IN THIS ORDER: LAST, FIRST"
^DD(220,.01,"DT")="2850807"
^DD(220,.09,0)="PRIMARY PROVIDER^*P220.5'^DENT(220.5,^0;9^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(220,.09,1,0)="^.1^^0"
^DD(220,.09,12)="Only active dental providers"
^DD(220,.09,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220,.09,21,0)="^^1^1^3050317^"
^DD(220,.09,21,1,0)="This field contains the Primary provider for this dental patient. "
^DD(220,.09,"DT")="3050317"
^DD(220,.1,0)="SECONDARY PROVIDER^*P220.5'^DENT(220.5,^0;10^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(220,.1,1,0)="^.1^^0"
^DD(220,.1,12)="Only active dental providers"
^DD(220,.1,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220,.1,21,0)="^^1^1^3050218^"
^DD(220,.1,21,1,0)="This field contains the Secondary provider for this dental patient."
^DD(220,.1,"DT")="3050317"
^DD(220,1,0)="APPLICATION FOR CARE STATUS^S^N:NEW PATIENT;R:READMISSION/REAPPLICATION;^0;2^Q"
^DD(220,2,0)="PATIENT CATEGORY^S^1:EMERGENCY;2:COMPELLING MEDICAL NEED;3:EXTENDED CARE;4:NURSING HOME CARE;5:DOMICILIARY;6:SPECIAL PROVISION;7:PRIORITY 2;8:PRIORITY 3;^0;3^Q"
^DD(220,2,10)="Central Office instruction manual (test) on use of Optical Scan"
^DD(220,2,21,0)="^^10^10^2871203^^^^"
^DD(220,2,21,1,0)="ENTER CODE"
^DD(220,2,21,2,0)="CHOOSE FROM:"
^DD(220,2,21,3,0)="01 = EMERGENCY"
^DD(220,2,21,4,0)="02 = COMPELLING MEDICAL NEED"
^DD(220,2,21,5,0)="03 = EXTENDED CARE"
^DD(220,2,21,6,0)="04 = NURSING HOME CARE"
^DD(220,2,21,7,0)="05 = DOMICILIARY"
^DD(220,2,21,8,0)="06 = SPECIAL PROVISION"
^DD(220,2,21,9,0)="07 = PRIORITY 2"
^DD(220,2,21,10,0)="08 = PRIORITY 3"
^DD(220,2,"DT")="2850807"
^DD(220,3,0)="DOM/NHCU^S^D:DOMICILIARY;N:NHCU;^0;4^Q"
^DD(220,4,0)="DENTISTRY ADJUNCT^S^Y:YES;N:NO;^0;5^Q"
^DD(220,5,0)="COMPLETE EXAM AFTER SCREENING^S^Y:YES;N:NO;^0;6^Q"
^DD(220,6,0)="DENTAL CARE NEEDED^S^R:REGULAR;E:EMERGENCY;B:BOTH;^0;7^Q"
^DD(220,7,0)="PREVENTIVE DENTISTRY^S^I:INSTRUCTION;P:PROPHY;T:TOPICAL FLORIDE;^0;8^Q"
^DD(220,8,0)="ORAL MALIGNANCY DATE^D^^1;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220,9,0)="PERIAPICAL RADIOGRAPH DATE^D^^1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220,10,0)="BITE WING RADIOGRAPH DATE^D^^1;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220,11,0)="PANOGRAPHIC RADIOGRAPH DATE^D^^1;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220,12,0)="OTHER RADIOGRAPH DATE^D^^1;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220,13,0)="EDENTULOUS NO DENTURES^S^U:UPPER;L:LOWER;B:BOTH;^2;1^Q"
^DD(220,13,"DT")="2851027"
^DD(220,14,0)="EDENTULOUS WITH DENTURES^S^U:UPPER;L:LOWER;B:BOTH;^2;2^Q"
^DD(220,14,"DT")="2850718"
^DD(220,47,0)="OTHER FINDINGS/REMARKS^220.01^^5;0"
^DD(220,48,0)="TREATMENT PLAN PREPARED DATE^D^^6;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220,49,0)="TREATMENT PLAN^220.02P^^7;0"
^DD(220,50,0)="MEDICAL REVIEW DATE^D^^8;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220,51,0)="TREATMENT PLAN #^220.03I^^9;0"
^DD(220,60,0)="DENTAL ALERTS^220.04^^12;0"
^DD(220,60,21,0)="^^2^2^3050627^"
^DD(220,60,21,1,0)="Contains the dental alerts for the patient - e.g. Antibiotic Premed,"
^DD(220,60,21,2,0)="Sedation Premed, etc."
^DD(220,70.01,0)="LAST CLASSIFICATION^P220.2'^DIC(220.2,^10;1^Q"
^DD(220,70.01,21,0)="^^6^6^3030717^"
^DD(220,70.01,21,1,0)="This is computer generated.  It is the last classification for this "
^DD(220,70.01,21,2,0)="patient based upon data filed in file 228.1 for which a transaction was "
^DD(220,70.01,21,3,0)="marked as completed or terminated."
^DD(220,70.01,21,4,0)=" "
^DD(220,70.01,21,5,0)="This valued is stuffed from a cross reference on the dental transaction "
^DD(220,70.01,21,6,0)="file, 228.2."
^DD(220,70.01,"DT")="3030717"
^DD(220,70.02,0)="LAST CLASSIFICATION DATE^D^^10;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(220,70.02,3)="(No range limit on date)"
^DD(220,70.02,21,0)="^^2^2^3030717^"
^DD(220,70.02,21,1,0)="This is computed generated from data entered into file 228.2.  This is "
^DD(220,70.02,21,2,0)="date of the last classification."
^DD(220,70.02,"DT")="3030717"
^DD(220,71,0)="TP CHART NUM^220.071^^11;0"
^DD(220,71,21,0)="^^13^13^3030718^"
^DD(220,71,21,1,0)="This multiple contains data used by the Discus Treatment Planning "
^DD(220,71,21,2,0)="software.  That software sequences transactions by patient per day."
^DD(220,71,21,3,0)=" "
^DD(220,71,21,4,0)="Completed transactions have a chart number of 60 or greater.  Chart "
^DD(220,71,21,5,0)="numbers 0-59 indicate treatment plans.  The Discus software allows only "
^DD(220,71,21,6,0)="one completed chart number per day per patient."
^DD(220,71,21,7,0)=" "
^DD(220,71,21,8,0)="To sequence the data within a chart number, the Discus software uses the "
^DD(220,71,21,9,0)="TIME COUNTER field.  For each transaction TIME COUNTER must be unique per "
^DD(220,71,21,10,0)="patient per day."
^DD(220,71,21,11,0)=" "
^DD(220,71,21,12,0)="The data in this multiple is computer generated from cross references on "
^DD(220,71,21,13,0)="file 228.2."
^DD(220,"B","APPLICATION FOR CARE STATUS",1)=""
^DD(220,"B","BITE WING RADIOGRAPH DATE",10)=""
^DD(220,"B","COMPLETE EXAM AFTER SCREENING",5)=""
^DD(220,"B","DENTAL ALERTS",60)=""
^DD(220,"B","DENTAL CARE NEEDED",6)=""
^DD(220,"B","DENTISTRY ADJUNCT",4)=""
^DD(220,"B","DOM/NHCU",3)=""
^DD(220,"B","EDENTULOUS NO DENTURES",13)=""
^DD(220,"B","EDENTULOUS WITH DENTURES",14)=""
^DD(220,"B","LAST CLASSIFICATION",70.01)=""
^DD(220,"B","LAST CLASSIFICATION DATE",70.02)=""
^DD(220,"B","MEDICAL REVIEW DATE",50)=""
^DD(220,"B","NAME",.01)=""
^DD(220,"B","ORAL MALIGNANCY DATE",8)=""
^DD(220,"B","OTHER FINDINGS/REMARKS",47)=""
^DD(220,"B","OTHER RADIOGRAPH DATE",12)=""
^DD(220,"B","PANOGRAPHIC RADIOGRAPH DATE",11)=""
^DD(220,"B","PATIENT CATEGORY",2)=""
^DD(220,"B","PERIAPICAL RADIOGRAPH DATE",9)=""
^DD(220,"B","PREVENTIVE DENTISTRY",7)=""
^DD(220,"B","PRIMARY PROVIDER",.09)=""
^DD(220,"B","SECONDARY PROVIDER",.1)=""
^DD(220,"B","TP CHART NUM",71)=""
^DD(220,"B","TREATMENT PLAN",49)=""
^DD(220,"B","TREATMENT PLAN #",51)=""
^DD(220,"B","TREATMENT PLAN PREPARED DATE",48)=""
^DD(220,"GL",0,1,.01)=""
^DD(220,"GL",0,2,1)=""
^DD(220,"GL",0,3,2)=""
^DD(220,"GL",0,4,3)=""
^DD(220,"GL",0,5,4)=""
^DD(220,"GL",0,6,5)=""
^DD(220,"GL",0,7,6)=""
^DD(220,"GL",0,8,7)=""
^DD(220,"GL",0,9,.09)=""
^DD(220,"GL",0,10,.1)=""
^DD(220,"GL",1,1,8)=""
^DD(220,"GL",1,2,9)=""
^DD(220,"GL",1,3,10)=""
^DD(220,"GL",1,4,11)=""
^DD(220,"GL",1,5,12)=""
^DD(220,"GL",2,1,13)=""
^DD(220,"GL",2,2,14)=""
^DD(220,"GL",5,0,47)=""
^DD(220,"GL",6,1,48)=""
^DD(220,"GL",7,0,49)=""
^DD(220,"GL",8,1,50)=""
^DD(220,"GL",9,0,51)=""
^DD(220,"GL",10,1,70.01)=""
^DD(220,"GL",10,2,70.02)=""
^DD(220,"GL",11,0,71)=""
^DD(220,"GL",12,0,60)=""
^DD(220,"IX",.01)=""
^DD(220,"RQ",.01)=""
^DD(220,"SB",220.01,47)=""
^DD(220,"SB",220.02,49)=""
^DD(220,"SB",220.03,51)=""
^DD(220,"SB",220.04,60)=""
^DD(220,"SB",220.071,71)=""
^DD(220.01,0)="OTHER FINDINGS/REMARKS SUB-FIELD^NL^.01^1"
^DD(220.01,0,"NM","OTHER FINDINGS/REMARKS")=""
^DD(220.01,0,"UP")="220"
^DD(220.01,.01,0)="OTHER FINDINGS/REMARKS^W^^0;1^Q"
^DD(220.01,"B","OTHER FINDINGS/REMARKS",.01)=""
^DD(220.01,"GL",0,1,.01)=""
^DD(220.02,0)="TREATMENT PLAN SUB-FIELD^NL^2^3"
^DD(220.02,0,"NM","TREATMENT PLAN")=""
^DD(220.02,0,"UP")="220"
^DD(220.02,.01,0)="TREATMENT PLAN^MP220.3'^DIC(220.3,^0;1^Q"
^DD(220.02,.01,"DT")="2850624"
^DD(220.02,1,0)="PLANNED DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220.02,1,"DT")="2850628"
^DD(220.02,2,0)="COMPLETED DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(220.02,2,"DT")="2850628"
^DD(220.02,"B","COMPLETED DATE",2)=""
^DD(220.02,"B","PLANNED DATE",1)=""
^DD(220.02,"B","TREATMENT PLAN",.01)=""
^DD(220.02,"GL",0,1,.01)=""
^DD(220.02,"GL",0,2,1)=""
^DD(220.02,"GL",0,3,2)=""
^DD(220.03,0)="TREATMENT PLAN # SUB-FIELD^^15^17"
^DD(220.03,0,"ID",.1)="W ""   "",$E($P(^(0),U,17),4,5)_""-""_$E($P(^(0),U,17),6,7)_""-""_$E($P(^(0),U,17),2,3)"
^DD(220.03,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DENT(220.5,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(220.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(220.03,0,"IX","B",220.03,.01)=""
^DD(220.03,0,"NM","TREATMENT PLAN #")=""
^DD(220.03,0,"UP")="220"
^DD(220.03,.01,0)="TREATMENT PLAN #^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(220.03,.01,1,0)="^.1"
^DD(220.03,.01,1,1,0)="220.03^B"
^DD(220.03,.01,1,1,1)="S ^DENT(220,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(220.03,.01,1,1,2)="K ^DENT(220,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(220.03,.01,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(220.03,.01,"DT")="2860616"
^DD(220.03,.1,0)="DATE GENERATED^RD^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(220.03,.1,"DT")="2860616"
^DD(220.03,1,0)="RX NEEDED^S^Y:YES;N:NO;^0;2^Q"
^DD(220.03,1,"DT")="2860606"
^DD(220.03,2,0)="PROPHYLAXIS APPT'S NEEDED^NJ1,0^^0;3^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.03,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 2"
^DD(220.03,2,4)="I X=""??"" D HLP4^DENTCPM1"
^DD(220.03,2,21,0)="^^2^2^2870923^^^^"
^DD(220.03,2,21,1,0)="Enter ""??"" for further information concerning this field,"
^DD(220.03,2,21,2,0)="or <RETURN> to continue."
^DD(220.03,2,"DT")="2860730"
^DD(220.03,3,0)="PROPH PROVIDER^*P220.5'^DENT(220.5,^0;4^S DIC(""S"")=""I '$P(^DENT(220.5,+Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(220.03,3,3)="Enter the Name of the PROPHYLAXIS provider."
^DD(220.03,3,12)="Screen out inactive PROPHYLAXIS provider"
^DD(220.03,3,12.1)="S DIC(""S"")=""I '$P(^DENT(220.5,+Y,0),U,3)"""
^DD(220.03,3,"DT")="2870922"
^DD(220.03,4,0)="PERIODONTAL APPT'S NEEDED^NJ1,0^^0;5^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.03,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 8"
^DD(220.03,4,4)="I X=""??"" D HLP6^DENTCPM1"
^DD(220.03,4,21,0)="^^2^2^2860707^^^^"
^DD(220.03,4,21,1,0)="Enter ""??"" for further information concerning this field,"
^DD(220.03,4,21,2,0)="or <RETURN> to continue"
^DD(220.03,4,"DT")="2860730"
^DD(220.03,5,0)="PERIO PROVIDER^*P220.5'^DENT(220.5,^0;6^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(220.03,5,3)="Enter the name of the PERIODONTAL provider"
^DD(220.03,5,12)="Screen out inactive PERIODONTAL provider"
^DD(220.03,5,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220.03,5,"DT")="2870923"
^DD(220.03,6,0)="ENDODONTIC APPT'S NEEDED^NJ1,0^^0;7^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.03,6,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 8"
^DD(220.03,6,4)="I X=""??"" D HLP8^DENTCPM1"
^DD(220.03,6,21,0)="^^2^2^2860707^^"
^DD(220.03,6,21,1,0)="Enter ""??"" for further information concerning this field,"
^DD(220.03,6,21,2,0)="or <RETURN> to continue."
^DD(220.03,6,"DT")="2860730"
^DD(220.03,7,0)="ENDO PROVIDER^*P220.5'^DENT(220.5,^0;8^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(220.03,7,3)="Enter the name of the ENDODONTIC provider"
^DD(220.03,7,12)="Screen out inactive ENDODONTIC provider"
^DD(220.03,7,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220.03,7,"DT")="2870923"
^DD(220.03,8,0)="RESTORATIVE APPT'S NEEDED^NJ1,0^^0;9^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.03,8,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 7"
^DD(220.03,8,4)="I X=""??"" D HLP10^DENTCPM1"
^DD(220.03,8,21,0)="^^2^2^2860707^^"
^DD(220.03,8,21,1,0)="Enter ""??"" for further information concerning this field,"
^DD(220.03,8,21,2,0)="or <RETURN> to continue."
^DD(220.03,8,"DT")="2860730"
^DD(220.03,9,0)="REST PROVIDER^*P220.5'^DENT(220.5,^0;10^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(220.03,9,3)="Enter the name of the RESTORATIVE provider"
^DD(220.03,9,12)="Screen out inactive RESTORATIVE provider"
^DD(220.03,9,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220.03,9,"DT")="2870923"
^DD(220.03,10,0)="SURGICAL APPT'S NEEDED^NJ1,0^^0;11^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.03,10,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 4"
^DD(220.03,10,4)="I X=""??"" D HLP12^DENTCPM1"
^DD(220.03,10,21,0)="^^2^2^2860707^^"
^DD(220.03,10,21,1,0)="Enter ""??"" for further information concerning this field,"
^DD(220.03,10,21,2,0)="or <RETURN> to continue."
^DD(220.03,10,"DT")="2860730"
^DD(220.03,11,0)="SURG PROVIDER^*P220.5'^DENT(220.5,^0;12^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(220.03,11,3)="Enter the name of SURGICAL provider"
^DD(220.03,11,12)="Screen out inactive SURGICAL provider"
^DD(220.03,11,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220.03,11,"DT")="2870923"
^DD(220.03,12,0)="CROWN/BRIDGE APPT'S NEEDED^NJ2,0^^0;13^K:+X'=X!(X>18)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.03,12,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 18"
^DD(220.03,12,4)="I X=""??"" D HLP14^DENTCPM1"
^DD(220.03,12,21,0)="^^2^2^2860707^^^"
^DD(220.03,12,21,1,0)="Enter ""??"" for further information concerning this field,"
^DD(220.03,12,21,2,0)="or <RETURN> to continue."
^DD(220.03,12,"DT")="2860730"
^DD(220.03,13,0)="C/B PROVIDER^*P220.5'^DENT(220.5,^0;14^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(220.03,13,3)="Enter the name of the CROWN/BRIDGE provider"
^DD(220.03,13,12)="Screen out inactive CROWN/BRIDGE provider"
^DD(220.03,13,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220.03,13,"DT")="2870923"
^DD(220.03,14,0)="REM PROS APPT'S NEEDED^NJ1,0^^0;15^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.03,14,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 5"
^DD(220.03,14,4)="I X=""??"" D HLP16^DENTCPM1"
^DD(220.03,14,21,0)="^^2^2^2870923^^^^"
^DD(220.03,14,21,1,0)="Enter ""??"" for further information concerning this field,"
^DD(220.03,14,21,2,0)="or <RETURN> to continue."
^DD(220.03,14,"DT")="2860730"
^DD(220.03,15,0)="PROS PROVIDER^*P220.5'^DENT(220.5,^0;16^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(220.03,15,3)="Enter the name of PROS. provider"
^DD(220.03,15,12)="Screen out inactive  PROS. provider"
^DD(220.03,15,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(220.03,15,"DT")="2870923"
^DD(220.03,"B","C/B PROVIDER",13)=""
^DD(220.03,"B","CROWN/BRIDGE APPT'S NEEDED",12)=""
^DD(220.03,"B","DATE GENERATED",.1)=""
^DD(220.03,"B","ENDO PROVIDER",7)=""
^DD(220.03,"B","ENDODONTIC APPT'S NEEDED",6)=""
^DD(220.03,"B","PERIO PROVIDER",5)=""
^DD(220.03,"B","PERIODONTAL APPT'S NEEDED",4)=""
^DD(220.03,"B","PROPH PROVIDER",3)=""
^DD(220.03,"B","PROPHYLAXIS APPT'S NEEDED",2)=""
^DD(220.03,"B","PROS PROVIDER",15)=""
^DD(220.03,"B","REM PROS APPT'S NEEDED",14)=""
^DD(220.03,"B","REST PROVIDER",9)=""
^DD(220.03,"B","RESTORATIVE APPT'S NEEDED",8)=""
^DD(220.03,"B","RX NEEDED",1)=""
^DD(220.03,"B","SURG PROVIDER",11)=""
^DD(220.03,"B","SURGICAL APPT'S NEEDED",10)=""
^DD(220.03,"B","TREATMENT PLAN #",.01)=""
^DD(220.03,"GL",0,1,.01)=""
^DD(220.03,"GL",0,2,1)=""
^DD(220.03,"GL",0,3,2)=""
^DD(220.03,"GL",0,4,3)=""
^DD(220.03,"GL",0,5,4)=""
^DD(220.03,"GL",0,6,5)=""
^DD(220.03,"GL",0,7,6)=""
^DD(220.03,"GL",0,8,7)=""
^DD(220.03,"GL",0,9,8)=""
^DD(220.03,"GL",0,10,9)=""
^DD(220.03,"GL",0,11,10)=""
^DD(220.03,"GL",0,12,11)=""
^DD(220.03,"GL",0,13,12)=""
^DD(220.03,"GL",0,14,13)=""
^DD(220.03,"GL",0,15,14)=""
^DD(220.03,"GL",0,16,15)=""
^DD(220.03,"GL",0,17,.1)=""
^DD(220.03,"IX",.01)=""
^DD(220.03,"RQ",.1)=""
^DD(220.04,0)="DENTAL ALERTS SUB-FIELD^^.01^1"
^DD(220.04,0,"DT")="3050519"
^DD(220.04,0,"NM","DENTAL ALERTS")=""
^DD(220.04,0,"UP")="220"
^DD(220.04,.01,0)="DENTAL ALERTS^WL^^0;1"
^DD(220.04,.01,21,0)="^^2^2^3050519^"
^DD(220.04,.01,21,1,0)="Contains the dental alerts for the patient - e.g. Antibiotic Premed, "
^DD(220.04,.01,21,2,0)="Sedation Premed, etc."
^DD(220.04,.01,"DT")="3050519"
^DD(220.04,"B","DENTAL ALERTS",.01)=""
^DD(220.04,"GL",0,1,.01)=""
^DD(220.071,0)="TP CHART NUM SUB-FIELD^^.02^3"
^DD(220.071,0,"DT")="3030718"
^DD(220.071,0,"IX","B",220.071,.01)=""
^DD(220.071,0,"NM","TP CHART NUM")=""
^DD(220.071,0,"UP")="220"
^DD(220.071,.001,0)="DATE^D^^ ^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(220.071,.001,3)="(No range limit on date)"
^DD(220.071,.001,21,0)="^^2^2^3030718^"
^DD(220.071,.001,21,1,0)="This is computer generated from data filed in file 228.2.  This is the "
^DD(220.071,.001,21,2,0)="date of the transaction."
^DD(220.071,.001,"DT")="3030718"
^DD(220.071,.01,0)="CHART NUMBER^MNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<60)!(X?.E1"".""1.N) X"
^DD(220.071,.01,1,0)="^.1"
^DD(220.071,.01,1,1,0)="220.071^B"
^DD(220.071,.01,1,1,1)="S ^DENT(220,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(220.071,.01,1,1,2)="K ^DENT(220,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(220.071,.01,3)="Type a number between 60 and 9999999, 0 Decimal Digits"
^DD(220.071,.01,21,0)="^^6^6^3030718^"
^DD(220.071,.01,21,1,0)="This multiple tracks the Discus Treatment Planning software chart numbers "
^DD(220.071,.01,21,2,0)="and time counters.  In this software, there is only one chart number per "
^DD(220.071,.01,21,3,0)="patient per day."
^DD(220.071,.01,21,4,0)=" "
^DD(220.071,.01,21,5,0)="In the Discus software, planning transactions are 0-59.  Completed "
^DD(220.071,.01,21,6,0)="transactions are 60 or greater."
^DD(220.071,.01,"DT")="3030718"
^DD(220.071,.02,0)="TIME COUNTER LAST^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<1000)!(X?.E1"".""1.N) X"
^DD(220.071,.02,1,0)="^.1^^0"
^DD(220.071,.02,3)="Type a number between 1000 and 999999999, 0 Decimal Digits"
^DD(220.071,.02,21,0)="^^5^5^3030718^"
^DD(220.071,.02,21,1,0)="This is computer generated from filing transactions in file 228.2."
^DD(220.071,.02,21,2,0)="The Discus treatment planning software uses a field called TIME COUNTER "
^DD(220.071,.02,21,3,0)="to sequence the transactions for a patient per day.   Discus starts the "
^DD(220.071,.02,21,4,0)="counter with a value of 1000 and increments it by 10 for each "
^DD(220.071,.02,21,5,0)="transaction.  This field records the last TIME COUNTER filed in file 228.2"
^DD(220.071,.02,"DT")="3030718"
^DD(220.071,"B","CHART NUMBER",.01)=""
^DD(220.071,"B","DATE",.001)=""
^DD(220.071,"B","TIME COUNTER LAST",.02)=""
^DD(220.071,"GL",0,1,.01)=""
^DD(220.071,"GL",0,2,.02)=""
^DD(220.071,"IX",.01)=""
^DD(220.2,0)="FIELD^^.01^2"
^DD(220.2,0,"IX","B",220.2,.01)=""
^DD(220.2,0,"NM","DENTAL CLASSIFICATION")=""
^DD(220.2,0,"PT",2,220)=""
^DD(220.2,0,"PT",220,70.01)=""
^DD(220.2,0,"PT",221,4.5)=""
^DD(220.2,0,"PT",727.806,21)=""
^DD(220.2,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>22)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.2,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 22"
^DD(220.2,.001,"DT")="2860706"
^DD(220.2,.01,0)="CLASSIFICATION^RF^^0;1^K:$L(X)>32!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(220.2,.01,1,0)="^.1"
^DD(220.2,.01,1,1,0)="220.2^B"
^DD(220.2,.01,1,1,1)="S ^DIC(220.2,""B"",$E(X,1,30),DA)="""""
^DD(220.2,.01,1,1,2)="K ^DIC(220.2,""B"",$E(X,1,30),DA)"
^DD(220.2,.01,3)="ANSWER MUST BE 3-32 CHARACTERS IN LENGTH"
^DD(220.2,.01,"DT")="2860706"
^DD(220.2,"B","CLASSIFICATION",.01)=""
^DD(220.2,"B","NUMBER",.001)=""
^DD(220.2,"GL",0,1,.01)=""
^DD(220.2,"IX",.01)=""
^DD(220.2,"RQ",.01)=""
^DD(220.3,0)="FIELD^^2^4"
^DD(220.3,0,"IX","B",220.3,.01)=""
^DD(220.3,0,"NM","DENTAL TYPE OF SERVICE")=""
^DD(220.3,0,"PT",220.02,.01)=""
^DD(220.3,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(220.3,.001,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(220.3,.001,"DT")="2850821"
^DD(220.3,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(220.3,.01,1,0)="^.1"
^DD(220.3,.01,1,1,0)="220.3^B"
^DD(220.3,.01,1,1,1)="S ^DIC(220.3,""B"",$E(X,1,30),DA)="""""
^DD(220.3,.01,1,1,2)="K ^DIC(220.3,""B"",$E(X,1,30),DA)"
^DD(220.3,.01,3)="Enter the name of a Dental type of service. Answer must be 3-45 characters in length."
^DD(220.3,.01,"DT")="2880209"
^DD(220.3,1,0)="CTV^NJ6,2^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(220.3,1,3)="Enter a composite time value (CTV) for this type of service.  Answer must  be a number from 0 to 999 with up to 2 decimals."
^DD(220.3,1,"DT")="2880209"
^DD(220.3,2,0)="$VALUE^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(220.3,2,3)="Enter the appropriate dollar value for this type of service as determined  locally.  The dollar value must be between 0 and 999999 with up to 2 decimals."
^DD(220.3,"B","$VALUE",2)=""
^DD(220.3,"B","CTV",1)=""
^DD(220.3,"B","NAME",.01)=""
^DD(220.3,"B","NUMBER",.001)=""
^DD(220.3,"GL",0,1,.01)=""
^DD(220.3,"GL",0,2,1)=""
^DD(220.3,"GL",0,3,2)=""
^DD(220.3,"IX",.01)=""
^DD(220.3,"RQ",.01)=""
^DD(220.4,0)="FIELD^^.01^2"
^DD(220.4,0,"IX","B",220.4,.01)=""
^DD(220.4,0,"NM","DENTAL BED SECTION")=""
^DD(220.4,0,"PT",221,5)=""
^DD(220.4,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(220.4,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 15"
^DD(220.4,.01,0)="BED SECTION^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(220.4,.01,1,0)="^.1"
^DD(220.4,.01,1,1,0)="220.4^B"
^DD(220.4,.01,1,1,1)="S ^DIC(220.4,""B"",$E(X,1,30),DA)="""""
^DD(220.4,.01,1,1,2)="K ^DIC(220.4,""B"",$E(X,1,30),DA)"
^DD(220.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(220.4,"B","BED SECTION",.01)=""
^DD(220.4,"B","NUMBER",.001)=""
^DD(220.4,"GL",0,1,.01)=""
^DD(220.4,"IX",.01)=""
^DD(220.4,"RQ",.01)=""
^DD(220.5,0)="FIELD^^2^4"
^DD(220.5,0,"DDA")="N"
^DD(220.5,0,"DT")="3040116"
^DD(220.5,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(220.5,0,"ID",1)="W ?30,$P(^(0),U,2)"
^DD(220.5,0,"IX","B",220.5,.01)=""
^DD(220.5,0,"IX","C",220.5,1)=""
^DD(220.5,0,"IX","D",220.5,.04)=""
^DD(220.5,0,"NM","DENTAL PROVIDER")=""
^DD(220.5,0,"PT",220,.09)=""
^DD(220.5,0,"PT",220,.1)=""
^DD(220.5,0,"PT",220.03,3)=""
^DD(220.5,0,"PT",220.03,5)=""
^DD(220.5,0,"PT",220.03,7)=""
^DD(220.5,0,"PT",220.03,9)=""
^DD(220.5,0,"PT",220.03,11)=""
^DD(220.5,0,"PT",220.03,13)=""
^DD(220.5,0,"PT",220.03,15)=""
^DD(220.5,0,"PT",221,.5)=""
^DD(220.5,0,"PT",226,.06)=""
^DD(220.5,0,"VR")="1.2"
^DD(220.5,0,"VRPK")="DENT"
^DD(220.5,.01,0)="NAME^RP200'^VA(200,^0;1^Q"
^DD(220.5,.01,1,0)="^.1"
^DD(220.5,.01,1,1,0)="220.5^B"
^DD(220.5,.01,1,1,1)="S ^DENT(220.5,""B"",$E(X,1,30),DA)="""""
^DD(220.5,.01,1,1,2)="K ^DENT(220.5,""B"",$E(X,1,30),DA)"
^DD(220.5,.01,3)="Select the dental provider's name (last name, first name)."
^DD(220.5,.01,"DT")="2950703"
^DD(220.5,.04,0)="NEW DENTAL PROVIDER NUMBER^F^^0;4^K:$L(X)>8!($L(X)<8)!'(X?8N) X"
^DD(220.5,.04,1,0)="^.1"
^DD(220.5,.04,1,1,0)="220.5^D"
^DD(220.5,.04,1,1,1)="S ^DENT(220.5,""D"",$E(X,1,30),DA)="""""
^DD(220.5,.04,1,1,2)="K ^DENT(220.5,""D"",$E(X,1,30),DA)"
^DD(220.5,.04,1,1,"%D",0)="^^1^1^3040205^"
^DD(220.5,.04,1,1,"%D",1,0)="This references the file by the New Dental Provider Number."
^DD(220.5,.04,1,1,"DT")="3040205"
^DD(220.5,.04,3)="Answer must be 8 numeric characters in length"
^DD(220.5,.04,21,0)="^^4^4^3040113^"
^DD(220.5,.04,21,1,0)="This is the Dental Provider Number.  The first two characters are the "
^DD(220.5,.04,21,2,0)="zero-filled DENTAL PROVIDER TYPE, the second two characters are the "
^DD(220.5,.04,21,3,0)="zero-filled DENTAL PROVIDER SPECIALTY and the last 4 characters are "
^DD(220.5,.04,21,4,0)="system generated."
^DD(220.5,.04,"DT")="3040205"
^DD(220.5,1,0)="DENTAL PROVIDER NUMBER^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X I $D(X),$D(^DENT(220.5,""C"",X)) W !,""PROVIDER NUMBER "",X,"" ALREADY EXISTS"",*7 K X"
^DD(220.5,1,1,0)="^.1"
^DD(220.5,1,1,1,0)="220.5^C"
^DD(220.5,1,1,1,1)="S ^DENT(220.5,""C"",$E(X,1,30),DA)="""""
^DD(220.5,1,1,1,2)="K ^DENT(220.5,""C"",$E(X,1,30),DA)"
^DD(220.5,1,1,1,"DT")="3040205"
^DD(220.5,1,3)="*This field is no longer used*"
^DD(220.5,1,"DT")="3040205"
^DD(220.5,2,0)="STATUS^S^1:INACTIVE;^0;3^Q"
^DD(220.5,2,3)="Enter a '1' or 'I' to INACTIVATE a provider.  To reactivate a provider, delete the inactive flag."
^DD(220.5,2,"DT")="2870922"
^DD(220.5,"B","DENTAL PROVIDER NUMBER",1)=""
^DD(220.5,"B","NAME",.01)=""
^DD(220.5,"B","NEW DENTAL PROVIDER NUMBER",.04)=""
^DD(220.5,"B","STATUS",2)=""
^DD(220.5,"GL",0,1,.01)=""
^DD(220.5,"GL",0,2,1)=""
^DD(220.5,"GL",0,3,2)=""
^DD(220.5,"GL",0,4,.04)=""
^DD(220.5,"IX",.01)=""
^DD(220.5,"IX",.04)=""
^DD(220.5,"IX",1)=""
^DD(220.5,"RQ",.01)=""
^DD(220.51,0)="FIELD^^.04^4"
^DD(220.51,0,"DDA")="N"
^DD(220.51,0,"DT")="3040206"
^DD(220.51,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(220.51,0,"IX","B",220.51,.01)=""
^DD(220.51,0,"NM","DENTAL PROVIDER TYPE")=""
^DD(220.51,0,"VR")="1.2"
^DD(220.51,0,"VRPK")="DENT"
^DD(220.51,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(220.51,.01,1,0)="^.1"
^DD(220.51,.01,1,1,0)="220.51^B"
^DD(220.51,.01,1,1,1)="S ^DENT(220.51,""B"",$E(X,1,30),DA)="""""
^DD(220.51,.01,1,1,2)="K ^DENT(220.51,""B"",$E(X,1,30),DA)"
^DD(220.51,.01,3)="Answer must be 3-30 characters in length"
^DD(220.51,.01,21,0)="^^1^1^3040112^"
^DD(220.51,.01,21,1,0)="This is the name of the Provider Type."
^DD(220.51,.01,"DT")="3040423"
^DD(220.51,.02,0)="CODE^F^^0;2^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(220.51,.02,3)="Answer must be 1-2 characters in length"
^DD(220.51,.02,21,0)="^^3^3^3040112^"
^DD(220.51,.02,21,1,0)="This is the code used to generate the Dental Provider Id#.  It is a 1-2 "
^DD(220.51,.02,21,2,0)="character numeric value that will be zero-filled when appended to the "
^DD(220.51,.02,21,3,0)="Dental Provider Specialty and Provider Id."
^DD(220.51,.02,"DT")="3040112"
^DD(220.51,.03,0)="INACTIVE^S^1:INACTIVE;^0;3^Q"
^DD(220.51,.03,3)="Enter '1' to make this entry inactive."
^DD(220.51,.03,21,0)="^^2^2^3040113^"
^DD(220.51,.03,21,1,0)="This field is set to 1 if the Dental Provider Type is inactive and no "
^DD(220.51,.03,21,2,0)="longer used."
^DD(220.51,.03,"DT")="3040113"
^DD(220.51,.04,0)="CLINICIAN^S^1:YES;0:NO;^0;4^Q"
^DD(220.51,.04,3)="Enter '1' if this type is a Clinician."
^DD(220.51,.04,21,0)="^^1^1^3040206^"
^DD(220.51,.04,21,1,0)="This field is Yes if the Provider Type is a Clinician."
^DD(220.51,.04,"DT")="3040206"
^DD(220.51,"B","CLINICIAN",.04)=""
^DD(220.51,"B","CODE",.02)=""
^DD(220.51,"B","INACTIVE",.03)=""
^DD(220.51,"B","NAME",.01)=""
^DD(220.51,"GL",0,1,.01)=""
^DD(220.51,"GL",0,2,.02)=""
^DD(220.51,"GL",0,3,.03)=""
^DD(220.51,"GL",0,4,.04)=""
^DD(220.51,"IX",.01)=""
^DD(220.51,"RQ",.01)=""
^DD(220.52,0)="FIELD^^.03^3"
^DD(220.52,0,"DDA")="N"
^DD(220.52,0,"DT")="3040206"
^DD(220.52,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(220.52,0,"IX","B",220.52,.01)=""
^DD(220.52,0,"NM","DENTAL PROVIDER SPECIALTY")=""
^DD(220.52,0,"VR")="1.2"
^DD(220.52,0,"VRPK")="DENT"
^DD(220.52,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(220.52,.01,1,0)="^.1"
^DD(220.52,.01,1,1,0)="220.52^B"
^DD(220.52,.01,1,1,1)="S ^DENT(220.52,""B"",$E(X,1,30),DA)="""""
^DD(220.52,.01,1,1,2)="K ^DENT(220.52,""B"",$E(X,1,30),DA)"
^DD(220.52,.01,3)="Answer must be 3-30 characters in length"
^DD(220.52,.01,21,0)="^^1^1^3040112^"
^DD(220.52,.01,21,1,0)="This is the name of the Provider Specialty."
^DD(220.52,.01,"DT")="3040206"
^DD(220.52,.02,0)="CODE^F^^0;2^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(220.52,.02,3)="Answer must be 1-2 characters in length"
^DD(220.52,.02,21,0)="^^3^3^3040112^"
^DD(220.52,.02,21,1,0)="This is the code for the Specialty.  It is a 1-2 character number that "
^DD(220.52,.02,21,2,0)="will be appended with the Dental Provider Type to create a Dental "
^DD(220.52,.02,21,3,0)="Provider Id."
^DD(220.52,.02,"DT")="3040112"
^DD(220.52,.03,0)="INACTIVE^S^1:INACTIVE;^0;3^Q"
^DD(220.52,.03,3)="Enter '1' to make this entry inactive."
^DD(220.52,.03,21,0)="^^2^2^3040113^"
^DD(220.52,.03,21,1,0)="This field will be set to '1' if the Provider Specialty is inactive and "
^DD(220.52,.03,21,2,0)="no longer used."
^DD(220.52,.03,"DT")="3040113"
^DD(220.52,"B","CODE",.02)=""
^DD(220.52,"B","INACTIVE",.03)=""
^DD(220.52,"B","NAME",.01)=""
^DD(220.52,"GL",0,1,.01)=""
^DD(220.52,"GL",0,2,.02)=""
^DD(220.52,"GL",0,3,.03)=""
^DD(220.52,"IX",.01)=""
^DD(220.52,"RQ",.01)=""
^DD(220.6,0)="FIELD^NL^.1^10"
^DD(220.6,0,"ID",.06)="W ""   "",$P(^(0),U,6)"
^DD(220.6,0,"ID",.08)="W:$D(^(0)) ""   "",$P(^(0),U,7)"
^DD(220.6,0,"IX","AC",220.6,.01)=""
^DD(220.6,0,"IX","B",220.6,.01)=""
^DD(220.6,0,"NM","DENTAL SCREEN (USER)")=""
^DD(220.6,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?1P.E) X"
^DD(220.6,.01,.1)=""
^DD(220.6,.01,1,0)="^.1"
^DD(220.6,.01,1,1,0)="220.6^B"
^DD(220.6,.01,1,1,1)="S ^DENT(220.6,""B"",$E(X,1,30),DA)="""""
^DD(220.6,.01,1,1,2)="K ^DENT(220.6,""B"",$E(X,1,30),DA)"
^DD(220.6,.01,1,2,0)="220.6^AC^MUMPS"
^DD(220.6,.01,1,2,1)="Q"
^DD(220.6,.01,1,2,2)="I $D(DJDN) S DJ3=$P(^DENT(220.6,DA,0),""^"",3),DJ5=$P(^(0),""^"",5) S:DJ3'="""" DJ3=$O(^DENT(220.6,""B"",DJ3,0)) S:DJ3 $P(^DENT(220.6,DJ3,0),""^"",5)="""" S:DJ5'="""" DJ5=$O(^DENT(220.6,""B"",DJ5,0)) S:DJ5 $P(^DENT(220.6,DJ5,0),""^"",3)="""" K DJ3,DJ5"
^DD(220.6,.01,3)="ANSWER MUST BE 3-16 CHARACTERS IN LENGTH"
^DD(220.6,.01,21,0)="^^2^2^2871229^^^^"
^DD(220.6,.01,21,1,0)="This field contains the screen name associated with a display of entries."
^DD(220.6,.01,21,2,0)="The screen should be namespaced."
^DD(220.6,.01,21,3,0)="The name should start the namespace characters."
^DD(220.6,.02,0)="MAXLINE^RNJ2,0^^0;2^K:+X'=X!(X>15)!(X<15)!(X?.E1"".""1N.N) X"
^DD(220.6,.02,3)="TYPE A WHOLE NUMBER BETWEEN 15 AND 15"
^DD(220.6,.02,21,0)="^^3^3^2851030^^"
^DD(220.6,.02,21,1,0)="This field contain the maximun length used by the screen display."
^DD(220.6,.02,21,2,0)="It can not exceed 15 lines."
^DD(220.6,.02,21,3,0)="The system computes this field automatically."
^DD(220.6,.03,0)="PREVIOUS^FX^^0;3^K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^DENT(220.6,""B"",X)) S DIC(0)=""L"",DIC=""^DENT(220.6,"" D ^DIC"
^DD(220.6,.03,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(220.6,.03,21,0)="^^3^3^2860424^^"
^DD(220.6,.03,21,1,0)="This field is only applicable to multiple page screens."
^DD(220.6,.03,21,2,0)="This field points to the previous screen name. It is a free text pointer"
^DD(220.6,.03,21,3,0)="entered by the system automatically."
^DD(220.6,.04,0)="SECURITY^RF^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(220.6,.04,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(220.6,.04,21,0)="^^2^2^2860424^^^^"
^DD(220.6,.04,21,1,0)="This field is set automatically to the write (WR) security of the file"
^DD(220.6,.04,21,2,0)="selected by the user, at the time the file is created."
^DD(220.6,.05,0)="RIGHTLINKED^FX^^0;5^K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^DENT(220.6,""B"",X)) S DIC(0)=""L"",DIC=""^DENT(220.6,"" D ^DIC"
^DD(220.6,.05,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(220.6,.05,21,0)="^^3^3^2860424^^"
^DD(220.6,.05,21,1,0)="This field is only applicable to multiple page screens."
^DD(220.6,.05,21,2,0)="This field contains the name of the screen to be executed next. It is"
^DD(220.6,.05,21,3,0)="a free text pointer entered by the system automatically."
^DD(220.6,.06,0)="DD NUMBER^RNJ13,4X^^0;6^S DIC=""^DIC("",DIC(0)=""ENQ"",DIC(""S"")=$S(DUZ(0)'=""@"":""I 1 Q:'$D(^DIC(+Y,0,""""WR""""))  F DJX=1:1:$L(^(""""WR"""")) I DUZ(0)[$E(^(""""WR""""),DJX) Q"",1:""I Y-1"") D ^DIC S X=+Y K:Y'>0 X"
^DD(220.6,.06,3)="TYPE A LEGAL DATA DEFINITION NUMBER BETWEEN 0 AND 99999999"
^DD(220.6,.06,4)="S ZD=D,X=""?"" S DIC=""^DIC("",DIC(0)=""ENQ"",DIC(""S"")=$S(DUZ(0)'=""@"":""I 1 Q:'$D(^DIC(+Y,0,""""WR""""))  F DJX=1:1:$L(^(""""WR"""")) I DUZ(0)[$E(^(""""WR""""),DJX) Q"",1:""I Y-1"") D ^DIC S DIC=DIE,D=ZD K ZD,DIC(""S"")"
^DD(220.6,.06,21,0)="^^2^2^2871229^^^^"
^DD(220.6,.06,21,1,0)="The contents of this field should be a legal Data Definition (DD) number."
^DD(220.6,.06,21,2,0)="It could be a first level ."
^DD(220.6,.07,0)="RD^220.67A^^1;0"
^DD(220.6,.07,"DT")="2910710"
^DD(220.6,.08,0)="DESCRIPTION^RF^^0;7^K:$L(X)>64!($L(X)<2) X"
^DD(220.6,.08,3)="ANSWER MUST BE 2-64 CHARACTERS IN LENGTH"
^DD(220.6,.08,21,0)="^^2^2^2860424^^^^"
^DD(220.6,.08,21,1,0)="The data entered in this field will be displayed at the top of the"
^DD(220.6,.08,21,2,0)="screen display as a title with the current date."
^DD(220.6,.09,0)="FILE LEVEL^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(220.6,.09,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9"
^DD(220.6,.09,21,0)="^^2^2^2871229^^^^"
^DD(220.6,.09,21,1,0)="This field keeps track of the level of the screen display with respect"
^DD(220.6,.09,21,2,0)="to the hierarchy of the file."
^DD(220.6,.1,0)="HIGHEST NUMBER USED^NJ5,2^^0;9^K:+X'=X!(X>99)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(220.6,.1,3)="TYPE A NUMBER BETWEEN .1 AND 99"
^DD(220.6,.1,21,0)="^^2^2^2851030^"
^DD(220.6,.1,21,1,0)="This field contains the highest number used in the screen display."
^DD(220.6,.1,21,2,0)="It is used when continuing adding entries."
^DD(220.6,"B","DD NUMBER",.06)=""
^DD(220.6,"B","DESCRIPTION",.08)=""
^DD(220.6,"B","FILE LEVEL",.09)=""
^DD(220.6,"B","HIGHEST NUMBER USED",.1)=""
^DD(220.6,"B","MAXLINE",.02)=""
^DD(220.6,"B","NAME",.01)=""
^DD(220.6,"B","PREVIOUS",.03)=""
^DD(220.6,"B","RD",.07)=""
^DD(220.6,"B","RIGHTLINKED",.05)=""
^DD(220.6,"B","SECURITY",.04)=""
^DD(220.6,"GL",0,1,.01)=""
^DD(220.6,"GL",0,2,.02)=""
^DD(220.6,"GL",0,3,.03)=""
^DD(220.6,"GL",0,4,.04)=""
^DD(220.6,"GL",0,5,.05)=""
^DD(220.6,"GL",0,6,.06)=""
^DD(220.6,"GL",0,7,.08)=""
^DD(220.6,"GL",0,8,.09)=""
^DD(220.6,"GL",0,9,.1)=""
^DD(220.6,"GL",1,0,.07)=""
^DD(220.6,"IX",.01)=""
^DD(220.6,"RQ",.01)=""
^DD(220.6,"RQ",.02)=""
^DD(220.6,"RQ",.04)=""
^DD(220.6,"RQ",.06)=""
^DD(220.6,"RQ",.08)=""
^DD(220.6,"SB",220.67,.07)=""
^DD(220.67,0)="RD SUB-FIELD^NL^6^12"
^DD(220.67,0,"IX","A",220.67,.11)=""
^DD(220.67,0,"IX","AC",220.67,.07)=""
^DD(220.67,0,"IX","B",220.67,.01)=""
^DD(220.67,0,"NM","RD")=""
^DD(220.67,0,"UP")="220.6"
^DD(220.67,.01,0)="LABEL^MF^^0;1^K:$L(X)>33!($L(X)<3) X"
^DD(220.67,.01,1,0)="^.1"
^DD(220.67,.01,1,1,0)="220.67^B"
^DD(220.67,.01,1,1,1)="S ^DENT(220.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(220.67,.01,1,1,2)="K ^DENT(220.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(220.67,.01,3)="Enter a 3 to 30 character label for this screen entry.  This label will be displayed when the screen is executed."
^DD(220.67,.01,21,0)="^^6^6^2910710^^^^"
^DD(220.67,.01,21,1,0)="When adding new elements to a screen (OPTION 1) select a valid field name"
^DD(220.67,.01,21,2,0)="or field number."
^DD(220.67,.01,21,3,0)=" The field name that you select will be the label displayed on your "
^DD(220.67,.01,21,4,0)="screen.  You may change this label as desired."
^DD(220.67,.01,21,5,0)=" To see a list of other commands you can enter at the label prompt type"
^DD(220.67,.01,21,6,0)="uparrow C (^C)."
^DD(220.67,.02,0)="START X-Y^RF^^0;2^K:$L(X)>11!($L(X)<3) X"
^DD(220.67,.02,3)="ANSWER MUST BE 3-11 CHARACTERS IN LENGTH"
^DD(220.67,.03,0)="FIELD LENGTH^RNJ3,0^^0;3^K:+X'=X!(X>200)!(X<3)!(X?.E1"".""1N.N) X"
^DD(220.67,.03,3)="TYPE A WHOLE NUMBER BETWEEN 3 AND 200"
^DD(220.67,.03,21,0)="^^1^1^2860305^^^^"
^DD(220.67,.03,21,1,0)="This is the length of your data."
^DD(220.67,.04,0)="END X-Y^RF^^0;4^K:$L(X)>11!($L(X)<6) X"
^DD(220.67,.04,3)="ANSWER MUST BE 6-11 CHARACTERS IN LENGTH"
^DD(220.67,.05,0)="ATTRIBUTE NR^RNJ11,4^^0;5^K:+X'=X!(X>999999)!(X<-1)!(X?.E1"".""5N.N) X"
^DD(220.67,.05,1,0)="^.1^^0"
^DD(220.67,.05,3)="TYPE A NUMBER BETWEEN -1 AND 999999"
^DD(220.67,.06,0)="TYPE^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(220.67,.06,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(220.67,.07,0)="RD(ONLY)^S^1:Y;0:N;^0;7^Q"
^DD(220.67,.07,.1)=""
^DD(220.67,.07,1,0)="^.1"
^DD(220.67,.07,1,1,0)="220.67^AC^MUMPS"
^DD(220.67,.07,1,1,1)="I X=1&(^DENT(220.6,DA(1),1,DA,0)'[""(R)"") S $P(^(0),U,4)=$P($P(^(0),U,4),""X="",1)_""X=""_($P($P(^(0),U,4),""X="",2)+3) X ^DD(220.67,.07,1,1,1.1) Q"
^DD(220.67,.07,1,1,1.1)="S DIV=$P(^DENT(220.6,DA(1),1,DA,0),U,1),$P(^(0),U,1)=DIV_""(R)"",^DENT(220.6,DA(1),1,""B"",DIV_""(R)"",DA)="""" K ^DENT(220.6,DA(1),1,""B"",DIV,DA),DIV Q"
^DD(220.67,.07,1,1,2)="I ^DENT(220.6,DA(1),1,DA,0)[""(R)"" S DIV=$P(^(0),U,1),$P(^(0),U,1)=$P(^(0),""(R)"",1),$P(^(0),U,4)=$P($P(^(0),U,4),""X="",1)_""X=""_($P($P(^(0),U,4),""X="",2)-3) X ^DD(220.67,.07,1,1,2.1) Q"
^DD(220.67,.07,1,1,2.1)="S ^DENT(220.6,DA(1),1,""B"",$P(^DENT(220.6,DA(1),1,DA,0),U,1),DA)="""" K ^DENT(220.6,DA(1),1,""B"",DIV,DA),DIV Q"
^DD(220.67,.07,3)=""
^DD(220.67,.07,21,0)="^^2^2^2900720^^^^"
^DD(220.67,.07,21,1,0)="This field is used to indicate 'DISPLAY' only of data"
^DD(220.67,.07,21,2,0)="this means no updating is allowed."
^DD(220.67,.11,0)="ENTRY NUM^RNJ4,1X^^0;13^K:+X'=X!(X>99.9)!(X<.1)!(X?.E1"".""2N.N)!($D(^DENT(220.6,DA(1),1,""A"",X))) X"
^DD(220.67,.11,1,0)="^.1"
^DD(220.67,.11,1,1,0)="220.67^A"
^DD(220.67,.11,1,1,1)="S ^DENT(220.6,DA(1),1,""A"",$E(X,1,30),DA)="""""
^DD(220.67,.11,1,1,2)="K ^DENT(220.6,DA(1),1,""A"",$E(X,1,30),DA)"
^DD(220.67,.11,3)="Type a Number between .1 and 99.9, no duplicates are allowed."
^DD(220.67,.11,21,0)="^^2^2^2860424^^"
^DD(220.67,.11,21,1,0)="Numbers with a decimal point are used for subtitles, that is no data is"
^DD(220.67,.11,21,2,0)="associated with them. "
^DD(220.67,.11,21,3,0)="associated with them. "
^DD(220.67,1,0)="POST ACTION CODE^FX^^1;E1,200^K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)"
^DD(220.67,1,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)"
^DD(220.67,1,21,0)="^^1^1^2860424^^"
^DD(220.67,1,21,1,0)="Type any legal MUMPS expression."
^DD(220.67,2,0)="PRE ACTION CODE^FX^^2;E1,200^K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)"
^DD(220.67,2,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)"
^DD(220.67,2,21,0)="^^1^1^2860424^^"
^DD(220.67,2,21,1,0)="Type any legal MUMPS expression."
^DD(220.67,5,0)="MULTIPLE SCREEN NAME^FX^^0;12^K:$L(X)>16!($L(X)<4) X I $D(X),'$D(^DENT(220.6,DA(1),""B"",X)) K X"
^DD(220.67,5,.1)=""
^DD(220.67,5,3)="This entry is automatically generated by the system."
^DD(220.67,5,21,0)="^^1^1^2860729^^^^"
^DD(220.67,5,21,1,0)="**WARNING** If you edit this entry, you must enter an existing screen name."
^DD(220.67,6,0)="DEFAULT VALUE^FX^^3;1^K:$L(X)>30!($L(X)<1)!($P(^DENT(220.6,DA(1),1,DA,0),""^"",5)=.01)!($P(^(0),""^"",6)[""C"")!($P(^(0),""^"",7)) X"
^DD(220.67,6,3)="Ans. must be 1-30 chars. in Length. Not applicable to .01, computed, or read       only fields"
^DD(220.67,6,21,0)="^^2^2^2860729^^^^"
^DD(220.67,6,21,1,0)="Enter a legitimate default value for this field."
^DD(220.67,6,21,2,0)=".01 Fields as well as computed or read only are not allowed."
^DD(220.67,"B","ATTRIBUTE NR",.05)=""
^DD(220.67,"B","DEFAULT VALUE",6)=""
^DD(220.67,"B","END X-Y",.04)=""
^DD(220.67,"B","ENTRY NUM",.11)=""
^DD(220.67,"B","FIELD LENGTH",.03)=""
^DD(220.67,"B","LABEL",.01)=""
^DD(220.67,"B","MULTIPLE SCREEN NAME",5)=""
^DD(220.67,"B","POST ACTION CODE",1)=""
^DD(220.67,"B","PRE ACTION CODE",2)=""
^DD(220.67,"B","RD(ONLY)",.07)=""
^DD(220.67,"B","START X-Y",.02)=""
^DD(220.67,"B","TYPE",.06)=""
^DD(220.67,"GL",0,1,.01)=""
^DD(220.67,"GL",0,2,.02)=""
^DD(220.67,"GL",0,3,.03)=""
^DD(220.67,"GL",0,4,.04)=""
^DD(220.67,"GL",0,5,.05)=""
^DD(220.67,"GL",0,6,.06)=""
^DD(220.67,"GL",0,7,.07)=""
^DD(220.67,"GL",0,12,5)=""
^DD(220.67,"GL",0,13,.11)=""
^DD(220.67,"GL",1,"E1,200",1)=""
^DD(220.67,"GL",2,"E1,200",2)=""
^DD(220.67,"GL",3,1,6)=""
^DD(220.67,"IX",.01)=""
^DD(220.67,"IX",.07)=""
^DD(220.67,"IX",.11)=""
^DD(220.67,"RQ",.02)=""
^DD(220.67,"RQ",.03)=""
^DD(220.67,"RQ",.04)=""
^DD(220.67,"RQ",.05)=""
^DD(220.67,"RQ",.11)=""
^DD(221,0)="FIELD^^61^47"
^DD(221,0,"DDA")="N"
^DD(221,0,"DT")="2950619"
^DD(221,0,"ID","Z0")="I $D(^(0)),$P(^(0),U,1) S Z=Y,Y=$P(^(0),U,1) X ^DD(""DD"") W ?25,Y S Y=Z K Z"
^DD(221,0,"ID","Z1")="W:$D(^DENT(221,+Y,0)) ?45,$P(^(0),U,10)"
^DD(221,0,"ID","Z2")="W:$D(^(0)) ?52,$P(^(0),U,2)"
^DD(221,0,"IX","A",221,60)=""
^DD(221,0,"IX","A1",221,.3)=""
^DD(221,0,"IX","AC1",221,.4)=""
^DD(221,0,"IX","AD",221,.01)=""
^DD(221,0,"IX","AE",221,2)=""
^DD(221,0,"IX","AG",221,61)=""
^DD(221,0,"IX","B",221,.01)=""
^DD(221,0,"IX","C",221,.4)=""
^DD(221,0,"IX","D",221,1)=""
^DD(221,0,"IX","E",221,3)=""
^DD(221,0,"NM","DENTAL TREATMENT (AMIS)")=""
^DD(221,.01,0)="DATE^RDX^^0;1^S %DT(0)=""-NOW"",%DT=""ESTX"" D ^%DT K %DT(0) S X=Y K:Y<1 X I $D(X) D IEN1^DENTE1"
^DD(221,.01,1,0)="^.1^^-1"
^DD(221,.01,1,2,0)="221^B^MUMPS"
^DD(221,.01,1,2,1)="S ^DENT(221,""B"",X,DA)="""""
^DD(221,.01,1,2,2)="K ^DENT(221,""B"",X,DA)"
^DD(221,.01,1,2,"DT")="2930409"
^DD(221,.01,1,3,0)="221^AD^MUMPS"
^DD(221,.01,1,3,1)="Q"
^DD(221,.01,1,3,2)="I $P(^DENT(221,DA,0),""^"",40)'="""" K ^DENT(221,""A"",$P(^DENT(221,DA,0),""^"",40),$P(X,""."",1),DA) S Z=$P(^DENT(221,DA,0),""^"",3) I Z S Z=$S($D(^DENT(220.5,Z,0)):$P(^(0),""^"",2),1:"""") K:Z'="""" ^DENT(221,""AC"",$P(^DENT(221,DA,0),""^"",40),$P(X,""."",1),Z,DA)"
^DD(221,.01,1,3,"%D",0)="^^6^6^2950112^"
^DD(221,.01,1,3,"%D",1,0)="2.  If station.division isn't null, then kill the A cross reference which"
^DD(221,.01,1,3,"%D",2,0)="is composed of (221,""A"",station,date,record#)."
^DD(221,.01,1,3,"%D",3,0)=" "
^DD(221,.01,1,3,"%D",4,0)="If there is data in dental provider field, and the number is a dental"
^DD(221,.01,1,3,"%D",5,0)="provider with INACTIVE status (file 220.5) then kill the ""AC"" cross"
^DD(221,.01,1,3,"%D",6,0)="reference composed of (221,""AC"",station,date,status,recn)"
^DD(221,.01,1,3,"DT")="2941209"
^DD(221,.01,3)="Enter the date and time for this treatment sitting"
^DD(221,.01,"DT")="2941209"
^DD(221,.3,0)="STATION.DIVISION^RFX^^0;40^K:X[""""""""!($A(X)=45) X I $D(X) S DIC=""^DENT(225,"",DIC(0)=""QEMZ"" D ^DIC S:Y>0 X=$P(Y(0),U,1) K:Y'>0 X K DIC"
^DD(221,.3,1,0)="^.1^^-1"
^DD(221,.3,1,1,0)="221^A1^MUMPS"
^DD(221,.3,1,1,1)="D STASETT^DENTXREF(X)"
^DD(221,.3,1,1,2)="D STAKILT^DENTXREF(X)"
^DD(221,.3,1,1,"%D",0)="^^9^9^2950113^"
^DD(221,.3,1,1,"%D",1,0)="**update all xrefs that use Station as part of their key (fields"
^DD(221,.3,1,1,"%D",2,0)=".3,.4,60,61) **"
^DD(221,.3,1,1,"%D",3,0)=" "
^DD(221,.3,1,1,"%D",4,0)="1.  Set the ""A1"" xref composed of (221,""A1"",Station,Date,Record#).  If"
^DD(221,.3,1,1,"%D",5,0)="data is not released set the A xref composed of"
^DD(221,.3,1,1,"%D",6,0)="(221,""A"",Station,Date,Record #)."
^DD(221,.3,1,1,"%D",7,0)=" "
^DD(221,.3,1,1,"%D",8,0)="2.  Kill ""A1"" xref composed of (221,""A1"",Station,Date,Record#).  If data"
^DD(221,.3,1,1,"%D",9,0)="is released kill the A xref composed of (221,""A"",Station,Date,Record #)."
^DD(221,.3,1,1,"DT")="2950113"
^DD(221,.3,1,2,0)="221^A1^MUMPS"
^DD(221,.3,1,2,1)="S ^DENT(221,""A1"",X,$P($P(^DENT(221,DA,0),U,1),""."",1),DA)="""""
^DD(221,.3,1,2,2)="K ^DENT(221,""A1"",X,$P($P(^DENT(221,DA,0),U,1),""."",1),DA)"
^DD(221,.3,3)="Select the appropriate station (division) number for this Dental treatment entry"
^DD(221,.3,4)="S:$D(D) ZD=D S X=""?"",DIC=""^DENT(225,"",DIC(0)=""QEM"" D ^DIC D:$D(DENTFUL) N^DENTDNJ2 S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(221,.3,21,0)="^^1^1^2971015^^"
^DD(221,.3,21,1,0)="This is the three digit station number."
^DD(221,.3,"DT")="2950113"
^DD(221,.4,0)="PROVIDER NUMBER^RF^^0;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(221,.4,1,0)="^.1^^-1"
^DD(221,.4,1,1,0)="221^C"
^DD(221,.4,1,1,1)="S ^DENT(221,""C"",$E(X,1,30),DA)="""""
^DD(221,.4,1,1,2)="K ^DENT(221,""C"",$E(X,1,30),DA)"
^DD(221,.4,1,2,0)="221^AC1^MUMPS"
^DD(221,.4,1,2,1)="I $P(^DENT(221,DA,0),""^"",40)'="""" D AC1SET^DENTXREF"
^DD(221,.4,1,2,2)="I $P(^DENT(221,DA,0),""^"",40)'="""" D AC1KILL^DENTXREF"
^DD(221,.4,1,2,"%D",0)="^^5^5^2950227^^^^"
^DD(221,.4,1,2,"%D",1,0)="If there is data in station.division field then kill or set the ""AC1"""
^DD(221,.4,1,2,"%D",2,0)="x-ref which is composed of (221,""AC1"",Station,Date,Provider#,Record#)"
^DD(221,.4,1,2,"%D",3,0)=" "
^DD(221,.4,1,2,"%D",4,0)="If the data has not been released (released by field) set or kill the ""AC"""
^DD(221,.4,1,2,"%D",5,0)="cross reference composed of (221,""AC"",Station,Date,Provider#,Record#)."
^DD(221,.4,1,2,"DT")="2950111"
^DD(221,.4,3)="ANSWER MUST BE 4 CHARACTERS IN LENGTH"
^DD(221,.4,5,1,0)="221^.5^1"
^DD(221,.4,21,0)="^^1^1^2950227^^^^"
^DD(221,.4,21,1,0)="ENTER IN THIS FIELD THE PROVIDER CODE NUMBER"
^DD(221,.4,"DT")="2950111"
^DD(221,.5,0)="DENTAL PROVIDER^R*P220.5'^DENT(220.5,^0;3^S DIC(""S"")=""I $P(^(0),""""^"""",2)'="""""""",'$P(^(0),""""^"""",3)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(221,.5,1,0)="^.1"
^DD(221,.5,1,1,0)="^^TRIGGER^221^.4"
^DD(221,.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(221,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$P($G(^DENT(220.5,X,0)),""^"",2) S DIH=$G(^DENT(221,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=221,DIG=.4 D ^DICR"
^DD(221,.5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DENT(221,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" S DIH=$G(^DENT(221,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=221,DIG=.4 D ^DICR"
^DD(221,.5,1,1,"CREATE VALUE")="S X=$P($G(^DENT(220.5,X,0)),""^"",2)"
^DD(221,.5,1,1,"DELETE VALUE")="@"
^DD(221,.5,1,1,"FIELD")="PROVIDER NUMBER"
^DD(221,.5,3)="Select the appropriate dental provider by name or provider number."
^DD(221,.5,12)="The dental provider must have a dental provider number and must be an active provider."
^DD(221,.5,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)'="""""""",'$P(^(0),""""^"""",3)"""
^DD(221,.5,21,0)="^^1^1^3031215^"
^DD(221,.5,21,1,0)="This is the dental provider.  Names are entered lastname,first name."
^DD(221,.5,"DT")="3040205"
^DD(221,1,0)="SSN^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)<9!($L(X)>10)!(X'?9N.""P"") X"
^DD(221,1,1,0)="^.1"
^DD(221,1,1,1,0)="221^D"
^DD(221,1,1,1,1)="S ^DENT(221,""D"",$E(X,1,30),DA)="""""
^DD(221,1,1,1,2)="K ^DENT(221,""D"",$E(X,1,30),DA)"
^DD(221,1,3)="Enter this patient's social security number.  Answer must be 9 digits or 9 digits followed by one ""P""."
^DD(221,1,9)="^"
^DD(221,1,"DT")="2860731"
^DD(221,2,0)="DENTAL PATIENT^RFX^^0;39^I $D(X),X'=""GROUP"" S DIC=""^DENT(220,"",DIC(0)=""ELMQ"",DLAYGO=220 D ^DIC K DLAYGO K:+Y'>0 X I $D(X) S (DFN,DENTDFN)=+Y D DEM^VADPT S X=VADM(1),DENTSSN=$P(VADM(2),""^"")"
^DD(221,2,1,0)="^.1"
^DD(221,2,1,1,0)="221^AE^MUMPS"
^DD(221,2,1,1,1)=" D DPSET^DENTE3"
^DD(221,2,1,1,2)="D DPKILL^DENTE3"
^DD(221,2,1,1,"DT")="2941214"
^DD(221,2,3)="Select the patient being treated or enter the word ""GROUP"" for a group patient education treatment sitting."
^DD(221,2,4)="S:$D(D) ZD=D S X=""?"",DIC=""^DENT(220,"",DIC(0)=""EM"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD D:$D(DENTFUL) N^DENTDNJ2"
^DD(221,2,"DT")="2880225"
^DD(221,3,0)="PATIENT (POINTER)^RP2'^DPT(^0;4^Q"
^DD(221,3,1,0)="^.1"
^DD(221,3,1,1,0)="221^E"
^DD(221,3,1,1,1)="S ^DENT(221,""E"",$E(X,1,30),DA)="""""
^DD(221,3,1,1,2)="K ^DENT(221,""E"",$E(X,1,30),DA)"
^DD(221,3,3)="Select the appropriate patient for this sitting."
^DD(221,3,"DT")="2860706"
^DD(221,4.5,0)="PATIENT CATEGORY^RP220.2'^DIC(220.2,^0;19^Q"
^DD(221,4.5,3)="Select the appropriate patient category for this sitting."
^DD(221,4.5,21,0)="^^4^4^2881207^^^^"
^DD(221,4.5,21,1,0)="Category 19 includes only priority 1, continued after priority 1 inpatient care."
^DD(221,4.5,21,2,0)="Category 21 includes only priority 2, continued after priority 2 inpatient care."
^DD(221,4.5,21,3,0)="Category 22 includes only priority 3, continued after priority 3 inpatient"
^DD(221,4.5,21,4,0)="care and active duty military personnel, military retirees, and CHAMPVA."
^DD(221,4.5,"DT")="2860706"
^DD(221,5,0)="BED SECTION^P220.4'^DIC(220.4,^0;6^Q"
^DD(221,5,3)="Select the appropriate bed section code (1-15) for this Patient Category.       A bed section can only be entered for inpatients (Patient Categories 1 thru  3 and 6 thru 8."
^DD(221,5,"DT")="2850725"
^DD(221,6,0)="SCREENING/COMPLETE EXAM^S^S:SCREENING;C:COMPLETE;^0;7^Q"
^DD(221,6,3)="Select 'S' for screening or 'C' for complete exam"
^DD(221,6,21,0)="^^29^29^2860606^^^^"
^DD(221,6,21,1,0)=" "
^DD(221,6,21,2,0)="SCREENING EXAMINATION"
^DD(221,6,21,3,0)="The screening examination includes an evaluation of the oral and perioral"
^DD(221,6,21,4,0)="soft tissues and a visual estimate of dental status without a tooth by"
^DD(221,6,21,5,0)="tooth charting.  Radiographs usually will not be taken, but may be if"
^DD(221,6,21,6,0)="PROFESSIONALLY DETERMINED to be necessary as for an emergency.  A chart"
^DD(221,6,21,7,0)="review (patient not present at time of review) is also classed as a"
^DD(221,6,21,8,0)="screening exam.  When a chart review is entered the provider must also mark"
^DD(221,6,21,9,0)="ADMIN PROCEDURE on the screen to avoid a ""patient visit"" count."
^DD(221,6,21,10,0)="Note:  Providers must be aware of significant medical problems; therefore,"
^DD(221,6,21,11,0)="a medical and dental history and/or medical record review must be included."
^DD(221,6,21,12,0)="Recall examinations (may be less than six months) would be included in this"
^DD(221,6,21,13,0)="area.  The screening examination is an essential part of the admission"
^DD(221,6,21,14,0)="physical examination.  All INPATIENT screening examinations will be placed"
^DD(221,6,21,15,0)="in a Priority 1 Category.  If the inpatient does not fall into Emergency,"
^DD(221,6,21,16,0)="Extended Care, NHCU, Dom, or Special Provisions, s/he would be placed in"
^DD(221,6,21,17,0)="the Compelling Medical Need Category.  All OUTPATIENT screening"
^DD(221,6,21,18,0)="examinations will be placed in Priority 1."
^DD(221,6,21,19,0)=" "
^DD(221,6,21,20,0)="COMPLETE EXAMINATION"
^DD(221,6,21,21,0)="A complete examination includes dental charting on a tooth by tooth basis"
^DD(221,6,21,22,0)="as well as the comprehensive evaluation of the oral and perioral soft"
^DD(221,6,21,23,0)="tissues. A head and neck exam is included as an essential portion of the"
^DD(221,6,21,24,0)="complete examination.  A thorough review of the medical chart and medical"
^DD(221,6,21,25,0)="history with the pertinent medical findings noted on the dental record"
^DD(221,6,21,26,0)="are included in the complete examination.  A complete examination will be"
^DD(221,6,21,27,0)="accomplished for a patient who is to receive treatment other than"
^DD(221,6,21,28,0)="emergency care. Complete examinations will be recorded in the appropriate"
^DD(221,6,21,29,0)="inpatient or outpatient category/priority."
^DD(221,6,"DT")="2850723"
^DD(221,6.2,0)="INTERDISCIPLINARY CONSULT^S^1:INTERDISC. CONSULT;^0;42^Q"
^DD(221,6.2,3)="Enter a '1' or 'I' for an interdisciplinary consultation."
^DD(221,6.2,21,0)="1^^7^7^2851118^^^^"
^DD(221,6.2,21,1,0)="Count those that were instituted via Form 513 (Consultation Request), a"
^DD(221,6.2,21,2,0)="telephone request with following Form 513 and Form 10-10 or 10-10m with"
^DD(221,6.2,21,3,0)="progress notes attached.  All INPATIENT interdisciplinary consultations"
^DD(221,6.2,21,4,0)="will be placed in a Priority 1 category.  If the inpatient does not fall "
^DD(221,6.2,21,5,0)="into Emergency, Extended Care, NHCU, Dom, or Special Provisions, s/he"
^DD(221,6.2,21,6,0)="would be placed in the Compelling Medical Need Category.  All OUTPATIENT"
^DD(221,6.2,21,7,0)="interdisciplinary consultations will be placed in a Priority 1 Category."
^DD(221,6.2,"DT")="2850503"
^DD(221,6.4,0)="EVALUATION^S^1:EVALUATION;^0;43^Q"
^DD(221,6.4,3)="Enter a '1' or an 'E' for an evaluation"
^DD(221,6.4,21,0)="^^14^14^2851125^^^^"
^DD(221,6.4,21,1,0)="No more than one evaluation per provider can be counted on the same visit."
^DD(221,6.4,21,2,0)="Evaluations are identified as medical/dental workups, (e.g., periodontal,"
^DD(221,6.4,21,3,0)="surgical, endodontic, etc.) on those patients for whom a complete screening"
^DD(221,6.4,21,4,0)="examination has already been performed. Evaluations may be in conjunction"
^DD(221,6.4,21,5,0)="with review of a medical record, the initiation of an interdisciplinary"
^DD(221,6.4,21,6,0)="consultion or with a medical or dental emergency workup on a patient"
^DD(221,6.4,21,7,0)="for whom no definitive treatment is delivered. An evaluation made by the"
^DD(221,6.4,21,8,0)="staff mentor for trainees at a scheduled treatment visit prior to carrying"
^DD(221,6.4,21,9,0)="out a specific treatment procedure is counted as education time."
^DD(221,6.4,21,10,0)="All other INPATIENT evaluations will be placed in a Priority 1 Category."
^DD(221,6.4,21,11,0)="If the inpatient does not fall into Emergency, Extended Care, NHCU, Dom, or"
^DD(221,6.4,21,12,0)="Special Provisions, s/he would be placed in the Compelling Medical Need "
^DD(221,6.4,21,13,0)="Category.  All OUTPATIENT evaluations will be placed in a Priority 1"
^DD(221,6.4,21,14,0)="Category."
^DD(221,6.4,"DT")="2850503"
^DD(221,6.6,0)="PRE AUTH/2ND OPINION EXAM^S^2:PRE-AUTH/2ND OPINION;^0;44^Q"
^DD(221,6.6,3)="Enter a '2' or 'P' for a  pre-authorization/second opinion exam."
^DD(221,6.6,21,0)="^^4^4^2851118^^^^"
^DD(221,6.6,21,1,0)="A pre-authorization exam is performed on a fee basis patient in order to"
^DD(221,6.6,21,2,0)="determine treatment needs prior to authorization of the patient to a fee-"
^DD(221,6.6,21,3,0)="for-service provider.  A second opinion exam is performed when the original"
^DD(221,6.6,21,4,0)="estimate on a fee basis dental case exceeds $500.00."
^DD(221,6.6,"DT")="2851115"
^DD(221,6.7,0)="SPOT CHECK EXAM^S^1:STAFF;3:FEE;^0;27^Q"
^DD(221,6.7,3)="If a spot check examination was performed on this patient, enter a '1' or 'S' if it was for a patient treated by staff and a '3' or 'F' if treated by a fee dentist."
^DD(221,6.7,"DT")="2851118"
^DD(221,6.8,0)="SPOT CHECK DISCREPANCY #^NJ1,0^^0;45^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,6.8,3)="Enter a number from 0 to 3 to indicate the category of discrepancy."
^DD(221,6.8,21,0)="^^5^5^2851115^^^^"
^DD(221,6.8,21,1,0)="The DISCREPANCY categories are defined as follows:"
^DD(221,6.8,21,2,0)="        "
^DD(221,6.8,21,3,0)="          1 = MINOR discrepancy only"
^DD(221,6.8,21,4,0)="          2 = MAJOR discrepancy-- QUALITY  ONLY"
^DD(221,6.8,21,5,0)="          3 = MAJOR discrepancy- MISREPRESENTATION ONLY"
^DD(221,6.8,"DT")="2850723"
^DD(221,7,0)="ADMIN PROCEDURE^S^1:ADMIN PROCEDURE;^0;8^Q"
^DD(221,7,3)="Enter a '1' or 'A' for an administrative procedure."
^DD(221,7,21,0)="^^3^3^2861005^^^^"
^DD(221,7,21,1,0)="An entry should be made in this field when a case, a service or a procedure"
^DD(221,7,21,2,0)="has been administratively completed or terminated without an actual patient"
^DD(221,7,21,3,0)="visit (i.e., chart review, telephone call, death, etc.)."
^DD(221,7,"DT")="2850905"
^DD(221,7.1,0)="COMPLETIONS/TERMINATIONS^S^2:COMPLETION;3:TERMINATION;^0;41^Q"
^DD(221,7.1,3)="Enter a '2' or 'C' for a completion or a '3' or 'T' for a termination."
^DD(221,7.1,21,0)="^^25^25^2851125^^^^"
^DD(221,7.1,21,1,0)="COMPLETIONS"
^DD(221,7.1,21,2,0)=" "
^DD(221,7.1,21,3,0)="A case is completed when all treatment authorized has been accomplished."
^DD(221,7.1,21,4,0)="Only one count should be taken for a patient during any single period of"
^DD(221,7.1,21,5,0)="hospitalization unless the patient is under long term care.  In the case"
^DD(221,7.1,21,6,0)="of long term care patients, including NHC and Dom patients, a count for a"
^DD(221,7.1,21,7,0)="completed case may be taken once in each six months if re-examination"
^DD(221,7.1,21,8,0)="indicated need for another episode of care.  For outpatients, only one"
^DD(221,7.1,21,9,0)="complete case count may be taken per episode of care for which a treatment"
^DD(221,7.1,21,10,0)="plan was established, even if there were intervening terminations.  If,"
^DD(221,7.1,21,11,0)="after an outpatient case has been completed and s/he is eligible for"
^DD(221,7.1,21,12,0)="recall, another episode of care may begin with the recall examination if"
^DD(221,7.1,21,13,0)="treatment is indicated.  Treatment plans will not be segmented for the"
^DD(221,7.1,21,14,0)="purpose of multiple completions during an episode of care.  For cases"
^DD(221,7.1,21,15,0)="administratively completed, also make an entry in the ADMIN PROCEDURE"
^DD(221,7.1,21,16,0)="field."
^DD(221,7.1,21,17,0)=" "
^DD(221,7.1,21,18,0)="TERMINATIONS"
^DD(221,7.1,21,19,0)=" "
^DD(221,7.1,21,20,0)="A case is terminated when an episode of care is interrupted or stopped"
^DD(221,7.1,21,21,0)="short of completion of the authorized treatment plan.  Examples of this"
^DD(221,7.1,21,22,0)="would be the death of a patient, discharge to OPT status, closure of"
^DD(221,7.1,21,23,0)="the case due to failed appointments, health reasons, or at the patient's"
^DD(221,7.1,21,24,0)="request. For cases administratively terminated, also make an entry in"
^DD(221,7.1,21,25,0)="the ADMIN  PROCEDURE field."
^DD(221,7.1,"DT")="2851118"
^DD(221,8,0)="X-RAYS EXTRAORAL #^NJ1,0^^0;9^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,8,3)="Enter a whole number from 0 to 4."
^DD(221,8,21,0)="^^2^2^2860807^^^^"
^DD(221,8,21,1,0)="Enter the number of EXTRAORAL radiographs taken on this patient for "
^DD(221,8,21,2,0)="panoramic, cephalometric or other extraoral procedures."
^DD(221,8,"DT")="2850726"
^DD(221,10,0)="X-RAYS INTRAORAL #^NJ2,0X^^0;11^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,10,3)="Enter a whole number from 0 to 24."
^DD(221,10,21,0)="^^2^2^2860807^^^^"
^DD(221,10,21,1,0)="Enter the number of INTRAORAL radiographs taken for this patient for PA,"
^DD(221,10,21,2,0)="bitewing, occlusal and other intraoral procedures."
^DD(221,10,"DT")="2860227"
^DD(221,11,0)="PROPHY NATURAL DENTITION^S^1:YES;^0;12^Q"
^DD(221,11,3)="Enter a '1' or 'Y' for yes for an oral prophylaxis on natural dentition."
^DD(221,11,21,0)="^^7^7^2851118^^^^"
^DD(221,11,21,1,0)="In special circumstances, when a patient is of such a difficult nature that"
^DD(221,11,21,2,0)="two or more appointments are needed to complete the prophylaxis,credit for"
^DD(221,11,21,3,0)="each treatment episode may be recorded. If a patient is on a formal recall"
^DD(221,11,21,4,0)="status, such as head and neck cancer patients who are being followed after"
^DD(221,11,21,5,0)="radiation treatment,credit may be taken at each prophylaxis appointment."
^DD(221,11,21,6,0)="A prophylaxis will include a complete review of preventive oral disease"
^DD(221,11,21,7,0)="instructions."
^DD(221,11,"DT")="2850503"
^DD(221,12,0)="PROPHY DENTURE^S^1:YES;^0;13^Q"
^DD(221,12,3)="Enter a '1' or 'Y' for yes if the patient had one or more complete and/or partial removable prostheses cleaned and polished by any provider."
^DD(221,12,21,0)="^^3^3^2851125^^^^"
^DD(221,12,21,1,0)="If a patient had a prophylaxis of natural dentition and a removeable"
^DD(221,12,21,2,0)="prothesis cleaned on the same visit, an entry can be made for both"
^DD(221,12,21,3,0)="procedures."
^DD(221,12,"DT")="2850503"
^DD(221,14,0)="NEOPLASM CONFIRMED MALIGNANT #^NJ1,0^^0;15^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,14,3)="Enter a number from 0 to 2 indicating the number of confirmed malignant neoplasms initially recognized by a member of the Dental Service."
^DD(221,14,21,0)="^^8^8^2861005^^^^"
^DD(221,14,21,1,0)="Activities surrounding the confirmation should include patient/family"
^DD(221,14,21,2,0)="counseling and discussion with other hospital services (laboratory,"
^DD(221,14,21,3,0)="surgery, etc.) for diagnostic interpretation and treatment planning.  All"
^DD(221,14,21,4,0)="confirmed malignant neoplasms on INPATIENTS will be placed in a Priority 1"
^DD(221,14,21,5,0)="Category. If the inpatient does not fall into Extended Care, NHCU, Dom,"
^DD(221,14,21,6,0)="or Special Provisions, s/he would be placed in the Compelling Medical Need"
^DD(221,14,21,7,0)="Category. All confirmed malignant neoplasms on OUTPATIENTS will be placed"
^DD(221,14,21,8,0)="in the appropriate Priority 1 Category."
^DD(221,14,"DT")="2851123"
^DD(221,15,0)="NEOPLASM REMOVED #^NJ1,0^^0;16^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,15,3)="Enter a whole number from 0 to 4 indicating the number of neoplasms removed (including excisional biopsies)."
^DD(221,15,21,0)="^^5^5^2860807^^"
^DD(221,15,21,1,0)="All neoplasms removed for INPATIENTS will be placed in a Priority 1"
^DD(221,15,21,2,0)="Category.  If the inpatient does not fall into Extended Care, NHCU, Dom, or"
^DD(221,15,21,3,0)="Special Provisions, s/he would be placed in the Compelling Medical Need"
^DD(221,15,21,4,0)="Category.  All neoplasms removed for OUTPATIENTS will be placed in the"
^DD(221,15,21,5,0)="appropriate Priority 1 Category."
^DD(221,15,"DT")="2850530"
^DD(221,16,0)="BIOPSY/SMEAR #^NJ1,0^^0;17^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,16,3)="Enter a whole number from 0 to 4 indicating the number of biopsies/smears."
^DD(221,16,21,0)="^^7^7^2860807^^^"
^DD(221,16,21,1,0)="Enter the number of incisional biopsies (separate lesions) plus the number"
^DD(221,16,21,2,0)="of cytological smears (one smear per patient) taken.  All biopsies and"
^DD(221,16,21,3,0)="cytological smears performed on INPATIENTS will be placed in a Priority 1"
^DD(221,16,21,4,0)="Category.  If the inpatient does not fall into Extended Care, NHCU, Dom,"
^DD(221,16,21,5,0)="or Special Provisions, s/he would be placed in the Compelling Medical Need"
^DD(221,16,21,6,0)="Category.  All biopsies and cytological smears performed on OUTPATIENTS"
^DD(221,16,21,7,0)="will be placed in the appropriate Priority 1 Category."
^DD(221,16,"DT")="2850805"
^DD(221,17,0)="FRACTURE #^NJ1,0^^0;18^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,17,3)="Enter a whole number from 0 to 4 indicating the number of maxillofacial fractures (surgical sites or procedures) reduced."
^DD(221,17,21,0)="^^9^9^2860807^^"
^DD(221,17,21,1,0)="For multiple fractures in the same bone (e.g., bilateral condylar or a"
^DD(221,17,21,2,0)="bilateral combination of body and condyle) count only as one fracture"
^DD(221,17,21,3,0)="reduction if only one surgical site/procedure was used.  The computer"
^DD(221,17,21,4,0)="generated weighted value includes all post-operative visits.  All"
^DD(221,17,21,5,0)="maxillofacial fractures reduced for INPATIENTS will be placed in a Priority"
^DD(221,17,21,6,0)="1 Category.  If the inpatient does not fall into Emergency, Extended Care,"
^DD(221,17,21,7,0)="NHCU, Dom, or Special Provisions, s/he would be placed in the Compelling"
^DD(221,17,21,8,0)="Medical Need Category.  All Maxillofacial fractures reduced for OUTPATIENTS"
^DD(221,17,21,9,0)="will be placed in the appropriate Priority 1 Category."
^DD(221,17,"DT")="2850530"
^DD(221,19,0)="OTHER SIGNIF. SURG. (CTV) ^NJ2,0X^^0;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>50 W !,""WARNING!! Normal range for Other Significant Surgery is 1 to 50"",*7 D YN^DENTCRD1"
^DD(221,19,3)="Enter a whole number from 0 to 99 indicating the weighted value (CTV's) for the surgical procedure performed."
^DD(221,19,21,0)="^^22^22^2881101^^^^"
^DD(221,19,21,1,0)="         OTHER SIGNIFICANT SURGERY CTV'S"
^DD(221,19,21,2,0)="  1. Salivary Gland Surgery            16.0"
^DD(221,19,21,3,0)="  2. Dislocation                        3.0"
^DD(221,19,21,4,0)="  3. Laceration/suturing                6.0"
^DD(221,19,21,5,0)="  4. Incision and Drainage              4.0"
^DD(221,19,21,6,0)="  5. Orthognathic Surgery              65.0"
^DD(221,19,21,7,0)="  6. Frenectomy*                        6.0"
^DD(221,19,21,8,0)="  7. Alveoplasty* (per quadrant)        4.0"
^DD(221,19,21,9,0)="  8. Exostoses removal*                 4.0"
^DD(221,19,21,10,0)="  9. Apicoectomy                       10.0"
^DD(221,19,21,11,0)=" 10. Tooth hemisection,"
^DD(221,19,21,12,0)="     Root amputation*                  10.0"
^DD(221,19,21,13,0)=" 11. Vestibuloplasty*"
^DD(221,19,21,14,0)="     Sulcus revision,"
^DD(221,19,21,15,0)="     Ridge extension (W/O skin graft)  12.0"
^DD(221,19,21,16,0)="     Graft procedure                   16.0"
^DD(221,19,21,17,0)=" 12. Endosteal Implants**               9.0"
^DD(221,19,21,18,0)=" 13. All other surgeries                6.0"
^DD(221,19,21,19,0)="  "
^DD(221,19,21,20,0)=" *  These procedures will be reported at one-half of the listed units"
^DD(221,19,21,21,0)="     when done in conjunction with a quadrant of periodontal surgery."
^DD(221,19,21,22,0)=" ** Requires VAMC Research and Development Committee approval."
^DD(221,19,"DT")="2860523"
^DD(221,21,0)="SURFACES RESTORED #^NJ2,0X^^0;22^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>11 W !,""WARNING!! Normal range for Surfaces Restored is 1 to 11"",*7 D YN^DENTCRD1"
^DD(221,21,3)="Enter a whole number from 0 to 24 indicating the number of surfaces restored with permanent restorative material."
^DD(221,21,21,0)="^^3^3^2851118^^^^"
^DD(221,21,21,1,0)="DO NOT record the number of teeth restored or the number of restorations or"
^DD(221,21,21,2,0)="temporary restorations in this field. They must be recorded under Other"
^DD(221,21,21,3,0)="Significant Treatment."
^DD(221,21,"DT")="2860523"
^DD(221,22,0)="ROOT CANAL THERAPY #^NJ1,0X^^0;23^K:+X'=X!(X>8)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>5 W !,""WARNING!! Normal range for Root Canal Therapy is 1 to 5"",*7 D YN^DENTCRD1"
^DD(221,22,3)="Enter a whole number from 0 to 8 indicating the number of root canals permanently filled.  DO NOT enter the number of teeth treated."
^DD(221,22,"DT")="2860523"
^DD(221,23,0)="PERIODONTAL QUADS (SURGICAL) #^NJ1,0^^0;24^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,23,1,0)="^.1^^0"
^DD(221,23,3)="Enter a whole number from 0 to 4 indicating the number of quadrant equivalents of periodontal surgery."
^DD(221,23,21,0)="^^15^15^2861005^^^"
^DD(221,23,21,1,0)="A quadrant may have fewer than eight (8) teeth present or treated, that is,"
^DD(221,23,21,2,0)="a full quadrant of teeth is not required.  If two to eight teeth are"
^DD(221,23,21,3,0)="present in the same arch and any number cross the midline, count as only"
^DD(221,23,21,4,0)="ONE quadrant.  DO NOT INCLUDE SCALING AND CURETTAGE IN THIS AREA EVEN IF"
^DD(221,23,21,5,0)="LOCAL ANESTHESIA IS USED.  If scaling and curettage are done as part of"
^DD(221,23,21,6,0)="the surgical procedure, do not take additional credit by entering both the"
^DD(221,23,21,7,0)="periodontal surgery and the scaling.  Included in the periodontal surgery"
^DD(221,23,21,8,0)="is the chart review, local anesthesia, post-operative instructions,"
^DD(221,23,21,9,0)="treating of complications, suture removal and pack changes."
^DD(221,23,21,10,0)=" "
^DD(221,23,21,11,0)="NOTE: ADDITIONAL SURGICAL PROCEDURES, FRENECTOMY, ALVEOPLASTY, EXOSTOSES"
^DD(221,23,21,12,0)="REMOVAL, TOOTH HEMISECTION, ROOT AMPUTATION, AND/OR VESTIBULOPLASTY, WHICH"
^DD(221,23,21,13,0)="ARE PERFORMED AT THE TIME OF PERIODONTAL SURGERY ARE ENTERED AS A SEPARATE"
^DD(221,23,21,14,0)="PROCEDURE UNDER OTHER SIGNIFICANT SURGERY AND ARE WEIGHTED AT ONE-HALF"
^DD(221,23,21,15,0)="THE LISTED VALUE IF PERFORMED IN THE SAME SURGICAL SITE."
^DD(221,23,"DT")="2880302"
^DD(221,24,0)="PERIO QUADS (ROOT PLANE) #^NJ1,0^^0;25^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,24,3)="Enter a whole number from 0 to 4 indicating the number of quadrant equivalents of subgingival curettage and/or root planing."
^DD(221,24,21,0)="^^9^9^2851125^^^^"
^DD(221,24,21,1,0)="This must not be part of a periodontal surgery procedure performed in the"
^DD(221,24,21,2,0)="same quadrant on the same visit.  A quadrant may have fewer than eight (8)"
^DD(221,24,21,3,0)="teeth present or treated, that is, a full quadrant of teeth is not"
^DD(221,24,21,4,0)="required. If two to eight teeth are present in the same arch and any"
^DD(221,24,21,5,0)="number cross the midline, count as only ONE quadrant.  If nine or more"
^DD(221,24,21,6,0)="teeth are present in the same arch, count as two quadrants.  DO NOT COUNT"
^DD(221,24,21,7,0)="AS QUADRANTS OF ROOT PLANING AND CURETTAGE A PROPHYLAXIS PERFORMED BY A"
^DD(221,24,21,8,0)="DENTIST, EFDA, OR HYGIENIST.  That is, do not count a supragingival"
^DD(221,24,21,9,0)="scaling (such as using a cavitron alone) and polishing as a curettage."
^DD(221,24,"DT")="2850530"
^DD(221,25,0)="PATIENT ED. (CTV)^S^0:NONE;3:INDIVIDUAL;4:GROUP;^0;26^Q"
^DD(221,25,3)="Enter a '0' or 'N' for none, a '3' or 'I' for individual , or a '4' or 'G' for group patient instruction."
^DD(221,25,21,0)="^^18^18^2860823^^^"
^DD(221,25,21,1,0)="Enter the weighted value of preventive dentistry instructions.  DO NOT LIST"
^DD(221,25,21,2,0)="THE NUMBER OF MINUTES.  These instructions may be given by any provider."
^DD(221,25,21,3,0)="However, NO CREDIT IS RECORDED AT THE SAME APPOINTMENT when a prophylaxis"
^DD(221,25,21,4,0)="or another treatment procedure is being accomplished by the same provider"
^DD(221,25,21,5,0)="(an increase in CTV credits recognizes time spent for patient instruction"
^DD(221,25,21,6,0)="during other scheduled treatment procedures).  The main pupose of this"
^DD(221,25,21,7,0)="field is to record a specific appointment scheduled for a single patient"
^DD(221,25,21,8,0)="or for a group training session to provide oral hygiene instructions,"
^DD(221,25,21,9,0)="diet counseling, plaque scoring, etc.  For an individual patient, enter"
^DD(221,25,21,10,0)="the service code, a weighted value of three (3), and the patient's name"
^DD(221,25,21,11,0)="for each instructional session.  For a group session, enter the service"
^DD(221,25,21,12,0)="code, a weighted value of four (4), and the word ""GROUP"" in place of a"
^DD(221,25,21,13,0)="patient's name for all  instructional sessions.  All group instructions"
^DD(221,25,21,14,0)="will be entered under the appropriate patient category for the majority"
^DD(221,25,21,15,0)="of the group in attendance. The patient category determination for"
^DD(221,25,21,16,0)="individual instructional sessions will be reported the same as for other"
^DD(221,25,21,17,0)="services provided for that individual. Preventive Dentistry instructions"
^DD(221,25,21,18,0)="presented for employees are recorded as education/training time."
^DD(221,25,"DT")="2850603"
^DD(221,27,0)="INDIVIDUAL CROWNS #^NJ2,0X^^0;28^K:+X'=X!(X>28)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>10 W !,""WARNING!! Normal range for Individual Crowns is 1 to 10"",*7 D YN^DENTCRD1"
^DD(221,27,3)="Enter a whole number from 0 to 28 indicating the number of permanent crowns cemented."
^DD(221,27,21,0)="^^4^4^2881207^^^^"
^DD(221,27,21,1,0)="The crowns cemented are not part of a fixed prosthesis. Included in this"
^DD(221,27,21,2,0)="field are all types of permanent crowns such as, 3/4, porcelain fused"
^DD(221,27,21,3,0)="to metal, porcelain jacket, full gold, etc. Temporary crowns are NOT to"
^DD(221,27,21,4,0)="be counted in this field."
^DD(221,27,"DT")="2860523"
^DD(221,28,0)="POST & CORES #^NJ2,0X^^0;29^K:+X'=X!(X>28)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>8 W !,""WARNING!! Normal range for Post and Cores is 1 to 8"",*7 D YN^DENTCRD1"
^DD(221,28,3)="Enter a whole number from 0 to 28 indicating the number of teeth on which a post/core or overdenture coping was cemented."
^DD(221,28,21,0)="^^4^4^2851118^^^^"
^DD(221,28,21,1,0)="Enter a post/core or overdenture coping regardless of whether that tooth"
^DD(221,28,21,2,0)="will have a crown  as part of a fixed prosthesis or have an individual"
^DD(221,28,21,3,0)="crown placed on it.  This field includes all types of posts/cores (i.e.,"
^DD(221,28,21,4,0)="cast, pre-prepared types, and/or threaded systems)."
^DD(221,28,"DT")="2860523"
^DD(221,29,0)="FIXED PARTIALS (ABUT) #^NJ2,0X^^0;30^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>10 W !,""WARNING!! Normal range for Fixed Partials (Abutments) is 1 to 10"",*7 D YN^DENTCRD1"
^DD(221,29,3)="Enter a whole number from 0 to 24 indicating the number of abutment units contained in the fixed prosthesis inserted."
^DD(221,29,21,0)="^^4^4^2851118^^^^"
^DD(221,29,21,1,0)="Temporary bridges for this treatment episode are NOT counted in this field."
^DD(221,29,21,2,0)="This category includes all types of fixed prostheses with the exception of"
^DD(221,29,21,3,0)="Acid Etched, Resin Bonded Retainers. These types of prostheses are recorded"
^DD(221,29,21,4,0)="under Splints and Special Procedures."
^DD(221,29,"DT")="2860523"
^DD(221,30,0)="FIXED PARTIALS (PONT ONLY) # ^NJ2,0^^0;31^K:+X'=X!(X>28)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,30,3)="Enter a whole number from 0 to 28 indicating the number of PONTIC UNITS contained in the fixed prosthesis inserted."
^DD(221,30,21,0)="^^4^4^2851125^^^^"
^DD(221,30,21,1,0)="PONTIC UNITS of temporary bridges for this treatment episode are NOT"
^DD(221,30,21,2,0)="counted in this field. This field includes all types of fixed prostheses"
^DD(221,30,21,3,0)="except Acid Etched, Resin  Bonded Retainers. These are reported under"
^DD(221,30,21,4,0)="SPLINTS AND SPECIAL PROCEDURES."
^DD(221,30,"DT")="2850603"
^DD(221,31,0)="REMOVABLE PARTIALS #^NJ1,0^^0;32^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,31,3)="Enter a whole number from 0 to 2 indicating the number of R.P.D.'s that were delivered to the patient."
^DD(221,31,21,0)="^^4^4^2851118^^^^"
^DD(221,31,21,1,0)="Acrylic R.P.D.'s may be counted here ONLY if the clasp assembly contains"
^DD(221,31,21,2,0)="definitive occlusal rests. Transitional (temporary) tissue supported"
^DD(221,31,21,3,0)="partials are counted in the SPLINTS AND SPECIAL PROCEDURES field."
^DD(221,31,21,4,0)="R.P.D. relines or rebases are counted under OTHER SIGNIFICANT TREATMENT."
^DD(221,31,"DT")="2850530"
^DD(221,32,0)="COMPLETE DENTURES #^NJ1,0^^0;33^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(221,32,3)="Enter a whole number from 0 to 2 indicating the number of COMPLETE DENTURE units (each separate prosthesis is one unit) delivered to the patient."
^DD(221,32,21,0)="^^3^3^2861005^^^^"
^DD(221,32,21,1,0)="All COMPLETE DENTURES are counted at the time of insertion or disposition"
^DD(221,32,21,2,0)="of the dentures.  Complete Denture relines or rebases are to be credited"
^DD(221,32,21,3,0)="under the field OTHER SIGNIFICANT TREATMENT."
^DD(221,32,"DT")="2850530"
^DD(221,33,0)="PROSTHETIC REPAIR #^NJ2,0X^^0;34^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>2 W !,""WARNING!! Normal range for Prosthetic Repairs is 1 to 2"",*7 D YN^DENTCRD1"
^DD(221,33,3)="Enter a whole number from 0 to 2 indicating the number of removable dentures and special appliances that were repaired for this patient."
^DD(221,33,21,0)="^^5^5^2851118^^^^"
^DD(221,33,21,1,0)="Each repair is counted at the time of delivery to the patient or other"
^DD(221,33,21,2,0)="disposition.  Fixed prostheses with broken facings which have been repaired"
^DD(221,33,21,3,0)="are reported in the Other Significant Treatment section."
^DD(221,33,21,4,0)="If the patient does not come to the clinic for the prosthetic repair, an"
^DD(221,33,21,5,0)="entry must be made in the Admin Procedure field."
^DD(221,33,"DT")="2860523"
^DD(221,34,0)="SPLINTS & SPEC. PROCS. (CTV) ^NJ3,0X^^0;35^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>50 W !,""WARNING!! Normal range for Splints and Special Procedures is 1 to 50"",*7 D YN^DENTCRD1"
^DD(221,34,3)="Enter a whole number from 0 to 99 indicating the weighted value (CTV's) assigned to the special appliance delivered to the patient or disposed of for the patient."
^DD(221,34,21,0)="^^22^22^2910703^^^^"
^DD(221,34,21,1,0)="                          WEIGHTED VALUES (CTV'S)"
^DD(221,34,21,2,0)=" "
^DD(221,34,21,3,0)="  1. Periodontal or trauma splinting,"
^DD(221,34,21,4,0)="     orthodontic bands and/or brackets                     1.0/tooth"
^DD(221,34,21,5,0)="  2. Flouride carriers (custom)                            3.0/patient"
^DD(221,34,21,6,0)="  3. Facial moulage                                        9.0"
^DD(221,34,21,7,0)="  4. Tissue borne partial prosth.                         12.0"
^DD(221,34,21,8,0)="  5. Oral hygiene aids for handicapped pts.                9.0"
^DD(221,34,21,9,0)="  6. Acrylic cranial plate                                18.0"
^DD(221,34,21,10,0)="  7. Mandibular guidance appliance                        36.0"
^DD(221,34,21,11,0)="  8. Radiation stent                                      12.0"
^DD(221,34,21,12,0)="  9. Surgical stent or night guard                         9.0"
^DD(221,34,21,13,0)=" 10. Dynamic bite opening device                          36.0"
^DD(221,34,21,14,0)=" 11. Intraoral obturator (includes basic prosthesis)      50.0"
^DD(221,34,21,15,0)=" 12. Speech aid prosthesis (includes basic prosthesis)    50.0"
^DD(221,34,21,16,0)=" 13. Palatal lift prosthesis (includes basic prosthesis)  50.0"
^DD(221,34,21,17,0)=" 14. Stock occular prosthesis                             50.0"
^DD(221,34,21,18,0)=" 15. Ear prosthesis                                       50.0"
^DD(221,34,21,19,0)=" 16. Custom occular prosthesis                            75.0"
^DD(221,34,21,20,0)=" 17. Facial prosthesis                                    75.0"
^DD(221,34,21,21,0)=" 18. Resin bonded retainers                                3.0/unit"
^DD(221,34,21,22,0)=" 19. Orthodontic appliance adjustment                      2.0/visit"
^DD(221,34,"DT")="2860523"
^DD(221,35,0)="EXTRACTIONS #^NJ2,0X^^0;36^K:+X'=X!(X>32)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>10 W !,""WARNING!! Normal range for Extractions is 1 to 10"",*7 D YN^DENTCRD1"
^DD(221,35,3)="Enter a whole number from 0 to 32 indicating the number of non-impacted (erupted) teeth extracted."
^DD(221,35,21,0)="^^4^4^2990519^^^^"
^DD(221,35,21,1,0)="These extractions are considered as simple extractions since no flap was"
^DD(221,35,21,2,0)="necessary for surgical exposure to extract the tooth or root. Flaps in"
^DD(221,35,21,3,0)="conjuction with an alveoplasty do not indicate a surgical extraction."
^DD(221,35,21,4,0)="This entry includes all post-operative care and instructions."
^DD(221,35,"DT")="2860523"
^DD(221,36,0)="SURGICAL EXTRACTIONS #^NJ1,0X^^0;37^K:+X'=X!(X>32)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>3 W !,""WARNING!! Normal range for Impactions is 1 to 3"",*7 D YN^DENTCRD1"
^DD(221,36,3)="Enter a whole number from 0 to 32 indicating the number of teeth surgically extracted."
^DD(221,36,21,0)="^^3^3^2860807^^^^"
^DD(221,36,21,1,0)="This includes any type of impaction or an erupted tooth for which an"
^DD(221,36,21,2,0)="intentional flap is required.  This entry includes all post-operative"
^DD(221,36,21,3,0)="care and instructions."
^DD(221,36,"DT")="2860523"
^DD(221,37,0)="OTHER SIGNIFICANT TREAT (CTV)^NJ2,0X^^0;38^K:+X'=X!(X>39)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X>16 W !,""WARNING!! Normal range for Other Significant Treatments is 1 to 16"",*7 D YN^DENTCRD1"
^DD(221,37,3)="Enter a whole number from 0 to 39 indicating the weighted values (CTV's) of the procedure performed."
^DD(221,37,21,0)="36^^26^26^2851118^^"
^DD(221,37,21,1,0)="                  WEIGHTED VALUES (CTV's)"
^DD(221,37,21,2,0)="   "
^DD(221,37,21,3,0)="  1. Blood pressure recording                                1.0/patient."
^DD(221,37,21,4,0)="  2. Topical flouride treatment                              2.0/patient."
^DD(221,37,21,5,0)="  3. Drug injection (not local anesthetic)                   1.0/patient."
^DD(221,37,21,6,0)="  4. Prescription writing (Pharmacy)                         1.0/patient."
^DD(221,37,21,7,0)="  5. Temporary restoration                                   2.0/patient."
^DD(221,37,21,8,0)="  6. Nitrous oxide sedation                                  2.0/patient."
^DD(221,37,21,9,0)="  7. Complete or partial denture adj. (not constructed"
^DD(221,37,21,10,0)="     by treating clinic during this episode of care.)        2.0/patient."
^DD(221,37,21,11,0)="  8. Occulusal equilibration (not isolated adjustments)      2.0/quadrant."
^DD(221,37,21,12,0)="  9. Recementation of crown                                  2.0"
^DD(221,37,21,13,0)=" 10. Recementation of fixed bridge                           3.0"
^DD(221,37,21,14,0)=" 11. Crown or bridge facing repair or recementation          3.0"
^DD(221,37,21,15,0)=" 12. Tissue conditioning or chairside reline                 3.0/visit"
^DD(221,37,21,16,0)=" 13. Temporary crown (not constructed by treating clinic"
^DD(221,37,21,17,0)="     during this episode of care.)                           3.0"
^DD(221,37,21,18,0)=" 14. Temporary bridge (not constructed by treating clinic"
^DD(221,37,21,19,0)="     during this episode of care.)                           6.0"
^DD(221,37,21,20,0)=" 15. Bleaching of teeth                                      4.0/visit"
^DD(221,37,21,21,0)=" 16. Attachments (intra or extra coronal,"
^DD(221,37,21,22,0)="     semi-precision or precision)                            5.0/attach."
^DD(221,37,21,23,0)=" 17. Full mouth periodontal charting                         6.0/patient."
^DD(221,37,21,24,0)=" 18. I.V. sedation/medication                                6.0/patient."
^DD(221,37,21,25,0)=" 19. Dental admissions (no O.R.)                             9.0/patient."
^DD(221,37,21,26,0)=" 20. Reline or rebase of a complete or partial denture      12.0/unit"
^DD(221,37,"DT")="2860523"
^DD(221,38,0)="OPERATING ROOM^S^1:YES;^0;14^Q"
^DD(221,38,3)="Enter a '1' or 'Y' for yes if this patient was treated in the operating room."
^DD(221,38,21,0)="^^2^2^2851118^^^^"
^DD(221,38,21,1,0)="These cases will not be credited to a resident provider.  They must be"
^DD(221,38,21,2,0)="credited to a dental staff provider or a dental consultant or attending."
^DD(221,38,"DT")="2850530"
^DD(221,39,0)="FACTOR (NOT USED)^NJ1,0^^0;21^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(221,39,3)="NO ENTRY IS PERMITTED IN THIS FIELD AT THIS TIME."
^DD(221,39,"DT")="2850508"
^DD(221,40,0)="CHANGE/DELETE^S^C:CHANGE;D:DELETE;^0;5^Q"
^DD(221,40,"DT")="2871007"
^DD(221,60,0)="RELEASED BY^P200'^VA(200,^.1;1^Q"
^DD(221,60,1,0)="^.1"
^DD(221,60,1,1,0)="221^A^MUMPS"
^DD(221,60,1,1,1)="I $P(^DENT(221,DA,0),""^"",40)'="""" D ASET^DENTXREF"
^DD(221,60,1,1,2)="I $P(^DENT(221,DA,0),""^"",40)'="""" D AKILL^DENTXREF"
^DD(221,60,1,1,"%D",0)="^^7^7^2950112^^^^"
^DD(221,60,1,1,"%D",1,0)="1. Set Logic:  KILL ""A"" xref composed of (221,""A"",Station,Date,Record#)."
^DD(221,60,1,1,"%D",2,0)="If provider # has data KILL the ""AC"" xref composed of"
^DD(221,60,1,1,"%D",3,0)="(221,""AC"",Station,Date,Provider#,Record#)."
^DD(221,60,1,1,"%D",4,0)=" "
^DD(221,60,1,1,"%D",5,0)="2. Kill Logic:  SET ""A"" xref composed of (221,""A"",Station,Date,Record#)."
^DD(221,60,1,1,"%D",6,0)="If provider # has data SET the ""AC"" xref composed of"
^DD(221,60,1,1,"%D",7,0)="(221,""AC"",Station,Date,Provider#,Record#)."
^DD(221,60,1,1,"DT")="2950111"
^DD(221,60,"DT")="2950619"
^DD(221,61,0)="DATE RELEASED^D^^.1;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(221,61,1,0)="^.1"
^DD(221,61,1,1,0)="221^AG^MUMPS"
^DD(221,61,1,1,1)="I $P(^DENT(221,DA,0),""^"",40)'="""" S ^DENT(221,""AG"",$P(^DENT(221,DA,0),""^"",40),X,DA)="""""
^DD(221,61,1,1,2)="I $P(^DENT(221,DA,0),""^"",40)'="""" K ^DENT(221,""AG"",$P(^DENT(221,DA,0),""^"",40),X,DA)"
^DD(221,61,1,1,"DT")="2941209"
^DD(221,61,"DT")="2941209"
^DD(221,"B","ADMIN PROCEDURE",7)=""
^DD(221,"B","BED SECTION",5)=""
^DD(221,"B","BIOPSY/SMEAR #",16)=""
^DD(221,"B","CHANGE/DELETE",40)=""
^DD(221,"B","COMPLETE DENTURES #",32)=""
^DD(221,"B","COMPLETIONS/TERMINATIONS",7.1)=""
^DD(221,"B","DATE",.01)=""
^DD(221,"B","DATE RELEASED",61)=""
^DD(221,"B","DENTAL PATIENT",2)=""
^DD(221,"B","DENTAL PROVIDER",.5)=""
^DD(221,"B","EVALUATION",6.4)=""
^DD(221,"B","EXTRACTIONS #",35)=""
^DD(221,"B","FACTOR (NOT USED)",39)=""
^DD(221,"B","FIXED PARTIALS (ABUT) #",29)=""
^DD(221,"B","FIXED PARTIALS (PONT ONLY) # ",30)=""
^DD(221,"B","FRACTURE #",17)=""
^DD(221,"B","INDIVIDUAL CROWNS #",27)=""
^DD(221,"B","INTERDISCIPLINARY CONSULT",6.2)=""
^DD(221,"B","NEOPLASM CONFIRMED MALIGNANT #",14)=""
^DD(221,"B","NEOPLASM REMOVED #",15)=""
^DD(221,"B","OPERATING ROOM",38)=""
^DD(221,"B","OTHER SIGNIF. SURG. (CTV) ",19)=""
^DD(221,"B","OTHER SIGNIFICANT TREAT (CTV)",37)=""
^DD(221,"B","PATIENT (POINTER)",3)=""
^DD(221,"B","PATIENT CATEGORY",4.5)=""
^DD(221,"B","PATIENT ED. (CTV)",25)=""
^DD(221,"B","PERIO QUADS (ROOT PLANE) #",24)=""
^DD(221,"B","PERIODONTAL QUADS (SURGICAL) #",23)=""
^DD(221,"B","POST & CORES #",28)=""
^DD(221,"B","PRE AUTH/2ND OPINION EXAM",6.6)=""
^DD(221,"B","PROPHY DENTURE",12)=""
^DD(221,"B","PROPHY NATURAL DENTITION",11)=""
^DD(221,"B","PROSTHETIC REPAIR #",33)=""
^DD(221,"B","PROVIDER NUMBER",.4)=""
^DD(221,"B","RELEASED BY",60)=""
^DD(221,"B","REMOVABLE PARTIALS #",31)=""
^DD(221,"B","ROOT CANAL THERAPY #",22)=""
^DD(221,"B","SCREENING/COMPLETE EXAM",6)=""
^DD(221,"B","SPLINTS & SPEC. PROCS. (CTV) ",34)=""
^DD(221,"B","SPOT CHECK DISCREPANCY #",6.8)=""
^DD(221,"B","SPOT CHECK EXAM",6.7)=""
^DD(221,"B","SSN",1)=""
^DD(221,"B","STATION.DIVISION",.3)=""
^DD(221,"B","SURFACES RESTORED #",21)=""
^DD(221,"B","SURGICAL EXTRACTIONS #",36)=""
^DD(221,"B","X-RAYS EXTRAORAL #",8)=""
^DD(221,"B","X-RAYS INTRAORAL #",10)=""
^DD(221,"GL",0,1,.01)=""
^DD(221,"GL",0,2,1)=""
^DD(221,"GL",0,3,.5)=""
^DD(221,"GL",0,4,3)=""
^DD(221,"GL",0,5,40)=""
^DD(221,"GL",0,6,5)=""
^DD(221,"GL",0,7,6)=""
^DD(221,"GL",0,8,7)=""
^DD(221,"GL",0,9,8)=""
^DD(221,"GL",0,10,.4)=""
^DD(221,"GL",0,11,10)=""
^DD(221,"GL",0,12,11)=""
^DD(221,"GL",0,13,12)=""
^DD(221,"GL",0,14,38)=""
^DD(221,"GL",0,15,14)=""
^DD(221,"GL",0,16,15)=""
^DD(221,"GL",0,17,16)=""
^DD(221,"GL",0,18,17)=""
^DD(221,"GL",0,19,4.5)=""
^DD(221,"GL",0,20,19)=""
^DD(221,"GL",0,21,39)=""
^DD(221,"GL",0,22,21)=""
^DD(221,"GL",0,23,22)=""
^DD(221,"GL",0,24,23)=""
^DD(221,"GL",0,25,24)=""
^DD(221,"GL",0,26,25)=""
^DD(221,"GL",0,27,6.7)=""
^DD(221,"GL",0,28,27)=""
^DD(221,"GL",0,29,28)=""
^DD(221,"GL",0,30,29)=""
^DD(221,"GL",0,31,30)=""
^DD(221,"GL",0,32,31)=""
^DD(221,"GL",0,33,32)=""
^DD(221,"GL",0,34,33)=""
^DD(221,"GL",0,35,34)=""
^DD(221,"GL",0,36,35)=""
^DD(221,"GL",0,37,36)=""
^DD(221,"GL",0,38,37)=""
^DD(221,"GL",0,39,2)=""
^DD(221,"GL",0,40,.3)=""
^DD(221,"GL",0,41,7.1)=""
^DD(221,"GL",0,42,6.2)=""
^DD(221,"GL",0,43,6.4)=""
^DD(221,"GL",0,44,6.6)=""
^DD(221,"GL",0,45,6.8)=""
^DD(221,"GL",.1,1,60)=""
^DD(221,"GL",.1,2,61)=""
^DD(221,"IX",.01)=""
^DD(221,"IX",.3)=""
^DD(221,"IX",.4)=""
^DD(221,"IX",.5)=""
^DD(221,"IX",1)=""
^DD(221,"IX",2)=""
^DD(221,"IX",3)=""
^DD(221,"IX",60)=""
^DD(221,"IX",61)=""
^DD(221,"RQ",.01)=""
^DD(221,"RQ",.3)=""
^DD(221,"RQ",.4)=""
^DD(221,"RQ",.5)=""
^DD(221,"RQ",1)=""
^DD(221,"RQ",2)=""
^DD(221,"RQ",3)=""
^DD(221,"RQ",4.5)=""
^DD(221,"TRB",221,.5,1,.4)=""
^DD(222,0)="FIELD^^61^31"
^DD(222,0,"DT")="2950512"
^DD(222,0,"ID",.3)="W ?16,$P(^(0),U,28)"
^DD(222,0,"IX","B",222,.01)=""
^DD(222,0,"NM","DENTAL FEE BASIS (AMIS)")=""
^DD(222,0,"VR")="1.2"
^DD(222,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(222,.01,1,0)="^.1"
^DD(222,.01,1,1,0)="222^B"
^DD(222,.01,1,1,1)="S ^DENT(222,""B"",$E(X,1,30),DA)="""""
^DD(222,.01,1,1,2)="K ^DENT(222,""B"",$E(X,1,30),DA)"
^DD(222,.01,3)=""
^DD(222,.01,"DT")="2850817"
^DD(222,.3,0)="STATION.DIVISION^RFX^^0;28^S DIC=""^DENT(225,"",DIC(0)=""QEMZ"" D ^DIC S:Y>0 X=$P(Y(0),U,1) K:Y'>0 X K DIC"
^DD(222,.3,3)="Select the appropriate station (division) number for this Dental fee basis entry"
^DD(222,.3,4)="S:$D(D) ZD=D S X=""?"",DIC=""^DENT(225,"",DIC(0)=""QEM"" D ^DIC,N^DENTDNJ2 S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(222,.3,21,0)="^^1^1^2971015^^^^"
^DD(222,.3,21,1,0)="This is the three digit station number."
^DD(222,.3,"DT")="2880902"
^DD(222,1,0)="APPLI. I-VI RC'D^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,1,3)="Enter a whole number from 1 to 999 indicating the total number of Class I through Class VI applications for fee basis care received for this reporting period (including Class II)."
^DD(222,1,"DT")="2850817"
^DD(222,2,0)="APPLI. II RC'D^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,2,3)="Enter a whole number from 1 to 999 indicating the total number of Class II applications for fee basis care received for this reporting period."
^DD(222,2,"DT")="2850817"
^DD(222,3,0)="APPLI. I-VI ELIG^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,3,3)="Enter a whole number from 1 to 999 indicating the total number of Class I through VI applications found eligible for fee basis care  for this reporting period."
^DD(222,3,"DT")="2850817"
^DD(222,4,0)="APPLI. PEND. ELIG^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,4,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(222,4,"DT")="2871215"
^DD(222,5,0)="VA EXAMS AUTH^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,5,3)="Enter a whole number from 1 to 999 indicating the total number of exams authorized for treatment by VA staff for this reporting period."
^DD(222,5,"DT")="2850817"
^DD(222,6,0)="FEE EXAMS AUTH^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,6,3)="Enter a whole number from 1 to 999 indicating the total number of fee basis exams authorized for this reporting period."
^DD(222,6,"DT")="2850817"
^DD(222,7,0)="FEE EXAM PEND COMP^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,7,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(222,7,"DT")="2871215"
^DD(222,8,0)="FEE EXAM COMP^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,8,3)="Enter a whole number from 1 to 999 indicating the total number of fee basis exams completed for this reporting period."
^DD(222,8,"DT")="2850817"
^DD(222,9,0)="FEE TREAT PEND AUTH^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,9,3)="Enter a whole number from 1 to 999 indicating the total number of Fee Basis patients pending treatment authorization for this reporting period."
^DD(222,9,"DT")="2910401"
^DD(222,10,0)="FEE TREAT AUTH^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,10,3)="Enter a whole number from 1 to 999 indicating the total number of patients authorized for fee treatment for this reporting period."
^DD(222,10,"DT")="2850817"
^DD(222,11,0)="FEE TREAT PEND COMP^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,11,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(222,11,"DT")="2871215"
^DD(222,12,0)="FEE TREAT COMP^NJ3,0^^0;13^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,12,3)="Enter a whole number from 1 to 999 indicating the total number of fee basis patients completed for this reporting period."
^DD(222,12,"DT")="2850817"
^DD(222,13,0)="FEE CASES COMP - I^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,13,3)="Enter a whole number from 1 to 99 indicating the total number of Class I fee basis patients completed for this reporting period."
^DD(222,13,"DT")="2850817"
^DD(222,14,0)="FEE CASES COMP - II^NJ3,0^^0;15^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,14,3)="Enter a whole number from 1 to 999 indicating the total number of Class II fee basis patients completed for this reporting period."
^DD(222,14,"DT")="2850817"
^DD(222,15,0)="FEE CASES COMP - IIA^NJ2,0^^0;16^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,15,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIA patients completed for this reporting period."
^DD(222,15,"DT")="2850817"
^DD(222,16,0)="FEE CASES COMP - IIB^NJ2,0^^0;17^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,16,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIB patients completed for this reporting period."
^DD(222,16,"DT")="2850817"
^DD(222,17,0)="FEE CASES COMP - IIC^NJ2,0^^0;18^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,17,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIC patients completed for this reporting period."
^DD(222,17,"DT")="2850817"
^DD(222,18,0)="FEE CASES COMP - III^NJ3,0^^0;19^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,18,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(222,18,"DT")="2871215"
^DD(222,19,0)="FEE CASES COMP - IV^NJ3,0^^0;20^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,19,3)="Enter a whole number from 1 to 999 indicating the total number of Class IV patients completed for this reporting period."
^DD(222,19,"DT")="2850817"
^DD(222,20,0)="FEE CASES COMP - V^NJ2,0^^0;21^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,20,3)="Enter a whole number from 1 to 99 indicating the total number of Class V patients completed for this reporting period."
^DD(222,20,"DT")="2850817"
^DD(222,21,0)="FEE CASES COMP - VI^NJ2,0^^0;22^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,21,3)="Enter a whole number from 1 to 99 indicating the total number of Class VI patients completed for this reporting period."
^DD(222,21,"DT")="2850817"
^DD(222,22,0)="FEE CUM AVG COST IIC^NJ4,0^^0;23^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,22,3)="Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class IIC fee basis patients for this reporting period."
^DD(222,22,"DT")="2860823"
^DD(222,23,0)="FEE CUM AVG DURATION IIC^NJ3,0^^0;24^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,23,3)="Enter a whole number from 1 to 999 indicating the cumulative average duration (in days) of Class IIC patients for this reporting period."
^DD(222,23,"DT")="2850817"
^DD(222,24,0)="FEE CUM AVG COST IV^NJ4,0^^0;25^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,24,3)="Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class IV fee basis patients for this reporting period."
^DD(222,24,"DT")="2860823"
^DD(222,25,0)="FEE CUM AVG DURATION IV^NJ3,0^^0;26^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,25,3)="Enter a whole number from 1 to 999 indicating the cumulative average duration (in days) of Class IV patients for this reporting period."
^DD(222,25,"DT")="2850817"
^DD(222,26,0)="FEE CUM AVG I-VI^NJ4,0^^0;27^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(222,26,3)="Enter a whole number from 1 to 9999 indicating the cumulative average cost for all Class I-VI fee basis patients for this reporting period."
^DD(222,26,"DT")="2861005"
^DD(222,27,0)="CHANGE/DELETE^S^C:CHANGE;D:DELETE;^0;29^Q"
^DD(222,27,"DT")="2871013"
^DD(222,60,0)="RELEASED BY^P200'^VA(200,^.1;1^Q"
^DD(222,60,"DT")="2950512"
^DD(222,61,0)="DATE RELEASED^D^^.1;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(222,61,"DT")="2850904"
^DD(222,"B","APPLI. I-VI ELIG",3)=""
^DD(222,"B","APPLI. I-VI RC'D",1)=""
^DD(222,"B","APPLI. II RC'D",2)=""
^DD(222,"B","APPLI. PEND. ELIG",4)=""
^DD(222,"B","CHANGE/DELETE",27)=""
^DD(222,"B","DATE",.01)=""
^DD(222,"B","DATE RELEASED",61)=""
^DD(222,"B","FEE CASES COMP - I",13)=""
^DD(222,"B","FEE CASES COMP - II",14)=""
^DD(222,"B","FEE CASES COMP - IIA",15)=""
^DD(222,"B","FEE CASES COMP - IIB",16)=""
^DD(222,"B","FEE CASES COMP - IIC",17)=""
^DD(222,"B","FEE CASES COMP - III",18)=""
^DD(222,"B","FEE CASES COMP - IV",19)=""
^DD(222,"B","FEE CASES COMP - V",20)=""
^DD(222,"B","FEE CASES COMP - VI",21)=""
^DD(222,"B","FEE CUM AVG COST IIC",22)=""
^DD(222,"B","FEE CUM AVG COST IV",24)=""
^DD(222,"B","FEE CUM AVG DURATION IIC",23)=""
^DD(222,"B","FEE CUM AVG DURATION IV",25)=""
^DD(222,"B","FEE CUM AVG I-VI",26)=""
^DD(222,"B","FEE EXAM COMP",8)=""
^DD(222,"B","FEE EXAM PEND COMP",7)=""
^DD(222,"B","FEE EXAMS AUTH",6)=""
^DD(222,"B","FEE TREAT AUTH",10)=""
^DD(222,"B","FEE TREAT COMP",12)=""
^DD(222,"B","FEE TREAT PEND AUTH",9)=""
^DD(222,"B","FEE TREAT PEND COMP",11)=""
^DD(222,"B","RELEASED BY",60)=""
^DD(222,"B","STATION.DIVISION",.3)=""
^DD(222,"B","VA EXAMS AUTH",5)=""
^DD(222,"GL",0,1,.01)=""
^DD(222,"GL",0,2,1)=""
^DD(222,"GL",0,3,2)=""
^DD(222,"GL",0,4,3)=""
^DD(222,"GL",0,5,4)=""
^DD(222,"GL",0,6,5)=""
^DD(222,"GL",0,7,6)=""
^DD(222,"GL",0,8,7)=""
^DD(222,"GL",0,9,8)=""
^DD(222,"GL",0,10,9)=""
^DD(222,"GL",0,11,10)=""
^DD(222,"GL",0,12,11)=""
^DD(222,"GL",0,13,12)=""
^DD(222,"GL",0,14,13)=""
^DD(222,"GL",0,15,14)=""
^DD(222,"GL",0,16,15)=""
^DD(222,"GL",0,17,16)=""
^DD(222,"GL",0,18,17)=""
^DD(222,"GL",0,19,18)=""
^DD(222,"GL",0,20,19)=""
^DD(222,"GL",0,21,20)=""
^DD(222,"GL",0,22,21)=""
^DD(222,"GL",0,23,22)=""
^DD(222,"GL",0,24,23)=""
^DD(222,"GL",0,25,24)=""
^DD(222,"GL",0,26,25)=""
^DD(222,"GL",0,27,26)=""
^DD(222,"GL",0,28,.3)=""
^DD(222,"GL",0,29,27)=""
^DD(222,"GL",.1,1,60)=""
^DD(222,"GL",.1,2,61)=""
^DD(222,"IX",.01)=""
^DD(222,"RQ",.01)=""
^DD(222,"RQ",.3)=""
^DD(223,0)="FIELD^^61^32"
^DD(223,0,"DT")="2950512"
^DD(223,0,"ID",.3)="W ?16,$P(^(0),U,29)"
^DD(223,0,"IX","B",223,.01)=""
^DD(223,0,"NM","DENTAL CLASS I-VI (AMIS)")=""
^DD(223,0,"VR")="1.2"
^DD(223,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(223,.01,1,0)="^.1"
^DD(223,.01,1,1,0)="223^B"
^DD(223,.01,1,1,1)="S ^DENT(223,""B"",$E(X,1,30),DA)="""""
^DD(223,.01,1,1,2)="K ^DENT(223,""B"",$E(X,1,30),DA)"
^DD(223,.01,3)=""
^DD(223,.01,"DT")="2850817"
^DD(223,.3,0)="STATION.DIVISION^RFX^^0;29^S DIC=""^DENT(225,"",DIC(0)=""QEMZ"" D ^DIC S:Y>0 X=$P(Y(0),U,1) K:Y'>0 X K DIC"
^DD(223,.3,3)="Select the appropriate station (division) no. for this Dental class I-VI entry"
^DD(223,.3,4)="S:$D(D) ZD=D S X=""?"",DIC=""^DENT(225,"",DIC(0)=""QEM"" D ^DIC,N^DENTDNJ2 S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(223,.3,21,0)="^^1^1^2971015^^"
^DD(223,.3,21,1,0)="This is the three digit station number."
^DD(223,.3,"DT")="2850915"
^DD(223,1,0)="TREAT CASES AUTH I^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(223,1,"DT")="2871229"
^DD(223,2,0)="CASES PEND INIT OF TREAT I^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,2,3)="Enter a whole number from 1 to 99 indicating the total number of Class I cases pending initiation of treatment as of the end of this reporting period."
^DD(223,2,"DT")="2850817"
^DD(223,3,0)="CASES PEND COMP I^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,3,3)="Enter a whole number from 1 to 99 indicating the total number of Class I cases pending completion as of the end of this reporting period."
^DD(223,3,"DT")="2850817"
^DD(223,4,0)="TREAT CASES AUTH II^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,4,3)="Enter a whole number from 1 to 999 indicating the total number of Class II treatment cases authorized during this reporting period."
^DD(223,4,"DT")="2850817"
^DD(223,5,0)="CASES PEND INIT OF TREAT II^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,5,3)="Enter a whole number from 1 to 999 indicating the total number of Class II cases pending initiation of treatment as of the end of this reporting period."
^DD(223,5,"DT")="2850817"
^DD(223,6,0)="CASES PEND COMP II^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,6,3)="Enter a whole number from 1 to 999 indicating the total number of Class II cases pending completion as of the end of this reporting period."
^DD(223,6,"DT")="2850817"
^DD(223,7,0)="TREAT CASES AUTH IIA^NJ2,0^^0;8^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,7,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIA treatment cases authorized during this reporting period."
^DD(223,7,"DT")="2850817"
^DD(223,8,0)="CASES PEND INIT OF TREAT IIA^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,8,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIA cases pending initiation of treatment as of the end of this reporting period."
^DD(223,8,"DT")="2850817"
^DD(223,9,0)="CASES PEND COMP IIA^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,9,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIA cases pending completion as of the end of this reporting period."
^DD(223,9,"DT")="2850817"
^DD(223,10,0)="TREAT CASES AUTH IIB^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,10,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIB treatment cases authorized during this reporting period."
^DD(223,10,"DT")="2850817"
^DD(223,11,0)="CASES PEND INIT OF TREAT IIB^NJ2,0^^0;12^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,11,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIB cases pending initiation of treatment as of the end of this reporting period."
^DD(223,11,"DT")="2850817"
^DD(223,12,0)="CASES PEND COMP IIB^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,12,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIB cases pending completion as of the end of this reporting period."
^DD(223,12,"DT")="2850817"
^DD(223,13,0)="TREAT CASES AUTH IIC^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,13,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIC treatment cases authorized during this reporting period."
^DD(223,13,"DT")="2850817"
^DD(223,14,0)="CASES PEND INIT OF TREAT IIC^NJ2,0^^0;15^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,14,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIC cases pending initiation of treatment as of the end of this reporting period."
^DD(223,14,"DT")="2850817"
^DD(223,15,0)="CASES PEND COMP IIC^NJ2,0^^0;16^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,15,3)="Enter a whole number from 1 to 99 indicating the total number of Class IIC cases pending completion as of the end of this reporting period."
^DD(223,15,"DT")="2850817"
^DD(223,16,0)="TREAT CASES AUTH III^NJ3,0^^0;17^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,16,3)="Enter a whole number from 1 to 999 indicating the total number of Class III treatment cases authorized during this reporting period."
^DD(223,16,"DT")="2850817"
^DD(223,17,0)="CASES PEND INIT OF TREAT III^NJ3,0^^0;18^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,17,3)="Enter a whole number from 1 to 999 indicating the total number of Class III cases pending initiation of treatment as of the end of this reporting period."
^DD(223,17,"DT")="2850817"
^DD(223,18,0)="CASES PEND COMP III^NJ3,0^^0;19^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,18,3)="Enetr a whole number from 1 to 999 indicating the total number of Class III cases pending completion as of the end of this reporting period."
^DD(223,18,"DT")="2850817"
^DD(223,19,0)="TREAT CASES AUTH IV^NJ3,0^^0;20^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,19,3)="Enter a whole number from 1 to 999 indicating the total number of Class IV treatment cases authorized during this reporting period."
^DD(223,19,"DT")="2850817"
^DD(223,20,0)="CASES PEND INIT OF TREAT IV^NJ3,0^^0;21^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,20,3)="Enter a whole number from 1 to 999 indicating the total number of Class IV cases pending initiation of treatment as of the end of this reporting period."
^DD(223,20,"DT")="2850817"
^DD(223,21,0)="CASES PEND COMP IV^NJ3,0^^0;22^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,21,3)="Enter a whole number from 1 to 999 indicating the total number of Class IV cases pending completion as of the end of this reporting period."
^DD(223,21,"DT")="2850817"
^DD(223,22,0)="TREAT CASES AUTH V^NJ2,0^^0;23^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,22,3)="Enter a whole number from 1 to 99 indicating the total number of Class V treatment cases authorized during this reporting period."
^DD(223,22,"DT")="2850817"
^DD(223,23,0)="CASES PEND INIT OF TREAT V^NJ2,0^^0;24^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,23,3)="Enter a whole number from 1 to 99 indicating the total number of Class V cases pending initiation of treatment as of the end of this reporting period."
^DD(223,23,"DT")="2850817"
^DD(223,24,0)="CASES PEND COMP V^NJ2,0^^0;25^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,24,3)="Enter a whole number from 1 to 99 indicating the total number of Class V cases pending completion as of the end of this reporting period."
^DD(223,24,"DT")="2850817"
^DD(223,25,0)="TREAT CASES AUTH VI^NJ2,0^^0;26^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,25,3)="Enter a whole number from 1 to 99 indicating the total number of Class VI treatment cases authorized during this reporting period."
^DD(223,25,"DT")="2850817"
^DD(223,26,0)="CASES PEND INIT OF TREAT VI^NJ2,0^^0;27^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,26,3)="Enter a whole number from 1 to 99 indicating the total number of Class VI cases pending initiation of treatment as of the end of this reporting period."
^DD(223,26,"DT")="2850817"
^DD(223,27,0)="CASES PEND COMP VI^NJ2,0^^0;28^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(223,27,3)="Enter a whole number from 1 to 99 indicating the total number of Class VI cases pending completion as of the end of this reporting period."
^DD(223,27,"DT")="2850817"
^DD(223,28,0)="CHANGE/DELETE^S^C:CHANGE;D:DELETE;^0;30^Q"
^DD(223,28,"DT")="2871013"
^DD(223,60,0)="RELEASED BY^P200'^VA(200,^.1;1^Q"
^DD(223,60,"DT")="2950512"
^DD(223,61,0)="DATE RELEASED^D^^.1;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(223,61,"DT")="2850904"
^DD(223,"B","CASES PEND COMP I",3)=""
^DD(223,"B","CASES PEND COMP II",6)=""
^DD(223,"B","CASES PEND COMP IIA",9)=""
^DD(223,"B","CASES PEND COMP IIB",12)=""
^DD(223,"B","CASES PEND COMP IIC",15)=""
^DD(223,"B","CASES PEND COMP III",18)=""
^DD(223,"B","CASES PEND COMP IV",21)=""
^DD(223,"B","CASES PEND COMP V",24)=""
^DD(223,"B","CASES PEND COMP VI",27)=""
^DD(223,"B","CASES PEND INIT OF TREAT I",2)=""
^DD(223,"B","CASES PEND INIT OF TREAT II",5)=""
^DD(223,"B","CASES PEND INIT OF TREAT IIA",8)=""
^DD(223,"B","CASES PEND INIT OF TREAT IIB",11)=""
^DD(223,"B","CASES PEND INIT OF TREAT IIC",14)=""
^DD(223,"B","CASES PEND INIT OF TREAT III",17)=""
^DD(223,"B","CASES PEND INIT OF TREAT IV",20)=""
^DD(223,"B","CASES PEND INIT OF TREAT V",23)=""
^DD(223,"B","CASES PEND INIT OF TREAT VI",26)=""
^DD(223,"B","CHANGE/DELETE",28)=""
^DD(223,"B","DATE",.01)=""
^DD(223,"B","DATE RELEASED",61)=""
^DD(223,"B","RELEASED BY",60)=""
^DD(223,"B","STATION.DIVISION",.3)=""
^DD(223,"B","TREAT CASES AUTH I",1)=""
^DD(223,"B","TREAT CASES AUTH II",4)=""
^DD(223,"B","TREAT CASES AUTH IIA",7)=""
^DD(223,"B","TREAT CASES AUTH IIB",10)=""
^DD(223,"B","TREAT CASES AUTH IIC",13)=""
^DD(223,"B","TREAT CASES AUTH III",16)=""
^DD(223,"B","TREAT CASES AUTH IV",19)=""
^DD(223,"B","TREAT CASES AUTH V",22)=""
^DD(223,"B","TREAT CASES AUTH VI",25)=""
^DD(223,"GL",0,1,.01)=""
^DD(223,"GL",0,2,1)=""
^DD(223,"GL",0,3,2)=""
^DD(223,"GL",0,4,3)=""
^DD(223,"GL",0,5,4)=""
^DD(223,"GL",0,6,5)=""
^DD(223,"GL",0,7,6)=""
^DD(223,"GL",0,8,7)=""
^DD(223,"GL",0,9,8)=""
^DD(223,"GL",0,10,9)=""
^DD(223,"GL",0,11,10)=""
^DD(223,"GL",0,12,11)=""
^DD(223,"GL",0,13,12)=""
^DD(223,"GL",0,14,13)=""
^DD(223,"GL",0,15,14)=""
^DD(223,"GL",0,16,15)=""
^DD(223,"GL",0,17,16)=""
^DD(223,"GL",0,18,17)=""
^DD(223,"GL",0,19,18)=""
^DD(223,"GL",0,20,19)=""
^DD(223,"GL",0,21,20)=""
^DD(223,"GL",0,22,21)=""
^DD(223,"GL",0,23,22)=""
^DD(223,"GL",0,24,23)=""
^DD(223,"GL",0,25,24)=""
^DD(223,"GL",0,26,25)=""
^DD(223,"GL",0,27,26)=""
^DD(223,"GL",0,28,27)=""
^DD(223,"GL",0,29,.3)=""
^DD(223,"GL",0,30,28)=""
^DD(223,"GL",.1,1,60)=""
^DD(223,"GL",.1,2,61)=""
^DD(223,"IX",.01)=""
^DD(223,"RQ",.01)=""
^DD(223,"RQ",.3)=""
^DD(224,0)="FIELD^^61^13"
^DD(224,0,"DT")="2950512"
^DD(224,0,"ID",.3)="W ?16,$P(^(0),U,10)"
^DD(224,0,"IX","B",224,.01)=""
^DD(224,0,"NM","DENTAL PERSONNEL (AMIS)")=""
^DD(224,0,"VR")="1.2"
^DD(224,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(224,.01,.1)="MONTH"
^DD(224,.01,1,0)="^.1"
^DD(224,.01,1,1,0)="224^B"
^DD(224,.01,1,1,1)="S ^DENT(224,""B"",$E(X,1,30),DA)="""""
^DD(224,.01,1,1,2)="K ^DENT(224,""B"",$E(X,1,30),DA)"
^DD(224,.01,3)=""
^DD(224,.01,"DT")="2850817"
^DD(224,.3,0)="STATION.DIVISION^RFX^^0;10^S DIC=""^DENT(225,"",DIC(0)=""QEMZ"" D ^DIC S:Y>0 X=$P(Y(0),U,1) K:Y'>0 X K DIC"
^DD(224,.3,3)="Select the appropriate station (division) for this Dental personnel entry"
^DD(224,.3,4)="S:$D(D) ZD=D S X=""?"",DIC=""^DENT(225,"",DIC(0)=""QEM"" D ^DIC,N^DENTDNJ2 S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(224,.3,21,0)="^^1^1^2971015^^"
^DD(224,.3,21,1,0)="This is the three digit station number."
^DD(224,.3,"DT")="2850915"
^DD(224,1,0)="STAFF DENTIST (DAYS)^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,1,3)="Enter a number from 1 to 999 indicating the total number of days worked by staff dentists during this reporting period."
^DD(224,1,21,0)="^^3^3^2861029^^^"
^DD(224,1,21,1,0)="NOTE:  Enter only actual days worked.  Exclude annual leave, sick leave,"
^DD(224,1,21,2,0)="military leave, leave without pay, and authorized absences.  Refer to the"
^DD(224,1,21,3,0)="DHCP Dental Package User Manual for special conditions."
^DD(224,1,"DT")="2850817"
^DD(224,2,0)="RESIDENT (DAYS)^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,2,.1)="RESI- DENT"
^DD(224,2,3)="Enter a whole number from 1 to 999 indicating the total number of days worked by residents during this reporting period."
^DD(224,2,21,0)="^^3^3^2861029^^"
^DD(224,2,21,1,0)="NOTE:  Enter only actual days worked.  Exclude annual leave, sick leave,"
^DD(224,2,21,2,0)="military leave, leave without pay, and authorized absences.  Refer to the"
^DD(224,2,21,3,0)="DHCP Dental Package User Manual for special conditions."
^DD(224,2,"DT")="2850817"
^DD(224,3,0)="HYGIENIST (DAYS)^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,3,.1)="HYGIEN- IST"
^DD(224,3,3)="Enter a whole number from 1 to 99 indicating the total number of days worked by hygienists during this reporting period."
^DD(224,3,21,0)="^^3^3^2861029^^"
^DD(224,3,21,1,0)="NOTE:  Enter only actual days worked.  Exclude annual leave, sick leave,"
^DD(224,3,21,2,0)="military leave, leave without pay, and authorized absences.  Refer to the"
^DD(224,3,21,3,0)="DHCP Dental Package User Manual for special conditions."
^DD(224,3,"DT")="2850817"
^DD(224,4,0)="EFDAS (DAYS)^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,4,3)="Enter a whole number from 1 to 99 indicating the total number of days worked by EFDAs during this reporting period."
^DD(224,4,21,0)="^^3^3^2861029^^"
^DD(224,4,21,1,0)="NOTE:  Enter only actual days worked.  Exclude annual leave, sick leave,"
^DD(224,4,21,2,0)="military leave, leave without pay, and authorized absences.  Refer to the"
^DD(224,4,21,3,0)="DHCP Dental Package User Manual for special conditions."
^DD(224,4,"DT")="2850817"
^DD(224,5,0)="DENTAL ASSIST. (DAYS)^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,5,3)="Enter a whole number from 1 to 999 indicating the total number of days worked by dental assistants during this reporting period."
^DD(224,5,21,0)="^^3^3^2861029^^"
^DD(224,5,21,1,0)="NOTE:  Enter only actual days worked.  Exclude annual leave, sick leave,"
^DD(224,5,21,2,0)="military leave, leave without pay, and authorized absences.  Refer to the"
^DD(224,5,21,3,0)="DHCP Dental Package User Manual for special conditions."
^DD(224,5,"DT")="2850817"
^DD(224,6,0)="DENTAL TECH. (DAYS)^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,6,3)="Enter a whole number from 1 to 999 indicating the total number of days worked by dental technicians during this reporting period."
^DD(224,6,21,0)="^^3^3^2861029^^"
^DD(224,6,21,1,0)="NOTE:  Enter only actual days worked.  Exclude annual leave, sick leave,"
^DD(224,6,21,2,0)="military leave, leave without pay, and authorized absences.  Refer to the"
^DD(224,6,21,3,0)="DHCP Dental Package User Manual for special conditions."
^DD(224,6,"DT")="2850817"
^DD(224,7,0)="CLERICAL (DAYS)^NJ2,0^^0;8^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,7,3)="Enter a whole number from 1 to 99 indicating the total number of days worked by clerical personnel during this reporting period."
^DD(224,7,21,0)="^^3^3^2861029^^"
^DD(224,7,21,1,0)="NOTE:  Enter only actual days worked.  Exclude annual leave, sick leave,"
^DD(224,7,21,2,0)="military leave, leave without pay, and authorized absences.  Refer to the"
^DD(224,7,21,3,0)="DHCP Dental Package User Manual for special conditions."
^DD(224,7,"DT")="2850817"
^DD(224,8,0)="CONSULT ATTEND (VISITS)^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(224,8,3)="Enter a number from 1 to 99 indicating the total number of VISITS attributed to consultants and attendings during this reporting period."
^DD(224,8,"DT")="2850817"
^DD(224,14,0)="CHANGE/DELETE^S^C:CHANGE;D:DELETE;^0;11^Q"
^DD(224,14,"DT")="2871013"
^DD(224,60,0)="RELEASED BY^P200'^VA(200,^.1;1^Q"
^DD(224,60,"DT")="2950512"
^DD(224,61,0)="DATE RELEASED^D^^.1;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(224,61,"DT")="2850904"
^DD(224,"B","CHANGE/DELETE",14)=""
^DD(224,"B","CLERICAL (DAYS)",7)=""
^DD(224,"B","CONSULT ATTEND (VISITS)",8)=""
^DD(224,"B","DATE",.01)=""
^DD(224,"B","DATE RELEASED",61)=""
^DD(224,"B","DENTAL ASSIST. (DAYS)",5)=""
^DD(224,"B","DENTAL TECH. (DAYS)",6)=""
^DD(224,"B","EFDAS (DAYS)",4)=""
^DD(224,"B","HYGIEN- IST",3)="1"
^DD(224,"B","HYGIENIST (DAYS)",3)=""
^DD(224,"B","MONTH",.01)="1"
^DD(224,"B","RELEASED BY",60)=""
^DD(224,"B","RESI- DENT",2)="1"
^DD(224,"B","RESIDENT (DAYS)",2)=""
^DD(224,"B","STAFF DENTIST (DAYS)",1)=""
^DD(224,"B","STATION.DIVISION",.3)=""
^DD(224,"GL",0,1,.01)=""
^DD(224,"GL",0,2,1)=""
^DD(224,"GL",0,3,2)=""
^DD(224,"GL",0,4,3)=""
^DD(224,"GL",0,5,4)=""
^DD(224,"GL",0,6,5)=""
^DD(224,"GL",0,7,6)=""
^DD(224,"GL",0,8,7)=""
^DD(224,"GL",0,9,8)=""
^DD(224,"GL",0,10,.3)=""
^DD(224,"GL",0,11,14)=""
^DD(224,"GL",.1,1,60)=""
^DD(224,"GL",.1,2,61)=""
^DD(224,"IX",.01)=""
^DD(224,"RQ",.01)=""
^DD(224,"RQ",.3)=""
^DD(225,0)="FIELD^^2^3"
^DD(225,0,"IX","B",225,.01)=""
^DD(225,0,"NM","DENTAL SITE PARAMETERS")=""
^DD(225,.01,0)="STATION.DIVISION^RFX^^0;1^K:$L(X)>5!($L(X)<3)!'((X?3N)!(X?3N2AN)) X"
^DD(225,.01,1,0)="^.1"
^DD(225,.01,1,1,0)="225^B"
^DD(225,.01,1,1,1)="S ^DENT(225,""B"",$E(X,1,30),DA)="""""
^DD(225,.01,1,1,2)="K ^DENT(225,""B"",$E(X,1,30),DA)"
^DD(225,.01,3)="Enter the three digit station number followed by a two character suffix    (if applicable)."
^DD(225,.01,"DT")="2860711"
^DD(225,1,0)="CARD READER DEVICE^RFX^^0;2^S DIC=""^%ZIS(1,"",DIC(0)=""EQMZ"" D ^DIC K:Y'>0 X I $D(X) S X=$P(Y(0),U,1) K DIC"
^DD(225,1,3)="Select the device (computer port) number to which your mark sense card     reader is connected."
^DD(225,1,4)="S:$D(D) ZD=D S X=""?"",DIC=""^%ZIS(1,"",DIC(0)=""EMZ"" D ^DIC S:$D(ZD) D=ZD K DIC,ZD"
^DD(225,1,"DT")="2850818"
^DD(225,2,0)="TRANSMIT DATA VIA VADATS?^RS^Y:YES;N:NO;^0;3^Q"
^DD(225,2,3)="Enter 'Yes' if you are transmitting your Dental AMIS data to the Austin DPC via the VADATS electronic network."
^DD(225,2,4)=""
^DD(225,2,"DT")="2860816"
^DD(225,"B","CARD READER DEVICE",1)=""
^DD(225,"B","STATION.DIVISION",.01)=""
^DD(225,"B","TRANSMIT DATA VIA VADATS?",2)=""
^DD(225,"GL",0,1,.01)=""
^DD(225,"GL",0,2,1)=""
^DD(225,"GL",0,3,2)=""
^DD(225,"IX",.01)=""
^DD(225,"RQ",.01)=""
^DD(225,"RQ",1)=""
^DD(225,"RQ",2)=""
^DD(226,0)="FIELD^^61^8"
^DD(226,0,"DT")="2950619"
^DD(226,0,"ID",.3)="W ""   "",$P(^(0),U,2)"
^DD(226,0,"ID","Z0")="I $D(^(0)),$P(^(0),U,1) S Z=Y,Y=$P(^(0),U,1) X ^DD(""DD"") W ?21,Y S Y=Z K Z"
^DD(226,0,"ID","Z1")="W:$D(^DENT(226,+Y,0)) ?42,$P(^(0),U,3)"
^DD(226,0,"IX","A",226,.3)=""
^DD(226,0,"IX","AC",226,.4)=""
^DD(226,0,"IX","AD",226,.01)=""
^DD(226,0,"IX","AE",226,60)=""
^DD(226,0,"IX","B",226,.01)=""
^DD(226,0,"IX","C",226,.4)=""
^DD(226,0,"NM","DENTAL NON CLINICAL TIME")=""
^DD(226,.01,0)="DATE/TIME^RDX^^0;1^S %DT(0)=""-NOW"",%DT=""ESTX"" D ^%DT K %DT(0) S X=Y K:Y<1 X I $D(X) D IEN6^DENTE1"
^DD(226,.01,1,0)="^.1^^-1"
^DD(226,.01,1,1,0)="226^B^MUMPS"
^DD(226,.01,1,1,1)="S ^DENT(226,""B"",X,DA)="""""
^DD(226,.01,1,1,2)="K ^DENT(226,""B"",X,DA)"
^DD(226,.01,1,1,"DT")="2930409"
^DD(226,.01,1,3,0)="226^AD^MUMPS"
^DD(226,.01,1,3,1)="Q"
^DD(226,.01,1,3,2)="Q:$P(^DENT(226,DA,0),""^"",2)=""""  K ^DENT(226,""A"",$P(^DENT(226,DA,0),""^"",2),$P(X,""."",1),DA)"
^DD(226,.01,3)="Enter the date and time for this non clinical time entry"
^DD(226,.01,"DT")="2950216"
^DD(226,.06,0)="DENTAL PROVIDER^P220.5'^DENT(220.5,^0;6^Q"
^DD(226,.06,3)="Enter the Dental Provider associated with the Non-Clinical time."
^DD(226,.06,21,0)="^^3^3^3041217^"
^DD(226,.06,21,1,0)="This field contains the Dental Provider.  The 4 digit Provider Id saved "
^DD(226,.06,21,2,0)="in the Provider Number field (#.4) is being phased out, although we will "
^DD(226,.06,21,3,0)="continue to keep that field for historical records."
^DD(226,.06,"DT")="3041217"
^DD(226,.3,0)="STATION.DIVISION^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) S DIC=""^DENT(225,"",DIC(0)=""QEMZ"" D ^DIC S:Y>0 X=$P(Y(0),U,1) K:Y'>0 X K DIC"
^DD(226,.3,1,0)="^.1^^-1"
^DD(226,.3,1,1,0)="226^A^MUMPS"
^DD(226,.3,1,1,1)="D STATSET^DENTXREF(X)"
^DD(226,.3,1,1,2)="D STATKIL^DENTXREF(X)"
^DD(226,.3,1,1,"%D",0)="^^3^3^2950113^"
^DD(226,.3,1,1,"%D",1,0)="In the case when station.division field is being modified xrefs on fields"
^DD(226,.3,1,1,"%D",2,0)="60 (released by) and .4 (provider #) (A and AC xrefs), need 2 b updated,"
^DD(226,.3,1,1,"%D",3,0)="since part of the key 2 both of those xrefs is the station.division field."
^DD(226,.3,1,1,"DT")="2950113"
^DD(226,.3,3)="Select the appropriate station (division) number for this Dental non clinical time entry"
^DD(226,.3,4)="S:$D(D) ZD=D S X=""?"",DIC=""^DENT(225,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(226,.3,"DT")="2950113"
^DD(226,.4,0)="PROVIDER NUMBER^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) S DIC=""^DENT(220.5,"",DIC(0)=""QEMZ"" D ^DIC S:Y>0 X=$P(Y(0),U,2) K:Y'>0 X K DIC"
^DD(226,.4,1,0)="^.1"
^DD(226,.4,1,1,0)="226^C"
^DD(226,.4,1,1,1)="S ^DENT(226,""C"",$E(X,1,30),DA)="""""
^DD(226,.4,1,1,2)="K ^DENT(226,""C"",$E(X,1,30),DA)"
^DD(226,.4,1,2,0)="226^AC^MUMPS"
^DD(226,.4,1,2,1)="Q:$P(^DENT(226,DA,0),""^"",2)=""""  S ^DENT(226,""AC"",$P(^DENT(226,DA,0),""^"",2),$P($P(^DENT(226,DA,0),""^""),"".""),X,DA)="""""
^DD(226,.4,1,2,2)="Q:$P(^DENT(226,DA,0),""^"",2)=""""  K ^DENT(226,""AC"",$P(^DENT(226,DA,0),""^"",2),$P($P(^DENT(226,DA,0),""^""),"".""),X,DA)"
^DD(226,.4,1,2,"%D",0)="^^1^1^2950106^^^^"
^DD(226,.4,1,2,"%D",1,0)="this cross reference is used for AMIS and other reports"
^DD(226,.4,1,2,"DT")="2941209"
^DD(226,.4,3)="Select the appropriate Dental provider by name or provider number for this non clinical time entry"
^DD(226,.4,4)="S:$D(D) ZD=D S X=""?"",DIC=""^DENT(220.5,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(226,.4,21,0)="^^3^3^3041217^"
^DD(226,.4,21,1,0)="Provider names are entered last name, first name.  This field contains "
^DD(226,.4,21,2,0)="the old 4 digit Provider Id which is being phased out and replaced with a "
^DD(226,.4,21,3,0)="new 8 digit Id.  This field will remain for historical records."
^DD(226,.4,"DT")="3041217"
^DD(226,.6,0)="NON CLINICAL TIME CATEGORY^RSX^A:ADMIN;R:RESEARCH;F:FEE BASIS;E:EDUC & TRAIN;^0;4^I X=""A""!(X=""F"") I X1'=1 W !,""Administrative and Fee non clinical time categories may only be entered for"",!,""Dentists.  They are not applicable to other providers"",*7 K X"
^DD(226,.6,3)="Select the appropriate non clinical time category.  Remember, Admin and Fee categories are only applicable to Dentists"
^DD(226,.6,"DT")="2850909"
^DD(226,.9,0)="TIME SPENT^RFX^^0;5^K:+X'=X!(X>50)!(X'>0) X I $D(X),X[""."" K:'($P(X,""."",2)=25!($P(X,""."",2)=75)!($P(X,""."",2)=5)) X"
^DD(226,.9,3)="Enter the amount of time spent in this non clinical time category.  Answer must be a number from .25 to 50 in quarter hour increments (e.g., 4.5 or 6.25 or 7.75 or 8)."
^DD(226,.9,"DT")="2860103"
^DD(226,60,0)="RELEASED BY^P200'^VA(200,^.1;1^Q"
^DD(226,60,1,0)="^.1"
^DD(226,60,1,1,0)="226^AE^MUMPS"
^DD(226,60,1,1,1)="Q:$P(^DENT(226,DA,0),""^"",2)=""""  K ^DENT(226,""A"",$P(^DENT(226,DA,0),""^"",2),$P($P(^DENT(226,DA,0),""^""),"".""),DA)"
^DD(226,60,1,1,2)="Q:$P(^DENT(226,DA,0),""^"",2)=""""  S ^DENT(226,""A"",$P(^DENT(226,DA,0),""^"",2),$P($P(^DENT(226,DA,0),""^""),"".""),DA)="""""
^DD(226,60,1,1,"DT")="2941209"
^DD(226,60,"DT")="2950619"
^DD(226,61,0)="DATE RELEASED^D^^.1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(226,61,"DT")="2850915"
^DD(226,"B","DATE RELEASED",61)=""
^DD(226,"B","DATE/TIME",.01)=""
^DD(226,"B","DENTAL PROVIDER",.06)=""
^DD(226,"B","NON CLINICAL TIME CATEGORY",.6)=""
^DD(226,"B","PROVIDER NUMBER",.4)=""
^DD(226,"B","RELEASED BY",60)=""
^DD(226,"B","STATION.DIVISION",.3)=""
^DD(226,"B","TIME SPENT",.9)=""
^DD(226,"GL",0,1,.01)=""
^DD(226,"GL",0,2,.3)=""
^DD(226,"GL",0,3,.4)=""
^DD(226,"GL",0,4,.6)=""
^DD(226,"GL",0,5,.9)=""
^DD(226,"GL",0,6,.06)=""
^DD(226,"GL",.1,1,60)=""
^DD(226,"GL",.1,2,61)=""
^DD(226,"IX",.01)=""
^DD(226,"IX",.3)=""
^DD(226,"IX",.4)=""
^DD(226,"IX",60)=""
^DD(226,"RQ",.01)=""
^DD(226,"RQ",.3)=""
^DD(226,"RQ",.6)=""
^DD(226,"RQ",.9)=""
^DD(301.5,0)="FIELD^^50^18"
^DD(301.5,0,"DDA")="N"
^DD(301.5,0,"DT")="2940824"
^DD(301.5,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(301.5,0,"IX","AC",301.5,.06)=""
^DD(301.5,0,"IX","AD",301.5,.07)=""
^DD(301.5,0,"IX","AE",301.5,.06)=""
^DD(301.5,0,"IX","AF",301.5,.07)=""
^DD(301.5,0,"IX","APT1",301.5,.01)=""
^DD(301.5,0,"IX","APT2",301.5,.02)=""
^DD(301.5,0,"IX","ASEG",301.501,.02)=""
^DD(301.5,0,"IX","ATR",301.5,.03)=""
^DD(301.5,0,"IX","AUPL",301.501,.05)=""
^DD(301.5,0,"IX","AYR1",301.5,.01)=""
^DD(301.5,0,"IX","AYR2",301.5,.02)=""
^DD(301.5,0,"IX","B",301.5,.01)=""
^DD(301.5,0,"NM","IVM PATIENT")=""
^DD(301.5,0,"PT",301.6,.01)=""
^DD(301.5,0,"VR")="2.0"
^DD(301.5,.01,0)="PATIENT^RP2'I^DPT(^0;1^Q"
^DD(301.5,.01,1,0)="^.1"
^DD(301.5,.01,1,1,0)="301.5^B"
^DD(301.5,.01,1,1,1)="S ^IVM(301.5,""B"",$E(X,1,30),DA)="""""
^DD(301.5,.01,1,1,2)="K ^IVM(301.5,""B"",$E(X,1,30),DA)"
^DD(301.5,.01,1,2,0)="301.5^AYR1^MUMPS"
^DD(301.5,.01,1,2,1)="S:$P(^IVM(301.5,DA,0),""^"",2) ^IVM(301.5,""AYR"",$P(^(0),""^"",2),X,DA)="""""
^DD(301.5,.01,1,2,2)="K:$P(^IVM(301.5,DA,0),""^"",2) ^IVM(301.5,""AYR"",$P(^(0),""^"",2),X,DA)"
^DD(301.5,.01,1,2,"%D",0)="^^3^3^2930330^^^^"
^DD(301.5,.01,1,2,"%D",1,0)=" "
^DD(301.5,.01,1,2,"%D",2,0)="This cross-reference is used to sort by income year, by patient, and by"
^DD(301.5,.01,1,2,"%D",3,0)="record number."
^DD(301.5,.01,1,2,"DT")="2930330"
^DD(301.5,.01,1,3,0)="301.5^APT1^MUMPS"
^DD(301.5,.01,1,3,1)="S:$P(^IVM(301.5,DA,0),""^"",2) ^IVM(301.5,""APT"",X,$P(^(0),""^"",2),DA)="""""
^DD(301.5,.01,1,3,2)="K:$P(^IVM(301.5,DA,0),""^"",2) ^IVM(301.5,""APT"",X,$P(^(0),""^"",2),DA)"
^DD(301.5,.01,1,3,"%D",0)="^^3^3^2930330^^^^"
^DD(301.5,.01,1,3,"%D",1,0)=" "
^DD(301.5,.01,1,3,"%D",2,0)="This cross-reference will sort all entries in this file by patient, income"
^DD(301.5,.01,1,3,"%D",3,0)="year, and internal record number."
^DD(301.5,.01,1,3,"DT")="2930330"
^DD(301.5,.01,3)="Enter the name of the patient for which the income verification process will be accomplished."
^DD(301.5,.01,21,0)="^^9^9^2930721^^"
^DD(301.5,.01,21,1,0)=" "
^DD(301.5,.01,21,2,0)="This field contains the name of a patient for which the income"
^DD(301.5,.01,21,3,0)="verification process will be (or has been) done.  The patients stored in"
^DD(301.5,.01,21,4,0)="this file are patients that are either Category A by virtue of the means"
^DD(301.5,.01,21,5,0)="test or are Category C veterans without insurance."
^DD(301.5,.01,21,6,0)=" "
^DD(301.5,.01,21,7,0)="Entries are placed into this file automatically by the IVM module.  They"
^DD(301.5,.01,21,8,0)="should not be added, edited, or removed from this file without using the"
^DD(301.5,.01,21,9,0)="appropriate IVM menu option."
^DD(301.5,.01,"DT")="2930716"
^DD(301.5,.02,0)="INCOME YEAR^RDI^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(301.5,.02,1,0)="^.1"
^DD(301.5,.02,1,1,0)="301.5^AYR2^MUMPS"
^DD(301.5,.02,1,1,1)="S ^IVM(301.5,""AYR"",X,+^IVM(301.5,DA,0),DA)="""""
^DD(301.5,.02,1,1,2)="K ^IVM(301.5,""AYR"",X,+^IVM(301.5,DA,0),DA)"
^DD(301.5,.02,1,1,"%D",0)="^^3^3^2930330^^^"
^DD(301.5,.02,1,1,"%D",1,0)=" "
^DD(301.5,.02,1,1,"%D",2,0)="This cross-reference will sort all entries by income year, patient, and"
^DD(301.5,.02,1,1,"%D",3,0)="internal entry number."
^DD(301.5,.02,1,1,"DT")="2930330"
^DD(301.5,.02,1,2,0)="301.5^APT2^MUMPS"
^DD(301.5,.02,1,2,1)="S ^IVM(301.5,""APT"",+^IVM(301.5,DA,0),X,DA)="""""
^DD(301.5,.02,1,2,2)="K ^IVM(301.5,""APT"",+^IVM(301.5,DA,0),X,DA)"
^DD(301.5,.02,1,2,"%D",0)="^^3^3^2930330^^^"
^DD(301.5,.02,1,2,"%D",1,0)=" "
^DD(301.5,.02,1,2,"%D",2,0)="This cross-reference will sort all entries in this file by patient, income"
^DD(301.5,.02,1,2,"%D",3,0)="year, and internal record number."
^DD(301.5,.02,1,2,"DT")="2930330"
^DD(301.5,.02,3)="Enter the year (no month or date) for which this patient's income is being verified by the IVM Center."
^DD(301.5,.02,21,0)="^^6^6^2931029^^"
^DD(301.5,.02,21,1,0)=" "
^DD(301.5,.02,21,2,0)="This field should contain the year (no month or date) for which this"
^DD(301.5,.02,21,3,0)="patient's income is being verified by the IVM Center in Birmingham."
^DD(301.5,.02,21,4,0)=" "
^DD(301.5,.02,21,5,0)="This field is populated automatically by the IVM module and will not be"
^DD(301.5,.02,21,6,0)="editable."
^DD(301.5,.02,"DT")="2930330"
^DD(301.5,.03,0)="TRANSMISSION STATUS^S^1:TRANSMITTED;0:NOT TRANSMITTED;^0;3^Q"
^DD(301.5,.03,1,0)="^.1"
^DD(301.5,.03,1,1,0)="301.5^ATR^MUMPS"
^DD(301.5,.03,1,1,1)="I X=0 S ^IVM(301.5,""ATR"",0,+$P(^IVM(301.5,DA,0),U,2),DA)="""""
^DD(301.5,.03,1,1,2)="I X=0 K ^IVM(301.5,""ATR"",0,+$P(^IVM(301.5,DA,0),U,2),DA)"
^DD(301.5,.03,1,1,"%D",0)="^.101^5^5^3030307^^^^"
^DD(301.5,.03,1,1,"%D",1,0)=" "
^DD(301.5,.03,1,1,"%D",2,0)="This cross-reference will contain only those patients for which"
^DD(301.5,.03,1,1,"%D",3,0)="demographic and income data needs to be transmitted to IVM.  Once the"
^DD(301.5,.03,1,1,"%D",4,0)="data for this patient has been transmitted, this field will be changed to"
^DD(301.5,.03,1,1,"%D",5,0)="1 for transmitted and the cross-reference will be removed."
^DD(301.5,.03,1,1,"DT")="3030307"
^DD(301.5,.03,3)="If data for this patient requires transmission, enter 0, otherwise, answer 1."
^DD(301.5,.03,21,0)="^.001^4^4^3020516^^"
^DD(301.5,.03,21,1,0)=" "
^DD(301.5,.03,21,2,0)="This field will be maintained by the IVM software module.  If data for a"
^DD(301.5,.03,21,3,0)="patient requires transmission, this field will be set to 0.  Once the data"
^DD(301.5,.03,21,4,0)="has been transmitted, the field will be set to 1."
^DD(301.5,.03,"DT")="3030307"
^DD(301.5,.04,0)="STOP FLAG^S^1:STOP;0:DON'T STOP;^0;4^Q"
^DD(301.5,.04,3)="If update transmissions, other than for enrollment, should no longer be sent to the IVM Center, enter 1 here."
^DD(301.5,.04,21,0)="^^9^9^2970904^"
^DD(301.5,.04,21,1,0)="This field does not affect transmissions necessary for enrollment updates."
^DD(301.5,.04,21,2,0)=" "
^DD(301.5,.04,21,3,0)="This field will be updated automatically by the DHCP IVM software module."
^DD(301.5,.04,21,4,0)="If it contains a 0 or is null, whenever changes are made to the means"
^DD(301.5,.04,21,5,0)="test or demographic information for this patient, a new transmission will"
^DD(301.5,.04,21,6,0)="be sent."
^DD(301.5,.04,21,7,0)=" "
^DD(301.5,.04,21,8,0)="If the field equals 1, it means that further transmissions should not be"
^DD(301.5,.04,21,9,0)="sent to the IVM Center unless requested via a query."
^DD(301.5,.04,23,0)="^^26^26^2970904^"
^DD(301.5,.04,23,1,0)="This field does not affect transmissions necessary for enrollment"
^DD(301.5,.04,23,2,0)="purposes."
^DD(301.5,.04,23,3,0)=" "
^DD(301.5,.04,23,4,0)="This field is set by the module only.  The value 0 is equivelant to a null"
^DD(301.5,.04,23,5,0)="response and means that demographic or means test changes will be"
^DD(301.5,.04,23,6,0)="transmitted to the IVM Center."
^DD(301.5,.04,23,7,0)=" "
^DD(301.5,.04,23,8,0)="A value of 1 means that no futher transmissions for this patient should be"
^DD(301.5,.04,23,9,0)="made.  The value of 1 could be put into this field in one of four"
^DD(301.5,.04,23,10,0)="circumstance:"
^DD(301.5,.04,23,11,0)="   1.  The patient's means test or insurance status changes such that"
^DD(301.5,.04,23,12,0)="       the patient no longer meets the IVM criteria for the year in"
^DD(301.5,.04,23,13,0)="       question.  In this case, one last transmission will be sent to"
^DD(301.5,.04,23,14,0)="       the IVM Center and then the flag will be set to 1 to stop future"
^DD(301.5,.04,23,15,0)="       transmissions."
^DD(301.5,.04,23,16,0)=" "
^DD(301.5,.04,23,17,0)="   2.  The IVM Center sends a case status of 1 indicating that the case"
^DD(301.5,.04,23,18,0)="       will no longer be looked at by IVM personnel."
^DD(301.5,.04,23,19,0)=" "
^DD(301.5,.04,23,20,0)="   3.  The IVM Center sends a verified Means Test back to the Medical"
^DD(301.5,.04,23,21,0)="       Center.  This action officially closes the case."
^DD(301.5,.04,23,22,0)=" "
^DD(301.5,.04,23,23,0)="   4.  DHCP users reject the suggested SSN for the veteran (in the"
^DD(301.5,.04,23,24,0)="       SSN Upload) which has been sent to the Medical Center from IVM."
^DD(301.5,.04,23,25,0)="       The case is closed because IVM cannot pursue the case until"
^DD(301.5,.04,23,26,0)="       it can match the patient with the Social Security Administration."
^DD(301.5,.04,"DT")="2930603"
^DD(301.5,.05,0)="QUERY TRANSMISSION DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.5,.05,3)="Enter the date/time on which this query transmission occurred."
^DD(301.5,.05,21,0)="^^2^2^2940131^^^^"
^DD(301.5,.05,21,1,0)="This field contains the first date/time that a full query message for the"
^DD(301.5,.05,21,2,0)="IVM PATIENT was transmitted to the IVM Center."
^DD(301.5,.05,"DT")="2931029"
^DD(301.5,.06,0)="FUTURE MEANS TEST^P408.31'^DGMT(408.31,^0;6^Q"
^DD(301.5,.06,1,0)="^.1"
^DD(301.5,.06,1,1,0)="301.5^AC^MUMPS"
^DD(301.5,.06,1,1,1)="D FUTMT^IVMCDD(DA,X)"
^DD(301.5,.06,1,1,2)="D NOFUTMT^IVMCDD(DA,X)"
^DD(301.5,.06,1,1,3)="DO NOT DELETE!"
^DD(301.5,.06,1,1,"%D",0)="^^2^2^2990701^^"
^DD(301.5,.06,1,1,"%D",1,0)="This cross-reference provides a list of means tests with future dates.  The"
^DD(301.5,.06,1,1,"%D",2,0)="list is sorted as <means test date>,<ien of IVM Patient>, <ien of means test>."
^DD(301.5,.06,1,1,"DT")="2990630"
^DD(301.5,.06,1,2,0)="301.5^AE^MUMPS"
^DD(301.5,.06,1,2,1)="D AESET^IVMCDD(DA,X)"
^DD(301.5,.06,1,2,2)="D AEKILL^IVMCDD(DA,X)"
^DD(301.5,.06,1,2,3)="DO NOT DELETE!"
^DD(301.5,.06,1,2,"%D",0)="^^3^3^2990707^"
^DD(301.5,.06,1,2,"%D",1,0)="This cross-reference provides a list of means test with future dates."
^DD(301.5,.06,1,2,"%D",2,0)="The list is sorted as <dfn>, <date of means test>,<means test ien>,"
^DD(301.5,.06,1,2,"%D",3,0)="<ivm patient ien>."
^DD(301.5,.06,1,2,"DT")="2990707"
^DD(301.5,.06,3)="If there is a means test with a future date, enter it here."
^DD(301.5,.06,21,0)="^^2^2^2990611^"
^DD(301.5,.06,21,1,0)="This field will be used to indicate the existence of a means test being held"
^DD(301.5,.06,21,2,0)="for a future date."
^DD(301.5,.06,"DT")="2990707"
^DD(301.5,.07,0)="FUTURE RX COPAY TEST^P408.31'^DGMT(408.31,^0;7^Q"
^DD(301.5,.07,1,0)="^.1"
^DD(301.5,.07,1,1,0)="301.5^AD^MUMPS"
^DD(301.5,.07,1,1,1)="D FUTRX^IVMCDD(DA,X)"
^DD(301.5,.07,1,1,2)="D NOFUTRX^IVMCDD(DA,X)"
^DD(301.5,.07,1,1,3)="DO NOT DELETE!"
^DD(301.5,.07,1,1,"%D",0)="^^2^2^2990701^^"
^DD(301.5,.07,1,1,"%D",1,0)="This cross-reference provides a list of Rx copay tests with future dates.  The"
^DD(301.5,.07,1,1,"%D",2,0)="list is sorted as <means test date>,<ien of IVM Patient>, <ien of means test>."
^DD(301.5,.07,1,1,"DT")="2990701"
^DD(301.5,.07,1,2,0)="301.5^AF^MUMPS"
^DD(301.5,.07,1,2,1)="D AFSET^IVMCDD(DA,X)"
^DD(301.5,.07,1,2,2)="D AFKILL^IVMCDD(DA,X)"
^DD(301.5,.07,1,2,3)="DO NOT DELETE!"
^DD(301.5,.07,1,2,"%D",0)="^^3^3^2990707^"
^DD(301.5,.07,1,2,"%D",1,0)="This cross-reference provides a list of Copay Tests with future dates."
^DD(301.5,.07,1,2,"%D",2,0)="The list is sorted as <dfn>, <date of copay test>,<copay test ien>,"
^DD(301.5,.07,1,2,"%D",3,0)="<ivm patient ien>."
^DD(301.5,.07,1,2,"DT")="2990707"
^DD(301.5,.07,3)="If there is a pharmacy co-pay test being held with a future effective date, enter it here."
^DD(301.5,.07,21,0)="^^2^2^2990611^"
^DD(301.5,.07,21,1,0)="This field will be used to indicate the existence of a pharmacy co-pay test"
^DD(301.5,.07,21,2,0)="being held for a future effective date."
^DD(301.5,.07,"DT")="2990707"
^DD(301.5,.08,0)="MEANS TEST DELETION TEST DATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.5,.08,3)="Enter the Date of Test for the test that was deleted."
^DD(301.5,.08,21,0)="^^3^3^2990623^^^^"
^DD(301.5,.08,21,1,0)="This field will be used to indicate that HEC should be notified that the"
^DD(301.5,.08,21,2,0)="veteran's means test was deleted.  The presence of a date will both indicate"
^DD(301.5,.08,21,3,0)="that a deletion occurred and the income year of the test that was deleted."
^DD(301.5,.08,"DT")="2990617"
^DD(301.5,.09,0)="RX TEST DELETION TEST DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.5,.09,3)="Enter the Date of Test for the test that was deleted."
^DD(301.5,.09,21,0)="^^4^4^2990623^^^^"
^DD(301.5,.09,21,1,0)="This field will indicate whether HEC needs to be notified of the deletion of the"
^DD(301.5,.09,21,2,0)="veteran's pharmacy co-pay test.  The presence of a date will both indicate"
^DD(301.5,.09,21,3,0)="that a deletion occurred and the income year of the test that was deleted."
^DD(301.5,.09,21,4,0)=""
^DD(301.5,.09,"DT")="2990617"
^DD(301.5,.1,0)="HARDSHIP DELETION TEST DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.5,.1,3)="Enter the date of the test for the hardship that is being deleted."
^DD(301.5,.1,21,0)="^^4^4^2990623^^^"
^DD(301.5,.1,21,1,0)="This field will be used to indicate whether or not HEC needs to be notified"
^DD(301.5,.1,21,2,0)="of the deletion of a hardship.  The presence of a date will both indicate"
^DD(301.5,.1,21,3,0)="that a deletion occurred and the income year of the test for which the hardship"
^DD(301.5,.1,21,4,0)="was deleted."
^DD(301.5,.1,"DT")="2990617"
^DD(301.5,.11,0)="LTC COPAY EXMPT TEST DELETE DT^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.5,.11,.1)="LONG TERM CARE COPAY EXEMPTION TEST DELETION DATE"
^DD(301.5,.11,3)="Enter the Date of Test for the test that was deleted."
^DD(301.5,.11,21,0)="^^4^4^3011220^"
^DD(301.5,.11,21,1,0)="This field will indicate whether HEC needs to be notified of the deletion"
^DD(301.5,.11,21,2,0)="of the veteran's Long Term Care Copay Exemption test.  The presence"
^DD(301.5,.11,21,3,0)="of a date will both indicate that a deletion occurred and the income year"
^DD(301.5,.11,21,4,0)="of the test that was deleted."
^DD(301.5,.11,"DT")="3011220"
^DD(301.5,1.01,0)="CLOSURE REASON^P301.93'^IVM(301.93,^1;1^Q"
^DD(301.5,1.01,21,0)="^^3^3^2940523^"
^DD(301.5,1.01,21,1,0)="If a case record has been closed (the STOP FLAG [#.04] field is"
^DD(301.5,1.01,21,2,0)="set to YES), this field will store the reason that the case was"
^DD(301.5,1.01,21,3,0)="closed."
^DD(301.5,1.01,"DT")="2940523"
^DD(301.5,1.02,0)="CLOSURE SOURCE^S^1:IVM CENTER;2:DHCP (SYSTEM);^1;2^Q"
^DD(301.5,1.02,21,0)="^^15^15^2940523^"
^DD(301.5,1.02,21,1,0)="If a case record has been closed, this field is used to store"
^DD(301.5,1.02,21,2,0)="the source which was responsible for closing the record.  If"
^DD(301.5,1.02,21,3,0)="the IVM Center is not going to verify a Means Test, they will"
^DD(301.5,1.02,21,4,0)="send a CASE STATUS messaage to DHCP in order to close the case."
^DD(301.5,1.02,21,5,0)="In this case IVM will be the source of the closure.  They will"
^DD(301.5,1.02,21,6,0)="also be the closure source when they transmit a verified"
^DD(301.5,1.02,21,7,0)="Means Test to DHCP."
^DD(301.5,1.02,21,8,0)=" "
^DD(301.5,1.02,21,9,0)="If a veteran's Means Test no longer meets the IVM criteria,"
^DD(301.5,1.02,21,10,0)="then DHCP will serve as the closure source.  Case records will"
^DD(301.5,1.02,21,11,0)="also be closed when a recommended SSN for a veteran which is"
^DD(301.5,1.02,21,12,0)="transmitted to DHCP from IVM is rejected in the SSN Upload."
^DD(301.5,1.02,21,13,0)=" "
^DD(301.5,1.02,21,14,0)="Note that a closed case may be re-opened if the IVM Center"
^DD(301.5,1.02,21,15,0)="sends an individual query message to DHCP for a specific case."
^DD(301.5,1.02,"DT")="2940523"
^DD(301.5,1.03,0)="CLOSURE DATE/TIME^D^^1;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.5,1.03,21,0)="^^2^2^2940523^"
^DD(301.5,1.03,21,1,0)="If a case record has been closed, this field will be used to"
^DD(301.5,1.03,21,2,0)="store the date and time that the case was closed."
^DD(301.5,1.03,"DT")="2940523"
^DD(301.5,30.01,0)="IVM EVENT^S^0:NEVER OCCURRED;1:IVM EVENT REQUIRES TRANSMISSION;2:IVM EVENT WAS TRANSMITTED;^E;1^Q"
^DD(301.5,30.01,3)="This field indicates whether an IVM type of event has occurred that requires transmission."
^DD(301.5,30.01,21,0)="^^2^2^2970904^^"
^DD(301.5,30.01,21,1,0)="This field is used to indicate whether or not transmission is necessary"
^DD(301.5,30.01,21,2,0)="under the criteria defined for IVM."
^DD(301.5,30.01,"DT")="2970904"
^DD(301.5,30.02,0)="DCD EVENT^S^0:NEVER OCCURRED;1:DCD EVENT REQUIRES TRANSMISSION;2:DCD EVENT WAS TRANSMITTED;^E;2^Q"
^DD(301.5,30.02,3)="This field indicates whether an DCD type of event has occurred that requires transmission."
^DD(301.5,30.02,21,0)="^^2^2^2970904^^^"
^DD(301.5,30.02,21,1,0)="This field is used to indicate whether or not transmission is necessary"
^DD(301.5,30.02,21,2,0)="under the criteria defined by DCD."
^DD(301.5,30.02,"DT")="2970904"
^DD(301.5,30.03,0)="ENROLLMENT EVENT^S^0:NEVER OCCURRED;1:ENROLLMENT EVENT REQUIRES TRANSMISSION;2:ENROLLMENT EVENT WAS TRANSMITTED;^E;3^Q"
^DD(301.5,30.03,3)="This field indicates whether an enrollment type event has occurred that requires transmission."
^DD(301.5,30.03,21,0)="^^2^2^2970904^"
^DD(301.5,30.03,21,1,0)="This field is used to indicate whether or not transmission of the"
^DD(301.5,30.03,21,2,0)="patient is necessary under the criteria defined for enrollment."
^DD(301.5,30.03,"DT")="2970904"
^DD(301.5,50,0)="INCOMING SEGMENT^301.501PA^^IN;0"
^DD(301.5,50,21,0)="^^4^4^2940824^^^^"
^DD(301.5,50,21,1,0)=" "
^DD(301.5,50,21,2,0)="This field will contain a pointer to the HL7 SEGMENT NAME file.  It will"
^DD(301.5,50,21,3,0)="represent the segment which has been received by the VAMC from the IVM"
^DD(301.5,50,21,4,0)="Center.  Note:  the .02 field will contain the free text segment name."
^DD(301.5,50,"DT")="2940131"
^DD(301.5,"B","CLOSURE DATE/TIME",1.03)=""
^DD(301.5,"B","CLOSURE REASON",1.01)=""
^DD(301.5,"B","CLOSURE SOURCE",1.02)=""
^DD(301.5,"B","DCD EVENT",30.02)=""
^DD(301.5,"B","ENROLLMENT EVENT",30.03)=""
^DD(301.5,"B","FUTURE MEANS TEST",.06)=""
^DD(301.5,"B","FUTURE RX COPAY TEST",.07)=""
^DD(301.5,"B","HARDSHIP DELETION TEST DATE",.1)=""
^DD(301.5,"B","INCOME YEAR",.02)=""
^DD(301.5,"B","INCOMING SEGMENT",50)=""
^DD(301.5,"B","IVM EVENT",30.01)=""
^DD(301.5,"B","LTC COPAY EXMPT TEST DELETE DT",.11)=""
^DD(301.5,"B","MEANS TEST DELETION TEST DATE",.08)=""
^DD(301.5,"B","PATIENT",.01)=""
^DD(301.5,"B","QUERY TRANSMISSION DATE/TIME",.05)=""
^DD(301.5,"B","RX TEST DELETION TEST DATE",.09)=""
^DD(301.5,"B","STOP FLAG",.04)=""
^DD(301.5,"B","TRANSMISSION STATUS",.03)=""
^DD(301.5,"GL",0,1,.01)=""
^DD(301.5,"GL",0,2,.02)=""
^DD(301.5,"GL",0,3,.03)=""
^DD(301.5,"GL",0,4,.04)=""
^DD(301.5,"GL",0,5,.05)=""
^DD(301.5,"GL",0,6,.06)=""
^DD(301.5,"GL",0,7,.07)=""
^DD(301.5,"GL",0,8,.08)=""
^DD(301.5,"GL",0,9,.09)=""
^DD(301.5,"GL",0,10,.1)=""
^DD(301.5,"GL",0,11,.11)=""
^DD(301.5,"GL",1,1,1.01)=""
^DD(301.5,"GL",1,2,1.02)=""
^DD(301.5,"GL",1,3,1.03)=""
^DD(301.5,"GL","E",1,30.01)=""
^DD(301.5,"GL","E",2,30.02)=""
^DD(301.5,"GL","E",3,30.03)=""
^DD(301.5,"GL","IN",0,50)=""
^DD(301.5,"IX",.01)=""
^DD(301.5,"IX",.02)=""
^DD(301.5,"IX",.03)=""
^DD(301.5,"IX",.06)=""
^DD(301.5,"IX",.07)=""
^DD(301.5,"RQ",.01)=""
^DD(301.5,"RQ",.02)=""
^DD(301.5,"SB",301.501,50)=""
^DD(301.501,0)="INCOMING SEGMENT SUB-FIELD^^20^10"
^DD(301.501,0,"DT")="2940824"
^DD(301.501,0,"IX","B",301.501,.01)=""
^DD(301.501,0,"NM","INCOMING SEGMENT")=""
^DD(301.501,0,"UP")="301.5"
^DD(301.501,.01,0)="INCOMING SEGMENT^RP771.3'^HL(771.3,^0;1^Q"
^DD(301.501,.01,1,0)="^.1"
^DD(301.501,.01,1,1,0)="301.501^B"
^DD(301.501,.01,1,1,1)="S ^IVM(301.5,DA(1),""IN"",""B"",$E(X,1,30),DA)="""""
^DD(301.501,.01,1,1,2)="K ^IVM(301.5,DA(1),""IN"",""B"",$E(X,1,30),DA)"
^DD(301.501,.01,1,2,0)="^^TRIGGER^301.501^.02"
^DD(301.501,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^IVM(301.5,D0,""IN"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(301.501,.01,1,2,1.1) X ^DD(301.501,.01,1,2,1.4)"
^DD(301.501,.01,1,2,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^HL(771.3,+D0,0)) D0=-1 S Y(101)=$S($D(^HL(771.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)"
^DD(301.501,.01,1,2,1.4)="S DIH=$S($D(^IVM(301.5,DIV(0),""IN"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=301.501,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(301.501,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^IVM(301.5,D0,""IN"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(301.501,.01,1,2,2.4)"
^DD(301.501,.01,1,2,2.4)="S DIH=$S($D(^IVM(301.5,DIV(0),""IN"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=301.501,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(301.501,.01,1,2,"%D",0)="^^4^4^2930510^"
^DD(301.501,.01,1,2,"%D",1,0)=" "
^DD(301.501,.01,1,2,"%D",2,0)="This cross-reference will automatically stuff the 3 character name of the"
^DD(301.501,.01,1,2,"%D",3,0)="HL7 segment into the .02 (SEGMENT NAME) field of this multiple.  This will"
^DD(301.501,.01,1,2,"%D",4,0)="be used for quicker look-up purposes."
^DD(301.501,.01,1,2,"CREATE VALUE")=".01:ABBREVIATED NAME"
^DD(301.501,.01,1,2,"DELETE VALUE")="@"
^DD(301.501,.01,1,2,"DT")="2930510"
^DD(301.501,.01,1,2,"FIELD")="SEGMENT NAME"
^DD(301.501,.01,3)="Enter the segment name received."
^DD(301.501,.01,21,0)="^^2^2^2940412^^^"
^DD(301.501,.01,21,1,0)="This field will contain a pointer to the HL7 SEGMENT NAME file representing"
^DD(301.501,.01,21,2,0)="the segment received from the IVM Center."
^DD(301.501,.01,"DT")="2930510"
^DD(301.501,.02,0)="SEGMENT NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X"
^DD(301.501,.02,1,0)="^.1"
^DD(301.501,.02,1,1,0)="301.5^ASEG"
^DD(301.501,.02,1,1,1)="S ^IVM(301.5,""ASEG"",$E(X,1,30),DA(1),DA)="""""
^DD(301.501,.02,1,1,2)="K ^IVM(301.5,""ASEG"",$E(X,1,30),DA(1),DA)"
^DD(301.501,.02,1,1,"%D",0)="^^4^4^2940809^^"
^DD(301.501,.02,1,1,"%D",1,0)=" "
^DD(301.501,.02,1,1,"%D",2,0)="This cross-reference will be used when looking for segments ready for"
^DD(301.501,.02,1,1,"%D",3,0)="uploading.  The cross-reference is used to identify uploadable "
^DD(301.501,.02,1,1,"%D",4,0)="demographics, insurance, or social security number information."
^DD(301.501,.02,1,1,"DT")="2930605"
^DD(301.501,.02,3)="Answer must be 3 characters in length."
^DD(301.501,.02,5,1,0)="301.501^.01^2"
^DD(301.501,.02,9)="^"
^DD(301.501,.02,21,0)="^^2^2^2940825^^"
^DD(301.501,.02,21,1,0)="This field will contain the 3 character literal name of the HL7 segment"
^DD(301.501,.02,21,2,0)="which has been received."
^DD(301.501,.02,23,0)="^^6^6^2940825^"
^DD(301.501,.02,23,1,0)="This field is used to flag those incoming transmissions from the"
^DD(301.501,.02,23,2,0)="IVM Center which need to be uploaded.  The flagging is accomplished"
^DD(301.501,.02,23,3,0)="through the use of the 'ASEG' full-file cross-reference.  Once the"
^DD(301.501,.02,23,4,0)="user has taken action on a segment through an upload option, this"
^DD(301.501,.02,23,5,0)="field is deleted, thus deleting the 'ASEG' cross-reference and the"
^DD(301.501,.02,23,6,0)="flag to include the segment in any upload option again."
^DD(301.501,.02,"DT")="2940214"
^DD(301.501,.03,0)="REC'D INSURANCE SEG DATE/TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.501,.03,3)="Enter date/time insurance segment is received from the IVM Center."
^DD(301.501,.03,21,0)="^^3^3^2940201^^"
^DD(301.501,.03,21,1,0)=" "
^DD(301.501,.03,21,2,0)="This field contains the date/time the insurance segment is receive from"
^DD(301.501,.03,21,3,0)="the IVM Center."
^DD(301.501,.03,"DT")="2940201"
^DD(301.501,.04,0)="UPLOAD INSURANCE DATA^S^0:NOT UPLOADED;1:UPLOADED;^0;4^Q"
^DD(301.501,.04,3)="If insurance data is uploaded, enter 1, otherwise, enter 0."
^DD(301.501,.04,21,0)="^^3^3^2940809^^"
^DD(301.501,.04,21,1,0)=" "
^DD(301.501,.04,21,2,0)="This field contains a 1 if insurance data is uploaded or a 0 if not"
^DD(301.501,.04,21,3,0)="uploaded."
^DD(301.501,.04,"DT")="2940131"
^DD(301.501,.05,0)="UPLOADED INSURANCE DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.501,.05,1,0)="^.1"
^DD(301.501,.05,1,1,0)="301.5^AUPL"
^DD(301.501,.05,1,1,1)="S ^IVM(301.5,""AUPL"",$E(X,1,30),DA(1),DA)="""""
^DD(301.501,.05,1,1,2)="K ^IVM(301.5,""AUPL"",$E(X,1,30),DA(1),DA)"
^DD(301.501,.05,1,1,"%D",0)="^^3^3^2940201^"
^DD(301.501,.05,1,1,"%D",1,0)=" "
^DD(301.501,.05,1,1,"%D",2,0)="This cross-reference will indicate which insurance policies sent from the"
^DD(301.501,.05,1,1,"%D",3,0)="IVM Center were uploaded."
^DD(301.501,.05,1,1,"DT")="2940201"
^DD(301.501,.05,3)="Enter date/time insurance data is uploaded to the facility."
^DD(301.501,.05,21,0)="^^2^2^2940131^"
^DD(301.501,.05,21,1,0)=" "
^DD(301.501,.05,21,2,0)="This field contains date/time insurance data is uploaded to the facility."
^DD(301.501,.05,"DT")="2940201"
^DD(301.501,.07,0)="IVM SPECIFIC INTERNAL ENTRY ID^F^^0;7^K:$L(X)>35!($L(X)<1) X"
^DD(301.501,.07,3)="Answer must be 1-35 characters in length."
^DD(301.501,.07,21,0)="^^5^5^2940824^"
^DD(301.501,.07,21,1,0)=" "
^DD(301.501,.07,21,2,0)="This field contains the internal entry id in the IVM Center database for"
^DD(301.501,.07,21,3,0)="the verified insurance policy.  Also, if a 'date of death' has been"
^DD(301.501,.07,21,4,0)="identified by the IVM Center, the 'date of death' will be concatenated"
^DD(301.501,.07,21,5,0)="with the internal entry id.  An example of this would be: 49~3~M10/2940513"
^DD(301.501,.07,"DT")="2940824"
^DD(301.501,.08,0)="REASON NOT UPLOADING INSURANCE^P301.91'^IVM(301.91,^0;8^Q"
^DD(301.501,.08,3)="Enter the reason verified insurance from the IVM Center is not being uploaded.  Reason found in the IVM REASONS FOR NOT UPLOADING INSURANCE file (301.91)."
^DD(301.501,.08,21,0)="^^3^3^2940207^"
^DD(301.501,.08,21,1,0)=" "
^DD(301.501,.08,21,2,0)="This file will contain a pointer to the IVM REASONS FOR NOT UPLOADING"
^DD(301.501,.08,21,3,0)="INSURANCE file (301.91) representing the reason for not uploading."
^DD(301.501,.08,"DT")="2940207"
^DD(301.501,10,0)="SEGMENT STRING^F^^ST;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(301.501,10,3)="Answer must be 1-245 characters in length."
^DD(301.501,10,21,0)="^^2^2^2940412^^^^"
^DD(301.501,10,21,1,0)="This field will contain the data in the incoming HL7 segment.  It will"
^DD(301.501,10,21,2,0)="not, however, contain the segment name or first field separator."
^DD(301.501,10,"DT")="2940216"
^DD(301.501,11,0)="SEGMENT STRING 2^F^^ST1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(301.501,11,3)="Answer must be 1-245 characters in length."
^DD(301.501,11,21,0)="^^5^5^2940209^"
^DD(301.501,11,21,1,0)=" "
^DD(301.501,11,21,2,0)="This field will contain continuation data from the incoming HL7 segment"
^DD(301.501,11,21,3,0)="stored in SEGMENT STRING (field #10).  If the incoming segment is to be"
^DD(301.501,11,21,4,0)="more than 245 characters, the remaining characters will be sent in another"
^DD(301.501,11,21,5,0)="segment and stored in this field."
^DD(301.501,11,"DT")="2940209"
^DD(301.501,20,0)="DEMOGRAPHIC UPLOAD DATA^301.511P^^DEM;0"
^DD(301.501,20,21,0)="^^2^2^2940412^^"
^DD(301.501,20,21,1,0)=" "
^DD(301.501,20,21,2,0)="This multiple will contain demographic data received from the IVM Center."
^DD(301.501,"B","DEMOGRAPHIC UPLOAD DATA",20)=""
^DD(301.501,"B","INCOMING SEGMENT",.01)=""
^DD(301.501,"B","IVM SPECIFIC INTERNAL ENTRY ID",.07)=""
^DD(301.501,"B","REASON NOT UPLOADING INSURANCE",.08)=""
^DD(301.501,"B","REC'D INSURANCE SEG DATE/TIME",.03)=""
^DD(301.501,"B","SEGMENT NAME",.02)=""
^DD(301.501,"B","SEGMENT STRING",10)=""
^DD(301.501,"B","SEGMENT STRING 2",11)=""
^DD(301.501,"B","UPLOAD INSURANCE DATA",.04)=""
^DD(301.501,"B","UPLOADED INSURANCE DATE/TIME",.05)=""
^DD(301.501,"GL",0,1,.01)=""
^DD(301.501,"GL",0,2,.02)=""
^DD(301.501,"GL",0,3,.03)=""
^DD(301.501,"GL",0,4,.04)=""
^DD(301.501,"GL",0,5,.05)=""
^DD(301.501,"GL",0,7,.07)=""
^DD(301.501,"GL",0,8,.08)=""
^DD(301.501,"GL","DEM",0,20)=""
^DD(301.501,"GL","ST","E1,245",10)=""
^DD(301.501,"GL","ST1","E1,245",11)=""
^DD(301.501,"IX",.01)=""
^DD(301.501,"IX",.02)=""
^DD(301.501,"IX",.05)=""
^DD(301.501,"RQ",.01)=""
^DD(301.501,"SB",301.511,20)=""
^DD(301.511,0)="DEMOGRAPHIC UPLOAD DATA SUB-FIELD^^.03^3"
^DD(301.511,0,"DT")="2940412"
^DD(301.511,0,"IX","B",301.511,.01)=""
^DD(301.511,0,"NM","DEMOGRAPHIC UPLOAD DATA")=""
^DD(301.511,0,"UP")="301.501"
^DD(301.511,.01,0)="DEMOGRAPHIC FIELD LOCATION^P301.92'^IVM(301.92,^0;1^Q"
^DD(301.511,.01,1,0)="^.1"
^DD(301.511,.01,1,1,0)="301.511^B"
^DD(301.511,.01,1,1,1)="S ^IVM(301.5,DA(2),""IN"",DA(1),""DEM"",""B"",$E(X,1,30),DA)="""""
^DD(301.511,.01,1,1,2)="K ^IVM(301.5,DA(2),""IN"",DA(1),""DEM"",""B"",$E(X,1,30),DA)"
^DD(301.511,.01,3)="Please enter pointer to DEMOGRAPHIC FIELD LOCATION file (301.92)"
^DD(301.511,.01,21,0)="^^3^3^2940412^"
^DD(301.511,.01,21,1,0)=" "
^DD(301.511,.01,21,2,0)="This field contains pointer to DEMOGRAPHIC UPLOAD FIELDS LOCATION file"
^DD(301.511,.01,21,3,0)="(301.92)."
^DD(301.511,.01,"DT")="2940412"
^DD(301.511,.02,0)="IVM CENTER DATA^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(301.511,.02,1,0)="^.1"
^DD(301.511,.02,1,1,0)="^^TRIGGER^301.511^.03"
^DD(301.511,.02,1,1,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^IVM(301.5,D0,""IN"",D1,""DEM"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT X ^DD(301.511,.02,1,1,1.4)"
^DD(301.511,.02,1,1,1.4)="S DIH=$G(^IVM(301.5,DIV(0),""IN"",DIV(1),""DEM"",DIV(2),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=301.511,DIG=.03 D ^DICR"
^DD(301.511,.02,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^IVM(301.5,D0,""IN"",D1,""DEM"",D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(301.511,.02,1,1,2.4)"
^DD(301.511,.02,1,1,2.4)="S DIH=$G(^IVM(301.5,DIV(0),""IN"",DIV(1),""DEM"",DIV(2),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=301.511,DIG=.03 D ^DICR"
^DD(301.511,.02,1,1,"CREATE VALUE")="S X=$$NOW^XLFDT"
^DD(301.511,.02,1,1,"DELETE VALUE")="@"
^DD(301.511,.02,1,1,"FIELD")="DATE/TIME RECIEVED"
^DD(301.511,.02,3)="Please enter data received from the IVM Center."
^DD(301.511,.02,21,0)="^^2^2^2940412^^^"
^DD(301.511,.02,21,1,0)=" "
^DD(301.511,.02,21,2,0)="This field contains data received from the IVM Center."
^DD(301.511,.02,"DT")="3030606"
^DD(301.511,.03,0)="DATE/TIME RECEIVED^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(301.511,.03,.1)="DATE/TIME DEMOGRAPHIC DATA RECEIVED"
^DD(301.511,.03,3)="(No range limit on date)"
^DD(301.511,.03,5,1,0)="301.511^.02^1"
^DD(301.511,.03,9)="^"
^DD(301.511,.03,21,0)="^^1^1^3030908^^"
^DD(301.511,.03,21,1,0)="This field contains the Date and Time that the Demographic field was received."
^DD(301.511,.03,"DT")="3030908"
^DD(301.511,"B","DATE/TIME RECEIVED",.03)=""
^DD(301.511,"B","DEMOGRAPHIC FIELD LOCATION",.01)=""
^DD(301.511,"B","IVM CENTER DATA",.02)=""
^DD(301.511,"GL",0,1,.01)=""
^DD(301.511,"GL",0,2,.02)=""
^DD(301.511,"GL",0,3,.03)=""
^DD(301.511,"IX",.01)=""
^DD(301.511,"IX",.02)=""
^DD(301.6,0)="FIELD^^30.03^12"
^DD(301.6,0,"DDA")="N"
^DD(301.6,0,"DT")="2940404"
^DD(301.6,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(301.6,0,"IX","AB",301.6,.02)=""
^DD(301.6,0,"IX","AB1",301.6,.03)=""
^DD(301.6,0,"IX","AC",301.6,.02)=""
^DD(301.6,0,"IX","AC1",301.6,.03)=""
^DD(301.6,0,"IX","ADS",301.6,.05)=""
^DD(301.6,0,"IX","ADS1",301.6,.03)=""
^DD(301.6,0,"IX","ADT",301.6,.02)=""
^DD(301.6,0,"IX","AE",301.6,.05)=""
^DD(301.6,0,"IX","AE1",301.6,.03)=""
^DD(301.6,0,"IX","AEPS",301.6,.07)=""
^DD(301.6,0,"IX","AEPS1",301.6,.06)=""
^DD(301.6,0,"IX","AEPS2",301.6,.01)=""
^DD(301.6,0,"IX","B",301.6,.01)=""
^DD(301.6,0,"NM","IVM TRANSMISSION LOG")=""
^DD(301.6,0,"VR")="2.0"
^DD(301.6,.01,0)="IVM PATIENT^RP301.5'^IVM(301.5,^0;1^Q"
^DD(301.6,.01,1,0)="^.1"
^DD(301.6,.01,1,1,0)="301.6^B"
^DD(301.6,.01,1,1,1)="S ^IVM(301.6,""B"",$E(X,1,30),DA)="""""
^DD(301.6,.01,1,1,2)="K ^IVM(301.6,""B"",$E(X,1,30),DA)"
^DD(301.6,.01,1,2,0)="301.6^AEPS2^MUMPS"
^DD(301.6,.01,1,2,1)="S:$P(^IVM(301.6,DA,0),U,6)&($P(^(0),U,7)) ^IVM(301.6,""AEPS"",+$P(^(0),U,6),+$P(^(0),U,7),X,DA)="""""
^DD(301.6,.01,1,2,2)="K ^IVM(301.6,""AEPS"",+$P(^IVM(301.6,DA,0),U,6),+$P(^(0),U,7),X,DA)"
^DD(301.6,.01,1,2,"%D",0)="^^2^2^2970924^"
^DD(301.6,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by date received by"
^DD(301.6,.01,1,2,"%D",2,0)="error processing status by patient by internal entry number."
^DD(301.6,.01,1,2,"DT")="2970924"
^DD(301.6,.01,3)="Enter the pointer to the IVM PATIENT file corresponding to the patient and income year being transmitted to the IVM Center."
^DD(301.6,.01,21,0)="^^3^3^2930721^"
^DD(301.6,.01,21,1,0)=" "
^DD(301.6,.01,21,2,0)="Enter the name of the IVM patient for which this transmission occurred."
^DD(301.6,.01,21,3,0)="This is a pointer to the IVM PATIENT file."
^DD(301.6,.01,"DT")="2970924"
^DD(301.6,.02,0)="TRANSMISSION DATE/TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.6,.02,1,0)="^.1"
^DD(301.6,.02,1,1,0)="301.6^ADT"
^DD(301.6,.02,1,1,1)="S ^IVM(301.6,""ADT"",$E(X,1,30),DA)="""""
^DD(301.6,.02,1,1,2)="K ^IVM(301.6,""ADT"",$E(X,1,30),DA)"
^DD(301.6,.02,1,1,"%D",0)="^^3^3^2940110^"
^DD(301.6,.02,1,1,"%D",1,0)=" "
^DD(301.6,.02,1,1,"%D",2,0)="This cross-reference will store the date/time of each transmission to the"
^DD(301.6,.02,1,1,"%D",3,0)="IVM Center."
^DD(301.6,.02,1,1,"%D",4,0)="being received by the IVM Center.  Once the message has been received, it"
^DD(301.6,.02,1,1,"%D",5,0)="will set the STATUS field."
^DD(301.6,.02,1,1,"DT")="2930510"
^DD(301.6,.02,1,2,0)="301.6^AB^MUMPS"
^DD(301.6,.02,1,2,1)="S:$P(^IVM(301.6,DA,0),""^"",3)=0 ^IVM(301.6,""AB"",X,DA)="""""
^DD(301.6,.02,1,2,2)="K ^IVM(301.6,""AB"",X,DA)"
^DD(301.6,.02,1,2,"%D",0)="^^5^5^2940405^"
^DD(301.6,.02,1,2,"%D",1,0)=" "
^DD(301.6,.02,1,2,"%D",2,0)="This cross-reference is used in conjunction with the AB cross-reference on"
^DD(301.6,.02,1,2,"%D",3,0)="the STATUS (.03) field to cross-reference transmitted messages with a"
^DD(301.6,.02,1,2,"%D",4,0)="status of 0 (indicating transmission to the IVM Center and no"
^DD(301.6,.02,1,2,"%D",5,0)="acknowledgement has been received) by transmitted date/time."
^DD(301.6,.02,1,2,"DT")="2940103"
^DD(301.6,.02,1,3,0)="301.6^AC^MUMPS"
^DD(301.6,.02,1,3,1)="S:$P(^IVM(301.6,DA,0),""^"",3)>1 ^IVM(301.6,""AC"",$P(^(0),""^"",3),X,DA)="""""
^DD(301.6,.02,1,3,2)="K ^IVM(301.6,""AC"",+$P(^IVM(301.6,DA,0),""^"",3),X,DA)"
^DD(301.6,.02,1,3,"%D",0)="^^5^5^2940629^^^"
^DD(301.6,.02,1,3,"%D",1,0)=" "
^DD(301.6,.02,1,3,"%D",2,0)="This cross-reference is used in conjunction with the AC cross-reference of"
^DD(301.6,.02,1,3,"%D",3,0)="the STATUS (.03) field to cross-reference transmitted messages with a"
^DD(301.6,.02,1,3,"%D",4,0)="status of 2 (re-transmitted) or 3 (error in transmitted record) by status"
^DD(301.6,.02,1,3,"%D",5,0)="and transmitted date/time."
^DD(301.6,.02,1,3,"DT")="2940610"
^DD(301.6,.02,3)="Enter the date/time on which this transmission occurred."
^DD(301.6,.02,21,0)="^^3^3^2940404^^^^"
^DD(301.6,.02,21,1,0)=" "
^DD(301.6,.02,21,2,0)="This field contains the date/time that data for the IVM PATIENT was"
^DD(301.6,.02,21,3,0)="transmitted to the IVM Center."
^DD(301.6,.02,22)=""
^DD(301.6,.02,"DT")="2940610"
^DD(301.6,.03,0)="STATUS^S^1:RECEIVED;0:TRANSMITTED;2:RE-TRANSMITTED;3:ERROR IN TRANSMITTED RECORD;^0;3^Q"
^DD(301.6,.03,1,0)="^.1"
^DD(301.6,.03,1,1,0)="301.6^AB1^MUMPS"
^DD(301.6,.03,1,1,1)="I X=0,$P(^IVM(301.6,DA,0),""^"",2) S ^IVM(301.6,""AB"",$P(^(0),""^"",2),DA)="""""
^DD(301.6,.03,1,1,2)="K ^IVM(301.6,""AB"",+$P(^IVM(301.6,DA,0),""^"",2),DA)"
^DD(301.6,.03,1,1,"%D",0)="^^5^5^2940629^^^"
^DD(301.6,.03,1,1,"%D",1,0)=" "
^DD(301.6,.03,1,1,"%D",2,0)="This cross-reference is used in conjunction with the AB cross-reference on"
^DD(301.6,.03,1,1,"%D",3,0)="the TRANSMISSION DATE/TIME (.02) field to cross-reference transmitted"
^DD(301.6,.03,1,1,"%D",4,0)="messages with a status of 0 (indicating transmission to the IVM Center and"
^DD(301.6,.03,1,1,"%D",5,0)="no acknowledgement has been received) by transmitted date/time."
^DD(301.6,.03,1,1,"DT")="2940629"
^DD(301.6,.03,1,2,0)="301.6^AC1^MUMPS"
^DD(301.6,.03,1,2,1)="I X>1,$P(^IVM(301.6,DA,0),""^"",2) S ^IVM(301.6,""AC"",X,$P(^(0),""^"",2),DA)="""""
^DD(301.6,.03,1,2,2)="K ^IVM(301.6,""AC"",X,+$P(^IVM(301.6,DA,0),""^"",2),DA)"
^DD(301.6,.03,1,2,"%D",0)="^^5^5^2940629^^"
^DD(301.6,.03,1,2,"%D",1,0)=" "
^DD(301.6,.03,1,2,"%D",2,0)="This cross-reference is used in conjunction with the AC cross-reference of"
^DD(301.6,.03,1,2,"%D",3,0)="the TRANSMISSION DATE/TIME (.02) field to cross-reference transmitted"
^DD(301.6,.03,1,2,"%D",4,0)="messages with a status of 2 (re-transmitted) or 3 (error in transmitted"
^DD(301.6,.03,1,2,"%D",5,0)="record) by status and transmission date/time.."
^DD(301.6,.03,1,2,"DT")="2940629"
^DD(301.6,.03,1,3,0)="301.6^ADS1^MUMPS"
^DD(301.6,.03,1,3,1)="I X=0,$P(^IVM(301.6,DA,0),""^"",5) S ^IVM(301.6,""ADS"",$P(^(0),""^"",5),DA)="""""
^DD(301.6,.03,1,3,2)="I $G(DATA(.03))'=2 I $P(^IVM(301.6,DA,0),""^"",5)]"""" K ^IVM(301.6,""ADS"",$P(^(0),""^"",5),DA)"
^DD(301.6,.03,1,3,"%D",0)="^^5^5^2940610^^"
^DD(301.6,.03,1,3,"%D",1,0)=" "
^DD(301.6,.03,1,3,"%D",2,0)="This cross-reference is used in conjunction with the ADS cross-reference"
^DD(301.6,.03,1,3,"%D",3,0)="on the MESSAGE CONTROL ID (.05) field to cross-reference transmitted"
^DD(301.6,.03,1,3,"%D",4,0)="messages with a status of 0 (indicating transmission to the IVM Center and"
^DD(301.6,.03,1,3,"%D",5,0)="no acknowledgement has been received) by message control id."
^DD(301.6,.03,1,3,"DT")="2940610"
^DD(301.6,.03,1,4,0)="301.6^AE1^MUMPS"
^DD(301.6,.03,1,4,1)="I X=0,$P($P(^IVM(301.6,DA,0),""^"",5),""-"")]"""" S ^IVM(301.6,""AE"",$P($P(^(0),""^"",5),""-""),DA)="""""
^DD(301.6,.03,1,4,2)="I $P($P(^IVM(301.6,DA,0),""^"",5),""-"")]"""" K ^IVM(301.6,""AE"",$P($P(^(0),""^"",5),""-""),DA)"
^DD(301.6,.03,1,4,"%D",0)="^^6^6^2940909^"
^DD(301.6,.03,1,4,"%D",1,0)="This cross-reference is used in conjunction with the AE cross-reference"
^DD(301.6,.03,1,4,"%D",2,0)="on the MESSAGE CONTROL ID (.05) field to cross-reference transmitted"
^DD(301.6,.03,1,4,"%D",3,0)="messages with a status of 0 (indicating transmission to the IVM Center and"
^DD(301.6,.03,1,4,"%D",4,0)="acknowledgement has been received) by the first ""-"" piece of the"
^DD(301.6,.03,1,4,"%D",5,0)="message control id.  This is actually the original message control"
^DD(301.6,.03,1,4,"%D",6,0)="id, before the batch counter was appended to it."
^DD(301.6,.03,1,4,"DT")="2940909"
^DD(301.6,.03,3)="Enter 0 if transmitted to IVM Center.  Enter 1 if transmission received by IVM Center.  Enter 2 if re-transmitted to IVM Center.  Enter 3 if error in transmission to IVM Center."
^DD(301.6,.03,21,0)="^^6^6^2931230^"
^DD(301.6,.03,21,1,0)=" "
^DD(301.6,.03,21,2,0)="This field will contain a 0 if the record has transmitted to the IVM"
^DD(301.6,.03,21,3,0)="Center.  It will contain a 1 if acknowledgement of the transmission has"
^DD(301.6,.03,21,4,0)="has been received from the IVM Center. It will contain a 2 if record"
^DD(301.6,.03,21,5,0)="re-transmitted to the IVM Center.  It will contain a 3 if error in"
^DD(301.6,.03,21,6,0)="record received by the IVM Center."
^DD(301.6,.03,"DT")="2940909"
^DD(301.6,.04,0)="ERROR MESSAGE^F^^0;4^K:$L(X)>80!($L(X)<3) X"
^DD(301.6,.04,3)="Error message for erroneous record received by the IVM Center."
^DD(301.6,.04,21,0)="^^3^3^2931230^"
^DD(301.6,.04,21,1,0)=" "
^DD(301.6,.04,21,2,0)="When STATUS field is 3 (error in transmitted record) this field will"
^DD(301.6,.04,21,3,0)="contain the error message received from the IVM Center."
^DD(301.6,.04,"DT")="2931230"
^DD(301.6,.05,0)="MESSAGE CONTROL ID^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<1) X"
^DD(301.6,.05,1,0)="^.1"
^DD(301.6,.05,1,1,0)="301.6^ADS^MUMPS"
^DD(301.6,.05,1,1,1)="S:$P(^IVM(301.6,DA,0),""^"",3)=0 ^IVM(301.6,""ADS"",X,DA)="""""
^DD(301.6,.05,1,1,2)="K ^IVM(301.6,""ADS"",X,DA)"
^DD(301.6,.05,1,1,"%D",0)="^^5^5^2940405^"
^DD(301.6,.05,1,1,"%D",1,0)=" "
^DD(301.6,.05,1,1,"%D",2,0)="This cross-reference is used in conjunction with the ADS cross-reference"
^DD(301.6,.05,1,1,"%D",3,0)="on the STATUS (.03) field to cross-reference transmitted messages with a"
^DD(301.6,.05,1,1,"%D",4,0)="status of 0 (indicating transmission to the IVM Center and no"
^DD(301.6,.05,1,1,"%D",5,0)="acknowledgement has been received) by message control id."
^DD(301.6,.05,1,1,"DT")="2940405"
^DD(301.6,.05,1,2,0)="301.6^AE^MUMPS"
^DD(301.6,.05,1,2,1)="I $P(^IVM(301.6,DA,0),""^"",3)=0,$P(X,""-"")]"""" S ^IVM(301.6,""AE"",$P(X,""-""),DA)="""""
^DD(301.6,.05,1,2,2)="I $P(X,""-"")]"""" K ^IVM(301.6,""AE"",$P(X,""-""),DA)"
^DD(301.6,.05,1,2,"%D",0)="^^6^6^2940909^"
^DD(301.6,.05,1,2,"%D",1,0)="This cross-reference is used in conjunction with the AE1 cross-reference"
^DD(301.6,.05,1,2,"%D",2,0)="on the STATUS (.03) field to cross-reference transmitted messages with a"
^DD(301.6,.05,1,2,"%D",3,0)="status of 0 (indicating transmission to the IVM Center and no"
^DD(301.6,.05,1,2,"%D",4,0)="acknowledgement has been received) by the first ""-"" piece of the"
^DD(301.6,.05,1,2,"%D",5,0)="message control id.  This is actually the original message control"
^DD(301.6,.05,1,2,"%D",6,0)="id, before the batch counter was appended to it."
^DD(301.6,.05,1,2,"DT")="2940909"
^DD(301.6,.05,3)="Answer must be 1-18 characters in length."
^DD(301.6,.05,21,0)="^^6^6^2970922^^^"
^DD(301.6,.05,21,1,0)="This field contains the Message Control ID of the HL7 message used"
^DD(301.6,.05,21,2,0)="to transmit the Means Test data to the IVM Center.  Most transmissions"
^DD(301.6,.05,21,3,0)="are submitted in batch, and the batch record counter is concatenated"
^DD(301.6,.05,21,4,0)="to the Message Control ID in those cases.  This extended string would"
^DD(301.6,.05,21,5,0)="then be filed in this field.  An example of a Message Control ID"
^DD(301.6,.05,21,6,0)="with a concatenated batch record counter is '2940501.010213-25'."
^DD(301.6,.05,"DT")="2970922"
^DD(301.6,.06,0)="DATE/TIME ACK RECEIVED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.6,.06,1,0)="^.1"
^DD(301.6,.06,1,1,0)="301.6^AEPS1^MUMPS"
^DD(301.6,.06,1,1,1)="S:$P(^IVM(301.6,DA,0),U,7) ^IVM(301.6,""AEPS"",X,+$P(^(0),U,7),+$P(^(0),U),DA)="""""
^DD(301.6,.06,1,1,2)="K ^IVM(301.6,""AEPS"",X,+$P(^IVM(301.6,DA,0),U,7),+$P(^(0),U),DA)"
^DD(301.6,.06,1,1,"%D",0)="^^2^2^2970924^"
^DD(301.6,.06,1,1,"%D",1,0)="This cross-reference can be used to sort by date received by"
^DD(301.6,.06,1,1,"%D",2,0)="error processing status by patient by internal entry number."
^DD(301.6,.06,1,1,"DT")="2970924"
^DD(301.6,.06,3)="Enter the date and time the acknowledgment was received."
^DD(301.6,.06,21,0)="^^1^1^2970925^"
^DD(301.6,.06,21,1,0)="Used to record the date and time that an acknowledgment was received."
^DD(301.6,.06,"DT")="2970924"
^DD(301.6,.07,0)="ERROR PROCESSING STATUS^S^1:NEW;2:CHECKED;^0;7^Q"
^DD(301.6,.07,1,0)="^.1"
^DD(301.6,.07,1,1,0)="301.6^AEPS^MUMPS"
^DD(301.6,.07,1,1,1)="S:$P(^IVM(301.6,DA,0),U,6) ^IVM(301.6,""AEPS"",+$P(^(0),U,6),X,+$P(^(0),U),DA)="""""
^DD(301.6,.07,1,1,2)="K ^IVM(301.6,""AEPS"",+$P(^IVM(301.6,DA,0),U,6),X,+$P(^(0),U),DA)"
^DD(301.6,.07,1,1,"%D",0)="^^2^2^2970924^^"
^DD(301.6,.07,1,1,"%D",1,0)="This cross-reference can be used to sort by date received by"
^DD(301.6,.07,1,1,"%D",2,0)="error processing status by patient by internal entry number."
^DD(301.6,.07,1,1,"DT")="2970924"
^DD(301.6,.07,3)="If the acknowledgment indicated an error, this field is used to track the processing of the error."
^DD(301.6,.07,21,0)="^^2^2^2970925^"
^DD(301.6,.07,21,1,0)="Used to track the processing of the error by the local site.  Only applies"
^DD(301.6,.07,21,2,0)="if the acknowledgment was returned with an error message."
^DD(301.6,.07,"DT")="2970930"
^DD(301.6,1.01,0)="MEANS TEST STATUS^RP408.32'^DG(408.32,^1;1^Q"
^DD(301.6,1.01,3)="Enter the patient's means test status at the time of transmission."
^DD(301.6,1.01,21,0)="^^4^4^2930510^"
^DD(301.6,1.01,21,1,0)=" "
^DD(301.6,1.01,21,2,0)="This field will contain the means test status of the patient's means test"
^DD(301.6,1.01,21,3,0)="for the given year at the time of the transmission.  This data is entered"
^DD(301.6,1.01,21,4,0)="automatically by the IVM transmission software and should not be edited."
^DD(301.6,1.01,"DT")="2930510"
^DD(301.6,1.02,0)="INSURANCE STATUS^RS^1:HAS ACTIVE INSURANCE;0:DOES NOT HAVE ACTIVE INSURANCE;^1;2^Q"
^DD(301.6,1.02,3)="Enter the patient's insurance status at the time of this transmission."
^DD(301.6,1.02,21,0)="^^7^7^2930510^"
^DD(301.6,1.02,21,1,0)=" "
^DD(301.6,1.02,21,2,0)="This field will contain a 1 if the patient had active insurance at the"
^DD(301.6,1.02,21,3,0)="time this data was transmitted to the IVM Center.  If the patient did not"
^DD(301.6,1.02,21,4,0)="have active insurance at the time, a 0 will be transmitted."
^DD(301.6,1.02,21,5,0)=" "
^DD(301.6,1.02,21,6,0)="This data is updated automatically by the IVM transmission software and"
^DD(301.6,1.02,21,7,0)="should not be edited."
^DD(301.6,1.02,"DT")="2930510"
^DD(301.6,30.01,0)="IVM EVENT^S^0:NO;1:YES;^E;1^Q"
^DD(301.6,30.01,3)="Was the transmission made due to an IVM event?"
^DD(301.6,30.01,21,0)="^^2^2^2970909^"
^DD(301.6,30.01,21,1,0)="This indicates whether or not the transmission was made due to an IVM"
^DD(301.6,30.01,21,2,0)="event."
^DD(301.6,30.01,"DT")="2970909"
^DD(301.6,30.02,0)="DCD EVENT^S^0:NO;1:YES;^E;2^Q"
^DD(301.6,30.02,3)="Was transmission made due to a DCD event?"
^DD(301.6,30.02,21,0)="^^1^1^2970909^^"
^DD(301.6,30.02,21,1,0)="This indicates whether or not transmissin was made due to a DCD event."
^DD(301.6,30.02,"DT")="2970909"
^DD(301.6,30.03,0)="ENROLLMENT EVENT^S^0:NO;1:YES;^E;3^Q"
^DD(301.6,30.03,3)="Was transmission made due to an enrollment event?"
^DD(301.6,30.03,21,0)="^^2^2^2970909^"
^DD(301.6,30.03,21,1,0)="Used to indicate whether or not transmission was made due to an enrollment"
^DD(301.6,30.03,21,2,0)="event."
^DD(301.6,30.03,"DT")="2970909"
^DD(301.6,"B","DATE/TIME ACK RECEIVED",.06)=""
^DD(301.6,"B","DCD EVENT",30.02)=""
^DD(301.6,"B","ENROLLMENT EVENT",30.03)=""
^DD(301.6,"B","ERROR MESSAGE",.04)=""
^DD(301.6,"B","ERROR PROCESSING STATUS",.07)=""
^DD(301.6,"B","INSURANCE STATUS",1.02)=""
^DD(301.6,"B","IVM EVENT",30.01)=""
^DD(301.6,"B","IVM PATIENT",.01)=""
^DD(301.6,"B","MEANS TEST STATUS",1.01)=""
^DD(301.6,"B","MESSAGE CONTROL ID",.05)=""
^DD(301.6,"B","STATUS",.03)=""
^DD(301.6,"B","TRANSMISSION DATE/TIME",.02)=""
^DD(301.6,"GL",0,1,.01)=""
^DD(301.6,"GL",0,2,.02)=""
^DD(301.6,"GL",0,3,.03)=""
^DD(301.6,"GL",0,4,.04)=""
^DD(301.6,"GL",0,5,.05)=""
^DD(301.6,"GL",0,6,.06)=""
^DD(301.6,"GL",0,7,.07)=""
^DD(301.6,"GL",1,1,1.01)=""
^DD(301.6,"GL",1,2,1.02)=""
^DD(301.6,"GL","E",1,30.01)=""
^DD(301.6,"GL","E",2,30.02)=""
^DD(301.6,"GL","E",3,30.03)=""
^DD(301.6,"IX",.01)=""
^DD(301.6,"IX",.02)=""
^DD(301.6,"IX",.03)=""
^DD(301.6,"IX",.05)=""
^DD(301.6,"IX",.06)=""
^DD(301.6,"IX",.07)=""
^DD(301.6,"RQ",.01)=""
^DD(301.6,"RQ",1.01)=""
^DD(301.6,"RQ",1.02)=""
^DD(301.61,0)="FIELD^^1.04^18"
^DD(301.61,0,"DT")="2940613"
^DD(301.61,0,"IX","ATR",301.61,.02)=""
^DD(301.61,0,"IX","ATR1",301.61,.12)=""
^DD(301.61,0,"IX","ATR2",301.61,.05)=""
^DD(301.61,0,"IX","B",301.61,.01)=""
^DD(301.61,0,"IX","C",301.61,.02)=""
^DD(301.61,0,"NM","IVM BILLING TRANSMISSION")=""
^DD(301.61,0,"VR")="2.0"
^DD(301.61,0,"VRPK")="IVM"
^DD(301.61,.01,0)="REFERENCE NUMBER^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(301.61,.01,1,0)="^.1"
^DD(301.61,.01,1,1,0)="301.61^B"
^DD(301.61,.01,1,1,1)="S ^IVM(301.61,""B"",$E(X,1,30),DA)="""""
^DD(301.61,.01,1,1,2)="K ^IVM(301.61,""B"",$E(X,1,30),DA)"
^DD(301.61,.01,3)="Answer must be 1-20 characters in length."
^DD(301.61,.01,21,0)="^^4^4^2940825^^^"
^DD(301.61,.01,21,1,0)="This field is used to uniquely identify each bill or charge which"
^DD(301.61,.01,21,2,0)="is stored in this file.  This number will be equal to the bill"
^DD(301.61,.01,21,3,0)="number for insurance claims, or to the REFERENCE NUMBER (#.01)"
^DD(301.61,.01,21,4,0)="for charges stored in file #350, INTEGRATED BILLING ACTIONS."
^DD(301.61,.01,"DT")="2940613"
^DD(301.61,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(301.61,.02,1,0)="^.1"
^DD(301.61,.02,1,1,0)="301.61^C"
^DD(301.61,.02,1,1,1)="S ^IVM(301.61,""C"",$E(X,1,30),DA)="""""
^DD(301.61,.02,1,1,2)="K ^IVM(301.61,""C"",$E(X,1,30),DA)"
^DD(301.61,.02,1,1,"DT")="2940612"
^DD(301.61,.02,1,2,0)="301.61^ATR^MUMPS"
^DD(301.61,.02,1,2,1)="D SETATR^EASUFNC3(DA,X)"
^DD(301.61,.02,1,2,2)="D KILLATR^EASUFNC3(DA,X)"
^DD(301.61,.02,1,2,"%D",0)="^^4^4^3031222^"
^DD(301.61,.02,1,2,"%D",1,0)="This cross reference lists all billing transmission records, by patient,"
^DD(301.61,.02,1,2,"%D",2,0)="& Income Year billing occurred in, which need to be transmitted to the IVM"
^DD(301.61,.02,1,2,"%D",3,0)="Center. The 'ATR1' cross reference on the TRANSMIT BILL (#.12) field is "
^DD(301.61,.02,1,2,"%D",4,0)="the companion to this cross reference."
^DD(301.61,.02,1,2,"DT")="3031222"
^DD(301.61,.02,21,0)="^^2^2^2940612^"
^DD(301.61,.02,21,1,0)="This field points to the patient (in file #2) for whom the charge"
^DD(301.61,.02,21,2,0)="or bill was created."
^DD(301.61,.02,"DT")="3031222"
^DD(301.61,.03,0)="CLASSIFICATION^S^1:INPATIENT;2:OUTPATIENT;3:PHARMACY REFILL;4:PROSTHETICS;^0;3^Q"
^DD(301.61,.03,21,0)="^^2^2^2940612^"
^DD(301.61,.03,21,1,0)="This field is used to determine whether the bill was for inpatient"
^DD(301.61,.03,21,2,0)="or outpatient care, or for a Pharmacy refill or a Prosthetics bill."
^DD(301.61,.03,"DT")="2940612"
^DD(301.61,.04,0)="BILL TYPE^S^1:INS CLAIM;2:COPAYMENT;3:PER DIEM;^0;4^Q"
^DD(301.61,.04,21,0)="^^3^3^2940825^^"
^DD(301.61,.04,21,1,0)="This field is used to determine whether the bill was a claim to an"
^DD(301.61,.04,21,2,0)="insurance company or direct charge to the patient (Means Test"
^DD(301.61,.04,21,3,0)="copayment or per diem charge)."
^DD(301.61,.04,"DT")="2940612"
^DD(301.61,.05,0)="BILL FROM^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.61,.05,1,0)="^.1"
^DD(301.61,.05,1,1,0)="301.61^ATR2^MUMPS"
^DD(301.61,.05,1,1,1)="D SETATR^EASUFNC3(DA,$P(^IVM(301.61,DA,0),""^"",2))"
^DD(301.61,.05,1,1,2)="D KILLATR^EASUFNC3(DA,$P(^IVM(301.61,DA,0),""^"",2))"
^DD(301.61,.05,1,1,"%D",0)="^^4^4^3031222^"
^DD(301.61,.05,1,1,"%D",1,0)="This cross reference is used to list all billing transmission records, "
^DD(301.61,.05,1,1,"%D",2,0)="by patient & Income Year billing occurred in, which need to be tranmitted"
^DD(301.61,.05,1,1,"%D",3,0)="to the IVM Center.  The 'ATR' cross reference on the PATIENT (#.02) field"
^DD(301.61,.05,1,1,"%D",4,0)="is the companion to this cross reference."
^DD(301.61,.05,1,1,"DT")="3031222"
^DD(301.61,.05,21,0)="^^2^2^2940825^^"
^DD(301.61,.05,21,1,0)="This field is used to store the initial date of care which is covered"
^DD(301.61,.05,21,2,0)="on the bill."
^DD(301.61,.05,23,0)="^^2^2^2940825^"
^DD(301.61,.05,23,1,0)="The value of this field is retrieved from field #.14 of file #350,"
^DD(301.61,.05,23,2,0)="or field #151 of file #399."
^DD(301.61,.05,"DT")="3031222"
^DD(301.61,.06,0)="BILL TO^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.61,.06,3)=""
^DD(301.61,.06,21,0)="^^2^2^2940825^^^"
^DD(301.61,.06,21,1,0)="This field is used to store the final date for care which is covered"
^DD(301.61,.06,21,2,0)="by the bill."
^DD(301.61,.06,23,0)="^^2^2^2940825^"
^DD(301.61,.06,23,1,0)="The value of this field is retrieved from field #.15 of file #350,"
^DD(301.61,.06,23,2,0)="or field #152 of file #399."
^DD(301.61,.06,"DT")="2940612"
^DD(301.61,.07,0)="DATE BILL CREATED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.61,.07,3)=""
^DD(301.61,.07,21,0)="^^2^2^2940825^^"
^DD(301.61,.07,21,1,0)="This field is used to store the date on which the bill was processed"
^DD(301.61,.07,21,2,0)="and passed to the Accounts Receivable module."
^DD(301.61,.07,23,0)="^^2^2^2940825^"
^DD(301.61,.07,23,1,0)="The value of this field is retrieved from field #14 of file #350,"
^DD(301.61,.07,23,2,0)="or field #12 of file #399."
^DD(301.61,.07,"DT")="2940612"
^DD(301.61,.08,0)="AMOUNT BILLED^NJ11,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(301.61,.08,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(301.61,.08,21,0)="^^1^1^2940825^^"
^DD(301.61,.08,21,1,0)="This field is used to store the total amount that was billed."
^DD(301.61,.08,23,0)="^^3^3^2940825^"
^DD(301.61,.08,23,1,0)="The value of this field is retrieved from field #.07 of file #350,"
^DD(301.61,.08,23,2,0)="or the Original Amount of the receivable established in the AR"
^DD(301.61,.08,23,3,0)="package."
^DD(301.61,.08,"DT")="2940612"
^DD(301.61,.09,0)="AMOUNT COLLECTED^NJ11,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(301.61,.09,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(301.61,.09,21,0)="^^2^2^2940825^^"
^DD(301.61,.09,21,1,0)="This field is used to store the total amount collected an the bill."
^DD(301.61,.09,21,2,0)="This field will only be used for insurance claims."
^DD(301.61,.09,23,0)="^^2^2^2940825^"
^DD(301.61,.09,23,1,0)="For insurance claims. this is the total paid principal established"
^DD(301.61,.09,23,2,0)="in the AR package."
^DD(301.61,.09,"DT")="2940612"
^DD(301.61,.1,0)="DATE BILL CLOSED^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.61,.1,21,0)="^^3^3^2940825^^"
^DD(301.61,.1,21,1,0)="This field is used to store the date that a bill was closed out"
^DD(301.61,.1,21,2,0)="in Accounts Receivable.  This field is only used for insurance"
^DD(301.61,.1,21,3,0)="claims."
^DD(301.61,.1,23,0)="^^2^2^2940825^"
^DD(301.61,.1,23,1,0)="For insurance claims. this is the date the receivable was closed"
^DD(301.61,.1,23,2,0)="out in the AR package."
^DD(301.61,.1,"DT")="2940612"
^DD(301.61,.11,0)="BILL CANCELLED^S^0:NO;1:YES;^0;11^Q"
^DD(301.61,.11,21,0)="^^1^1^2940612^"
^DD(301.61,.11,21,1,0)="This field is used to flag bills which were subsequently cancelled."
^DD(301.61,.11,"DT")="2940612"
^DD(301.61,.12,0)="TRANSMIT BILL^S^0:NO;1:YES;^0;12^Q"
^DD(301.61,.12,1,0)="^.1"
^DD(301.61,.12,1,1,0)="301.61^ATR1^MUMPS"
^DD(301.61,.12,1,1,1)="D SETATR^EASUFNC3(DA,$P(^IVM(301.61,DA,0),""^"",2))"
^DD(301.61,.12,1,1,2)="D KILLATR^EASUFNC3(DA,$P(^IVM(301.61,DA,0),""^"",2))"
^DD(301.61,.12,1,1,"%D",0)="^^4^4^3031222^"
^DD(301.61,.12,1,1,"%D",1,0)="This cross reference is used to list all billing transmission records,"
^DD(301.61,.12,1,1,"%D",2,0)="by patient & Income Year billing occurred in, which need to be tranmitted "
^DD(301.61,.12,1,1,"%D",3,0)="to the IVM Center.  The 'ATR' cross reference on the PATIENT (#.02) field"
^DD(301.61,.12,1,1,"%D",4,0)="is the companion to this cross reference."
^DD(301.61,.12,1,1,"DT")="3031222"
^DD(301.61,.12,21,0)="^^2^2^2940612^"
^DD(301.61,.12,21,1,0)="This field is used to determine whether the billing information"
^DD(301.61,.12,21,2,0)="should be transmitted to the IVM Center."
^DD(301.61,.12,"DT")="3031222"
^DD(301.61,.13,0)="DATE LAST TRANSMITTED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.61,.13,21,0)="^^2^2^2940612^"
^DD(301.61,.13,21,1,0)="This field is used to store the last date/time that the billing"
^DD(301.61,.13,21,2,0)="information was transmitted to the IVM Center."
^DD(301.61,.13,"DT")="2940612"
^DD(301.61,.14,0)="STOP TRANSMISSIONS^S^0:NO;1:YES;^0;14^Q"
^DD(301.61,.14,21,0)="^^2^2^2940612^"
^DD(301.61,.14,21,1,0)="This field is used to determine whether any additional billing"
^DD(301.61,.14,21,2,0)="information needs to be transmitted to the IVM Center."
^DD(301.61,.14,"DT")="2940612"
^DD(301.61,1.01,0)="DATE ENTRY ADDED^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.61,1.01,21,0)="^^1^1^2940612^"
^DD(301.61,1.01,21,1,0)="This field stores the date/time that the entry was added to the file."
^DD(301.61,1.01,"DT")="2940612"
^DD(301.61,1.02,0)="USER ADDING ENTRY^P200'^VA(200,^1;2^Q"
^DD(301.61,1.02,21,0)="^^2^2^2940612^"
^DD(301.61,1.02,21,1,0)="This field stores the user who added, or caused the entry to be added"
^DD(301.61,1.02,21,2,0)="to the file."
^DD(301.61,1.02,"DT")="2940612"
^DD(301.61,1.03,0)="DATE LAST UPDATED^D^^1;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.61,1.03,21,0)="^^1^1^2940612^"
^DD(301.61,1.03,21,1,0)="This field stores the date/time that the entry was last updated."
^DD(301.61,1.03,"DT")="2940612"
^DD(301.61,1.04,0)="USER UPDATING ENTRY^P200'^VA(200,^1;4^Q"
^DD(301.61,1.04,21,0)="^^2^2^2940612^"
^DD(301.61,1.04,21,1,0)="This field stores the user who updated, or caused the record to"
^DD(301.61,1.04,21,2,0)="be updated."
^DD(301.61,1.04,"DT")="2940612"
^DD(301.61,"B","AMOUNT BILLED",.08)=""
^DD(301.61,"B","AMOUNT COLLECTED",.09)=""
^DD(301.61,"B","BILL CANCELLED",.11)=""
^DD(301.61,"B","BILL FROM",.05)=""
^DD(301.61,"B","BILL TO",.06)=""
^DD(301.61,"B","BILL TYPE",.04)=""
^DD(301.61,"B","CLASSIFICATION",.03)=""
^DD(301.61,"B","DATE BILL CLOSED",.1)=""
^DD(301.61,"B","DATE BILL CREATED",.07)=""
^DD(301.61,"B","DATE ENTRY ADDED",1.01)=""
^DD(301.61,"B","DATE LAST TRANSMITTED",.13)=""
^DD(301.61,"B","DATE LAST UPDATED",1.03)=""
^DD(301.61,"B","PATIENT",.02)=""
^DD(301.61,"B","REFERENCE NUMBER",.01)=""
^DD(301.61,"B","STOP TRANSMISSIONS",.14)=""
^DD(301.61,"B","TRANSMIT BILL",.12)=""
^DD(301.61,"B","USER ADDING ENTRY",1.02)=""
^DD(301.61,"B","USER UPDATING ENTRY",1.04)=""
^DD(301.61,"GL",0,1,.01)=""
^DD(301.61,"GL",0,2,.02)=""
^DD(301.61,"GL",0,3,.03)=""
^DD(301.61,"GL",0,4,.04)=""
^DD(301.61,"GL",0,5,.05)=""
^DD(301.61,"GL",0,6,.06)=""
^DD(301.61,"GL",0,7,.07)=""
^DD(301.61,"GL",0,8,.08)=""
^DD(301.61,"GL",0,9,.09)=""
^DD(301.61,"GL",0,10,.1)=""
^DD(301.61,"GL",0,11,.11)=""
^DD(301.61,"GL",0,12,.12)=""
^DD(301.61,"GL",0,13,.13)=""
^DD(301.61,"GL",0,14,.14)=""
^DD(301.61,"GL",1,1,1.01)=""
^DD(301.61,"GL",1,2,1.02)=""
^DD(301.61,"GL",1,3,1.03)=""
^DD(301.61,"GL",1,4,1.04)=""
^DD(301.61,"IX",.01)=""
^DD(301.61,"IX",.02)=""
^DD(301.61,"IX",.05)=""
^DD(301.61,"IX",.12)=""
^DD(301.61,"RQ",.01)=""
^DD(301.62,0)="FIELD^^1.03^11"
^DD(301.62,0,"DDA")="N"
^DD(301.62,0,"DT")="2980611"
^DD(301.62,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(301.62,0,"IX","AC",301.62,.03)=""
^DD(301.62,0,"IX","ADT",301.62,.02)=""
^DD(301.62,0,"IX","ADT1",301.62,.02)=""
^DD(301.62,0,"IX","B",301.62,.01)=""
^DD(301.62,0,"IX","C",301.62,.05)=""
^DD(301.62,0,"NM","IVM FINANCIAL QUERY LOG")=""
^DD(301.62,0,"VR")="2.0"
^DD(301.62,0,"VRPK")="IVM"
^DD(301.62,.01,0)="PATIENT^RP2^DPT(^0;1^Q"
^DD(301.62,.01,1,0)="^.1"
^DD(301.62,.01,1,1,0)="301.62^B"
^DD(301.62,.01,1,1,1)="S ^IVM(301.62,""B"",$E(X,1,30),DA)="""""
^DD(301.62,.01,1,1,2)="K ^IVM(301.62,""B"",$E(X,1,30),DA)"
^DD(301.62,.01,3)="Enter the pointer to the PATIENT file which corresponds to the patient for which the query transmission to the HEC is being generated."
^DD(301.62,.01,21,0)="^^1^1^2980522^^^"
^DD(301.62,.01,21,1,0)="The patient for whom the query was sent."
^DD(301.62,.01,"DT")="2950119"
^DD(301.62,.02,0)="QUERY TRANSMISSION DATE/TIME^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.62,.02,1,0)="^.1^^-1"
^DD(301.62,.02,1,1,0)="301.62^ADT"
^DD(301.62,.02,1,1,1)="S ^IVM(301.62,""ADT"",$E(X,1,30),DA)="""""
^DD(301.62,.02,1,1,2)="K ^IVM(301.62,""ADT"",$E(X,1,30),DA)"
^DD(301.62,.02,1,1,"%D",0)="^^2^2^2980522^^"
^DD(301.62,.02,1,1,"%D",1,0)="This cross reference will store the date/time of each transmission to the"
^DD(301.62,.02,1,1,"%D",2,0)="HEC."
^DD(301.62,.02,1,1,"DT")="2950510"
^DD(301.62,.02,1,3,0)="301.62^ADT1^MUMPS"
^DD(301.62,.02,1,3,1)="S:$P(^IVM(301.62,DA,0),U) ^IVM(301.62,""ADT1"",+$P(^IVM(301.62,DA,0),U),+X,DA)="""""
^DD(301.62,.02,1,3,2)="K ^IVM(301.62,""ADT1"",+$P(^IVM(301.62,DA,0),U),+X,DA)"
^DD(301.62,.02,1,3,"%D",0)="^^2^2^2970123^"
^DD(301.62,.02,1,3,"%D",1,0)="This cross reference can be used to sort by patient, by Query Transmission"
^DD(301.62,.02,1,3,"%D",2,0)="Date/Time, by internal entry number."
^DD(301.62,.02,1,3,"DT")="2970123"
^DD(301.62,.02,3)="Enter the date/time on which this query transmission occurred."
^DD(301.62,.02,21,0)="^^2^2^2980522^^"
^DD(301.62,.02,21,1,0)="This field contains the the date/time that the query for the PATIENT was"
^DD(301.62,.02,21,2,0)="transmitted to the HEC."
^DD(301.62,.02,"DT")="2970123"
^DD(301.62,.03,0)="QUERY STATUS^S^0:TRANSMITTED;1:CLOSED;^0;3^Q"
^DD(301.62,.03,1,0)="^.1"
^DD(301.62,.03,1,1,0)="301.62^AC^MUMPS"
^DD(301.62,.03,1,1,1)="I X=0 S ^IVM(301.62,""AC"",0,DA)="""""
^DD(301.62,.03,1,1,2)="I X=0 K ^IVM(301.62,""AC"",0,DA)"
^DD(301.62,.03,1,1,"%D",0)="^^5^5^2980522^^"
^DD(301.62,.03,1,1,"%D",1,0)="This cross-reference will contain only those records for which a query"
^DD(301.62,.03,1,1,"%D",2,0)="transmission has been sent to the HEC and no response to the"
^DD(301.62,.03,1,1,"%D",3,0)="query has been sent back.  Once the query transmission for the record has"
^DD(301.62,.03,1,1,"%D",4,0)="been transmitted, this field will be changed to 1 for transmitted and the"
^DD(301.62,.03,1,1,"%D",5,0)="cross-reference will be removed."
^DD(301.62,.03,1,1,"DT")="2950421"
^DD(301.62,.03,3)="Enter 0 if query was transmitted to HEC.  Enter 1 if query record closed.  "
^DD(301.62,.03,21,0)="^^4^4^2980522^^"
^DD(301.62,.03,21,1,0)="This field will contain a 0 if the record has been transmitted to the"
^DD(301.62,.03,21,2,0)="HEC.  It will contain a 1 if acknowledgement of the transmission has"
^DD(301.62,.03,21,3,0)="has been received from the HEC or the IVM software module has"
^DD(301.62,.03,21,4,0)="closed the query record."
^DD(301.62,.03,"DT")="2950421"
^DD(301.62,.04,0)="TRANSMITTED BY^P200'^VA(200,^0;4^Q"
^DD(301.62,.04,21,0)="^^2^2^2980522^^"
^DD(301.62,.04,21,1,0)="This field is used to indicate which person caused the query transmission"
^DD(301.62,.04,21,2,0)="to be sent to the HEC."
^DD(301.62,.04,"DT")="2950504"
^DD(301.62,.05,0)="HL7 MESSAGE CONTROL ID^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(301.62,.05,1,0)="^.1"
^DD(301.62,.05,1,1,0)="301.62^C"
^DD(301.62,.05,1,1,1)="S ^IVM(301.62,""C"",$E(X,1,30),DA)="""""
^DD(301.62,.05,1,1,2)="K ^IVM(301.62,""C"",$E(X,1,30),DA)"
^DD(301.62,.05,1,1,"DT")="2980528"
^DD(301.62,.05,3)="Answer must be 1-20 characters in length."
^DD(301.62,.05,21,0)="^^1^1^2980522^^^"
^DD(301.62,.05,21,1,0)="This field contains the unique identifier assigned to the query by the HL7 package."
^DD(301.62,.05,"DT")="2980528"
^DD(301.62,.06,0)="QUERY RESPONSE REC'D DATE/TIME^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.62,.06,3)="Enter date/time a response to a query is received from the HEC."
^DD(301.62,.06,21,0)="^^2^2^2980522^^"
^DD(301.62,.06,21,1,0)="This field contains the date/time that a response to a query has been"
^DD(301.62,.06,21,2,0)="received from the HEC."
^DD(301.62,.06,"DT")="2950420"
^DD(301.62,.07,0)="DHCP OPTION^P19^DIC(19,^0;7^Q"
^DD(301.62,.07,3)="Enter the option from which the query transmission was invoked."
^DD(301.62,.07,21,0)="^^2^2^2950421^"
^DD(301.62,.07,21,1,0)="This field will contain the option from which the query transmission was"
^DD(301.62,.07,21,2,0)="invoked."
^DD(301.62,.07,"DT")="2950421"
^DD(301.62,.08,0)="NOTIFY FLAG^S^0:NO;1:YES;^0;8^Q"
^DD(301.62,.08,3)="Would you like to be notified when a query reply is received?"
^DD(301.62,.08,21,0)="^^1^1^2980611^"
^DD(301.62,.08,21,1,0)="This field will be used to determine if a notification message should be sent to the user that initiated the query."
^DD(301.62,.08,"DT")="2980611"
^DD(301.62,1.01,0)="CLOSURE REASON^P301.94'^IVM(301.94,^1;1^Q"
^DD(301.62,1.01,3)=""
^DD(301.62,1.01,21,0)="^^3^3^2950512^^"
^DD(301.62,1.01,21,1,0)="If a query transmission record has been closed (the [#.03] field is set to"
^DD(301.62,1.01,21,2,0)="1], this field wll store the reason that the query transmission record was"
^DD(301.62,1.01,21,3,0)="closed."
^DD(301.62,1.01,"DT")="2950512"
^DD(301.62,1.02,0)="CLOSURE DATE/TIME^D^^1;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(301.62,1.02,21,0)="^^2^2^2950421^"
^DD(301.62,1.02,21,1,0)="If a query transmission record has been closed, this field will be used to"
^DD(301.62,1.02,21,2,0)="store the date and time that it was closed."
^DD(301.62,1.02,"DT")="2950421"
^DD(301.62,1.03,0)="CLOSURE SOURCE^S^1:HEC (DCD);2:DHCP (SYSTEM);^1;3^Q"
^DD(301.62,1.03,21,0)="^^2^2^2980608^^^"
^DD(301.62,1.03,21,1,0)="If a QUERY TRANSMISSION LOG record has been closed, this field is used to"
^DD(301.62,1.03,21,2,0)="store the source which was responsible for closing the record."
^DD(301.62,1.03,"DT")="2980608"
^DD(301.62,"B","CLOSURE DATE/TIME",1.02)=""
^DD(301.62,"B","CLOSURE REASON",1.01)=""
^DD(301.62,"B","CLOSURE SOURCE",1.03)=""
^DD(301.62,"B","DHCP OPTION",.07)=""
^DD(301.62,"B","HL7 MESSAGE CONTROL ID",.05)=""
^DD(301.62,"B","NOTIFY FLAG",.08)=""
^DD(301.62,"B","PATIENT",.01)=""
^DD(301.62,"B","QUERY RESPONSE REC'D DATE/TIME",.06)=""
^DD(301.62,"B","QUERY STATUS",.03)=""
^DD(301.62,"B","QUERY TRANSMISSION DATE/TIME",.02)=""
^DD(301.62,"B","TRANSMITTED BY",.04)=""
^DD(301.62,"GL",0,1,.01)=""
^DD(301.62,"GL",0,2,.02)=""
^DD(301.62,"GL",0,3,.03)=""
^DD(301.62,"GL",0,4,.04)=""
^DD(301.62,"GL",0,5,.05)=""
^DD(301.62,"GL",0,6,.06)=""
^DD(301.62,"GL",0,7,.07)=""
^DD(301.62,"GL",0,8,.08)=""
^DD(301.62,"GL",1,1,1.01)=""
^DD(301.62,"GL",1,2,1.02)=""
^DD(301.62,"GL",1,3,1.03)=""
^DD(301.62,"IX",.01)=""
^DD(301.62,"IX",.02)=""
^DD(301.62,"IX",.03)=""
^DD(301.62,"IX",.05)=""
^DD(301.62,"RQ",.01)=""
^DD(301.63,0)="FIELD^^10^12"
^DD(301.63,0,"DDA")="N"
^DD(301.63,0,"DT")="2971001"
^DD(301.63,0,"IX","B",301.63,.01)=""
^DD(301.63,0,"NM","IVM EXTRACT MANAGEMENT")=""
^DD(301.63,0,"VR")="2.0"
^DD(301.63,0,"VRPK")="IVM"
^DD(301.63,.01,0)="HOST FILE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(301.63,.01,1,0)="^.1"
^DD(301.63,.01,1,1,0)="301.63^B"
^DD(301.63,.01,1,1,1)="S ^IVM(301.63,""B"",$E(X,1,30),DA)="""""
^DD(301.63,.01,1,1,2)="K ^IVM(301.63,""B"",$E(X,1,30),DA)"
^DD(301.63,.01,3)="Answer must be 3-30 characters in length."
^DD(301.63,.01,21,0)="^^4^4^2971001^"
^DD(301.63,.01,21,1,0)="This is the root name used for the host files created.  The"
^DD(301.63,.01,21,2,0)="extract may consist of multiple files, depending on the number"
^DD(301.63,.01,21,3,0)="of patients extracted. The files will be named"
^DD(301.63,.01,21,4,0)="<HOST FILE NAME> concatenated with '_1', '_2', etc."
^DD(301.63,.01,"DT")="2971001"
^DD(301.63,.02,0)="DIRECTORY^F^^0;2^K:$L(X)>65!($L(X)<3) X"
^DD(301.63,.02,3)="Answer must be 3-65 characters in length."
^DD(301.63,.02,21,0)="^^1^1^2971009^"
^DD(301.63,.02,21,1,0)="The directory/path for the host file."
^DD(301.63,.02,"DT")="2971001"
^DD(301.63,.03,0)="# OF PATIENTS PROCESSED^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(301.63,.03,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(301.63,.03,21,0)="^^1^1^2971001^^^"
^DD(301.63,.03,21,1,0)="The number of records in the PATIENT file processed."
^DD(301.63,.03,"DT")="2971001"
^DD(301.63,.04,0)="TASK NUMBER^NJ10,0^^0;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(301.63,.04,3)="Enter the number assigned to the queued task by TaskMan."
^DD(301.63,.04,21,0)="^^1^1^2971001^^"
^DD(301.63,.04,21,1,0)="The number assigned to the queued extract task by TaskMan."
^DD(301.63,.04,"DT")="2971001"
^DD(301.63,.05,0)="DATE/TIME JOB STARTED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.63,.05,3)="Enter the date/time that the queued job began."
^DD(301.63,.05,21,0)="^^1^1^2971001^^"
^DD(301.63,.05,21,1,0)="The date/time the queued job began execution."
^DD(301.63,.05,"DT")="2971001"
^DD(301.63,.06,0)="DATE/TIME JOB STOPPED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.63,.06,3)="Enter the date/time that the queued job completed."
^DD(301.63,.06,21,0)="^^1^1^2971001^"
^DD(301.63,.06,21,1,0)="The date/time that the queued extract completed execution, or was stopped."
^DD(301.63,.06,"DT")="2971001"
^DD(301.63,.07,0)="TERMINATED JOB (Y/N)?^S^0:NO;1:YES;^0;7^Q"
^DD(301.63,.07,3)="Enter YES if the job was stopped before completion."
^DD(301.63,.07,21,0)="^^1^1^2971001^"
^DD(301.63,.07,21,1,0)="Indicates whether or not the extract was completed."
^DD(301.63,.07,"DT")="2971001"
^DD(301.63,.08,0)="LAST PATIENT PROCESSED^P2'^DPT(^0;8^Q"
^DD(301.63,.08,3)="If the extract was stopped before completion, enter the last patient that was processed."
^DD(301.63,.08,21,0)="^^1^1^2971001^"
^DD(301.63,.08,21,1,0)="In the event of the extract being stopped before completion, this field is used to resume the extract where it left off."
^DD(301.63,.08,"DT")="2971001"
^DD(301.63,.09,0)="PROJECTED COMPLETION DATE/TIME^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.63,.09,3)="Enter when the extract is expected to complete."
^DD(301.63,.09,21,0)="^^1^1^2971001^"
^DD(301.63,.09,21,1,0)="The estimated date/time that the extract will complete."
^DD(301.63,.09,"DT")="2971001"
^DD(301.63,.1,0)="# OF PATIENTS EXTRACTED^NJ8,0^^0;10^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(301.63,.1,3)="Enter the number of patients that were written to the host file by the initial data extract."
^DD(301.63,.1,21,0)="^^1^1^2971001^"
^DD(301.63,.1,21,1,0)="The number of patients written to the extract."
^DD(301.63,.1,"DT")="2971001"
^DD(301.63,.11,0)="NUMBER OF HOST FILES^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(301.63,.11,3)="Enter the number of host files created."
^DD(301.63,.11,21,0)="^^1^1^2971001^"
^DD(301.63,.11,21,1,0)="The number of host files created."
^DD(301.63,.11,"DT")="2971001"
^DD(301.63,10,0)="ERROR^F^^10;1^K:$L(X)>250!($L(X)<1) X"
^DD(301.63,10,3)="If the extract fails to complete or is stopped, the reason should be entered."
^DD(301.63,10,21,0)="^^1^1^2971001^"
^DD(301.63,10,21,1,0)="Used to document the reason the extract did not complete."
^DD(301.63,10,"DT")="2971001"
^DD(301.63,"B","# OF PATIENTS EXTRACTED",.1)=""
^DD(301.63,"B","# OF PATIENTS PROCESSED",.03)=""
^DD(301.63,"B","DATE/TIME JOB STARTED",.05)=""
^DD(301.63,"B","DATE/TIME JOB STOPPED",.06)=""
^DD(301.63,"B","DIRECTORY",.02)=""
^DD(301.63,"B","ERROR",10)=""
^DD(301.63,"B","HOST FILE NAME",.01)=""
^DD(301.63,"B","LAST PATIENT PROCESSED",.08)=""
^DD(301.63,"B","NUMBER OF HOST FILES",.11)=""
^DD(301.63,"B","PROJECTED COMPLETION DATE/TIME",.09)=""
^DD(301.63,"B","TASK NUMBER",.04)=""
^DD(301.63,"B","TERMINATED JOB (Y/N)?",.07)=""
^DD(301.63,"GL",0,1,.01)=""
^DD(301.63,"GL",0,2,.02)=""
^DD(301.63,"GL",0,3,.03)=""
^DD(301.63,"GL",0,4,.04)=""
^DD(301.63,"GL",0,5,.05)=""
^DD(301.63,"GL",0,6,.06)=""
^DD(301.63,"GL",0,7,.07)=""
^DD(301.63,"GL",0,8,.08)=""
^DD(301.63,"GL",0,9,.09)=""
^DD(301.63,"GL",0,10,.1)=""
^DD(301.63,"GL",0,11,.11)=""
^DD(301.63,"GL",10,1,10)=""
^DD(301.63,"IX",.01)=""
^DD(301.63,"RQ",.01)=""
^DD(301.7,0)="FIELD^^14^16"
^DD(301.7,0,"DDA")="N"
^DD(301.7,0,"DT")="3050610"
^DD(301.7,0,"IX","B",301.7,.01)=""
^DD(301.7,0,"IX","C",301.7,1)=""
^DD(301.7,0,"NM","IVM ADDRESS CHANGE LOG")=""
^DD(301.7,0,"VR")="2.0"
^DD(301.7,0,"VRPK")="IVM"
^DD(301.7,.01,0)="ADDRESS CHANGE DT/TM^RDXI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(301.7,.01,1,0)="^.1"
^DD(301.7,.01,1,1,0)="301.7^B"
^DD(301.7,.01,1,1,1)="S ^IVM(301.7,""B"",$E(X,1,30),DA)="""""
^DD(301.7,.01,1,1,2)="K ^IVM(301.7,""B"",$E(X,1,30),DA)"
^DD(301.7,.01,3)="(No range limit on date)"
^DD(301.7,.01,21,0)="^.001^1^1^3050825^^"
^DD(301.7,.01,21,1,0)="This field will hold the date and time of the last Address Update."
^DD(301.7,.01,"DT")="3050825"
^DD(301.7,1,0)="PATIENT^RP2'I^DPT(^0;2^Q"
^DD(301.7,1,1,0)="^.1"
^DD(301.7,1,1,1,0)="301.7^C"
^DD(301.7,1,1,1,1)="S ^IVM(301.7,""C"",$E(X,1,30),DA)="""""
^DD(301.7,1,1,1,2)="K ^IVM(301.7,""C"",$E(X,1,30),DA)"
^DD(301.7,1,1,1,"%D",0)="^^2^2^3050510^"
^DD(301.7,1,1,1,"%D",1,0)="This cross-reference can be used to sort by patient by internal entry"
^DD(301.7,1,1,1,"%D",2,0)="number."
^DD(301.7,1,1,1,"DT")="3050510"
^DD(301.7,1,3)="Please enter the patient associated with this address update."
^DD(301.7,1,21,0)="^^1^1^3050510^"
^DD(301.7,1,21,1,0)="This is the Patient associated with this address update."
^DD(301.7,1,"DT")="3050825"
^DD(301.7,2,0)="ADDRESS CHANGE USER^P200'^VA(200,^0;3^Q"
^DD(301.7,2,21,0)="^^1^1^3050510^"
^DD(301.7,2,21,1,0)="The name of the user who has changed this patient's primary address."
^DD(301.7,2,"DT")="3050510"
^DD(301.7,3,0)="ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;NCOA:NCOA;BVA:BVA;VAIN:VAINS;USPS:USPS;^0;4^Q"
^DD(301.7,3,3)="Please enter the source of the address change."
^DD(301.7,3,21,0)="^^1^1^3050510^"
^DD(301.7,3,21,1,0)="This field will hold the source of the last address change."
^DD(301.7,3,"DT")="3050510"
^DD(301.7,3.5,0)="ADDRESS CHANGE SITE^P4'^DIC(4,^0;5^Q"
^DD(301.7,3.5,"DT")="3050610"
^DD(301.7,4,0)="PRIOR ADDRESS CHANGE DT/TM^DX^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(301.7,4,3)="(No range limit on date)"
^DD(301.7,4,21,0)="^^1^1^3050510^"
^DD(301.7,4,21,1,0)="This field will hold the date and time of the prior address update."
^DD(301.7,4,"DT")="3050510"
^DD(301.7,5,0)="PRIOR ADDRESS CHANGE USER^P200'^VA(200,^1;2^Q"
^DD(301.7,5,21,0)="^^1^1^3050510^"
^DD(301.7,5,21,1,0)="The name of the prior user who changed this patient's primary address."
^DD(301.7,5,"DT")="3050510"
^DD(301.7,6,0)="PRIOR ADDRESS CHANGE SITE^P4'^DIC(4,^1;3^Q"
^DD(301.7,6,3)="Please enter the prior Site that changed this patient's address."
^DD(301.7,6,21,0)="^^3^3^3050510^"
^DD(301.7,6,21,1,0)="This field will hold the prior Site that changed this patient's address."
^DD(301.7,6,21,2,0)="This field is only populated when the PRIOR ADDRESS SOURCE is listed as"
^DD(301.7,6,21,3,0)="VAMC."
^DD(301.7,6,"DT")="3050510"
^DD(301.7,7,0)="PRIOR ADDRESS CHANGE SOURCE^S^HEC:HEC;VAMC:VAMC;HBSC:HBSC;NCOA:NCOA;BVA:BVA;VAIN:VAINS;USPS:USPS;^1;4^Q"
^DD(301.7,7,3)="Please enter the source of the prior address change."
^DD(301.7,7,21,0)="^^1^1^3050510^"
^DD(301.7,7,21,1,0)="This field will hold the source of the prior address change."
^DD(301.7,7,"DT")="3050510"
^DD(301.7,8,0)="PRIOR PHONE NUMBER [RESIDENCE]^F^^1;5^K:$L(X)>20!($L(X)<4) X"
^DD(301.7,8,3)="Enter the patients prior home telephone number [4-20 characters]."
^DD(301.7,8,21,0)="^^2^2^3050510^"
^DD(301.7,8,21,1,0)="Enter the telephone number [4-20 characters] to this patient's prior"
^DD(301.7,8,21,2,0)="place of residence."
^DD(301.7,8,"DT")="3050510"
^DD(301.7,9,0)="PRIOR STREET ADDRESS [LINE 1]^FX^^1;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X"
^DD(301.7,9,3)="Enter the first line of this patient's prior residence street address [3-35 characters]."
^DD(301.7,9,21,0)="^^2^2^3050510^"
^DD(301.7,9,21,1,0)="This is the first line of this patient's prior residence street address"
^DD(301.7,9,21,2,0)="[3-35 characters]."
^DD(301.7,9,"DT")="3050510"
^DD(301.7,10,0)="PRIOR STREET ADDRESS [LINE 2]^FX^^1;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X D:$D(X) UP^DGHELP"
^DD(301.7,10,3)="If necessary, enter the second line of this patient's street address [3-30 characters]."
^DD(301.7,10,21,0)="^^3^3^3050510^"
^DD(301.7,10,21,1,0)="Enter the second line of this patient's prior residence street address"
^DD(301.7,10,21,2,0)="[3-30 characters]  if the space provided in 'street address' was not "
^DD(301.7,10,21,3,0)="sufficient."
^DD(301.7,10,"DT")="3050510"
^DD(301.7,11,0)="PRIOR CITY^F^^1;8^K:$L(X)>15!($L(X)<2) X"
^DD(301.7,11,3)="Answer must be 2-15 characters in length"
^DD(301.7,11,21,0)="^^3^3^3050510^"
^DD(301.7,11,21,1,0)="Enter the prior city in which this patient resided [2-15 characters]."
^DD(301.7,11,21,2,0)="If the space provided is not sufficient please abbreviate the city to "
^DD(301.7,11,21,3,0)="the best of your ability."
^DD(301.7,11,"DT")="3050510"
^DD(301.7,12,0)="PRIOR COUNTY^FX^^1;9^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(301.7,12,3)="Please enter the prior county that for this patient's address [3 - 30 characters]."
^DD(301.7,12,21,0)="^^1^1^3050516^"
^DD(301.7,12,21,1,0)="This is the prior county in which this patient resided [3-30 characters]."
^DD(301.7,12,"DT")="3050516"
^DD(301.7,13,0)="PRIOR STATE^P5'^DIC(5,^1;10^Q"
^DD(301.7,13,3)="Select from the available listing the state for this patient's prior residence."
^DD(301.7,13,21,0)="^^2^2^3050510^"
^DD(301.7,13,21,1,0)="Select from the available listing the prior state in which this patient"
^DD(301.7,13,21,2,0)="resided."
^DD(301.7,13,"DT")="3050510"
^DD(301.7,14,0)="PRIOR ZIP+4^FX^^1;11^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(301.7,14,3)="Answer with either 5 digit or 9 digit prior zip code."
^DD(301.7,14,21,0)="^^2^2^3050510^"
^DD(301.7,14,21,1,0)="Answer with either the 5 digit format (e.g. 12345) or the nine digit"
^DD(301.7,14,21,2,0)="format (e.g. 12345-6789 or 123456789) for the prior zip code."
^DD(301.7,14,"DT")="3050510"
^DD(301.7,"B","ADDRESS CHANGE DT/TM",.01)=""
^DD(301.7,"B","ADDRESS CHANGE SITE",3.5)=""
^DD(301.7,"B","ADDRESS CHANGE SOURCE",3)=""
^DD(301.7,"B","ADDRESS CHANGE USER",2)=""
^DD(301.7,"B","PATIENT",1)=""
^DD(301.7,"B","PRIOR ADDRESS CHANGE DT/TM",4)=""
^DD(301.7,"B","PRIOR ADDRESS CHANGE SITE",6)=""
^DD(301.7,"B","PRIOR ADDRESS CHANGE SOURCE",7)=""
^DD(301.7,"B","PRIOR ADDRESS CHANGE USER",5)=""
^DD(301.7,"B","PRIOR CITY",11)=""
^DD(301.7,"B","PRIOR COUNTY",12)=""
^DD(301.7,"B","PRIOR PHONE NUMBER [RESIDENCE]",8)=""
^DD(301.7,"B","PRIOR STATE",13)=""
^DD(301.7,"B","PRIOR STREET ADDRESS [LINE 1]",9)=""
^DD(301.7,"B","PRIOR STREET ADDRESS [LINE 2]",10)=""
^DD(301.7,"B","PRIOR ZIP+4",14)=""
^DD(301.7,"GL",0,1,.01)=""
^DD(301.7,"GL",0,2,1)=""
^DD(301.7,"GL",0,3,2)=""
^DD(301.7,"GL",0,4,3)=""
^DD(301.7,"GL",0,5,3.5)=""
^DD(301.7,"GL",1,1,4)=""
^DD(301.7,"GL",1,2,5)=""
^DD(301.7,"GL",1,3,6)=""
^DD(301.7,"GL",1,4,7)=""
^DD(301.7,"GL",1,5,8)=""
^DD(301.7,"GL",1,6,9)=""
^DD(301.7,"GL",1,7,10)=""
^DD(301.7,"GL",1,8,11)=""
^DD(301.7,"GL",1,9,12)=""
^DD(301.7,"GL",1,10,13)=""
^DD(301.7,"GL",1,11,14)=""
^DD(301.7,"IX",.01)=""
^DD(301.7,"IX",1)=""
^DD(301.7,"RQ",.01)=""
^DD(301.7,"RQ",1)=""
^DD(301.9,0)="FIELD^^20^11"
^DD(301.9,0,"DDA")="N"
^DD(301.9,0,"DT")="2940801"
^DD(301.9,0,"IX","AB",301.9001,.01)=""
^DD(301.9,0,"IX","AB1",301.9001,.02)=""
^DD(301.9,0,"IX","B",301.9,.01)=""
^DD(301.9,0,"NM","IVM SITE PARAMETER")=""
^DD(301.9,0,"VR")="2.0"
^DD(301.9,.01,0)="STATION NUMBER^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(301.9,.01,1,0)="^.1"
^DD(301.9,.01,1,1,0)="301.9^B"
^DD(301.9,.01,1,1,1)="S ^IVM(301.9,""B"",$E(X,1,30),DA)="""""
^DD(301.9,.01,1,1,2)="K ^IVM(301.9,""B"",$E(X,1,30),DA)"
^DD(301.9,.01,3)="Answer must be 3 characters in length."
^DD(301.9,.01,21,0)="^^3^3^2931229^^^^"
^DD(301.9,.01,21,1,0)="This field contains the station number of your facility (DHCP site)"
^DD(301.9,.01,21,2,0)="that will receive/send HL7 messages to the IVM CENTER (non-DHCP"
^DD(301.9,.01,21,3,0)="application)."
^DD(301.9,.01,"DT")="2931029"
^DD(301.9,.02,0)="IVM MESSAGES MAIL GROUP^RP3.8'^XMB(3.8,^0;2^Q"
^DD(301.9,.02,3)="Pointer to IVM MESSAGES MAIL GROUP of MAIL GROUP FILE (#3.8)."
^DD(301.9,.02,21,0)="^^3^3^2931229^^^"
^DD(301.9,.02,21,1,0)="Members of this mail group will receive messages pertaining to erroneous"
^DD(301.9,.02,21,2,0)="data transmitted to the IVM Center and for data to be uploaded from the"
^DD(301.9,.02,21,3,0)="IVM Center."
^DD(301.9,.02,"DT")="2931229"
^DD(301.9,.03,0)="SUPPRESS SSN UPLOAD MESSAGE^S^1:SUPPRESS MESSAGE;0:DON'T SUPPRESS MESSAGE;^0;3^Q"
^DD(301.9,.03,3)="Enter 1 to suppress notification to facility that updated SSN data has been received from the IVM Center.  Enter 0 if facility is to be notified.  Default is 0."
^DD(301.9,.03,21,0)="^^4^4^2940801^"
^DD(301.9,.03,21,1,0)=" "
^DD(301.9,.03,21,2,0)="This field will contain a 0 if the facility will be notified that updated"
^DD(301.9,.03,21,3,0)="SSN data has been received from the IVM Center.  It will contain a 1 if"
^DD(301.9,.03,21,4,0)="facility will not be notified.  Default is 0."
^DD(301.9,.03,"DT")="2940801"
^DD(301.9,.05,0)="SUPPRESS DEMOGRAPHIC MESSAGE^S^1:SUPPRESS MESSAGE;0:DON'T SUPPRESS MESSAGE;^0;5^Q"
^DD(301.9,.05,3)="Enter 1 to suppress notification to facility that updated demographic data has been received from the IVM Center.  Enter 0 if facility is to be notified.  Default is 0."
^DD(301.9,.05,21,0)="^^4^4^2940801^^"
^DD(301.9,.05,21,1,0)=" "
^DD(301.9,.05,21,2,0)="This field will contain a 0 if the facility will be notified that updated"
^DD(301.9,.05,21,3,0)="demographic data has been received from the IVM Center.  It will contain a"
^DD(301.9,.05,21,4,0)="1 if facility will not be notified.  Default is 0."
^DD(301.9,.05,"DT")="2940801"
^DD(301.9,.06,0)="VERSION 2.0 INSTALL DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(301.9,.06,21,0)="^^4^4^2940622^"
^DD(301.9,.06,21,1,0)="This field is used to store the date that the site first installed"
^DD(301.9,.06,21,2,0)="IVM v2.0.  The field is used to determine how far back in time to"
^DD(301.9,.06,21,3,0)="check to see whether nightly transmissions have been received by"
^DD(301.9,.06,21,4,0)="the IVM Center."
^DD(301.9,.06,"DT")="2940622"
^DD(301.9,.08,0)="TRANSMIT ENROLLMENT EVENTS?^SI^0:DO NOT TRANSMIT;1:TRANSMIT;^0;8^Q"
^DD(301.9,.08,3)="This field is used to enable or disable transmission of enrollment events to HEC."
^DD(301.9,.08,21,0)="^^2^2^2970904^"
^DD(301.9,.08,21,1,0)="This field will serve as a switch to turn on and off the transmission of"
^DD(301.9,.08,21,2,0)="enrollment events to HEC."
^DD(301.9,.08,"DT")="2970918"
^DD(301.9,.09,0)="ENROLLMENT ALERT MAIL GROUP^RP3.8'^XMB(3.8,^0;9^Q"
^DD(301.9,.09,3)="Enter pointer to the mail group in the Mail Group (#3.8) file that will receive Enrollment/Eligibility alert messages."
^DD(301.9,.09,21,0)="^^1^1^2990714^"
^DD(301.9,.09,21,1,0)="Members of this mail group will receive messages pertaining to the upload of Enrollment/Eligibility data from the Health Eligibility Center (HEC)."
^DD(301.9,.09,"DT")="2990714"
^DD(301.9,.1,0)="ENROLLMENT ALERT REMOTE MAIL GROUP^RFX^^0;10^K:$L(X)>99!($L(X)<9)!'(X?1.E1""@""1.E) X"
^DD(301.9,.1,3)="Enter a valid network name as follows:  name@domain"
^DD(301.9,.1,21,0)="^^2^2^2990714^^"
^DD(301.9,.1,21,1,0)="This field contains the remote mail group and domain that will receive Enrollment"
^DD(301.9,.1,21,2,0)="alert messages. (i.e.  mailgroup@domain)"
^DD(301.9,.1,"DT")="2990714"
^DD(301.9,10,0)="QUERY INCOME YEAR^301.9001DA^^10;0"
^DD(301.9,10,21,0)="^^2^2^2931109^^^^"
^DD(301.9,10,21,1,0)="This multiple will contain information for Queries received from the IVM"
^DD(301.9,10,21,2,0)="center."
^DD(301.9,15,0)="ENROLLMENT QUERY ACTIVE?^SI^0:NOT ACTIVE;1:ACTIVE;^15;1^Q"
^DD(301.9,15,3)="This field is used to enable or disable transmission of Enrollment queries sent to HEC from VistA."
^DD(301.9,15,21,0)="^^2^2^2990419^"
^DD(301.9,15,21,1,0)="This field will serve as a switch to turn on and off transmission of"
^DD(301.9,15,21,2,0)="Enrollment queries sent to HEC from VistA."
^DD(301.9,15,"DT")="2990317"
^DD(301.9,20,0)="DCD MESSAGING ACTIVE?^S^0:NOT ACTIVE;1:ACTIVE;^20;1^Q"
^DD(301.9,20,3)="This field is used to enable or disable DCD messaging between VistA and the HEC."
^DD(301.9,20,21,0)="^^1^1^2980902^^^^"
^DD(301.9,20,21,1,0)="This field will serve as a switch to turn on and off DCD messaging between VistA and the HEC."
^DD(301.9,20,"DT")="2980429"
^DD(301.9,"B","DCD MESSAGING ACTIVE?",20)=""
^DD(301.9,"B","ENROLLMENT ALERT MAIL GROUP",.09)=""
^DD(301.9,"B","ENROLLMENT ALERT REMOTE MAIL GROUP",.1)=""
^DD(301.9,"B","ENROLLMENT QUERY ACTIVE?",15)=""
^DD(301.9,"B","IVM MESSAGES MAIL GROUP",.02)=""
^DD(301.9,"B","QUERY INCOME YEAR",10)=""
^DD(301.9,"B","STATION NUMBER",.01)=""
^DD(301.9,"B","SUPPRESS DEMOGRAPHIC MESSAGE",.05)=""
^DD(301.9,"B","SUPPRESS SSN UPLOAD MESSAGE",.03)=""
^DD(301.9,"B","TRANSMIT ENROLLMENT EVENTS?",.08)=""
^DD(301.9,"B","VERSION 2.0 INSTALL DATE",.06)=""
^DD(301.9,"GL",0,1,.01)=""
^DD(301.9,"GL",0,2,.02)=""
^DD(301.9,"GL",0,3,.03)=""
^DD(301.9,"GL",0,5,.05)=""
^DD(301.9,"GL",0,6,.06)=""
^DD(301.9,"GL",0,8,.08)=""
^DD(301.9,"GL",0,9,.09)=""
^DD(301.9,"GL",0,10,.1)=""
^DD(301.9,"GL",10,0,10)=""
^DD(301.9,"GL",15,1,15)=""
^DD(301.9,"GL",20,1,20)=""
^DD(301.9,"IX",.01)=""
^DD(301.9,"RQ",.01)=""
^DD(301.9,"RQ",.02)=""
^DD(301.9,"RQ",.09)=""
^DD(301.9,"RQ",.1)=""
^DD(301.9,"SB",301.9001,10)=""
^DD(301.9001,0)="QUERY INCOME YEAR SUB-FIELD^^10^5"
^DD(301.9001,0,"DT")="2931105"
^DD(301.9001,0,"IX","B",301.9001,.01)=""
^DD(301.9001,0,"NM","QUERY INCOME YEAR")=""
^DD(301.9001,0,"UP")="301.9"
^DD(301.9001,.01,0)="QUERY INCOME YEAR^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(301.9001,.01,1,0)="^.1"
^DD(301.9001,.01,1,1,0)="301.9001^B"
^DD(301.9001,.01,1,1,1)="S ^IVM(301.9,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(301.9001,.01,1,1,2)="K ^IVM(301.9,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(301.9001,.01,1,2,0)="301.9^AB^MUMPS"
^DD(301.9001,.01,1,2,1)="S:$P(^IVM(301.9,DA(1),10,DA,0),""^"",2) ^IVM(301.9,DA(1),10,""AB"",X,-($P(^(0),""^"",2)),DA)="""""
^DD(301.9001,.01,1,2,2)="K ^IVM(301.9,DA(1),10,""AB"",X,-($P(^(0),""^"",2)),DA)"
^DD(301.9001,.01,1,2,"%D",0)="^^3^3^2940812^^"
^DD(301.9001,.01,1,2,"%D",1,0)="This cross-reference is used in conjunction with the AB1 cross-reference on"
^DD(301.9001,.01,1,2,"%D",2,0)="the QUERY RECEIVED DATE/TIME (.02) field to cross-reference all query"
^DD(301.9001,.01,1,2,"%D",3,0)="messages by income year and received date/time."
^DD(301.9001,.01,1,2,"DT")="2931029"
^DD(301.9001,.01,3)="Year for which the Query is requested."
^DD(301.9001,.01,21,0)="^^2^2^2931109^^^^"
^DD(301.9001,.01,21,1,0)="This field contains the income year for which a full data transmission"
^DD(301.9001,.01,21,2,0)="is being requested."
^DD(301.9001,.01,"DT")="2931029"
^DD(301.9001,.02,0)="QUERY RECEIVED DATE/TIME^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.9001,.02,1,0)="^.1"
^DD(301.9001,.02,1,1,0)="301.9^AB1^MUMPS"
^DD(301.9001,.02,1,1,1)="S ^IVM(301.9,DA(1),10,""AB"",+^IVM(301.9,DA(1),10,DA,0),-X,DA)="""""
^DD(301.9001,.02,1,1,2)="K ^IVM(301.9,DA(1),10,""AB"",+^IVM(301.9,DA(1),10,DA,0),-X,DA)"
^DD(301.9001,.02,1,1,"%D",0)="^^3^3^2931217^"
^DD(301.9001,.02,1,1,"%D",1,0)="This cross-reference is used in conjunction with the AB cross-reference on"
^DD(301.9001,.02,1,1,"%D",2,0)="the QUERY INCOME YEAR (.01) field to cross-reference all query messages by"
^DD(301.9001,.02,1,1,"%D",3,0)="income year and received date/time."
^DD(301.9001,.02,1,1,"DT")="2931029"
^DD(301.9001,.02,3)="Date/time when this Query was received from the IVM center."
^DD(301.9001,.02,21,0)="^^2^2^2931109^^^^"
^DD(301.9001,.02,21,1,0)="This field contains the date/time that the query was received"
^DD(301.9001,.02,21,2,0)="from the IVM Center."
^DD(301.9001,.02,"DT")="2931029"
^DD(301.9001,.03,0)="QUERY TRANS COMPLETE DATE/TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(301.9001,.03,3)="Date/time when Query transmission was sent to IVM center."
^DD(301.9001,.03,21,0)="^^3^3^2931109^^^"
^DD(301.9001,.03,21,1,0)="This field contains the date/time that the full data transmission"
^DD(301.9001,.03,21,2,0)="for all IVM patients in the requested income year was sent to the"
^DD(301.9001,.03,21,3,0)="IVM Center in response to the original query."
^DD(301.9001,.03,"DT")="2931029"
^DD(301.9001,.04,0)="QUERY MSH SEGMENT CONTROL ID^RF^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(301.9001,.04,3)="Answer must be 1-20 characters in length."
^DD(301.9001,.04,21,0)="^^4^4^2931109^^^"
^DD(301.9001,.04,21,1,0)="This field contains the HL7 Message Control ID from the query message"
^DD(301.9001,.04,21,2,0)="which was received from the IVM Center.  This ID number must be"
^DD(301.9001,.04,21,3,0)="referenced in the response to the query (the full data transmissions)"
^DD(301.9001,.04,21,4,0)="which is sent back to the IVM Center."
^DD(301.9001,.04,"DT")="2931105"
^DD(301.9001,10,0)="QUERY SEGMENT^RF^^ST;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(301.9001,10,3)="Answer must be 1-245 characters in length."
^DD(301.9001,10,21,0)="^^4^4^2931109^^"
^DD(301.9001,10,21,1,0)="This field contains the entire HL7 'QRD' segment from the query"
^DD(301.9001,10,21,2,0)="message which was received from the IVM Center.  This segment"
^DD(301.9001,10,21,3,0)="must be re-transmitted back to the IVM Center when responding"
^DD(301.9001,10,21,4,0)="to the query."
^DD(301.9001,10,"DT")="2931102"
^DD(301.9001,"B","QUERY INCOME YEAR",.01)=""
^DD(301.9001,"B","QUERY MSH SEGMENT CONTROL ID",.04)=""
^DD(301.9001,"B","QUERY RECEIVED DATE/TIME",.02)=""
^DD(301.9001,"B","QUERY SEGMENT",10)=""
^DD(301.9001,"B","QUERY TRANS COMPLETE DATE/TIME",.03)=""
^DD(301.9001,"GL",0,1,.01)=""
^DD(301.9001,"GL",0,2,.02)=""
^DD(301.9001,"GL",0,3,.03)=""
^DD(301.9001,"GL",0,4,.04)=""
^DD(301.9001,"GL","ST","E1,245",10)=""
^DD(301.9001,"IX",.01)=""
^DD(301.9001,"IX",.02)=""
^DD(301.9001,"RQ",.01)=""
^DD(301.9001,"RQ",.02)=""
^DD(301.9001,"RQ",.04)=""
^DD(301.9001,"RQ",10)=""
^DD(301.91,0)="FIELD^^.02^2"
^DD(301.91,0,"DDA")="N"
^DD(301.91,0,"DT")="2940715"
^DD(301.91,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(301.91,0,"IX","B",301.91,.01)=""
^DD(301.91,0,"IX","C",301.91,.02)=""
^DD(301.91,0,"NM","IVM REASONS FOR NOT UPLOADING INSURANCE")=""
^DD(301.91,0,"PT",301.501,.08)=""
^DD(301.91,0,"VR")="2.0"
^DD(301.91,.01,0)="REASON CODE^RNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(301.91,.01,1,0)="^.1"
^DD(301.91,.01,1,1,0)="301.91^B"
^DD(301.91,.01,1,1,1)="S ^IVM(301.91,""B"",$E(X,1,30),DA)="""""
^DD(301.91,.01,1,1,2)="K ^IVM(301.91,""B"",$E(X,1,30),DA)"
^DD(301.91,.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(301.91,.01,21,0)="^^3^3^2940715^^"
^DD(301.91,.01,21,1,0)=" "
^DD(301.91,.01,21,2,0)="This field contains the reason code for why the facility did not "
^DD(301.91,.01,21,3,0)="upload the insurance policy sent from the IVM Center."
^DD(301.91,.01,"DT")="2940715"
^DD(301.91,.02,0)="REASON DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(301.91,.02,1,0)="^.1"
^DD(301.91,.02,1,1,0)="301.91^C"
^DD(301.91,.02,1,1,1)="S ^IVM(301.91,""C"",$E(X,1,30),DA)="""""
^DD(301.91,.02,1,1,2)="K ^IVM(301.91,""C"",$E(X,1,30),DA)"
^DD(301.91,.02,1,1,"DT")="2940714"
^DD(301.91,.02,3)="Answer must be 3-30 characters in length."
^DD(301.91,.02,21,0)="^^1^1^2940715^"
^DD(301.91,.02,21,1,0)="This field contains the reason description for the code."
^DD(301.91,.02,"DT")="2940715"
^DD(301.91,"B","REASON CODE",.01)=""
^DD(301.91,"B","REASON DESCRIPTION",.02)=""
^DD(301.91,"GL",0,1,.01)=""
^DD(301.91,"GL",0,2,.02)=""
^DD(301.91,"IX",.01)=""
^DD(301.91,"IX",.02)=""
^DD(301.91,"RQ",.01)=""
^DD(301.92,0)="FIELD^^20^11"
^DD(301.92,0,"DDA")="N"
^DD(301.92,0,"DT")="2971218"
^DD(301.92,0,"IX","AD",301.92,.08)=""
^DD(301.92,0,"IX","B",301.92,.01)=""
^DD(301.92,0,"IX","C",301.92,.02)=""
^DD(301.92,0,"NM","IVM DEMOGRAPHIC UPLOAD FIELDS")=""
^DD(301.92,0,"PT",301.511,.01)=""
^DD(301.92,0,"VR")="2.0"
^DD(301.92,0,"VRPK")="IVM"
^DD(301.92,.01,0)="DHCP FIELD NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(301.92,.01,1,0)="^.1"
^DD(301.92,.01,1,1,0)="301.92^B"
^DD(301.92,.01,1,1,1)="S ^IVM(301.92,""B"",$E(X,1,30),DA)="""""
^DD(301.92,.01,1,1,2)="K ^IVM(301.92,""B"",$E(X,1,30),DA)"
^DD(301.92,.01,3)="Answer must be 3-30 characters in length and the name of the DHCP field."
^DD(301.92,.01,21,0)="^^2^2^2940412^"
^DD(301.92,.01,21,1,0)=" "
^DD(301.92,.01,21,2,0)="This field contains the DHCP field name."
^DD(301.92,.01,"DT")="2940412"
^DD(301.92,.02,0)="HL7 LOCATION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<5) X"
^DD(301.92,.02,1,0)="^.1"
^DD(301.92,.02,1,1,0)="301.92^C"
^DD(301.92,.02,1,1,1)="S ^IVM(301.92,""C"",$E(X,1,30),DA)="""""
^DD(301.92,.02,1,1,2)="K ^IVM(301.92,""C"",$E(X,1,30),DA)"
^DD(301.92,.02,1,1,"%D",0)="^^6^6^2940825^^"
^DD(301.92,.02,1,1,"%D",1,0)="This cross-reference is used as lookup for all the demographic fields sent"
^DD(301.92,.02,1,1,"%D",2,0)="by the IVM Center.  The internal entry number for the demographic field"
^DD(301.92,.02,1,1,"%D",3,0)="is also pointed to from the DEMOGRAPHIC UPLOAD DATA sub-sub file (#301.511)"
^DD(301.92,.02,1,1,"%D",4,0)="which is located in the IVM PATIENT (#301.5) file.  This pointer is"
^DD(301.92,.02,1,1,"%D",5,0)="stored with the value of the demographic element transmitted by the"
^DD(301.92,.02,1,1,"%D",6,0)="IVM Center."
^DD(301.92,.02,1,1,"DT")="2940412"
^DD(301.92,.02,3)="Please enter HL7 segment name concatenated with seq number of HL7 segment and if applicable concatenated with piece of field (ex. city of ADDRESS would be PID113)."
^DD(301.92,.02,21,0)="^^4^4^2940412^^"
^DD(301.92,.02,21,1,0)=" "
^DD(301.92,.02,21,2,0)="This field contains HL7 segment name concatenated with seq number of HL7"
^DD(301.92,.02,21,3,0)="segment and if applicable concatenated with piece of field(ex. city"
^DD(301.92,.02,21,4,0)="of ADDRESS would be PID113)."
^DD(301.92,.02,"DT")="2940412"
^DD(301.92,.03,0)="UPLOADABLE DEMOGRAPHIC FIELD^RS^1:YES;0:NO;^0;3^Q"
^DD(301.92,.03,3)="If the demographic field received from the IVM Center may be uploaded, enter a 1 here."
^DD(301.92,.03,21,0)="^^4^4^2940509^"
^DD(301.92,.03,21,1,0)="A value of one indicates that the demographic field received from the IVM"
^DD(301.92,.03,21,2,0)="Center may be uploaded.  A value of 0 indicates that the demographic field"
^DD(301.92,.03,21,3,0)="received from the IVM Center may not be uploaded and may be displayed as"
^DD(301.92,.03,21,4,0)="information only."
^DD(301.92,.03,"DT")="2940422"
^DD(301.92,.04,0)="DHCP FILE^RP1'^DIC(^0;4^Q"
^DD(301.92,.04,3)="Please enter the pointer to the file where the DHCP field is located."
^DD(301.92,.04,21,0)="^^1^1^2940518^^"
^DD(301.92,.04,21,1,0)="This field contains a pointer to the FILE (#1) file.  This field will be used to indentify the global location of the IVM demographic upload field."
^DD(301.92,.04,"DT")="2940518"
^DD(301.92,.05,0)="DHCP FIELD NUMBER^F^^0;5^K:$L(X)>10!($L(X)<2) X"
^DD(301.92,.05,3)="Answer must be 2-10 characters in length."
^DD(301.92,.05,21,0)="^^1^1^2940517^"
^DD(301.92,.05,21,1,0)="This field contains the field number location of the DHCP field."
^DD(301.92,.05,"DT")="2940714"
^DD(301.92,.06,0)="TRANSFORM IVM DATA^S^0:NO;1:YES;^0;6^Q"
^DD(301.92,.06,21,0)="^^3^3^2940520^"
^DD(301.92,.06,21,1,0)="This field is used to determine whether the demographic element"
^DD(301.92,.06,21,2,0)="is stored in an internal format which would need to be transformed"
^DD(301.92,.06,21,3,0)="before being displayed to the user."
^DD(301.92,.06,"DT")="2940520"
^DD(301.92,.07,0)="TRANSFORM DHCP DATA^S^0:NO;1:YES;^0;7^Q"
^DD(301.92,.07,21,0)="^^2^2^2940520^"
^DD(301.92,.07,21,1,0)="This field is used to determine if demographic data extracted from DHCP"
^DD(301.92,.07,21,2,0)="needs to undergo an additional output transform."
^DD(301.92,.07,"DT")="2940520"
^DD(301.92,.08,0)="ADDRESS FIELD?^S^1:YES;0:NO;^0;8^Q"
^DD(301.92,.08,1,0)="^.1"
^DD(301.92,.08,1,1,0)="301.92^AD^MUMPS"
^DD(301.92,.08,1,1,1)="I X=1 S ^IVM(301.92,""AD"",DA)="""""
^DD(301.92,.08,1,1,2)="K ^IVM(301.92,""AD"",DA)"
^DD(301.92,.08,1,1,"%D",0)="^^5^5^2940913^"
^DD(301.92,.08,1,1,"%D",1,0)="This cross-reference is used to build a list of all uploadable"
^DD(301.92,.08,1,1,"%D",2,0)="fields which must be filed in order to file a complete and valid"
^DD(301.92,.08,1,1,"%D",3,0)="new address.  The cross-reference is used during the demographics"
^DD(301.92,.08,1,1,"%D",4,0)="upload to determine if a field which has been selected for uploading"
^DD(301.92,.08,1,1,"%D",5,0)="is an address field."
^DD(301.92,.08,1,1,"DT")="2940913"
^DD(301.92,.08,21,0)="^^2^2^2940913^"
^DD(301.92,.08,21,1,0)="This field is used to flag whether the field is part of a full"
^DD(301.92,.08,21,2,0)="address."
^DD(301.92,.08,23,0)="^^16^16^2940913^"
^DD(301.92,.08,23,1,0)="This field is used to flag whether the field is part of a full"
^DD(301.92,.08,23,2,0)="address."
^DD(301.92,.08,23,3,0)=" "
^DD(301.92,.08,23,4,0)="The following fields will be flagged:"
^DD(301.92,.08,23,5,0)=" "
^DD(301.92,.08,23,6,0)="  STREET ADDRESS [LINE 1]"
^DD(301.92,.08,23,7,0)="  STREET ADDRESS [LINE 2]"
^DD(301.92,.08,23,8,0)="  CITY"
^DD(301.92,.08,23,9,0)="  STATE"
^DD(301.92,.08,23,10,0)="  ZIP+4"
^DD(301.92,.08,23,11,0)="  COUNTY"
^DD(301.92,.08,23,12,0)="  PHONE NUMBER [RESIDENCE]"
^DD(301.92,.08,23,13,0)=" "
^DD(301.92,.08,23,14,0)="All of these fields will be flagged in the ""AD"" cross reference."
^DD(301.92,.08,23,15,0)="The cross reference will be utilized during the Demographics"
^DD(301.92,.08,23,16,0)="upload to determine if an 'address' field is being uplaoded."
^DD(301.92,.08,"DT")="2940913"
^DD(301.92,.09,0)="INACTIVE FLAG^S^1:YES;0:NO;^0;9^Q"
^DD(301.92,.09,21,0)="^^2^2^2980217^^^"
^DD(301.92,.09,21,1,0)="This field will be set when the field is no longer part of"
^DD(301.92,.09,21,2,0)="the IVM Demographic Upload."
^DD(301.92,.09,"DT")="2971218"
^DD(301.92,10,0)="DHCP LOCATION LOGIC^RK^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(301.92,10,3)="This is Standard MUMPS code to get the field in DHCP."
^DD(301.92,10,9)="@"
^DD(301.92,10,"DT")="2940412"
^DD(301.92,20,0)="DHCP OUTPUT LOGIC^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(301.92,20,3)="This is Standard MUMPS code."
^DD(301.92,20,9)="@"
^DD(301.92,20,21,0)="^^2^2^2940520^"
^DD(301.92,20,21,1,0)="This executable logic is used to extract DHCP data in a display-ready"
^DD(301.92,20,21,2,0)="format."
^DD(301.92,20,"DT")="2940520"
^DD(301.92,"B","ADDRESS FIELD?",.08)=""
^DD(301.92,"B","DHCP FIELD NAME",.01)=""
^DD(301.92,"B","DHCP FIELD NUMBER",.05)=""
^DD(301.92,"B","DHCP FILE",.04)=""
^DD(301.92,"B","DHCP LOCATION LOGIC",10)=""
^DD(301.92,"B","DHCP OUTPUT LOGIC",20)=""
^DD(301.92,"B","HL7 LOCATION",.02)=""
^DD(301.92,"B","INACTIVE FLAG",.09)=""
^DD(301.92,"B","TRANSFORM DHCP DATA",.07)=""
^DD(301.92,"B","TRANSFORM IVM DATA",.06)=""
^DD(301.92,"B","UPLOADABLE DEMOGRAPHIC FIELD",.03)=""
^DD(301.92,"GL",0,1,.01)=""
^DD(301.92,"GL",0,2,.02)=""
^DD(301.92,"GL",0,3,.03)=""
^DD(301.92,"GL",0,4,.04)=""
^DD(301.92,"GL",0,5,.05)=""
^DD(301.92,"GL",0,6,.06)=""
^DD(301.92,"GL",0,7,.07)=""
^DD(301.92,"GL",0,8,.08)=""
^DD(301.92,"GL",0,9,.09)=""
^DD(301.92,"GL",1,"E1,245",10)=""
^DD(301.92,"GL",2,"E1,245",20)=""
^DD(301.92,"IX",.01)=""
^DD(301.92,"IX",.02)=""
^DD(301.92,"IX",.08)=""
^DD(301.92,"RQ",.01)=""
^DD(301.92,"RQ",.02)=""
^DD(301.92,"RQ",.03)=""
^DD(301.92,"RQ",.04)=""
^DD(301.92,"RQ",10)=""
^DD(301.93,0)="FIELD^^.01^1"
^DD(301.93,0,"DT")="2940523"
^DD(301.93,0,"IX","B",301.93,.01)=""
^DD(301.93,0,"NM","IVM CASE CLOSURE REASON")=""
^DD(301.93,0,"PT",301.5,1.01)=""
^DD(301.93,0,"VR")="2.0"
^DD(301.93,.01,0)="CLOSURE REASON^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(301.93,.01,1,0)="^.1"
^DD(301.93,.01,1,1,0)="301.93^B"
^DD(301.93,.01,1,1,1)="S ^IVM(301.93,""B"",$E(X,1,30),DA)="""""
^DD(301.93,.01,1,1,2)="K ^IVM(301.93,""B"",$E(X,1,30),DA)"
^DD(301.93,.01,3)="Answer must be 3-30 characters in length."
^DD(301.93,.01,21,0)="^^2^2^2940523^"
^DD(301.93,.01,21,1,0)="This field is used to describe the reason that an IVM PATIENT"
^DD(301.93,.01,21,2,0)="(Means Test case) record was closed."
^DD(301.93,.01,"DT")="2940523"
^DD(301.93,"B","CLOSURE REASON",.01)=""
^DD(301.93,"GL",0,1,.01)=""
^DD(301.93,"IX",.01)=""
^DD(301.93,"RQ",.01)=""
^DD(301.94,0)="FIELD^^.02^2"
^DD(301.94,0,"DDA")="N"
^DD(301.94,0,"DT")="2950512"
^DD(301.94,0,"IX","AC",301.94,.02)=""
^DD(301.94,0,"IX","B",301.94,.01)=""
^DD(301.94,0,"NM","IVM FINANCIAL QUERY CLOSURE REASON")=""
^DD(301.94,0,"PT",301.62,1.01)=""
^DD(301.94,0,"VR")="2.0"
^DD(301.94,0,"VRPK")="IVM"
^DD(301.94,.01,0)="CLOSURE REASON^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(301.94,.01,1,0)="^.1"
^DD(301.94,.01,1,1,0)="301.94^B"
^DD(301.94,.01,1,1,1)="S ^IVM(301.94,""B"",$E(X,1,30),DA)="""""
^DD(301.94,.01,1,1,2)="K ^IVM(301.94,""B"",$E(X,1,30),DA)"
^DD(301.94,.01,3)="Answer must be 3-30 characters in length."
^DD(301.94,.01,21,0)="^^2^2^2980522^^"
^DD(301.94,.01,21,1,0)="This field contains the the actual reason why an IVM Financial Query Log"
^DD(301.94,.01,21,2,0)="entry was closed."
^DD(301.94,.01,"DT")="2950512"
^DD(301.94,.02,0)="CLOSURE CODE^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(301.94,.02,1,0)="^.1"
^DD(301.94,.02,1,1,0)="301.94^AC"
^DD(301.94,.02,1,1,1)="S ^IVM(301.94,""AC"",$E(X,1,30),DA)="""""
^DD(301.94,.02,1,1,2)="K ^IVM(301.94,""AC"",$E(X,1,30),DA)"
^DD(301.94,.02,1,1,"DT")="2950512"
^DD(301.94,.02,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(301.94,.02,21,0)="^^4^4^2950512^"
^DD(301.94,.02,21,1,0)="This field contains a code which corresponds to the actual"
^DD(301.94,.02,21,2,0)="closure reason.  These codes are hard-coded in the software"
^DD(301.94,.02,21,3,0)="to identify a specific closure reason.  Thus, this field"
^DD(301.94,.02,21,4,0)="should not be edited."
^DD(301.94,.02,"DT")="2950512"
^DD(301.94,"B","CLOSURE CODE",.02)=""
^DD(301.94,"B","CLOSURE REASON",.01)=""
^DD(301.94,"GL",0,1,.01)=""
^DD(301.94,"GL",0,2,.02)=""
^DD(301.94,"IX",.01)=""
^DD(301.94,"IX",.02)=""
^DD(301.94,"RQ",.01)=""
^DD(340,0)="FIELD^^111^47"
^DD(340,0,"DDA")="N"
^DD(340,0,"DT")="2940408"
^DD(340,0,"IX","AB",340,.01)=""
^DD(340,0,"IX","AC",340,.03)=""
^DD(340,0,"IX","B",340,.01)=""
^DD(340,0,"IX","DMC",340,3.01)=""
^DD(340,0,"IX","TOP",340,6.01)=""
^DD(340,0,"NM","AR DEBTOR")=""
^DD(340,0,"PT",341,.05)=""
^DD(340,0,"PT",349.2,.01)=""
^DD(340,0,"PT",430,9)=""
^DD(340,0,"VR")="4.5"
^DD(340,.01,0)="DEBTOR^RV^^0;1^Q"
^DD(340,.01,1,0)="^.1"
^DD(340,.01,1,1,0)="340^B"
^DD(340,.01,1,1,1)="S ^RCD(340,""B"",$E(X,1,30),DA)="""""
^DD(340,.01,1,1,2)="K ^RCD(340,""B"",$E(X,1,30),DA)"
^DD(340,.01,1,1,3)="Needed for look-up of information by Debtor"
^DD(340,.01,1,1,"%D",0)="^^2^2^2931014^^^^"
^DD(340,.01,1,1,"%D",1,0)="This is the regular FileMan 'B' cross-reference and is used throughout the"
^DD(340,.01,1,1,"%D",2,0)="AR package for users to look up information by debtor."
^DD(340,.01,1,2,0)="^^TRIGGER^340^.03"
^DD(340,.01,1,2,1)="X ^DD(340,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RCD(340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(340,.01,1,2,1.1) X ^DD(340,.01,1,2,1.4)"
^DD(340,.01,1,2,1.1)="S X=DIV S X=$P($G(^RC(342,1,0)),""^"",11) S:X X=+X"
^DD(340,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RCD(340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""",Y(2)=X,Y(3)=X S X=Y(0),X=X S X=X["";DPT("",Y=X,X=Y(2),X=X&Y"
^DD(340,.01,1,2,1.4)="S DIH=$S($D(^RCD(340,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=340,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(340,.01,1,2,2)="Q"
^DD(340,.01,1,2,3)="Needed for assigning statement days for patients"
^DD(340,.01,1,2,"%D",0)="^^2^2^2961010^"
^DD(340,.01,1,2,"%D",1,0)="This cross-reference sets the statement day for new patients to the site's"
^DD(340,.01,1,2,"%D",2,0)="statement day."
^DD(340,.01,1,2,"CREATE CONDITION")="STATEMENT DAY=""""&(INTERNAL(DEBTOR)["";DPT("")"
^DD(340,.01,1,2,"CREATE VALUE")="S X=$P($G(^RC(342,1,0)),""^"",11) S:X X=+X"
^DD(340,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(340,.01,1,2,"DT")="2961010"
^DD(340,.01,1,2,"FIELD")="STATEMENT DAY"
^DD(340,.01,1,3,0)="340^AB^MUMPS"
^DD(340,.01,1,3,1)="S ^RCD(340,""AB"",$P(X,"";"",2),DA)="""""
^DD(340,.01,1,3,2)="K ^RCD(340,""AB"",$P(X,"";"",2),DA)"
^DD(340,.01,1,3,3)="Needed to cross-reference debtor file by 'type' of debtor"
^DD(340,.01,1,3,"%D",0)="^^5^5^2931014^^^^"
^DD(340,.01,1,3,"%D",1,0)="This cross-reference allows rapid look-up of debtors in the debtor file"
^DD(340,.01,1,3,"%D",2,0)="by the 'type' of debtor.  There are five types of debtors (Patient,"
^DD(340,.01,1,3,"%D",3,0)="Insurance Company, Institution, Vendor, and Person).  This allows"
^DD(340,.01,1,3,"%D",4,0)="the AR software to scan the file for only a specific type of debtor"
^DD(340,.01,1,3,"%D",5,0)="rather than having to look at each entry."
^DD(340,.01,1,3,"DT")="2930526"
^DD(340,.01,3)=""
^DD(340,.01,7.5)="S:$D(PRCABT) DIC(""V"")=""I +Y(0)=""_$P(""440!(+Y(0)=4)^440!(+Y(0)=4)^440!(+Y(0)=200)"",U,PRCABT) S:$D(PRCAT) DIC(""V"")=""I +Y(0)=""_$S(""CP""[PRCAT:2,""FV""[PRCAT:440,""T""[PRCAT:36,""N""[PRCAT:4,""O""[PRCAT:200,1:""200!(+Y(0)=440)"")"
^DD(340,.01,21,0)="^^5^5^2970219^^^^"
^DD(340,.01,21,1,0)="This field contains the debtor to which this account belongs to.  An"
^DD(340,.01,21,2,0)="account can belong to an insurance company, vendor, institution, person,"
^DD(340,.01,21,3,0)="or patient.  Accounts can be set up for Medical Care Cost Recovery charges"
^DD(340,.01,21,4,0)="and also for non-benefit debts, such as: Employee bills, Ex-employee bills,"
^DD(340,.01,21,5,0)="and Vendor bills."
^DD(340,.01,"DT")="2961010"
^DD(340,.01,"V",0)="^.12P^5^5"
^DD(340,.01,"V",1,0)="2^PATIENT^1^P^n^n"
^DD(340,.01,"V",2,0)="200^OTHER (PERSON)^2^O^^y"
^DD(340,.01,"V",3,0)="36^3RD PARTY^4^I^^n"
^DD(340,.01,"V",4,0)="4^INSTITUTION^5^N^^n"
^DD(340,.01,"V",5,0)="440^VENDOR^3^V^^n"
^DD(340,.01,"V","B",2,1)=""
^DD(340,.01,"V","B",4,4)=""
^DD(340,.01,"V","B",36,3)=""
^DD(340,.01,"V","B",200,2)=""
^DD(340,.01,"V","B",440,5)=""
^DD(340,.01,"V","M","3RD PARTY",3)=""
^DD(340,.01,"V","M","INSTITUTION",4)=""
^DD(340,.01,"V","M","OTHER (PERSON)",2)=""
^DD(340,.01,"V","M","PATIENT",1)=""
^DD(340,.01,"V","M","VENDOR",5)=""
^DD(340,.01,"V","O",1,1)=""
^DD(340,.01,"V","O",2,2)=""
^DD(340,.01,"V","O",3,5)=""
^DD(340,.01,"V","O",4,3)=""
^DD(340,.01,"V","O",5,4)=""
^DD(340,.01,"V","P","I",3)=""
^DD(340,.01,"V","P","N",4)=""
^DD(340,.01,"V","P","O",2)=""
^DD(340,.01,"V","P","P",1)=""
^DD(340,.01,"V","P","V",5)=""
^DD(340,.02,0)="PATIENT STATEMENT DETAIL^S^0:USE SITE DEFAULT;1:BRIEF;2:EXPANDED;^0;2^Q"
^DD(340,.02,21,0)="^^6^6^2930923^^"
^DD(340,.02,21,1,0)="This field is used to determine the amount of detail to be displayed on"
^DD(340,.02,21,2,0)="the patient statement for RX Copay charges.  A site can define brief"
^DD(340,.02,21,3,0)="or detailed information for each patient to be displayed on the"
^DD(340,.02,21,4,0)="statement.  Brief information consists only of the RX # and Fill date,"
^DD(340,.02,21,5,0)="while the expanded information consists of much more (Physician, drug"
^DD(340,.02,21,6,0)="name, etc.)."
^DD(340,.02,"DT")="2930215"
^DD(340,.03,0)="STATEMENT DAY^NJ2,0^^0;3^K:+X'=X!(X>28)!(X<1)!(X?.E1"".""1N.N) X"
^DD(340,.03,1,0)="^.1"
^DD(340,.03,1,1,0)="340^AC"
^DD(340,.03,1,1,1)="S ^RCD(340,""AC"",$E(X,1,30),DA)="""""
^DD(340,.03,1,1,2)="K ^RCD(340,""AC"",$E(X,1,30),DA)"
^DD(340,.03,1,1,3)="Needed for printing of patient statements and follow-up letters"
^DD(340,.03,1,1,"%D",0)="^^4^4^2931014^^^^"
^DD(340,.03,1,1,"%D",1,0)="This cross-reference is used to print patient statements and Vendor, Person,"
^DD(340,.03,1,1,"%D",2,0)="and Institution follow-up letters.  Since these type of debtors get notified"
^DD(340,.03,1,1,"%D",3,0)="based on their statement day, this cross-reference allows rapid look-up"
^DD(340,.03,1,1,"%D",4,0)="of which debtor is due a notification on a particular day."
^DD(340,.03,1,1,"DT")="2930309"
^DD(340,.03,3)="Type a Number between 1 and 28, 0 Decimal Digits"
^DD(340,.03,5,1,0)="340^.01^2"
^DD(340,.03,21,0)="^^18^18^2930601^^^"
^DD(340,.03,21,1,0)="A statement day is assigned to all types of debtors, except insurance"
^DD(340,.03,21,2,0)="companies.  A statement day is the day that a patient statement is"
^DD(340,.03,21,3,0)="generated or a follow-up letter is generated for non-benefit debts."
^DD(340,.03,21,4,0)="The AR package will hold 'notifications' from being sent until the"
^DD(340,.03,21,5,0)="debtors 'statement day' arrives.  This allows all activity since the"
^DD(340,.03,21,6,0)="previous statement to print and update the debtor on the account"
^DD(340,.03,21,7,0)="activity."
^DD(340,.03,21,8,0)=" "
^DD(340,.03,21,9,0)="Patient statement days never change, but Institution, Person, and Vendor"
^DD(340,.03,21,10,0)="statement days are changed by the AR software.  When these type debtors"
^DD(340,.03,21,11,0)="have a new active bill, the date the new active bill is created becomes"
^DD(340,.03,21,12,0)="their 'statement day'.  This statement day remains in effect until no"
^DD(340,.03,21,13,0)="active bills exist for the debtor, at which time the statement day"
^DD(340,.03,21,14,0)="is 'deleted'."
^DD(340,.03,21,15,0)=" "
^DD(340,.03,21,16,0)="Insurance companies are notified based on a bill-specific date."
^DD(340,.03,21,17,0)="Since insurance companies have much more activity, they are notified"
^DD(340,.03,21,18,0)="on a constant basis depending on each individual bill 'due-date'."
^DD(340,.03,"DT")="2930309"
^DD(340,.05,0)="RECEIVABLE CODE^S^0:DEFAULT;1:FEDERAL;2:NON-FEDERAL;3:OWCP;^0;5^Q"
^DD(340,.05,21,0)="^^1^1^2970813^^^^"
^DD(340,.05,21,1,0)="This field identifies the type of of debtor"
^DD(340,.05,"DT")="2970813"
^DD(340,.06,0)="VENDOR LINK^P440'^PRC(440,^0;6^Q"
^DD(340,.06,3)="Enter the vendor from file 440 (IFCAP Vendor File)."
^DD(340,.06,21,0)="^^3^3^2980901^"
^DD(340,.06,21,1,0)="This field is used to link a vendor from file 440 to a debtor that is not"
^DD(340,.06,21,2,0)="a vendor debtor.   It is used to get the vendor ID to send to FMS on"
^DD(340,.06,21,3,0)="Billing Documents (BDs)."
^DD(340,.06,"DT")="2980901"
^DD(340,.08,0)="ACCT. PROCESSED (KATRINA)^S^1:YES;^0;8^Q"
^DD(340,.08,21,0)="^.001^5^5^3060407^^"
^DD(340,.08,21,1,0)="This field will be set by the software whenever a debtor is processed for "
^DD(340,.08,21,2,0)="a possible refund of payments made to interest and/or administrative "
^DD(340,.08,21,3,0)="charges that were charged inappropriately during the Hurricane Katrina "
^DD(340,.08,21,4,0)="emergency period.  A '1' in this field indicates that the account was "
^DD(340,.08,21,5,0)="already processed and should not be processed again."
^DD(340,.08,23,0)="^.001^3^3^3060407^^"
^DD(340,.08,23,1,0)="The software automatically sets this field to 1 whenever a veteran's "
^DD(340,.08,23,2,0)="account is processed by the AR hurricane Katrina software.  It prevents "
^DD(340,.08,23,3,0)="this account from being processed again."
^DD(340,.08,"DT")="3051213"
^DD(340,.09,0)="COPAY CHARGES CANCELLED?^S^1:YES;0:NO;^0;9^Q"
^DD(340,.09,21,0)="^.001^3^3^3060307^^"
^DD(340,.09,21,1,0)="This field is used to flag debtors, who were affected by Hurricane"
^DD(340,.09,21,2,0)="Katrina, who had copay charges from 8/29/05 through 2/28/06"
^DD(340,.09,21,3,0)="cancelled by patch PRCA*4.5*241."
^DD(340,.09,23,0)="^^3^3^3060307^"
^DD(340,.09,23,1,0)="This field will be automatically set by routine RCKATP during the"
^DD(340,.09,23,2,0)="patch PRCA*4.5*241 post initialization, when copay charges for"
^DD(340,.09,23,3,0)="veterans affected by Hurricane Katrina are being cancelled."
^DD(340,.09,"DT")="3060307"
^DD(340,.12,0)="LAST DATE ACCT CHARGED ADMIN^D^^.1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(340,.12,3)="This field is internally populated by AR.  This field contains the date the account was last charged an administrative fee."
^DD(340,.12,21,0)="^.001^2^2^3000808^^"
^DD(340,.12,21,1,0)="This field is used to track the last date the account was charged"
^DD(340,.12,21,2,0)="an administrative charge."
^DD(340,.12,"DT")="3000419"
^DD(340,1.01,0)="STREET ADDRESS #1^F^^1;1^K:$L(X)>40!($L(X)<1) X"
^DD(340,1.01,3)="Answer must be 1-40 characters in length."
^DD(340,1.01,21,0)="^^9^9^2931028^^^^"
^DD(340,1.01,21,1,0)="For patients, the MCCR/Fiscal staff can enter a 'billing address' that"
^DD(340,1.01,21,2,0)="will over-ride the address fields in the patient file.  This is necessary"
^DD(340,1.01,21,3,0)="for patients that may be incompetent and may need to have a separate"
^DD(340,1.01,21,4,0)="billing address from their home address.  Once the MAS package supports"
^DD(340,1.01,21,5,0)="'billing addresses', then the AR software will incorporate this"
^DD(340,1.01,21,6,0)="functionality from the MAS package."
^DD(340,1.01,21,7,0)=" "
^DD(340,1.01,21,8,0)="This field will be displayed as the first address field on patient"
^DD(340,1.01,21,9,0)="statements and profiles."
^DD(340,1.01,22)=""
^DD(340,1.01,"DT")="2930215"
^DD(340,1.02,0)="STREET ADDRESS #2^F^^1;2^K:$L(X)>40!($L(X)<1) X"
^DD(340,1.02,3)="Answer must be 1-40 characters in length."
^DD(340,1.02,21,0)="^^9^9^2931028^^^^"
^DD(340,1.02,21,1,0)="For patients, the MCCR/Fiscal staff can enter a 'billing address' that"
^DD(340,1.02,21,2,0)="will over-ride the address fields in the patient file.  This is necessary"
^DD(340,1.02,21,3,0)="for patients that may be incompetent and may need to have a separate"
^DD(340,1.02,21,4,0)="billing address from their home address.  Once the MAS package supports"
^DD(340,1.02,21,5,0)="'billing addresses', then the AR software will incorporate this"
^DD(340,1.02,21,6,0)="functionality from the MAS package."
^DD(340,1.02,21,7,0)=" "
^DD(340,1.02,21,8,0)="This field will be displayed as the second address field on patient"
^DD(340,1.02,21,9,0)="statements and profiles."
^DD(340,1.03,0)="STREET ADDRESS #3^F^^1;3^K:$L(X)>40!($L(X)<1) X"
^DD(340,1.03,3)="Answer must be 1-40 characters in length."
^DD(340,1.03,21,0)="^^9^9^2931028^^^^"
^DD(340,1.03,21,1,0)="For patients, the MCCR/Fiscal staff can enter a 'billing address' that"
^DD(340,1.03,21,2,0)="will over-ride the address fields in the patient file.  This is necessary"
^DD(340,1.03,21,3,0)="for patients that may be incompetent and may need to have a separate"
^DD(340,1.03,21,4,0)="billing address from their home address.  Once the MAS package supports"
^DD(340,1.03,21,5,0)="'billing addresses', then the AR software will incorporate this"
^DD(340,1.03,21,6,0)="functionality from the MAS package."
^DD(340,1.03,21,7,0)=" "
^DD(340,1.03,21,8,0)="This field will be displayed as the third address field on patient"
^DD(340,1.03,21,9,0)="statements and profiles."
^DD(340,1.04,0)="CITY^F^^1;4^K:$L(X)>40!($L(X)<1) X"
^DD(340,1.04,3)="Answer must be 1-40 characters in length."
^DD(340,1.04,21,0)="^^9^9^2931028^^^^"
^DD(340,1.04,21,1,0)="For patients, the MCCR/Fiscal staff can enter a 'billing address' that"
^DD(340,1.04,21,2,0)="will over-ride the address fields in the patient file.  This is necessary"
^DD(340,1.04,21,3,0)="for patients that may be incompetent and may need to have a separate"
^DD(340,1.04,21,4,0)="billing address from their home address.  Once the MAS package supports"
^DD(340,1.04,21,5,0)="'billing addresses', then the AR software will incorporate this"
^DD(340,1.04,21,6,0)="functionality from the MAS package."
^DD(340,1.04,21,7,0)=" "
^DD(340,1.04,21,8,0)="This field will be displayed as the city field on patient statements"
^DD(340,1.04,21,9,0)="and profiles."
^DD(340,1.04,"DT")="2930215"
^DD(340,1.05,0)="STATE^P5'^DIC(5,^1;5^Q"
^DD(340,1.05,21,0)="^^9^9^2931028^^^^"
^DD(340,1.05,21,1,0)="For patients, the MCCR/Fiscal staff can enter a 'billing address' that"
^DD(340,1.05,21,2,0)="will over-ride the address fields in the patient file.  This is necessary"
^DD(340,1.05,21,3,0)="for patients that may be incompetent and may need to have a separate"
^DD(340,1.05,21,4,0)="billing address from their home address.  Once the MAS package supports"
^DD(340,1.05,21,5,0)="'billing addresses', then the AR software will incorporate this"
^DD(340,1.05,21,6,0)="functionality from the MAS package."
^DD(340,1.05,21,7,0)=" "
^DD(340,1.05,21,8,0)="This field will be displayed as the state address field on patient"
^DD(340,1.05,21,9,0)="statements and profiles."
^DD(340,1.05,"DT")="2930215"
^DD(340,1.06,0)="ZIP CODE^FXO^^1;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)!(X?9N)) X S:$D(X) X=$S(X?5N1""-""4N:$P(X,""-"")_$P(X,""-"",2),1:X)"
^DD(340,1.06,2)="S Y(0)=Y S:Y?9N Y=$E(Y,1,5)_""-""_$E(Y,6,9)"
^DD(340,1.06,2.1)="S:Y?9N Y=$E(Y,1,5)_""-""_$E(Y,6,9)"
^DD(340,1.06,3)="Answer must be 5-9 characters in length."
^DD(340,1.06,21,0)="^^9^9^2931028^^^^"
^DD(340,1.06,21,1,0)="For patients, the MCCR/Fiscal staff can enter a 'billing address' that"
^DD(340,1.06,21,2,0)="will over-ride the address fields in the patient file.  This is necessary"
^DD(340,1.06,21,3,0)="for patients that may be incompetent and may need to have a separate"
^DD(340,1.06,21,4,0)="billing address from their home address.  Once the MAS package supports"
^DD(340,1.06,21,5,0)="'billing addresses', then the AR software will incorporate this"
^DD(340,1.06,21,6,0)="functionality from the MAS package."
^DD(340,1.06,21,7,0)=" "
^DD(340,1.06,21,8,0)="This field will be displayed as the Zip Code address field on patient"
^DD(340,1.06,21,9,0)="statements and profiles."
^DD(340,1.06,"DT")="2930217"
^DD(340,1.07,0)="PHONE NUMBER^F^^1;7^K:$L(X)>20!($L(X)<4) X"
^DD(340,1.07,3)="Answer must be 4-20 characters in length."
^DD(340,1.07,21,0)="^^9^9^2931030^^^"
^DD(340,1.07,21,1,0)="For patients, the MCCR/Fiscal staff can enter a ""billing phone number"" that"
^DD(340,1.07,21,2,0)="will over-ride the address fields in the Patient file.  This is necessary"
^DD(340,1.07,21,3,0)="for patients that may be incompetent and may need to have a separate"
^DD(340,1.07,21,4,0)="phone number from their home phone number.  Once the MAS package supports"
^DD(340,1.07,21,5,0)="""billing phone numbers"", then the AR software will incorporate this"
^DD(340,1.07,21,6,0)="functionality from the MAS package."
^DD(340,1.07,21,7,0)=" "
^DD(340,1.07,21,8,0)="This field will be displayed as the phone number on the patient account"
^DD(340,1.07,21,9,0)="profiles and bill profiles."
^DD(340,1.07,"DT")="2930909"
^DD(340,1.08,0)="FOREIGN COUNTRY CODE^F^^1;8^K:$L(X)>15!($L(X)<1) X"
^DD(340,1.08,3)="Answer must be 1-15 characters in length."
^DD(340,1.08,21,0)="^^2^2^2961008^"
^DD(340,1.08,21,1,0)="This field will be used for foreign addresses where the state is a foreign"
^DD(340,1.08,21,2,0)="country."
^DD(340,1.08,"DT")="2961008"
^DD(340,1.09,0)="ADDRESS UNKNOWN^S^0:NO;1:YES;^1;9^Q"
^DD(340,1.09,21,0)="^^1^1^2961209^"
^DD(340,1.09,21,1,0)="This field will indicate whether the address is unknown or not."
^DD(340,1.09,"DT")="2961209"
^DD(340,2,0)="COMMENT^340.02^^2;0"
^DD(340,2,21,0)="^^3^3^2931030^^^^"
^DD(340,2,21,1,0)="This field should contain any necessary ""general"" comments about the"
^DD(340,2,21,2,0)="debtor.  This information will be displayed at the top of the Account"
^DD(340,2,21,3,0)="Profile."
^DD(340,3.01,0)="ACCOUNT AT DMC?^S^1:ACCOUNT FORWARDED TO DMC;^3;1^Q"
^DD(340,3.01,1,0)="^.1"
^DD(340,3.01,1,1,0)="340^DMC"
^DD(340,3.01,1,1,1)="S ^RCD(340,""DMC"",$E(X,1,30),DA)="""""
^DD(340,3.01,1,1,2)="K ^RCD(340,""DMC"",$E(X,1,30),DA)"
^DD(340,3.01,1,1,"%D",0)="^^2^2^2971210^"
^DD(340,3.01,1,1,"%D",1,0)="This cross-reference will be sent if follow-up on an account is being done"
^DD(340,3.01,1,1,"%D",2,0)="by the Debt Management Center (DMC)."
^DD(340,3.01,1,1,"DT")="2970829"
^DD(340,3.01,21,0)="^^3^3^2971210^^"
^DD(340,3.01,21,1,0)="This field will contain a '1' if this account has been referred to the"
^DD(340,3.01,21,2,0)="Debt Management Center (DMC).  It will be automatically set by the AR"
^DD(340,3.01,21,3,0)="software upon creation of the DMC Master Record."
^DD(340,3.01,"DT")="2970829"
^DD(340,3.02,0)="DATE SENT TO DMC^D^^3;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(340,3.02,21,0)="^^1^1^2960731^"
^DD(340,3.02,21,1,0)="This is the date the DMC Master Record was created and transmitted."
^DD(340,3.02,"DT")="2960731"
^DD(340,3.03,0)="DMC DISCOVERY DATE^D^^3;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(340,3.03,3)=""
^DD(340,3.03,21,0)="^^1^1^2971210^"
^DD(340,3.03,21,1,0)="This is the date bill established of the oldest bill referred to DMC."
^DD(340,3.03,"DT")="2960731"
^DD(340,3.05,0)="CURRENT TOTAL AT DMC^NJ10,2^^3;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(340,3.05,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(340,3.05,21,0)="^^2^2^2971210^"
^DD(340,3.05,21,1,0)="This is the current amount of the debt that has been referred to DMC."
^DD(340,3.05,21,2,0)="This field will be updated by the DMC weekly transmission."
^DD(340,3.05,"DT")="2960829"
^DD(340,3.06,0)="CURRENT PRINCIPAL AT DMC^NJ10,2^^3;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(340,3.06,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(340,3.06,21,0)="^^2^2^2971210^"
^DD(340,3.06,21,1,0)="This is the current principal amount of the debt that has been referred to"
^DD(340,3.06,21,2,0)="DMC. This field will be updated by the DMC weekly transmission."
^DD(340,3.06,"DT")="2960829"
^DD(340,3.07,0)="CURRENT INTEREST AT DMC^NJ10,2^^3;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(340,3.07,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(340,3.07,21,0)="^^2^2^2971210^"
^DD(340,3.07,21,1,0)="This is the current interest amount of the debt that has been referred to"
^DD(340,3.07,21,2,0)="DMC. This field will be updated by the DMC weekly transmission."
^DD(340,3.07,"DT")="2960829"
^DD(340,3.08,0)="CURRENT ADMIN AT DMC^NJ10,2^^3;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(340,3.08,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(340,3.08,21,0)="^^2^2^2971210^"
^DD(340,3.08,21,1,0)="This is the current admin amount of the debt that has been referred to"
^DD(340,3.08,21,2,0)="DMC. This field will be updated by the DMC weekly transmission."
^DD(340,3.08,"DT")="2960829"
^DD(340,3.09,0)="LESSER WITHHOLDING AMOUNT^NJ10,2^^3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(340,3.09,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(340,3.09,21,0)="^^5^5^2970807^"
^DD(340,3.09,21,1,0)="This field is used to enter a lesser withholding amount for DMC (Debt"
^DD(340,3.09,21,2,0)="Management Center).  Currently, when a debtor is identified for"
^DD(340,3.09,21,3,0)="withholding by DMC, the full amount that the debtor holds is withheld.  An"
^DD(340,3.09,21,4,0)="amount in this field will allow the DMC to take a lesser amount monthly"
^DD(340,3.09,21,5,0)="until the full debt is paid."
^DD(340,3.09,"DT")="2970807"
^DD(340,3.1,0)="SITE DELETION FLAG^S^1:DELETED BY SITE;^3;10^Q"
^DD(340,3.1,21,0)="^^4^4^2970812^"
^DD(340,3.1,21,1,0)="This field will be sent whenever a site deletes a debtor from DMC.  When"
^DD(340,3.1,21,2,0)="the weekly updates encounters this flag, a '0' balance code sheet will be"
^DD(340,3.1,21,3,0)="sent to DMC to delete the debtor from their files.  However, the debtor"
^DD(340,3.1,21,4,0)="could be resent with the next master record run."
^DD(340,3.1,"DT")="2970812"
^DD(340,4.01,0)="ORIGINAL TOP TIN^F^^4;1^K:$L(X)>9!($L(X)<9) X"
^DD(340,4.01,3)="Answer must be 9 characters in length."
^DD(340,4.01,21,0)="^.001^2^2^3000501^^^"
^DD(340,4.01,21,1,0)="This is the SSN or Tax ID number sent to TOP on the original referral"
^DD(340,4.01,21,2,0)="document."
^DD(340,4.01,23,0)="^.001^3^3^3000501^^"
^DD(340,4.01,23,1,0)="This field stores the debtor's original SSN or TID sent to TOP.  It is"
^DD(340,4.01,23,2,0)="necessary because a change in the TIN will cause a type 4 document (Alias"
^DD(340,4.01,23,3,0)="name, Alias TIN) to be sent to TOP."
^DD(340,4.01,"DT")="2990609"
^DD(340,4.02,0)="ORIGINAL TOP DEBTOR NAME^F^^4;2^K:$L(X)>71!($L(X)<71) X"
^DD(340,4.02,3)="Answer must be 71 characters in length."
^DD(340,4.02,21,0)="^^1^1^2990609^"
^DD(340,4.02,21,1,0)="This is the name as sent on the original TOP referral document."
^DD(340,4.02,23,0)="^^3^3^2990615^"
^DD(340,4.02,23,1,0)=" This field stores the debtor's original name sent to TOP.  It is"
^DD(340,4.02,23,2,0)="necessary because a change in the name will cause a type 4 document (Alias"
^DD(340,4.02,23,3,0)="name, Alias TIN) to be sent to TOP."
^DD(340,4.02,"DT")="2990609"
^DD(340,4.03,0)="CURRENT TOP DEBT AMOUNT^NJ13,2^^4;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999.99)!(X<0) X"
^DD(340,4.03,3)="Type a Dollar Amount between 0 and 9999999999.99, 2 Decimal Digits"
^DD(340,4.03,23,0)="^^4^4^2990615^^"
^DD(340,4.03,23,1,0)="This field stores the debt amount currently referred to TOP.  This field"
^DD(340,4.03,23,2,0)="is used to compare the current amount at TOP with the amount currently"
^DD(340,4.03,23,3,0)="eligible for referral.   It then sends increases or decreases to TOP."
^DD(340,4.03,23,4,0)="This field also appears on the TOP report."
^DD(340,4.03,"DT")="2990609"
^DD(340,4.04,0)="ALIAS TOP TIN^F^^4;4^K:$L(X)>9!($L(X)<9) X"
^DD(340,4.04,3)="Answer must be 9 characters in length."
^DD(340,4.04,21,0)="^^1^1^2990609^"
^DD(340,4.04,21,1,0)="This field contains the most current ""Alias"" TIN sent to TOP."
^DD(340,4.04,23,0)="^^4^4^2990615^"
^DD(340,4.04,23,1,0)="This field contains the current 'Alias' TIN at TOP.  This field is"
^DD(340,4.04,23,2,0)="set/modified whenever there is a change to the debtor's TIN.   A"
^DD(340,4.04,23,3,0)="new/modified entry in this field causes a type 4 document to be sent to"
^DD(340,4.04,23,4,0)="TOP."
^DD(340,4.04,"DT")="2990609"
^DD(340,4.05,0)="ALIAS TOP NAME^F^^4;5^K:$L(X)>71!($L(X)<71) X"
^DD(340,4.05,3)="Answer must be 71 characters in length."
^DD(340,4.05,21,0)="^^1^1^2990609^"
^DD(340,4.05,21,1,0)="This field contains the most current ""Alias"" name sent to TOP"
^DD(340,4.05,23,0)="^^4^4^2990615^^"
^DD(340,4.05,23,1,0)="This field contains the current 'Alias' name at TOP.  This field is"
^DD(340,4.05,23,2,0)="set/modified whenever there is a change to the debtor's name.  A"
^DD(340,4.05,23,3,0)="new/modified entry in this field causes a type 4 document to be sent to"
^DD(340,4.05,23,4,0)="TOP."
^DD(340,4.05,"DT")="2990609"
^DD(340,4.06,0)="TOP DELINQUENCY DATE^D^^4;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(340,4.06,21,0)="^^4^4^2990727^"
^DD(340,4.06,21,1,0)="This is the date of the oldest active bill currently sent to TOP.  This is"
^DD(340,4.06,21,2,0)="initially entered upon creation of the master documents and may be changed"
^DD(340,4.06,21,3,0)="during the creation of the update documents.The date in this field is"
^DD(340,4.06,21,4,0)="placed on Recertification and Refund/ Refund Reversal documents."
^DD(340,4.06,23,0)="^^4^4^2990727^^"
^DD(340,4.06,23,1,0)="This date is initially stored with the master documents and is the date"
^DD(340,4.06,23,2,0)="account activated of the earliest bill submitted to TOP.  This field may"
^DD(340,4.06,23,3,0)="be updated during the compilation of update documents.  It will be also"
^DD(340,4.06,23,4,0)="placed on the recertification, refund, and refund reversal documents."
^DD(340,4.06,"DT")="2990722"
^DD(340,5.01,0)="TOP DEBTOR ADDRESS, LINE 1^F^^5;1^K:$L(X)>30!($L(X)<1) X"
^DD(340,5.01,3)="Answer must be 1-30 characters in length."
^DD(340,5.01,21,0)="^^2^2^2990609^"
^DD(340,5.01,21,1,0)="This contains the 1st line of the current debtor address transmitted to"
^DD(340,5.01,21,2,0)="TOP."
^DD(340,5.01,23,0)="^^5^5^2990616^"
^DD(340,5.01,23,1,0)="This field (along with the other TOP address fields) is stored when the"
^DD(340,5.01,23,2,0)="initial TOP type 2 (address) document is sent to TOP.  This (and the other"
^DD(340,5.01,23,3,0)="address fields) are checked whenever the TOP udpates are sent.  If there"
^DD(340,5.01,23,4,0)="is a change in address, an updated type 2 document is sent to TOP and the"
^DD(340,5.01,23,5,0)="new address is stored in these fields."
^DD(340,5.01,"DT")="2990609"
^DD(340,5.02,0)="TOP DEBTOR ADDRESS, LINE 2^F^^5;2^K:$L(X)>30!($L(X)<1) X"
^DD(340,5.02,3)="Answer must be 1-30 characters in length."
^DD(340,5.02,21,0)="^^2^2^2990609^"
^DD(340,5.02,21,1,0)="This contains the 2nd line of the current debtor address transmitted to"
^DD(340,5.02,21,2,0)="TOP."
^DD(340,5.02,23,0)="^^5^5^2990616^"
^DD(340,5.02,23,1,0)="This field (along with the other TOP address fields) is stored when the"
^DD(340,5.02,23,2,0)="initial TOP type 2 (address) document is sent to TOP.  This (and the other"
^DD(340,5.02,23,3,0)="address fields) are checked whenever the TOP udpates are sent.  If there"
^DD(340,5.02,23,4,0)="is a change in address, an updated type 2 document is sent to TOP and the"
^DD(340,5.02,23,5,0)="new address is stored in these fields."
^DD(340,5.02,"DT")="2990609"
^DD(340,5.03,0)="TOP DEBTOR ADDRESS, CITY^F^^5;3^K:$L(X)>25!($L(X)<1) X"
^DD(340,5.03,3)="Answer must be 1-25 characters in length."
^DD(340,5.03,21,0)="^^2^2^2990609^"
^DD(340,5.03,21,1,0)="This contains the city included in the current debtor address transmitted"
^DD(340,5.03,21,2,0)="to TOP."
^DD(340,5.03,23,0)="^^5^5^2990616^"
^DD(340,5.03,23,1,0)="This field (along with the other TOP address fields) is stored when the"
^DD(340,5.03,23,2,0)="initial TOP type 2 (address) document is sent to TOP.  This (and the other"
^DD(340,5.03,23,3,0)="address fields) are checked whenever the TOP udpates are sent.  If there"
^DD(340,5.03,23,4,0)="is a change in address, an updated type 2 document is sent to TOP and the"
^DD(340,5.03,23,5,0)="new address is stored in these fields."
^DD(340,5.03,"DT")="2990609"
^DD(340,5.04,0)="TOP DEBTOR ADDRESS, STATE^F^^5;4^K:$L(X)>2!($L(X)<2) X"
^DD(340,5.04,3)="Answer must be 2 characters in length."
^DD(340,5.04,21,0)="^^2^2^2990609^"
^DD(340,5.04,21,1,0)="This field is a pointer to the State file.  It includes the state from the"
^DD(340,5.04,21,2,0)="current address sent to TOP."
^DD(340,5.04,23,0)="^^5^5^2990616^"
^DD(340,5.04,23,1,0)="This field (along with the other TOP address fields) is stored when the"
^DD(340,5.04,23,2,0)="initial TOP type 2 (address) document is sent to TOP.  This (and the other"
^DD(340,5.04,23,3,0)="address fields) are checked whenever the TOP udpates are sent.  If there"
^DD(340,5.04,23,4,0)="is a change in address, an updated type 2 document is sent to TOP and the"
^DD(340,5.04,23,5,0)="new address is stored in these fields."
^DD(340,5.04,"DT")="3000208"
^DD(340,5.05,0)="TOP DEBTOR ADDRESS, ZIP CODE^F^^5;5^K:$L(X)>9!($L(X)<5) X"
^DD(340,5.05,3)="Answer must be 5-9 characters in length."
^DD(340,5.05,21,0)="^^2^2^2990609^"
^DD(340,5.05,21,1,0)="This contains the Zip Code included in the current debtor address"
^DD(340,5.05,21,2,0)="transmitted to TOP."
^DD(340,5.05,23,0)="^^5^5^2990616^"
^DD(340,5.05,23,1,0)="This field (along with the other TOP address fields) is stored when the"
^DD(340,5.05,23,2,0)="initial TOP type 2 (address) document is sent to TOP.  This (and the other"
^DD(340,5.05,23,3,0)="address fields) are checked whenever the TOP udpates are sent.  If there"
^DD(340,5.05,23,4,0)="is a change in address, an updated type 2 document is sent to TOP and the"
^DD(340,5.05,23,5,0)="new address is stored in these fields."
^DD(340,5.05,"DT")="2990609"
^DD(340,6.01,0)="DATE DEBTOR REFERRED TO TOP^D^^6;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(340,6.01,1,0)="^.1"
^DD(340,6.01,1,1,0)="340^TOP^MUMPS"
^DD(340,6.01,1,1,1)="S ^RCD(340,""TOP"",DA,$E(X,1,30))="""""
^DD(340,6.01,1,1,2)="K ^RCD(340,""TOP"",DA)"
^DD(340,6.01,1,1,"%D",0)="^^2^2^2990630^"
^DD(340,6.01,1,1,"%D",1,0)="This Cross-Reference indicates whether a debtor has been sent to TOP and"
^DD(340,6.01,1,1,"%D",2,0)="the date of the reference."
^DD(340,6.01,1,1,"DT")="2990630"
^DD(340,6.01,21,0)="^^1^1^2990609^"
^DD(340,6.01,21,1,0)="This contains the date the account was 1st referred to TOP."
^DD(340,6.01,23,0)="^^3^3^2990615^"
^DD(340,6.01,23,1,0)="This is the date that the original Type 1 (Debtor Name, Debtor TIN, Debt"
^DD(340,6.01,23,2,0)="number) document was sent to TOP.  It is entered automatically by the"
^DD(340,6.01,23,3,0)="system when the initial document is generated."
^DD(340,6.01,"DT")="2990630"
^DD(340,6.02,0)="STOP TOP REFERRAL FLAG^S^1:STOP TOP REFERRAL FLAG SET;^6;2^Q"
^DD(340,6.02,21,0)="^^2^2^2990609^"
^DD(340,6.02,21,1,0)="This flag is set whenver a 'Stop TOP Referral' is entered by the user"
^DD(340,6.02,21,2,0)="through the menu option RCTOP STOP REFERRAL."
^DD(340,6.02,23,0)="^^4^4^2990615^"
^DD(340,6.02,23,1,0)="This field is set whenever a Stop Referral is entered through the user"
^DD(340,6.02,23,2,0)="option.  This flag is also deleted by the user option.  If the debtor has"
^DD(340,6.02,23,3,0)="already been referred to TOP, entry of this field will 'zero out' the"
^DD(340,6.02,23,4,0)="account at TOP with the next update."
^DD(340,6.02,"DT")="2990609"
^DD(340,6.03,0)="STOP TOP REFERRAL EFF. DATE^D^^6;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(340,6.03,21,0)="^^2^2^2990609^"
^DD(340,6.03,21,1,0)="This field contains a date, for which bills generated after, are eligible"
^DD(340,6.03,21,2,0)="for TOP referral."
^DD(340,6.03,23,0)="^^5^5^2990615^"
^DD(340,6.03,23,1,0)="This field is optionally set whenever a Stop Referral is entered through"
^DD(340,6.03,23,2,0)="the user option.  It allows for the referral to TOP of future bills."
^DD(340,6.03,23,3,0)="Bills generated after this effective date will be eligible for referral to"
^DD(340,6.03,23,4,0)="TOP.   To 'Stop TOP Referral' indefinitely, no entry should be made in"
^DD(340,6.03,23,5,0)="this field."
^DD(340,6.03,"DT")="2990609"
^DD(340,6.04,0)="STOP TOP REFERRAL REASON^S^W:WAIVER;B:BANKRUPTCY;N:NOT FORWARDED BY AAC;O:OTHER;R:REJECTED BY TOP;^6;4^Q"
^DD(340,6.04,21,0)="^^1^1^2990609^"
^DD(340,6.04,21,1,0)="This field contains a code ,detailing the reason TOP referral was stopped."
^DD(340,6.04,23,0)="^^5^5^2990615^"
^DD(340,6.04,23,1,0)="This field is set whenever a Stop Referral is entered through the user"
^DD(340,6.04,23,2,0)="option.   The user must enter one of the codes."
^DD(340,6.04,23,3,0)=" "
^DD(340,6.04,23,4,0)="It contains one of 4 codes:  Waiver (""W""), Bankruptcy (""B""), Not Forwarded"
^DD(340,6.04,23,5,0)="by AAC (""N"") or Other(""O"")."
^DD(340,6.04,"DT")="3000208"
^DD(340,6.05,0)="STOP TOP REFERRAL COMMENT^F^^6;5^K:$L(X)>80!($L(X)<1) X"
^DD(340,6.05,3)="Answer must be 1-80 characters in length."
^DD(340,6.05,21,0)="^^2^2^2990609^"
^DD(340,6.05,21,1,0)="This field must be answered whenever a reason of 'Other' is entered for"
^DD(340,6.05,21,2,0)="stopping TOP referral."
^DD(340,6.05,23,0)="^^3^3^2990615^"
^DD(340,6.05,23,1,0)="This field is set whenever a Stop Referral is entered through the user"
^DD(340,6.05,23,2,0)="option with a referral reason of Other.  It contains a free text comment,"
^DD(340,6.05,23,3,0)="detailing the reason for Stopping Referral."
^DD(340,6.05,"DT")="2990609"
^DD(340,6.06,0)="TOP REFERRAL HOLD DATE^D^^6;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(340,6.06,21,0)="^^2^2^2990609^"
^DD(340,6.06,21,1,0)="This field contains the date the Vendor or Ex-Employee referral will be"
^DD(340,6.06,21,2,0)="forwarded to TOP by the AAC."
^DD(340,6.06,23,0)="^^2^2^2990615^"
^DD(340,6.06,23,1,0)="This field is set for a vendor or ex-employee referral, since the AAC will"
^DD(340,6.06,23,2,0)="hold the referral for 60 days before referring the debt to TOP."
^DD(340,6.06,"DT")="2990609"
^DD(340,6.07,0)="CURRENT TOP TRACE NUMBER^F^^6;7^K:$L(X)>10!($L(X)<10) X"
^DD(340,6.07,3)="Answer must be 10 characters in length."
^DD(340,6.07,21,0)="^^1^1^2990609^"
^DD(340,6.07,21,1,0)="This is the number assigned by TOP to the last payment from the debtor."
^DD(340,6.07,23,0)="^^4^4^2990616^"
^DD(340,6.07,23,1,0)="This field is set/modified whenever a TOP payment is entered.  It contains"
^DD(340,6.07,23,2,0)="the number assigned  by TOP to the payment.  This field will be used if it"
^DD(340,6.07,23,3,0)="is necessary to send a refund document to TOP.  It will"
^DD(340,6.07,23,4,0)="store the last trace number provided by TOP.."
^DD(340,6.07,"DT")="2990609"
^DD(340,110,0)="SSN^CJ10^^ ; ^S X=$$SSN^RCFN01($P(^RCD(340,D0,0),""^""))"
^DD(340,110,9)="^"
^DD(340,110,9.01)=""
^DD(340,110,9.1)="S X=$$SSN^RCFN01($P(^RCD(340,D0,0),""^""))"
^DD(340,110,21,0)="^^2^2^2930601^"
^DD(340,110,21,1,0)="This field is used to display the SSN of patient and persons on AR"
^DD(340,110,21,2,0)="reports or local reports."
^DD(340,110,"DT")="2930212"
^DD(340,111,0)="LARGE PRINT NEEDED ON STMT^S^1:YES;0:NO;^0;7^Q"
^DD(340,111,3)=""
^DD(340,111,21,0)="^.001^2^2^3041115^^^^"
^DD(340,111,21,1,0)="This field will identify 1st party debtors requiring statements"
^DD(340,111,21,2,0)="with large print."
^DD(340,111,"DT")="3041115"
^DD(340,"B","ACCOUNT AT DMC?",3.01)=""
^DD(340,"B","ACCT. PROCESSED (KATRINA)",.08)=""
^DD(340,"B","ADDRESS UNKNOWN",1.09)=""
^DD(340,"B","ALIAS TOP NAME",4.05)=""
^DD(340,"B","ALIAS TOP TIN",4.04)=""
^DD(340,"B","CITY",1.04)=""
^DD(340,"B","COMMENT",2)=""
^DD(340,"B","COPAY CHARGES CANCELLED?",.09)=""
^DD(340,"B","CURRENT ADMIN AT DMC",3.08)=""
^DD(340,"B","CURRENT INTEREST AT DMC",3.07)=""
^DD(340,"B","CURRENT PRINCIPAL AT DMC",3.06)=""
^DD(340,"B","CURRENT TOP DEBT AMOUNT",4.03)=""
^DD(340,"B","CURRENT TOP TRACE NUMBER",6.07)=""
^DD(340,"B","CURRENT TOTAL AT DMC",3.05)=""
^DD(340,"B","DATE DEBTOR REFERRED TO TOP",6.01)=""
^DD(340,"B","DATE SENT TO DMC",3.02)=""
^DD(340,"B","DEBTOR",.01)=""
^DD(340,"B","DMC DISCOVERY DATE",3.03)=""
^DD(340,"B","FOREIGN COUNTRY CODE",1.08)=""
^DD(340,"B","LARGE PRINT NEEDED ON STMT",111)=""
^DD(340,"B","LAST DATE ACCT CHARGED ADMIN",.12)=""
^DD(340,"B","LESSER WITHHOLDING AMOUNT",3.09)=""
^DD(340,"B","ORIGINAL TOP DEBTOR NAME",4.02)=""
^DD(340,"B","ORIGINAL TOP TIN",4.01)=""
^DD(340,"B","PATIENT STATEMENT DETAIL",.02)=""
^DD(340,"B","PHONE NUMBER",1.07)=""
^DD(340,"B","RECEIVABLE CODE",.05)=""
^DD(340,"B","SITE DELETION FLAG",3.1)=""
^DD(340,"B","SSN",110)=""
^DD(340,"B","STATE",1.05)=""
^DD(340,"B","STATEMENT DAY",.03)=""
^DD(340,"B","STOP TOP REFERRAL COMMENT",6.05)=""
^DD(340,"B","STOP TOP REFERRAL EFF. DATE",6.03)=""
^DD(340,"B","STOP TOP REFERRAL FLAG",6.02)=""
^DD(340,"B","STOP TOP REFERRAL REASON",6.04)=""
^DD(340,"B","STREET ADDRESS #1",1.01)=""
^DD(340,"B","STREET ADDRESS #2",1.02)=""
^DD(340,"B","STREET ADDRESS #3",1.03)=""
^DD(340,"B","TOP DEBTOR ADDRESS, CITY",5.03)=""
^DD(340,"B","TOP DEBTOR ADDRESS, LINE 1",5.01)=""
^DD(340,"B","TOP DEBTOR ADDRESS, LINE 2",5.02)=""
^DD(340,"B","TOP DEBTOR ADDRESS, STATE",5.04)=""
^DD(340,"B","TOP DEBTOR ADDRESS, ZIP CODE",5.05)=""
^DD(340,"B","TOP DELINQUENCY DATE",4.06)=""
^DD(340,"B","TOP REFERRAL HOLD DATE",6.06)=""
^DD(340,"B","VENDOR LINK",.06)=""
^DD(340,"B","ZIP CODE",1.06)=""
^DD(340,"GL",0,1,.01)=""
^DD(340,"GL",0,2,.02)=""
^DD(340,"GL",0,3,.03)=""
^DD(340,"GL",0,5,.05)=""
^DD(340,"GL",0,6,.06)=""
^DD(340,"GL",0,7,111)=""
^DD(340,"GL",0,8,.08)=""
^DD(340,"GL",0,9,.09)=""
^DD(340,"GL",.1,2,.12)=""
^DD(340,"GL",1,1,1.01)=""
^DD(340,"GL",1,2,1.02)=""
^DD(340,"GL",1,3,1.03)=""
^DD(340,"GL",1,4,1.04)=""
^DD(340,"GL",1,5,1.05)=""
^DD(340,"GL",1,6,1.06)=""
^DD(340,"GL",1,7,1.07)=""
^DD(340,"GL",1,8,1.08)=""
^DD(340,"GL",1,9,1.09)=""
^DD(340,"GL",2,0,2)=""
^DD(340,"GL",3,1,3.01)=""
^DD(340,"GL",3,2,3.02)=""
^DD(340,"GL",3,3,3.03)=""
^DD(340,"GL",3,5,3.05)=""
^DD(340,"GL",3,6,3.06)=""
^DD(340,"GL",3,7,3.07)=""
^DD(340,"GL",3,8,3.08)=""
^DD(340,"GL",3,9,3.09)=""
^DD(340,"GL",3,10,3.1)=""
^DD(340,"GL",4,1,4.01)=""
^DD(340,"GL",4,2,4.02)=""
^DD(340,"GL",4,3,4.03)=""
^DD(340,"GL",4,4,4.04)=""
^DD(340,"GL",4,5,4.05)=""
^DD(340,"GL",4,6,4.06)=""
^DD(340,"GL",5,1,5.01)=""
^DD(340,"GL",5,2,5.02)=""
^DD(340,"GL",5,3,5.03)=""
^DD(340,"GL",5,4,5.04)=""
^DD(340,"GL",5,5,5.05)=""
^DD(340,"GL",6,1,6.01)=""
^DD(340,"GL",6,2,6.02)=""
^DD(340,"GL",6,3,6.03)=""
^DD(340,"GL",6,4,6.04)=""
^DD(340,"GL",6,5,6.05)=""
^DD(340,"GL",6,6,6.06)=""
^DD(340,"GL",6,7,6.07)=""
^DD(340,"IX",.01)=""
^DD(340,"IX",.03)=""
^DD(340,"IX",3.01)=""
^DD(340,"IX",6.01)=""
^DD(340,"RQ",.01)=""
^DD(340,"SB",340.02,2)=""
^DD(340.02,0)="COMMENT SUB-FIELD^^.01^1"
^DD(340.02,0,"DT")="2930211"
^DD(340.02,0,"NM","COMMENT")=""
^DD(340.02,0,"UP")="340"
^DD(340.02,.01,0)="COMMENT^W^^0;1^Q"
^DD(340.02,.01,21,0)="^^4^4^2930923^^"
^DD(340.02,.01,21,1,0)="This field should contain any necessary ""general"" comments about the"
^DD(340.02,.01,21,2,0)="debtor.  This information will be displayed at the top of the Account"
^DD(340.02,.01,21,3,0)="Profile.  This field could, for example, contain a message to remind"
^DD(340.02,.01,21,4,0)="the agent cashier to remind the patient of an important message."
^DD(340.02,.01,"DT")="2930211"
^DD(340.02,"B","COMMENT",.01)=""
^DD(340.02,"GL",0,1,.01)=""
^DD(341,0)="FIELD^^6.01^19"
^DD(341,0,"DDA")="N"
^DD(341,0,"DT")="2930707"
^DD(341,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RC(341.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(341.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(341,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RCD(340,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(340,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(341,0,"IX","AC1",341,.05)=""
^DD(341,0,"IX","AC2",341,.11)=""
^DD(341,0,"IX","AD1",341,.05)=""
^DD(341,0,"IX","AD2",341,.02)=""
^DD(341,0,"IX","AD3",341,.07)=""
^DD(341,0,"IX","AE",341,4.02)=""
^DD(341,0,"IX","B",341,.01)=""
^DD(341,0,"IX","C",341,.07)=""
^DD(341,0,"NM","AR EVENT")=""
^DD(341,0,"VR")="4.5"
^DD(341,.01,0)="EVENT IDENTIFIER^RFX^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X),$D(^RC(341,""B"",X)) W "" DUPLICATE AR EVENT ENTRY '""_X_""'!"" K X"
^DD(341,.01,1,0)="^.1"
^DD(341,.01,1,1,0)="341^B"
^DD(341,.01,1,1,1)="S ^RC(341,""B"",$E(X,1,30),DA)="""""
^DD(341,.01,1,1,2)="K ^RC(341,""B"",$E(X,1,30),DA)"
^DD(341,.01,1,1,3)="Needed to look-up events by identifier"
^DD(341,.01,1,1,"%D",0)="^^1^1^2930609^"
^DD(341,.01,1,1,"%D",1,0)="This cross-reference will allow look-up to the event file by identifier."
^DD(341,.01,3)="Answer must be 3-30 characters in length."
^DD(341,.01,4)=""
^DD(341,.01,21,0)="^^3^3^2930604^^^^"
^DD(341,.01,21,1,0)="This is a unique identifier of an event logged into the AR Event"
^DD(341,.01,21,2,0)="file.  Usually the first 3 numbers will be the station number followed"
^DD(341,.01,21,3,0)="by a dash."
^DD(341,.01,"DT")="2930604"
^DD(341,.02,0)="TYPE OF EVENT^RP341.1'^RC(341.1,^0;2^Q"
^DD(341,.02,1,0)="^.1"
^DD(341,.02,1,1,0)="341^AD2^MUMPS"
^DD(341,.02,1,1,1)="I $P($G(^RC(341,DA,0)),""^"",5),$P(^(0),""^"",7) S ^RC(341,""AD"",$P(^(0),""^"",5),X,9999999.999999-$P(^(0),""^"",7),DA)="""""
^DD(341,.02,1,1,2)="I $P($G(^RC(341,DA,0)),""^"",5),$P(^(0),""^"",7) K ^RC(341,""AD"",$P(^(0),""^"",5),X,9999999.999999-$P(^(0),""^"",7),DA)"
^DD(341,.02,1,1,3)="Needed to store events by debtor, event-type, and date/time closed."
^DD(341,.02,1,1,"%D",0)="^^3^3^2931014^^^"
^DD(341,.02,1,1,"%D",1,0)="This cross-reference is used for account profiles and for printing patient"
^DD(341,.02,1,1,"%D",2,0)="statements, letters, and bills.  It stores the debtor, event-type, and"
^DD(341,.02,1,1,"%D",3,0)="date/time event was closed in reverse order."
^DD(341,.02,1,1,"DT")="2930128"
^DD(341,.02,21,0)="^^9^9^2931014^^^^"
^DD(341,.02,21,1,0)="The event type describes the type of event that occurred for a debtor"
^DD(341,.02,21,2,0)="by storing all events that occur for this debtor.  This allows better"
^DD(341,.02,21,3,0)="reporting capabilities, financial integrity, and history recreation."
^DD(341,.02,21,4,0)=" "
^DD(341,.02,21,5,0)="In version 4.0 of AR, the only types of events that are tracked under"
^DD(341,.02,21,6,0)="this new system are notification type events (letters, UBs, and patient"
^DD(341,.02,21,7,0)="statements) and comments.  Eventually, payments, refunds, etc. will"
^DD(341,.02,21,8,0)="be tracked in this new file but are currently being tracked in the"
^DD(341,.02,21,9,0)="Accounts Receivable transaction file."
^DD(341,.02,"DT")="2930531"
^DD(341,.05,0)="DEBTOR^RP340'^RCD(340,^0;5^Q"
^DD(341,.05,1,0)="^.1^^-1"
^DD(341,.05,1,2,0)="341^AC1^MUMPS"
^DD(341,.05,1,2,1)="I $P(^RC(341,DA,0),""^"",11)=0 S ^RC(341,""AC"",X,0,DA)="""""
^DD(341,.05,1,2,2)="I $P(^RC(341,DA,0),""^"",11)=0 K ^RC(341,""AC"",X,0,DA)"
^DD(341,.05,1,2,3)="Needed to store events that are in OPEN status for debtors."
^DD(341,.05,1,2,"%D",0)="^^4^4^2930609^^"
^DD(341,.05,1,2,"%D",1,0)="This cross reference is used to store events that are in an open status."
^DD(341,.05,1,2,"%D",2,0)="Since only one event at a time should be in an open status for a debtor,"
^DD(341,.05,1,2,"%D",3,0)="this cross reference makes sure that no two events are in an open status"
^DD(341,.05,1,2,"%D",4,0)="for a debtor."
^DD(341,.05,1,2,"DT")="2930102"
^DD(341,.05,1,3,0)="341^AD1^MUMPS"
^DD(341,.05,1,3,1)="I $P($G(^RC(341,DA,0)),""^"",2),$P(^(0),""^"",7) S ^RC(341,""AD"",X,$P(^(0),""^"",2),9999999.999999-$P(^(0),""^"",7),DA)="""""
^DD(341,.05,1,3,2)="I $P($G(^RC(341,DA,0)),""^"",2),$P(^(0),""^"",7) K ^RC(341,""AD"",X,$P(^(0),""^"",2),9999999.999999-$P(^(0),""^"",7),DA)"
^DD(341,.05,1,3,3)="Needed to store events by debtor, event-type, and date/time closed."
^DD(341,.05,1,3,"%D",0)="^^3^3^2931014^^^^"
^DD(341,.05,1,3,"%D",1,0)="This-cross reference is used for account profiles and for printing patient"
^DD(341,.05,1,3,"%D",2,0)="statements, letters, and bills.  It stores the debtor, event-type, and"
^DD(341,.05,1,3,"%D",3,0)="date/time event was closed in reverse order."
^DD(341,.05,1,3,"DT")="2930617"
^DD(341,.05,21,0)="^^3^3^2930603^"
^DD(341,.05,21,1,0)="This debtor field is used to store what debtor this event belongs to."
^DD(341,.05,21,2,0)="By storing events by debtor, this will allow a more efficient"
^DD(341,.05,21,3,0)="system when trying to re-create the activity for a debtor account."
^DD(341,.05,"DT")="2930617"
^DD(341,.06,0)="DATE/TIME OF EVENT^RD^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(341,.06,21,0)="^^5^5^2930609^^^"
^DD(341,.06,21,1,0)="The Date/Time of event represents the date the event occurred.  For"
^DD(341,.06,21,2,0)="example, if a user is logging a comment against a debtor account for"
^DD(341,.06,21,3,0)="the previous day, then this field would be dated for that day and"
^DD(341,.06,21,4,0)="not the day it is being entered.  This allows the user to back-date"
^DD(341,.06,21,5,0)="events that occurred in the past."
^DD(341,.06,"DT")="2930309"
^DD(341,.07,0)="DATE/TIME CLOSED^RD^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(341,.07,1,0)="^.1^^-1"
^DD(341,.07,1,2,0)="341^AD3^MUMPS"
^DD(341,.07,1,2,1)="I $P($G(^RC(341,DA,0)),""^"",5),$P(^(0),""^"",2) S ^RC(341,""AD"",$P(^(0),""^"",5),$P(^(0),""^"",2),9999999.999999-X,DA)="""""
^DD(341,.07,1,2,2)="I $P($G(^RC(341,DA,0)),""^"",5),$P(^(0),""^"",2) K ^RC(341,""AD"",$P(^(0),""^"",5),$P(^(0),""^"",2),9999999.999999-X,DA)"
^DD(341,.07,1,2,3)="Needed to store events by debtor, event-type, and date/time closed."
^DD(341,.07,1,2,"%D",0)="^^3^3^2931014^^^^"
^DD(341,.07,1,2,"%D",1,0)="This cross-reference is used for account profiles and for printing patient"
^DD(341,.07,1,2,"%D",2,0)="statements, letters, and bills.  It stores the debtor, event-type, and"
^DD(341,.07,1,2,"%D",3,0)="date/time event was closed in reverse order."
^DD(341,.07,1,2,"DT")="2930128"
^DD(341,.07,1,3,0)="341^C"
^DD(341,.07,1,3,1)="S ^RC(341,""C"",$E(X,1,30),DA)="""""
^DD(341,.07,1,3,2)="K ^RC(341,""C"",$E(X,1,30),DA)"
^DD(341,.07,1,3,3)="Needed to look-up and search events by Date/Time Closed"
^DD(341,.07,1,3,"%D",0)="^^2^2^2930609^"
^DD(341,.07,1,3,"%D",1,0)="This cross reference sorts events by the date/time they are closed and"
^DD(341,.07,1,3,"%D",2,0)="allows a chronological ordering of events."
^DD(341,.07,1,3,"DT")="2930531"
^DD(341,.07,21,0)="^^4^4^2930603^"
^DD(341,.07,21,1,0)="The date/time an event is closed is the time the AR package 'recognizes'"
^DD(341,.07,21,2,0)="the event as being closed and complete.  An event has two status, OPEN"
^DD(341,.07,21,3,0)="and CLOSED.  While a transaction is in a status of 'OPEN' the AR package"
^DD(341,.07,21,4,0)="does not recognize the transaction."
^DD(341,.07,"DT")="2930531"
^DD(341,.08,0)="CREATED BY^P200'^VA(200,^0;8^Q"
^DD(341,.08,21,0)="^^1^1^2930603^"
^DD(341,.08,21,1,0)="This is the person that caused the event to be created."
^DD(341,.08,"DT")="2930309"
^DD(341,.09,0)="SITE^RP4'^DIC(4,^0;9^Q"
^DD(341,.09,21,0)="^^3^3^2930609^^"
^DD(341,.09,21,1,0)="The site field represents the site that the event belongs to.  This"
^DD(341,.09,21,2,0)="field would be used when multiple divisional sites are supported and will"
^DD(341,.09,21,3,0)="allow events to be 'traced' to a particular site."
^DD(341,.09,"DT")="2930219"
^DD(341,.11,0)="STATUS^RS^0:OPEN;1:CLOSED;^0;11^Q"
^DD(341,.11,1,0)="^.1^^-1"
^DD(341,.11,1,1,0)="341^AC2^MUMPS"
^DD(341,.11,1,1,1)="I X=0,$P(^RC(341,DA,0),""^"",5) S ^RC(341,""AC"",$P(^RC(341,DA,0),""^"",5),X,DA)="""""
^DD(341,.11,1,1,2)="I X=0,$P(^RC(341,DA,0),""^"",5) K ^RC(341,""AC"",$P(^RC(341,DA,0),""^"",5),X,DA)"
^DD(341,.11,1,1,3)="Needed to store events that are in OPEN status for debtors."
^DD(341,.11,1,1,"%D",0)="^^4^4^2930609^^^"
^DD(341,.11,1,1,"%D",1,0)="This cross reference is used to store events that are in an open status."
^DD(341,.11,1,1,"%D",2,0)="Since only one event at a time should be in an open status for a debtor,"
^DD(341,.11,1,1,"%D",3,0)="this cross reference makes sure that no two events are in an open status"
^DD(341,.11,1,1,"%D",4,0)="for a debtor."
^DD(341,.11,1,1,"DT")="2930102"
^DD(341,.11,21,0)="^^4^4^2931014^^^"
^DD(341,.11,21,1,0)="The status of an event is either OPEN or CLOSED.  When an event for"
^DD(341,.11,21,2,0)="a debtor is in an 'OPEN' status, this means that activity is occurring"
^DD(341,.11,21,3,0)="and has not completed.  After the activity is completed, the event"
^DD(341,.11,21,4,0)="would be changed to a status of CLOSED."
^DD(341,.11,"DT")="2930130"
^DD(341,1.01,0)="PRINCIPAL AMOUNT^NJ9,2O^^1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(341,1.01,2)="S Y(0)=Y S Y=$J(Y,0,2)"
^DD(341,1.01,2.1)="S Y=$J(Y,0,2)"
^DD(341,1.01,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(341,1.01,21,0)="^^3^3^2930604^"
^DD(341,1.01,21,1,0)="This field contains the principal amount of the event if applicable."
^DD(341,1.01,21,2,0)="Some events, such as comment type events, do not have a dollar amount"
^DD(341,1.01,21,3,0)="associated with the event."
^DD(341,1.01,"DT")="2930707"
^DD(341,1.02,0)="INTEREST AMOUNT^NJ9,2O^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(341,1.02,2)="S Y(0)=Y S Y=$J(Y,0,2)"
^DD(341,1.02,2.1)="S Y=$J(Y,0,2)"
^DD(341,1.02,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(341,1.02,21,0)="^^3^3^2930604^"
^DD(341,1.02,21,1,0)="This field contains the interest amount of the event if applicable."
^DD(341,1.02,21,2,0)="Some events, such as comment type events, do not have a dollar amount"
^DD(341,1.02,21,3,0)="associated with the event."
^DD(341,1.02,"DT")="2930707"
^DD(341,1.03,0)="ADMINISTRATIVE^NJ9,2O^^1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(341,1.03,2)="S Y(0)=Y S Y=$J(Y,0,2)"
^DD(341,1.03,2.1)="S Y=$J(Y,0,2)"
^DD(341,1.03,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(341,1.03,21,0)="^^3^3^2930604^"
^DD(341,1.03,21,1,0)="This field contains the administrative amount of the event if applicable."
^DD(341,1.03,21,2,0)="Some events, such as comment type events, do not have a dollar amount"
^DD(341,1.03,21,3,0)="associated with the event."
^DD(341,1.03,"DT")="2930707"
^DD(341,1.04,0)="COURT AMOUNT^NJ9,2O^^1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(341,1.04,2)="S Y(0)=Y S Y=$J(Y,0,2)"
^DD(341,1.04,2.1)="S Y=$J(Y,0,2)"
^DD(341,1.04,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(341,1.04,21,0)="^^3^3^2930604^"
^DD(341,1.04,21,1,0)="This field contains the court cost amount of the event if applicable."
^DD(341,1.04,21,2,0)="Some events, such as comment type events, do not have a dollar amount"
^DD(341,1.04,21,3,0)="associated with the event."
^DD(341,1.04,"DT")="2930707"
^DD(341,1.05,0)="MARSHAL AMOUNT^NJ9,2O^^1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(341,1.05,2)="S Y(0)=Y S Y=$J(Y,0,2)"
^DD(341,1.05,2.1)="S Y=$J(Y,0,2)"
^DD(341,1.05,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(341,1.05,21,0)="^^3^3^2930604^"
^DD(341,1.05,21,1,0)="This field contains the marshal cost amount of the event if applicable."
^DD(341,1.05,21,2,0)="Some events, such as comment type events, do not have a dollar amount"
^DD(341,1.05,21,3,0)="associated with the event."
^DD(341,1.05,"DT")="2930707"
^DD(341,2.01,0)="COMMENT^341.01^^2;0"
^DD(341,2.01,21,0)="^^6^6^2930923^^^"
^DD(341,2.01,21,1,0)="This field gives the user the ability to give expanded comments for"
^DD(341,2.01,21,2,0)="an event or the reason the event occurred or to better describe the"
^DD(341,2.01,21,3,0)="event."
^DD(341,2.01,21,4,0)=" "
^DD(341,2.01,21,5,0)="For example, if a patient called on the phone, an event could be logged"
^DD(341,2.01,21,6,0)="to describe the call and what was discussed with the patient."
^DD(341,4.01,0)="BRIEF COMMENT^RF^^4;1^K:$L(X)>30!($L(X)<3) X"
^DD(341,4.01,3)="Answer must be 3-30 characters in length."
^DD(341,4.01,21,0)="^^3^3^2930604^"
^DD(341,4.01,21,1,0)="A brief comment may exist for certain types of events that can be entered"
^DD(341,4.01,21,2,0)="by the user.  A brief comment would consist of a short summary to better"
^DD(341,4.01,21,3,0)="describe the reason for the event."
^DD(341,4.01,"DT")="2930313"
^DD(341,4.02,0)="FOLLOW-UP DATE^DX^^4;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X D:$D(X) FOL^RCAM"
^DD(341,4.02,1,0)="^.1"
^DD(341,4.02,1,1,0)="341^AE"
^DD(341,4.02,1,1,1)="S ^RC(341,""AE"",$E(X,1,30),DA)="""""
^DD(341,4.02,1,1,2)="K ^RC(341,""AE"",$E(X,1,30),DA)"
^DD(341,4.02,1,1,3)="Needed to sort events by Follow-up dates"
^DD(341,4.02,1,1,"%D",0)="^^2^2^2930609^"
^DD(341,4.02,1,1,"%D",1,0)="This cross reference is used to sort and print events by their"
^DD(341,4.02,1,1,"%D",2,0)="follow-up dates."
^DD(341,4.02,1,1,"DT")="2930221"
^DD(341,4.02,21,0)="^^8^8^2931014^^"
^DD(341,4.02,21,1,0)="Comment type transactions that are entered by the user can have an"
^DD(341,4.02,21,2,0)="optional follow-up date.  The follow-up date will allow the AR package"
^DD(341,4.02,21,3,0)="to remind the user, via a nightly report, to take some action based"
^DD(341,4.02,21,4,0)="on the event."
^DD(341,4.02,21,5,0)=" "
^DD(341,4.02,21,6,0)="For example, if a patient calls and needs information that is not readily"
^DD(341,4.02,21,7,0)="available, a user can enter as a comment with a follow-up date as a"
^DD(341,4.02,21,8,0)="'reminder' to return the information to the patient."
^DD(341,4.02,"DT")="2931028"
^DD(341,5.01,0)="BILL NUMBER^P430'^PRCA(430,^5;1^Q"
^DD(341,5.01,21,0)="^^3^3^2930604^^"
^DD(341,5.01,21,1,0)="If the event type is related to a bill in the Accounts Receivable file,"
^DD(341,5.01,21,2,0)="then the bill number will be stored in this field.  For now, the"
^DD(341,5.01,21,3,0)="only events that will contain a bill are notification type events."
^DD(341,5.01,"DT")="2930531"
^DD(341,5.02,0)="NOTIFICATION NUMBER^S^1:FIRST;2:SECOND;3:THIRD;4:LAST;^5;2^Q"
^DD(341,5.02,21,0)="^^7^7^2930603^^"
^DD(341,5.02,21,1,0)="This field is used when a notification is sent to a debtor.  A notification"
^DD(341,5.02,21,2,0)="is either a patient statement, UB bill to insurance company, or follow-up"
^DD(341,5.02,21,3,0)="letter to Vendors, Institutions, and persons."
^DD(341,5.02,21,4,0)=" "
^DD(341,5.02,21,5,0)="This field will represent the number of times a notification was sent."
^DD(341,5.02,21,6,0)="If the notification being sent is over three, then this"
^DD(341,5.02,21,7,0)="field will be set to four."
^DD(341,5.02,"DT")="2930531"
^DD(341,6.01,0)="CCPC STATEMENT DATE^D^^6;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(341,6.01,21,0)="^^1^1^2970307^"
^DD(341,6.01,21,1,0)="This is the date of the STATEMENT on the sttement from CCPC in Austin."
^DD(341,6.01,"DT")="2970307"
^DD(341,"B","ADMINISTRATIVE",1.03)=""
^DD(341,"B","BILL NUMBER",5.01)=""
^DD(341,"B","BRIEF COMMENT",4.01)=""
^DD(341,"B","CCPC STATEMENT DATE",6.01)=""
^DD(341,"B","COMMENT",2.01)=""
^DD(341,"B","COURT AMOUNT",1.04)=""
^DD(341,"B","CREATED BY",.08)=""
^DD(341,"B","DATE/TIME CLOSED",.07)=""
^DD(341,"B","DATE/TIME OF EVENT",.06)=""
^DD(341,"B","DEBTOR",.05)=""
^DD(341,"B","EVENT IDENTIFIER",.01)=""
^DD(341,"B","FOLLOW-UP DATE",4.02)=""
^DD(341,"B","INTEREST AMOUNT",1.02)=""
^DD(341,"B","MARSHAL AMOUNT",1.05)=""
^DD(341,"B","NOTIFICATION NUMBER",5.02)=""
^DD(341,"B","PRINCIPAL AMOUNT",1.01)=""
^DD(341,"B","SITE",.09)=""
^DD(341,"B","STATUS",.11)=""
^DD(341,"B","TYPE OF EVENT",.02)=""
^DD(341,"GL",0,1,.01)=""
^DD(341,"GL",0,2,.02)=""
^DD(341,"GL",0,5,.05)=""
^DD(341,"GL",0,6,.06)=""
^DD(341,"GL",0,7,.07)=""
^DD(341,"GL",0,8,.08)=""
^DD(341,"GL",0,9,.09)=""
^DD(341,"GL",0,11,.11)=""
^DD(341,"GL",1,1,1.01)=""
^DD(341,"GL",1,2,1.02)=""
^DD(341,"GL",1,3,1.03)=""
^DD(341,"GL",1,4,1.04)=""
^DD(341,"GL",1,5,1.05)=""
^DD(341,"GL",2,0,2.01)=""
^DD(341,"GL",4,1,4.01)=""
^DD(341,"GL",4,2,4.02)=""
^DD(341,"GL",5,1,5.01)=""
^DD(341,"GL",5,2,5.02)=""
^DD(341,"GL",6,1,6.01)=""
^DD(341,"IX",.01)=""
^DD(341,"IX",.02)=""
^DD(341,"IX",.05)=""
^DD(341,"IX",.07)=""
^DD(341,"IX",.11)=""
^DD(341,"IX",4.02)=""
^DD(341,"RQ",.01)=""
^DD(341,"RQ",.02)=""
^DD(341,"RQ",.05)=""
^DD(341,"RQ",.06)=""
^DD(341,"RQ",.07)=""
^DD(341,"RQ",.09)=""
^DD(341,"RQ",.11)=""
^DD(341,"RQ",4.01)=""
^DD(341,"SB",341.01,2.01)=""
^DD(341.01,0)="COMMENT SUB-FIELD^^.01^1"
^DD(341.01,0,"DT")="2921118"
^DD(341.01,0,"NM","COMMENT")=""
^DD(341.01,0,"UP")="341"
^DD(341.01,.01,0)="COMMENT^W^^0;1^Q"
^DD(341.01,.01,21,0)="^^6^6^2930923^"
^DD(341.01,.01,21,1,0)="This field gives the user the ability to give expanded comments for"
^DD(341.01,.01,21,2,0)="an event or the reason the event occurred or to better describe the"
^DD(341.01,.01,21,3,0)="event."
^DD(341.01,.01,21,4,0)=" "
^DD(341.01,.01,21,5,0)="For example, if a patient called on the phone, an event could be logged"
^DD(341.01,.01,21,6,0)="to describe the call and what was discussed with the patient."
^DD(341.01,.01,"DT")="2921118"
^DD(341.01,"B","COMMENT",.01)=""
^DD(341.01,"GL",0,1,.01)=""
^DD(341.1,0)="FIELD^^1.02^5"
^DD(341.1,0,"DDA")="N"
^DD(341.1,0,"DT")="2991014"
^DD(341.1,0,"IX","AC",341.1,.02)=""
^DD(341.1,0,"IX","B",341.1,.01)=""
^DD(341.1,0,"NM","AR EVENT TYPE")=""
^DD(341.1,0,"PT",341,.02)=""
^DD(341.1,0,"PT",344,.04)=""
^DD(341.1,0,"VR")="4.5"
^DD(341.1,0,"VRPK")="PRCA"
^DD(341.1,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(341.1,.01,1,0)="^.1"
^DD(341.1,.01,1,1,0)="341.1^B"
^DD(341.1,.01,1,1,1)="S ^RC(341.1,""B"",$E(X,1,30),DA)="""""
^DD(341.1,.01,1,1,2)="K ^RC(341.1,""B"",$E(X,1,30),DA)"
^DD(341.1,.01,1,1,3)="Needed to look-up AR Event Types by Name"
^DD(341.1,.01,1,1,"%D",0)="^^2^2^2930609^"
^DD(341.1,.01,1,1,"%D",1,0)="This cross reference is not used in the AR package, but exists for"
^DD(341.1,.01,1,1,"%D",2,0)="FileMan look-up on this file by the AR event type name."
^DD(341.1,.01,3)="Answer must be 3-30 characters in length."
^DD(341.1,.01,21,0)="^^2^2^2930609^^"
^DD(341.1,.01,21,1,0)="The name of an event describes the type of event the occurred to a debtor's"
^DD(341.1,.01,21,2,0)="account."
^DD(341.1,.01,"DT")="2991025"
^DD(341.1,.02,0)="EVENT NUMBER^NJ2,0XI^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X D:$D(X) EVNNUM^RCEVDD1"
^DD(341.1,.02,1,0)="^.1"
^DD(341.1,.02,1,1,0)="341.1^AC"
^DD(341.1,.02,1,1,1)="S ^RC(341.1,""AC"",$E(X,1,30),DA)="""""
^DD(341.1,.02,1,1,2)="K ^RC(341.1,""AC"",$E(X,1,30),DA)"
^DD(341.1,.02,1,1,3)="Needed to look-up events by their assigned number"
^DD(341.1,.02,1,1,"%D",0)="^^2^2^2930609^"
^DD(341.1,.02,1,1,"%D",1,0)="Since the AR event type file is a table file, AR event types are"
^DD(341.1,.02,1,1,"%D",2,0)="found by their associated event number using this cross reference."
^DD(341.1,.02,1,1,"DT")="2930101"
^DD(341.1,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(341.1,.02,21,0)="^^6^6^2930604^^"
^DD(341.1,.02,21,1,0)="The event number is how the AR package determines what type of event"
^DD(341.1,.02,21,2,0)="exists.  Since various files and functionality are driven by different"
^DD(341.1,.02,21,3,0)="types of events, the AR package uses this field to determine what action"
^DD(341.1,.02,21,4,0)="to take."
^DD(341.1,.02,21,5,0)=" "
^DD(341.1,.02,21,6,0)="This field should NEVER be edited."
^DD(341.1,.02,"DT")="2930604"
^DD(341.1,.06,0)="CATEGORY^S^1:PAYMENT;2:NOTIFICATION;^0;6^Q"
^DD(341.1,.06,21,0)="^^4^4^2941115^^^^"
^DD(341.1,.06,21,1,0)="Events are categorized by the Category field.  This allows different"
^DD(341.1,.06,21,2,0)="event types to be associated with each other.  For example, there are"
^DD(341.1,.06,21,3,0)="many different types of payment events (Cash, Check, Credit Card, etc.)"
^DD(341.1,.06,21,4,0)="that are separate events, buy these events are categorized as 'Payments'."
^DD(341.1,.06,"DT")="2991014"
^DD(341.1,1.01,0)="INPUT TEMPLATE^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(341.1,1.01,3)="Answer must be 1-30 characters in length."
^DD(341.1,1.01,21,0)="^^3^3^2930604^^^"
^DD(341.1,1.01,21,1,0)="The input template field identifies an input template in file 341.  This"
^DD(341.1,1.01,21,2,0)="allows the AR package to have a 'generic' enter module for entering"
^DD(341.1,1.01,21,3,0)="AR events into file 341."
^DD(341.1,1.01,"DT")="2930220"
^DD(341.1,1.02,0)="PRINT TEMPLATE^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(341.1,1.02,3)="Answer must be 1-30 characters in length."
^DD(341.1,1.02,21,0)="^^3^3^2930604^"
^DD(341.1,1.02,21,1,0)="The print template field identifies a print template in file 341.  This"
^DD(341.1,1.02,21,2,0)="allows the AR package to have a 'generic' print module for printing"
^DD(341.1,1.02,21,3,0)="and displaying AR events in file 341."
^DD(341.1,1.02,"DT")="2930220"
^DD(341.1,"B","CATEGORY",.06)=""
^DD(341.1,"B","EVENT NUMBER",.02)=""
^DD(341.1,"B","INPUT TEMPLATE",1.01)=""
^DD(341.1,"B","NAME",.01)=""
^DD(341.1,"B","PRINT TEMPLATE",1.02)=""
^DD(341.1,"GL",0,1,.01)=""
^DD(341.1,"GL",0,2,.02)=""
^DD(341.1,"GL",0,6,.06)=""
^DD(341.1,"GL",1,1,1.01)=""
^DD(341.1,"GL",1,2,1.02)=""
^DD(341.1,"IX",.01)=""
^DD(341.1,"IX",.02)=""
^DD(341.1,"RQ",.01)=""
^DD(342,0)="FIELD^^31^37"
^DD(342,0,"DDA")="N"
^DD(342,0,"DT")="2960701"
^DD(342,0,"IX","B",342,.01)=""
^DD(342,0,"NM","AR SITE PARAMETER")=""
^DD(342,0,"VR")="4.5"
^DD(342,0,"VRPK")="PRCA"
^DD(342,.01,0)="SITE^RP4'X^DIC(4,^0;1^S @(""DI""_""NUM"")=1"
^DD(342,.01,1,0)="^.1"
^DD(342,.01,1,1,0)="342^B"
^DD(342,.01,1,1,1)="S ^RC(342,""B"",$E(X,1,30),DA)="""""
^DD(342,.01,1,1,2)="K ^RC(342,""B"",$E(X,1,30),DA)"
^DD(342,.01,1,1,3)="Needed to look-up the site by name"
^DD(342,.01,1,1,"%D",0)="^^2^2^2930609^"
^DD(342,.01,1,1,"%D",1,0)="This cross reference is to allow look-up on the site parameter"
^DD(342,.01,1,1,"%D",2,0)="file by the site name."
^DD(342,.01,3)=""
^DD(342,.01,21,0)="^^6^6^2941024^^^"
^DD(342,.01,21,1,0)="This is the site that the AR activity will be tracked for.  A station"
^DD(342,.01,21,2,0)="can only have one site defined and multiple divisional sites are not"
^DD(342,.01,21,3,0)="currently supported."
^DD(342,.01,21,4,0)=""
^DD(342,.01,21,5,0)="This identifies charges or events to a particular site in the event that"
^DD(342,.01,21,6,0)="information is shared or sent to a centralized system."
^DD(342,.01,"DEL",1,0)="I DA=1 W *7,!,""Sorry, I need this entry to manage the AR system (try to edit)"""
^DD(342,.01,"DT")="2930217"
^DD(342,.02,0)="SUPPRESS RIGHTS & OBLIGATIONS^S^0:NO;1:YES;^0;2^Q"
^DD(342,.02,21,0)="^^5^5^2930609^"
^DD(342,.02,21,1,0)="Suppression of Rights and Obligations for RX copayment and Means Test"
^DD(342,.02,21,2,0)="bills can be accomplished by setting this parameter to 'YES'.  All patients"
^DD(342,.02,21,3,0)="should be given their notice of Rights and Obligations, but some sites"
^DD(342,.02,21,4,0)="may wish to have these notices pre-printed or duplicated, rather than"
^DD(342,.02,21,5,0)="having the AR software print them individually."
^DD(342,.02,"DT")="2930518"
^DD(342,.03,0)="LAST BILL NUMBER^F^^0;3^K:$L(X)>7!($L(X)<7) X"
^DD(342,.03,3)="Answer must be 7 characters in length."
^DD(342,.03,21,0)="^^1^1^2931221^"
^DD(342,.03,21,1,0)="This field contains the last number used on bills and FMS transactions."
^DD(342,.03,"DT")="2940506"
^DD(342,.04,0)="UB PRINTER^RFX^^0;4^NEW %ZIS,IOP S %ZIS=""NQ"",IOP=X D ^%ZIS K:POP X S:'POP X=ION_"";""_IOST_"";""_IOM_"";""_IOSL_"";""_$G(IO(""DOC"")) D ^%ZISC K IO(""Q"")"
^DD(342,.04,3)="Enter a device to queue UB forms to print"
^DD(342,.04,4)="NEW D S X=""?"",DIC=""^%ZIS(1,"",DIC(0)=""EMQ"" D ^DIC S DIC=DIE"
^DD(342,.04,21,0)="^^5^5^2930609^^^"
^DD(342,.04,21,1,0)="This parameter defines the device to which Universal Billing forms (UBs)"
^DD(342,.04,21,2,0)="for Reimbursable Health Insurance bills are to print.  A 'nightly"
^DD(342,.04,21,3,0)="process' is run every night by the AR system and one of the tasks that"
^DD(342,.04,21,4,0)="this process runs is the printing of the UB forms.  This parameter needs"
^DD(342,.04,21,5,0)="to be set to the device which contains the UB forms for printing."
^DD(342,.04,"DT")="2940310"
^DD(342,.05,0)="PHARMACY COPAY STATEMENT INFO^S^1:BRIEF;2:EXPANDED;^0;5^Q"
^DD(342,.05,21,0)="^^14^14^2930609^^^"
^DD(342,.05,21,1,0)="This parameter defines the type of information to be displayed on the"
^DD(342,.05,21,2,0)="patient statement for RX copays.  Some patients may want to have very"
^DD(342,.05,21,3,0)="detailed information about any RX copay charges on their statement,"
^DD(342,.05,21,4,0)="while others may require brief information.  This parameter will be"
^DD(342,.05,21,5,0)="the default for ALL patients and will define the amount of information"
^DD(342,.05,21,6,0)="displayed on the patient statement."
^DD(342,.05,21,7,0)=" "
^DD(342,.05,21,8,0)="A second related parameter can be defined for each patient that will"
^DD(342,.05,21,9,0)="over-ride this site parameter.  For example, if a site decides to have"
^DD(342,.05,21,10,0)="all their patients receive 'brief' information for RX copay charges, then"
^DD(342,.05,21,11,0)="this parameter should be set to 'BRIEF'.  However, a particular patient"
^DD(342,.05,21,12,0)="may request more detailed information, in which case, this parameter"
^DD(342,.05,21,13,0)="should remain as BRIEF and the parameter for the patient should be set"
^DD(342,.05,21,14,0)="to DETAILED."
^DD(342,.05,"DT")="2930214"
^DD(342,.06,0)="LAST EVENT NUMBER^F^^0;6^K:$L(X)>7!($L(X)<7) X"
^DD(342,.06,3)="Answer must be 7 characters in length."
^DD(342,.06,21,0)="^^1^1^2941019^"
^DD(342,.06,21,1,0)="Last number used by event number driver."
^DD(342,.06,"DT")="2940506"
^DD(342,.07,0)="ALC (DEPOSITS)^F^^0;7^K:$L(X)>10!($L(X)<3) X"
^DD(342,.07,3)="Answer must be 3-10 characters in length."
^DD(342,.07,21,0)="^^1^1^2941019^"
^DD(342,.07,21,1,0)="ALC code as assigned by Financial Management."
^DD(342,.07,"DT")="2940517"
^DD(342,.08,0)="REPORT PRINTER^RFX^^0;8^NEW %ZIS,IOP S %ZIS=""NQ"",IOP=X D ^%ZIS K:POP X S:'POP X=ION_"";""_IOST_"";""_IOM_"";""_IOSL_"";""_$G(IO(""DOC"")) D ^%ZISC K IO(""Q"")"
^DD(342,.08,3)="Enter the Device to Print Patient Statements, Reports, and Follow-up Letters"
^DD(342,.08,4)="NEW D S X=""?"",DIC=""^%ZIS(1,"",DIC(0)=""EMZ"" D ^DIC S DIC=DIE"
^DD(342,.08,21,0)="^^5^5^2930609^^"
^DD(342,.08,21,1,0)="This parameter defines the report printer for the AR system.  A 'nightly"
^DD(342,.08,21,2,0)="process' is run every night by the AR system and one of the tasks that"
^DD(342,.08,21,3,0)="this process runs is the printing of the Patient Statements and Follow-up"
^DD(342,.08,21,4,0)="reports.  This parameter needs to be set to the device that these"
^DD(342,.08,21,5,0)="reports should be printed."
^DD(342,.08,"DT")="2940310"
^DD(342,.09,0)="SUPPRESS ZERO BALANCE^S^0:NO;1:YES;^0;9^Q"
^DD(342,.09,21,0)="^^11^11^2930609^"
^DD(342,.09,21,1,0)="This parameter allows the site to suppress printing patient statements"
^DD(342,.09,21,2,0)="that have a zero balance.  A patient may have had activity during"
^DD(342,.09,21,3,0)="a particular month that has left the account balance at zero (ex.,"
^DD(342,.09,21,4,0)="patient got a $2.00 charge and paid it immediately).  The system"
^DD(342,.09,21,5,0)="will print this activity to inform the patient on a patient statement."
^DD(342,.09,21,6,0)="This information, even though the account balance is zero, is printed"
^DD(342,.09,21,7,0)="to confirm the payment was applied correctly and also for reimbursement"
^DD(342,.09,21,8,0)="and 'proof' of payment to insurance companies."
^DD(342,.09,21,9,0)=" "
^DD(342,.09,21,10,0)="However, some sites may wish not to print these statements and provide"
^DD(342,.09,21,11,0)="the information on a 'as-needed' basis."
^DD(342,.09,"DT")="2930514"
^DD(342,.1,0)="DATE/TIME SYSTEM LAST UPDATED^D^^0;10^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(342,.1,21,0)="^^8^8^2930823^^^^"
^DD(342,.1,21,1,0)="This field is set by the system and should not be directly edited."
^DD(342,.1,21,2,0)="The AR nightly process is suppose to run every night to update"
^DD(342,.1,21,3,0)="interest and administrative charges, print patient statements,"
^DD(342,.1,21,4,0)="print UB bills, create refund bills, etc.  This parameter is set when"
^DD(342,.1,21,5,0)="this process has completed every night.  If the process does not"
^DD(342,.1,21,6,0)="complete, the AR clerk will be warned and IRM should take action to"
^DD(342,.1,21,7,0)="resolve the problem.  If the process does not run to completion, certain"
^DD(342,.1,21,8,0)="events that must occur may have not be run to completion."
^DD(342,.1,"DT")="2931218"
^DD(342,.11,0)="SITE STATEMENT DAY^NJ2,0^^0;11^K:+X'=X!(X>28)!(X<1)!(X?.E1"".""1N.N) X"
^DD(342,.11,3)="Type a Number between 1 and 28, 0 Decimal Digits"
^DD(342,.11,21,0)="^^1^1^2960322^"
^DD(342,.11,21,1,0)="This is the day of the month that the site will send statements to CCPC."
^DD(342,.11,"DT")="2960322"
^DD(342,.12,0)="LOCAL CCPC STATEMENTS^S^0:NO STATEMENTS TO LOCAL MAIL GROUP;1:SEND STATEMENTS TO LOCAL MAIL GROUP;^0;12^Q"
^DD(342,.12,21,0)="^^2^2^2960524^^^"
^DD(342,.12,21,1,0)="This answer will determine whether the RCCPC STATEMENTS mail group receives"
^DD(342,.12,21,2,0)="the CCPC Patient Statement transmission messages that go to the CCPC."
^DD(342,.12,"DT")="2960524"
^DD(342,.13,0)="CCPC START-UP DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(342,.13,3)=""
^DD(342,.13,21,0)="^^2^2^2961212^"
^DD(342,.13,21,1,0)="This date will reflect the first statement date that the waiver rights"
^DD(342,.13,21,2,0)="statements are printed."
^DD(342,.13,"DT")="2961212"
^DD(342,2.01,0)="STATEMENT COMMENT 1^F^^2;1^K:$L(X)>78!($L(X)<1) X"
^DD(342,2.01,3)="Answer must be 1-78 characters in length"
^DD(342,2.01,21,0)="4^.001^4^4^3020819^^^^"
^DD(342,2.01,21,1,0)="When printing Patient Statements, the site can have pre-defined text"
^DD(342,2.01,21,2,0)="print on the first page of every statement.  This parameter defines"
^DD(342,2.01,21,3,0)="the first line of free-text comment to be displayed on every patient"
^DD(342,2.01,21,4,0)="statement."
^DD(342,2.01,"DT")="3020819"
^DD(342,2.02,0)="STATEMENT COMMENT 2^F^^2;2^K:$L(X)>78!($L(X)<1) X"
^DD(342,2.02,3)="Answer must be 1-78 characters in length"
^DD(342,2.02,21,0)="^^4^4^3020819^^"
^DD(342,2.02,21,1,0)="When printing Patient Statements, the site can have pre-defined text"
^DD(342,2.02,21,2,0)="print on the first page of every statement.  This parameter defines"
^DD(342,2.02,21,3,0)="the second line of free-text comment to be displayed on every patient"
^DD(342,2.02,21,4,0)="statement."
^DD(342,2.02,23,0)="^.001^2^2^3020819^^^^"
^DD(342,2.02,23,1,0)="THIS FIELD IS CURRENTLY DISABLED TO ALLOW PRINTING OF THE ""GMT RELATED"" "
^DD(342,2.02,23,2,0)="MESSAGE."
^DD(342,2.02,"DT")="3020819"
^DD(342,3.01,0)="DATE OF MASTER IRS OFFSET^RDOX^^3;1^S %DT="""" D ^%DT S X=Y K:Y<1 X K:'$E(Y,4,5)!'$E(Y,6,7) X D:$D(X) IRSM^RCMSDD1"
^DD(342,3.01,2)="S Y(0)=Y X ^DD(""DD"") S Y=$P(Y,"","")"
^DD(342,3.01,2.1)="X ^DD(""DD"") S Y=$P(Y,"","")"
^DD(342,3.01,21,0)="^^6^6^2930609^^^"
^DD(342,3.01,21,1,0)="The date entered into this parameter will be the date the system"
^DD(342,3.01,21,2,0)="automatically attempts to create IRS MASTER code sheets to be sent"
^DD(342,3.01,21,3,0)="to IRS.  IRS Master code sheets can only be run certain times of the"
^DD(342,3.01,21,4,0)="year.  If a site does not wish to have these code sheets automatically"
^DD(342,3.01,21,5,0)="generated, this field should remain empty and the option should be"
^DD(342,3.01,21,6,0)="used to create the IRS master code sheets."
^DD(342,3.01,"DT")="2930930"
^DD(342,3.02,0)="DATE OF IRS OFFSET LETTER^RDOX^^3;2^S %DT="""" D ^%DT S X=Y K:Y<1 X K:'$E(Y,4,5)!'$E(Y,6,7) X D:$D(X) IRSL^RCMSDD1"
^DD(342,3.02,2)="S Y(0)=Y X ^DD(""DD"") S Y=$P(Y,"","")"
^DD(342,3.02,2.1)="X ^DD(""DD"") S Y=$P(Y,"","")"
^DD(342,3.02,21,0)="^^6^6^2930609^^"
^DD(342,3.02,21,1,0)="The date entered into this parameter will be the date the system"
^DD(342,3.02,21,2,0)="automatically attempts to print IRS OFFSET letters to be sent"
^DD(342,3.02,21,3,0)="to patients.  IRS offset letters can only be printed certain times of the"
^DD(342,3.02,21,4,0)="year.  If a site does not wish to have these letters print automatically,"
^DD(342,3.02,21,5,0)="this field should remain empty and the option should be used to"
^DD(342,3.02,21,6,0)="print the IRS offset letters."
^DD(342,3.02,"DT")="2930930"
^DD(342,3.03,0)="IRS OFFSET AMOUNT^RNJ5,2^^3;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>25)!(X<0) X"
^DD(342,3.03,3)="Type a Dollar Amount between 0 and 25, 2 Decimal Digits"
^DD(342,3.03,21,0)="^^8^8^2930609^^^^"
^DD(342,3.03,21,1,0)="The IRS charges the VA a fee for each account sent to IRS for offset"
^DD(342,3.03,21,2,0)="against IRS refunds.  The fee is set each year by IRS and should be"
^DD(342,3.03,21,3,0)="entered into this field.  The amount entered into this field will be"
^DD(342,3.03,21,4,0)="added to the total amount forwarded to IRS for each account."
^DD(342,3.03,21,5,0)=" "
^DD(342,3.03,21,6,0)="This fee is only charges to VA if the IRS collects money."
^DD(342,3.03,21,7,0)="The fee is also not added to the AR system since the patient does not"
^DD(342,3.03,21,8,0)="owe this money unless the IRS actually offsets a refund."
^DD(342,3.03,"DT")="2930226"
^DD(342,3.04,0)="RESPONSIBLE FOR IRS CODESHEETS^P200'^VA(200,^3;4^Q"
^DD(342,3.04,21,0)="^^6^6^2930609^^"
^DD(342,3.04,21,1,0)="If a site wishes to have the Master Code sheets or update code sheets"
^DD(342,3.04,21,2,0)="generated, a person with a valid electronic signature MUST be entered"
^DD(342,3.04,21,3,0)="into this field.  If IFCAP package requires that a person be identified"
^DD(342,3.04,21,4,0)="as the 'responsible official' for code sheets.  The person entered into"
^DD(342,3.04,21,5,0)="this field will be entered as the responsible official with each IRS"
^DD(342,3.04,21,6,0)="OFFSET code sheet only."
^DD(342,3.04,"DT")="2931014"
^DD(342,3.05,0)="TOP STATION CODE^F^^3;5^K:$L(X)>2!($L(X)<2) X"
^DD(342,3.05,3)="Answer must be 2 characters in length."
^DD(342,3.05,21,0)="^^4^4^2990826^"
^DD(342,3.05,21,1,0)="This code is a two character alpha-numeric code that is tr ansmitted to"
^DD(342,3.05,21,2,0)="Treasury on Treasury Offset documents.  It is used to identify the site"
^DD(342,3.05,21,3,0)="to Treasury.   Without this code, sites will not be able to access their"
^DD(342,3.05,21,4,0)="data."
^DD(342,3.05,"DT")="2990826"
^DD(342,4,0)="RATE EFFECTIVE DATE^342.04D^^4;0"
^DD(342,4,21,0)="^^5^5^2960701^^^^"
^DD(342,4,21,1,0)="This multiple stores information relating to the interest rate,"
^DD(342,4,21,2,0)="penalty rate, and administration charges to apply to accounts and bills"
^DD(342,4,21,3,0)="that are past due.  Each year these rates can change and the rate at"
^DD(342,4,21,4,0)="the time a bill is created remains in effect for that bill until it is"
^DD(342,4,21,5,0)="closed."
^DD(342,5,0)="BURSTER MACHINE CODE^K^^5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(342,5,3)="This is Standard MUMPS code."
^DD(342,5,9)="@"
^DD(342,5,21,0)="^^12^12^2931014^^^^"
^DD(342,5,21,1,0)="This is the MUMPS code that will be executed to WRITE out a burster"
^DD(342,5,21,2,0)="machine mark.  The burster machine mark indicates the beginning of"
^DD(342,5,21,3,0)="a new letter so the machine will 'stuff' the envelope.  The write"
^DD(342,5,21,4,0)="command could be, for example, a solid black line so that when the"
^DD(342,5,21,5,0)="printed document is inserted into the burster machine it recognizes"
^DD(342,5,21,6,0)="the beginning of a new letter."
^DD(342,5,21,7,0)=" "
^DD(342,5,21,8,0)="Different burster machines work differently so the manual must be"
^DD(342,5,21,9,0)="referred to for instructions."
^DD(342,5,21,10,0)=" "
^DD(342,5,21,11,0)="The mark will appear in the middle of the top-header of patient statements"
^DD(342,5,21,12,0)="and also at the top of follow-up letters."
^DD(342,5,"DT")="2931014"
^DD(342,6,0)="INTEGRATED SITE^S^1:YES;0:NO;^6;1^Q"
^DD(342,6,21,0)="^^2^2^2960429^"
^DD(342,6,21,1,0)="This field will used to determine if the sat station prompt should be"
^DD(342,6,21,2,0)="asked during the creation of a receivable."
^DD(342,6,"DT")="2960429"
^DD(342,7.02,0)="NUMBER OF DAYS EFT UNMATCHED^NJ2,0^^7;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(342,7.02,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(342,7.02,21,0)="^.001^2^2^3021206^^^"
^DD(342,7.02,21,1,0)="This field allows the user to select how many days an EFT (electronic funds"
^DD(342,7.02,21,2,0)="transfer) shall age before it is reported as unmatched."
^DD(342,7.02,"DT")="3020117"
^DD(342,7.03,0)="NUMBER OF DAYS ERA UNMATCHED^NJ2,0^^7;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(342,7.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(342,7.03,21,0)="^.001^2^2^3021206^^"
^DD(342,7.03,21,1,0)="This field allows the user to select how many days an ERA (electronic"
^DD(342,7.03,21,2,0)="remittance advice) shall age before it is reported as unmatched."
^DD(342,7.03,"DT")="3021206"
^DD(342,9.4,0)="PATCH POST INIT HISTORY^342.01^^9.4;0"
^DD(342,9.4,21,0)="^^2^2^3010417^"
^DD(342,9.4,21,1,0)="This field is used internally by AR to track when post inits are"
^DD(342,9.4,21,2,0)="run at sites."
^DD(342,20.01,0)="VITRIA STANDARD DIRECTORY^RF^^20;1^K:$L(X)>25!($L(X)<2) X"
^DD(342,20.01,3)="Answer must be 2-25 characters in length."
^DD(342,20.01,21,0)="^.001^1^1^3030722^^^"
^DD(342,20.01,21,1,0)="This field will contain the name of the specific directory into the nightly task will place the data files.  This will be the standard directory which Vitria will scan for files to retrieve."
^DD(342,20.01,"DT")="3031119"
^DD(342,20.02,0)="MAIL GROUP^RP3.8'^XMB(3.8,^20;2^Q"
^DD(342,20.02,21,0)="^.001^1^1^3030722^^^"
^DD(342,20.02,21,1,0)="This field will point to the mail group that will receive any specific error messages to be received at the user level."
^DD(342,20.02,"DT")="3030722"
^DD(342,20.03,0)="DATE OF LAST TRANSMISSION^RD^^20;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(342,20.03,21,0)="^.001^4^4^3031017^^^"
^DD(342,20.03,21,1,0)="This field will contain the last date that the transmission of"
^DD(342,20.03,21,2,0)="a batch occurred.  The field will be used to check the validity"
^DD(342,20.03,21,3,0)="of a date field in the event someone re-indexes one of the main"
^DD(342,20.03,21,4,0)="files used in the CBO AR Data Extract."
^DD(342,20.03,"DT")="3031017"
^DD(342,20.04,0)="CBO STATUS^S^1:ON;0:OFF;^20;4^Q"
^DD(342,20.04,.1)="TEST SYSTEM STATUS"
^DD(342,20.04,21,0)="^^3^3^3031111^"
^DD(342,20.04,21,1,0)="This field will be set to '1' if this system is 'ON' or '0' if "
^DD(342,20.04,21,2,0)="this system is 'OFF'. Only test systems will be allowed to 'turn off' the"
^DD(342,20.04,21,3,0)="CBO AR Data Extract."
^DD(342,20.04,"DT")="3031119"
^DD(342,20.05,0)="MAXIMUM NUMBER RECORDS^RNJ4,0^^20;5^K:+X'=X!(X>5000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(342,20.05,3)="Type a Number between 100 and 5000, 0 Decimal Digits"
^DD(342,20.05,21,0)="^^1^1^3030717^"
^DD(342,20.05,21,1,0)="This field will be used to split up large data extracts into multiple batches."
^DD(342,20.05,"DT")="3030722"
^DD(342,20.06,0)="SYSTEM TYPE^S^T:TEST;P:PRODUCTION;^20;6^Q"
^DD(342,20.06,21,0)="^^1^1^3031111^"
^DD(342,20.06,21,1,0)="Designates whether the system is a Test or Production system."
^DD(342,20.06,"DT")="3031111"
^DD(342,20.07,0)="LEGACY SITE?^S^1:YES;0:NO;^20;7^Q"
^DD(342,20.07,21,0)="^^3^3^3040129^"
^DD(342,20.07,21,1,0)="This field should be answered 'Yes' if the install site is a legacy"
^DD(342,20.07,21,2,0)="site.  This field should be answered 'No' if the install site is"
^DD(342,20.07,21,3,0)="NOT a legacy site."
^DD(342,20.07,"DT")="3040129"
^DD(342,20.08,0)="PRIMARY DOMAIN^F^^20;8^K:$L(X)>30!($L(X)<5) X"
^DD(342,20.08,3)="Answer must be 5-30 characters in length inNAME.MED.VA.GOV format."
^DD(342,20.08,21,0)="^^3^3^3040129^"
^DD(342,20.08,21,1,0)="This field should be the domain name of the primary VA site for"
^DD(342,20.08,21,2,0)="the legacy site.  It is important to have this value in order"
^DD(342,20.08,21,3,0)="for acknowledgement messages to be forwarded to the legacy site."
^DD(342,20.08,"DT")="3040129"
^DD(342,20.09,0)="EXTRACT RUNNING?^D^^20;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(342,20.09,3)=""
^DD(342,20.09,21,0)="^.001^3^3^3040402^^"
^DD(342,20.09,21,1,0)="This field will be set when the running of CBO AR Data Extract"
^DD(342,20.09,21,2,0)="starts.  This is to prevent multiple jobs from running at the"
^DD(342,20.09,21,3,0)="same time and impacting normal system function."
^DD(342,20.09,"DT")="3040402"
^DD(342,30,0)="EMERGENCY RESPONSE BEGIN DATE^DX^^30;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(342,30,1,0)="^.1"
^DD(342,30,1,1,0)="^^TRIGGER^342^31"
^DD(342,30,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(342,D0,30)):^(30),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^RC(342,DIV(0),30)),DIV=X S $P(^(30),U,2)=DIV,DIH=342,DIG=31 D ^DICR"
^DD(342,30,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RC(342,D0,30)):^(30),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^RC(342,DIV(0),30)),DIV=X S $P(^(30),U,2)=DIV,DIH=342,DIG=31 D ^DICR"
^DD(342,30,1,1,"CREATE VALUE")="@"
^DD(342,30,1,1,"DELETE VALUE")="@"
^DD(342,30,1,1,"FIELD")="EMERGENCY RESPONSE END DATE"
^DD(342,30,3)="Respond with a date/time of your emergency"
^DD(342,30,21,0)="^.001^6^6^3050928^^^^"
^DD(342,30,21,1,0)="This field stores the date/time the emergency began."
^DD(342,30,21,2,0)="When this field is populated, an emergency situation is in effect, which"
^DD(342,30,21,3,0)="will cause the suspension of TOP and DMC referrals, CCPC statements and"
^DD(342,30,21,4,0)="interest and admin charges from being calculated. If the date falls within"
^DD(342,30,21,5,0)="this beginning date and the Emergency Response End date, the suspension will"
^DD(342,30,21,6,0)="take place."
^DD(342,30,23,0)="^.001^1^1^3050928^^^"
^DD(342,30,23,1,0)=" "
^DD(342,30,"DT")="3050915"
^DD(342,31,0)="EMERGENCY RESPONSE END DATE^DX^^30;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X K:'$G(^RC(342,D0,30)) X K:Y<+$G(^RC(342,D0,30)) X"
^DD(342,31,.1)=" "
^DD(342,31,3)="Please make sure that the Emergency Response Begin Date is populated. The Emergency Response End Date must be after the Emergency Response Begin Date."
^DD(342,31,4)=""
^DD(342,31,5,1,0)="342^30^1"
^DD(342,31,21,0)="^.001^6^6^3050928^^^^"
^DD(342,31,21,1,0)="This field stores the date/time the emergency ends."
^DD(342,31,21,2,0)="When this field is populated, an emergency situation is in effect, which"
^DD(342,31,21,3,0)="will cause the suspension of TOP and DMC referrals, CCPC statements and"
^DD(342,31,21,4,0)="interest and admin charges from being calculated. If the date falls within"
^DD(342,31,21,5,0)="this end date and the Emergency Response Begin date, the"
^DD(342,31,21,6,0)="suspension will take place."
^DD(342,31,23,0)="^.001^1^1^3050928^^^^"
^DD(342,31,23,1,0)=" "
^DD(342,31,"DT")="3050927"
^DD(342,"B"," ",31)="1"
^DD(342,"B","ALC (DEPOSITS)",.07)=""
^DD(342,"B","BURSTER MACHINE CODE",5)=""
^DD(342,"B","CBO STATUS",20.04)=""
^DD(342,"B","CCPC START-UP DATE",.13)=""
^DD(342,"B","DATE OF IRS OFFSET LETTER",3.02)=""
^DD(342,"B","DATE OF LAST TRANSMISSION",20.03)=""
^DD(342,"B","DATE OF MASTER IRS OFFSET",3.01)=""
^DD(342,"B","DATE/TIME SYSTEM LAST UPDATED",.1)=""
^DD(342,"B","EMERGENCY RESPONSE BEGIN DATE",30)=""
^DD(342,"B","EMERGENCY RESPONSE END DATE",31)=""
^DD(342,"B","EXTRACT RUNNING?",20.09)=""
^DD(342,"B","INTEGRATED SITE",6)=""
^DD(342,"B","IRS OFFSET AMOUNT",3.03)=""
^DD(342,"B","LAST BILL NUMBER",.03)=""
^DD(342,"B","LAST EVENT NUMBER",.06)=""
^DD(342,"B","LEGACY SITE?",20.07)=""
^DD(342,"B","LOCAL CCPC STATEMENTS",.12)=""
^DD(342,"B","MAIL GROUP",20.02)=""
^DD(342,"B","MAXIMUM NUMBER RECORDS",20.05)=""
^DD(342,"B","NUMBER OF DAYS EFT UNMATCHED",7.02)=""
^DD(342,"B","NUMBER OF DAYS ERA UNMATCHED",7.03)=""
^DD(342,"B","PATCH POST INIT HISTORY",9.4)=""
^DD(342,"B","PHARMACY COPAY STATEMENT INFO",.05)=""
^DD(342,"B","PRIMARY DOMAIN",20.08)=""
^DD(342,"B","RATE EFFECTIVE DATE",4)=""
^DD(342,"B","REPORT PRINTER",.08)=""
^DD(342,"B","RESPONSIBLE FOR IRS CODESHEETS",3.04)=""
^DD(342,"B","SITE",.01)=""
^DD(342,"B","SITE STATEMENT DAY",.11)=""
^DD(342,"B","STATEMENT COMMENT 1",2.01)=""
^DD(342,"B","STATEMENT COMMENT 2",2.02)=""
^DD(342,"B","SUPPRESS RIGHTS & OBLIGATIONS",.02)=""
^DD(342,"B","SUPPRESS ZERO BALANCE",.09)=""
^DD(342,"B","SYSTEM TYPE",20.06)=""
^DD(342,"B","TEST SYSTEM STATUS",20.04)="1"
^DD(342,"B","TOP STATION CODE",3.05)=""
^DD(342,"B","UB PRINTER",.04)=""
^DD(342,"B","VITRIA STANDARD DIRECTORY",20.01)=""
^DD(342,"GL",0,1,.01)=""
^DD(342,"GL",0,2,.02)=""
^DD(342,"GL",0,3,.03)=""
^DD(342,"GL",0,4,.04)=""
^DD(342,"GL",0,5,.05)=""
^DD(342,"GL",0,6,.06)=""
^DD(342,"GL",0,7,.07)=""
^DD(342,"GL",0,8,.08)=""
^DD(342,"GL",0,9,.09)=""
^DD(342,"GL",0,10,.1)=""
^DD(342,"GL",0,11,.11)=""
^DD(342,"GL",0,12,.12)=""
^DD(342,"GL",0,13,.13)=""
^DD(342,"GL",2,1,2.01)=""
^DD(342,"GL",2,2,2.02)=""
^DD(342,"GL",3,1,3.01)=""
^DD(342,"GL",3,2,3.02)=""
^DD(342,"GL",3,3,3.03)=""
^DD(342,"GL",3,4,3.04)=""
^DD(342,"GL",3,5,3.05)=""
^DD(342,"GL",4,0,4)=""
^DD(342,"GL",5,"E1,245",5)=""
^DD(342,"GL",6,1,6)=""
^DD(342,"GL",7,2,7.02)=""
^DD(342,"GL",7,3,7.03)=""
^DD(342,"GL",9.4,0,9.4)=""
^DD(342,"GL",20,1,20.01)=""
^DD(342,"GL",20,2,20.02)=""
^DD(342,"GL",20,3,20.03)=""
^DD(342,"GL",20,4,20.04)=""
^DD(342,"GL",20,5,20.05)=""
^DD(342,"GL",20,6,20.06)=""
^DD(342,"GL",20,7,20.07)=""
^DD(342,"GL",20,8,20.08)=""
^DD(342,"GL",20,9,20.09)=""
^DD(342,"GL",30,1,30)=""
^DD(342,"GL",30,2,31)=""
^DD(342,"IX",.01)=""
^DD(342,"IX",30)=""
^DD(342,"RQ",.01)=""
^DD(342,"RQ",.04)=""
^DD(342,"RQ",.08)=""
^DD(342,"RQ",3.01)=""
^DD(342,"RQ",3.02)=""
^DD(342,"RQ",3.03)=""
^DD(342,"RQ",20.01)=""
^DD(342,"RQ",20.02)=""
^DD(342,"RQ",20.03)=""
^DD(342,"RQ",20.05)=""
^DD(342,"SB",342.01,9.4)=""
^DD(342,"SB",342.04,4)=""
^DD(342.01,0)="PATCH POST INIT HISTORY SUB-FIELD^^.03^3"
^DD(342.01,0,"DT")="3010329"
^DD(342.01,0,"IX","B",342.01,.01)=""
^DD(342.01,0,"NM","PATCH POST INIT HISTORY")=""
^DD(342.01,0,"UP")="342"
^DD(342.01,.01,0)="PATCH POST INIT HISTORY^MF^^0;1^K:$L(X)>25!($L(X)<8) X"
^DD(342.01,.01,1,0)="^.1"
^DD(342.01,.01,1,1,0)="342.01^B"
^DD(342.01,.01,1,1,1)="S ^RC(342,DA(1),9.4,""B"",$E(X,1,30),DA)="""""
^DD(342.01,.01,1,1,2)="K ^RC(342,DA(1),9.4,""B"",$E(X,1,30),DA)"
^DD(342.01,.01,3)="Enter the patch number in the form PRCA*4.5*169."
^DD(342.01,.01,21,0)="^.001^2^2^3010417^^"
^DD(342.01,.01,21,1,0)="This field stores a history of when post inits for AR patches have"
^DD(342.01,.01,21,2,0)="been run."
^DD(342.01,.01,"DT")="3010329"
^DD(342.01,.02,0)="START DATE AND TIME^D^^0;2^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(342.01,.02,21,0)="^^2^2^3010329^"
^DD(342.01,.02,21,1,0)="This field stores the date and time a post initialization starts"
^DD(342.01,.02,21,2,0)="for a patch."
^DD(342.01,.02,"DT")="3010329"
^DD(342.01,.03,0)="END DATE AND TIME^D^^0;3^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(342.01,.03,3)=""
^DD(342.01,.03,21,0)="^^2^2^3010329^"
^DD(342.01,.03,21,1,0)="This field stores the date and time a post initialization ends"
^DD(342.01,.03,21,2,0)="for a patch."
^DD(342.01,.03,"DT")="3010329"
^DD(342.01,"B","END DATE AND TIME",.03)=""
^DD(342.01,"B","PATCH POST INIT HISTORY",.01)=""
^DD(342.01,"B","START DATE AND TIME",.02)=""
^DD(342.01,"GL",0,1,.01)=""
^DD(342.01,"GL",0,2,.02)=""
^DD(342.01,"GL",0,3,.03)=""
^DD(342.01,"IX",.01)=""
^DD(342.04,0)="RATE EFFECTIVE DATE SUB-FIELD^^.05^5"
^DD(342.04,0,"DT")="2960701"
^DD(342.04,0,"IX","AC",342.04,.01)=""
^DD(342.04,0,"IX","B",342.04,.01)=""
^DD(342.04,0,"NM","RATE EFFECTIVE DATE")=""
^DD(342.04,0,"UP")="342"
^DD(342.04,.01,0)="RATE EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(342.04,.01,1,0)="^.1"
^DD(342.04,.01,1,1,0)="342.04^B"
^DD(342.04,.01,1,1,1)="S ^RC(342,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(342.04,.01,1,1,2)="K ^RC(342,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(342.04,.01,1,2,0)="342.04^AC^MUMPS"
^DD(342.04,.01,1,2,1)="S ^RC(342,DA(1),4,""AC"",9999999-X,DA)="""""
^DD(342.04,.01,1,2,2)="K ^RC(342,DA(1),4,""AC"",9999999-X,DA)"
^DD(342.04,.01,1,2,3)="Needed to apply interest/admin rate"
^DD(342.04,.01,1,2,"%D",0)="^^2^2^2930923^^"
^DD(342.04,.01,1,2,"%D",1,0)="This cross-reference is used to find the most recent interest,"
^DD(342.04,.01,1,2,"%D",2,0)="administration, and penality rate to apply to a bill."
^DD(342.04,.01,1,2,"DT")="2930506"
^DD(342.04,.01,21,0)="^^8^8^2931014^^^^"
^DD(342.04,.01,21,1,0)="This field identifies the date that the associated interest rate,"
^DD(342.04,.01,21,2,0)="penalty rate, and administration charges become effective.  Since these"
^DD(342.04,.01,21,3,0)="rates remain in effect for any bills created during this time, this"
^DD(342.04,.01,21,4,0)="information should not be altered or deleted."
^DD(342.04,.01,21,5,0)=" "
^DD(342.04,.01,21,6,0)="For example, if the interest rate of 4% is effective on Jan 1, 1992"
^DD(342.04,.01,21,7,0)="and the new interest rate of 4.5% is effective on March 1, 1993, any bills"
^DD(342.04,.01,21,8,0)="created during Jan 1 thru Mar 1 keep the interest rate of 4%."
^DD(342.04,.01,"DT")="2930506"
^DD(342.04,.02,0)="ANNUAL INTEREST RATE^NJ6,3X^^0;2^S:X<1 X=X*100 K:+X'=X!(X>10)!(X<1)!(X?.E1"".""2N.N) X S:$D(X) X=X/100"
^DD(342.04,.02,3)="Type a Number between 0.1 and 10, 3 Decimal Digits"
^DD(342.04,.02,21,0)="^^8^8^2960701^^^^"
^DD(342.04,.02,21,1,0)="This is the annual interest rate that bills created during the effective"
^DD(342.04,.02,21,2,0)="time periods are charged.  Interest is charged on a statement to statement"
^DD(342.04,.02,21,3,0)="time basis.  The daily interest rate is the interest rate divided by 360."
^DD(342.04,.02,21,4,0)=" "
^DD(342.04,.02,21,5,0)="If a number between 1 and 10 is entered, the number will be converted"
^DD(342.04,.02,21,6,0)="to percent.  Example: 5 will convert to .05, 2 will convert to .02."
^DD(342.04,.02,21,7,0)="If a number between 0 and .1 is entered, the number will not"
^DD(342.04,.02,21,8,0)="be converted by the system.  Example: .05 will be 5%, .01 will be 1%."
^DD(342.04,.02,22)=""
^DD(342.04,.02,"DT")="2930506"
^DD(342.04,.03,0)="MONTHLY ADMIN CHARGE^NJ5,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10)!(X<0) X"
^DD(342.04,.03,3)="Type a Dollar Amount between 0 and 10, 2 Decimal Digits"
^DD(342.04,.03,21,0)="^^4^4^2931014^^^"
^DD(342.04,.03,21,1,0)="This administrative charge is calculated on an account with any overdue"
^DD(342.04,.03,21,2,0)="bills.  Administrative charges are not added to each bill, but rather on"
^DD(342.04,.03,21,3,0)="the oldest outstanding bills for each account.  If an account has no"
^DD(342.04,.03,21,4,0)="delinquent outstanding bills. then administrative charges are not added,"
^DD(342.04,.03,"DT")="2930506"
^DD(342.04,.04,0)="ANNUAL PENALTY RATE^NJ7,4X^^0;4^S:X<1 X=X*100 K:+X'=X!(X>10)!(X<1)!(X?.E1"".""2N.N) X S:$D(X) X=X/100"
^DD(342.04,.04,3)="Type a Number between 0.1 and 10, 3 Decimal Digits"
^DD(342.04,.04,21,0)="^^10^10^2931014^^^"
^DD(342.04,.04,21,1,0)="This is the annual penalty rate that bills created during the effective"
^DD(342.04,.04,21,2,0)="time periods are charged.  Interest is charged on a statement to statement"
^DD(342.04,.04,21,3,0)="time basis.  The daily penalty rate is the penalty rate divided by 360."
^DD(342.04,.04,21,4,0)=" "
^DD(342.04,.04,21,5,0)="Penalty charges are only applicable to non-benefit debts."
^DD(342.04,.04,21,6,0)=" "
^DD(342.04,.04,21,7,0)="If a number between 1 and 10 is entered, the number will be converted"
^DD(342.04,.04,21,8,0)="to percent.  Example: 5 will convert to .05, 2 will convert to .02."
^DD(342.04,.04,21,9,0)="If a number between 0 and .1 is entered, the number will not"
^DD(342.04,.04,21,10,0)="be converted by the system.  Example: .05 will be 5%, .01 will be 1%."
^DD(342.04,.04,"DT")="2930506"
^DD(342.04,.05,0)="LITIGATION REFERRAL FEE^NJ6,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999)!(X<0) X"
^DD(342.04,.05,3)="Type a Dollar Amount between 0 and 999, 2 Decimal Digits"
^DD(342.04,.05,21,0)="^^3^3^2980423^^^"
^DD(342.04,.05,21,1,0)="This is a one-time annual fee charged by Regional Counsel or Department"
^DD(342.04,.05,21,2,0)="of Justice organizations. At the time this field was created, it's"
^DD(342.04,.05,21,3,0)="value is retrieved only when Form Letter FL4-485 is printed."
^DD(342.04,.05,"DT")="2960701"
^DD(342.04,"B","ANNUAL INTEREST RATE",.02)=""
^DD(342.04,"B","ANNUAL PENALTY RATE",.04)=""
^DD(342.04,"B","LITIGATION REFERRAL FEE",.05)=""
^DD(342.04,"B","MONTHLY ADMIN CHARGE",.03)=""
^DD(342.04,"B","RATE EFFECTIVE DATE",.01)=""
^DD(342.04,"GL",0,1,.01)=""
^DD(342.04,"GL",0,2,.02)=""
^DD(342.04,"GL",0,3,.03)=""
^DD(342.04,"GL",0,4,.04)=""
^DD(342.04,"GL",0,5,.05)=""
^DD(342.04,"IX",.01)=""
^DD(342.1,0)="FIELD^^2.02^12"
^DD(342.1,0,"DDA")="N"
^DD(342.1,0,"DT")="2950814"
^DD(342.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RC(342.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(342.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(342.1,0,"IX","AC",342.1,.02)=""
^DD(342.1,0,"IX","B",342.1,.01)=""
^DD(342.1,0,"NM","AR GROUP")=""
^DD(342.1,0,"PT",344.1,.13)=""
^DD(342.1,0,"PT",344.1,.17)=""
^DD(342.1,0,"PT",430,13)=""
^DD(342.1,0,"PT",430,13.1)=""
^DD(342.1,0,"PT",430,107)=""
^DD(342.1,0,"VR")="4.5"
^DD(342.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(342.1,.01,1,0)="^.1"
^DD(342.1,.01,1,1,0)="342.1^B"
^DD(342.1,.01,1,1,1)="S ^RC(342.1,""B"",$E(X,1,30),DA)="""""
^DD(342.1,.01,1,1,2)="K ^RC(342.1,""B"",$E(X,1,30),DA)"
^DD(342.1,.01,1,1,3)="Needed to look-up the AR GROUP file by name"
^DD(342.1,.01,1,1,"%D",0)="^^3^3^2930609^^"
^DD(342.1,.01,1,1,"%D",1,0)="An AR group is defined by the site and is assigned a 'type' of"
^DD(342.1,.01,1,1,"%D",2,0)="group.  This allows the site to look-up the AR GROUP by the name"
^DD(342.1,.01,1,1,"%D",3,0)="that was assigned to the AR GROUP type."
^DD(342.1,.01,3)="Answer must be 3-30 characters in length."
^DD(342.1,.01,21,0)="^^3^3^2930609^^^"
^DD(342.1,.01,21,1,0)="This is the name assigned to the AR GROUP by the site.  An AR GROUP"
^DD(342.1,.01,21,2,0)="has an associated type (AGENT CASHIER, RETURN PAYMENT, etc.) that has"
^DD(342.1,.01,21,3,0)="a name assigned by the site."
^DD(342.1,.01,"DT")="2930217"
^DD(342.1,.02,0)="TYPE^RP342.2'X^RC(342.2,^0;2^D GRPTYP^RCMSDD1"
^DD(342.1,.02,1,0)="^.1"
^DD(342.1,.02,1,1,0)="342.1^AC"
^DD(342.1,.02,1,1,1)="S ^RC(342.1,""AC"",$E(X,1,30),DA)="""""
^DD(342.1,.02,1,1,2)="K ^RC(342.1,""AC"",$E(X,1,30),DA)"
^DD(342.1,.02,1,1,3)="Needed to find AR GROUPS by their associated type"
^DD(342.1,.02,1,1,"%D",0)="^^2^2^2930609^^"
^DD(342.1,.02,1,1,"%D",1,0)="The AR package uses this cross reference to find and return information"
^DD(342.1,.02,1,1,"%D",2,0)="on specific AR groups by type."
^DD(342.1,.02,1,1,"DT")="2930217"
^DD(342.1,.02,3)=""
^DD(342.1,.02,21,0)="^^4^4^2930609^"
^DD(342.1,.02,21,1,0)="The field represents the type of AR GROUP that is defined.  There are"
^DD(342.1,.02,21,2,0)="several types of AR GROUPs, such as: AGENT CASHIER, RETURN PAYMENT, etc."
^DD(342.1,.02,21,3,0)="This allows information to be defined for AR GROUPS, such as, Address"
^DD(342.1,.02,21,4,0)="and phone numbers."
^DD(342.1,.02,"DT")="2940517"
^DD(342.1,1.01,0)="STREET ADDRESS #1^F^^1;1^K:$L(X)>40!($L(X)<1) X"
^DD(342.1,1.01,3)="Answer must be 1-40 characters in length."
^DD(342.1,1.01,21,0)="^^2^2^2930609^"
^DD(342.1,1.01,21,1,0)="This field represents the first street address for the AR GROUP defined"
^DD(342.1,1.01,21,2,0)="and is used on profiles, patient statements, receipts, etc."
^DD(342.1,1.01,"DT")="2930217"
^DD(342.1,1.02,0)="STREET ADDRESS #2^F^^1;2^K:$L(X)>40!($L(X)<1) X"
^DD(342.1,1.02,3)="Answer must be 1-40 characters in length."
^DD(342.1,1.02,21,0)="^^2^2^2930609^"
^DD(342.1,1.02,21,1,0)="This field represents the second street address for the AR GROUP defined"
^DD(342.1,1.02,21,2,0)="and is used on profiles, patient statements, receipts, etc."
^DD(342.1,1.02,"DT")="2930217"
^DD(342.1,1.03,0)="STREET ADDRESS #3^F^^1;3^K:$L(X)>30!($L(X)<1) X"
^DD(342.1,1.03,3)="Answer must be 1-30 characters in length."
^DD(342.1,1.03,21,0)="^^2^2^2930609^"
^DD(342.1,1.03,21,1,0)="This field represents the third street address for the AR GROUP defined"
^DD(342.1,1.03,21,2,0)="and is used on profiles, patient statements, receipts, etc."
^DD(342.1,1.03,"DT")="2930326"
^DD(342.1,1.04,0)="CITY^F^^1;4^K:$L(X)>30!($L(X)<1) X"
^DD(342.1,1.04,3)="Answer must be 1-30 characters in length."
^DD(342.1,1.04,21,0)="^^2^2^2930609^"
^DD(342.1,1.04,21,1,0)="This field represents the City address for the AR GROUP defined"
^DD(342.1,1.04,21,2,0)="and is used on profiles, patient statements, receipts, etc."
^DD(342.1,1.04,"DT")="2930326"
^DD(342.1,1.05,0)="STATE^P5'^DIC(5,^1;5^Q"
^DD(342.1,1.05,3)=""
^DD(342.1,1.05,21,0)="^^2^2^2930609^"
^DD(342.1,1.05,21,1,0)="This field represents the state address for the AR GROUP defined"
^DD(342.1,1.05,21,2,0)="and is used on profiles, patient statements, receipts, etc."
^DD(342.1,1.05,"DT")="2930326"
^DD(342.1,1.06,0)="ZIP CODE^FOX^^1;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?9N)!(X?5N1""-""4N)) X S:$D(X) X=$S(X?5N1""-""4N:$P(X,""-"")_$P(X,""-"",2),1:X)"
^DD(342.1,1.06,2)="S Y(0)=Y S:Y?9N Y=$E(Y,1,5)_""-""_$E(Y,6,9)"
^DD(342.1,1.06,2.1)="S:Y?9N Y=$E(Y,1,5)_""-""_$E(Y,6,9)"
^DD(342.1,1.06,3)="Answer must be 5-10 characters in length."
^DD(342.1,1.06,21,0)="^^2^2^2930609^"
^DD(342.1,1.06,21,1,0)="This field represents the zip code address for the AR GROUP defined"
^DD(342.1,1.06,21,2,0)="and is used on profiles, patient statements, receipts, etc."
^DD(342.1,1.06,"DT")="2930326"
^DD(342.1,1.07,0)="PHONE NUMBER^F^^1;7^K:$L(X)>20!($L(X)<4) X"
^DD(342.1,1.07,3)="Answer must be 4-20 characters in length."
^DD(342.1,1.07,21,0)="^^2^2^2930609^"
^DD(342.1,1.07,21,1,0)="This field represents the phone number for the AR GROUP defined"
^DD(342.1,1.07,21,2,0)="and is used on profiles, patient statements, receipts, etc."
^DD(342.1,1.07,"DT")="2930326"
^DD(342.1,1.08,0)="HOURS OF OPERATION^F^^1;8^K:$L(X)>40!($L(X)<3) X"
^DD(342.1,1.08,3)="Answer must be 3-40 characters in length."
^DD(342.1,1.08,21,0)="^^2^2^2930609^^"
^DD(342.1,1.08,21,1,0)="This field represents the hours of operation for the AR GROUP defined"
^DD(342.1,1.08,21,2,0)="and is used on certain Follow-up letters"
^DD(342.1,1.08,"DT")="2930527"
^DD(342.1,2.01,0)="MINIMUM REFERRAL AMOUNT^NJ8,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(342.1,2.01,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(342.1,2.01,21,0)="^^5^5^2970930^^^"
^DD(342.1,2.01,21,1,0)="This field is used for referral of bills to Regional Counsel (RC) or"
^DD(342.1,2.01,21,2,0)="Department of Justice (DOJ).  Depending on the amount of the bill, the"
^DD(342.1,2.01,21,3,0)="bill will be forwarded to either the RC or DOJ.  This field is only"
^DD(342.1,2.01,21,4,0)="valid for RC and DOJ type AR GROUPS and will define the minimum amount"
^DD(342.1,2.01,21,5,0)="the bill must be for it to be referred to this AR GROUP."
^DD(342.1,2.01,"DT")="2950814"
^DD(342.1,2.02,0)="MAXIMUM REFERRAL AMOUNT^NJ8,2^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<200) X"
^DD(342.1,2.02,3)="Type a Dollar Amount between 200 and 99999.99, 2 Decimal Digits"
^DD(342.1,2.02,21,0)="^^5^5^2980227^^^^"
^DD(342.1,2.02,21,1,0)="This field is used for referral of bills to Regional Counsel (RC) or"
^DD(342.1,2.02,21,2,0)="Department of Justice (DOJ).  Depending on the amount of the bill, the"
^DD(342.1,2.02,21,3,0)="bill will be forwarded to either the RC or DOJ.  This field is only"
^DD(342.1,2.02,21,4,0)="valid for RC and DOJ type AR GROUPS and will define the maximum amount"
^DD(342.1,2.02,21,5,0)="the bill must be for it to be referred to this AR GROUP."
^DD(342.1,2.02,"DT")="2930329"
^DD(342.1,"B","CITY",1.04)=""
^DD(342.1,"B","HOURS OF OPERATION",1.08)=""
^DD(342.1,"B","MAXIMUM REFERRAL AMOUNT",2.02)=""
^DD(342.1,"B","MINIMUM REFERRAL AMOUNT",2.01)=""
^DD(342.1,"B","NAME",.01)=""
^DD(342.1,"B","PHONE NUMBER",1.07)=""
^DD(342.1,"B","STATE",1.05)=""
^DD(342.1,"B","STREET ADDRESS #1",1.01)=""
^DD(342.1,"B","STREET ADDRESS #2",1.02)=""
^DD(342.1,"B","STREET ADDRESS #3",1.03)=""
^DD(342.1,"B","TYPE",.02)=""
^DD(342.1,"B","ZIP CODE",1.06)=""
^DD(342.1,"GL",0,1,.01)=""
^DD(342.1,"GL",0,2,.02)=""
^DD(342.1,"GL",1,1,1.01)=""
^DD(342.1,"GL",1,2,1.02)=""
^DD(342.1,"GL",1,3,1.03)=""
^DD(342.1,"GL",1,4,1.04)=""
^DD(342.1,"GL",1,5,1.05)=""
^DD(342.1,"GL",1,6,1.06)=""
^DD(342.1,"GL",1,7,1.07)=""
^DD(342.1,"GL",1,8,1.08)=""
^DD(342.1,"GL",2,1,2.01)=""
^DD(342.1,"GL",2,2,2.02)=""
^DD(342.1,"IX",.01)=""
^DD(342.1,"IX",.02)=""
^DD(342.1,"RQ",.01)=""
^DD(342.1,"RQ",.02)=""
^DD(342.2,0)="FIELD^^1.01^3"
^DD(342.2,0,"DDA")="N"
^DD(342.2,0,"DT")="2940517"
^DD(342.2,0,"IX","B",342.2,.01)=""
^DD(342.2,0,"NM","AR GROUP TYPE")=""
^DD(342.2,0,"PT",342.1,.02)=""
^DD(342.2,0,"VR")="4.5"
^DD(342.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(342.2,.01,1,0)="^.1"
^DD(342.2,.01,1,1,0)="342.2^B"
^DD(342.2,.01,1,1,1)="S ^RC(342.2,""B"",$E(X,1,30),DA)="""""
^DD(342.2,.01,1,1,2)="K ^RC(342.2,""B"",$E(X,1,30),DA)"
^DD(342.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(342.2,.01,21,0)="^^1^1^2941019^"
^DD(342.2,.01,21,1,0)="Goup named used in AR letters and functions."
^DD(342.2,.02,0)="MULTIPLE GROUP?^RS^0:NO;1:YES;^0;2^Q"
^DD(342.2,.02,21,0)="^^5^5^2941019^"
^DD(342.2,.02,21,1,0)="If an AR Group can be defined multiple times, then this field would"
^DD(342.2,.02,21,2,0)="be set to Yes.  An example of a Group that would be defined multiple"
^DD(342.2,.02,21,3,0)="times is the Billing Agency since a site may have more than one"
^DD(342.2,.02,21,4,0)="billing agency.  However, other groups such as the place the site"
^DD(342.2,.02,21,5,0)="sends Bank Deposits should not be defined more than once."
^DD(342.2,.02,"DT")="2940517"
^DD(342.2,1.01,0)="INPUT TEMPLATE^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(342.2,1.01,3)="Answer must be 3-30 characters in length."
^DD(342.2,1.01,21,0)="^^4^4^2941019^"
^DD(342.2,1.01,21,1,0)="This is the VA FileMan input template that is used to edit this"
^DD(342.2,1.01,21,2,0)="AR group.  Since fields within this file are either shared or"
^DD(342.2,1.01,21,3,0)="specific to a particular type of group, it is necessary to define"
^DD(342.2,1.01,21,4,0)="input templates that control which fields are asked of the user."
^DD(342.2,1.01,"DT")="2940517"
^DD(342.2,"B","INPUT TEMPLATE",1.01)=""
^DD(342.2,"B","MULTIPLE GROUP?",.02)=""
^DD(342.2,"B","NAME",.01)=""
^DD(342.2,"GL",0,1,.01)=""
^DD(342.2,"GL",0,2,.02)=""
^DD(342.2,"GL",1,1,1.01)=""
^DD(342.2,"IX",.01)=""
^DD(342.2,"RQ",.01)=""
^DD(342.2,"RQ",.02)=""
^DD(342.3,0)="FIELD^^1^2"
^DD(342.3,0,"DDA")="N"
^DD(342.3,0,"DT")="3040506"
^DD(342.3,0,"IX","B",342.3,.01)=""
^DD(342.3,0,"NM","AR USER CUSTOMIZE")=""
^DD(342.3,0,"VR")="4.5"
^DD(342.3,0,"VRPK")="PRCA"
^DD(342.3,.01,0)="SCREEN/OPTIONS^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(342.3,.01,1,0)="^.1"
^DD(342.3,.01,1,1,0)="342.3^B"
^DD(342.3,.01,1,1,1)="S ^RC(342.3,""B"",$E(X,1,30),DA)="""""
^DD(342.3,.01,1,1,2)="K ^RC(342.3,""B"",$E(X,1,30),DA)"
^DD(342.3,.01,3)="Answer must be 3-30 characters in length."
^DD(342.3,.01,21,0)="^.001^2^2^3040615^^^^"
^DD(342.3,.01,21,1,0)="This field contains the screen/options used as the routine entry"
^DD(342.3,.01,21,2,0)="point for customizing and printing."
^DD(342.3,.01,"DT")="3040614"
^DD(342.3,1,0)="USER PARAMETERS^342.31PA^^1;0"
^DD(342.3,1,21,0)="^.001^2^2^3040615^^^^"
^DD(342.3,1,21,1,0)="This multiple stores user's set up to customize the screen and the "
^DD(342.3,1,21,2,0)="printer options."
^DD(342.3,1,"DT")="3040609"
^DD(342.3,"B","SCREEN/OPTIONS",.01)=""
^DD(342.3,"B","USER PARAMETERS",1)=""
^DD(342.3,"GL",0,1,.01)=""
^DD(342.3,"GL",1,0,1)=""
^DD(342.3,"IX",.01)=""
^DD(342.3,"RQ",.01)=""
^DD(342.3,"SB",342.31,1)=""
^DD(342.31,0)="USER PARAMETERS SUB-FIELD^^2^3"
^DD(342.31,0,"DT")="3040506"
^DD(342.31,0,"IX","B",342.31,.01)=""
^DD(342.31,0,"NM","USER PARAMETERS")=""
^DD(342.31,0,"UP")="342.3"
^DD(342.31,.01,0)="ENTERED BY^RP200'^VA(200,^0;1^Q"
^DD(342.31,.01,1,0)="^.1"
^DD(342.31,.01,1,1,0)="342.31^B"
^DD(342.31,.01,1,1,1)="S ^RC(342.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(342.31,.01,1,1,2)="K ^RC(342.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(342.31,.01,21,0)="^.001^1^1^3040615^^^^"
^DD(342.31,.01,21,1,0)="This field contains the DUZ of each person who accesses the AR system."
^DD(342.31,.01,"DT")="3040507"
^DD(342.31,1,0)="SELECTION^S^0:NO;1:YES;2:MAYBE;^0;2^Q"
^DD(342.31,1,21,0)="^^2^2^3040506^"
^DD(342.31,1,21,1,0)="This field contains a user's most recent selection to customize the "
^DD(342.31,1,21,2,0)="screen/options."
^DD(342.31,1,"DT")="3040608"
^DD(342.31,2,0)="DEVICE^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(342.31,2,3)="Answer must be 3-30 characters in length."
^DD(342.31,2,21,0)="^^2^2^3040506^"
^DD(342.31,2,21,1,0)="This field contains the device for a user to print the receipt and the "
^DD(342.31,2,21,2,0)="215 report."
^DD(342.31,2,"DT")="3040506"
^DD(342.31,"B","DEVICE",2)=""
^DD(342.31,"B","ENTERED BY",.01)=""
^DD(342.31,"B","SELECTION",1)=""
^DD(342.31,"GL",0,1,.01)=""
^DD(342.31,"GL",0,2,1)=""
^DD(342.31,"GL",0,3,2)=""
^DD(342.31,"IX",.01)=""
^DD(342.31,"RQ",.01)=""
^DD(343,0)="FIELD^^2^3"
^DD(343,0,"DT")="2931013"
^DD(343,0,"ID",2)="W:$D(^(2)) ""   "",$P(^(2),U,1)"
^DD(343,0,"IX","B",343,.01)=""
^DD(343,0,"NM","AR FORM LETTER")=""
^DD(343,0,"VR")="4.5"
^DD(343,0,"VRPK")="PRCA"
^DD(343,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(343,.01,1,0)="^.1"
^DD(343,.01,1,1,0)="343^B"
^DD(343,.01,1,1,1)="S ^RC(343,""B"",$E(X,1,30),DA)="""""
^DD(343,.01,1,1,2)="K ^RC(343,""B"",$E(X,1,30),DA)"
^DD(343,.01,1,1,3)="Needed to Look-up AR FORM LETTERS by name."
^DD(343,.01,1,1,"%D",0)="^^3^3^2930609^"
^DD(343,.01,1,1,"%D",1,0)="This cross reference is used to look-up follow-up letters by name"
^DD(343,.01,1,1,"%D",2,0)="for users and also when printing follow-up letters for patient"
^DD(343,.01,1,1,"%D",3,0)="statements and bills."
^DD(343,.01,3)="Answer must be 3-30 characters in length."
^DD(343,.01,21,0)="^^8^8^2930604^^"
^DD(343,.01,21,1,0)="The AR form letter name identifies the Form Letter number.  Follow-up"
^DD(343,.01,21,2,0)="letters are sent to debtor's based on the bill(s) existing for the"
^DD(343,.01,21,3,0)="debtor.  When a certain bill is to be generated, the AR package will"
^DD(343,.01,21,4,0)="print the appropriate letter to be attached to the bill."
^DD(343,.01,21,5,0)=" "
^DD(343,.01,21,6,0)="The name of the letter SHOULD NEVER be edited as the AR package looks"
^DD(343,.01,21,7,0)="for letters based on the name.  If the name is changed, then this will"
^DD(343,.01,21,8,0)="cause the letter not to be generated."
^DD(343,.01,"DT")="2940321"
^DD(343,1,0)="MAIN FORM BODY^343.01^^1;0"
^DD(343,1,21,0)="^^3^3^2931116^^^^"
^DD(343,1,21,1,0)="The Main Body of the letter is stored as a word-processing field so that"
^DD(343,1,21,2,0)="it can be edited by the user.  All letters have a 'header' and 'trailer'"
^DD(343,1,21,3,0)="that follow the main body that is not editable."
^DD(343,2,0)="DESCRIPTION^RF^^2;1^K:$L(X)>65!($L(X)<3) X"
^DD(343,2,3)="Answer must be 3-65 characters in length."
^DD(343,2,21,0)="^^2^2^2930609^^"
^DD(343,2,21,1,0)="The description of the letter gives a brief over-view of the purpose"
^DD(343,2,21,2,0)="of the letter and the conditions that letter should be printed."
^DD(343,2,"DT")="2930518"
^DD(343,"B","DESCRIPTION",2)=""
^DD(343,"B","MAIN FORM BODY",1)=""
^DD(343,"B","NAME",.01)=""
^DD(343,"GL",0,1,.01)=""
^DD(343,"GL",1,0,1)=""
^DD(343,"GL",2,1,2)=""
^DD(343,"IX",.01)=""
^DD(343,"RQ",.01)=""
^DD(343,"RQ",2)=""
^DD(343,"SB",343.01,1)=""
^DD(343.01,0)="MAIN FORM BODY SUB-FIELD^^.01^1"
^DD(343.01,0,"DT")="2931013"
^DD(343.01,0,"NM","MAIN FORM BODY")=""
^DD(343.01,0,"UP")="343"
^DD(343.01,.01,0)="MAIN FORM BODY^W^^0;1^Q"
^DD(343.01,.01,21,0)="^^3^3^2931116^^^"
^DD(343.01,.01,21,1,0)="The Main Body of the letter is stored as a word-processing field so that"
^DD(343.01,.01,21,2,0)="it can be edited by the user.  All letters have a ""header"" and ""trailer"""
^DD(343.01,.01,21,3,0)="that follow the main body that is not editable."
^DD(343.01,.01,"DT")="2931013"
^DD(343.01,"B","MAIN FORM BODY",.01)=""
^DD(343.01,"GL",0,1,.01)=""
^DD(344,0)="FIELD^^201^22"
^DD(344,0,"DDA")="N"
^DD(344,0,"DT")="2990428"
^DD(344,0,"ID","WR1")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(344,0,"ID","WR2")="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(344,0,"ID","WR3")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RC(341.1,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(341.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(344,0,"IX","AA",344,.04)=""
^DD(344,0,"IX","AA1",344,.02)=""
^DD(344,0,"IX","AACCT",344.01,.03)=""
^DD(344,0,"IX","AC",344.01,.03)=""
^DD(344,0,"IX","AD",344,.06)=""
^DD(344,0,"IX","ADOC",344,200)=""
^DD(344,0,"IX","AEFT",344,.17)=""
^DD(344,0,"IX","AN01",344.01,.01)=""
^DD(344,0,"IX","AN03",344.01,.03)=""
^DD(344,0,"IX","ASTAT",344,.14)=""
^DD(344,0,"IX","B",344,.01)=""
^DD(344,0,"NM","AR BATCH PAYMENT")=""
^DD(344,0,"PT",344.31,.09)=""
^DD(344,0,"PT",344.4,.08)=""
^DD(344,0,"PT",344.49,.02)=""
^DD(344,0,"PT",347,1.03)=""
^DD(344,0,"PT",348.42,.01)=""
^DD(344,0,"VR")="4.5"
^DD(344,0,"VRPK")="PRCA"
^DD(344,.01,0)="RECEIPT #^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<7) X D:$D(X) DUPLCATE^RCDPURED"
^DD(344,.01,1,0)="^.1"
^DD(344,.01,1,1,0)="344^B"
^DD(344,.01,1,1,1)="S ^RCY(344,""B"",$E(X,1,30),DA)="""""
^DD(344,.01,1,1,2)="K ^RCY(344,""B"",$E(X,1,30),DA)"
^DD(344,.01,1,1,3)="Needed to look-up Batch Payment entries by RECEIPT NUMBER"
^DD(344,.01,1,1,"%D",0)="^^2^2^2930609^^^"
^DD(344,.01,1,1,"%D",1,0)="This cross-reference is used for sorting and file look-up by receipt"
^DD(344,.01,1,1,"%D",2,0)="#."
^DD(344,.01,1,2,0)="^^TRIGGER^344.4^.08"
^DD(344,.01,1,2,1)="Q"
^DD(344,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(344,.01,1,2,89.2) S X=$P($G(^RCY(344,+$P(Y(101),U,8),0)),U) S D0=I(0,0) S DIU=X K Y S X="""" S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,8)=DIV,DIH=344.4,DIG=.08 D ^DICR"
^DD(344,.01,1,2,3)="Do not delete"
^DD(344,.01,1,2,89.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^RCY(344,D0,0)):^(0),1:""""),D0=$P(Y(1),U,18) S:'D0!'$D(^RCY(344.4,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^RCY(344.4,D0,0)):^(0),1:"""")"
^DD(344,.01,1,2,"CREATE VALUE")="NO EFFECT"
^DD(344,.01,1,2,"DELETE VALUE")="@"
^DD(344,.01,1,2,"DT")="3040405"
^DD(344,.01,1,2,"FIELD")="ERA REFERENCE:RECEIPT"
^DD(344,.01,3)="Answer must be 7-10 characters in length."
^DD(344,.01,7.5)="D LOOKUP^RCDPUREC"
^DD(344,.01,21,0)="^^4^4^2930927^^^^"
^DD(344,.01,21,1,0)="This field should reflect the field service receipt number."
^DD(344,.01,21,2,0)="This field is assigned during entry of payments and will separate"
^DD(344,.01,21,3,0)="different types of payment (cash, check, or credit card) for a"
^DD(344,.01,21,4,0)="particular user for a given time-frame."
^DD(344,.01,"DT")="3040405"
^DD(344,.02,0)="OPENED BY^RP200'^VA(200,^0;2^Q"
^DD(344,.02,1,0)="^.1"
^DD(344,.02,1,1,0)="344^AA1^MUMPS"
^DD(344,.02,1,1,1)="I $P(^RCY(344,DA,0),""^"",4)]"""" K ^RCY(344,""AA"",X,$P(^(0),""^"",4)) S ^RCY(344,""AA"",X,$P(^RCY(344,DA,0),""^"",4),DA)="""""
^DD(344,.02,1,1,2)="I $P(^RCY(344,DA,0),""^"",4)]"""",$O(^RCY(344,""AA"",X,$P(^(0),""^"",4),""""))=DA K ^RCY(344,""AA"",X,$P(^RCY(344,DA,0),""^"",4),DA)"
^DD(344,.02,1,1,3)="NEEDED TO STORE LAST RECEIPT NUMBER USED"
^DD(344,.02,1,1,"%D",0)="^^5^5^2930601^^^^"
^DD(344,.02,1,1,"%D",1,0)="This cross-reference stores the last receipt number used by a user specific"
^DD(344,.02,1,1,"%D",2,0)="to type of payment."
^DD(344,.02,1,1,"%D",3,0)=" "
^DD(344,.02,1,1,"%D",4,0)="This cross-reference is used to show the default Receipt # when using the"
^DD(344,.02,1,1,"%D",5,0)="payment options in the Agent Cashier module."
^DD(344,.02,1,1,"DT")="2920622"
^DD(344,.02,21,0)="^^1^1^2990507^^^"
^DD(344,.02,21,1,0)="This field contains the name of the person who created the receipt."
^DD(344,.02,"DT")="2920622"
^DD(344,.03,0)="DATE OPENED^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(344,.03,21,0)="1^^1^1^2990507^"
^DD(344,.03,21,1,0)="This field contains the date/time the receipt was created."
^DD(344,.03,"DT")="2980901"
^DD(344,.04,0)="TYPE OF PAYMENT^R*P341.1'X^RC(341.1,^0;4^S DIC(""S"")=""I $P(^(0),U,6)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344,.04,1,0)="^.1"
^DD(344,.04,1,1,0)="344^AA^MUMPS"
^DD(344,.04,1,1,1)="I $P(^RCY(344,DA,0),""^"",2)]"""" K ^RCY(344,""AA"",$P(^(0),""^"",2),X) S ^RCY(344,""AA"",$P(^RCY(344,DA,0),""^"",2),X,DA)="""""
^DD(344,.04,1,1,2)="I $P(^RCY(344,DA,0),""^"",2)]"""",$O(^RCY(344,""AA"",$P(^(0),""^"",2),X,""""))=DA K ^RCY(344,""AA"",$P(^RCY(344,DA,0),""^"",2),X,DA)"
^DD(344,.04,1,1,3)="NEEDED TO STORE LAST RECEIPT NUMBER USED"
^DD(344,.04,1,1,"%D",0)="^^4^4^2930601^^^^"
^DD(344,.04,1,1,"%D",1,0)="This cross-reference stores the last receipt number used by a user specific to"
^DD(344,.04,1,1,"%D",2,0)="type of payment."
^DD(344,.04,1,1,"%D",3,0)=" "
^DD(344,.04,1,1,"%D",4,0)="This cross-reference supports the cross-reference in field ""OPENED BY""."
^DD(344,.04,1,1,"DT")="2920622"
^DD(344,.04,3)=""
^DD(344,.04,12)="You can only select payment event types."
^DD(344,.04,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1"""
^DD(344,.04,21,0)="^^3^3^2930603^^^"
^DD(344,.04,21,1,0)="A receipt is created for different types of payments, such as, Cash,"
^DD(344,.04,21,2,0)="Credit Card, or Check/Money Order.  This field defines the types of"
^DD(344,.04,21,3,0)="payments that are stored under this receipt."
^DD(344,.04,"DT")="2980506"
^DD(344,.05,0)="*QUEUED TO POST^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344,.05,21,0)="^^1^1^2990507^^^^"
^DD(344,.05,21,1,0)="*****  This field is no longer used. *****"
^DD(344,.05,"DT")="2980727"
^DD(344,.06,0)="DEPOSIT TICKET^*P344.1'^RCY(344.1,^0;6^S DIC(""S"")=""I $P(^(0),""""^"""",12)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344,.06,1,0)="^.1"
^DD(344,.06,1,1,0)="344^AD"
^DD(344,.06,1,1,1)="S ^RCY(344,""AD"",$E(X,1,30),DA)="""""
^DD(344,.06,1,1,2)="K ^RCY(344,""AD"",$E(X,1,30),DA)"
^DD(344,.06,1,1,"DT")="2970404"
^DD(344,.06,12)="Select only OPENED deposit tickets"
^DD(344,.06,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",12)=1"""
^DD(344,.06,21,0)="^^2^2^2930601^^"
^DD(344,.06,21,1,0)="The Date of Deposit defines the date that the payments received under"
^DD(344,.06,21,2,0)="this batch will be deposited to the bank."
^DD(344,.06,"DT")="2970404"
^DD(344,.07,0)="PROCESSED BY^P200'^VA(200,^0;7^Q"
^DD(344,.07,21,0)="^^3^3^2980727^^^^"
^DD(344,.07,21,1,0)="When a receipt is processed, the AR accounts are updated with the payments"
^DD(344,.07,21,2,0)="and the Cash Receipt documents are sent to FMS.  This field tracks the"
^DD(344,.07,21,3,0)="user processing the receipt."
^DD(344,.07,"DT")="2980727"
^DD(344,.08,0)="DATE/TIME PROCESSED^D^^0;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344,.08,21,0)="^^3^3^2980727^^^^"
^DD(344,.08,21,1,0)="When a receipt is processed, the AR accounts are updated with the payments"
^DD(344,.08,21,2,0)="and the Cash Receipt documents are sent to FMS.  This field tracks the"
^DD(344,.08,21,3,0)="date and time the receipt was processed."
^DD(344,.08,"DT")="2980727"
^DD(344,.09,0)="*START DATE/TIME^D^^0;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344,.09,21,0)="^^1^1^2990507^^^^"
^DD(344,.09,21,1,0)="*****  This field is no longer used. *****"
^DD(344,.09,"DT")="2980727"
^DD(344,.1,0)="*END DATE/TIME^D^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344,.1,21,0)="^^1^1^2990507^^^^"
^DD(344,.1,21,1,0)="*****  This field is no longer used. *****"
^DD(344,.1,"DT")="2980727"
^DD(344,.11,0)="LAST EDITED BY^P200'^VA(200,^0;11^Q"
^DD(344,.11,21,0)="^^3^3^2990507^^^^"
^DD(344,.11,21,1,0)="This contains the name of the person who last edited the receipt entry."
^DD(344,.11,21,2,0)="This field is automatically entered each time a person edits the"
^DD(344,.11,21,3,0)="receipt."
^DD(344,.11,22)=""
^DD(344,.11,"DT")="2910221"
^DD(344,.12,0)="DATE/TIME LAST EDIT^D^^0;12^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344,.12,21,0)="^^1^1^2990507^^^^"
^DD(344,.12,21,1,0)="This field contains the date/time the receipt was last edited."
^DD(344,.12,"DT")="2910214"
^DD(344,.14,0)="STATUS^RS^0:CLOSED;1:OPEN;^0;14^Q"
^DD(344,.14,1,0)="^.1"
^DD(344,.14,1,1,0)="344^ASTAT"
^DD(344,.14,1,1,1)="S ^RCY(344,""ASTAT"",$E(X,1,30),DA)="""""
^DD(344,.14,1,1,2)="K ^RCY(344,""ASTAT"",$E(X,1,30),DA)"
^DD(344,.14,1,1,"DT")="2940912"
^DD(344,.14,21,0)="^^3^3^2990507^^^^"
^DD(344,.14,21,1,0)="This field stores the status of the receipt.  An open receipt can be"
^DD(344,.14,21,2,0)="modified (payments added, cancelled, or edited).  A closed receipt"
^DD(344,.14,21,3,0)="cannot be changed."
^DD(344,.14,"DT")="2940912"
^DD(344,.15,0)="TOTAL AMOUNT OF RECEIPTS^CJ8,2^^ ; ^S X=$$PAYTOTAL^RCDPURED(D0)"
^DD(344,.15,9)="^"
^DD(344,.15,9.01)=""
^DD(344,.15,9.1)="S X=$$PAYTOTAL^RCDPURED(D0)"
^DD(344,.15,21,0)="^^1^1^2990507^^^"
^DD(344,.15,21,1,0)="Total of all payments in the receipt."
^DD(344,.15,"DT")="2990507"
^DD(344,.16,0)="LOCKBOX ACH NUMBER^F^^0;16^K:$L(X)>9!($L(X)<1) X"
^DD(344,.16,3)="Answer must be 1-9 characters in length."
^DD(344,.16,21,0)="^^2^2^3030313^"
^DD(344,.16,21,1,0)="Number assigned by banking institution to track their electronic deposit"
^DD(344,.16,21,2,0)="for the V.A."
^DD(344,.16,"DT")="3030313"
^DD(344,.17,0)="EFT RECORD^R*P344.31'^RCY(344.31,^0;17^S DIC(""S"")=""I $S('$O(^RCY(344,""""AEFT"""",+Y,0)):1,1:$O(^(0))=DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344,.17,1,0)="^.1"
^DD(344,.17,1,1,0)="344^AEFT"
^DD(344,.17,1,1,1)="S ^RCY(344,""AEFT"",$E(X,1,30),DA)="""""
^DD(344,.17,1,1,2)="K ^RCY(344,""AEFT"",$E(X,1,30),DA)"
^DD(344,.17,1,1,3)="Do not delete"
^DD(344,.17,1,1,"DT")="3030228"
^DD(344,.17,3)="Enter the EFT from which this receipt detail record was generated"
^DD(344,.17,12)="An EFT record can only be associated with 1 EDI Lockbox type receipt."
^DD(344,.17,12.1)="S DIC(""S"")=""I $S('$O(^RCY(344,""""AEFT"""",+Y,0)):1,1:$O(^(0))=DA)"""
^DD(344,.17,21,0)="^^2^2^3030228^"
^DD(344,.17,21,1,0)="If this is the detail receipt for a payment made via an EFT, this is the"
^DD(344,.17,21,2,0)="pointer to the individual EFT that was received."
^DD(344,.17,"DT")="3030428"
^DD(344,.18,0)="ERA REFERENCE^*P344.4'^RCY(344.4,^0;18^S DIC(""S"")=""N Z S Z=$O(^RCY(344.4,""""ARCT"""",+DA,0)) I 'Z!(Z=+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344,.18,3)="Enter the ERA record that will be used to populate this receipt detail."
^DD(344,.18,12)="Only 1 receipt can be associated with an ERA record"
^DD(344,.18,12.1)="S DIC(""S"")=""N Z S Z=$O(^RCY(344.4,""""ARCT"""",+DA,0)) I 'Z!(Z=+Y)"""
^DD(344,.18,21,0)="^.001^2^2^3030314^^"
^DD(344,.18,21,1,0)="This is the pointer to the ERA record that will be associated with this"
^DD(344,.18,21,2,0)="receipt."
^DD(344,.18,"DT")="3030314"
^DD(344,1,0)="TRANSACTION^344.01AI^^1;0"
^DD(344,1,21,0)="^.001^1^1^3031006^^^^"
^DD(344,1,21,1,0)="This multiple contains all the payment transactions within a receipt."
^DD(344,1,"DT")="2920619"
^DD(344,100,0)="*PROGRESS^CJ8^^ ; ^S X="""""
^DD(344,100,9)="^"
^DD(344,100,9.01)=""
^DD(344,100,9.1)="S X="""""
^DD(344,100,21,0)="^^1^1^2990507^^"
^DD(344,100,21,1,0)="*****  This field is no longer used. *****"
^DD(344,100,"DT")="2990507"
^DD(344,101,0)="NUMBER OF TRANSACTIONS^CJ8,0^^ ; ^S X=$$PAYCOUNT^RCDPURED(D0)"
^DD(344,101,9)="^"
^DD(344,101,9.01)=""
^DD(344,101,9.1)="S X=$$PAYCOUNT^RCDPURED(D0)"
^DD(344,101,21,0)="^^1^1^2990507^^"
^DD(344,101,21,1,0)="Total number of payment transactions recorded on a receipt."
^DD(344,101,"DT")="2990507"
^DD(344,200,0)="FMS DOCUMENT NUMBER^F^^2;1^K:$L(X)>20!($L(X)<1) X"
^DD(344,200,1,0)="^.1"
^DD(344,200,1,1,0)="344^ADOC"
^DD(344,200,1,1,1)="S ^RCY(344,""ADOC"",$E(X,1,30),DA)="""""
^DD(344,200,1,1,2)="K ^RCY(344,""ADOC"",$E(X,1,30),DA)"
^DD(344,200,1,1,"%D",0)="^^2^2^2990128^"
^DD(344,200,1,1,"%D",1,0)="This cross reference is used to lookup up the receipt number if the"
^DD(344,200,1,1,"%D",2,0)="cash receipt document is known."
^DD(344,200,1,1,"DT")="2990128"
^DD(344,200,3)="Answer must be 1-20 characters in length."
^DD(344,200,21,0)="^^2^2^2980727^"
^DD(344,200,21,1,0)="This field is used to store the FMS document number used to create the"
^DD(344,200,21,2,0)="CR code sheets for this receipt."
^DD(344,200,"DT")="2990128"
^DD(344,201,0)="CR DOCUMENT ENTERED ON LINE^S^1:YES;0:NO;^2;2^Q"
^DD(344,201,21,0)="^.001^3^3^3010417^^"
^DD(344,201,21,1,0)="This field will override the status of a cash receipt document."
^DD(344,201,21,2,0)="If a cash receipt document is rejected, you can set this field"
^DD(344,201,21,3,0)="to a 1 to show the document is entered on line."
^DD(344,201,"DT")="3010327"
^DD(344,"B","*END DATE/TIME",.1)=""
^DD(344,"B","*PROGRESS",100)=""
^DD(344,"B","*QUEUED TO POST",.05)=""
^DD(344,"B","*START DATE/TIME",.09)=""
^DD(344,"B","CR DOCUMENT ENTERED ON LINE",201)=""
^DD(344,"B","DATE OPENED",.03)=""
^DD(344,"B","DATE/TIME LAST EDIT",.12)=""
^DD(344,"B","DATE/TIME PROCESSED",.08)=""
^DD(344,"B","DEPOSIT TICKET",.06)=""
^DD(344,"B","EFT RECORD",.17)=""
^DD(344,"B","ERA REFERENCE",.18)=""
^DD(344,"B","FMS DOCUMENT NUMBER",200)=""
^DD(344,"B","LAST EDITED BY",.11)=""
^DD(344,"B","LOCKBOX ACH NUMBER",.16)=""
^DD(344,"B","NUMBER OF TRANSACTIONS",101)=""
^DD(344,"B","OPENED BY",.02)=""
^DD(344,"B","PROCESSED BY",.07)=""
^DD(344,"B","RECEIPT #",.01)=""
^DD(344,"B","STATUS",.14)=""
^DD(344,"B","TOTAL AMOUNT OF RECEIPTS",.15)=""
^DD(344,"B","TRANSACTION",1)=""
^DD(344,"B","TYPE OF PAYMENT",.04)=""
^DD(344,"GL",0,1,.01)=""
^DD(344,"GL",0,2,.02)=""
^DD(344,"GL",0,3,.03)=""
^DD(344,"GL",0,4,.04)=""
^DD(344,"GL",0,5,.05)=""
^DD(344,"GL",0,6,.06)=""
^DD(344,"GL",0,7,.07)=""
^DD(344,"GL",0,8,.08)=""
^DD(344,"GL",0,9,.09)=""
^DD(344,"GL",0,10,.1)=""
^DD(344,"GL",0,11,.11)=""
^DD(344,"GL",0,12,.12)=""
^DD(344,"GL",0,14,.14)=""
^DD(344,"GL",0,16,.16)=""
^DD(344,"GL",0,17,.17)=""
^DD(344,"GL",0,18,.18)=""
^DD(344,"GL",1,0,1)=""
^DD(344,"GL",2,1,200)=""
^DD(344,"GL",2,2,201)=""
^DD(344,"IX",.01)=""
^DD(344,"IX",.02)=""
^DD(344,"IX",.04)=""
^DD(344,"IX",.06)=""
^DD(344,"IX",.14)=""
^DD(344,"IX",.17)=""
^DD(344,"IX",200)=""
^DD(344,"RQ",.01)=""
^DD(344,"RQ",.02)=""
^DD(344,"RQ",.04)=""
^DD(344,"RQ",.14)=""
^DD(344,"RQ",.17)=""
^DD(344,"SB",344.01,1)=""
^DD(344.01,0)="TRANSACTION SUB-FIELD^^1.02^24"
^DD(344.01,0,"DT")="2990428"
^DD(344.01,0,"IX","B",344.01,.01)=""
^DD(344.01,0,"NM","TRANSACTION")=""
^DD(344.01,0,"UP")="344"
^DD(344.01,.01,0)="TRANSACTION^MRNJ5,0X^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(344.01,.01,1,0)="^.1"
^DD(344.01,.01,1,1,0)="344.01^B"
^DD(344.01,.01,1,1,1)="S ^RCY(344,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(344.01,.01,1,1,2)="K ^RCY(344,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(344.01,.01,1,1,"%D",0)="^^1^1^2931014^^"
^DD(344.01,.01,1,1,"%D",1,0)="This x-ref is used for look-up and sorting by FileMan."
^DD(344.01,.01,1,2,0)="344^AN01^MUMPS"
^DD(344.01,.01,1,2,1)="I '$P($G(^RCY(344,DA(1),1,DA,0)),""^"",3),$$EDILB^RCDPEU(DA(1))'=1 S ^RCY(344,""AN"",DA(1),DA)="""""
^DD(344.01,.01,1,2,2)="K ^RCY(344,""AN"",DA(1),DA)"
^DD(344.01,.01,1,2,"%D",0)="^^7^7^3030313^"
^DD(344.01,.01,1,2,"%D",1,0)="This cross reference is used to build the list of payments that are"
^DD(344.01,.01,1,2,"%D",2,0)="unlinked.  An unlinked payment does not have an entry in field .03."
^DD(344.01,.01,1,2,"%D",3,0)="The cross reference for field .03 will remove the cross reference"
^DD(344.01,.01,1,2,"%D",4,0)="when the field is populated.  EDI Lockbox deposit receipts will"
^DD(344.01,.01,1,2,"%D",5,0)="not have an entry in the .03 field, but are excluded from this xref"
^DD(344.01,.01,1,2,"%D",6,0)="since the funds are not deposited into suspense but are instead"
^DD(344.01,.01,1,2,"%D",7,0)="placed in FUND 5287/revenue source code 8NZZ."
^DD(344.01,.01,1,2,"DT")="3030313"
^DD(344.01,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(344.01,.01,21,0)="^^2^2^2990507^^^^"
^DD(344.01,.01,21,1,0)="This DINUM field is the entry number for each transaction within a receipt."
^DD(344.01,.01,21,2,0)="This field is sequentially assigned by the computer."
^DD(344.01,.01,"DT")="3030313"
^DD(344.01,.01,"V",0)="^.12P^2^2"
^DD(344.01,.01,"V",1,0)="430^BILL NUMBER^1^B^n^n"
^DD(344.01,.01,"V",2,0)="2^NAME^2^P^n^n"
^DD(344.01,.01,"V","B",2,2)=""
^DD(344.01,.01,"V","B",430,1)=""
^DD(344.01,.01,"V","M","BILL NUMBER",1)=""
^DD(344.01,.01,"V","M","NAME",2)=""
^DD(344.01,.01,"V","O",1,1)=""
^DD(344.01,.01,"V","O",2,2)=""
^DD(344.01,.01,"V","P","B",1)=""
^DD(344.01,.01,"V","P","P",2)=""
^DD(344.01,.02,0)="CONFIRMATION #^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(344.01,.02,3)="Answer must be 1-15 characters in length."
^DD(344.01,.02,21,0)="^^2^2^2920820^^"
^DD(344.01,.02,21,1,0)="This data should reflect the confirmation number that the credit card"
^DD(344.01,.02,21,2,0)="machine returns when entering credit card payments."
^DD(344.01,.02,"DT")="2920222"
^DD(344.01,.03,0)="ACCOUNT^RVX^^0;3^Q"
^DD(344.01,.03,1,0)="^.1"
^DD(344.01,.03,1,1,0)="344^AC^MUMPS"
^DD(344.01,.03,1,1,1)="S:X["";DPT("" ^RCY(344,""AC"",X,DA(1),DA)="""" I X["";PRCA(430,"",$D(^RCD(340,+$P(^PRCA(430,+X,0),""^"",9),0)) S ^RCY(344,""AC"",$P(^RCD(340,+$P(^PRCA(430,+X,0),""^"",9),0),""^""),DA(1),DA)="""""
^DD(344.01,.03,1,1,2)="K:X["";DPT("" ^RCY(344,""AC"",X,DA(1),DA) I X["";PRCA(430,"",$D(^RCD(340,+$P(^PRCA(430,+X,0),""^"",9),0)) K ^RCY(344,""AC"",$P(^RCD(340,+$P(^PRCA(430,+X,0),""^"",9),0),""^""),DA(1),DA)"
^DD(344.01,.03,1,1,3)="NEEDED FOR ACCOUNT PROFILE"
^DD(344.01,.03,1,1,"%D",0)="^^2^2^2920717^^"
^DD(344.01,.03,1,1,"%D",1,0)="This cross-reference is needed to display payments not yet posted"
^DD(344.01,.03,1,1,"%D",2,0)="to patient accounts during the use of the ""Account Profile"" option."
^DD(344.01,.03,1,1,"DT")="2920717"
^DD(344.01,.03,1,2,0)="344^AACCT"
^DD(344.01,.03,1,2,1)="S ^RCY(344,""AACCT"",$E(X,1,30),DA(1),DA)="""""
^DD(344.01,.03,1,2,2)="K ^RCY(344,""AACCT"",$E(X,1,30),DA(1),DA)"
^DD(344.01,.03,1,2,"%D",0)="^^2^2^2990422^"
^DD(344.01,.03,1,2,"%D",1,0)="This cross reference is used to lookup payments by account.  This is"
^DD(344.01,.03,1,2,"%D",2,0)="especially useful when determining the pending payments for an account."
^DD(344.01,.03,1,2,"DT")="2990422"
^DD(344.01,.03,1,3,0)="344^AN03^MUMPS"
^DD(344.01,.03,1,3,1)="K ^RCY(344,""AN"",DA(1),DA)"
^DD(344.01,.03,1,3,2)="S ^RCY(344,""AN"",DA(1),DA)="""""
^DD(344.01,.03,1,3,"%D",0)="^^4^4^2990426^"
^DD(344.01,.03,1,3,"%D",1,0)="This cross reference is used to build the list of payments that are"
^DD(344.01,.03,1,3,"%D",2,0)="unlinked.  An unlinked payment does not have an entry in field .03."
^DD(344.01,.03,1,3,"%D",3,0)="This cross reference is initially set when the .01 entry is added"
^DD(344.01,.03,1,3,"%D",4,0)="to the file."
^DD(344.01,.03,1,3,"DT")="2990426"
^DD(344.01,.03,5,1,0)="344.01^.09^1"
^DD(344.01,.03,21,0)="^^10^10^2920804^^^"
^DD(344.01,.03,21,1,0)="This field is used to store where the payment should be applied.  If"
^DD(344.01,.03,21,2,0)="the payment is associated to a specific bill, then the payment"
^DD(344.01,.03,21,3,0)="will be applied to the bill first and any money left over will be"
^DD(344.01,.03,21,4,0)="applied to any other bills the patient has remaining.  If the"
^DD(344.01,.03,21,5,0)="bill is not a patient bill, then the money will be applied to the"
^DD(344.01,.03,21,6,0)="specific bill and any money left over will be refunded."
^DD(344.01,.03,21,7,0)=" "
^DD(344.01,.03,21,8,0)="If this field is associated with a Patient, then the program will"
^DD(344.01,.03,21,9,0)="automatically search the patient bills and apply payments to their"
^DD(344.01,.03,21,10,0)="respective bills until the payment is exhausted."
^DD(344.01,.03,"DT")="2990426"
^DD(344.01,.03,"V",0)="^.12P^2^2"
^DD(344.01,.03,"V",1,0)="430^BILL NUMBER^2^B^n^n"
^DD(344.01,.03,"V",2,0)="2^PATIENT NAME^1^P^n^n"
^DD(344.01,.03,"V","B",2,2)=""
^DD(344.01,.03,"V","B",430,1)=""
^DD(344.01,.03,"V","M","BILL NUMBER",1)=""
^DD(344.01,.03,"V","M","PATIENT NAME",2)=""
^DD(344.01,.03,"V","O",1,2)=""
^DD(344.01,.03,"V","O",2,1)=""
^DD(344.01,.03,"V","P","B",1)=""
^DD(344.01,.03,"V","P","P",2)=""
^DD(344.01,.04,0)="PAYMENT AMOUNT^RNJ9,2X^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(+X'>0) X S:$D(X) X=$J(X,0,2) I $D(X) D CHGAMT^RCDPURED I $D(X) D PAYCHK^RCDPURED"
^DD(344.01,.04,3)="Type a Dollar Amount between .01 and 999999.99, 2 Decimal Digits"
^DD(344.01,.04,21,0)="^^1^1^2910225^"
^DD(344.01,.04,21,1,0)="This field is the amount of payment to be posted to A/R."
^DD(344.01,.04,"DT")="2990507"
^DD(344.01,.05,0)="AMOUNT PROCESSED^NJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(344.01,.05,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(344.01,.05,21,0)="^^4^4^2990507^^^^"
^DD(344.01,.05,21,1,0)="Once payments begin to post to bills, this field will reflect the"
^DD(344.01,.05,21,2,0)="amount of payment actually processed.  For example, if the payment"
^DD(344.01,.05,21,3,0)="amount is $20.00 and only $15.00 of the payment could be applied,"
^DD(344.01,.05,21,4,0)="this field would reflect the $15.00 processed."
^DD(344.01,.05,"DT")="2920305"
^DD(344.01,.06,0)="DATE OF PAYMENT^RDX^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X D:$D(X) PAYDATE^RCDPURED"
^DD(344.01,.06,3)="Type a valid date for payment.  Cannot be in future or over a month in past."
^DD(344.01,.06,21,0)="^^9^9^2931014^^^^"
^DD(344.01,.06,21,1,0)="Date of Payment represents the date the payment was received and should"
^DD(344.01,.06,21,2,0)="be credited to the account.  For example, if the payment was received"
^DD(344.01,.06,21,3,0)="yesterday, but due to time-delays is being input today, this field"
^DD(344.01,.06,21,4,0)="should be set to T-1 (yesterday).  This is necessary so the patient"
^DD(344.01,.06,21,5,0)="will get credit for paying bills on time.  If the patients' payment"
^DD(344.01,.06,21,6,0)="date was, for example, 5/10/92 and the payment was received 5/9/92"
^DD(344.01,.06,21,7,0)="but is being input on 5/12/92, this field should have 5/9/92.  If"
^DD(344.01,.06,21,8,0)="5/12/92 is entered, the patient will be incorrectly charged"
^DD(344.01,.06,21,9,0)="interest and administrative charges."
^DD(344.01,.06,"DT")="2990511"
^DD(344.01,.07,0)="CHECK #^F^^0;7^K:$L(X)>15!($L(X)<1) X"
^DD(344.01,.07,3)="Answer must be 1-15 characters in length."
^DD(344.01,.07,21,0)="^^5^5^2920820^^^^"
^DD(344.01,.07,21,1,0)="If available the check # should be entered for check payments.  This"
^DD(344.01,.07,21,2,0)="information will be valuable for tracking 'lost' payments or to"
^DD(344.01,.07,21,3,0)="provide information for patient inquiries.  The check number will"
^DD(344.01,.07,21,4,0)="be logged with the payment transaction for each bill to which the"
^DD(344.01,.07,21,5,0)="payment is applied."
^DD(344.01,.07,22)=""
^DD(344.01,.07,"DT")="2920603"
^DD(344.01,.08,0)="CHECK BANK/ROUTING #^F^^0;8^K:$L(X)>15!($L(X)<1) X"
^DD(344.01,.08,3)="Answer must be 1-15 characters in length."
^DD(344.01,.08,21,0)="^^5^5^2920820^^^^"
^DD(344.01,.08,21,1,0)="If available, the bank # should be entered for check payments.  This"
^DD(344.01,.08,21,2,0)="information will be valuable for tracking 'lost' payments or to"
^DD(344.01,.08,21,3,0)="provide information for patient inquiries.  The check number will"
^DD(344.01,.08,21,4,0)="be logged with the payment transaction for each bill to which the"
^DD(344.01,.08,21,5,0)="payment is applied."
^DD(344.01,.08,"DT")="2981223"
^DD(344.01,.09,0)="PATIENT NAME OR BILL NUMBER^FXO^^0;9^D PNORBILL^RCDPURED"
^DD(344.01,.09,.1)=""
^DD(344.01,.09,1,0)="^.1"
^DD(344.01,.09,1,1,0)="^^TRIGGER^344.01^.03"
^DD(344.01,.09,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RCY(344,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(344.01,.09,1,1,1.4)"
^DD(344.01,.09,1,1,1.4)="S DIH=$S($D(^RCY(344,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=344.01,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(344.01,.09,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RCY(344,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(344.01,.09,1,1,2.4)"
^DD(344.01,.09,1,1,2.4)="S DIH=$S($D(^RCY(344,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=344.01,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(344.01,.09,1,1,3)="Needed to set Account field"
^DD(344.01,.09,1,1,"%D",0)="^^5^5^2930923^"
^DD(344.01,.09,1,1,"%D",1,0)="This field allows a customized look-up to the Patient file"
^DD(344.01,.09,1,1,"%D",2,0)="and Bill number file when prompting the user for ""PATIENT NAME"
^DD(344.01,.09,1,1,"%D",3,0)="OR BILL NUMBER"" during payment entry.  Once the user selects"
^DD(344.01,.09,1,1,"%D",4,0)="the Patient or Bill Number, this data is then moved to the"
^DD(344.01,.09,1,1,"%D",5,0)="""Account"" field for VA FileMan Compatiblity for printing."
^DD(344.01,.09,1,1,"CREATE VALUE")="INTERNAL(#.09)"
^DD(344.01,.09,1,1,"DELETE VALUE")="@"
^DD(344.01,.09,1,1,"DT")="2920619"
^DD(344.01,.09,1,1,"FIELD")="ACCOUNT"
^DD(344.01,.09,2)="S Y(0)=Y S Y=$P(@(""^""_$P(Y,"";"",2)_+Y_"",0)""),""^"")"
^DD(344.01,.09,2.1)="S Y=$P(@(""^""_$P(Y,"";"",2)_+Y_"",0)""),""^"")"
^DD(344.01,.09,3)="Enter one of following: Patient Name, Bill No, Tricare Authorization No, ECME Rx Reference Number or Prescription Number."
^DD(344.01,.09,22)=""
^DD(344.01,.09,"DT")="3030926"
^DD(344.01,.1,0)="DATE OF CHECK^DX^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.01,.1,21,0)="^^5^5^2920820^^^^"
^DD(344.01,.1,21,1,0)="If available, the date appearing at the top of the check should be"
^DD(344.01,.1,21,2,0)="entered for check payments.  This information will be valuable for"
^DD(344.01,.1,21,3,0)="tracking 'lost' payments or to provide information for patient"
^DD(344.01,.1,21,4,0)="inquiries.  The Date of Check will be logged with the payment"
^DD(344.01,.1,21,5,0)="transaction for each bill to which payment is applied."
^DD(344.01,.1,"DT")="2920429"
^DD(344.01,.11,0)="CREDIT CARD #^F^^0;11^K:$L(X)>16!($L(X)<10)!'(X?1N.N) X"
^DD(344.01,.11,3)="Answer must be 10-16 characters in length."
^DD(344.01,.11,21,0)="^^5^5^2931014^^^^"
^DD(344.01,.11,21,1,0)="If available, the credit card # should be entered for credit card"
^DD(344.01,.11,21,2,0)="payments.  This information will be valuable for tracking 'lost'"
^DD(344.01,.11,21,3,0)="payments or to provide information for patient inquiries.  The"
^DD(344.01,.11,21,4,0)="Credit Card number will be logged with the payment transaction for"
^DD(344.01,.11,21,5,0)="each bill to which payment is applied."
^DD(344.01,.11,"DT")="2981210"
^DD(344.01,.12,0)="ENTERED BY^RP200'^VA(200,^0;12^Q"
^DD(344.01,.12,21,0)="^^2^2^2930923^"
^DD(344.01,.12,21,1,0)="This field contains the person who entered the payment into the "
^DD(344.01,.12,21,2,0)="AR system."
^DD(344.01,.12,"DT")="2930225"
^DD(344.01,.13,0)="CHECK ACCOUNT #^F^^0;13^K:$L(X)>9!($L(X)<1) X"
^DD(344.01,.13,3)="Answer must be 1-9 characters in length."
^DD(344.01,.13,21,0)="^^1^1^2981223^"
^DD(344.01,.13,21,1,0)="This field is used to store the account number from a check."
^DD(344.01,.13,"DT")="2990107"
^DD(344.01,.14,0)="EDITED BY^P200'^VA(200,^0;14^Q"
^DD(344.01,.14,21,0)="^^2^2^3031016^"
^DD(344.01,.14,21,1,0)="This field contains the person who edited the payment entry into"
^DD(344.01,.14,21,2,0)="the AR system."
^DD(344.01,.14,"DT")="3031016"
^DD(344.01,.21,0)="ACCOUNT LOOKUP^F^^2;1^K:$L(X)>20!($L(X)<1) X"
^DD(344.01,.21,3)="Answer must be 1-20 characters in length."
^DD(344.01,.21,21,0)="^^4^4^2980902^"
^DD(344.01,.21,21,1,0)="This field is used to store the account lookup information.  The account"
^DD(344.01,.21,21,2,0)="lookup information is obtained from automatic payment processing.  The"
^DD(344.01,.21,21,3,0)="account lookup information may not be successful in finding the correct"
^DD(344.01,.21,21,4,0)="account and is stored for manual linking of the account by the user."
^DD(344.01,.21,"DT")="2980902"
^DD(344.01,.22,0)="BATCH NUMBER^NJ5,0^^2;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.01,.22,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(344.01,.22,21,0)="^^3^3^2990507^^^^"
^DD(344.01,.22,21,1,0)="The batch number in combination with the sequence number is supplied"
^DD(344.01,.22,21,2,0)="by automatic payment processing and is used to identify the payment"
^DD(344.01,.22,21,3,0)="at the central bank."
^DD(344.01,.22,"DT")="2980902"
^DD(344.01,.23,0)="SEQUENCE NUMBER^NJ5,0^^2;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.01,.23,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(344.01,.23,21,0)="3"
^DD(344.01,.23,21,1,0)="The sequence number in combination with the batch number is supplied"
^DD(344.01,.23,21,2,0)="by automatic payment processing and is used to identify the payment"
^DD(344.01,.23,21,3,0)="at the central bank."
^DD(344.01,.23,"DT")="2980902"
^DD(344.01,.24,0)="PAYMENT TYPE^S^1:CASH;2:CHECK;3:CREDIT CARD;^2;4^Q"
^DD(344.01,.24,21,0)="^^2^2^2980902^"
^DD(344.01,.24,21,1,0)="This field is used to identify the type of payment used by automatic"
^DD(344.01,.24,21,2,0)="payment processing."
^DD(344.01,.24,"DT")="2981223"
^DD(344.01,.25,0)="UNAPPLIED DEPOSIT NUMBER^F^^2;5^K:$L(X)>13!($L(X)<13) X"
^DD(344.01,.25,3)="Answer must be 13 characters in length."
^DD(344.01,.25,21,0)="^^2^2^2990120^"
^DD(344.01,.25,21,1,0)="This field stores the unapplied deposit number used on the Cash Receipt"
^DD(344.01,.25,21,2,0)="document when referencing the suspense fund."
^DD(344.01,.25,"DT")="2990120"
^DD(344.01,.26,0)="CLEAR SUSPENSE FMS DOC ID#^F^^2;6^K:$L(X)>15!($L(X)<1) X"
^DD(344.01,.26,3)="Answer must be 1-15 characters in length."
^DD(344.01,.26,21,0)="^^2^2^2990331^"
^DD(344.01,.26,21,1,0)="This field is used to enter the FMS Document ID Number used to clear"
^DD(344.01,.26,21,2,0)="a payment from suspense in FMS."
^DD(344.01,.26,"DEL",1,0)="I 1 W !,""You cannot delete this value.  Use lowercase x to override current value."""
^DD(344.01,.26,"DT")="2990428"
^DD(344.01,.27,0)="ERA WORKLIST SEQUENCE^NJ5,0^^0;27^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.01,.27,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(344.01,.27,21,0)="^.001^2^2^3030729^^^"
^DD(344.01,.27,21,1,0)="This is the ien of the entry in file 344.491 that was used to create this"
^DD(344.01,.27,21,2,0)="line in the receipt."
^DD(344.01,.27,"DT")="3030729"
^DD(344.01,.28,0)="AUTO DECREASE ADJUSTMENT^S^0:NO;1:YES;^0;28^Q"
^DD(344.01,.28,3)="Enter 1 if there is a decrease adjustment from EOB Worklist for this payment."
^DD(344.01,.28,21,0)="^^2^2^3030509^"
^DD(344.01,.28,21,1,0)="This is the flag that indicates the EOB Worklist has a pending decrease"
^DD(344.01,.28,21,2,0)="adjustment for this payment."
^DD(344.01,.28,"DT")="3030509"
^DD(344.01,1.01,0)="POSTING ERROR^F^^1;1^K:$L(X)>60!($L(X)<1) X"
^DD(344.01,1.01,3)="Answer must be 1-60 characters in length."
^DD(344.01,1.01,21,0)="^^2^2^2990507^^^"
^DD(344.01,1.01,21,1,0)="If a payment transaction cannot be posted to a bill, this field"
^DD(344.01,1.01,21,2,0)="will contain the type of problem encountered."
^DD(344.01,1.01,"DT")="2920222"
^DD(344.01,1.02,0)="COMMENT^F^^1;2^K:$L(X)>60!($L(X)<1) X"
^DD(344.01,1.02,3)="Answer must be 1-60 characters in length."
^DD(344.01,1.02,21,0)="^^1^1^2990121^^^"
^DD(344.01,1.02,21,1,0)="This field is used to enter comments for payments cancelled or unapplied."
^DD(344.01,1.02,"DT")="2990121"
^DD(344.01,"B","ACCOUNT",.03)=""
^DD(344.01,"B","ACCOUNT LOOKUP",.21)=""
^DD(344.01,"B","AMOUNT PROCESSED",.05)=""
^DD(344.01,"B","AUTO DECREASE ADJUSTMENT",.28)=""
^DD(344.01,"B","BATCH NUMBER",.22)=""
^DD(344.01,"B","CHECK #",.07)=""
^DD(344.01,"B","CHECK ACCOUNT #",.13)=""
^DD(344.01,"B","CHECK BANK/ROUTING #",.08)=""
^DD(344.01,"B","CLEAR SUSPENSE FMS DOC ID#",.26)=""
^DD(344.01,"B","COMMENT",1.02)=""
^DD(344.01,"B","CONFIRMATION #",.02)=""
^DD(344.01,"B","CREDIT CARD #",.11)=""
^DD(344.01,"B","DATE OF CHECK",.1)=""
^DD(344.01,"B","DATE OF PAYMENT",.06)=""
^DD(344.01,"B","EDITED BY",.14)=""
^DD(344.01,"B","ENTERED BY",.12)=""
^DD(344.01,"B","ERA WORKLIST SEQUENCE",.27)=""
^DD(344.01,"B","PATIENT NAME OR BILL NUMBER",.09)=""
^DD(344.01,"B","PAYMENT AMOUNT",.04)=""
^DD(344.01,"B","PAYMENT TYPE",.24)=""
^DD(344.01,"B","POSTING ERROR",1.01)=""
^DD(344.01,"B","SEQUENCE NUMBER",.23)=""
^DD(344.01,"B","TRANSACTION",.01)=""
^DD(344.01,"B","UNAPPLIED DEPOSIT NUMBER",.25)=""
^DD(344.01,"GL",0,1,.01)=""
^DD(344.01,"GL",0,2,.02)=""
^DD(344.01,"GL",0,3,.03)=""
^DD(344.01,"GL",0,4,.04)=""
^DD(344.01,"GL",0,5,.05)=""
^DD(344.01,"GL",0,6,.06)=""
^DD(344.01,"GL",0,7,.07)=""
^DD(344.01,"GL",0,8,.08)=""
^DD(344.01,"GL",0,9,.09)=""
^DD(344.01,"GL",0,10,.1)=""
^DD(344.01,"GL",0,11,.11)=""
^DD(344.01,"GL",0,12,.12)=""
^DD(344.01,"GL",0,13,.13)=""
^DD(344.01,"GL",0,14,.14)=""
^DD(344.01,"GL",0,27,.27)=""
^DD(344.01,"GL",0,28,.28)=""
^DD(344.01,"GL",1,1,1.01)=""
^DD(344.01,"GL",1,2,1.02)=""
^DD(344.01,"GL",2,1,.21)=""
^DD(344.01,"GL",2,2,.22)=""
^DD(344.01,"GL",2,3,.23)=""
^DD(344.01,"GL",2,4,.24)=""
^DD(344.01,"GL",2,5,.25)=""
^DD(344.01,"GL",2,6,.26)=""
^DD(344.01,"IX",.01)=""
^DD(344.01,"IX",.03)=""
^DD(344.01,"IX",.09)=""
^DD(344.01,"RQ",.01)=""
^DD(344.01,"RQ",.03)=""
^DD(344.01,"RQ",.04)=""
^DD(344.01,"RQ",.06)=""
^DD(344.01,"RQ",.12)=""
^DD(344.1,0)="FIELD^^200^21"
^DD(344.1,0,"DDA")="N"
^DD(344.1,0,"DT")="2990107"
^DD(344.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(344.1,0,"ID","WR1")="W ""   "",$E($P(^(0),U,7),4,5)_""-""_$E($P(^(0),U,7),6,7)_""-""_$E($P(^(0),U,7),2,3)"
^DD(344.1,0,"ID","WR2")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(344.1,0,"ID","WR3")="W ""   $"",$J($P(^(0),U,4),1,2)"
^DD(344.1,0,"ID","WR4")="W ""  "",$P($P($P(^DD(344.1,.12,0),U,3,99),"";"",$P($G(^RCY(344.1,Y,0)),U,12)),"":"",2)"
^DD(344.1,0,"IX","AC",344.1,.12)=""
^DD(344.1,0,"IX","ADOC",344.1,200)=""
^DD(344.1,0,"IX","B",344.1,.01)=""
^DD(344.1,0,"NM","AR DEPOSIT")=" "
^DD(344.1,0,"PT",344,.06)=""
^DD(344.1,0,"PT",344.3,.03)=""
^DD(344.1,0,"VR")="4.5"
^DD(344.1,0,"VRPK")="PRCA"
^DD(344.1,.01,0)="TICKET #^RFX^^0;1^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(344.1,.01,1,0)="^.1^^-1"
^DD(344.1,.01,1,1,0)="344.1^B"
^DD(344.1,.01,1,1,1)="S ^RCY(344.1,""B"",$E(X,1,30),DA)="""""
^DD(344.1,.01,1,1,2)="K ^RCY(344.1,""B"",$E(X,1,30),DA)"
^DD(344.1,.01,3)="Answer must be 6 digits in length."
^DD(344.1,.01,7.5)="D LOOKUP^RCDPUDEP"
^DD(344.1,.01,21,0)="^^1^1^2950126^^"
^DD(344.1,.01,21,1,0)="Deposit ticket number as assigned by Dept. of Treasury."
^DD(344.1,.01,"DT")="2940722"
^DD(344.1,.02,0)="*DATE PRESENTED TO BANK^DX^^0;2^S %DT=""EX"" D ^%DT S X=Y,X1=DT,X2=-60 D C^%DTC S SX=X,X=Y K:Y<1!(Y<SX)!(Y>DT) X"
^DD(344.1,.02,3)=" "
^DD(344.1,.02,4)="W !,""Deposit CAN NOT be more than 60 days old or a Future date.  Please contact the Austin Finance Center if that is the actual date of the Deposit."""
^DD(344.1,.02,21,0)="^^1^1^2990507^^^^"
^DD(344.1,.02,21,1,0)="*****  This field is no longer used. *****"
^DD(344.1,.02,"DT")="2980805"
^DD(344.1,.03,0)="BANK DEPOSIT DATE^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y,X1=DT,X2=-60 D C^%DTC S SX=X,X=Y K:Y<1!(Y<SX)!(Y>DT) X"
^DD(344.1,.03,3)=" "
^DD(344.1,.03,4)="W !,""Deposit CAN NOT be more than 60 days old or a Future Date.  Please contact the Austin Finance Center if that is the actual date of the Deposit."""
^DD(344.1,.03,21,0)="^^1^1^2960819^^^^"
^DD(344.1,.03,21,1,0)="Date deposit was actually recorded by bank or financial institution."
^DD(344.1,.03,"DT")="2980805"
^DD(344.1,.04,0)="AMOUNT OF DEPOSIT^NJ11,2O^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999.99)!(X<0) X"
^DD(344.1,.04,2)="S Y(0)=Y S Y=""$""_$J(Y,1,2)"
^DD(344.1,.04,2.1)="S Y=""$""_$J(Y,1,2)"
^DD(344.1,.04,3)="Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits"
^DD(344.1,.04,21,0)="^.001^3^3^3000831^^^^"
^DD(344.1,.04,21,1,0)="This field is used for display purposes only.  It is the total dollars"
^DD(344.1,.04,21,2,0)="for all receipts under the deposit.  The field is populated when the"
^DD(344.1,.04,21,3,0)="deposit is confirmed."
^DD(344.1,.04,"DT")="3000831"
^DD(344.1,.05,0)="BANK TRACE NUMBER^F^^0;5^K:$L(X)>9!($L(X)<3) X"
^DD(344.1,.05,3)="Answer must be 3-9 characters in length."
^DD(344.1,.05,21,0)="^^1^1^2990507^^"
^DD(344.1,.05,21,1,0)="Number assigned by financial institution to track the deposit."
^DD(344.1,.05,"DT")="2940516"
^DD(344.1,.06,0)="OPENED BY^P200'^VA(200,^0;6^Q"
^DD(344.1,.06,21,0)="^^1^1^2941019^"
^DD(344.1,.06,21,1,0)="User that opened/created deposit ticket."
^DD(344.1,.06,"DT")="2980805"
^DD(344.1,.07,0)="DATE/TIME OPENED^DX^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1!(Y>(DT+1)) X"
^DD(344.1,.07,21,0)="^^2^2^2941115^"
^DD(344.1,.07,21,1,0)="This is the date the AR DEPOSIT ticket was created and made available"
^DD(344.1,.07,21,2,0)="for Receipts to be associated to this deposit ticket."
^DD(344.1,.07,"DT")="2980805"
^DD(344.1,.08,0)="*DEPOSITED BY^P200'^VA(200,^0;8^Q"
^DD(344.1,.08,21,0)="^^1^1^2990507^^^"
^DD(344.1,.08,21,1,0)="*****  This field is no longer used. *****"
^DD(344.1,.08,"DT")="2980805"
^DD(344.1,.09,0)="*DATE/TIME DEPOSITED^DX^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1!(Y>(DT+1)) X"
^DD(344.1,.09,21,0)="^^1^1^2990507^^^"
^DD(344.1,.09,21,1,0)="*****  This field is no longer used. *****"
^DD(344.1,.09,"DT")="2980805"
^DD(344.1,.1,0)="CONFIRMED BY^P200'^VA(200,^0;10^Q"
^DD(344.1,.1,21,0)="^^1^1^2941019^"
^DD(344.1,.1,21,1,0)="User which confirmed deposit was made by bank and transmits FMS document."
^DD(344.1,.1,"DT")="2980805"
^DD(344.1,.11,0)="DATE/TIME CONFIRMED^DX^^0;11^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1!(Y>(DT+1)) X"
^DD(344.1,.11,21,0)="^^1^1^2941019^"
^DD(344.1,.11,21,1,0)="System date/time deposit was confirmed."
^DD(344.1,.11,"DT")="2980805"
^DD(344.1,.12,0)="STATUS^S^1:OPEN;2:DEPOSITED(not used);3:CONFIRMED;4:PROCESSED(not used);5:VOID(not used);^0;12^Q"
^DD(344.1,.12,1,0)="^.1"
^DD(344.1,.12,1,1,0)="344.1^AC"
^DD(344.1,.12,1,1,1)="S ^RCY(344.1,""AC"",$E(X,1,30),DA)="""""
^DD(344.1,.12,1,1,2)="K ^RCY(344.1,""AC"",$E(X,1,30),DA)"
^DD(344.1,.12,1,1,"DT")="2970404"
^DD(344.1,.12,21,0)="3^^2^2^2990507^^"
^DD(344.1,.12,21,1,0)="This field stores the status of the deposit.  A deposit which is opened"
^DD(344.1,.12,21,2,0)="can have new receipts added to it.  A confirmed deposit cannot be changed."
^DD(344.1,.12,"DT")="2980805"
^DD(344.1,.13,0)="BANK^*P342.1'^RC(342.1,^0;13^S DIC(""S"")=""I $P(^(0),""""^"""",2)=9"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344.1,.13,12)="Select only Bank type Groups"
^DD(344.1,.13,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=9"""
^DD(344.1,.13,21,0)="^^1^1^2941019^"
^DD(344.1,.13,21,1,0)="Name of bank/financial institution that deposit was made to."
^DD(344.1,.13,"DT")="2940517"
^DD(344.1,.14,0)="AGENCY LOCATION CODE^F^^0;14^K:$L(X)>10!($L(X)<3) X"
^DD(344.1,.14,3)="Answer must be 3-10 characters in length."
^DD(344.1,.14,21,0)="^^1^1^2941019^"
^DD(344.1,.14,21,1,0)="ALC assigned by Financial Management."
^DD(344.1,.14,"DT")="2940517"
^DD(344.1,.15,0)="*START DATE/TIME^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.1,.15,21,0)="^^1^1^2990507^^^"
^DD(344.1,.15,21,1,0)="*****  This field is no longer used. *****"
^DD(344.1,.15,"DT")="2980728"
^DD(344.1,.16,0)="*END DATE/TIME^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.1,.16,3)=" "
^DD(344.1,.16,21,0)="^^1^1^2990507^^^"
^DD(344.1,.16,21,1,0)="*****  This field is no longer used. *****"
^DD(344.1,.16,"DT")="2980728"
^DD(344.1,.17,0)="AGENCY TITLE^*P342.1'^RC(342.1,^0;17^S DIC(""S"")=""I $P(^(0),""""^"""",2)=10"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344.1,.17,12)="Select only Agency Deposit Titles"
^DD(344.1,.17,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=10"""
^DD(344.1,.17,21,0)="^^1^1^2990507^^"
^DD(344.1,.17,21,1,0)="Pointer name of the AR group established for deposits."
^DD(344.1,.17,"DT")="2940722"
^DD(344.1,.18,0)="TOTAL AMOUNT OF RECEIPTS^CJ8,2^^ ; ^S X=$$RECTOTAL^RCDPURED(D0)"
^DD(344.1,.18,9)="^"
^DD(344.1,.18,9.01)=""
^DD(344.1,.18,9.1)="S X=$$RECTOTAL^RCDPURED(D0)"
^DD(344.1,.18,21,0)="^^1^1^2990510^^"
^DD(344.1,.18,21,1,0)="Total amount of all receipts associated with a deposit."
^DD(344.1,.18,"DT")="2990510"
^DD(344.1,1,0)="COMMENTS^344.11^^1;0"
^DD(344.1,1,3)="Answer must be 3-60 characters in length."
^DD(344.1,1,21,0)="^^4^4^2941115^^"
^DD(344.1,1,21,1,0)="This field stores comments by the user that better described the"
^DD(344.1,1,21,2,0)="deposit ticket.  For example, the appropriation and dollar amount"
^DD(344.1,1,21,3,0)="deposited to each appropriation could be documented within this"
^DD(344.1,1,21,4,0)="word-processing field."
^DD(344.1,1,"DT")="2931029"
^DD(344.1,100,0)="TOTAL RECEIPTS^CJ8,0^^ ; ^S X=$$RECCOUNT^RCDPURED(D0)"
^DD(344.1,100,9)="^"
^DD(344.1,100,9.01)=""
^DD(344.1,100,9.1)="S X=$$RECCOUNT^RCDPURED(D0)"
^DD(344.1,100,21,0)="^^1^1^2990510^^"
^DD(344.1,100,21,1,0)="Total number of receipts associated with a deposit."
^DD(344.1,100,"DT")="2990510"
^DD(344.1,200,0)="*FMS DOCUMENT NUMBER^F^^2;1^K:$L(X)>20!($L(X)<1) X"
^DD(344.1,200,1,0)="^.1"
^DD(344.1,200,1,1,0)="344.1^ADOC"
^DD(344.1,200,1,1,1)="S ^RCY(344.1,""ADOC"",$E(X,1,30),DA)="""""
^DD(344.1,200,1,1,2)="K ^RCY(344.1,""ADOC"",$E(X,1,30),DA)"
^DD(344.1,200,1,1,"%D",0)="^^1^1^2980310^"
^DD(344.1,200,1,1,"%D",1,0)="This cross reference is used for the Deposit Reconciliation Report."
^DD(344.1,200,1,1,"DT")="2980310"
^DD(344.1,200,3)="Answer must be 1-20 characters in length."
^DD(344.1,200,21,0)="^^1^1^2990507^^^"
^DD(344.1,200,21,1,0)="*****  This field is no longer used. *****"
^DD(344.1,200,"DT")="2980728"
^DD(344.1,"B","*DATE PRESENTED TO BANK",.02)=""
^DD(344.1,"B","*DATE/TIME DEPOSITED",.09)=""
^DD(344.1,"B","*DEPOSITED BY",.08)=""
^DD(344.1,"B","*END DATE/TIME",.16)=""
^DD(344.1,"B","*FMS DOCUMENT NUMBER",200)=""
^DD(344.1,"B","*START DATE/TIME",.15)=""
^DD(344.1,"B","AGENCY LOCATION CODE",.14)=""
^DD(344.1,"B","AGENCY TITLE",.17)=""
^DD(344.1,"B","AMOUNT OF DEPOSIT",.04)=""
^DD(344.1,"B","BANK",.13)=""
^DD(344.1,"B","BANK DEPOSIT DATE",.03)=""
^DD(344.1,"B","BANK TRACE NUMBER",.05)=""
^DD(344.1,"B","COMMENTS",1)=""
^DD(344.1,"B","CONFIRMED BY",.1)=""
^DD(344.1,"B","DATE/TIME CONFIRMED",.11)=""
^DD(344.1,"B","DATE/TIME OPENED",.07)=""
^DD(344.1,"B","OPENED BY",.06)=""
^DD(344.1,"B","STATUS",.12)=""
^DD(344.1,"B","TICKET #",.01)=""
^DD(344.1,"B","TOTAL AMOUNT OF RECEIPTS",.18)=""
^DD(344.1,"B","TOTAL RECEIPTS",100)=""
^DD(344.1,"GL",0,1,.01)=""
^DD(344.1,"GL",0,2,.02)=""
^DD(344.1,"GL",0,3,.03)=""
^DD(344.1,"GL",0,4,.04)=""
^DD(344.1,"GL",0,5,.05)=""
^DD(344.1,"GL",0,6,.06)=""
^DD(344.1,"GL",0,7,.07)=""
^DD(344.1,"GL",0,8,.08)=""
^DD(344.1,"GL",0,9,.09)=""
^DD(344.1,"GL",0,10,.1)=""
^DD(344.1,"GL",0,11,.11)=""
^DD(344.1,"GL",0,12,.12)=""
^DD(344.1,"GL",0,13,.13)=""
^DD(344.1,"GL",0,14,.14)=""
^DD(344.1,"GL",0,15,.15)=""
^DD(344.1,"GL",0,16,.16)=""
^DD(344.1,"GL",0,17,.17)=""
^DD(344.1,"GL",1,0,1)=""
^DD(344.1,"GL",2,1,200)=""
^DD(344.1,"IX",.01)=""
^DD(344.1,"IX",.12)=""
^DD(344.1,"IX",200)=""
^DD(344.1,"RQ",.01)=""
^DD(344.1,"SB",344.11,1)=""
^DD(344.11,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(344.11,0,"DT")="2940516"
^DD(344.11,0,"NM","COMMENTS")=" "
^DD(344.11,0,"UP")="344.1"
^DD(344.11,.01,0)="COMMENTS^W^^0;1^Q"
^DD(344.11,.01,21,0)="^^4^4^2941115^"
^DD(344.11,.01,21,1,0)="This field stores comments by the user that better described the"
^DD(344.11,.01,21,2,0)="deposit ticket.  For example, the appropriation and dollar amount"
^DD(344.11,.01,21,3,0)="deposited to each appropriation could be documented within this"
^DD(344.11,.01,21,4,0)="word-processing field."
^DD(344.11,.01,"DT")="2940516"
^DD(344.11,"B","COMMENTS",.01)=""
^DD(344.11,"GL",0,1,.01)=""
^DD(344.2,0)="FIELD^^2^7"
^DD(344.2,0,"DDA")="N"
^DD(344.2,0,"DT")="2981208"
^DD(344.2,0,"IX","B",344.2,.01)=""
^DD(344.2,0,"NM","AR PAYMENT TRANSACTIONS")=""
^DD(344.2,0,"VR")="4.5"
^DD(344.2,0,"VRPK")="PRCA"
^DD(344.2,.01,0)="TRANSMISSION DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $G(X) S DINUM=X"
^DD(344.2,.01,1,0)="^.1"
^DD(344.2,.01,1,1,0)="344.2^B"
^DD(344.2,.01,1,1,1)="S ^RCY(344.2,""B"",$E(X,1,30),DA)="""""
^DD(344.2,.01,1,1,2)="K ^RCY(344.2,""B"",$E(X,1,30),DA)"
^DD(344.2,.01,21,0)="^^3^3^2980813^"
^DD(344.2,.01,21,1,0)="This field is used to store the transmission date for payments.  Each"
^DD(344.2,.01,21,2,0)="day payments are sent to AR for processing.  Once all payments have"
^DD(344.2,.01,21,3,0)="been received for a day, the payments are automatically processed."
^DD(344.2,.01,"DT")="2980813"
^DD(344.2,.02,0)="TOTAL SEQUENCES^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(344.2,.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(344.2,.02,21,0)="^^2^2^2980813^"
^DD(344.2,.02,21,1,0)="This field is used to store the total number of sequences for a"
^DD(344.2,.02,21,2,0)="transmission date."
^DD(344.2,.02,"DT")="2980813"
^DD(344.2,.03,0)="TOTAL DOLLARS^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(344.2,.03,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(344.2,.03,21,0)="^^2^2^2980813^"
^DD(344.2,.03,21,1,0)="This field stores the expected total dollars for all sequences received"
^DD(344.2,.03,21,2,0)="for a transmission date."
^DD(344.2,.03,"DT")="2980813"
^DD(344.2,.04,0)="STATUS^S^r:RECEIVING;p:PROCESSING;e:ERROR;^0;4^Q"
^DD(344.2,.04,21,0)="^^5^5^2990507^^"
^DD(344.2,.04,21,1,0)="This field is used to store the status of the transmission."
^DD(344.2,.04,21,2,0)=" "
^DD(344.2,.04,21,3,0)="  Receiving: the transmission is being received."
^DD(344.2,.04,21,4,0)="  Processing: the transmission has been received and is being processed."
^DD(344.2,.04,21,5,0)="  Error: there was an error in receiving or processing the transmission."
^DD(344.2,.04,"DT")="2980826"
^DD(344.2,.05,0)="STATUS DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.2,.05,21,0)="^^3^3^2981208^"
^DD(344.2,.05,21,1,0)="This field is used to stamp the date the status was updated.  This"
^DD(344.2,.05,21,2,0)="field is used by the software to prevent prior transmission data"
^DD(344.2,.05,21,3,0)="from being deleted before being completely received or processed."
^DD(344.2,.05,"DT")="2981208"
^DD(344.2,1,0)="SEQUENCE^344.21^^1;0"
^DD(344.2,1,21,0)="^^1^1^2990507^"
^DD(344.2,1,21,1,0)="This multiple stores all the sequences for a transmission."
^DD(344.2,2,0)="ERROR MESSAGES^344.22^^2;0"
^DD(344.2,"B","ERROR MESSAGES",2)=""
^DD(344.2,"B","SEQUENCE",1)=""
^DD(344.2,"B","STATUS",.04)=""
^DD(344.2,"B","STATUS DATE",.05)=""
^DD(344.2,"B","TOTAL DOLLARS",.03)=""
^DD(344.2,"B","TOTAL SEQUENCES",.02)=""
^DD(344.2,"B","TRANSMISSION DATE",.01)=""
^DD(344.2,"GL",0,1,.01)=""
^DD(344.2,"GL",0,2,.02)=""
^DD(344.2,"GL",0,3,.03)=""
^DD(344.2,"GL",0,4,.04)=""
^DD(344.2,"GL",0,5,.05)=""
^DD(344.2,"GL",1,0,1)=""
^DD(344.2,"GL",2,0,2)=""
^DD(344.2,"IX",.01)=""
^DD(344.2,"RQ",.01)=""
^DD(344.2,"SB",344.21,1)=""
^DD(344.2,"SB",344.22,2)=""
^DD(344.21,0)="SEQUENCE SUB-FIELD^^1^6"
^DD(344.21,0,"DT")="2980826"
^DD(344.21,0,"IX","B",344.21,.01)=""
^DD(344.21,0,"NM","SEQUENCE")=""
^DD(344.21,0,"UP")="344.2"
^DD(344.21,.01,0)="SEQUENCE^MNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=+X"
^DD(344.21,.01,1,0)="^.1"
^DD(344.21,.01,1,1,0)="344.21^B"
^DD(344.21,.01,1,1,1)="S ^RCY(344.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(344.21,.01,1,1,2)="K ^RCY(344.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(344.21,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(344.21,.01,21,0)="^^1^1^2980820^"
^DD(344.21,.01,21,1,0)="This field store the transmission sequence number."
^DD(344.21,.01,"DT")="2980820"
^DD(344.21,.02,0)="TOTAL TRANSACTIONS IN SEQUENCE^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(344.21,.02,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(344.21,.02,21,0)="^^1^1^2980820^"
^DD(344.21,.02,21,1,0)="This field stores the total transactions for the sequence."
^DD(344.21,.02,"DT")="2980820"
^DD(344.21,.03,0)="TOTAL DOLLARS FOR SEQUENCE^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(344.21,.03,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(344.21,.03,21,0)="^^1^1^2980820^"
^DD(344.21,.03,21,1,0)="This field stores the total dollars for the sequence."
^DD(344.21,.03,"DT")="2980820"
^DD(344.21,.04,0)="MAIL MESSAGE NUMBER^NJ12,0^^0;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(344.21,.04,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(344.21,.04,21,0)="^^2^2^2980826^"
^DD(344.21,.04,21,1,0)="This field stores the mail message number with the original data for"
^DD(344.21,.04,21,2,0)="the transmission sequence."
^DD(344.21,.04,"DT")="2980826"
^DD(344.21,.05,0)="CHECKSUM^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(344.21,.05,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(344.21,.05,21,0)="^^1^1^3000209^^"
^DD(344.21,.05,21,1,0)="This field is used to store the checksum of the sequence."
^DD(344.21,.05,"DT")="3000502"
^DD(344.21,1,0)="DATA^344.211^^1;0"
^DD(344.21,1,21,0)="^^1^1^2990507^"
^DD(344.21,1,21,1,0)="This word processing field stores the actual data for the sequence."
^DD(344.21,"B","CHECKSUM",.05)=""
^DD(344.21,"B","DATA",1)=""
^DD(344.21,"B","MAIL MESSAGE NUMBER",.04)=""
^DD(344.21,"B","SEQUENCE",.01)=""
^DD(344.21,"B","TOTAL DOLLARS FOR SEQUENCE",.03)=""
^DD(344.21,"B","TOTAL TRANSACTIONS IN SEQUENCE",.02)=""
^DD(344.21,"GL",0,1,.01)=""
^DD(344.21,"GL",0,2,.02)=""
^DD(344.21,"GL",0,3,.03)=""
^DD(344.21,"GL",0,4,.04)=""
^DD(344.21,"GL",0,5,.05)=""
^DD(344.21,"GL",1,0,1)=""
^DD(344.21,"IX",.01)=""
^DD(344.21,"SB",344.211,1)=""
^DD(344.211,0)="DATA SUB-FIELD^^.01^1"
^DD(344.211,0,"DT")="2980820"
^DD(344.211,0,"NM","DATA")=""
^DD(344.211,0,"UP")="344.21"
^DD(344.211,.01,0)="DATA^WL^^0;1^Q"
^DD(344.211,.01,21,0)="^^1^1^2980820^"
^DD(344.211,.01,21,1,0)="This field stores the actual payment data to process."
^DD(344.211,.01,"DT")="2980820"
^DD(344.211,"B","DATA",.01)=""
^DD(344.211,"GL",0,1,.01)=""
^DD(344.22,0)="ERROR MESSAGES SUB-FIELD^^.01^1"
^DD(344.22,0,"DT")="2980831"
^DD(344.22,0,"NM","ERROR MESSAGES")=""
^DD(344.22,0,"UP")="344.2"
^DD(344.22,.01,0)="ERROR MESSAGES^WL^^0;1^Q"
^DD(344.22,.01,21,0)="^^2^2^2980831^"
^DD(344.22,.01,21,1,0)="This field is used to store all error messages encountered for the"
^DD(344.22,.01,21,2,0)="transmission."
^DD(344.22,.01,"DT")="2980831"
^DD(344.22,"B","ERROR MESSAGES",.01)=""
^DD(344.22,"GL",0,1,.01)=""
^DD(344.3,0)="FIELD^^2^14"
^DD(344.3,0,"DDA")="N"
^DD(344.3,0,"DT")="3030319"
^DD(344.3,0,"ID",.06)="W ""   "",$P(^(0),U,6)"
^DD(344.3,0,"ID",.07)="W ""   "",$$FMTE^DILIBF($P(^(0),U,7),6)"
^DD(344.3,0,"IX","AD",344.3,.06)=""
^DD(344.3,0,"IX","ALOCK",344.3,.01)=""
^DD(344.3,0,"IX","ARDEP",344.3,.03)=""
^DD(344.3,0,"IX","ARECDT",344.3,.13)=""
^DD(344.3,0,"IX","B",344.3,.01)=""
^DD(344.3,0,"IX","C",344.3,.06)=""
^DD(344.3,0,"NM","EDI LOCKBOX DEPOSIT")=""
^DD(344.3,0,"PT",344.31,.01)=""
^DD(344.3,0,"VR")="4.5"
^DD(344.3,0,"VRPK")="PRCA"
^DD(344.3,.01,0)="NUMBER^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(344.3,.01,1,0)="^.1"
^DD(344.3,.01,1,1,0)="344.3^B"
^DD(344.3,.01,1,1,1)="S ^RCY(344.3,""B"",$E(X,1,30),DA)="""""
^DD(344.3,.01,1,1,2)="K ^RCY(344.3,""B"",$E(X,1,30),DA)"
^DD(344.3,.01,1,2,0)="344.3^ALOCK^MUMPS"
^DD(344.3,.01,1,2,1)="I '$D(^RCY(344.3,""ALOCK"")) S ^RCY(344.3,""ALOCK"")="""""
^DD(344.3,.01,1,2,2)="Q"
^DD(344.3,.01,1,2,3)="Do not delete"
^DD(344.3,.01,1,2,"%D",0)="^^3^3^3021106^"
^DD(344.3,.01,1,2,"%D",1,0)="This xref is set to allow a lock to be placed on the file so only one job"
^DD(344.3,.01,1,2,"%D",2,0)="that tries to match EFTs to ERAs is run at a time."
^DD(344.3,.01,1,2,"%D",3,0)="This xref is set the first time an entry is added to the file."
^DD(344.3,.01,1,2,"DT")="3021106"
^DD(344.3,.01,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(344.3,.01,21,0)="^.001^3^3^3021206^^^^"
^DD(344.3,.01,21,1,0)="This field contains a sequential number generated at the time a record"
^DD(344.3,.01,21,2,0)="is stored in the file.  It only serves to create an entry in the file"
^DD(344.3,.01,21,3,0)="and has no other special meaning."
^DD(344.3,.01,"DT")="3040120"
^DD(344.3,.02,0)="FILE DATE/TIME^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.3,.02,3)="Enter the date/time this record was reported filed by the EFT transaction."
^DD(344.3,.02,21,0)="^.001^1^1^3030127^^^^"
^DD(344.3,.02,21,1,0)="This field is used to store the file date/time for payments."
^DD(344.3,.02,"DT")="3020606"
^DD(344.3,.03,0)="AR DEPOSIT RECORD^*P344.1'X^RCY(344.1,^0;3^S DIC(""S"")=""I ($E($P(^(0),U),1,3)=""""469"""")!($E($P(^(0),U),1,3)=""""569"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344.3,.03,1,0)="^.1"
^DD(344.3,.03,1,1,0)="344.3^ARDEP"
^DD(344.3,.03,1,1,1)="S ^RCY(344.3,""ARDEP"",$E(X,1,30),DA)="""""
^DD(344.3,.03,1,1,2)="K ^RCY(344.3,""ARDEP"",$E(X,1,30),DA)"
^DD(344.3,.03,1,1,3)="Do not delete"
^DD(344.3,.03,1,1,"DT")="3030123"
^DD(344.3,.03,3)="Enter the AR Deposit ticket # that was created by this EFT."
^DD(344.3,.03,12)="Deposit number must begin with 469 or 569"
^DD(344.3,.03,12.1)="S DIC(""S"")=""I ($E($P(^(0),U),1,3)=""""469"""")!($E($P(^(0),U),1,3)=""""569"""")"""
^DD(344.3,.03,21,0)="^^2^2^3020930^"
^DD(344.3,.03,21,1,0)="This is the reference to the deposit ticket in AR that was created by"
^DD(344.3,.03,21,2,0)="this EFT."
^DD(344.3,.03,"DT")="3071016"
^DD(344.3,.05,0)="MAIL MESSAGE^NJ15,0^^0;5^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(344.3,.05,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(344.3,.05,21,0)="^^1^1^3030127^"
^DD(344.3,.05,21,1,0)="This is the number of the mail message in which this EFT was received."
^DD(344.3,.05,"DT")="3030127"
^DD(344.3,.06,0)="DEPOSIT NUMBER^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(344.3,.06,1,0)="^.1"
^DD(344.3,.06,1,1,0)="344.3^C"
^DD(344.3,.06,1,1,1)="S ^RCY(344.3,""C"",$E(X,1,30),DA)="""""
^DD(344.3,.06,1,1,2)="K ^RCY(344.3,""C"",$E(X,1,30),DA)"
^DD(344.3,.06,1,1,3)="Do not delete"
^DD(344.3,.06,1,1,"DT")="3030127"
^DD(344.3,.06,1,2,0)="344.3^AD^MUMPS"
^DD(344.3,.06,1,2,1)="N Z,Z0 S Z=0 F  S Z=$O(^RCY(344.3,DA,1,Z)) Q:'Z  S Z0=$P($G(^(Z,0)),U,3) I Z0'="""" S ^RCY(344.3,""AD"",$E(X,1,30),$E(Z0,1,30),DA,Z)="""""
^DD(344.3,.06,1,2,2)="N Z,Z0 S Z=0 F  S Z=$O(RCY(344.3,DA,1,Z)) Q:'Z  S Z0=$P($G(^(Z,0)),U,3) I Z0'="""" K ^RCY(344.3,""AD"",$E(X,1,30),$E(Z0,1,30),DA,Z)"
^DD(344.3,.06,1,2,3)="Do not delete"
^DD(344.3,.06,1,2,"%D",0)="^.101^1^1^3030127^^"
^DD(344.3,.06,1,2,"%D",1,0)="Xref by deposit number at the top level and payer ID at the 344.31 level"
^DD(344.3,.06,1,2,"DT")="3030127"
^DD(344.3,.06,3)="Answer must be 1-10 characters in length."
^DD(344.3,.06,21,0)="^^1^1^3020406^"
^DD(344.3,.06,21,1,0)="This is the deposit number assigned by the banking institution for this payment."
^DD(344.3,.06,"DT")="3030319"
^DD(344.3,.07,0)="DEPOSIT DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(344.3,.07,21,0)="^^1^1^3020406^"
^DD(344.3,.07,21,1,0)="This is the deposit date assigned by the banking institution for this payment."
^DD(344.3,.07,"DT")="3020606"
^DD(344.3,.08,0)="TOTAL DEPOSIT AMOUNT^NJ18,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999999)!(X<0) X"
^DD(344.3,.08,3)="Type a Dollar Amount between 0 and 999999999999999, 2 Decimal Digits"
^DD(344.3,.08,21,0)="^.001^1^1^3021001^^"
^DD(344.3,.08,21,1,0)="This is the amount of the deposit into the banking institution."
^DD(344.3,.08,"DT")="3021104"
^DD(344.3,.09,0)="EFT CHECKSUM^NJ5,0^^0;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(344.3,.09,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(344.3,.09,21,0)="^^3^3^3030127^"
^DD(344.3,.09,21,1,0)="This is the value of the checksum for the detail records in this record."
^DD(344.3,.09,21,2,0)="It is used to ensure the records are not changed after the data has been"
^DD(344.3,.09,21,3,0)="stored and before it has been recorded in AR."
^DD(344.3,.09,"DT")="3030127"
^DD(344.3,.1,0)="CHECKSUM ERROR^S^0:NO ERROR;1:CHECKSUM ERROR EXISTS;^0;10^Q"
^DD(344.3,.1,3)="Enter a 1 if a checksum error exists."
^DD(344.3,.1,21,0)="^^2^2^3030127^"
^DD(344.3,.1,21,1,0)="This is the indicator that says the checksum stored does not match the"
^DD(344.3,.1,21,2,0)="calculated checksum for this record."
^DD(344.3,.1,"DT")="3030127"
^DD(344.3,.11,0)="DATE POSTED^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.3,.11,3)="Enter the date the funds for this EFT were posted."
^DD(344.3,.11,21,0)="^^1^1^3030127^"
^DD(344.3,.11,21,1,0)="This is the date the funds for this EFT were posted."
^DD(344.3,.11,"DT")="3030127"
^DD(344.3,.12,0)="AMOUNT POSTED TO DEPOSIT^NJ15,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(344.3,.12,1,0)="^.1^^0"
^DD(344.3,.12,3)="Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits"
^DD(344.3,.12,21,0)="^.001^2^2^3030128^^"
^DD(344.3,.12,21,1,0)="This is the amount of money that was posted as a deposit as a result"
^DD(344.3,.12,21,2,0)="of this EFT."
^DD(344.3,.12,"DT")="3030128"
^DD(344.3,.13,0)="DATE/TIME ADDED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.3,.13,1,0)="^.1"
^DD(344.3,.13,1,1,0)="344.3^ARECDT"
^DD(344.3,.13,1,1,1)="S ^RCY(344.3,""ARECDT"",$E(X,1,30),DA)="""""
^DD(344.3,.13,1,1,2)="K ^RCY(344.3,""ARECDT"",$E(X,1,30),DA)"
^DD(344.3,.13,1,1,3)="Do not delete"
^DD(344.3,.13,1,1,"DT")="3030129"
^DD(344.3,.13,3)="Enter the date and time this record was stored in VistA"
^DD(344.3,.13,21,0)="^^1^1^3030127^"
^DD(344.3,.13,21,1,0)="This is the date and time this record was last stored in VistA."
^DD(344.3,.13,"DT")="3030129"
^DD(344.3,.14,0)="TOTAL AMOUNT MATCHED^NJ15,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(344.3,.14,3)="Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits"
^DD(344.3,.14,5,1,0)="344.31^.08^2"
^DD(344.3,.14,21,0)="^^2^2^3030128^"
^DD(344.3,.14,21,1,0)="This is the total amount of dollars that have been matched from the EFT"
^DD(344.3,.14,21,2,0)="detail to ERAs or paper EOBs."
^DD(344.3,.14,"DT")="3030128"
^DD(344.3,2,0)="ERROR MESSAGES^344.32^^2;0"
^DD(344.3,2,21,0)="^^2^2^3021001^"
^DD(344.3,2,21,1,0)="This field stores any error messages that report problems with the "
^DD(344.3,2,21,2,0)="incoming transmission."
^DD(344.3,"B","AMOUNT POSTED TO DEPOSIT",.12)=""
^DD(344.3,"B","AR DEPOSIT RECORD",.03)=""
^DD(344.3,"B","CHECKSUM ERROR",.1)=""
^DD(344.3,"B","DATE POSTED",.11)=""
^DD(344.3,"B","DATE/TIME ADDED",.13)=""
^DD(344.3,"B","DEPOSIT DATE",.07)=""
^DD(344.3,"B","DEPOSIT NUMBER",.06)=""
^DD(344.3,"B","EFT CHECKSUM",.09)=""
^DD(344.3,"B","ERROR MESSAGES",2)=""
^DD(344.3,"B","FILE DATE/TIME",.02)=""
^DD(344.3,"B","MAIL MESSAGE",.05)=""
^DD(344.3,"B","NUMBER",.01)=""
^DD(344.3,"B","TOTAL AMOUNT MATCHED",.14)=""
^DD(344.3,"B","TOTAL DEPOSIT AMOUNT",.08)=""
^DD(344.3,"GL",0,1,.01)=""
^DD(344.3,"GL",0,2,.02)=""
^DD(344.3,"GL",0,3,.03)=""
^DD(344.3,"GL",0,5,.05)=""
^DD(344.3,"GL",0,6,.06)=""
^DD(344.3,"GL",0,7,.07)=""
^DD(344.3,"GL",0,8,.08)=""
^DD(344.3,"GL",0,9,.09)=""
^DD(344.3,"GL",0,10,.1)=""
^DD(344.3,"GL",0,11,.11)=""
^DD(344.3,"GL",0,12,.12)=""
^DD(344.3,"GL",0,13,.13)=""
^DD(344.3,"GL",0,14,.14)=""
^DD(344.3,"GL",2,0,2)=""
^DD(344.3,"IX",.01)=""
^DD(344.3,"IX",.03)=""
^DD(344.3,"IX",.06)=""
^DD(344.3,"IX",.13)=""
^DD(344.3,"RQ",.01)=""
^DD(344.3,"SB",344.32,2)=""
^DD(344.31,0)="FIELD^^2^17"
^DD(344.31,0,"DT")="3030512"
^DD(344.31,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(344.31,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(344.31,0,"ID",.07)="W ""   "",$P(^(0),U,7)"
^DD(344.31,0,"IX","AERA",344.31,.1)=""
^DD(344.31,0,"IX","AMATCH",344.31,.08)=""
^DD(344.31,0,"IX","B",344.31,.01)=""
^DD(344.31,0,"IX","C",344.31,.02)=""
^DD(344.31,0,"IX","D",344.31,.04)=""
^DD(344.31,0,"NM","EDI THIRD PARTY EFT DETAIL")=""
^DD(344.31,0,"PT",344,.17)=""
^DD(344.31,0,"VR")="4.5"
^DD(344.31,0,"VRPK")="PRCA"
^DD(344.31,.01,0)="EFT TRANSACTION^RP344.3'^RCY(344.3,^0;1^Q"
^DD(344.31,.01,1,0)="^.1"
^DD(344.31,.01,1,1,0)="344.31^B"
^DD(344.31,.01,1,1,1)="S ^RCY(344.31,""B"",$E(X,1,30),DA)="""""
^DD(344.31,.01,1,1,2)="K ^RCY(344.31,""B"",$E(X,1,30),DA)"
^DD(344.31,.01,3)="Enter the reference to the eFT transaction that contains this EFT record."
^DD(344.31,.01,21,0)="^^1^1^3030128^"
^DD(344.31,.01,21,1,0)="This is the pointer to the EFT totals record that this EFT was received in."
^DD(344.31,.01,"DT")="3030128"
^DD(344.31,.02,0)="PAYER NAME^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(344.31,.02,1,0)="^.1"
^DD(344.31,.02,1,1,0)="344.31^C"
^DD(344.31,.02,1,1,1)="S ^RCY(344.31,""C"",$E(X,1,30),DA)="""""
^DD(344.31,.02,1,1,2)="K ^RCY(344.31,""C"",$E(X,1,30),DA)"
^DD(344.31,.02,1,1,3)="Do not delete"
^DD(344.31,.02,1,1,"DT")="3030129"
^DD(344.31,.02,3)="Answer must be 1-35 characters in length."
^DD(344.31,.02,21,0)="^^1^1^3030128^"
^DD(344.31,.02,21,1,0)="This is the insurance co name as reported for the payment on the EFT."
^DD(344.31,.02,"DT")="3030129"
^DD(344.31,.03,0)="PAYER ID^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(344.31,.03,3)="Answer must be 1-20 characters in length."
^DD(344.31,.03,21,0)="^^1^1^3030128^"
^DD(344.31,.03,21,1,0)="This is the payer id as reported for the payment on the EFT."
^DD(344.31,.03,"DT")="3030128"
^DD(344.31,.04,0)="TRACE #^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(344.31,.04,1,0)="^.1"
^DD(344.31,.04,1,1,0)="344.31^D"
^DD(344.31,.04,1,1,1)="S ^RCY(344.31,""D"",$E(X,1,30),DA)="""""
^DD(344.31,.04,1,1,2)="K ^RCY(344.31,""D"",$E(X,1,30),DA)"
^DD(344.31,.04,1,1,3)="do not delete"
^DD(344.31,.04,1,1,"DT")="3030129"
^DD(344.31,.04,3)="Answer must be 3-30 characters in length."
^DD(344.31,.04,21,0)="^^2^2^3030128^"
^DD(344.31,.04,21,1,0)="This is the bank trace number assigned to the electronic funds transfer"
^DD(344.31,.04,21,2,0)="(EFT) by the payer's bank."
^DD(344.31,.04,"DT")="3030129"
^DD(344.31,.05,0)="PROVIDER TAX ID SENT^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(344.31,.05,3)="Answer must be 1-15 characters in length."
^DD(344.31,.05,21,0)="^^4^4^3030128^"
^DD(344.31,.05,21,1,0)="This is the tax ID of the Medical Center.  The EFT's are routed to the"
^DD(344.31,.05,21,2,0)="correct site based on this tax ID.  If the 'TAX ID CORRECTED' is 'Y',"
^DD(344.31,.05,21,3,0)="this field will contain the incorrect tax ID as received by the FSC in"
^DD(344.31,.05,21,4,0)="Austin."
^DD(344.31,.05,"DT")="3030128"
^DD(344.31,.06,0)="TAX ID CORRECTION^S^0:NO CHANGE;E:CHANGE BY EPHRA;C:CHANGE BY CLAIM DATA;^0;6^Q"
^DD(344.31,.06,3)="If the tax id was corrected, enter the entity who corrected it."
^DD(344.31,.06,21,0)="^^1^1^3030128^"
^DD(344.31,.06,21,1,0)="This field indicates if the tax id was corrected and if so, who did it."
^DD(344.31,.06,"DT")="3030128"
^DD(344.31,.07,0)="AMOUNT OF PAYMENT^NJ18,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999999)!(X<0) X"
^DD(344.31,.07,3)="Type a Dollar Amount between 0 and 999999999999999, 2 Decimal Digits"
^DD(344.31,.07,21,0)="^^2^2^3030128^"
^DD(344.31,.07,21,1,0)="This is the amount of the deposit made by the payer into the banking"
^DD(344.31,.07,21,2,0)="institution."
^DD(344.31,.07,"DT")="3030128"
^DD(344.31,.08,0)="MATCH STATUS^S^-1:MATCHED WITH ERRORS;0:UNMATCHED;1:MATCHED;2:PAPER EOB MATCH;^0;8^Q"
^DD(344.31,.08,1,0)="^.1"
^DD(344.31,.08,1,1,0)="344.31^AMATCH"
^DD(344.31,.08,1,1,1)="S ^RCY(344.31,""AMATCH"",$E(X,1,30),DA)="""""
^DD(344.31,.08,1,1,2)="K ^RCY(344.31,""AMATCH"",$E(X,1,30),DA)"
^DD(344.31,.08,1,1,3)="Do not delete"
^DD(344.31,.08,1,1,"DT")="3030128"
^DD(344.31,.08,1,2,0)="^^TRIGGER^344.3^.14"
^DD(344.31,.08,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV X ^DD(344.31,.08,1,2,89.2) S X=$P(Y(101),U,14) S D0=I(0,0) S DIU=X K Y X ^DD(344.31,.08,1,2,1.1) X ^DD(344.31,.08,1,2,1.4)"
^DD(344.31,.08,1,2,1.1)="S X=DIV S Y(1)=$S($D(^RCY(344.31,D0,0)):^(0),1:"""") S X=DIU+$P(Y(1),U,7)"
^DD(344.31,.08,1,2,1.4)="S DIH=$G(^RCY(344.3,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,14)=DIV,DIH=344.3,DIG=.14 D ^DICR"
^DD(344.31,.08,1,2,2)="X ^DD(344.31,.08,1,2,2.3) I X S X=DIV X ^DD(344.31,.08,1,2,89.2) S X=$P(Y(101),U,14) S D0=I(0,0) S DIU=X K Y X ^DD(344.31,.08,1,2,2.1) X ^DD(344.31,.08,1,2,2.4)"
^DD(344.31,.08,1,2,2.1)="S X=DIV S Y(1)=$S($D(^RCY(344.31,D0,0)):^(0),1:"""") S X=DIU-$P(Y(1),U,7)"
^DD(344.31,.08,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(344.31,.08,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59))'[""UNMATCH"""
^DD(344.31,.08,1,2,2.4)="S DIH=$G(^RCY(344.3,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,14)=DIV,DIH=344.3,DIG=.14 D ^DICR"
^DD(344.31,.08,1,2,89.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^RCY(344.31,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^RCY(344.3,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^RCY(344.3,D0,0)):^(0),1:"""")"
^DD(344.31,.08,1,2,"CREATE CONDITION")="INTERNAL(MATCH STATUS)"
^DD(344.31,.08,1,2,"CREATE VALUE")="TOTAL AMOUNT MATCHED+AMOUNT OF PAYMENT"
^DD(344.31,.08,1,2,"DELETE CONDITION")="OLD MATCH STATUS'[""UNMATCH"""
^DD(344.31,.08,1,2,"DELETE VALUE")="TOTAL AMOUNT MATCHED-AMOUNT OF PAYMENT"
^DD(344.31,.08,1,2,"DT")="3030129"
^DD(344.31,.08,1,2,"FIELD")="#.01:TOTAL AMOUNT MATCHED"
^DD(344.31,.08,3)="Enter the status to indicate if the payment has been matched to an ERA."
^DD(344.31,.08,21,0)="^^4^4^3030128^"
^DD(344.31,.08,21,1,0)="This is the status that indicates whether or not the EFT payment has been"
^DD(344.31,.08,21,2,0)="matched to an ERA record.  If the total amt of the EFT payment does not ="
^DD(344.31,.08,21,3,0)="the total amount of the ERA payment, the status will be -1 (MATCHED WITH"
^DD(344.31,.08,21,4,0)="ERRORS)."
^DD(344.31,.08,"DT")="3030129"
^DD(344.31,.09,0)="RECEIPT #^P344'^RCY(344,^0;9^Q"
^DD(344.31,.09,3)="Enter the receipt that was created for this EFT detail record."
^DD(344.31,.09,21,0)="^.001^1^1^3030129^^^"
^DD(344.31,.09,21,1,0)="This is the receipt that was created for this EFT record."
^DD(344.31,.09,"DT")="3030128"
^DD(344.31,.1,0)="ERA RECORD^P344.4'^RCY(344.4,^0;10^Q"
^DD(344.31,.1,1,0)="^.1"
^DD(344.31,.1,1,1,0)="344.31^AERA"
^DD(344.31,.1,1,1,1)="S ^RCY(344.31,""AERA"",$E(X,1,30),DA)="""""
^DD(344.31,.1,1,1,2)="K ^RCY(344.31,""AERA"",$E(X,1,30),DA)"
^DD(344.31,.1,1,1,3)="Do not delete"
^DD(344.31,.1,1,1,"DT")="3030128"
^DD(344.31,.1,3)="Enter the id of the ERA record for this EFT."
^DD(344.31,.1,21,0)="^^1^1^3030128^"
^DD(344.31,.1,21,1,0)="This is the ERA record that contains the detail for this EFT."
^DD(344.31,.1,"DT")="3030128"
^DD(344.31,.11,0)="EFT RECORDED AT SITE^S^0:NO;1:YES;^0;11^Q"
^DD(344.31,.11,3)="Enter a 1 if the EFT deposit this EFT was received in has been"
^DD(344.31,.11,21,0)="^^3^3^3030128^"
^DD(344.31,.11,21,1,0)="This is a flag that indicates the EFT deposit this EFT was received in"
^DD(344.31,.11,21,2,0)="has been recorded to the FMS system.  This locks the record and it cannot"
^DD(344.31,.11,21,3,0)="be overwritten by another transmission of the same EFT deposit."
^DD(344.31,.11,"DT")="3030128"
^DD(344.31,.12,0)="DATE CLAIMS PAID^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.31,.12,3)="Enter the date the payer reported the claims were paid."
^DD(344.31,.12,21,0)="^^1^1^3030128^"
^DD(344.31,.12,21,1,0)="This is the date the payer reported the claims were paid."
^DD(344.31,.12,"DT")="3030128"
^DD(344.31,.13,0)="DATE RECEIVED^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.31,.13,3)="Enter the date this record was added to the system."
^DD(344.31,.13,21,0)="^.001^1^1^3030128^^"
^DD(344.31,.13,21,1,0)="This is the date this record was added to the system."
^DD(344.31,.13,"DT")="3030129"
^DD(344.31,.14,0)="TRANSACTION #^NJ3,0^^0;14^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.31,.14,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(344.31,.14,21,0)="^^1^1^3030313^"
^DD(344.31,.14,21,1,0)="This is the transaction # within the receipt for this EFT."
^DD(344.31,.14,"DT")="3030313"
^DD(344.31,.15,0)="ACH TRACE #^F^^0;15^K:$L(X)>30!($L(X)<1) X"
^DD(344.31,.15,3)="Answer must be 1-30 characters in length."
^DD(344.31,.15,21,0)="^^2^2^3030512^"
^DD(344.31,.15,21,1,0)="This is the ACH trace # assigned by the Lockbox banking institution to"
^DD(344.31,.15,21,2,0)="this EFT detail record."
^DD(344.31,.15,"DT")="3030512"
^DD(344.31,.16,0)="MANUAL TR DOCUMENT^F^^0;16^K:$L(X)>30!($L(X)<2)!'(X?1""TR"".E) X"
^DD(344.31,.16,3)="Answer must be 2-30 characters in length."
^DD(344.31,.16,21,0)="^.001^4^4^3040426^^"
^DD(344.31,.16,21,1,0)="This is the TR document that was entered on-line to manually post the"
^DD(344.31,.16,21,2,0)="EFT detail to the correct accounts and remove them from FUND 5287.4,"
^DD(344.31,.16,21,3,0)="revenue source code 8NZZ.  This is used when a RECEIPT was not used to"
^DD(344.31,.16,21,4,0)="automatically generate a TR document for the EFT detail record."
^DD(344.31,.16,"DT")="3040426"
^DD(344.31,2,0)="ERROR MESSAGES^344.312^^2;0"
^DD(344.31,2,21,0)="^^1^1^3030128^"
^DD(344.31,2,21,1,0)="This is the record of error messages for the EFT record."
^DD(344.31,"B","ACH TRACE #",.15)=""
^DD(344.31,"B","AMOUNT OF PAYMENT",.07)=""
^DD(344.31,"B","DATE CLAIMS PAID",.12)=""
^DD(344.31,"B","DATE RECEIVED",.13)=""
^DD(344.31,"B","EFT RECORDED AT SITE",.11)=""
^DD(344.31,"B","EFT TRANSACTION",.01)=""
^DD(344.31,"B","ERA RECORD",.1)=""
^DD(344.31,"B","ERROR MESSAGES",2)=""
^DD(344.31,"B","MANUAL TR DOCUMENT",.16)=""
^DD(344.31,"B","MATCH STATUS",.08)=""
^DD(344.31,"B","PAYER ID",.03)=""
^DD(344.31,"B","PAYER NAME",.02)=""
^DD(344.31,"B","PROVIDER TAX ID SENT",.05)=""
^DD(344.31,"B","RECEIPT #",.09)=""
^DD(344.31,"B","TAX ID CORRECTION",.06)=""
^DD(344.31,"B","TRACE #",.04)=""
^DD(344.31,"B","TRANSACTION #",.14)=""
^DD(344.31,"GL",0,1,.01)=""
^DD(344.31,"GL",0,2,.02)=""
^DD(344.31,"GL",0,3,.03)=""
^DD(344.31,"GL",0,4,.04)=""
^DD(344.31,"GL",0,5,.05)=""
^DD(344.31,"GL",0,6,.06)=""
^DD(344.31,"GL",0,7,.07)=""
^DD(344.31,"GL",0,8,.08)=""
^DD(344.31,"GL",0,9,.09)=""
^DD(344.31,"GL",0,10,.1)=""
^DD(344.31,"GL",0,11,.11)=""
^DD(344.31,"GL",0,12,.12)=""
^DD(344.31,"GL",0,13,.13)=""
^DD(344.31,"GL",0,14,.14)=""
^DD(344.31,"GL",0,15,.15)=""
^DD(344.31,"GL",0,16,.16)=""
^DD(344.31,"GL",2,0,2)=""
^DD(344.31,"IX",.01)=""
^DD(344.31,"IX",.02)=""
^DD(344.31,"IX",.04)=""
^DD(344.31,"IX",.08)=""
^DD(344.31,"IX",.1)=""
^DD(344.31,"RQ",.01)=""
^DD(344.31,"SB",344.312,2)=""
^DD(344.312,0)="ERROR MESSAGES SUB-FIELD^^.01^1"
^DD(344.312,0,"DT")="3030128"
^DD(344.312,0,"NM","ERROR MESSAGES")=""
^DD(344.312,0,"UP")="344.31"
^DD(344.312,.01,0)="ERROR MESSAGES^WL^^0;1^Q"
^DD(344.312,.01,3)="Enter the text of the error"
^DD(344.312,.01,21,0)="^.001^1^1^3030128^^"
^DD(344.312,.01,21,1,0)="This is the record of error messages encountered for this EFT record."
^DD(344.312,.01,"DT")="3030128"
^DD(344.312,"B","ERROR MESSAGES",.01)=""
^DD(344.312,"GL",0,1,.01)=""
^DD(344.32,0)="ERROR MESSAGES SUB-FIELD^^.01^1"
^DD(344.32,0,"DT")="3020423"
^DD(344.32,0,"NM","ERROR MESSAGES")=""
^DD(344.32,0,"UP")="344.3"
^DD(344.32,.01,0)="ERROR MESSAGES^WL^^0;1^Q"
^DD(344.32,.01,3)="Enter the error messages that report problems with the transaction."
^DD(344.32,.01,21,0)="^.001^2^2^3021001^^^"
^DD(344.32,.01,21,1,0)="This word processing field stores any error messages that report problems"
^DD(344.32,.01,21,2,0)="with the incoming transmission."
^DD(344.32,.01,"DT")="3020423"
^DD(344.32,"B","ERROR MESSAGES",.01)=""
^DD(344.32,"GL",0,1,.01)=""
^DD(344.4,0)="FIELD^^20.03^27"
^DD(344.4,0,"DDA")="N"
^DD(344.4,0,"DT")="3030916"
^DD(344.4,0,"ID",.02)="W $P(^(0),U,2)"
^DD(344.4,0,"ID",.04)="W $E($P(^(0),U,4),4,5)_""-""_$E($P(^(0),U,4),6,7)_""-""_$E($P(^(0),U,4),2,3)"
^DD(344.4,0,"ID",.05)="W $P(^(0),U,5)"
^DD(344.4,0,"ID",.06)="W $P(^(0),U,6)"
^DD(344.4,0,"ID",.09)="N Z S Z=""S Z=$P($P($C(59)_$S($D(^DD(344.4,.09,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,9)_"""":"""",2),$C(59),1)"" X Z W:Z'="""" Z"
^DD(344.4,0,"ID",.14)="D:$P(^(0),U,14)=1 EN^DDIOL(""POSTED"",,""?$X"")"
^DD(344.4,0,"IX","ADET",344.41,.02)=""
^DD(344.4,0,"IX","AEXC",344.41,.07)=""
^DD(344.4,0,"IX","AFD",344.4,.07)=""
^DD(344.4,0,"IX","AMATCH",344.4,.09)=""
^DD(344.4,0,"IX","AREC",344.4,.08)=""
^DD(344.4,0,"IX","ATOUT",344.41,.12)=""
^DD(344.4,0,"IX","B",344.4,.01)=""
^DD(344.4,0,"IX","C",344.4,.06)=""
^DD(344.4,0,"IX","D",344.4,.02)=""
^DD(344.4,0,"NM","ELECTRONIC REMITTANCE ADVICE")=""
^DD(344.4,0,"PT",344,.18)=""
^DD(344.4,0,"PT",344.31,.1)=""
^DD(344.4,0,"PT",344.49,.01)=""
^DD(344.4,0,"PT",344.5,.07)=""
^DD(344.4,0,"VR")="4.5"
^DD(344.4,0,"VRPK")="PRCA"
^DD(344.4,.01,0)="ENTRY^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(344.4,.01,1,0)="^.1"
^DD(344.4,.01,1,1,0)="344.4^B"
^DD(344.4,.01,1,1,1)="S ^RCY(344.4,""B"",$E(X,1,30),DA)="""""
^DD(344.4,.01,1,1,2)="K ^RCY(344.4,""B"",$E(X,1,30),DA)"
^DD(344.4,.01,1,2,0)="^^TRIGGER^344.4^.14"
^DD(344.4,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=0 S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=344.4,DIG=.14 D ^DICR"
^DD(344.4,.01,1,2,2)="Q"
^DD(344.4,.01,1,2,3)="Do not delete"
^DD(344.4,.01,1,2,"CREATE VALUE")="S X=0"
^DD(344.4,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(344.4,.01,1,2,"DT")="3030314"
^DD(344.4,.01,1,2,"FIELD")="DETAIL POST STATUS"
^DD(344.4,.01,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(344.4,.01,21,0)="^.001^3^3^3021001^^^^"
^DD(344.4,.01,21,1,0)="This field contains a sequential number generated at the time a record"
^DD(344.4,.01,21,2,0)="is stored in the file.  It only serves to create an entry in the file"
^DD(344.4,.01,21,3,0)="and has no other special meaning."
^DD(344.4,.01,"DT")="3030314"
^DD(344.4,.02,0)="TRACE NUMBER^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(344.4,.02,1,0)="^.1"
^DD(344.4,.02,1,1,0)="344.4^D"
^DD(344.4,.02,1,1,1)="S ^RCY(344.4,""D"",$E(X,1,30),DA)="""""
^DD(344.4,.02,1,1,2)="K ^RCY(344.4,""D"",$E(X,1,30),DA)"
^DD(344.4,.02,1,1,3)="Do not delete"
^DD(344.4,.02,1,1,"DT")="3030611"
^DD(344.4,.02,3)="Answer must be 3-30 characters in length."
^DD(344.4,.02,21,0)="^.001^2^2^3030612^^^^"
^DD(344.4,.02,21,1,0)="This is the bank trace number assigned to the ERA received.  If the ERA"
^DD(344.4,.02,21,2,0)="was paid by paper check, this should be the check #."
^DD(344.4,.02,"DT")="3030611"
^DD(344.4,.03,0)="INSURANCE CO ID^RF^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(344.4,.03,3)="Answer must be 1-30 characters in length."
^DD(344.4,.03,21,0)="^^3^3^3020523^"
^DD(344.4,.03,21,1,0)="This is the insurance co's electronic ID that will be recorded on each"
^DD(344.4,.03,21,2,0)="ERA received at the site.  This field, along"
^DD(344.4,.03,21,3,0)="with the trace number should always be unique in this file."
^DD(344.4,.03,"DT")="3020524"
^DD(344.4,.04,0)="ERA DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.4,.04,3)="Enter the date from the ERA record"
^DD(344.4,.04,21,0)="^.001^1^1^3021206^^"
^DD(344.4,.04,21,1,0)="This is the date the ERA was generated by the payer."
^DD(344.4,.04,"DT")="3021206"
^DD(344.4,.05,0)="TOTAL AMOUNT PAID^NJ15,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(344.4,.05,3)="Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits"
^DD(344.4,.05,21,0)="^^2^2^3020524^"
^DD(344.4,.05,21,1,0)="This is the total amount of all the individual EOB records included in"
^DD(344.4,.05,21,2,0)="the ERA."
^DD(344.4,.05,"DT")="3020924"
^DD(344.4,.06,0)="PAYMENT FROM^F^^0;6^K:$L(X)>35!($L(X)<1) X"
^DD(344.4,.06,1,0)="^.1"
^DD(344.4,.06,1,1,0)="344.4^C"
^DD(344.4,.06,1,1,1)="S ^RCY(344.4,""C"",$E(X,1,30),DA)="""""
^DD(344.4,.06,1,1,2)="K ^RCY(344.4,""C"",$E(X,1,30),DA)"
^DD(344.4,.06,1,1,3)="Do not delete"
^DD(344.4,.06,1,1,"DT")="3030312"
^DD(344.4,.06,3)="Answer must be 1-35 characters in length."
^DD(344.4,.06,21,0)="^^1^1^3020613^"
^DD(344.4,.06,21,1,0)="This is the name of the insurance co as returned on the ERA."
^DD(344.4,.06,"DT")="3030312"
^DD(344.4,.07,0)="FILE DATE/TIME^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.4,.07,1,0)="^.1"
^DD(344.4,.07,1,1,0)="344.4^AFD"
^DD(344.4,.07,1,1,1)="S ^RCY(344.4,""AFD"",$E(X,1,30),DA)="""""
^DD(344.4,.07,1,1,2)="K ^RCY(344.4,""AFD"",$E(X,1,30),DA)"
^DD(344.4,.07,1,1,3)="Do not delete"
^DD(344.4,.07,1,1,"%D",0)="^^1^1^3040121^"
^DD(344.4,.07,1,1,"%D",1,0)="Created to find entries to include on ERA worklist pick list."
^DD(344.4,.07,1,1,"DT")="3040121"
^DD(344.4,.07,3)="Enter the date/time the ERA was filed in VistA."
^DD(344.4,.07,21,0)="^^1^1^3020613^"
^DD(344.4,.07,21,1,0)="This is the date/time the ERA was filed in VistA."
^DD(344.4,.07,"DT")="3040121"
^DD(344.4,.08,0)="RECEIPT^P344'^RCY(344,^0;8^Q"
^DD(344.4,.08,1,0)="^.1"
^DD(344.4,.08,1,1,0)="344.4^AREC"
^DD(344.4,.08,1,1,1)="S ^RCY(344.4,""AREC"",$E(X,1,30),DA)="""""
^DD(344.4,.08,1,1,2)="K ^RCY(344.4,""AREC"",$E(X,1,30),DA)"
^DD(344.4,.08,1,1,3)="Do not delete"
^DD(344.4,.08,1,1,"DT")="3030326"
^DD(344.4,.08,1,2,0)="^^TRIGGER^344.49^.02"
^DD(344.4,.08,1,2,1)="Q"
^DD(344.4,.08,1,2,2)="X ^DD(344.4,.08,1,2,2.3) I X S X=DIV S I(0,0)=$G(D0),D0=D0 S:'D0!'$D(^RCY(344.49,+D0,0)) D0=-1 S DIV(0)=D0,Y(101)=$S($D(^RCY(344.49,D0,0)):^(0),1:"""") S X=$P($G(^RCY(344,+$P(Y(101),U,2),0)),U),D0=I(0,0),DIU=X K Y S X="""" X ^DD(344.4,.08,1,2,2.4)"
^DD(344.4,.08,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"""") S X=$P($G(^RCY(344,+$P(Y(1),U,8),0)),U)="""""
^DD(344.4,.08,1,2,2.4)="S DIH=$G(^RCY(344.49,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=344.49,DIG=.02 D ^DICR"
^DD(344.4,.08,1,2,3)="Do not delete"
^DD(344.4,.08,1,2,"CREATE VALUE")="NO EFFECT"
^DD(344.4,.08,1,2,"DELETE CONDITION")="RECEIPT="""""
^DD(344.4,.08,1,2,"DELETE VALUE")="@"
^DD(344.4,.08,1,2,"DT")="3040406"
^DD(344.4,.08,1,2,"FIELD")="EDI LOCKBOX EOB WORKLIST:RECEIPT"
^DD(344.4,.08,3)="Enter the receipt that this ERA detail is contained in."
^DD(344.4,.08,5,1,0)="344^.01^2"
^DD(344.4,.08,21,0)="^^1^1^3020613^"
^DD(344.4,.08,21,1,0)="This is the receipt created to record the detail of the ERA for AR posting."
^DD(344.4,.08,"DT")="3040406"
^DD(344.4,.09,0)="EFT MATCH STATUS^S^0:UNMATCHED;-1:MATCHED WITH ERRORS;1:MATCHED;2:MATCHED TO PAPER CHECK;3:MATCH-0 PAYMENT;^0;9^Q"
^DD(344.4,.09,1,0)="^.1"
^DD(344.4,.09,1,1,0)="344.4^AMATCH"
^DD(344.4,.09,1,1,1)="S ^RCY(344.4,""AMATCH"",$E(X,1,30),DA)="""""
^DD(344.4,.09,1,1,2)="K ^RCY(344.4,""AMATCH"",$E(X,1,30),DA)"
^DD(344.4,.09,1,1,3)="Do not delete"
^DD(344.4,.09,1,1,"%D",0)="^^1^1^3021022^"
^DD(344.4,.09,1,1,"%D",1,0)="This xref allows easy access to unmatched or mismatched ERA records."
^DD(344.4,.09,1,1,"DT")="3021022"
^DD(344.4,.09,3)="Enter the status to indicate if the ERA has been matched"
^DD(344.4,.09,21,0)="^.001^6^6^3030912^^^^"
^DD(344.4,.09,21,1,0)="This is the status that indicates whether or not the ERA has been"
^DD(344.4,.09,21,2,0)="matched to an electronic EFT record.  If the total amt of the EFT payment"
^DD(344.4,.09,21,3,0)="does not equal the total amount of the ERA payment, the status will be"
^DD(344.4,.09,21,4,0)="-1 (MATCHED WITH ERRORS).  If the ERA has a 0-payment and no EFT or check,"
^DD(344.4,.09,21,5,0)="the status will be 3 (MATCH-0 PAYMENT) and if matched to a paper check,"
^DD(344.4,.09,21,6,0)="the status will be 2 (MATCHED TO PAPER CHECK)."
^DD(344.4,.09,"DT")="3030912"
^DD(344.4,.1,0)="ERA TYPE^S^0:MRA;1:ERA;^0;10^Q"
^DD(344.4,.1,3)="Enter a 0 if this is an ERA from MEDICARE (MRA)"
^DD(344.4,.1,21,0)="^.001^2^2^3021206^^"
^DD(344.4,.1,21,1,0)="This is the field that will designate whether the ERA is from an"
^DD(344.4,.1,21,2,0)="insurance company or from MEDICARE via the MRA requests."
^DD(344.4,.1,"DT")="3021206"
^DD(344.4,.11,0)="INDIVIDUAL EOB COUNT^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(344.4,.11,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(344.4,.11,5,1,0)="344.41^.01^3"
^DD(344.4,.11,21,0)="^.001^1^1^3020917^^"
^DD(344.4,.11,21,1,0)="This field contains the total # of EOB detail records included in the ERA."
^DD(344.4,.11,"DT")="3020917"
^DD(344.4,.12,0)="MAIL MESSAGE^F^^0;12^K:$L(X)>60!($L(X)<1) X"
^DD(344.4,.12,3)="Answer must be 1-60 characters in length."
^DD(344.4,.12,21,0)="^.001^2^2^3030114^^^^"
^DD(344.4,.12,21,1,0)="This is the list of message #s where the original ERA was received,"
^DD(344.4,.12,21,2,0)="separated by commas."
^DD(344.4,.12,"DT")="3030114"
^DD(344.4,.13,0)="CHECK #^F^^0;13^K:$L(X)>15!($L(X)<1) X"
^DD(344.4,.13,3)="Answer must be 1-15 characters in length."
^DD(344.4,.13,21,0)="^^2^2^3030226^"
^DD(344.4,.13,21,1,0)="This is the # of the paper check that was received for payment of this "
^DD(344.4,.13,21,2,0)="ERA."
^DD(344.4,.13,"DT")="3030226"
^DD(344.4,.14,0)="DETAIL POST STATUS^S^0:NOT POSTED;1:POSTED;2:MANUALLY POSTED;3:POSTING NOT NEEDED;4:NOT POSTED-RETURNED;^0;14^Q"
^DD(344.4,.14,3)="Enter the code that corresponds to whether or not the ERA detail was posted and if so, if it was manually posted."
^DD(344.4,.14,5,1,0)="344.4^.01^2"
^DD(344.4,.14,21,0)="^.001^3^3^3040429^^^"
^DD(344.4,.14,21,1,0)="This is a flag that indicates whether or not the receipt for the ERA has "
^DD(344.4,.14,21,2,0)="been posted.  It is used to limit the choices when selecting ERAs for the "
^DD(344.4,.14,21,3,0)="worklist function."
^DD(344.4,.14,"DT")="3040429"
^DD(344.4,.15,0)="EXPECTED PAYMENT METHOD CODE^F^^0;15^K:$L(X)>3!($L(X)<1) X"
^DD(344.4,.15,3)="Answer must be 1-3 characters in length."
^DD(344.4,.15,21,0)="^^2^2^3030912^"
^DD(344.4,.15,21,1,0)="This is the code that indicates the method of payemnt that can be expected"
^DD(344.4,.15,21,2,0)="as a result of this ERA."
^DD(344.4,.15,"DT")="3030912"
^DD(344.4,1,0)="ERA DETAIL^344.41A^^1;0"
^DD(344.4,1,21,0)="^^2^2^3021206^"
^DD(344.4,1,21,1,0)="This subfile contains the list of individual EOBs that were processed"
^DD(344.4,1,21,2,0)="in this ERA from a single payer."
^DD(344.4,1,"DT")="3030812"
^DD(344.4,2,0)="ERA LEVEL ADJUSTMENTS^344.42A^^2;0"
^DD(344.4,2,21,0)="^^4^4^3021223^"
^DD(344.4,2,21,1,0)="This field holds the ERA level adjustments the payer has applied to the "
^DD(344.4,2,21,2,0)="ERA.  These can be additional monies or less monies, depending on the   "
^DD(344.4,2,21,3,0)="type of adjustment (i.e. Takeback would be less money, interest would be"
^DD(344.4,2,21,4,0)="more money)."
^DD(344.4,3.01,0)="CONTACT NAME^F^^3;1^K:$L(X)>30!($L(X)<1) X"
^DD(344.4,3.01,3)="Answer must be 1-30 characters in length."
^DD(344.4,3.01,21,0)="^^2^2^3030320^"
^DD(344.4,3.01,21,1,0)="This is the name of the contact the payer has provided for questions"
^DD(344.4,3.01,21,2,0)="regarding this ERA."
^DD(344.4,3.01,"DT")="3030320"
^DD(344.4,3.02,0)="CONTACT NUMBER 1^F^^3;2^K:$L(X)>30!($L(X)<1) X"
^DD(344.4,3.02,3)="Answer must be 1-30 characters in length."
^DD(344.4,3.02,21,0)="^^1^1^3030320^"
^DD(344.4,3.02,21,1,0)="This is a phone #/telephone extension or email address for the contact."
^DD(344.4,3.02,"DT")="3030320"
^DD(344.4,3.03,0)="CONTACT TYPE 1^S^EM:E-MAIL;FX:FAX;TE:TELEPHONE;EX:TELEPHONE EXTENSION;^3;3^Q"
^DD(344.4,3.03,3)="Enter the code for the type of contact information."
^DD(344.4,3.03,21,0)="^.001^2^2^3030320^^"
^DD(344.4,3.03,21,1,0)="This is the code that describes the type of contact information provided in"
^DD(344.4,3.03,21,2,0)="the CONTACT NUMBER 1 field."
^DD(344.4,3.03,"DT")="3030320"
^DD(344.4,3.04,0)="CONTACT NUMBER 2^F^^3;4^K:$L(X)>30!($L(X)<1) X"
^DD(344.4,3.04,3)="Answer must be 1-30 characters in length."
^DD(344.4,3.04,21,0)="^.001^1^1^3030320^^"
^DD(344.4,3.04,21,1,0)="This is a phone #/telephone extension or email address for the contact."
^DD(344.4,3.04,"DT")="3030320"
^DD(344.4,3.05,0)="CONTACT TYPE 2^S^EM:E-MAIL;FX:FAX;TE:TELEPHONE;EX:TELEPHONE EXTENSION;^3;5^Q"
^DD(344.4,3.05,3)="Enter the code for the type of contact information."
^DD(344.4,3.05,21,0)="^^2^2^3030320^"
^DD(344.4,3.05,21,1,0)="This is the code that describes the type of contact information provided in"
^DD(344.4,3.05,21,2,0)="the CONTACT NUMBER 2 field."
^DD(344.4,3.05,"DT")="3030320"
^DD(344.4,3.06,0)="CONTACT NUMBER 3^F^^3;6^K:$L(X)>30!($L(X)<1) X"
^DD(344.4,3.06,3)="Answer must be 1-30 characters in length."
^DD(344.4,3.06,21,0)="^^1^1^3030320^"
^DD(344.4,3.06,21,1,0)="This is a phone #/telephone extension or email address for the contact."
^DD(344.4,3.06,"DT")="3030320"
^DD(344.4,3.07,0)="CONTACT TYPE 3^S^EM:E-MAIL;FX:FAX;TE:TELEPHONE;EX:TELEPHONE EXTENSION;^3;7^Q"
^DD(344.4,3.07,3)="Enter the code for the type of contact information."
^DD(344.4,3.07,21,0)="^^2^2^3030320^"
^DD(344.4,3.07,21,1,0)="This is the code that describes the type of contact information provided in"
^DD(344.4,3.07,21,2,0)="the CONTACT NUMBER 3 field."
^DD(344.4,3.07,"DT")="3030320"
^DD(344.4,20.01,0)="DATE POSTED TO SUSPENSE^D^^20;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.4,20.01,3)="Enter the date/time this receipt was posted to suspense."
^DD(344.4,20.01,21,0)="^.001^1^1^3030515^^"
^DD(344.4,20.01,21,1,0)="This is the date/time this ERA was posted to suspense."
^DD(344.4,20.01,"DT")="3030515"
^DD(344.4,20.02,0)="POSTED TO SUSPENSE BY^P200'^VA(200,^20;2^Q"
^DD(344.4,20.02,3)="Enter the name of the person who posted this ERA to suspense."
^DD(344.4,20.02,21,0)="^^1^1^3030515^"
^DD(344.4,20.02,21,1,0)="This is the person who posted this ERA to suspense."
^DD(344.4,20.02,"DT")="3030515"
^DD(344.4,20.03,0)="PAPER EOB ENTRY^S^0:NO;1:YES;^20;3^Q"
^DD(344.4,20.03,3)="Enter a 1 (YES) if the ERA was posted using a paper EOB."
^DD(344.4,20.03,21,0)="^^3^3^3030828^"
^DD(344.4,20.03,21,1,0)="This is a flag that indicates if the ERA was not referenced when its"
^DD(344.4,20.03,21,2,0)="data was posted to A/R and FMS because the data was posted using the"
^DD(344.4,20.03,21,3,0)="paper EOB instead."
^DD(344.4,20.03,"DT")="3030828"
^DD(344.4,"B","CHECK #",.13)=""
^DD(344.4,"B","CONTACT NAME",3.01)=""
^DD(344.4,"B","CONTACT NUMBER 1",3.02)=""
^DD(344.4,"B","CONTACT NUMBER 2",3.04)=""
^DD(344.4,"B","CONTACT NUMBER 3",3.06)=""
^DD(344.4,"B","CONTACT TYPE 1",3.03)=""
^DD(344.4,"B","CONTACT TYPE 2",3.05)=""
^DD(344.4,"B","CONTACT TYPE 3",3.07)=""
^DD(344.4,"B","DATE POSTED TO SUSPENSE",20.01)=""
^DD(344.4,"B","DETAIL POST STATUS",.14)=""
^DD(344.4,"B","EFT MATCH STATUS",.09)=""
^DD(344.4,"B","ENTRY",.01)=""
^DD(344.4,"B","ERA DATE",.04)=""
^DD(344.4,"B","ERA DETAIL",1)=""
^DD(344.4,"B","ERA LEVEL ADJUSTMENTS",2)=""
^DD(344.4,"B","ERA TYPE",.1)=""
^DD(344.4,"B","EXPECTED PAYMENT METHOD CODE",.15)=""
^DD(344.4,"B","FILE DATE/TIME",.07)=""
^DD(344.4,"B","INDIVIDUAL EOB COUNT",.11)=""
^DD(344.4,"B","INSURANCE CO ID",.03)=""
^DD(344.4,"B","MAIL MESSAGE",.12)=""
^DD(344.4,"B","PAPER EOB ENTRY",20.03)=""
^DD(344.4,"B","PAYMENT FROM",.06)=""
^DD(344.4,"B","POSTED TO SUSPENSE BY",20.02)=""
^DD(344.4,"B","RECEIPT",.08)=""
^DD(344.4,"B","TOTAL AMOUNT PAID",.05)=""
^DD(344.4,"B","TRACE NUMBER",.02)=""
^DD(344.4,"GL",0,1,.01)=""
^DD(344.4,"GL",0,2,.02)=""
^DD(344.4,"GL",0,3,.03)=""
^DD(344.4,"GL",0,4,.04)=""
^DD(344.4,"GL",0,5,.05)=""
^DD(344.4,"GL",0,6,.06)=""
^DD(344.4,"GL",0,7,.07)=""
^DD(344.4,"GL",0,8,.08)=""
^DD(344.4,"GL",0,9,.09)=""
^DD(344.4,"GL",0,10,.1)=""
^DD(344.4,"GL",0,11,.11)=""
^DD(344.4,"GL",0,12,.12)=""
^DD(344.4,"GL",0,13,.13)=""
^DD(344.4,"GL",0,14,.14)=""
^DD(344.4,"GL",0,15,.15)=""
^DD(344.4,"GL",1,0,1)=""
^DD(344.4,"GL",2,0,2)=""
^DD(344.4,"GL",3,1,3.01)=""
^DD(344.4,"GL",3,2,3.02)=""
^DD(344.4,"GL",3,3,3.03)=""
^DD(344.4,"GL",3,4,3.04)=""
^DD(344.4,"GL",3,5,3.05)=""
^DD(344.4,"GL",3,6,3.06)=""
^DD(344.4,"GL",3,7,3.07)=""
^DD(344.4,"GL",20,1,20.01)=""
^DD(344.4,"GL",20,2,20.02)=""
^DD(344.4,"GL",20,3,20.03)=""
^DD(344.4,"IX",.01)=""
^DD(344.4,"IX",.02)=""
^DD(344.4,"IX",.06)=""
^DD(344.4,"IX",.07)=""
^DD(344.4,"IX",.08)=""
^DD(344.4,"IX",.09)=""
^DD(344.4,"RQ",.01)=""
^DD(344.4,"RQ",.03)=""
^DD(344.4,"SB",344.41,1)=""
^DD(344.4,"SB",344.42,2)=""
^DD(344.41,0)="ERA DETAIL SUB-FIELD^^99^20"
^DD(344.41,0,"DT")="3030409"
^DD(344.41,0,"IX","AC",344.41,.02)=""
^DD(344.41,0,"IX","AD",344.41,.05)=""
^DD(344.41,0,"IX","ATB",344.41,.14)=""
^DD(344.41,0,"IX","B",344.41,.01)=""
^DD(344.41,0,"NM","ERA DETAIL")=""
^DD(344.41,0,"UP")="344.4"
^DD(344.41,.01,0)="SEQUENCE #^MRNJ8,0X^^0;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X I $D(X) S DINUM=X"
^DD(344.41,.01,1,0)="^.1^^-1"
^DD(344.41,.01,1,1,0)="344.41^B"
^DD(344.41,.01,1,1,1)="S ^RCY(344.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(344.41,.01,1,1,2)="K ^RCY(344.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(344.41,.01,1,3,0)="^^TRIGGER^344.4^.11"
^DD(344.41,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DIU+1 S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=344.4,DIG=.11 D ^DICR"
^DD(344.41,.01,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^RCY(344.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DIU-1 S DIH=$G(^RCY(344.4,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=344.4,DIG=.11 D ^DICR"
^DD(344.41,.01,1,3,3)="Do not delete"
^DD(344.41,.01,1,3,"%D",0)="^^1^1^3020924^"
^DD(344.41,.01,1,3,"%D",1,0)="Keeps track of the number of individual EOBs in the EOB transmission."
^DD(344.41,.01,1,3,"CREATE VALUE")="INDIVIDUAL EOB COUNT+1"
^DD(344.41,.01,1,3,"DELETE VALUE")="INDIVIDUAL EOB COUNT-1"
^DD(344.41,.01,1,3,"DT")="3020924"
^DD(344.41,.01,1,3,"FIELD")="INDIVIDUAL EOB COUNT"
^DD(344.41,.01,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(344.41,.01,21,0)="^.001^1^1^3020626^^^^"
^DD(344.41,.01,21,1,0)="This is a sequence # used internally to identify this ERA detail record."
^DD(344.41,.01,"DT")="3030812"
^DD(344.41,.02,0)="EOB DETAIL^*P361.1'^IBM(361.1,^0;2^S DIC(""S"")=""I '$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(344.41,.02,1,0)="^.1"
^DD(344.41,.02,1,1,0)="344.41^AC"
^DD(344.41,.02,1,1,1)="S ^RCY(344.4,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(344.41,.02,1,1,2)="K ^RCY(344.4,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(344.41,.02,1,1,3)="Do not delete"
^DD(344.41,.02,1,1,"DT")="3020924"
^DD(344.41,.02,1,2,0)="344.4^ADET"
^DD(344.41,.02,1,2,1)="S ^RCY(344.4,""ADET"",$E(X,1,30),DA(1),DA)="""""
^DD(344.41,.02,1,2,2)="K ^RCY(344.4,""ADET"",$E(X,1,30),DA(1),DA)"
^DD(344.41,.02,1,2,3)="Do not delete"
^DD(344.41,.02,1,2,"%D",0)="^^1^1^3021125^"
^DD(344.41,.02,1,2,"%D",1,0)="Cross references entire file by EOB detail pointer to file 361.1"
^DD(344.41,.02,1,2,"DT")="3021125"
^DD(344.41,.02,3)="Enter the EOB detail records that will comprise the EOB record"
^DD(344.41,.02,12)="This can only be regular EOB's, not MRA's"
^DD(344.41,.02,12.1)="S DIC(""S"")=""I '$P(^(0),U,4)"""
^DD(344.41,.02,21,0)="^.001^1^1^3021024^^"
^DD(344.41,.02,21,1,0)="The detail EOB records that comprise the 835 transaction."
^DD(344.41,.02,"DT")="3021125"
^DD(344.41,.03,0)="AMOUNT PAID^NJ16,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999999)!(X<-9999999999999) X"
^DD(344.41,.03,3)="Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits"
^DD(344.41,.03,21,0)="^^1^1^3020626^"
^DD(344.41,.03,21,1,0)="This is the specific amount the payer has paid on this bill."
^DD(344.41,.03,"DT")="3030213"
^DD(344.41,.04,0)="INSURANCE COMPANY ON BILL^P36'^DIC(36,^0;4^Q"
^DD(344.41,.04,3)="Enter the name of the insurance co who supplied this EOB data"
^DD(344.41,.04,21,0)="^^1^1^3020626^"
^DD(344.41,.04,21,1,0)="This is the insurance company that supplied this EOB data"
^DD(344.41,.04,"DT")="3030827"
^DD(344.41,.05,0)="INVALID BILL NUMBER^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(344.41,.05,1,0)="^.1"
^DD(344.41,.05,1,1,0)="344.41^AD"
^DD(344.41,.05,1,1,1)="S ^RCY(344.4,DA(1),1,""AD"",$E(X,1,30),DA)="""""
^DD(344.41,.05,1,1,2)="K ^RCY(344.4,DA(1),1,""AD"",$E(X,1,30),DA)"
^DD(344.41,.05,1,1,3)="Do not delete"
^DD(344.41,.05,1,1,"DT")="3020924"
^DD(344.41,.05,1,2,0)="^^TRIGGER^344.41^.17"
^DD(344.41,.05,1,2,1)="Q"
^DD(344.41,.05,1,2,2)="X ^DD(344.41,.05,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(344.41,.05,1,2,2.1) X ^DD(344.41,.05,1,2,2.4)"
^DD(344.41,.05,1,2,2.1)="S X=DIV S Y(1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5)"
^DD(344.41,.05,1,2,2.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,17)="""""
^DD(344.41,.05,1,2,2.4)="S DIH=$G(^RCY(344.4,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=344.41,DIG=.17 D ^DICR"
^DD(344.41,.05,1,2,3)="Do not delete"
^DD(344.41,.05,1,2,"CREATE VALUE")="NO EFFECT"
^DD(344.41,.05,1,2,"DELETE CONDITION")="BILL NUMBER FROM PAYER="""""
^DD(344.41,.05,1,2,"DELETE VALUE")="INVALID BILL NUMBER"
^DD(344.41,.05,1,2,"DT")="3030409"
^DD(344.41,.05,1,2,"FIELD")="BILL NUMBER FROM PAYER"
^DD(344.41,.05,3)="Answer must be 1-20 characters in length."
^DD(344.41,.05,21,0)="^^1^1^3020626^"
^DD(344.41,.05,21,1,0)="This is the bill # received on the EOB, but it doesn't exist in VistA."
^DD(344.41,.05,"DT")="3030409"
^DD(344.41,.07,0)="ERROR CATEGORY^S^1:VALID BILL NOT FOUND;2:EOB DETAIL NOT IN IB;99:OTHER;^0;7^Q"
^DD(344.41,.07,1,0)="^.1"
^DD(344.41,.07,1,1,0)="344.4^AEXC"
^DD(344.41,.07,1,1,1)="S ^RCY(344.4,""AEXC"",$E(X,1,30),DA(1),DA)="""""
^DD(344.41,.07,1,1,2)="K ^RCY(344.4,""AEXC"",$E(X,1,30),DA(1),DA)"
^DD(344.41,.07,1,1,"%D",0)="^.101^1^1^3021024^^"
^DD(344.41,.07,1,1,"%D",1,0)="This xref is used to identify EOB records with exception conditions."
^DD(344.41,.07,1,1,"DT")="3021022"
^DD(344.41,.07,3)="Enter the # corresponding to the specific error detected"
^DD(344.41,.07,21,0)="^.001^3^3^3021223^^^"
^DD(344.41,.07,21,1,0)="This field is used to categorize the specific errors associated with"
^DD(344.41,.07,21,2,0)="EOB detail records.  This is the coded error for special exception"
^DD(344.41,.07,21,3,0)="processing."
^DD(344.41,.07,"DT")="3021223"
^DD(344.41,.08,0)="UNSPECIFIC ERROR^F^^0;8^K:$L(X)>60!($L(X)<1) X"
^DD(344.41,.08,3)="Answer must be 1-60 characters in length."
^DD(344.41,.08,21,0)="^.001^2^2^3020924^^"
^DD(344.41,.08,21,1,0)="This is the text to describe the error associated with EOB detail records"
^DD(344.41,.08,21,2,0)="when the ERROR CATEGORY field is OTHER."
^DD(344.41,.08,"DT")="3020924"
^DD(344.41,.09,0)="TRANSFERRED OUT MSG #^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(344.41,.09,3)="Answer must be 1-20 characters in length."
^DD(344.41,.09,21,0)="^^2^2^3021024^"
^DD(344.41,.09,21,1,0)="This field will hold the last mail message number used to transmit a"
^DD(344.41,.09,21,2,0)="detail record for an EOB received for a bill belonging to another site."
^DD(344.41,.09,"DT")="3021024"
^DD(344.41,.1,0)="TRANSFER STATUS^S^0:NOT ACCEPTED;1:ACCEPTED;^0;10^Q"
^DD(344.41,.1,3)="Enter the code that corresponds to the status of the EOB transferred to another site"
^DD(344.41,.1,21,0)="^.001^2^2^3030115^^"
^DD(344.41,.1,21,1,0)="This field indicates whether or not an EOB transfer has been accepted by"
^DD(344.41,.1,21,2,0)="a site to whom this EOB detail record was sent."
^DD(344.41,.1,"DT")="3021024"
^DD(344.41,.11,0)="TRANSFERRED TO SITE^P4'^DIC(4,^0;11^Q"
^DD(344.41,.11,3)="Enter the name of the site where the EOB detail record will be sent"
^DD(344.41,.11,21,0)="^.001^1^1^3021025^^^"
^DD(344.41,.11,21,1,0)="This is the name of the site where the EOB detail record will be sent."
^DD(344.41,.11,"DT")="3021025"
^DD(344.41,.12,0)="TRANSFERRED DATE^D^^0;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.41,.12,1,0)="^.1"
^DD(344.41,.12,1,1,0)="344.4^ATOUT"
^DD(344.41,.12,1,1,1)="S ^RCY(344.4,""ATOUT"",$E(X,1,30),DA(1),DA)="""""
^DD(344.41,.12,1,1,2)="K ^RCY(344.4,""ATOUT"",$E(X,1,30),DA(1),DA)"
^DD(344.41,.12,1,1,3)="Do not delete"
^DD(344.41,.12,1,1,"%D",0)="^^2^2^3030113^"
^DD(344.41,.12,1,1,"%D",1,0)="This cross reference allows easy access to EOBs that have been transferred"
^DD(344.41,.12,1,1,"%D",2,0)="out of the site to another site."
^DD(344.41,.12,1,1,"DT")="3030113"
^DD(344.41,.12,3)="Enter the date the EOB was last transferred to another site"
^DD(344.41,.12,21,0)="^.001^2^2^3030115^^^^"
^DD(344.41,.12,21,1,0)="This is the latest date/time when the transfer of the EOB detail record"
^DD(344.41,.12,21,2,0)="took place."
^DD(344.41,.12,"DT")="3030115"
^DD(344.41,.13,0)="ERROR STATUS^S^0:UNRESOLVED;1:RESOLVED;^0;13^Q"
^DD(344.41,.13,3)="Enter the code to indicate if the error for this EOB detail record has been resolved."
^DD(344.41,.13,21,0)="^^3^3^3021024^"
^DD(344.41,.13,21,1,0)="This indicates if the error associated with this EOB detail record was"
^DD(344.41,.13,21,2,0)="resolved or not.  If resolved, it will not appear on any more EOB"
^DD(344.41,.13,21,3,0)="detail exception lists."
^DD(344.41,.13,"DT")="3021024"
^DD(344.41,.14,0)="REVERSAL^S^0:NO;1:YES;^0;14^Q"
^DD(344.41,.14,1,0)="^.1"
^DD(344.41,.14,1,1,0)="344.41^ATB"
^DD(344.41,.14,1,1,1)="S ^RCY(344.4,DA(1),1,""ATB"",$E(X,1,30),DA)="""""
^DD(344.41,.14,1,1,2)="K ^RCY(344.4,DA(1),1,""ATB"",$E(X,1,30),DA)"
^DD(344.41,.14,1,1,3)="Do not delete"
^DD(344.41,.14,1,1,"%D",0)="^^1^1^3030107^"
^DD(344.41,.14,1,1,"%D",1,0)="This xref is used to easily find reversal or takeback EOBs in an ERA."
^DD(344.41,.14,1,1,"DT")="3030107"
^DD(344.41,.14,3)="Enter a 1 (YES) if this is a reversal notification"
^DD(344.41,.14,21,0)="^^1^1^3021223^"
^DD(344.41,.14,21,1,0)="This is the flag that indicates the bill was not paid, but was reversed."
^DD(344.41,.14,"DT")="3030107"
^DD(344.41,.15,0)="FREE TEXT PATIENT NAME^F^^0;15^K:$L(X)>35!($L(X)<1) X"
^DD(344.41,.15,3)="Answer must be 1-35 characters in length."
^DD(344.41,.15,21,0)="^^2^2^3021223^"
^DD(344.41,.15,21,1,0)="This is the name of the patient as returned by the payer.  Used only if"
^DD(344.41,.15,21,2,0)="the bill cannot be found at the site."
^DD(344.41,.15,"DT")="3021223"
^DD(344.41,.16,0)="TRANSFER RECEIVED OTHER SITE^S^0:NO;1:YES;^0;16^Q"
^DD(344.41,.16,3)="Enter YES (1) if the other site has received the transferred EOB"
^DD(344.41,.16,21,0)="^^2^2^3030115^"
^DD(344.41,.16,21,1,0)="This indicates whether or not the other site has received the transferred"
^DD(344.41,.16,21,2,0)="EOB record."
^DD(344.41,.16,"DT")="3030115"
^DD(344.41,.17,0)="BILL NUMBER FROM PAYER^F^^0;17^K:$L(X)>15!($L(X)<1) X"
^DD(344.41,.17,3)="Answer must be 1-15 characters in length."
^DD(344.41,.17,5,1,0)="344.41^.05^2"
^DD(344.41,.17,9)="^"
^DD(344.41,.17,21,0)="^^2^2^3030409^"
^DD(344.41,.17,21,1,0)="If a bill number must be edited because it could not be found in the site's"
^DD(344.41,.17,21,2,0)="A/R file, this is the original bill # that the payer sent."
^DD(344.41,.17,"DT")="3030409"
^DD(344.41,1,0)="RAW DATA^344.411^^1;0"
^DD(344.41,1,21,0)="^^2^2^3021125^"
^DD(344.41,1,21,1,0)="This field stores the raw data as it was received for the individual EOB"
^DD(344.41,1,21,2,0)="if its detail could not be stored in IB."
^DD(344.41,1.1,0)="FORMATTED MESSAGE DATA^CJ8^^ ; ^S X="""" N Q,Q0,Q1 D DISP^RCDPESR0(""^RCY(344.4,""_D0_"",1,""_D1_"",1)"",""Q0"",1,""Q1"",75,1) I $O(Q1(0)) D EN^DDIOL(""FORMATTED MESSAGE DATA: "","""",""!!"") S Q=0 F  S Q=$O(Q1(Q)) D:'Q EN^DDIOL("" "","""",""!"") Q:'Q  D EN^DDIOL(Q1(Q),"""",""!"")"
^DD(344.41,1.1,9)="^"
^DD(344.41,1.1,9.01)=""
^DD(344.41,1.1,9.1)="S X="""" N Q,Q0,Q1 D DISP^RCDPESR0(""^RCY(344.4,""_D0_"",1,""_D1_"",1)"",""Q0"",1,""Q1"",75,1) I $O(Q1(0)) D EN^DDIOL(""FORMATTED MESSAGE DATA: "","""",""!!"") S Q=0 F  S Q=$O(Q1(Q)) D:'Q EN^DDIOL("" "","""",""!"") Q:'Q  D EN^DDIOL(Q1(Q),"""",""!"")"
^DD(344.41,1.1,"DT")="3021104"
^DD(344.41,2,0)="RESOLUTION LOG^344.412^^2;0"
^DD(344.41,2,21,0)="^^2^2^3021125^"
^DD(344.41,2,21,1,0)="This field contains comments to detail the attempts made to remove the"
^DD(344.41,2,21,2,0)="exception condition associated with this individual EOB."
^DD(344.41,99,0)="BILL REFERENCE NUMBER^CJ8^^ ; ^S:'$G(DA(1)) DA(1)=+$G(D0),DA=+$G(D1) S X=$$GETBILL^RCDPESR0(.DA)"
^DD(344.41,99,9)="^"
^DD(344.41,99,9.01)=""
^DD(344.41,99,9.1)="S:'$G(DA(1)) DA(1)=+$G(D0),DA=+$G(D1) S X=$$GETBILL^RCDPESR0(.DA)"
^DD(344.41,99,9.2)="S Y(344.41,99,81)=$G(D1),Y(344.41,99,80)=$G(D0),Y(344.41,99,1)=$S($D(^RCY(344.4,D0,1,D1,0)):^(0),1:"""")"
^DD(344.41,99,9.3)="X ^DD(344.41,99,9.2) S D0=$P(Y(344.41,99,1),U,2) S:'D0!'$D(^IBM(361.1,+D0,0)) D0=-1 S Y(344.41,99,101)=$S($D(^IBM(361.1,D0,0)):^(0),1:"""")"
^DD(344.41,99,9.4)="X ^DD(344.41,99,9.3) S Y(344.41,99,102)=$G(X),D0=$P(Y(344.41,99,101),U,1) S:'D0!'$D(^DGCR(399,+D0,0)) D0=-1 S Y(344.41,99,201)=$S($D(^DGCR(399,D0,0)):^(0),1:"""")"
^DD(344.41,99,9.5)="X ^DD(344.41,99,9.4) S D0=$P(Y(344.41,99,1),U,2) S:'D0!'$D(^IBM(361.1,+D0,0)) D0=-1 S Y(344.41,99,280)=$G(D0),Y(344.41,99,201)=$S($D(^IBM(361.1,D0,0)):^(0),1:"""")"
^DD(344.41,99,9.6)="X ^DD(344.41,99,9.5) S Y(344.41,99,202)=$G(X),D0=$P(Y(344.41,99,201),U,1) S:'D0!'$D(^DGCR(399,+D0,0)) D0=-1 S Y(344.41,99,301)=$S($D(^DGCR(399,D0,0)):^(0),1:"""")"
^DD(344.41,99,"DT")="3030925"
^DD(344.41,"B","AMOUNT PAID",.03)=""
^DD(344.41,"B","BILL NUMBER FROM PAYER",.17)=""
^DD(344.41,"B","BILL REFERENCE NUMBER",99)=""
^DD(344.41,"B","EOB DETAIL",.02)=""
^DD(344.41,"B","ERROR CATEGORY",.07)=""
^DD(344.41,"B","ERROR STATUS",.13)=""
^DD(344.41,"B","FORMATTED MESSAGE DATA",1.1)=""
^DD(344.41,"B","FREE TEXT PATIENT NAME",.15)=""
^DD(344.41,"B","INSURANCE COMPANY ON BILL",.04)=""
^DD(344.41,"B","INVALID BILL NUMBER",.05)=""
^DD(344.41,"B","RAW DATA",1)=""
^DD(344.41,"B","RESOLUTION LOG",2)=""
^DD(344.41,"B","REVERSAL",.14)=""
^DD(344.41,"B","SEQUENCE #",.01)=""
^DD(344.41,"B","TRANSFER RECEIVED OTHER SITE",.16)=""
^DD(344.41,"B","TRANSFER STATUS",.1)=""
^DD(344.41,"B","TRANSFERRED DATE",.12)=""
^DD(344.41,"B","TRANSFERRED OUT MSG #",.09)=""
^DD(344.41,"B","TRANSFERRED TO SITE",.11)=""
^DD(344.41,"B","UNSPECIFIC ERROR",.08)=""
^DD(344.41,"GL",0,1,.01)=""
^DD(344.41,"GL",0,2,.02)=""
^DD(344.41,"GL",0,3,.03)=""
^DD(344.41,"GL",0,4,.04)=""
^DD(344.41,"GL",0,5,.05)=""
^DD(344.41,"GL",0,7,.07)=""
^DD(344.41,"GL",0,8,.08)=""
^DD(344.41,"GL",0,9,.09)=""
^DD(344.41,"GL",0,10,.1)=""
^DD(344.41,"GL",0,11,.11)=""
^DD(344.41,"GL",0,12,.12)=""
^DD(344.41,"GL",0,13,.13)=""
^DD(344.41,"GL",0,14,.14)=""
^DD(344.41,"GL",0,15,.15)=""
^DD(344.41,"GL",0,16,.16)=""
^DD(344.41,"GL",0,17,.17)=""
^DD(344.41,"GL",1,0,1)=""
^DD(344.41,"GL",2,0,2)=""
^DD(344.41,"IX",.01)=""
^DD(344.41,"IX",.02)=""
^DD(344.41,"IX",.05)=""
^DD(344.41,"IX",.07)=""
^DD(344.41,"IX",.12)=""
^DD(344.41,"IX",.14)=""
^DD(344.41,"RQ",.01)=""
^DD(344.41,"SB",344.411,1)=""
^DD(344.41,"SB",344.412,2)=""
^DD(344.411,0)="RAW DATA SUB-FIELD^^.01^1"
^DD(344.411,0,"DT")="3020924"
^DD(344.411,0,"NM","RAW DATA")=""
^DD(344.411,0,"UP")="344.41"
^DD(344.411,.01,0)="RAW DATA^WL^^0;1^Q"
^DD(344.411,.01,3)="Enter the raw data associated with this EOB record"
^DD(344.411,.01,21,0)="^^3^3^3020924^"
^DD(344.411,.01,21,1,0)="This is the raw data received in a message for an EOB record in error."
^DD(344.411,.01,21,2,0)="It is saved here so the data is not lost if needed for transfer to"
^DD(344.411,.01,21,3,0)="another station or for recovery of data unable to be stored in IB."
^DD(344.411,.01,"DT")="3020924"
^DD(344.411,"B","RAW DATA",.01)=""
^DD(344.411,"GL",0,1,.01)=""
^DD(344.412,0)="RESOLUTION LOG SUB-FIELD^^.01^1"
^DD(344.412,0,"DT")="3021030"
^DD(344.412,0,"NM","RESOLUTION LOG")=""
^DD(344.412,0,"UP")="344.41"
^DD(344.412,.01,0)="RESOLUTION LOG^WL^^0;1^Q"
^DD(344.412,.01,3)="Enter a description of the attempts to resolve any exception"
^DD(344.412,.01,21,0)="^^2^2^3021030^"
^DD(344.412,.01,21,1,0)="This is the log used to keep track of the actions/results of any attempts"
^DD(344.412,.01,21,2,0)="to resolve the exceptions associated with this EOB detail record."
^DD(344.412,.01,"DT")="3021030"
^DD(344.412,"B","RESOLUTION LOG",.01)=""
^DD(344.412,"GL",0,1,.01)=""
^DD(344.42,0)="ERA LEVEL ADJUSTMENTS SUB-FIELD^^.04^4"
^DD(344.42,0,"DT")="3030311"
^DD(344.42,0,"IX","B",344.42,.01)=""
^DD(344.42,0,"NM","ERA LEVEL ADJUSTMENTS")=""
^DD(344.42,0,"UP")="344.4"
^DD(344.42,.01,0)="REFERENCE NUMBER^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(344.42,.01,1,0)="^.1"
^DD(344.42,.01,1,1,0)="344.42^B"
^DD(344.42,.01,1,1,1)="S ^RCY(344.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(344.42,.01,1,1,2)="K ^RCY(344.4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(344.42,.01,3)="Answer must be 1-30 characters in length."
^DD(344.42,.01,21,0)="^.001^1^1^3021223^^"
^DD(344.42,.01,21,1,0)="This is the bill # or other reference number that applies to the adjustment"
^DD(344.42,.01,"DT")="3021223"
^DD(344.42,.02,0)="ADJUSTMENT CODE^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(344.42,.02,3)="Answer must be 1-5 characters in length."
^DD(344.42,.02,21,0)="^^1^1^3021223^"
^DD(344.42,.02,21,1,0)="This is the X12 code for the reason for the adjustment."
^DD(344.42,.02,"DT")="3021223"
^DD(344.42,.03,0)="ADJUSTMENT AMOUNT^NJ15,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999999.99)!(X<-999999999999.99) X"
^DD(344.42,.03,3)="Type a Dollar Amount between -999999999999.99 and 999999999999.99, 2 Decimal Digits"
^DD(344.42,.03,21,0)="^^1^1^3021223^"
^DD(344.42,.03,21,1,0)="This is the amount of the adjustment."
^DD(344.42,.03,"DT")="3021223"
^DD(344.42,.04,0)="ADJUSTMENT TEXT^F^^0;4^K:$L(X)>190!($L(X)<1) X"
^DD(344.42,.04,3)="Answer must be 1-190 characters in length."
^DD(344.42,.04,21,0)="^^1^1^3030311^"
^DD(344.42,.04,21,1,0)="This is the text that describes the adjustment code."
^DD(344.42,.04,"DT")="3030311"
^DD(344.42,"B","ADJUSTMENT AMOUNT",.03)=""
^DD(344.42,"B","ADJUSTMENT CODE",.02)=""
^DD(344.42,"B","ADJUSTMENT TEXT",.04)=""
^DD(344.42,"B","REFERENCE NUMBER",.01)=""
^DD(344.42,"GL",0,1,.01)=""
^DD(344.42,"GL",0,2,.02)=""
^DD(344.42,"GL",0,3,.03)=""
^DD(344.42,"GL",0,4,.04)=""
^DD(344.42,"IX",.01)=""
^DD(344.49,0)="FIELD^^3^9"
^DD(344.49,0,"DDA")="N"
^DD(344.49,0,"DT")="3030620"
^DD(344.49,0,"IX","AINUSE",344.493,.05)=""
^DD(344.49,0,"IX","B",344.49,.01)=""
^DD(344.49,0,"NM","EDI LOCKBOX EOB WORKLIST")=""
^DD(344.49,0,"VR")="4.5"
^DD(344.49,0,"VRPK")="PRCA"
^DD(344.49,.01,0)="ERA REFERENCE^RP344.4'X^RCY(344.4,^0;1^S:$D(X) DINUM=X Q"
^DD(344.49,.01,1,0)="^.1"
^DD(344.49,.01,1,1,0)="344.49^B"
^DD(344.49,.01,1,1,1)="S ^RCY(344.49,""B"",$E(X,1,30),DA)="""""
^DD(344.49,.01,1,1,2)="K ^RCY(344.49,""B"",$E(X,1,30),DA)"
^DD(344.49,.01,3)="Enter the reference to the ERA that caused this scratch pad record to exist."
^DD(344.49,.01,21,0)="^^2^2^3030203^"
^DD(344.49,.01,21,1,0)="This is the pointer to the record in file 344.4 that contains the ERA"
^DD(344.49,.01,21,2,0)="detail as received from the EDI Lockbox transmission."
^DD(344.49,.01,"DT")="3030203"
^DD(344.49,.02,0)="RECEIPT #^P344'^RCY(344,^0;2^Q"
^DD(344.49,.02,3)="Enter the receipt number that was created from this entry."
^DD(344.49,.02,5,1,0)="344.4^.08^2"
^DD(344.49,.02,21,0)="^^2^2^3030204^"
^DD(344.49,.02,21,1,0)="This is the pointer to the receipt entry that was created as a result of"
^DD(344.49,.02,21,2,0)="this EDI Lockbox Worklist entry."
^DD(344.49,.02,"DT")="3030204"
^DD(344.49,.03,0)="TOTAL PAYMENT RECEIVED^NJ16,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999)!(X<0) X"
^DD(344.49,.03,3)="Type a Dollar Amount between 0 and 9999999999999, 2 Decimal Digits"
^DD(344.49,.03,21,0)="^^3^3^3030204^"
^DD(344.49,.03,21,1,0)="This is the total amount of money that was received in conjunction with"
^DD(344.49,.03,21,2,0)="the ERA.  This amount must equal the total amount being posted in the"
^DD(344.49,.03,21,3,0)="receipt."
^DD(344.49,.03,"DT")="3030204"
^DD(344.49,.04,0)="CHECK #^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(344.49,.04,3)="Answer must be 1-15 characters in length."
^DD(344.49,.04,21,0)="^.001^3^3^3030522^^^"
^DD(344.49,.04,21,1,0)="This is the paper check number that is matched to this ERA."
^DD(344.49,.04,21,2,0)="It will be included on each receipt transaction if the receipt is"
^DD(344.49,.04,21,3,0)="created through the EOB Worklist options."
^DD(344.49,.04,"DT")="3030508"
^DD(344.49,.05,0)="CHECK DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.49,.05,3)="Enter the date on the bank's check."
^DD(344.49,.05,21,0)="^^1^1^3030620^"
^DD(344.49,.05,21,1,0)="This is the date on the check."
^DD(344.49,.05,"DT")="3030620"
^DD(344.49,.06,0)="BANK ROUTING #^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(344.49,.06,3)="Answer must be 1-15 characters in length."
^DD(344.49,.06,21,0)="^^1^1^3030620^"
^DD(344.49,.06,21,1,0)="This is the bank routing number to be put on the receipt."
^DD(344.49,.06,"DT")="3030620"
^DD(344.49,1,0)="SEQUENCE #^344.491A^^1;0"
^DD(344.49,1,"DT")="3030214"
^DD(344.49,2,0)="USER PREFERENCE^344.492PA^^2;0"
^DD(344.49,2,21,0)="^.001^3^3^3040316^^"
^DD(344.49,2,21,1,0)="This is a collection of all the preferences recorded for a user so default"
^DD(344.49,2,21,2,0)="settings can be applied customized by user when the worklist entry is"
^DD(344.49,2,21,3,0)="selected."
^DD(344.49,3,0)="BATCH^344.493I^^3;0"
^DD(344.49,3,21,0)="^.001^3^3^3040316^^"
^DD(344.49,3,21,1,0)="This multiple field holds a record for each batch defined for the ERA."
^DD(344.49,3,21,2,0)="It will hold the number of the batch, the name of the batch and other"
^DD(344.49,3,21,3,0)="data related specifically to each batch within the ERA."
^DD(344.49,3,"DT")="3040115"
^DD(344.49,"B","BANK ROUTING #",.06)=""
^DD(344.49,"B","BATCH",3)=""
^DD(344.49,"B","CHECK #",.04)=""
^DD(344.49,"B","CHECK DATE",.05)=""
^DD(344.49,"B","ERA REFERENCE",.01)=""
^DD(344.49,"B","RECEIPT #",.02)=""
^DD(344.49,"B","SEQUENCE #",1)=""
^DD(344.49,"B","TOTAL PAYMENT RECEIVED",.03)=""
^DD(344.49,"B","USER PREFERENCE",2)=""
^DD(344.49,"GL",0,1,.01)=""
^DD(344.49,"GL",0,2,.02)=""
^DD(344.49,"GL",0,3,.03)=""
^DD(344.49,"GL",0,4,.04)=""
^DD(344.49,"GL",0,5,.05)=""
^DD(344.49,"GL",0,6,.06)=""
^DD(344.49,"GL",1,0,1)=""
^DD(344.49,"GL",2,0,2)=""
^DD(344.49,"GL",3,0,3)=""
^DD(344.49,"IX",.01)=""
^DD(344.49,"RQ",.01)=""
^DD(344.49,"SB",344.491,1)=""
^DD(344.49,"SB",344.492,2)=""
^DD(344.49,"SB",344.493,3)=""
^DD(344.491,0)="SEQUENCE # SUB-FIELD^^4^20"
^DD(344.491,0,"DT")="3030612"
^DD(344.491,0,"IX","ABAT",344.491,.14)=""
^DD(344.491,0,"IX","AC",344.4914,.02)=""
^DD(344.491,0,"IX","ANV",344.491,.13)=""
^DD(344.491,0,"IX","ASEQ",344.491,.01)=""
^DD(344.491,0,"IX","B",344.491,.01)=""
^DD(344.491,0,"NM","SEQUENCE #")=""
^DD(344.491,0,"UP")="344.49"
^DD(344.491,.01,0)="ERA SEQUENCE #^MNJ7,3^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(344.491,.01,1,0)="^.1"
^DD(344.491,.01,1,1,0)="344.491^B"
^DD(344.491,.01,1,1,1)="S ^RCY(344.49,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(344.491,.01,1,1,2)="K ^RCY(344.49,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(344.491,.01,1,2,0)="344.491^ASEQ^MUMPS"
^DD(344.491,.01,1,2,1)="S:(X\1=X) ^RCY(344.49,DA(1),1,""ASEQ"",X,DA)="""""
^DD(344.491,.01,1,2,2)="K:(X\1=X) ^RCY(344.49,DA(1),1,""ASEQ"",X,DA)"
^DD(344.491,.01,1,2,3)="Do not delete"
^DD(344.491,.01,1,2,"DT")="3030219"
^DD(344.491,.01,3)="Type a Number between 1 and 999, 3 Decimal Digits"
^DD(344.491,.01,21,0)="^.001^5^5^3030214^^^^"
^DD(344.491,.01,21,1,0)="This field contains a number consisting of a whole number and optionally"
^DD(344.491,.01,21,2,0)="a decimal.  The whole number represents the place holder for the line in"
^DD(344.491,.01,21,3,0)="the original ERA that was used to initially create the scratch pad.  The"
^DD(344.491,.01,21,4,0)="decimal portion represents additional lines that have been added to break"
^DD(344.491,.01,21,5,0)="down and further define the allocation of this payment."
^DD(344.491,.01,"DT")="3030219"
^DD(344.491,.02,0)="CLAIM #^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(344.491,.02,3)="Answer must be 1-15 characters in length."
^DD(344.491,.02,21,0)="^.001^2^2^3030204^^"
^DD(344.491,.02,21,1,0)="This is the claim # that will be posted against when/if this line is added"
^DD(344.491,.02,21,2,0)="to a receipt.  If this field is blank, assume SUSPENSE as the account."
^DD(344.491,.02,"DT")="3030204"
^DD(344.491,.03,0)="AMOUNT TO POST ON RECEIPT^NJ16,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999)!(X<0) X"
^DD(344.491,.03,3)="Type a Dollar Amount between 0 and 9999999999999, 2 Decimal Digits"
^DD(344.491,.03,5,1,0)="344.491^.06^1"
^DD(344.491,.03,21,0)="^^1^1^3030204^"
^DD(344.491,.03,21,1,0)="This is the amount of money to post for this line item on the receipt."
^DD(344.491,.03,"DT")="3030204"
^DD(344.491,.04,0)="INCLUDE ON RECEIPT^S^1:YES;0:NO;^0;4^Q"
^DD(344.491,.04,3)="Enter a '1' (YES) to include this line on a receipt."
^DD(344.491,.04,21,0)="^^3^3^3030204^"
^DD(344.491,.04,21,1,0)="Responding YES here will force a line item with the data contained on"
^DD(344.491,.04,21,2,0)="this record to be added to the EDI Lockbox receipt that will be created"
^DD(344.491,.04,21,3,0)="from this worklist entry."
^DD(344.491,.04,"DT")="3030204"
^DD(344.491,.05,0)="AMT OF PAYMENT^NJ16,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999999)!(X<-9999999999999) X"
^DD(344.491,.05,3)="Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits"
^DD(344.491,.05,21,0)="^.001^3^3^3030204^^^^"
^DD(344.491,.05,21,1,0)="This is the amount of money paid for the claim in the ERA.  If this"
^DD(344.491,.05,21,2,0)="amount is negative, it indicates an adjustment of this amount was found"
^DD(344.491,.05,21,3,0)="on the ERA for the claim."
^DD(344.491,.05,"DT")="3030204"
^DD(344.491,.06,0)="NET AMOUNT OF PAYMENT^NJ16,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999999)!(X<-9999999999999) X"
^DD(344.491,.06,1,0)="^.1"
^DD(344.491,.06,1,1,0)="^^TRIGGER^344.491^.03"
^DD(344.491,.06,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)'<0 I X S X=DIV S Y(1)=$S($D(^RCY(344.49,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(344.491,.06,1,1,1.4)"
^DD(344.491,.06,1,1,1.4)="S DIH=$G(^RCY(344.49,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=344.491,DIG=.03 D ^DICR"
^DD(344.491,.06,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RCY(344.49,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(344.491,.06,1,1,2.4)"
^DD(344.491,.06,1,1,2.4)="S DIH=$G(^RCY(344.49,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=344.491,DIG=.03 D ^DICR"
^DD(344.491,.06,1,1,"CREATE CONDITION")="NET AMOUNT OF PAYMENT'<0"
^DD(344.491,.06,1,1,"CREATE VALUE")="NET AMOUNT OF PAYMENT"
^DD(344.491,.06,1,1,"DELETE VALUE")="@"
^DD(344.491,.06,1,1,"FIELD")="AMOUNT TO POST ON RECEIPT"
^DD(344.491,.06,3)="Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits"
^DD(344.491,.06,21,0)="^^1^1^3030204^"
^DD(344.491,.06,21,1,0)="This is the amount of the original payment less any adjustments recorded."
^DD(344.491,.06,"DT")="3030204"
^DD(344.491,.07,0)="AR BILL #^P430'^PRCA(430,^0;7^Q"
^DD(344.491,.07,3)="Enter the AR bill # that corresponds to the claim # on this record."
^DD(344.491,.07,21,0)="^^3^3^3030206^"
^DD(344.491,.07,21,1,0)="This is the pointer to file 430 for the AR bill that corresponds to the"
^DD(344.491,.07,21,2,0)="claim # on file for the payment.  Thi sfield will be blank for 'SUSPENSE'"
^DD(344.491,.07,21,3,0)="items."
^DD(344.491,.07,"DT")="3030206"
^DD(344.491,.08,0)="NET AMT OF ADJUSTMENTS^NJ16,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999999)!(X<-9999999999999) X"
^DD(344.491,.08,1,0)="^.1^^0"
^DD(344.491,.08,3)="Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits"
^DD(344.491,.08,21,0)="^^1^1^3030206^"
^DD(344.491,.08,21,1,0)="This is the total net amount of all adjustments for the line item."
^DD(344.491,.08,"DT")="3030423"
^DD(344.491,.09,0)="ORIGINAL ERA SEQUENCES^F^^0;9^K:$L(X)>10!($L(X)<1) X"
^DD(344.491,.09,3)="Answer must be 1-10 characters in length."
^DD(344.491,.09,21,0)="^^6^6^3030214^"
^DD(344.491,.09,21,1,0)="This is the list of sequence #'s in the original ERA that was used to"
^DD(344.491,.09,21,2,0)="create this sequence in the scratch pad.  It will only exist on the"
^DD(344.491,.09,21,3,0)="record whose sequence # is a whole number.  An ERA level adjustment"
^DD(344.491,.09,21,4,0)="will be listed as ADJ followed by the ien of the adjustment in the"
^DD(344.491,.09,21,5,0)="ERA record in file 344.42.  The referenced sequence numbers are separated"
^DD(344.491,.09,21,6,0)="by commas."
^DD(344.491,.09,"DT")="3030214"
^DD(344.491,.1,0)="RECEIPT LINE COMMENT^F^^0;10^K:$L(X)>60!($L(X)<1) X"
^DD(344.491,.1,3)="Answer must be 1-60 characters in length."
^DD(344.491,.1,21,0)="^^2^2^3030429^"
^DD(344.491,.1,21,1,0)="This is the text that will be used to create a bill comment for the"
^DD(344.491,.1,21,2,0)="bill referenced by this sequence."
^DD(344.491,.1,"DT")="3030429"
^DD(344.491,.11,0)="REVIEWED?^S^0:NO;1:YES;I:IN PROCESS;^0;11^Q"
^DD(344.491,.11,3)="Enter the code that corresponds to the review status of this EOB."
^DD(344.491,.11,21,0)="^.001^1^1^3030612^^"
^DD(344.491,.11,21,1,0)="This is the review status of the EOB."
^DD(344.491,.11,"DT")="3030612"
^DD(344.491,.12,0)="REVIEWED BY^P200'^VA(200,^0;12^Q"
^DD(344.491,.12,3)="Enter the name of the user who performed the revieew for this EOB"
^DD(344.491,.12,21,0)="^^1^1^3030612^"
^DD(344.491,.12,21,1,0)="This is the name of the user who performed the revieew for this EOB."
^DD(344.491,.12,"DT")="3030612"
^DD(344.491,.13,0)="VERIFIED^S^0:NO;1:YES;^0;13^Q"
^DD(344.491,.13,1,0)="^.1"
^DD(344.491,.13,1,1,0)="344.491^ANV"
^DD(344.491,.13,1,1,1)="S ^RCY(344.49,DA(1),1,""ANV"",$E(X,1,30),DA)="""""
^DD(344.491,.13,1,1,2)="K ^RCY(344.49,DA(1),1,""ANV"",$E(X,1,30),DA)"
^DD(344.491,.13,1,1,3)="Do not delete"
^DD(344.491,.13,1,1,"DT")="3040212"
^DD(344.491,.13,3)="Enter a 1 (YES) if the EEOB's verification data has been matched correctly to the VistA claim's data."
^DD(344.491,.13,21,0)="^.001^3^3^3040316^^"
^DD(344.491,.13,21,1,0)="This is the flag that indicates the EEOB's verification data has been "
^DD(344.491,.13,21,2,0)="matched correctly to the VistA claim's data, either automatically or"
^DD(344.491,.13,21,3,0)="manually to determine that the claim paid was the correct claim."
^DD(344.491,.13,"DT")="3040212"
^DD(344.491,.14,0)="BATCH #^NJ3,0^^0;14^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.491,.14,1,0)="^.1"
^DD(344.491,.14,1,1,0)="344.491^ABAT"
^DD(344.491,.14,1,1,1)="S ^RCY(344.49,DA(1),1,""ABAT"",$E(X,1,30),DA)="""""
^DD(344.491,.14,1,1,2)="K ^RCY(344.49,DA(1),1,""ABAT"",$E(X,1,30),DA)"
^DD(344.491,.14,1,1,3)="Do not delete"
^DD(344.491,.14,1,1,"DT")="3040219"
^DD(344.491,.14,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(344.491,.14,21,0)="^.001^2^2^3040316^^"
^DD(344.491,.14,21,1,0)="This is the # assigned to this EEOB for the batch in which it will be "
^DD(344.491,.14,21,2,0)="accessible."
^DD(344.491,.14,"DT")="3040219"
^DD(344.491,1,0)="ADJUSTMENT LOG^344.4911A^^1;0"
^DD(344.491,2.01,0)="ADDED BY^P200'^VA(200,^2;1^Q"
^DD(344.491,2.01,3)="Enter the name of the person who wqs responsible for creating this record."
^DD(344.491,2.01,21,0)="^^2^2^3030218^"
^DD(344.491,2.01,21,1,0)="This is the name of the person whose actions caused this record to be"
^DD(344.491,2.01,21,2,0)="created."
^DD(344.491,2.01,"DT")="3030218"
^DD(344.491,2.02,0)="DATE/TIME ADDED^D^^2;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.491,2.02,3)="Enter the date and time the record was added."
^DD(344.491,2.02,21,0)="^.001^1^1^3030218^^"
^DD(344.491,2.02,21,1,0)="This is the date and time the record was first added to the scratch pad."
^DD(344.491,2.02,"DT")="3030218"
^DD(344.491,2.03,0)="LAST EDITED BY^P200'^VA(200,^2;3^Q"
^DD(344.491,2.03,3)="Enter the name of the person who last edited this record."
^DD(344.491,2.03,21,0)="^^1^1^3030218^"
^DD(344.491,2.03,21,1,0)="This is the aname of the person who last edited this record."
^DD(344.491,2.03,"DT")="3030218"
^DD(344.491,2.04,0)="LAST EDITED DATE/TIME^D^^2;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.491,2.04,3)="Enter the date and time this record was last edited."
^DD(344.491,2.04,21,0)="^^1^1^3030218^"
^DD(344.491,2.04,21,1,0)="This is the date and time this record was last edited."
^DD(344.491,2.04,"DT")="3030218"
^DD(344.491,4,0)="REVIEW^344.4914D^^4;0"
^DD(344.491,4,21,0)="^.001^2^2^3040102^^"
^DD(344.491,4,21,1,0)="This is the data relating to the notes entered by the user when reviewing"
^DD(344.491,4,21,2,0)="the EEOB."
^DD(344.491,"B","ADDED BY",2.01)=""
^DD(344.491,"B","ADJUSTMENT LOG",1)=""
^DD(344.491,"B","AMOUNT TO POST ON RECEIPT",.03)=""
^DD(344.491,"B","AMT OF PAYMENT",.05)=""
^DD(344.491,"B","AR BILL #",.07)=""
^DD(344.491,"B","BATCH #",.14)=""
^DD(344.491,"B","CLAIM #",.02)=""
^DD(344.491,"B","DATE/TIME ADDED",2.02)=""
^DD(344.491,"B","ERA SEQUENCE #",.01)=""
^DD(344.491,"B","INCLUDE ON RECEIPT",.04)=""
^DD(344.491,"B","LAST EDITED BY",2.03)=""
^DD(344.491,"B","LAST EDITED DATE/TIME",2.04)=""
^DD(344.491,"B","NET AMOUNT OF PAYMENT",.06)=""
^DD(344.491,"B","NET AMT OF ADJUSTMENTS",.08)=""
^DD(344.491,"B","ORIGINAL ERA SEQUENCES",.09)=""
^DD(344.491,"B","RECEIPT LINE COMMENT",.1)=""
^DD(344.491,"B","REVIEW",4)=""
^DD(344.491,"B","REVIEWED BY",.12)=""
^DD(344.491,"B","REVIEWED?",.11)=""
^DD(344.491,"B","VERIFIED",.13)=""
^DD(344.491,"GL",0,1,.01)=""
^DD(344.491,"GL",0,2,.02)=""
^DD(344.491,"GL",0,3,.03)=""
^DD(344.491,"GL",0,4,.04)=""
^DD(344.491,"GL",0,5,.05)=""
^DD(344.491,"GL",0,6,.06)=""
^DD(344.491,"GL",0,7,.07)=""
^DD(344.491,"GL",0,8,.08)=""
^DD(344.491,"GL",0,9,.09)=""
^DD(344.491,"GL",0,10,.1)=""
^DD(344.491,"GL",0,11,.11)=""
^DD(344.491,"GL",0,12,.12)=""
^DD(344.491,"GL",0,13,.13)=""
^DD(344.491,"GL",0,14,.14)=""
^DD(344.491,"GL",1,0,1)=""
^DD(344.491,"GL",2,1,2.01)=""
^DD(344.491,"GL",2,2,2.02)=""
^DD(344.491,"GL",2,3,2.03)=""
^DD(344.491,"GL",2,4,2.04)=""
^DD(344.491,"GL",4,0,4)=""
^DD(344.491,"IX",.01)=""
^DD(344.491,"IX",.06)=""
^DD(344.491,"IX",.13)=""
^DD(344.491,"IX",.14)=""
^DD(344.491,"SB",344.4911,1)=""
^DD(344.491,"SB",344.4914,4)=""
^DD(344.4911,0)="ADJUSTMENT LOG SUB-FIELD^^.09^9"
^DD(344.4911,0,"DT")="3030220"
^DD(344.4911,0,"IX","B",344.4911,.01)=""
^DD(344.4911,0,"NM","ADJUSTMENT LOG")=""
^DD(344.4911,0,"UP")="344.491"
^DD(344.4911,.01,0)="ADJUSTMENT #^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.4911,.01,1,0)="^.1"
^DD(344.4911,.01,1,1,0)="344.4911^B"
^DD(344.4911,.01,1,1,1)="S ^RCY(344.49,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(344.4911,.01,1,1,2)="K ^RCY(344.49,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(344.4911,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(344.4911,.01,21,0)="^^2^2^3030204^"
^DD(344.4911,.01,21,1,0)="This is a sequential # used to enumerate the adjustments made as a result"
^DD(344.4911,.01,21,2,0)="of or to this line item."
^DD(344.4911,.01,"DT")="3030204"
^DD(344.4911,.02,0)="ADJUSTMENT CAUSE^RS^0:ADJUSTED DUE TO ANOTHER CLAIM;1:CAUSED ANOTHER CLAIM TO BE ADJUSTED;2:RETRACTION - SPECIFIC CLAIM;3:RETRACTION - NO SPECIFIC CLAIM;4:ADDITIONAL PAYMENT - SPECIFIC CLAIM;5:ADDITIONAL PAYMENT - NO SPECIFIC CLAIM;^0;2^Q"
^DD(344.4911,.02,3)="Enter the code that corresponds to the reason the adjustment record is being added."
^DD(344.4911,.02,21,0)="^.001^5^5^3030214^^^^"
^DD(344.4911,.02,21,1,0)="This is a flag that indicates if the adjustment was caused by this line"
^DD(344.4911,.02,21,2,0)="item, if the adjustment is a result of another line item needing to decrease"
^DD(344.4911,.02,21,3,0)="the amount of money being applied for this ERA or if the adjustment is a"
^DD(344.4911,.02,21,4,0)="result of a reversal or additional payment on the ERA for a specific or"
^DD(344.4911,.02,21,5,0)="non-specific claim."
^DD(344.4911,.02,"DT")="3030214"
^DD(344.4911,.03,0)="ADJUSTMENT AMOUNT^NJ16,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999999)!(X<-9999999999999) X"
^DD(344.4911,.03,3)="Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits"
^DD(344.4911,.03,21,0)="^.001^2^2^3030204^^^"
^DD(344.4911,.03,21,1,0)="This is the amount that will be used to either reduce or increase the net"
^DD(344.4911,.03,21,2,0)="amount of payment for the line item."
^DD(344.4911,.03,"DT")="3030204"
^DD(344.4911,.04,0)="REFERENCE #^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(344.4911,.04,3)="Answer must be 1-30 characters in length."
^DD(344.4911,.04,21,0)="^^2^2^3030204^"
^DD(344.4911,.04,21,1,0)="This is the reference # or claim # that was provided to identify the"
^DD(344.4911,.04,21,2,0)="cause of the adjustment."
^DD(344.4911,.04,"DT")="3030204"
^DD(344.4911,.05,0)="BACKGROUND ACTION^S^0:NONE;1:DECREASE ADJUSTMENT;2:COMMENT;3:ADD LINE TO RECEIPT;^0;5^Q"
^DD(344.4911,.05,3)="Enter the code that corresponds to the action that should be applied to this record as a result of this adjustment."
^DD(344.4911,.05,21,0)="^.001^2^2^3030214^^"
^DD(344.4911,.05,21,1,0)="This indicates the action that should be taken to apply this adjustment to"
^DD(344.4911,.05,21,2,0)="the claim referenced when the receipt is ready to be created."
^DD(344.4911,.05,"DT")="3030214"
^DD(344.4911,.06,0)="USER OFFSET ACTION NEEDED^S^0:NO;1:YES;^0;6^Q"
^DD(344.4911,.06,3)="Enter a 1 (YES) if the user needs to offset this adjustment with a dec adj on another claim."
^DD(344.4911,.06,21,0)="^.001^2^2^3030214^^^"
^DD(344.4911,.06,21,1,0)="This indicates what action the user is expected to take to reconcile"
^DD(344.4911,.06,21,2,0)="the adjustment so the ERA is ready for receipt creation."
^DD(344.4911,.06,"DT")="3030214"
^DD(344.4911,.07,0)="ERA SEQUENCE REF^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(344.4911,.07,1,0)="^.1^^0"
^DD(344.4911,.07,3)="Answer must be 1-10 characters in length."
^DD(344.4911,.07,21,0)="^^2^2^3030206^"
^DD(344.4911,.07,21,1,0)="This is the reference to the actual seq or ERA adjustment record that this"
^DD(344.4911,.07,21,2,0)="adjustment was received in."
^DD(344.4911,.07,"DT")="3030214"
^DD(344.4911,.08,0)="BACKGROUND ACTION COMPLETED^S^0:NO;1:YES;^0;8^Q"
^DD(344.4911,.08,3)="Enter a 1 (YES) if the background action has been completed."
^DD(344.4911,.08,21,0)="^^3^3^3030214^"
^DD(344.4911,.08,21,1,0)="This field keeps track of whther or not the background action that has"
^DD(344.4911,.08,21,2,0)="been assigned to this adjustment has been completed or not.  This prevents"
^DD(344.4911,.08,21,3,0)="decrease adjustments from being performed more than once."
^DD(344.4911,.08,"DT")="3030214"
^DD(344.4911,.09,0)="ADJUSTMENT COMMENT^F^^0;9^K:$L(X)>60!($L(X)<1) X"
^DD(344.4911,.09,3)="Answer must be 1-60 characters in length."
^DD(344.4911,.09,21,0)="^^2^2^3030220^"
^DD(344.4911,.09,21,1,0)="This is the comment that will be placed in the bill record as a result of "
^DD(344.4911,.09,21,2,0)="this adjustment."
^DD(344.4911,.09,"DT")="3030225"
^DD(344.4911,"B","ADJUSTMENT #",.01)=""
^DD(344.4911,"B","ADJUSTMENT AMOUNT",.03)=""
^DD(344.4911,"B","ADJUSTMENT CAUSE",.02)=""
^DD(344.4911,"B","ADJUSTMENT COMMENT",.09)=""
^DD(344.4911,"B","BACKGROUND ACTION",.05)=""
^DD(344.4911,"B","BACKGROUND ACTION COMPLETED",.08)=""
^DD(344.4911,"B","ERA SEQUENCE REF",.07)=""
^DD(344.4911,"B","REFERENCE #",.04)=""
^DD(344.4911,"B","USER OFFSET ACTION NEEDED",.06)=""
^DD(344.4911,"GL",0,1,.01)=""
^DD(344.4911,"GL",0,2,.02)=""
^DD(344.4911,"GL",0,3,.03)=""
^DD(344.4911,"GL",0,4,.04)=""
^DD(344.4911,"GL",0,5,.05)=""
^DD(344.4911,"GL",0,6,.06)=""
^DD(344.4911,"GL",0,7,.07)=""
^DD(344.4911,"GL",0,8,.08)=""
^DD(344.4911,"GL",0,9,.09)=""
^DD(344.4911,"IX",.01)=""
^DD(344.4911,"RQ",.02)=""
^DD(344.4914,0)="REVIEW SUB-FIELD^^.04^4"
^DD(344.4914,0,"DT")="3040108"
^DD(344.4914,0,"IX","B",344.4914,.01)=""
^DD(344.4914,0,"NM","REVIEW")=""
^DD(344.4914,0,"UP")="344.491"
^DD(344.4914,.01,0)="REVIEW DATE/TIME^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.4914,.01,1,0)="^.1"
^DD(344.4914,.01,1,1,0)="344.4914^B"
^DD(344.4914,.01,1,1,1)="S ^RCY(344.49,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(344.4914,.01,1,1,2)="K ^RCY(344.49,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(344.4914,.01,3)="Enter the date/time that the review was entered."
^DD(344.4914,.01,21,0)="^.001^1^1^3040102^^"
^DD(344.4914,.01,21,1,0)="The date/time the review comment was entered."
^DD(344.4914,.01,"DT")="3040102"
^DD(344.4914,.02,0)="REVIEWED BY^P200'^VA(200,^0;2^Q"
^DD(344.4914,.02,1,0)="^.1"
^DD(344.4914,.02,1,1,0)="344.491^AC"
^DD(344.4914,.02,1,1,1)="S ^RCY(344.49,DA(2),1,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(344.4914,.02,1,1,2)="K ^RCY(344.49,DA(2),1,""AC"",$E(X,1,30),DA(1),DA)"
^DD(344.4914,.02,1,1,3)="Do not delete"
^DD(344.4914,.02,1,1,"%D",0)="^^1^1^3040108^"
^DD(344.4914,.02,1,1,"%D",1,0)="This xref allows a quick lookup of one user's comments for the EEOB."
^DD(344.4914,.02,1,1,"DT")="3040108"
^DD(344.4914,.02,3)="Enter the name of the person who entered this review."
^DD(344.4914,.02,21,0)="^^2^2^3040102^"
^DD(344.4914,.02,21,1,0)="This is the pointer to the NEW PERSON file for the person who entered"
^DD(344.4914,.02,21,2,0)="the review comment."
^DD(344.4914,.02,"DT")="3040108"
^DD(344.4914,.03,0)="COMMENT^344.49141^^1;0"
^DD(344.4914,.04,0)="LAST EDITED DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(344.4914,.04,3)="Enter the date/time this comment was last edited."
^DD(344.4914,.04,21,0)="^^1^1^3040108^"
^DD(344.4914,.04,21,1,0)="This is the date/time this comment was last edited."
^DD(344.4914,.04,"DT")="3040108"
^DD(344.4914,"B","COMMENT",.03)=""
^DD(344.4914,"B","LAST EDITED DATE/TIME",.04)=""
^DD(344.4914,"B","REVIEW DATE/TIME",.01)=""
^DD(344.4914,"B","REVIEWED BY",.02)=""
^DD(344.4914,"GL",0,1,.01)=""
^DD(344.4914,"GL",0,2,.02)=""
^DD(344.4914,"GL",0,4,.04)=""
^DD(344.4914,"GL",1,0,.03)=""
^DD(344.4914,"IX",.01)=""
^DD(344.4914,"IX",.02)=""
^DD(344.4914,"SB",344.49141,.03)=""
^DD(344.49141,0)="COMMENT SUB-FIELD^^.01^1"
^DD(344.49141,0,"DT")="3040106"
^DD(344.49141,0,"NM","COMMENT")=""
^DD(344.49141,0,"UP")="344.4914"
^DD(344.49141,.01,0)="COMMENT^WL^^0;1^Q"
^DD(344.49141,.01,3)="Enter the review comment pertaining to this EEOB."
^DD(344.49141,.01,21,0)="^^2^2^3040106^"
^DD(344.49141,.01,21,1,0)="The review comment as entered by the user regarding their review of this"
^DD(344.49141,.01,21,2,0)="EEOB."
^DD(344.49141,.01,"DT")="3040106"
^DD(344.49141,"B","COMMENT",.01)=""
^DD(344.49141,"GL",0,1,.01)=""
^DD(344.492,0)="USER PREFERENCE SUB-FIELD^^.03^3"
^DD(344.492,0,"DT")="3040102"
^DD(344.492,0,"IX","B",344.492,.01)=""
^DD(344.492,0,"NM","USER PREFERENCE")=""
^DD(344.492,0,"UP")="344.49"
^DD(344.492,.01,0)="CLERK^P200'^VA(200,^0;1^Q"
^DD(344.492,.01,1,0)="^.1"
^DD(344.492,.01,1,1,0)="344.492^B"
^DD(344.492,.01,1,1,1)="S ^RCY(344.49,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(344.492,.01,1,1,2)="K ^RCY(344.49,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(344.492,.01,3)="Enter the user for whom the preference are being stored."
^DD(344.492,.01,21,0)="^.001^2^2^3040102^^"
^DD(344.492,.01,21,1,0)="This is the user whose preferences are being recorded for this worklist"
^DD(344.492,.01,21,2,0)="entry."
^DD(344.492,.01,"DT")="3040102"
^DD(344.492,.02,0)="REVIEW ON?^S^0:NO;1:YES;^0;2^Q"
^DD(344.492,.02,3)="Enter a 1 (YES) if review data should be shown on entry to the worklist."
^DD(344.492,.02,21,0)="^^2^2^3040102^"
^DD(344.492,.02,21,1,0)="This flag indicates whether or not the last time this user accessed"
^DD(344.492,.02,21,2,0)="the worklist, the review data was displayed."
^DD(344.492,.02,"DT")="3040102"
^DD(344.492,.03,0)="LAST ORDER SELECTION^S^N:NO ORDER;F:ZERO-PAYMENTS FIRST;L:ZERO-PAYMENTS LAST;^0;3^Q"
^DD(344.492,.03,3)="Enter the code corresponding to the sort order the user last used when accessing the worklist entry."
^DD(344.492,.03,21,0)="^^1^1^3040102^"
^DD(344.492,.03,21,1,0)="This is the sort order the user last used when accessing the worklist entry."
^DD(344.492,.03,"DT")="3040106"
^DD(344.492,"B","CLERK",.01)=""
^DD(344.492,"B","LAST ORDER SELECTION",.03)=""
^DD(344.492,"B","REVIEW ON?",.02)=""
^DD(344.492,"GL",0,1,.01)=""
^DD(344.492,"GL",0,2,.02)=""
^DD(344.492,"GL",0,3,.03)=""
^DD(344.492,"IX",.01)=""
^DD(344.493,0)="BATCH SUB-FIELD^^.08^8"
^DD(344.493,0,"DT")="3040212"
^DD(344.493,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(344.493,0,"ID",.03)="D EN^DDIOL($S('$P(^(0),U,3):""NOT "",1:"""")_""READY TO POST"",,""?$X+2"")"
^DD(344.493,0,"IX","B",344.493,.01)=""
^DD(344.493,0,"IX","C",344.493,.02)=""
^DD(344.493,0,"NM","BATCH")=""
^DD(344.493,0,"UP")="344.49"
^DD(344.493,.01,0)="BATCH #^MNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(344.493,.01,1,0)="^.1"
^DD(344.493,.01,1,1,0)="344.493^B"
^DD(344.493,.01,1,1,1)="S ^RCY(344.49,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(344.493,.01,1,1,2)="K ^RCY(344.49,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(344.493,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(344.493,.01,21,0)="^.001^1^1^3040115^^"
^DD(344.493,.01,21,1,0)="This is the batch # assigned to a group of EEOBs within the ERA record."
^DD(344.493,.01,"DT")="3040210"
^DD(344.493,.02,0)="NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(344.493,.02,1,0)="^.1"
^DD(344.493,.02,1,1,0)="344.493^C"
^DD(344.493,.02,1,1,1)="S ^RCY(344.49,DA(1),3,""C"",$E(X,1,30),DA)="""""
^DD(344.493,.02,1,1,2)="K ^RCY(344.49,DA(1),3,""C"",$E(X,1,30),DA)"
^DD(344.493,.02,1,1,3)="Do not delete"
^DD(344.493,.02,1,1,"DT")="3040422"
^DD(344.493,.02,3)="Answer must be 1-30 characters in length."
^DD(344.493,.02,21,0)="^^1^1^3040115^"
^DD(344.493,.02,21,1,0)="This is the name assigned to the batch."
^DD(344.493,.02,"DT")="3040422"
^DD(344.493,.03,0)="READY FOR POSTING^SO^0:NO;1:YES;^0;3^Q"
^DD(344.493,.03,2)="S Y(0)=Y S Y=$S(Y:"""",1:""NOT "")_""READY TO POST"""
^DD(344.493,.03,2.1)="S Y=$S(Y:"""",1:""NOT "")_""READY TO POST"""
^DD(344.493,.03,3)="Enter 1 (YES) if all the batch's records are ready to be posted."
^DD(344.493,.03,21,0)="^^3^3^3040115^"
^DD(344.493,.03,21,1,0)="This is a flag that indicates whether or not a user has indicated the batch"
^DD(344.493,.03,21,2,0)="is ready to be posted.  All batches must be flagged as ready before a"
^DD(344.493,.03,21,3,0)="receipt can be created from the worklist entry."
^DD(344.493,.03,"DT")="3040212"
^DD(344.493,.04,0)="POSTING FLAG SET BY^P200'^VA(200,^0;4^Q"
^DD(344.493,.04,3)="Enter the name of the user who set the flag to 1 for batch ready to post."
^DD(344.493,.04,21,0)="^^1^1^3040115^"
^DD(344.493,.04,21,1,0)="This is the name of the user who set the flag to 1 for batch ready to post."
^DD(344.493,.04,"DT")="3040115"
^DD(344.493,.05,0)="BATCH IN USE^S^0:NO;1:YES;^0;5^Q"
^DD(344.493,.05,1,0)="^.1"
^DD(344.493,.05,1,1,0)="344.49^AINUSE"
^DD(344.493,.05,1,1,1)="S ^RCY(344.49,""AINUSE"",$E(X,1,30),DA(1),DA)="""""
^DD(344.493,.05,1,1,2)="K ^RCY(344.49,""AINUSE"",$E(X,1,30),DA(1),DA)"
^DD(344.493,.05,1,1,3)="Do not delete"
^DD(344.493,.05,1,1,"%D",0)="^^2^2^3040211^"
^DD(344.493,.05,1,1,"%D",1,0)="This xref allows for a quick check to see if any batches within the ERA"
^DD(344.493,.05,1,1,"%D",2,0)="are in use or not."
^DD(344.493,.05,1,1,"DT")="3040211"
^DD(344.493,.05,3)="Enter 1 (YES) if the batch is currently being used."
^DD(344.493,.05,21,0)="^^1^1^3040211^"
^DD(344.493,.05,21,1,0)="If the batch is currently being used, this field will be set to YES (1)."
^DD(344.493,.05,"DT")="3040211"
^DD(344.493,.06,0)="CRITERIA USED^S^1:MAX #;2:NAME RANGE;3:PAYMENT PART/FULL/NONE;4:COPAY/NO COPAY;^0;6^Q"
^DD(344.493,.06,3)="Enter the code for the type of criteria selected for the batches."
^DD(344.493,.06,21,0)="^^2^2^3040212^"
^DD(344.493,.06,21,1,0)="This is the code to identify the type of criteria selected to create"
^DD(344.493,.06,21,2,0)="the batches."
^DD(344.493,.06,"DT")="3040212"
^DD(344.493,.07,0)="START VALUE^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(344.493,.07,3)="Answer must be 1-30 characters in length."
^DD(344.493,.07,21,0)="^.001^2^2^3040212^^"
^DD(344.493,.07,21,1,0)="This is the first data value to be used to determine if the EEOB should"
^DD(344.493,.07,21,2,0)="belong to this batch when assigning batch #'s to the EEOBs."
^DD(344.493,.07,"DT")="3040212"
^DD(344.493,.08,0)="END VALUE^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(344.493,.08,3)="Answer must be 1-30 characters in length."
^DD(344.493,.08,21,0)="^^2^2^3040212^"
^DD(344.493,.08,21,1,0)="This is the last data value to be used to determine if the EEOB should"
^DD(344.493,.08,21,2,0)="belong to this batch when assigning batch #'s to the EEOBs."
^DD(344.493,.08,"DT")="3040212"
^DD(344.493,"B","BATCH #",.01)=""
^DD(344.493,"B","BATCH IN USE",.05)=""
^DD(344.493,"B","CRITERIA USED",.06)=""
^DD(344.493,"B","END VALUE",.08)=""
^DD(344.493,"B","NAME",.02)=""
^DD(344.493,"B","POSTING FLAG SET BY",.04)=""
^DD(344.493,"B","READY FOR POSTING",.03)=""
^DD(344.493,"B","START VALUE",.07)=""
^DD(344.493,"GL",0,1,.01)=""
^DD(344.493,"GL",0,2,.02)=""
^DD(344.493,"GL",0,3,.03)=""
^DD(344.493,"GL",0,4,.04)=""
^DD(344.493,"GL",0,5,.05)=""
^DD(344.493,"GL",0,6,.06)=""
^DD(344.493,"GL",0,7,.07)=""
^DD(344.493,"GL",0,8,.08)=""
^DD(344.493,"IX",.01)=""
^DD(344.493,"IX",.02)=""
^DD(344.493,"IX",.05)=""
^DD(344.5,0)="FIELD^^5^20"
^DD(344.5,0,"DT")="3030425"
^DD(344.5,0,"IX","AMSEQ",344.5,.09)=""
^DD(344.5,0,"IX","B",344.5,.01)=""
^DD(344.5,0,"NM","AR EDI LOCKBOX MESSAGES")=""
^DD(344.5,0,"VR")="4.5"
^DD(344.5,0,"VRPK")="PRCA"
^DD(344.5,.01,0)="MESSAGE ID^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(344.5,.01,1,0)="^.1"
^DD(344.5,.01,1,1,0)="344.5^B"
^DD(344.5,.01,1,1,1)="S ^RCY(344.5,""B"",$E(X,1,30),DA)="""""
^DD(344.5,.01,1,1,2)="K ^RCY(344.5,""B"",$E(X,1,30),DA)"
^DD(344.5,.01,3)="Answer must be 1-20 characters in length."
^DD(344.5,.01,21,0)="^^2^2^3020603^"
^DD(344.5,.01,21,1,0)="This is the id to identify the message uniquely to the system.  It is"
^DD(344.5,.01,21,2,0)="calculated from the mail message number that delivers it to the system."
^DD(344.5,.01,"DT")="3020603"
^DD(344.5,.02,0)="MESSAGE TYPE^S^835ERA:ERA RECORD;835XFR:EOB TRANSFER;^0;2^Q"
^DD(344.5,.02,3)="Enter the code to specify which type of information the message will contain."
^DD(344.5,.02,21,0)="^^1^1^3020603^"
^DD(344.5,.02,21,1,0)="This is the type of information contained in the transmission record."
^DD(344.5,.02,"DT")="3020606"
^DD(344.5,.03,0)="DATE RECORDED^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.5,.03,3)="Enter the time the record was recorded at the site."
^DD(344.5,.03,21,0)="^^1^1^3020603^"
^DD(344.5,.03,21,1,0)="This is the actual time the record was added to the file at the site."
^DD(344.5,.03,"DT")="3030113"
^DD(344.5,.04,0)="UPDATE STATUS^S^0:NOT UPDATING;1:UPDATING;^0;4^Q"
^DD(344.5,.04,3)="Enter a 1 if VistA is currently being updated with the information in this record."
^DD(344.5,.04,21,0)="^.001^2^2^3020604^^^"
^DD(344.5,.04,21,1,0)="This is the indicator of whether or not the VistA database is being"
^DD(344.5,.04,21,2,0)="updated with the data contained in the electronic transmission record."
^DD(344.5,.04,"DT")="3020604"
^DD(344.5,.05,0)="UPDATE TASK^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(344.5,.05,3)="Answer must be 1-20 characters in length."
^DD(344.5,.05,21,0)="^^2^2^3020603^"
^DD(344.5,.05,21,1,0)="This is the # of the background task that is updating the VistA data"
^DD(344.5,.05,21,2,0)="with the information in this electronic transmission record."
^DD(344.5,.05,"DT")="3020603"
^DD(344.5,.06,0)="ALLOW AUTO-UPDATE^S^0:NO;1:YES;^0;6^Q"
^DD(344.5,.06,3)="Enter YES (1) to allow this record to auto update VistA"
^DD(344.5,.06,21,0)="^^3^3^3020603^"
^DD(344.5,.06,21,1,0)="This field controls whether the data in the record can be automatically"
^DD(344.5,.06,21,2,0)="updated into the VistA database or if it must be manually reviewed"
^DD(344.5,.06,21,3,0)="and updated."
^DD(344.5,.06,"DT")="3020603"
^DD(344.5,.07,0)="ERA TOTALS RECORD^P344.4'^RCY(344.4,^0;7^Q"
^DD(344.5,.07,3)="Enter the ERA record created by this message"
^DD(344.5,.07,21,0)="^.001^1^1^3021206^^"
^DD(344.5,.07,21,1,0)="This is the ERA totals batch entry that was created by this message."
^DD(344.5,.07,"DT")="3021206"
^DD(344.5,.08,0)="EXCEPTION STATUS^S^0:NO EXCEPTION;1:EXCEPTION EXISTS;^0;8^Q"
^DD(344.5,.08,3)="Enter a 1 if this message should appear on the exception processing list."
^DD(344.5,.08,21,0)="^^2^2^3020705^"
^DD(344.5,.08,21,1,0)="This is the indicator used to inlcude/exclude the record from the"
^DD(344.5,.08,21,2,0)="exception processing list."
^DD(344.5,.08,"DT")="3021010"
^DD(344.5,.09,0)="MULTI SEQUENCE NUMBER^NJ10,0^^0;9^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.5,.09,1,0)="^.1"
^DD(344.5,.09,1,1,0)="344.5^AMSEQ"
^DD(344.5,.09,1,1,1)="S ^RCY(344.5,""AMSEQ"",$E(X,1,30),DA)="""""
^DD(344.5,.09,1,1,2)="K ^RCY(344.5,""AMSEQ"",$E(X,1,30),DA)"
^DD(344.5,.09,1,1,3)="Do not delete"
^DD(344.5,.09,1,1,"%D",0)="^^1^1^3020819^"
^DD(344.5,.09,1,1,"%D",1,0)="This cross reference is needed to associate all 'pieces' of an ERA"
^DD(344.5,.09,1,1,"DT")="3020819"
^DD(344.5,.09,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(344.5,.09,21,0)="^^2^2^3020819^"
^DD(344.5,.09,21,1,0)="This number is used to associate ERA messages that must be broken up and"
^DD(344.5,.09,21,2,0)="sent in pieces from the FSC due to size constraints on the DMI Queues."
^DD(344.5,.09,"DT")="3020819"
^DD(344.5,.1,0)="EXCEPTION CATEGORY^S^1:SUMMARY RECORD STORE ERROR;2:PARTIAL MESSAGE RECEIVED;3:EOB TRANSFERRED IN;4:TRANSMISSION STORE ERROR;5:ERROR STORING EOB TRANSFER IN;6:NO VALID CLAIMS;99:OTHER;^0;10^Q"
^DD(344.5,.1,3)="Enter the code that corresponds to the exception condition of the ERA/EEOB record"
^DD(344.5,.1,21,0)="^.001^2^2^3040102^^^^"
^DD(344.5,.1,21,1,0)="This is the specific exception that occurred to cause the ERA/EEOB record"
^DD(344.5,.1,21,2,0)="to be placed in an exception status."
^DD(344.5,.1,"DT")="3040102"
^DD(344.5,.11,0)="MAIL MESSAGE^F^^0;11^K:$L(X)>60!($L(X)<1) X"
^DD(344.5,.11,3)="Answer must be 1-60 characters in length."
^DD(344.5,.11,21,0)="^.001^2^2^3030114^^^"
^DD(344.5,.11,21,1,0)="This is the list of message #s the ERA/EOB record was delivered in,"
^DD(344.5,.11,21,2,0)="separated by commas."
^DD(344.5,.11,"DT")="3030114"
^DD(344.5,.12,0)="TRANSFERRED EOB RECEIVED FROM^F^^0;12^K:$L(X)>64!($L(X)<1) X"
^DD(344.5,.12,3)="Answer must be 1-64 characters in length."
^DD(344.5,.12,21,0)="^^1^1^3021028^"
^DD(344.5,.12,21,1,0)="This is the name of the domain from which the transfer was received"
^DD(344.5,.12,"DT")="3030425"
^DD(344.5,.13,0)="REFERENCE AT OTHER SITE^F^^0;13^K:$L(X)>30!($L(X)<3)!'(X?1N.N1"";""1N.N) X"
^DD(344.5,.13,3)="Answer must be 3-30 characters in length."
^DD(344.5,.13,21,0)="^.001^4^4^3030115^^"
^DD(344.5,.13,21,1,0)="This is the field that holds the reference to the entry in file 344.4"
^DD(344.5,.13,21,2,0)="that correspond to this EOB message if it is a transfer EOB type."
^DD(344.5,.13,21,3,0)="The format is ien of file 344 followed by a semicolon (;) followed by the"
^DD(344.5,.13,21,4,0)="ien of the entry in file 344.41."
^DD(344.5,.13,"DT")="3030115"
^DD(344.5,.14,0)="EOB ACCEPTANCE SENT^S^0:NO;1:YES;^0;14^Q"
^DD(344.5,.14,3)="Enter 1 if this EOB has been confirmed as accepted to the sending site."
^DD(344.5,.14,21,0)="^^3^3^3030117^"
^DD(344.5,.14,21,1,0)="This is a flag that indicates whether or not an EOB has been confirmed as"
^DD(344.5,.14,21,2,0)="being accepted by the sending site.  This is used so multiple attempts at"
^DD(344.5,.14,21,3,0)="filing do not send multiple confirmation records."
^DD(344.5,.14,"DT")="3030117"
^DD(344.5,1,0)="DISPLAY DATA^344.51^^1;0"
^DD(344.5,1,21,0)="^^2^2^3021125^"
^DD(344.5,1,21,1,0)="This is the formatted data, extracted from the raw text of the message"
^DD(344.5,1,21,2,0)="that will be used to update VistA.  "
^DD(344.5,1,"DT")="3020604"
^DD(344.5,2,0)="RAW MESSAGE DATA^344.52^^2;0"
^DD(344.5,2,21,0)="^^2^2^3021125^"
^DD(344.5,2,21,1,0)="This is the actual text that was received at the site in the "
^DD(344.5,2,21,2,0)="electronic transmission."
^DD(344.5,3,0)="SEQUENCE RECEIVED^344.53A^^S;0"
^DD(344.5,3,21,0)="^^3^3^3020819^"
^DD(344.5,3,21,1,0)="This multiple field stores all the sequences received for an ERA"
^DD(344.5,3,21,2,0)="that was trasnmitted in 'pieces' due to the DMI queue's limit on the"
^DD(344.5,3,21,3,0)="size of messages that can be transmitted."
^DD(344.5,3.01,0)="ERA PAYER NAME^F^^3;1^K:$L(X)>30!($L(X)<1) X"
^DD(344.5,3.01,3)="Answer must be 1-30 characters in length."
^DD(344.5,3.01,21,0)="^^1^1^3030425^"
^DD(344.5,3.01,21,1,0)="This is the name of the payer as provided on the ERA transmission record."
^DD(344.5,3.01,"DT")="3030425"
^DD(344.5,4,0)="BILL REFERENCE^344.54A^^B;0"
^DD(344.5,4,21,0)="^^1^1^3020820^"
^DD(344.5,4,21,1,0)="This is a list of the bills included in the ERA record."
^DD(344.5,4,"DT")="3020924"
^DD(344.5,5,0)="EXCEPTION MESSAGES^344.55^^EX;0"
^DD(344.5,5,21,0)="^^1^1^3021125^"
^DD(344.5,5,21,1,0)="This is where the text of the error or exception condition is stored."
^DD(344.5,"B","ALLOW AUTO-UPDATE",.06)=""
^DD(344.5,"B","BILL REFERENCE",4)=""
^DD(344.5,"B","DATE RECORDED",.03)=""
^DD(344.5,"B","DISPLAY DATA",1)=""
^DD(344.5,"B","EOB ACCEPTANCE SENT",.14)=""
^DD(344.5,"B","ERA PAYER NAME",3.01)=""
^DD(344.5,"B","ERA TOTALS RECORD",.07)=""
^DD(344.5,"B","EXCEPTION CATEGORY",.1)=""
^DD(344.5,"B","EXCEPTION MESSAGES",5)=""
^DD(344.5,"B","EXCEPTION STATUS",.08)=""
^DD(344.5,"B","MAIL MESSAGE",.11)=""
^DD(344.5,"B","MESSAGE ID",.01)=""
^DD(344.5,"B","MESSAGE TYPE",.02)=""
^DD(344.5,"B","MULTI SEQUENCE NUMBER",.09)=""
^DD(344.5,"B","RAW MESSAGE DATA",2)=""
^DD(344.5,"B","REFERENCE AT OTHER SITE",.13)=""
^DD(344.5,"B","SEQUENCE RECEIVED",3)=""
^DD(344.5,"B","TRANSFERRED EOB RECEIVED FROM",.12)=""
^DD(344.5,"B","UPDATE STATUS",.04)=""
^DD(344.5,"B","UPDATE TASK",.05)=""
^DD(344.5,"GL",0,1,.01)=""
^DD(344.5,"GL",0,2,.02)=""
^DD(344.5,"GL",0,3,.03)=""
^DD(344.5,"GL",0,4,.04)=""
^DD(344.5,"GL",0,5,.05)=""
^DD(344.5,"GL",0,6,.06)=""
^DD(344.5,"GL",0,7,.07)=""
^DD(344.5,"GL",0,8,.08)=""
^DD(344.5,"GL",0,9,.09)=""
^DD(344.5,"GL",0,10,.1)=""
^DD(344.5,"GL",0,11,.11)=""
^DD(344.5,"GL",0,12,.12)=""
^DD(344.5,"GL",0,13,.13)=""
^DD(344.5,"GL",0,14,.14)=""
^DD(344.5,"GL",1,0,1)=""
^DD(344.5,"GL",2,0,2)=""
^DD(344.5,"GL",3,1,3.01)=""
^DD(344.5,"GL","B",0,4)=""
^DD(344.5,"GL","EX",0,5)=""
^DD(344.5,"GL","S",0,3)=""
^DD(344.5,"IX",.01)=""
^DD(344.5,"IX",.09)=""
^DD(344.5,"RQ",.01)=""
^DD(344.5,"SB",344.51,1)=""
^DD(344.5,"SB",344.52,2)=""
^DD(344.5,"SB",344.53,3)=""
^DD(344.5,"SB",344.54,4)=""
^DD(344.5,"SB",344.55,5)=""
^DD(344.51,0)="DISPLAY DATA SUB-FIELD^^.01^1"
^DD(344.51,0,"DT")="3020603"
^DD(344.51,0,"NM","DISPLAY DATA")=""
^DD(344.51,0,"UP")="344.5"
^DD(344.51,.01,0)="DISPLAY DATA^WL^^0;1^Q"
^DD(344.51,.01,3)="Enter the data in the format appropriate to the message type."
^DD(344.51,.01,21,0)="^.001^2^2^3020603^^"
^DD(344.51,.01,21,1,0)="This is the formatted data, extracted from the raw text of the message"
^DD(344.51,.01,21,2,0)="that will be used to update VistA."
^DD(344.51,.01,"DT")="3020604"
^DD(344.51,"B","DISPLAY DATA",.01)=""
^DD(344.51,"GL",0,1,.01)=""
^DD(344.52,0)="RAW MESSAGE DATA SUB-FIELD^^.01^1"
^DD(344.52,0,"DT")="3020603"
^DD(344.52,0,"NM","RAW MESSAGE DATA")=""
^DD(344.52,0,"UP")="344.5"
^DD(344.52,.01,0)="RAW MESSAGE DATA^WL^^0;1^Q"
^DD(344.52,.01,3)="Enter the raw data that was received at the site"
^DD(344.52,.01,21,0)="^.001^2^2^3020603^^^"
^DD(344.52,.01,21,1,0)="This is the actual text that was received at the site in the"
^DD(344.52,.01,21,2,0)="electronic transmission."
^DD(344.52,.01,"DT")="3020603"
^DD(344.52,"B","RAW MESSAGE DATA",.01)=""
^DD(344.52,"GL",0,1,.01)=""
^DD(344.53,0)="SEQUENCE RECEIVED SUB-FIELD^^.04^4"
^DD(344.53,0,"DT")="3030114"
^DD(344.53,0,"IX","B",344.53,.01)=""
^DD(344.53,0,"NM","SEQUENCE RECEIVED")=""
^DD(344.53,0,"UP")="344.5"
^DD(344.53,.01,0)="SEQUENCE RECEIVED^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.53,.01,1,0)="^.1"
^DD(344.53,.01,1,1,0)="344.53^B"
^DD(344.53,.01,1,1,1)="S ^RCY(344.5,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(344.53,.01,1,1,2)="K ^RCY(344.5,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(344.53,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(344.53,.01,21,0)="^.001^1^1^3020819^^"
^DD(344.53,.01,21,1,0)="This is the sequence # of the message 'piece' for the ERA received."
^DD(344.53,.01,"DT")="3020819"
^DD(344.53,.02,0)="LAST SEQUENCE^S^0:NO;1:YES;^0;2^Q"
^DD(344.53,.02,3)="Enter 1 if this is the last sequence # expected"
^DD(344.53,.02,21,0)="^^2^2^3020820^"
^DD(344.53,.02,21,1,0)="This is the flag that indicates the last sequence # for a message"
^DD(344.53,.02,21,2,0)="transmitted in parts was received."
^DD(344.53,.02,"DT")="3020820"
^DD(344.53,.03,0)="DATE/TIME RECEIVED^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(344.53,.03,3)="Enter the date/time this record was entered"
^DD(344.53,.03,21,0)="^^2^2^3020820^"
^DD(344.53,.03,21,1,0)="This is the date/time the sequence 'piece' of the ERA was received and"
^DD(344.53,.03,21,2,0)="stored at the site."
^DD(344.53,.03,"DT")="3020820"
^DD(344.53,.04,0)="MAIL MESSAGE^NJ15,0^^0;4^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(344.53,.04,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(344.53,.04,21,0)="^.001^1^1^3030114^^"
^DD(344.53,.04,21,1,0)="This is the number of the mail message the sequence was received in."
^DD(344.53,.04,"DT")="3030114"
^DD(344.53,"B","DATE/TIME RECEIVED",.03)=""
^DD(344.53,"B","LAST SEQUENCE",.02)=""
^DD(344.53,"B","MAIL MESSAGE",.04)=""
^DD(344.53,"B","SEQUENCE RECEIVED",.01)=""
^DD(344.53,"GL",0,1,.01)=""
^DD(344.53,"GL",0,2,.02)=""
^DD(344.53,"GL",0,3,.03)=""
^DD(344.53,"GL",0,4,.04)=""
^DD(344.53,"IX",.01)=""
^DD(344.54,0)="BILL REFERENCE SUB-FIELD^^.02^2"
^DD(344.54,0,"DT")="3020820"
^DD(344.54,0,"IX","B",344.54,.01)=""
^DD(344.54,0,"NM","BILL REFERENCE")=""
^DD(344.54,0,"UP")="344.5"
^DD(344.54,.01,0)="BILL REFERENCE^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(344.54,.01,1,0)="^.1"
^DD(344.54,.01,1,1,0)="344.54^B"
^DD(344.54,.01,1,1,1)="S ^RCY(344.5,DA(1),""B"",""B"",$E(X,1,30),DA)="""""
^DD(344.54,.01,1,1,2)="K ^RCY(344.5,DA(1),""B"",""B"",$E(X,1,30),DA)"
^DD(344.54,.01,3)="Answer must be 1-20 characters in length."
^DD(344.54,.01,21,0)="^.001^1^1^3020820^^"
^DD(344.54,.01,21,1,0)="This is a bill included in this ERA record."
^DD(344.54,.01,"DT")="3020924"
^DD(344.54,.02,0)="FOUND IN AR BILL FILE^S^0:NO;1:YES;^0;2^Q"
^DD(344.54,.02,3)="Enter a 1 if this bill can be found in the VistA AR bill file."
^DD(344.54,.02,21,0)="^^1^1^3020820^"
^DD(344.54,.02,21,1,0)="This indicates whether or not the referenced bill exists at the VistA site."
^DD(344.54,.02,"DT")="3020923"
^DD(344.54,"B","BILL REFERENCE",.01)=""
^DD(344.54,"B","FOUND IN AR BILL FILE",.02)=""
^DD(344.54,"GL",0,1,.01)=""
^DD(344.54,"GL",0,2,.02)=""
^DD(344.54,"IX",.01)=""
^DD(344.55,0)="EXCEPTION MESSAGES SUB-FIELD^^.01^1"
^DD(344.55,0,"DT")="3021017"
^DD(344.55,0,"NM","EXCEPTION MESSAGES")=""
^DD(344.55,0,"UP")="344.5"
^DD(344.55,.01,0)="EXCEPTION MESSAGES^WL^^0;1^Q"
^DD(344.55,.01,3)="Enter a description of the exception existing for this ERA record."
^DD(344.55,.01,21,0)="^.001^1^1^3021017^^"
^DD(344.55,.01,21,1,0)="This is the free text explanation of any exceptions found for this record."
^DD(344.55,.01,"DT")="3021017"
^DD(344.55,"B","EXCEPTION MESSAGES",.01)=""
^DD(344.55,"GL",0,1,.01)=""
^DD(347,0)="FIELD^^2^13"
^DD(347,0,"DDA")="N"
^DD(347,0,"DT")="2941110"
^DD(347,0,"ID","WR1")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RC(347.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(347.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(347,0,"ID","WR2")="W ""   "",$E($P(^(0),U,5),4,5)_""-""_$E($P(^(0),U,5),6,7)_""-""_$E($P(^(0),U,5),2,3)"
^DD(347,0,"ID","WR3")="W ""   "",@(""$P($P($C(59)_$S($D(^DD(347,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(347,0,"ID","WR4")="W ""   "",$P(^(0),U,6)"
^DD(347,0,"IX","AD",347,.05)=""
^DD(347,0,"IX","B",347,.01)=""
^DD(347,0,"IX","C",347,.09)=""
^DD(347,0,"IX","D",347,.06)=""
^DD(347,0,"IX","FMS",347,2)=""
^DD(347,0,"NM","AR FMS DOCUMENT")=""
^DD(347,0,"VR")="4.5"
^DD(347,.01,0)="NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(347,.01,1,0)="^.1"
^DD(347,.01,1,1,0)="347^B"
^DD(347,.01,1,1,1)="S ^RC(347,""B"",$E(X,1,30),DA)="""""
^DD(347,.01,1,1,2)="K ^RC(347,""B"",$E(X,1,30),DA)"
^DD(347,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(347,.01,21,0)="^^1^1^2941019^"
^DD(347,.01,21,1,0)="Incremental number to record FMS documents in file."
^DD(347,.01,"DT")="2940616"
^DD(347,.02,0)="TYPE^RP347.1'^RC(347.1,^0;2^Q"
^DD(347,.02,21,0)="^^1^1^2941019^"
^DD(347,.02,21,1,0)="Type of FMS document being recorded."
^DD(347,.02,"DT")="2940504"
^DD(347,.03,0)="STATUS^RS^0:NOT-SENT;1:SENT;2:ACCEPTED;3:REJECTED;^0;3^Q"
^DD(347,.03,21,0)="^^1^1^2941019^"
^DD(347,.03,21,1,0)="Status to prevent/allow transmission of FMS documents."
^DD(347,.03,"DT")="2940504"
^DD(347,.05,0)="DATE LAST UPDATED^RD^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(347,.05,1,0)="^.1"
^DD(347,.05,1,1,0)="347^AD"
^DD(347,.05,1,1,1)="S ^RC(347,""AD"",$E(X,1,30),DA)="""""
^DD(347,.05,1,1,2)="K ^RC(347,""AD"",$E(X,1,30),DA)"
^DD(347,.05,1,1,"DT")="2940504"
^DD(347,.05,21,0)="^^1^1^2941019^"
^DD(347,.05,21,1,0)="System date/time of last activity of entry."
^DD(347,.05,"DT")="2940504"
^DD(347,.06,0)="IDENTIFIER^RF^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(347,.06,1,0)="^.1"
^DD(347,.06,1,1,0)="347^D"
^DD(347,.06,1,1,1)="S ^RC(347,""D"",$E(X,1,30),DA)="""""
^DD(347,.06,1,1,2)="K ^RC(347,""D"",$E(X,1,30),DA)"
^DD(347,.06,1,1,"DT")="2940616"
^DD(347,.06,3)="Answer must be 3-20 characters in length."
^DD(347,.06,21,0)="^^4^4^2941019^"
^DD(347,.06,21,1,0)="Identifies what type of entry and internal number that caused an AR FMS"
^DD(347,.06,21,2,0)="document entry."
^DD(347,.06,21,3,0)=" "
^DD(347,.06,21,4,0)="i.e. T1 = AR transaction (file 433), transaction number 1."
^DD(347,.06,"DT")="2940616"
^DD(347,.07,0)="AR BILL NUMBER^P430'^PRCA(430,^0;7^Q"
^DD(347,.07,21,0)="^^1^1^2941019^"
^DD(347,.07,21,1,0)="AR bill number from file 430."
^DD(347,.07,"DT")="2940616"
^DD(347,.08,0)="AR TRANSACTION^P433'^PRCA(433,^0;8^Q"
^DD(347,.08,21,0)="^^1^1^2941019^"
^DD(347,.08,21,1,0)="AR transaction number from file 433."
^DD(347,.08,"DT")="2940616"
^DD(347,.09,0)="FMS DOCUMENT NUMBER^RF^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>22!($L(X)<10) X"
^DD(347,.09,1,0)="^.1"
^DD(347,.09,1,1,0)="347^C"
^DD(347,.09,1,1,1)="S ^RC(347,""C"",$E(X,1,30),DA)="""""
^DD(347,.09,1,1,2)="K ^RC(347,""C"",$E(X,1,30),DA)"
^DD(347,.09,1,1,"DT")="2940616"
^DD(347,.09,3)="Answer must be 10-22 characters in length."
^DD(347,.09,21,0)="^^1^1^2941019^"
^DD(347,.09,21,1,0)="FMS document number sent to FMS."
^DD(347,.09,"DT")="2940817"
^DD(347,.1,0)="FMS BATCH NUMBER^F^^0;10^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(347,.1,3)="Answer must be 6 characters in length."
^DD(347,.1,21,0)="^^1^1^2941019^"
^DD(347,.1,21,1,0)="FMS batch number on a modified document."
^DD(347,.1,"DT")="2940616"
^DD(347,1.01,0)="FUND^F^^1;1^K:$L(X)>4!($L(X)<4) X"
^DD(347,1.01,3)="Answer must be 4 characters in length."
^DD(347,1.01,21,0)="^^1^1^2941114^^"
^DD(347,1.01,21,1,0)="FMS accounting FUND.  Used for summary documents."
^DD(347,1.01,"DT")="2940504"
^DD(347,1.02,0)="AMOUNT^NJ9,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(347,1.02,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(347,1.02,21,0)="^^1^1^2941019^"
^DD(347,1.02,21,1,0)="Amount of FMS document.  Used on Summary documents."
^DD(347,1.02,"DT")="2940706"
^DD(347,1.03,0)="RECEIPT #^P344'^RCY(344,^1;3^Q"
^DD(347,1.03,21,0)="^^1^1^2941116^^"
^DD(347,1.03,21,1,0)="This is the receipt number that was used to create FMS documents."
^DD(347,1.03,"DT")="2941110"
^DD(347,2,0)="FMS TRANSMISSION DATE^DI^^2;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(347,2,1,0)="^.1"
^DD(347,2,1,1,0)="347^FMS"
^DD(347,2,1,1,1)="S ^RC(347,""FMS"",$E(X,1,30),DA)="""""
^DD(347,2,1,1,2)="K ^RC(347,""FMS"",$E(X,1,30),DA)"
^DD(347,2,1,1,"%D",0)="^^2^2^3030814^"
^DD(347,2,1,1,"%D",1,0)="This is a cross-reference on the FMS TRANSMISSION DATE field.  That field "
^DD(347,2,1,1,"%D",2,0)="stores the date that the document was transmitted to FMS."
^DD(347,2,1,1,"DT")="3030814"
^DD(347,2,21,0)="^.001^1^1^3030814^^"
^DD(347,2,21,1,0)="This field contains the date this document was transmitted to FMS."
^DD(347,2,23,0)="^^2^2^3030814^"
^DD(347,2,23,1,0)=" "
^DD(347,2,23,2,0)=" "
^DD(347,2,"DT")="3030819"
^DD(347,"B","AMOUNT",1.02)=""
^DD(347,"B","AR BILL NUMBER",.07)=""
^DD(347,"B","AR TRANSACTION",.08)=""
^DD(347,"B","DATE LAST UPDATED",.05)=""
^DD(347,"B","FMS BATCH NUMBER",.1)=""
^DD(347,"B","FMS DOCUMENT NUMBER",.09)=""
^DD(347,"B","FMS TRANSMISSION DATE",2)=""
^DD(347,"B","FUND",1.01)=""
^DD(347,"B","IDENTIFIER",.06)=""
^DD(347,"B","NUMBER",.01)=""
^DD(347,"B","RECEIPT #",1.03)=""
^DD(347,"B","STATUS",.03)=""
^DD(347,"B","TYPE",.02)=""
^DD(347,"GL",0,1,.01)=""
^DD(347,"GL",0,2,.02)=""
^DD(347,"GL",0,3,.03)=""
^DD(347,"GL",0,5,.05)=""
^DD(347,"GL",0,6,.06)=""
^DD(347,"GL",0,7,.07)=""
^DD(347,"GL",0,8,.08)=""
^DD(347,"GL",0,9,.09)=""
^DD(347,"GL",0,10,.1)=""
^DD(347,"GL",1,1,1.01)=""
^DD(347,"GL",1,2,1.02)=""
^DD(347,"GL",1,3,1.03)=""
^DD(347,"GL",2,1,2)=""
^DD(347,"IX",.01)=""
^DD(347,"IX",.05)=""
^DD(347,"IX",.06)=""
^DD(347,"IX",.09)=""
^DD(347,"IX",2)=""
^DD(347,"RQ",.01)=""
^DD(347,"RQ",.02)=""
^DD(347,"RQ",.03)=""
^DD(347,"RQ",.05)=""
^DD(347,"RQ",.06)=""
^DD(347,"RQ",.09)=""
^DD(347.1,0)="FIELD^^.02^2"
^DD(347.1,0,"DT")="2940616"
^DD(347.1,0,"IX","B",347.1,.01)=""
^DD(347.1,0,"NM","AR FMS DOCUMENT TYPE")=""
^DD(347.1,0,"PT",347,.02)=""
^DD(347.1,0,"VR")="4.5"
^DD(347.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(347.1,.01,1,0)="^.1"
^DD(347.1,.01,1,1,0)="347.1^B"
^DD(347.1,.01,1,1,1)="S ^RC(347.1,""B"",$E(X,1,30),DA)="""""
^DD(347.1,.01,1,1,2)="K ^RC(347.1,""B"",$E(X,1,30),DA)"
^DD(347.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(347.1,.01,21,0)="^^1^1^2941019^"
^DD(347.1,.01,21,1,0)="Defines the AR FMS DOCUMENT type."
^DD(347.1,.02,0)="ABBREVIATION^RF^^0;2^K:$L(X)>2!($L(X)<2) X"
^DD(347.1,.02,3)="Answer must be 2 characters in length."
^DD(347.1,.02,21,0)="^^1^1^2941019^"
^DD(347.1,.02,21,1,0)="Used to identify FMS document type."
^DD(347.1,.02,"DT")="2940616"
^DD(347.1,"B","ABBREVIATION",.02)=""
^DD(347.1,"B","NAME",.01)=""
^DD(347.1,"GL",0,1,.01)=""
^DD(347.1,"GL",0,2,.02)=""
^DD(347.1,"IX",.01)=""
^DD(347.1,"RQ",.01)=""
^DD(347.1,"RQ",.02)=""
^DD(347.3,0)="FIELD^^.03^3"
^DD(347.3,0,"DDA")="N"
^DD(347.3,0,"DT")="2980313"
^DD(347.3,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(347.3,0,"ID",.03)="W ?67,$S($P($G(^RC(347.3,Y,0)),U,3):""INACTIVE"",1:"""")"
^DD(347.3,0,"IX","B",347.3,.01)=""
^DD(347.3,0,"IX","C",347.3,.02)=""
^DD(347.3,0,"NM","REVENUE SOURCE CODE")=""
^DD(347.3,0,"PT",430,255)=""
^DD(347.3,0,"VR")="4.5"
^DD(347.3,0,"VRPK")="PRCA"
^DD(347.3,.01,0)="SOURCE CODE^RFX^^0;1^I $D(X) K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(347.3,.01,1,0)="^.1"
^DD(347.3,.01,1,1,0)="347.3^B"
^DD(347.3,.01,1,1,1)="S ^RC(347.3,""B"",$E(X,1,30),DA)="""""
^DD(347.3,.01,1,1,2)="K ^RC(347.3,""B"",$E(X,1,30),DA)"
^DD(347.3,.01,3)="Enter the revenue source code to be sent to FMS."
^DD(347.3,.01,21,0)="^.001^1^1^3060130^^^^"
^DD(347.3,.01,21,1,0)="This field is used to identify the revenue source code to be sent to FMS."
^DD(347.3,.01,"DEL",1,0)="W !,""REVENUE SOURCE CODES CANNOT BE DELETED.  THEY MUST BE INACTIVATED."" I 1"
^DD(347.3,.01,"DT")="3060130"
^DD(347.3,.02,0)="NAME^RF^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(347.3,.02,1,0)="^.1"
^DD(347.3,.02,1,1,0)="347.3^C"
^DD(347.3,.02,1,1,1)="S ^RC(347.3,""C"",$E(X,1,30),DA)="""""
^DD(347.3,.02,1,1,2)="K ^RC(347.3,""C"",$E(X,1,30),DA)"
^DD(347.3,.02,1,1,"DT")="2950601"
^DD(347.3,.02,3)="Answer must be 3-50 characters in length."
^DD(347.3,.02,21,0)="^^1^1^2941114^"
^DD(347.3,.02,21,1,0)="This is the program name for the source code."
^DD(347.3,.02,"DT")="2950601"
^DD(347.3,.03,0)="INACTIVE^S^1:YES;0:NO;^0;3^Q"
^DD(347.3,.03,21,0)="^^2^2^2980313^"
^DD(347.3,.03,21,1,0)="This field will inactivate a revenue source code so it can no longer"
^DD(347.3,.03,21,2,0)="be selected and attached to a bill."
^DD(347.3,.03,"DT")="2980313"
^DD(347.3,"B","INACTIVE",.03)=""
^DD(347.3,"B","NAME",.02)=""
^DD(347.3,"B","SOURCE CODE",.01)=""
^DD(347.3,"GL",0,1,.01)=""
^DD(347.3,"GL",0,2,.02)=""
^DD(347.3,"GL",0,3,.03)=""
^DD(347.3,"IX",.01)=""
^DD(347.3,"IX",.02)=""
^DD(347.3,"RQ",.01)=""
^DD(347.3,"RQ",.02)=""
^DD(347.4,0)="FIELD^^1.01^8"
^DD(347.4,0,"DDA")="N"
^DD(347.4,0,"DT")="3040709"
^DD(347.4,0,"ID",1.01)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(347.4,0,"IX","ACR",347.4,.03)=""
^DD(347.4,0,"IX","AWR",347.4,.04)=""
^DD(347.4,0,"IX","B",347.4,.01)=""
^DD(347.4,0,"NM","AR/FMS DOCUMENTS")=""
^DD(347.4,0,"VR")="4.5"
^DD(347.4,0,"VRPK")="PRCA"
^DD(347.4,.01,0)="TRANS TYPE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(347.4,.01,1,0)="^.1"
^DD(347.4,.01,1,1,0)="347.4^B"
^DD(347.4,.01,1,1,1)="S ^PRCA(347.4,""B"",$E(X,1,30),DA)="""""
^DD(347.4,.01,1,1,2)="K ^PRCA(347.4,""B"",$E(X,1,30),DA)"
^DD(347.4,.01,3)="Answer must be 2 characters in length."
^DD(347.4,.01,21,0)="^^1^1^2941209^"
^DD(347.4,.01,21,1,0)="This field contains the trans code sent to FMS."
^DD(347.4,.01,"DT")="2941209"
^DD(347.4,.02,0)="DOCUMENT TYPE^S^1:BILLING DOCUMENT (DETAIL);2:CASH RECEIPT (DEATIL);3:CASH RECEIPT (SUMMARY);4:OVER PAYMENT;5:WRITE OFF (DETAIL);6:WRITE OFF (SUMMARY);7:STANDARD VOUCHER (SUMMARY);0:INACTIVE DOCUMENT TYPE;^0;2^Q"
^DD(347.4,.02,21,0)="^.001^1^1^3040720^^"
^DD(347.4,.02,21,1,0)="This field is the document type associated with the trans type"
^DD(347.4,.02,23,0)="^^1^1^3040720^"
^DD(347.4,.02,23,1,0)=" "
^DD(347.4,.02,"DT")="3040709"
^DD(347.4,.03,0)="CR TYPE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(347.4,.03,1,0)="^.1"
^DD(347.4,.03,1,1,0)="347.4^ACR"
^DD(347.4,.03,1,1,1)="S ^PRCA(347.4,""ACR"",$E(X,1,30),DA)="""""
^DD(347.4,.03,1,1,2)="K ^PRCA(347.4,""ACR"",$E(X,1,30),DA)"
^DD(347.4,.03,1,1,"%D",0)="^^1^1^2950110^"
^DD(347.4,.03,1,1,"%D",1,0)="This x-ref is used to look-up CR documents"
^DD(347.4,.03,1,1,"DT")="2950110"
^DD(347.4,.03,3)="Enter 2 digit CR trans code"
^DD(347.4,.03,21,0)="^^1^1^2941209^"
^DD(347.4,.03,21,1,0)="This field determines whic type of CR trans code is sent to FMS."
^DD(347.4,.03,"DT")="2950110"
^DD(347.4,.04,0)="WR TYPE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(347.4,.04,1,0)="^.1"
^DD(347.4,.04,1,1,0)="347.4^AWR"
^DD(347.4,.04,1,1,1)="S ^PRCA(347.4,""AWR"",$E(X,1,30),DA)="""""
^DD(347.4,.04,1,1,2)="K ^PRCA(347.4,""AWR"",$E(X,1,30),DA)"
^DD(347.4,.04,1,1,"%D",0)="^^1^1^2950110^"
^DD(347.4,.04,1,1,"%D",1,0)="This x-ref used to look up WR documents"
^DD(347.4,.04,1,1,"DT")="2950110"
^DD(347.4,.04,3)="Enter 2 digit write off tran type"
^DD(347.4,.04,21,0)="^^2^2^2941209^"
^DD(347.4,.04,21,1,0)="This field determines which type of trans code is sent to FMS for a WRITE"
^DD(347.4,.04,21,2,0)="OFF document."
^DD(347.4,.04,"DT")="2950110"
^DD(347.4,.05,0)="BD TYPE^F^^0;5^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(347.4,.05,3)="Answer must be 2 characters in length."
^DD(347.4,.05,"DT")="2941209"
^DD(347.4,.06,0)="TYPE^S^1:EMPLOYEE/EX-EMPLOYEE;2:VENDOR;3:ALL;^0;6^Q"
^DD(347.4,.06,21,0)="^^2^2^2950412^"
^DD(347.4,.06,21,1,0)="This field is used as a screen to limit selection of document type based"
^DD(347.4,.06,21,2,0)="on category of bill."
^DD(347.4,.06,"DT")="2950412"
^DD(347.4,.07,0)="TR TYPE^F^^0;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(347.4,.07,3)="Answer must be 2 characters in length."
^DD(347.4,.07,21,0)="^^1^1^3030911^"
^DD(347.4,.07,21,1,0)="The 2 digit FMS Code to be sent for TR documents."
^DD(347.4,.07,"DT")="3030911"
^DD(347.4,1.01,0)="DESCRIPTION^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(347.4,1.01,3)="Answer must be 3-30 characters in length."
^DD(347.4,1.01,21,0)="^^1^1^2941209^"
^DD(347.4,1.01,21,1,0)="This field describes the use of the trans code."
^DD(347.4,1.01,"DT")="2941209"
^DD(347.4,"B","BD TYPE",.05)=""
^DD(347.4,"B","CR TYPE",.03)=""
^DD(347.4,"B","DESCRIPTION",1.01)=""
^DD(347.4,"B","DOCUMENT TYPE",.02)=""
^DD(347.4,"B","TR TYPE",.07)=""
^DD(347.4,"B","TRANS TYPE",.01)=""
^DD(347.4,"B","TYPE",.06)=""
^DD(347.4,"B","WR TYPE",.04)=""
^DD(347.4,"GL",0,1,.01)=""
^DD(347.4,"GL",0,2,.02)=""
^DD(347.4,"GL",0,3,.03)=""
^DD(347.4,"GL",0,4,.04)=""
^DD(347.4,"GL",0,5,.05)=""
^DD(347.4,"GL",0,6,.06)=""
^DD(347.4,"GL",0,7,.07)=""
^DD(347.4,"GL",1,1,1.01)=""
^DD(347.4,"IX",.01)=""
^DD(347.4,"IX",.03)=""
^DD(347.4,"IX",.04)=""
^DD(347.4,"RQ",.01)=""
^DD(348,0)="FIELD^^1^2"
^DD(348,0,"DDA")="N"
^DD(348,0,"DT")="2931029"
^DD(348,0,"IX","B",348,.01)=""
^DD(348,0,"IX","C",348,1)=""
^DD(348,0,"NM","AR NATIONAL DATA BASE CRITERIA")=""
^DD(348,0,"VR")="4.5"
^DD(348,.01,0)="CODE^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<111)!(X?.E1"".""1N.N) X"
^DD(348,.01,1,0)="^.1"
^DD(348,.01,1,1,0)="348^B"
^DD(348,.01,1,1,1)="S ^RC(348,""B"",$E(X,1,30),DA)="""""
^DD(348,.01,1,1,2)="K ^RC(348,""B"",$E(X,1,30),DA)"
^DD(348,.01,3)="Type a Number between 111 and 999999, 0 Decimal Digits"
^DD(348,.01,21,0)="^^5^5^2931029^^"
^DD(348,.01,21,1,0)="This is a three part number that identifies an entry in the Accounts"
^DD(348,.01,21,2,0)="Receivable data collectors.  The first digit is the data collector"
^DD(348,.01,21,3,0)="number.  The second digit is the criteria number.  The remainder is"
^DD(348,.01,21,4,0)="the entry number. This field is used for lookup and translation"
^DD(348,.01,21,5,0)="of criteria numbers onto reports."
^DD(348,.01,23,0)="^^6^6^2931029^^"
^DD(348,.01,23,1,0)="The first digit of the code number is the AR data collector number"
^DD(348,.01,23,2,0)="(currently 1 or 2); the second digit is the criteria number (currently"
^DD(348,.01,23,3,0)="for data collector 1: 1 thru 5, for data collector 2: 1), and the third"
^DD(348,.01,23,4,0)="digit is the entry number for that data collector and criteria.  For"
^DD(348,.01,23,5,0)="example: 1220 would translate to data collector #1, criteria #2, entry"
^DD(348,.01,23,6,0)="#20."
^DD(348,.01,"DT")="2931029"
^DD(348,1,0)="PRINT NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X"
^DD(348,1,1,0)="^.1"
^DD(348,1,1,1,0)="348^C^MUMPS"
^DD(348,1,1,1,1)="S ^RC(348,""C"",+^RC(348,DA,0),X,DA)="""""
^DD(348,1,1,1,2)="K ^RC(348,""C"",+^RC(348,DA,0),X,DA)"
^DD(348,1,1,1,"%D",0)="^^2^2^2931029^"
^DD(348,1,1,1,"%D",1,0)="This cross-reference stores the print name of the entry along with"
^DD(348,1,1,1,"%D",2,0)="the code."
^DD(348,1,1,1,"DT")="2931029"
^DD(348,1,3)="Answer must be 3-60 characters in length."
^DD(348,1,21,0)="^^2^2^2941020^"
^DD(348,1,21,1,0)="This is the full category name of the national data base item and"
^DD(348,1,21,2,0)="appears on the facility report."
^DD(348,1,"DT")="2931029"
^DD(348,"B","CODE",.01)=""
^DD(348,"B","PRINT NAME",1)=""
^DD(348,"GL",0,1,.01)=""
^DD(348,"GL",0,2,1)=""
^DD(348,"IX",.01)=""
^DD(348,"IX",1)=""
^DD(348,"RQ",.01)=""
^DD(348.1,0)="FIELD^^.15^15"
^DD(348.1,0,"DT")="2980212"
^DD(348.1,0,"IX","B",348.1,.01)=""
^DD(348.1,0,"NM","BAD DEBT ALLOWANCE")=""
^DD(348.1,0,"VR")="4.5"
^DD(348.1,0,"VRPK")="PRCA"
^DD(348.1,.01,0)="SGL ACCOUNT^RF^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4AN) X"
^DD(348.1,.01,1,0)="^.1"
^DD(348.1,.01,1,1,0)="348.1^B"
^DD(348.1,.01,1,1,1)="S ^RC(348.1,""B"",$E(X,1,30),DA)="""""
^DD(348.1,.01,1,1,2)="K ^RC(348.1,""B"",$E(X,1,30),DA)"
^DD(348.1,.01,3)="Answer must be 4 alpha-numeric characters in length."
^DD(348.1,.01,21,0)="^.001^1^1^3040319^^^^"
^DD(348.1,.01,21,1,0)="This is the Standard General Ledger (SGL) Account."
^DD(348.1,.01,"DT")="3040319"
^DD(348.1,.02,0)="COLLECTION %^RNJ6,2^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(348.1,.02,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(348.1,.02,21,0)="^^2^2^2950224^"
^DD(348.1,.02,21,1,0)="This is calculated by Total Principal Payments for bills in base period/"
^DD(348.1,.02,21,2,0)="Total bill amount for bills in base period."
^DD(348.1,.02,"DT")="2940830"
^DD(348.1,.03,0)="WRITE-OFF %^RNJ6,2^^0;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(348.1,.03,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(348.1,.03,21,0)="^^2^2^2950224^^"
^DD(348.1,.03,21,1,0)="This is calculated by Total Write-offs for bills in base period/"
^DD(348.1,.03,21,2,0)="Total bill amount for bills in base period."
^DD(348.1,.03,"DT")="2940830"
^DD(348.1,.04,0)="CONTRACTUAL ADJUSTMENT %^RNJ6,2^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(348.1,.04,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(348.1,.04,21,0)="^^2^2^2950224^"
^DD(348.1,.04,21,1,0)="This is calculated by Total Contract Adjustments for bills in base period/"
^DD(348.1,.04,21,2,0)="Total bill amount for bills in base period."
^DD(348.1,.04,"DT")="2940830"
^DD(348.1,.05,0)="CANCELLATION %^RNJ6,2^^0;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(348.1,.05,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(348.1,.05,21,0)="^^3^3^2950224^"
^DD(348.1,.05,21,1,0)="This is calculated by Total Decrease Adjustments for bills in base period/"
^DD(348.1,.05,21,2,0)="Total bill amount for bills in base period."
^DD(348.1,.05,21,3,0)="Note:  Contract adjustments and Write-offs not included here."
^DD(348.1,.05,"DT")="2940830"
^DD(348.1,.06,0)="PENDING DISPOSITION %^RNJ6,2^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(348.1,.06,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(348.1,.06,21,0)="^^2^2^2940913^^^"
^DD(348.1,.06,21,1,0)="This is calculated by summing fields .02,.03,.04, and .05 and subtracting"
^DD(348.1,.06,21,2,0)="the total from 100."
^DD(348.1,.06,"DT")="2940830"
^DD(348.1,.07,0)="CURRENT RECEIVABLES^RNJ12,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(348.1,.07,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(348.1,.07,21,0)="^^1^1^2980128^^^"
^DD(348.1,.07,21,1,0)="This field stores the current months receivables."
^DD(348.1,.07,"DT")="2980128"
^DD(348.1,.08,0)="ALLOWANCE ESTIMATE^RNJ12,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(348.1,.08,.1)=""
^DD(348.1,.08,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(348.1,.08,21,0)="^^1^1^2980128^^^^"
^DD(348.1,.08,21,1,0)="This is the estimated write-off amount for the current month."
^DD(348.1,.08,"DT")="2980128"
^DD(348.1,.09,0)="ACTUAL WRITE-OFFS FYTD^RNJ12,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(348.1,.09,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(348.1,.09,21,0)="^^1^1^2980128^^^"
^DD(348.1,.09,21,1,0)="This field stores the actual write-offs for the fiscal year."
^DD(348.1,.09,"DT")="2980128"
^DD(348.1,.1,0)="CHANGED LOCALLY ?^RS^1:YES;0:NO;^0;10^Q"
^DD(348.1,.1,.1)=""
^DD(348.1,.1,3)=""
^DD(348.1,.1,21,0)="^^2^2^2980128^^^^"
^DD(348.1,.1,21,1,0)="This field is a flag to indicate if the site has changed the calculated"
^DD(348.1,.1,21,2,0)="value for the ALLOWANCE ESTIMATE (field # .08)."
^DD(348.1,.1,"DT")="2980128"
^DD(348.1,.11,0)="CONT. ADJ. CODESHEET AMT.^RNJ12,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(348.1,.11,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(348.1,.11,21,0)="^^4^4^2960425^"
^DD(348.1,.11,21,1,0)="This field is the amount sent on the allowance document (SV27) to FMS.  It"
^DD(348.1,.11,21,2,0)="is calculated by adding the current monthly estimate (#.1) and the actual"
^DD(348.1,.11,21,3,0)="contract adjustment amount (#.14) and subtracting the previous estimate"
^DD(348.1,.11,21,4,0)="amount (#.09)."
^DD(348.1,.11,"DT")="2960411"
^DD(348.1,.12,0)="WRITE OFF CODESHEET AMT.^RNJ12,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(348.1,.12,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(348.1,.12,21,0)="^^4^4^2960425^"
^DD(348.1,.12,21,1,0)="This field is the amount sent on the allowance document (SV23) to FMS.  It"
^DD(348.1,.12,21,2,0)="is calculated by adding the current monthly estimate (#.08) and the actual"
^DD(348.1,.12,21,3,0)="contract adjustment amount (#.13) and subtracting the previous estimate"
^DD(348.1,.12,21,4,0)="amount (#.07)."
^DD(348.1,.12,"DT")="2960411"
^DD(348.1,.13,0)="CURR. ACT. WO AMOUNT^NJ12,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(348.1,.13,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(348.1,.13,21,0)="^^2^2^2960416^"
^DD(348.1,.13,21,1,0)="This is the write-off amount that was calculated by the FMS data collector"
^DD(348.1,.13,21,2,0)="on the 1st of the month."
^DD(348.1,.13,"DT")="2960416"
^DD(348.1,.14,0)="CURR. ACT. CA AMOUNT^NJ12,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(348.1,.14,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(348.1,.14,21,0)="^^2^2^2960416^"
^DD(348.1,.14,21,1,0)="This is the amount of contract adjustments that were calculated on the 1st"
^DD(348.1,.14,21,2,0)="of the month by the FMS data collector."
^DD(348.1,.14,"DT")="2960416"
^DD(348.1,.15,0)="CURRENT TRANSMISSION DATE^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(348.1,.15,21,0)="^^3^3^2961217^"
^DD(348.1,.15,21,1,0)="This will set the date of the last transmission to Austin.  It should be"
^DD(348.1,.15,21,2,0)="used only as a trouble-shooting tool to determine if the FMS data"
^DD(348.1,.15,21,3,0)="collector ran."
^DD(348.1,.15,"DT")="2961015"
^DD(348.1,"B","ACTUAL WRITE-OFFS FYTD",.09)=""
^DD(348.1,"B","ALLOWANCE ESTIMATE",.08)=""
^DD(348.1,"B","CANCELLATION %",.05)=""
^DD(348.1,"B","CHANGED LOCALLY ?",.1)=""
^DD(348.1,"B","COLLECTION %",.02)=""
^DD(348.1,"B","CONT. ADJ. CODESHEET AMT.",.11)=""
^DD(348.1,"B","CONTRACTUAL ADJUSTMENT %",.04)=""
^DD(348.1,"B","CURR. ACT. CA AMOUNT",.14)=""
^DD(348.1,"B","CURR. ACT. WO AMOUNT",.13)=""
^DD(348.1,"B","CURRENT RECEIVABLES",.07)=""
^DD(348.1,"B","CURRENT TRANSMISSION DATE",.15)=""
^DD(348.1,"B","PENDING DISPOSITION %",.06)=""
^DD(348.1,"B","SGL ACCOUNT",.01)=""
^DD(348.1,"B","WRITE OFF CODESHEET AMT.",.12)=""
^DD(348.1,"B","WRITE-OFF %",.03)=""
^DD(348.1,"GL",0,1,.01)=""
^DD(348.1,"GL",0,2,.02)=""
^DD(348.1,"GL",0,3,.03)=""
^DD(348.1,"GL",0,4,.04)=""
^DD(348.1,"GL",0,5,.05)=""
^DD(348.1,"GL",0,6,.06)=""
^DD(348.1,"GL",0,7,.07)=""
^DD(348.1,"GL",0,8,.08)=""
^DD(348.1,"GL",0,9,.09)=""
^DD(348.1,"GL",0,10,.1)=""
^DD(348.1,"GL",0,11,.11)=""
^DD(348.1,"GL",0,12,.12)=""
^DD(348.1,"GL",0,13,.13)=""
^DD(348.1,"GL",0,14,.14)=""
^DD(348.1,"GL",0,15,.15)=""
^DD(348.1,"IX",.01)=""
^DD(348.1,"RQ",.01)=""
^DD(348.1,"RQ",.02)=""
^DD(348.1,"RQ",.03)=""
^DD(348.1,"RQ",.04)=""
^DD(348.1,"RQ",.05)=""
^DD(348.1,"RQ",.06)=""
^DD(348.1,"RQ",.07)=""
^DD(348.1,"RQ",.08)=""
^DD(348.1,"RQ",.09)=""
^DD(348.1,"RQ",.1)=""
^DD(348.1,"RQ",.11)=""
^DD(348.1,"RQ",.12)=""
^DD(348.2,0)="FIELD^^.03^3"
^DD(348.2,0,"DDA")="N"
^DD(348.2,0,"DT")="2990609"
^DD(348.2,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(348.2,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(348.2,0,"IX","B",348.2,.01)=""
^DD(348.2,0,"NM","TOP REFUND/REVERSAL CODES")=""
^DD(348.2,0,"VR")="4.5"
^DD(348.2,0,"VRPK")="PRCA"
^DD(348.2,.01,0)="CALENDAR YEAR^RNJ4,0^^0;1^K:+X'=X!(X>2050)!(X<1993)!(X?.E1"".""1N.N) X"
^DD(348.2,.01,1,0)="^.1"
^DD(348.2,.01,1,1,0)="348.2^B"
^DD(348.2,.01,1,1,1)="S ^RC(348.2,""B"",$E(X,1,30),DA)="""""
^DD(348.2,.01,1,1,2)="K ^RC(348.2,""B"",$E(X,1,30),DA)"
^DD(348.2,.01,3)="Enter the calendar year for which you are entering Refund/Refund Reversal codes."
^DD(348.2,.01,21,0)="^^4^4^2990616^"
^DD(348.2,.01,21,1,0)="This is the calendar year for which the Refund/Refund Reversal codes are"
^DD(348.2,.01,21,2,0)="used.  This date is entered by the menu option RCTOP REF/REV CODE UPDATE."
^DD(348.2,.01,21,3,0)="This data is used to place the correct codes on Refund and Refund Reversal"
^DD(348.2,.01,21,4,0)="documents."
^DD(348.2,.01,23,0)="^^1^1^2990616^"
^DD(348.2,.01,23,1,0)="This date is entered through the menu option RCTOP REF/REV CODE UPDATE."
^DD(348.2,.01,"DT")="2990609"
^DD(348.2,.02,0)="REFUND CODE^RF^^0;2^K:$L(X)>1!($L(X)<1) X"
^DD(348.2,.02,3)="Enter the Refund code that will be used for the calendar year."
^DD(348.2,.02,21,0)="^^2^2^2990609^^"
^DD(348.2,.02,21,1,0)="This is the code that is placed on Refund documents for this calendar"
^DD(348.2,.02,21,2,0)="year."
^DD(348.2,.02,23,0)="^^2^2^2990609^"
^DD(348.2,.02,23,1,0)="This is the code that is placed on the Refund documents sent to Treasury"
^DD(348.2,.02,23,2,0)="for the refund year in the .01 field."
^DD(348.2,.02,"DT")="2990609"
^DD(348.2,.03,0)="REVERSAL CODE^RF^^0;3^K:$L(X)>1!($L(X)<1) X"
^DD(348.2,.03,3)="Enter the Refund Reversal code that will be used for the calendar year."
^DD(348.2,.03,21,0)="^^2^2^2990609^"
^DD(348.2,.03,21,1,0)="This is the code that is placed on Refund Reversal documents for this"
^DD(348.2,.03,21,2,0)="calendar year."
^DD(348.2,.03,23,0)="^^2^2^2990609^"
^DD(348.2,.03,23,1,0)="This is the code that is placed on the Refund Reversal documents sent to"
^DD(348.2,.03,23,2,0)="Treasury for the refund year in the .01 field."
^DD(348.2,.03,"DT")="2990609"
^DD(348.2,"B","CALENDAR YEAR",.01)=""
^DD(348.2,"B","REFUND CODE",.02)=""
^DD(348.2,"B","REVERSAL CODE",.03)=""
^DD(348.2,"GL",0,1,.01)=""
^DD(348.2,"GL",0,2,.02)=""
^DD(348.2,"GL",0,3,.03)=""
^DD(348.2,"IX",.01)=""
^DD(348.2,"RQ",.01)=""
^DD(348.2,"RQ",.02)=""
^DD(348.2,"RQ",.03)=""
^DD(348.4,0)="FIELD^^5^15"
^DD(348.4,0,"DDA")="N"
^DD(348.4,0,"DT")="3060718"
^DD(348.4,0,"IX","AC",348.4,.03)=""
^DD(348.4,0,"IX","B",348.4,.01)=""
^DD(348.4,0,"IX","C",348.4,.02)=""
^DD(348.4,0,"NM","AR DATA QUEUE")=""
^DD(348.4,0,"VR")="4.5"
^DD(348.4,0,"VRPK")="PRCA"
^DD(348.4,.01,0)="BATCH NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(348.4,.01,1,0)="^.1"
^DD(348.4,.01,1,1,0)="348.4^B"
^DD(348.4,.01,1,1,1)="S ^RCXV(""B"",$E(X,1,30),DA)="""""
^DD(348.4,.01,1,1,2)="K ^RCXV(""B"",$E(X,1,30),DA)"
^DD(348.4,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(348.4,.01,21,0)="^^1^1^3030716^"
^DD(348.4,.01,21,1,0)="The Batch Number is a sequential counter distinguishing each batch of data to be transmitted"
^DD(348.4,.01,"DT")="3030728"
^DD(348.4,.02,0)="BATCH DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(348.4,.02,1,0)="^.1"
^DD(348.4,.02,1,1,0)="348.4^C"
^DD(348.4,.02,1,1,1)="S ^RCXV(""C"",$E(X,1,30),DA)="""""
^DD(348.4,.02,1,1,2)="K ^RCXV(""C"",$E(X,1,30),DA)"
^DD(348.4,.02,1,1,"%D",0)="^^1^1^3030728^"
^DD(348.4,.02,1,1,"%D",1,0)="This cross-reference is used to look up a batch by the batch date."
^DD(348.4,.02,1,1,"DT")="3030728"
^DD(348.4,.02,21,0)="^^1^1^3030716^"
^DD(348.4,.02,21,1,0)="This field will contain the date for which the batch is generated."
^DD(348.4,.02,"DT")="3030728"
^DD(348.4,.03,0)="STATUS^S^P:PENDING;T:TRANSMITTED;C:COMPLETED;^0;3^Q"
^DD(348.4,.03,1,0)="^.1"
^DD(348.4,.03,1,1,0)="348.4^AC"
^DD(348.4,.03,1,1,1)="S ^RCXV(""AC"",$E(X,1,30),DA)="""""
^DD(348.4,.03,1,1,2)="K ^RCXV(""AC"",$E(X,1,30),DA)"
^DD(348.4,.03,1,1,"%D",0)="^^1^1^3030724^"
^DD(348.4,.03,1,1,"%D",1,0)="This cross-reference tells the status of the batch."
^DD(348.4,.03,1,1,"DT")="3030724"
^DD(348.4,.03,21,0)="3^.001^3^3^3030716^"
^DD(348.4,.03,21,1,0)="This field contains the status of the batch. 'Pending' will indicate that the batch is ready for the nightly process. 'Transmitted' will indicate that the batch has been sent to the Vitria server but no completed acknowledgement has been"
^DD(348.4,.03,21,2,0)="received. If the batch is still at the status of 'Transmitted' the next night, it will be sent to Vitria. 'Completed' will indicate that the batch has been successfully received and processed on the Vitria server and records may now be "
^DD(348.4,.03,21,3,0)="available for purging."
^DD(348.4,.03,"DT")="3030724"
^DD(348.4,.04,0)="BATCH TYPE^S^D:DAILY;H:HISTORICAL;A:ACTIVE;R:DEPOSITS/RECEIPTS;C:CURRENT FY;E:FY 05;P:PRE-REGISTRATION;B:BUFFER;I:IB COPAY;^0;4^Q"
^DD(348.4,.04,21,0)="^.001^1^1^3060718^^^"
^DD(348.4,.04,21,1,0)="This field contains the type of data contained in this batch."
^DD(348.4,.04,23,0)="^^1^1^3060718^"
^DD(348.4,.04,23,1,0)=" "
^DD(348.4,.04,"DT")="3060718"
^DD(348.4,.05,0)="BATCH SEQUENCE NUMBER^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(348.4,.05,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(348.4,.05,21,0)="^.001^2^2^3031021^^"
^DD(348.4,.05,21,1,0)="This field contains the sequence number of the batch where there"
^DD(348.4,.05,21,2,0)="may be more than one batch transmitted in the daily transmission."
^DD(348.4,.05,"DT")="3031021"
^DD(348.4,.06,0)="TOTAL BATCH SEQUENCE NUMBER^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(348.4,.06,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(348.4,.06,21,0)="^.001^2^2^3031021^^"
^DD(348.4,.06,21,1,0)="This field contains the total number of batches in a daily"
^DD(348.4,.06,21,2,0)="transmission."
^DD(348.4,.06,"DT")="3031021"
^DD(348.4,.07,0)="NUMBER OF RECORDS^NJ11,0^^0;7^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(348.4,.07,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(348.4,.07,21,0)="^^1^1^3030716^"
^DD(348.4,.07,21,1,0)="This field will contain the number of records contained in this batch."
^DD(348.4,.07,"DT")="3030716"
^DD(348.4,.08,0)="ACK RECEIVED DATE/TIME^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(348.4,.08,21,0)="^^1^1^3030716^"
^DD(348.4,.08,21,1,0)="This field will contain the date and time that the successful acknowledgement was received from the Vitria server."
^DD(348.4,.08,"DT")="3030716"
^DD(348.4,.09,0)="ARC ACK RECEIVED DATE/TIME^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(348.4,.09,21,0)="^^3^3^3030924^"
^DD(348.4,.09,21,1,0)="This field contains the date and time that the Boston Allocation"
^DD(348.4,.09,21,2,0)="Resource Center sent back an acknowledgement that the data was"
^DD(348.4,.09,21,3,0)="loaded succesfully."
^DD(348.4,.09,"DT")="3030924"
^DD(348.4,.1,0)="COPAY MONTH/YEAR^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(348.4,.1,3)="Month and year for this transmission"
^DD(348.4,.1,21,0)="^^2^2^3050822^"
^DD(348.4,.1,21,1,0)="If this batch is a Co-Pay Transmission, (""I"" batch type), this field will "
^DD(348.4,.1,21,2,0)="hold the month/year that the transmission is for."
^DD(348.4,.1,"DT")="3050822"
^DD(348.4,1.01,0)="BILL NUMBER^348.41PA^^1;0"
^DD(348.4,2.01,0)="AR BATCH PAYMENT^348.42P^^2;0"
^DD(348.4,3.01,0)="COPAY PATIENT^348.43P^^3;0"
^DD(348.4,4,0)="PRE-REGISTRATION MONTH/YEAR^D^^4;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(348.4,4,3)="(No range limit on date)"
^DD(348.4,4,21,0)="^^2^2^3050822^"
^DD(348.4,4,21,1,0)="If this batch is a Pre-registration transmission, (""P"" batch type), this"
^DD(348.4,4,21,2,0)="field will hold the month/year that the transmission is for."
^DD(348.4,4,"DT")="3050822"
^DD(348.4,5,0)="INSURANCE BUFFER MONTH/YEAR^D^^5;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(348.4,5,3)="(No range limit on date)"
^DD(348.4,5,21,0)="^^2^2^3050822^"
^DD(348.4,5,21,1,0)="If this batch is a Buffer file transmission, (""B"" batch type), this field"
^DD(348.4,5,21,2,0)="will hold the month/year that the transmission is for."
^DD(348.4,5,"DT")="3050822"
^DD(348.4,"B","ACK RECEIVED DATE/TIME",.08)=""
^DD(348.4,"B","AR BATCH PAYMENT",2.01)=""
^DD(348.4,"B","ARC ACK RECEIVED DATE/TIME",.09)=""
^DD(348.4,"B","BATCH DATE",.02)=""
^DD(348.4,"B","BATCH NUMBER",.01)=""
^DD(348.4,"B","BATCH SEQUENCE NUMBER",.05)=""
^DD(348.4,"B","BATCH TYPE",.04)=""
^DD(348.4,"B","BILL NUMBER",1.01)=""
^DD(348.4,"B","COPAY MONTH/YEAR",.1)=""
^DD(348.4,"B","COPAY PATIENT",3.01)=""
^DD(348.4,"B","INSURANCE BUFFER MONTH/YEAR",5)=""
^DD(348.4,"B","NUMBER OF RECORDS",.07)=""
^DD(348.4,"B","PRE-REGISTRATION MONTH/YEAR",4)=""
^DD(348.4,"B","STATUS",.03)=""
^DD(348.4,"B","TOTAL BATCH SEQUENCE NUMBER",.06)=""
^DD(348.4,"GL",0,1,.01)=""
^DD(348.4,"GL",0,2,.02)=""
^DD(348.4,"GL",0,3,.03)=""
^DD(348.4,"GL",0,4,.04)=""
^DD(348.4,"GL",0,5,.05)=""
^DD(348.4,"GL",0,6,.06)=""
^DD(348.4,"GL",0,7,.07)=""
^DD(348.4,"GL",0,8,.08)=""
^DD(348.4,"GL",0,9,.09)=""
^DD(348.4,"GL",0,10,.1)=""
^DD(348.4,"GL",1,0,1.01)=""
^DD(348.4,"GL",2,0,2.01)=""
^DD(348.4,"GL",3,0,3.01)=""
^DD(348.4,"GL",4,1,4)=""
^DD(348.4,"GL",5,1,5)=""
^DD(348.4,"IX",.01)=""
^DD(348.4,"IX",.02)=""
^DD(348.4,"IX",.03)=""
^DD(348.4,"RQ",.01)=""
^DD(348.4,"SB",348.41,1.01)=""
^DD(348.4,"SB",348.42,2.01)=""
^DD(348.4,"SB",348.43,3.01)=""
^DD(348.41,0)="BILL NUMBER SUB-FIELD^^.02^2"
^DD(348.41,0,"DT")="3030722"
^DD(348.41,0,"IX","B",348.41,.01)=""
^DD(348.41,0,"NM","BILL NUMBER")=""
^DD(348.41,0,"UP")="348.4"
^DD(348.41,.01,0)="BILL NUMBER^MP430'X^PRCA(430,^0;1^S X=DINUM"
^DD(348.41,.01,1,0)="^.1"
^DD(348.41,.01,1,1,0)="348.41^B"
^DD(348.41,.01,1,1,1)="S ^RCXV(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(348.41,.01,1,1,2)="K ^RCXV(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(348.41,.01,21,0)="^^1^1^3030716^"
^DD(348.41,.01,21,1,0)="This field will contain the IEN of the bill who was triggered to be processed for this BATCH DATE.  This field will be DINUM'd so there will not be any duplicates."
^DD(348.41,.01,"DT")="3030723"
^DD(348.41,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(348.41,.02,21,0)="^^1^1^3030930^"
^DD(348.41,.02,21,1,0)="This is the patient associated with the bill."
^DD(348.41,.02,"DT")="3030722"
^DD(348.41,"B","BILL NUMBER",.01)=""
^DD(348.41,"B","PATIENT",.02)=""
^DD(348.41,"GL",0,1,.01)=""
^DD(348.41,"GL",0,2,.02)=""
^DD(348.41,"IX",.01)=""
^DD(348.42,0)="AR BATCH PAYMENT SUB-FIELD^^.01^1"
^DD(348.42,0,"DT")="3031022"
^DD(348.42,0,"IX","B",348.42,.01)=""
^DD(348.42,0,"NM","AR BATCH PAYMENT")=""
^DD(348.42,0,"UP")="348.4"
^DD(348.42,.01,0)="AR BATCH PAYMENT^MP344'X^RCY(344,^0;1^S DINUM=X Q"
^DD(348.42,.01,1,0)="^.1"
^DD(348.42,.01,1,1,0)="348.42^B"
^DD(348.42,.01,1,1,1)="S ^RCXV(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(348.42,.01,1,1,2)="K ^RCXV(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(348.42,.01,21,0)="^^3^3^3031022^"
^DD(348.42,.01,21,1,0)="This field will contain any batch payments for a specific date."
^DD(348.42,.01,21,2,0)="It will be used to transmit information to the Boston Allocation"
^DD(348.42,.01,21,3,0)="Resource Center or re-transmit as needed."
^DD(348.42,.01,"DT")="3031022"
^DD(348.42,"B","AR BATCH PAYMENT",.01)=""
^DD(348.42,"GL",0,1,.01)=""
^DD(348.42,"IX",.01)=""
^DD(348.43,0)="COPAY PATIENT SUB-FIELD^^.01^1"
^DD(348.43,0,"DT")="3050504"
^DD(348.43,0,"IX","B",348.43,.01)=""
^DD(348.43,0,"NM","COPAY PATIENT")=""
^DD(348.43,0,"UP")="348.4"
^DD(348.43,.01,0)="COPAY PATIENT^P2'X^DPT(^0;1^S X=DINUM"
^DD(348.43,.01,1,0)="^.1"
^DD(348.43,.01,1,1,0)="348.43^B"
^DD(348.43,.01,1,1,1)="S ^RCXV(DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(348.43,.01,1,1,2)="K ^RCXV(DA(1),3,""B"",$E(X,1,30),DA)"
^DD(348.43,.01,3)="This is the patient's DFN"
^DD(348.43,.01,21,0)="^^5^5^3050829^"
^DD(348.43,.01,21,1,0)="If this transmission is a Co-Pay transmission (""P"" batch type), this"
^DD(348.43,.01,21,2,0)="field will contain the IEN of the patient whose data will be transmitted."
^DD(348.43,.01,21,3,0)="This field will be DINUMed, so there are no duplicates."
^DD(348.43,.01,21,4,0)=" "
^DD(348.43,.01,21,5,0)="This field is populated from routine RCXVDC10."
^DD(348.43,.01,"DT")="3050829"
^DD(348.43,"B","COPAY PATIENT",.01)=""
^DD(348.43,"GL",0,1,.01)=""
^DD(348.43,"IX",.01)=""
^DD(349,0)="FIELD^^23^20"
^DD(349,0,"DDA")="N"
^DD(349,0,"DT")="2970109"
^DD(349,0,"IX","AT2",349,.03)=""
^DD(349,0,"IX","B",349,.01)=""
^DD(349,0,"NM","AR TRANSMISSION RECORDS")=""
^DD(349,0,"PT",349.2,.11)=""
^DD(349,0,"VR")="4.5"
^DD(349,0,"VRPK")="PRCA"
^DD(349,.01,0)="TRANSMISSION RECORD ID^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(349,.01,1,0)="^.1"
^DD(349,.01,1,1,0)="349^B"
^DD(349,.01,1,1,1)="S ^RCT(349,""B"",$E(X,1,30),DA)="""""
^DD(349,.01,1,1,2)="K ^RCT(349,""B"",$E(X,1,30),DA)"
^DD(349,.01,1,2,0)="^^TRIGGER^349^.02"
^DD(349,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV,Y(1)=X S X=""."",X=$P(Y(1),X) X ^DD(349,.01,1,2,1.4)"
^DD(349,.01,1,2,1.4)="S DIH=$S($D(^RCT(349,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=349,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(349,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$S($D(^RCT(349,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=349,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(349,.01,1,2,"%D",0)="^^1^1^2960417^"
^DD(349,.01,1,2,"%D",1,0)="This is the type of transmission record."
^DD(349,.01,1,2,"CREATE VALUE")="$P(TRANSMISSION RECORD ID,""."")"
^DD(349,.01,1,2,"DELETE VALUE")="@"
^DD(349,.01,1,2,"DT")="2960417"
^DD(349,.01,1,2,"FIELD")="TRANSMISSION TYP"
^DD(349,.01,3)="Answer must be 3-30 characters in length."
^DD(349,.01,21,0)="^^1^1^2960216^"
^DD(349,.01,21,1,0)="This name of the transmission record is assigned to this field."
^DD(349,.01,23,0)="^^1^1^2960216^"
^DD(349,.01,23,1,0)="It should reflect the transmission type."
^DD(349,.01,"DT")="2960417"
^DD(349,.02,0)="TRANSMISSION TYPE^RF^^0;2^K:$L(X)>10!($L(X)<2) X"
^DD(349,.02,1,0)="^.1^^0"
^DD(349,.02,3)="Answer must be 2-10 characters in length."
^DD(349,.02,5,1,0)="349^.01^2"
^DD(349,.02,9)="^"
^DD(349,.02,21,0)="^^1^1^2970109^^"
^DD(349,.02,21,1,0)="This field indicates the transmission type of the record."
^DD(349,.02,"DT")="2970109"
^DD(349,.03,0)="MESSAGE SEQUENCE^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349,.03,1,0)="^.1"
^DD(349,.03,1,1,0)="349^AT2^MUMPS"
^DD(349,.03,1,1,1)="I $P($G(^RCT(349,+DA,0)),""^"",2) S ^RCT(349,""AT"",$P($G(^RCT(349,+DA,0)),""^"",2),X,DA)="""""
^DD(349,.03,1,1,2)="I $P($G(^RCT(349,+DA,0)),""^"",2) K ^RCT(349,""AT"",$P($G(^RCT(349,+DA,0)),""^"",2),X,DA)"
^DD(349,.03,1,1,"%D",0)="^^1^1^2960216^^"
^DD(349,.03,1,1,"%D",1,0)="This cross-reference is built on TRANSMISSION TYPE and DATE CREATED."
^DD(349,.03,1,1,"DT")="2960216"
^DD(349,.03,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(349,.03,21,0)="^^2^2^2960417^^"
^DD(349,.03,21,1,0)="This field should be set internally during the creation of the"
^DD(349,.03,21,2,0)="transmission."
^DD(349,.03,"DT")="2960417"
^DD(349,.04,0)="MESSAGE TOTAL^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349,.04,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(349,.04,21,0)="^^2^2^2970109^^^"
^DD(349,.04,21,1,0)="This is the Mailman message number that contained the transmission"
^DD(349,.04,21,2,0)="record."
^DD(349,.04,"DT")="2960417"
^DD(349,.05,0)="SITE^NJ1,0X^^0;5^S X=$$SITE^RCMSITE()"
^DD(349,.05,3)="Station Number"
^DD(349,.05,21,0)="^^1^1^2960417^^"
^DD(349,.05,21,1,0)="This is the site's station number."
^DD(349,.05,"DT")="2960417"
^DD(349,.06,0)="FACILITY PHONE NUMBER^FX^^0;6^Q"
^DD(349,.06,3)="Answer must be 3-20 characters in length."
^DD(349,.06,21,0)="^^1^1^2970109^^^^"
^DD(349,.06,21,1,0)="This is site's phone number."
^DD(349,.06,"DT")="2960417"
^DD(349,.07,0)="TOTAL RECORDS IN MESSAGE^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349,.07,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(349,.07,21,0)="^^1^1^2960329^^^"
^DD(349,.07,21,1,0)="This field indicates the total number of associated records if any."
^DD(349,.07,"DT")="2960329"
^DD(349,.08,0)="MESSAGE AMOUNT^NJ12,2X^^0;8^S X=+X S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X S X=$TR($J(X,9,2),"" "","""")"
^DD(349,.08,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(349,.08,21,0)="^^1^1^2960329^^^"
^DD(349,.08,21,1,0)="This field contains a dollar amount associated with the record."
^DD(349,.08,"DT")="2970114"
^DD(349,.09,0)="STATEMENT DATE^F^^0;9^K:$L(X)>8!($L(X)<1) X"
^DD(349,.09,3)="Answer must be 1-8 characters in length."
^DD(349,.09,21,0)="^^1^1^2970109^^^^"
^DD(349,.09,21,1,0)="This is the site's statement day."
^DD(349,.09,"DT")="2970109"
^DD(349,.1,0)="PROCESS DATE^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^DD(349,.1,3)="Answer must be 1-8 characters in length."
^DD(349,.1,21,0)="^^1^1^2970109^"
^DD(349,.1,21,1,0)="This is the date of the last activity on the statements."
^DD(349,.1,"DT")="2970109"
^DD(349,.11,0)="DATE CREATED^D^^0;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(349,.11,21,0)="^^1^1^2960419^^"
^DD(349,.11,21,1,0)="This is the date the record was created."
^DD(349,.11,"DT")="2960417"
^DD(349,.12,0)="MAILMAN MESSAGE^NJ10,0^^0;12^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349,.12,2)="S Y(0)=Y S X=Y(0),X=X S Y=X"
^DD(349,.12,2.1)="INTERNAL(MAILMAN MESSAGE)"
^DD(349,.12,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(349,.12,21,0)="^^1^1^2961205^^^^"
^DD(349,.12,21,1,0)="This is the message number for this segment."
^DD(349,.12,"DT")="2961205"
^DD(349,11,0)="SITE STREET ADDRESS1^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(349,11,3)="Answer must be 3-30 characters in length."
^DD(349,11,21,0)="^^1^1^2960221^"
^DD(349,11,21,1,0)="This is the first line of site address."
^DD(349,11,"DT")="2960221"
^DD(349,12,0)="SITE STREET ADDRESS2^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(349,12,3)="Answer must be 3-30 characters in length."
^DD(349,12,21,0)="^^1^1^2960221^"
^DD(349,12,21,1,0)="This is the second line of site street address."
^DD(349,12,"DT")="2960221"
^DD(349,13,0)="SITE CITY^F^^1;3^K:$L(X)>30!($L(X)<3) X"
^DD(349,13,3)="Answer must be 3-30 characters in length."
^DD(349,13,21,0)="^^1^1^2960221^"
^DD(349,13,21,1,0)="This is the city name of the site address."
^DD(349,13,"DT")="2960221"
^DD(349,14,0)="SITE STATE^F^^1;4^K:$L(X)>3!($L(X)<2) X"
^DD(349,14,3)="Answer must be 2-3 characters in length."
^DD(349,14,21,0)="^^1^1^2960221^"
^DD(349,14,21,1,0)="This is the city name of the site address."
^DD(349,14,"DT")="2960221"
^DD(349,15,0)="SITE ZIP CODE^F^^1;5^K:$L(X)>10!($L(X)<5) X"
^DD(349,15,3)="Answer must be 5-10 characters in length."
^DD(349,15,21,0)="^^1^1^2960221^"
^DD(349,15,21,1,0)="This is the zip code of the site address."
^DD(349,15,"DT")="2960221"
^DD(349,21,0)="REMOTE RECEPIENT^F^^2;1^K:$L(X)>30!($L(X)<3) X"
^DD(349,21,3)="Answer must be 3-30 characters in length."
^DD(349,21,21,0)="^^1^1^2960417^"
^DD(349,21,21,1,0)="This is the addressee for a remote domain."
^DD(349,21,"DT")="2960417"
^DD(349,22,0)="REMOTE DOMAIN^P4.2'^DIC(4.2,^2;2^Q"
^DD(349,22,21,0)="^^1^1^2960417^"
^DD(349,22,21,1,0)="This is the domain where the transmission should be routed."
^DD(349,22,"DT")="2960417"
^DD(349,23,0)="LOCAL MAILGROUP^P3.8'^XMB(3.8,^2;3^Q"
^DD(349,23,21,0)="^^1^1^2960417^"
^DD(349,23,21,1,0)="This is the mailgroup that will also receive transmissions from this file."
^DD(349,23,"DT")="2960417"
^DD(349,"B","DATE CREATED",.11)=""
^DD(349,"B","FACILITY PHONE NUMBER",.06)=""
^DD(349,"B","LOCAL MAILGROUP",23)=""
^DD(349,"B","MAILMAN MESSAGE",.12)=""
^DD(349,"B","MESSAGE AMOUNT",.08)=""
^DD(349,"B","MESSAGE SEQUENCE",.03)=""
^DD(349,"B","MESSAGE TOTAL",.04)=""
^DD(349,"B","PROCESS DATE",.1)=""
^DD(349,"B","REMOTE DOMAIN",22)=""
^DD(349,"B","REMOTE RECEPIENT",21)=""
^DD(349,"B","SITE",.05)=""
^DD(349,"B","SITE CITY",13)=""
^DD(349,"B","SITE STATE",14)=""
^DD(349,"B","SITE STREET ADDRESS1",11)=""
^DD(349,"B","SITE STREET ADDRESS2",12)=""
^DD(349,"B","SITE ZIP CODE",15)=""
^DD(349,"B","STATEMENT DATE",.09)=""
^DD(349,"B","TOTAL RECORDS IN MESSAGE",.07)=""
^DD(349,"B","TRANSMISSION RECORD ID",.01)=""
^DD(349,"B","TRANSMISSION TYPE",.02)=""
^DD(349,"GL",0,1,.01)=""
^DD(349,"GL",0,2,.02)=""
^DD(349,"GL",0,3,.03)=""
^DD(349,"GL",0,4,.04)=""
^DD(349,"GL",0,5,.05)=""
^DD(349,"GL",0,6,.06)=""
^DD(349,"GL",0,7,.07)=""
^DD(349,"GL",0,8,.08)=""
^DD(349,"GL",0,9,.09)=""
^DD(349,"GL",0,10,.1)=""
^DD(349,"GL",0,11,.11)=""
^DD(349,"GL",0,12,.12)=""
^DD(349,"GL",1,1,11)=""
^DD(349,"GL",1,2,12)=""
^DD(349,"GL",1,3,13)=""
^DD(349,"GL",1,4,14)=""
^DD(349,"GL",1,5,15)=""
^DD(349,"GL",2,1,21)=""
^DD(349,"GL",2,2,22)=""
^DD(349,"GL",2,3,23)=""
^DD(349,"IX",.01)=""
^DD(349,"IX",.03)=""
^DD(349,"RQ",.01)=""
^DD(349,"RQ",.02)=""
^DD(349.1,0)="FIELD^^61^16"
^DD(349.1,0,"DDA")="N"
^DD(349.1,0,"DT")="3040429"
^DD(349.1,0,"IX","B",349.1,.01)=""
^DD(349.1,0,"NM","AR TRANSMISSION TYPE")=""
^DD(349.1,0,"PT",349.9,.01)=""
^DD(349.1,0,"VR")="4.5"
^DD(349.1,0,"VRPK")="PRCA"
^DD(349.1,.01,0)="CODE^RF^^0;1^K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X"
^DD(349.1,.01,1,0)="^.1"
^DD(349.1,.01,1,1,0)="349.1^B"
^DD(349.1,.01,1,1,1)="S ^RCT(349.1,""B"",$E(X,1,30),DA)="""""
^DD(349.1,.01,1,1,2)="K ^RCT(349.1,""B"",$E(X,1,30),DA)"
^DD(349.1,.01,3)="Answer must be 2-10 characters in length."
^DD(349.1,.01,21,0)="^.001^1^1^3040601^^^"
^DD(349.1,.01,21,1,0)="This field will hold the unique codes for the transmission types."
^DD(349.1,.01,23,0)="^^1^1^3040601^"
^DD(349.1,.01,23,1,0)=" "
^DD(349.1,.01,"DT")="2960216"
^DD(349.1,.02,0)="EXPANDED NAME^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(349.1,.02,3)="Answer must be 3-30 characters in length."
^DD(349.1,.02,21,0)="^^1^1^2960216^^"
^DD(349.1,.02,21,1,0)="This is the expanded name of the transmission type."
^DD(349.1,.02,"DT")="2960216"
^DD(349.1,.03,0)="ACTIVE^S^0:NO;1:YES;^0;3^Q"
^DD(349.1,.03,21,0)="^^1^1^2960216^"
^DD(349.1,.03,21,1,0)="This field will indicate if the transmission type is being used."
^DD(349.1,.03,"DT")="2960216"
^DD(349.1,.04,0)="PURGE FREQUENCY^NJ4,0^^0;4^K:+X'=X!(X>3650)!(X<30)!(X?.E1"".""1N.N) X"
^DD(349.1,.04,3)="Type a Number between 30 and 3650, 0 Decimal Digits"
^DD(349.1,.04,21,0)="^^2^2^2960216^^"
^DD(349.1,.04,21,1,0)="This field indicates if and when a purge of the entries will take"
^DD(349.1,.04,21,2,0)="place."
^DD(349.1,.04,23,0)="^^2^2^2960216^"
^DD(349.1,.04,23,1,0)="Number of days that transmission records are on-line before"
^DD(349.1,.04,23,2,0)="purging occurs."
^DD(349.1,.04,"DT")="2960216"
^DD(349.1,1,0)="LOCAL ADDRESSEE^349.11P^^1;0"
^DD(349.1,2,0)="LOCAL MAILGROUP^349.12P^^2;0"
^DD(349.1,31,0)="REMOTE ADDRESSEE^F^^3;1^K:$L(X)>30!($L(X)<1)!'(X?.A) X"
^DD(349.1,31,3)="Answer must be 1-30 characters in length."
^DD(349.1,31,21,0)="^^1^1^2960430^^^"
^DD(349.1,31,21,1,0)="This is the addressee name at the remote domain."
^DD(349.1,31,"DT")="2960430"
^DD(349.1,32,0)="REMOTE DOMAIN^P4.2'^DIC(4.2,^3;2^Q"
^DD(349.1,32,1,0)="^.1"
^DD(349.1,32,1,1,0)="^^TRIGGER^349.1^33"
^DD(349.1,32,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349.1,D0,3)):^(3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(349.1,32,1,1,1.1) X ^DD(349.1,32,1,1,1.4)"
^DD(349.1,32,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(4.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(349.1,32,1,1,1.4)="S DIH=$S($D(^RCT(349.1,DIV(0),3)):^(3),1:""""),DIV=X S $P(^(3),U,3)=DIV,DIH=349.1,DIG=33 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(349.1,32,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349.1,D0,3)):^(3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(349.1,32,1,1,2.4)"
^DD(349.1,32,1,1,2.4)="S DIH=$S($D(^RCT(349.1,DIV(0),3)):^(3),1:""""),DIV=X S $P(^(3),U,3)=DIV,DIH=349.1,DIG=33 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(349.1,32,1,1,"CREATE VALUE")="REMOTE DOMAIN:.01"
^DD(349.1,32,1,1,"DELETE VALUE")="@"
^DD(349.1,32,1,1,"FIELD")="DOMAIN NAME"
^DD(349.1,32,21,0)="^.001^2^2^3000524^^^"
^DD(349.1,32,21,1,0)="This is the remote domain where the transmission record is being"
^DD(349.1,32,21,2,0)="sent."
^DD(349.1,32,"DT")="2960902"
^DD(349.1,33,0)="DOMAIN NAME^F^^3;3^K:$L(X)>30!($L(X)<3) X"
^DD(349.1,33,3)="Answer must be 3-30 characters in length."
^DD(349.1,33,5,1,0)="349.1^32^1"
^DD(349.1,33,9)="^"
^DD(349.1,33,21,0)="^^1^1^2960902^"
^DD(349.1,33,21,1,0)="This is the name of the DOMAIN from file 4.2 DOMAIN."
^DD(349.1,33,"DT")="2960902"
^DD(349.1,34,0)="RC MAIL ADDRESS^RFX^^3;4^K:$L(X)>30!($L(X)<3) X"
^DD(349.1,34,3)="Answer must be 3-30 characters in length."
^DD(349.1,34,4)="D MAILADD^RCRCXMS"
^DD(349.1,34,21,0)="^.001^2^2^3040429^^^^"
^DD(349.1,34,21,1,0)="This field will contain the Regional Counsel mail address for the"
^DD(349.1,34,21,2,0)="primary site.  It will be the default mail address."
^DD(349.1,34,23,0)="^.001^1^1^3040429^^^^"
^DD(349.1,34,23,1,0)=" "
^DD(349.1,34,"DT")="3040407"
^DD(349.1,35,0)="RC DEATH NOTIFICATION ADDRESS^RF^^3;5^K:$L(X)>40!($L(X)<2) X"
^DD(349.1,35,3)="Answer must be 2-40 characters in length."
^DD(349.1,35,4)="D DEATHADD^RCRCXMS"
^DD(349.1,35,21,0)="^.001^3^3^3040429^^^^"
^DD(349.1,35,21,1,0)="This field contains the Regional Counsel mail address for death"
^DD(349.1,35,21,2,0)="notifications for the primary site.  This will be the default for death"
^DD(349.1,35,21,3,0)="notifications."
^DD(349.1,35,23,0)="^.001^1^1^3040429^^^^"
^DD(349.1,35,23,1,0)=" "
^DD(349.1,35,"DT")="3040428"
^DD(349.1,41,0)="LAST MESSAGE ACK^NJ3,0^^4;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349.1,41,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(349.1,41,21,0)="^^1^1^2960828^"
^DD(349.1,41,21,1,0)="Number of last message type sent from CCPC."
^DD(349.1,41,"DT")="2960828"
^DD(349.1,42,0)="FINAL MESSAGE ACK^NJ3,0^^4;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349.1,42,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(349.1,42,21,0)="^^1^1^2960828^"
^DD(349.1,42,21,1,0)="Final message number of this type from CCPC."
^DD(349.1,42,"DT")="2960828"
^DD(349.1,43,0)="LAST MESSAGE NUMBER^NJ8,0^^4;3^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349.1,43,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(349.1,43,21,0)="^^2^2^2961205^^"
^DD(349.1,43,21,1,0)="This is the last message number of this type for the transmission from"
^DD(349.1,43,21,2,0)="CCPC."
^DD(349.1,43,"DT")="2960828"
^DD(349.1,51,0)="ACK MESSAGES^349.151A^^5;0"
^DD(349.1,61,0)="DIVISION OF CARE^349.161PA^^6;0"
^DD(349.1,61,21,0)="^.001^4^4^3040517^^^^"
^DD(349.1,61,21,1,0)="This field is a multiple that allows divisions to be entered if their"
^DD(349.1,61,21,2,0)="Regional Counsel mail addresses and death notification addresses are "
^DD(349.1,61,21,3,0)="different from the primary addresses."
^DD(349.1,61,21,4,0)=" "
^DD(349.1,61,23,0)="^.001^1^1^3040517^^^^"
^DD(349.1,61,23,1,0)=" "
^DD(349.1,61,"DT")="3040514"
^DD(349.1,"B","ACK MESSAGES",51)=""
^DD(349.1,"B","ACTIVE",.03)=""
^DD(349.1,"B","CODE",.01)=""
^DD(349.1,"B","DIVISION OF CARE",61)=""
^DD(349.1,"B","DOMAIN NAME",33)=""
^DD(349.1,"B","EXPANDED NAME",.02)=""
^DD(349.1,"B","FINAL MESSAGE ACK",42)=""
^DD(349.1,"B","LAST MESSAGE ACK",41)=""
^DD(349.1,"B","LAST MESSAGE NUMBER",43)=""
^DD(349.1,"B","LOCAL ADDRESSEE",1)=""
^DD(349.1,"B","LOCAL MAILGROUP",2)=""
^DD(349.1,"B","PURGE FREQUENCY",.04)=""
^DD(349.1,"B","RC DEATH NOTIFICATION ADDRESS",35)=""
^DD(349.1,"B","RC MAIL ADDRESS",34)=""
^DD(349.1,"B","REMOTE ADDRESSEE",31)=""
^DD(349.1,"B","REMOTE DOMAIN",32)=""
^DD(349.1,"GL",0,1,.01)=""
^DD(349.1,"GL",0,2,.02)=""
^DD(349.1,"GL",0,3,.03)=""
^DD(349.1,"GL",0,4,.04)=""
^DD(349.1,"GL",1,0,1)=""
^DD(349.1,"GL",2,0,2)=""
^DD(349.1,"GL",3,1,31)=""
^DD(349.1,"GL",3,2,32)=""
^DD(349.1,"GL",3,3,33)=""
^DD(349.1,"GL",3,4,34)=""
^DD(349.1,"GL",3,5,35)=""
^DD(349.1,"GL",4,1,41)=""
^DD(349.1,"GL",4,2,42)=""
^DD(349.1,"GL",4,3,43)=""
^DD(349.1,"GL",5,0,51)=""
^DD(349.1,"GL",6,0,61)=""
^DD(349.1,"IX",.01)=""
^DD(349.1,"IX",32)=""
^DD(349.1,"RQ",.01)=""
^DD(349.1,"RQ",34)=""
^DD(349.1,"RQ",35)=""
^DD(349.1,"SB",349.11,1)=""
^DD(349.1,"SB",349.12,2)=""
^DD(349.1,"SB",349.151,51)=""
^DD(349.1,"SB",349.161,61)=""
^DD(349.11,0)="LOCAL ADDRESSEE SUB-FIELD^^.01^1"
^DD(349.11,0,"DT")="2960216"
^DD(349.11,0,"IX","B",349.11,.01)=""
^DD(349.11,0,"NM","LOCAL ADDRESSEE")=""
^DD(349.11,0,"UP")="349.1"
^DD(349.11,.01,0)="LOCAL ADDRESSEE^MP200'^VA(200,^0;1^Q"
^DD(349.11,.01,1,0)="^.1"
^DD(349.11,.01,1,1,0)="349.11^B"
^DD(349.11,.01,1,1,1)="S ^RCT(349.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(349.11,.01,1,1,2)="K ^RCT(349.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(349.11,.01,21,0)="^^2^2^2960216^"
^DD(349.11,.01,21,1,0)="The local users who wish to be recepients of the transmission messages"
^DD(349.11,.01,21,2,0)="will named in this field."
^DD(349.11,.01,"DT")="2960216"
^DD(349.11,"B","LOCAL ADDRESSEE",.01)=""
^DD(349.11,"GL",0,1,.01)=""
^DD(349.11,"IX",.01)=""
^DD(349.12,0)="LOCAL MAILGROUP SUB-FIELD^^.01^1"
^DD(349.12,0,"DT")="2960216"
^DD(349.12,0,"IX","B",349.12,.01)=""
^DD(349.12,0,"NM","LOCAL MAILGROUP")=""
^DD(349.12,0,"UP")="349.1"
^DD(349.12,.01,0)="LOCAL MAILGROUP^MP3.8'^XMB(3.8,^0;1^Q"
^DD(349.12,.01,1,0)="^.1"
^DD(349.12,.01,1,1,0)="349.12^B"
^DD(349.12,.01,1,1,1)="S ^RCT(349.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(349.12,.01,1,1,2)="K ^RCT(349.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(349.12,.01,21,0)="^^2^2^2960216^"
^DD(349.12,.01,21,1,0)="This field is used to define any mailgroups which should receive the"
^DD(349.12,.01,21,2,0)="transmission messages."
^DD(349.12,.01,"DT")="2960216"
^DD(349.12,"B","LOCAL MAILGROUP",.01)=""
^DD(349.12,"GL",0,1,.01)=""
^DD(349.12,"IX",.01)=""
^DD(349.151,0)="ACK MESSAGES SUB-FIELD^^.03^3"
^DD(349.151,0,"DT")="2961205"
^DD(349.151,0,"NM","ACK MESSAGES")=""
^DD(349.151,0,"UP")="349.1"
^DD(349.151,.01,0)="ACK MESSAGES^F^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(349.151,.01,1,0)="^.1^^0"
^DD(349.151,.01,3)="Answer must be 3-80 characters in length."
^DD(349.151,.01,21,0)="^^1^1^2970106^^"
^DD(349.151,.01,21,1,0)="This multiple will store the Acknowlegment messages from Austin."
^DD(349.151,.01,"DT")="2961114"
^DD(349.151,.02,0)="ACCOUNT/SEG ID^F^^0;2^K:$L(X)>25!($L(X)<3) X"
^DD(349.151,.02,3)="Answer must be 3-25 characters in length."
^DD(349.151,.02,21,0)="^^1^1^2961114^"
^DD(349.151,.02,21,1,0)="This field stores the account id for the record."
^DD(349.151,.02,"DT")="2961205"
^DD(349.151,.03,0)="ACCOUNT/SEG INFO^F^^0;3^K:$L(X)>40!($L(X)<3) X"
^DD(349.151,.03,3)="Answer must be 3-40 characters in length."
^DD(349.151,.03,21,0)="^^1^1^2961114^"
^DD(349.151,.03,21,1,0)="This field will store the detailed information about the record if any."
^DD(349.151,.03,"DT")="2961205"
^DD(349.151,"B","ACCOUNT/SEG ID",.02)=""
^DD(349.151,"B","ACCOUNT/SEG INFO",.03)=""
^DD(349.151,"B","ACK MESSAGES",.01)=""
^DD(349.151,"GL",0,1,.01)=""
^DD(349.151,"GL",0,2,.02)=""
^DD(349.151,"GL",0,3,.03)=""
^DD(349.161,0)="DIVISION OF CARE SUB-FIELD^^.04^4"
^DD(349.161,0,"DT")="3040429"
^DD(349.161,0,"IX","B",349.161,.01)=""
^DD(349.161,0,"NM","DIVISION OF CARE")=""
^DD(349.161,0,"UP")="349.1"
^DD(349.161,.01,0)="DIVISION OF CARE^P40.8'^DG(40.8,^0;1^Q"
^DD(349.161,.01,1,0)="^.1"
^DD(349.161,.01,1,1,0)="349.161^B"
^DD(349.161,.01,1,1,1)="S ^RCT(349.1,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(349.161,.01,1,1,2)="K ^RCT(349.1,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(349.161,.01,21,0)="^.001^1^1^3040517^^^^"
^DD(349.161,.01,21,1,0)="Enter divisions of care where bill charges originate for this site."
^DD(349.161,.01,"DT")="3000524"
^DD(349.161,.02,0)="REMOTE DOMAIN^P4.2'^DIC(4.2,^0;2^Q"
^DD(349.161,.02,3)=""
^DD(349.161,.02,21,0)="^.001^1^1^3000524^^"
^DD(349.161,.02,21,1,0)="This is the Remote Domain address where transmissions will be sent for this division."
^DD(349.161,.02,"DT")="3000524"
^DD(349.161,.03,0)="RC MAIL ADDRESS^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(349.161,.03,3)="Answer must be 3-30 characters in length."
^DD(349.161,.03,4)="D MAILADD^RCRCXMS"
^DD(349.161,.03,21,0)="^.001^4^4^3040429^^"
^DD(349.161,.03,21,1,0)="This field will contain the name of the Regional Counsel mail address"
^DD(349.161,.03,21,2,0)="that transactions from the associated Division of Care will be sent."
^DD(349.161,.03,21,3,0)="This fields address will be different from the primary division's"
^DD(349.161,.03,21,4,0)="RC mail address."
^DD(349.161,.03,23,0)="^^1^1^3040429^"
^DD(349.161,.03,23,1,0)=" "
^DD(349.161,.03,"DT")="3040325"
^DD(349.161,.04,0)="RC DEATH NOTIFICATION ADDRESS^F^^0;4^K:$L(X)>40!($L(X)<3) X"
^DD(349.161,.04,3)="Answer must be 3-40 characters in length."
^DD(349.161,.04,4)="D DEATHADD^RCRCXMS"
^DD(349.161,.04,21,0)="^.001^4^4^3040429^^^"
^DD(349.161,.04,21,1,0)="This field will contain the name of the RC death notifications address"
^DD(349.161,.04,21,2,0)="that death notices from the associated Division of Care will be sent."
^DD(349.161,.04,21,3,0)="This fields address will be different from the primary division's"
^DD(349.161,.04,21,4,0)="RC death notification address."
^DD(349.161,.04,23,0)="^.001^1^1^3040429^^"
^DD(349.161,.04,23,1,0)=" "
^DD(349.161,.04,"DT")="3040429"
^DD(349.161,"B","DIVISION OF CARE",.01)=""
^DD(349.161,"B","RC DEATH NOTIFICATION ADDRESS",.04)=""
^DD(349.161,"B","RC MAIL ADDRESS",.03)=""
^DD(349.161,"B","REMOTE DOMAIN",.02)=""
^DD(349.161,"GL",0,1,.01)=""
^DD(349.161,"GL",0,2,.02)=""
^DD(349.161,"GL",0,3,.03)=""
^DD(349.161,"GL",0,4,.04)=""
^DD(349.161,"IX",.01)=""
^DD(349.2,0)="FIELD^^62^31"
^DD(349.2,0,"DDA")="N"
^DD(349.2,0,"DT")="2970213"
^DD(349.2,0,"IX","AD",349.2,51)=""
^DD(349.2,0,"IX","AKEY1",349.2,.02)=""
^DD(349.2,0,"IX","AKEY2",349.2,.03)=""
^DD(349.2,0,"NM","AR CCPC STATEMENTS")=""
^DD(349.2,0,"VR")="4.5"
^DD(349.2,0,"VRPK")="PRCA"
^DD(349.2,.01,0)="PATIENT^RP340'X^RCD(340,^0;1^S DINUM=X"
^DD(349.2,.01,1,0)="^.1^^0"
^DD(349.2,.01,3)=""
^DD(349.2,.01,"DT")="2960221"
^DD(349.2,.02,0)="SSN^RFXO^^0;2^K:$L(X)>10!($L(X)<9) X S X=$$SSN^RCFN01(+DA)"
^DD(349.2,.02,1,0)="^.1"
^DD(349.2,.02,1,1,0)="349.2^AKEY1^MUMPS"
^DD(349.2,.02,1,1,1)="I $P(^RCPS(349.2,+DA,0),""^"",3)]"""" S ^RCPS(349.2,""AKEY"",$E(X,1,9)_$TR($E($P($P(^RCPS(349.2,+DA,0),""^"",3),"",""),1,5),"" "",""""),DA)="""""
^DD(349.2,.02,1,1,2)="K ^RCPS(349.2,""AKEY"",$E(X,1,9)_$TR($E($P($P(^RCPS(349.2,+DA,0),""^"",3),"",""),1,5),"" "",""""))"
^DD(349.2,.02,1,1,"%D",0)="^^1^1^2960924^^"
^DD(349.2,.02,1,1,"%D",1,0)="This cross-reference is used to key the statements for CCPC."
^DD(349.2,.02,1,1,"DT")="2960924"
^DD(349.2,.02,2)="S Y(0)=Y S Y=Y"
^DD(349.2,.02,2.1)="S Y=Y"
^DD(349.2,.02,3)="Answer must be 9-10 characters in length."
^DD(349.2,.02,21,0)="^^1^1^2960418^^"
^DD(349.2,.02,21,1,0)="This is the SSN for the patient."
^DD(349.2,.02,"DT")="2960924"
^DD(349.2,.03,0)="PATIENT NAME^RFX^^0;3^K:$L(X)>44!($L(X)<3) X S X=$$NAM^RCFN01(+DA)"
^DD(349.2,.03,1,0)="^.1"
^DD(349.2,.03,1,1,0)="349.2^AKEY2^MUMPS"
^DD(349.2,.03,1,1,1)="I $$KEY^RCCPCFN(+DA)]"""" S ^RCPS(349.2,""AKEY"",$$KEY^RCCPCFN(+DA),DA)="""""
^DD(349.2,.03,1,1,2)="I $P(^RCPS(349.2,+DA,0),""^"",2)>1 K ^RCPS(349.2,""AKEY"",$E($P(^RCPS(349.2,+DA,0),""^"",2),1,9)_$TR($E($P(X,"",""),1,5),"" "",""""))"
^DD(349.2,.03,1,1,"%D",0)="^^1^1^2960924^^^^"
^DD(349.2,.03,1,1,"%D",1,0)="This cross-reference is used to key the statements for CCPC."
^DD(349.2,.03,1,1,"DT")="2960924"
^DD(349.2,.03,3)="Answer must be 3-44 characters in length."
^DD(349.2,.03,21,0)="^^1^1^2960418^^^^"
^DD(349.2,.03,21,1,0)="This is the patient name as it appears on the statement."
^DD(349.2,.03,"DT")="2960924"
^DD(349.2,.04,0)="AMOUNT DUE^NJ12,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999.99) X"
^DD(349.2,.04,3)="Type a Dollar Amount between -999999999.99 and 999999999, 2 Decimal Digits"
^DD(349.2,.04,21,0)="^^1^1^2960611^^^"
^DD(349.2,.04,21,1,0)="This is the total amount due for that statement period."
^DD(349.2,.04,"DT")="2960604"
^DD(349.2,.05,0)="PREV BAL^NJ13,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999)!(X<-999999999.99) X"
^DD(349.2,.05,3)="Type a Dollar Amount between -999999999.99 and 9999999999, 2 Decimal Digits"
^DD(349.2,.05,21,0)="^^1^1^2960604^^"
^DD(349.2,.05,21,1,0)="This is the amount of the previous balance on the previous statement."
^DD(349.2,.05,"DT")="2960604"
^DD(349.2,.06,0)="TOTAL CHARGES^NJ12,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(349.2,.06,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(349.2,.06,21,0)="^^1^1^2960216^"
^DD(349.2,.06,21,1,0)="This is the total amount of charges for this statement."
^DD(349.2,.06,"DT")="2960216"
^DD(349.2,.07,0)="TOTAL CREDITS^NJ12,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-9999999.99) X"
^DD(349.2,.07,3)="Type a Dollar Amount between -9999999.99 and 999999999, 2 Decimal Digits"
^DD(349.2,.07,21,0)="^^1^1^2970114^^"
^DD(349.2,.07,21,1,0)="This is the total amount of charges for this patient statement."
^DD(349.2,.07,"DT")="2970114"
^DD(349.2,.08,0)="NEW BALANCE^NJ12,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-9999999.99) X"
^DD(349.2,.08,3)="Type a Dollar Amount between -9999999.99 and 999999999, 2 Decimal Digits"
^DD(349.2,.08,21,0)="^^2^2^2970114^^"
^DD(349.2,.08,21,1,0)="This is the total credits to the patient account for this statement"
^DD(349.2,.08,21,2,0)="period."
^DD(349.2,.08,"DT")="2970114"
^DD(349.2,.09,0)="PROCESS#^NJ3,0^^0;9^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349.2,.09,1,0)="^.1^^0"
^DD(349.2,.09,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(349.2,.09,21,0)="^^1^1^2960216^"
^DD(349.2,.09,21,1,0)="This is the process number for that patient statement."
^DD(349.2,.09,"DT")="2960801"
^DD(349.2,.1,0)="PROCESS END TIME^D^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(349.2,.1,21,0)="^^1^1^2960410^^"
^DD(349.2,.1,21,1,0)="This is the time that the process that sets the entries ended."
^DD(349.2,.1,"DT")="2960216"
^DD(349.2,.11,0)="PS SEGMENT^P349'^RCT(349,^0;11^Q"
^DD(349.2,.11,1,0)="^.1^^0"
^DD(349.2,.11,21,0)="^^1^1^2960221^"
^DD(349.2,.11,21,1,0)="This is the PS SEGMENT that contains this PH segment."
^DD(349.2,.11,"DT")="2970109"
^DD(349.2,.12,0)="INVALID STATEMENT ERROR^P349.7'^RCPSE(349.7,^0;12^Q"
^DD(349.2,.12,3)=""
^DD(349.2,.12,21,0)="^^1^1^2960422^^^^"
^DD(349.2,.12,21,1,0)="This is the error code for the record that was not accepted by CCPC."
^DD(349.2,.12,"DT")="2960411"
^DD(349.2,.13,0)="PRINCIPAL^NJ9,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(349.2,.13,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(349.2,.13,21,0)="^^1^1^2960404^"
^DD(349.2,.13,21,1,0)="This is the principal amount recorded as the balance of the last statement."
^DD(349.2,.13,"DT")="2960404"
^DD(349.2,.14,0)="INTEREST^NJ9,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(349.2,.14,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(349.2,.14,21,0)="^^1^1^2960404^"
^DD(349.2,.14,21,1,0)="This is the interest amount recorded as the balance of the last statement."
^DD(349.2,.14,"DT")="2960404"
^DD(349.2,.15,0)="ADMIN^NJ9,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(349.2,.15,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(349.2,.15,21,0)="^^1^1^2960404^"
^DD(349.2,.15,21,1,0)="This is the administrative charges total as recorded with the last statement."
^DD(349.2,.15,"DT")="2960404"
^DD(349.2,.16,0)="MARSHAL FEES^NJ9,2^^0;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(349.2,.16,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(349.2,.16,21,0)="^^1^1^2960404^"
^DD(349.2,.16,21,1,0)="This is the administrative fees total as recorded with the last statement."
^DD(349.2,.16,"DT")="2960404"
^DD(349.2,.17,0)="COURT COSTS^NJ9,2^^0;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(349.2,.17,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(349.2,.17,21,0)="^^1^1^2960404^"
^DD(349.2,.17,21,1,0)="This is the total of marshal fees recorded as of the last statement."
^DD(349.2,.17,"DT")="2960404"
^DD(349.2,.18,0)="CCPC FILE BUILT^S^0:NOT BUILT;1:BUILT;^0;18^Q"
^DD(349.2,.18,21,0)="^^2^2^2960718^^"
^DD(349.2,.18,21,1,0)="This field will store a marker that the CCPC PATIENT STATEMENTS file (349.2)"
^DD(349.2,.18,21,2,0)="is a complete file for that statement day."
^DD(349.2,.18,"DT")="2960716"
^DD(349.2,11,0)="ADDRESS 1^F^^1;1^K:$L(X)>40!($L(X)<3) X"
^DD(349.2,11,3)="Answer must be 3-40 characters in length."
^DD(349.2,11,21,0)="^^1^1^2960409^^^"
^DD(349.2,11,21,1,0)="This is the first address line for the patient."
^DD(349.2,11,"DT")="2960409"
^DD(349.2,12,0)="ADDRESS 2^F^^1;2^K:$L(X)>40!($L(X)<3) X"
^DD(349.2,12,3)="Answer must be 3-40 characters in length."
^DD(349.2,12,21,0)="^^1^1^2960409^^^"
^DD(349.2,12,21,1,0)="This is the second address line for the patient."
^DD(349.2,12,"DT")="2960409"
^DD(349.2,13,0)="ADDRESS 3^F^^1;3^K:$L(X)>40!($L(X)<1) X"
^DD(349.2,13,3)="Answer must be 1-40 characters in length."
^DD(349.2,13,21,0)="^^1^1^2960409^^^"
^DD(349.2,13,21,1,0)="This is the street address line 3 for the patient."
^DD(349.2,13,"DT")="2960409"
^DD(349.2,14,0)="CITY^F^^1;4^K:$L(X)>40!($L(X)<1) X"
^DD(349.2,14,3)="Answer must be 1-40 characters in length."
^DD(349.2,14,21,0)="^^1^1^2960409^^"
^DD(349.2,14,21,1,0)="This is the city name for the patient address."
^DD(349.2,14,"DT")="2960409"
^DD(349.2,15,0)="STATE^F^^1;5^K:$L(X)>2!($L(X)<2) X"
^DD(349.2,15,3)="Answer must be 2 characters in length."
^DD(349.2,15,21,0)="^^1^1^2960409^^"
^DD(349.2,15,21,1,0)="This is the state name abbreviation for the patient address."
^DD(349.2,15,"DT")="2960409"
^DD(349.2,16,0)="ZIP CODE^F^^1;6^K:$L(X)>9!($L(X)<5) X"
^DD(349.2,16,3)="Answer must be 5-9 characters in length."
^DD(349.2,16,21,0)="^^1^1^2970114^^^"
^DD(349.2,16,21,1,0)="This is the zip code for the patient address."
^DD(349.2,16,"DT")="2970114"
^DD(349.2,17,0)="FOREIGN COUNTRY^F^^1;7^K:$L(X)>30!($L(X)<2) X"
^DD(349.2,17,3)="Answer must be 2-30 characters in length."
^DD(349.2,17,21,0)="^^1^1^2960815^^^^"
^DD(349.2,17,21,1,0)="This is the country code field for the patient address."
^DD(349.2,17,"DT")="2960801"
^DD(349.2,20,0)="PD LINE^349.21A^^2;0"
^DD(349.2,20,21,0)="^^1^1^2970218^^^^"
^DD(349.2,20,21,1,0)="This is the PD segment level of the individual patient statement."
^DD(349.2,30,0)="SPECIAL NOTICES^F^^3;1^K:$L(X)>160!($L(X)<1) X"
^DD(349.2,30,3)="Answer must be 1-160 characters in length."
^DD(349.2,30,21,0)="^^1^1^2960611^^"
^DD(349.2,30,21,1,0)="This is the special notice information that prints on the patient statement."
^DD(349.2,30,"DT")="2960404"
^DD(349.2,40,0)="PARAGRAPH CODES^F^^4;1^K:$L(X)>40!($L(X)<2) X"
^DD(349.2,40,3)="Answer must be 2-40 characters in length."
^DD(349.2,40,21,0)="^^2^2^2960404^"
^DD(349.2,40,21,1,0)="This is the paragraph codes indicating what paragraphs will print on the"
^DD(349.2,40,21,2,0)="patient statement."
^DD(349.2,40,"DT")="2960404"
^DD(349.2,51,0)="ERROR CODE(S)^F^^5;1^K:$L(X)>30!($L(X)<5) X"
^DD(349.2,51,1,0)="^.1"
^DD(349.2,51,1,1,0)="349.2^AD^MUMPS"
^DD(349.2,51,1,1,1)="S ^RCPS(349.2,""AD"",""E"",DA)="""""
^DD(349.2,51,1,1,2)="K ^RCPS(349.2,""AD"",""E"",DA)"
^DD(349.2,51,1,1,"%D",0)="^^2^2^2960523^^"
^DD(349.2,51,1,1,"%D",1,0)="This is the cross-reference to find patient statement errors that are"
^DD(349.2,51,1,1,"%D",2,0)="returned from CCPC."
^DD(349.2,51,1,1,"DT")="2960523"
^DD(349.2,51,3)="Answer must be 5-30 characters in length."
^DD(349.2,51,21,0)="^^2^2^2960523^"
^DD(349.2,51,21,1,0)="These are the error codes sent back by CCPC when a statement cannot be"
^DD(349.2,51,21,2,0)="printed."
^DD(349.2,51,"DT")="2960523"
^DD(349.2,61,0)="CCPC PRINTED^S^1:Y;0:N;^6;1^Q"
^DD(349.2,61,21,0)="^^2^2^2960606^"
^DD(349.2,61,21,1,0)="This field indicates whether the patient statement for this patient printed"
^DD(349.2,61,21,2,0)="at the CCPC or not."
^DD(349.2,61,"DT")="2960606"
^DD(349.2,62,0)="LARGE PRINT NEEDED ON STMT^S^1:YES;0:NO;^7;1^Q"
^DD(349.2,62,21,0)="^^4^4^3050301^"
^DD(349.2,62,21,1,0)="This field will identify 1st party debtors"
^DD(349.2,62,21,2,0)="requiring statements with large print."
^DD(349.2,62,21,3,0)=""
^DD(349.2,62,21,4,0)="This is the same field in file 340 field 111."
^DD(349.2,62,"DT")="3050301"
^DD(349.2,"B","ADDRESS 1",11)=""
^DD(349.2,"B","ADDRESS 2",12)=""
^DD(349.2,"B","ADDRESS 3",13)=""
^DD(349.2,"B","ADMIN",.15)=""
^DD(349.2,"B","AMOUNT DUE",.04)=""
^DD(349.2,"B","CCPC FILE BUILT",.18)=""
^DD(349.2,"B","CCPC PRINTED",61)=""
^DD(349.2,"B","CITY",14)=""
^DD(349.2,"B","COURT COSTS",.17)=""
^DD(349.2,"B","ERROR CODE(S)",51)=""
^DD(349.2,"B","FOREIGN COUNTRY",17)=""
^DD(349.2,"B","INTEREST",.14)=""
^DD(349.2,"B","INVALID STATEMENT ERROR",.12)=""
^DD(349.2,"B","LARGE PRINT NEEDED ON STMT",62)=""
^DD(349.2,"B","MARSHAL FEES",.16)=""
^DD(349.2,"B","NEW BALANCE",.08)=""
^DD(349.2,"B","PARAGRAPH CODES",40)=""
^DD(349.2,"B","PATIENT",.01)=""
^DD(349.2,"B","PATIENT NAME",.03)=""
^DD(349.2,"B","PD LINE",20)=""
^DD(349.2,"B","PREV BAL",.05)=""
^DD(349.2,"B","PRINCIPAL",.13)=""
^DD(349.2,"B","PROCESS END TIME",.1)=""
^DD(349.2,"B","PROCESS#",.09)=""
^DD(349.2,"B","PS SEGMENT",.11)=""
^DD(349.2,"B","SPECIAL NOTICES",30)=""
^DD(349.2,"B","SSN",.02)=""
^DD(349.2,"B","STATE",15)=""
^DD(349.2,"B","TOTAL CHARGES",.06)=""
^DD(349.2,"B","TOTAL CREDITS",.07)=""
^DD(349.2,"B","ZIP CODE",16)=""
^DD(349.2,"GL",0,1,.01)=""
^DD(349.2,"GL",0,2,.02)=""
^DD(349.2,"GL",0,3,.03)=""
^DD(349.2,"GL",0,4,.04)=""
^DD(349.2,"GL",0,5,.05)=""
^DD(349.2,"GL",0,6,.06)=""
^DD(349.2,"GL",0,7,.07)=""
^DD(349.2,"GL",0,8,.08)=""
^DD(349.2,"GL",0,9,.09)=""
^DD(349.2,"GL",0,10,.1)=""
^DD(349.2,"GL",0,11,.11)=""
^DD(349.2,"GL",0,12,.12)=""
^DD(349.2,"GL",0,13,.13)=""
^DD(349.2,"GL",0,14,.14)=""
^DD(349.2,"GL",0,15,.15)=""
^DD(349.2,"GL",0,16,.16)=""
^DD(349.2,"GL",0,17,.17)=""
^DD(349.2,"GL",0,18,.18)=""
^DD(349.2,"GL",1,1,11)=""
^DD(349.2,"GL",1,2,12)=""
^DD(349.2,"GL",1,3,13)=""
^DD(349.2,"GL",1,4,14)=""
^DD(349.2,"GL",1,5,15)=""
^DD(349.2,"GL",1,6,16)=""
^DD(349.2,"GL",1,7,17)=""
^DD(349.2,"GL",2,0,20)=""
^DD(349.2,"GL",3,1,30)=""
^DD(349.2,"GL",4,1,40)=""
^DD(349.2,"GL",5,1,51)=""
^DD(349.2,"GL",6,1,61)=""
^DD(349.2,"GL",7,1,62)=""
^DD(349.2,"IX",.02)=""
^DD(349.2,"IX",.03)=""
^DD(349.2,"IX",51)=""
^DD(349.2,"RQ",.01)=""
^DD(349.2,"RQ",.02)=""
^DD(349.2,"RQ",.03)=""
^DD(349.2,"SB",349.21,20)=""
^DD(349.21,0)="PD LINE SUB-FIELD^^3^4"
^DD(349.21,0,"DT")="2970213"
^DD(349.21,0,"NM","PD LINE")=""
^DD(349.21,0,"UP")="349.2"
^DD(349.21,.01,0)="DATE POSTED^F^^0;1^K:$L(X)>14!($L(X)<1) X"
^DD(349.21,.01,1,0)="^.1^^0"
^DD(349.21,.01,3)="Answer must be 1-14 characters in length."
^DD(349.21,.01,21,0)="^^1^1^2970218^^^^"
^DD(349.21,.01,21,1,0)="This is the patient statement line of activity."
^DD(349.21,.01,"DT")="2970218"
^DD(349.21,1,0)="TRANSACTION DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(349.21,1,3)="Answer must be 3-50 characters in length."
^DD(349.21,1,21,0)="^^1^1^2960321^^"
^DD(349.21,1,21,1,0)="This is the type of activity that occurred."
^DD(349.21,1,"DT")="2960409"
^DD(349.21,2,0)="TRANSACTION AMOUNT^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999.99) X"
^DD(349.21,2,3)="Type a Dollar Amount between -999999.99 and 999999999, 2 Decimal Digits"
^DD(349.21,2,21,0)="^^1^1^2970213^^"
^DD(349.21,2,21,1,0)="This is the amount of the transaction."
^DD(349.21,2,"DT")="2970213"
^DD(349.21,3,0)="BILL REF. NO.^F^^0;4^K:$L(X)>12!($L(X)<9) X"
^DD(349.21,3,1,0)="^.1^^0"
^DD(349.21,3,3)="Answer must be 9-12 characters in length."
^DD(349.21,3,21,0)="^^1^1^2960409^^^"
^DD(349.21,3,21,1,0)="This is the bill number as it appears in file 430."
^DD(349.21,3,"DT")="2960529"
^DD(349.21,"B","BILL REF. NO.",3)=""
^DD(349.21,"B","DATE POSTED",.01)=""
^DD(349.21,"B","TRANSACTION AMOUNT",2)=""
^DD(349.21,"B","TRANSACTION DESCRIPTION",1)=""
^DD(349.21,"GL",0,1,.01)=""
^DD(349.21,"GL",0,2,1)=""
^DD(349.21,"GL",0,3,2)=""
^DD(349.21,"GL",0,4,3)=""
^DD(349.3,0)="FIELD^^8^9"
^DD(349.3,0,"DDA")="N"
^DD(349.3,0,"DT")="2970927"
^DD(349.3,0,"IX","AD",349.3,8)=""
^DD(349.3,0,"IX","B",349.3,.01)=""
^DD(349.3,0,"NM","AR RC TRANSMISSIONS")=""
^DD(349.3,0,"VR")="4.5"
^DD(349.3,0,"VRPK")="PRCA"
^DD(349.3,.01,0)="MESSAGE NUMBER^RNJ10,0^^0;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(349.3,.01,1,0)="^.1"
^DD(349.3,.01,1,1,0)="349.3^B"
^DD(349.3,.01,1,1,1)="S ^RCT(349.3,""B"",$E(X,1,30),DA)="""""
^DD(349.3,.01,1,1,2)="K ^RCT(349.3,""B"",$E(X,1,30),DA)"
^DD(349.3,.01,3)="Message Number must be from 0 to 9999999999"
^DD(349.3,.01,21,0)="^^1^1^2970927^"
^DD(349.3,.01,21,1,0)="This field contains a Mail Message number for a RC Transmission."
^DD(349.3,.01,"DT")="2970927"
^DD(349.3,1,0)="SUBJECT^F^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(349.3,1,3)="Answer must be 3-45 characters in length."
^DD(349.3,1,21,0)="^^1^1^2970927^"
^DD(349.3,1,21,1,0)="This is the Mail Message Subject"
^DD(349.3,1,"DT")="2970927"
^DD(349.3,2,0)="SENDER^F^^0;3^K:$L(X)>45!($L(X)<3) X"
^DD(349.3,2,3)="Answer must be 3-45 characters in length."
^DD(349.3,2,21,0)="^^1^1^2970927^"
^DD(349.3,2,21,1,0)="The person who sent the message."
^DD(349.3,2,"DT")="2970927"
^DD(349.3,3,0)="RECEIPIENT^F^^0;4^K:$L(X)>45!($L(X)<1) X"
^DD(349.3,3,3)="Answer must be 1-45 characters in length."
^DD(349.3,3,21,0)="^^1^1^2970927^"
^DD(349.3,3,21,1,0)="This is the receipient of the message."
^DD(349.3,3,"DT")="2970927"
^DD(349.3,4,0)="DATE^D^^2;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(349.3,4,3)="Enter the date this entry was added to the file."
^DD(349.3,4,21,0)="^^1^1^2980424^^^"
^DD(349.3,4,21,1,0)="This is when the message was entered in this file."
^DD(349.3,4,"DT")="2971106"
^DD(349.3,5,0)="CONFIRMATION^NJ10,0^^2;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(349.3,5,3)="Enter the Confirmation Message"
^DD(349.3,5,21,0)="^^1^1^2971106^^"
^DD(349.3,5,21,1,0)="This is the message number received from RC that the message was received."
^DD(349.3,5,"DT")="2970927"
^DD(349.3,6,0)="ERROR^NJ10,0^^2;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(349.3,6,3)="Enter the Error Message from RC"
^DD(349.3,6,21,0)="^^1^1^2970927^"
^DD(349.3,6,21,1,0)="This is the Mail Message that contains the Error message from RC."
^DD(349.3,6,"DT")="2970927"
^DD(349.3,7,0)="COMMENTS^349.37^^3;0"
^DD(349.3,7,21,0)="^^1^1^2980423^^"
^DD(349.3,7,21,1,0)="Comments about this Transmission."
^DD(349.3,8,0)="PURGE DATE^D^^4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(349.3,8,1,0)="^.1"
^DD(349.3,8,1,1,0)="349.3^AD"
^DD(349.3,8,1,1,1)="S ^RCT(349.3,""AD"",$E(X,1,30),DA)="""""
^DD(349.3,8,1,1,2)="K ^RCT(349.3,""AD"",$E(X,1,30),DA)"
^DD(349.3,8,1,1,"%D",0)="^^2^2^2970929^"
^DD(349.3,8,1,1,"%D",1,0)="This cross-ref is used to record the Purge date. Entries"
^DD(349.3,8,1,1,"%D",2,0)="will be purged after this date."
^DD(349.3,8,1,1,"DT")="2970929"
^DD(349.3,8,3)="Enter the date this entry should be purged after."
^DD(349.3,8,21,0)="^^1^1^2970929^^^"
^DD(349.3,8,21,1,0)="Purge this entry after this date."
^DD(349.3,8,"DT")="2970929"
^DD(349.3,"B","COMMENTS",7)=""
^DD(349.3,"B","CONFIRMATION",5)=""
^DD(349.3,"B","DATE",4)=""
^DD(349.3,"B","ERROR",6)=""
^DD(349.3,"B","MESSAGE NUMBER",.01)=""
^DD(349.3,"B","PURGE DATE",8)=""
^DD(349.3,"B","RECEIPIENT",3)=""
^DD(349.3,"B","SENDER",2)=""
^DD(349.3,"B","SUBJECT",1)=""
^DD(349.3,"GL",0,1,.01)=""
^DD(349.3,"GL",0,2,1)=""
^DD(349.3,"GL",0,3,2)=""
^DD(349.3,"GL",0,4,3)=""
^DD(349.3,"GL",2,1,4)=""
^DD(349.3,"GL",2,2,5)=""
^DD(349.3,"GL",2,3,6)=""
^DD(349.3,"GL",3,0,7)=""
^DD(349.3,"GL",4,1,8)=""
^DD(349.3,"IX",.01)=""
^DD(349.3,"IX",8)=""
^DD(349.3,"RQ",.01)=""
^DD(349.3,"SB",349.37,7)=""
^DD(349.37,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(349.37,0,"DT")="2970927"
^DD(349.37,0,"NM","COMMENTS")=""
^DD(349.37,0,"UP")="349.3"
^DD(349.37,.01,0)="COMMENTS^W^^0;1^Q"
^DD(349.37,.01,3)="Enter comments about this Transmission."
^DD(349.37,.01,21,0)="^^1^1^2980424^^^^"
^DD(349.37,.01,21,1,0)="Enter any comments about the message."
^DD(349.37,.01,"DT")="2970927"
^DD(349.37,"B","COMMENTS",.01)=""
^DD(349.37,"GL",0,1,.01)=""
^DD(349.4,0)="FIELD^^3^4"
^DD(349.4,0,"DDA")="N"
^DD(349.4,0,"DT")="2970927"
^DD(349.4,0,"IX","B",349.4,.01)=""
^DD(349.4,0,"NM","AR RC TRANSACTION CODES")=""
^DD(349.4,0,"VR")="4.5"
^DD(349.4,0,"VRPK")="PRCA"
^DD(349.4,.01,0)="NAME^RF^^0;1^K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X"
^DD(349.4,.01,1,0)="^.1"
^DD(349.4,.01,1,1,0)="349.4^B"
^DD(349.4,.01,1,1,1)="S ^RCT(349.4,""B"",$E(X,1,30),DA)="""""
^DD(349.4,.01,1,1,2)="K ^RCT(349.4,""B"",$E(X,1,30),DA)"
^DD(349.4,.01,3)="Answer must be 2-10 characters in length."
^DD(349.4,.01,21,0)="^^2^2^2970927^"
^DD(349.4,.01,21,1,0)="This is the name of the Transaction Code that is sent to or from"
^DD(349.4,.01,21,2,0)="the Regional Counsel Office. These codes should not be altered."
^DD(349.4,.01,"DT")="2970927"
^DD(349.4,1,0)="EXPANDED NAME^F^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(349.4,1,3)="Answer must be 3-45 characters in length."
^DD(349.4,1,21,0)="^^1^1^2970927^"
^DD(349.4,1,21,1,0)="This is the expanded name of the code."
^DD(349.4,1,"DT")="2970927"
^DD(349.4,2,0)="STATUS^P430.3'^PRCA(430.3,^0;3^Q"
^DD(349.4,2,3)="Enter the Bill status the bill should be in after the Transaction is applied."
^DD(349.4,2,21,0)="^^2^2^2970927^"
^DD(349.4,2,21,1,0)="This is the status the AR Bill will be in after this transaction"
^DD(349.4,2,21,2,0)="code is applied."
^DD(349.4,2,"DT")="2970927"
^DD(349.4,3,0)="CONTRACTUAL ADJUSTMENT^S^1:YES;0:NO;^0;4^Q"
^DD(349.4,3,3)="Enter Yes if the transaction should set the Contractual Adj. field of File 433 to Yes."
^DD(349.4,3,21,0)="^^2^2^2980423^^"
^DD(349.4,3,21,1,0)="This field will determine if the Transaction will be posted as "
^DD(349.4,3,21,2,0)="a Contractual Adjustment."
^DD(349.4,3,"DT")="2970927"
^DD(349.4,"B","CONTRACTUAL ADJUSTMENT",3)=""
^DD(349.4,"B","EXPANDED NAME",1)=""
^DD(349.4,"B","NAME",.01)=""
^DD(349.4,"B","STATUS",2)=""
^DD(349.4,"GL",0,1,.01)=""
^DD(349.4,"GL",0,2,1)=""
^DD(349.4,"GL",0,3,2)=""
^DD(349.4,"GL",0,4,3)=""
^DD(349.4,"IX",.01)=""
^DD(349.4,"RQ",.01)=""
^DD(349.7,0)="FIELD^^4^5"
^DD(349.7,0,"DDA")="N"
^DD(349.7,0,"DT")="2960802"
^DD(349.7,0,"IX","B",349.7,.01)=""
^DD(349.7,0,"NM","CCPC STATEMENT ERRORS")=""
^DD(349.7,0,"PT",349.2,.12)=""
^DD(349.7,0,"VR")="4.5"
^DD(349.7,0,"VRPK")="PRCA"
^DD(349.7,.01,0)="ERROR NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(349.7,.01,1,0)="^.1"
^DD(349.7,.01,1,1,0)="349.7^B"
^DD(349.7,.01,1,1,1)="S ^RCPSE(349.7,""B"",$E(X,1,30),DA)="""""
^DD(349.7,.01,1,1,2)="K ^RCPSE(349.7,""B"",$E(X,1,30),DA)"
^DD(349.7,.01,3)="Answer must be 3-30 characters in length."
^DD(349.7,.01,21,0)="^^2^2^2960411^"
^DD(349.7,.01,21,1,0)="This is the name of the error that caused the patient statement not"
^DD(349.7,.01,21,2,0)="to print in CCPC."
^DD(349.7,.01,"DT")="2960411"
^DD(349.7,1,0)="ERROR TYPE^P349.8'^RCPSS(349.8,^0;2^Q"
^DD(349.7,1,21,0)="^^1^1^2960412^"
^DD(349.7,1,21,1,0)="This field will hold the type of error that is sent back from CCPC."
^DD(349.7,1,"DT")="2960412"
^DD(349.7,2,0)="ERROR ACTION^S^R:RE-TRANSMIT;S:SEND MESSAGE;^0;3^Q"
^DD(349.7,2,3)=""
^DD(349.7,2,21,0)="^^2^2^2960522^^"
^DD(349.7,2,21,1,0)="This field will hold the type of action to take when an error of this"
^DD(349.7,2,21,2,0)="type occurs."
^DD(349.7,2,"DT")="2960522"
^DD(349.7,3,0)="ERROR DESCRIPTION^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(349.7,3,3)="Answer must be 3-30 characters in length."
^DD(349.7,3,21,0)="^^1^1^2960522^"
^DD(349.7,3,21,1,0)="This is the cause of the error code."
^DD(349.7,3,"DT")="2960522"
^DD(349.7,4,0)="EXPANDED DESCRIPTION^F^^1;1^K:$L(X)>200!($L(X)<3) X"
^DD(349.7,4,3)="Answer must be 3-200 characters in length."
^DD(349.7,4,21,0)="^^1^1^2960802^"
^DD(349.7,4,21,1,0)="This field store the expanded description for an error."
^DD(349.7,4,"DT")="2960802"
^DD(349.7,"B","ERROR ACTION",2)=""
^DD(349.7,"B","ERROR DESCRIPTION",3)=""
^DD(349.7,"B","ERROR NAME",.01)=""
^DD(349.7,"B","ERROR TYPE",1)=""
^DD(349.7,"B","EXPANDED DESCRIPTION",4)=""
^DD(349.7,"GL",0,1,.01)=""
^DD(349.7,"GL",0,2,1)=""
^DD(349.7,"GL",0,3,2)=""
^DD(349.7,"GL",0,4,3)=""
^DD(349.7,"GL",1,1,4)=""
^DD(349.7,"IX",.01)=""
^DD(349.7,"RQ",.01)=""
^DD(349.8,0)="FIELD^^.01^1"
^DD(349.8,0,"DDA")="N"
^DD(349.8,0,"DT")="2960522"
^DD(349.8,0,"IX","B",349.8,.01)=""
^DD(349.8,0,"NM","CCPC ERROR TYPE")=""
^DD(349.8,0,"PT",349.7,1)=""
^DD(349.8,0,"VR")="4.5"
^DD(349.8,0,"VRPK")="PRCA"
^DD(349.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(349.8,.01,1,0)="^.1"
^DD(349.8,.01,1,1,0)="349.8^B"
^DD(349.8,.01,1,1,1)="S ^RCPSS(349.8,""B"",$E(X,1,30),DA)="""""
^DD(349.8,.01,1,1,2)="K ^RCPSS(349.8,""B"",$E(X,1,30),DA)"
^DD(349.8,.01,3)="Answer must be 2-30 characters in length."
^DD(349.8,.01,"DT")="2960522"
^DD(349.8,"B","NAME",.01)=""
^DD(349.8,"GL",0,1,.01)=""
^DD(349.8,"IX",.01)=""
^DD(349.8,"RQ",.01)=""
^DD(349.9,0)="FIELD^^21^7"
^DD(349.9,0,"DDA")="N"
^DD(349.9,0,"DT")="2960820"
^DD(349.9,0,"IX","B",349.9,.01)=""
^DD(349.9,0,"NM","AR TRANSMISSION SEGMENTS")=""
^DD(349.9,0,"VR")="4.5"
^DD(349.9,0,"VRPK")="PRCA"
^DD(349.9,.01,0)="NAME^RP349.1^RCT(349.1,^0;1^Q"
^DD(349.9,.01,1,0)="^.1"
^DD(349.9,.01,1,1,0)="349.9^B"
^DD(349.9,.01,1,1,1)="S ^RCT(349.9,""B"",$E(X,1,30),DA)="""""
^DD(349.9,.01,1,1,2)="K ^RCT(349.9,""B"",$E(X,1,30),DA)"
^DD(349.9,.01,3)=""
^DD(349.9,.01,21,0)="^^1^1^2960820^"
^DD(349.9,.01,21,1,0)="This is the name of the segment/router."
^DD(349.9,.01,"DT")="2960820"
^DD(349.9,.02,0)="MESSAGE SEQUENCE RECEIVED^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349.9,.02,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(349.9,.02,21,0)="^^1^1^2960820^"
^DD(349.9,.02,21,1,0)="This is the number of messages received."
^DD(349.9,.02,"DT")="2960820"
^DD(349.9,.03,0)="LAST MESSAGE SEQUENCE RECEIVED^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(349.9,.03,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(349.9,.03,21,0)="^^1^1^2960820^"
^DD(349.9,.03,21,1,0)="This is the last message sequence number received."
^DD(349.9,.03,"DT")="2960820"
^DD(349.9,11,0)="REMOTE USER^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(349.9,11,3)="Answer must be 3-30 characters in length."
^DD(349.9,11,21,0)="^^1^1^2960626^"
^DD(349.9,11,21,1,0)="This is the user name at the remote address which receives the transmission."
^DD(349.9,11,"DT")="2960626"
^DD(349.9,12,0)="DOMAIN NAME^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(349.9,12,3)="Answer must be 3-30 characters in length."
^DD(349.9,12,5,1,0)="349.9^13^1"
^DD(349.9,12,9)="^"
^DD(349.9,12,21,0)="^^1^1^2960626^"
^DD(349.9,12,21,1,0)="This is the name of the remote domain."
^DD(349.9,12,"DT")="2960626"
^DD(349.9,13,0)="DOMAIN^P4.2'^DIC(4.2,^1;3^Q"
^DD(349.9,13,1,0)="^.1"
^DD(349.9,13,1,1,0)="^^TRIGGER^349.9^12"
^DD(349.9,13,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349.9,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(349.9,13,1,1,1.1) X ^DD(349.9,13,1,1,1.4)"
^DD(349.9,13,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(4.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(349.9,13,1,1,1.4)="S DIH=$S($D(^RCT(349.9,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=349.9,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(349.9,13,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RCT(349.9,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(349.9,13,1,1,2.1) X ^DD(349.9,13,1,1,2.4)"
^DD(349.9,13,1,1,2.1)="S X=DIV X ^DD(349.9,13,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(349.9,13,1,1,2.4)="S DIH=$S($D(^RCT(349.9,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=349.9,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(349.9,13,1,1,59.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^RCT(349.9,D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^DIC(4.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""")"
^DD(349.9,13,1,1,"CREATE VALUE")="DOMAIN:.01"
^DD(349.9,13,1,1,"DELETE VALUE")="DOMAIN:.01"
^DD(349.9,13,1,1,"FIELD")="DOMAIN NAME"
^DD(349.9,13,21,0)="^^1^1^2960626^"
^DD(349.9,13,21,1,0)="This is the link to the DOMAIN file (4.2)."
^DD(349.9,13,"DT")="2960626"
^DD(349.9,21,0)="ACTIVE^S^1:ACTIVE;0:NOT ACTIVE;^2;1^Q"
^DD(349.9,21,21,0)="^^2^2^2960626^"
^DD(349.9,21,21,1,0)="This field indicates if the domain is actively receiving tranmissions from"
^DD(349.9,21,21,2,0)="the AR software."
^DD(349.9,21,"DT")="2960626"
^DD(349.9,"B","ACTIVE",21)=""
^DD(349.9,"B","DOMAIN",13)=""
^DD(349.9,"B","DOMAIN NAME",12)=""
^DD(349.9,"B","LAST MESSAGE SEQUENCE RECEIVED",.03)=""
^DD(349.9,"B","MESSAGE SEQUENCE RECEIVED",.02)=""
^DD(349.9,"B","NAME",.01)=""
^DD(349.9,"B","REMOTE USER",11)=""
^DD(349.9,"GL",0,1,.01)=""
^DD(349.9,"GL",0,2,.02)=""
^DD(349.9,"GL",0,3,.03)=""
^DD(349.9,"GL",1,1,11)=""
^DD(349.9,"GL",1,2,12)=""
^DD(349.9,"GL",1,3,13)=""
^DD(349.9,"GL",2,1,21)=""
^DD(349.9,"IX",.01)=""
^DD(349.9,"IX",13)=""
^DD(349.9,"RQ",.01)=""
^DD(350,0)="FIELD^^17^29"
^DD(350,0,"DIK")="IBXA"
^DD(350,0,"DIKOLD")="IBXA"
^DD(350,0,"DT")="3031029"
^DD(350,0,"IX","ABIL",350,.11)=""
^DD(350,0,"IX","AC",350,.05)=""
^DD(350,0,"IX","ACT",350,.05)=""
^DD(350,0,"IX","ACT1",350,.16)=""
^DD(350,0,"IX","ACVA",350,.02)=""
^DD(350,0,"IX","ACVA1",350,15)=""
^DD(350,0,"IX","AD",350,.09)=""
^DD(350,0,"IX","AE",350,.03)=""
^DD(350,0,"IX","AF",350,.16)=""
^DD(350,0,"IX","AFDT",350,.02)=""
^DD(350,0,"IX","AFDT1",350,.17)=""
^DD(350,0,"IX","AH",350,.05)=""
^DD(350,0,"IX","AH1",350,.02)=""
^DD(350,0,"IX","AHDT",350,16)=""
^DD(350,0,"IX","AHDT1",350,.05)=""
^DD(350,0,"IX","AI",350,.05)=""
^DD(350,0,"IX","AI1",350,.02)=""
^DD(350,0,"IX","AJ",350,.05)=""
^DD(350,0,"IX","AJ1",350,.02)=""
^DD(350,0,"IX","APDT",350,.09)=""
^DD(350,0,"IX","APDT1",350,12)=""
^DD(350,0,"IX","APTDT",350,.02)=""
^DD(350,0,"IX","APTDT1",350,12)=""
^DD(350,0,"IX","AT",350,.12)=""
^DD(350,0,"IX","B",350,.01)=""
^DD(350,0,"IX","C",350,.02)=""
^DD(350,0,"IX","D",350,12)=""
^DD(350,0,"NM","INTEGRATED BILLING ACTION")=""
^DD(350,0,"PT",52,106)=""
^DD(350,0,"PT",52.1,9)=""
^DD(350,0,"PT",350,.09)=""
^DD(350,0,"PT",350,.16)=""
^DD(350,0,"PT",351.2,.04)=""
^DD(350,0,"PT",351.5,.08)=""
^DD(350,0,"PT",354.71,.04)=""
^DD(350,0,"VR")="2.0"
^DD(350,0,"VRPK")="IB"
^DD(350,.01,0)="REFERENCE NUMBER^RNJ12,0I^^0;1^K:+X'=X!(X>999999999999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(350,.01,1,0)="^.1"
^DD(350,.01,1,1,0)="350^B"
^DD(350,.01,1,1,1)="S ^IB(""B"",$E(X,1,30),DA)="""""
^DD(350,.01,1,1,2)="K ^IB(""B"",$E(X,1,30),DA)"
^DD(350,.01,3)="Type a Number between 1000 and 999999999999, 0 Decimal Digits"
^DD(350,.01,21,0)="^^5^5^2940209^^^"
^DD(350,.01,21,1,0)="This is the station number concatenated with the internal number of "
^DD(350,.01,21,2,0)="this entry in this file.  The purpose of this number is to provide"
^DD(350,.01,21,3,0)="a unique number for each entry for each station.  Modifying this"
^DD(350,.01,21,4,0)="number may have serious consequences when and where centralized"
^DD(350,.01,21,5,0)="billing and accounting are taking place."
^DD(350,.01,"DEL",1,0)="I 1 W !,""Deleting entries not allowed"""
^DD(350,.01,"DT")="3020411"
^DD(350,.02,0)="PATIENT^P2'I^DPT(^0;2^Q"
^DD(350,.02,1,0)="^.1"
^DD(350,.02,1,1,0)="350^C"
^DD(350,.02,1,1,1)="S ^IB(""C"",$E(X,1,30),DA)="""""
^DD(350,.02,1,1,2)="K ^IB(""C"",$E(X,1,30),DA)"
^DD(350,.02,1,2,0)="350^AFDT^MUMPS"
^DD(350,.02,1,2,1)="I $D(^IB(DA,0)),$P(^(0),""^"",17) S ^IB(""AFDT"",X,-$P(^(0),""^"",17),DA)="""""
^DD(350,.02,1,2,2)="I $D(^IB(DA,0)),$P(^(0),""^"",17) K ^IB(""AFDT"",X,-$P(^(0),""^"",17),DA)"
^DD(350,.02,1,2,"%D",0)="^.101^5^5^3020301^^"
^DD(350,.02,1,2,"%D",1,0)="Cross-reference of all IB ACTION entries which represent inpatient/NHCU"
^DD(350,.02,1,2,"%D",2,0)="admissions by the patient field and the minus (negative or inverse) event"
^DD(350,.02,1,2,"%D",3,0)="date (#.17) field.  A billable event may be located for a patient using"
^DD(350,.02,1,2,"%D",4,0)="this cross-reference.  The ""AFDT1"" cross-reference on the event date (#.17)"
^DD(350,.02,1,2,"%D",5,0)="field is the companion to this cross-reference."
^DD(350,.02,1,2,"DT")="2911101"
^DD(350,.02,1,3,0)="350^APTDT^MUMPS"
^DD(350,.02,1,3,1)="I $D(^IB(DA,1)),$P(^(1),""^"",2) S ^IB(""APTDT"",X,$P(^(1),""^"",2),DA)="""""
^DD(350,.02,1,3,2)="I $D(^IB(DA,1)),$P(^(1),""^"",2) K ^IB(""APTDT"",X,$P(^(1),""^"",2),DA)"
^DD(350,.02,1,3,"%D",0)="^^3^3^2920226^^^^"
^DD(350,.02,1,3,"%D",1,0)="Cross-reference of all IB ACTION entries by patient (#.02) and date entry added"
^DD(350,.02,1,3,"%D",2,0)="(#12) fields.  The ""APTDT1"" cross-reference on the date entry added field is"
^DD(350,.02,1,3,"%D",3,0)="the companion to this cross-reference."
^DD(350,.02,1,4,0)="350^AH1^MUMPS"
^DD(350,.02,1,4,1)="I $D(^IB(DA,0)),$P(^(0),U,5)=8 S ^IB(""AH"",X,DA)="""""
^DD(350,.02,1,4,2)="I $D(^IB(DA,0)),$P(^(0),U,5)=8 K ^IB(""AH"",X,DA)"
^DD(350,.02,1,4,"%D",0)="^^1^1^2920302^"
^DD(350,.02,1,4,"%D",1,0)="All mt bills in a hold status"
^DD(350,.02,1,4,"DT")="2920302"
^DD(350,.02,1,5,0)="350^AI1^MUMPS"
^DD(350,.02,1,5,1)="I $D(^IB(DA,0)),$P(^(0),U,5)=99 S ^IB(""AI"",X,DA)="""""
^DD(350,.02,1,5,2)="I $D(^IB(DA,0)),$P(^(0),U,5)=99 K ^IB(""AI"",X,DA)"
^DD(350,.02,1,5,"%D",0)="^^1^1^2920430^"
^DD(350,.02,1,5,"%D",1,0)="COMPANION TO AI X-REF ON FIELD .05"
^DD(350,.02,1,5,"DT")="2920430"
^DD(350,.02,1,6,0)="350^ACVA^MUMPS"
^DD(350,.02,1,6,1)="I X,$D(^IB(DA,1)),$P(^(1),""^"",5) S ^IB(""ACVA"",X,$P(^(1),""^"",5),DA)="""""
^DD(350,.02,1,6,2)="I X,$D(^IB(DA,1)),$P(^(1),""^"",5) K ^IB(""ACVA"",X,$P(^(1),""^"",5),DA)"
^DD(350,.02,1,6,"%D",0)="^^4^4^2930728^^"
^DD(350,.02,1,6,"%D",1,0)="This cross-reference is used in conjunction with the ACVA1 cross"
^DD(350,.02,1,6,"%D",2,0)="reference on the CHAMPVA ADM DATE (#15) field to cross reference"
^DD(350,.02,1,6,"%D",3,0)="all CHAMPVA inpatient subsistence charges by patient and admission"
^DD(350,.02,1,6,"%D",4,0)="date."
^DD(350,.02,1,6,"DT")="2930728"
^DD(350,.02,1,7,0)="350^AJ1^MUMPS"
^DD(350,.02,1,7,1)="I $D(^IB(DA,0)),$P(^(0),U,5)=21 S ^IB(""AJ"",X,DA)="""""
^DD(350,.02,1,7,2)="K ^IB(""AJ"",X,DA)"
^DD(350,.02,1,7,"%D",0)="^^8^8^2940601^"
^DD(350,.02,1,7,"%D",1,0)="Cross-reference of all IB ACTIONS for Means Test/Category C charges"
^DD(350,.02,1,7,"%D",2,0)="which have a STATUS (#.05) of HOLD - REVIEW."
^DD(350,.02,1,7,"%D",3,0)=" "
^DD(350,.02,1,7,"%D",4,0)="This cross-reference is used to generate a list of all patients, and"
^DD(350,.02,1,7,"%D",5,0)="all charges for those patients, who have had Means Test charges"
^DD(350,.02,1,7,"%D",6,0)="back-billed which need to be reviewed before being passed to the"
^DD(350,.02,1,7,"%D",7,0)="Accounts Receivable package.  The ""AJ"" cross-reference on the"
^DD(350,.02,1,7,"%D",8,0)="STATUS (#.05) field is the companion to this cross-reference."
^DD(350,.02,1,7,"DT")="2940601"
^DD(350,.02,21,0)="^^3^3^2910301^"
^DD(350,.02,21,1,0)="This is the patient that received services, care, or medications that"
^DD(350,.02,21,2,0)="caused this entry to be created.  If the debtor is the patient, this"
^DD(350,.02,21,3,0)="patient is the debtor."
^DD(350,.02,"DT")="3020411"
^DD(350,.03,0)="ACTION TYPE^P350.1'I^IBE(350.1,^0;3^Q"
^DD(350,.03,1,0)="^.1^^-1"
^DD(350,.03,1,1,0)="350^AE"
^DD(350,.03,1,1,1)="S ^IB(""AE"",$E(X,1,30),DA)="""""
^DD(350,.03,1,1,2)="K ^IB(""AE"",$E(X,1,30),DA)"
^DD(350,.03,3)=""
^DD(350,.03,21,0)="^^7^7^2940209^^^^"
^DD(350,.03,21,1,0)="This field points to an entry in the IB ACTION TYPE file.  Entries in"
^DD(350,.03,21,2,0)="the IB ACTION TYPE file provide specific information about the type"
^DD(350,.03,21,3,0)="of entry that is being created and provides data necessary to AR and"
^DD(350,.03,21,4,0)="to resolve the data from the application."
^DD(350,.03,21,5,0)=" "
^DD(350,.03,21,6,0)="Applications passing data to IB determine the Action Type and pass this"
^DD(350,.03,21,7,0)="to IB."
^DD(350,.03,"DT")="2910304"
^DD(350,.04,0)="RESULTING FROM^FI^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(350,.04,3)="Answer must be 1-20 characters in length."
^DD(350,.04,21,0)="^^8^8^2940209^^^^"
^DD(350,.04,21,1,0)="This will be the soft-link back to the entry in any file that caused"
^DD(350,.04,21,2,0)="this transaction to be set.  It will be in the format of:"
^DD(350,.04,21,3,0)=" "
^DD(350,.04,21,4,0)="    filenumber:entry;[node:sub-entry];[node:sub-entry]..."
^DD(350,.04,21,5,0)=" "
^DD(350,.04,21,6,0)="The number of node:sub-entry pieces will depend on the level of"
^DD(350,.04,21,7,0)="multiples that cause the entry.  For example, a new prescription"
^DD(350,.04,21,8,0)="might be '52:345678'  but the first refill might be '52:345678;1,1'."
^DD(350,.04,"DT")="2910304"
^DD(350,.05,0)="STATUS^P350.21'^IBE(350.21,^0;5^Q"
^DD(350,.05,1,0)="^.1"
^DD(350,.05,1,1,0)="350^AC"
^DD(350,.05,1,1,1)="S ^IB(""AC"",$E(X,1,30),DA)="""""
^DD(350,.05,1,1,2)="K ^IB(""AC"",$E(X,1,30),DA)"
^DD(350,.05,1,2,0)="^^TRIGGER^350^13"
^DD(350,.05,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5) S DIH=$G(^IB(DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350,DIG=13 D ^DICR"
^DD(350,.05,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5) S DIH=$G(^IB(DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350,DIG=13 D ^DICR"
^DD(350,.05,1,2,"CREATE VALUE")="S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5)"
^DD(350,.05,1,2,"DELETE VALUE")="S X=$S($D(IBDUZ):IBDUZ,$D(DUZ):DUZ,1:.5)"
^DD(350,.05,1,2,"DT")="3040609"
^DD(350,.05,1,2,"FIELD")="#13"
^DD(350,.05,1,3,0)="^^TRIGGER^350^14"
^DD(350,.05,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(350,.05,1,3,1.4)"
^DD(350,.05,1,3,1.4)="S DIH=$G(^IB(DIV(0),1)),DIV=X S $P(^(1),U,4)=DIV,DIH=350,DIG=14 D ^DICR"
^DD(350,.05,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IB(D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(350,.05,1,3,2.4)"
^DD(350,.05,1,3,2.4)="S DIH=$G(^IB(DIV(0),1)),DIV=X S $P(^(1),U,4)=DIV,DIH=350,DIG=14 D ^DICR"
^DD(350,.05,1,3,"CREATE VALUE")="NOW"
^DD(350,.05,1,3,"DELETE VALUE")="NOW"
^DD(350,.05,1,3,"DT")="3040609"
^DD(350,.05,1,3,"FIELD")="#14"
^DD(350,.05,1,4,0)="350^ACT^MUMPS"
^DD(350,.05,1,4,1)="I X=1,$D(^IB(DA,0)),$P($G(^IBE(350.1,+$P(^(0),""^"",3),0)),""^"")'[""ADMISSION"",$P(^IB(DA,0),""^"",16) S ^IB(""ACT"",$P(^(0),""^"",16),DA)="""""
^DD(350,.05,1,4,2)="I $D(^IB(DA,0)),$P(^(0),""^"",16) K ^IB(""ACT"",$P(^(0),""^"",16),DA)"
^DD(350,.05,1,4,"%D",0)="^^11^11^2970305^^^^"
^DD(350,.05,1,4,"%D",1,0)="Cross-reference of all IB ACTIONS for Means Test/Category C charges"
^DD(350,.05,1,4,"%D",2,0)="which have a status of INCOMPLETE (cross-referenced by the parent event"
^DD(350,.05,1,4,"%D",3,0)="(#.16) field)."
^DD(350,.05,1,4,"%D",4,0)=" "
^DD(350,.05,1,4,"%D",5,0)="This is a temporary cross-reference which is used to locate per diem"
^DD(350,.05,1,4,"%D",6,0)="and co-payment charges, for an inpatient/NHCU admission, which are"
^DD(350,.05,1,4,"%D",7,0)="established, but not yet passed to AR.  The cross-reference is set"
^DD(350,.05,1,4,"%D",8,0)="whenever the status of a billable charge is changed to 1 (INCOMPLETE),"
^DD(350,.05,1,4,"%D",9,0)="and killed whenever the parent event (#.16) field is defined.  The"
^DD(350,.05,1,4,"%D",10,0)="""ACT1"" cross-reference on the parent event field is the companion"
^DD(350,.05,1,4,"%D",11,0)="to this cross-reference."
^DD(350,.05,1,4,"DT")="2911106"
^DD(350,.05,1,5,0)="350^AH^MUMPS"
^DD(350,.05,1,5,1)="I X=8,$P(^IB(DA,0),U,2) S ^IB(""AH"",$P(^IB(DA,0),U,2),DA)="""""
^DD(350,.05,1,5,2)="I $P(^IB(DA,0),U,2) K ^IB(""AH"",$P(^IB(DA,0),U,2),DA)"
^DD(350,.05,1,5,"%D",0)="^^1^1^2970305^^^^"
^DD(350,.05,1,5,"%D",1,0)="All mt bills in a hold status."
^DD(350,.05,1,5,"DT")="2920302"
^DD(350,.05,1,6,0)="350^AI^MUMPS"
^DD(350,.05,1,6,1)="I X=99,$P(^IB(DA,0),U,2) S ^IB(""AI"",$P(^IB(DA,0),U,2),DA)="""""
^DD(350,.05,1,6,2)="I $P(^IB(DA,0),U,2) K ^IB(""AI"",$P(^IB(DA,0),U,2),DA)"
^DD(350,.05,1,6,"%D",0)="^^1^1^2970305^^^^"
^DD(350,.05,1,6,"%D",1,0)="ALL MT BILLS IN CONVERTED STATUS"
^DD(350,.05,1,6,"DT")="2920427"
^DD(350,.05,1,7,0)="350^AJ^MUMPS"
^DD(350,.05,1,7,1)="I X=21,$P(^IB(DA,0),U,2) S ^IB(""AJ"",$P(^IB(DA,0),U,2),DA)="""""
^DD(350,.05,1,7,2)="I $P(^IB(DA,0),U,2) K ^IB(""AJ"",$P(^IB(DA,0),U,2),DA)"
^DD(350,.05,1,7,"%D",0)="^^9^9^2970305^^"
^DD(350,.05,1,7,"%D",1,0)="Cross-reference of all IB ACTIONS for Means Test/Category C charges"
^DD(350,.05,1,7,"%D",2,0)="which have a status of HOLD - REVIEW (cross-referenced by the PATIENT"
^DD(350,.05,1,7,"%D",3,0)="[#2] field)."
^DD(350,.05,1,7,"%D",4,0)=" "
^DD(350,.05,1,7,"%D",5,0)="This cross-reference is used to generate a list of all patients, and"
^DD(350,.05,1,7,"%D",6,0)="all charges for those patients, who have had Means Test charges "
^DD(350,.05,1,7,"%D",7,0)="back-billed which need to be reviewed before being passed to the"
^DD(350,.05,1,7,"%D",8,0)="Accounts Receivable package.  The ""AJ1"" cross-reference on the"
^DD(350,.05,1,7,"%D",9,0)="PATIENT (#.02) field is the companion to this cross-reference."
^DD(350,.05,1,7,"DT")="2940601"
^DD(350,.05,1,8,0)="^^TRIGGER^350^16"
^DD(350,.05,1,8,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I X=8 I X S X=DIV S Y(1)=$S($D(^IB(D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(350,.05,1,8,1.4)"
^DD(350,.05,1,8,1.4)="S DIH=$S($D(^IB(DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,6)=DIV,DIH=350,DIG=16 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(350,.05,1,8,2)="Q"
^DD(350,.05,1,8,"CREATE CONDITION")="I X=8"
^DD(350,.05,1,8,"CREATE VALUE")="TODAY"
^DD(350,.05,1,8,"DELETE VALUE")="NO EFFECT"
^DD(350,.05,1,8,"DT")="2970306"
^DD(350,.05,1,8,"FIELD")="ON HOLD DATE"
^DD(350,.05,1,9,0)="350^AHDT1^MUMPS"
^DD(350,.05,1,9,1)="I $D(^IB(DA,1)),$P(^IB(DA,1),U,6) S ^IB(""AHDT"",+$P(^IB(DA,0),U,2),X,$P(^IB(DA,1),U,6),DA)="""""
^DD(350,.05,1,9,2)="I $D(^IB(DA,1)),$P(^IB(DA,1),U,6) K ^IB(""AHDT"",+$P(^IB(DA,0),U,2),X,$P(^IB(DA,1),U,6),DA)"
^DD(350,.05,1,9,"%D",0)="^^1^1^2970513^"
^DD(350,.05,1,9,"%D",1,0)="Companion to 'AHDT' cross-reference on ON HOLD DATE (#16) field."
^DD(350,.05,1,9,"DT")="2970513"
^DD(350,.05,1,10,0)="^^TRIGGER^350^17"
^DD(350,.05,1,10,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^IBE(350.21,+Y(0),0)),U)=""HOLD - REVIEW"" I X S X=DIV S Y(1)=$S($D(^IB(D0,1)):^(1),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(350,.05,1,10,1.4)"
^DD(350,.05,1,10,1.4)="S DIH=$G(^IB(DIV(0),1)),DIV=X S $P(^(1),U,7)=DIV,DIH=350,DIG=17 D ^DICR"
^DD(350,.05,1,10,2)="Q"
^DD(350,.05,1,10,"CREATE CONDITION")="STATUS=""HOLD - REVIEW"""
^DD(350,.05,1,10,"CREATE VALUE")="TODAY"
^DD(350,.05,1,10,"DELETE VALUE")="NO EFFECT"
^DD(350,.05,1,10,"DT")="3031117"
^DD(350,.05,1,10,"FIELD")="HOLD-REVIEW DATE"
^DD(350,.05,3)=" "
^DD(350,.05,21,0)="^.001^19^19^3031029^^^^"
^DD(350,.05,21,1,0)="This is the current status of this entry.  The IB routines will maintain"
^DD(350,.05,21,2,0)="this field.  An entry will be incomplete when it is created, complete"
^DD(350,.05,21,3,0)="when all data needed to pass to AR is there, and Billed after passing to"
^DD(350,.05,21,4,0)="AR and the bill number and/or transaction number have been added."
^DD(350,.05,21,5,0)=" "
^DD(350,.05,21,6,0)="If the entry represents a billable inpatient/NHCU admission (event), the"
^DD(350,.05,21,7,0)="status will be Incomplete while the patient is admitted, and then"
^DD(350,.05,21,8,0)="Complete when the patient has been discharged.  All entries created"
^DD(350,.05,21,9,0)="during the Means Test conversion will have the status Converted Record."
^DD(350,.05,21,10,0)=" "
^DD(350,.05,21,11,0)="With Integrated Billing version 2.0, this field is changed from a set"
^DD(350,.05,21,12,0)="of codes field to a pointer which points to the IB ACTION STATUS"
^DD(350,.05,21,13,0)="(#350.21) file.  This change will allow new action statuses to be"
^DD(350,.05,21,14,0)="added more easily, and permit various characteristics to be assigned"
^DD(350,.05,21,15,0)="to the statuses to facilitate system processing.  IT IS IMPERATIVE"
^DD(350,.05,21,16,0)="THAT THESE NEW POINTED-TO ENTRIES HAVE AN INTERNAL ENTRY NUMBER IN"
^DD(350,.05,21,17,0)="FILE #350.21 WHICH IS EQUAL TO THEIR PREVIOUS CODE VALUE.  PLEASE"
^DD(350,.05,21,18,0)="CAREFULLY READ THE IB ACTION STATUS FILE DESCRIPTION FOR MORE"
^DD(350,.05,21,19,0)="INFORMATION."
^DD(350,.05,"DT")="3040609"
^DD(350,.06,0)="UNITS^NJ4,0I^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350,.06,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(350,.06,21,0)="^^3^3^2910301^^"
^DD(350,.06,21,1,0)="This is the number of units that will be multiplied times a specific"
^DD(350,.06,21,2,0)="charge that will be calculated to create the total charge.  This is"
^DD(350,.06,21,3,0)="passed to IB from the application."
^DD(350,.06,"DT")="2910304"
^DD(350,.07,0)="TOTAL CHARGE^NJ10,2I^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(350,.07,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(350,.07,21,0)="^^10^10^2940209^^^"
^DD(350,.07,21,1,0)="This is the total charge for this entry, that will be passed to"
^DD(350,.07,21,2,0)="AR.  It is calculated and stored by IB routines.  NOTE: Several IB"
^DD(350,.07,21,3,0)="ACTION entries may be combined into one pass to AR so that there may"
^DD(350,.07,21,4,0)="not be a one to one relationship between this entry and one in AR."
^DD(350,.07,21,5,0)=" "
^DD(350,.07,21,6,0)="The TOTAL CHARGE for all entries will always be positive.  It is"
^DD(350,.07,21,7,0)="necessary to refer to the IB ACTION TYPE file to determine if this"
^DD(350,.07,21,8,0)="is a NEW, CANCEL or UPDATE.  Cancel action types will cause a decrease"
^DD(350,.07,21,9,0)="adjustment to a bill for this amount.  New and Update action types"
^DD(350,.07,21,10,0)="will cause an increase adjustment to a bill for this amount."
^DD(350,.07,"DT")="2910304"
^DD(350,.08,0)="BRIEF DESCRIPTION^FI^^0;8^K:$L(X)>20!($L(X)<3) X"
^DD(350,.08,3)="Answer must be 3-20 characters in length."
^DD(350,.08,21,0)="^^8^8^2910403^^"
^DD(350,.08,21,1,0)="This is a brief description of the application entry that caused this"
^DD(350,.08,21,2,0)="IB ACTION entry to be created.  For example, for Pharmacy co-payments"
^DD(350,.08,21,3,0)="it might indicate '100999-ENDURAL-2' which would indicate that this was"
^DD(350,.08,21,4,0)="prescription number 100999, the drug name started with ENDURAL and"
^DD(350,.08,21,5,0)="2 units (30-60 days supply) were given."
^DD(350,.08,21,6,0)=" "
^DD(350,.08,21,7,0)="The logic to calculate this will be supplied by the application and"
^DD(350,.08,21,8,0)="stored with the IB ACTION TYPE entry for this action."
^DD(350,.08,"DT")="2910304"
^DD(350,.09,0)="PARENT CHARGE^P350'I^IB(^0;9^Q"
^DD(350,.09,1,0)="^.1"
^DD(350,.09,1,1,0)="350^AD"
^DD(350,.09,1,1,1)="S ^IB(""AD"",$E(X,1,30),DA)="""""
^DD(350,.09,1,1,2)="K ^IB(""AD"",$E(X,1,30),DA)"
^DD(350,.09,1,2,0)="350^APDT^MUMPS"
^DD(350,.09,1,2,1)="I $D(^IB(DA,1)),$P(^(1),""^"",2) S ^IB(""APDT"",$E(X,1,30),-$P(^(1),""^"",2),DA)="""""
^DD(350,.09,1,2,2)="I $D(^IB(DA,1)),$P(^(1),""^"",2) K ^IB(""APDT"",$E(X,1,30),-$P(^(1),""^"",2),DA)"
^DD(350,.09,1,2,"%D",0)="^^5^5^2910417^^"
^DD(350,.09,1,2,"%D",1,0)="Cross-reference of all IB ACTION entries by parent link (#.09) field and"
^DD(350,.09,1,2,"%D",2,0)="the minus (negative or inverse) date entry added (#12) field.  The most current ACTION"
^DD(350,.09,1,2,"%D",3,0)="for the original entry can be found using this cross-reference.  The ""APDT1"""
^DD(350,.09,1,2,"%D",4,0)="cross-reference on the DATE ENTRY ADDED (#12) field is the companion to this"
^DD(350,.09,1,2,"%D",5,0)="cross-reference."
^DD(350,.09,3)=""
^DD(350,.09,21,0)="^^12^12^2911105^^^^"
^DD(350,.09,21,1,0)="This is a pointer to the original IB ACTION entry that this entry refers"
^DD(350,.09,21,2,0)="to.  For a NEW entry, it will point to itself.  For all other entries it"
^DD(350,.09,21,3,0)="will point to the original entry."
^DD(350,.09,21,4,0)=" "
^DD(350,.09,21,5,0)="An application then only needs to maintain the pointer to the original"
^DD(350,.09,21,6,0)="entry and can find the most recent entry for this entry as"
^DD(350,.09,21,7,0)=" "
^DD(350,.09,21,8,0)="  S x=$O(^IB(""APDT"",parent,0),x=$O(^(x,0))"
^DD(350,.09,21,9,0)=" "
^DD(350,.09,21,10,0)="If x '= parent then this is an updated entry, the pointer to the"
^DD(350,.09,21,11,0)="IB ACTION TYPE file will give you the sequence number which will indicate"
^DD(350,.09,21,12,0)="if this is cancelled or an updated entry."
^DD(350,.09,"DT")="2911105"
^DD(350,.1,0)="CANCELLATION REASON^P350.3^IBE(350.3,^0;10^Q"
^DD(350,.1,3)=""
^DD(350,.1,21,0)="^^1^1^2990920^^^"
^DD(350,.1,21,1,0)="This is the reason that this charge was cancelled."
^DD(350,.1,"DT")="2910301"
^DD(350,.11,0)="AR BILL NUMBER^F^^0;11^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<6) X"
^DD(350,.11,1,0)="^.1"
^DD(350,.11,1,1,0)="350^ABIL"
^DD(350,.11,1,1,1)="S ^IB(""ABIL"",$E(X,1,30),DA)="""""
^DD(350,.11,1,1,2)="K ^IB(""ABIL"",$E(X,1,30),DA)"
^DD(350,.11,3)="Answer must be 6-12 characters in length."
^DD(350,.11,21,0)="^^4^4^2910301^"
^DD(350,.11,21,1,0)="This is the free text bill number that this entry is charged to.  It"
^DD(350,.11,21,2,0)="is in the format of a PAT number.  It will be calculated by accounts"
^DD(350,.11,21,3,0)="receivable from the AR BILL NUMBER file for the service in the IB"
^DD(350,.11,21,4,0)="ACTION TYPE entry associated with this entry."
^DD(350,.11,"DT")="2910306"
^DD(350,.12,0)="AR TRANSACTION NUMBER^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350,.12,1,0)="^.1"
^DD(350,.12,1,1,0)="350^AT"
^DD(350,.12,1,1,1)="S ^IB(""AT"",$E(X,1,30),DA)="""""
^DD(350,.12,1,1,2)="K ^IB(""AT"",$E(X,1,30),DA)"
^DD(350,.12,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(350,.12,21,0)="^^4^4^2910301^"
^DD(350,.12,21,1,0)="This is the pointer value to the AR TRANSACTION file.  An entry that"
^DD(350,.12,21,2,0)="causes a new bill number to be created will not have an AR TRANSACTION"
^DD(350,.12,21,3,0)="file entry associated with it as the charge data will be stored with"
^DD(350,.12,21,4,0)="the original bill."
^DD(350,.12,"DT")="2910329"
^DD(350,.13,0)="INSTITUTION^P4'I^DIC(4,^0;13^Q"
^DD(350,.13,3)=""
^DD(350,.13,21,0)="^^3^3^2910301^"
^DD(350,.13,21,1,0)="This is the facility that caused this bill.  The station number field of"
^DD(350,.13,21,2,0)="the institution file will be used in determining the reference number."
^DD(350,.13,21,3,0)="Accounts Receivable will use the station number in the bill number."
^DD(350,.13,"DT")="2910304"
^DD(350,.14,0)="DATE BILLED FROM^D^^0;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350,.14,1,0)="^.1^^0"
^DD(350,.14,21,0)="^^1^1^2920414^^^^"
^DD(350,.14,21,1,0)="This is the first date in the date range covered by this billing action."
^DD(350,.14,"DT")="2920302"
^DD(350,.15,0)="DATE BILLED TO^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350,.15,21,0)="^^1^1^2920414^^"
^DD(350,.15,21,1,0)="This is the last date in the date range covered by this billing action."
^DD(350,.15,"DT")="2911008"
^DD(350,.16,0)="PARENT EVENT^P350'^IB(^0;16^Q"
^DD(350,.16,1,0)="^.1"
^DD(350,.16,1,1,0)="350^AF"
^DD(350,.16,1,1,1)="S ^IB(""AF"",$E(X,1,30),DA)="""""
^DD(350,.16,1,1,2)="K ^IB(""AF"",$E(X,1,30),DA)"
^DD(350,.16,1,1,"%D",0)="^^2^2^2911009^"
^DD(350,.16,1,1,"%D",1,0)="This cross-reference will be used to link all Means Test/Category C"
^DD(350,.16,1,1,"%D",2,0)="co-payment and per diem charges to a particular billable event."
^DD(350,.16,1,1,"DT")="2911009"
^DD(350,.16,1,2,0)="350^ACT1^MUMPS"
^DD(350,.16,1,2,1)="I $D(^IB(DA,0)),$P(^(0),""^"",5)=1,$P($G(^IBE(350.1,+$P(^(0),""^"",3),0)),""^"")'[""ADMISSION"" S ^IB(""ACT"",X,DA)="""""
^DD(350,.16,1,2,2)="K ^IB(""ACT"",X,DA)"
^DD(350,.16,1,2,"%D",0)="^.101^9^9^3010827^^^^"
^DD(350,.16,1,2,"%D",1,0)="Cross-reference of all IB ACTIONS for Means Test/Category C charges"
^DD(350,.16,1,2,"%D",2,0)="which have a status (field #.05) of INCOMPLETE."
^DD(350,.16,1,2,"%D",3,0)=" "
^DD(350,.16,1,2,"%D",4,0)="This is a temporary cross-reference which is used to locate per diem"
^DD(350,.16,1,2,"%D",5,0)="and co-payment charges, for an inpatient/NHCU admission, which are"
^DD(350,.16,1,2,"%D",6,0)="established, but not yet passed to AR.  The cross-reference is set"
^DD(350,.16,1,2,"%D",7,0)="whenever the status (#.05) of a billable charge is changed to 1"
^DD(350,.16,1,2,"%D",8,0)="(INCOMPLETE), and killed without condition.  The ""ACT"" cross-reference"
^DD(350,.16,1,2,"%D",9,0)="on the status field is the companion to this cross-reference."
^DD(350,.16,1,2,"DT")="2911106"
^DD(350,.16,21,0)="^^12^12^2940209^^^^"
^DD(350,.16,21,1,0)="This field is used only for IB ACTION entries (both events and charges)"
^DD(350,.16,21,2,0)="which are associated with Category C billing."
^DD(350,.16,21,3,0)=" "
^DD(350,.16,21,4,0)="This field is a pointer to the IB ACTION event (inpatient/NHCU admission"
^DD(350,.16,21,5,0)="or outpatient visit) for which the charges are being billed.  For an"
^DD(350,.16,21,6,0)="event entry, this field will point to itself.  For all IB ACTION charges "
^DD(350,.16,21,7,0)="(new, cancelled, and updated) associated with a billable event,"
^DD(350,.16,21,8,0)="this field will point to that event."
^DD(350,.16,21,9,0)=" "
^DD(350,.16,21,10,0)="Note that cancelled and updated actions will still point to the parent"
^DD(350,.16,21,11,0)="(new) action through the Parent Charge (.09) field, in the same manner"
^DD(350,.16,21,12,0)="as Pharmacy co-pay charges."
^DD(350,.16,"DT")="2911106"
^DD(350,.17,0)="EVENT DATE^D^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350,.17,1,0)="^.1"
^DD(350,.17,1,1,0)="350^AFDT1^MUMPS"
^DD(350,.17,1,1,1)="I $D(^IB(DA,0)),$P(^(0),""^"",2) S ^IB(""AFDT"",$P(^(0),""^"",2),-X,DA)="""""
^DD(350,.17,1,1,2)="I $D(^IB(DA,0)),$P(^(0),""^"",2) K ^IB(""AFDT"",$P(^(0),""^"",2),-X,DA)"
^DD(350,.17,1,1,"%D",0)="^.101^5^5^3010827^^^^"
^DD(350,.17,1,1,"%D",1,0)="Cross-reference of all IB ACTION entries which represent inpatient/NHCU"
^DD(350,.17,1,1,"%D",2,0)="admissions by the patient (#.02) field and the minus (negative or inverse)"
^DD(350,.17,1,1,"%D",3,0)="event date field.  A billable event may be located for a patient using"
^DD(350,.17,1,1,"%D",4,0)="this cross-reference.  The ""AFDT"" cross-reference on the patient (#.02)"
^DD(350,.17,1,1,"%D",5,0)="field is the companion to this cross-reference."
^DD(350,.17,1,1,"DT")="2911101"
^DD(350,.17,21,0)="^^6^6^2911104^^^^"
^DD(350,.17,21,1,0)="This field will only be used for those IB ACTION entries which represent"
^DD(350,.17,21,2,0)="Hospital/NHCU admissions and outpatient visits for which Category C"
^DD(350,.17,21,3,0)="copayment and per diem charges will be billed to the patient.  The"
^DD(350,.17,21,4,0)="value of this field will be the admission or visit date.  The inverse"
^DD(350,.17,21,5,0)="(negative) value of this date will be cross-referenced by patient for"
^DD(350,.17,21,6,0)="look-up purposes."
^DD(350,.17,"DT")="2911101"
^DD(350,.18,0)="DATE LAST BILLED^D^^0;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350,.18,21,0)="^^4^4^2911101^"
^DD(350,.18,21,1,0)="This field will only be used for those IB ACTION entries which represent"
^DD(350,.18,21,2,0)="inpatient or NHCU admissions for which Category C copayment and per diem"
^DD(350,.18,21,3,0)="charges will be billed to the patient.  The value of this field will be"
^DD(350,.18,21,4,0)="the last day through which charges have been calculated for the admission."
^DD(350,.18,"DT")="2911101"
^DD(350,.19,0)="IB COPAY TRANSACTION NUMBER^P354.71'^IBAM(354.71,^0;19^Q"
^DD(350,.19,3)="Answer with a IB COPAY TRANSACTION NUMBER"
^DD(350,.19,21,0)="^^2^2^3010119^"
^DD(350,.19,21,1,0)="This is the transaction number associated with this entry to assist"
^DD(350,.19,21,2,0)="in determining if a patient has reached his cap."
^DD(350,.19,"DT")="3010119"
^DD(350,.2,0)="CLINIC STOP^P352.5'^IBE(352.5,^0;20^Q"
^DD(350,.2,3)="Enter the clinic stop for the outpatient visit."
^DD(350,.2,21,0)="^.001^2^2^3011203^^"
^DD(350,.2,21,1,0)="This field is used to enter the clinic stop for outpatient co-pay"
^DD(350,.2,21,2,0)="charges."
^DD(350,.2,"DT")="3011130"
^DD(350,.21,0)="GMT RELATED^S^1:YES;^0;21^Q"
^DD(350,.21,3)="Is this charge related to the GMT Copayment Status"
^DD(350,.21,21,0)="^^2^2^3020724^"
^DD(350,.21,21,1,0)="This is a flag indicating that this charge was decreased due to the"
^DD(350,.21,21,2,0)="patient's GMT Copayment status."
^DD(350,.21,"DT")="3020724"
^DD(350,.22,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^0;22^Q"
^DD(350,.22,3)="Enter the PFSS Account Reference"
^DD(350,.22,21,0)="^^2^2^3050715^"
^DD(350,.22,21,1,0)="This is the PFSS Account entry for the Integrated Billing Action copayment"
^DD(350,.22,21,2,0)="charge."
^DD(350,.22,"DT")="3050715"
^DD(350,11,0)="USER ADDING ENTRY^P200'I^VA(200,^1;1^Q"
^DD(350,11,21,0)="^^2^2^2970701^^^^"
^DD(350,11,21,1,0)="This is the person adding an entry in an application that cause the"
^DD(350,11,21,2,0)="application to create an entry in this file."
^DD(350,11,"DT")="2910304"
^DD(350,12,0)="DATE ENTRY ADDED^DI^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350,12,1,0)="^.1^^-1"
^DD(350,12,1,1,0)="350^D"
^DD(350,12,1,1,1)="S ^IB(""D"",$E(X,1,30),DA)="""""
^DD(350,12,1,1,2)="K ^IB(""D"",$E(X,1,30),DA)"
^DD(350,12,1,2,0)="350^APDT1^MUMPS"
^DD(350,12,1,2,1)="I $P(^IB(DA,0),""^"",9) S ^IB(""APDT"",$P(^(0),""^"",9),-X,DA)="""""
^DD(350,12,1,2,2)="I $P(^IB(DA,0),""^"",9) K ^IB(""APDT"",$P(^(0),""^"",9),-X,DA)"
^DD(350,12,1,2,"%D",0)="^^5^5^2910417^"
^DD(350,12,1,2,"%D",1,0)="Cross-reference of all IB ACTION entries by parent link (#.09) field and"
^DD(350,12,1,2,"%D",2,0)="the minus (negative or inverse) date entry added (#12) field.  The most"
^DD(350,12,1,2,"%D",3,0)="current ACTION for the original entry can be found using this cross"
^DD(350,12,1,2,"%D",4,0)="reference.  The ""APDT"" cross-reference on the parent link (#.09) is the "
^DD(350,12,1,2,"%D",5,0)="companion to this cross-reference."
^DD(350,12,1,3,0)="350^APTDT1^MUMPS"
^DD(350,12,1,3,1)="I $D(^IB(DA,0)),$P(^(0),""^"",2) S ^IB(""APTDT"",$P(^(0),""^"",2),X,DA)="""""
^DD(350,12,1,3,2)="I $D(^IB(DA,0)),$P(^(0),""^"",2) K ^IB(""APTDT"",$P(^(0),""^"",2),X,DA)"
^DD(350,12,1,3,"%D",0)="^^3^3^2910417^"
^DD(350,12,1,3,"%D",1,0)="Cross-reference of all IB ACTION entries by patient (#.02) and the date entry added (#12)"
^DD(350,12,1,3,"%D",2,0)="field.  The ""APTDT"" cross-reference on the patient (#.02) field is the"
^DD(350,12,1,3,"%D",3,0)="companion to this cross-reference."
^DD(350,12,21,0)="^^3^3^2921009^^^"
^DD(350,12,21,1,0)="This is the date/time that an entry was added to this file.  The most"
^DD(350,12,21,2,0)="recent update to an entry can be determined by finding the last entry in"
^DD(350,12,21,3,0)="this field."
^DD(350,12,"DT")="2920430"
^DD(350,13,0)="USER LAST UPDATING^P200'^VA(200,^1;3^Q"
^DD(350,13,3)=""
^DD(350,13,5,1,0)="350^.05^2"
^DD(350,13,21,0)="^^2^2^2940209^^^"
^DD(350,13,21,1,0)="This is the person last updating an entry in an application when it"
^DD(350,13,21,2,0)="caused an update to this entry in this file."
^DD(350,13,"DT")="2910205"
^DD(350,14,0)="DATE LAST UPDATED^D^^1;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350,14,5,1,0)="350^.05^3"
^DD(350,14,21,0)="^^1^1^2910301^"
^DD(350,14,21,1,0)="This is the date/time that this entry was last updated."
^DD(350,14,"DT")="2910205"
^DD(350,15,0)="CHAMPVA ADM DATE^D^^1;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350,15,1,0)="^.1"
^DD(350,15,1,1,0)="350^ACVA1^MUMPS"
^DD(350,15,1,1,1)="I X,$D(^IB(DA,0)),$P(^(0),""^"",2) S ^IB(""ACVA"",$P(^(0),""^"",2),X,DA)="""""
^DD(350,15,1,1,2)="I X,$D(^IB(DA,0)),$P(^(0),""^"",2) K ^IB(""ACVA"",$P(^(0),""^"",2),X,DA)"
^DD(350,15,1,1,"%D",0)="^^3^3^2930728^"
^DD(350,15,1,1,"%D",1,0)="This cross-reference is used in conjunction with the ACVA cross"
^DD(350,15,1,1,"%D",2,0)="reference on the PATIENT (#.02) field to cross reference all"
^DD(350,15,1,1,"%D",3,0)="CHAMPVA inpatient subsistence charges by patient and admission date."
^DD(350,15,1,1,"DT")="2930728"
^DD(350,15,21,0)="^^1^1^2970210^^"
^DD(350,15,21,1,0)="This is the admission date for the episode of CHAMPVA care being billed."
^DD(350,15,"DT")="2930728"
^DD(350,16,0)="ON HOLD DATE^D^^1;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350,16,1,0)="^.1"
^DD(350,16,1,1,0)="350^AHDT^MUMPS"
^DD(350,16,1,1,1)="I $D(^IB(DA,1)),$P(^IB(DA,1),U,6) S ^IB(""AHDT"",+$P(^IB(DA,0),U,2),+$P(^IB(DA,0),U,5),X,DA)="""""
^DD(350,16,1,1,2)="I $D(^IB(DA,1)),$P(^IB(DA,1),U,6) K ^IB(""AHDT"",+$P(^IB(DA,0),U,2),+$P(^IB(DA,0),U,5),X,DA)"
^DD(350,16,1,1,"%D",0)="^^6^6^2970513^"
^DD(350,16,1,1,"%D",1,0)="Cross-reference of all IB ACTIONS that have ever had the STATUS (#.05) of"
^DD(350,16,1,1,"%D",2,0)="ON HOLD since the install of patch IB*2*70.  This cross-reference is used"
^DD(350,16,1,1,"%D",3,0)="to automatically release charges ON HOLD for greater than 90 days. This"
^DD(350,16,1,1,"%D",4,0)="cross reference is also used to generate both follow-up and historic"
^DD(350,16,1,1,"%D",5,0)="reports.  The 'AHDT1' cross-reference on the STATUS (#.05) field is the"
^DD(350,16,1,1,"%D",6,0)="companion to this cross-reference."
^DD(350,16,1,1,"DT")="2970513"
^DD(350,16,5,1,0)="350^.05^8"
^DD(350,16,21,0)="^^6^6^2980115^"
^DD(350,16,21,1,0)="This date is used to determine when the patient charge (Status = ON HOLD)"
^DD(350,16,21,2,0)="should be auto-released to Accounts Receivable as well as to generate"
^DD(350,16,21,3,0)="reports.  The date is set initially when the patient charge is established"
^DD(350,16,21,4,0)="and placed on hold.  The date is reset when a third party claim for the"
^DD(350,16,21,5,0)="same episode of care is authorized. The new ON HOLD DATE is the authorized"
^DD(350,16,21,6,0)="date of the third party claim."
^DD(350,16,"DT")="2970513"
^DD(350,17,0)="HOLD-REVIEW DATE^D^^1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350,17,5,1,0)="350^.05^10"
^DD(350,17,21,0)="^^1^1^3031117^"
^DD(350,17,21,1,0)="This is the date the patient charge was put on HOLD-REVIEW status."
^DD(350,17,"DT")="3031029"
^DD(350,"B","ACTION TYPE",.03)=""
^DD(350,"B","AR BILL NUMBER",.11)=""
^DD(350,"B","AR TRANSACTION NUMBER",.12)=""
^DD(350,"B","BRIEF DESCRIPTION",.08)=""
^DD(350,"B","CANCELLATION REASON",.1)=""
^DD(350,"B","CHAMPVA ADM DATE",15)=""
^DD(350,"B","CLINIC STOP",.2)=""
^DD(350,"B","DATE BILLED FROM",.14)=""
^DD(350,"B","DATE BILLED TO",.15)=""
^DD(350,"B","DATE ENTRY ADDED",12)=""
^DD(350,"B","DATE LAST BILLED",.18)=""
^DD(350,"B","DATE LAST UPDATED",14)=""
^DD(350,"B","EVENT DATE",.17)=""
^DD(350,"B","GMT RELATED",.21)=""
^DD(350,"B","HOLD-REVIEW DATE",17)=""
^DD(350,"B","IB COPAY TRANSACTION NUMBER",.19)=""
^DD(350,"B","INSTITUTION",.13)=""
^DD(350,"B","ON HOLD DATE",16)=""
^DD(350,"B","PARENT CHARGE",.09)=""
^DD(350,"B","PARENT EVENT",.16)=""
^DD(350,"B","PATIENT",.02)=""
^DD(350,"B","PFSS ACCOUNT REFERENCE",.22)=""
^DD(350,"B","REFERENCE NUMBER",.01)=""
^DD(350,"B","RESULTING FROM",.04)=""
^DD(350,"B","STATUS",.05)=""
^DD(350,"B","TOTAL CHARGE",.07)=""
^DD(350,"B","UNITS",.06)=""
^DD(350,"B","USER ADDING ENTRY",11)=""
^DD(350,"B","USER LAST UPDATING",13)=""
^DD(350,"GL",0,1,.01)=""
^DD(350,"GL",0,2,.02)=""
^DD(350,"GL",0,3,.03)=""
^DD(350,"GL",0,4,.04)=""
^DD(350,"GL",0,5,.05)=""
^DD(350,"GL",0,6,.06)=""
^DD(350,"GL",0,7,.07)=""
^DD(350,"GL",0,8,.08)=""
^DD(350,"GL",0,9,.09)=""
^DD(350,"GL",0,10,.1)=""
^DD(350,"GL",0,11,.11)=""
^DD(350,"GL",0,12,.12)=""
^DD(350,"GL",0,13,.13)=""
^DD(350,"GL",0,14,.14)=""
^DD(350,"GL",0,15,.15)=""
^DD(350,"GL",0,16,.16)=""
^DD(350,"GL",0,17,.17)=""
^DD(350,"GL",0,18,.18)=""
^DD(350,"GL",0,19,.19)=""
^DD(350,"GL",0,20,.2)=""
^DD(350,"GL",0,21,.21)=""
^DD(350,"GL",0,22,.22)=""
^DD(350,"GL",1,1,11)=""
^DD(350,"GL",1,2,12)=""
^DD(350,"GL",1,3,13)=""
^DD(350,"GL",1,4,14)=""
^DD(350,"GL",1,5,15)=""
^DD(350,"GL",1,6,16)=""
^DD(350,"GL",1,7,17)=""
^DD(350,"IX",.01)=""
^DD(350,"IX",.02)=""
^DD(350,"IX",.03)=""
^DD(350,"IX",.05)=""
^DD(350,"IX",.09)=""
^DD(350,"IX",.11)=""
^DD(350,"IX",.12)=""
^DD(350,"IX",.16)=""
^DD(350,"IX",.17)=""
^DD(350,"IX",12)=""
^DD(350,"IX",15)=""
^DD(350,"IX",16)=""
^DD(350,"RQ",.01)=""
^DD(350.1,0)="FIELD^^40^15"
^DD(350.1,0,"DT")="2930729"
^DD(350.1,0,"IX","ANEW",350.1,.04)=""
^DD(350.1,0,"IX","ANEW1",350.1,.05)=""
^DD(350.1,0,"IX","B",350.1,.01)=""
^DD(350.1,0,"IX","C",350.1,.04)=""
^DD(350.1,0,"IX","D",350.1,.02)=""
^DD(350.1,0,"IX","E",350.1,.08)=""
^DD(350.1,0,"NM","IB ACTION TYPE")=""
^DD(350.1,0,"PT",52,105)=""
^DD(350.1,0,"PT",350,.03)=""
^DD(350.1,0,"PT",350.1,.06)=""
^DD(350.1,0,"PT",350.1,.07)=""
^DD(350.1,0,"PT",350.1,.09)=""
^DD(350.1,0,"PT",350.2,.03)=""
^DD(350.1,0,"PT",350.4,.03)=""
^DD(350.1,0,"PT",350.41,.03)=""
^DD(350.1,0,"PT",350.41,.04)=""
^DD(350.1,0,"PT",354.71,.18)=""
^DD(350.1,0,"PT",399.1,.14)=""
^DD(350.1,0,"PT",399.1,.15)=""
^DD(350.1,0,"VR")="2.0"
^DD(350.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(350.1,.01,1,0)="^.1"
^DD(350.1,.01,1,1,0)="350.1^B"
^DD(350.1,.01,1,1,1)="S ^IBE(350.1,""B"",$E(X,1,30),DA)="""""
^DD(350.1,.01,1,1,2)="K ^IBE(350.1,""B"",$E(X,1,30),DA)"
^DD(350.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(350.1,.01,21,0)="3"
^DD(350.1,.01,21,1,0)="Enter the  unique name of this action type.  The name should begin"
^DD(350.1,.01,21,2,0)="with the namespace of the application that will use this action type and"
^DD(350.1,.01,21,3,0)="should describe the function being billed."
^DD(350.1,.01,"DEL",1,0)="I 1 W !,""Deleting entries not allowed"""
^DD(350.1,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<2) X"
^DD(350.1,.02,1,0)="^.1"
^DD(350.1,.02,1,1,0)="350.1^D"
^DD(350.1,.02,1,1,1)="S ^IBE(350.1,""D"",$E(X,1,30),DA)="""""
^DD(350.1,.02,1,1,2)="K ^IBE(350.1,""D"",$E(X,1,30),DA)"
^DD(350.1,.02,1,1,"DT")="2910830"
^DD(350.1,.02,3)="Answer must be 2-8 characters in length."
^DD(350.1,.02,21,0)="^^1^1^2920224^^^^"
^DD(350.1,.02,21,1,0)="Enter a short description that can be output on space limited reports."
^DD(350.1,.02,"DT")="2910830"
^DD(350.1,.03,0)="CHARGE CATEGORY^P430.2'^PRCA(430.2,^0;3^Q"
^DD(350.1,.03,21,0)="^^3^3^2910305^^"
^DD(350.1,.03,21,1,0)="This is the pointer to the ACCOUNT RECEIVABLE CATEGORY file.  This data"
^DD(350.1,.03,21,2,0)="will get passed to AR when an IB ACTION for this ACTION type gets passed"
^DD(350.1,.03,21,3,0)="to AR."
^DD(350.1,.04,0)="SERVICE^P49'^DIC(49,^0;4^Q"
^DD(350.1,.04,1,0)="^.1"
^DD(350.1,.04,1,1,0)="350.1^C"
^DD(350.1,.04,1,1,1)="S ^IBE(350.1,""C"",$E(X,1,30),DA)="""""
^DD(350.1,.04,1,1,2)="K ^IBE(350.1,""C"",$E(X,1,30),DA)"
^DD(350.1,.04,1,2,0)="350.1^ANEW^MUMPS"
^DD(350.1,.04,1,2,1)="I $P(^IBE(350.1,DA,0),U,5) S ^IBE(350.1,""ANEW"",X,$P(^(0),U,5),DA)="""""
^DD(350.1,.04,1,2,2)="I $P(^IBE(350.1,DA,0),U,5) K ^IBE(350.1,""ANEW"",X,$P(^(0),U,5),DA)"
^DD(350.1,.04,21,0)="^^2^2^2910305^^"
^DD(350.1,.04,21,1,0)="Enter the name of the Service/Section that will be using this action"
^DD(350.1,.04,21,2,0)="type.  This is required by Accounts Receivable."
^DD(350.1,.04,"DT")="2910214"
^DD(350.1,.05,0)="SEQUENCE NUMBER^S^1:NEW;2:CANCEL;3:UPDATE;81:MEDICARE DEDUCTIBLE;82:CHAMPVA LIMIT;91:HOSPITAL ADMISSION;92:NHCU ADMISSION;93:LTC ADMISSION;^0;5^Q"
^DD(350.1,.05,1,0)="^.1"
^DD(350.1,.05,1,1,0)="350.1^ANEW1^MUMPS"
^DD(350.1,.05,1,1,1)="I $P(^IBE(350.1,DA,0),U,4) S ^IBE(350.1,""ANEW"",$P(^(0),U,4),X,DA)="""""
^DD(350.1,.05,1,1,2)="I $P(^IBE(350.1,DA,0),U,4) K ^IBE(350.1,""ANEW"",$P(^(0),U,4),X,DA)"
^DD(350.1,.05,3)="Enter the appropriate entry to indicate the sequencing that this action type should be filed with AR, or the appropriate code for the non-billable action type."
^DD(350.1,.05,21,0)="^^12^12^2911101^^^^"
^DD(350.1,.05,21,1,0)="This field tells the IB filer the order in which to file entries with"
^DD(350.1,.05,21,2,0)="AR.  A new entry must be filed before it can be cancelled.  An update"
^DD(350.1,.05,21,3,0)="action type will generate two actions, a cancel of previous entry, and"
^DD(350.1,.05,21,4,0)="an updated entry containing the correct data.  The update will be filed"
^DD(350.1,.05,21,5,0)="after the cancel.  The ordering must be maintained so that the last full"
^DD(350.1,.05,21,6,0)="entry in the INTEGRATED BILLING ACTION file for a parent is the most"
^DD(350.1,.05,21,7,0)="current entry.  (an inverse date x-ref on the parent field will indicate"
^DD(350.1,.05,21,8,0)="the most recent entry to the updated parent)"
^DD(350.1,.05,21,9,0)="Additional numbering series are also available for IB ACTION TYPES which"
^DD(350.1,.05,21,10,0)="do not explicitly represent billable charges.  These series are set so that"
^DD(350.1,.05,21,11,0)="they do not conflict with the ordering required for correct processing of"
^DD(350.1,.05,21,12,0)="IB ACTION charges in AR."
^DD(350.1,.05,"DT")="3020305"
^DD(350.1,.06,0)="CANCELLATION ACTION TYPE^P350.1'^IBE(350.1,^0;6^Q"
^DD(350.1,.06,21,0)="^^4^4^2920415^^"
^DD(350.1,.06,21,1,0)="This is the IB ACTION TYPE entry that will be the 'CANCEL' type for"
^DD(350.1,.06,21,2,0)="this entry.  If this is a 'CANCEL' type entry, then this will be itself."
^DD(350.1,.06,21,3,0)="Every 'NEW' type entry should have an associated 'CANCEL' and 'UPDATE'"
^DD(350.1,.06,21,4,0)="type entry."
^DD(350.1,.06,"DT")="2910213"
^DD(350.1,.07,0)="UPDATE ACTION TYPE^P350.1^IBE(350.1,^0;7^Q"
^DD(350.1,.07,21,0)="^^4^4^2940209^^^"
^DD(350.1,.07,21,1,0)="This is the IB ACTION TYPE entry that will be the 'UPDATE' type for"
^DD(350.1,.07,21,2,0)="this entry.  If this entry is an UPDATE type then it will be itself."
^DD(350.1,.07,21,3,0)="For every 'NEW' type of entry, there should be an associated 'CANCEL'"
^DD(350.1,.07,21,4,0)="and 'UPDATE' type."
^DD(350.1,.07,"DT")="2910213"
^DD(350.1,.08,0)="USER LOOKUP NAME^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>22!($L(X)<3) X"
^DD(350.1,.08,1,0)="^.1"
^DD(350.1,.08,1,1,0)="350.1^E"
^DD(350.1,.08,1,1,1)="S ^IBE(350.1,""E"",$E(X,1,30),DA)="""""
^DD(350.1,.08,1,1,2)="K ^IBE(350.1,""E"",$E(X,1,30),DA)"
^DD(350.1,.08,1,1,"DT")="2920224"
^DD(350.1,.08,3)="Answer must be 3-22 characters in length."
^DD(350.1,.08,21,0)="^^3^3^2920415^^^"
^DD(350.1,.08,21,1,0)="This is the name of the action that may be used for look-up and "
^DD(350.1,.08,21,2,0)="printing on reports.  The name will only exist for IB ACTION TYPE"
^DD(350.1,.08,21,3,0)="entries whose SEQUENCE NUMBER is ""1"" for NEW."
^DD(350.1,.08,"DT")="2920227"
^DD(350.1,.09,0)="NEW ACTION TYPE^P350.1'^IBE(350.1,^0;9^Q"
^DD(350.1,.09,21,0)="^^1^1^2920227^"
^DD(350.1,.09,21,1,0)="This is the IB ACTION TYPE entry that is the 'NEW' type for this entry."
^DD(350.1,.09,"DT")="2920227"
^DD(350.1,.1,0)="PLACE ON HOLD^S^1:YES;0:NO;^0;10^Q"
^DD(350.1,.1,21,0)="1^^8^8^2920414^^"
^DD(350.1,.1,21,1,0)="This field is used to flag those IB Actions (as identified by the IB"
^DD(350.1,.1,21,2,0)="Action Type) which may be 'held up' in Integrated Billing until"
^DD(350.1,.1,21,3,0)="reimbursement from an Insurance company for the billing of the same"
^DD(350.1,.1,21,4,0)="event has been received."
^DD(350.1,.1,21,5,0)=" "
^DD(350.1,.1,21,6,0)="The field will be set to 'YES' if the Action Type is one which"
^DD(350.1,.1,21,7,0)="represents a billable action which may be billed to a patient's"
^DD(350.1,.1,21,8,0)="insurance company as well as to the patient."
^DD(350.1,.1,"DT")="2920227"
^DD(350.1,.11,0)="BILLING GROUP^S^1:INPT/NHCU FEE SERVICE;2:INPT/NHCU COPAY;3:INPT/NHCU PER DIEM;4:OPT COPAY;5:RX COPAY;6:CHAMPVA;7:TRICARE;8:LTC OPT;9:LTC INPT;^0;11^Q"
^DD(350.1,.11,3)="Enter Group for manual charge processing."
^DD(350.1,.11,21,0)="^^2^2^2920415^"
^DD(350.1,.11,21,1,0)="This field is a set of codes used to enter the group for"
^DD(350.1,.11,21,2,0)="manual charge processing."
^DD(350.1,.11,"DT")="3040316"
^DD(350.1,10,0)="PARENT TRACE LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(350.1,10,3)="This is Standard MUMPS code."
^DD(350.1,10,21,0)="^^8^8^2940209^^^^"
^DD(350.1,10,21,1,0)="This is the executable code that will expand the field RESULTING FROM in"
^DD(350.1,10,21,2,0)="the INTEGRATED BILLING ACTION File to return in Y(n) the zeroth node"
^DD(350.1,10,21,3,0)="of the entry creating this entry.  If the entry is caused by a top"
^DD(350.1,10,21,4,0)="level entry then Y(0) will equal the zeroth node of the file.  If"
^DD(350.1,10,21,5,0)="an entry is caused by a lower level entry then in addition to Y(0),"
^DD(350.1,10,21,6,0)="Y(1) will be the zeroth node of the next lower level, Y(2) will be the"
^DD(350.1,10,21,7,0)="zeroth node of the third level, etc.  If a node described in the"
^DD(350.1,10,21,8,0)="RESULTING FROM field in file 350 is not present then Y=-1^error code."
^DD(350.1,20,0)="SET LOGIC^K^^20;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(350.1,20,3)="This is Standard MUMPS code."
^DD(350.1,20,21,0)="^^4^4^2910305^^^"
^DD(350.1,20,21,1,0)="This is the executable MUMPS code that will calculate the BRIEF DESCRIPTION"
^DD(350.1,20,21,2,0)="stored in file 350.  This is used by the IB application interface routines."
^DD(350.1,20,21,3,0)="This may execute the PARENT TRACE LOGIC to return data from the"
^DD(350.1,20,21,4,0)="application."
^DD(350.1,30,0)="FULL PROFILE LOGIC^K^^30;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(350.1,30,3)="This is Standard MUMPS code."
^DD(350.1,30,21,0)="^^3^3^2910305^^"
^DD(350.1,30,21,1,0)="This is the standard MUMPS code that will calculate the full profile"
^DD(350.1,30,21,2,0)="of an IB ACTION entry as approved by the DBA agreements between integrating"
^DD(350.1,30,21,3,0)="applications."
^DD(350.1,40,0)="ELIGIBILITY LOGIC^K^^40;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(350.1,40,3)="This is Standard MUMPS code."
^DD(350.1,40,21,0)="^^2^2^2910305^^"
^DD(350.1,40,21,1,0)="This field the standard mumps code to determine  eligibility"
^DD(350.1,40,21,2,0)="to use the IB ACTION TYPE for the desired debtor."
^DD(350.1,40,"DT")="2910206"
^DD(350.1,"B","ABBREVIATION",.02)=""
^DD(350.1,"B","BILLING GROUP",.11)=""
^DD(350.1,"B","CANCELLATION ACTION TYPE",.06)=""
^DD(350.1,"B","CHARGE CATEGORY",.03)=""
^DD(350.1,"B","ELIGIBILITY LOGIC",40)=""
^DD(350.1,"B","FULL PROFILE LOGIC",30)=""
^DD(350.1,"B","NAME",.01)=""
^DD(350.1,"B","NEW ACTION TYPE",.09)=""
^DD(350.1,"B","PARENT TRACE LOGIC",10)=""
^DD(350.1,"B","PLACE ON HOLD",.1)=""
^DD(350.1,"B","SEQUENCE NUMBER",.05)=""
^DD(350.1,"B","SERVICE",.04)=""
^DD(350.1,"B","SET LOGIC",20)=""
^DD(350.1,"B","UPDATE ACTION TYPE",.07)=""
^DD(350.1,"B","USER LOOKUP NAME",.08)=""
^DD(350.1,"GL",0,1,.01)=""
^DD(350.1,"GL",0,2,.02)=""
^DD(350.1,"GL",0,3,.03)=""
^DD(350.1,"GL",0,4,.04)=""
^DD(350.1,"GL",0,5,.05)=""
^DD(350.1,"GL",0,6,.06)=""
^DD(350.1,"GL",0,7,.07)=""
^DD(350.1,"GL",0,8,.08)=""
^DD(350.1,"GL",0,9,.09)=""
^DD(350.1,"GL",0,10,.1)=""
^DD(350.1,"GL",0,11,.11)=""
^DD(350.1,"GL",10,"E1,245",10)=""
^DD(350.1,"GL",20,"E1,245",20)=""
^DD(350.1,"GL",30,"E1,245",30)=""
^DD(350.1,"GL",40,"E1,245",40)=""
^DD(350.1,"IX",.01)=""
^DD(350.1,"IX",.02)=""
^DD(350.1,"IX",.04)=""
^DD(350.1,"IX",.05)=""
^DD(350.1,"IX",.08)=""
^DD(350.1,"RQ",.01)=""
^DD(350.2,0)="FIELD^^10^7"
^DD(350.2,0,"DDA")="N"
^DD(350.2,0,"DT")="2910913"
^DD(350.2,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(350.2,0,"IX","AIVDT",350.2,.02)=""
^DD(350.2,0,"IX","AIVDT1",350.2,.03)=""
^DD(350.2,0,"IX","B",350.2,.01)=""
^DD(350.2,0,"IX","C",350.2,.02)=""
^DD(350.2,0,"NM","IB ACTION CHARGE")=""
^DD(350.2,0,"VR")="2.0"
^DD(350.2,.01,0)="KEY^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(350.2,.01,1,0)="^.1"
^DD(350.2,.01,1,1,0)="350.2^B"
^DD(350.2,.01,1,1,1)="S ^IBE(350.2,""B"",$E(X,1,30),DA)="""""
^DD(350.2,.01,1,1,2)="K ^IBE(350.2,""B"",$E(X,1,30),DA)"
^DD(350.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(350.2,.01,21,0)="^^3^3^2910305^"
^DD(350.2,.01,21,1,0)="This is a description unique name for this entry that identifies it.  It"
^DD(350.2,.01,21,2,0)="is not used in the calculation of the charge but rather for editing"
^DD(350.2,.01,21,3,0)="purposes."
^DD(350.2,.02,0)="EFFECTIVE DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.2,.02,1,0)="^.1"
^DD(350.2,.02,1,1,0)="350.2^C"
^DD(350.2,.02,1,1,1)="S ^IBE(350.2,""C"",$E(X,1,30),DA)="""""
^DD(350.2,.02,1,1,2)="K ^IBE(350.2,""C"",$E(X,1,30),DA)"
^DD(350.2,.02,1,2,0)="350.2^AIVDT^MUMPS"
^DD(350.2,.02,1,2,1)="I $P(^IBE(350.2,DA,0),U,3) S ^IBE(350.2,""AIVDT"",$P(^(0),U,3),-X,DA)="""""
^DD(350.2,.02,1,2,2)="I $P(^IBE(350.2,DA,0),U,3) K ^IBE(350.2,""AIVDT"",$P(^(0),U,3),-X,DA)"
^DD(350.2,.02,21,0)="^^1^1^2910305^"
^DD(350.2,.02,21,1,0)="This is the date the charge rate for this entry became effective."
^DD(350.2,.02,"DT")="2910206"
^DD(350.2,.03,0)="IB TRANSACTION TYPE^P350.1'^IBE(350.1,^0;3^Q"
^DD(350.2,.03,1,0)="^.1"
^DD(350.2,.03,1,1,0)="350.2^AIVDT1^MUMPS"
^DD(350.2,.03,1,1,1)="I $P(^IBE(350.2,DA,0),U,2) S ^IBE(350.2,""AIVDT"",X,-$P(^(0),U,2),DA)="""""
^DD(350.2,.03,1,1,2)="I $P(^IBE(350.2,DA,0),U,2) K ^IBE(350.2,""AIVDT"",X,-$P(^(0),U,2),DA)"
^DD(350.2,.03,21,0)="^^1^1^2910305^"
^DD(350.2,.03,21,1,0)="This is the IB TRANSACTION TYPE that this rate is for."
^DD(350.2,.03,"DT")="2910206"
^DD(350.2,.04,0)="UNIT CHARGE, FIXED^NJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(350.2,.04,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(350.2,.04,21,0)="^^1^1^2910305^^"
^DD(350.2,.04,21,1,0)="If this charge is a fixed amount, this field contains the fixed amount."
^DD(350.2,.05,0)="INACTIVATION DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.2,.05,3)=""
^DD(350.2,.05,21,0)="^^6^6^2910429^^"
^DD(350.2,.05,21,1,0)="If this charge is inactive put in the inactive date.  If the charge"
^DD(350.2,.05,21,2,0)="is not to be used the inactive date should equal the active date.  If"
^DD(350.2,.05,21,3,0)="the charge was effective for a time period but that charge no longer"
^DD(350.2,.05,21,4,0)="is valid then enter the date that this is inactive.  No entry is "
^DD(350.2,.05,21,5,0)="necessary in this field if a more recent active date is added for an"
^DD(350.2,.05,21,6,0)="IB ACTION TYPE."
^DD(350.2,.06,0)="ADDITIONAL AMOUNT^NJ10,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(350.2,.06,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(350.2,.06,21,0)="^^4^4^2940209^^^^"
^DD(350.2,.06,21,1,0)="This is a fixed additional dollar amount that will be added to the"
^DD(350.2,.06,21,2,0)="basic charge after it has been computed. An example of this would"
^DD(350.2,.06,21,3,0)="be the additional charge of $200 added to HCFA Ambulatory Surgery rate"
^DD(350.2,.06,21,4,0)="groups for inter-ocular lens implants."
^DD(350.2,.06,"DT")="2910913"
^DD(350.2,10,0)="UNIT CHARGE LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(350.2,10,3)="This is Standard MUMPS code."
^DD(350.2,10,21,0)="^^3^3^2910305^^"
^DD(350.2,10,21,1,0)="If this charge is not fixed (ie an exact cost) the field contains the logic"
^DD(350.2,10,21,2,0)="to calculate the cost per unit.  It may need to use the logic in the IB"
^DD(350.2,10,21,3,0)="transaction type file to find this cost."
^DD(350.2,"B","ADDITIONAL AMOUNT",.06)=""
^DD(350.2,"B","EFFECTIVE DATE",.02)=""
^DD(350.2,"B","IB TRANSACTION TYPE",.03)=""
^DD(350.2,"B","INACTIVATION DATE",.05)=""
^DD(350.2,"B","KEY",.01)=""
^DD(350.2,"B","UNIT CHARGE LOGIC",10)=""
^DD(350.2,"B","UNIT CHARGE, FIXED",.04)=""
^DD(350.2,"GL",0,1,.01)=""
^DD(350.2,"GL",0,2,.02)=""
^DD(350.2,"GL",0,3,.03)=""
^DD(350.2,"GL",0,4,.04)=""
^DD(350.2,"GL",0,5,.05)=""
^DD(350.2,"GL",0,6,.06)=""
^DD(350.2,"GL",10,"E1,245",10)=""
^DD(350.2,"IX",.01)=""
^DD(350.2,"IX",.02)=""
^DD(350.2,"IX",.03)=""
^DD(350.2,"RQ",.01)=""
^DD(350.21,0)="FIELD^^.06^6"
^DD(350.21,0,"DDA")="N"
^DD(350.21,0,"DT")="2930810"
^DD(350.21,0,"IX","B",350.21,.01)=""
^DD(350.21,0,"NM","IB ACTION STATUS")=""
^DD(350.21,0,"PT",350,.05)=""
^DD(350.21,0,"VR")="2.0"
^DD(350.21,.01,0)="STATUS^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(350.21,.01,1,0)="^.1"
^DD(350.21,.01,1,1,0)="350.21^B"
^DD(350.21,.01,1,1,1)="S ^IBE(350.21,""B"",$E(X,1,30),DA)="""""
^DD(350.21,.01,1,1,2)="K ^IBE(350.21,""B"",$E(X,1,30),DA)"
^DD(350.21,.01,3)="Answer must be 3-30 characters in length."
^DD(350.21,.01,21,0)="^^5^5^2930810^"
^DD(350.21,.01,21,1,0)="The value of the STATUS field matches the name of the code from"
^DD(350.21,.01,21,2,0)="STATUS (#.05) field of the INTEGRATED BILLING ACTION (#350) file"
^DD(350.21,.01,21,3,0)="prior to Integrated Billing version 2.0."
^DD(350.21,.01,21,4,0)=" "
^DD(350.21,.01,21,5,0)="This field should not be edited!"
^DD(350.21,.01,"DT")="2930810"
^DD(350.21,.02,0)="PRINT NAME^F^^0;2^K:$L(X)>25!($L(X)<3) X"
^DD(350.21,.02,3)="Answer must be 3-25 characters in length."
^DD(350.21,.02,21,0)="^^2^2^2930810^"
^DD(350.21,.02,21,1,0)="This field contains a displayable status name which may be used"
^DD(350.21,.02,21,2,0)="in reports."
^DD(350.21,.02,"DT")="2930810"
^DD(350.21,.03,0)="ABBREVIATION^F^^0;3^K:$L(X)>8!($L(X)<2) X"
^DD(350.21,.03,3)="Answer must be 2-8 characters in length."
^DD(350.21,.03,21,0)="^^2^2^2930810^"
^DD(350.21,.03,21,1,0)="The abbreviation is a short-hand notation for the status which may"
^DD(350.21,.03,21,2,0)="be used for display in space-limited outputs."
^DD(350.21,.03,"DT")="2930810"
^DD(350.21,.04,0)="PASSED TO AR?^S^0:NO;1:YES;^0;4^Q"
^DD(350.21,.04,21,0)="^^2^2^2930810^"
^DD(350.21,.04,21,1,0)="This field is used to determine if IB actions with this status have"
^DD(350.21,.04,21,2,0)="already been passed to the Accounts Receivable module."
^DD(350.21,.04,"DT")="2930810"
^DD(350.21,.05,0)="CANCELLED?^S^0:NO;1:YES;^0;5^Q"
^DD(350.21,.05,21,0)="^^2^2^2930810^"
^DD(350.21,.05,21,1,0)="This field is used to determine if IB actions with this status have"
^DD(350.21,.05,21,2,0)="been cancelled."
^DD(350.21,.05,"DT")="2930810"
^DD(350.21,.06,0)="ON HOLD?^S^0:NO;1:YES;^0;6^Q"
^DD(350.21,.06,21,0)="^^2^2^2930810^"
^DD(350.21,.06,21,1,0)="This field is used to determine if IB actions are being held in the"
^DD(350.21,.06,21,2,0)="Integrated Billing module waiting to be passed to Accounts Receivable."
^DD(350.21,.06,"DT")="2930810"
^DD(350.21,"B","ABBREVIATION",.03)=""
^DD(350.21,"B","CANCELLED?",.05)=""
^DD(350.21,"B","ON HOLD?",.06)=""
^DD(350.21,"B","PASSED TO AR?",.04)=""
^DD(350.21,"B","PRINT NAME",.02)=""
^DD(350.21,"B","STATUS",.01)=""
^DD(350.21,"GL",0,1,.01)=""
^DD(350.21,"GL",0,2,.02)=""
^DD(350.21,"GL",0,3,.03)=""
^DD(350.21,"GL",0,4,.04)=""
^DD(350.21,"GL",0,5,.05)=""
^DD(350.21,"GL",0,6,.06)=""
^DD(350.21,"IX",.01)=""
^DD(350.21,"RQ",.01)=""
^DD(350.3,0)="FIELD^^.03^4"
^DD(350.3,0,"DT")="2920130"
^DD(350.3,0,"IX","B",350.3,.01)=""
^DD(350.3,0,"IX","C",350.3,.02)=""
^DD(350.3,0,"NM","IB CHARGE REMOVE REASONS")=""
^DD(350.3,0,"PT",350,.1)=""
^DD(350.3,0,"PT",354.71,.19)=""
^DD(350.3,0,"VR")="2.0"
^DD(350.3,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.3,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(350.3,.001,21,0)="^^1^1^2930406^^"
^DD(350.3,.001,21,1,0)="A number which is used to uniquely identify the entry in this file."
^DD(350.3,.001,"DT")="2910419"
^DD(350.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(350.3,.01,1,0)="^.1"
^DD(350.3,.01,1,1,0)="350.3^B"
^DD(350.3,.01,1,1,1)="S ^IBE(350.3,""B"",$E(X,1,30),DA)="""""
^DD(350.3,.01,1,1,2)="K ^IBE(350.3,""B"",$E(X,1,30),DA)"
^DD(350.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(350.3,.01,21,0)="^^1^1^2910305^"
^DD(350.3,.01,21,1,0)="Enter the reason that the charges are being cancelled."
^DD(350.3,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X"
^DD(350.3,.02,1,0)="^.1"
^DD(350.3,.02,1,1,0)="350.3^C"
^DD(350.3,.02,1,1,1)="S ^IBE(350.3,""C"",$E(X,1,30),DA)="""""
^DD(350.3,.02,1,1,2)="K ^IBE(350.3,""C"",$E(X,1,30),DA)"
^DD(350.3,.02,3)="Answer must be 2-10 characters in length."
^DD(350.3,.02,21,0)="^^2^2^2910305^"
^DD(350.3,.02,21,1,0)="Enter a unique abbreviation for this cancellation reason that can"
^DD(350.3,.02,21,2,0)="assist in quick lookup of this entry."
^DD(350.3,.03,0)="LIMIT^S^1:RX;2:OP MEANS TEST;3:GENERIC;4:OTHER;^0;3^Q"
^DD(350.3,.03,21,0)="^^2^2^2920415^^"
^DD(350.3,.03,21,1,0)="This field is a set of codes that identifies which type of charge"
^DD(350.3,.03,21,2,0)="the IB Charge Removal Reason can be used for."
^DD(350.3,.03,"DT")="2920130"
^DD(350.3,"B","ABBREVIATION",.02)=""
^DD(350.3,"B","LIMIT",.03)=""
^DD(350.3,"B","NAME",.01)=""
^DD(350.3,"B","NUMBER",.001)=""
^DD(350.3,"GL",0,1,.01)=""
^DD(350.3,"GL",0,2,.02)=""
^DD(350.3,"GL",0,3,.03)=""
^DD(350.3,"IX",.01)=""
^DD(350.3,"IX",.02)=""
^DD(350.3,"RQ",.01)=""
^DD(350.4,0)="FIELD^^.04^4"
^DD(350.4,0,"DDA")="N"
^DD(350.4,0,"DT")="2970514"
^DD(350.4,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SD(409.71,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(409.71,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(350.4,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(350.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(350.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(350.4,0,"IX","AIVDT",350.4,.01)=""
^DD(350.4,0,"IX","AIVDT1",350.4,.02)=""
^DD(350.4,0,"IX","B",350.4,.01)=""
^DD(350.4,0,"IX","C",350.4,.02)=""
^DD(350.4,0,"NM","BILLABLE AMBULATORY SURGICAL CODE")=""
^DD(350.4,0,"VR")="2.0"
^DD(350.4,0,"VRPK")="IB"
^DD(350.4,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.4,.01,1,0)="^.1"
^DD(350.4,.01,1,1,0)="350.4^B"
^DD(350.4,.01,1,1,1)="S ^IBE(350.4,""B"",$E(X,1,30),DA)="""""
^DD(350.4,.01,1,1,2)="K ^IBE(350.4,""B"",$E(X,1,30),DA)"
^DD(350.4,.01,1,2,0)="350.4^AIVDT^MUMPS"
^DD(350.4,.01,1,2,1)="I $P(^IBE(350.4,DA,0),""^"",2) S ^IBE(350.4,""AIVDT"",$P(^(0),""^"",2),-X,DA)="""""
^DD(350.4,.01,1,2,2)="I $P(^IBE(350.4,DA,0),""^"",2) K ^IBE(350.4,""AIVDT"",$P(^(0),""^"",2),-X,DA)"
^DD(350.4,.01,1,2,3)="DO NOT DELETE"
^DD(350.4,.01,1,2,"%D",0)="^^2^2^2911119^^^"
^DD(350.4,.01,1,2,"%D",1,0)="This cross reference is used to find the correct rate group for a "
^DD(350.4,.01,1,2,"%D",2,0)="procedure on a particular date."
^DD(350.4,.01,1,2,"DT")="2910829"
^DD(350.4,.01,3)="Enter the date that this new STATUS/RATE GROUP becomes effective."
^DD(350.4,.01,21,0)="^^2^2^2920415^^^^"
^DD(350.4,.01,21,1,0)="This is the date when the new status or rate group for a procedure"
^DD(350.4,.01,21,2,0)="becomes effective."
^DD(350.4,.01,"DT")="2910829"
^DD(350.4,.02,0)="PROCEDURE^P81'^ICPT(^0;2^Q"
^DD(350.4,.02,1,0)="^.1"
^DD(350.4,.02,1,1,0)="350.4^C"
^DD(350.4,.02,1,1,1)="S ^IBE(350.4,""C"",$E(X,1,30),DA)="""""
^DD(350.4,.02,1,1,2)="K ^IBE(350.4,""C"",$E(X,1,30),DA)"
^DD(350.4,.02,1,1,3)="DO NOT DELETE"
^DD(350.4,.02,1,1,"DT")="2910830"
^DD(350.4,.02,1,2,0)="350.4^AIVDT1^MUMPS"
^DD(350.4,.02,1,2,1)="I $P(^IBE(350.4,DA,0),""^"") S ^IBE(350.4,""AIVDT"",X,-$P(^(0),""^""),DA)="""""
^DD(350.4,.02,1,2,2)="I $P(^IBE(350.4,DA,0),""^"") K ^IBE(350.4,""AIVDT"",X,-$P(^(0),""^""),DA)"
^DD(350.4,.02,1,2,3)="DO NOT DELETE"
^DD(350.4,.02,1,2,"%D",0)="^^1^1^2911113^"
^DD(350.4,.02,1,2,"%D",1,0)="Used to find the correct rate group for a procedure on any particular date."
^DD(350.4,.02,1,2,"DT")="2910830"
^DD(350.4,.02,21,0)="^^1^1^2920317^^"
^DD(350.4,.02,21,1,0)="The ambulatory surgery associated with this entry."
^DD(350.4,.02,"DT")="2970514"
^DD(350.4,.03,0)="RATE GROUP^R*P350.1'^IBE(350.1,^0;3^S DIC(""S"")=""I $P(^(0),U,1)[""""MEDICARE RATE"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(350.4,.03,3)="May enter ""Rate N"" as abbrevation for Opt Medicare Rate N."
^DD(350.4,.03,5,1,0)="350.4^.04^1"
^DD(350.4,.03,12)="Only Medicare Rate Action Type allowed."
^DD(350.4,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,1)[""""MEDICARE RATE"""""""
^DD(350.4,.03,21,0)="^^2^2^2920415^^^^"
^DD(350.4,.03,21,1,0)="This is the HCFA rate group assigned to this procedure beginning with this"
^DD(350.4,.03,21,2,0)="entry's effective date."
^DD(350.4,.03,"DT")="2911202"
^DD(350.4,.04,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;4^Q"
^DD(350.4,.04,1,0)="^.1"
^DD(350.4,.04,1,1,0)="^^TRIGGER^350.4^.03"
^DD(350.4,.04,1,1,1)="X ^DD(350.4,.04,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(350.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBE(350.4,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=350.4,DIG=.03 D ^DICR"
^DD(350.4,.04,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(350.4,.04,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))=""INACTIVE"""
^DD(350.4,.04,1,1,2)="X ^DD(350.4,.04,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBE(350.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBE(350.4,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=350.4,DIG=.03 D ^DICR"
^DD(350.4,.04,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(350.4,.04,0)),U,3),Y(1)=$S($D(^IBE(350.4,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59))=""INACTIVE"""
^DD(350.4,.04,1,1,"%D",0)="^^1^1^3040609^"
^DD(350.4,.04,1,1,"%D",1,0)="Removes the Rate Group from any procedure being inactivated."
^DD(350.4,.04,1,1,"CREATE CONDITION")="STATUS=""INACTIVE"""
^DD(350.4,.04,1,1,"CREATE VALUE")="@"
^DD(350.4,.04,1,1,"DELETE CONDITION")="STATUS=""INACTIVE"""
^DD(350.4,.04,1,1,"DELETE VALUE")="@"
^DD(350.4,.04,1,1,"DT")="3040609"
^DD(350.4,.04,1,1,"FIELD")="RATE GROUP"
^DD(350.4,.04,3)="Enter the appropriate STATUS for this procedure on and after the EFFECTIVE DATE."
^DD(350.4,.04,21,0)="^^1^1^2920415^^^^"
^DD(350.4,.04,21,1,0)="The STATUS for this procedure beginning with the EFFECTIVE DATE."
^DD(350.4,.04,"DT")="3040609"
^DD(350.4,"B","EFFECTIVE DATE",.01)=""
^DD(350.4,"B","PROCEDURE",.02)=""
^DD(350.4,"B","RATE GROUP",.03)=""
^DD(350.4,"B","STATUS",.04)=""
^DD(350.4,"GL",0,1,.01)=""
^DD(350.4,"GL",0,2,.02)=""
^DD(350.4,"GL",0,3,.03)=""
^DD(350.4,"GL",0,4,.04)=""
^DD(350.4,"IX",.01)=""
^DD(350.4,"IX",.02)=""
^DD(350.4,"IX",.04)=""
^DD(350.4,"RQ",.01)=""
^DD(350.4,"RQ",.03)=""
^DD(350.4,"RQ",.04)=""
^DD(350.4,"TRB",350.4,.04,1,.03)=""
^DD(350.41,0)="FIELD^^.08^8"
^DD(350.41,0,"DDA")="N"
^DD(350.41,0,"DT")="2911125"
^DD(350.41,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(350.41,0,"IX","B",350.41,.01)=""
^DD(350.41,0,"NM","UPDATE BILLABLE AMBULATORY SURGICAL CODE")=""
^DD(350.41,0,"VR")="2.0"
^DD(350.41,0,"VRPK")="IB"
^DD(350.41,.01,0)="PROCEDURE^RP81'^ICPT(^0;1^Q"
^DD(350.41,.01,1,0)="^.1"
^DD(350.41,.01,1,1,0)="350.41^B"
^DD(350.41,.01,1,1,1)="S ^IBE(350.41,""B"",$E(X,1,30),DA)="""""
^DD(350.41,.01,1,1,2)="K ^IBE(350.41,""B"",$E(X,1,30),DA)"
^DD(350.41,.01,3)=""
^DD(350.41,.01,21,0)="^^4^4^2911113^^^^"
^DD(350.41,.01,21,1,0)="The ambulatory procedure to be added to or updated in 350.4."
^DD(350.41,.01,21,2,0)="It is not necessary that this procedure already have entries in either 350.4 or"
^DD(350.41,.01,21,3,0)="409.71 but it is required that the procedure already be active "
^DD(350.41,.01,21,4,0)="in 81."
^DD(350.41,.01,"DT")="2911113"
^DD(350.41,.02,0)="DATE EFFECTIVE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.41,.02,21,0)="^^1^1^2911113^"
^DD(350.41,.02,21,1,0)="The date that this procedure entry becomes effective for billing."
^DD(350.41,.02,"DT")="2911113"
^DD(350.41,.03,0)="OLD RATE GROUP^P350.1'^IBE(350.1,^0;3^Q"
^DD(350.41,.03,21,0)="^^2^2^2911113^"
^DD(350.41,.03,21,1,0)="This is the rate group that the procedure belongs to before this entry"
^DD(350.41,.03,21,2,0)="is activated, as defined by the HCFA document."
^DD(350.41,.03,"DT")="2911113"
^DD(350.41,.04,0)="NEW RATE GROUP^P350.1'^IBE(350.1,^0;4^Q"
^DD(350.41,.04,21,0)="^^1^1^2911113^"
^DD(350.41,.04,21,1,0)="The rate group for this procedure after this entry is activated."
^DD(350.41,.04,"DT")="2911113"
^DD(350.41,.05,0)="DATE LOADED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.41,.05,21,0)="^^1^1^2920415^^"
^DD(350.41,.05,21,1,0)="The date the HCFA information was loaded into this file."
^DD(350.41,.05,"DT")="2911113"
^DD(350.41,.06,0)="UPDATE ACTION^S^1:CREATED;2:ACTIVATED;3:CHANGED GROUPS;4:DEACTIVATED;^0;6^Q"
^DD(350.41,.06,3)=""
^DD(350.41,.06,21,0)="^^1^1^2911113^^"
^DD(350.41,.06,21,1,0)="The result caused by this entry on the procedure."
^DD(350.41,.06,"DT")="2911113"
^DD(350.41,.07,0)="STATUS^S^0:NOT TRANSFERED;1:TRANSFERED;^0;7^Q"
^DD(350.41,.07,21,0)="^^3^3^2940209^^"
^DD(350.41,.07,21,1,0)="A flag indicating if this entry has been successfully transferred to the"
^DD(350.41,.07,21,2,0)="billing file 350.4 (and therefore activated).  If this is null then the "
^DD(350.41,.07,21,3,0)="transfer program has not yet processed this procedure (entry)."
^DD(350.41,.07,"DT")="2911113"
^DD(350.41,.08,0)="ERROR^F^^0;8^K:$L(X)>60!($L(X)<3) X"
^DD(350.41,.08,3)="Answer must be 3-60 characters in length."
^DD(350.41,.08,21,0)="^^2^2^2940209^^"
^DD(350.41,.08,21,1,0)="Description of the error which prevented the entry from transferring to "
^DD(350.41,.08,21,2,0)="350.4.  This field is edited automatically by the transfer program."
^DD(350.41,.08,"DT")="2911125"
^DD(350.41,"B","DATE EFFECTIVE",.02)=""
^DD(350.41,"B","DATE LOADED",.05)=""
^DD(350.41,"B","ERROR",.08)=""
^DD(350.41,"B","NEW RATE GROUP",.04)=""
^DD(350.41,"B","OLD RATE GROUP",.03)=""
^DD(350.41,"B","PROCEDURE",.01)=""
^DD(350.41,"B","STATUS",.07)=""
^DD(350.41,"B","UPDATE ACTION",.06)=""
^DD(350.41,"GL",0,1,.01)=""
^DD(350.41,"GL",0,2,.02)=""
^DD(350.41,"GL",0,3,.03)=""
^DD(350.41,"GL",0,4,.04)=""
^DD(350.41,"GL",0,5,.05)=""
^DD(350.41,"GL",0,6,.06)=""
^DD(350.41,"GL",0,7,.07)=""
^DD(350.41,"GL",0,8,.08)=""
^DD(350.41,"IX",.01)=""
^DD(350.41,"RQ",.01)=""
^DD(350.41,"RQ",.02)=""
^DD(350.5,0)="FIELD^^.07^6"
^DD(350.5,0,"DDA")="N"
^DD(350.5,0,"DT")="2920121"
^DD(350.5,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(40.8,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(40.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(350.5,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(350.5,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(350.5,0,"ID",.07)="W ""   "",$P(^(0),U,7)"
^DD(350.5,0,"IX","AIVDT",350.5,.01)=""
^DD(350.5,0,"IX","AIVDT1",350.5,.02)=""
^DD(350.5,0,"IX","B",350.5,.01)=""
^DD(350.5,0,"IX","C",350.5,.02)=""
^DD(350.5,0,"NM","BASC LOCALITY MODIFIER")=""
^DD(350.5,0,"VR")="2.0"
^DD(350.5,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.5,.01,1,0)="^.1"
^DD(350.5,.01,1,1,0)="350.5^B"
^DD(350.5,.01,1,1,1)="S ^IBE(350.5,""B"",$E(X,1,30),DA)="""""
^DD(350.5,.01,1,1,2)="K ^IBE(350.5,""B"",$E(X,1,30),DA)"
^DD(350.5,.01,1,2,0)="350.5^AIVDT^MUMPS"
^DD(350.5,.01,1,2,1)="I $P(^IBE(350.5,DA,0),""^"",2) S ^IBE(350.5,""AIVDT"",$P(^(0),""^"",2),-X,DA)="""""
^DD(350.5,.01,1,2,2)="I $P(^IBE(350.5,DA,0),""^"",2) K ^IBE(350.5,""AIVDT"",$P(^(0),""^"",2),-X,DA)"
^DD(350.5,.01,1,2,"%D",0)="^^1^1^2911113^^"
^DD(350.5,.01,1,2,"%D",1,0)="Used to find the appropriate entry for a division on any particular date."
^DD(350.5,.01,1,2,"DT")="2911113"
^DD(350.5,.01,3)=""
^DD(350.5,.01,21,0)="^^3^3^2911113^^"
^DD(350.5,.01,21,1,0)="The date on which this entries data becomes effective."
^DD(350.5,.01,21,2,0)="The data in this entry will override any other entry for"
^DD(350.5,.01,21,3,0)="this DIVISION that has a previous EFFECTIVE DATE."
^DD(350.5,.01,"DT")="2911113"
^DD(350.5,.02,0)="DIVISION^RP40.8'^DG(40.8,^0;2^Q"
^DD(350.5,.02,1,0)="^.1"
^DD(350.5,.02,1,1,0)="350.5^C"
^DD(350.5,.02,1,1,1)="S ^IBE(350.5,""C"",$E(X,1,30),DA)="""""
^DD(350.5,.02,1,1,2)="K ^IBE(350.5,""C"",$E(X,1,30),DA)"
^DD(350.5,.02,1,1,"DT")="2910829"
^DD(350.5,.02,1,2,0)="350.5^AIVDT1^MUMPS"
^DD(350.5,.02,1,2,1)="I $P(^IBE(350.5,DA,0),""^"") S ^IBE(350.5,""AIVDT"",X,-$P(^(0),""^""),DA)="""""
^DD(350.5,.02,1,2,2)="I $P(^IBE(350.5,DA,0),""^"") K ^IBE(350.5,""AIVDT"",X,-$P(^(0),""^""),DA)"
^DD(350.5,.02,1,2,"%D",0)="^^1^1^2911113^"
^DD(350.5,.02,1,2,"%D",1,0)="Used to find the correct entry for a division for a particular date."
^DD(350.5,.02,1,2,"DT")="2910829"
^DD(350.5,.02,21,0)="^^1^1^2920121^^"
^DD(350.5,.02,21,1,0)="The division that this data applies to."
^DD(350.5,.02,"DT")="2920121"
^DD(350.5,.04,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;4^Q"
^DD(350.5,.04,21,0)="^^1^1^2920723^^^"
^DD(350.5,.04,21,1,0)="The status for this DIVISION on/after this EFFECTIVE DATE."
^DD(350.5,.04,"DT")="2920121"
^DD(350.5,.05,0)="WAGE PERCENTAGE^RNJ10,8^^0;5^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""9N.N) X"
^DD(350.5,.05,1,0)="^.1"
^DD(350.5,.05,1,1,0)="^^TRIGGER^350.5^.06"
^DD(350.5,.05,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=1-DIV S DIH=$G(^IBE(350.5,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=350.5,DIG=.06 D ^DICR"
^DD(350.5,.05,1,1,2)="Q"
^DD(350.5,.05,1,1,"CREATE VALUE")="1-WAGE PERCENTAGE"
^DD(350.5,.05,1,1,"DELETE VALUE")="NO EFFECT"
^DD(350.5,.05,1,1,"DT")="3040610"
^DD(350.5,.05,1,1,"FIELD")="NON-WAGE PERCENTAGE"
^DD(350.5,.05,3)="Type a number between 0 and 1, with up to 8 decimal digits.  This is the wage component fraction of the Ambulatory Surgery charge."
^DD(350.5,.05,21,0)="^^2^2^2920723^^^^"
^DD(350.5,.05,21,1,0)="This is the percentage of the rate group unit charge that is the wage"
^DD(350.5,.05,21,2,0)="component to be used in calculating the ambulatory surgery charge."
^DD(350.5,.05,"DT")="3040610"
^DD(350.5,.06,0)="NON-WAGE PERCENTAGE^RNJ10,8X^^0;6^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""9N.N)!(X'=(1-$P(^IBE(350.5,DA,0),U,5))) X"
^DD(350.5,.06,3)="Type a Number between 0 and 1, 8 Decimal Digits.  Wage and non-wage percentage must total 1."
^DD(350.5,.06,5,1,0)="350.5^.05^1"
^DD(350.5,.06,21,0)="^^2^2^2920415^^^^"
^DD(350.5,.06,21,1,0)="This is the percentage of the rate group unit charge that is the non-wage "
^DD(350.5,.06,21,2,0)="component to be used in calculating the ambulatory surgery charge."
^DD(350.5,.06,"DT")="2920122"
^DD(350.5,.07,0)="LOCALITY RATE MODIFIER^RNJ11,8^^0;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""9N.N) X"
^DD(350.5,.07,3)="Type a Number between 0 and 99, 8 Decimal Digits"
^DD(350.5,.07,21,0)="^^4^4^2920415^^^"
^DD(350.5,.07,21,1,0)="This is the Geographic Wage Index that is used to account for wage differences"
^DD(350.5,.07,21,2,0)="in different localities when calculating the ambulatory surgery charge. It is"
^DD(350.5,.07,21,3,0)="multiplied by the wage component to get the final geographic wage component"
^DD(350.5,.07,21,4,0)="of the charge."
^DD(350.5,.07,"DT")="2920121"
^DD(350.5,"B","DIVISION",.02)=""
^DD(350.5,"B","EFFECTIVE DATE",.01)=""
^DD(350.5,"B","LOCALITY RATE MODIFIER",.07)=""
^DD(350.5,"B","NON-WAGE PERCENTAGE",.06)=""
^DD(350.5,"B","STATUS",.04)=""
^DD(350.5,"B","WAGE PERCENTAGE",.05)=""
^DD(350.5,"GL",0,1,.01)=""
^DD(350.5,"GL",0,2,.02)=""
^DD(350.5,"GL",0,4,.04)=""
^DD(350.5,"GL",0,5,.05)=""
^DD(350.5,"GL",0,6,.06)=""
^DD(350.5,"GL",0,7,.07)=""
^DD(350.5,"IX",.01)=""
^DD(350.5,"IX",.02)=""
^DD(350.5,"IX",.05)=""
^DD(350.5,"RQ",.01)=""
^DD(350.5,"RQ",.02)=""
^DD(350.5,"RQ",.04)=""
^DD(350.5,"RQ",.05)=""
^DD(350.5,"RQ",.06)=""
^DD(350.5,"RQ",.07)=""
^DD(350.5,"TRB",350.5,.05,1,.06)=""
^DD(350.6,0)="FIELD^^3.03^14"
^DD(350.6,0,"DDA")="N"
^DD(350.6,0,"DT")="2920408"
^DD(350.6,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(350.6,0,"ID",.05)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(350.6,.05,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(350.6,0,"ID",1.01)="W:$D(^(1)) ""   "",$E($P(^(1),U,1),4,5)_""-""_$E($P(^(1),U,1),6,7)_""-""_$E($P(^(1),U,1),2,3)"
^DD(350.6,0,"IX","AF",350.6,.03)=""
^DD(350.6,0,"IX","AF1",350.6,1.01)=""
^DD(350.6,0,"IX","B",350.6,.01)=""
^DD(350.6,0,"IX","C",350.6,.02)=""
^DD(350.6,0,"IX","D",350.6,.03)=""
^DD(350.6,0,"IX","E",350.6,.05)=""
^DD(350.6,0,"NM","IB ARCHIVE/PURGE LOG")=""
^DD(350.6,0,"VR")="2.0"
^DD(350.6,.01,0)="ARCHIVE LOG #^RNJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.6,.01,1,0)="^.1"
^DD(350.6,.01,1,1,0)="350.6^B"
^DD(350.6,.01,1,1,1)="S ^IBE(350.6,""B"",$E(X,1,30),DA)="""""
^DD(350.6,.01,1,1,2)="K ^IBE(350.6,""B"",$E(X,1,30),DA)"
^DD(350.6,.01,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(350.6,.01,21,0)="^^3^3^2920427^^^"
^DD(350.6,.01,21,1,0)="The Log # number is used to identify a unique archive/purge operation"
^DD(350.6,.01,21,2,0)="for a single file.  The number will be equal to the internal entry"
^DD(350.6,.01,21,3,0)="number of the Log entry."
^DD(350.6,.01,"DT")="2920408"
^DD(350.6,.02,0)="SEARCH TEMPLATE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>33!($L(X)<6) X"
^DD(350.6,.02,1,0)="^.1"
^DD(350.6,.02,1,1,0)="350.6^C"
^DD(350.6,.02,1,1,1)="S ^IBE(350.6,""C"",$E(X,1,30),DA)="""""
^DD(350.6,.02,1,1,2)="K ^IBE(350.6,""C"",$E(X,1,30),DA)"
^DD(350.6,.02,1,1,"DT")="2920408"
^DD(350.6,.02,3)="Answer must be 6-33 characters in length."
^DD(350.6,.02,21,0)="^^7^7^2920427^"
^DD(350.6,.02,21,1,0)="This field contains the name of the Search Template used to contain the"
^DD(350.6,.02,21,2,0)="list of entries to be archived/purged.  This name is the .01 field for"
^DD(350.6,.02,21,3,0)="the template entry in the SORT TEMPLATE file (#.401).  The name of the"
^DD(350.6,.02,21,4,0)="template is stored instead of a hard pointer to the SORT TEMPLATE file"
^DD(350.6,.02,21,5,0)="because the template is deleted from the file after the entries have"
^DD(350.6,.02,21,6,0)="been purged.  The name of the template is the string ""IB ARCHIVE/PURGE #"""
^DD(350.6,.02,21,7,0)="concatenated with the Archive Log # (field .01)."
^DD(350.6,.02,"DT")="2920408"
^DD(350.6,.03,0)="ARCHIVE FILE^P1'^DIC(^0;3^Q"
^DD(350.6,.03,1,0)="^.1"
^DD(350.6,.03,1,1,0)="350.6^D"
^DD(350.6,.03,1,1,1)="S ^IBE(350.6,""D"",$E(X,1,30),DA)="""""
^DD(350.6,.03,1,1,2)="K ^IBE(350.6,""D"",$E(X,1,30),DA)"
^DD(350.6,.03,1,1,"DT")="2920408"
^DD(350.6,.03,1,2,0)="350.6^AF^MUMPS"
^DD(350.6,.03,1,2,1)="I $D(^IBE(350.6,DA,1)),^(1) S ^IBE(350.6,""AF"",X,-^(1),DA)="""""
^DD(350.6,.03,1,2,2)="I $D(^IBE(350.6,DA,1)),^(1) K ^IBE(350.6,""AF"",X,-^(1),DA)"
^DD(350.6,.03,1,2,"%D",0)="^^5^5^2920408^"
^DD(350.6,.03,1,2,"%D",1,0)="Cross-reference of all ARCHIVE/PURGE LOG entries (by Archive file [#.03]"
^DD(350.6,.03,1,2,"%D",2,0)="and the inverse Search Begin Date/Time [#1.01]) for which a search has"
^DD(350.6,.03,1,2,"%D",3,0)="been initiated.  The cross-reference will be used to find the most recent"
^DD(350.6,.03,1,2,"%D",4,0)="log entry for a file.  The ""AF1"" cross-reference on the Search Begin"
^DD(350.6,.03,1,2,"%D",5,0)="Date/Time field (#1.01) is the companion to this cross-reference."
^DD(350.6,.03,1,2,"DT")="2920408"
^DD(350.6,.03,21,0)="^^7^7^2940209^^"
^DD(350.6,.03,21,1,0)="This field points to the FILE file (#1) and represents the file to be"
^DD(350.6,.03,21,2,0)="archived/purged.  The Billing data files subject to archiving/purging"
^DD(350.6,.03,21,3,0)="currently are:"
^DD(350.6,.03,21,4,0)=" "
^DD(350.6,.03,21,5,0)="  350  INTEGRATED BILLING ACTION"
^DD(350.6,.03,21,6,0)="  351  CATEGORY C BILLING CLOCK"
^DD(350.6,.03,21,7,0)="  399  BILL/CLAIMS"
^DD(350.6,.03,"DT")="2920408"
^DD(350.6,.04,0)="# RECORDS ARCHIVED^NJ15,0^^0;4^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.6,.04,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(350.6,.04,21,0)="^^7^7^2920427^"
^DD(350.6,.04,21,1,0)="This field will contain the number of entries which have been processed"
^DD(350.6,.04,21,2,0)="in each sequential archive/purge operation.  The 'Search' option will"
^DD(350.6,.04,21,3,0)="update the field with the number of entries which have met the search"
^DD(350.6,.04,21,4,0)="criteria.  The 'Archive' option will update this field with the number"
^DD(350.6,.04,21,5,0)="of entries archived.  The 'Purge' option will update the field with the"
^DD(350.6,.04,21,6,0)="number of entries purged.  Also, the 'Delete Entry From Search Template'"
^DD(350.6,.04,21,7,0)="option will update the field when entries from the template are deleted."
^DD(350.6,.04,"DT")="2920408"
^DD(350.6,.05,0)="LOG STATUS^S^1:OPEN;2:CLOSED;3:CANCELLED;^0;5^Q"
^DD(350.6,.05,1,0)="^.1"
^DD(350.6,.05,1,1,0)="350.6^E"
^DD(350.6,.05,1,1,1)="S ^IBE(350.6,""E"",$E(X,1,30),DA)="""""
^DD(350.6,.05,1,1,2)="K ^IBE(350.6,""E"",$E(X,1,30),DA)"
^DD(350.6,.05,1,1,"DT")="2920408"
^DD(350.6,.05,21,0)="^^4^4^2920427^^^"
^DD(350.6,.05,21,1,0)="This field contains the current status of the archive/purge operation."
^DD(350.6,.05,21,2,0)="The status will be OPEN when the log entry is created, and CLOSED after"
^DD(350.6,.05,21,3,0)="successfully purging archived entries.  The entry will be CANCELLED if an"
^DD(350.6,.05,21,4,0)="error is detected during processing which invalidates the operation."
^DD(350.6,.05,"DT")="2920408"
^DD(350.6,1.01,0)="SEARCH BEGIN DATE/TIME^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.6,1.01,1,0)="^.1"
^DD(350.6,1.01,1,1,0)="^^TRIGGER^350.6^1.03"
^DD(350.6,1.01,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.6,DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR"
^DD(350.6,1.01,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBE(350.6,DIV(0),1)),DIV=X S $P(^(1),U,3)=DIV,DIH=350.6,DIG=1.03 D ^DICR"
^DD(350.6,1.01,1,1,"CREATE VALUE")="S X=DUZ"
^DD(350.6,1.01,1,1,"DELETE VALUE")="@"
^DD(350.6,1.01,1,1,"DT")="3040610"
^DD(350.6,1.01,1,1,"FIELD")="SEARCH INITIATOR"
^DD(350.6,1.01,1,2,0)="350.6^AF1^MUMPS"
^DD(350.6,1.01,1,2,1)="I $D(^IBE(350.6,DA,0)),$P(^(0),""^"",3) S ^IBE(350.6,""AF"",$P(^(0),""^"",3),-X,DA)="""""
^DD(350.6,1.01,1,2,2)="I $D(^IBE(350.6,DA,0)),$P(^(0),""^"",3) K ^IBE(350.6,""AF"",$P(^(0),""^"",3),-X,DA)"
^DD(350.6,1.01,1,2,"%D",0)="^^5^5^2920410^"
^DD(350.6,1.01,1,2,"%D",1,0)="Cross-reference of all ARCHIVE/PURGE LOG entries (by Archive file [#.03]"
^DD(350.6,1.01,1,2,"%D",2,0)="and the inverse Search Begin Date/Time [#1.01]) for which a search has"
^DD(350.6,1.01,1,2,"%D",3,0)="been initiated.  The cross-reference will be used to find the most recent"
^DD(350.6,1.01,1,2,"%D",4,0)="log entry for a file.  The ""AF"" cross-reference on the Archive File field"
^DD(350.6,1.01,1,2,"%D",5,0)="(#.03) is the companion to this cross-reference."
^DD(350.6,1.01,1,2,"DT")="2920410"
^DD(350.6,1.01,21,0)="^^2^2^2920427^^"
^DD(350.6,1.01,21,1,0)="The date/time at which the search was initiated is automatically stuffed"
^DD(350.6,1.01,21,2,0)="into this field by the 'Search' option."
^DD(350.6,1.01,"DT")="3040610"
^DD(350.6,1.02,0)="SEARCH END DATE/TIME^D^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.6,1.02,3)=""
^DD(350.6,1.02,21,0)="^^4^4^2920427^^"
^DD(350.6,1.02,21,1,0)="The date/time at which the search was completed is automatically stuffed"
^DD(350.6,1.02,21,2,0)="into this field by the 'Search' option.  The existence of this field in"
^DD(350.6,1.02,21,3,0)="the log entry assures that the search on the file was successful, and"
^DD(350.6,1.02,21,4,0)="thus the field is used as the flag to allow archiving."
^DD(350.6,1.03,0)="SEARCH INITIATOR^P200'^VA(200,^1;3^Q"
^DD(350.6,1.03,5,1,0)="350.6^1.01^1"
^DD(350.6,1.03,21,0)="^^3^3^2920427^"
^DD(350.6,1.03,21,1,0)="This field conatins the individual who queued the search on the file."
^DD(350.6,1.03,21,2,0)="The field is updated by a trigger when the SEARCH BEGIN DATE/TIME field"
^DD(350.6,1.03,21,3,0)="is updated."
^DD(350.6,1.03,"DT")="2920408"
^DD(350.6,2.01,0)="ARCHIVE BEGIN DATE/TIME^D^^2;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.6,2.01,1,0)="^.1"
^DD(350.6,2.01,1,1,0)="^^TRIGGER^350.6^2.03"
^DD(350.6,2.01,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.6,DIV(0),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR"
^DD(350.6,2.01,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBE(350.6,DIV(0),2)),DIV=X S $P(^(2),U,3)=DIV,DIH=350.6,DIG=2.03 D ^DICR"
^DD(350.6,2.01,1,1,"CREATE VALUE")="S X=DUZ"
^DD(350.6,2.01,1,1,"DELETE VALUE")="@"
^DD(350.6,2.01,1,1,"DT")="3040610"
^DD(350.6,2.01,1,1,"FIELD")="#2.03"
^DD(350.6,2.01,21,0)="^^2^2^2920427^^"
^DD(350.6,2.01,21,1,0)="The date/time that the archiving of data is initiated is automatically"
^DD(350.6,2.01,21,2,0)="stuffed into this field by the 'Archive' option."
^DD(350.6,2.01,"DT")="3040610"
^DD(350.6,2.02,0)="ARCHIVE END DATE/TIME^D^^2;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.6,2.02,3)=""
^DD(350.6,2.02,21,0)="^^4^4^2920427^^"
^DD(350.6,2.02,21,1,0)="The date/time that the archiving of data was completed is automatically"
^DD(350.6,2.02,21,2,0)="stuffed into this field by the 'Archive' option.  The existence of this"
^DD(350.6,2.02,21,3,0)="field in the log entry assures that archiving was successful, and thus"
^DD(350.6,2.02,21,4,0)="the field is used as a flag to allow purging."
^DD(350.6,2.03,0)="ARCHIVE INITIATOR^P200'^VA(200,^2;3^Q"
^DD(350.6,2.03,5,1,0)="350.6^2.01^1"
^DD(350.6,2.03,21,0)="^^2^2^2920427^^"
^DD(350.6,2.03,21,1,0)="This field contains the individual who archived the file.  The field is"
^DD(350.6,2.03,21,2,0)="updated by a trigger when the ARCHIVE BEGIN DATE/TIME field is updated."
^DD(350.6,2.03,"DT")="2920408"
^DD(350.6,3.01,0)="PURGE BEGIN DATE/TIME^D^^3;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.6,3.01,1,0)="^.1"
^DD(350.6,3.01,1,1,0)="^^TRIGGER^350.6^3.03"
^DD(350.6,3.01,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,3)):^(3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.6,DIV(0),3)),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR"
^DD(350.6,3.01,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.6,D0,3)):^(3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBE(350.6,DIV(0),3)),DIV=X S $P(^(3),U,3)=DIV,DIH=350.6,DIG=3.03 D ^DICR"
^DD(350.6,3.01,1,1,"CREATE VALUE")="S X=DUZ"
^DD(350.6,3.01,1,1,"DELETE VALUE")="@"
^DD(350.6,3.01,1,1,"DT")="3040610"
^DD(350.6,3.01,1,1,"FIELD")="#3.03"
^DD(350.6,3.01,21,0)="^^2^2^2920427^"
^DD(350.6,3.01,21,1,0)="The date/time that purging is initiated is automatically stuffed into"
^DD(350.6,3.01,21,2,0)="this field by the 'Purge' option."
^DD(350.6,3.01,"DT")="3040610"
^DD(350.6,3.02,0)="PURGE END DATE/TIME^D^^3;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.6,3.02,3)=""
^DD(350.6,3.02,21,0)="^^3^3^2920427^"
^DD(350.6,3.02,21,1,0)="The date/time that the purging of data was completed is automatically"
^DD(350.6,3.02,21,2,0)="stuffed into this field by the 'Purge' option.  When this field is"
^DD(350.6,3.02,21,3,0)="updated the status of the log entry is updated to CLOSED."
^DD(350.6,3.03,0)="PURGE INITIATOR^P200'^VA(200,^3;3^Q"
^DD(350.6,3.03,5,1,0)="350.6^3.01^1"
^DD(350.6,3.03,21,0)="^^2^2^2920427^"
^DD(350.6,3.03,21,1,0)="This field contains the individual who purged the file.  The field is"
^DD(350.6,3.03,21,2,0)="updated by a trigger when the PURGE BEGIN DATE/TIME field is updated."
^DD(350.6,3.03,"DT")="2920408"
^DD(350.6,"B","# RECORDS ARCHIVED",.04)=""
^DD(350.6,"B","ARCHIVE BEGIN DATE/TIME",2.01)=""
^DD(350.6,"B","ARCHIVE END DATE/TIME",2.02)=""
^DD(350.6,"B","ARCHIVE FILE",.03)=""
^DD(350.6,"B","ARCHIVE INITIATOR",2.03)=""
^DD(350.6,"B","ARCHIVE LOG #",.01)=""
^DD(350.6,"B","LOG STATUS",.05)=""
^DD(350.6,"B","PURGE BEGIN DATE/TIME",3.01)=""
^DD(350.6,"B","PURGE END DATE/TIME",3.02)=""
^DD(350.6,"B","PURGE INITIATOR",3.03)=""
^DD(350.6,"B","SEARCH BEGIN DATE/TIME",1.01)=""
^DD(350.6,"B","SEARCH END DATE/TIME",1.02)=""
^DD(350.6,"B","SEARCH INITIATOR",1.03)=""
^DD(350.6,"B","SEARCH TEMPLATE",.02)=""
^DD(350.6,"GL",0,1,.01)=""
^DD(350.6,"GL",0,2,.02)=""
^DD(350.6,"GL",0,3,.03)=""
^DD(350.6,"GL",0,4,.04)=""
^DD(350.6,"GL",0,5,.05)=""
^DD(350.6,"GL",1,1,1.01)=""
^DD(350.6,"GL",1,2,1.02)=""
^DD(350.6,"GL",1,3,1.03)=""
^DD(350.6,"GL",2,1,2.01)=""
^DD(350.6,"GL",2,2,2.02)=""
^DD(350.6,"GL",2,3,2.03)=""
^DD(350.6,"GL",3,1,3.01)=""
^DD(350.6,"GL",3,2,3.02)=""
^DD(350.6,"GL",3,3,3.03)=""
^DD(350.6,"IX",.01)=""
^DD(350.6,"IX",.02)=""
^DD(350.6,"IX",.03)=""
^DD(350.6,"IX",.05)=""
^DD(350.6,"IX",1.01)=""
^DD(350.6,"IX",2.01)=""
^DD(350.6,"IX",3.01)=""
^DD(350.6,"RQ",.01)=""
^DD(350.6,"TRB",350.6,1.01,1,1.03)=""
^DD(350.6,"TRB",350.6,2.01,1,2.03)=""
^DD(350.6,"TRB",350.6,3.01,1,3.03)=""
^DD(350.7,0)="FIELD^^.04^4"
^DD(350.7,0,"DDA")="N"
^DD(350.7,0,"DT")="2911119"
^DD(350.7,0,"IX","B",350.7,.01)=""
^DD(350.7,0,"NM","AMBULATORY CHECK-OFF SHEET")=""
^DD(350.7,0,"PT",350.71,.04)=""
^DD(350.7,0,"VR")="2.0"
^DD(350.7,.01,0)="NAME^RFX^^0;1^S IBGRPX=$G(DA) D FFMT^IBEFUNC2 S IBLNGX=$S($P(IBLNGX,U,2):$P(IBLNGX,U,2),1:59) K:$L(X)<3!'(X'?1P.E)!($L(X)>IBLNGX) X K IBLNGX,IBGRPX"
^DD(350.7,.01,1,0)="^.1"
^DD(350.7,.01,1,1,0)="350.7^B"
^DD(350.7,.01,1,1,1)="S ^IBE(350.7,""B"",$E(X,1,30),DA)="""""
^DD(350.7,.01,1,1,2)="K ^IBE(350.7,""B"",$E(X,1,30),DA)"
^DD(350.7,.01,3)="Enter the title to be printed on the CPT list for this sheet.  PLEASE NOTE THAT DELETING A SHEET ALSO DELETES ALL THE SHEET'S SUB-HEADERS AND PROCEDURES.Maximum length depends on number of columns.  "
^DD(350.7,.01,4)="S IBGRPX=$G(DA) D FFMT^IBEFUNC2 W !,?5,""Maximum length for this SHEET is now "",$S($P(IBLNGX,U,2):$P(IBLNGX,U,2),1:59),"" characters."",! K IBLNGX,IBGRPX"
^DD(350.7,.01,21,0)="^^3^3^2920512^^^^"
^DD(350.7,.01,21,1,0)="Title for this sheet (group), printed on the CPT list for the associated"
^DD(350.7,.01,21,2,0)="clinics.  Maximum length allowed is calculated because it will change"
^DD(350.7,.01,21,3,0)="depending on the line format for the sheet."
^DD(350.7,.01,"DEL",1,0)="I '$D(IBERSCE)"
^DD(350.7,.01,"DT")="2940317"
^DD(350.7,.02,0)="DISPLAY CHARGE^RS^0:NO;1:YES;^0;2^Q"
^DD(350.7,.02,3)="Enter 'Y' if you want the CPT charge to be printed on the check-off sheet, along with NAME and CODE.  Printing the charge decreases the number of characters available for the procedure name, by 10."
^DD(350.7,.02,21,0)="^^3^3^2920220^^^^"
^DD(350.7,.02,21,1,0)="Indicates if the charge should be displayed on this check-off sheet."
^DD(350.7,.02,21,2,0)="If charge is displayed, then the number of characters available for the"
^DD(350.7,.02,21,3,0)="procedure name is decreased."
^DD(350.7,.02,"DT")="2911119"
^DD(350.7,.03,0)="COLUMNS^RS^2:TWO VERTICAL;3:THREE VERTICAL;^0;3^Q"
^DD(350.7,.03,3)="Enter the number of vertical columns of CPT codes printed on each page for this check-off sheet.  Number of characters for name (w/ w/o $): 2 columns=36/46, 3 columns=14/24."
^DD(350.7,.03,21,0)="^^3^3^2920409^^^^"
^DD(350.7,.03,21,1,0)="The number of vertical columns used when printing this check-off sheet."
^DD(350.7,.03,21,2,0)="The number of columns on a page determines the column width and the"
^DD(350.7,.03,21,3,0)="number of characters available for the procedure/subheader name."
^DD(350.7,.03,"DT")="2911119"
^DD(350.7,.04,0)="LINE FORMAT^RS^1:CODE/NAME/$;2:NAME/CODE/$;^0;4^Q"
^DD(350.7,.04,3)="Enter the code corresponding to the positioning of data elements within a vertical column on the check-off sheet.  (Ignore the $ if charge is not to be printed.)"
^DD(350.7,.04,21,0)="^^1^1^2920220^^^^"
^DD(350.7,.04,21,1,0)="Position of data elements within a column."
^DD(350.7,.04,"DT")="2911119"
^DD(350.7,"B","COLUMNS",.03)=""
^DD(350.7,"B","DISPLAY CHARGE",.02)=""
^DD(350.7,"B","LINE FORMAT",.04)=""
^DD(350.7,"B","NAME",.01)=""
^DD(350.7,"GL",0,1,.01)=""
^DD(350.7,"GL",0,2,.02)=""
^DD(350.7,"GL",0,3,.03)=""
^DD(350.7,"GL",0,4,.04)=""
^DD(350.7,"IX",.01)=""
^DD(350.7,"RQ",.01)=""
^DD(350.7,"RQ",.02)=""
^DD(350.7,"RQ",.03)=""
^DD(350.7,"RQ",.04)=""
^DD(350.71,0)="FIELD^^.08^7"
^DD(350.71,0,"DDA")="N"
^DD(350.71,0,"DT")="2920128"
^DD(350.71,0,"IX","AG",350.71,.02)=""
^DD(350.71,0,"IX","AG1",350.71,.04)=""
^DD(350.71,0,"IX","AP",350.71,.06)=""
^DD(350.71,0,"IX","AP1",350.71,.05)=""
^DD(350.71,0,"IX","AS",350.71,.02)=""
^DD(350.71,0,"IX","AS1",350.71,.05)=""
^DD(350.71,0,"IX","B",350.71,.01)=""
^DD(350.71,0,"IX","G",350.71,.04)=""
^DD(350.71,0,"IX","P",350.71,.06)=""
^DD(350.71,0,"IX","S",350.71,.05)=""
^DD(350.71,0,"NM","AMBULATORY SURG. CHECK-OFF SHEET PRINT FIELDS")=""
^DD(350.71,0,"PT",350.71,.05)=""
^DD(350.71,0,"VR")="2.0"
^DD(350.71,.01,0)="NAME^RFX^^0;1^S:$D(DA) IBCPX=DA D FFMT^IBEFUNC2 S IBLNGX=$S(IBLNGX=""""!'$D(DA):59,$P(^IBE(350.71,DA,0),U,3)=""P"":$P(IBLNGX,U,3),1:$P(IBLNGX,U,2)) K:$L(X)<3!($L(X)>IBLNGX) X K IBLNGX,IBCPX"
^DD(350.71,.01,1,0)="^.1^^-1"
^DD(350.71,.01,1,1,0)="350.71^B"
^DD(350.71,.01,1,1,1)="S ^IBE(350.71,""B"",$E(X,1,30),DA)="""""
^DD(350.71,.01,1,1,2)="K ^IBE(350.71,""B"",$E(X,1,30),DA)"
^DD(350.71,.01,3)="Enter the text to be printed on the CPT list for this entry. Maximum length depends on number of columns and if charge is printed.  DELETING A SUB-HEADER DELETES ALL THE SUB-HEADER'S PROCEDURES."
^DD(350.71,.01,4)="I $D(DA) S IBCPX=DA D FFMT^IBEFUNC2 W !,?5,""Maximum length for this entry is now "",$S(IBLNGX="""":59,$P(^IBE(350.71,DA,0),U,3)=""P"":$P(IBLNGX,U,3),1:$P(IBLNGX,U,2)),"" characters."",! K IBLNGX,IBCPX"
^DD(350.71,.01,21,0)="^^1^1^2920327^^^^"
^DD(350.71,.01,21,1,0)="Text printed on the check-off sheet for this entry."
^DD(350.71,.01,"DEL",1,0)="I '$D(IBERSCE)"
^DD(350.71,.01,"DT")="2920327"
^DD(350.71,.02,0)="PRINT ORDER^RNJ4,0X^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$D(DA) D FPO^IBEFUNC2 I 'X K X"
^DD(350.71,.02,1,0)="^.1"
^DD(350.71,.02,1,1,0)="350.71^AS^MUMPS"
^DD(350.71,.02,1,1,1)="I $P(^IBE(350.71,DA,0),""^"",5) S ^IBE(350.71,""AS"",$P(^(0),""^"",5),X,DA)="""""
^DD(350.71,.02,1,1,2)="I $P(^IBE(350.71,DA,0),""^"",5) K ^IBE(350.71,""AS"",$P(^(0),""^"",5),X,DA)"
^DD(350.71,.02,1,1,3)="DO NOT DELETE"
^DD(350.71,.02,1,1,"%D",0)="^^1^1^2920128^"
^DD(350.71,.02,1,1,"%D",1,0)="Quick index for sub-header members (procedures) and their print orders."
^DD(350.71,.02,1,1,"DT")="2920128"
^DD(350.71,.02,1,2,0)="350.71^AG^MUMPS"
^DD(350.71,.02,1,2,1)="I $P(^IBE(350.71,DA,0),""^"",4) S ^IBE(350.71,""AG"",$P(^(0),""^"",4),X,DA)="""""
^DD(350.71,.02,1,2,2)="I $P(^IBE(350.71,DA,0),""^"",4) K ^IBE(350.71,""AG"",$P(^(0),""^"",4),X,DA)"
^DD(350.71,.02,1,2,3)="DO NOT DELETE"
^DD(350.71,.02,1,2,"%D",0)="^^1^1^2920128^^^^"
^DD(350.71,.02,1,2,"%D",1,0)="Quick cross-reference for all members (sub-header's) and their print orders, within a sheet."
^DD(350.71,.02,1,2,"DT")="2911121"
^DD(350.71,.02,3)="Type a Number between 1 and 9999, the number must not already be defined as a Print Order for the sheet/sub-header.  This determines the printing order for entries within sheets and sub-headers."
^DD(350.71,.02,21,0)="^^2^2^2920415^^^^"
^DD(350.71,.02,21,1,0)="The order that the members of the check-off sheet/sub-header are printed."
^DD(350.71,.02,21,2,0)="A print order must be entered or the procedure is deleted from the sheet."
^DD(350.71,.02,"DT")="2920211"
^DD(350.71,.03,0)="TYPE^RS^S:SUB-HEADER;P:PROCEDURE;^0;3^Q"
^DD(350.71,.03,1,0)="^.1^^0"
^DD(350.71,.03,3)="A sub-header is a subgroup which may have multiple procedures associated with it.  A procedure is printed under a specific sub-header and must have a valid CPT code."
^DD(350.71,.03,21,0)="^^2^2^2920128^^^"
^DD(350.71,.03,21,1,0)="The type definition for this entry.  There are only two types:"
^DD(350.71,.03,21,2,0)="  ""P""rocedures which should always have valid CPT codes, and ""S""ub-headers which may have multiple procedures."
^DD(350.71,.03,"DT")="2920128"
^DD(350.71,.04,0)="CHECK-OFF SHEET^P350.7'^IBE(350.7,^0;4^Q"
^DD(350.71,.04,1,0)="^.1"
^DD(350.71,.04,1,1,0)="350.71^AG1^MUMPS"
^DD(350.71,.04,1,1,1)="I $P(^IBE(350.71,DA,0),""^"",2) S ^IBE(350.71,""AG"",X,$P(^(0),""^"",2),DA)="""""
^DD(350.71,.04,1,1,2)="I $P(^IBE(350.71,DA,0),""^"",2) K ^IBE(350.71,""AG"",X,$P(^(0),""^"",2),DA)"
^DD(350.71,.04,1,1,3)="DO NOT DELETE"
^DD(350.71,.04,1,1,"%D",0)="^^1^1^2920128^^^^"
^DD(350.71,.04,1,1,"%D",1,0)="Quick cross-reference for members and their print orders within a check-off sheet."
^DD(350.71,.04,1,1,"DT")="2911121"
^DD(350.71,.04,1,2,0)="350.71^G"
^DD(350.71,.04,1,2,1)="S ^IBE(350.71,""G"",$E(X,1,30),DA)="""""
^DD(350.71,.04,1,2,2)="K ^IBE(350.71,""G"",$E(X,1,30),DA)"
^DD(350.71,.04,1,2,3)="DO NOT DELETE"
^DD(350.71,.04,1,2,"%D",0)="^^1^1^2920128^"
^DD(350.71,.04,1,2,"%D",1,0)="Quick index of all sheets (groups)."
^DD(350.71,.04,1,2,"DT")="2911122"
^DD(350.71,.04,3)="The check-off sheet this entry is a member of.  This entry will be printed on the CPT list for the sheet you specify."
^DD(350.71,.04,21,0)="^^1^1^2940209^^^^"
^DD(350.71,.04,21,1,0)="The check-off sheet this entry belongs to."
^DD(350.71,.04,23,0)="^^2^2^2940209^^^"
^DD(350.71,.04,23,1,0)="Under the current hierarchical scheme this field will have data only for"
^DD(350.71,.04,23,2,0)="entries of TYPE=SUB-HEADER."
^DD(350.71,.04,"DT")="2920128"
^DD(350.71,.05,0)="SUB-HEADER^*P350.71'^IBE(350.71,^0;5^S DIC(""S"")=""I $P(^(0),U,3)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(350.71,.05,1,0)="^.1"
^DD(350.71,.05,1,1,0)="350.71^AS1^MUMPS"
^DD(350.71,.05,1,1,1)="I $P(^IBE(350.71,DA,0),""^"",2) S ^IBE(350.71,""AS"",X,$P(^(0),""^"",2),DA)="""""
^DD(350.71,.05,1,1,2)="I $P(^IBE(350.71,DA,0),""^"",2) K ^IBE(350.71,""AS"",X,$P(^(0),""^"",2),DA)"
^DD(350.71,.05,1,1,3)="DO NOT DELETE"
^DD(350.71,.05,1,1,"%D",0)="^^1^1^2920128^"
^DD(350.71,.05,1,1,"%D",1,0)="Quick index for sub-header members (procedures) and their print orders."
^DD(350.71,.05,1,1,"DT")="2920128"
^DD(350.71,.05,1,3,0)="350.71^S"
^DD(350.71,.05,1,3,1)="S ^IBE(350.71,""S"",$E(X,1,30),DA)="""""
^DD(350.71,.05,1,3,2)="K ^IBE(350.71,""S"",$E(X,1,30),DA)"
^DD(350.71,.05,1,3,3)="DO NOT DELETE"
^DD(350.71,.05,1,3,"%D",0)="^^1^1^2920128^"
^DD(350.71,.05,1,3,"%D",1,0)="Quick index of all sub-header entrys."
^DD(350.71,.05,1,3,"DT")="2920128"
^DD(350.71,.05,1,4,0)="350.71^AP1^MUMPS"
^DD(350.71,.05,1,4,1)="I $P(^IBE(350.71,DA,0),""^"",6) S ^IBE(350.71,""AP"",X,$P(^(0),""^"",6),DA)="""""
^DD(350.71,.05,1,4,2)="I $P(^IBE(350.71,DA,0),""^"",6) K ^IBE(350.71,""AP"",X,$P(^(0),""^"",6),DA)"
^DD(350.71,.05,1,4,3)="DO NOT DELETE"
^DD(350.71,.05,1,4,"%D",0)="^^1^1^2920128^^^"
^DD(350.71,.05,1,4,"%D",1,0)="Quick cross-reference between procedures and sub-headers."
^DD(350.71,.05,1,4,"DT")="2911122"
^DD(350.71,.05,3)="Enter the sub-header that this procedure should be printed under on the check-off sheet."
^DD(350.71,.05,12)="Procedures cannot be sub-headers."
^DD(350.71,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""S"""""""
^DD(350.71,.05,21,0)="^^1^1^2940209^^^^"
^DD(350.71,.05,21,1,0)="The sub-header that this entry is a member of."
^DD(350.71,.05,23,0)="^^2^2^2940209^^"
^DD(350.71,.05,23,1,0)="Under the current hierarchical scheme this field should have data only if"
^DD(350.71,.05,23,2,0)="TYPE=PROCEDURE."
^DD(350.71,.05,"DT")="2920128"
^DD(350.71,.06,0)="PROCEDURE^R*P81'^ICPT(^0;6^S DIC(""S"")=""I $D(DA),$P($G(^IBE(350.71,+DA,0)),U,3)=""""P"""",$$CPTACT^IBACSV(+Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(350.71,.06,1,0)="^.1"
^DD(350.71,.06,1,1,0)="350.71^P"
^DD(350.71,.06,1,1,1)="S ^IBE(350.71,""P"",$E(X,1,30),DA)="""""
^DD(350.71,.06,1,1,2)="K ^IBE(350.71,""P"",$E(X,1,30),DA)"
^DD(350.71,.06,1,1,3)="DO NOT DELETE"
^DD(350.71,.06,1,1,"DT")="2911122"
^DD(350.71,.06,1,2,0)="350.71^AP^MUMPS"
^DD(350.71,.06,1,2,1)="I $P(^IBE(350.71,DA,0),""^"",5) S ^IBE(350.71,""AP"",$P(^(0),""^"",5),X,DA)="""""
^DD(350.71,.06,1,2,2)="I $P(^IBE(350.71,DA,0),""^"",5) K ^IBE(350.71,""AP"",$P(^(0),""^"",5),X,DA)"
^DD(350.71,.06,1,2,3)="DO NOT DELETE"
^DD(350.71,.06,1,2,"%D",0)="^^1^1^2920128^^^"
^DD(350.71,.06,1,2,"%D",1,0)="Quick cross-reference between procedures and sub-headers."
^DD(350.71,.06,1,2,"DT")="2911122"
^DD(350.71,.06,3)="Enter the CPT code for this Procedure."
^DD(350.71,.06,12)="Only TYPE ""P"" entries may have procedures, CPT codes must be active."
^DD(350.71,.06,12.1)="S DIC(""S"")=""I $D(DA),$P($G(^IBE(350.71,+DA,0)),U,3)=""""P"""",$$CPTACT^IBACSV(+Y)"""
^DD(350.71,.06,21,0)="^^1^1^2970509^^^^"
^DD(350.71,.06,21,1,0)="The CPT code for this PROCEDURE.  Should only be defined for TYPE=""P""."
^DD(350.71,.06,"DT")="3030501"
^DD(350.71,.08,0)="CHARGE^CJ8,2^^ ; ^X ^DD(350.71,.08,9.4) S X1=Y(350.71,.08,1) S IBCDX=X,IBDTX=X1 D FCC^IBEFUNC1 S X=IBCHGX K IBCDX,IBDTX,IBCHGX S X=X S D0=Y(350.71,.08,80) S X=$J(X,0,2)"
^DD(350.71,.08,9)="^"
^DD(350.71,.08,9.01)="409.71^.01;350.71^.06"
^DD(350.71,.08,9.1)="IB CPT BILLING CHARGE(TODAY,PROCEDURE)"
^DD(350.71,.08,9.2)="S Y(350.71,.08,80)=$S($D(D0):D0,1:""""),Y(350.71,.08,2)=$S($D(^IBE(350.71,D0,0)):^(0),1:""""),X=DT S X=X,Y(350.71,.08,1)=X"
^DD(350.71,.08,9.3)="X ^DD(350.71,.08,9.2) S D0=$P(Y(350.71,.08,2),U,6) S:'$D(^SD(409.71,+D0,0)) D0=-1 S Y(350.71,.08,101)=$S($D(^SD(409.71,D0,0)):^(0),1:"""")"
^DD(350.71,.08,9.4)="X ^DD(350.71,.08,9.3) S X=$S('$D(^ICPT(+$P(Y(350.71,.08,101),U,1),0)):"""",1:$P(^(0),U,1))"
^DD(350.71,.08,21,0)="^^1^1^2930616^^^^"
^DD(350.71,.08,21,1,0)="Displays the charge for a CPT code."
^DD(350.71,.08,"DT")="2920205"
^DD(350.71,"B","CHARGE",.08)=""
^DD(350.71,"B","CHECK-OFF SHEET",.04)=""
^DD(350.71,"B","NAME",.01)=""
^DD(350.71,"B","PRINT ORDER",.02)=""
^DD(350.71,"B","PROCEDURE",.06)=""
^DD(350.71,"B","SUB-HEADER",.05)=""
^DD(350.71,"B","TYPE",.03)=""
^DD(350.71,"GL",0,1,.01)=""
^DD(350.71,"GL",0,2,.02)=""
^DD(350.71,"GL",0,3,.03)=""
^DD(350.71,"GL",0,4,.04)=""
^DD(350.71,"GL",0,5,.05)=""
^DD(350.71,"GL",0,6,.06)=""
^DD(350.71,"IX",.01)=""
^DD(350.71,"IX",.02)=""
^DD(350.71,"IX",.04)=""
^DD(350.71,"IX",.05)=""
^DD(350.71,"IX",.06)=""
^DD(350.71,"RQ",.01)=""
^DD(350.71,"RQ",.02)=""
^DD(350.71,"RQ",.03)=""
^DD(350.71,"RQ",.06)=""
^DD(350.8,0)="FIELD^^10^7"
^DD(350.8,0,"DDA")="N"
^DD(350.8,0,"DT")="2930322"
^DD(350.8,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(350.8,0,"IX","AC",350.8,.03)=""
^DD(350.8,0,"IX","B",350.8,.01)=""
^DD(350.8,0,"IX","C",350.8,.03)=""
^DD(350.8,0,"NM","IB ERROR")=" "
^DD(350.8,0,"VR")="2.0"
^DD(350.8,0,"VRPK")="IB"
^DD(350.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(350.8,.01,1,0)="^.1"
^DD(350.8,.01,1,1,0)="350.8^B"
^DD(350.8,.01,1,1,1)="S ^IBE(350.8,""B"",$E(X,1,30),DA)="""""
^DD(350.8,.01,1,1,2)="K ^IBE(350.8,""B"",$E(X,1,30),DA)"
^DD(350.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(350.8,.01,21,0)="^^2^2^2910305^^"
^DD(350.8,.01,21,1,0)="This is a free text name of the entry.  It should be namespaced with"
^DD(350.8,.01,21,2,0)="the namespace of the package reporting the error."
^DD(350.8,.02,0)="ERROR MESSAGE^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(350.8,.02,3)="Answer must be 3-80 characters in length."
^DD(350.8,.02,21,0)="^^3^3^2940209^^^^"
^DD(350.8,.02,21,1,0)="This is the text of the message as it will be displayed to a user or"
^DD(350.8,.02,21,2,0)="posted in a bulletin.  It should be as meaningful as possible to the"
^DD(350.8,.02,21,3,0)="person seeing the message."
^DD(350.8,.03,0)="ERROR CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(350.8,.03,1,0)="^.1"
^DD(350.8,.03,1,1,0)="350.8^AC"
^DD(350.8,.03,1,1,1)="S ^IBE(350.8,""AC"",$E(X,1,30),DA)="""""
^DD(350.8,.03,1,1,2)="K ^IBE(350.8,""AC"",$E(X,1,30),DA)"
^DD(350.8,.03,1,2,0)="350.8^C"
^DD(350.8,.03,1,2,1)="S ^IBE(350.8,""C"",$E(X,1,30),DA)="""""
^DD(350.8,.03,1,2,2)="K ^IBE(350.8,""C"",$E(X,1,30),DA)"
^DD(350.8,.03,3)="Answer must be 1-9 characters in length."
^DD(350.8,.03,21,0)="^^9^9^2920219^^^^"
^DD(350.8,.03,21,1,0)="This is the error code that will be passed to or determined by"
^DD(350.8,.03,21,2,0)="Integrated Billing.  The format for the Error Code should be"
^DD(350.8,.03,21,3,0)="nnxxx, where nn is the reporting package namespace and xxx are numeric"
^DD(350.8,.03,21,4,0)="values."
^DD(350.8,.03,21,5,0)=" "
^DD(350.8,.03,21,6,0)="This is the error code that will be passed as the second piece of"
^DD(350.8,.03,21,7,0)="the variable Y to IB when +Y=-1.  More than one error code can be"
^DD(350.8,.03,21,8,0)="placed in the second ^ piece of Y delimited by semi-colons.  Applications"
^DD(350.8,.03,21,9,0)="may call ^IBAERR to display the error message(s)."
^DD(350.8,.03,"DT")="2920219"
^DD(350.8,.04,0)="PACKAGE REPORTING ERROR^S^1:INTEGRATED BILLING;2:ACCOUNTS RECEIVABLE;3:PHARMACY;^0;4^Q"
^DD(350.8,.04,21,0)="^^2^2^2920415^^^"
^DD(350.8,.04,21,1,0)="This is the package that requested this entry in this file and will"
^DD(350.8,.04,21,2,0)="report it to IB as an error if the conditions are detected."
^DD(350.8,.05,0)="ERROR ACTION^S^1:DISPLAY MESSAGE;2:SEND BULLETIN;3:EDIT FILE;^0;5^Q"
^DD(350.8,.05,21,0)="^^6^6^2910227^"
^DD(350.8,.05,21,1,0)="This is the type of action that should be taken when this error is"
^DD(350.8,.05,21,2,0)="reported to IB.  If action other than displaying a message is indicated"
^DD(350.8,.05,21,3,0)="then the MUMPS code in the ERROR ACTION field will be executed."
^DD(350.8,.05,21,4,0)=" "
^DD(350.8,.05,21,5,0)="Currently only display actions are implemented.  Please contact the "
^DD(350.8,.05,21,6,0)="developing ISC if other action types are desired."
^DD(350.8,.06,0)="CORRESPONDING ALERT^P354.5'^IBE(354.5,^0;6^Q"
^DD(350.8,.06,21,0)="^^1^1^2940209^"
^DD(350.8,.06,21,1,0)="This is the type of alert that should be sent when this error occurs."
^DD(350.8,.06,"DT")="2930322"
^DD(350.8,10,0)="EXECUTABLE LOGIC^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(350.8,10,3)="This is Standard MUMPS code."
^DD(350.8,10,21,0)="^^2^2^2910227^"
^DD(350.8,10,21,1,0)="This is the MUMPS code that will be executed if an error is reported"
^DD(350.8,10,21,2,0)="with an ERROR ACTION of other than to display a message."
^DD(350.8,"B","CORRESPONDING ALERT",.06)=""
^DD(350.8,"B","ERROR ACTION",.05)=""
^DD(350.8,"B","ERROR CODE",.03)=""
^DD(350.8,"B","ERROR MESSAGE",.02)=""
^DD(350.8,"B","EXECUTABLE LOGIC",10)=""
^DD(350.8,"B","NAME",.01)=""
^DD(350.8,"B","PACKAGE REPORTING ERROR",.04)=""
^DD(350.8,"GL",0,1,.01)=""
^DD(350.8,"GL",0,2,.02)=""
^DD(350.8,"GL",0,3,.03)=""
^DD(350.8,"GL",0,4,.04)=""
^DD(350.8,"GL",0,5,.05)=""
^DD(350.8,"GL",0,6,.06)=""
^DD(350.8,"GL",10,"E1,245",10)=""
^DD(350.8,"IX",.01)=""
^DD(350.8,"IX",.03)=""
^DD(350.8,"RQ",.01)=""
^DD(350.9,0)="FIELD^^99^182"
^DD(350.9,0,"DDA")="N"
^DD(350.9,0,"DT")="2960102"
^DD(350.9,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(350.9,0,"IX","B",350.9,.01)=""
^DD(350.9,0,"NM","IB SITE PARAMETERS")=""
^DD(350.9,0,"VR")="2.0"
^DD(350.9,.01,0)="NAME^RNJ1,0X^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(350.9,.01,1,0)="^.1"
^DD(350.9,.01,1,1,0)="350.9^B"
^DD(350.9,.01,1,1,1)="S ^IBE(350.9,""B"",$E(X,1,30),DA)="""""
^DD(350.9,.01,1,1,2)="K ^IBE(350.9,""B"",$E(X,1,30),DA)"
^DD(350.9,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(350.9,.01,21,0)="^^2^2^2910227^"
^DD(350.9,.01,21,1,0)="You may only have one site parameter entry.  Its internal number must be"
^DD(350.9,.01,21,2,0)="1 and its name must be the same."
^DD(350.9,.01,"DEL",1,0)="I 1 W !,""Deleting site parameters not allowed!"""
^DD(350.9,.02,0)="FACILITY NAME^R*P4'^DIC(4,^0;2^S DIC(""S"")=""I $S('$D(^(99)):0,+^(99)<1:0,1:1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(350.9,.02,12)="Institution must have a facility number defined"
^DD(350.9,.02,12.1)="S DIC(""S"")=""I $S('$D(^(99)):0,+^(99)<1:0,1:1)"""
^DD(350.9,.02,21,0)="^^3^3^2910227^"
^DD(350.9,.02,21,1,0)="This is the name of your facility from the institution file.  There must"
^DD(350.9,.02,21,2,0)="be a station number associated with this entry.  This value will be used"
^DD(350.9,.02,21,3,0)="by IFCAP in determining the bill number."
^DD(350.9,.02,"DT")="2910221"
^DD(350.9,.03,0)="FILE IN BACKGROUND^S^1:YES;0:NO;^0;3^Q"
^DD(350.9,.03,21,0)="^^7^7^2910227^"
^DD(350.9,.03,21,1,0)="Set this field to 'YES' to cause the IB Background Filer to run as a "
^DD(350.9,.03,21,2,0)="background job.  If it is set to 'NO' or left blank, filing will occur"
^DD(350.9,.03,21,3,0)="as applications pass data to Integrated Billing.  Sites may wish to"
^DD(350.9,.03,21,4,0)="experiment with running the filer in the foreground (answer 'NO') or"
^DD(350.9,.03,21,5,0)="filing in the background.  For Pharmacy Co-Pay, it is expected that"
^DD(350.9,.03,21,6,0)="some sites will experience significant delays in Outpatient Pharmacy"
^DD(350.9,.03,21,7,0)="label printing if filing is not done in the background."
^DD(350.9,.03,"DT")="2910225"
^DD(350.9,.04,0)="FILER STARTED^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,.04,21,0)="^^8^8^2910416^^^^"
^DD(350.9,.04,21,1,0)="This is the internal fileman date/time that the IBE filer was last started."
^DD(350.9,.04,21,2,0)="This field should be blank if the FILER STOPPED field contains data."
^DD(350.9,.04,21,3,0)=" "
^DD(350.9,.04,21,4,0)="If this field contains a date/time and the field FILE IN BACKGROUND is "
^DD(350.9,.04,21,5,0)="answered 'YES' then it is assumed that an IBE Filer is running.  Use"
^DD(350.9,.04,21,6,0)="the option 'Start the Integrated Billing Background Filer' to start a new filer if"
^DD(350.9,.04,21,7,0)="needed.  This field is updated by the IBE Filer and should not be edited"
^DD(350.9,.04,21,8,0)="with FileMan."
^DD(350.9,.04,"DT")="2910225"
^DD(350.9,.05,0)="FILER STOPPED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,.05,21,0)="^^5^5^2910227^^^"
^DD(350.9,.05,21,1,0)="This is the internal fileman date/time that the IBE filer was last stopped."
^DD(350.9,.05,21,2,0)="This field should be blank if the FILER STARTED field contains data."
^DD(350.9,.05,21,3,0)=" "
^DD(350.9,.05,21,4,0)="This field is updated by the IBE Filer.  It should not be edited with"
^DD(350.9,.05,21,5,0)="FileMan."
^DD(350.9,.05,"DT")="2910225"
^DD(350.9,.06,0)="FILER LAST RAN^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,.06,3)=""
^DD(350.9,.06,21,0)="^^5^5^2910227^^"
^DD(350.9,.06,21,1,0)="This is the date/time that the IBE Filer last passed data to the"
^DD(350.9,.06,21,2,0)="Accounts Receivable module of IFCAP."
^DD(350.9,.06,21,3,0)=" "
^DD(350.9,.06,21,4,0)="This field is updated by the IBE Filer and should not be edited with"
^DD(350.9,.06,21,5,0)="FileMan."
^DD(350.9,.06,"DT")="2910225"
^DD(350.9,.07,0)="FILER UCI,VOL^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(350.9,.07,3)="Answer must be 3-30 characters in length."
^DD(350.9,.07,21,0)="^^4^4^2920415^^^"
^DD(350.9,.07,21,1,0)="This is the UCI and Volume set that you want the IBE Filer to run on.  Vax"
^DD(350.9,.07,21,2,0)="sites should leave this blank.  It is recommended that the filer"
^DD(350.9,.07,21,3,0)="run on the volume set that contains either the IB globals or the PRC"
^DD(350.9,.07,21,4,0)="globals."
^DD(350.9,.07,"DT")="2910225"
^DD(350.9,.08,0)="FILER HANG TIME^NJ2,0^^0;8^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,.08,3)="Type a Number between 1 and 15, 0 Decimal Digits"
^DD(350.9,.08,21,0)="^^4^4^2920416^^^^"
^DD(350.9,.08,21,1,0)="This is the number of seconds that the filer will remain idle after"
^DD(350.9,.08,21,2,0)="finishing all transactions and before checking for more transactions"
^DD(350.9,.08,21,3,0)="to file.  The filer will shut itself down after 2000 hangs with no activity"
^DD(350.9,.08,21,4,0)="detected.  The default value for this field is 2 if left blank."
^DD(350.9,.08,"DT")="2910227"
^DD(350.9,.09,0)="COPAY BACKGROUND ERROR GROUP^P3.8'^XMB(3.8,^0;9^Q"
^DD(350.9,.09,21,0)="^^3^3^2910227^"
^DD(350.9,.09,21,1,0)="This is the mail group that will receive mail bulletins from the IBE filer"
^DD(350.9,.09,21,2,0)="when an unsuccessful attempt to file is detected.  Remember to add users"
^DD(350.9,.09,21,3,0)="to it."
^DD(350.9,.09,"DT")="2920220"
^DD(350.9,.1,0)="FILER QUEUED^S^1:YES;0:NO;^0;10^Q"
^DD(350.9,.1,21,0)="^^3^3^2910228^"
^DD(350.9,.1,21,1,0)="This field will be set to 'YES' when a file job is queued and set back to"
^DD(350.9,.1,21,2,0)="'NO' when the queued job is started.  It will be used to prevent queueing"
^DD(350.9,.1,21,3,0)="two or more jobs before the first job starts."
^DD(350.9,.1,"DT")="2910228"
^DD(350.9,.11,0)="MEANS TEST BILLING MAIL GROUP^P3.8'^XMB(3.8,^0;11^Q"
^DD(350.9,.11,21,0)="^.001^3^3^3010907^^^^"
^DD(350.9,.11,21,1,0)="Members of this mail group will receive bulletins when Means Test billing"
^DD(350.9,.11,21,2,0)="processing errors have been encountered, and when movements and Means Tests"
^DD(350.9,.11,21,3,0)="have been edited or deleted for veterans that require Means Test charges."
^DD(350.9,.11,"DT")="3010625"
^DD(350.9,.12,0)="PER DIEM START DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(2901105>X) X"
^DD(350.9,.12,3)="This is the date this hospital began the $5 and $10 Per Diem Billing.  Enter a date no earlier than 11/5/90."
^DD(350.9,.12,21,0)="^^10^10^2920205^^^^"
^DD(350.9,.12,21,1,0)="This is the date that this facility counseled category C patients that"
^DD(350.9,.12,21,2,0)="they would have to pay the new Per Diem charges and began the Per Diem"
^DD(350.9,.12,21,3,0)="billing."
^DD(350.9,.12,21,4,0)=" "
^DD(350.9,.12,21,5,0)="This field represents the earliest date for which the Hospital ($10) or"
^DD(350.9,.12,21,6,0)="Nursing Home ($5) Per Diem charge may be billed to a Category C patient."
^DD(350.9,.12,21,7,0)="This billing is mandated by Public Law 101-508, which was implemented"
^DD(350.9,.12,21,8,0)="on November 5, 1990."
^DD(350.9,.12,21,9,0)=" "
^DD(350.9,.12,21,10,0)="Please note that the Per Diem billing will not occur if this field is null."
^DD(350.9,.12,"DT")="2920205"
^DD(350.9,.13,0)="COPAY EXEMPTION MAIL GROUP^P3.8^XMB(3.8,^0;13^Q"
^DD(350.9,.13,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,.13,21,0)="^^2^2^2940209^^^"
^DD(350.9,.13,21,1,0)="This mail group will be sent the copay exemption bulletins and error"
^DD(350.9,.13,21,2,0)="messages."
^DD(350.9,.13,21,3,0)=" "
^DD(350.9,.13,21,4,0)="The value of this field is the number of fiscal years, prior to the"
^DD(350.9,.13,21,5,0)="current fiscal year, for which Category C Billing Clock data should be"
^DD(350.9,.13,21,6,0)="retained in the system when the option to purge billing clock records"
^DD(350.9,.13,21,7,0)="is run.  If that option is tasked to run automatically, then this"
^DD(350.9,.13,21,8,0)="parameter is directly accessed and used to determine which data shall"
^DD(350.9,.13,21,9,0)="be purged from the database (if the value of this field is null or less"
^DD(350.9,.13,21,10,0)="than one, one previous year's worth of data is retained).  If the option"
^DD(350.9,.13,21,11,0)="is manually invoked, the value of this field is defaulted when the user"
^DD(350.9,.13,21,12,0)="is prompted for the number of year's worth of data to retain."
^DD(350.9,.13,"DT")="2930115"
^DD(350.9,.14,0)="USE ALERTS^*S^1:YES;0:NO;^0;14^Q"
^DD(350.9,.14,12)="Version 7 of Kernel must be installed inorder to turn this feature on."
^DD(350.9,.14,12.1)="S DIC(""S"")=""I 'Y!(+$G(^DD(200,0,""""VR""""))'<7)"""
^DD(350.9,.14,21,0)="^^7^7^2930204^^"
^DD(350.9,.14,21,1,0)="If a facility has installed Version 7 or higher of Kernel, then the"
^DD(350.9,.14,21,2,0)="site may decide whether to use Alerts or Bulletins for internal messages"
^DD(350.9,.14,21,3,0)="in Integrated Billing.  Initially this functionality will only be"
^DD(350.9,.14,21,4,0)="available for the Medication Copayment Exemption functionality.  If"
^DD(350.9,.14,21,5,0)="this is a desirable feature it may be expanded in the future."
^DD(350.9,.14,21,6,0)=" "
^DD(350.9,.14,21,7,0)="If this field is unanswered, the default is No and IB will use bulletins."
^DD(350.9,.14,23,0)="^^3^3^2930204^^"
^DD(350.9,.14,23,1,0)="The node ^DD(200,0,""VR"") is checked for version number.  If the "
^DD(350.9,.14,23,2,0)="value of this node is less than 7 then the user will not be able"
^DD(350.9,.14,23,3,0)="to turn this feature on."
^DD(350.9,.14,"DT")="2930204"
^DD(350.9,.15,0)="SUPPRESS MT INS BULLETIN^S^1:YES;0:NO;^0;15^Q"
^DD(350.9,.15,21,0)="^^4^4^2930805^"
^DD(350.9,.15,21,1,0)="This parameter is used to control the bulletin that is posted when"
^DD(350.9,.15,21,2,0)="any Means Test charge which might be covered by the patient's health"
^DD(350.9,.15,21,3,0)="insurance is billed.  If the site wishes to suppress this bulletin,"
^DD(350.9,.15,21,4,0)="then this parameter should be answered 'Yes'."
^DD(350.9,.15,"DT")="2930805"
^DD(350.9,.16,0)="LAST LTC COMPLETION DATE^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(350.9,.16,3)="Enter the date the last time LTC calculation was completed."
^DD(350.9,.16,21,0)="^^1^1^3020423^"
^DD(350.9,.16,21,1,0)="This is the last time the LTC background job was completed."
^DD(350.9,.16,"DT")="3020423"
^DD(350.9,1.01,0)="NAME OF CLAIM FORM SIGNER^F^^1;1^K:$L(X)>20!($L(X)<2) X"
^DD(350.9,1.01,3)="Enter the name of the person responsible for signing third party bills as it should appear on the bills.  Answer must be 2-20 characters in length"
^DD(350.9,1.01,21,0)="^^2^2^2940209^^^^"
^DD(350.9,1.01,21,1,0)="This is the name of the signer of third party bills and will be printed"
^DD(350.9,1.01,21,2,0)="on the claim form in the signature block."
^DD(350.9,1.01,"DT")="2940119"
^DD(350.9,1.02,0)="TITLE OF CLAIM FORM SIGNER^F^^1;2^K:$L(X)>20!($L(X)<2) X"
^DD(350.9,1.02,3)="Enter the title of the person responsible for signing this bill as it should appear on the bill.  Answer must be 2-20 characters in length."
^DD(350.9,1.02,21,0)="^^2^2^2940209^^^"
^DD(350.9,1.02,21,1,0)="This is the title of the person signing the claim form as it will appear on"
^DD(350.9,1.02,21,2,0)="the bill."
^DD(350.9,1.02,"DT")="2940119"
^DD(350.9,1.03,0)="*CAN REVIEWER AUTHORIZE?^S^1:YES;0:NO;^1;3^Q"
^DD(350.9,1.03,3)="Enter 1 or 'YES' if the person who reviews a billing record is also able to authorize that record."
^DD(350.9,1.03,21,0)="^^9^9^2940209^^^^"
^DD(350.9,1.03,21,1,0)="Creating a third party bill is a 4 part process.  The bill is Entered,"
^DD(350.9,1.03,21,2,0)="Reviewed, Authorized, and Printed.  The bill is considered complete and"
^DD(350.9,1.03,21,3,0)="passed to Accounts Receivable immediately after it has been Authorized."
^DD(350.9,1.03,21,4,0)="This parameter is used to determine if the same person who Reviewed the"
^DD(350.9,1.03,21,5,0)="bill can Authorize the bill.  If the paramater CAN INITIATOR REVIEW? "
^DD(350.9,1.03,21,6,0)="and this parameter, CAN REVIEWER AUTHORIZE?, are both answered ""YES"""
^DD(350.9,1.03,21,7,0)="then the same individual can perform all 4 parts of the billing process."
^DD(350.9,1.03,21,8,0)="If either parameter is answered 'NO' then more than one person must"
^DD(350.9,1.03,21,9,0)="be involved in each bill."
^DD(350.9,1.03,23,0)="^^1^1^2940209^^"
^DD(350.9,1.03,23,1,0)="This field should be deleted in the next release of IB after v2.0."
^DD(350.9,1.03,"DT")="2920429"
^DD(350.9,1.04,0)="*REMARKS ON EACH EDI CLAIM^F^^1;4^K:$L(X)>39!($L(X)<2) X"
^DD(350.9,1.04,3)="Enter any facility specific remarks to appear in the CCOM segment of the electronic transmission. Answer must be 2-39 characters in length."
^DD(350.9,1.04,21,0)="^^5^5^3071203^"
^DD(350.9,1.04,21,1,0)="This remark will appear in the CCOM segment of the electronic "
^DD(350.9,1.04,21,2,0)="transmission."
^DD(350.9,1.04,21,3,0)=" "
^DD(350.9,1.04,21,4,0)="November 2007:  This field is being removed from the IB site parameter "
^DD(350.9,1.04,21,5,0)="screen with IB patch 377.   The CCOM segment is no longer being sent."
^DD(350.9,1.04,"DT")="3071203"
^DD(350.9,1.05,0)="FEDERAL TAX NUMBER^RF^^1;5^K:$L(X)>10!($L(X)<10)!'(X?2N1""-""7N) X"
^DD(350.9,1.05,3)="Enter the federal tax number for your facility in NN-NNNNNNN format.  Answer must be 10 characters in length."
^DD(350.9,1.05,21,0)="^^2^2^3061215^^^^"
^DD(350.9,1.05,21,1,0)="This is your facility federal tax number.  If unknown, this may be obtained"
^DD(350.9,1.05,21,2,0)="from your Fiscal Service."
^DD(350.9,1.05,23,0)="^^2^2^3061215^"
^DD(350.9,1.05,23,1,0)="This is not editable from the billing screens.  Printed in Form Locator 5"
^DD(350.9,1.05,23,2,0)="of the UB-04."
^DD(350.9,1.05,"DT")="3061215"
^DD(350.9,1.06,0)="BLUE CROSS/SHIELD PROVIDER #^RF^^1;6^K:$L(X)>13!($L(X)<3) X"
^DD(350.9,1.06,3)="Enter the 3-13 character BC/BS Provider Number which will be the default for all billing episodes at this facility.  Answer must be 3-13 characters in length."
^DD(350.9,1.06,21,0)="^^2^2^2920204^"
^DD(350.9,1.06,21,1,0)="This is the BC/BS Provider Number which Blue Cross has assigned your "
^DD(350.9,1.06,21,2,0)="facility."
^DD(350.9,1.06,"DT")="2920204"
^DD(350.9,1.07,0)="BILL CANCELLATION MAILGROUP^P3.8'^XMB(3.8,^1;7^Q"
^DD(350.9,1.07,3)="Enter the mail group you want notified whenever a third party bill is cancelled.  If none is entered no mailman notification will be made."
^DD(350.9,1.07,21,0)="^^3^3^2940209^^^^"
^DD(350.9,1.07,21,1,0)="This is the mail group that will recieve automatic notification every"
^DD(350.9,1.07,21,2,0)="time a third party bill is cancelled.  This must be answered for the"
^DD(350.9,1.07,21,3,0)="automatic notification to occur."
^DD(350.9,1.07,"DT")="2940119"
^DD(350.9,1.08,0)="BILLING SUPERVISOR NAME^RP200'^VA(200,^1;8^Q"
^DD(350.9,1.08,3)="Enter the Person who is the billing supervisor."
^DD(350.9,1.08,21,0)="^^1^1^2920204^"
^DD(350.9,1.08,21,1,0)="This is the pointer to the PERSON file for the Billing Supervisor."
^DD(350.9,1.08,"DT")="2920204"
^DD(350.9,1.09,0)="BILL DISAPPROVED MAILGROUP^P3.8'^XMB(3.8,^1;9^Q"
^DD(350.9,1.09,3)="When a third party bill is disapproved the supervisor and initiator of the bill will be notified.  If you want additional people notified create a mailgroup and specify it here."
^DD(350.9,1.09,21,0)="^^5^5^2940209^^^^"
^DD(350.9,1.09,21,1,0)="When a third party bill is disapproved the supervisor and initiator of the"
^DD(350.9,1.09,21,2,0)="bill will be notified.  If you want additional people to be notified that a"
^DD(350.9,1.09,21,3,0)="bill has been disapproved then you must create a mail group and add the"
^DD(350.9,1.09,21,4,0)="member and then specify the group here.  The members of this mail group"
^DD(350.9,1.09,21,5,0)="will then recieve the disapproval bulletin."
^DD(350.9,1.09,"DT")="2940119"
^DD(350.9,1.11,0)="*CAN INITIATOR REVIEW^S^1:YES;0:NO;^1;11^Q"
^DD(350.9,1.11,3)="Enter 1 or 'YES' if the person who created/edited a billing record is also able to review that record."
^DD(350.9,1.11,21,0)="^^9^9^2940209^^^^"
^DD(350.9,1.11,21,1,0)="Creating a third party bill is a 4 part process.  The bill is Entered,"
^DD(350.9,1.11,21,2,0)="Reviewed, Authorized, and Printed.  The bill is considered complete and"
^DD(350.9,1.11,21,3,0)="passed to Accounts Receivable immediately after it has been Authorized."
^DD(350.9,1.11,21,4,0)="This parameter is used to determine if the same person who Reviewed the"
^DD(350.9,1.11,21,5,0)="bill can Authorize the bill.  If the paramater CAN REVIEWER AUTHORIZE?"
^DD(350.9,1.11,21,6,0)="and this parameter, CAN INITIATOR REVIEW?, are both answered ""YES"" then"
^DD(350.9,1.11,21,7,0)="the same individual can perform all 4 parts of the billing process.  If"
^DD(350.9,1.11,21,8,0)="either parameter is answered ""NO"" then more than one person must be"
^DD(350.9,1.11,21,9,0)="involved in each bill."
^DD(350.9,1.11,23,0)="^^1^1^2940209^"
^DD(350.9,1.11,23,1,0)="This field should be deleted in the next release of IB after v2.0."
^DD(350.9,1.11,"DT")="2920429"
^DD(350.9,1.14,0)="MAS SERVICE POINTER^RP49'^DIC(49,^1;14^Q"
^DD(350.9,1.14,3)="Enter the Service/Section which is your facilities MAS Service."
^DD(350.9,1.14,21,0)="^^3^3^2940209^^"
^DD(350.9,1.14,21,1,0)="Accounts Receivable requires that every bill be associated with a"
^DD(350.9,1.14,21,2,0)="SERVICE/SECTION.  This is the Service that will be identified with bills"
^DD(350.9,1.14,21,3,0)="sent to Accounts Receivable from the Integrated Billing Module."
^DD(350.9,1.15,0)="CAN CLERK ENTER NON-PTF CODES?^S^1:YES;0:NO;^1;15^Q"
^DD(350.9,1.15,3)="Enter '1' or 'YES' if diagnosis and procedure codes not found in the PTF record may be entered by the billing clerk into a billing record.  This affects inpatient bills only."
^DD(350.9,1.15,21,0)="^^4^4^2920205^"
^DD(350.9,1.15,21,1,0)="Answering 'YES' to this parameter will also allow billing clerks to enter"
^DD(350.9,1.15,21,2,0)="CPT and HCPS codes into the billing record as well as ICD diagnosis and"
^DD(350.9,1.15,21,3,0)="Procedure codes that are not in the corresponding PTF record.  This"
^DD(350.9,1.15,21,4,0)="parameter only affects inpatient bills."
^DD(350.9,1.16,0)="ASK HINQ IN MCCR^S^1:YES;0:NO;^1;16^Q"
^DD(350.9,1.16,3)="Enter '1' or 'YES' if you want the person entering a new bill to be able to request a HINQ inquiry for bills on patients with unverified eligibility."
^DD(350.9,1.16,21,0)="^^3^3^2920205^"
^DD(350.9,1.16,21,1,0)="When creating a new bill on a Veteran with unverified eligibility the"
^DD(350.9,1.16,21,2,0)="user may be asked if they would like to put a HINQ request in the HINQ"
^DD(350.9,1.16,21,3,0)="SUSPENSE file if this parameter is answered 'YES'."
^DD(350.9,1.17,0)="USE OP CPT SCREEN?^S^1:YES;0:NO;^1;17^Q"
^DD(350.9,1.17,3)="Enter '1' or 'YES' if you want the person entering an outpatient bill to easily transfer CPT procedures from scheduling into the bill."
^DD(350.9,1.17,21,0)="^^8^8^2920602^^"
^DD(350.9,1.17,21,1,0)="CPT codes for outpatient visits are currently stored as Ambulatory"
^DD(350.9,1.17,21,2,0)="Procedures in the Scheduling Visits file.  The user editing a bill"
^DD(350.9,1.17,21,3,0)="will be displayed all CPT codes stored in the Scheduling Visits file"
^DD(350.9,1.17,21,4,0)="for the date range of the bill if the parameter is set to 'YES'."
^DD(350.9,1.17,21,5,0)="This display screen will prompt the user if they would like to"
^DD(350.9,1.17,21,6,0)="easily import any or all of the CPT codes into the bill.  This will"
^DD(350.9,1.17,21,7,0)="include both Ambulatory Procedures and the Billable Ambulatory"
^DD(350.9,1.17,21,8,0)="Surgical Codes."
^DD(350.9,1.18,0)="*DEFAULT AMB SURG REV CODE^*P399.2'^DGCR(399.2,^1;18^S DIC(""S"")=""I $P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(350.9,1.18,3)="Enter the Revenue Code that you will usually want for Ambulatory Surgery."
^DD(350.9,1.18,21,0)="^^8^8^2960925^^^^"
^DD(350.9,1.18,21,1,0)="When billing Billable Ambulatory Surgical Codes (BASC), this will be"
^DD(350.9,1.18,21,2,0)="the default revenue code stored in the bill.  If this is not appropriate"
^DD(350.9,1.18,21,3,0)="for any particular insurance company then the field AMBULATORY SURG. REV."
^DD(350.9,1.18,21,4,0)="CODE in the Insurance Company file may be entered and it will be used"
^DD(350.9,1.18,21,5,0)="for that particular insurance company entry."
^DD(350.9,1.18,21,6,0)=" "
^DD(350.9,1.18,21,7,0)="Field is no longer used, it has been replaced by functionality provided"
^DD(350.9,1.18,21,8,0)="by the Charge Master in IB*2*52."
^DD(350.9,1.18,"DT")="2960925"
^DD(350.9,1.19,0)="TRANSFER PROCEDURES TO SCHED?^S^1:YES;0:NO;^1;19^Q"
^DD(350.9,1.19,3)="Enter '1' or 'YES' if you would like the person entering a bill to be able to automatically store the CPT procedures in a bill in the Scheduling Visits file."
^DD(350.9,1.19,21,0)="^^13^13^2920224^^^^"
^DD(350.9,1.19,21,1,0)="CPT procedures may be stored as Ambulatory Procedures in the Scheduling"
^DD(350.9,1.19,21,2,0)="Visits file (using the Add/Edit Stop Code option) and they may be stored"
^DD(350.9,1.19,21,3,0)="in the billing record as procedures to print on a bill.  There is now a two"
^DD(350.9,1.19,21,4,0)="way sharing of information between these two files.  If this parameter"
^DD(350.9,1.19,21,5,0)="is answered 'YES' then as CPT procedures are entered in a bill that"
^DD(350.9,1.19,21,6,0)="are also Ambulatory Procedures, then the user will be prompted as to whether"
^DD(350.9,1.19,21,7,0)="they should be transfered to the Scheduling Visits file also.  The"
^DD(350.9,1.19,21,8,0)="reverse of this is the parameter USE OP CPT SCREEN? which allows"
^DD(350.9,1.19,21,9,0)="importing of Ambulatory Procedures into a bill."
^DD(350.9,1.19,21,10,0)=" "
^DD(350.9,1.19,21,11,0)="Only CPT procedures that are either Billable Ambulatory Surgical Codes"
^DD(350.9,1.19,21,12,0)="or either Nationally or Locally active Ambulatory Procedures may be"
^DD(350.9,1.19,21,13,0)="transfered."
^DD(350.9,1.19,"DT")="2920205"
^DD(350.9,1.2,0)="HOLD MT BILLS W/INS^S^1:YES;0:NO;^1;20^Q"
^DD(350.9,1.2,3)="Enter 'Yes' if automated Means Test Charges should be held until claim disposition from an insurance Company.  If 'Yes' and a patient has insurance then the bills will automatically be placed on hold."
^DD(350.9,1.2,21,0)="^^5^5^2920302^"
^DD(350.9,1.2,21,1,0)="If this parameter is answered 'YES' then the automated Category C"
^DD(350.9,1.2,21,2,0)="bills will automatically be placed on hold if the Patient has "
^DD(350.9,1.2,21,3,0)="active Insurance.  The bills will need to"
^DD(350.9,1.2,21,4,0)="be released to Accounts Receivable after claim disposition from"
^DD(350.9,1.2,21,5,0)="the Insurance Company."
^DD(350.9,1.2,"DT")="2920302"
^DD(350.9,1.21,0)="MEDICARE PROVIDER NUMBER^F^^1;21^K:$L(X)>8!($L(X)<1) X"
^DD(350.9,1.21,3)="Enter the number Medicare provided your facility.  Answer must be 1-8 characters in length."
^DD(350.9,1.21,21,0)="^^2^2^2940209^^^^"
^DD(350.9,1.21,21,1,0)="This is the 1-8 character number provided by Medicare to the facility."
^DD(350.9,1.21,21,2,0)=" "
^DD(350.9,1.21,22)=""
^DD(350.9,1.21,"DT")="2920306"
^DD(350.9,1.22,0)="MULTIPLE FORM TYPES^S^1:YES;0:NO;^1;22^Q"
^DD(350.9,1.22,3)="Enter 'Y'es if your facility uses the CMS-1500 as well as the UB claim form."
^DD(350.9,1.22,21,0)="^^5^5^3060927^"
^DD(350.9,1.22,21,1,0)="Set this field to 'YES' if the facility uses more than one health insurance"
^DD(350.9,1.22,21,2,0)="form type.  Therefore, if your site uses the UB form and the CMS-1500 then"
^DD(350.9,1.22,21,3,0)="this should be answered 'YES'.  If your site is only using the UB form"
^DD(350.9,1.22,21,4,0)="then answer 'NO'.  If this is set to 'NO' or left blank then only the UB"
^DD(350.9,1.22,21,5,0)="type claim forms will be allowed."
^DD(350.9,1.22,"DT")="3060927"
^DD(350.9,1.23,0)="CAN INITIATOR AUTHORIZE?^S^1:YES;0:NO;^1;23^Q"
^DD(350.9,1.23,21,0)="^^6^6^2920428^"
^DD(350.9,1.23,21,1,0)="Beginning with IB Version 1.5, the Review step in creating a bill has"
^DD(350.9,1.23,21,2,0)="been eliminated.  If this parameter is answered YES and the initiator"
^DD(350.9,1.23,21,3,0)="holds the IB AUTHORIZE key then the initiator"
^DD(350.9,1.23,21,4,0)="of the bill will be allowed to Authorize the Bill.  If this is answered"
^DD(350.9,1.23,21,5,0)="no then another user who holds the IB AUTHORIZE key will have to authorize"
^DD(350.9,1.23,21,6,0)="the bill."
^DD(350.9,1.23,"DT")="2920428"
^DD(350.9,1.24,0)="BASC START DATE^D^^1;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,1.24,21,0)="^^6^6^2920616^^^^"
^DD(350.9,1.24,21,1,0)="This is the date that facilities can begin billing Ambulatory Surgical"
^DD(350.9,1.24,21,2,0)="Code Rates.  The earliest date is the date that IB Version 1.5 was installed"
^DD(350.9,1.24,21,3,0)="at the site or the date the regulation allowing BASC billing was approved."
^DD(350.9,1.24,21,4,0)="This date will be stored automatically in the file."
^DD(350.9,1.24,21,5,0)=" "
^DD(350.9,1.24,21,6,0)="If this field is null then BASC rates will not automatically calculate."
^DD(350.9,1.24,"DT")="2920506"
^DD(350.9,1.25,0)="DEFAULT DIVISION^P40.8'^DG(40.8,^1;25^Q"
^DD(350.9,1.25,3)="Enter the division that should be used as a bill's default division."
^DD(350.9,1.25,21,0)="^^2^2^2990205^^^"
^DD(350.9,1.25,21,1,0)="This field will be used as the default division for all bills and will"
^DD(350.9,1.25,21,2,0)="be automatically added to each bill as it is created."
^DD(350.9,1.25,"DT")="2990205"
^DD(350.9,1.27,0)="CMS-1500 ADDRESS COLUMN^NJ2,0^^1;27^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1.N) X"
^DD(350.9,1.27,3)="Type a number between 1 and 80, 0 Decimal Digits.  Used only for the 1500 claim form."
^DD(350.9,1.27,21,0)="^^2^2^3060927^"
^DD(350.9,1.27,21,1,0)="This is the column that the mailing address will begin printing"
^DD(350.9,1.27,21,2,0)="on row 1 of the CMS-1500 claim form."
^DD(350.9,1.27,23,0)="^^3^3^3060927^"
^DD(350.9,1.27,23,1,0)="With this parameter the site can specify where the address prints,"
^DD(350.9,1.27,23,2,0)="depending on the type of envelope they use.  The first 5 rows are the only"
^DD(350.9,1.27,23,3,0)="blank space on the form available for the mailing address."
^DD(350.9,1.27,"DT")="3060927"
^DD(350.9,1.28,0)="*DEFAULT RX REFILL REV CODE^*P399.2'^DGCR(399.2,^1;28^S DIC(""S"")=""I $P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(350.9,1.28,3)="Enter the revenue code that should be used for Rx Refills."
^DD(350.9,1.28,12)="Only Activated Revenue Codes can be selected!"
^DD(350.9,1.28,12.1)="S DIC(""S"")=""I $P(^(0),U,3)"""
^DD(350.9,1.28,21,0)="^^7^7^2960925^^^"
^DD(350.9,1.28,21,1,0)="If entered, this Revenue Code will be used for all prescription refill's"
^DD(350.9,1.28,21,2,0)="on a bill when the revenue codes and charges are automatically calculated."
^DD(350.9,1.28,21,3,0)="This default will be overridden by the PRESCRIPTION REFILL REV. CODE"
^DD(350.9,1.28,21,4,0)="for an insurance company, if one exists."
^DD(350.9,1.28,21,5,0)=" "
^DD(350.9,1.28,21,6,0)="Field is no longer used, it has been replaced by functionality provided"
^DD(350.9,1.28,21,7,0)="by the Charge Master in IB*2*52."
^DD(350.9,1.28,"DT")="2960925"
^DD(350.9,1.29,0)="DEFAULT RX REFILL DX^*P80'^ICD9(^1;29^S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(350.9,1.29,3)="Enter a Diagnosis that should be added to every RX Refill bill."
^DD(350.9,1.29,12)="Only active diagnosis codes may be selected."
^DD(350.9,1.29,12.1)="S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y)"""
^DD(350.9,1.29,21,0)="^^2^2^2940121^^^"
^DD(350.9,1.29,21,1,0)="If entered, this diagnosis will be automatically added to every bill that"
^DD(350.9,1.29,21,2,0)="has prescription refills."
^DD(350.9,1.29,23,0)="^^1^1^2940121^^"
^DD(350.9,1.29,23,1,0)="Should probably be a genaric code like V68.1 ISSUE REPEAT PRESCRIPT."
^DD(350.9,1.29,"DT")="3030501"
^DD(350.9,1.3,0)="DEFAULT RX REFILL CPT^*P81'^ICPT(^1;30^S DIC(""S"")=""I $$CPTACT^IBACSV(+Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(350.9,1.3,3)="Enter a CPT procedure code that should be printed on every bill that has RX Refills."
^DD(350.9,1.3,12)="Only active CPT codes may be entered."
^DD(350.9,1.3,12.1)="S DIC(""S"")=""I $$CPTACT^IBACSV(+Y)"""
^DD(350.9,1.3,21,0)="^^2^2^2940121^^^"
^DD(350.9,1.3,21,1,0)="If entered, this procedure will automatically be added to every bill"
^DD(350.9,1.3,21,2,0)="that has a prescription refill."
^DD(350.9,1.3,23,0)="^^1^1^2940121^^"
^DD(350.9,1.3,23,1,0)="Should probably be a genaric code like 99070 SPECIAL SUPPLIES."
^DD(350.9,1.3,"DT")="3030501"
^DD(350.9,1.31,0)="UB-04 ADDRESS COLUMN^NJ2,0^^1;31^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1.N) X"
^DD(350.9,1.31,3)="Type a number between 1 and 30, 0 Decimal Digits"
^DD(350.9,1.31,21,0)="^^7^7^3061127^"
^DD(350.9,1.31,21,1,0)="This is the column on which the Mailing Address should begin printing on"
^DD(350.9,1.31,21,2,0)="the UB-04.  The purpose of this field is to help in placing the mailing"
^DD(350.9,1.31,21,3,0)="address in the area required so that it is visible through the envelope"
^DD(350.9,1.31,21,4,0)="window.  Please note that the UB-04 Mailing Address block (FL 38) has a"
^DD(350.9,1.31,21,5,0)="maximum width of 42 characters.  The number entered here will cause the"
^DD(350.9,1.31,21,6,0)="address to be moved to the right and therefore the allowable width of"
^DD(350.9,1.31,21,7,0)="the mailing address will be reduced."
^DD(350.9,1.31,"DT")="3061127"
^DD(350.9,1.32,0)="CMS-1500 PRINT LEGACY ID^S^Y:YES;N:NO;C:CONDITIONAL;^1;32^Q"
^DD(350.9,1.32,3)=""
^DD(350.9,1.32,21,0)="^^8^8^3061019^"
^DD(350.9,1.32,21,1,0)="This parameter determines whether legacy (example: IDs furnished by an"
^DD(350.9,1.32,21,2,0)="Insurance Company) Provider IDs will appear on locally printed CMS-1500"
^DD(350.9,1.32,21,3,0)="claims."
^DD(350.9,1.32,21,4,0)=" "
^DD(350.9,1.32,21,5,0)="YES         - Legacy IDs will always be printed.  "
^DD(350.9,1.32,21,6,0)="NO          - Legacy IDs will never be printed."
^DD(350.9,1.32,21,7,0)="CONDITIONAL - Legacy IDs will be printed only when"
^DD(350.9,1.32,21,8,0)="              no NPIs are available."
^DD(350.9,1.32,"DT")="3061019"
^DD(350.9,1.33,0)="UB-04 PRINT LEGACY ID^S^Y:YES;N:NO;C:CONDITIONAL;^1;33^Q"
^DD(350.9,1.33,21,0)="^^8^8^3061127^"
^DD(350.9,1.33,21,1,0)="This parameter determines whether legacy (example: IDs furnished by"
^DD(350.9,1.33,21,2,0)="an Insurance Company) Provider IDs will appear on locally printed UB"
^DD(350.9,1.33,21,3,0)="claims."
^DD(350.9,1.33,21,4,0)="         "
^DD(350.9,1.33,21,5,0)="YES         - Legacy IDs will always be printed.  "
^DD(350.9,1.33,21,6,0)="NO          - Legacy IDs will never be printed."
^DD(350.9,1.33,21,7,0)="CONDITIONAL - Legacy IDs will be printed only when"
^DD(350.9,1.33,21,8,0)="              no NPIs are available."
^DD(350.9,1.33,"DT")="3061127"
^DD(350.9,2.01,0)="AGENT CASHIER MAIL SYMBOL^F^^2;1^K:$L(X)>25!($L(X)<1) X"
^DD(350.9,2.01,3)="Enter the mail routing symbol for the agent cashier.  Answer must be 1-25 characters in length."
^DD(350.9,2.01,21,0)="^^2^2^2920204^"
^DD(350.9,2.01,21,1,0)="This is the facility mail routing symbol for the Agent Cashier.  This"
^DD(350.9,2.01,21,2,0)="may begin with 04 (for Fiscal Service) at most facilities."
^DD(350.9,2.01,"DT")="2920204"
^DD(350.9,2.02,0)="AGENT CASHIER STREET ADDRESS^F^^2;2^K:$L(X)>25!($L(X)<3) X"
^DD(350.9,2.02,3)="Enter the street address for the Agent Cashier.  Aswer must be 3-25 characters in length."
^DD(350.9,2.02,21,0)="^^2^2^2940209^^^"
^DD(350.9,2.02,21,1,0)="This is the street address that checks should be mailed to.  This will"
^DD(350.9,2.02,21,2,0)="appear on the on all claim forms as the billing address."
^DD(350.9,2.02,"DT")="2920302"
^DD(350.9,2.03,0)="AGENT CASHIER CITY^F^^2;3^K:$L(X)>15!($L(X)<1) X"
^DD(350.9,2.03,3)="Enter the City for the Agent Cashier.  Answer must be 1-15 characters in length."
^DD(350.9,2.03,21,0)="^^2^2^2940209^^^"
^DD(350.9,2.03,21,1,0)="This is the City for the Agent Cashier.  This will be part of the address"
^DD(350.9,2.03,21,2,0)="that Checks are mailed to and will appear on the claim forms."
^DD(350.9,2.03,"DT")="2920204"
^DD(350.9,2.04,0)="AGENT CASHIER STATE^P5'^DIC(5,^2;4^Q"
^DD(350.9,2.04,3)="Enter the state for the Agent Cashier."
^DD(350.9,2.04,21,0)="^^2^2^2940209^^^"
^DD(350.9,2.04,21,1,0)="This is the state for the Agent Cashier.  This will be the State part"
^DD(350.9,2.04,21,2,0)="of the address that checks are mailed to as it appears on the claim forms."
^DD(350.9,2.04,"DT")="2920204"
^DD(350.9,2.05,0)="AGENT CASHIER ZIP CODE^FX^^2;5^S:$E(X,6)=""-"" X=$TR(X,""-"") K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(350.9,2.05,3)="Answer must be 5-9 characters in length."
^DD(350.9,2.05,21,0)="^^2^2^2990920^^^^"
^DD(350.9,2.05,21,1,0)="Enter the zip code for the Agent Cashier.  This will be the zip code that"
^DD(350.9,2.05,21,2,0)="checks should be mailed to and appears on the claims forms."
^DD(350.9,2.05,"DT")="2990920"
^DD(350.9,2.06,0)="AGENT CASHIER PHONE NUMBER^F^^2;6^K:$L(X)>25!($L(X)<4) X"
^DD(350.9,2.06,3)="Answer must be 4-25 characters in length."
^DD(350.9,2.06,21,0)="^^1^1^2920204^"
^DD(350.9,2.06,21,1,0)="This is the phone number for the agent cashier."
^DD(350.9,2.06,"DT")="2920204"
^DD(350.9,2.07,0)="CANCELLATION REMARK FOR FISCAL^F^^2;7^K:$L(X)>75!($L(X)<3)!'(X?1A.E) X"
^DD(350.9,2.07,3)="Enter the remark (reason for cancellation) which will be sent to Fiscal Service every time a bill is cancelled in MAS.  Answer must be 3-75 characters in length."
^DD(350.9,2.07,21,0)="^^6^6^2940209^^"
^DD(350.9,2.07,21,1,0)="This is the remark which will be sent to Fiscal every time a bill is"
^DD(350.9,2.07,21,2,0)="cancelled in MAS.  This remark will explain to Fiscal why the IFCAP"
^DD(350.9,2.07,21,3,0)="billing record is being amended or cancelled.  The generic remark,"
^DD(350.9,2.07,21,4,0)="""BILL CANCELLED IN MAS"" will be transmitted to Fiscal Service if no"
^DD(350.9,2.07,21,5,0)="remark is entered in this field.  The site may enter any remark which"
^DD(350.9,2.07,21,6,0)="is meaningful to MAS and Fiscal."
^DD(350.9,2.07,"DT")="2920204"
^DD(350.9,2.08,0)="INPT HEALTH SUMMARY^P142'^GMT(142,^2;8^Q"
^DD(350.9,2.08,3)="Enter the Health Summary to print for inpatient admissions in Joint Billing Inquiry."
^DD(350.9,2.08,21,0)="^^2^2^2950511^^"
^DD(350.9,2.08,21,1,0)="This Health Summary will be displayed when the Health Summary action is"
^DD(350.9,2.08,21,2,0)="chosen for an Inpatient bill in the Joint Billing Inquire option."
^DD(350.9,2.08,"DT")="2950511"
^DD(350.9,2.09,0)="OUTPT HEALTH SUMMARY^P142'^GMT(142,^2;9^Q"
^DD(350.9,2.09,3)="Enter the Health Summary to print for outpatients in Joint Billing Inquiry."
^DD(350.9,2.09,21,0)="^^2^2^2950511^^"
^DD(350.9,2.09,21,1,0)="This Health Summary will be displayed when the Health Summary action is"
^DD(350.9,2.09,21,2,0)="chosen for an Outpatient bill in the Joint Billing Inquiry option."
^DD(350.9,2.09,"DT")="2950511"
^DD(350.9,2.1,0)="FACILITY NAME FOR BILLING^RF^^2;10^K:$L(X)>18!($L(X)<1)!'($TR(X,"" "")?.A) X"
^DD(350.9,2.1,3)="Enter your Facility Name for Billing.  Answer must be 1-18 alpha characters in length."
^DD(350.9,2.1,21,0)="^^2^2^3070116^"
^DD(350.9,2.1,21,1,0)="This is the Facility Name for Billing that will print on the first line of"
^DD(350.9,2.1,21,2,0)="the UB-04 form locator 2 and in box 33 of the CMS-1500."
^DD(350.9,2.1,"DT")="3070116"
^DD(350.9,2.11,0)="SITE CONTACT PHONE NUMBER^F^^2;11^K:$L(X)>25!($L(X)<10) X"
^DD(350.9,2.11,3)="Must be a phone number, including area code"
^DD(350.9,2.11,21,0)="^^3^3^2990413^"
^DD(350.9,2.11,21,1,0)="This is the phone number associated with the site contact position that"
^DD(350.9,2.11,21,2,0)="EDI inquiries will be directed to when a payer needs to get in touch with"
^DD(350.9,2.11,21,3,0)="the facility."
^DD(350.9,2.11,"DT")="2990601"
^DD(350.9,2.12,0)="BILLING SITE IS OTHER FACILITY^S^0:NO;1:YES;^2;12^Q"
^DD(350.9,2.12,3)="Enter YES if the billing facility is not the main rendering facility"
^DD(350.9,2.12,21,0)="^^7^7^3060928^^"
^DD(350.9,2.12,21,1,0)="This field is used by integrated sites who have centralized their billing"
^DD(350.9,2.12,21,2,0)="at a single facility that is not the rendering facility.  In this case,"
^DD(350.9,2.12,21,3,0)="if the rendering facility's division is not a remote site (i.e. is the"
^DD(350.9,2.12,21,4,0)="main facility), the rendering facility's name must print in block 32 of"
^DD(350.9,2.12,21,5,0)="the CMS-1500 while the billing facility's name must print in box 33."
^DD(350.9,2.12,21,6,0)="Answering YES to this prompt will force these 2 boxes to be correctly"
^DD(350.9,2.12,21,7,0)="populated."
^DD(350.9,2.12,"DT")="3060928"
^DD(350.9,3.01,0)="*CONVERSION LAST BILL DATE^D^^3;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,3.01,21,0)="^^10^10^2940127^^^"
^DD(350.9,3.01,21,1,0)="This field will only be used for the Means Test conversion which is part"
^DD(350.9,3.01,21,2,0)="of the Integrated Billing v1.5 post init.  The field will be deleted"
^DD(350.9,3.01,21,3,0)="with the next version of Integrated Billing."
^DD(350.9,3.01,21,4,0)=" "
^DD(350.9,3.01,21,5,0)="This field is updated during the IB v1.5 post init.  The value of this"
^DD(350.9,3.01,21,6,0)="field designates the last day through which Means Test charges will be"
^DD(350.9,3.01,21,7,0)="created during the conversion."
^DD(350.9,3.01,21,8,0)=" "
^DD(350.9,3.01,21,9,0)="Please note that this field has been starred for deletion in IB v2.0."
^DD(350.9,3.01,21,10,0)="This field will be deleted in the version of IB which follows v2.0."
^DD(350.9,3.01,"DT")="2940127"
^DD(350.9,3.02,0)="*CONVERSION BREAK DATE^D^^3;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,3.02,3)=""
^DD(350.9,3.02,21,0)="^^17^17^2940209^^^^"
^DD(350.9,3.02,21,1,0)="This field will only be used for the Means Test conversion which is part"
^DD(350.9,3.02,21,2,0)="of the Integrated Billing v1.5 post init.  The field will be deleted"
^DD(350.9,3.02,21,3,0)="with the next version of Integrated Billing."
^DD(350.9,3.02,21,4,0)=" "
^DD(350.9,3.02,21,5,0)="This field is updated during the IB v1.5 post init.  The value of this"
^DD(350.9,3.02,21,6,0)="field is used by the conversion when creating Hospital/NHCU per diem"
^DD(350.9,3.02,21,7,0)="charges.  If a patient owes the per diem on this date, and has"
^DD(350.9,3.02,21,8,0)="accumulated other charges prior to this date, a charge is filed for"
^DD(350.9,3.02,21,9,0)="all previous charges up through the date.  The intent of ""splitting"""
^DD(350.9,3.02,21,10,0)="charges in this manner is to allow facilities to select a ""final"" date"
^DD(350.9,3.02,21,11,0)="through which Means Test billing will have been completed"
^DD(350.9,3.02,21,12,0)="manually so that charges created by the conversion may"
^DD(350.9,3.02,21,13,0)="easily be passed to the Accounts Receivable package (and thus billed"
^DD(350.9,3.02,21,14,0)="to the patient)."
^DD(350.9,3.02,21,15,0)=" "
^DD(350.9,3.02,21,16,0)="Please note that this field has been starred for deletion in IB v2.0."
^DD(350.9,3.02,21,17,0)="This field will be deleted in the version of IB which follows v2.0."
^DD(350.9,3.02,"DT")="2940127"
^DD(350.9,3.03,0)="COPAY EXEMPTION CONV. STARTED^NJ7,0^^3;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.03,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(350.9,3.03,21,0)="^^2^2^2930114^^"
^DD(350.9,3.03,21,1,0)="This is the number of times the Medication Copayment Exemption Conversion"
^DD(350.9,3.03,21,2,0)="has been started.  It is used to tell if the conversion has been restarted."
^DD(350.9,3.03,23,0)="^^11^11^2930114^"
^DD(350.9,3.03,23,1,0)="The Medication Copayment Exemption Conversion can be stopped by"
^DD(350.9,3.03,23,2,0)="editing this field to a number different that its current value."
^DD(350.9,3.03,23,3,0)="This is NOT a recommended procedure but should only be used in"
^DD(350.9,3.03,23,4,0)="exception cases.  It will cause an orderly shut down on the "
^DD(350.9,3.03,23,5,0)="completion of a single patient.  After the conversion shuts down,"
^DD(350.9,3.03,23,6,0)="the value of this field should be returned to its original value."
^DD(350.9,3.03,23,7,0)=" "
^DD(350.9,3.03,23,8,0)="If a second conversion is started this field will be updated causing"
^DD(350.9,3.03,23,9,0)="the first conversion to stop.  At that point it is possible that"
^DD(350.9,3.03,23,10,0)="a patient may be double processed, possible causing the double"
^DD(350.9,3.03,23,11,0)="decreasing of charges in AR for that patient."
^DD(350.9,3.03,"DT")="2930114"
^DD(350.9,3.04,0)="COPAY EXEMPTION LAST DFN^NJ9,0^^3;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.04,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.04,9)="^"
^DD(350.9,3.04,21,0)="^^5^5^2930114^"
^DD(350.9,3.04,21,1,0)="This is the internal entry number of the last patient completely"
^DD(350.9,3.04,21,2,0)="converted by the Medication Copayment Exemption Conversion.  The"
^DD(350.9,3.04,21,3,0)="Conversion processes patients in order of internal entry number."
^DD(350.9,3.04,21,4,0)="If the conversion stops for any reason it will start with the next"
^DD(350.9,3.04,21,5,0)="internal number after this one."
^DD(350.9,3.04,"DT")="2921124"
^DD(350.9,3.05,0)="TOTAL PATIENTS CONVERTED^NJ9,0^^3;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.05,.1)="COPAY EXEMPTION TOTAL PATIENT CONVERTED"
^DD(350.9,3.05,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.05,9)="^"
^DD(350.9,3.05,21,0)="^^2^2^2930114^^"
^DD(350.9,3.05,21,1,0)="This is the total number of patients in the IB file that were set"
^DD(350.9,3.05,21,2,0)="up with an exemption status during the conversion."
^DD(350.9,3.05,"DT")="2930107"
^DD(350.9,3.06,0)="TOTAL PATIENTS EXEMPT^NJ9,0^^3;6^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.06,.1)="COPAY EXEMPTION TOTAL PATIENTS CONVERTED EXEMPT"
^DD(350.9,3.06,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.06,9)="^"
^DD(350.9,3.06,21,0)="^^1^1^2930114^"
^DD(350.9,3.06,21,1,0)="This is the number of patients that were converted to an exempt status."
^DD(350.9,3.06,"DT")="2930107"
^DD(350.9,3.07,0)="TOTAL PATIENT NON-EXEMPT^NJ9,0^^3;7^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.07,.1)="COPAY EXEMPTION TOTAL PATIENTS CONVERTED NON-EXEMPT"
^DD(350.9,3.07,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.07,9)="^"
^DD(350.9,3.07,21,0)="^^1^1^2930114^"
^DD(350.9,3.07,21,1,0)="This is the number of patients converted to a non-exempt status."
^DD(350.9,3.07,"DT")="2930107"
^DD(350.9,3.08,0)="COUNT OF EXEMPT BILLS^NJ9,0^^3;8^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.08,.1)="COPAY EXEMPTION TOTAL COUNT OF CANCELED RX CHARGES"
^DD(350.9,3.08,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.08,9)="^"
^DD(350.9,3.08,21,0)="^^3^3^2930114^^^"
^DD(350.9,3.08,21,1,0)="This is the number of Medication Copayment IB Actions that were "
^DD(350.9,3.08,21,2,0)="issued to patients who's status is exempt from the start of the "
^DD(350.9,3.08,21,3,0)="exemption legislation to the running of the conversion."
^DD(350.9,3.08,"DT")="2930114"
^DD(350.9,3.09,0)="AMOUNT OF CHARGES CHECKED^NJ9,0^^3;9^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.09,.1)="COPAY EXEMPTION CONVERSION TOTAL CHARGES CHECKED"
^DD(350.9,3.09,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.09,9)="^"
^DD(350.9,3.09,21,0)="^^3^3^2930114^^^"
^DD(350.9,3.09,21,1,0)="This is the total dollar amount of charges checked during the Medication"
^DD(350.9,3.09,21,2,0)="Copayment Exemption Conversion issued to patients from the start"
^DD(350.9,3.09,21,3,0)="date of the exemption legislation to the running of the conversion."
^DD(350.9,3.09,"DT")="2930107"
^DD(350.9,3.1,0)="TOTAL EXEMPT DOLLAR AMOUNT^NJ9,0^^3;10^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.1,.1)="COPAY EXEMPTION CONVERSION TOTAL EXEMPTED CHARGES"
^DD(350.9,3.1,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.1,9)="^"
^DD(350.9,3.1,21,0)="^^3^3^2930114^"
^DD(350.9,3.1,21,1,0)="This is the total dollar amount of charges checked during the Medication"
^DD(350.9,3.1,21,2,0)="Copayment Exemption Conversion issued to Exempt patients from the start"
^DD(350.9,3.1,21,3,0)="date of the exemption legislation to the running of the conversion."
^DD(350.9,3.1,"DT")="2930114"
^DD(350.9,3.11,0)="AMOUNT OF NON-EXEMPT CHARGES^NJ9,0^^3;11^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.11,.1)="COPAY EXEMPTION CONVERSION TOTAL NON-EXEMPT CHARGES"
^DD(350.9,3.11,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.11,9)="^"
^DD(350.9,3.11,21,0)="^^3^3^2930114^"
^DD(350.9,3.11,21,1,0)="This is the total dollar amount of charges checked during the Medication"
^DD(350.9,3.11,21,2,0)="Copayment Exemption Conversion issued to Non-Exempt patients from the start"
^DD(350.9,3.11,21,3,0)="date of the exemption legislation to the running of the conversion."
^DD(350.9,3.11,"DT")="2930107"
^DD(350.9,3.12,0)="AMOUNT OF CANCELED CHARGES^NJ9,0^^3;12^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,3.12,.1)="COPAY EXEMPTION CONVERSION TOTAL AMOUNT OF CANCELED CHARGES"
^DD(350.9,3.12,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(350.9,3.12,9)="^"
^DD(350.9,3.12,21,0)="^^3^3^2930114^"
^DD(350.9,3.12,21,1,0)="This is the total dollar amount of charges actually canceled during the Medication"
^DD(350.9,3.12,21,2,0)="Copayment Exemption Conversion issued to Exempt patients from the start"
^DD(350.9,3.12,21,3,0)="date of the exemption legislation to the running of the conversion."
^DD(350.9,3.12,"DT")="2930107"
^DD(350.9,3.13,0)="COPAY EXEMPTION START DATE^RD^^3;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,3.13,9)="^"
^DD(350.9,3.13,21,0)="^^2^2^2930114^^"
^DD(350.9,3.13,21,1,0)="This is the date/time that the Medication Copayment Exemption Conversion"
^DD(350.9,3.13,21,2,0)="started.  It should not be edited."
^DD(350.9,3.13,"DT")="2930113"
^DD(350.9,3.14,0)="COPAY EXEMPTION STOP DATE^RDI^^3;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,3.14,3)=""
^DD(350.9,3.14,9)="^"
^DD(350.9,3.14,21,0)="^^4^4^2930114^^^^"
^DD(350.9,3.14,21,1,0)="This is the date/time that the conversion completed.  This field"
^DD(350.9,3.14,21,2,0)="should not be edited.  It will be stored by the conversion routine"
^DD(350.9,3.14,21,3,0)="when it is finished.  "
^DD(350.9,3.14,21,4,0)=" "
^DD(350.9,3.14,23,0)="^^9^9^2930114^^^^"
^DD(350.9,3.14,23,1,0)="If for some reason, it is necessary to restart the conversion after"
^DD(350.9,3.14,23,2,0)="this field has been populated you may delete the data in this field."
^DD(350.9,3.14,23,3,0)="Sites should check with their supporting ISC prior to doing this.  The"
^DD(350.9,3.14,23,4,0)="field, LAST DFN UPDATED (3.04) in this file may also need to be edited."
^DD(350.9,3.14,23,5,0)=" "
^DD(350.9,3.14,23,6,0)="Normally it is not recommended that the conversion be re-run after it"
^DD(350.9,3.14,23,7,0)="has run once.  Re-running the conversion will not cause updating of"
^DD(350.9,3.14,23,8,0)="patients with current exemptions, nor will it cause re-cancellation"
^DD(350.9,3.14,23,9,0)="of charges cancelled previously."
^DD(350.9,3.14,"DT")="2930113"
^DD(350.9,3.15,0)="NON-EXEMPT PATIENTS CONVERTED^NJ9,0^^3;15^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,3.15,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(350.9,3.15,9)="^"
^DD(350.9,3.15,21,0)="^^2^2^2930114^"
^DD(350.9,3.15,21,1,0)="This is the count of patients in the IB Action file that had"
^DD(350.9,3.15,21,2,0)="an exemption status of Non-exempt set up during the conversion."
^DD(350.9,3.15,"DT")="2930114"
^DD(350.9,3.16,0)="TOTAL BILLS DURING CONVERSION^NJ9,0^^3;16^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,3.16,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(350.9,3.16,9)="^"
^DD(350.9,3.16,21,0)="^^3^3^2930114^"
^DD(350.9,3.16,21,1,0)="This is the total number of IB ACTION entries issued from the effective"
^DD(350.9,3.16,21,2,0)="date of the Income Exemption Legislation until the running of the"
^DD(350.9,3.16,21,3,0)="conversion that were issued to either exempt or non-exempt patients."
^DD(350.9,3.16,"DT")="2930114"
^DD(350.9,3.17,0)="COUNT OF BILLS CANCELED^NJ9,0^^3;17^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,3.17,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(350.9,3.17,9)="^"
^DD(350.9,3.17,21,0)="^^2^2^2930114^^"
^DD(350.9,3.17,21,1,0)="This is the count of bills actually sent to be canceled in the IB"
^DD(350.9,3.17,21,2,0)="ACTION file during the conversion."
^DD(350.9,3.17,"DT")="2930114"
^DD(350.9,3.18,0)="INSURANCE CONVERSION COMPLETE^RDI^^3;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,3.18,21,0)="^^5^5^2931108^"
^DD(350.9,3.18,21,1,0)="This is the date the insurance conversion completes.  It is not editable."
^DD(350.9,3.18,21,2,0)="The data should not be deleted."
^DD(350.9,3.18,21,3,0)=" "
^DD(350.9,3.18,21,4,0)="The v2.0 insurance conversion will automatically set this field to the"
^DD(350.9,3.18,21,5,0)="date it completes."
^DD(350.9,3.18,"DT")="2931108"
^DD(350.9,3.19,0)="BILL/CLAIMS CONV. COMPLETE^RDI^^3;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,3.19,21,0)="^^3^3^2931108^"
^DD(350.9,3.19,21,1,0)="This is the date that the v2 post-init conversion of the bill/claims file"
^DD(350.9,3.19,21,2,0)="completed.  It will automatically be updated by the conversion routine"
^DD(350.9,3.19,21,3,0)="when it completes."
^DD(350.9,3.19,"DT")="2931108"
^DD(350.9,3.2,0)="CURRENT INPATIENTS LOADED^RDI^^3;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,3.2,21,0)="^^3^3^2931108^"
^DD(350.9,3.2,21,1,0)="This is the date that the current inpatients were loaded into claims"
^DD(350.9,3.2,21,2,0)="tracking as part of the IB v2 post init.  This date will automatically"
^DD(350.9,3.2,21,3,0)="be entered upon completion."
^DD(350.9,3.2,"DT")="2931108"
^DD(350.9,4.01,0)="INSURANCE EXTENDED HELP^S^0:OFF;1:ON;^4;1^Q"
^DD(350.9,4.01,21,0)="^^7^7^2940131^^"
^DD(350.9,4.01,21,1,0)="Should the extended help display be always on in the Insurance Management"
^DD(350.9,4.01,21,2,0)="options.  Answer 'ON' if you always want it to display automatically"
^DD(350.9,4.01,21,3,0)="or answer 'OFF' if you do not want to see it."
^DD(350.9,4.01,21,4,0)=" "
^DD(350.9,4.01,21,5,0)="It is recommended that the extended help be turned on initially"
^DD(350.9,4.01,21,6,0)="after v2 is installed.  As users become more familiar with the"
^DD(350.9,4.01,21,7,0)="new functionality the parameter can be turned off."
^DD(350.9,4.01,"DT")="2930813"
^DD(350.9,4.02,0)="PATIENT OR INSURANCE COMPANY^V^^4;2^Q"
^DD(350.9,4.02,21,0)="^^1^1^2940209^"
^DD(350.9,4.02,21,1,0)="Enter the patient or insurance company you wish to access."
^DD(350.9,4.02,23,0)="^^3^3^2940209^"
^DD(350.9,4.02,23,1,0)="This field does not contain data.  It is used as a file definition by"
^DD(350.9,4.02,23,2,0)="the reader to do a variable pointer look up that is not tied to any"
^DD(350.9,4.02,23,3,0)="data base element."
^DD(350.9,4.02,"DT")="2930303"
^DD(350.9,4.02,"V",0)="^.12P^2^2"
^DD(350.9,4.02,"V",1,0)="2^Patient^1^2^n^n"
^DD(350.9,4.02,"V",2,0)="36^Insurance company^10^36^n^n"
^DD(350.9,4.02,"V","B",2,1)=""
^DD(350.9,4.02,"V","B",36,2)=""
^DD(350.9,4.02,"V","M","Insurance company",2)=""
^DD(350.9,4.02,"V","M","Patient",1)=""
^DD(350.9,4.02,"V","O",1,1)=""
^DD(350.9,4.02,"V","O",10,2)=""
^DD(350.9,4.02,"V","P",2,1)=""
^DD(350.9,4.02,"V","P",36,2)=""
^DD(350.9,4.03,0)="HEALTH INSURANCE POLICY^F^^4;3^K:$L(X)>20!($L(X)<1) X"
^DD(350.9,4.03,3)="Answer must be 1-20 characters in length."
^DD(350.9,4.03,21,0)="^^1^1^2940209^"
^DD(350.9,4.03,21,1,0)="Enter the name of the patient's health insurance policy."
^DD(350.9,4.03,23,0)="^^3^3^2940209^"
^DD(350.9,4.03,23,1,0)="This field does not contain data.  It is used by the reader to"
^DD(350.9,4.03,23,2,0)="provide a definition to do a lookup that is not tied to a"
^DD(350.9,4.03,23,3,0)="particular data base element."
^DD(350.9,4.03,"DT")="2930829"
^DD(350.9,4.04,0)="NEW INSURANCE MAIL GROUP^P3.8'^XMB(3.8,^4;4^Q"
^DD(350.9,4.04,21,0)="^^3^3^2940209^^"
^DD(350.9,4.04,21,1,0)="Enter the mail group that should receive a bulletin every time an"
^DD(350.9,4.04,21,2,0)="insurance policy is added for a patient that has potential billings"
^DD(350.9,4.04,21,3,0)="associated with it."
^DD(350.9,4.04,"DT")="2930829"
^DD(350.9,4.05,0)="CENTRAL COLLECTION MAIL GROUP^F^^4;5^K:$L(X)>45!($L(X)<3) X"
^DD(350.9,4.05,3)="Answer must be 3-45 characters in length."
^DD(350.9,4.05,21,0)="^^10^10^2930903^"
^DD(350.9,4.05,21,1,0)="The MCCR Program Office has recently requested that the results from"
^DD(350.9,4.05,21,2,0)="the report Rank Insurance Carriers By Amount Billed be transmitted"
^DD(350.9,4.05,21,3,0)="centrally for nation-wide compilation.  This field contains the"
^DD(350.9,4.05,21,4,0)="mail group on Forum to which these reports will be sent."
^DD(350.9,4.05,21,5,0)=" "
^DD(350.9,4.05,21,6,0)="The field is being exported with the value G.MCCR DATA@FORUM.VA.GOV."
^DD(350.9,4.05,21,7,0)="It is anticipated that future reports may be sent to this group for"
^DD(350.9,4.05,21,8,0)="compilation.  If it becomes necessary to change the mail group name"
^DD(350.9,4.05,21,9,0)="or domain, this field may be edited using Fileman.  Do not edit this"
^DD(350.9,4.05,21,10,0)="field without receiving instructions from your supporting ISC."
^DD(350.9,4.05,"DT")="2930903"
^DD(350.9,4.06,0)="INSURANCE COMPANY^*P36'^DIC(36,^4;6^S DIC(""S"")=""I '$P(^(0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(350.9,4.06,12)="Only Active Companies may be selected!"
^DD(350.9,4.06,12.1)="S DIC(""S"")=""I '$P(^(0),U,5)"""
^DD(350.9,4.06,"DT")="2940119"
^DD(350.9,4.07,0)="IVM CENTER MAIL GROUP^F^^4;7^K:$L(X)>45!($L(X)<3) X"
^DD(350.9,4.07,3)="Answer must be 3-45 characters in length."
^DD(350.9,4.07,21,0)="^^5^5^2940505^"
^DD(350.9,4.07,21,1,0)="The IVM Center has recently requested that the results from the"
^DD(350.9,4.07,21,2,0)="report IB Billing Activity be transmitted to the IVM Center for"
^DD(350.9,4.07,21,3,0)="nation-wide compilation.  This field contains the mail group"
^DD(350.9,4.07,21,4,0)="to which these reports will be sent.  The field is being"
^DD(350.9,4.07,21,5,0)="exported with the value G.IVM REPORTS@IVM.VA.GOV."
^DD(350.9,4.07,"DT")="2940505"
^DD(350.9,4.08,0)="INS. CO. DELETION TASK^NJ12,0^^4;8^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,4.08,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(350.9,4.08,21,0)="^^4^4^2950804^^"
^DD(350.9,4.08,21,1,0)="This field contains the task number of a job that is scheduled"
^DD(350.9,4.08,21,2,0)="to run which performs all clean-up tasks when an Insurance"
^DD(350.9,4.08,21,3,0)="Company is deleted.  After the tasked job runs to completion,"
^DD(350.9,4.08,21,4,0)="the value of this field will be deleted."
^DD(350.9,4.08,23,0)="^^16^16^2950804^"
^DD(350.9,4.08,23,1,0)="This field is used to control background processing when an"
^DD(350.9,4.08,23,2,0)="Insurance Company is deleted.  When a company is 'deleted'"
^DD(350.9,4.08,23,3,0)="using the Delete Company action within the Insurance Company"
^DD(350.9,4.08,23,4,0)="editor, a background task needs to be queued to perform"
^DD(350.9,4.08,23,5,0)="final clean-up tasks.  This job searches several files and"
^DD(350.9,4.08,23,6,0)="is queued to run during non-business hours.  However, if"
^DD(350.9,4.08,23,7,0)="subsequent companies are also deleted before the queued"
^DD(350.9,4.08,23,8,0)="job runs, it would not be desirable to queue another job."
^DD(350.9,4.08,23,9,0)=" "
^DD(350.9,4.08,23,10,0)="The task number for the background job for the first deleted"
^DD(350.9,4.08,23,11,0)="company is stored in this field.  The value is then used"
^DD(350.9,4.08,23,12,0)="when subsequent companies are deleted, to determine if another"
^DD(350.9,4.08,23,13,0)="job should be queued or not.  When a company is deleted, if"
^DD(350.9,4.08,23,14,0)="this field contains a task number, and that task number is"
^DD(350.9,4.08,23,15,0)="queued to run, then a second task will not be queued.  The queued"
^DD(350.9,4.08,23,16,0)="job will delete the value from this field at job completion."
^DD(350.9,4.08,"DT")="2950804"
^DD(350.9,5.01,0)="ADMISSION SHEET HEADER LINE 1^F^^5;1^K:$L(X)>50!($L(X)<3) X"
^DD(350.9,5.01,3)="Answer must be 3-50 characters in length."
^DD(350.9,5.01,21,0)="^^3^3^2930826^"
^DD(350.9,5.01,21,1,0)="Enter the text that your facility would like to have printed as the"
^DD(350.9,5.01,21,2,0)="first line of the header on the admission sheet.  This is generally"
^DD(350.9,5.01,21,3,0)="the name of your medical center."
^DD(350.9,5.01,"DT")="2930826"
^DD(350.9,5.02,0)="ADMISSION SHEET HEADER LINE 2^F^^5;2^K:$L(X)>50!($L(X)<3) X"
^DD(350.9,5.02,3)="Answer must be 3-50 characters in length."
^DD(350.9,5.02,21,0)="^^3^3^2930826^"
^DD(350.9,5.02,21,1,0)="Enter the text that your facility would like to have printed as the"
^DD(350.9,5.02,21,2,0)="second line of the header on the admission sheet.  This is generally"
^DD(350.9,5.02,21,3,0)="the street address of your medical center."
^DD(350.9,5.02,"DT")="2930826"
^DD(350.9,5.03,0)="ADMISSION SHEET HEADER LINE 3^F^^5;3^K:$L(X)>50!($L(X)<3) X"
^DD(350.9,5.03,3)="Answer must be 3-50 characters in length."
^DD(350.9,5.03,21,0)="^^3^3^2930826^"
^DD(350.9,5.03,21,1,0)="Enter the text that your facility would like to have printed as the"
^DD(350.9,5.03,21,2,0)="third line of the header on the admission sheet.  This is generally"
^DD(350.9,5.03,21,3,0)="the city, state and zip code of your medical center."
^DD(350.9,5.03,"DT")="2930826"
^DD(350.9,6.01,0)="CLAIMS TRACKING START DATE^D^^6;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,6.01,21,0)="^^9^9^2940209^^^"
^DD(350.9,6.01,21,1,0)="If you choose to run the claims tracking module and populate the files"
^DD(350.9,6.01,21,2,0)="with past episodes of care, this is the date that the routine will use"
^DD(350.9,6.01,21,3,0)="to start."
^DD(350.9,6.01,21,4,0)=" "
^DD(350.9,6.01,21,5,0)="This is the main parameter that contro what past care can be entered"
^DD(350.9,6.01,21,6,0)="into claims tracking.  At no time does the software automatically add"
^DD(350.9,6.01,21,7,0)="entires older than this date.  The one exception is that this parameter"
^DD(350.9,6.01,21,8,0)="does not affect the entries that may be added to claims tracking using"
^DD(350.9,6.01,21,9,0)="the add tracking entry action on the main claims tracking screen."
^DD(350.9,6.01,"DT")="2930804"
^DD(350.9,6.02,0)="INPATIENT CLAIMS TRACKING^S^0:OFF;1:INSURED AND UR ONLY;2:ALL PATIENTS;^6;2^Q"
^DD(350.9,6.02,21,0)="^^13^13^2940209^^^^"
^DD(350.9,6.02,21,1,0)="This field determines what inpatients will automatically be added to"
^DD(350.9,6.02,21,2,0)="the claims tracking module.  If this parameter is set to ""OFF"" then"
^DD(350.9,6.02,21,3,0)="no new patients will be added.  If this is set to ""INSURED AND UR ONLY"""
^DD(350.9,6.02,21,4,0)="then only the insured patients and random sample patients will be added."
^DD(350.9,6.02,21,5,0)="If this is set to ""ALL PATIENTS"" then a record of all admissions will"
^DD(350.9,6.02,21,6,0)="be created."
^DD(350.9,6.02,21,7,0)=" "
^DD(350.9,6.02,21,8,0)="If a patient is not insured then each record will be so annotated "
^DD(350.9,6.02,21,9,0)="automatically on creation and no follow-up will be required.  The"
^DD(350.9,6.02,21,10,0)="advantage of tracking all patients is that you can determine the"
^DD(350.9,6.02,21,11,0)="percentage of billable cases and make necessary adjustments if the"
^DD(350.9,6.02,21,12,0)="patients are later found to have insurance.  The disadvantage is that"
^DD(350.9,6.02,21,13,0)="additional capacity is used."
^DD(350.9,6.02,"DT")="2930804"
^DD(350.9,6.03,0)="OUTPATIENT CLAIMS TRACKING^S^0:OFF;1:INSURED ONLY;2:ALL PATIENTS;^6;3^Q"
^DD(350.9,6.03,3)=""
^DD(350.9,6.03,21,0)="^^8^8^2940130^^"
^DD(350.9,6.03,21,1,0)="This field determines if outpatient visit dates will automatically be"
^DD(350.9,6.03,21,2,0)="entered into the claims tracking module.  If this is answered ""OFF"""
^DD(350.9,6.03,21,3,0)="then no entries will be entered.  If this is answered ""INSURED ONLY"""
^DD(350.9,6.03,21,4,0)="then only outpatient visits for insured patients will be added."
^DD(350.9,6.03,21,5,0)="If this parameter is set to ALL PATIENTS then the outpatient visits"
^DD(350.9,6.03,21,6,0)="for all patients will be added to claims tracking."
^DD(350.9,6.03,21,7,0)=" "
^DD(350.9,6.03,21,8,0)="Initially we recommend this parameter be set to INSURED ONLY."
^DD(350.9,6.03,"DT")="2930804"
^DD(350.9,6.04,0)="PRESCRIPTION CLAIMS TRACKING^S^0:OFF;1:INSURED ONLY;2:ALL PATIENTS;^6;4^Q"
^DD(350.9,6.04,3)=""
^DD(350.9,6.04,21,0)="^^11^11^2940130^^"
^DD(350.9,6.04,21,1,0)="This field determines if prescriptions will automatically be entered"
^DD(350.9,6.04,21,2,0)="into the claims tracking module.  If this is answered ""OFF"" then"
^DD(350.9,6.04,21,3,0)="no prescriptions or refills will be entered.  If this is answered "
^DD(350.9,6.04,21,4,0)="""INSURED ONLY"", then only prescriptions and refills will be added if"
^DD(350.9,6.04,21,5,0)="the patient is insured.  If all is choose then an entry for all"
^DD(350.9,6.04,21,6,0)="prescriptions will be entered."
^DD(350.9,6.04,21,7,0)=" "
^DD(350.9,6.04,21,8,0)="If a prescription or refill does not appear to be billable, that is it"
^DD(350.9,6.04,21,9,0)="may be for SC care, or there is a visit date associated with that"
^DD(350.9,6.04,21,10,0)="prescription or refill, this will be so noted in the reason not billable."
^DD(350.9,6.04,21,11,0)=" "
^DD(350.9,6.04,"DT")="2930804"
^DD(350.9,6.05,0)="PROSTHETICS CLAIMS TRACKING^S^0:OFF;1:INSURED ONLY;2:ALL PATIENTS;^6;5^Q"
^DD(350.9,6.05,3)=""
^DD(350.9,6.05,21,0)="^^6^6^2940130^^"
^DD(350.9,6.05,21,1,0)="This field will be used to determine if prosthetics should be tracked in"
^DD(350.9,6.05,21,2,0)="the claims tracking module.  If this parameter is set to OFF, then no"
^DD(350.9,6.05,21,3,0)="prosthetic entries will be added to claims tracking.  If this is set to"
^DD(350.9,6.05,21,4,0)="INSURED ONLY then only parameter entries for insured patients will be"
^DD(350.9,6.05,21,5,0)="added to claims tracking.  If this is set to ALL PATIENTS then an"
^DD(350.9,6.05,21,6,0)="entry will be created for all patients prosthetic items."
^DD(350.9,6.05,"DT")="2930804"
^DD(350.9,6.06,0)="USE ADMISSION SHEETS^S^0:NO;1:YES;^6;6^Q"
^DD(350.9,6.06,21,0)="^^4^4^2940130^^^"
^DD(350.9,6.06,21,1,0)="Enter whether your facility is using Admission Sheets as part of the"
^DD(350.9,6.06,21,2,0)="MCCR/UR functionality.  If this parameter is answered ""YES"" then"
^DD(350.9,6.06,21,3,0)="users will be asked for the device to print admissions sheets to."
^DD(350.9,6.06,21,4,0)="The default device will be from the BILL FORM TYPE file."
^DD(350.9,6.06,"DT")="2930804"
^DD(350.9,6.07,0)="RANDOM SAMPLE DATE^D^^6;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,6.07,21,0)="^^3^3^2930804^"
^DD(350.9,6.07,21,1,0)="This is the date that random sampling was last re-generated.  The"
^DD(350.9,6.07,21,2,0)="IB background job will re-generate a new date, new random numbers,"
^DD(350.9,6.07,21,3,0)="and zero the counters every Sunday night."
^DD(350.9,6.07,"DT")="2930804"
^DD(350.9,6.08,0)="MEDICINE SAMPLE SIZE^RNJ2,0^^6;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,6.08,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(350.9,6.08,21,0)="^^3^3^2930805^^"
^DD(350.9,6.08,21,1,0)="This is the number of required Utilization Reviews that you wish to have"
^DD(350.9,6.08,21,2,0)="done each week for Medicine admissions.  The minimum recommended by"
^DD(350.9,6.08,21,3,0)="the QA office is one per week."
^DD(350.9,6.08,"DT")="2940113"
^DD(350.9,6.09,0)="MEDICINE WEEKLY ADMISSIONS^NJ2,0^^6;9^K:+X'=X!(X>99)!(X<5)!(X?.E1"".""1N.N) X"
^DD(350.9,6.09,3)="Type a Number between 5 and 99, 0 Decimal Digits"
^DD(350.9,6.09,21,0)="^^3^3^2930805^^^"
^DD(350.9,6.09,21,1,0)="This is the minimum number of admissions for Medicine that your Medical"
^DD(350.9,6.09,21,2,0)="Center generally averages.  This is used along with the Medicine"
^DD(350.9,6.09,21,3,0)="sample size to compute a random number."
^DD(350.9,6.09,"DT")="2930804"
^DD(350.9,6.1,0)="MEDICINE RANDOM NUMBER^NJ2,0^^6;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.1,21,0)="^^4^4^2940209^^^"
^DD(350.9,6.1,21,1,0)="This is an internally computed random number.  It is re-computed each"
^DD(350.9,6.1,21,2,0)="week.  When the count of the Medicine admissions reaches a multiple of"
^DD(350.9,6.1,21,3,0)="this number it is considered the random selection.  The total number"
^DD(350.9,6.1,21,4,0)="of random selections for UR will not exceed the Medicine sample size."
^DD(350.9,6.1,"DT")="2930804"
^DD(350.9,6.11,0)="MEDICINE ENTRIES MET^NJ2,0^^6;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.11,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.11,21,0)="^^1^1^2930805^"
^DD(350.9,6.11,21,1,0)="This is the number of random selections generated this week."
^DD(350.9,6.11,"DT")="2930804"
^DD(350.9,6.12,0)="MEDICINE ADMISSION COUNTER^NJ2,0^^6;12^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.12,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.12,21,0)="^^2^2^2930805^"
^DD(350.9,6.12,21,1,0)="This is the number of admissions for this service counted by the"
^DD(350.9,6.12,21,2,0)="claims tracking module so far this week."
^DD(350.9,6.12,"DT")="2930804"
^DD(350.9,6.13,0)="SURGERY SAMPLE SIZE^NJ2,0^^6;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,6.13,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(350.9,6.13,21,0)="^^3^3^2930901^^"
^DD(350.9,6.13,21,1,0)="This is the number of required Utilization Reviews that you wish to have"
^DD(350.9,6.13,21,2,0)="done each week for Surgery admissions.  The minimum recommended by"
^DD(350.9,6.13,21,3,0)="the QA office is one per week."
^DD(350.9,6.13,"DT")="2940113"
^DD(350.9,6.14,0)="SURGERY WEEKLY ADMISSIONS^NJ2,0^^6;14^K:+X'=X!(X>99)!(X<5)!(X?.E1"".""1N.N) X"
^DD(350.9,6.14,3)="Type a Number between 5 and 99, 0 Decimal Digits"
^DD(350.9,6.14,21,0)="^^3^3^2930805^^"
^DD(350.9,6.14,21,1,0)="This is the minimum number of admissions for Surgery that your Medical"
^DD(350.9,6.14,21,2,0)="Center generally averages.  This is used along with the Surgery"
^DD(350.9,6.14,21,3,0)="sample size to compute a random number."
^DD(350.9,6.14,"DT")="2930901"
^DD(350.9,6.15,0)="SURGERY RANDOM NUMBER^NJ2,0^^6;15^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.15,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.15,21,0)="^^4^4^2940209^^^"
^DD(350.9,6.15,21,1,0)="This is an internally computed random number.  It is re-computed each"
^DD(350.9,6.15,21,2,0)="week.  When the count of the Surgery admissions reaches a multiple of"
^DD(350.9,6.15,21,3,0)="this number it is considered the random selection.  The total number"
^DD(350.9,6.15,21,4,0)="of random selections for UR will not exceed the Surgery sample size."
^DD(350.9,6.15,"DT")="2930804"
^DD(350.9,6.16,0)="SURGERY ENTRIES MET^NJ2,0^^6;16^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.16,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.16,21,0)="^^1^1^2930805^"
^DD(350.9,6.16,21,1,0)="This is the number of random selections generated this week."
^DD(350.9,6.16,"DT")="2930804"
^DD(350.9,6.17,0)="SURGERY ADMISSION COUNTER^NJ2,0^^6;17^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.17,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.17,21,0)="^^2^2^2930805^"
^DD(350.9,6.17,21,1,0)="This is the number of admissions for this service counted by the"
^DD(350.9,6.17,21,2,0)="claims tracking module so far this week."
^DD(350.9,6.17,"DT")="2930804"
^DD(350.9,6.18,0)="PSYCH SAMPLE SIZE^NJ2,0^^6;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,6.18,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(350.9,6.18,21,0)="^^3^3^2930805^"
^DD(350.9,6.18,21,1,0)="This is the number of required Utilization Reviews that you wish to have"
^DD(350.9,6.18,21,2,0)="done each week for Psychiatry admissions.  The minimum recommended by"
^DD(350.9,6.18,21,3,0)="the QA office is one per week."
^DD(350.9,6.18,"DT")="2940113"
^DD(350.9,6.19,0)="PSYCH WEEKLY ADMISSIONS^NJ2,0^^6;19^K:+X'=X!(X>99)!(X<5)!(X?.E1"".""1N.N) X"
^DD(350.9,6.19,3)="Type a Number between 5 and 99, 0 Decimal Digits"
^DD(350.9,6.19,21,0)="^^3^3^2930805^"
^DD(350.9,6.19,21,1,0)="This is the minimum number of admissions for Psychiatry that your Medical"
^DD(350.9,6.19,21,2,0)="Center generally averages.  This is used along with the Psychiatry"
^DD(350.9,6.19,21,3,0)="sample size to compute a random number."
^DD(350.9,6.19,"DT")="2930901"
^DD(350.9,6.2,0)="PSYCH RANDOM NUMBER^NJ2,0^^6;20^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.2,21,0)="^^4^4^2940209^^"
^DD(350.9,6.2,21,1,0)="This is an internally computed random number.  It is re-computed each"
^DD(350.9,6.2,21,2,0)="week.  When the count of the Psychiatry admissions reaches a multiple of"
^DD(350.9,6.2,21,3,0)="this number it is considered the random selection.  The total number"
^DD(350.9,6.2,21,4,0)="of random selections for UR will not exceed the Psychiatry sample size."
^DD(350.9,6.2,"DT")="2930804"
^DD(350.9,6.21,0)="PSYCH ENTRIES MET^NJ2,0^^6;21^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.21,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.21,21,0)="^^1^1^2930805^"
^DD(350.9,6.21,21,1,0)="This is the number of random selections generated this week."
^DD(350.9,6.21,"DT")="2930804"
^DD(350.9,6.22,0)="PSYCH ADMISSION COUNTER^NJ2,0^^6;22^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,6.22,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(350.9,6.22,21,0)="^^2^2^2930805^"
^DD(350.9,6.22,21,1,0)="This is the number of admissions for this service counted by the"
^DD(350.9,6.22,21,2,0)="claims tracking module so far this week."
^DD(350.9,6.22,"DT")="2930804"
^DD(350.9,6.23,0)="REPORTS ADD TO CLAIMS TRACKING^S^0:NO;1:YES;^6;23^Q"
^DD(350.9,6.23,3)="Should the Patients with Insurance Reports add entries to claims tracking."
^DD(350.9,6.23,21,0)="^^10^10^2940209^^"
^DD(350.9,6.23,21,1,0)="This field determines whether or not you wish to allow the Veterans with"
^DD(350.9,6.23,21,2,0)="Insurance reports to add entries to Claims tracking.  If you answer 'YES'"
^DD(350.9,6.23,21,3,0)="then admisssions and outpatient visits found as billable but not found"
^DD(350.9,6.23,21,4,0)="in claims tracking will be added to claims tracking for billing information"
^DD(350.9,6.23,21,5,0)="purposes only.  No review will be set up.  This is to allow flagging of"
^DD(350.9,6.23,21,6,0)="these visits as unbillable so that they can be removed from these reports."
^DD(350.9,6.23,21,7,0)="Answering 'YES' does not guarantee that the entry will be added.  The "
^DD(350.9,6.23,21,8,0)="related parameters about whether Claims Tracking is turned on and the"
^DD(350.9,6.23,21,9,0)="Claims Tracking Start Date will override this parameter."
^DD(350.9,6.23,21,10,0)=" "
^DD(350.9,6.23,23,0)="^^1^1^2940209^^"
^DD(350.9,6.23,23,1,0)=" "
^DD(350.9,6.23,"DT")="2931026"
^DD(350.9,6.24,0)="AUTO PRINT UNBILLED LIST^S^0:NO;1:YES;^6;24^Q"
^DD(350.9,6.24,3)="Answer 'Yes' if you want a detailed patient listing or 'No' if you only want the mail message containing the totals."
^DD(350.9,6.24,21,0)="^^11^11^2941031^^^^"
^DD(350.9,6.24,21,1,0)="Enter 'Yes' if you would like a detailed patient listing of unbilled cases "
^DD(350.9,6.24,21,2,0)="automatically printed each month, when the option Auto-Generate Unbilled"
^DD(350.9,6.24,21,3,0)="Amounts Report runs on the first of each month.  If you answer 'Yes' you"
^DD(350.9,6.24,21,4,0)="must enter the printer in the DEFAULT PRINTER (BILLING) field of the"
^DD(350.9,6.24,21,5,0)="BILL FORM TYPE File (353)."
^DD(350.9,6.24,21,6,0)=" "
^DD(350.9,6.24,21,7,0)="If you answer 'NO' the option will not generate a detailed listing of"
^DD(350.9,6.24,21,8,0)="cases.  You will only receive the mailman message with the totals.  "
^DD(350.9,6.24,21,9,0)=" "
^DD(350.9,6.24,21,10,0)="A detailed listing may be reprinted using the option Re-Generate"
^DD(350.9,6.24,21,11,0)="Unbilled Amounts Report (IBT RE-GEN UNBILLED REPORT)."
^DD(350.9,6.24,"DT")="2940929"
^DD(350.9,6.25,0)="UNBILLED MAIL GROUP^P3.8'^XMB(3.8,^6;25^Q"
^DD(350.9,6.25,3)="Enter the name of the mail group that should receive the Unbilled Amounts mail message."
^DD(350.9,6.25,21,0)="^^4^4^2941031^^"
^DD(350.9,6.25,21,1,0)="Enter the name of the mail group that will receive the monthly mail "
^DD(350.9,6.25,21,2,0)="message that contains the data for the unbilled amounts report."
^DD(350.9,6.25,21,3,0)="Generally this will include the Chief of Accounting and others "
^DD(350.9,6.25,21,4,0)="who are responsible for inputting the code sheets to Austin."
^DD(350.9,6.25,"DT")="2940929"
^DD(350.9,7.01,0)="AUTO BILLER FREQUENCY^NJ4,0^^7;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,7.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(350.9,7.01,21,0)="^^8^8^2931122^^^^"
^DD(350.9,7.01,21,1,0)="Enter the number of days between each execution of the automated biller."
^DD(350.9,7.01,21,2,0)="For example, if the auto biller should run only once a week, enter 7."
^DD(350.9,7.01,21,3,0)="If the auto biller should run every night, enter 1."
^DD(350.9,7.01,21,4,0)=" "
^DD(350.9,7.01,21,5,0)="This will not effect the date range of the bills themselves, but will"
^DD(350.9,7.01,21,6,0)="only effect the date they are created."
^DD(350.9,7.01,21,7,0)=" "
^DD(350.9,7.01,21,8,0)="If this is left blank or zero then the auto biller will never run."
^DD(350.9,7.01,"DT")="2931021"
^DD(350.9,7.02,0)="LAST AUTO BILLER DATE^D^^7;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,7.02,3)="This is the last date on which the auto biller ran."
^DD(350.9,7.02,21,0)="^^1^1^2931021^"
^DD(350.9,7.02,21,1,0)="This is generally set by the system."
^DD(350.9,7.02,"DT")="2931021"
^DD(350.9,7.03,0)="INPATIENT STATUS (AB)^S^1:Closed;2:Released;3:Transmitted;^7;3^Q"
^DD(350.9,7.03,3)="Enter the Status that an Inpatients PTF record should have before the automated biller attempts to create a bill for that inpatient stay."
^DD(350.9,7.03,21,0)="^^9^9^2940125^^^^"
^DD(350.9,7.03,21,1,0)="This is the status that a PTF record must be in before the automated biller"
^DD(350.9,7.03,21,2,0)="will attempt to create an inpatient bill."
^DD(350.9,7.03,21,3,0)=" "
^DD(350.9,7.03,21,4,0)="The auto biller will use the Frequency, Billing Cycle and Days Delay"
^DD(350.9,7.03,21,5,0)="parameters to decide when to try to create an inpatient bill.  However,"
^DD(350.9,7.03,21,6,0)="the auto biller can not set up a bill until the PTF record is Closed."
^DD(350.9,7.03,21,7,0)="Of the two dates, the date calculated from the site parameters or the date"
^DD(350.9,7.03,21,8,0)="that the PTF record meets the Status entered here, the bill will be created"
^DD(350.9,7.03,21,9,0)="on the later date."
^DD(350.9,7.03,23,0)="^^12^12^2940125^^^^"
^DD(350.9,7.03,23,1,0)="This set of codes should exactly mirror the PTF Status (45,6) set of "
^DD(350.9,7.03,23,2,0)="codes, except for Open."
^DD(350.9,7.03,23,3,0)=" "
^DD(350.9,7.03,23,4,0)="Some sites want to wait until the PTF is closed before a bill is created"
^DD(350.9,7.03,23,5,0)="because they know it will be coded at that time.  Others do not want to"
^DD(350.9,7.03,23,6,0)="bill until the PTF record has been transmitted and they know that it is"
^DD(350.9,7.03,23,7,0)="complete."
^DD(350.9,7.03,23,8,0)=" "
^DD(350.9,7.03,23,9,0)="After this had been added it was decided that an auto bill should not be"
^DD(350.9,7.03,23,10,0)="created for inpatients until after the PTF record has been closed."
^DD(350.9,7.03,23,11,0)="So, the option of creating an auto bill when the PTF record was still open"
^DD(350.9,7.03,23,12,0)="was removed."
^DD(350.9,7.03,"DT")="2940125"
^DD(350.9,7.04,0)="NUMBER OF DAYS PT CHARGES HELD^RNJ2,0^^7;4^K:+X'=X!(X>90)!(X<90)!(X?.E1"".""1N.N) X"
^DD(350.9,7.04,3)="VA Policy determines number of days charges are held before auto-release."
^DD(350.9,7.04,21,0)="^.001^5^5^3011010^^^^"
^DD(350.9,7.04,21,1,0)="Patient charges with a status of ON HOLD will be automatically released to"
^DD(350.9,7.04,21,2,0)="the Accounts Receivable package after this number of days has passed.  The"
^DD(350.9,7.04,21,3,0)="MCCR Program Office has determined that charges will be released after"
^DD(350.9,7.04,21,4,0)="this number days if no payment has been received from the patient's"
^DD(350.9,7.04,21,5,0)="insurance carrier for the episode of care."
^DD(350.9,7.04,"DT")="3011011"
^DD(350.9,8.01,0)="LIVE TRANSMIT 837 QUEUE^F^^8;1^K:$L(X)>40!($L(X)<3) X"
^DD(350.9,8.01,3)="Answer with the name (3-40 characters) of the 837 transmit live queue."
^DD(350.9,8.01,21,0)="^^2^2^2970602^^^^"
^DD(350.9,8.01,21,1,0)="This is the name of the transmission queue that will be used to send live"
^DD(350.9,8.01,21,2,0)="837 transactions to Austin."
^DD(350.9,8.01,"DT")="2970602"
^DD(350.9,8.02,0)="DAYS TO WAIT TO PURGE MSGS^NJ3,0^^8;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,8.02,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(350.9,8.02,21,0)="^.001^3^3^3010305^^"
^DD(350.9,8.02,21,1,0)="This is the # of days after an electronic status message has been marked"
^DD(350.9,8.02,21,2,0)="as having been reviewed that the purge message option can delete it from"
^DD(350.9,8.02,21,3,0)="the BILL STATUS MESSAGE file (#361)."
^DD(350.9,8.02,"DT")="3010305"
^DD(350.9,8.03,0)="AUTO TRANSMIT BILL FREQUENCY^NJ4,0^^8;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,8.03,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(350.9,8.03,21,0)="^^8^8^3000314^^^^"
^DD(350.9,8.03,21,1,0)="This is the desired number of days between each execution of the automated"
^DD(350.9,8.03,21,2,0)="bill transmitter where all bills in the BILL TRANSMIT file that are in a"
^DD(350.9,8.03,21,3,0)="status of READY FOR EXTRACT will be extracted and sent to the queue for"
^DD(350.9,8.03,21,4,0)="electronic processing.  For example, if the automated bill transmitter"
^DD(350.9,8.03,21,5,0)="should run only once a week, this number would be 7.  If the automated bill"
^DD(350.9,8.03,21,6,0)="transmitter should run every night, then the number should be 1.  If this"
^DD(350.9,8.03,21,7,0)="is left blank or zero then the automated bill transmitter background job"
^DD(350.9,8.03,21,8,0)="will never run."
^DD(350.9,8.03,"DT")="2960102"
^DD(350.9,8.04,0)="MAX # BILLS IN A BATCH^NJ2,0^^8;4^K:+X'=X!(X>50)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,8.04,3)="Type a Number between 1 and 50, 0 Decimal Digits"
^DD(350.9,8.04,21,0)="^^5^5^2960209^"
^DD(350.9,8.04,21,1,0)="The maximum number of bills to be allowed to be batched together for"
^DD(350.9,8.04,21,2,0)="transmission purposes.  This should be kept to a manageable level as when"
^DD(350.9,8.04,21,3,0)="one bill in a batch is rejected, the entire batch is returned to the site"
^DD(350.9,8.04,21,4,0)="unprocessed.  However, one bill per batch is very inefficient for"
^DD(350.9,8.04,21,5,0)="transmission purposes."
^DD(350.9,8.04,"DT")="2990429"
^DD(350.9,8.05,0)="LAST 837 AUTO-TRANSMIT DATE^D^^8;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,8.05,3)="Enter the last date that the auto-transmit of bills ran at this facility."
^DD(350.9,8.05,21,0)="^^1^1^2960306^"
^DD(350.9,8.05,21,1,0)="This is the last date that the auto-transmit of bills ran at this facility."
^DD(350.9,8.05,"DT")="2960313"
^DD(350.9,8.06,0)="HOURS TO TRANSMIT BILLS^FX^^8;6^K:$L(X)>19!($L(X)<4)!'(X?4N!(X?4N1"";""4N)!(X?4N1"";""4N1"";""4N)!(X?4N1"";""4N1"";""4N1"";""4N)) X I $D(X) N Z F Z=1:1:4 Q:'$D(X)!($P(X,"";"",Z)="""")  K:$P(X,"";"",Z)>2400 X"
^DD(350.9,8.06,3)="Enter 1-4 times of the day (military format, separated by ;) when EDI bill transmit should run"
^DD(350.9,8.06,4)=""
^DD(350.9,8.06,21,0)="^.001^10^10^3010424^^^"
^DD(350.9,8.06,21,1,0)="This field contains the times of the day when EDI transmission of"
^DD(350.9,8.06,21,2,0)="bills should occur.  There is a maximum of 4 times that may be entered"
^DD(350.9,8.06,21,3,0)="and each time must be separated from the previous one by a semi-colon."
^DD(350.9,8.06,21,4,0)="Times must be entered in 4 digit military format, without punctuation"
^DD(350.9,8.06,21,5,0)="as indicated: HHMM;HHMM;HHMM;HHMM.  The IB nightly job will queue "
^DD(350.9,8.06,21,6,0)="1-4 jobs to automatically start EDI transmission at these designated"
^DD(350.9,8.06,21,7,0)="times for that day if the time is after the time the nightly job is"
^DD(350.9,8.06,21,8,0)="running.  If the time is before the time the nightly job is running,"
^DD(350.9,8.06,21,9,0)="the transmission is queued for the following day.  If no times are"
^DD(350.9,8.06,21,10,0)="entered, EDI transmission will take place as part of the nightly job."
^DD(350.9,8.06,"DT")="3010424"
^DD(350.9,8.07,0)="ONLY 1 INS CO PER CLAIM BATCH^S^1:YES;0:NO;^8;7^Q"
^DD(350.9,8.07,.1)=""
^DD(350.9,8.07,3)="Enter YES if only 1 insurance company should be included in a claim batch"
^DD(350.9,8.07,21,0)="^^2^2^2981118^"
^DD(350.9,8.07,21,1,0)="This field indicates whether or not the site wishes to limit bill claim"
^DD(350.9,8.07,21,2,0)="batches to contain only a single insurance company."
^DD(350.9,8.07,"DT")="2981123"
^DD(350.9,8.09,0)="TEST TRANSMIT 837 QUEUE^F^^8;9^K:$L(X)>40!($L(X)<3) X"
^DD(350.9,8.09,3)="Answer with the name (3-40 characters) of the 837 transmit test queue."
^DD(350.9,8.09,21,0)="^^2^2^2970602^"
^DD(350.9,8.09,21,1,0)="This is the name of the transmission queue that will be used to send test"
^DD(350.9,8.09,21,2,0)="837 transactions to Austin."
^DD(350.9,8.09,"DT")="2970602"
^DD(350.9,8.1,0)="EDI/MRA ACTIVATED^S^0:NOT EDI OR MRA;1:EDI ONLY;2:MRA ONLY;3:BOTH EDI AND MRA;^8;10^Q"
^DD(350.9,8.1,1,0)="^.1"
^DD(350.9,8.1,1,1,0)="^^TRIGGER^350.9^8.13"
^DD(350.9,8.1,1,1,1)="X ^DD(350.9,8.1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(350.9,D0,8)):^(8),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^IBE(350.9,DIV(0),8)),DIV=X S $P(^(8),U,13)=DIV,DIH=350.9,DIG=8.13 D ^DICR"
^DD(350.9,8.1,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(350.9,D0,8)):^(8),1:"""") S X=$P(Y(1),U,13)="""",Y(2)=$G(X),Y(3)=$G(X) S X=Y(0),X=X S X=X>1,Y=X,X=Y(2),X=X&Y"
^DD(350.9,8.1,1,1,2)="Q"
^DD(350.9,8.1,1,1,"CREATE CONDITION")="(DATE MRA FIRST ACTIVATED="""")&(INTERNAL(EDI/MRA ACTIVATED)>1)"
^DD(350.9,8.1,1,1,"CREATE VALUE")="TODAY"
^DD(350.9,8.1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(350.9,8.1,1,1,"DT")="3031204"
^DD(350.9,8.1,1,1,"FIELD")="`8.13"
^DD(350.9,8.1,3)="Enter the status of EDI/MRA you want to exist at your site"
^DD(350.9,8.1,21,0)="^^2^2^2990913^^"
^DD(350.9,8.1,21,1,0)="This parameter controls whether EDI and/or requests for MRA are available"
^DD(350.9,8.1,21,2,0)="functions for your site."
^DD(350.9,8.1,"DT")="3031204"
^DD(350.9,8.11,0)="AUTOMATIC MRA EOB PROCESS?^S^0:NO;1:YES;^8;11^Q"
^DD(350.9,8.11,.1)="Enable Automatic MRA Processing?"
^DD(350.9,8.11,3)="Enter Yes or No"
^DD(350.9,8.11,21,0)="^^8^8^3030428^"
^DD(350.9,8.11,21,1,0)="This field controls whether or not incoming Medicare Remittance"
^DD(350.9,8.11,21,2,0)="Advice (MRA) EOB's can be automatically processed so that the"
^DD(350.9,8.11,21,3,0)="secondary bill is automatically generated and automatically"
^DD(350.9,8.11,21,4,0)="authorized and sent to the secondary payer."
^DD(350.9,8.11,21,5,0)=" "
^DD(350.9,8.11,21,6,0)="If this field is NO, then all incoming MRA EOB's will remain"
^DD(350.9,8.11,21,7,0)="on the MRA management worklist and manual processing of the"
^DD(350.9,8.11,21,8,0)="MRA EOB's will be necessary."
^DD(350.9,8.11,"DT")="3030828"
^DD(350.9,8.12,0)="ALLOW MRA EOB PROCESSING?^S^0:NO;1:YES;^8;12^Q"
^DD(350.9,8.12,.1)="Allow MRA Processing?"
^DD(350.9,8.12,3)="Enter Yes or No"
^DD(350.9,8.12,21,0)="^^6^6^3030828^"
^DD(350.9,8.12,21,1,0)="This field controls whether or not Medicare Remittance Advice"
^DD(350.9,8.12,21,2,0)="(MRA) EOB's are allowed to be processed so that a bill can become"
^DD(350.9,8.12,21,3,0)="a secondary bill and be authorized to the secondary payer."
^DD(350.9,8.12,21,4,0)=" "
^DD(350.9,8.12,21,5,0)="This field is checked by both the manual Process COB action from"
^DD(350.9,8.12,21,6,0)="the MRA management worklist and also by the automatic MRA process."
^DD(350.9,8.12,"DT")="3030828"
^DD(350.9,8.13,0)="DATE MRA FIRST ACTIVATED^D^^8;13^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(350.9,8.13,3)="(No range limit on date)"
^DD(350.9,8.13,5,1,0)="350.9^8.1^1"
^DD(350.9,8.13,21,0)="^^1^1^3040604^"
^DD(350.9,8.13,21,1,0)="This is the date Medicare Remittance Advice (MRA) was activated at site."
^DD(350.9,8.13,"DT")="3040604"
^DD(350.9,9.01,0)="BILLING PORT^F^^9;1^K:$L(X)>15!($L(X)<3) X"
^DD(350.9,9.01,3)="Answer must be 3-15 characters in length."
^DD(350.9,9.01,21,0)="^^4^4^3040512^"
^DD(350.9,9.01,21,1,0)="This is the logical port which is opened to transmit pharmacy"
^DD(350.9,9.01,21,2,0)="transactions to the TRICARE fiscal intermediary.  If there is"
^DD(350.9,9.01,21,3,0)="no value in this field, the Pharmacy billing engine cannot"
^DD(350.9,9.01,21,4,0)="be started."
^DD(350.9,9.01,"DT")="3040512"
^DD(350.9,9.02,0)="AWP PORT^F^^9;2^K:$L(X)>15!($L(X)<3) X"
^DD(350.9,9.02,3)="Answer must be 3-15 characters in length."
^DD(350.9,9.02,21,0)="^^3^3^3040512^"
^DD(350.9,9.02,21,1,0)="This is the logical port which is opened to receive AWP updates"
^DD(350.9,9.02,21,2,0)="from the TRICARE fiscal intermediary.  If this field has no value,"
^DD(350.9,9.02,21,3,0)="the AWP update engine cannot be started."
^DD(350.9,9.02,"DT")="3040512"
^DD(350.9,9.03,0)="TCP/IP ADDRESS^F^^9;3^K:$L(X)>20!($L(X)<3) X"
^DD(350.9,9.03,3)="Answer must be 3-20 characters in length."
^DD(350.9,9.03,21,0)="^^3^3^2960819^"
^DD(350.9,9.03,21,1,0)="This field holds the TCP/IP address needed to reach the Pharmacy"
^DD(350.9,9.03,21,2,0)="billing commercial software package.  The billing interface cannot"
^DD(350.9,9.03,21,3,0)="be started if there is no value on this field."
^DD(350.9,9.03,"DT")="2960819"
^DD(350.9,9.04,0)="PRIMARY BILLING TASK^F^^9;4^K:$L(X)>15!($L(X)<1) X"
^DD(350.9,9.04,3)="Answer must be 1-15 characters in length."
^DD(350.9,9.04,21,0)="^^5^5^2960819^"
^DD(350.9,9.04,21,1,0)="This is the task number for the primary billing transaction"
^DD(350.9,9.04,21,2,0)="engine which communicates with the Pharmacy billing commercial"
^DD(350.9,9.04,21,3,0)="software package.  This field will be deleted during an"
^DD(350.9,9.04,21,4,0)="orderly shutdown or when an error occurs.  If this field is deleted,"
^DD(350.9,9.04,21,5,0)="the secondary billing job will become the primary."
^DD(350.9,9.04,"DT")="2960819"
^DD(350.9,9.05,0)="SECONDARY BILLING TASK^F^^9;5^K:$L(X)>15!($L(X)<1) X"
^DD(350.9,9.05,3)="Answer must be 1-15 characters in length."
^DD(350.9,9.05,21,0)="^^3^3^2960819^"
^DD(350.9,9.05,21,1,0)="This is the task number for the secondary billing transaction"
^DD(350.9,9.05,21,2,0)="engine.  This task is normally idled and becomes activated if"
^DD(350.9,9.05,21,3,0)="the primary task errors out."
^DD(350.9,9.05,"DT")="2960819"
^DD(350.9,9.06,0)="PRIMARY AWP TASK^F^^9;6^K:$L(X)>15!($L(X)<1) X"
^DD(350.9,9.06,3)="Answer must be 1-15 characters in length."
^DD(350.9,9.06,21,0)="^^5^5^2960819^"
^DD(350.9,9.06,21,1,0)="This is the task number for the primary AWP update task.  This"
^DD(350.9,9.06,21,2,0)="task communicates with the Pharmacy billing commercial software"
^DD(350.9,9.06,21,3,0)="package to receive updates to the AWP (Average Wholesale Pricelist)."
^DD(350.9,9.06,21,4,0)="If this field becomes null, the secondary task will become the"
^DD(350.9,9.06,21,5,0)="primary task."
^DD(350.9,9.06,"DT")="2960819"
^DD(350.9,9.07,0)="SECONDARY AWP TASK^F^^9;7^K:$L(X)>15!($L(X)<1) X"
^DD(350.9,9.07,3)="Answer must be 1-15 characters in length."
^DD(350.9,9.07,21,0)="^^3^3^2960819^"
^DD(350.9,9.07,21,1,0)="This is the task number for the secondary AWP update task.  This"
^DD(350.9,9.07,21,2,0)="task is normally idled and becomes activated if the primary task"
^DD(350.9,9.07,21,3,0)="errors out."
^DD(350.9,9.07,"DT")="2960819"
^DD(350.9,9.08,0)="DATE PRIMARY TASK STARTED^D^^9;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,9.08,21,0)="^^2^2^2960819^"
^DD(350.9,9.08,21,1,0)="This is the date/time in which the primary billing transaction"
^DD(350.9,9.08,21,2,0)="engine began running."
^DD(350.9,9.08,"DT")="2960819"
^DD(350.9,9.09,0)="DATE PRIMARY TASK LAST RAN^D^^9;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,9.09,3)=""
^DD(350.9,9.09,21,0)="^^2^2^2960819^"
^DD(350.9,9.09,21,1,0)="This date/time is the last time that the primary billing transaction"
^DD(350.9,9.09,21,2,0)="engine passed a transaction to the commercial software package."
^DD(350.9,9.09,"DT")="2960819"
^DD(350.9,9.1,0)="SHUTDOWN BACKGROUND JOBS^S^0:NO;1:YES;^9;10^Q"
^DD(350.9,9.1,21,0)="^^3^3^2960819^"
^DD(350.9,9.1,21,1,0)="This field will be used to control both the Billing transaction"
^DD(350.9,9.1,21,2,0)="and AWP update tasks.  If this field is set to Yes, both of these"
^DD(350.9,9.1,21,3,0)="sets of jobs will shutdown in an orderly fashion."
^DD(350.9,9.1,"DT")="2960819"
^DD(350.9,9.11,0)="TASK UCI,VOL^F^^9;11^K:$L(X)>12!($L(X)<3) X"
^DD(350.9,9.11,3)="Answer must be 3-12 characters in length."
^DD(350.9,9.11,21,0)="^^2^2^2960819^"
^DD(350.9,9.11,21,1,0)="If this field has a value, this will be the volume and uci"
^DD(350.9,9.11,21,2,0)="in which the engines will be tasked to run."
^DD(350.9,9.11,"DT")="2960819"
^DD(350.9,9.12,0)="AWP CHARGE SET^*P363.1'^IBE(363.1,^9;12^S DIC(""S"")=""I +$$CSBI^IBCRU3(Y)=3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(350.9,9.12,12)="This screen only allows Charge Sets which are based on NDC numbers."
^DD(350.9,9.12,12.1)="S DIC(""S"")=""I +$$CSBI^IBCRU3(Y)=3"""
^DD(350.9,9.12,21,0)="^^3^3^3040512^"
^DD(350.9,9.12,21,1,0)="The value of this field points to a Charge Set in file #363.1 which"
^DD(350.9,9.12,21,2,0)="will be used to retrieve the Average Wholesale Price (AWP) of a"
^DD(350.9,9.12,21,3,0)="drug when the TRICARE Pharmacy Billing software interface is running."
^DD(350.9,9.12,"DT")="3040512"
^DD(350.9,9.13,0)="PRESCRIBER ID^F^^9;13^K:$L(X)>15!($L(X)<3) X"
^DD(350.9,9.13,3)="Answer must be 3-15 characters in length."
^DD(350.9,9.13,21,0)="^^6^6^3040512^"
^DD(350.9,9.13,21,1,0)="The Prescriber ID is assigned by the TRICARE fiscal intermediary"
^DD(350.9,9.13,21,2,0)="to a facility.  The ID is used in the TRICARE pharmacy billing"
^DD(350.9,9.13,21,3,0)="transmission to identify the facility to the intermediary."
^DD(350.9,9.13,21,4,0)=" "
^DD(350.9,9.13,21,5,0)="There must be a value in this field in order to start the TRICARE"
^DD(350.9,9.13,21,6,0)="pharmacy billing interface task."
^DD(350.9,9.13,23,0)="^^2^2^3001120^"
^DD(350.9,9.13,23,1,0)=" "
^DD(350.9,9.13,23,2,0)=" "
^DD(350.9,9.13,"DT")="3040512"
^DD(350.9,9.14,0)="DEA# OVERRIDE PRESC. ID ^S^0:NO;1:YES;^9;14^Q"
^DD(350.9,9.14,3)="Answering YES to this field will send the DEA# from the New Person file (if available) to the fiscal intermediary as the provider reference in place of the Prescriber ID."
^DD(350.9,9.14,21,0)="^.001^6^6^3010124^^^^"
^DD(350.9,9.14,21,1,0)="Answering yes to this field, causes the DEA# from the NEW PERSON (#200) "
^DD(350.9,9.14,21,2,0)="file to override the Prescriber ID as the provider reference sent to"
^DD(350.9,9.14,21,3,0)="the fiscal intermediary when billing Tricare RX.  If this field is"
^DD(350.9,9.14,21,4,0)="answered as NO, left unanswered, or answered YES but the DEA# is not "
^DD(350.9,9.14,21,5,0)="available for the  provider, then the Prescriber ID is sent as the "
^DD(350.9,9.14,21,6,0)="provider reference."
^DD(350.9,9.14,23,0)="^.001^1^1^3010124^^^^"
^DD(350.9,9.14,23,1,0)=" "
^DD(350.9,9.14,"DT")="3001121"
^DD(350.9,9.15,0)="PHARM CALC COMPOUND CODE^S^0:NO;1:YES;^9;15^Q"
^DD(350.9,9.15,3)="Answering YES to this field, will use the values calculated in the pharmacy package for compound code to be sent to the fiscal intermediary (1 or 2) instead of a zero."
^DD(350.9,9.15,21,0)="^.001^5^5^3010124^^^^"
^DD(350.9,9.15,21,1,0)="Answering YES to this prompt will send the values calculated in the"
^DD(350.9,9.15,21,2,0)="Pharmacy package, for compound code, to the fiscal intermediary when "
^DD(350.9,9.15,21,3,0)="billing Tricare RX.  Pharmacy evaluates the drug to be either a "
^DD(350.9,9.15,21,4,0)="compound drug ( code=2 ) or a non compound drug ( code = 1 ).  "
^DD(350.9,9.15,21,5,0)="If this field is left blank or is answered NO, a code of 0 will be sent."
^DD(350.9,9.15,23,0)="^.001^2^2^3010124^^^"
^DD(350.9,9.15,23,1,0)=" "
^DD(350.9,9.15,23,2,0)=" "
^DD(350.9,9.15,"DT")="3001120"
^DD(350.9,10.01,0)="PATIENT OR FACILITY^V^^10;1^Q"
^DD(350.9,10.01,3)="You can just type in a PATIENT or FACILITY name."
^DD(350.9,10.01,21,0)="^^4^4^3000518^"
^DD(350.9,10.01,21,1,0)="This field definition is used by the Patient or Preferred Facility"
^DD(350.9,10.01,21,2,0)="selection when using the FileMan Reader only. "
^DD(350.9,10.01,21,3,0)=" "
^DD(350.9,10.01,21,4,0)="No data needs to be set in this field."
^DD(350.9,10.01,"DT")="2990219"
^DD(350.9,10.01,"V",0)="^.12P^2^2"
^DD(350.9,10.01,"V",1,0)="351.6^Patient^1^P^n^n"
^DD(350.9,10.01,"V",2,0)="4^Facility^2^F^y^n"
^DD(350.9,10.01,"V",2,1)="S DIC(""S"")=""I $$SCR^IBATUTL(Y)"""
^DD(350.9,10.01,"V",2,2)="Only valid Facilities"
^DD(350.9,10.01,"V","B",4,2)=""
^DD(350.9,10.01,"V","B",351.6,1)=""
^DD(350.9,10.01,"V","M","Facility",2)=""
^DD(350.9,10.01,"V","M","Patient",1)=""
^DD(350.9,10.01,"V","O",1,1)=""
^DD(350.9,10.01,"V","O",2,2)=""
^DD(350.9,10.01,"V","P","F",2)=""
^DD(350.9,10.01,"V","P","P",1)=""
^DD(350.9,10.02,0)="TP INPATIENT ACTIVE^S^0:NO;1:YES;^10;2^Q"
^DD(350.9,10.02,3)="Choose to activitate this software for Inpatient."
^DD(350.9,10.02,21,0)="^.001^3^3^3000518^^"
^DD(350.9,10.02,21,1,0)="This flag will identify if the facility has Transfer Pricing turned on"
^DD(350.9,10.02,21,2,0)="for Inpatient tracking. If this field is blank, Transfer Pricing will be"
^DD(350.9,10.02,21,3,0)="off for Inpatient tracking."
^DD(350.9,10.02,"DT")="3000407"
^DD(350.9,10.03,0)="TP OUTPATIENT ACTIVE^S^0:NO;1:YES;^10;3^Q"
^DD(350.9,10.03,3)="Choose to activitate this software for Outpatient."
^DD(350.9,10.03,21,0)="^^3^3^3000407^"
^DD(350.9,10.03,21,1,0)="This flag will identify if the facility has Transfer Pricing turned on"
^DD(350.9,10.03,21,2,0)="for Outpatient tracking. If this field is blank, Transfer Pricing will be"
^DD(350.9,10.03,21,3,0)="off for Outpatient tracking."
^DD(350.9,10.03,"DT")="3000407"
^DD(350.9,10.04,0)="TP PHARMACY ACTIVE^S^0:NO;1:YES;^10;4^Q"
^DD(350.9,10.04,3)="Choose to activitate this software for Pharmacy."
^DD(350.9,10.04,21,0)="^^3^3^3000407^"
^DD(350.9,10.04,21,1,0)="This flag will identify if the facility has Transfer Pricing turned on"
^DD(350.9,10.04,21,2,0)="for Prescription tracking. If this field is blank, Transfer Pricing will"
^DD(350.9,10.04,21,3,0)="be off for Prescription tracking."
^DD(350.9,10.04,"DT")="3000407"
^DD(350.9,10.05,0)="TP PROSTHETICS ACTIVE^S^0:NO;1:YES;^10;5^Q"
^DD(350.9,10.05,3)="Choose to activitate this software for Prosthetics."
^DD(350.9,10.05,21,0)="^^3^3^3000518^"
^DD(350.9,10.05,21,1,0)="This flag will identify if the facility has Transfer Pricing turned on for"
^DD(350.9,10.05,21,2,0)="Prosthetics tracking. If this field is blank, Transfer Pricing will be off"
^DD(350.9,10.05,21,3,0)="for Prosthetics tracking."
^DD(350.9,10.05,"DT")="3000411"
^DD(350.9,11.01,0)="HIPAA NCPDP ACTIVE FLAG^Sa^1:Active;0:Not Active;^11;1^Q"
^DD(350.9,11.01,3)="e-Pharmacy interface active?  Enter 'A' for Active or 'N' for not active."
^DD(350.9,11.01,21,0)="^.001^1^1^3040727^^^^"
^DD(350.9,11.01,21,1,0)="This field is used to activate the e-Pharmacy interface."
^DD(350.9,11.01,"AUDIT")="e"
^DD(350.9,11.01,"DT")="3040409"
^DD(350.9,50.01,0)="RUNNING CLAIMSMANAGER?^S^1:YES;0:NO;^50;1^Q"
^DD(350.9,50.01,21,0)="^.001^2^2^3010316^^^"
^DD(350.9,50.01,21,1,0)="This field will contain a 1 if the site is running the Ingenix"
^DD(350.9,50.01,21,2,0)="ClaimsManager interface and software and a 0 or """" if it is not."
^DD(350.9,50.01,"DT")="3010316"
^DD(350.9,50.02,0)="CLAIMSMANAGER WORKING OK?^S^1:YES;0:NO;^50;2^Q"
^DD(350.9,50.02,21,0)="^.001^4^4^3010316^^"
^DD(350.9,50.02,21,1,0)="This field will normally contain a 1 (yes), but may be set to 0 (no) in"
^DD(350.9,50.02,21,2,0)="order to halt the processing of claims through ClaimsManager.  This would "
^DD(350.9,50.02,21,3,0)="normally be used to correct a communication problem or any other problem"
^DD(350.9,50.02,21,4,0)="that was preventing the claim from processing in ClaimsManager."
^DD(350.9,50.02,"DT")="3010316"
^DD(350.9,50.03,0)="GENERAL ERROR MSG MAIL GROUP^P3.8'^XMB(3.8,^50;3^Q"
^DD(350.9,50.03,21,0)="^.001^4^4^3010316^^"
^DD(350.9,50.03,21,1,0)="This field will point to the mail group that will receive the error"
^DD(350.9,50.03,21,2,0)="messages to be received at the user level.  If more than one mail group"
^DD(350.9,50.03,21,3,0)="is desired, they may be added as a REMOTE USER in the mail group that"
^DD(350.9,50.03,21,4,0)="is entered in this field."
^DD(350.9,50.03,"DT")="3010105"
^DD(350.9,50.04,0)="COMM ERR MSG MAIL GROUP^P3.8'^XMB(3.8,^50;4^Q"
^DD(350.9,50.04,21,0)="^.001^3^3^3010316^^"
^DD(350.9,50.04,21,1,0)="This field will point to the mail group that will receive messages that a"
^DD(350.9,50.04,21,2,0)="Communication Error exists.  This would normally include the technical"
^DD(350.9,50.04,21,3,0)="support personnel."
^DD(350.9,50.04,"DT")="3010105"
^DD(350.9,50.05,0)="CLAIMSMANAGER TCP/IP^F^^50;5^K:$L(X)>20!($L(X)<3) X"
^DD(350.9,50.05,3)="Answer must be 3-20 characters in length."
^DD(350.9,50.05,21,0)="^.001^1^1^3010316^^"
^DD(350.9,50.05,21,1,0)="This is the tcp/ip address for the Ingenix ClaimsManager server."
^DD(350.9,50.05,"DT")="3010316"
^DD(350.9,50.06,0)="CLAIMSMANAGER PORTS^350.9001^^50.06;0"
^DD(350.9,50.06,21,0)="^^1^1^3010316^"
^DD(350.9,50.06,21,1,0)="This is the ports used by the Ingenix ClaimsManager."
^DD(350.9,50.06,"DT")="3010316"
^DD(350.9,50.07,0)="MAILMAN MESSAGE FLAG^S^P:PRIORITY;N:NORMAL;^50;7^Q"
^DD(350.9,50.07,3)="Please choose the type of MailMan message to be used."
^DD(350.9,50.07,21,0)="^^4^4^3010831^"
^DD(350.9,50.07,21,1,0)="This field is either 'P' for Priority MailMan messages or 'N' for"
^DD(350.9,50.07,21,2,0)="Normal MailMan messages.  This only applies to the MailMan messages"
^DD(350.9,50.07,21,3,0)="that are created and sent when one user is assigning a bill to"
^DD(350.9,50.07,21,4,0)="another user."
^DD(350.9,50.07,"DT")="3010831"
^DD(350.9,51.01,0)="FRESHNESS DAYS^RNJ3,0^^51;1^K:+X'=X!(X>180)!(X<7)!(X?.E1"".""1N.N) X"
^DD(350.9,51.01,3)="Enter the number of days data remains ""fresh"". Type a Number between 7 and 180."
^DD(350.9,51.01,21,0)="^.001^12^12^3020911^^"
^DD(350.9,51.01,21,1,0)="This parameter determines how ""fresh"" the insurance verification"
^DD(350.9,51.01,21,2,0)="This field is a parameter that is used by two of the data extracts"
^DD(350.9,51.01,21,3,0)="to determine whether a record should be extracted or not."
^DD(350.9,51.01,21,4,0)=" "
^DD(350.9,51.01,21,5,0)="For both the Insurance Buffer extract and the Appointment extract,"
^DD(350.9,51.01,21,6,0)="this represents how long to wait before IIV can attempt to reverify"
^DD(350.9,51.01,21,7,0)="the same insurance for that patient."
^DD(350.9,51.01,21,8,0)=" "
^DD(350.9,51.01,21,9,0)="If the value is 10, this means that IIV can attempt to reverify "
^DD(350.9,51.01,21,10,0)="insurance for a patient 11 days after the most recently inquired"
^DD(350.9,51.01,21,11,0)="date.  A specific date is always asked of the payer when trying to"
^DD(350.9,51.01,21,12,0)="identify patients eligibility."
^DD(350.9,51.01,"DT")="3020605"
^DD(350.9,51.02,0)="DAILY MAILMAN MSG^S^1:YES;0:NO;^51;2^Q"
^DD(350.9,51.02,3)="Answer 'Yes' if the daily IIV Statistical Report should be sent via MailMan."
^DD(350.9,51.02,21,0)="^.001^4^4^3030408^^^"
^DD(350.9,51.02,21,1,0)="This field determines whether the daily IIV Statistical Report "
^DD(350.9,51.02,21,2,0)="should be sent via MailMan.  This report contains information "
^DD(350.9,51.02,21,3,0)="about the electronic insurance verification process - both"
^DD(350.9,51.02,21,4,0)="inquiries and responses."
^DD(350.9,51.02,"DT")="3020605"
^DD(350.9,51.03,0)="DAILY MSG TIME^FX^^51;3^K:(X'?4N)!('X)!(X>2400)!($E(X,3,4)'<60) X"
^DD(350.9,51.03,3)="This is the time of day to generate the daily IIV Statistical Report sent via MailMan.  The time must be in four digit military format."
^DD(350.9,51.03,21,0)="^^3^3^3020819^"
^DD(350.9,51.03,21,1,0)="Enter the time in four digit military format."
^DD(350.9,51.03,21,2,0)=" "
^DD(350.9,51.03,21,3,0)="Examples:  0100 = 1 AM  1300 = 1 PM"
^DD(350.9,51.03,"DT")="3020708"
^DD(350.9,51.04,0)="MESSAGES MAILGROUP^RP3.8'^XMB(3.8,^51;4^Q"
^DD(350.9,51.04,3)="Select the mail group to whom eIIV messages are sent."
^DD(350.9,51.04,21,0)="^^2^2^3020819^"
^DD(350.9,51.04,21,1,0)="This field identifies the mail group to whom the daily IIV "
^DD(350.9,51.04,21,2,0)="Statistical Report and eIIV error messages will be sent via MailMan."
^DD(350.9,51.04,"DT")="3020812"
^DD(350.9,51.05,0)="TIMEOUT DAYS^NJ1,0^^51;5^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,51.05,3)="Enter the number of days that will define a communication timeout.  Enter a number between 1 and 7."
^DD(350.9,51.05,21,0)="^^2^2^3020819^"
^DD(350.9,51.05,21,1,0)="This field defines how many days without an insurance response is"
^DD(350.9,51.05,21,2,0)="considered to be a communication timeout."
^DD(350.9,51.05,"DT")="3020819"
^DD(350.9,51.06,0)="NUMBER RETRIES^NJ1,0^^51;6^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""1N.N) X"
^DD(350.9,51.06,3)="Enter the number of times to retry an IIV transmission.  Enter a number between 0 and 5."
^DD(350.9,51.06,21,0)="^^6^6^3020828^"
^DD(350.9,51.06,21,1,0)="This field specifies how many retries to attempt when a communication"
^DD(350.9,51.06,21,2,0)="timeout occurs before it is considered a communication failure.  "
^DD(350.9,51.06,21,3,0)=" "
^DD(350.9,51.06,21,4,0)="An entry of zero indicates that when a communication timeout occurs,"
^DD(350.9,51.06,21,5,0)="no retries shall be attempted and the inquiry will be considered a"
^DD(350.9,51.06,21,6,0)="communication failure."
^DD(350.9,51.06,"DT")="3020605"
^DD(350.9,51.07,0)="TIMEOUT MAILMAN MSG^S^1:YES;0:NO;^51;7^Q"
^DD(350.9,51.07,3)="Enter 'Yes' if a MailMan message should be generated for each communication timeout."
^DD(350.9,51.07,21,0)="^^2^2^3020819^"
^DD(350.9,51.07,21,1,0)="This field allows the site to send a MailMan message for each"
^DD(350.9,51.07,21,2,0)="communication timeout."
^DD(350.9,51.07,"DT")="3020819"
^DD(350.9,51.08,0)="INQUIRE INACTIVE INSURANCE^S^1:YES;0:NO;^51;8^Q"
^DD(350.9,51.08,3)="Enter 'Yes' if a patient's inactive insurance shall be queried if no active insurance is found."
^DD(350.9,51.08,21,0)="^^3^3^3020819^"
^DD(350.9,51.08,21,1,0)="This field helps guide both the No Insurance data extract and"
^DD(350.9,51.08,21,2,0)="Appointment data extract to attempt to request information for"
^DD(350.9,51.08,21,3,0)="a patient's inactive insurance if no active insurance is found."
^DD(350.9,51.08,"DT")="3030408"
^DD(350.9,51.09,0)="INQUIRE POPULAR PAYERS^S^1:YES;0:NO;^51;9^Q"
^DD(350.9,51.09,3)="Enter 'Yes' if the most popular payers are to be queried if no active insurance is found for a patient."
^DD(350.9,51.09,21,0)="^^5^5^3031215^"
^DD(350.9,51.09,21,1,0)="This field guides both the No Insurance data extract and the"
^DD(350.9,51.09,21,2,0)="Appointment data extract to attempt to request information for"
^DD(350.9,51.09,21,3,0)="a patient, who has no previous insurance and/or no active"
^DD(350.9,51.09,21,4,0)="insurance in VISTA, based upon the list of Most Popular "
^DD(350.9,51.09,21,5,0)="Payers."
^DD(350.9,51.09,"DT")="3031215"
^DD(350.9,51.1,0)="NO. POPULAR PAYERS^NJ2,0^^51;10^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,51.1,3)="Enter the number of popular payers to query. Enter a number between 1 and 10."
^DD(350.9,51.1,21,0)="^^2^2^3031215^"
^DD(350.9,51.1,21,1,0)="This field is the number of the most popular payers that should"
^DD(350.9,51.1,21,2,0)="be queried if the Inquire Popular Payers parameter is set to 'Yes'."
^DD(350.9,51.1,"DT")="3031215"
^DD(350.9,51.11,0)="POPULAR INSUR CO. FROM DATE^D^^51;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,51.11,3)="Enter the date from which popular insurance companies will be selected."
^DD(350.9,51.11,21,0)="^^3^3^3031215^"
^DD(350.9,51.11,21,1,0)="This field is the date that the calculation of the Most Popular"
^DD(350.9,51.11,21,2,0)="Insurance Companies starts with when searching through"
^DD(350.9,51.11,21,3,0)="the Bill/Claims File (#399).  *** OBSOLETE - 12/15/2003 ***"
^DD(350.9,51.11,"DT")="3020605"
^DD(350.9,51.12,0)="POPULAR INSUR CO. THRU DATE^D^^51;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,51.12,3)="Enter the date through which popular insurance companies will be selected"
^DD(350.9,51.12,21,0)="^^3^3^3031215^"
^DD(350.9,51.12,21,1,0)="This field is the date that the calculation of the Most Popular"
^DD(350.9,51.12,21,2,0)="Insurance Companies ends with when searching through"
^DD(350.9,51.12,21,3,0)="the Bill/Claims File (#399). *** OBSOLETE - 12/15/2003 ***"
^DD(350.9,51.12,"DT")="3020605"
^DD(350.9,51.13,0)="HL7 RESPONSE PROCESSING^RS^B:Batch;I:Immediate;^51;13^Q"
^DD(350.9,51.13,3)="Enter 'I'mmediate for eIIV responses to be forwarded to VISTA immediately or 'B'atch to hold and batch the responses."
^DD(350.9,51.13,21,0)="^.001^5^5^3020820^^^"
^DD(350.9,51.13,21,1,0)="This field allows the site to tell the Eligibility Communicator how"
^DD(350.9,51.13,21,2,0)="eIIV responses should be returned to the site.  Batch means"
^DD(350.9,51.13,21,3,0)="that EC will hold all messages and return them between the HL7 Start"
^DD(350.9,51.13,21,4,0)="Time and HL7 Stop Time.  Immediate means that EC will return a"
^DD(350.9,51.13,21,5,0)="response as soon as it is received from the payer."
^DD(350.9,51.13,"DT")="3020819"
^DD(350.9,51.14,0)="HL7 START TIME^RFX^^51;14^K:(X'?4N)!('X)!(X>2400)!($E(X,3,4)'<60) X"
^DD(350.9,51.14,3)="Enter the time when EC will start relaying eIIV responses back to the site.  The time must be in four digit military format."
^DD(350.9,51.14,21,0)="^.001^7^7^3020828^^"
^DD(350.9,51.14,21,1,0)="Enter the time in military format.  This time represents when the"
^DD(350.9,51.14,21,2,0)="site has told the Eligibility Communicator to begin sending"
^DD(350.9,51.14,21,3,0)="eIIV responses to the site.  This field only applies when the HL7"
^DD(350.9,51.14,21,4,0)="Response Processing is set to 'B'atch processing.  It is recommended"
^DD(350.9,51.14,21,5,0)="that this be a time during low CPU processing."
^DD(350.9,51.14,21,6,0)=" "
^DD(350.9,51.14,21,7,0)="Examples:  0100 = 1 AM  1300 = 1 PM"
^DD(350.9,51.14,"DT")="3020819"
^DD(350.9,51.15,0)="HL7 MAXIMUM NUMBER^RNJ4,0^^51;15^K:+X'=X!(X>5000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(350.9,51.15,3)="Type a Number between 1 and 5000, 0 Decimal Digits"
^DD(350.9,51.15,21,0)="^^6^6^3051006^"
^DD(350.9,51.15,21,1,0)="This field allows a site to restrict the daily number of HL7"
^DD(350.9,51.15,21,2,0)="messages created and sent during the HL7 process for eIIV."
^DD(350.9,51.15,21,3,0)="This feature can be used to manage the amount of eIIV HL7"
^DD(350.9,51.15,21,4,0)="traffic flowing through the HL7 package. The value must be"
^DD(350.9,51.15,21,5,0)="at least 20 greater than the sum of ""Maximum # to Extract/Day"""
^DD(350.9,51.15,21,6,0)="for active extracts."
^DD(350.9,51.15,"DT")="3050418"
^DD(350.9,51.16,0)="CONTACT PERSON^RP200'^VA(200,^51;16^Q"
^DD(350.9,51.16,3)="This is the person that the Financial Services Center shall contact if there are communication problems."
^DD(350.9,51.16,21,0)="^^5^5^3030529^"
^DD(350.9,51.16,21,1,0)="This field identifies the person that the Financial Services Center"
^DD(350.9,51.16,21,2,0)="or the Eligibility Communicator shall contact if there are any"
^DD(350.9,51.16,21,3,0)="problems that need to be addressed; e.g. communication problems."
^DD(350.9,51.16,21,4,0)="  "
^DD(350.9,51.16,21,5,0)="This information will be sent nightly to FSC/EC to keep it up to date."
^DD(350.9,51.16,"DT")="3030529"
^DD(350.9,51.17,0)="BATCH EXTRACTS^350.9002S^^51.17;0"
^DD(350.9,51.17,21,0)="^.001^5^5^3030613^^^^"
^DD(350.9,51.17,21,1,0)="This field identifies each of the four data extracts that eIIV uses"
^DD(350.9,51.17,21,2,0)="to find insurance data via identification or verification inquiries."
^DD(350.9,51.17,21,3,0)=" "
^DD(350.9,51.17,21,4,0)="Extracts are defined for Insurance Buffer, Appointments, Non-Verified"
^DD(350.9,51.17,21,5,0)="Insurance and No Insurance information."
^DD(350.9,51.18,0)="POPULAR PAYERS^350.9003P^^51.18;0"
^DD(350.9,51.18,"DT")="3031215"
^DD(350.9,51.19,0)="HL7 STOP TIME^RFX^^51;19^K:(X'?4N)!('X)!(X>2400)!($E(X,3,4)'<60) X"
^DD(350.9,51.19,3)="Enter the time when EC will stop relaying eIIV responses back to the site.  The time must be in four digit military format."
^DD(350.9,51.19,21,0)="^.001^6^6^3020828^^^^"
^DD(350.9,51.19,21,1,0)="Enter the time in military format.  This time represents when the"
^DD(350.9,51.19,21,2,0)="site has told the Eligibility Communicator to stop sending"
^DD(350.9,51.19,21,3,0)="eIIV responses to the site.  This field only applies when the HL7"
^DD(350.9,51.19,21,4,0)="Response Processing is set to 'Batch' processing."
^DD(350.9,51.19,21,5,0)=" "
^DD(350.9,51.19,21,6,0)="Examples:  0100 = 1 AM  1300 = 1 PM"
^DD(350.9,51.19,"DT")="3020819"
^DD(350.9,51.2,0)="FAILURE MAILMAN MSG^S^1:YES;0:NO;^51;20^Q"
^DD(350.9,51.2,3)="Enter 'Yes' if a MailMan message should be generated when IIV is unable to electronically confirm the patient's insurance information due to a communications problem."
^DD(350.9,51.2,21,0)="^.001^3^3^3040503^^^^"
^DD(350.9,51.2,21,1,0)="This field allows the site to send a MailMan message for each "
^DD(350.9,51.2,21,2,0)="communication failure.  A communication failure is defined as"
^DD(350.9,51.2,21,3,0)="having exhausted all retries."
^DD(350.9,51.2,"DT")="3020820"
^DD(350.9,51.21,0)="MOST POPULAR LAST SAVE DATE^D^^51;21^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(350.9,51.21,1,0)="^.1"
^DD(350.9,51.21,1,1,0)="^^TRIGGER^350.9^51.24"
^DD(350.9,51.21,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.9,D0,51)):^(51),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.9,DIV(0),51)),DIV=X S $P(^(51),U,24)=DIV,DIH=350.9,DIG=51.24 D ^DICR"
^DD(350.9,51.21,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(350.9,D0,51)):^(51),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBE(350.9,DIV(0),51)),DIV=X S $P(^(51),U,24)=DIV,DIH=350.9,DIG=51.24 D ^DICR"
^DD(350.9,51.21,1,1,"CREATE VALUE")="S X=DUZ"
^DD(350.9,51.21,1,1,"DELETE VALUE")="S X=DUZ"
^DD(350.9,51.21,1,1,"FIELD")="#51.24"
^DD(350.9,51.21,3)="The date/time when the Most Popular Payer list was last saved."
^DD(350.9,51.21,21,0)="^.001^2^2^3040520^^^"
^DD(350.9,51.21,21,1,0)="This is the date/time on which the Most Popular Payer list was"
^DD(350.9,51.21,21,2,0)="last saved.  This field is not available for edit by users."
^DD(350.9,51.21,"DT")="3040520"
^DD(350.9,51.22,0)="REGISTRATION COMPLETE^S^1:YES;0:NO;^51;22^Q"
^DD(350.9,51.22,21,0)="^.001^4^4^3030408^^^^"
^DD(350.9,51.22,21,1,0)="This field will contain the value if the application acknowledgement"
^DD(350.9,51.22,21,2,0)="received and processed from the Eligibility Communicator.  If the"
^DD(350.9,51.22,21,3,0)="registration message failed at the EC, no further processing of"
^DD(350.9,51.22,21,4,0)="eIIV messages will occur."
^DD(350.9,51.22,"DT")="3030408"
^DD(350.9,51.23,0)="INQUIRE SECONDARY INSURANCES^S^1:YES;0:NO;^51;23^Q"
^DD(350.9,51.23,3)="Answer 'YES' to indicate that outgoing electronic insurance verification requests should return all additional/secondary insurance information identified for the patient."
^DD(350.9,51.23,21,0)="^.001^4^4^3030507^^^^"
^DD(350.9,51.23,21,1,0)="This field contains an indicator that controls whether outgoing"
^DD(350.9,51.23,21,2,0)="electronic verification requests should return any additional or secondary"
^DD(350.9,51.23,21,3,0)="insurance information that is found for a patient when an eligibility"
^DD(350.9,51.23,21,4,0)="request is made for a specific insurance company."
^DD(350.9,51.23,"DT")="3030415"
^DD(350.9,51.24,0)="MOST POPULAR LAST SAVED BY^RP200'^VA(200,^51;24^Q"
^DD(350.9,51.24,3)="This is the user who saved the current 'Most Popular Payer' list."
^DD(350.9,51.24,5,1,0)="350.9^51.21^1"
^DD(350.9,51.24,21,0)="^^3^3^3040520^"
^DD(350.9,51.24,21,1,0)="This is the user who last editted and saved the Most Popular Payer list.  "
^DD(350.9,51.24,21,2,0)="If the field MOST POPULAR LAST SAVE DATE is deleted, this field will be"
^DD(350.9,51.24,21,3,0)="the user who deleted the date."
^DD(350.9,51.24,"DT")="3040623"
^DD(350.9,99,0)="INS. CO's WITHHOLDING SUPPLIMENTAL PAYMENTS^350.999PA^^99;0"
^DD(350.9,99,21,0)="^.001^7^7^3010307^^"
^DD(350.9,99,21,1,0)="This sub-file contains pointers to the INSURANCE COMPANY (#36) file."
^DD(350.9,99,21,2,0)="The sub-file is populated from the option Edit List of Ins. Co."
^DD(350.9,99,21,3,0)="Witholding Payments [IB MRA EDIT INS CO LIST] or the Queue MRA Extract [IB"
^DD(350.9,99,21,4,0)="MRA EXTRACT]."
^DD(350.9,99,21,5,0)=" "
^DD(350.9,99,21,6,0)="The insurance companies listed in this sub-file represent the companies"
^DD(350.9,99,21,7,0)="for which means test bills will be extracted."
^DD(350.9,"AUDIT",11.01)=""
^DD(350.9,"B","*CAN INITIATOR REVIEW",1.11)=""
^DD(350.9,"B","*CAN REVIEWER AUTHORIZE?",1.03)=""
^DD(350.9,"B","*CONVERSION BREAK DATE",3.02)=""
^DD(350.9,"B","*CONVERSION LAST BILL DATE",3.01)=""
^DD(350.9,"B","*DEFAULT AMB SURG REV CODE",1.18)=""
^DD(350.9,"B","*DEFAULT RX REFILL REV CODE",1.28)=""
^DD(350.9,"B","*REMARKS ON EACH EDI CLAIM",1.04)=""
^DD(350.9,"B","ADMISSION SHEET HEADER LINE 1",5.01)=""
^DD(350.9,"B","ADMISSION SHEET HEADER LINE 2",5.02)=""
^DD(350.9,"B","ADMISSION SHEET HEADER LINE 3",5.03)=""
^DD(350.9,"B","AGENT CASHIER CITY",2.03)=""
^DD(350.9,"B","AGENT CASHIER MAIL SYMBOL",2.01)=""
^DD(350.9,"B","AGENT CASHIER PHONE NUMBER",2.06)=""
^DD(350.9,"B","AGENT CASHIER STATE",2.04)=""
^DD(350.9,"B","AGENT CASHIER STREET ADDRESS",2.02)=""
^DD(350.9,"B","AGENT CASHIER ZIP CODE",2.05)=""
^DD(350.9,"B","ALLOW MRA EOB PROCESSING?",8.12)=""
^DD(350.9,"B","AMOUNT OF CANCELED CHARGES",3.12)=""
^DD(350.9,"B","AMOUNT OF CHARGES CHECKED",3.09)=""
^DD(350.9,"B","AMOUNT OF NON-EXEMPT CHARGES",3.11)=""
^DD(350.9,"B","ASK HINQ IN MCCR",1.16)=""
^DD(350.9,"B","AUTO BILLER FREQUENCY",7.01)=""
^DD(350.9,"B","AUTO PRINT UNBILLED LIST",6.24)=""
^DD(350.9,"B","AUTO TRANSMIT BILL FREQUENCY",8.03)=""
^DD(350.9,"B","AUTOMATIC MRA EOB PROCESS?",8.11)=""
^DD(350.9,"B","AWP CHARGE SET",9.12)=""
^DD(350.9,"B","AWP PORT",9.02)=""
^DD(350.9,"B","Allow MRA Processing?",8.12)="1"
^DD(350.9,"B","BASC START DATE",1.24)=""
^DD(350.9,"B","BATCH EXTRACTS",51.17)=""
^DD(350.9,"B","BILL CANCELLATION MAILGROUP",1.07)=""
^DD(350.9,"B","BILL DISAPPROVED MAILGROUP",1.09)=""
^DD(350.9,"B","BILL/CLAIMS CONV. COMPLETE",3.19)=""
^DD(350.9,"B","BILLING PORT",9.01)=""
^DD(350.9,"B","BILLING SITE IS OTHER FACILITY",2.12)=""
^DD(350.9,"B","BILLING SUPERVISOR NAME",1.08)=""
^DD(350.9,"B","BLUE CROSS/SHIELD PROVIDER #",1.06)=""
^DD(350.9,"B","CAN CLERK ENTER NON-PTF CODES?",1.15)=""
^DD(350.9,"B","CAN INITIATOR AUTHORIZE?",1.23)=""
^DD(350.9,"B","CANCELLATION REMARK FOR FISCAL",2.07)=""
^DD(350.9,"B","CENTRAL COLLECTION MAIL GROUP",4.05)=""
^DD(350.9,"B","CLAIMS TRACKING START DATE",6.01)=""
^DD(350.9,"B","CLAIMSMANAGER PORTS",50.06)=""
^DD(350.9,"B","CLAIMSMANAGER TCP/IP",50.05)=""
^DD(350.9,"B","CLAIMSMANAGER WORKING OK?",50.02)=""
^DD(350.9,"B","CMS-1500 ADDRESS COLUMN",1.27)=""
^DD(350.9,"B","CMS-1500 PRINT LEGACY ID",1.32)=""
^DD(350.9,"B","COMM ERR MSG MAIL GROUP",50.04)=""
^DD(350.9,"B","CONTACT PERSON",51.16)=""
^DD(350.9,"B","COPAY BACKGROUND ERROR GROUP",.09)=""
^DD(350.9,"B","COPAY EXEMPTION CONV. STARTED",3.03)=""
^DD(350.9,"B","COPAY EXEMPTION LAST DFN",3.04)=""
^DD(350.9,"B","COPAY EXEMPTION MAIL GROUP",.13)=""
^DD(350.9,"B","COPAY EXEMPTION START DATE",3.13)=""
^DD(350.9,"B","COPAY EXEMPTION STOP DATE",3.14)=""
^DD(350.9,"B","COUNT OF BILLS CANCELED",3.17)=""
^DD(350.9,"B","COUNT OF EXEMPT BILLS",3.08)=""
^DD(350.9,"B","CURRENT INPATIENTS LOADED",3.2)=""
^DD(350.9,"B","DAILY MAILMAN MSG",51.02)=""
^DD(350.9,"B","DAILY MSG TIME",51.03)=""
^DD(350.9,"B","DATE MRA FIRST ACTIVATED",8.13)=""
^DD(350.9,"B","DATE PRIMARY TASK LAST RAN",9.09)=""
^DD(350.9,"B","DATE PRIMARY TASK STARTED",9.08)=""
^DD(350.9,"B","DAYS TO WAIT TO PURGE MSGS",8.02)=""
^DD(350.9,"B","DEA# OVERRIDE PRESC. ID ",9.14)=""
^DD(350.9,"B","DEFAULT DIVISION",1.25)=""
^DD(350.9,"B","DEFAULT RX REFILL CPT",1.3)=""
^DD(350.9,"B","DEFAULT RX REFILL DX",1.29)=""
^DD(350.9,"B","EDI/MRA ACTIVATED",8.1)=""
^DD(350.9,"B","FACILITY NAME",.02)=""
^DD(350.9,"B","FACILITY NAME FOR BILLING",2.1)=""
^DD(350.9,"B","FAILURE MAILMAN MSG",51.2)=""
^DD(350.9,"B","FEDERAL TAX NUMBER",1.05)=""
^DD(350.9,"B","FILE IN BACKGROUND",.03)=""
^DD(350.9,"B","FILER HANG TIME",.08)=""
^DD(350.9,"B","FILER LAST RAN",.06)=""
^DD(350.9,"B","FILER QUEUED",.1)=""
^DD(350.9,"B","FILER STARTED",.04)=""
^DD(350.9,"B","FILER STOPPED",.05)=""
^DD(350.9,"B","FILER UCI,VOL",.07)=""
^DD(350.9,"B","FRESHNESS DAYS",51.01)=""
^DD(350.9,"B","GENERAL ERROR MSG MAIL GROUP",50.03)=""
^DD(350.9,"B","HEALTH INSURANCE POLICY",4.03)=""
^DD(350.9,"B","HIPAA NCPDP ACTIVE FLAG",11.01)=""
^DD(350.9,"B","HL7 MAXIMUM NUMBER",51.15)=""
^DD(350.9,"B","HL7 RESPONSE PROCESSING",51.13)=""
^DD(350.9,"B","HL7 START TIME",51.14)=""
^DD(350.9,"B","HL7 STOP TIME",51.19)=""
^DD(350.9,"B","HOLD MT BILLS W/INS",1.2)=""
^DD(350.9,"B","HOURS TO TRANSMIT BILLS",8.06)=""
^DD(350.9,"B","INPATIENT CLAIMS TRACKING",6.02)=""
^DD(350.9,"B","INPATIENT STATUS (AB)",7.03)=""
^DD(350.9,"B","INPT HEALTH SUMMARY",2.08)=""
^DD(350.9,"B","INQUIRE INACTIVE INSURANCE",51.08)=""
^DD(350.9,"B","INQUIRE POPULAR PAYERS",51.09)=""
^DD(350.9,"B","INQUIRE SECONDARY INSURANCES",51.23)=""
^DD(350.9,"B","INS. CO's WITHHOLDING SUPPLIMENTAL PAYMENTS",99)=""
^DD(350.9,"B","INS. CO. DELETION TASK",4.08)=""
^DD(350.9,"B","INSURANCE COMPANY",4.06)=""
^DD(350.9,"B","INSURANCE CONVERSION COMPLETE",3.18)=""
^DD(350.9,"B","INSURANCE EXTENDED HELP",4.01)=""
^DD(350.9,"B","IVM CENTER MAIL GROUP",4.07)=""
^DD(350.9,"B","LAST 837 AUTO-TRANSMIT DATE",8.05)=""
^DD(350.9,"B","LAST AUTO BILLER DATE",7.02)=""
^DD(350.9,"B","LAST LTC COMPLETION DATE",.16)=""
^DD(350.9,"B","LIVE TRANSMIT 837 QUEUE",8.01)=""
^DD(350.9,"B","MAILMAN MESSAGE FLAG",50.07)=""
^DD(350.9,"B","MAS SERVICE POINTER",1.14)=""
^DD(350.9,"B","MAX # BILLS IN A BATCH",8.04)=""
^DD(350.9,"B","MEANS TEST BILLING MAIL GROUP",.11)=""
^DD(350.9,"B","MEDICARE PROVIDER NUMBER",1.21)=""
^DD(350.9,"B","MEDICINE ADMISSION COUNTER",6.12)=""
^DD(350.9,"B","MEDICINE ENTRIES MET",6.11)=""
^DD(350.9,"B","MEDICINE RANDOM NUMBER",6.1)=""
^DD(350.9,"B","MEDICINE SAMPLE SIZE",6.08)=""
^DD(350.9,"B","MEDICINE WEEKLY ADMISSIONS",6.09)=""
^DD(350.9,"B","MESSAGES MAILGROUP",51.04)=""
^DD(350.9,"B","MOST POPULAR LAST SAVE DATE",51.21)=""
^DD(350.9,"B","MOST POPULAR LAST SAVED BY",51.24)=""
^DD(350.9,"B","MULTIPLE FORM TYPES",1.22)=""
^DD(350.9,"B","NAME",.01)=""
^DD(350.9,"B","NAME OF CLAIM FORM SIGNER",1.01)=""
^DD(350.9,"B","NEW INSURANCE MAIL GROUP",4.04)=""
^DD(350.9,"B","NO. POPULAR PAYERS",51.1)=""
^DD(350.9,"B","NON-EXEMPT PATIENTS CONVERTED",3.15)=""
^DD(350.9,"B","NUMBER OF DAYS PT CHARGES HELD",7.04)=""
^DD(350.9,"B","NUMBER RETRIES",51.06)=""
^DD(350.9,"B","ONLY 1 INS CO PER CLAIM BATCH",8.07)=""
^DD(350.9,"B","OUTPATIENT CLAIMS TRACKING",6.03)=""
^DD(350.9,"B","OUTPT HEALTH SUMMARY",2.09)=""
^DD(350.9,"B","PATIENT OR FACILITY",10.01)=""
^DD(350.9,"B","PATIENT OR INSURANCE COMPANY",4.02)=""
^DD(350.9,"B","PER DIEM START DATE",.12)=""
^DD(350.9,"B","PHARM CALC COMPOUND CODE",9.15)=""
^DD(350.9,"B","POPULAR INSUR CO. FROM DATE",51.11)=""
^DD(350.9,"B","POPULAR INSUR CO. THRU DATE",51.12)=""
^DD(350.9,"B","POPULAR PAYERS",51.18)=""
^DD(350.9,"B","PRESCRIBER ID",9.13)=""
^DD(350.9,"B","PRESCRIPTION CLAIMS TRACKING",6.04)=""
^DD(350.9,"B","PRIMARY AWP TASK",9.06)=""
^DD(350.9,"B","PRIMARY BILLING TASK",9.04)=""
^DD(350.9,"B","PROSTHETICS CLAIMS TRACKING",6.05)=""
^DD(350.9,"B","PSYCH ADMISSION COUNTER",6.22)=""
^DD(350.9,"B","PSYCH ENTRIES MET",6.21)=""
^DD(350.9,"B","PSYCH RANDOM NUMBER",6.2)=""
^DD(350.9,"B","PSYCH SAMPLE SIZE",6.18)=""
^DD(350.9,"B","PSYCH WEEKLY ADMISSIONS",6.19)=""
^DD(350.9,"B","RANDOM SAMPLE DATE",6.07)=""
^DD(350.9,"B","REGISTRATION COMPLETE",51.22)=""
^DD(350.9,"B","REPORTS ADD TO CLAIMS TRACKING",6.23)=""
^DD(350.9,"B","RUNNING CLAIMSMANAGER?",50.01)=""
^DD(350.9,"B","SECONDARY AWP TASK",9.07)=""
^DD(350.9,"B","SECONDARY BILLING TASK",9.05)=""
^DD(350.9,"B","SHUTDOWN BACKGROUND JOBS",9.1)=""
^DD(350.9,"B","SITE CONTACT PHONE NUMBER",2.11)=""
^DD(350.9,"B","SUPPRESS MT INS BULLETIN",.15)=""
^DD(350.9,"B","SURGERY ADMISSION COUNTER",6.17)=""
^DD(350.9,"B","SURGERY ENTRIES MET",6.16)=""
^DD(350.9,"B","SURGERY RANDOM NUMBER",6.15)=""
^DD(350.9,"B","SURGERY SAMPLE SIZE",6.13)=""
^DD(350.9,"B","SURGERY WEEKLY ADMISSIONS",6.14)=""
^DD(350.9,"B","TASK UCI,VOL",9.11)=""
^DD(350.9,"B","TCP/IP ADDRESS",9.03)=""
^DD(350.9,"B","TEST TRANSMIT 837 QUEUE",8.09)=""
^DD(350.9,"B","TIMEOUT DAYS",51.05)=""
^DD(350.9,"B","TIMEOUT MAILMAN MSG",51.07)=""
^DD(350.9,"B","TITLE OF CLAIM FORM SIGNER",1.02)=""
^DD(350.9,"B","TOTAL BILLS DURING CONVERSION",3.16)=""
^DD(350.9,"B","TOTAL EXEMPT DOLLAR AMOUNT",3.1)=""
^DD(350.9,"B","TOTAL PATIENT NON-EXEMPT",3.07)=""
^DD(350.9,"B","TOTAL PATIENTS CONVERTED",3.05)=""
^DD(350.9,"B","TOTAL PATIENTS EXEMPT",3.06)=""
^DD(350.9,"B","TP INPATIENT ACTIVE",10.02)=""
^DD(350.9,"B","TP OUTPATIENT ACTIVE",10.03)=""
^DD(350.9,"B","TP PHARMACY ACTIVE",10.04)=""
^DD(350.9,"B","TP PROSTHETICS ACTIVE",10.05)=""
^DD(350.9,"B","TRANSFER PROCEDURES TO SCHED?",1.19)=""
^DD(350.9,"B","UB-04 ADDRESS COLUMN",1.31)=""
^DD(350.9,"B","UB-04 PRINT LEGACY ID",1.33)=""
^DD(350.9,"B","UNBILLED MAIL GROUP",6.25)=""
^DD(350.9,"B","USE ADMISSION SHEETS",6.06)=""
^DD(350.9,"B","USE ALERTS",.14)=""
^DD(350.9,"B","USE OP CPT SCREEN?",1.17)=""
^DD(350.9,"GL",0,1,.01)=""
^DD(350.9,"GL",0,2,.02)=""
^DD(350.9,"GL",0,3,.03)=""
^DD(350.9,"GL",0,4,.04)=""
^DD(350.9,"GL",0,5,.05)=""
^DD(350.9,"GL",0,6,.06)=""
^DD(350.9,"GL",0,7,.07)=""
^DD(350.9,"GL",0,8,.08)=""
^DD(350.9,"GL",0,9,.09)=""
^DD(350.9,"GL",0,10,.1)=""
^DD(350.9,"GL",0,11,.11)=""
^DD(350.9,"GL",0,12,.12)=""
^DD(350.9,"GL",0,13,.13)=""
^DD(350.9,"GL",0,14,.14)=""
^DD(350.9,"GL",0,15,.15)=""
^DD(350.9,"GL",0,16,.16)=""
^DD(350.9,"GL",1,1,1.01)=""
^DD(350.9,"GL",1,2,1.02)=""
^DD(350.9,"GL",1,3,1.03)=""
^DD(350.9,"GL",1,4,1.04)=""
^DD(350.9,"GL",1,5,1.05)=""
^DD(350.9,"GL",1,6,1.06)=""
^DD(350.9,"GL",1,7,1.07)=""
^DD(350.9,"GL",1,8,1.08)=""
^DD(350.9,"GL",1,9,1.09)=""
^DD(350.9,"GL",1,11,1.11)=""
^DD(350.9,"GL",1,14,1.14)=""
^DD(350.9,"GL",1,15,1.15)=""
^DD(350.9,"GL",1,16,1.16)=""
^DD(350.9,"GL",1,17,1.17)=""
^DD(350.9,"GL",1,18,1.18)=""
^DD(350.9,"GL",1,19,1.19)=""
^DD(350.9,"GL",1,20,1.2)=""
^DD(350.9,"GL",1,21,1.21)=""
^DD(350.9,"GL",1,22,1.22)=""
^DD(350.9,"GL",1,23,1.23)=""
^DD(350.9,"GL",1,24,1.24)=""
^DD(350.9,"GL",1,25,1.25)=""
^DD(350.9,"GL",1,27,1.27)=""
^DD(350.9,"GL",1,28,1.28)=""
^DD(350.9,"GL",1,29,1.29)=""
^DD(350.9,"GL",1,30,1.3)=""
^DD(350.9,"GL",1,31,1.31)=""
^DD(350.9,"GL",1,32,1.32)=""
^DD(350.9,"GL",1,33,1.33)=""
^DD(350.9,"GL",2,1,2.01)=""
^DD(350.9,"GL",2,2,2.02)=""
^DD(350.9,"GL",2,3,2.03)=""
^DD(350.9,"GL",2,4,2.04)=""
^DD(350.9,"GL",2,5,2.05)=""
^DD(350.9,"GL",2,6,2.06)=""
^DD(350.9,"GL",2,7,2.07)=""
^DD(350.9,"GL",2,8,2.08)=""
^DD(350.9,"GL",2,9,2.09)=""
^DD(350.9,"GL",2,10,2.1)=""
^DD(350.9,"GL",2,11,2.11)=""
^DD(350.9,"GL",2,12,2.12)=""
^DD(350.9,"GL",3,1,3.01)=""
^DD(350.9,"GL",3,2,3.02)=""
^DD(350.9,"GL",3,3,3.03)=""
^DD(350.9,"GL",3,4,3.04)=""
^DD(350.9,"GL",3,5,3.05)=""
^DD(350.9,"GL",3,6,3.06)=""
^DD(350.9,"GL",3,7,3.07)=""
^DD(350.9,"GL",3,8,3.08)=""
^DD(350.9,"GL",3,9,3.09)=""
^DD(350.9,"GL",3,10,3.1)=""
^DD(350.9,"GL",3,11,3.11)=""
^DD(350.9,"GL",3,12,3.12)=""
^DD(350.9,"GL",3,13,3.13)=""
^DD(350.9,"GL",3,14,3.14)=""
^DD(350.9,"GL",3,15,3.15)=""
^DD(350.9,"GL",3,16,3.16)=""
^DD(350.9,"GL",3,17,3.17)=""
^DD(350.9,"GL",3,18,3.18)=""
^DD(350.9,"GL",3,19,3.19)=""
^DD(350.9,"GL",3,20,3.2)=""
^DD(350.9,"GL",4,1,4.01)=""
^DD(350.9,"GL",4,2,4.02)=""
^DD(350.9,"GL",4,3,4.03)=""
^DD(350.9,"GL",4,4,4.04)=""
^DD(350.9,"GL",4,5,4.05)=""
^DD(350.9,"GL",4,6,4.06)=""
^DD(350.9,"GL",4,7,4.07)=""
^DD(350.9,"GL",4,8,4.08)=""
^DD(350.9,"GL",5,1,5.01)=""
^DD(350.9,"GL",5,2,5.02)=""
^DD(350.9,"GL",5,3,5.03)=""
^DD(350.9,"GL",6,1,6.01)=""
^DD(350.9,"GL",6,2,6.02)=""
^DD(350.9,"GL",6,3,6.03)=""
^DD(350.9,"GL",6,4,6.04)=""
^DD(350.9,"GL",6,5,6.05)=""
^DD(350.9,"GL",6,6,6.06)=""
^DD(350.9,"GL",6,7,6.07)=""
^DD(350.9,"GL",6,8,6.08)=""
^DD(350.9,"GL",6,9,6.09)=""
^DD(350.9,"GL",6,10,6.1)=""
^DD(350.9,"GL",6,11,6.11)=""
^DD(350.9,"GL",6,12,6.12)=""
^DD(350.9,"GL",6,13,6.13)=""
^DD(350.9,"GL",6,14,6.14)=""
^DD(350.9,"GL",6,15,6.15)=""
^DD(350.9,"GL",6,16,6.16)=""
^DD(350.9,"GL",6,17,6.17)=""
^DD(350.9,"GL",6,18,6.18)=""
^DD(350.9,"GL",6,19,6.19)=""
^DD(350.9,"GL",6,20,6.2)=""
^DD(350.9,"GL",6,21,6.21)=""
^DD(350.9,"GL",6,22,6.22)=""
^DD(350.9,"GL",6,23,6.23)=""
^DD(350.9,"GL",6,24,6.24)=""
^DD(350.9,"GL",6,25,6.25)=""
^DD(350.9,"GL",7,1,7.01)=""
^DD(350.9,"GL",7,2,7.02)=""
^DD(350.9,"GL",7,3,7.03)=""
^DD(350.9,"GL",7,4,7.04)=""
^DD(350.9,"GL",8,1,8.01)=""
^DD(350.9,"GL",8,2,8.02)=""
^DD(350.9,"GL",8,3,8.03)=""
^DD(350.9,"GL",8,4,8.04)=""
^DD(350.9,"GL",8,5,8.05)=""
^DD(350.9,"GL",8,6,8.06)=""
^DD(350.9,"GL",8,7,8.07)=""
^DD(350.9,"GL",8,9,8.09)=""
^DD(350.9,"GL",8,10,8.1)=""
^DD(350.9,"GL",8,11,8.11)=""
^DD(350.9,"GL",8,12,8.12)=""
^DD(350.9,"GL",8,13,8.13)=""
^DD(350.9,"GL",9,1,9.01)=""
^DD(350.9,"GL",9,2,9.02)=""
^DD(350.9,"GL",9,3,9.03)=""
^DD(350.9,"GL",9,4,9.04)=""
^DD(350.9,"GL",9,5,9.05)=""
^DD(350.9,"GL",9,6,9.06)=""
^DD(350.9,"GL",9,7,9.07)=""
^DD(350.9,"GL",9,8,9.08)=""
^DD(350.9,"GL",9,9,9.09)=""
^DD(350.9,"GL",9,10,9.1)=""
^DD(350.9,"GL",9,11,9.11)=""
^DD(350.9,"GL",9,12,9.12)=""
^DD(350.9,"GL",9,13,9.13)=""
^DD(350.9,"GL",9,14,9.14)=""
^DD(350.9,"GL",9,15,9.15)=""
^DD(350.9,"GL",10,1,10.01)=""
^DD(350.9,"GL",10,2,10.02)=""
^DD(350.9,"GL",10,3,10.03)=""
^DD(350.9,"GL",10,4,10.04)=""
^DD(350.9,"GL",10,5,10.05)=""
^DD(350.9,"GL",11,1,11.01)=""
^DD(350.9,"GL",50,1,50.01)=""
^DD(350.9,"GL",50,2,50.02)=""
^DD(350.9,"GL",50,3,50.03)=""
^DD(350.9,"GL",50,4,50.04)=""
^DD(350.9,"GL",50,5,50.05)=""
^DD(350.9,"GL",50,7,50.07)=""
^DD(350.9,"GL",50.06,0,50.06)=""
^DD(350.9,"GL",51,1,51.01)=""
^DD(350.9,"GL",51,2,51.02)=""
^DD(350.9,"GL",51,3,51.03)=""
^DD(350.9,"GL",51,4,51.04)=""
^DD(350.9,"GL",51,5,51.05)=""
^DD(350.9,"GL",51,6,51.06)=""
^DD(350.9,"GL",51,7,51.07)=""
^DD(350.9,"GL",51,8,51.08)=""
^DD(350.9,"GL",51,9,51.09)=""
^DD(350.9,"GL",51,10,51.1)=""
^DD(350.9,"GL",51,11,51.11)=""
^DD(350.9,"GL",51,12,51.12)=""
^DD(350.9,"GL",51,13,51.13)=""
^DD(350.9,"GL",51,14,51.14)=""
^DD(350.9,"GL",51,15,51.15)=""
^DD(350.9,"GL",51,16,51.16)=""
^DD(350.9,"GL",51,19,51.19)=""
^DD(350.9,"GL",51,20,51.2)=""
^DD(350.9,"GL",51,21,51.21)=""
^DD(350.9,"GL",51,22,51.22)=""
^DD(350.9,"GL",51,23,51.23)=""
^DD(350.9,"GL",51,24,51.24)=""
^DD(350.9,"GL",51.17,0,51.17)=""
^DD(350.9,"GL",51.18,0,51.18)=""
^DD(350.9,"GL",99,0,99)=""
^DD(350.9,"IX",.01)=""
^DD(350.9,"IX",8.1)=""
^DD(350.9,"IX",51.21)=""
^DD(350.9,"RQ",.01)=""
^DD(350.9,"RQ",.02)=""
^DD(350.9,"RQ",1.05)=""
^DD(350.9,"RQ",1.06)=""
^DD(350.9,"RQ",1.08)=""
^DD(350.9,"RQ",1.14)=""
^DD(350.9,"RQ",2.1)=""
^DD(350.9,"RQ",3.13)=""
^DD(350.9,"RQ",3.14)=""
^DD(350.9,"RQ",3.18)=""
^DD(350.9,"RQ",3.19)=""
^DD(350.9,"RQ",3.2)=""
^DD(350.9,"RQ",6.08)=""
^DD(350.9,"RQ",7.04)=""
^DD(350.9,"RQ",51.01)=""
^DD(350.9,"RQ",51.04)=""
^DD(350.9,"RQ",51.13)=""
^DD(350.9,"RQ",51.14)=""
^DD(350.9,"RQ",51.15)=""
^DD(350.9,"RQ",51.16)=""
^DD(350.9,"RQ",51.19)=""
^DD(350.9,"RQ",51.24)=""
^DD(350.9,"SB",350.9001,50.06)=""
^DD(350.9,"SB",350.9002,51.17)=""
^DD(350.9,"SB",350.9003,51.18)=""
^DD(350.9,"SB",350.999,99)=""
^DD(350.9001,0)="CLAIMSMANAGER PORTS SUB-FIELD^^.01^1"
^DD(350.9001,0,"DT")="3010122"
^DD(350.9001,0,"IX","B",350.9001,.01)=""
^DD(350.9001,0,"NM","CLAIMSMANAGER PORTS")=""
^DD(350.9001,0,"UP")="350.9"
^DD(350.9001,.01,0)="CLAIMSMANAGER PORTS^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(350.9001,.01,1,0)="^.1"
^DD(350.9001,.01,1,1,0)="350.9001^B"
^DD(350.9001,.01,1,1,1)="S ^IBE(350.9,DA(1),50.06,""B"",$E(X,1,30),DA)="""""
^DD(350.9001,.01,1,1,2)="K ^IBE(350.9,DA(1),50.06,""B"",$E(X,1,30),DA)"
^DD(350.9001,.01,3)="Answer must be 1-20 characters in length."
^DD(350.9001,.01,21,0)="^.001^2^2^3010316^^^^"
^DD(350.9001,.01,21,1,0)="This field will contain the ports used for accessing the Ingenix"
^DD(350.9001,.01,21,2,0)="ClaimsManager server."
^DD(350.9001,.01,"DT")="3010831"
^DD(350.9001,"B","CLAIMSMANAGER PORTS",.01)=""
^DD(350.9001,"GL",0,1,.01)=""
^DD(350.9001,"IX",.01)=""
^DD(350.9002,0)="BATCH EXTRACTS SUB-FIELD^^.06^6"
^DD(350.9002,0,"DT")="3030613"
^DD(350.9002,0,"IX","B",350.9002,.01)=""
^DD(350.9002,0,"NM","BATCH EXTRACTS")=""
^DD(350.9002,0,"UP")="350.9"
^DD(350.9002,.01,0)="BATCH EXTRACTS^MRS^1:Buffer;2:Appt;3:Nonverified;4:No Insurance;^0;1^Q"
^DD(350.9002,.01,1,0)="^.1"
^DD(350.9002,.01,1,1,0)="350.9002^B"
^DD(350.9002,.01,1,1,1)="S ^IBE(350.9,DA(1),51.17,""B"",$E(X,1,30),DA)="""""
^DD(350.9002,.01,1,1,2)="K ^IBE(350.9,DA(1),51.17,""B"",$E(X,1,30),DA)"
^DD(350.9002,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(350.9002,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(350.9002,.01,3)=""
^DD(350.9002,.01,21,0)="^.001^4^4^3020612^^^"
^DD(350.9002,.01,21,1,0)="This field identifies each of the four data extracts that IIV uses"
^DD(350.9002,.01,21,2,0)="to find data to request identification or verification for."
^DD(350.9002,.01,21,3,0)=" "
^DD(350.9002,.01,21,4,0)="Buffer, appointment, non-verified insurance and no insurance."
^DD(350.9002,.01,"DT")="3020612"
^DD(350.9002,.02,0)="ACTIVE?^RS^0:Not Active;1:Active;^0;2^Q"
^DD(350.9002,.02,3)="Enter 'Active' if the extract is active and should run daily."
^DD(350.9002,.02,21,0)="^^2^2^3020819^"
^DD(350.9002,.02,21,1,0)="This parameter indicates whether or not this extract should be"
^DD(350.9002,.02,21,2,0)="performed during the daily eIIV extract process."
^DD(350.9002,.02,"DT")="3020819"
^DD(350.9002,.03,0)="SELECTION CRITERIA #1^RNJ3,0^^0;3^K:+X'=X!(X>180)!(X<7)!(X?.E1"".""1N.N) X"
^DD(350.9002,.03,3)="Enter the number of days to determine the date range for extraction.  Enter a number between 7 and 180 (6 months). Please type ?? to see extract specific descriptions."
^DD(350.9002,.03,21,0)="^^15^15^3020828^"
^DD(350.9002,.03,21,1,0)="This field is a parameter that is used by three of the data"
^DD(350.9002,.03,21,2,0)="extracts to determine whether a record should be extracted"
^DD(350.9002,.03,21,3,0)="or not. "
^DD(350.9002,.03,21,4,0)=" "
^DD(350.9002,.03,21,5,0)="For the Appointments extract, this indicates how far in the"
^DD(350.9002,.03,21,6,0)="future a patient can be scheduled for an appointment and be"
^DD(350.9002,.03,21,7,0)="eligible for extract.  If the value is 10, then a patient"
^DD(350.9002,.03,21,8,0)="will be eligible for extract if their appointment is within"
^DD(350.9002,.03,21,9,0)="10 days of the extract date."
^DD(350.9002,.03,21,10,0)=" "
^DD(350.9002,.03,21,11,0)="For the Non Verified Insurance and No Insurance extracts,"
^DD(350.9002,.03,21,12,0)="this indicates how far in the past a patient must have been"
^DD(350.9002,.03,21,13,0)="seen to be eligible for extract.  If the value is 10, then"
^DD(350.9002,.03,21,14,0)="a patient will be eligible for extract if they were seen in"
^DD(350.9002,.03,21,15,0)="the last 10 days.  "
^DD(350.9002,.03,"DT")="3020819"
^DD(350.9002,.04,0)="SELECTION CRITERIA #2^RNJ3,0^^0;4^K:+X'=X!(X>180)!(X<7)!(X?.E1"".""1N.N) X"
^DD(350.9002,.04,3)="Enter the number of days to determine the date range for freshness.  Enter a number between 7 and 180 (6 months). Please type ?? to see extract specific descriptions."
^DD(350.9002,.04,21,0)="^^12^12^3020828^"
^DD(350.9002,.04,21,1,0)="This field is a parameter that is used by two of the data extracts"
^DD(350.9002,.04,21,2,0)="to determine whether a record should be extracted or not."
^DD(350.9002,.04,21,3,0)=" "
^DD(350.9002,.04,21,4,0)="For both the No Active Insurance extract and the Non Verified"
^DD(350.9002,.04,21,5,0)="Insurance extract, this is similar to the FRESHNESS DAYS parameter"
^DD(350.9002,.04,21,6,0)="in that this represents how long to wait before IIV can attempt to"
^DD(350.9002,.04,21,7,0)="reidentify the same insurance for that patient."
^DD(350.9002,.04,21,8,0)=" "
^DD(350.9002,.04,21,9,0)="If the value is 10, this means that IIV can attempt to reidentify"
^DD(350.9002,.04,21,10,0)="insurance for a patient 11 days after the most recently inquired "
^DD(350.9002,.04,21,11,0)="date.  A specific date is always asked of the payer when"
^DD(350.9002,.04,21,12,0)="trying to identify patients eligibility."
^DD(350.9002,.04,"DT")="3020819"
^DD(350.9002,.05,0)="MAXIMUM EXTRACT NUMBER^RNJ4,0^^0;5^K:+X'=X!(X>5000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(350.9002,.05,3)="Type a Number between 10 and 5000, 0 Decimal Digits"
^DD(350.9002,.05,21,0)="^^2^2^3050418^"
^DD(350.9002,.05,21,1,0)="This field allows a site to restrict the daily number of records"
^DD(350.9002,.05,21,2,0)="extracted and placed in the IIV Transmission Queue."
^DD(350.9002,.05,"DT")="3050418"
^DD(350.9002,.06,0)="SUPPRESS BUFFER CREATION^S^0:No;1:Yes;^0;6^Q"
^DD(350.9002,.06,3)="Enter 'Yes' if Insurance Buffer entries should not be created when the insurance inquiry could not be transmitted.  Enter 'No', otherwise."
^DD(350.9002,.06,21,0)="^^12^12^3020911^"
^DD(350.9002,.06,21,1,0)="This flag will suppress the creation of Insurance Buffer entries"
^DD(350.9002,.06,21,2,0)="when attempting to create insurance inquiries during the eIIV"
^DD(350.9002,.06,21,3,0)="process.  If the insurance inquiry cannot be transmitted because"
^DD(350.9002,.06,21,4,0)="the insurance company does not resolve to a valid and eligible"
^DD(350.9002,.06,21,5,0)="payer, this flag will not allow an Insurance Buffer entry to be"
^DD(350.9002,.06,21,6,0)="created and flagged to be corrected manually before being sent"
^DD(350.9002,.06,21,7,0)="out.  This is intended to reduce the number of Insurance Buffer"
^DD(350.9002,.06,21,8,0)="entries to be resolved manually which did not originate in the"
^DD(350.9002,.06,21,9,0)="Buffer originally."
^DD(350.9002,.06,21,10,0)=" "
^DD(350.9002,.06,21,11,0)="Please note that this flag only applies to the Appointment"
^DD(350.9002,.06,21,12,0)="(Pre-Reg) extract and the Nonverified extract."
^DD(350.9002,.06,"DT")="3020911"
^DD(350.9002,"B","ACTIVE?",.02)=""
^DD(350.9002,"B","BATCH EXTRACTS",.01)=""
^DD(350.9002,"B","MAXIMUM EXTRACT NUMBER",.05)=""
^DD(350.9002,"B","SELECTION CRITERIA #1",.03)=""
^DD(350.9002,"B","SELECTION CRITERIA #2",.04)=""
^DD(350.9002,"B","SUPPRESS BUFFER CREATION",.06)=""
^DD(350.9002,"GL",0,1,.01)=""
^DD(350.9002,"GL",0,2,.02)=""
^DD(350.9002,"GL",0,3,.03)=""
^DD(350.9002,"GL",0,4,.04)=""
^DD(350.9002,"GL",0,5,.05)=""
^DD(350.9002,"GL",0,6,.06)=""
^DD(350.9002,"IX",.01)=""
^DD(350.9002,"RQ",.01)=""
^DD(350.9002,"RQ",.02)=""
^DD(350.9002,"RQ",.03)=""
^DD(350.9002,"RQ",.04)=""
^DD(350.9002,"RQ",.05)=""
^DD(350.9003,0)="POPULAR PAYERS SUB-FIELD^^.01^1"
^DD(350.9003,0,"DT")="3020605"
^DD(350.9003,0,"IX","B",350.9003,.01)=""
^DD(350.9003,0,"NM","POPULAR PAYERS")=""
^DD(350.9003,0,"UP")="350.9"
^DD(350.9003,.01,0)="POPULAR PAYER^MP365.12'^IBE(365.12,^0;1^Q"
^DD(350.9003,.01,1,0)="^.1"
^DD(350.9003,.01,1,1,0)="350.9003^B"
^DD(350.9003,.01,1,1,1)="S ^IBE(350.9,DA(1),51.18,""B"",$E(X,1,30),DA)="""""
^DD(350.9003,.01,1,1,2)="K ^IBE(350.9,DA(1),51.18,""B"",$E(X,1,30),DA)"
^DD(350.9003,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(350.9003,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(350.9003,.01,3)="Select a Payer"
^DD(350.9003,.01,21,0)="^.001^2^2^3040507^^"
^DD(350.9003,.01,21,1,0)="This field identifies the most popular payers based upon user"
^DD(350.9003,.01,21,2,0)="selection."
^DD(350.9003,.01,"DT")="3031215"
^DD(350.9003,"B","POPULAR PAYER",.01)=""
^DD(350.9003,"GL",0,1,.01)=""
^DD(350.9003,"IX",.01)=""
^DD(350.999,0)="INS. CO's WITHHOLDING SUPPLIMENTAL PAYMENTS SUB-FIELD^^.01^1"
^DD(350.999,0,"DT")="2970902"
^DD(350.999,0,"IX","B",350.999,.01)=""
^DD(350.999,0,"NM","INS. CO's WITHHOLDING SUPPLIMENTAL PAYMENTS")=""
^DD(350.999,0,"UP")="350.9"
^DD(350.999,.01,0)="INS. CO'S FOR MRA EXTRACT^MP36'^DIC(36,^0;1^Q"
^DD(350.999,.01,.1)=""
^DD(350.999,.01,1,0)="^.1"
^DD(350.999,.01,1,1,0)="350.999^B"
^DD(350.999,.01,1,1,1)="S ^IBE(350.9,DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(350.999,.01,1,1,2)="K ^IBE(350.9,DA(1),99,""B"",$E(X,1,30),DA)"
^DD(350.999,.01,3)="Enter an Insurance company for the MRA Extract"
^DD(350.999,.01,21,0)="^^7^7^3010307^"
^DD(350.999,.01,21,1,0)="This sub-file contains pointers to the INSURANCE COMPANY (#36) file."
^DD(350.999,.01,21,2,0)="The sub-file is populated from the option Edit List of Ins. Co."
^DD(350.999,.01,21,3,0)="Witholding Payments [IB MRA EDIT INS CO LIST] or the Queue MRA Extract [IB"
^DD(350.999,.01,21,4,0)="MRA EXTRACT]."
^DD(350.999,.01,21,5,0)=" "
^DD(350.999,.01,21,6,0)="The insurance companies listed in this sub-file represent the companies"
^DD(350.999,.01,21,7,0)="for which means test bills will be extracted."
^DD(350.999,.01,"DT")="3010123"
^DD(350.999,"B","INS. CO'S FOR MRA EXTRACT",.01)=""
^DD(350.999,"GL",0,1,.01)=""
^DD(350.999,"IX",.01)=""
^DD(351,0)="FIELD^^15^15"
^DD(351,0,"DDA")="N"
^DD(351,0,"DT")="2920225"
^DD(351,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ?16,$E(Y,1,25),@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(351,0,"ID",.03)="W ?44,$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(351,0,"ID",.04)="W ?55,@(""$P($P($C(59)_$S($D(^DD(351,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(351,0,"IX","ACT",351,.02)=""
^DD(351,0,"IX","ACT1",351,.04)=""
^DD(351,0,"IX","AIVDT",351,.02)=""
^DD(351,0,"IX","AIVDT1",351,.03)=""
^DD(351,0,"IX","B",351,.01)=""
^DD(351,0,"IX","C",351,.02)=""
^DD(351,0,"NM","MEANS TEST BILLING CLOCK")=""
^DD(351,0,"VR")="2.0"
^DD(351,.01,0)="REFERENCE NUMBER^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(351,.01,1,0)="^.1^^-1"
^DD(351,.01,1,1,0)="351^B"
^DD(351,.01,1,1,1)="S ^IBE(351,""B"",$E(X,1,30),DA)="""""
^DD(351,.01,1,1,2)="K ^IBE(351,""B"",$E(X,1,30),DA)"
^DD(351,.01,3)="Type a Number between 1000 and 999999999999, 0 Decimal Digits"
^DD(351,.01,21,0)="^^3^3^2911226^^^"
^DD(351,.01,21,1,0)="This field consists of the station number concatenated with the internal"
^DD(351,.01,21,2,0)="number of the entry.  The purpose of this number is to provide a unique"
^DD(351,.01,21,3,0)="reference for each billing clock which has been opened at each station."
^DD(351,.01,"DT")="2911010"
^DD(351,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(351,.02,1,0)="^.1"
^DD(351,.02,1,1,0)="351^AIVDT^MUMPS"
^DD(351,.02,1,1,1)="I $D(^IBE(351,DA,0)),$P(^(0),""^"",3) S ^IBE(351,""AIVDT"",X,-$P(^(0),""^"",3),DA)="""""
^DD(351,.02,1,1,2)="I $D(^IBE(351,DA,0)),$P(^(0),""^"",3) K ^IBE(351,""AIVDT"",X,-$P(^(0),""^"",3),DA)"
^DD(351,.02,1,1,"%D",0)="^^5^5^2920415^^^^"
^DD(351,.02,1,1,"%D",1,0)="Cross-reference of all IB MT BILLING CYCLE entries by the patient (#.02)"
^DD(351,.02,1,1,"%D",2,0)="field and the minus (negative or inverse) cycle date (#.03) field.  The"
^DD(351,.02,1,1,"%D",3,0)="most current billing cycle for a patient may be found using this cross-"
^DD(351,.02,1,1,"%D",4,0)="reference.  The ""AIVDT1"" cross-reference on the cycle date (#.03) field"
^DD(351,.02,1,1,"%D",5,0)="is the companion to this cross-reference."
^DD(351,.02,1,1,"DT")="2911009"
^DD(351,.02,1,2,0)="351^ACT^MUMPS"
^DD(351,.02,1,2,1)="I $D(^IBE(351,DA,0)),$P(^(0),""^"",4)=1 S ^IBE(351,""ACT"",X,DA)="""""
^DD(351,.02,1,2,2)="K ^IBE(351,""ACT"",X,DA)"
^DD(351,.02,1,2,"%D",0)="^^7^7^2911106^"
^DD(351,.02,1,2,"%D",1,0)="Cross-reference of all active IB BILLING CYCLES by patient."
^DD(351,.02,1,2,"%D",2,0)=" "
^DD(351,.02,1,2,"%D",3,0)="This is a temporary cross-reference which is used to find a patient's"
^DD(351,.02,1,2,"%D",4,0)="active billing cycle record, if one exists.  The cross-reference is"
^DD(351,.02,1,2,"%D",5,0)="set whenever the status (#.04 field) of a billing cycle is changed to 1"
^DD(351,.02,1,2,"%D",6,0)="(CURRENT), and killed without condition.  The ""ACT1"" cross-reference on"
^DD(351,.02,1,2,"%D",7,0)="the status field is the companion to this cross-reference."
^DD(351,.02,1,2,"DT")="2911106"
^DD(351,.02,1,3,0)="351^C"
^DD(351,.02,1,3,1)="S ^IBE(351,""C"",$E(X,1,30),DA)="""""
^DD(351,.02,1,3,2)="K ^IBE(351,""C"",$E(X,1,30),DA)"
^DD(351,.02,1,3,"DT")="2911226"
^DD(351,.02,3)="Please enter the patient for whom this billing clock is being opened."
^DD(351,.02,21,0)="^^1^1^2911226^^"
^DD(351,.02,21,1,0)="This is the patient for whom the billing clock is being opened."
^DD(351,.02,"DT")="2911226"
^DD(351,.03,0)="CLOCK BEGIN DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351,.03,1,0)="^.1"
^DD(351,.03,1,1,0)="351^AIVDT1^MUMPS"
^DD(351,.03,1,1,1)="I $D(^IBE(351,DA,0)),$P(^(0),""^"",2) S ^IBE(351,""AIVDT"",$P(^(0),""^"",2),-X,DA)="""""
^DD(351,.03,1,1,2)="I $D(^IBE(351,DA,0)),$P(^(0),""^"",2) K ^IBE(351,""AIVDT"",$P(^(0),""^"",2),-X,DA)"
^DD(351,.03,1,1,"%D",0)="^^5^5^2911105^^^^"
^DD(351,.03,1,1,"%D",1,0)="Cross-reference of all IB MT BILLING CYCLE entries by the patient (#.02)"
^DD(351,.03,1,1,"%D",2,0)="field and the minus (negative or inverse) cycle date (#.03) field.  The"
^DD(351,.03,1,1,"%D",3,0)="most current billing cycle for a patient may be found using this cross-"
^DD(351,.03,1,1,"%D",4,0)="reference.  The ""AIVDT"" cross-reference on the patient (#.02) field is"
^DD(351,.03,1,1,"%D",5,0)="is the companion to this cross-reference."
^DD(351,.03,1,1,"DT")="2911009"
^DD(351,.03,3)="Please enter the date on which the billing clock should begin."
^DD(351,.03,21,0)="^^1^1^2920211^^^^"
^DD(351,.03,21,1,0)="This is the date on which the billing clock has been opened."
^DD(351,.03,"DT")="2911230"
^DD(351,.04,0)="STATUS^S^1:CURRENT;2:CLOSED;3:CANCELLED;^0;4^Q"
^DD(351,.04,1,0)="^.1"
^DD(351,.04,1,1,0)="351^ACT1^MUMPS"
^DD(351,.04,1,1,1)="I X=1,$D(^IBE(351,DA,0)),$P(^(0),""^"",2) S ^IBE(351,""ACT"",$P(^(0),""^"",2),DA)="""""
^DD(351,.04,1,1,2)="I $D(^IBE(351,DA,0)),$P(^(0),""^"",2) K ^IBE(351,""ACT"",$P(^(0),""^"",2),DA)"
^DD(351,.04,1,1,"%D",0)="^^7^7^2911106^"
^DD(351,.04,1,1,"%D",1,0)="Cross-reference of all active IB BILLING CYCLES by patient (#.02 field)."
^DD(351,.04,1,1,"%D",2,0)=" "
^DD(351,.04,1,1,"%D",3,0)="This is a temporary cross-reference which is used to find a patient's"
^DD(351,.04,1,1,"%D",4,0)="active billing cycle record, if one exists.  The cross-reference is set"
^DD(351,.04,1,1,"%D",5,0)="whenever the status of a billing cycle is changed to 1 (CURRENT), and"
^DD(351,.04,1,1,"%D",6,0)="killed whenever the patient field is defined.  The ""ACT"" cross-reference"
^DD(351,.04,1,1,"%D",7,0)="on the patient field is the companion to this cross-reference."
^DD(351,.04,1,1,"DT")="2911106"
^DD(351,.04,3)="Enter the present status for this billing clock."
^DD(351,.04,21,0)="^^7^7^2920415^^^^"
^DD(351,.04,21,1,0)="The status of the billing clock will be CURRENT if charges are being"
^DD(351,.04,21,2,0)="created for that clock.  The clock will be CLOSED after 365 days or"
^DD(351,.04,21,3,0)="the date the patient is no longer a Means Test copay patient, whichever is"
^DD(351,.04,21,4,0)="earlier.  Billing clocks which may have been ""left open"" due to a lack"
^DD(351,.04,21,5,0)="of billable activity will be closed during the nightly compilation"
^DD(351,.04,21,6,0)="job.  Billing clocks which must be deleted for any reason will"
^DD(351,.04,21,7,0)="have a status of CANCELLED."
^DD(351,.04,"DT")="2911106"
^DD(351,.05,0)="1ST 90 DAY INPATIENT AMOUNT^NJ7,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(351,.05,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(351,.05,21,0)="^^3^3^2920415^^^^"
^DD(351,.05,21,1,0)="This field represents the total co-payment (not including the per diem"
^DD(351,.05,21,2,0)="charge) amount which has been billed to the patient for his first 90 days"
^DD(351,.05,21,3,0)="of Hospital or Nursing Home care."
^DD(351,.05,"DT")="2911009"
^DD(351,.06,0)="2ND 90 DAY INPATIENT AMOUNT^NJ7,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(351,.06,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(351,.06,21,0)="^^3^3^2920415^^^"
^DD(351,.06,21,1,0)="This field represents the total co-payment (not including the per diem"
^DD(351,.06,21,2,0)="charge) amount which has been billed to the patient for his second 90 days"
^DD(351,.06,21,3,0)="of Hospital or Nursing Home care."
^DD(351,.06,"DT")="2911009"
^DD(351,.07,0)="3RD 90 DAY INPATIENT AMOUNT^NJ7,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(351,.07,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(351,.07,21,0)="^^3^3^2920415^^^"
^DD(351,.07,21,1,0)="This field represents the total co-payment (not including the per diem"
^DD(351,.07,21,2,0)="charge) amount which has been billed to the patient for his third 90 days"
^DD(351,.07,21,3,0)="of Hospital or Nursing Home care."
^DD(351,.07,"DT")="2911009"
^DD(351,.08,0)="4TH 90 DAY INPATIENT AMOUNT^NJ7,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(351,.08,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(351,.08,21,0)="^^3^3^2920415^^^"
^DD(351,.08,21,1,0)="This field represents the total co-payment (not including the per diem"
^DD(351,.08,21,2,0)="charge) amount which has been billed to the patient for his fourth 90 days"
^DD(351,.08,21,3,0)="of Hospital or Nursing Home care."
^DD(351,.08,"DT")="2911009"
^DD(351,.09,0)="NUMBER INPATIENT DAYS^NJ3,0^^0;9^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351,.09,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(351,.09,21,0)="^^4^4^2920225^^^"
^DD(351,.09,21,1,0)="This field represents the total number of days that the patient has"
^DD(351,.09,21,2,0)="spent in the Hospital or Nursing Home since the Clock Begin Date."
^DD(351,.09,21,3,0)="The field is used to determine the co-payment charges billed to the"
^DD(351,.09,21,4,0)="patient for care received."
^DD(351,.09,"DT")="2911009"
^DD(351,.1,0)="CLOCK END DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351,.1,3)="Enter the date on which this billing clock must be closed."
^DD(351,.1,21,0)="^^2^2^2911226^^"
^DD(351,.1,21,1,0)="This is the date on which the billing clock was closed.  This date"
^DD(351,.1,21,2,0)="should not be more than 365 days after the Clock Begin Date."
^DD(351,.1,"DT")="2911226"
^DD(351,11,0)="USER ADDING ENTRY^P200'^VA(200,^1;1^Q"
^DD(351,11,9)="^"
^DD(351,11,21,0)="^^3^3^2911226^^"
^DD(351,11,21,1,0)="This is the person performing a transaction in an application that"
^DD(351,11,21,2,0)="causes the application to create an entry in this file.  This field"
^DD(351,11,21,3,0)="may be null if the entry was created by an off-line compilation job."
^DD(351,11,"DT")="2911009"
^DD(351,12,0)="DATE ENTRY ADDED^D^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351,12,9)="^"
^DD(351,12,21,0)="^^1^1^2911226^^"
^DD(351,12,21,1,0)="This the date/time that an entry was added to this file."
^DD(351,12,"DT")="2911009"
^DD(351,13,0)="USER LAST UPDATING^P200'^VA(200,^1;3^Q"
^DD(351,13,21,0)="^^3^3^2911226^^"
^DD(351,13,21,1,0)="This is the person performing a transaction in an application which"
^DD(351,13,21,2,0)="causes the application to update this entry.  This entry may be null"
^DD(351,13,21,3,0)="if the entry was last updated in an off-line compilation job."
^DD(351,13,"DT")="2911009"
^DD(351,14,0)="DATE LAST UPDATED^D^^1;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351,14,21,0)="^^1^1^2911226^^"
^DD(351,14,21,1,0)="This is the date/time that this entry was last updated."
^DD(351,14,"DT")="2911009"
^DD(351,15,0)="UPDATE REASON^F^^0;11^K:$L(X)>40!($L(X)<3) X"
^DD(351,15,3)=" Answer must be 3-40 characters in length."
^DD(351,15,21,0)="^^1^1^2920225^"
^DD(351,15,21,1,0)="Brief description of reason for updating billing clock."
^DD(351,15,"DT")="2920225"
^DD(351,"B","1ST 90 DAY INPATIENT AMOUNT",.05)=""
^DD(351,"B","2ND 90 DAY INPATIENT AMOUNT",.06)=""
^DD(351,"B","3RD 90 DAY INPATIENT AMOUNT",.07)=""
^DD(351,"B","4TH 90 DAY INPATIENT AMOUNT",.08)=""
^DD(351,"B","CLOCK BEGIN DATE",.03)=""
^DD(351,"B","CLOCK END DATE",.1)=""
^DD(351,"B","DATE ENTRY ADDED",12)=""
^DD(351,"B","DATE LAST UPDATED",14)=""
^DD(351,"B","NUMBER INPATIENT DAYS",.09)=""
^DD(351,"B","PATIENT",.02)=""
^DD(351,"B","REFERENCE NUMBER",.01)=""
^DD(351,"B","STATUS",.04)=""
^DD(351,"B","UPDATE REASON",15)=""
^DD(351,"B","USER ADDING ENTRY",11)=""
^DD(351,"B","USER LAST UPDATING",13)=""
^DD(351,"GL",0,1,.01)=""
^DD(351,"GL",0,2,.02)=""
^DD(351,"GL",0,3,.03)=""
^DD(351,"GL",0,4,.04)=""
^DD(351,"GL",0,5,.05)=""
^DD(351,"GL",0,6,.06)=""
^DD(351,"GL",0,7,.07)=""
^DD(351,"GL",0,8,.08)=""
^DD(351,"GL",0,9,.09)=""
^DD(351,"GL",0,10,.1)=""
^DD(351,"GL",0,11,15)=""
^DD(351,"GL",1,1,11)=""
^DD(351,"GL",1,2,12)=""
^DD(351,"GL",1,3,13)=""
^DD(351,"GL",1,4,14)=""
^DD(351,"IX",.01)=""
^DD(351,"IX",.02)=""
^DD(351,"IX",.03)=""
^DD(351,"IX",.04)=""
^DD(351,"RQ",.01)=""
^DD(351,"RQ",.02)=""
^DD(351,"RQ",.03)=""
^DD(351.1,0)="FIELD^^.06^6"
^DD(351.1,0,"DDA")="N"
^DD(351.1,0,"IX","B",351.1,.01)=""
^DD(351.1,0,"NM","IB CONTINUOUS PATIENT")=""
^DD(351.1,0,"VR")="2.0"
^DD(351.1,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(351.1,.01,1,0)="^.1^^-1"
^DD(351.1,.01,1,1,0)="351.1^B"
^DD(351.1,.01,1,1,1)="S ^IBE(351.1,""B"",$E(X,1,30),DA)="""""
^DD(351.1,.01,1,1,2)="K ^IBE(351.1,""B"",$E(X,1,30),DA)"
^DD(351.1,.01,3)="Enter the name of the patient who has been a continuous inpatient since July 1, 1986."
^DD(351.1,.01,21,0)="^^2^2^2911104^^"
^DD(351.1,.01,21,1,0)="This field contains the DFN of the patient who has been a continuous"
^DD(351.1,.01,21,2,0)="inpatient since July 1, 1986."
^DD(351.1,.01,"DT")="2911101"
^DD(351.1,.02,0)="DISCHARGE DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.1,.02,3)="Enter the date on which the patient is no longer a continuous patient."
^DD(351.1,.02,21,0)="^^2^2^2920415^^^^"
^DD(351.1,.02,21,1,0)="This is the date on which the patient has been discharged from the hospital"
^DD(351.1,.02,21,2,0)="or nursing home after a continuous stay since July 1,1986."
^DD(351.1,.02,"DT")="2911101"
^DD(351.1,.03,0)="USER ADDING ENTRY^P200'^VA(200,^0;3^Q"
^DD(351.1,.03,9)="^"
^DD(351.1,.03,21,0)="^^1^1^2911104^^^"
^DD(351.1,.03,21,1,0)="This is the person who is adding the entry to the file."
^DD(351.1,.03,"DT")="2911008"
^DD(351.1,.04,0)="DATE ENTRY ADDED^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.1,.04,9)="^"
^DD(351.1,.04,21,0)="^^1^1^2911008^^"
^DD(351.1,.04,21,1,0)="This is the date/time that the entry was added to the file."
^DD(351.1,.04,"DT")="2911008"
^DD(351.1,.05,0)="USER LAST UPDATING^P200'^VA(200,^0;5^Q"
^DD(351.1,.05,21,0)="^^1^1^2940209^^^^"
^DD(351.1,.05,21,1,0)="This is the last user who has edited this entry."
^DD(351.1,.05,"DT")="2911008"
^DD(351.1,.06,0)="DATE LAST UPDATED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.1,.06,21,0)="^^1^1^2911008^"
^DD(351.1,.06,21,1,0)="This is the last date/time that the entry was edited."
^DD(351.1,.06,"DT")="2911008"
^DD(351.1,"B","DATE ENTRY ADDED",.04)=""
^DD(351.1,"B","DATE LAST UPDATED",.06)=""
^DD(351.1,"B","DISCHARGE DATE",.02)=""
^DD(351.1,"B","PATIENT",.01)=""
^DD(351.1,"B","USER ADDING ENTRY",.03)=""
^DD(351.1,"B","USER LAST UPDATING",.05)=""
^DD(351.1,"GL",0,1,.01)=""
^DD(351.1,"GL",0,2,.02)=""
^DD(351.1,"GL",0,3,.03)=""
^DD(351.1,"GL",0,4,.04)=""
^DD(351.1,"GL",0,5,.05)=""
^DD(351.1,"GL",0,6,.06)=""
^DD(351.1,"IX",.01)=""
^DD(351.1,"RQ",.01)=""
^DD(351.2,0)="FIELD^^2.04^13"
^DD(351.2,0,"DDA")="N"
^DD(351.2,0,"DT")="2930810"
^DD(351.2,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGPM(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(405,.01,0),U,2) D Y^DIQ:Y]"""" W ""   Adm: "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(351.2,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(351.2,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(351.2,0,"IX","AC",351.2,.02)=""
^DD(351.2,0,"IX","AD",351.2,.04)=""
^DD(351.2,0,"IX","B",351.2,.01)=""
^DD(351.2,0,"NM","SPECIAL INPATIENT BILLING CASES")=""
^DD(351.2,0,"VR")="2.0"
^DD(351.2,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(351.2,.01,1,0)="^.1"
^DD(351.2,.01,1,1,0)="351.2^B"
^DD(351.2,.01,1,1,1)="S ^IBE(351.2,""B"",$E(X,1,30),DA)="""""
^DD(351.2,.01,1,1,2)="K ^IBE(351.2,""B"",$E(X,1,30),DA)"
^DD(351.2,.01,3)=""
^DD(351.2,.01,21,0)="^^1^1^2930810^"
^DD(351.2,.01,21,1,0)="This is the patient whose inpatient episode must be tracked."
^DD(351.2,.01,"DT")="2930810"
^DD(351.2,.02,0)="ADMISSION^P405'^DGPM(^0;2^Q"
^DD(351.2,.02,1,0)="^.1"
^DD(351.2,.02,1,1,0)="351.2^AC"
^DD(351.2,.02,1,1,1)="S ^IBE(351.2,""AC"",$E(X,1,30),DA)="""""
^DD(351.2,.02,1,1,2)="K ^IBE(351.2,""AC"",$E(X,1,30),DA)"
^DD(351.2,.02,1,1,"DT")="2930811"
^DD(351.2,.02,21,0)="^^2^2^2930810^"
^DD(351.2,.02,21,1,0)="This field points to the admission in the PATIENT MOVEMENT (#405)"
^DD(351.2,.02,21,2,0)="file which is being tracked."
^DD(351.2,.02,"DT")="2930811"
^DD(351.2,.03,0)="PATIENT TYPE^S^1:AGENT ORANGE;2:IONIZING RADIATION;3:SOUTHWEST ASIA;4:SERVICE CONNECTED;5:MILITARY SEXUAL TRAUMA;6:HEAD/NECK CANCER;7:COMBAT VETERAN;8:PROJECT 112/SHAD;^0;3^Q"
^DD(351.2,.03,3)="Please enter a number from 1 to 8 that best represents the exposure being claimed."
^DD(351.2,.03,21,0)="^.001^3^3^3060818^^^^"
^DD(351.2,.03,21,1,0)="This field is used to determine whether the patient has claimed exposure"
^DD(351.2,.03,21,2,0)="to Agent Orange, Ionizing Radiation, Southwest Asia, Military"
^DD(351.2,.03,21,3,0)="Sexual Trauma, Head/Neck Cancer or Project 112/SHAD."
^DD(351.2,.03,"DT")="3060802"
^DD(351.2,.04,0)="BILLING EVENT^P350'^IB(^0;4^Q"
^DD(351.2,.04,1,0)="^.1"
^DD(351.2,.04,1,1,0)="351.2^AD"
^DD(351.2,.04,1,1,1)="S ^IBE(351.2,""AD"",$E(X,1,30),DA)="""""
^DD(351.2,.04,1,1,2)="K ^IBE(351.2,""AD"",$E(X,1,30),DA)"
^DD(351.2,.04,1,1,"DT")="2930811"
^DD(351.2,.04,21,0)="^^3^3^2930810^"
^DD(351.2,.04,21,1,0)="This field points to the event record in the INTEGRATED BILLING ACTION"
^DD(351.2,.04,21,2,0)="(#350) file which may be used to reference all charges associated with"
^DD(351.2,.04,21,3,0)="the admission."
^DD(351.2,.04,"DT")="2930811"
^DD(351.2,.05,0)="PATIENT STATUS^S^1:ADMITTED;2:DISCHARGED;^0;5^Q"
^DD(351.2,.05,21,0)="^^3^3^2940209^^^"
^DD(351.2,.05,21,1,0)="This field indicates whether the patient is admitted or has been"
^DD(351.2,.05,21,2,0)="discharged.  The field is used to determine if monitoring of the"
^DD(351.2,.05,21,3,0)="billing case should begin."
^DD(351.2,.05,"DT")="2930810"
^DD(351.2,.06,0)="DATE DISCHARGE ENTERED^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.2,.06,21,0)="^^3^3^2930810^"
^DD(351.2,.06,21,1,0)="This field contains the date that the patient's discharge movement"
^DD(351.2,.06,21,2,0)="was entered into the system.  The date is used as the starting date"
^DD(351.2,.06,21,3,0)="in the 45-day period in which this case must be dispositioned."
^DD(351.2,.06,"DT")="2930810"
^DD(351.2,.07,0)="CARE RELATED TO CONDITION?^S^0:NO;1:YES;^0;7^Q"
^DD(351.2,.07,21,0)="^^3^3^2930810^"
^DD(351.2,.07,21,1,0)="This field indicates whether this patient's inpatient episode of"
^DD(351.2,.07,21,2,0)="care has any component at all which is related to the patient's"
^DD(351.2,.07,21,3,0)="claimed exposure."
^DD(351.2,.07,"DT")="2930810"
^DD(351.2,.08,0)="CASE DISPOSITIONED?^S^0:NO;1:YES;^0;8^Q"
^DD(351.2,.08,21,0)="^^3^3^2930810^"
^DD(351.2,.08,21,1,0)="This field indicates whether this billing case has been fully"
^DD(351.2,.08,21,2,0)="dispositioned.  Once the case has been dispositioned, then it"
^DD(351.2,.08,21,3,0)="will no longer be monitored by the nightly billing job."
^DD(351.2,.08,"DT")="2930810"
^DD(351.2,1,0)="REASON FOR NON-BILLING^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(351.2,1,3)="Answer must be 1-80 characters in length."
^DD(351.2,1,21,0)="^^2^2^2930810^"
^DD(351.2,1,21,1,0)="This field allows the user to enter a free-text comment explaining why"
^DD(351.2,1,21,2,0)="this inpatient episode of care was not billed."
^DD(351.2,1,"DT")="2930810"
^DD(351.2,2.01,0)="USER ADDING ENTRY^P200'^VA(200,^2;1^Q"
^DD(351.2,2.01,21,0)="^^3^3^2930810^"
^DD(351.2,2.01,21,1,0)="This field contains a pointer to the user who caused this entry to"
^DD(351.2,2.01,21,2,0)="be created.  This would normally be the user who enters the admission"
^DD(351.2,2.01,21,3,0)="movement for the patient."
^DD(351.2,2.01,"DT")="2930810"
^DD(351.2,2.02,0)="DATE/TIME ENTRY CREATED^D^^2;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.2,2.02,21,0)="^^1^1^2930810^"
^DD(351.2,2.02,21,1,0)="This is the date/time that the entry was created."
^DD(351.2,2.02,"DT")="2930810"
^DD(351.2,2.03,0)="USER LAST UPDATING^P200'^VA(200,^2;3^Q"
^DD(351.2,2.03,21,0)="^^1^1^2930810^"
^DD(351.2,2.03,21,1,0)="This field is a pointer to the user who last updated the entry."
^DD(351.2,2.03,"DT")="2930810"
^DD(351.2,2.04,0)="DATE LAST UPDATED^D^^2;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.2,2.04,21,0)="^^1^1^2930810^"
^DD(351.2,2.04,21,1,0)="This is the date/time that the entry was last updated."
^DD(351.2,2.04,"DT")="2930810"
^DD(351.2,"B","ADMISSION",.02)=""
^DD(351.2,"B","BILLING EVENT",.04)=""
^DD(351.2,"B","CARE RELATED TO CONDITION?",.07)=""
^DD(351.2,"B","CASE DISPOSITIONED?",.08)=""
^DD(351.2,"B","DATE DISCHARGE ENTERED",.06)=""
^DD(351.2,"B","DATE LAST UPDATED",2.04)=""
^DD(351.2,"B","DATE/TIME ENTRY CREATED",2.02)=""
^DD(351.2,"B","PATIENT",.01)=""
^DD(351.2,"B","PATIENT STATUS",.05)=""
^DD(351.2,"B","PATIENT TYPE",.03)=""
^DD(351.2,"B","REASON FOR NON-BILLING",1)=""
^DD(351.2,"B","USER ADDING ENTRY",2.01)=""
^DD(351.2,"B","USER LAST UPDATING",2.03)=""
^DD(351.2,"GL",0,1,.01)=""
^DD(351.2,"GL",0,2,.02)=""
^DD(351.2,"GL",0,3,.03)=""
^DD(351.2,"GL",0,4,.04)=""
^DD(351.2,"GL",0,5,.05)=""
^DD(351.2,"GL",0,6,.06)=""
^DD(351.2,"GL",0,7,.07)=""
^DD(351.2,"GL",0,8,.08)=""
^DD(351.2,"GL",1,1,1)=""
^DD(351.2,"GL",2,1,2.01)=""
^DD(351.2,"GL",2,2,2.02)=""
^DD(351.2,"GL",2,3,2.03)=""
^DD(351.2,"GL",2,4,2.04)=""
^DD(351.2,"IX",.01)=""
^DD(351.2,"IX",.02)=""
^DD(351.2,"IX",.04)=""
^DD(351.2,"RQ",.01)=""
^DD(351.5,0)="FIELD^^8.01^33"
^DD(351.5,0,"DDA")="N"
^DD(351.5,0,"DT")="3010831"
^DD(351.5,0,"IX","ACC",351.5,.08)=""
^DD(351.5,0,"IX","ACL",351.5,.09)=""
^DD(351.5,0,"IX","AUTH",351.5,2.06)=""
^DD(351.5,0,"IX","B",351.5,.01)=""
^DD(351.5,0,"NM","TRICARE PHARMACY TRANSACTIONS")=""
^DD(351.5,0,"PT",351.52,.02)=""
^DD(351.5,0,"VR")="2.0"
^DD(351.5,0,"VRPK")="IB"
^DD(351.5,.01,0)="PRESCRIPTION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(351.5,.01,1,0)="^.1"
^DD(351.5,.01,1,1,0)="351.5^B"
^DD(351.5,.01,1,1,1)="S ^IBA(351.5,""B"",$E(X,1,30),DA)="""""
^DD(351.5,.01,1,1,2)="K ^IBA(351.5,""B"",$E(X,1,30),DA)"
^DD(351.5,.01,3)="Answer must be 3-30 characters in length."
^DD(351.5,.01,"DT")="2960816"
^DD(351.5,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(351.5,.02,"DT")="2960816"
^DD(351.5,.03,0)="CARD HOLDER SSN^F^^0;3^K:$L(X)>12!($L(X)<1) X"
^DD(351.5,.03,3)="Answer must be 1-12 characters in length."
^DD(351.5,.03,"DT")="2960816"
^DD(351.5,.04,0)="NDC^F^^0;4^K:$L(X)>11!($L(X)<1) X"
^DD(351.5,.04,3)="Answer must be 1-11 characters in length."
^DD(351.5,.04,"DT")="2960816"
^DD(351.5,.05,0)="AMOUNT TRANSMITTED^NJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<1) X"
^DD(351.5,.05,3)="Type a Dollar Amount between 1 and 9999999, 2 Decimal Digits"
^DD(351.5,.05,"DT")="2960816"
^DD(351.5,.06,0)="QUANTITY^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(351.5,.06,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(351.5,.06,"DT")="2960816"
^DD(351.5,.07,0)="TRANSACTION DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.5,.07,"DT")="2960816"
^DD(351.5,.08,0)="COPAYMENT CHARGE^P350'^IB(^0;8^Q"
^DD(351.5,.08,1,0)="^.1"
^DD(351.5,.08,1,1,0)="351.5^ACC"
^DD(351.5,.08,1,1,1)="S ^IBA(351.5,""ACC"",$E(X,1,30),DA)="""""
^DD(351.5,.08,1,1,2)="K ^IBA(351.5,""ACC"",$E(X,1,30),DA)"
^DD(351.5,.08,1,1,"DT")="2960827"
^DD(351.5,.08,21,0)="^^2^2^2960819^"
^DD(351.5,.08,21,1,0)="This field points to the copayment charge in the INTEGRATED BILLING"
^DD(351.5,.08,21,2,0)="ACTION (#350) file which was actually billed to the patient."
^DD(351.5,.08,"DT")="2960827"
^DD(351.5,.09,0)="FISCAL INTERMEDIARY CLAIM^P399'^DGCR(399,^0;9^Q"
^DD(351.5,.09,1,0)="^.1"
^DD(351.5,.09,1,1,0)="351.5^ACL"
^DD(351.5,.09,1,1,1)="S ^IBA(351.5,""ACL"",$E(X,1,30),DA)="""""
^DD(351.5,.09,1,1,2)="K ^IBA(351.5,""ACL"",$E(X,1,30),DA)"
^DD(351.5,.09,1,1,"DT")="2960827"
^DD(351.5,.09,21,0)="^^5^5^2960819^"
^DD(351.5,.09,21,1,0)="This field points to the claim in the BILL/CLAIMS (#399) file"
^DD(351.5,.09,21,2,0)="which was created after the response from the FI was received."
^DD(351.5,.09,21,3,0)="Creation of this claim also establishes a receivable in the"
^DD(351.5,.09,21,4,0)="ACCOUNTS RECEIVABLE (#430) file against which the FI payment"
^DD(351.5,.09,21,5,0)="will be posted."
^DD(351.5,.09,"DT")="2960827"
^DD(351.5,.1,0)="PRODUCT SELECTION REASON^P351.53'^IBA(351.53,^0;10^Q"
^DD(351.5,.1,3)="Choose a Product Selection Reason from those listed."
^DD(351.5,.1,21,0)="^.001^1^1^3010906^^^"
^DD(351.5,.1,21,1,0)="This field will store the Product Selection Reason for billing acceptance."
^DD(351.5,.1,"DT")="3010831"
^DD(351.5,2.01,0)="COPAY^NJ9,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,2.01,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,2.01,"DT")="2960816"
^DD(351.5,2.02,0)="INGREDIENT COST PAID^NJ9,2^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,2.02,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,2.02,"DT")="2960816"
^DD(351.5,2.03,0)="CONTRACT FEE PAID^NJ9,2^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,2.03,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,2.03,"DT")="2960816"
^DD(351.5,2.04,0)="SALES TAX PAID^NJ9,2^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,2.04,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,2.04,"DT")="2960816"
^DD(351.5,2.05,0)="TOTAL AMOUNT PAID^NJ9,2^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,2.05,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,2.05,"DT")="2960816"
^DD(351.5,2.06,0)="AUTHORIZATION NUMBER^F^^2;6^K:$L(X)>14!($L(X)<1) X"
^DD(351.5,2.06,1,0)="^.1"
^DD(351.5,2.06,1,1,0)="351.5^AUTH"
^DD(351.5,2.06,1,1,1)="S ^IBA(351.5,""AUTH"",$E(X,1,30),DA)="""""
^DD(351.5,2.06,1,1,2)="K ^IBA(351.5,""AUTH"",$E(X,1,30),DA)"
^DD(351.5,2.06,1,1,"DT")="2960821"
^DD(351.5,2.06,3)="Answer must be 1-14 characters in length."
^DD(351.5,2.06,"DT")="2960821"
^DD(351.5,2.07,0)="MESSAGE^F^^2;7^K:$L(X)>40!($L(X)<1) X"
^DD(351.5,2.07,3)="Answer must be 1-40 characters in length."
^DD(351.5,2.07,"DT")="2960816"
^DD(351.5,3.01,0)="ACCUMULATED DEDUCTIBLE AMOUNT^NJ11,2^^3;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<1) X"
^DD(351.5,3.01,3)="Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits"
^DD(351.5,3.01,"DT")="2960816"
^DD(351.5,3.02,0)="REMAINING DEDUCTABLE AMOUNT^NJ11,2^^3;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<1) X"
^DD(351.5,3.02,3)="Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits"
^DD(351.5,3.02,"DT")="2960816"
^DD(351.5,3.03,0)="REMAINING BENEFIT AMOUNT^NJ11,2^^3;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<1) X"
^DD(351.5,3.03,3)="Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits"
^DD(351.5,3.03,"DT")="2960816"
^DD(351.5,3.04,0)="ATM APPL TO PER DEDUCTIBLE^NJ9,2^^3;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,3.04,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,3.04,"DT")="2960816"
^DD(351.5,3.05,0)="AMT COPAY/COINSURANCE^NJ9,2^^3;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,3.05,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,3.05,"DT")="2960816"
^DD(351.5,3.06,0)="AMT ATTRIB TO PROD SEL^NJ9,2^^3;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,3.06,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,3.06,"DT")="2960816"
^DD(351.5,3.07,0)="AMT EXCEEDING PERIODIC MAX BEN^NJ9,2^^3;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,3.07,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,3.07,"DT")="2960816"
^DD(351.5,3.08,0)="INCENTIVE FEE PAID^NJ9,2^^3;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,3.08,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,3.08,"DT")="2960816"
^DD(351.5,3.09,0)="BASIS OF REIMB DETERMINATION^S^0:NOT SPECIFIED;1:PAID AS SUBMITTED;2:REDUCED TO AWP;3:AWP-X% PRICING;4:USUAL AND CUSTOMARY;5:LOWER IF ING. COST PLUS FEES VS U&C;6:MAC PRICING;7:MAC REDUCED TO MAC;8:CONTRACT PRICING;^3;9^Q"
^DD(351.5,3.09,"DT")="2960816"
^DD(351.5,3.1,0)="AMOUNT ATTRIB TO SALES TAX^NJ9,2^^3;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(351.5,3.1,3)="Type a Dollar Amount between 1 and 999999, 2 Decimal Digits"
^DD(351.5,3.1,"DT")="2960816"
^DD(351.5,5.01,0)="ERROR CODES^F^^5;1^K:$L(X)>245!($L(X)<1) X"
^DD(351.5,5.01,3)="Answer must be 1-245 characters in length."
^DD(351.5,5.01,"DT")="2960816"
^DD(351.5,6.01,0)="REVERSAL AUTH NUMBER^F^^6;1^K:$L(X)>14!($L(X)<1) X"
^DD(351.5,6.01,3)="Answer must be 1-14 characters in length."
^DD(351.5,6.01,"DT")="2960816"
^DD(351.5,6.02,0)="REVERSED BY^P200'^VA(200,^6;2^Q"
^DD(351.5,6.02,"DT")="2960816"
^DD(351.5,6.03,0)="REVERSAL ERROR CODES^F^^6;3^K:$L(X)>180!($L(X)<1) X"
^DD(351.5,6.03,3)="Answer must be 1-180 characters in length."
^DD(351.5,6.03,"DT")="2960816"
^DD(351.5,7.01,0)="DUR RESPONSE DATA^F^^7;1^K:$L(X)>160!($L(X)<1) X"
^DD(351.5,7.01,3)="Answer must be 1-160 characters in length."
^DD(351.5,7.01,"DT")="2960816"
^DD(351.5,8.01,0)="ADDITIONAL MESSAGE INFORMATION^F^^8;1^K:$L(X)>80!($L(X)<1) X"
^DD(351.5,8.01,3)="Answer must be 1-80 characters in length."
^DD(351.5,8.01,"DT")="2960816"
^DD(351.5,"B","ACCUMULATED DEDUCTIBLE AMOUNT",3.01)=""
^DD(351.5,"B","ADDITIONAL MESSAGE INFORMATION",8.01)=""
^DD(351.5,"B","AMOUNT ATTRIB TO SALES TAX",3.1)=""
^DD(351.5,"B","AMOUNT TRANSMITTED",.05)=""
^DD(351.5,"B","AMT ATTRIB TO PROD SEL",3.06)=""
^DD(351.5,"B","AMT COPAY/COINSURANCE",3.05)=""
^DD(351.5,"B","AMT EXCEEDING PERIODIC MAX BEN",3.07)=""
^DD(351.5,"B","ATM APPL TO PER DEDUCTIBLE",3.04)=""
^DD(351.5,"B","AUTHORIZATION NUMBER",2.06)=""
^DD(351.5,"B","BASIS OF REIMB DETERMINATION",3.09)=""
^DD(351.5,"B","CARD HOLDER SSN",.03)=""
^DD(351.5,"B","CONTRACT FEE PAID",2.03)=""
^DD(351.5,"B","COPAY",2.01)=""
^DD(351.5,"B","COPAYMENT CHARGE",.08)=""
^DD(351.5,"B","DUR RESPONSE DATA",7.01)=""
^DD(351.5,"B","ERROR CODES",5.01)=""
^DD(351.5,"B","FISCAL INTERMEDIARY CLAIM",.09)=""
^DD(351.5,"B","INCENTIVE FEE PAID",3.08)=""
^DD(351.5,"B","INGREDIENT COST PAID",2.02)=""
^DD(351.5,"B","MESSAGE",2.07)=""
^DD(351.5,"B","NDC",.04)=""
^DD(351.5,"B","PATIENT",.02)=""
^DD(351.5,"B","PRESCRIPTION",.01)=""
^DD(351.5,"B","PRODUCT SELECTION REASON",.1)=""
^DD(351.5,"B","QUANTITY",.06)=""
^DD(351.5,"B","REMAINING BENEFIT AMOUNT",3.03)=""
^DD(351.5,"B","REMAINING DEDUCTABLE AMOUNT",3.02)=""
^DD(351.5,"B","REVERSAL AUTH NUMBER",6.01)=""
^DD(351.5,"B","REVERSAL ERROR CODES",6.03)=""
^DD(351.5,"B","REVERSED BY",6.02)=""
^DD(351.5,"B","SALES TAX PAID",2.04)=""
^DD(351.5,"B","TOTAL AMOUNT PAID",2.05)=""
^DD(351.5,"B","TRANSACTION DATE",.07)=""
^DD(351.5,"GL",0,1,.01)=""
^DD(351.5,"GL",0,2,.02)=""
^DD(351.5,"GL",0,3,.03)=""
^DD(351.5,"GL",0,4,.04)=""
^DD(351.5,"GL",0,5,.05)=""
^DD(351.5,"GL",0,6,.06)=""
^DD(351.5,"GL",0,7,.07)=""
^DD(351.5,"GL",0,8,.08)=""
^DD(351.5,"GL",0,9,.09)=""
^DD(351.5,"GL",0,10,.1)=""
^DD(351.5,"GL",2,1,2.01)=""
^DD(351.5,"GL",2,2,2.02)=""
^DD(351.5,"GL",2,3,2.03)=""
^DD(351.5,"GL",2,4,2.04)=""
^DD(351.5,"GL",2,5,2.05)=""
^DD(351.5,"GL",2,6,2.06)=""
^DD(351.5,"GL",2,7,2.07)=""
^DD(351.5,"GL",3,1,3.01)=""
^DD(351.5,"GL",3,2,3.02)=""
^DD(351.5,"GL",3,3,3.03)=""
^DD(351.5,"GL",3,4,3.04)=""
^DD(351.5,"GL",3,5,3.05)=""
^DD(351.5,"GL",3,6,3.06)=""
^DD(351.5,"GL",3,7,3.07)=""
^DD(351.5,"GL",3,8,3.08)=""
^DD(351.5,"GL",3,9,3.09)=""
^DD(351.5,"GL",3,10,3.1)=""
^DD(351.5,"GL",5,1,5.01)=""
^DD(351.5,"GL",6,1,6.01)=""
^DD(351.5,"GL",6,2,6.02)=""
^DD(351.5,"GL",6,3,6.03)=""
^DD(351.5,"GL",7,1,7.01)=""
^DD(351.5,"GL",8,1,8.01)=""
^DD(351.5,"IX",.01)=""
^DD(351.5,"IX",.08)=""
^DD(351.5,"IX",.09)=""
^DD(351.5,"IX",2.06)=""
^DD(351.5,"RQ",.01)=""
^DD(351.51,0)="FIELD^^.03^3"
^DD(351.51,0,"DDA")="N"
^DD(351.51,0,"DT")="2960815"
^DD(351.51,0,"IX","AC",351.51,.02)=""
^DD(351.51,0,"IX","AD",351.51,.01)=""
^DD(351.51,0,"IX","AD1",351.51,.02)=""
^DD(351.51,0,"IX","B",351.51,.01)=""
^DD(351.51,0,"NM","TRICARE PHARMACY ERRORS")=""
^DD(351.51,0,"VR")="2.0"
^DD(351.51,0,"VRPK")="IB"
^DD(351.51,.01,0)="SYSTEM^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(351.51,.01,1,0)="^.1"
^DD(351.51,.01,1,1,0)="351.51^B"
^DD(351.51,.01,1,1,1)="S ^IBE(351.51,""B"",$E(X,1,30),DA)="""""
^DD(351.51,.01,1,1,2)="K ^IBE(351.51,""B"",$E(X,1,30),DA)"
^DD(351.51,.01,1,2,0)="351.51^AD^MUMPS"
^DD(351.51,.01,1,2,1)="I $P(^IBE(351.51,DA,0),U,2)]"""" S ^IBE(351.51,""AD"",X,$P(^(0),U,2),DA)="""""
^DD(351.51,.01,1,2,2)="I $P(^IBE(351.51,DA,0),U,2)]"""" K ^IBE(351.51,""AD"",X,$P(^(0),U,2),DA)"
^DD(351.51,.01,1,2,"%D",0)="^^3^3^2960815^"
^DD(351.51,.01,1,2,"%D",1,0)="Cross reference of all errors by System and Error Code."
^DD(351.51,.01,1,2,"%D",2,0)="The AD1 cross reference on the ERROR CODE (#.02) field is the"
^DD(351.51,.01,1,2,"%D",3,0)="companion to this cross reference."
^DD(351.51,.01,1,2,"DT")="2960815"
^DD(351.51,.01,3)="Answer must be 3-30 characters in length."
^DD(351.51,.01,21,0)="^^12^12^2960815^"
^DD(351.51,.01,21,1,0)="This field describes the system on which the error occurred."
^DD(351.51,.01,21,2,0)="A description of the systems are as follows:"
^DD(351.51,.01,21,3,0)=" "
^DD(351.51,.01,21,4,0)="  System         Description"
^DD(351.51,.01,21,5,0)="  ------         -----------"
^DD(351.51,.01,21,6,0)="  DHCP           These errors are identified in DHCP."
^DD(351.51,.01,21,7,0)="  MLINK          These errors are identified by the commercial"
^DD(351.51,.01,21,8,0)="                 point-of-sale pharmacy billing package."
^DD(351.51,.01,21,9,0)="  UNIVERSAL      These errors are identified by the Fiscal Intermediary."
^DD(351.51,.01,21,10,0)=" "
^DD(351.51,.01,21,11,0)="Both the System and the Error Code are required to identify a"
^DD(351.51,.01,21,12,0)="specific error, as different systems may use the same error code."
^DD(351.51,.01,"DT")="2960815"
^DD(351.51,.02,0)="ERROR CODE^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(351.51,.02,1,0)="^.1"
^DD(351.51,.02,1,1,0)="351.51^AC"
^DD(351.51,.02,1,1,1)="S ^IBE(351.51,""AC"",$E(X,1,30),DA)="""""
^DD(351.51,.02,1,1,2)="K ^IBE(351.51,""AC"",$E(X,1,30),DA)"
^DD(351.51,.02,1,1,"DT")="2960815"
^DD(351.51,.02,1,2,0)="351.51^AD1^MUMPS"
^DD(351.51,.02,1,2,1)="I $P(^IBE(351.51,DA,0),U)]"""" S ^IBE(351.51,""AD"",$P(^(0),U),X,DA)="""""
^DD(351.51,.02,1,2,2)="I $P(^IBE(351.51,DA,0),U)]"""" K ^IBE(351.51,""AD"",$P(^(0),U),X,DA)"
^DD(351.51,.02,1,2,"%D",0)="^^3^3^2960815^"
^DD(351.51,.02,1,2,"%D",1,0)="Cross reference of all errors by System and Error Code."
^DD(351.51,.02,1,2,"%D",2,0)="The AD cross reference on the SYSTEM (#.01) field is the"
^DD(351.51,.02,1,2,"%D",3,0)="companion to this cross reference."
^DD(351.51,.02,1,2,"DT")="2960815"
^DD(351.51,.02,3)="Answer must be 1-5 characters in length."
^DD(351.51,.02,21,0)="^^2^2^2960815^"
^DD(351.51,.02,21,1,0)="This code is used, along with the System on which the error occurred,"
^DD(351.51,.02,21,2,0)="to identify an error."
^DD(351.51,.02,"DT")="2960815"
^DD(351.51,.03,0)="ERROR MESSAGE^F^^0;3^K:$L(X)>60!($L(X)<1) X"
^DD(351.51,.03,3)="Answer must be 1-60 characters in length."
^DD(351.51,.03,21,0)="^^2^2^2960815^"
^DD(351.51,.03,21,1,0)="This field describes the error identified by both System and"
^DD(351.51,.03,21,2,0)="error code."
^DD(351.51,.03,"DT")="2960815"
^DD(351.51,"B","ERROR CODE",.02)=""
^DD(351.51,"B","ERROR MESSAGE",.03)=""
^DD(351.51,"B","SYSTEM",.01)=""
^DD(351.51,"GL",0,1,.01)=""
^DD(351.51,"GL",0,2,.02)=""
^DD(351.51,"GL",0,3,.03)=""
^DD(351.51,"IX",.01)=""
^DD(351.51,"IX",.02)=""
^DD(351.51,"RQ",.01)=""
^DD(351.52,0)="FIELD^^1.01^4"
^DD(351.52,0,"DDA")="N"
^DD(351.52,0,"DT")="2960816"
^DD(351.52,0,"IX","B",351.52,.01)=""
^DD(351.52,0,"NM","TRICARE PHARMACY REJECTS")=""
^DD(351.52,0,"VR")="2.0"
^DD(351.52,0,"VRPK")="IB"
^DD(351.52,.01,0)="PRESCRIPTION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(351.52,.01,1,0)="^.1"
^DD(351.52,.01,1,1,0)="351.52^B"
^DD(351.52,.01,1,1,1)="S ^IBA(351.52,""B"",$E(X,1,30),DA)="""""
^DD(351.52,.01,1,1,2)="K ^IBA(351.52,""B"",$E(X,1,30),DA)"
^DD(351.52,.01,3)="Answer must be 3-30 characters in length."
^DD(351.52,.01,"DT")="2960816"
^DD(351.52,.02,0)="ORIGINAL TRANSACTION^P351.5'^IBA(351.5,^0;2^Q"
^DD(351.52,.02,"DT")="2960816"
^DD(351.52,.03,0)="REJECTION DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.52,.03,"DT")="2960816"
^DD(351.52,1.01,0)="REJECTION ERROR CODES^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(351.52,1.01,3)="Answer must be 1-245 characters in length."
^DD(351.52,1.01,"DT")="2960816"
^DD(351.52,"B","ORIGINAL TRANSACTION",.02)=""
^DD(351.52,"B","PRESCRIPTION",.01)=""
^DD(351.52,"B","REJECTION DATE",.03)=""
^DD(351.52,"B","REJECTION ERROR CODES",1.01)=""
^DD(351.52,"GL",0,1,.01)=""
^DD(351.52,"GL",0,2,.02)=""
^DD(351.52,"GL",0,3,.03)=""
^DD(351.52,"GL",1,1,1.01)=""
^DD(351.52,"IX",.01)=""
^DD(351.52,"RQ",.01)=""
^DD(351.53,0)="FIELD^^.03^3"
^DD(351.53,0,"DDA")="N"
^DD(351.53,0,"DT")="3010702"
^DD(351.53,0,"ID",.03)="D EN^DDIOL($E($P(^(0),U,3),1,20),"""",""?3"")"
^DD(351.53,0,"ID","WRITE")="D EN^DDIOL($E($P(^(0),U,2),1,48),"""",""?31"")"
^DD(351.53,0,"IX","B",351.53,.01)=""
^DD(351.53,0,"NM","PRODUCT SELECTION REASON")=""
^DD(351.53,0,"PT",351.5,.1)=""
^DD(351.53,0,"VR")="2.0"
^DD(351.53,0,"VRPK")="IB"
^DD(351.53,.01,0)="CODE^F^^0;1^K:$L(X)>3!($L(X)<1) X"
^DD(351.53,.01,1,0)="^.1"
^DD(351.53,.01,1,1,0)="351.53^B"
^DD(351.53,.01,1,1,1)="S ^IBA(351.53,""B"",$E(X,1,30),DA)="""""
^DD(351.53,.01,1,1,2)="K ^IBA(351.53,""B"",$E(X,1,30),DA)"
^DD(351.53,.01,3)="Answer must be 1-3 characters in length."
^DD(351.53,.01,4)=""
^DD(351.53,.01,21,0)="^.001^3^3^3010712^^^^"
^DD(351.53,.01,21,1,0)="This field contains the Product Selection Reason Code for a prescription"
^DD(351.53,.01,21,2,0)="to be accepted and billed if the prescription is rejected by the RNA system "
^DD(351.53,.01,21,3,0)="with an error."
^DD(351.53,.01,"DT")="3010702"
^DD(351.53,.02,0)="LONG REASON^RF^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(351.53,.02,1,0)="^.1^^0"
^DD(351.53,.02,3)="Answer must be 3-60 characters in length."
^DD(351.53,.02,21,0)="^.001^1^1^3010717^^^^"
^DD(351.53,.02,21,1,0)="This field contains a detailed explanation of the code in the .01 field."
^DD(351.53,.02,"DT")="3010717"
^DD(351.53,.03,0)="SHORT REASON^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(351.53,.03,1,0)="^.1^^0"
^DD(351.53,.03,3)="Answer must be 3-30 characters in length."
^DD(351.53,.03,21,0)="^.001^1^1^3010717^^^^"
^DD(351.53,.03,21,1,0)="This field contains the abbreviated explanation of the code in the .01 field."
^DD(351.53,.03,"DT")="3010717"
^DD(351.53,"B","CODE",.01)=""
^DD(351.53,"B","LONG REASON",.02)=""
^DD(351.53,"B","SHORT REASON",.03)=""
^DD(351.53,"GL",0,1,.01)=""
^DD(351.53,"GL",0,2,.02)=""
^DD(351.53,"GL",0,3,.03)=""
^DD(351.53,"IX",.01)=""
^DD(351.53,"RQ",.02)=""
^DD(351.6,0)="FIELD^^.11^11"
^DD(351.6,0,"DDA")="N"
^DD(351.6,0,"DT")="3000530"
^DD(351.6,0,"IX","B",351.6,.01)=""
^DD(351.6,0,"NM","TRANSFER PRICING PATIENT")=""
^DD(351.6,0,"PT",350.9,10.01)=""
^DD(351.6,0,"PT",351.61,.02)=""
^DD(351.6,0,"VR")="2.0"
^DD(351.6,0,"VRPK")="IB"
^DD(351.6,.01,0)="PATIENT^RP2'X^DPT(^0;1^S DINUM=X"
^DD(351.6,.01,1,0)="^.1"
^DD(351.6,.01,1,1,0)="351.6^B"
^DD(351.6,.01,1,1,1)="S ^IBAT(351.6,""B"",$E(X,1,30),DA)="""""
^DD(351.6,.01,1,1,2)="K ^IBAT(351.6,""B"",$E(X,1,30),DA)"
^DD(351.6,.01,3)="Select a Transfer Pricing patient"
^DD(351.6,.01,21,0)="^.001^1^1^3000518^^"
^DD(351.6,.01,21,1,0)="This field is a pointer to the Patient file (#2)."
^DD(351.6,.01,"DT")="2981203"
^DD(351.6,.02,0)="DATE ADDED TO FILE^RDI^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.6,.02,1,0)="^.1^^0"
^DD(351.6,.02,3)="This is the date the patient was added"
^DD(351.6,.02,21,0)="^^3^3^2981203^"
^DD(351.6,.02,21,1,0)="This stores when this Transfer Pricing patient was added to the file."
^DD(351.6,.02,21,2,0)="Usually happens when this patient has his first Transfer Pricing"
^DD(351.6,.02,21,3,0)="transaction."
^DD(351.6,.02,"DT")="2990312"
^DD(351.6,.03,0)="PREFERRED FACILITY^RP4'^DIC(4,^0;3^Q"
^DD(351.6,.03,1,0)="^.1^^0"
^DD(351.6,.03,3)="This is the patient's preferred facility"
^DD(351.6,.03,21,0)="^^2^2^2981203^"
^DD(351.6,.03,21,1,0)="This is the Transfer Pricing patient's preferred facility as of the last"
^DD(351.6,.03,21,2,0)="transaction processed."
^DD(351.6,.03,"DT")="3000523"
^DD(351.6,.04,0)="TRANSFER PRICING STATUS^RS^0:INACTIVE;1:ACTIVE;^0;4^Q"
^DD(351.6,.04,3)="Choose if this patient is active or not."
^DD(351.6,.04,21,0)="^^4^4^3000609^"
^DD(351.6,.04,21,1,0)="This is a flag showing if the patient is still enrolled with their"
^DD(351.6,.04,21,2,0)="preferred facility being other than the current facility.  This is only"
^DD(351.6,.04,21,3,0)="updated if there are Transfer Pricing transactions or by user"
^DD(351.6,.04,21,4,0)="intervention."
^DD(351.6,.04,"DT")="2981203"
^DD(351.6,.05,0)="LAST ADMISSION DATE^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.6,.05,1,0)="^.1^^0"
^DD(351.6,.05,3)="This is the last admission date"
^DD(351.6,.05,21,0)="^^2^2^3000707^"
^DD(351.6,.05,21,1,0)="This is the patient's last admission date that they were considered an"
^DD(351.6,.05,21,2,0)="active Transfer Pricing patient."
^DD(351.6,.05,"DT")="2990312"
^DD(351.6,.06,0)="LAST OUTPATIENT VISIT DATE^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.6,.06,1,0)="^.1^^0"
^DD(351.6,.06,3)="This is the last outpatient date"
^DD(351.6,.06,21,0)="^^2^2^2981203^"
^DD(351.6,.06,21,1,0)="This is the patient's last outpatient visit date that they were considered"
^DD(351.6,.06,21,2,0)="an active Transfer Pricing patient."
^DD(351.6,.06,"DT")="2990312"
^DD(351.6,.07,0)="LAST PRESCRIPTION DATE^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.6,.07,1,0)="^.1^^0"
^DD(351.6,.07,3)="This is the last prescription date"
^DD(351.6,.07,21,0)="^^2^2^2981203^"
^DD(351.6,.07,21,1,0)="This is the patient's last prescription date that they were considered an"
^DD(351.6,.07,21,2,0)="active Transfer Pricing patient."
^DD(351.6,.07,"DT")="2990312"
^DD(351.6,.08,0)="LAST AUTHORIZING PERSON^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(351.6,.08,3)="Answer must be 3-30 characters in length."
^DD(351.6,.08,21,0)="^.001^3^3^3000609^^"
^DD(351.6,.08,21,1,0)="This field is used to store the person's name from the patient's preferred"
^DD(351.6,.08,21,2,0)="facility who last authorized services.  This is used as a default for any"
^DD(351.6,.08,21,3,0)="future authorizations being entered."
^DD(351.6,.08,"DT")="2981203"
^DD(351.6,.09,0)="LAST AUTHORIZING FACILITY^P4'^DIC(4,^0;9^Q"
^DD(351.6,.09,3)="This is the last facility to provide authorization"
^DD(351.6,.09,21,0)="^^1^1^2981203^"
^DD(351.6,.09,21,1,0)="This is the facility where the last authorization was gotten from."
^DD(351.6,.09,"DT")="2981203"
^DD(351.6,.1,0)="OVERRIDDEN FACILITY^*P4'^DIC(4,^0;10^S DIC(""S"")=""I $$SCR^IBATUTL(Y),$$INST^IBATUTL(Y)'[""""VISN"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(351.6,.1,1,0)="^.1^^0"
^DD(351.6,.1,3)="This is the facility to override all others for this patient"
^DD(351.6,.1,12)="Only Valid Facilities, no VISNs allowed"
^DD(351.6,.1,12.1)="S DIC(""S"")=""I $$SCR^IBATUTL(Y),$$INST^IBATUTL(Y)'[""""VISN"""""""
^DD(351.6,.1,21,0)="^^3^3^3000518^"
^DD(351.6,.1,21,1,0)="This field, if filled in, will override what the patient's preferred"
^DD(351.6,.1,21,2,0)="facility is for all future transactions as long as there is something in"
^DD(351.6,.1,21,3,0)="this field."
^DD(351.6,.1,"DT")="3000523"
^DD(351.6,.11,0)="LAST PROSTHETIC DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.6,.11,3)="This is the last date a prosthetic device was issued."
^DD(351.6,.11,21,0)="^^1^1^3000530^"
^DD(351.6,.11,21,1,0)="This is the last date a prosthetic device was issued."
^DD(351.6,.11,"DT")="3000530"
^DD(351.6,"B","DATE ADDED TO FILE",.02)=""
^DD(351.6,"B","LAST ADMISSION DATE",.05)=""
^DD(351.6,"B","LAST AUTHORIZING FACILITY",.09)=""
^DD(351.6,"B","LAST AUTHORIZING PERSON",.08)=""
^DD(351.6,"B","LAST OUTPATIENT VISIT DATE",.06)=""
^DD(351.6,"B","LAST PRESCRIPTION DATE",.07)=""
^DD(351.6,"B","LAST PROSTHETIC DATE",.11)=""
^DD(351.6,"B","OVERRIDDEN FACILITY",.1)=""
^DD(351.6,"B","PATIENT",.01)=""
^DD(351.6,"B","PREFERRED FACILITY",.03)=""
^DD(351.6,"B","TRANSFER PRICING STATUS",.04)=""
^DD(351.6,"GL",0,1,.01)=""
^DD(351.6,"GL",0,2,.02)=""
^DD(351.6,"GL",0,3,.03)=""
^DD(351.6,"GL",0,4,.04)=""
^DD(351.6,"GL",0,5,.05)=""
^DD(351.6,"GL",0,6,.06)=""
^DD(351.6,"GL",0,7,.07)=""
^DD(351.6,"GL",0,8,.08)=""
^DD(351.6,"GL",0,9,.09)=""
^DD(351.6,"GL",0,10,.1)=""
^DD(351.6,"GL",0,11,.11)=""
^DD(351.6,"IX",.01)=""
^DD(351.6,"RQ",.01)=""
^DD(351.6,"RQ",.02)=""
^DD(351.6,"RQ",.03)=""
^DD(351.6,"RQ",.04)=""
^DD(351.61,0)="FIELD^^6.05^34"
^DD(351.61,0,"DDA")="N"
^DD(351.61,0,"DT")="3000526"
^DD(351.61,0,"IX","AD",351.61,.12)=""
^DD(351.61,0,"IX","AE",351.61,.13)=""
^DD(351.61,0,"IX","AF",351.61,.05)=""
^DD(351.61,0,"IX","AG",351.61,.04)=""
^DD(351.61,0,"IX","AI",351.61,.08)=""
^DD(351.61,0,"IX","B",351.61,.01)=""
^DD(351.61,0,"IX","C",351.61,.02)=""
^DD(351.61,0,"NM","TRANSFER PRICING TRANSACTIONS")=""
^DD(351.61,0,"PT",351.61,.08)=""
^DD(351.61,0,"VR")="2.0"
^DD(351.61,0,"VRPK")="IB"
^DD(351.61,.01,0)="TRANSACTION NUMBER^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(351.61,.01,1,0)="^.1"
^DD(351.61,.01,1,1,0)="351.61^B"
^DD(351.61,.01,1,1,1)="S ^IBAT(351.61,""B"",$E(X,1,30),DA)="""""
^DD(351.61,.01,1,1,2)="K ^IBAT(351.61,""B"",$E(X,1,30),DA)"
^DD(351.61,.01,3)="Type a Number between 1000 and 999999999999, 0 Decimal Digits"
^DD(351.61,.01,21,0)="^^3^3^3000518^"
^DD(351.61,.01,21,1,0)="This is the Transfer Pricing transaction number.  This number is generated"
^DD(351.61,.01,21,2,0)="automatically in the format of station number with a sequential number"
^DD(351.61,.01,21,3,0)="after."
^DD(351.61,.01,"DT")="2981204"
^DD(351.61,.02,0)="TRANSFER PRICING PATIENT^RP351.6'^IBAT(351.6,^0;2^Q"
^DD(351.61,.02,1,0)="^.1^^-1"
^DD(351.61,.02,1,1,0)="351.61^C"
^DD(351.61,.02,1,1,1)="S ^IBAT(351.61,""C"",$E(X,1,30),DA)="""""
^DD(351.61,.02,1,1,2)="K ^IBAT(351.61,""C"",$E(X,1,30),DA)"
^DD(351.61,.02,1,1,"DT")="2981218"
^DD(351.61,.02,3)="Select a Transfer Pricing patient"
^DD(351.61,.02,21,0)="^^2^2^3000523^"
^DD(351.61,.02,21,1,0)="This is a pointer to the transfer pricing patient file (351.6), which is"
^DD(351.61,.02,21,2,0)="the same ien as in the patient file (#2)."
^DD(351.61,.02,"DT")="3000523"
^DD(351.61,.03,0)="TRANSACTION DATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.61,.03,3)="This is the date the transaction was created"
^DD(351.61,.03,21,0)="^.001^1^1^3000518^^"
^DD(351.61,.03,21,1,0)="This is the date this transaction was added to the file."
^DD(351.61,.03,"DT")="2981204"
^DD(351.61,.04,0)="EVENT DATE^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.61,.04,1,0)="^.1^^-1"
^DD(351.61,.04,1,2,0)="351.61^AG"
^DD(351.61,.04,1,2,1)="S ^IBAT(351.61,""AG"",$E(X,1,30),DA)="""""
^DD(351.61,.04,1,2,2)="K ^IBAT(351.61,""AG"",$E(X,1,30),DA)"
^DD(351.61,.04,1,2,"DT")="2990802"
^DD(351.61,.04,3)="This is the date of the event."
^DD(351.61,.04,21,0)="^.001^6^6^3000609^^"
^DD(351.61,.04,21,1,0)="This is the date of the event.  "
^DD(351.61,.04,21,2,0)=" "
^DD(351.61,.04,21,3,0)="       Outpatient Visits = Visit Date"
^DD(351.61,.04,21,4,0)="       Inpatient Stays   = Admission Date"
^DD(351.61,.04,21,5,0)="       Prescriptions     = Drug Dispense Date"
^DD(351.61,.04,21,6,0)="       Prosthetics       = Date Prosthetic Device issued to Patient"
^DD(351.61,.04,"DT")="3000523"
^DD(351.61,.05,0)="TRANSACTION STATUS^S^X:CANCELLED;E:ENTERED;C:COMPLETED;P:PRICED;^0;5^Q"
^DD(351.61,.05,1,0)="^.1^^-1"
^DD(351.61,.05,1,1,0)="351.61^AF"
^DD(351.61,.05,1,1,1)="S ^IBAT(351.61,""AF"",$E(X,1,30),DA)="""""
^DD(351.61,.05,1,1,2)="K ^IBAT(351.61,""AF"",$E(X,1,30),DA)"
^DD(351.61,.05,1,1,"DT")="2990312"
^DD(351.61,.05,1,2,0)="^^TRIGGER^351.61^.13"
^DD(351.61,.05,1,2,1)="X ^DD(351.61,.05,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBAT(351.61,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(351.61,.05,1,2,1.4)"
^DD(351.61,.05,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(351.61,.05,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""PRICED"""
^DD(351.61,.05,1,2,1.4)="S DIH=$S($D(^IBAT(351.61,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=351.61,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(351.61,.05,1,2,2)="Q"
^DD(351.61,.05,1,2,"CREATE CONDITION")="TRANSACTION STATUS=""PRICED"""
^DD(351.61,.05,1,2,"CREATE VALUE")="TODAY"
^DD(351.61,.05,1,2,"DELETE VALUE")="NO EFFECT"
^DD(351.61,.05,1,2,"DT")="2990316"
^DD(351.61,.05,1,2,"FIELD")="PRICED DATE"
^DD(351.61,.05,3)="This is the status of the transaction"
^DD(351.61,.05,21,0)="^^13^13^3000609^"
^DD(351.61,.05,21,1,0)="The status of the transaction."
^DD(351.61,.05,21,2,0)=" "
^DD(351.61,.05,21,3,0)="Entered = only used for inpatient upon admission."
^DD(351.61,.05,21,4,0)=" "
^DD(351.61,.05,21,5,0)="Completed = used for when the transaction information has been fully"
^DD(351.61,.05,21,6,0)="entered, but not yet priced.  For inpatient this usually means the patient"
^DD(351.61,.05,21,7,0)="has been discharged, but the PTF has not yet been coded.  This can also"
^DD(351.61,.05,21,8,0)="mean that any other type of transaction could not be priced for various"
^DD(351.61,.05,21,9,0)="reasons."
^DD(351.61,.05,21,10,0)=" "
^DD(351.61,.05,21,11,0)="Priced = transaction is complete."
^DD(351.61,.05,21,12,0)=" "
^DD(351.61,.05,21,13,0)="Cancelled = treating facility has cancelled transaction."
^DD(351.61,.05,"DT")="3000421"
^DD(351.61,.06,0)="APPROVAL DATE^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(351.61,.06,1,0)="^.1^^0"
^DD(351.61,.06,3)="This is the date the transaction was approved"
^DD(351.61,.06,8.5)=""
^DD(351.61,.06,9)=""
^DD(351.61,.06,21,0)="^^6^6^3000518^"
^DD(351.61,.06,21,1,0)="This is the date the transaction was set to a complete status.  Once a"
^DD(351.61,.06,21,2,0)="transaction is complete, it can no longer be edited.  It can only be"
^DD(351.61,.06,21,3,0)="cancelled and a new transaction created.  This date is used for report"
^DD(351.61,.06,21,4,0)="printing since another site cannot be billed until a transaction is"
^DD(351.61,.06,21,5,0)="complete.  An inpatient transaction can be completed as an interim"
^DD(351.61,.06,21,6,0)="transaction and a new one started."
^DD(351.61,.06,"DT")="3000417"
^DD(351.61,.07,0)="INTERIM TRANSACTION FLAG^S^0:NO;1:YES;^0;7^Q"
^DD(351.61,.07,1,0)="^.1^^0"
^DD(351.61,.07,3)="This indicates an interim transaction"
^DD(351.61,.07,21,0)="^.001^2^2^3000523^^"
^DD(351.61,.07,21,1,0)="Only used on inpatient transactions, this flag indicates if this"
^DD(351.61,.07,21,2,0)="transaction is an interim transaction or not."
^DD(351.61,.07,"DT")="3000518"
^DD(351.61,.08,0)="PARENT TRANSACTION POINTER^RP351.61'^IBAT(351.61,^0;8^Q"
^DD(351.61,.08,1,0)="^.1"
^DD(351.61,.08,1,1,0)="351.61^AI"
^DD(351.61,.08,1,1,1)="S ^IBAT(351.61,""AI"",$E(X,1,30),DA)="""""
^DD(351.61,.08,1,1,2)="K ^IBAT(351.61,""AI"",$E(X,1,30),DA)"
^DD(351.61,.08,1,1,"%D",0)="^^1^1^3000518^"
^DD(351.61,.08,1,1,"%D",1,0)="This is used to find all the transactions that relate to one another."
^DD(351.61,.08,1,1,"DT")="3000225"
^DD(351.61,.08,3)="This points to the parent transaction"
^DD(351.61,.08,21,0)="^^3^3^3000518^"
^DD(351.61,.08,21,1,0)="Used to lookup transactions and adjustment to transactions for future"
^DD(351.61,.08,21,2,0)="adjustments.  The parent should always have this filled in pointing to it"
^DD(351.61,.08,21,3,0)="self, children should always have this filled in pointing to their parent."
^DD(351.61,.08,"DT")="3000225"
^DD(351.61,.09,0)="FROM DATE^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.61,.09,3)="Date the transaction covers from"
^DD(351.61,.09,21,0)="^^1^1^2981204^"
^DD(351.61,.09,21,1,0)="This is the period this service is covered from."
^DD(351.61,.09,"DT")="2981204"
^DD(351.61,.1,0)="TO DATE^D^^0;10^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.61,.1,3)="Date the transaction covers to"
^DD(351.61,.1,21,0)="^^1^1^2981204^"
^DD(351.61,.1,21,1,0)="This is the period this service is covered to."
^DD(351.61,.1,"DT")="2981204"
^DD(351.61,.11,0)="PREFERRED FACILITY^P4'^DIC(4,^0;11^Q"
^DD(351.61,.11,1,0)="^.1^^0"
^DD(351.61,.11,3)="This is the preferred facility for this transaction."
^DD(351.61,.11,21,0)="^^3^3^3000518^"
^DD(351.61,.11,21,1,0)="This indicates which facility is the patient's preferred facility at the"
^DD(351.61,.11,21,2,0)="time of the transaction.  This is used to identify what facility this"
^DD(351.61,.11,21,3,0)="transaction is for."
^DD(351.61,.11,"DT")="2990306"
^DD(351.61,.12,0)="EVENT SOURCE^F^^0;12^K:$L(X)>20!($L(X)<3) X"
^DD(351.61,.12,1,0)="^.1"
^DD(351.61,.12,1,1,0)="351.61^AD"
^DD(351.61,.12,1,1,1)="S ^IBAT(351.61,""AD"",$E(X,1,30),DA)="""""
^DD(351.61,.12,1,1,2)="K ^IBAT(351.61,""AD"",$E(X,1,30),DA)"
^DD(351.61,.12,1,1,"DT")="2990216"
^DD(351.61,.12,3)="Answer must be 3-20 characters in length."
^DD(351.61,.12,21,0)="^^6^6^3000421^"
^DD(351.61,.12,21,1,0)="This is the source of the event."
^DD(351.61,.12,21,2,0)=" "
^DD(351.61,.12,21,3,0)="Inpatient    =  ien in file #405;DGPM("
^DD(351.61,.12,21,4,0)="Outpatient   =  ien in file #409.68;SCE("
^DD(351.61,.12,21,5,0)="Pharmacy     =  ien in file #52;PSRX(;fill/refill no"
^DD(351.61,.12,21,6,0)="Prosthetics  =  ien in file #660;RMPR(660,"
^DD(351.61,.12,"DT")="2990216"
^DD(351.61,.13,0)="PRICED DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.61,.13,1,0)="^.1"
^DD(351.61,.13,1,1,0)="351.61^AE"
^DD(351.61,.13,1,1,1)="S ^IBAT(351.61,""AE"",$E(X,1,30),DA)="""""
^DD(351.61,.13,1,1,2)="K ^IBAT(351.61,""AE"",$E(X,1,30),DA)"
^DD(351.61,.13,1,1,"DT")="2990306"
^DD(351.61,.13,3)="This is the date the transaction became priced."
^DD(351.61,.13,5,1,0)="351.61^.05^2"
^DD(351.61,.13,21,0)="^^1^1^2990306^"
^DD(351.61,.13,21,1,0)="This is the date the transaction was priced."
^DD(351.61,.13,"DT")="2990306"
^DD(351.61,1.01,0)="DRG^P80.2'^ICD(^1;1^Q"
^DD(351.61,1.01,3)="This is the DRG used to determine the cost"
^DD(351.61,1.01,21,0)="^^2^2^3000518^"
^DD(351.61,1.01,21,1,0)="This is the inpatient DRG that was calculated for the admission that the"
^DD(351.61,1.01,21,2,0)="costing of this transaction is based upon."
^DD(351.61,1.01,"DT")="2990311"
^DD(351.61,1.02,0)="DRG AMOUNT^NJ7,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<.01) X"
^DD(351.61,1.02,3)="Type a Dollar Amount between .01 and 9999.99, 2 Decimal Digits"
^DD(351.61,1.02,21,0)="^^1^1^2990311^"
^DD(351.61,1.02,21,1,0)="This is the dollar amount the DRG was priced at."
^DD(351.61,1.02,"DT")="3000526"
^DD(351.61,1.03,0)="INPATIENT LOS^NJ5,0^^1;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(351.61,1.03,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(351.61,1.03,21,0)="^^1^1^2990311^"
^DD(351.61,1.03,21,1,0)="This is the total length of stay for this inpatient stay."
^DD(351.61,1.03,"DT")="2990311"
^DD(351.61,1.04,0)="HIGH TRIM DAYS^NJ5,0^^1;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.61,1.04,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(351.61,1.04,21,0)="^^3^3^3000523^"
^DD(351.61,1.04,21,1,0)="This is the arithmetic means LOS, or the outlier threshold.  This"
^DD(351.61,1.04,21,2,0)="corresponds to the DRG file (#80.2), field HIGH TRIM(days) (#4).  Any"
^DD(351.61,1.04,21,3,0)="stays over this number will be calculated at the outlier rate."
^DD(351.61,1.04,"DT")="2990311"
^DD(351.61,1.05,0)="OUTLIER DAYS^NJ6,0^^1;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.61,1.05,1,0)="^.1"
^DD(351.61,1.05,1,1,0)="^^TRIGGER^351.61^6.01"
^DD(351.61,1.05,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBAT(351.61,D0,6)):^(6),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(351.61,1.05,1,1,1.4)"
^DD(351.61,1.05,1,1,1.4)="S DIH=$S($D(^IBAT(351.61,DIV(0),6)):^(6),1:""""),DIV=X S $P(^(6),U,1)=DIV,DIH=351.61,DIG=6.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(351.61,1.05,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBAT(351.61,D0,6)):^(6),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(351.61,1.05,1,1,2.1) X ^DD(351.61,1.05,1,1,2.4)"
^DD(351.61,1.05,1,1,2.1)="S X=DIV S Y(1)=$S($D(^IBAT(351.61,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5)"
^DD(351.61,1.05,1,1,2.4)="S DIH=$S($D(^IBAT(351.61,DIV(0),6)):^(6),1:""""),DIV=X S $P(^(6),U,1)=DIV,DIH=351.61,DIG=6.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(351.61,1.05,1,1,"CREATE VALUE")="OUTLIER DAYS"
^DD(351.61,1.05,1,1,"DELETE VALUE")="OUTLIER DAYS"
^DD(351.61,1.05,1,1,"FIELD")="TOTAL OUTLIER DAYS"
^DD(351.61,1.05,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(351.61,1.05,21,0)="^^4^4^3000523^"
^DD(351.61,1.05,21,1,0)="This is the number of days to calculate charge at the outlier rates.  This"
^DD(351.61,1.05,21,2,0)="number is calculated by:"
^DD(351.61,1.05,21,3,0)=" "
^DD(351.61,1.05,21,4,0)="       INPATIENT LOS - HIGH TRIM DAYS = OUTLIER DAYS"
^DD(351.61,1.05,"DT")="2990316"
^DD(351.61,1.06,0)="OUTLIER RATE^NJ6,2^^1;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<.01) X"
^DD(351.61,1.06,3)="Type a Dollar Amount between .01 and 999.99, 2 Decimal Digits"
^DD(351.61,1.06,21,0)="^^2^2^2990311^"
^DD(351.61,1.06,21,1,0)="This is the daily rate for the outlier days.  This is based upon 80% of"
^DD(351.61,1.06,21,2,0)="the tort rate."
^DD(351.61,1.06,"DT")="3000526"
^DD(351.61,1.07,0)="PTF POINTER^P45'^DGPT(^1;7^Q"
^DD(351.61,1.07,3)="This is the pointer to the PTF file"
^DD(351.61,1.07,21,0)="^^1^1^2990311^"
^DD(351.61,1.07,21,1,0)="This is the pointer to the PTF record for which the charge was calculated."
^DD(351.61,1.07,"DT")="2990311"
^DD(351.61,1.08,0)="DISCHARGE MOVEMENT^P405'^DGPM(^1;8^Q"
^DD(351.61,1.08,3)="This is the pointer to the discharge movement"
^DD(351.61,1.08,21,0)="^^1^1^2990313^"
^DD(351.61,1.08,21,1,0)="This is to store the discharge movement."
^DD(351.61,1.08,"DT")="2990313"
^DD(351.61,2,0)="ICD DIAGNOSIS^351.612P^^2;0"
^DD(351.61,2,21,0)="^.001^2^2^3010831^^"
^DD(351.61,2,21,1,0)="This is the diagnosis codes for this event.  This will play into the DRG"
^DD(351.61,2,21,2,0)="calculation."
^DD(351.61,3,0)="PROCEDURES^351.613P^^3;0"
^DD(351.61,3,21,0)="^.001^2^2^3010831^^^^"
^DD(351.61,3,21,1,0)="This is the multiple where the procedures performed either inpatient or"
^DD(351.61,3,21,2,0)="outpatient are stored."
^DD(351.61,4.01,0)="DRUG^P50'^PSDRUG(^4;1^Q"
^DD(351.61,4.01,3)="This is a pointer to the drug for this transaction"
^DD(351.61,4.01,21,0)="^^1^1^2981204^"
^DD(351.61,4.01,21,1,0)="This pointer to the drug file indicates what prescription was issued."
^DD(351.61,4.01,"DT")="2981204"
^DD(351.61,4.02,0)="QUANTITY^NJ3,0^^4;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(351.61,4.02,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(351.61,4.02,21,0)="^^1^1^2981204^"
^DD(351.61,4.02,21,1,0)="This is the quantity of the drug issued."
^DD(351.61,4.02,"DT")="2981204"
^DD(351.61,4.03,0)="DRUG COST^NJ8,3^^4;3^K:+X'=X!(X>9999.999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(351.61,4.03,3)="Type a Number between .001 and 9999.999, 3 Decimal Digits"
^DD(351.61,4.03,21,0)="^^1^1^2981204^"
^DD(351.61,4.03,21,1,0)="This is the cost per unit of the drug."
^DD(351.61,4.03,"DT")="2990316"
^DD(351.61,4.04,0)="*PROSTHETIC ITEM^FO^^4;4^K:$L(X)>20!($L(X)<1) X"
^DD(351.61,4.04,2)="S Y(0)=Y X ^DD(351.61,4.04,2,9.3) S D0=$P(Y(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(301)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(Y(301),U,2) S D0=I(0,0) S Y=X"
^DD(351.61,4.04,2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RMPR(661,D0,0)):^(0),1:""""),Y(102)=$G(X)"
^DD(351.61,4.04,2,9.3)="X ^DD(351.61,4.04,2,9.2) S D0=$P(Y(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S I(200,0)=$S($D(D0):D0,1:""""),Y(201)=$G(X)"
^DD(351.61,4.04,2.1)="PROSTHETIC ITEM:NAME:NAME:SHORT DESCRIPTION"
^DD(351.61,4.04,3)="This is a pointer to the prosthetic device for this transaction"
^DD(351.61,4.04,21,0)="^.001^2^2^3080307^^^^"
^DD(351.61,4.04,21,1,0)="This is a pointer to the prosthetic item file for the prosthetic device"
^DD(351.61,4.04,21,2,0)="issued to the patient."
^DD(351.61,4.04,23,0)="^.001^2^2^3080307^^^"
^DD(351.61,4.04,23,1,0)="This field was marked for deletion 04/01/08.  "
^DD(351.61,4.04,23,2,0)="Field was a pointer to PROS ITEM MASTER (#661) which is out of date."
^DD(351.61,4.04,"DT")="3080307"
^DD(351.61,4.05,0)="PROSTHETIC ITEM COST^NJ10,2^^4;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(351.61,4.05,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(351.61,4.05,21,0)="^^2^2^3000421^"
^DD(351.61,4.05,21,1,0)="This is the cost of the prosthetic device.  Determined by looking at file"
^DD(351.61,4.05,21,2,0)="660 at the TOTAL COST field."
^DD(351.61,4.05,"DT")="3000411"
^DD(351.61,5.01,0)="AUTHORIZING PERSON^F^^5;1^K:$L(X)>50!($L(X)<3) X"
^DD(351.61,5.01,3)="Answer must be 3-50 characters in length."
^DD(351.61,5.01,21,0)="^^2^2^2981204^"
^DD(351.61,5.01,21,1,0)="This is the name of the person authorizing this transaction from the"
^DD(351.61,5.01,21,2,0)="patient's preferred facility."
^DD(351.61,5.01,"DT")="2981204"
^DD(351.61,6.01,0)="TOTAL OUTLIER DAYS^NJ4,0^^6;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.61,6.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(351.61,6.01,5,1,0)="351.61^1.05^1"
^DD(351.61,6.01,21,0)="^^1^1^3000518^"
^DD(351.61,6.01,21,1,0)="This is the total of the outlier days for all the DRGs."
^DD(351.61,6.01,"DT")="2981229"
^DD(351.61,6.02,0)="GROSS BILL AMOUNT^NJ10,2^^6;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01) X"
^DD(351.61,6.02,3)="Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits"
^DD(351.61,6.02,21,0)="^.001^2^2^3000523^^"
^DD(351.61,6.02,21,1,0)="This is the gross amount either from the drg's, cpt's, or rx's before any"
^DD(351.61,6.02,21,2,0)="deductions of billed amounts."
^DD(351.61,6.02,"DT")="2990729"
^DD(351.61,6.03,0)="CATAGORY C BILL AMOUNT^NJ10,2^^6;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(351.61,6.03,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(351.61,6.03,21,0)="^^1^1^2981229^"
^DD(351.61,6.03,21,1,0)="This is the dollar amount billed for the cat c patient's co-payment(s)."
^DD(351.61,6.03,"DT")="2981229"
^DD(351.61,6.04,0)="INSURANCE BILL AMOUNT^NJ9,2^^6;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(351.61,6.04,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(351.61,6.04,21,0)="^^2^2^2981229^"
^DD(351.61,6.04,21,1,0)="This is the amount of the insurance bill to be deducted from the total"
^DD(351.61,6.04,21,2,0)="amount."
^DD(351.61,6.04,"DT")="2981229"
^DD(351.61,6.05,0)="NET AMOUNT^NJ9,2^^6;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<.01) X"
^DD(351.61,6.05,3)="Type a Dollar Amount between .01 and 999999.99, 2 Decimal Digits"
^DD(351.61,6.05,21,0)="^^3^3^2981229^"
^DD(351.61,6.05,21,1,0)="This is the total bill amount that is due from the preferred facility."
^DD(351.61,6.05,21,2,0)="This is calculated based upon the service provided less any other"
^DD(351.61,6.05,21,3,0)="reimbursements."
^DD(351.61,6.05,"DT")="2981229"
^DD(351.61,"B","*PROSTHETIC ITEM",4.04)=""
^DD(351.61,"B","APPROVAL DATE",.06)=""
^DD(351.61,"B","AUTHORIZING PERSON",5.01)=""
^DD(351.61,"B","CATAGORY C BILL AMOUNT",6.03)=""
^DD(351.61,"B","DISCHARGE MOVEMENT",1.08)=""
^DD(351.61,"B","DRG",1.01)=""
^DD(351.61,"B","DRG AMOUNT",1.02)=""
^DD(351.61,"B","DRUG",4.01)=""
^DD(351.61,"B","DRUG COST",4.03)=""
^DD(351.61,"B","EVENT DATE",.04)=""
^DD(351.61,"B","EVENT SOURCE",.12)=""
^DD(351.61,"B","FROM DATE",.09)=""
^DD(351.61,"B","GROSS BILL AMOUNT",6.02)=""
^DD(351.61,"B","HIGH TRIM DAYS",1.04)=""
^DD(351.61,"B","ICD DIAGNOSIS",2)=""
^DD(351.61,"B","INPATIENT LOS",1.03)=""
^DD(351.61,"B","INSURANCE BILL AMOUNT",6.04)=""
^DD(351.61,"B","INTERIM TRANSACTION FLAG",.07)=""
^DD(351.61,"B","NET AMOUNT",6.05)=""
^DD(351.61,"B","OUTLIER DAYS",1.05)=""
^DD(351.61,"B","OUTLIER RATE",1.06)=""
^DD(351.61,"B","PARENT TRANSACTION POINTER",.08)=""
^DD(351.61,"B","PREFERRED FACILITY",.11)=""
^DD(351.61,"B","PRICED DATE",.13)=""
^DD(351.61,"B","PROCEDURES",3)=""
^DD(351.61,"B","PROSTHETIC ITEM COST",4.05)=""
^DD(351.61,"B","PTF POINTER",1.07)=""
^DD(351.61,"B","QUANTITY",4.02)=""
^DD(351.61,"B","TO DATE",.1)=""
^DD(351.61,"B","TOTAL OUTLIER DAYS",6.01)=""
^DD(351.61,"B","TRANSACTION DATE",.03)=""
^DD(351.61,"B","TRANSACTION NUMBER",.01)=""
^DD(351.61,"B","TRANSACTION STATUS",.05)=""
^DD(351.61,"B","TRANSFER PRICING PATIENT",.02)=""
^DD(351.61,"GL",0,1,.01)=""
^DD(351.61,"GL",0,2,.02)=""
^DD(351.61,"GL",0,3,.03)=""
^DD(351.61,"GL",0,4,.04)=""
^DD(351.61,"GL",0,5,.05)=""
^DD(351.61,"GL",0,6,.06)=""
^DD(351.61,"GL",0,7,.07)=""
^DD(351.61,"GL",0,8,.08)=""
^DD(351.61,"GL",0,9,.09)=""
^DD(351.61,"GL",0,10,.1)=""
^DD(351.61,"GL",0,11,.11)=""
^DD(351.61,"GL",0,12,.12)=""
^DD(351.61,"GL",0,13,.13)=""
^DD(351.61,"GL",1,1,1.01)=""
^DD(351.61,"GL",1,2,1.02)=""
^DD(351.61,"GL",1,3,1.03)=""
^DD(351.61,"GL",1,4,1.04)=""
^DD(351.61,"GL",1,5,1.05)=""
^DD(351.61,"GL",1,6,1.06)=""
^DD(351.61,"GL",1,7,1.07)=""
^DD(351.61,"GL",1,8,1.08)=""
^DD(351.61,"GL",2,0,2)=""
^DD(351.61,"GL",3,0,3)=""
^DD(351.61,"GL",4,1,4.01)=""
^DD(351.61,"GL",4,2,4.02)=""
^DD(351.61,"GL",4,3,4.03)=""
^DD(351.61,"GL",4,4,4.04)=""
^DD(351.61,"GL",4,5,4.05)=""
^DD(351.61,"GL",5,1,5.01)=""
^DD(351.61,"GL",6,1,6.01)=""
^DD(351.61,"GL",6,2,6.02)=""
^DD(351.61,"GL",6,3,6.03)=""
^DD(351.61,"GL",6,4,6.04)=""
^DD(351.61,"GL",6,5,6.05)=""
^DD(351.61,"IX",.01)=""
^DD(351.61,"IX",.02)=""
^DD(351.61,"IX",.04)=""
^DD(351.61,"IX",.05)=""
^DD(351.61,"IX",.08)=""
^DD(351.61,"IX",.12)=""
^DD(351.61,"IX",.13)=""
^DD(351.61,"IX",1.05)=""
^DD(351.61,"RQ",.01)=""
^DD(351.61,"RQ",.02)=""
^DD(351.61,"RQ",.08)=""
^DD(351.61,"SB",351.612,2)=""
^DD(351.61,"SB",351.613,3)=""
^DD(351.612,0)="ICD DIAGNOSIS SUB-FIELD^^.01^1"
^DD(351.612,0,"DT")="2981204"
^DD(351.612,0,"IX","B",351.612,.01)=""
^DD(351.612,0,"NM","ICD DIAGNOSIS")=""
^DD(351.612,0,"UP")="351.61"
^DD(351.612,.01,0)="ICD DIAGNOSIS^*P80'^ICD9(^0;1^S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(351.612,.01,1,0)="^.1"
^DD(351.612,.01,1,1,0)="351.612^B"
^DD(351.612,.01,1,1,1)="S ^IBAT(351.61,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(351.612,.01,1,1,2)="K ^IBAT(351.61,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(351.612,.01,3)="This is the diagnosis codes for this transaction."
^DD(351.612,.01,12)="Only codes active on the Event Date may be selected."
^DD(351.612,.01,12.1)="S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))"""
^DD(351.612,.01,21,0)="^.001^2^2^3000609^^"
^DD(351.612,.01,21,1,0)="This is the diagnosis codes for this event.  This will play into the DRG"
^DD(351.612,.01,21,2,0)="calculation."
^DD(351.612,.01,"DT")="3030421"
^DD(351.612,"B","ICD DIAGNOSIS",.01)=""
^DD(351.612,"GL",0,1,.01)=""
^DD(351.612,"IX",.01)=""
^DD(351.613,0)="PROCEDURES SUB-FIELD^^.03^3"
^DD(351.613,0,"DT")="3000526"
^DD(351.613,0,"IX","B",351.613,.01)=""
^DD(351.613,0,"NM","PROCEDURES")=""
^DD(351.613,0,"UP")="351.61"
^DD(351.613,.01,0)="PROCEDURES^M*P81'^ICPT(^0;1^S DIC(""S"")=""I $$CPTACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(351.613,.01,1,0)="^.1"
^DD(351.613,.01,1,1,0)="351.613^B"
^DD(351.613,.01,1,1,1)="S ^IBAT(351.61,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(351.613,.01,1,1,2)="K ^IBAT(351.61,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(351.613,.01,1,1,3)="Required Index for Variable Pointer"
^DD(351.613,.01,3)="Select a procedure to determine the price of this transaction."
^DD(351.613,.01,12)="Only codes active on the Event Date may be selected."
^DD(351.613,.01,12.1)="S DIC(""S"")=""I $$CPTACT^IBACSV(+Y,$P($G(^IBAT(351.61,+$G(DA(1)),0)),U,4))"""
^DD(351.613,.01,21,0)="^.001^3^3^3010831^^"
^DD(351.613,.01,21,1,0)="This is the multiple where the procedures performed either inpatient or"
^DD(351.613,.01,21,2,0)="outpatient are stored.  The procedures are used to calculate the"
^DD(351.613,.01,21,3,0)="transaction price."
^DD(351.613,.01,"DT")="3030421"
^DD(351.613,.01,"V",0)="^.12P^2^2"
^DD(351.613,.01,"V",1,0)="80.1^ICD operation/procedure^2^ICD^n^n"
^DD(351.613,.01,"V",2,0)="81^CPT^1^CPT^n^n"
^DD(351.613,.01,"V","B",80.1,1)=""
^DD(351.613,.01,"V","B",81,2)=""
^DD(351.613,.01,"V","M","CPT",2)=""
^DD(351.613,.01,"V","M","ICD operation/procedure",1)=""
^DD(351.613,.01,"V","O",1,2)=""
^DD(351.613,.01,"V","O",2,1)=""
^DD(351.613,.01,"V","P","CPT",2)=""
^DD(351.613,.01,"V","P","ICD",1)=""
^DD(351.613,.02,0)="QUANTITY^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(351.613,.02,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(351.613,.02,21,0)="^^1^1^2990301^"
^DD(351.613,.02,21,1,0)="This is the number of times this procedure was performed."
^DD(351.613,.02,"DT")="2990301"
^DD(351.613,.03,0)="PROCEDURE COST^NJ7,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(351.613,.03,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(351.613,.03,21,0)="^^1^1^2990301^"
^DD(351.613,.03,21,1,0)="This is the unit cost per procedure."
^DD(351.613,.03,"DT")="3000526"
^DD(351.613,"B","PROCEDURE COST",.03)=""
^DD(351.613,"B","PROCEDURES",.01)=""
^DD(351.613,"B","QUANTITY",.02)=""
^DD(351.613,"GL",0,1,.01)=""
^DD(351.613,"GL",0,2,.02)=""
^DD(351.613,"GL",0,3,.03)=""
^DD(351.613,"IX",.01)=""
^DD(351.62,0)="FIELD^^1.01^7"
^DD(351.62,0,"DDA")="N"
^DD(351.62,0,"DT")="2990730"
^DD(351.62,0,"IX","AC",351.62,.04)=""
^DD(351.62,0,"IX","B",351.62,.01)=""
^DD(351.62,0,"NM","TRANSFER PRICING FIELD DEFINITION")=""
^DD(351.62,0,"VR")="2.0"
^DD(351.62,0,"VRPK")="IB"
^DD(351.62,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(351.62,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(351.62,.001,21,0)="^^1^1^2990625^"
^DD(351.62,.001,21,1,0)="This is the IEN of the file."
^DD(351.62,.001,"DT")="2990625"
^DD(351.62,.01,0)="FIELD NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(351.62,.01,1,0)="^.1"
^DD(351.62,.01,1,1,0)="351.62^B"
^DD(351.62,.01,1,1,1)="S ^IBAT(351.62,""B"",$E(X,1,30),DA)="""""
^DD(351.62,.01,1,1,2)="K ^IBAT(351.62,""B"",$E(X,1,30),DA)"
^DD(351.62,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(351.62,.01,21,0)="^^1^1^2990625^"
^DD(351.62,.01,21,1,0)="This contains the names of the fields."
^DD(351.62,.02,0)="LENGTH^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.62,.02,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(351.62,.02,21,0)="^^1^1^2990625^"
^DD(351.62,.02,21,1,0)="This is the max length of this field."
^DD(351.62,.02,"DT")="2990625"
^DD(351.62,.03,0)="MULTIPLE FIELD^S^0:NO;1:YES;^0;3^Q"
^DD(351.62,.03,3)="This flag indicates if this field can be multiple."
^DD(351.62,.03,21,0)="^.001^1^1^3000518^^"
^DD(351.62,.03,21,1,0)="Flag to indicate if this extract can be multiple for the transaction."
^DD(351.62,.03,"DT")="2990709"
^DD(351.62,.04,0)="SYNONYM^NJ2,0X^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X K:$D(^IBAT(351.62,""AC"",X)) X"
^DD(351.62,.04,1,0)="^.1"
^DD(351.62,.04,1,1,0)="351.62^AC"
^DD(351.62,.04,1,1,1)="S ^IBAT(351.62,""AC"",$E(X,1,30),DA)="""""
^DD(351.62,.04,1,1,2)="K ^IBAT(351.62,""AC"",$E(X,1,30),DA)"
^DD(351.62,.04,1,1,"DT")="2990723"
^DD(351.62,.04,3)="Type a Number between 1 and 99, 0 Decimal Digits.  Unique numbers ONLY."
^DD(351.62,.04,21,0)="^^1^1^2990723^"
^DD(351.62,.04,21,1,0)="This is the SYNONYM to be displayed for choosing this item."
^DD(351.62,.04,"DT")="2990724"
^DD(351.62,.05,0)="NUMERIC FIELD^S^0:NO;1:YES;^0;5^Q"
^DD(351.62,.05,3)="This flag indicates if this field is numeric"
^DD(351.62,.05,21,0)="^^2^2^3000523^"
^DD(351.62,.05,21,1,0)="Flag to indicate if this extract is numeric for the transaction.  Used to"
^DD(351.62,.05,21,2,0)="determine if the field needs to be formatted as such."
^DD(351.62,.05,"DT")="2990730"
^DD(351.62,1.01,0)="EXTRACT CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(351.62,1.01,3)="This is Standard MUMPS code."
^DD(351.62,1.01,9)="@"
^DD(351.62,1.01,21,0)="^^1^1^2990625^"
^DD(351.62,1.01,21,1,0)="This is the M code to extract the data."
^DD(351.62,1.01,"DT")="2990625"
^DD(351.62,"B","EXTRACT CODE",1.01)=""
^DD(351.62,"B","FIELD NAME",.01)=""
^DD(351.62,"B","LENGTH",.02)=""
^DD(351.62,"B","MULTIPLE FIELD",.03)=""
^DD(351.62,"B","NUMBER",.001)=""
^DD(351.62,"B","NUMERIC FIELD",.05)=""
^DD(351.62,"B","SYNONYM",.04)=""
^DD(351.62,"GL",0,1,.01)=""
^DD(351.62,"GL",0,2,.02)=""
^DD(351.62,"GL",0,3,.03)=""
^DD(351.62,"GL",0,4,.04)=""
^DD(351.62,"GL",0,5,.05)=""
^DD(351.62,"GL",1,"E1,245",1.01)=""
^DD(351.62,"IX",.01)=""
^DD(351.62,"IX",.04)=""
^DD(351.62,"RQ",.01)=""
^DD(351.67,0)="FIELD^^^1"
^DD(351.67,0,"DDA")="N"
^DD(351.67,0,"DT")="3000418"
^DD(351.67,0,"IX","B",351.67,.01)=""
^DD(351.67,0,"NM","TRANSFER PRICING INPT PROSTHETIC ITEMS")=""
^DD(351.67,0,"VR")="2.0"
^DD(351.67,0,"VRPK")="IB"
^DD(351.67,.01,0)="ITEM^R*P661.1'^RMPR(661.1,^0;1^S DIC(""S"")=""I +$P(^(0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(351.67,.01,1,0)="^.1"
^DD(351.67,.01,1,1,0)="351.67^B"
^DD(351.67,.01,1,1,1)="S ^IBAT(351.67,""B"",$E(X,1,30),DA)="""""
^DD(351.67,.01,1,1,2)="K ^IBAT(351.67,""B"",$E(X,1,30),DA)"
^DD(351.67,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(351.67,.01,12)="Active Codes Only!"
^DD(351.67,.01,12.1)="S DIC(""S"")=""I +$P(^(0),U,5)"""
^DD(351.67,.01,21,0)="^.001^5^5^3080307^^^^"
^DD(351.67,.01,21,1,0)="This is a direct pointer to file 661.1 for the prosthetic items to be"
^DD(351.67,.01,21,2,0)="automatically billed for inpatients.  Most prosthetic devices for"
^DD(351.67,.01,21,3,0)="inpatients are covered by the price of the DRG for the inpatient stay."
^DD(351.67,.01,21,4,0)="However, some are not.  Sites may identify specific items that would not"
^DD(351.67,.01,21,5,0)="be covered by the price of the DRG."
^DD(351.67,.01,"DT")="3080307"
^DD(351.67,"B","ITEM",.01)=""
^DD(351.67,"GL",0,1,.01)=""
^DD(351.67,"IX",.01)=""
^DD(351.67,"RQ",.01)=""
^DD(351.7,0)="FIELD^^2^4"
^DD(351.7,0,"DT")="3000913"
^DD(351.7,0,"IX","AC",351.7,.02)=""
^DD(351.7,0,"IX","B",351.7,.01)=""
^DD(351.7,0,"NM","IB DM EXTRACT REPORTS")=""
^DD(351.7,0,"PT",351.701,.03)=""
^DD(351.7,0,"PT",351.711,.01)=""
^DD(351.7,0,"VR")="2.0"
^DD(351.7,0,"VRPK")="IB"
^DD(351.7,.01,0)="REPORT NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(351.7,.01,1,0)="^.1"
^DD(351.7,.01,1,1,0)="351.7^B"
^DD(351.7,.01,1,1,1)="S ^IBE(351.7,""B"",$E(X,1,30),DA)="""""
^DD(351.7,.01,1,1,2)="K ^IBE(351.7,""B"",$E(X,1,30),DA)"
^DD(351.7,.01,3)="Answer must be 3-50 characters in length."
^DD(351.7,.01,21,0)="^.001^1^1^3000913^^^"
^DD(351.7,.01,21,1,0)="This is the DM report from which data will be extracted."
^DD(351.7,.01,"DT")="2990303"
^DD(351.7,.02,0)="DISABLE?^S^1:YES;^0;2^Q"
^DD(351.7,.02,1,0)="^.1"
^DD(351.7,.02,1,1,0)="351.7^AC"
^DD(351.7,.02,1,1,1)="S ^IBE(351.7,""AC"",$E(X,1,30),DA)="""""
^DD(351.7,.02,1,1,2)="K ^IBE(351.7,""AC"",$E(X,1,30),DA)"
^DD(351.7,.02,1,1,"DT")="2990317"
^DD(351.7,.02,3)="Enter 'YES' if you don't want this report's summary data extracted."
^DD(351.7,.02,21,0)="2^^2^2^2990518^^^^"
^DD(351.7,.02,21,1,0)="Enter 'YES' if you don't want this report's summary data extracted."
^DD(351.7,.02,21,2,0)="The DM extraction background job will skip queueing this report."
^DD(351.7,.02,"DT")="3000913"
^DD(351.7,1,0)="INPUT VARIABLE^351.702^^1;0"
^DD(351.7,2,0)="ROUTINE^FX^^2;E1,20^K:$L(X)>20!(X'?.1ANP.7AN.1""^""1ANP.7AN.1""["".E) X I $D(X),X[""["" K X"
^DD(351.7,2,3)=""
^DD(351.7,2,4)="D RTN^IBJDE1"
^DD(351.7,2,21,0)="^.001^10^10^3010418^^^^"
^DD(351.7,2,21,1,0)="This field is the entry point called by this report to extract"
^DD(351.7,2,21,2,0)="the data that will be sent to the Extract Module. It is possible"
^DD(351.7,2,21,3,0)="to enter a program (^ROUTINE), a specific label (TAG^ROUTINE) or"
^DD(351.7,2,21,4,0)="leave it blank. When this field is left blank, no code will be"
^DD(351.7,2,21,5,0)="invoked by this report to extract the data. This option should"
^DD(351.7,2,21,6,0)="be used to allow the data for this report to be extracted by a"
^DD(351.7,2,21,7,0)="program invoked by another report. This is intended to be used"
^DD(351.7,2,21,8,0)="when there are two (or more) different reports that run the same"
^DD(351.7,2,21,9,0)="program to extract their data, then only one will be responsible"
^DD(351.7,2,21,10,0)="for running the code and extracting the data for both reports."
^DD(351.7,2,23,0)="^.001^8^8^3010418^^^^"
^DD(351.7,2,23,1,0)="This field will hold the routine name responsible for extracting"
^DD(351.7,2,23,2,0)="the data for the report. It is also possible to indicate a"
^DD(351.7,2,23,3,0)="specific label. The Data Extraction routine will then queue this"
^DD(351.7,2,23,4,0)="routine and will store the data returned (usually through the IB"
^DD(351.7,2,23,5,0)="array) from it. When this field is NULL, the Data Extraction"
^DD(351.7,2,23,6,0)="routine will do everything but queue a job. This resource (NULL)"
^DD(351.7,2,23,7,0)="is used to allow that the routine of one report to retrieve and"
^DD(351.7,2,23,8,0)="store the data for other reports."
^DD(351.7,2,"DT")="3000918"
^DD(351.7,"B","DISABLE?",.02)=""
^DD(351.7,"B","INPUT VARIABLE",1)=""
^DD(351.7,"B","REPORT NAME",.01)=""
^DD(351.7,"B","ROUTINE",2)=""
^DD(351.7,"GL",0,1,.01)=""
^DD(351.7,"GL",0,2,.02)=""
^DD(351.7,"GL",1,0,1)=""
^DD(351.7,"GL",2,"E1,20",2)=""
^DD(351.7,"IX",.01)=""
^DD(351.7,"IX",.02)=""
^DD(351.7,"RQ",.01)=""
^DD(351.7,"SB",351.702,1)=""
^DD(351.701,0)="FIELD^^.03^3"
^DD(351.701,0,"DT")="2990526"
^DD(351.701,0,"IX","B",351.701,.01)=""
^DD(351.701,0,"IX","C",351.701,.03)=""
^DD(351.701,0,"NM","IB DM EXTRACT DATA ELEMENTS")=""
^DD(351.701,0,"PT",351.7111,.01)=""
^DD(351.701,0,"VR")="2.0"
^DD(351.701,0,"VRPK")="IB"
^DD(351.701,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(351.701,.01,1,0)="^.1"
^DD(351.701,.01,1,1,0)="351.701^B"
^DD(351.701,.01,1,1,1)="S ^IBE(351.701,""B"",$E(X,1,30),DA)="""""
^DD(351.701,.01,1,1,2)="K ^IBE(351.701,""B"",$E(X,1,30),DA)"
^DD(351.701,.01,3)="Answer must be 3-60 characters in length."
^DD(351.701,.01,21,0)="^^2^2^2990318^"
^DD(351.701,.01,21,1,0)="This is the data element/line item associated with the report in field .03"
^DD(351.701,.01,21,2,0)="of this file."
^DD(351.701,.01,"DT")="2990424"
^DD(351.701,.02,0)="DATA VARIABLE^RF^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(351.701,.02,3)="Answer must be 1-60 characters in length."
^DD(351.701,.02,21,0)="^^1^1^2990526^^^"
^DD(351.701,.02,21,1,0)="This is the variable associated with this entry."
^DD(351.701,.02,"DT")="2990526"
^DD(351.701,.03,0)="REPORT^RP351.7'^IBE(351.7,^0;3^Q"
^DD(351.701,.03,1,0)="^.1"
^DD(351.701,.03,1,1,0)="351.701^C"
^DD(351.701,.03,1,1,1)="S ^IBE(351.701,""C"",$E(X,1,30),DA)="""""
^DD(351.701,.03,1,1,2)="K ^IBE(351.701,""C"",$E(X,1,30),DA)"
^DD(351.701,.03,1,1,"DT")="2990316"
^DD(351.701,.03,3)="Enter the report associated with this entry."
^DD(351.701,.03,21,0)="^^1^1^2990526^^^"
^DD(351.701,.03,21,1,0)="This is the report associated with this entry."
^DD(351.701,.03,"DT")="2990424"
^DD(351.701,"B","DATA VARIABLE",.02)=""
^DD(351.701,"B","NAME",.01)=""
^DD(351.701,"B","REPORT",.03)=""
^DD(351.701,"GL",0,1,.01)=""
^DD(351.701,"GL",0,2,.02)=""
^DD(351.701,"GL",0,3,.03)=""
^DD(351.701,"IX",.01)=""
^DD(351.701,"IX",.03)=""
^DD(351.701,"RQ",.01)=""
^DD(351.701,"RQ",.02)=""
^DD(351.701,"RQ",.03)=""
^DD(351.702,0)="INPUT VARIABLE SUB-FIELD^^1^3"
^DD(351.702,0,"DT")="2990330"
^DD(351.702,0,"IX","B",351.702,.01)=""
^DD(351.702,0,"NM","INPUT VARIABLE")=""
^DD(351.702,0,"UP")="351.7"
^DD(351.702,.01,0)="INPUT VARIABLE^MF^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(351.702,.01,1,0)="^.1"
^DD(351.702,.01,1,1,0)="351.702^B"
^DD(351.702,.01,1,1,1)="S ^IBE(351.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(351.702,.01,1,1,2)="K ^IBE(351.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(351.702,.01,3)="Answer must be 1-8 characters in length."
^DD(351.702,.01,8.5)="@"
^DD(351.702,.01,9)="@"
^DD(351.702,.01,21,0)="^^1^1^2990318^"
^DD(351.702,.01,21,1,0)="This is the name of the pre-set variable associated with this report."
^DD(351.702,.01,"DT")="2990316"
^DD(351.702,.02,0)="VALUE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(351.702,.02,3)="Answer must be 1-30 characters in length."
^DD(351.702,.02,8.5)="@"
^DD(351.702,.02,9)="@"
^DD(351.702,.02,21,0)="^^3^3^2990318^^"
^DD(351.702,.02,21,1,0)="This is the value of the pre-set variable associated with this report."
^DD(351.702,.02,21,2,0)="If the variable is a date variable (IBBDT, IBEDT, etc.), the value is"
^DD(351.702,.02,21,3,0)="null."
^DD(351.702,.02,"DT")="2990330"
^DD(351.702,1,0)="INPUT STATEMENT^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(351.702,1,3)="This is Standard MUMPS code."
^DD(351.702,1,8.5)="@"
^DD(351.702,1,9)="@"
^DD(351.702,1,21,0)="^^3^3^2990528^^"
^DD(351.702,1,21,1,0)="This statement, if it exists ($D), will be Xecuted instead of setting the"
^DD(351.702,1,21,2,0)="contents of the INPUT VARIABLE zero node via the DM extract process. This"
^DD(351.702,1,21,3,0)="is used primarily for setting date fields (ex. IBBDT, IBEDT)."
^DD(351.702,1,"DT")="2990327"
^DD(351.702,"B","INPUT STATEMENT",1)=""
^DD(351.702,"B","INPUT VARIABLE",.01)=""
^DD(351.702,"B","VALUE",.02)=""
^DD(351.702,"GL",0,1,.01)=""
^DD(351.702,"GL",0,2,.02)=""
^DD(351.702,"GL",1,"E1,245",1)=""
^DD(351.702,"IX",.01)=""
^DD(351.71,0)="FIELD^^1^7"
^DD(351.71,0,"DDA")="N"
^DD(351.71,0,"DT")="3010104"
^DD(351.71,0,"IX","AC",351.71,.02)=""
^DD(351.71,0,"IX","AD",351.711,.02)=""
^DD(351.71,0,"IX","B",351.71,.01)=""
^DD(351.71,0,"NM","IB DM EXTRACT DATA")=""
^DD(351.71,0,"VR")="2.0"
^DD(351.71,0,"VRPK")="IB"
^DD(351.71,.01,0)="MONTH/YEAR^DX^^0;1^S %DT=""E,M"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1!($E(Y,6,7)'=""00"") X I $D(X) S DINUM=X"
^DD(351.71,.01,1,0)="^.1"
^DD(351.71,.01,1,1,0)="351.71^B"
^DD(351.71,.01,1,1,1)="S ^IBE(351.71,""B"",$E(X,1,30),DA)="""""
^DD(351.71,.01,1,1,2)="K ^IBE(351.71,""B"",$E(X,1,30),DA)"
^DD(351.71,.01,3)="Enter the month/year corresponding to the extracted data.  Future dates are not allowed."
^DD(351.71,.01,21,0)="^^1^1^2990518^^^^"
^DD(351.71,.01,21,1,0)="This is the month/year corresponding to the extracted data."
^DD(351.71,.01,"DT")="3031210"
^DD(351.71,.02,0)="STATUS^RS^1:ON STANDBY;2:STARTED;3:COMPLETED;^0;2^Q"
^DD(351.71,.02,1,0)="^.1"
^DD(351.71,.02,1,1,0)="351.71^AC"
^DD(351.71,.02,1,1,1)="S ^IBE(351.71,""AC"",$E(X,1,30),DA)="""""
^DD(351.71,.02,1,1,2)="K ^IBE(351.71,""AC"",$E(X,1,30),DA)"
^DD(351.71,.02,1,1,"DT")="2990305"
^DD(351.71,.02,3)="Enter the current extraction status for this entry."
^DD(351.71,.02,21,0)="^^2^2^2990518^^^^"
^DD(351.71,.02,21,1,0)="This is the current status of the data extraction process for this"
^DD(351.71,.02,21,2,0)="file entry."
^DD(351.71,.02,"DT")="2990518"
^DD(351.71,.03,0)="START RUN DATE^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.71,.03,3)="Enter the extraction start date for this entry."
^DD(351.71,.03,21,0)="^^1^1^2990518^^^"
^DD(351.71,.03,21,1,0)="This is the date the extraction process for this file entry started."
^DD(351.71,.03,"DT")="2990303"
^DD(351.71,.04,0)="END RUN DATE^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.71,.04,3)="Enter the extraction end date for this entry."
^DD(351.71,.04,21,0)="^^1^1^2990518^^"
^DD(351.71,.04,21,1,0)="This is the date the extraction process for this file entry ended."
^DD(351.71,.04,"DT")="2990303"
^DD(351.71,.05,0)="EXTRACT MESSAGE SENT?^S^1:YES;^0;5^Q"
^DD(351.71,.05,21,0)="^^2^2^2991104^"
^DD(351.71,.05,21,1,0)="This field, if set to YES, means that a mail message containing the"
^DD(351.71,.05,21,2,0)="DM extract data for this entry was transmitted to the FORUM mail group."
^DD(351.71,.05,"DT")="2991104"
^DD(351.71,.06,0)="MESSAGE NUMBER^NJ15,0^^0;6^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.71,.06,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits."
^DD(351.71,.06,21,0)="^.001^1^1^3010403^^^^"
^DD(351.71,.06,21,1,0)="This is the number that identifies the mail message sent with the extracted information."
^DD(351.71,.06,23,0)="^.001^1^1^3010403^^^^"
^DD(351.71,.06,23,1,0)="This field is automatically stored by the Extract process (IBJDE)."
^DD(351.71,.06,"DT")="3010104"
^DD(351.71,1,0)="REPORT^351.711P^^1;0"
^DD(351.71,"B","END RUN DATE",.04)=""
^DD(351.71,"B","EXTRACT MESSAGE SENT?",.05)=""
^DD(351.71,"B","MESSAGE NUMBER",.06)=""
^DD(351.71,"B","MONTH/YEAR",.01)=""
^DD(351.71,"B","REPORT",1)=""
^DD(351.71,"B","START RUN DATE",.03)=""
^DD(351.71,"B","STATUS",.02)=""
^DD(351.71,"GL",0,1,.01)=""
^DD(351.71,"GL",0,2,.02)=""
^DD(351.71,"GL",0,3,.03)=""
^DD(351.71,"GL",0,4,.04)=""
^DD(351.71,"GL",0,5,.05)=""
^DD(351.71,"GL",0,6,.06)=""
^DD(351.71,"GL",1,0,1)=""
^DD(351.71,"IX",.01)=""
^DD(351.71,"IX",.02)=""
^DD(351.71,"RQ",.02)=""
^DD(351.71,"SB",351.711,1)=""
^DD(351.711,0)="REPORT SUB-FIELD^^1^5"
^DD(351.711,0,"DT")="2990518"
^DD(351.711,0,"IX","B",351.711,.01)=""
^DD(351.711,0,"NM","REPORT")=""
^DD(351.711,0,"UP")="351.71"
^DD(351.711,.01,0)="REPORT^MP351.7'X^IBE(351.7,^0;1^S DINUM=X"
^DD(351.711,.01,1,0)="^.1"
^DD(351.711,.01,1,1,0)="351.711^B"
^DD(351.711,.01,1,1,1)="S ^IBE(351.71,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(351.711,.01,1,1,2)="K ^IBE(351.71,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(351.711,.01,3)="Enter one of the extract reports corresponding to this entry."
^DD(351.711,.01,21,0)="^^1^1^2990313^^"
^DD(351.711,.01,21,1,0)="This is the report where data is being extracted from."
^DD(351.711,.01,"DT")="2990307"
^DD(351.711,.02,0)="STATUS^RS^1:REPORT QUEUED;2:EXTRACT STARTED;3:EXTRACT COMPLETED;^0;2^Q"
^DD(351.711,.02,1,0)="^.1"
^DD(351.711,.02,1,1,0)="351.71^AD"
^DD(351.711,.02,1,1,1)="S ^IBE(351.71,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(351.711,.02,1,1,2)="K ^IBE(351.71,""AD"",$E(X,1,30),DA(1),DA)"
^DD(351.711,.02,1,1,"DT")="2990305"
^DD(351.711,.02,3)="Enter the current extraction status for this report."
^DD(351.711,.02,21,0)="^^1^1^2990525^^^"
^DD(351.711,.02,21,1,0)="This is the current status of the data extraction process for this report."
^DD(351.711,.02,"DT")="2990518"
^DD(351.711,.03,0)="START RUN DATE^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.711,.03,3)="Enter the extraction start date for this report."
^DD(351.711,.03,21,0)="^^1^1^2990313^"
^DD(351.711,.03,21,1,0)="This is the date the extraction process for this report started."
^DD(351.711,.03,"DT")="2990303"
^DD(351.711,.04,0)="END RUN DATE^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(351.711,.04,3)="Enter the extraction end date for this report."
^DD(351.711,.04,21,0)="^^1^1^2990313^"
^DD(351.711,.04,21,1,0)="This is the date the extraction process for this report ended."
^DD(351.711,.04,"DT")="2990303"
^DD(351.711,1,0)="DATA ELEMENT^351.7111P^^1;0"
^DD(351.711,1,"DT")="2990308"
^DD(351.711,"B","DATA ELEMENT",1)=""
^DD(351.711,"B","END RUN DATE",.04)=""
^DD(351.711,"B","REPORT",.01)=""
^DD(351.711,"B","START RUN DATE",.03)=""
^DD(351.711,"B","STATUS",.02)=""
^DD(351.711,"GL",0,1,.01)=""
^DD(351.711,"GL",0,2,.02)=""
^DD(351.711,"GL",0,3,.03)=""
^DD(351.711,"GL",0,4,.04)=""
^DD(351.711,"GL",1,0,1)=""
^DD(351.711,"IX",.01)=""
^DD(351.711,"IX",.02)=""
^DD(351.711,"RQ",.02)=""
^DD(351.711,"SB",351.7111,1)=""
^DD(351.7111,0)="DATA ELEMENT SUB-FIELD^^.02^2"
^DD(351.7111,0,"DT")="2990317"
^DD(351.7111,0,"IX","B",351.7111,.01)=""
^DD(351.7111,0,"NM","DATA ELEMENT")=""
^DD(351.7111,0,"UP")="351.711"
^DD(351.7111,.01,0)="DATA ELEMENT^MP351.701'X^IBE(351.701,^0;1^S DINUM=X"
^DD(351.7111,.01,1,0)="^.1"
^DD(351.7111,.01,1,1,0)="351.7111^B"
^DD(351.7111,.01,1,1,1)="S ^IBE(351.71,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(351.7111,.01,1,1,2)="K ^IBE(351.71,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(351.7111,.01,3)="Enter the data element/line item associated with this report."
^DD(351.7111,.01,21,0)="^^1^1^2990313^"
^DD(351.7111,.01,21,1,0)="This is the report's summary line item from which data is extracted."
^DD(351.7111,.01,"DT")="2990317"
^DD(351.7111,.01,"V",0)="^.12P^1^1"
^DD(351.7111,.01,"V",1,0)="351.7^EEE"
^DD(351.7111,.01,"V","B",351.7,1)=""
^DD(351.7111,.01,"V","M","EEE",1)=""
^DD(351.7111,.02,0)="DATA VALUE^RF^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(351.7111,.02,3)="Answer must be 1-10 characters in length."
^DD(351.7111,.02,21,0)="^^2^2^2990313^^"
^DD(351.7111,.02,21,1,0)="This is the total value of the report's summary line item, which is taken"
^DD(351.7111,.02,21,2,0)="from the report via the extraction process."
^DD(351.7111,.02,"DT")="2990313"
^DD(351.7111,"B","DATA ELEMENT",.01)=""
^DD(351.7111,"B","DATA VALUE",.02)=""
^DD(351.7111,"GL",0,1,.01)=""
^DD(351.7111,"GL",0,2,.02)=""
^DD(351.7111,"IX",.01)=""
^DD(351.7111,"RQ",.02)=""
^DD(351.73,0)="FIELD^^1.1^4"
^DD(351.73,0,"DDA")="N"
^DD(351.73,0,"DT")="3010326"
^DD(351.73,0,"IX","B",351.73,.01)=""
^DD(351.73,0,"NM","IB DM WORKLOAD PARAMETERS")=""
^DD(351.73,0,"VR")="2.0"
^DD(351.73,0,"VRPK")="IB"
^DD(351.73,.01,0)="CLERK NAME^RP200X^VA(200,^0;1^S DINUM=X"
^DD(351.73,.01,1,0)="^.1"
^DD(351.73,.01,1,1,0)="351.73^B"
^DD(351.73,.01,1,1,1)="S ^IBE(351.73,""B"",$E(X,1,30),DA)="""""
^DD(351.73,.01,1,1,2)="K ^IBE(351.73,""B"",$E(X,1,30),DA)"
^DD(351.73,.01,3)="Please enter a valid clerk name from the New Person file (#200) or an existing clerk in the AR Workload file (#351.73)"
^DD(351.73,.01,21,0)="^.001^1^1^3010102^^^"
^DD(351.73,.01,21,1,0)="The workload reports will be produced based on this clerk.  The clerk must be a valid entry in the New Person file (#200)."
^DD(351.73,.01,"DT")="3001106"
^DD(351.73,.02,0)="PRODUCTIVITY REPORT ONLY?^RS^0:NO;1:YES;^0;2^Q"
^DD(351.73,.02,3)="Please enter ""Y"" if this clerk will only appear on productivity reports.  Enter ""N"" if workload reports and productivity reports will appear for this clerk."
^DD(351.73,.02,21,0)="^.001^1^1^3010130^^^^"
^DD(351.73,.02,21,1,0)="The flag that determines if Workload reports and Productivity reports will be produced for this clerk OR if the clerk will only appear on Productivity reports."
^DD(351.73,.02,"DT")="3001201"
^DD(351.73,.03,0)="USER ADDING ENTRY^P200'^VA(200,^0;3^Q"
^DD(351.73,.03,21,0)="^^1^1^3001206^"
^DD(351.73,.03,21,1,0)="This field will be 'stuffed' with the DUZ of the person entering this clerk for the first time when option ""AR Workload Reporting"" is accessed."
^DD(351.73,.03,"DT")="3001205"
^DD(351.73,1.1,0)="ASSIGNMENT^351.731^^1;0"
^DD(351.73,1.1,21,0)="^.001^1^1^3010424^^^^"
^DD(351.73,1.1,21,1,0)="The assignment is a set of criteria by which Workload Reporting is processed."
^DD(351.73,"B","ASSIGNMENT",1.1)=""
^DD(351.73,"B","CLERK NAME",.01)=""
^DD(351.73,"B","PRODUCTIVITY REPORT ONLY?",.02)=""
^DD(351.73,"B","USER ADDING ENTRY",.03)=""
^DD(351.73,"GL",0,1,.01)=""
^DD(351.73,"GL",0,2,.02)=""
^DD(351.73,"GL",0,3,.03)=""
^DD(351.73,"GL",1,0,1.1)=""
^DD(351.73,"IX",.01)=""
^DD(351.73,"RQ",.01)=""
^DD(351.73,"RQ",.02)=""
^DD(351.73,"SB",351.731,1.1)=""
^DD(351.731,0)="ASSIGNMENT SUB-FIELD^^2.08^18"
^DD(351.731,0,"DT")="3010326"
^DD(351.731,0,"IX","B",351.731,.01)=""
^DD(351.731,0,"NM","ASSIGNMENT")=""
^DD(351.731,0,"UP")="351.73"
^DD(351.731,.01,0)="ASSIGNMENT^MRNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X S DINUM=X"
^DD(351.731,.01,1,0)="^.1"
^DD(351.731,.01,1,1,0)="351.731^B"
^DD(351.731,.01,1,1,1)="S ^IBE(351.73,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(351.731,.01,1,1,2)="K ^IBE(351.73,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(351.731,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(351.731,.01,21,0)="^.001^1^1^3001220^^"
^DD(351.731,.01,21,1,0)="The assignment is a set of criteria by which Workload Processing is processed."
^DD(351.731,.01,"DT")="3001205"
^DD(351.731,.02,0)="BILL CATEGORY^RP430.2'X^PRCA(430.2,^0;2^S DIC(""S"")=""I $$CATTYP^IBJD1(+Y)]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(351.731,.02,3)="Please enter a valid Bill Category from the Accounts Receivable Category File #430.2"
^DD(351.731,.02,12.1)="S DIC(""S"")=""I $$CATTYP^IBJD1(+Y)]"""""""""""
^DD(351.731,.02,21,0)="^.001^1^1^3010424^^^"
^DD(351.731,.02,21,1,0)="Only one bill category will be allowed per assignment. This category will direct processing to either first or third party data elements."
^DD(351.731,.02,"DT")="3010424"
^DD(351.731,.03,0)="MINIMUM ACCOUNT BALANCE^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(351.731,.03,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(351.731,.03,21,0)="^^1^1^3001206^"
^DD(351.731,.03,21,1,0)="The Workload Reporting will not process bills with a balance less than the value entered here."
^DD(351.731,.03,"DT")="3001204"
^DD(351.731,.04,0)="SUPERVISOR^P200'^VA(200,^0;4^Q"
^DD(351.731,.04,21,0)="^.001^1^1^3001212^^"
^DD(351.731,.04,21,1,0)="This field will be 'stuffed' with the DUZ of the user that enters the current assignment."
^DD(351.731,.04,"DT")="3001212"
^DD(351.731,.05,0)="EXCLUDE REGIONAL COUNSEL BILLS^RS^0:NO;1:YES;^0;5^Q"
^DD(351.731,.05,3)="Please enter ""Y"" to exclude Regional Counsel Bills in the Workload list.  Enter ""N"" to include Regional Counsel Bills in the Workload list."
^DD(351.731,.05,21,0)="^^1^1^3010413^"
^DD(351.731,.05,21,1,0)="The Workload Processing will or will not exclude Regional Counsel Bills based on the response to this question."
^DD(351.731,.05,"DT")="3010326"
^DD(351.731,1.01,0)="DAYS SINCE LAST PAYMENT^NJ3,0^^1;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.731,1.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(351.731,1.01,21,0)="^^1^1^3001206^"
^DD(351.731,1.01,21,1,0)="First party criteria for Workload Reporting."
^DD(351.731,1.01,"DT")="3001204"
^DD(351.731,1.02,0)="FIRST PARTY-FIRST PATIENT NAME^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(351.731,1.02,.1)=""
^DD(351.731,1.02,3)="Answer must be 1-30 characters in length."
^DD(351.731,1.02,21,0)="^.001^1^1^3010416^^^^"
^DD(351.731,1.02,21,1,0)="First party criteria for Workload Reporting."
^DD(351.731,1.02,"DT")="3010416"
^DD(351.731,1.03,0)="FIRST PARTY-LAST PATIENT NAME^F^^1;3^K:$L(X)>30!($L(X)<1) X"
^DD(351.731,1.03,.1)=""
^DD(351.731,1.03,3)="Answer must be 1-30 characters in length."
^DD(351.731,1.03,21,0)="^.001^1^1^3010416^^^"
^DD(351.731,1.03,21,1,0)="First Party criteria for Workload Reporting."
^DD(351.731,1.03,"DT")="3010416"
^DD(351.731,1.04,0)="FIRST PARTY-FIRST SSN^F^^1;4^K:$L(X)>9!($L(X)<1) X"
^DD(351.731,1.04,.1)=""
^DD(351.731,1.04,3)="Answer must be 1-9 characters in length."
^DD(351.731,1.04,21,0)="^.001^1^1^3010416^^^^"
^DD(351.731,1.04,21,1,0)="First Party criteria for Workload Reporting."
^DD(351.731,1.04,"DT")="3010416"
^DD(351.731,1.05,0)="FIRST PARTY-LAST SSN^F^^1;5^K:$L(X)>9!($L(X)<1) X"
^DD(351.731,1.05,.1)=""
^DD(351.731,1.05,3)="Answer must be 1-9 characters in length."
^DD(351.731,1.05,21,0)="^.001^1^1^3010416^^^^"
^DD(351.731,1.05,21,1,0)="First party criteria for Workload Reporting."
^DD(351.731,1.05,"DT")="3010416"
^DD(351.731,2.01,0)="DAYS SINCE LAST TRANSACTION^NJ3,0^^2;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.731,2.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(351.731,2.01,21,0)="^^1^1^3001206^"
^DD(351.731,2.01,21,1,0)="Third Party criteria for Workload Reporting."
^DD(351.731,2.01,"DT")="3001204"
^DD(351.731,2.02,0)="FIRST INSURANCE CARRIER^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(351.731,2.02,3)="Answer must be 1-30 characters in length."
^DD(351.731,2.02,8.5)=""
^DD(351.731,2.02,21,0)="^^1^1^3010103^"
^DD(351.731,2.02,21,1,0)="Third Party criteria for Workload Reporting."
^DD(351.731,2.02,"DT")="3010103"
^DD(351.731,2.03,0)="LAST INSURANCE CARRIER^F^^2;3^K:$L(X)>30!($L(X)<1) X"
^DD(351.731,2.03,3)="Answer must be 1-30 characters in length."
^DD(351.731,2.03,21,0)="^^1^1^3001206^"
^DD(351.731,2.03,21,1,0)="Third party criteria for Workload Reporting."
^DD(351.731,2.03,"DT")="3001204"
^DD(351.731,2.04,0)="THIRD PARTY-FIRST PATIENT NAME^F^^2;4^K:$L(X)>30!($L(X)<1) X"
^DD(351.731,2.04,3)="Answer must be 1-30 characters in length."
^DD(351.731,2.04,21,0)="^.001^1^1^3010416^^"
^DD(351.731,2.04,21,1,0)="Third Party criteria for Workload Reporting"
^DD(351.731,2.04,"DT")="3010416"
^DD(351.731,2.05,0)="THIRD PARTY-LAST PATIENT NAME^F^^2;5^K:$L(X)>30!($L(X)<1) X"
^DD(351.731,2.05,3)="Answer must be 1-30 characters in length."
^DD(351.731,2.05,21,0)="^.001^1^1^3010416^^"
^DD(351.731,2.05,21,1,0)="Third Party criteria for Workload Reporting."
^DD(351.731,2.05,"DT")="3010416"
^DD(351.731,2.06,0)="THIRD PARTY-FIRST SSN^F^^2;6^K:$L(X)>9!($L(X)<1) X"
^DD(351.731,2.06,3)="Answer must be 1-9 characters in length."
^DD(351.731,2.06,21,0)="^.001^1^1^3010416^^"
^DD(351.731,2.06,21,1,0)="Third Party criteria for Workload Reporting."
^DD(351.731,2.06,"DT")="3010416"
^DD(351.731,2.07,0)="THIRD PARTY-LAST SSN^F^^2;7^K:$L(X)>9!($L(X)<1) X"
^DD(351.731,2.07,3)="Answer must be 1-9 characters in length."
^DD(351.731,2.07,21,0)="^.001^1^1^3010416^^"
^DD(351.731,2.07,21,1,0)="Third Party criteria for Workload Reporting."
^DD(351.731,2.07,"DT")="3010416"
^DD(351.731,2.08,0)="TYPE OF RECEIVABLE^S^1:INPATIENT;2:OUTPATIENT;3:PROSTHETICS;4:PHARMACY REFILL;5:ALL RECEIVABLES;^2;8^Q"
^DD(351.731,2.08,21,0)="^^1^1^3010413^"
^DD(351.731,2.08,21,1,0)="Third Party criteria for Workload Reporting."
^DD(351.731,2.08,"DT")="3010305"
^DD(351.731,"B","ASSIGNMENT",.01)=""
^DD(351.731,"B","BILL CATEGORY",.02)=""
^DD(351.731,"B","DAYS SINCE LAST PAYMENT",1.01)=""
^DD(351.731,"B","DAYS SINCE LAST TRANSACTION",2.01)=""
^DD(351.731,"B","EXCLUDE REGIONAL COUNSEL BILLS",.05)=""
^DD(351.731,"B","FIRST INSURANCE CARRIER",2.02)=""
^DD(351.731,"B","FIRST PARTY-FIRST PATIENT NAME",1.02)=""
^DD(351.731,"B","FIRST PARTY-FIRST SSN",1.04)=""
^DD(351.731,"B","FIRST PARTY-LAST PATIENT NAME",1.03)=""
^DD(351.731,"B","FIRST PARTY-LAST SSN",1.05)=""
^DD(351.731,"B","LAST INSURANCE CARRIER",2.03)=""
^DD(351.731,"B","MINIMUM ACCOUNT BALANCE",.03)=""
^DD(351.731,"B","SUPERVISOR",.04)=""
^DD(351.731,"B","THIRD PARTY-FIRST PATIENT NAME",2.04)=""
^DD(351.731,"B","THIRD PARTY-FIRST SSN",2.06)=""
^DD(351.731,"B","THIRD PARTY-LAST PATIENT NAME",2.05)=""
^DD(351.731,"B","THIRD PARTY-LAST SSN",2.07)=""
^DD(351.731,"B","TYPE OF RECEIVABLE",2.08)=""
^DD(351.731,"GL",0,1,.01)=""
^DD(351.731,"GL",0,2,.02)=""
^DD(351.731,"GL",0,3,.03)=""
^DD(351.731,"GL",0,4,.04)=""
^DD(351.731,"GL",0,5,.05)=""
^DD(351.731,"GL",1,1,1.01)=""
^DD(351.731,"GL",1,2,1.02)=""
^DD(351.731,"GL",1,3,1.03)=""
^DD(351.731,"GL",1,4,1.04)=""
^DD(351.731,"GL",1,5,1.05)=""
^DD(351.731,"GL",2,1,2.01)=""
^DD(351.731,"GL",2,2,2.02)=""
^DD(351.731,"GL",2,3,2.03)=""
^DD(351.731,"GL",2,4,2.04)=""
^DD(351.731,"GL",2,5,2.05)=""
^DD(351.731,"GL",2,6,2.06)=""
^DD(351.731,"GL",2,7,2.07)=""
^DD(351.731,"GL",2,8,2.08)=""
^DD(351.731,"IX",.01)=""
^DD(351.731,"RQ",.01)=""
^DD(351.731,"RQ",.02)=""
^DD(351.731,"RQ",.05)=""
^DD(351.81,0)="FIELD^^4.04^12"
^DD(351.81,0,"DDA")="N"
^DD(351.81,0,"DT")="3020424"
^DD(351.81,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ?15,"" "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(351.81,0,"ID",.03)="W ?45,"" "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(351.81,0,"ID",.05)="W ?56,"" "",@(""$P($P($C(59)_$S($D(^DD(351.81,.05,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(351.81,0,"IX","AD",351.81,.07)=""
^DD(351.81,0,"IX","B",351.81,.01)=""
^DD(351.81,0,"IX","C",351.81,.02)=""
^DD(351.81,0,"NM","LTC COPAY CLOCK")=""
^DD(351.81,0,"VR")="2.0"
^DD(351.81,0,"VRPK")="IB"
^DD(351.81,.01,0)="FACILITY CLOCK NUMBER^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(351.81,.01,1,0)="^.1"
^DD(351.81,.01,1,1,0)="351.81^B"
^DD(351.81,.01,1,1,1)="S ^IBA(351.81,""B"",$E(X,1,30),DA)="""""
^DD(351.81,.01,1,1,2)="K ^IBA(351.81,""B"",$E(X,1,30),DA)"
^DD(351.81,.01,3)="Type a Number between 1000 and 999999999999, 0 Decimal Digits."
^DD(351.81,.01,21,0)="^.001^2^2^3020425^^^^"
^DD(351.81,.01,21,1,0)="This number is formed by Concatenating the Facility Site number with the"
^DD(351.81,.01,21,2,0)="next available entry number in the file."
^DD(351.81,.01,"DT")="3020424"
^DD(351.81,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(351.81,.02,1,0)="^.1^^-1"
^DD(351.81,.02,1,2,0)="351.81^C"
^DD(351.81,.02,1,2,1)="S ^IBA(351.81,""C"",$E(X,1,30),DA)="""""
^DD(351.81,.02,1,2,2)="K ^IBA(351.81,""C"",$E(X,1,30),DA)"
^DD(351.81,.02,1,2,"DT")="3020218"
^DD(351.81,.02,3)="Please enter the Patient's name."
^DD(351.81,.02,21,0)="^^1^1^3020423^"
^DD(351.81,.02,21,1,0)="This is the patient that is associated with this LTC clock."
^DD(351.81,.02,"DT")="3020423"
^DD(351.81,.03,0)="CLOCK BEGIN DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.81,.03,1,0)="^.1^^0"
^DD(351.81,.03,3)="Please enter the Begin Date of the Clock <LTC ANNIVERSARY DATE>."
^DD(351.81,.03,21,0)="^.001^1^1^3020424^^"
^DD(351.81,.03,21,1,0)="This is the beginning date of the clock entry."
^DD(351.81,.03,"DT")="3020424"
^DD(351.81,.04,0)="CLOCK EXPIRATION DATE^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.81,.04,3)="Please enter the Clock Expiration Date. This should be one year from the Clock Begin Date - 1 day."
^DD(351.81,.04,21,0)="^^2^2^3020423^"
^DD(351.81,.04,21,1,0)="This is the date this LTC clock will expire.  After which a new clock "
^DD(351.81,.04,21,2,0)="entry will be created."
^DD(351.81,.04,"DT")="3020423"
^DD(351.81,.05,0)="STATUS^RS^1:OPEN;2:CLOSED;3:CANCELLED;^0;5^Q"
^DD(351.81,.05,1,0)="^.1^^0"
^DD(351.81,.05,3)="Please enter 1 or 2 or 3 for the correct status."
^DD(351.81,.05,21,0)="^^1^1^3020423^"
^DD(351.81,.05,21,1,0)="This is the current status of this LTC clock."
^DD(351.81,.05,"DT")="3020423"
^DD(351.81,.06,0)="EXEMPT DAYS REMAINING^RNJ3,0^^0;6^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(351.81,.06,3)="Please enter the total EXEMPT DAYS REMAINING."
^DD(351.81,.06,21,0)="^^1^1^3020423^"
^DD(351.81,.06,21,1,0)="This is the number of free (exempt) days that have not been used yet."
^DD(351.81,.06,"DT")="3020423"
^DD(351.81,.07,0)="CURRENT EVENTS DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.81,.07,1,0)="^.1"
^DD(351.81,.07,1,1,0)="351.81^AD"
^DD(351.81,.07,1,1,1)="S ^IBA(351.81,""AD"",$E(X,1,30),DA)="""""
^DD(351.81,.07,1,1,2)="K ^IBA(351.81,""AD"",$E(X,1,30),DA)"
^DD(351.81,.07,1,1,"DT")="3020125"
^DD(351.81,.07,3)="Enter the earliest date to review for LTC transactions."
^DD(351.81,.07,21,0)="^^2^2^3020125^"
^DD(351.81,.07,21,1,0)="This is a flag indicating this patient needs to be reviewed for LTC "
^DD(351.81,.07,21,2,0)="transactions.  The date stored here is the earliest date to review from."
^DD(351.81,.07,"DT")="3020125"
^DD(351.81,1,0)="EXEMPT DAY NUMBER^351.811^^1;0"
^DD(351.81,4.01,0)="USER ADDING ENTRY^RP200'^VA(200,^4;1^Q"
^DD(351.81,4.01,3)="Enter the name of the person who created the entry."
^DD(351.81,4.01,21,0)="^^1^1^3020424^"
^DD(351.81,4.01,21,1,0)="This is the name of the person who created the entry."
^DD(351.81,4.01,23,0)="^^1^1^3011231^"
^DD(351.81,4.01,23,1,0)="This is a pointer to file #200 NEW PERSONS."
^DD(351.81,4.01,"DT")="3020424"
^DD(351.81,4.02,0)="DATE ENTRY ADDED^RD^^4;2^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(351.81,4.02,3)="Please enter the date the entry was created."
^DD(351.81,4.02,21,0)="^^1^1^3011231^^"
^DD(351.81,4.02,21,1,0)="This is the date the entry was added."
^DD(351.81,4.02,23,0)="^^1^1^3020423^"
^DD(351.81,4.02,23,1,0)="This field contains the date that this entry was created."
^DD(351.81,4.02,"DT")="3020423"
^DD(351.81,4.03,0)="USER LAST UPDATING^P200'^VA(200,^4;3^Q"
^DD(351.81,4.03,3)="Please enter the name of the person last updating this field."
^DD(351.81,4.03,21,0)="^^1^1^3020423^"
^DD(351.81,4.03,21,1,0)="This is the name of the last person to update this field."
^DD(351.81,4.03,23,0)="^^1^1^3011231^"
^DD(351.81,4.03,23,1,0)="This field is a pointer to file #200 NEW PERSONS."
^DD(351.81,4.03,"DT")="3020423"
^DD(351.81,4.04,0)="DATE LAST UPDATED^D^^4;4^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(351.81,4.04,3)="Please enter the date this entry was last updated."
^DD(351.81,4.04,21,0)="^^1^1^3011231^"
^DD(351.81,4.04,21,1,0)="This field contains the last date that this entry was updated."
^DD(351.81,4.04,23,0)="^^1^1^3011231^"
^DD(351.81,4.04,23,1,0)="This is the date the entry was last updated."
^DD(351.81,4.04,"DT")="3011231"
^DD(351.81,"B","CLOCK BEGIN DATE",.03)=""
^DD(351.81,"B","CLOCK EXPIRATION DATE",.04)=""
^DD(351.81,"B","CURRENT EVENTS DATE",.07)=""
^DD(351.81,"B","DATE ENTRY ADDED",4.02)=""
^DD(351.81,"B","DATE LAST UPDATED",4.04)=""
^DD(351.81,"B","EXEMPT DAY NUMBER",1)=""
^DD(351.81,"B","EXEMPT DAYS REMAINING",.06)=""
^DD(351.81,"B","FACILITY CLOCK NUMBER",.01)=""
^DD(351.81,"B","PATIENT",.02)=""
^DD(351.81,"B","STATUS",.05)=""
^DD(351.81,"B","USER ADDING ENTRY",4.01)=""
^DD(351.81,"B","USER LAST UPDATING",4.03)=""
^DD(351.81,"GL",0,1,.01)=""
^DD(351.81,"GL",0,2,.02)=""
^DD(351.81,"GL",0,3,.03)=""
^DD(351.81,"GL",0,4,.04)=""
^DD(351.81,"GL",0,5,.05)=""
^DD(351.81,"GL",0,6,.06)=""
^DD(351.81,"GL",0,7,.07)=""
^DD(351.81,"GL",1,0,1)=""
^DD(351.81,"GL",4,1,4.01)=""
^DD(351.81,"GL",4,2,4.02)=""
^DD(351.81,"GL",4,3,4.03)=""
^DD(351.81,"GL",4,4,4.04)=""
^DD(351.81,"IX",.01)=""
^DD(351.81,"IX",.02)=""
^DD(351.81,"IX",.07)=""
^DD(351.81,"RQ",.01)=""
^DD(351.81,"RQ",.02)=""
^DD(351.81,"RQ",.03)=""
^DD(351.81,"RQ",.04)=""
^DD(351.81,"RQ",.05)=""
^DD(351.81,"RQ",.06)=""
^DD(351.81,"RQ",4.01)=""
^DD(351.81,"RQ",4.02)=""
^DD(351.81,"SB",351.811,1)=""
^DD(351.811,0)="EXEMPT DAY NUMBER SUB-FIELD^^.02^2"
^DD(351.811,0,"DT")="3020124"
^DD(351.811,0,"IX","AC",351.811,.02)=""
^DD(351.811,0,"IX","B",351.811,.01)=""
^DD(351.811,0,"NM","EXEMPT DAY NUMBER")=""
^DD(351.811,0,"UP")="351.81"
^DD(351.811,.01,0)="EXEMPT DAY NUMBER^NJ2,0X^^0;1^K:+X'=X!(X>21)!(X<1)!(X?.E1"".""1.N) X S:$G(X) DINUM=X"
^DD(351.811,.01,1,0)="^.1"
^DD(351.811,.01,1,1,0)="351.811^B"
^DD(351.811,.01,1,1,1)="S ^IBA(351.81,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(351.811,.01,1,1,2)="K ^IBA(351.81,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(351.811,.01,3)="Enter the Exempt Day number for this care"
^DD(351.811,.01,21,0)="^^1^1^3020124^"
^DD(351.811,.01,21,1,0)="This is the number (count) for this exempt day."
^DD(351.811,.01,"DT")="3020124"
^DD(351.811,.02,0)="EXEMPT DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(351.811,.02,1,0)="^.1"
^DD(351.811,.02,1,1,0)="351.811^AC"
^DD(351.811,.02,1,1,1)="S ^IBA(351.81,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(351.811,.02,1,1,2)="K ^IBA(351.81,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(351.811,.02,1,1,"%D",0)="^^1^1^3020222^"
^DD(351.811,.02,1,1,"%D",1,0)="Used to sort the dates in date order."
^DD(351.811,.02,1,1,"DT")="3020222"
^DD(351.811,.02,3)="Enter a date this exemption was used on."
^DD(351.811,.02,21,0)="^^1^1^3020124^"
^DD(351.811,.02,21,1,0)="This is the date the exemption number was used on."
^DD(351.811,.02,"DT")="3020222"
^DD(351.811,"B","EXEMPT DATE",.02)=""
^DD(351.811,"B","EXEMPT DAY NUMBER",.01)=""
^DD(351.811,"GL",0,1,.01)=""
^DD(351.811,"GL",0,2,.02)=""
^DD(351.811,"IX",.01)=""
^DD(351.811,"IX",.02)=""
^DD(351.9,0)="FIELD^^5.01^34"
^DD(351.9,0,"DDA")="N"
^DD(351.9,0,"DT")="3010325"
^DD(351.9,0,"IX","ADE",351.9,.08)=""
^DD(351.9,0,"IX","AEB",351.9,.09)=""
^DD(351.9,0,"IX","AEC",351.9001,.01)=""
^DD(351.9,0,"IX","ASN",351.9,.12)=""
^DD(351.9,0,"IX","AST",351.9,.02)=""
^DD(351.9,0,"IX","B",351.9,.01)=""
^DD(351.9,0,"NM","CLAIMSMANAGER BILLS")=""
^DD(351.9,0,"VR")="2.0"
^DD(351.9,0,"VRPK")="IB"
^DD(351.9,.01,0)="CLAIM^RP399'X^DGCR(399,^0;1^S DINUM=X"
^DD(351.9,.01,1,0)="^.1"
^DD(351.9,.01,1,1,0)="351.9^B"
^DD(351.9,.01,1,1,1)="S ^IBA(351.9,""B"",$E(X,1,30),DA)="""""
^DD(351.9,.01,1,1,2)="K ^IBA(351.9,""B"",$E(X,1,30),DA)"
^DD(351.9,.01,3)=""
^DD(351.9,.01,21,0)="^^1^1^3001220^"
^DD(351.9,.01,21,1,0)="This is a pointer to the BILL/CLAIMS file (#399)."
^DD(351.9,.01,"DT")="3001228"
^DD(351.9,.02,0)="STATUS^P351.91'^IBA(351.91,^0;2^Q"
^DD(351.9,.02,1,0)="^.1"
^DD(351.9,.02,1,1,0)="351.9^AST"
^DD(351.9,.02,1,1,1)="S ^IBA(351.9,""AST"",$E(X,1,30),DA)="""""
^DD(351.9,.02,1,1,2)="K ^IBA(351.9,""AST"",$E(X,1,30),DA)"
^DD(351.9,.02,1,1,"%D",0)="^^1^1^3010111^"
^DD(351.9,.02,1,1,"%D",1,0)="Cross reference of the Status field for lookup and reports."
^DD(351.9,.02,1,1,"DT")="3010111"
^DD(351.9,.02,3)=""
^DD(351.9,.02,21,0)="^.001^1^1^3010322^^^"
^DD(351.9,.02,21,1,0)="This is a pointer to the CLAIMSMANAGER STATUS file (#351.91)"
^DD(351.9,.02,"DT")="3010111"
^DD(351.9,.03,0)="LAST SENT TO CLAIMSMANAGER^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.9,.03,3)="(No range limit on date)"
^DD(351.9,.03,21,0)="^.001^1^1^3010319^^^^"
^DD(351.9,.03,21,1,0)="This is the Date/time that the claim was last sent to ClaimsManager."
^DD(351.9,.03,"DT")="3010319"
^DD(351.9,.04,0)="TIMES SENT TO CLAIMSMANAGER^F^^0;4^K:$L(X)>4!($L(X)<1) X"
^DD(351.9,.04,3)="Answer will be a numeric value from 0 to 9999."
^DD(351.9,.04,21,0)="^.001^2^2^3010319^^^"
^DD(351.9,.04,21,1,0)="This will be a numeric value to track the number of times the claim"
^DD(351.9,.04,21,2,0)="was sent to ClaimsManager."
^DD(351.9,.04,"DT")="3010319"
^DD(351.9,.05,0)="SENT BY^P200'^VA(200,^0;5^Q"
^DD(351.9,.05,21,0)="^.001^2^2^3010319^^^^"
^DD(351.9,.05,21,1,0)="This is a pointer to the New Person file (#200) to recored the identity of"
^DD(351.9,.05,21,2,0)="the last person to send the claim to ClaimsManager."
^DD(351.9,.05,"DT")="3001220"
^DD(351.9,.06,0)="DATE/TIME ENTERED^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.9,.06,21,0)="^.001^2^2^3010322^^^"
^DD(351.9,.06,21,1,0)="This is the date and time that the claim was originally entered"
^DD(351.9,.06,21,2,0)="into the CLAIMSMANAGER file (351.9)."
^DD(351.9,.06,"DT")="3001220"
^DD(351.9,.07,0)="ENTERED BY^P200'^VA(200,^0;7^Q"
^DD(351.9,.07,21,0)="^.001^3^3^3010322^^"
^DD(351.9,.07,21,1,0)="This will point to the New Person file (#200)"
^DD(351.9,.07,21,2,0)="and will identify the person who originally entered/edited"
^DD(351.9,.07,21,3,0)="the bill causing an entry in the CLAIMSMANAGER file (351.9)."
^DD(351.9,.07,"DT")="3001220"
^DD(351.9,.08,0)="DATE/TIME LAST EDITED^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(351.9,.08,1,0)="^.1"
^DD(351.9,.08,1,1,0)="351.9^ADE"
^DD(351.9,.08,1,1,1)="S ^IBA(351.9,""ADE"",$E(X,1,30),DA)="""""
^DD(351.9,.08,1,1,2)="K ^IBA(351.9,""ADE"",$E(X,1,30),DA)"
^DD(351.9,.08,1,1,"%D",0)="^^2^2^3010111^"
^DD(351.9,.08,1,1,"%D",1,0)="Cross reference of the DATE/TIME LAST EDITED for reports"
^DD(351.9,.08,1,1,"%D",2,0)="and to be used with list manager."
^DD(351.9,.08,1,1,"DT")="3010111"
^DD(351.9,.08,21,0)="^^1^1^3001220^"
^DD(351.9,.08,21,1,0)="This is the date/time that the claim was last edited."
^DD(351.9,.08,"DT")="3010111"
^DD(351.9,.09,0)="LAST EDITED BY^P200'^VA(200,^0;9^Q"
^DD(351.9,.09,1,0)="^.1"
^DD(351.9,.09,1,1,0)="351.9^AEB"
^DD(351.9,.09,1,1,1)="S ^IBA(351.9,""AEB"",$E(X,1,30),DA)="""""
^DD(351.9,.09,1,1,2)="K ^IBA(351.9,""AEB"",$E(X,1,30),DA)"
^DD(351.9,.09,1,1,"%D",0)="^^1^1^3010111^"
^DD(351.9,.09,1,1,"%D",1,0)="Cross reference of the LAST EDITED BY field for reports and list manager."
^DD(351.9,.09,1,1,"DT")="3010111"
^DD(351.9,.09,21,0)="^^2^2^3001220^"
^DD(351.9,.09,21,1,0)="This is a pointer to the New Person file (#200) to identify"
^DD(351.9,.09,21,2,0)="the person who last edited this claim."
^DD(351.9,.09,"DT")="3010111"
^DD(351.9,.1,0)="OVERRIDDEN?^S^1:YES;^0;10^Q"
^DD(351.9,.1,21,0)="^.001^2^2^3010319^^^"
^DD(351.9,.1,21,1,0)="If the user chooses to override the ClaimsManager errors and send"
^DD(351.9,.1,21,2,0)="the claim ""as is"" this field will be set to '1'."
^DD(351.9,.1,"DT")="3001220"
^DD(351.9,.11,0)="OVERRIDDEN BY^P200'^VA(200,^0;11^Q"
^DD(351.9,.11,21,0)="^.001^3^3^3010319^^"
^DD(351.9,.11,21,1,0)="If OVERRIDDEN? is set to YES, then this field will contain the IEN"
^DD(351.9,.11,21,2,0)="for the NEW PERSON file (#200) of the person who overrode the"
^DD(351.9,.11,21,3,0)="ClaimsManager errors."
^DD(351.9,.11,"DT")="3001220"
^DD(351.9,.12,0)="ASSIGNED TO^P200'^VA(200,^0;12^Q"
^DD(351.9,.12,1,0)="^.1"
^DD(351.9,.12,1,1,0)="351.9^ASN"
^DD(351.9,.12,1,1,1)="S ^IBA(351.9,""ASN"",$E(X,1,30),DA)="""""
^DD(351.9,.12,1,1,2)="K ^IBA(351.9,""ASN"",$E(X,1,30),DA)"
^DD(351.9,.12,1,1,"%D",0)="^^2^2^3010307^"
^DD(351.9,.12,1,1,"%D",1,0)="Cross reference of the ASSIGNED TO field for reports and lookups on "
^DD(351.9,.12,1,1,"%D",2,0)="who the claim is assigned to."
^DD(351.9,.12,1,1,"DT")="3010307"
^DD(351.9,.12,21,0)="^^2^2^3010307^"
^DD(351.9,.12,21,1,0)="This field will point to the person that the biller assigns the bill to."
^DD(351.9,.12,21,2,0)="The default will be the biller."
^DD(351.9,.12,"DT")="3010307"
^DD(351.9,.13,0)="COMMENT DATE/TIME^D^^0;13^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(351.9,.13,21,0)="^^1^1^3010314^"
^DD(351.9,.13,21,1,0)="This will be the Date/Time stamp for when the comments were entered."
^DD(351.9,.13,"DT")="3010314"
^DD(351.9,.14,0)="COMMENT ENTERED BY^P200'^VA(200,^0;14^Q"
^DD(351.9,.14,21,0)="^^2^2^3010314^"
^DD(351.9,.14,21,1,0)="This a pointer to the New Person file of the person who entered the"
^DD(351.9,.14,21,2,0)="comments."
^DD(351.9,.14,"DT")="3010314"
^DD(351.9,.15,0)="RECEIVED BY CLAIMSMANAGER^S^1:YES;0:NO;^0;15^Q"
^DD(351.9,.15,21,0)="^^3^3^3010322^"
^DD(351.9,.15,21,1,0)="This field is used as a check to ensure that ClaimsManager received"
^DD(351.9,.15,21,2,0)="the bill without a comm error. This is needed for the cancellation"
^DD(351.9,.15,21,3,0)="process."
^DD(351.9,.15,"DT")="3010322"
^DD(351.9,1.01,0)="ERROR CODE^351.9001A^^1;0"
^DD(351.9,2.01,0)="COMMENTS^351.9002^^2;0"
^DD(351.9,3.01,0)="PATIENT ID^F^^3;1^K:$L(X)>10!($L(X)<9) X"
^DD(351.9,3.01,3)="Patient SSN must be 9-10 characters in length."
^DD(351.9,3.01,21,0)="^.001^2^2^3010322^^"
^DD(351.9,3.01,21,1,0)="The patient's SSN will be the Patient ID for ClaimsManager."
^DD(351.9,3.01,21,2,0)="It may be 9 or 10 characters."
^DD(351.9,3.01,"DT")="3001220"
^DD(351.9,3.02,0)="PT LAST NAME^F^^3;2^K:$L(X)>40!($L(X)<1) X"
^DD(351.9,3.02,3)="Answer must be 1-40 characters in length."
^DD(351.9,3.02,21,0)="^^1^1^3001220^"
^DD(351.9,3.02,21,1,0)="This field will contain the last name of the patient."
^DD(351.9,3.02,"DT")="3001220"
^DD(351.9,3.03,0)="PT MIDDLE NAME^F^^3;3^K:$L(X)>20!($L(X)<1) X"
^DD(351.9,3.03,3)="Answer must be 1-20 characters in length."
^DD(351.9,3.03,21,0)="^^1^1^3001220^"
^DD(351.9,3.03,21,1,0)="This field will contain the middle name of the patient, if one exists."
^DD(351.9,3.03,"DT")="3001220"
^DD(351.9,3.04,0)="PT FIRST NAME^F^^3;4^K:$L(X)>20!($L(X)<1) X"
^DD(351.9,3.04,3)="Answer must be 1-20 characters in length."
^DD(351.9,3.04,21,0)="^^1^1^3001220^"
^DD(351.9,3.04,21,1,0)="This field contains the first name of the patient."
^DD(351.9,3.04,"DT")="3001220"
^DD(351.9,3.05,0)="PT DOB^F^^3;5^K:$L(X)>16!($L(X)<1) X"
^DD(351.9,3.05,3)="Answer must be 1-16 characters in length."
^DD(351.9,3.05,21,0)="^^1^1^3001220^"
^DD(351.9,3.05,21,1,0)="This field contains the patient's Date of Birth."
^DD(351.9,3.05,"DT")="3001220"
^DD(351.9,3.06,0)="PT GENDER^F^^3;6^K:$L(X)>1!($L(X)<1) X"
^DD(351.9,3.06,3)="Answer must be 1 character in length."
^DD(351.9,3.06,21,0)="^^1^1^3001220^"
^DD(351.9,3.06,21,1,0)="This is a one character abbreviation to identify the patient's gender."
^DD(351.9,3.06,"DT")="3001220"
^DD(351.9,3.07,0)="ENTRY DATE/TIME^F^^3;7^K:$L(X)>16!($L(X)<1) X"
^DD(351.9,3.07,3)="Answer must be 1-16 characters in length."
^DD(351.9,3.07,21,0)="^^1^1^3001220^"
^DD(351.9,3.07,21,1,0)="This is the Date/time that the claim was entered into Vista."
^DD(351.9,3.07,"DT")="3001220"
^DD(351.9,3.08,0)="REF PHYS ID^F^^3;8^K:$L(X)>20!($L(X)<1) X"
^DD(351.9,3.08,3)="Answer must be 1-20 characters in length."
^DD(351.9,3.08,21,0)="^.001^1^1^3010322^^"
^DD(351.9,3.08,21,1,0)="This is the Referring Physician's ID in the format expected by ClaimsManager."
^DD(351.9,3.08,"DT")="3001220"
^DD(351.9,3.09,0)="REF PHYS LAST NAME^F^^3;9^K:$L(X)>40!($L(X)<1) X"
^DD(351.9,3.09,3)="Answer must be 1-40 characters in length."
^DD(351.9,3.09,21,0)="^^1^1^3001220^"
^DD(351.9,3.09,21,1,0)="This is the Referring Physician's last name."
^DD(351.9,3.09,"DT")="3001220"
^DD(351.9,3.1,0)="REF PHYS MIDDLE NAME^F^^3;10^K:$L(X)>20!($L(X)<1) X"
^DD(351.9,3.1,3)="Answer must be 1-20 characters in length."
^DD(351.9,3.1,21,0)="^^1^1^3001220^"
^DD(351.9,3.1,21,1,0)="This is the Referring Physician's middle name, if one exists."
^DD(351.9,3.1,"DT")="3001220"
^DD(351.9,3.11,0)="REF PHYS FIRST NAME^F^^3;11^K:$L(X)>20!($L(X)<1) X"
^DD(351.9,3.11,3)="Answer must be 1-20 characters in length."
^DD(351.9,3.11,21,0)="^^1^1^3001220^"
^DD(351.9,3.11,21,1,0)="This is the Referring Physician's first name."
^DD(351.9,3.11,"DT")="3001220"
^DD(351.9,3.12,0)="REF PHYS TITLE^F^^3;12^K:$L(X)>5!($L(X)<1) X"
^DD(351.9,3.12,3)="Answer must be 1-5 characters in length."
^DD(351.9,3.12,21,0)="^^1^1^3001220^"
^DD(351.9,3.12,21,1,0)="This is the Referring Physicians Title."
^DD(351.9,3.12,"DT")="3001220"
^DD(351.9,4.01,0)="REF PHYS DEPT^F^^4;1^K:$L(X)>20!($L(X)<1) X"
^DD(351.9,4.01,3)="Answer must be 1-20 characters in length."
^DD(351.9,4.01,21,0)="^^1^1^3001220^"
^DD(351.9,4.01,21,1,0)="This will identify the department for the Referring Physician."
^DD(351.9,4.01,"DT")="3001220"
^DD(351.9,4.02,0)="REF PHYS SPEC^F^^4;2^K:$L(X)>10!($L(X)<1) X"
^DD(351.9,4.02,3)="Answer must be 1-10 characters in length."
^DD(351.9,4.02,21,0)="^^1^1^3001220^"
^DD(351.9,4.02,21,1,0)="This is the Referring Physician's Specialty"
^DD(351.9,4.02,"DT")="3001220"
^DD(351.9,4.03,0)="REF PHYS DEGREE ID^F^^4;3^K:$L(X)>10!($L(X)<1) X"
^DD(351.9,4.03,3)="Answer must be 1-10 characters in length."
^DD(351.9,4.03,21,0)="^^1^1^3001220^"
^DD(351.9,4.03,21,1,0)="This is the Referring Physician's Degree ID."
^DD(351.9,4.03,"DT")="3001220"
^DD(351.9,4.04,0)="REF PHYS UPIN^F^^4;4^K:$L(X)>10!($L(X)<1) X"
^DD(351.9,4.04,3)="Answer must be 1-10 characters in length."
^DD(351.9,4.04,21,0)="^^1^1^3001220^"
^DD(351.9,4.04,21,1,0)="This is the Referring Physician's UPIN number."
^DD(351.9,4.04,"DT")="3001220"
^DD(351.9,5.01,0)="LINE SEGMENT^351.9003A^^5;0"
^DD(351.9,5.01,21,0)="^.001^2^2^3010322^^^^"
^DD(351.9,5.01,21,1,0)="This is the number assigned to a specific line segment for transmission"
^DD(351.9,5.01,21,2,0)="to ClaimsManager."
^DD(351.9,"B","ASSIGNED TO",.12)=""
^DD(351.9,"B","CLAIM",.01)=""
^DD(351.9,"B","COMMENT DATE/TIME",.13)=""
^DD(351.9,"B","COMMENT ENTERED BY",.14)=""
^DD(351.9,"B","COMMENTS",2.01)=""
^DD(351.9,"B","DATE/TIME ENTERED",.06)=""
^DD(351.9,"B","DATE/TIME LAST EDITED",.08)=""
^DD(351.9,"B","ENTERED BY",.07)=""
^DD(351.9,"B","ENTRY DATE/TIME",3.07)=""
^DD(351.9,"B","ERROR CODE",1.01)=""
^DD(351.9,"B","LAST EDITED BY",.09)=""
^DD(351.9,"B","LAST SENT TO CLAIMSMANAGER",.03)=""
^DD(351.9,"B","LINE SEGMENT",5.01)=""
^DD(351.9,"B","OVERRIDDEN BY",.11)=""
^DD(351.9,"B","OVERRIDDEN?",.1)=""
^DD(351.9,"B","PATIENT ID",3.01)=""
^DD(351.9,"B","PT DOB",3.05)=""
^DD(351.9,"B","PT FIRST NAME",3.04)=""
^DD(351.9,"B","PT GENDER",3.06)=""
^DD(351.9,"B","PT LAST NAME",3.02)=""
^DD(351.9,"B","PT MIDDLE NAME",3.03)=""
^DD(351.9,"B","RECEIVED BY CLAIMSMANAGER",.15)=""
^DD(351.9,"B","REF PHYS DEGREE ID",4.03)=""
^DD(351.9,"B","REF PHYS DEPT",4.01)=""
^DD(351.9,"B","REF PHYS FIRST NAME",3.11)=""
^DD(351.9,"B","REF PHYS ID",3.08)=""
^DD(351.9,"B","REF PHYS LAST NAME",3.09)=""
^DD(351.9,"B","REF PHYS MIDDLE NAME",3.1)=""
^DD(351.9,"B","REF PHYS SPEC",4.02)=""
^DD(351.9,"B","REF PHYS TITLE",3.12)=""
^DD(351.9,"B","REF PHYS UPIN",4.04)=""
^DD(351.9,"B","SENT BY",.05)=""
^DD(351.9,"B","STATUS",.02)=""
^DD(351.9,"B","TIMES SENT TO CLAIMSMANAGER",.04)=""
^DD(351.9,"GL",0,1,.01)=""
^DD(351.9,"GL",0,2,.02)=""
^DD(351.9,"GL",0,3,.03)=""
^DD(351.9,"GL",0,4,.04)=""
^DD(351.9,"GL",0,5,.05)=""
^DD(351.9,"GL",0,6,.06)=""
^DD(351.9,"GL",0,7,.07)=""
^DD(351.9,"GL",0,8,.08)=""
^DD(351.9,"GL",0,9,.09)=""
^DD(351.9,"GL",0,10,.1)=""
^DD(351.9,"GL",0,11,.11)=""
^DD(351.9,"GL",0,12,.12)=""
^DD(351.9,"GL",0,13,.13)=""
^DD(351.9,"GL",0,14,.14)=""
^DD(351.9,"GL",0,15,.15)=""
^DD(351.9,"GL",1,0,1.01)=""
^DD(351.9,"GL",2,0,2.01)=""
^DD(351.9,"GL",3,1,3.01)=""
^DD(351.9,"GL",3,2,3.02)=""
^DD(351.9,"GL",3,3,3.03)=""
^DD(351.9,"GL",3,4,3.04)=""
^DD(351.9,"GL",3,5,3.05)=""
^DD(351.9,"GL",3,6,3.06)=""
^DD(351.9,"GL",3,7,3.07)=""
^DD(351.9,"GL",3,8,3.08)=""
^DD(351.9,"GL",3,9,3.09)=""
^DD(351.9,"GL",3,10,3.1)=""
^DD(351.9,"GL",3,11,3.11)=""
^DD(351.9,"GL",3,12,3.12)=""
^DD(351.9,"GL",4,1,4.01)=""
^DD(351.9,"GL",4,2,4.02)=""
^DD(351.9,"GL",4,3,4.03)=""
^DD(351.9,"GL",4,4,4.04)=""
^DD(351.9,"GL",5,0,5.01)=""
^DD(351.9,"IX",.01)=""
^DD(351.9,"IX",.02)=""
^DD(351.9,"IX",.08)=""
^DD(351.9,"IX",.09)=""
^DD(351.9,"IX",.12)=""
^DD(351.9,"RQ",.01)=""
^DD(351.9,"SB",351.9001,1.01)=""
^DD(351.9,"SB",351.9002,2.01)=""
^DD(351.9,"SB",351.9003,5.01)=""
^DD(351.9001,0)="ERROR CODE SUB-FIELD^^.03^3"
^DD(351.9001,0,"DT")="3010224"
^DD(351.9001,0,"IX","B",351.9001,.01)=""
^DD(351.9001,0,"NM","ERROR CODE")=""
^DD(351.9001,0,"UP")="351.9"
^DD(351.9001,.01,0)="ERROR CODE^F^^0;1^K:$L(X)>5!($L(X)<1) X"
^DD(351.9001,.01,1,0)="^.1"
^DD(351.9001,.01,1,1,0)="351.9001^B"
^DD(351.9001,.01,1,1,1)="S ^IBA(351.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(351.9001,.01,1,1,2)="K ^IBA(351.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(351.9001,.01,1,2,0)="351.9^AEC"
^DD(351.9001,.01,1,2,1)="S ^IBA(351.9,""AEC"",$E(X,1,30),DA(1),DA)="""""
^DD(351.9001,.01,1,2,2)="K ^IBA(351.9,""AEC"",$E(X,1,30),DA(1),DA)"
^DD(351.9001,.01,1,2,"%D",0)="^^1^1^3010226^"
^DD(351.9001,.01,1,2,"%D",1,0)="Cross reference for reports on Error Code field."
^DD(351.9001,.01,1,2,"DT")="3010226"
^DD(351.9001,.01,3)="Answer must be 1-5 characters in length."
^DD(351.9001,.01,21,0)="^.001^2^2^3010322^^^"
^DD(351.9001,.01,21,1,0)="The error code is the three character code that is returned by ClaimsManager"
^DD(351.9001,.01,21,2,0)="when there is an error."
^DD(351.9001,.01,"DT")="3010226"
^DD(351.9001,.02,0)="ERROR DATA^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(351.9001,.02,3)="Answer must be 1-60 characters in length."
^DD(351.9001,.02,21,0)="^.001^2^2^3010322^^"
^DD(351.9001,.02,21,1,0)="This will contain additional data about the error contained in the"
^DD(351.9001,.02,21,2,0)="zero node of the Z1 array with the error message from ClaimsManager."
^DD(351.9001,.02,"DT")="3010224"
^DD(351.9001,.03,0)="ERROR TEXT^351.9004^^1;0"
^DD(351.9001,"B","ERROR CODE",.01)=""
^DD(351.9001,"B","ERROR DATA",.02)=""
^DD(351.9001,"B","ERROR TEXT",.03)=""
^DD(351.9001,"GL",0,1,.01)=""
^DD(351.9001,"GL",0,2,.02)=""
^DD(351.9001,"GL",1,0,.03)=""
^DD(351.9001,"IX",.01)=""
^DD(351.9001,"SB",351.9004,.03)=""
^DD(351.9002,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(351.9002,0,"DT")="3001220"
^DD(351.9002,0,"NM","COMMENTS")=""
^DD(351.9002,0,"UP")="351.9"
^DD(351.9002,.01,0)="COMMENTS^W^^0;1^Q"
^DD(351.9002,.01,21,0)="^^1^1^3001220^"
^DD(351.9002,.01,21,1,0)="This field will contain the comments entered when exiting or overriding."
^DD(351.9002,.01,"DT")="3001220"
^DD(351.9002,"B","COMMENTS",.01)=""
^DD(351.9002,"GL",0,1,.01)=""
^DD(351.9003,0)="LINE SEGMENT SUB-FIELD^^3.01^35"
^DD(351.9003,0,"DT")="3010325"
^DD(351.9003,0,"IX","B",351.9003,.01)=""
^DD(351.9003,0,"NM","LINE SEGMENT")=""
^DD(351.9003,0,"UP")="351.9"
^DD(351.9003,.01,0)="LINE SEGMENT^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(351.9003,.01,1,0)="^.1"
^DD(351.9003,.01,1,1,0)="351.9003^B"
^DD(351.9003,.01,1,1,1)="S ^IBA(351.9,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(351.9003,.01,1,1,2)="K ^IBA(351.9,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(351.9003,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(351.9003,.01,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.01,21,1,0)="This is the number assigned to a specific line segment."
^DD(351.9003,.01,"DT")="3001220"
^DD(351.9003,.02,0)="EXT LINE ID^F^^0;2^K:$L(X)>25!($L(X)<1) X"
^DD(351.9003,.02,3)="Answer must be 1-25 characters in length."
^DD(351.9003,.02,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.02,21,1,0)="This is the User's transaction/line item identifier. (Required)"
^DD(351.9003,.02,"DT")="3001220"
^DD(351.9003,.03,0)="ORG GROUP ID^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,.03,3)="Answer must be 1-20 characters in length."
^DD(351.9003,.03,21,0)="^.001^2^2^3010322^^^"
^DD(351.9003,.03,21,1,0)="This is the Organization Group Identifier for the claim. (Optional)"
^DD(351.9003,.03,21,2,0)="If a null value is sent, CM will internally store a default value of 1."
^DD(351.9003,.03,"DT")="3001220"
^DD(351.9003,.04,0)="ORG ID^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,.04,3)="Answer must be 1-20 characters in length."
^DD(351.9003,.04,21,0)="^.001^2^2^3010322^^^"
^DD(351.9003,.04,21,1,0)="This is the Organization identifier for the claim. (Optional)"
^DD(351.9003,.04,21,2,0)="If the value is null, ClaimsManager will store a default value of 1."
^DD(351.9003,.04,"DT")="3001220"
^DD(351.9003,.05,0)="LINE STATUS^S^A:ACTIVE;P:PROFILED;D:DELETED;^0;5^Q"
^DD(351.9003,.05,21,0)="^.001^5^5^3010322^^^"
^DD(351.9003,.05,21,1,0)="Default values are 'A' for Active, 'P' for Profiled and 'D' for Deleted."
^DD(351.9003,.05,21,2,0)="(Required)"
^DD(351.9003,.05,21,3,0)="The user can supply other values at setup within ClaimsManager."
^DD(351.9003,.05,21,4,0)="PLEASE NOTE: If other codes are added within ClaimsManager, they must also  "
^DD(351.9003,.05,21,5,0)="be added to this field."
^DD(351.9003,.05,"DT")="3001220"
^DD(351.9003,.06,0)="BEG DATE OF SERVICE^F^^0;6^K:$L(X)>16!($L(X)<1) X"
^DD(351.9003,.06,3)="Answer must be 1-16 characters in length."
^DD(351.9003,.06,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.06,21,1,0)="This is the Beginning Date of Service in (YYYYMMDD) format. (Required)"
^DD(351.9003,.06,"DT")="3001220"
^DD(351.9003,.07,0)="END DATE OF SERVICE^F^^0;7^K:$L(X)>16!($L(X)<1) X"
^DD(351.9003,.07,3)="Answer must be 1-16 characters in length."
^DD(351.9003,.07,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.07,21,1,0)="This is the End Date of Service in (YYYYMMDD) format. (Required)"
^DD(351.9003,.07,"DT")="3001220"
^DD(351.9003,.08,0)="PLACE OF SERVICE^F^^0;8^K:$L(X)>3!($L(X)<1) X"
^DD(351.9003,.08,3)="Answer must be 1-3 characters in length."
^DD(351.9003,.08,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.08,21,1,0)="This is the identifier for Place of Service. (Required)"
^DD(351.9003,.08,"DT")="3001220"
^DD(351.9003,.09,0)="SUBMITTED PROCEDURE CODE^F^^0;9^K:$L(X)>25!($L(X)<1) X"
^DD(351.9003,.09,3)="Answer must be 1-25 characters in length."
^DD(351.9003,.09,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.09,21,1,0)="This field contains the Submitted Procedure Code. (Required)"
^DD(351.9003,.09,"DT")="3001220"
^DD(351.9003,.1,0)="ADJUSTED PROCEDURE CODE^F^^0;10^K:$L(X)>25!($L(X)<1) X"
^DD(351.9003,.1,3)="Answer must be 1-25 characters in length."
^DD(351.9003,.1,21,0)="^.001^1^1^3001220^^^"
^DD(351.9003,.1,21,1,0)="This field contains the Adjusted Procedure Code. (Optional)"
^DD(351.9003,.1,"DT")="3001220"
^DD(351.9003,.11,0)="SUBMITTED AMOUNT^F^^0;11^K:$L(X)>15!($L(X)<1) X"
^DD(351.9003,.11,3)="Answer must be 1-15 characters in length."
^DD(351.9003,.11,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.11,21,1,0)="This is the Submitted Amount. (Optional)"
^DD(351.9003,.11,"DT")="3001220"
^DD(351.9003,.12,0)="PRE AUTHORIZATION CODE^F^^0;12^K:$L(X)>15!($L(X)<1) X"
^DD(351.9003,.12,3)="Answer must be 1-15 characters in length."
^DD(351.9003,.12,21,0)="^.001^1^1^3001220^^"
^DD(351.9003,.12,21,1,0)="This is the Pre-Authorization Code. (Optioinal)"
^DD(351.9003,.12,"DT")="3001220"
^DD(351.9003,.13,0)="SERVICE PROVIDER ID^F^^0;13^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,.13,3)="Answer must be 1-20 characters in length."
^DD(351.9003,.13,21,0)="^.001^5^5^3010322^^^^"
^DD(351.9003,.13,21,1,0)="This is the Servicing Provider ID. (Optional)"
^DD(351.9003,.13,21,2,0)=" "
^DD(351.9003,.13,21,3,0)="Identifies a provider reccord stored in the database. If ClaimsManager finds"
^DD(351.9003,.13,21,4,0)="no match, it adds this ID to the PROVIDER table.  If an ID is supplied,"
^DD(351.9003,.13,21,5,0)="a DEPARTMENT must also be supplied."
^DD(351.9003,.13,"DT")="3001220"
^DD(351.9003,1.01,0)="SRVC PRV LAST NAME^F^^1;1^K:$L(X)>40!($L(X)<1) X"
^DD(351.9003,1.01,3)="Answer must be 1-40 characters in length."
^DD(351.9003,1.01,21,0)="^^1^1^3001220^"
^DD(351.9003,1.01,21,1,0)="This is the Service Providers Last Name. (Optional)"
^DD(351.9003,1.01,"DT")="3001220"
^DD(351.9003,1.02,0)="SRVC PRV MIDDLE NAME^F^^1;2^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,1.02,3)="Answer must be 1-20 characters in length."
^DD(351.9003,1.02,21,0)="^^1^1^3001220^"
^DD(351.9003,1.02,21,1,0)="This is the Service Providers Middle Name. (Optional)"
^DD(351.9003,1.02,"DT")="3001220"
^DD(351.9003,1.03,0)="SRVC PRV FIRST NAME^F^^1;3^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,1.03,3)="Answer must be 1-20 characters in length."
^DD(351.9003,1.03,21,0)="^^1^1^3001220^"
^DD(351.9003,1.03,21,1,0)="This is the Service Providers First Name. (Optional)"
^DD(351.9003,1.03,"DT")="3001220"
^DD(351.9003,1.04,0)="SRVC PRV TITLE^F^^1;4^K:$L(X)>5!($L(X)<1) X"
^DD(351.9003,1.04,3)="Answer must be 1-5 characters in length."
^DD(351.9003,1.04,21,0)="^^1^1^3001220^"
^DD(351.9003,1.04,21,1,0)="This is the Service Providers Title. (Optional)"
^DD(351.9003,1.04,"DT")="3001220"
^DD(351.9003,1.05,0)="SRVC PRV DEPT^F^^1;5^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,1.05,3)="Answer must be 1-20 characters in length."
^DD(351.9003,1.05,21,0)="^.001^4^4^3010322^^^"
^DD(351.9003,1.05,21,1,0)="This is the Servicing Providers Department. (Optional)"
^DD(351.9003,1.05,21,2,0)=" "
^DD(351.9003,1.05,21,3,0)="Identifies a department record stored in the database.  If CM finds"
^DD(351.9003,1.05,21,4,0)="no match, it 'could' add this department ID to the Reference table."
^DD(351.9003,1.05,"DT")="3001220"
^DD(351.9003,1.06,0)="SRVC PRV SPEC^F^^1;6^K:$L(X)>10!($L(X)<1) X"
^DD(351.9003,1.06,3)="Answer must be 1-10 characters in length."
^DD(351.9003,1.06,21,0)="^.001^6^6^3010322^^"
^DD(351.9003,1.06,21,1,0)="This is the Servicing Provider Specialty. (Optional)"
^DD(351.9003,1.06,21,2,0)=" "
^DD(351.9003,1.06,21,3,0)="Identifies a specialty record stored in the database. If CM finds"
^DD(351.9003,1.06,21,4,0)="no match, it 'could' add this specialty to the Reference table."
^DD(351.9003,1.06,21,5,0)=" "
^DD(351.9003,1.06,21,6,0)="If this ID is supplied, a Department must also be present."
^DD(351.9003,1.06,"DT")="3001220"
^DD(351.9003,1.07,0)="SRVC PRV DEGREE ID^F^^1;7^K:$L(X)>10!($L(X)<1) X"
^DD(351.9003,1.07,3)="Answer must be 1-10 characters in length."
^DD(351.9003,1.07,21,0)="^^1^1^3001220^"
^DD(351.9003,1.07,21,1,0)="This is the Servicing Providers Degree ID. (Optional)"
^DD(351.9003,1.07,"DT")="3001220"
^DD(351.9003,1.08,0)="SRVC PRV UPIN^F^^1;8^K:$L(X)>10!($L(X)<1) X"
^DD(351.9003,1.08,3)="Answer must be 1-10 characters in length."
^DD(351.9003,1.08,21,0)="^^1^1^3001220^"
^DD(351.9003,1.08,21,1,0)="This is the Servicing Provider UPIN code. (Optional)"
^DD(351.9003,1.08,"DT")="3001220"
^DD(351.9003,1.09,0)="BILL PRV ID^F^^1;9^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,1.09,3)="Answer must be 1-20 characters in length."
^DD(351.9003,1.09,21,0)="^.001^10^10^3010322^^"
^DD(351.9003,1.09,21,1,0)="This is the Billing Provider Identifier. (Required)"
^DD(351.9003,1.09,21,2,0)=" "
^DD(351.9003,1.09,21,3,0)="Identifies a provider record stored in the database.  If CM finds"
^DD(351.9003,1.09,21,4,0)="no match, it adds this ID to the PROVIDER table."
^DD(351.9003,1.09,21,5,0)=" "
^DD(351.9003,1.09,21,6,0)="If no ID is supplied, CM stored the default provider. DFLT is"
^DD(351.9003,1.09,21,7,0)="supplied but the User can change this string at setup in CM. Only"
^DD(351.9003,1.09,21,8,0)="one string is used for all physicians."
^DD(351.9003,1.09,21,9,0)=" "
^DD(351.9003,1.09,21,10,0)="If an ID is supplied, a Department must also be present."
^DD(351.9003,1.09,"DT")="3001220"
^DD(351.9003,2.01,0)="BILL PRV LAST NAME^F^^2;1^K:$L(X)>40!($L(X)<1) X"
^DD(351.9003,2.01,3)="Answer must be 1-40 characters in length."
^DD(351.9003,2.01,21,0)="^^1^1^3001220^"
^DD(351.9003,2.01,21,1,0)="This is the Billing Provider Last name. (Optional)"
^DD(351.9003,2.01,"DT")="3001220"
^DD(351.9003,2.02,0)="BILL PRV MIDDLE NAME^F^^2;2^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,2.02,3)="Answer must be 1-20 characters in length."
^DD(351.9003,2.02,21,0)="^^1^1^3001220^"
^DD(351.9003,2.02,21,1,0)="This is the Billing Provider Middle name. (Optional)"
^DD(351.9003,2.02,"DT")="3001220"
^DD(351.9003,2.03,0)="BILL PRV FIRST NAME^F^^2;3^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,2.03,3)="Answer must be 1-20 characters in length."
^DD(351.9003,2.03,21,0)="^^1^1^3001220^"
^DD(351.9003,2.03,21,1,0)="This is the Billing Provider First name. (Optional)"
^DD(351.9003,2.03,"DT")="3001220"
^DD(351.9003,2.04,0)="BILL PRV TITLE^F^^2;4^K:$L(X)>5!($L(X)<1) X"
^DD(351.9003,2.04,3)="Answer must be 1-5 characters in length."
^DD(351.9003,2.04,21,0)="^^1^1^3001220^"
^DD(351.9003,2.04,21,1,0)="This is the Billing Provider Title. (Optional)"
^DD(351.9003,2.04,"DT")="3001220"
^DD(351.9003,2.05,0)="BILL PRV DEPT^F^^2;5^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,2.05,3)="Answer must be 1-20 characters in length."
^DD(351.9003,2.05,21,0)="^.001^4^4^3010322^^"
^DD(351.9003,2.05,21,1,0)="This is the Billing Provider Department. (Required)"
^DD(351.9003,2.05,21,2,0)=" "
^DD(351.9003,2.05,21,3,0)="Identifies a Department record stored in the database.  If CM finds"
^DD(351.9003,2.05,21,4,0)="no match, it 'could' add this Department ID to the Reference table."
^DD(351.9003,2.05,"DT")="3001220"
^DD(351.9003,2.06,0)="BILL PRV SPEC^F^^2;6^K:$L(X)>10!($L(X)<1) X"
^DD(351.9003,2.06,3)="Answer must be 1-10 characters in length."
^DD(351.9003,2.06,21,0)="^.001^4^4^3010322^^"
^DD(351.9003,2.06,21,1,0)="This is the Billing Provider Specialty. (Required)"
^DD(351.9003,2.06,21,2,0)=" "
^DD(351.9003,2.06,21,3,0)="Identifies a Specialty record stored in the database.  If CM finds"
^DD(351.9003,2.06,21,4,0)="no match, it 'could' add this specialty to the Reference table."
^DD(351.9003,2.06,"DT")="3001220"
^DD(351.9003,2.07,0)="BILL PRV DEGREE ID^F^^2;7^K:$L(X)>10!($L(X)<1) X"
^DD(351.9003,2.07,3)="Answer must be 1-10 characters in length."
^DD(351.9003,2.07,21,0)="^^1^1^3001220^"
^DD(351.9003,2.07,21,1,0)="This is the Billing Provider Degree ID. (Optional)"
^DD(351.9003,2.07,"DT")="3001220"
^DD(351.9003,2.08,0)="BILL PRV UPIN^F^^2;8^K:$L(X)>10!($L(X)<1) X"
^DD(351.9003,2.08,3)="Answer must be 1-10 characters in length."
^DD(351.9003,2.08,21,0)="^^1^1^3001220^"
^DD(351.9003,2.08,21,1,0)="This is the Billing Provider UPIN code. (Optional)"
^DD(351.9003,2.08,"DT")="3001220"
^DD(351.9003,2.09,0)="PRIMARY PAYER ID^F^^2;9^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,2.09,3)="Answer must be 1-20 characters in length."
^DD(351.9003,2.09,21,0)="^^1^1^3001220^"
^DD(351.9003,2.09,21,1,0)="This is the Primary Payer or FSC identifier. (Required)"
^DD(351.9003,2.09,"DT")="3001220"
^DD(351.9003,2.1,0)="SECONDARY PAYER ID^F^^2;10^K:$L(X)>20!($L(X)<1) X"
^DD(351.9003,2.1,3)="Answer must be 1-20 characters in length."
^DD(351.9003,2.1,21,0)="^^1^1^3001220^"
^DD(351.9003,2.1,21,1,0)="This is the Secondary Payer or FSC identifier. (Optional)"
^DD(351.9003,2.1,"DT")="3001220"
^DD(351.9003,2.11,0)="TYPE OF SERVICE^F^^2;11^K:$L(X)>3!($L(X)<1) X"
^DD(351.9003,2.11,3)="Answer must be 1-3 characters in length."
^DD(351.9003,2.11,21,0)="^^1^1^3001220^"
^DD(351.9003,2.11,21,1,0)="This is the Type of Service. (Optional)"
^DD(351.9003,2.11,"DT")="3001220"
^DD(351.9003,2.12,0)="UNITS^F^^2;12^K:$L(X)>5!($L(X)<1) X"
^DD(351.9003,2.12,3)="Answer must be 1-5 characters in length."
^DD(351.9003,2.12,21,0)="^^1^1^3001220^"
^DD(351.9003,2.12,21,1,0)="This is the number of units for this line item. (Required)"
^DD(351.9003,2.12,"DT")="3001220"
^DD(351.9003,3.01,0)="MODIFIERS^F^^3;1^K:$L(X)>60!($L(X)<1) X"
^DD(351.9003,3.01,3)="Answer must be 1-60 characters in length."
^DD(351.9003,3.01,21,0)="^^2^2^3010325^"
^DD(351.9003,3.01,21,1,0)="This is a storage location for the comma delimited string of"
^DD(351.9003,3.01,21,2,0)="CPT Modifiers for the associated line segment."
^DD(351.9003,3.01,"DT")="3010325"
^DD(351.9003,"B","ADJUSTED PROCEDURE CODE",.1)=""
^DD(351.9003,"B","BEG DATE OF SERVICE",.06)=""
^DD(351.9003,"B","BILL PRV DEGREE ID",2.07)=""
^DD(351.9003,"B","BILL PRV DEPT",2.05)=""
^DD(351.9003,"B","BILL PRV FIRST NAME",2.03)=""
^DD(351.9003,"B","BILL PRV ID",1.09)=""
^DD(351.9003,"B","BILL PRV LAST NAME",2.01)=""
^DD(351.9003,"B","BILL PRV MIDDLE NAME",2.02)=""
^DD(351.9003,"B","BILL PRV SPEC",2.06)=""
^DD(351.9003,"B","BILL PRV TITLE",2.04)=""
^DD(351.9003,"B","BILL PRV UPIN",2.08)=""
^DD(351.9003,"B","END DATE OF SERVICE",.07)=""
^DD(351.9003,"B","EXT LINE ID",.02)=""
^DD(351.9003,"B","LINE SEGMENT",.01)=""
^DD(351.9003,"B","LINE STATUS",.05)=""
^DD(351.9003,"B","MODIFIERS",3.01)=""
^DD(351.9003,"B","ORG GROUP ID",.03)=""
^DD(351.9003,"B","ORG ID",.04)=""
^DD(351.9003,"B","PLACE OF SERVICE",.08)=""
^DD(351.9003,"B","PRE AUTHORIZATION CODE",.12)=""
^DD(351.9003,"B","PRIMARY PAYER ID",2.09)=""
^DD(351.9003,"B","SECONDARY PAYER ID",2.1)=""
^DD(351.9003,"B","SERVICE PROVIDER ID",.13)=""
^DD(351.9003,"B","SRVC PRV DEGREE ID",1.07)=""
^DD(351.9003,"B","SRVC PRV DEPT",1.05)=""
^DD(351.9003,"B","SRVC PRV FIRST NAME",1.03)=""
^DD(351.9003,"B","SRVC PRV LAST NAME",1.01)=""
^DD(351.9003,"B","SRVC PRV MIDDLE NAME",1.02)=""
^DD(351.9003,"B","SRVC PRV SPEC",1.06)=""
^DD(351.9003,"B","SRVC PRV TITLE",1.04)=""
^DD(351.9003,"B","SRVC PRV UPIN",1.08)=""
^DD(351.9003,"B","SUBMITTED AMOUNT",.11)=""
^DD(351.9003,"B","SUBMITTED PROCEDURE CODE",.09)=""
^DD(351.9003,"B","TYPE OF SERVICE",2.11)=""
^DD(351.9003,"B","UNITS",2.12)=""
^DD(351.9003,"GL",0,1,.01)=""
^DD(351.9003,"GL",0,2,.02)=""
^DD(351.9003,"GL",0,3,.03)=""
^DD(351.9003,"GL",0,4,.04)=""
^DD(351.9003,"GL",0,5,.05)=""
^DD(351.9003,"GL",0,6,.06)=""
^DD(351.9003,"GL",0,7,.07)=""
^DD(351.9003,"GL",0,8,.08)=""
^DD(351.9003,"GL",0,9,.09)=""
^DD(351.9003,"GL",0,10,.1)=""
^DD(351.9003,"GL",0,11,.11)=""
^DD(351.9003,"GL",0,12,.12)=""
^DD(351.9003,"GL",0,13,.13)=""
^DD(351.9003,"GL",1,1,1.01)=""
^DD(351.9003,"GL",1,2,1.02)=""
^DD(351.9003,"GL",1,3,1.03)=""
^DD(351.9003,"GL",1,4,1.04)=""
^DD(351.9003,"GL",1,5,1.05)=""
^DD(351.9003,"GL",1,6,1.06)=""
^DD(351.9003,"GL",1,7,1.07)=""
^DD(351.9003,"GL",1,8,1.08)=""
^DD(351.9003,"GL",1,9,1.09)=""
^DD(351.9003,"GL",2,1,2.01)=""
^DD(351.9003,"GL",2,2,2.02)=""
^DD(351.9003,"GL",2,3,2.03)=""
^DD(351.9003,"GL",2,4,2.04)=""
^DD(351.9003,"GL",2,5,2.05)=""
^DD(351.9003,"GL",2,6,2.06)=""
^DD(351.9003,"GL",2,7,2.07)=""
^DD(351.9003,"GL",2,8,2.08)=""
^DD(351.9003,"GL",2,9,2.09)=""
^DD(351.9003,"GL",2,10,2.1)=""
^DD(351.9003,"GL",2,11,2.11)=""
^DD(351.9003,"GL",2,12,2.12)=""
^DD(351.9003,"GL",3,1,3.01)=""
^DD(351.9003,"IX",.01)=""
^DD(351.9004,0)="ERROR TEXT SUB-FIELD^^.01^1"
^DD(351.9004,0,"DT")="3010224"
^DD(351.9004,0,"NM","ERROR TEXT")=""
^DD(351.9004,0,"UP")="351.9001"
^DD(351.9004,.01,0)="ERROR TEXT^W^^0;1^Q"
^DD(351.9004,.01,21,0)="^.001^2^2^3010322^^^"
^DD(351.9004,.01,21,1,0)="This word processing field contains the text of the error message returned"
^DD(351.9004,.01,21,2,0)="by ClaimsManager."
^DD(351.9004,.01,"DT")="3010224"
^DD(351.9004,"B","ERROR TEXT",.01)=""
^DD(351.9004,"GL",0,1,.01)=""
^DD(351.91,0)="FIELD^^.02^2"
^DD(351.91,0,"DDA")="N"
^DD(351.91,0,"DT")="3010330"
^DD(351.91,0,"IX","B",351.91,.01)=""
^DD(351.91,0,"NM","CLAIMSMANAGER STATUS")=""
^DD(351.91,0,"PT",351.9,.02)=""
^DD(351.91,0,"VR")="2.0"
^DD(351.91,0,"VRPK")="IB"
^DD(351.91,.01,0)="STATUS^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(351.91,.01,1,0)="^.1"
^DD(351.91,.01,1,1,0)="351.91^B"
^DD(351.91,.01,1,1,1)="S ^IBA(351.91,""B"",$E(X,1,30),DA)="""""
^DD(351.91,.01,1,1,2)="K ^IBA(351.91,""B"",$E(X,1,30),DA)"
^DD(351.91,.01,3)="Answer must be 3-45 characters in length."
^DD(351.91,.01,21,0)="^.001^2^2^3010525^^^"
^DD(351.91,.01,21,1,0)="This is the name of the STATUS for the ClaimsManager bills"
^DD(351.91,.01,21,2,0)="that will be pointed to by the CLAIMSMANAGER file (#351.9)."
^DD(351.91,.01,"DT")="3001220"
^DD(351.91,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(351.91,.02,3)="Answer must be 1-60 characters in length."
^DD(351.91,.02,21,0)="^^1^1^3010330^"
^DD(351.91,.02,21,1,0)="This is an abbreviation of the status for reports."
^DD(351.91,.02,"DT")="3010330"
^DD(351.91,"B","ABBREVIATION",.02)=""
^DD(351.91,"B","STATUS",.01)=""
^DD(351.91,"GL",0,1,.01)=""
^DD(351.91,"GL",0,2,.02)=""
^DD(351.91,"IX",.01)=""
^DD(351.91,"RQ",.01)=""
^DD(352.1,0)="FIELD^^.06^6"
^DD(352.1,0,"DDA")="N"
^DD(352.1,0,"DT")="2911022"
^DD(352.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SD(409.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(409.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(352.1,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(352.1,0,"IX","AIVDT1",352.1,.02)=""
^DD(352.1,0,"IX","AIVDT2",352.1,.03)=""
^DD(352.1,0,"IX","B",352.1,.01)=""
^DD(352.1,0,"IX","C",352.1,.02)=""
^DD(352.1,0,"IX","D",352.1,.03)=""
^DD(352.1,0,"NM","BILLABLE APPOINTMENT TYPE")=""
^DD(352.1,0,"VR")="2.0"
^DD(352.1,.01,0)="NUMBER^RNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(352.1,.01,1,0)="^.1^^0"
^DD(352.1,.01,1,1,0)="352.1^B"
^DD(352.1,.01,1,1,1)="S ^IBE(352.1,""B"",$E(X,1,30),DA)="""""
^DD(352.1,.01,1,1,2)="K ^IBE(352.1,""B"",$E(X,1,30),DA)"
^DD(352.1,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(352.1,.01,21,0)="^^1^1^2920406^^^"
^DD(352.1,.01,21,1,0)="This is a unique number for each entry."
^DD(352.1,.01,"DT")="2911021"
^DD(352.1,.02,0)="APPOINTMENT TYPE^RP409.1'^SD(409.1,^0;2^Q"
^DD(352.1,.02,1,0)="^.1"
^DD(352.1,.02,1,1,0)="352.1^AIVDT1^MUMPS"
^DD(352.1,.02,1,1,1)="I $P(^IBE(352.1,DA,0),U,3) S ^IBE(352.1,""AIVDT"",X,-$P(^(0),U,3),DA)="""""
^DD(352.1,.02,1,1,2)="I $P(^IBE(352.1,DA,0),U,3) K ^IBE(352.1,""AIVDT"",X,-$P(^(0),U,3),DA)"
^DD(352.1,.02,1,1,"%D",0)="^^1^1^2911022^"
^DD(352.1,.02,1,1,"%D",1,0)="Used to find most recent entry for appointment type."
^DD(352.1,.02,1,1,"DT")="2911022"
^DD(352.1,.02,1,2,0)="352.1^C"
^DD(352.1,.02,1,2,1)="S ^IBE(352.1,""C"",$E(X,1,30),DA)="""""
^DD(352.1,.02,1,2,2)="K ^IBE(352.1,""C"",$E(X,1,30),DA)"
^DD(352.1,.02,1,2,"DT")="2911022"
^DD(352.1,.02,21,0)="^^1^1^2920406^^"
^DD(352.1,.02,21,1,0)="This is the MAS Appointment type."
^DD(352.1,.02,"DT")="2911022"
^DD(352.1,.03,0)="EFFECTIVE DATE^RDI^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(352.1,.03,1,0)="^.1"
^DD(352.1,.03,1,1,0)="352.1^AIVDT2^MUMPS"
^DD(352.1,.03,1,1,1)="I $P(^IBE(352.1,DA,0),U,2) S ^IBE(352.1,""AIVDT"",$P(^(0),U,2),-X,DA)="""""
^DD(352.1,.03,1,1,2)="I $P(^IBE(352.1,DA,0),U,2) K ^IBE(352.1,""AIVDT"",$P(^(0),U,2),-X,DA)"
^DD(352.1,.03,1,1,"%D",0)="^^1^1^2911022^"
^DD(352.1,.03,1,1,"%D",1,0)="Used to find most recent entry for an appointment type."
^DD(352.1,.03,1,1,"DT")="2911022"
^DD(352.1,.03,1,2,0)="352.1^D"
^DD(352.1,.03,1,2,1)="S ^IBE(352.1,""D"",$E(X,1,30),DA)="""""
^DD(352.1,.03,1,2,2)="K ^IBE(352.1,""D"",$E(X,1,30),DA)"
^DD(352.1,.03,1,2,"DT")="2911022"
^DD(352.1,.03,21,0)="^^7^7^2920406^^^"
^DD(352.1,.03,21,1,0)="Every Appointment type has certain billing characteristics that may"
^DD(352.1,.03,21,2,0)="change over time.  For example, an appointment type may not be billable"
^DD(352.1,.03,21,3,0)="for Category C Means Test billing one year but may the next depending"
^DD(352.1,.03,21,4,0)="on legislation."
^DD(352.1,.03,21,5,0)=" "
^DD(352.1,.03,21,6,0)="It is only necessary to add a new effective date for an appointment type"
^DD(352.1,.03,21,7,0)="if the characteristics need to be time sensitive."
^DD(352.1,.03,"DT")="2911022"
^DD(352.1,.04,0)="IGNORE MEANS TEST^RS^1:YES;0:NO;^0;4^Q"
^DD(352.1,.04,21,0)="^^2^2^2920415^^^"
^DD(352.1,.04,21,1,0)="Set this field to 'YES' if this appointment type should NOT be billed"
^DD(352.1,.04,21,2,0)="for Category C means test billing."
^DD(352.1,.04,"DT")="2911021"
^DD(352.1,.05,0)="PRINT ON INSURANCE REPORT^RS^1:YES;0:NO;^0;5^Q"
^DD(352.1,.05,21,0)="^^2^2^2920207^"
^DD(352.1,.05,21,1,0)="Set this field to 'YES' if you would like this appointment type to show"
^DD(352.1,.05,21,2,0)="up on the list of Veterans with insurance and outpatient visits."
^DD(352.1,.05,"DT")="2911021"
^DD(352.1,.06,0)="DISPLAY ON INPUT SCREEN^RS^1:YES;0:NO;^0;6^Q"
^DD(352.1,.06,21,0)="^^3^3^2940213^^^"
^DD(352.1,.06,21,1,0)="Set this field to 'YES' if you would like this appointment type to"
^DD(352.1,.06,21,2,0)="be displayed as a potential billable visit on the outpatient visit"
^DD(352.1,.06,21,3,0)="screen when creating a third party bill."
^DD(352.1,.06,"DT")="2911021"
^DD(352.1,"B","APPOINTMENT TYPE",.02)=""
^DD(352.1,"B","DISPLAY ON INPUT SCREEN",.06)=""
^DD(352.1,"B","EFFECTIVE DATE",.03)=""
^DD(352.1,"B","IGNORE MEANS TEST",.04)=""
^DD(352.1,"B","NUMBER",.01)=""
^DD(352.1,"B","PRINT ON INSURANCE REPORT",.05)=""
^DD(352.1,"GL",0,1,.01)=""
^DD(352.1,"GL",0,2,.02)=""
^DD(352.1,"GL",0,3,.03)=""
^DD(352.1,"GL",0,4,.04)=""
^DD(352.1,"GL",0,5,.05)=""
^DD(352.1,"GL",0,6,.06)=""
^DD(352.1,"IX",.01)=""
^DD(352.1,"IX",.02)=""
^DD(352.1,"IX",.03)=""
^DD(352.1,"RQ",.01)=""
^DD(352.1,"RQ",.02)=""
^DD(352.1,"RQ",.03)=""
^DD(352.1,"RQ",.04)=""
^DD(352.1,"RQ",.05)=""
^DD(352.1,"RQ",.06)=""
^DD(352.2,0)="FIELD^^.03^3"
^DD(352.2,0,"DDA")="N"
^DD(352.2,0,"DT")="2930720"
^DD(352.2,0,"IX","AIVDT",352.2,.01)=""
^DD(352.2,0,"IX","AIVDT1",352.2,.02)=""
^DD(352.2,0,"IX","B",352.2,.01)=""
^DD(352.2,0,"NM","NON-BILLABLE DISPOSITIONS")=""
^DD(352.2,0,"VR")="2.0"
^DD(352.2,.01,0)="DISPOSITION^RP37'^DIC(37,^0;1^Q"
^DD(352.2,.01,1,0)="^.1"
^DD(352.2,.01,1,1,0)="352.2^B"
^DD(352.2,.01,1,1,1)="S ^IBE(352.2,""B"",$E(X,1,30),DA)="""""
^DD(352.2,.01,1,1,2)="K ^IBE(352.2,""B"",$E(X,1,30),DA)"
^DD(352.2,.01,1,2,0)="352.2^AIVDT^MUMPS"
^DD(352.2,.01,1,2,1)="I $D(^IBE(352.2,DA,0)),$P(^(0),""^"",2) S ^IBE(352.2,""AIVDT"",X,-$P(^(0),""^"",2),DA)="""""
^DD(352.2,.01,1,2,2)="I $D(^IBE(352.2,DA,0)),$P(^(0),""^"",2) K ^IBE(352.2,""AIVDT"",X,-$P(^(0),""^"",2),DA)"
^DD(352.2,.01,1,2,"%D",0)="^^3^3^2930720^^"
^DD(352.2,.01,1,2,"%D",1,0)="This cross-reference on the DISPOSITION (#.01) field and the EFFECTIVE"
^DD(352.2,.01,1,2,"%D",2,0)="DATE (#.02) field is used to locate the appropriate record for a"
^DD(352.2,.01,1,2,"%D",3,0)="disposition on a specific effective date."
^DD(352.2,.01,1,2,"DT")="2930720"
^DD(352.2,.01,3)="Please enter a disposition."
^DD(352.2,.01,21,0)="^^3^3^2930805^^"
^DD(352.2,.01,21,1,0)="This field is a pointer to the DISPOSITION (#37) file, and identifies"
^DD(352.2,.01,21,2,0)="the disposition which is being established as either billable or"
^DD(352.2,.01,21,3,0)="non-billable for Means Test billing."
^DD(352.2,.01,"DT")="2930720"
^DD(352.2,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(352.2,.02,1,0)="^.1"
^DD(352.2,.02,1,1,0)="352.2^AIVDT1^MUMPS"
^DD(352.2,.02,1,1,1)="I $D(^IBE(352.2,DA,0)),+^(0) S ^IBE(352.2,""AIVDT"",+^(0),-X,DA)="""""
^DD(352.2,.02,1,1,2)="I $D(^IBE(352.2,DA,0)),+^(0) K ^IBE(352.2,""AIVDT"",+^(0),-X,DA)"
^DD(352.2,.02,1,1,"%D",0)="^^3^3^2930720^"
^DD(352.2,.02,1,1,"%D",1,0)="This cross-reference on the DISPOSITION (#.01) field and the EFFECTIVE"
^DD(352.2,.02,1,1,"%D",2,0)="DATE (#.02) field is used to locate the appropriate record for a"
^DD(352.2,.02,1,1,"%D",3,0)="disposition on a specific effective date."
^DD(352.2,.02,1,1,"DT")="2930720"
^DD(352.2,.02,3)="Please enter an effective date."
^DD(352.2,.02,21,0)="^^2^2^2930805^^"
^DD(352.2,.02,21,1,0)="This is the date on which Means Test billing for this disposition"
^DD(352.2,.02,21,2,0)="should be activated or ignored."
^DD(352.2,.02,"DT")="2930720"
^DD(352.2,.03,0)="IGNORE MEANS TEST BILLING?^RS^1:YES;0:NO;^0;3^Q"
^DD(352.2,.03,3)="Please enter 'YES' or 'NO.'"
^DD(352.2,.03,21,0)="^^5^5^2930805^^^^"
^DD(352.2,.03,21,1,0)="This field is used to determine whether Means Test billing should"
^DD(352.2,.03,21,2,0)="be activated or ignored, as of the EFFECTIVE DATE (field #.02)."
^DD(352.2,.03,21,3,0)=" "
^DD(352.2,.03,21,4,0)="Please note that you only need an entry in this file for a disposition"
^DD(352.2,.03,21,5,0)="for which you would like Means Test billing to be IGNORED."
^DD(352.2,.03,"DT")="2930805"
^DD(352.2,"B","DISPOSITION",.01)=""
^DD(352.2,"B","EFFECTIVE DATE",.02)=""
^DD(352.2,"B","IGNORE MEANS TEST BILLING?",.03)=""
^DD(352.2,"GL",0,1,.01)=""
^DD(352.2,"GL",0,2,.02)=""
^DD(352.2,"GL",0,3,.03)=""
^DD(352.2,"IX",.01)=""
^DD(352.2,"IX",.02)=""
^DD(352.2,"RQ",.01)=""
^DD(352.2,"RQ",.02)=""
^DD(352.2,"RQ",.03)=""
^DD(352.3,0)="FIELD^^.06^6"
^DD(352.3,0,"DDA")="N"
^DD(352.3,0,"DT")="2960130"
^DD(352.3,0,"IX","AIVDT",352.3,.01)=""
^DD(352.3,0,"IX","AIVDT1",352.3,.02)=""
^DD(352.3,0,"IX","AIVDT2",352.3,.04)=""
^DD(352.3,0,"IX","AIVDTT",352.3,.01)=""
^DD(352.3,0,"IX","AIVDTT1",352.3,.02)=""
^DD(352.3,0,"IX","AIVDTT2",352.3,.04)=""
^DD(352.3,0,"IX","B",352.3,.01)=""
^DD(352.3,0,"NM","NON-BILLABLE CLINIC STOP CODES")=""
^DD(352.3,0,"VR")="2.0"
^DD(352.3,0,"VRPK")="IB"
^DD(352.3,.01,0)="CLINIC STOP CODE^RP40.7'^DIC(40.7,^0;1^Q"
^DD(352.3,.01,1,0)="^.1"
^DD(352.3,.01,1,1,0)="352.3^B"
^DD(352.3,.01,1,1,1)="S ^IBE(352.3,""B"",$E(X,1,30),DA)="""""
^DD(352.3,.01,1,1,2)="K ^IBE(352.3,""B"",$E(X,1,30),DA)"
^DD(352.3,.01,1,2,0)="352.3^AIVDT^MUMPS"
^DD(352.3,.01,1,2,1)="I $P($G(^IBE(352.3,DA,0)),""^"",4)=1,$P(^(0),""^"",2) S ^IBE(352.3,""AIVDT"",X,-$P(^(0),""^"",2),DA)="""""
^DD(352.3,.01,1,2,2)="I $P($G(^IBE(352.3,DA,0)),""^"",4)=1,$P(^(0),""^"",2) K ^IBE(352.3,""AIVDT"",X,-$P(^(0),""^"",2),DA)"
^DD(352.3,.01,1,2,"%D",0)="^^4^4^2960130^^^^"
^DD(352.3,.01,1,2,"%D",1,0)="This cross-reference on the CLINIC STOP CODE (#.01) field and the"
^DD(352.3,.01,1,2,"%D",2,0)="EFFECTIVE DATE (#.02) field is used to locate the appropriate record"
^DD(352.3,.01,1,2,"%D",3,0)="for a clinic stop code on a specific effective date.  Entries created"
^DD(352.3,.01,1,2,"%D",4,0)="only for Means Test billing."
^DD(352.3,.01,1,2,"DT")="2960130"
^DD(352.3,.01,1,3,0)="352.3^AIVDTT^MUMPS"
^DD(352.3,.01,1,3,1)="I $P($G(^IBE(352.3,DA,0)),""^"",4)>1,$P(^(0),""^"",2) S ^IBE(352.3,""AIVDTT""_$P(^(0),""^"",4),X,-$P(^(0),""^"",2),DA)="""""
^DD(352.3,.01,1,3,2)="I $P($G(^IBE(352.3,DA,0)),""^"",4)>1,$P(^(0),""^"",2) K ^IBE(352.3,""AIVDTT""_$P(^(0),""^"",4),X,-$P(^(0),""^"",2),DA)"
^DD(352.3,.01,1,3,"%D",0)="^^2^2^2960130^"
^DD(352.3,.01,1,3,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.3,.01,1,3,"%D",2,0)="quick reference to a clinics Third Party status on any given date."
^DD(352.3,.01,1,3,"DT")="2960130"
^DD(352.3,.01,3)="Please enter a clinic stop code."
^DD(352.3,.01,21,0)="^^3^3^2960130^^"
^DD(352.3,.01,21,1,0)="This field is a pointer to the CLINIC STOP (#40.7) file and identifies"
^DD(352.3,.01,21,2,0)="the clinic stop code which is being established as either billable"
^DD(352.3,.01,21,3,0)="or non-billable."
^DD(352.3,.01,"DT")="2960130"
^DD(352.3,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(352.3,.02,1,0)="^.1"
^DD(352.3,.02,1,1,0)="352.3^AIVDT1^MUMPS"
^DD(352.3,.02,1,1,1)="I $P($G(^IBE(352.3,DA,0)),""^"",4)=1,+^(0) S ^IBE(352.3,""AIVDT"",+^(0),-X,DA)="""""
^DD(352.3,.02,1,1,2)="I $P($G(^IBE(352.3,DA,0)),""^"",4)=1,+^(0) K ^IBE(352.3,""AIVDT"",+^(0),-X,DA)"
^DD(352.3,.02,1,1,"%D",0)="^^4^4^2960130^^^^"
^DD(352.3,.02,1,1,"%D",1,0)="This cross-reference on the CLINIC STOP CODE (#.01) field and the"
^DD(352.3,.02,1,1,"%D",2,0)="EFFECTIVE DATE (#.02) field is used to locate the appropriate record"
^DD(352.3,.02,1,1,"%D",3,0)="for a clinic stop code on a specific effective date.  Entries created"
^DD(352.3,.02,1,1,"%D",4,0)="only for Means Test billing."
^DD(352.3,.02,1,1,"DT")="2960130"
^DD(352.3,.02,1,2,0)="352.3^AIVDTT1^MUMPS"
^DD(352.3,.02,1,2,1)="I $P($G(^IBE(352.3,DA,0)),""^"",4)>1,+^(0) S ^IBE(352.3,""AIVDTT""_$P(^(0),""^"",4),+^(0),-X,DA)="""""
^DD(352.3,.02,1,2,2)="I $P($G(^IBE(352.3,DA,0)),""^"",4)>1,+^(0) K ^IBE(352.3,""AIVDTT""_$P(^(0),""^"",4),+^(0),-X,DA)"
^DD(352.3,.02,1,2,"%D",0)="^^2^2^2960130^"
^DD(352.3,.02,1,2,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.3,.02,1,2,"%D",2,0)="quick reference to a stops Third Party status on any given date."
^DD(352.3,.02,1,2,"DT")="2960130"
^DD(352.3,.02,3)="Please enter an effective date."
^DD(352.3,.02,21,0)="^^2^2^2960130^^"
^DD(352.3,.02,21,1,0)="This is the date on which billing for this clinic stop code should"
^DD(352.3,.02,21,2,0)="be activated or ignored."
^DD(352.3,.02,"DT")="2960130"
^DD(352.3,.03,0)="IGNORE MEANS TEST BILLING?^RS^1:YES;0:NO;^0;3^Q"
^DD(352.3,.03,3)="Please enter 'YES' or 'NO.'"
^DD(352.3,.03,21,0)="^^5^5^2930805^^^^"
^DD(352.3,.03,21,1,0)="This field is used to determine whether Means Test billing should"
^DD(352.3,.03,21,2,0)="be activated or ignored, as of the EFFECTIVE DATE (field #.02)."
^DD(352.3,.03,21,3,0)=" "
^DD(352.3,.03,21,4,0)="Please note that you only need an entry in this file for a clinic"
^DD(352.3,.03,21,5,0)="stop code for which you would like Means Test billing to be IGNORED."
^DD(352.3,.03,"DT")="2930805"
^DD(352.3,.04,0)="TYPE^RS^1:MEANS TEST;2:THIRD PARTY;^0;4^Q"
^DD(352.3,.04,1,0)="^.1"
^DD(352.3,.04,1,1,0)="352.3^AIVDT2^MUMPS"
^DD(352.3,.04,1,1,1)="I X=1,+$G(^IBE(352.3,DA,0)),$P(^(0),""^"",2) S ^IBE(352.3,""AIVDT"",+^(0),-$P(^(0),""^"",2),DA)="""""
^DD(352.3,.04,1,1,2)="I X=1,+$G(^IBE(352.3,DA,0)),$P(^(0),""^"",2) K ^IBE(352.3,""AIVDT"",+^(0),-$P(^(0),""^"",2),DA)"
^DD(352.3,.04,1,1,"%D",0)="^^2^2^2960130^^"
^DD(352.3,.04,1,1,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.3,.04,1,1,"%D",2,0)="quick reference to a stops Means Test status on any given date."
^DD(352.3,.04,1,1,"DT")="2960130"
^DD(352.3,.04,1,2,0)="352.3^AIVDTT2^MUMPS"
^DD(352.3,.04,1,2,1)="I X>1,+$G(^IBE(352.3,DA,0)),$P(^(0),""^"",2) S ^IBE(352.3,""AIVDTT""_X,+^(0),-$P(^(0),""^"",2),DA)="""""
^DD(352.3,.04,1,2,2)="I X>1,+$G(^IBE(352.3,DA,0)),$P(^(0),""^"",2) K ^IBE(352.3,""AIVDTT""_X,+^(0),-$P(^(0),""^"",2),DA)"
^DD(352.3,.04,1,2,"%D",0)="^^2^2^2960228^^"
^DD(352.3,.04,1,2,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.3,.04,1,2,"%D",2,0)="quick reference to a stops Third Party status on any given date."
^DD(352.3,.04,1,2,"DT")="2960228"
^DD(352.3,.04,3)="Enter the type of billing this entry applies to."
^DD(352.3,.04,21,0)="^^2^2^2960130^^^^"
^DD(352.3,.04,21,1,0)="This specifies the type of billing this bill/not bill Stop Code flag"
^DD(352.3,.04,21,2,0)="applies to."
^DD(352.3,.04,"DT")="2960228"
^DD(352.3,.05,0)="THIRD PARTY NON-BILLABLE^S^1:YES;0:NO;^0;5^Q"
^DD(352.3,.05,1,0)="^.1"
^DD(352.3,.05,1,1,0)="^^TRIGGER^352.3^.06"
^DD(352.3,.05,1,1,1)="X ^DD(352.3,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(352.3,.05,1,1,1.4)"
^DD(352.3,.05,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.3,.06,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)=""NO"""
^DD(352.3,.05,1,1,1.4)="S DIH=$S($D(^IBE(352.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.3,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(352.3,.05,1,1,2)="X ^DD(352.3,.05,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(352.3,.05,1,1,2.4)"
^DD(352.3,.05,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.3,.06,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBE(352.3,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)=""NO"""
^DD(352.3,.05,1,1,2.4)="S DIH=$S($D(^IBE(352.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.3,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(352.3,.05,1,1,"%D",0)="^^2^2^2960130^"
^DD(352.3,.05,1,1,"%D",1,0)="Deletes the flag that stops auto billing for this stop code whenever the"
^DD(352.3,.05,1,1,"%D",2,0)="non-billable status of the stop code changes."
^DD(352.3,.05,1,1,"CREATE CONDITION")="THIRD PARTY AUTO BILL=""NO"""
^DD(352.3,.05,1,1,"CREATE VALUE")="@"
^DD(352.3,.05,1,1,"DELETE CONDITION")="THIRD PARTY AUTO BILL=""NO"""
^DD(352.3,.05,1,1,"DELETE VALUE")="@"
^DD(352.3,.05,1,1,"DT")="2960130"
^DD(352.3,.05,1,1,"FIELD")="THIRD PARTY AUTO BILL"
^DD(352.3,.05,3)="Enter 'Yes' if this stop code is not billable to a third party."
^DD(352.3,.05,21,0)="^^2^2^2960130^^^"
^DD(352.3,.05,21,1,0)="This field is used to determine if the stop code should be billed to a "
^DD(352.3,.05,21,2,0)="Third Party payer."
^DD(352.3,.05,"DT")="2960130"
^DD(352.3,.06,0)="THIRD PARTY AUTO BILL^S^1:NO;0:YES;^0;6^Q"
^DD(352.3,.06,3)="Should visits with this stop code be automatically billed?"
^DD(352.3,.06,5,1,0)="352.3^.05^1"
^DD(352.3,.06,21,0)="^^3^3^2960130^^^^"
^DD(352.3,.06,21,1,0)="Enter 'No' if the Third Party auto biller should NOT create bills for "
^DD(352.3,.06,21,2,0)="visits with this stop code.  This should only be set for stops that are"
^DD(352.3,.06,21,3,0)="billable."
^DD(352.3,.06,"DT")="2960130"
^DD(352.3,"B","CLINIC STOP CODE",.01)=""
^DD(352.3,"B","EFFECTIVE DATE",.02)=""
^DD(352.3,"B","IGNORE MEANS TEST BILLING?",.03)=""
^DD(352.3,"B","THIRD PARTY AUTO BILL",.06)=""
^DD(352.3,"B","THIRD PARTY NON-BILLABLE",.05)=""
^DD(352.3,"B","TYPE",.04)=""
^DD(352.3,"GL",0,1,.01)=""
^DD(352.3,"GL",0,2,.02)=""
^DD(352.3,"GL",0,3,.03)=""
^DD(352.3,"GL",0,4,.04)=""
^DD(352.3,"GL",0,5,.05)=""
^DD(352.3,"GL",0,6,.06)=""
^DD(352.3,"IX",.01)=""
^DD(352.3,"IX",.02)=""
^DD(352.3,"IX",.04)=""
^DD(352.3,"IX",.05)=""
^DD(352.3,"RQ",.01)=""
^DD(352.3,"RQ",.02)=""
^DD(352.3,"RQ",.03)=""
^DD(352.3,"RQ",.04)=""
^DD(352.4,0)="FIELD^^.06^6"
^DD(352.4,0,"DDA")="N"
^DD(352.4,0,"DT")="2960130"
^DD(352.4,0,"IX","AIVDT",352.4,.01)=""
^DD(352.4,0,"IX","AIVDT1",352.4,.02)=""
^DD(352.4,0,"IX","AIVDT2",352.4,.04)=""
^DD(352.4,0,"IX","AIVDTT",352.4,.01)=""
^DD(352.4,0,"IX","AIVDTT1",352.4,.02)=""
^DD(352.4,0,"IX","AIVDTT2",352.4,.04)=""
^DD(352.4,0,"IX","B",352.4,.01)=""
^DD(352.4,0,"NM","NON-BILLABLE CLINICS")=""
^DD(352.4,0,"VR")="2.0"
^DD(352.4,0,"VRPK")="IB"
^DD(352.4,.01,0)="CLINIC^R*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(352.4,.01,1,0)="^.1"
^DD(352.4,.01,1,1,0)="352.4^B"
^DD(352.4,.01,1,1,1)="S ^IBE(352.4,""B"",$E(X,1,30),DA)="""""
^DD(352.4,.01,1,1,2)="K ^IBE(352.4,""B"",$E(X,1,30),DA)"
^DD(352.4,.01,1,2,0)="352.4^AIVDT^MUMPS"
^DD(352.4,.01,1,2,1)="I $P($G(^IBE(352.4,DA,0)),""^"",4)=1,$P(^(0),""^"",2) S ^IBE(352.4,""AIVDT"",X,-$P(^(0),""^"",2),DA)="""""
^DD(352.4,.01,1,2,2)="I $P($G(^IBE(352.4,DA,0)),""^"",4)=1,$P(^(0),""^"",2) K ^IBE(352.4,""AIVDT"",X,-$P(^(0),""^"",2),DA)"
^DD(352.4,.01,1,2,"%D",0)="^^3^3^2960130^^^^"
^DD(352.4,.01,1,2,"%D",1,0)="This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE"
^DD(352.4,.01,1,2,"%D",2,0)="(#.02) field is used to locate the appropriate record for a clinic on"
^DD(352.4,.01,1,2,"%D",3,0)="a specific effective date.  For Means Test entries only."
^DD(352.4,.01,1,2,"DT")="2960130"
^DD(352.4,.01,1,3,0)="352.4^AIVDTT^MUMPS"
^DD(352.4,.01,1,3,1)="I $P($G(^IBE(352.4,DA,0)),""^"",4)>1,$P(^(0),""^"",2) S ^IBE(352.4,""AIVDTT""_$P(^(0),""^"",4),X,-$P(^(0),""^"",2),DA)="""""
^DD(352.4,.01,1,3,2)="I $P($G(^IBE(352.4,DA,0)),""^"",4)>1,$P(^(0),""^"",2) K ^IBE(352.4,""AIVDTT""_$P(^(0),""^"",4),X,-$P(^(0),""^"",2),DA)"
^DD(352.4,.01,1,3,"%D",0)="^^2^2^2960130^"
^DD(352.4,.01,1,3,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.4,.01,1,3,"%D",2,0)="quick reference to a clinics Third Party status on any given date."
^DD(352.4,.01,1,3,"DT")="2960130"
^DD(352.4,.01,3)="Please enter a clinic."
^DD(352.4,.01,12)="This screen is used to assure that only clinics in file #44 are selected."
^DD(352.4,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(352.4,.01,21,0)="^^3^3^2960130^^"
^DD(352.4,.01,21,1,0)="This field is a pointer to the HOSPITAL LOCATION (#44) file and"
^DD(352.4,.01,21,2,0)="identifies the clinic which is being flagged as billable or"
^DD(352.4,.01,21,3,0)="non-billable."
^DD(352.4,.01,"DT")="2960130"
^DD(352.4,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(352.4,.02,1,0)="^.1"
^DD(352.4,.02,1,1,0)="352.4^AIVDT1^MUMPS"
^DD(352.4,.02,1,1,1)="I $P($G(^IBE(352.4,DA,0)),""^"",4)=1,+^(0) S ^IBE(352.4,""AIVDT"",+^(0),-X,DA)="""""
^DD(352.4,.02,1,1,2)="I $P($G(^IBE(352.4,DA,0)),""^"",4)=1,+^(0) K ^IBE(352.4,""AIVDT"",+^(0),-X,DA)"
^DD(352.4,.02,1,1,"%D",0)="^^3^3^2960130^^^^"
^DD(352.4,.02,1,1,"%D",1,0)="This cross-reference on the CLINIC (#.01) field and the EFFECTIVE DATE"
^DD(352.4,.02,1,1,"%D",2,0)="(#.02) field is used to locate the appropriate record for a clinic on"
^DD(352.4,.02,1,1,"%D",3,0)="a specific effective date.  For Means Test entries only."
^DD(352.4,.02,1,1,"DT")="2960130"
^DD(352.4,.02,1,2,0)="352.4^AIVDTT1^MUMPS"
^DD(352.4,.02,1,2,1)="I $P($G(^IBE(352.4,DA,0)),""^"",4)>1,+^(0) S ^IBE(352.4,""AIVDTT""_$P(^(0),""^"",4),+^(0),-X,DA)="""""
^DD(352.4,.02,1,2,2)="I $P($G(^IBE(352.4,DA,0)),""^"",4)>1,+^(0) K ^IBE(352.4,""AIVDTT""_$P(^(0),""^"",4),+^(0),-X,DA)"
^DD(352.4,.02,1,2,"%D",0)="^^2^2^2960130^"
^DD(352.4,.02,1,2,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.4,.02,1,2,"%D",2,0)="quick reference to a clinics Third Party status on any given date."
^DD(352.4,.02,1,2,"DT")="2960130"
^DD(352.4,.02,3)="Please enter the effective date."
^DD(352.4,.02,21,0)="^^2^2^2960130^^"
^DD(352.4,.02,21,1,0)="This is the date on which billing for this clinic should be"
^DD(352.4,.02,21,2,0)="ignored or activated."
^DD(352.4,.02,"DT")="2960130"
^DD(352.4,.03,0)="IGNORE MEANS TEST BILLING?^RS^1:YES;0:NO;^0;3^Q"
^DD(352.4,.03,3)="Please enter 'YES' or 'NO.'"
^DD(352.4,.03,21,0)="^^5^5^2930805^^"
^DD(352.4,.03,21,1,0)="This field is used to determine whether Means Test billing should"
^DD(352.4,.03,21,2,0)="be ignored or activated, as of the EFFECTIVE DATE (field #.02)."
^DD(352.4,.03,21,3,0)=" "
^DD(352.4,.03,21,4,0)="Please note that you only need an entry in this file for a clinic"
^DD(352.4,.03,21,5,0)="for which you would like Means Test billing to be IGNORED."
^DD(352.4,.03,"DT")="2930720"
^DD(352.4,.04,0)="TYPE^RS^1:MEANS TEST;2:THIRD PARTY;^0;4^Q"
^DD(352.4,.04,1,0)="^.1"
^DD(352.4,.04,1,1,0)="352.4^AIVDT2^MUMPS"
^DD(352.4,.04,1,1,1)="I X=1,+$G(^IBE(352.4,DA,0)),$P(^(0),""^"",2) S ^IBE(352.4,""AIVDT"",+^(0),-$P(^(0),""^"",2),DA)="""""
^DD(352.4,.04,1,1,2)="I X=1,+$G(^IBE(352.4,DA,0)),$P(^(0),""^"",2) K ^IBE(352.4,""AIVDT"",+^(0),-$P(^(0),""^"",2),DA)"
^DD(352.4,.04,1,1,"%D",0)="^^2^2^2960130^^"
^DD(352.4,.04,1,1,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.4,.04,1,1,"%D",2,0)="quick reference to a clinics Means Test status on any given date."
^DD(352.4,.04,1,1,"DT")="2960130"
^DD(352.4,.04,1,2,0)="352.4^AIVDTT2^MUMPS"
^DD(352.4,.04,1,2,1)="I X>1,+$G(^IBE(352.4,DA,0)),$P(^(0),""^"",2) S ^IBE(352.4,""AIVDTT""_X,+^(0),-$P(^(0),""^"",2),DA)="""""
^DD(352.4,.04,1,2,2)="I X>1,+$G(^IBE(352.4,DA,0)),$P(^(0),""^"",2) K ^IBE(352.4,""AIVDTT""_X,+^(0),-$P(^(0),""^"",2),DA)"
^DD(352.4,.04,1,2,"%D",0)="^^2^2^2960130^"
^DD(352.4,.04,1,2,"%D",1,0)="Cross-reference on CLINIC STOP CODE (.01) and EFFECTIVE DATE (.02) for"
^DD(352.4,.04,1,2,"%D",2,0)="quick reference to a clinics Third Party status on any given date."
^DD(352.4,.04,1,2,"DT")="2960130"
^DD(352.4,.04,3)="Enter the type of billing this entry applies to."
^DD(352.4,.04,21,0)="^^1^1^2960130^^"
^DD(352.4,.04,21,1,0)="This specifies the type of billing this bill/not bill Clinic flag applies to."
^DD(352.4,.04,"DT")="2960130"
^DD(352.4,.05,0)="THIRD PARTY NON-BILLABLE^S^1:YES;0:NO;^0;5^Q"
^DD(352.4,.05,1,0)="^.1"
^DD(352.4,.05,1,1,0)="^^TRIGGER^352.4^.06"
^DD(352.4,.05,1,1,1)="X ^DD(352.4,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(352.4,.05,1,1,1.4)"
^DD(352.4,.05,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.4,.06,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)=""NO"""
^DD(352.4,.05,1,1,1.4)="S DIH=$S($D(^IBE(352.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.4,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(352.4,.05,1,1,2)="X ^DD(352.4,.05,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(352.4,.05,1,1,2.4)"
^DD(352.4,.05,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(352.4,.06,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBE(352.4,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)=""NO"""
^DD(352.4,.05,1,1,2.4)="S DIH=$S($D(^IBE(352.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=352.4,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(352.4,.05,1,1,"%D",0)="^^2^2^2960130^"
^DD(352.4,.05,1,1,"%D",1,0)="Deletes the flag that stops auto billing for this clinic whenever the"
^DD(352.4,.05,1,1,"%D",2,0)="non-billable status of the clinic changes."
^DD(352.4,.05,1,1,"CREATE CONDITION")="THIRD PARTY AUTO BILL=""NO"""
^DD(352.4,.05,1,1,"CREATE VALUE")="@"
^DD(352.4,.05,1,1,"DELETE CONDITION")="THIRD PARTY AUTO BILL=""NO"""
^DD(352.4,.05,1,1,"DELETE VALUE")="@"
^DD(352.4,.05,1,1,"DT")="2960130"
^DD(352.4,.05,1,1,"FIELD")="THIRD PARTY AUTO BILL"
^DD(352.4,.05,3)="Enter 'Yes' if this clinic is not billable to a third party."
^DD(352.4,.05,21,0)="^^2^2^2960130^"
^DD(352.4,.05,21,1,0)="This field is used to determine if the clinic should be billed to a "
^DD(352.4,.05,21,2,0)="Third Party payer."
^DD(352.4,.05,"DT")="2960130"
^DD(352.4,.06,0)="THIRD PARTY AUTO BILL^S^1:NO;0:YES;^0;6^Q"
^DD(352.4,.06,3)="Should visits with this clinic be automatically billed?"
^DD(352.4,.06,5,1,0)="352.4^.05^1"
^DD(352.4,.06,21,0)="^^3^3^2960130^"
^DD(352.4,.06,21,1,0)="Enter 'No' if the Third Party auto biller should NOT create bills for"
^DD(352.4,.06,21,2,0)="visits with this clinic.  This should only be set for clinics that are"
^DD(352.4,.06,21,3,0)="billable."
^DD(352.4,.06,"DT")="2960130"
^DD(352.4,"B","CLINIC",.01)=""
^DD(352.4,"B","EFFECTIVE DATE",.02)=""
^DD(352.4,"B","IGNORE MEANS TEST BILLING?",.03)=""
^DD(352.4,"B","THIRD PARTY AUTO BILL",.06)=""
^DD(352.4,"B","THIRD PARTY NON-BILLABLE",.05)=""
^DD(352.4,"B","TYPE",.04)=""
^DD(352.4,"GL",0,1,.01)=""
^DD(352.4,"GL",0,2,.02)=""
^DD(352.4,"GL",0,3,.03)=""
^DD(352.4,"GL",0,4,.04)=""
^DD(352.4,"GL",0,5,.05)=""
^DD(352.4,"GL",0,6,.06)=""
^DD(352.4,"IX",.01)=""
^DD(352.4,"IX",.02)=""
^DD(352.4,"IX",.04)=""
^DD(352.4,"IX",.05)=""
^DD(352.4,"RQ",.01)=""
^DD(352.4,"RQ",.02)=""
^DD(352.4,"RQ",.03)=""
^DD(352.4,"RQ",.04)=""
^DD(352.5,0)="FIELD^^.05^5"
^DD(352.5,0,"DDA")="N"
^DD(352.5,0,"DT")="3020828"
^DD(352.5,0,"ID","WRITE")="N %,IB S IB=$G(^(0)) W ?12,"" "",$P(IB,U,4) S %=$P(IB,U,2) S:'% %=""???????"" W ?46,"" EffDate:"",$E(%,4,5),""/"",$E(%,6,7),""/"",$E(%,2,3) S %=$P(IB,U,3) W ?64,"" "",$S(%=1:""Basic"",%=2:""Specialty"",1:""Non-Billable"")"
^DD(352.5,0,"IX","B",352.5,.01)=""
^DD(352.5,0,"NM","IB CLINIC STOP CODE BILLABLE TYPES")=""
^DD(352.5,0,"PT",350,.2)=""
^DD(352.5,0,"VR")="2.0"
^DD(352.5,0,"VRPK")="IB"
^DD(352.5,.01,0)="CLINIC STOP CODE^RF^^0;1^K:$L(X)>6!($L(X)<3) X"
^DD(352.5,.01,1,0)="^.1^^-1"
^DD(352.5,.01,1,1,0)="352.5^B"
^DD(352.5,.01,1,1,1)="S ^IBE(352.5,""B"",$E(X,1,30),DA)="""""
^DD(352.5,.01,1,1,2)="K ^IBE(352.5,""B"",$E(X,1,30),DA)"
^DD(352.5,.01,3)="Enter the 3 or 6 digit clinic stop code."
^DD(352.5,.01,21,0)="^^9^9^3020828^^"
^DD(352.5,.01,21,1,0)="This field stores the three or six digit stop code used for determining"
^DD(352.5,.01,21,2,0)="the billable rate as either billable for primary care, billable for"
^DD(352.5,.01,21,3,0)="specialty care, or non-billable based on effective date.  This field"
^DD(352.5,.01,21,4,0)="is not DINUMed to allow duplicate stop code entries with different"
^DD(352.5,.01,21,5,0)="billable rates depending on the visit date (effective date of the rate)."
^DD(352.5,.01,21,6,0)=" "
^DD(352.5,.01,21,7,0)="Data in this file is static and should not be added, deleted, or"
^DD(352.5,.01,21,8,0)="changed.  This file will be maintained and populated with the release"
^DD(352.5,.01,21,9,0)="of future IB patches."
^DD(352.5,.01,"DT")="3020828"
^DD(352.5,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(352.5,.02,1,0)="^.1^^0"
^DD(352.5,.02,3)="Please enter an effective date."
^DD(352.5,.02,21,0)="^.001^2^2^3011121^^^"
^DD(352.5,.02,21,1,0)="This is the date on which billing for this clinic stop code should be"
^DD(352.5,.02,21,2,0)="activated or ignored."
^DD(352.5,.02,"DT")="3011128"
^DD(352.5,.03,0)="BILLABLE TYPE^RS^0:NON-BILLABLE;1:BASIC CARE;2:SPECIALTY CARE;^0;3^Q"
^DD(352.5,.03,3)="Enter they type of billing this entry applies to."
^DD(352.5,.03,21,0)="^.001^2^2^3020826^^^^"
^DD(352.5,.03,21,1,0)="This specifies if the clinic stop is billable under basic care or"
^DD(352.5,.03,21,2,0)="specialty care, or if the clinic stop code is non-billable."
^DD(352.5,.03,23,0)="^.001^2^2^3020826^^^"
^DD(352.5,.03,23,1,0)="Since IB*2.0*187 the name of the billable type code (1) has been changed"
^DD(352.5,.03,23,2,0)="from ""PRIMARY CARE"" to ""BASIC CARE""."
^DD(352.5,.03,"DT")="3020822"
^DD(352.5,.04,0)="DESCRIPTION^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(352.5,.04,3)="Answer must be 1-30 characters in length."
^DD(352.5,.04,21,0)="^.001^2^2^3020828^^"
^DD(352.5,.04,21,1,0)="This field stores the description of the stop code for display on"
^DD(352.5,.04,21,2,0)="lookup and reports."
^DD(352.5,.04,"DT")="3011203"
^DD(352.5,.05,0)="OVERRIDE FLAG^S^1:OVERRIDE;^0;5^Q"
^DD(352.5,.05,3)="Enter OVERRIDE type if the code belongs to override table"
^DD(352.5,.05,21,0)="^.001^1^1^3020826^^"
^DD(352.5,.05,21,1,0)="OVERRIDE FLAG is 1 if the code belongs to override table"
^DD(352.5,.05,"DT")="3020820"
^DD(352.5,"B","BILLABLE TYPE",.03)=""
^DD(352.5,"B","CLINIC STOP CODE",.01)=""
^DD(352.5,"B","DESCRIPTION",.04)=""
^DD(352.5,"B","EFFECTIVE DATE",.02)=""
^DD(352.5,"B","OVERRIDE FLAG",.05)=""
^DD(352.5,"GL",0,1,.01)=""
^DD(352.5,"GL",0,2,.02)=""
^DD(352.5,"GL",0,3,.03)=""
^DD(352.5,"GL",0,4,.04)=""
^DD(352.5,"GL",0,5,.05)=""
^DD(352.5,"IX",.01)=""
^DD(352.5,"RQ",.01)=""
^DD(352.5,"RQ",.02)=""
^DD(352.5,"RQ",.03)=""
^DD(353,0)="FIELD^^55^20"
^DD(353,0,"DDA")="N"
^DD(353,0,"DT")="2940112"
^DD(353,0,"IX","B",353,.01)=""
^DD(353,0,"NM","BILL FORM TYPE")=""
^DD(353,0,"PT",36,.14)=""
^DD(353,0,"PT",353,2.05)=""
^DD(353,0,"PT",353,2.08)=""
^DD(353,0,"PT",353,2.09)=""
^DD(353,0,"PT",364.6,.01)=""
^DD(353,0,"PT",399,.19)=""
^DD(353,0,"VR")="2.0"
^DD(353,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(353,.001,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(353,.001,21,0)="^^2^2^2920427^^"
^DD(353,.001,21,1,0)="Enter a number that is within the number range for your facility,"
^DD(353,.001,21,2,0)="that is xxx000 to xxx999 where xxx is your station number."
^DD(353,.001,"DT")="2920427"
^DD(353,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(353,.01,1,0)="^.1"
^DD(353,.01,1,1,0)="353^B"
^DD(353,.01,1,1,1)="S ^IBE(353,""B"",$E(X,1,30),DA)="""""
^DD(353,.01,1,1,2)="K ^IBE(353,""B"",$E(X,1,30),DA)"
^DD(353,.01,3)="Answer must be 3-20 characters in length."
^DD(353,.01,21,0)="^^1^1^2920427^^^"
^DD(353,.01,21,1,0)="This field names a type of form that is available for billing purposes."
^DD(353,.01,"DEL",1,0)="I DA<999 W !,""Deleting Standard entries not allowed"""
^DD(353,.01,"DEL",364.6,0)="I $O(^IBA(364.6,""B"",DA,"""")) W !,*7,""Cannot delete this form until its form fields are deleted"",!"
^DD(353,.01,"DT")="2920410"
^DD(353,.02,0)="DEFAULT PRINTER (BILLING)^FX^^0;2^S IBL=X,X=$P(X,"";""),DIC=3.5,DIC(0)=""EQ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=X_$S(IBL["";"":"";""_$P(IBL,"";"",2,99),1:"""") K IBL S DIC=DIE"
^DD(353,.02,3)="Enter the device that is the default billing printer for this form."
^DD(353,.02,4)="S DIC=3.5,DIC(0)=""E"",X=""?"" D ^DIC S DIC=DIE"
^DD(353,.02,21,0)="^^2^2^2940112^^"
^DD(353,.02,21,1,0)="This is the default printer that will appear at selected prompts for"
^DD(353,.02,21,2,0)="this form type."
^DD(353,.02,"DT")="2920427"
^DD(353,.03,0)="FOLLOW-UP PRINTER (A/R)^FX^^0;3^S IBL=X,X=$P(X,"";""),DIC=3.5,DIC(0)=""EQ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=X_$S(IBL["";"":"";""_$P(IBL,"";"",2,99),1:"""") K IBL S DIC=DIE"
^DD(353,.03,3)="Enter the device that is the default printer for follow-up bills for this form type."
^DD(353,.03,4)="S DIC=3.5,DIC(0)=""E"",X=""?"" D ^DIC S DIC=DIE"
^DD(353,.03,21,0)="^^2^2^3070116^^"
^DD(353,.03,21,1,0)="For forms other than the UB-04, this is the default printer that has this"
^DD(353,.03,21,2,0)="form mounted for follow-up letter/forms for Accounts Receivable."
^DD(353,.03,"DT")="3070116"
^DD(353,1.01,0)="ROUTINE^FX^^1;E1,245^K:$L(X)>25!($L(X)<1)!(X'?.1ANP.7AN.1""^""1ANP.7AN) X"
^DD(353,1.01,3)="Answer must be 1-25 characters in length.  It must be in the form of [TAG^]ROUTINE."
^DD(353,1.01,21,0)="^^2^2^2940213^^^^"
^DD(353,1.01,21,1,0)="This is the routine that will get executed for follow-up letters and bills "
^DD(353,1.01,21,2,0)="printed in a batch if this is not a UB-82 entry."
^DD(353,1.01,"DT")="2920427"
^DD(353,2.01,0)="BASE FILE^P1'^DIC(^2;1^Q"
^DD(353,2.01,3)="Enter the Fileman file to be used as a 'base' to extract Fileman flds from."
^DD(353,2.01,21,0)="^^2^2^2960311^^^"
^DD(353,2.01,21,1,0)="This is the number of the Fileman file to be used as a 'base' to extract"
^DD(353,2.01,21,2,0)="Fileman fields for this form."
^DD(353,2.01,"DT")="2960222"
^DD(353,2.02,0)="FORMAT TYPE^S^P:PRINTED FORM;T:TRANSMITTED FORM;S:BILLING SCREEN;^2;2^Q"
^DD(353,2.02,1,0)="^.1"
^DD(353,2.02,1,1,0)="^^TRIGGER^353^2.05"
^DD(353,2.02,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=""S"" I X S X=DIV S Y(1)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DA X ^DD(353,2.02,1,1,1.4)"
^DD(353,2.02,1,1,1.4)="S DIH=$S($D(^IBE(353,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,5)=DIV,DIH=353,DIG=2.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(353,2.02,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P(Y(1),U,2),X=X S X=X=""S"" I X S X=DIV S Y(1)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(353,2.02,1,1,2.4)"
^DD(353,2.02,1,1,2.4)="S DIH=$S($D(^IBE(353,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,5)=DIV,DIH=353,DIG=2.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(353,2.02,1,1,3)="Please don't delete or screen 9 functionality won't function"
^DD(353,2.02,1,1,"CREATE CONDITION")="INTERNAL(FORMAT TYPE)=""S"""
^DD(353,2.02,1,1,"CREATE VALUE")="S X=DA"
^DD(353,2.02,1,1,"DELETE CONDITION")="INTERNAL(FORMAT TYPE)=""S"""
^DD(353,2.02,1,1,"DELETE VALUE")="@"
^DD(353,2.02,1,1,"DT")="2991029"
^DD(353,2.02,1,1,"FIELD")="PARENT FORM"
^DD(353,2.02,3)="Enter the type of form that is being defined."
^DD(353,2.02,21,0)="^^1^1^2951207^"
^DD(353,2.02,21,1,0)="This is the type of form that is being defined."
^DD(353,2.02,"DT")="2991029"
^DD(353,2.03,0)="FORM LENGTH^NJ3,0^^2;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(353,2.03,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(353,2.03,21,0)="^^2^2^2951220^"
^DD(353,2.03,21,1,0)="If a printed form, this is the number of lines that the form has to be used"
^DD(353,2.03,21,2,0)="to know when a form feed needs to be sent to the printer."
^DD(353,2.03,"DT")="2951220"
^DD(353,2.04,0)="NATIONAL FORM^S^0:NO;1:YES;^2;4^Q"
^DD(353,2.04,3)="Answer YES if this is a national form"
^DD(353,2.04,21,0)="^^2^2^2960116^"
^DD(353,2.04,21,1,0)="This field is set to YES (1) for nationally distributed forms, is null or 0"
^DD(353,2.04,21,2,0)="for locally defined billing forms."
^DD(353,2.04,"DT")="2960116"
^DD(353,2.05,0)="PARENT FORM^*P353'X^IBE(353,^2;5^S DIC(""S"")=""I $S($P($G(^(2)),U,2)=""""S"""":1,1:$P($G(^(2)),U,4)),$P($G(^IBE(353,Y,2)),U,2)=$P($G(^IBE(353,DA,2)),U,2),+$G(^IBE(353,Y,2))=+$G(^IBE(353,DA,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(353,2.05,3)="Enter the name of the parent form that this local form will be associated with."
^DD(353,2.05,5,1,0)="353^2.02^1"
^DD(353,2.05,12)="Must point to a national file entry of the same format type and base file"
^DD(353,2.05,12.1)="S DIC(""S"")=""I $S($P($G(^(2)),U,2)=""""S"""":1,1:$P($G(^(2)),U,4)),$P($G(^IBE(353,Y,2)),U,2)=$P($G(^IBE(353,DA,2)),U,2),+$G(^IBE(353,Y,2))=+$G(^IBE(353,DA,2))"""
^DD(353,2.05,21,0)="^^5^5^2960223^"
^DD(353,2.05,21,1,0)="This is the name of the national parent form that the local form is"
^DD(353,2.05,21,2,0)="associated with.  Association in this way allows a site to override specific"
^DD(353,2.05,21,3,0)="fields in the national form with local modifications without changing the"
^DD(353,2.05,21,4,0)="national form definition.  The output generator uses all national form"
^DD(353,2.05,21,5,0)="fields associated with the local form except for those fields overridden."
^DD(353,2.05,"DT")="2991029"
^DD(353,2.06,0)="SHORT DESCRIPTION^F^^2;6^K:$L(X)>40!($L(X)<1) X"
^DD(353,2.06,3)="Answer must be 1-40 characters in length."
^DD(353,2.06,21,0)="^^1^1^2960220^"
^DD(353,2.06,21,1,0)="This field contains a brief explanantion of the purpose of the form."
^DD(353,2.06,"DT")="2960220"
^DD(353,2.07,0)="FIELD DELIMITER^F^^2;7^K:$L(X)>1!($L(X)<1) X"
^DD(353,2.07,3)="Answer must be 1 character in length.  For an '^', leave this field blank."
^DD(353,2.07,21,0)="^^4^4^2960322^^"
^DD(353,2.07,21,1,0)="This is the delimiter that will be placed between fields of a transmitted"
^DD(353,2.07,21,2,0)="type form by the output generator.  If this field is left blank, an '^' is"
^DD(353,2.07,21,3,0)="assumed to be the delimiter.  Fileman will not allow an '^' to be entered"
^DD(353,2.07,21,4,0)="in this field."
^DD(353,2.07,"DT")="2960306"
^DD(353,2.08,0)="PRINT FORM NAME^*P353'^IBE(353,^2;8^S DIC(""S"")=""I $S(DA=+Y:1,1:$P($G(^IBE(353,Y,2)),U,5)=DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(353,2.08,3)="Enter the name of the form to be used by the output formatter when this bill type is printed."
^DD(353,2.08,12)="Only the same entry or an entry with this entry as its parent can be chosen."
^DD(353,2.08,12.1)="S DIC(""S"")=""I $S(DA=+Y:1,1:$P($G(^IBE(353,Y,2)),U,5)=DA)"""
^DD(353,2.08,21,0)="^^3^3^2960620^^"
^DD(353,2.08,21,1,0)="This is the pointer to the entry in this file (itself or another entry"
^DD(353,2.08,21,2,0)="with this entry as its parent) that will be used to print bills of this"
^DD(353,2.08,21,3,0)="form type."
^DD(353,2.08,"DT")="2960620"
^DD(353,2.09,0)="LOCAL SCREEN 9^*P353'^IBE(353,^2;9^S DIC(""S"")=""I $P($G(^IBE(353,+Y,2)),U,2)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(353,2.09,3)="Enter the name of the screen to be used as local billing screen #9."
^DD(353,2.09,12)="Must be a screen form"
^DD(353,2.09,12.1)="S DIC(""S"")=""I $P($G(^IBE(353,+Y,2)),U,2)=""""S"""""""
^DD(353,2.09,21,0)="^^1^1^2960627^"
^DD(353,2.09,21,1,0)="This is the form that will be used to build screen #9 for enter/edit a bill."
^DD(353,2.09,"DT")="2960627"
^DD(353,50,0)="ENTRY PRE-PROCESSOR^K^^PRE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(353,50,3)="This is Standard MUMPS code."
^DD(353,50,9)="@"
^DD(353,50,21,0)="^^3^3^2960307^^^^"
^DD(353,50,21,1,0)="The code that is executed before extracting data for an individual form"
^DD(353,50,21,2,0)="entry using the forms output generator.  Can be used to set up any variables"
^DD(353,50,21,3,0)="necessary before processing a single entry."
^DD(353,50,23,0)="^^3^3^2960307^^^"
^DD(353,50,23,1,0)="Used by the forms output generator before each entry is processed through"
^DD(353,50,23,2,0)="the extract process.  If the form has an associated PARENT FORM, and this"
^DD(353,50,23,3,0)="field is null, the PARENT FORM's ENTRY POST-PROCESSOR field will be executed."
^DD(353,50,"DT")="2951207"
^DD(353,51,0)="ENTRY POST-PROCESSOR^K^^POST;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(353,51,3)="This is Standard MUMPS code."
^DD(353,51,21,0)="^^4^4^2960313^^^^"
^DD(353,51,21,1,0)="The code that is executed after extracting data for an individual form"
^DD(353,51,21,2,0)="entry using the forms output generator.  Can be used to clean up variables"
^DD(353,51,21,3,0)="or do some ancillary processing such as update print date or printed by"
^DD(353,51,21,4,0)="fields."
^DD(353,51,23,0)="^^3^3^2960313^^^^"
^DD(353,51,23,1,0)="Used by the forms output generator after each entry is processed through the"
^DD(353,51,23,2,0)="extract process.  If the form has an associated PARENT FORM, and this field"
^DD(353,51,23,3,0)="is null, the PARENT FORM's ENTRY POST-PROCESSOR field will be executed."
^DD(353,51,"DT")="2951207"
^DD(353,52,0)="OUTPUT CODE^K^^OUT;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(353,52,3)="This is Standard MUMPS code."
^DD(353,52,9)="@"
^DD(353,52,21,0)="^^2^2^2960307^^^^"
^DD(353,52,21,1,0)="The code to xecute to actually print or transmit the form entry after all"
^DD(353,52,21,2,0)="fields have been extracted to the sort global."
^DD(353,52,"DT")="2951207"
^DD(353,53,0)="EXTRACT CODE^K^^EXT;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(353,53,3)="This is Standard MUMPS code."
^DD(353,53,9)="@"
^DD(353,53,21,0)="^^2^2^2960306^^"
^DD(353,53,21,1,0)="The code to xecute to actually extract data into the sort global for the"
^DD(353,53,21,2,0)="form entry."
^DD(353,53,"DT")="2960306"
^DD(353,54,0)="FORM PRE-PROCESSOR^K^^FPRE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(353,54,3)="This is Standard MUMPS code."
^DD(353,54,9)="@"
^DD(353,54,21,0)="^^2^2^2960313^^^^"
^DD(353,54,21,1,0)="The code that is executed before starting to extract any entries (using the"
^DD(353,54,21,2,0)="forms output generator) for this form."
^DD(353,54,23,0)="^^5^5^2960313^^^^"
^DD(353,54,23,1,0)="This code is executed when using the auto-generate feature of the forms"
^DD(353,54,23,2,0)="output generator to set up variables or do preliminary processing"
^DD(353,54,23,3,0)="before any entries selected have been extracted via the forms generator for"
^DD(353,54,23,4,0)="a form.  If the form has an associated PARENT FORM, and this field"
^DD(353,54,23,5,0)="is null, the PARENT FORM's FORM PRE-PROCESSOR field will be executed."
^DD(353,54,"DT")="2960307"
^DD(353,55,0)="FORM POST-PROCESSOR^K^^FPOST;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(353,55,3)="This is Standard MUMPS code."
^DD(353,55,21,0)="^^3^3^2960313^^^^"
^DD(353,55,21,1,0)="The code that is executed after all entries have been passed through the"
^DD(353,55,21,2,0)="forms output generator extract for this form.  Can be used to clean up any"
^DD(353,55,21,3,0)="variables used in processing."
^DD(353,55,23,0)="^^5^5^2960313^^^^"
^DD(353,55,23,1,0)="This code is executed when using the auto-generate feature of the forms"
^DD(353,55,23,2,0)="output generator to clean up or do any additional processing after all"
^DD(353,55,23,3,0)="entries selected have been extracted via the forms generator for a form."
^DD(353,55,23,4,0)="If the form has an associated PARENT FORM, and this field is null, the"
^DD(353,55,23,5,0)="PARENT FORM's FORM POST-PROCESSOR field will be executed."
^DD(353,55,"DT")="2960307"
^DD(353,"B","BASE FILE",2.01)=""
^DD(353,"B","DEFAULT PRINTER (BILLING)",.02)=""
^DD(353,"B","ENTRY POST-PROCESSOR",51)=""
^DD(353,"B","ENTRY PRE-PROCESSOR",50)=""
^DD(353,"B","EXTRACT CODE",53)=""
^DD(353,"B","FIELD DELIMITER",2.07)=""
^DD(353,"B","FOLLOW-UP PRINTER (A/R)",.03)=""
^DD(353,"B","FORM LENGTH",2.03)=""
^DD(353,"B","FORM POST-PROCESSOR",55)=""
^DD(353,"B","FORM PRE-PROCESSOR",54)=""
^DD(353,"B","FORMAT TYPE",2.02)=""
^DD(353,"B","LOCAL SCREEN 9",2.09)=""
^DD(353,"B","NAME",.01)=""
^DD(353,"B","NATIONAL FORM",2.04)=""
^DD(353,"B","NUMBER",.001)=""
^DD(353,"B","OUTPUT CODE",52)=""
^DD(353,"B","PARENT FORM",2.05)=""
^DD(353,"B","PRINT FORM NAME",2.08)=""
^DD(353,"B","ROUTINE",1.01)=""
^DD(353,"B","SHORT DESCRIPTION",2.06)=""
^DD(353,"GL",0,1,.01)=""
^DD(353,"GL",0,2,.02)=""
^DD(353,"GL",0,3,.03)=""
^DD(353,"GL",1,"E1,245",1.01)=""
^DD(353,"GL",2,1,2.01)=""
^DD(353,"GL",2,2,2.02)=""
^DD(353,"GL",2,3,2.03)=""
^DD(353,"GL",2,4,2.04)=""
^DD(353,"GL",2,5,2.05)=""
^DD(353,"GL",2,6,2.06)=""
^DD(353,"GL",2,7,2.07)=""
^DD(353,"GL",2,8,2.08)=""
^DD(353,"GL",2,9,2.09)=""
^DD(353,"GL","EXT","E1,245",53)=""
^DD(353,"GL","FPOST","E1,245",55)=""
^DD(353,"GL","FPRE","E1,245",54)=""
^DD(353,"GL","OUT","E1,245",52)=""
^DD(353,"GL","POST","E1,245",51)=""
^DD(353,"GL","PRE","E1,245",50)=""
^DD(353,"IX",.01)=""
^DD(353,"IX",2.02)=""
^DD(353,"RQ",.01)=""
^DD(353.1,0)="FIELD^^.03^3"
^DD(353.1,0,"DDA")="N"
^DD(353.1,0,"DT")="2920429"
^DD(353.1,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(353.1,0,"IX","B",353.1,.01)=""
^DD(353.1,0,"IX","C",353.1,.02)=""
^DD(353.1,0,"NM","PLACE OF SERVICE")=""
^DD(353.1,0,"PT",162.03,30)=""
^DD(353.1,0,"PT",399,168)=""
^DD(353.1,0,"PT",399.0304,8)=""
^DD(353.1,0,"VR")="2.0"
^DD(353.1,.01,0)="CODE^RF^^0;1^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(353.1,.01,1,0)="^.1"
^DD(353.1,.01,1,1,0)="353.1^B"
^DD(353.1,.01,1,1,1)="S ^IBE(353.1,""B"",$E(X,1,30),DA)="""""
^DD(353.1,.01,1,1,2)="K ^IBE(353.1,""B"",$E(X,1,30),DA)"
^DD(353.1,.01,3)="Answer must be 1-7 characters in length."
^DD(353.1,.01,21,0)="^^2^2^3060928^"
^DD(353.1,.01,21,1,0)="This is the code identifing the Place of Service associated"
^DD(353.1,.01,21,2,0)="with a visit.  Printed on the CMS-1500."
^DD(353.1,.01,"DT")="3060928"
^DD(353.1,.02,0)="NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(353.1,.02,1,0)="^.1"
^DD(353.1,.02,1,1,0)="353.1^C"
^DD(353.1,.02,1,1,1)="S ^IBE(353.1,""C"",$E(X,1,30),DA)="""""
^DD(353.1,.02,1,1,2)="K ^IBE(353.1,""C"",$E(X,1,30),DA)"
^DD(353.1,.02,1,1,3)="DO NOT DELETE"
^DD(353.1,.02,1,1,"DT")="2920630"
^DD(353.1,.02,3)="Answer must be 3-50 characters in length."
^DD(353.1,.02,21,0)="^^1^1^2920429^^^^"
^DD(353.1,.02,21,1,0)="This is the full name/description of this code."
^DD(353.1,.02,"DT")="2920630"
^DD(353.1,.03,0)="ABBREVIATION^RF^^0;3^K:$L(X)>20!($L(X)<2) X"
^DD(353.1,.03,3)="Answer must be 2-20 characters in length."
^DD(353.1,.03,21,0)="^^2^2^2920427^"
^DD(353.1,.03,21,1,0)="This is the abbreviation of the name of this entry.  This will most often"
^DD(353.1,.03,21,2,0)="be used for printing on reports."
^DD(353.1,.03,"DT")="2920427"
^DD(353.1,"B","ABBREVIATION",.03)=""
^DD(353.1,"B","CODE",.01)=""
^DD(353.1,"B","NAME",.02)=""
^DD(353.1,"GL",0,1,.01)=""
^DD(353.1,"GL",0,2,.02)=""
^DD(353.1,"GL",0,3,.03)=""
^DD(353.1,"IX",.01)=""
^DD(353.1,"IX",.02)=""
^DD(353.1,"RQ",.01)=""
^DD(353.1,"RQ",.02)=""
^DD(353.1,"RQ",.03)=""
^DD(353.2,0)="FIELD^^.03^3"
^DD(353.2,0,"DDA")="N"
^DD(353.2,0,"DT")="2920429"
^DD(353.2,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(353.2,0,"IX","B",353.2,.01)=""
^DD(353.2,0,"IX","C",353.2,.02)=""
^DD(353.2,0,"NM","TYPE OF SERVICE")=""
^DD(353.2,0,"PT",162.03,31)=""
^DD(353.2,0,"PT",399,169)=""
^DD(353.2,0,"PT",399.0304,9)=""
^DD(353.2,0,"VR")="2.0"
^DD(353.2,.01,0)="CODE^RF^^0;1^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(353.2,.01,1,0)="^.1"
^DD(353.2,.01,1,1,0)="353.2^B"
^DD(353.2,.01,1,1,1)="S ^IBE(353.2,""B"",$E(X,1,30),DA)="""""
^DD(353.2,.01,1,1,2)="K ^IBE(353.2,""B"",$E(X,1,30),DA)"
^DD(353.2,.01,3)="Answer must be 1-7 characters in length."
^DD(353.2,.01,21,0)="^^2^2^3060928^"
^DD(353.2,.01,21,1,0)="This is the code that identifies a Type of Service associated with a visit"
^DD(353.2,.01,21,2,0)="on the CMS-1500."
^DD(353.2,.01,"DT")="3060928"
^DD(353.2,.02,0)="NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(353.2,.02,1,0)="^.1"
^DD(353.2,.02,1,1,0)="353.2^C"
^DD(353.2,.02,1,1,1)="S ^IBE(353.2,""C"",$E(X,1,30),DA)="""""
^DD(353.2,.02,1,1,2)="K ^IBE(353.2,""C"",$E(X,1,30),DA)"
^DD(353.2,.02,1,1,3)="DO NOT DELETE"
^DD(353.2,.02,1,1,"DT")="2920630"
^DD(353.2,.02,3)="Answer must be 3-50 characters in length."
^DD(353.2,.02,21,0)="^^1^1^2920429^^^"
^DD(353.2,.02,21,1,0)="This is the full name/description of this Type of Service."
^DD(353.2,.02,"DT")="2920630"
^DD(353.2,.03,0)="ABBREVIATION^RF^^0;3^K:$L(X)>20!($L(X)<2) X"
^DD(353.2,.03,3)="Answer must be 2-20 characters in length."
^DD(353.2,.03,21,0)="^^2^2^2920427^"
^DD(353.2,.03,21,1,0)="This is the abbreviation of the name of this entry.  Will primarily be"
^DD(353.2,.03,21,2,0)="used for reports."
^DD(353.2,.03,"DT")="2920427"
^DD(353.2,"B","ABBREVIATION",.03)=""
^DD(353.2,"B","CODE",.01)=""
^DD(353.2,"B","NAME",.02)=""
^DD(353.2,"GL",0,1,.01)=""
^DD(353.2,"GL",0,2,.02)=""
^DD(353.2,"GL",0,3,.03)=""
^DD(353.2,"IX",.01)=""
^DD(353.2,"IX",.02)=""
^DD(353.2,"RQ",.01)=""
^DD(353.2,"RQ",.02)=""
^DD(353.2,"RQ",.03)=""
^DD(354,0)="FIELD^^60^6"
^DD(354,0,"DDA")="N"
^DD(354,0,"DT")="2940421"
^DD(354,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(354,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(354,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(354.2,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(354.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(354,0,"IX","AC",354,.05)=""
^DD(354,0,"IX","AD",354,.03)=""
^DD(354,0,"IX","AENR04",354,.04)=""
^DD(354,0,"IX","AEX",354,.04)=""
^DD(354,0,"IX","AIVM",354,50)=""
^DD(354,0,"IX","AVDT",354,60)=""
^DD(354,0,"IX","B",354,.01)=""
^DD(354,0,"NM","BILLING PATIENT")=""
^DD(354,0,"PT",354.1,.02)=""
^DD(354,0,"VR")="2.0"
^DD(354,.01,0)="PATIENT NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(354,.01,1,0)="^.1"
^DD(354,.01,1,1,0)="354^B"
^DD(354,.01,1,1,1)="S ^IBA(354,""B"",$E(X,1,30),DA)="""""
^DD(354,.01,1,1,2)="K ^IBA(354,""B"",$E(X,1,30),DA)"
^DD(354,.01,3)="Enter the name of the patient as it appears in the patient file or enter the SSN or last four."
^DD(354,.01,21,0)="^^1^1^2930121^^"
^DD(354,.01,21,1,0)="This is the name of the patient as it appears in the patient file."
^DD(354,.01,23,0)="^^2^2^2930121^^"
^DD(354,.01,23,1,0)="This field is the pointer to the PATIENT file.  It will use the same"
^DD(354,.01,23,2,0)="internal entry number in this file as in the PATIENT file."
^DD(354,.01,"DEL",1,0)="I 1 W !,""Deleting entries not allowed"""
^DD(354,.01,"DT")="2930121"
^DD(354,.03,0)="COPAY EXEMPTION STATUS DATE^RDX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X K:X'=$P(^IBA(354,DA,0),U,3) X"
^DD(354,.03,.1)="CURRENT RX COPAY INCOME EXEMPTION STATUS DATE"
^DD(354,.03,1,0)="^.1"
^DD(354,.03,1,1,0)="354^AD"
^DD(354,.03,1,1,1)="S ^IBA(354,""AD"",$E(X,1,30),DA)="""""
^DD(354,.03,1,1,2)="K ^IBA(354,""AD"",$E(X,1,30),DA)"
^DD(354,.03,1,1,"DT")="2930121"
^DD(354,.03,3)="Enter the date of the current income exemption."
^DD(354,.03,5,1,0)="354^.04^2"
^DD(354,.03,9)="^"
^DD(354,.03,21,0)="^^5^5^2940213^^^^"
^DD(354,.03,21,1,0)="DO NOT EDIT THIS FIELD.  It is maintained by the Copay Exemption Software."
^DD(354,.03,21,2,0)=" "
^DD(354,.03,21,3,0)="This is the date that this patients Medication Copay Income Exemption "
^DD(354,.03,21,4,0)="Status was last updated.  If this date is not in the current calendar "
^DD(354,.03,21,5,0)="year this patient will be flagged as needing to have his status updated."
^DD(354,.03,23,0)="^^5^5^2940213^^^^"
^DD(354,.03,23,1,0)="This field will be updated by the Copay Exemption software every time"
^DD(354,.03,23,2,0)="a new current exemption is added.  It should not be edited."
^DD(354,.03,23,3,0)=" "
^DD(354,.03,23,4,0)="Programmers must 4 slash stuff data into this field to bypass the input"
^DD(354,.03,23,5,0)="transform."
^DD(354,.03,"DT")="2930210"
^DD(354,.04,0)="COPAY INCOME EXEMPTION STATUS^R*S^1:EXEMPT;0:NON-EXEMPT;^0;4^Q"
^DD(354,.04,.1)="RX COPAY CURRENT INCOME EXEMPTION STATUS"
^DD(354,.04,1,0)="^.1"
^DD(354,.04,1,1,0)="354^AEX"
^DD(354,.04,1,1,1)="S ^IBA(354,""AEX"",$E(X,1,30),DA)="""""
^DD(354,.04,1,1,2)="K ^IBA(354,""AEX"",$E(X,1,30),DA)"
^DD(354,.04,1,1,"%D",0)="^^2^2^2930429^^^"
^DD(354,.04,1,1,"%D",1,0)="This is a regular cross-reference of the Pharmacy Copay Income Exemption"
^DD(354,.04,1,1,"%D",2,0)="Status of patients for their most recent status."
^DD(354,.04,1,1,"DT")="2921109"
^DD(354,.04,1,2,0)="^^TRIGGER^354^.03"
^DD(354,.04,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^IBA(354,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=354,DIG=.03 D ^DICR"
^DD(354,.04,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(354,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(354,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=354,DIG=.03 D ^DICR"
^DD(354,.04,1,2,"CREATE VALUE")="S X=DT"
^DD(354,.04,1,2,"DELETE VALUE")="@"
^DD(354,.04,1,2,"DT")="3040610"
^DD(354,.04,1,2,"FIELD")="#.03"
^DD(354,.04,1,3,0)="354^AENR04^MUMPS"
^DD(354,.04,1,3,1)="D E354^DGRTRIG(DA)"
^DD(354,.04,1,3,2)="D E354^DGRTRIG(DA)"
^DD(354,.04,1,3,3)=" DO NOT DELETE"
^DD(354,.04,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(354,.04,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(354,.04,1,3,"%D",2,0)="enrollment."
^DD(354,.04,1,3,"DT")="3050913"
^DD(354,.04,3)="Enter whether this patient is currently exempt from pharmacy copay due to the income exemption."
^DD(354,.04,9)="^"
^DD(354,.04,12)="This field can only be edited/updated by the Copay Exemption software."
^DD(354,.04,12.1)="S DIC(""S"")=""I $P(^IBA(354,DA,0),U,4)=Y!($G(IBJOB)>10)"""
^DD(354,.04,21,0)="^^10^10^2930429^^^^"
^DD(354,.04,21,1,0)="DO NOT EDIT THIS FIELD.  It is maintained by the Copay Exemption Software."
^DD(354,.04,21,2,0)=" "
^DD(354,.04,21,3,0)="This is the patients current Medication Copay Income Exemption Status.  It"
^DD(354,.04,21,4,0)="is updated whenever an entry in the Billing Exemptions file is made."
^DD(354,.04,21,5,0)=" "
^DD(354,.04,21,6,0)="If a patient's income is less than the pension level, effective 10/29/92"
^DD(354,.04,21,7,0)="the patient is exempt from paying the Medication Copayment.  If a patient"
^DD(354,.04,21,8,0)="is receiving a VA Pension, or is receiving Aid and Attendence or House"
^DD(354,.04,21,9,0)="Bound benefits, or his income for the previous year is less than the"
^DD(354,.04,21,10,0)="pension level, he is exempt."
^DD(354,.04,23,0)="^^6^6^2930429^^^"
^DD(354,.04,23,1,0)=" "
^DD(354,.04,23,2,0)="This field will be updated by the Copay Exemption software every time"
^DD(354,.04,23,3,0)="a new current exemption is added.  It should not be edited."
^DD(354,.04,23,4,0)=" "
^DD(354,.04,23,5,0)="Programmers must 4 slash stuff data into this field to bypass the input"
^DD(354,.04,23,6,0)="transform."
^DD(354,.04,"DT")="3050913"
^DD(354,.05,0)="COPAY EXEMPTION REASON^R*P354.2'^IBE(354.2,^0;5^S DIC(""S"")=""I Y=$P(^IBA(354,DA,0),U,5)!($G(IBJOB)>10)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(354,.05,1,0)="^.1"
^DD(354,.05,1,1,0)="354^AC"
^DD(354,.05,1,1,1)="S ^IBA(354,""AC"",$E(X,1,30),DA)="""""
^DD(354,.05,1,1,2)="K ^IBA(354,""AC"",$E(X,1,30),DA)"
^DD(354,.05,1,1,"DT")="2930120"
^DD(354,.05,9)="^"
^DD(354,.05,12)="This field can only be edited/updated by the Copay Exemption software."
^DD(354,.05,12.1)="S DIC(""S"")=""I Y=$P(^IBA(354,DA,0),U,5)!($G(IBJOB)>10)"""
^DD(354,.05,21,0)="^^4^4^2930429^^^^"
^DD(354,.05,21,1,0)="DO NOT EDIT THIS FIELD.  It is maintained by the Copay Exemption Software."
^DD(354,.05,21,2,0)=" "
^DD(354,.05,21,3,0)="This is the exemption reason for the current copay exemption.  It will"
^DD(354,.05,21,4,0)="be entered by the system.  "
^DD(354,.05,23,0)="^^6^6^2930429^^^"
^DD(354,.05,23,1,0)=" "
^DD(354,.05,23,2,0)="This field will be updated by the Copay Exemption software every time"
^DD(354,.05,23,3,0)="a new current exemption is added.  It should not be edited."
^DD(354,.05,23,4,0)=" "
^DD(354,.05,23,5,0)="Programmers must 4 slash stuff data into this field to bypass the input"
^DD(354,.05,23,6,0)="transform."
^DD(354,.05,"DT")="2930210"
^DD(354,50,0)="EVER HAD IVM INSURANCE?^S^0:NO;1:YES;^IVM;1^Q"
^DD(354,50,1,0)="^.1"
^DD(354,50,1,1,0)="354^AIVM^MUMPS"
^DD(354,50,1,1,1)="I X=1 S ^IBA(354,""AIVM"",DA)="""""
^DD(354,50,1,1,2)="K ^IBA(354,""AIVM"",DA)"
^DD(354,50,1,1,"%D",0)="^^2^2^2940421^"
^DD(354,50,1,1,"%D",1,0)="This cross-reference flags patients who have (or have ever had)"
^DD(354,50,1,1,"%D",2,0)="insurance identified by IVM."
^DD(354,50,1,1,"DT")="2940421"
^DD(354,50,3)="If patient has ever had insurance identified by IVM, type ""YES""; otherwise, ""NO""."
^DD(354,50,21,0)="^^2^2^2940422^^^"
^DD(354,50,21,1,0)="This field flags patients who have ever had at least one insurance"
^DD(354,50,21,2,0)="policy that was identified by the IVM Center. "
^DD(354,50,"DT")="2940421"
^DD(354,60,0)="NO COVERAGE VERIFICATION DATE^D^^60;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354,60,1,0)="^.1"
^DD(354,60,1,1,0)="354^AVDT"
^DD(354,60,1,1,1)="S ^IBA(354,""AVDT"",$E(X,1,30),DA)="""""
^DD(354,60,1,1,2)="K ^IBA(354,""AVDT"",$E(X,1,30),DA)"
^DD(354,60,1,1,3)="Do not delete."
^DD(354,60,1,1,"%D",0)="^^2^2^2981008^^"
^DD(354,60,1,1,"%D",1,0)="This cross-reference is used to list the date patients were"
^DD(354,60,1,1,"%D",2,0)="verified that they have no insurance coverage."
^DD(354,60,1,1,"DT")="2981008"
^DD(354,60,3)="Enter the date verification was made that the patient has no insurance coverage."
^DD(354,60,21,0)="^^3^3^2981103^^^"
^DD(354,60,21,1,0)="This field contains the date that verification was made that this patient"
^DD(354,60,21,2,0)="does not have any type of insurance coverage.   When a policy is"
^DD(354,60,21,3,0)="entered for a patient, this field will be deleted."
^DD(354,60,"DT")="2981008"
^DD(354,"B","COPAY EXEMPTION REASON",.05)=""
^DD(354,"B","COPAY EXEMPTION STATUS DATE",.03)=""
^DD(354,"B","COPAY INCOME EXEMPTION STATUS",.04)=""
^DD(354,"B","EVER HAD IVM INSURANCE?",50)=""
^DD(354,"B","NO COVERAGE VERIFICATION DATE",60)=""
^DD(354,"B","PATIENT NAME",.01)=""
^DD(354,"GL",0,1,.01)=""
^DD(354,"GL",0,3,.03)=""
^DD(354,"GL",0,4,.04)=""
^DD(354,"GL",0,5,.05)=""
^DD(354,"GL",60,1,60)=""
^DD(354,"GL","IVM",1,50)=""
^DD(354,"IX",.01)=""
^DD(354,"IX",.03)=""
^DD(354,"IX",.04)=""
^DD(354,"IX",.05)=""
^DD(354,"IX",50)=""
^DD(354,"IX",60)=""
^DD(354,"RQ",.01)=""
^DD(354,"RQ",.03)=""
^DD(354,"RQ",.04)=""
^DD(354,"RQ",.05)=""
^DD(354.1,0)="FIELD^^.16^16"
^DD(354.1,0,"DDA")="N"
^DD(354.1,0,"DT")="2950327"
^DD(354.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(354,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(354,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(354.1,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(354.1,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(354.1,0,"ID",.1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(354.1,.1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,10)_"""":"""",2),$C(59),1)"")"
^DD(354.1,0,"IX","AA",354.1,.1)=""
^DD(354.1,0,"IX","ACAN",354.1,.14)=""
^DD(354.1,0,"IX","ACAN1",354.1,.02)=""
^DD(354.1,0,"IX","ACY",354.1,.01)=""
^DD(354.1,0,"IX","ACY2",354.1,.1)=""
^DD(354.1,0,"IX","ACY3",354.1,.03)=""
^DD(354.1,0,"IX","AIVDT",354.1,.01)=""
^DD(354.1,0,"IX","AIVDT1",354.1,.1)=""
^DD(354.1,0,"IX","AIVDT2",354.1,.02)=""
^DD(354.1,0,"IX","AIVDT3",354.1,.03)=""
^DD(354.1,0,"IX","ALERT",354.1,.09)=""
^DD(354.1,0,"IX","AP",354.1,.02)=""
^DD(354.1,0,"IX","APIDT",354.1,.02)=""
^DD(354.1,0,"IX","APIDT1",354.1,.01)=""
^DD(354.1,0,"IX","APIDT2",354.1,.03)=""
^DD(354.1,0,"IX","APRIOR",354.1,.15)=""
^DD(354.1,0,"IX","AR",354.1,.05)=""
^DD(354.1,0,"IX","AS",354.1,.04)=""
^DD(354.1,0,"IX","B",354.1,.01)=""
^DD(354.1,0,"IX","C",354.1,.02)=""
^DD(354.1,0,"NM","BILLING EXEMPTIONS")=""
^DD(354.1,0,"VR")="2.0"
^DD(354.1,.01,0)="EFFECTIVE DATE^RDI^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354.1,.01,.1)=""
^DD(354.1,.01,1,0)="^.1^^-1"
^DD(354.1,.01,1,1,0)="354.1^B"
^DD(354.1,.01,1,1,1)="S ^IBA(354.1,""B"",$E(X,1,30),DA)="""""
^DD(354.1,.01,1,1,2)="K ^IBA(354.1,""B"",$E(X,1,30),DA)"
^DD(354.1,.01,1,2,0)="354.1^ACY^MUMPS"
^DD(354.1,.01,1,2,1)="I $P(^IBA(354.1,DA,0),""^"",2),$P(^(0),U,3),$P(^(0),U,10) S ^IBA(354.1,""ACY"",+$P(^(0),""^"",3),+$P(^(0),""^"",2),$E(X,1,3),DA)="""""
^DD(354.1,.01,1,2,2)="K ^IBA(354.1,""ACY"",+$P(^IBA(354.1,DA,0),""^"",3),+$P(^(0),U,2),$E(X,1,3),DA)"
^DD(354.1,.01,1,2,"%D",0)="^^3^3^2921209^^^^"
^DD(354.1,.01,1,2,"%D",1,0)="Cross-reference of all ACTIVE entries for a patient for an effective"
^DD(354.1,.01,1,2,"%D",2,0)="date.  For Pharmacy Co-pay income exemption this equates to calendar"
^DD(354.1,.01,1,2,"%D",3,0)="year (CY).          "
^DD(354.1,.01,1,2,"DT")="2921118"
^DD(354.1,.01,1,3,0)="354.1^AIVDT^MUMPS"
^DD(354.1,.01,1,3,1)="N IBX S IBX=^IBA(354.1,DA,0) I $P(IBX,U,2),$P(IBX,U,3),$P(IBX,U,4)'="""",$P(IBX,U,10) S ^IBA(354.1,""AIVDT"",+$P(IBX,U,3),+$P(IBX,U,2),-($P(IBX,U)),DA)="""""
^DD(354.1,.01,1,3,2)="K ^IBA(354.1,""AIVDT"",+$P(^IBA(354.1,DA,0),U,3),+$P(^(0),U,2),-X,DA)"
^DD(354.1,.01,1,3,"%D",0)="^^1^1^2940213^"
^DD(354.1,.01,1,3,"%D",1,0)="Inverse date cross reference of all exemption entries for a patient."
^DD(354.1,.01,1,3,"DT")="2921110"
^DD(354.1,.01,1,4,0)="354.1^APIDT1^MUMPS"
^DD(354.1,.01,1,4,1)="I $P(^IBA(354.1,DA,0),U,2),$P(^(0),U,3) S ^IBA(354.1,""APIDT"",+$P(^(0),U,2),+$P(^(0),U,3),-X,DA)="""""
^DD(354.1,.01,1,4,2)="K ^IBA(354.1,""APIDT"",+$P(^IBA(354.1,DA,0),U,2),+$P(^(0),U,3),-X,DA)"
^DD(354.1,.01,1,4,"%D",0)="^^1^1^2940213^"
^DD(354.1,.01,1,4,"%D",1,0)="Cross reference of all exemptions by patient, by type and by inverse date."
^DD(354.1,.01,1,4,"DT")="2921116"
^DD(354.1,.01,3)=""
^DD(354.1,.01,21,0)="^^7^7^2921209^^^^"
^DD(354.1,.01,21,1,0)="Enter the effective date of the exemption.  "
^DD(354.1,.01,21,2,0)=" "
^DD(354.1,.01,21,3,0)="Patients will be given 1 year of exemption from the Medication Copayment"
^DD(354.1,.01,21,4,0)="requirement from this effective date.  For patients who's exemption is"
^DD(354.1,.01,21,5,0)="based on income data, every effort will be made to keep this effective"
^DD(354.1,.01,21,6,0)="date consistent with the Means Test Date of Test or the Copayment"
^DD(354.1,.01,21,7,0)="Income Test Date of Test."
^DD(354.1,.01,"DEL",1,0)="I 1 W !,""Deleting entries not allowed"""
^DD(354.1,.01,"DT")="2930407"
^DD(354.1,.02,0)="PATIENT^RP354'I^IBA(354,^0;2^Q"
^DD(354.1,.02,.1)="BILLING PATIENT"
^DD(354.1,.02,1,0)="^.1"
^DD(354.1,.02,1,1,0)="354.1^AP"
^DD(354.1,.02,1,1,1)="S ^IBA(354.1,""AP"",$E(X,1,30),DA)="""""
^DD(354.1,.02,1,1,2)="K ^IBA(354.1,""AP"",$E(X,1,30),DA)"
^DD(354.1,.02,1,1,"%D",0)="^^1^1^2921110^"
^DD(354.1,.02,1,1,"%D",1,0)="Cross-reference of Patient."
^DD(354.1,.02,1,1,"DT")="2921110"
^DD(354.1,.02,1,2,0)="354.1^AIVDT2^MUMPS"
^DD(354.1,.02,1,2,1)="N IBX S IBX=^IBA(354.1,DA,0) I $P(IBX,U,2),$P(IBX,U,3),$P(IBX,U,4)'="""",$P(IBX,U,10) S ^IBA(354.1,""AIVDT"",+$P(IBX,U,3),+$P(IBX,U,2),-($P(IBX,U)),DA)="""""
^DD(354.1,.02,1,2,2)="K ^IBA(354.1,""AIVDT"",+$P(^IBA(354.1,DA,0),""^"",3),+X,-($P(^(0),U)),DA)"
^DD(354.1,.02,1,2,"DT")="2921110"
^DD(354.1,.02,1,3,0)="354.1^C"
^DD(354.1,.02,1,3,1)="S ^IBA(354.1,""C"",$E(X,1,30),DA)="""""
^DD(354.1,.02,1,3,2)="K ^IBA(354.1,""C"",$E(X,1,30),DA)"
^DD(354.1,.02,1,3,"%D",0)="^^2^2^2940213^^^^"
^DD(354.1,.02,1,3,"%D",1,0)="Cross-reference of all ACTIVE entries for a patient by calendar"
^DD(354.1,.02,1,3,"%D",2,0)="year (CY).  This equates to $e(effective date,1,3)."
^DD(354.1,.02,1,3,"DT")="2921223"
^DD(354.1,.02,1,4,0)="354.1^APIDT^MUMPS"
^DD(354.1,.02,1,4,1)="I $P(^IBA(354.1,DA,0),U,3),+^(0) S ^IBA(354.1,""APIDT"",X,+$P(^(0),U,3),-($P(^(0),U)),DA)="""""
^DD(354.1,.02,1,4,2)="K ^IBA(354.1,""APIDT"",+X,+$P(^IBA(354.1,DA,0),U,3),-($P(^(0),U)),DA)"
^DD(354.1,.02,1,4,"%D",0)="^^1^1^2940213^^^^"
^DD(354.1,.02,1,4,"%D",1,0)="Cross-reference of all records by patient, by type, by inverse date."
^DD(354.1,.02,1,4,"DT")="2921118"
^DD(354.1,.02,1,5,0)="354.1^ACAN1^MUMPS"
^DD(354.1,.02,1,5,1)="I $P(^IBA(354.1,DA,0),""^"",14) S ^IBA(354.1,""ACAN"",X,-$P(^(0),""^"",14),DA)="""""
^DD(354.1,.02,1,5,2)="K ^IBA(354.1,""ACAN"",X,-$P(^IBA(354.1,DA,0),""^"",14),DA)"
^DD(354.1,.02,1,5,3)="DO NOT DELETE"
^DD(354.1,.02,1,5,"%D",0)="^^6^6^2930430^^^^"
^DD(354.1,.02,1,5,"%D",1,0)="This cross-reference is set whenever bills are retroactively canceled "
^DD(354.1,.02,1,5,"%D",2,0)="due to the medication copayment exemption patch.  It is used to"
^DD(354.1,.02,1,5,"%D",3,0)="prevent canceling charges in AR a second time.  This is"
^DD(354.1,.02,1,5,"%D",4,0)="necessary because the direct link between IB and AR is not maintained"
^DD(354.1,.02,1,5,"%D",5,0)="for this functionality as it is necessary to remove admin and interest"
^DD(354.1,.02,1,5,"%D",6,0)="charges that may have accumulated."
^DD(354.1,.02,1,5,"DT")="2930113"
^DD(354.1,.02,21,0)="^^3^3^2921209^^^"
^DD(354.1,.02,21,1,0)="This is the patient that this Billing Exemption Entry is for.  "
^DD(354.1,.02,21,2,0)="The Patient must be in the Billing Patient File.  The Current Status for"
^DD(354.1,.02,21,3,0)="an exemption will be automatically stored in the Billing Patient file."
^DD(354.1,.02,"DT")="2930204"
^DD(354.1,.03,0)="TYPE^RSI^1:COPAY INCOME EXEMPTION;^0;3^Q"
^DD(354.1,.03,1,0)="^.1^^-1"
^DD(354.1,.03,1,1,0)="354.1^AIVDT3^MUMPS"
^DD(354.1,.03,1,1,1)="N IBX S IBX=^IBA(354.1,DA,0) I $P(IBX,U,2),$P(IBX,U,3),$P(IBX,U,4)'="""",$P(IBX,U,10) S ^IBA(354.1,""AIVDT"",+$P(IBX,U,3),+$P(IBX,U,2),-($P(IBX,U)),DA)="""""
^DD(354.1,.03,1,1,2)="K ^IBA(354.1,""AIVDT"",+X,+$P(^IBA(354.1,DA,0),U,2),-($P(^(0),U)),DA)"
^DD(354.1,.03,1,1,"%D",0)="^^2^2^2940213^"
^DD(354.1,.03,1,1,"%D",1,0)="Inverse date cross reference of all exemptions for a patient for a type of"
^DD(354.1,.03,1,1,"%D",2,0)="exemption."
^DD(354.1,.03,1,1,"DT")="2921110"
^DD(354.1,.03,1,2,0)="354.1^APIDT2^MUMPS"
^DD(354.1,.03,1,2,1)="I $P(^IBA(354.1,DA,0),U,2),+^(0) S ^IBA(354.1,""APIDT"",+$P(^(0),U,2),+X,-($P(^(0),U)),DA)="""""
^DD(354.1,.03,1,2,2)="K ^IBA(354.1,""APIDT"",+$P(^IBA(354.1,DA,0),U,2),+X,-($P(^(0),U)),DA)"
^DD(354.1,.03,1,2,"%D",0)="^^1^1^2940213^^^^"
^DD(354.1,.03,1,2,"%D",1,0)="Cross-reference of all records by patient, by type, by inverse date."
^DD(354.1,.03,1,2,"DT")="2921118"
^DD(354.1,.03,1,3,0)="354.1^ACY3^MUMPS"
^DD(354.1,.03,1,3,1)="I $P(^IBA(354.1,DA,0),U,2),+^(0) S ^IBA(354.1,""ACY"",+X,+$P(^(0),U,2),+$E($P(^(0),U),1,3),DA)="""""
^DD(354.1,.03,1,3,2)="K ^IBA(354.1,""ACY"",+X,+$P(^IBA(354.1,DA,0),U,2),+$E($P(^(0),U),1,3),DA)"
^DD(354.1,.03,1,3,"%D",0)="^^1^1^2940213^"
^DD(354.1,.03,1,3,"%D",1,0)="Cross reference of all active entries for a patient by inverse date."
^DD(354.1,.03,1,3,"DT")="2921118"
^DD(354.1,.03,21,0)="^^2^2^2930429^^^^"
^DD(354.1,.03,21,1,0)="This is the type of exemption that this entry is for.  Each type of "
^DD(354.1,.03,21,2,0)="exemption will have its own record."
^DD(354.1,.03,23,0)="^^2^2^2930429^^^^"
^DD(354.1,.03,23,1,0)="Currently there is only one type of record. Pharmacy Copay Exemptions"
^DD(354.1,.03,23,2,0)="based on income."
^DD(354.1,.03,"DT")="2930204"
^DD(354.1,.04,0)="STATUS^RSI^1:EXEMPT;0:NON-EXEMPT;^0;4^Q"
^DD(354.1,.04,.1)="EXEMPTION STATUS"
^DD(354.1,.04,1,0)="^.1"
^DD(354.1,.04,1,1,0)="354.1^AS"
^DD(354.1,.04,1,1,1)="S ^IBA(354.1,""AS"",$E(X,1,30),DA)="""""
^DD(354.1,.04,1,1,2)="K ^IBA(354.1,""AS"",$E(X,1,30),DA)"
^DD(354.1,.04,1,1,"%D",0)="^^1^1^2921110^"
^DD(354.1,.04,1,1,"%D",1,0)="Cross-reference of Status."
^DD(354.1,.04,1,1,"DT")="2921110"
^DD(354.1,.04,21,0)="^^3^3^2921209^^"
^DD(354.1,.04,21,1,0)="This is the Exemption Status of this record.  Enter whether the"
^DD(354.1,.04,21,2,0)="patient is exempt or not exempt from the TYPE of billing of this"
^DD(354.1,.04,21,3,0)="record.  Generally this data element will be entered by the system."
^DD(354.1,.04,"DT")="2930204"
^DD(354.1,.05,0)="EXEMPTION REASON^RP354.2'I^IBE(354.2,^0;5^Q"
^DD(354.1,.05,1,0)="^.1"
^DD(354.1,.05,1,1,0)="354.1^AR"
^DD(354.1,.05,1,1,1)="S ^IBA(354.1,""AR"",$E(X,1,30),DA)="""""
^DD(354.1,.05,1,1,2)="K ^IBA(354.1,""AR"",$E(X,1,30),DA)"
^DD(354.1,.05,1,1,"%D",0)="^^1^1^2921110^"
^DD(354.1,.05,1,1,"%D",1,0)="Cross-reference of Exemption Reasons."
^DD(354.1,.05,1,1,"DT")="2921110"
^DD(354.1,.05,21,0)="^^6^6^2930429^^^"
^DD(354.1,.05,21,1,0)="Enter the reason that the patient is exempt or not exempt from this type"
^DD(354.1,.05,21,2,0)="of billing.  Entry of this field will automatically update the STATUS"
^DD(354.1,.05,21,3,0)="of this exemption record to the STATUS of the Exemption Reason.  "
^DD(354.1,.05,21,4,0)="For exmple, an exemption reason of ""In Receipt of Pension"" will"
^DD(354.1,.05,21,5,0)="automatically trigger a STATUS of Exempt for the Pharmacy Copay"
^DD(354.1,.05,21,6,0)="Income Exemption."
^DD(354.1,.05,"DT")="2930204"
^DD(354.1,.06,0)="HOW ADDED^S^1:SYSTEM;2:MANUAL;^0;6^Q"
^DD(354.1,.06,21,0)="^^4^4^2930429^^^^"
^DD(354.1,.06,21,1,0)="This field indicates whether this record was automatically added"
^DD(354.1,.06,21,2,0)="by the system or manually entered by a user."
^DD(354.1,.06,21,3,0)=" "
^DD(354.1,.06,21,4,0)="This field will always be entered by the system."
^DD(354.1,.06,23,0)="^^5^5^2930429^^"
^DD(354.1,.06,23,1,0)="This field is updated to manual whenever a user creates an entry that"
^DD(354.1,.06,23,2,0)="does not appear to be consistent with the data returned from MAS or"
^DD(354.1,.06,23,3,0)="when adding a hardship exemption.  Whenever this field is set to"
^DD(354.1,.06,23,4,0)="manual an electronic signature should be required and a bulletin or"
^DD(354.1,.06,23,5,0)="alert sent to an appropriate group."
^DD(354.1,.06,"DT")="2921209"
^DD(354.1,.07,0)="USER ADDING ENTRY^P200'I^VA(200,^0;7^Q"
^DD(354.1,.07,21,0)="^^8^8^2930430^^^^"
^DD(354.1,.07,21,1,0)="This is the user who was responsible for adding this entry.  If the "
^DD(354.1,.07,21,2,0)="entry was SYSTEM added then the user would be the signed "
^DD(354.1,.07,21,3,0)="on user when the exemption was created.  This may be a user who"
^DD(354.1,.07,21,4,0)="edited the patient record or who entered a prescription or a"
^DD(354.1,.07,21,5,0)="user who corrected an exemption.  All changes except Hardship"
^DD(354.1,.07,21,6,0)="exemptions will be considered SYSTEM added."
^DD(354.1,.07,21,7,0)="If the entry was Manually added then this is the user who"
^DD(354.1,.07,21,8,0)="entered the Hardship exemption."
^DD(354.1,.07,"DT")="2930204"
^DD(354.1,.08,0)="DATE/TIME ADDED^RDI^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(354.1,.08,3)=""
^DD(354.1,.08,21,0)="^^7^7^2921209^^^"
^DD(354.1,.08,21,1,0)="This is the date and time this entry was added."
^DD(354.1,.08,21,2,0)=" "
^DD(354.1,.08,21,3,0)="The date time added will be different from the effective date in many"
^DD(354.1,.08,21,4,0)="cases, where the entry is based on actual income data and where there"
^DD(354.1,.08,21,5,0)="are changes to an exemption status.  When the exemption is based upon"
^DD(354.1,.08,21,6,0)="the fact that the patient is recieving pension, etc. the effective date"
^DD(354.1,.08,21,7,0)="and the date added may be the same."
^DD(354.1,.08,"DT")="2930204"
^DD(354.1,.09,0)="ALERT^P354.4'^IBA(354.4,^0;9^Q"
^DD(354.1,.09,1,0)="^.1"
^DD(354.1,.09,1,1,0)="354.1^ALERT"
^DD(354.1,.09,1,1,1)="S ^IBA(354.1,""ALERT"",$E(X,1,30),DA)="""""
^DD(354.1,.09,1,1,2)="K ^IBA(354.1,""ALERT"",$E(X,1,30),DA)"
^DD(354.1,.09,1,1,"%D",0)="^^1^1^2930204^"
^DD(354.1,.09,1,1,"%D",1,0)="This is an index of alerted exemptions."
^DD(354.1,.09,1,1,"DT")="2930204"
^DD(354.1,.09,3)=""
^DD(354.1,.09,21,0)="^^1^1^2921209^"
^DD(354.1,.09,21,1,0)="Future use."
^DD(354.1,.09,21,2,0)="An alert or mail message may be posted in association with the creation"
^DD(354.1,.09,21,3,0)="or editing of an exemption record.  If Alerts are used, then this field"
^DD(354.1,.09,21,4,0)="will store the pointer to the alert entry.  Once an alert has been"
^DD(354.1,.09,21,5,0)="resolved it will be deleted."
^DD(354.1,.09,"DT")="2930204"
^DD(354.1,.1,0)="ACTIVE^R*S^1:ACTIVE;0:INACTIVE;^0;10^Q"
^DD(354.1,.1,.1)="CURRENTLY ACTIVE"
^DD(354.1,.1,1,0)="^.1^^-1"
^DD(354.1,.1,1,1,0)="354.1^AA"
^DD(354.1,.1,1,1,1)="S ^IBA(354.1,""AA"",$E(X,1,30),DA)="""""
^DD(354.1,.1,1,1,2)="K ^IBA(354.1,""AA"",$E(X,1,30),DA)"
^DD(354.1,.1,1,1,"%D",0)="^^1^1^2921110^"
^DD(354.1,.1,1,1,"%D",1,0)="Cross-reference of Active Records."
^DD(354.1,.1,1,1,"DT")="2921110"
^DD(354.1,.1,1,2,0)="354.1^AIVDT1^MUMPS"
^DD(354.1,.1,1,2,1)="N IBX S IBX=^IBA(354.1,DA,0) I +X,$P(IBX,U,2),$P(IBX,U,3),$P(IBX,U,4)'="""" S ^IBA(354.1,""AIVDT"",+$P(IBX,U,3),+$P(IBX,U,2),-($P(IBX,U)),DA)="""""
^DD(354.1,.1,1,2,2)="N IBX S IBX=^IBA(354.1,DA,0) K ^IBA(354.1,""AIVDT"",+$P(IBX,U,3),+$P(IBX,U,2),-($P(IBX,U)),DA)"
^DD(354.1,.1,1,2,"%D",0)="^^4^4^2930430^^^^"
^DD(354.1,.1,1,2,"%D",1,0)="If this is the active record, patient has been entered, type has been"
^DD(354.1,.1,1,2,"%D",2,0)="entered, status has been entered; set up an inverse cross reference."
^DD(354.1,.1,1,2,"%D",3,0)=" "
^DD(354.1,.1,1,2,"%D",4,0)="^iba(354.1,""aivdt"",type,patient,inverse effective date,da)="""""
^DD(354.1,.1,1,2,"DT")="2921110"
^DD(354.1,.1,1,3,0)="354.1^ACY2^MUMPS"
^DD(354.1,.1,1,3,1)="I X,+$P(^IBA(354.1,DA,0),U,2),+$P(^(0),U,3),+^(0) S ^IBA(354.1,""ACY"",+$P(^(0),U,3),+$P(^(0),U,2),+$E($P(^(0),U),1,3),DA)="""""
^DD(354.1,.1,1,3,2)="K ^IBA(354.1,""ACY"",+$P(^IBA(354.1,DA,0),U,3),+$P(^(0),U,2),+$E($P(^(0),U),1,3),DA)"
^DD(354.1,.1,1,3,"%D",0)="^^2^2^2940213^^^^"
^DD(354.1,.1,1,3,"%D",1,0)="Cross-reference of all ACTIVE entries for a patient by calendar"
^DD(354.1,.1,1,3,"%D",2,0)="year (CY).  This equates to $e(effective date,1,3)."
^DD(354.1,.1,1,3,"DT")="2921118"
^DD(354.1,.1,12)="Only 1 entry for a patient for an effective date can be active at one time"
^DD(354.1,.1,12.1)="S DIC(""S"")=""I $$ACTIVE^IBARXEU(X)"""
^DD(354.1,.1,21,0)="^^4^4^2930430^^^^"
^DD(354.1,.1,21,1,0)="Only 1 record for an effective date can be active at a time.  When"
^DD(354.1,.1,21,2,0)="it is necessary to change a patient's exemption status the user will"
^DD(354.1,.1,21,3,0)="be asked if this is the currently active record.  If yes, then all "
^DD(354.1,.1,21,4,0)="other records for the effective date will be inactivated automatically."
^DD(354.1,.1,"DT")="2930204"
^DD(354.1,.11,0)="ELECTRONIC SIGNATURE^FO^^0;11^K:$L(X)>20!($L(X)<6) X"
^DD(354.1,.11,2)="S Y(0)=Y S Y(0)=Y S Y=""<Hidden>"""
^DD(354.1,.11,2.1)="S Y(0)=Y S Y=""<Hidden>"""
^DD(354.1,.11,3)="Answer must be 6-20 characters in length."
^DD(354.1,.11,21,0)="^^4^4^2930430^^^"
^DD(354.1,.11,21,1,0)="Enter your Electronic Signature.  This field will be required whenever"
^DD(354.1,.11,21,2,0)="a user trys to create an exemption that is different from the"
^DD(354.1,.11,21,3,0)="exemption computed by the system.  This would"
^DD(354.1,.11,21,4,0)="be required in order to create a hardship exemption."
^DD(354.1,.11,"DT")="2930422"
^DD(354.1,.12,0)="SECOND ELECTRONIC SIGNATURE^F^^0;12^K:$L(X)>40!($L(X)<3) X"
^DD(354.1,.12,3)="Answer must be 3-40 characters in length."
^DD(354.1,.12,21,0)="^^3^3^2930430^"
^DD(354.1,.12,21,1,0)="A second electronic signature for hardship exemptions will be"
^DD(354.1,.12,21,2,0)="implemented in a future release."
^DD(354.1,.12,21,3,0)="|"
^DD(354.1,.12,"DT")="2930422"
^DD(354.1,.13,0)="RETRO CANCEL BILLS START DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(2920129>X) X"
^DD(354.1,.13,3)="TYPE A DATE BETWEEN 1/29/1992 AND 12/31/2099"
^DD(354.1,.13,21,0)="^^4^4^2930430^^"
^DD(354.1,.13,21,1,0)="If this exemption requires retroactively canceling prior charges, this"
^DD(354.1,.13,21,2,0)="is the beginning date for the retroactive cancellation.  This must be "
^DD(354.1,.13,21,3,0)="tracked to prevent duplicate retroactive cancellations of the same"
^DD(354.1,.13,21,4,0)="charges."
^DD(354.1,.13,"DT")="2921209"
^DD(354.1,.14,0)="RETRO CANCEL BILLS END DATE^D^^0;14^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(2920129>X) X"
^DD(354.1,.14,1,0)="^.1"
^DD(354.1,.14,1,1,0)="354.1^ACAN^MUMPS"
^DD(354.1,.14,1,1,1)="I $P(^IBA(354.1,DA,0),""^"",2) S ^IBA(354.1,""ACAN"",$P(^(0),""^"",2),-X,DA)="""""
^DD(354.1,.14,1,1,2)="K ^IBA(354.1,""ACAN"",$P(^IBA(354.1,DA,0),""^"",2),-X,DA)"
^DD(354.1,.14,1,1,3)="DO NOT DELETE"
^DD(354.1,.14,1,1,"%D",0)="^^6^6^2930430^^^^"
^DD(354.1,.14,1,1,"%D",1,0)="This cross-reference is set whenever bills are retroactively canceled"
^DD(354.1,.14,1,1,"%D",2,0)="due to the medication copayment exemption patch.  It is used to"
^DD(354.1,.14,1,1,"%D",3,0)="prevent canceling charges in AR for the same period.  This is"
^DD(354.1,.14,1,1,"%D",4,0)="necessary because the direct link between IB and AR is not maintained"
^DD(354.1,.14,1,1,"%D",5,0)="for this functionality as it is necessary to remove admin and interest"
^DD(354.1,.14,1,1,"%D",6,0)="charges that may have accumulated."
^DD(354.1,.14,1,1,"DT")="2930113"
^DD(354.1,.14,3)="TYPE A DATE BETWEEN 1/29/1992 AND 12/31/2099"
^DD(354.1,.14,21,0)="^^4^4^2930430^^"
^DD(354.1,.14,21,1,0)="If this exemption requires retroactively canceling prior charges, this"
^DD(354.1,.14,21,2,0)="is the ending date for the retroactive cancellation.  This must be   "
^DD(354.1,.14,21,3,0)="tracked to prevent duplicate retroactive cancellations of the same      "
^DD(354.1,.14,21,4,0)="charges."
^DD(354.1,.14,"DT")="2930113"
^DD(354.1,.15,0)="PRIOR YEAR THRESHOLDS^D^^0;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(354.1,.15,1,0)="^.1"
^DD(354.1,.15,1,1,0)="354.1^APRIOR"
^DD(354.1,.15,1,1,1)="S ^IBA(354.1,""APRIOR"",$E(X,1,30),DA)="""""
^DD(354.1,.15,1,1,2)="K ^IBA(354.1,""APRIOR"",$E(X,1,30),DA)"
^DD(354.1,.15,1,1,"%D",0)="^^5^5^2930430^^"
^DD(354.1,.15,1,1,"%D",1,0)="This is a cross reference of all active exemptions created with prior"
^DD(354.1,.15,1,1,"%D",2,0)="year thresholds.  It will be used when entering new thresholds to"
^DD(354.1,.15,1,1,"%D",3,0)="identfy patient exemptions in need of updating.  It will be deleted"
^DD(354.1,.15,1,1,"%D",4,0)="by the IB INACTIVATE EXEMPTION TEMPLATE when creating a new exemption"
^DD(354.1,.15,1,1,"%D",5,0)="for this date."
^DD(354.1,.15,1,1,"DT")="2930126"
^DD(354.1,.15,21,0)="^^5^5^2930430^"
^DD(354.1,.15,21,1,0)="This field will contain the date of the threshold used to calculate"
^DD(354.1,.15,21,2,0)="exemptions based on income only if the date of the threshold was"
^DD(354.1,.15,21,3,0)="over 1 year in the past.  This will be used by the add threshold "
^DD(354.1,.15,21,4,0)="option to list and recompute these exemptions when new thresholds"
^DD(354.1,.15,21,5,0)="are entered."
^DD(354.1,.15,"DT")="2930126"
^DD(354.1,.16,0)="REMINDER LETTER DATE^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354.1,.16,21,0)="^^6^6^2950327^"
^DD(354.1,.16,21,1,0)="This field is used to indicate the date on which the income test"
^DD(354.1,.16,21,2,0)="reminder letter was printed, based on this exemption.  This field"
^DD(354.1,.16,21,3,0)="is updated during the nightly background job which prints the"
^DD(354.1,.16,21,4,0)="letters.  If this exemption is encountered after a letter has"
^DD(354.1,.16,21,5,0)="already been printed (based on this exemption) another letter"
^DD(354.1,.16,21,6,0)="will not be printed."
^DD(354.1,.16,"DT")="2950327"
^DD(354.1,"B","ACTIVE",.1)=""
^DD(354.1,"B","ALERT",.09)=""
^DD(354.1,"B","BILLING PATIENT",.02)="1"
^DD(354.1,"B","CURRENTLY ACTIVE",.1)="1"
^DD(354.1,"B","DATE/TIME ADDED",.08)=""
^DD(354.1,"B","EFFECTIVE DATE",.01)=""
^DD(354.1,"B","ELECTRONIC SIGNATURE",.11)=""
^DD(354.1,"B","EXEMPTION REASON",.05)=""
^DD(354.1,"B","EXEMPTION STATUS",.04)="1"
^DD(354.1,"B","HOW ADDED",.06)=""
^DD(354.1,"B","PATIENT",.02)=""
^DD(354.1,"B","PRIOR YEAR THRESHOLDS",.15)=""
^DD(354.1,"B","REMINDER LETTER DATE",.16)=""
^DD(354.1,"B","RETRO CANCEL BILLS END DATE",.14)=""
^DD(354.1,"B","RETRO CANCEL BILLS START DATE",.13)=""
^DD(354.1,"B","SECOND ELECTRONIC SIGNATURE",.12)=""
^DD(354.1,"B","STATUS",.04)=""
^DD(354.1,"B","TYPE",.03)=""
^DD(354.1,"B","USER ADDING ENTRY",.07)=""
^DD(354.1,"GL",0,1,.01)=""
^DD(354.1,"GL",0,2,.02)=""
^DD(354.1,"GL",0,3,.03)=""
^DD(354.1,"GL",0,4,.04)=""
^DD(354.1,"GL",0,5,.05)=""
^DD(354.1,"GL",0,6,.06)=""
^DD(354.1,"GL",0,7,.07)=""
^DD(354.1,"GL",0,8,.08)=""
^DD(354.1,"GL",0,9,.09)=""
^DD(354.1,"GL",0,10,.1)=""
^DD(354.1,"GL",0,11,.11)=""
^DD(354.1,"GL",0,12,.12)=""
^DD(354.1,"GL",0,13,.13)=""
^DD(354.1,"GL",0,14,.14)=""
^DD(354.1,"GL",0,15,.15)=""
^DD(354.1,"GL",0,16,.16)=""
^DD(354.1,"IX",.01)=""
^DD(354.1,"IX",.02)=""
^DD(354.1,"IX",.03)=""
^DD(354.1,"IX",.04)=""
^DD(354.1,"IX",.05)=""
^DD(354.1,"IX",.09)=""
^DD(354.1,"IX",.1)=""
^DD(354.1,"IX",.14)=""
^DD(354.1,"IX",.15)=""
^DD(354.1,"RQ",.01)=""
^DD(354.1,"RQ",.02)=""
^DD(354.1,"RQ",.03)=""
^DD(354.1,"RQ",.04)=""
^DD(354.1,"RQ",.05)=""
^DD(354.1,"RQ",.08)=""
^DD(354.1,"RQ",.1)=""
^DD(354.2,0)="FIELD^^.1^6"
^DD(354.2,0,"DDA")="N"
^DD(354.2,0,"DT")="2921216"
^DD(354.2,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(354.2,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(354.2,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(354.2,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(354.2,0,"ID",.05)="W ""   "",$P(^(0),U,5)"
^DD(354.2,0,"ID",.1)="W:$D(^(10)) ""   "",@(""$P($P($C(59)_$S($D(^DD(354.2,.1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(10),U,1)_"""":"""",2),$C(59),1)"")"
^DD(354.2,0,"IX","AA",354.2,.1)=""
^DD(354.2,0,"IX","ACODE",354.2,.05)=""
^DD(354.2,0,"IX","AS",354.2,.04)=""
^DD(354.2,0,"IX","B",354.2,.01)=""
^DD(354.2,0,"IX","C",354.2,.05)=""
^DD(354.2,0,"NM","EXEMPTION REASON")=""
^DD(354.2,0,"PT",354,.05)=""
^DD(354.2,0,"PT",354.1,.05)=""
^DD(354.2,0,"VR")="2.0"
^DD(354.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(354.2,.01,1,0)="^.1"
^DD(354.2,.01,1,1,0)="354.2^B"
^DD(354.2,.01,1,1,1)="S ^IBE(354.2,""B"",$E(X,1,30),DA)="""""
^DD(354.2,.01,1,1,2)="K ^IBE(354.2,""B"",$E(X,1,30),DA)"
^DD(354.2,.01,3)="Answer must be 3-30 characters in length."
^DD(354.2,.01,21,0)="^^3^3^2921208^^"
^DD(354.2,.01,21,1,0)="This is the name of the exemption reason.  Do not edit this field."
^DD(354.2,.01,21,2,0)=" "
^DD(354.2,.01,21,3,0)="This field can be printed as the short name of the exemption reason."
^DD(354.2,.01,"DT")="2921208"
^DD(354.2,.02,0)="LONG NAME^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(354.2,.02,.1)="DESCRIPTION"
^DD(354.2,.02,3)="Enter the long description of this exemption reason.  Answer must be 3-80 characters in length."
^DD(354.2,.02,21,0)="^^3^3^2921208^^^"
^DD(354.2,.02,21,1,0)="Enter a long description to explain this exemption"
^DD(354.2,.02,21,2,0)="reason.  This field will generally be displayed to users"
^DD(354.2,.02,21,3,0)="along with the Exemption Status to explain the status of an exemption."
^DD(354.2,.02,"DT")="2921208"
^DD(354.2,.03,0)="TYPE^S^1:COPAY INCOME EXEMPTION;^0;3^Q"
^DD(354.2,.03,21,0)="^^6^6^2930430^^^"
^DD(354.2,.03,21,1,0)="This is the type of exemption this reason is for.  When creating an"
^DD(354.2,.03,21,2,0)="exemption of Pharmacy Copay based on Income, only the type"
^DD(354.2,.03,21,3,0)="COPAY INCOME EXEMPTION reason can be selected."
^DD(354.2,.03,21,4,0)=" "
^DD(354.2,.03,21,5,0)="In a future release additional types of exemptions may be created."
^DD(354.2,.03,21,6,0)="Do not modify this field."
^DD(354.2,.03,"DT")="2921208"
^DD(354.2,.04,0)="STATUS^S^0:NON-EXEMPT;1:EXEMPT;^0;4^Q"
^DD(354.2,.04,.1)=""
^DD(354.2,.04,1,0)="^.1"
^DD(354.2,.04,1,1,0)="354.2^AS"
^DD(354.2,.04,1,1,1)="S ^IBE(354.2,""AS"",$E(X,1,30),DA)="""""
^DD(354.2,.04,1,1,2)="K ^IBE(354.2,""AS"",$E(X,1,30),DA)"
^DD(354.2,.04,1,1,"%D",0)="^^1^1^2921110^"
^DD(354.2,.04,1,1,"%D",1,0)="Cross-reference of Status."
^DD(354.2,.04,1,1,"DT")="2921110"
^DD(354.2,.04,3)=""
^DD(354.2,.04,21,0)="^^3^3^2930430^^^^"
^DD(354.2,.04,21,1,0)="This is the status of this type of record.  Whether it is an exempt"
^DD(354.2,.04,21,2,0)="or non-exempt reason.  This status will be automatically stored"
^DD(354.2,.04,21,3,0)="in the Billing Exemptions file."
^DD(354.2,.04,"DT")="2921208"
^DD(354.2,.05,0)="CODE^NJ4,0I^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(354.2,.05,1,0)="^.1"
^DD(354.2,.05,1,1,0)="354.2^ACODE"
^DD(354.2,.05,1,1,1)="S ^IBE(354.2,""ACODE"",$E(X,1,30),DA)="""""
^DD(354.2,.05,1,1,2)="K ^IBE(354.2,""ACODE"",$E(X,1,30),DA)"
^DD(354.2,.05,1,1,3)="DO NOT DELETE"
^DD(354.2,.05,1,1,"%D",0)="^^3^3^2921110^"
^DD(354.2,.05,1,1,"%D",1,0)="Cross-reference of code field.  To be used in routines to look up correct"
^DD(354.2,.05,1,1,"%D",2,0)="entry.  The internal codes will be used in routines to locate the correct"
^DD(354.2,.05,1,1,"%D",3,0)="entry."
^DD(354.2,.05,1,1,"DT")="2921110"
^DD(354.2,.05,1,2,0)="354.2^C"
^DD(354.2,.05,1,2,1)="S ^IBE(354.2,""C"",$E(X,1,30),DA)="""""
^DD(354.2,.05,1,2,2)="K ^IBE(354.2,""C"",$E(X,1,30),DA)"
^DD(354.2,.05,1,2,"DT")="2930105"
^DD(354.2,.05,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(354.2,.05,9)="^"
^DD(354.2,.05,21,0)="^^2^2^2930430^^^^"
^DD(354.2,.05,21,1,0)="This is the internal code used to look up entries by the billing"
^DD(354.2,.05,21,2,0)="system.  This should not be altered except by the developing ISC."
^DD(354.2,.05,23,0)="^^9^9^2930430^^^^"
^DD(354.2,.05,23,1,0)="The data in this field is returned as the third piece from the call to"
^DD(354.2,.05,23,2,0)="RXST^IBARXEU and RXEXMT^IBARXEU0.  Programmers can determine certain"
^DD(354.2,.05,23,3,0)="attributes from the code.  Codes of 2 digits are reserved for exemption"
^DD(354.2,.05,23,4,0)="reasons that can automatically be determined by the system but not"
^DD(354.2,.05,23,5,0)="based on income.  Codes of 3 digits are reserved for exemptions based"
^DD(354.2,.05,23,6,0)="on income.  Codes of 4 digits are reserved for exemptions that only"
^DD(354.2,.05,23,7,0)="can be manually entered that would generally over-ride all other"
^DD(354.2,.05,23,8,0)="determinations."
^DD(354.2,.05,23,9,0)=" "
^DD(354.2,.05,"DT")="2930115"
^DD(354.2,.1,0)="ACTIVE^S^1:ACTIVE;0:INACTIVE;^10;1^Q"
^DD(354.2,.1,1,0)="^.1"
^DD(354.2,.1,1,1,0)="354.2^AA"
^DD(354.2,.1,1,1,1)="S ^IBE(354.2,""AA"",$E(X,1,30),DA)="""""
^DD(354.2,.1,1,1,2)="K ^IBE(354.2,""AA"",$E(X,1,30),DA)"
^DD(354.2,.1,1,1,"%D",0)="^^1^1^2921110^"
^DD(354.2,.1,1,1,"%D",1,0)="Cross-reference of Active records."
^DD(354.2,.1,1,1,"DT")="2921110"
^DD(354.2,.1,21,0)="^^2^2^2921208^^^"
^DD(354.2,.1,21,1,0)="Enter whether or not this Billing Exemption Reason can currently be"
^DD(354.2,.1,21,2,0)="used or not."
^DD(354.2,.1,"DT")="2921110"
^DD(354.2,"B","ACTIVE",.1)=""
^DD(354.2,"B","CODE",.05)=""
^DD(354.2,"B","DESCRIPTION",.02)="1"
^DD(354.2,"B","LONG NAME",.02)=""
^DD(354.2,"B","NAME",.01)=""
^DD(354.2,"B","STATUS",.04)=""
^DD(354.2,"B","TYPE",.03)=""
^DD(354.2,"GL",0,1,.01)=""
^DD(354.2,"GL",0,2,.02)=""
^DD(354.2,"GL",0,3,.03)=""
^DD(354.2,"GL",0,4,.04)=""
^DD(354.2,"GL",0,5,.05)=""
^DD(354.2,"GL",10,1,.1)=""
^DD(354.2,"IX",.01)=""
^DD(354.2,"IX",.04)=""
^DD(354.2,"IX",.05)=""
^DD(354.2,"IX",.1)=""
^DD(354.2,"RQ",.01)=""
^DD(354.3,0)="FIELD^^.12^12"
^DD(354.3,0,"DDA")="N"
^DD(354.3,0,"DT")="3000411"
^DD(354.3,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(354.3,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(354.3,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(354.3,0,"ID",.04)="W """""
^DD(354.3,0,"ID",.12)="W """""
^DD(354.3,0,"IX","AC",354.3,.02)=""
^DD(354.3,0,"IX","AIVDT",354.3,.01)=""
^DD(354.3,0,"IX","AIVDT1",354.3,.02)=""
^DD(354.3,0,"IX","B",354.3,.01)=""
^DD(354.3,0,"NM","BILLING THRESHOLDS")=""
^DD(354.3,0,"VR")="2.0"
^DD(354.3,0,"VRPK")="IB"
^DD(354.3,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354.3,.01,1,0)="^.1"
^DD(354.3,.01,1,1,0)="354.3^B"
^DD(354.3,.01,1,1,1)="S ^IBE(354.3,""B"",$E(X,1,30),DA)="""""
^DD(354.3,.01,1,1,2)="K ^IBE(354.3,""B"",$E(X,1,30),DA)"
^DD(354.3,.01,1,2,0)="354.3^AIVDT^MUMPS"
^DD(354.3,.01,1,2,1)="I $P(^IBE(354.3,DA,0),""^"",2) S ^IBE(354.3,""AIVDT"",$P(^(0),""^"",2),-X,DA)="""""
^DD(354.3,.01,1,2,2)="K ^IBE(354.3,""AIVDT"",+$P(^IBE(354.3,DA,0),""^"",2),-X,DA)"
^DD(354.3,.01,1,2,"%D",0)="^^2^2^2921211^"
^DD(354.3,.01,1,2,"%D",1,0)="Inverse date cross reference to rapidly retrieve the proper threshold"
^DD(354.3,.01,1,2,"%D",2,0)="prior to date x."
^DD(354.3,.01,1,2,"DT")="2921211"
^DD(354.3,.01,3)=""
^DD(354.3,.01,21,0)="^^1^1^2921209^^^"
^DD(354.3,.01,21,1,0)="This is the effective date of this threshold."
^DD(354.3,.01,"DT")="2921211"
^DD(354.3,.02,0)="TYPE^RS^1:BASIC PENSION;2:PENSION PLUS A&A;^0;2^Q"
^DD(354.3,.02,1,0)="^.1"
^DD(354.3,.02,1,1,0)="354.3^AC"
^DD(354.3,.02,1,1,1)="S ^IBE(354.3,""AC"",$E(X,1,30),DA)="""""
^DD(354.3,.02,1,1,2)="K ^IBE(354.3,""AC"",$E(X,1,30),DA)"
^DD(354.3,.02,1,1,"DT")="2930319"
^DD(354.3,.02,1,2,0)="354.3^AIVDT1^MUMPS"
^DD(354.3,.02,1,2,1)="I +^IBE(354.3,DA,0) S ^IBE(354.3,""AIVDT"",X,-$P(^(0),""^""),DA)="""""
^DD(354.3,.02,1,2,2)="K ^IBE(354.3,""AIVDT"",X,-$P(^IBE(354.3,DA,0),""^""),DA)"
^DD(354.3,.02,1,2,3)="DON'T DELETE"
^DD(354.3,.02,1,2,"%D",0)="^^2^2^2921211^"
^DD(354.3,.02,1,2,"%D",1,0)="Inverse date cross reference used to quickly retrieve threshold immediately"
^DD(354.3,.02,1,2,"%D",2,0)="prior to date x."
^DD(354.3,.02,1,2,"DT")="2921211"
^DD(354.3,.02,21,0)="^.001^5^5^3000519^^^^"
^DD(354.3,.02,21,1,0)="These are the types of Thresholds that this entry is for."
^DD(354.3,.02,21,2,0)=" "
^DD(354.3,.02,21,3,0)="The Medication Copayment exemption based on income uses the"
^DD(354.3,.02,21,4,0)="Basic Pension entry from 1996 to the present and uses"
^DD(354.3,.02,21,5,0)="Pension plus A&A threshold for years prior to 1996.. "
^DD(354.3,.02,22)=""
^DD(354.3,.02,"DT")="3000411"
^DD(354.3,.03,0)="BASE RATE FOR VETERAN^RNJ10,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.03,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.03,21,0)="^^1^1^2921209^"
^DD(354.3,.03,21,1,0)="This is the rate for a single veteran."
^DD(354.3,.03,"DT")="2930405"
^DD(354.3,.04,0)="BASE RATE WITH 1 DEPENDENT^RNJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.04,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.04,21,0)="^^1^1^2930120^^^^"
^DD(354.3,.04,21,1,0)="This is the amount for the Veteran with 1 Dependent."
^DD(354.3,.04,"DT")="2930405"
^DD(354.3,.05,0)="BASE RATE WITH 2 DEPENDENTS^NJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.05,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.05,21,0)="^^3^3^2930430^^^"
^DD(354.3,.05,21,1,0)="This is the amount for the Veteran with 2 Dependents.  If this rate"
^DD(354.3,.05,21,2,0)="is the same as the rate for Veteran with 1 dependent plus an additional"
^DD(354.3,.05,21,3,0)="dependent amount, it can be left null and computed."
^DD(354.3,.06,0)="BASE RATE WITH 3 DEPENDENTS^NJ10,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.06,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.06,21,0)="^^3^3^2930430^^^"
^DD(354.3,.06,21,1,0)="This is the amount for the Veteran with 3 Dependents.  If this rate"
^DD(354.3,.06,21,2,0)="is the same as the rate for Veteran with 1 dependent plus an additional"
^DD(354.3,.06,21,3,0)="dependent amount for each dependent, it can be left null and computed."
^DD(354.3,.07,0)="BASE RATE WITH 4 DEPENDENTS^NJ10,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.07,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.07,21,0)="^^3^3^2930430^^"
^DD(354.3,.07,21,1,0)="This is the amount for the Veteran with 4 Dependents.  If this rate"
^DD(354.3,.07,21,2,0)="is the same as the rate for Veteran with 1 dependent plus an additional"
^DD(354.3,.07,21,3,0)="dependent amount for each dependent, it can be left null and computed."
^DD(354.3,.08,0)="BASE RATE WITH 5 DEPENDENTS^NJ10,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.08,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.08,21,0)="^^3^3^2930430^^"
^DD(354.3,.08,21,1,0)="This is the amount for the Veteran with 5 Dependents.  If this rate"
^DD(354.3,.08,21,2,0)="is the same as the rate for Veteran with 1 dependent plus an additional"
^DD(354.3,.08,21,3,0)="dependent amount for each dependent, it can be left null and computed."
^DD(354.3,.08,"DT")="2930120"
^DD(354.3,.09,0)="BASE RATE WITH 6 DEPENDENTS^NJ10,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.09,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.09,21,0)="^^3^3^2930430^^"
^DD(354.3,.09,21,1,0)="This is the amount for the Veteran with 6 Dependents.  If this rate"
^DD(354.3,.09,21,2,0)="is the same as the rate for Veteran with 1 dependent plus an additional"
^DD(354.3,.09,21,3,0)="dependent amount for each dependent, it can be left null and computed."
^DD(354.3,.1,0)="BASE RATE WITH 7 DEPENDENTS^NJ10,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.1,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.1,21,0)="^^3^3^2930430^^"
^DD(354.3,.1,21,1,0)="This is the amount for the Veteran with 7 Dependents.  If this rate"
^DD(354.3,.1,21,2,0)="is the same as the rate for Veteran with 1 dependent plus an additional"
^DD(354.3,.1,21,3,0)="dependent amount for each dependent, it can be left null and computed."
^DD(354.3,.1,"DT")="2930120"
^DD(354.3,.11,0)="BASE RATE WITH 8 DEPENDENTS^NJ10,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.11,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.11,21,0)="^^3^3^2930430^^"
^DD(354.3,.11,21,1,0)="This is the amount for the Veteran with 8 Dependents.  If this rate"
^DD(354.3,.11,21,2,0)="is the same as the rate for Veteran with 1 dependent plus an additional"
^DD(354.3,.11,21,3,0)="dependent amount for each dependent, it can be left null and computed."
^DD(354.3,.12,0)="ADDITIONAL DEPENDENT AMOUNT^RNJ10,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(354.3,.12,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(354.3,.12,21,0)="^^1^1^2921209^"
^DD(354.3,.12,21,1,0)="This is the rate for each additional dependent."
^DD(354.3,.12,23,0)="^^7^7^2921209^"
^DD(354.3,.12,23,1,0)="Calculation of the threshold amount will be based on the number of"
^DD(354.3,.12,23,2,0)="dependents a veteran has.  First the base rate will be determined."
^DD(354.3,.12,23,3,0)="Second, look at the rate for the veteran with the correct number"
^DD(354.3,.12,23,4,0)="of dependents.  Third, if the entry for the veteran and the number"
^DD(354.3,.12,23,5,0)="of dependents is null, then the threshold will be the base rate"
^DD(354.3,.12,23,6,0)="plus the rate for each additional dependent times the number of "
^DD(354.3,.12,23,7,0)="dependents."
^DD(354.3,.12,"DT")="2930405"
^DD(354.3,"B","ADDITIONAL DEPENDENT AMOUNT",.12)=""
^DD(354.3,"B","BASE RATE FOR VETERAN",.03)=""
^DD(354.3,"B","BASE RATE WITH 1 DEPENDENT",.04)=""
^DD(354.3,"B","BASE RATE WITH 2 DEPENDENTS",.05)=""
^DD(354.3,"B","BASE RATE WITH 3 DEPENDENTS",.06)=""
^DD(354.3,"B","BASE RATE WITH 4 DEPENDENTS",.07)=""
^DD(354.3,"B","BASE RATE WITH 5 DEPENDENTS",.08)=""
^DD(354.3,"B","BASE RATE WITH 6 DEPENDENTS",.09)=""
^DD(354.3,"B","BASE RATE WITH 7 DEPENDENTS",.1)=""
^DD(354.3,"B","BASE RATE WITH 8 DEPENDENTS",.11)=""
^DD(354.3,"B","DATE",.01)=""
^DD(354.3,"B","TYPE",.02)=""
^DD(354.3,"GL",0,1,.01)=""
^DD(354.3,"GL",0,2,.02)=""
^DD(354.3,"GL",0,3,.03)=""
^DD(354.3,"GL",0,4,.04)=""
^DD(354.3,"GL",0,5,.05)=""
^DD(354.3,"GL",0,6,.06)=""
^DD(354.3,"GL",0,7,.07)=""
^DD(354.3,"GL",0,8,.08)=""
^DD(354.3,"GL",0,9,.09)=""
^DD(354.3,"GL",0,10,.1)=""
^DD(354.3,"GL",0,11,.11)=""
^DD(354.3,"GL",0,12,.12)=""
^DD(354.3,"IX",.01)=""
^DD(354.3,"IX",.02)=""
^DD(354.3,"RQ",.01)=""
^DD(354.3,"RQ",.02)=""
^DD(354.3,"RQ",.03)=""
^DD(354.3,"RQ",.04)=""
^DD(354.3,"RQ",.12)=""
^DD(354.4,0)="FIELD^^.04^4"
^DD(354.4,0,"DDA")="N"
^DD(354.4,0,"DT")="2930204"
^DD(354.4,0,"IX","AC",354.4,.02)=""
^DD(354.4,0,"IX","B",354.4,.01)=""
^DD(354.4,0,"NM","BILLING ALERTS")=""
^DD(354.4,0,"PT",354.1,.09)=""
^DD(354.4,0,"VR")="2.0"
^DD(354.4,.01,0)="BILLING ALERT^RP354.5'^IBE(354.5,^0;1^Q"
^DD(354.4,.01,1,0)="^.1"
^DD(354.4,.01,1,1,0)="354.4^B"
^DD(354.4,.01,1,1,1)="S ^IBA(354.4,""B"",$E(X,1,30),DA)="""""
^DD(354.4,.01,1,1,2)="K ^IBA(354.4,""B"",$E(X,1,30),DA)"
^DD(354.4,.01,3)=""
^DD(354.4,.01,21,0)="^^2^2^2930204^"
^DD(354.4,.01,21,1,0)="This is a pointer to the type of Billing Alert associated with this"
^DD(354.4,.01,21,2,0)="Alert."
^DD(354.4,.01,"DT")="2930204"
^DD(354.4,.02,0)="DATE/TIME OF ALERT^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(354.4,.02,1,0)="^.1"
^DD(354.4,.02,1,1,0)="354.4^AC"
^DD(354.4,.02,1,1,1)="S ^IBA(354.4,""AC"",$E(X,1,30),DA)="""""
^DD(354.4,.02,1,1,2)="K ^IBA(354.4,""AC"",$E(X,1,30),DA)"
^DD(354.4,.02,1,1,"%D",0)="^^2^2^2930209^"
^DD(354.4,.02,1,1,"%D",1,0)="Cross reference by date, used by purge.  Will purge all entries over"
^DD(354.4,.02,1,1,"%D",2,0)="60 days old and resolved entries over 30 days old."
^DD(354.4,.02,1,1,"DT")="2930209"
^DD(354.4,.02,21,0)="^^1^1^2930204^"
^DD(354.4,.02,21,1,0)="This is the date time the alert occured."
^DD(354.4,.02,"DT")="2930209"
^DD(354.4,.03,0)="RESOLVED BY^P200'^VA(200,^0;3^Q"
^DD(354.4,.03,21,0)="^^1^1^2930204^^"
^DD(354.4,.03,21,1,0)="This is the person who resolved the alert."
^DD(354.4,.03,"DT")="2930204"
^DD(354.4,.04,0)="WHEN RESOLVED^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(354.4,.04,21,0)="^^1^1^2930210^^"
^DD(354.4,.04,21,1,0)="This is the date/time when the alert was resolved."
^DD(354.4,.04,"DT")="2930204"
^DD(354.4,"B","BILLING ALERT",.01)=""
^DD(354.4,"B","DATE/TIME OF ALERT",.02)=""
^DD(354.4,"B","RESOLVED BY",.03)=""
^DD(354.4,"B","WHEN RESOLVED",.04)=""
^DD(354.4,"GL",0,1,.01)=""
^DD(354.4,"GL",0,2,.02)=""
^DD(354.4,"GL",0,3,.03)=""
^DD(354.4,"GL",0,4,.04)=""
^DD(354.4,"IX",.01)=""
^DD(354.4,"IX",.02)=""
^DD(354.4,"RQ",.01)=""
^DD(354.5,0)="FIELD^^200^10"
^DD(354.5,0,"DDA")="N"
^DD(354.5,0,"DT")="2930204"
^DD(354.5,0,"IX","B",354.5,.01)=""
^DD(354.5,0,"NM","BILLING ALERT DEFINITION")=""
^DD(354.5,0,"PT",350.8,.06)=""
^DD(354.5,0,"PT",354.4,.01)=""
^DD(354.5,0,"VR")="2.0"
^DD(354.5,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(354.5,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(354.5,.001,21,0)="^^5^5^2930430^^^"
^DD(354.5,.001,21,1,0)="This is the internal entry number assigned to this billing alert"
^DD(354.5,.001,21,2,0)="type.  Entries 1 through 999 are reserved for IB."
^DD(354.5,.001,21,3,0)=" "
^DD(354.5,.001,21,4,0)="The internal number is used by the ib routines to find entries in this"
^DD(354.5,.001,21,5,0)="file.  Do not delete, edit, or add entries to this file."
^DD(354.5,.001,"DT")="2930204"
^DD(354.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(354.5,.01,1,0)="^.1"
^DD(354.5,.01,1,1,0)="354.5^B"
^DD(354.5,.01,1,1,1)="S ^IBE(354.5,""B"",$E(X,1,30),DA)="""""
^DD(354.5,.01,1,1,2)="K ^IBE(354.5,""B"",$E(X,1,30),DA)"
^DD(354.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(354.5,.01,21,0)="^^2^2^2930210^"
^DD(354.5,.01,21,1,0)="This is the name of this alert.  It should be close in name or meaning"
^DD(354.5,.01,21,2,0)="to the message text which the users are familiar with seeing."
^DD(354.5,.02,0)="PACKAGE ID^F^^0;2^K:$L(X)>5!($L(X)<2) X"
^DD(354.5,.02,3)="Answer must be 2-5 characters in length."
^DD(354.5,.02,21,0)="^^3^3^2930210^^"
^DD(354.5,.02,21,1,0)="This is the package prefix for the package using this notification."
^DD(354.5,.02,21,2,0)="It will be concatenated with the internal number in the BILLING ALERTS file"
^DD(354.5,.02,21,3,0)="to form the variable XQAID for look up and deleting alerts."
^DD(354.5,.02,23,0)="^^2^2^2930210^^"
^DD(354.5,.02,23,1,0)="This is used to build the XQAID variable when passed to the alerts"
^DD(354.5,.02,23,2,0)="API."
^DD(354.5,.02,"DT")="2930204"
^DD(354.5,.03,0)="MESSAGE TEXT^F^^0;3^K:$L(X)>51!($L(X)<3) X"
^DD(354.5,.03,3)="Answer must be 3-51 characters in length."
^DD(354.5,.03,21,0)="^^3^3^2930430^^^"
^DD(354.5,.03,21,1,0)="This is the message text that will be appended to the patient's name and"
^DD(354.5,.03,21,2,0)="ssn and will be displayed to users when first notified about"
^DD(354.5,.03,21,3,0)="the alert."
^DD(354.5,.03,"DT")="2930204"
^DD(354.5,.05,0)="ACTION FLAG^S^I:INFORMATION ONLY;R:RUN ROUTINE;^0;5^Q"
^DD(354.5,.05,21,0)="^^7^7^2930430^^^"
^DD(354.5,.05,21,1,0)="Enter 'I' if the user is to take no follow-up action for this"
^DD(354.5,.05,21,2,0)="notification. Enter 'R' if the user is to take a follow-up action"
^DD(354.5,.05,21,3,0)="after viewing this notification. "
^DD(354.5,.05,21,4,0)=" "
^DD(354.5,.05,21,5,0)="This is a mandatory flag used to regulate processing in the alert"
^DD(354.5,.05,21,6,0)="software.  No additional action will be allowed after viewing"
^DD(354.5,.05,21,7,0)="information only alerts."
^DD(354.5,.05,"DT")="2930204"
^DD(354.5,.06,0)="ENTRY POINT^F^^0;6^K:$L(X)>8!($L(X)<1) X"
^DD(354.5,.06,3)="Answer must be 1-8 characters in length.  This will be concatentated with the routine name."
^DD(354.5,.06,21,0)="^^3^3^2930210^"
^DD(354.5,.06,21,1,0)="This is the entry point in a routine that will be run when the alert"
^DD(354.5,.06,21,2,0)="is processed.  It is used to build the variable XQAROU.  This field"
^DD(354.5,.06,21,3,0)="represents the TAG in tag^routine."
^DD(354.5,.06,"DT")="2930204"
^DD(354.5,.07,0)="ROUTINE NAME^F^^0;7^K:$L(X)>8!($L(X)<2) X"
^DD(354.5,.07,3)="Answer must be 2-8 characters in length."
^DD(354.5,.07,21,0)="^^3^3^2930210^"
^DD(354.5,.07,21,1,0)="This is the routine name that will be called by the alert software when"
^DD(354.5,.07,21,2,0)="processing the alert.  The variable XQAROU will be defined as tag^routine"
^DD(354.5,.07,21,3,0)="where this is the routine.  (ie xqarou=$p(^ibe(354.4,n,0),""^"",6,7)"
^DD(354.5,.07,"DT")="2930204"
^DD(354.5,2,0)="RECIPIENT GROUPS^354.52PA^^2;0"
^DD(354.5,2,21,0)="^^1^1^2930210^"
^DD(354.5,2,21,1,0)="These are mail groups that this alert should be sent to."
^DD(354.5,3,0)="PROCESSING FLAG^S^D:DISABLED;E:ENABLED;M:MANDATORY;^3;1^Q"
^DD(354.5,3,21,0)="^^3^3^2930210^"
^DD(354.5,3,21,1,0)="This field is used to regulate the alert processing.  Notifications flagged"
^DD(354.5,3,21,2,0)="as ""D"" will indicate the alert is disabled and will not be processed.  A"
^DD(354.5,3,21,3,0)="flag of ""M"" indicates the alert is enabled and mandatory."
^DD(354.5,3,"DT")="2930204"
^DD(354.5,200,0)="RECIPIENT USERS^354.5002PA^^200;0"
^DD(354.5,200,21,0)="^^1^1^2930210^"
^DD(354.5,200,21,1,0)="These are users who have been determined to need to see this alert."
^DD(354.5,"B","ACTION FLAG",.05)=""
^DD(354.5,"B","ENTRY POINT",.06)=""
^DD(354.5,"B","MESSAGE TEXT",.03)=""
^DD(354.5,"B","NAME",.01)=""
^DD(354.5,"B","NUMBER",.001)=""
^DD(354.5,"B","PACKAGE ID",.02)=""
^DD(354.5,"B","PROCESSING FLAG",3)=""
^DD(354.5,"B","RECIPIENT GROUPS",2)=""
^DD(354.5,"B","RECIPIENT USERS",200)=""
^DD(354.5,"B","ROUTINE NAME",.07)=""
^DD(354.5,"GL",0,1,.01)=""
^DD(354.5,"GL",0,2,.02)=""
^DD(354.5,"GL",0,3,.03)=""
^DD(354.5,"GL",0,5,.05)=""
^DD(354.5,"GL",0,6,.06)=""
^DD(354.5,"GL",0,7,.07)=""
^DD(354.5,"GL",2,0,2)=""
^DD(354.5,"GL",3,1,3)=""
^DD(354.5,"GL",200,0,200)=""
^DD(354.5,"IX",.01)=""
^DD(354.5,"RQ",.01)=""
^DD(354.5,"SB",354.5002,200)=""
^DD(354.5,"SB",354.52,2)=""
^DD(354.5002,0)="RECIPIENT USERS SUB-FIELD^^.01^1"
^DD(354.5002,0,"DT")="2930204"
^DD(354.5002,0,"IX","B",354.5002,.01)=""
^DD(354.5002,0,"NM","RECIPIENT USERS")=""
^DD(354.5002,0,"UP")="354.5"
^DD(354.5002,.01,0)="RECIPIENT USERS^MP200'^VA(200,^0;1^Q"
^DD(354.5002,.01,1,0)="^.1"
^DD(354.5002,.01,1,1,0)="354.5002^B"
^DD(354.5002,.01,1,1,1)="S ^IBE(354.5,DA(1),200,""B"",$E(X,1,30),DA)="""""
^DD(354.5002,.01,1,1,2)="K ^IBE(354.5,DA(1),200,""B"",$E(X,1,30),DA)"
^DD(354.5002,.01,21,0)="^^1^1^2930210^"
^DD(354.5002,.01,21,1,0)="These are users who have been determined to need to see this alert."
^DD(354.5002,.01,"DT")="2930204"
^DD(354.5002,"B","RECIPIENT USERS",.01)=""
^DD(354.5002,"GL",0,1,.01)=""
^DD(354.5002,"IX",.01)=""
^DD(354.52,0)="RECIPIENT GROUPS SUB-FIELD^^.01^1"
^DD(354.52,0,"DT")="2930204"
^DD(354.52,0,"IX","B",354.52,.01)=""
^DD(354.52,0,"NM","RECIPIENT GROUPS")=""
^DD(354.52,0,"UP")="354.5"
^DD(354.52,.01,0)="RECIPIENT GROUPS^MP3.8'^XMB(3.8,^0;1^Q"
^DD(354.52,.01,1,0)="^.1"
^DD(354.52,.01,1,1,0)="354.52^B"
^DD(354.52,.01,1,1,1)="S ^IBE(354.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(354.52,.01,1,1,2)="K ^IBE(354.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(354.52,.01,21,0)="^^2^2^2930210^"
^DD(354.52,.01,21,1,0)="Enter the name of a mail group.  The alert will be sent to all"
^DD(354.52,.01,21,2,0)="current members of this mail group if one is entered."
^DD(354.52,.01,"DT")="2930204"
^DD(354.52,"B","RECIPIENT GROUPS",.01)=""
^DD(354.52,"GL",0,1,.01)=""
^DD(354.52,"IX",.01)=""
^DD(354.6,0)="FIELD^^2^10"
^DD(354.6,0,"DDA")="N"
^DD(354.6,0,"DT")="2951004"
^DD(354.6,0,"IX","B",354.6,.01)=""
^DD(354.6,0,"NM","IB FORM LETTER")=""
^DD(354.6,0,"VR")="2.0"
^DD(354.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(354.6,.01,1,0)="^.1"
^DD(354.6,.01,1,1,0)="354.6^B"
^DD(354.6,.01,1,1,1)="S ^IBE(354.6,""B"",$E(X,1,30),DA)="""""
^DD(354.6,.01,1,1,2)="K ^IBE(354.6,""B"",$E(X,1,30),DA)"
^DD(354.6,.01,3)="Answer must be 3-30 characters in length."
^DD(354.6,.01,21,0)="^^5^5^2930504^^^"
^DD(354.6,.01,21,1,0)="Enter the name of the form letter.  Normally the names will begin with"
^DD(354.6,.01,21,2,0)="the IB namespace.  The entries in this file will normally"
^DD(354.6,.01,21,3,0)="be sent out with each release in the approved format from VACO."
^DD(354.6,.01,21,4,0)="Local editing of the Header and of the signature line in the main body"
^DD(354.6,.01,21,5,0)="is permitted."
^DD(354.6,.01,22)=""
^DD(354.6,.01,"DT")="2930504"
^DD(354.6,.02,0)="LONG NAME^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(354.6,.02,3)="Answer must be 3-60 characters in length."
^DD(354.6,.02,21,0)="^^1^1^2940213^^"
^DD(354.6,.02,21,1,0)="This is the full descriptive name of this letter."
^DD(354.6,.02,"DT")="2930427"
^DD(354.6,.03,0)="TYPE^S^1:INITIAL EXEMPTION;2:INCOME TEST REMINDER;^0;3^Q"
^DD(354.6,.03,21,0)="^^5^5^2950327^^^^"
^DD(354.6,.03,21,1,0)="This field tells what type of application the letter is for.  Currently "
^DD(354.6,.03,21,2,0)="The only two letter type are defined:"
^DD(354.6,.03,21,3,0)=" "
^DD(354.6,.03,21,4,0)=" 1 - Currently exempt veterans"
^DD(354.6,.03,21,5,0)=" 2 - Veterans whose exemption is based on income, and about to expire."
^DD(354.6,.03,"DT")="2950327"
^DD(354.6,.04,0)="STARTING ADDRESS LINE^NJ2,0^^0;4^K:+X'=X!(X>25)!(X<10)!(X?.E1"".""1N.N) X"
^DD(354.6,.04,3)="Type a Number between 10 and 25, 0 Decimal Digits"
^DD(354.6,.04,21,0)="^^6^6^2930507^^"
^DD(354.6,.04,21,1,0)="This is the line number that the patient address should start on.  The"
^DD(354.6,.04,21,2,0)="default if this is unanswered is line 15.  "
^DD(354.6,.04,21,3,0)=" "
^DD(354.6,.04,21,4,0)="To account for slight differences in printers and automated letter folders"
^DD(354.6,.04,21,5,0)="the line that the address starts on is now a parameter.  Set this to the"
^DD(354.6,.04,21,6,0)="correct value for the printer and folder combination for your facility."
^DD(354.6,.04,"DT")="2930507"
^DD(354.6,.05,0)="LETTER DEVICE^FX^^0;5^S IBL=X,X=$P(X,"";""),DIC=3.5,DIC(0)=""EQ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=X_$S(IBL["";"":"";""_$P(IBL,"";"",2,99),1:"""") K IBL S DIC=DIE"
^DD(354.6,.05,3)="Please enter the device at which you would like your income test reminder letters printed."
^DD(354.6,.05,4)="S DIC=3.5,DIC(0)=""E"",X=""?"" D ^DIC S DIC=DIE"
^DD(354.6,.05,21,0)="^^5^5^2950327^"
^DD(354.6,.05,21,1,0)="This new field, introduced with patch IB*2*34, is used to indicate"
^DD(354.6,.05,21,2,0)="which printer should be used to print the income test reminder"
^DD(354.6,.05,21,3,0)="letters.  Letters will not print if there is no value in this"
^DD(354.6,.05,21,4,0)="field.  This field may be populated through the option Edit Copay"
^DD(354.6,.05,21,5,0)="Exemption Letter."
^DD(354.6,.05,"DT")="2950327"
^DD(354.6,.06,0)="JOB SCHEDULE^F^^0;6^K:$L(X)>7!($L(X)<1) X"
^DD(354.6,.06,3)="Please enter those days on which you would like letters to be printed."
^DD(354.6,.06,21,0)="^^15^15^2950327^"
^DD(354.6,.06,21,1,0)="This field is used to store mornings (days) for which printed income"
^DD(354.6,.06,21,2,0)="test reminder letters may be picked up.  This is a coded field which"
^DD(354.6,.06,21,3,0)="uses the following codes:"
^DD(354.6,.06,21,4,0)=" "
^DD(354.6,.06,21,5,0)="   0       SUNDAY"
^DD(354.6,.06,21,6,0)="   1       MONDAY"
^DD(354.6,.06,21,7,0)="   2       TUESDAY"
^DD(354.6,.06,21,8,0)="   3       WEDNESDAY"
^DD(354.6,.06,21,9,0)="   4       THURSDAY"
^DD(354.6,.06,21,10,0)="   5       FRIDAY"
^DD(354.6,.06,21,11,0)="   6       SATURDAY"
^DD(354.6,.06,21,12,0)=" "
^DD(354.6,.06,21,13,0)="You should use the option Edit Copay Exemption Letter to enter values"
^DD(354.6,.06,21,14,0)="into this field.  If there is no value in this field, your income"
^DD(354.6,.06,21,15,0)="test reminder letters will not print."
^DD(354.6,.06,"DT")="2950327"
^DD(354.6,.07,0)="REPRINT DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354.6,.07,3)="If you wish to re-print letters printed on a specific date, enter that date."
^DD(354.6,.07,21,0)="^^11^11^2951004^^^"
^DD(354.6,.07,21,1,0)="This new field was introduced with patch IB*2*34.  If the site wishes"
^DD(354.6,.07,21,2,0)="to reprint all of the letters which were printed on a certain date"
^DD(354.6,.07,21,3,0)="(due to printer jams, etc.) the date on which those letters were"
^DD(354.6,.07,21,4,0)="printed should be entered into this field.  The next time that the"
^DD(354.6,.07,21,5,0)="background job prints letters, it will also print letters for "
^DD(354.6,.07,21,6,0)="exemptions which were marked as having had a reminder letter"
^DD(354.6,.07,21,7,0)="printed on this date.  The background job will then delete the"
^DD(354.6,.07,21,8,0)="value in this field."
^DD(354.6,.07,21,9,0)=" "
^DD(354.6,.07,21,10,0)="This field may be entered through the option Edit Copay Exemption"
^DD(354.6,.07,21,11,0)="Letter."
^DD(354.6,.07,"DT")="2950414"
^DD(354.6,.08,0)="EXCLUDE DOM PATIENTS^S^0:NO;1:YES;^0;8^Q"
^DD(354.6,.08,21,0)="^^6^6^2951004^"
^DD(354.6,.08,21,1,0)="This new field was introduced with patch IB*2*34.  If the site does"
^DD(354.6,.08,21,2,0)="not want reminder letters to be printed for domiciliary patients,"
^DD(354.6,.08,21,3,0)="this field should be set to Yes."
^DD(354.6,.08,21,4,0)=" "
^DD(354.6,.08,21,5,0)="This field may be entered through the option Edit Copay Exemption"
^DD(354.6,.08,21,6,0)="Letter."
^DD(354.6,.08,"DT")="2951004"
^DD(354.6,1,0)="MAIN BODY^354.61^^1;0"
^DD(354.6,1,21,0)="^^2^2^2930504^^^"
^DD(354.6,1,21,1,0)="This field contains the main body of the letter that will be printed"
^DD(354.6,1,21,2,0)="after the salutation and includes the signature line."
^DD(354.6,1,23,0)="^^3^3^2930429^"
^DD(354.6,1,23,1,0)="The data in this field will be printed as it is entered.  VA FileMan"
^DD(354.6,1,23,2,0)="utilities are not used to format the data, hence, any imbedded functions"
^DD(354.6,1,23,3,0)="will not print properly."
^DD(354.6,1,"DT")="2930428"
^DD(354.6,2,0)="HEADER^354.62^^2;0"
^DD(354.6,2,21,0)="^^3^3^2940213^^"
^DD(354.6,2,21,1,0)="The first six lines in this field will be centered at the top of plain"
^DD(354.6,2,21,2,0)="paper to form the header of the letter.  The data in this field should"
^DD(354.6,2,21,3,0)="be edited to the correct station name and address of your facility."
^DD(354.6,2,23,0)="^^3^3^2940213^^"
^DD(354.6,2,23,1,0)="The data in this field will be printed as it is entered.  VA FileMan"
^DD(354.6,2,23,2,0)="utilities are not used to format the data, hence, any imbedded functions"
^DD(354.6,2,23,3,0)="will not print properly."
^DD(354.6,"B","EXCLUDE DOM PATIENTS",.08)=""
^DD(354.6,"B","HEADER",2)=""
^DD(354.6,"B","JOB SCHEDULE",.06)=""
^DD(354.6,"B","LETTER DEVICE",.05)=""
^DD(354.6,"B","LONG NAME",.02)=""
^DD(354.6,"B","MAIN BODY",1)=""
^DD(354.6,"B","NAME",.01)=""
^DD(354.6,"B","REPRINT DATE",.07)=""
^DD(354.6,"B","STARTING ADDRESS LINE",.04)=""
^DD(354.6,"B","TYPE",.03)=""
^DD(354.6,"GL",0,1,.01)=""
^DD(354.6,"GL",0,2,.02)=""
^DD(354.6,"GL",0,3,.03)=""
^DD(354.6,"GL",0,4,.04)=""
^DD(354.6,"GL",0,5,.05)=""
^DD(354.6,"GL",0,6,.06)=""
^DD(354.6,"GL",0,7,.07)=""
^DD(354.6,"GL",0,8,.08)=""
^DD(354.6,"GL",1,0,1)=""
^DD(354.6,"GL",2,0,2)=""
^DD(354.6,"IX",.01)=""
^DD(354.6,"RQ",.01)=""
^DD(354.6,"SB",354.61,1)=""
^DD(354.6,"SB",354.62,2)=""
^DD(354.61,0)="MAIN BODY SUB-FIELD^^.01^1"
^DD(354.61,0,"DT")="2930428"
^DD(354.61,0,"NM","MAIN BODY")=""
^DD(354.61,0,"UP")="354.6"
^DD(354.61,.01,0)="MAIN BODY^W^^0;1^Q"
^DD(354.61,.01,21,0)="^^2^2^2930504^^^"
^DD(354.61,.01,21,1,0)="This field contains the main body of the letter that will be printed"
^DD(354.61,.01,21,2,0)="after the salutation and includes the signature line.  "
^DD(354.61,.01,23,0)="^^3^3^2930504^^"
^DD(354.61,.01,23,1,0)="The data in this field will be printed as it is entered.  VA FileMan"
^DD(354.61,.01,23,2,0)="utilities are not used to format the data, hence, any imbedded functions"
^DD(354.61,.01,23,3,0)="will not print properly."
^DD(354.61,.01,"DT")="2930428"
^DD(354.61,"B","MAIN BODY",.01)=""
^DD(354.61,"GL",0,1,.01)=""
^DD(354.62,0)="HEADER SUB-FIELD^^.01^1"
^DD(354.62,0,"DT")="2930428"
^DD(354.62,0,"NM","HEADER")=""
^DD(354.62,0,"UP")="354.6"
^DD(354.62,.01,0)="HEADER^W^^0;1^Q"
^DD(354.62,.01,21,0)="^^3^3^2940213^^"
^DD(354.62,.01,21,1,0)="The first six lines in this field will be centered at the top of plain"
^DD(354.62,.01,21,2,0)="paper to form the header of the letter.  The data in this field should"
^DD(354.62,.01,21,3,0)="be edited to the correct station name and address of your facility."
^DD(354.62,.01,23,0)="^^3^3^2940213^^^"
^DD(354.62,.01,23,1,0)="The data in this field will be printed as it is entered.  VA FileMan"
^DD(354.62,.01,23,2,0)="utilities are not used to format the data, hence, any imbedded functions"
^DD(354.62,.01,23,3,0)="will not print properly."
^DD(354.62,.01,"DT")="2930428"
^DD(354.62,"B","HEADER",.01)=""
^DD(354.62,"GL",0,1,.01)=""
^DD(354.7,0)="FIELD^^1^2"
^DD(354.7,0,"DDA")="N"
^DD(354.7,0,"DT")="3010219"
^DD(354.7,0,"IX","B",354.7,.01)=""
^DD(354.7,0,"NM","IB PATIENT COPAY ACCOUNT")=""
^DD(354.7,0,"PT",354.71,.02)=""
^DD(354.7,0,"VR")="2.0"
^DD(354.7,0,"VRPK")="IB"
^DD(354.7,.01,0)="PATIENT^RP2'X^DPT(^0;1^S DINUM=X"
^DD(354.7,.01,1,0)="^.1"
^DD(354.7,.01,1,1,0)="354.7^B"
^DD(354.7,.01,1,1,1)="S ^IBAM(354.7,""B"",$E(X,1,30),DA)="""""
^DD(354.7,.01,1,1,2)="K ^IBAM(354.7,""B"",$E(X,1,30),DA)"
^DD(354.7,.01,3)="Enter a patient's name"
^DD(354.7,.01,21,0)="^^1^1^3001116^"
^DD(354.7,.01,21,1,0)="This is a pointer to the patient file."
^DD(354.7,.01,"DT")="3001116"
^DD(354.7,1,0)="MONTH/YEAR^354.701D^^1;0"
^DD(354.7,"B","MONTH/YEAR",1)=""
^DD(354.7,"B","PATIENT",.01)=""
^DD(354.7,"GL",0,1,.01)=""
^DD(354.7,"GL",1,0,1)=""
^DD(354.7,"IX",.01)=""
^DD(354.7,"RQ",.01)=""
^DD(354.7,"SB",354.701,1)=""
^DD(354.701,0)="MONTH/YEAR SUB-FIELD^^.04^4"
^DD(354.701,0,"DT")="3010219"
^DD(354.701,0,"IX","B",354.701,.01)=""
^DD(354.701,0,"NM","MONTH/YEAR")=""
^DD(354.701,0,"UP")="354.7"
^DD(354.701,.01,0)="MONTH/YEAR^DX^^0;1^S %DT=""EM"" D ^%DT S X=Y,DINUM=X K:X<1 X"
^DD(354.701,.01,1,0)="^.1"
^DD(354.701,.01,1,1,0)="354.701^B"
^DD(354.701,.01,1,1,1)="S ^IBAM(354.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(354.701,.01,1,1,2)="K ^IBAM(354.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(354.701,.01,3)="Enter the month and year for this patient's account"
^DD(354.701,.01,21,0)="^^3^3^3001116^"
^DD(354.701,.01,21,1,0)="This is the month and year for the information stored in this multiple."
^DD(354.701,.01,21,2,0)="Every month/year value will have a new multiple entry.  This will store"
^DD(354.701,.01,21,3,0)="the totals for that month/year value for this patient."
^DD(354.701,.01,"DT")="3001116"
^DD(354.701,.02,0)="TOTAL AMOUNT BILLED^NJ10,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(354.701,.02,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(354.701,.02,21,0)="^^2^2^3001116^"
^DD(354.701,.02,21,1,0)="This is the total amount billed for this patient for this month. This will"
^DD(354.701,.02,21,2,0)="be used to determine if the patient can be billed again for this month."
^DD(354.701,.02,"DT")="3010219"
^DD(354.701,.03,0)="CAP REACHED^S^0:NO;1:YES;2:OVER;^0;3^Q"
^DD(354.701,.03,3)="Has the patient reached his cap."
^DD(354.701,.03,21,0)="^^1^1^3001116^"
^DD(354.701,.03,21,1,0)="This flag indicates if the patient has reached the cap for this month."
^DD(354.701,.03,"DT")="3010919"
^DD(354.701,.04,0)="TOTAL AMOUNT NON-BILLABLE^NJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(354.701,.04,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(354.701,.04,21,0)="^^2^2^3001117^"
^DD(354.701,.04,21,1,0)="This is the total amount non-billable for this patient, for this timeframe"
^DD(354.701,.04,21,2,0)="from this site only."
^DD(354.701,.04,"DT")="3010219"
^DD(354.701,"B","CAP REACHED",.03)=""
^DD(354.701,"B","MONTH/YEAR",.01)=""
^DD(354.701,"B","TOTAL AMOUNT BILLED",.02)=""
^DD(354.701,"B","TOTAL AMOUNT NON-BILLABLE",.04)=""
^DD(354.701,"GL",0,1,.01)=""
^DD(354.701,"GL",0,2,.02)=""
^DD(354.701,"GL",0,3,.03)=""
^DD(354.701,"GL",0,4,.04)=""
^DD(354.701,"IX",.01)=""
^DD(354.71,0)="FIELD^^1^21"
^DD(354.71,0,"DDA")="N"
^DD(354.71,0,"DT")="3010216"
^DD(354.71,0,"IX","AC",354.71,.05)=""
^DD(354.71,0,"IX","AE",354.71,.03)=""
^DD(354.71,0,"IX","AF",354.71,.1)=""
^DD(354.71,0,"IX","B",354.71,.01)=""
^DD(354.71,0,"NM","IB COPAY TRANSACTIONS")=""
^DD(354.71,0,"PT",52,106.6)=""
^DD(354.71,0,"PT",52.1,9.1)=""
^DD(354.71,0,"PT",350,.19)=""
^DD(354.71,0,"PT",354.71,.1)=""
^DD(354.71,0,"VR")="2.0"
^DD(354.71,0,"VRPK")="IB"
^DD(354.71,.01,0)="TRANSACTION NUMBER^RF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(354.71,.01,1,0)="^.1"
^DD(354.71,.01,1,1,0)="354.71^B"
^DD(354.71,.01,1,1,1)="S ^IBAM(354.71,""B"",$E(X,1,30),DA)="""""
^DD(354.71,.01,1,1,2)="K ^IBAM(354.71,""B"",$E(X,1,30),DA)"
^DD(354.71,.01,3)="Answer with the transaction number."
^DD(354.71,.01,21,0)="^^3^3^3010206^"
^DD(354.71,.01,21,1,0)="This is the transaction number.  The format is:"
^DD(354.71,.01,21,2,0)=" "
^DD(354.71,.01,21,3,0)="        Station number (3 digits) - Sequential Number"
^DD(354.71,.01,"DT")="3010206"
^DD(354.71,.02,0)="PATIENT^RP354.7'^IBAM(354.7,^0;2^Q"
^DD(354.71,.02,3)="Enter the patient's name"
^DD(354.71,.02,21,0)="^^2^2^3001116^"
^DD(354.71,.02,21,1,0)="This is the pointer to the patient copay account.  The ien stored here is"
^DD(354.71,.02,21,2,0)="the same as the patient's dfn."
^DD(354.71,.02,"DT")="3010216"
^DD(354.71,.03,0)="TRANS EFFECTIVE DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354.71,.03,1,0)="^.1"
^DD(354.71,.03,1,1,0)="354.71^AE"
^DD(354.71,.03,1,1,1)="S ^IBAM(354.71,""AE"",$E(X,1,30),DA)="""""
^DD(354.71,.03,1,1,2)="K ^IBAM(354.71,""AE"",$E(X,1,30),DA)"
^DD(354.71,.03,1,1,"%D",0)="^^1^1^3010821^"
^DD(354.71,.03,1,1,"%D",1,0)="This index is used to sort by the effective date of the transaction."
^DD(354.71,.03,1,1,"DT")="3010821"
^DD(354.71,.03,3)="Enter the effective date of this transaction"
^DD(354.71,.03,21,0)="^^3^3^3010424^"
^DD(354.71,.03,21,1,0)="This is the effective date of the transaction that is used to determine"
^DD(354.71,.03,21,2,0)="the month/year in which to count the transaction amount towards the"
^DD(354.71,.03,21,3,0)="patient's cap."
^DD(354.71,.03,"DT")="3010821"
^DD(354.71,.04,0)="IB ACTION POINTER^P350'^IB(^0;4^Q"
^DD(354.71,.04,3)="Answer with an entry in the Integrated Billing Action file."
^DD(354.71,.04,21,0)="^^2^2^3001116^"
^DD(354.71,.04,21,1,0)="This is a pointer to the INTEGRATED BILLING ACTION (#350) file.  This will"
^DD(354.71,.04,21,2,0)="only be filled in for entries that have been billed."
^DD(354.71,.04,"DT")="3001116"
^DD(354.71,.05,0)="STATUS^RS^P:PENDING TRANSMISSION;C:COMPLETE;Y:CANCELLED PENDING TRANSMISSION;X:CANCELLED COMPLETE;^0;5^Q"
^DD(354.71,.05,1,0)="^.1"
^DD(354.71,.05,1,1,0)="354.71^AC"
^DD(354.71,.05,1,1,1)="S ^IBAM(354.71,""AC"",$E(X,1,30),DA)="""""
^DD(354.71,.05,1,1,2)="K ^IBAM(354.71,""AC"",$E(X,1,30),DA)"
^DD(354.71,.05,1,1,"%D",0)="^^3^3^3010424^"
^DD(354.71,.05,1,1,"%D",1,0)="This cross reference is used to find transactions based upon their status."
^DD(354.71,.05,1,1,"%D",2,0)="The nightly background job uses this to find transactions that have not"
^DD(354.71,.05,1,1,"%D",3,0)="completed their transmissions to other facilities."
^DD(354.71,.05,1,1,"DT")="3001205"
^DD(354.71,.05,3)="Enter the status of this transaction."
^DD(354.71,.05,21,0)="^^1^1^3010420^"
^DD(354.71,.05,21,1,0)="This is the status of this transaction."
^DD(354.71,.05,"DT")="3010420"
^DD(354.71,.06,0)="RESULTING FROM^RF^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(354.71,.06,3)="Enter the internal pointer information indicating the event source."
^DD(354.71,.06,21,0)="^^4^4^3010420^"
^DD(354.71,.06,21,1,0)="This is a soft link pointer to indicate where this transaction came from."
^DD(354.71,.06,21,2,0)="The information should be in the following format:"
^DD(354.71,.06,21,3,0)=" "
^DD(354.71,.06,21,4,0)="Station Number:File Number:IEN;refill number (if any)"
^DD(354.71,.06,"DT")="3010420"
^DD(354.71,.07,0)="UNITS^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(354.71,.07,3)="Enter the number of units for this transaction."
^DD(354.71,.07,21,0)="^.001^1^1^3010130^^"
^DD(354.71,.07,21,1,0)="This is the number of units for this transaction."
^DD(354.71,.07,"DT")="3010130"
^DD(354.71,.08,0)="TOTAL CHARGE^NJ10,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01)!(X?.E1"".""3.N) X"
^DD(354.71,.08,3)="Enter the total charge for this account transaction."
^DD(354.71,.08,21,0)="^^1^1^3001117^"
^DD(354.71,.08,21,1,0)="This is the total charge for this transaction."
^DD(354.71,.08,"DT")="3001117"
^DD(354.71,.09,0)="BRIEF DESCRIPTION^F^^0;9^K:$L(X)>20!($L(X)<3) X"
^DD(354.71,.09,3)="Answer with a description of this transaction."
^DD(354.71,.09,21,0)="^^1^1^3001117^"
^DD(354.71,.09,21,1,0)="This is descriptive information regarding this transaction."
^DD(354.71,.09,"DT")="3001117"
^DD(354.71,.1,0)="PARENT TRANSACTION ENTRY^P354.71'^IBAM(354.71,^0;10^Q"
^DD(354.71,.1,1,0)="^.1"
^DD(354.71,.1,1,1,0)="354.71^AF"
^DD(354.71,.1,1,1,1)="S ^IBAM(354.71,""AF"",$E(X,1,30),DA)="""""
^DD(354.71,.1,1,1,2)="K ^IBAM(354.71,""AF"",$E(X,1,30),DA)"
^DD(354.71,.1,1,1,"%D",0)="^^1^1^3010822^"
^DD(354.71,.1,1,1,"%D",1,0)="Used to look up the parents of a transaction."
^DD(354.71,.1,1,1,"DT")="3010822"
^DD(354.71,.1,3)="Answer with the parent of this transaction entry."
^DD(354.71,.1,21,0)="^^2^2^3010420^"
^DD(354.71,.1,21,1,0)="This is a pointer to the parent transaction entry.  If this is the same as"
^DD(354.71,.1,21,2,0)="this entry, then this is the parent."
^DD(354.71,.1,"DT")="3010822"
^DD(354.71,.11,0)="BILLED AMOUNT^NJ10,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(354.71,.11,3)="Type a Dollar amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(354.71,.11,21,0)="^.001^1^1^3010130^^"
^DD(354.71,.11,21,1,0)="This is the amount that was billed for this transaction."
^DD(354.71,.11,"DT")="3060201"
^DD(354.71,.12,0)="NON-BILLABLE AMOUNT^NJ10,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(354.71,.12,3)="Type a Dollar amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(354.71,.12,21,0)="^.001^1^1^3010130^^"
^DD(354.71,.12,21,1,0)="This is the non-billable amount for this transaction."
^DD(354.71,.12,"DT")="3060201"
^DD(354.71,.13,0)="INSTITUTION^P4'^DIC(4,^0;13^Q"
^DD(354.71,.13,3)="Answer with an institution name."
^DD(354.71,.13,21,0)="^.001^1^1^3010130^^"
^DD(354.71,.13,21,1,0)="This pointer indicates where this account transaction came from."
^DD(354.71,.13,"DT")="3001117"
^DD(354.71,.14,0)="USER ADDING ENTRY^P200'^VA(200,^0;14^Q"
^DD(354.71,.14,3)="Answer with the person's name who added this entry."
^DD(354.71,.14,21,0)="^.001^2^2^3010130^^"
^DD(354.71,.14,21,1,0)="This is the person who added this entry. This may be a remote person since"
^DD(354.71,.14,21,2,0)="they are also stored in the New Person file."
^DD(354.71,.14,"DT")="3001117"
^DD(354.71,.15,0)="DATE ENTRY ADDED^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(354.71,.15,3)="Enter the date when this entry was added."
^DD(354.71,.15,21,0)="^^1^1^3001117^"
^DD(354.71,.15,21,1,0)="This indicates when this entry was added."
^DD(354.71,.15,"DT")="3001117"
^DD(354.71,.16,0)="USER LAST UPDATING^P200'^VA(200,^0;16^Q"
^DD(354.71,.16,3)="Answer with the person who last updated this transaction."
^DD(354.71,.16,21,0)="^^1^1^3001117^"
^DD(354.71,.16,21,1,0)="This is the person who last updated this transaction."
^DD(354.71,.16,"DT")="3001117"
^DD(354.71,.17,0)="DATE LAST UPDATED^D^^0;17^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(354.71,.17,3)="Answer with the last date/time there was an update to this transaction."
^DD(354.71,.17,21,0)="^^1^1^3010420^"
^DD(354.71,.17,21,1,0)="This is the last date/time this transaction was updated."
^DD(354.71,.17,"DT")="3010420"
^DD(354.71,.18,0)="ACTION TYPE^P350.1'^IBE(350.1,^0;18^Q"
^DD(354.71,.18,3)="Answer with the appropriate action type."
^DD(354.71,.18,21,0)="^.001^2^2^3010608^^"
^DD(354.71,.18,21,1,0)="This pointer to the action type identifies what action type this"
^DD(354.71,.18,21,2,0)="transaction was created with."
^DD(354.71,.18,"DT")="3010608"
^DD(354.71,.19,0)="CANCELLATION REASON^P350.3'^IBE(350.3,^0;19^Q"
^DD(354.71,.19,3)="Answer with the reason to cancel this charge."
^DD(354.71,.19,21,0)="^.001^1^1^3010912^^"
^DD(354.71,.19,21,1,0)="This is the reason this transaction is cancelled."
^DD(354.71,.19,"DT")="3010912"
^DD(354.71,.2,0)="PFSS REMOTE TRANSACTION^S^0:NO;1:YES;^0;20^Q"
^DD(354.71,.2,3)="Enter YES if this transaction came from a PFSS remote system."
^DD(354.71,.2,21,0)="^^3^3^3050715^"
^DD(354.71,.2,21,1,0)="This field is a flag/indicator that this billing transaction is from a "
^DD(354.71,.2,21,2,0)="PFSS remote system to the local VistA M system.  It is used to determine "
^DD(354.71,.2,21,3,0)="which system should be used for update processing."
^DD(354.71,.2,"DT")="3050715"
^DD(354.71,1,0)="TRANSMISSION RECORD^354.711P^^1;0"
^DD(354.71,1,21,0)="^^3^3^3010420^"
^DD(354.71,1,21,1,0)="This is a record of transmission(s) to each facility that is a treating"
^DD(354.71,1,21,2,0)="facility for the patient. This record will indicate if a transmission has"
^DD(354.71,1,21,3,0)="been accepted or not at the individual facilities."
^DD(354.71,"B","ACTION TYPE",.18)=""
^DD(354.71,"B","BILLED AMOUNT",.11)=""
^DD(354.71,"B","BRIEF DESCRIPTION",.09)=""
^DD(354.71,"B","CANCELLATION REASON",.19)=""
^DD(354.71,"B","DATE ENTRY ADDED",.15)=""
^DD(354.71,"B","DATE LAST UPDATED",.17)=""
^DD(354.71,"B","IB ACTION POINTER",.04)=""
^DD(354.71,"B","INSTITUTION",.13)=""
^DD(354.71,"B","NON-BILLABLE AMOUNT",.12)=""
^DD(354.71,"B","PARENT TRANSACTION ENTRY",.1)=""
^DD(354.71,"B","PATIENT",.02)=""
^DD(354.71,"B","PFSS REMOTE TRANSACTION",.2)=""
^DD(354.71,"B","RESULTING FROM",.06)=""
^DD(354.71,"B","STATUS",.05)=""
^DD(354.71,"B","TOTAL CHARGE",.08)=""
^DD(354.71,"B","TRANS EFFECTIVE DATE",.03)=""
^DD(354.71,"B","TRANSACTION NUMBER",.01)=""
^DD(354.71,"B","TRANSMISSION RECORD",1)=""
^DD(354.71,"B","UNITS",.07)=""
^DD(354.71,"B","USER ADDING ENTRY",.14)=""
^DD(354.71,"B","USER LAST UPDATING",.16)=""
^DD(354.71,"GL",0,1,.01)=""
^DD(354.71,"GL",0,2,.02)=""
^DD(354.71,"GL",0,3,.03)=""
^DD(354.71,"GL",0,4,.04)=""
^DD(354.71,"GL",0,5,.05)=""
^DD(354.71,"GL",0,6,.06)=""
^DD(354.71,"GL",0,7,.07)=""
^DD(354.71,"GL",0,8,.08)=""
^DD(354.71,"GL",0,9,.09)=""
^DD(354.71,"GL",0,10,.1)=""
^DD(354.71,"GL",0,11,.11)=""
^DD(354.71,"GL",0,12,.12)=""
^DD(354.71,"GL",0,13,.13)=""
^DD(354.71,"GL",0,14,.14)=""
^DD(354.71,"GL",0,15,.15)=""
^DD(354.71,"GL",0,16,.16)=""
^DD(354.71,"GL",0,17,.17)=""
^DD(354.71,"GL",0,18,.18)=""
^DD(354.71,"GL",0,19,.19)=""
^DD(354.71,"GL",0,20,.2)=""
^DD(354.71,"GL",1,0,1)=""
^DD(354.71,"IX",.01)=""
^DD(354.71,"IX",.03)=""
^DD(354.71,"IX",.05)=""
^DD(354.71,"IX",.1)=""
^DD(354.71,"RQ",.01)=""
^DD(354.71,"RQ",.02)=""
^DD(354.71,"RQ",.03)=""
^DD(354.71,"RQ",.05)=""
^DD(354.71,"RQ",.06)=""
^DD(354.71,"SB",354.711,1)=""
^DD(354.711,0)="TRANSMISSION RECORD SUB-FIELD^^.02^2"
^DD(354.711,0,"DT")="3001117"
^DD(354.711,0,"IX","B",354.711,.01)=""
^DD(354.711,0,"NM","TRANSMISSION RECORD")=""
^DD(354.711,0,"UP")="354.71"
^DD(354.711,.01,0)="TRANSMISSION FACILITY^P4'^DIC(4,^0;1^Q"
^DD(354.711,.01,1,0)="^.1"
^DD(354.711,.01,1,1,0)="354.711^B"
^DD(354.711,.01,1,1,1)="S ^IBAM(354.71,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(354.711,.01,1,1,2)="K ^IBAM(354.71,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(354.711,.01,3)="Enter a facility name."
^DD(354.711,.01,21,0)="^.001^2^2^3010130^^"
^DD(354.711,.01,21,1,0)="This multiple is a list of facilities a transmission would go to for this"
^DD(354.711,.01,21,2,0)="transaction."
^DD(354.711,.01,"DT")="3001117"
^DD(354.711,.02,0)="TRANSMISSION STATUS^S^0:NOT COMPLETED;1:COMPLETED/ACCEPTED;^0;2^Q"
^DD(354.711,.02,3)="Enter the status for this facility's transmission."
^DD(354.711,.02,21,0)="^^1^1^3001117^"
^DD(354.711,.02,21,1,0)="This is the status of this facility's transmission."
^DD(354.711,.02,"DT")="3001117"
^DD(354.711,"B","TRANSMISSION FACILITY",.01)=""
^DD(354.711,"B","TRANSMISSION STATUS",.02)=""
^DD(354.711,"GL",0,1,.01)=""
^DD(354.711,"GL",0,2,.02)=""
^DD(354.711,"IX",.01)=""
^DD(354.75,0)="FIELD^^.06^6"
^DD(354.75,0,"DDA")="N"
^DD(354.75,0,"DT")="3010605"
^DD(354.75,0,"IX","B",354.75,.01)=""
^DD(354.75,0,"NM","IB COPAY CAPS")=""
^DD(354.75,0,"VR")="2.0"
^DD(354.75,0,"VRPK")="IB"
^DD(354.75,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354.75,.01,1,0)="^.1"
^DD(354.75,.01,1,1,0)="354.75^B"
^DD(354.75,.01,1,1,1)="S ^IBAM(354.75,""B"",$E(X,1,30),DA)="""""
^DD(354.75,.01,1,1,2)="K ^IBAM(354.75,""B"",$E(X,1,30),DA)"
^DD(354.75,.01,3)="Answer with an effective date."
^DD(354.75,.01,21,0)="^^3^3^3010928^"
^DD(354.75,.01,21,1,0)="This is the effective date of this cap entry.  Based upon the date of the"
^DD(354.75,.01,21,2,0)="transaction, this will be used to determine if a billing transaction is"
^DD(354.75,.01,21,3,0)="above the cap or not."
^DD(354.75,.01,"DT")="3010605"
^DD(354.75,.02,0)="PRIORITY LEVEL^NJ1,0^^0;2^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(354.75,.02,3)="Answer with a priority level 1 through 7."
^DD(354.75,.02,21,0)="^.001^2^2^3011015^^"
^DD(354.75,.02,21,1,0)="This is the priority level of the cap.  This will be used based upon the"
^DD(354.75,.02,21,2,0)="patient's priority level to determine what their cap amount is."
^DD(354.75,.02,"DT")="3010605"
^DD(354.75,.03,0)="MONTHLY CAP AMOUNT^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(354.75,.03,3)="Enter the rx copay monthly cap amount."
^DD(354.75,.03,21,0)="^^3^3^3010928^"
^DD(354.75,.03,21,1,0)="This is the monthly cap amount that will be used to determine if the bill"
^DD(354.75,.03,21,2,0)="is above the cap or not.  This is a total monthly amount that can be"
^DD(354.75,.03,21,3,0)="billed to a patient for pharmacy copay."
^DD(354.75,.03,"DT")="3010605"
^DD(354.75,.04,0)="YEARLY CAP AMOUNT^NJ9,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(354.75,.04,3)="Enter the rx copay yearly cap amount."
^DD(354.75,.04,21,0)="^^3^3^3011015^"
^DD(354.75,.04,21,1,0)="This is the yearly cap amount that will be used to determine if the bill"
^DD(354.75,.04,21,2,0)="is above the cap or not based on the year basis specified. This is the"
^DD(354.75,.04,21,3,0)="total yearly amount that can be billed to a patient for pharmacy copay."
^DD(354.75,.04,"DT")="3010605"
^DD(354.75,.05,0)="TERMINATION DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(354.75,.05,3)="Answer with the termination date of this cap amount."
^DD(354.75,.05,21,0)="^^1^1^3010605^"
^DD(354.75,.05,21,1,0)="This is the termination date of this cap amount.  This is optional."
^DD(354.75,.05,"DT")="3010605"
^DD(354.75,.06,0)="YEAR BASIS^S^C:CALENDAR YEAR;F:FISCAL YEAR;^0;6^Q"
^DD(354.75,.06,3)="Answer with the year basis for this cap amount."
^DD(354.75,.06,21,0)="^^2^2^3010605^"
^DD(354.75,.06,21,1,0)="This is the year basis for this cap amount.  This will be used to"
^DD(354.75,.06,21,2,0)="determine the timeframe to calculate the amounts billed to a patient."
^DD(354.75,.06,"DT")="3010605"
^DD(354.75,"B","EFFECTIVE DATE",.01)=""
^DD(354.75,"B","MONTHLY CAP AMOUNT",.03)=""
^DD(354.75,"B","PRIORITY LEVEL",.02)=""
^DD(354.75,"B","TERMINATION DATE",.05)=""
^DD(354.75,"B","YEAR BASIS",.06)=""
^DD(354.75,"B","YEARLY CAP AMOUNT",.04)=""
^DD(354.75,"GL",0,1,.01)=""
^DD(354.75,"GL",0,2,.02)=""
^DD(354.75,"GL",0,3,.03)=""
^DD(354.75,"GL",0,4,.04)=""
^DD(354.75,"GL",0,5,.05)=""
^DD(354.75,"GL",0,6,.06)=""
^DD(354.75,"IX",.01)=""
^DD(354.75,"RQ",.01)=""
^DD(355.1,0)="FIELD^^10^5"
^DD(355.1,0,"DDA")="N"
^DD(355.1,0,"DT")="2940111"
^DD(355.1,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.1,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(355.1,0,"IX","B",355.1,.01)=""
^DD(355.1,0,"IX","C",355.1,.03)=""
^DD(355.1,0,"IX","D",355.1,.02)=""
^DD(355.1,0,"NM","TYPE OF PLAN")=""
^DD(355.1,0,"PT",355.3,.09)=""
^DD(355.1,0,"PT",355.33,40.09)=""
^DD(355.1,0,"VR")="2.0"
^DD(355.1,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(355.1,.01,1,0)="^.1"
^DD(355.1,.01,1,1,0)="355.1^B"
^DD(355.1,.01,1,1,1)="S ^IBE(355.1,""B"",$E(X,1,30),DA)="""""
^DD(355.1,.01,1,1,2)="K ^IBE(355.1,""B"",$E(X,1,30),DA)"
^DD(355.1,.01,3)="Enter the name of this type of policy that best describes the policy.  Answer must be 3-40 characters in length."
^DD(355.1,.01,21,0)="^^10^10^2940213^^^^"
^DD(355.1,.01,21,1,0)="There are a number of different types of policies, some have very"
^DD(355.1,.01,21,2,0)="specific types of coverage while others cover a much broader"
^DD(355.1,.01,21,3,0)="range of care.  This is the name of the type of policy.  Select"
^DD(355.1,.01,21,4,0)="the name that best describes the type of policy.  This is a list of "
^DD(355.1,.01,21,5,0)="standard types of policies."
^DD(355.1,.01,21,6,0)=" "
^DD(355.1,.01,21,7,0)="The type of policy may be dependent on the type of coverage provided"
^DD(355.1,.01,21,8,0)="by the insurance company and may affect the type of benefits that are"
^DD(355.1,.01,21,9,0)="available for the policy.  This will be used in determining if the"
^DD(355.1,.01,21,10,0)="reimbursement from the insurance company is appropriate for this policy."
^DD(355.1,.01,"DT")="2930225"
^DD(355.1,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<2) X"
^DD(355.1,.02,1,0)="^.1"
^DD(355.1,.02,1,1,0)="355.1^D"
^DD(355.1,.02,1,1,1)="S ^IBE(355.1,""D"",$E(X,1,30),DA)="""""
^DD(355.1,.02,1,1,2)="K ^IBE(355.1,""D"",$E(X,1,30),DA)"
^DD(355.1,.02,1,1,"DT")="2930603"
^DD(355.1,.02,3)="Enter the standard abbreviation.  Answer must be 2-8 characters in length."
^DD(355.1,.02,21,0)="^^3^3^2930603^"
^DD(355.1,.02,21,1,0)="Enter the standard abbreviation for this type of policy.  The abbreviation"
^DD(355.1,.02,21,2,0)="will be used on standard displays of policy information where space is"
^DD(355.1,.02,21,3,0)="limited."
^DD(355.1,.02,"DT")="2930603"
^DD(355.1,.03,0)="MAJOR CATEGORY^S^1:MAJOR MEDICAL;2:DENTAL;3:HMO;4:PPO;5:MEDICARE;6:MEDICAIDE;7:CHAMPUS;8:WORKMANS COMP;9:INDEMNITY;10:PRESCRIPTION;11:MEDICARE SUPPLEMENTAL;12:ALL OTHER;^0;3^Q"
^DD(355.1,.03,1,0)="^.1"
^DD(355.1,.03,1,1,0)="355.1^C"
^DD(355.1,.03,1,1,1)="S ^IBE(355.1,""C"",$E(X,1,30),DA)="""""
^DD(355.1,.03,1,1,2)="K ^IBE(355.1,""C"",$E(X,1,30),DA)"
^DD(355.1,.03,1,1,"DT")="2930603"
^DD(355.1,.03,9)="@"
^DD(355.1,.03,21,0)="^^3^3^2940111^^^"
^DD(355.1,.03,21,1,0)="Each type of policy must be identified with a major category.  It is the"
^DD(355.1,.03,21,2,0)="major category field that will be used to determine the type of policy"
^DD(355.1,.03,21,3,0)="internally by the computer."
^DD(355.1,.03,"DT")="2940111"
^DD(355.1,.04,0)="INACTIVE^S^1:YES;^0;4^Q"
^DD(355.1,.04,3)="Enter Yes if this Type of Plan should be Inactivated."
^DD(355.1,.04,21,0)="^^1^1^2970811^"
^DD(355.1,.04,21,1,0)="An Inactive Type of Plan should no longer be used to define Plans."
^DD(355.1,.04,"DT")="2970811"
^DD(355.1,10,0)="DESCRIPTION^355.11^^10;0"
^DD(355.1,10,21,0)="^^1^1^2930603^"
^DD(355.1,10,21,1,0)="Enter a one or two sentence description of the type of policy."
^DD(355.1,"B","ABBREVIATION",.02)=""
^DD(355.1,"B","DESCRIPTION",10)=""
^DD(355.1,"B","INACTIVE",.04)=""
^DD(355.1,"B","MAJOR CATEGORY",.03)=""
^DD(355.1,"B","NAME",.01)=""
^DD(355.1,"GL",0,1,.01)=""
^DD(355.1,"GL",0,2,.02)=""
^DD(355.1,"GL",0,3,.03)=""
^DD(355.1,"GL",0,4,.04)=""
^DD(355.1,"GL",10,0,10)=""
^DD(355.1,"IX",.01)=""
^DD(355.1,"IX",.02)=""
^DD(355.1,"IX",.03)=""
^DD(355.1,"RQ",.01)=""
^DD(355.1,"SB",355.11,10)=""
^DD(355.11,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(355.11,0,"DT")="2930603"
^DD(355.11,0,"NM","DESCRIPTION")=""
^DD(355.11,0,"UP")="355.1"
^DD(355.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(355.11,.01,"DT")="2930603"
^DD(355.11,"B","DESCRIPTION",.01)=""
^DD(355.11,"GL",0,1,.01)=""
^DD(355.12,0)="FIELD^^.03^3"
^DD(355.12,0,"DDA")="N"
^DD(355.12,0,"DT")="3061024"
^DD(355.12,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(355.12,0,"IX","B",355.12,.01)=""
^DD(355.12,0,"IX","C",355.12,.02)=""
^DD(355.12,0,"NM","SOURCE OF INFORMATION")=""
^DD(355.12,0,"PT",2.312,1.09)=""
^DD(355.12,0,"PT",355.33,.03)=""
^DD(355.12,0,"VR")="2.0"
^DD(355.12,0,"VRPK")="IB"
^DD(355.12,.01,0)="CODE^RNJ3,0O^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(355.12,.01,1,0)="^.1"
^DD(355.12,.01,1,1,0)="355.12^B"
^DD(355.12,.01,1,1,1)="S ^IBE(355.12,""B"",$E(X,1,30),DA)="""""
^DD(355.12,.01,1,1,2)="K ^IBE(355.12,""B"",$E(X,1,30),DA)"
^DD(355.12,.01,2)="S Y(0)=Y S Y=$$GET1^DIQ(355.12,Y_"","",.02,""E"")"
^DD(355.12,.01,2.1)="S Y=$$GET1^DIQ(355.12,Y_"","",.02,""E"")"
^DD(355.12,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(355.12,.01,21,0)="^.001^2^2^3061206^^^"
^DD(355.12,.01,21,1,0)="Source of Information code represents the origination of the patients "
^DD(355.12,.01,21,2,0)="insurance information."
^DD(355.12,.01,"DT")="3061108"
^DD(355.12,.02,0)="DESCRIPTION^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(355.12,.02,1,0)="^.1"
^DD(355.12,.02,1,1,0)="355.12^C"
^DD(355.12,.02,1,1,1)="S ^IBE(355.12,""C"",$E(X,1,30),DA)="""""
^DD(355.12,.02,1,1,2)="K ^IBE(355.12,""C"",$E(X,1,30),DA)"
^DD(355.12,.02,1,1,"DT")="3061025"
^DD(355.12,.02,3)="Answer must be 3-30 characters in length."
^DD(355.12,.02,21,0)="^^1^1^3061108^"
^DD(355.12,.02,21,1,0)="This is the description of the Source of Information code."
^DD(355.12,.02,"DT")="3061108"
^DD(355.12,.03,0)="IB BUFFER ACRONYM^F^^0;3^K:$L(X)>5!($L(X)<1) X"
^DD(355.12,.03,3)="Answer must be 1-5 characters in length."
^DD(355.12,.03,21,0)="^.001^1^1^3061206^^"
^DD(355.12,.03,21,1,0)="This acronym is used for display purposes in the Insurance Buffer screen."
^DD(355.12,.03,"DT")="3061108"
^DD(355.12,"B","CODE",.01)=""
^DD(355.12,"B","DESCRIPTION",.02)=""
^DD(355.12,"B","IB BUFFER ACRONYM",.03)=""
^DD(355.12,"GL",0,1,.01)=""
^DD(355.12,"GL",0,2,.02)=""
^DD(355.12,"GL",0,3,.03)=""
^DD(355.12,"IX",.01)=""
^DD(355.12,"IX",.02)=""
^DD(355.12,"RQ",.01)=""
^DD(355.12,"RQ",.02)=""
^DD(355.2,0)="FIELD^^10^3"
^DD(355.2,0,"DDA")="N"
^DD(355.2,0,"DT")="2930603"
^DD(355.2,0,"IX","B",355.2,.01)=""
^DD(355.2,0,"IX","C",355.2,.02)=""
^DD(355.2,0,"NM","TYPE OF INSURANCE COVERAGE")=""
^DD(355.2,0,"PT",36,.13)=""
^DD(355.2,0,"VR")="2.0"
^DD(355.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(355.2,.01,1,0)="^.1"
^DD(355.2,.01,1,1,0)="355.2^B"
^DD(355.2,.01,1,1,1)="S ^IBE(355.2,""B"",$E(X,1,30),DA)="""""
^DD(355.2,.01,1,1,2)="K ^IBE(355.2,""B"",$E(X,1,30),DA)"
^DD(355.2,.01,3)="This is the name of the type of policy.  Answer must be 3-30 characters in length."
^DD(355.2,.01,21,0)="^^16^16^2940213^^^^"
^DD(355.2,.01,21,1,0)="This is name of the type of coverage that an insurance company generally"
^DD(355.2,.01,21,2,0)="provides.  The entries in this file are a limited set of choices"
^DD(355.2,.01,21,3,0)="that are exported with the IB package.  The entries may have special"
^DD(355.2,.01,21,4,0)="meaning interanally in the billing package."
^DD(355.2,.01,21,5,0)=" "
^DD(355.2,.01,21,6,0)="If this insurance carrier provides only one type of coverage then select"
^DD(355.2,.01,21,7,0)="the entry that best describes this carriers' type of coverage.  If this"
^DD(355.2,.01,21,8,0)="carrier provides more than one type of coverage then select HEALTH"
^DD(355.2,.01,21,9,0)="INSURANCE.  The default answer if left unanswered is Health Insurance."
^DD(355.2,.01,21,10,0)=" "
^DD(355.2,.01,21,11,0)="This is useful information when contacting carriers, when creating "
^DD(355.2,.01,21,12,0)="claims for reimbursement and when estimating if the payment received is"
^DD(355.2,.01,21,13,0)="appropriate."
^DD(355.2,.01,21,14,0)=" "
^DD(355.2,.01,21,15,0)="If this field is answered it may affect choices that can be selected when"
^DD(355.2,.01,21,16,0)="entering policy or benefit information."
^DD(355.2,.01,"DT")="2930603"
^DD(355.2,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<2) X"
^DD(355.2,.02,1,0)="^.1"
^DD(355.2,.02,1,1,0)="355.2^C"
^DD(355.2,.02,1,1,1)="S ^IBE(355.2,""C"",$E(X,1,30),DA)="""""
^DD(355.2,.02,1,1,2)="K ^IBE(355.2,""C"",$E(X,1,30),DA)"
^DD(355.2,.02,1,1,"DT")="2930602"
^DD(355.2,.02,3)="Enter a standard abbreviation.  Answer must be 2-8 characters in length."
^DD(355.2,.02,21,0)="^^3^3^2930603^^"
^DD(355.2,.02,21,1,0)="This is the standard abbreviation for this type of coverage.  Enter"
^DD(355.2,.02,21,2,0)="the 2 to 8 character abbreviation.  The abbreviation may appear on "
^DD(355.2,.02,21,3,0)="reports that have limited space available."
^DD(355.2,.02,"DT")="2930602"
^DD(355.2,10,0)="DESCRIPTION^355.21^^10;0"
^DD(355.2,10,21,0)="^^1^1^2930603^^"
^DD(355.2,10,21,1,0)="Enter a one or two sentence description of the type of coverage."
^DD(355.2,"B","ABBREVIATION",.02)=""
^DD(355.2,"B","DESCRIPTION",10)=""
^DD(355.2,"B","NAME",.01)=""
^DD(355.2,"GL",0,1,.01)=""
^DD(355.2,"GL",0,2,.02)=""
^DD(355.2,"GL",10,0,10)=""
^DD(355.2,"IX",.01)=""
^DD(355.2,"IX",.02)=""
^DD(355.2,"RQ",.01)=""
^DD(355.2,"SB",355.21,10)=""
^DD(355.21,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(355.21,0,"DT")="2930602"
^DD(355.21,0,"NM","DESCRIPTION")=""
^DD(355.21,0,"UP")="355.2"
^DD(355.21,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(355.21,.01,21,0)="^^1^1^2930603^"
^DD(355.21,.01,21,1,0)="Enter a one or two sentence description of the type of coverage."
^DD(355.21,.01,"DT")="2930602"
^DD(355.21,"B","DESCRIPTION",.01)=""
^DD(355.21,"GL",0,1,.01)=""
^DD(355.3,0)="FIELD^^11^25"
^DD(355.3,0,"DDA")="N"
^DD(355.3,0,"DT")="2941102"
^DD(355.3,0,"ID",.02)="W:$P(^(0),U,2)=0 ""   Individual Policy"" W:$P(^(0),U,2) ""   Group Policy"""
^DD(355.3,0,"ID",.03)="I $P(^(0),U,3)]"""" W ""   Group Name: "",$P(^(0),U,3)"
^DD(355.3,0,"ID",.04)="I $P(^(0),U,4)]"""" W ""   Group No: "",$P(^(0),U,4)"
^DD(355.3,0,"IX","ACCP",355.3,.03)=""
^DD(355.3,0,"IX","ACCP1",355.3,.04)=""
^DD(355.3,0,"IX","ACCP2",355.3,.01)=""
^DD(355.3,0,"IX","ACCP3",355.3,.01)=""
^DD(355.3,0,"IX","AENR04",355.3,.04)=""
^DD(355.3,0,"IX","AGNA",355.3,.03)=""
^DD(355.3,0,"IX","AGNA1",355.3,.01)=""
^DD(355.3,0,"IX","AGNU",355.3,.04)=""
^DD(355.3,0,"IX","AGNU1",355.3,.01)=""
^DD(355.3,0,"IX","B",355.3,.01)=""
^DD(355.3,0,"IX","D",355.3,.03)=""
^DD(355.3,0,"IX","E",355.3,.04)=""
^DD(355.3,0,"NM","GROUP INSURANCE PLAN")=""
^DD(355.3,0,"PT",2.312,.18)=""
^DD(355.3,0,"PT",355.32,.01)=""
^DD(355.3,0,"PT",355.4,.02)=""
^DD(355.3,0,"PT",355.5,.01)=""
^DD(355.3,0,"PT",366.141,.303)=""
^DD(355.3,0,"PT",366.1412,.02)=""
^DD(355.3,0,"PT",9002313.02,1.04)=""
^DD(355.3,0,"PT",9002313.57902,.01)=""
^DD(355.3,0,"PT",9002313.59902,.01)=""
^DD(355.3,0,"VR")="2.0"
^DD(355.3,.01,0)="INSURANCE COMPANY^RP36'^DIC(36,^0;1^Q"
^DD(355.3,.01,1,0)="^.1"
^DD(355.3,.01,1,1,0)="355.3^B"
^DD(355.3,.01,1,1,1)="S ^IBA(355.3,""B"",$E(X,1,30),DA)="""""
^DD(355.3,.01,1,1,2)="K ^IBA(355.3,""B"",$E(X,1,30),DA)"
^DD(355.3,.01,1,2,0)="^^TRIGGER^355.3^1.01"
^DD(355.3,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.3,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.3,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(355.3,.01,1,2,1.1) X ^DD(355.3,.01,1,2,1.4)"
^DD(355.3,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(355.3,.01,1,2,1.4)="S DIH=$S($D(^IBA(355.3,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,1)=DIV,DIH=355.3,DIG=1.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.3,.01,1,2,2)="Q"
^DD(355.3,.01,1,2,"%D",0)="^^1^1^2940213^"
^DD(355.3,.01,1,2,"%D",1,0)="Triggers the date/time entered when creating a new entry."
^DD(355.3,.01,1,2,"CREATE CONDITION")="#1.01="""""
^DD(355.3,.01,1,2,"CREATE VALUE")="NOW"
^DD(355.3,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.3,.01,1,2,"DT")="2940213"
^DD(355.3,.01,1,2,"FIELD")="#1.01"
^DD(355.3,.01,1,3,0)="^^TRIGGER^355.3^1.02"
^DD(355.3,.01,1,3,1)="X ^DD(355.3,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.3,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(355.3,.01,1,3,1.4)"
^DD(355.3,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.3,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(355.3,.01,1,3,1.4)="S DIH=$S($D(^IBA(355.3,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=355.3,DIG=1.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.3,.01,1,3,2)="Q"
^DD(355.3,.01,1,3,"%D",0)="^^1^1^2940213^"
^DD(355.3,.01,1,3,"%D",1,0)="Triggers the user who created this entry."
^DD(355.3,.01,1,3,"CREATE CONDITION")="#1.02="""""
^DD(355.3,.01,1,3,"CREATE VALUE")="S X=DUZ"
^DD(355.3,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.3,.01,1,3,"DT")="2940213"
^DD(355.3,.01,1,3,"FIELD")="#1.02"
^DD(355.3,.01,1,4,0)="355.3^AGNA1^MUMPS"
^DD(355.3,.01,1,4,1)="I $P(^IBA(355.3,DA,0),U,3)]"""" S ^IBA(355.3,""AGNA"",X,$P(^(0),U,3),DA)="""""
^DD(355.3,.01,1,4,2)="I $P(^IBA(355.3,DA,0),U,3)]"""" K ^IBA(355.3,""AGNA"",X,$P(^(0),U,3),DA)"
^DD(355.3,.01,1,4,"%D",0)="^^1^1^2950125^^"
^DD(355.3,.01,1,4,"%D",1,0)="Cross reference of insurance companies and group names."
^DD(355.3,.01,1,4,"DT")="2950125"
^DD(355.3,.01,1,5,0)="355.3^AGNU1^MUMPS"
^DD(355.3,.01,1,5,1)="I $P(^IBA(355.3,DA,0),U,4)]"""" S ^IBA(355.3,""AGNU"",X,$P(^(0),U,4),DA)="""""
^DD(355.3,.01,1,5,2)="I $P(^IBA(355.3,DA,0),U,4)]"""" K ^IBA(355.3,""AGNU"",X,$P(^(0),U,4),DA)"
^DD(355.3,.01,1,5,"%D",0)="^^1^1^2950125^^^"
^DD(355.3,.01,1,5,"%D",1,0)="Cross reference of insurance companies and group numbers."
^DD(355.3,.01,1,5,"DT")="2950125"
^DD(355.3,.01,1,6,0)="355.3^ACCP2^MUMPS"
^DD(355.3,.01,1,6,1)="I $P(^IBA(355.3,DA,0),""^"",3)]"""" N Y S Y=$$COMP^IBCNSJ($P(^IBA(355.3,DA,0),""^"",3)) I $L(Y) S ^IBA(355.3,""ACCP"",+X,Y,DA)="""""
^DD(355.3,.01,1,6,2)="I $P(^IBA(355.3,DA,0),""^"",3)]"""" N Y S Y=$$COMP^IBCNSJ($P(^IBA(355.3,DA,0),""^"",3)) I $L(Y) K ^IBA(355.3,""ACCP"",+X,Y,DA)"
^DD(355.3,.01,1,6,"%D",0)="^^2^2^2941213^^"
^DD(355.3,.01,1,6,"%D",1,0)="Compresses entries by eliminating punctuation marks and leading zeroes, and"
^DD(355.3,.01,1,6,"%D",2,0)="converting lowercase to uppercase."
^DD(355.3,.01,1,6,"DT")="2941213"
^DD(355.3,.01,1,7,0)="355.3^ACCP3^MUMPS"
^DD(355.3,.01,1,7,1)="I $P(^IBA(355.3,DA,0),""^"",4)]"""" N Y S Y=$$COMP^IBCNSJ($P(^IBA(355.3,DA,0),""^"",4)) I $L(Y) S ^IBA(355.3,""ACCP"",+X,Y,DA)="""""
^DD(355.3,.01,1,7,2)="I $P(^IBA(355.3,DA,0),""^"",4)]"""" N Y S Y=$$COMP^IBCNSJ($P(^IBA(355.3,DA,0),""^"",4)) I $L(Y) K ^IBA(355.3,""ACCP"",+X,Y,DA)"
^DD(355.3,.01,1,7,"%D",0)="^^3^3^2950125^"
^DD(355.3,.01,1,7,"%D",1,0)="Cross-reference of the Plan company and compressed plan number."
^DD(355.3,.01,1,7,"%D",2,0)=" "
^DD(355.3,.01,1,7,"%D",3,0)="The ""ACCP1"" cross-reference in field #.04 is the companion cross-reference."
^DD(355.3,.01,1,7,"DT")="2950125"
^DD(355.3,.01,3)=""
^DD(355.3,.01,21,0)="^^1^1^2930603^"
^DD(355.3,.01,21,1,0)="Select the insurance company that this policy is with."
^DD(355.3,.01,"DT")="2950125"
^DD(355.3,.02,0)="IS THIS A GROUP POLICY?^S^1:YES;0:NO;^0;2^Q"
^DD(355.3,.02,1,0)="^.1^^0"
^DD(355.3,.02,3)="If this is a group plan answer ""YES"" so that other patients may be associated with it.  If this is an individual plan answer ""NO"" and only the current patient can have this policy."
^DD(355.3,.02,21,0)="^^5^5^2950111^^^"
^DD(355.3,.02,21,1,0)="Some policies are individual policies and are specific to a patient.  Many"
^DD(355.3,.02,21,2,0)="policies are group plans that many patients may have.  If this is a group"
^DD(355.3,.02,21,3,0)="plan, answer 'YES' so that other patients may be associated with this"
^DD(355.3,.02,21,4,0)="policy.  If this is an individual plan then answer 'NO' and only this "
^DD(355.3,.02,21,5,0)="patient can be associated with this policy."
^DD(355.3,.02,"DT")="2930525"
^DD(355.3,.03,0)="GROUP NAME^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(355.3,.03,1,0)="^.1"
^DD(355.3,.03,1,1,0)="355.3^D"
^DD(355.3,.03,1,1,1)="S ^IBA(355.3,""D"",$E(X,1,30),DA)="""""
^DD(355.3,.03,1,1,2)="K ^IBA(355.3,""D"",$E(X,1,30),DA)"
^DD(355.3,.03,1,1,"DT")="2930525"
^DD(355.3,.03,1,2,0)="355.3^AGNA^MUMPS"
^DD(355.3,.03,1,2,1)="S:+^IBA(355.3,DA,0) ^IBA(355.3,""AGNA"",+^(0),X,DA)="""""
^DD(355.3,.03,1,2,2)="K ^IBA(355.3,""AGNA"",+^IBA(355.3,DA,0),X,DA)"
^DD(355.3,.03,1,2,"%D",0)="^^2^2^2930527^"
^DD(355.3,.03,1,2,"%D",1,0)="Cross reference of insurance companies and group names."
^DD(355.3,.03,1,2,"%D",2,0)="|"
^DD(355.3,.03,1,2,"DT")="2930527"
^DD(355.3,.03,1,3,0)="355.3^ACCP^MUMPS"
^DD(355.3,.03,1,3,1)="N Y S Y=$$COMP^IBCNSJ(X) I $L(Y) S ^IBA(355.3,""ACCP"",+^IBA(355.3,DA,0),Y,DA)="""""
^DD(355.3,.03,1,3,2)="N Y S Y=$$COMP^IBCNSJ(X) I $L(Y) K ^IBA(355.3,""ACCP"",+^IBA(355.3,DA,0),Y,DA)"
^DD(355.3,.03,1,3,"%D",0)="^^2^2^2941213^^^^"
^DD(355.3,.03,1,3,"%D",1,0)="Compresses entries by eliminating punctuation marks and leading zeroes, and"
^DD(355.3,.03,1,3,"%D",2,0)="converting lowercase to uppercase."
^DD(355.3,.03,1,3,"DT")="2941213"
^DD(355.3,.03,3)="Answer must be 2-20 characters in length."
^DD(355.3,.03,21,0)="^^6^6^2930603^^"
^DD(355.3,.03,21,1,0)="If this is a group policy, enter the name of the group that this policy"
^DD(355.3,.03,21,2,0)="is associated with.  This is the name that the insurance"
^DD(355.3,.03,21,3,0)="company uses to identify the plan.  This will appear "
^DD(355.3,.03,21,4,0)="on the health claims forms in the appropriate blocks.  It will also be"
^DD(355.3,.03,21,5,0)="used to help identify this policy so that other patients with the same"
^DD(355.3,.03,21,6,0)="plan can be associated with it."
^DD(355.3,.03,"DT")="2941213"
^DD(355.3,.04,0)="GROUP NUMBER^FX^^0;4^I $D(X) K:$L(X)>17!($L(X)<2) X"
^DD(355.3,.04,1,0)="^.1"
^DD(355.3,.04,1,1,0)="355.3^E"
^DD(355.3,.04,1,1,1)="S ^IBA(355.3,""E"",$E(X,1,30),DA)="""""
^DD(355.3,.04,1,1,2)="K ^IBA(355.3,""E"",$E(X,1,30),DA)"
^DD(355.3,.04,1,1,"DT")="2930525"
^DD(355.3,.04,1,2,0)="355.3^AGNU^MUMPS"
^DD(355.3,.04,1,2,1)="S:+^IBA(355.3,DA,0) ^IBA(355.3,""AGNU"",+^(0),X,DA)="""""
^DD(355.3,.04,1,2,2)="K ^IBA(355.3,""AGNU"",+^IBA(355.3,DA,0),X,DA)"
^DD(355.3,.04,1,2,"%D",0)="^^1^1^2930527^"
^DD(355.3,.04,1,2,"%D",1,0)="Cross reference of insurance companies and group names."
^DD(355.3,.04,1,2,"DT")="2930527"
^DD(355.3,.04,1,3,0)="355.3^ACCP1^MUMPS"
^DD(355.3,.04,1,3,1)="N Y S Y=$$COMP^IBCNSJ(X) I $L(Y) S ^IBA(355.3,""ACCP"",+^IBA(355.3,DA,0),Y,DA)="""""
^DD(355.3,.04,1,3,2)="N Y S Y=$$COMP^IBCNSJ(X) I $L(Y) K ^IBA(355.3,""ACCP"",+^IBA(355.3,DA,0),Y,DA)"
^DD(355.3,.04,1,3,"%D",0)="^^2^2^2941213^^"
^DD(355.3,.04,1,3,"%D",1,0)="Compresses entries by eliminating punctuation marks and leading zeroes, and"
^DD(355.3,.04,1,3,"%D",2,0)="converting lowercase to uppercase."
^DD(355.3,.04,1,3,"DT")="2941213"
^DD(355.3,.04,1,4,0)="355.3^AENR04^MUMPS"
^DD(355.3,.04,1,4,1)="D EVENT^IVMPLOG(DA)"
^DD(355.3,.04,1,4,2)="D EVENT^IVMPLOG(DA)"
^DD(355.3,.04,1,4,3)=" DO NOT DELETE"
^DD(355.3,.04,1,4,"%D",0)="^.101^2^2^3050613^^^^"
^DD(355.3,.04,1,4,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(355.3,.04,1,4,"%D",2,0)="enrollment."
^DD(355.3,.04,1,4,"DT")="3050613"
^DD(355.3,.04,3)="Answer must be 2-17 characters in length."
^DD(355.3,.04,21,0)="^.001^3^3^3060518^^"
^DD(355.3,.04,21,1,0)="If this is a group policy enter the number which identifies this policy,"
^DD(355.3,.04,21,2,0)="i.e. group number/code that the insurance company uses to identify this"
^DD(355.3,.04,21,3,0)="plan.  Answer must be between 1 and 17 characters."
^DD(355.3,.04,"DT")="3060530"
^DD(355.3,.05,0)="IS UTILIZATION REVIEW REQUIRED^S^1:YES;0:NO;^0;5^Q"
^DD(355.3,.05,3)="Answer ""YES"" if this policy requires Utilization Review for all billable cases.  Otherwise, answer ""NO""."
^DD(355.3,.05,21,0)="^^5^5^2930604^^"
^DD(355.3,.05,21,1,0)="Answer ""YES"" if Utilization Review is required by the insurance company"
^DD(355.3,.05,21,2,0)="for this policy.  Answer ""NO"" if it is not required.  The UR staff will"
^DD(355.3,.05,21,3,0)="automatically be required to follow-up on all billable cases where this"
^DD(355.3,.05,21,4,0)="field is answered ""YES"".  If the field is answered ""NO"" then UR follow-up"
^DD(355.3,.05,21,5,0)="will be considered optional."
^DD(355.3,.05,"DT")="2930223"
^DD(355.3,.06,0)="IS PRE-CERTIFICATION REQUIRED?^S^1:YES;0:NO;^0;6^Q"
^DD(355.3,.06,3)="Answer ""YES"" if pre-certification is required by this policy.  Otherwise answer ""NO""."
^DD(355.3,.06,21,0)="^^5^5^2930603^"
^DD(355.3,.06,21,1,0)="Answer ""YES"" if this policy requires Pre-certification of all non-emergent"
^DD(355.3,.06,21,2,0)="admissions.  Answer ""NO"" if pre-certification is not required.   "
^DD(355.3,.06,21,3,0)="If pre-certification is required but not obtained, follow-up will be"
^DD(355.3,.06,21,4,0)="required by the MCCR tracking module."
^DD(355.3,.06,21,5,0)="|"
^DD(355.3,.06,"DT")="2930223"
^DD(355.3,.07,0)="EXCLUDE PRE-EXISTING CONDITION^S^1:YES;0:NO;^0;7^Q"
^DD(355.3,.07,3)="Answer ""YES"" if this policy excludes any pre existing conditions.  Otherwise answer ""NO""."
^DD(355.3,.07,21,0)="^^7^7^2940213^^^^"
^DD(355.3,.07,21,1,0)="Answer ""YES"" if the policy excludes any pre existing conditions.  Answer"
^DD(355.3,.07,21,2,0)="""NO"" if the policy covers any pre existing conditions.  If a patient has"
^DD(355.3,.07,21,3,0)="pre-exisiting conditions that are not covered they should be entered in"
^DD(355.3,.07,21,4,0)="the patient policy comment field."
^DD(355.3,.07,21,5,0)=" "
^DD(355.3,.07,21,6,0)=" "
^DD(355.3,.07,21,7,0)=" "
^DD(355.3,.07,"DT")="2930702"
^DD(355.3,.08,0)="BENEFITS ASSIGNABLE?^S^1:YES;0:NO;^0;8^Q"
^DD(355.3,.08,3)=""
^DD(355.3,.08,21,0)="^^4^4^2940213^"
^DD(355.3,.08,21,1,0)="If this policy will allow assignment of benefits then answer YES,"
^DD(355.3,.08,21,2,0)="otherwise answer NO.  Normally this field will be answered YES.  "
^DD(355.3,.08,21,3,0)="However, it may be useful to track policies that do not allow for"
^DD(355.3,.08,21,4,0)="assignment of benefits."
^DD(355.3,.08,"DT")="2930223"
^DD(355.3,.09,0)="TYPE OF PLAN^*P355.1'^IBE(355.1,^0;9^S DIC(""S"")=""I '$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(355.3,.09,1,0)="^.1"
^DD(355.3,.09,1,1,0)="^^TRIGGER^355.3^.14"
^DD(355.3,.09,1,1,1)="X ^DD(355.3,.09,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" X ^DD(355.3,.09,1,1,1.4)"
^DD(355.3,.09,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(355.3,.09,1,1,69.4) S X=X S Y=X,X=Y(107),X=X S X=X[Y,X=$S(Y(103):Y(105),Y(106):X) S D0=I(0,0)"
^DD(355.3,.09,1,1,1.4)="S DIH=$S($D(^IBA(355.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=355.3,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.3,.09,1,1,2)="X ^DD(355.3,.09,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" X ^DD(355.3,.09,1,1,2.4)"
^DD(355.3,.09,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(355.3,.09,1,1,79.4) S X=X S Y=X,X=Y(107),X=X S X=X[Y,X=$S(Y(103):Y(105),Y(106):X) S D0=I(0,0)"
^DD(355.3,.09,1,1,2.4)="S DIH=$S($D(^IBA(355.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=355.3,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.3,.09,1,1,3)="Do not delete"
^DD(355.3,.09,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(2)=$S($D(^IBA(355.3,D0,0)):^(0),1:""""),D0=Y(0) S:'$D(^IBE(355.1,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(355.1,.03,0)):$P(^(0),U,3),1:"""")"
^DD(355.3,.09,1,1,69.3)="X ^DD(355.3,.09,1,1,69.2) S Y(101)=$S($D(^IBE(355.1,D0,0)):^(0),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,3)_"":"",2),$C(59),1)=""MEDICARE"",Y(103)=X S X=""ABC"""
^DD(355.3,.09,1,1,69.4)="X ^DD(355.3,.09,1,1,69.3) S Y(104)=X S X=$P(Y(2),U,14),X=X S Y=X,X=Y(104),X=X S X=X'[Y,Y(105)=X S X=1,Y(106)=X S X=""ABC"",Y(107)=X S X=$P(Y(2),U,14)"
^DD(355.3,.09,1,1,79.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(355.3,D0,0)):^(0),1:""""),D0=$P(Y(1),U,9) S:'$D(^IBE(355.1,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(355.1,.03,0)):$P(^(0),U,3),1:"""")"
^DD(355.3,.09,1,1,79.3)="X ^DD(355.3,.09,1,1,79.2) S Y(101)=$S($D(^IBE(355.1,D0,0)):^(0),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,3)_"":"",2),$C(59),1)=""MEDICARE"",Y(103)=X S X=""ABC"""
^DD(355.3,.09,1,1,79.4)="X ^DD(355.3,.09,1,1,79.3) S Y(104)=X S X=$P(Y(1),U,14),X=X S Y=X,X=Y(104),X=X S X=X'[Y,Y(105)=X S X=1,Y(106)=X S X=""ABC"",Y(107)=X S X=$P(Y(1),U,14)"
^DD(355.3,.09,1,1,"%D",0)="^^4^4^2981006^^"
^DD(355.3,.09,1,1,"%D",1,0)="This trigger makes sure that if the type of plan has a MEDICARE major"
^DD(355.3,.09,1,1,"%D",2,0)="category, the PLAN CATEGORY is either null or is A, B, or C.  Also, if"
^DD(355.3,.09,1,1,"%D",3,0)="the type of plan does not have a MEDICARE major category, that the PLAN"
^DD(355.3,.09,1,1,"%D",4,0)="CATEGORY field is deleted."
^DD(355.3,.09,1,1,"CREATE CONDITION")="$S(TYPE OF PLAN:MAJOR CATEGORY=""MEDICARE"":""ABC""'[INTERNAL(PLAN CATEGORY),1:""ABC""[INTERNAL(PLAN CATEGORY))"
^DD(355.3,.09,1,1,"CREATE VALUE")="@"
^DD(355.3,.09,1,1,"DELETE CONDITION")="$S(TYPE OF PLAN:MAJOR CATEGORY=""MEDICARE"":""ABC""'[INTERNAL(PLAN CATEGORY),1:""ABC""[INTERNAL(PLAN CATEGORY))"
^DD(355.3,.09,1,1,"DELETE VALUE")="@"
^DD(355.3,.09,1,1,"DT")="2980730"
^DD(355.3,.09,1,1,"FIELD")="PLAN CATEGORY"
^DD(355.3,.09,3)="Enter the type of policy that best describes this policy."
^DD(355.3,.09,12)="Active Types of Plans Only!"
^DD(355.3,.09,12.1)="S DIC(""S"")=""I '$P(^(0),U,4)"""
^DD(355.3,.09,21,0)="^^5^5^2931103^^^^"
^DD(355.3,.09,21,1,0)="Select the type of plan that best describes this plan.  The type of"
^DD(355.3,.09,21,2,0)="policy will be used to determine if reimbursement for claims from the"
^DD(355.3,.09,21,3,0)="insurance carrier is appropriate.  It will also be used to determine"
^DD(355.3,.09,21,4,0)="what other fields and displays are appropriate for this plan.  If"
^DD(355.3,.09,21,5,0)="unknown or unsure, pick the more general type of plan."
^DD(355.3,.09,"DT")="2980730"
^DD(355.3,.1,0)="INDIVIDUAL POLICY PATIENT^P2'^DPT(^0;10^Q"
^DD(355.3,.1,21,0)="^^7^7^2940213^^^^"
^DD(355.3,.1,21,1,0)="This is the patient associated with this policy if this is an individual"
^DD(355.3,.1,21,2,0)="policy. "
^DD(355.3,.1,21,3,0)=" "
^DD(355.3,.1,21,4,0)="If this is an individual policy, the system will store the patient "
^DD(355.3,.1,21,5,0)="in this field.  Only one patient may be associated with an individual"
^DD(355.3,.1,21,6,0)="policy.  Many patients can be associated with a group policy."
^DD(355.3,.1,21,7,0)=" "
^DD(355.3,.1,22)=""
^DD(355.3,.1,"DT")="2930601"
^DD(355.3,.11,0)="INACTIVE^S^0:NO;1:YES;^0;11^Q"
^DD(355.3,.11,3)="ENTER 'YES' IF THIS PLAN IS INACTIVE AND SHOULD NO LONGER BE ALLOWED FOR SELECTION."
^DD(355.3,.11,21,0)="^^2^2^2941212^^"
^DD(355.3,.11,21,1,0)="If this plan is no longer active in your area, enter INACTIVE here."
^DD(355.3,.11,21,2,0)="This will disallow users from selecting this entry."
^DD(355.3,.11,"DT")="2941102"
^DD(355.3,.12,0)="AMBULATORY CARE CERTIFICATION^S^1:YES;0:NO;^0;12^Q"
^DD(355.3,.12,3)="Answer ""YES"" if certification is required by this plan for ambulatory care."
^DD(355.3,.12,21,0)="^^3^3^2970813^"
^DD(355.3,.12,21,1,0)="Answer ""YES"" if this plan requires certification of ambulatory procedures."
^DD(355.3,.12,21,2,0)="This may include Ambulatory surgeries, CAT scans, MRI, non-invasive"
^DD(355.3,.12,21,3,0)="procedures, etc."
^DD(355.3,.12,"DT")="2970813"
^DD(355.3,.13,0)="PLAN FILING TIME FRAME^F^^0;13^K:$L(X)>30!($L(X)<3) X"
^DD(355.3,.13,3)="Enter maximum amount of time from date of service that this Plan allows for submitting a claim.  Answer must be 3-30 characters in length."
^DD(355.3,.13,21,0)="^^3^3^2970904^^^"
^DD(355.3,.13,21,1,0)="This is the maximum amount of time from the date of service to submission"
^DD(355.3,.13,21,2,0)="of the claim allowed by this Insurance Plan.  Examples:  60 days, 90 days,"
^DD(355.3,.13,21,3,0)="6 months, 1 year, March 30 following year of service."
^DD(355.3,.13,"DT")="2970903"
^DD(355.3,.14,0)="PLAN CATEGORY^*S^A:MEDICARE PART A;B:MEDICARE PART B;C:MEDICARE OTHER;^0;14^Q"
^DD(355.3,.14,3)="Select the specific type of Category this MEDICARE plan covers."
^DD(355.3,.14,5,1,0)="355.3^.09^1"
^DD(355.3,.14,12)="Type of plan Major Category must equal MEDICARE"
^DD(355.3,.14,12.1)="S DIC(""S"")=""I $$CATOK^IBCEMRA(Y)"""
^DD(355.3,.14,21,0)="^^3^3^2981006^^^"
^DD(355.3,.14,21,1,0)="If the Type of Plan's Major Category is MEDICARE, this field"
^DD(355.3,.14,21,2,0)="should contain the specific type of coverage that this plan"
^DD(355.3,.14,21,3,0)="represents."
^DD(355.3,.14,"DT")="2980730"
^DD(355.3,.15,0)="ELECTRONIC PLAN TYPE^S^16:HMO MEDICARE;MX:MEDICARE A or B;TV:TITLE V;MC:MEDICAID;BL:BC/BS;CH:TRICARE;15:INDEMNITY;CI:COMMERCIAL;HM:HMO;DS:DISABILITY;12:PPO;13:POS;ZZ:OTHER;^0;15^Q"
^DD(355.3,.15,3)="Enter the appropriate type of plan to be used for electronic billing."
^DD(355.3,.15,21,0)="^^1^1^3000306^^^"
^DD(355.3,.15,21,1,0)="This field contains the X12 data needed to identify the source of pay type"
^DD(355.3,.15,23,0)="^^2^2^3000306^"
^DD(355.3,.15,23,1,0)="This field must be consistent with the ELECTRONIC TYPE OF INSURANCE in file"
^DD(355.3,.15,23,2,0)="36."
^DD(355.3,.15,"DT")="3040908"
^DD(355.3,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.3,1.01,5,1,0)="355.3^.01^2"
^DD(355.3,1.01,21,0)="^^2^2^2931102^^^"
^DD(355.3,1.01,21,1,0)="This is the date that this policy was entered.  It is triggered by"
^DD(355.3,1.01,21,2,0)="the creation of this entry."
^DD(355.3,1.01,"DT")="2931102"
^DD(355.3,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(355.3,1.02,5,1,0)="355.3^.01^3"
^DD(355.3,1.02,21,0)="^^2^2^2930603^"
^DD(355.3,1.02,21,1,0)="This is the user who created this entry.  It is automatically triggered"
^DD(355.3,1.02,21,2,0)="by the creation of this entry."
^DD(355.3,1.02,"DT")="2930603"
^DD(355.3,1.03,0)="DATE LAST VERIFIED^D^^1;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.3,1.03,21,0)="^^5^5^2940213^"
^DD(355.3,1.03,21,1,0)="This is the date that this policy was last verified.  A policy is "
^DD(355.3,1.03,21,2,0)="verified by selecting the Verify Policy Action on the Patient "
^DD(355.3,1.03,21,3,0)="Insurance Management screen.  Generally this is the last time"
^DD(355.3,1.03,21,4,0)="that somebody contacted the insurance company and verified that"
^DD(355.3,1.03,21,5,0)="policy information is correct."
^DD(355.3,1.03,"DT")="2930603"
^DD(355.3,1.04,0)="VERIFIED BY^P200'^VA(200,^1;4^Q"
^DD(355.3,1.04,21,0)="^^1^1^2940213^"
^DD(355.3,1.04,21,1,0)="This is the user who last verified that the policy information is correct."
^DD(355.3,1.04,"DT")="2930603"
^DD(355.3,1.05,0)="DATE LAST EDITED^D^^1;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.3,1.05,21,0)="^^2^2^2940213^"
^DD(355.3,1.05,21,1,0)="This is the date that this policy was last edited.  It is automatically"
^DD(355.3,1.05,21,2,0)="updated any time a policy is editing using one of the options provided."
^DD(355.3,1.05,"DT")="2930603"
^DD(355.3,1.06,0)="LAST EDITED BY^P200'^VA(200,^1;6^Q"
^DD(355.3,1.06,21,0)="^^2^2^2940213^"
^DD(355.3,1.06,21,1,0)="This is the user who last edited this policy.  It is automatically"
^DD(355.3,1.06,21,2,0)="updated everytime a policy is edited using one of the options."
^DD(355.3,1.06,"DT")="2930603"
^DD(355.3,6.01,0)="PLAN ID^P366.03'^IBCNR(366.03,^6;1^Q"
^DD(355.3,6.01,3)="Enter the Group Insurance Plan's Plan ID."
^DD(355.3,6.01,21,0)="^.001^1^1^3040210^^^"
^DD(355.3,6.01,21,1,0)="The Group Insurance Plan's Plan ID."
^DD(355.3,6.01,"DT")="3031110"
^DD(355.3,6.02,0)="BANKING IDENTIFICATION NUMBER^F^^6;2^K:$L(X)>10!($L(X)<1) X"
^DD(355.3,6.02,3)="Enter the Plan's Banking Identification Number (BIN).  Answer must be 1-10 characters in length."
^DD(355.3,6.02,21,0)="^^2^2^3040408^"
^DD(355.3,6.02,21,1,0)="The Plan's Banking Identification Number (BIN). Used for NCPDP "
^DD(355.3,6.02,21,2,0)="transmissions."
^DD(355.3,6.02,"DT")="3040408"
^DD(355.3,6.03,0)="PROCESSOR CONTROL NUMBER (PCN)^F^^6;3^K:$L(X)>20!($L(X)<1) X"
^DD(355.3,6.03,3)="Enter the Plan's Processor Control Number (PCN).  Answer must be 1-20 characters in length."
^DD(355.3,6.03,21,0)="^^1^1^3040408^"
^DD(355.3,6.03,21,1,0)="The Plan's Processor Control Number (PCN). Used for NCPDP transmissions."
^DD(355.3,6.03,"DT")="3040408"
^DD(355.3,11,0)="COMMENTS^355.311^^11;0"
^DD(355.3,11,21,0)="^^2^2^2931109^"
^DD(355.3,11,21,1,0)="Enter comments that are specific to this group plan.  Do not enter"
^DD(355.3,11,21,2,0)="comments about a specific patient or patient care here."
^DD(355.3,"B","AMBULATORY CARE CERTIFICATION",.12)=""
^DD(355.3,"B","BANKING IDENTIFICATION NUMBER",6.02)=""
^DD(355.3,"B","BENEFITS ASSIGNABLE?",.08)=""
^DD(355.3,"B","COMMENTS",11)=""
^DD(355.3,"B","DATE ENTERED",1.01)=""
^DD(355.3,"B","DATE LAST EDITED",1.05)=""
^DD(355.3,"B","DATE LAST VERIFIED",1.03)=""
^DD(355.3,"B","ELECTRONIC PLAN TYPE",.15)=""
^DD(355.3,"B","ENTERED BY",1.02)=""
^DD(355.3,"B","EXCLUDE PRE-EXISTING CONDITION",.07)=""
^DD(355.3,"B","GROUP NAME",.03)=""
^DD(355.3,"B","GROUP NUMBER",.04)=""
^DD(355.3,"B","INACTIVE",.11)=""
^DD(355.3,"B","INDIVIDUAL POLICY PATIENT",.1)=""
^DD(355.3,"B","INSURANCE COMPANY",.01)=""
^DD(355.3,"B","IS PRE-CERTIFICATION REQUIRED?",.06)=""
^DD(355.3,"B","IS THIS A GROUP POLICY?",.02)=""
^DD(355.3,"B","IS UTILIZATION REVIEW REQUIRED",.05)=""
^DD(355.3,"B","LAST EDITED BY",1.06)=""
^DD(355.3,"B","PLAN CATEGORY",.14)=""
^DD(355.3,"B","PLAN FILING TIME FRAME",.13)=""
^DD(355.3,"B","PLAN ID",6.01)=""
^DD(355.3,"B","PROCESSOR CONTROL NUMBER (PCN)",6.03)=""
^DD(355.3,"B","TYPE OF PLAN",.09)=""
^DD(355.3,"B","VERIFIED BY",1.04)=""
^DD(355.3,"GL",0,1,.01)=""
^DD(355.3,"GL",0,2,.02)=""
^DD(355.3,"GL",0,3,.03)=""
^DD(355.3,"GL",0,4,.04)=""
^DD(355.3,"GL",0,5,.05)=""
^DD(355.3,"GL",0,6,.06)=""
^DD(355.3,"GL",0,7,.07)=""
^DD(355.3,"GL",0,8,.08)=""
^DD(355.3,"GL",0,9,.09)=""
^DD(355.3,"GL",0,10,.1)=""
^DD(355.3,"GL",0,11,.11)=""
^DD(355.3,"GL",0,12,.12)=""
^DD(355.3,"GL",0,13,.13)=""
^DD(355.3,"GL",0,14,.14)=""
^DD(355.3,"GL",0,15,.15)=""
^DD(355.3,"GL",1,1,1.01)=""
^DD(355.3,"GL",1,2,1.02)=""
^DD(355.3,"GL",1,3,1.03)=""
^DD(355.3,"GL",1,4,1.04)=""
^DD(355.3,"GL",1,5,1.05)=""
^DD(355.3,"GL",1,6,1.06)=""
^DD(355.3,"GL",6,1,6.01)=""
^DD(355.3,"GL",6,2,6.02)=""
^DD(355.3,"GL",6,3,6.03)=""
^DD(355.3,"GL",11,0,11)=""
^DD(355.3,"IX",.01)=""
^DD(355.3,"IX",.03)=""
^DD(355.3,"IX",.04)=""
^DD(355.3,"IX",.09)=""
^DD(355.3,"RQ",.01)=""
^DD(355.3,"SB",355.311,11)=""
^DD(355.31,0)="FIELD^^.03^3"
^DD(355.31,0,"DDA")="N"
^DD(355.31,0,"DT")="2950817"
^DD(355.31,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(355.31,0,"IX","B",355.31,.01)=""
^DD(355.31,0,"NM","PLAN LIMITATION CATEGORY")=""
^DD(355.31,0,"PT",355.32,.02)=""
^DD(355.31,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(355.31,.01,1,0)="^.1"
^DD(355.31,.01,1,1,0)="355.31^B"
^DD(355.31,.01,1,1,1)="S ^IBE(355.31,""B"",$E(X,1,30),DA)="""""
^DD(355.31,.01,1,1,2)="K ^IBE(355.31,""B"",$E(X,1,30),DA)"
^DD(355.31,.01,3)="Answer must be 2-30 characters in length."
^DD(355.31,.01,21,0)="^^1^1^2950727^"
^DD(355.31,.01,21,1,0)="The name of the coverage to be limited"
^DD(355.31,.01,"DT")="2950727"
^DD(355.31,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(355.31,.02,3)="Answer must be 1-40 characters in length."
^DD(355.31,.02,21,0)="^^1^1^2950727^"
^DD(355.31,.02,21,1,0)="A free text description of the type of coverage"
^DD(355.31,.02,"DT")="2950727"
^DD(355.31,.03,0)="RIDER^P355.6^IBE(355.6,^0;3^Q"
^DD(355.31,.03,21,0)="^^3^3^2950817^^"
^DD(355.31,.03,21,1,0)="This is the rider that covers this limitation category.  If a patient has"
^DD(355.31,.03,21,2,0)="this rider, this category of coverage will be considered billable for that"
^DD(355.31,.03,21,3,0)="patient."
^DD(355.31,.03,"DT")="2950817"
^DD(355.31,"B","DESCRIPTION",.02)=""
^DD(355.31,"B","NAME",.01)=""
^DD(355.31,"B","RIDER",.03)=""
^DD(355.31,"GL",0,1,.01)=""
^DD(355.31,"GL",0,2,.02)=""
^DD(355.31,"GL",0,3,.03)=""
^DD(355.31,"IX",.01)=""
^DD(355.31,"RQ",.01)=""
^DD(355.311,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(355.311,0,"DT")="2931109"
^DD(355.311,0,"NM","COMMENTS")=""
^DD(355.311,0,"UP")="355.3"
^DD(355.311,.01,0)="COMMENTS^W^^0;1^Q"
^DD(355.311,.01,3)="Enter comments specific to this Group Plan.  These comments will pertain to multiple patients who have this same group plan."
^DD(355.311,.01,"DT")="2931109"
^DD(355.311,"B","COMMENTS",.01)=""
^DD(355.311,"GL",0,1,.01)=""
^DD(355.32,0)="FIELD^^2^9"
^DD(355.32,0,"DDA")="N"
^DD(355.32,0,"DT")="2950829"
^DD(355.32,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(355.31,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(355.31,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.32,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(355.32,0,"IX","APCD",355.32,.01)=""
^DD(355.32,0,"IX","APCD1",355.32,.02)=""
^DD(355.32,0,"IX","APCD2",355.32,.03)=""
^DD(355.32,0,"IX","B",355.32,.01)=""
^DD(355.32,0,"NM","PLAN COVERAGE LIMITATIONS")=""
^DD(355.32,.01,0)="PLAN^RP355.3'X^IBA(355.3,^0;1^Q"
^DD(355.32,.01,1,0)="^.1"
^DD(355.32,.01,1,1,0)="355.32^B"
^DD(355.32,.01,1,1,1)="S ^IBA(355.32,""B"",$E(X,1,30),DA)="""""
^DD(355.32,.01,1,1,2)="K ^IBA(355.32,""B"",$E(X,1,30),DA)"
^DD(355.32,.01,1,2,0)="355.32^APCD^MUMPS"
^DD(355.32,.01,1,2,1)="I $P($G(^IBA(355.32,DA,0)),U,2)'="""",$P(^(0),U,3)'="""" S ^IBA(355.32,""APCD"",$E(X,1,30),$P(^IBA(355.32,DA,0),U,2),-$P(^IBA(355.32,DA,0),U,3),DA)="""""
^DD(355.32,.01,1,2,2)="I $P($G(^IBA(355.32,DA,0)),U,2)'="""",$P(^(0),U,3)'="""" K ^IBA(355.32,DA,""APCD"",$E(X,1,30),$P(^IBA(355.32,DA,0),U,2),-$P(^IBA(355.32,DA,0),U,3),DA)"
^DD(355.32,.01,1,2,3)="DO NOT DELETE"
^DD(355.32,.01,1,2,"%D",0)="^^1^1^2950727^^^^"
^DD(355.32,.01,1,2,"%D",1,0)="Multiple xref on plan, coverage, and -effective date"
^DD(355.32,.01,1,2,"DT")="2950726"
^DD(355.32,.01,1,3,0)="^^TRIGGER^355.32^1.01"
^DD(355.32,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(355.32,.01,1,3,1.1) X ^DD(355.32,.01,1,3,1.4)"
^DD(355.32,.01,1,3,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(355.32,.01,1,3,1.4)="S DIH=$S($D(^IBA(355.32,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,1)=DIV,DIH=355.32,DIG=1.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.32,.01,1,3,2)="Q"
^DD(355.32,.01,1,3,"%D",0)="^^1^1^2950816^"
^DD(355.32,.01,1,3,"%D",1,0)="Triggers the date/time entered when creating a new entry."
^DD(355.32,.01,1,3,"CREATE CONDITION")="#1.01="""""
^DD(355.32,.01,1,3,"CREATE VALUE")="NOW"
^DD(355.32,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.32,.01,1,3,"DT")="2950816"
^DD(355.32,.01,1,3,"FIELD")="#1.01"
^DD(355.32,.01,1,4,0)="^^TRIGGER^355.32^1.02"
^DD(355.32,.01,1,4,1)="X ^DD(355.32,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(355.32,.01,1,4,1.4)"
^DD(355.32,.01,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.32,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(355.32,.01,1,4,1.4)="S DIH=$S($D(^IBA(355.32,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=355.32,DIG=1.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.32,.01,1,4,2)="Q"
^DD(355.32,.01,1,4,"%D",0)="^^1^1^2950816^"
^DD(355.32,.01,1,4,"%D",1,0)="Triggers the user who created this entry."
^DD(355.32,.01,1,4,"CREATE CONDITION")="#1.02="""""
^DD(355.32,.01,1,4,"CREATE VALUE")="S X=DUZ"
^DD(355.32,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(355.32,.01,1,4,"DT")="2950816"
^DD(355.32,.01,1,4,"FIELD")="#1.02"
^DD(355.32,.01,3)="Enter the plan that this limitation applies to."
^DD(355.32,.01,21,0)="^^1^1^2951121^^"
^DD(355.32,.01,21,1,0)="The plan that this limitation will apply to."
^DD(355.32,.01,"DT")="2950816"
^DD(355.32,.02,0)="COVERAGE CATEGORY^RP355.31'^IBE(355.31,^0;2^Q"
^DD(355.32,.02,1,0)="^.1"
^DD(355.32,.02,1,1,0)="355.32^APCD1^MUMPS"
^DD(355.32,.02,1,1,1)="I $P($G(^IBA(355.32,DA,0)),U)'="""",$P(^(0),U,3)'="""" S ^IBA(355.32,""APCD"",$P(^IBA(355.32,DA,0),U),$E(X,1,30),-$P(^IBA(355.32,DA,0),U,3),DA)="""""
^DD(355.32,.02,1,1,2)="I $P($G(^IBA(355.32,DA,0)),U)'="""",$P(^(0),U,3)'="""" K ^IBA(355.32,""APCD"",$P(^IBA(355.32,DA,0),U),$E(X,1,30),-$P(^IBA(355.32,DA,0),U,3),DA)"
^DD(355.32,.02,1,1,3)="DO NOT DELETE"
^DD(355.32,.02,1,1,"%D",0)="^^1^1^2950727^^"
^DD(355.32,.02,1,1,"%D",1,0)="Multiple xref on plan, coverage, and -effective date"
^DD(355.32,.02,1,1,"DT")="2950727"
^DD(355.32,.02,3)="Enter the type of coverage that will be limited."
^DD(355.32,.02,21,0)="^^1^1^2951121^^"
^DD(355.32,.02,21,1,0)="The type of coverage that the insurance company plan has reimbursement limits on."
^DD(355.32,.02,"DT")="2950808"
^DD(355.32,.03,0)="EFFECTIVE DATE^RDX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.32,.03,1,0)="^.1"
^DD(355.32,.03,1,1,0)="355.32^APCD2^MUMPS"
^DD(355.32,.03,1,1,1)="I $P($G(^IBA(355.32,DA,0)),U)'="""",$P(^(0),U,2)'="""" S ^IBA(355.32,""APCD"",$P(^IBA(355.32,DA,0),U),$P(^IBA(355.32,DA,0),U,2),-$E(X,1,30),DA)="""""
^DD(355.32,.03,1,1,2)="I $P($G(^IBA(355.32,DA,0)),U)'="""",$P(^(0),U,2)'="""" K ^IBA(355.32,""APCD"",$P(^IBA(355.32,DA,0),U),$P(^IBA(355.32,DA,0),U,2),-$E(X,1,30),DA)"
^DD(355.32,.03,1,1,3)="DO NOT DELETE"
^DD(355.32,.03,1,1,"%D",0)="^^1^1^2950727^^^"
^DD(355.32,.03,1,1,"%D",1,0)="Multiple xref on plan, coverage, and -effective date"
^DD(355.32,.03,1,1,"DT")="2950726"
^DD(355.32,.03,3)="Enter the date that this limitation is effective."
^DD(355.32,.03,21,0)="^^1^1^2951121^^"
^DD(355.32,.03,21,1,0)="The date on which the type of coverage for this limitation becomes limited for insurance billing purposes."
^DD(355.32,.03,"DT")="2950727"
^DD(355.32,.04,0)="COVERAGE STATUS^RS^0:NOT COVERED;1:COVERED;2:CONDITIONAL COVERAGE;^0;4^Q"
^DD(355.32,.04,3)="The status of this coverage for this plan as of the effective date."
^DD(355.32,.04,21,0)="^^2^2^2951121^"
^DD(355.32,.04,21,1,0)="This is the status of the coverage associated with this record on the effective"
^DD(355.32,.04,21,2,0)="date associated with this record."
^DD(355.32,.04,"DT")="2950829"
^DD(355.32,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.32,1.01,5,1,0)="355.32^.01^3"
^DD(355.32,1.01,21,0)="^^1^1^2950816^"
^DD(355.32,1.01,21,1,0)="This is the date this limitation was entered.  It is triggered by the creation of this entry."
^DD(355.32,1.01,"DT")="2950816"
^DD(355.32,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(355.32,1.02,5,1,0)="355.32^.01^4"
^DD(355.32,1.02,21,0)="^^1^1^2950816^"
^DD(355.32,1.02,21,1,0)="This is the user who created this entry.  It is automatically triggered by the creation of this entry."
^DD(355.32,1.02,"DT")="2950816"
^DD(355.32,1.03,0)="DATE LAST EDITED^D^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.32,1.03,21,0)="^^1^1^2950816^^"
^DD(355.32,1.03,21,1,0)="This is the date this limitation was last edited.  It is automatically updated any time the limitation is edited using one of the options provided."
^DD(355.32,1.03,"DT")="2950816"
^DD(355.32,1.04,0)="LAST EDITED BY^P200'^VA(200,^1;4^Q"
^DD(355.32,1.04,21,0)="^^1^1^2950816^^"
^DD(355.32,1.04,21,1,0)="This is the user who last edited this limitation.  It is automatically updated any time a person edits this limitation using one of the options provided."
^DD(355.32,1.04,"DT")="2950816"
^DD(355.32,2,0)="LIMITATION COMMENT^355.321A^^2;0"
^DD(355.32,"B","COVERAGE CATEGORY",.02)=""
^DD(355.32,"B","COVERAGE STATUS",.04)=""
^DD(355.32,"B","DATE ENTERED",1.01)=""
^DD(355.32,"B","DATE LAST EDITED",1.03)=""
^DD(355.32,"B","EFFECTIVE DATE",.03)=""
^DD(355.32,"B","ENTERED BY",1.02)=""
^DD(355.32,"B","LAST EDITED BY",1.04)=""
^DD(355.32,"B","LIMITATION COMMENT",2)=""
^DD(355.32,"B","PLAN",.01)=""
^DD(355.32,"GL",0,1,.01)=""
^DD(355.32,"GL",0,2,.02)=""
^DD(355.32,"GL",0,3,.03)=""
^DD(355.32,"GL",0,4,.04)=""
^DD(355.32,"GL",1,1,1.01)=""
^DD(355.32,"GL",1,2,1.02)=""
^DD(355.32,"GL",1,3,1.03)=""
^DD(355.32,"GL",1,4,1.04)=""
^DD(355.32,"GL",2,0,2)=""
^DD(355.32,"IX",.01)=""
^DD(355.32,"IX",.02)=""
^DD(355.32,"IX",.03)=""
^DD(355.32,"RQ",.01)=""
^DD(355.32,"RQ",.02)=""
^DD(355.32,"RQ",.03)=""
^DD(355.32,"RQ",.04)=""
^DD(355.32,"SB",355.321,2)=""
^DD(355.321,0)="LIMITATION COMMENT SUB-FIELD^^.01^1"
^DD(355.321,0,"DT")="2950816"
^DD(355.321,0,"IX","B",355.321,.01)=""
^DD(355.321,0,"NM","LIMITATION COMMENT")=""
^DD(355.321,0,"UP")="355.32"
^DD(355.321,.01,0)="LIMITATION COMMENT^MF^^0;1^K:$L(X)>25!($L(X)<1) X"
^DD(355.321,.01,1,0)="^.1"
^DD(355.321,.01,1,1,0)="355.321^B"
^DD(355.321,.01,1,1,1)="S ^IBA(355.32,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(355.321,.01,1,1,2)="K ^IBA(355.32,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(355.321,.01,3)="Answer must be 1-25 characters in length."
^DD(355.321,.01,21,0)="^^3^3^2951121^^"
^DD(355.321,.01,21,1,0)="This is a brief description of the limitations on this coverage.  For"
^DD(355.321,.01,21,2,0)="example, Age>18 or Enrolled over 6 months.  This is informational only,"
^DD(355.321,.01,21,3,0)="no actual edit checks are performed using this data."
^DD(355.321,.01,"DT")="2950816"
^DD(355.321,"B","LIMITATION COMMENT",.01)=""
^DD(355.321,"GL",0,1,.01)=""
^DD(355.321,"IX",.01)=""
^DD(355.33,0)="FIELD^^61.12^64"
^DD(355.33,0,"DDA")="N"
^DD(355.33,0,"DT")="2980804"
^DD(355.33,0,"IX","AEST",355.33,.01)=""
^DD(355.33,0,"IX","AEST1",355.33,.04)=""
^DD(355.33,0,"IX","AFST",355.33,.01)=""
^DD(355.33,0,"IX","AFST1",355.33,.05)=""
^DD(355.33,0,"IX","AFST2",355.33,.1)=""
^DD(355.33,0,"IX","AI",355.33,60.02)=""
^DD(355.33,0,"IX","AI1",355.33,60.06)=""
^DD(355.33,0,"IX","B",355.33,.01)=""
^DD(355.33,0,"IX","C",355.33,60.01)=""
^DD(355.33,0,"IX","D",355.33,20.01)=""
^DD(355.33,0,"NM","INSURANCE BUFFER")=""
^DD(355.33,0,"PT",365,.04)=""
^DD(355.33,0,"PT",365.1,.05)=""
^DD(355.33,0,"VR")="2.0"
^DD(355.33,0,"VRPK")="IB"
^DD(355.33,.01,0)="DATE ENTERED^RD^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.33,.01,1,0)="^.1"
^DD(355.33,.01,1,1,0)="355.33^B"
^DD(355.33,.01,1,1,1)="S ^IBA(355.33,""B"",$E(X,1,30),DA)="""""
^DD(355.33,.01,1,1,2)="K ^IBA(355.33,""B"",$E(X,1,30),DA)"
^DD(355.33,.01,1,2,0)="^^TRIGGER^355.33^.02"
^DD(355.33,.01,1,2,1)="X ^DD(355.33,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(355.33,.01,1,2,1.4)"
^DD(355.33,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(355.33,.01,1,2,1.4)="S DIH=$S($D(^IBA(355.33,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=355.33,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.33,.01,1,2,2)="Q"
^DD(355.33,.01,1,2,"%D",0)="^^1^1^2980210^"
^DD(355.33,.01,1,2,"%D",1,0)="Set Entered By to the user who created the entry."
^DD(355.33,.01,1,2,"CREATE CONDITION")="ENTERED BY="""""
^DD(355.33,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(355.33,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.33,.01,1,2,"DT")="2980210"
^DD(355.33,.01,1,2,"FIELD")="ENTERED BY"
^DD(355.33,.01,1,3,0)="^^TRIGGER^355.33^.04"
^DD(355.33,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(355.33,.01,1,3,69.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""E"" X ^DD(355.33,.01,1,3,1.4)"
^DD(355.33,.01,1,3,1.4)="S DIH=$S($D(^IBA(355.33,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=355.33,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.33,.01,1,3,2)="Q"
^DD(355.33,.01,1,3,69.2)="S Y(2)=$C(59)_$S($D(^DD(355.33,.04,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59),1)"
^DD(355.33,.01,1,3,"%D",0)="^^1^1^2980211^"
^DD(355.33,.01,1,3,"%D",1,0)="Set initial Status to Entered."
^DD(355.33,.01,1,3,"CREATE CONDITION")="STATUS="""""
^DD(355.33,.01,1,3,"CREATE VALUE")="S X=""E"""
^DD(355.33,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.33,.01,1,3,"DT")="2980211"
^DD(355.33,.01,1,3,"FIELD")="STATUS"
^DD(355.33,.01,1,4,0)="355.33^AEST^MUMPS"
^DD(355.33,.01,1,4,1)="I $P($G(^IBA(355.33,DA,0)),U,4)'="""" S ^IBA(355.33,""AEST"",$P(^(0),U,4),X,DA)="""""
^DD(355.33,.01,1,4,2)="I $P($G(^IBA(355.33,DA,0)),U,4)'="""" K ^IBA(355.33,""AEST"",$P(^(0),U,4),X,DA)"
^DD(355.33,.01,1,4,"%D",0)="^^1^1^2980218^^"
^DD(355.33,.01,1,4,"%D",1,0)="Cross reference by Status and Date Entered."
^DD(355.33,.01,1,4,"DT")="2980218"
^DD(355.33,.01,1,5,0)="355.33^AFST^MUMPS"
^DD(355.33,.01,1,5,1)="S ^IBA(355.33,""AFST"",""E"",X,DA)="""""
^DD(355.33,.01,1,5,2)="K ^IBA(355.33,""AFST"",""E"",X,DA)"
^DD(355.33,.01,1,5,"%D",0)="^^1^1^2980909^^^^"
^DD(355.33,.01,1,5,"%D",1,0)="Cross reference of all entries by action and date of action."
^DD(355.33,.01,1,5,"DT")="2980909"
^DD(355.33,.01,3)="Enter the date this entry is added to the Insurance Buffer file."
^DD(355.33,.01,21,0)="^^1^1^2980209^"
^DD(355.33,.01,21,1,0)="This is the date this entry is added to the buffer file."
^DD(355.33,.01,"DT")="2980909"
^DD(355.33,.02,0)="ENTERED BY^P200'^VA(200,^0;2^Q"
^DD(355.33,.02,3)="Enter the user that added this entry."
^DD(355.33,.02,5,1,0)="355.33^.01^2"
^DD(355.33,.02,21,0)="^^1^1^2980209^"
^DD(355.33,.02,21,1,0)="This is the user of the source package that entered this insurance entry."
^DD(355.33,.02,"DT")="2980209"
^DD(355.33,.03,0)="SOURCE OF INFORMATION^P355.12'O^IBE(355.12,^0;3^Q"
^DD(355.33,.03,2)="S Y(0)=Y S Y=$$GET1^DIQ(355.12,Y_"","",.02,""E"")"
^DD(355.33,.03,2.1)="S Y=$$GET1^DIQ(355.12,Y_"","",.02,""E"")"
^DD(355.33,.03,3)="Enter the source by which this insurance information was obtained."
^DD(355.33,.03,21,0)="^.001^1^1^3061206^^"
^DD(355.33,.03,21,1,0)="This is the source by which this insurance information was obtained."
^DD(355.33,.03,"DT")="3061031"
^DD(355.33,.04,0)="STATUS^S^E:ENTERED;A:ACCEPTED;R:REJECTED;^0;4^Q"
^DD(355.33,.04,1,0)="^.1"
^DD(355.33,.04,1,1,0)="^^TRIGGER^355.33^.05"
^DD(355.33,.04,1,1,1)="X ^DD(355.33,.04,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(355.33,.04,1,1,1.1) X ^DD(355.33,.04,1,1,1.4)"
^DD(355.33,.04,1,1,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(355.33,.04,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(355.33,.04,1,1,69.3) S X=X=""REJECTED"",Y=X,X=Y(4),X=X!Y,Y=X,X=Y(2),X=X&Y"
^DD(355.33,.04,1,1,1.4)="S DIH=$S($D(^IBA(355.33,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=355.33,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.33,.04,1,1,2)="Q"
^DD(355.33,.04,1,1,69.2)="S Y(3)=$C(59)_$S($D(^DD(355.33,.04,0)):$P(^(0),U,3),1:""""),Y(5)=$C(59)_$S($D(^DD(355.33,.04,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""")"
^DD(355.33,.04,1,1,69.3)="X ^DD(355.33,.04,1,1,69.2) S X=$P(Y(1),U,5)="""",Y(2)=X S X=$P($P(Y(3),$C(59)_Y(0)_"":"",2),$C(59),1)=""ACCEPTED"",Y(4)=X S X=$P($P(Y(5),$C(59)_Y(0)_"":"",2),$C(59),1)"
^DD(355.33,.04,1,1,"%D",0)="^^1^1^2990922^^"
^DD(355.33,.04,1,1,"%D",1,0)="Set Date Processed when Status is changed."
^DD(355.33,.04,1,1,"CREATE CONDITION")="(DATE PROCESSED="""")&(STATUS=""ACCEPTED""!(STATUS=""REJECTED""))"
^DD(355.33,.04,1,1,"CREATE VALUE")="NOW"
^DD(355.33,.04,1,1,"DELETE VALUE")="NO EFFECT"
^DD(355.33,.04,1,1,"DT")="2990922"
^DD(355.33,.04,1,1,"FIELD")="DATE PROCESSED"
^DD(355.33,.04,1,2,0)="355.33^AEST1^MUMPS"
^DD(355.33,.04,1,2,1)="I +$P($G(^IBA(355.33,DA,0)),U,1) S ^IBA(355.33,""AEST"",X,+$P(^(0),U,1),DA)="""""
^DD(355.33,.04,1,2,2)="I +$P($G(^IBA(355.33,DA,0)),U,1) K ^IBA(355.33,""AEST"",X,+$P(^(0),U,1),DA)"
^DD(355.33,.04,1,2,"%D",0)="^^1^1^2980218^"
^DD(355.33,.04,1,2,"%D",1,0)="Cross reference by Status and Date Entered."
^DD(355.33,.04,1,2,"DT")="2980218"
^DD(355.33,.04,3)="Enter the status of this entry."
^DD(355.33,.04,5,1,0)="355.33^.01^3"
^DD(355.33,.04,21,0)="^^8^8^2980211^^"
^DD(355.33,.04,21,1,0)="This is the status of this insurance entry."
^DD(355.33,.04,21,2,0)="   E - Entered Locally but not yet processed"
^DD(355.33,.04,21,3,0)="   A - Processed and Accepted, data moved to Insurance files"
^DD(355.33,.04,21,4,0)="   R - Processed and Rejected, data Not moved to Insurance files"
^DD(355.33,.04,21,5,0)="  "
^DD(355.33,.04,21,6,0)="When an entry is processed most of the data is deleted from the Insurance"
^DD(355.33,.04,21,7,0)="Buffer file.  Entries with a status of Accepted or Rejected will only have"
^DD(355.33,.04,21,8,0)="stub entries in this file for reporting and tracking purposes."
^DD(355.33,.04,"DT")="2990922"
^DD(355.33,.05,0)="DATE PROCESSED^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.33,.05,1,0)="^.1"
^DD(355.33,.05,1,1,0)="^^TRIGGER^355.33^.06"
^DD(355.33,.05,1,1,1)="X ^DD(355.33,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(355.33,.05,1,1,1.4)"
^DD(355.33,.05,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1))="""""
^DD(355.33,.05,1,1,1.4)="S DIH=$S($D(^IBA(355.33,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=355.33,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.33,.05,1,1,2)="Q"
^DD(355.33,.05,1,1,"%D",0)="^^1^1^2980804^"
^DD(355.33,.05,1,1,"%D",1,0)="Set Processed By to the user who processed the entry."
^DD(355.33,.05,1,1,"CREATE CONDITION")="PROCESSED BY="""""
^DD(355.33,.05,1,1,"CREATE VALUE")="S X=DUZ"
^DD(355.33,.05,1,1,"DELETE VALUE")="NO EFFECT"
^DD(355.33,.05,1,1,"FIELD")="PROCESSED BY"
^DD(355.33,.05,1,2,0)="355.33^AFST1^MUMPS"
^DD(355.33,.05,1,2,1)="I $P($G(^IBA(355.33,DA,0)),U,4)'="""" S ^IBA(355.33,""AFST"",$P(^(0),U,4),X,DA)="""""
^DD(355.33,.05,1,2,2)="I $P($G(^IBA(355.33,DA,0)),U,4)'="""" K ^IBA(355.33,""AFST"",$P(^(0),U,4),X,DA)"
^DD(355.33,.05,1,2,"%D",0)="^^1^1^2980909^^^^"
^DD(355.33,.05,1,2,"%D",1,0)="Cross reference of all entries by action and date of action."
^DD(355.33,.05,1,2,"DT")="2980909"
^DD(355.33,.05,3)="Enter the date this entry is processed by insurance personnel."
^DD(355.33,.05,5,1,0)="355.33^.04^1"
^DD(355.33,.05,21,0)="^^2^2^2980209^"
^DD(355.33,.05,21,1,0)="This is the date authorized insurance personnel either accepted or rejected"
^DD(355.33,.05,21,2,0)="the information in this entry."
^DD(355.33,.05,"DT")="2980909"
^DD(355.33,.06,0)="PROCESSED BY^P200'^VA(200,^0;6^Q"
^DD(355.33,.06,3)="Enter the insurance user who processed this entry."
^DD(355.33,.06,5,1,0)="355.33^.05^1"
^DD(355.33,.06,21,0)="^^1^1^2980209^"
^DD(355.33,.06,21,1,0)="This is the insurance user who accepted or rejected this entry."
^DD(355.33,.06,"DT")="2980209"
^DD(355.33,.07,0)="NEW COMPANY^S^1:YES;0:NO;^0;7^Q"
^DD(355.33,.07,3)="Enter Yes if this entry resulted in a new Insurance Company."
^DD(355.33,.07,21,0)="^^4^4^2981016^^^"
^DD(355.33,.07,21,1,0)="This flag indicates if this buffer entry resulted in a new Insurance"
^DD(355.33,.07,21,2,0)="Company being created.  This will only be Yes if the buffer entry was"
^DD(355.33,.07,21,3,0)="accepted and a new Insurance Company entry was added to the Insurance"
^DD(355.33,.07,21,4,0)="Company File."
^DD(355.33,.07,"DT")="2980209"
^DD(355.33,.08,0)="NEW GROUP/PLAN^S^1:YES;0:NO;^0;8^Q"
^DD(355.33,.08,3)="Enter Yes if this entry resulted in a new Insurance Group/Plan."
^DD(355.33,.08,21,0)="^^3^3^2981016^^^"
^DD(355.33,.08,21,1,0)="This flag indicates if this buffer entry resulted in a new Group/Plan being"
^DD(355.33,.08,21,2,0)="created.  This will only be Yes if the buffer entry was accepted and a new"
^DD(355.33,.08,21,3,0)="Group/Plan entry was added to the Group Insurance Plan file."
^DD(355.33,.08,"DT")="2980209"
^DD(355.33,.09,0)="NEW POLICY^S^1:YES;0:NO;^0;9^Q"
^DD(355.33,.09,3)="Enter Yes if this entry resulted in a new Insurance Policy for this patient."
^DD(355.33,.09,21,0)="^^3^3^2981016^^^"
^DD(355.33,.09,21,1,0)="This flag indicates if this buffer entry resulted in a new Patient"
^DD(355.33,.09,21,2,0)="Insurance Policy being created.  This will only be Yes if the buffer"
^DD(355.33,.09,21,3,0)="entry was accepted and a new Policy entry was added for this patient."
^DD(355.33,.09,"DT")="2980209"
^DD(355.33,.1,0)="DATE VERIFIED^D^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.33,.1,1,0)="^.1"
^DD(355.33,.1,1,1,0)="^^TRIGGER^355.33^.11"
^DD(355.33,.1,1,1,1)="X ^DD(355.33,.1,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(355.33,.1,1,1,1.4)"
^DD(355.33,.1,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.33,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,11),0)):"""",1:$P(^(0),U,1))="""""
^DD(355.33,.1,1,1,1.4)="S DIH=$S($D(^IBA(355.33,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=355.33,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.33,.1,1,1,2)="Q"
^DD(355.33,.1,1,1,"%D",0)="^^1^1^2990922^"
^DD(355.33,.1,1,1,"%D",1,0)="Set Verified By to the user who verified the entry."
^DD(355.33,.1,1,1,"CREATE CONDITION")="VERIFIED BY="""""
^DD(355.33,.1,1,1,"CREATE VALUE")="S X=DUZ"
^DD(355.33,.1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(355.33,.1,1,1,"DT")="2990922"
^DD(355.33,.1,1,1,"FIELD")="VERIFIED BY"
^DD(355.33,.1,1,2,0)="355.33^AFST2^MUMPS"
^DD(355.33,.1,1,2,1)="S ^IBA(355.33,""AFST"",""V"",X,DA)="""""
^DD(355.33,.1,1,2,2)="K ^IBA(355.33,""AFST"",""V"",X,DA)"
^DD(355.33,.1,1,2,"%D",0)="^^1^1^2980909^"
^DD(355.33,.1,1,2,"%D",1,0)="Cross reference of all entries by action and date of action."
^DD(355.33,.1,1,2,"DT")="2980909"
^DD(355.33,.1,3)="This is the date the Buffer entry is verified by insurance personnel."
^DD(355.33,.1,21,0)="^^3^3^2980804^"
^DD(355.33,.1,21,1,0)="This is the date insurance personnel verified this insurance information is"
^DD(355.33,.1,21,2,0)="correct.  This will only be used if the verification step was completed"
^DD(355.33,.1,21,3,0)="separately from the acceptance step of the process."
^DD(355.33,.1,"DT")="2990922"
^DD(355.33,.11,0)="VERIFIED BY^P200'^VA(200,^0;11^Q"
^DD(355.33,.11,3)="This is the insurance user who verified this insurance information."
^DD(355.33,.11,5,1,0)="355.33^.1^1"
^DD(355.33,.11,21,0)="^^3^3^2980820^^"
^DD(355.33,.11,21,1,0)="This is the insurance user that verified this insurance information is"
^DD(355.33,.11,21,2,0)="correct.  This should only be entered if the entry is verified before it"
^DD(355.33,.11,21,3,0)="is accepted."
^DD(355.33,.11,"DT")="2980804"
^DD(355.33,.12,0)="IIV STATUS^P365.15'^IBE(365.15,^0;12^Q"
^DD(355.33,.12,3)="Enter the IIV status associated with this buffer entry."
^DD(355.33,.12,21,0)="^^5^5^3030414^"
^DD(355.33,.12,21,1,0)="This field is a pointer to the IIV STATUS TABLE file.  This identifies"
^DD(355.33,.12,21,2,0)="the visual symbol that should appear in the IIV status column in "
^DD(355.33,.12,21,3,0)="the insurance buffer listing of entries.  The symbols appear next to the "
^DD(355.33,.12,21,4,0)="patient name to indicate the current stage within the electronic "
^DD(355.33,.12,21,5,0)="verification process."
^DD(355.33,.12,"DT")="3030414"
^DD(355.33,.13,0)="OVERRIDE FRESHNESS FLAG^S^1:YES;0:NO;^0;13^Q"
^DD(355.33,.13,3)="Enter Yes to force an electronic transmission of this entry."
^DD(355.33,.13,21,0)="^^7^7^3020708^"
^DD(355.33,.13,21,1,0)="The presence of this flag will alert the Buffer extract process and"
^DD(355.33,.13,21,2,0)="also the process that electronically transmits the insurance"
^DD(355.33,.13,21,3,0)="verification request, that this buffer entry should get transmitted"
^DD(355.33,.13,21,4,0)="and sent to the Payer - bypassing the National Insurance Cache."
^DD(355.33,.13,21,5,0)="This is regardless of the freshness date or of any other data"
^DD(355.33,.13,21,6,0)="elements.  This flag trumps everything else in the electronic"
^DD(355.33,.13,21,7,0)="verification process."
^DD(355.33,.13,"DT")="3020708"
^DD(355.33,.14,0)="REMOTE LOCATION^P4'^DIC(4,^0;14^Q"
^DD(355.33,.14,3)="Specify the facility where this insurance information came from."
^DD(355.33,.14,21,0)="^^3^3^3030715^"
^DD(355.33,.14,21,1,0)="This is the remote location from where this insurance information was "
^DD(355.33,.14,21,2,0)="gathered from.  This field is optional and will only be completed if the "
^DD(355.33,.14,21,3,0)="information came from a remote facility."
^DD(355.33,.14,"DT")="3030715"
^DD(355.33,.15,0)="IIV PROCESSED DATE^D^^0;15^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.33,.15,3)="This is the date the response was received using eIIV."
^DD(355.33,.15,21,0)="^.001^3^3^3030722^^^^"
^DD(355.33,.15,21,1,0)="This date/time field is automatically updated when a response is received"
^DD(355.33,.15,21,2,0)="using the electronic insurance eligibility communications via the IIV"
^DD(355.33,.15,21,3,0)="software."
^DD(355.33,.15,"DT")="3030722"
^DD(355.33,20.01,0)="INSURANCE COMPANY NAME^FX^^20;1^S X=$$UP^XLFSTR(X),X=$$TRIM^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(355.33,20.01,1,0)="^.1"
^DD(355.33,20.01,1,1,0)="355.33^D"
^DD(355.33,20.01,1,1,1)="S ^IBA(355.33,""D"",$E(X,1,30),DA)="""""
^DD(355.33,20.01,1,1,2)="K ^IBA(355.33,""D"",$E(X,1,30),DA)"
^DD(355.33,20.01,1,1,"%D",0)="^^1^1^2980309^"
^DD(355.33,20.01,1,1,"%D",1,0)="Insurance Company Cross-reference."
^DD(355.33,20.01,1,1,"DT")="2980309"
^DD(355.33,20.01,3)="Answer must be 3-30 characters in length."
^DD(355.33,20.01,21,0)="^.001^2^2^3030617^^^"
^DD(355.33,20.01,21,1,0)="Enter the name of the Insurance Carrier that provides coverage for this"
^DD(355.33,20.01,21,2,0)="patient."
^DD(355.33,20.01,"DT")="3030617"
^DD(355.33,20.02,0)="PHONE NUMBER^F^^20;2^K:$L(X)>20!($L(X)<7) X"
^DD(355.33,20.02,3)="Answer must be 7-20 characters in length."
^DD(355.33,20.02,21,0)="^^1^1^2980209^"
^DD(355.33,20.02,21,1,0)="Enter the phone number at which this insurance company can be reached."
^DD(355.33,20.02,"DT")="2980209"
^DD(355.33,20.03,0)="BILLING PHONE NUMBER^F^^20;3^K:$L(X)>20!($L(X)<7) X"
^DD(355.33,20.03,3)="Enter the phone number of the billing office for this company.  Answer must be 7-20 characters in length."
^DD(355.33,20.03,21,0)="^^2^2^2981016^^"
^DD(355.33,20.03,21,1,0)="The insurance carriers phone number where inquires about patient billing"
^DD(355.33,20.03,21,2,0)="should be made."
^DD(355.33,20.03,"DT")="2980209"
^DD(355.33,20.04,0)="PRECERTIFICATION PHONE NUMBER^F^^20;4^K:$L(X)>20!($L(X)<7) X"
^DD(355.33,20.04,3)="Enter the phone number for pre-certification of care with the insurance company, if required.  Answer must be 7-20 characters in length."
^DD(355.33,20.04,21,0)="^^3^3^2980210^^"
^DD(355.33,20.04,21,1,0)="If this company requires pre-certification of insurance coverage to be"
^DD(355.33,20.04,21,2,0)="completed prior to a patient being treated then enter the phone number"
^DD(355.33,20.04,21,3,0)="of the pre-cert office."
^DD(355.33,20.04,"DT")="2980209"
^DD(355.33,20.05,0)="REIMBURSE?^S^Y:WILL REIMBURSE;*:WILL REIMBURSE IF TREATED UNDER VAR 6046(C) OR VAR 6060.2(A);**:DEPENDS ON POLICY, CHECK WITH COMPANY;N:WILL NOT REIMBURSE;^20;5^Q"
^DD(355.33,20.05,3)="Does this company reimburse the VA for care provided to it's policy holders?"
^DD(355.33,20.05,21,0)="^^3^3^2980324^^"
^DD(355.33,20.05,21,1,0)="Choose from the available list of choices the appropriate code denoting"
^DD(355.33,20.05,21,2,0)="whether or not and under which circumstances this insurance carrier will"
^DD(355.33,20.05,21,3,0)="reimburse the Dept of Veterans Affairs for care received."
^DD(355.33,20.05,"DT")="2980324"
^DD(355.33,21.01,0)="STREET ADDRESS [LINE 1]^F^^21;1^K:$L(X)>35!($L(X)<3) X"
^DD(355.33,21.01,3)="Answer must be 3-35 characters in length."
^DD(355.33,21.01,21,0)="^^1^1^2980210^^^"
^DD(355.33,21.01,21,1,0)="Enter the first line of the insurance company's mailing address street."
^DD(355.33,21.01,"DT")="2980209"
^DD(355.33,21.02,0)="STREET ADDRESS [LINE 2]^F^^21;2^K:$L(X)>30!($L(X)<3) X"
^DD(355.33,21.02,3)="Enter the second line of the insurance company's mailing address street.  Answer must be 3-30 characters in length."
^DD(355.33,21.02,21,0)="^^2^2^2980210^^^^"
^DD(355.33,21.02,21,1,0)="If the insurance company's mailing address street is longer than 1 line,"
^DD(355.33,21.02,21,2,0)="enter the second line here."
^DD(355.33,21.02,"DT")="2980209"
^DD(355.33,21.03,0)="STREET ADDRESS [LINE 3]^F^^21;3^K:$L(X)>30!($L(X)<3) X"
^DD(355.33,21.03,3)="Enter the third line of the insurance company's mailing address street.  Answer must be 3-30 characters in length."
^DD(355.33,21.03,21,0)="^^2^2^2980210^^^"
^DD(355.33,21.03,21,1,0)="If the insurance company's mailing address street is longer than 2 lines,"
^DD(355.33,21.03,21,2,0)="enter the third line here."
^DD(355.33,21.03,"DT")="2980209"
^DD(355.33,21.04,0)="CITY^F^^21;4^K:$L(X)>25!($L(X)<2) X"
^DD(355.33,21.04,3)="Answer must be 2-25 characters in length."
^DD(355.33,21.04,21,0)="^^1^1^2980210^^"
^DD(355.33,21.04,21,1,0)="This is the insurance company's mailing address city."
^DD(355.33,21.04,"DT")="2980209"
^DD(355.33,21.05,0)="STATE^P5'^DIC(5,^21;5^Q"
^DD(355.33,21.05,3)="Enter the company's mailing address state."
^DD(355.33,21.05,21,0)="^^1^1^2980210^^"
^DD(355.33,21.05,21,1,0)="This is the insurance company's mailing address state."
^DD(355.33,21.05,"DT")="2980209"
^DD(355.33,21.06,0)="ZIP CODE^FXO^^21;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(355.33,21.06,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(355.33,21.06,2.1)="D ZIPOUT^VAFADDR"
^DD(355.33,21.06,3)="Enter either a 5 or 9 digit zip code."
^DD(355.33,21.06,21,0)="^^1^1^2980210^^"
^DD(355.33,21.06,21,1,0)="This is the insurance company's mailing address zip code."
^DD(355.33,21.06,"DT")="2980210"
^DD(355.33,40.01,0)="IS THIS A GROUP POLICY?^S^1:YES;0:NO;^40;1^Q"
^DD(355.33,40.01,3)="Enter Yes if other patients may be associated with this plan, otherwise enter No."
^DD(355.33,40.01,21,0)="^^2^2^2980209^"
^DD(355.33,40.01,21,1,0)="Some policies are individual policies and are specific to a patient."
^DD(355.33,40.01,21,2,0)="Many policies are group plans that cover many patients."
^DD(355.33,40.01,"DT")="2980209"
^DD(355.33,40.02,0)="GROUP NAME^F^^40;2^K:$L(X)>20!($L(X)<2) X"
^DD(355.33,40.02,3)="Enter the name of the group this policy is associated with.  Answer must be 2-20 characters in length."
^DD(355.33,40.02,21,0)="^^1^1^2981016^^"
^DD(355.33,40.02,21,1,0)="This is the name that the insurance company uses to identify this plan."
^DD(355.33,40.02,"DT")="2980209"
^DD(355.33,40.03,0)="GROUP NUMBER^F^^40;3^K:$L(X)>17!($L(X)<2) X"
^DD(355.33,40.03,3)="Enter the number that identifies this group/plan.  Answer must be 2-17 characters in length."
^DD(355.33,40.03,21,0)="^^2^2^2980209^"
^DD(355.33,40.03,21,1,0)="This is the number or code which the insurance company uses to identify"
^DD(355.33,40.03,21,2,0)="this plan."
^DD(355.33,40.03,"DT")="2980209"
^DD(355.33,40.04,0)="UTILITZATION REVIEW REQUIRED^S^1:YES;0:NO;^40;4^Q"
^DD(355.33,40.04,3)="Enter Yes if this plan requires Utilization Review for all billable cases."
^DD(355.33,40.04,21,0)="^^3^3^2980209^"
^DD(355.33,40.04,21,1,0)="If this is answered Yes, then the UR staff will be required to follow-up"
^DD(355.33,40.04,21,2,0)="on all billable cases.  If this is answered No then UR follow-up will"
^DD(355.33,40.04,21,3,0)="be considered optional."
^DD(355.33,40.04,"DT")="2980209"
^DD(355.33,40.05,0)="PRECERTIFICATION REQUIRED^S^1:YES;0:NO;^40;5^Q"
^DD(355.33,40.05,3)="Enter Yes if pre-certification is required by this plan."
^DD(355.33,40.05,21,0)="^^2^2^2980209^^"
^DD(355.33,40.05,21,1,0)="Enter Yes if this plan requires all non-emergent admissions to be"
^DD(355.33,40.05,21,2,0)="pre-certified."
^DD(355.33,40.05,"DT")="2980209"
^DD(355.33,40.06,0)="AMBULATORY CARE CERTIFICATION^S^1:YES;0:NO;^40;6^Q"
^DD(355.33,40.06,3)="Enter Yes if certification is required for ambulatory care."
^DD(355.33,40.06,21,0)="^^3^3^2980209^"
^DD(355.33,40.06,21,1,0)="Enter Yes if this plan requires certification of ambulatory procedures."
^DD(355.33,40.06,21,2,0)="This may include Ambulatory Surgeries, CAT Scans, MRI, non-invasive"
^DD(355.33,40.06,21,3,0)="procedures, etc."
^DD(355.33,40.06,"DT")="2980209"
^DD(355.33,40.07,0)="EXCLUDE PREEXISTING CONDITION^S^1:YES;0:NO;^40;7^Q"
^DD(355.33,40.07,3)="Enter Yes if this plan excludes any pre-existing conditions."
^DD(355.33,40.07,21,0)="^^2^2^2980209^"
^DD(355.33,40.07,21,1,0)="Enter Yes if the plan does not cover any pre-existing conditions the"
^DD(355.33,40.07,21,2,0)="patient may have, otherwise enter No."
^DD(355.33,40.07,"DT")="2980209"
^DD(355.33,40.08,0)="BENEFITS ASSIGNABLE^S^1:YES;0:NO;^40;8^Q"
^DD(355.33,40.08,3)="Enter Yes if this plan will allow assignment of benefits, otherwise enter No."
^DD(355.33,40.08,21,0)="^^1^1^2980209^"
^DD(355.33,40.08,21,1,0)="Enter Yes if assignment of benefits is allowed by this plan."
^DD(355.33,40.08,"DT")="2980209"
^DD(355.33,40.09,0)="TYPE OF PLAN^*P355.1'^IBE(355.1,^40;9^S DIC(""S"")=""I '$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(355.33,40.09,3)="Enter the Type of Plan that best describes this plan."
^DD(355.33,40.09,12)="Active Types of Plans Only!"
^DD(355.33,40.09,12.1)="S DIC(""S"")=""I '$P(^(0),U,4)"""
^DD(355.33,40.09,21,0)="^^3^3^2980209^"
^DD(355.33,40.09,21,1,0)="Select the Type of Plan that best describes this plan.  The Type of Plan"
^DD(355.33,40.09,21,2,0)="may be used to determine if reimbursement for claims from the insurance"
^DD(355.33,40.09,21,3,0)="carrier is appropriate."
^DD(355.33,40.09,"DT")="2980211"
^DD(355.33,40.1,0)="BANKING IDENTIFICATION NUMBER^F^^40;10^K:$L(X)>10!($L(X)<1) X"
^DD(355.33,40.1,3)="Enter the Plan's Banking Identification Number (BIN). Answer must be 1-10 characters in length."
^DD(355.33,40.1,21,0)="^^2^2^3040409^"
^DD(355.33,40.1,21,1,0)="The Plan's Banking Identification Number (BIN)."
^DD(355.33,40.1,21,2,0)="Used for NCPDP transmissions."
^DD(355.33,40.1,"DT")="3040409"
^DD(355.33,40.11,0)="PROCESSOR CONTROL NUMBER (PCN)^F^^40;11^K:$L(X)>20!($L(X)<1) X"
^DD(355.33,40.11,3)="Enter the Plan's Processor Control Number (PCN). Answer must be 1-20 characters in length."
^DD(355.33,40.11,21,0)="^^2^2^3040409^"
^DD(355.33,40.11,21,1,0)="The Plan's Processor Control Number (PCN)."
^DD(355.33,40.11,21,2,0)="Used for NCPDP transmissions."
^DD(355.33,40.11,"DT")="3040409"
^DD(355.33,60.01,0)="PATIENT NAME^P2'^DPT(^60;1^Q"
^DD(355.33,60.01,1,0)="^.1"
^DD(355.33,60.01,1,1,0)="355.33^C"
^DD(355.33,60.01,1,1,1)="S ^IBA(355.33,""C"",$E(X,1,30),DA)="""""
^DD(355.33,60.01,1,1,2)="K ^IBA(355.33,""C"",$E(X,1,30),DA)"
^DD(355.33,60.01,1,1,"%D",0)="^^1^1^2980309^"
^DD(355.33,60.01,1,1,"%D",1,0)="Patient Cross-reference."
^DD(355.33,60.01,1,1,"DT")="2980309"
^DD(355.33,60.01,3)="Enter the patient covered by this insurance."
^DD(355.33,60.01,21,0)="^^1^1^2980209^"
^DD(355.33,60.01,21,1,0)="This is the patient covered by this insurance policy."
^DD(355.33,60.01,"DT")="2980309"
^DD(355.33,60.02,0)="EFFECTIVE DATE^DX^^60;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$P($G(^IBA(355.33,DA,60)),U,3)'="""",X>$P(^IBA(355.33,DA,60),U,3) K X"
^DD(355.33,60.02,1,0)="^.1"
^DD(355.33,60.02,1,1,0)="355.33^AI^MUMPS"
^DD(355.33,60.02,1,1,1)="Q"
^DD(355.33,60.02,1,1,2)="Q"
^DD(355.33,60.02,1,1,"%D",0)="^^1^1^2981017^"
^DD(355.33,60.02,1,1,"%D",1,0)="Cross reference to force filing of data so input transform will work."
^DD(355.33,60.02,1,1,"DT")="2981017"
^DD(355.33,60.02,3)="The effective date of the policy for this patient, must not be greater than the expiration date."
^DD(355.33,60.02,21,0)="^^1^1^2980209^"
^DD(355.33,60.02,21,1,0)="This is the date this policy went into effect for this patient."
^DD(355.33,60.02,"DT")="2981017"
^DD(355.33,60.03,0)="EXPIRATION DATE^DX^^60;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),X<$P($G(^IBA(355.33,DA,60)),U,2) K X"
^DD(355.33,60.03,3)="Enter the date this policy expires for this patient, date must not be before policy effective date."
^DD(355.33,60.03,21,0)="^^2^2^2980209^"
^DD(355.33,60.03,21,1,0)="If this insurance policy coverage expires for this patient on a specified"
^DD(355.33,60.03,21,2,0)="date, enter that date, otherwise leave this blank."
^DD(355.33,60.03,"DT")="2980217"
^DD(355.33,60.04,0)="SUBSCRIBER ID^FX^^60;4^K:$L(X)>20!($L(X)<3) X"
^DD(355.33,60.04,.1)="SUBSCRIBER PRIMARY ID"
^DD(355.33,60.04,3)="Answer must be 3-20 characters in length"
^DD(355.33,60.04,21,0)="^^2^2^3070716^"
^DD(355.33,60.04,21,1,0)="Enter the Subscriber's Primary ID number.  This number is assigned"
^DD(355.33,60.04,21,2,0)="by the payer and can be found on the subscriber's insurance card."
^DD(355.33,60.04,"DT")="3070717"
^DD(355.33,60.05,0)="WHOSE INSURANCE^*S^v:VETERAN;s:SPOUSE;o:OTHER;p:PATIENT;^60;5^Q"
^DD(355.33,60.05,3)="Enter who holds the insurance policy (the insured)."
^DD(355.33,60.05,5,1,0)="355.33^60.06^3"
^DD(355.33,60.05,12)="Exclude VA from selecting 'p' for Patient."
^DD(355.33,60.05,12.1)="S DIC(""S"")=""I ($G(DUZ(""""AG""""))'=""""V""""&(""""pso""""[Y))!($G(DUZ(""""AG""""))=""""V""""&(""""vso""""[Y))"""
^DD(355.33,60.05,21,0)="^.001^3^3^3051018^^^"
^DD(355.33,60.05,21,1,0)="Enter 'v' if this insurance policy is held by the veteran, 's' if the"
^DD(355.33,60.05,21,2,0)="veterans spouse holds the policy, or 'o' if anyone else is the policy"
^DD(355.33,60.05,21,3,0)="holder."
^DD(355.33,60.05,23,0)="^.001^2^2^3051018^^"
^DD(355.33,60.05,23,1,0)="'p' for PATIENT may be entered if the VistA system is non-VA."
^DD(355.33,60.05,23,2,0)="'v' is excluded if the VistA system is non-VA."
^DD(355.33,60.05,"DT")="3051018"
^DD(355.33,60.06,0)="PT. RELATIONSHIP TO INSURED^*S^01:PATIENT;02:SPOUSE;03:NATURAL CHILD;08:EMPLOYEE;09:DO NOT USE;11:ORGAN DONOR;15:INJURED PLANTIFF;18:DO NOT USE;32:MOTHER;33:FATHER;34:SIGNIFICANT OTHER;35:LIFE PARTNER;36:OTHER RELATIONSHIP;^60;6^Q"
^DD(355.33,60.06,1,0)="^.1"
^DD(355.33,60.06,1,1,0)="355.33^AI1^MUMPS"
^DD(355.33,60.06,1,1,1)="Q"
^DD(355.33,60.06,1,1,2)="Q"
^DD(355.33,60.06,1,1,"%D",0)="^^1^1^2981017^"
^DD(355.33,60.06,1,1,"%D",1,0)="Cross reference to force filing of data so input transform will work."
^DD(355.33,60.06,1,1,"DT")="2981017"
^DD(355.33,60.06,1,2,0)="^^TRIGGER^355.33^60.14"
^DD(355.33,60.06,1,2,1)="X ^DD(355.33,60.06,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.33,D0,60)):^(60),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$$PRELCNV^IBCNSP1($P(^IBA(355.33,DA,60),U,6),1) X ^DD(355.33,60.06,1,2,1.4)"
^DD(355.33,60.06,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 N Z S Z=$$PRELCNV^IBCNSP1($P(^IBA(355.33,D0,60),U,6),1),X=(Z'=""""&(Z'=$P(^IBA(355.33,D0,60),U,14)))"
^DD(355.33,60.06,1,2,1.4)="S DIH=$G(^IBA(355.33,DIV(0),60)),DIV=X S $P(^(60),U,14)=DIV,DIH=355.33,DIG=60.14 D ^DICR"
^DD(355.33,60.06,1,2,2)="Q"
^DD(355.33,60.06,1,2,"%D",0)="^.101^1^1^3080204^^"
^DD(355.33,60.06,1,2,"%D",1,0)="Triggers field 60.14 if its value differs from value in this field."
^DD(355.33,60.06,1,2,"CREATE CONDITION")="N Z S Z=$$PRELCNV^IBCNSP1($P(^IBA(355.33,D0,60),U,6),1),X=(Z'=""""&(Z'=$P(^IBA(355.33,D0,60),U,14)))"
^DD(355.33,60.06,1,2,"CREATE VALUE")="S X=$$PRELCNV^IBCNSP1($P(^IBA(355.33,DA,60),U,6),1)"
^DD(355.33,60.06,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.33,60.06,1,2,"DT")="3071211"
^DD(355.33,60.06,1,2,"FIELD")="#60.14"
^DD(355.33,60.06,1,3,0)="^^TRIGGER^355.33^60.05"
^DD(355.33,60.06,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.33,D0,60)):^(60),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$S(+X=1:$S($G(DUZ(""AG""))=""V"":""v"",1:""p""),+X=2:""s"",1:""o"") X ^DD(355.33,60.06,1,3,1.4)"
^DD(355.33,60.06,1,3,1.4)="S DIH=$G(^IBA(355.33,DIV(0),60)),DIV=X S $P(^(60),U,5)=DIV,DIH=355.33,DIG=60.05 D ^DICR"
^DD(355.33,60.06,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.33,D0,60)):^(60),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.33,DIV(0),60)),DIV=X S $P(^(60),U,5)=DIV,DIH=355.33,DIG=60.05 D ^DICR"
^DD(355.33,60.06,1,3,"%D",0)="^^3^3^3080207^"
^DD(355.33,60.06,1,3,"%D",1,0)="This trigger will set the WHOSE INSURANCE field"
^DD(355.33,60.06,1,3,"%D",2,0)="(60.05). WHOSE INSURANCE will no longer be asked"
^DD(355.33,60.06,1,3,"%D",3,0)="on user interface screens."
^DD(355.33,60.06,1,3,"CREATE VALUE")="S X=$S(+X=1:$S($G(DUZ(""AG""))=""V"":""v"",1:""p""),+X=2:""s"",1:""o"")"
^DD(355.33,60.06,1,3,"DELETE VALUE")="@"
^DD(355.33,60.06,1,3,"DT")="3080207"
^DD(355.33,60.06,1,3,"FIELD")="#60.05"
^DD(355.33,60.06,3)="Enter the code for the patient's relationship to the insured (or policy holder)."
^DD(355.33,60.06,5,1,0)="355.33^60.14^1"
^DD(355.33,60.06,12)="Cannot use 09 or 18 anymore"
^DD(355.33,60.06,12.1)="S DIC(""S"")=""I X'=""""09"""",X'=""""18"""""""
^DD(355.33,60.06,21,0)="^^2^2^3070713^"
^DD(355.33,60.06,21,1,0)="Enter the code which best describes the patient's relationship to"
^DD(355.33,60.06,21,2,0)="the person who holds this policy (or insured)."
^DD(355.33,60.06,"DT")="3080207"
^DD(355.33,60.07,0)="NAME OF INSURED^FX^^60;7^N Z1 S Z1=$G(^IBA(355.33,DA,60)) S:$P(Z1,U,6)=""01"" X=$P($G(^DPT(+Z1,0)),U,1) K:$L(X)>30!($L(X)<2) X"
^DD(355.33,60.07,3)="Enter the name of the person who holds the policy.  Answer must be 2-30 characters in length."
^DD(355.33,60.07,21,0)="^^3^3^2981016^^"
^DD(355.33,60.07,21,1,0)="Enter the name of the individual for which this policy was issued.  If the"
^DD(355.33,60.07,21,2,0)="Patients Relationship to the Insured is 'Patient' then this name will "
^DD(355.33,60.07,21,3,0)="default to the patients name."
^DD(355.33,60.07,"DT")="2980210"
^DD(355.33,60.08,0)="INSURED'S DOB^DX^^60;8^S %DT=""EXP"" D ^%DT S X=Y K:Y<1 X"
^DD(355.33,60.08,3)="Enter the Date of Birth of the policy holder.  This is only needed if the patient is not the insured."
^DD(355.33,60.08,21,0)="^^3^3^2981016^^^^"
^DD(355.33,60.08,21,1,0)="This is the policy holders (insured's) Date of Birth.  This is not"
^DD(355.33,60.08,21,2,0)="needed if the patient is not the policy holder since the patients DOB is"
^DD(355.33,60.08,21,3,0)="stored elsewhere."
^DD(355.33,60.08,"DT")="2981016"
^DD(355.33,60.09,0)="INSURED'S SSN^FXO^^60;9^K:$L(X)>13!($L(X)<9) X S:$D(X) X=$TR(X,""-"","""")"
^DD(355.33,60.09,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(355.33,60.09,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(355.33,60.09,3)="If the insured is not the patient enter the insured's SSN.  Answer must be 9-13 characters in length."
^DD(355.33,60.09,21,0)="^^3^3^2980210^"
^DD(355.33,60.09,21,1,0)="This is the policy holders (insured's) social security number.  This only"
^DD(355.33,60.09,21,2,0)="needs to be entered if it is different than the Subscriber Id number and"
^DD(355.33,60.09,21,3,0)="the insured is not the patient."
^DD(355.33,60.09,"DT")="2980210"
^DD(355.33,60.1,0)="PRIMARY CARE PROVIDER^F^^60;10^K:$L(X)>30!($L(X)<3) X"
^DD(355.33,60.1,3)="If referral is required for VA reimbursement, enter the non-VA provider that referred this patient to the VA.  Answer must be 3-30 characters in length."
^DD(355.33,60.1,21,0)="^^3^3^2981020^^^^"
^DD(355.33,60.1,21,1,0)="This is the patient's Primary Care Provider within their managed care"
^DD(355.33,60.1,21,2,0)="network that referred the patient to the VA.  In some cases if the"
^DD(355.33,60.1,21,3,0)="patients PC Provider refers the patient to the VA their HMO will reimburse."
^DD(355.33,60.1,"DT")="2980210"
^DD(355.33,60.11,0)="PRIMARY PROVIDER PHONE^F^^60;11^K:$L(X)>20!($L(X)<7) X"
^DD(355.33,60.11,3)="The phone number of the Primary Care Provider that referred the patient to the VA.  Answer must be 7-20 characters in length."
^DD(355.33,60.11,21,0)="^^2^2^2980210^"
^DD(355.33,60.11,21,1,0)="This is the phone number of the patients non-VA primary care provider that"
^DD(355.33,60.11,21,2,0)="may refer the patient to the VA for care."
^DD(355.33,60.11,"DT")="2980210"
^DD(355.33,60.12,0)="COORDINATION OF BENEFITS^S^1:PRIMARY;2:SECONDARY;3:TERTIARY;^60;12^Q"
^DD(355.33,60.12,3)="Enter the code that best relates where in the payment sequence this policy should be placed."
^DD(355.33,60.12,21,0)="^^3^3^2980803^"
^DD(355.33,60.12,21,1,0)="Enter '1' if this is the patient's primary insurance policy.  Enter '2'"
^DD(355.33,60.12,21,2,0)="if this policy is secondary to (billed after) the primary policy."
^DD(355.33,60.12,21,3,0)="Enter '3' if this policy is tertiary or billed after the secondary policy."
^DD(355.33,60.12,"DT")="2980803"
^DD(355.33,60.13,0)="INSURED'S SEX^S^F:FEMALE;M:MALE;^60;13^Q"
^DD(355.33,60.13,3)="Enter the sex (M or F) of the policy holder."
^DD(355.33,60.13,21,0)="^^6^6^3061002^"
^DD(355.33,60.13,21,1,0)="This field is used in insurance billing to help verify the"
^DD(355.33,60.13,21,2,0)="policy coverage when the bill is submitted to the carrier."
^DD(355.33,60.13,21,3,0)="If the patient is the policy holder, this value should match"
^DD(355.33,60.13,21,4,0)="the patient's sex.  If the patient's spouse or other relative"
^DD(355.33,60.13,21,5,0)="is the policy holder, the appropriate value should be"
^DD(355.33,60.13,21,6,0)="determined and entered."
^DD(355.33,60.13,"DT")="3061002"
^DD(355.33,60.14,0)="PT. RELATIONSHIP - HIPAA^S^01:SPOUSE;18:SELF;19:CHILD;20:EMPLOYEE;29:SIGNIFICANT OTHER;32:MOTHER;33:FATHER;39:ORGAN DONOR;41:INJURED PLAINTIFF;53:LIFE PARTNER;G8:OTHER RELATIONSHIP;^60;14^Q"
^DD(355.33,60.14,1,0)="^.1"
^DD(355.33,60.14,1,1,0)="^^TRIGGER^355.33^60.06"
^DD(355.33,60.14,1,1,1)="X ^DD(355.33,60.14,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.33,D0,60)):^(60),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$$PRELCNV^IBCNSP1($P(^IBA(355.33,DA,60),U,14),0) X ^DD(355.33,60.14,1,1,1.4)"
^DD(355.33,60.14,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 N Z S Z=$$PRELCNV^IBCNSP1($P(^IBA(355.33,D0,60),U,14),0),X=(Z'=""""&(Z'=$P(^IBA(355.33,D0,60),U,6)))"
^DD(355.33,60.14,1,1,1.4)="S DIH=$G(^IBA(355.33,DIV(0),60)),DIV=X S $P(^(60),U,6)=DIV,DIH=355.33,DIG=60.06 D ^DICR"
^DD(355.33,60.14,1,1,2)="Q"
^DD(355.33,60.14,1,1,"%D",0)="^^1^1^3080204^"
^DD(355.33,60.14,1,1,"%D",1,0)="Triggers field 60.06 if its value differs from value in this field."
^DD(355.33,60.14,1,1,"CREATE CONDITION")="N Z S Z=$$PRELCNV^IBCNSP1($P(^IBA(355.33,D0,60),U,14),0),X=(Z'=""""&(Z'=$P(^IBA(355.33,D0,60),U,6)))"
^DD(355.33,60.14,1,1,"CREATE VALUE")="S X=$$PRELCNV^IBCNSP1($P(^IBA(355.33,DA,60),U,14),0)"
^DD(355.33,60.14,1,1,"DELETE VALUE")="NO EFFECT"
^DD(355.33,60.14,1,1,"FIELD")="PT. RELATIONSHIP TO INSURED"
^DD(355.33,60.14,3)="Enter the HIPAA code which indicates the patient's relationship to the injured party."
^DD(355.33,60.14,5,1,0)="355.33^60.06^2"
^DD(355.33,60.14,21,0)="^^6^6^3080204^"
^DD(355.33,60.14,21,1,0)="Select the HIPAA relationship code that"
^DD(355.33,60.14,21,2,0)="describes the relationship this patient has to"
^DD(355.33,60.14,21,3,0)="the holder of this insurance policy. If the"
^DD(355.33,60.14,21,4,0)="policy belongs to the patient enter '18' for"
^DD(355.33,60.14,21,5,0)="SELF. If the policy belongs to the spouse enter"
^DD(355.33,60.14,21,6,0)="'01' for SPOUSE, etc."
^DD(355.33,60.14,"DT")="3080204"
^DD(355.33,61.01,0)="ESGHP?^S^1:YES;0:NO;^61;1^Q"
^DD(355.33,61.01,3)="Enter Yes if this policy is part of an Employer Sponsored Group Health Plan."
^DD(355.33,61.01,21,0)="^^2^2^2980209^"
^DD(355.33,61.01,21,1,0)="Enter Yes if this policy is part of a plan that is sponsored or provided"
^DD(355.33,61.01,21,2,0)="by the insured's (policy holder's) current or past employer."
^DD(355.33,61.01,"DT")="2980210"
^DD(355.33,61.02,0)="SPONSORING EMPLOYER NAME^F^^61;2^K:$L(X)>30!($L(X)<3) X"
^DD(355.33,61.02,3)="Enter the name of the employer that sponsors this policy.  Answer must be 3-30 characters in length."
^DD(355.33,61.02,21,0)="^^2^2^2980209^"
^DD(355.33,61.02,21,1,0)="If this is an Employer Sponsored Group Health Plan then enter the name of"
^DD(355.33,61.02,21,2,0)="the employer that sponsors the plan."
^DD(355.33,61.02,"DT")="2980209"
^DD(355.33,61.03,0)="EMPLOYMENT STATUS^S^1:FULL TIME;2:PART TIME;3:NOT EMPLOYED;4:SELF EMPLOYED;5:RETIRED;6:ACTIVE MILITARY;9:UNKNOWN;^61;3^Q"
^DD(355.33,61.03,3)="Enter the insured's (policy holder's) employment status with the employer that sponsors this plan."
^DD(355.33,61.03,21,0)="^^2^2^2980209^"
^DD(355.33,61.03,21,1,0)="If this plan is an Employer Sponsored Group Health Plan then enter the "
^DD(355.33,61.03,21,2,0)="policy holders employment status with the sponsoring employer."
^DD(355.33,61.03,"DT")="2980209"
^DD(355.33,61.04,0)="RETIREMENT DATE^D^^61;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.33,61.04,3)="Enter the date the insured retired from the employer that sponsors this plan."
^DD(355.33,61.04,21,0)="^^2^2^2980210^^"
^DD(355.33,61.04,21,1,0)="If this plan is an Employer Sponsored Group Health Plan then enter the"
^DD(355.33,61.04,21,2,0)="date the insured retired from the employer that sponsors the plan."
^DD(355.33,61.04,"DT")="2980209"
^DD(355.33,61.05,0)="SEND BILL TO EMPLOYER^S^1:YES;0:NO;^61;5^Q"
^DD(355.33,61.05,3)="Enter Yes if the insurance claims should be mailed to the employer for pre-processing."
^DD(355.33,61.05,21,0)="^^6^6^2980209^"
^DD(355.33,61.05,21,1,0)="If this is an Employer Sponsored Group Health Plan and the sponsoring"
^DD(355.33,61.05,21,2,0)="employer requires claims against the policy be sent first to them for"
^DD(355.33,61.05,21,3,0)="pre-processing, rather than the insurance company, then enter Yes."
^DD(355.33,61.05,21,4,0)="You will then be able to enter an address that these bills should be"
^DD(355.33,61.05,21,5,0)="sent to.  If the employer does not require this then the bills will be"
^DD(355.33,61.05,21,6,0)="sent directly to the insurance company."
^DD(355.33,61.05,"DT")="2980209"
^DD(355.33,61.06,0)="EMPLOYER CLAIMS STREET LINE 1^F^^61;6^K:$L(X)>30!($L(X)<3) X"
^DD(355.33,61.06,3)="Enter the first line of the street address of the employers claims office if the employer pre-processes insurance claims.  Answer must be 3-30 characters in length."
^DD(355.33,61.06,21,0)="^^4^4^2980209^^"
^DD(355.33,61.06,21,1,0)="Enter the first line of the street address of the sponsoring employers"
^DD(355.33,61.06,21,2,0)="claims office if this is an Employer Sponsored Group Health Plan and the"
^DD(355.33,61.06,21,3,0)="sponsoring employer requires claims against the policy be sent to them for"
^DD(355.33,61.06,21,4,0)="pre-processing."
^DD(355.33,61.06,"DT")="2980209"
^DD(355.33,61.07,0)="EMPLOYER CLAIMS STREET LINE 2^F^^61;7^K:$L(X)>30!($L(X)<3) X"
^DD(355.33,61.07,3)="Enter the second line of the street address of the employers claims office if the employer pre-processes insurance claims.  Answer must be 3-30 characters in length."
^DD(355.33,61.07,21,0)="^^4^4^2980209^^"
^DD(355.33,61.07,21,1,0)="Enter the second line of the street address of the sponsoring employers"
^DD(355.33,61.07,21,2,0)="claims office if this is an Employer Sponsored Group Health Plan and the"
^DD(355.33,61.07,21,3,0)="sponsoring employer requires claims against the policy be sent to them for"
^DD(355.33,61.07,21,4,0)="pre-processing."
^DD(355.33,61.07,"DT")="2980209"
^DD(355.33,61.08,0)="EMPLOYER CLAIMS STREET LINE 3^F^^61;8^K:$L(X)>30!($L(X)<3) X"
^DD(355.33,61.08,3)="Enter the third line of the street address of the employers claims office if the employer pre-processes insurance claims.  Answer must be 3-30 characters in length."
^DD(355.33,61.08,21,0)="^^4^4^2980209^^"
^DD(355.33,61.08,21,1,0)="Enter the third line of the street address of the sponsoring employers"
^DD(355.33,61.08,21,2,0)="claims office if this is an Employer Sponsored Group Health Plan and the"
^DD(355.33,61.08,21,3,0)="sponsoring employer requires claims against the policy be sent to them for"
^DD(355.33,61.08,21,4,0)="pre-processing."
^DD(355.33,61.08,"DT")="2980209"
^DD(355.33,61.09,0)="EMPLOYER CLAIMS CITY^F^^61;9^K:$L(X)>20!($L(X)<3) X"
^DD(355.33,61.09,3)="Enter the city of the employers claims office if the employer pre-processes insurance claims.  Answer must be 3-20 characters in length."
^DD(355.33,61.09,21,0)="^^3^3^2980209^^"
^DD(355.33,61.09,21,1,0)="Enter the city of the sponsoring employers claims office if this is an"
^DD(355.33,61.09,21,2,0)="Employer Sponsored Group Health Plan and the sponsoring employer requires"
^DD(355.33,61.09,21,3,0)="claims against the policy be sent to them for pre-processing."
^DD(355.33,61.09,"DT")="2980209"
^DD(355.33,61.1,0)="EMPLOYER CLAIMS STATE^P5'^DIC(5,^61;10^Q"
^DD(355.33,61.1,3)="Enter the state of the employers claims office address if the employer pre-processes insurance claims.  Answer must be 3-30 characters in length."
^DD(355.33,61.1,21,0)="^^3^3^2981016^^^^"
^DD(355.33,61.1,21,1,0)="Enter the State of the sponsoring employers claims office if this is an"
^DD(355.33,61.1,21,2,0)="Employer Sponsored Group Health Plan and the sponsoring employer requires"
^DD(355.33,61.1,21,3,0)="claims against the policy be sent to them for pre-processing."
^DD(355.33,61.1,"DT")="2980209"
^DD(355.33,61.11,0)="EMPLOYER CLAIMS ZIP CODE^FX^^61;11^K:$L(X)>20!($L(X)<5) X D:$D(X) ZIPIN^VAFADDR"
^DD(355.33,61.11,3)="Enter the zip code of the employers claims office if the employer pre-processes insurance claims.  Answer must be 5 or 9 digits in length."
^DD(355.33,61.11,21,0)="^^3^3^2980209^"
^DD(355.33,61.11,21,1,0)="Enter the zip code of the sponsoring employers claims office if this is an"
^DD(355.33,61.11,21,2,0)="Employer Sponsored Group Health Plan and the sponsoring employer requires"
^DD(355.33,61.11,21,3,0)="claims against the policy be sent to them for pre-processing."
^DD(355.33,61.11,"DT")="2980317"
^DD(355.33,61.12,0)="EMPLOYER CLAIMS PHONE NUMBER^F^^61;12^K:$L(X)>15!($L(X)<7) X"
^DD(355.33,61.12,3)="Enter the phone number of the employers claims office if the employer pre-processes insurance claims.  Answer must be 7-15 characters in length."
^DD(355.33,61.12,21,0)="^^3^3^2980209^"
^DD(355.33,61.12,21,1,0)="Enter the phone number of the sponsoring employers claims office if this is"
^DD(355.33,61.12,21,2,0)="an Employer Sponsored Group Health Plan and the sponsoring employer"
^DD(355.33,61.12,21,3,0)="requires claims against the policy be sent to them for pre-processing."
^DD(355.33,61.12,"DT")="2980209"
^DD(355.33,62.01,0)="PATIENT ID^F^^62;1^K:$L(X)>30!($L(X)<1) X"
^DD(355.33,62.01,.1)="PATIENT PRIMARY ID"
^DD(355.33,62.01,3)="Answer must be 1-30 characters in length"
^DD(355.33,62.01,21,0)="^^3^3^3070716^"
^DD(355.33,62.01,21,1,0)="This is the patient's primary ID number for this insurance company."
^DD(355.33,62.01,21,2,0)="Enter this field when the patient and the subscriber are different"
^DD(355.33,62.01,21,3,0)="and the patient has a unique ID number."
^DD(355.33,62.01,"DT")="3070716"
^DD(355.33,"B","AMBULATORY CARE CERTIFICATION",40.06)=""
^DD(355.33,"B","BANKING IDENTIFICATION NUMBER",40.1)=""
^DD(355.33,"B","BENEFITS ASSIGNABLE",40.08)=""
^DD(355.33,"B","BILLING PHONE NUMBER",20.03)=""
^DD(355.33,"B","CITY",21.04)=""
^DD(355.33,"B","COORDINATION OF BENEFITS",60.12)=""
^DD(355.33,"B","DATE ENTERED",.01)=""
^DD(355.33,"B","DATE PROCESSED",.05)=""
^DD(355.33,"B","DATE VERIFIED",.1)=""
^DD(355.33,"B","EFFECTIVE DATE",60.02)=""
^DD(355.33,"B","EMPLOYER CLAIMS CITY",61.09)=""
^DD(355.33,"B","EMPLOYER CLAIMS PHONE NUMBER",61.12)=""
^DD(355.33,"B","EMPLOYER CLAIMS STATE",61.1)=""
^DD(355.33,"B","EMPLOYER CLAIMS STREET LINE 1",61.06)=""
^DD(355.33,"B","EMPLOYER CLAIMS STREET LINE 2",61.07)=""
^DD(355.33,"B","EMPLOYER CLAIMS STREET LINE 3",61.08)=""
^DD(355.33,"B","EMPLOYER CLAIMS ZIP CODE",61.11)=""
^DD(355.33,"B","EMPLOYMENT STATUS",61.03)=""
^DD(355.33,"B","ENTERED BY",.02)=""
^DD(355.33,"B","ESGHP?",61.01)=""
^DD(355.33,"B","EXCLUDE PREEXISTING CONDITION",40.07)=""
^DD(355.33,"B","EXPIRATION DATE",60.03)=""
^DD(355.33,"B","GROUP NAME",40.02)=""
^DD(355.33,"B","GROUP NUMBER",40.03)=""
^DD(355.33,"B","IIV PROCESSED DATE",.15)=""
^DD(355.33,"B","IIV STATUS",.12)=""
^DD(355.33,"B","INSURANCE COMPANY NAME",20.01)=""
^DD(355.33,"B","INSURED'S DOB",60.08)=""
^DD(355.33,"B","INSURED'S SEX",60.13)=""
^DD(355.33,"B","INSURED'S SSN",60.09)=""
^DD(355.33,"B","IS THIS A GROUP POLICY?",40.01)=""
^DD(355.33,"B","NAME OF INSURED",60.07)=""
^DD(355.33,"B","NEW COMPANY",.07)=""
^DD(355.33,"B","NEW GROUP/PLAN",.08)=""
^DD(355.33,"B","NEW POLICY",.09)=""
^DD(355.33,"B","OVERRIDE FRESHNESS FLAG",.13)=""
^DD(355.33,"B","PATIENT ID",62.01)=""
^DD(355.33,"B","PATIENT NAME",60.01)=""
^DD(355.33,"B","PATIENT PRIMARY ID",62.01)="1"
^DD(355.33,"B","PHONE NUMBER",20.02)=""
^DD(355.33,"B","PRECERTIFICATION PHONE NUMBER",20.04)=""
^DD(355.33,"B","PRECERTIFICATION REQUIRED",40.05)=""
^DD(355.33,"B","PRIMARY CARE PROVIDER",60.1)=""
^DD(355.33,"B","PRIMARY PROVIDER PHONE",60.11)=""
^DD(355.33,"B","PROCESSED BY",.06)=""
^DD(355.33,"B","PROCESSOR CONTROL NUMBER (PCN)",40.11)=""
^DD(355.33,"B","PT. RELATIONSHIP - HIPAA",60.14)=""
^DD(355.33,"B","PT. RELATIONSHIP TO INSURED",60.06)=""
^DD(355.33,"B","REIMBURSE?",20.05)=""
^DD(355.33,"B","REMOTE LOCATION",.14)=""
^DD(355.33,"B","RETIREMENT DATE",61.04)=""
^DD(355.33,"B","SEND BILL TO EMPLOYER",61.05)=""
^DD(355.33,"B","SOURCE OF INFORMATION",.03)=""
^DD(355.33,"B","SPONSORING EMPLOYER NAME",61.02)=""
^DD(355.33,"B","STATE",21.05)=""
^DD(355.33,"B","STATUS",.04)=""
^DD(355.33,"B","STREET ADDRESS [LINE 1]",21.01)=""
^DD(355.33,"B","STREET ADDRESS [LINE 2]",21.02)=""
^DD(355.33,"B","STREET ADDRESS [LINE 3]",21.03)=""
^DD(355.33,"B","SUBSCRIBER ID",60.04)=""
^DD(355.33,"B","SUBSCRIBER PRIMARY ID",60.04)="1"
^DD(355.33,"B","TYPE OF PLAN",40.09)=""
^DD(355.33,"B","UTILITZATION REVIEW REQUIRED",40.04)=""
^DD(355.33,"B","VERIFIED BY",.11)=""
^DD(355.33,"B","WHOSE INSURANCE",60.05)=""
^DD(355.33,"B","ZIP CODE",21.06)=""
^DD(355.33,"GL",0,1,.01)=""
^DD(355.33,"GL",0,2,.02)=""
^DD(355.33,"GL",0,3,.03)=""
^DD(355.33,"GL",0,4,.04)=""
^DD(355.33,"GL",0,5,.05)=""
^DD(355.33,"GL",0,6,.06)=""
^DD(355.33,"GL",0,7,.07)=""
^DD(355.33,"GL",0,8,.08)=""
^DD(355.33,"GL",0,9,.09)=""
^DD(355.33,"GL",0,10,.1)=""
^DD(355.33,"GL",0,11,.11)=""
^DD(355.33,"GL",0,12,.12)=""
^DD(355.33,"GL",0,13,.13)=""
^DD(355.33,"GL",0,14,.14)=""
^DD(355.33,"GL",0,15,.15)=""
^DD(355.33,"GL",20,1,20.01)=""
^DD(355.33,"GL",20,2,20.02)=""
^DD(355.33,"GL",20,3,20.03)=""
^DD(355.33,"GL",20,4,20.04)=""
^DD(355.33,"GL",20,5,20.05)=""
^DD(355.33,"GL",21,1,21.01)=""
^DD(355.33,"GL",21,2,21.02)=""
^DD(355.33,"GL",21,3,21.03)=""
^DD(355.33,"GL",21,4,21.04)=""
^DD(355.33,"GL",21,5,21.05)=""
^DD(355.33,"GL",21,6,21.06)=""
^DD(355.33,"GL",40,1,40.01)=""
^DD(355.33,"GL",40,2,40.02)=""
^DD(355.33,"GL",40,3,40.03)=""
^DD(355.33,"GL",40,4,40.04)=""
^DD(355.33,"GL",40,5,40.05)=""
^DD(355.33,"GL",40,6,40.06)=""
^DD(355.33,"GL",40,7,40.07)=""
^DD(355.33,"GL",40,8,40.08)=""
^DD(355.33,"GL",40,9,40.09)=""
^DD(355.33,"GL",40,10,40.1)=""
^DD(355.33,"GL",40,11,40.11)=""
^DD(355.33,"GL",60,1,60.01)=""
^DD(355.33,"GL",60,2,60.02)=""
^DD(355.33,"GL",60,3,60.03)=""
^DD(355.33,"GL",60,4,60.04)=""
^DD(355.33,"GL",60,5,60.05)=""
^DD(355.33,"GL",60,6,60.06)=""
^DD(355.33,"GL",60,7,60.07)=""
^DD(355.33,"GL",60,8,60.08)=""
^DD(355.33,"GL",60,9,60.09)=""
^DD(355.33,"GL",60,10,60.1)=""
^DD(355.33,"GL",60,11,60.11)=""
^DD(355.33,"GL",60,12,60.12)=""
^DD(355.33,"GL",60,13,60.13)=""
^DD(355.33,"GL",60,14,60.14)=""
^DD(355.33,"GL",61,1,61.01)=""
^DD(355.33,"GL",61,2,61.02)=""
^DD(355.33,"GL",61,3,61.03)=""
^DD(355.33,"GL",61,4,61.04)=""
^DD(355.33,"GL",61,5,61.05)=""
^DD(355.33,"GL",61,6,61.06)=""
^DD(355.33,"GL",61,7,61.07)=""
^DD(355.33,"GL",61,8,61.08)=""
^DD(355.33,"GL",61,9,61.09)=""
^DD(355.33,"GL",61,10,61.1)=""
^DD(355.33,"GL",61,11,61.11)=""
^DD(355.33,"GL",61,12,61.12)=""
^DD(355.33,"GL",62,1,62.01)=""
^DD(355.33,"IX",.01)=""
^DD(355.33,"IX",.04)=""
^DD(355.33,"IX",.05)=""
^DD(355.33,"IX",.1)=""
^DD(355.33,"IX",20.01)=""
^DD(355.33,"IX",60.01)=""
^DD(355.33,"IX",60.02)=""
^DD(355.33,"IX",60.06)=""
^DD(355.33,"IX",60.14)=""
^DD(355.33,"RQ",.01)=""
^DD(355.33,"TRB",355.33,60.06,3,60.05)=""
^DD(355.34,0)="FIELD^^.03^3"
^DD(355.34,0,"DDA")="N"
^DD(355.34,0,"DT")="3030507"
^DD(355.34,0,"IX","B",355.34,.01)=""
^DD(355.34,0,"NM","INSURANCE REMOTE QUERY RESULTS")=""
^DD(355.34,0,"VR")="2.0"
^DD(355.34,0,"VRPK")="IB"
^DD(355.34,.01,0)="MONTH^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(355.34,.01,1,0)="^.1"
^DD(355.34,.01,1,1,0)="355.34^B"
^DD(355.34,.01,1,1,1)="S ^IBA(355.34,""B"",$E(X,1,30),DA)="""""
^DD(355.34,.01,1,1,2)="K ^IBA(355.34,""B"",$E(X,1,30),DA)"
^DD(355.34,.01,3)="Enter the month/year for the query results."
^DD(355.34,.01,21,0)="^^1^1^3030507^"
^DD(355.34,.01,21,1,0)="This is the month/year of the query results."
^DD(355.34,.01,"DT")="3030507"
^DD(355.34,.02,0)="NUMBER OF QUERIES^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(355.34,.02,3)="Enter the number of queries performed during the month."
^DD(355.34,.02,21,0)="^^2^2^3030507^"
^DD(355.34,.02,21,1,0)="This is the total number of remote queries for insurance for the given "
^DD(355.34,.02,21,2,0)="month/year."
^DD(355.34,.02,"DT")="3030507"
^DD(355.34,.03,0)="SUCCESSFUL INSURANCE QUERIES^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(355.34,.03,3)="Enter the number of times a remote query is successful in finding insurance data."
^DD(355.34,.03,21,0)="^^2^2^3030515^"
^DD(355.34,.03,21,1,0)="For a given month, the value is updated each time a remote query is "
^DD(355.34,.03,21,2,0)="successful in finding insurance data."
^DD(355.34,.03,"DT")="3030515"
^DD(355.34,"B","MONTH",.01)=""
^DD(355.34,"B","NUMBER OF QUERIES",.02)=""
^DD(355.34,"B","SUCCESSFUL INSURANCE QUERIES",.03)=""
^DD(355.34,"GL",0,1,.01)=""
^DD(355.34,"GL",0,2,.02)=""
^DD(355.34,"GL",0,3,.03)=""
^DD(355.34,"IX",.01)=""
^DD(355.34,"RQ",.01)=""
^DD(355.4,0)="FIELD^^5.14^60"
^DD(355.4,0,"DDA")="N"
^DD(355.4,0,"DT")="2940228"
^DD(355.4,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(355.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(355.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.4,0,"IX","APY",355.4,.02)=""
^DD(355.4,0,"IX","APY1",355.4,.01)=""
^DD(355.4,0,"IX","B",355.4,.01)=""
^DD(355.4,0,"IX","C",355.4,.02)=""
^DD(355.4,0,"NM","ANNUAL BENEFITS")=""
^DD(355.4,0,"VR")="2.0"
^DD(355.4,.01,0)="BENEFIT YEAR BEGINNING ON^RDX^^0;1^S %DT=""EX"" D:$D(X) ^%DT S X=Y K:Y<1 X D DATECHK^IBCNSA2"
^DD(355.4,.01,1,0)="^.1"
^DD(355.4,.01,1,1,0)="355.4^B"
^DD(355.4,.01,1,1,1)="S ^IBA(355.4,""B"",$E(X,1,30),DA)="""""
^DD(355.4,.01,1,1,2)="K ^IBA(355.4,""B"",$E(X,1,30),DA)"
^DD(355.4,.01,1,2,0)="355.4^APY1^MUMPS"
^DD(355.4,.01,1,2,1)="S:$P(^IBA(355.4,DA,0),U,2) ^IBA(355.4,""APY"",$P(^(0),U,2),-X,DA)="""""
^DD(355.4,.01,1,2,2)="K ^IBA(355.4,""APY"",+$P(^IBA(355.4,DA,0),U,2),-X,DA)"
^DD(355.4,.01,1,2,3)="DO NOT DELETE"
^DD(355.4,.01,1,2,"%D",0)="^^1^1^2930831^^^^"
^DD(355.4,.01,1,2,"%D",1,0)="Cross-reference of all policies by calendar year."
^DD(355.4,.01,1,2,"DT")="2930831"
^DD(355.4,.01,1,3,0)="^^TRIGGER^355.4^1.01"
^DD(355.4,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.4,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^IBA(355.4,DIV(0),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=355.4,DIG=1.01 D ^DICR"
^DD(355.4,.01,1,3,2)="Q"
^DD(355.4,.01,1,3,"CREATE VALUE")="S X=DT"
^DD(355.4,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.4,.01,1,3,"DT")="3040610"
^DD(355.4,.01,1,3,"FIELD")="#1.01"
^DD(355.4,.01,1,4,0)="^^TRIGGER^355.4^1.02"
^DD(355.4,.01,1,4,1)="X ^DD(355.4,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.4,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBA(355.4,DIV(0),1)),DIV=X S $P(^(1),U,2)=DIV,DIH=355.4,DIG=1.02 D ^DICR"
^DD(355.4,.01,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.4,D0,1)):^(1),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,2),0)),U)="""""
^DD(355.4,.01,1,4,2)="Q"
^DD(355.4,.01,1,4,"CREATE CONDITION")="#1.02="""""
^DD(355.4,.01,1,4,"CREATE VALUE")="S X=DUZ"
^DD(355.4,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(355.4,.01,1,4,"DT")="3040610"
^DD(355.4,.01,1,4,"FIELD")="#1.02"
^DD(355.4,.01,3)="Partial benefit years not allowed."
^DD(355.4,.01,21,0)="^^1^1^2940228^^^^"
^DD(355.4,.01,21,1,0)="This is the year to which the health insurance policy's benefits apply."
^DD(355.4,.01,"DT")="3040610"
^DD(355.4,.02,0)="HEALTH INSURANCE POLICY^P355.3'^IBA(355.3,^0;2^Q"
^DD(355.4,.02,1,0)="^.1"
^DD(355.4,.02,1,1,0)="355.4^C"
^DD(355.4,.02,1,1,1)="S ^IBA(355.4,""C"",$E(X,1,30),DA)="""""
^DD(355.4,.02,1,1,2)="K ^IBA(355.4,""C"",$E(X,1,30),DA)"
^DD(355.4,.02,1,1,"DT")="2930525"
^DD(355.4,.02,1,2,0)="355.4^APY^MUMPS"
^DD(355.4,.02,1,2,1)="S:+^IBA(355.4,DA,0) ^IBA(355.4,""APY"",X,-^(0),DA)="""""
^DD(355.4,.02,1,2,2)="K ^IBA(355.4,""APY"",X,-^IBA(355.4,DA,0),DA)"
^DD(355.4,.02,1,2,3)="DO NOT DELETE"
^DD(355.4,.02,1,2,"%D",0)="^^1^1^2930831^^^^"
^DD(355.4,.02,1,2,"%D",1,0)="Cross-reference of all policies by calendar year."
^DD(355.4,.02,1,2,"DT")="2930831"
^DD(355.4,.02,21,0)="^^3^3^2930604^^"
^DD(355.4,.02,21,1,0)="This is the particular health insurance policy that provides some "
^DD(355.4,.02,21,2,0)="subset of all of the possible benefits for the year selected."
^DD(355.4,.02,21,3,0)="Enter the name of the health insurance policy."
^DD(355.4,.02,"DT")="2930831"
^DD(355.4,.05,0)="MAX. OUT OF POCKET^NJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,.05,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,.05,21,0)="^^3^3^2930825^^"
^DD(355.4,.05,21,1,0)="This is the dollar amount that this policy does not cover in claims."
^DD(355.4,.05,21,2,0)="This information will be used in calculating whether reimbursement"
^DD(355.4,.05,21,3,0)="for claims against this policy are appropriate."
^DD(355.4,.05,"DT")="2930825"
^DD(355.4,.06,0)="AMBULANCE COVERAGE (%)^NJ3,0^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,.06,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,.06,21,0)="^^2^2^2930604^"
^DD(355.4,.06,21,1,0)="If this policy provides an ambulance coverage benefit, then this is "
^DD(355.4,.06,21,2,0)="the amount of that benefit."
^DD(355.4,.06,"DT")="2930513"
^DD(355.4,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.4,1.01,3)=""
^DD(355.4,1.01,5,1,0)="355.4^.01^3"
^DD(355.4,1.01,9)="^"
^DD(355.4,1.01,21,0)="^^2^2^2930604^^"
^DD(355.4,1.01,21,1,0)="This is the date that the information was first entered.  It is"
^DD(355.4,1.01,21,2,0)="necessary to supply a time as well as date, for example ""12/12/93@1300""."
^DD(355.4,1.01,"DT")="2940228"
^DD(355.4,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(355.4,1.02,3)=""
^DD(355.4,1.02,5,1,0)="355.4^.01^4"
^DD(355.4,1.02,9)="^"
^DD(355.4,1.02,21,0)="^^1^1^2930607^^"
^DD(355.4,1.02,21,1,0)="This is the name of the person who entered the information."
^DD(355.4,1.02,"DT")="2930520"
^DD(355.4,1.03,0)="DATE LAST VERIFIED^D^^1;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.4,1.03,3)=""
^DD(355.4,1.03,21,0)="^^2^2^2930604^"
^DD(355.4,1.03,21,1,0)="This is the date that the information was last verified.  It is "
^DD(355.4,1.03,21,2,0)="necessary to supply a time as well as date, for example ""12/12/93@1300""."
^DD(355.4,1.03,"DT")="2930707"
^DD(355.4,1.04,0)="VERIFIED BY^P200'^VA(200,^1;4^Q"
^DD(355.4,1.04,3)=""
^DD(355.4,1.04,21,0)="^^2^2^2930604^"
^DD(355.4,1.04,21,1,0)="This is the name of the person who verified the information on"
^DD(355.4,1.04,21,2,0)="""DATE LAST VERIFIED""."
^DD(355.4,1.04,"DT")="2930520"
^DD(355.4,1.05,0)="DATE LAST EDITED^D^^1;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.4,1.05,3)=""
^DD(355.4,1.05,9)="^"
^DD(355.4,1.05,21,0)="^^2^2^2930604^^"
^DD(355.4,1.05,21,1,0)="This is the date that the information was last edited.  The time must be"
^DD(355.4,1.05,21,2,0)="included, for example 12/12/93@1300."
^DD(355.4,1.05,"DT")="2930707"
^DD(355.4,1.06,0)="LAST EDIT BY^P200'^VA(200,^1;6^Q"
^DD(355.4,1.06,3)=""
^DD(355.4,1.06,9)="^"
^DD(355.4,1.06,21,0)="^^1^1^2930604^"
^DD(355.4,1.06,21,1,0)="This is the name of the person who last edited the information."
^DD(355.4,1.06,"DT")="2930520"
^DD(355.4,1.07,0)="PERSON CONTACTED^F^^1;7^K:$L(X)>30!($L(X)<3) X"
^DD(355.4,1.07,.1)="WHO DID YOU TALK TO AT THE INSURANCE COMPANY"
^DD(355.4,1.07,3)="Answer must be 3-30 characters in length."
^DD(355.4,1.07,21,0)="^^2^2^2930607^^"
^DD(355.4,1.07,21,1,0)="This is the name of the person who was contacted for verification "
^DD(355.4,1.07,21,2,0)="purposes."
^DD(355.4,1.07,"DT")="2930701"
^DD(355.4,1.08,0)="COMMENTS^F^^1;8^K:$L(X)>80!($L(X)<3) X"
^DD(355.4,1.08,3)="Answer must be 3-80 characters in length."
^DD(355.4,1.08,21,0)="^^1^1^2930607^"
^DD(355.4,1.08,21,1,0)="Enter any additional information here."
^DD(355.4,1.08,"DT")="2930520"
^DD(355.4,1.09,0)="CONTACT'S PHONE NUMBER^F^^1;9^K:$L(X)>20!($L(X)<7) X"
^DD(355.4,1.09,.1)="WHAT WAS THEIR PHONE NUMBER"
^DD(355.4,1.09,3)="Answer must be 7-20 characters in length."
^DD(355.4,1.09,21,0)="^^2^2^2930907^^"
^DD(355.4,1.09,21,1,0)="Enter the telephone number of the person who was contacted for"
^DD(355.4,1.09,21,2,0)="verification purposes."
^DD(355.4,1.09,"DT")="2930907"
^DD(355.4,2.01,0)="ANNUAL DEDUCTIBLE (OPT)^NJ9,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,2.01,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,2.01,21,0)="^^3^3^2930607^"
^DD(355.4,2.01,21,1,0)="This is the amount that this policy does not cover in claims."
^DD(355.4,2.01,21,2,0)="This information will be used in calculating whether reimbursement"
^DD(355.4,2.01,21,3,0)="for claims against this policy are appropriate."
^DD(355.4,2.01,"DT")="2930604"
^DD(355.4,2.02,0)="PER VISIT DEDUCTIBLE^NJ8,2^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(355.4,2.02,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(355.4,2.02,21,0)="^^2^2^2940213^"
^DD(355.4,2.02,21,1,0)="This is the deductible that the patient must pay for each outpatient"
^DD(355.4,2.02,21,2,0)="visit."
^DD(355.4,2.02,"DT")="2930513"
^DD(355.4,2.03,0)="OUTPATIENT LIFETIME MAXIMUM^NJ10,2^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.4,2.03,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(355.4,2.03,21,0)="^^2^2^2930607^"
^DD(355.4,2.03,21,1,0)="If this policy has a lifetime maximum benefit for outpatient services,"
^DD(355.4,2.03,21,2,0)="then this is the amount of that benefit."
^DD(355.4,2.03,"DT")="2931028"
^DD(355.4,2.04,0)="OUTPATIENT ANNUAL MAXIMUM^NJ8,2^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(355.4,2.04,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(355.4,2.04,21,0)="^^2^2^2930607^"
^DD(355.4,2.04,21,1,0)="If this policy has a benefit for outpatient services, then this"
^DD(355.4,2.04,21,2,0)="amount is the maxiumum of that benefit for one year."
^DD(355.4,2.04,"DT")="2930513"
^DD(355.4,2.05,0)="MH LIFETIME OUTPATIENT MAX.^NJ7,0^^2;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.05,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(355.4,2.05,21,0)="^^2^2^2930607^"
^DD(355.4,2.05,21,1,0)="If this policy has a lifetime maximum benefit for mental health services,"
^DD(355.4,2.05,21,2,0)="then this is the amount of that benefit."
^DD(355.4,2.05,"DT")="2931028"
^DD(355.4,2.06,0)="MH ANNUAL OUTPATIENT MAX.^NJ9,2^^2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,2.06,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,2.06,21,0)="^^2^2^2930713^^"
^DD(355.4,2.06,21,1,0)="If this policy has a benefit for mental health services,"
^DD(355.4,2.06,21,2,0)="then this amount is the maximum of that benefit for one year."
^DD(355.4,2.06,"DT")="2930513"
^DD(355.4,2.07,0)="DENTAL COVERAGE TYPE^S^0:NONE;1:PER VISIT AMOUNT;2:PERCENTAGE AMOUNT;^2;7^Q"
^DD(355.4,2.07,1,0)="^.1"
^DD(355.4,2.07,1,1,0)="^^TRIGGER^355.4^2.08"
^DD(355.4,2.07,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.4,D0,2)):^(2),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(355.4,2.07,1,1,1.4)"
^DD(355.4,2.07,1,1,1.4)="S DIH=$S($D(^IBA(355.4,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,8)=DIV,DIH=355.4,DIG=2.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.4,2.07,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.4,D0,2)):^(2),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(355.4,2.07,1,1,2.4)"
^DD(355.4,2.07,1,1,2.4)="S DIH=$S($D(^IBA(355.4,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,8)=DIV,DIH=355.4,DIG=2.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(355.4,2.07,1,1,"%D",0)="^^1^1^2940107^^"
^DD(355.4,2.07,1,1,"%D",1,0)="When changing or deleting DENTAL COVERAGE TYPE delete DENTAL COVERAGE $ OR %."
^DD(355.4,2.07,1,1,"CREATE VALUE")="@"
^DD(355.4,2.07,1,1,"DELETE VALUE")="@"
^DD(355.4,2.07,1,1,"FIELD")="#2.08"
^DD(355.4,2.07,3)=""
^DD(355.4,2.07,21,0)="^^2^2^2930607^"
^DD(355.4,2.07,21,1,0)="This indicates whether there is a dental benefit, and if so, the "
^DD(355.4,2.07,21,2,0)="per visit or percentage amount."
^DD(355.4,2.07,"DT")="2940107"
^DD(355.4,2.08,0)="DENTAL COVERAGE $ OR %^NJ5,0^^2;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.08,3)="Type a Number between 0 and 99999, 0 Decimal Digits if coverage is a $ amount, or between 0 and 100 if %."
^DD(355.4,2.08,5,1,0)="355.4^2.07^1"
^DD(355.4,2.08,21,0)="^^2^2^2931228^^"
^DD(355.4,2.08,21,1,0)="If there is a dental benefit, this number indicates the dollar"
^DD(355.4,2.08,21,2,0)="or percentage amount of that benefit."
^DD(355.4,2.08,"DT")="2930513"
^DD(355.4,2.09,0)="OUTPATIENT VISIT (%)^NJ3,0^^2;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.09,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,2.09,21,0)="^^2^2^2930607^^^"
^DD(355.4,2.09,21,1,0)="If this policy has an outpatient benefit, this is the percentage"
^DD(355.4,2.09,21,2,0)="coverage per outpatient visit."
^DD(355.4,2.09,"DT")="2930603"
^DD(355.4,2.1,0)="EMERGENCY OUTPATIENT (%)^NJ6,0^^2;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(355.4,2.1,21,0)="^^2^2^2930607^^^"
^DD(355.4,2.1,21,1,0)="If this policy has a benefit for emergency outpatient services,"
^DD(355.4,2.1,21,2,0)="this is the percentage covered by that benefit."
^DD(355.4,2.1,"DT")="2930607"
^DD(355.4,2.11,0)="MENTAL HEALTH OUTPATIENT (%)^NJ3,0^^2;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.11,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,2.11,21,0)="^^2^2^2930607^^"
^DD(355.4,2.11,21,1,0)="If this policy has a benefit for mental health outpatient services,"
^DD(355.4,2.11,21,2,0)="this is the percentage covered by that benefit."
^DD(355.4,2.11,"DT")="2930603"
^DD(355.4,2.12,0)="PRESCRIPTION (%)^NJ6,0^^2;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(355.4,2.12,21,0)="^^2^2^2930607^"
^DD(355.4,2.12,21,1,0)="If this policy has a benefit for prescription services, this is the"
^DD(355.4,2.12,21,2,0)="percentage covered by that benefit."
^DD(355.4,2.12,"DT")="2930513"
^DD(355.4,2.13,0)="OUTPATIENT SURGERY (%)^NJ6,0^^2;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.13,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(355.4,2.13,21,0)="^^2^2^2930607^"
^DD(355.4,2.13,21,1,0)="If this policy has a benefit for outpatient surgery services, this"
^DD(355.4,2.13,21,2,0)="is the percentage covered by that benefit."
^DD(355.4,2.13,"DT")="2930513"
^DD(355.4,2.14,0)="MH OPT. MAX DAYS PER YEAR^NJ3,0^^2;14^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.14,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,2.14,21,0)="^^3^3^2930708^"
^DD(355.4,2.14,21,1,0)="If this policy provides a benefit for mental health outpatient"
^DD(355.4,2.14,21,2,0)="services, this is the maximum number of days per year of this"
^DD(355.4,2.14,21,3,0)="benefit."
^DD(355.4,2.14,"DT")="2930708"
^DD(355.4,2.15,0)="OUTPATIENT VISITS PER YEAR^NJ3,0^^2;15^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,2.15,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,2.15,21,0)="^^2^2^2930825^"
^DD(355.4,2.15,21,1,0)="If this policy provides outpatient benefits, this is the maximum"
^DD(355.4,2.15,21,2,0)="number of visits per year."
^DD(355.4,2.15,"DT")="2930825"
^DD(355.4,2.17,0)="ADULT DAY HEALTH CARE^S^0:NO;1:YES;^2;17^Q"
^DD(355.4,2.17,21,0)="^^2^2^2930827^"
^DD(355.4,2.17,21,1,0)="This indicates whether the policy has a benefit for Adult Day Health"
^DD(355.4,2.17,21,2,0)="Care services."
^DD(355.4,2.17,"DT")="2930827"
^DD(355.4,3.01,0)="HOME HEALTH CARE LEVEL^S^0:NONE;1:NURSES AIDE;2:LPN;3:RN;4:THERAPIST/OTHER;^3;1^Q"
^DD(355.4,3.01,21,0)="^^2^2^2930825^^"
^DD(355.4,3.01,21,1,0)="If this policy provides home health care, this is the highest level"
^DD(355.4,3.01,21,2,0)="of nursing care that it will cover."
^DD(355.4,3.01,"DT")="2930924"
^DD(355.4,3.02,0)="HOME HEALTH VISITS PER YEAR^NJ3,0^^3;2^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,3.02,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,3.02,21,0)="^^2^2^2930825^^"
^DD(355.4,3.02,21,1,0)="If this policy provides home health care, this is the maximum"
^DD(355.4,3.02,21,2,0)="number of visits per year."
^DD(355.4,3.02,"DT")="2930513"
^DD(355.4,3.03,0)="HOME HEALTH MAX DAYS PER YEAR^NJ3,0^^3;3^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,3.03,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,3.03,21,0)="^^2^2^2930607^"
^DD(355.4,3.03,21,1,0)="If this policy provides home health care, this is the maximum number"
^DD(355.4,3.03,21,2,0)="of days per year of home health care services."
^DD(355.4,3.03,"DT")="2930513"
^DD(355.4,3.04,0)="HOME HEALTH MED. EQUIPMENT (%)^NJ3,0^^3;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,3.04,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,3.04,21,0)="^^2^2^2930607^"
^DD(355.4,3.04,21,1,0)="If this policy provides a benefit for medical equipment used in"
^DD(355.4,3.04,21,2,0)="home health care services, this is the percentage of that benefit."
^DD(355.4,3.04,"DT")="2930513"
^DD(355.4,3.05,0)="HOME HEALTH VISIT DEFINITION^F^^3;5^K:$L(X)>30!($L(X)<3) X"
^DD(355.4,3.05,3)="Answer must be 3-30 characters in length."
^DD(355.4,3.05,21,0)="^^2^2^2930607^^"
^DD(355.4,3.05,21,1,0)="If this policy provides for home health visits, this defines the"
^DD(355.4,3.05,21,2,0)="nature of the visits."
^DD(355.4,3.05,"DT")="2930513"
^DD(355.4,3.06,0)="OCCUPATIONAL THERAPY # VISITS^NJ3,0^^3;6^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,3.06,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,3.06,21,0)="^^2^2^2930826^"
^DD(355.4,3.06,21,1,0)="If this policy has a benefit for occupational therapy, then this is"
^DD(355.4,3.06,21,2,0)="the maximum number of OT visits that the policy allows in one year."
^DD(355.4,3.06,"DT")="2930826"
^DD(355.4,3.07,0)="PHYSICAL THERAPY # VISITS^NJ3,0^^3;7^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,3.07,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,3.07,21,0)="^^2^2^2930826^"
^DD(355.4,3.07,21,1,0)="If this policy has a benefit for physical therapy, then this is the"
^DD(355.4,3.07,21,2,0)="maximum number of PT visits that the policy allows in one year."
^DD(355.4,3.07,"DT")="2930826"
^DD(355.4,3.08,0)="SPEECH THERAPY # VISITS^NJ3,0^^3;8^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,3.08,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,3.08,21,0)="^^2^2^2930826^"
^DD(355.4,3.08,21,1,0)="If this policy has a benefit for speech therapy, then this is the"
^DD(355.4,3.08,21,2,0)="maximum number of ST visits that the policy allows in one year."
^DD(355.4,3.08,"DT")="2930826"
^DD(355.4,3.09,0)="MEDICATION COUNSELING # VISITS^NJ3,0^^3;9^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,3.09,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,3.09,21,0)="^^2^2^2940213^^"
^DD(355.4,3.09,21,1,0)="If this policy has a benefit for medication counseling, then this is the"
^DD(355.4,3.09,21,2,0)="maximum number of MC visits that the policy allows in one year."
^DD(355.4,3.09,"DT")="2930826"
^DD(355.4,4.01,0)="HOSPICE ANNUAL DEDUCTIBLE^NJ9,2^^4;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,4.01,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,4.01,21,0)="^^4^4^2930607^"
^DD(355.4,4.01,21,1,0)="If this policy provides hospice services, this is the amount that"
^DD(355.4,4.01,21,2,0)="the policy does not cover in claims.  This information will be used"
^DD(355.4,4.01,21,3,0)="in calculating whether reimbursement for claims against this policy"
^DD(355.4,4.01,21,4,0)="are appropriate."
^DD(355.4,4.01,"DT")="2930513"
^DD(355.4,4.02,0)="HOSPICE INPATIENT ANNUAL MAX^NJ9,2^^4;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,4.02,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,4.02,21,0)="^^2^2^2930607^"
^DD(355.4,4.02,21,1,0)="If this policy provides hospice inpatient services, this is the"
^DD(355.4,4.02,21,2,0)="maximum amount of coverage for one year."
^DD(355.4,4.02,"DT")="2930513"
^DD(355.4,4.03,0)="HOSPICE INPT. LIFETIME MAX^NJ10,2^^4;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.4,4.03,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(355.4,4.03,21,0)="^^2^2^2930607^"
^DD(355.4,4.03,21,1,0)="If this policy provides hospice inpatient services, this is the"
^DD(355.4,4.03,21,2,0)="maximum amount over the life of the policy for this benefit."
^DD(355.4,4.03,"DT")="2931028"
^DD(355.4,4.04,0)="ROOM AND BOARD (%)^NJ3,0^^4;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,4.04,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,4.04,21,0)="^^2^2^2930607^^^^"
^DD(355.4,4.04,21,1,0)="If this policy provides a room and board benefit, this is the "
^DD(355.4,4.04,21,2,0)="percentage of the charges that the policy will cover."
^DD(355.4,4.04,"DT")="2930513"
^DD(355.4,4.05,0)="OTHER INPATIENT CHARGES (%)^NJ3,0^^4;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,4.05,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,4.05,21,0)="^^2^2^2930607^"
^DD(355.4,4.05,21,1,0)="If this policy provides a benefit for other inpatient charges, this"
^DD(355.4,4.05,21,2,0)="is the percentage covered by that benefit."
^DD(355.4,4.05,"DT")="2930513"
^DD(355.4,4.06,0)="IV INFUSION OPT.^S^0:NO;1:YES;^4;6^Q"
^DD(355.4,4.06,21,0)="^^2^2^2930826^"
^DD(355.4,4.06,21,1,0)="This indicates whether the policy has a benefit for outpatient IV"
^DD(355.4,4.06,21,2,0)="Infusion services."
^DD(355.4,4.06,"DT")="2930826"
^DD(355.4,4.07,0)="IV INFUSION INPT.^S^0:NO;1:YES;^4;7^Q"
^DD(355.4,4.07,21,0)="^^2^2^2930826^"
^DD(355.4,4.07,21,1,0)="This indicates whether the policy has a benefit for inpatient IV"
^DD(355.4,4.07,21,2,0)="Infusion services."
^DD(355.4,4.07,"DT")="2930826"
^DD(355.4,4.08,0)="IV ANTIBIOTICS OPT.^S^0:NO;1:YES;^4;8^Q"
^DD(355.4,4.08,21,0)="^^2^2^2930826^"
^DD(355.4,4.08,21,1,0)="This indicates whether the policy has a benefit for outpatient IV"
^DD(355.4,4.08,21,2,0)="Antibiotics services."
^DD(355.4,4.08,"DT")="2930826"
^DD(355.4,4.09,0)="IV ANTIBIOTICS INPT.^S^0:NO;1:YES;^4;9^Q"
^DD(355.4,4.09,3)=""
^DD(355.4,4.09,21,0)="^^2^2^2931001^^^"
^DD(355.4,4.09,21,1,0)="This indicates whether the policy has a benefit for inpatient IV"
^DD(355.4,4.09,21,2,0)="Antibiotics."
^DD(355.4,4.09,"DT")="2930907"
^DD(355.4,5.01,0)="ANNUAL DEDUCTIBLE (INPATIENT)^NJ9,2^^5;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,5.01,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,5.01,21,0)="^^4^4^2930607^"
^DD(355.4,5.01,21,1,0)="If this policy provides for inpatient services, this is the amount"
^DD(355.4,5.01,21,2,0)="that the policy does not cover in claims.  This information will"
^DD(355.4,5.01,21,3,0)="be used in calculating whether reimburseent for claims against"
^DD(355.4,5.01,21,4,0)="this policy are appropriate."
^DD(355.4,5.01,"DT")="2930604"
^DD(355.4,5.02,0)="PER ADMISSION DEDUCTIBLE^NJ9,2^^5;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,5.02,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,5.02,21,0)="^^2^2^2930713^^"
^DD(355.4,5.02,21,1,0)="This is the dollar amount that this policy does not cover in claims"
^DD(355.4,5.02,21,2,0)="for each admission.  "
^DD(355.4,5.02,"DT")="2930520"
^DD(355.4,5.03,0)="INPATIENT LIFETIME MAXIMUM^NJ10,2^^5;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.4,5.03,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(355.4,5.03,21,0)="^^2^2^2930713^"
^DD(355.4,5.03,21,1,0)="If this policy provides inpatient services, this is the maximum"
^DD(355.4,5.03,21,2,0)="amount over the life of this policy for this benefit."
^DD(355.4,5.03,"DT")="2931028"
^DD(355.4,5.04,0)="INPATIENT ANNUAL MAXIMUM^NJ9,2^^5;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,5.04,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,5.04,21,0)="^^2^2^2930713^"
^DD(355.4,5.04,21,1,0)="If this policy provides inpatient services, this is the maximum"
^DD(355.4,5.04,21,2,0)="annual amount of this benefit."
^DD(355.4,5.04,"DT")="2930520"
^DD(355.4,5.05,0)="MH LIFETIME INPATIENT MAXIMUM^NJ10,2^^5;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.4,5.05,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(355.4,5.05,21,0)="^^2^2^2930607^"
^DD(355.4,5.05,21,1,0)="If this policy provides a benefit for mental health inpatient services,"
^DD(355.4,5.05,21,2,0)="this is the maximum amount over the life of the policy for this benefit."
^DD(355.4,5.05,"DT")="2931028"
^DD(355.4,5.06,0)="MH ANNUAL INPATIENT MAXIMUM^NJ9,2^^5;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,5.06,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,5.06,21,0)="^^3^3^2930607^"
^DD(355.4,5.06,21,1,0)="If this policy provides a benefit for mental health inpatient services,"
^DD(355.4,5.06,21,2,0)="this is the maximum amount that this policy will pay toward these"
^DD(355.4,5.06,21,3,0)="services in one year."
^DD(355.4,5.06,"DT")="2930520"
^DD(355.4,5.07,0)="DRUG & ALCOHOL LIFETIME MAX^NJ10,2^^5;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.4,5.07,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(355.4,5.07,21,0)="^^2^2^2930607^"
^DD(355.4,5.07,21,1,0)="If this policy provides a benefit for drug and alcohol services,"
^DD(355.4,5.07,21,2,0)="this is the maximum amount over the life of the policy for this benefit."
^DD(355.4,5.07,"DT")="2931028"
^DD(355.4,5.08,0)="DRUG & ALCOHOL ANNUAL MAX^NJ9,2^^5;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.4,5.08,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.4,5.08,21,0)="^^3^3^2930607^"
^DD(355.4,5.08,21,1,0)="If this policy provides a benefit for drug and alcohol services,"
^DD(355.4,5.08,21,2,0)="this is the maximum amount that this policy will pay toward these"
^DD(355.4,5.08,21,3,0)="services in one year."
^DD(355.4,5.08,"DT")="2930520"
^DD(355.4,5.09,0)="ROOM AND BOARD (%)^NJ3,0^^5;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,5.09,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,5.09,21,0)="^^2^2^2930607^"
^DD(355.4,5.09,21,1,0)="If this policy provides a room and board benefit, this is the "
^DD(355.4,5.09,21,2,0)="percentage of room and board charges that the policy will cover."
^DD(355.4,5.09,"DT")="2930520"
^DD(355.4,5.1,0)="NURSING HOME (%)^NJ3,0^^5;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,5.1,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,5.1,21,0)="^^2^2^2930607^"
^DD(355.4,5.1,21,1,0)="If this policy provides a benefit for nursing home services, this"
^DD(355.4,5.1,21,2,0)="is the percentage of nursing home charges that the policy will cover."
^DD(355.4,5.1,"DT")="2930520"
^DD(355.4,5.11,0)="MENTAL HEALTH INPATIENT (%)^NJ3,0^^5;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,5.11,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,5.11,21,0)="^^2^2^2930607^"
^DD(355.4,5.11,21,1,0)="If this policy provides a benefit for mental health inpatient services,"
^DD(355.4,5.11,21,2,0)="this is the percentage of the charges that the policy will cover."
^DD(355.4,5.11,"DT")="2930520"
^DD(355.4,5.12,0)="OTHER INPATIENT CHARGES (%)^NJ3,0^^5;12^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,5.12,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(355.4,5.12,21,0)="^^2^2^2930607^"
^DD(355.4,5.12,21,1,0)="If this policy provides a benefit for other inpatient charges, this"
^DD(355.4,5.12,21,2,0)="is the percentage of those charges that the policy will cover."
^DD(355.4,5.12,"DT")="2930520"
^DD(355.4,5.14,0)="MH INPT. MAX DAYS PER YEAR^NJ3,0^^5;14^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.4,5.14,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(355.4,5.14,21,0)="^^3^3^2930708^"
^DD(355.4,5.14,21,1,0)="If this policy provides a benefit for mental health inpatient"
^DD(355.4,5.14,21,2,0)="services, this is the maximum number of days per year of this"
^DD(355.4,5.14,21,3,0)="benefit."
^DD(355.4,5.14,"DT")="2930708"
^DD(355.4,"B","ADULT DAY HEALTH CARE",2.17)=""
^DD(355.4,"B","AMBULANCE COVERAGE (%)",.06)=""
^DD(355.4,"B","ANNUAL DEDUCTIBLE (INPATIENT)",5.01)=""
^DD(355.4,"B","ANNUAL DEDUCTIBLE (OPT)",2.01)=""
^DD(355.4,"B","BENEFIT YEAR BEGINNING ON",.01)=""
^DD(355.4,"B","COMMENTS",1.08)=""
^DD(355.4,"B","CONTACT'S PHONE NUMBER",1.09)=""
^DD(355.4,"B","DATE ENTERED",1.01)=""
^DD(355.4,"B","DATE LAST EDITED",1.05)=""
^DD(355.4,"B","DATE LAST VERIFIED",1.03)=""
^DD(355.4,"B","DENTAL COVERAGE $ OR %",2.08)=""
^DD(355.4,"B","DENTAL COVERAGE TYPE",2.07)=""
^DD(355.4,"B","DRUG & ALCOHOL ANNUAL MAX",5.08)=""
^DD(355.4,"B","DRUG & ALCOHOL LIFETIME MAX",5.07)=""
^DD(355.4,"B","EMERGENCY OUTPATIENT (%)",2.1)=""
^DD(355.4,"B","ENTERED BY",1.02)=""
^DD(355.4,"B","HEALTH INSURANCE POLICY",.02)=""
^DD(355.4,"B","HOME HEALTH CARE LEVEL",3.01)=""
^DD(355.4,"B","HOME HEALTH MAX DAYS PER YEAR",3.03)=""
^DD(355.4,"B","HOME HEALTH MED. EQUIPMENT (%)",3.04)=""
^DD(355.4,"B","HOME HEALTH VISIT DEFINITION",3.05)=""
^DD(355.4,"B","HOME HEALTH VISITS PER YEAR",3.02)=""
^DD(355.4,"B","HOSPICE ANNUAL DEDUCTIBLE",4.01)=""
^DD(355.4,"B","HOSPICE INPATIENT ANNUAL MAX",4.02)=""
^DD(355.4,"B","HOSPICE INPT. LIFETIME MAX",4.03)=""
^DD(355.4,"B","INPATIENT ANNUAL MAXIMUM",5.04)=""
^DD(355.4,"B","INPATIENT LIFETIME MAXIMUM",5.03)=""
^DD(355.4,"B","IV ANTIBIOTICS INPT.",4.09)=""
^DD(355.4,"B","IV ANTIBIOTICS OPT.",4.08)=""
^DD(355.4,"B","IV INFUSION INPT.",4.07)=""
^DD(355.4,"B","IV INFUSION OPT.",4.06)=""
^DD(355.4,"B","LAST EDIT BY",1.06)=""
^DD(355.4,"B","MAX. OUT OF POCKET",.05)=""
^DD(355.4,"B","MEDICATION COUNSELING # VISITS",3.09)=""
^DD(355.4,"B","MENTAL HEALTH INPATIENT (%)",5.11)=""
^DD(355.4,"B","MENTAL HEALTH OUTPATIENT (%)",2.11)=""
^DD(355.4,"B","MH ANNUAL INPATIENT MAXIMUM",5.06)=""
^DD(355.4,"B","MH ANNUAL OUTPATIENT MAX.",2.06)=""
^DD(355.4,"B","MH INPT. MAX DAYS PER YEAR",5.14)=""
^DD(355.4,"B","MH LIFETIME INPATIENT MAXIMUM",5.05)=""
^DD(355.4,"B","MH LIFETIME OUTPATIENT MAX.",2.05)=""
^DD(355.4,"B","MH OPT. MAX DAYS PER YEAR",2.14)=""
^DD(355.4,"B","NURSING HOME (%)",5.1)=""
^DD(355.4,"B","OCCUPATIONAL THERAPY # VISITS",3.06)=""
^DD(355.4,"B","OTHER INPATIENT CHARGES (%)",4.05)=""
^DD(355.4,"B","OTHER INPATIENT CHARGES (%)",5.12)=""
^DD(355.4,"B","OUTPATIENT ANNUAL MAXIMUM",2.04)=""
^DD(355.4,"B","OUTPATIENT LIFETIME MAXIMUM",2.03)=""
^DD(355.4,"B","OUTPATIENT SURGERY (%)",2.13)=""
^DD(355.4,"B","OUTPATIENT VISIT (%)",2.09)=""
^DD(355.4,"B","OUTPATIENT VISITS PER YEAR",2.15)=""
^DD(355.4,"B","PER ADMISSION DEDUCTIBLE",5.02)=""
^DD(355.4,"B","PER VISIT DEDUCTIBLE",2.02)=""
^DD(355.4,"B","PERSON CONTACTED",1.07)=""
^DD(355.4,"B","PHYSICAL THERAPY # VISITS",3.07)=""
^DD(355.4,"B","PRESCRIPTION (%)",2.12)=""
^DD(355.4,"B","ROOM AND BOARD (%)",4.04)=""
^DD(355.4,"B","ROOM AND BOARD (%)",5.09)=""
^DD(355.4,"B","SPEECH THERAPY # VISITS",3.08)=""
^DD(355.4,"B","VERIFIED BY",1.04)=""
^DD(355.4,"B","WHAT WAS THEIR PHONE NUMBER",1.09)="1"
^DD(355.4,"GL",0,1,.01)=""
^DD(355.4,"GL",0,2,.02)=""
^DD(355.4,"GL",0,5,.05)=""
^DD(355.4,"GL",0,6,.06)=""
^DD(355.4,"GL",1,1,1.01)=""
^DD(355.4,"GL",1,2,1.02)=""
^DD(355.4,"GL",1,3,1.03)=""
^DD(355.4,"GL",1,4,1.04)=""
^DD(355.4,"GL",1,5,1.05)=""
^DD(355.4,"GL",1,6,1.06)=""
^DD(355.4,"GL",1,7,1.07)=""
^DD(355.4,"GL",1,8,1.08)=""
^DD(355.4,"GL",1,9,1.09)=""
^DD(355.4,"GL",2,1,2.01)=""
^DD(355.4,"GL",2,2,2.02)=""
^DD(355.4,"GL",2,3,2.03)=""
^DD(355.4,"GL",2,4,2.04)=""
^DD(355.4,"GL",2,5,2.05)=""
^DD(355.4,"GL",2,6,2.06)=""
^DD(355.4,"GL",2,7,2.07)=""
^DD(355.4,"GL",2,8,2.08)=""
^DD(355.4,"GL",2,9,2.09)=""
^DD(355.4,"GL",2,10,2.1)=""
^DD(355.4,"GL",2,11,2.11)=""
^DD(355.4,"GL",2,12,2.12)=""
^DD(355.4,"GL",2,13,2.13)=""
^DD(355.4,"GL",2,14,2.14)=""
^DD(355.4,"GL",2,15,2.15)=""
^DD(355.4,"GL",2,17,2.17)=""
^DD(355.4,"GL",3,1,3.01)=""
^DD(355.4,"GL",3,2,3.02)=""
^DD(355.4,"GL",3,3,3.03)=""
^DD(355.4,"GL",3,4,3.04)=""
^DD(355.4,"GL",3,5,3.05)=""
^DD(355.4,"GL",3,6,3.06)=""
^DD(355.4,"GL",3,7,3.07)=""
^DD(355.4,"GL",3,8,3.08)=""
^DD(355.4,"GL",3,9,3.09)=""
^DD(355.4,"GL",4,1,4.01)=""
^DD(355.4,"GL",4,2,4.02)=""
^DD(355.4,"GL",4,3,4.03)=""
^DD(355.4,"GL",4,4,4.04)=""
^DD(355.4,"GL",4,5,4.05)=""
^DD(355.4,"GL",4,6,4.06)=""
^DD(355.4,"GL",4,7,4.07)=""
^DD(355.4,"GL",4,8,4.08)=""
^DD(355.4,"GL",4,9,4.09)=""
^DD(355.4,"GL",5,1,5.01)=""
^DD(355.4,"GL",5,2,5.02)=""
^DD(355.4,"GL",5,3,5.03)=""
^DD(355.4,"GL",5,4,5.04)=""
^DD(355.4,"GL",5,5,5.05)=""
^DD(355.4,"GL",5,6,5.06)=""
^DD(355.4,"GL",5,7,5.07)=""
^DD(355.4,"GL",5,8,5.08)=""
^DD(355.4,"GL",5,9,5.09)=""
^DD(355.4,"GL",5,10,5.1)=""
^DD(355.4,"GL",5,11,5.11)=""
^DD(355.4,"GL",5,12,5.12)=""
^DD(355.4,"GL",5,14,5.14)=""
^DD(355.4,"IX",.01)=""
^DD(355.4,"IX",.02)=""
^DD(355.4,"IX",2.07)=""
^DD(355.4,"RQ",.01)=""
^DD(355.4,"TRB",355.4,.01,3,1.01)=""
^DD(355.4,"TRB",355.4,.01,4,1.02)=""
^DD(355.5,0)="FIELD^^1.09^29"
^DD(355.5,0,"DDA")="N"
^DD(355.5,0,"DT")="2931217"
^DD(355.5,0,"IX","APPY",355.5,.02)=""
^DD(355.5,0,"IX","APPY1",355.5,.01)=""
^DD(355.5,0,"IX","APPY2",355.5,.03)=""
^DD(355.5,0,"IX","APPY3",355.5,.17)=""
^DD(355.5,0,"IX","B",355.5,.01)=""
^DD(355.5,0,"IX","C",355.5,.02)=""
^DD(355.5,0,"NM","INSURANCE CLAIMS YEAR TO DATE")=""
^DD(355.5,0,"VR")="2.0"
^DD(355.5,.01,0)="POLICY^RP355.3I^IBA(355.3,^0;1^Q"
^DD(355.5,.01,1,0)="^.1"
^DD(355.5,.01,1,1,0)="355.5^B"
^DD(355.5,.01,1,1,1)="S ^IBA(355.5,""B"",$E(X,1,30),DA)="""""
^DD(355.5,.01,1,1,2)="K ^IBA(355.5,""B"",$E(X,1,30),DA)"
^DD(355.5,.01,1,2,0)="355.5^APPY1^MUMPS"
^DD(355.5,.01,1,2,1)="I +$P(^IBA(355.5,DA,0),U,2),-$P(^(0),U,3),+$P(^(0),U,17) S ^IBA(355.5,""APPY"",+$P(^(0),U,2),X,-$P(^(0),U,3),+$P(^(0),U,17),DA)="""""
^DD(355.5,.01,1,2,2)="K ^IBA(355.5,""APPY"",+$P(^IBA(355.5,DA,0),U,2),X,-$P(^(0),U,3),+$P(^(0),U,17),DA)"
^DD(355.5,.01,1,2,"%D",0)="^^1^1^2930831^^^^"
^DD(355.5,.01,1,2,"%D",1,0)="Cross-reference of patients by policy by year."
^DD(355.5,.01,1,2,"DT")="2930831"
^DD(355.5,.01,3)=""
^DD(355.5,.01,21,0)="^^2^2^2980401^^^"
^DD(355.5,.01,21,1,0)="Select the patient's health insurance policy against which claims"
^DD(355.5,.01,21,2,0)="may have been made."
^DD(355.5,.01,"DT")="2930831"
^DD(355.5,.02,0)="PATIENT^P2'I^DPT(^0;2^Q"
^DD(355.5,.02,1,0)="^.1"
^DD(355.5,.02,1,1,0)="355.5^C"
^DD(355.5,.02,1,1,1)="S ^IBA(355.5,""C"",$E(X,1,30),DA)="""""
^DD(355.5,.02,1,1,2)="K ^IBA(355.5,""C"",$E(X,1,30),DA)"
^DD(355.5,.02,1,1,"DT")="2930622"
^DD(355.5,.02,1,2,0)="355.5^APPY^MUMPS"
^DD(355.5,.02,1,2,1)="I -$P(^IBA(355.5,DA,0),U,3),+^(0),+$P(^(0),U,17) S ^IBA(355.5,""APPY"",X,+^(0),-$P(^(0),U,3),+$P(^(0),U,17),DA)="""""
^DD(355.5,.02,1,2,2)="K ^IBA(355.5,""APPY"",X,+^IBA(355.5,DA,0),-$P(^(0),U,3),+$P(^(0),U,17),DA)"
^DD(355.5,.02,1,2,"%D",0)="^^1^1^2930831^^^^"
^DD(355.5,.02,1,2,"%D",1,0)="Cross-references patient by policy by year."
^DD(355.5,.02,1,2,"DT")="2930831"
^DD(355.5,.02,21,0)="^^1^1^2930713^^"
^DD(355.5,.02,21,1,0)="Enter the name of the patient who is on this policy."
^DD(355.5,.02,"DT")="2931217"
^DD(355.5,.03,0)="BENEFIT YEAR BEGINNING ON^RDI^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.5,.03,1,0)="^.1"
^DD(355.5,.03,1,1,0)="355.5^APPY2^MUMPS"
^DD(355.5,.03,1,1,1)="I +$P(^IBA(355.5,DA,0),U,2),+^(0),+$P(^(0),U,17) S ^IBA(355.5,""APPY"",+$P(^(0),U,2),+^(0),-X,+$P(^(0),U,17),DA)="""""
^DD(355.5,.03,1,1,2)="K ^IBA(355.5,""APPY"",+$P(^IBA(355.5,DA,0),U,2),+^(0),-X,+$P(^(0),U,17),DA)"
^DD(355.5,.03,1,1,"%D",0)="^^1^1^2930831^^^^"
^DD(355.5,.03,1,1,"%D",1,0)="Cross-reference of patients by policy by year."
^DD(355.5,.03,1,1,"DT")="2930831"
^DD(355.5,.03,3)=""
^DD(355.5,.03,9)="^"
^DD(355.5,.03,21,0)="^^2^2^2931217^^^^"
^DD(355.5,.03,21,1,0)="This is the first day of the year in which the health insurance policy's"
^DD(355.5,.03,21,2,0)="benefits apply.  Exact date (with month and day) is required."
^DD(355.5,.03,23,0)="^^3^3^2931217^"
^DD(355.5,.03,23,1,0)="This field must match the year for an entry for this patient and policy"
^DD(355.5,.03,23,2,0)="in the annual benefits field.  It is automatically stored by the system"
^DD(355.5,.03,23,3,0)="when creating an entry.  It is not editable."
^DD(355.5,.03,"DT")="2931217"
^DD(355.5,.04,0)="DEDUCTIBLE MET?^S^0:NO;1:YES;^0;4^Q"
^DD(355.5,.04,21,0)="^^3^3^2930713^^^"
^DD(355.5,.04,21,1,0)="If the dollar amount of claims against this policy is less than the "
^DD(355.5,.04,21,2,0)="the policy's annual deductible, enter ""NO"".  If it is equal to or "
^DD(355.5,.04,21,3,0)="greater than the annual deductible, enter ""YES""."
^DD(355.5,.04,"DT")="2930513"
^DD(355.5,.05,0)="AMOUNT OF DEDUCTIBLE MET^NJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.5,.05,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.5,.05,21,0)="^^1^1^2930713^"
^DD(355.5,.05,21,1,0)="Enter the dollar amount of claims against this policy."
^DD(355.5,.05,"DT")="2930513"
^DD(355.5,.06,0)="DEDUCTIBLE (INPT) MET?^S^1:YES;0:NO;^0;6^Q"
^DD(355.5,.06,21,0)="^^4^4^2930713^"
^DD(355.5,.06,21,1,0)="If the dollar amount of claims for inpatient services is less than"
^DD(355.5,.06,21,2,0)="the policy's annual deductible for inpatient services, enter ""NO""."
^DD(355.5,.06,21,3,0)="If it is equal to or greater than the annual deductible for such"
^DD(355.5,.06,21,4,0)="services, enter ""YES""."
^DD(355.5,.06,"DT")="2930513"
^DD(355.5,.07,0)="AMOUNT OF DEDUCTIBLE (INP) MET^NJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(355.5,.07,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(355.5,.07,21,0)="^^2^2^2930713^"
^DD(355.5,.07,21,1,0)="Enter the dollar amount of claims against this policy for inpatient"
^DD(355.5,.07,21,2,0)="services."
^DD(355.5,.07,"DT")="2930513"
^DD(355.5,.08,0)="DEDUCTIBLE (OPT) MET?^S^0:NO;1:YES;^0;8^Q"
^DD(355.5,.08,21,0)="^^4^4^2930713^"
^DD(355.5,.08,21,1,0)="If the dollar amount of claims for outpatient services is less than"
^DD(355.5,.08,21,2,0)="the policy's annual deductible for outpatient services, enter ""NO""."
^DD(355.5,.08,21,3,0)="If it is equal to or greater than the annual deductible for such"
^DD(355.5,.08,21,4,0)="services, enter ""YES""."
^DD(355.5,.08,"DT")="2930513"
^DD(355.5,.09,0)="AMOUNT OF DEDUCTIBLE (OPT) MET^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.5,.09,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(355.5,.09,21,0)="^^2^2^2930713^"
^DD(355.5,.09,21,1,0)="Enter the dollar amount of claims against this policy for outpatient"
^DD(355.5,.09,21,2,0)="services."
^DD(355.5,.09,"DT")="2930513"
^DD(355.5,.1,0)="AMT LIFETIME MAX USED (OPT)^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.5,.1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(355.5,.1,21,0)="^^3^3^2931214^^^^"
^DD(355.5,.1,21,1,0)="Enter the dollar amount of claims against this policy, which can"
^DD(355.5,.1,21,2,0)="then be compared to the maximum amount available over the life of"
^DD(355.5,.1,21,3,0)="the policy."
^DD(355.5,.1,"DT")="2931214"
^DD(355.5,.11,0)="MH DEDUCTIBLE (INP) MET?^S^0:NO;1:YES;^0;11^Q"
^DD(355.5,.11,21,0)="^^4^4^2940213^^^"
^DD(355.5,.11,21,1,0)="If the dollar amount of claims for inpatient mental health services"
^DD(355.5,.11,21,2,0)="is less than the policy's annual deductible for these services,"
^DD(355.5,.11,21,3,0)="enter ""NO"".  If it is equal to or greater than the annual "
^DD(355.5,.11,21,4,0)="deductible for such services, enter ""YES""."
^DD(355.5,.11,"DT")="2930513"
^DD(355.5,.12,0)="AMOUNT OF MH (INP) DED MET^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.5,.12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(355.5,.12,21,0)="^^2^2^2930713^"
^DD(355.5,.12,21,1,0)="Enter the dollar amount of claims against this policy for inpatient"
^DD(355.5,.12,21,2,0)="mental health services."
^DD(355.5,.12,"DT")="2930513"
^DD(355.5,.13,0)="MH DEDUCTIBLE (OPT) MET?^S^0:NO;1:YES;^0;13^Q"
^DD(355.5,.13,3)=""
^DD(355.5,.13,21,0)="^^4^4^2930713^"
^DD(355.5,.13,21,1,0)="If the dollar amount of claims for outpatient mental health services"
^DD(355.5,.13,21,2,0)="is less than the policy's annual deductible for these services,"
^DD(355.5,.13,21,3,0)="enter ""NO"".  If it is equal to or greater than the annual deductible"
^DD(355.5,.13,21,4,0)="for such services, enter ""YES""."
^DD(355.5,.13,"DT")="2930513"
^DD(355.5,.14,0)="AMOUNT OF MH (OPT) DED MET^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(355.5,.14,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(355.5,.14,21,0)="^^2^2^2930713^"
^DD(355.5,.14,21,1,0)="Enter the dollar amount of claims against this policy for outpatient"
^DD(355.5,.14,21,2,0)="mental health services."
^DD(355.5,.14,"DT")="2930513"
^DD(355.5,.15,0)="PRE-EXISTING CONDITIONS^F^^0;15^K:$L(X)>30!($L(X)<3) X"
^DD(355.5,.15,3)="Answer must be 3-30 characters in length."
^DD(355.5,.15,21,0)="^^1^1^2930713^"
^DD(355.5,.15,21,1,0)="Enter the patient's pre-existing conditions."
^DD(355.5,.15,"DT")="2930513"
^DD(355.5,.16,0)="COORDINATION OF BENEFITS DATA^F^^0;16^K:$L(X)>30!($L(X)<3) X"
^DD(355.5,.16,3)="Answer must be 3-30 characters in length."
^DD(355.5,.16,21,0)="^^2^2^2930713^"
^DD(355.5,.16,21,1,0)="If the patient is included in a policy held by a family member, e.g."
^DD(355.5,.16,21,2,0)="spouse, enter that information here."
^DD(355.5,.16,"DT")="2930513"
^DD(355.5,.17,0)="PATIENT POLICY POINTER^NJ6,0I^^0;17^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(355.5,.17,1,0)="^.1"
^DD(355.5,.17,1,1,0)="355.5^APPY3^MUMPS"
^DD(355.5,.17,1,1,1)="I $P(^IBA(355.5,DA,0),U,2),+^(0),-$P(^(0),U,3) S ^IBA(355.5,""APPY"",+$P(^(0),U,2),+^(0),-$P(^(0),U,3),X,DA)="""""
^DD(355.5,.17,1,1,2)="K ^IBA(355.5,""APPY"",+$P(^(0),U,2),+^(0),-$P(^(0),U,3),X,DA)"
^DD(355.5,.17,1,1,"%D",0)="^^1^1^2930831^^^"
^DD(355.5,.17,1,1,"%D",1,0)="Cross-references patients by policy by year."
^DD(355.5,.17,1,1,"DT")="2930831"
^DD(355.5,.17,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(355.5,.17,8.5)="^"
^DD(355.5,.17,9)="^"
^DD(355.5,.17,"DT")="2930831"
^DD(355.5,.18,0)="AMT. MH LIFET. MAX USED (INPT)^NJ10,2^^0;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.5,.18,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(355.5,.18,21,0)="^^2^2^2931214^^^^"
^DD(355.5,.18,21,1,0)="Enter the dollar amount of claims against this policy for mental"
^DD(355.5,.18,21,2,0)="health services."
^DD(355.5,.18,"DT")="2931214"
^DD(355.5,.19,0)="AMT LIFETIME MAX USED (INPT)^NJ10,2^^0;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.5,.19,3)="Type a Dollar Amount between 0 and 9999999, 0 Decimal Digits"
^DD(355.5,.19,21,0)="^^3^3^2931214^"
^DD(355.5,.19,21,1,0)="Enter the dollar amount of inpatient claims against this policy, which"
^DD(355.5,.19,21,2,0)="can then be compared to the maxium amount available over the life of"
^DD(355.5,.19,21,3,0)="the policy."
^DD(355.5,.19,"DT")="2931214"
^DD(355.5,.2,0)="AMT MH LIFET MAX USED (OPT)^NJ10,2^^0;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(355.5,.2,3)="Type a Dollar Amount between 0 and 9999999, 0 Decimal Digits"
^DD(355.5,.2,21,0)="^^3^3^2931214^"
^DD(355.5,.2,21,1,0)="Enter the dollar amount of MH claims against this policy, which can"
^DD(355.5,.2,21,2,0)="then be compared to the maximum amount available over the life of"
^DD(355.5,.2,21,3,0)="the policy."
^DD(355.5,.2,"DT")="2931214"
^DD(355.5,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.5,1.01,9)="^"
^DD(355.5,1.01,21,0)="^^2^2^2930713^"
^DD(355.5,1.01,21,1,0)="This is the date that this entry was created.  It is automatically"
^DD(355.5,1.01,21,2,0)="triggered by the creation of the entry."
^DD(355.5,1.01,"DT")="2930513"
^DD(355.5,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(355.5,1.02,9)="^"
^DD(355.5,1.02,21,0)="^^2^2^2930713^"
^DD(355.5,1.02,21,1,0)="This is the user who created this entry.  It is automatically"
^DD(355.5,1.02,21,2,0)="triggered by the creation of this entry."
^DD(355.5,1.02,"DT")="2930513"
^DD(355.5,1.03,0)="DATE LAST VERIFIED^D^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.5,1.03,21,0)="^^2^2^2930713^"
^DD(355.5,1.03,21,1,0)="This is the date that the entry was verified.  It is automatically"
^DD(355.5,1.03,21,2,0)="triggered by the verification process."
^DD(355.5,1.03,"DT")="2930707"
^DD(355.5,1.04,0)="VERIFIED BY^P200'^VA(200,^1;4^Q"
^DD(355.5,1.04,21,0)="^^2^2^2930713^"
^DD(355.5,1.04,21,1,0)="This is the person who verified the entry.  It is automatically"
^DD(355.5,1.04,21,2,0)="triggered by the verification process."
^DD(355.5,1.04,"DT")="2930513"
^DD(355.5,1.05,0)="DATE LAST EDITED^D^^1;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.5,1.05,3)=""
^DD(355.5,1.05,9)="^"
^DD(355.5,1.05,21,0)="^^2^2^2930713^^"
^DD(355.5,1.05,21,1,0)="This is the date that the entry was last edited.  It is automatically"
^DD(355.5,1.05,21,2,0)="triggered whenever editing takes place."
^DD(355.5,1.05,"DT")="2930707"
^DD(355.5,1.06,0)="EDITED BY^P200'^VA(200,^1;6^Q"
^DD(355.5,1.06,9)="^"
^DD(355.5,1.06,21,0)="^^2^2^2930713^"
^DD(355.5,1.06,21,1,0)="This is the name of the person who last edited the entry.  It is"
^DD(355.5,1.06,21,2,0)="automatically triggered whenever editing takes place."
^DD(355.5,1.06,"DT")="2930513"
^DD(355.5,1.07,0)="PERSON CONTACTED^RF^^1;7^K:$L(X)>30!($L(X)<3) X"
^DD(355.5,1.07,.1)="WHO DID YOU TALK TO AT THE INSURANCE COMPANY?"
^DD(355.5,1.07,3)="Answer must be 3-30 characters in length."
^DD(355.5,1.07,21,0)="^^2^2^2930702^^^"
^DD(355.5,1.07,21,1,0)="Give the name of the person at the insurance company with whom you"
^DD(355.5,1.07,21,2,0)="verified insurance claims information."
^DD(355.5,1.07,"DT")="2930702"
^DD(355.5,1.08,0)="COMMENT - CLAIMS FILED^F^^1;8^K:$L(X)>80!($L(X)<3) X"
^DD(355.5,1.08,3)="Answer must be 3-80 characters in length."
^DD(355.5,1.08,21,0)="^^1^1^2930713^"
^DD(355.5,1.08,21,1,0)="Enter any pertinent information here that you did not enter above."
^DD(355.5,1.08,"DT")="2930611"
^DD(355.5,1.09,0)="CONTACT'S PHONE NUMBER^RF^^1;9^K:$L(X)>20!($L(X)<7) X"
^DD(355.5,1.09,.1)="WHAT WAS THEIR PHONE NUMBER?"
^DD(355.5,1.09,3)="Answer must be 7-20 characters in length."
^DD(355.5,1.09,21,0)="^^2^2^2930702^^"
^DD(355.5,1.09,21,1,0)="Give the telephone number of the person who verified insurance"
^DD(355.5,1.09,21,2,0)="claims information."
^DD(355.5,1.09,"DT")="2930702"
^DD(355.5,"B","AMOUNT OF DEDUCTIBLE (INP) MET",.07)=""
^DD(355.5,"B","AMOUNT OF DEDUCTIBLE (OPT) MET",.09)=""
^DD(355.5,"B","AMOUNT OF DEDUCTIBLE MET",.05)=""
^DD(355.5,"B","AMOUNT OF MH (INP) DED MET",.12)=""
^DD(355.5,"B","AMOUNT OF MH (OPT) DED MET",.14)=""
^DD(355.5,"B","AMT LIFETIME MAX USED (INPT)",.19)=""
^DD(355.5,"B","AMT LIFETIME MAX USED (OPT)",.1)=""
^DD(355.5,"B","AMT MH LIFET MAX USED (OPT)",.2)=""
^DD(355.5,"B","AMT. MH LIFET. MAX USED (INPT)",.18)=""
^DD(355.5,"B","BENEFIT YEAR BEGINNING ON",.03)=""
^DD(355.5,"B","COMMENT - CLAIMS FILED",1.08)=""
^DD(355.5,"B","CONTACT'S PHONE NUMBER",1.09)=""
^DD(355.5,"B","COORDINATION OF BENEFITS DATA",.16)=""
^DD(355.5,"B","DATE ENTERED",1.01)=""
^DD(355.5,"B","DATE LAST EDITED",1.05)=""
^DD(355.5,"B","DATE LAST VERIFIED",1.03)=""
^DD(355.5,"B","DEDUCTIBLE (INPT) MET?",.06)=""
^DD(355.5,"B","DEDUCTIBLE (OPT) MET?",.08)=""
^DD(355.5,"B","DEDUCTIBLE MET?",.04)=""
^DD(355.5,"B","EDITED BY",1.06)=""
^DD(355.5,"B","ENTERED BY",1.02)=""
^DD(355.5,"B","MH DEDUCTIBLE (INP) MET?",.11)=""
^DD(355.5,"B","MH DEDUCTIBLE (OPT) MET?",.13)=""
^DD(355.5,"B","PATIENT",.02)=""
^DD(355.5,"B","PATIENT POLICY POINTER",.17)=""
^DD(355.5,"B","PERSON CONTACTED",1.07)=""
^DD(355.5,"B","POLICY",.01)=""
^DD(355.5,"B","PRE-EXISTING CONDITIONS",.15)=""
^DD(355.5,"B","VERIFIED BY",1.04)=""
^DD(355.5,"B","WHAT WAS THEIR PHONE NUMBER?",1.09)="1"
^DD(355.5,"GL",0,1,.01)=""
^DD(355.5,"GL",0,2,.02)=""
^DD(355.5,"GL",0,3,.03)=""
^DD(355.5,"GL",0,4,.04)=""
^DD(355.5,"GL",0,5,.05)=""
^DD(355.5,"GL",0,6,.06)=""
^DD(355.5,"GL",0,7,.07)=""
^DD(355.5,"GL",0,8,.08)=""
^DD(355.5,"GL",0,9,.09)=""
^DD(355.5,"GL",0,10,.1)=""
^DD(355.5,"GL",0,11,.11)=""
^DD(355.5,"GL",0,12,.12)=""
^DD(355.5,"GL",0,13,.13)=""
^DD(355.5,"GL",0,14,.14)=""
^DD(355.5,"GL",0,15,.15)=""
^DD(355.5,"GL",0,16,.16)=""
^DD(355.5,"GL",0,17,.17)=""
^DD(355.5,"GL",0,18,.18)=""
^DD(355.5,"GL",0,19,.19)=""
^DD(355.5,"GL",0,20,.2)=""
^DD(355.5,"GL",1,1,1.01)=""
^DD(355.5,"GL",1,2,1.02)=""
^DD(355.5,"GL",1,3,1.03)=""
^DD(355.5,"GL",1,4,1.04)=""
^DD(355.5,"GL",1,5,1.05)=""
^DD(355.5,"GL",1,6,1.06)=""
^DD(355.5,"GL",1,7,1.07)=""
^DD(355.5,"GL",1,8,1.08)=""
^DD(355.5,"GL",1,9,1.09)=""
^DD(355.5,"IX",.01)=""
^DD(355.5,"IX",.02)=""
^DD(355.5,"IX",.03)=""
^DD(355.5,"IX",.17)=""
^DD(355.5,"RQ",.01)=""
^DD(355.5,"RQ",.03)=""
^DD(355.5,"RQ",1.07)=""
^DD(355.5,"RQ",1.09)=""
^DD(355.6,0)="FIELD^^11^2"
^DD(355.6,0,"DDA")="N"
^DD(355.6,0,"IX","B",355.6,.01)=""
^DD(355.6,0,"NM","INSURANCE RIDERS")=""
^DD(355.6,0,"PT",355.31,.03)=""
^DD(355.6,0,"PT",355.7,.01)=""
^DD(355.6,0,"VR")="2.0"
^DD(355.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(355.6,.01,1,0)="^.1"
^DD(355.6,.01,1,1,0)="355.6^B"
^DD(355.6,.01,1,1,1)="S ^IBE(355.6,""B"",$E(X,1,30),DA)="""""
^DD(355.6,.01,1,1,2)="K ^IBE(355.6,""B"",$E(X,1,30),DA)"
^DD(355.6,.01,3)="Answer must be 3-30 characters in length."
^DD(355.6,.01,21,0)="^^3^3^2931129^"
^DD(355.6,.01,21,1,0)="This is the name of the Rider.  The entries in this file are generic"
^DD(355.6,.01,21,2,0)="riders that are commonly purchased as add-on insurance to a group plan."
^DD(355.6,.01,21,3,0)="Many plans allow the purchase of add-on riders while many do not."
^DD(355.6,.01,"DT")="2931129"
^DD(355.6,11,0)="DESCRIPTION^355.611^^11;0"
^DD(355.6,11,21,0)="^^1^1^2931129^"
^DD(355.6,11,21,1,0)="This is a description of the riders."
^DD(355.6,"B","DESCRIPTION",11)=""
^DD(355.6,"B","NAME",.01)=""
^DD(355.6,"GL",0,1,.01)=""
^DD(355.6,"GL",11,0,11)=""
^DD(355.6,"IX",.01)=""
^DD(355.6,"RQ",.01)=""
^DD(355.6,"SB",355.611,11)=""
^DD(355.611,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(355.611,0,"NM","DESCRIPTION")=""
^DD(355.611,0,"UP")="355.6"
^DD(355.611,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(355.611,.01,"DT")="2931129"
^DD(355.611,"B","DESCRIPTION",.01)=""
^DD(355.611,"GL",0,1,.01)=""
^DD(355.7,0)="FIELD^^.03^3"
^DD(355.7,0,"DDA")="N"
^DD(355.7,0,"DT")="2931129"
^DD(355.7,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.7,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(355.7,0,"IX","AC",355.7,.02)=""
^DD(355.7,0,"IX","APP",355.7,.01)=""
^DD(355.7,0,"IX","APP1",355.7,.02)=""
^DD(355.7,0,"IX","APP2",355.7,.03)=""
^DD(355.7,0,"IX","B",355.7,.01)=""
^DD(355.7,0,"NM","PERSONAL POLICY")=""
^DD(355.7,0,"VR")="2.0"
^DD(355.7,.01,0)="RIDER^RP355.6'^IBE(355.6,^0;1^Q"
^DD(355.7,.01,1,0)="^.1"
^DD(355.7,.01,1,1,0)="355.7^B"
^DD(355.7,.01,1,1,1)="S ^IBA(355.7,""B"",$E(X,1,30),DA)="""""
^DD(355.7,.01,1,1,2)="K ^IBA(355.7,""B"",$E(X,1,30),DA)"
^DD(355.7,.01,1,2,0)="355.7^APP^MUMPS"
^DD(355.7,.01,1,2,1)="S:$P(^IBA(355.7,DA,0),U,2)&($P(^(0),U,3)) ^IBA(355.7,""APP"",+$P(^(0),U,2),+$P(^(0),U,3),X,DA)="""""
^DD(355.7,.01,1,2,2)="K ^IBA(355.7,""APP"",+$P(^IBA(355.7,DA,0),U,2),+$P(^(0),U,3),X,DA)"
^DD(355.7,.01,1,2,"%D",0)="^^2^2^2931129^^"
^DD(355.7,.01,1,2,"%D",1,0)="Cross reference of riders by patient, policy, rider.  Used to make sure"
^DD(355.7,.01,1,2,"%D",2,0)="only one entry for each policy."
^DD(355.7,.01,1,2,"DT")="2931129"
^DD(355.7,.01,3)=""
^DD(355.7,.01,21,0)="^^4^4^2931129^"
^DD(355.7,.01,21,1,0)="Select the Insurance Rider that best describes the personal rider you are"
^DD(355.7,.01,21,2,0)="adding or editing for this patient.  A personal rider is add-on coverage"
^DD(355.7,.01,21,3,0)="that an individual may purchase as part of their group plan but is"
^DD(355.7,.01,21,4,0)="has additional cost."
^DD(355.7,.01,"DT")="2931130"
^DD(355.7,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(355.7,.02,1,0)="^.1"
^DD(355.7,.02,1,1,0)="355.7^AC"
^DD(355.7,.02,1,1,1)="S ^IBA(355.7,""AC"",$E(X,1,30),DA)="""""
^DD(355.7,.02,1,1,2)="K ^IBA(355.7,""AC"",$E(X,1,30),DA)"
^DD(355.7,.02,1,1,"DT")="2931130"
^DD(355.7,.02,1,2,0)="355.7^APP1^MUMPS"
^DD(355.7,.02,1,2,1)="S:$P(^IBA(355.7,DA,0),U,3) ^IBA(355.7,""APP"",X,+$P(^(0),U,3),+^(0),DA)="""""
^DD(355.7,.02,1,2,2)="K ^IBA(355.7,""APP"",X,+$P(^IBA(355.7,DA,0),U,3),+^(0),DA)"
^DD(355.7,.02,1,2,"%D",0)="^^2^2^2931129^"
^DD(355.7,.02,1,2,"%D",1,0)="Cross reference of riders by patient, policy, rider.  Used to make sure"
^DD(355.7,.02,1,2,"%D",2,0)="only one entry for each policy."
^DD(355.7,.02,1,2,"DT")="2931129"
^DD(355.7,.02,21,0)="^^3^3^2940213^^"
^DD(355.7,.02,21,1,0)="Select the patient that this is a rider for."
^DD(355.7,.02,21,2,0)="For any patients' policy there may be a number of riders associated"
^DD(355.7,.02,21,3,0)="with it."
^DD(355.7,.02,"DT")="2931130"
^DD(355.7,.03,0)="HEALTH INSURANCE POLICY^FXO^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X S:$D(X) X=$$SEL^IBTRC2(X,$P(^IBA(355.7,DA,0),""^"",2),DT,2)"
^DD(355.7,.03,1,0)="^.1"
^DD(355.7,.03,1,1,0)="355.7^APP2^MUMPS"
^DD(355.7,.03,1,1,1)="S:$P(^IBA(355.7,DA,0),U,2) ^IBA(355.7,""APP"",+$P(^(0),U,2),X,+^(0),DA)="""""
^DD(355.7,.03,1,1,2)="K ^IBA(355.7,""APP"",+$P(^IBA(355.7,DA,0),U,2),X,+^(0),DA)"
^DD(355.7,.03,1,1,"%D",0)="^^2^2^2931129^"
^DD(355.7,.03,1,1,"%D",1,0)="Cross reference of riders by patient, policy, rider.  Used to make sure"
^DD(355.7,.03,1,1,"%D",2,0)="only one entry for each policy."
^DD(355.7,.03,1,1,"DT")="2931129"
^DD(355.7,.03,2)="S Y(0)=Y S Y=$P($G(^DIC(36,+$P($G(^DPT(+$P(^IBA(355.7,DA,0),U,2),.312,+$G(Y),0)),U),0)),U)"
^DD(355.7,.03,2.1)="S Y=$P($G(^DIC(36,+$P($G(^DPT(+$P(^IBA(355.7,DA,0),U,2),.312,+$G(Y),0)),U),0)),U)"
^DD(355.7,.03,3)="Select the correct policy for this patient.  Answer must be 1-30 characters in length."
^DD(355.7,.03,4)="S DFN=$P(^IBA(355.7,DA,0),U,2) D DISP^IBCNS W !"
^DD(355.7,.03,21,0)="^^3^3^2940213^"
^DD(355.7,.03,21,1,0)="This is the policy for the patient that this is a rider for."
^DD(355.7,.03,21,2,0)=" "
^DD(355.7,.03,21,3,0)="One or more riders may be associated with any policy for any patient."
^DD(355.7,.03,"DT")="2931129"
^DD(355.7,"B","HEALTH INSURANCE POLICY",.03)=""
^DD(355.7,"B","PATIENT",.02)=""
^DD(355.7,"B","RIDER",.01)=""
^DD(355.7,"GL",0,1,.01)=""
^DD(355.7,"GL",0,2,.02)=""
^DD(355.7,"GL",0,3,.03)=""
^DD(355.7,"IX",.01)=""
^DD(355.7,"IX",.02)=""
^DD(355.7,"IX",.03)=""
^DD(355.7,"RQ",.01)=""
^DD(355.8,0)="FIELD^^.04^4"
^DD(355.8,0,"DDA")="N"
^DD(355.8,0,"DT")="2970501"
^DD(355.8,0,"IX","B",355.8,.01)=""
^DD(355.8,0,"IX","C",355.8,.02)=""
^DD(355.8,0,"NM","SPONSOR")=""
^DD(355.8,0,"PT",355.81,.02)=""
^DD(355.8,0,"VR")="2.0"
^DD(355.8,0,"VRPK")="IB"
^DD(355.8,.01,0)="SPONSOR^RV^^0;1^Q"
^DD(355.8,.01,1,0)="^.1"
^DD(355.8,.01,1,1,0)="355.8^B"
^DD(355.8,.01,1,1,1)="S ^IBA(355.8,""B"",$E(X,1,30),DA)="""""
^DD(355.8,.01,1,1,2)="K ^IBA(355.8,""B"",$E(X,1,30),DA)"
^DD(355.8,.01,3)=""
^DD(355.8,.01,23,0)="^^9^9^2970502^"
^DD(355.8,.01,23,1,0)="This is a variable-pointer field which is used to identify"
^DD(355.8,.01,23,2,0)="the sponsor.  If the sponsor is a military retiree, then "
^DD(355.8,.01,23,3,0)="that person may likely be a patient and thus have a record"
^DD(355.8,.01,23,4,0)="in the PATIENT (#2) file.  The sponsor name, date of birth,"
^DD(355.8,.01,23,5,0)="and social security number should be retrieved from the"
^DD(355.8,.01,23,6,0)="PATIENT (#2) file.  Sponsors who are active-duty personnel"
^DD(355.8,.01,23,7,0)="are unlikely to be patients, and thus a separate file"
^DD(355.8,.01,23,8,0)="(SPONSOR PERSON, file #355.82) is used to store the name,"
^DD(355.8,.01,23,9,0)="date of birth, and social security number."
^DD(355.8,.01,"DT")="2970218"
^DD(355.8,.01,"V",0)="^.12P^2^2"
^DD(355.8,.01,"V",1,0)="2^PATIENT^1^PT^n^n"
^DD(355.8,.01,"V",2,0)="355.82^NON-PATIENT SPONSOR^2^SP^n^n"
^DD(355.8,.01,"V","B",2,1)=""
^DD(355.8,.01,"V","B",355.82,2)=""
^DD(355.8,.01,"V","M","NON-PATIENT SPONSOR",2)=""
^DD(355.8,.01,"V","M","PATIENT",1)=""
^DD(355.8,.01,"V","O",1,1)=""
^DD(355.8,.01,"V","O",2,2)=""
^DD(355.8,.01,"V","P","PT",1)=""
^DD(355.8,.01,"V","P","SP",2)=""
^DD(355.8,.02,0)="MILITARY STATUS^S^A:ACTIVE DUTY;R:RETIRED;^0;2^Q"
^DD(355.8,.02,1,0)="^.1"
^DD(355.8,.02,1,1,0)="355.8^C"
^DD(355.8,.02,1,1,1)="S ^IBA(355.8,""C"",$E(X,1,30),DA)="""""
^DD(355.8,.02,1,1,2)="K ^IBA(355.8,""C"",$E(X,1,30),DA)"
^DD(355.8,.02,1,1,"DT")="2970121"
^DD(355.8,.02,3)="Enter 'A' for Active Duty or 'R' for a Military Retiree."
^DD(355.8,.02,21,0)="^^4^4^2970502^^"
^DD(355.8,.02,21,1,0)="This field is used to determine if the sponsor is an Active Duty"
^DD(355.8,.02,21,2,0)="member of the military, or a Military retiree.  This information"
^DD(355.8,.02,21,3,0)="about the sponsor is useful in determining the type of medical"
^DD(355.8,.02,21,4,0)="benefits that are available to the patient."
^DD(355.8,.02,"DT")="2970218"
^DD(355.8,.03,0)="BRANCH^P23'^DIC(23,^0;3^Q"
^DD(355.8,.03,3)="Enter the branch of the military in which the sponsor is/was enrolled."
^DD(355.8,.03,21,0)="^^4^4^2970502^"
^DD(355.8,.03,21,1,0)="This field is used to store the branch of the military in which"
^DD(355.8,.03,21,2,0)="the sponsor is currently enrolled or is retired from.  This"
^DD(355.8,.03,21,3,0)="field must be printed on claim forms submitted to the Tricare"
^DD(355.8,.03,21,4,0)="fiscal intermediary."
^DD(355.8,.03,"DT")="2970218"
^DD(355.8,.04,0)="RANK^F^^0;4^K:$L(X)>20!($L(X)<2) X"
^DD(355.8,.04,3)="Enter a free-text value (2-20 characters) for the sponsor's military rank."
^DD(355.8,.04,21,0)="^^3^3^2970502^"
^DD(355.8,.04,21,1,0)="This field is used to store the sponsor's current or retired"
^DD(355.8,.04,21,2,0)="rank in the military.  This information is useful in determining"
^DD(355.8,.04,21,3,0)="the type of medical benefits that are available to the patient."
^DD(355.8,.04,"DT")="2970501"
^DD(355.8,"B","BRANCH",.03)=""
^DD(355.8,"B","MILITARY STATUS",.02)=""
^DD(355.8,"B","RANK",.04)=""
^DD(355.8,"B","SPONSOR",.01)=""
^DD(355.8,"GL",0,1,.01)=""
^DD(355.8,"GL",0,2,.02)=""
^DD(355.8,"GL",0,3,.03)=""
^DD(355.8,"GL",0,4,.04)=""
^DD(355.8,"IX",.01)=""
^DD(355.8,"IX",.02)=""
^DD(355.8,"RQ",.01)=""
^DD(355.81,0)="FIELD^^.06^6"
^DD(355.81,0,"DT")="2970121"
^DD(355.81,0,"IX","B",355.81,.01)=""
^DD(355.81,0,"NM","SPONSOR RELATIONSHIP")=""
^DD(355.81,0,"VR")="2.0"
^DD(355.81,0,"VRPK")="IB"
^DD(355.81,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(355.81,.01,1,0)="^.1"
^DD(355.81,.01,1,1,0)="355.81^B"
^DD(355.81,.01,1,1,1)="S ^IBA(355.81,""B"",$E(X,1,30),DA)="""""
^DD(355.81,.01,1,1,2)="K ^IBA(355.81,""B"",$E(X,1,30),DA)"
^DD(355.81,.01,3)=""
^DD(355.81,.01,21,0)="^^2^2^2970502^"
^DD(355.81,.01,21,1,0)="This field contains the patient with whom the sponsor has"
^DD(355.81,.01,21,2,0)="a relationship."
^DD(355.81,.01,"DT")="2970121"
^DD(355.81,.02,0)="SPONSOR^P355.8'^IBA(355.8,^0;2^Q"
^DD(355.81,.02,21,0)="^^2^2^2970502^"
^DD(355.81,.02,21,1,0)="This field is used to point to the sponsor with whom"
^DD(355.81,.02,21,2,0)="the patient has a relationship."
^DD(355.81,.02,"DT")="2970121"
^DD(355.81,.03,0)="FAMILY PREFIX^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(355.81,.03,3)="Answer must be 1-15 characters in length."
^DD(355.81,.03,21,0)="^^10^10^2970502^"
^DD(355.81,.03,21,1,0)="This field describes how the patient is related to the sponsor"
^DD(355.81,.03,21,2,0)="(spouse, child, etc.).  The following scheme for identifying"
^DD(355.81,.03,21,3,0)="this relationship (referred to as the 'family prefix'), which"
^DD(355.81,.03,21,4,0)="has been adopted by DOD, is recommended for use:"
^DD(355.81,.03,21,5,0)=" "
^DD(355.81,.03,21,6,0)="   Code      Relationship"
^DD(355.81,.03,21,7,0)="   ----      ------------"
^DD(355.81,.03,21,8,0)="    01        Spouse"
^DD(355.81,.03,21,9,0)="    02        Oldest child"
^DD(355.81,.03,21,10,0)="    03        Next oldest child, etc."
^DD(355.81,.03,"DT")="2970121"
^DD(355.81,.04,0)="SPONSOR TYPE^S^T:TRICARE;C:CHAMPVA;^0;4^Q"
^DD(355.81,.04,21,0)="^^2^2^2970502^"
^DD(355.81,.04,21,1,0)="This field is used to describe whether the sponsor relationship"
^DD(355.81,.04,21,2,0)="is for Tricare or CHAMPVA."
^DD(355.81,.04,"DT")="2970121"
^DD(355.81,.05,0)="EFFECTIVE DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.81,.05,21,0)="^^2^2^2970502^"
^DD(355.81,.05,21,1,0)="This field is used to denote the effective date of the"
^DD(355.81,.05,21,2,0)="patient's relationship with the sponsor."
^DD(355.81,.05,"DT")="2970121"
^DD(355.81,.06,0)="EXPIRATION DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.81,.06,21,0)="^^3^3^2970502^"
^DD(355.81,.06,21,1,0)="If the patient's relationship with the sponsor has expired,"
^DD(355.81,.06,21,2,0)="this field is used to denote the date that the relationship"
^DD(355.81,.06,21,3,0)="has expired."
^DD(355.81,.06,"DT")="2970121"
^DD(355.81,"B","EFFECTIVE DATE",.05)=""
^DD(355.81,"B","EXPIRATION DATE",.06)=""
^DD(355.81,"B","FAMILY PREFIX",.03)=""
^DD(355.81,"B","PATIENT",.01)=""
^DD(355.81,"B","SPONSOR",.02)=""
^DD(355.81,"B","SPONSOR TYPE",.04)=""
^DD(355.81,"GL",0,1,.01)=""
^DD(355.81,"GL",0,2,.02)=""
^DD(355.81,"GL",0,3,.03)=""
^DD(355.81,"GL",0,4,.04)=""
^DD(355.81,"GL",0,5,.05)=""
^DD(355.81,"GL",0,6,.06)=""
^DD(355.81,"IX",.01)=""
^DD(355.81,"RQ",.01)=""
^DD(355.82,0)="FIELD^^.03^3"
^DD(355.82,0,"DT")="2970221"
^DD(355.82,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(355.82,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(355.82,0,"IX","B",355.82,.01)=""
^DD(355.82,0,"IX","C",355.82,.03)=""
^DD(355.82,0,"NM","SPONSOR PERSON")=""
^DD(355.82,0,"PT",355.8,.01)=""
^DD(355.82,0,"VR")="2.0"
^DD(355.82,0,"VRPK")="IB"
^DD(355.82,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(355.82,.01,1,0)="^.1"
^DD(355.82,.01,1,1,0)="355.82^B"
^DD(355.82,.01,1,1,1)="S ^IBA(355.82,""B"",$E(X,1,30),DA)="""""
^DD(355.82,.01,1,1,2)="K ^IBA(355.82,""B"",$E(X,1,30),DA)"
^DD(355.82,.01,3)="Answer must be 3-30 characters in length."
^DD(355.82,.01,21,0)="^^1^1^2970502^"
^DD(355.82,.01,21,1,0)="This field is used to contain the name of the non-patient sponsor."
^DD(355.82,.01,"DEL",1,0)="I 1 W *7,!,""Deletion of Sponsor Persons is not allowed."""
^DD(355.82,.01,"DT")="2970221"
^DD(355.82,.02,0)="DATE OF BIRTH^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(355.82,.02,21,0)="^^3^3^2970502^"
^DD(355.82,.02,21,1,0)="This field contains the sponsor's date of birth.  This date"
^DD(355.82,.02,21,2,0)="may be used to print on claim forms submitted to the Tricare"
^DD(355.82,.02,21,3,0)="fiscal intermediary."
^DD(355.82,.02,"DT")="2970218"
^DD(355.82,.03,0)="SOCIAL SECURITY NUMBER^FXO^^0;3^K:$L(X)>13!($L(X)<9) X I $D(X) S X=$TR(X,""-"","""")"
^DD(355.82,.03,1,0)="^.1"
^DD(355.82,.03,1,1,0)="355.82^C^MUMPS"
^DD(355.82,.03,1,1,1)="S ^IBA(355.82,""C"",$E($TR(X,""-"",""""),1,30),DA)="""""
^DD(355.82,.03,1,1,2)="K ^IBA(355.82,""C"",$E($TR(X,""-"",""""),1,30),DA)"
^DD(355.82,.03,1,1,"%D",0)="^^4^4^2970501^"
^DD(355.82,.03,1,1,"%D",1,0)="This regular cross-reference is used to perform a look-up"
^DD(355.82,.03,1,1,"%D",2,0)="on an existing sponsor person, based on the social security"
^DD(355.82,.03,1,1,"%D",3,0)="number.  The dashes are stripped of the SSN in the event"
^DD(355.82,.03,1,1,"%D",4,0)="that they are stored in the file."
^DD(355.82,.03,1,1,"DT")="2970501"
^DD(355.82,.03,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(355.82,.03,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(355.82,.03,3)="Answer must be 9-13 characters in length."
^DD(355.82,.03,21,0)="^^3^3^2970502^"
^DD(355.82,.03,21,1,0)="This field contains the sponsor's social security number.  This"
^DD(355.82,.03,21,2,0)="field may be used to print on claim forms submitted to the Tricare"
^DD(355.82,.03,21,3,0)="fiscal intermediary."
^DD(355.82,.03,"DT")="2970506"
^DD(355.82,"B","DATE OF BIRTH",.02)=""
^DD(355.82,"B","NAME",.01)=""
^DD(355.82,"B","SOCIAL SECURITY NUMBER",.03)=""
^DD(355.82,"GL",0,1,.01)=""
^DD(355.82,"GL",0,2,.02)=""
^DD(355.82,"GL",0,3,.03)=""
^DD(355.82,"IX",.01)=""
^DD(355.82,"IX",.03)=""
^DD(355.82,"RQ",.01)=""
^DD(355.9,0)="FIELD^^.16^9"
^DD(355.9,0,"DDA")="N"
^DD(355.9,0,"DT")="3010507"
^DD(355.9,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(36,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(36,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.9,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.9,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(355.9,0,"ID",.05)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.9,.05,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(355.9,0,"ID",.06)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(355.97,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(355.97,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.9,0,"IX","ACARE",355.9,.03)=""
^DD(355.9,0,"IX","B",355.9,.01)=""
^DD(355.9,0,"IX","C",355.9,.07)=""
^DD(355.9,0,"NM","IB BILLING PRACTITIONER ID")=""
^DD(355.9,0,"VR")="2.0"
^DD(355.9,0,"VRPK")="IB"
^DD(355.9,.01,0)="PRACTITIONER^RVX^^0;1^I $G(DA) K:$$DUP^IBCEP1(.01,DA) X"
^DD(355.9,.01,1,0)="^.1"
^DD(355.9,.01,1,1,0)="355.9^B"
^DD(355.9,.01,1,1,1)="S ^IBA(355.9,""B"",$E(X,1,30),DA)="""""
^DD(355.9,.01,1,1,2)="K ^IBA(355.9,""B"",$E(X,1,30),DA)"
^DD(355.9,.01,1,2,0)="^^TRIGGER^355.9^.15"
^DD(355.9,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=""*ALL*"" X ^DD(355.9,.01,1,2,1.4)"
^DD(355.9,.01,1,2,1.4)="S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=355.9,DIG=.15 D ^DICR"
^DD(355.9,.01,1,2,2)="Q"
^DD(355.9,.01,1,2,3)="Do not delete"
^DD(355.9,.01,1,2,"%D",0)="^^3^3^3000906^"
^DD(355.9,.01,1,2,"%D",1,0)="This trigger 'seeds' a value into the key field for insurance company"
^DD(355.9,.01,1,2,"%D",2,0)="so the value of the key is never null, even if the insurance company"
^DD(355.9,.01,1,2,"%D",3,0)="is not entered."
^DD(355.9,.01,1,2,"CREATE CONDITION")="INDEX VALUE INSURANCE CO="""""
^DD(355.9,.01,1,2,"CREATE VALUE")="""*ALL*"""
^DD(355.9,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.9,.01,1,2,"DT")="3000906"
^DD(355.9,.01,1,2,"FIELD")="INDEX VALUE INSURANCE CO"
^DD(355.9,.01,1,3,0)="^^TRIGGER^355.9^.16"
^DD(355.9,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" X ^DD(355.9,.01,1,3,1.4)"
^DD(355.9,.01,1,3,1.4)="S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=355.9,DIG=.16 D ^DICR"
^DD(355.9,.01,1,3,2)="Q"
^DD(355.9,.01,1,3,3)="Do not delete"
^DD(355.9,.01,1,3,"%D",0)="^^3^3^3000906^"
^DD(355.9,.01,1,3,"%D",1,0)="This trigger 'seeds' a value into the key field for care unit"
^DD(355.9,.01,1,3,"%D",2,0)="so the value of the key is never null, even if the care unit"
^DD(355.9,.01,1,3,"%D",3,0)="is not entered."
^DD(355.9,.01,1,3,"CREATE CONDITION")="INDEX VALUE CARE UNIT="""""
^DD(355.9,.01,1,3,"CREATE VALUE")="""*N/A*"""
^DD(355.9,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.9,.01,1,3,"DT")="3000906"
^DD(355.9,.01,1,3,"FIELD")="INDEX VALUE CARE UNIT"
^DD(355.9,.01,3)="Enter the name of the individual provider (practitioner).  This cannot be a duplicate of any entry in the NEW PERSON file."
^DD(355.9,.01,21,0)="^.001^5^5^3010108^^^^"
^DD(355.9,.01,21,1,0)="This is the practitioner (individual provider) for whom the id number"
^DD(355.9,.01,21,2,0)="is being defined. This practitioner can either be a VA provider and"
^DD(355.9,.01,21,3,0)="reside in the NEW PERSON file or can be a NON-VA provider and will reside"
^DD(355.9,.01,21,4,0)="in the IB NON-VA BILLING PROVIDER file as an individual provider (not"
^DD(355.9,.01,21,5,0)="as a facility)."
^DD(355.9,.01,23,0)="^^1^1^3010108^"
^DD(355.9,.01,23,1,0)="DBIA #3272 was secured to allow this file's .01 field to point to file 200."
^DD(355.9,.01,"DT")="3001220"
^DD(355.9,.01,"V",0)="^.12P^2^2"
^DD(355.9,.01,"V",1,0)="200^VA PROVIDER^1^VA^n^n"
^DD(355.9,.01,"V",2,0)="355.93^NON-VA PROVIDER^2^NVA^y^y"
^DD(355.9,.01,"V",2,1)="S DIC(""S"")=""I $P(^(0),U,2)=2"""
^DD(355.9,.01,"V",2,2)="Only individual providers can be selected here."
^DD(355.9,.01,"V","B",200,1)=""
^DD(355.9,.01,"V","B",355.93,2)=""
^DD(355.9,.01,"V","M","NON-VA PROVIDER",2)=""
^DD(355.9,.01,"V","M","VA PROVIDER",1)=""
^DD(355.9,.01,"V","O",1,1)=""
^DD(355.9,.01,"V","O",2,2)=""
^DD(355.9,.01,"V","P","NVA",2)=""
^DD(355.9,.01,"V","P","VA",1)=""
^DD(355.9,.02,0)="INSURANCE CO^P36'X^DIC(36,^0;2^I $G(DA) K:$$DUP^IBCEP1(.02,DA) X"
^DD(355.9,.02,1,0)="^.1"
^DD(355.9,.02,1,1,0)="^^TRIGGER^355.9^.03"
^DD(355.9,.02,1,1,1)="Q"
^DD(355.9,.02,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=355.9,DIG=.03 D ^DICR"
^DD(355.9,.02,1,1,"CREATE VALUE")="NO EFFECT"
^DD(355.9,.02,1,1,"DELETE VALUE")="@"
^DD(355.9,.02,1,1,"FIELD")="PROVIDER ID CARE UNIT"
^DD(355.9,.02,1,2,0)="^^TRIGGER^355.9^.15"
^DD(355.9,.02,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=355.9,DIG=.15 D ^DICR"
^DD(355.9,.02,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=""*ALL*"" S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=355.9,DIG=.15 D ^DICR"
^DD(355.9,.02,1,2,3)="Do not delete"
^DD(355.9,.02,1,2,"%D",0)="^.101^2^2^3000906^^"
^DD(355.9,.02,1,2,"%D",1,0)="When the insurance company is entered or changed, trigger the same value"
^DD(355.9,.02,1,2,"%D",2,0)="into the field.  When insurance company is deleted, re-seed it with *ALL*"
^DD(355.9,.02,1,2,"CREATE VALUE")="INTERNAL(INSURANCE CO)"
^DD(355.9,.02,1,2,"DELETE VALUE")="""*ALL*"""
^DD(355.9,.02,1,2,"DT")="3000906"
^DD(355.9,.02,1,2,"FIELD")="INDEX VALUE INSURANCE CO"
^DD(355.9,.02,3)="Enter the insurance company who has specific id's for the provider"
^DD(355.9,.02,21,0)="^.001^3^3^3000906^^^"
^DD(355.9,.02,21,1,0)="This is the insurance company that has assigned a specific id to the"
^DD(355.9,.02,21,2,0)="provider.  If this data is not entered, the id number will be assumed"
^DD(355.9,.02,21,3,0)="to apply to all insurance companies for the provider."
^DD(355.9,.02,"DT")="3001207"
^DD(355.9,.03,0)="PROVIDER ID CARE UNIT^*P355.96'X^IBA(355.96,^0;3^S:$D(DA) DIC(""S"")=""I +$G(^IBA(355.96,+Y,0))=+$P($G(^IBA(355.9,DA,0)),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DA) K:$$DUP^IBCEP1(.03,DA) X"
^DD(355.9,.03,1,0)="^.1"
^DD(355.9,.03,1,1,0)="^^TRIGGER^355.9^.16"
^DD(355.9,.03,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.9,.03,1,1,1.4)"
^DD(355.9,.03,1,1,1.4)="S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=355.9,DIG=.16 D ^DICR"
^DD(355.9,.03,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" S DIH=$G(^IBA(355.9,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=355.9,DIG=.16 D ^DICR"
^DD(355.9,.03,1,1,"CREATE CONDITION")="INTERNAL(PROVIDER ID CARE UNIT)"
^DD(355.9,.03,1,1,"CREATE VALUE")="INTERNAL(PROVIDER ID CARE UNIT)"
^DD(355.9,.03,1,1,"DELETE VALUE")="""*N/A*"""
^DD(355.9,.03,1,1,"DT")="3040602"
^DD(355.9,.03,1,1,"FIELD")="INDEX VALUE CARE UNIT"
^DD(355.9,.03,1,2,0)="355.9^ACARE"
^DD(355.9,.03,1,2,1)="S ^IBA(355.9,""ACARE"",$E(X,1,30),DA)="""""
^DD(355.9,.03,1,2,2)="K ^IBA(355.9,""ACARE"",$E(X,1,30),DA)"
^DD(355.9,.03,1,2,3)="Do not delete"
^DD(355.9,.03,1,2,"%D",0)="^^1^1^3001107^"
^DD(355.9,.03,1,2,"%D",1,0)="This xref allows quick access to the file by care unit."
^DD(355.9,.03,1,2,"DT")="3001107"
^DD(355.9,.03,3)="Enter the specific care unit value needed to get the provider id."
^DD(355.9,.03,5,1,0)="355.9^.02^1"
^DD(355.9,.03,12)="Value must be defined as valid for the insurance co"
^DD(355.9,.03,12.1)="S DIC(""S"")=""I +$G(^IBA(355.96,+Y,0))=+$P($G(^IBA(355.9,DA,0)),U,2)"""
^DD(355.9,.03,21,0)="^.001^3^3^3010427^^^^"
^DD(355.9,.03,21,1,0)="This is the actual data value of the care unit to use to assign"
^DD(355.9,.03,21,2,0)="this provider id to the insurance company and provider."
^DD(355.9,.03,21,3,0)="*** NOT CURRENTLY USED ***"
^DD(355.9,.03,"DT")="3040602"
^DD(355.9,.04,0)="FORM TYPE APPLIED TO^RS^0:BOTH UB-04 AND CMS-1500 FORMS;1:UB-04 FORMS ONLY;2:CMS-1500 FORMS ONLY;^0;4^Q"
^DD(355.9,.04,3)="Enter the form types that this id # will apply to."
^DD(355.9,.04,21,0)="^^2^2^3070116^"
^DD(355.9,.04,21,1,0)="This designates whether the id number is to be used for just"
^DD(355.9,.04,21,2,0)="UB-04 form types, just CMS-1500 form types or both form types."
^DD(355.9,.04,"DT")="3070116"
^DD(355.9,.05,0)="BILL CARE TYPE^RSX^0:BOTH INPATIENT AND OUTPATIENT;1:INPATIENT ONLY;2:OUTPATIENT ONLY;3:PRESCRIPTION ONLY;^0;5^I $G(DA) K:$$DUP^IBCEP1(.05,DA) X"
^DD(355.9,.05,3)="Enter the bill care type (inpatient/outpatient/Rx) that this id # will apply to."
^DD(355.9,.05,21,0)="^.001^3^3^3001004^^^^"
^DD(355.9,.05,21,1,0)="This designates whether the id number is to be used for just"
^DD(355.9,.05,21,2,0)="inpatient episodes, just outpatient episodes, both inpatient and"
^DD(355.9,.05,21,3,0)="outpatient episodes, or for just prescriptions."
^DD(355.9,.05,"DT")="3000907"
^DD(355.9,.06,0)="PROVIDER ID TYPE^R*P355.97'X^IBE(355.97,^0;6^S DIC(""S"")=""I $P(^(0),U,2)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DA) K:$$DUP^IBCEP1(.06,DA) X"
^DD(355.9,.06,3)="Enter the type of id # being recorded."
^DD(355.9,.06,12)="ID types that are limited to facility level cannot be selected."
^DD(355.9,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=1"""
^DD(355.9,.06,21,0)="^.001^1^1^3010328^^"
^DD(355.9,.06,21,1,0)="This is the indicator of what type of id is being recorded."
^DD(355.9,.06,"DT")="3000906"
^DD(355.9,.07,0)="PROVIDER ID^RF^^0;7^K:$L(X)>15!($L(X)<1)!'(X?1N.E!(X?1A.E)) X"
^DD(355.9,.07,1,0)="^.1"
^DD(355.9,.07,1,1,0)="355.9^C"
^DD(355.9,.07,1,1,1)="S ^IBA(355.9,""C"",$E(X,1,30),DA)="""""
^DD(355.9,.07,1,1,2)="K ^IBA(355.9,""C"",$E(X,1,30),DA)"
^DD(355.9,.07,1,1,3)="Do not delete"
^DD(355.9,.07,1,1,"%D",0)="^^1^1^3000906^"
^DD(355.9,.07,1,1,"%D",1,0)="This allows a lookup on this file by provider id #"
^DD(355.9,.07,1,1,"DT")="3000906"
^DD(355.9,.07,3)="Answer must be 1-15 characters in length and must begin with a number or letter."
^DD(355.9,.07,21,0)="^.001^2^2^3000906^^^"
^DD(355.9,.07,21,1,0)="This is the provider id that will be used for a claim when all criteria"
^DD(355.9,.07,21,2,0)="defined on this record have been met."
^DD(355.9,.07,"DT")="3010507"
^DD(355.9,.15,0)="INDEX VALUE INSURANCE CO^RFI^^0;15^K:$L(X)>30!($L(X)<1) X"
^DD(355.9,.15,3)="Answer must be 1-30 characters in length."
^DD(355.9,.15,5,1,0)="355.9^.01^2"
^DD(355.9,.15,5,2,0)="355.9^.02^2"
^DD(355.9,.15,9)="^"
^DD(355.9,.15,21,0)="^.001^3^3^3000906^^"
^DD(355.9,.15,21,1,0)="This field contains the key value for the insurance company or '*ALL*'"
^DD(355.9,.15,21,2,0)="if no insurance company is selected.  This is to assure uniqueness in"
^DD(355.9,.15,21,3,0)="the records in the file even if the insurance company is blank."
^DD(355.9,.15,23,0)="^^1^1^3000906^"
^DD(355.9,.15,23,1,0)="Triggered on entry of the record by the .01 field to *ALL*"
^DD(355.9,.15,"DT")="3000907"
^DD(355.9,.16,0)="INDEX VALUE CARE UNIT^RFI^^0;16^K:$L(X)>30!($L(X)<1) X"
^DD(355.9,.16,3)="Answer must be 1-30 characters in length."
^DD(355.9,.16,5,1,0)="355.9^.01^3"
^DD(355.9,.16,5,2,0)="355.9^.03^1"
^DD(355.9,.16,9)="^"
^DD(355.9,.16,21,0)="^^3^3^3000906^"
^DD(355.9,.16,21,1,0)="This field contains the key value for the care unit or '*N/A*'"
^DD(355.9,.16,21,2,0)="if no care unit is selected.  This is to assure uniqueness in "
^DD(355.9,.16,21,3,0)="the records in the file even if the care unit is blank."
^DD(355.9,.16,23,0)="^^1^1^3000906^"
^DD(355.9,.16,23,1,0)="Triggered on entry of the record by the .01 field to *N/A*"
^DD(355.9,.16,"DT")="3000907"
^DD(355.9,"B","BILL CARE TYPE",.05)=""
^DD(355.9,"B","FORM TYPE APPLIED TO",.04)=""
^DD(355.9,"B","INDEX VALUE CARE UNIT",.16)=""
^DD(355.9,"B","INDEX VALUE INSURANCE CO",.15)=""
^DD(355.9,"B","INSURANCE CO",.02)=""
^DD(355.9,"B","PRACTITIONER",.01)=""
^DD(355.9,"B","PROVIDER ID",.07)=""
^DD(355.9,"B","PROVIDER ID CARE UNIT",.03)=""
^DD(355.9,"B","PROVIDER ID TYPE",.06)=""
^DD(355.9,"GL",0,1,.01)=""
^DD(355.9,"GL",0,2,.02)=""
^DD(355.9,"GL",0,3,.03)=""
^DD(355.9,"GL",0,4,.04)=""
^DD(355.9,"GL",0,5,.05)=""
^DD(355.9,"GL",0,6,.06)=""
^DD(355.9,"GL",0,7,.07)=""
^DD(355.9,"GL",0,15,.15)=""
^DD(355.9,"GL",0,16,.16)=""
^DD(355.9,"IX",.01)=""
^DD(355.9,"IX",.02)=""
^DD(355.9,"IX",.03)=""
^DD(355.9,"IX",.07)=""
^DD(355.9,"RQ",.01)=""
^DD(355.9,"RQ",.04)=""
^DD(355.9,"RQ",.05)=""
^DD(355.9,"RQ",.06)=""
^DD(355.9,"RQ",.07)=""
^DD(355.9,"RQ",.15)=""
^DD(355.9,"RQ",.16)=""
^DD(355.91,0)="FIELD^^.1^7"
^DD(355.91,0,"DDA")="N"
^DD(355.91,0,"DT")="3010507"
^DD(355.91,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.91,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(355.91,0,"ID",.05)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.91,.05,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(355.91,0,"ID",.06)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(355.97,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(355.97,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.91,0,"IX","ACARE",355.91,.03)=""
^DD(355.91,0,"IX","B",355.91,.01)=""
^DD(355.91,0,"IX","C",355.91,.07)=""
^DD(355.91,0,"NM","IB INSURANCE CO LEVEL BILLING PROV ID")=""
^DD(355.91,0,"VR")="2.0"
^DD(355.91,0,"VRPK")="IB"
^DD(355.91,.01,0)="INSURANCE CO^RP36'X^DIC(36,^0;1^I $G(DA),$$DUP1^IBCEP1(.01,DA) K X"
^DD(355.91,.01,1,0)="^.1"
^DD(355.91,.01,1,1,0)="355.91^B"
^DD(355.91,.01,1,1,1)="S ^IBA(355.91,""B"",$E(X,1,30),DA)="""""
^DD(355.91,.01,1,1,2)="K ^IBA(355.91,""B"",$E(X,1,30),DA)"
^DD(355.91,.01,1,2,0)="^^TRIGGER^355.91^.1"
^DD(355.91,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.91,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.91,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" X ^DD(355.91,.01,1,2,1.4)"
^DD(355.91,.01,1,2,1.4)="S DIH=$G(^IBA(355.91,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.91,DIG=.1 D ^DICR"
^DD(355.91,.01,1,2,2)="Q"
^DD(355.91,.01,1,2,3)="Do not delete"
^DD(355.91,.01,1,2,"%D",0)="^^2^2^3000906^"
^DD(355.91,.01,1,2,"%D",1,0)="This trigger 'seeds' a value into the key field for care unit"
^DD(355.91,.01,1,2,"%D",2,0)="so the value is never null, even if the care unit is not entered."
^DD(355.91,.01,1,2,"CREATE CONDITION")="INDEX VALUE CARE UNIT="""""
^DD(355.91,.01,1,2,"CREATE VALUE")="""*N/A*"""
^DD(355.91,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.91,.01,1,2,"DT")="3000906"
^DD(355.91,.01,1,2,"FIELD")="INDEX VALUE CARE UNIT"
^DD(355.91,.01,3)="Enter an insurance company name."
^DD(355.91,.01,21,0)="^.001^2^2^3001004^^"
^DD(355.91,.01,21,1,0)="This is the name of the insurance company that the id is being defined"
^DD(355.91,.01,21,2,0)="for."
^DD(355.91,.01,"DT")="3001018"
^DD(355.91,.03,0)="PROVIDER ID CARE UNIT^*P355.96'X^IBA(355.96,^0;3^S DIC(""S"")=""I +$G(^IBA(355.96,+Y,0))=+$G(^IBA(355.91,DA,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$$DUP1^IBCEP1(.03,DA) K X"
^DD(355.91,.03,1,0)="^.1"
^DD(355.91,.03,1,1,0)="^^TRIGGER^355.91^.1"
^DD(355.91,.03,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.91,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.91,.03,1,1,1.4)"
^DD(355.91,.03,1,1,1.4)="S DIH=$G(^IBA(355.91,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.91,DIG=.1 D ^DICR"
^DD(355.91,.03,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.91,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" S DIH=$G(^IBA(355.91,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.91,DIG=.1 D ^DICR"
^DD(355.91,.03,1,1,"CREATE CONDITION")="INTERNAL(PROVIDER ID CARE UNIT)"
^DD(355.91,.03,1,1,"CREATE VALUE")="INTERNAL(PROVIDER ID CARE UNIT)"
^DD(355.91,.03,1,1,"DELETE VALUE")="""*N/A*"""
^DD(355.91,.03,1,1,"DT")="3040607"
^DD(355.91,.03,1,1,"FIELD")="INDEX VALUE CARE UNIT"
^DD(355.91,.03,1,2,0)="355.91^ACARE"
^DD(355.91,.03,1,2,1)="S ^IBA(355.91,""ACARE"",$E(X,1,30),DA)="""""
^DD(355.91,.03,1,2,2)="K ^IBA(355.91,""ACARE"",$E(X,1,30),DA)"
^DD(355.91,.03,1,2,3)="Do not delete"
^DD(355.91,.03,1,2,"%D",0)="^^1^1^3001107^"
^DD(355.91,.03,1,2,"%D",1,0)="This xref allows quick access to the file by care unit."
^DD(355.91,.03,1,2,"DT")="3001107"
^DD(355.91,.03,3)="Enter the specific care unit needed to get the provider id."
^DD(355.91,.03,12)="Must be a valid care unit as defined for the insurance company"
^DD(355.91,.03,12.1)="S DIC(""S"")=""I +$G(^IBA(355.96,+Y,0))=+$G(^IBA(355.91,DA,0))"""
^DD(355.91,.03,21,0)="^.001^4^4^3010427^^^"
^DD(355.91,.03,21,1,0)="This is the generic, lowest breakdown provided for identification of the"
^DD(355.91,.03,21,2,0)="provider id.  This can be virtually any piece of data the insurance"
^DD(355.91,.03,21,3,0)="co chooses to use.  The unit must be entered manually on each bill."
^DD(355.91,.03,21,4,0)=" *** NOT CURRENTLY USED ***"
^DD(355.91,.03,"DT")="3040607"
^DD(355.91,.04,0)="FORM TYPE APPLIED TO^RS^0:BOTH UB-04 AND CMS-1500 FORMS;1:UB-04 FORMS ONLY;2:CMS-1500 FORMS ONLY;^0;4^Q"
^DD(355.91,.04,3)="Select one or both forms that the provider id will apply to."
^DD(355.91,.04,21,0)="^^2^2^3070116^"
^DD(355.91,.04,21,1,0)="This designates whether the id number is to be used for just"
^DD(355.91,.04,21,2,0)="UB-04 form types, just CMS-1500 form types or both form types."
^DD(355.91,.04,"DT")="3070116"
^DD(355.91,.05,0)="BILL CARE TYPE^RSX^0:BOTH INPATIENT AND OUTPATIENT;1:INPATIENT ONLY;2:OUTPATIENT ONLY;3:PRESCRIPTION ONLY;^0;5^I $G(DA),$$DUP1^IBCEP1(.05,DA) K X"
^DD(355.91,.05,3)="Enter the type of care (inpatient/outpatient/Rx) that this id # will apply to."
^DD(355.91,.05,21,0)="^^3^3^3000901^"
^DD(355.91,.05,21,1,0)="This designates whether the id number is to be used for just"
^DD(355.91,.05,21,2,0)="inpatient bills, just outpatient bills, both inpatient and"
^DD(355.91,.05,21,3,0)="outpatient bills or just prescriptions."
^DD(355.91,.05,"DT")="3000907"
^DD(355.91,.06,0)="PROVIDER ID TYPE^R*P355.97'X^IBE(355.97,^0;6^S DIC(""S"")=""I $S('$P(^(0),U,2):1,1:$P(^(0),U,2)=3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$$DUP1^IBCEP1(.06,DA) K X"
^DD(355.91,.06,3)="Enter the type of id # being recorded."
^DD(355.91,.06,12)="If limited, provider id type must be assigned by insurance co for all providers"
^DD(355.91,.06,12.1)="S DIC(""S"")=""I $S('$P(^(0),U,2):1,1:$P(^(0),U,2)=3)"""
^DD(355.91,.06,21,0)="^^1^1^3000901^"
^DD(355.91,.06,21,1,0)="This is the indicator of what type of id is being recorded."
^DD(355.91,.06,"DT")="3001018"
^DD(355.91,.07,0)="PROVIDER ID^RF^^0;7^K:$L(X)>15!($L(X)<1)!'(X?1N.E!(X?1A.E)) X"
^DD(355.91,.07,1,0)="^.1"
^DD(355.91,.07,1,1,0)="355.91^C"
^DD(355.91,.07,1,1,1)="S ^IBA(355.91,""C"",$E(X,1,30),DA)="""""
^DD(355.91,.07,1,1,2)="K ^IBA(355.91,""C"",$E(X,1,30),DA)"
^DD(355.91,.07,1,1,3)="Do not delete"
^DD(355.91,.07,1,1,"%D",0)="^^1^1^3000906^"
^DD(355.91,.07,1,1,"%D",1,0)="Lookup by provider id #"
^DD(355.91,.07,1,1,"DT")="3000906"
^DD(355.91,.07,3)="Answer must be 1-15 characters in length and must begin with a number or letter."
^DD(355.91,.07,21,0)="^.001^2^2^3000906^^^"
^DD(355.91,.07,21,1,0)="This is the provider ID that will be reported for the provider id type"
^DD(355.91,.07,21,2,0)="for the insurance co"
^DD(355.91,.07,"DT")="3010507"
^DD(355.91,.1,0)="INDEX VALUE CARE UNIT^RF^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(355.91,.1,3)="Answer must be 1-30 characters in length."
^DD(355.91,.1,5,1,0)="355.91^.01^2"
^DD(355.91,.1,5,2,0)="355.91^.03^1"
^DD(355.91,.1,9)="^"
^DD(355.91,.1,21,0)="^.001^3^3^3000906^^"
^DD(355.91,.1,21,1,0)="This field contains the value for the care unit or '*N/A*'"
^DD(355.91,.1,21,2,0)="if no care unit is selected.  This is to assure uniqueness in"
^DD(355.91,.1,21,3,0)="the records in the file even if the care unit is blank."
^DD(355.91,.1,23,0)="^^1^1^3000906^"
^DD(355.91,.1,23,1,0)="Triggered on entry of the record by the .01 field to *N/A*"
^DD(355.91,.1,"DT")="3001018"
^DD(355.91,"B","BILL CARE TYPE",.05)=""
^DD(355.91,"B","FORM TYPE APPLIED TO",.04)=""
^DD(355.91,"B","INDEX VALUE CARE UNIT",.1)=""
^DD(355.91,"B","INSURANCE CO",.01)=""
^DD(355.91,"B","PROVIDER ID",.07)=""
^DD(355.91,"B","PROVIDER ID CARE UNIT",.03)=""
^DD(355.91,"B","PROVIDER ID TYPE",.06)=""
^DD(355.91,"GL",0,1,.01)=""
^DD(355.91,"GL",0,3,.03)=""
^DD(355.91,"GL",0,4,.04)=""
^DD(355.91,"GL",0,5,.05)=""
^DD(355.91,"GL",0,6,.06)=""
^DD(355.91,"GL",0,7,.07)=""
^DD(355.91,"GL",0,10,.1)=""
^DD(355.91,"IX",.01)=""
^DD(355.91,"IX",.03)=""
^DD(355.91,"IX",.07)=""
^DD(355.91,"RQ",.01)=""
^DD(355.91,"RQ",.04)=""
^DD(355.91,"RQ",.05)=""
^DD(355.91,"RQ",.06)=""
^DD(355.91,"RQ",.07)=""
^DD(355.91,"RQ",.1)=""
^DD(355.92,0)="FIELD^^.07^9"
^DD(355.92,0,"DT")="3040610"
^DD(355.92,0,"IX","AC",355.92,.03)=""
^DD(355.92,0,"IX","B",355.92,.01)=""
^DD(355.92,0,"NM","FACILITY BILLING ID")=" "
^DD(355.92,0,"VR")="2.0"
^DD(355.92,0,"VRPK")="IB"
^DD(355.92,.01,0)="INSURANCE COMPANY^RP36'^DIC(36,^0;1^Q"
^DD(355.92,.01,1,0)="^.1^^-1"
^DD(355.92,.01,1,1,0)="355.92^B"
^DD(355.92,.01,1,1,1)="S ^IBA(355.92,""B"",$E(X,1,30),DA)="""""
^DD(355.92,.01,1,1,2)="K ^IBA(355.92,""B"",$E(X,1,30),DA)"
^DD(355.92,.01,1,2,0)="^^TRIGGER^355.92^.1"
^DD(355.92,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" X ^DD(355.92,.01,1,2,1.4)"
^DD(355.92,.01,1,2,1.4)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR"
^DD(355.92,.01,1,2,2)="Q"
^DD(355.92,.01,1,2,3)="This field is trigger on a new entry to the file and can not be edited."
^DD(355.92,.01,1,2,"CREATE CONDITION")="INDEX VALUE CARE UNIT="""""
^DD(355.92,.01,1,2,"CREATE VALUE")="""*N/A*"""
^DD(355.92,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.92,.01,1,2,"DT")="3051227"
^DD(355.92,.01,1,2,"FIELD")="INDE"
^DD(355.92,.01,1,3,0)="^^TRIGGER^355.92^.11"
^DD(355.92,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11)="""" I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" X ^DD(355.92,.01,1,3,1.4)"
^DD(355.92,.01,1,3,1.4)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR"
^DD(355.92,.01,1,3,2)="Q"
^DD(355.92,.01,1,3,3)="This field is trigger on a new entry to the file and can not be edited."
^DD(355.92,.01,1,3,"CREATE CONDITION")="INDEX VALUE DIVISION="""""
^DD(355.92,.01,1,3,"CREATE VALUE")="""*N/A*"""
^DD(355.92,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.92,.01,1,3,"DT")="3051227"
^DD(355.92,.01,1,3,"FIELD")="INDEX VALUE DIVISION"
^DD(355.92,.01,3)="Enter the name of the insurance company that is providing the id."
^DD(355.92,.01,21,0)="^^1^1^3040511^"
^DD(355.92,.01,21,1,0)="This is the insurance company that is providing the facility id."
^DD(355.92,.01,"DT")="3060307"
^DD(355.92,.03,0)="CARE UNITS^P355.95'^IBA(355.95,^0;3^Q"
^DD(355.92,.03,1,0)="^.1"
^DD(355.92,.03,1,1,0)="^^TRIGGER^355.92^.1"
^DD(355.92,.03,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.92,.03,1,1,1.4)"
^DD(355.92,.03,1,1,1.4)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR"
^DD(355.92,.03,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=355.92,DIG=.1 D ^DICR"
^DD(355.92,.03,1,1,"CREATE CONDITION")="INTERNAL(CARE UNITS)"
^DD(355.92,.03,1,1,"CREATE VALUE")="INTERNAL(CARE UNITS)"
^DD(355.92,.03,1,1,"DELETE VALUE")="""*N/A*"""
^DD(355.92,.03,1,1,"FIELD")="IND"
^DD(355.92,.03,1,2,0)="355.92^AC"
^DD(355.92,.03,1,2,1)="S ^IBA(355.92,""AC"",$E(X,1,30),DA)="""""
^DD(355.92,.03,1,2,2)="K ^IBA(355.92,""AC"",$E(X,1,30),DA)"
^DD(355.92,.03,1,2,"%D",0)="^^2^2^3060321^"
^DD(355.92,.03,1,2,"%D",1,0)="This cross reference will determine whether a care unit is in use before "
^DD(355.92,.03,1,2,"%D",2,0)="it can be deleted"
^DD(355.92,.03,1,2,"DT")="3060321"
^DD(355.92,.03,21,0)="^^2^2^3060309^"
^DD(355.92,.03,21,1,0)="This is the care unit for which this ID is being defined.  Care Units are "
^DD(355.92,.03,21,2,0)="only used for Billing Provider Secondary ID #2 ."
^DD(355.92,.03,"DT")="3060321"
^DD(355.92,.04,0)="FORM TYPE APPLIED TO^RS^0:BOTH UB-04 AND CMS-1500 FORMS;1:UB-04 FORMS ONLY;2:CMS-1500 ONLY;3:PRESCRIPTION ONLY;^0;4^Q"
^DD(355.92,.04,3)="Select one or both forms that the facility id will apply to."
^DD(355.92,.04,21,0)="^^2^2^3070116^"
^DD(355.92,.04,21,1,0)="This designates whether the id number is to be used for just"
^DD(355.92,.04,21,2,0)="UB-04 form types, just CMS-1500 form types or both form types."
^DD(355.92,.04,"DT")="3070116"
^DD(355.92,.05,0)="DIVISION^P40.8'^DG(40.8,^0;5^Q"
^DD(355.92,.05,1,0)="^.1"
^DD(355.92,.05,1,1,0)="^^TRIGGER^355.92^.11"
^DD(355.92,.05,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X I X S X=DIV S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(355.92,.05,1,1,1.4)"
^DD(355.92,.05,1,1,1.4)="S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR"
^DD(355.92,.05,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.92,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""*N/A*"" S DIH=$G(^IBA(355.92,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=355.92,DIG=.11 D ^DICR"
^DD(355.92,.05,1,1,"CREATE CONDITION")="INTERNAL(DIVISION)"
^DD(355.92,.05,1,1,"CREATE VALUE")="INTERNAL(DIVISION)"
^DD(355.92,.05,1,1,"DELETE VALUE")="""*N/A*"""
^DD(355.92,.05,1,1,"FIELD")="INDEX VALUE DIVISION"
^DD(355.92,.05,3)="Enter the specific division this id will be used for."
^DD(355.92,.05,21,0)="^.001^1^1^3040610^^"
^DD(355.92,.05,21,1,0)="This designates which division this id number should be used for."
^DD(355.92,.05,"DT")="3051227"
^DD(355.92,.06,0)="PROVIDER ID TYPE^R*P355.97'^IBE(355.97,^0;6^S DIC(""S"")=""I $$FACID^IBCEP7(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(355.92,.06,3)="Enter the type of id # being recorded."
^DD(355.92,.06,12)="Must be a valid type for SUB2 record in EDI claim flat file"
^DD(355.92,.06,12.1)="S DIC(""S"")=""I $$FACID^IBCEP7(Y)"""
^DD(355.92,.06,21,0)="^^1^1^3040511^"
^DD(355.92,.06,21,1,0)="This is the indicator of what type of id is being recorded."
^DD(355.92,.06,"DT")="3040512"
^DD(355.92,.07,0)="PROVIDER ID^RF^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(355.92,.07,3)="Answer must be 1-20 characters in length."
^DD(355.92,.07,21,0)="^^2^2^3040511^"
^DD(355.92,.07,21,1,0)="This is the facility ID that will be reported for the provider id type"
^DD(355.92,.07,21,2,0)="for the insurance co."
^DD(355.92,.07,"DT")="3040511"
^DD(355.92,.08,0)="ID TYPE FLAG^S^E:ELECTRONIC PLAN TYPE;A:ADDITIONAL IDS;LF:VA LAB/FACILITY ID;^0;8^Q"
^DD(355.92,.08,21,0)="^^2^2^3060309^"
^DD(355.92,.08,21,1,0)="This is the flag that enables the code to tell the 3 types of IDs in "
^DD(355.92,.08,21,2,0)="this file apart. "
^DD(355.92,.08,"DT")="3060309"
^DD(355.92,.1,0)="INDEX VALUE CARE UNIT^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(355.92,.1,3)="Answer must be 1-30 characters in length"
^DD(355.92,.1,5,1,0)="355.92^.01^2"
^DD(355.92,.1,5,2,0)="355.92^.03^1"
^DD(355.92,.1,9)="^"
^DD(355.92,.1,21,0)="^^4^4^3051227^"
^DD(355.92,.1,21,1,0)="This field contains the value for the care unit"
^DD(355.92,.1,21,2,0)="or '*N/A*' if no care unit is selected.  "
^DD(355.92,.1,21,3,0)="This is to assure uniqueness in the records in"
^DD(355.92,.1,21,4,0)="the file even if the care unit is blank."
^DD(355.92,.1,23,0)="^^1^1^3051227^"
^DD(355.92,.1,23,1,0)="Triggered on entry of the record by the .01 field to *N/A*"
^DD(355.92,.1,"DT")="3051230"
^DD(355.92,.11,0)="INDEX VALUE DIVISION^F^^0;11^K:$L(X)>30!($L(X)<1) X"
^DD(355.92,.11,3)="Answer must be 1-30 characters in length."
^DD(355.92,.11,5,1,0)="355.92^.01^3"
^DD(355.92,.11,5,2,0)="355.92^.05^1"
^DD(355.92,.11,9)="^"
^DD(355.92,.11,21,0)="^^3^3^3051227^"
^DD(355.92,.11,21,1,0)="This field contains the value for the division or '*N/A*' if no division"
^DD(355.92,.11,21,2,0)="is selected.  This is to assure uniqueness in the records in the file even"
^DD(355.92,.11,21,3,0)="if the division is blank."
^DD(355.92,.11,23,0)="^^1^1^3051227^"
^DD(355.92,.11,23,1,0)="Triggered on entry of the record by the .01 field to *N/A*"
^DD(355.92,.11,"DT")="3051230"
^DD(355.92,"B","CARE UNITS",.03)=""
^DD(355.92,"B","DIVISION",.05)=""
^DD(355.92,"B","FORM TYPE APPLIED TO",.04)=""
^DD(355.92,"B","ID TYPE FLAG",.08)=""
^DD(355.92,"B","INDEX VALUE CARE UNIT",.1)=""
^DD(355.92,"B","INDEX VALUE DIVISION",.11)=""
^DD(355.92,"B","INSURANCE COMPANY",.01)=""
^DD(355.92,"B","PROVIDER ID",.07)=""
^DD(355.92,"B","PROVIDER ID TYPE",.06)=""
^DD(355.92,"GL",0,1,.01)=""
^DD(355.92,"GL",0,3,.03)=""
^DD(355.92,"GL",0,4,.04)=""
^DD(355.92,"GL",0,5,.05)=""
^DD(355.92,"GL",0,6,.06)=""
^DD(355.92,"GL",0,7,.07)=""
^DD(355.92,"GL",0,8,.08)=""
^DD(355.92,"GL",0,10,.1)=""
^DD(355.92,"GL",0,11,.11)=""
^DD(355.92,"IX",.01)=""
^DD(355.92,"IX",.03)=""
^DD(355.92,"IX",.05)=""
^DD(355.92,"RQ",.01)=""
^DD(355.92,"RQ",.04)=""
^DD(355.92,"RQ",.06)=""
^DD(355.92,"RQ",.07)=""
^DD(355.93,0)="FIELD^^.12^17"
^DD(355.93,0,"DDA")="N"
^DD(355.93,0,"DT")="3001116"
^DD(355.93,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.93,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(355.93,0,"IX","B",355.93,.01)=""
^DD(355.93,0,"IX","NPI",355.93,41.01)=""
^DD(355.93,0,"IX","NPIHISTORY",355.93,41.01)=""
^DD(355.93,0,"IX","TAXSTATUS",355.9342,.03)=""
^DD(355.93,0,"NM","IB NON/OTHER VA BILLING PROVIDER")=""
^DD(355.93,0,"PT",355.9,.01)=""
^DD(355.93,0,"PT",399,232)=""
^DD(355.93,0,"PT",399.0222,.02)=""
^DD(355.93,0,"VR")="2.0"
^DD(355.93,0,"VRPK")="IB"
^DD(355.93,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'$$VALFAC^IBCEP8(X) X I $D(X),X["","" N IBXNM S IBXNM=X D STDNAME^XLFNAME(.IBXNM,""FGP"") S X=IBXNM K:$L(X)>30!($L(X)<3)!$D(^VA(200,""B"",X)) X"
^DD(355.93,.01,1,0)="^.1"
^DD(355.93,.01,1,1,0)="355.93^B"
^DD(355.93,.01,1,1,1)="S ^IBA(355.93,""B"",$E(X,1,30),DA)="""""
^DD(355.93,.01,1,1,2)="K ^IBA(355.93,""B"",$E(X,1,30),DA)"
^DD(355.93,.01,1,2,0)="^^TRIGGER^355.93^.02"
^DD(355.93,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'["","" I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(355.93,.01,1,2,1.4)"
^DD(355.93,.01,1,2,1.4)="S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=355.93,DIG=.02 D ^DICR"
^DD(355.93,.01,1,2,2)="Q"
^DD(355.93,.01,1,2,3)="Do not delete"
^DD(355.93,.01,1,2,"%D",0)="^.101^2^2^3000831^^"
^DD(355.93,.01,1,2,"%D",1,0)="This triggers the PROVIDER TYPE to FACILITY if the name does not contain a"
^DD(355.93,.01,1,2,"%D",2,0)="comma"
^DD(355.93,.01,1,2,"CREATE CONDITION")="NAME'["","""
^DD(355.93,.01,1,2,"CREATE VALUE")="S X=1"
^DD(355.93,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.93,.01,1,2,"DT")="3000831"
^DD(355.93,.01,1,2,"FIELD")="PROVIDER TYPE"
^DD(355.93,.01,1,3,0)="^^TRIGGER^355.93^.02"
^DD(355.93,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)["","" I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(355.93,.01,1,3,1.4)"
^DD(355.93,.01,1,3,1.4)="S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=355.93,DIG=.02 D ^DICR"
^DD(355.93,.01,1,3,2)="Q"
^DD(355.93,.01,1,3,3)="Do not delete"
^DD(355.93,.01,1,3,"%D",0)="^^2^2^3000831^"
^DD(355.93,.01,1,3,"%D",1,0)="This triggers the PROVIDER TYPE to INDIVIDUAL if the name does contain a"
^DD(355.93,.01,1,3,"%D",2,0)="comma"
^DD(355.93,.01,1,3,"CREATE CONDITION")="NAME["","""
^DD(355.93,.01,1,3,"CREATE VALUE")="S X=2"
^DD(355.93,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.93,.01,1,3,"DT")="3000831"
^DD(355.93,.01,1,3,"FIELD")="PROVIDER TYPE"
^DD(355.93,.01,3)="Enter the name of a NON-VA provider/facility or other VA.  Name must start with a letter and can have letters,numbers,comma,space,dash only.  Names aren't valid if they exist in the NEW PERSON file."
^DD(355.93,.01,21,0)="^.001^15^15^3030916^^^^"
^DD(355.93,.01,21,1,0)="This is the name of either an individual NON-VA provider or a NON-VA"
^DD(355.93,.01,21,2,0)="or another VA facility that provides services to the V.A. for which the"
^DD(355.93,.01,21,3,0)="V.A. can in turn bill an insurance company for reimbursement.  For facility"
^DD(355.93,.01,21,4,0)="type entries, do not include any commas in the name.  If commas are found,"
^DD(355.93,.01,21,5,0)="the name is 'standardized' and the facility name will be converted to"
^DD(355.93,.01,21,6,0)="last name,first name middle."
^DD(355.93,.01,21,7,0)="'Standardized' means all punctuation except '-' and space are removed, "
^DD(355.93,.01,21,8,0)="the name is changed to all uppercase, 2 or more successive '-' or spaces"
^DD(355.93,.01,21,9,0)="are converted to a single '-' or space and any words for birth"
^DD(355.93,.01,21,10,0)="position (1ST-10TH) are changed to their Roman numeral equivalents."
^DD(355.93,.01,21,11,0)="For individual type entries, the name should be entered in"
^DD(355.93,.01,21,12,0)="LAST,FIRST MIDDLE format.  Enter only data that is actually part of"
^DD(355.93,.01,21,13,0)="the provider's name. Do not include extra titles, identification, flags,"
^DD(355.93,.01,21,14,0)="local information, etc.  All provider names will be converted to  "
^DD(355.93,.01,21,15,0)="the 'standardized' format."
^DD(355.93,.01,"DT")="3030826"
^DD(355.93,.02,0)="PROVIDER TYPE^SX^1:FACILITY/GROUP;2:INDIVIDUAL;^0;2^N Z,Z0 S Z0=X,Z=$P($G(^IBA(355.93,DA,0)),U) I $S(X=1:Z["","",1:Z'["","") D EN^DDIOL($S(Z0=1:""FACILITY NAMES MUST NOT CONTAIN A COMMA"",1:""INDIVIDUAL NAMES REQUIRE LAST,FIRST MI FORMAT"")) K X"
^DD(355.93,.02,1,0)="^.1"
^DD(355.93,.02,1,1,0)="^^TRIGGER^355.93^.03"
^DD(355.93,.02,1,1,1)="Q"
^DD(355.93,.02,1,1,2)="X ^DD(355.93,.02,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=355.93,DIG=.03 D ^DICR"
^DD(355.93,.02,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=2"
^DD(355.93,.02,1,1,3)="Do not delete"
^DD(355.93,.02,1,1,"%D",0)="^^2^2^3000905^"
^DD(355.93,.02,1,1,"%D",1,0)="This trigger deletes the value of the CREDENTIALS field if the type is no"
^DD(355.93,.02,1,1,"%D",2,0)="longer an individual provider type."
^DD(355.93,.02,1,1,"CREATE VALUE")="NO EFFECT"
^DD(355.93,.02,1,1,"DELETE CONDITION")="INTERNAL(OLD PROVIDER TYPE)=2"
^DD(355.93,.02,1,1,"DELETE VALUE")="@"
^DD(355.93,.02,1,1,"FIELD")="CREDENTIALS"
^DD(355.93,.02,1,2,0)="^^TRIGGER^355.93^.04"
^DD(355.93,.02,1,2,1)="Q"
^DD(355.93,.02,1,2,2)="X ^DD(355.93,.02,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=355.93,DIG=.04 D ^DICR"
^DD(355.93,.02,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=2"
^DD(355.93,.02,1,2,3)="Do not delete"
^DD(355.93,.02,1,2,"%D",0)="^^2^2^3000905^"
^DD(355.93,.02,1,2,"%D",1,0)="This trigger deletes the value of the SPECIALTY field if the type is no"
^DD(355.93,.02,1,2,"%D",2,0)="longer an individual provider type."
^DD(355.93,.02,1,2,"CREATE VALUE")="NO EFFECT"
^DD(355.93,.02,1,2,"DELETE CONDITION")="INTERNAL(OLD PROVIDER TYPE)=2"
^DD(355.93,.02,1,2,"DELETE VALUE")="@"
^DD(355.93,.02,1,2,"DT")="3000905"
^DD(355.93,.02,1,2,"FIELD")="SPECIALTY"
^DD(355.93,.02,1,3,0)="^^TRIGGER^355.93^.05"
^DD(355.93,.02,1,3,1)="Q"
^DD(355.93,.02,1,3,2)="X ^DD(355.93,.02,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=355.93,DIG=.05 D ^DICR"
^DD(355.93,.02,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^DD(355.93,.02,1,3,3)="Do not delete"
^DD(355.93,.02,1,3,"%D",0)="^^2^2^3000905^"
^DD(355.93,.02,1,3,"%D",1,0)="This trigger deletes the value of the STREET ADDRESS field if the type is"
^DD(355.93,.02,1,3,"%D",2,0)="no longer a facility type provider."
^DD(355.93,.02,1,3,"CREATE VALUE")="NO EFFECT"
^DD(355.93,.02,1,3,"DELETE CONDITION")="INTERNAL(OLD PROVIDER TYPE)=1"
^DD(355.93,.02,1,3,"DELETE VALUE")="@"
^DD(355.93,.02,1,3,"DT")="3000905"
^DD(355.93,.02,1,3,"FIELD")="STREET ADDRESS"
^DD(355.93,.02,1,4,0)="^^TRIGGER^355.93^.06"
^DD(355.93,.02,1,4,1)="Q"
^DD(355.93,.02,1,4,2)="X ^DD(355.93,.02,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=355.93,DIG=.06 D ^DICR"
^DD(355.93,.02,1,4,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^DD(355.93,.02,1,4,3)="Do not delete"
^DD(355.93,.02,1,4,"%D",0)="^^2^2^3000905^"
^DD(355.93,.02,1,4,"%D",1,0)="This trigger deletes the value of the CITY field if the type is no"
^DD(355.93,.02,1,4,"%D",2,0)="longer a facility type provider."
^DD(355.93,.02,1,4,"CREATE VALUE")="NO EFFECT"
^DD(355.93,.02,1,4,"DELETE CONDITION")="INTERNAL(OLD PROVIDER TYPE)=1"
^DD(355.93,.02,1,4,"DELETE VALUE")="@"
^DD(355.93,.02,1,4,"DT")="3000905"
^DD(355.93,.02,1,4,"FIELD")="CITY"
^DD(355.93,.02,1,5,0)="^^TRIGGER^355.93^.07"
^DD(355.93,.02,1,5,1)="Q"
^DD(355.93,.02,1,5,2)="X ^DD(355.93,.02,1,5,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=355.93,DIG=.07 D ^DICR"
^DD(355.93,.02,1,5,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^DD(355.93,.02,1,5,3)="Do not delete"
^DD(355.93,.02,1,5,"%D",0)="^^2^2^3000905^"
^DD(355.93,.02,1,5,"%D",1,0)="This trigger deletes the value of the STATE field if the type is no"
^DD(355.93,.02,1,5,"%D",2,0)="longer a facility type provider."
^DD(355.93,.02,1,5,"CREATE VALUE")="NO EFFECT"
^DD(355.93,.02,1,5,"DELETE CONDITION")="INTERNAL(OLD PROVIDER TYPE)=1"
^DD(355.93,.02,1,5,"DELETE VALUE")="@"
^DD(355.93,.02,1,5,"DT")="3000905"
^DD(355.93,.02,1,5,"FIELD")="STATE"
^DD(355.93,.02,1,6,0)="^^TRIGGER^355.93^.08"
^DD(355.93,.02,1,6,1)="Q"
^DD(355.93,.02,1,6,2)="X ^DD(355.93,.02,1,6,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=355.93,DIG=.08 D ^DICR"
^DD(355.93,.02,1,6,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^DD(355.93,.02,1,6,3)="Do not delete"
^DD(355.93,.02,1,6,"%D",0)="^^2^2^3000905^"
^DD(355.93,.02,1,6,"%D",1,0)="This trigger deletes the value of the ZIP CODE field if the type is no"
^DD(355.93,.02,1,6,"%D",2,0)="longer a facility type provider."
^DD(355.93,.02,1,6,"CREATE VALUE")="NO EFFECT"
^DD(355.93,.02,1,6,"DELETE CONDITION")="INTERNAL(OLD PROVIDER TYPE)=1"
^DD(355.93,.02,1,6,"DELETE VALUE")="@"
^DD(355.93,.02,1,6,"DT")="3000905"
^DD(355.93,.02,1,6,"FIELD")="ZIP CODE"
^DD(355.93,.02,1,7,0)="^^TRIGGER^355.93^.09"
^DD(355.93,.02,1,7,1)="Q"
^DD(355.93,.02,1,7,2)="X ^DD(355.93,.02,1,7,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=355.93,DIG=.09 D ^DICR"
^DD(355.93,.02,1,7,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(355.93,.02,0)),U,3) S X=$P($P(Y(1),$C(59)_X_"":"",2),$C(59),1),X=X S X=X=1"
^DD(355.93,.02,1,7,3)="Do not delete"
^DD(355.93,.02,1,7,"%D",0)="^^2^2^3000905^"
^DD(355.93,.02,1,7,"%D",1,0)="This trigger deletes the value of the FACILITY DEFAULT ID NUMBER field"
^DD(355.93,.02,1,7,"%D",2,0)="if the type is no longer a facility type provider."
^DD(355.93,.02,1,7,"CREATE VALUE")="NO EFFECT"
^DD(355.93,.02,1,7,"DELETE CONDITION")="INTERNAL(OLD PROVIDER TYPE)=1"
^DD(355.93,.02,1,7,"DELETE VALUE")="@"
^DD(355.93,.02,1,7,"DT")="3000905"
^DD(355.93,.02,1,7,"FIELD")="FACILITY DEFAULT ID NUMBER"
^DD(355.93,.02,1,8,0)="^^TRIGGER^355.93^.13"
^DD(355.93,.02,1,8,1)="X ^DD(355.93,.02,1,8,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=""16"" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^DD(355.93,.02,1,8,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=Y(0),X=X S X=X=""1"",Y(1)=$G(X) S X=$P(Y(2),U,9)]"""",Y=X,X=Y(1),X=X&Y"
^DD(355.93,.02,1,8,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^DD(355.93,.02,1,8,"CREATE CONDITION")="INTERNAL(PROVIDER TYPE)=""1""&(FACILITY DEFAULT ID NUMBER]"""")"
^DD(355.93,.02,1,8,"CREATE VALUE")="""16"""
^DD(355.93,.02,1,8,"DELETE VALUE")="@"
^DD(355.93,.02,1,8,"DT")="3060314"
^DD(355.93,.02,1,8,"FIELD")="PRIMARY ID QUALIFIER"
^DD(355.93,.02,3)="Enter 1 or 2 to designate this entry as a facility or an individual."
^DD(355.93,.02,5,1,0)="355.93^.01^2"
^DD(355.93,.02,5,2,0)="355.93^.01^3"
^DD(355.93,.02,21,0)="^^9^9^3060928^"
^DD(355.93,.02,21,1,0)="This field identifies the type of provider being defined.  Facility"
^DD(355.93,.02,21,2,0)="providers can be used to fill in the name and address of the non-VA"
^DD(355.93,.02,21,3,0)="facility where services were rendered (box 32 on the CMS-1500).  An"
^DD(355.93,.02,21,4,0)="individual provider can be selected as the rendering, attending,"
^DD(355.93,.02,21,5,0)="referring or operating provider on a bill."
^DD(355.93,.02,21,6,0)=" "
^DD(355.93,.02,21,7,0)="For name standarization purposes, individual provider names must be"
^DD(355.93,.02,21,8,0)="entered in LAST,FIRST MIDDLE format and facility names must not contain"
^DD(355.93,.02,21,9,0)="a comma."
^DD(355.93,.02,"DT")="3060928"
^DD(355.93,.03,0)="CREDENTIALS^FX^^0;3^K:$L(X)>3!($L(X)<1) X I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=2 K X"
^DD(355.93,.03,3)="Answer must be 1-3 characters in length."
^DD(355.93,.03,5,1,0)="355.93^.02^1"
^DD(355.93,.03,21,0)="^.001^2^2^3001004^^^^"
^DD(355.93,.03,21,1,0)="This is the 1 to 3 digits that represents the credentials for this"
^DD(355.93,.03,21,2,0)="provider.  This field is only valid for INDIVIDUAL providers."
^DD(355.93,.03,"DT")="3001005"
^DD(355.93,.04,0)="SPECIALTY^FX^^0;4^K:$L(X)>2!($L(X)<2) X I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=2 K X"
^DD(355.93,.04,3)="Answer must be 2 characters in length."
^DD(355.93,.04,5,1,0)="355.93^.02^2"
^DD(355.93,.04,21,0)="^.001^2^2^3000831^^^"
^DD(355.93,.04,21,1,0)="This is the 2 digits that represent the specialty for this provider."
^DD(355.93,.04,21,2,0)="This field is only valid for INDIVIDUAL providers."
^DD(355.93,.04,"DT")="3001005"
^DD(355.93,.05,0)="STREET ADDRESS^FX^^0;5^K:$L(X)>30!($L(X)<1) X I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=1 K X"
^DD(355.93,.05,3)="Answer must be 1-30 characters in length."
^DD(355.93,.05,5,1,0)="355.93^.02^3"
^DD(355.93,.05,21,0)="^.001^3^3^3000831^^^^"
^DD(355.93,.05,21,1,0)="This is the street address of the non-VA facility that rendered"
^DD(355.93,.05,21,2,0)="the care that is being billed by the VA.  It is only valid for FACILITY"
^DD(355.93,.05,21,3,0)="providers."
^DD(355.93,.05,"DT")="3001005"
^DD(355.93,.06,0)="CITY^FX^^0;6^K:$L(X)>20!($L(X)<1) X I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=1 K X"
^DD(355.93,.06,3)="Answer must be 1-20 characters in length."
^DD(355.93,.06,5,1,0)="355.93^.02^4"
^DD(355.93,.06,21,0)="^.001^2^2^3000831^^"
^DD(355.93,.06,21,1,0)="This is the city of the non-VA facility that rendered the care that is"
^DD(355.93,.06,21,2,0)="being billed by the VA.  It is only valid for FACILITY providers."
^DD(355.93,.06,"DT")="3001005"
^DD(355.93,.07,0)="STATE^P5'X^DIC(5,^0;7^I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=1 K X"
^DD(355.93,.07,3)="Enter a valid state where the facility is located"
^DD(355.93,.07,5,1,0)="355.93^.02^5"
^DD(355.93,.07,21,0)="^.001^2^2^3000831^^"
^DD(355.93,.07,21,1,0)="This is the state of the non-VA facility that rendered the care that is"
^DD(355.93,.07,21,2,0)="being billed by the VA.  It is only valid for FACILITY providers."
^DD(355.93,.07,"DT")="3001005"
^DD(355.93,.08,0)="ZIP CODE^FX^^0;8^K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1""-""4N)) X I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=1 K X"
^DD(355.93,.08,3)="Answer must be 5-10 characters in length."
^DD(355.93,.08,5,1,0)="355.93^.02^6"
^DD(355.93,.08,21,0)="^.001^2^2^3001004^^^^"
^DD(355.93,.08,21,1,0)="This is the zip code of the non-VA facility that rendered the care that"
^DD(355.93,.08,21,2,0)="is being billed by the VA.  It is only valid for FACILITY providers."
^DD(355.93,.08,"DT")="3001005"
^DD(355.93,.09,0)="FACILITY DEFAULT ID NUMBER^FX^^0;9^K:$L(X)>10!($L(X)<1) X I $D(X),$P($G(^IBA(355.93,DA,0)),U,2)'=1 K X"
^DD(355.93,.09,1,0)="^.1^^-1"
^DD(355.93,.09,1,1,0)="^^TRIGGER^355.93^.13"
^DD(355.93,.09,1,1,1)="X ^DD(355.93,.09,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=""16"" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^DD(355.93,.09,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S X=X=""1"",Y(2)=$G(X) S X=Y(0)]"""",Y=X,X=Y(2),X=X&Y"
^DD(355.93,.09,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(355.93,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=355.93,DIG=.13 D ^DICR"
^DD(355.93,.09,1,1,"CREATE CONDITION")="INTERNAL(PROVIDER TYPE)=""1""&(FACILITY DEFAULT ID NUMBER]"""")"
^DD(355.93,.09,1,1,"CREATE VALUE")="""16"""
^DD(355.93,.09,1,1,"DELETE VALUE")="@"
^DD(355.93,.09,1,1,"DT")="3060314"
^DD(355.93,.09,1,1,"FIELD")="PRIMARY ID QUALIFIER"
^DD(355.93,.09,3)="Enter the Federal Tax ID of the outside facility."
^DD(355.93,.09,5,1,0)="355.93^.02^7"
^DD(355.93,.09,21,0)="^^1^1^3060322^"
^DD(355.93,.09,21,1,0)="Enter the Federal Tax ID of the outside facility."
^DD(355.93,.09,"DT")="3060328"
^DD(355.93,.1,0)="STREET ADDRESS LINE 2^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(355.93,.1,3)="Answer must be 1-30 characters in length."
^DD(355.93,.1,21,0)="^^3^3^3030821^"
^DD(355.93,.1,21,1,0)="This is line 2 of the street address of the non-VA facility that rendered"
^DD(355.93,.1,21,2,0)="the care that is being billed by the VA.  It is only valid for FACILITY"
^DD(355.93,.1,21,3,0)="providers."
^DD(355.93,.1,"DT")="3030821"
^DD(355.93,.11,0)="X12 TYPE OF FACILITY^S^77:SERVICE LOCATION;FA:FACILITY;LI:INDEPENDENT LAB;TL:TESTING LAB;^0;11^Q"
^DD(355.93,.11,3)="Enter a code to describe the type of facility for professional claims. Type Facility (FA) will automatically be sent on institutional claims."
^DD(355.93,.11,21,0)="^^4^4^3070619^"
^DD(355.93,.11,21,1,0)="This is the code for the type of facility as identified in the X12"
^DD(355.93,.11,21,2,0)="documents.  It is used  to describe the type of facility for "
^DD(355.93,.11,21,3,0)="professional claims. Facility (FA) will automatically be sent on"
^DD(355.93,.11,21,4,0)="institutional claims."
^DD(355.93,.11,"DT")="3070619"
^DD(355.93,.12,0)="STATE LICENSE #^F^^0;12^K:$L(X)>30!($L(X)<1) X"
^DD(355.93,.12,3)="Answer must be 1-30 characters in length."
^DD(355.93,.12,21,0)="^^4^4^3030825^"
^DD(355.93,.12,21,1,0)="This is the State license # for the non-VA provider. Note, there can"
^DD(355.93,.12,21,2,0)="be only 1 state license # on file for non-VA/other VA providers."
^DD(355.93,.12,21,3,0)="Enter multiple entries for the provider if multiple state license"
^DD(355.93,.12,21,4,0)="numbers are required (one for each state)."
^DD(355.93,.12,"DT")="3030825"
^DD(355.93,.13,0)="PRIMARY ID QUALIFIER^*P355.97'^IBE(355.97,^0;13^S DIC(""S"")=""I $P($G(^(1)),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(355.93,.13,3)="The only Qualifier allowed is the TAX ID."
^DD(355.93,.13,5,1,0)="355.93^.09^1"
^DD(355.93,.13,5,2,0)="355.93^.02^8"
^DD(355.93,.13,12)="Only TAX ID allowed"
^DD(355.93,.13,12.1)="S DIC(""S"")=""I $P($G(^(1)),U,4)"""
^DD(355.93,.13,21,0)="^^1^1^3060309^"
^DD(355.93,.13,21,1,0)="This is the Qualifier associated with the FACILITY DEFAULT ID NUMBER. "
^DD(355.93,.13,"DT")="3060309"
^DD(355.93,.15,0)="MAMMOGRAPHY CERTIFICATION #^F^^0;15^K:$L(X)>15!($L(X)<3) X"
^DD(355.93,.15,3)="Enter the Mammography Certification Number for this facility.   Must be 3-15 characters."
^DD(355.93,.15,21,0)="^^3^3^3060309^"
^DD(355.93,.15,21,1,0)="This is the mammography certification number for the non-VA facility which"
^DD(355.93,.15,21,2,0)="is used as a default on the claim when mammography services are performed."
^DD(355.93,.15,21,3,0)="It is required by some insurance companies."
^DD(355.93,.15,"DT")="3060309"
^DD(355.93,40,0)="DATE/TIME OF LAST NPI CHANGE^355.9301DA^^NPISTATUS;0"
^DD(355.93,41.01,0)="NPI^FX^^0;14^K:$L(X)>10!($L(X)<10)!'$$CHKDGT^XUSNPI(X)!$$NPIUSED^IBCEP81(X) X"
^DD(355.93,41.01,1,0)="^.1"
^DD(355.93,41.01,1,1,0)="355.93^NPI"
^DD(355.93,41.01,1,1,1)="S ^IBA(355.93,""NPI"",$E(X,1,30),DA)="""""
^DD(355.93,41.01,1,1,2)="K ^IBA(355.93,""NPI"",$E(X,1,30),DA)"
^DD(355.93,41.01,1,1,"%D",0)="^^1^1^3060914^"
^DD(355.93,41.01,1,1,"%D",1,0)="This cross reference holds a list of the active NPIs in this file."
^DD(355.93,41.01,1,1,"DT")="3060728"
^DD(355.93,41.01,1,2,0)="355.93^NPIHISTORY"
^DD(355.93,41.01,1,2,1)="S ^IBA(355.93,""NPIHISTORY"",$E(X,1,30),DA)="""""
^DD(355.93,41.01,1,2,2)="K ^IBA(355.93,""NPIHISTORY"",$E(X,1,30),DA)"
^DD(355.93,41.01,1,2,3)="An entry into the NPI History cross reference should not be deleted"
^DD(355.93,41.01,1,2,"%D",0)="^.101^2^2^3060914^^"
^DD(355.93,41.01,1,2,"%D",1,0)="This cross reference holds the entire history of the NPIs used in the "
^DD(355.93,41.01,1,2,"%D",2,0)="file."
^DD(355.93,41.01,1,2,"DT")="3060914"
^DD(355.93,41.01,3)="Answer must be 10 characters in length and a valid unique NPI number."
^DD(355.93,41.01,21,0)="^.001^2^2^3060728^^"
^DD(355.93,41.01,21,1,0)="Unique National Provider Identifier.  A unique integer assigned to a "
^DD(355.93,41.01,21,2,0)="provider by CMS.  This field contains the current NPI for this provider."
^DD(355.93,41.01,"DT")="3060914"
^DD(355.93,42,0)="TAXONOMY CODE^355.9342IP^^TAXONOMY;0"
^DD(355.93,"B","CITY",.06)=""
^DD(355.93,"B","CREDENTIALS",.03)=""
^DD(355.93,"B","DATE/TIME OF LAST NPI CHANGE",40)=""
^DD(355.93,"B","FACILITY DEFAULT ID NUMBER",.09)=""
^DD(355.93,"B","MAMMOGRAPHY CERTIFICATION #",.15)=""
^DD(355.93,"B","NAME",.01)=""
^DD(355.93,"B","NPI",41.01)=""
^DD(355.93,"B","PRIMARY ID QUALIFIER",.13)=""
^DD(355.93,"B","PROVIDER TYPE",.02)=""
^DD(355.93,"B","SPECIALTY",.04)=""
^DD(355.93,"B","STATE",.07)=""
^DD(355.93,"B","STATE LICENSE #",.12)=""
^DD(355.93,"B","STREET ADDRESS",.05)=""
^DD(355.93,"B","STREET ADDRESS LINE 2",.1)=""
^DD(355.93,"B","TAXONOMY CODE",42)=""
^DD(355.93,"B","X12 TYPE OF FACILITY",.11)=""
^DD(355.93,"B","ZIP CODE",.08)=""
^DD(355.93,"GL",0,1,.01)=""
^DD(355.93,"GL",0,2,.02)=""
^DD(355.93,"GL",0,3,.03)=""
^DD(355.93,"GL",0,4,.04)=""
^DD(355.93,"GL",0,5,.05)=""
^DD(355.93,"GL",0,6,.06)=""
^DD(355.93,"GL",0,7,.07)=""
^DD(355.93,"GL",0,8,.08)=""
^DD(355.93,"GL",0,9,.09)=""
^DD(355.93,"GL",0,10,.1)=""
^DD(355.93,"GL",0,11,.11)=""
^DD(355.93,"GL",0,12,.12)=""
^DD(355.93,"GL",0,13,.13)=""
^DD(355.93,"GL",0,14,41.01)=""
^DD(355.93,"GL",0,15,.15)=""
^DD(355.93,"GL","NPISTATUS",0,40)=""
^DD(355.93,"GL","TAXONOMY",0,42)=""
^DD(355.93,"IX",.01)=""
^DD(355.93,"IX",.02)=""
^DD(355.93,"IX",.09)=""
^DD(355.93,"IX",41.01)=""
^DD(355.93,"RQ",.01)=""
^DD(355.93,"SB",355.9301,40)=""
^DD(355.93,"SB",355.9342,42)=""
^DD(355.9301,0)="DATE/TIME OF LAST NPI CHANGE SUB-FIELD^^.04^4"
^DD(355.9301,0,"DT")="3061218"
^DD(355.9301,0,"IX","B",355.9301,.01)=""
^DD(355.9301,0,"IX","C",355.9301,.03)=""
^DD(355.9301,0,"IX","NPISTATUS",355.9301,.02)=""
^DD(355.9301,0,"NM","DATE/TIME OF LAST NPI CHANGE")=""
^DD(355.9301,0,"UP")="355.93"
^DD(355.9301,.01,0)="DATE/TIME OF LAST NPI CHANGE^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(355.9301,.01,1,0)="^.1"
^DD(355.9301,.01,1,1,0)="355.9301^B"
^DD(355.9301,.01,1,1,1)="S ^IBA(355.93,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(355.9301,.01,1,1,2)="K ^IBA(355.93,DA(1),""NPISTATUS"",""B"",$E(X,1,30),DA)"
^DD(355.9301,.01,3)="Enter the date/time of the last change to this NPI."
^DD(355.9301,.01,21,0)="^^1^1^3061218^"
^DD(355.9301,.01,21,1,0)="This is the date and time of the last change to the NPI value."
^DD(355.9301,.01,"DT")="3061218"
^DD(355.9301,.02,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(355.9301,.02,1,0)="^.1"
^DD(355.9301,.02,1,1,0)="355.9301^NPISTATUS"
^DD(355.9301,.02,1,1,1)="S ^IBA(355.93,DA(1),""NPISTATUS"",""NPISTATUS"",$E(X,1,30),DA)="""""
^DD(355.9301,.02,1,1,2)="K ^IBA(355.93,DA(1),""NPISTATUS"",""NPISTATUS"",$E(X,1,30),DA)"
^DD(355.9301,.02,1,1,"%D",0)="^^1^1^3061218^"
^DD(355.9301,.02,1,1,"%D",1,0)="This cross reference is for identifying active, inactive, or deleted NPIs."
^DD(355.9301,.02,1,1,"DT")="3061218"
^DD(355.9301,.02,3)="Enter a 1 for 'ACTIVE', 0 for 'INACTIVE'"
^DD(355.9301,.02,21,0)="^.001^4^4^3070511^^^^"
^DD(355.9301,.02,21,1,0)="The Status of an NPI is either 'ACTIVE' or 'INACTIVE'."
^DD(355.9301,.02,21,2,0)="If 'ACTIVE', then the NPI will be accessible by end-users to document a "
^DD(355.9301,.02,21,3,0)="particular provider. If 'INACTIVE', then the NPI will only be accessible "
^DD(355.9301,.02,21,4,0)="by the application to display legacy data."
^DD(355.9301,.02,"DT")="3061218"
^DD(355.9301,.03,0)="NPI^FX^^0;3^K:$L(X)>10!($L(X)<10)!('$$CHKDGT^XUSNPI(X)) X"
^DD(355.9301,.03,1,0)="^.1"
^DD(355.9301,.03,1,1,0)="355.9301^C"
^DD(355.9301,.03,1,1,1)="S ^IBA(355.93,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)="""""
^DD(355.9301,.03,1,1,2)="K ^IBA(355.93,DA(1),""NPISTATUS"",""C"",$E(X,1,30),DA)"
^DD(355.9301,.03,1,1,"%D",0)="^^3^3^3061218^"
^DD(355.9301,.03,1,1,"%D",1,0)="This x-ref (along with the NPI42 whole file x-ref) is used by Kernel when "
^DD(355.9301,.03,1,1,"%D",2,0)="checking for existing NPI entries in this file before allowing them to be "
^DD(355.9301,.03,1,1,"%D",3,0)="used in files 200 (NEW PERSON) or 4 (INSTITUTION)."
^DD(355.9301,.03,1,1,"DT")="3061218"
^DD(355.9301,.03,3)="Answer must be 10 characters in length."
^DD(355.9301,.03,21,0)="^^5^5^3061218^"
^DD(355.9301,.03,21,1,0)="Unique National Provider Identifier. A unique integer assigned to "
^DD(355.9301,.03,21,2,0)="providers by CMS. This field contains all of the NPIs associated with "
^DD(355.9301,.03,21,3,0)="this provider. The current NPI will be set as active in the STATUS field "
^DD(355.9301,.03,21,4,0)="of this multiple. All others will be set as inactive. There can only be "
^DD(355.9301,.03,21,5,0)="one active NPI."
^DD(355.9301,.03,"DT")="3061218"
^DD(355.9301,.04,0)="PERSON AFFECTING LAST CHANGE^P200'^VA(200,^0;4^Q"
^DD(355.9301,.04,3)="Enter the name of the person last changing this NPI."
^DD(355.9301,.04,21,0)="^^1^1^3061218^"
^DD(355.9301,.04,21,1,0)="This is the name of the person who last changed the NPI."
^DD(355.9301,.04,"DT")="3061218"
^DD(355.9301,"B","DATE/TIME OF LAST NPI CHANGE",.01)=""
^DD(355.9301,"B","NPI",.03)=""
^DD(355.9301,"B","PERSON AFFECTING LAST CHANGE",.04)=""
^DD(355.9301,"B","STATUS",.02)=""
^DD(355.9301,"GL",0,1,.01)=""
^DD(355.9301,"GL",0,2,.02)=""
^DD(355.9301,"GL",0,3,.03)=""
^DD(355.9301,"GL",0,4,.04)=""
^DD(355.9301,"IX",.01)=""
^DD(355.9301,"IX",.02)=""
^DD(355.9301,"IX",.03)=""
^DD(355.9342,0)="TAXONOMY CODE SUB-FIELD^^.03^3"
^DD(355.9342,0,"DT")="3060830"
^DD(355.9342,0,"ID","X12")=""
^DD(355.9342,0,"IX","B",355.9342,.01)=""
^DD(355.9342,0,"IX","D",355.9342,.02)=""
^DD(355.9342,0,"NM","TAXONOMY CODE")=""
^DD(355.9342,0,"UP")="355.93"
^DD(355.9342,.01,0)="TAXONOMY CODE^M*P8932.1'^USC(8932.1,^0;1^S DIC(""S"")=""I $TR($P($G(^(90002)),U,2),""""IN"""",""""21"""")=$P(^IBA(355.93,DA(1),0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(355.9342,.01,1,0)="^.1"
^DD(355.9342,.01,1,1,0)="355.9342^B"
^DD(355.9342,.01,1,1,1)="S ^IBA(355.93,DA(1),""TAXONOMY"",""B"",$E(X,1,30),DA)="""""
^DD(355.9342,.01,1,1,2)="K ^IBA(355.93,DA(1),""TAXONOMY"",""B"",$E(X,1,30),DA)"
^DD(355.9342,.01,3)="Enter the NUCC recognized taxonomy code"
^DD(355.9342,.01,12)="INDIVIDUAL/NON-INDIVIDUAL (FACILITY)"
^DD(355.9342,.01,12.1)="S DIC(""S"")=""I $TR($P($G(^(90002)),U,2),""""IN"""",""""21"""")=$P(^IBA(355.93,DA(1),0),U,2)"""
^DD(355.9342,.01,21,0)="^.001^2^2^3060830^^^^"
^DD(355.9342,.01,21,1,0)="This multiple field holds the NUCC recognized taxonomy code for an "
^DD(355.9342,.01,21,2,0)="individual or an organization."
^DD(355.9342,.01,"DEL",1,0)="I 1 W *7,!,""TAXONOMY CODES SHOULD NOT BE DELETED. SET THE STATUS FLAG TO INACTIVE INSTEAD."""
^DD(355.9342,.01,"DT")="3060830"
^DD(355.9342,.02,0)="PRIMARY CODE^RS^1:YES;0:NO;^0;2^Q"
^DD(355.9342,.02,1,0)="^.1"
^DD(355.9342,.02,1,1,0)="355.9342^D^MUMPS"
^DD(355.9342,.02,1,1,1)="D XR^IBCEP82"
^DD(355.9342,.02,1,1,2)="D KXR^IBCEP82"
^DD(355.9342,.02,1,1,"%D",0)="^^2^2^3060613^"
^DD(355.9342,.02,1,1,"%D",1,0)="This x-ref is used to make sure that a maximum of one taxonomy is allowed "
^DD(355.9342,.02,1,1,"%D",2,0)="to be marked as primary."
^DD(355.9342,.02,1,1,"DT")="3060613"
^DD(355.9342,.02,3)="Enter a 1 if this is the provider's primary taxonomy code or a 0 for non-primary."
^DD(355.9342,.02,21,0)="^.001^3^3^3060824^^"
^DD(355.9342,.02,21,1,0)="Only one code can be the primary taxonomy code for a provider.  When a "
^DD(355.9342,.02,21,2,0)="specific taxonomy code is identified as the primary code then that "
^DD(355.9342,.02,21,3,0)="code will be the default taxonomy code."
^DD(355.9342,.02,"DT")="3060824"
^DD(355.9342,.03,0)="STATUS^RS^A:ACTIVE;I:INACTIVE;^0;3^Q"
^DD(355.9342,.03,1,0)="^.1"
^DD(355.9342,.03,1,1,0)="355.93^TAXSTATUS"
^DD(355.9342,.03,1,1,1)="S ^IBA(355.93,""TAXSTATUS"",$E(X,1,30),DA(1),DA)="""""
^DD(355.9342,.03,1,1,2)="K ^IBA(355.93,""TAXSTATUS"",$E(X,1,30),DA(1),DA)"
^DD(355.9342,.03,1,1,"DT")="3060501"
^DD(355.9342,.03,3)="Enter an 'A' for active code, or an 'I' for an inactive code."
^DD(355.9342,.03,21,0)="^.001^5^5^3060824^^"
^DD(355.9342,.03,21,1,0)="If a taxonomy code listed for a provider is a currently active code (one"
^DD(355.9342,.03,21,2,0)="they use today), then the status should be marked with an 'A'.  At times a"
^DD(355.9342,.03,21,3,0)="provider will no longer use a taxonomy code.  This code will be marked"
^DD(355.9342,.03,21,4,0)="with an 'I' for inactive.  Codes should not be removed from a provider's"
^DD(355.9342,.03,21,5,0)="list.  They should be either active or inactive."
^DD(355.9342,.03,"DT")="3060824"
^DD(355.9342,"B","PRIMARY CODE",.02)=""
^DD(355.9342,"B","STATUS",.03)=""
^DD(355.9342,"B","TAXONOMY CODE",.01)=""
^DD(355.9342,"GL",0,1,.01)=""
^DD(355.9342,"GL",0,2,.02)=""
^DD(355.9342,"GL",0,3,.03)=""
^DD(355.9342,"IX",.01)=""
^DD(355.9342,"IX",.02)=""
^DD(355.9342,"IX",.03)=""
^DD(355.9342,"RQ",.02)=""
^DD(355.9342,"RQ",.03)=""
^DD(355.95,0)="FIELD^^.03^4"
^DD(355.95,0,"DDA")="N"
^DD(355.95,0,"DT")="3010426"
^DD(355.95,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(355.95,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(36,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(36,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.95,0,"IX","B",355.95,.01)=""
^DD(355.95,0,"NM","IB PROVIDER ID CARE UNIT")=""
^DD(355.95,0,"PT",355.92,.03)=""
^DD(355.95,0,"PT",355.96,.01)=""
^DD(355.95,0,"VR")="2.0"
^DD(355.95,0,"VRPK")="IB"
^DD(355.95,.01,0)="CARE UNIT^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(355.95,.01,1,0)="^.1"
^DD(355.95,.01,1,1,0)="355.95^B"
^DD(355.95,.01,1,1,1)="S ^IBA(355.95,""B"",$E(X,1,30),DA)="""""
^DD(355.95,.01,1,1,2)="K ^IBA(355.95,""B"",$E(X,1,30),DA)"
^DD(355.95,.01,3)="Answer must be 1-30 characters in length."
^DD(355.95,.01,21,0)="^.001^5^5^3010430^^^^"
^DD(355.95,.01,21,1,0)="This is the care unit value that will be used by the insurance co"
^DD(355.95,.01,21,2,0)="to identify a particular provider on a bill."
^DD(355.95,.01,21,3,0)="The definition of care value is specific to the insurance co, but"
^DD(355.95,.01,21,4,0)="usually indicates an area or type of care that the insurance co"
^DD(355.95,.01,21,5,0)="wants to use to categorize the care being issued by the care-giver."
^DD(355.95,.01,"DEL",.01,0)="I $D(^IBA(355.96,""ACARE"",D0)) D EN^DDIOL(""Can't delete this entry - a provider ID is still using it"","""",""?5"")"
^DD(355.95,.01,"DEL",1,0)="I $O(^IBA(355.96,""AE"",DA,0)) D EN^DDIOL(""Can't be deleted - at least 1 ins co is still referencing it"","""",""!,*7,?6"")"
^DD(355.95,.01,"DT")="3010426"
^DD(355.95,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(355.95,.02,3)="Answer must be 1-50 characters in length."
^DD(355.95,.02,21,0)="^.001^3^3^3010426^^^^"
^DD(355.95,.02,21,1,0)="This is a short description of the care unit.  It will be displayed"
^DD(355.95,.02,21,2,0)="next to the value whenever a lookup on this entry is done.  This is an"
^DD(355.95,.02,21,3,0)="optional field that may be 1-50 characters in length."
^DD(355.95,.02,"DT")="3010328"
^DD(355.95,.03,0)="INSURANCE COMPANY^RP36'^DIC(36,^0;3^Q"
^DD(355.95,.03,3)="ENTER THE NAME OF THE INSURANCE CO"
^DD(355.95,.03,21,0)="^^1^1^3010426^"
^DD(355.95,.03,21,1,0)="This is the insurance company that is using this care unit"
^DD(355.95,.03,"DT")="3010427"
^DD(355.95,.04,0)="DIVISION^P40.8'^DG(40.8,^0;4^Q"
^DD(355.95,.04,1,0)="^.1^^0"
^DD(355.95,.04,3)="Enter the Division that this Care Unit is associated with."
^DD(355.95,.04,21,0)="^^4^4^3060309^"
^DD(355.95,.04,21,1,0)="This is the division for which the care unit is being defined for this "
^DD(355.95,.04,21,2,0)="insurance company.  Entries with divisions are for billing provider "
^DD(355.95,.04,21,3,0)="secondary IDs while those with out divisions are used for people providers"
^DD(355.95,.04,21,4,0)="(rendering/attending, referring, etc)   "
^DD(355.95,.04,"DT")="3060309"
^DD(355.95,"B","CARE UNIT",.01)=""
^DD(355.95,"B","DESCRIPTION",.02)=""
^DD(355.95,"B","DIVISION",.04)=""
^DD(355.95,"B","INSURANCE COMPANY",.03)=""
^DD(355.95,"GL",0,1,.01)=""
^DD(355.95,"GL",0,2,.02)=""
^DD(355.95,"GL",0,3,.03)=""
^DD(355.95,"GL",0,4,.04)=""
^DD(355.95,"IX",.01)=""
^DD(355.95,"RQ",.01)=""
^DD(355.95,"RQ",.03)=""
^DD(355.96,0)="FIELD^^.06^5"
^DD(355.96,0,"DDA")="N"
^DD(355.96,0,"DT")="3010801"
^DD(355.96,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.96,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(355.96,0,"ID",.05)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(355.96,.05,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(355.96,0,"ID",.06)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(355.97,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(355.97,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(355.96,0,"IX","B",355.96,.01)=""
^DD(355.96,0,"IX","C",355.96,.06)=""
^DD(355.96,0,"NM","IB INS CO PROVIDER ID CARE UNIT")=""
^DD(355.96,0,"PT",355.9,.03)=""
^DD(355.96,0,"PT",355.91,.03)=""
^DD(355.96,0,"PT",399.0222,.09)=""
^DD(355.96,0,"PT",399.0222,.1)=""
^DD(355.96,0,"PT",399.0222,.11)=""
^DD(355.96,0,"PT",399.0222,1.01)=""
^DD(355.96,0,"PT",399.0222,1.02)=""
^DD(355.96,0,"PT",399.0222,1.03)=""
^DD(355.96,0,"VR")="2.0"
^DD(355.96,0,"VRPK")="IB"
^DD(355.96,.01,0)="CARE UNIT^R*P355.95^IBA(355.95,^0;1^S DIC(""S"")=""I $S('$P($G(^IBA(355.95,+Y,0)),U,3):1,1:$P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(355.96,.01,1,0)="^.1"
^DD(355.96,.01,1,1,0)="355.96^B"
^DD(355.96,.01,1,1,1)="S ^IBA(355.96,""B"",$E(X,1,30),DA)="""""
^DD(355.96,.01,1,1,2)="K ^IBA(355.96,""B"",$E(X,1,30),DA)"
^DD(355.96,.01,1,2,0)="^^TRIGGER^355.96^.04"
^DD(355.96,.01,1,2,1)="X ^DD(355.96,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=0 S DIH=$G(^IBA(355.96,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=355.96,DIG=.04 D ^DICR"
^DD(355.96,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(355.96,.04,0)),U,3),Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,4)_"":"",2),$C(59),1)="""""
^DD(355.96,.01,1,2,2)="Q"
^DD(355.96,.01,1,2,3)="Do not delete"
^DD(355.96,.01,1,2,"%D",0)="^^1^1^3000911^"
^DD(355.96,.01,1,2,"%D",1,0)="This xref defaults the FORM TYPE APPLIED TO field to be both form types"
^DD(355.96,.01,1,2,"CREATE CONDITION")="FORM TYPE APPLIED TO="""""
^DD(355.96,.01,1,2,"CREATE VALUE")="S X=0"
^DD(355.96,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(355.96,.01,1,2,"DT")="3000911"
^DD(355.96,.01,1,2,"FIELD")="FORM TYPE APPLIED TO"
^DD(355.96,.01,1,3,0)="^^TRIGGER^355.96^.05"
^DD(355.96,.01,1,3,1)="X ^DD(355.96,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=0 S DIH=$G(^IBA(355.96,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=355.96,DIG=.05 D ^DICR"
^DD(355.96,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(355.96,.05,0)),U,3),Y(1)=$S($D(^IBA(355.96,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)="""""
^DD(355.96,.01,1,3,2)="Q"
^DD(355.96,.01,1,3,3)="Do not delete"
^DD(355.96,.01,1,3,"%D",0)="^^2^2^3000911^"
^DD(355.96,.01,1,3,"%D",1,0)="This xref defaults the BILL CARE TYPE field to be both inpatient and"
^DD(355.96,.01,1,3,"%D",2,0)="outpatient."
^DD(355.96,.01,1,3,"CREATE CONDITION")="BILL CARE TYPE="""""
^DD(355.96,.01,1,3,"CREATE VALUE")="S X=0"
^DD(355.96,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(355.96,.01,1,3,"DT")="3000911"
^DD(355.96,.01,1,3,"FIELD")="BILL CARE TYPE"
^DD(355.96,.01,3)="Enter the name of a care unit"
^DD(355.96,.01,12)="Must be a care unit for the same insurance co"
^DD(355.96,.01,12.1)="S DIC(""S"")=""I $S('$P($G(^IBA(355.95,+Y,0)),U,3):1,1:$P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)))"""
^DD(355.96,.01,21,0)="^^2^2^3010801^"
^DD(355.96,.01,21,1,0)="This is the care unit for which the insurance company requires"
^DD(355.96,.01,21,2,0)="a specific provider id number."
^DD(355.96,.01,"DEL",.01,0)="I $O(^IBA(355.91,""ACARE"",D0,0))!$O(^IBA(355.9,""ACARE"",D0,0)) D EN^DDIOL(""Can't delete this entry - a provider ID is still using it"","""",""?5"")"
^DD(355.96,.01,"DT")="3010801"
^DD(355.96,.03,0)="INSURANCE COMPANY^R*P36'^DIC(36,^0;3^S DIC(""S"")=""I $P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(355.96,.03,3)="This is the insurance company that is associated with the selected care"
^DD(355.96,.03,12)="Care unit must be defined for the same insurance company"
^DD(355.96,.03,12.1)="S DIC(""S"")=""I $P($G(^IBA(355.95,+Y,0)),U,3)=+$G(^IBA(355.96,+$G(DA),0)),U,3)"""
^DD(355.96,.03,21,0)="^^2^2^3010801^"
^DD(355.96,.03,21,1,0)="This is the insurance company that is associated with the selected care"
^DD(355.96,.03,21,2,0)="type."
^DD(355.96,.03,"DT")="3010801"
^DD(355.96,.04,0)="FORM TYPE APPLIED TO^RS^0:BOTH UB-04 AND CMS-1500 FORMS;1:UB-04 FORM ONLY;2:CMS-1500 FORM ONLY;^0;4^Q"
^DD(355.96,.04,3)="Select one or both forms that the provider id will apply to."
^DD(355.96,.04,5,1,0)="355.96^.01^2"
^DD(355.96,.04,21,0)="^^2^2^3070116^"
^DD(355.96,.04,21,1,0)="This designates whether the id number is to be used for just"
^DD(355.96,.04,21,2,0)="UB-04 form types, just CMS-1500 form types or both form types."
^DD(355.96,.04,"DT")="3070116"
^DD(355.96,.05,0)="BILL CARE TYPE^RS^0:BOTH INPATIENT AND OUTPATIENT;1:INPATIENT ONLY;2:OUTPATIENT ONLY;3:PRESCRIPTION ONLY;^0;5^Q"
^DD(355.96,.05,3)="Enter the type of care (inpatient/outpatient/Rx) that this id # will apply to."
^DD(355.96,.05,5,1,0)="355.96^.01^3"
^DD(355.96,.05,21,0)="^.001^3^3^3000911^^"
^DD(355.96,.05,21,1,0)="This designates whether the id number is to be used for just"
^DD(355.96,.05,21,2,0)="inpatient bills, just outpatient bills, both inpatient and"
^DD(355.96,.05,21,3,0)="outpatient bills or just prescriptions."
^DD(355.96,.05,"DT")="3010801"
^DD(355.96,.06,0)="ID TYPE^R*P355.97'^IBE(355.97,^0;6^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(355.96,.06,1,0)="^.1"
^DD(355.96,.06,1,1,0)="355.96^C"
^DD(355.96,.06,1,1,1)="S ^IBA(355.96,""C"",$E(X,1,30),DA)="""""
^DD(355.96,.06,1,1,2)="K ^IBA(355.96,""C"",$E(X,1,30),DA)"
^DD(355.96,.06,1,1,3)="Do not delete"
^DD(355.96,.06,1,1,"%D",0)="^^1^1^3000928^"
^DD(355.96,.06,1,1,"%D",1,0)="Allow lookup by provider id type"
^DD(355.96,.06,1,1,"DT")="3000928"
^DD(355.96,.06,3)="Enter the provider id type that this care unit is to apply to."
^DD(355.96,.06,12)="Must be for a type that includes insurance co"
^DD(355.96,.06,12.1)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)"""
^DD(355.96,.06,21,0)="^.001^2^2^3000911^^"
^DD(355.96,.06,21,1,0)="This is the type of provider ID that the set of care unit is being"
^DD(355.96,.06,21,2,0)="defined for."
^DD(355.96,.06,"DT")="3060418"
^DD(355.96,"B","BILL CARE TYPE",.05)=""
^DD(355.96,"B","CARE UNIT",.01)=""
^DD(355.96,"B","FORM TYPE APPLIED TO",.04)=""
^DD(355.96,"B","ID TYPE",.06)=""
^DD(355.96,"B","INSURANCE COMPANY",.03)=""
^DD(355.96,"GL",0,1,.01)=""
^DD(355.96,"GL",0,3,.03)=""
^DD(355.96,"GL",0,4,.04)=""
^DD(355.96,"GL",0,5,.05)=""
^DD(355.96,"GL",0,6,.06)=""
^DD(355.96,"IX",.01)=""
^DD(355.96,"IX",.06)=""
^DD(355.96,"RQ",.01)=""
^DD(355.96,"RQ",.03)=""
^DD(355.96,"RQ",.04)=""
^DD(355.96,"RQ",.05)=""
^DD(355.96,"RQ",.06)=""
^DD(355.97,0)="FIELD^^.08^17"
^DD(355.97,0,"DDA")="N"
^DD(355.97,0,"DT")="3060928"
^DD(355.97,0,"ID",.02)="W """""
^DD(355.97,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(355.97,0,"IX","B",355.97,.01)=""
^DD(355.97,0,"IX","C",355.97,.03)=""
^DD(355.97,0,"NM","IB PROVIDER ID # TYPE")=""
^DD(355.97,0,"PT",36,4.01)=""
^DD(355.97,0,"PT",36,4.02)=""
^DD(355.97,0,"PT",36,4.04)=""
^DD(355.97,0,"PT",36,4.1)=""
^DD(355.97,0,"PT",355.9,.06)=""
^DD(355.97,0,"PT",355.91,.06)=""
^DD(355.97,0,"PT",355.92,.06)=""
^DD(355.97,0,"PT",355.93,.13)=""
^DD(355.97,0,"PT",355.96,.06)=""
^DD(355.97,0,"PT",399,128)=""
^DD(355.97,0,"PT",399,129)=""
^DD(355.97,0,"PT",399,130)=""
^DD(355.97,0,"PT",399.0222,.12)=""
^DD(355.97,0,"PT",399.0222,.13)=""
^DD(355.97,0,"PT",399.0222,.14)=""
^DD(355.97,0,"VR")="2.0"
^DD(355.97,0,"VRPK")="IB"
^DD(355.97,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(355.97,.01,1,0)="^.1"
^DD(355.97,.01,1,1,0)="355.97^B"
^DD(355.97,.01,1,1,1)="S ^IBE(355.97,""B"",$E(X,1,30),DA)="""""
^DD(355.97,.01,1,1,2)="K ^IBE(355.97,""B"",$E(X,1,30),DA)"
^DD(355.97,.01,3)="Answer must be 3-30 characters in length."
^DD(355.97,.01,21,0)="^^1^1^3010724^"
^DD(355.97,.01,21,1,0)="This is the name used to describe the provider id type."
^DD(355.97,.01,"DT")="3010724"
^DD(355.97,.02,0)="SOURCE LEVEL MINIMUM^RS^0:NONE;1:LICENSING/GOVT AGENCY - EACH PROV;2:FACILITY - ALL PROV;3:INSURANCE CO - ALL PROV;4:INSURANCE CO - EACH PROV;5:INSURANCE CO - ALL PROV BY CARE UNIT;^0;2^Q"
^DD(355.97,.02,3)="Enter the code that describes how this id type MUST be assigned or 0 for NO minimum requirements"
^DD(355.97,.02,21,0)="^.001^4^4^3031217^^^^"
^DD(355.97,.02,21,1,0)="This is the minimum level or criteria of data that MUST be used to search"
^DD(355.97,.02,21,2,0)="for this type of ID number for a provider.  If this field is zero or"
^DD(355.97,.02,21,3,0)="blank, there are no minimum data requirements to search for an ID for"
^DD(355.97,.02,21,4,0)="this id type."
^DD(355.97,.02,"DT")="3031217"
^DD(355.97,.03,0)="X12 CODE^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^DD(355.97,.03,1,0)="^.1"
^DD(355.97,.03,1,1,0)="355.97^C"
^DD(355.97,.03,1,1,1)="S ^IBE(355.97,""C"",$E(X,1,30),DA)="""""
^DD(355.97,.03,1,1,2)="K ^IBE(355.97,""C"",$E(X,1,30),DA)"
^DD(355.97,.03,1,1,"DT")="3051208"
^DD(355.97,.03,3)="Answer must be 1-2 characters in length."
^DD(355.97,.03,21,0)="^^2^2^3000831^"
^DD(355.97,.03,21,1,0)="This is the X12 code that determines the qualifier to be output in the"
^DD(355.97,.03,21,2,0)="X12 data stream when reporting this type of provider ID number."
^DD(355.97,.03,"DT")="3051208"
^DD(355.97,.04,0)="FACILITY'S DEFAULT ID #^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(355.97,.04,3)="Answer must be 1-15 characters in length."
^DD(355.97,.04,21,0)="^.001^3^3^3001004^^^"
^DD(355.97,.04,21,1,0)="This is the number that will be the default for all providers for the"
^DD(355.97,.04,21,2,0)="id type at the facility if no number exists for the specific"
^DD(355.97,.04,21,3,0)="provider/ins. co/care unit combination."
^DD(355.97,.04,"DT")="3000907"
^DD(355.97,.05,0)="RESTRICT EDITING^S^0:NO;1:YES;^0;5^Q"
^DD(355.97,.05,3)="Enter 1 (YES) to prevent users from editing this id type's id #'s at the facility level"
^DD(355.97,.05,21,0)="^.001^2^2^3010207^^"
^DD(355.97,.05,21,1,0)="This field controls whether or not users may edit the id #'s for the"
^DD(355.97,.05,21,2,0)="provider type at the facility level."
^DD(355.97,.05,"DT")="3010207"
^DD(355.97,.06,0)="VALID FOR PERFORMING PROVIDER^S^0:NO;1:YES;^0;6^Q"
^DD(355.97,.06,3)="ENTER YES (1) IF THE ID TYPE IS VALID FOR PERFORMING ID"
^DD(355.97,.06,21,0)="^^2^2^3010509^"
^DD(355.97,.06,21,1,0)="This field indicates whether the id type is valid for performing"
^DD(355.97,.06,21,2,0)="provider ids."
^DD(355.97,.06,"DT")="3010509"
^DD(355.97,.07,0)="ALLOWABLE FORM TYPE^S^I:INSTITUTIONAL;P:PROFESSIONAL;B:BOTH INSTITUTIONAL AND PROFESSIONAL;^0;7^Q"
^DD(355.97,.07,3)="Enter I if this is used on UB type forms, P if used on CMS type forms, or B if used on either type."
^DD(355.97,.07,21,0)="^^2^2^3060309^"
^DD(355.97,.07,21,1,0)="This is a flag used to determine what type of form this qualifier is "
^DD(355.97,.07,21,2,0)="valid for.  It is used to validate provider id file set-up."
^DD(355.97,.07,"DT")="3061025"
^DD(355.97,.08,0)="ACTIVE^S^1:YES;0:NO;^0;8^Q"
^DD(355.97,.08,3)="Enter YES if this entry is Active or NO if it is In-Active"
^DD(355.97,.08,21,0)="^^2^2^3060419^"
^DD(355.97,.08,21,1,0)="This field must be set to YES to allow this qualifier to be selected.  Old"
^DD(355.97,.08,21,2,0)="entries that are no longer allowed should be set to NO."
^DD(355.97,.08,"DT")="3060419"
^DD(355.97,1.01,0)="STATE DEA#^SI^0:NO;1:YES;^1;1^Q"
^DD(355.97,1.01,3)="Enter a 1 (yes) if this is a state DEA # id type"
^DD(355.97,1.01,21,0)="^^2^2^3000907^"
^DD(355.97,1.01,21,1,0)="This is the flag that tells the system this id type is a state DEA # and"
^DD(355.97,1.01,21,2,0)="the data is stored in the NEW PERSON file by state."
^DD(355.97,1.01,"DT")="3000907"
^DD(355.97,1.02,0)="FEDERAL DEA#^SI^0:NO;1:YES;^1;2^Q"
^DD(355.97,1.02,3)="Enter a 1 (yes) if this is a federal DEA # id type"
^DD(355.97,1.02,21,0)="^.001^2^2^3010108^^^"
^DD(355.97,1.02,21,1,0)="This is the flag that tells the system this id type is a federal DEA #"
^DD(355.97,1.02,21,2,0)="and the data is stored in the NEW PERSON file.             "
^DD(355.97,1.02,"DT")="3010108"
^DD(355.97,1.03,0)="STATE LICENSE #^SI^0:NO;1:YES;^1;3^Q"
^DD(355.97,1.03,3)="Enter a 1 (yes) if this is a state license # id type"
^DD(355.97,1.03,21,0)="^^2^2^3000907^"
^DD(355.97,1.03,21,1,0)="This is the flag that tells the system this id type is a state license #"
^DD(355.97,1.03,21,2,0)="and the data is stored in the NEW PERSON file by state.             "
^DD(355.97,1.03,"DT")="3000907"
^DD(355.97,1.04,0)="FEDERAL TAX # - FACILITY^SI^0:NO;1:YES;^1;4^Q"
^DD(355.97,1.04,3)="Enter a 1 (yes) if this is a facility federal tax id # id type"
^DD(355.97,1.04,21,0)="^.001^2^2^3001004^^"
^DD(355.97,1.04,21,1,0)="This is the flag that tells the system this id type is a facility"
^DD(355.97,1.04,21,2,0)="federal tax id and the data is stored in the IB SITE PARAMETERS file."
^DD(355.97,1.04,"DT")="3000907"
^DD(355.97,1.05,0)="EMC ID TYPE^S^0:NO;1:YES;^1;5^Q"
^DD(355.97,1.05,3)="Enter yes if this type is for EMC ID #"
^DD(355.97,1.05,21,0)="^^1^1^3000913^"
^DD(355.97,1.05,21,1,0)="This is a flag to indicate if the record is for an EMC ID #"
^DD(355.97,1.05,"DT")="3000913"
^DD(355.97,1.06,0)="NETWORK ID TYPE^S^0:NO;1:YES;^1;6^Q"
^DD(355.97,1.06,3)="Enter yes if this type is for Network ID #"
^DD(355.97,1.06,21,0)="^^1^1^3000913^"
^DD(355.97,1.06,21,1,0)="This is a flag to indicate if the record is for a network id #."
^DD(355.97,1.06,"DT")="3000913"
^DD(355.97,1.07,0)="PROVIDER'S OWN ID^S^0:NO;1:YES;^1;7^Q"
^DD(355.97,1.07,3)="ENTER YES (1) IF THE ID IS A PROVIDER'S PERSONAL #"
^DD(355.97,1.07,21,0)="^^2^2^3010427^"
^DD(355.97,1.07,21,1,0)="This is the flag that designates an id type is a personal # for the"
^DD(355.97,1.07,21,2,0)="provider, not assigned by the facility or an insurance co"
^DD(355.97,1.07,"DT")="3010427"
^DD(355.97,1.08,0)="STORED OUTSIDE OF BILLING^S^0:NO;1:YES;^1;8^Q"
^DD(355.97,1.08,3)="ENTER 1 IF THIS PROVIDER ID DATA IS NOT STORED IN IB FILES"
^DD(355.97,1.08,21,0)="^^2^2^3010427^"
^DD(355.97,1.08,21,1,0)="This is the flag that specifies the provider id data is not stored in an"
^DD(355.97,1.08,21,2,0)="IB file."
^DD(355.97,1.08,"DT")="3010427"
^DD(355.97,1.09,0)="BILLING PROVIDER PRIMARY ID^S^0:NO;1:YES;^1;9^Q"
^DD(355.97,1.09,3)="Enter a 1 if this is the billing provider's primary id record"
^DD(355.97,1.09,21,0)="^^2^2^3040611^"
^DD(355.97,1.09,21,1,0)="This field is a 1 (YES) if this is the provider id type that represents"
^DD(355.97,1.09,21,2,0)="the billing provider's primary id."
^DD(355.97,1.09,"DT")="3040611"
^DD(355.97,"B","ACTIVE",.08)=""
^DD(355.97,"B","ALLOWABLE FORM TYPE",.07)=""
^DD(355.97,"B","BILLING PROVIDER PRIMARY ID",1.09)=""
^DD(355.97,"B","EMC ID TYPE",1.05)=""
^DD(355.97,"B","FACILITY'S DEFAULT ID #",.04)=""
^DD(355.97,"B","FEDERAL DEA#",1.02)=""
^DD(355.97,"B","FEDERAL TAX # - FACILITY",1.04)=""
^DD(355.97,"B","NAME",.01)=""
^DD(355.97,"B","NETWORK ID TYPE",1.06)=""
^DD(355.97,"B","PROVIDER'S OWN ID",1.07)=""
^DD(355.97,"B","RESTRICT EDITING",.05)=""
^DD(355.97,"B","SOURCE LEVEL MINIMUM",.02)=""
^DD(355.97,"B","STATE DEA#",1.01)=""
^DD(355.97,"B","STATE LICENSE #",1.03)=""
^DD(355.97,"B","STORED OUTSIDE OF BILLING",1.08)=""
^DD(355.97,"B","VALID FOR PERFORMING PROVIDER",.06)=""
^DD(355.97,"B","X12 CODE",.03)=""
^DD(355.97,"GL",0,1,.01)=""
^DD(355.97,"GL",0,2,.02)=""
^DD(355.97,"GL",0,3,.03)=""
^DD(355.97,"GL",0,4,.04)=""
^DD(355.97,"GL",0,5,.05)=""
^DD(355.97,"GL",0,6,.06)=""
^DD(355.97,"GL",0,7,.07)=""
^DD(355.97,"GL",0,8,.08)=""
^DD(355.97,"GL",1,1,1.01)=""
^DD(355.97,"GL",1,2,1.02)=""
^DD(355.97,"GL",1,3,1.03)=""
^DD(355.97,"GL",1,4,1.04)=""
^DD(355.97,"GL",1,5,1.05)=""
^DD(355.97,"GL",1,6,1.06)=""
^DD(355.97,"GL",1,7,1.07)=""
^DD(355.97,"GL",1,8,1.08)=""
^DD(355.97,"GL",1,9,1.09)=""
^DD(355.97,"IX",.01)=""
^DD(355.97,"IX",.03)=""
^DD(355.97,"RQ",.01)=""
^DD(355.97,"RQ",.02)=""
^DD(356,0)="FIELD^^3^47"
^DD(356,0,"DDA")="N"
^DD(356,0,"DT")="2940128"
^DD(356,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""  "",$E(Y,1,20),@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356,0,"ID",.06)="W ""   "",$E($P(^(0),U,6),4,5)_""-""_$E($P(^(0),U,6),6,7)_""-""_$E($P(^(0),U,6),2,3)"
^DD(356,0,"ID",.07)="I $P(^(0),U,7) W ?38,@(""$P($P($C(59)_$S($D(^DD(356,.07,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,7)_"""":"""",2),$C(59),1)"")"
^DD(356,0,"ID",.18)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(356.6,+$P(^(0),U,18),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(356.6,.01,0),U,2) D Y^DIQ:Y]"""" W "" "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356,0,"ID","WRITE")="D ID^IBTRE20"
^DD(356,0,"IX","ABD",356,.17)=""
^DD(356,0,"IX","AC",356,.12)=""
^DD(356,0,"IX","AD",356,.05)=""
^DD(356,0,"IX","ADFN",356,.02)=""
^DD(356,0,"IX","ADIS",356,1.09)=""
^DD(356,0,"IX","ADM",356,.05)=""
^DD(356,0,"IX","ADM1",356,.02)=""
^DD(356,0,"IX","AE",356,1.1)=""
^DD(356,0,"IX","AENC",356,.04)=""
^DD(356,0,"IX","AENC1",356,.02)=""
^DD(356,0,"IX","AI",356,.24)=""
^DD(356,0,"IX","APRO",356,.09)=""
^DD(356,0,"IX","APTDT",356,.06)=""
^DD(356,0,"IX","APTDT1",356,.02)=""
^DD(356,0,"IX","APTY",356,.02)=""
^DD(356,0,"IX","APTY1",356,.06)=""
^DD(356,0,"IX","APTY2",356,.18)=""
^DD(356,0,"IX","AR",356,.19)=""
^DD(356,0,"IX","ARXFL",356,.1)=""
^DD(356,0,"IX","ARXFL1",356,.08)=""
^DD(356,0,"IX","ASCE",356,.04)=""
^DD(356,0,"IX","ASCH",356,.32)=""
^DD(356,0,"IX","ASPC",356,.12)=""
^DD(356,0,"IX","ASPC1",356,.02)=""
^DD(356,0,"IX","ATOBIL",356,.02)=""
^DD(356,0,"IX","ATOBIL1",356,.17)=""
^DD(356,0,"IX","ATOBIL2",356,.18)=""
^DD(356,0,"IX","AVCNT",356,.03)=""
^DD(356,0,"IX","AVSIT",356,.03)=""
^DD(356,0,"IX","B",356,.01)=""
^DD(356,0,"IX","C",356,.02)=""
^DD(356,0,"IX","D",356,.06)=""
^DD(356,0,"IX","E",356,.11)=""
^DD(356,0,"IX","EVNT",356,.18)=""
^DD(356,0,"NM","CLAIMS TRACKING")=""
^DD(356,0,"PT",356.1,.02)=""
^DD(356,0,"PT",356.2,.02)=""
^DD(356,0,"PT",356.399,.01)=""
^DD(356,0,"PT",362.1,.02)=""
^DD(356,0,"VR")="2.0"
^DD(356,.01,0)="ENTRY ID^RNJ11,0^^0;1^K:+X'=X!(X>99999999999)!(X<1001)!(X?.E1"".""1N.N) X"
^DD(356,.01,1,0)="^.1"
^DD(356,.01,1,1,0)="356^B"
^DD(356,.01,1,1,1)="S ^IBT(356,""B"",$E(X,1,30),DA)="""""
^DD(356,.01,1,1,2)="K ^IBT(356,""B"",$E(X,1,30),DA)"
^DD(356,.01,3)="Type a Number between 1001 and 99999999999, 0 Decimal Digits"
^DD(356,.01,21,0)="^^2^2^2930609^"
^DD(356,.01,21,1,0)="This is a unique number assigned to this entry.  The first 3 characters"
^DD(356,.01,21,2,0)="of the number are the station number."
^DD(356,.01,"DEL",1,0)="I $P(^IBT(356,DA,0),U,2) W *7,!,""Only can be deleted from Menus"""
^DD(356,.01,"DT")="2930609"
^DD(356,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(356,.02,1,0)="^.1"
^DD(356,.02,1,1,0)="356^C"
^DD(356,.02,1,1,1)="S ^IBT(356,""C"",$E(X,1,30),DA)="""""
^DD(356,.02,1,1,2)="K ^IBT(356,""C"",$E(X,1,30),DA)"
^DD(356,.02,1,1,"DT")="2930621"
^DD(356,.02,1,2,0)="356^ADM1^MUMPS"
^DD(356,.02,1,2,1)="S:$P(^IBT(356,DA,0),""^"",5) ^IBT(356,""ADM"",X,+$P(^(0),""^"",5),DA)="""""
^DD(356,.02,1,2,2)="K ^IBT(356,""ADM"",X,+$P(^IBT(356,DA,0),""^"",5),DA)"
^DD(356,.02,1,2,"%D",0)="^^1^1^2930702^^"
^DD(356,.02,1,2,"%D",1,0)="Cross-reference of all admissions by patient."
^DD(356,.02,1,2,"DT")="2930702"
^DD(356,.02,1,3,0)="356^APTDT1^MUMPS"
^DD(356,.02,1,3,1)="S:$P(^IBT(356,DA,0),U,6) ^IBT(356,""APTDT"",X,-($P(^(0),U,6)),DA)="""""
^DD(356,.02,1,3,2)="K ^IBT(356,""APTDT"",X,-($P(^IBT(356,DA,0),U,6)),DA)"
^DD(356,.02,1,3,"%D",0)="^^2^2^2930806^^"
^DD(356,.02,1,3,"%D",1,0)="Cross reference of all episodes of care by patient by date, in inverse"
^DD(356,.02,1,3,"%D",2,0)="date order so can list most recent first."
^DD(356,.02,1,3,"DT")="2930806"
^DD(356,.02,1,4,0)="356^ASPC1^MUMPS"
^DD(356,.02,1,4,1)="S:$P(^IBT(356,DA,0),U,12) ^IBT(356,X,+$P(^(0),U,12),DA)="""""
^DD(356,.02,1,4,2)="K ^IBT(356,X,+$P(^IBT(356,DA,0),U,12),DA)"
^DD(356,.02,1,4,"%D",0)="^^1^1^2930712^"
^DD(356,.02,1,4,"%D",1,0)="Cross-reference of special types of bills by patient."
^DD(356,.02,1,4,"DT")="2930712"
^DD(356,.02,1,5,0)="356^ADFN^MUMPS"
^DD(356,.02,1,5,1)="S ^IBT(356,""ADFN""_X,+^IBT(356,DA,0),DA)="""""
^DD(356,.02,1,5,2)="K ^IBT(356,""ADFN""_X,+^IBT(356,DA,0),DA)"
^DD(356,.02,1,5,"%D",0)="^^1^1^2931109^^"
^DD(356,.02,1,5,"%D",1,0)="Cross-reference by patient dfn for fast look-up."
^DD(356,.02,1,5,"DT")="2930729"
^DD(356,.02,1,6,0)="356^ATOBIL^MUMPS"
^DD(356,.02,1,6,1)="S:$P(^IBT(356,DA,0),U,17)&($P(^(0),U,18)) ^IBT(356,""ATOBIL"",+X,+$P(^(0),U,18),+$P(^(0),U,17),DA)="""""
^DD(356,.02,1,6,2)="K ^IBT(356,""ATOBIL"",+X,+$P(^IBT(356,DA,0),U,18),+$P(^(0),U,17),DA)"
^DD(356,.02,1,6,"%D",0)="^^3^3^2930824^^^^"
^DD(356,.02,1,6,"%D",1,0)="This is a cross-reference of all active billable events that have not"
^DD(356,.02,1,6,"%D",2,0)="already been billed.  It is used by the autobilling software to determine"
^DD(356,.02,1,6,"%D",3,0)="the next autobill date for a patient by type of event."
^DD(356,.02,1,6,"DT")="2930824"
^DD(356,.02,1,7,0)="356^APTY^MUMPS"
^DD(356,.02,1,7,1)="S:$P(^IBT(356,DA,0),U,6)&($P(^(0),U,18)) ^IBT(356,""APTY"",X,+$P(^(0),U,18),+$P(^(0),U,6),DA)="""""
^DD(356,.02,1,7,2)="K ^IBT(356,""APTY"",X,+$P(^IBT(356,DA,0),U,18),+$P(^(0),U,6),DA)"
^DD(356,.02,1,7,"%D",0)="^^1^1^2930809^^"
^DD(356,.02,1,7,"%D",1,0)="Cross-reference of all entries by patient by event type, by episode date."
^DD(356,.02,1,7,"DT")="2930809"
^DD(356,.02,1,8,0)="356^AENC1^MUMPS"
^DD(356,.02,1,8,1)="S:$P(^IBT(356,DA,0),U,4) ^IBT(356,""AENC"",X,+$P(^(0),U,4),DA)="""""
^DD(356,.02,1,8,2)="K ^IBT(356,""AENC"",X,+$P(^IBT(356,DA,0),U,4),DA)"
^DD(356,.02,1,8,"%D",0)="^^1^1^2930831^"
^DD(356,.02,1,8,"%D",1,0)="Cross reference of all outpatient encounters by patient"
^DD(356,.02,1,8,"DT")="2930831"
^DD(356,.02,21,0)="^^5^5^2930709^"
^DD(356,.02,21,1,0)="Enter the patient that this Claims Tracking entry is for.  This is "
^DD(356,.02,21,2,0)="the patient whose admission, outpatient visit, prescription refill,"
^DD(356,.02,21,3,0)="prosthetic device or other encounter for medical care or services"
^DD(356,.02,21,4,0)="is being tracked."
^DD(356,.02,21,5,0)=" "
^DD(356,.02,"DT")="2930831"
^DD(356,.03,0)="VISIT^P9000010'^AUPNVSIT(^0;3^Q"
^DD(356,.03,1,0)="^.1"
^DD(356,.03,1,1,0)="356^AVSIT"
^DD(356,.03,1,1,1)="S ^IBT(356,""AVSIT"",$E(X,1,30),DA)="""""
^DD(356,.03,1,1,2)="K ^IBT(356,""AVSIT"",$E(X,1,30),DA)"
^DD(356,.03,1,1,"%D",0)="^^1^1^2930712^"
^DD(356,.03,1,1,"%D",1,0)="Regular cross-reference of claim by visit."
^DD(356,.03,1,1,"DT")="2930712"
^DD(356,.03,1,2,0)="356^AVCNT^MUMPS"
^DD(356,.03,1,2,1)="N IBX S IBX=X,X=""VSIT"" X ^%ZOSF(""TEST"") I $T S X=IBX D ADD^VSIT"
^DD(356,.03,1,2,2)="N IBX S IBX=X,X=""VSIT"" X ^%ZOSF(""TEST"") I $T S X=IBX D SUB^VSIT"
^DD(356,.03,1,2,"%D",0)="^^2^2^2960924^"
^DD(356,.03,1,2,"%D",1,0)="This cross reference calls Visit Tracking code to increment and decrement"
^DD(356,.03,1,2,"%D",2,0)="the VISIT file's DEPENDENT ENTRY COUNT field."
^DD(356,.03,1,2,"DT")="2960924"
^DD(356,.03,3)=" "
^DD(356,.03,21,0)="^^4^4^2930709^"
^DD(356,.03,21,1,0)="This is the visit for the patient that is being tracked in this entry."
^DD(356,.03,21,2,0)=" "
^DD(356,.03,21,3,0)="This field is a place holder for when visit tracking is implemented.  It"
^DD(356,.03,21,4,0)="will point to the visit that is being tracked."
^DD(356,.03,"DT")="2960924"
^DD(356,.04,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;4^Q"
^DD(356,.04,1,0)="^.1"
^DD(356,.04,1,1,0)="356^ASCE"
^DD(356,.04,1,1,1)="S ^IBT(356,""ASCE"",$E(X,1,30),DA)="""""
^DD(356,.04,1,1,2)="K ^IBT(356,""ASCE"",$E(X,1,30),DA)"
^DD(356,.04,1,1,"%D",0)="^^1^1^2930712^"
^DD(356,.04,1,1,"%D",1,0)="Regular cross-reference of claims by outpatient encounters."
^DD(356,.04,1,1,"DT")="2930712"
^DD(356,.04,1,2,0)="356^AENC^MUMPS"
^DD(356,.04,1,2,1)="S:$P(^IBT(356,DA,0),U,2) ^IBT(356,""AENC"",+$P(^(0),U,2),X,DA)="""""
^DD(356,.04,1,2,2)="K ^IBT(356,""AENC"",+$P(^IBT(356,DA,0),U,2),X,DA)"
^DD(356,.04,1,2,"%D",0)="^^1^1^2930831^"
^DD(356,.04,1,2,"%D",1,0)="Cross reference of outpatient encounters by patient."
^DD(356,.04,1,2,"DT")="2930831"
^DD(356,.04,21,0)="^^3^3^2930709^"
^DD(356,.04,21,1,0)="This is the outpatient encounter that is being tracked.  If this is"
^DD(356,.04,21,2,0)="entered and the provider and/or diagnosis for the encounter are entered"
^DD(356,.04,21,3,0)="then the inforamation will be extracted from the encounter file."
^DD(356,.04,"DT")="2930831"
^DD(356,.05,0)="ADMISSION^*P405'^DGPM(^0;5^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356,.05,1,0)="^.1"
^DD(356,.05,1,1,0)="356^ADM^MUMPS"
^DD(356,.05,1,1,1)="S:$P(^IBT(356,DA,0),""^"",2) ^IBT(356,""ADM"",+$P(^(0),""^"",2),X,DA)="""""
^DD(356,.05,1,1,2)="K ^IBT(356,""ADM"",+$P(^IBT(356,DA,0),""^"",2),X,DA)"
^DD(356,.05,1,1,"%D",0)="^^1^1^2940121^^^"
^DD(356,.05,1,1,"%D",1,0)="Cross reference of all admissions by patient."
^DD(356,.05,1,1,"DT")="2930702"
^DD(356,.05,1,2,0)="356^AD"
^DD(356,.05,1,2,1)="S ^IBT(356,""AD"",$E(X,1,30),DA)="""""
^DD(356,.05,1,2,2)="K ^IBT(356,""AD"",$E(X,1,30),DA)"
^DD(356,.05,1,2,"%D",0)="^^1^1^2940121^^"
^DD(356,.05,1,2,"%D",1,0)="Regular x-ref of admission movement ifn"
^DD(356,.05,1,2,"DT")="2930804"
^DD(356,.05,3)=""
^DD(356,.05,12)="Only admissions for this patient."
^DD(356,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356,.05,21,0)="^^4^4^2930709^"
^DD(356,.05,21,1,0)="This is the admission that is being tracked.  When an entry is added for"
^DD(356,.05,21,2,0)="inpatient care for any date the software will find the current admission"
^DD(356,.05,21,3,0)="for that date and use the current admission from the patient movement"
^DD(356,.05,21,4,0)="file."
^DD(356,.05,"DT")="2931018"
^DD(356,.06,0)="EPISODE DATE^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(356,.06,1,0)="^.1^^-1"
^DD(356,.06,1,1,0)="356^D"
^DD(356,.06,1,1,1)="S ^IBT(356,""D"",$E(X,1,30),DA)="""""
^DD(356,.06,1,1,2)="K ^IBT(356,""D"",$E(X,1,30),DA)"
^DD(356,.06,1,1,"DT")="2930820"
^DD(356,.06,1,2,0)="356^APTDT^MUMPS"
^DD(356,.06,1,2,1)="S:$P(^IBT(356,DA,0),U,2) ^IBT(356,""APTDT"",+$P(^(0),U,2),-X,DA)="""""
^DD(356,.06,1,2,2)="K ^IBT(356,""APTDT"",+$P(^IBT(356,DA,0),U,2),-X,DA)"
^DD(356,.06,1,2,"%D",0)="^^2^2^2931008^^^^"
^DD(356,.06,1,2,"%D",1,0)="Cross reference of all episodes of care by patient by date, in inverse"
^DD(356,.06,1,2,"%D",2,0)="date order so can list most recent first."
^DD(356,.06,1,2,"DT")="2931008"
^DD(356,.06,1,4,0)="356^APTY1^MUMPS"
^DD(356,.06,1,4,1)="S:$P(^IBT(356,DA,0),U,2)&($P(^(0),U,18)) ^IBT(356,""APTY"",+$P(^(0),U,2),+$P(^(0),U,18),X,DA)="""""
^DD(356,.06,1,4,2)="K ^IBT(356,""APTY"",+$P(^IBT(356,DA,0),U,2),+$P(^(0),U,18),X,DA)"
^DD(356,.06,1,4,"%D",0)="^^1^1^2930809^^"
^DD(356,.06,1,4,"%D",1,0)="Cross-reference of all entries by patient by event type, by episode date."
^DD(356,.06,1,4,"DT")="2930809"
^DD(356,.06,21,0)="^^7^7^2930712^^"
^DD(356,.06,21,1,0)="This is the date of the episode of care or services that is being tracked."
^DD(356,.06,21,2,0)="For admissions, it is the admission date.  For outpatient visits it is"
^DD(356,.06,21,3,0)="the visit date.  For prescription refills it is the refill date.  For"
^DD(356,.06,21,4,0)="prosthetic items it is the date that the prosthetic item was issued."
^DD(356,.06,21,5,0)=" "
^DD(356,.06,21,6,0)="The data in this field is entered by the Claims tracking event tracker"
^DD(356,.06,21,7,0)="routines."
^DD(356,.06,"DT")="2931008"
^DD(356,.07,0)="ADMISSION TYPE^S^1:SCHEDULED;2:URGENT;3:EMERGENT;4:UNSCHEDULED;5:COURT ORDERED;^0;7^Q"
^DD(356,.07,5,1,0)="356^.18^5"
^DD(356,.07,21,0)="^^5^5^2940213^^^^"
^DD(356,.07,21,1,0)="Enter whether this admission was a scheduled admission, a direct"
^DD(356,.07,21,2,0)="admission from the outpatient area, or whether this was an"
^DD(356,.07,21,3,0)="urgent or emergent admission.  The type of admission will impact"
^DD(356,.07,21,4,0)="whether pre-certification reviews should be done and the impact"
^DD(356,.07,21,5,0)="on reimbursements."
^DD(356,.07,"DT")="2930820"
^DD(356,.08,0)="PRESCRIPTION^P52'^PSRX(^0;8^Q"
^DD(356,.08,1,0)="^.1"
^DD(356,.08,1,1,0)="356^ARXFL1^MUMPS"
^DD(356,.08,1,1,1)="S:$P(^IBT(356,DA,0),U,10) ^IBT(356,""ARXFL"",X,+$P(^(0),U,10),DA)="""""
^DD(356,.08,1,1,2)="K ^IBT(356,""ARXFL"",X,+$P(^IBT(356,DA,0),U,10),DA)"
^DD(356,.08,1,1,"%D",0)="^^2^2^2940213^^^"
^DD(356,.08,1,1,"%D",1,0)="This is a cross reference of all prescriptions and refills.  It is used"
^DD(356,.08,1,1,"%D",2,0)="to ensure that only 1 entry for each refill is created."
^DD(356,.08,1,1,"DT")="2930813"
^DD(356,.08,21,0)="^^2^2^2940213^^"
^DD(356,.08,21,1,0)="If the entry that is being tracked is a prescription refill then this"
^DD(356,.08,21,2,0)="field should point to the entry in the prescription file."
^DD(356,.08,"DT")="2930813"
^DD(356,.09,0)="PROSTHETIC ITEM^P660'^RMPR(660,^0;9^Q"
^DD(356,.09,1,0)="^.1"
^DD(356,.09,1,1,0)="356^APRO"
^DD(356,.09,1,1,1)="S ^IBT(356,""APRO"",$E(X,1,30),DA)="""""
^DD(356,.09,1,1,2)="K ^IBT(356,""APRO"",$E(X,1,30),DA)"
^DD(356,.09,1,1,"DT")="2940131"
^DD(356,.09,3)=""
^DD(356,.09,21,0)="^^2^2^2931221^^"
^DD(356,.09,21,1,0)="If this tracking entry is for a prothetic item, this is the pointer"
^DD(356,.09,21,2,0)="to the prosthetic item file."
^DD(356,.09,"DT")="2940131"
^DD(356,.1,0)="REFILL DATE^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356,.1,1,0)="^.1"
^DD(356,.1,1,1,0)="356^ARXFL^MUMPS"
^DD(356,.1,1,1,1)="S:$P(^IBT(356,DA,0),U,8) ^IBT(356,""ARXFL"",$P(^(0),U,8),X,DA)="""""
^DD(356,.1,1,1,2)="K ^IBT(356,""ARXFL"",+$P(^IBT(356,DA,0),U,8),X,DA)"
^DD(356,.1,1,1,"%D",0)="^^2^2^2940213^^"
^DD(356,.1,1,1,"%D",1,0)="This is a cross reference of all prescriptions and refills.  It is used"
^DD(356,.1,1,1,"%D",2,0)="to ensure that only 1 entry for each refill is created."
^DD(356,.1,1,1,"DT")="2930813"
^DD(356,.1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(356,.1,21,0)="^.001^8^8^3010712^^^^"
^DD(356,.1,21,1,0)="This is a free text pointer to the REFILL multiple (subfile #52.1)"
^DD(356,.1,21,2,0)="in the PRESCRIPTION file (#52).  The top-level pointer for the"
^DD(356,.1,21,3,0)="prescription entry in the PRESCRIPTION file (#52) can be found"
^DD(356,.1,21,4,0)="in the PRESCRIPTION field (#.08) of the CLAIMS TRACKING"
^DD(356,.1,21,5,0)="file (#356). The refill date is found at the first '^' piece of the"
^DD(356,.1,21,6,0)="REFILL multiple of the PRESCRIPTION file."
^DD(356,.1,21,7,0)="Original Fills will be added as of July 2001.  The Refill Date for"
^DD(356,.1,21,8,0)="these will be '0'."
^DD(356,.1,"DT")="3010712"
^DD(356,.11,0)="INITIAL BILL NUMBER^P399'^DGCR(399,^0;11^Q"
^DD(356,.11,1,0)="^.1"
^DD(356,.11,1,1,0)="356^E"
^DD(356,.11,1,1,1)="S ^IBT(356,""E"",$E(X,1,30),DA)="""""
^DD(356,.11,1,1,2)="K ^IBT(356,""E"",$E(X,1,30),DA)"
^DD(356,.11,1,1,"DT")="2930712"
^DD(356,.11,1,2,0)="^^TRIGGER^356^.17"
^DD(356,.11,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.11,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.11,1,2,"%D",0)="^^1^1^3040610^"
^DD(356,.11,1,2,"%D",1,0)="Re-sets Earliest Auto Bill Date each time Initial Bill Number is modified."
^DD(356,.11,1,2,"CREATE VALUE")="S X=$$BILL^IBTUTL(DA)"
^DD(356,.11,1,2,"DELETE VALUE")="S X=$$BILL^IBTUTL(DA)"
^DD(356,.11,1,2,"DT")="3040610"
^DD(356,.11,1,2,"FIELD")="EARLIEST AUTO BILL DATE"
^DD(356,.11,5,1,0)="356.399^.02^3"
^DD(356,.11,9)="^"
^DD(356,.11,21,0)="^^3^3^2940213^^^^"
^DD(356,.11,21,1,0)="This is the bill number in the BILL/CLAIMS file for the initial"
^DD(356,.11,21,2,0)="bill number for this entry.  It is the bill to the third"
^DD(356,.11,21,3,0)="party for this claim."
^DD(356,.11,"DT")="3040610"
^DD(356,.12,0)="OTHER TYPE OF BILL^S^1:TORT FEASOR;2:FEDERAL OWCP;3:WORKMAN'S COMP;4:OTHER;^0;12^Q"
^DD(356,.12,1,0)="^.1"
^DD(356,.12,1,1,0)="356^AC"
^DD(356,.12,1,1,1)="S ^IBT(356,""AC"",$E(X,1,30),DA)="""""
^DD(356,.12,1,1,2)="K ^IBT(356,""AC"",$E(X,1,30),DA)"
^DD(356,.12,1,1,"DT")="2930712"
^DD(356,.12,1,2,0)="356^ASPC^MUMPS"
^DD(356,.12,1,2,1)="S:$P(^IBT(356,DA,0),U,2) ^IBT(356,""ASPC"",+$P(^(0),U,2),X,DA)="""""
^DD(356,.12,1,2,2)="K ^IBT(356,""ASPC"",+$P(^IBT(356,DA,0),U,2),X,DA)"
^DD(356,.12,1,2,"%D",0)="^^1^1^2930820^^^"
^DD(356,.12,1,2,"%D",1,0)="Cross reference of special types of bills by patient."
^DD(356,.12,1,2,"DT")="2930712"
^DD(356,.12,1,3,0)="^^TRIGGER^356^.17"
^DD(356,.12,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.12,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.12,1,3,"%D",0)="^^4^4^3040610^"
^DD(356,.12,1,3,"%D",1,0)="Deletes the Earliest Auto Bill Date (.17) if an Other Type of Bill is"
^DD(356,.12,1,3,"%D",2,0)="entered, the event may need a rate type other than reimbursable ins."
^DD(356,.12,1,3,"%D",3,0)="and therefore should not be billed by the automated biller."
^DD(356,.12,1,3,"%D",4,0)="Re-sets EABD if Other Type of Bill is deleted."
^DD(356,.12,1,3,"CREATE VALUE")="@"
^DD(356,.12,1,3,"DELETE VALUE")="S X=$$BILL^IBTUTL(DA)"
^DD(356,.12,1,3,"DT")="3040610"
^DD(356,.12,1,3,"FIELD")="EARLIEST AUTO BILL DATE"
^DD(356,.12,9)="@"
^DD(356,.12,21,0)="^^4^4^2940213^^^^"
^DD(356,.12,21,1,0)="If this claims tracking entry can be billed as other than an insurance"
^DD(356,.12,21,2,0)="claim or a patient bill enter the type of claim.  If a patient has"
^DD(356,.12,21,3,0)="ever had a claim type other than insurance then special warnings may"
^DD(356,.12,21,4,0)="be given in the billing and claims tracking package."
^DD(356,.12,"DT")="3040610"
^DD(356,.14,0)="SECOND OPINION REQUIRED^S^1:YES;0:NO;^0;14^Q"
^DD(356,.14,21,0)="^^2^2^2930712^"
^DD(356,.14,21,1,0)="If this patient insurance policy requires a second opinion enter 'YES'."
^DD(356,.14,21,2,0)="If a second opinion is not required then enter 'NO'."
^DD(356,.14,"DT")="2930609"
^DD(356,.15,0)="SECOND OPINION OBTAINED^S^1:YES;0:NO;^0;15^Q"
^DD(356,.15,3)=""
^DD(356,.15,21,0)="^^8^8^2940213^^"
^DD(356,.15,21,1,0)="If a second opinion was required by this patients' insurance policy,"
^DD(356,.15,21,2,0)="enter 'YES' if it was obtained or 'NO' if it was not obtained.  If"
^DD(356,.15,21,3,0)="a second opinion was obtained but did not meet the insurance companies"
^DD(356,.15,21,4,0)="criteria for any reason, enter 'NO'."
^DD(356,.15,21,5,0)=" "
^DD(356,.15,21,6,0)="This field will be used to help determine the estimated reimbursement"
^DD(356,.15,21,7,0)="from the insurance carrier.  If a second opinion was not obtained"
^DD(356,.15,21,8,0)="certain denials and penalties may be assessed."
^DD(356,.15,"DT")="2930609"
^DD(356,.17,0)="EARLIEST AUTO BILL DATE^D^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356,.17,1,0)="^.1"
^DD(356,.17,1,1,0)="356^ABD"
^DD(356,.17,1,1,1)="S ^IBT(356,""ABD"",$E(X,1,30),DA)="""""
^DD(356,.17,1,1,2)="K ^IBT(356,""ABD"",$E(X,1,30),DA)"
^DD(356,.17,1,1,"%D",0)="^^1^1^2930709^"
^DD(356,.17,1,1,"%D",1,0)="Regular cross reference of auto bill date field."
^DD(356,.17,1,1,"DT")="2930709"
^DD(356,.17,1,2,0)="356^ATOBIL1^MUMPS"
^DD(356,.17,1,2,1)="S:$P(^IBT(356,DA,0),U,2)&($P(^(0),U,18)) ^IBT(356,""ATOBIL"",+$P(^(0),U,2),+$P(^(0),U,18),+X,DA)="""""
^DD(356,.17,1,2,2)="K ^IBT(356,""ATOBIL"",+$P(^IBT(356,DA,0),U,2),+$P(^(0),U,18),+X,DA)"
^DD(356,.17,1,2,"%D",0)="^^3^3^2930824^^"
^DD(356,.17,1,2,"%D",1,0)="Cross-reference of all billable, non-billed events by patient, event type,"
^DD(356,.17,1,2,"%D",2,0)="and earliest auto bill date.  Only events with entries in this x-ref"
^DD(356,.17,1,2,"%D",3,0)="will be considered for inclusion on a bill by the automated biller."
^DD(356,.17,1,2,"DT")="2930824"
^DD(356,.17,3)="Enter the date the autobiller will first try and create a bill for this visit.  Delete this date if the visit is not billable."
^DD(356,.17,5,1,0)="356^.11^2"
^DD(356,.17,5,2,0)="356^.12^3"
^DD(356,.17,5,3,0)="356^.18^3"
^DD(356,.17,5,4,0)="356^.19^3"
^DD(356,.17,5,5,0)="356^.2^2"
^DD(356,.17,5,6,0)="356^1.01^1"
^DD(356,.17,21,0)="^^15^15^2940213^^^^"
^DD(356,.17,21,1,0)="This is the earliest date that this visit can be automatically billed."
^DD(356,.17,21,2,0)="The automatic billing software will use this date when searching for events"
^DD(356,.17,21,3,0)="to bill.  All events with an Earliest Auto Bill Date on or before the run"
^DD(356,.17,21,4,0)="date of the automatic biller will be considered for inclusion on a bill."
^DD(356,.17,21,5,0)=" "
^DD(356,.17,21,6,0)="This field may be set in one of two ways.  If AUTOMATE BILLING is on for"
^DD(356,.17,21,7,0)="the Event Type then this field will be automatically set when apparently"
^DD(356,.17,21,8,0)="billable events are added to the claims tracking module."
^DD(356,.17,21,9,0)="This field can also be directly set by a user, AUTOMATE BILLING does not"
^DD(356,.17,21,10,0)="need to be on for the Event Type.  When the automated biller runs it will"
^DD(356,.17,21,11,0)="attempt to add the event to a bill."
^DD(356,.17,21,12,0)=" "
^DD(356,.17,21,13,0)="This date should be deleted if the event turns out not to be suitable for"
^DD(356,.17,21,14,0)="a reimbursable insurance bill.  This field will automatically be deleted"
^DD(356,.17,21,15,0)="if the event is added to a bill or a reason not-billable is entered."
^DD(356,.17,22)=""
^DD(356,.17,23,0)="^^13^13^2940213^^^^"
^DD(356,.17,23,1,0)="If and only if this field is set will the event be considered by the "
^DD(356,.17,23,2,0)="automatic biller.  This will be set to the date the event was entered"
^DD(356,.17,23,3,0)="into claims tracking plus the number of days delay for the event type."
^DD(356,.17,23,4,0)=" "
^DD(356,.17,23,5,0)="Setting of this field may be automatic, ie. all by triggers, if automated"
^DD(356,.17,23,6,0)="billing is turned on for the event type.  Initially set by triggers on"
^DD(356,.17,23,7,0)="Event  Type (.18) and Date Entered (1.01)."
^DD(356,.17,23,8,0)=" "
^DD(356,.17,23,9,0)="This may also be set by user."
^DD(356,.17,23,10,0)=" "
^DD(356,.17,23,11,0)="There is no checking to determine if the event is actually billable when"
^DD(356,.17,23,12,0)="the date is added.  Instead, if one of the fields that makes an event not"
^DD(356,.17,23,13,0)="billable is entered this field is deleted."
^DD(356,.17,"DT")="2930824"
^DD(356,.18,0)="EVENT TYPE^P356.6'^IBE(356.6,^0;18^Q"
^DD(356,.18,1,0)="^.1"
^DD(356,.18,1,1,0)="356^EVNT"
^DD(356,.18,1,1,1)="S ^IBT(356,""EVNT"",$E(X,1,30),DA)="""""
^DD(356,.18,1,1,2)="K ^IBT(356,""EVNT"",$E(X,1,30),DA)"
^DD(356,.18,1,1,"DT")="2930820"
^DD(356,.18,1,2,0)="356^ATOBIL2^MUMPS"
^DD(356,.18,1,2,1)="S:$P(^IBT(356,+DA,0),U,2)&($P(^(0),U,17)) ^IBT(356,""ATOBIL"",+$P(^(0),U,2),+X,+$P(^(0),U,17),DA)="""""
^DD(356,.18,1,2,2)="K ^IBT(356,""ATOBIL"",+$P(^IBT(356,+DA,0),U,2),+X,+$P(^(0),U,17),DA)"
^DD(356,.18,1,2,"%D",0)="^^2^2^2941019^^^"
^DD(356,.18,1,2,"%D",1,0)="Cross reference of all active billable events that have not been billed."
^DD(356,.18,1,2,"%D",2,0)="The auto biller will attempt to create a bill for each entry in this xref."
^DD(356,.18,1,2,"DT")="2940420"
^DD(356,.18,1,3,0)="^^TRIGGER^356^.17"
^DD(356,.18,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1))) X ^DD(356,.18,1,3,1.4)"
^DD(356,.18,1,3,1.4)="S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.18,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.18,1,3,"%D",0)="^^2^2^3040610^"
^DD(356,.18,1,3,"%D",1,0)="Sets the Earliest Auto Bill Date whenever Event Type is set.  Does not"
^DD(356,.18,1,3,"%D",2,0)="check if event is billable."
^DD(356,.18,1,3,"CREATE VALUE")="S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1)))"
^DD(356,.18,1,3,"DELETE VALUE")="@"
^DD(356,.18,1,3,"DT")="3040610"
^DD(356,.18,1,3,"FIELD")="EARLIEST AUTO BILL DATE"
^DD(356,.18,1,4,0)="356^APTY2^MUMPS"
^DD(356,.18,1,4,1)="S:$P(^IBT(356,DA,0),U,2)&($P(^(0),U,6)) ^IBT(356,""APTY"",+$P(^(0),U,2),X,+$P(^(0),U,6),DA)="""""
^DD(356,.18,1,4,2)="K ^IBT(356,""APTY"",+$P(^IBT(356,DA,0),U,2),X,+$P(^(0),U,6),DA)"
^DD(356,.18,1,4,"%D",0)="^^1^1^2930809^"
^DD(356,.18,1,4,"%D",1,0)="Cross-reference of all entries by patient by event type, by episode date."
^DD(356,.18,1,4,"DT")="2930809"
^DD(356,.18,1,5,0)="^^TRIGGER^356^.07"
^DD(356,.18,1,5,1)="X ^DD(356,.18,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$$ADT^IBTRE0(DA) S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=356,DIG=.07 D ^DICR"
^DD(356,.18,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(356,.07,0)),U,3),Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59))="""""
^DD(356,.18,1,5,2)="Q"
^DD(356,.18,1,5,"CREATE CONDITION")="#.07="""""
^DD(356,.18,1,5,"CREATE VALUE")="S X=$$ADT^IBTRE0(DA)"
^DD(356,.18,1,5,"DELETE VALUE")="NO EFFECT"
^DD(356,.18,1,5,"DT")="3040610"
^DD(356,.18,1,5,"FIELD")="#.07"
^DD(356,.18,21,0)="^^15^15^2940118^^^^"
^DD(356,.18,21,1,0)="This is the type of event that is being tracked.  This field"
^DD(356,.18,21,2,0)="is automatically stored when an entry is created.  Scheduled admissions"
^DD(356,.18,21,3,0)="are tracked to allow for precertification reviews.  When an admission"
^DD(356,.18,21,4,0)="occurs within 7 days of a scheduled admission the scheduled admission will"
^DD(356,.18,21,5,0)="be updated to an inpatient care event type automatically."
^DD(356,.18,21,6,0)=" "
^DD(356,.18,21,7,0)="Choose an event type of Scheduled Admission only for future scheduled"
^DD(356,.18,21,8,0)="admissions and choose an event type of admission for past admissions."
^DD(356,.18,21,9,0)="If you are using the scheduled admissions portion of the MAS package"
^DD(356,.18,21,10,0)="then scheduled admissions will automatically be added to claims tracking"
^DD(356,.18,21,11,0)="7 days before the scheduled admission and automatically converted to "
^DD(356,.18,21,12,0)="an event type of admission after the patient has been admitted."
^DD(356,.18,21,13,0)=" "
^DD(356,.18,21,14,0)="For admissions you will be able to specify the type of admission in"
^DD(356,.18,21,15,0)="another field."
^DD(356,.18,"DT")="3040610"
^DD(356,.19,0)="REASON NOT BILLABLE^P356.8'^IBE(356.8,^0;19^Q"
^DD(356,.19,.1)="NOT BILLABLE REASON"
^DD(356,.19,1,0)="^.1"
^DD(356,.19,1,1,0)="356^AR"
^DD(356,.19,1,1,1)="S ^IBT(356,""AR"",$E(X,1,30),DA)="""""
^DD(356,.19,1,1,2)="K ^IBT(356,""AR"",$E(X,1,30),DA)"
^DD(356,.19,1,1,"%D",0)="^^1^1^2930709^"
^DD(356,.19,1,1,"%D",1,0)="Regular cross reference of reason not billable"
^DD(356,.19,1,1,"DT")="2930709"
^DD(356,.19,1,3,0)="^^TRIGGER^356^.17"
^DD(356,.19,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.19,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.19,1,3,"%D",0)="^^2^2^3040610^"
^DD(356,.19,1,3,"%D",1,0)="Deletes the Earliest Auto Bill Date (.17) when Reason Not Billable is set,"
^DD(356,.19,1,3,"%D",2,0)="event is no longer billable.  Re-sets EABD if Reason Not Billable is deleted."
^DD(356,.19,1,3,"CREATE VALUE")="@"
^DD(356,.19,1,3,"DELETE VALUE")="S X=$$BILL^IBTUTL(DA)"
^DD(356,.19,1,3,"DT")="3040610"
^DD(356,.19,1,3,"FIELD")="EARLIEST AUTO BILL DATE"
^DD(356,.19,21,0)="^^6^6^2930712^^^"
^DD(356,.19,21,1,0)="Enter the primary reason this episode of care should not be billed to"
^DD(356,.19,21,2,0)="an insurance company."
^DD(356,.19,21,3,0)=" "
^DD(356,.19,21,4,0)="If a reason not billable is entered, then this episode will no longer"
^DD(356,.19,21,5,0)="appear on reports as billable and will not be used by the automated"
^DD(356,.19,21,6,0)="biller as a billable event."
^DD(356,.19,"DT")="3040610"
^DD(356,.2,0)="INACTIVE^S^0:INACTIVE;1:ACTIVE;^0;20^Q"
^DD(356,.2,1,0)="^.1"
^DD(356,.2,1,2,0)="^^TRIGGER^356^.17"
^DD(356,.2,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$BILL^IBTUTL(DA) S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.2,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,.2,1,2,"%D",0)="^^1^1^3040610^"
^DD(356,.2,1,2,"%D",1,0)="Re-sets Earliest Auto Bill Date whenever Status is modified."
^DD(356,.2,1,2,"CREATE VALUE")="S X=$$BILL^IBTUTL(DA)"
^DD(356,.2,1,2,"DELETE VALUE")="@"
^DD(356,.2,1,2,"DT")="3040610"
^DD(356,.2,1,2,"FIELD")="EARLIEST AUTO BILL DATE"
^DD(356,.2,21,0)="^^6^6^2930826^^^^"
^DD(356,.2,21,1,0)="An entry is automatically inactived if the parent event that is being"
^DD(356,.2,21,2,0)="tracked is either deleted or edited so that it no longer is a valid tracking"
^DD(356,.2,21,3,0)="entry."
^DD(356,.2,21,4,0)=" "
^DD(356,.2,21,5,0)="Inactivating an entry has the same affect as deleting an entry except that"
^DD(356,.2,21,6,0)="the activity is left as a history."
^DD(356,.2,"DT")="3040610"
^DD(356,.21,0)="ESTIMATED INS. PAYMENT (PRI)^NJ10,2^^0;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(356,.21,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(356,.21,21,0)="^^2^2^2930712^^"
^DD(356,.21,21,1,0)="This is the estimated amount that the primary insurance carrier is expected"
^DD(356,.21,21,2,0)="to pay on this claim."
^DD(356,.21,"DT")="2930712"
^DD(356,.22,0)="ESTIMATED INS. PAYMENT (SEC)^NJ10,2^^0;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(356,.22,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(356,.22,21,0)="^^2^2^2930712^"
^DD(356,.22,21,1,0)="This the the estimated amount that the secondary insurance carrier is"
^DD(356,.22,21,2,0)="expected to pay on this claim."
^DD(356,.22,"DT")="2930712"
^DD(356,.23,0)="ESTIMATED INS. PAYMENT (TER)^NJ10,2^^0;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(356,.23,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(356,.23,21,0)="^^2^2^2940213^^"
^DD(356,.23,21,1,0)="This is the estimated amount that the tertiary insurance carrier is"
^DD(356,.23,21,2,0)="expected to pay on this claim."
^DD(356,.23,"DT")="2930712"
^DD(356,.24,0)="TRACKED AS INSURANCE CLAIM?^*S^1:YES;0:NO;^0;24^Q"
^DD(356,.24,.1)="INSURANCE CLAIM?"
^DD(356,.24,1,0)="^.1^^-1"
^DD(356,.24,1,1,0)="356^AI"
^DD(356,.24,1,1,1)="S ^IBT(356,""AI"",$E(X,1,30),DA)="""""
^DD(356,.24,1,1,2)="K ^IBT(356,""AI"",$E(X,1,30),DA)"
^DD(356,.24,1,1,"DT")="2930709"
^DD(356,.24,12)="Only patients who have active insurance for the episode"
^DD(356,.24,12.1)="S DIC(""S"")=""I $S(Y=0:1,$$INSURED^IBCNS1($P(^IBT(356,DA,0),U,2),$P(^(0),U,6)):1,1:0)"""
^DD(356,.24,21,0)="^^5^5^2930804^^^"
^DD(356,.24,21,1,0)="Enter 'YES' if the patient is insured for this event.  Enter 'No' if "
^DD(356,.24,21,2,0)="the patient is not insured for this event.  If this event is not"
^DD(356,.24,21,3,0)="tracked as an insurance claim, the field REASON NOT BILLABLE will"
^DD(356,.24,21,4,0)="automatically have entered ""NOT INSURED"" if it is not otherwise"
^DD(356,.24,21,5,0)="entered."
^DD(356,.24,"DT")="2930827"
^DD(356,.25,0)="TRACKED AS RANDOM SAMPLE?^S^1:YES;0:NO;^0;25^Q"
^DD(356,.25,.1)="RANDOM SAMPLE?"
^DD(356,.25,3)=""
^DD(356,.25,21,0)="^^7^7^2930712^"
^DD(356,.25,21,1,0)="Enter if this is to be tracked as a Random Sample for UR purposes.  The"
^DD(356,.25,21,2,0)="Claims tracking module is designed to flag one admission per week"
^DD(356,.25,21,3,0)="each from the 3 major bedsections, Medicine, Surgery, and Psychiatry,"
^DD(356,.25,21,4,0)="as a random sample that is to have utilization review follow-up.  If"
^DD(356,.25,21,5,0)="there is not sufficient activity in your facility for the automated"
^DD(356,.25,21,6,0)="tracker to set up the minimum random sample, then you may manually"
^DD(356,.25,21,7,0)="add entires to be tracked for UR purposes."
^DD(356,.25,"DT")="2930712"
^DD(356,.26,0)="TRACKED AS SPECIAL CONDITION^S^1:TURP;2:COPD;3:CVD;0:NONE;^0;26^Q"
^DD(356,.26,.1)="SPECIAL CONDITION?"
^DD(356,.26,3)=""
^DD(356,.26,21,0)="^^8^8^2940124^^^^"
^DD(356,.26,21,1,0)="If you are tracking special conditions for follow up by UR then"
^DD(356,.26,21,2,0)="indicate that this is a special condition UR case and UR will be"
^DD(356,.26,21,3,0)="required and the information about this case will appear on special"
^DD(356,.26,21,4,0)="condition reports."
^DD(356,.26,21,5,0)=" "
^DD(356,.26,21,6,0)="The choices are:   TURP -- Transurethral Prostatectomy"
^DD(356,.26,21,7,0)="                   COPD -- Chronic Obstructive Pulmonary Disease"
^DD(356,.26,21,8,0)="                   CVD  -- Cerebrovascular Disease"
^DD(356,.26,"DT")="2940124"
^DD(356,.27,0)="TRACKED AS A LOCAL ADDITION?^S^1:YES;0:NO;^0;27^Q"
^DD(356,.27,.1)="LOCAL ADDITION?"
^DD(356,.27,3)=""
^DD(356,.27,21,0)="^^2^2^2930712^"
^DD(356,.27,21,1,0)="If this is being track as a local addition for UR purposes then"
^DD(356,.27,21,2,0)="enter 'YES'."
^DD(356,.27,"DT")="2930624"
^DD(356,.28,0)="ESTIMATED MT CHARGES^NJ10,2^^0;28^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(356,.28,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(356,.28,21,0)="^^2^2^2930712^"
^DD(356,.28,21,1,0)="Enter the estimated amount of Means Test copayment charges that"
^DD(356,.28,21,2,0)="are to be paid by the patient for this case."
^DD(356,.28,"DT")="2930712"
^DD(356,.29,0)="ESTIMATED TOTAL CHARGES^NJ10,2^^0;29^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(356,.29,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(356,.29,21,0)="^^8^8^2940213^^"
^DD(356,.29,21,1,0)="Enter the estimated total charges from this case.  This is the estimated"
^DD(356,.29,21,2,0)="total amount due the government.  "
^DD(356,.29,21,3,0)=" "
^DD(356,.29,21,4,0)="The total estimated charges minus the estimated payments from all sources"
^DD(356,.29,21,5,0)="will be the amount not anticipated to be reimbursed from this case."
^DD(356,.29,21,6,0)="Comparing estimated receipt versus the actual amount received will"
^DD(356,.29,21,7,0)="help determine if all payers have sufficiently re-imbursed the "
^DD(356,.29,21,8,0)="government."
^DD(356,.29,"DT")="2930712"
^DD(356,.3,0)="ADMITTING REASON (ICD-9)^*P356.9'^IBT(356.9,^0;30^S DIC(""S"")=""I $P(^(0),U,4)=3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356,.3,12)="Must be the admitting diagnosis for this admission movement."
^DD(356,.3,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=3"""
^DD(356,.3,21,0)="^^1^1^2930901^^"
^DD(356,.3,21,1,0)="This is the ICD9 diagnosis code for the admitting diagnosis."
^DD(356,.3,"DT")="2930901"
^DD(356,.31,0)="SPECIAL CONSENT ROI^S^1:NOT REQUIRED;2:OBTAINED;3:REQUIRED;4:REFUSED;^0;31^Q"
^DD(356,.31,21,0)="^^9^9^2930820^^"
^DD(356,.31,21,1,0)="Enter whether or not a special consent release of information "
^DD(356,.31,21,2,0)="form for this patient for this"
^DD(356,.31,21,3,0)="episode of care is required, obtained, or not necessary.  If ROI is"
^DD(356,.31,21,4,0)="required but not obtained, certain clinical information may not be"
^DD(356,.31,21,5,0)="released to Insurance carriers.  This will affect contacts with"
^DD(356,.31,21,6,0)="insurance companies and bill preparation."
^DD(356,.31,21,7,0)=" "
^DD(356,.31,21,8,0)="Generally a special consent is required if the patient has or was treated"
^DD(356,.31,21,9,0)="for Drug and Alcohol, HIV, and sickle cell anemia."
^DD(356,.31,"DT")="2930824"
^DD(356,.32,0)="SCHEDULED ADMISSION^*P41.1'^DGS(41.1,^0;32^S DIC(""S"")=""I +^(0)=$P(^IBT(356,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356,.32,1,0)="^.1"
^DD(356,.32,1,1,0)="356^ASCH"
^DD(356,.32,1,1,1)="S ^IBT(356,""ASCH"",$E(X,1,30),DA)="""""
^DD(356,.32,1,1,2)="K ^IBT(356,""ASCH"",$E(X,1,30),DA)"
^DD(356,.32,1,1,"%D",0)="^^1^1^2930809^"
^DD(356,.32,1,1,"%D",1,0)="Regular index of scheduled admissions"
^DD(356,.32,1,1,"DT")="2930809"
^DD(356,.32,12)="You can only select scheduled admissions for the same patient."
^DD(356,.32,12.1)="S DIC(""S"")=""I +^(0)=$P(^IBT(356,DA,0),U,2)"""
^DD(356,.32,21,0)="^^7^7^2930809^"
^DD(356,.32,21,1,0)="If this claims tracking entry is for a scheduled admission, this is"
^DD(356,.32,21,2,0)="the scheduled admission."
^DD(356,.32,21,3,0)=" "
^DD(356,.32,21,4,0)="This field points to the entry in the Scheduled Admissions file that"
^DD(356,.32,21,5,0)="is being tracked.  When this scheduled admission is acutally admitted,"
^DD(356,.32,21,6,0)="it will be converted to an inpatient admission tracking record "
^DD(356,.32,21,7,0)="automatically."
^DD(356,.32,"DT")="2930809"
^DD(356,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356,1.01,1,0)="^.1"
^DD(356,1.01,1,1,0)="^^TRIGGER^356^.17"
^DD(356,1.01,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1))) X ^DD(356,1.01,1,1,1.4)"
^DD(356,1.01,1,1,1.4)="S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,1.01,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$G(^IBT(356,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=356,DIG=.17 D ^DICR"
^DD(356,1.01,1,1,"%D",0)="^^2^2^3040610^"
^DD(356,1.01,1,1,"%D",1,0)="Sets the Earliest Auto Bill Date whenever Date Entered is set.  Does"
^DD(356,1.01,1,1,"%D",2,0)="not check if event is billable."
^DD(356,1.01,1,1,"CREATE VALUE")="S X=$$EABD^IBTUTL($P($G(^IBT(356,+DA,0)),U,18),+$G(^IBT(356,+DA,1)))"
^DD(356,1.01,1,1,"DELETE VALUE")="@"
^DD(356,1.01,1,1,"DT")="3040610"
^DD(356,1.01,1,1,"FIELD")="EARLIEST AUTO BILL DATE"
^DD(356,1.01,3)=""
^DD(356,1.01,21,0)="^^2^2^2930712^"
^DD(356,1.01,21,1,0)="Enter the date that this entry was created.  This will usually be the"
^DD(356,1.01,21,2,0)="date that the automated tracker created this entry on."
^DD(356,1.01,"DT")="3040610"
^DD(356,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(356,1.02,3)=""
^DD(356,1.02,21,0)="^^2^2^2930712^"
^DD(356,1.02,21,1,0)="Enter the name of the user who first created this entry.  This is "
^DD(356,1.02,21,2,0)="most important if this entry was not created by the automated tracker."
^DD(356,1.02,"DT")="2930609"
^DD(356,1.03,0)="DATE LAST EDITED^D^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356,1.03,21,0)="^^1^1^2930712^"
^DD(356,1.03,21,1,0)="Enter the date that this claim was last edited."
^DD(356,1.03,"DT")="2930706"
^DD(356,1.04,0)="LAST EDITED BY^P200'^VA(200,^1;4^Q"
^DD(356,1.04,21,0)="^^1^1^2930719^^"
^DD(356,1.04,21,1,0)="Enter the user who last edited this claim tracking entry."
^DD(356,1.04,"DT")="2930609"
^DD(356,1.05,0)="HOSPITAL REVIEWS ASSIGNED TO^P200'^VA(200,^1;5^Q"
^DD(356,1.05,21,0)="^^6^6^2940213^^^^"
^DD(356,1.05,21,1,0)="Enter the UR person that this case is assigned to if it is assigned to"
^DD(356,1.05,21,2,0)="an individual for hospital Reviews."
^DD(356,1.05,21,3,0)=" "
^DD(356,1.05,21,4,0)="Cases may be assigned for an individual to follow for the length of their"
^DD(356,1.05,21,5,0)="admission.  If viewing pending work by who it is assigned to then this"
^DD(356,1.05,21,6,0)="field is used to sort the pending work."
^DD(356,1.05,"DT")="2930825"
^DD(356,1.06,0)="INS. REVIEWS ASSIGNED TO^P200'^VA(200,^1;6^Q"
^DD(356,1.06,21,0)="^^6^6^2940213^^^"
^DD(356,1.06,21,1,0)="Enter the Insurance UR person that this case is assigned to if it "
^DD(356,1.06,21,2,0)="is assigned to an individual for Insurance UR."
^DD(356,1.06,21,3,0)=" "
^DD(356,1.06,21,4,0)="Cases may be assigned for an individual to follow for the length of their"
^DD(356,1.06,21,5,0)="admission.  If viewing pending work by who it is assigned to then this"
^DD(356,1.06,21,6,0)="field is used to sort the pending work."
^DD(356,1.06,"DT")="2930825"
^DD(356,1.07,0)="FOLLOW-UP TYPE^S^1:NONE;2:ADMISSION NOTIFICATION;3:ADMISSION AND DISCHARGE NOTIFICATION;4:PRE-CERTIFICATION;5:PRE-CERT AND CONT. STAY;6:PRE-CERT AND DISCH.;7:PRE-CERT, CONT. STAY AND DISCH.;^1;7^Q"
^DD(356,1.07,21,0)="^^4^4^2940128^"
^DD(356,1.07,21,1,0)="Enter type of follow that the insurance company requires for this"
^DD(356,1.07,21,2,0)="visit.  This information will be used by the reports to determine"
^DD(356,1.07,21,3,0)="if the case requires pre-cert or not, or pre-cert and continued "
^DD(356,1.07,21,4,0)="stay."
^DD(356,1.07,"DT")="2940128"
^DD(356,1.08,0)="ADDITIONAL COMMENT^F^^1;8^K:$L(X)>80!($L(X)<3) X"
^DD(356,1.08,3)="If necessary, use this field for a brief additional explanation of why this case isn't billable.  Answer must be 3-80 characters in length."
^DD(356,1.08,21,0)="^^2^2^3071228^"
^DD(356,1.08,21,1,0)="Enter any brief comment about this episode that may explain why"
^DD(356,1.08,21,2,0)="a case is not billable."
^DD(356,1.08,"DT")="3071228"
^DD(356,1.09,0)="ACUTE CARE DISCHARGE DATE^D^^1;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(356,1.09,1,0)="^.1"
^DD(356,1.09,1,1,0)="356^ADIS"
^DD(356,1.09,1,1,1)="S ^IBT(356,""ADIS"",$E(X,1,30),DA)="""""
^DD(356,1.09,1,1,2)="K ^IBT(356,""ADIS"",$E(X,1,30),DA)"
^DD(356,1.09,1,1,"%D",0)="^^2^2^2950629^"
^DD(356,1.09,1,1,"%D",1,0)="Updated by ACUTE CARE DISCHARGE DATE field (#1.17) in HOSPITAL REVIEW"
^DD(356,1.09,1,1,"%D",2,0)="File (#356.1)."
^DD(356,1.09,1,1,"DT")="2950606"
^DD(356,1.09,3)="Date entered by trigger from ACUTE CARE DISCHARE DATE of the HOSPITAL REVIEW File (#356.1)."
^DD(356,1.09,5,1,0)="356.1^1.17^1"
^DD(356,1.09,21,0)="^^3^3^2950629^^^"
^DD(356,1.09,21,1,0)="This date is filled by ACUTE CARE DISCHARGE DATE of the HOSPITAL REVIEW"
^DD(356,1.09,21,2,0)="File (#356.1) when a discharge is entered.  Used by UTILIZATION MANAGEMENT"
^DD(356,1.09,21,3,0)="ROLLUP in association with the ADIS cross-reference. "
^DD(356,1.09,"DT")="2950606"
^DD(356,1.1,0)="ECME NUMBER^F^^1;10^K:$L(X)>7!($L(X)<7) X"
^DD(356,1.1,1,0)="^.1"
^DD(356,1.1,1,1,0)="356^AE"
^DD(356,1.1,1,1,1)="S ^IBT(356,""AE"",$E(X,1,30),DA)="""""
^DD(356,1.1,1,1,2)="K ^IBT(356,""AE"",$E(X,1,30),DA)"
^DD(356,1.1,1,1,"%D",0)="^^2^2^3050328^"
^DD(356,1.1,1,1,"%D",1,0)="The cross-reference is important to identify CT billable episodes related "
^DD(356,1.1,1,1,"%D",2,0)="to the ECME number. It will be used for EDI matching purposes."
^DD(356,1.1,1,1,"DT")="3050328"
^DD(356,1.1,3)="This field is populated with a value sent by the ECME pkg"
^DD(356,1.1,10)="ECME PACKAGE"
^DD(356,1.1,21,0)="^^2^2^3050328^"
^DD(356,1.1,21,1,0)="This is the ECME NUMBER associated with the e-Pharmacy Claim. This field "
^DD(356,1.1,21,2,0)="may only be set for e-pharmacy prescriptions and refills."
^DD(356,1.1,23,0)="^^7^7^3050328^"
^DD(356,1.1,23,1,0)="ECME NUMBER is used to link the CT record to the ECME claim. After the "
^DD(356,1.1,23,2,0)="ECME package successfully submitted e-Pharmacy claim it calls IB and    "
^DD(356,1.1,23,3,0)="it creates the CT record accociated with the claim, whether it is rejected"
^DD(356,1.1,23,4,0)="by the Payer or approved. This field is especially important for the "
^DD(356,1.1,23,5,0)="rejected e-Pharmacy claims, because IB does not create bills for rejects. "
^DD(356,1.1,23,6,0)="The field ECME NUMBER in CT is the only means AR can recognize EOBs sent "
^DD(356,1.1,23,7,0)="for rejected claims."
^DD(356,1.1,"DT")="3050804"
^DD(356,1.11,0)="ECME REJECT^S^0:NO;1:REJECTED;2:CLOSED;^1;11^Q"
^DD(356,1.11,3)="Enter ""REJECTED"" if the e-claim was rejected by the Payer. Enter ""CLOSED"" if the claim was closed by OPECC."
^DD(356,1.11,21,0)="^^2^2^3050328^"
^DD(356,1.11,21,1,0)="This field is a flag to mark ECME claims rejected by the Payer. The field "
^DD(356,1.11,21,2,0)="is only meaningful if the field 1.1 ""ECME NUMBER"" is defined."
^DD(356,1.11,23,0)="^^4^4^3050328^"
^DD(356,1.11,23,1,0)="This field will be set to ""YES"" when the ECME calls IB to report that the "
^DD(356,1.11,23,2,0)="e-Pharmacy claim has been successfully submitted to the Payer, but "
^DD(356,1.11,23,3,0)="rejected due to any reason. If the e-Pharmacy will be re-submitted and "
^DD(356,1.11,23,4,0)="finally approved by the Payer, this field will be changed to ""NO""."
^DD(356,1.11,"DT")="3060219"
^DD(356,2.01,0)="NON BILLABLE CODER^P200'^VA(200,^2;1^Q"
^DD(356,2.01,3)="Enter the person who flagged as not billable who entered comments."
^DD(356,2.01,21,0)="^^2^2^3050729^"
^DD(356,2.01,21,1,0)="This field is populated automatically with the logged on user if REASON "
^DD(356,2.01,21,2,0)="NOT BILLABLE is non-blank and ADDITIONAL COMMENTS was edited."
^DD(356,2.01,"DT")="3050729"
^DD(356,2.02,0)="LAST REVIEWED BY^P200'^VA(200,^2;2^Q"
^DD(356,2.02,3)="Enter the person who last reviewed this episode of care."
^DD(356,2.02,21,0)="^^2^2^3050729^"
^DD(356,2.02,21,1,0)="This field is populated automatically with the logged on user reviewing "
^DD(356,2.02,21,2,0)="this episode of care."
^DD(356,2.02,"DT")="3050729"
^DD(356,2.03,0)="BILLABLE CODER^P200'^VA(200,^2;3^Q"
^DD(356,2.03,3)="Enter the person who last indicated billable with billable findings."
^DD(356,2.03,21,0)="^^2^2^3050729^"
^DD(356,2.03,21,1,0)="This field is populated automatically with the logged on user if REASON "
^DD(356,2.03,21,2,0)="NOT BILLABLE is blank and BILLABLE FINDINGS TYPEs were changed or added."
^DD(356,2.03,"DT")="3050729"
^DD(356,2.04,0)="CODE VALID BILLABLE DATE^D^^2;4^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(356,2.04,3)="Enter the last time Billable Finding Types were edited."
^DD(356,2.04,21,0)="^^2^2^3050729^"
^DD(356,2.04,21,1,0)="This date/time is automatically populated if BILLABLE FINDING TYPEs are "
^DD(356,2.04,21,2,0)="added or edited and the episode is billable."
^DD(356,2.04,"DT")="3050729"
^DD(356,2.05,0)="CODE VALID NON BILLABLE DATE^D^^2;5^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(356,2.05,3)="Enter the Date/Time a non-billable episode has additional comments edited."
^DD(356,2.05,21,0)="^^2^2^3050609^"
^DD(356,2.05,21,1,0)="This date/time field is updated automatically if REASON NOT BILLABLE is "
^DD(356,2.05,21,2,0)="blank and ADDITIONAL COMMENTS is edited."
^DD(356,2.05,"DT")="3050729"
^DD(356,3,0)="BILLABLE FINDINGS TYPE^356.03P^^3;0"
^DD(356,"B","ACUTE CARE DISCHARGE DATE",1.09)=""
^DD(356,"B","ADDITIONAL COMMENT",1.08)=""
^DD(356,"B","ADMISSION",.05)=""
^DD(356,"B","ADMISSION TYPE",.07)=""
^DD(356,"B","ADMITTING REASON (ICD-9)",.3)=""
^DD(356,"B","BILLABLE CODER",2.03)=""
^DD(356,"B","BILLABLE FINDINGS TYPE",3)=""
^DD(356,"B","CODE VALID BILLABLE DATE",2.04)=""
^DD(356,"B","CODE VALID NON BILLABLE DATE",2.05)=""
^DD(356,"B","DATE ENTERED",1.01)=""
^DD(356,"B","DATE LAST EDITED",1.03)=""
^DD(356,"B","EARLIEST AUTO BILL DATE",.17)=""
^DD(356,"B","ECME NUMBER",1.1)=""
^DD(356,"B","ECME REJECT",1.11)=""
^DD(356,"B","ENTERED BY",1.02)=""
^DD(356,"B","ENTRY ID",.01)=""
^DD(356,"B","EPISODE DATE",.06)=""
^DD(356,"B","ESTIMATED INS. PAYMENT (PRI)",.21)=""
^DD(356,"B","ESTIMATED INS. PAYMENT (SEC)",.22)=""
^DD(356,"B","ESTIMATED INS. PAYMENT (TER)",.23)=""
^DD(356,"B","ESTIMATED MT CHARGES",.28)=""
^DD(356,"B","ESTIMATED TOTAL CHARGES",.29)=""
^DD(356,"B","EVENT TYPE",.18)=""
^DD(356,"B","FOLLOW-UP TYPE",1.07)=""
^DD(356,"B","HOSPITAL REVIEWS ASSIGNED TO",1.05)=""
^DD(356,"B","INACTIVE",.2)=""
^DD(356,"B","INITIAL BILL NUMBER",.11)=""
^DD(356,"B","INS. REVIEWS ASSIGNED TO",1.06)=""
^DD(356,"B","INSURANCE CLAIM?",.24)="1"
^DD(356,"B","LAST EDITED BY",1.04)=""
^DD(356,"B","LAST REVIEWED BY",2.02)=""
^DD(356,"B","LOCAL ADDITION?",.27)="1"
^DD(356,"B","NON BILLABLE CODER",2.01)=""
^DD(356,"B","NOT BILLABLE REASON",.19)="1"
^DD(356,"B","OTHER TYPE OF BILL",.12)=""
^DD(356,"B","OUTPATIENT ENCOUNTER",.04)=""
^DD(356,"B","PATIENT",.02)=""
^DD(356,"B","PRESCRIPTION",.08)=""
^DD(356,"B","PROSTHETIC ITEM",.09)=""
^DD(356,"B","RANDOM SAMPLE?",.25)="1"
^DD(356,"B","REASON NOT BILLABLE",.19)=""
^DD(356,"B","REFILL DATE",.1)=""
^DD(356,"B","SCHEDULED ADMISSION",.32)=""
^DD(356,"B","SECOND OPINION OBTAINED",.15)=""
^DD(356,"B","SECOND OPINION REQUIRED",.14)=""
^DD(356,"B","SPECIAL CONDITION?",.26)="1"
^DD(356,"B","SPECIAL CONSENT ROI",.31)=""
^DD(356,"B","TRACKED AS A LOCAL ADDITION?",.27)=""
^DD(356,"B","TRACKED AS INSURANCE CLAIM?",.24)=""
^DD(356,"B","TRACKED AS RANDOM SAMPLE?",.25)=""
^DD(356,"B","TRACKED AS SPECIAL CONDITION",.26)=""
^DD(356,"B","VISIT",.03)=""
^DD(356,"GL",0,1,.01)=""
^DD(356,"GL",0,2,.02)=""
^DD(356,"GL",0,3,.03)=""
^DD(356,"GL",0,4,.04)=""
^DD(356,"GL",0,5,.05)=""
^DD(356,"GL",0,6,.06)=""
^DD(356,"GL",0,7,.07)=""
^DD(356,"GL",0,8,.08)=""
^DD(356,"GL",0,9,.09)=""
^DD(356,"GL",0,10,.1)=""
^DD(356,"GL",0,11,.11)=""
^DD(356,"GL",0,12,.12)=""
^DD(356,"GL",0,14,.14)=""
^DD(356,"GL",0,15,.15)=""
^DD(356,"GL",0,17,.17)=""
^DD(356,"GL",0,18,.18)=""
^DD(356,"GL",0,19,.19)=""
^DD(356,"GL",0,20,.2)=""
^DD(356,"GL",0,21,.21)=""
^DD(356,"GL",0,22,.22)=""
^DD(356,"GL",0,23,.23)=""
^DD(356,"GL",0,24,.24)=""
^DD(356,"GL",0,25,.25)=""
^DD(356,"GL",0,26,.26)=""
^DD(356,"GL",0,27,.27)=""
^DD(356,"GL",0,28,.28)=""
^DD(356,"GL",0,29,.29)=""
^DD(356,"GL",0,30,.3)=""
^DD(356,"GL",0,31,.31)=""
^DD(356,"GL",0,32,.32)=""
^DD(356,"GL",1,1,1.01)=""
^DD(356,"GL",1,2,1.02)=""
^DD(356,"GL",1,3,1.03)=""
^DD(356,"GL",1,4,1.04)=""
^DD(356,"GL",1,5,1.05)=""
^DD(356,"GL",1,6,1.06)=""
^DD(356,"GL",1,7,1.07)=""
^DD(356,"GL",1,8,1.08)=""
^DD(356,"GL",1,9,1.09)=""
^DD(356,"GL",1,10,1.1)=""
^DD(356,"GL",1,11,1.11)=""
^DD(356,"GL",2,1,2.01)=""
^DD(356,"GL",2,2,2.02)=""
^DD(356,"GL",2,3,2.03)=""
^DD(356,"GL",2,4,2.04)=""
^DD(356,"GL",2,5,2.05)=""
^DD(356,"GL",3,0,3)=""
^DD(356,"IX",.01)=""
^DD(356,"IX",.02)=""
^DD(356,"IX",.03)=""
^DD(356,"IX",.04)=""
^DD(356,"IX",.05)=""
^DD(356,"IX",.06)=""
^DD(356,"IX",.08)=""
^DD(356,"IX",.09)=""
^DD(356,"IX",.1)=""
^DD(356,"IX",.11)=""
^DD(356,"IX",.12)=""
^DD(356,"IX",.17)=""
^DD(356,"IX",.18)=""
^DD(356,"IX",.19)=""
^DD(356,"IX",.2)=""
^DD(356,"IX",.24)=""
^DD(356,"IX",.32)=""
^DD(356,"IX",1.01)=""
^DD(356,"IX",1.09)=""
^DD(356,"IX",1.1)=""
^DD(356,"RQ",.01)=""
^DD(356,"SB",356.03,3)=""
^DD(356.03,0)="BILLABLE FINDINGS TYPE SUB-FIELD^^.01^1"
^DD(356.03,0,"DT")="3050613"
^DD(356.03,0,"IX","B",356.03,.01)=""
^DD(356.03,0,"NM","BILLABLE FINDINGS TYPE")=""
^DD(356.03,0,"UP")="356"
^DD(356.03,.01,0)="BILLABLE FINDINGS TYPE^MP356.85'^IBT(356.85,^0;1^Q"
^DD(356.03,.01,1,0)="^.1"
^DD(356.03,.01,1,1,0)="356.03^B"
^DD(356.03,.01,1,1,1)="S ^IBT(356,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(356.03,.01,1,1,2)="K ^IBT(356,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(356.03,.01,3)="Enter the Billable Findings for this claim."
^DD(356.03,.01,21,0)="^^2^2^3050613^"
^DD(356.03,.01,21,1,0)="If REASON NOT BILLABLE is blank, this is asked to allow input of Billable "
^DD(356.03,.01,21,2,0)="Findings."
^DD(356.03,.01,"DT")="3050613"
^DD(356.03,"B","BILLABLE FINDINGS TYPE",.01)=""
^DD(356.03,"GL",0,1,.01)=""
^DD(356.03,"IX",.01)=""
^DD(356.1,0)="FIELD^^21^34"
^DD(356.1,0,"DT")="2930928"
^DD(356.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBT(356,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(356,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.1,0,"ID",.21)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(356.1,.21,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,21)_"""":"""",2),$C(59),1)"")"
^DD(356.1,0,"ID",.22)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(356.11,+$P(^(0),U,22),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(356.11,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.1,0,"IX","AC",356.1,.21)=""
^DD(356.1,0,"IX","AD",356.1,.22)=""
^DD(356.1,0,"IX","APEND",356.1,.2)=""
^DD(356.1,0,"IX","ASPC",356.1,.07)=""
^DD(356.1,0,"IX","ATIDT",356.1,.01)=""
^DD(356.1,0,"IX","ATIDT1",356.1,.02)=""
^DD(356.1,0,"IX","ATRTP",356.1,.22)=""
^DD(356.1,0,"IX","ATRTP1",356.1,.02)=""
^DD(356.1,0,"IX","B",356.1,.01)=""
^DD(356.1,0,"IX","C",356.1,.02)=""
^DD(356.1,0,"NM","HOSPITAL REVIEW")=""
^DD(356.1,0,"PT",356.1,.24)=""
^DD(356.1,0,"PT",356.2,.03)=""
^DD(356.1,0,"VR")="2.0"
^DD(356.1,.01,0)="REVIEW DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.1,.01,1,0)="^.1"
^DD(356.1,.01,1,1,0)="356.1^B"
^DD(356.1,.01,1,1,1)="S ^IBT(356.1,""B"",$E(X,1,30),DA)="""""
^DD(356.1,.01,1,1,2)="K ^IBT(356.1,""B"",$E(X,1,30),DA)"
^DD(356.1,.01,1,2,0)="356.1^ATIDT^MUMPS"
^DD(356.1,.01,1,2,1)="S:$P(^IBT(356.1,DA,0),U,2) ^IBT(356.1,""ATIDT"",$P(^(0),U,2),-X,DA)="""""
^DD(356.1,.01,1,2,2)="K ^IBT(356.1,""ATIDT"",+$P(^IBT(356.1,DA,0),U,2),-X,DA)"
^DD(356.1,.01,1,2,"%D",0)="^^2^2^2930714^"
^DD(356.1,.01,1,2,"%D",1,0)="Cross reference in inverse date order of all reviews for a tracking "
^DD(356.1,.01,1,2,"%D",2,0)="entry."
^DD(356.1,.01,1,2,"DT")="2930714"
^DD(356.1,.01,3)=""
^DD(356.1,.01,21,0)="^^13^13^2940213^^^^"
^DD(356.1,.01,21,1,0)="This is the date of the Review.  Normally, reviews are done for UR purposes"
^DD(356.1,.01,21,2,0)="on days 3, 6, 9, 14, 21, 28 and every 7 days thereafter.  This field"
^DD(356.1,.01,21,3,0)="contains the date of these reviews."
^DD(356.1,.01,21,4,0)=" "
^DD(356.1,.01,21,5,0)="There are 2 related fields,  DAY FOR REVIEW, and DATE ENTERED.  The field"
^DD(356.1,.01,21,6,0)="DAY FOR REVIEW will generally be computed for you based on the REVIEW DATE."
^DD(356.1,.01,21,7,0)="The DATE ENTERED is the date the review was entered into the computer and"
^DD(356.1,.01,21,8,0)="is automatically generated for you."
^DD(356.1,.01,21,9,0)=" "
^DD(356.1,.01,21,10,0)="Normally the REVIEW DATEs are done in order. The pre-cert or urgent"
^DD(356.1,.01,21,11,0)="admission review is done before the continued stay reviews which"
^DD(356.1,.01,21,12,0)="in turn are normally done before the Discharge review.  The order of"
^DD(356.1,.01,21,13,0)="reviews shown on the main review screen is based on REVIEW DATE."
^DD(356.1,.01,"DT")="2930714"
^DD(356.1,.02,0)="TRACKING ID^P356'^IBT(356,^0;2^Q"
^DD(356.1,.02,1,0)="^.1"
^DD(356.1,.02,1,1,0)="356.1^C"
^DD(356.1,.02,1,1,1)="S ^IBT(356.1,""C"",$E(X,1,30),DA)="""""
^DD(356.1,.02,1,1,2)="K ^IBT(356.1,""C"",$E(X,1,30),DA)"
^DD(356.1,.02,1,1,"DT")="2930702"
^DD(356.1,.02,1,2,0)="356.1^ATIDT1^MUMPS"
^DD(356.1,.02,1,2,1)="S:+^IBT(356.1,DA,0) ^IBT(356.1,""ATIDT"",X,-$P(^(0),U),DA)="""""
^DD(356.1,.02,1,2,2)="K ^IBT(356.1,""ATIDT"",X,-$P(^IBT(356.1,DA,0),U),DA)"
^DD(356.1,.02,1,2,"%D",0)="^^2^2^2930714^"
^DD(356.1,.02,1,2,"%D",1,0)="Cross reference in inverse date order of all reviews for a tracking  "
^DD(356.1,.02,1,2,"%D",2,0)="entry."
^DD(356.1,.02,1,2,"DT")="2930714"
^DD(356.1,.02,1,3,0)="356.1^ATRTP1^MUMPS"
^DD(356.1,.02,1,3,1)="S:$P(^IBT(356.1,DA,0),U,22) ^IBT(356.1,""ATRTP"",X,+$P($G(^IBE(356.11,+$P(^(0),U,22),0)),U,2),DA)="""""
^DD(356.1,.02,1,3,2)="K ^IBT(356.1,""ATRTP"",X,+$P($G(^IBE(356.11,+$P(^IBT(356.1,DA,0),U,22),0)),U,2),DA)"
^DD(356.1,.02,1,3,"%D",0)="^^2^2^2930904^^^^"
^DD(356.1,.02,1,3,"%D",1,0)="Cross reference of all reviews for a tracking entry by type of review"
^DD(356.1,.02,1,3,"%D",2,0)="code."
^DD(356.1,.02,1,3,"DT")="2930904"
^DD(356.1,.02,3)=""
^DD(356.1,.02,21,0)="^^3^3^2930719^^"
^DD(356.1,.02,21,1,0)="This is the Claims Tracking entry that is being reviewed.  Generally"
^DD(356.1,.02,21,2,0)="only inpatient admissions will have reviews performed."
^DD(356.1,.02,21,3,0)=" "
^DD(356.1,.02,"DT")="2930904"
^DD(356.1,.03,0)="DAY FOR REVIEW^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.1,.03,3)="Enter the numeric day of this review, ie, 3, 6, 9, 14, 21, 28, etc.  Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(356.1,.03,21,0)="^^8^8^2940213^^^^"
^DD(356.1,.03,21,1,0)="This is the number of the day of a continued stay review.  Continued stay"
^DD(356.1,.03,21,2,0)="reviews for UR purposes are generally done on days 3, 6, 9, 14, 21, 28,"
^DD(356.1,.03,21,3,0)="and every 7 days thereafter.  This field is normally computed from the"
^DD(356.1,.03,21,4,0)="Review date field.  However, it may be changed for reviews that are not"
^DD(356.1,.03,21,5,0)="solely for UR purposes."
^DD(356.1,.03,21,6,0)=" "
^DD(356.1,.03,21,7,0)="Pre-certification reviews, Urgent Admission reviews, and Discharge "
^DD(356.1,.03,21,8,0)="reviews will not have any data in this field."
^DD(356.1,.03,"DT")="2930714"
^DD(356.1,.04,0)="SEVERITY OF ILLNESS^P356.3'^IBE(356.3,^0;4^Q"
^DD(356.1,.04,21,0)="^^3^3^2940213^^"
^DD(356.1,.04,21,1,0)="Enter the Severity of Illness (SI) category that best describes the"
^DD(356.1,.04,21,2,0)="criteria met for continued stay days of care.  Select the PRIMARY"
^DD(356.1,.04,21,3,0)="category for this review."
^DD(356.1,.04,"DT")="2960314"
^DD(356.1,.05,0)="INTENSITY OF SERVICE^P356.3'^IBE(356.3,^0;5^Q"
^DD(356.1,.05,21,0)="^^3^3^2940213^^"
^DD(356.1,.05,21,1,0)="Enter the Intensity of Service (IS) category that best describes the"
^DD(356.1,.05,21,2,0)="criteria met for continued stay days of care.  Select the PRIMARY"
^DD(356.1,.05,21,3,0)="category for this review."
^DD(356.1,.05,"DT")="2930719"
^DD(356.1,.06,0)="CRITERIA MET IN 24 HOURS^S^1:YES;0:NO;^0;6^Q"
^DD(356.1,.06,21,0)="^^4^4^2940213^^"
^DD(356.1,.06,21,1,0)="For Pre-certification Reviews and Urgent Admission reviews enter if the"
^DD(356.1,.06,21,2,0)="patient met IS or SI criteria for acute admissions within 24 hours of"
^DD(356.1,.06,21,3,0)="admission.  If the criteria was not met, then selection of a REASON "
^DD(356.1,.06,21,4,0)="FOR NON-ACUTE ADMISSIONS will be required."
^DD(356.1,.07,0)="SPECIALTY FOR REVIEW^P45.7'^DIC(45.7,^0;7^Q"
^DD(356.1,.07,1,0)="^.1"
^DD(356.1,.07,1,1,0)="356.1^ASPC"
^DD(356.1,.07,1,1,1)="S ^IBT(356.1,""ASPC"",$E(X,1,30),DA)="""""
^DD(356.1,.07,1,1,2)="K ^IBT(356.1,""ASPC"",$E(X,1,30),DA)"
^DD(356.1,.07,1,1,"DT")="2930716"
^DD(356.1,.07,21,0)="^^3^3^2940216^^^^"
^DD(356.1,.07,21,1,0)="Enter the specialty that is treating the patient for this review.  "
^DD(356.1,.07,21,2,0)="Normally this will automatically be retrieved from the admission/transfer "
^DD(356.1,.07,21,3,0)="records and you will only need to confirm."
^DD(356.1,.07,"DT")="2940216"
^DD(356.1,.08,0)="SPECIALIZED UNIT SI^*P356.3'^IBE(356.3,^0;8^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.1,.08,12)="Only categories for special units may be selected!"
^DD(356.1,.08,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356.1,.08,21,0)="^^8^8^2940213^^^^"
^DD(356.1,.08,21,1,0)="Enter the Severity of Illness (SI) category that best describes the"
^DD(356.1,.08,21,2,0)="criteria met for continued stay days of care.  Select the PRIMARY"
^DD(356.1,.08,21,3,0)="category for this review."
^DD(356.1,.08,21,4,0)=" "
^DD(356.1,.08,21,5,0)="For patients in specialized units the SI categories are different"
^DD(356.1,.08,21,6,0)="than for non-specialized units.  The definition of specialized"
^DD(356.1,.08,21,7,0)="units for interqual is different than what we normally consider"
^DD(356.1,.08,21,8,0)="intensive care units."
^DD(356.1,.08,22)=""
^DD(356.1,.08,"DT")="2930719"
^DD(356.1,.09,0)="SPECIALIZED UNIT IS^*P356.3'^IBE(356.3,^0;9^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.1,.09,12)="Only categories for special units may be selected!"
^DD(356.1,.09,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356.1,.09,21,0)="^^8^8^2940213^^"
^DD(356.1,.09,21,1,0)="Enter the Intensity of Service (IS) category that best describes the"
^DD(356.1,.09,21,2,0)="criteria met for continued stay days of care.  Select the PRIMARY"
^DD(356.1,.09,21,3,0)="category for this review."
^DD(356.1,.09,21,4,0)=" "
^DD(356.1,.09,21,5,0)="For patient in specialized units the IS categories are different"
^DD(356.1,.09,21,6,0)="than for non-specialized units.  The definition of specialized"
^DD(356.1,.09,21,7,0)="units for interqual is different than what we normally consider"
^DD(356.1,.09,21,8,0)="intensive care units."
^DD(356.1,.09,"DT")="2930719"
^DD(356.1,.1,0)="PROVIDER INTERVIEWED?^S^1:YES;0:NO;^0;10^Q"
^DD(356.1,.1,21,0)="^^3^3^2930719^"
^DD(356.1,.1,21,1,0)="For Pre-certification reviews and Urgent Admission reviews enter whether"
^DD(356.1,.1,21,2,0)="or not UR interviewed the provider regarding the appropriateness of the"
^DD(356.1,.1,21,3,0)="admission."
^DD(356.1,.1,"DT")="2930610"
^DD(356.1,.11,0)="ADMISSION DECISION INFLUENCED^S^1:YES;0:NO;^0;11^Q"
^DD(356.1,.11,21,0)="^^3^3^2930719^"
^DD(356.1,.11,21,1,0)="If the provider was interviewed about the appropriateness of admission"
^DD(356.1,.11,21,2,0)="then answer whether or not the decision to admit the patient was"
^DD(356.1,.11,21,3,0)="influenced."
^DD(356.1,.11,"DT")="2930610"
^DD(356.1,.12,0)="D/C SCREENS MET^P356.3'^IBE(356.3,^0;12^"
^DD(356.1,.12,21,0)="^^1^1^2930719^^"
^DD(356.1,.12,21,1,0)="Enter the Intensity of Service category whose discharge screens were met."
^DD(356.1,.12,"DT")="2930719"
^DD(356.1,.13,0)="SPECIAL CARE D/C SCREENS MET^*P356.3'^IBE(356.3,^0;13^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.1,.13,3)=""
^DD(356.1,.13,12)="Only categories for specialized units may be selected!"
^DD(356.1,.13,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356.1,.13,21,0)="^^2^2^2930726^^^"
^DD(356.1,.13,21,1,0)="Enter the Intesity of Service Category whose discharge screens were"
^DD(356.1,.13,21,2,0)="met."
^DD(356.1,.13,"DT")="2930719"
^DD(356.1,.14,0)="SI/IS APPLY ALL DAYS^S^1:YES;0:NO;^0;14^Q"
^DD(356.1,.14,21,0)="^^6^6^2940213^^^^"
^DD(356.1,.14,21,1,0)="Answer whether or not the Severity of Illness (SI) or Intensity of"
^DD(356.1,.14,21,2,0)="Service (IS) criteria apply to all days.  If not, then the number"
^DD(356.1,.14,21,3,0)="of non-acute days and the reason for non-acute days should be"
^DD(356.1,.14,21,4,0)="answered."
^DD(356.1,.14,21,5,0)=" "
^DD(356.1,.14,21,6,0)="The dates of non-acute care should be entered in the comments field."
^DD(356.1,.14,22)=""
^DD(356.1,.14,"DT")="2930610"
^DD(356.1,.19,0)="ACTIVE^S^1:YES;0:NO;^0;19^Q"
^DD(356.1,.19,3)="Enter whether this Review is ACTIVE or not.  Answering ""NO"" has a similar effect to deleting the entry, it will no longer appear on reports or input screens."
^DD(356.1,.19,21,0)="^^5^5^2930726^"
^DD(356.1,.19,21,1,0)="Enter if this review is active or not.  If a review is not active it"
^DD(356.1,.19,21,2,0)="will not be used or displayed on input screens or reports.  "
^DD(356.1,.19,21,3,0)=" "
^DD(356.1,.19,21,4,0)="Inactivating an entry has the same effect as deleting the entry, with the"
^DD(356.1,.19,21,5,0)="added benefit of leaving the data for later review if necessary."
^DD(356.1,.19,"DT")="2930610"
^DD(356.1,.2,0)="NEXT REVIEW DATE^D^^0;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.1,.2,1,0)="^.1"
^DD(356.1,.2,1,1,0)="356.1^APEND"
^DD(356.1,.2,1,1,1)="S ^IBT(356.1,""APEND"",$E(X,1,30),DA)="""""
^DD(356.1,.2,1,1,2)="K ^IBT(356.1,""APEND"",$E(X,1,30),DA)"
^DD(356.1,.2,1,1,"%D",0)="^^2^2^2940213^^"
^DD(356.1,.2,1,1,"%D",1,0)="Cross reference of all non-completed reviews so it can be used as a tickler"
^DD(356.1,.2,1,1,"%D",2,0)="file."
^DD(356.1,.2,1,1,"DT")="2930722"
^DD(356.1,.2,5,1,0)="356.1^.21^4"
^DD(356.1,.2,21,0)="^^7^7^2940213^^"
^DD(356.1,.2,21,1,0)="This is the date that this review should be reviewed next.  If the review"
^DD(356.1,.2,21,2,0)="status is entered then this field will contain the date it was entered.  If"
^DD(356.1,.2,21,3,0)="the review status is complete then the data in this field is automatically"
^DD(356.1,.2,21,4,0)="deleted."
^DD(356.1,.2,21,5,0)=" "
^DD(356.1,.2,21,6,0)="This field is used to create your pending work lists.  Enter the date that"
^DD(356.1,.2,21,7,0)="you want to be reminded to follow-up on this review."
^DD(356.1,.2,"DT")="2930722"
^DD(356.1,.21,0)="REVIEW STATUS^S^0:INACTIVE;1:ENTERED;2:PENDING;10:COMPLETE;^0;21^Q"
^DD(356.1,.21,1,0)="^.1"
^DD(356.1,.21,1,1,0)="356.1^AC"
^DD(356.1,.21,1,1,1)="S ^IBT(356.1,""AC"",$E(X,1,30),DA)="""""
^DD(356.1,.21,1,1,2)="K ^IBT(356.1,""AC"",$E(X,1,30),DA)"
^DD(356.1,.21,1,1,"DT")="2930714"
^DD(356.1,.21,1,2,0)="^^TRIGGER^356.1^1.05"
^DD(356.1,.21,1,2,1)="X ^DD(356.1,.21,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(356.1,.21,1,2,1.4)"
^DD(356.1,.21,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(3)=$S($D(^IBT(356.1,D0,1)):^(1),1:"""") S X=Y(0),X=X S X=X=10,Y(1)=$G(X),Y(2)=$G(X) S X=$P(Y(3),U,5)="""",Y=X,X=Y(1),X=X&Y"
^DD(356.1,.21,1,2,1.4)="S DIH=$G(^IBT(356.1,DIV(0),1)),DIV=X S $P(^(1),U,5)=DIV,DIH=356.1,DIG=1.05 D ^DICR"
^DD(356.1,.21,1,2,2)="Q"
^DD(356.1,.21,1,2,"%D",0)="^^1^1^3040610^"
^DD(356.1,.21,1,2,"%D",1,0)="Trigger date completed when status changes to complete"
^DD(356.1,.21,1,2,"CREATE CONDITION")="((INTERNAL(#.21)=10)&((#1.05)=""""))"
^DD(356.1,.21,1,2,"CREATE VALUE")="NOW"
^DD(356.1,.21,1,2,"DELETE VALUE")="NO EFFECT"
^DD(356.1,.21,1,2,"DT")="3040610"
^DD(356.1,.21,1,2,"FIELD")="#1.05"
^DD(356.1,.21,1,3,0)="^^TRIGGER^356.1^1.06"
^DD(356.1,.21,1,3,1)="X ^DD(356.1,.21,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^IBT(356.1,DIV(0),1)),DIV=X S $P(^(1),U,6)=DIV,DIH=356.1,DIG=1.06 D ^DICR"
^DD(356.1,.21,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(3)=$S($D(^IBT(356.1,D0,1)):^(1),1:"""") S X=Y(0),X=X S X=X=10,Y(1)=$G(X),Y(2)=$G(X) S X=$P($G(^VA(200,+$P(Y(3),U,6),0)),U)="""",Y=X,X=Y(1),X=X&Y"
^DD(356.1,.21,1,3,2)="Q"
^DD(356.1,.21,1,3,"%D",0)="^^1^1^3040728^"
^DD(356.1,.21,1,3,"%D",1,0)="Trigger completed by when status changes to complete"
^DD(356.1,.21,1,3,"CREATE CONDITION")="((INTERNAL(#.21)=10)&((#1.06)=""""))"
^DD(356.1,.21,1,3,"CREATE VALUE")="S X=DUZ"
^DD(356.1,.21,1,3,"DELETE VALUE")="NO EFFECT"
^DD(356.1,.21,1,3,"DT")="3040728"
^DD(356.1,.21,1,3,"FIELD")="#1.06"
^DD(356.1,.21,1,4,0)="^^TRIGGER^356.1^.2"
^DD(356.1,.21,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.1,DA,0),U,21)=10 I X S X=DIV S Y(1)=$S($D(^IBT(356.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(356.1,.21,1,4,1.4)"
^DD(356.1,.21,1,4,1.4)="S DIH=$S($D(^IBT(356.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,20)=DIV,DIH=356.1,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(356.1,.21,1,4,2)="Q"
^DD(356.1,.21,1,4,"%D",0)="^^1^1^2940209^"
^DD(356.1,.21,1,4,"%D",1,0)="Deletes the Next Review Date whenever the status is set to completed."
^DD(356.1,.21,1,4,"CREATE CONDITION")="I $P(^IBT(356.1,DA,0),U,21)=10"
^DD(356.1,.21,1,4,"CREATE VALUE")="@"
^DD(356.1,.21,1,4,"DELETE VALUE")="NO EFFECT"
^DD(356.1,.21,1,4,"DT")="2940209"
^DD(356.1,.21,1,4,"FIELD")="#.2"
^DD(356.1,.21,3)="Enter the status of this review.  Reviews that are not completed will continue to appear on your pending work lists."
^DD(356.1,.21,21,0)="^^5^5^2940213^^"
^DD(356.1,.21,21,1,0)="This is the status of this review.  Reviews that are entered or pending"
^DD(356.1,.21,21,2,0)="should contain a next review date.  Once a review is completed, the next"
^DD(356.1,.21,21,3,0)="review date is automatically deleted.  If a review status is changed from"
^DD(356.1,.21,21,4,0)="complete to any other status then the next review date is automatically"
^DD(356.1,.21,21,5,0)="set to today, but may be edited."
^DD(356.1,.21,"DT")="3040728"
^DD(356.1,.22,0)="TYPE OF REVIEW^R*P356.11'^IBE(356.11,^0;22^S DIC(""S"")=""I $P(^(0),U,2)=15!($P(^(0),U,2)=30)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.1,.22,1,0)="^.1"
^DD(356.1,.22,1,1,0)="356.1^AD"
^DD(356.1,.22,1,1,1)="S ^IBT(356.1,""AD"",$E(X,1,30),DA)="""""
^DD(356.1,.22,1,1,2)="K ^IBT(356.1,""AD"",$E(X,1,30),DA)"
^DD(356.1,.22,1,1,"DT")="2930719"
^DD(356.1,.22,1,2,0)="356.1^ATRTP^MUMPS"
^DD(356.1,.22,1,2,1)="S:$P(^IBT(356.1,DA,0),U,2) ^IBT(356.1,""ATRTP"",$P(^(0),U,2),+$P($G(^IBE(356.11,X,0)),U,2),DA)="""""
^DD(356.1,.22,1,2,2)="K ^IBT(356.1,""ATRTP"",+$P(^IBT(356.1,DA,0),U,2),+$P($G(^IBE(356.11,X,0)),U,2),DA)"
^DD(356.1,.22,1,2,"%D",0)="^^2^2^2930720^^^"
^DD(356.1,.22,1,2,"%D",1,0)="Cross reference of all reviews for a tracking entry by type of review"
^DD(356.1,.22,1,2,"%D",2,0)="code."
^DD(356.1,.22,1,2,"DT")="2930720"
^DD(356.1,.22,12)="Only admission review types may be selected!"
^DD(356.1,.22,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=15!($P(^(0),U,2)=30)"""
^DD(356.1,.22,21,0)="^^1^1^2940127^^^^"
^DD(356.1,.22,21,1,0)="Enter whether or not this is an admission review or a continued stay review."
^DD(356.1,.22,"DT")="2930901"
^DD(356.1,.23,0)="REVIEW METHODOLOGY^S^1:INTERQUAL;2:MILLIMAN & ROBERTSON;999:OTHER;^0;23^Q"
^DD(356.1,.23,21,0)="^^8^8^2930726^"
^DD(356.1,.23,21,1,0)="Enter the Review Methodology being used for this review.  Generally"
^DD(356.1,.23,21,2,0)="the INTERQUAL method is being used as the methodology for UR required"
^DD(356.1,.23,21,3,0)="review.  Insurance carriers may require other review methodologies."
^DD(356.1,.23,21,4,0)=" "
^DD(356.1,.23,21,5,0)="Currently, if the type of review methodology is INTERQUAL then the"
^DD(356.1,.23,21,6,0)="categories for severity of illness and intensity of service will be"
^DD(356.1,.23,21,7,0)="prompted.  This data will be used for national roll-up purposes for"
^DD(356.1,.23,21,8,0)="UR."
^DD(356.1,.23,"DT")="2940127"
^DD(356.1,.24,0)="REVIEW COPIED FROM^*P356.1'^IBT(356.1,^0;24^S DIC(""S"")=""I $P(^(O),U,2)=$P(^IBT(356.1,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.1,.24,12)="Must be for the same claims tracking id"
^DD(356.1,.24,12.1)="S DIC(""S"")=""I $P(^(O),U,2)=$P(^IBT(356.1,DA,0),U,2)"""
^DD(356.1,.24,21,0)="^^2^2^2930904^"
^DD(356.1,.24,21,1,0)="If this review was automatically copied during the editing of a review"
^DD(356.1,.24,21,2,0)="then this is the review it was copied from."
^DD(356.1,.24,"DT")="2930904"
^DD(356.1,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.1,1.01,21,0)="^^2^2^2930726^"
^DD(356.1,1.01,21,1,0)="This is the date this review was entered into the computer.  It is"
^DD(356.1,1.01,21,2,0)="generated when the review is entered and not editable by the user."
^DD(356.1,1.01,"DT")="2930714"
^DD(356.1,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(356.1,1.02,21,0)="^^4^4^2940213^^"
^DD(356.1,1.02,21,1,0)="This is the user who was signed on to the computer system when this"
^DD(356.1,1.02,21,2,0)="review was created.  If this review was created automatically by"
^DD(356.1,1.02,21,3,0)="the computer from an admission or outpatient visit, then this might"
^DD(356.1,1.02,21,4,0)="be a user for MAS, IRM or other service."
^DD(356.1,1.02,"DT")="2930610"
^DD(356.1,1.03,0)="LAST EDIT ON^D^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.1,1.03,3)=""
^DD(356.1,1.03,21,0)="^^4^4^2930726^^^"
^DD(356.1,1.03,21,1,0)="This is the date that this review was last edited by a user using "
^DD(356.1,1.03,21,2,0)="the input options.  Every time any"
^DD(356.1,1.03,21,3,0)="field other than the UR COMMENT field is edited this field is updated"
^DD(356.1,1.03,21,4,0)="to the current date."
^DD(356.1,1.03,"DT")="2930714"
^DD(356.1,1.04,0)="LAST EDITED BY^P200'^VA(200,^1;4^Q"
^DD(356.1,1.04,21,0)="^^4^4^2940213^^"
^DD(356.1,1.04,21,1,0)="This is the signed on user who last edited this entry using the input"
^DD(356.1,1.04,21,2,0)="screens.  Every time a review is edited with the input screens, this"
^DD(356.1,1.04,21,3,0)="field is updated.  (If only the UR COMMENTS field is updated then"
^DD(356.1,1.04,21,4,0)="this field is not changed.)"
^DD(356.1,1.04,"DT")="2930610"
^DD(356.1,1.05,0)="DATE COMPLETED^D^^1;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.1,1.05,3)=""
^DD(356.1,1.05,5,1,0)="356.1^.21^2"
^DD(356.1,1.05,21,0)="^^2^2^2940213^^^"
^DD(356.1,1.05,21,1,0)="This is the date that this review was completed.  It is triggered by "
^DD(356.1,1.05,21,2,0)="the REVIEW STATUS field every time the review is completed."
^DD(356.1,1.05,"DT")="2930714"
^DD(356.1,1.06,0)="COMPLETED BY^P200'^VA(200,^1;6^Q"
^DD(356.1,1.06,5,1,0)="356.1^.21^3"
^DD(356.1,1.06,21,0)="^^2^2^2930726^"
^DD(356.1,1.06,21,1,0)="This is the user who completed this review.  It is triggered by the"
^DD(356.1,1.06,21,2,0)="REVIEW STATUS field when the status chages to complete."
^DD(356.1,1.06,"DT")="2930610"
^DD(356.1,1.13,0)="ADD NEXT REVIEW^S^1:YES;0:NO;^1;13^Q"
^DD(356.1,1.13,21,0)="^^4^4^2940213^^"
^DD(356.1,1.13,21,1,0)="If you wish to add the next day reviewed at this time answer YEand"
^DD(356.1,1.13,21,2,0)="you may procede directly into the next review.  Answer NO and you"
^DD(356.1,1.13,21,3,0)="will be returned to the Hospital Review Screen.  You may add another"
^DD(356.1,1.13,21,4,0)="day for review at any time."
^DD(356.1,1.13,"DT")="2930830"
^DD(356.1,1.14,0)="NEXT REVIEW EXACTLY THE SAME^S^1:YES;0:NO;^1;14^Q"
^DD(356.1,1.14,3)=""
^DD(356.1,1.14,21,0)="^^6^6^2940213^^"
^DD(356.1,1.14,21,1,0)="If the Next Day for Review is exactly the same as the day you just"
^DD(356.1,1.14,21,2,0)="finished entering answer YES and the computer will copy this days"
^DD(356.1,1.14,21,3,0)="review into the next days review so you don't have to do all the"
^DD(356.1,1.14,21,4,0)="data entry.  Answer No and you will be asked each prompt as appropriate."
^DD(356.1,1.14,21,5,0)=" "
^DD(356.1,1.14,21,6,0)="A review that was copied may be edited at any time if necessary."
^DD(356.1,1.14,"DT")="2930830"
^DD(356.1,1.15,0)="ADDITIONAL REVIEWS REQUIRED^S^1:YES;0:NO;^1;15^Q"
^DD(356.1,1.15,3)=""
^DD(356.1,1.15,21,0)="^^4^4^2940213^^^"
^DD(356.1,1.15,21,1,0)="If this visit does not require any additional reviews then answer NO and"
^DD(356.1,1.15,21,2,0)="the computer will not create any more reviews automatically unless there"
^DD(356.1,1.15,21,3,0)="is a change is service.  Answer YES or leave blank if additional reviews"
^DD(356.1,1.15,21,4,0)="are required."
^DD(356.1,1.15,22)=""
^DD(356.1,1.15,"DT")="2930830"
^DD(356.1,1.17,0)="ACUTE CARE DISCHARGE DATE^D^^1;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.1,1.17,1,0)="^.1"
^DD(356.1,1.17,1,1,0)="^^TRIGGER^356^1.09"
^DD(356.1,1.17,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(356.1,1.17,1,1,89.2) S X=$P(Y(101),U,9) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(356.1,1.17,1,1,1.4)"
^DD(356.1,1.17,1,1,1.4)="S DIH=$S($D(^IBT(356,DIV(0),1)):^(1),1:""""),DIV=X I $D(^(0)) S $P(^(1),U,9)=DIV,DIH=356,DIG=1.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(356.1,1.17,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(356.1,1.17,1,1,89.2) S X=$P(Y(101),U,9) S D0=I(0,0) S DIU=X K Y X ^DD(356.1,1.17,1,1,2.1) X ^DD(356.1,1.17,1,1,2.4)"
^DD(356.1,1.17,1,1,2.1)="S X=DIV S Y(1)=$S($D(^IBT(356.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,17)"
^DD(356.1,1.17,1,1,2.4)="S DIH=$S($D(^IBT(356,DIV(0),1)):^(1),1:""""),DIV=X I $D(^(0)) S $P(^(1),U,9)=DIV,DIH=356,DIG=1.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(356.1,1.17,1,1,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBT(356.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^IBT(356,D0,1)):^(1),1:"""")"
^DD(356.1,1.17,1,1,"%D",0)="^^4^4^2951204^"
^DD(356.1,1.17,1,1,"%D",1,0)="For use in the UTILIZATION MANAGEMENT ROLLUP package, this trigger"
^DD(356.1,1.17,1,1,"%D",2,0)="cross-reference fills the ACUTE CARE DISCHARGE DATE Field (#1.09) of the"
^DD(356.1,1.17,1,1,"%D",3,0)="CLAIMS TRACKING File (#356) with data from the ACUTE CARE DISCHARGE DATE"
^DD(356.1,1.17,1,1,"%D",4,0)="Field (#1.17) of the HOSPITAL REVIEW File (#356.1)."
^DD(356.1,1.17,1,1,"CREATE VALUE")="ACUTE CARE DISCHARGE DATE"
^DD(356.1,1.17,1,1,"DELETE VALUE")="ACUTE CARE DISCHARGE DATE"
^DD(356.1,1.17,1,1,"DT")="2951204"
^DD(356.1,1.17,1,1,"FIELD")="TRACKING ID:ACUTE CARE DISCHARGE DATE"
^DD(356.1,1.17,3)=""
^DD(356.1,1.17,21,0)="^^2^2^2950606^^^"
^DD(356.1,1.17,21,1,0)="If the patient no longer requires acute care, then this is the date"
^DD(356.1,1.17,21,2,0)="that the patient left an acute status.  "
^DD(356.1,1.17,"DT")="2951204"
^DD(356.1,11,0)="UTILIZATION REVIEW COMMENTS^356.111^^11;0"
^DD(356.1,11,21,0)="^^3^3^2940213^^"
^DD(356.1,11,21,1,0)="This field is used to store comments about the UR Review.  It can be"
^DD(356.1,11,21,2,0)="used to document reasons for non-acute admissions, non-acute days,"
^DD(356.1,11,21,3,0)="or other items that require a greater explanation."
^DD(356.1,12,0)="REASON FOR NON-ACUTE ADMISSION^356.112PA^^12;0"
^DD(356.1,12,12)="Only reasons for non-acute admissions may be selected!"
^DD(356.1,12,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=1"""
^DD(356.1,12,21,0)="^^6^6^2940213^^^"
^DD(356.1,12,21,1,0)="If this patient did not meet criteria for an acute admission within"
^DD(356.1,12,21,2,0)="24 hours enter the reasons that best describe why the admission didn't"
^DD(356.1,12,21,3,0)="meet criteria.  If no reason can be determined enter 8.02 other."
^DD(356.1,12,21,4,0)=" "
^DD(356.1,12,21,5,0)="This reason will be transmitted to the national database when it becomes"
^DD(356.1,12,21,6,0)="available."
^DD(356.1,13,0)="REASON FOR NON-ACUTE DAYS^356.113PA^^13;0"
^DD(356.1,13,12)="Only reasons for non-acute days of care may be selected!"
^DD(356.1,13,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=2"""
^DD(356.1,13,21,0)="^^3^3^2940213^^"
^DD(356.1,13,21,1,0)="If this patient had non-acute days of care during this review, enter"
^DD(356.1,13,21,2,0)="reasons that best describe the reason for the non-acute days.  If no"
^DD(356.1,13,21,3,0)="reason can be deteremined select the reason 8.01, Other."
^DD(356.1,21,0)="PATIENT^CJ30^^ ; ^X ^DD(356.1,21,9.2) S Y(356.1,21,101)=$S($D(^IBT(356,D0,0)):^(0),1:"""") S X=$S('$D(^DPT(+$P(Y(356.1,21,101),U,2),0)):"""",1:$P(^(0),U,1)) S D0=Y(356.1,21,80)"
^DD(356.1,21,9)="^"
^DD(356.1,21,9.01)="356^.02;356.1^.02"
^DD(356.1,21,9.1)="TRACKING ID:PATIENT"
^DD(356.1,21,9.2)="S Y(356.1,21,80)=$S($D(D0):D0,1:""""),Y(356.1,21,1)=$S($D(^IBT(356.1,D0,0)):^(0),1:""""),D0=$P(Y(356.1,21,1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1"
^DD(356.1,21,21,0)="^^1^1^2930726^"
^DD(356.1,21,21,1,0)="This is the patient whose tracking entry this review is for."
^DD(356.1,"B","ACTIVE",.19)=""
^DD(356.1,"B","ACUTE CARE DISCHARGE DATE",1.17)=""
^DD(356.1,"B","ADD NEXT REVIEW",1.13)=""
^DD(356.1,"B","ADDITIONAL REVIEWS REQUIRED",1.15)=""
^DD(356.1,"B","ADMISSION DECISION INFLUENCED",.11)=""
^DD(356.1,"B","COMPLETED BY",1.06)=""
^DD(356.1,"B","CRITERIA MET IN 24 HOURS",.06)=""
^DD(356.1,"B","D/C SCREENS MET",.12)=""
^DD(356.1,"B","DATE COMPLETED",1.05)=""
^DD(356.1,"B","DATE ENTERED",1.01)=""
^DD(356.1,"B","DAY FOR REVIEW",.03)=""
^DD(356.1,"B","ENTERED BY",1.02)=""
^DD(356.1,"B","INTENSITY OF SERVICE",.05)=""
^DD(356.1,"B","LAST EDIT ON",1.03)=""
^DD(356.1,"B","LAST EDITED BY",1.04)=""
^DD(356.1,"B","NEXT REVIEW DATE",.2)=""
^DD(356.1,"B","NEXT REVIEW EXACTLY THE SAME",1.14)=""
^DD(356.1,"B","PATIENT",21)=""
^DD(356.1,"B","PROVIDER INTERVIEWED?",.1)=""
^DD(356.1,"B","REASON FOR NON-ACUTE ADMISSION",12)=""
^DD(356.1,"B","REASON FOR NON-ACUTE DAYS",13)=""
^DD(356.1,"B","REVIEW COPIED FROM",.24)=""
^DD(356.1,"B","REVIEW DATE",.01)=""
^DD(356.1,"B","REVIEW METHODOLOGY",.23)=""
^DD(356.1,"B","REVIEW STATUS",.21)=""
^DD(356.1,"B","SEVERITY OF ILLNESS",.04)=""
^DD(356.1,"B","SI/IS APPLY ALL DAYS",.14)=""
^DD(356.1,"B","SPECIAL CARE D/C SCREENS MET",.13)=""
^DD(356.1,"B","SPECIALIZED UNIT IS",.09)=""
^DD(356.1,"B","SPECIALIZED UNIT SI",.08)=""
^DD(356.1,"B","SPECIALTY FOR REVIEW",.07)=""
^DD(356.1,"B","TRACKING ID",.02)=""
^DD(356.1,"B","TYPE OF REVIEW",.22)=""
^DD(356.1,"B","UTILIZATION REVIEW COMMENTS",11)=""
^DD(356.1,"GL",0,1,.01)=""
^DD(356.1,"GL",0,2,.02)=""
^DD(356.1,"GL",0,3,.03)=""
^DD(356.1,"GL",0,4,.04)=""
^DD(356.1,"GL",0,5,.05)=""
^DD(356.1,"GL",0,6,.06)=""
^DD(356.1,"GL",0,7,.07)=""
^DD(356.1,"GL",0,8,.08)=""
^DD(356.1,"GL",0,9,.09)=""
^DD(356.1,"GL",0,10,.1)=""
^DD(356.1,"GL",0,11,.11)=""
^DD(356.1,"GL",0,12,.12)=""
^DD(356.1,"GL",0,13,.13)=""
^DD(356.1,"GL",0,14,.14)=""
^DD(356.1,"GL",0,19,.19)=""
^DD(356.1,"GL",0,20,.2)=""
^DD(356.1,"GL",0,21,.21)=""
^DD(356.1,"GL",0,22,.22)=""
^DD(356.1,"GL",0,23,.23)=""
^DD(356.1,"GL",0,24,.24)=""
^DD(356.1,"GL",1,1,1.01)=""
^DD(356.1,"GL",1,2,1.02)=""
^DD(356.1,"GL",1,3,1.03)=""
^DD(356.1,"GL",1,4,1.04)=""
^DD(356.1,"GL",1,5,1.05)=""
^DD(356.1,"GL",1,6,1.06)=""
^DD(356.1,"GL",1,13,1.13)=""
^DD(356.1,"GL",1,14,1.14)=""
^DD(356.1,"GL",1,15,1.15)=""
^DD(356.1,"GL",1,17,1.17)=""
^DD(356.1,"GL",11,0,11)=""
^DD(356.1,"GL",12,0,12)=""
^DD(356.1,"GL",13,0,13)=""
^DD(356.1,"IX",.01)=""
^DD(356.1,"IX",.02)=""
^DD(356.1,"IX",.07)=""
^DD(356.1,"IX",.2)=""
^DD(356.1,"IX",.21)=""
^DD(356.1,"IX",.22)=""
^DD(356.1,"IX",1.17)=""
^DD(356.1,"RQ",.01)=""
^DD(356.1,"RQ",.22)=""
^DD(356.1,"SB",356.111,11)=""
^DD(356.1,"SB",356.112,12)=""
^DD(356.1,"SB",356.113,13)=""
^DD(356.1,"TRB",356.1,.21,2,1.05)=""
^DD(356.1,"TRB",356.1,.21,3,1.06)=""
^DD(356.11,0)="FIELD^^.03^3"
^DD(356.11,0,"DDA")="N"
^DD(356.11,0,"DT")="2930826"
^DD(356.11,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(356.11,0,"IX","ACODE",356.11,.02)=""
^DD(356.11,0,"IX","B",356.11,.01)=""
^DD(356.11,0,"IX","C",356.11,.02)=""
^DD(356.11,0,"NM","CLAIMS TRACKING REVIEW TYPE")=""
^DD(356.11,0,"PT",356.1,.22)=""
^DD(356.11,0,"PT",356.2,.04)=""
^DD(356.11,0,"VR")="2.0"
^DD(356.11,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(356.11,.01,1,0)="^.1"
^DD(356.11,.01,1,1,0)="356.11^B"
^DD(356.11,.01,1,1,1)="S ^IBE(356.11,""B"",$E(X,1,30),DA)="""""
^DD(356.11,.01,1,1,2)="K ^IBE(356.11,""B"",$E(X,1,30),DA)"
^DD(356.11,.01,3)="Enter the name of the type of Review.  Answer must be 3-30 characters in length."
^DD(356.11,.01,21,0)="^^1^1^2930714^"
^DD(356.11,.01,21,1,0)="This is the name of the type of Review being performed."
^DD(356.11,.01,"DT")="2930714"
^DD(356.11,.02,0)="CODE^NJ3,0^^0;2^K:+X'=X!(X>100)!(X<10)!(X?.E1"".""1N.N) X"
^DD(356.11,.02,1,0)="^.1"
^DD(356.11,.02,1,1,0)="356.11^ACODE"
^DD(356.11,.02,1,1,1)="S ^IBE(356.11,""ACODE"",$E(X,1,30),DA)="""""
^DD(356.11,.02,1,1,2)="K ^IBE(356.11,""ACODE"",$E(X,1,30),DA)"
^DD(356.11,.02,1,1,3)="DO NOT DELETE"
^DD(356.11,.02,1,1,"%D",0)="^^2^2^2930706^"
^DD(356.11,.02,1,1,"%D",1,0)="Regular cross-reference used to look-up review type internally by code"
^DD(356.11,.02,1,1,"%D",2,0)="number."
^DD(356.11,.02,1,1,"DT")="2930706"
^DD(356.11,.02,1,2,0)="356.11^C"
^DD(356.11,.02,1,2,1)="S ^IBE(356.11,""C"",$E(X,1,30),DA)="""""
^DD(356.11,.02,1,2,2)="K ^IBE(356.11,""C"",$E(X,1,30),DA)"
^DD(356.11,.02,1,2,"DT")="2930803"
^DD(356.11,.02,3)="Type a Number between 10 and 100, 0 Decimal Digits"
^DD(356.11,.02,21,0)="^^2^2^2930714^"
^DD(356.11,.02,21,1,0)="Enter the internal code used by the claims tracking module to identify"
^DD(356.11,.02,21,2,0)="this specific type of review."
^DD(356.11,.02,"DT")="2930803"
^DD(356.11,.03,0)="ABBREVIATION^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(356.11,.03,3)="Answer must be 2-10 characters in length."
^DD(356.11,.03,21,0)="^^2^2^2930826^"
^DD(356.11,.03,21,1,0)="This is the abbreviation for this type of review that will be displayed"
^DD(356.11,.03,21,2,0)="on reports and input screens."
^DD(356.11,.03,"DT")="2930826"
^DD(356.11,"B","ABBREVIATION",.03)=""
^DD(356.11,"B","CODE",.02)=""
^DD(356.11,"B","NAME",.01)=""
^DD(356.11,"GL",0,1,.01)=""
^DD(356.11,"GL",0,2,.02)=""
^DD(356.11,"GL",0,3,.03)=""
^DD(356.11,"IX",.01)=""
^DD(356.11,"IX",.02)=""
^DD(356.11,"RQ",.01)=""
^DD(356.111,0)="UTILIZATION REVIEW COMMENTS SUB-FIELD^^.01^1"
^DD(356.111,0,"DT")="2930723"
^DD(356.111,0,"NM","UTILIZATION REVIEW COMMENTS")=""
^DD(356.111,0,"UP")="356.1"
^DD(356.111,.01,0)="UTILIZATION REVIEW COMMENTS^W^^0;1^Q"
^DD(356.111,.01,.1)="COMMENTS"
^DD(356.111,.01,21,0)="^^3^3^2940213^^^"
^DD(356.111,.01,21,1,0)="This field is used to store comments about the UR Review.  It can be"
^DD(356.111,.01,21,2,0)="used to document reasons for non-acute admissions, non-acute days,"
^DD(356.111,.01,21,3,0)="or other items that require a greater explanation."
^DD(356.111,.01,"DT")="2930723"
^DD(356.111,"B","COMMENTS",.01)="1"
^DD(356.111,"B","UTILIZATION REVIEW COMMENTS",.01)=""
^DD(356.111,"GL",0,1,.01)=""
^DD(356.112,0)="REASON FOR NON-ACUTE ADMISSION SUB-FIELD^^.01^1"
^DD(356.112,0,"DT")="2930826"
^DD(356.112,0,"IX","B",356.112,.01)=""
^DD(356.112,0,"NM","REASON FOR NON-ACUTE ADMISSION")=""
^DD(356.112,0,"UP")="356.1"
^DD(356.112,.01,0)="REASON FOR NON-ACUTE ADMISSION^M*P356.4'^IBE(356.4,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.112,.01,1,0)="^.1"
^DD(356.112,.01,1,1,0)="356.112^B"
^DD(356.112,.01,1,1,1)="S ^IBT(356.1,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(356.112,.01,1,1,2)="K ^IBT(356.1,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(356.112,.01,21,0)="^^6^6^2940213^^"
^DD(356.112,.01,21,1,0)="If this patient did not meet criteria for an acute admission within"
^DD(356.112,.01,21,2,0)="24 hours enter the reasons that best describe why the admission didn't"
^DD(356.112,.01,21,3,0)="meet criteria.  If no reason can be determined enter 8.02 other."
^DD(356.112,.01,21,4,0)=" "
^DD(356.112,.01,21,5,0)="This reason will be transmitted to the national database when it become"
^DD(356.112,.01,21,6,0)="available."
^DD(356.112,.01,"DT")="2930826"
^DD(356.112,"B","REASON FOR NON-ACUTE ADMISSION",.01)=""
^DD(356.112,"GL",0,1,.01)=""
^DD(356.112,"IX",.01)=""
^DD(356.113,0)="REASON FOR NON-ACUTE DAYS SUB-FIELD^^.01^1"
^DD(356.113,0,"DT")="2930826"
^DD(356.113,0,"IX","B",356.113,.01)=""
^DD(356.113,0,"NM","REASON FOR NON-ACUTE DAYS")=""
^DD(356.113,0,"UP")="356.1"
^DD(356.113,.01,0)="REASON FOR NON-ACUTE DAYS^M*P356.4'^IBE(356.4,^0;1^S DIC(""S"")=""I $P(^(0),U,5)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.113,.01,1,0)="^.1"
^DD(356.113,.01,1,1,0)="356.113^B"
^DD(356.113,.01,1,1,1)="S ^IBT(356.1,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(356.113,.01,1,1,2)="K ^IBT(356.1,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(356.113,.01,21,0)="^^3^3^2940213^^"
^DD(356.113,.01,21,1,0)="If this patient had non-acute days of care during this review, enter"
^DD(356.113,.01,21,2,0)="reasons that best describe the reason for the non-acute days.  If no"
^DD(356.113,.01,21,3,0)="reason can be determined select the reason 8.01."
^DD(356.113,.01,"DT")="2930826"
^DD(356.113,"B","REASON FOR NON-ACUTE DAYS",.01)=""
^DD(356.113,"GL",0,1,.01)=""
^DD(356.113,"IX",.01)=""
^DD(356.19,0)="FIELD^^21^53"
^DD(356.19,0,"DDA")="N"
^DD(356.19,0,"DT")="3001006"
^DD(356.19,0,"IX","AIVDT",356.19,.01)=""
^DD(356.19,0,"IX","B",356.19,.01)=""
^DD(356.19,0,"NM","CLAIMS TRACKING UNBILLED AMOUNTS DATA")=""
^DD(356.19,0,"VR")="2.0"
^DD(356.19,0,"VRPK")="IB"
^DD(356.19,.01,0)="MONTH/YEAR^RDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1!($E(X,6,7)'=""00"") X S:$D(X) DINUM=X"
^DD(356.19,.01,1,0)="^.1"
^DD(356.19,.01,1,1,0)="356.19^B"
^DD(356.19,.01,1,1,1)="S ^IBE(356.19,""B"",$E(X,1,30),DA)="""""
^DD(356.19,.01,1,1,2)="K ^IBE(356.19,""B"",$E(X,1,30),DA)"
^DD(356.19,.01,1,2,0)="356.19^AIVDT^MUMPS"
^DD(356.19,.01,1,2,1)="S ^IBE(356.19,""AIVDT"",-X,DA)="""""
^DD(356.19,.01,1,2,2)="K ^IBE(356.19,""AIVDT"",-X,DA)"
^DD(356.19,.01,1,2,"%D",0)="^^2^2^2941006^"
^DD(356.19,.01,1,2,"%D",1,0)="This is an inverse date cross reference that is used by the reports to"
^DD(356.19,.01,1,2,"%D",2,0)="show data last first."
^DD(356.19,.01,1,2,"DT")="2941006"
^DD(356.19,.01,3)="Enter the month/year of the data.  Exact dates will not be accepted."
^DD(356.19,.01,21,0)="^.001^3^3^3010403^^^"
^DD(356.19,.01,21,1,0)="Enter the Month and Year for this data.  Days of the week are not allowed."
^DD(356.19,.01,21,2,0)="Only one entry for a month/year may be entered."
^DD(356.19,.01,21,3,0)=" "
^DD(356.19,.01,"DT")="2941006"
^DD(356.19,.02,0)="CURR MON NO. INPT BILLS^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,.02,3)="Enter the number of inpatient bills authorized during the month.  Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,.02,21,0)="^^5^5^2941006^^^"
^DD(356.19,.02,21,1,0)="Enter the number of inpatient bills authorized for the current month."
^DD(356.19,.02,21,2,0)=" "
^DD(356.19,.02,21,3,0)="For example, the record for September, 1994 should contain the count of"
^DD(356.19,.02,21,4,0)="all the inpatient bills whose Authorization Date in the BILL/CLAIMS file"
^DD(356.19,.02,21,5,0)="is in September, 1994, irregardless of the date of the care being billed."
^DD(356.19,.02,"DT")="2940930"
^DD(356.19,.03,0)="CURR MON $AMNT INPT BILLS^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,.03,3)="Enter the total dollar value of the inpatient bills authorized during the month.  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,.03,21,0)="^^3^3^2941101^"
^DD(356.19,.03,21,1,0)="Enter the total dollar value of the inpatient bills authorized during"
^DD(356.19,.03,21,2,0)="this month.  This is the sum of the Total Bill amount for the bills"
^DD(356.19,.03,21,3,0)="counted in the CURR MON NO. INPT BILLS field (.02)."
^DD(356.19,.03,"DT")="2940930"
^DD(356.19,.04,0)="CURR MON NO OPT VSTS BILLED^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,.04,3)="Enter the number of outpatient visits billed for this month.  Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,.04,21,0)="^^6^6^2941101^^"
^DD(356.19,.04,21,1,0)="Enter the number of outpatient visits authorized for this month.  If a"
^DD(356.19,.04,21,2,0)="bill is for three visits then the count would be three."
^DD(356.19,.04,21,3,0)=" "
^DD(356.19,.04,21,4,0)="For example, the record for September, 1994 should contain the count of"
^DD(356.19,.04,21,5,0)="all the outpatient bills whose Authorization Date in the BILL/CLAIMS file"
^DD(356.19,.04,21,6,0)="is in September, 1994, irregardless of the date of the care being billed."
^DD(356.19,.04,"DT")="2940930"
^DD(356.19,.05,0)="CURR MON $AMNT OPT BILLED^NJ12,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,.05,3)="Enter the total dollar amount of the outpatient bills authorized during the month.  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,.05,21,0)="^^3^3^2941006^"
^DD(356.19,.05,21,1,0)="Enter the total dollar value of the outpatient bills authorized during"
^DD(356.19,.05,21,2,0)="this month.  This is the sum of the Total Bill Amount for the bills"
^DD(356.19,.05,21,3,0)="counted in the CURR MON NO. OPT BILLS field (.04)"
^DD(356.19,.05,"DT")="2940930"
^DD(356.19,.06,0)="DATE/TIME CURR MON UPDATED^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.19,.06,21,0)="^^3^3^2941101^"
^DD(356.19,.06,21,1,0)="This is the date/time that the monthly totals were last updated.  The"
^DD(356.19,.06,21,2,0)="processes that run automatically will not overwrite existing data, use"
^DD(356.19,.06,21,3,0)="the user options to update these fields."
^DD(356.19,.06,"DT")="2940930"
^DD(356.19,.07,0)="PRIOR 12 MON NO. INPT BILLS^NJ8,0^^0;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,.07,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(356.19,.07,21,0)="^^5^5^2941006^"
^DD(356.19,.07,21,1,0)="Enter the prior 12 months number of inpatient bills.  This should be"
^DD(356.19,.07,21,2,0)="the sum of the number of inpatient bills for the 12 months preceding this"
^DD(356.19,.07,21,3,0)="month.  "
^DD(356.19,.07,21,4,0)=" "
^DD(356.19,.07,21,5,0)="This field is automatically updated by the software."
^DD(356.19,.07,23,0)="^^2^2^2941006^"
^DD(356.19,.07,23,1,0)="This field is updated by the computer.  It is the sum of field .02 "
^DD(356.19,.07,23,2,0)="from the entries for the 12 months preceding this entry."
^DD(356.19,.07,"DT")="2940930"
^DD(356.19,.08,0)="PRIOR 12 MON $AMNT INPT BILLS^NJ12,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,.08,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,.08,21,0)="^^2^2^2941006^^"
^DD(356.19,.08,21,1,0)="Enter the total of the dollar amount of inpatient bills authorized in"
^DD(356.19,.08,21,2,0)="the preceding 12 months, not including this month."
^DD(356.19,.08,23,0)="^^2^2^2941006^"
^DD(356.19,.08,23,1,0)="This field is updated by the computer.  It is the sum of field .03 "
^DD(356.19,.08,23,2,0)="from the entries for the 12 months preceding this entry."
^DD(356.19,.08,"DT")="2940930"
^DD(356.19,.09,0)="PRIOR 12 MON OPT VST BILLED^NJ9,0^^0;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,.09,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,.09,21,0)="^^6^6^2941006^"
^DD(356.19,.09,21,1,0)="Enter the sum of the number of outpatient visits on bills"
^DD(356.19,.09,21,2,0)="authorized during the preceding 12 months.  Do no include"
^DD(356.19,.09,21,3,0)="bills authorized during the current month."
^DD(356.19,.09,21,4,0)=" "
^DD(356.19,.09,21,5,0)="For example, the October, 1994, entry would contain the"
^DD(356.19,.09,21,6,0)="total outpatient visits from October 31, 1993 to September 31, 1994."
^DD(356.19,.09,23,0)="^^2^2^2941006^"
^DD(356.19,.09,23,1,0)="This field is updated by the computer.  It is the sum of field .04 "
^DD(356.19,.09,23,2,0)="from the entries for the 12 months preceding this entry."
^DD(356.19,.09,"DT")="2940930"
^DD(356.19,.1,0)="PRIOR 12 MON $AMNT OPT BILLED^NJ12,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,.1,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,.1,21,0)="^^7^7^2941006^^^"
^DD(356.19,.1,21,1,0)="Enter the sum of the dollar amount of outpatient bills"
^DD(356.19,.1,21,2,0)="authorized during the preceding 12 months.  Do no include"
^DD(356.19,.1,21,3,0)="bills authorized during the current month.  "
^DD(356.19,.1,21,4,0)=" "
^DD(356.19,.1,21,5,0)="For example, the October, 1994, entry would contain the"
^DD(356.19,.1,21,6,0)="total dollar amount of outpatient bills from October 31, 1993 "
^DD(356.19,.1,21,7,0)="to September 31, 1994."
^DD(356.19,.1,23,0)="^^2^2^2941006^^"
^DD(356.19,.1,23,1,0)="This field is updated by the computer.  It is the sum of field .05 "
^DD(356.19,.1,23,2,0)="from the entries for the 12 months preceding this entry."
^DD(356.19,.1,"DT")="2940930"
^DD(356.19,.11,0)="DATE/TIME PRIOR 12 MON UPDATE^D^^0;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.19,.11,21,0)="^^3^3^2941101^"
^DD(356.19,.11,21,1,0)="This is the date/time that the prior 12 month totals were last updated.  The"
^DD(356.19,.11,21,2,0)="processes that run automatically will not overwrite existing data, use"
^DD(356.19,.11,21,3,0)="the user options to update these fields."
^DD(356.19,.11,"DT")="2940930"
^DD(356.19,.12,0)="NUMBER OF UNBILLED INPT. CASES^NJ9,0^^0;12^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,.12,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,.12,21,0)="^^7^7^2941006^"
^DD(356.19,.12,21,1,0)="This is the number of inpatient cases that appear billable but "
^DD(356.19,.12,21,2,0)="do not have a final bill associated with it (either an admit to"
^DD(356.19,.12,21,3,0)="discharge, or an interim final claim bill) by the end of the reporting"
^DD(356.19,.12,21,4,0)="period. "
^DD(356.19,.12,21,5,0)=" "
^DD(356.19,.12,21,6,0)="This field is updated automatically by the software.  The CLAIMS TRACKING"
^DD(356.19,.12,21,7,0)="file (356) is used as the sole source of potentially billable admissions."
^DD(356.19,.12,"DT")="2940930"
^DD(356.19,.13,0)="AVERAGE INPT. BILL AMOUNT^NJ12,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,.13,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,.13,21,0)="^^6^6^2941006^"
^DD(356.19,.13,21,1,0)="This is the average inpatient bill dollar amount used to determine"
^DD(356.19,.13,21,2,0)="the unbilled amount for this month.  It can be determined by"
^DD(356.19,.13,21,3,0)="dividing field .08 by field .07."
^DD(356.19,.13,21,4,0)=" "
^DD(356.19,.13,21,5,0)="The unbilled inpatient amount is determined by multiplying field"
^DD(356.19,.13,21,6,0)=".13 by field .12"
^DD(356.19,.13,"DT")="2940930"
^DD(356.19,.14,0)="NUMBER OF UNBILLED OPT. CASES^NJ9,0^^0;14^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,.14,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,.14,21,0)="^^5^5^2941006^"
^DD(356.19,.14,21,1,0)="This is the number of unbilled but potentially billable outpatient "
^DD(356.19,.14,21,2,0)="visits that were not billed by the end of the reporting period."
^DD(356.19,.14,21,3,0)=" "
^DD(356.19,.14,21,4,0)="This field is updated automatically by the software.  It uses the"
^DD(356.19,.14,21,5,0)="CLAIMS TRACKING file (356) as the source of all outpatient visits."
^DD(356.19,.14,"DT")="2940930"
^DD(356.19,.15,0)="AVERAGE OPT. BILL AMOUNT^NJ12,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,.15,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,.15,21,0)="^^2^2^2941101^"
^DD(356.19,.15,21,1,0)="This is the average amount billed for an outpatient visit during the"
^DD(356.19,.15,21,2,0)="12 months prior to the month that this entry is for."
^DD(356.19,.15,23,0)="^^1^1^2941101^^"
^DD(356.19,.15,23,1,0)="This field should be the results of dividing fields .1 by field .09."
^DD(356.19,.15,"DT")="2940930"
^DD(356.19,.16,0)="DATE/TIME UNBILLED RPT UPDATED^D^^0;16^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.19,.16,21,0)="^.001^2^2^3000929^^"
^DD(356.19,.16,21,1,0)="This is the date the Unbilled Amounts report was last run for this "
^DD(356.19,.16,21,2,0)="month and the monthly totals were updated."
^DD(356.19,.16,"DT")="2940930"
^DD(356.19,.2,0)="FOR MONTH OF:^DX^^0;20^S %DT=""E"" D ^%DT S X=Y K:Y<1!($E(X,6,7)'=""00"") X"
^DD(356.19,.2,3)="Select the month and year you want to rebuild the report for.  Answer must not contain a day."
^DD(356.19,.2,9)="^"
^DD(356.19,.2,21,0)="^.001^3^3^3000929^^^"
^DD(356.19,.2,21,1,0)="Select the month and year you want to rebuild the report for.  "
^DD(356.19,.2,21,2,0)="The answer must be a month and year without a date, for example enter"
^DD(356.19,.2,21,3,0)="'OCT 94'."
^DD(356.19,.2,23,0)="^.001^2^2^3000929^^^"
^DD(356.19,.2,23,1,0)="This is a dummy field used by a read call and does not contain any"
^DD(356.19,.2,23,2,0)="valid data."
^DD(356.19,.2,"DT")="2941017"
^DD(356.19,1.01,0)="NO. INPT INST. CLAIMS (MON)^NJ9,0^^1;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.01,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.01,21,0)="^.001^2^2^3000929^^^"
^DD(356.19,1.01,21,1,0)="This is the number of institutional claims for inpatient episodes for"
^DD(356.19,1.01,21,2,0)="the past month."
^DD(356.19,1.01,"DT")="3000905"
^DD(356.19,1.02,0)="AMT INPT INST. CLAIMS (MON)^NJ9,0^^1;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.02,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.02,21,0)="^.001^2^2^3000928^^"
^DD(356.19,1.02,21,1,0)="This is the amount of institutional claims for inpatient episodes for"
^DD(356.19,1.02,21,2,0)="the past month."
^DD(356.19,1.02,"DT")="3000905"
^DD(356.19,1.03,0)="NO. INPT EPISODES/INST. (MON)^NJ9,0^^1;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.03,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.03,21,0)="^^2^2^3000929^"
^DD(356.19,1.03,21,1,0)="This is the number of inpatient episodes for institutional claims for"
^DD(356.19,1.03,21,2,0)="the past month."
^DD(356.19,1.03,"DT")="3000922"
^DD(356.19,1.04,0)="NO. INPT PROF. CLAIMS (MON)^NJ9,0^^1;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.04,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.04,21,0)="^.001^2^2^3000928^^^"
^DD(356.19,1.04,21,1,0)="This is the number of professional claims for inpatient episodes for"
^DD(356.19,1.04,21,2,0)="the past month."
^DD(356.19,1.04,"DT")="3000922"
^DD(356.19,1.05,0)="AMT INPT PROF. CLAIMS (MON)^NJ9,0^^1;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.05,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.05,21,0)="^^2^2^3000928^"
^DD(356.19,1.05,21,1,0)="This is the amount of professional claims for inpatient episodes for"
^DD(356.19,1.05,21,2,0)="the past month."
^DD(356.19,1.05,"DT")="3000922"
^DD(356.19,1.06,0)="NO. INPT EPISODES/PROF. (MON)^NJ9,0^^1;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.06,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.06,21,0)="^.001^2^2^3000929^^"
^DD(356.19,1.06,21,1,0)="This is the number of inpatient episodes for professional claims for"
^DD(356.19,1.06,21,2,0)="the past month."
^DD(356.19,1.06,"DT")="3000922"
^DD(356.19,1.07,0)="NO. INPT INST. CLAIMS (12M)^NJ9,0^^1;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.07,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.07,21,0)="^^2^2^3000929^"
^DD(356.19,1.07,21,1,0)="This is the number of institutional claims for inpatient episodes for"
^DD(356.19,1.07,21,2,0)="the past 12 months."
^DD(356.19,1.07,"DT")="3000922"
^DD(356.19,1.08,0)="AMT INPT INST. CLAIMS (12M)^NJ9,0^^1;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.08,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.08,21,0)="^^2^2^3000929^"
^DD(356.19,1.08,21,1,0)="This is the amount of institutional claims for inpatient episodes for"
^DD(356.19,1.08,21,2,0)="the past 12 months."
^DD(356.19,1.08,"DT")="3000922"
^DD(356.19,1.09,0)="NO. INPT EPISODES/INST. (12M)^NJ9,0^^1;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.09,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.09,21,0)="^^2^2^3000929^"
^DD(356.19,1.09,21,1,0)="This is the number of inpatient episodes for institutional claims for"
^DD(356.19,1.09,21,2,0)="the past 12 months."
^DD(356.19,1.09,"DT")="3000922"
^DD(356.19,1.1,0)="NO. INPT PROF. CLAIMS (12M)^NJ9,0^^1;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.1,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.1,21,0)="^^2^2^3000929^"
^DD(356.19,1.1,21,1,0)="This is the number of professional claims for inpatient episodes for"
^DD(356.19,1.1,21,2,0)="the past 12 months."
^DD(356.19,1.1,"DT")="3000922"
^DD(356.19,1.11,0)="AMT INPT PROF. CLAIMS (12M)^NJ9,0^^1;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.11,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.11,21,0)="^^2^2^3000929^"
^DD(356.19,1.11,21,1,0)="This is the amount of professional claims for inpatient episodes for"
^DD(356.19,1.11,21,2,0)="the past 12 months."
^DD(356.19,1.11,"DT")="3000922"
^DD(356.19,1.12,0)="NO. INPT EPISODES/PROF. (12M)^NJ9,0^^1;12^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,1.12,3)="Type a Number between 0 and 999999999."
^DD(356.19,1.12,21,0)="^^2^2^3000929^"
^DD(356.19,1.12,21,1,0)="This is the number of inpatient episodes for professional claims for"
^DD(356.19,1.12,21,2,0)="the past 12 months."
^DD(356.19,1.12,"DT")="3000922"
^DD(356.19,1.13,0)="DATE UPDATED (MON)^D^^1;13^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.19,1.13,21,0)="^.001^2^2^3000929^^"
^DD(356.19,1.13,21,1,0)="This is the date the Average Bill Amounts data for the past month was"
^DD(356.19,1.13,21,2,0)="stored in this file."
^DD(356.19,1.13,"DT")="3000928"
^DD(356.19,1.14,0)="DATE UPDATED (12M)^D^^1;14^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.19,1.14,21,0)="^.001^2^2^3000929^^^"
^DD(356.19,1.14,21,1,0)="This is the date the Average Bill Amounts data for the past 12 months was"
^DD(356.19,1.14,21,2,0)="stored in this file."
^DD(356.19,1.14,"DT")="3000928"
^DD(356.19,2.01,0)="EPISODES MISSING INST CLAIMS^NJ9,0^^2;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits."
^DD(356.19,2.01,21,0)="^.001^2^2^3010403^^^"
^DD(356.19,2.01,21,1,0)="This is the number of inpatient episodes that have no corresponding"
^DD(356.19,2.01,21,2,0)="institutional claims."
^DD(356.19,2.01,"DT")="3001005"
^DD(356.19,2.02,0)="EPISODES MISSING PROF CLAIMS^NJ9,0^^2;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.02,3)="Type a Number between 0 and 999999999, 0 Decimal Digits."
^DD(356.19,2.02,21,0)="^.001^2^2^3010403^^"
^DD(356.19,2.02,21,1,0)="This is the number of inpatient episodes that have no corresponding"
^DD(356.19,2.02,21,2,0)="professional claims."
^DD(356.19,2.02,"DT")="3001005"
^DD(356.19,2.03,0)="ENCOUNTERS MISSING CLAIMS^NJ9,0^^2;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.03,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.03,21,0)="^.001^2^2^3001006^^^^"
^DD(356.19,2.03,21,1,0)="This is the number of outpatient encounters prior to 9/1/99 that have no"
^DD(356.19,2.03,21,2,0)="corresponding claims."
^DD(356.19,2.03,"DT")="3001006"
^DD(356.19,2.04,0)="CPT CODES MISSING INST CLAIMS^NJ9,0^^2;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.04,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.04,21,0)="^.001^2^2^3001006^^^^"
^DD(356.19,2.04,21,1,0)="This is the number of CPT/procedure codes for outpatient encounters that"
^DD(356.19,2.04,21,2,0)="have no corresponding institutional/technical claims."
^DD(356.19,2.04,"DT")="3001006"
^DD(356.19,2.05,0)="CPT CODES MISSING PROF CLAIMS^NJ9,0^^2;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.05,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.05,21,0)="^.001^2^2^3001006^^"
^DD(356.19,2.05,21,1,0)="This is the number of CPT/procedure codes for outpatient encounters that"
^DD(356.19,2.05,21,2,0)="have no corresponding professional claims."
^DD(356.19,2.05,"DT")="3001006"
^DD(356.19,2.06,0)="NUMBER OF UNBILLED RX'S^NJ9,0^^2;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.06,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.06,21,0)="^.001^1^1^3010110^^^"
^DD(356.19,2.06,21,1,0)="This is the number of prescriptions that have no corresponding claims."
^DD(356.19,2.06,"DT")="3001006"
^DD(356.19,2.07,0)="UNBILLED INPATIENT AMOUNT^NJ9,0^^2;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.07,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.07,21,0)="^^1^1^3010110^"
^DD(356.19,2.07,21,1,0)="This is the total amount of unbilled inpatient care."
^DD(356.19,2.07,"DT")="3001006"
^DD(356.19,2.08,0)="UNBILLED OUTPATIENT AMOUNT^NJ9,0^^2;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.08,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.08,21,0)="^^1^1^3010110^"
^DD(356.19,2.08,21,1,0)="This is the total amount of unbilled outpatient care."
^DD(356.19,2.08,"DT")="3001006"
^DD(356.19,2.09,0)="UNBILLED RX AMOUNT^NJ9,0^^2;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.09,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.09,21,0)="^^1^1^3010110^"
^DD(356.19,2.09,21,1,0)="This is the total amount of unbilled prescriptions."
^DD(356.19,2.09,"DT")="3001006"
^DD(356.19,2.1,0)="TOTAL UNBILLED AMOUNT^NJ9,0^^2;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,2.1,3)="Type a Number between 0 and 999999999."
^DD(356.19,2.1,21,0)="^.001^2^2^3010110^^"
^DD(356.19,2.1,21,1,0)="This is the combined total of the UNBILLED INPATIENT AMOUNT, UNBILLED"
^DD(356.19,2.1,21,2,0)="OUTPATIENT AMOUNT, and the UNBILLED RX AMOUNT."
^DD(356.19,2.1,"DT")="3001006"
^DD(356.19,2.11,0)="DATE UNBILLED REPORT UPDATED^D^^2;11^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.19,2.11,3)=""
^DD(356.19,2.11,21,0)="^^1^1^3010110^"
^DD(356.19,2.11,21,1,0)="This is the date the unbilled amounts report was generated."
^DD(356.19,2.11,"DT")="3001006"
^DD(356.19,3.01,0)="NO. MRA INPT INST CLAIMS^NJ9,0^^3;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,3.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,3.01,21,0)="^.001^2^2^3040928^^^"
^DD(356.19,3.01,21,1,0)="The number of admissions with an inpatient institutional bill in MRA req"
^DD(356.19,3.01,21,2,0)="status."
^DD(356.19,3.01,"DT")="3040928"
^DD(356.19,3.02,0)="NO. MRA INPT PROF CLAIMS^NJ9,0^^3;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,3.02,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,3.02,21,0)="^.001^2^2^3040928^^"
^DD(356.19,3.02,21,1,0)="The number of admissions with an inpatient professional bill in MRA req"
^DD(356.19,3.02,21,2,0)="status."
^DD(356.19,3.02,"DT")="3040928"
^DD(356.19,3.04,0)="MRA CPT CODES ON INST CLAIMS^NJ9,0^^3;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,3.04,3)="Type a Number between 0 and 999999999."
^DD(356.19,3.04,21,0)="^^2^2^3040928^"
^DD(356.19,3.04,21,1,0)="The number of CPT codes found on institutional claims in a REQUEST MRA"
^DD(356.19,3.04,21,2,0)="status."
^DD(356.19,3.04,"DT")="3040928"
^DD(356.19,3.05,0)="MRA CPT CODES ON PROF CLAIMS^NJ9,0^^3;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,3.05,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(356.19,3.05,21,0)="^^2^2^3040928^"
^DD(356.19,3.05,21,1,0)="The number of CPT codes found on professional claims in a REQUEST MRA"
^DD(356.19,3.05,21,2,0)="status."
^DD(356.19,3.05,"DT")="3040928"
^DD(356.19,3.06,0)="NUMBER OF MRA UNBILLED RX'S^NJ9,0^^3;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(356.19,3.06,3)="Type a Number between 0 and 999999999."
^DD(356.19,3.06,21,0)="^^1^1^3040928^"
^DD(356.19,3.06,21,1,0)="The # of prescriptions on claims in REQUEST MRA status."
^DD(356.19,3.06,"DT")="3040928"
^DD(356.19,3.07,0)="MRA UNBILLED INPATIENT AMOUNT^NJ12,2^^3;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,3.07,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,3.07,21,0)="^^1^1^3040928^"
^DD(356.19,3.07,21,1,0)="The total amount of inpatient charges for bills in MRA request status."
^DD(356.19,3.07,"DT")="3040928"
^DD(356.19,3.08,0)="MRA UNBILLED OUTPATIENT AMOUNT^NJ12,2^^3;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,3.08,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,3.08,21,0)="^^1^1^3040928^"
^DD(356.19,3.08,21,1,0)="The total amount of outpatient charges for bills in MRA request status."
^DD(356.19,3.08,"DT")="3040928"
^DD(356.19,3.09,0)="MRA UNBILLED PRESCRIPTION AMT^NJ12,2^^3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,3.09,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,3.09,21,0)="^.001^1^1^3040928^^"
^DD(356.19,3.09,21,1,0)="The total amount of prescription charges for bills in MRA request status."
^DD(356.19,3.09,"DT")="3040928"
^DD(356.19,3.1,0)="TOTAL MRA UNBILLED AMOUNT^NJ12,2^^3;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(356.19,3.1,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(356.19,3.1,21,0)="^.001^2^2^3040928^^^"
^DD(356.19,3.1,21,1,0)="The total amount of unbilled inpatient, outpatient and Rx on MRA request"
^DD(356.19,3.1,21,2,0)="claims."
^DD(356.19,3.1,"DT")="3040928"
^DD(356.19,20,0)="TOTAL UNBILLED INPT. CARE^CJ12,2^^ ; ^S Y(356.19,20,1)=$S($D(^IBE(356.19,D0,0)):^(0),1:"""") S X=$P(Y(356.19,20,1),U,12)*$P(Y(356.19,20,1),U,13) S X=$J(X,0,2)"
^DD(356.19,20,9)="^"
^DD(356.19,20,9.01)="356.19^.13;356.19^.12"
^DD(356.19,20,9.1)="#.12*#.13"
^DD(356.19,21,0)="TOTAL UNBILLED OPT. CARE^CJ12,2^^ ; ^S Y(356.19,21,1)=$S($D(^IBE(356.19,D0,0)):^(0),1:"""") S X=$P(Y(356.19,21,1),U,14)*$P(Y(356.19,21,1),U,15) S X=$J(X,0,2)"
^DD(356.19,21,9)="^"
^DD(356.19,21,9.01)="356.19^.15;356.19^.14"
^DD(356.19,21,9.1)="#.14*#.15"
^DD(356.19,"B","AMT INPT INST. CLAIMS (12M)",1.08)=""
^DD(356.19,"B","AMT INPT INST. CLAIMS (MON)",1.02)=""
^DD(356.19,"B","AMT INPT PROF. CLAIMS (12M)",1.11)=""
^DD(356.19,"B","AMT INPT PROF. CLAIMS (MON)",1.05)=""
^DD(356.19,"B","AVERAGE INPT. BILL AMOUNT",.13)=""
^DD(356.19,"B","AVERAGE OPT. BILL AMOUNT",.15)=""
^DD(356.19,"B","CPT CODES MISSING INST CLAIMS",2.04)=""
^DD(356.19,"B","CPT CODES MISSING PROF CLAIMS",2.05)=""
^DD(356.19,"B","CURR MON $AMNT INPT BILLS",.03)=""
^DD(356.19,"B","CURR MON $AMNT OPT BILLED",.05)=""
^DD(356.19,"B","CURR MON NO OPT VSTS BILLED",.04)=""
^DD(356.19,"B","CURR MON NO. INPT BILLS",.02)=""
^DD(356.19,"B","DATE UNBILLED REPORT UPDATED",2.11)=""
^DD(356.19,"B","DATE UPDATED (12M)",1.14)=""
^DD(356.19,"B","DATE UPDATED (MON)",1.13)=""
^DD(356.19,"B","DATE/TIME CURR MON UPDATED",.06)=""
^DD(356.19,"B","DATE/TIME PRIOR 12 MON UPDATE",.11)=""
^DD(356.19,"B","DATE/TIME UNBILLED RPT UPDATED",.16)=""
^DD(356.19,"B","ENCOUNTERS MISSING CLAIMS",2.03)=""
^DD(356.19,"B","EPISODES MISSING INST CLAIMS",2.01)=""
^DD(356.19,"B","EPISODES MISSING PROF CLAIMS",2.02)=""
^DD(356.19,"B","FOR MONTH OF:",.2)=""
^DD(356.19,"B","MONTH/YEAR",.01)=""
^DD(356.19,"B","MRA CPT CODES ON INST CLAIMS",3.04)=""
^DD(356.19,"B","MRA CPT CODES ON PROF CLAIMS",3.05)=""
^DD(356.19,"B","MRA UNBILLED INPATIENT AMOUNT",3.07)=""
^DD(356.19,"B","MRA UNBILLED OUTPATIENT AMOUNT",3.08)=""
^DD(356.19,"B","MRA UNBILLED PRESCRIPTION AMT",3.09)=""
^DD(356.19,"B","NO. INPT EPISODES/INST. (12M)",1.09)=""
^DD(356.19,"B","NO. INPT EPISODES/INST. (MON)",1.03)=""
^DD(356.19,"B","NO. INPT EPISODES/PROF. (12M)",1.12)=""
^DD(356.19,"B","NO. INPT EPISODES/PROF. (MON)",1.06)=""
^DD(356.19,"B","NO. INPT INST. CLAIMS (12M)",1.07)=""
^DD(356.19,"B","NO. INPT INST. CLAIMS (MON)",1.01)=""
^DD(356.19,"B","NO. INPT PROF. CLAIMS (12M)",1.1)=""
^DD(356.19,"B","NO. INPT PROF. CLAIMS (MON)",1.04)=""
^DD(356.19,"B","NO. MRA INPT INST CLAIMS",3.01)=""
^DD(356.19,"B","NO. MRA INPT PROF CLAIMS",3.02)=""
^DD(356.19,"B","NUMBER OF MRA UNBILLED RX'S",3.06)=""
^DD(356.19,"B","NUMBER OF UNBILLED INPT. CASES",.12)=""
^DD(356.19,"B","NUMBER OF UNBILLED OPT. CASES",.14)=""
^DD(356.19,"B","NUMBER OF UNBILLED RX'S",2.06)=""
^DD(356.19,"B","PRIOR 12 MON $AMNT INPT BILLS",.08)=""
^DD(356.19,"B","PRIOR 12 MON $AMNT OPT BILLED",.1)=""
^DD(356.19,"B","PRIOR 12 MON NO. INPT BILLS",.07)=""
^DD(356.19,"B","PRIOR 12 MON OPT VST BILLED",.09)=""
^DD(356.19,"B","TOTAL MRA UNBILLED AMOUNT",3.1)=""
^DD(356.19,"B","TOTAL UNBILLED AMOUNT",2.1)=""
^DD(356.19,"B","TOTAL UNBILLED INPT. CARE",20)=""
^DD(356.19,"B","TOTAL UNBILLED OPT. CARE",21)=""
^DD(356.19,"B","UNBILLED INPATIENT AMOUNT",2.07)=""
^DD(356.19,"B","UNBILLED OUTPATIENT AMOUNT",2.08)=""
^DD(356.19,"B","UNBILLED RX AMOUNT",2.09)=""
^DD(356.19,"GL",0,1,.01)=""
^DD(356.19,"GL",0,2,.02)=""
^DD(356.19,"GL",0,3,.03)=""
^DD(356.19,"GL",0,4,.04)=""
^DD(356.19,"GL",0,5,.05)=""
^DD(356.19,"GL",0,6,.06)=""
^DD(356.19,"GL",0,7,.07)=""
^DD(356.19,"GL",0,8,.08)=""
^DD(356.19,"GL",0,9,.09)=""
^DD(356.19,"GL",0,10,.1)=""
^DD(356.19,"GL",0,11,.11)=""
^DD(356.19,"GL",0,12,.12)=""
^DD(356.19,"GL",0,13,.13)=""
^DD(356.19,"GL",0,14,.14)=""
^DD(356.19,"GL",0,15,.15)=""
^DD(356.19,"GL",0,16,.16)=""
^DD(356.19,"GL",0,20,.2)=""
^DD(356.19,"GL",1,1,1.01)=""
^DD(356.19,"GL",1,2,1.02)=""
^DD(356.19,"GL",1,3,1.03)=""
^DD(356.19,"GL",1,4,1.04)=""
^DD(356.19,"GL",1,5,1.05)=""
^DD(356.19,"GL",1,6,1.06)=""
^DD(356.19,"GL",1,7,1.07)=""
^DD(356.19,"GL",1,8,1.08)=""
^DD(356.19,"GL",1,9,1.09)=""
^DD(356.19,"GL",1,10,1.1)=""
^DD(356.19,"GL",1,11,1.11)=""
^DD(356.19,"GL",1,12,1.12)=""
^DD(356.19,"GL",1,13,1.13)=""
^DD(356.19,"GL",1,14,1.14)=""
^DD(356.19,"GL",2,1,2.01)=""
^DD(356.19,"GL",2,2,2.02)=""
^DD(356.19,"GL",2,3,2.03)=""
^DD(356.19,"GL",2,4,2.04)=""
^DD(356.19,"GL",2,5,2.05)=""
^DD(356.19,"GL",2,6,2.06)=""
^DD(356.19,"GL",2,7,2.07)=""
^DD(356.19,"GL",2,8,2.08)=""
^DD(356.19,"GL",2,9,2.09)=""
^DD(356.19,"GL",2,10,2.1)=""
^DD(356.19,"GL",2,11,2.11)=""
^DD(356.19,"GL",3,1,3.01)=""
^DD(356.19,"GL",3,2,3.02)=""
^DD(356.19,"GL",3,4,3.04)=""
^DD(356.19,"GL",3,5,3.05)=""
^DD(356.19,"GL",3,6,3.06)=""
^DD(356.19,"GL",3,7,3.07)=""
^DD(356.19,"GL",3,8,3.08)=""
^DD(356.19,"GL",3,9,3.09)=""
^DD(356.19,"GL",3,10,3.1)=""
^DD(356.19,"IX",.01)=""
^DD(356.19,"RQ",.01)=""
^DD(356.2,0)="FIELD^^14^40"
^DD(356.2,0,"DT")="2940127"
^DD(356.2,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBT(356,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(356,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.2,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(356.11,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(356.11,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.2,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.2,0,"ID",.08)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(36,+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(36,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.2,0,"ID",1.05)="W """""
^DD(356.2,0,"IX","AC",356.2,.04)=""
^DD(356.2,0,"IX","ACT",356.2,.11)=""
^DD(356.2,0,"IX","AD",356.2,.03)=""
^DD(356.2,0,"IX","ADFN",356.2,.05)=""
^DD(356.2,0,"IX","ADFN1",356.2,.01)=""
^DD(356.2,0,"IX","AE",356.2,.19)=""
^DD(356.2,0,"IX","AIACT",356.2,.08)=""
^DD(356.2,0,"IX","AIACT1",356.2,.11)=""
^DD(356.2,0,"IX","AP",356.2,.18)=""
^DD(356.2,0,"IX","APACT",356.2,.05)=""
^DD(356.2,0,"IX","APACT1",356.2,.11)=""
^DD(356.2,0,"IX","APEND",356.2,.24)=""
^DD(356.2,0,"IX","APRE",356.2,.02)=""
^DD(356.2,0,"IX","APRE1",356.2,.28)=""
^DD(356.2,0,"IX","ATIDT",356.2,.01)=""
^DD(356.2,0,"IX","ATIDT1",356.2,.02)=""
^DD(356.2,0,"IX","ATRP",356.2,.02)=""
^DD(356.2,0,"IX","ATRTP1",356.2,.04)=""
^DD(356.2,0,"IX","B",356.2,.01)=""
^DD(356.2,0,"IX","C",356.2,.02)=""
^DD(356.2,0,"IX","D",356.2,.05)=""
^DD(356.2,0,"NM","INSURANCE REVIEW")=""
^DD(356.2,0,"PT",356.2,.18)=""
^DD(356.2,0,"VR")="2.0"
^DD(356.2,.01,0)="REVIEW DATE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.2,.01,1,0)="^.1"
^DD(356.2,.01,1,1,0)="356.2^B"
^DD(356.2,.01,1,1,1)="S ^IBT(356.2,""B"",$E(X,1,30),DA)="""""
^DD(356.2,.01,1,1,2)="K ^IBT(356.2,""B"",$E(X,1,30),DA)"
^DD(356.2,.01,1,2,0)="356.2^ATIDT^MUMPS"
^DD(356.2,.01,1,2,1)="S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,""ATIDT"",+$P(^(0),U,2),-X,DA)="""""
^DD(356.2,.01,1,2,2)="K ^IBT(356.2,""ATIDT"",+$P(^IBT(356.2,DA,0),U,2),-X,DA)"
^DD(356.2,.01,1,2,"%D",0)="^^2^2^2930818^^"
^DD(356.2,.01,1,2,"%D",1,0)="Cross-Reference of all entries by tracking ID and by inverse date so can"
^DD(356.2,.01,1,2,"%D",2,0)="list most recent first."
^DD(356.2,.01,1,2,"DT")="2930818"
^DD(356.2,.01,1,3,0)="356.2^ADFN1^MUMPS"
^DD(356.2,.01,1,3,1)="S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,""ADFN""_+$P(^(0),U,2),X,DA)="""""
^DD(356.2,.01,1,3,2)="K ^IBT(356.2,""ADFN""_+$P(^IBT(356.2,DA,0),U,2),X,DA)"
^DD(356.2,.01,1,3,"%D",0)="^^1^1^2940213^"
^DD(356.2,.01,1,3,"%D",1,0)="Cross-reference used for quick look up of entries for a patient."
^DD(356.2,.01,1,3,"DT")="2931207"
^DD(356.2,.01,3)=""
^DD(356.2,.01,21,0)="^^5^5^2930806^^^"
^DD(356.2,.01,21,1,0)="This is the date of the contact for this entry."
^DD(356.2,.01,21,2,0)=" "
^DD(356.2,.01,21,3,0)="It is frequently necessary to call insurance companies for"
^DD(356.2,.01,21,4,0)="insurance verification, pre-certification reviews, continued stay review,"
^DD(356.2,.01,21,5,0)="appeals, etc.  This is the date that you called the insurance company."
^DD(356.2,.01,"DT")="2931207"
^DD(356.2,.02,0)="TRACKING ID^P356'^IBT(356,^0;2^Q"
^DD(356.2,.02,1,0)="^.1"
^DD(356.2,.02,1,1,0)="356.2^C"
^DD(356.2,.02,1,1,1)="S ^IBT(356.2,""C"",$E(X,1,30),DA)="""""
^DD(356.2,.02,1,1,2)="K ^IBT(356.2,""C"",$E(X,1,30),DA)"
^DD(356.2,.02,1,1,"DT")="2930702"
^DD(356.2,.02,1,2,0)="356.2^ATRP^MUMPS"
^DD(356.2,.02,1,2,1)="S:$P(^IBT(356.2,DA,0),""^"",4) ^IBT(356.2,""ATRTP"",X,+$P(^(0),""^"",4),DA)="""""
^DD(356.2,.02,1,2,2)="K ^IBT(356.2,""ATRTP"",X,+$P(^IBT(356.2,DA,0),""^"",4),DA)"
^DD(356.2,.02,1,2,"%D",0)="^^1^1^2930712^"
^DD(356.2,.02,1,2,"%D",1,0)="Index of all communications by tracking id and type."
^DD(356.2,.02,1,2,"DT")="2930712"
^DD(356.2,.02,1,3,0)="356.2^ATIDT1^MUMPS"
^DD(356.2,.02,1,3,1)="S:$P(^IBT(356.2,DA,0),U) ^IBT(356.2,""ATIDT"",X,-$P(^(0),U),DA)="""""
^DD(356.2,.02,1,3,2)="K ^IBT(356.2,""ATIDT"",X,-$P(^IBT(356.2,DA,0),U),DA)"
^DD(356.2,.02,1,3,"%D",0)="^^2^2^2930728^^"
^DD(356.2,.02,1,3,"%D",1,0)="Cross-Reference of all entries by tracking ID and by inverse date so can"
^DD(356.2,.02,1,3,"%D",2,0)="list most recent first."
^DD(356.2,.02,1,3,"DT")="2930728"
^DD(356.2,.02,1,4,0)="356.2^APRE^MUMPS"
^DD(356.2,.02,1,4,1)="S:$P(^IBT(356.2,DA,0),U,28) ^IBT(356.2,""APRE"",X,$P(^(0),U,28),DA)="""""
^DD(356.2,.02,1,4,2)="K ^IBT(356.2,""APRE"",X,+$P(^IBT(356.2,DA,0),U,28),DA)"
^DD(356.2,.02,1,4,"%D",0)="^^3^3^2930729^"
^DD(356.2,.02,1,4,"%D",1,0)="Cross-Reference of all pre-cert numbers by tracking ID.  This is used to"
^DD(356.2,.02,1,4,"%D",2,0)="display the Pre-cert number in the claims tracking screens and the"
^DD(356.2,.02,1,4,"%D",3,0)="Review edit screens."
^DD(356.2,.02,1,4,"DT")="2930729"
^DD(356.2,.02,21,0)="^^3^3^2930806^"
^DD(356.2,.02,21,1,0)="This is the Claims Tracking entry that was the primary episode of care"
^DD(356.2,.02,21,2,0)="that caused this contact.  Generally contacts are associated with"
^DD(356.2,.02,21,3,0)="an episode of care but occasionally they are not."
^DD(356.2,.02,"DT")="2930729"
^DD(356.2,.03,0)="RELATED REVIEW^P356.1'^IBT(356.1,^0;3^Q"
^DD(356.2,.03,1,0)="^.1"
^DD(356.2,.03,1,1,0)="356.2^AD"
^DD(356.2,.03,1,1,1)="S ^IBT(356.2,""AD"",$E(X,1,30),DA)="""""
^DD(356.2,.03,1,1,2)="K ^IBT(356.2,""AD"",$E(X,1,30),DA)"
^DD(356.2,.03,1,1,"DT")="2930715"
^DD(356.2,.03,3)=""
^DD(356.2,.03,21,0)="^^5^5^2930806^^"
^DD(356.2,.03,21,1,0)="This is the review in the Claims Tracking Reviews file that this insurance"
^DD(356.2,.03,21,2,0)="contact is associated with."
^DD(356.2,.03,21,3,0)=" "
^DD(356.2,.03,21,4,0)="This field will be system generated wheneve there is a utilization review"
^DD(356.2,.03,21,5,0)="entry created for a case that is also an insurance case."
^DD(356.2,.03,"DT")="2930715"
^DD(356.2,.04,0)="TYPE OF CONTACT^R*P356.11'^IBE(356.11,^0;4^S DIC(""S"")=""I $$CONTCT^IBTRC(DA,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.2,.04,1,0)="^.1"
^DD(356.2,.04,1,1,0)="356.2^AC"
^DD(356.2,.04,1,1,1)="S ^IBT(356.2,""AC"",$E(X,1,30),DA)="""""
^DD(356.2,.04,1,1,2)="K ^IBT(356.2,""AC"",$E(X,1,30),DA)"
^DD(356.2,.04,1,1,"DT")="2930712"
^DD(356.2,.04,1,2,0)="356.2^ATRTP1^MUMPS"
^DD(356.2,.04,1,2,1)="S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,""ATRTP"",+$P(^(0),U,2),X,DA)="""""
^DD(356.2,.04,1,2,2)="K ^IBT(356.2,""ATRTP"",+$P(^IBT(356.2,DA,0),U,2),X,DA)"
^DD(356.2,.04,1,2,"%D",0)="^^1^1^2930712^"
^DD(356.2,.04,1,2,"%D",1,0)="Index of all communications by tracking id and type."
^DD(356.2,.04,1,2,"DT")="2930712"
^DD(356.2,.04,3)=""
^DD(356.2,.04,12)="If not associated with a tracking entry, only a patient or other type of contact may be selected."
^DD(356.2,.04,12.1)="S DIC(""S"")=""I $$CONTCT^IBTRC(DA,Y)"""
^DD(356.2,.04,21,0)="^^9^9^2940112^^^^"
^DD(356.2,.04,21,1,0)="This is the type of contact with a patient or insurance company that"
^DD(356.2,.04,21,2,0)="you are making.  If this is a contact with a patient then select patient."
^DD(356.2,.04,21,3,0)="If this is a contact with an insurance company then indicate if this"
^DD(356.2,.04,21,4,0)="is for pre-certification, urgent/emergent admission,"
^DD(356.2,.04,21,5,0)="continued stay, discharge, outpatient treatment, or an appeal.  "
^DD(356.2,.04,21,6,0)="You may also select other if this is a contact that you wish to record"
^DD(356.2,.04,21,7,0)="but does not meet one of these categories."
^DD(356.2,.04,21,8,0)=" "
^DD(356.2,.04,21,9,0)="To add an appeal it must be associated with a denial."
^DD(356.2,.04,"DT")="2930803"
^DD(356.2,.05,0)="PATIENT^P2'^DPT(^0;5^Q"
^DD(356.2,.05,1,0)="^.1"
^DD(356.2,.05,1,1,0)="356.2^D"
^DD(356.2,.05,1,1,1)="S ^IBT(356.2,""D"",$E(X,1,30),DA)="""""
^DD(356.2,.05,1,1,2)="K ^IBT(356.2,""D"",$E(X,1,30),DA)"
^DD(356.2,.05,1,1,"DT")="2930729"
^DD(356.2,.05,1,2,0)="356.2^APACT^MUMPS"
^DD(356.2,.05,1,2,1)="S:$P(^IBT(356.2,DA,0),U,11) ^IBT(356.2,""APACT"",X,+$P(^(0),U,11),DA)="""""
^DD(356.2,.05,1,2,2)="K ^IBT(356.2,""APACT"",X,+$P(^IBT(356.2,DA,0),U,11),DA)"
^DD(356.2,.05,1,2,"%D",0)="^^2^2^2930811^^^"
^DD(356.2,.05,1,2,"%D",1,0)="Index of insurance contacts with actions by patient by action."
^DD(356.2,.05,1,2,"%D",2,0)="Used primarily to find denials by patient."
^DD(356.2,.05,1,2,"DT")="2930811"
^DD(356.2,.05,1,3,0)="^^TRIGGER^356.2^1.05"
^DD(356.2,.05,1,3,1)="X ^DD(356.2,.05,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$P($$HIP^IBTRC3(DA),""^"",1) X ^DD(356.2,.05,1,3,1.4)"
^DD(356.2,.05,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBT(356.2,D0,1)):^(1),1:"""") S X=$$EXTERNAL^DIDU(356.2,1.05,"""",$P(Y(1),U,5))="""""
^DD(356.2,.05,1,3,1.4)="S DIH=$G(^IBT(356.2,DIV(0),1)),DIV=X S $P(^(1),U,5)=DIV,DIH=356.2,DIG=1.05 D ^DICR"
^DD(356.2,.05,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$G(^IBT(356.2,DIV(0),1)),DIV=X S $P(^(1),U,5)=DIV,DIH=356.2,DIG=1.05 D ^DICR"
^DD(356.2,.05,1,3,"%D",0)="^^1^1^3040610^"
^DD(356.2,.05,1,3,"%D",1,0)="Trigger of Primary Health Insurance Policy."
^DD(356.2,.05,1,3,"CREATE CONDITION")="#1.05="""""
^DD(356.2,.05,1,3,"CREATE VALUE")="S X=$P($$HIP^IBTRC3(DA),""^"",1)"
^DD(356.2,.05,1,3,"DELETE VALUE")="@"
^DD(356.2,.05,1,3,"DT")="3040610"
^DD(356.2,.05,1,3,"FIELD")="#1.05"
^DD(356.2,.05,1,4,0)="356.2^ADFN^MUMPS"
^DD(356.2,.05,1,4,1)="S ^IBT(356.2,""ADFN""_X,+^IBT(356.2,DA,0),DA)="""""
^DD(356.2,.05,1,4,2)="K ^IBT(356.2,""ADFN""_X,+^IBT(356.2,DA,0),DA)"
^DD(356.2,.05,1,4,"%D",0)="^^1^1^2931207^^"
^DD(356.2,.05,1,4,"%D",1,0)="cross-reference used for speedy lookups."
^DD(356.2,.05,1,4,"DT")="2931109"
^DD(356.2,.05,21,0)="^^1^1^2930729^"
^DD(356.2,.05,21,1,0)="Enter the patient that was contacted.  "
^DD(356.2,.05,"DT")="3040610"
^DD(356.2,.06,0)="PERSON CONTACTED^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(356.2,.06,3)="Answer must be 3-30 characters in length."
^DD(356.2,.06,21,0)="^^3^3^2930806^"
^DD(356.2,.06,21,1,0)="This is the name of the person you contacted.  This is a free text name"
^DD(356.2,.06,21,2,0)="that can be entered.  It is recommended that you use the format of"
^DD(356.2,.06,21,3,0)="Firstname MI Lastname, just as they would say it to you."
^DD(356.2,.06,"DT")="2930610"
^DD(356.2,.07,0)="CONTACT PHONE #^F^^0;7^K:$L(X)>20!($L(X)<7) X"
^DD(356.2,.07,3)="Answer must be 7-20 characters in length."
^DD(356.2,.07,21,0)="^^6^6^2930806^"
^DD(356.2,.07,21,1,0)="This is the phone number of the person you contacted."
^DD(356.2,.07,21,2,0)=" "
^DD(356.2,.07,21,3,0)="If you contacted an insurance company and this number is not in the"
^DD(356.2,.07,21,4,0)="insurance company file, then you may want to enter it into that file"
^DD(356.2,.07,21,5,0)="as well.  The number entered here will only be seen when looking"
^DD(356.2,.07,21,6,0)="at this contact."
^DD(356.2,.07,"DT")="2930610"
^DD(356.2,.08,0)="INSURANCE COMPANY CONTACTED^P36'^DIC(36,^0;8^Q"
^DD(356.2,.08,1,0)="^.1"
^DD(356.2,.08,1,1,0)="356.2^AIACT^MUMPS"
^DD(356.2,.08,1,1,1)="S:$P(^IBT(356.2,DA,0),U,11) ^IBT(356.2,""AIACT"",X,+$P(^(0),U,11),DA)="""""
^DD(356.2,.08,1,1,2)="K ^IBT(356.2,""AIACT"",X,+$P(^IBT(356.2,DA,0),U,11),DA)"
^DD(356.2,.08,1,1,"%D",0)="^^2^2^2930811^^"
^DD(356.2,.08,1,1,"%D",1,0)="Index of insurance contacts with actions by patient by action."
^DD(356.2,.08,1,1,"%D",2,0)="Used primarily to find denials by patient."
^DD(356.2,.08,1,1,"DT")="2930811"
^DD(356.2,.08,5,1,0)="356.2^1.05^1"
^DD(356.2,.08,9)="^"
^DD(356.2,.08,21,0)="^^2^2^2930729^"
^DD(356.2,.08,21,1,0)="This is the insurance company that is being contacted.  This is"
^DD(356.2,.08,21,2,0)="generally triggered by the HEALTH INSURANCE POLICY field."
^DD(356.2,.08,"DT")="2930811"
^DD(356.2,.09,0)="CALL REFERENCE NUMBER^F^^0;9^K:$L(X)>15!($L(X)<3) X"
^DD(356.2,.09,3)="Answer must be 3-15 characters in length."
^DD(356.2,.09,21,0)="^^4^4^2930806^"
^DD(356.2,.09,21,1,0)="If the company you called gave you a reference number for the call"
^DD(356.2,.09,21,2,0)="then enter that reference number here.  Many companies will issue"
^DD(356.2,.09,21,3,0)="reference numbers so that they can track their calls and allow"
^DD(356.2,.09,21,4,0)="reference back to them by others."
^DD(356.2,.09,"DT")="2930610"
^DD(356.2,.1,0)="APPEAL STATUS^S^1:OPEN;2:PENDING;3:CLOSED;4:REFERED TO DISTRICT COUNSEL;^0;10^Q"
^DD(356.2,.1,1,0)="^.1"
^DD(356.2,.1,1,1,0)="^^TRIGGER^356.2^.24"
^DD(356.2,.1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.2,DA,0),U,10)=3 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="""" X ^DD(356.2,.1,1,1,1.4)"
^DD(356.2,.1,1,1,1.4)="S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(356.2,.1,1,1,2)="Q"
^DD(356.2,.1,1,1,"CREATE CONDITION")="I $P(^IBT(356.2,DA,0),U,10)=3"
^DD(356.2,.1,1,1,"CREATE VALUE")="@"
^DD(356.2,.1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(356.2,.1,1,1,"DT")="2940207"
^DD(356.2,.1,1,1,"FIELD")="#.24"
^DD(356.2,.1,21,0)="^^3^3^2930809^^"
^DD(356.2,.1,21,1,0)="If this Insurance Action is an appeal, this is the status of the appeal."
^DD(356.2,.1,21,2,0)="Appeals that are OPEN will continue to be on the list of pending work"
^DD(356.2,.1,21,3,0)="based on the next review date."
^DD(356.2,.1,"DT")="2940207"
^DD(356.2,.11,0)="ACTION^*P356.7'^IBE(356.7,^0;11^S DIC(""S"")=""N ACODE,CTYPE S ACODE=$P(^(0),U,3),CTYPE=$P(^IBT(356.2,DA,0),U,4) I $$SCREEN^IBTRC1(ACODE,CTYPE)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.2,.11,1,0)="^.1"
^DD(356.2,.11,1,1,0)="356.2^ACT"
^DD(356.2,.11,1,1,1)="S ^IBT(356.2,""ACT"",$E(X,1,30),DA)="""""
^DD(356.2,.11,1,1,2)="K ^IBT(356.2,""ACT"",$E(X,1,30),DA)"
^DD(356.2,.11,1,1,"%D",0)="^^1^1^2930908^^^"
^DD(356.2,.11,1,1,"%D",1,0)="Regular cross refence of actions"
^DD(356.2,.11,1,1,"DT")="2930811"
^DD(356.2,.11,1,2,0)="356.2^APACT1^MUMPS"
^DD(356.2,.11,1,2,1)="S:$P(^IBT(356.2,DA,0),U,5) ^IBT(356.2,""APACT"",+$P(^(0),U,5),X,DA)="""""
^DD(356.2,.11,1,2,2)="K ^IBT(356.2,""APACT"",+$P(^IBT(356.2,DA,0),U,5),X,DA)"
^DD(356.2,.11,1,2,"%D",0)="^^2^2^2930811^^^^"
^DD(356.2,.11,1,2,"%D",1,0)="Index of insurance contacts with actions by patient by action."
^DD(356.2,.11,1,2,"%D",2,0)="Used primarily to find denials by patient."
^DD(356.2,.11,1,2,"DT")="2930811"
^DD(356.2,.11,1,3,0)="356.2^AIACT1^MUMPS"
^DD(356.2,.11,1,3,1)="S:$P(^IBT(356.2,DA,0),U,8) ^IBT(356.2,""AIACT"",+$P(^(0),U,8),X,DA)="""""
^DD(356.2,.11,1,3,2)="K ^IBT(356.2,""AIACT"",+$P(^IBT(356.2,DA,0),U,8),X,DA)"
^DD(356.2,.11,1,3,"%D",0)="^^2^2^2930908^^^^"
^DD(356.2,.11,1,3,"%D",1,0)="Index of insurance contacts with actions by insurance co. by type of"
^DD(356.2,.11,1,3,"%D",2,0)="action.  Used primarily to find denials by insurance company."
^DD(356.2,.11,1,3,"DT")="2930811"
^DD(356.2,.11,1,4,0)="^^TRIGGER^356.2^.19"
^DD(356.2,.11,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S X=X=1 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(356.2,.11,1,4,1.4)"
^DD(356.2,.11,1,4,1.4)="S DIH=$G(^IBT(356.2,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=356.2,DIG=.19 D ^DICR"
^DD(356.2,.11,1,4,2)="Q"
^DD(356.2,.11,1,4,"%D",0)="^^1^1^3040805^"
^DD(356.2,.11,1,4,"%D",1,0)="Trigger Review Status from entered to Pending when an action is entered."
^DD(356.2,.11,1,4,"CREATE CONDITION")="INTERNAL(#.19)=1"
^DD(356.2,.11,1,4,"CREATE VALUE")="S X=2"
^DD(356.2,.11,1,4,"DELETE VALUE")="NO EFFECT"
^DD(356.2,.11,1,4,"DT")="3040805"
^DD(356.2,.11,1,4,"FIELD")="#.19"
^DD(356.2,.11,3)="Select the action taken by the insurance company on this call."
^DD(356.2,.11,12)="Only actions appropriate for the type of contact may be selected!"
^DD(356.2,.11,12.1)="S DIC(""S"")=""N ACODE,CTYPE S ACODE=$P(^(0),U,3),CTYPE=$P(^IBT(356.2,DA,0),U,4) I $$SCREEN^IBTRC1(ACODE,CTYPE)"""
^DD(356.2,.11,21,0)="^^10^10^2940213^^^^"
^DD(356.2,.11,21,1,0)="Enter the action that the insurance company took on this call.  "
^DD(356.2,.11,21,2,0)="Each contact can only have one action.  If you need to enter"
^DD(356.2,.11,21,3,0)="more than one action, enter another contact.  If you change the"
^DD(356.2,.11,21,4,0)="action, previously entered information will be deleted."
^DD(356.2,.11,21,5,0)=" "
^DD(356.2,.11,21,6,0)="If this contact was with an insurance company as part of an admission"
^DD(356.2,.11,21,7,0)="or continued stay review then you should enter the action that the"
^DD(356.2,.11,21,8,0)="insurance company took on thecall.  Based upon the answer to"
^DD(356.2,.11,21,9,0)="this question along with the type of contact, you will be prompted"
^DD(356.2,.11,21,10,0)="for varying information."
^DD(356.2,.11,"DT")="3040805"
^DD(356.2,.12,0)="CARE AUTHORIZED FROM^RDX^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$AFDT^IBTUTL4(DA,X) X"
^DD(356.2,.12,4)="D HELP^IBTUTL3(DA)"
^DD(356.2,.12,21,0)="^^3^3^2930806^^"
^DD(356.2,.12,21,1,0)="If the insurance company pre-approved the admission for"
^DD(356.2,.12,21,2,0)="this patient, this is the beginning date that they approved care"
^DD(356.2,.12,21,3,0)="from."
^DD(356.2,.12,"DT")="2940127"
^DD(356.2,.13,0)="CARE AUTHORIZED TO^RDX^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$ATDT^IBTUTL4(DA,X) X"
^DD(356.2,.13,1,0)="^.1"
^DD(356.2,.13,1,1,0)="^^TRIGGER^356.2^.24"
^DD(356.2,.13,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=$P(^IBT(356.2,DA,0),U,13) S DIH=$G(^IBT(356.2,DIV(0),0)),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR"
^DD(356.2,.13,1,1,2)="Q"
^DD(356.2,.13,1,1,"CREATE VALUE")="S X=$P(^IBT(356.2,DA,0),U,13)"
^DD(356.2,.13,1,1,"DELETE VALUE")="NO EFFECT"
^DD(356.2,.13,1,1,"DT")="3040610"
^DD(356.2,.13,1,1,"FIELD")="#.24"
^DD(356.2,.13,3)=""
^DD(356.2,.13,4)="D HELP^IBTUTL3(DA)"
^DD(356.2,.13,21,0)="^^6^6^2940213^^"
^DD(356.2,.13,21,1,0)="If the insurance company pre-approved the admission for this"
^DD(356.2,.13,21,2,0)="patient, this is the ending date of the care approved. "
^DD(356.2,.13,21,3,0)=" "
^DD(356.2,.13,21,4,0)="Typically insurance companies will approve only a certain number of"
^DD(356.2,.13,21,5,0)="days of care for reimbursement.  This is the ending date of the number"
^DD(356.2,.13,21,6,0)="of days that they approved for reimbursement."
^DD(356.2,.13,"DT")="3040610"
^DD(356.2,.14,0)="DIAGNOSIS AUTHORIZED^*P80'^ICD9(^0;14^S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,$P($G(^IBT(356.2,+$G(DA),0)),U))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.2,.14,12)="Only Active Diagnosis may be selected"
^DD(356.2,.14,12.1)="S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,$P($G(^IBT(356.2,+$G(DA),0)),U))"""
^DD(356.2,.14,21,0)="^.001^6^6^3030421^^^"
^DD(356.2,.14,21,1,0)="If the insurance company approved the care for this patient for "
^DD(356.2,.14,21,2,0)="reimbursement this is the diagnosis that they approved."
^DD(356.2,.14,21,3,0)=" "
^DD(356.2,.14,21,4,0)="Typically when an insurance company approves care for reimbursement"
^DD(356.2,.14,21,5,0)="they approve it for a specific diagnosis.  This is the diagnosis that"
^DD(356.2,.14,21,6,0)="they approved."
^DD(356.2,.14,23,0)="^.001^2^2^3030421^^"
^DD(356.2,.14,23,1,0)=" "
^DD(356.2,.14,23,2,0)=" "
^DD(356.2,.14,"DT")="2930928"
^DD(356.2,.15,0)="DATES OF DENIAL FROM^RDX^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$DFDT^IBTUTL4(DA,X) X"
^DD(356.2,.15,3)=""
^DD(356.2,.15,4)="D HELP^IBTUTL3(DA)"
^DD(356.2,.15,21,0)="^^4^4^2940127^^"
^DD(356.2,.15,21,1,0)="If the insurance company disapproved or denied pre-approving"
^DD(356.2,.15,21,2,0)="the care for this patient, this is the beginning date of care"
^DD(356.2,.15,21,3,0)="that they denied.  For some patients there may be both a "
^DD(356.2,.15,21,4,0)="number of approved and denied days."
^DD(356.2,.15,"DT")="2940127"
^DD(356.2,.16,0)="DATES OF DENIAL TO^RDX^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) K:'$$DTDT^IBTUTL4(DA,X) X"
^DD(356.2,.16,1,0)="^.1"
^DD(356.2,.16,1,1,0)="^^TRIGGER^356.2^.24"
^DD(356.2,.16,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=$P(^IBT(356.2,DA,0),U,16) S DIH=$G(^IBT(356.2,DIV(0),0)),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR"
^DD(356.2,.16,1,1,2)="Q"
^DD(356.2,.16,1,1,"CREATE VALUE")="S X=$P(^IBT(356.2,DA,0),U,16)"
^DD(356.2,.16,1,1,"DELETE VALUE")="NO EFFECT"
^DD(356.2,.16,1,1,"DT")="3040610"
^DD(356.2,.16,1,1,"FIELD")="#.24"
^DD(356.2,.16,3)=""
^DD(356.2,.16,4)="D HELP^IBTUTL3(DA)"
^DD(356.2,.16,21,0)="^^4^4^2930806^"
^DD(356.2,.16,21,1,0)="If the insurance company disapproved or denied pre-approving  "
^DD(356.2,.16,21,2,0)="the care for this patient, this is the ending date of care"
^DD(356.2,.16,21,3,0)="that they denied.  For some patients there may be both a "
^DD(356.2,.16,21,4,0)="number of approved and denied days."
^DD(356.2,.16,"DT")="3040610"
^DD(356.2,.17,0)="METHOD OF CONTACT^S^1:PHONE;2:MAIL;3:OVERNIGHT MAIL;4:PERSONAL;5:VOICE MAIL;6:OTHER;^0;17^Q"
^DD(356.2,.17,21,0)="^^3^3^2940213^^"
^DD(356.2,.17,21,1,0)="This is the method that you used to contact the person contacted"
^DD(356.2,.17,21,2,0)="in this entry.  Most contacts will be by phone but many others will"
^DD(356.2,.17,21,3,0)="be by mail."
^DD(356.2,.17,"DT")="2930915"
^DD(356.2,.18,0)="PARENT REVIEW^*P356.2'^IBT(356.2,^0;18^S DIC(""S"")=""N TYPE S TYPE=$P(^IBE(356.7,+$P(^(0),U,11),0),U,3) I TYPE=20!(TYPE=30)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.2,.18,1,0)="^.1"
^DD(356.2,.18,1,1,0)="356.2^AP"
^DD(356.2,.18,1,1,1)="S ^IBT(356.2,""AP"",$E(X,1,30),DA)="""""
^DD(356.2,.18,1,1,2)="K ^IBT(356.2,""AP"",$E(X,1,30),DA)"
^DD(356.2,.18,1,1,"DT")="2930811"
^DD(356.2,.18,12)="Only penalties and denials can be appealed."
^DD(356.2,.18,12.1)="S DIC(""S"")=""N TYPE S TYPE=$P(^IBE(356.7,+$P(^(0),U,11),0),U,3) I TYPE=20!(TYPE=30)"""
^DD(356.2,.18,21,0)="^^3^3^2940213^^^^"
^DD(356.2,.18,21,1,0)="This is the first contact in a series of contacts.  This field will"
^DD(356.2,.18,21,2,0)="generally be system generated.  When adding an appeal to a denied "
^DD(356.2,.18,21,3,0)="claim, this will be the denial contact that is being appealed."
^DD(356.2,.18,"DT")="2930907"
^DD(356.2,.19,0)="REVIEW STATUS^S^0:INACTIVE;1:ENTERED;2:PENDING;10:COMPLETE;^0;19^Q"
^DD(356.2,.19,1,0)="^.1"
^DD(356.2,.19,1,1,0)="356.2^AE"
^DD(356.2,.19,1,1,1)="S ^IBT(356.2,""AE"",$E(X,1,30),DA)="""""
^DD(356.2,.19,1,1,2)="K ^IBT(356.2,""AE"",$E(X,1,30),DA)"
^DD(356.2,.19,1,1,"DT")="2940207"
^DD(356.2,.19,1,2,0)="^^TRIGGER^356.2^.24"
^DD(356.2,.19,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.2,DA,0),U,19)'=10 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(356.2,.19,1,2,1.4)"
^DD(356.2,.19,1,2,1.4)="S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(356.2,.19,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^IBT(356.2,DA,0),U,19)=10 I X S X=DIV S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="""" X ^DD(356.2,.19,1,2,2.4)"
^DD(356.2,.19,1,2,2.4)="S DIH=$S($D(^IBT(356.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,24)=DIV,DIH=356.2,DIG=.24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(356.2,.19,1,2,"%D",0)="^^1^1^2940207^"
^DD(356.2,.19,1,2,"%D",1,0)="This trigger deletes the NEXT REVIEW DATE when completing a review."
^DD(356.2,.19,1,2,"CREATE CONDITION")="I $P(^IBT(356.2,DA,0),U,19)'=10"
^DD(356.2,.19,1,2,"CREATE VALUE")="S X=DT"
^DD(356.2,.19,1,2,"DELETE CONDITION")="I $P(^IBT(356.2,DA,0),U,19)=10"
^DD(356.2,.19,1,2,"DELETE VALUE")="@"
^DD(356.2,.19,1,2,"DT")="2940207"
^DD(356.2,.19,1,2,"FIELD")="#.24"
^DD(356.2,.19,3)=""
^DD(356.2,.19,5,1,0)="356.2^.11^4"
^DD(356.2,.19,21,0)="^^2^2^2930907^^^"
^DD(356.2,.19,21,1,0)="Enter whether or not this entry is active or not.  Inactivating an"
^DD(356.2,.19,21,2,0)="entry has the same effect as deleting the entry."
^DD(356.2,.19,"DT")="2940207"
^DD(356.2,.2,0)="CASE PENDING^S^1:UR/CLINICAL INFORMATION;2:PENDING MEDICAL REVIEW;3:OTHER;^0;20^Q"
^DD(356.2,.2,21,0)="^^4^4^2930806^"
^DD(356.2,.2,21,1,0)="If the action by the insurance company on this contact is pending, then"
^DD(356.2,.2,21,2,0)="this is what the case is pending for.  Generally cases are pending"
^DD(356.2,.2,21,3,0)="further UR/Clinical information from the site or Medical Review at"
^DD(356.2,.2,21,4,0)="the insurance company."
^DD(356.2,.2,"DT")="2930610"
^DD(356.2,.21,0)="NO COVERAGE^S^1:PATIENT NOT ELIGIBLE;2:SERVICE NOT PROGRAM BENEFIT;3:COVERAGE CANCELED BEFORE TREATMENT;4:OTHER;^0;21^Q"
^DD(356.2,.21,21,0)="^^3^3^2930806^"
^DD(356.2,.21,21,1,0)="If the action by the insurance company on this contact was that"
^DD(356.2,.21,21,2,0)="the patient was not covered by this carrier for this care then"
^DD(356.2,.21,21,3,0)="this is the reason that they claim no coverge."
^DD(356.2,.21,"DT")="2930610"
^DD(356.2,.22,0)="FOLLOW-UP WITH APPEAL^S^1:YES;0:NO;^0;22^Q"
^DD(356.2,.22,21,0)="^^3^3^2930806^"
^DD(356.2,.22,21,1,0)="If the action by the insurance company on this contact was a denial,"
^DD(356.2,.22,21,2,0)="then enter whether you wish to follow up with an appeal.  If you"
^DD(356.2,.22,21,3,0)="answer 'YES' then this will be included on your Pending Work."
^DD(356.2,.22,"DT")="2930610"
^DD(356.2,.23,0)="TYPE OF APPEAL^S^1:CLINICAL;2:ADMINISTRATIVE;^0;23^Q"
^DD(356.2,.23,21,0)="^^2^2^2930806^"
^DD(356.2,.23,21,1,0)="If you are appealing the decision of an insurance company enter whether"
^DD(356.2,.23,21,2,0)="this is a clinical or administrative appeal."
^DD(356.2,.23,"DT")="2930610"
^DD(356.2,.24,0)="NEXT REVIEW DATE^D^^0;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.2,.24,1,0)="^.1"
^DD(356.2,.24,1,1,0)="356.2^APEND"
^DD(356.2,.24,1,1,1)="S ^IBT(356.2,""APEND"",$E(X,1,30),DA)="""""
^DD(356.2,.24,1,1,2)="K ^IBT(356.2,""APEND"",$E(X,1,30),DA)"
^DD(356.2,.24,1,1,"%D",0)="^^1^1^2930804^"
^DD(356.2,.24,1,1,"%D",1,0)="This cross-refence is used to find contacts that need futher action."
^DD(356.2,.24,1,1,"DT")="2930804"
^DD(356.2,.24,5,1,0)="356.2^.13^1"
^DD(356.2,.24,5,2,0)="356.2^.16^1"
^DD(356.2,.24,5,3,0)="356.2^.19^2"
^DD(356.2,.24,5,4,0)="356.2^.1^1"
^DD(356.2,.24,21,0)="^^9^9^2940213^^"
^DD(356.2,.24,21,1,0)="This is the date that this should show up on your Pending Work list.  If"
^DD(356.2,.24,21,2,0)="you have entered an admission review with a next review date in three"
^DD(356.2,.24,21,3,0)="days, you will, in three days, have either a continued stay review or"
^DD(356.2,.24,21,4,0)="a discharge review to do depending on the patient's status.  If this"
^DD(356.2,.24,21,5,0)="is a denial contact an the next review date is in three days, in three"
^DD(356.2,.24,21,6,0)="days you will show and appeal that needs to be done.  Etc."
^DD(356.2,.24,21,7,0)=" "
^DD(356.2,.24,21,8,0)="If no entry is in this field then you will not be reminded of pending"
^DD(356.2,.24,21,9,0)="work."
^DD(356.2,.24,"DT")="2930804"
^DD(356.2,.25,0)="NUMBER OF DAYS PENDING APPEAL^NJ3,0^^0;25^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.2,.25,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(356.2,.25,21,0)="^^3^3^2930806^"
^DD(356.2,.25,21,1,0)="If the insurance company denied reimbursement for days of care, either"
^DD(356.2,.25,21,2,0)="in part or in total, and you are appealing that denial, then enter the"
^DD(356.2,.25,21,3,0)="number of days being appealed."
^DD(356.2,.25,"DT")="2930812"
^DD(356.2,.26,0)="OUTPATIENT TREATMENT^F^^0;26^K:$L(X)>20!($L(X)<3) X"
^DD(356.2,.26,3)="Answer must be 3-20 characters in length."
^DD(356.2,.26,21,0)="^^4^4^2940213^^"
^DD(356.2,.26,21,1,0)="If this contact is to determine if a particular outpatient"
^DD(356.2,.26,21,2,0)="treatment will be authorized for reimbursement, this is the "
^DD(356.2,.26,21,3,0)="outpatient treatment that is authorized.  Enter the free-text"
^DD(356.2,.26,21,4,0)="description of the outpatient treatment."
^DD(356.2,.26,"DT")="2930610"
^DD(356.2,.27,0)="TREATMENT AUTHORIZED^S^1:YES;0:NO;^0;27^Q"
^DD(356.2,.27,21,0)="^^5^5^2940213^^^"
^DD(356.2,.27,21,1,0)="Entry 'YES' if this was authorized or 'NO' if it was not authorized."
^DD(356.2,.27,21,2,0)=" "
^DD(356.2,.27,21,3,0)="If this contact is to determine if a particular outpatient "
^DD(356.2,.27,21,4,0)="treatment is authorized for reimbursement, then this is"
^DD(356.2,.27,21,5,0)="whether or not the treatment was authorized.  "
^DD(356.2,.27,"DT")="2930610"
^DD(356.2,.28,0)="AUTHORIZATION NUMBER^F^^0;28^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<3) X"
^DD(356.2,.28,1,0)="^.1"
^DD(356.2,.28,1,1,0)="356.2^APRE1^MUMPS"
^DD(356.2,.28,1,1,1)="S:$P(^IBT(356.2,DA,0),U,2) ^IBT(356.2,""APRE"",+$P(^(0),U,2),X,DA)="""""
^DD(356.2,.28,1,1,2)="K ^IBT(356.2,""APRE"",+$P(^IBT(356.2,DA,0),U,2),X,DA)"
^DD(356.2,.28,1,1,"%D",0)="^^1^1^2930729^"
^DD(356.2,.28,1,1,"%D",1,0)="Cross-reference of pre-cert numbers by tracking id."
^DD(356.2,.28,1,1,"DT")="2930729"
^DD(356.2,.28,3)="Answer must be 3-18 characters in length."
^DD(356.2,.28,21,0)="6^^6^6^2940213^"
^DD(356.2,.28,21,1,0)="Enter the treatment authorization number that the insurance company gave"
^DD(356.2,.28,21,2,0)="you during this contact."
^DD(356.2,.28,21,3,0)=" "
^DD(356.2,.28,21,4,0)="The data in this field if it exists will be considered the Treatment"
^DD(356.2,.28,21,5,0)="Authorization code for this care and will automatically used by the"
^DD(356.2,.28,21,6,0)="billing module."
^DD(356.2,.28,"DT")="2931220"
^DD(356.2,.29,0)="FINAL OUTCOME OF APPEAL^S^1:APPROVED;2:DENIED;3:PARITIAL APPROVAL;^0;29^Q"
^DD(356.2,.29,21,0)="^^5^5^2930825^"
^DD(356.2,.29,21,1,0)="Enter the final outcome of this appeal.  Did the insurance company"
^DD(356.2,.29,21,2,0)="approve, partially approve or deny this appeal?"
^DD(356.2,.29,21,3,0)=" "
^DD(356.2,.29,21,4,0)="If the appeal was approved or partially approved you may enter the"
^DD(356.2,.29,21,5,0)="dates that it was approved for."
^DD(356.2,.29,"DT")="2930825"
^DD(356.2,1.01,0)="DATE ENTERED^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.2,1.01,21,0)="^^3^3^2930806^"
^DD(356.2,1.01,21,1,0)="This is the date this contact was entered into the computer.  It is"
^DD(356.2,1.01,21,2,0)="generated when the contact is entered and is not editable by the "
^DD(356.2,1.01,21,3,0)="user."
^DD(356.2,1.01,22)=""
^DD(356.2,1.01,"DT")="2930610"
^DD(356.2,1.02,0)="ENTERED BY^P200'^VA(200,^1;2^Q"
^DD(356.2,1.02,21,0)="^^4^4^2930806^"
^DD(356.2,1.02,21,1,0)="This is the user who was signed on to the computer system when this"
^DD(356.2,1.02,21,2,0)="contact was created.  If this contact was created automatically by the"
^DD(356.2,1.02,21,3,0)="computer from an admission or discharge, then this might be a user from"
^DD(356.2,1.02,21,4,0)="IRM, MAS, or other service."
^DD(356.2,1.02,"DT")="2930610"
^DD(356.2,1.03,0)="DATE LAST EDITED^D^^1;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.2,1.03,21,0)="^^3^3^2940213^^"
^DD(356.2,1.03,21,1,0)="This is the date that this contact was last edited by a user using"
^DD(356.2,1.03,21,2,0)="the input options.  After every editing sequence the files are checked"
^DD(356.2,1.03,21,3,0)="for changes.  If any are noted then this field is updated."
^DD(356.2,1.03,"DT")="2930610"
^DD(356.2,1.04,0)="LAST EDITED BY^P200'^VA(200,^1;4^Q"
^DD(356.2,1.04,21,0)="^^1^1^2930806^"
^DD(356.2,1.04,21,1,0)="This is the user that last edited this contact using the input screens."
^DD(356.2,1.04,"DT")="2930610"
^DD(356.2,1.05,0)="HEALTH INSURANCE POLICY^RFXO^^1;5^K:$L(X)>30!($L(X)<1) X D:$D(X) DD^IBTRC2(X,DA)"
^DD(356.2,1.05,1,0)="^.1"
^DD(356.2,1.05,1,1,0)="^^TRIGGER^356.2^.08"
^DD(356.2,1.05,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=+$$INSCO^IBTRC2(DA,$P(^IBT(356.2,DA,1),U,5)) X ^DD(356.2,1.05,1,1,1.4)"
^DD(356.2,1.05,1,1,1.4)="S DIH=$G(^IBT(356.2,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=356.2,DIG=.08 D ^DICR"
^DD(356.2,1.05,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBT(356.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" S DIH=$G(^IBT(356.2,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=356.2,DIG=.08 D ^DICR"
^DD(356.2,1.05,1,1,"CREATE VALUE")="S X=+$$INSCO^IBTRC2(DA,$P(^IBT(356.2,DA,1),U,5))"
^DD(356.2,1.05,1,1,"DELETE VALUE")="@"
^DD(356.2,1.05,1,1,"DT")="3040614"
^DD(356.2,1.05,1,1,"FIELD")="#.08"
^DD(356.2,1.05,2)="S Y(0)=Y S Y=$$TRANS^IBTRC2(D0,Y)"
^DD(356.2,1.05,2.1)="S Y=$$TRANS^IBTRC2(D0,Y)"
^DD(356.2,1.05,3)="Select the policy for the insurance company that you contacted."
^DD(356.2,1.05,4)="D DDHELP^IBTRC2(DA)"
^DD(356.2,1.05,5,1,0)="356.2^.05^3"
^DD(356.2,1.05,21,0)="^^2^2^2940213^^^^"
^DD(356.2,1.05,21,1,0)="Select the policy for this patient that you are contacting the insurance"
^DD(356.2,1.05,21,2,0)="company for."
^DD(356.2,1.05,23,0)="^^4^4^2940213^^^"
^DD(356.2,1.05,23,1,0)="This field points to the patient insurance type field in the patient file."
^DD(356.2,1.05,23,2,0)="It is used to do look-ups on the ins. type multiple and to display"
^DD(356.2,1.05,23,3,0)="help.  It is needed because a patient may have more than one entry with"
^DD(356.2,1.05,23,4,0)="the same ins. co. and same policy except for different effective dates."
^DD(356.2,1.05,"DT")="3040614"
^DD(356.2,1.07,0)="DENY ENTIRE ADMISSION^*S^0:NO;1:YES;^1;7^Q"
^DD(356.2,1.07,3)=""
^DD(356.2,1.07,4)="D HELP^IBTUTL3(DA)"
^DD(356.2,1.07,12)="An entire admission can only be authorized or denied once."
^DD(356.2,1.07,12.1)="S DIC(""S"")=""I $S(Y:$$DEA^IBTUTL4(DA,Y),1:1)"""
^DD(356.2,1.07,21,0)="^^8^8^2940127^^^"
^DD(356.2,1.07,21,1,0)="If the insurance company denies the entire admission for reimbursement"
^DD(356.2,1.07,21,2,0)="then enter YES.  You will then not asked to enter the Care Denied From"
^DD(356.2,1.07,21,3,0)="and Care Denied To questions for this admission.  If you want to enter"
^DD(356.2,1.07,21,4,0)="the dates care was denied from and to, then answer NO."
^DD(356.2,1.07,21,5,0)=" "
^DD(356.2,1.07,21,6,0)="If this question is answered YES, then the days denied for this episode"
^DD(356.2,1.07,21,7,0)="will be the admission to discharge date and any report will use the portion"
^DD(356.2,1.07,21,8,0)="of the episode that falls within the date range of the report.   "
^DD(356.2,1.07,"DT")="2940127"
^DD(356.2,1.08,0)="AUTHORIZE ENTIRE ADMISSION^*S^0:NO;1:YES;^1;8^Q"
^DD(356.2,1.08,4)="D HELP^IBTUTL3(DA)"
^DD(356.2,1.08,12)=" An entire admission can only be authorized or denied once."
^DD(356.2,1.08,12.1)="S DIC(""S"")=""I $S(Y:$$AEA^IBTUTL4(DA,Y),1:1)"""
^DD(356.2,1.08,21,0)="^^8^8^2940127^^"
^DD(356.2,1.08,21,1,0)="If the insurance company authorizes the entire admission for reimbursement"
^DD(356.2,1.08,21,2,0)="then enter YES.  You will then not asked to enter the Care Authorized From"
^DD(356.2,1.08,21,3,0)="and Care Authorized To questions for this admission.  If you want to enter"
^DD(356.2,1.08,21,4,0)="the dates care was authorized from and to, then answer NO."
^DD(356.2,1.08,21,5,0)=" "
^DD(356.2,1.08,21,6,0)="If this question is answered YES, then the days authorized for this episode"
^DD(356.2,1.08,21,7,0)="will be the admission to discharge date and any report will use the portion"
^DD(356.2,1.08,21,8,0)="of the episode that falls within the date range of the report."
^DD(356.2,1.08,"DT")="2940127"
^DD(356.2,11,0)="COMMENTS^356.211^^11;0"
^DD(356.2,11,21,0)="^^3^3^2940213^^"
^DD(356.2,11,21,1,0)="This field is used to store long textual information about the contact."
^DD(356.2,11,21,2,0)="This may be used to document specific information that is not captured"
^DD(356.2,11,21,3,0)="in other fields or to pass along pertinent information to other users."
^DD(356.2,12,0)="REASONS FOR DENIAL^356.212PA^^12;0"
^DD(356.2,12,21,0)="^^2^2^2940202^^"
^DD(356.2,12,21,1,0)="If this contact was a denial, this is the reason(s) for denial.  More"
^DD(356.2,12,21,2,0)="than one reason may be selected from the available choices."
^DD(356.2,13,0)="PENALTY^356.213SA^^13;0"
^DD(356.2,13,21,0)="^^2^2^2940213^^"
^DD(356.2,13,21,1,0)="If the action taken by an insurance company was to assess a penalty,"
^DD(356.2,13,21,2,0)="then this is the reason for the penalty."
^DD(356.2,14,0)="APPROVE ON APPEAL FROM^356.214DA^^14;0"
^DD(356.2,14,21,0)="^^3^3^2940213^^^"
^DD(356.2,14,21,1,0)="Enter the dates that were approved for payment after an appeal.  If the"
^DD(356.2,14,21,2,0)="appeal was partially or fully approved enter the dates that this appeal"
^DD(356.2,14,21,3,0)="was approved from."
^DD(356.2,"B","ACTION",.11)=""
^DD(356.2,"B","APPEAL STATUS",.1)=""
^DD(356.2,"B","APPROVE ON APPEAL FROM",14)=""
^DD(356.2,"B","AUTHORIZATION NUMBER",.28)=""
^DD(356.2,"B","AUTHORIZE ENTIRE ADMISSION",1.08)=""
^DD(356.2,"B","CALL REFERENCE NUMBER",.09)=""
^DD(356.2,"B","CARE AUTHORIZED FROM",.12)=""
^DD(356.2,"B","CARE AUTHORIZED TO",.13)=""
^DD(356.2,"B","CASE PENDING",.2)=""
^DD(356.2,"B","COMMENTS",11)=""
^DD(356.2,"B","CONTACT PHONE #",.07)=""
^DD(356.2,"B","DATE ENTERED",1.01)=""
^DD(356.2,"B","DATE LAST EDITED",1.03)=""
^DD(356.2,"B","DATES OF DENIAL FROM",.15)=""
^DD(356.2,"B","DATES OF DENIAL TO",.16)=""
^DD(356.2,"B","DENY ENTIRE ADMISSION",1.07)=""
^DD(356.2,"B","DIAGNOSIS AUTHORIZED",.14)=""
^DD(356.2,"B","ENTERED BY",1.02)=""
^DD(356.2,"B","FINAL OUTCOME OF APPEAL",.29)=""
^DD(356.2,"B","FOLLOW-UP WITH APPEAL",.22)=""
^DD(356.2,"B","HEALTH INSURANCE POLICY",1.05)=""
^DD(356.2,"B","INSURANCE COMPANY CONTACTED",.08)=""
^DD(356.2,"B","LAST EDITED BY",1.04)=""
^DD(356.2,"B","METHOD OF CONTACT",.17)=""
^DD(356.2,"B","NEXT REVIEW DATE",.24)=""
^DD(356.2,"B","NO COVERAGE",.21)=""
^DD(356.2,"B","NUMBER OF DAYS PENDING APPEAL",.25)=""
^DD(356.2,"B","OUTPATIENT TREATMENT",.26)=""
^DD(356.2,"B","PARENT REVIEW",.18)=""
^DD(356.2,"B","PATIENT",.05)=""
^DD(356.2,"B","PENALTY",13)=""
^DD(356.2,"B","PERSON CONTACTED",.06)=""
^DD(356.2,"B","REASONS FOR DENIAL",12)=""
^DD(356.2,"B","RELATED REVIEW",.03)=""
^DD(356.2,"B","REVIEW DATE",.01)=""
^DD(356.2,"B","REVIEW STATUS",.19)=""
^DD(356.2,"B","TRACKING ID",.02)=""
^DD(356.2,"B","TREATMENT AUTHORIZED",.27)=""
^DD(356.2,"B","TYPE OF APPEAL",.23)=""
^DD(356.2,"B","TYPE OF CONTACT",.04)=""
^DD(356.2,"GL",0,1,.01)=""
^DD(356.2,"GL",0,2,.02)=""
^DD(356.2,"GL",0,3,.03)=""
^DD(356.2,"GL",0,4,.04)=""
^DD(356.2,"GL",0,5,.05)=""
^DD(356.2,"GL",0,6,.06)=""
^DD(356.2,"GL",0,7,.07)=""
^DD(356.2,"GL",0,8,.08)=""
^DD(356.2,"GL",0,9,.09)=""
^DD(356.2,"GL",0,10,.1)=""
^DD(356.2,"GL",0,11,.11)=""
^DD(356.2,"GL",0,12,.12)=""
^DD(356.2,"GL",0,13,.13)=""
^DD(356.2,"GL",0,14,.14)=""
^DD(356.2,"GL",0,15,.15)=""
^DD(356.2,"GL",0,16,.16)=""
^DD(356.2,"GL",0,17,.17)=""
^DD(356.2,"GL",0,18,.18)=""
^DD(356.2,"GL",0,19,.19)=""
^DD(356.2,"GL",0,20,.2)=""
^DD(356.2,"GL",0,21,.21)=""
^DD(356.2,"GL",0,22,.22)=""
^DD(356.2,"GL",0,23,.23)=""
^DD(356.2,"GL",0,24,.24)=""
^DD(356.2,"GL",0,25,.25)=""
^DD(356.2,"GL",0,26,.26)=""
^DD(356.2,"GL",0,27,.27)=""
^DD(356.2,"GL",0,28,.28)=""
^DD(356.2,"GL",0,29,.29)=""
^DD(356.2,"GL",1,1,1.01)=""
^DD(356.2,"GL",1,2,1.02)=""
^DD(356.2,"GL",1,3,1.03)=""
^DD(356.2,"GL",1,4,1.04)=""
^DD(356.2,"GL",1,5,1.05)=""
^DD(356.2,"GL",1,7,1.07)=""
^DD(356.2,"GL",1,8,1.08)=""
^DD(356.2,"GL",11,0,11)=""
^DD(356.2,"GL",12,0,12)=""
^DD(356.2,"GL",13,0,13)=""
^DD(356.2,"GL",14,0,14)=""
^DD(356.2,"IX",.01)=""
^DD(356.2,"IX",.02)=""
^DD(356.2,"IX",.03)=""
^DD(356.2,"IX",.04)=""
^DD(356.2,"IX",.05)=""
^DD(356.2,"IX",.08)=""
^DD(356.2,"IX",.1)=""
^DD(356.2,"IX",.11)=""
^DD(356.2,"IX",.13)=""
^DD(356.2,"IX",.16)=""
^DD(356.2,"IX",.18)=""
^DD(356.2,"IX",.19)=""
^DD(356.2,"IX",.24)=""
^DD(356.2,"IX",.28)=""
^DD(356.2,"IX",1.05)=""
^DD(356.2,"RQ",.01)=""
^DD(356.2,"RQ",.04)=""
^DD(356.2,"RQ",.12)=""
^DD(356.2,"RQ",.13)=""
^DD(356.2,"RQ",.15)=""
^DD(356.2,"RQ",.16)=""
^DD(356.2,"RQ",1.05)=""
^DD(356.2,"SB",356.211,11)=""
^DD(356.2,"SB",356.212,12)=""
^DD(356.2,"SB",356.213,13)=""
^DD(356.2,"SB",356.214,14)=""
^DD(356.2,"TRB",356.2,.1,1,.24)=""
^DD(356.2,"TRB",356.2,.11,4,.19)=""
^DD(356.2,"TRB",356.2,.13,1,.24)=""
^DD(356.2,"TRB",356.2,.16,1,.24)=""
^DD(356.2,"TRB",356.2,1.05,1,.08)=""
^DD(356.21,0)="FIELD^^.02^3"
^DD(356.21,0,"DDA")="N"
^DD(356.21,0,"DT")="2930825"
^DD(356.21,0,"IX","B",356.21,.01)=""
^DD(356.21,0,"NM","CLAIMS TRACKING DENIAL REASONS")=""
^DD(356.21,0,"PT",356.212,.01)=""
^DD(356.21,0,"VR")="2.0"
^DD(356.21,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.21,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(356.21,.001,21,0)="^^2^2^2931128^"
^DD(356.21,.001,21,1,0)="This is the number of the entry.  You may select the Denial Reason by"
^DD(356.21,.001,21,2,0)="name or by number."
^DD(356.21,.001,"DT")="2930610"
^DD(356.21,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(356.21,.01,1,0)="^.1"
^DD(356.21,.01,1,1,0)="356.21^B"
^DD(356.21,.01,1,1,1)="S ^IBE(356.21,""B"",$E(X,1,30),DA)="""""
^DD(356.21,.01,1,1,2)="K ^IBE(356.21,""B"",$E(X,1,30),DA)"
^DD(356.21,.01,3)="Answer must be 3-60 characters in length."
^DD(356.21,.01,21,0)="^^2^2^2931128^"
^DD(356.21,.01,21,1,0)="This is the name of the denial reason.  Select the Denial reason by name"
^DD(356.21,.01,21,2,0)="or by number."
^DD(356.21,.01,"DT")="2930825"
^DD(356.21,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>10!($L(X)<2) X"
^DD(356.21,.02,3)="Answer must be 2-10 characters in length."
^DD(356.21,.02,21,0)="^^2^2^2931128^"
^DD(356.21,.02,21,1,0)="Enter the 2 to 10 character abbreviation for this Denial Reason.  The"
^DD(356.21,.02,21,2,0)="abbreviation may be used on displays and reports if the name is too long."
^DD(356.21,.02,"DT")="2930610"
^DD(356.21,"B","ABBREVIATION",.02)=""
^DD(356.21,"B","NAME",.01)=""
^DD(356.21,"B","NUMBER",.001)=""
^DD(356.21,"GL",0,1,.01)=""
^DD(356.21,"GL",0,2,.02)=""
^DD(356.21,"IX",.01)=""
^DD(356.21,"RQ",.01)=""
^DD(356.211,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(356.211,0,"NM","COMMENTS")=""
^DD(356.211,0,"UP")="356.2"
^DD(356.211,.01,0)="COMMENTS^W^^0;1^Q"
^DD(356.211,.01,21,0)="^^3^3^2940213^^"
^DD(356.211,.01,21,1,0)="This field is used to store long textual information about the contact."
^DD(356.211,.01,21,2,0)="This may be used to document specific information that is not captured"
^DD(356.211,.01,21,3,0)="in other fields or to pass along pertinent information to other users."
^DD(356.211,.01,"DT")="2930610"
^DD(356.211,"B","COMMENTS",.01)=""
^DD(356.211,"GL",0,1,.01)=""
^DD(356.212,0)="REASONS FOR DENIAL SUB-FIELD^^.01^1"
^DD(356.212,0,"IX","B",356.212,.01)=""
^DD(356.212,0,"NM","REASONS FOR DENIAL")=""
^DD(356.212,0,"UP")="356.2"
^DD(356.212,.01,0)="REASONS FOR DENIAL^MP356.21'^IBE(356.21,^0;1^Q"
^DD(356.212,.01,1,0)="^.1"
^DD(356.212,.01,1,1,0)="356.212^B"
^DD(356.212,.01,1,1,1)="S ^IBT(356.2,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(356.212,.01,1,1,2)="K ^IBT(356.2,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(356.212,.01,21,0)="^^2^2^2940202^^^"
^DD(356.212,.01,21,1,0)="If this contact was a denial, this is the reason(s) for denial.  More"
^DD(356.212,.01,21,2,0)="than one reason may be selected from the available choices."
^DD(356.212,.01,"DT")="2930610"
^DD(356.212,"B","REASONS FOR DENIAL",.01)=""
^DD(356.212,"GL",0,1,.01)=""
^DD(356.212,"IX",.01)=""
^DD(356.213,0)="PENALTY SUB-FIELD^^.02^2"
^DD(356.213,0,"DT")="2940125"
^DD(356.213,0,"IX","B",356.213,.01)=""
^DD(356.213,0,"NM","PENALTY")=""
^DD(356.213,0,"UP")="356.2"
^DD(356.213,.01,0)="PENALTY^MS^1:NO PRE ADMISSION CERTIFICATION;2:UNTIMELY PRE ADMISSION CERTIFICATION;3:VA A NON-PROVIDER;^0;1^Q"
^DD(356.213,.01,1,0)="^.1"
^DD(356.213,.01,1,1,0)="356.213^B"
^DD(356.213,.01,1,1,1)="S ^IBT(356.2,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(356.213,.01,1,1,2)="K ^IBT(356.2,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(356.213,.01,21,0)="^^2^2^2940213^^^"
^DD(356.213,.01,21,1,0)="If the action taken by an insurance company was to assess a penalty,"
^DD(356.213,.01,21,2,0)="then this is the reason for the penalty."
^DD(356.213,.01,"DT")="2940125"
^DD(356.213,.02,0)="AMOUNT OF PENALTY^NJ9,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(356.213,.02,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(356.213,.02,21,0)="^^2^2^2940213^^"
^DD(356.213,.02,21,1,0)="If the action taken by an insurance company was to assess a penalty,"
^DD(356.213,.02,21,2,0)="this is the amount of the penalty assessed."
^DD(356.213,.02,"DT")="2930806"
^DD(356.213,"B","AMOUNT OF PENALTY",.02)=""
^DD(356.213,"B","PENALTY",.01)=""
^DD(356.213,"GL",0,1,.01)=""
^DD(356.213,"GL",0,2,.02)=""
^DD(356.213,"IX",.01)=""
^DD(356.214,0)="APPROVE ON APPEAL FROM SUB-FIELD^^.02^2"
^DD(356.214,0,"DT")="2930825"
^DD(356.214,0,"IX","B",356.214,.01)=""
^DD(356.214,0,"NM","APPROVE ON APPEAL FROM")=""
^DD(356.214,0,"UP")="356.2"
^DD(356.214,.01,0)="APPROVE ON APPEAL FROM^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.214,.01,1,0)="^.1"
^DD(356.214,.01,1,1,0)="356.214^B"
^DD(356.214,.01,1,1,1)="S ^IBT(356.2,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(356.214,.01,1,1,2)="K ^IBT(356.2,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(356.214,.01,21,0)="^^3^3^2940213^^^"
^DD(356.214,.01,21,1,0)="Enter the dates that were approved for payment after an appeal.  If the"
^DD(356.214,.01,21,2,0)="appeal was partially or fully approved enter the dates that this appeal"
^DD(356.214,.01,21,3,0)="was approved from."
^DD(356.214,.01,"DT")="2930825"
^DD(356.214,.02,0)="APPROVE ON APPEAL TO^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.214,.02,21,0)="^^3^3^2940213^^^"
^DD(356.214,.02,21,1,0)="Enter the dates that were approved for payment after an appeal.  If the"
^DD(356.214,.02,21,2,0)="appeal was partially or fully approved enter the dates that this appeal"
^DD(356.214,.02,21,3,0)="was approved to."
^DD(356.214,.02,"DT")="2930825"
^DD(356.214,"B","APPROVE ON APPEAL FROM",.01)=""
^DD(356.214,"B","APPROVE ON APPEAL TO",.02)=""
^DD(356.214,"GL",0,1,.01)=""
^DD(356.214,"GL",0,2,.02)=""
^DD(356.214,"IX",.01)=""
^DD(356.3,0)="FIELD^^.04^4"
^DD(356.3,0,"DDA")="N"
^DD(356.3,0,"DT")="2960314"
^DD(356.3,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(356.3,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(356.3,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(356.3,0,"IX","B",356.3,.01)=""
^DD(356.3,0,"IX","C",356.3,.03)=""
^DD(356.3,0,"NM","CLAIMS TRACKING SI/IS CATEGORIES")=""
^DD(356.3,0,"PT",356.1,.04)=""
^DD(356.3,0,"PT",356.1,.05)=""
^DD(356.3,0,"PT",356.1,.08)=""
^DD(356.3,0,"PT",356.1,.09)=""
^DD(356.3,0,"PT",356.1,.12)=""
^DD(356.3,0,"PT",356.1,.13)=""
^DD(356.3,0,"VR")="2.0"
^DD(356.3,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(356.3,.01,1,0)="^.1"
^DD(356.3,.01,1,1,0)="356.3^B"
^DD(356.3,.01,1,1,1)="S ^IBE(356.3,""B"",$E(X,1,30),DA)="""""
^DD(356.3,.01,1,1,2)="K ^IBE(356.3,""B"",$E(X,1,30),DA)"
^DD(356.3,.01,3)="Answer must be 3-40 characters in length."
^DD(356.3,.01,21,0)="^^4^4^2931128^"
^DD(356.3,.01,21,1,0)="This is the name of the Severity of Illness (SI) or Intensity of Service"
^DD(356.3,.01,21,2,0)="(IS) general category.  "
^DD(356.3,.01,21,3,0)=" "
^DD(356.3,.01,21,4,0)="Enter the name as it appears in the Interqual manual."
^DD(356.3,.01,"DT")="2930610"
^DD(356.3,.02,0)="*GENERAL OR SPECIAL UNIT^S^1:SPECIAL UNIT CODE;2:GENERAL UNIT;^0;2^Q"
^DD(356.3,.02,21,0)="^^5^5^2940213^^^^"
^DD(356.3,.02,21,1,0)="Enter whether this criteria is for general medical surgical ward or for"
^DD(356.3,.02,21,2,0)="a specialized unit as defined in the Interqual manual.  Specialized"
^DD(356.3,.02,21,3,0)="units include not only ICU's and CCU's but some other non-critical care"
^DD(356.3,.02,21,4,0)="units that one might not normally expect to see included in the list."
^DD(356.3,.02,21,5,0)=" "
^DD(356.3,.02,"DT")="2960315"
^DD(356.3,.03,0)="CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(356.3,.03,1,0)="^.1"
^DD(356.3,.03,1,1,0)="356.3^C"
^DD(356.3,.03,1,1,1)="S ^IBE(356.3,""C"",$E(X,1,30),DA)="""""
^DD(356.3,.03,1,1,2)="K ^IBE(356.3,""C"",$E(X,1,30),DA)"
^DD(356.3,.03,1,1,"DT")="2930915"
^DD(356.3,.03,3)="Answer must be 2 characters in length."
^DD(356.3,.03,21,0)="^^4^4^2931128^^"
^DD(356.3,.03,21,1,0)="Enter the 2 digit number to assist in looking up SI/IS criteria."
^DD(356.3,.03,21,2,0)=" "
^DD(356.3,.03,21,3,0)="Do not edit this code as it will be used in the national roll-up of QM "
^DD(356.3,.03,21,4,0)="Utilization Review data to identify the category."
^DD(356.3,.03,"DT")="2930915"
^DD(356.3,.04,0)="LEVEL OF CARE^S^1:CRITICAL CARE;2:ACUTE CARE - BODY SYSTEM;3:ACUTE CARE - OTHER;^0;4^Q"
^DD(356.3,.04,21,0)="^^3^3^2960314^"
^DD(356.3,.04,21,1,0)="This field stores the three levels of care for the SI/IS categories."
^DD(356.3,.04,21,2,0)="This field is displayed as an identifier when the SI/IS category is"
^DD(356.3,.04,21,3,0)="selected."
^DD(356.3,.04,"DT")="2960314"
^DD(356.3,"B","*GENERAL OR SPECIAL UNIT",.02)=""
^DD(356.3,"B","CODE",.03)=""
^DD(356.3,"B","LEVEL OF CARE",.04)=""
^DD(356.3,"B","NAME",.01)=""
^DD(356.3,"GL",0,1,.01)=""
^DD(356.3,"GL",0,2,.02)=""
^DD(356.3,"GL",0,3,.03)=""
^DD(356.3,"GL",0,4,.04)=""
^DD(356.3,"IX",.01)=""
^DD(356.3,"IX",.03)=""
^DD(356.3,"RQ",.01)=""
^DD(356.399,0)="FIELD^^.02^2"
^DD(356.399,0,"DDA")="N"
^DD(356.399,0,"DT")="2930726"
^DD(356.399,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGCR(399,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(399,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.399,0,"IX","ACB",356.399,.02)=""
^DD(356.399,0,"IX","ACB1",356.399,.01)=""
^DD(356.399,0,"IX","B",356.399,.01)=""
^DD(356.399,0,"IX","C",356.399,.02)=""
^DD(356.399,0,"NM","CLAIMS TRACKING/BILL")=""
^DD(356.399,0,"VR")="2.0"
^DD(356.399,.01,0)="CLAIM TRACKING ID^RP356'^IBT(356,^0;1^Q"
^DD(356.399,.01,1,0)="^.1"
^DD(356.399,.01,1,1,0)="356.399^B"
^DD(356.399,.01,1,1,1)="S ^IBT(356.399,""B"",$E(X,1,30),DA)="""""
^DD(356.399,.01,1,1,2)="K ^IBT(356.399,""B"",$E(X,1,30),DA)"
^DD(356.399,.01,1,2,0)="356.399^ACB1^MUMPS"
^DD(356.399,.01,1,2,1)="S:$P(^IBT(356.399,DA,0),U,2) ^IBT(356.399,""ACB"",X,$P(^(0),U,2),DA)="""""
^DD(356.399,.01,1,2,2)="K:$P(^IBT(356.399,DA,0),U,2) ^IBT(356.399,""ACB"",X,$P(^(0),U,2),DA)"
^DD(356.399,.01,1,2,"%D",0)="^^2^2^2940213^"
^DD(356.399,.01,1,2,"%D",1,0)="Cross reference of bills and claims tracking entries.  Used to find"
^DD(356.399,.01,1,2,"%D",2,0)="all bills associated with a claims tracking entry."
^DD(356.399,.01,1,2,"DT")="2930802"
^DD(356.399,.01,3)="The Claims Tracking ID to cross-reference with Bill Numbers."
^DD(356.399,.01,21,0)="^^1^1^2931128^^^^"
^DD(356.399,.01,21,1,0)="This is the Claims Tracking entry that is associated with this bill."
^DD(356.399,.01,"DT")="2930802"
^DD(356.399,.02,0)="BILL NUMBER^RP399'^DGCR(399,^0;2^Q"
^DD(356.399,.02,1,0)="^.1"
^DD(356.399,.02,1,1,0)="356.399^ACB^MUMPS"
^DD(356.399,.02,1,1,1)="S:$P(^IBT(356.399,DA,0),U,1) ^IBT(356.399,""ACB"",+^(0),X,DA)="""""
^DD(356.399,.02,1,1,2)="K:$P(^IBT(356.399,DA,0),U,1) ^IBT(356.399,""ACB"",+^(0),X,DA)"
^DD(356.399,.02,1,1,"%D",0)="^^1^1^2930802^"
^DD(356.399,.02,1,1,"%D",1,0)="Cross-reference of claims events and bills."
^DD(356.399,.02,1,1,"DT")="2930802"
^DD(356.399,.02,1,2,0)="356.399^C"
^DD(356.399,.02,1,2,1)="S ^IBT(356.399,""C"",$E(X,1,30),DA)="""""
^DD(356.399,.02,1,2,2)="K ^IBT(356.399,""C"",$E(X,1,30),DA)"
^DD(356.399,.02,1,2,"DT")="2931029"
^DD(356.399,.02,1,3,0)="^^TRIGGER^356^.11"
^DD(356.399,.02,1,3,1)="X ^DD(356.399,.02,1,3,1.3) I X S X=DIV X ^DD(356.399,.02,1,3,89.2) S X=$P($G(^DGCR(399,+$P(Y(101),U,11),0)),U) S D0=I(0,0) S DIU=X K Y S X=DIV S X=$P(^IBT(356.399,DA,0),U,2) X ^DD(356.399,.02,1,3,1.4)"
^DD(356.399,.02,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(356.399,.02,1,3,69.2) S X=$P($G(^DGCR(399,+$P(Y(101),U,11),0)),U)="""" S D0=I(0,0)"
^DD(356.399,.02,1,3,1.4)="S DIH=$G(^IBT(356,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,11)=DIV,DIH=356,DIG=.11 D ^DICR"
^DD(356.399,.02,1,3,2)="X ^DD(356.399,.02,1,3,2.3) I X S X=DIV X ^DD(356.399,.02,1,3,89.2) S X=$P($G(^DGCR(399,+$P(Y(101),U,11),0)),U) S D0=I(0,0) S DIU=X K Y S X="""" X ^DD(356.399,.02,1,3,2.4)"
^DD(356.399,.02,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(356.399,.02,1,3,79.2) S X=$P($G(^DGCR(399,+$P(Y(101),U,11),0)),U)=$P($G(^DGCR(399,+$P(Y(1),U,2),0)),U) S D0=I(0,0)"
^DD(356.399,.02,1,3,2.4)="S DIH=$G(^IBT(356,DIV(0),0)),DIV=X I $D(^(0)) S $P(^(0),U,11)=DIV,DIH=356,DIG=.11 D ^DICR"
^DD(356.399,.02,1,3,69.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"""")"
^DD(356.399,.02,1,3,79.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^IBT(356,+D0,0)) D0=-1 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"""")"
^DD(356.399,.02,1,3,89.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^IBT(356.399,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^IBT(356,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^IBT(356,D0,0)):^(0),1:"""")"
^DD(356.399,.02,1,3,"%D",0)="^^3^3^3040614^"
^DD(356.399,.02,1,3,"%D",1,0)="Sets the events Initial Bill Number (356,.11) if that field does not"
^DD(356.399,.02,1,3,"%D",2,0)="already have a value.  Deletes the Initial Bill Number if that bill"
^DD(356.399,.02,1,3,"%D",3,0)="is being deleted from this entry."
^DD(356.399,.02,1,3,"CREATE CONDITION")="CLAIM TRACKING ID:INITIAL BILL NUMBER="""""
^DD(356.399,.02,1,3,"CREATE VALUE")="S X=$P(^IBT(356.399,DA,0),U,2)"
^DD(356.399,.02,1,3,"DELETE CONDITION")="CLAIM TRACKING ID:INITIAL BILL NUMBER=BILL NUMBER"
^DD(356.399,.02,1,3,"DELETE VALUE")="@"
^DD(356.399,.02,1,3,"DT")="3040614"
^DD(356.399,.02,1,3,"FIELD")="CLAIM TRACKING ID:INITIAL BILL NUMBER"
^DD(356.399,.02,3)="The bill number associated with this Claims Tracking ID."
^DD(356.399,.02,21,0)="^^1^1^2931128^^^"
^DD(356.399,.02,21,1,0)="This is the Bill associated with this Claims Tracking Entry."
^DD(356.399,.02,"DT")="3040614"
^DD(356.399,"B","BILL NUMBER",.02)=""
^DD(356.399,"B","CLAIM TRACKING ID",.01)=""
^DD(356.399,"GL",0,1,.01)=""
^DD(356.399,"GL",0,2,.02)=""
^DD(356.399,"IX",.01)=""
^DD(356.399,"IX",.02)=""
^DD(356.399,"RQ",.01)=""
^DD(356.399,"RQ",.02)=""
^DD(356.4,0)="FIELD^^10^5"
^DD(356.4,0,"DT")="2931029"
^DD(356.4,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(356.4,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(356.4,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(356.4,0,"IX","B",356.4,.01)=""
^DD(356.4,0,"IX","C",356.4,.02)=""
^DD(356.4,0,"IX","D",356.4,.04)=""
^DD(356.4,0,"NM","CLAIMS TRACKING NON-ACUTE CLASSIFICATIONS")=""
^DD(356.4,0,"PT",356.112,.01)=""
^DD(356.4,0,"PT",356.113,.01)=""
^DD(356.4,0,"VR")="2.0"
^DD(356.4,.01,0)="SHORT NAME^RF^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(356.4,.01,1,0)="^.1"
^DD(356.4,.01,1,1,0)="356.4^B"
^DD(356.4,.01,1,1,1)="S ^IBE(356.4,""B"",$E(X,1,30),DA)="""""
^DD(356.4,.01,1,1,2)="K ^IBE(356.4,""B"",$E(X,1,30),DA)"
^DD(356.4,.01,3)="Answer must be 3-80 characters in length."
^DD(356.4,.01,21,0)="^^2^2^2930715^^^"
^DD(356.4,.01,21,1,0)="This is the first 30-60 characters of the description of the non-acute"
^DD(356.4,.01,21,2,0)="classification."
^DD(356.4,.01,"DT")="2940201"
^DD(356.4,.02,0)="CODE^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<4)!'(X?1.2N1"".""2N) X"
^DD(356.4,.02,1,0)="^.1"
^DD(356.4,.02,1,1,0)="356.4^C"
^DD(356.4,.02,1,1,1)="S ^IBE(356.4,""C"",$E(X,1,30),DA)="""""
^DD(356.4,.02,1,1,2)="K ^IBE(356.4,""C"",$E(X,1,30),DA)"
^DD(356.4,.02,1,1,"DT")="2930715"
^DD(356.4,.02,3)="Enter the unique code for this factor in the format of nn.nn or n.nn where n is any number."
^DD(356.4,.02,21,0)="^^3^3^2940213^^^^"
^DD(356.4,.02,21,1,0)="This is the external reference number by which this data is"
^DD(356.4,.02,21,2,0)="uniquely known.  This is the value that will be transmitted "
^DD(356.4,.02,21,3,0)="in the national roll up."
^DD(356.4,.02,"DT")="2931014"
^DD(356.4,.04,0)="FACTOR^SI^1:SOCIAL FACTORS;2:ENVIRONMENTAL FACTORS;3:SCHEDULING;4:BED/SERVICE AVAILIBILITY;5:PRACTITIONER FACTOR;6:ADMINISTRATIVE;7:COMMUNICATION PROBLEMS;8:OTHER;^0;4^Q"
^DD(356.4,.04,1,0)="^.1"
^DD(356.4,.04,1,1,0)="356.4^D"
^DD(356.4,.04,1,1,1)="S ^IBE(356.4,""D"",$E(X,1,30),DA)="""""
^DD(356.4,.04,1,1,2)="K ^IBE(356.4,""D"",$E(X,1,30),DA)"
^DD(356.4,.04,1,1,"DT")="2930715"
^DD(356.4,.04,21,0)="^^1^1^2931029^^"
^DD(356.4,.04,21,1,0)="Enter the name of the factor that best describes this classification."
^DD(356.4,.04,"DT")="2931220"
^DD(356.4,.05,0)="DAY OR ADMISSION^SI^1:ADMISSION (NON-ACUTE);2:DAY(S) OF CARE (NON ACUTE);^0;5^Q"
^DD(356.4,.05,21,0)="^^2^2^2930715^"
^DD(356.4,.05,21,1,0)="Enter whether this classification for not meeting criteria is for"
^DD(356.4,.05,21,2,0)="admissions or days of care."
^DD(356.4,.05,"DT")="2931220"
^DD(356.4,10,0)="REASON^356.41^^1;0"
^DD(356.4,10,21,0)="^^1^1^2940213^"
^DD(356.4,10,21,1,0)="This is the long description of the non-acute classification."
^DD(356.4,10,"DT")="2930715"
^DD(356.4,"B","CODE",.02)=""
^DD(356.4,"B","DAY OR ADMISSION",.05)=""
^DD(356.4,"B","FACTOR",.04)=""
^DD(356.4,"B","REASON",10)=""
^DD(356.4,"B","SHORT NAME",.01)=""
^DD(356.4,"GL",0,1,.01)=""
^DD(356.4,"GL",0,2,.02)=""
^DD(356.4,"GL",0,4,.04)=""
^DD(356.4,"GL",0,5,.05)=""
^DD(356.4,"GL",1,0,10)=""
^DD(356.4,"IX",.01)=""
^DD(356.4,"IX",.02)=""
^DD(356.4,"IX",.04)=""
^DD(356.4,"RQ",.01)=""
^DD(356.4,"RQ",.02)=""
^DD(356.4,"SB",356.41,10)=""
^DD(356.41,0)="REASON SUB-FIELD^^.01^1"
^DD(356.41,0,"DT")="2930715"
^DD(356.41,0,"NM","REASON")=""
^DD(356.41,0,"UP")="356.4"
^DD(356.41,.01,0)="REASON^W^^0;1^Q"
^DD(356.41,.01,21,0)="^^1^1^2940213^"
^DD(356.41,.01,21,1,0)="This is the long description of the non-acute classification."
^DD(356.41,.01,"DT")="2930715"
^DD(356.41,"B","REASON",.01)=""
^DD(356.41,"GL",0,1,.01)=""
^DD(356.5,0)="FIELD^^.03^3"
^DD(356.5,0,"DT")="2931129"
^DD(356.5,0,"IX","ADR",356.5,.01)=""
^DD(356.5,0,"IX","ADR1",356.5,.02)=""
^DD(356.5,0,"IX","B",356.5,.01)=""
^DD(356.5,0,"NM","CLAIMS TRACKING ALOS")=""
^DD(356.5,0,"VR")="2.0"
^DD(356.5,.01,0)="DRG^RP80.2'^ICD(^0;1^Q"
^DD(356.5,.01,1,0)="^.1"
^DD(356.5,.01,1,1,0)="356.5^B"
^DD(356.5,.01,1,1,1)="S ^IBE(356.5,""B"",$E(X,1,30),DA)="""""
^DD(356.5,.01,1,1,2)="K ^IBE(356.5,""B"",$E(X,1,30),DA)"
^DD(356.5,.01,1,2,0)="356.5^ADR^MUMPS"
^DD(356.5,.01,1,2,1)="S:$P(^IBE(356.5,DA,0),U,2) ^IBE(356.5,""ADR"",X,$P(^(0),U,2),DA)="""""
^DD(356.5,.01,1,2,2)="K ^IBE(356.5,""ADR"",X,+$P(^IBE(356.5,DA,0),U,2),DA)"
^DD(356.5,.01,1,2,"%D",0)="^^1^1^2930723^"
^DD(356.5,.01,1,2,"%D",1,0)="Cross-reference of drgs by year."
^DD(356.5,.01,1,2,"DT")="2930723"
^DD(356.5,.01,3)=""
^DD(356.5,.01,21,0)="^^4^4^2940213^^"
^DD(356.5,.01,21,1,0)="This is the DRG for which you wish to enter an average length of stay"
^DD(356.5,.01,21,2,0)="that will be reflected on the review screen.  This ALOS is an alos"
^DD(356.5,.01,21,3,0)="that is used in practice by the insurance industry which is different"
^DD(356.5,.01,21,4,0)="than the ALOS generally found in DHCP files which are specific to VA care."
^DD(356.5,.01,"DT")="2931129"
^DD(356.5,.02,0)="YEAR^RDX^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) X=$E(X,1,3)_""0000"""
^DD(356.5,.02,1,0)="^.1"
^DD(356.5,.02,1,1,0)="356.5^ADR1^MUMPS"
^DD(356.5,.02,1,1,1)="S:$P(^IBE(356.5,DA,0),U) ^IBE(356.5,""ADR"",$P(^(0),U),X,DA)="""""
^DD(356.5,.02,1,1,2)="K ^IBE(356.5,""ADR"",+$P(^IBE(356.5,DA,0),U),X,DA)"
^DD(356.5,.02,1,1,"%D",0)="^^2^2^2930723^"
^DD(356.5,.02,1,1,"%D",1,0)="Cross reference of all drgs by year so that the alos for that drg for the"
^DD(356.5,.02,1,1,"%D",2,0)="correct year can be found."
^DD(356.5,.02,1,1,"DT")="2930723"
^DD(356.5,.02,3)="Enter the year for this ALOS for this DRG.  If any date other than a year is entered, only the year will be stored."
^DD(356.5,.02,21,0)="^^3^3^2930723^"
^DD(356.5,.02,21,1,0)="This is the year for which you want to enter an average lenght of stay for"
^DD(356.5,.02,21,2,0)="this DRG.  If any date in a year is entered only the year will be"
^DD(356.5,.02,21,3,0)="stored."
^DD(356.5,.02,"DT")="2930723"
^DD(356.5,.03,0)="ALOS FOR INS. PURPOSES^NJ7,2^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(356.5,.03,3)="Enter the ALOS for this DRG for this year.  Type a Number between 0 and 9999, 2 Decimal Digits"
^DD(356.5,.03,21,0)="^^4^4^2930723^"
^DD(356.5,.03,21,1,0)="Enter the average length of stay (ALOS) that you wish to be used "
^DD(356.5,.03,21,2,0)="as a base for insurance purposes.  This ALOS will be displayed on"
^DD(356.5,.03,21,3,0)="the expanded review screen for associated DRG's.  Generally this"
^DD(356.5,.03,21,4,0)="information will be from HCFA or the insurance industry."
^DD(356.5,.03,"DT")="2930723"
^DD(356.5,"B","ALOS FOR INS. PURPOSES",.03)=""
^DD(356.5,"B","DRG",.01)=""
^DD(356.5,"B","YEAR",.02)=""
^DD(356.5,"GL",0,1,.01)=""
^DD(356.5,"GL",0,2,.02)=""
^DD(356.5,"GL",0,3,.03)=""
^DD(356.5,"IX",.01)=""
^DD(356.5,"IX",.02)=""
^DD(356.5,"RQ",.01)=""
^DD(356.5,"RQ",.02)=""
^DD(356.6,0)="FIELD^^.08^7"
^DD(356.6,0,"DT")="2940309"
^DD(356.6,0,"IX","AC",356.6,.08)=""
^DD(356.6,0,"IX","ACODE",356.6,.03)=""
^DD(356.6,0,"IX","B",356.6,.01)=""
^DD(356.6,0,"NM","CLAIMS TRACKING TYPE")=""
^DD(356.6,0,"PT",356,.18)=""
^DD(356.6,0,"VR")="2.0"
^DD(356.6,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(356.6,.01,1,0)="^.1"
^DD(356.6,.01,1,1,0)="356.6^B"
^DD(356.6,.01,1,1,1)="S ^IBE(356.6,""B"",$E(X,1,30),DA)="""""
^DD(356.6,.01,1,1,2)="K ^IBE(356.6,""B"",$E(X,1,30),DA)"
^DD(356.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(356.6,.01,21,0)="^^6^6^2940213^^^^"
^DD(356.6,.01,21,1,0)="This is the name of the type of event that can be stored in Claims Tracking."
^DD(356.6,.01,21,2,0)="Only certain types of events or visits are known to Claims Tracking.  Adding"
^DD(356.6,.01,21,3,0)="or deleting entries can have unwanted effects on the IB package.  Currently"
^DD(356.6,.01,21,4,0)="only inpatient, outpatient, prosthetics, and Rx Refill visits are known "
^DD(356.6,.01,21,5,0)="to IB.  Future plans call for adding Fee Basis visits.  This is limited"
^DD(356.6,.01,21,6,0)="to those areas that we currently have legislative authority to bill."
^DD(356.6,.01,"DT")="2930803"
^DD(356.6,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>8!($L(X)<3) X"
^DD(356.6,.02,3)="Answer must be 3-8 characters in length."
^DD(356.6,.02,21,0)="^^2^2^2931128^"
^DD(356.6,.02,21,1,0)="Enter the 3-8 character abbreviation for this entry that will be used "
^DD(356.6,.02,21,2,0)="on display screens and outputs."
^DD(356.6,.02,"DT")="2930628"
^DD(356.6,.03,0)="TYPE CODE^SI^1:INPATIENT CARE;2:OUTPATIENT CARE;3:RX REFILL;4:PROSTHETICS;^0;3^Q"
^DD(356.6,.03,1,0)="^.1"
^DD(356.6,.03,1,1,0)="356.6^ACODE"
^DD(356.6,.03,1,1,1)="S ^IBE(356.6,""ACODE"",$E(X,1,30),DA)="""""
^DD(356.6,.03,1,1,2)="K ^IBE(356.6,""ACODE"",$E(X,1,30),DA)"
^DD(356.6,.03,1,1,"DT")="2930813"
^DD(356.6,.03,21,0)="^^2^2^2940202^^"
^DD(356.6,.03,21,1,0)="Enter the correct type code for this entry.  This type code is used"
^DD(356.6,.03,21,2,0)="internally by the Claims Tracking Module.  Do not edit this field."
^DD(356.6,.03,"DT")="2930813"
^DD(356.6,.04,0)="AUTOMATE BILLING^S^1:YES;^0;4^Q"
^DD(356.6,.04,3)="Enter ""YES"" if this type of entry can be automatically billed."
^DD(356.6,.04,21,0)="^^5^5^2931021^^^^"
^DD(356.6,.04,21,1,0)="This will control the automated creation of bills for each type of care."
^DD(356.6,.04,21,2,0)=" "
^DD(356.6,.04,21,3,0)="If this is ""Y""es then the Earliest Auto Bill date will be automatically"
^DD(356.6,.04,21,4,0)="added to billable events.  These events can then be added to bills by"
^DD(356.6,.04,21,5,0)="the automated biller."
^DD(356.6,.04,"DT")="2930802"
^DD(356.6,.05,0)="BILLING CYCLE^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.6,.05,3)="Type a Number between 1 and 9999, 0 Decimal Digits.  Enter the number of days in the billing cycle for this type of claim."
^DD(356.6,.05,21,0)="^^9^9^2931021^^^^"
^DD(356.6,.05,21,1,0)="This is the maximum number of days allowed on a single bill for this type"
^DD(356.6,.05,21,2,0)="of care."
^DD(356.6,.05,21,3,0)=" "
^DD(356.6,.05,21,4,0)="For example, if outpatient bills have a billing cycle of 7 days then"
^DD(356.6,.05,21,5,0)="one bill will be created for a seven day period, which may contain 1"
^DD(356.6,.05,21,6,0)="visit or seven."
^DD(356.6,.05,21,7,0)=" "
^DD(356.6,.05,21,8,0)="If this is left blank and the event type can be automatically billed then"
^DD(356.6,.05,21,9,0)="the bills will be created in one month intervals."
^DD(356.6,.05,"DT")="2930802"
^DD(356.6,.06,0)="DAYS DELAY^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.6,.06,3)="Type a Number between 1 and 99, 0 Decimal Digits.  Enter the number of days after a billing cycle completes that the Automated Biller should run."
^DD(356.6,.06,21,0)="^^6^6^2931021^^"
^DD(356.6,.06,21,1,0)="This is the minimum number of days delay that apparently billable "
^DD(356.6,.06,21,2,0)="visits (for this type of event type) should wait for auto billing."
^DD(356.6,.06,21,3,0)=" "
^DD(356.6,.06,21,4,0)="This field works in conjunction with the field BILLING CYCLE to "
^DD(356.6,.06,21,5,0)="determine what visits are included on a bill and when those bills can"
^DD(356.6,.06,21,6,0)="be created."
^DD(356.6,.06,"DT")="2930802"
^DD(356.6,.08,0)="ENTRY CODE^NJ2,0I^^0;8^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.6,.08,1,0)="^.1"
^DD(356.6,.08,1,1,0)="356.6^AC"
^DD(356.6,.08,1,1,1)="S ^IBE(356.6,""AC"",$E(X,1,30),DA)="""""
^DD(356.6,.08,1,1,2)="K ^IBE(356.6,""AC"",$E(X,1,30),DA)"
^DD(356.6,.08,1,1,"DT")="2940223"
^DD(356.6,.08,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(356.6,.08,21,0)="^^3^3^2940202^"
^DD(356.6,.08,21,1,0)="This field is designed to be used internally by the claims tracking module"
^DD(356.6,.08,21,2,0)="to uniquely identify an entry.  This number will intially be the same as"
^DD(356.6,.08,21,3,0)="the internal entry number.  It should not be edited."
^DD(356.6,.08,"DT")="2940309"
^DD(356.6,"B","ABBREVIATION",.02)=""
^DD(356.6,"B","AUTOMATE BILLING",.04)=""
^DD(356.6,"B","BILLING CYCLE",.05)=""
^DD(356.6,"B","DAYS DELAY",.06)=""
^DD(356.6,"B","ENTRY CODE",.08)=""
^DD(356.6,"B","NAME",.01)=""
^DD(356.6,"B","TYPE CODE",.03)=""
^DD(356.6,"GL",0,1,.01)=""
^DD(356.6,"GL",0,2,.02)=""
^DD(356.6,"GL",0,3,.03)=""
^DD(356.6,"GL",0,4,.04)=""
^DD(356.6,"GL",0,5,.05)=""
^DD(356.6,"GL",0,6,.06)=""
^DD(356.6,"GL",0,8,.08)=""
^DD(356.6,"IX",.01)=""
^DD(356.6,"IX",.03)=""
^DD(356.6,"IX",.08)=""
^DD(356.6,"RQ",.01)=""
^DD(356.7,0)="FIELD^^.03^3"
^DD(356.7,0,"DDA")="N"
^DD(356.7,0,"DT")="2930728"
^DD(356.7,0,"IX","ACODE",356.7,.03)=""
^DD(356.7,0,"IX","B",356.7,.01)=""
^DD(356.7,0,"NM","CLAIMS TRACKING ACTION")=""
^DD(356.7,0,"PT",356.2,.11)=""
^DD(356.7,0,"VR")="2.0"
^DD(356.7,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.7,.001,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(356.7,.001,21,0)="^^1^1^2931128^"
^DD(356.7,.001,21,1,0)="This is the number of the Action.  It is used for look-up purposes."
^DD(356.7,.001,"DT")="2930610"
^DD(356.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(356.7,.01,1,0)="^.1"
^DD(356.7,.01,1,1,0)="356.7^B"
^DD(356.7,.01,1,1,1)="S ^IBE(356.7,""B"",$E(X,1,30),DA)="""""
^DD(356.7,.01,1,1,2)="K ^IBE(356.7,""B"",$E(X,1,30),DA)"
^DD(356.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(356.7,.01,21,0)="^^3^3^2940213^^"
^DD(356.7,.01,21,1,0)="This is the name of the action that can be taken by an insurance "
^DD(356.7,.01,21,2,0)="company on a review or contact.  Do not locally add, edit, or delete"
^DD(356.7,.01,21,3,0)="entries from this file."
^DD(356.7,.03,0)="CODE^NJ3,0I^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.7,.03,1,0)="^.1"
^DD(356.7,.03,1,1,0)="356.7^ACODE"
^DD(356.7,.03,1,1,1)="S ^IBE(356.7,""ACODE"",$E(X,1,30),DA)="""""
^DD(356.7,.03,1,1,2)="K ^IBE(356.7,""ACODE"",$E(X,1,30),DA)"
^DD(356.7,.03,1,1,"DT")="2930811"
^DD(356.7,.03,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(356.7,.03,21,0)="^^3^3^2931128^"
^DD(356.7,.03,21,1,0)="This is the code for this type of action entry.  This number is used"
^DD(356.7,.03,21,2,0)="internally by the Claims Tracking module and should not be modified "
^DD(356.7,.03,21,3,0)="locally."
^DD(356.7,.03,"DT")="2931128"
^DD(356.7,"B","CODE",.03)=""
^DD(356.7,"B","NAME",.01)=""
^DD(356.7,"B","NUMBER",.001)=""
^DD(356.7,"GL",0,1,.01)=""
^DD(356.7,"GL",0,3,.03)=""
^DD(356.7,"IX",.01)=""
^DD(356.7,"IX",.03)=""
^DD(356.7,"RQ",.01)=""
^DD(356.8,0)="FIELD^^.01^4"
^DD(356.8,0,"DDA")="N"
^DD(356.8,0,"DT")="2930930"
^DD(356.8,0,"IX","B",356.8,.01)=""
^DD(356.8,0,"NM","CLAIMS TRACKING NON-BILLABLE REASONS")=""
^DD(356.8,0,"PT",356,.19)=""
^DD(356.8,0,"PT",366.141,.307)=""
^DD(356.8,0,"PT",9002313.02,904)=""
^DD(356.8,0,"VR")="2.0"
^DD(356.8,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(356.8,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(356.8,.001,21,0)="^^2^2^2931128^"
^DD(356.8,.001,21,1,0)="This is the number of the reason not billable.  It is used for look-up"
^DD(356.8,.001,21,2,0)="purposes only."
^DD(356.8,.001,"DT")="2930930"
^DD(356.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(356.8,.01,1,0)="^.1"
^DD(356.8,.01,1,1,0)="356.8^B"
^DD(356.8,.01,1,1,1)="S ^IBE(356.8,""B"",$E(X,1,30),DA)="""""
^DD(356.8,.01,1,1,2)="K ^IBE(356.8,""B"",$E(X,1,30),DA)"
^DD(356.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(356.8,.01,21,0)="^^5^5^2940213^^^^"
^DD(356.8,.01,21,1,0)="Enter the name of the reason that a visit is not billable.  This is the name"
^DD(356.8,.01,21,2,0)="that will appear on displays and outputs.  If a claims tracking entry is "
^DD(356.8,.01,21,3,0)="assigned a reaon not billable then it will be considered to not be "
^DD(356.8,.01,21,4,0)="billable.  Users may select whether visits that have a reason not billable"
^DD(356.8,.01,21,5,0)="assigned should appear on the patients with visits and insurance reports."
^DD(356.8,.02,0)="ECME FLAG^S^0:NO;1:YES;^0;2^Q"
^DD(356.8,.02,3)="Enter 'Yes' if the record may be used as ECME Close Claim Reason."
^DD(356.8,.02,21,0)="^^3^3^3050224^"
^DD(356.8,.02,21,1,0)="This field is flagging the record to be used as ECME CLOSE CLAIM REASON. "
^DD(356.8,.02,21,2,0)="The default value is 'NO'. If the field is set to 'YES' the NON-BILLABLE "
^DD(356.8,.02,21,3,0)="REASON will appear as an option in the ECME CLOSE CLAIM SCREEN."
^DD(356.8,.02,"DT")="3050224"
^DD(356.8,.03,0)="ECME PAPER FLAG^S^0:NO;1:YES;^0;3^Q"
^DD(356.8,.03,3)="Enter 'YES' if the closed ECME claim may be paper-billable."
^DD(356.8,.03,21,0)="^^7^7^3050224^"
^DD(356.8,.03,21,1,0)="This flag is related to NON-BILLABLE REASONs that are marked with "
^DD(356.8,.03,21,2,0)="ECME FLAG to be used as ECME CLOSE CLAIM REASON. If this field"
^DD(356.8,.03,21,3,0)="'ECME PAPER FLAG' is set to 'YES', it indicates that the NON BILLABLE"
^DD(356.8,.03,21,4,0)="REASON may be potentially billable ""on paper"". When the ECME user (OPECC)"
^DD(356.8,.03,21,5,0)="is closing the e-Pharmacy claim and enters the NON BILLABLE REASON as a"
^DD(356.8,.03,21,6,0)="CLOSE CLAIM REASON, the additional prompt will be issued to the user -"
^DD(356.8,.03,21,7,0)="should the claim be billed ""on paper""?"
^DD(356.8,.03,"DT")="3050224"
^DD(356.8,"B","ECME FLAG",.02)=""
^DD(356.8,"B","ECME PAPER FLAG",.03)=""
^DD(356.8,"B","NAME",.01)=""
^DD(356.8,"B","NUMBER",.001)=""
^DD(356.8,"GL",0,1,.01)=""
^DD(356.8,"GL",0,2,.02)=""
^DD(356.8,"GL",0,3,.03)=""
^DD(356.8,"IX",.01)=""
^DD(356.8,"RQ",.01)=""
^DD(356.85,0)="FIELD^^.01^2"
^DD(356.85,0,"IX","B",356.85,.01)=""
^DD(356.85,0,"NM","CLAIMS TRACKING BILLABLE FINDINGS")=""
^DD(356.85,0,"PT",356.03,.01)=""
^DD(356.85,0,"VR")="2.0"
^DD(356.85,0,"VRPK")="IB"
^DD(356.85,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(356.85,.001,3)="This is the IEN for the entry in this file."
^DD(356.85,.001,21,0)="^^2^2^3050510^"
^DD(356.85,.001,21,1,0)="This is the internal values of the entries in this file to assist in"
^DD(356.85,.001,21,2,0)="user selection."
^DD(356.85,.001,"DT")="3050510"
^DD(356.85,.01,0)="BILLABLE FINDING^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(356.85,.01,1,0)="^.1"
^DD(356.85,.01,1,1,0)="356.85^B"
^DD(356.85,.01,1,1,1)="S ^IBT(356.85,""B"",$E(X,1,30),DA)="""""
^DD(356.85,.01,1,1,2)="K ^IBT(356.85,""B"",$E(X,1,30),DA)"
^DD(356.85,.01,3)="Enter the Billable Finding code."
^DD(356.85,.01,21,0)="^^1^1^3050510^"
^DD(356.85,.01,21,1,0)="This is the Claims Tracking Billable Finding(s) code.  These codes are selected and sorted within each CT event for coding adjustments."
^DD(356.85,.01,"DT")="3050510"
^DD(356.85,"B","BILLABLE FINDING",.01)=""
^DD(356.85,"B","NUMBER",.001)=""
^DD(356.85,"GL",0,1,.01)=""
^DD(356.85,"IX",.01)=""
^DD(356.85,"RQ",.01)=""
^DD(356.9,0)="FIELD^^.04^4"
^DD(356.9,0,"DT")="2930901"
^DD(356.9,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(356.9,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(356.9,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(356.9,0,"ID","WRITE")="N Y S Y=$G(^(0)) W ""   "",$P($G(^DPT(+$P($G(^DGPM(+$P(Y,U,2),0)),U,3),0)),U)"
^DD(356.9,0,"IX","ADG",356.9,.01)=""
^DD(356.9,0,"IX","ADG1",356.9,.02)=""
^DD(356.9,0,"IX","ADG2",356.9,.04)=""
^DD(356.9,0,"IX","ADGPM",356.9,.01)=""
^DD(356.9,0,"IX","ADGPM1",356.9,.02)=""
^DD(356.9,0,"IX","APD",356.9,.02)=""
^DD(356.9,0,"IX","APD1",356.9,.03)=""
^DD(356.9,0,"IX","ATP",356.9,.04)=""
^DD(356.9,0,"IX","ATP1",356.9,.02)=""
^DD(356.9,0,"IX","B",356.9,.01)=""
^DD(356.9,0,"IX","C",356.9,.02)=""
^DD(356.9,0,"IX","D",356.9,.03)=""
^DD(356.9,0,"NM","INPATIENT DIAGNOSIS")=""
^DD(356.9,0,"PT",356,.3)=""
^DD(356.9,0,"VR")="2.0"
^DD(356.9,.01,0)="DIAGNOSIS^R*P80'^ICD9(^0;1^S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,$P($G(^IBT(356.9,+$G(DA),0)),U,3))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(356.9,.01,1,0)="^.1"
^DD(356.9,.01,1,1,0)="356.9^B"
^DD(356.9,.01,1,1,1)="S ^IBT(356.9,""B"",$E(X,1,30),DA)="""""
^DD(356.9,.01,1,1,2)="K ^IBT(356.9,""B"",$E(X,1,30),DA)"
^DD(356.9,.01,1,2,0)="356.9^ADG^MUMPS"
^DD(356.9,.01,1,2,1)="S:$P(^IBT(356.9,DA,0),U,4)=3&($P(^(0),U,2)) ^IBT(356.9,""ADG"",+$P(^(0),U,2),X,DA)="""""
^DD(356.9,.01,1,2,2)="K ^IBT(356.9,""ADG"",+$P(^IBT(356.9,DA,0),U,2),X,DA)"
^DD(356.9,.01,1,2,"%D",0)="^^1^1^2930901^"
^DD(356.9,.01,1,2,"%D",1,0)="Cross-reference of admitting diagnosis by admission movement."
^DD(356.9,.01,1,2,"DT")="2930901"
^DD(356.9,.01,1,3,0)="356.9^ADGPM^MUMPS"
^DD(356.9,.01,1,3,1)="S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,""ADGPM"",+$P(^(0),U,2),X,DA)="""""
^DD(356.9,.01,1,3,2)="K ^IBT(356.9,""ADGPM"",+$P(^IBT(356.9,DA,0),U,2),X,DA)"
^DD(356.9,.01,1,3,"%D",0)="^^1^1^2930901^"
^DD(356.9,.01,1,3,"%D",1,0)="Cross-reference of all diagnosis by admission movement"
^DD(356.9,.01,1,3,"DT")="2930901"
^DD(356.9,.01,3)=""
^DD(356.9,.01,12)="Only active diagnosis codes may be selected."
^DD(356.9,.01,12.1)="S DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,$P($G(^IBT(356.9,+$G(DA),0)),U,3))"""
^DD(356.9,.01,21,0)="^^1^1^2930720^^^^"
^DD(356.9,.01,21,1,0)="This is the diagnosis for this patient for this episode of care."
^DD(356.9,.01,"DT")="3030421"
^DD(356.9,.02,0)="ADMISSION MOVEMENT^*P405'^DGPM(^0;2^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.9,.02,1,0)="^.1"
^DD(356.9,.02,1,1,0)="356.9^C"
^DD(356.9,.02,1,1,1)="S ^IBT(356.9,""C"",$E(X,1,30),DA)="""""
^DD(356.9,.02,1,1,2)="K ^IBT(356.9,""C"",$E(X,1,30),DA)"
^DD(356.9,.02,1,1,"DT")="2930713"
^DD(356.9,.02,1,2,0)="356.9^APD^MUMPS"
^DD(356.9,.02,1,2,1)="S:$P(^IBT(356.9,DA,0),U,3) ^IBT(356.9,""APD"",X,-$P(^(0),U,3),DA)="""""
^DD(356.9,.02,1,2,2)="K ^IBT(356.9,""APD"",X,-$P(^IBT(356.9,DA,0),U,3),DA)"
^DD(356.9,.02,1,2,"%D",0)="^^1^1^2940213^^^^"
^DD(356.9,.02,1,2,"%D",1,0)="cross reference of all diagnoses by tracking id and inverse date"
^DD(356.9,.02,1,2,"DT")="2930713"
^DD(356.9,.02,1,3,0)="356.9^ATP1^MUMPS"
^DD(356.9,.02,1,3,1)="S:$P(^IBT(356.9,DA,0),U,4) ^IBT(356.9,""ATP"",X,$P(^(0),U,4),DA)="""""
^DD(356.9,.02,1,3,2)="K ^IBT(356.9,""ATP"",X,+$P(^IBT(356.9,DA,0),U,4),DA)"
^DD(356.9,.02,1,3,"%D",0)="^^2^2^2930720^"
^DD(356.9,.02,1,3,"%D",1,0)="Cross reference of primary diagnosis for a tracking entry so only one"
^DD(356.9,.02,1,3,"%D",2,0)="diagnosis can be primary"
^DD(356.9,.02,1,3,"DT")="2930720"
^DD(356.9,.02,1,4,0)="356.9^ADG1^MUMPS"
^DD(356.9,.02,1,4,1)="S:$P(^IBT(356.9,DA,0),U,4)=3&(+^(0)) ^IBT(356.9,""ADG"",X,+^(0),DA)="""""
^DD(356.9,.02,1,4,2)="K ^IBT(356.9,""ADG"",X,+^IBT(356.9,DA,0),DA)"
^DD(356.9,.02,1,4,"%D",0)="^^1^1^2930901^"
^DD(356.9,.02,1,4,"%D",1,0)="Cross-reference of admitting diagnosis by admission movement."
^DD(356.9,.02,1,4,"DT")="2930901"
^DD(356.9,.02,1,5,0)="356.9^ADGPM1^MUMPS"
^DD(356.9,.02,1,5,1)="S:+^IBT(356.9,DA,0) ^IBT(356.9,""ADGPM"",X,+^(0),DA)="""""
^DD(356.9,.02,1,5,2)="K ^IBT(356.9,""ADGPM"",X,+^IBT(356.9,DA,0),DA)"
^DD(356.9,.02,1,5,"%D",0)="^^1^1^2940213^^"
^DD(356.9,.02,1,5,"%D",1,0)="Cross-reference of all diagnoses by admission movement."
^DD(356.9,.02,1,5,"DT")="2930901"
^DD(356.9,.02,12)="Must be an admission movement"
^DD(356.9,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356.9,.02,21,0)="^^3^3^2940213^^^"
^DD(356.9,.02,21,1,0)="This field should point to the admission movement of the inpatient episode"
^DD(356.9,.02,21,2,0)="that this diagnosis is for.  For ASIH movements it should point to"
^DD(356.9,.02,21,3,0)="the admission in the acute setting."
^DD(356.9,.02,"DT")="2930901"
^DD(356.9,.03,0)="ONSET DATE THIS VISIT^RDX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X K:$G(X)+.9<+$G(^DGPM(+$P(^IBT(356.9,DA,0),U,2),0)) X"
^DD(356.9,.03,1,0)="^.1"
^DD(356.9,.03,1,1,0)="356.9^D"
^DD(356.9,.03,1,1,1)="S ^IBT(356.9,""D"",$E(X,1,30),DA)="""""
^DD(356.9,.03,1,1,2)="K ^IBT(356.9,""D"",$E(X,1,30),DA)"
^DD(356.9,.03,1,1,"DT")="2930713"
^DD(356.9,.03,1,2,0)="356.9^APD1^MUMPS"
^DD(356.9,.03,1,2,1)="S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,""APD"",+$P(^(0),U,2),-X,DA)="""""
^DD(356.9,.03,1,2,2)="K ^IBT(356,""APD"",+$P(^IBT(356.9,DA,0),U,2),-X,DA)"
^DD(356.9,.03,1,2,"%D",0)="^^1^1^2940213^^^^"
^DD(356.9,.03,1,2,"%D",1,0)="cross reference of all diagnoses by tracking id and inverse date."
^DD(356.9,.03,1,2,"DT")="2930901"
^DD(356.9,.03,3)="Dates must be during the admission."
^DD(356.9,.03,21,0)="^^4^4^2930825^^^^"
^DD(356.9,.03,21,1,0)="This is the date of the onset of this diagnosis for this episode of care."
^DD(356.9,.03,21,2,0)="If the diagnosis is for an admission then the date of onset should be"
^DD(356.9,.03,21,3,0)="within the dates of admission and discharge.  If the diagnosis is for an"
^DD(356.9,.03,21,4,0)="outpatient visit then the date of onset should be the visit date."
^DD(356.9,.03,"DT")="2930902"
^DD(356.9,.04,0)="TYPE^*S^1:PRIMARY;2:SECONDARY;3:ADMITTING;^0;4^Q"
^DD(356.9,.04,1,0)="^.1"
^DD(356.9,.04,1,1,0)="356.9^ATP^MUMPS"
^DD(356.9,.04,1,1,1)="S:$P(^IBT(356.9,DA,0),U,2) ^IBT(356.9,""ATP"",$P(^(0),U,2),X,DA)="""""
^DD(356.9,.04,1,1,2)="K ^IBT(356.9,""ATP"",+$P(^IBT(356.9,DA,0),U,2),X,DA)"
^DD(356.9,.04,1,1,"%D",0)="^^2^2^2930720^"
^DD(356.9,.04,1,1,"%D",1,0)="Cross reference of primary diagnosis for a tracking entry so only one"
^DD(356.9,.04,1,1,"%D",2,0)="diagnosis can be primary at a time."
^DD(356.9,.04,1,1,"DT")="2930720"
^DD(356.9,.04,1,2,0)="356.9^ADG2^MUMPS"
^DD(356.9,.04,1,2,1)="S:X=3&($P(^IBT(356.9,DA,0),U,2))&(+^(0)) ^IBT(356.9,""ADG"",+$P(^(0),U,2),+^(0),DA)="""""
^DD(356.9,.04,1,2,2)="K ^IBT(356.9,""ADG"",+$P(^IBT(356.9,DA,0),U,2),+^(0),DA)"
^DD(356.9,.04,1,2,"%D",0)="^^1^1^2930901^"
^DD(356.9,.04,1,2,"%D",1,0)="Cross-reference of admitting diagnosis by admission movement."
^DD(356.9,.04,1,2,"DT")="2930901"
^DD(356.9,.04,12)="Only one diagnosis can be primary or admitting diagnosis for an admission."
^DD(356.9,.04,12.1)="S DIC(""S"")=""I $$DICS^IBTRED1(Y)"""
^DD(356.9,.04,21,0)="^^3^3^2930901^^"
^DD(356.9,.04,21,1,0)="Enter 'PRIMARY' if this is the primary diagnosis for this date, enter"
^DD(356.9,.04,21,2,0)="'SECONDARY' if this is not the primary diagnosis for this date."
^DD(356.9,.04,21,3,0)="Enter ""ADMITTING"" if this is the admitting diagnosis."
^DD(356.9,.04,"DT")="2930901"
^DD(356.9,"B","ADMISSION MOVEMENT",.02)=""
^DD(356.9,"B","DIAGNOSIS",.01)=""
^DD(356.9,"B","ONSET DATE THIS VISIT",.03)=""
^DD(356.9,"B","TYPE",.04)=""
^DD(356.9,"GL",0,1,.01)=""
^DD(356.9,"GL",0,2,.02)=""
^DD(356.9,"GL",0,3,.03)=""
^DD(356.9,"GL",0,4,.04)=""
^DD(356.9,"IX",.01)=""
^DD(356.9,"IX",.02)=""
^DD(356.9,"IX",.03)=""
^DD(356.9,"IX",.04)=""
^DD(356.9,"RQ",.01)=""
^DD(356.9,"RQ",.03)=""
^DD(356.91,0)="FIELD^^.03^3"
^DD(356.91,0,"DT")="2930901"
^DD(356.91,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(356.91,0,"ID","WRITE")="N Y S Y=$G(^(0)) W ""   "",$P($G(^DPT(+$P($G(^DGPM(+$P(Y,U,2),0)),U,3),0)),U)"
^DD(356.91,0,"IX","ADGPM",356.91,.01)=""
^DD(356.91,0,"IX","ADGPM1",356.91,.02)=""
^DD(356.91,0,"IX","APP",356.91,.02)=""
^DD(356.91,0,"IX","APP1",356.91,.03)=""
^DD(356.91,0,"IX","B",356.91,.01)=""
^DD(356.91,0,"IX","C",356.91,.02)=""
^DD(356.91,0,"IX","D",356.91,.03)=""
^DD(356.91,0,"NM","INPATIENT PROCEDURE")=""
^DD(356.91,0,"VR")="2.0"
^DD(356.91,.01,0)="PROCEDURE^R*P80.1'^ICD0(^0;1^S DIC(""S"")=""I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$G(DA),0)),U,3))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(356.91,.01,1,0)="^.1"
^DD(356.91,.01,1,1,0)="356.91^B"
^DD(356.91,.01,1,1,1)="S ^IBT(356.91,""B"",$E(X,1,30),DA)="""""
^DD(356.91,.01,1,1,2)="K ^IBT(356.91,""B"",$E(X,1,30),DA)"
^DD(356.91,.01,1,2,0)="356.91^ADGPM^MUMPS"
^DD(356.91,.01,1,2,1)="S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,""ADGPM"",+$P(^(0),U,2),X,DA)="""""
^DD(356.91,.01,1,2,2)="K ^IBT(356.91,+$P(^IBT(356.91,DA,0),U,2),X,DA)"
^DD(356.91,.01,1,2,"%D",0)="^^1^1^2940506^^"
^DD(356.91,.01,1,2,"%D",1,0)="Cross-reference of procedures by patient movement"
^DD(356.91,.01,1,2,"DT")="2930901"
^DD(356.91,.01,3)=""
^DD(356.91,.01,12)="Only active operation/procedure codes may be selected."
^DD(356.91,.01,12.1)="S DIC(""S"")=""I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$G(DA),0)),U,3))"""
^DD(356.91,.01,21,0)="^^1^1^2930713^^"
^DD(356.91,.01,21,1,0)="This is the procedure for this patient."
^DD(356.91,.01,"DT")="3030421"
^DD(356.91,.02,0)="ADMISSION MOVEMENT^*P405'^DGPM(^0;2^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.91,.02,1,0)="^.1"
^DD(356.91,.02,1,1,0)="356.91^C"
^DD(356.91,.02,1,1,1)="S ^IBT(356.91,""C"",$E(X,1,30),DA)="""""
^DD(356.91,.02,1,1,2)="K ^IBT(356.91,""C"",$E(X,1,30),DA)"
^DD(356.91,.02,1,1,"DT")="2930713"
^DD(356.91,.02,1,2,0)="356.91^APP^MUMPS"
^DD(356.91,.02,1,2,1)="S:$P(^IBT(356.91,DA,0),U,3) ^IBT(356.91,""APP"",X,-$P(^(0),U,3),DA)="""""
^DD(356.91,.02,1,2,2)="K ^IBT(356.91,""APP"",X,-$P(^IBT(356.91,DA,0),U,3),DA)"
^DD(356.91,.02,1,2,"%D",0)="^^1^1^2930713^^"
^DD(356.91,.02,1,2,"%D",1,0)="Cross reference of all procedures by  tracking ID and procedure date."
^DD(356.91,.02,1,2,"DT")="2930713"
^DD(356.91,.02,1,3,0)="356.91^ADGPM1^MUMPS"
^DD(356.91,.02,1,3,1)="S:+^IBT(356.91,DA,0) ^IBT(356.91,""ADGPM"",X,+^(0),DA)="""""
^DD(356.91,.02,1,3,2)="K ^IBT(356.91,""ADGPM"",X,+^IBT(356.91,DA,0),DA)"
^DD(356.91,.02,1,3,"%D",0)="^^1^1^2930901^"
^DD(356.91,.02,1,3,"%D",1,0)="Cross-reference of all procedures by patient movement"
^DD(356.91,.02,1,3,"DT")="2930901"
^DD(356.91,.02,12)="Must be an admission movement"
^DD(356.91,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356.91,.02,21,0)="^^1^1^2930901^^^"
^DD(356.91,.02,21,1,0)="This is the pointer to the admission movement that this is associated with."
^DD(356.91,.02,"DT")="2930901"
^DD(356.91,.03,0)="PROCEDURE DATE^RDX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X K:$G(X)+.9<+$G(^DGPM(+$P(^IBT(356.91,DA,0),U,2),0)) X"
^DD(356.91,.03,1,0)="^.1"
^DD(356.91,.03,1,1,0)="356.91^D"
^DD(356.91,.03,1,1,1)="S ^IBT(356.91,""D"",$E(X,1,30),DA)="""""
^DD(356.91,.03,1,1,2)="K ^IBT(356.91,""D"",$E(X,1,30),DA)"
^DD(356.91,.03,1,1,"DT")="2930713"
^DD(356.91,.03,1,2,0)="356.91^APP1^MUMPS"
^DD(356.91,.03,1,2,1)="S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,""APP"",$P(^(0),U,2),-X,DA)="""""
^DD(356.91,.03,1,2,2)="K ^IBT(356.91,""APP"",+$P(^IBT(356.91,DA,0),U,2),-X,DA)"
^DD(356.91,.03,1,2,"%D",0)="^^1^1^2930713^"
^DD(356.91,.03,1,2,"%D",1,0)="Cross reference of all procedures by  tracking ID and procedure date."
^DD(356.91,.03,1,2,"DT")="2930713"
^DD(356.91,.03,3)="Dates must be during admission."
^DD(356.91,.03,21,0)="^^1^1^2930713^^"
^DD(356.91,.03,21,1,0)="This is the date that the procedure was performed."
^DD(356.91,.03,"DT")="2930902"
^DD(356.91,"B","ADMISSION MOVEMENT",.02)=""
^DD(356.91,"B","PROCEDURE",.01)=""
^DD(356.91,"B","PROCEDURE DATE",.03)=""
^DD(356.91,"GL",0,1,.01)=""
^DD(356.91,"GL",0,2,.02)=""
^DD(356.91,"GL",0,3,.03)=""
^DD(356.91,"IX",.01)=""
^DD(356.91,"IX",.02)=""
^DD(356.91,"IX",.03)=""
^DD(356.91,"RQ",.01)=""
^DD(356.91,"RQ",.03)=""
^DD(356.93,0)="FIELD^^.05^5"
^DD(356.93,0,"DDA")="N"
^DD(356.93,0,"DT")="2931213"
^DD(356.93,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGPM(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(405,.01,0),U,2) D Y^DIQ:Y]"""" W ""   Admission Date: "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.93,0,"ID",.03)="W ""   Computed: "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(356.93,0,"ID","WRITE")="N Y S Y=$G(^(0)) W ""   "",$P($G(^DPT(+$P($G(^DGPM(+$P(Y,U,2),0)),U,3),0)),U)"
^DD(356.93,0,"IX","AC",356.93,.04)=""
^DD(356.93,0,"IX","AMVD",356.93,.02)=""
^DD(356.93,0,"IX","AMVD1",356.93,.03)=""
^DD(356.93,0,"IX","B",356.93,.01)=""
^DD(356.93,0,"NM","INPATIENT INTERIM DRG")=""
^DD(356.93,0,"VR")="2.0"
^DD(356.93,.01,0)="NAME^R*P80.2'^ICD(^0;1^S DIC(""S"")=""I $$DRGACT^IBACSV(+Y,$P(+$G(^DGPM(+$P($G(^IBT(356.93,+$G(DA),0)),U,2),0)),"""".""""))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(356.93,.01,1,0)="^.1"
^DD(356.93,.01,1,1,0)="356.93^B"
^DD(356.93,.01,1,1,1)="S ^IBT(356.93,""B"",$E(X,1,30),DA)="""""
^DD(356.93,.01,1,1,2)="K ^IBT(356.93,""B"",$E(X,1,30),DA)"
^DD(356.93,.01,3)=""
^DD(356.93,.01,12)="Only codes active for the admission date may be selected."
^DD(356.93,.01,12.1)="S DIC(""S"")=""I $$DRGACT^IBACSV(+Y,$P(+$G(^DGPM(+$P($G(^IBT(356.93,+$G(DA),0)),U,2),0)),"""".""""))"""
^DD(356.93,.01,21,0)="^^1^1^2931129^"
^DD(356.93,.01,21,1,0)="Enter the DRG that best describes this inpatient case."
^DD(356.93,.01,"DT")="3030601"
^DD(356.93,.02,0)="ADMISSION MOVEMENT^*P405'^DGPM(^0;2^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.93,.02,1,0)="^.1"
^DD(356.93,.02,1,1,0)="356.93^AMVD^MUMPS"
^DD(356.93,.02,1,1,1)="S:$P(^IBT(356.93,DA,0),U,3) ^IBT(356.93,""AMVD"",X,+$P(^(0),U,3),DA)="""""
^DD(356.93,.02,1,1,2)="K ^IBT(356.93,""AMVD"",X,+$P(^IBT(356.93,DA,0),U,3),DA)"
^DD(356.93,.02,1,1,"%D",0)="^^1^1^2931130^"
^DD(356.93,.02,1,1,"%D",1,0)="Cross reference of drgs by admission movement and drg date."
^DD(356.93,.02,1,1,"DT")="2931130"
^DD(356.93,.02,12)="Must be an admission movement."
^DD(356.93,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356.93,.02,21,0)="^^2^2^2931129^"
^DD(356.93,.02,21,1,0)="This field should point to the admission movement of the inpatient "
^DD(356.93,.02,21,2,0)="episode that this interim DRG is for."
^DD(356.93,.02,"DT")="2931130"
^DD(356.93,.03,0)="DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(356.93,.03,1,0)="^.1"
^DD(356.93,.03,1,1,0)="356.93^AMVD1^MUMPS"
^DD(356.93,.03,1,1,1)="S:$P(^IBT(356.93,DA,0),U,2) ^IBT(356.93,""AMVD"",+$P(^(0),U,2),X,DA)="""""
^DD(356.93,.03,1,1,2)="K ^IBT(356.93,""AMVD"",+$P(^IBT(356.93,DA,0),U,2),X,DA)"
^DD(356.93,.03,1,1,"%D",0)="^^1^1^2931130^"
^DD(356.93,.03,1,1,"%D",1,0)="Cross reference of drgs by admission movement and drg date."
^DD(356.93,.03,1,1,"DT")="2931130"
^DD(356.93,.03,3)="This is the date that the INTERIM DRG was computed."
^DD(356.93,.03,21,0)="^^1^1^2931129^"
^DD(356.93,.03,21,1,0)="Enter the date that this DRG was computed."
^DD(356.93,.03,"DT")="2931130"
^DD(356.93,.04,0)="ESTIMATED LENGTH OF STAY^NJ7,1^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(356.93,.04,1,0)="^.1"
^DD(356.93,.04,1,1,0)="356.93^AC^MUMPS"
^DD(356.93,.04,1,1,1)="Q"
^DD(356.93,.04,1,1,2)="Q"
^DD(356.93,.04,1,1,"%D",0)="^^3^3^2931215^"
^DD(356.93,.04,1,1,"%D",1,0)="Cross-reference to cause filing of data.  Field Days Remaining "
^DD(356.93,.04,1,1,"%D",2,0)="utilizes value in input transform and may not be filed without this"
^DD(356.93,.04,1,1,"%D",3,0)="x-ref."
^DD(356.93,.04,1,1,"DT")="2931215"
^DD(356.93,.04,3)="Type a Number between 0 and 99999, 1 Decimal Digit"
^DD(356.93,.04,21,0)="^^5^5^2940213^^^"
^DD(356.93,.04,21,1,0)="This is the estimated length of stay in the medical center for UR or"
^DD(356.93,.04,21,2,0)="Insurance purposes.  This is not related to the average length of "
^DD(356.93,.04,21,3,0)="stays for PTF.  It is the estimated LOS for this admission for this"
^DD(356.93,.04,21,4,0)="patient for this DRG.  It is used to help determine if for billing"
^DD(356.93,.04,21,5,0)="purposes that this patient has exceeded his length of stay."
^DD(356.93,.04,"DT")="2931215"
^DD(356.93,.05,0)="DAYS REMAINING^NJ5,0X^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N)!(X>$P($G(^IBT(356.93,DA,0)),""^"",4)) X"
^DD(356.93,.05,3)="The Days Remaining can not exceed the Estimated Length of Stay.  Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(356.93,.05,21,0)="^^3^3^2940213^^"
^DD(356.93,.05,21,1,0)="This is the days remaining that this patient has for this DRG."
^DD(356.93,.05,21,2,0)="It is the ELOS minus the number of days the patient has already been"
^DD(356.93,.05,21,3,0)="treated for this episode."
^DD(356.93,.05,"DT")="2931201"
^DD(356.93,"B","ADMISSION MOVEMENT",.02)=""
^DD(356.93,"B","DATE",.03)=""
^DD(356.93,"B","DAYS REMAINING",.05)=""
^DD(356.93,"B","ESTIMATED LENGTH OF STAY",.04)=""
^DD(356.93,"B","NAME",.01)=""
^DD(356.93,"GL",0,1,.01)=""
^DD(356.93,"GL",0,2,.02)=""
^DD(356.93,"GL",0,3,.03)=""
^DD(356.93,"GL",0,4,.04)=""
^DD(356.93,"GL",0,5,.05)=""
^DD(356.93,"IX",.01)=""
^DD(356.93,"IX",.02)=""
^DD(356.93,"IX",.03)=""
^DD(356.93,"IX",.04)=""
^DD(356.93,"RQ",.01)=""
^DD(356.94,0)="FIELD^^.04^4"
^DD(356.94,0,"DDA")="N"
^DD(356.94,0,"DT")="2940202"
^DD(356.94,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGPM(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(405,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.94,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(356.94,0,"ID","WRITE")="N Y S Y=$G(^(0)) W ""   "",$P($G(^DPT(+$P($G(^DGPM(+$P(Y,U,2),0)),U,3),0)),U)"
^DD(356.94,0,"IX","ADG",356.94,.02)=""
^DD(356.94,0,"IX","ADG1",356.94,.03)=""
^DD(356.94,0,"IX","ADG2",356.94,.04)=""
^DD(356.94,0,"IX","ADGPM",356.94,.02)=""
^DD(356.94,0,"IX","ADGPM1",356.94,.03)=""
^DD(356.94,0,"IX","ATP",356.94,.02)=""
^DD(356.94,0,"IX","ATP1",356.94,.04)=""
^DD(356.94,0,"IX","B",356.94,.01)=""
^DD(356.94,0,"IX","C",356.94,.02)=""
^DD(356.94,0,"IX","D",356.94,.03)=""
^DD(356.94,0,"NM","INPATIENT PROVIDERS")=""
^DD(356.94,0,"VR")="2.0"
^DD(356.94,.01,0)="DATE OF CHANGE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X K:'$$DTCHK^IBTRE5($G(DA),$G(X)) X"
^DD(356.94,.01,1,0)="^.1"
^DD(356.94,.01,1,1,0)="356.94^B"
^DD(356.94,.01,1,1,1)="S ^IBT(356.94,""B"",$E(X,1,30),DA)="""""
^DD(356.94,.01,1,1,2)="K ^IBT(356.94,""B"",$E(X,1,30),DA)"
^DD(356.94,.01,3)="Enter the date the is provider assumes responsibility for the patient.  It can not be before the admission date or after the discharge date or if not discharged, more than 7 days into the future."
^DD(356.94,.01,21,0)="^^9^9^2940222^^"
^DD(356.94,.01,21,1,0)="This is the first day that this provider is responsible for care for"
^DD(356.94,.01,21,2,0)="the patient.  Enter the date that the provider assumes responsibility."
^DD(356.94,.01,21,3,0)="For claims tracking purposes the provider will be resonsible for the"
^DD(356.94,.01,21,4,0)="care from this date (inclusive) until another provider assumes"
^DD(356.94,.01,21,5,0)="responsibility for the same level."
^DD(356.94,.01,21,6,0)=" "
^DD(356.94,.01,21,7,0)="The date must not be before the admission date or after the discharge"
^DD(356.94,.01,21,8,0)="date.  If a current inpatient, it can not be more than 7 days into the"
^DD(356.94,.01,21,9,0)="future."
^DD(356.94,.01,"DT")="2940222"
^DD(356.94,.02,0)="ADMISSION MOVEMENT^R*P405'^DGPM(^0;2^S DIC(""S"")=""I $P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.94,.02,1,0)="^.1"
^DD(356.94,.02,1,1,0)="356.94^C"
^DD(356.94,.02,1,1,1)="S ^IBT(356.94,""C"",$E(X,1,30),DA)="""""
^DD(356.94,.02,1,1,2)="K ^IBT(356.94,""C"",$E(X,1,30),DA)"
^DD(356.94,.02,1,1,"%D",0)="^^2^2^2940222^^"
^DD(356.94,.02,1,1,"%D",1,0)="Regular cross reference of all inpatient provider entries by the admission "
^DD(356.94,.02,1,1,"%D",2,0)="movement."
^DD(356.94,.02,1,1,"DT")="2940222"
^DD(356.94,.02,1,2,0)="356.94^ADG^MUMPS"
^DD(356.94,.02,1,2,1)="S:$P(^IBT(356.94,DA,0),U,4)=3&($P(^(0),U,3)) ^IBT(356.94,""ADG"",X,+$P(^(0),U,3),DA)="""""
^DD(356.94,.02,1,2,2)="K ^IBT(356.94,""ADG"",X,+$P(^IBT(356.94,DA,0),U,3),DA)"
^DD(356.94,.02,1,2,"%D",0)="^^2^2^2940222^"
^DD(356.94,.02,1,2,"%D",1,0)="Cross reference of all admitting provider entries by admission movement,"
^DD(356.94,.02,1,2,"%D",2,0)="by provider."
^DD(356.94,.02,1,2,"DT")="2940222"
^DD(356.94,.02,1,3,0)="356.94^ADGPM^MUMPS"
^DD(356.94,.02,1,3,1)="S:$P(^IBT(356.94,DA,0),U,3) ^IBT(356.94,""ADGPM"",X,+$P(^(0),U,3),DA)="""""
^DD(356.94,.02,1,3,2)="K ^IBT(356.94,""ADGPM"",X,+$P(^IBT(356.94,DA,0),U,3),DA)"
^DD(356.94,.02,1,3,"%D",0)="^^2^2^2940222^"
^DD(356.94,.02,1,3,"%D",1,0)="Cross reference of all inpatient provider entries by patient movement,"
^DD(356.94,.02,1,3,"%D",2,0)="by provider."
^DD(356.94,.02,1,3,"DT")="2940222"
^DD(356.94,.02,1,4,0)="356.94^ATP^MUMPS"
^DD(356.94,.02,1,4,1)="S:$P(^IBT(356.94,DA,0),U,4) ^IBT(356.94,""ATP"",X,+$P(^(0),U,4),DA)="""""
^DD(356.94,.02,1,4,2)="K ^IBT(356.94,""ATP"",X,+$P(^IBT(356.94,DA,0),U,4),DA)"
^DD(356.94,.02,1,4,"%D",0)="^^2^2^2940222^"
^DD(356.94,.02,1,4,"%D",1,0)="Cross reference of all inpatient provider entries by admission movement"
^DD(356.94,.02,1,4,"%D",2,0)="by type of provider."
^DD(356.94,.02,1,4,"DT")="2940222"
^DD(356.94,.02,12)="Must be an admission movement."
^DD(356.94,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(356.94,.02,21,0)="^^1^1^2940202^"
^DD(356.94,.02,21,1,0)="This is the admission movement that the provider is responsible for."
^DD(356.94,.02,"DT")="2940222"
^DD(356.94,.03,0)="PROVIDER^*P200'^VA(200,^0;3^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U,1),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(356.94,.03,1,0)="^.1"
^DD(356.94,.03,1,1,0)="356.94^D"
^DD(356.94,.03,1,1,1)="S ^IBT(356.94,""D"",$E(X,1,30),DA)="""""
^DD(356.94,.03,1,1,2)="K ^IBT(356.94,""D"",$E(X,1,30),DA)"
^DD(356.94,.03,1,1,"%D",0)="^^2^2^2940222^"
^DD(356.94,.03,1,1,"%D",1,0)="Regular cross-reference of all inpatient provider entries by"
^DD(356.94,.03,1,1,"%D",2,0)="provider."
^DD(356.94,.03,1,1,"DT")="2940222"
^DD(356.94,.03,1,2,0)="356.94^ADG1^MUMPS"
^DD(356.94,.03,1,2,1)="S:$P(^IBT(356.94,DA,0),U,4)=3&($P(^(0),U,2)) ^IBT(356.94,""ADG"",+$P(^(0),U,2),X,DA)="""""
^DD(356.94,.03,1,2,2)="K ^IBT(356.94,""ADG"",+$P(^IBT(356.94,DA,0),U,2),X,DA)"
^DD(356.94,.03,1,2,"%D",0)="^^2^2^2940222^"
^DD(356.94,.03,1,2,"%D",1,0)="Cross reference of all admitting provider entries by admission movement,"
^DD(356.94,.03,1,2,"%D",2,0)="by provider."
^DD(356.94,.03,1,2,"DT")="2940222"
^DD(356.94,.03,1,3,0)="356.94^ADGPM1^MUMPS"
^DD(356.94,.03,1,3,1)="S:$P(^IBT(356.94,DA,0),U,2) ^IBT(356.94,""ADGPM"",+$P(^(0),U,2),X,DA)="""""
^DD(356.94,.03,1,3,2)="K ^IBT(356.94,""ADGPM"",+$P(^IBT(356.94,DA,0),U,2),X,DA)"
^DD(356.94,.03,1,3,"%D",0)="^^2^2^2940222^"
^DD(356.94,.03,1,3,"%D",1,0)="Cross reference of all inpatient provider entries by patient movement, "
^DD(356.94,.03,1,3,"%D",2,0)="by provider."
^DD(356.94,.03,1,3,"DT")="2940222"
^DD(356.94,.03,12)="Must be a provder."
^DD(356.94,.03,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U,1),+Y))"""
^DD(356.94,.03,21,0)="^^2^2^2940202^"
^DD(356.94,.03,21,1,0)="Enter the name of the provider who is responsible for care of this "
^DD(356.94,.03,21,2,0)="patient."
^DD(356.94,.03,"DT")="2940222"
^DD(356.94,.04,0)="TYPE PROVIDER^R*S^1:ATTENDING;2:PROVIDER;3:ADMITTING;^0;4^Q"
^DD(356.94,.04,1,0)="^.1"
^DD(356.94,.04,1,1,0)="356.94^ADG2^MUMPS"
^DD(356.94,.04,1,1,1)="S:X=3&($P(^IBT(356.94,DA,0),U,2))&($P(^(0),U,3)) ^IBT(356.94,""ADG"",+$P(^(0),U,2),+$P(^(0),U,3),DA)="""""
^DD(356.94,.04,1,1,2)="K ^IBT(356.94,""ADG"",+$P(^IBT(356.94,DA,0),U,2),+$P(^(0),U,3),DA)"
^DD(356.94,.04,1,1,"%D",0)="^^2^2^2940222^"
^DD(356.94,.04,1,1,"%D",1,0)="Cross reference of all admitting provider entries by admission movement,"
^DD(356.94,.04,1,1,"%D",2,0)="by provider."
^DD(356.94,.04,1,1,"DT")="2940222"
^DD(356.94,.04,1,2,0)="356.94^ATP1^MUMPS"
^DD(356.94,.04,1,2,1)="S:$P(^IBT(356.94,DA,0),U,2) ^IBT(356.94,""ATP"",+$P(^(0),U,2),X,DA)="""""
^DD(356.94,.04,1,2,2)="K ^IBT(356.94,""ATP"",+$P(^IBT(356.94,DA,0),U,2),X,DA)"
^DD(356.94,.04,1,2,"%D",0)="^^2^2^2940222^"
^DD(356.94,.04,1,2,"%D",1,0)="Cross reference of all inpatient provider entries by admission movement"
^DD(356.94,.04,1,2,"%D",2,0)="by type of provider."
^DD(356.94,.04,1,2,"DT")="2940222"
^DD(356.94,.04,12)="Only one admitting physician allowed."
^DD(356.94,.04,12.1)="S DIC(""S"")=""I $$DICS^IBTRE5(Y)"""
^DD(356.94,.04,21,0)="^^18^18^2940202^"
^DD(356.94,.04,21,1,0)="Enter whether this physician is an attending physician, admitting"
^DD(356.94,.04,21,2,0)="physician, or the daily care provider (or resident)."
^DD(356.94,.04,21,3,0)=" "
^DD(356.94,.04,21,4,0)="It may be that the admitting physician is different from either the"
^DD(356.94,.04,21,5,0)="attending or provider.  If the admission to acure care does not meet UR"
^DD(356.94,.04,21,6,0)="criteria, it is important to track the admitting physician."
^DD(356.94,.04,21,7,0)=" "
^DD(356.94,.04,21,8,0)="The attending physician is the physician responsible for the care of"
^DD(356.94,.04,21,9,0)="the patient, more than one physician may be the attending."
^DD(356.94,.04,21,10,0)=" "
^DD(356.94,.04,21,11,0)="The provider is the physician directly providing patient care.  In"
^DD(356.94,.04,21,12,0)="affiliated hospitals this can be a resident or intern who is not "
^DD(356.94,.04,21,13,0)="necessarily responsible (the attending is responsible)."
^DD(356.94,.04,21,14,0)=" "
^DD(356.94,.04,21,15,0)="Because UR reviews are done every day, it is important to be able"
^DD(356.94,.04,21,16,0)="to accurately track attendings and providers related to care that"
^DD(356.94,.04,21,17,0)="does not meet critea.  "
^DD(356.94,.04,21,18,0)=" "
^DD(356.94,.04,"DT")="2940222"
^DD(356.94,"B","ADMISSION MOVEMENT",.02)=""
^DD(356.94,"B","DATE OF CHANGE",.01)=""
^DD(356.94,"B","PROVIDER",.03)=""
^DD(356.94,"B","TYPE PROVIDER",.04)=""
^DD(356.94,"GL",0,1,.01)=""
^DD(356.94,"GL",0,2,.02)=""
^DD(356.94,"GL",0,3,.03)=""
^DD(356.94,"GL",0,4,.04)=""
^DD(356.94,"IX",.01)=""
^DD(356.94,"IX",.02)=""
^DD(356.94,"IX",.03)=""
^DD(356.94,"IX",.04)=""
^DD(356.94,"RQ",.01)=""
^DD(356.94,"RQ",.02)=""
^DD(356.94,"RQ",.04)=""
^DD(357,0)="FIELD^^2^17"
^DD(357,0,"DDA")="N"
^DD(357,0,"DIK")="IBDX0"
^DD(357,0,"DIKOLD")="IBDX0"
^DD(357,0,"DT")="2951024"
^DD(357,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(357,0,"IX","AB",357,.01)=""
^DD(357,0,"IX","AC",357,.01)=""
^DD(357,0,"IX","ADEF",357,.13)=""
^DD(357,0,"IX","AG",357,.01)=""
^DD(357,0,"IX","AT",357,.01)=""
^DD(357,0,"IX","AU",357,.01)=""
^DD(357,0,"IX","B",357,.01)=""
^DD(357,0,"IX","C",357,.07)=""
^DD(357,0,"IX","D",357,.04)=""
^DD(357,0,"NM","ENCOUNTER FORM")=""
^DD(357,0,"PT",357.09,.04)=""
^DD(357,0,"PT",357.1,.02)=""
^DD(357,0,"PT",357.95,.21)=""
^DD(357,0,"PT",359,.01)=""
^DD(357,0,"PT",359,.02)=""
^DD(357,0,"PT",359.3,.09)=""
^DD(357,0,"PT",409.95,.02)=""
^DD(357,0,"PT",409.95,.03)=""
^DD(357,0,"PT",409.95,.04)=""
^DD(357,0,"PT",409.95,.05)=""
^DD(357,0,"PT",409.95,.06)=""
^DD(357,0,"PT",409.95,.07)=""
^DD(357,0,"PT",409.95,.08)=""
^DD(357,0,"PT",409.95,.09)=""
^DD(357,0,"VR")="3.0"
^DD(357,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357,.01,0)="NAME^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(357,.01,1,0)="^.1"
^DD(357,.01,1,1,0)="357^B"
^DD(357,.01,1,1,1)="S ^IBE(357,""B"",$E(X,1,30),DA)="""""
^DD(357,.01,1,1,2)="K ^IBE(357,""B"",$E(X,1,30),DA)"
^DD(357,.01,1,2,0)="357^AT^MUMPS"
^DD(357,.01,1,2,1)="Q"
^DD(357,.01,1,2,2)="Q"
^DD(357,.01,1,2,"%D",0)="^^5^5^2951017^"
^DD(357,.01,1,2,"%D",1,0)="This cross-reference will be used to store the text of the compiled form."
^DD(357,.01,1,2,"%D",2,0)="The format will be ...""AT"",form ien,row #)=text line. The index will be"
^DD(357,.01,1,2,"%D",3,0)="created by the 'compile' action of the encounter form utilities - it is"
^DD(357,.01,1,2,"%D",4,0)="optional. The option IBDF RECOMPILE ALL FORMS can be used to recompiled"
^DD(357,.01,1,2,"%D",5,0)="all forms."
^DD(357,.01,1,2,"DT")="2931124"
^DD(357,.01,1,3,0)="357^AC^MUMPS"
^DD(357,.01,1,3,1)="Q"
^DD(357,.01,1,3,2)="Q"
^DD(357,.01,1,3,"%D",0)="^^6^6^2951017^"
^DD(357,.01,1,3,"%D",1,0)="This cross-reference will be used to store the special controls needed"
^DD(357,.01,1,3,"%D",2,0)="(bold on, bold off, etc.) to print the compiled form. The format will be"
^DD(357,.01,1,3,"%D",3,0)="...""AC"",form ien,row #,column # )=controls. The index will be created by"
^DD(357,.01,1,3,"%D",4,0)="the 'compile' action of the encounter form utilities - it is optional."
^DD(357,.01,1,3,"%D",5,0)="The option IBDF RECOMPILE ALL FORMS can be used to recompiled"
^DD(357,.01,1,3,"%D",6,0)="all forms."
^DD(357,.01,1,3,"DT")="2931124"
^DD(357,.01,1,4,0)="357^AU^MUMPS"
^DD(357,.01,1,4,1)="Q"
^DD(357,.01,1,4,2)="Q"
^DD(357,.01,1,4,"%D",0)="^^5^5^2951017^^"
^DD(357,.01,1,4,"%D",1,0)="This cross-reference will be used to store the underlining of the compiled"
^DD(357,.01,1,4,"%D",2,0)="form. The format will be ...,""AU"",form ien,row #)=underlining . The index"
^DD(357,.01,1,4,"%D",3,0)="will be created by the 'compile' action of the encounter form utilities -"
^DD(357,.01,1,4,"%D",4,0)="it is optional. The option IBDF RECOMPILE ALL FORMS can be used to"
^DD(357,.01,1,4,"%D",5,0)="recompiled all forms."
^DD(357,.01,1,4,"DT")="2931124"
^DD(357,.01,1,5,0)="357^AG^MUMPS"
^DD(357,.01,1,5,1)="Q"
^DD(357,.01,1,5,2)="Q"
^DD(357,.01,1,5,"%D",0)="^^6^6^2951017^"
^DD(357,.01,1,5,"%D",1,0)="This cross-reference will be used to store strings of graphics characters"
^DD(357,.01,1,5,"%D",2,0)="(TLC,TRC, etc.) needed for the compiled form. The format will be"
^DD(357,.01,1,5,"%D",3,0)="...""AG"",form ien,row #,column # )=graphics string . The index will be"
^DD(357,.01,1,5,"%D",4,0)="created by the 'compile' action of the encounter form utilities - it is"
^DD(357,.01,1,5,"%D",5,0)="optional. The option IBDF RECOMPILE ALL FORMS can be used to recompiled"
^DD(357,.01,1,5,"%D",6,0)="all forms."
^DD(357,.01,1,5,"DT")="2931124"
^DD(357,.01,1,6,0)="357^AB^MUMPS"
^DD(357,.01,1,6,1)="Q"
^DD(357,.01,1,6,2)="Q"
^DD(357,.01,1,6,"%D",0)="^^5^5^2951017^"
^DD(357,.01,1,6,"%D",1,0)="This cross-reference will be used to store the boxes needed for the compiled"
^DD(357,.01,1,6,"%D",2,0)="forms. The format will be ...""AB"",form ien,row #,column #, Block ien)="
^DD(357,.01,1,6,"%D",3,0)="box width^box height. The index will be created by the 'compile'"
^DD(357,.01,1,6,"%D",4,0)="action of the encounter form utilities. The option IBDF RECOMPILE ALL"
^DD(357,.01,1,6,"%D",5,0)="FORMS can be used to recompiled all forms."
^DD(357,.01,1,6,"DT")="2940606"
^DD(357,.01,3)="The form name must be 3-30 uppercase characters in length."
^DD(357,.01,21,0)="^^2^2^2950717^^^"
^DD(357,.01,21,1,0)=" "
^DD(357,.01,21,2,0)="The name of the encounter form."
^DD(357,.01,"DEL",1,0)="I '$G(IBDEVICE(""LISTMAN"")) W ""...Encounter Forms can only be deleted through the"",!,"" DELETE UNUSED FORM action in the Encounter Form Utilities!"""
^DD(357,.01,"DT")="2950925"
^DD(357,.02,0)="SIMPLEX/DUPLEX^S^0:SIMPLEX;1:DUPLEX,LONG-EDGE BINDING;2:DUPLEX,SHORT-EDGE BINDING;^0;2^Q"
^DD(357,.02,3)="SIMPLEX means one-sided, DUPLEX means two-sided. SHORT-EDGE BINDING is for attaching forms by the top, LONG-EDGE BINDING is for attaching forms along the side."
^DD(357,.02,21,0)="^^10^10^2960917^^^^"
^DD(357,.02,21,1,0)="  "
^DD(357,.02,21,2,0)="Allows forms to be printed either one-sided or two-sided."
^DD(357,.02,21,3,0)=" "
^DD(357,.02,21,4,0)="SIMPLEX - refers to a form that will print on one side of the paper."
^DD(357,.02,21,5,0)="DUPLEX  - refers to a form that will print on both sides of the paper."
^DD(357,.02,21,6,0)="  .SHORT-EDGE BINDING - prints from top to bottom on the front page and"
^DD(357,.02,21,7,0)="   prints from bottom to top on the back page."
^DD(357,.02,21,8,0)="  .LONG-EDGE BINDING  - prints from top to bottom on the front page and"
^DD(357,.02,21,9,0)="   prints from top to bottom on the back page."
^DD(357,.02,21,10,0)="  "
^DD(357,.02,"DT")="2940628"
^DD(357,.03,0)="BRIEF DESCRIPTION^RF^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(357,.03,.1)="BRIEF DESCRIPTION OF FORM'S USE & CONTENT"
^DD(357,.03,3)="Enter a brief description of the intended use of the form or its contents."
^DD(357,.03,21,0)="^^3^3^2930607^"
^DD(357,.03,21,1,0)=" "
^DD(357,.03,21,2,0)="A brief description of the contents of the form and its intended use. This"
^DD(357,.03,21,3,0)="description will be displayed to the user."
^DD(357,.03,"DT")="2940309"
^DD(357,.04,0)="TYPE OF USE^R*S^0:RESERVED FOR UTILITY;1:OUTPATIENT ENCOUNTER FORM;^0;4^Q"
^DD(357,.04,1,0)="^.1"
^DD(357,.04,1,1,0)="357^D"
^DD(357,.04,1,1,1)="S ^IBE(357,""D"",$E(X,1,30),DA)="""""
^DD(357,.04,1,1,2)="K ^IBE(357,""D"",$E(X,1,30),DA)"
^DD(357,.04,1,1,"%D",0)="^^1^1^2930825^"
^DD(357,.04,1,1,"%D",1,0)="Used to find forms of a particular type."
^DD(357,.04,1,1,"DT")="2930825"
^DD(357,.04,3)="How will the form be used?"
^DD(357,.04,12)="Does not allow users to choose RESERVED FOR UTILITY"
^DD(357,.04,12.1)="S DIC(""S"")=""I Y'=0"""
^DD(357,.04,21,0)="^^5^5^2960930^^^^"
^DD(357,.04,21,1,0)="This field will be used to categorize forms by type of use. It is possible"
^DD(357,.04,21,2,0)="that the form generator that is part of the Encounter Form Utilities may"
^DD(357,.04,21,3,0)="be used to create forms other than encounter forms."
^DD(357,.04,21,4,0)="The utilities use a couple of forms (WORKCOPY, TOOL KIT), TYPE OF USE is"
^DD(357,.04,21,5,0)="RESERVED FOR UTILITY, that are not real forms."
^DD(357,.04,23,0)="^^1^1^2960930^"
^DD(357,.04,23,1,0)=" "
^DD(357,.04,"DT")="2930825"
^DD(357,.05,0)="COMPILED?^S^0:NO;1:YES;F:COMPILATION FAILED;^0;5^Q"
^DD(357,.05,1,0)="^.1^^0"
^DD(357,.05,3)="Enter YES if the form is compiled, NO otherwise."
^DD(357,.05,21,0)="^^2^2^2950912^^^^"
^DD(357,.05,21,1,0)="This indicates whether a compiled version of the form exists. The compiled"
^DD(357,.05,21,2,0)="version is much faster to print."
^DD(357,.05,"DT")="2951003"
^DD(357,.06,0)="USE ICR?^S^0:NO;1:YES;^0;6^Q"
^DD(357,.06,.1)="Should ICR be used to automatically read hand print on this form?"
^DD(357,.06,3)="ICR is 'intelligent character recognition', used to automatically read hand print. Answer YES only if your scanning software has ICR and you want to use it for this form."
^DD(357,.06,21,0)="^^5^5^2960910^^"
^DD(357,.06,21,1,0)="  "
^DD(357,.06,21,2,0)="If this field is set to 'YES', the computer will attempt to read hand-"
^DD(357,.06,21,3,0)="written print; for example, ICD diagnostic codes hand-written in an 'Other"
^DD(357,.06,21,4,0)="Diagnosis' encounter form block."
^DD(357,.06,21,5,0)=" "
^DD(357,.06,"DT")="2950421"
^DD(357,.07,0)="TOOLKIT^RS^0:NO;1:YES;^0;7^Q"
^DD(357,.07,.1)="SHOULD THIS FORM BE PART OF THE TOOLKIT?"
^DD(357,.07,1,0)="^.1"
^DD(357,.07,1,1,0)="357^C"
^DD(357,.07,1,1,1)="S ^IBE(357,""C"",$E(X,1,30),DA)="""""
^DD(357,.07,1,1,2)="K ^IBE(357,""C"",$E(X,1,30),DA)"
^DD(357,.07,1,1,"%D",0)="^^1^1^2930624^"
^DD(357,.07,1,1,"%D",1,0)="Used to find all of the tool kit forms."
^DD(357,.07,1,1,"DT")="2930624"
^DD(357,.07,3)="Is this form part of the toolkit?"
^DD(357,.07,21,0)="^^3^3^2950306^"
^DD(357,.07,21,1,0)=" "
^DD(357,.07,21,2,0)="This field, if set to YES, means that the form can not be deleted and can"
^DD(357,.07,21,3,0)="not be added to a clinic setup."
^DD(357,.07,"DT")="2950306"
^DD(357,.09,0)="RIGHT MARGIN^RNJ3,0X^^0;9^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357,.09,.1)="FORM'S RIGHT MARGIN (WIDTH IN CHARACTERS)"
^DD(357,.09,3)=""
^DD(357,.09,4)="W !,""How many columns (characters) wide should the form be?"""
^DD(357,.09,21,0)="^^2^2^2940711^^^^"
^DD(357,.09,21,1,0)=" "
^DD(357,.09,21,2,0)="The number of characters wide the form is."
^DD(357,.09,"DT")="2940711"
^DD(357,.1,0)="PAGE LENGTH^RNJ3,0^^0;10^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357,.1,.1)="FORM'S PAGE LENGTH (IN LINES)"
^DD(357,.1,3)="How many lines should each page have?"
^DD(357,.1,21,0)="^^2^2^2950109^^"
^DD(357,.1,21,1,0)=" "
^DD(357,.1,21,2,0)="This is the number of usable lines on the page."
^DD(357,.1,"DT")="2930420"
^DD(357,.11,0)="NUMBER OF PAGES^RNJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357,.11,3)="How many pages should the encounter form have?"
^DD(357,.11,21,0)="^^5^5^2960917^^^"
^DD(357,.11,21,1,0)="  "
^DD(357,.11,21,2,0)="The encounter form may have multiple pages."
^DD(357,.11,21,3,0)=" "
^DD(357,.11,21,4,0)="This field is to indicate the total number of pages for the entire form."
^DD(357,.11,21,5,0)="  "
^DD(357,.11,"DT")="2930602"
^DD(357,.12,0)="SCANNED/MANUAL DATA ENTRY^S^0:NO;1:YES;^0;12^Q"
^DD(357,.12,3)="Answer YES if it is planned that this form may at some time in the future be used with scanning."
^DD(357,.12,21,0)="^^52^52^2970523^^^^"
^DD(357,.12,21,1,0)="CREATING SCANNABLE FORMS"
^DD(357,.12,21,2,0)="  "
^DD(357,.12,21,3,0)="Each form created for scanning should contain at a minimum the following"
^DD(357,.12,21,4,0)="data elements:"
^DD(357,.12,21,5,0)="  "
^DD(357,.12,21,6,0)="1) Primary provider."
^DD(357,.12,21,7,0)="2) At least 1 procedure, usually the Evaluation and Management (EM) code."
^DD(357,.12,21,8,0)="3) Reason for visit (diagnosis)."
^DD(357,.12,21,9,0)="  "
^DD(357,.12,21,10,0)="These steps must be taken during form design for each form type that is to"
^DD(357,.12,21,11,0)="be scanned:"
^DD(357,.12,21,12,0)="  "
^DD(357,.12,21,13,0)="1) The form field SCANNABLE? should be set to YES."
^DD(357,.12,21,14,0)="2) The form field USE ICR? (prompted as 'Should ICR be used to auto-"
^DD(357,.12,21,15,0)="   matically read hand print on this form?') should be set to YES. It is"
^DD(357,.12,21,16,0)="   anticipated that the scanning software will include intelligent recog-"
^DD(357,.12,21,17,0)="   nition software (ICR) for reading hand print in future package releases."
^DD(357,.12,21,18,0)="3) A form can be designed with scannable and non-scannable pages. Each page"
^DD(357,.12,21,19,0)="   to be scanned should have the SCANNABLE? field set to YES. For each page"
^DD(357,.12,21,20,0)="   selected in the PAGE INFORMATION multiple, the SCANNABLE? field is auto-"
^DD(357,.12,21,21,0)="   matically set to YES."
^DD(357,.12,21,22,0)="4) Selection lists should use bubbles as marking areas. The selection rule"
^DD(357,.12,21,23,0)="   should be appropriate to the type of data. The selection rule will be"
^DD(357,.12,21,24,0)="   enforced by the scanning software. For example, if a diagnosis list has"
^DD(357,.12,21,25,0)="   the selection rule AT LEAST ONE, the form will be flagged as invalid if"
^DD(357,.12,21,26,0)="   no diagnosis is selected. Also, the proper data qualifier, if one "
^DD(357,.12,21,27,0)="   applies, should be entered. An example illustrating the use of data"
^DD(357,.12,21,28,0)="   qualifiers is a selection list for diagnosis codes where there is a sub"
^DD(357,.12,21,29,0)="   column for selecting the primary diagnosis and another sub column for"
^DD(357,.12,21,30,0)="   selecting secondary diagnoses. At the bottom of the selection list an"
^DD(357,.12,21,31,0)="   area can be created to contain 'other' codes not found on the list."
^DD(357,.12,21,32,0)="5) All hand print to be scanned must use hand print fields, except for the"
^DD(357,.12,21,33,0)="   'other' feature of selection lists."
^DD(357,.12,21,34,0)="6) The PACKAGE INTERFACE file (357.6) contains the complete list of data"
^DD(357,.12,21,35,0)="   that is currently scannable."
^DD(357,.12,21,36,0)="  "
^DD(357,.12,21,37,0)="There are several forms that are included with AICS v3.0 that are scan-"
^DD(357,.12,21,38,0)="nable. There are also a number of tool kit blocks included that were"
^DD(357,.12,21,39,0)="designed to be scannable. The best approach to creating the forms needed"
^DD(357,.12,21,40,0)="by your facility is to first develop a few basic forms, without clinic"
^DD(357,.12,21,41,0)="specific coding, suited to your site's needs. Those forms can then be"
^DD(357,.12,21,42,0)="placed in your tool kit and used as the basis for developing the rest of"
^DD(357,.12,21,43,0)="your forms."
^DD(357,.12,21,44,0)="  "
^DD(357,.12,21,45,0)="---------------------------------------------------------------------------"
^DD(357,.12,21,46,0)="  "
^DD(357,.12,21,47,0)="If ANY page of the form is to be scanned into VISTA, enter YES."
^DD(357,.12,21,48,0)="    .Individual pages of the form to be scanned are selected later"
^DD(357,.12,21,49,0)="     at the PAGE INFORMATION prompt."
^DD(357,.12,21,50,0)=" "
^DD(357,.12,21,51,0)="If NONE of the form pages are to be scanned into VISTA, enter NO."
^DD(357,.12,21,52,0)=" "
^DD(357,.12,"DT")="2970523"
^DD(357,.13,0)="FORM TYPE ID^NJ9,0^^0;13^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357,.13,1,0)="^.1"
^DD(357,.13,1,1,0)="357^ADEF"
^DD(357,.13,1,1,1)="S ^IBE(357,""ADEF"",$E(X,1,30),DA)="""""
^DD(357,.13,1,1,2)="K ^IBE(357,""ADEF"",$E(X,1,30),DA)"
^DD(357,.13,1,1,"%D",0)="^^2^2^2951003^"
^DD(357,.13,1,1,"%D",1,0)="This cross reference can be used to find the current form definition"
^DD(357,.13,1,1,"%D",2,0)="in file 357.95 for this form."
^DD(357,.13,1,1,"DT")="2951003"
^DD(357,.13,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(357,.13,21,0)="^^4^4^2960212^^^"
^DD(357,.13,21,1,0)="This is the current form definition entry associated with this form.  Each"
^DD(357,.13,21,2,0)="time the form is edited and printed or recompiled and printed a new "
^DD(357,.13,21,3,0)="form definition is created leaving the old definition"
^DD(357,.13,21,4,0)="for use with existing forms (its used in scanning)."
^DD(357,.13,"DT")="2951003"
^DD(357,.14,0)="PAPER SIZE^S^1:LETTER (8 1/2 x 11);^0;14^Q"
^DD(357,.14,3)="What size paper should be used?"
^DD(357,.14,"DT")="2940614"
^DD(357,.15,0)="ORIENTATION^S^p:PORTRAIT;^0;15^Q"
^DD(357,.15,3)="How should the form be oriented?"
^DD(357,.15,"DT")="2940614"
^DD(357,.16,0)="TEXT SIZE^RS^1:133 COLUMNS x 80 LINES;2:96 COLUMNS x 72 LINES;3:80 COLUMNS x 60 LINES;^0;16^Q"
^DD(357,.16,3)="This choice will determine the size of the print and how much text will fit on the form."
^DD(357,.16,"DT")="2950814"
^DD(357,.17,0)="VERSION^NJ4,1^^0;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(357,.17,3)="Type a Number between 0 and 99, 1 Decimal Digit"
^DD(357,.17,21,0)="^^3^3^2951116^^"
^DD(357,.17,21,1,0)="This is the version of AICS that created the form.  This was implemented"
^DD(357,.17,21,2,0)="in version 2.1.  All forms with a null entry can be treated as version"
^DD(357,.17,21,3,0)="2.0 forms."
^DD(357,.17,"DT")="2951024"
^DD(357,2,0)="PAGE INFORMATION^357.02I^^2;0"
^DD(357,2,21,0)="^^3^3^2960916^^^^"
^DD(357,2,21,1,0)="  "
^DD(357,2,21,2,0)="Enter all pages that will have scannable data on them."
^DD(357,2,21,3,0)=" "
^DD(357,"B","BRIEF DESCRIPTION",.03)=""
^DD(357,"B","COMPILED?",.05)=""
^DD(357,"B","FORM TYPE ID",.13)=""
^DD(357,"B","FORM'S PAGE LENGTH (IN LINES)",.1)="1"
^DD(357,"B","NAME",.01)=""
^DD(357,"B","NUMBER OF PAGES",.11)=""
^DD(357,"B","ORIENTATION",.15)=""
^DD(357,"B","PAGE INFORMATION",2)=""
^DD(357,"B","PAGE LENGTH",.1)=""
^DD(357,"B","PAPER SIZE",.14)=""
^DD(357,"B","RIGHT MARGIN",.09)=""
^DD(357,"B","SCANNED/MANUAL DATA ENTRY",.12)=""
^DD(357,"B","SIMPLEX/DUPLEX",.02)=""
^DD(357,"B","TEXT SIZE",.16)=""
^DD(357,"B","TOOLKIT",.07)=""
^DD(357,"B","TYPE OF USE",.04)=""
^DD(357,"B","USE ICR?",.06)=""
^DD(357,"B","VERSION",.17)=""
^DD(357,"GL",0,1,.01)=""
^DD(357,"GL",0,2,.02)=""
^DD(357,"GL",0,3,.03)=""
^DD(357,"GL",0,4,.04)=""
^DD(357,"GL",0,5,.05)=""
^DD(357,"GL",0,6,.06)=""
^DD(357,"GL",0,7,.07)=""
^DD(357,"GL",0,9,.09)=""
^DD(357,"GL",0,10,.1)=""
^DD(357,"GL",0,11,.11)=""
^DD(357,"GL",0,12,.12)=""
^DD(357,"GL",0,13,.13)=""
^DD(357,"GL",0,14,.14)=""
^DD(357,"GL",0,15,.15)=""
^DD(357,"GL",0,16,.16)=""
^DD(357,"GL",0,17,.17)=""
^DD(357,"GL",2,0,2)=""
^DD(357,"IX",.01)=""
^DD(357,"IX",.04)=""
^DD(357,"IX",.07)=""
^DD(357,"IX",.13)=""
^DD(357,"RQ",.01)=""
^DD(357,"RQ",.03)=""
^DD(357,"RQ",.04)=""
^DD(357,"RQ",.07)=""
^DD(357,"RQ",.09)=""
^DD(357,"RQ",.1)=""
^DD(357,"RQ",.11)=""
^DD(357,"RQ",.16)=""
^DD(357,"SB",357.02,2)=""
^DD(357.02,0)="PAGE INFORMATION SUB-FIELD^^.02^2"
^DD(357.02,0,"DIK")="IBDX0"
^DD(357.02,0,"DT")="2950717"
^DD(357.02,0,"ID","WRITE")="N DIERR,IBDMSG D EN^DDIOL($$EXTERNAL^DILFD(357.02,.02,"""",$P(^(0),U,2),""IBDMSG""),"""",""?0"")"
^DD(357.02,0,"IX","B",357.02,.01)=""
^DD(357.02,0,"NM","PAGE INFORMATION")=""
^DD(357.02,0,"UP")="357"
^DD(357.02,.01,0)="PAGE INFORMATION^MNJ1,0X^^0;1^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N)!'$P(^IBE(357,D0,0),U,12)!(X>$P(^IBE(357,D0,0),U,11)) X"
^DD(357.02,.01,1,0)="^.1"
^DD(357.02,.01,1,1,0)="357.02^B"
^DD(357.02,.01,1,1,1)="S ^IBE(357,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(357.02,.01,1,1,2)="K ^IBE(357,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(357.02,.01,3)="Enter the pages that should be scanned."
^DD(357.02,.01,21,0)="^^15^15^2960917^^^^"
^DD(357.02,.01,21,1,0)="Enter all pages that will have scannable data on them."
^DD(357.02,.01,21,2,0)=" "
^DD(357.02,.01,21,3,0)="For example, if a form has a total of 2 pages, and page #1 is to"
^DD(357.02,.01,21,4,0)="be scanned and page #2 is not scannable; at the PAGE INFORMATION"
^DD(357.02,.01,21,5,0)="prompt enter 1.  When this form is printed, a small black box"
^DD(357.02,.01,21,6,0)="will print at the bottom of page #1 to indicate that it is a scan-"
^DD(357.02,.01,21,7,0)="nable page."
^DD(357.02,.01,21,8,0)="  "
^DD(357.02,.01,21,9,0)="At the time a form is scanned, the data from each scanned page is "
^DD(357.02,.01,21,10,0)="stored in the Encounter Form Tracking file (357.96). If the form has"
^DD(357.02,.01,21,11,0)="multiple scannable pages, and the software has not received all pages"
^DD(357.02,.01,21,12,0)="for the form, it will display a message to the user indicating that it"
^DD(357.02,.01,21,13,0)="is awaiting additional pages.  Once all pages have been scanned in, the "
^DD(357.02,.01,21,14,0)="data is sent to update the PCE files."
^DD(357.02,.01,21,15,0)="  "
^DD(357.02,.01,"DT")="2950717"
^DD(357.02,.02,0)="SCANNABLE?^S^0:NO, NOT SCANNABLE;1:YES, PAGE SCANNABLE;^0;2^Q"
^DD(357.02,.02,3)="Is this page meant to be scanned?"
^DD(357.02,.02,21,0)="^^2^2^2960916^"
^DD(357.02,.02,21,1,0)="Enter Yes if this page should be scanned or no if this page does not"
^DD(357.02,.02,21,2,0)="have any scannable parts."
^DD(357.02,.02,"DT")="2960916"
^DD(357.02,"B","PAGE INFORMATION",.01)=""
^DD(357.02,"B","SCANNABLE?",.02)=""
^DD(357.02,"GL",0,1,.01)=""
^DD(357.02,"GL",0,2,.02)=""
^DD(357.02,"IX",.01)=""
^DD(357.08,0)="FIELD^^.07^7"
^DD(357.08,0,"DDA")="N"
^DD(357.08,0,"DT")="2970219"
^DD(357.08,0,"IX","B",357.08,.01)=""
^DD(357.08,0,"NM","AICS PURGE LOG")=""
^DD(357.08,0,"VR")="3.0"
^DD(357.08,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.08,.01,0)="RUN DATE/TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(357.08,.01,1,0)="^.1"
^DD(357.08,.01,1,1,0)="357.08^B"
^DD(357.08,.01,1,1,1)="S ^IBD(357.08,""B"",$E(X,1,30),DA)="""""
^DD(357.08,.01,1,1,2)="K ^IBD(357.08,""B"",$E(X,1,30),DA)"
^DD(357.08,.01,3)="Enter the date time that the purge option ran."
^DD(357.08,.01,21,0)="^^4^4^2951208^^"
^DD(357.08,.01,21,1,0)="This is the date and time that the purge option ran.  After running"
^DD(357.08,.01,21,2,0)="a set of brief results is stored.  A new entry is created each time the"
^DD(357.08,.01,21,3,0)="option runs regardless of whether or not it is a manual or automatic"
^DD(357.08,.01,21,4,0)="purge."
^DD(357.08,.01,"DT")="2951208"
^DD(357.08,.02,0)="RECORDS TO PURGE THIS RUN^S^0:NONE;1:COMPLETE;2:ALL;^0;2^Q"
^DD(357.08,.02,21,0)="^^1^1^2951208^"
^DD(357.08,.02,21,1,0)="This is the status of records that were purged this run."
^DD(357.08,.02,"DT")="2951208"
^DD(357.08,.03,0)="ENTRIES PURGE UP TO^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(357.08,.03,21,0)="^^2^2^2951208^"
^DD(357.08,.03,21,1,0)="This is the last date that entries were purged for based on the status"
^DD(357.08,.03,21,2,0)="of the records to purge this run."
^DD(357.08,.03,"DT")="2951208"
^DD(357.08,.04,0)="FORM TRACKING ENTRIES DELETED^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.08,.04,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(357.08,.04,21,0)="^^2^2^2951208^"
^DD(357.08,.04,21,1,0)="This is the number of entries in the FORM TRACKING file that were deleted"
^DD(357.08,.04,21,2,0)="this run."
^DD(357.08,.04,"DT")="2951208"
^DD(357.08,.05,0)="FORM DEFINIT. ENTRIES DELETED^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.08,.05,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(357.08,.05,21,0)="^^2^2^2951208^"
^DD(357.08,.05,21,1,0)="This is the number of entries in the form definition file that "
^DD(357.08,.05,21,2,0)="were deleted this run."
^DD(357.08,.05,"DT")="2951208"
^DD(357.08,.06,0)="FORM SPEC ENTRIES DELETED^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.08,.06,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(357.08,.06,21,0)="^^2^2^2951208^"
^DD(357.08,.06,21,1,0)="This is the number of entries in the form specification file that"
^DD(357.08,.06,21,2,0)="were deleted this run."
^DD(357.08,.06,"DT")="2951208"
^DD(357.08,.07,0)="ERROR LOG ENTRIES DELETED^NJ8,0^^0;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.08,.07,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(357.08,.07,"DT")="2970219"
^DD(357.08,"B","ENTRIES PURGE UP TO",.03)=""
^DD(357.08,"B","ERROR LOG ENTRIES DELETED",.07)=""
^DD(357.08,"B","FORM DEFINIT. ENTRIES DELETED",.05)=""
^DD(357.08,"B","FORM SPEC ENTRIES DELETED",.06)=""
^DD(357.08,"B","FORM TRACKING ENTRIES DELETED",.04)=""
^DD(357.08,"B","RECORDS TO PURGE THIS RUN",.02)=""
^DD(357.08,"B","RUN DATE/TIME",.01)=""
^DD(357.08,"GL",0,1,.01)=""
^DD(357.08,"GL",0,2,.02)=""
^DD(357.08,"GL",0,3,.03)=""
^DD(357.08,"GL",0,4,.04)=""
^DD(357.08,"GL",0,5,.05)=""
^DD(357.08,"GL",0,6,.06)=""
^DD(357.08,"GL",0,7,.07)=""
^DD(357.08,"IX",.01)=""
^DD(357.08,"RQ",.01)=""
^DD(357.09,0)="FIELD^^11^18"
^DD(357.09,0,"DDA")="N"
^DD(357.09,0,"DT")="2971229"
^DD(357.09,0,"IX","ACG",357.091,.06)=""
^DD(357.09,0,"IX","B",357.09,.01)=""
^DD(357.09,0,"IX","SEQ",357.091,.1)=""
^DD(357.09,0,"NM","ENCOUNTER FORM PARAMETERS")=""
^DD(357.09,0,"VR")="3.0"
^DD(357.09,0,"VRPK")="IBD"
^DD(357.09,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.09,.001,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(357.09,.001,21,0)="^^3^3^2950303^"
^DD(357.09,.001,21,1,0)="There is only one number in this ENCOUNTER FORM PARAMETERS file,"
^DD(357.09,.001,21,2,0)="and that is the number 'one' denoting there is only one Encounter Form"
^DD(357.09,.001,21,3,0)="Parameter.  The labels are subfields of this one parameter."
^DD(357.09,.001,"DT")="2950303"
^DD(357.09,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(357.09,.01,1,0)="^.1"
^DD(357.09,.01,1,1,0)="357.09^B"
^DD(357.09,.01,1,1,1)="S ^IBD(357.09,""B"",$E(X,1,30),DA)="""""
^DD(357.09,.01,1,1,2)="K ^IBD(357.09,""B"",$E(X,1,30),DA)"
^DD(357.09,.01,3)="Answer must be 3-30 characters in length."
^DD(357.09,.01,21,0)="^^2^2^2950303^^"
^DD(357.09,.01,21,1,0)="This field is the name field.  There should only be one"
^DD(357.09,.01,21,2,0)="entry in this field."
^DD(357.09,.01,23,0)="^^1^1^2950303^^"
^DD(357.09,.01,23,1,0)=" "
^DD(357.09,.01,"DT")="2950303"
^DD(357.09,.02,0)="RECORDS TO PURGE^S^0:NONE;1:COMPLETED;2:ALL;^0;2^Q"
^DD(357.09,.02,21,0)="^^14^14^2951208^^"
^DD(357.09,.02,21,1,0)="Enter whether you want the background purge option to purge all records"
^DD(357.09,.02,21,2,0)="from form tracking older that the number of days specified in the field"
^DD(357.09,.02,21,3,0)="FORM TRACKING RETENTION DAYS, or completed records, or no records.  "
^DD(357.09,.02,21,4,0)=" "
^DD(357.09,.02,21,5,0)="After purging records from form tracking, the purge utility will check"
^DD(357.09,.02,21,6,0)="to see if all forms for inactive form definitions have been received."
^DD(357.09,.02,21,7,0)="If so, then the form definition and Form Specification for that form"
^DD(357.09,.02,21,8,0)="may be deleted.  Purging ALL Form Tracking entries will cause the"
^DD(357.09,.02,21,9,0)="form definition and form specification to be deleted for forms that"
^DD(357.09,.02,21,10,0)="have not yet been completed.  Once the form definition is deleted"
^DD(357.09,.02,21,11,0)="the form specification can not be recreated in DHCP, if it does not"
^DD(357.09,.02,21,12,0)="exist on the AICS workstation the form can not be recognized."
^DD(357.09,.02,21,13,0)="This is generally not a problem as entries must be at least 60 days"
^DD(357.09,.02,21,14,0)="old to purge."
^DD(357.09,.02,"DT")="2951208"
^DD(357.09,.03,0)="FORM TRACKING RETENTION DAYS^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<60)!(X?.E1"".""1N.N) X"
^DD(357.09,.03,3)="Type a Number between 60 and 9999, 0 Decimal Digits"
^DD(357.09,.03,21,0)="^^5^5^2951003^"
^DD(357.09,.03,21,1,0)="Enter the number of days to retain form tracking information after it"
^DD(357.09,.03,21,2,0)="is no longer used.  The AICS purge utility will delete entries in"
^DD(357.09,.03,21,3,0)="the Encounter Form Definition file (357.95), the Encounter Form Tracking"
^DD(357.09,.03,21,4,0)="file (357.96), and the Form Specification file the number of days "
^DD(357.09,.03,"DT")="2951003"
^DD(357.09,.04,0)="DEFAULT DATA ENTRY FORM^P357'^IBE(357,^0;4^Q"
^DD(357.09,.04,3)="Enter the form to be used as the default form for doing data entry when no form exists for a clinic."
^DD(357.09,.04,21,0)="^^5^5^2951208^"
^DD(357.09,.04,21,1,0)="This is the form definition that will be used during manual data entry"
^DD(357.09,.04,21,2,0)="if no form for a clinic is defined.  If this is not filled in then"
^DD(357.09,.04,21,3,0)="the PRIMARY CARE SAMPLE (2.1) form in the tool kit will be used as the"
^DD(357.09,.04,21,4,0)="default form.  If that form has been deleted then provider, procedure     "
^DD(357.09,.04,21,5,0)="and diagnosis will be asked but no quick entry features will be available."
^DD(357.09,.04,"DT")="2951208"
^DD(357.09,.05,0)="PRINT FORMS FOR INPATIENTS^S^0:NO;1:YES;^0;5^Q"
^DD(357.09,.05,3)="If you would like to suppress printing of encounter forms for inpatients enter 'No'.  Answering 'Yes' or leaving blank will cause Encounter Forms for inpatients to print."
^DD(357.09,.05,21,0)="2^^7^7^2951219^^^"
^DD(357.09,.05,21,1,0)="Enter 'Yes' if you want encounter forms printed for Inpatients or 'No'"
^DD(357.09,.05,21,2,0)="if no enounter forms for inpatients should be printed.  If this field"
^DD(357.09,.05,21,3,0)="is null, it will be treated as a 'Yes' and encounter forms for inpatients"
^DD(357.09,.05,21,4,0)="will be printed."
^DD(357.09,.05,21,5,0)=" "
^DD(357.09,.05,21,6,0)="This parameter affects all options that print forms for appointments"
^DD(357.09,.05,21,7,0)="for a clinic, it does not affect printing individual forms."
^DD(357.09,.05,23,0)="^^2^2^2951219^"
^DD(357.09,.05,23,1,0)="This parameter is checked twice in routine IBDF1B1A when check "
^DD(357.09,.05,23,2,0)="the status of a patients appointment."
^DD(357.09,.05,"DT")="2951218"
^DD(357.09,.06,0)="MAKE APPOINTMENT IN DATA ENTRY^S^0:NO;1:YES;^0;6^Q"
^DD(357.09,.06,3)="Enter 'Yes' if you want to be able to make a follow up appointment using the AICS manual Data entry option."
^DD(357.09,.06,21,0)="^^3^3^2960403^"
^DD(357.09,.06,21,1,0)="Enter 'Yes' if you wish for users at your site to be able to make a follow"
^DD(357.09,.06,21,2,0)="up appointment during data entry of an encounter form or enter 'No' if you"
^DD(357.09,.06,21,3,0)="do not wish to see that prompt."
^DD(357.09,.06,"DT")="2960403"
^DD(357.09,.07,0)="PASS DATA TO PCE^S^0:BACKGROUND;1:BACKGROUND/W VALIDATION;2:FOREGROUND/NO DISPLAY;3:FOREGROUND/WITH DISPLAY;^0;7^Q"
^DD(357.09,.07,3)="How should data captured in the AICS EF Data entry option be passed to PCE?"
^DD(357.09,.07,21,0)="^^25^25^2961230^^^^"
^DD(357.09,.07,21,1,0)="Choose how data captured in the AICS EF Data Entry Options should be"
^DD(357.09,.07,21,2,0)="passed to PCE.  The data entry options use the same mechanism to update"
^DD(357.09,.07,21,3,0)="PCE (and scheduling) as the scanning software.  Background refers to"
^DD(357.09,.07,21,4,0)="sending data to PCE by using TaskMan to create a separate process so the"
^DD(357.09,.07,21,5,0)="user may continue working.  Foreground refers to sending the data to PCE in"
^DD(357.09,.07,21,6,0)="real time.  The choices for data entry are:"
^DD(357.09,.07,21,7,0)="   "
^DD(357.09,.07,21,8,0)="   Background - This is the fastest method for the user.  No validation "
^DD(357.09,.07,21,9,0)="       of the data is done by PCE and no display there is no display of"
^DD(357.09,.07,21,10,0)="       results."
^DD(357.09,.07,21,11,0)=" "
^DD(357.09,.07,21,12,0)="   Background with Validation -  This is the next fastest way.  The data"
^DD(357.09,.07,21,13,0)="       is validated with PCE prior to passing in the background.  If the"
^DD(357.09,.07,21,14,0)="       data does not validate, the user will be shown the error messages"
^DD(357.09,.07,21,15,0)="       and allowed to re-edit the data."
^DD(357.09,.07,21,16,0)=" "
^DD(357.09,.07,21,17,0)="   Foreground with no display of data - Data is always validated when "
^DD(357.09,.07,21,18,0)="       passed to PCE in the foreground. If the data does not validate,"
^DD(357.09,.07,21,19,0)="       the user will be shown the error messages and allowed to re-edit"
^DD(357.09,.07,21,20,0)="       the data."
^DD(357.09,.07,21,21,0)=" "
^DD(357.09,.07,21,22,0)="  Foreground with display - This is the slowest method but will be most "
^DD(357.09,.07,21,23,0)="      useful as a validation tool.  The data sent to PCE is redisplayed"
^DD(357.09,.07,21,24,0)="      after it has been been accepted by PCE.  Any differences in what"
^DD(357.09,.07,21,25,0)="      was supposed to be sent and what was actually sent should be noticable."
^DD(357.09,.07,"DT")="2960411"
^DD(357.09,.08,0)="FILL % FOR BUBBLES^NJ2,0^^0;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.09,.08,3)="Type a Number between 0 and 99, 0 Decimal Digits.  This is the amount of fill required for Paper Keyboard to recognize the Bubble as checked."
^DD(357.09,.08,9)="^"
^DD(357.09,.08,21,0)="^^10^10^2970821^^^^"
^DD(357.09,.08,21,1,0)="Enter a number between 0 and 99 that represents the percentage of"
^DD(357.09,.08,21,2,0)="fill required for a bubble to be considered as checked.  Entering a zero"
^DD(357.09,.08,21,3,0)="will leave the determination up to Paper Keyboard.  If this field is left"
^DD(357.09,.08,21,4,0)="blank AICS will use 20% as the amount of fill required."
^DD(357.09,.08,21,5,0)=" "
^DD(357.09,.08,21,6,0)="This field corresponds to the Threshold % field in the Metric dialog box"
^DD(357.09,.08,21,7,0)="in Paper Keyboard.  Modifying this field will only affect new forms."
^DD(357.09,.08,21,8,0)="Existing form specification files will not be affected.  To modify an "
^DD(357.09,.08,21,9,0)="existing form specification file it must be deleted from the workstation "
^DD(357.09,.08,21,10,0)="and the corresponding entry in file 359.2 must be deleted."
^DD(357.09,.08,"DT")="2970121"
^DD(357.09,.09,0)="BACKGROUND % FOR BUBBLES^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.09,.09,3)="Type a Number between 0 and 99, 0 Decimal Digits.  This is the amount of background allowable that Paper Keyboard will ignore."
^DD(357.09,.09,9)="^"
^DD(357.09,.09,21,0)="^^15^15^2970821^^^"
^DD(357.09,.09,21,1,0)="Enter a number between 0 and 99 that represents the percentage of "
^DD(357.09,.09,21,2,0)="background fill in a bubble that can exist before Paper Keyboard"
^DD(357.09,.09,21,3,0)="will consider any markings in the bubble.  If this field is left blank"
^DD(357.09,.09,21,4,0)="then AICS will use 5%.  Entering a zero leaves the determination up"
^DD(357.09,.09,21,5,0)="to Paper Keyboard."
^DD(357.09,.09,21,6,0)=" "
^DD(357.09,.09,21,7,0)="This field corresponds to the Background % field in the Metric dialog box."
^DD(357.09,.09,21,8,0)="Entering a small value prevents small dots on the page from appearing as"
^DD(357.09,.09,21,9,0)="check marks.  The value of this field should always be less than the value"
^DD(357.09,.09,21,10,0)="for the FILL % FOR BUBBLES field."
^DD(357.09,.09,21,11,0)=" "
^DD(357.09,.09,21,12,0)="Editing this field will not affect any current form specification files,"
^DD(357.09,.09,21,13,0)="only files created after changing this value.  To modify a current form"
^DD(357.09,.09,21,14,0)="specification you must delete the file from the workstation and remove the"
^DD(357.09,.09,21,15,0)="corresponding entry from file 359.2."
^DD(357.09,.09,"DT")="2970121"
^DD(357.09,.1,0)="DAYS TO PRINT 1010F^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.09,.1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(357.09,.1,21,0)="^.001^6^6^3000510^^^^"
^DD(357.09,.1,21,1,0)="If you have chosen to print a 1010F with your encounter forms, this is the"
^DD(357.09,.1,21,2,0)="number of days between the expiration of a means test and the appointment "
^DD(357.09,.1,21,3,0)="date before that you want to print 1010F's for.  For example, if this field"
^DD(357.09,.1,21,4,0)="is set to 30, then 1010F's will print for means tests that are due to "
^DD(357.09,.1,21,5,0)="expire within 30 days of the appointment.  1010F's will also print if they"
^DD(357.09,.1,21,6,0)="are in a required status."
^DD(357.09,.1,23,0)="^.001^2^2^3000510^^^"
^DD(357.09,.1,23,1,0)="This parameter is used in PRMT^IBDFN2 if a 1010F is printed from the print"
^DD(357.09,.1,23,2,0)="manager."
^DD(357.09,.1,"DT")="2970317"
^DD(357.09,.11,0)="DAYS TO RETAIN PENDING PAGES^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.09,.11,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(357.09,.11,21,0)="^^5^5^2971028^^^"
^DD(357.09,.11,21,1,0)="Enter the number of days that entries in Form Tracking will be retained"
^DD(357.09,.11,21,2,0)="in a Pending Pages status.  The automatic encounter form job will check"
^DD(357.09,.11,21,3,0)="this value each night and attempt to pass forms in this status to PCE"
^DD(357.09,.11,21,4,0)="after they have been in this status for the specified number of days"
^DD(357.09,.11,21,5,0)="past the encounter date."
^DD(357.09,.11,"DT")="2971007"
^DD(357.09,.12,0)="REDUCE HANDPRINT RECOGNITION SIZE^NJ1,0^^0;12^K:+X'=X!(X>8)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.09,.12,3)="Entering a number greater than zero will reduce the recognition area of hand print fields by .1mm on all sides.  Type a Number between 0 and 8."
^DD(357.09,.12,9)="^"
^DD(357.09,.12,21,0)="^^20^20^2990326^^^^"
^DD(357.09,.12,21,1,0)="When scanning, some sites have problems with the outline of hand print"
^DD(357.09,.12,21,2,0)="fields not being removed completely.  This results in ""phantom"" entries"
^DD(357.09,.12,21,3,0)="being detected by Paper Keyboard and user validation during recognition."
^DD(357.09,.12,21,4,0)=""
^DD(357.09,.12,21,5,0)="This problem is caused by the interaction of 3 different features, the"
^DD(357.09,.12,21,6,0)="darkness of the print, the size of the recognition area, and the light"
^DD(357.09,.12,21,7,0)="intensity of the scanner.  This field allows you to reduce the size of"
^DD(357.09,.12,21,8,0)="the recognition area which may assist in moving the ""phantom"" outside of"
^DD(357.09,.12,21,9,0)="the recognition area.  This information is then computed and stored in"
^DD(357.09,.12,21,10,0)="the FormSpec file on the VistA server and the workstation."
^DD(357.09,.12,21,11,0)=""
^DD(357.09,.12,21,12,0)="To leave the recognition area the same size as before AICS v3.0 patch "
^DD(357.09,.12,21,13,0)="IBD*3*25 enter a zero.  The default value of the field if there is"
^DD(357.09,.12,21,14,0)="no entry is 5.  The maximum value of the field is 8.  Reducing the size"
^DD(357.09,.12,21,15,0)="will move all 4 sides of the box in by .1mm times the number entered."
^DD(357.09,.12,21,16,0)=""
^DD(357.09,.12,21,17,0)="If you are having the ""phantom"" problem, you should also check the "
^DD(357.09,.12,21,18,0)="value in fields DARKNESS OF DOTS and CLOSENESS OF DOTS in this file."
^DD(357.09,.12,21,19,0)="These fields allow for printing the hand print field outlines at a"
^DD(357.09,.12,21,20,0)="lighter value."
^DD(357.09,.12,23,0)="^^3^3^2990326^^^^"
^DD(357.09,.12,23,1,0)="The value of this field is used in routine IBDFBKS2 to reduce the xy "
^DD(357.09,.12,23,2,0)="coordinates that are computed as the recognition area in the Paper Keyboard"
^DD(357.09,.12,23,3,0)="form spec file. "
^DD(357.09,.12,"DT")="2981120"
^DD(357.09,.13,0)="DARKNESS OF DOTS^NJ2,0^^0;13^K:+X'=X!(X>15)!(X<9)!(X?.E1"".""1N.N) X"
^DD(357.09,.13,3)="Entering a number of less than 12 will reduce the size of dots that print on Encounter Forms.  Type a Number between 9 and 15, 0 Decimal Digits"
^DD(357.09,.13,21,0)="^^23^23^2990319^^^^"
^DD(357.09,.13,21,1,0)="When scanning, some sites have problems with the outline of hand print"
^DD(357.09,.13,21,2,0)="fields not being removed completely.  This results in ""phantom"" entries"
^DD(357.09,.13,21,3,0)="being detected by Paper Keyboard and user validation during recognition."
^DD(357.09,.13,21,4,0)=""
^DD(357.09,.13,21,5,0)="This problem is caused by the interaction of 3 different features, the   "
^DD(357.09,.13,21,6,0)="darkness of the print, the size of the recognition area, and the light"
^DD(357.09,.13,21,7,0)="intensity of the scanner.  This field allows sites to determine the Pen "
^DD(357.09,.13,21,8,0)="Width value of the dots of handprint fields and bubbles when printing on"
^DD(357.09,.13,21,9,0)="laser printers.  Reducing the pen width below 12 will make the dots"
^DD(357.09,.13,21,10,0)="smaller thus making it more likely for the dots to disappear during the "
^DD(357.09,.13,21,11,0)="scanning process."
^DD(357.09,.13,21,12,0)=""
^DD(357.09,.13,21,13,0)="To leave the dot size the same as before AICS v3.0 patch IBD*3*25 "
^DD(357.09,.13,21,14,0)="enter a 12.  The default value of the field if there is no entry "
^DD(357.09,.13,21,15,0)="is 12.  The minimum value of this field is 9, the maximum value is 15."
^DD(357.09,.13,21,16,0)="Changing this value immediately affects the printing of encounter forms."
^DD(357.09,.13,21,17,0)="Test changes by changing the value one number at a time and then viewing"
^DD(357.09,.13,21,18,0)="the form."
^DD(357.09,.13,21,19,0)=""
^DD(357.09,.13,21,20,0)="If you are having the ""phantom"" problem, you should also check the values"
^DD(357.09,.13,21,21,0)="in fields CLOSENESS OF DOTS and REDUCE HANDPRINT RECOGNITION SIZE in this"
^DD(357.09,.13,21,22,0)="file.  These fields allow for printing the hand print field outlines at "
^DD(357.09,.13,21,23,0)="a lighter value and reduce the size of the area used for recognition."
^DD(357.09,.13,"DT")="2980812"
^DD(357.09,.14,0)="CLOSENESS OF DOTS^NJ2,0^^0;14^K:+X'=X!(X>30)!(X<20)!(X?.E1"".""1N.N) X"
^DD(357.09,.14,3)=" Type a Number between 20 and 30, 0 Decimal Digits.  The default value is 25.  A number lower than 25 will reduce ""Phantom"" data found during scanning."
^DD(357.09,.14,21,0)="^^22^22^2990326^^^^"
^DD(357.09,.14,21,1,0)="When scanning, some sites have problems with the outline of hand print"
^DD(357.09,.14,21,2,0)="fields not being removed completely.  This results in ""phantom"" entries"
^DD(357.09,.14,21,3,0)="being detected by Paper Keyboard and user validation during recognition."
^DD(357.09,.14,21,4,0)=""
^DD(357.09,.14,21,5,0)="This problem is caused by the interaction of 3 different features, the   "
^DD(357.09,.14,21,6,0)="darkness of the print, the size of the recognition area, and the light"
^DD(357.09,.14,21,7,0)="intensity of the scanner.  This field allows sites to determine the "
^DD(357.09,.14,21,8,0)="percentage of fill (closeness of dots) that is used to print handprint "
^DD(357.09,.14,21,9,0)="field outlines and bubbles when using a laser printer."
^DD(357.09,.14,21,10,0)=""
^DD(357.09,.14,21,11,0)="To leave the closeness of dots the same as before AICS v3.0 patch "
^DD(357.09,.14,21,12,0)="IBD*3*25 enter a 25.  The default value of the field if there is no entry "
^DD(357.09,.14,21,13,0)="is 25.  The minimum value of this field is 20, the maximum value is 30."
^DD(357.09,.14,21,14,0)="Changing this value immediately affects the printing of encounter forms."
^DD(357.09,.14,21,15,0)="Reducing the closeness of dots below 25 will allow Paper Keyboard to more"
^DD(357.09,.14,21,16,0)="easily remove the dots.  Test changes by changing the value one number at"
^DD(357.09,.14,21,17,0)="a time and then viewing the form."
^DD(357.09,.14,21,18,0)=""
^DD(357.09,.14,21,19,0)="If you are having the ""phantom"" problem, you should also check the values"
^DD(357.09,.14,21,20,0)="in fields DARKNESS OF DOTS and REDUCE HANDPRINT RECOGNITION SIZE in this"
^DD(357.09,.14,21,21,0)="file.  These fields allow for printing of the hand print field outlines "
^DD(357.09,.14,21,22,0)="at a lighter value and improve recognition during scanning."
^DD(357.09,.14,"DT")="2980812"
^DD(357.09,1.01,0)="PURGE NOTIFICATION MAIL GROUP^P3.8'^XMB(3.8,^1;1^Q"
^DD(357.09,1.01,3)="This mail group will automatically receive notification of purge results.  Results are also stored in the AICS PURGE LOG file and may be reviewed.  Mail notification is not required."
^DD(357.09,1.01,21,0)="^^8^8^2951219^^"
^DD(357.09,1.01,21,1,0)="Enter the name of the mail group that should receive the automatic"
^DD(357.09,1.01,21,2,0)="notification of purge results.  Purge results are sent every time"
^DD(357.09,1.01,21,3,0)="the AICS purge runs, regardless of whether or not the auto purge or"
^DD(357.09,1.01,21,4,0)="manual purge is run."
^DD(357.09,1.01,21,5,0)=" "
^DD(357.09,1.01,21,6,0)="If no group is entered then no message will be sent.  Results are"
^DD(357.09,1.01,21,7,0)="always stored in the AICS PURGE LOG file (357.08) and can be reviewed"
^DD(357.09,1.01,21,8,0)="at any time."
^DD(357.09,1.01,"DT")="2951208"
^DD(357.09,1.02,0)="STOP DEFAULTING C/O DATE/TIME^S^1:YES;^1;2^Q"
^DD(357.09,1.02,3)="Enter 'YES' to stop defaulting the checkout date/time during scanning to the scan date/time if no checkout data exists on the form."
^DD(357.09,1.02,21,0)="^^4^4^2970122^"
^DD(357.09,1.02,21,1,0)="If checkout date/time is not present on the Encounter Form, the software"
^DD(357.09,1.02,21,2,0)="will automatically default a checkout date/time to that of the scan date/"
^DD(357.09,1.02,21,3,0)="time.  If you do not wish to default the checkout date/time, you should"
^DD(357.09,1.02,21,4,0)="enter 'YES' in this field to stop the automatic default."
^DD(357.09,1.02,"DT")="2970122"
^DD(357.09,11,0)="PRINT MGR'S QUEUING PARAM NAME^357.091A^^Q;0"
^DD(357.09,11,21,0)="6^^5^5^2990126^^^^"
^DD(357.09,11,21,1,0)="This field is a multiple.  This is the name of the parameter group "
^DD(357.09,11,21,2,0)="for the printing of encounter forms.  The encounter form background"
^DD(357.09,11,21,3,0)="print job will loop through all of the parameter groups and"
^DD(357.09,11,21,4,0)="print the forms for the clinics that are under this parameter"
^DD(357.09,11,21,5,0)="the print job."
^DD(357.09,11,23,0)="^^1^1^2990126^^^^"
^DD(357.09,11,23,1,0)=" "
^DD(357.09,11,"DT")="2971104"
^DD(357.09,"B","BACKGROUND % FOR BUBBLES",.09)=""
^DD(357.09,"B","CLOSENESS OF DOTS",.14)=""
^DD(357.09,"B","DARKNESS OF DOTS",.13)=""
^DD(357.09,"B","DAYS TO PRINT 1010F",.1)=""
^DD(357.09,"B","DAYS TO RETAIN PENDING PAGES",.11)=""
^DD(357.09,"B","DEFAULT DATA ENTRY FORM",.04)=""
^DD(357.09,"B","FILL % FOR BUBBLES",.08)=""
^DD(357.09,"B","FORM TRACKING RETENTION DAYS",.03)=""
^DD(357.09,"B","MAKE APPOINTMENT IN DATA ENTRY",.06)=""
^DD(357.09,"B","NAME",.01)=""
^DD(357.09,"B","NUMBER",.001)=""
^DD(357.09,"B","PASS DATA TO PCE",.07)=""
^DD(357.09,"B","PRINT FORMS FOR INPATIENTS",.05)=""
^DD(357.09,"B","PRINT MGR'S QUEUING PARAM NAME",11)=""
^DD(357.09,"B","PURGE NOTIFICATION MAIL GROUP",1.01)=""
^DD(357.09,"B","RECORDS TO PURGE",.02)=""
^DD(357.09,"B","REDUCE HANDPRINT RECOGNITION SIZE",.12)=""
^DD(357.09,"B","STOP DEFAULTING C/O DATE/TIME",1.02)=""
^DD(357.09,"GL",0,1,.01)=""
^DD(357.09,"GL",0,2,.02)=""
^DD(357.09,"GL",0,3,.03)=""
^DD(357.09,"GL",0,4,.04)=""
^DD(357.09,"GL",0,5,.05)=""
^DD(357.09,"GL",0,6,.06)=""
^DD(357.09,"GL",0,7,.07)=""
^DD(357.09,"GL",0,8,.08)=""
^DD(357.09,"GL",0,9,.09)=""
^DD(357.09,"GL",0,10,.1)=""
^DD(357.09,"GL",0,11,.11)=""
^DD(357.09,"GL",0,12,.12)=""
^DD(357.09,"GL",0,13,.13)=""
^DD(357.09,"GL",0,14,.14)=""
^DD(357.09,"GL",1,1,1.01)=""
^DD(357.09,"GL",1,2,1.02)=""
^DD(357.09,"GL","Q",0,11)=""
^DD(357.09,"IX",.01)=""
^DD(357.09,"RQ",.01)=""
^DD(357.09,"SB",357.091,11)=""
^DD(357.091,0)="PRINT MGR'S QUEUING PARAM NAME SUB-FIELD^^.14^14"
^DD(357.091,0,"DT")="2971229"
^DD(357.091,0,"IX","B",357.091,.01)=""
^DD(357.091,0,"NM","PRINT MGR'S QUEUING PARAM NAME")=""
^DD(357.091,0,"UP")="357.09"
^DD(357.091,.01,0)="PRINT MGR'S QUEUING PARAM NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(357.091,.01,1,0)="^.1"
^DD(357.091,.01,1,1,0)="357.091^B"
^DD(357.091,.01,1,1,1)="S ^IBD(357.09,DA(1),""Q"",""B"",$E(X,1,30),DA)="""""
^DD(357.091,.01,1,1,2)="K ^IBD(357.09,DA(1),""Q"",""B"",$E(X,1,30),DA)"
^DD(357.091,.01,3)="Answer must be 3-30 characters in length."
^DD(357.091,.01,21,0)="^^2^2^2951004^^^"
^DD(357.091,.01,21,1,0)="This field is the name of the parameter group for printing of"
^DD(357.091,.01,21,2,0)="encounter forms when using the background print job."
^DD(357.091,.01,"DT")="2960402"
^DD(357.091,.02,0)="DATE/TIME STARTED^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(357.091,.02,3)="This is the date/time that the print job began."
^DD(357.091,.02,21,0)="^^2^2^2951004^"
^DD(357.091,.02,21,1,0)="This field is the date that the job started.  It is supplied by"
^DD(357.091,.02,21,2,0)="the system when the queued print job begins."
^DD(357.091,.02,"DT")="2951004"
^DD(357.091,.03,0)="DATE/TIME ENDED^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(357.091,.03,3)="This is the date/time the print job finished."
^DD(357.091,.03,21,0)="^^2^2^2951004^"
^DD(357.091,.03,21,1,0)="This field contains the date that the print job finished.  This data"
^DD(357.091,.03,21,2,0)="is supplied by the system when the print job is finished."
^DD(357.091,.03,"DT")="2951004"
^DD(357.091,.04,0)="CLINIC SORT BY^RS^1:DIVISION/CLINIC/PATIENT;2:DIVISION/TERMINAL DIGITS;3:DIVISION/CLINIC/TERMINAL DIGITS;^0;4^Q"
^DD(357.091,.04,3)="Select the way the encounter forms should be sorted when printing."
^DD(357.091,.04,21,0)="^^5^5^2951004^"
^DD(357.091,.04,21,1,0)="This field contains the sort sequence for the printing of encounter"
^DD(357.091,.04,21,2,0)="forms.  Its value can be:"
^DD(357.091,.04,21,3,0)=" 1) Division/Clinic/Patient"
^DD(357.091,.04,21,4,0)=" 2) Division/Terminal Digits"
^DD(357.091,.04,21,5,0)=" 3) Division/Clinic/Terminal Digits"
^DD(357.091,.04,"DT")="2951004"
^DD(357.091,.05,0)="ADD ONS^S^0:NO;1:YES;^0;5^Q"
^DD(357.091,.05,21,0)="^^3^3^2951004^"
^DD(357.091,.05,21,1,0)="This field is a Yes/No field as to whether the print job will be just"
^DD(357.091,.05,21,2,0)="for printing add ons only.  If this field contains 'Yes', the print"
^DD(357.091,.05,21,3,0)="job will only print the add ons for the clinics."
^DD(357.091,.05,"DT")="2951004"
^DD(357.091,.06,0)="CLINIC GROUPS^P357.99'^IBD(357.99,^0;6^Q"
^DD(357.091,.06,1,0)="^.1"
^DD(357.091,.06,1,1,0)="357.09^ACG"
^DD(357.091,.06,1,1,1)="S ^IBD(357.09,""ACG"",$E(X,1,30),DA(1),DA)="""""
^DD(357.091,.06,1,1,2)="K ^IBD(357.09,""ACG"",$E(X,1,30),DA(1),DA)"
^DD(357.091,.06,1,1,"%D",0)="^^3^3^2960220^"
^DD(357.091,.06,1,1,"%D",1,0)="Cross reference of clinic groups"
^DD(357.091,.06,1,1,"%D",2,0)="used to prevent deleting of clinic groups used"
^DD(357.091,.06,1,1,"%D",3,0)="in parameter setup."
^DD(357.091,.06,1,1,"DT")="2960220"
^DD(357.091,.06,21,0)="^^4^4^2951004^"
^DD(357.091,.06,21,1,0)="This field is a pointer to the PRINT MANAGERS CLINIC GROUPS file "
^DD(357.091,.06,21,2,0)="(#357.99).  This stores the name of the clinic group that the"
^DD(357.091,.06,21,3,0)="encounter forms should be printed for.  Each Clinic Group has one"
^DD(357.091,.06,21,4,0)="or more clinics assigned to it."
^DD(357.091,.06,"DT")="2960220"
^DD(357.091,.07,0)="DAYS TO PRINT AHEAD^RNJ2,0^^0;7^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.091,.07,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(357.091,.07,21,0)="^^2^2^2960109^^^"
^DD(357.091,.07,21,1,0)="This field contains a number which will be the number of days ahead"
^DD(357.091,.07,21,2,0)="that the encounter forms will be printed for."
^DD(357.091,.07,23,0)="^^2^2^2960109^^"
^DD(357.091,.07,23,1,0)=" "
^DD(357.091,.07,23,2,0)=" "
^DD(357.091,.07,"DT")="2960109"
^DD(357.091,.08,0)="SPECIAL INSTRUCTIONS^S^R:RUN REGARDLESS;I:IGNORE BOTH WEEKENDS AND HOLIDAYS;W:IGNORE WEEKENDS;H:IGNORE HOLIDAYS;T:TODAY;N:NOT ACTIVE;^0;8^Q"
^DD(357.091,.08,21,0)="^^8^8^2960209^^"
^DD(357.091,.08,21,1,0)="This field will store the special instructions for the printing of"
^DD(357.091,.08,21,2,0)="the encounter forms.  The values for this field can be:"
^DD(357.091,.08,21,3,0)=" (I) Ignore both holidays and weekends"
^DD(357.091,.08,21,4,0)=" (R) Run Regardless"
^DD(357.091,.08,21,5,0)=" (W) Ignore Weekends"
^DD(357.091,.08,21,6,0)=" (H) Ignore Holidays"
^DD(357.091,.08,21,7,0)=" (T) Today"
^DD(357.091,.08,21,8,0)=" (N) Not active"
^DD(357.091,.08,"DT")="2960209"
^DD(357.091,.09,0)="DEVICE^FX^^0;9^N IBL S IBL=X,X=$P(X,"";""),DIC=3.5,DIC(0)=""EQZ"" D ^DIC K:Y'>0!(X="" "") X S:$D(X) X=$G(Y(0,0))_$S(IBL["";"":"";""_$P(IBL,"";"",2,99),1:"""") S DIC=DIE"
^DD(357.091,.09,3)="Answer must be 3-40 characters in length."
^DD(357.091,.09,21,0)="^^3^3^2951004^"
^DD(357.091,.09,21,1,0)="This field contains a free text pointer to the device.  This stores the"
^DD(357.091,.09,21,2,0)="name of the printer where the encounter forms should be printed for"
^DD(357.091,.09,21,3,0)="the print job."
^DD(357.091,.09,"DT")="2960402"
^DD(357.091,.1,0)="PRINT PRIORITY^RNJ6,2^^0;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(357.091,.1,1,0)="^.1"
^DD(357.091,.1,1,1,0)="357.09^SEQ"
^DD(357.091,.1,1,1,1)="S ^IBD(357.09,""SEQ"",$E(X,1,30),DA(1),DA)="""""
^DD(357.091,.1,1,1,2)="K ^IBD(357.09,""SEQ"",$E(X,1,30),DA(1),DA)"
^DD(357.091,.1,1,1,"%D",0)="^^1^1^2951004^"
^DD(357.091,.1,1,1,"%D",1,0)="Cross reference used to find sequences to print encounter forms."
^DD(357.091,.1,1,1,"DT")="2951004"
^DD(357.091,.1,3)="Type a Number between 1 and 999, 2 Decimal Digits"
^DD(357.091,.1,21,0)="^^3^3^2971211^^"
^DD(357.091,.1,21,1,0)="This field contains a number which will be used to sequence the print"
^DD(357.091,.1,21,2,0)="job tasks.  The lower the number, the higher the priority of the job "
^DD(357.091,.1,21,3,0)="and those will be queued to print first."
^DD(357.091,.1,23,0)="^^1^1^2971211^"
^DD(357.091,.1,23,1,0)=" "
^DD(357.091,.1,"DT")="2951004"
^DD(357.091,.11,0)="TASK NUMBER^NJ9,0^^0;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.091,.11,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(357.091,.11,21,0)="^^6^6^2971229^^"
^DD(357.091,.11,21,1,0)="This field contains the task number from taskman, when a print job is"
^DD(357.091,.11,21,2,0)="queued to print.  It will delete the entry when the job finished.  This"
^DD(357.091,.11,21,3,0)="value is supplied by the system.  If the job has been interrupted,"
^DD(357.091,.11,21,4,0)="waiting to run or is running this value will be present.  This field"
^DD(357.091,.11,21,5,0)="is used by the action Queue Status on the Parameter Interface screen."
^DD(357.091,.11,21,6,0)="That action will give the user the status of the queued job."
^DD(357.091,.11,23,0)="^^1^1^2971229^"
^DD(357.091,.11,23,1,0)=" "
^DD(357.091,.11,"DT")="2951004"
^DD(357.091,.12,0)="LAST DAY PRINTED^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(357.091,.12,21,0)="^^2^2^2951004^"
^DD(357.091,.12,21,1,0)="This field contains the last day teh encounter forms were printed for."
^DD(357.091,.12,21,2,0)="This will keep track so that the date does not get printed again."
^DD(357.091,.12,"DT")="2951004"
^DD(357.091,.13,0)="TIME QUEUED^FX^^0;13^K:$L(X)>4!($L(X)<4)!'(X?4N) X I $D(X),+$E(X,1,2)>24!(+$E(X,3,4)>59)!(+X>2400) K X"
^DD(357.091,.13,3)="Enter time as a 4 digit number from 0000 - 2400 (military time).  Answer must be 4 numbers in length."
^DD(357.091,.13,21,0)="^^4^4^2990126^^^^"
^DD(357.091,.13,21,1,0)="This field stores the time that the job will queue to print. The user"
^DD(357.091,.13,21,2,0)="will supply the time as a 4 digit number from 0000 - 2400 (military time)."
^DD(357.091,.13,21,3,0)="This will allow the user to stagger the times certain print jobs start"
^DD(357.091,.13,21,4,0)="to print to different printers."
^DD(357.091,.13,23,0)="^^1^1^2990126^^^^"
^DD(357.091,.13,23,1,0)=" "
^DD(357.091,.13,"DT")="2990126"
^DD(357.091,.14,0)="PREVIOUS TASK NUMBER^NJ9,0^^0;14^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.091,.14,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(357.091,.14,21,0)="^^5^5^2971229^"
^DD(357.091,.14,21,1,0)="This field holds the previous task number of the print job if the job"
^DD(357.091,.14,21,2,0)="has not finished the task (due to paper jam etc.) before the job gets"
^DD(357.091,.14,21,3,0)="tasked again.  The current job will be the most recent task number and"
^DD(357.091,.14,21,4,0)="the previous task number will be the task number of the job that has"
^DD(357.091,.14,21,5,0)="not yet finished."
^DD(357.091,.14,"DT")="2971229"
^DD(357.091,"B","ADD ONS",.05)=""
^DD(357.091,"B","CLINIC GROUPS",.06)=""
^DD(357.091,"B","CLINIC SORT BY",.04)=""
^DD(357.091,"B","DATE/TIME ENDED",.03)=""
^DD(357.091,"B","DATE/TIME STARTED",.02)=""
^DD(357.091,"B","DAYS TO PRINT AHEAD",.07)=""
^DD(357.091,"B","DEVICE",.09)=""
^DD(357.091,"B","LAST DAY PRINTED",.12)=""
^DD(357.091,"B","PREVIOUS TASK NUMBER",.14)=""
^DD(357.091,"B","PRINT MGR'S QUEUING PARAM NAME",.01)=""
^DD(357.091,"B","PRINT PRIORITY",.1)=""
^DD(357.091,"B","SPECIAL INSTRUCTIONS",.08)=""
^DD(357.091,"B","TASK NUMBER",.11)=""
^DD(357.091,"B","TIME QUEUED",.13)=""
^DD(357.091,"GL",0,1,.01)=""
^DD(357.091,"GL",0,2,.02)=""
^DD(357.091,"GL",0,3,.03)=""
^DD(357.091,"GL",0,4,.04)=""
^DD(357.091,"GL",0,5,.05)=""
^DD(357.091,"GL",0,6,.06)=""
^DD(357.091,"GL",0,7,.07)=""
^DD(357.091,"GL",0,8,.08)=""
^DD(357.091,"GL",0,9,.09)=""
^DD(357.091,"GL",0,10,.1)=""
^DD(357.091,"GL",0,11,.11)=""
^DD(357.091,"GL",0,12,.12)=""
^DD(357.091,"GL",0,13,.13)=""
^DD(357.091,"GL",0,14,.14)=""
^DD(357.091,"IX",.01)=""
^DD(357.091,"IX",.06)=""
^DD(357.091,"IX",.1)=""
^DD(357.091,"RQ",.04)=""
^DD(357.091,"RQ",.07)=""
^DD(357.091,"RQ",.1)=""
^DD(357.1,0)="FIELD^^4^15"
^DD(357.1,0,"DDA")="N"
^DD(357.1,0,"DIK")="IBDX1"
^DD(357.1,0,"DIKOLD")="IBDX1"
^DD(357.1,0,"DT")="2961015"
^DD(357.1,0,"ID",.02)="W """""
^DD(357.1,0,"IX","B",357.1,.01)=""
^DD(357.1,0,"IX","C",357.1,.02)=""
^DD(357.1,0,"IX","D",357.1,.14)=""
^DD(357.1,0,"NM","ENCOUNTER FORM BLOCK")=""
^DD(357.1,0,"PT",357.2,.02)=""
^DD(357.1,0,"PT",357.5,.02)=""
^DD(357.1,0,"PT",357.7,.06)=""
^DD(357.1,0,"PT",357.8,.02)=""
^DD(357.1,0,"PT",357.93,.08)=""
^DD(357.1,0,"PT",358.94,.08)=""
^DD(357.1,0,"PT",359.94,.08)=""
^DD(357.1,0,"VR")="3.0"
^DD(357.1,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.1,.01,0)="NAME^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(357.1,.01,1,0)="^.1"
^DD(357.1,.01,1,1,0)="357.1^B"
^DD(357.1,.01,1,1,1)="S ^IBE(357.1,""B"",$E(X,1,30),DA)="""""
^DD(357.1,.01,1,1,2)="K ^IBE(357.1,""B"",$E(X,1,30),DA)"
^DD(357.1,.01,3)="The block name must be 3-30 uppercase characters."
^DD(357.1,.01,21,0)="^^3^3^2940610^^"
^DD(357.1,.01,21,1,0)=" "
^DD(357.1,.01,21,2,0)=" "
^DD(357.1,.01,21,3,0)="The name of the block."
^DD(357.1,.01,"DEL",1,0)="I '$G(IBDEVICE(""LISTMAN"")) W ""...Encounter Form Blocks can only be deleted through the Encounter Form Utilities!"""
^DD(357.1,.01,"DT")="2940725"
^DD(357.1,.02,0)="FORM^RP357'^IBE(357,^0;2^Q"
^DD(357.1,.02,1,0)="^.1"
^DD(357.1,.02,1,1,0)="357.1^C"
^DD(357.1,.02,1,1,1)="S ^IBE(357.1,""C"",$E(X,1,30),DA)="""""
^DD(357.1,.02,1,1,2)="K ^IBE(357.1,""C"",$E(X,1,30),DA)"
^DD(357.1,.02,1,1,"%D",0)="^^1^1^2921116^"
^DD(357.1,.02,1,1,"%D",1,0)="Used to find all the blocks belonging to a particular form."
^DD(357.1,.02,1,1,"DT")="2921116"
^DD(357.1,.02,3)="What form should this block appear on?"
^DD(357.1,.02,21,0)="^^2^2^2930527^"
^DD(357.1,.02,21,1,0)=" "
^DD(357.1,.02,21,2,0)="The form the block appears on."
^DD(357.1,.02,"DT")="2921116"
^DD(357.1,.04,0)="BLOCK'S STARTING ROW^RNJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.1,.04,.1)="WHAT ROW SHOULD THE BLOCK START IN?"
^DD(357.1,.04,2)="S Y(0)=Y S Y=(+Y)+1"
^DD(357.1,.04,2.1)="S Y=(+Y)+1"
^DD(357.1,.04,3)="What line should this block begin on?"
^DD(357.1,.04,21,0)="^^1^1^2940216^"
^DD(357.1,.04,21,1,0)="The row  on the encounter form that the block starts on."
^DD(357.1,.04,23,0)="^^4^4^2940216^"
^DD(357.1,.04,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.1,.04,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.1,.04,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.1,.04,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.1,.04,"DT")="2930715"
^DD(357.1,.05,0)="BLOCK'S STARTING COLUMN^RNJ3,0XO^^0;5^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.1,.05,.1)="WHAT COLUMN SHOULD THE BLOCK START IN?"
^DD(357.1,.05,2)="S Y(0)=Y S Y=(+Y)+1"
^DD(357.1,.05,2.1)="S Y=(+Y)+1"
^DD(357.1,.05,3)="What column should this block begin on?"
^DD(357.1,.05,21,0)="^^1^1^2930715^^"
^DD(357.1,.05,21,1,0)="The column on the encounter form that the block starts on."
^DD(357.1,.05,23,0)="^^4^4^2930715^"
^DD(357.1,.05,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.1,.05,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.1,.05,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.1,.05,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.1,.05,"DT")="2930715"
^DD(357.1,.06,0)="WIDTH IN CHARACTERS^RNJ3,0^^0;6^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.1,.06,.1)="HOW MANY CHARACTERS WIDE SHOULD THE BLOCK BE?"
^DD(357.1,.06,3)="How many characters wide should this block be?"
^DD(357.1,.06,21,0)="^^2^2^2930527^"
^DD(357.1,.06,21,1,0)=" "
^DD(357.1,.06,21,2,0)="The width of the block, measured in the number of characters across."
^DD(357.1,.06,"DT")="2930415"
^DD(357.1,.07,0)="HEIGHT IN LINES^RNJ3,0^^0;7^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.1,.07,.1)="HOW MANY LINES HIGH SHOULD THE BLOCK BE?"
^DD(357.1,.07,3)="How many lines high should this block be?"
^DD(357.1,.07,21,0)="^^2^2^2930527^"
^DD(357.1,.07,21,1,0)=" "
^DD(357.1,.07,21,2,0)="The height of the block, measured by the number of lines it takes up."
^DD(357.1,.07,"DT")="2930415"
^DD(357.1,.1,0)="OUTLINE TYPE^RS^1:SOLID LINE;2:INVISIBLE;^0;10^Q"
^DD(357.1,.1,.1)="OUTLINE TYPE (SOLID/INVISIBLE)"
^DD(357.1,.1,3)="Enter '1' if the block should have a box around it, '2' if not."
^DD(357.1,.1,21,0)="^^2^2^2930527^"
^DD(357.1,.1,21,1,0)=" "
^DD(357.1,.1,21,2,0)="How the block is outlined on the form."
^DD(357.1,.1,"DT")="2930415"
^DD(357.1,.11,0)="BLOCK HEADER^F^^0;11^K:$L(X)>60!($L(X)<1) X"
^DD(357.1,.11,.1)="WHAT HEADER SHOULD APPEAR AT THE TOP OF THE BLOCK? (OPTIONAL)"
^DD(357.1,.11,3)="What text should appear at the top of the block?"
^DD(357.1,.11,21,0)="^^2^2^2950927^^"
^DD(357.1,.11,21,1,0)=" "
^DD(357.1,.11,21,2,0)="The text appearing at the top of the block."
^DD(357.1,.11,"DT")="2940216"
^DD(357.1,.12,0)="HEADER APPEARANCE^FX^^0;12^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""UBRC""'[$E(X,1))!(""UBRC""'[$E(X,2))!(""UBRC""'[$E(X,3))!(""UBRC""'[$E(X,4)) X"
^DD(357.1,.12,.1)="HOW SHOULD THE BLOCK HEADER APPEAR? CHOOSE FROM {U,B,R,C}"
^DD(357.1,.12,3)="B=bold,U=underline,R=reverse,C=center. You can enter any combination of {B,U,R,C}."
^DD(357.1,.12,21,0)="^^2^2^2940531^^^"
^DD(357.1,.12,21,1,0)=" "
^DD(357.1,.12,21,2,0)="This field determines the appearance of the block's header."
^DD(357.1,.12,"DT")="2940531"
^DD(357.1,.13,0)="BRIEF DESCRIPTION^RF^^0;13^K:$L(X)>80!($L(X)<1) X"
^DD(357.1,.13,.1)="ENTER A BRIEF DESCRIPTION OF THE USE & CONTENTS OF THE BLOCK"
^DD(357.1,.13,3)="Answer must be 1-80 characters in length."
^DD(357.1,.13,21,0)="^^2^2^2930607^"
^DD(357.1,.13,21,1,0)=" "
^DD(357.1,.13,21,2,0)="A brief description of the contents or use of the block."
^DD(357.1,.13,"DT")="2930415"
^DD(357.1,.14,0)="TOOLKIT ORDER^NJ6,2^^0;14^K:+X'=X!(X>999.99)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(357.1,.14,1,0)="^.1"
^DD(357.1,.14,1,1,0)="357.1^D^MUMPS"
^DD(357.1,.14,1,1,1)="S:$P($G(^IBE(357,+$P(^IBE(357.1,DA,0),U,2),0)),U)=""TOOL KIT"" ^IBE(357.1,""D"",$E(X,1,30),DA)="""""
^DD(357.1,.14,1,1,2)="K ^IBE(357.1,""D"",$E(X,1,30),DA)"
^DD(357.1,.14,1,1,"%D",0)="^^2^2^2951023^"
^DD(357.1,.14,1,1,"%D",1,0)="This index is used to locate all the toolkit blocks that can be used"
^DD(357.1,.14,1,1,"%D",2,0)="as templates to create a new block to be added to a form."
^DD(357.1,.14,1,1,"DT")="2951023"
^DD(357.1,.14,3)="Enter a number greater than 0 if this block is part of the toolkit. The number will determine its listed order."
^DD(357.1,.14,21,0)="^^3^3^2950913^"
^DD(357.1,.14,21,1,0)="A number>0 in this field means that the block is part of the toolkit."
^DD(357.1,.14,21,2,0)="The value determines the order that the block will be listed to the"
^DD(357.1,.14,21,3,0)="screen that displays the toolkit blocks."
^DD(357.1,.14,"DT")="2951023"
^DD(357.1,1,0)="COMPILED STRINGS^357.11A^^S;0"
^DD(357.1,1,21,0)="^^3^3^2931117^^"
^DD(357.1,1,21,1,0)="Contains a compiled list of the calls, along with the arguments, that should"
^DD(357.1,1,21,2,0)="be made to the routine that prints strings to the form. Before printing, the"
^DD(357.1,1,21,3,0)="block offset is added to the string position."
^DD(357.1,2,0)="COMPILED VERTICAL LINES^357.12A^^V;0"
^DD(357.1,2,21,0)="^^3^3^2940216^"
^DD(357.1,2,21,1,0)="A compiled list of the vertical lines that are needed to print the block."
^DD(357.1,2,21,2,0)="The arguments to the routine that prints the line are included. The"
^DD(357.1,2,21,3,0)="block's offset is must be added to the line's position."
^DD(357.1,3,0)="COMPILED BUBBLES^357.13^^B;0"
^DD(357.1,3,21,0)="^^3^3^2961015^^^^"
^DD(357.1,3,21,1,0)="A compiled list of the bubbles appearing in the block. The arguments to the "
^DD(357.1,3,21,2,0)="routine that prints the bubble are included. The block's offset must be added"
^DD(357.1,3,21,3,0)="to the bubbles position."
^DD(357.1,4,0)="COMPILED HAND PRINT FIELDS^357.14^^H;0"
^DD(357.1,4,21,0)="^^3^3^2951017^"
^DD(357.1,4,21,1,0)="A compiled list of the hand print fields appearing in the block. The"
^DD(357.1,4,21,2,0)="arguments to the routine that prints the hand print fields are included."
^DD(357.1,4,21,3,0)="The block's offset must be added to the hand print field's position."
^DD(357.1,"B","BLOCK HEADER",.11)=""
^DD(357.1,"B","BLOCK'S STARTING COLUMN",.05)=""
^DD(357.1,"B","BLOCK'S STARTING ROW",.04)=""
^DD(357.1,"B","BRIEF DESCRIPTION",.13)=""
^DD(357.1,"B","COMPILED BUBBLES",3)=""
^DD(357.1,"B","COMPILED HAND PRINT FIELDS",4)=""
^DD(357.1,"B","COMPILED STRINGS",1)=""
^DD(357.1,"B","COMPILED VERTICAL LINES",2)=""
^DD(357.1,"B","FORM",.02)=""
^DD(357.1,"B","HEADER APPEARANCE",.12)=""
^DD(357.1,"B","HEIGHT IN LINES",.07)=""
^DD(357.1,"B","NAME",.01)=""
^DD(357.1,"B","OUTLINE TYPE",.1)=""
^DD(357.1,"B","OUTLINE TYPE (SOLID/INVISIBLE)",.1)="1"
^DD(357.1,"B","TOOLKIT ORDER",.14)=""
^DD(357.1,"B","WIDTH IN CHARACTERS",.06)=""
^DD(357.1,"GL",0,1,.01)=""
^DD(357.1,"GL",0,2,.02)=""
^DD(357.1,"GL",0,4,.04)=""
^DD(357.1,"GL",0,5,.05)=""
^DD(357.1,"GL",0,6,.06)=""
^DD(357.1,"GL",0,7,.07)=""
^DD(357.1,"GL",0,10,.1)=""
^DD(357.1,"GL",0,11,.11)=""
^DD(357.1,"GL",0,12,.12)=""
^DD(357.1,"GL",0,13,.13)=""
^DD(357.1,"GL",0,14,.14)=""
^DD(357.1,"GL","B",0,3)=""
^DD(357.1,"GL","H",0,4)=""
^DD(357.1,"GL","S",0,1)=""
^DD(357.1,"GL","V",0,2)=""
^DD(357.1,"IX",.01)=""
^DD(357.1,"IX",.02)=""
^DD(357.1,"IX",.14)=""
^DD(357.1,"RQ",.01)=""
^DD(357.1,"RQ",.02)=""
^DD(357.1,"RQ",.04)=""
^DD(357.1,"RQ",.05)=""
^DD(357.1,"RQ",.06)=""
^DD(357.1,"RQ",.07)=""
^DD(357.1,"RQ",.1)=""
^DD(357.1,"RQ",.13)=""
^DD(357.1,"SB",357.11,1)=""
^DD(357.1,"SB",357.12,2)=""
^DD(357.1,"SB",357.13,3)=""
^DD(357.1,"SB",357.14,4)=""
^DD(357.11,0)="COMPILED STRINGS SUB-FIELD^^.05^5"
^DD(357.11,0,"DIK")="IBDX1"
^DD(357.11,0,"DT")="2931115"
^DD(357.11,0,"IX","B",357.11,.01)=""
^DD(357.11,0,"NM","COMPILED STRINGS")=""
^DD(357.11,0,"UP")="357.1"
^DD(357.11,.01,0)="STRING ROW^NJ3,0^^0;1^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.11,.01,1,0)="^.1"
^DD(357.11,.01,1,1,0)="357.11^B"
^DD(357.11,.01,1,1,1)="S ^IBE(357.1,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(357.11,.01,1,1,2)="K ^IBE(357.1,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(357.11,.01,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.11,.01,21,0)="^^1^1^2931117^"
^DD(357.11,.01,21,1,0)="The row that the string should be printed at."
^DD(357.11,.01,"DT")="2931117"
^DD(357.11,.02,0)="COLUMN^RNJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.11,.02,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.11,.02,21,0)="^^1^1^2931117^"
^DD(357.11,.02,21,1,0)="The column that the string should be printed at."
^DD(357.11,.02,"DT")="2931115"
^DD(357.11,.03,0)="OPTIONS^F^^0;3^K:$L(X)>4!($L(X)<1) X"
^DD(357.11,.03,3)="Answer must be 1-4 characters in length."
^DD(357.11,.03,21,0)="^^1^1^2931117^"
^DD(357.11,.03,21,1,0)="The display characteristics that the string should have."
^DD(357.11,.03,"DT")="2931115"
^DD(357.11,.04,0)="WIDTH^NJ3,0^^0;4^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.11,.04,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.11,.04,21,0)="^^1^1^2931117^"
^DD(357.11,.04,21,1,0)="The width that the printed string should occupy. (optional)"
^DD(357.11,.04,"DT")="2931115"
^DD(357.11,.05,0)="STRING^F^^0;5^K:$L(X)>200!($L(X)<1) X"
^DD(357.11,.05,3)="Answer must be 1-200 characters in length."
^DD(357.11,.05,21,0)="^^1^1^2931117^"
^DD(357.11,.05,21,1,0)="The string that should be printed."
^DD(357.11,.05,"DT")="2931115"
^DD(357.11,"B","COLUMN",.02)=""
^DD(357.11,"B","OPTIONS",.03)=""
^DD(357.11,"B","STRING",.05)=""
^DD(357.11,"B","STRING ROW",.01)=""
^DD(357.11,"B","WIDTH",.04)=""
^DD(357.11,"GL",0,1,.01)=""
^DD(357.11,"GL",0,2,.02)=""
^DD(357.11,"GL",0,3,.03)=""
^DD(357.11,"GL",0,4,.04)=""
^DD(357.11,"GL",0,5,.05)=""
^DD(357.11,"IX",.01)=""
^DD(357.11,"RQ",.02)=""
^DD(357.12,0)="COMPILED VERTICAL LINES SUB-FIELD^^.04^4"
^DD(357.12,0,"DIK")="IBDX1"
^DD(357.12,0,"DT")="2931117"
^DD(357.12,0,"IX","B",357.12,.01)=""
^DD(357.12,0,"NM","COMPILED VERTICAL LINES")=""
^DD(357.12,0,"UP")="357.1"
^DD(357.12,.01,0)="VERTICAL LINE ROW^NJ3,0^^0;1^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.12,.01,1,0)="^.1"
^DD(357.12,.01,1,1,0)="357.12^B"
^DD(357.12,.01,1,1,1)="S ^IBE(357.1,DA(1),""V"",""B"",$E(X,1,30),DA)="""""
^DD(357.12,.01,1,1,2)="K ^IBE(357.1,DA(1),""V"",""B"",$E(X,1,30),DA)"
^DD(357.12,.01,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.12,.01,21,0)="^^1^1^2931117^"
^DD(357.12,.01,21,1,0)="The row that the line should begin at."
^DD(357.12,.01,"DT")="2931117"
^DD(357.12,.02,0)="COLUMN^RNJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.12,.02,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.12,.02,21,0)="^^1^1^2931117^"
^DD(357.12,.02,21,1,0)="The column that the line should begin at."
^DD(357.12,.02,"DT")="2931117"
^DD(357.12,.03,0)="LENGTH^RNJ3,0^^0;3^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.12,.03,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.12,.03,21,0)="^^1^1^2931117^"
^DD(357.12,.03,21,1,0)="The length of the line."
^DD(357.12,.03,"DT")="2931117"
^DD(357.12,.04,0)="CHARACTER^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(357.12,.04,3)="Answer must be 1-30 characters in length."
^DD(357.12,.04,21,0)="^^1^1^2931117^"
^DD(357.12,.04,21,1,0)="The string (probably a single character) to use to create the string. (optional)"
^DD(357.12,.04,"DT")="2931117"
^DD(357.12,"B","CHARACTER",.04)=""
^DD(357.12,"B","COLUMN",.02)=""
^DD(357.12,"B","LENGTH",.03)=""
^DD(357.12,"B","VERTICAL LINE ROW",.01)=""
^DD(357.12,"GL",0,1,.01)=""
^DD(357.12,"GL",0,2,.02)=""
^DD(357.12,"GL",0,3,.03)=""
^DD(357.12,"GL",0,4,.04)=""
^DD(357.12,"IX",.01)=""
^DD(357.12,"RQ",.02)=""
^DD(357.12,"RQ",.03)=""
^DD(357.13,0)="COMPILED BUBBLES SUB-FIELD^^1^14"
^DD(357.13,0,"DIK")="IBDX1"
^DD(357.13,0,"DT")="2961015"
^DD(357.13,0,"IX","B",357.13,.01)=""
^DD(357.13,0,"NM","COMPILED BUBBLES")=""
^DD(357.13,0,"UP")="357.1"
^DD(357.13,.01,0)="ROW^MNJ3,0^^0;1^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.13,.01,1,0)="^.1"
^DD(357.13,.01,1,1,0)="357.13^B"
^DD(357.13,.01,1,1,1)="S ^IBE(357.1,DA(1),""B"",$E(X,1,30),DA)="""""
^DD(357.13,.01,1,1,2)="K ^IBE(357.1,DA(1),""B"",$E(X,1,30),DA)"
^DD(357.13,.01,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.13,.01,"DT")="2940613"
^DD(357.13,.02,0)="COLUMN^RNJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.13,.02,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.13,.02,"DT")="2940613"
^DD(357.13,.03,0)="TYPE OF DATA^*P357.6'^IBE(357.6,^0;3^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.13,.03,3)="What type of data does the bubble represent?"
^DD(357.13,.03,12)="Must be an available package for accepting input."
^DD(357.13,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"""
^DD(357.13,.03,21,0)="^^2^2^2940725^^^^"
^DD(357.13,.03,21,1,0)="The value associated with the bubble is passed to the package interface"
^DD(357.13,.03,21,2,0)="to pass the data to DHCP."
^DD(357.13,.03,"DT")="2950912"
^DD(357.13,.04,0)="VALUE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(357.13,.04,3)="Answer must be 1-30 characters in length."
^DD(357.13,.04,"DT")="2940613"
^DD(357.13,.05,0)="FIELD NAME^RF^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(357.13,.05,3)="Answer must be 3-30 characters in length."
^DD(357.13,.05,"DT")="2940823"
^DD(357.13,.06,0)="FIELD ID^RF^^0;6^K:$L(X)>10!($L(X)<2) X"
^DD(357.13,.06,3)="Answer must be 2-10 characters in length."
^DD(357.13,.06,"DT")="2940823"
^DD(357.13,.07,0)="SELECTION RULE^RS^0:ANY NUMBER;1:EXACTLY ONE;2:AT MOST ONE;3:AT LEAST ONE;^0;7^Q"
^DD(357.13,.07,3)="How should the user be allowed to select from the available choices?"
^DD(357.13,.07,"DT")="2940823"
^DD(357.13,.08,0)="DISPLAYED TEXT^RF^^0;8^K:$L(X)>97!($L(X)<1) X"
^DD(357.13,.08,3)="Answer must be 1-97 characters in length."
^DD(357.13,.08,"DT")="2961015"
^DD(357.13,.09,0)="DISPLAYED HEADER^F^^0;9^K:$L(X)>40!($L(X)<1) X"
^DD(357.13,.09,3)="Answer must be 1-40 characters in length."
^DD(357.13,.09,"DT")="2941019"
^DD(357.13,.1,0)="DATA QUALIFIER^P357.98'^IBD(357.98,^0;10^Q"
^DD(357.13,.1,3)="What data qualifier, if any, applies to the data indicated by this bubble?"
^DD(357.13,.1,"DT")="2941019"
^DD(357.13,.11,0)="DYNAMIC?^S^0:NO;1:YES;^0;11^Q"
^DD(357.13,.11,3)="Enter YES if the data associated with the a bubble is stored in Form Tracking."
^DD(357.13,.11,"DT")="2950126"
^DD(357.13,.12,0)="ITEM COUNT^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.13,.12,3)="In what sequence does this item occur on the list?"
^DD(357.13,.12,"DT")="2950313"
^DD(357.13,.13,0)="QUANTITY^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.13,.13,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(357.13,.13,21,0)="^^3^3^2961015^"
^DD(357.13,.13,21,1,0)="This field will be populated if more than one occurrence of the entry"
^DD(357.13,.13,21,2,0)="is required.  The quantity field will contain the number of occurrences"
^DD(357.13,.13,21,3,0)="to pass to PCE for the value referenced."
^DD(357.13,.13,"DT")="2961015"
^DD(357.13,1,0)="SUBHEADER^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(357.13,1,3)="Answer must be 1-250 characters in length."
^DD(357.13,1,21,0)="^^2^2^2951002^"
^DD(357.13,1,21,1,0)="The subheader will be concatenated with the narrative before passing it to"
^DD(357.13,1,21,2,0)="PCE."
^DD(357.13,1,"DT")="2951002"
^DD(357.13,"B","COLUMN",.02)=""
^DD(357.13,"B","DATA QUALIFIER",.1)=""
^DD(357.13,"B","DISPLAYED HEADER",.09)=""
^DD(357.13,"B","DISPLAYED TEXT",.08)=""
^DD(357.13,"B","DYNAMIC?",.11)=""
^DD(357.13,"B","FIELD ID",.06)=""
^DD(357.13,"B","FIELD NAME",.05)=""
^DD(357.13,"B","ITEM COUNT",.12)=""
^DD(357.13,"B","QUANTITY",.13)=""
^DD(357.13,"B","ROW",.01)=""
^DD(357.13,"B","SELECTION RULE",.07)=""
^DD(357.13,"B","SUBHEADER",1)=""
^DD(357.13,"B","TYPE OF DATA",.03)=""
^DD(357.13,"B","VALUE",.04)=""
^DD(357.13,"GL",0,1,.01)=""
^DD(357.13,"GL",0,2,.02)=""
^DD(357.13,"GL",0,3,.03)=""
^DD(357.13,"GL",0,4,.04)=""
^DD(357.13,"GL",0,5,.05)=""
^DD(357.13,"GL",0,6,.06)=""
^DD(357.13,"GL",0,7,.07)=""
^DD(357.13,"GL",0,8,.08)=""
^DD(357.13,"GL",0,9,.09)=""
^DD(357.13,"GL",0,10,.1)=""
^DD(357.13,"GL",0,11,.11)=""
^DD(357.13,"GL",0,12,.12)=""
^DD(357.13,"GL",0,13,.13)=""
^DD(357.13,"GL",1,1,1)=""
^DD(357.13,"IX",.01)=""
^DD(357.13,"RQ",.02)=""
^DD(357.13,"RQ",.05)=""
^DD(357.13,"RQ",.06)=""
^DD(357.13,"RQ",.07)=""
^DD(357.13,"RQ",.08)=""
^DD(357.14,0)="COMPILED HAND PRINT FIELDS SUB-FIELD^^.17^13"
^DD(357.14,0,"DIK")="IBDX1"
^DD(357.14,0,"DT")="2950724"
^DD(357.14,0,"IX","B",357.14,.01)=""
^DD(357.14,0,"NM","COMPILED HAND PRINT FIELDS")=""
^DD(357.14,0,"UP")="357.1"
^DD(357.14,.01,0)="ROW FOR HAND PRINT^MNJ3,0^^0;1^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.14,.01,1,0)="^.1"
^DD(357.14,.01,1,1,0)="357.14^B"
^DD(357.14,.01,1,1,1)="S ^IBE(357.1,DA(1),""H"",""B"",$E(X,1,30),DA)="""""
^DD(357.14,.01,1,1,2)="K ^IBE(357.1,DA(1),""H"",""B"",$E(X,1,30),DA)"
^DD(357.14,.01,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.14,.01,"DT")="2940725"
^DD(357.14,.02,0)="COLUMN FOR HAND PRINT^RNJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.14,.02,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.14,.02,"DT")="2940725"
^DD(357.14,.03,0)="WIDTH^RNJ3,0^^0;3^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.14,.03,3)="Type a Number between 1 and 200, 0 Decimal Digits"
^DD(357.14,.03,"DT")="2940725"
^DD(357.14,.04,0)="TYPE OF DATA^R*P357.6'^IBE(357.6,^0;4^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.14,.04,3)="What data will be printed to this field?"
^DD(357.14,.04,12)="Allows only available interfaces for accepting input."
^DD(357.14,.04,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"""
^DD(357.14,.04,"DT")="2950912"
^DD(357.14,.06,0)="NUMBER OF HAND PRINT LINES^RNJ3,0^^0;6^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.14,.06,3)="How many lines of hand print?"
^DD(357.14,.06,"DT")="2940816"
^DD(357.14,.07,0)="FIELD ID^RF^^0;7^K:$L(X)>10!($L(X)<2) X"
^DD(357.14,.07,3)="Answer must be 2-10 characters in length."
^DD(357.14,.07,21,0)="^^1^1^2940912^"
^DD(357.14,.07,21,1,0)="Identifies the form block object that contains the print field."
^DD(357.14,.07,"DT")="2940912"
^DD(357.14,.08,0)="FIELD NAME^RF^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(357.14,.08,3)="Answer must be 3-30 characters in length."
^DD(357.14,.08,21,0)="^^1^1^2940912^"
^DD(357.14,.08,21,1,0)="The name of the form block object that contains the print field."
^DD(357.14,.08,"DT")="2950427"
^DD(357.14,.09,0)="DISPLAYED HEADER^F^^0;9^K:$L(X)>40!($L(X)<1) X"
^DD(357.14,.09,3)="Answer must be 1-40 characters in length."
^DD(357.14,.09,"DT")="2941019"
^DD(357.14,.1,0)="DATA QUALIFIER^P357.98'^IBD(357.98,^0;10^Q"
^DD(357.14,.1,3)="What data qualifier, if any, applies to data entered in this field?"
^DD(357.14,.1,"DT")="2941019"
^DD(357.14,.12,0)="ITEM NUMBER^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.14,.12,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(357.14,.12,"DT")="2950427"
^DD(357.14,.14,0)="PRINT?^S^0:NO, DO NOT PRINT;1:YES, NOT FOR ICR;2:YES, FOR ICR;^0;14^Q"
^DD(357.14,.14,"DT")="2950427"
^DD(357.14,.15,0)="READ?^S^0:NO, DO NOT READ;1:YES, READ WITHOUT ICR;2:YES, READ WITH ICR;3:YES, ICR PRINT FORMAT, READ WITHOUT ICR;^0;15^Q"
^DD(357.14,.15,"DT")="2950503"
^DD(357.14,.17,0)="DATA ELEMENT^P359.1'^IBE(359.1,^0;17^Q"
^DD(357.14,.17,"DT")="2950427"
^DD(357.14,"B","COLUMN FOR HAND PRINT",.02)=""
^DD(357.14,"B","DATA ELEMENT",.17)=""
^DD(357.14,"B","DATA QUALIFIER",.1)=""
^DD(357.14,"B","DISPLAYED HEADER",.09)=""
^DD(357.14,"B","FIELD ID",.07)=""
^DD(357.14,"B","FIELD NAME",.08)=""
^DD(357.14,"B","ITEM NUMBER",.12)=""
^DD(357.14,"B","NUMBER OF HAND PRINT LINES",.06)=""
^DD(357.14,"B","PRINT?",.14)=""
^DD(357.14,"B","READ?",.15)=""
^DD(357.14,"B","ROW FOR HAND PRINT",.01)=""
^DD(357.14,"B","TYPE OF DATA",.04)=""
^DD(357.14,"B","WIDTH",.03)=""
^DD(357.14,"GL",0,1,.01)=""
^DD(357.14,"GL",0,2,.02)=""
^DD(357.14,"GL",0,3,.03)=""
^DD(357.14,"GL",0,4,.04)=""
^DD(357.14,"GL",0,6,.06)=""
^DD(357.14,"GL",0,7,.07)=""
^DD(357.14,"GL",0,8,.08)=""
^DD(357.14,"GL",0,9,.09)=""
^DD(357.14,"GL",0,10,.1)=""
^DD(357.14,"GL",0,12,.12)=""
^DD(357.14,"GL",0,14,.14)=""
^DD(357.14,"GL",0,15,.15)=""
^DD(357.14,"GL",0,17,.17)=""
^DD(357.14,"IX",.01)=""
^DD(357.14,"RQ",.02)=""
^DD(357.14,"RQ",.03)=""
^DD(357.14,"RQ",.04)=""
^DD(357.14,"RQ",.06)=""
^DD(357.14,"RQ",.07)=""
^DD(357.14,"RQ",.08)=""
^DD(357.2,0)="FIELD^^2^19"
^DD(357.2,0,"DDA")="N"
^DD(357.2,0,"DIK")="IBDX2"
^DD(357.2,0,"DIKOLD")="IBDX2"
^DD(357.2,0,"DT")="2950424"
^DD(357.2,0,"ID",.02)="W """""
^DD(357.2,0,"ID",.11)="W """""
^DD(357.2,0,"ID","WRITE")="N IBDBLK S IBDBLK=+$P(^(0),U,2) D EN^DDIOL(""   Block: ""_$P($G(^IBE(357.1,IBDBLK,0)),U)_""   Form: ""_$P($G(^IBE(357,+$P($G(^IBE(357.1,IBDBLK,0)),U,2),0)),U),"""",""?0"")"
^DD(357.2,0,"IX","AC",357.2,.11)=""
^DD(357.2,0,"IX","AD",357.2,.14)=""
^DD(357.2,0,"IX","B",357.2,.01)=""
^DD(357.2,0,"IX","C",357.2,.02)=""
^DD(357.2,0,"NM","SELECTION LIST")=""
^DD(357.2,0,"PT",357.3,.03)=""
^DD(357.2,0,"PT",357.4,.03)=""
^DD(357.2,0,"VR")="3.0"
^DD(357.2,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(357.2,.01,1,0)="^.1"
^DD(357.2,.01,1,1,0)="357.2^B"
^DD(357.2,.01,1,1,1)="S ^IBE(357.2,""B"",$E(X,1,30),DA)="""""
^DD(357.2,.01,1,1,2)="K ^IBE(357.2,""B"",$E(X,1,30),DA)"
^DD(357.2,.01,3)="Answer must be 3-30 characters in length."
^DD(357.2,.01,21,0)="^^2^2^2930527^"
^DD(357.2,.01,21,1,0)=" "
^DD(357.2,.01,21,2,0)="The name of the list."
^DD(357.2,.01,"DEL",1,0)="I '$G(IBDEVICE(""LISTMAN""))!($G(IBDELETE)) W ""...Selection Lists can only be deleted through the Encounter Form Utilities!"""
^DD(357.2,.01,"DT")="2921119"
^DD(357.2,.02,0)="BLOCK^RP357.1'^IBE(357.1,^0;2^Q"
^DD(357.2,.02,1,0)="^.1"
^DD(357.2,.02,1,1,0)="357.2^C"
^DD(357.2,.02,1,1,1)="S ^IBE(357.2,""C"",$E(X,1,30),DA)="""""
^DD(357.2,.02,1,1,2)="K ^IBE(357.2,""C"",$E(X,1,30),DA)"
^DD(357.2,.02,1,1,"DT")="2921207"
^DD(357.2,.02,3)="Enter the block that the selection list should appear in."
^DD(357.2,.02,21,0)="^^2^2^2930527^"
^DD(357.2,.02,21,1,0)="The block that the list appears on. The position of the selection list is"
^DD(357.2,.02,21,2,0)="relative to the block."
^DD(357.2,.02,"DT")="2921207"
^DD(357.2,.04,0)="SUBCOLUMN HEADER APPEARANCE^FX^^0;4^S X=$$UPPER^VALM1(X) K:$L(X)>1!(""R""'[$E(X,1)) X"
^DD(357.2,.04,.1)="HOW SHOULD THE SUBCOLUMN HEADERS APPEAR? ENTER 'R' FOR REVERSE PRINTING."
^DD(357.2,.04,3)="R=Reverse Printing"
^DD(357.2,.04,21,0)="^^2^2^2950808^"
^DD(357.2,.04,21,1,0)="Allows the form designer to select the appearance of the subcolumn"
^DD(357.2,.04,21,2,0)="headers."
^DD(357.2,.04,"DT")="2940531"
^DD(357.2,.05,0)="COLUMN HEADER^F^^0;5^K:$L(X)>70!($L(X)<1) X"
^DD(357.2,.05,.1)="WHAT TEXT SHOULD APPEAR AT THE TOP OF EACH COLUMN? (OPTIONAL)"
^DD(357.2,.05,3)="This header will appear at the top of the column that contains the list. If there is more than one column it will appear at the top of each."
^DD(357.2,.05,21,0)="^^2^2^2930527^"
^DD(357.2,.05,21,1,0)=" "
^DD(357.2,.05,21,2,0)="The text that appears at the top of each column (NOT subcolumn)."
^DD(357.2,.05,"DT")="2930415"
^DD(357.2,.06,0)="COLUMN HEADER APPEARANCE^FX^^0;6^S X=$$UPPER^VALM1(X) K:$L(X)>5!($TR(X,""UBRCS"")'="""") X"
^DD(357.2,.06,.1)="HOW SHOULD THE COLUMN HEADER APPEAR? CHOOSE FROM {U,B,R,C,S}"
^DD(357.2,.06,3)="B=bold,U=underline,R=reverse,C=center,S=shade. You can enter any combination of {B,U,R,C,S}."
^DD(357.2,.06,21,0)="^^2^2^2950420^^^^"
^DD(357.2,.06,21,1,0)=" "
^DD(357.2,.06,21,2,0)="The column header can be give characteristics, such as centered and bold."
^DD(357.2,.06,"DT")="2961024"
^DD(357.2,.07,0)="SUBCOLUMNS SEPARATED WITH?^RS^1:ONE SPACE;2:TWO SPACES;3:LINE;4:SPACE/LINE/SPACE;^0;7^Q"
^DD(357.2,.07,.1)="HOW SHOULD THE SUBCOLUMNS BE SEPARATED?"
^DD(357.2,.07,3)="How should the subcolumns be separated?"
^DD(357.2,.07,21,0)="^^2^2^2930527^"
^DD(357.2,.07,21,1,0)=" "
^DD(357.2,.07,21,2,0)="What characters are used to separate the subcolumns."
^DD(357.2,.07,"DT")="2930415"
^DD(357.2,.08,0)="EXTRA LINES FOR SELECTIONS^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.2,.08,.1)="NUMBER OF ADDITIONAL LINES FOR EACH ENTRY ON LIST?"
^DD(357.2,.08,3)="How many extra lines should be allocated for each selection, in addition to the 1 the selection will print on?"
^DD(357.2,.08,21,0)="^^4^4^2930527^"
^DD(357.2,.08,21,1,0)=" "
^DD(357.2,.08,21,2,0)="Each entry on the list prints on only one line. However, if you want"
^DD(357.2,.08,21,3,0)="extra space to appear below each entry on the list then this field should"
^DD(357.2,.08,21,4,0)="be set to the number of blank lines desired."
^DD(357.2,.08,"DT")="2930427"
^DD(357.2,.09,0)="GROUP HEADER APPEARANCE^FX^^0;9^S X=$$UPPER^VALM1(X) K:$L(X)>4!($TR(X,""UBSC"")'="""") X"
^DD(357.2,.09,.1)="HOW SHOULD THE HEADER FOR EACH GROUP OF ENTRIES APPEAR? CHOOSE FROM {U,B,S,C}"
^DD(357.2,.09,3)="B=bold,S=shade,C=center,U=underline. You can use any combination of {B,S,C,U}"
^DD(357.2,.09,21,0)="^^1^1^2950419^^^^"
^DD(357.2,.09,21,1,0)="This field determines the appearance of the group headers."
^DD(357.2,.09,"DT")="2961024"
^DD(357.2,.11,0)="SELECTION INTERFACE^R*P357.6'^IBE(357.6,^0;11^S DIC(""S"")=""I $P(^(0),U,6)=3,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.2,.11,1,0)="^.1"
^DD(357.2,.11,1,1,0)="357.2^AC^MUMPS"
^DD(357.2,.11,1,1,1)="S:X $P(^IBE(357.2,DA,0),U,14)=+$P($G(^IBE(357.6,X,0)),U,14) S:$P(^IBE(357.2,DA,0),U,14)&$P(^IBE(357.2,DA,0),U,2) ^IBE(357.2,""AD"",$P(^IBE(357.2,DA,0),U,2),DA)="""""
^DD(357.2,.11,1,1,2)="Q"
^DD(357.2,.11,1,1,"%D",0)="^^2^2^2950623^^^"
^DD(357.2,.11,1,1,"%D",1,0)="Automatically sets the DYNAMIC SELECTIONS field and the ""AD"""
^DD(357.2,.11,1,1,"%D",2,0)="cross-reference."
^DD(357.2,.11,1,1,"DT")="2950619"
^DD(357.2,.11,3)="Enter the package interface used to obtain this list."
^DD(357.2,.11,12)="Allows only available selection interfaces."
^DD(357.2,.11,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=3,$P(^(0),U,9)=1"""
^DD(357.2,.11,21,0)="^^2^2^2950825^^"
^DD(357.2,.11,21,1,0)=" "
^DD(357.2,.11,21,2,0)="This identifies the Package Interface that is used to fill the list."
^DD(357.2,.11,"DT")="2950825"
^DD(357.2,.12,0)="UNDERLINE SELECTIONS?^RS^0:NO;1:YES;^0;12^Q"
^DD(357.2,.12,.1)="SHOULD EACH ENTRY ON THE LIST BE UNDERLINED? (YES/NO)"
^DD(357.2,.12,3)="Should the items on the list be underlined?"
^DD(357.2,.12,21,0)="^^2^2^2930527^"
^DD(357.2,.12,21,1,0)=" "
^DD(357.2,.12,21,2,0)="Answer yes if each entry on the list should be underlined."
^DD(357.2,.12,"DT")="2930414"
^DD(357.2,.13,0)="NUMBER OF COLUMNS^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.2,.13,.1)="HOW MANY COLUMNS OF LIST ENTRIES SHOULD THE LIST HAVE? (OPTIONAL)"
^DD(357.2,.13,3)=""
^DD(357.2,.13,4)="D HELP5^IBDFU5"
^DD(357.2,.13,21,0)="^^6^6^2930527^"
^DD(357.2,.13,21,1,0)=" "
^DD(357.2,.13,21,2,0)="A selection list may be displayed in an area several columns wide. The"
^DD(357.2,.13,21,3,0)="starting position and height of each column may be specified. However, it"
^DD(357.2,.13,21,4,0)="is not necessary because defaults values will be used. The defaults used"
^DD(357.2,.13,21,5,0)="assume that nothing else is going in the block except the selection list"
^DD(357.2,.13,21,6,0)="and that the entire block should be filled."
^DD(357.2,.13,"DT")="2930802"
^DD(357.2,.14,0)="DYNAMIC SELECTIONS^SX^0:NO;1:YES;^0;14^K X"
^DD(357.2,.14,1,0)="^.1"
^DD(357.2,.14,1,1,0)="357.2^AD^MUMPS"
^DD(357.2,.14,1,1,1)="S:X&$P($G(^IBE(357.2,DA,0)),U,2) ^IBE(357.2,""AD"",$P($G(^IBE(357.2,DA,0)),U,2),DA)="""""
^DD(357.2,.14,1,1,2)="K:X&$P($G(^IBE(357.2,DA,0)),U,2) ^IBE(357.2,""AD"",$P($G(^IBE(357.2,DA,0)),U,2),DA)"
^DD(357.2,.14,1,1,"%D",0)="^^1^1^2950719^"
^DD(357.2,.14,1,1,"%D",1,0)="Allows all the dynamic selection lists to be found for the block."
^DD(357.2,.14,1,1,"DT")="2941221"
^DD(357.2,.14,3)="Answer YES if the list of selections is created at print time."
^DD(357.2,.14,21,0)="^^2^2^2950808^"
^DD(357.2,.14,21,1,0)="This is used to flag the list as being created at print time as opposed to"
^DD(357.2,.14,21,2,0)="design time."
^DD(357.2,.14,"DT")="2941221"
^DD(357.2,.15,0)="PRINT COMPLETE^S^0:NO;1:YES;^0;15^Q"
^DD(357.2,.15,.1)="SHOULD THE LIST PRINT ON A SEPARATE PAGE IF IT DOES NOT FIT ON THE FORM?"
^DD(357.2,.15,3)="If the data on the list won't fit on the form, should it be printed on a separate page?"
^DD(357.2,.15,21,0)="^^3^3^2950414^"
^DD(357.2,.15,21,1,0)="Applies only to dynamic selection lists. This controls the overflow behavior"
^DD(357.2,.15,21,2,0)="of the list. YES means that if the data on the list does not fit, it should"
^DD(357.2,.15,21,3,0)="be printed on a separate page."
^DD(357.2,.15,"DT")="2950414"
^DD(357.2,.16,0)="NUMBER OF OTHER^NJ1,0^^0;16^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.2,.16,.1)="HOW MANY 'OTHER' DO YOU WANT TO ALLOCATE SPACE FOR?"
^DD(357.2,.16,3)="Allocate space for how many 'other' not found on the list?"
^DD(357.2,.16,21,0)="^^2^2^2950503^^"
^DD(357.2,.16,21,1,0)="Space will be allocated at the bottom of the selection list for the user"
^DD(357.2,.16,21,2,0)="to enter this number of items not found on the list."
^DD(357.2,.16,"DT")="2950424"
^DD(357.2,.17,0)="WHAT TO ALLOCATE SPACE FOR^S^1:NARRATIVE ONLY;2:CODE ONLY;3:NARRATIVE AND CODE;^0;17^Q"
^DD(357.2,.17,.1)="WHAT SHOULD SPACE BE ALLOCATED FOR IN 'OTHER'?"
^DD(357.2,.17,3)="What should space be allocated for when making room for 'other'?"
^DD(357.2,.17,21,0)="^^2^2^2950718^^"
^DD(357.2,.17,21,1,0)="This field determines what fields to place on the form for writting in"
^DD(357.2,.17,21,2,0)="other items not found on the list."
^DD(357.2,.17,"DT")="2950426"
^DD(357.2,.18,0)="WHAT TO SEND TO PCE^S^1:NARRATIVE ONLY;2:CODE ONLY;3:NARRATIVE AND CODE;^0;18^Q"
^DD(357.2,.18,.1)="WHAT DO YOU WANT ENTERED TO THE DATABASE?"
^DD(357.2,.18,3)="WHAT DO YOU WANT ENTERED INTO THE DATABASE?"
^DD(357.2,.18,21,0)="^^2^2^2950927^^"
^DD(357.2,.18,21,1,0)="This determines what is sent to PCE. For example, some types of data may"
^DD(357.2,.18,21,2,0)="require that a code be sent, but the narrative may be optional."
^DD(357.2,.18,"DT")="2950424"
^DD(357.2,.19,0)="CLINICAL REMINDER DISPLAY TYPE^S^1:DUE NOW ONLY;2:ALL REMINDERS;^0;19^Q"
^DD(357.2,.19,3)="This determines the clincial reminders that will print on an encounter form.  Choose either to see only those due now or all appropriate reminders."
^DD(357.2,.19,21,0)="^^7^7^2990105^^^^"
^DD(357.2,.19,21,1,0)="Enter ""DUE NOW ONLY"" if you want to print only those reminders that"
^DD(357.2,.19,21,2,0)="are currently due (this is sometimes called clinical reminder mode)."
^DD(357.2,.19,21,3,0)=" "
^DD(357.2,.19,21,4,0)="Enter ""ALL REMINDERS"" if you want to print all applicable reminders"
^DD(357.2,.19,21,5,0)="and a date due (this is sometimes called clincal maintenance mode)."
^DD(357.2,.19,21,6,0)=" "
^DD(357.2,.19,21,7,0)="Reminders that are not applicable for a patient will not print."
^DD(357.2,.19,"DT")="2971023"
^DD(357.2,1,0)="LIST COLUMN^357.21IA^^1;0"
^DD(357.2,1,21,0)="^^2^2^2950421^^^^"
^DD(357.2,1,21,1,0)="A column is a rectangular area that has the necessary width to display a"
^DD(357.2,1,21,2,0)="single item on the list."
^DD(357.2,1,"DT")="2930802"
^DD(357.2,2,0)="SUBCOLUMN NUMBER^357.22I^^2;0"
^DD(357.2,2,21,0)="^^4^4^2950308^"
^DD(357.2,2,21,1,0)=" "
^DD(357.2,2,21,2,0)="A subcolumn contains one field of the entry on the list. The subcolumn"
^DD(357.2,2,21,3,0)="order is the order, from left to right, that the subcolumns will appear"
^DD(357.2,2,21,4,0)="in."
^DD(357.2,2,"DT")="2930413"
^DD(357.2,"B","BLOCK",.02)=""
^DD(357.2,"B","CLINICAL REMINDER DISPLAY TYPE",.19)=""
^DD(357.2,"B","COLUMN HEADER",.05)=""
^DD(357.2,"B","COLUMN HEADER APPEARANCE",.06)=""
^DD(357.2,"B","DYNAMIC SELECTIONS",.14)=""
^DD(357.2,"B","EXTRA LINES FOR SELECTIONS",.08)=""
^DD(357.2,"B","GROUP HEADER APPEARANCE",.09)=""
^DD(357.2,"B","LIST COLUMN",1)=""
^DD(357.2,"B","NAME",.01)=""
^DD(357.2,"B","NUMBER OF COLUMNS",.13)=""
^DD(357.2,"B","NUMBER OF OTHER",.16)=""
^DD(357.2,"B","PRINT COMPLETE",.15)=""
^DD(357.2,"B","SELECTION INTERFACE",.11)=""
^DD(357.2,"B","SUBCOLUMN HEADER APPEARANCE",.04)=""
^DD(357.2,"B","SUBCOLUMN NUMBER",2)=""
^DD(357.2,"B","SUBCOLUMNS SEPARATED WITH?",.07)=""
^DD(357.2,"B","UNDERLINE SELECTIONS?",.12)=""
^DD(357.2,"B","WHAT TO ALLOCATE SPACE FOR",.17)=""
^DD(357.2,"B","WHAT TO SEND TO PCE",.18)=""
^DD(357.2,"GL",0,1,.01)=""
^DD(357.2,"GL",0,2,.02)=""
^DD(357.2,"GL",0,4,.04)=""
^DD(357.2,"GL",0,5,.05)=""
^DD(357.2,"GL",0,6,.06)=""
^DD(357.2,"GL",0,7,.07)=""
^DD(357.2,"GL",0,8,.08)=""
^DD(357.2,"GL",0,9,.09)=""
^DD(357.2,"GL",0,11,.11)=""
^DD(357.2,"GL",0,12,.12)=""
^DD(357.2,"GL",0,13,.13)=""
^DD(357.2,"GL",0,14,.14)=""
^DD(357.2,"GL",0,15,.15)=""
^DD(357.2,"GL",0,16,.16)=""
^DD(357.2,"GL",0,17,.17)=""
^DD(357.2,"GL",0,18,.18)=""
^DD(357.2,"GL",0,19,.19)=""
^DD(357.2,"GL",1,0,1)=""
^DD(357.2,"GL",2,0,2)=""
^DD(357.2,"IX",.01)=""
^DD(357.2,"IX",.02)=""
^DD(357.2,"IX",.11)=""
^DD(357.2,"IX",.14)=""
^DD(357.2,"RQ",.01)=""
^DD(357.2,"RQ",.02)=""
^DD(357.2,"RQ",.07)=""
^DD(357.2,"RQ",.11)=""
^DD(357.2,"RQ",.12)=""
^DD(357.2,"SB",357.21,1)=""
^DD(357.2,"SB",357.22,2)=""
^DD(357.21,0)="LIST COLUMN SUB-FIELD^^.04^4"
^DD(357.21,0,"DIK")="IBDX2"
^DD(357.21,0,"DT")="2930331"
^DD(357.21,0,"ID","WRITE")="D EN^DDIOL(""   COLUMN #""_$P($G(^(0)),U),"""",""?0"")"
^DD(357.21,0,"IX","B",357.21,.01)=""
^DD(357.21,0,"NM","LIST COLUMN")=""
^DD(357.21,0,"UP")="357.2"
^DD(357.21,.01,0)="LIST COLUMN NUMBER^MNJ1,0^^0;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.21,.01,1,0)="^.1"
^DD(357.21,.01,1,1,0)="357.21^B"
^DD(357.21,.01,1,1,1)="S ^IBE(357.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(357.21,.01,1,1,2)="K ^IBE(357.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(357.21,.01,3)="You can specify the position and height of up to 4 columns. Defaults will be used where needed."
^DD(357.21,.01,21,0)="^^2^2^2950421^^^^"
^DD(357.21,.01,21,1,0)="The order that the columns will be filled. Column 1 will first be filled"
^DD(357.21,.01,21,2,0)="with items, then column 2, etc."
^DD(357.21,.01,"DT")="2930802"
^DD(357.21,.02,0)="LIST COLUMN'S STARTING ROW^NJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.21,.02,.1)="WHAT ROW SHOULD THE LIST COLUMN START IN? (OPTIONAL)"
^DD(357.21,.02,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(357.21,.02,2.1)="S:+Y=Y Y=+Y+1"
^DD(357.21,.02,3)="What row should the column begin in?"
^DD(357.21,.02,21,0)="^^2^2^2930715^^^"
^DD(357.21,.02,21,1,0)="The row, relative to the block, that the column should begin in. This is"
^DD(357.21,.02,21,2,0)="optional, since default values can be used."
^DD(357.21,.02,23,0)="^^4^4^2930715^^"
^DD(357.21,.02,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.21,.02,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.21,.02,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.21,.02,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.21,.02,"DT")="2930802"
^DD(357.21,.03,0)="LIST COLUMN'S STARTING COLUMN^NJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.21,.03,.1)="WHAT BLOCK COLUMN SHOULD THE LIST COLUMN START IN? (OPTIONAL)"
^DD(357.21,.03,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(357.21,.03,2.1)="S:+Y=Y Y=+Y+1"
^DD(357.21,.03,3)="At what block column should the list column begin at? The first subcolumn of the list column will start one character to the right of this."
^DD(357.21,.03,21,0)="^^4^4^2940216^"
^DD(357.21,.03,21,1,0)=" "
^DD(357.21,.03,21,2,0)="The column (# of characters to the right) that the list column should"
^DD(357.21,.03,21,3,0)="begin in, relative to the block. It is optional, since a default value can"
^DD(357.21,.03,21,4,0)="be used."
^DD(357.21,.03,23,0)="^^4^4^2930715^"
^DD(357.21,.03,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.21,.03,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.21,.03,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.21,.03,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.21,.03,"DT")="2930930"
^DD(357.21,.04,0)="LIST COLUMN HEIGHT^NJ3,0^^0;4^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.21,.04,.1)="HOW MANY LINES HIGH SHOULD THE LIST COLUMN BE? (OPTIONAL)"
^DD(357.21,.04,3)="How many lines should the column cover?"
^DD(357.21,.04,21,0)="^^3^3^2930527^"
^DD(357.21,.04,21,1,0)=" "
^DD(357.21,.04,21,2,0)="The number of lines the column should occupy. This is optional - if not"
^DD(357.21,.04,21,3,0)="supplied the column will extend to the bottom of the block."
^DD(357.21,.04,"DT")="2930802"
^DD(357.21,"B","LIST COLUMN HEIGHT",.04)=""
^DD(357.21,"B","LIST COLUMN NUMBER",.01)=""
^DD(357.21,"B","LIST COLUMN'S STARTING COLUMN",.03)=""
^DD(357.21,"B","LIST COLUMN'S STARTING ROW",.02)=""
^DD(357.21,"GL",0,1,.01)=""
^DD(357.21,"GL",0,2,.02)=""
^DD(357.21,"GL",0,3,.03)=""
^DD(357.21,"GL",0,4,.04)=""
^DD(357.21,"IX",.01)=""
^DD(357.22,0)="SUBCOLUMN NUMBER SUB-FIELD^^.1^10"
^DD(357.22,0,"DIK")="IBDX2"
^DD(357.22,0,"DT")="2941209"
^DD(357.22,0,"ID","WRITE")="D ID1^IBDFU5"
^DD(357.22,0,"IX","B",357.22,.01)=""
^DD(357.22,0,"NM","SUBCOLUMN NUMBER")=""
^DD(357.22,0,"UP")="357.2"
^DD(357.22,.01,0)="SUBCOLUMN NUMBER^MRNJ1,0X^^0;1^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N)!($D(^IBE(357.2,DA(1),2,""B"",X))) X"
^DD(357.22,.01,.1)="Number of the subcolumn, subcolumns being numbered 1-8, left-to-right"
^DD(357.22,.01,1,0)="^.1"
^DD(357.22,.01,1,1,0)="357.22^B"
^DD(357.22,.01,1,1,1)="S ^IBE(357.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(357.22,.01,1,1,2)="K ^IBE(357.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(357.22,.01,3)="The SUBCOLUMN NUMBER determines the order in which the subcolumns will display. There are at most 8 subcolumns, numbered 1-8."
^DD(357.22,.01,21,0)="^^2^2^2950308^"
^DD(357.22,.01,21,1,0)=" "
^DD(357.22,.01,21,2,0)="The order that the subcolumn will appear on the form."
^DD(357.22,.01,"DT")="2950308"
^DD(357.22,.02,0)="SUBCOLUMN HEADER^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(357.22,.02,.1)="WHAT TEXT SHOULD APPEAR AT THE TOP OF THE SUBCOLUMN?"
^DD(357.22,.02,3)="What text should appear at the top of the subcolumn?"
^DD(357.22,.02,21,0)="^^2^2^2930527^"
^DD(357.22,.02,21,1,0)=" "
^DD(357.22,.02,21,2,0)="The text that will appear at the top of the subcolumn."
^DD(357.22,.02,"DT")="2930414"
^DD(357.22,.03,0)="SUBCOLUMN WIDTH^NJ3,0^^0;3^K:+X'=X!(X>150)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.22,.03,.1)="HOW WIDE SHOULD THE SUBCOLUMN BE?"
^DD(357.22,.03,3)="How wide should the subcolumn be?"
^DD(357.22,.03,21,0)="^^3^3^2930527^"
^DD(357.22,.03,21,1,0)=" "
^DD(357.22,.03,21,2,0)="The width of the subcolumn. If the subcolumn contains a MARKING AREA then"
^DD(357.22,.03,21,3,0)="the width of the MARKING AREA overrides what ever this is."
^DD(357.22,.03,"DT")="2930414"
^DD(357.22,.04,0)="TYPE OF SUBCOLUMN^RS^1:TEXT;2:MARKING;^0;4^Q"
^DD(357.22,.04,.1)="SUBCOLUMN CONTAINS TEXT, OR FOR MARKING? (TEXT/MARKING)"
^DD(357.22,.04,3)="Enter '1' if the subcolumn will contain text, '2' if it will be for the user to mark his selections."
^DD(357.22,.04,21,0)="^^4^4^2960424^^"
^DD(357.22,.04,21,1,0)=" "
^DD(357.22,.04,21,2,0)="The subcolumn can contain either text, derived from what is returned by"
^DD(357.22,.04,21,3,0)="the PACKAGE INTERFACE, or a MARKING AREA, which is meant to be written in"
^DD(357.22,.04,21,4,0)="to select an entry on the list."
^DD(357.22,.04,"DT")="2960424"
^DD(357.22,.05,0)="SUBCOLUMN'S DATA^NJ1,0X^^0;5^K:'$$OKPIECE^IBDFU5($P($G(^IBE(357.2,D0,0)),U,11),X) X"
^DD(357.22,.05,.1)="WHAT DATA SHOULD BE CONTAINED IN THE SUBCOLUMN?"
^DD(357.22,.05,3)="WHAT DATA SHOULD BE CONTAINED IN THE SUBCOLUMN?"
^DD(357.22,.05,4)="D HELP2^IBDFU5"
^DD(357.22,.05,21,0)="^^3^3^2940719^^"
^DD(357.22,.05,21,1,0)=" "
^DD(357.22,.05,21,2,0)="The Package Interface returns a record, which is composed of fields. This"
^DD(357.22,.05,21,3,0)="identifies which field goes in the subcolumn."
^DD(357.22,.05,"DT")="2950919"
^DD(357.22,.06,0)="MARKING AREA^P357.91'^IBE(357.91,^0;6^Q"
^DD(357.22,.06,.1)="TYPE OF MARKING AREA"
^DD(357.22,.06,3)="What type of marking area should appear in the subcolumn?"
^DD(357.22,.06,21,0)="^^2^2^2930527^"
^DD(357.22,.06,21,1,0)=" "
^DD(357.22,.06,21,2,0)="This identifies which MARKING AREA should go in the subcolumn."
^DD(357.22,.06,"DT")="2930414"
^DD(357.22,.07,0)="ALLOW EDITING OF TEXT?^S^0:NO;1:YES;^0;7^Q"
^DD(357.22,.07,.1)="ALLOW EDITING OF THE TEXT APPEARING IN THIS SUBCOLUMN? (YES/NO)"
^DD(357.22,.07,3)="Is it okay to edit the text appearing in this subcolumn?"
^DD(357.22,.07,21,0)="^^4^4^2950927^^"
^DD(357.22,.07,21,1,0)=" "
^DD(357.22,.07,21,2,0)="This determines whether or not the user, when selecting items to appear on"
^DD(357.22,.07,21,3,0)="the list, will be able to edit the text appearing in the subcolum. This is"
^DD(357.22,.07,21,4,0)="ignored if the subcolumn contains a MARKING AREA."
^DD(357.22,.07,"DT")="2930428"
^DD(357.22,.08,0)="DO NOT UNDERLINE MARKING AREA?^S^0:NO;1:YES;^0;8^Q"
^DD(357.22,.08,3)="Enter YES if you do NOT want this subcolumn underlined."
^DD(357.22,.08,21,0)="^^2^2^2950808^"
^DD(357.22,.08,21,1,0)="Underlining can be turned off for the subcolumn even if it is turned on"
^DD(357.22,.08,21,2,0)="for the list as a whole."
^DD(357.22,.08,"DT")="2940607"
^DD(357.22,.09,0)="DATA QUALIFIER^*P357.98'^IBD(357.98,^0;9^S DIC(""S"")=""I $$DQGOOD^IBDFU9($P($G(^IBE(357.2,DA(1),0)),""""^"""",11),Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.22,.09,3)="Does one of the qualifiers apply to the choices made in this subcolumn?"
^DD(357.22,.09,12)="Allows only certain data qualifiers, defined in the Package Interface file."
^DD(357.22,.09,12.1)="S DIC(""S"")=""I $$DQGOOD^IBDFU9($P($G(^IBE(357.2,DA(1),0)),""""^"""",11),Y)"""
^DD(357.22,.09,21,0)="^^2^2^2950808^"
^DD(357.22,.09,21,1,0)="Used to associate a data qualifier to a subcolumn that is used for making"
^DD(357.22,.09,21,2,0)="selections."
^DD(357.22,.09,"DT")="2941206"
^DD(357.22,.1,0)="SELECTION RULE^S^0:ANY NUMBER;1:EXACTLY ONE;2:AT MOST ONE (0 or 1);3:AT LEAST ONE (1 or more);^0;10^Q"
^DD(357.22,.1,3)="Which rule applies to the choices the user can make in this subcolumn?"
^DD(357.22,.1,21,0)="^^2^2^2950808^"
^DD(357.22,.1,21,1,0)="A selection rule can be applied to a subcolumn used to make selections,"
^DD(357.22,.1,21,2,0)="i.e., one that contains marking areas."
^DD(357.22,.1,"DT")="2941209"
^DD(357.22,"B","ALLOW EDITING OF TEXT?",.07)=""
^DD(357.22,"B","DATA QUALIFIER",.09)=""
^DD(357.22,"B","DO NOT UNDERLINE MARKING AREA?",.08)=""
^DD(357.22,"B","MARKING AREA",.06)=""
^DD(357.22,"B","SELECTION RULE",.1)=""
^DD(357.22,"B","SUBCOLUMN HEADER",.02)=""
^DD(357.22,"B","SUBCOLUMN NUMBER",.01)=""
^DD(357.22,"B","SUBCOLUMN WIDTH",.03)=""
^DD(357.22,"B","SUBCOLUMN'S DATA",.05)=""
^DD(357.22,"B","TYPE OF MARKING AREA",.06)="1"
^DD(357.22,"B","TYPE OF SUBCOLUMN",.04)=""
^DD(357.22,"GL",0,1,.01)=""
^DD(357.22,"GL",0,2,.02)=""
^DD(357.22,"GL",0,3,.03)=""
^DD(357.22,"GL",0,4,.04)=""
^DD(357.22,"GL",0,5,.05)=""
^DD(357.22,"GL",0,6,.06)=""
^DD(357.22,"GL",0,7,.07)=""
^DD(357.22,"GL",0,8,.08)=""
^DD(357.22,"GL",0,9,.09)=""
^DD(357.22,"GL",0,10,.1)=""
^DD(357.22,"IX",.01)=""
^DD(357.22,"RQ",.01)=""
^DD(357.22,"RQ",.04)=""
^DD(357.3,0)="FIELD^^3^15"
^DD(357.3,0,"DDA")="N"
^DD(357.3,0,"DIK")="IBDX3"
^DD(357.3,0,"DIKOLD")="IBDX3"
^DD(357.3,0,"DT")="2961021"
^DD(357.3,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(357.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(357.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(357.3,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(357.4,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(357.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(357.3,0,"IX","APO",357.3,.03)=""
^DD(357.3,0,"IX","APO1",357.3,.04)=""
^DD(357.3,0,"IX","APO2",357.3,.05)=""
^DD(357.3,0,"IX","B",357.3,.01)=""
^DD(357.3,0,"IX","C",357.3,.03)=""
^DD(357.3,0,"IX","D",357.3,.04)=""
^DD(357.3,0,"NM","SELECTION")=""
^DD(357.3,0,"PT",357.951,.14)=""
^DD(357.3,0,"VR")="3.0"
^DD(357.3,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.3,.01,0)="SELECTION ID^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(357.3,.01,1,0)="^.1"
^DD(357.3,.01,1,1,0)="357.3^B"
^DD(357.3,.01,1,1,1)="S ^IBE(357.3,""B"",$E(X,1,30),DA)="""""
^DD(357.3,.01,1,1,2)="K ^IBE(357.3,""B"",$E(X,1,30),DA)"
^DD(357.3,.01,3)="Answer must be 3-30 characters in length."
^DD(357.3,.01,21,0)="^^2^2^2930309^"
^DD(357.3,.01,21,1,0)=" "
^DD(357.3,.01,21,2,0)="The ID passed by the package."
^DD(357.3,.01,"DT")="2921119"
^DD(357.3,.02,0)="PLACE HOLDER ONLY^S^0:NO;1:YES;^0;2^Q"
^DD(357.3,.02,3)="Enter YES if this is a place holder, used to add some space to the list."
^DD(357.3,.02,"DT")="2931020"
^DD(357.3,.03,0)="SELECTION LIST^RP357.2'^IBE(357.2,^0;3^Q"
^DD(357.3,.03,1,0)="^.1"
^DD(357.3,.03,1,1,0)="357.3^C"
^DD(357.3,.03,1,1,1)="S ^IBE(357.3,""C"",$E(X,1,30),DA)="""""
^DD(357.3,.03,1,1,2)="K ^IBE(357.3,""C"",$E(X,1,30),DA)"
^DD(357.3,.03,1,1,"DT")="2921127"
^DD(357.3,.03,1,2,0)="357.3^APO^MUMPS"
^DD(357.3,.03,1,2,1)="I $P($G(^IBE(357.3,DA,0)),U,5)]"""",$P(^(0),U,4) S ^IBE(357.3,""APO"",X,$P(^(0),U,4),$P(^(0),U,5),DA)="""""
^DD(357.3,.03,1,2,2)="I $P($G(^IBE(357.3,DA,0)),U,5)]"""",$P(^(0),U,4) K ^IBE(357.3,""APO"",X,$P(^(0),U,4),$P(^(0),U,5),DA)"
^DD(357.3,.03,1,2,"%D",0)="^^7^7^2960402^^"
^DD(357.3,.03,1,2,"%D",1,0)=" "
^DD(357.3,.03,1,2,"%D",2,0)="Allows all selections for a particular group in a selection list to be"
^DD(357.3,.03,1,2,"%D",3,0)="found in the order that they should appear. The subscripts are"
^DD(357.3,.03,1,2,"%D",4,0)="^IBE(357.3,""APO"",<selection list ien>,<group ien>,<print order within"
^DD(357.3,.03,1,2,"%D",5,0)="group>,<selection ien>). If this field is re-indexed then the APO1 index"
^DD(357.3,.03,1,2,"%D",6,0)="on the .04 field and the APO2 index on the .05 field need not be"
^DD(357.3,.03,1,2,"%D",7,0)="re-indexed."
^DD(357.3,.03,1,2,"DT")="2960402"
^DD(357.3,.03,21,0)="^^2^2^2921215^"
^DD(357.3,.03,21,1,0)=" "
^DD(357.3,.03,21,2,0)="Identifies the selection list that this selection belongs on."
^DD(357.3,.03,"DT")="2960402"
^DD(357.3,.04,0)="SELECTION GROUP^RP357.4^IBE(357.4,^0;4^Q"
^DD(357.3,.04,1,0)="^.1"
^DD(357.3,.04,1,1,0)="357.3^D"
^DD(357.3,.04,1,1,1)="S ^IBE(357.3,""D"",$E(X,1,30),DA)="""""
^DD(357.3,.04,1,1,2)="K ^IBE(357.3,""D"",$E(X,1,30),DA)"
^DD(357.3,.04,1,1,"DT")="2921221"
^DD(357.3,.04,1,2,0)="357.3^APO1^MUMPS"
^DD(357.3,.04,1,2,1)="I $P($G(^IBE(357.3,DA,0)),U,5)]"""",$P(^(0),U,3) S ^IBE(357.3,""APO"",$P(^(0),U,3),X,$P(^(0),U,5),DA)="""""
^DD(357.3,.04,1,2,2)="I $P($G(^IBE(357.3,DA,0)),U,5)]"""",$P(^(0),U,3) K ^IBE(357.3,""APO"",$P(^(0),U,3),X,$P(^(0),U,5),DA)"
^DD(357.3,.04,1,2,"%D",0)="^^7^7^2960402^^"
^DD(357.3,.04,1,2,"%D",1,0)=" "
^DD(357.3,.04,1,2,"%D",2,0)="Allows all selections for a particular group in a selection list to be"
^DD(357.3,.04,1,2,"%D",3,0)="found in the order that they should appear. The subscripts are"
^DD(357.3,.04,1,2,"%D",4,0)="^IBE(357.3,""APO"",<selection list ien>,<group ien>,<print order within"
^DD(357.3,.04,1,2,"%D",5,0)="group>,<selection ien>). If this field is re-indexed then the APO index"
^DD(357.3,.04,1,2,"%D",6,0)="on the .03 field and the APO2 index on the .05 field need not be"
^DD(357.3,.04,1,2,"%D",7,0)="re-indexed."
^DD(357.3,.04,1,2,"DT")="2960402"
^DD(357.3,.04,3)="Entries on a list are grouped under group headers - under which header should this entry appear?"
^DD(357.3,.04,21,0)="^^3^3^2930607^"
^DD(357.3,.04,21,1,0)=" "
^DD(357.3,.04,21,2,0)="The SELECTION GROUP that the selection belongs to.The selection will"
^DD(357.3,.04,21,3,0)="appear under the group header on the form."
^DD(357.3,.04,"DT")="2960402"
^DD(357.3,.05,0)="PRINT ORDER WITHIN GROUP^RNJ7,2^^0;5^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(357.3,.05,1,0)="^.1"
^DD(357.3,.05,1,1,0)="357.3^APO2^MUMPS"
^DD(357.3,.05,1,1,1)="I $P($G(^IBE(357.3,DA,0)),U,3),$P(^(0),U,4) S ^IBE(357.3,""APO"",$P(^(0),U,3),$P(^(0),U,4),X,DA)="""""
^DD(357.3,.05,1,1,2)="I $P($G(^IBE(357.3,DA,0)),U,3),$P(^(0),U,4) K ^IBE(357.3,""APO"",$P(^(0),U,3),$P(^(0),U,4),X,DA)"
^DD(357.3,.05,1,1,"%D",0)="^^7^7^2960402^^"
^DD(357.3,.05,1,1,"%D",1,0)=" "
^DD(357.3,.05,1,1,"%D",2,0)="Allows all selections for a particular group in a selection list to be"
^DD(357.3,.05,1,1,"%D",3,0)="found in the order that they should appear. The subscripts are"
^DD(357.3,.05,1,1,"%D",4,0)="^IBE(357.3,""APO"",<selection list ien>,<group ien>,<print order within"
^DD(357.3,.05,1,1,"%D",5,0)="group>,<selection ien>). If this field is re-indexed then the APO index"
^DD(357.3,.05,1,1,"%D",6,0)="on the .03 field and the APO1 index on the .04 field need not be"
^DD(357.3,.05,1,1,"%D",7,0)="re-indexed."
^DD(357.3,.05,1,1,"DT")="2960402"
^DD(357.3,.05,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(357.3,.05,21,0)="^^2^2^2950810^^^^"
^DD(357.3,.05,21,1,0)="Determines the order that this selection entry will appear in under the"
^DD(357.3,.05,21,2,0)="header for the selection group."
^DD(357.3,.05,"DT")="2960402"
^DD(357.3,.06,0)="PLACE HOLDER TEXT^F^^0;6^K:$L(X)>75!($L(X)<1) X"
^DD(357.3,.06,3)="What text should be displayed for the place holder?"
^DD(357.3,.06,"DT")="2950113"
^DD(357.3,.07,0)="USE AS SUBHEADER?^S^0:NO;1:YES;^0;7^Q"
^DD(357.3,.07,.1)="IS THE TEXT USED AS A SUBHEADER FOR THE FOLLOWING SELECTIONS WITHIN THE GROUP?"
^DD(357.3,.07,3)="If you want to use the place holder as a subheader for selections within the group, answer YES."
^DD(357.3,.07,21,0)="^^9^9^2951002^"
^DD(357.3,.07,21,1,0)="One use that is being made of selections that are defined as place holders"
^DD(357.3,.07,21,2,0)="is to use them as subheaders. When this is done the text should be"
^DD(357.3,.07,21,3,0)="included with the header for the following selections. This field is"
^DD(357.3,.07,21,4,0)="used to allow that."
^DD(357.3,.07,21,5,0)=" "
^DD(357.3,.07,21,6,0)="If this field is set to YES for a place holder that contains text, the"
^DD(357.3,.07,21,7,0)="text will be used as a subheader (#1) and will be concatenated to the end"
^DD(357.3,.07,21,8,0)="of the header passed to PCE. The subheader is in use until a place"
^DD(357.3,.07,21,9,0)="holder is reached that ends it, or the group ends."
^DD(357.3,.07,"DT")="2950928"
^DD(357.3,.08,0)="STOP USING SUBHEADER?^S^0:NO;1:YES;^0;8^Q"
^DD(357.3,.08,.1)="SHOULD THE SUBHEADER IN USE, IF ANY, BE ENDED?"
^DD(357.3,.08,3)="If you have been using a place holder as a subheader for selections within the group, do you want to stop doing so?"
^DD(357.3,.08,21,0)="^^2^2^2951002^^^"
^DD(357.3,.08,21,1,0)="This field is used to signal that the subheader in use, defined by prior"
^DD(357.3,.08,21,2,0)="place holders, should be ended."
^DD(357.3,.08,"DT")="2951002"
^DD(357.3,.09,0)="QUANTITY^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.3,.09,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(357.3,.09,21,0)="^^3^3^2961031^^"
^DD(357.3,.09,21,1,0)="This field contains the number of occurrences for a particular selection."
^DD(357.3,.09,21,2,0)="A value placed in this field will be passed to PCE as the quantity."
^DD(357.3,.09,21,3,0)="Presently, the quantity field will only be asked for CPT codes."
^DD(357.3,.09,"DT")="2961008"
^DD(357.3,1,0)="SUBCOLUMN VALUE^357.31IA^^1;0"
^DD(357.3,1,21,0)="^^3^3^2930527^"
^DD(357.3,1,21,1,0)=" "
^DD(357.3,1,21,2,0)="The selection can be composed of multiple fields. Each field occupies its"
^DD(357.3,1,21,3,0)="own subcolumn on the form."
^DD(357.3,2.01,0)="NARRATIVE TO SEND TO PCE^F^^2;1^K:$L(X)>80!($L(X)<3) X"
^DD(357.3,2.01,3)="Enter the narrative to send to PCE if a provider narrative different from the description is desired.  Answer must be 3-80 characters in length."
^DD(357.3,2.01,21,0)="^^7^7^2960906^^^"
^DD(357.3,2.01,21,1,0)="Enter the narrative that should be sent to PCE when this selection is"
^DD(357.3,2.01,21,2,0)="scanned.  This will be the provider narrative that is shown in PCE and"
^DD(357.3,2.01,21,3,0)="Problem List.  If there is no entry in this field the text as it appears"
^DD(357.3,2.01,21,4,0)="on the form will be sent as the narrative."
^DD(357.3,2.01,21,5,0)=""
^DD(357.3,2.01,21,6,0)="This field can only be entered for the type of interfaces that allow"
^DD(357.3,2.01,21,7,0)="adding this narrative, and then send the narrative to PCE."
^DD(357.3,2.01,23,0)="^^1^1^2960906^"
^DD(357.3,2.01,23,1,0)=" "
^DD(357.3,2.01,"DT")="2951207"
^DD(357.3,2.02,0)="CLINICAL LEXICON ENTRY^P757.01'^LEX(757.01,^2;2^Q"
^DD(357.3,2.02,21,0)="^^5^5^2960906^^"
^DD(357.3,2.02,21,1,0)="This is the clinical lexicon entry this term should be associated with."
^DD(357.3,2.02,21,2,0)="Generally this is only completed for selections based on diagnosis."
^DD(357.3,2.02,21,3,0)="The clinical lexicon entry will be passed to pce when this selection is"
^DD(357.3,2.02,21,4,0)="scanned.  This allows maintaining the patient problem list associated "
^DD(357.3,2.02,21,5,0)="with clinical terms."
^DD(357.3,2.02,23,0)="^^1^1^2960906^"
^DD(357.3,2.02,23,1,0)=" "
^DD(357.3,2.02,"DT")="2960401"
^DD(357.3,2.03,0)="SECOND CODE^F^^2;3^K:$L(X)>10!($L(X)<1) X"
^DD(357.3,2.03,3)="Answer must be 1-10 characters in length."
^DD(357.3,2.03,21,0)="^^1^1^2970107^^^"
^DD(357.3,2.03,21,1,0)="Used to send additional codes along when one entry is bubbled."
^DD(357.3,2.03,23,0)="^^2^2^2970107^"
^DD(357.3,2.03,23,1,0)=" "
^DD(357.3,2.03,23,2,0)=" "
^DD(357.3,2.03,"DT")="2961021"
^DD(357.3,2.04,0)="THIRD CODE^F^^2;4^K:$L(X)>10!($L(X)<1) X"
^DD(357.3,2.04,3)="Answer must be 1-10 characters in length."
^DD(357.3,2.04,21,0)="^^1^1^2970107^^^"
^DD(357.3,2.04,21,1,0)="Used to pass a third code to PCE for this one entry."
^DD(357.3,2.04,23,0)="^^2^2^2970107^"
^DD(357.3,2.04,23,1,0)=" "
^DD(357.3,2.04,23,2,0)=" "
^DD(357.3,2.04,"DT")="2961021"
^DD(357.3,3,0)="CPT MODIFIER^357.33^^3;0"
^DD(357.3,3,"DT")="2990920"
^DD(357.3,"B","CLINICAL LEXICON ENTRY",2.02)=""
^DD(357.3,"B","CPT MODIFIER",3)=""
^DD(357.3,"B","NARRATIVE TO SEND TO PCE",2.01)=""
^DD(357.3,"B","PLACE HOLDER ONLY",.02)=""
^DD(357.3,"B","PLACE HOLDER TEXT",.06)=""
^DD(357.3,"B","PRINT ORDER WITHIN GROUP",.05)=""
^DD(357.3,"B","QUANTITY",.09)=""
^DD(357.3,"B","SECOND CODE",2.03)=""
^DD(357.3,"B","SELECTION GROUP",.04)=""
^DD(357.3,"B","SELECTION ID",.01)=""
^DD(357.3,"B","SELECTION LIST",.03)=""
^DD(357.3,"B","STOP USING SUBHEADER?",.08)=""
^DD(357.3,"B","SUBCOLUMN VALUE",1)=""
^DD(357.3,"B","THIRD CODE",2.04)=""
^DD(357.3,"B","USE AS SUBHEADER?",.07)=""
^DD(357.3,"GL",0,1,.01)=""
^DD(357.3,"GL",0,2,.02)=""
^DD(357.3,"GL",0,3,.03)=""
^DD(357.3,"GL",0,4,.04)=""
^DD(357.3,"GL",0,5,.05)=""
^DD(357.3,"GL",0,6,.06)=""
^DD(357.3,"GL",0,7,.07)=""
^DD(357.3,"GL",0,8,.08)=""
^DD(357.3,"GL",0,9,.09)=""
^DD(357.3,"GL",1,0,1)=""
^DD(357.3,"GL",2,1,2.01)=""
^DD(357.3,"GL",2,2,2.02)=""
^DD(357.3,"GL",2,3,2.03)=""
^DD(357.3,"GL",2,4,2.04)=""
^DD(357.3,"GL",3,0,3)=""
^DD(357.3,"IX",.01)=""
^DD(357.3,"IX",.03)=""
^DD(357.3,"IX",.04)=""
^DD(357.3,"IX",.05)=""
^DD(357.3,"RQ",.01)=""
^DD(357.3,"RQ",.03)=""
^DD(357.3,"RQ",.04)=""
^DD(357.3,"RQ",.05)=""
^DD(357.3,"SB",357.31,1)=""
^DD(357.3,"SB",357.33,3)=""
^DD(357.31,0)="SUBCOLUMN VALUE SUB-FIELD^^.02^2"
^DD(357.31,0,"DIK")="IBDX3"
^DD(357.31,0,"DT")="2930402"
^DD(357.31,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(357.31,0,"IX","B",357.31,.01)=""
^DD(357.31,0,"NM","SUBCOLUMN VALUE")=""
^DD(357.31,0,"UP")="357.3"
^DD(357.31,.01,0)="SUBCOLUMN NUMBER^MRNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N)!($D(^IBE(357.3,DA(1),1,""B"",X))) X"
^DD(357.31,.01,1,0)="^.1"
^DD(357.31,.01,1,1,0)="357.31^B"
^DD(357.31,.01,1,1,1)="S ^IBE(357.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(357.31,.01,1,1,2)="K ^IBE(357.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(357.31,.01,3)="Which subcolumn is the value for?"
^DD(357.31,.01,21,0)="^^2^2^2930527^"
^DD(357.31,.01,21,1,0)=" "
^DD(357.31,.01,21,2,0)="The order that the subcolumn should appear on the form."
^DD(357.31,.01,"DT")="2930402"
^DD(357.31,.02,0)="SUBCOLUMN VALUE^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(357.31,.02,3)="What value should go in the subcolumn?"
^DD(357.31,.02,21,0)="^^2^2^2930527^"
^DD(357.31,.02,21,1,0)=" "
^DD(357.31,.02,21,2,0)="The text that should appear in the subcolumn."
^DD(357.31,.02,"DT")="2930401"
^DD(357.31,"B","SUBCOLUMN NUMBER",.01)=""
^DD(357.31,"B","SUBCOLUMN VALUE",.02)=""
^DD(357.31,"GL",0,1,.01)=""
^DD(357.31,"GL",0,2,.02)=""
^DD(357.31,"IX",.01)=""
^DD(357.31,"RQ",.01)=""
^DD(357.33,0)="CPT MODIFIER SUB-FIELD^^1^2"
^DD(357.33,0,"DIK")="IBDX3"
^DD(357.33,0,"DT")="2990908"
^DD(357.33,0,"IX","B",357.33,.01)=""
^DD(357.33,0,"NM","CPT MODIFIER")=""
^DD(357.33,0,"UP")="357.3"
^DD(357.33,.01,0)="CPT MODIFIER^MFX^^0;1^D MOD^IBDF4C K:$L(X)>2!($L(X)<2) X"
^DD(357.33,.01,1,0)="^.1"
^DD(357.33,.01,1,1,0)="357.33^B"
^DD(357.33,.01,1,1,1)="S ^IBE(357.3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(357.33,.01,1,1,2)="K ^IBE(357.3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(357.33,.01,3)="Answer must be 2 characters in length. The field should contain the 2 character CPT Modifier which is in the .01 field of the CPT MODIFIER file."
^DD(357.33,.01,4)="D LOOKUP^IBDF4C"
^DD(357.33,.01,21,0)="^^1^1^2991216^"
^DD(357.33,.01,21,1,0)="The two character .01 field of the CPT MODIFIER file is stored."
^DD(357.33,.01,"DT")="2990920"
^DD(357.33,1,0)="NAME^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(357.33,1,3)="Answer must be 3-30 characters in length."
^DD(357.33,1,21,0)="^^1^1^3000121^"
^DD(357.33,1,21,1,0)="Description (name) of CPT Modifier."
^DD(357.33,1,"DT")="2990908"
^DD(357.33,"B","CPT MODIFIER",.01)=""
^DD(357.33,"B","NAME",1)=""
^DD(357.33,"GL",0,1,.01)=""
^DD(357.33,"GL",0,2,1)=""
^DD(357.33,"IX",.01)=""
^DD(357.4,0)="FIELD^^.04^4"
^DD(357.4,0,"DDA")="N"
^DD(357.4,0,"DIK")="IBDX4"
^DD(357.4,0,"DIKOLD")="IBDX4"
^DD(357.4,0,"DT")="2941208"
^DD(357.4,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(357.4,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(357.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(357.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(357.4,0,"IX","APO",357.4,.02)=""
^DD(357.4,0,"IX","APO1",357.4,.03)=""
^DD(357.4,0,"IX","B",357.4,.01)=""
^DD(357.4,0,"IX","D",357.4,.03)=""
^DD(357.4,0,"NM","SELECTION GROUP")=""
^DD(357.4,0,"PT",357.3,.04)=""
^DD(357.4,0,"VR")="3.0"
^DD(357.4,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.4,.01,0)="HEADER^RF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(357.4,.01,1,0)="^.1"
^DD(357.4,.01,1,1,0)="357.4^B"
^DD(357.4,.01,1,1,1)="S ^IBE(357.4,""B"",$E(X,1,30),DA)="""""
^DD(357.4,.01,1,1,2)="K ^IBE(357.4,""B"",$E(X,1,30),DA)"
^DD(357.4,.01,3)="What text do you want to appear at the top of this group?"
^DD(357.4,.01,21,0)="^^2^2^2960129^^^^"
^DD(357.4,.01,21,1,0)=" "
^DD(357.4,.01,21,2,0)="The name given to a group of selections appearing on a selection list."
^DD(357.4,.01,"DEL",1,0)="I '$G(IBDEVICE(""LISTMAN"")) W ""...Selection Groups can only be deleted through the Encounter Form Utilities!"""
^DD(357.4,.01,"DT")="2930604"
^DD(357.4,.02,0)="PRINT ORDER^RNJ7,2^^0;2^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(357.4,.02,1,0)="^.1"
^DD(357.4,.02,1,1,0)="357.4^APO^MUMPS"
^DD(357.4,.02,1,1,1)="I $P($G(^IBE(357.4,DA,0)),U,3) S ^IBE(357.4,""APO"",$P(^(0),U,3),X,DA)="""""
^DD(357.4,.02,1,1,2)="I $P($G(^IBE(357.4,DA,0)),U,3) K ^IBE(357.4,""APO"",$P(^(0),U,3),X,DA)"
^DD(357.4,.02,1,1,"%D",0)="^^5^5^2960402^^"
^DD(357.4,.02,1,1,"%D",1,0)=" "
^DD(357.4,.02,1,1,"%D",2,0)="Allows all groups in a selection list to be found in the order that they"
^DD(357.4,.02,1,1,"%D",3,0)="should appear. The subscripts are ^IBE(357.4,""APO"",<selection list"
^DD(357.4,.02,1,1,"%D",4,0)="ien>,<print order for group>,<group ien>). If this field is re-indexed"
^DD(357.4,.02,1,1,"%D",5,0)="then the APO1 index on the .03 field need not be re-indexed."
^DD(357.4,.02,1,1,"DT")="2960402"
^DD(357.4,.02,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(357.4,.02,21,0)="^^5^5^2940516^^^^"
^DD(357.4,.02,21,1,0)=" "
^DD(357.4,.02,21,2,0)="This will define the order that a group of selections will appear in as"
^DD(357.4,.02,21,3,0)="compared to the other groups of selections."
^DD(357.4,.02,21,4,0)="A group header ""BLANK"" will be created by default with order number 0."
^DD(357.4,.02,21,5,0)="This header will not print to the form."
^DD(357.4,.02,"DT")="2960402"
^DD(357.4,.03,0)="SELECTION LIST^RP357.2'^IBE(357.2,^0;3^Q"
^DD(357.4,.03,1,0)="^.1"
^DD(357.4,.03,1,1,0)="357.4^D"
^DD(357.4,.03,1,1,1)="S ^IBE(357.4,""D"",$E(X,1,30),DA)="""""
^DD(357.4,.03,1,1,2)="K ^IBE(357.4,""D"",$E(X,1,30),DA)"
^DD(357.4,.03,1,1,"%D",0)="^^1^1^2921218^"
^DD(357.4,.03,1,1,"%D",1,0)="Used to find all the groups belonging to a selection list."
^DD(357.4,.03,1,1,"DT")="2921218"
^DD(357.4,.03,1,2,0)="357.4^APO1^MUMPS"
^DD(357.4,.03,1,2,1)="I $P($G(^IBE(357.4,DA,0)),U,2)]"""" S ^IBE(357.4,""APO"",X,$P(^(0),U,2),DA)="""""
^DD(357.4,.03,1,2,2)="I $P($G(^IBE(357.4,DA,0)),U,2)]"""" K ^IBE(357.4,""APO"",X,$P(^(0),U,2),DA)"
^DD(357.4,.03,1,2,"%D",0)="^^5^5^2960402^^"
^DD(357.4,.03,1,2,"%D",1,0)=" "
^DD(357.4,.03,1,2,"%D",2,0)="Allows all groups in a selection list to be found in the order that they"
^DD(357.4,.03,1,2,"%D",3,0)="should appear. The subscripts are ^IBE(357.4,""APO"",<selection list"
^DD(357.4,.03,1,2,"%D",4,0)="ien>,<print order for group>,<group ien>). If this field is re-indexed"
^DD(357.4,.03,1,2,"%D",5,0)="then the APO index on the .02 field need not be re-indexed."
^DD(357.4,.03,1,2,"DT")="2960402"
^DD(357.4,.03,3)="This identifies the selection list that contains this group."
^DD(357.4,.03,21,0)="^^2^2^2930527^"
^DD(357.4,.03,21,1,0)=" "
^DD(357.4,.03,21,2,0)="The Selection List this group belongs to."
^DD(357.4,.03,"DT")="2960402"
^DD(357.4,.04,0)="INVISIBLE^S^I:INVISIBLE;^0;4^Q"
^DD(357.4,.04,3)="If you do not want the header to print, enter 'I'."
^DD(357.4,.04,"DT")="2941208"
^DD(357.4,"B","HEADER",.01)=""
^DD(357.4,"B","INVISIBLE",.04)=""
^DD(357.4,"B","PRINT ORDER",.02)=""
^DD(357.4,"B","SELECTION LIST",.03)=""
^DD(357.4,"GL",0,1,.01)=""
^DD(357.4,"GL",0,2,.02)=""
^DD(357.4,"GL",0,3,.03)=""
^DD(357.4,"GL",0,4,.04)=""
^DD(357.4,"IX",.01)=""
^DD(357.4,"IX",.02)=""
^DD(357.4,"IX",.03)=""
^DD(357.4,"RQ",.01)=""
^DD(357.4,"RQ",.02)=""
^DD(357.4,"RQ",.03)=""
^DD(357.5,0)="FIELD^^2^13"
^DD(357.5,0,"DDA")="N"
^DD(357.5,0,"DIK")="IBDX5"
^DD(357.5,0,"DIKOLD")="IBDX5"
^DD(357.5,0,"DT")="2930730"
^DD(357.5,0,"ID",.02)="W """""
^DD(357.5,0,"ID",.03)="W """""
^DD(357.5,0,"IX","B",357.5,.01)=""
^DD(357.5,0,"IX","C",357.5,.02)=""
^DD(357.5,0,"NM","DATA FIELD")=""
^DD(357.5,0,"VR")="3.0"
^DD(357.5,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(357.5,.01,1,0)="^.1"
^DD(357.5,.01,1,1,0)="357.5^B"
^DD(357.5,.01,1,1,1)="S ^IBE(357.5,""B"",$E(X,1,30),DA)="""""
^DD(357.5,.01,1,1,2)="K ^IBE(357.5,""B"",$E(X,1,30),DA)"
^DD(357.5,.01,3)="Answer must be 3-30 characters in length."
^DD(357.5,.01,21,0)="^^3^3^2930419^^^"
^DD(357.5,.01,21,1,0)=" "
^DD(357.5,.01,21,2,0)="The name is used to identify the field within a block. It can be anything"
^DD(357.5,.01,21,3,0)="the designer of a form wants it to be."
^DD(357.5,.01,"DT")="2930419"
^DD(357.5,.02,0)="BLOCK^RP357.1'^IBE(357.1,^0;2^Q"
^DD(357.5,.02,1,0)="^.1"
^DD(357.5,.02,1,1,0)="357.5^C"
^DD(357.5,.02,1,1,1)="S ^IBE(357.5,""C"",$E(X,1,30),DA)="""""
^DD(357.5,.02,1,1,2)="K ^IBE(357.5,""C"",$E(X,1,30),DA)"
^DD(357.5,.02,1,1,"DT")="2921118"
^DD(357.5,.02,3)="What block should this data field appear in?"
^DD(357.5,.02,21,0)="^^2^2^2930310^"
^DD(357.5,.02,21,1,0)=" "
^DD(357.5,.02,21,2,0)="The particular block the data field should appear in."
^DD(357.5,.02,"DT")="2921118"
^DD(357.5,.03,0)="TYPE OF DATA^*P357.6'^IBE(357.6,^0;3^S DIC(""S"")=""I $P(^(0),U,6)=2,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.5,.03,3)="What data should be displayed in this field?"
^DD(357.5,.03,4)=""
^DD(357.5,.03,12)="Allows only available display interfaces."
^DD(357.5,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=2,$P(^(0),U,9)=1"""
^DD(357.5,.03,21,0)="^^5^5^2950825^^^"
^DD(357.5,.03,21,1,0)=" "
^DD(357.5,.03,21,2,0)="The particular interface that should be invoked to obtain the data for"
^DD(357.5,.03,21,3,0)="display. Some of the interfaces don't actually return data, but are"
^DD(357.5,.03,21,4,0)="instead 'dummy' interfaces for the purpose of printing things like blank"
^DD(357.5,.03,21,5,0)="lines."
^DD(357.5,.03,"DT")="2930309"
^DD(357.5,.04,0)="LAST ITEM INDICATOR^S^1:YES;0:NO;^0;4^Q"
^DD(357.5,.04,.1)="IS THIS THE LAST ONE THAT WILL FIT ON THE FORM?"
^DD(357.5,.04,3)=""
^DD(357.5,.04,4)="W ""Enter YES if this is the last item that should print, else enter NO."""
^DD(357.5,.04,21,0)="^^4^4^2930408^^^^"
^DD(357.5,.04,21,1,0)=" "
^DD(357.5,.04,21,2,0)="This field is used to indicate which item on a list is the last to be"
^DD(357.5,.04,21,3,0)="printed to the form. The remaining items can be printed to a separate"
^DD(357.5,.04,21,4,0)="piece of paper."
^DD(357.5,.04,"DT")="2930413"
^DD(357.5,.05,0)="NUMBER ON LIST^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.5,.05,.1)="WHICH ITEM ON THE LIST SHOULD BE DISPLAYED IN THIS FIELD?"
^DD(357.5,.05,3)="The data is a list of items. Which item on the list should be displayed?"
^DD(357.5,.05,21,0)="^^1^1^2930607^"
^DD(357.5,.05,21,1,0)="For data returned by the package interface that is in the form of a list, this field indicates which one of the items on the list should be displayed to this field."
^DD(357.5,.05,"DT")="2930413"
^DD(357.5,.06,0)="TEXT LABEL^F^^0;6^K:$L(X)>150!($L(X)<1) X"
^DD(357.5,.06,.1)="WHAT LABEL SHOULD BEGIN THE TEXT (OPTIONAL)"
^DD(357.5,.06,3)="You can optionally begin the text with a label of your choice."
^DD(357.5,.06,21,0)="^^2^2^2930527^"
^DD(357.5,.06,21,1,0)=" "
^DD(357.5,.06,21,2,0)="The label that should precede the text."
^DD(357.5,.06,"DT")="2930825"
^DD(357.5,.07,0)="TEXT LABEL APPEARANCE^FX^^0;7^S X=$$UPPER^VALM1(X) K:$L(X)>3!(""UBR""'[$E(X,1))!(""UBR""'[$E(X,2))!(""UBR""'[$E(X,3)) X"
^DD(357.5,.07,.1)="HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {B,U,R}"
^DD(357.5,.07,3)="B=bold,U=underline,R=reverse. You can enter BU to make the label bold and underlined."
^DD(357.5,.07,21,0)="^^3^3^2940527^^^"
^DD(357.5,.07,21,1,0)=" "
^DD(357.5,.07,21,2,0)="The label can have characteristics, such as being underlined or"
^DD(357.5,.07,21,3,0)="emboldened."
^DD(357.5,.07,"DT")="2940527"
^DD(357.5,.1,0)="TEXT STARTING COLUMN^NJ3,0XO^^0;10^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.5,.1,.1)="WHAT BLOCK COLUMN SHOULD THE TEXT START AT?"
^DD(357.5,.1,2)="S:Y=+Y Y=Y+1"
^DD(357.5,.1,2.1)="S Y=+Y+1"
^DD(357.5,.1,3)="What block column should the text start at?"
^DD(357.5,.1,21,0)="^^2^2^2930715^^"
^DD(357.5,.1,21,1,0)="This field determines what column the text should begin in."
^DD(357.5,.1,21,2,0)="Applies only if the Package Interface returns a word-processing field."
^DD(357.5,.1,23,0)="^^4^4^2930715^"
^DD(357.5,.1,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.5,.1,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.5,.1,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.5,.1,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.5,.1,"DT")="2940527"
^DD(357.5,.11,0)="TEXT STARTING ROW^NJ3,0XO^^0;11^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.5,.11,.1)="WHAT BLOCK ROW SHOULD THE TEXT START AT?"
^DD(357.5,.11,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(357.5,.11,2.1)="S:Y=+Y Y=Y+1"
^DD(357.5,.11,3)="What block row should the text begin in?"
^DD(357.5,.11,21,0)="^^4^4^2930715^^"
^DD(357.5,.11,21,1,0)=" "
^DD(357.5,.11,21,2,0)="Determines which line on the form, relative to the block, the text area"
^DD(357.5,.11,21,3,0)="should begin at. Only applies if the package interface returns a"
^DD(357.5,.11,21,4,0)="word-processing field."
^DD(357.5,.11,23,0)="^^4^4^2930715^"
^DD(357.5,.11,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.5,.11,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.5,.11,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.5,.11,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.5,.11,"DT")="2940527"
^DD(357.5,.12,0)="NUMBER OF FORM LINES FOR TEXT^NJ3,0^^0;12^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.5,.12,.1)="HOW MANY LINES OF THE FORM SHOULD BE ALLOCATED FOR THE TEXT?"
^DD(357.5,.12,3)="How many lines of the form should be allocated for the text?"
^DD(357.5,.12,21,0)="^^2^2^2930527^"
^DD(357.5,.12,21,1,0)=" "
^DD(357.5,.12,21,2,0)="The number of lines on the form that should be allocated for the text."
^DD(357.5,.12,"DT")="2930414"
^DD(357.5,.13,0)="SPACING OF TEXT LINES^S^1:SINGLE SPACED;2:DOUBLE SPACED;3:SINGLE, BUT DOUBLE IF BLANK;^0;13^Q"
^DD(357.5,.13,.1)="HOW SHOULD THE TEXT LINES BE SPACED?"
^DD(357.5,.13,3)="How do you want the text lines to be spaced?"
^DD(357.5,.13,21,0)="^^2^2^2930527^"
^DD(357.5,.13,21,1,0)=" "
^DD(357.5,.13,21,2,0)="Determines the spacing between lines of text."
^DD(357.5,.13,"DT")="2930414"
^DD(357.5,.14,0)="WIDTH OF TEXT LINES^NJ3,0^^0;14^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.5,.14,.1)="HOW MANY CHARACTERS ACROSS SHOULD THE TEXT LINES BE?"
^DD(357.5,.14,3)="How many columns wide do you want the text?"
^DD(357.5,.14,21,0)="^^2^2^2930527^"
^DD(357.5,.14,21,1,0)=" "
^DD(357.5,.14,21,2,0)="Determines how many characters across should be allocated to the text."
^DD(357.5,.14,"DT")="2930414"
^DD(357.5,2,0)="SUBFIELD^357.52I^^2;0"
^DD(357.5,2,21,0)="^^2^2^2940816^^^^"
^DD(357.5,2,21,1,0)="A data field can be composed of multiple subfields. Each subfield can have"
^DD(357.5,2,21,2,0)="a label and data."
^DD(357.5,2,"DT")="2930323"
^DD(357.5,"B","BLOCK",.02)=""
^DD(357.5,"B","LAST ITEM INDICATOR",.04)=""
^DD(357.5,"B","NAME",.01)=""
^DD(357.5,"B","NUMBER OF FORM LINES FOR TEXT",.12)=""
^DD(357.5,"B","NUMBER ON LIST",.05)=""
^DD(357.5,"B","SPACING OF TEXT LINES",.13)=""
^DD(357.5,"B","SUBFIELD",2)=""
^DD(357.5,"B","TEXT LABEL",.06)=""
^DD(357.5,"B","TEXT LABEL APPEARANCE",.07)=""
^DD(357.5,"B","TEXT STARTING COLUMN",.1)=""
^DD(357.5,"B","TEXT STARTING ROW",.11)=""
^DD(357.5,"B","TYPE OF DATA",.03)=""
^DD(357.5,"B","WIDTH OF TEXT LINES",.14)=""
^DD(357.5,"GL",0,1,.01)=""
^DD(357.5,"GL",0,2,.02)=""
^DD(357.5,"GL",0,3,.03)=""
^DD(357.5,"GL",0,4,.04)=""
^DD(357.5,"GL",0,5,.05)=""
^DD(357.5,"GL",0,6,.06)=""
^DD(357.5,"GL",0,7,.07)=""
^DD(357.5,"GL",0,10,.1)=""
^DD(357.5,"GL",0,11,.11)=""
^DD(357.5,"GL",0,12,.12)=""
^DD(357.5,"GL",0,13,.13)=""
^DD(357.5,"GL",0,14,.14)=""
^DD(357.5,"GL",2,0,2)=""
^DD(357.5,"IX",.01)=""
^DD(357.5,"IX",.02)=""
^DD(357.5,"RQ",.01)=""
^DD(357.5,"RQ",.02)=""
^DD(357.5,"SB",357.52,2)=""
^DD(357.52,0)="SUBFIELD SUB-FIELD^^.09^8"
^DD(357.52,0,"DIK")="IBDX5"
^DD(357.52,0,"DT")="2930730"
^DD(357.52,0,"IX","B",357.52,.01)=""
^DD(357.52,0,"NM","SUBFIELD")=""
^DD(357.52,0,"UP")="357.5"
^DD(357.52,.01,0)="SUBFIELD LABEL^MF^^0;1^K:$L(X)>150!($L(X)<1) X"
^DD(357.52,.01,1,0)="^.1"
^DD(357.52,.01,1,1,0)="357.52^B"
^DD(357.52,.01,1,1,1)="S ^IBE(357.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(357.52,.01,1,1,2)="K ^IBE(357.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(357.52,.01,3)="What should the subfield be named? The label will print unless it is made invisible."
^DD(357.52,.01,4)=""
^DD(357.52,.01,21,0)="^^3^3^2931020^^^^"
^DD(357.52,.01,21,1,0)=" "
^DD(357.52,.01,21,2,0)="The name of the subfield. The label prints to the form unless it is made"
^DD(357.52,.01,21,3,0)="invisible."
^DD(357.52,.01,"DT")="2930730"
^DD(357.52,.03,0)="SUBFIELD LABEL APPEARANCE^FX^^0;3^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""UBRI""'[$E(X,1))!(""UBRI""'[$E(X,2))!(""UBRI""'[$E(X,3))!(""UBRI""'[$E(X,4)) X"
^DD(357.52,.03,.1)="HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {U,B,R,I}"
^DD(357.52,.03,3)="B=bold,U=underline,R=reverse,I=invisible You can enter any combination of {B,U,R,I}. The label will not print if it is made invisible."
^DD(357.52,.03,4)=""
^DD(357.52,.03,21,0)="^^4^4^2940526^^^"
^DD(357.52,.03,21,1,0)=" "
^DD(357.52,.03,21,2,0)="The label can be made bold, underlined, or invisible. It can also be printed"
^DD(357.52,.03,21,3,0)=" in reverse, i.e., white on black. This field determines which of those"
^DD(357.52,.03,21,4,0)=" characteristics apply."
^DD(357.52,.03,"DT")="2940816"
^DD(357.52,.04,0)="STARTING COLUMN FOR LABEL^NJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.52,.04,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(357.52,.04,2.1)="S:Y=+Y Y=Y+1"
^DD(357.52,.04,3)="What block column should the label start in?"
^DD(357.52,.04,21,0)="^^2^2^2930715^^"
^DD(357.52,.04,21,1,0)=" "
^DD(357.52,.04,21,2,0)="The column, relative to the block, that the label should start at."
^DD(357.52,.04,23,0)="^^4^4^2930715^"
^DD(357.52,.04,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.52,.04,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.52,.04,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.52,.04,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.52,.04,"DT")="2930617"
^DD(357.52,.05,0)="STARTING ROW FOR LABEL^NJ3,0XO^^0;5^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.52,.05,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(357.52,.05,2.1)="S:Y=+Y Y=Y+1"
^DD(357.52,.05,3)="What block row should the label start in?"
^DD(357.52,.05,21,0)="^^2^2^2930608^"
^DD(357.52,.05,21,1,0)=" "
^DD(357.52,.05,21,2,0)="The row the label should be printed on."
^DD(357.52,.05,23,0)="^^4^4^2930715^"
^DD(357.52,.05,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.52,.05,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.52,.05,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.52,.05,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.52,.05,"DT")="2930617"
^DD(357.52,.06,0)="STARTING ROW FOR DATA^NJ3,0XO^^0;6^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.52,.06,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(357.52,.06,2.1)="S:Y=+Y Y=Y+1"
^DD(357.52,.06,3)="What block row should the data begin in?"
^DD(357.52,.06,21,0)="^^2^2^2930715^^"
^DD(357.52,.06,21,1,0)=" "
^DD(357.52,.06,21,2,0)="The row, relative to the block, that the data should print on."
^DD(357.52,.06,23,0)="^^4^4^2930715^^"
^DD(357.52,.06,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.52,.06,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.52,.06,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.52,.06,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.52,.06,"DT")="2930617"
^DD(357.52,.07,0)="STARTING COLUMN FOR DATA^NJ3,0XO^^0;7^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.52,.07,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(357.52,.07,2.1)="S:Y=+Y Y=Y+1"
^DD(357.52,.07,3)="What block column should the data begin in?"
^DD(357.52,.07,21,0)="^^2^2^2930608^"
^DD(357.52,.07,21,1,0)=" "
^DD(357.52,.07,21,2,0)="The column, relative to the block, that the data should print on."
^DD(357.52,.07,23,0)="^^4^4^2930715^"
^DD(357.52,.07,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.52,.07,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.52,.07,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.52,.07,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.52,.07,"DT")="2930617"
^DD(357.52,.08,0)="LENGTH OF DATA^NJ3,0^^0;8^K:+X'=X!(X>150)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.52,.08,3)="How much space on the line should be allocated for the information to be displayed?"
^DD(357.52,.08,21,0)="^^3^3^2930527^"
^DD(357.52,.08,21,1,0)=" "
^DD(357.52,.08,21,2,0)="The amount of space, in terms of characters, that should be allocated"
^DD(357.52,.08,21,3,0)="to the data."
^DD(357.52,.08,"DT")="2930322"
^DD(357.52,.09,0)="DATA^NJ1,0X^^0;9^K:'$$OKPIECE^IBDFU5(+$P($G(^IBE(357.5,D0,0)),U,3),X) X"
^DD(357.52,.09,.1)="WHAT DATA SHOULD BE DISPLAYED IN THIS SUBFIELD?"
^DD(357.52,.09,3)="WHAT DATA SHOULD BE DISPLAYED IN THIS SUBFIELD?"
^DD(357.52,.09,4)="D HELP1^IBDFU5"
^DD(357.52,.09,21,0)="^^4^4^2930527^"
^DD(357.52,.09,21,1,0)=" "
^DD(357.52,.09,21,2,0)="The package interface returns a record that may be composed of multiple"
^DD(357.52,.09,21,3,0)="fields. This identifies which of those fields should appear in this"
^DD(357.52,.09,21,4,0)="subfield."
^DD(357.52,.09,"DT")="2950919"
^DD(357.52,"B","DATA",.09)=""
^DD(357.52,"B","LENGTH OF DATA",.08)=""
^DD(357.52,"B","STARTING COLUMN FOR DATA",.07)=""
^DD(357.52,"B","STARTING COLUMN FOR LABEL",.04)=""
^DD(357.52,"B","STARTING ROW FOR DATA",.06)=""
^DD(357.52,"B","STARTING ROW FOR LABEL",.05)=""
^DD(357.52,"B","SUBFIELD LABEL",.01)=""
^DD(357.52,"B","SUBFIELD LABEL APPEARANCE",.03)=""
^DD(357.52,"GL",0,1,.01)=""
^DD(357.52,"GL",0,3,.03)=""
^DD(357.52,"GL",0,4,.04)=""
^DD(357.52,"GL",0,5,.05)=""
^DD(357.52,"GL",0,6,.06)=""
^DD(357.52,"GL",0,7,.07)=""
^DD(357.52,"GL",0,8,.08)=""
^DD(357.52,"GL",0,9,.09)=""
^DD(357.52,"IX",.01)=""
^DD(357.6,0)="FIELD^^21^57"
^DD(357.6,0,"ACT")="D ASK^IBDFU9"
^DD(357.6,0,"DDA")="N"
^DD(357.6,0,"DT")="2990304"
^DD(357.6,0,"ID",.06)="W """""
^DD(357.6,0,"ID","WRITE")="Q  N IBDWNAM S IBDWNAM=$E($P(^(0),U),1,40) D EN^DDIOL(IBDWNAM,"""",""!?0"")"
^DD(357.6,0,"ID","WRITE1")="N IBDWTYPE S IBDWTYPE=$S($P(^(0),""^"",6)=1:""INPUT"",$P(^(0),""^"",6)=2:""OUTPUT"",$P(^(0),""^"",6)=3:""SELECTION"",1:""REPORT"")_$S($P(^(0),""^"",6)=3&'$P(^(0),""^"",13):""  ** NOT SCANNABLE **"",1:"""") D EN^DDIOL(""TYPE=""_IBDWTYPE,"""",""?45"")"
^DD(357.6,0,"IX","B",357.6,.01)=""
^DD(357.6,0,"IX","C",357.6,.04)=""
^DD(357.6,0,"IX","D",357.6,3)=""
^DD(357.6,0,"IX","E",357.6,.01)=""
^DD(357.6,0,"NM","PACKAGE INTERFACE")=""
^DD(357.6,0,"PT",357.13,.03)=""
^DD(357.6,0,"PT",357.14,.04)=""
^DD(357.6,0,"PT",357.2,.11)=""
^DD(357.6,0,"PT",357.5,.03)=""
^DD(357.6,0,"PT",357.6,.13)=""
^DD(357.6,0,"PT",357.93,.06)=""
^DD(357.6,0,"PT",357.951,.03)=""
^DD(357.6,0,"PT",357.952,.04)=""
^DD(357.6,0,"PT",357.961,.03)=""
^DD(357.6,0,"PT",357.962,.03)=""
^DD(357.6,0,"PT",358.94,.06)=""
^DD(357.6,0,"PT",359.3,.1)=""
^DD(357.6,0,"PT",359.94,.06)=""
^DD(357.6,0,"PT",409.9501,.01)=""
^DD(357.6,0,"PT",409.9502,.01)=""
^DD(357.6,0,"PT",409.961,.01)=""
^DD(357.6,0,"VR")="3.0"
^DD(357.6,0,"VRPK")="IBD"
^DD(357.6,.01,0)="NAME^RFX^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(357.6,.01,1,0)="^.1"
^DD(357.6,.01,1,1,0)="357.6^B"
^DD(357.6,.01,1,1,1)="S ^IBE(357.6,""B"",$E(X,1,30),DA)="""""
^DD(357.6,.01,1,1,2)="K ^IBE(357.6,""B"",$E(X,1,30),DA)"
^DD(357.6,.01,1,2,0)="357.6^E^MUMPS"
^DD(357.6,.01,1,2,1)="N IBDXE S IBDXE=$E(X,$F(X,"" ""),40) S:$A(IBDXE)<33 IBDXE=X S ^IBE(357.6,""E"",IBDXE,DA)="""""
^DD(357.6,.01,1,2,2)="N IBDXE S IBDXE=$E(X,$F(X,"" ""),40) S:$A(IBDXE)<33 IBDXE=X K ^IBE(357.6,""E"",IBDXE,DA)"
^DD(357.6,.01,1,2,"%D",0)="^^4^4^2970711^^^^"
^DD(357.6,.01,1,2,"%D",1,0)=" "
^DD(357.6,.01,1,2,"%D",2,0)="For package interfaces that are output routines the name has the custodial"
^DD(357.6,.01,1,2,"%D",3,0)="package's name space as a prefix. This cross-reference removes that"
^DD(357.6,.01,1,2,"%D",4,0)="prefix. It is used to improve the display of output routines for the user."
^DD(357.6,.01,1,2,"DT")="2970711"
^DD(357.6,.01,3)="The name should be prefixed with the namespace of the package that provides the data."
^DD(357.6,.01,21,0)="^^3^3^2951017^"
^DD(357.6,.01,21,1,0)=" "
^DD(357.6,.01,21,2,0)="The name of the Package Interface. The name should be preceded with the"
^DD(357.6,.01,21,3,0)="namespace of the package."
^DD(357.6,.01,23,0)="^^1^1^2951017^^^"
^DD(357.6,.01,23,1,0)=" "
^DD(357.6,.01,"DT")="2970711"
^DD(357.6,.02,0)="ENTRY POINT^F^^0;2^K:$L(X)>8!($L(X)<1) X"
^DD(357.6,.02,3)="What entry point into the routine does this package interface use?"
^DD(357.6,.02,21,0)="^^2^2^2941018^^"
^DD(357.6,.02,21,1,0)=" "
^DD(357.6,.02,21,2,0)="The entry point in the routine that should be called."
^DD(357.6,.02,"DT")="2941018"
^DD(357.6,.03,0)="ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<1) X"
^DD(357.6,.03,3)="What routine does this package interface use?"
^DD(357.6,.03,21,0)="^^2^2^2941018^^"
^DD(357.6,.03,21,1,0)=" "
^DD(357.6,.03,21,2,0)="The routine that should be called."
^DD(357.6,.03,"DT")="2921125"
^DD(357.6,.04,0)="CUSTODIAL PACKAGE^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(357.6,.04,1,0)="^.1"
^DD(357.6,.04,1,1,0)="357.6^C"
^DD(357.6,.04,1,1,1)="S ^IBE(357.6,""C"",$E(X,1,30),DA)="""""
^DD(357.6,.04,1,1,2)="K ^IBE(357.6,""C"",$E(X,1,30),DA)"
^DD(357.6,.04,1,1,"DT")="2921229"
^DD(357.6,.04,3)="Answer must be 3-30 characters in length."
^DD(357.6,.04,21,0)="^^2^2^2951017^^"
^DD(357.6,.04,21,1,0)="This is a free text pointer to the package file. It serves only to"
^DD(357.6,.04,21,2,0)="document the custodial package of the data."
^DD(357.6,.04,"DT")="2951017"
^DD(357.6,.05,0)="VARIABLE DATA?^S^0:NO;1:YES;^0;5^Q"
^DD(357.6,.05,.1)="DOES THE DATA VARY FROM PATIENT TO PATIENT?"
^DD(357.6,.05,3)="Enter YES if the data returned is variable, NO if the data is always the same."
^DD(357.6,.05,21,0)="^^3^3^2930726^^^"
^DD(357.6,.05,21,1,0)="This field is used in the batch printing of encounter forms. The purpose"
^DD(357.6,.05,21,2,0)="is to avoid recomputing fields whose data does not change from patient to"
^DD(357.6,.05,21,3,0)="patient."
^DD(357.6,.05,"DT")="2931124"
^DD(357.6,.06,0)="ACTION TYPE^RS^1:INPUT;2:DISPLAY;3:SELECTION;4:PRINT REPORT;^0;6^Q"
^DD(357.6,.06,3)="Is this interface for inputting data, displaying data to a form, for creating lists that will appear on a form, or for printing reports?"
^DD(357.6,.06,21,0)="^^10^10^2981216^^^^"
^DD(357.6,.06,21,1,0)=""
^DD(357.6,.06,21,2,0)="Enter 1 for INPUT if the interface accepts data input from the user"
^DD(357.6,.06,21,3,0)="        and transmits the data to the appropriate package. "
^DD(357.6,.06,21,4,0)="Enter 2 for DISPLAY if the interface retrieves data for display to a form."
^DD(357.6,.06,21,5,0)="Enter 3 for SELECTION if the interface is for building a list to display"
^DD(357.6,.06,21,6,0)="        to a form."
^DD(357.6,.06,21,7,0)="Enter 4 if the interface is for printing a report."
^DD(357.6,.06,21,8,0)=""
^DD(357.6,.06,21,9,0)="If the ACTION TYPE is SELECTION then the data type must be a record and"
^DD(357.6,.06,21,10,0)="the first piece must be the ID use to uniquely identify the selection."
^DD(357.6,.06,23,0)="^^1^1^2981216^^^^"
^DD(357.6,.06,23,1,0)=" "
^DD(357.6,.06,"DT")="2950825"
^DD(357.6,.07,0)="DATA TYPE^S^1:SINGLE VALUE;2:RECORD;3:LIST OF SINGLE VALUES;4:LIST OF RECORDS;5:WORD PROCESSING;^0;7^Q"
^DD(357.6,.07,.1)="WHAT FORMAT WILL THE DATA BE IN?"
^DD(357.6,.07,3)="What format will the data be in?"
^DD(357.6,.07,21,0)="^^9^9^2981216^^"
^DD(357.6,.07,21,1,0)="Only applies to selection or display interfaces, both of which retrieve"
^DD(357.6,.07,21,2,0)="data for display to a form. It is the type of format the data should be"
^DD(357.6,.07,21,3,0)="in."
^DD(357.6,.07,21,4,0)=" "
^DD(357.6,.07,21,5,0)="A single value is a string without pieces. A record is a set of strings"
^DD(357.6,.07,21,6,0)="concatenated together with ""^"" separating the pieces. A list is an"
^DD(357.6,.07,21,7,0)="indefinite number of values, each numbered, each containing the same type"
^DD(357.6,.07,21,8,0)="of information. A word processing data type will be in FM format."
^DD(357.6,.07,21,9,0)="If the ACTION TYPE is SELECTION then the data type must be record."
^DD(357.6,.07,"DT")="2930726"
^DD(357.6,.08,0)="PRINT COMPLETE^S^0:NO;1:YES;^0;8^Q"
^DD(357.6,.08,3)="If there is insufficient room on the form to print the data, should it be re-printed in full on a separate page?"
^DD(357.6,.08,21,0)="^^4^4^2930527^"
^DD(357.6,.08,21,1,0)=" "
^DD(357.6,.08,21,2,0)="This field is used to determine what should happen if the data does not"
^DD(357.6,.08,21,3,0)="fit in the space allocated to it on the form. If answered YES the data"
^DD(357.6,.08,21,4,0)="will be printed on another page."
^DD(357.6,.08,"DT")="2930507"
^DD(357.6,.09,0)="AVAILABLE? (Y/N)^RS^0:NO;1:YES;^0;9^Q"
^DD(357.6,.09,3)="Is this package interface now available for use?"
^DD(357.6,.09,21,0)="^^3^3^2930527^"
^DD(357.6,.09,21,1,0)=" "
^DD(357.6,.09,21,2,0)="This field should be set to YES if the interface is available, NO if it is"
^DD(357.6,.09,21,3,0)="not available. Interfaces that are not available are not called."
^DD(357.6,.09,"DT")="2921213"
^DD(357.6,.1,0)="HEALTH SUMMARY?^S^0:NO;1:YES;^0;10^Q"
^DD(357.6,.1,.1)="ARE YOU REQUESTING A HEALTH SUMMARY?"
^DD(357.6,.1,2.1)="S:Y=+Y Y=Y+1"
^DD(357.6,.1,3)=" Are you requesting a HEALTH SUMMARY to print?"
^DD(357.6,.1,21,0)="^^7^7^2930616^"
^DD(357.6,.1,21,1,0)=" "
^DD(357.6,.1,21,2,0)="This field will determine how to go about printing the report or form. It"
^DD(357.6,.1,21,3,0)="applies only to Package Interfaces of ACTION TYPE = PRINT REPORT. Health"
^DD(357.6,.1,21,4,0)="Summaries use the field HEALTH SUMMARY to determine the type of Health"
^DD(357.6,.1,21,5,0)="Summary to print. The process of printing Health Summaries dos not use the"
^DD(357.6,.1,21,6,0)="fields ENTRY POINT or ROUTINE, since all Health Summaries are printed in"
^DD(357.6,.1,21,7,0)="the same way."
^DD(357.6,.1,"DT")="2930616"
^DD(357.6,.11,0)="TYPE OF HEALTH SUMMARY^*P142'^GMT(142,^0;11^S DIC(""S"")=""I $P(^(0),U)'=""""GMTS HS ADHOC OPTION"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.6,.11,3)="Which Health Summary do you want printed?"
^DD(357.6,.11,12)="EXCLUDES AD HOC HEALTH SUMMARIES"
^DD(357.6,.11,12.1)="S DIC(""S"")=""I $P(^(0),U)'=""""GMTS HS ADHOC OPTION"""""""
^DD(357.6,.11,21,0)="^^4^4^2970819^^"
^DD(357.6,.11,21,1,0)=" "
^DD(357.6,.11,21,2,0)="This identifies the Health Summary that should be printed when this"
^DD(357.6,.11,21,3,0)="Package Interface is invoked. It should be null unless the HEALTH SUMMARY?"
^DD(357.6,.11,21,4,0)="field #.1 is coded YES."
^DD(357.6,.11,"DT")="2930617"
^DD(357.6,.12,0)="TOOLKIT MEMBER?^S^0:NO;1:YES;^0;12^Q"
^DD(357.6,.12,.1)="SHOULD THIS PACKAGE INTERFACE BE PART OF THE TOOLKIT?"
^DD(357.6,.12,3)="Enter YES if this PACKAGE INTERFACE was added by the package developers as part of the toolkit, enter NO otherwise."
^DD(357.6,.12,21,0)="^^3^3^2950808^^"
^DD(357.6,.12,21,1,0)=" "
^DD(357.6,.12,21,2,0)="Package Interfaces that are developed for national use will be documented"
^DD(357.6,.12,21,3,0)="as being part of the toolkit."
^DD(357.6,.12,"DT")="2950711"
^DD(357.6,.13,0)="PACKAGE INTERFACE FOR INPUT^*P357.6'^IBE(357.6,^0;13^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.6,.13,.1)="WHICH INTERFACE SHOULD THIS LIST USE FOR PASSING DATA TO THE DATA BASE?"
^DD(357.6,.13,3)="What interface should be used for inputting data entered on the selection list?"
^DD(357.6,.13,12)="Must be an available interfaces for accepting input from selection lists."
^DD(357.6,.13,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""S"""""""
^DD(357.6,.13,21,0)="^^1^1^2970902^^^^"
^DD(357.6,.13,21,1,0)="Used to map scanned data to DHCP."
^DD(357.6,.13,"DT")="2950825"
^DD(357.6,.14,0)="DYNAMIC SELECTIONS^S^0:NO;1:YES;^0;14^Q"
^DD(357.6,.14,3)="Only for selection routines. Enter YES if the Package Interface builds the selection list each time the form is printed."
^DD(357.6,.14,21,0)="^^2^2^2950719^"
^DD(357.6,.14,21,1,0)="This is used to indicate whether the interface is used to build selection"
^DD(357.6,.14,21,2,0)="lists at print time."
^DD(357.6,.14,"DT")="2941221"
^DD(357.6,.15,0)="DO NOT USE DFN AS A SUBSCRIPT^*S^0:NO;1:YES;^0;15^Q"
^DD(357.6,.15,3)="If the patient DFN should not be used as a subscript when passing data enter YES."
^DD(357.6,.15,12)="If the action type is not OUTPUT ROUTINE then this field should not be set to NO."
^DD(357.6,.15,12.1)="S DIC(""S"")=""I (Y=1)!($P(^IBE(357.6,DA,0),U,6)=2)"""
^DD(357.6,.15,21,0)="^^6^6^2950413^^^^"
^DD(357.6,.15,21,1,0)="Originally, the patient DFN was used as a subscript when returning data"
^DD(357.6,.15,21,2,0)="for Package Interfaces of type output, but not for other types of"
^DD(357.6,.15,21,3,0)="interfaces. It is no longer necessary for any new Package Interface to use"
^DD(357.6,.15,21,4,0)="DFN as a subscript, but, to maintain compatibilty, output routines"
^DD(357.6,.15,21,5,0)="must set this field to YES if DFN is not to be used as a subscript. This"
^DD(357.6,.15,21,6,0)="field has no effect on other types of interfaces."
^DD(357.6,.15,"DT")="2950413"
^DD(357.6,.16,0)="ALLOWED OBJECT USE^FX^^0;16^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""SMHP""'[$E(X,1))!(""SMHP""'[$E(X,2))!(""SMHP""'[$E(X,3))!(""SMHP""'[$E(X,4)) X"
^DD(357.6,.16,3)=""
^DD(357.6,.16,4)="D HELP7^IBDFU5A"
^DD(357.6,.16,21,0)="^^5^5^2950913^^^^"
^DD(357.6,.16,21,1,0)="This field applies only to package interfaces for input and is used to"
^DD(357.6,.16,21,2,0)="determine which package interfaces a particular type of form object may"
^DD(357.6,.16,21,3,0)="point to. Some combinations don't make sense. For example, it would not"
^DD(357.6,.16,21,4,0)="make sense to allow a multiple choice question to point to vitals, which"
^DD(357.6,.16,21,5,0)="is used to input data such as temperature and blood pressure."
^DD(357.6,.16,"DT")="2950913"
^DD(357.6,.17,0)="ASK FOR ADDITIONAL NARRATIVE^S^0:NO;1:YES;^0;17^Q"
^DD(357.6,.17,21,0)="^^7^7^2951207^"
^DD(357.6,.17,21,1,0)="Enter whether users should be prompt for specifying the provider narrative"
^DD(357.6,.17,21,2,0)="that will be sent to PCE (and problem list) when creating a selection list."
^DD(357.6,.17,21,3,0)="If this is answered no and the narrative is sent to PCE then the text as it"
^DD(357.6,.17,21,4,0)="appears on the form will be used as the provider narrative."
^DD(357.6,.17,21,5,0)=" "
^DD(357.6,.17,21,6,0)="Generally only dianosis and clinical lexicon entries will want this field "
^DD(357.6,.17,21,7,0)="set to Yes."
^DD(357.6,.17,"DT")="2951207"
^DD(357.6,.18,0)="ASK FOR CLINICAL LEXICON^S^0:NO;1:YES;^0;18^Q"
^DD(357.6,.18,3)="Enter 'Yes' if you want to map entries from this interface to the clinical lexicon"
^DD(357.6,.18,21,0)="^^10^10^2960205^"
^DD(357.6,.18,21,1,0)="If this field is answered 'Yes' then users who are editing or creating"
^DD(357.6,.18,21,2,0)="selection lists based on this interface will be asked to map each entry"
^DD(357.6,.18,21,3,0)="(thought it is optional) to a clinical lexicon entry.  This is highly"
^DD(357.6,.18,21,4,0)="recommended for user who are scanning diagnosis entries and trying to "
^DD(357.6,.18,21,5,0)="add entries to the Patients Problem list."
^DD(357.6,.18,21,6,0)=" "
^DD(357.6,.18,21,7,0)="The primary purpose of this field is to allow sites who have built selection"
^DD(357.6,.18,21,8,0)="lists using the ICD9 Diagnosis file to map each entry to the clinical lexicon."
^DD(357.6,.18,21,9,0)="The Problem List EP has recommended that each problem added to the problem"
^DD(357.6,.18,21,10,0)="list be associated with a clinical lexicon entry."
^DD(357.6,.18,"DT")="2960205"
^DD(357.6,.19,0)="DQ REQUIRED^S^1:YES;^0;19^Q"
^DD(357.6,.19,21,0)="^^2^2^2960228^^"
^DD(357.6,.19,21,1,0)="Field used to determine if a data qualifier is required for this"
^DD(357.6,.19,21,2,0)="input interface."
^DD(357.6,.19,"DT")="2960212"
^DD(357.6,.2,0)="ASK FOR CLINICAL REMINDERS^S^0:NO;1:YES;^0;20^Q"
^DD(357.6,.2,3)="If this package interface is for display of clinical reminders answer yes, otherwise answer no."
^DD(357.6,.2,21,0)="^^2^2^2991216^^^^"
^DD(357.6,.2,21,1,0)="If this package interface is for display of clinical reminders answer "
^DD(357.6,.2,21,2,0)="yes, otherwise answer no."
^DD(357.6,.2,"DT")="2971002"
^DD(357.6,.21,0)="ASK FOR CPT MODIFIERS?^S^0:NO;1:YES;^0;21^Q"
^DD(357.6,.21,3)="If this package interface is to prompt for CPT Modifiers, answer yes, otherwise answer no."
^DD(357.6,.21,21,0)="^^3^3^3000121^^^^"
^DD(357.6,.21,21,1,0)="ASK FOR CPT MODIFIERS field will be used when selecting CPT codes."
^DD(357.6,.21,21,2,0)="If answered ""YES"" and data is a procedure, CPT Modifiers should be"
^DD(357.6,.21,21,3,0)="asked during Forms Design and Manual Data Entry."
^DD(357.6,.21,"DT")="2990524"
^DD(357.6,1,0)="DESCRIPTION^357.61^^1;0"
^DD(357.6,1,21,0)="^^1^1^2950719^^^^"
^DD(357.6,1,21,1,0)="Should describe the data being exchanged by the package interface."
^DD(357.6,2.01,0)="PIECE 1 DESCRIPTIVE NAME^F^^2;1^K:$L(X)>30!($L(X)<3) X"
^DD(357.6,2.01,.1)="WHAT IS THE FIRST PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(357.6,2.01,3)="Answer must be 3-30 characters in length."
^DD(357.6,2.01,21,0)="^^3^3^2930527^"
^DD(357.6,2.01,21,1,0)=" "
^DD(357.6,2.01,21,2,0)="Should be a descriptive name of the first field in the record returned by"
^DD(357.6,2.01,21,3,0)="the interface."
^DD(357.6,2.01,"DT")="2930726"
^DD(357.6,2.02,0)="PIECE 1 MAXIMUM LENGTH^NJ3,0^^2;2^K:+X'=X!(X>210)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.6,2.02,.1)="WHAT IS ITS MAXIMUM LENGTH?"
^DD(357.6,2.02,3)="Type a Number between 0 and 210, 0 Decimal Digits"
^DD(357.6,2.02,21,0)="^^3^3^2930527^"
^DD(357.6,2.02,21,1,0)=" "
^DD(357.6,2.02,21,2,0)="The maximum length of the first field of the record returned by the"
^DD(357.6,2.02,21,3,0)="interface."
^DD(357.6,2.02,"DT")="2930726"
^DD(357.6,2.16,0)="PIECE 1 RECOMMENDED HEADER^F^^2;16^K:$L(X)>20!($L(X)<1) X"
^DD(357.6,2.16,3)="Answer must be 1-20 characters in length."
^DD(357.6,2.16,21,0)="^^1^1^2950719^"
^DD(357.6,2.16,21,1,0)="The recommended header will be used as the default when designing a form."
^DD(357.6,2.16,"DT")="2950417"
^DD(357.6,2.17,0)="IS PIECE 1 DISPLAYABLE?^S^0:NO;1:YES;^2;17^Q"
^DD(357.6,2.17,.1)="CAN THIS FIELD BE DISPLAYED TO THE USER?"
^DD(357.6,2.17,3)="The first piece of the returned record is reserved for the unique id of the selection. Enter no if it should not be displayed, for example, if it is a pointer."
^DD(357.6,2.17,21,0)="^^3^3^2950719^^"
^DD(357.6,2.17,21,1,0)="This is used only for selection type interfaces. If NO, then the value can"
^DD(357.6,2.17,21,2,0)="not be displayed to the encounter form.  The first piece must contain the"
^DD(357.6,2.17,21,3,0)="unique id of the selection."
^DD(357.6,2.17,"DT")="2930810"
^DD(357.6,2.18,0)="EXPORT SELECTIONS/CHOICES?^S^0:NO;1:YES;^2;18^Q"
^DD(357.6,2.18,3)="Enter NO if the ID returned by the PACKAGE INTERFACE is not constant between sites, for example, if it is a pointer. Otherwise answer YES."
^DD(357.6,2.18,21,0)="^^8^8^2950825^"
^DD(357.6,2.18,21,1,0)=" "
^DD(357.6,2.18,21,2,0)=" "
^DD(357.6,2.18,21,3,0)="Applies to selection and input routines. Determines whether"
^DD(357.6,2.18,21,4,0)="selections appearing on selection lists and choices in a multiple choice"
^DD(357.6,2.18,21,5,0)="field will be exported along with the form that they appear on. The"
^DD(357.6,2.18,21,6,0)="import/export utility will not resolve pointers, so if the id used by"
^DD(357.6,2.18,21,7,0)="the package interface is a pointer that differs between sites"
^DD(357.6,2.18,21,8,0)="this field should contain NO."
^DD(357.6,2.18,"DT")="2950825"
^DD(357.6,3,0)="USER LOOKUP^F^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>240!($L(X)<1) X"
^DD(357.6,3,.1)="LIST OF WORDS TO MAKE LOOK-UPS EASIER"
^DD(357.6,3,1,0)="^.1"
^DD(357.6,3,1,1,0)="357.6^D^KWIC"
^DD(357.6,3,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^IBE(357.6,""D"",I,DA)="""""
^DD(357.6,3,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^IBE(357.6,""D"",I,DA)"
^DD(357.6,3,1,1,"%D",0)="^^3^3^2930409^^"
^DD(357.6,3,1,1,"%D",1,0)=" "
^DD(357.6,3,1,1,"%D",2,0)="This index is meant to assist the user in locating the correct package"
^DD(357.6,3,1,1,"%D",3,0)="interface needed to display a particular item of data to a form."
^DD(357.6,3,1,1,"DT")="2930309"
^DD(357.6,3,3)="Enter words separated with spaces. They will be indexed to assist in lookup."
^DD(357.6,3,4)="D LOOKUP^IBDF16"
^DD(357.6,3,21,0)="^^4^4^2940217^"
^DD(357.6,3,21,1,0)=" "
^DD(357.6,3,21,2,0)="This field is used to create a KWIC index for this file. The purpose is to"
^DD(357.6,3,21,3,0)="assist the user in locating the package interface he needs to display a"
^DD(357.6,3,21,4,0)="particular item of data to a form."
^DD(357.6,3,"DT")="2930726"
^DD(357.6,4.01,0)="ENTRY ACTION^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,4.01,3)="This is Standard MUMPS code."
^DD(357.6,4.01,9)="@"
^DD(357.6,4.01,21,0)="^^3^3^2930527^"
^DD(357.6,4.01,21,1,0)=" "
^DD(357.6,4.01,21,2,0)="This code will be executed after the PROTECTED VARIABLES are newed, but"
^DD(357.6,4.01,21,3,0)="before the interface routine is called."
^DD(357.6,4.01,"DT")="2930521"
^DD(357.6,5.01,0)="EXIT ACTION^K^^5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,5.01,3)="This is Standard MUMPS code."
^DD(357.6,5.01,9)="@"
^DD(357.6,5.01,21,0)="^^3^3^2930528^"
^DD(357.6,5.01,21,1,0)=" "
^DD(357.6,5.01,21,2,0)="This code will be executed after the interface routine is called."
^DD(357.6,5.01,21,3,0)="The effect of the NEW done on the PROTECTED VARIABLES is still in effect."
^DD(357.6,5.01,"DT")="2930518"
^DD(357.6,6,0)="PROTECTED LOCAL VARIABLES^357.66^^6;0"
^DD(357.6,6,21,0)="^^11^11^2950719^^^"
^DD(357.6,6,21,1,0)=" "
^DD(357.6,6,21,2,0)="This is a list of variables that should be newed before the entry action"
^DD(357.6,6,21,3,0)="or calling the interface routine. It is protection against interfaces that"
^DD(357.6,6,21,4,0)="alter or kill variables, or entry actions that do so. Note that REQUIRED"
^DD(357.6,6,21,5,0)="VARIABLES should not also be PROTECTED VARIABLES. If an interface routine"
^DD(357.6,6,21,6,0)="changes a required variable, however, there is a way to protect it."
^DD(357.6,6,21,7,0)="Supposing, for example, DFN is killed by the interface. This will protect"
^DD(357.6,6,21,8,0)="it:"
^DD(357.6,6,21,9,0)="     PROTECTED VARIABLE:   IBDFN"
^DD(357.6,6,21,10,0)="     ENTRY ACTION:  S IBDFN=DFN"
^DD(357.6,6,21,11,0)="     EXIT ACTION:   S DFN=IBDFN"
^DD(357.6,7,0)="REQUIRED LOCAL VARIABLES^357.67^^7;0"
^DD(357.6,7,21,0)="^^4^4^2930528^"
^DD(357.6,7,21,1,0)=" "
^DD(357.6,7,21,2,0)="The interface may require inputs. This field is a list of the required"
^DD(357.6,7,21,3,0)="local variables. The interface will not be called unless the variables are"
^DD(357.6,7,21,4,0)="determined to exist."
^DD(357.6,9,0)="PCE DIM INPUT TRANSFORM^K^^9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,9,3)="The input transform should transform X to the value that should be passed."
^DD(357.6,9,9)="@"
^DD(357.6,9,21,0)="^^3^3^2960401^^"
^DD(357.6,9,21,1,0)="Used to transform X, the identifier stored with the form object, to the"
^DD(357.6,9,21,2,0)="form that should be passed to the PCE Device Interface Module. It may, for"
^DD(357.6,9,21,3,0)="example, transform a code to an ien."
^DD(357.6,9,"DT")="2960401"
^DD(357.6,10,0)="HELP TEXT^F^^10;1^K:$L(X)>245!($L(X)<1) X"
^DD(357.6,10,3)="This should provide some help to the user who is trying to enter a value associated with a bubble."
^DD(357.6,10,21,0)="^^2^2^2950817^^^"
^DD(357.6,10,21,1,0)="This should provide some help to the user who is trying to enter a value"
^DD(357.6,10,21,2,0)="associated with a bubble."
^DD(357.6,10,"DT")="2950522"
^DD(357.6,11,0)="VALIDATOR^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,11,3)="This is Standard MUMPS code will kill X if X no longer identifies a valid code."
^DD(357.6,11,9)="@"
^DD(357.6,11,21,0)="^^7^7^2981222^^"
^DD(357.6,11,21,1,0)="This field is used to validate codes currently on a form. The variable X"
^DD(357.6,11,21,2,0)="should be set to the identifier that was returned by the Package"
^DD(357.6,11,21,3,0)="Interface. For selection interfaces, the identifier is always piece 1 of"
^DD(357.6,11,21,4,0)="the 0 node of the entry in the selection list. Xecuting this field will"
^DD(357.6,11,21,5,0)="result in X being killed if the value is not valid. This is used by the"
^DD(357.6,11,21,6,0)="maintanance utility, for example, to find CPT codes that have been"
^DD(357.6,11,21,7,0)="inactivated."
^DD(357.6,11,"DT")="2950908"
^DD(357.6,12.01,0)="PCE DIM NODE^F^^12;1^K:$L(X)>30!($L(X)<1) X"
^DD(357.6,12.01,3)="What node will be used to pass the data?"
^DD(357.6,12.01,21,0)="^^1^1^2951017^^"
^DD(357.6,12.01,21,1,0)="The node used to pass the data to PCE, using the PCE DEVICE INTERFACE MODULE."
^DD(357.6,12.01,"DT")="2951017"
^DD(357.6,12.02,0)="PCE DIM PIECE, VALUE^NJ2,0^^12;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.6,12.02,3)="What piece should be used to pass the value?"
^DD(357.6,12.02,21,0)="^^1^1^2951017^^^"
^DD(357.6,12.02,21,1,0)="The piece in the PXCA node used to pass the input value."
^DD(357.6,12.02,"DT")="2951017"
^DD(357.6,12.03,0)="PCE DIM PIECE, NARRATIVE^NJ2,0^^12;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.6,12.03,3)="What piece should be used to pass the text displayed on the form?"
^DD(357.6,12.03,21,0)="^^1^1^2950317^^^"
^DD(357.6,12.03,21,1,0)="The piece in the PCXA node used to pass the text displayed on the form."
^DD(357.6,12.03,"DT")="2951017"
^DD(357.6,12.04,0)="PCE DIM PIECE, HEADER^NJ2,0^^12;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.6,12.04,3)="What piece should be used to pass the header displayed on the form?"
^DD(357.6,12.04,21,0)="^^2^2^2951017^"
^DD(357.6,12.04,21,1,0)="The piece on the node specified by the PCE DIM that the header is mapped"
^DD(357.6,12.04,21,2,0)="to."
^DD(357.6,12.04,"DT")="2951017"
^DD(357.6,12.05,0)="PCE DIM PIECE, DATA QUALIFIER^NJ2,0^^12;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.6,12.05,3)="What piece should be used to pass the data qualifier?"
^DD(357.6,12.05,21,0)="^^1^1^2971028^^"
^DD(357.6,12.05,21,1,0)="The piece of the PXCA node where the data modifier belongs."
^DD(357.6,12.05,"DT")="2951017"
^DD(357.6,12.06,0)="PCE DIM PIECE, QUANTITY^NJ2,0^^12;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.6,12.06,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(357.6,12.06,21,0)="^^2^2^2961031^^"
^DD(357.6,12.06,21,1,0)="An entry in this field indicates which piece of the array the quantity"
^DD(357.6,12.06,21,2,0)="should be passed on when sending data to PCE."
^DD(357.6,12.06,"DT")="2961015"
^DD(357.6,13,0)="ALLOWABLE QUALIFIERS^357.613V^^13;0"
^DD(357.6,13,21,0)="^^2^2^2971028^^^"
^DD(357.6,13,21,1,0)="This mulitiple contains the list of qualifiers that may apply to the"
^DD(357.6,13,21,2,0)="data."
^DD(357.6,14,0)="PCE DIM OUTPUT TRANSFORM^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,14,3)="This should change Y, the value to be passed, to a value suitable for display."
^DD(357.6,14,9)="@"
^DD(357.6,14,21,0)="^^3^3^2990302^^^"
^DD(357.6,14,21,1,0)="This transform should set Y, the value to be passed to the PCE "
^DD(357.6,14,21,2,0)="Device Interface Module (DIM), to a value that is suitable for"
^DD(357.6,14,21,3,0)="display. It may, for example, change an ien to a code."
^DD(357.6,14,"DT")="2960401"
^DD(357.6,15,0)="DATA DESCRIPTION^357.615I^^15;0"
^DD(357.6,15,21,0)="^^2^2^2950330^"
^DD(357.6,15,21,1,0)="For interfaces that return records, this multiple stores information on"
^DD(357.6,15,21,2,0)="the fields, other than the first field."
^DD(357.6,16.1,0)="ALLOW INPUT OF NARRATIVE?^S^n:NO;o:OPTIONAL;r:REQUIRED;^16;1^Q"
^DD(357.6,16.1,3)="Should the user be allowed to enter a narrative? Answer n=NO, o=OPTIONAL, r=REQUIRED"
^DD(357.6,16.1,21,0)="^^2^2^2950915^"
^DD(357.6,16.1,21,1,0)="For selection interfaces, this field determines whether a narrative is"
^DD(357.6,16.1,21,2,0)="allowed by the PCE Generic Device Interface."
^DD(357.6,16.1,"DT")="2950421"
^DD(357.6,16.2,0)="NARRATIVE DATA TYPE^P359.1'^IBE(359.1,^16;2^Q"
^DD(357.6,16.2,3)="What data type definition describes the narrative?"
^DD(357.6,16.2,21,0)="^^2^2^2950719^"
^DD(357.6,16.2,21,1,0)="This determines, among other things, how much space to allocate for the"
^DD(357.6,16.2,21,2,0)="narrative."
^DD(357.6,16.2,"DT")="2950426"
^DD(357.6,16.3,0)="NARRATIVE HEADER^F^^16;3^K:$L(X)>40!($L(X)<1) X"
^DD(357.6,16.3,3)="Answer must be 1-40 characters in length."
^DD(357.6,16.3,21,0)="^^1^1^2950825^"
^DD(357.6,16.3,21,1,0)="Used to label the narrative field."
^DD(357.6,16.3,"DT")="2950815"
^DD(357.6,16.5,0)="ALLOW INPUT OF PRIMARY VALUE?^S^n:NO;o:OPTIONAL;r:REQUIRED;^16;5^Q"
^DD(357.6,16.5,3)="Should a code be entered? n=NO, o=OPTIONAL, r=REQUIRED"
^DD(357.6,16.5,21,0)="^^2^2^2950915^"
^DD(357.6,16.5,21,1,0)="For selectin interfaces this determines whether a value, other than a"
^DD(357.6,16.5,21,2,0)="narrative, can be entered."
^DD(357.6,16.5,"DT")="2950426"
^DD(357.6,16.6,0)="PRIMARY VALUE DATA TYPE^P359.1'^IBE(359.1,^16;6^Q"
^DD(357.6,16.6,3)="What type of data is the primary value?"
^DD(357.6,16.6,21,0)="^^2^2^2950915^"
^DD(357.6,16.6,21,1,0)="For selection interfaces this determines, among other things, the data"
^DD(357.6,16.6,21,2,0)="type of the value to be entered."
^DD(357.6,16.6,"DT")="2950426"
^DD(357.6,16.7,0)="PRIMARY VALUE HEADER^F^^16;7^K:$L(X)>40!($L(X)<1) X"
^DD(357.6,16.7,3)="Answer must be 1-40 characters in length."
^DD(357.6,16.7,21,0)="^^1^1^2950815^"
^DD(357.6,16.7,21,1,0)="Used to label the primary value field."
^DD(357.6,16.7,"DT")="2950815"
^DD(357.6,16.8,0)="ALLOW MULTIPLIERS^S^1:YES;^16;8^Q"
^DD(357.6,16.8,3)="Enter yes if this interface will allow entry of quantity at form development time."
^DD(357.6,16.8,21,0)="^^3^3^2961031^^"
^DD(357.6,16.8,21,1,0)="For selection interfaces, this determines whether 'quantity' should be"
^DD(357.6,16.8,21,2,0)="asked at form development time to pass multiple occurrences of a selection"
^DD(357.6,16.8,21,3,0)="to PCE."
^DD(357.6,16.8,"DT")="2961008"
^DD(357.6,16.9,0)="ALLOW INPUT OF MULTIPLE CODES?^S^1:YES;^16;9^Q"
^DD(357.6,16.9,3)="Enter a 1 for 'YES'."
^DD(357.6,16.9,21,0)="^^4^4^2961216^^^^"
^DD(357.6,16.9,21,1,0)="Enter a one in this field if the users will be allowed to add more than"
^DD(357.6,16.9,21,2,0)="one code to pass along to PCE when one entry is bubbled."
^DD(357.6,16.9,21,3,0)="Data in this field REQUIRES that field 17 be populated with mumps code"
^DD(357.6,16.9,21,4,0)="that will allow selection of the code if the entry is edited."
^DD(357.6,16.9,"DT")="2961021"
^DD(357.6,17,0)="SELECTOR^K^^17;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,17,3)="Enter mumps code that will allow the form designer to add a choice to a multiple choice field."
^DD(357.6,17,9)="@"
^DD(357.6,17,21,0)="^^9^9^2951208^^^"
^DD(357.6,17,21,1,0)="This field only applies to input interfaces. It is executed as by an input"
^DD(357.6,17,21,2,0)="transform when creating a multiple choice field. It should:"
^DD(357.6,17,21,3,0)="1) Kill X if an nothing is selected, otherwise set X to a value suitable"
^DD(357.6,17,21,4,0)="for display, perhaps the code."
^DD(357.6,17,21,5,0)="2) Set IBLABEL to a suitable label for the choice."
^DD(357.6,17,21,6,0)="3) Set IBID to an identifier. The identifier should ideally be exportable,"
^DD(357.6,17,21,7,0)="meaning the same from site to site. This usually means a coded value"
^DD(357.6,17,21,8,0)="rather than an ien. The identfier should match that of a corresponding"
^DD(357.6,17,21,9,0)="selection interface, if there is one."
^DD(357.6,17,"DT")="2950908"
^DD(357.6,18,0)="MANUAL DATA ENTRY ROUTINE^K^^18;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,18,3)="Enter the code to be executed during manual data entry for this interface.  This is Standard MUMPS code."
^DD(357.6,18,9)="@"
^DD(357.6,18,21,0)="^^10^10^2951208^"
^DD(357.6,18,21,1,0)="Enter the code to be executed to do manual data entry for this interface."
^DD(357.6,18,21,2,0)=" "
^DD(357.6,18,21,3,0)="This field should only be completed for input package interfaces.  This"
^DD(357.6,18,21,4,0)="code will be executed to provide quick data entry for a user trying to"
^DD(357.6,18,21,5,0)="input data for a form.  It is expected that the output of this field will"
^DD(357.6,18,21,6,0)="be used to format the PXCA array prior to calling PCE to file the data"
^DD(357.6,18,21,7,0)="for the encounter."
^DD(357.6,18,21,8,0)=""
^DD(357.6,18,21,9,0)="Developers writing routines for this entry should provide a roll and scroll"
^DD(357.6,18,21,10,0)="interface for manaul entry of items only on the form."
^DD(357.6,18,"DT")="2951208"
^DD(357.6,19,0)="EXTERNAL DISPLAY VALUES^K^^19;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,19,3)="This is Standard MUMPS code."
^DD(357.6,19,9)="@"
^DD(357.6,19,21,0)="^^5^5^2960228^^^^"
^DD(357.6,19,21,1,0)="Executable code used to translate the internal value that is to"
^DD(357.6,19,21,2,0)="be passed to PCE into its external value for display purposes.  It"
^DD(357.6,19,21,3,0)="is used by the data validation routines to display the external"
^DD(357.6,19,21,4,0)="values and descriptions of what is to be passed, to the"
^DD(357.6,19,21,5,0)="user for verification."
^DD(357.6,19,"DT")="2960214"
^DD(357.6,20,0)="PASS DQ AS VALUE^S^1:YES;^20;1^Q"
^DD(357.6,20,3)="Enter Yes if the Data Qualifier should be passed as the Value when sending data to PCE."
^DD(357.6,20,21,0)="^^7^7^2961031^^"
^DD(357.6,20,21,1,0)="If the value of the Data Qualifier shall be passed to PCE as the VALUE,"
^DD(357.6,20,21,2,0)="this field should be set to one.  Doing so will prevent the data in the"
^DD(357.6,20,21,3,0)="VALUE from populating the PCE DIM NODE, but instead, will allow the Data"
^DD(357.6,20,21,4,0)="Qualifier to pass as the VALUE."
^DD(357.6,20,21,5,0)="This is used mostly for YES/NO Data Qualifiers, where the value may"
^DD(357.6,20,21,6,0)="be a question, and the Data Qualifier Value, if bubbled, is the value"
^DD(357.6,20,21,7,0)="that must be placed on the PCE DIM NODE."
^DD(357.6,20,"DT")="2961001"
^DD(357.6,21,0)="PCE DIM PIECE, VARIABLE VALUE^K^^21;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(357.6,21,3)="This is Standard MUMPS code."
^DD(357.6,21,9)="@"
^DD(357.6,21,21,0)="^^7^7^2961031^^^"
^DD(357.6,21,21,1,0)="This field should be populated when the PCE DIM PIECE VALUE is not"
^DD(357.6,21,21,2,0)="constant.  If the value of that field is dependent upon specific conditions,"
^DD(357.6,21,21,3,0)="those conditions may be evaluated by placing the MUMPS code in this"
^DD(357.6,21,21,4,0)="field.  Ultimately, the code should return a value that will be used as"
^DD(357.6,21,21,5,0)="the PCE DIM PIECE VALUE.  If the return value is null, the original"
^DD(357.6,21,21,6,0)="PCE DIM PIECE VALUE field will be used to determine the piece location"
^DD(357.6,21,21,7,0)="to pass the VALUE on."
^DD(357.6,21,"DT")="2961001"
^DD(357.6,"B","ACTION TYPE",.06)=""
^DD(357.6,"B","ALLOW INPUT OF MULTIPLE CODES?",16.9)=""
^DD(357.6,"B","ALLOW INPUT OF NARRATIVE?",16.1)=""
^DD(357.6,"B","ALLOW INPUT OF PRIMARY VALUE?",16.5)=""
^DD(357.6,"B","ALLOW MULTIPLIERS",16.8)=""
^DD(357.6,"B","ALLOWABLE QUALIFIERS",13)=""
^DD(357.6,"B","ALLOWED OBJECT USE",.16)=""
^DD(357.6,"B","ASK FOR ADDITIONAL NARRATIVE",.17)=""
^DD(357.6,"B","ASK FOR CLINICAL LEXICON",.18)=""
^DD(357.6,"B","ASK FOR CLINICAL REMINDERS",.2)=""
^DD(357.6,"B","ASK FOR CPT MODIFIERS?",.21)=""
^DD(357.6,"B","AVAILABLE? (Y/N)",.09)=""
^DD(357.6,"B","CUSTODIAL PACKAGE",.04)=""
^DD(357.6,"B","DATA DESCRIPTION",15)=""
^DD(357.6,"B","DATA TYPE",.07)=""
^DD(357.6,"B","DESCRIPTION",1)=""
^DD(357.6,"B","DO NOT USE DFN AS A SUBSCRIPT",.15)=""
^DD(357.6,"B","DQ REQUIRED",.19)=""
^DD(357.6,"B","DYNAMIC SELECTIONS",.14)=""
^DD(357.6,"B","ENTRY ACTION",4.01)=""
^DD(357.6,"B","ENTRY POINT",.02)=""
^DD(357.6,"B","EXIT ACTION",5.01)=""
^DD(357.6,"B","EXPORT SELECTIONS/CHOICES?",2.18)=""
^DD(357.6,"B","EXTERNAL DISPLAY VALUES",19)=""
^DD(357.6,"B","HEALTH SUMMARY?",.1)=""
^DD(357.6,"B","HELP TEXT",10)=""
^DD(357.6,"B","IS PIECE 1 DISPLAYABLE?",2.17)=""
^DD(357.6,"B","MANUAL DATA ENTRY ROUTINE",18)=""
^DD(357.6,"B","NAME",.01)=""
^DD(357.6,"B","NARRATIVE DATA TYPE",16.2)=""
^DD(357.6,"B","NARRATIVE HEADER",16.3)=""
^DD(357.6,"B","PACKAGE INTERFACE FOR INPUT",.13)=""
^DD(357.6,"B","PASS DQ AS VALUE",20)=""
^DD(357.6,"B","PCE DIM INPUT TRANSFORM",9)=""
^DD(357.6,"B","PCE DIM NODE",12.01)=""
^DD(357.6,"B","PCE DIM OUTPUT TRANSFORM",14)=""
^DD(357.6,"B","PCE DIM PIECE, DATA QUALIFIER",12.05)=""
^DD(357.6,"B","PCE DIM PIECE, HEADER",12.04)=""
^DD(357.6,"B","PCE DIM PIECE, NARRATIVE",12.03)=""
^DD(357.6,"B","PCE DIM PIECE, QUANTITY",12.06)=""
^DD(357.6,"B","PCE DIM PIECE, VALUE",12.02)=""
^DD(357.6,"B","PCE DIM PIECE, VARIABLE VALUE",21)=""
^DD(357.6,"B","PIECE 1 DESCRIPTIVE NAME",2.01)=""
^DD(357.6,"B","PIECE 1 MAXIMUM LENGTH",2.02)=""
^DD(357.6,"B","PIECE 1 RECOMMENDED HEADER",2.16)=""
^DD(357.6,"B","PRIMARY VALUE DATA TYPE",16.6)=""
^DD(357.6,"B","PRIMARY VALUE HEADER",16.7)=""
^DD(357.6,"B","PRINT COMPLETE",.08)=""
^DD(357.6,"B","PROTECTED LOCAL VARIABLES",6)=""
^DD(357.6,"B","REQUIRED LOCAL VARIABLES",7)=""
^DD(357.6,"B","ROUTINE",.03)=""
^DD(357.6,"B","SELECTOR",17)=""
^DD(357.6,"B","TOOLKIT MEMBER?",.12)=""
^DD(357.6,"B","TYPE OF HEALTH SUMMARY",.11)=""
^DD(357.6,"B","USER LOOKUP",3)=""
^DD(357.6,"B","VALIDATOR",11)=""
^DD(357.6,"B","VARIABLE DATA?",.05)=""
^DD(357.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.02)="1"
^DD(357.6,"GL",0,1,.01)=""
^DD(357.6,"GL",0,2,.02)=""
^DD(357.6,"GL",0,3,.03)=""
^DD(357.6,"GL",0,4,.04)=""
^DD(357.6,"GL",0,5,.05)=""
^DD(357.6,"GL",0,6,.06)=""
^DD(357.6,"GL",0,7,.07)=""
^DD(357.6,"GL",0,8,.08)=""
^DD(357.6,"GL",0,9,.09)=""
^DD(357.6,"GL",0,10,.1)=""
^DD(357.6,"GL",0,11,.11)=""
^DD(357.6,"GL",0,12,.12)=""
^DD(357.6,"GL",0,13,.13)=""
^DD(357.6,"GL",0,14,.14)=""
^DD(357.6,"GL",0,15,.15)=""
^DD(357.6,"GL",0,16,.16)=""
^DD(357.6,"GL",0,17,.17)=""
^DD(357.6,"GL",0,18,.18)=""
^DD(357.6,"GL",0,19,.19)=""
^DD(357.6,"GL",0,20,.2)=""
^DD(357.6,"GL",0,21,.21)=""
^DD(357.6,"GL",1,0,1)=""
^DD(357.6,"GL",2,1,2.01)=""
^DD(357.6,"GL",2,2,2.02)=""
^DD(357.6,"GL",2,16,2.16)=""
^DD(357.6,"GL",2,17,2.17)=""
^DD(357.6,"GL",2,18,2.18)=""
^DD(357.6,"GL",3,1,3)=""
^DD(357.6,"GL",4,"E1,245",4.01)=""
^DD(357.6,"GL",5,"E1,245",5.01)=""
^DD(357.6,"GL",6,0,6)=""
^DD(357.6,"GL",7,0,7)=""
^DD(357.6,"GL",9,"E1,245",9)=""
^DD(357.6,"GL",10,1,10)=""
^DD(357.6,"GL",11,"E1,245",11)=""
^DD(357.6,"GL",12,1,12.01)=""
^DD(357.6,"GL",12,2,12.02)=""
^DD(357.6,"GL",12,3,12.03)=""
^DD(357.6,"GL",12,4,12.04)=""
^DD(357.6,"GL",12,5,12.05)=""
^DD(357.6,"GL",12,6,12.06)=""
^DD(357.6,"GL",13,0,13)=""
^DD(357.6,"GL",14,"E1,245",14)=""
^DD(357.6,"GL",15,0,15)=""
^DD(357.6,"GL",16,1,16.1)=""
^DD(357.6,"GL",16,2,16.2)=""
^DD(357.6,"GL",16,3,16.3)=""
^DD(357.6,"GL",16,5,16.5)=""
^DD(357.6,"GL",16,6,16.6)=""
^DD(357.6,"GL",16,7,16.7)=""
^DD(357.6,"GL",16,8,16.8)=""
^DD(357.6,"GL",16,9,16.9)=""
^DD(357.6,"GL",17,"E1,245",17)=""
^DD(357.6,"GL",18,"E1,245",18)=""
^DD(357.6,"GL",19,"E1,245",19)=""
^DD(357.6,"GL",20,1,20)=""
^DD(357.6,"GL",21,"E1,245",21)=""
^DD(357.6,"IX",.01)=""
^DD(357.6,"IX",.04)=""
^DD(357.6,"IX",3)=""
^DD(357.6,"RQ",.01)=""
^DD(357.6,"RQ",.06)=""
^DD(357.6,"RQ",.09)=""
^DD(357.6,"SB",357.61,1)=""
^DD(357.6,"SB",357.613,13)=""
^DD(357.6,"SB",357.615,15)=""
^DD(357.6,"SB",357.66,6)=""
^DD(357.6,"SB",357.67,7)=""
^DD(357.61,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(357.61,0,"DT")="2921119"
^DD(357.61,0,"NM","DESCRIPTION")=""
^DD(357.61,0,"UP")="357.6"
^DD(357.61,.01,0)="/6^W^^0;1^Q"
^DD(357.61,.01,3)="Enter a description of the data being exchanged."
^DD(357.61,.01,21,0)="^^1^1^2950719^^"
^DD(357.61,.01,21,1,0)="This should describe the data being exchanged b the package interface."
^DD(357.61,.01,"DT")="2930210"
^DD(357.61,"B","/6",.01)=""
^DD(357.61,"GL",0,1,.01)=""
^DD(357.613,0)="ALLOWABLE QUALIFIERS SUB-FIELD^^.08^6"
^DD(357.613,0,"DT")="2990304"
^DD(357.613,0,"IX","B",357.613,.01)=""
^DD(357.613,0,"NM","ALLOWABLE QUALIFIERS")=""
^DD(357.613,0,"UP")="357.6"
^DD(357.613,.01,0)="ALLOWABLE QUALIFIERS^MV^^0;1^Q"
^DD(357.613,.01,1,0)="^.1"
^DD(357.613,.01,1,1,0)="357.613^B"
^DD(357.613,.01,1,1,1)="S ^IBE(357.6,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(357.613,.01,1,1,2)="K ^IBE(357.6,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(357.613,.01,1,1,3)="Required Index for Variable Pointer"
^DD(357.613,.01,3)="Which qualifiers can apply to the data?"
^DD(357.613,.01,21,0)="^^1^1^2950814^^"
^DD(357.613,.01,21,1,0)="A qualifier that can be used by this package interface."
^DD(357.613,.01,"DT")="2950426"
^DD(357.613,.01,"V",0)="^.12P^2^2"
^DD(357.613,.01,"V",1,0)="357.98^DATA QUALIFIER^1^Q^n^n"
^DD(357.613,.01,"V",2,0)="359.1^TYPE OF DATA^2^D^n^n"
^DD(357.613,.01,"V","B",357.98,1)=""
^DD(357.613,.01,"V","B",359.1,2)=""
^DD(357.613,.01,"V","M","DATA QUALIFIER",1)=""
^DD(357.613,.01,"V","M","TYPE OF DATA",2)=""
^DD(357.613,.01,"V","O",1,1)=""
^DD(357.613,.01,"V","O",2,2)=""
^DD(357.613,.01,"V","P","D",2)=""
^DD(357.613,.01,"V","P","Q",1)=""
^DD(357.613,.03,0)="INDEPENDENT MAPPING INFO?^RS^0:NO;1:YES;^0;3^Q"
^DD(357.613,.03,3)="YES means that fields on the form associated with this qualifier will have its own rules for entering the data to the database."
^DD(357.613,.03,21,0)="^^1^1^2951017^"
^DD(357.613,.03,21,1,0)="YES means that data can be mapped into the PCE DIM based on the qualifier."
^DD(357.613,.03,"DT")="2950426"
^DD(357.613,.04,0)="PCE DIM NODE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(357.613,.04,3)="What node should the qualifier be placed on?"
^DD(357.613,.04,21,0)="^^1^1^2971028^^^"
^DD(357.613,.04,21,1,0)="The node where the data should be placed."
^DD(357.613,.04,"DT")="2951017"
^DD(357.613,.05,0)="PCE DIM PIECE, VALUE^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.613,.05,3)="What piece should the primary value be located?"
^DD(357.613,.05,21,0)="^^1^1^2950719^"
^DD(357.613,.05,21,1,0)="The piece on the node where the value should be placed."
^DD(357.613,.05,"DT")="2951017"
^DD(357.613,.07,0)="PCE DIM PIECE, HEADER^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.613,.07,3)="What piece should the header be located on?"
^DD(357.613,.07,21,0)="^^1^1^2951017^^"
^DD(357.613,.07,21,1,0)="The piece on the node where the associated header should be placed."
^DD(357.613,.07,"DT")="2951017"
^DD(357.613,.08,0)="PCE DIM PIECE, QUALIFIER^NJ2,0^^0;8^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.613,.08,3)="What piece should the qualifier be located on?"
^DD(357.613,.08,21,0)="^^1^1^2971028^^"
^DD(357.613,.08,21,1,0)="The piece where the qualifier should go."
^DD(357.613,.08,"DT")="2951017"
^DD(357.613,"B","ALLOWABLE QUALIFIERS",.01)=""
^DD(357.613,"B","INDEPENDENT MAPPING INFO?",.03)=""
^DD(357.613,"B","PCE DIM NODE",.04)=""
^DD(357.613,"B","PCE DIM PIECE, HEADER",.07)=""
^DD(357.613,"B","PCE DIM PIECE, QUALIFIER",.08)=""
^DD(357.613,"B","PCE DIM PIECE, VALUE",.05)=""
^DD(357.613,"GL",0,1,.01)=""
^DD(357.613,"GL",0,3,.03)=""
^DD(357.613,"GL",0,4,.04)=""
^DD(357.613,"GL",0,5,.05)=""
^DD(357.613,"GL",0,7,.07)=""
^DD(357.613,"GL",0,8,.08)=""
^DD(357.613,"IX",.01)=""
^DD(357.613,"RQ",.03)=""
^DD(357.615,0)="DATA DESCRIPTION SUB-FIELD^^.05^5"
^DD(357.615,0,"DT")="2950417"
^DD(357.615,0,"ID","WRITE")="D EN^DDIOL(""   PIECE=""_$P(^(0),U,3),"""",""?0"")"
^DD(357.615,0,"IX","B",357.615,.01)=""
^DD(357.615,0,"IX","C",357.615,.03)=""
^DD(357.615,0,"NM","DATA DESCRIPTION")=""
^DD(357.615,0,"UP")="357.6"
^DD(357.615,.01,0)="DATA^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(357.615,.01,1,0)="^.1"
^DD(357.615,.01,1,1,0)="357.615^B"
^DD(357.615,.01,1,1,1)="S ^IBE(357.6,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(357.615,.01,1,1,2)="K ^IBE(357.6,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(357.615,.01,3)="Enter a descriptive name for this data field, up to 30 characters."
^DD(357.615,.01,21,0)="^^1^1^2960730^^"
^DD(357.615,.01,21,1,0)="A descriptive name for the data."
^DD(357.615,.01,"DT")="2950320"
^DD(357.615,.02,0)="MAXIMUM LENGTH^RNJ3,0^^0;2^K:+X'=X!(X>210)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.615,.02,3)="What is the maximum length of this field?"
^DD(357.615,.02,21,0)="^^1^1^2950719^"
^DD(357.615,.02,21,1,0)="The maximum length of the data."
^DD(357.615,.02,"DT")="2950320"
^DD(357.615,.03,0)="PIECE^NJ1,0X^^0;3^K:+X'=X!(X>8)!(X<2)!(X?.E1"".""1N.N)!($D(^IBE(357.6,D0,15,""C"",X))) X"
^DD(357.615,.03,1,0)="^.1"
^DD(357.615,.03,1,1,0)="357.615^C"
^DD(357.615,.03,1,1,1)="S ^IBE(357.6,DA(1),15,""C"",$E(X,1,30),DA)="""""
^DD(357.615,.03,1,1,2)="K ^IBE(357.6,DA(1),15,""C"",$E(X,1,30),DA)"
^DD(357.615,.03,1,1,"%D",0)="^^1^1^2950320^"
^DD(357.615,.03,1,1,"%D",1,0)="Indexes the field by piece."
^DD(357.615,.03,1,1,"DT")="2950320"
^DD(357.615,.03,3)="In the returned record, which piece will this field be?"
^DD(357.615,.03,21,0)="^^2^2^2950918^^"
^DD(357.615,.03,21,1,0)="The piece that the data will be returned as. Doesn't allow"
^DD(357.615,.03,21,2,0)="piece 1 because that is stored in field #2.01."
^DD(357.615,.03,"DT")="2950407"
^DD(357.615,.04,0)="ANNEX NODE^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(357.615,.04,3)="You can optionally specify the subscript to store the data. Use this when the entire record won't fit on one node."
^DD(357.615,.04,21,0)="^^2^2^2950719^"
^DD(357.615,.04,21,1,0)="In case all the returned data can not be returned on a single node an"
^DD(357.615,.04,21,2,0)="annex node can be specified."
^DD(357.615,.04,"DT")="2950320"
^DD(357.615,.05,0)="RECOMMENDED HEADER^F^^0;5^K:$L(X)>40!($L(X)<1) X"
^DD(357.615,.05,3)="Answer must be 1-40 characters in length."
^DD(357.615,.05,21,0)="^^1^1^2950719^^"
^DD(357.615,.05,21,1,0)="The recommended header will be used as the default when designing a form."
^DD(357.615,.05,"DT")="2950417"
^DD(357.615,"B","ANNEX NODE",.04)=""
^DD(357.615,"B","DATA",.01)=""
^DD(357.615,"B","MAXIMUM LENGTH",.02)=""
^DD(357.615,"B","PIECE",.03)=""
^DD(357.615,"B","RECOMMENDED HEADER",.05)=""
^DD(357.615,"GL",0,1,.01)=""
^DD(357.615,"GL",0,2,.02)=""
^DD(357.615,"GL",0,3,.03)=""
^DD(357.615,"GL",0,4,.04)=""
^DD(357.615,"GL",0,5,.05)=""
^DD(357.615,"IX",.01)=""
^DD(357.615,"IX",.03)=""
^DD(357.615,"RQ",.02)=""
^DD(357.66,0)="PROTECTED LOCAL VARIABLES SUB-FIELD^^.01^1"
^DD(357.66,0,"DT")="2930608"
^DD(357.66,0,"IX","B",357.66,.01)=""
^DD(357.66,0,"NM","PROTECTED LOCAL VARIABLES")=""
^DD(357.66,0,"UP")="357.6"
^DD(357.66,.01,0)="PROTECTED LOCAL VARIABLES^MFX^^0;1^K:'$$VARIABLE^IBDFU5(X) X"
^DD(357.66,.01,1,0)="^.1"
^DD(357.66,.01,1,1,0)="357.66^B"
^DD(357.66,.01,1,1,1)="S ^IBE(357.6,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(357.66,.01,1,1,2)="K ^IBE(357.6,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(357.66,.01,3)="Enter variables that should be NEWED before the entry action or calling the interface."
^DD(357.66,.01,21,0)="^^3^3^2950426^^"
^DD(357.66,.01,21,1,0)=" "
^DD(357.66,.01,21,2,0)="A list of variables that should be newed before the entry action or"
^DD(357.66,.01,21,3,0)="calling the interface."
^DD(357.66,.01,"DT")="2930608"
^DD(357.66,"B","PROTECTED LOCAL VARIABLES",.01)=""
^DD(357.66,"GL",0,1,.01)=""
^DD(357.66,"IX",.01)=""
^DD(357.67,0)="REQUIRED LOCAL VARIABLES SUB-FIELD^^.01^1"
^DD(357.67,0,"DT")="2930521"
^DD(357.67,0,"IX","B",357.67,.01)=""
^DD(357.67,0,"NM","REQUIRED LOCAL VARIABLES")=""
^DD(357.67,0,"UP")="357.6"
^DD(357.67,.01,0)="REQUIRED LOCAL VARIABLE^MFX^^0;1^K:'$$VARIABLE^IBDFU5(X) X"
^DD(357.67,.01,1,0)="^.1"
^DD(357.67,.01,1,1,0)="357.67^B"
^DD(357.67,.01,1,1,1)="S ^IBE(357.6,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(357.67,.01,1,1,2)="K ^IBE(357.6,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(357.67,.01,3)="Enter any variables that must exist before the Package Interface routine is called."
^DD(357.67,.01,21,0)="^^4^4^2930528^"
^DD(357.67,.01,21,1,0)=" "
^DD(357.67,.01,21,2,0)="A variable that is required input to the interface routine. The interface"
^DD(357.67,.01,21,3,0)="routine will not be called if all of the required variables are not"
^DD(357.67,.01,21,4,0)="defined."
^DD(357.67,.01,"DT")="2930521"
^DD(357.67,"B","REQUIRED LOCAL VARIABLE",.01)=""
^DD(357.67,"GL",0,1,.01)=""
^DD(357.67,"IX",.01)=""
^DD(357.69,0)="FIELD^^.06^7"
^DD(357.69,0,"DDA")="N"
^DD(357.69,0,"DT")="2941026"
^DD(357.69,0,"ID",.02)=""
^DD(357.69,0,"ID",.03)=""
^DD(357.69,0,"ID","WRITE")="D EN^DDIOL(""    ""_$P(^(0),U,3),"""",""?0"")"
^DD(357.69,0,"IX","B",357.69,.01)=""
^DD(357.69,0,"NM","TYPE OF VISIT")=""
^DD(357.69,0,"VR")="3.0"
^DD(357.69,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.69,.01,0)="CODE^R*P81'X^ICPT(^0;1^S DIC(""S"")=""I $P($$CPT^ICPTCOD(Y),U,7)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(357.69,.01,1,0)="^.1"
^DD(357.69,.01,1,1,0)="357.69^B"
^DD(357.69,.01,1,1,1)="S ^IBE(357.69,""B"",$E(X,1,30),DA)="""""
^DD(357.69,.01,1,1,2)="K ^IBE(357.69,""B"",$E(X,1,30),DA)"
^DD(357.69,.01,3)="Enter the name of the code"
^DD(357.69,.01,12)="Only Active Evaluation and Management CPT codes between 99200 and 99499 are selectable."
^DD(357.69,.01,12.1)="S DIC(""S"")=""I $P($$CPT^ICPTCOD(Y),U,7)=1"""
^DD(357.69,.01,21,0)="^.001^2^2^3030514^^^^"
^DD(357.69,.01,21,1,0)="Enter the Type of Visit CPT code.  These currently all begin with 992."
^DD(357.69,.01,21,2,0)="This is sometimes refered to as the Level of Care CPT."
^DD(357.69,.01,"DT")="3030519"
^DD(357.69,.015,0)="SHORT NAME^CJ30^^ ; ^X ^DD(357.69,.015,9.2) S Y(357.69,.015,101)=$S($D(^ICPT(D0,0)):^(0),1:"""") S X=$P(Y(357.69,.015,101),U,2) S D0=Y(357.69,.015,80)"
^DD(357.69,.015,9)="^"
^DD(357.69,.015,9.01)="81^2;357.69^.01"
^DD(357.69,.015,9.1)="CODE:SHORT NAME"
^DD(357.69,.015,9.2)="S Y(357.69,.015,80)=$S($D(D0):D0,1:""""),Y(357.69,.015,1)=$S($D(^IBE(357.69,D0,0)):^(0),1:""""),D0=$P(Y(357.69,.015,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1"
^DD(357.69,.015,21,0)="^^1^1^2941014^"
^DD(357.69,.015,21,1,0)="This field displays the SHORT NAME of the Visit CPT stored in the CPT file."
^DD(357.69,.02,0)="RECOMMENDED HEADER^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(357.69,.02,3)="Answer must be 3-30 characters in length."
^DD(357.69,.02,21,0)="^^1^1^2950721^"
^DD(357.69,.02,21,1,0)="The header recommended for use when designing a form."
^DD(357.69,.02,"DT")="2941014"
^DD(357.69,.03,0)="RECOMMENDED TEXT^F^^0;3^K:$L(X)>40!($L(X)<3) X"
^DD(357.69,.03,3)="Answer must be 3-40 characters in length."
^DD(357.69,.03,21,0)="^^1^1^2950721^"
^DD(357.69,.03,21,1,0)="The text that is recommended for use on a form when using this code."
^DD(357.69,.03,"DT")="2941014"
^DD(357.69,.04,0)="INACTIVE FLAG^S^1:YES;^0;4^Q"
^DD(357.69,.04,3)="Set this flag when the code should no longer be used for type of visit."
^DD(357.69,.04,21,0)="^^2^2^2950721^"
^DD(357.69,.04,21,1,0)="This field should be set to '1' when the code should no longer be used."
^DD(357.69,.04,21,2,0)="Codes should not be deleted from this file."
^DD(357.69,.04,"DT")="2941026"
^DD(357.69,.05,0)="NEW,ESTABLISHED,CONSULT^S^1:NEW;2:ESTABLISHED;3:CONSULT;9:OTHER;^0;5^Q"
^DD(357.69,.05,3)="Enter the grouping for type of patient encounter"
^DD(357.69,.05,21,0)="^^5^5^2960514^"
^DD(357.69,.05,21,1,0)="This field will be used to group encounter types for summary report"
^DD(357.69,.05,21,2,0)="purposes. All Type of visit records which relate to NEW, ESTABLISHED or"
^DD(357.69,.05,21,3,0)="CONSULT encounters, whether the encounter was In-Office, In-Home, Eye"
^DD(357.69,.05,21,4,0)="Care, Preventive, Domicilliary etc. in nature, will be grouped as NEW,"
^DD(357.69,.05,21,5,0)="ESTABLISHED or CONSULT."
^DD(357.69,.05,"DT")="2960514"
^DD(357.69,.06,0)="ALLOW QUANTITY GREATER THAN 1^S^N:NO;Y:YES;^0;6^Q"
^DD(357.69,.06,3)="Entry of YES allows more than one unit(quantity) be entered."
^DD(357.69,.06,"DT")="3040513"
^DD(357.69,"B","ALLOW QUANTITY GREATER THAN 1",.06)=""
^DD(357.69,"B","CODE",.01)=""
^DD(357.69,"B","INACTIVE FLAG",.04)=""
^DD(357.69,"B","NEW,ESTABLISHED,CONSULT",.05)=""
^DD(357.69,"B","RECOMMENDED HEADER",.02)=""
^DD(357.69,"B","RECOMMENDED TEXT",.03)=""
^DD(357.69,"B","SHORT NAME",.015)=""
^DD(357.69,"GL",0,1,.01)=""
^DD(357.69,"GL",0,2,.02)=""
^DD(357.69,"GL",0,3,.03)=""
^DD(357.69,"GL",0,4,.04)=""
^DD(357.69,"GL",0,5,.05)=""
^DD(357.69,"GL",0,6,.06)=""
^DD(357.69,"IX",.01)=""
^DD(357.69,"RQ",.01)=""
^DD(357.7,0)="FIELD^^.08^8"
^DD(357.7,0,"DT")="2941207"
^DD(357.7,0,"ID",.02)="W "" STARTING COL="",$P(^(0),U,2)+1"
^DD(357.7,0,"ID",.03)="W "" STARTING ROW="",$P(^(0),U,3)+1"
^DD(357.7,0,"ID",.06)="W """""
^DD(357.7,0,"IX","B",357.7,.01)=""
^DD(357.7,0,"IX","C",357.7,.06)=""
^DD(357.7,0,"NM","FORM LINE")=""
^DD(357.7,0,"VR")="3.0"
^DD(357.7,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(357.7,.01,1,0)="^.1"
^DD(357.7,.01,1,1,0)="357.7^B"
^DD(357.7,.01,1,1,1)="S ^IBE(357.7,""B"",$E(X,1,30),DA)="""""
^DD(357.7,.01,1,1,2)="K ^IBE(357.7,""B"",$E(X,1,30),DA)"
^DD(357.7,.01,3)="Enter a name for the line that will allow it to be identified, such as V(1,1), meaning a vertical line starting at coordinates (1,1)."
^DD(357.7,.01,21,0)="^^4^4^2940217^"
^DD(357.7,.01,21,1,0)=" "
^DD(357.7,.01,21,2,0)="The name given to the line. Lines should be given names that will allow"
^DD(357.7,.01,21,3,0)="them to be identified, such as V(1,1), meaning a vertical line starting at"
^DD(357.7,.01,21,4,0)="coordinates (1,1)."
^DD(357.7,.01,"DT")="2940217"
^DD(357.7,.02,0)="LINE STARTING COLUMN^RNJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.7,.02,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(357.7,.02,2.1)="S:+Y=Y Y=+Y+1"
^DD(357.7,.02,3)="Enter the block column the line should begin at."
^DD(357.7,.02,21,0)="^^2^2^2930527^"
^DD(357.7,.02,21,1,0)=" "
^DD(357.7,.02,21,2,0)="The column, relative to the block, that the line should begin at."
^DD(357.7,.02,23,0)="^^4^4^2930715^"
^DD(357.7,.02,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.7,.02,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.7,.02,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.7,.02,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.7,.02,"DT")="2930715"
^DD(357.7,.03,0)="LINE STARTING ROW^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.7,.03,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(357.7,.03,2.1)="S:+Y=Y Y=+Y+1"
^DD(357.7,.03,3)="Enter the block row the line should begin at."
^DD(357.7,.03,21,0)="^^2^2^2930527^"
^DD(357.7,.03,21,1,0)=" "
^DD(357.7,.03,21,2,0)="The row, relative to the block, that the line should begin at."
^DD(357.7,.03,23,0)="^^4^4^2930715^"
^DD(357.7,.03,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.7,.03,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.7,.03,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.7,.03,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.7,.03,"DT")="2930715"
^DD(357.7,.04,0)="ORIENTATION^RS^H:HORIZONTAL;V:VERTICAL;^0;4^Q"
^DD(357.7,.04,.1)="ORIENTATION (HORIZONTAL/VERTICAL)"
^DD(357.7,.04,3)="Should the line be horizontal or vertical?"
^DD(357.7,.04,21,0)="^^2^2^2930607^"
^DD(357.7,.04,21,1,0)=" "
^DD(357.7,.04,21,2,0)="The direction the line goes in."
^DD(357.7,.04,"DT")="2930415"
^DD(357.7,.05,0)="LENGTH^RNJ3,0^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.7,.05,3)="How long should the line be?"
^DD(357.7,.05,21,0)="^^3^3^2930527^"
^DD(357.7,.05,21,1,0)=" "
^DD(357.7,.05,21,2,0)="The length of the line. For horizontal lines the length is in terms of"
^DD(357.7,.05,21,3,0)="characters. For vertical lines it is in terms of rows."
^DD(357.7,.05,"DT")="2930319"
^DD(357.7,.06,0)="BLOCK^RP357.1'^IBE(357.1,^0;6^Q"
^DD(357.7,.06,1,0)="^.1"
^DD(357.7,.06,1,1,0)="357.7^C"
^DD(357.7,.06,1,1,1)="S ^IBE(357.7,""C"",$E(X,1,30),DA)="""""
^DD(357.7,.06,1,1,2)="K ^IBE(357.7,""C"",$E(X,1,30),DA)"
^DD(357.7,.06,1,1,"%D",0)="^^2^2^2930319^"
^DD(357.7,.06,1,1,"%D",1,0)=" "
^DD(357.7,.06,1,1,"%D",2,0)="This cross-reference is used to find all lines belonging to a block."
^DD(357.7,.06,1,1,"DT")="2930319"
^DD(357.7,.06,3)="What block should the line appear in?"
^DD(357.7,.06,4)=""
^DD(357.7,.06,21,0)="^^2^2^2950927^^^^"
^DD(357.7,.06,21,1,0)=" "
^DD(357.7,.06,21,2,0)="The block the line appears in."
^DD(357.7,.06,"DT")="2930319"
^DD(357.7,.07,0)="NUMBER OF LINES^NJ3,0^^0;7^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.7,.07,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(357.7,.07,"DT")="2941207"
^DD(357.7,.08,0)="LINE SPACING^S^s:SINGLE;d:DOUBLE;t:TRIPLE;^0;8^Q"
^DD(357.7,.08,3)="How should the lines be spaced?"
^DD(357.7,.08,"DT")="2941207"
^DD(357.7,"B","BLOCK",.06)=""
^DD(357.7,"B","LENGTH",.05)=""
^DD(357.7,"B","LINE SPACING",.08)=""
^DD(357.7,"B","LINE STARTING COLUMN",.02)=""
^DD(357.7,"B","LINE STARTING ROW",.03)=""
^DD(357.7,"B","NAME",.01)=""
^DD(357.7,"B","NUMBER OF LINES",.07)=""
^DD(357.7,"B","ORIENTATION",.04)=""
^DD(357.7,"GL",0,1,.01)=""
^DD(357.7,"GL",0,2,.02)=""
^DD(357.7,"GL",0,3,.03)=""
^DD(357.7,"GL",0,4,.04)=""
^DD(357.7,"GL",0,5,.05)=""
^DD(357.7,"GL",0,6,.06)=""
^DD(357.7,"GL",0,7,.07)=""
^DD(357.7,"GL",0,8,.08)=""
^DD(357.7,"IX",.01)=""
^DD(357.7,"IX",.06)=""
^DD(357.7,"RQ",.01)=""
^DD(357.7,"RQ",.02)=""
^DD(357.7,"RQ",.03)=""
^DD(357.7,"RQ",.04)=""
^DD(357.7,"RQ",.05)=""
^DD(357.7,"RQ",.06)=""
^DD(357.8,0)="FIELD^^1^7"
^DD(357.8,0,"DDA")="N"
^DD(357.8,0,"DT")="2930326"
^DD(357.8,0,"IX","B",357.8,.01)=""
^DD(357.8,0,"IX","C",357.8,.02)=""
^DD(357.8,0,"NM","TEXT AREA")=""
^DD(357.8,0,"VR")="3.0"
^DD(357.8,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(357.8,.01,1,0)="^.1"
^DD(357.8,.01,1,1,0)="357.8^B"
^DD(357.8,.01,1,1,1)="S ^IBE(357.8,""B"",$E(X,1,30),DA)="""""
^DD(357.8,.01,1,1,2)="K ^IBE(357.8,""B"",$E(X,1,30),DA)"
^DD(357.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(357.8,.01,21,0)="^^2^2^2930528^"
^DD(357.8,.01,21,1,0)=" "
^DD(357.8,.01,21,2,0)="The name of the text area."
^DD(357.8,.02,0)="BLOCK^RP357.1'^IBE(357.1,^0;2^Q"
^DD(357.8,.02,1,0)="^.1"
^DD(357.8,.02,1,1,0)="357.8^C"
^DD(357.8,.02,1,1,1)="S ^IBE(357.8,""C"",$E(X,1,30),DA)="""""
^DD(357.8,.02,1,1,2)="K ^IBE(357.8,""C"",$E(X,1,30),DA)"
^DD(357.8,.02,1,1,"%D",0)="^^3^3^2930326^"
^DD(357.8,.02,1,1,"%D",1,0)=" "
^DD(357.8,.02,1,1,"%D",2,0)="Used to find all of the text areas that should appear on a particular"
^DD(357.8,.02,1,1,"%D",3,0)="block."
^DD(357.8,.02,1,1,"DT")="2930326"
^DD(357.8,.02,3)="What block do you want the text to appear in?"
^DD(357.8,.02,21,0)="^^2^2^2930528^"
^DD(357.8,.02,21,1,0)=" "
^DD(357.8,.02,21,2,0)="The block the text area is displayed in."
^DD(357.8,.02,"DT")="2930326"
^DD(357.8,.03,0)="TEXT AREA STARTING COLUMN^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.8,.03,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(357.8,.03,2.1)="S:+Y=Y Y=+Y+1"
^DD(357.8,.03,3)="What block column should the text begin in?"
^DD(357.8,.03,21,0)="^^2^2^2930528^"
^DD(357.8,.03,21,1,0)=" "
^DD(357.8,.03,21,2,0)="The starting position of the text area, relative to the block."
^DD(357.8,.03,23,0)="^^4^4^2930715^"
^DD(357.8,.03,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.8,.03,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.8,.03,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.8,.03,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.8,.03,"DT")="2930715"
^DD(357.8,.04,0)="TEXT AREA STARTING ROW^RNJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.8,.04,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(357.8,.04,2.1)="S:+Y=Y Y=+Y+1"
^DD(357.8,.04,3)="What block row should the text begin in?"
^DD(357.8,.04,21,0)="^^2^2^2930528^"
^DD(357.8,.04,21,1,0)=" "
^DD(357.8,.04,21,2,0)="The starting row of the text area, relative to the block."
^DD(357.8,.04,23,0)="^^4^4^2930715^"
^DD(357.8,.04,23,1,0)="The internal representation starts at 0, the external representation"
^DD(357.8,.04,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(357.8,.04,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(357.8,.04,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(357.8,.04,"DT")="2930715"
^DD(357.8,.05,0)="TEXT WIDTH^RNJ3,0^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.8,.05,3)="How many columns should be allocated on the block for the text?"
^DD(357.8,.05,21,0)="^^2^2^2930528^"
^DD(357.8,.05,21,1,0)=" "
^DD(357.8,.05,21,2,0)="The width of the text area, measured in characters."
^DD(357.8,.05,"DT")="2930326"
^DD(357.8,.06,0)="TEXT HEIGHT^RNJ3,0^^0;6^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.8,.06,3)="How many lines on the block should be allocated for the text?"
^DD(357.8,.06,21,0)="^^2^2^2930528^"
^DD(357.8,.06,21,1,0)=" "
^DD(357.8,.06,21,2,0)="The height of the text area, measured in lines."
^DD(357.8,.06,"DT")="2930326"
^DD(357.8,1,0)="TEXT^357.81^^1;0"
^DD(357.8,1,21,0)="^^2^2^2930528^"
^DD(357.8,1,21,1,0)=" "
^DD(357.8,1,21,2,0)="The text that should appear within the text area."
^DD(357.8,"B","BLOCK",.02)=""
^DD(357.8,"B","NAME",.01)=""
^DD(357.8,"B","TEXT",1)=""
^DD(357.8,"B","TEXT AREA STARTING COLUMN",.03)=""
^DD(357.8,"B","TEXT AREA STARTING ROW",.04)=""
^DD(357.8,"B","TEXT HEIGHT",.06)=""
^DD(357.8,"B","TEXT WIDTH",.05)=""
^DD(357.8,"GL",0,1,.01)=""
^DD(357.8,"GL",0,2,.02)=""
^DD(357.8,"GL",0,3,.03)=""
^DD(357.8,"GL",0,4,.04)=""
^DD(357.8,"GL",0,5,.05)=""
^DD(357.8,"GL",0,6,.06)=""
^DD(357.8,"GL",1,0,1)=""
^DD(357.8,"IX",.01)=""
^DD(357.8,"IX",.02)=""
^DD(357.8,"RQ",.01)=""
^DD(357.8,"RQ",.02)=""
^DD(357.8,"RQ",.03)=""
^DD(357.8,"RQ",.04)=""
^DD(357.8,"RQ",.05)=""
^DD(357.8,"RQ",.06)=""
^DD(357.8,"SB",357.81,1)=""
^DD(357.81,0)="TEXT SUB-FIELD^^.01^1"
^DD(357.81,0,"DT")="2930326"
^DD(357.81,0,"NM","TEXT")=""
^DD(357.81,0,"UP")="357.8"
^DD(357.81,.01,0)="TEXT^WL^^0;1^Q"
^DD(357.81,.01,3)="Enter the text that you want to appear in the block."
^DD(357.81,.01,"DT")="2930326"
^DD(357.81,"B","TEXT",.01)=""
^DD(357.81,"GL",0,1,.01)=""
^DD(357.91,0)="FIELD^^.04^4"
^DD(357.91,0,"DDA")="N"
^DD(357.91,0,"DT")="2940607"
^DD(357.91,0,"IX","B",357.91,.01)=""
^DD(357.91,0,"NM","MARKING AREA TYPE")=""
^DD(357.91,0,"PT",357.22,.06)=""
^DD(357.91,0,"VR")="3.0"
^DD(357.91,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.91,.01,0)="NAME^RFX^^0;1^K:$L(X)>30 X"
^DD(357.91,.01,1,0)="^.1"
^DD(357.91,.01,1,1,0)="357.91^B"
^DD(357.91,.01,1,1,1)="S ^IBE(357.91,""B"",$E(X,1,30),DA)="""""
^DD(357.91,.01,1,1,2)="K ^IBE(357.91,""B"",$E(X,1,30),DA)"
^DD(357.91,.01,3)="NAME MUST BE UNDER 31 CHARACTERS"
^DD(357.91,.01,21,0)="^^1^1^2930608^"
^DD(357.91,.01,21,1,0)="The name should describe the appearance of the marking area on the form."
^DD(357.91,.02,0)="DISPLAY STRING^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(357.91,.02,3)="Answer must be 1-20 characters in length."
^DD(357.91,.02,21,0)="^^2^2^2930528^"
^DD(357.91,.02,21,1,0)=" "
^DD(357.91,.02,21,2,0)="The text that should be displayed in the MARKING AREA."
^DD(357.91,.02,"DT")="2921207"
^DD(357.91,.03,0)="TOOL KIT MEMBER?^S^0:NO;1:YES;^0;3^Q"
^DD(357.91,.03,3)="Enter YES if the MARKING AREA is part of the tool kit, NO otherwise."
^DD(357.91,.03,21,0)="^^2^2^2930811^"
^DD(357.91,.03,21,1,0)="Used to prevent local sites from editing MARKING AREAS that are part of the"
^DD(357.91,.03,21,2,0)="tool kit."
^DD(357.91,.03,"DT")="2930811"
^DD(357.91,.04,0)="REQUIRES SPECIAL PROCEDURE?^S^0:NO;1:YES;^0;4^Q"
^DD(357.91,.04,3)="Answer NO if the Marking Area is just text, YES if it requires a special procedure to print."
^DD(357.91,.04,21,0)="^^2^2^2940628^^"
^DD(357.91,.04,21,1,0)="NO means that the Marking Area is just text that can be printed. YES means"
^DD(357.91,.04,21,2,0)="that a special procedure must be called to print the Marking Area."
^DD(357.91,.04,"DT")="2940628"
^DD(357.91,"B","DISPLAY STRING",.02)=""
^DD(357.91,"B","NAME",.01)=""
^DD(357.91,"B","REQUIRES SPECIAL PROCEDURE?",.04)=""
^DD(357.91,"B","TOOL KIT MEMBER?",.03)=""
^DD(357.91,"GL",0,1,.01)=""
^DD(357.91,"GL",0,2,.02)=""
^DD(357.91,"GL",0,3,.03)=""
^DD(357.91,"GL",0,4,.04)=""
^DD(357.91,"IX",.01)=""
^DD(357.91,"RQ",.01)=""
^DD(357.92,0)="FIELD^^.01^1"
^DD(357.92,0,"DT")="2930518"
^DD(357.92,0,"IX","B",357.92,.01)=""
^DD(357.92,0,"NM","PRINT CONDITIONS")=""
^DD(357.92,0,"PT",409.9501,.02)=""
^DD(357.92,0,"PT",409.961,.02)=""
^DD(357.92,0,"VR")="3.0"
^DD(357.92,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.92,.01,0)="PRINT CONDITION^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(357.92,.01,1,0)="^.1"
^DD(357.92,.01,1,1,0)="357.92^B"
^DD(357.92,.01,1,1,1)="S ^IBE(357.92,""B"",$E(X,1,30),DA)="""""
^DD(357.92,.01,1,1,2)="K ^IBE(357.92,""B"",$E(X,1,30),DA)"
^DD(357.92,.01,3)="Answer must be 3-40 characters in length."
^DD(357.92,.01,21,0)="^^2^2^2930528^"
^DD(357.92,.01,21,1,0)=" "
^DD(357.92,.01,21,2,0)="A condition recognized by the Print Manager."
^DD(357.92,.01,"DT")="2930518"
^DD(357.92,"B","PRINT CONDITION",.01)=""
^DD(357.92,"GL",0,1,.01)=""
^DD(357.92,"IX",.01)=""
^DD(357.92,"RQ",.01)=""
^DD(357.93,0)="FIELD^^1^9"
^DD(357.93,0,"DDA")="N"
^DD(357.93,0,"DT")="2950822"
^DD(357.93,0,"IX","B",357.93,.01)=""
^DD(357.93,0,"IX","C",357.93,.08)=""
^DD(357.93,0,"NM","MULTIPLE CHOICE FIELD")=""
^DD(357.93,0,"VR")="3.0"
^DD(357.93,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.93,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(357.93,.01,1,0)="^.1"
^DD(357.93,.01,1,1,0)="357.93^B"
^DD(357.93,.01,1,1,1)="S ^IBE(357.93,""B"",$E(X,1,30),DA)="""""
^DD(357.93,.01,1,1,2)="K ^IBE(357.93,""B"",$E(X,1,30),DA)"
^DD(357.93,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(357.93,.01,21,0)="^^2^2^2951017^"
^DD(357.93,.01,21,1,0)=" "
^DD(357.93,.01,21,2,0)="The name given to the field."
^DD(357.93,.01,"DT")="2930518"
^DD(357.93,.02,0)="QUESTION OR EXPLANATION ^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(357.93,.02,.1)="YOU CAN ENTER TEXT, SUCH AS A QUESTION, TO APPEAR ON THE FORM"
^DD(357.93,.02,3)="You may enter text, such as a question, to appear as part of the input field."
^DD(357.93,.02,21,0)="^^1^1^2950808^"
^DD(357.93,.02,21,1,0)="Text that precedes the list of choices."
^DD(357.93,.02,"DT")="2940721"
^DD(357.93,.03,0)="STARTING COLUMN FOR TEXT^NJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.93,.03,2)="S Y(0)=Y S Y=+Y+1"
^DD(357.93,.03,2.1)="S Y=+Y+1"
^DD(357.93,.03,3)="What block column should the label begin in?"
^DD(357.93,.03,21,0)="^^1^1^2950808^"
^DD(357.93,.03,21,1,0)="The starting column for the text located in the .03 field."
^DD(357.93,.03,"DT")="2940721"
^DD(357.93,.04,0)="STARTING ROW FOR TEXT^NJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.93,.04,2)="S Y(0)=Y S Y=+Y+1"
^DD(357.93,.04,2.1)="S Y=+Y+1"
^DD(357.93,.04,3)="What block row should the label start in?"
^DD(357.93,.04,21,0)="^^1^1^2950808^"
^DD(357.93,.04,21,1,0)="The row for the text in the .03 field."
^DD(357.93,.04,"DT")="2940721"
^DD(357.93,.06,0)="TYPE OF DATA^R*P357.6'X^IBE(357.6,^0;6^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.93,.06,.1)="WHAT TYPE OF DATA WILL BE ENTERED TO THIS FIELD?"
^DD(357.93,.06,3)="What type of data will be entered to the field?"
^DD(357.93,.06,12)="Allows only available input interfaces that are defined as allowable for multiple choices form objects."
^DD(357.93,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""M"""""""
^DD(357.93,.06,21,0)="^^1^1^2950825^"
^DD(357.93,.06,21,1,0)="Points to the package interface used to input the data."
^DD(357.93,.06,"DT")="2950829"
^DD(357.93,.07,0)="TEXT APPEARANCE^FX^^0;7^S X=$$UPPER^VALM1(X) K:$L(X)>3!(""UBR""'[$E(X,1))!(""UBR""'[$E(X,2))!(""UBR""'[$E(X,3)) X"
^DD(357.93,.07,.1)="HOW SHOULD THE TEXT APPEAR? CHOOSE FROM {U,B,R}"
^DD(357.93,.07,3)="B=bold,U=underline,R=reverse You can enter any combination of {B,U,R}."
^DD(357.93,.07,21,0)="^^2^2^2950808^"
^DD(357.93,.07,21,1,0)="The display appearance of the text in the .03 field can be selected via"
^DD(357.93,.07,21,2,0)="this field."
^DD(357.93,.07,"DT")="2940816"
^DD(357.93,.08,0)="BLOCK^RP357.1'^IBE(357.1,^0;8^Q"
^DD(357.93,.08,1,0)="^.1"
^DD(357.93,.08,1,1,0)="357.93^C"
^DD(357.93,.08,1,1,1)="S ^IBE(357.93,""C"",$E(X,1,30),DA)="""""
^DD(357.93,.08,1,1,2)="K ^IBE(357.93,""C"",$E(X,1,30),DA)"
^DD(357.93,.08,1,1,"%D",0)="^^1^1^2950804^"
^DD(357.93,.08,1,1,"%D",1,0)="Used to find all the multiple choice fields appearing in a block."
^DD(357.93,.08,1,1,"DT")="2940720"
^DD(357.93,.08,3)="What block should this input field appear in?"
^DD(357.93,.08,"DT")="2940720"
^DD(357.93,.09,0)="SELECTION RULE^S^0:ANY NUMBER;1:EXACTLY ONE;2:AT MOST ONE (0 or 1);3:AT LEAST ONE (1 or more);^0;9^Q"
^DD(357.93,.09,3)="Which rule applies to the choices the user can make?"
^DD(357.93,.09,21,0)="^^1^1^2950808^"
^DD(357.93,.09,21,1,0)="A selection rule for the multiple choice question can be specified."
^DD(357.93,.09,"DT")="2941209"
^DD(357.93,1,0)="CHOICE^357.931I^^1;0"
^DD(357.93,1,12)="Allows only package interfaces that print reports and that are available."
^DD(357.93,1,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"""
^DD(357.93,1,21,0)="^^1^1^2950908^^"
^DD(357.93,1,21,1,0)="The list of choices that make up the multiple choice field. "
^DD(357.93,1,"DT")="2940721"
^DD(357.93,"B","BLOCK",.08)=""
^DD(357.93,"B","CHOICE",1)=""
^DD(357.93,"B","NAME",.01)=""
^DD(357.93,"B","QUESTION OR EXPLANATION ",.02)=""
^DD(357.93,"B","SELECTION RULE",.09)=""
^DD(357.93,"B","STARTING COLUMN FOR TEXT",.03)=""
^DD(357.93,"B","STARTING ROW FOR TEXT",.04)=""
^DD(357.93,"B","TEXT APPEARANCE",.07)=""
^DD(357.93,"B","TYPE OF DATA",.06)=""
^DD(357.93,"GL",0,1,.01)=""
^DD(357.93,"GL",0,2,.02)=""
^DD(357.93,"GL",0,3,.03)=""
^DD(357.93,"GL",0,4,.04)=""
^DD(357.93,"GL",0,6,.06)=""
^DD(357.93,"GL",0,7,.07)=""
^DD(357.93,"GL",0,8,.08)=""
^DD(357.93,"GL",0,9,.09)=""
^DD(357.93,"GL",1,0,1)=""
^DD(357.93,"IX",.01)=""
^DD(357.93,"IX",.08)=""
^DD(357.93,"RQ",.01)=""
^DD(357.93,"RQ",.06)=""
^DD(357.93,"RQ",.08)=""
^DD(357.93,"SB",357.931,1)=""
^DD(357.931,0)="CHOICE SUB-FIELD^^.09^9"
^DD(357.931,0,"DT")="2950822"
^DD(357.931,0,"ID","WRITE")="N IBDWLAB,IBDWQLFR S IBDWLAB=""LABEL=""_$P(^(0),U,5),IBDWQLFR="""" S:$P(^(0),U,9) IBDWQLFR=$P($G(^IBD(357.98,$P(^(0),U,9),0)),U) D EN^DDIOL(IBDWLAB_""     ""_IBDWQLFR,"""",""?0"")"
^DD(357.931,0,"IX","B",357.931,.01)=""
^DD(357.931,0,"NM","CHOICE")=""
^DD(357.931,0,"UP")="357.93"
^DD(357.931,.01,0)="CHOICE^MRFX^^0;1^D CHOICE^IBDFU91($P(^IBE(357.93,D0,0),U,6),.X)"
^DD(357.931,.01,.1)=""
^DD(357.931,.01,1,0)="^.1^^-1"
^DD(357.931,.01,1,1,0)="357.931^B"
^DD(357.931,.01,1,1,1)="S ^IBE(357.93,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(357.931,.01,1,1,2)="K ^IBE(357.93,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(357.931,.01,3)="What value should be passed to the database when this choice is made?"
^DD(357.931,.01,4)="D HELP^IBDFU91($P(^IBE(357.93,DA,0),U,6))"
^DD(357.931,.01,21,0)="^^5^5^2950908^^"
^DD(357.931,.01,21,1,0)=" "
^DD(357.931,.01,21,2,0)=" "
^DD(357.931,.01,21,3,0)="Should be a value representing a choice that could be made. This field is"
^DD(357.931,.01,21,4,0)="for the external representation of the value, which could be different"
^DD(357.931,.01,21,5,0)="from the representation that is actually passed to the database."
^DD(357.931,.01,"DT")="2950911"
^DD(357.931,.02,0)="STARTING COLUMN FOR LABEL^RNJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.931,.02,1,0)="^.1^^0"
^DD(357.931,.02,2)="S Y(0)=Y S Y=+Y+1"
^DD(357.931,.02,2.1)="S Y=+Y+1"
^DD(357.931,.02,3)="What block column should the label begin in?"
^DD(357.931,.02,4)="D HELP6^IBDFU5A"
^DD(357.931,.02,21,0)="^^2^2^2950821^^^^"
^DD(357.931,.02,21,1,0)=" "
^DD(357.931,.02,21,2,0)="The starting column for the label. "
^DD(357.931,.02,"DT")="2950822"
^DD(357.931,.03,0)="STARTING ROW FOR LABEL^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.931,.03,2)="S Y(0)=Y S Y=+Y+1"
^DD(357.931,.03,2.1)="S Y=+Y+1"
^DD(357.931,.03,3)="What block row should the label be in?"
^DD(357.931,.03,21,0)="^^1^1^2950821^^"
^DD(357.931,.03,21,1,0)="The starting row the the label."
^DD(357.931,.03,"DT")="2950821"
^DD(357.931,.04,0)="LABEL APPEARANCE^FX^^0;4^S X=$$UPPER^VALM1(X) K:$L(X)>3!(""UBR""'[$E(X,1))!(""UBR""'[$E(X,2))!(""UBR""'[$E(X,3)) X"
^DD(357.931,.04,.1)="HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {U,B,R}"
^DD(357.931,.04,3)="B=bold,U=underline,R=reverse. You can enter any combination of {B,U,R}. (NOT REQUIRED)"
^DD(357.931,.04,21,0)="^^1^1^2950821^^^"
^DD(357.931,.04,21,1,0)="The appearance of the label can be specified."
^DD(357.931,.04,"DT")="2950821"
^DD(357.931,.05,0)="CHOICE LABEL^RF^^0;5^K:$L(X)>120!($L(X)<1) X"
^DD(357.931,.05,3)="Answer must be 1-120 characters in length."
^DD(357.931,.05,21,0)="^^1^1^2960118^^^^"
^DD(357.931,.05,21,1,0)="The label that is to appear with the choice."
^DD(357.931,.05,"DT")="2950821"
^DD(357.931,.06,0)="BUBBLE COLUMN^RNJ3,0XO^^0;6^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.931,.06,2)="S Y(0)=Y S Y=+Y+1"
^DD(357.931,.06,2.1)="S Y=+Y+1"
^DD(357.931,.06,3)="What block column should the bubble begin in?"
^DD(357.931,.06,21,0)="^^2^2^2950808^"
^DD(357.931,.06,21,1,0)="The starting row for the bubble associated with the choice can be"
^DD(357.931,.06,21,2,0)="specified."
^DD(357.931,.06,"DT")="2950808"
^DD(357.931,.07,0)="BUBBLE ROW^RNJ3,0XO^^0;7^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.931,.07,2)="S Y(0)=Y S Y=+Y+1"
^DD(357.931,.07,2.1)="S Y=+Y+1"
^DD(357.931,.07,3)="What block row should the bubble be in?"
^DD(357.931,.07,21,0)="^^1^1^2950808^"
^DD(357.931,.07,21,1,0)="The row for the bubble associated with the choice can be specified."
^DD(357.931,.07,"DT")="2950808"
^DD(357.931,.08,0)="ID^RFXO^^0;8^S X=X"
^DD(357.931,.08,2)="S Y(0)=Y S Y=Y"
^DD(357.931,.08,2.1)="S Y=Y"
^DD(357.931,.08,3)="Enter the identifier for the choice."
^DD(357.931,.08,4)=""
^DD(357.931,.08,21,0)="^^1^1^2950908^^^^"
^DD(357.931,.08,21,1,0)="The identifier for the choice made."
^DD(357.931,.08,"DT")="2950908"
^DD(357.931,.09,0)="DATA QUALIFIER^*P357.98'^IBD(357.98,^0;9^S DIC(""S"")=""I $$DQGOOD^IBDFU9($P($G(^IBE(357.93,DA(1),0)),""""^"""",6),Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.931,.09,3)="Does one of the qualifers apply to this choice?"
^DD(357.931,.09,12)="Allows only certain data qualifiers, dependent on the type of data."
^DD(357.931,.09,12.1)="S DIC(""S"")=""I $$DQGOOD^IBDFU9($P($G(^IBE(357.93,DA(1),0)),""""^"""",6),Y)"""
^DD(357.931,.09,21,0)="^^1^1^2950809^^"
^DD(357.931,.09,21,1,0)="The data qualifier, if any, assoicated with the choice."
^DD(357.931,.09,"DT")="2941207"
^DD(357.931,"B","BUBBLE COLUMN",.06)=""
^DD(357.931,"B","BUBBLE ROW",.07)=""
^DD(357.931,"B","CHOICE",.01)=""
^DD(357.931,"B","CHOICE LABEL",.05)=""
^DD(357.931,"B","DATA QUALIFIER",.09)=""
^DD(357.931,"B","ID",.08)=""
^DD(357.931,"B","LABEL APPEARANCE",.04)=""
^DD(357.931,"B","STARTING COLUMN FOR LABEL",.02)=""
^DD(357.931,"B","STARTING ROW FOR LABEL",.03)=""
^DD(357.931,"GL",0,1,.01)=""
^DD(357.931,"GL",0,2,.02)=""
^DD(357.931,"GL",0,3,.03)=""
^DD(357.931,"GL",0,4,.04)=""
^DD(357.931,"GL",0,5,.05)=""
^DD(357.931,"GL",0,6,.06)=""
^DD(357.931,"GL",0,7,.07)=""
^DD(357.931,"GL",0,8,.08)=""
^DD(357.931,"GL",0,9,.09)=""
^DD(357.931,"IX",.01)=""
^DD(357.931,"RQ",.01)=""
^DD(357.931,"RQ",.02)=""
^DD(357.931,"RQ",.03)=""
^DD(357.931,"RQ",.05)=""
^DD(357.931,"RQ",.06)=""
^DD(357.931,"RQ",.07)=""
^DD(357.931,"RQ",.08)=""
^DD(357.94,0)="FIELD^^.07^7"
^DD(357.94,0,"DDA")="N"
^DD(357.94,0,"DT")="2970410"
^DD(357.94,0,"IX","B",357.94,.01)=""
^DD(357.94,0,"NM","ENCOUNTER FORM PRINTERS")=""
^DD(357.94,0,"VR")="3.0"
^DD(357.94,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.94,.01,0)="TERMINAL TYPE^RP3.2'^%ZIS(2,^0;1^Q"
^DD(357.94,.01,1,0)="^.1"
^DD(357.94,.01,1,1,0)="357.94^B"
^DD(357.94,.01,1,1,1)="S ^IBE(357.94,""B"",$E(X,1,30),DA)="""""
^DD(357.94,.01,1,1,2)="K ^IBE(357.94,""B"",$E(X,1,30),DA)"
^DD(357.94,.01,3)="What type of terminal is the printer?"
^DD(357.94,.01,21,0)="^^6^6^2960229^^^^"
^DD(357.94,.01,21,1,0)="Enter the terminal type that you'd like to define for encounter forms."
^DD(357.94,.01,21,2,0)="You can enter a printer control language, simplex and duplex printer"
^DD(357.94,.01,21,3,0)="escape sequences.  Currently only PCL5 is supported for scannable "
^DD(357.94,.01,21,4,0)="encounter forms.  Simplex and Duplex printing is supported on all printers"
^DD(357.94,.01,21,5,0)="that have duplex printing ability.  Generally all HP printers (HP3 and "
^DD(357.94,.01,21,6,0)="above) support PCL5."
^DD(357.94,.01,"DT")="2940627"
^DD(357.94,.02,0)="PRINTER LANGUAGE TYPE^S^1:PCL5;^0;2^Q"
^DD(357.94,.02,1,0)="^.1"
^DD(357.94,.02,1,1,0)="^^TRIGGER^357.94^.03"
^DD(357.94,.02,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""$C(27)_""""&l0S"""""" X ^DD(357.94,.02,1,1,1.4)"
^DD(357.94,.02,1,1,1.4)="S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=357.94,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(357.94,.02,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(357.94,.02,1,1,79.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(357.94,.02,1,1,2.4)"
^DD(357.94,.02,1,1,2.4)="S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=357.94,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(357.94,.02,1,1,79.2)="S Y(2)=$C(59)_$S($D(^DD(357.94,.02,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1)"
^DD(357.94,.02,1,1,"%D",0)="^^1^1^2970314^"
^DD(357.94,.02,1,1,"%D",1,0)="This trigger will set the correct Simplex code for PCL5 printers."
^DD(357.94,.02,1,1,"CREATE CONDITION")="#.03="""""
^DD(357.94,.02,1,1,"CREATE VALUE")="S X=""$C(27)_""""&l0S"""""""
^DD(357.94,.02,1,1,"DELETE CONDITION")="#.02="""""
^DD(357.94,.02,1,1,"DELETE VALUE")="@"
^DD(357.94,.02,1,1,"DT")="2970314"
^DD(357.94,.02,1,1,"FIELD")="#.03"
^DD(357.94,.02,1,2,0)="^^TRIGGER^357.94^.04"
^DD(357.94,.02,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)="""" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""$C(27)_""""&l1S"""""" X ^DD(357.94,.02,1,2,1.4)"
^DD(357.94,.02,1,2,1.4)="S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=357.94,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(357.94,.02,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(357.94,.02,1,2,79.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(357.94,.02,1,2,2.4)"
^DD(357.94,.02,1,2,2.4)="S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=357.94,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(357.94,.02,1,2,79.2)="S Y(2)=$C(59)_$S($D(^DD(357.94,.02,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1)"
^DD(357.94,.02,1,2,"%D",0)="^^2^2^2970314^"
^DD(357.94,.02,1,2,"%D",1,0)="This trigger will set the correct Duplex, Long Edge Binding code for "
^DD(357.94,.02,1,2,"%D",2,0)="PCL5 printers."
^DD(357.94,.02,1,2,"CREATE CONDITION")="#.04="""""
^DD(357.94,.02,1,2,"CREATE VALUE")="S X=""$C(27)_""""&l1S"""""""
^DD(357.94,.02,1,2,"DELETE CONDITION")="#.02="""""
^DD(357.94,.02,1,2,"DELETE VALUE")="@"
^DD(357.94,.02,1,2,"DT")="2970314"
^DD(357.94,.02,1,2,"FIELD")="#.04"
^DD(357.94,.02,1,3,0)="^^TRIGGER^357.94^.05"
^DD(357.94,.02,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""$C(27)_""""&l2S"""""" X ^DD(357.94,.02,1,3,1.4)"
^DD(357.94,.02,1,3,1.4)="S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=357.94,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(357.94,.02,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(357.94,.02,1,3,79.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(357.94,.02,1,3,2.4)"
^DD(357.94,.02,1,3,2.4)="S DIH=$S($D(^IBE(357.94,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=357.94,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(357.94,.02,1,3,79.2)="S Y(2)=$C(59)_$S($D(^DD(357.94,.02,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^IBE(357.94,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,2)_"":"",2),$C(59),1)"
^DD(357.94,.02,1,3,"%D",0)="^^3^3^2970314^"
^DD(357.94,.02,1,3,"%D",1,0)="This trigger will set the correct Duplex, Short Edge Binding code for "
^DD(357.94,.02,1,3,"%D",2,0)="PCL5 printers."
^DD(357.94,.02,1,3,"%D",3,0)=""
^DD(357.94,.02,1,3,"CREATE CONDITION")="#.05="""""
^DD(357.94,.02,1,3,"CREATE VALUE")="S X=""$C(27)_""""&l2S"""""""
^DD(357.94,.02,1,3,"DELETE CONDITION")="#.02="""""
^DD(357.94,.02,1,3,"DELETE VALUE")="@"
^DD(357.94,.02,1,3,"DT")="2970314"
^DD(357.94,.02,1,3,"FIELD")="#.05"
^DD(357.94,.02,21,0)="^^5^5^2960229^^"
^DD(357.94,.02,21,1,0)="Enter the printer control language that this terminal type supports for"
^DD(357.94,.02,21,2,0)="printing scannable encounter forms.  Currently only PCL5 is supported."
^DD(357.94,.02,21,3,0)=" "
^DD(357.94,.02,21,4,0)="If this terminal type supports PCL5 then enter PCL5, otherwise this should"
^DD(357.94,.02,21,5,0)="be left blank.  Generally all HP printers (HP3 and above) support PCL5."
^DD(357.94,.02,"DT")="2970314"
^DD(357.94,.03,0)="SIMPLEX^FX^^0;3^D CHECK^%ZISS1 K:$L(X)>50!($L(X)<2) X"
^DD(357.94,.03,3)="Enter the printer language statement that will set the printer to simplex printing."
^DD(357.94,.03,5,1,0)="357.94^.02^1"
^DD(357.94,.03,21,0)="^^4^4^2960229^^"
^DD(357.94,.03,21,1,0)="This is the code used to put this printer into Simplex mode (one sided"
^DD(357.94,.03,21,2,0)="print).  For PCL5 printers this generally is $C(27)_""&l0S"".  Be careful"
^DD(357.94,.03,21,3,0)="when typing this in, the character sequence is: Escape, ampersand, lower"
^DD(357.94,.03,21,4,0)="case L, numeral zero, capital S."
^DD(357.94,.03,"DT")="2950927"
^DD(357.94,.04,0)="DUPLEX, LONG-EDGE BINDING^FX^^0;4^D CHECK^%ZISS1 K:$L(X)>50!($L(X)<2) X"
^DD(357.94,.04,3)="Enter the printer language statement that will set the printer to duplex printing for long-edge binding."
^DD(357.94,.04,5,1,0)="357.94^.02^2"
^DD(357.94,.04,21,0)="^^6^6^2960229^"
^DD(357.94,.04,21,1,0)="This is the code used to put this printer into Duplex mode, long"
^DD(357.94,.04,21,2,0)="Edge Binding (two sided printing, like you'd use in a binder).  For "
^DD(357.94,.04,21,3,0)="PCL5 printers this generally is $C(27)_""&l1S"".  Be careful"
^DD(357.94,.04,21,4,0)="when typing this in, the character sequence is: Escape, ampersand, lower"
^DD(357.94,.04,21,5,0)="case L, numeral 1, capital S."
^DD(357.94,.04,21,6,0)=""
^DD(357.94,.04,"DT")="2950927"
^DD(357.94,.05,0)="DUPLEX, SHORT-EDGE BINDING^FX^^0;5^D CHECK^%ZISS1 K:$L(X)>50!($L(X)<2) X"
^DD(357.94,.05,3)="Enter the printer language statement that will set the printer to duplex printing for short-edge binding."
^DD(357.94,.05,5,1,0)="357.94^.02^3"
^DD(357.94,.05,21,0)="^^6^6^2970410^^^"
^DD(357.94,.05,21,1,0)="This is the code used to put this printer into Duplex mode, short"
^DD(357.94,.05,21,2,0)="Edge Binding (two sided printing, like you'd use in a patient chart)."
^DD(357.94,.05,21,3,0)="For PCL5 printers this generally is $C(27)_""&l2S"".  Be careful"
^DD(357.94,.05,21,4,0)="when typing this in, the character sequence is: Escape, ampersand, lower"
^DD(357.94,.05,21,5,0)="case L, numeral 2, capital S.                                            "
^DD(357.94,.05,21,6,0)=""
^DD(357.94,.05,"DT")="2950927"
^DD(357.94,.06,0)="TCP PRINTER^S^1:YES;^0;6^Q"
^DD(357.94,.06,21,0)="^^11^11^2970314^^"
^DD(357.94,.06,21,1,0)="Enter 'Yes' if this is a TCP printer terminal type such as P-REMOTE.  "
^DD(357.94,.06,21,2,0)=""
^DD(357.94,.06,21,3,0)="Currently the duplex printing of Encounter Forms does not work correctly"
^DD(357.94,.06,21,4,0)="when sent to a TCP printer using a Jet Direct card.  The problem is that"
^DD(357.94,.06,21,5,0)="at the end of the first page the printer appears to overflow causing a form"
^DD(357.94,.06,21,6,0)="feed.  The subsequent form feed then causes the back of the page to be"
^DD(357.94,.06,21,7,0)="blank and the beginning of page 2 to start on a new page.  While this issue"
^DD(357.94,.06,21,8,0)="is actively being reseached at the time of release of AICS v3 it has not "
^DD(357.94,.06,21,9,0)="been resolved.  As a work around, entering a 'Yes' at this prompt will"
^DD(357.94,.06,21,10,0)="suppress the form feeds at the end of the page.  Limited testing has shown "
^DD(357.94,.06,21,11,0)="this to be effective in producing duplex encounter forms."
^DD(357.94,.06,23,0)="^^4^4^2970314^^"
^DD(357.94,.06,23,1,0)="The variable IBDEVICE(""TCP"") is set in routine IBDFUA based on the value of"
^DD(357.94,.06,23,2,0)="this field.  Routine IBDF2F uses this variable to determine if form feeds "
^DD(357.94,.06,23,3,0)="should be sent at the end of a page.  This field should not be added the"
^DD(357.94,.06,23,4,0)="edit option until it has been tested in a high volume test at a VAMC."
^DD(357.94,.06,"DT")="2970303"
^DD(357.94,.07,0)="RESET EXECUTE CODE^FX^^0;7^D CHECK^%ZISS1 K:$L(X)>60!($L(X)<3) X"
^DD(357.94,.07,3)="Enter the printer control code you want sent to the printer immediately after reset. Answer must be 3-60 characters in length."
^DD(357.94,.07,21,0)="^^4^4^2970410^^"
^DD(357.94,.07,21,1,0)="Enter the printer code that you would like sent to the printer immediately"
^DD(357.94,.07,21,2,0)="after a reset is sent when using PCL5 to print encounter forms.  This is"
^DD(357.94,.07,21,3,0)="primarily intended to support changes to which bin the paper should be"
^DD(357.94,.07,21,4,0)="sent to."
^DD(357.94,.07,"DT")="2970410"
^DD(357.94,"B","DUPLEX, LONG-EDGE BINDING",.04)=""
^DD(357.94,"B","DUPLEX, SHORT-EDGE BINDING",.05)=""
^DD(357.94,"B","PRINTER LANGUAGE TYPE",.02)=""
^DD(357.94,"B","RESET EXECUTE CODE",.07)=""
^DD(357.94,"B","SIMPLEX",.03)=""
^DD(357.94,"B","TCP PRINTER",.06)=""
^DD(357.94,"B","TERMINAL TYPE",.01)=""
^DD(357.94,"GL",0,1,.01)=""
^DD(357.94,"GL",0,2,.02)=""
^DD(357.94,"GL",0,3,.03)=""
^DD(357.94,"GL",0,4,.04)=""
^DD(357.94,"GL",0,5,.05)=""
^DD(357.94,"GL",0,6,.06)=""
^DD(357.94,"GL",0,7,.07)=""
^DD(357.94,"IX",.01)=""
^DD(357.94,"IX",.02)=""
^DD(357.94,"RQ",.01)=""
^DD(357.95,0)="FIELD^^13^21"
^DD(357.95,0,"DDA")="N"
^DD(357.95,0,"DIK")="IBDX95"
^DD(357.95,0,"DIKOLD")="IBDX95"
^DD(357.95,0,"DT")="2961021"
^DD(357.95,0,"ID",.03)="W ""   Source: "",@(""$P($P($C(59)_$S($D(^DD(357.95,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(357.95,0,"ID",.2)="W ""    Created: "",$E($P(^(0),U,20),4,5)_""-""_$E($P(^(0),U,20),6,7)_""-""_$E($P(^(0),U,20),2,3)"
^DD(357.95,0,"ID",.21)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(357,+$P(^(0),U,21),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(357,.01,0),U,2) D Y^DIQ:Y]"""" W ""   Form: "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(357.95,0,"IX","AC",357.951,.01)=""
^DD(357.95,0,"IX","AC1",357.951,.02)=""
^DD(357.95,0,"IX","AD",357.952,.01)=""
^DD(357.95,0,"IX","AD1",357.952,.02)=""
^DD(357.95,0,"IX","ADEL",357.95,.02)=""
^DD(357.95,0,"IX","AE",357.951,.03)=""
^DD(357.95,0,"IX","AE1",357.951,.1)=""
^DD(357.95,0,"IX","AE2",357.951,.04)=""
^DD(357.95,0,"IX","AFC",357.9501,.01)=""
^DD(357.95,0,"IX","B",357.95,.01)=""
^DD(357.95,0,"IX","C",357.95,.03)=""
^DD(357.95,0,"IX","D",357.95,13)=""
^DD(357.95,0,"NM","FORM DEFINITION")=""
^DD(357.95,0,"PT",357.96,.04)=""
^DD(357.95,0,"VR")="3.0"
^DD(357.95,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.95,.01,0)="FORM TYPE ID^RNJ9,0X^^0;1^K X"
^DD(357.95,.01,1,0)="^.1^^-1"
^DD(357.95,.01,1,1,0)="357.95^B"
^DD(357.95,.01,1,1,1)="S ^IBD(357.95,""B"",$E(X,1,30),DA)="""""
^DD(357.95,.01,1,1,2)="K ^IBD(357.95,""B"",$E(X,1,30),DA)"
^DD(357.95,.01,3)="Can not be entered through FileMan!"
^DD(357.95,.01,21,0)="^^2^2^2941019^^"
^DD(357.95,.01,21,1,0)="This number should be unique for the encounter form type. It equals the"
^DD(357.95,.01,21,2,0)="ien. Editing the form results in a new FORM TYPE ID being assigned."
^DD(357.95,.01,"DT")="2951218"
^DD(357.95,.02,0)="DATE MARKED FOR DELETION^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(357.95,.02,1,0)="^.1"
^DD(357.95,.02,1,1,0)="357.95^ADEL"
^DD(357.95,.02,1,1,1)="S ^IBD(357.95,""ADEL"",$E(X,1,30),DA)="""""
^DD(357.95,.02,1,1,2)="K ^IBD(357.95,""ADEL"",$E(X,1,30),DA)"
^DD(357.95,.02,1,1,"%D",0)="^^2^2^2951004^"
^DD(357.95,.02,1,1,"%D",1,0)="Regular cross reference of file.  Used to find entries marked for deletion"
^DD(357.95,.02,1,1,"%D",2,0)="by purge utility"
^DD(357.95,.02,1,1,"DT")="2951004"
^DD(357.95,.02,3)="Enter the date the form was deleted or edited."
^DD(357.95,.02,21,0)="^^2^2^2941215^^"
^DD(357.95,.02,21,1,0)="The date is when the form was deleted or edited. When the last printed"
^DD(357.95,.02,21,2,0)="form is accounted for the entry can be deleted."
^DD(357.95,.02,"DT")="2951004"
^DD(357.95,.03,0)="SOURCE^RS^1:AICS;2:PANDAS;3:TELEFORM;4:PEN;99:OTHER;^0;3^Q"
^DD(357.95,.03,1,0)="^.1"
^DD(357.95,.03,1,1,0)="357.95^C"
^DD(357.95,.03,1,1,1)="S ^IBD(357.95,""C"",$E(X,1,30),DA)="""""
^DD(357.95,.03,1,1,2)="K ^IBD(357.95,""C"",$E(X,1,30),DA)"
^DD(357.95,.03,1,1,"%D",0)="^^2^2^2950928^"
^DD(357.95,.03,1,1,"%D",1,0)="Used to determine if the form type provided to Form Tracking was"
^DD(357.95,.03,1,1,"%D",2,0)="externally assigned."
^DD(357.95,.03,1,1,"DT")="2941017"
^DD(357.95,.03,3)="What software will produce the form?"
^DD(357.95,.03,21,0)="^^1^1^2951218^^"
^DD(357.95,.03,21,1,0)="The software that produced the form."
^DD(357.95,.03,"DT")="2951218"
^DD(357.95,.09,0)="RIGHT MARGIN^NJ3,0X^^0;9^K:+X'=X!(X>133)!(X<80)!(X?.E1"".""1N.N) X"
^DD(357.95,.09,3)="Type a Number between 80 and 133, 0 Decimal Digits"
^DD(357.95,.09,21,0)="^^1^1^2950803^"
^DD(357.95,.09,21,1,0)="The width of the form in characters."
^DD(357.95,.09,"DT")="2950919"
^DD(357.95,.1,0)="PAGE LENGTH^RNJ3,0^^0;10^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.95,.1,3)="Type a Number between 1 and 300, 0 Decimal Digits"
^DD(357.95,.1,21,0)="^^1^1^2950803^"
^DD(357.95,.1,21,1,0)="The length of the page."
^DD(357.95,.1,"DT")="2940823"
^DD(357.95,.11,0)="NUMBER OF PAGES^RNJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.95,.11,3)="How many pages should the encounter form have?"
^DD(357.95,.11,21,0)="^^1^1^2951122^"
^DD(357.95,.11,21,1,0)="The encounter form may have multiple pages."
^DD(357.95,.11,"DT")="2951122"
^DD(357.95,.12,0)="SCANNABLE?^S^0:NO;1:YES;^0;12^Q"
^DD(357.95,.12,3)="Answer YES if the form will be scanned to accomplish data entry, NO otherwise."
^DD(357.95,.12,"DT")="2951122"
^DD(357.95,.13,0)="FORM TYPE ID^NJ9,0^^0;13^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.95,.13,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(357.95,.13,"DT")="2951122"
^DD(357.95,.14,0)="PAPER SIZE^S^1:LETTER (8 1/2 x 11);^0;14^Q"
^DD(357.95,.14,3)="What size paper should be used?"
^DD(357.95,.14,"DT")="2951122"
^DD(357.95,.15,0)="ORIENTATION^S^p:PORTRAIT;^0;15^Q"
^DD(357.95,.15,3)="How should the form be oriented?"
^DD(357.95,.15,"DT")="2951122"
^DD(357.95,.16,0)="TEXT SIZE^RS^1:133 COLUMNS x 80 LINES;2:96 COLUMNS x 72 LINES;3:80 COLUMNS x 60 LINES;^0;16^Q"
^DD(357.95,.16,3)="This choice will determine the size of the print and how much text will fit on the form."
^DD(357.95,.16,"DT")="2951122"
^DD(357.95,.17,0)="VERSION^NJ5,2^^0;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(357.95,.17,3)="Type a Number between 0 and 99, 2 Decimal Digits"
^DD(357.95,.17,"DT")="2951122"
^DD(357.95,.2,0)="DATE CREATED^D^^0;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(357.95,.2,9)="^"
^DD(357.95,.2,21,0)="^^2^2^2951218^"
^DD(357.95,.2,21,1,0)="This is the date that this entry was created.  It is triggered when the"
^DD(357.95,.2,21,2,0)="entry is added."
^DD(357.95,.2,"DT")="2951218"
^DD(357.95,.21,0)="FORM NAME^P357^IBE(357,^0;21^Q"
^DD(357.95,.21,3)=""
^DD(357.95,.21,9)="^"
^DD(357.95,.21,21,0)="^^3^3^2970225^^^^"
^DD(357.95,.21,21,1,0)="This is the name of the form when this entry was created.  It is triggered"
^DD(357.95,.21,21,2,0)="when the entry is created."
^DD(357.95,.21,21,3,0)=""
^DD(357.95,.21,23,0)="^^1^1^2970225^^^"
^DD(357.95,.21,23,1,0)="This field is hard set when the entry is created.  See routine IBDFM1."
^DD(357.95,.21,"DT")="2951218"
^DD(357.95,1,0)="BUBBLES^357.951I^^1;0"
^DD(357.95,1,21,0)="^^1^1^2960906^^^^"
^DD(357.95,1,21,1,0)="The list of bubbles appearing on the form."
^DD(357.95,1,23,0)="^^1^1^2960906^^^^"
^DD(357.95,1,23,1,0)=" "
^DD(357.95,1,"DT")="2941020"
^DD(357.95,2,0)="HAND PRINT FIELDS^357.952^^2;0"
^DD(357.95,3,0)="PAGE INFORMATION^357.953^^3;0"
^DD(357.95,3,21,0)="^^2^2^2950808^^"
^DD(357.95,3,21,1,0)="A list of the pages of a form that requires documentation"
^DD(357.95,3,21,2,0)="of specific features."
^DD(357.95,3,"DT")="2950306"
^DD(357.95,10,0)="CLINICS USING THIS FORM^357.9501P^^10;0"
^DD(357.95,10,21,0)="^^2^2^2950808^^"
^DD(357.95,10,21,1,0)="These are the clinics that use this form"
^DD(357.95,10,21,2,0)=" "
^DD(357.95,10,23,0)="^^1^1^2950808^^"
^DD(357.95,10,23,1,0)="This field specifically added for PANDAS."
^DD(357.95,11,0)="PANDAS HEADERS^357.9511^^11;0"
^DD(357.95,11,21,0)="^^1^1^2950803^"
^DD(357.95,11,21,1,0)="A list of headers used by PANDAS."
^DD(357.95,11,23,0)="^^1^1^2950803^"
^DD(357.95,11,23,1,0)="This field was requested by the PANDAS project."
^DD(357.95,12.01,0)="PANDAS TIMESTAMP^D^^12;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(357.95,12.01,3)="When was the Pandas form last modified?"
^DD(357.95,12.01,21,0)="^^1^1^2950803^"
^DD(357.95,12.01,21,1,0)="The date and time the PANDAS form was last modified."
^DD(357.95,12.01,23,0)="^^1^1^2950803^"
^DD(357.95,12.01,23,1,0)="This field was requested by PANDAS."
^DD(357.95,12.01,"DT")="2941020"
^DD(357.95,13,0)="PANDAS FORMID^NJ4,0^^12;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.95,13,1,0)="^.1"
^DD(357.95,13,1,1,0)="357.95^D"
^DD(357.95,13,1,1,1)="S ^IBD(357.95,""D"",$E(X,1,30),DA)="""""
^DD(357.95,13,1,1,2)="K ^IBD(357.95,""D"",$E(X,1,30),DA)"
^DD(357.95,13,1,1,"%D",0)="^^1^1^2950322^"
^DD(357.95,13,1,1,"%D",1,0)="Cross-reference to determine Pandas FORM ID."
^DD(357.95,13,1,1,"DT")="2950322"
^DD(357.95,13,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(357.95,13,21,0)="^^1^1^2950803^"
^DD(357.95,13,21,1,0)="The form identifier used by PANDAS."
^DD(357.95,13,23,0)="^^1^1^2950803^"
^DD(357.95,13,23,1,0)="This field was requested by PANDAS."
^DD(357.95,13,"DT")="2950322"
^DD(357.95,"B","BUBBLES",1)=""
^DD(357.95,"B","CLINICS USING THIS FORM",10)=""
^DD(357.95,"B","DATE CREATED",.2)=""
^DD(357.95,"B","DATE MARKED FOR DELETION",.02)=""
^DD(357.95,"B","FORM NAME",.21)=""
^DD(357.95,"B","FORM TYPE ID",.01)=""
^DD(357.95,"B","FORM TYPE ID",.13)=""
^DD(357.95,"B","HAND PRINT FIELDS",2)=""
^DD(357.95,"B","NUMBER OF PAGES",.11)=""
^DD(357.95,"B","ORIENTATION",.15)=""
^DD(357.95,"B","PAGE INFORMATION",3)=""
^DD(357.95,"B","PAGE LENGTH",.1)=""
^DD(357.95,"B","PANDAS FORMID",13)=""
^DD(357.95,"B","PANDAS HEADERS",11)=""
^DD(357.95,"B","PANDAS TIMESTAMP",12.01)=""
^DD(357.95,"B","PAPER SIZE",.14)=""
^DD(357.95,"B","RIGHT MARGIN",.09)=""
^DD(357.95,"B","SCANNABLE?",.12)=""
^DD(357.95,"B","SOURCE",.03)=""
^DD(357.95,"B","TEXT SIZE",.16)=""
^DD(357.95,"B","VERSION",.17)=""
^DD(357.95,"GL",0,1,.01)=""
^DD(357.95,"GL",0,2,.02)=""
^DD(357.95,"GL",0,3,.03)=""
^DD(357.95,"GL",0,9,.09)=""
^DD(357.95,"GL",0,10,.1)=""
^DD(357.95,"GL",0,11,.11)=""
^DD(357.95,"GL",0,12,.12)=""
^DD(357.95,"GL",0,13,.13)=""
^DD(357.95,"GL",0,14,.14)=""
^DD(357.95,"GL",0,15,.15)=""
^DD(357.95,"GL",0,16,.16)=""
^DD(357.95,"GL",0,17,.17)=""
^DD(357.95,"GL",0,20,.2)=""
^DD(357.95,"GL",0,21,.21)=""
^DD(357.95,"GL",1,0,1)=""
^DD(357.95,"GL",2,0,2)=""
^DD(357.95,"GL",3,0,3)=""
^DD(357.95,"GL",10,0,10)=""
^DD(357.95,"GL",11,0,11)=""
^DD(357.95,"GL",12,1,12.01)=""
^DD(357.95,"GL",12,2,13)=""
^DD(357.95,"IX",.01)=""
^DD(357.95,"IX",.02)=""
^DD(357.95,"IX",.03)=""
^DD(357.95,"IX",13)=""
^DD(357.95,"RQ",.01)=""
^DD(357.95,"RQ",.03)=""
^DD(357.95,"RQ",.1)=""
^DD(357.95,"RQ",.11)=""
^DD(357.95,"RQ",.16)=""
^DD(357.95,"SB",357.9501,10)=""
^DD(357.95,"SB",357.951,1)=""
^DD(357.95,"SB",357.9511,11)=""
^DD(357.95,"SB",357.952,2)=""
^DD(357.95,"SB",357.953,3)=""
^DD(357.9501,0)="CLINICS USING THIS FORM SUB-FIELD^^.01^1"
^DD(357.9501,0,"DIK")="IBDX95"
^DD(357.9501,0,"IX","B",357.9501,.01)=""
^DD(357.9501,0,"NM","CLINICS USING THIS FORM")=""
^DD(357.9501,0,"UP")="357.95"
^DD(357.9501,.01,0)="CLINICS USING THIS FORM^MP44'^SC(^0;1^Q"
^DD(357.9501,.01,1,0)="^.1"
^DD(357.9501,.01,1,1,0)="357.9501^B"
^DD(357.9501,.01,1,1,1)="S ^IBD(357.95,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(357.9501,.01,1,1,2)="K ^IBD(357.95,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(357.9501,.01,1,2,0)="357.95^AFC"
^DD(357.9501,.01,1,2,1)="S ^IBD(357.95,""AFC"",$E(X,1,30),DA(1),DA)="""""
^DD(357.9501,.01,1,2,2)="K ^IBD(357.95,""AFC"",$E(X,1,30),DA(1),DA)"
^DD(357.9501,.01,1,2,"%D",0)="^^1^1^2941012^"
^DD(357.9501,.01,1,2,"%D",1,0)="Regular cross reference of forms by clinic using them"
^DD(357.9501,.01,1,2,"DT")="2941012"
^DD(357.9501,.01,3)="Enter the clinics using this form."
^DD(357.9501,.01,21,0)="^^1^1^2950803^"
^DD(357.9501,.01,21,1,0)="A clinic that uses the form type to which this form definition applies."
^DD(357.9501,.01,"DT")="2941011"
^DD(357.9501,"B","CLINICS USING THIS FORM",.01)=""
^DD(357.9501,"GL",0,1,.01)=""
^DD(357.9501,"IX",.01)=""
^DD(357.951,0)="BUBBLES SUB-FIELD^^2.04^19"
^DD(357.951,0,"DIK")="IBDX95"
^DD(357.951,0,"DT")="2961021"
^DD(357.951,0,"ID","WRITE")="D EN^DDIOL(""  COL = ""_$P($G(^(0)),U,2)_""  DISPLAY = ""_$P($G(^(0)),U,8),"""",""?0"")"
^DD(357.951,0,"IX","B",357.951,.01)=""
^DD(357.951,0,"NM","BUBBLES")=""
^DD(357.951,0,"UP")="357.95"
^DD(357.951,.01,0)="BUBBLE ROW^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.951,.01,1,0)="^.1"
^DD(357.951,.01,1,1,0)="357.951^B"
^DD(357.951,.01,1,1,1)="S ^IBD(357.95,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(357.951,.01,1,1,2)="K ^IBD(357.95,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(357.951,.01,1,2,0)="357.95^AC^MUMPS"
^DD(357.951,.01,1,2,1)="S:$P($G(^IBD(357.95,DA(1),1,DA,0)),""^"",2)]"""" ^IBD(357.95,""AC"",DA(1),X,$P(^IBD(357.95,DA(1),1,DA,0),""^"",2),DA)="""""
^DD(357.951,.01,1,2,2)="K:$P($G(^IBD(357.95,DA(1),1,DA,0)),""^"",2)]"""" ^IBD(357.95,""AC"",DA(1),X,$P(^IBD(357.95,DA(1),1,DA,0),""^"",2),DA)"
^DD(357.951,.01,1,2,"%D",0)="^^2^2^2960403^^^"
^DD(357.951,.01,1,2,"%D",1,0)="This cross-reference indexes the bubbles by location. Set by the .01 and"
^DD(357.951,.01,1,2,"%D",2,0)=".02 fields."
^DD(357.951,.01,1,2,"DT")="2960403"
^DD(357.951,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(357.951,.01,21,0)="^^1^1^2950928^^^^"
^DD(357.951,.01,21,1,0)="The row the bubble occurs on. Row 0 is at the top."
^DD(357.951,.01,"DT")="2960403"
^DD(357.951,.02,0)="BUBBLE COLUMN^RNJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.951,.02,1,0)="^.1"
^DD(357.951,.02,1,1,0)="357.95^AC1^MUMPS"
^DD(357.951,.02,1,1,1)="S:X]"""" ^IBD(357.95,""AC"",DA(1),$P($G(^IBD(357.95,DA(1),1,DA,0)),""^""),X,DA)="""""
^DD(357.951,.02,1,1,2)="K:X]"""" ^IBD(357.95,""AC"",DA(1),$P($G(^IBD(357.95,DA(1),1,DA,0)),""^""),X,DA)"
^DD(357.951,.02,1,1,"%D",0)="^^2^2^2960403^^"
^DD(357.951,.02,1,1,"%D",1,0)="This cross-reference indexes the bubbles by location. Set by the .01 and"
^DD(357.951,.02,1,1,"%D",2,0)=".02 fields."
^DD(357.951,.02,1,1,"DT")="2960403"
^DD(357.951,.02,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.951,.02,21,0)="^^1^1^2950803^"
^DD(357.951,.02,21,1,0)="The column the bubble occurs on. Columns begin at 0 on the left."
^DD(357.951,.02,"DT")="2960403"
^DD(357.951,.03,0)="TYPE OF DATA^*P357.6'^IBE(357.6,^0;3^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.951,.03,1,0)="^.1"
^DD(357.951,.03,1,1,0)="357.95^AE^MUMPS"
^DD(357.951,.03,1,1,1)="I X,$P($G(^IBD(357.95,DA(1),1,DA,0)),""^"",4)]"""" S ^IBD(357.95,""AE"",DA(1),X,+$P(^IBD(357.95,DA(1),1,DA,0),""^"",10),$P(^(0),""^"",4),DA)="""""
^DD(357.951,.03,1,1,2)="I X,$P($G(^IBD(357.95,DA(1),1,DA,0)),""^"",4)]"""" K ^IBD(357.95,""AE"",DA(1),X,+$P(^IBD(357.95,DA(1),1,DA,0),""^"",10),$P(^(0),""^"",4),DA)"
^DD(357.951,.03,1,1,"%D",0)="^^2^2^2960403^^^^"
^DD(357.951,.03,1,1,"%D",1,0)="Subscripts are <form type id>, <package interface ien>, <data qualifier"
^DD(357.951,.03,1,1,"%D",2,0)="ien>,<value to pass>,<bubble ien>). Set by the .03 ,.04, and .1 fields."
^DD(357.951,.03,1,1,"DT")="2960403"
^DD(357.951,.03,3)="What type of data does the bubble represent?"
^DD(357.951,.03,12)="The screen is only for PANDAS. It allows only certain input interfaces."
^DD(357.951,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""P"""""""
^DD(357.951,.03,21,0)="^^1^1^2950913^^^^"
^DD(357.951,.03,21,1,0)="The type of data a bubble represents. Used to map the data to DHCP."
^DD(357.951,.03,"DT")="2960403"
^DD(357.951,.04,0)="PRIMARY VALUE^FXO^^0;4^D FDCHOICE^IBDFU91($P(^IBD(357.95,D0,1,D1,0),U,3),.X)"
^DD(357.951,.04,1,0)="^.1"
^DD(357.951,.04,1,1,0)="357.95^AE2^MUMPS"
^DD(357.951,.04,1,1,1)="I $P($G(^IBD(357.95,DA(1),1,DA,0)),""^"",3),X]"""" S ^IBD(357.95,""AE"",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),""^"",3),+$P(^(0),""^"",10),X,DA)="""""
^DD(357.951,.04,1,1,2)="I $P($G(^IBD(357.95,DA(1),1,DA,0)),""^"",3),X]"""" K ^IBD(357.95,""AE"",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),""^"",3),+$P(^(0),""^"",10),X,DA)"
^DD(357.951,.04,1,1,"%D",0)="^^2^2^2960403^^^^"
^DD(357.951,.04,1,1,"%D",1,0)="Subscripts are <form type id>, <package interface ien>, <data qualifier "
^DD(357.951,.04,1,1,"%D",2,0)="ien>,<value to pass>,<bubble ien>). Set by the .03 ,.04, and .1 fields."
^DD(357.951,.04,1,1,"DT")="2960403"
^DD(357.951,.04,2)="S Y(0)=Y D OUTPUT^IBDFU91($P(^IBD(357.95,D0,1,D1,0),U,3),.Y)"
^DD(357.951,.04,2.1)="D OUTPUT^IBDFU91($P(^IBD(357.95,D0,1,D1,0),U,3),.Y)"
^DD(357.951,.04,3)="What value should be entered to the database?"
^DD(357.951,.04,4)="D HELP^IBDFU91($P(^IBD(357.95,DA(1),1,DA,0),U,3))"
^DD(357.951,.04,21,0)="^^1^1^2950823^^^^"
^DD(357.951,.04,21,1,0)="The value to pass to the package interface."
^DD(357.951,.04,"DT")="2960403"
^DD(357.951,.05,0)="FIELD NAME^RF^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(357.951,.05,3)="Answer must be 3-30 characters in length."
^DD(357.951,.05,21,0)="^^1^1^2950803^"
^DD(357.951,.05,21,1,0)="The name of the field that the bubble appears in."
^DD(357.951,.05,"DT")="2940823"
^DD(357.951,.06,0)="FIELD ID^RF^^0;6^K:$L(X)>10!($L(X)<2) X"
^DD(357.951,.06,3)="Answer must be 2-10 characters in length."
^DD(357.951,.06,21,0)="^^2^2^2951121^^"
^DD(357.951,.06,21,1,0)="A unique identifier for a group of one or more bubbles that is used to"
^DD(357.951,.06,21,2,0)="tie that group of bubbles together."
^DD(357.951,.06,"DT")="2940823"
^DD(357.951,.07,0)="SELECTION RULE^RS^0:ANY NUMBER;1:EXACTLY ONE;2:AT MOST ONE;3:AT LEAST ONE;^0;7^Q"
^DD(357.951,.07,21,0)="^^2^2^2950803^"
^DD(357.951,.07,21,1,0)="A rule that specifies how many of the bubbles can be filled"
^DD(357.951,.07,21,2,0)="in for a group of bubbles identified by the same FIELD ID."
^DD(357.951,.07,"DT")="2940824"
^DD(357.951,.08,0)="DISPLAYED TEXT^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(357.951,.08,3)="Answer must be 1-80 characters in length."
^DD(357.951,.08,21,0)="^^1^1^2950803^"
^DD(357.951,.08,21,1,0)="The text that appears on the form and is associated with the bubble."
^DD(357.951,.08,"DT")="2950427"
^DD(357.951,.09,0)="DISPLAYED HEADER^F^^0;9^K:$L(X)>40!($L(X)<1) X"
^DD(357.951,.09,3)="What group header does the selection appear under?"
^DD(357.951,.09,21,0)="^^1^1^2950803^"
^DD(357.951,.09,21,1,0)="The header, if any, that is associated with the bubble."
^DD(357.951,.09,"DT")="2941019"
^DD(357.951,.1,0)="DATA QUALIFIER^*P357.98'X^IBD(357.98,^0;10^S DIC(""S"")=""I $$DQGOOD^IBDFU9($P(^IBD(357.95,D0,1,D1,0),U,3),Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.951,.1,1,0)="^.1"
^DD(357.951,.1,1,1,0)="357.95^AE1^MUMPS"
^DD(357.951,.1,1,1,1)="I $P(^IBD(357.95,DA(1),1,DA,0),""^"",3),$P(^(0),""^"",4)]"""" S ^IBD(357.95,""AE"",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),""^"",3),+X,$P(^(0),""^"",4),DA)="""""
^DD(357.951,.1,1,1,2)="I $P(^IBD(357.95,DA(1),1,DA,0),""^"",3),$P(^(0),""^"",4)]"""" K ^IBD(357.95,""AE"",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),""^"",3),+X,$P(^(0),""^"",4),DA)"
^DD(357.951,.1,1,1,"%D",0)="^^2^2^2950928^"
^DD(357.951,.1,1,1,"%D",1,0)="Subscripts are <form type id>, <package interface ien>,+<data qualifier"
^DD(357.951,.1,1,1,"%D",2,0)="ien>,<value to pass>,<bubble ien>). Set by the .03, .04, and .01 fields."
^DD(357.951,.1,1,1,"DT")="2941020"
^DD(357.951,.1,3)="What data qualifier applies to this selection?"
^DD(357.951,.1,12)="Allows only certain data qualifiers, dependent on the type of data."
^DD(357.951,.1,12.1)="S DIC(""S"")=""I $$DQGOOD^IBDFU9($P(^IBD(357.95,D0,1,D1,0),U,3),Y)"""
^DD(357.951,.1,21,0)="^^1^1^2950912^^^^"
^DD(357.951,.1,21,1,0)="The data qualifier associated with the bubble."
^DD(357.951,.1,"DT")="2950912"
^DD(357.951,.11,0)="DYNAMIC?^S^0:NO;1:YES;^0;11^Q"
^DD(357.951,.11,3)="Enter YES if the data associated with the bubble is stored in Form Tracking."
^DD(357.951,.11,21,0)="^^2^2^2950803^"
^DD(357.951,.11,21,1,0)="A field is dynamic if the data associated with the bubble is determined"
^DD(357.951,.11,21,2,0)="at print time as opposed to design time."
^DD(357.951,.11,"DT")="2950123"
^DD(357.951,.12,0)="ITEM NUMBER^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.951,.12,3)="What number on the list is the entry where this bubble occurs?"
^DD(357.951,.12,21,0)="^^1^1^2950803^"
^DD(357.951,.12,21,1,0)="The order on a list of bubbles that this bubble occurs in."
^DD(357.951,.12,"DT")="2950324"
^DD(357.951,.13,0)="QUANTITY^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.951,.13,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(357.951,.13,21,0)="^^2^2^2961015^"
^DD(357.951,.13,21,1,0)="Data in the Quantity field indicates the number of occurrences that will"
^DD(357.951,.13,21,2,0)="be passed along to PCE for this entry if the bubbled is selected."
^DD(357.951,.13,"DT")="2961015"
^DD(357.951,.14,0)="SELECTION^P357.3'^IBE(357.3,^0;14^Q"
^DD(357.951,.14,3)="Pointer to Selection File is to be set via AICS Form compilation."
^DD(357.951,.14,21,0)="^^1^1^3000124^^^"
^DD(357.951,.14,21,1,0)="Pointer to Selection File is to be set via AICS Form compilation."
^DD(357.951,.14,"DT")="2990601"
^DD(357.951,1,0)="SUBHEADER^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(357.951,1,3)="Answer must be 1-250 characters in length."
^DD(357.951,1,21,0)="^^1^1^2951002^"
^DD(357.951,1,21,1,0)="The subheader will be appended to the narrative for passing to PCE."
^DD(357.951,1,"DT")="2951002"
^DD(357.951,2.01,0)="ALTERNATIVE NARRATIVE^F^^2;1^K:$L(X)>80!($L(X)<3) X"
^DD(357.951,2.01,3)="Answer must be 3-80 characters in length."
^DD(357.951,2.01,21,0)="^^1^1^2960906^"
^DD(357.951,2.01,21,1,0)="This stores the alternative narrative for the Diagnosis codes."
^DD(357.951,2.01,"DT")="2960906"
^DD(357.951,2.02,0)="CLINICAL LEXICON^P757.01'^LEX(757.01,^2;2^Q"
^DD(357.951,2.02,21,0)="^^1^1^2960906^"
^DD(357.951,2.02,21,1,0)="This store the clinical lexicon for the diagnosis."
^DD(357.951,2.02,"DT")="2960906"
^DD(357.951,2.03,0)="SECOND CODE^F^^2;3^K:$L(X)>10!($L(X)<1) X"
^DD(357.951,2.03,3)="Answer must be 1-10 characters in length."
^DD(357.951,2.03,21,0)="^^2^2^2961021^"
^DD(357.951,2.03,21,1,0)="Used to pass along an additional code when the first is bubble.  Will"
^DD(357.951,2.03,21,2,0)="always be passed as secondary."
^DD(357.951,2.03,"DT")="2961021"
^DD(357.951,2.04,0)="THIRD CODE^F^^2;4^K:$L(X)>10!($L(X)<1) X"
^DD(357.951,2.04,3)="Answer must be 1-10 characters in length."
^DD(357.951,2.04,21,0)="^^2^2^2961021^"
^DD(357.951,2.04,21,1,0)="Used to pass a 3rd code along to PCE when this one entry is selected."
^DD(357.951,2.04,21,2,0)="Always passes it along as secondary."
^DD(357.951,2.04,"DT")="2961021"
^DD(357.951,"B","ALTERNATIVE NARRATIVE",2.01)=""
^DD(357.951,"B","BUBBLE COLUMN",.02)=""
^DD(357.951,"B","BUBBLE ROW",.01)=""
^DD(357.951,"B","CLINICAL LEXICON",2.02)=""
^DD(357.951,"B","DATA QUALIFIER",.1)=""
^DD(357.951,"B","DISPLAYED HEADER",.09)=""
^DD(357.951,"B","DISPLAYED TEXT",.08)=""
^DD(357.951,"B","DYNAMIC?",.11)=""
^DD(357.951,"B","FIELD ID",.06)=""
^DD(357.951,"B","FIELD NAME",.05)=""
^DD(357.951,"B","ITEM NUMBER",.12)=""
^DD(357.951,"B","PRIMARY VALUE",.04)=""
^DD(357.951,"B","QUANTITY",.13)=""
^DD(357.951,"B","SECOND CODE",2.03)=""
^DD(357.951,"B","SELECTION",.14)=""
^DD(357.951,"B","SELECTION RULE",.07)=""
^DD(357.951,"B","SUBHEADER",1)=""
^DD(357.951,"B","THIRD CODE",2.04)=""
^DD(357.951,"B","TYPE OF DATA",.03)=""
^DD(357.951,"GL",0,1,.01)=""
^DD(357.951,"GL",0,2,.02)=""
^DD(357.951,"GL",0,3,.03)=""
^DD(357.951,"GL",0,4,.04)=""
^DD(357.951,"GL",0,5,.05)=""
^DD(357.951,"GL",0,6,.06)=""
^DD(357.951,"GL",0,7,.07)=""
^DD(357.951,"GL",0,8,.08)=""
^DD(357.951,"GL",0,9,.09)=""
^DD(357.951,"GL",0,10,.1)=""
^DD(357.951,"GL",0,11,.11)=""
^DD(357.951,"GL",0,12,.12)=""
^DD(357.951,"GL",0,13,.13)=""
^DD(357.951,"GL",0,14,.14)=""
^DD(357.951,"GL",1,1,1)=""
^DD(357.951,"GL",2,1,2.01)=""
^DD(357.951,"GL",2,2,2.02)=""
^DD(357.951,"GL",2,3,2.03)=""
^DD(357.951,"GL",2,4,2.04)=""
^DD(357.951,"IX",.01)=""
^DD(357.951,"IX",.02)=""
^DD(357.951,"IX",.03)=""
^DD(357.951,"IX",.04)=""
^DD(357.951,"IX",.1)=""
^DD(357.951,"RQ",.02)=""
^DD(357.951,"RQ",.05)=""
^DD(357.951,"RQ",.06)=""
^DD(357.951,"RQ",.07)=""
^DD(357.9511,0)="PANDAS HEADERS SUB-FIELD^^2^2"
^DD(357.9511,0,"DIK")="IBDX95"
^DD(357.9511,0,"DT")="2950322"
^DD(357.9511,0,"IX","B",357.9511,.01)=""
^DD(357.9511,0,"NM","PANDAS HEADERS")=""
^DD(357.9511,0,"UP")="357.95"
^DD(357.9511,.01,0)="HEADERS^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(357.9511,.01,1,0)="^.1"
^DD(357.9511,.01,1,1,0)="357.9511^B"
^DD(357.9511,.01,1,1,1)="S ^IBD(357.95,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(357.9511,.01,1,1,2)="K ^IBD(357.95,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(357.9511,.01,3)="Answer must be 1-80 characters in length."
^DD(357.9511,.01,21,0)="^^1^1^2950803^"
^DD(357.9511,.01,21,1,0)="A header used by PANDAS for the form."
^DD(357.9511,.01,"DT")="2941019"
^DD(357.9511,2,0)="USE AS HEADER^S^Y:YES;N:NO;^0;2^Q"
^DD(357.9511,2,3)="Answer YES if you want this text to be used as a narrative category or grouper on the form."
^DD(357.9511,2,21,0)="^^2^2^2950803^"
^DD(357.9511,2,21,1,0)="YES means that the header should be used as a narrative category or grouper"
^DD(357.9511,2,21,2,0)="on the form."
^DD(357.9511,2,"DT")="2950322"
^DD(357.9511,"B","HEADERS",.01)=""
^DD(357.9511,"B","USE AS HEADER",2)=""
^DD(357.9511,"GL",0,1,.01)=""
^DD(357.9511,"GL",0,2,2)=""
^DD(357.9511,"IX",.01)=""
^DD(357.952,0)="HAND PRINT FIELDS SUB-FIELD^^.17^13"
^DD(357.952,0,"DIK")="IBDX95"
^DD(357.952,0,"DT")="2950724"
^DD(357.952,0,"IX","B",357.952,.01)=""
^DD(357.952,0,"NM","HAND PRINT FIELDS")=""
^DD(357.952,0,"UP")="357.95"
^DD(357.952,.01,0)="HAND PRINT ROW^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.952,.01,1,0)="^.1"
^DD(357.952,.01,1,1,0)="357.952^B"
^DD(357.952,.01,1,1,1)="S ^IBD(357.95,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(357.952,.01,1,1,2)="K ^IBD(357.95,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(357.952,.01,1,2,0)="357.95^AD^MUMPS"
^DD(357.952,.01,1,2,1)="S:$P($G(^IBD(357.95,DA(1),2,DA,0)),""^"",2)]"""" ^IBD(357.95,""AD"",DA(1),X,$P(^IBD(357.95,DA(1),2,DA,0),""^"",2),DA)=^IBD(357.95,DA(1),2,DA,0)"
^DD(357.952,.01,1,2,2)="K:$P($G(^IBD(357.95,DA(1),2,DA,0)),""^"",2)]"""" ^IBD(357.95,""AD"",DA(1),X,$P(^IBD(357.95,DA(1),2,DA,0),""^"",2),DA)"
^DD(357.952,.01,1,2,"%D",0)="^^1^1^2960402^^^^"
^DD(357.952,.01,1,2,"%D",1,0)="Indexes the hand print field by location. Set by the .01 and .02 fields."
^DD(357.952,.01,1,2,"DT")="2960402"
^DD(357.952,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(357.952,.01,21,0)="^^1^1^2950808^"
^DD(357.952,.01,21,1,0)="The row that the hand print area begins."
^DD(357.952,.01,"DT")="2960402"
^DD(357.952,.02,0)="HAND PRINT COLUMN^RNJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.952,.02,1,0)="^.1"
^DD(357.952,.02,1,1,0)="357.95^AD1^MUMPS"
^DD(357.952,.02,1,1,1)="S:X]"""" ^IBD(357.95,""AD"",DA(1),$P($G(^IBD(357.95,DA(1),2,DA,0)),""^""),X,DA)=^IBD(357.95,DA(1),2,DA,0)"
^DD(357.952,.02,1,1,2)="K:X]"""" ^IBD(357.95,""AD"",DA(1),$P($G(^IBD(357.95,DA(1),2,DA,0)),""^""),X,DA)"
^DD(357.952,.02,1,1,"%D",0)="^^1^1^2960402^^^^"
^DD(357.952,.02,1,1,"%D",1,0)="Indexes the hand print field by location. Set by the .01 and .02 fields."
^DD(357.952,.02,1,1,"DT")="2960402"
^DD(357.952,.02,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(357.952,.02,21,0)="^^1^1^2950808^"
^DD(357.952,.02,21,1,0)="The column that the hand print area begins at."
^DD(357.952,.02,"DT")="2960402"
^DD(357.952,.03,0)="WIDTH^RNJ3,0^^0;3^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.952,.03,3)="Type a Number between 1 and 200, 0 Decimal Digits"
^DD(357.952,.03,21,0)="^^2^2^2950808^"
^DD(357.952,.03,21,1,0)="The width of the hand print area in terms of the number of characters that"
^DD(357.952,.03,21,2,0)="can be printed."
^DD(357.952,.03,"DT")="2940725"
^DD(357.952,.04,0)="TYPE OF DATA^R*P357.6'^IBE(357.6,^0;4^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.952,.04,3)="What data will be printed in this field?"
^DD(357.952,.04,12)="Allows only available interfaces for input."
^DD(357.952,.04,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"""
^DD(357.952,.04,21,0)="^^1^1^2950808^"
^DD(357.952,.04,21,1,0)="Identifies the package interface used for input of this field."
^DD(357.952,.04,"DT")="2950912"
^DD(357.952,.05,0)="FIELD NAME^RF^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(357.952,.05,3)="Answer must be 3-30 characters in length."
^DD(357.952,.05,21,0)="^^1^1^2950808^"
^DD(357.952,.05,21,1,0)="The name of the hand print field."
^DD(357.952,.05,"DT")="2940823"
^DD(357.952,.06,0)="NUMBER OF LINES OF HAND PRINT^RNJ3,0^^0;6^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.952,.06,3)="How many lines of hand print?"
^DD(357.952,.06,21,0)="^^1^1^2950808^"
^DD(357.952,.06,21,1,0)="The number of lines of hand print allocated for the field."
^DD(357.952,.06,"DT")="2940816"
^DD(357.952,.08,0)="FIELD ID^RF^^0;8^K:$L(X)>10!($L(X)<2) X"
^DD(357.952,.08,3)="Answer must be 2-10 characters in length."
^DD(357.952,.08,21,0)="^^1^1^2950808^"
^DD(357.952,.08,21,1,0)="An unique identifier assigned to the field."
^DD(357.952,.08,"DT")="2940907"
^DD(357.952,.09,0)="DISPLAYED HEADER^F^^0;9^K:$L(X)>40!($L(X)<1) X"
^DD(357.952,.09,3)="Answer must be 1-40 characters in length."
^DD(357.952,.09,21,0)="^^1^1^2950808^"
^DD(357.952,.09,21,1,0)="The header, if any, associated with the field."
^DD(357.952,.09,"DT")="2941019"
^DD(357.952,.1,0)="DATA QUALIFIER^P357.98'^IBD(357.98,^0;10^Q"
^DD(357.952,.1,3)="What qualifier, if any, applies to this field?"
^DD(357.952,.1,21,0)="^^1^1^2950808^"
^DD(357.952,.1,21,1,0)="The data qualifier, if any, associated with the field."
^DD(357.952,.1,"DT")="2941019"
^DD(357.952,.12,0)="ITEM NUMBER^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.952,.12,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(357.952,.12,21,0)="^^2^2^2950808^"
^DD(357.952,.12,21,1,0)="If the hand print area is part of a list, the item number is the position"
^DD(357.952,.12,21,2,0)="on the list."
^DD(357.952,.12,"DT")="2950313"
^DD(357.952,.14,0)="PRINT TYPE^RS^0:NO, DO NOT PRINT;1:YES, NOT FOR ICR;2:YES, FOR ICR;^0;14^Q"
^DD(357.952,.14,3)="How should the field be printed?"
^DD(357.952,.14,21,0)="^^1^1^2950808^"
^DD(357.952,.14,21,1,0)="The print type defines the format for printing the hand print area."
^DD(357.952,.14,"DT")="2950428"
^DD(357.952,.15,0)="READ TYPE^RS^0:NO, DO NOT READ;1:YES, READ WITHOUT ICR;2:YES, READ WITH ICR;3:YES, ICR PRINT FORMAT, READ WITHOUT ICR;^0;15^Q"
^DD(357.952,.15,3)="How should the field be read by the scanning software?"
^DD(357.952,.15,21,0)="^^1^1^2950928^^"
^DD(357.952,.15,21,1,0)="This defines what type of recognition should be applied to the field."
^DD(357.952,.15,"DT")="2950503"
^DD(357.952,.17,0)="DATA ELEMENT^P359.1'^IBE(359.1,^0;17^Q"
^DD(357.952,.17,3)="What item of data goes in the field?"
^DD(357.952,.17,21,0)="^^1^1^2950808^"
^DD(357.952,.17,21,1,0)="This identifies the data type of the hand print field."
^DD(357.952,.17,"DT")="2950427"
^DD(357.952,"B","DATA ELEMENT",.17)=""
^DD(357.952,"B","DATA QUALIFIER",.1)=""
^DD(357.952,"B","DISPLAYED HEADER",.09)=""
^DD(357.952,"B","FIELD ID",.08)=""
^DD(357.952,"B","FIELD NAME",.05)=""
^DD(357.952,"B","HAND PRINT COLUMN",.02)=""
^DD(357.952,"B","HAND PRINT ROW",.01)=""
^DD(357.952,"B","ITEM NUMBER",.12)=""
^DD(357.952,"B","NUMBER OF LINES OF HAND PRINT",.06)=""
^DD(357.952,"B","PRINT TYPE",.14)=""
^DD(357.952,"B","READ TYPE",.15)=""
^DD(357.952,"B","TYPE OF DATA",.04)=""
^DD(357.952,"B","WIDTH",.03)=""
^DD(357.952,"GL",0,1,.01)=""
^DD(357.952,"GL",0,2,.02)=""
^DD(357.952,"GL",0,3,.03)=""
^DD(357.952,"GL",0,4,.04)=""
^DD(357.952,"GL",0,5,.05)=""
^DD(357.952,"GL",0,6,.06)=""
^DD(357.952,"GL",0,8,.08)=""
^DD(357.952,"GL",0,9,.09)=""
^DD(357.952,"GL",0,10,.1)=""
^DD(357.952,"GL",0,12,.12)=""
^DD(357.952,"GL",0,14,.14)=""
^DD(357.952,"GL",0,15,.15)=""
^DD(357.952,"GL",0,17,.17)=""
^DD(357.952,"IX",.01)=""
^DD(357.952,"IX",.02)=""
^DD(357.952,"RQ",.02)=""
^DD(357.952,"RQ",.03)=""
^DD(357.952,"RQ",.04)=""
^DD(357.952,"RQ",.05)=""
^DD(357.952,"RQ",.06)=""
^DD(357.952,"RQ",.08)=""
^DD(357.952,"RQ",.14)=""
^DD(357.952,"RQ",.15)=""
^DD(357.953,0)="PAGE INFORMATION SUB-FIELD^^.02^2"
^DD(357.953,0,"DIK")="IBDX95"
^DD(357.953,0,"DT")="2950306"
^DD(357.953,0,"IX","B",357.953,.01)=""
^DD(357.953,0,"NM","PAGE INFORMATION")=""
^DD(357.953,0,"UP")="357.95"
^DD(357.953,.01,0)="PAGE NUMBER^MNJ1,0^^0;1^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.953,.01,1,0)="^.1"
^DD(357.953,.01,1,1,0)="357.953^B"
^DD(357.953,.01,1,1,1)="S ^IBD(357.95,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(357.953,.01,1,1,2)="K ^IBD(357.95,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(357.953,.01,3)="Enter the pages that require documentation of specific features."
^DD(357.953,.01,21,0)="^^1^1^2950803^"
^DD(357.953,.01,21,1,0)="The page number of the page."
^DD(357.953,.01,"DT")="2950306"
^DD(357.953,.02,0)="SCANNABLE?^S^0:NO;1:YES;^0;2^Q"
^DD(357.953,.02,3)="Is this page meant to be scanned?"
^DD(357.953,.02,21,0)="^^1^1^2950808^^"
^DD(357.953,.02,21,1,0)="This documents whether or not a particular page needs to be scanned."
^DD(357.953,.02,"DT")="2950306"
^DD(357.953,"B","PAGE NUMBER",.01)=""
^DD(357.953,"B","SCANNABLE?",.02)=""
^DD(357.953,"GL",0,1,.01)=""
^DD(357.953,"GL",0,2,.02)=""
^DD(357.953,"IX",.01)=""
^DD(357.96,0)="FIELD^^10^21"
^DD(357.96,0,"DDA")="N"
^DD(357.96,0,"DT")="2970326"
^DD(357.96,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(357.96,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(357.96,0,"ID",.1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SC(+$P(^(0),U,10),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(44,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(357.96,0,"IX","A1",357.96,.04)=""
^DD(357.96,0,"IX","A2",357.96,.06)=""
^DD(357.96,0,"IX","AC",357.96,.04)=""
^DD(357.96,0,"IX","AD",357.963,.03)=""
^DD(357.96,0,"IX","ADATNA",357.96,.14)=""
^DD(357.96,0,"IX","ADATNA1",357.96,.03)=""
^DD(357.96,0,"IX","AEXT",357.96,.09)=""
^DD(357.96,0,"IX","AN",357.96,.14)=""
^DD(357.96,0,"IX","APTAP",357.96,.02)=""
^DD(357.96,0,"IX","APTAP1",357.96,.03)=""
^DD(357.96,0,"IX","B",357.96,.01)=""
^DD(357.96,0,"IX","C",357.96,.02)=""
^DD(357.96,0,"IX","D",357.96,.03)=""
^DD(357.96,0,"NM","ENCOUNTER FORM TRACKING")=""
^DD(357.96,0,"VR")="3.0"
^DD(357.96,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.96,.01,0)="PRINTED FORM ID^RNJ9,0X^^0;1^K X"
^DD(357.96,.01,1,0)="^.1^^-1"
^DD(357.96,.01,1,1,0)="357.96^B"
^DD(357.96,.01,1,1,1)="S ^IBD(357.96,""B"",$E(X,1,30),DA)="""""
^DD(357.96,.01,1,1,2)="K ^IBD(357.96,""B"",$E(X,1,30),DA)"
^DD(357.96,.01,3)="Can not be edited!"
^DD(357.96,.01,21,0)="^^2^2^2941014^"
^DD(357.96,.01,21,1,0)="Uniquely identifies an instance of a printed encounter form. This is the"
^DD(357.96,.01,21,2,0)="same as the ien."
^DD(357.96,.01,"DT")="2940718"
^DD(357.96,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(357.96,.02,1,0)="^.1"
^DD(357.96,.02,1,1,0)="357.96^C"
^DD(357.96,.02,1,1,1)="S ^IBD(357.96,""C"",$E(X,1,30),DA)="""""
^DD(357.96,.02,1,1,2)="K ^IBD(357.96,""C"",$E(X,1,30),DA)"
^DD(357.96,.02,1,1,"DT")="2941004"
^DD(357.96,.02,1,2,0)="357.96^APTAP^MUMPS"
^DD(357.96,.02,1,2,1)="S:$P($G(^IBD(357.96,DA,0)),""^"",3) ^IBD(357.96,""APTAP"",X,+$P(^IBD(357.96,DA,0),""^"",3),DA)="""""
^DD(357.96,.02,1,2,2)="K ^IBD(357.96,""APTAP"",X,+$P($G(^IBD(357.96,DA,0)),""^"",3),DA)"
^DD(357.96,.02,1,2,"%D",0)="^^2^2^2960403^^^^"
^DD(357.96,.02,1,2,"%D",1,0)="Cross-reference of all form ids by patient and appointment date/time."
^DD(357.96,.02,1,2,"%D",2,0)="Set by both the .02 and .03 fields."
^DD(357.96,.02,1,2,"DT")="2960402"
^DD(357.96,.02,3)="What patient was the form printed for?"
^DD(357.96,.02,21,0)="^^1^1^2950803^^"
^DD(357.96,.02,21,1,0)="The patient that had the appointment."
^DD(357.96,.02,"DT")="2960402"
^DD(357.96,.03,0)="APPOINTMENT^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(357.96,.03,1,0)="^.1"
^DD(357.96,.03,1,1,0)="357.96^APTAP1^MUMPS"
^DD(357.96,.03,1,1,1)="S:$P($G(^IBD(357.96,DA,0)),""^"",2) ^IBD(357.96,""APTAP"",+$P(^IBD(357.96,DA,0),""^"",2),X,DA)="""""
^DD(357.96,.03,1,1,2)="K ^IBD(357.96,""APTAP"",+$P($G(^IBD(357.96,DA,0)),""^"",2),DA)"
^DD(357.96,.03,1,1,"%D",0)="^^2^2^2960403^^^^"
^DD(357.96,.03,1,1,"%D",1,0)="Cross-reference of all form ids by patient and appointment date/time.  Set by"
^DD(357.96,.03,1,1,"%D",2,0)="both the .02 and .03 fields."
^DD(357.96,.03,1,1,"DT")="2960402"
^DD(357.96,.03,1,2,0)="357.96^D"
^DD(357.96,.03,1,2,1)="S ^IBD(357.96,""D"",$E(X,1,30),DA)="""""
^DD(357.96,.03,1,2,2)="K ^IBD(357.96,""D"",$E(X,1,30),DA)"
^DD(357.96,.03,1,2,"%D",0)="^^2^2^2950817^"
^DD(357.96,.03,1,2,"%D",1,0)="Regular cross-reference for use in looking up an encounter form tracking "
^DD(357.96,.03,1,2,"%D",2,0)="entry by date."
^DD(357.96,.03,1,2,"DT")="2950817"
^DD(357.96,.03,1,3,0)="357.96^ADATNA1^MUMPS"
^DD(357.96,.03,1,3,1)="S:$P(^IBD(357.96,DA,0),""^"",14)'="""" ^IBD(357.96,""ADATNA"",X,$P(^(0),""^"",14),DA)="""""
^DD(357.96,.03,1,3,2)="K ^IBD(357.96,""ADATNA"",X,+$P(^IBD(357.96,DA,0),""^"",14),DA)"
^DD(357.96,.03,1,3,"%D",0)="^^2^2^2960627^"
^DD(357.96,.03,1,3,"%D",1,0)="This mumps cross reference is used to find forms tracking entries not "
^DD(357.96,.03,1,3,"%D",2,0)="associated with a schedule appointment by date/time."
^DD(357.96,.03,1,3,"DT")="2960627"
^DD(357.96,.03,3)="What was the date/time of the appointment for which the form was printed?"
^DD(357.96,.03,21,0)="^^1^1^2960814^^^"
^DD(357.96,.03,21,1,0)="The date/time of the appointment for which the encounter form was printed."
^DD(357.96,.03,"DT")="2960627"
^DD(357.96,.04,0)="FORM TYPE^P357.95'^IBD(357.95,^0;4^Q"
^DD(357.96,.04,1,0)="^.1"
^DD(357.96,.04,1,1,0)="357.96^A1^MUMPS"
^DD(357.96,.04,1,1,1)="S:'(+$P($G(^IBD(357.96,DA,0)),""^"",6)) ^IBD(357.96,""A"",+X,DA)="""""
^DD(357.96,.04,1,1,2)="K ^IBD(357.96,""A"",+X,DA)"
^DD(357.96,.04,1,1,"%D",0)="^^1^1^2940714^^^^"
^DD(357.96,.04,1,1,"%D",1,0)="Used to determine if the encounter form has been accounted for."
^DD(357.96,.04,1,1,"DT")="2940712"
^DD(357.96,.04,1,2,0)="357.96^AC"
^DD(357.96,.04,1,2,1)="S ^IBD(357.96,""AC"",$E(X,1,30),DA)="""""
^DD(357.96,.04,1,2,2)="K ^IBD(357.96,""AC"",$E(X,1,30),DA)"
^DD(357.96,.04,1,2,"%D",0)="^^1^1^2951004^"
^DD(357.96,.04,1,2,"%D",1,0)="A regular cross-reference of all entries by form design number."
^DD(357.96,.04,1,2,"DT")="2951004"
^DD(357.96,.04,3)="What FORM DEFINITION TABLE is associated with the printed encounter form?"
^DD(357.96,.04,21,0)="^^3^3^2951218^^^^"
^DD(357.96,.04,21,1,0)="If the encounter form has a FORM DEFINITION TABLE, this field points to it."
^DD(357.96,.04,21,2,0)="The pointer equals the .01 field of the FORM DEFINITION TABLE entry and is"
^DD(357.96,.04,21,3,0)="used as the form type id.                                         "
^DD(357.96,.04,"DT")="2951004"
^DD(357.96,.05,0)="DATE/TIME PRINTED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(357.96,.05,1,0)="^.1^^0"
^DD(357.96,.05,3)="When was the form printed?"
^DD(357.96,.05,21,0)="^^1^1^2950721^"
^DD(357.96,.05,21,1,0)="When the form was printed."
^DD(357.96,.05,"DT")="2940718"
^DD(357.96,.06,0)="DATE/TIME RECEIVED IN DHCP^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(357.96,.06,1,0)="^.1^^-1"
^DD(357.96,.06,1,1,0)="357.96^A2^MUMPS"
^DD(357.96,.06,1,1,1)="K:X ^IBD(357.96,""A"",+$P($G(^IBD(357.96,DA,0)),""^"",4),DA) S:('X)&$P($G(^IBD(357.96,DA,0)),""^"",4) ^IBD(357.96,""A"",$P($G(^IBD(357.96,DA,0)),""^"",4),DA)="""""
^DD(357.96,.06,1,1,2)="K:X ^IBD(357.96,""A"",+$P($G(^IBD(357.96,DA,0)),""^"",4),DA) S:('X)&$P($G(^IBD(357.96,DA,0)),""^"",4) ^IBD(357.96,""A"",$P($G(^IBD(357.96,DA,0)),""^"",4),DA)="""""
^DD(357.96,.06,1,1,"%D",0)="^^1^1^2940718^^^^"
^DD(357.96,.06,1,1,"%D",1,0)="Used to determine if the encounter form has been accounted for."
^DD(357.96,.06,1,1,"DT")="2940718"
^DD(357.96,.06,3)="When was the form received?"
^DD(357.96,.06,21,0)="^^1^1^2950803^^"
^DD(357.96,.06,21,1,0)="The date and time that the form is received in DHCP."
^DD(357.96,.06,23,0)="^^1^1^2950928^"
^DD(357.96,.06,23,1,0)="Don't mark a form as received until all of its pages are received."
^DD(357.96,.06,"DT")="2940718"
^DD(357.96,.07,0)="SOURCE OF FORM ID^RS^1:IB;2:PANDAS;3:TELEFORM;4:PEN;5:WORKSTATION;99:OTHER;^0;7^Q"
^DD(357.96,.07,21,0)="^^1^1^2950721^"
^DD(357.96,.07,21,1,0)="This field documents which means of data capture is being used."
^DD(357.96,.07,"DT")="2941004"
^DD(357.96,.08,0)="FORM TYPE ID (EXTERNAL SOURCE)^F^^0;8^K:$L(X)>30!($L(X)<2) X"
^DD(357.96,.08,3)="Answer must be 2-30 characters in length."
^DD(357.96,.08,21,0)="^^2^2^2950721^^"
^DD(357.96,.08,21,1,0)="If the form was created externally to DHCP and was assigned"
^DD(357.96,.08,21,2,0)="an id externally, then this field can be used to document that."
^DD(357.96,.08,"DT")="2941017"
^DD(357.96,.09,0)="EXTERNAL PRINTED FORM ID^F^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<4) X"
^DD(357.96,.09,1,0)="^.1"
^DD(357.96,.09,1,1,0)="357.96^AEXT"
^DD(357.96,.09,1,1,1)="S ^IBD(357.96,""AEXT"",$E(X,1,30),DA)="""""
^DD(357.96,.09,1,1,2)="K ^IBD(357.96,""AEXT"",$E(X,1,30),DA)"
^DD(357.96,.09,1,1,"%D",0)="^^1^1^2941004^"
^DD(357.96,.09,1,1,"%D",1,0)="This is a regular cross reference on the external format of the form id"
^DD(357.96,.09,1,1,"DT")="2941004"
^DD(357.96,.09,3)="Answer must be 4-10 characters in length."
^DD(357.96,.09,21,0)="^^2^2^2950721^^^"
^DD(357.96,.09,21,1,0)="This is the external format of the form id (internal entry number)"
^DD(357.96,.09,21,2,0)="that can be printed on forms and used for look-up.  "
^DD(357.96,.09,"DT")="2941017"
^DD(357.96,.1,0)="CLINIC^P44'^SC(^0;10^Q"
^DD(357.96,.1,21,0)="^^1^1^2950721^"
^DD(357.96,.1,21,1,0)="This is the clinic of the appointment."
^DD(357.96,.1,"DT")="2941011"
^DD(357.96,.11,0)="PROCESSING STATUS^S^1:PRINTED;2:SCANNED;3:SCANNED TO PCE;4:SCANNED W/PCE ERROR;5:DATA ENTRY;6:DATA ENTRY TO PCE;7:DATA ENTRY W/PCE ERROR;11:PENDING PAGES;12:ERROR DETECTED,NOT TRANSMITTED;20:AVAILABLE FOR DATA ENTRY;^0;11^Q"
^DD(357.96,.11,21,0)="15^^15^15^2960516^^"
^DD(357.96,.11,21,1,0)="This is the processing status of the form.  This field is automatically"
^DD(357.96,.11,21,2,0)="updated by the system.  When a form is printed for a patient an entry"
^DD(357.96,.11,21,3,0)="is created in this file and the processing status is set to printed."
^DD(357.96,.11,21,4,0)="When data is received by DHCP from the scanner the status is updated"
^DD(357.96,.11,21,5,0)="to Scanned.  After the data is processed by PCE the status is updated"
^DD(357.96,.11,21,6,0)="to show the correct status. "
^DD(357.96,.11,21,7,0)=" "
^DD(357.96,.11,21,8,0)="For multi-page forms, when not all pages have been scanned, the status"
^DD(357.96,.11,21,9,0)="is set to Pending Pages.  The data is stored in this file from the "
^DD(357.96,.11,21,10,0)="scanned pages and merged with the rest of the data when all pages have"
^DD(357.96,.11,21,11,0)="been scanned.  Then the complete data is sent to PCE."
^DD(357.96,.11,21,12,0)=" "
^DD(357.96,.11,21,13,0)="This is used to prevent sending data from a form to PCE more that once."
^DD(357.96,.11,21,14,0)="The only exception is that if PCE returns an error, PCE did not store "
^DD(357.96,.11,21,15,0)="any data and the form may be re-scanned."
^DD(357.96,.11,23,0)="^^1^1^2960516^^"
^DD(357.96,.11,23,1,0)=" "
^DD(357.96,.11,"DT")="2960516"
^DD(357.96,.12,0)="ERROR^F^^0;12^K:$L(X)>30!($L(X)<3) X"
^DD(357.96,.12,3)="Answer must be 3-30 characters in length."
^DD(357.96,.12,21,0)="^^1^1^2950721^"
^DD(357.96,.12,21,1,0)="This can be used to document any error that occurred."
^DD(357.96,.12,"DT")="2941012"
^DD(357.96,.13,0)="EDITING DETECTED^S^0:NO;1:YES;^0;13^Q"
^DD(357.96,.13,1,0)="^.1^^0"
^DD(357.96,.13,3)="Enter 'Yes' if manual data entry for this form has been done."
^DD(357.96,.13,21,0)="^^5^5^2960411^^^^"
^DD(357.96,.13,21,1,0)="This field is automatically set if data entry on a form has been"
^DD(357.96,.13,21,2,0)="detected by PCE or Scheduling options.  Data entry by AICS options"
^DD(357.96,.13,21,3,0)="will be indicated in the Processing Status field.  If the processing"
^DD(357.96,.13,21,4,0)="status field contains data and this field contains data then the visit"
^DD(357.96,.13,21,5,0)="was entered and then edited."
^DD(357.96,.13,"DT")="2960411"
^DD(357.96,.14,0)="NO APPOINTMENT ENTRY^S^0:APPOINTMENT EXISTS;1:NO APPOINTMENT ENTRY;^0;14^Q"
^DD(357.96,.14,1,0)="^.1"
^DD(357.96,.14,1,1,0)="357.96^AN"
^DD(357.96,.14,1,1,1)="S ^IBD(357.96,""AN"",$E(X,1,30),DA)="""""
^DD(357.96,.14,1,1,2)="K ^IBD(357.96,""AN"",$E(X,1,30),DA)"
^DD(357.96,.14,1,1,"%D",0)="^^1^1^2960618^"
^DD(357.96,.14,1,1,"%D",1,0)="regular cross reference of visits with no appointments"
^DD(357.96,.14,1,1,"DT")="2960618"
^DD(357.96,.14,1,2,0)="357.96^ADATNA^MUMPS"
^DD(357.96,.14,1,2,1)="S:+$P(^IBD(357.96,DA,0),""^"",3)'="""" ^IBD(357.96,""ADATNA"",$P(^IBD(357.96,DA,0),""^"",3),X,DA)="""""
^DD(357.96,.14,1,2,2)="K ^IBD(357.96,""ADATNA"",+$P(^IBD(357.96,DA,0),""^"",3),X,DA)"
^DD(357.96,.14,1,2,"%D",0)="^^4^4^2960627^^^^"
^DD(357.96,.14,1,2,"%D",1,0)="This mumps cross reference is created to easily retrieve data by date"
^DD(357.96,.14,1,2,"%D",2,0)="range for those encounter forms printed with no scheduled appointment."
^DD(357.96,.14,1,2,"%D",3,0)="The cross reference is set up in "
^DD(357.96,.14,1,2,"%D",4,0)="^IBD(357.96,""ADATNA"",$P(^IBD(357.96,DA,0),""^"",3),X,DA)."
^DD(357.96,.14,1,2,"DT")="2960627"
^DD(357.96,.14,21,0)="^^7^7^2960618^"
^DD(357.96,.14,21,1,0)="This field gets set to 1, ""No Appointment Entry"" automatically when"
^DD(357.96,.14,21,2,0)="a forms tracking entry is created by routine IBDF18C if there is no"
^DD(357.96,.14,21,3,0)="corresponding appointment entry detected in ^DPT(dfn,""s"",appt/datetime"
^DD(357.96,.14,21,4,0)="for the patient."
^DD(357.96,.14,21,5,0)=" "
^DD(357.96,.14,21,6,0)="Forms tracking uses this Cross-reference to find forms not associated"
^DD(357.96,.14,21,7,0)="with appointments."
^DD(357.96,.14,"DT")="2960627"
^DD(357.96,.15,0)="TOTAL SECONDS TO INPUT^NJ6,0^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.96,.15,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(357.96,.15,21,0)="^^7^7^2960906^^^"
^DD(357.96,.15,21,1,0)="Enter the total elapsed time in seconds that it took to process this "
^DD(357.96,.15,21,2,0)="form, including the processing time in PCE if data was sent to PCE in"
^DD(357.96,.15,21,3,0)="the foreground."
^DD(357.96,.15,21,4,0)=""
^DD(357.96,.15,21,5,0)="This field is automatically updated by the AICS Data Entry option and"
^DD(357.96,.15,21,6,0)="by the AICS Workstation software.  See the processing status to determine"
^DD(357.96,.15,21,7,0)="which method of input was used."
^DD(357.96,.15,"DT")="2960906"
^DD(357.96,.16,0)="USER INPUTTING DATA^P200'^VA(200,^0;16^Q"
^DD(357.96,.16,21,0)="^^6^6^2960906^"
^DD(357.96,.16,21,1,0)="Enter the user that processed the data on the form, either through the AICS"
^DD(357.96,.16,21,2,0)="Data Entry options or through Scanning."
^DD(357.96,.16,21,3,0)=""
^DD(357.96,.16,21,4,0)="This field is automatically updated by the AICS Data Entry option and"
^DD(357.96,.16,21,5,0)="by the AICS Workstation software.  See the processing status to determine"
^DD(357.96,.16,21,6,0)="which method of input was used."
^DD(357.96,.16,"DT")="2960906"
^DD(357.96,1,0)="DYNAMIC LIST ITEMS^357.961I^^1;0"
^DD(357.96,1,21,0)="^^2^2^2950721^"
^DD(357.96,1,21,1,0)="This is used to store a lookup table for lists printed on forms"
^DD(357.96,1,21,2,0)="where the list was created at print time rather than design time."
^DD(357.96,1,"DT")="2950721"
^DD(357.96,2,0)="OVERFLOW DATA^357.962^^2;0"
^DD(357.96,2,21,0)="^^2^2^2970226^^"
^DD(357.96,2,21,1,0)="This multiple is used to store the overflow data on forms whereby the list"
^DD(357.96,2,21,2,0)="was created at print time rather than design time."
^DD(357.96,3,0)="STORED IMAGES^357.963A^^3;0"
^DD(357.96,3,21,0)="^^2^2^2970326^^"
^DD(357.96,3,21,1,0)="This subfile will contain the image name, paths, workstation ID, and users"
^DD(357.96,3,21,2,0)="for all pages of the form tracking entry that was saved as an image."
^DD(357.96,9,0)="SCANNED PAGES^357.969^^9;0"
^DD(357.96,9,21,0)="^^1^1^2950721^"
^DD(357.96,9,21,1,0)="A list of pages that should be scanned."
^DD(357.96,10,0)="RAW SCANNED DATA^357.9601A^^10;0"
^DD(357.96,10,21,0)="^^3^3^2950721^"
^DD(357.96,10,21,1,0)="This mulitiple holds the raw data from pages that have been scanned,"
^DD(357.96,10,21,2,0)="pending the receipt of more pages. The data will not be processed"
^DD(357.96,10,21,3,0)="until all pages that should be scanned are received."
^DD(357.96,"B","APPOINTMENT",.03)=""
^DD(357.96,"B","CLINIC",.1)=""
^DD(357.96,"B","DATE/TIME PRINTED",.05)=""
^DD(357.96,"B","DATE/TIME RECEIVED IN DHCP",.06)=""
^DD(357.96,"B","DYNAMIC LIST ITEMS",1)=""
^DD(357.96,"B","EDITING DETECTED",.13)=""
^DD(357.96,"B","ERROR",.12)=""
^DD(357.96,"B","EXTERNAL PRINTED FORM ID",.09)=""
^DD(357.96,"B","FORM TYPE",.04)=""
^DD(357.96,"B","FORM TYPE ID (EXTERNAL SOURCE)",.08)=""
^DD(357.96,"B","NO APPOINTMENT ENTRY",.14)=""
^DD(357.96,"B","OVERFLOW DATA",2)=""
^DD(357.96,"B","PATIENT",.02)=""
^DD(357.96,"B","PRINTED FORM ID",.01)=""
^DD(357.96,"B","PROCESSING STATUS",.11)=""
^DD(357.96,"B","RAW SCANNED DATA",10)=""
^DD(357.96,"B","SCANNED PAGES",9)=""
^DD(357.96,"B","SOURCE OF FORM ID",.07)=""
^DD(357.96,"B","STORED IMAGES",3)=""
^DD(357.96,"B","TOTAL SECONDS TO INPUT",.15)=""
^DD(357.96,"B","USER INPUTTING DATA",.16)=""
^DD(357.96,"GL",0,1,.01)=""
^DD(357.96,"GL",0,2,.02)=""
^DD(357.96,"GL",0,3,.03)=""
^DD(357.96,"GL",0,4,.04)=""
^DD(357.96,"GL",0,5,.05)=""
^DD(357.96,"GL",0,6,.06)=""
^DD(357.96,"GL",0,7,.07)=""
^DD(357.96,"GL",0,8,.08)=""
^DD(357.96,"GL",0,9,.09)=""
^DD(357.96,"GL",0,10,.1)=""
^DD(357.96,"GL",0,11,.11)=""
^DD(357.96,"GL",0,12,.12)=""
^DD(357.96,"GL",0,13,.13)=""
^DD(357.96,"GL",0,14,.14)=""
^DD(357.96,"GL",0,15,.15)=""
^DD(357.96,"GL",0,16,.16)=""
^DD(357.96,"GL",1,0,1)=""
^DD(357.96,"GL",2,0,2)=""
^DD(357.96,"GL",3,0,3)=""
^DD(357.96,"GL",9,0,9)=""
^DD(357.96,"GL",10,0,10)=""
^DD(357.96,"IX",.01)=""
^DD(357.96,"IX",.02)=""
^DD(357.96,"IX",.03)=""
^DD(357.96,"IX",.04)=""
^DD(357.96,"IX",.06)=""
^DD(357.96,"IX",.09)=""
^DD(357.96,"IX",.14)=""
^DD(357.96,"RQ",.01)=""
^DD(357.96,"RQ",.02)=""
^DD(357.96,"RQ",.07)=""
^DD(357.96,"SB",357.9601,10)=""
^DD(357.96,"SB",357.961,1)=""
^DD(357.96,"SB",357.962,2)=""
^DD(357.96,"SB",357.963,3)=""
^DD(357.96,"SB",357.969,9)=""
^DD(357.9601,0)="RAW SCANNED DATA SUB-FIELD^^.01^1"
^DD(357.9601,0,"DT")="2950223"
^DD(357.9601,0,"IX","B",357.9601,.01)=""
^DD(357.9601,0,"NM","RAW SCANNED DATA")=""
^DD(357.9601,0,"UP")="357.96"
^DD(357.9601,.01,0)="RAW SCANNED DATA^MF^^0;1^K:$L(X)>180!($L(X)<1) X"
^DD(357.9601,.01,1,0)="^.1"
^DD(357.9601,.01,1,1,0)="357.9601^B"
^DD(357.9601,.01,1,1,1)="S ^IBD(357.96,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(357.9601,.01,1,1,2)="K ^IBD(357.96,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(357.9601,.01,3)="Answer must be 1-180 characters in length."
^DD(357.9601,.01,21,0)="^^1^1^2950721^"
^DD(357.9601,.01,21,1,0)="One line of the raw data."
^DD(357.9601,.01,"DT")="2950223"
^DD(357.9601,"B","RAW SCANNED DATA",.01)=""
^DD(357.9601,"GL",0,1,.01)=""
^DD(357.9601,"IX",.01)=""
^DD(357.961,0)="DYNAMIC LIST ITEMS SUB-FIELD^^.1^6"
^DD(357.961,0,"DT")="2970123"
^DD(357.961,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(357.6,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(357.6,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(357.961,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(357.961,0,"ID",.06)="W ""   "",$P(^(0),U,6)"
^DD(357.961,0,"IX","AC",357.961,.06)=""
^DD(357.961,0,"IX","B",357.961,.01)=""
^DD(357.961,0,"NM","DYNAMIC LIST ITEMS")=""
^DD(357.961,0,"UP")="357.96"
^DD(357.961,.01,0)="ITEM NUMBER^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.961,.01,1,0)="^.1"
^DD(357.961,.01,1,1,0)="357.961^B"
^DD(357.961,.01,1,1,1)="S ^IBD(357.96,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(357.961,.01,1,1,2)="K ^IBD(357.96,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(357.961,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(357.961,.01,21,0)="^^1^1^2970226^^"
^DD(357.961,.01,21,1,0)="The  number of the item on the particular list where it appears."
^DD(357.961,.01,"DT")="2950721"
^DD(357.961,.03,0)="DATA TYPE^R*P357.6'^IBE(357.6,^0;3^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.961,.03,1,0)="^.1^^0"
^DD(357.961,.03,3)="What type of data does the bubble relate to?"
^DD(357.961,.03,12)="Must be an available interface for accepting input."
^DD(357.961,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"""
^DD(357.961,.03,21,0)="^^1^1^2950721^"
^DD(357.961,.03,21,1,0)="The Package Interface that describes the data."
^DD(357.961,.03,"DT")="2970205"
^DD(357.961,.04,0)="VALUE TO PASS^FXO^^0;4^X:$P($G(^IBD(357.96,D0,1,D1,0)),U,3) $G(^IBE(357.6,$P($G(^(0)),U,3),9))"
^DD(357.961,.04,2)="S Y(0)=Y X:$P($G(^IBD(357.96,D0,1,D1,0)),U,3) $G(^IBE(357.6,$P($G(^(0)),U,3),14))"
^DD(357.961,.04,2.1)="X:$P($G(^IBD(357.96,D0,1,D1,0)),U,3) $G(^IBE(357.6,$P($G(^(0)),U,3),14))"
^DD(357.961,.04,3)="What value should be entered into the database?"
^DD(357.961,.04,21,0)="^^2^2^2970226^^^^"
^DD(357.961,.04,21,1,0)="The value associated with the item on the list. It will usually"
^DD(357.961,.04,21,2,0)="be a code or pointer."
^DD(357.961,.04,"DT")="2941216"
^DD(357.961,.06,0)="FIELD ID^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(357.961,.06,1,0)="^.1"
^DD(357.961,.06,1,1,0)="357.961^AC^MUMPS"
^DD(357.961,.06,1,1,1)="S ^IBD(357.96,DA(1),""AC"",X,$P(^IBD(357.96,DA(1),1,DA,0),""^""),DA)="""""
^DD(357.961,.06,1,1,2)="K ^IBD(357.96,DA(1),""AC"",X,$P(^IBD(357.96,DA(1),1,DA,0),""^""),DA)"
^DD(357.961,.06,1,1,"DT")="2950124"
^DD(357.961,.06,3)="Answer must be 1-10 characters in length."
^DD(357.961,.06,21,0)="^^2^2^2950721^"
^DD(357.961,.06,21,1,0)="This field is used to document the form object the list item"
^DD(357.961,.06,21,2,0)="belongs to."
^DD(357.961,.06,"DT")="2950124"
^DD(357.961,.08,0)="DISPLAYED TEXT^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(357.961,.08,3)="Answer must be 1-80 characters in length."
^DD(357.961,.08,21,0)="^^2^2^2950721^"
^DD(357.961,.08,21,1,0)="The text that the provider sees appearing on the form that is "
^DD(357.961,.08,21,2,0)="associated witht he item."
^DD(357.961,.08,"DT")="2970123"
^DD(357.961,.1,0)="DATA QUALIFIER^P357.98'^IBD(357.98,^0;10^Q"
^DD(357.961,.1,21,0)="^^2^2^2950721^"
^DD(357.961,.1,21,1,0)="This is the data qualifier that may be optionally associated"
^DD(357.961,.1,21,2,0)="with the item."
^DD(357.961,.1,"DT")="2950124"
^DD(357.961,"B","DATA QUALIFIER",.1)=""
^DD(357.961,"B","DATA TYPE",.03)=""
^DD(357.961,"B","DISPLAYED TEXT",.08)=""
^DD(357.961,"B","FIELD ID",.06)=""
^DD(357.961,"B","ITEM NUMBER",.01)=""
^DD(357.961,"B","VALUE TO PASS",.04)=""
^DD(357.961,"GL",0,1,.01)=""
^DD(357.961,"GL",0,3,.03)=""
^DD(357.961,"GL",0,4,.04)=""
^DD(357.961,"GL",0,6,.06)=""
^DD(357.961,"GL",0,8,.08)=""
^DD(357.961,"GL",0,10,.1)=""
^DD(357.961,"IX",.01)=""
^DD(357.961,"IX",.06)=""
^DD(357.961,"RQ",.03)=""
^DD(357.962,0)="OVERFLOW DATA SUB-FIELD^^.08^5"
^DD(357.962,0,"DT")="2970226"
^DD(357.962,0,"IX","AD",357.962,.06)=""
^DD(357.962,0,"IX","B",357.962,.01)=""
^DD(357.962,0,"NM","OVERFLOW DATA")=""
^DD(357.962,0,"UP")="357.96"
^DD(357.962,.01,0)="ITEM NUMBER^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.962,.01,1,0)="^.1"
^DD(357.962,.01,1,1,0)="357.962^B"
^DD(357.962,.01,1,1,1)="S ^IBD(357.96,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(357.962,.01,1,1,2)="K ^IBD(357.96,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(357.962,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(357.962,.01,21,0)="^^1^1^2970226^^"
^DD(357.962,.01,21,1,0)="The  number of the item on the particular list where it appears."
^DD(357.962,.01,"DT")="2970226"
^DD(357.962,.03,0)="DATA TYPE^*P357.6'^IBE(357.6,^0;3^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.962,.03,3)="What type of data does the bubble relate to?"
^DD(357.962,.03,12)="Must be an available interface for accepting input."
^DD(357.962,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"""
^DD(357.962,.03,21,0)="^^1^1^2970226^"
^DD(357.962,.03,21,1,0)="The Package Interface that describes the data."
^DD(357.962,.03,"DT")="2970226"
^DD(357.962,.04,0)="VALUE TO PASS^FXO^^0;4^X:$P($G(^IBD(357.96,D0,2,D1,0)),U,3) $G(^IBE(357.6,$P($G(^(0)),U,3),9))"
^DD(357.962,.04,2)="S Y(0)=Y X:$P($G(^IBD(357.96,D0,2,D1,0)),U,3) $G(^IBE(357.6,$P($G(^(0)),U,3),14))"
^DD(357.962,.04,2.1)="X:$P($G(^IBD(357.96,D0,2,D1,0)),U,3) $G(^IBE(357.6,$P($G(^(0)),U,3),14))"
^DD(357.962,.04,3)="What value should be entered into the database?"
^DD(357.962,.04,21,0)="^^2^2^2970226^^"
^DD(357.962,.04,21,1,0)="The value associated with the item on the list.  It will usually be"
^DD(357.962,.04,21,2,0)="a code or pointer."
^DD(357.962,.04,"DT")="2970226"
^DD(357.962,.06,0)="FIELD ID^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(357.962,.06,1,0)="^.1"
^DD(357.962,.06,1,1,0)="357.962^AD^MUMPS"
^DD(357.962,.06,1,1,1)="S ^IBD(357.96,DA(1),""AD"",X,$P(^IBD(357.96,DA(1),2,DA,0),""^""),DA)="""""
^DD(357.962,.06,1,1,2)="K ^IBD(357.96,DA(1),""AD"",X,$P(^IBD(357.96,DA(1),2,DA,0),""^""),DA)"
^DD(357.962,.06,1,1,"%D",0)="^^1^1^2970226^^"
^DD(357.962,.06,1,1,"%D",1,0)="Used for look-up on overflow data by field id."
^DD(357.962,.06,1,1,"DT")="2970226"
^DD(357.962,.06,3)="Answer must be 1-10 characters in length."
^DD(357.962,.06,21,0)="^^1^1^2970226^"
^DD(357.962,.06,21,1,0)="This field is used to document the form object the list item belongs to."
^DD(357.962,.06,"DT")="2970226"
^DD(357.962,.08,0)="DISPLAYED TEXT^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(357.962,.08,3)="Answer must be 1-80 characters in length."
^DD(357.962,.08,21,0)="^^2^2^2970226^"
^DD(357.962,.08,21,1,0)="The text that the provider sees appearing on the form that is associated"
^DD(357.962,.08,21,2,0)="with the item."
^DD(357.962,.08,"DT")="2970226"
^DD(357.962,"B","DATA TYPE",.03)=""
^DD(357.962,"B","DISPLAYED TEXT",.08)=""
^DD(357.962,"B","FIELD ID",.06)=""
^DD(357.962,"B","ITEM NUMBER",.01)=""
^DD(357.962,"B","VALUE TO PASS",.04)=""
^DD(357.962,"GL",0,1,.01)=""
^DD(357.962,"GL",0,3,.03)=""
^DD(357.962,"GL",0,4,.04)=""
^DD(357.962,"GL",0,6,.06)=""
^DD(357.962,"GL",0,8,.08)=""
^DD(357.962,"IX",.01)=""
^DD(357.962,"IX",.06)=""
^DD(357.963,0)="STORED IMAGES SUB-FIELD^^.07^7"
^DD(357.963,0,"DT")="2970326"
^DD(357.963,0,"IX","B",357.963,.01)=""
^DD(357.963,0,"NM","STORED IMAGES")=""
^DD(357.963,0,"UP")="357.96"
^DD(357.963,.01,0)="IMAGE^F^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(357.963,.01,1,0)="^.1"
^DD(357.963,.01,1,1,0)="357.963^B"
^DD(357.963,.01,1,1,1)="S ^IBD(357.96,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(357.963,.01,1,1,2)="K ^IBD(357.96,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(357.963,.01,3)="Answer must be 3-30 characters in length."
^DD(357.963,.01,21,0)="^^2^2^2970326^^"
^DD(357.963,.01,21,1,0)="When the AICS Workstation Software stores an image on the the workstation,"
^DD(357.963,.01,21,2,0)="data about the image is also stored in DHCP."
^DD(357.963,.01,"DT")="2970326"
^DD(357.963,.02,0)="IMAGE PATH^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(357.963,.02,3)="Answer must be 3-80 characters in length."
^DD(357.963,.02,21,0)="^^1^1^2970326^"
^DD(357.963,.02,21,1,0)="This is the path on the workstation where the image was stored."
^DD(357.963,.02,"DT")="2970326"
^DD(357.963,.03,0)="PAGE STORED^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.963,.03,1,0)="^.1"
^DD(357.963,.03,1,1,0)="357.96^AD"
^DD(357.963,.03,1,1,1)="S ^IBD(357.96,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(357.963,.03,1,1,2)="K ^IBD(357.96,""AD"",$E(X,1,30),DA(1),DA)"
^DD(357.963,.03,1,1,"%D",0)="^^3^3^2970326^"
^DD(357.963,.03,1,1,"%D",1,0)="This is a regular cross reference on the whole file of pages saved as images."
^DD(357.963,.03,1,1,"%D",2,0)="This is used by the trigger on the scanned pages date/time field to find the"
^DD(357.963,.03,1,1,"%D",3,0)="entry to update that the image data was successfully received."
^DD(357.963,.03,1,1,"DT")="2970326"
^DD(357.963,.03,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(357.963,.03,21,0)="^^1^1^2970326^^"
^DD(357.963,.03,21,1,0)="This is the page number of the form that was stored as an image."
^DD(357.963,.03,"DT")="2970326"
^DD(357.963,.04,0)="WORKSTATION ID^F^^0;4^K:$L(X)>1!($L(X)<1) X"
^DD(357.963,.04,3)="Answer must be 1 character in length."
^DD(357.963,.04,21,0)="^^1^1^2970326^"
^DD(357.963,.04,21,1,0)="This is the workstation ID of the scanning workstation that stored this image."
^DD(357.963,.04,"DT")="2970326"
^DD(357.963,.05,0)="USER^P200'^VA(200,^0;5^Q"
^DD(357.963,.05,21,0)="^^1^1^2970326^"
^DD(357.963,.05,21,1,0)="This is the user on the AICS Scanning Workstation when the image was stored."
^DD(357.963,.05,"DT")="2970326"
^DD(357.963,.06,0)="DATE/TIME IMAGE STORED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(357.963,.06,"DT")="2970326"
^DD(357.963,.07,0)="DATA FROM PAGE RECEIVED^S^0:NO;1:YES;^0;7^Q"
^DD(357.963,.07,"DT")="2970326"
^DD(357.963,"B","DATA FROM PAGE RECEIVED",.07)=""
^DD(357.963,"B","DATE/TIME IMAGE STORED",.06)=""
^DD(357.963,"B","IMAGE",.01)=""
^DD(357.963,"B","IMAGE PATH",.02)=""
^DD(357.963,"B","PAGE STORED",.03)=""
^DD(357.963,"B","USER",.05)=""
^DD(357.963,"B","WORKSTATION ID",.04)=""
^DD(357.963,"GL",0,1,.01)=""
^DD(357.963,"GL",0,2,.02)=""
^DD(357.963,"GL",0,3,.03)=""
^DD(357.963,"GL",0,4,.04)=""
^DD(357.963,"GL",0,5,.05)=""
^DD(357.963,"GL",0,6,.06)=""
^DD(357.963,"GL",0,7,.07)=""
^DD(357.963,"IX",.01)=""
^DD(357.963,"IX",.03)=""
^DD(357.969,0)="SCANNED PAGES SUB-FIELD^^.02^2"
^DD(357.969,0,"DT")="2950315"
^DD(357.969,0,"IX","B",357.969,.01)=""
^DD(357.969,0,"NM","SCANNED PAGES")=""
^DD(357.969,0,"UP")="357.96"
^DD(357.969,.01,0)="PAGE NUMBER^MNJ1,0^^0;1^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.969,.01,1,0)="^.1"
^DD(357.969,.01,1,1,0)="357.969^B"
^DD(357.969,.01,1,1,1)="S ^IBD(357.96,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(357.969,.01,1,1,2)="K ^IBD(357.96,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(357.969,.01,3)="Enter the page numbers of the scannable pages."
^DD(357.969,.01,21,0)="^^1^1^2950721^"
^DD(357.969,.01,21,1,0)="The page number of a page that should be scanned."
^DD(357.969,.01,"DT")="2950222"
^DD(357.969,.02,0)="DATE/TIME RECEIVED^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(357.969,.02,3)="What date and time was the page received?"
^DD(357.969,.02,21,0)="^^1^1^2950721^"
^DD(357.969,.02,21,1,0)="The date and time that the page was received, ie, input."
^DD(357.969,.02,"DT")="2950315"
^DD(357.969,"B","DATE/TIME RECEIVED",.02)=""
^DD(357.969,"B","PAGE NUMBER",.01)=""
^DD(357.969,"GL",0,1,.01)=""
^DD(357.969,"GL",0,2,.02)=""
^DD(357.969,"IX",.01)=""
^DD(357.97,0)="FIELD^^.03^3"
^DD(357.97,0,"DDA")="N"
^DD(357.97,0,"DT")="2960815"
^DD(357.97,0,"IX","B",357.97,.01)=""
^DD(357.97,0,"NM","ENCOUNTER FORM COUNTERS")=""
^DD(357.97,0,"VR")="3.0"
^DD(357.97,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.97,.01,0)="LAST FIELD LOCATOR TABLE ID^RNJ9,0X^^0;1^K X"
^DD(357.97,.01,1,0)="^.1"
^DD(357.97,.01,1,1,0)="357.97^B"
^DD(357.97,.01,1,1,1)="S ^IBD(357.97,""B"",$E(X,1,30),DA)="""""
^DD(357.97,.01,1,1,2)="K ^IBD(357.97,""B"",$E(X,1,30),DA)"
^DD(357.97,.01,3)="Can not be edited!"
^DD(357.97,.01,21,0)="^^1^1^2940713^"
^DD(357.97,.01,21,1,0)="Used to assign a numeric ID to the FIELD LOCATOR TABLEs."
^DD(357.97,.01,"DT")="2940713"
^DD(357.97,.02,0)="LAST PRINTED FORM ID^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(357.97,.02,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(357.97,.02,21,0)="^^1^1^2960815^^"
^DD(357.97,.02,21,1,0)="Used to assign a numeric ID to each printed encounter form."
^DD(357.97,.02,"DT")="2940713"
^DD(357.97,.03,0)="LAST UNKNOWN IMAGE ID^NJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(357.97,.03,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(357.97,.03,21,0)="^^17^17^2960819^^^^"
^DD(357.97,.03,21,1,0)="This number is used to store images where the form id or form type could"
^DD(357.97,.03,21,2,0)="not be determined.  The alogrythm for storing images is:"
^DD(357.97,.03,21,3,0)="   1.  If form type, form id, and page are known, and the form passed"
^DD(357.97,.03,21,4,0)="       validation, the image is stored as Xnnnnnn.tif, where X is the"
^DD(357.97,.03,21,5,0)="       workstation identifier, and the first 6 n's are the form ID and"
^DD(357.97,.03,21,6,0)="       the last n is the page number, for example, if workstation A"
^DD(357.97,.03,21,7,0)="       scanned page 1 of form id 87753 the image would be stored as"
^DD(357.97,.03,21,8,0)="       A877531.tif.  (Validated Form)"
^DD(357.97,.03,21,9,0)=""
^DD(357.97,.03,21,10,0)="   2.  If a form requires further validation before sending data to"
^DD(357.97,.03,21,11,0)="       PCE but the form id, form type, and page are known then the"
^DD(357.97,.03,21,12,0)="       image is stored as Unnnnnnn.tif, where n is described above."
^DD(357.97,.03,21,13,0)="       (Requires Further Validation)"
^DD(357.97,.03,21,14,0)=""
^DD(357.97,.03,21,15,0)="   3.  If the form ID, form type, or page cannot be determined then"
^DD(357.97,.03,21,16,0)="       the image is saved as an Unknown form in the format of UNnnnnnn.tif"
^DD(357.97,.03,21,17,0)="       where the number nnnnnnn is determined from this counter."
^DD(357.97,.03,"DT")="2960815"
^DD(357.97,"B","LAST FIELD LOCATOR TABLE ID",.01)=""
^DD(357.97,"B","LAST PRINTED FORM ID",.02)=""
^DD(357.97,"B","LAST UNKNOWN IMAGE ID",.03)=""
^DD(357.97,"GL",0,1,.01)=""
^DD(357.97,"GL",0,2,.02)=""
^DD(357.97,"GL",0,3,.03)=""
^DD(357.97,"IX",.01)=""
^DD(357.97,"RQ",.01)=""
^DD(357.98,0)="FIELD^^.03^3"
^DD(357.98,0,"DDA")="N"
^DD(357.98,0,"DT")="2960918"
^DD(357.98,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(357.98,0,"IX","B",357.98,.01)=""
^DD(357.98,0,"IX","C",357.98,.03)=""
^DD(357.98,0,"NM","AICS DATA QUALIFIERS")=""
^DD(357.98,0,"PT",357.13,.1)=""
^DD(357.98,0,"PT",357.14,.1)=""
^DD(357.98,0,"PT",357.22,.09)=""
^DD(357.98,0,"PT",357.6,13)=""
^DD(357.98,0,"PT",357.613,.01)=""
^DD(357.98,0,"PT",357.931,.09)=""
^DD(357.98,0,"PT",357.951,.1)=""
^DD(357.98,0,"PT",357.952,.1)=""
^DD(357.98,0,"PT",357.961,.1)=""
^DD(357.98,0,"PT",358.613,.01)=""
^DD(357.98,0,"VR")="3.0"
^DD(357.98,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.98,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<2)!'(X'?1P.E) X"
^DD(357.98,.01,1,0)="^.1"
^DD(357.98,.01,1,1,0)="357.98^B"
^DD(357.98,.01,1,1,1)="S ^IBD(357.98,""B"",$E(X,1,30),DA)="""""
^DD(357.98,.01,1,1,2)="K ^IBD(357.98,""B"",$E(X,1,30),DA)"
^DD(357.98,.01,3)="Answer must be 2-40 characters in length."
^DD(357.98,.01,21,0)="^^1^1^2961031^^"
^DD(357.98,.01,21,1,0)="The name given to the data qualifier."
^DD(357.98,.01,"DT")="2960918"
^DD(357.98,.02,0)="CODE^RF^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(357.98,.02,3)="Answer must be 1-3 characters in length."
^DD(357.98,.02,21,0)="^^2^2^2950721^"
^DD(357.98,.02,21,1,0)="The code for the data qualifier, as defined by the PCE Generic Device"
^DD(357.98,.02,21,2,0)="Interface."
^DD(357.98,.02,"DT")="2941018"
^DD(357.98,.03,0)="RECOMMENDED HEADER^F^^0;3^K:$L(X)>12!($L(X)<1) X"
^DD(357.98,.03,1,0)="^.1"
^DD(357.98,.03,1,1,0)="357.98^C"
^DD(357.98,.03,1,1,1)="S ^IBD(357.98,""C"",$E(X,1,30),DA)="""""
^DD(357.98,.03,1,1,2)="K ^IBD(357.98,""C"",$E(X,1,30),DA)"
^DD(357.98,.03,1,1,"DT")="2950829"
^DD(357.98,.03,3)="Answer must be 1-12 characters in length."
^DD(357.98,.03,21,0)="^^2^2^2950417^"
^DD(357.98,.03,21,1,0)="The recommended header will be used as the default header when designing a"
^DD(357.98,.03,21,2,0)="form."
^DD(357.98,.03,"DT")="2950829"
^DD(357.98,"B","CODE",.02)=""
^DD(357.98,"B","NAME",.01)=""
^DD(357.98,"B","RECOMMENDED HEADER",.03)=""
^DD(357.98,"GL",0,1,.01)=""
^DD(357.98,"GL",0,2,.02)=""
^DD(357.98,"GL",0,3,.03)=""
^DD(357.98,"IX",.01)=""
^DD(357.98,"IX",.03)=""
^DD(357.98,"RQ",.01)=""
^DD(357.98,"RQ",.02)=""
^DD(357.99,0)="FIELD^^11^3"
^DD(357.99,0,"DT")="2950201"
^DD(357.99,0,"IX","B",357.99,.01)=""
^DD(357.99,0,"NM","PRINT MANAGER CLINIC GROUPS")=""
^DD(357.99,0,"PT",357.091,.06)=""
^DD(357.99,0,"VR")="3.0"
^DD(357.99,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(357.99,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(357.99,.01,1,0)="^.1"
^DD(357.99,.01,1,1,0)="357.99^B"
^DD(357.99,.01,1,1,1)="S ^IBD(357.99,""B"",$E(X,1,30),DA)="""""
^DD(357.99,.01,1,1,2)="K ^IBD(357.99,""B"",$E(X,1,30),DA)"
^DD(357.99,.01,3)="Answer must be 3-30 characters in length."
^DD(357.99,.01,21,0)="^^1^1^2950721^"
^DD(357.99,.01,21,1,0)="The name given to the group of clinics."
^DD(357.99,.01,"DEL",1,0)="I $O(^IBD(357.09,""ACG"",DA,0)) W !,""You must remove this group from any Print Parameters to Delete!"""
^DD(357.99,.01,"DT")="2941208"
^DD(357.99,10,0)="CLINICS^357.9901PA^^10;0"
^DD(357.99,10,12)="Only clinics can be selected."
^DD(357.99,10,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""C"""""""
^DD(357.99,10,21,0)="^^1^1^2970327^^^^"
^DD(357.99,10,21,1,0)="A list of clinics contained in the group."
^DD(357.99,10,23,0)="^^1^1^2970327^^^^"
^DD(357.99,10,23,1,0)=" "
^DD(357.99,11,0)="DIVISION^357.9911PA^^11;0"
^DD(357.99,"B","CLINICS",10)=""
^DD(357.99,"B","DIVISION",11)=""
^DD(357.99,"B","NAME",.01)=""
^DD(357.99,"GL",0,1,.01)=""
^DD(357.99,"GL",10,0,10)=""
^DD(357.99,"GL",11,0,11)=""
^DD(357.99,"IX",.01)=""
^DD(357.99,"RQ",.01)=""
^DD(357.99,"SB",357.9901,10)=""
^DD(357.99,"SB",357.9911,11)=""
^DD(357.9901,0)="CLINICS SUB-FIELD^^.01^1"
^DD(357.9901,0,"DT")="2950201"
^DD(357.9901,0,"IX","B",357.9901,.01)=""
^DD(357.9901,0,"NM","CLINICS")=""
^DD(357.9901,0,"UP")="357.99"
^DD(357.9901,.01,0)="CLINICS^M*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(357.9901,.01,1,0)="^.1"
^DD(357.9901,.01,1,1,0)="357.9901^B"
^DD(357.9901,.01,1,1,1)="S ^IBD(357.99,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(357.9901,.01,1,1,2)="K ^IBD(357.99,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(357.9901,.01,7.5)="I $E(X,$L(X))=""*"" D WILDCARD^IBDFCG1"
^DD(357.9901,.01,12)="Only clinics can be selected."
^DD(357.9901,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(357.9901,.01,21,0)="^^2^2^2970327^^^"
^DD(357.9901,.01,21,1,0)=" "
^DD(357.9901,.01,21,2,0)="A clinic contained in the group."
^DD(357.9901,.01,23,0)="^^2^2^2970327^"
^DD(357.9901,.01,23,1,0)=" "
^DD(357.9901,.01,23,2,0)=" "
^DD(357.9901,.01,"DT")="2950201"
^DD(357.9901,"B","CLINICS",.01)=""
^DD(357.9901,"GL",0,1,.01)=""
^DD(357.9901,"IX",.01)=""
^DD(357.9911,0)="DIVISION SUB-FIELD^^.01^1"
^DD(357.9911,0,"DT")="2941012"
^DD(357.9911,0,"IX","B",357.9911,.01)=""
^DD(357.9911,0,"NM","DIVISION")=""
^DD(357.9911,0,"UP")="357.99"
^DD(357.9911,.01,0)="DIVISION^P40.8'^DG(40.8,^0;1^Q"
^DD(357.9911,.01,1,0)="^.1"
^DD(357.9911,.01,1,1,0)="357.9911^B"
^DD(357.9911,.01,1,1,1)="S ^IBD(357.99,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(357.9911,.01,1,1,2)="K ^IBD(357.99,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(357.9911,.01,21,0)="^^1^1^2950721^^"
^DD(357.9911,.01,21,1,0)="A division whose clinics belong to the group."
^DD(357.9911,.01,"DT")="2941012"
^DD(357.9911,"B","DIVISION",.01)=""
^DD(357.9911,"GL",0,1,.01)=""
^DD(357.9911,"IX",.01)=""
^DD(358,0)="FIELD^^2^18"
^DD(358,0,"DDA")="N"
^DD(358,0,"DT")="2951024"
^DD(358,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(358,0,"IX","AB",358,.01)=""
^DD(358,0,"IX","AC",358,.01)=""
^DD(358,0,"IX","AG",358,.01)=""
^DD(358,0,"IX","AT",358,.01)=""
^DD(358,0,"IX","AU",358,.01)=""
^DD(358,0,"IX","B",358,.01)=""
^DD(358,0,"IX","C",358,.07)=""
^DD(358,0,"IX","D",358,.04)=""
^DD(358,0,"NM","IMP/EXP ENCOUNTER FORM")=""
^DD(358,0,"PT",358.1,.02)=""
^DD(358,0,"VR")="3.0"
^DD(358,0,"VRPK")="IBD"
^DD(358,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(358,.01,1,0)="^.1"
^DD(358,.01,1,1,0)="358^B"
^DD(358,.01,1,1,1)="S ^IBE(358,""B"",$E(X,1,30),DA)="""""
^DD(358,.01,1,1,2)="K ^IBE(358,""B"",$E(X,1,30),DA)"
^DD(358,.01,1,2,0)="358^AT^MUMPS"
^DD(358,.01,1,2,1)="Q"
^DD(358,.01,1,2,2)="Q"
^DD(358,.01,1,2,"%D",0)="^^4^4^2931124^"
^DD(358,.01,1,2,"%D",1,0)="This cross-reference will be used to store the text of the compiled form."
^DD(358,.01,1,2,"%D",2,0)="The format will be ...""AT"",form ien,row #)=text line. The index will be"
^DD(358,.01,1,2,"%D",3,0)="created by the 'compile' action of the encounter form utilities - it is"
^DD(358,.01,1,2,"%D",4,0)="optional."
^DD(358,.01,1,2,"DT")="2931124"
^DD(358,.01,1,3,0)="358^AC^MUMPS"
^DD(358,.01,1,3,1)="Q"
^DD(358,.01,1,3,2)="Q"
^DD(358,.01,1,3,"%D",0)="^^4^4^2940216^"
^DD(358,.01,1,3,"%D",1,0)="This cross-reference will be used to store the special controls needed"
^DD(358,.01,1,3,"%D",2,0)="(bold on, bold off, etc.) to print the compiled form. The format will be"
^DD(358,.01,1,3,"%D",3,0)="...""AC"",form ien,row #,column # )=controls. The index will be created by"
^DD(358,.01,1,3,"%D",4,0)="the 'compile' action of the encounter form utilities - it is optional."
^DD(358,.01,1,3,"DT")="2931124"
^DD(358,.01,1,4,0)="358^AU^MUMPS"
^DD(358,.01,1,4,1)="Q"
^DD(358,.01,1,4,2)="Q"
^DD(358,.01,1,4,"%D",0)="^^4^4^2931124^"
^DD(358,.01,1,4,"%D",1,0)="This cross-reference will be used to store the underlining of the compiled"
^DD(358,.01,1,4,"%D",2,0)="form. The format will be ...,""AU"",form ien,row #)=underlining . The index"
^DD(358,.01,1,4,"%D",3,0)="will be created by the 'compile' action of the encounter form utilities -"
^DD(358,.01,1,4,"%D",4,0)="it is optional."
^DD(358,.01,1,4,"DT")="2931124"
^DD(358,.01,1,5,0)="358^AG^MUMPS"
^DD(358,.01,1,5,1)="Q"
^DD(358,.01,1,5,2)="Q"
^DD(358,.01,1,5,"%D",0)="^^5^5^2931124^"
^DD(358,.01,1,5,"%D",1,0)="This cross-reference will be used to store strings of graphics characters"
^DD(358,.01,1,5,"%D",2,0)="(TLC,TRC, etc.) needed for the compiled form. The format will be"
^DD(358,.01,1,5,"%D",3,0)="...""AG"",form ien,row #,column # )=graphics string . The index will be"
^DD(358,.01,1,5,"%D",4,0)="created by the 'compile' action of the encounter form utilities - it is"
^DD(358,.01,1,5,"%D",5,0)="optional."
^DD(358,.01,1,5,"DT")="2931124"
^DD(358,.01,1,6,0)="358^AB^MUMPS"
^DD(358,.01,1,6,1)="Q"
^DD(358,.01,1,6,2)="Q"
^DD(358,.01,1,6,"%D",0)="^^4^4^2940606^^"
^DD(358,.01,1,6,"%D",1,0)="This cross-reference will be used to store the boxes needed for the compiled"
^DD(358,.01,1,6,"%D",2,0)="forms. The format will be ...""AB"",form ien,row #,column #, Block ien)="
^DD(358,.01,1,6,"%D",3,0)="box width^box height. The index will be created by the 'compile'"
^DD(358,.01,1,6,"%D",4,0)="action of the encounter form utilities."
^DD(358,.01,1,6,"DT")="2940606"
^DD(358,.01,3)="The form name must be 3-30 uppercase characters in length."
^DD(358,.01,21,0)="^^2^2^2931110^^"
^DD(358,.01,21,1,0)=" "
^DD(358,.01,21,2,0)="The name of the encounter form."
^DD(358,.01,"DEL",1,0)="I 1 W ""...Encounter Forms can only be deleted through the"",!,"" DELETE UNUSED FORM action in the Encounter Form Utilities!"""
^DD(358,.01,"DT")="2940606"
^DD(358,.02,0)="SIMPLEX/DUPLEX^S^0:SIMPLEX;1:DUPLEX,LONG-EDGE BINDING;2:DUPLEX,SHORT-EDGE BINDING;^0;2^Q"
^DD(358,.02,3)="SIMPLEX means one-sided, DUPLEX means two-sided. SHORT-EDGE BINDING is for attaching forms by the top, LONG-EDGE BINDING is for attaching forms along the side."
^DD(358,.02,21,0)="^^1^1^2940628^"
^DD(358,.02,21,1,0)="Allows forms to be printed either one-sided or two-sided."
^DD(358,.02,"DT")="2940628"
^DD(358,.03,0)="BRIEF DESCRIPTION^RF^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(358,.03,.1)="BRIEF DESCRIPTION OF FORM'S USE & CONTENT"
^DD(358,.03,3)="Enter a brief description of the intended use of the form or its contents."
^DD(358,.03,21,0)="^^3^3^2930607^"
^DD(358,.03,21,1,0)=" "
^DD(358,.03,21,2,0)="A brief description of the contents of the form and its intended use. This"
^DD(358,.03,21,3,0)="description will be displayed to the user."
^DD(358,.03,"DT")="2940309"
^DD(358,.04,0)="TYPE OF USE^R*S^0:RESERVED FOR UTILITY;1:OUTPATIENT ENCOUNTER FORM;^0;4^Q"
^DD(358,.04,1,0)="^.1"
^DD(358,.04,1,1,0)="358^D"
^DD(358,.04,1,1,1)="S ^IBE(358,""D"",$E(X,1,30),DA)="""""
^DD(358,.04,1,1,2)="K ^IBE(358,""D"",$E(X,1,30),DA)"
^DD(358,.04,1,1,"%D",0)="^^1^1^2930825^"
^DD(358,.04,1,1,"%D",1,0)="Used to find forms of a particular type."
^DD(358,.04,1,1,"DT")="2930825"
^DD(358,.04,3)="How will the form be used?"
^DD(358,.04,12)="Does not allow users to choose RESERVED FOR UTILITY"
^DD(358,.04,12.1)="S DIC(""S"")=""I Y'=0"""
^DD(358,.04,21,0)="^^5^5^2960930^^^^"
^DD(358,.04,21,1,0)="This field will be used to categorize forms by type of use. It is possible"
^DD(358,.04,21,2,0)="that the form generator that is part of the Encounter Form Utilities may"
^DD(358,.04,21,3,0)="be used to create forms other than encounter forms."
^DD(358,.04,21,4,0)="The utilities use a couple of forms (WORKCOPY, TOOL KIT), TYPE OF USE is"
^DD(358,.04,21,5,0)="RESERVED FOR UTILITY, that are not real forms."
^DD(358,.04,23,0)="^^1^1^2960930^"
^DD(358,.04,23,1,0)=" "
^DD(358,.04,"DT")="2930825"
^DD(358,.05,0)="COMPILED?^S^0:NO;1:YES;F:COMPILATION FAILED;^0;5^Q"
^DD(358,.05,3)="Enter yes if a compiled copy of the form should be created and stored."
^DD(358,.05,21,0)="^^2^2^2940714^^^^"
^DD(358,.05,21,1,0)="This indicates whether a compiled version of the form exists. The compiled"
^DD(358,.05,21,2,0)="version is much faster to print."
^DD(358,.05,"DT")="2940714"
^DD(358,.06,0)="USE ICR?^S^0:NO;1:YES;^0;6^Q"
^DD(358,.06,3)="Enter YES if you want to use ICR to read had print."
^DD(358,.06,"DT")="2950717"
^DD(358,.07,0)="TOOL KIT^RS^0:NO;1:YES;^0;7^Q"
^DD(358,.07,.1)="SHOULD THIS FORM BE PART OF THE TOOL KIT?"
^DD(358,.07,1,0)="^.1"
^DD(358,.07,1,1,0)="358^C"
^DD(358,.07,1,1,1)="S ^IBE(358,""C"",$E(X,1,30),DA)="""""
^DD(358,.07,1,1,2)="K ^IBE(358,""C"",$E(X,1,30),DA)"
^DD(358,.07,1,1,"%D",0)="^^1^1^2930624^"
^DD(358,.07,1,1,"%D",1,0)="Used to find all of the tool kit forms."
^DD(358,.07,1,1,"DT")="2930624"
^DD(358,.07,3)="Is this form part of the tool kit?"
^DD(358,.07,21,0)="^^3^3^2930607^"
^DD(358,.07,21,1,0)=" "
^DD(358,.07,21,2,0)="This field, if set to YES, means that the form can not be deleted and can"
^DD(358,.07,21,3,0)="not be added to a clinic setup."
^DD(358,.07,"DT")="2931220"
^DD(358,.09,0)="RIGHT MARGIN^RNJ3,0X^^0;9^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358,.09,.1)="FORM'S RIGHT MARGIN (WIDTH IN CHARACTERS)"
^DD(358,.09,3)=""
^DD(358,.09,4)="W !,""How many columns (characters) wide should the form be?"""
^DD(358,.09,21,0)="^^2^2^2940711^^^^"
^DD(358,.09,21,1,0)=" "
^DD(358,.09,21,2,0)="The number of characters wide the form is."
^DD(358,.09,"DT")="2940711"
^DD(358,.1,0)="PAGE LENGTH^RNJ3,0^^0;10^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358,.1,.1)="FORM'S PAGE LENGTH (IN LINES)"
^DD(358,.1,3)="How many lines should the form have?"
^DD(358,.1,21,0)="^^2^2^2921213^"
^DD(358,.1,21,1,0)=" "
^DD(358,.1,21,2,0)="This is the number of usable lines on the page."
^DD(358,.1,"DT")="2930420"
^DD(358,.11,0)="NUMBER OF PAGES^RNJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358,.11,3)="How many pages should the encounter form have?"
^DD(358,.11,21,0)="^^1^1^2930602^"
^DD(358,.11,21,1,0)="The encounter form may have multiple pages."
^DD(358,.11,"DT")="2930602"
^DD(358,.12,0)="SCANNABLE?^S^0:NO;1:YES;^0;12^Q"
^DD(358,.12,3)="Answer YES if the form will be scanned to accomplish data entry, NO otherwise."
^DD(358,.12,"DT")="2940520"
^DD(358,.13,0)="FORM TYPE ID^NJ9,0^^0;13^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358,.13,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(358,.13,"DT")="2940609"
^DD(358,.14,0)="PAPER SIZE^S^1:LETTER (8 1/2 x 11);^0;14^Q"
^DD(358,.14,3)="What size paper should be used?"
^DD(358,.14,"DT")="2940614"
^DD(358,.15,0)="ORIENTATION^S^p:PORTRAIT;^0;15^Q"
^DD(358,.15,3)="How should the form be oriented?"
^DD(358,.15,"DT")="2940614"
^DD(358,.16,0)="TEXT SIZE^RS^1:132 COLUMNS x 80 LINES;2:96 COLUMNS x 72 LINES;3:80 COLUMNS x 60 LINES;^0;16^Q"
^DD(358,.16,3)="This choice will determine the size of the print and how much text will fit on the form."
^DD(358,.16,"DT")="2940711"
^DD(358,.17,0)="VERSION^NJ4,1^^0;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(358,.17,3)="Type a Number between 0 and 99, 1 Decimal Digit"
^DD(358,.17,21,0)="^^4^4^2951024^"
^DD(358,.17,21,1,0)="This is the version of AICS that created this form.  This is used"
^DD(358,.17,21,2,0)="to prevent trying to import incompatible form formats.  This is "
^DD(358,.17,21,3,0)="implemented in version 2.1.  Null entries can be assumed to be "
^DD(358,.17,21,4,0)="version 2.0."
^DD(358,.17,"DT")="2951024"
^DD(358,1,0)="EXPORT NOTES^358.01^^1;0"
^DD(358,1,21,0)="^^3^3^2930806^"
^DD(358,1,21,1,0)="Used to describe the form to other sites. The form can not be displayed"
^DD(358,1,21,2,0)="until after it is imported. Maybe if they knew more about it they wouldn't"
^DD(358,1,21,3,0)="want to import it! They will be able to read the EXPORT NOTES before importing it."
^DD(358,2,0)="PAGE INFORMATION^358.02^^2;0"
^DD(358,"B","BRIEF DESCRIPTION",.03)=""
^DD(358,"B","COMPILED?",.05)=""
^DD(358,"B","EXPORT NOTES",1)=""
^DD(358,"B","FORM TYPE ID",.13)=""
^DD(358,"B","FORM'S PAGE LENGTH (IN LINES)",.1)="1"
^DD(358,"B","NAME",.01)=""
^DD(358,"B","NUMBER OF PAGES",.11)=""
^DD(358,"B","ORIENTATION",.15)=""
^DD(358,"B","PAGE INFORMATION",2)=""
^DD(358,"B","PAGE LENGTH",.1)=""
^DD(358,"B","PAPER SIZE",.14)=""
^DD(358,"B","RIGHT MARGIN",.09)=""
^DD(358,"B","SCANNABLE?",.12)=""
^DD(358,"B","SIMPLEX/DUPLEX",.02)=""
^DD(358,"B","TEXT SIZE",.16)=""
^DD(358,"B","TOOL KIT",.07)=""
^DD(358,"B","TYPE OF USE",.04)=""
^DD(358,"B","USE ICR?",.06)=""
^DD(358,"B","VERSION",.17)=""
^DD(358,"GL",0,1,.01)=""
^DD(358,"GL",0,2,.02)=""
^DD(358,"GL",0,3,.03)=""
^DD(358,"GL",0,4,.04)=""
^DD(358,"GL",0,5,.05)=""
^DD(358,"GL",0,6,.06)=""
^DD(358,"GL",0,7,.07)=""
^DD(358,"GL",0,9,.09)=""
^DD(358,"GL",0,10,.1)=""
^DD(358,"GL",0,11,.11)=""
^DD(358,"GL",0,12,.12)=""
^DD(358,"GL",0,13,.13)=""
^DD(358,"GL",0,14,.14)=""
^DD(358,"GL",0,15,.15)=""
^DD(358,"GL",0,16,.16)=""
^DD(358,"GL",0,17,.17)=""
^DD(358,"GL",1,0,1)=""
^DD(358,"GL",2,0,2)=""
^DD(358,"IX",.01)=""
^DD(358,"IX",.04)=""
^DD(358,"IX",.07)=""
^DD(358,"RQ",.01)=""
^DD(358,"RQ",.03)=""
^DD(358,"RQ",.04)=""
^DD(358,"RQ",.07)=""
^DD(358,"RQ",.09)=""
^DD(358,"RQ",.1)=""
^DD(358,"RQ",.11)=""
^DD(358,"RQ",.16)=""
^DD(358,"SB",358.01,1)=""
^DD(358,"SB",358.02,2)=""
^DD(358.01,0)="EXPORT NOTES SUB-FIELD^^.01^1"
^DD(358.01,0,"DT")="2930806"
^DD(358.01,0,"NM","EXPORT NOTES")=""
^DD(358.01,0,"UP")="358"
^DD(358.01,.01,0)="EXPORT NOTES^W^^0;1^Q"
^DD(358.01,.01,3)="What should other sites know about this form before importing it? The other site will not be able to display it until after they import it."
^DD(358.01,.01,"DT")="2930806"
^DD(358.01,"B","EXPORT NOTES",.01)=""
^DD(358.01,"GL",0,1,.01)=""
^DD(358.02,0)="PAGE INFORMATION SUB-FIELD^^.02^2"
^DD(358.02,0,"DT")="2950717"
^DD(358.02,0,"IX","B",358.02,.01)=""
^DD(358.02,0,"NM","PAGE INFORMATION")=""
^DD(358.02,0,"UP")="358"
^DD(358.02,.01,0)="PAGE NUMBER^MNJ1,0^^0;1^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.02,.01,1,0)="^.1"
^DD(358.02,.01,1,1,0)="358.02^B"
^DD(358.02,.01,1,1,1)="S ^IBE(358,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(358.02,.01,1,1,2)="K ^IBE(358,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(358.02,.01,3)="Enter the pages that should be scanned."
^DD(358.02,.01,"DT")="2950717"
^DD(358.02,.02,0)="SCANNABLE?^S^0:NO;1:YES;^0;2^Q"
^DD(358.02,.02,3)="Is this page meant to be scanned?"
^DD(358.02,.02,"DT")="2950717"
^DD(358.02,"B","PAGE NUMBER",.01)=""
^DD(358.02,"B","SCANNABLE?",.02)=""
^DD(358.02,"GL",0,1,.01)=""
^DD(358.02,"GL",0,2,.02)=""
^DD(358.02,"IX",.01)=""
^DD(358.1,0)="FIELD^^1^12"
^DD(358.1,0,"DDA")="N"
^DD(358.1,0,"DT")="2930806"
^DD(358.1,0,"ID",.02)="W """""
^DD(358.1,0,"IX","B",358.1,.01)=""
^DD(358.1,0,"IX","C",358.1,.02)=""
^DD(358.1,0,"IX","D",358.1,.14)=""
^DD(358.1,0,"NM","IMP/EXP ENCOUNTER FORM BLOCK")=""
^DD(358.1,0,"PT",358.2,.02)=""
^DD(358.1,0,"PT",358.5,.02)=""
^DD(358.1,0,"PT",358.7,.06)=""
^DD(358.1,0,"PT",358.8,.02)=""
^DD(358.1,0,"PT",358.93,.08)=""
^DD(358.1,0,"VR")="3.0"
^DD(358.1,0,"VRPK")="IBD"
^DD(358.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(358.1,.01,1,0)="^.1"
^DD(358.1,.01,1,1,0)="358.1^B"
^DD(358.1,.01,1,1,1)="S ^IBE(358.1,""B"",$E(X,1,30),DA)="""""
^DD(358.1,.01,1,1,2)="K ^IBE(358.1,""B"",$E(X,1,30),DA)"
^DD(358.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(358.1,.01,21,0)="^^2^2^2930527^"
^DD(358.1,.01,21,1,0)=" "
^DD(358.1,.01,21,2,0)="The name of the block."
^DD(358.1,.01,"DEL",1,0)="I '$G(IBLISTPR) W ""...Encounter Form Blocks can only be deleted through the Encounter Form Utilities!"""
^DD(358.1,.02,0)="FORM^RP358'^IBE(358,^0;2^Q"
^DD(358.1,.02,1,0)="^.1"
^DD(358.1,.02,1,1,0)="358.1^C"
^DD(358.1,.02,1,1,1)="S ^IBE(358.1,""C"",$E(X,1,30),DA)="""""
^DD(358.1,.02,1,1,2)="K ^IBE(358.1,""C"",$E(X,1,30),DA)"
^DD(358.1,.02,1,1,"%D",0)="^^1^1^2921116^"
^DD(358.1,.02,1,1,"%D",1,0)="Used to find all the blocks belonging to a particular form."
^DD(358.1,.02,1,1,"DT")="2921116"
^DD(358.1,.02,3)="What form should this block appear on?"
^DD(358.1,.02,21,0)="^^2^2^2930802^^"
^DD(358.1,.02,21,1,0)=" "
^DD(358.1,.02,21,2,0)="The form the block appears on."
^DD(358.1,.02,"DT")="2930802"
^DD(358.1,.04,0)="BLOCK'S STARTING ROW^RNJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.1,.04,.1)="WHAT ROW SHOULD THE BLOCK START IN?"
^DD(358.1,.04,2)="S Y(0)=Y S Y=(+Y)+1"
^DD(358.1,.04,2.1)="S Y=(+Y)+1"
^DD(358.1,.04,3)="What line should this block begin on?"
^DD(358.1,.04,21,0)="^^1^1^2930715^^^"
^DD(358.1,.04,21,1,0)="The row  on the encounter form that the block starts on."
^DD(358.1,.04,23,0)="^^4^4^2930715^"
^DD(358.1,.04,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.1,.04,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.1,.04,23,3,0)="it is convenient to work with displacements fromt the top left-hand"
^DD(358.1,.04,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.1,.04,"DT")="2930715"
^DD(358.1,.05,0)="BLOCK'S STARTING COLUMN^RNJ3,0XO^^0;5^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.1,.05,.1)="WHAT COLUMN SHOULD THE BLOCK START IN?"
^DD(358.1,.05,2)="S Y(0)=Y S Y=(+Y)+1"
^DD(358.1,.05,2.1)="S Y=(+Y)+1"
^DD(358.1,.05,3)="What column should this block begin on?"
^DD(358.1,.05,21,0)="^^1^1^2930715^^"
^DD(358.1,.05,21,1,0)="The column on the encounter form that the block starts on."
^DD(358.1,.05,23,0)="^^4^4^2930715^"
^DD(358.1,.05,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.1,.05,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.1,.05,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.1,.05,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.1,.05,"DT")="2930715"
^DD(358.1,.06,0)="WIDTH IN CHARACTERS^RNJ3,0^^0;6^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.1,.06,.1)="HOW MANY CHARACTERS WIDE SHOULD THE BLOCK BE?"
^DD(358.1,.06,3)="How many characters wide should this block be?"
^DD(358.1,.06,21,0)="^^2^2^2930527^"
^DD(358.1,.06,21,1,0)=" "
^DD(358.1,.06,21,2,0)="The width of the block, measured in the number of characters across."
^DD(358.1,.06,"DT")="2930415"
^DD(358.1,.07,0)="HEIGHT IN LINES^RNJ3,0^^0;7^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.1,.07,.1)="HOW MANY LINES HIGH SHOULD THE BLOCK BE?"
^DD(358.1,.07,3)="How many lines high should this block be?"
^DD(358.1,.07,21,0)="^^2^2^2930527^"
^DD(358.1,.07,21,1,0)=" "
^DD(358.1,.07,21,2,0)="The height of the block, measured by the number of lines it takes up."
^DD(358.1,.07,"DT")="2930415"
^DD(358.1,.1,0)="OUTLINE TYPE^RS^1:SOLID LINE;2:INVISIBLE;^0;10^Q"
^DD(358.1,.1,.1)="OUTLINE TYPE (SOLID/INVISIBLE)"
^DD(358.1,.1,3)="Enter '1' if the block should have a box around it, '2' if not."
^DD(358.1,.1,21,0)="^^2^2^2930527^"
^DD(358.1,.1,21,1,0)=" "
^DD(358.1,.1,21,2,0)="How the block is outlined on the form."
^DD(358.1,.1,"DT")="2930415"
^DD(358.1,.11,0)="BLOCK HEADER^F^^0;11^K:$L(X)>60!($L(X)<1) X"
^DD(358.1,.11,.1)="WHAT HEADER WOULD SHOULD APPEAR AT THE TOP OF THE BLOCK? (OPTIONAL)"
^DD(358.1,.11,3)="What text should appear at the top of the block?"
^DD(358.1,.11,21,0)="^^2^2^2930527^"
^DD(358.1,.11,21,1,0)=" "
^DD(358.1,.11,21,2,0)="The text appearing at the top of the block."
^DD(358.1,.11,"DT")="2930415"
^DD(358.1,.12,0)="HEADER APPEARANCE^FX^^0;12^S X=$$UPPER^VALM1(X) K:$L(X)>3!(""UBC""'[$E(X,1))!(""UBC""'[$E(X,2))!(""UBC""'[$E(X,3)) X"
^DD(358.1,.12,.1)="HOW SHOULD THE BLOCK HEADER APPEAR? CHOOSE FROM {U,B,C}"
^DD(358.1,.12,3)="B=bold, U=underline, C=center. You can enter any combination of {B,U,C}."
^DD(358.1,.12,21,0)="^^2^2^2930607^"
^DD(358.1,.12,21,1,0)=" "
^DD(358.1,.12,21,2,0)="A description of the block's contents and use."
^DD(358.1,.12,"DT")="2930616"
^DD(358.1,.13,0)="BRIEF DESCRIPTION^RF^^0;13^K:$L(X)>80!($L(X)<1) X"
^DD(358.1,.13,.1)="ENTER A BRIEF DESCRIPTION OF THE USE & CONTENTS OF THE BLOCK"
^DD(358.1,.13,3)="Answer must be 1-80 characters in length."
^DD(358.1,.13,21,0)="^^2^2^2930607^"
^DD(358.1,.13,21,1,0)=" "
^DD(358.1,.13,21,2,0)="A brief description of the contents or use of the block."
^DD(358.1,.13,"DT")="2930415"
^DD(358.1,.14,0)="TOOL KIT ORDER^NJ6,2^^0;14^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(358.1,.14,1,0)="^.1"
^DD(358.1,.14,1,1,0)="358.1^D"
^DD(358.1,.14,1,1,1)="S ^IBE(358.1,""D"",$E(X,1,30),DA)="""""
^DD(358.1,.14,1,1,2)="K ^IBE(358.1,""D"",$E(X,1,30),DA)"
^DD(358.1,.14,1,1,"%D",0)="^^2^2^2930108^"
^DD(358.1,.14,1,1,"%D",1,0)="This index is used to locate all the 'tool box' blocs that can be used "
^DD(358.1,.14,1,1,"%D",2,0)="as templates to create a new block to be added to a form."
^DD(358.1,.14,1,1,"DT")="2930108"
^DD(358.1,.14,3)="Enter a numeric value >0 if this block is part of the tool kit. The number will determine its listed order."
^DD(358.1,.14,21,0)="^^4^4^2930607^"
^DD(358.1,.14,21,1,0)=" "
^DD(358.1,.14,21,2,0)="A value greater than 0 means that the block belongs to the tool kit. The"
^DD(358.1,.14,21,3,0)="value also determines the order that the block will be listed to the"
^DD(358.1,.14,21,4,0)="screen that displays the tool kit blocks."
^DD(358.1,.14,"DT")="2930309"
^DD(358.1,1,0)="EXPORT NOTES^358.11^^1;0"
^DD(358.1,1,21,0)="^^2^2^2930806^"
^DD(358.1,1,21,1,0)="Should be give other sites information that will enable them to decide"
^DD(358.1,1,21,2,0)="whether or not they want to import the block. Only applies to tool kit blocks."
^DD(358.1,"B","BLOCK HEADER",.11)=""
^DD(358.1,"B","BLOCK'S STARTING COLUMN",.05)=""
^DD(358.1,"B","BLOCK'S STARTING ROW",.04)=""
^DD(358.1,"B","BRIEF DESCRIPTION",.13)=""
^DD(358.1,"B","EXPORT NOTES",1)=""
^DD(358.1,"B","FORM",.02)=""
^DD(358.1,"B","HEADER APPEARANCE",.12)=""
^DD(358.1,"B","HEIGHT IN LINES",.07)=""
^DD(358.1,"B","NAME",.01)=""
^DD(358.1,"B","OUTLINE TYPE",.1)=""
^DD(358.1,"B","OUTLINE TYPE (SOLID/INVISIBLE)",.1)="1"
^DD(358.1,"B","TOOL KIT ORDER",.14)=""
^DD(358.1,"B","WIDTH IN CHARACTERS",.06)=""
^DD(358.1,"GL",0,1,.01)=""
^DD(358.1,"GL",0,2,.02)=""
^DD(358.1,"GL",0,4,.04)=""
^DD(358.1,"GL",0,5,.05)=""
^DD(358.1,"GL",0,6,.06)=""
^DD(358.1,"GL",0,7,.07)=""
^DD(358.1,"GL",0,10,.1)=""
^DD(358.1,"GL",0,11,.11)=""
^DD(358.1,"GL",0,12,.12)=""
^DD(358.1,"GL",0,13,.13)=""
^DD(358.1,"GL",0,14,.14)=""
^DD(358.1,"GL",1,0,1)=""
^DD(358.1,"IX",.01)=""
^DD(358.1,"IX",.02)=""
^DD(358.1,"IX",.14)=""
^DD(358.1,"RQ",.01)=""
^DD(358.1,"RQ",.02)=""
^DD(358.1,"RQ",.04)=""
^DD(358.1,"RQ",.05)=""
^DD(358.1,"RQ",.06)=""
^DD(358.1,"RQ",.07)=""
^DD(358.1,"RQ",.1)=""
^DD(358.1,"RQ",.13)=""
^DD(358.1,"SB",358.11,1)=""
^DD(358.11,0)="EXPORT NOTES SUB-FIELD^^.01^1"
^DD(358.11,0,"DT")="2930806"
^DD(358.11,0,"NM","EXPORT NOTES")=""
^DD(358.11,0,"UP")="358.1"
^DD(358.11,.01,0)="EXPORT NOTES^W^^0;1^Q"
^DD(358.11,.01,3)="What should other sites know about this tool kit block before importing it?"
^DD(358.11,.01,"DT")="2930806"
^DD(358.11,"B","EXPORT NOTES",.01)=""
^DD(358.11,"GL",0,1,.01)=""
^DD(358.2,0)="FIELD^^2^19"
^DD(358.2,0,"DDA")="N"
^DD(358.2,0,"DT")="2960123"
^DD(358.2,0,"ID",.02)="W """""
^DD(358.2,0,"ID",.11)="W """""
^DD(358.2,0,"IX","B",358.2,.01)=""
^DD(358.2,0,"IX","C",358.2,.02)=""
^DD(358.2,0,"NM","IMP/EXP SELECTION LIST")=""
^DD(358.2,0,"PT",358.3,.03)=""
^DD(358.2,0,"PT",358.4,.03)=""
^DD(358.2,0,"VR")="3.0"
^DD(358.2,0,"VRPK")="IBD"
^DD(358.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(358.2,.01,1,0)="^.1"
^DD(358.2,.01,1,1,0)="358.2^B"
^DD(358.2,.01,1,1,1)="S ^IBE(358.2,""B"",$E(X,1,30),DA)="""""
^DD(358.2,.01,1,1,2)="K ^IBE(358.2,""B"",$E(X,1,30),DA)"
^DD(358.2,.01,3)="Answer must be 3-30 characters in length."
^DD(358.2,.01,21,0)="^^2^2^2930527^"
^DD(358.2,.01,21,1,0)=" "
^DD(358.2,.01,21,2,0)="The name of the list."
^DD(358.2,.01,"DEL",1,0)="I '$G(IBLISTPR) W ""...Selection Lists can only be deleted through the Encounter Form Utilities!"""
^DD(358.2,.01,"DT")="2921119"
^DD(358.2,.02,0)="BLOCK^RP358.1'^IBE(358.1,^0;2^Q"
^DD(358.2,.02,1,0)="^.1"
^DD(358.2,.02,1,1,0)="358.2^C"
^DD(358.2,.02,1,1,1)="S ^IBE(358.2,""C"",$E(X,1,30),DA)="""""
^DD(358.2,.02,1,1,2)="K ^IBE(358.2,""C"",$E(X,1,30),DA)"
^DD(358.2,.02,1,1,"DT")="2921207"
^DD(358.2,.02,3)="Enter the block that the selection list should appear in."
^DD(358.2,.02,21,0)="^^2^2^2930527^"
^DD(358.2,.02,21,1,0)="The block that the list appears on. The position of the selection list is"
^DD(358.2,.02,21,2,0)="relative to the block."
^DD(358.2,.02,"DT")="2921207"
^DD(358.2,.04,0)="SUBCOLUMN HEADER APPEARANCE^FX^^0;4^S X=$$UPPER^VALM1(X) K:$L(X)>1!(""R""'[$E(X,1)) X"
^DD(358.2,.04,.1)="HOW SHOULD THE SUBCOLUMN HEADERS APPEAR? ENTER 'R' FOR REVERSE PRINTING."
^DD(358.2,.04,3)="R=Reverse Printing"
^DD(358.2,.04,"DT")="2940531"
^DD(358.2,.05,0)="COLUMN HEADER^F^^0;5^K:$L(X)>70!($L(X)<1) X"
^DD(358.2,.05,.1)="WHAT TEXT SHOULD APPEAR AT THE TOP OF EACH COLUMN? (OPTIONAL)"
^DD(358.2,.05,3)="This header will appear at the top of the column that contains the list. If there is more than one column it will appear at the top of each."
^DD(358.2,.05,21,0)="^^2^2^2930527^"
^DD(358.2,.05,21,1,0)=" "
^DD(358.2,.05,21,2,0)="The text that appears at the top of each column (NOT subcolumn)."
^DD(358.2,.05,"DT")="2930415"
^DD(358.2,.06,0)="COLUMN HEADER APPEARANCE^FX^^0;6^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""UBRC""'[$E(X,1))!(""UBRC""'[$E(X,2))!(""UBRC""'[$E(X,3))!(""UBRC""'[$E(X,4)) X"
^DD(358.2,.06,.1)="HOW SHOULD THE COLUMN HEADER APPEAR? CHOOSE FROM {U,B,R,C}"
^DD(358.2,.06,3)="B=bold,U=underline,R=reverse,C=center. You can enter any combination of {B,U,R,C}."
^DD(358.2,.06,21,0)="^^2^2^2940531^^^"
^DD(358.2,.06,21,1,0)=" "
^DD(358.2,.06,21,2,0)="The column header can be give characteristics, such as centered and bold."
^DD(358.2,.06,"DT")="2940531"
^DD(358.2,.07,0)="SUBCOLUMNS SEPARATED WITH?^RS^1:ONE SPACE;2:TWO SPACES;3:LINE;4:SPACE/LINE/SPACE;^0;7^Q"
^DD(358.2,.07,.1)="HOW SHOULD THE SUBCOLUMNS BE SEPARATED?"
^DD(358.2,.07,3)="How should the subcolumns be separated?"
^DD(358.2,.07,21,0)="^^2^2^2930527^"
^DD(358.2,.07,21,1,0)=" "
^DD(358.2,.07,21,2,0)="What characters are used to separate the subcolumns."
^DD(358.2,.07,"DT")="2930415"
^DD(358.2,.08,0)="EXTRA LINES FOR SELECTIONS^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.2,.08,.1)="NUMBER OF ADDITIONAL LINES FOR EACH ENTRY ON LIST?"
^DD(358.2,.08,3)="How many extra lines should be allocated for each selection, in addition to the 1 the selection will print on?"
^DD(358.2,.08,21,0)="^^4^4^2930527^"
^DD(358.2,.08,21,1,0)=" "
^DD(358.2,.08,21,2,0)="Each entry on the list prints on only one line. However, if you want"
^DD(358.2,.08,21,3,0)="extra space to appear below each entry on the list then this field should"
^DD(358.2,.08,21,4,0)="be set to the number of blank lines desired."
^DD(358.2,.08,"DT")="2930427"
^DD(358.2,.09,0)="GROUP HEADER APPEARANCE^FX^^0;9^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""UBRC""'[$E(X,1))!(""UBRC""'[$E(X,2))!(""UBRC""'[$E(X,3))!(""UBRC""'[$E(X,4)) X"
^DD(358.2,.09,.1)="HOW SHOULD THE HEADER FOR EACH GROUP OF ENTRIES APPEAR? CHOOSE FROM {U,B,R,C}"
^DD(358.2,.09,3)="B=bold,R=reverse,C=center,U=underline. You can use any combination of {B,R,C,U}"
^DD(358.2,.09,21,0)="^^1^1^2940527^^^^"
^DD(358.2,.09,21,1,0)="This field determines the appearance of the group headers."
^DD(358.2,.09,"DT")="2940527"
^DD(358.2,.11,0)="SELECTION ROUTINE^R*P358.6'^IBE(358.6,^0;11^S DIC(""S"")=""I $P(^(0),U,6)=3,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.2,.11,3)="Enter the package interface used to obtain this list."
^DD(358.2,.11,12)="Allows only available selection routines."
^DD(358.2,.11,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=3,$P(^(0),U,9)=1"""
^DD(358.2,.11,21,0)="^^2^2^2930527^"
^DD(358.2,.11,21,1,0)=" "
^DD(358.2,.11,21,2,0)="This identifies the Package Interface that is used to fill the list."
^DD(358.2,.11,"DT")="2930115"
^DD(358.2,.12,0)="UNDERLINE SELECTIONS?^RS^0:NO;1:YES;^0;12^Q"
^DD(358.2,.12,.1)="SHOULD EACH ENTRY ON THE LIST BE UNDERLINED? (YES/NO)"
^DD(358.2,.12,3)="Should the items on the list be underlined?"
^DD(358.2,.12,21,0)="^^2^2^2930527^"
^DD(358.2,.12,21,1,0)=" "
^DD(358.2,.12,21,2,0)="Answer yes if each entry on the list should be underlined."
^DD(358.2,.12,"DT")="2930414"
^DD(358.2,.13,0)="NUMBER OF COLUMNS^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.2,.13,.1)="HOW MANY COLUMNS OF LIST ENTRIES SHOULD THE LIST HAVE? (OPTIONAL)"
^DD(358.2,.13,3)=""
^DD(358.2,.13,4)="D HELP5^IBDFU5"
^DD(358.2,.13,21,0)="^^6^6^2930527^"
^DD(358.2,.13,21,1,0)=" "
^DD(358.2,.13,21,2,0)="A selection list may be displayed in an area several columns wide. The"
^DD(358.2,.13,21,3,0)="starting position and height of each column may be specified. However, it"
^DD(358.2,.13,21,4,0)="is not necessary because defaults values will be used. The defaults used"
^DD(358.2,.13,21,5,0)="assume that nothing else is going in the block except the selection list"
^DD(358.2,.13,21,6,0)="and that the entire block should be filled."
^DD(358.2,.13,"DT")="2930802"
^DD(358.2,.14,0)="DYNAMIC SELECTIONS^S^0:NO;1:YES;^0;14^Q"
^DD(358.2,.14,3)="Answer YES if the list of selecitons are created at print time."
^DD(358.2,.14,"DT")="2950717"
^DD(358.2,.15,0)="PRINT COMPLETE^S^0:NO;1:YES;^0;15^Q"
^DD(358.2,.15,3)="If the data on the list won't fit on the form, should it be printed on a separate page?"
^DD(358.2,.15,21,0)="^^1^1^2950717^"
^DD(358.2,.15,21,1,0)="Applies only to dynamic selection lists."
^DD(358.2,.15,"DT")="2950717"
^DD(358.2,.16,0)="NUMBER OF OTHER^NJ1,0^^0;16^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.2,.16,3)="Allocate space for how many 'other' not found on the list?"
^DD(358.2,.16,21,0)="^^2^2^2950717^"
^DD(358.2,.16,21,1,0)="Space will be allocated at the bottom of the lsit for this number of items"
^DD(358.2,.16,21,2,0)="not found on the list."
^DD(358.2,.16,"DT")="2950717"
^DD(358.2,.17,0)="WHAT TO ALLOCATE SPACE FOR^S^1:NARRATIVE ONLY;2:CODE ONLY;3:NARRATIVE AND CODE;^0;17^Q"
^DD(358.2,.17,3)="What should space be allocated for when making room for 'other'?"
^DD(358.2,.17,21,0)="^^2^2^2950803^^"
^DD(358.2,.17,21,1,0)="This field will determine what fields will be placed on the form for"
^DD(358.2,.17,21,2,0)="writting in other items not found on the list."
^DD(358.2,.17,"DT")="2950717"
^DD(358.2,.18,0)="WHAT TO SEND TO PCE^S^1:NARRATIVE ONLY;2:CODE ONLY;3:NARRATIVE AND CODE;^0;18^Q"
^DD(358.2,.18,3)="WHAT DO YOU WANT ENTERED INTO THE DATABASE?"
^DD(358.2,.18,21,0)="^^2^2^2960123^"
^DD(358.2,.18,21,1,0)="This determines what is sent to PCE.  For example, some types of data"
^DD(358.2,.18,21,2,0)="may require that a code be sent, but the narrative may be optional."
^DD(358.2,.18,"DT")="2960123"
^DD(358.2,.19,0)="CLINICAL REMINDER DISPLAY TYPE^S^1:DUE NOW ONLY;2:ALL REMINDERS;^0;19^Q"
^DD(358.2,.19,3)="This determines the clincial reminders that will print on an encounter form.  Choose either to see only those due now or all appropriate reminders."
^DD(358.2,.19,21,0)="^^1^1^2980910^^^^"
^DD(358.2,.19,21,1,0)="This is the display type for this list of clinical reminders."
^DD(358.2,.19,"DT")="2971027"
^DD(358.2,1,0)="LIST COLUMN^358.21I^^1;0"
^DD(358.2,1,21,0)="^^2^2^2940216^^^^"
^DD(358.2,1,21,1,0)="A column is a rectangular area that has the necessary width to display a"
^DD(358.2,1,21,2,0)="single item on the list."
^DD(358.2,1,"DT")="2930802"
^DD(358.2,2,0)="SUBCOLUMN NUMBER^358.22I^^2;0"
^DD(358.2,2,21,0)="^^4^4^2941020^^^^"
^DD(358.2,2,21,1,0)=" "
^DD(358.2,2,21,2,0)="A subcolumn contains one field of the entry on the list. The subcolumn"
^DD(358.2,2,21,3,0)="order is the order, from left to right, that the subcolumns will appear"
^DD(358.2,2,21,4,0)="in."
^DD(358.2,2,"DT")="2930413"
^DD(358.2,"B","BLOCK",.02)=""
^DD(358.2,"B","CLINICAL REMINDER DISPLAY TYPE",.19)=""
^DD(358.2,"B","COLUMN HEADER",.05)=""
^DD(358.2,"B","COLUMN HEADER APPEARANCE",.06)=""
^DD(358.2,"B","DYNAMIC SELECTIONS",.14)=""
^DD(358.2,"B","EXTRA LINES FOR SELECTIONS",.08)=""
^DD(358.2,"B","GROUP HEADER APPEARANCE",.09)=""
^DD(358.2,"B","LIST COLUMN",1)=""
^DD(358.2,"B","NAME",.01)=""
^DD(358.2,"B","NUMBER OF COLUMNS",.13)=""
^DD(358.2,"B","NUMBER OF OTHER",.16)=""
^DD(358.2,"B","PRINT COMPLETE",.15)=""
^DD(358.2,"B","SELECTION ROUTINE",.11)=""
^DD(358.2,"B","SUBCOLUMN HEADER APPEARANCE",.04)=""
^DD(358.2,"B","SUBCOLUMN NUMBER",2)=""
^DD(358.2,"B","SUBCOLUMNS SEPARATED WITH?",.07)=""
^DD(358.2,"B","UNDERLINE SELECTIONS?",.12)=""
^DD(358.2,"B","WHAT TO ALLOCATE SPACE FOR",.17)=""
^DD(358.2,"B","WHAT TO SEND TO PCE",.18)=""
^DD(358.2,"GL",0,1,.01)=""
^DD(358.2,"GL",0,2,.02)=""
^DD(358.2,"GL",0,4,.04)=""
^DD(358.2,"GL",0,5,.05)=""
^DD(358.2,"GL",0,6,.06)=""
^DD(358.2,"GL",0,7,.07)=""
^DD(358.2,"GL",0,8,.08)=""
^DD(358.2,"GL",0,9,.09)=""
^DD(358.2,"GL",0,11,.11)=""
^DD(358.2,"GL",0,12,.12)=""
^DD(358.2,"GL",0,13,.13)=""
^DD(358.2,"GL",0,14,.14)=""
^DD(358.2,"GL",0,15,.15)=""
^DD(358.2,"GL",0,16,.16)=""
^DD(358.2,"GL",0,17,.17)=""
^DD(358.2,"GL",0,18,.18)=""
^DD(358.2,"GL",0,19,.19)=""
^DD(358.2,"GL",1,0,1)=""
^DD(358.2,"GL",2,0,2)=""
^DD(358.2,"IX",.01)=""
^DD(358.2,"IX",.02)=""
^DD(358.2,"RQ",.01)=""
^DD(358.2,"RQ",.02)=""
^DD(358.2,"RQ",.07)=""
^DD(358.2,"RQ",.11)=""
^DD(358.2,"RQ",.12)=""
^DD(358.2,"SB",358.21,1)=""
^DD(358.2,"SB",358.22,2)=""
^DD(358.21,0)="LIST COLUMN SUB-FIELD^^.04^4"
^DD(358.21,0,"DT")="2930331"
^DD(358.21,0,"ID","WRITE")="D EN^DDIOL(""   COLUMN #""_$P($G(^(0)),U),"""",""?0"")"
^DD(358.21,0,"IX","B",358.21,.01)=""
^DD(358.21,0,"NM","LIST COLUMN")=""
^DD(358.21,0,"UP")="358.2"
^DD(358.21,.01,0)="LIST COLUMN NUMBER^MNJ1,0^^0;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.21,.01,1,0)="^.1"
^DD(358.21,.01,1,1,0)="358.21^B"
^DD(358.21,.01,1,1,1)="S ^IBE(358.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(358.21,.01,1,1,2)="K ^IBE(358.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(358.21,.01,3)="You can specify the position and height of up to 4 columns. Defaults will be used where needed."
^DD(358.21,.01,21,0)="^^2^2^2930722^^"
^DD(358.21,.01,21,1,0)="The order that the columns will be filled. Column 1 will first be filled"
^DD(358.21,.01,21,2,0)="with items, then column 2, etc."
^DD(358.21,.01,"DT")="2930802"
^DD(358.21,.02,0)="LIST COLUMN'S STARTING ROW^NJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.21,.02,.1)="WHAT ROW SHOULD THE LIST COLUMN START IN? (OPTIONAL)"
^DD(358.21,.02,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(358.21,.02,2.1)="S:+Y=Y Y=+Y+1"
^DD(358.21,.02,3)="What row should the column begin in?"
^DD(358.21,.02,21,0)="^^2^2^2930715^^^"
^DD(358.21,.02,21,1,0)="The row, relative to the block, that the column should begin in. This is"
^DD(358.21,.02,21,2,0)="optional, since default values can be used."
^DD(358.21,.02,23,0)="^^4^4^2930715^^"
^DD(358.21,.02,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.21,.02,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.21,.02,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.21,.02,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.21,.02,"DT")="2930802"
^DD(358.21,.03,0)="LIST COLUMN'S STARTING COLUMN^NJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.21,.03,.1)="WHAT BLOCK COLUMN SHOULD THE LIST COLUMN START IN? (OPTIONAL)"
^DD(358.21,.03,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(358.21,.03,2.1)="S:+Y=Y Y=+Y+1"
^DD(358.21,.03,3)="At what block column should the list column begin at? The first subcolumn of the list column will start one character to the right of this."
^DD(358.21,.03,21,0)="^^4^4^2940216^"
^DD(358.21,.03,21,1,0)=" "
^DD(358.21,.03,21,2,0)="The column (# of characters to the right) that the list column should"
^DD(358.21,.03,21,3,0)="begin in, relative to the block. It is optional, since a default value can"
^DD(358.21,.03,21,4,0)="be used."
^DD(358.21,.03,23,0)="^^4^4^2930715^"
^DD(358.21,.03,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.21,.03,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.21,.03,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.21,.03,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.21,.03,"DT")="2930930"
^DD(358.21,.04,0)="LIST COLUMN HEIGHT^NJ3,0^^0;4^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.21,.04,.1)="HOW MANY LINES HIGH SHOULD THE LIST COLUMN BE? (OPTIONAL)"
^DD(358.21,.04,3)="How many lines should the column cover?"
^DD(358.21,.04,21,0)="^^3^3^2930527^"
^DD(358.21,.04,21,1,0)=" "
^DD(358.21,.04,21,2,0)="The number of lines the column should occupy. This is optional - if not"
^DD(358.21,.04,21,3,0)="supplied the column will extend to the bottom of the block."
^DD(358.21,.04,"DT")="2930802"
^DD(358.21,"B","LIST COLUMN HEIGHT",.04)=""
^DD(358.21,"B","LIST COLUMN NUMBER",.01)=""
^DD(358.21,"B","LIST COLUMN'S STARTING COLUMN",.03)=""
^DD(358.21,"B","LIST COLUMN'S STARTING ROW",.02)=""
^DD(358.21,"GL",0,1,.01)=""
^DD(358.21,"GL",0,2,.02)=""
^DD(358.21,"GL",0,3,.03)=""
^DD(358.21,"GL",0,4,.04)=""
^DD(358.21,"IX",.01)=""
^DD(358.22,0)="SUBCOLUMN NUMBER SUB-FIELD^^.1^10"
^DD(358.22,0,"DT")="2960123"
^DD(358.22,0,"ID","WRITE")="D ID1^IBDFU5"
^DD(358.22,0,"IX","B",358.22,.01)=""
^DD(358.22,0,"NM","SUBCOLUMN NUMBER")=""
^DD(358.22,0,"UP")="358.2"
^DD(358.22,.01,0)="SUBCOLUMN NUMBER^MRNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N)!($D(^IBE(358.2,DA(1),2,""B"",X))) X"
^DD(358.22,.01,.1)="Number of the subcolumn, subcolumns being numbered 1-6, left-to-right"
^DD(358.22,.01,1,0)="^.1"
^DD(358.22,.01,1,1,0)="358.22^B"
^DD(358.22,.01,1,1,1)="S ^IBE(358.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(358.22,.01,1,1,2)="K ^IBE(358.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(358.22,.01,3)="The SUBCOLUMN NUMBER determines the order in which the subcolumns will display. There are at most 6 subcolumns, numbered 1-6."
^DD(358.22,.01,21,0)="^^2^2^2930527^"
^DD(358.22,.01,21,1,0)=" "
^DD(358.22,.01,21,2,0)="The order that the subcolumn will appear on the form."
^DD(358.22,.01,"DT")="2930413"
^DD(358.22,.02,0)="SUBCOLUMN HEADER^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(358.22,.02,.1)="WHAT TEXT SHOULD APPEAR AT THE TOP OF THE SUBCOLUMN?"
^DD(358.22,.02,3)="What text should appear at the top of the subcolumn?"
^DD(358.22,.02,21,0)="^^2^2^2930527^"
^DD(358.22,.02,21,1,0)=" "
^DD(358.22,.02,21,2,0)="The text that will appear at the top of the subcolumn."
^DD(358.22,.02,"DT")="2930414"
^DD(358.22,.03,0)="SUBCOLUMN WIDTH^NJ3,0^^0;3^K:+X'=X!(X>150)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.22,.03,.1)="HOW WIDE SHOULD THE SUBCOLUMN BE?"
^DD(358.22,.03,3)="How wide should the subcolumn be?"
^DD(358.22,.03,21,0)="^^3^3^2930527^"
^DD(358.22,.03,21,1,0)=" "
^DD(358.22,.03,21,2,0)="The width of the subcolumn. If the subcolumn contains a MARKING AREA then"
^DD(358.22,.03,21,3,0)="the width of the MARKING AREA overrides what ever this is."
^DD(358.22,.03,"DT")="2930414"
^DD(358.22,.04,0)="TYPE OF SUBCOLUMN^RS^1:TEXT;2:MARKING;^0;4^Q"
^DD(358.22,.04,.1)="SUBCOLUMN CONTAINS TEXT, OR FOR MARKING? (TEXT/MARKING)"
^DD(358.22,.04,3)="Enter '1' if the subcolumn will contain text, '2' if it will be for the user to mark his selections."
^DD(358.22,.04,21,0)="^^4^4^2930527^"
^DD(358.22,.04,21,1,0)=" "
^DD(358.22,.04,21,2,0)="The subcolumn can contain either text, derived from what is returned by"
^DD(358.22,.04,21,3,0)="the PACKAGE INTERFACE, or a MARKING AREA, which is meant to be written in"
^DD(358.22,.04,21,4,0)="to select an entry on the list."
^DD(358.22,.04,"DT")="2930428"
^DD(358.22,.05,0)="SUBCOLUMN'S DATA^NJ1,0X^^0;5^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N)!($P($G(^IBE(358.6,+$P($G(^IBE(358.2,DA(1),0)),U,11),2)),U,(2*X)-1)="""")!((X=1)&'$P($G(^IBE(358.6,+$P($G(^IBE(358.2,DA(1),0)),U,11),2)),U,17)) X"
^DD(358.22,.05,.1)="WHAT DATA SHOULD BE CONTAINED IN THE SUBCOLUMN?"
^DD(358.22,.05,3)="WHAT DATA SHOULD BE CONTAINED IN THE SUBCOLUMN?"
^DD(358.22,.05,4)="D HELP2^IBDFU5"
^DD(358.22,.05,21,0)="^^3^3^2940719^^"
^DD(358.22,.05,21,1,0)=" "
^DD(358.22,.05,21,2,0)="The Package Interface returns a record, which is composed of fields. This"
^DD(358.22,.05,21,3,0)="identifies which field goes in the subcolumn."
^DD(358.22,.05,"DT")="2940719"
^DD(358.22,.06,0)="MARKING AREA^P358.91'^IBE(358.91,^0;6^Q"
^DD(358.22,.06,.1)="TYPE OF MARKING AREA"
^DD(358.22,.06,3)="What type of marking area should appear in the subcolumn?"
^DD(358.22,.06,21,0)="^^2^2^2930527^"
^DD(358.22,.06,21,1,0)=" "
^DD(358.22,.06,21,2,0)="This identifies which MARKING AREA should go in the subcolumn."
^DD(358.22,.06,"DT")="2930414"
^DD(358.22,.07,0)="ALLOW EDITING OF TEXT?^S^0:NO;1:YES;^0;7^Q"
^DD(358.22,.07,.1)="ALLOW EDITING OF THE TEXT APPEARING IN THIS SUBCOLUMN? (YES/NO)"
^DD(358.22,.07,3)="Is it okey to edit the text appearing in this subcolumn?"
^DD(358.22,.07,21,0)="^^4^4^2930527^"
^DD(358.22,.07,21,1,0)=" "
^DD(358.22,.07,21,2,0)="This determines whether or not the user, when selecting items to appear on"
^DD(358.22,.07,21,3,0)="the list, will be able to edit the text appearing in the subcolum. This is"
^DD(358.22,.07,21,4,0)="ignored if the subcolumn contains a MARKING AREA."
^DD(358.22,.07,"DT")="2930428"
^DD(358.22,.08,0)="DO NOT UNDERLINE MARKING AREA?^S^0:NO;1:YES;^0;8^Q"
^DD(358.22,.08,3)="Enter YES if you do NOT want this subcolumn underlined."
^DD(358.22,.08,"DT")="2940607"
^DD(358.22,.09,0)="DATA QUALIFIER^P358.98'^IBD(358.98,^0;9^Q"
^DD(358.22,.09,"DT")="2941020"
^DD(358.22,.1,0)="SELECTION RULE^S^0:ANY NUMBER;1:EXACTLY ONE;2:AT MOST ONE (0 or 1);3:AT LEAST ONE (1 or more);^0;10^Q"
^DD(358.22,.1,3)="Which rule applies to the choices the user can make in this subcolumn?"
^DD(358.22,.1,21,0)="^^2^2^2960123^"
^DD(358.22,.1,21,1,0)="A selection rule can be applied to a subcolumn used to make selections,"
^DD(358.22,.1,21,2,0)="i.e., one that contains marking areas."
^DD(358.22,.1,"DT")="2960123"
^DD(358.22,"B","ALLOW EDITING OF TEXT?",.07)=""
^DD(358.22,"B","DATA QUALIFIER",.09)=""
^DD(358.22,"B","DO NOT UNDERLINE MARKING AREA?",.08)=""
^DD(358.22,"B","MARKING AREA",.06)=""
^DD(358.22,"B","SELECTION RULE",.1)=""
^DD(358.22,"B","SUBCOLUMN HEADER",.02)=""
^DD(358.22,"B","SUBCOLUMN NUMBER",.01)=""
^DD(358.22,"B","SUBCOLUMN WIDTH",.03)=""
^DD(358.22,"B","SUBCOLUMN'S DATA",.05)=""
^DD(358.22,"B","TYPE OF MARKING AREA",.06)="1"
^DD(358.22,"B","TYPE OF SUBCOLUMN",.04)=""
^DD(358.22,"GL",0,1,.01)=""
^DD(358.22,"GL",0,2,.02)=""
^DD(358.22,"GL",0,3,.03)=""
^DD(358.22,"GL",0,4,.04)=""
^DD(358.22,"GL",0,5,.05)=""
^DD(358.22,"GL",0,6,.06)=""
^DD(358.22,"GL",0,7,.07)=""
^DD(358.22,"GL",0,8,.08)=""
^DD(358.22,"GL",0,9,.09)=""
^DD(358.22,"GL",0,10,.1)=""
^DD(358.22,"IX",.01)=""
^DD(358.22,"RQ",.01)=""
^DD(358.22,"RQ",.04)=""
^DD(358.3,0)="FIELD^^3^15"
^DD(358.3,0,"DDA")="N"
^DD(358.3,0,"DT")="2961031"
^DD(358.3,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(358.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(358.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(358.3,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(358.4,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(358.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(358.3,0,"IX","APO",358.3,.03)=""
^DD(358.3,0,"IX","APO1",358.3,.04)=""
^DD(358.3,0,"IX","APO2",358.3,.05)=""
^DD(358.3,0,"IX","B",358.3,.01)=""
^DD(358.3,0,"IX","C",358.3,.03)=""
^DD(358.3,0,"IX","D",358.3,.04)=""
^DD(358.3,0,"NM","IMP/EXP SELECTION")=""
^DD(358.3,0,"VR")="3.0"
^DD(358.3,0,"VRPK")="IBD"
^DD(358.3,.01,0)="SELECTION ID^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(358.3,.01,1,0)="^.1"
^DD(358.3,.01,1,1,0)="358.3^B"
^DD(358.3,.01,1,1,1)="S ^IBE(358.3,""B"",$E(X,1,30),DA)="""""
^DD(358.3,.01,1,1,2)="K ^IBE(358.3,""B"",$E(X,1,30),DA)"
^DD(358.3,.01,3)="Answer must be 3-30 characters in length."
^DD(358.3,.01,21,0)="^^2^2^2930309^"
^DD(358.3,.01,21,1,0)=" "
^DD(358.3,.01,21,2,0)="The ID passed by the package."
^DD(358.3,.01,"DT")="2921119"
^DD(358.3,.02,0)="PLACE HOLDER ONLY^S^0:NO;1:YES;^0;2^Q"
^DD(358.3,.02,3)="Enter YES if this is a place holder, used to add some space to the list."
^DD(358.3,.02,"DT")="2950717"
^DD(358.3,.03,0)="SELECTION LIST^RP358.2'^IBE(358.2,^0;3^Q"
^DD(358.3,.03,1,0)="^.1"
^DD(358.3,.03,1,1,0)="358.3^C"
^DD(358.3,.03,1,1,1)="S ^IBE(358.3,""C"",$E(X,1,30),DA)="""""
^DD(358.3,.03,1,1,2)="K ^IBE(358.3,""C"",$E(X,1,30),DA)"
^DD(358.3,.03,1,1,"DT")="2921127"
^DD(358.3,.03,1,2,0)="358.3^APO^MUMPS"
^DD(358.3,.03,1,2,1)="I $P($G(^IBE(358.3,DA,0)),U,5)]"""",$P(^(0),U,4) S ^IBE(358.3,""APO"",X,$P(^(0),U,4),$P(^(0),U,5),DA)="""""
^DD(358.3,.03,1,2,2)="I $P($G(^IBE(358.3,DA,0)),U,5)]"""",$P(^(0),U,4) K ^IBE(358.3,""APO"",X,$P(^(0),U,4),$P(^(0),U,5),DA)"
^DD(358.3,.03,1,2,"DT")="2960403"
^DD(358.3,.03,21,0)="^^2^2^2921215^"
^DD(358.3,.03,21,1,0)=" "
^DD(358.3,.03,21,2,0)="Identifies the selection list that this selection belongs on."
^DD(358.3,.03,"DT")="2960403"
^DD(358.3,.04,0)="SELECTION GROUP^RP358.4^IBE(358.4,^0;4^Q"
^DD(358.3,.04,1,0)="^.1"
^DD(358.3,.04,1,1,0)="358.3^D"
^DD(358.3,.04,1,1,1)="S ^IBE(358.3,""D"",$E(X,1,30),DA)="""""
^DD(358.3,.04,1,1,2)="K ^IBE(358.3,""D"",$E(X,1,30),DA)"
^DD(358.3,.04,1,1,"DT")="2921221"
^DD(358.3,.04,1,2,0)="358.3^APO1^MUMPS"
^DD(358.3,.04,1,2,1)="I $P($G(^IBE(358.3,DA,0)),U,5)]"""",$P(^(0),U,3) S ^IBE(358.3,""APO"",$P(^(0),U,3),X,$P(^(0),U,5),DA)="""""
^DD(358.3,.04,1,2,2)="I $P($G(^IBE(358.3,DA,0)),U,5)]"""",$P(^(0),U,3) K ^IBE(358.3,""APO"",$P(^(0),U,3),X,$P(^(0),U,5),DA)"
^DD(358.3,.04,1,2,"DT")="2960403"
^DD(358.3,.04,3)="Entries on a list are grouped under group headers - under which header should this entry appear?"
^DD(358.3,.04,21,0)="^^3^3^2930607^"
^DD(358.3,.04,21,1,0)=" "
^DD(358.3,.04,21,2,0)="The SELECTION GROUP that the selection belongs to.The selection will"
^DD(358.3,.04,21,3,0)="appear under the group header on the form."
^DD(358.3,.04,"DT")="2960403"
^DD(358.3,.05,0)="PRINT ORDER WITHIN GROUP^RNJ6,2^^0;5^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(358.3,.05,1,0)="^.1"
^DD(358.3,.05,1,1,0)="358.3^APO2^MUMPS"
^DD(358.3,.05,1,1,1)="I $P($G(^IBE(358.3,DA,0)),U,3),$P(^(0),U,4) S ^IBE(358.3,""APO"",$P(^(0),U,3),$P(^(0),U,4),X,DA)="""""
^DD(358.3,.05,1,1,2)="I $P(^IBE(358.3,DA,0),U,3),$P(^(0),U,4) K ^IBE(358.3,""APO"",$P(^(0),U,3),$P(^(0),U,4),X,DA)"
^DD(358.3,.05,1,1,"DT")="2960403"
^DD(358.3,.05,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(358.3,.05,21,0)="^^2^2^2921229^^^^"
^DD(358.3,.05,21,1,0)="Determines the order that this selection entry will appear in under the"
^DD(358.3,.05,21,2,0)="header for the selection group."
^DD(358.3,.05,"DT")="2960403"
^DD(358.3,.06,0)="PLACE HOLDER TEXT^F^^0;6^K:$L(X)>75!($L(X)<1) X"
^DD(358.3,.06,3)="What text should be displayed for the place holder?"
^DD(358.3,.06,"DT")="2950717"
^DD(358.3,.07,0)="USE AS PLACE HOLDER^S^0:NO;1:YES;^0;7^Q"
^DD(358.3,.07,3)="Does the place holder serve as a subheader?"
^DD(358.3,.07,21,0)="^^2^2^2950928^"
^DD(358.3,.07,21,1,0)="If the place holder is being used as a subheader its text should be"
^DD(358.3,.07,21,2,0)="included with the narrative. This field implements that."
^DD(358.3,.07,"DT")="2950928"
^DD(358.3,.08,0)="END USE AS SUBHEADER?^S^0:NO;1:YES;^0;8^Q"
^DD(358.3,.08,3)="Should the prior subheader be discarded?"
^DD(358.3,.08,21,0)="^^2^2^2951002^"
^DD(358.3,.08,21,1,0)="This field is used to end the use of any prior subheader that is in"
^DD(358.3,.08,21,2,0)="effect. Applies only to selections defined to be place holders."
^DD(358.3,.08,"DT")="2951002"
^DD(358.3,.09,0)="QUANTITY^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.3,.09,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(358.3,.09,21,0)="^^3^3^2961031^"
^DD(358.3,.09,21,1,0)="This field contains the number of occurrences for a particular selection."
^DD(358.3,.09,21,2,0)="A value placed in this field will be passed to PCE as the quantity."
^DD(358.3,.09,21,3,0)="Presently, the quantity field will only be asked for CPT codes."
^DD(358.3,.09,"DT")="2961031"
^DD(358.3,1,0)="SUBCOLUMN VALUE^358.31IA^^1;0"
^DD(358.3,1,21,0)="^^3^3^2930527^"
^DD(358.3,1,21,1,0)=" "
^DD(358.3,1,21,2,0)="The selection can be composed of multiple fields. Each field occupies its"
^DD(358.3,1,21,3,0)="own subcolumn on the form."
^DD(358.3,2.01,0)="NARRATIVE TO SEND TO PCE^F^^2;1^K:$L(X)>150!($L(X)<1) X"
^DD(358.3,2.01,3)="Enter the narrative to send to PCE if a provider narrative different from the description is desired.  Answer must be 3-80 characters in length."
^DD(358.3,2.01,21,0)="^^6^6^2960123^"
^DD(358.3,2.01,21,1,0)="Enter the narrative that should be sent to PCE when this selection is"
^DD(358.3,2.01,21,2,0)="scanned.  This will be the provider narrative that is shown in PCE and"
^DD(358.3,2.01,21,3,0)="Problem List.  If there is no entry in this field the text as it appears"
^DD(358.3,2.01,21,4,0)="on the form will be sent as the narrative.  This field can only be"
^DD(358.3,2.01,21,5,0)="entered for the type of interfaces that allow adding this narrative,"
^DD(358.3,2.01,21,6,0)="and then send the narrative to PCE."
^DD(358.3,2.01,"DT")="2960123"
^DD(358.3,2.02,0)="CLINICAL LEXICON ENTRY^P757.01'^LEX(757.01,^2;2^Q"
^DD(358.3,2.02,21,0)="^^5^5^2960131^"
^DD(358.3,2.02,21,1,0)="This is the clinical lexicon entry this term should be associated with."
^DD(358.3,2.02,21,2,0)="Generally this is only completed for selections based on diagnosis."
^DD(358.3,2.02,21,3,0)="The clinical lexicon entry will be passed to pce when this selection is"
^DD(358.3,2.02,21,4,0)="scanned.  This allows maintaining the patient problem list associated "
^DD(358.3,2.02,21,5,0)="with clinical terms."
^DD(358.3,2.02,"DT")="2960131"
^DD(358.3,2.03,0)="SECOND CODE^F^^2;3^K:$L(X)>10!($L(X)<1) X"
^DD(358.3,2.03,3)="Answer must be 1-10 characters in length."
^DD(358.3,2.03,21,0)="^^1^1^2961031^"
^DD(358.3,2.03,21,1,0)="Used to send additional codes along when one entry is bubbled."
^DD(358.3,2.03,"DT")="2961031"
^DD(358.3,2.04,0)="THIRD CODE^F^^2;4^K:$L(X)>10!($L(X)<1) X"
^DD(358.3,2.04,3)="Answer must be 1-10 characters in length."
^DD(358.3,2.04,21,0)="^^1^1^2961031^"
^DD(358.3,2.04,21,1,0)="Answer must be 1-10 characters in length."
^DD(358.3,2.04,"DT")="2961031"
^DD(358.3,3,0)="CPT MODIFIER^358.33^^3;0"
^DD(358.3,3,21,0)="^^2^2^3000121^"
^DD(358.3,3,21,1,0)="CPT Modifier multiple - entries will be associated with selection."
^DD(358.3,3,21,2,0)="Only used when selection is a CPT Code."
^DD(358.3,"B","CLINICAL LEXICON ENTRY",2.02)=""
^DD(358.3,"B","CPT MODIFIER",3)=""
^DD(358.3,"B","END USE AS SUBHEADER?",.08)=""
^DD(358.3,"B","NARRATIVE TO SEND TO PCE",2.01)=""
^DD(358.3,"B","PLACE HOLDER ONLY",.02)=""
^DD(358.3,"B","PLACE HOLDER TEXT",.06)=""
^DD(358.3,"B","PRINT ORDER WITHIN GROUP",.05)=""
^DD(358.3,"B","QUANTITY",.09)=""
^DD(358.3,"B","SECOND CODE",2.03)=""
^DD(358.3,"B","SELECTION GROUP",.04)=""
^DD(358.3,"B","SELECTION ID",.01)=""
^DD(358.3,"B","SELECTION LIST",.03)=""
^DD(358.3,"B","SUBCOLUMN VALUE",1)=""
^DD(358.3,"B","THIRD CODE",2.04)=""
^DD(358.3,"B","USE AS PLACE HOLDER",.07)=""
^DD(358.3,"GL",0,1,.01)=""
^DD(358.3,"GL",0,2,.02)=""
^DD(358.3,"GL",0,3,.03)=""
^DD(358.3,"GL",0,4,.04)=""
^DD(358.3,"GL",0,5,.05)=""
^DD(358.3,"GL",0,6,.06)=""
^DD(358.3,"GL",0,7,.07)=""
^DD(358.3,"GL",0,8,.08)=""
^DD(358.3,"GL",0,9,.09)=""
^DD(358.3,"GL",1,0,1)=""
^DD(358.3,"GL",2,1,2.01)=""
^DD(358.3,"GL",2,2,2.02)=""
^DD(358.3,"GL",2,3,2.03)=""
^DD(358.3,"GL",2,4,2.04)=""
^DD(358.3,"GL",3,0,3)=""
^DD(358.3,"IX",.01)=""
^DD(358.3,"IX",.03)=""
^DD(358.3,"IX",.04)=""
^DD(358.3,"IX",.05)=""
^DD(358.3,"RQ",.01)=""
^DD(358.3,"RQ",.03)=""
^DD(358.3,"RQ",.04)=""
^DD(358.3,"RQ",.05)=""
^DD(358.3,"SB",358.31,1)=""
^DD(358.3,"SB",358.33,3)=""
^DD(358.31,0)="SUBCOLUMN VALUE SUB-FIELD^^.02^2"
^DD(358.31,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(358.31,0,"IX","B",358.31,.01)=""
^DD(358.31,0,"NM","SUBCOLUMN VALUE")=""
^DD(358.31,0,"UP")="358.3"
^DD(358.31,.01,0)="SUBCOLUMN NUMBER^MRNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N)!($D(^IBE(358.3,DA(1),1,""B"",X))) X"
^DD(358.31,.01,1,0)="^.1"
^DD(358.31,.01,1,1,0)="358.31^B"
^DD(358.31,.01,1,1,1)="S ^IBE(358.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(358.31,.01,1,1,2)="K ^IBE(358.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(358.31,.01,3)="Which subcolumn is the value for?"
^DD(358.31,.01,21,0)="^^2^2^2930527^"
^DD(358.31,.01,21,1,0)=" "
^DD(358.31,.01,21,2,0)="The order that the subcolumn should appear on the form."
^DD(358.31,.01,"DT")="2930402"
^DD(358.31,.02,0)="SUBCOLUMN VALUE^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(358.31,.02,3)="What value should go in the subcolumn?"
^DD(358.31,.02,21,0)="^^2^2^2930527^"
^DD(358.31,.02,21,1,0)=" "
^DD(358.31,.02,21,2,0)="The text that should appear in the subcolumn."
^DD(358.31,.02,"DT")="2930401"
^DD(358.31,"B","SUBCOLUMN NUMBER",.01)=""
^DD(358.31,"B","SUBCOLUMN VALUE",.02)=""
^DD(358.31,"GL",0,1,.01)=""
^DD(358.31,"GL",0,2,.02)=""
^DD(358.31,"IX",.01)=""
^DD(358.31,"RQ",.01)=""
^DD(358.33,0)="CPT MODIFIER SUB-FIELD^^1^2"
^DD(358.33,0,"DT")="2990920"
^DD(358.33,0,"IX","B",358.33,.01)=""
^DD(358.33,0,"NM","CPT MODIFIER")=""
^DD(358.33,0,"UP")="358.3"
^DD(358.33,.01,0)="CPT MODIFIER^MFX^^0;1^D MOD^IBDF4C K:$L(X)>2!($L(X)<2) X"
^DD(358.33,.01,1,0)="^.1"
^DD(358.33,.01,1,1,0)="358.33^B"
^DD(358.33,.01,1,1,1)="S ^IBE(358.3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(358.33,.01,1,1,2)="K ^IBE(358.3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(358.33,.01,3)="Answer must be 2 characters in length.  This field is related to the CPT MODIFIER file."
^DD(358.33,.01,4)="D LOOKUP^IBDF4C"
^DD(358.33,.01,21,0)="^^1^1^3000121^"
^DD(358.33,.01,21,1,0)="2 character CPT Modifier Code"
^DD(358.33,.01,"DT")="2990920"
^DD(358.33,1,0)="NAME^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(358.33,1,3)="Answer must be 3-30 characters in length."
^DD(358.33,1,21,0)="^^1^1^3000121^"
^DD(358.33,1,21,1,0)="Description (name) of the CPT Modifier"
^DD(358.33,1,"DT")="2990920"
^DD(358.33,"B","CPT MODIFIER",.01)=""
^DD(358.33,"B","NAME",1)=""
^DD(358.33,"GL",0,1,.01)=""
^DD(358.33,"GL",0,2,1)=""
^DD(358.33,"IX",.01)=""
^DD(358.4,0)="FIELD^^.04^4"
^DD(358.4,0,"DDA")="N"
^DD(358.4,0,"DT")="2950717"
^DD(358.4,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(358.4,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(358.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(358.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(358.4,0,"IX","APO",358.4,.02)=""
^DD(358.4,0,"IX","APO1",358.4,.03)=""
^DD(358.4,0,"IX","B",358.4,.01)=""
^DD(358.4,0,"IX","D",358.4,.03)=""
^DD(358.4,0,"NM","IMP/EXP SELECTION GROUP")=""
^DD(358.4,0,"PT",358.3,.04)=""
^DD(358.4,0,"VR")="3.0"
^DD(358.4,0,"VRPK")="IBD"
^DD(358.4,.01,0)="HEADER^RF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(358.4,.01,1,0)="^.1"
^DD(358.4,.01,1,1,0)="358.4^B"
^DD(358.4,.01,1,1,1)="S ^IBE(358.4,""B"",$E(X,1,30),DA)="""""
^DD(358.4,.01,1,1,2)="K ^IBE(358.4,""B"",$E(X,1,30),DA)"
^DD(358.4,.01,3)="What text do you want to appear at the top of this group?"
^DD(358.4,.01,21,0)="^^2^2^2930604^^^^"
^DD(358.4,.01,21,1,0)=" "
^DD(358.4,.01,21,2,0)="The name given to a group of selections appearing on a selection list."
^DD(358.4,.01,"DEL",1,0)="I '$G(IBLISTPR) W ""...Selection Groups can only be deleted through the Encounter Form Utilities!"""
^DD(358.4,.01,"DT")="2930604"
^DD(358.4,.02,0)="PRINT ORDER^RNJ5,2^^0;2^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(358.4,.02,1,0)="^.1"
^DD(358.4,.02,1,1,0)="358.4^APO^MUMPS"
^DD(358.4,.02,1,1,1)="I $P($G(^IBE(358.4,DA,0)),U,3) S ^IBE(358.4,""APO"",$P(^(0),U,3),X,DA)="""""
^DD(358.4,.02,1,1,2)="I $P($G(^IBE(358.4,DA,0)),U,3) K ^IBE(358.4,""APO"",$P(^(0),U,3),X,DA)"
^DD(358.4,.02,1,1,"DT")="2960403"
^DD(358.4,.02,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(358.4,.02,21,0)="^^5^5^2921222^^^^"
^DD(358.4,.02,21,1,0)=" "
^DD(358.4,.02,21,2,0)="This will define the order that a group of selections will appear in as"
^DD(358.4,.02,21,3,0)="compared to the other groups of selections."
^DD(358.4,.02,21,4,0)="A group header ""BLANK"" will be created by default with order number 0."
^DD(358.4,.02,"DT")="2960403"
^DD(358.4,.03,0)="SELECTION LIST^RP358.2'^IBE(358.2,^0;3^Q"
^DD(358.4,.03,1,0)="^.1"
^DD(358.4,.03,1,1,0)="358.4^D"
^DD(358.4,.03,1,1,1)="S ^IBE(358.4,""D"",$E(X,1,30),DA)="""""
^DD(358.4,.03,1,1,2)="K ^IBE(358.4,""D"",$E(X,1,30),DA)"
^DD(358.4,.03,1,1,"%D",0)="^^1^1^2921218^"
^DD(358.4,.03,1,1,"%D",1,0)="Used to find all the groups belonging to a selection list."
^DD(358.4,.03,1,1,"DT")="2921218"
^DD(358.4,.03,1,2,0)="358.4^APO1^MUMPS"
^DD(358.4,.03,1,2,1)="I $P($G(^IBE(358.4,DA,0)),U,2)]"""" S ^IBE(358.4,""APO"",X,$P(^(0),U,2),DA)="""""
^DD(358.4,.03,1,2,2)="I $P($G(^IBE(358.4,DA,0)),U,2)]"""" K ^IBE(358.4,""APO"",X,$P(^(0),U,2),DA)"
^DD(358.4,.03,1,2,"DT")="2960403"
^DD(358.4,.03,3)="This identifies the selection list that contains this group."
^DD(358.4,.03,21,0)="^^2^2^2930527^"
^DD(358.4,.03,21,1,0)=" "
^DD(358.4,.03,21,2,0)="The Selection List this group belongs to."
^DD(358.4,.03,"DT")="2960403"
^DD(358.4,.04,0)="INVISIBLE^S^I:INVISIBLE;^0;4^Q"
^DD(358.4,.04,3)="If you do not want the header to print, enter 'I'."
^DD(358.4,.04,"DT")="2950717"
^DD(358.4,"B","HEADER",.01)=""
^DD(358.4,"B","INVISIBLE",.04)=""
^DD(358.4,"B","PRINT ORDER",.02)=""
^DD(358.4,"B","SELECTION LIST",.03)=""
^DD(358.4,"GL",0,1,.01)=""
^DD(358.4,"GL",0,2,.02)=""
^DD(358.4,"GL",0,3,.03)=""
^DD(358.4,"GL",0,4,.04)=""
^DD(358.4,"IX",.01)=""
^DD(358.4,"IX",.02)=""
^DD(358.4,"IX",.03)=""
^DD(358.4,"RQ",.01)=""
^DD(358.4,"RQ",.02)=""
^DD(358.4,"RQ",.03)=""
^DD(358.5,0)="FIELD^^2^13"
^DD(358.5,0,"DDA")="N"
^DD(358.5,0,"DT")="2930730"
^DD(358.5,0,"ID",.02)="W """""
^DD(358.5,0,"ID",.03)="W """""
^DD(358.5,0,"IX","B",358.5,.01)=""
^DD(358.5,0,"IX","C",358.5,.02)=""
^DD(358.5,0,"NM","IMP/EXP DATA FIELD")=""
^DD(358.5,0,"VR")="3.0"
^DD(358.5,0,"VRPK")="IBD"
^DD(358.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(358.5,.01,1,0)="^.1"
^DD(358.5,.01,1,1,0)="358.5^B"
^DD(358.5,.01,1,1,1)="S ^IBE(358.5,""B"",$E(X,1,30),DA)="""""
^DD(358.5,.01,1,1,2)="K ^IBE(358.5,""B"",$E(X,1,30),DA)"
^DD(358.5,.01,3)="Answer must be 3-30 characters in length."
^DD(358.5,.01,21,0)="^^3^3^2930419^^^"
^DD(358.5,.01,21,1,0)=" "
^DD(358.5,.01,21,2,0)="The name is used to identify the field within a block. It can be anything"
^DD(358.5,.01,21,3,0)="the designer of a form wants it to be."
^DD(358.5,.01,"DT")="2930419"
^DD(358.5,.02,0)="BLOCK^RP358.1'^IBE(358.1,^0;2^Q"
^DD(358.5,.02,1,0)="^.1"
^DD(358.5,.02,1,1,0)="358.5^C"
^DD(358.5,.02,1,1,1)="S ^IBE(358.5,""C"",$E(X,1,30),DA)="""""
^DD(358.5,.02,1,1,2)="K ^IBE(358.5,""C"",$E(X,1,30),DA)"
^DD(358.5,.02,1,1,"DT")="2921118"
^DD(358.5,.02,3)="What block should this data field appear in?"
^DD(358.5,.02,21,0)="^^2^2^2930310^"
^DD(358.5,.02,21,1,0)=" "
^DD(358.5,.02,21,2,0)="The particular block the data field should appear in."
^DD(358.5,.02,"DT")="2921118"
^DD(358.5,.03,0)="TYPE OF DATA^*P358.6'^IBE(358.6,^0;3^S DIC(""S"")=""I $P(^(0),U,6)=2,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.5,.03,3)="What data should be displayed in this field?"
^DD(358.5,.03,4)=""
^DD(358.5,.03,12)="Allows only available output routines"
^DD(358.5,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=2,$P(^(0),U,9)=1"""
^DD(358.5,.03,21,0)="^^5^5^2930409^^"
^DD(358.5,.03,21,1,0)=" "
^DD(358.5,.03,21,2,0)="The particular interface that should be invoked to obtain the data for"
^DD(358.5,.03,21,3,0)="display. Some of the interfaces don't actually return data, but are"
^DD(358.5,.03,21,4,0)="instead 'dummy' interfaces for the purpose of printing things like blank"
^DD(358.5,.03,21,5,0)="lines."
^DD(358.5,.03,"DT")="2930309"
^DD(358.5,.04,0)="LAST ITEM INDICATOR^S^1:YES;0:NO;^0;4^Q"
^DD(358.5,.04,.1)="IS THIS THE LAST ONE THAT WILL FIT ON THE FORM?"
^DD(358.5,.04,3)=""
^DD(358.5,.04,4)="W ""Enter YES if this is the last item that should print, else enter NO."""
^DD(358.5,.04,21,0)="^^4^4^2930408^^^^"
^DD(358.5,.04,21,1,0)=" "
^DD(358.5,.04,21,2,0)="This field is used to indicate which item on a list is the last to be"
^DD(358.5,.04,21,3,0)="printed to the form. The remaining items can be printed to a separate"
^DD(358.5,.04,21,4,0)="piece of paper."
^DD(358.5,.04,"DT")="2930413"
^DD(358.5,.05,0)="NUMBER ON LIST^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.5,.05,.1)="WHICH ITEM ON THE LIST SHOULD BE DISPLAYED IN THIS FIELD?"
^DD(358.5,.05,3)="The data is a list of items. Which item on the list should be displayed?"
^DD(358.5,.05,21,0)="^^1^1^2930607^"
^DD(358.5,.05,21,1,0)="For data returned by the package interface that is in the form of a list, this field indicates which one of the items on the list should be displayed to this field."
^DD(358.5,.05,"DT")="2930413"
^DD(358.5,.06,0)="TEXT LABEL^F^^0;6^K:$L(X)>150!($L(X)<1) X"
^DD(358.5,.06,.1)="WHAT LABEL SHOULD BEGIN THE TEXT (OPTIONAL)"
^DD(358.5,.06,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.5,.06,2.1)="S Y=+Y+1"
^DD(358.5,.06,3)="You can optionally begin the text with a label of your choice."
^DD(358.5,.06,21,0)="^^2^2^2930527^"
^DD(358.5,.06,21,1,0)=" "
^DD(358.5,.06,21,2,0)="The label that should precede the text."
^DD(358.5,.06,"DT")="2930825"
^DD(358.5,.07,0)="TEXT LABEL APPEARANCE^FX^^0;7^S X=$$UPPER^VALM1(X) K:$L(X)>3!(""UBR""'[$E(X,1))!(""UBR""'[$E(X,2))!(""UBR""'[$E(X,3)) X"
^DD(358.5,.07,.1)="HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {B,U,R}"
^DD(358.5,.07,3)="B=bold,U=underline,R=reverse. You can enter BU to make the label bold and underlined."
^DD(358.5,.07,21,0)="^^3^3^2940527^^^"
^DD(358.5,.07,21,1,0)=" "
^DD(358.5,.07,21,2,0)="The label can have characteristics, such as being underlined or"
^DD(358.5,.07,21,3,0)="emboldened."
^DD(358.5,.07,"DT")="2940527"
^DD(358.5,.1,0)="TEXT STARTING COLUMN^NJ3,0XO^^0;10^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.5,.1,.1)="WHAT BLOCK COLUMN SHOULD THE TEXT START AT?"
^DD(358.5,.1,2)="S:Y=+Y Y=Y+1"
^DD(358.5,.1,2.1)="S Y=+Y+1"
^DD(358.5,.1,3)="What block column should the text start at?"
^DD(358.5,.1,21,0)="^^2^2^2930715^^"
^DD(358.5,.1,21,1,0)="This field determines what column the text should begin in."
^DD(358.5,.1,21,2,0)="Applies only if the Package Interface returns a word-processing field."
^DD(358.5,.1,23,0)="^^4^4^2930715^"
^DD(358.5,.1,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.5,.1,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.5,.1,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.5,.1,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.5,.1,"DT")="2940527"
^DD(358.5,.11,0)="TEXT STARTING ROW^NJ3,0XO^^0;11^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.5,.11,.1)="WHAT BLOCK ROW SHOULD THE TEXT START AT?"
^DD(358.5,.11,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(358.5,.11,2.1)="S:Y=+Y Y=Y+1"
^DD(358.5,.11,3)="What block row should the text begin in?"
^DD(358.5,.11,21,0)="^^4^4^2930715^^"
^DD(358.5,.11,21,1,0)=" "
^DD(358.5,.11,21,2,0)="Determines which line on the form, relative to the block, the text area"
^DD(358.5,.11,21,3,0)="should begin at. Only applies if the package interface returns a"
^DD(358.5,.11,21,4,0)="word-processing field."
^DD(358.5,.11,23,0)="^^4^4^2930715^"
^DD(358.5,.11,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.5,.11,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.5,.11,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.5,.11,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.5,.11,"DT")="2940527"
^DD(358.5,.12,0)="NUMBER OF FORM LINES FOR TEXT^NJ3,0^^0;12^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.5,.12,.1)="HOW MANY LINES OF THE FORM SHOULD BE ALLOCATED FOR THE TEXT?"
^DD(358.5,.12,3)="How many lines of the form should be allocated for the text?"
^DD(358.5,.12,21,0)="^^2^2^2930527^"
^DD(358.5,.12,21,1,0)=" "
^DD(358.5,.12,21,2,0)="The number of lines on the form that should be allocated for the text."
^DD(358.5,.12,"DT")="2930414"
^DD(358.5,.13,0)="SPACING OF TEXT LINES^S^1:SINGLE SPACED;2:DOUBLE SPACED;3:SINGLE, BUT DOUBLE IF BLANK;^0;13^Q"
^DD(358.5,.13,.1)="HOW SHOULD THE TEXT LINES BE SPACED?"
^DD(358.5,.13,3)="How do you want the text lines to be spaced?"
^DD(358.5,.13,21,0)="^^2^2^2930527^"
^DD(358.5,.13,21,1,0)=" "
^DD(358.5,.13,21,2,0)="Determines the spacing between lines of text."
^DD(358.5,.13,"DT")="2930414"
^DD(358.5,.14,0)="WIDTH OF TEXT LINES^NJ3,0^^0;14^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.5,.14,.1)="HOW MANY CHARACTERS ACROSS SHOULD THE TEXT LINES BE?"
^DD(358.5,.14,3)="How many columns wide do you want the text?"
^DD(358.5,.14,21,0)="^^2^2^2930527^"
^DD(358.5,.14,21,1,0)=" "
^DD(358.5,.14,21,2,0)="Determines how many characters across should be allocated to the text."
^DD(358.5,.14,"DT")="2930414"
^DD(358.5,2,0)="SUBFIELD^358.52I^^2;0"
^DD(358.5,2,21,0)="^^2^2^2940816^^^^"
^DD(358.5,2,21,1,0)="A data field can be composed of multiple subfields. Each subfield can have"
^DD(358.5,2,21,2,0)="a label and data."
^DD(358.5,2,"DT")="2930323"
^DD(358.5,"B","BLOCK",.02)=""
^DD(358.5,"B","LAST ITEM INDICATOR",.04)=""
^DD(358.5,"B","NAME",.01)=""
^DD(358.5,"B","NUMBER OF FORM LINES FOR TEXT",.12)=""
^DD(358.5,"B","NUMBER ON LIST",.05)=""
^DD(358.5,"B","SPACING OF TEXT LINES",.13)=""
^DD(358.5,"B","SUBFIELD",2)=""
^DD(358.5,"B","TEXT LABEL",.06)=""
^DD(358.5,"B","TEXT LABEL APPEARANCE",.07)=""
^DD(358.5,"B","TEXT STARTING COLUMN",.1)=""
^DD(358.5,"B","TEXT STARTING ROW",.11)=""
^DD(358.5,"B","TYPE OF DATA",.03)=""
^DD(358.5,"B","WIDTH OF TEXT LINES",.14)=""
^DD(358.5,"GL",0,1,.01)=""
^DD(358.5,"GL",0,2,.02)=""
^DD(358.5,"GL",0,3,.03)=""
^DD(358.5,"GL",0,4,.04)=""
^DD(358.5,"GL",0,5,.05)=""
^DD(358.5,"GL",0,6,.06)=""
^DD(358.5,"GL",0,7,.07)=""
^DD(358.5,"GL",0,10,.1)=""
^DD(358.5,"GL",0,11,.11)=""
^DD(358.5,"GL",0,12,.12)=""
^DD(358.5,"GL",0,13,.13)=""
^DD(358.5,"GL",0,14,.14)=""
^DD(358.5,"GL",2,0,2)=""
^DD(358.5,"IX",.01)=""
^DD(358.5,"IX",.02)=""
^DD(358.5,"RQ",.01)=""
^DD(358.5,"RQ",.02)=""
^DD(358.5,"SB",358.52,2)=""
^DD(358.52,0)="SUBFIELD SUB-FIELD^^.09^8"
^DD(358.52,0,"DIK")="IBXF5"
^DD(358.52,0,"DT")="2930730"
^DD(358.52,0,"IX","B",358.52,.01)=""
^DD(358.52,0,"NM","SUBFIELD")=""
^DD(358.52,0,"UP")="358.5"
^DD(358.52,.01,0)="SUBFIELD LABEL^MF^^0;1^K:$L(X)>150!($L(X)<1) X"
^DD(358.52,.01,1,0)="^.1"
^DD(358.52,.01,1,1,0)="358.52^B"
^DD(358.52,.01,1,1,1)="S ^IBE(358.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(358.52,.01,1,1,2)="K ^IBE(358.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(358.52,.01,3)="What should the subfield be named? The label will print unless it is made invisible."
^DD(358.52,.01,4)=""
^DD(358.52,.01,21,0)="^^3^3^2931020^^^^"
^DD(358.52,.01,21,1,0)=" "
^DD(358.52,.01,21,2,0)="The name of the subfield. The label prints to the form unless it is made"
^DD(358.52,.01,21,3,0)="invisible."
^DD(358.52,.01,"DT")="2930730"
^DD(358.52,.03,0)="SUBFIELD LABEL APPEARANCE^FX^^0;3^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""UBRI""'[$E(X,1))!(""UBRI""'[$E(X,2))!(""UBRI""'[$E(X,3))!(""UBRI""'[$E(X,4)) X"
^DD(358.52,.03,.1)="HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {U,B,R,I}"
^DD(358.52,.03,3)="B=bold,U=underline,R=reverse,I=invisible You can enter any combination of {B,U,R,I}. The label will not print if it is made invisible."
^DD(358.52,.03,4)=""
^DD(358.52,.03,21,0)="^^4^4^2940526^^^"
^DD(358.52,.03,21,1,0)=" "
^DD(358.52,.03,21,2,0)="The label can be made bold, underlined, or invisible. It can also be printed"
^DD(358.52,.03,21,3,0)=" in reverse, i.e., white on black. This field determines which of those"
^DD(358.52,.03,21,4,0)=" characteristics apply."
^DD(358.52,.03,"DT")="2940816"
^DD(358.52,.04,0)="STARTING COLUMN FOR LABEL^NJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.52,.04,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(358.52,.04,2.1)="S:Y=+Y Y=Y+1"
^DD(358.52,.04,3)="What block column should the label start in?"
^DD(358.52,.04,21,0)="^^2^2^2930715^^"
^DD(358.52,.04,21,1,0)=" "
^DD(358.52,.04,21,2,0)="The column, relative to the block, that the label should start at."
^DD(358.52,.04,23,0)="^^4^4^2930715^"
^DD(358.52,.04,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.52,.04,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.52,.04,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.52,.04,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.52,.04,"DT")="2930617"
^DD(358.52,.05,0)="STARTING ROW FOR LABEL^NJ3,0XO^^0;5^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.52,.05,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(358.52,.05,2.1)="S:Y=+Y Y=Y+1"
^DD(358.52,.05,3)="What block row should the label start in?"
^DD(358.52,.05,21,0)="^^2^2^2930608^"
^DD(358.52,.05,21,1,0)=" "
^DD(358.52,.05,21,2,0)="The row the label should be printed on."
^DD(358.52,.05,23,0)="^^4^4^2930715^"
^DD(358.52,.05,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.52,.05,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.52,.05,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.52,.05,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.52,.05,"DT")="2930617"
^DD(358.52,.06,0)="STARTING ROW FOR DATA^NJ3,0XO^^0;6^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.52,.06,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(358.52,.06,2.1)="S:Y=+Y Y=Y+1"
^DD(358.52,.06,3)="What block row should the data begin in?"
^DD(358.52,.06,21,0)="^^2^2^2930715^^"
^DD(358.52,.06,21,1,0)=" "
^DD(358.52,.06,21,2,0)="The row, relative to the block, that the data should print on."
^DD(358.52,.06,23,0)="^^4^4^2930715^^"
^DD(358.52,.06,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.52,.06,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.52,.06,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.52,.06,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.52,.06,"DT")="2930617"
^DD(358.52,.07,0)="STARTING COLUMN FOR DATA^NJ3,0XO^^0;7^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.52,.07,2)="S Y(0)=Y S:Y=+Y Y=Y+1"
^DD(358.52,.07,2.1)="S:Y=+Y Y=Y+1"
^DD(358.52,.07,3)="What block column should the data begin in?"
^DD(358.52,.07,21,0)="^^2^2^2930608^"
^DD(358.52,.07,21,1,0)=" "
^DD(358.52,.07,21,2,0)="The column, relative to the block, that the data should print on."
^DD(358.52,.07,23,0)="^^4^4^2930715^"
^DD(358.52,.07,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.52,.07,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.52,.07,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.52,.07,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.52,.07,"DT")="2930617"
^DD(358.52,.08,0)="LENGTH OF DATA^NJ3,0^^0;8^K:+X'=X!(X>150)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.52,.08,3)="How much space on the line should be allocated for the information to be displayed?"
^DD(358.52,.08,21,0)="^^3^3^2930527^"
^DD(358.52,.08,21,1,0)=" "
^DD(358.52,.08,21,2,0)="The amount of space, in terms of characters, that should be allocated"
^DD(358.52,.08,21,3,0)="to the data."
^DD(358.52,.08,"DT")="2930322"
^DD(358.52,.09,0)="DATA^NJ1,0X^^0;9^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N)!($P($G(^IBE(358.6,+$P($G(^IBE(358.5,DA(1),0)),U,3),2)),U,(2*X)-1)="""") X"
^DD(358.52,.09,.1)="WHAT DATA SHOULD BE DISPLAYED IN THIS SUBFIELD?"
^DD(358.52,.09,3)="WHAT DATA SHOULD BE DISPLAYED IN THIS SUBFIELD?"
^DD(358.52,.09,4)="D HELP1^IBDFU5"
^DD(358.52,.09,21,0)="^^4^4^2930527^"
^DD(358.52,.09,21,1,0)=" "
^DD(358.52,.09,21,2,0)="The package interface returns a record that may be composed of multiple"
^DD(358.52,.09,21,3,0)="fields. This identifies which of those fields should appear in this"
^DD(358.52,.09,21,4,0)="subfield."
^DD(358.52,.09,"DT")="2930526"
^DD(358.52,"B","DATA",.09)=""
^DD(358.52,"B","LENGTH OF DATA",.08)=""
^DD(358.52,"B","STARTING COLUMN FOR DATA",.07)=""
^DD(358.52,"B","STARTING COLUMN FOR LABEL",.04)=""
^DD(358.52,"B","STARTING ROW FOR DATA",.06)=""
^DD(358.52,"B","STARTING ROW FOR LABEL",.05)=""
^DD(358.52,"B","SUBFIELD LABEL",.01)=""
^DD(358.52,"B","SUBFIELD LABEL APPEARANCE",.03)=""
^DD(358.52,"GL",0,1,.01)=""
^DD(358.52,"GL",0,3,.03)=""
^DD(358.52,"GL",0,4,.04)=""
^DD(358.52,"GL",0,5,.05)=""
^DD(358.52,"GL",0,6,.06)=""
^DD(358.52,"GL",0,7,.07)=""
^DD(358.52,"GL",0,8,.08)=""
^DD(358.52,"GL",0,9,.09)=""
^DD(358.52,"IX",.01)=""
^DD(358.6,0)="FIELD^^21^76"
^DD(358.6,0,"DDA")="N"
^DD(358.6,0,"DT")="3000124"
^DD(358.6,0,"ID",.06)="W """""
^DD(358.6,0,"ID","WRITE")="N IBDWNAM S IBDWNAM=$E($P(^(0),U),1,40) D EN^DDIOL(IBDWNAM,"""",""!?0"")"
^DD(358.6,0,"ID","WRITE1")="N IBDWTYPE S IBDWTYPE=$S($P(^(0),""^"",6)=1:""INPUT"",$P(^(0),""^"",6)=2:""OUTPUT"",$P(^(0),""^"",6)=3:""SELECTION"",1:""REPORT"")_$S($P(^(0),U,6)=3&'$P(^(0),""^"",13):""  ** NOT SCANNABLE **"",1:"""") D EN^DDIOL(""TYPE=""_IBDWTYPE,"""",""?45"")"
^DD(358.6,0,"IX","B",358.6,.01)=""
^DD(358.6,0,"IX","C",358.6,.04)=""
^DD(358.6,0,"IX","D",358.6,3)=""
^DD(358.6,0,"IX","E",358.6,.01)=""
^DD(358.6,0,"NM","IMP/EXP PACKAGE INTERFACE")=""
^DD(358.6,0,"PT",358.2,.11)=""
^DD(358.6,0,"PT",358.5,.03)=""
^DD(358.6,0,"PT",358.6,.13)=""
^DD(358.6,0,"PT",358.93,.06)=""
^DD(358.6,0,"VR")="3.0"
^DD(358.6,0,"VRPK")="IBD"
^DD(358.6,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(358.6,.01,1,0)="^.1"
^DD(358.6,.01,1,1,0)="358.6^B"
^DD(358.6,.01,1,1,1)="S ^IBE(358.6,""B"",$E(X,1,30),DA)="""""
^DD(358.6,.01,1,1,2)="K ^IBE(358.6,""B"",$E(X,1,30),DA)"
^DD(358.6,.01,1,2,0)="358.6^E^MUMPS"
^DD(358.6,.01,1,2,1)="S ^IBE(358.6,""E"",$E(X,$F(X,"" ""),40),DA)="""""
^DD(358.6,.01,1,2,2)="K ^IBE(358.6,""E"",$E(X,$F(X,"" ""),40),DA)"
^DD(358.6,.01,1,2,"%D",0)="^^4^4^2940224^"
^DD(358.6,.01,1,2,"%D",1,0)=" "
^DD(358.6,.01,1,2,"%D",2,0)="For package interfaces that are output routines the name has the custodial"
^DD(358.6,.01,1,2,"%D",3,0)="package's name space as a prefix. This cross-reference removes that"
^DD(358.6,.01,1,2,"%D",4,0)="prefix. It is used to improve the display of output routines for the user."
^DD(358.6,.01,1,2,"DT")="2930409"
^DD(358.6,.01,3)="Answer must be 3-40 characters in length. All entries with Action Type other than PRINT REPORT must be be prefixed with the namespace of the package that is responsible for the data."
^DD(358.6,.01,21,0)="^^3^3^2950412^^^^"
^DD(358.6,.01,21,1,0)=" "
^DD(358.6,.01,21,2,0)="The name of the Package Interface. For interfaces returning data the name"
^DD(358.6,.01,21,3,0)="should be preceded with the namespace of the package."
^DD(358.6,.01,23,0)="^^1^1^2950412^"
^DD(358.6,.01,23,1,0)=" "
^DD(358.6,.01,"DT")="2930409"
^DD(358.6,.02,0)="ENTRY POINT^F^^0;2^K:$L(X)>8!($L(X)<1) X"
^DD(358.6,.02,3)="What entry point into the routine does this package interface use?"
^DD(358.6,.02,21,0)="^^2^2^2941018^^"
^DD(358.6,.02,21,1,0)=" "
^DD(358.6,.02,21,2,0)="The entry point in the routine that should be called."
^DD(358.6,.02,"DT")="2941018"
^DD(358.6,.03,0)="ROUTINE^F^^0;3^K:$L(X)>8!($L(X)<1) X"
^DD(358.6,.03,3)="What routine does this package interface use?"
^DD(358.6,.03,21,0)="^^2^2^2941018^^"
^DD(358.6,.03,21,1,0)=" "
^DD(358.6,.03,21,2,0)="The routine that should be called."
^DD(358.6,.03,"DT")="2921125"
^DD(358.6,.04,0)="CUSTODIAL PACKAGE^F^^0;4^K:$L(X)>20!($L(X)<3) X"
^DD(358.6,.04,1,0)="^.1"
^DD(358.6,.04,1,1,0)="358.6^C"
^DD(358.6,.04,1,1,1)="S ^IBE(358.6,""C"",$E(X,1,30),DA)="""""
^DD(358.6,.04,1,1,2)="K ^IBE(358.6,""C"",$E(X,1,30),DA)"
^DD(358.6,.04,1,1,"DT")="2921229"
^DD(358.6,.04,3)="For Package Interfaces that return data the Custodial Package is the package that is providing the data. For Package Interfaces that print reports it is the package that is providing the report."
^DD(358.6,.04,21,0)="^^2^2^2940217^"
^DD(358.6,.04,21,1,0)="This is a free text pointer to the package file. It serves only to"
^DD(358.6,.04,21,2,0)="document the custodial package of the data."
^DD(358.6,.04,"DT")="2930726"
^DD(358.6,.05,0)="VARIABLE DATA?^S^0:NO;1:YES;^0;5^Q"
^DD(358.6,.05,.1)="DOES THE DATA VARY FROM PATIENT TO PATIENT?"
^DD(358.6,.05,3)="Enter YES if the data returned is variable, NO if the data is always the same."
^DD(358.6,.05,21,0)="^^3^3^2930726^^^"
^DD(358.6,.05,21,1,0)="This field is used in the batch printing of encounter forms. The purpose"
^DD(358.6,.05,21,2,0)="is to avoid recomputing fields whose data does not change from patient to"
^DD(358.6,.05,21,3,0)="patient."
^DD(358.6,.05,"DT")="2931124"
^DD(358.6,.06,0)="ACTION TYPE^RS^1:INPUT;2:DISPLAY;3:SELECTION;4:PRINT REPORT;^0;6^Q"
^DD(358.6,.06,3)="Is this interface for inputting data, displaying data to a form, for creating lists that will appear on a form, or for printing reports?"
^DD(358.6,.06,21,0)="^^9^9^2950825^"
^DD(358.6,.06,21,1,0)="                                                                   "
^DD(358.6,.06,21,2,0)=" "
^DD(358.6,.06,21,3,0)="Enter 1 for INPUT if the interface accepts data input from the user"
^DD(358.6,.06,21,4,0)="and transmits the data to the appropriate package. Enter 2 for DISPLAY"
^DD(358.6,.06,21,5,0)="if the interface retrieve data for display to a form. Enter 3 for"
^DD(358.6,.06,21,6,0)="SELECTION if the interface is for building a list to display"
^DD(358.6,.06,21,7,0)="to a form. Enter 4 if the interface is for printing a report. If"
^DD(358.6,.06,21,8,0)="the ACTION TYPE is SELECTION then the data type must be a record and the"
^DD(358.6,.06,21,9,0)="first piece must be the ID use to uniquely identify the selection."
^DD(358.6,.06,"DT")="2950825"
^DD(358.6,.07,0)="DATA TYPE^S^1:SINGLE VALUE;2:RECORD;3:LIST OF SINGLE VALUES;4:LIST OF RECORDS;5:WORD PROCESSING;^0;7^Q"
^DD(358.6,.07,.1)="WHAT FORMAT WILL THE DATA BE IN?"
^DD(358.6,.07,3)="What format will the data be in?"
^DD(358.6,.07,21,0)="^^9^9^2950825^"
^DD(358.6,.07,21,1,0)="Only applies to selection or display interfaces, both of which retrieve"
^DD(358.6,.07,21,2,0)="data for display to a form. It is the type of format the data should be"
^DD(358.6,.07,21,3,0)="in."
^DD(358.6,.07,21,4,0)=" "
^DD(358.6,.07,21,5,0)="A single value is a string without pieces. A record is a set of strings"
^DD(358.6,.07,21,6,0)="concatenated together with ""^"" separating the pieces. A list is an"
^DD(358.6,.07,21,7,0)="indefinite number of values, each numbered, each containing the same type"
^DD(358.6,.07,21,8,0)="of information. A word processing data type will be in FM format."
^DD(358.6,.07,21,9,0)="If the ACTION TYPE is SELECTION then the data type must be record."
^DD(358.6,.07,"DT")="2930726"
^DD(358.6,.08,0)="PRINT COMPLETE^S^0:NO;1:YES;^0;8^Q"
^DD(358.6,.08,3)="If there is insufficient room on the form to print the data, should it be re-printed in full on a separate page?"
^DD(358.6,.08,21,0)="^^4^4^2930527^"
^DD(358.6,.08,21,1,0)=" "
^DD(358.6,.08,21,2,0)="This field is used to determine what should happen if the data does not"
^DD(358.6,.08,21,3,0)="fit in the space allocated to it on the form. If answered YES the data"
^DD(358.6,.08,21,4,0)="will be printed on another page."
^DD(358.6,.08,"DT")="2930507"
^DD(358.6,.09,0)="AVAILABLE? (Y/N)^RS^0:NO;1:YES;^0;9^Q"
^DD(358.6,.09,3)="Is this package interface now available for use?"
^DD(358.6,.09,21,0)="^^3^3^2930527^"
^DD(358.6,.09,21,1,0)=" "
^DD(358.6,.09,21,2,0)="This field should be set to YES if the interface is available, NO if it is"
^DD(358.6,.09,21,3,0)="not available. Interfaces that are not available are not called."
^DD(358.6,.09,"DT")="2921213"
^DD(358.6,.1,0)="HEALTH SUMMARY?^S^0:NO;1:YES;^0;10^Q"
^DD(358.6,.1,.1)="ARE YOU REQUESTING A HEALTH SUMMARY?"
^DD(358.6,.1,2.1)="S:Y=+Y Y=Y+1"
^DD(358.6,.1,3)=" Are you requesting a HEALTH SUMMARY to print?"
^DD(358.6,.1,21,0)="^^7^7^2930616^"
^DD(358.6,.1,21,1,0)=" "
^DD(358.6,.1,21,2,0)="This field will determine how to go about printing the report or form. It"
^DD(358.6,.1,21,3,0)="applies only to Package Interfaces of ACTION TYPE = PRINT REPORT. Health"
^DD(358.6,.1,21,4,0)="Summaries use the field HEALTH SUMMARY to determine the type of Health"
^DD(358.6,.1,21,5,0)="Summary to print. The process of printing Health Summaries dos not use the"
^DD(358.6,.1,21,6,0)="fields ENTRY POINT or ROUTINE, since all Health Summaries are printed in"
^DD(358.6,.1,21,7,0)="the same way."
^DD(358.6,.1,"DT")="2930616"
^DD(358.6,.11,0)="TYPE OF HEALTH SUMMARY^*P142'^GMT(142,^0;11^S DIC(""S"")=""I $P(^(0),U)'=""""GMTS HS ADHOC OPTION"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.6,.11,3)="Which Health Summary do you want printed?"
^DD(358.6,.11,12)="EXCLUDES AD HOC HEALTH SUMMARIES"
^DD(358.6,.11,12.1)="S DIC(""S"")=""I $P(^(0),U)'=""""GMTS HS ADHOC OPTION"""""""
^DD(358.6,.11,21,0)="^^4^4^2940224^"
^DD(358.6,.11,21,1,0)=" "
^DD(358.6,.11,21,2,0)="This identifies the Health Summary that should be printed when this"
^DD(358.6,.11,21,3,0)="Package Interface is invoked. It should be null unless the HEALTH SUMMARY?"
^DD(358.6,.11,21,4,0)="field #.1 is coded YES."
^DD(358.6,.11,"DT")="2930617"
^DD(358.6,.12,0)="TOOLKIT MEMBER?^S^0:NO;1:YES;^0;12^Q"
^DD(358.6,.12,.1)="SHOULD THIS PACKAGE INTERFACE BE PART OF THE TOOLKIT?"
^DD(358.6,.12,3)="Enter YES if this PACKAGE INTERFACE was added by the package developers as part of the toolkit, enter NO otherwise."
^DD(358.6,.12,21,0)="^^3^3^2950808^^"
^DD(358.6,.12,21,1,0)=" "
^DD(358.6,.12,21,2,0)="Package Interfaces that are developed for national use will be documented"
^DD(358.6,.12,21,3,0)="as being part of the toolkit."
^DD(358.6,.12,"DT")="2950711"
^DD(358.6,.13,0)="PACKAGE INTERFACE FOR INPUT^*P358.6'^IBE(358.6,^0;13^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.6,.13,.1)="WHICH INTERFACE SHOULD THIS LIST USE FOR PASSING DATA TO THE DATA BASE?"
^DD(358.6,.13,3)="What interface should be used for inputting data entered on the selection list?"
^DD(358.6,.13,12)="Must be an available interfaces for accepting input from selection lists."
^DD(358.6,.13,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""S"""""""
^DD(358.6,.13,21,0)="^^1^1^2950825^^^^"
^DD(358.6,.13,21,1,0)="Used to map scanned data to DHCP."
^DD(358.6,.13,"DT")="2950825"
^DD(358.6,.14,0)="DYNAMIC SELECTIONS^S^0:NO;1:YES;^0;14^Q"
^DD(358.6,.14,3)="Only for selection routines. Enter YES if the Package Interface builds the selection list each time the form is printed."
^DD(358.6,.14,21,0)="^^2^2^2950719^"
^DD(358.6,.14,21,1,0)="This is used to indicate whether the interface is used to build selection"
^DD(358.6,.14,21,2,0)="lists at print time."
^DD(358.6,.14,"DT")="2941221"
^DD(358.6,.15,0)="DO NOT USE DFN AS A SUBSCRIPT^*S^0:NO;1:YES;^0;15^Q"
^DD(358.6,.15,3)="If the patient DFN should not be used as a subscript when passing data enter YES."
^DD(358.6,.15,12)="If the action type is not OUTPUT ROUTINE then this field should not be set to NO."
^DD(358.6,.15,12.1)="S DIC(""S"")=""I (Y=1)!($P(^IBE(358.6,DA,0),U,6)=2)"""
^DD(358.6,.15,21,0)="^^6^6^2950413^^^^"
^DD(358.6,.15,21,1,0)="Originally, the patient DFN was used as a subscript when returning data"
^DD(358.6,.15,21,2,0)="for Package Interfaces of type output, but not for other types of"
^DD(358.6,.15,21,3,0)="interfaces. It is no longer necessary for any new Package Interface to use"
^DD(358.6,.15,21,4,0)="DFN as a subscript, but, to maintain compatibilty, output routines"
^DD(358.6,.15,21,5,0)="must set this field to YES if DFN is not to be used as a subscript. This"
^DD(358.6,.15,21,6,0)="field has no effect on other types of interfaces."
^DD(358.6,.15,"DT")="2950413"
^DD(358.6,.16,0)="ALLOWED OBJECT USE^FX^^0;16^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""SMHP""'[$E(X,1))!(""SMHP""'[$E(X,2))!(""SMHP""'[$E(X,3))!(""SMHP""'[$E(X,4)) X"
^DD(358.6,.16,3)=""
^DD(358.6,.16,4)="D HELP7^IBDFU5A"
^DD(358.6,.16,21,0)="^^5^5^2950913^^^^"
^DD(358.6,.16,21,1,0)="This field applies only to package interfaces for input and is used to"
^DD(358.6,.16,21,2,0)="determine which package interfaces a particular type of form object may"
^DD(358.6,.16,21,3,0)="point to. Some combinations don't make sense. For example, it would not"
^DD(358.6,.16,21,4,0)="make sense to allow a multiple choice question to point to vitals, which"
^DD(358.6,.16,21,5,0)="is used to input data such as temperature and blood pressure."
^DD(358.6,.16,"DT")="2950913"
^DD(358.6,.17,0)="ASK FOR ADDITIONAL NARRATIVE^S^0:NO;1:YES;^0;17^Q"
^DD(358.6,.17,3)="Answer yes or no."
^DD(358.6,.17,21,0)="^^8^8^2960123^"
^DD(358.6,.17,21,1,0)="Enter whether users should be prompted for specifying the provider"
^DD(358.6,.17,21,2,0)="narrative that will be sent to PCE (and problem list) when creating a"
^DD(358.6,.17,21,3,0)="selection list.  If this is answered no and the narrative is sent to"
^DD(358.6,.17,21,4,0)="PCE then the text as it appears on the form will be used as the"
^DD(358.6,.17,21,5,0)="provider narrative."
^DD(358.6,.17,21,6,0)=" "
^DD(358.6,.17,21,7,0)="Generally only diagnosis and clinical lexicon entries will want this"
^DD(358.6,.17,21,8,0)="field set to Yes."
^DD(358.6,.17,"DT")="2960123"
^DD(358.6,.18,0)="ASK FOR CLINICAL LEXICON^S^0:NO;1:YES;^0;18^Q"
^DD(358.6,.18,3)=" Enter 'Yes' if you want to map entries from this interface to the clinical lexicon."
^DD(358.6,.18,21,0)="^^10^10^2960205^"
^DD(358.6,.18,21,1,0)="If this field is answered 'Yes' then users who are editing or creating"
^DD(358.6,.18,21,2,0)="selection lists based on this interface will be asked to map each entry"
^DD(358.6,.18,21,3,0)="(thought it is optional) to a clinical lexicon entry.  This is highly"
^DD(358.6,.18,21,4,0)="recommended for user who are scanning diagnosis entries and trying to "
^DD(358.6,.18,21,5,0)="add entries to the Patients Problem list."
^DD(358.6,.18,21,6,0)=" "
^DD(358.6,.18,21,7,0)="The primary purpose of this field is to allow sites who have built selection"
^DD(358.6,.18,21,8,0)="lists using the ICD9 Diagnosis file to map each entry to the clinical lexicon."
^DD(358.6,.18,21,9,0)="The Problem List EP has recommended that each problem added to the problem"
^DD(358.6,.18,21,10,0)="list be associated with a clinical lexicon entry."
^DD(358.6,.18,"DT")="2960205"
^DD(358.6,.19,0)="DQ REQUIRED^S^1:YES;^0;19^Q"
^DD(358.6,.19,21,0)="^^2^2^2960212^"
^DD(358.6,.19,21,1,0)="Field used to determine if a data qualifier is required for this"
^DD(358.6,.19,21,2,0)="input interface."
^DD(358.6,.19,"DT")="2960212"
^DD(358.6,.2,0)="ASK FOR CLINICAL REMINDERS^S^0:NO;1:YES;^0;20^Q"
^DD(358.6,.2,3)="If this package interface is for display of clinical reminders answer yes, otherwise answer no."
^DD(358.6,.2,21,0)="^^2^2^2990122^^^^"
^DD(358.6,.2,21,1,0)="If this package interface is for display of clinical reminders answer yes, "
^DD(358.6,.2,21,2,0)="otherwise answer no."
^DD(358.6,.2,"DT")="2971015"
^DD(358.6,.21,0)="ASK FOR CPT MODIFIERS?^S^0:NO;1:YES;^0;21^Q"
^DD(358.6,.21,3)="If this package interface is to prompt for CPT Modifiers, answer yes, otherwise answer no."
^DD(358.6,.21,21,0)="^^3^3^3000124^"
^DD(358.6,.21,21,1,0)="ASK FOR CPT MODIFIERS field will be used when selecting CPT codes.  If"
^DD(358.6,.21,21,2,0)="answered ""YES"" and data is a procedure, CPT Modifiers should be asked"
^DD(358.6,.21,21,3,0)="during Forms Design and Manual Data Entry."
^DD(358.6,.21,"DT")="3000124"
^DD(358.6,1,0)="DESCRIPTION^358.61^^1;0"
^DD(358.6,1,21,0)="^^1^1^2950719^^^^"
^DD(358.6,1,21,1,0)="Should describe the data being exchanged by the package interface."
^DD(358.6,2.01,0)="PIECE 1 DESCRIPTIVE NAME^F^^2;1^K:$L(X)>30!($L(X)<3) X"
^DD(358.6,2.01,.1)="WHAT IS THE FIRST PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(358.6,2.01,3)="Answer must be 3-30 characters in length."
^DD(358.6,2.01,21,0)="^^3^3^2930527^"
^DD(358.6,2.01,21,1,0)=" "
^DD(358.6,2.01,21,2,0)="Should be a descriptive name of the first field in the record returned by"
^DD(358.6,2.01,21,3,0)="the interface."
^DD(358.6,2.01,"DT")="2930726"
^DD(358.6,2.02,0)="PIECE 1 MAXIMUM LENGTH^NJ3,0^^2;2^K:+X'=X!(X>210)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.6,2.02,.1)="WHAT IS ITS MAXIMUM LENGTH?"
^DD(358.6,2.02,3)="Type a Number between 0 and 210, 0 Decimal Digits"
^DD(358.6,2.02,21,0)="^^3^3^2930527^"
^DD(358.6,2.02,21,1,0)=" "
^DD(358.6,2.02,21,2,0)="The maximum length of the first field of the record returned by the"
^DD(358.6,2.02,21,3,0)="interface."
^DD(358.6,2.02,"DT")="2930726"
^DD(358.6,2.03,0)="PIECE 2 DESCRIPTIVE NAME^F^^2;3^K:$L(X)>30!($L(X)<3) X"
^DD(358.6,2.03,.1)="WHAT IS THE SECOND PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(358.6,2.03,3)="Answer must be 3-30 characters in length."
^DD(358.6,2.03,21,0)="^^3^3^2930528^"
^DD(358.6,2.03,21,1,0)=" "
^DD(358.6,2.03,21,2,0)="A descriptive name of the second field of the record returned by the"
^DD(358.6,2.03,21,3,0)="interface routine."
^DD(358.6,2.03,"DT")="2930726"
^DD(358.6,2.04,0)="WHAT IS ITS MAXIMUM LENGTH?^NJ3,0^^2;4^K:+X'=X!(X>210)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,2.04,3)="Type a Number between 1 and 210, 0 Decimal Digits"
^DD(358.6,2.04,21,0)="^^3^3^2930528^"
^DD(358.6,2.04,21,1,0)=" "
^DD(358.6,2.04,21,2,0)="The maximum length of the second field of the record returned by the"
^DD(358.6,2.04,21,3,0)="interface routine."
^DD(358.6,2.04,"DT")="2930726"
^DD(358.6,2.05,0)="PIECE 3 DESCRIPTIVE NAME^F^^2;5^K:$L(X)>30!($L(X)<3) X"
^DD(358.6,2.05,.1)="WHAT IS THE THIRD PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(358.6,2.05,3)="Answer must be 3-30 characters in length."
^DD(358.6,2.05,21,0)="^^3^3^2930528^"
^DD(358.6,2.05,21,1,0)=" "
^DD(358.6,2.05,21,2,0)="A descriptive name of the third field of the record returned by the"
^DD(358.6,2.05,21,3,0)="interface routine."
^DD(358.6,2.05,"DT")="2930726"
^DD(358.6,2.06,0)="PIECE 3 MAXIMUM LENGTH^NJ3,0^^2;6^K:+X'=X!(X>210)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,2.06,.1)="WHAT IS ITS MAXIMUM LENGTH?"
^DD(358.6,2.06,3)="Type a Number between 1 and 210, 0 Decimal Digits"
^DD(358.6,2.06,21,0)="^^2^2^2930528^"
^DD(358.6,2.06,21,1,0)=" "
^DD(358.6,2.06,21,2,0)="The maximum length of the 3rd field returned by the interface routine."
^DD(358.6,2.06,"DT")="2930726"
^DD(358.6,2.07,0)="PIECE 4 DESCRIPTIVE NAME^F^^2;7^K:$L(X)>30!($L(X)<3) X"
^DD(358.6,2.07,.1)="WHAT IS THE FOURTH PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(358.6,2.07,3)="Answer must be 3-30 characters in length."
^DD(358.6,2.07,21,0)="^^2^2^2930528^"
^DD(358.6,2.07,21,1,0)=" "
^DD(358.6,2.07,21,2,0)="A descriptive name of the 4th field returned by the interface routine."
^DD(358.6,2.07,"DT")="2930726"
^DD(358.6,2.08,0)="PIECE 4 MAXIMUM LENGTH^NJ3,0^^2;8^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,2.08,.1)="WHAT IS ITS MAXIMUM LENGTH?"
^DD(358.6,2.08,3)="Type a Number between 1 and 200, 0 Decimal Digits"
^DD(358.6,2.08,21,0)="^^2^2^2930528^"
^DD(358.6,2.08,21,1,0)=" "
^DD(358.6,2.08,21,2,0)="The maximum length of the 4th field returned by the interface routine."
^DD(358.6,2.08,"DT")="2930726"
^DD(358.6,2.09,0)="PIECE 5 DESCRIPTIVE NAME^F^^2;9^K:$L(X)>30!($L(X)<3) X"
^DD(358.6,2.09,.1)="WHAT IS THE FIFTH PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(358.6,2.09,3)="Answer must be 3-30 characters in length."
^DD(358.6,2.09,21,0)="^^2^2^2930528^"
^DD(358.6,2.09,21,1,0)=" "
^DD(358.6,2.09,21,2,0)="A descriptive name of the 5th field returned by the interface routine."
^DD(358.6,2.09,"DT")="2930726"
^DD(358.6,2.1,0)="PIECE 5 MAXIMUM LENGTH^NJ3,0^^2;10^K:+X'=X!(X>210)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,2.1,.1)="WHAT IS ITS MAXIMUM LENGTH?"
^DD(358.6,2.1,3)="Type a Number between 1 and 210, 0 Decimal Digits"
^DD(358.6,2.1,21,0)="^^2^2^2930528^"
^DD(358.6,2.1,21,1,0)=" "
^DD(358.6,2.1,21,2,0)="The maximum length of the 5th field returned by the interface routine."
^DD(358.6,2.1,"DT")="2930726"
^DD(358.6,2.11,0)="PIECE 6 DESCRIPTIVE NAME^F^^2;11^K:$L(X)>30!($L(X)<3) X"
^DD(358.6,2.11,.1)="WHAT IS THE SIXTH PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(358.6,2.11,3)="Answer must be 3-30 characters in length."
^DD(358.6,2.11,21,0)="^^2^2^2930528^"
^DD(358.6,2.11,21,1,0)=" "
^DD(358.6,2.11,21,2,0)="A descriptive name fo the 6th field returned by the interface routine."
^DD(358.6,2.11,"DT")="2930726"
^DD(358.6,2.12,0)="PIECE 6 MAXIMUM LENGTH^NJ3,0^^2;12^K:+X'=X!(X>210)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,2.12,.1)="WHAT IS ITS MAXIMUM LENGTH?"
^DD(358.6,2.12,3)="Type a Number between 1 and 210, 0 Decimal Digits"
^DD(358.6,2.12,21,0)="^^2^2^2930528^"
^DD(358.6,2.12,21,1,0)=" "
^DD(358.6,2.12,21,2,0)="The maximum length of the 6th field returned by the interface routine."
^DD(358.6,2.12,"DT")="2930726"
^DD(358.6,2.13,0)="PIECE 7 DESCRIPTIVE NAME^F^^2;13^K:$L(X)>30!($L(X)<3) X"
^DD(358.6,2.13,.1)="WHAT IS THE SEVENTH PIECE OF DATA RETURNED BY THE INTERFACE?"
^DD(358.6,2.13,3)="Answer must be 3-30 characters in length."
^DD(358.6,2.13,21,0)="^^3^3^2930528^"
^DD(358.6,2.13,21,1,0)=" "
^DD(358.6,2.13,21,2,0)="A descriptive name for the 7th field returned by the package interface"
^DD(358.6,2.13,21,3,0)="routine."
^DD(358.6,2.13,"DT")="2930726"
^DD(358.6,2.14,0)="PIECE 7 MAXIMUM LENGTH^NJ3,0^^2;14^K:+X'=X!(X>210)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,2.14,.1)="WHAT IS ITS MAXIMUM LENGTH?"
^DD(358.6,2.14,3)="Type a Number between 1 and 210, 0 Decimal Digits"
^DD(358.6,2.14,21,0)="^^2^2^2930528^"
^DD(358.6,2.14,21,1,0)=" "
^DD(358.6,2.14,21,2,0)="The maximum length of the 7th field returned by the interface routine."
^DD(358.6,2.14,"DT")="2930726"
^DD(358.6,2.16,0)="PIECE 1 RECOMMENDED HEADER^F^^2;16^K:$L(X)>20!($L(X)<1) X"
^DD(358.6,2.16,3)="Answer must be 1-20 characters in length."
^DD(358.6,2.16,21,0)="^^1^1^2950719^"
^DD(358.6,2.16,21,1,0)="The recommended header will be used as the default when designing a form."
^DD(358.6,2.16,"DT")="2950417"
^DD(358.6,2.17,0)="IS PIECE 1 DISPLAYABLE?^S^0:NO;1:YES;^2;17^Q"
^DD(358.6,2.17,.1)="CAN THIS FIELD BE DISPLAYED TO THE USER?"
^DD(358.6,2.17,3)="The first piece of the returned record is reserved for the unique id of the selection. Enter no if it should not be displayed, for example, if it is a pointer."
^DD(358.6,2.17,21,0)="^^3^3^2950719^^"
^DD(358.6,2.17,21,1,0)="This is used only for selection type interfaces. If NO, then the value can"
^DD(358.6,2.17,21,2,0)="not be displayed to the encounter form.  The first piece must contain the"
^DD(358.6,2.17,21,3,0)="unique id of the selection."
^DD(358.6,2.17,"DT")="2930810"
^DD(358.6,2.18,0)="EXPORT SELECTIONS/CHOICES?^S^0:NO;1:YES;^2;18^Q"
^DD(358.6,2.18,3)="Enter NO if the ID returned by the PACKAGE INTERFACE is not constant between sites, for example, if it is a pointer. Otherwise answer YES."
^DD(358.6,2.18,21,0)="^^8^8^2950825^"
^DD(358.6,2.18,21,1,0)=" "
^DD(358.6,2.18,21,2,0)=" "
^DD(358.6,2.18,21,3,0)="Applies to selection and input routines. Determines whether"
^DD(358.6,2.18,21,4,0)="selections appearing on selection lists and choices in a multiple choice"
^DD(358.6,2.18,21,5,0)="field will be exported along with the form that they appear on. The"
^DD(358.6,2.18,21,6,0)="import/export utility will not resolve pointers, so if the id used by"
^DD(358.6,2.18,21,7,0)="the package interface is a pointer that differs between sites"
^DD(358.6,2.18,21,8,0)="this field should contain NO."
^DD(358.6,2.18,"DT")="2950825"
^DD(358.6,3,0)="USER LOOKUP^F^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>240!($L(X)<1) X"
^DD(358.6,3,.1)="LIST OF WORDS TO MAKE LOOK-UPS EASIER"
^DD(358.6,3,1,0)="^.1"
^DD(358.6,3,1,1,0)="358.6^D^KWIC"
^DD(358.6,3,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^IBE(358.6,""D"",I,DA)="""""
^DD(358.6,3,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^IBE(358.6,""D"",I,DA)"
^DD(358.6,3,1,1,"%D",0)="^^3^3^2930409^^"
^DD(358.6,3,1,1,"%D",1,0)=" "
^DD(358.6,3,1,1,"%D",2,0)="This index is meant to assist the user in locating the correct package"
^DD(358.6,3,1,1,"%D",3,0)="interface needed to display a particular item of data to a form."
^DD(358.6,3,1,1,"DT")="2930309"
^DD(358.6,3,3)="Enter words separated with spaces. They will be indexed to assist in lookup."
^DD(358.6,3,4)="D LOOKUP^IBDF16"
^DD(358.6,3,21,0)="^^4^4^2940217^"
^DD(358.6,3,21,1,0)=" "
^DD(358.6,3,21,2,0)="This field is used to create a KWIC index for this file. The purpose is to"
^DD(358.6,3,21,3,0)="assist the user in locating the package interface he needs to display a"
^DD(358.6,3,21,4,0)="particular item of data to a form."
^DD(358.6,3,"DT")="2930726"
^DD(358.6,4.01,0)="ENTRY ACTION^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,4.01,3)="This is Standard MUMPS code."
^DD(358.6,4.01,9)="@"
^DD(358.6,4.01,21,0)="^^3^3^2930527^"
^DD(358.6,4.01,21,1,0)=" "
^DD(358.6,4.01,21,2,0)="This code will be executed after the PROTECTED VARIABLES are newed, but"
^DD(358.6,4.01,21,3,0)="before the interface routine is called."
^DD(358.6,4.01,"DT")="2930521"
^DD(358.6,5.01,0)="EXIT ACTION^K^^5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,5.01,3)="This is Standard MUMPS code."
^DD(358.6,5.01,9)="@"
^DD(358.6,5.01,21,0)="^^3^3^2930528^"
^DD(358.6,5.01,21,1,0)=" "
^DD(358.6,5.01,21,2,0)="This code will be executed after the interface routine is called."
^DD(358.6,5.01,21,3,0)="The effect of the NEW done on the PROTECTED VARIABLES is still in effect."
^DD(358.6,5.01,"DT")="2930518"
^DD(358.6,6,0)="PROTECTED LOCAL VARIABLES^358.66^^6;0"
^DD(358.6,6,21,0)="^^11^11^2950719^^^"
^DD(358.6,6,21,1,0)=" "
^DD(358.6,6,21,2,0)="This is a list of variables that should be newed before the entry action"
^DD(358.6,6,21,3,0)="or calling the interface routine. It is protection against interfaces that"
^DD(358.6,6,21,4,0)="alter or kill variables, or entry actions that do so. Note that REQUIRED"
^DD(358.6,6,21,5,0)="VARIABLES should not also be PROTECTED VARIABLES. If an interface routine"
^DD(358.6,6,21,6,0)="changes a required variable, however, there is a way to protect it."
^DD(358.6,6,21,7,0)="Supposing, for example, DFN is killed by the interface. This will protect"
^DD(358.6,6,21,8,0)="it:"
^DD(358.6,6,21,9,0)="     PROTECTED VARIABLE:   IBDFN"
^DD(358.6,6,21,10,0)="     ENTRY ACTION:  S IBDFN=DFN"
^DD(358.6,6,21,11,0)="     EXIT ACTION:   S DFN=IBDFN"
^DD(358.6,7,0)="REQUIRED LOCAL VARIABLES^358.67^^7;0"
^DD(358.6,7,21,0)="^^4^4^2930528^"
^DD(358.6,7,21,1,0)=" "
^DD(358.6,7,21,2,0)="The interface may require inputs. This field is a list of the required"
^DD(358.6,7,21,3,0)="local variables. The interface will not be called unless the variables are"
^DD(358.6,7,21,4,0)="determined to exist."
^DD(358.6,8.01,0)="PIECE 1 NODE^F^^8;1^K:$L(X)>10!($L(X)<1) X"
^DD(358.6,8.01,3)="Answer must be 1-10 characters in length."
^DD(358.6,8.01,"DT")="2931203"
^DD(358.6,8.02,0)="PIECE 2 NODE^F^^8;2^K:$L(X)>10!($L(X)<1) X"
^DD(358.6,8.02,3)="Answer must be 1-10 characters in length."
^DD(358.6,8.02,"DT")="2931203"
^DD(358.6,8.03,0)="PIECE 3 NODE^F^^8;3^K:$L(X)>10!($L(X)<1) X"
^DD(358.6,8.03,3)="Answer must be 1-10 characters in length."
^DD(358.6,8.03,"DT")="2931203"
^DD(358.6,8.04,0)="PIECE 4 NODE^F^^8;4^K:$L(X)>10!($L(X)<1) X"
^DD(358.6,8.04,3)="Answer must be 1-10 characters in length."
^DD(358.6,8.04,"DT")="2931203"
^DD(358.6,8.05,0)="PIECE 5 NODE^F^^8;5^K:$L(X)>10!($L(X)<1) X"
^DD(358.6,8.05,3)="Answer must be 1-10 characters in length."
^DD(358.6,8.05,"DT")="2931203"
^DD(358.6,8.06,0)="PIECE 6 NODE^F^^8;6^K:$L(X)>10!($L(X)<1) X"
^DD(358.6,8.06,3)="Answer must be 1-10 characters in length."
^DD(358.6,8.06,"DT")="2931203"
^DD(358.6,8.07,0)="PIECE 7 NODE^F^^8;7^K:$L(X)>10!($L(X)<1) X"
^DD(358.6,8.07,3)="Answer must be 1-10 characters in length."
^DD(358.6,8.07,"DT")="2931203"
^DD(358.6,9,0)="PCE DIM INPUT TRANSFORM^K^^9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,9,3)="The input transform should transform X to the value that should be passed."
^DD(358.6,9,9)="@"
^DD(358.6,9,21,0)="^^3^3^2960401^^^^"
^DD(358.6,9,21,1,0)="Used to transform X, the identifier stored with the form object, to the"
^DD(358.6,9,21,2,0)="form that should be passed to the PCE Device Interface Module (DIM). It may,"
^DD(358.6,9,21,3,0)="for example, transform a code to an ien."
^DD(358.6,9,"DT")="2960401"
^DD(358.6,10,0)="HELP TEXT^F^^10;1^K:$L(X)>245!($L(X)<1) X"
^DD(358.6,10,3)="This should provide some help to the user who is trying to enter a value associated with a bubble."
^DD(358.6,10,21,0)="^^2^2^2950817^^^"
^DD(358.6,10,21,1,0)="This should provide some help to the user who is trying to enter a value"
^DD(358.6,10,21,2,0)="associated with a bubble."
^DD(358.6,10,"DT")="2950522"
^DD(358.6,11,0)="VALIDATOR^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,11,3)="This is Standard MUMPS code will kill X if X no longer identifies a valid code."
^DD(358.6,11,9)="@"
^DD(358.6,11,21,0)="^^7^7^2950825^"
^DD(358.6,11,21,1,0)="This field is used to validate codes currently on a form. The variable X"
^DD(358.6,11,21,2,0)="should be set to the identifier that was returned by the Package"
^DD(358.6,11,21,3,0)="Interface. For selection interfaces, the identifier is always piece 1 of"
^DD(358.6,11,21,4,0)="the 0 node of the entry in the selection list. Xecuting this field will"
^DD(358.6,11,21,5,0)="result in X being killed if the value is not valid. This is used by the"
^DD(358.6,11,21,6,0)="maintanance utility, for example, to find CPT codes that have been"
^DD(358.6,11,21,7,0)="inactivated."
^DD(358.6,11,"DT")="2950908"
^DD(358.6,12.01,0)="PCE DIM NODE^F^^12;1^K:$L(X)>30!($L(X)<1) X"
^DD(358.6,12.01,3)="What node will be used to pass the data?"
^DD(358.6,12.01,21,0)="^^1^1^2960401^^"
^DD(358.6,12.01,21,1,0)="The node used to pass the data to PCE, using the PCE DEVICE INTERFACE MODULE."
^DD(358.6,12.01,"DT")="2960401"
^DD(358.6,12.02,0)="PCE DIM PIECE, VALUE^NJ2,0^^12;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,12.02,3)="What piece should be used to pass the value?"
^DD(358.6,12.02,21,0)="^^1^1^2960401^^^"
^DD(358.6,12.02,21,1,0)="The piece in the PXCA node used to pass the input value."
^DD(358.6,12.02,"DT")="2960401"
^DD(358.6,12.03,0)="PCE DIM PIECE, NARRATIVE^NJ2,0^^12;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,12.03,3)="What piece should be used to pass the text displayed on the form?"
^DD(358.6,12.03,21,0)="^^1^1^2960401^^^^"
^DD(358.6,12.03,21,1,0)="The piece in the PCXA node used to pass the text displayed on the form."
^DD(358.6,12.03,"DT")="2960401"
^DD(358.6,12.04,0)="PCE DIM PIECE, HEADER^NJ2,0^^12;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,12.04,3)="What piece should be used to pass the header displayed on the form?"
^DD(358.6,12.04,21,0)="^^2^2^2960401^^"
^DD(358.6,12.04,21,1,0)="The piece on the node specified by the PCE Device Interface Module"
^DD(358.6,12.04,21,2,0)="that the header is mapped to."
^DD(358.6,12.04,"DT")="2960401"
^DD(358.6,12.05,0)="PCE DIM PIECE, DATA QUALIFIER^NJ2,0^^12;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,12.05,3)="What piece should be used to pass the data qualifier?"
^DD(358.6,12.05,21,0)="^^1^1^2960401^^^"
^DD(358.6,12.05,21,1,0)="The piece of the PXCA node where the data modifier belongs."
^DD(358.6,12.05,"DT")="2960401"
^DD(358.6,12.06,0)="PCE DIM PIECE, QUANTITY^NJ2,0^^12;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.6,12.06,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(358.6,12.06,21,0)="^^2^2^2961031^"
^DD(358.6,12.06,21,1,0)="An entry in this field indicates which piece of the array the quantity"
^DD(358.6,12.06,21,2,0)="should be passed on when sending data to PCE."
^DD(358.6,12.06,"DT")="2961031"
^DD(358.6,13,0)="ALLOWABLE QUALIFIERS^358.613V^^13;0"
^DD(358.6,13,21,0)="^^2^2^2980928^^^^"
^DD(358.6,13,21,1,0)="This mulitiple contains the list of quailifiers that may apply to the"
^DD(358.6,13,21,2,0)="data."
^DD(358.6,14,0)="PCE DIM OUTPUT TRANSFORM^K^^14;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,14,3)="This should change Y, the value to be passed, to a value suitable for display."
^DD(358.6,14,9)="@"
^DD(358.6,14,21,0)="^^3^3^2960401^^"
^DD(358.6,14,21,1,0)="This transform should set Y, the value to be passed to the PCE "
^DD(358.6,14,21,2,0)="Device Interface Module, to a value that is suitable for display."
^DD(358.6,14,21,3,0)="It may, for example, change an ien to a code."
^DD(358.6,14,"DT")="2960401"
^DD(358.6,15,0)="DATA DESCRIPTION^358.615I^^15;0"
^DD(358.6,15,21,0)="^^2^2^2950330^"
^DD(358.6,15,21,1,0)="For interfaces that return records, this multiple stores information on"
^DD(358.6,15,21,2,0)="the fields, other than the first field."
^DD(358.6,16.1,0)="ALLOW INPUT OF NARRATIVE?^S^n:NO;o:OPTIONAL;r:REQUIRED;^16;1^Q"
^DD(358.6,16.1,3)="Should the user be allowed to enter a narrative? Answer n=NO, o=OPTIONAL, r=REQUIRED"
^DD(358.6,16.1,21,0)="^^2^2^2950719^"
^DD(358.6,16.1,21,1,0)="For input interfaces, this field determines whether a narrative is"
^DD(358.6,16.1,21,2,0)="allowed by the PCE Generic Device Interface."
^DD(358.6,16.1,"DT")="2950421"
^DD(358.6,16.2,0)="NARRATIVE DATA TYPE^P358.99'^IBE(358.99,^16;2^Q"
^DD(358.6,16.2,3)="What data type definition describes the narrative?"
^DD(358.6,16.2,21,0)="^^2^2^2951018^^"
^DD(358.6,16.2,21,1,0)="This determines, among other things, how much space to allocate for the"
^DD(358.6,16.2,21,2,0)="narrative."
^DD(358.6,16.2,"DT")="2951018"
^DD(358.6,16.3,0)="NARRATIVE HEADER^F^^16;3^K:$L(X)>40!($L(X)<1) X"
^DD(358.6,16.3,3)="Answer must be 1-40 characters in length."
^DD(358.6,16.3,21,0)="^^1^1^2950825^"
^DD(358.6,16.3,21,1,0)="Used to label the narrative field."
^DD(358.6,16.3,"DT")="2950815"
^DD(358.6,16.5,0)="ALLOW INPUT OF PRIMARY VALUE?^S^n:NO;o:OPTIONAL;r:REQUIRED;^16;5^Q"
^DD(358.6,16.5,3)="Should a code be entered? n=NO, o=OPTIONAL, r=REQUIRED"
^DD(358.6,16.5,21,0)="^^2^2^2950719^"
^DD(358.6,16.5,21,1,0)="This applies only to interfaces for input and determines whether a"
^DD(358.6,16.5,21,2,0)="value, other than a narrative, can be entered."
^DD(358.6,16.5,"DT")="2950426"
^DD(358.6,16.6,0)="PRIMARY VALUE DATA TYPE^P358.99'^IBE(358.99,^16;6^Q"
^DD(358.6,16.6,3)="What type of data is the primary value?"
^DD(358.6,16.6,21,0)="^^2^2^2951018^^^"
^DD(358.6,16.6,21,1,0)="This applies only to interfaces for input and determines, among other"
^DD(358.6,16.6,21,2,0)="things, the data type of the value to be entered."
^DD(358.6,16.6,"DT")="2950914"
^DD(358.6,16.7,0)="PRIMARY VALUE HEADER^F^^16;7^K:$L(X)>40!($L(X)<1) X"
^DD(358.6,16.7,3)="Answer must be 1-40 characters in length."
^DD(358.6,16.7,21,0)="^^1^1^2950815^"
^DD(358.6,16.7,21,1,0)="Used to label the primary value field."
^DD(358.6,16.7,"DT")="2950815"
^DD(358.6,16.8,0)="ALLOW MULTIPLIERS^S^1:YES;^16;8^Q"
^DD(358.6,16.8,3)="Enter yes if this interface will allow entry of quantity at form development time."
^DD(358.6,16.8,21,0)="^^3^3^2961031^"
^DD(358.6,16.8,21,1,0)="For selection interfaces, this determines whether 'quantity' should be"
^DD(358.6,16.8,21,2,0)="asked at form development time to pass multiple occurrences of a selection"
^DD(358.6,16.8,21,3,0)="to PCE."
^DD(358.6,16.8,"DT")="2961031"
^DD(358.6,16.9,0)="ALLOW INPUT OF MULTIPLE CODES?^S^1:YES;^16;9^Q"
^DD(358.6,16.9,3)="Enter a 1 for 'YES'."
^DD(358.6,16.9,21,0)="^^4^4^2961031^"
^DD(358.6,16.9,21,1,0)="Enter a one in this field if the users will be allowed to add more than"
^DD(358.6,16.9,21,2,0)="one code to pass along to PCE when one entry is bubbled."
^DD(358.6,16.9,21,3,0)="Data in this field REQUIRES that field 17 be populated with mumps code"
^DD(358.6,16.9,21,4,0)="that will allow selection of the code if the entry is edited."
^DD(358.6,16.9,"DT")="2961031"
^DD(358.6,17,0)="SELECTOR^K^^17;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,17,3)="Enter mumps code that will allow the form designer to add a choice to a multiple choice field."
^DD(358.6,17,9)="@"
^DD(358.6,17,21,0)="^^9^9^2950908^^"
^DD(358.6,17,21,1,0)="This field only applies to input interfaces. It is executed as by an input"
^DD(358.6,17,21,2,0)="transform when creating a multiple choice field. It should:"
^DD(358.6,17,21,3,0)="1) Kill X if an nothing is selected, otherwise set X to a value suitable"
^DD(358.6,17,21,4,0)="for display, perhaps the code."
^DD(358.6,17,21,5,0)="2) Set IBLABEL to a suitable label for the choice."
^DD(358.6,17,21,6,0)="3) Set IBID to an identifier. The identifier should ideally be exportable,"
^DD(358.6,17,21,7,0)="meaning the same from site to site. This usually means a coded value"
^DD(358.6,17,21,8,0)="rather than an ien. The identfier should match that of a corresponding"
^DD(358.6,17,21,9,0)="selection interface, if there is one."
^DD(358.6,17,"DT")="2950908"
^DD(358.6,18,0)="MANUAL DATA ENTRY ROUTINE^K^^18;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,18,3)="Enter the code to be executed during manual data entry for this interface.  This is Standard MUMPS code."
^DD(358.6,18,9)="@"
^DD(358.6,18,21,0)="^^7^7^2960123^"
^DD(358.6,18,21,1,0)="This field should only be completed for input package interfaces.  This"
^DD(358.6,18,21,2,0)="code will be executed to provide quick data entry for a user trying to"
^DD(358.6,18,21,3,0)="input data for a form.  It is expected that the output of this field will"
^DD(358.6,18,21,4,0)="be used to format the PXCA array prior to calling PCE to file the data"
^DD(358.6,18,21,5,0)="for the encounter."
^DD(358.6,18,21,6,0)="Developers writing routines for this entry should provide a roll and"
^DD(358.6,18,21,7,0)="scroll interface for manual entry of items only on the form."
^DD(358.6,18,"DT")="2960123"
^DD(358.6,19,0)="EXTERNAL DISPLAY VALUES^K^^19;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,19,3)="This is Standard MUMPS code."
^DD(358.6,19,9)="@"
^DD(358.6,19,21,0)="^^5^5^2960214^"
^DD(358.6,19,21,1,0)="Executable code used to translate the internal value that is to"
^DD(358.6,19,21,2,0)="be passed to PCE into its external value for display purposes.  It"
^DD(358.6,19,21,3,0)="is used by the data validation routines to display the external"
^DD(358.6,19,21,4,0)="values and descriptions of the data to be passed, to the user"
^DD(358.6,19,21,5,0)="for verification."
^DD(358.6,19,"DT")="2960214"
^DD(358.6,20,0)="PASS DQ AS VALUE^S^1:YES;^20;1^Q"
^DD(358.6,20,3)="Enter Yes if the Data Qualifier should be passed as the Value when sending data to PCE."
^DD(358.6,20,21,0)="^^7^7^2961031^"
^DD(358.6,20,21,1,0)="If the value of the Data Qualifier shall be passed to PCE as the VALUE,"
^DD(358.6,20,21,2,0)="this field should be set to one.  Doing so will prevent the data in the"
^DD(358.6,20,21,3,0)="VALUE from populating the PCE DIM NODE, but instead, will allow the Data"
^DD(358.6,20,21,4,0)="Qualifier to pass as the VALUE."
^DD(358.6,20,21,5,0)="This is used mostly for YES/NO Data Qualifiers, where the value may"
^DD(358.6,20,21,6,0)="be a question, and the Data Qualifier Value, if bubbled, is the value"
^DD(358.6,20,21,7,0)="that must be placed on the PCE DIM NODE."
^DD(358.6,20,"DT")="2961031"
^DD(358.6,21,0)="PCE DIM PIECE, VARIABLE VALUE^K^^21;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.6,21,3)="This is Standard MUMPS code."
^DD(358.6,21,9)="@"
^DD(358.6,21,21,0)="^^7^7^2961031^"
^DD(358.6,21,21,1,0)="This field should be populated when the PCE DIM PIECE VALUE is not"
^DD(358.6,21,21,2,0)="constant.  If the value of that field is dependent upon specific conditions,"
^DD(358.6,21,21,3,0)="those conditions may be evaluated by placing the MUMPS code in this"
^DD(358.6,21,21,4,0)="field.  Ultimately, the code should return a value that will be used as"
^DD(358.6,21,21,5,0)="the PCE DIM PIECE VALUE.  If the return value is null, the original"
^DD(358.6,21,21,6,0)="PCE DIM PIECE VALUE field will be used to determine the piece location"
^DD(358.6,21,21,7,0)="to pass the VALUE on."
^DD(358.6,21,"DT")="2961031"
^DD(358.6,"B","ACTION TYPE",.06)=""
^DD(358.6,"B","ALLOW INPUT OF MULTIPLE CODES?",16.9)=""
^DD(358.6,"B","ALLOW INPUT OF NARRATIVE?",16.1)=""
^DD(358.6,"B","ALLOW INPUT OF PRIMARY VALUE?",16.5)=""
^DD(358.6,"B","ALLOW MULTIPLIERS",16.8)=""
^DD(358.6,"B","ALLOWABLE QUALIFIERS",13)=""
^DD(358.6,"B","ALLOWED OBJECT USE",.16)=""
^DD(358.6,"B","ASK FOR ADDITIONAL NARRATIVE",.17)=""
^DD(358.6,"B","ASK FOR CLINICAL LEXICON",.18)=""
^DD(358.6,"B","ASK FOR CLINICAL REMINDERS",.2)=""
^DD(358.6,"B","ASK FOR CPT MODIFIERS?",.21)=""
^DD(358.6,"B","AVAILABLE? (Y/N)",.09)=""
^DD(358.6,"B","CUSTODIAL PACKAGE",.04)=""
^DD(358.6,"B","DATA DESCRIPTION",15)=""
^DD(358.6,"B","DATA TYPE",.07)=""
^DD(358.6,"B","DESCRIPTION",1)=""
^DD(358.6,"B","DO NOT USE DFN AS A SUBSCRIPT",.15)=""
^DD(358.6,"B","DQ REQUIRED",.19)=""
^DD(358.6,"B","DYNAMIC SELECTIONS",.14)=""
^DD(358.6,"B","ENTRY ACTION",4.01)=""
^DD(358.6,"B","ENTRY POINT",.02)=""
^DD(358.6,"B","EXIT ACTION",5.01)=""
^DD(358.6,"B","EXPORT SELECTIONS/CHOICES?",2.18)=""
^DD(358.6,"B","EXTERNAL DISPLAY VALUES",19)=""
^DD(358.6,"B","HEALTH SUMMARY?",.1)=""
^DD(358.6,"B","HELP TEXT",10)=""
^DD(358.6,"B","IS PIECE 1 DISPLAYABLE?",2.17)=""
^DD(358.6,"B","MANUAL DATA ENTRY ROUTINE",18)=""
^DD(358.6,"B","NAME",.01)=""
^DD(358.6,"B","NARRATIVE DATA TYPE",16.2)=""
^DD(358.6,"B","NARRATIVE HEADER",16.3)=""
^DD(358.6,"B","PACKAGE INTERFACE FOR INPUT",.13)=""
^DD(358.6,"B","PASS DQ AS VALUE",20)=""
^DD(358.6,"B","PCE DIM INPUT TRANSFORM",9)=""
^DD(358.6,"B","PCE DIM NODE",12.01)=""
^DD(358.6,"B","PCE DIM OUTPUT TRANSFORM",14)=""
^DD(358.6,"B","PCE DIM PIECE, DATA QUALIFIER",12.05)=""
^DD(358.6,"B","PCE DIM PIECE, HEADER",12.04)=""
^DD(358.6,"B","PCE DIM PIECE, NARRATIVE",12.03)=""
^DD(358.6,"B","PCE DIM PIECE, QUANTITY",12.06)=""
^DD(358.6,"B","PCE DIM PIECE, VALUE",12.02)=""
^DD(358.6,"B","PCE DIM PIECE, VARIABLE VALUE",21)=""
^DD(358.6,"B","PIECE 1 DESCRIPTIVE NAME",2.01)=""
^DD(358.6,"B","PIECE 1 MAXIMUM LENGTH",2.02)=""
^DD(358.6,"B","PIECE 1 NODE",8.01)=""
^DD(358.6,"B","PIECE 1 RECOMMENDED HEADER",2.16)=""
^DD(358.6,"B","PIECE 2 DESCRIPTIVE NAME",2.03)=""
^DD(358.6,"B","PIECE 2 NODE",8.02)=""
^DD(358.6,"B","PIECE 3 DESCRIPTIVE NAME",2.05)=""
^DD(358.6,"B","PIECE 3 MAXIMUM LENGTH",2.06)=""
^DD(358.6,"B","PIECE 3 NODE",8.03)=""
^DD(358.6,"B","PIECE 4 DESCRIPTIVE NAME",2.07)=""
^DD(358.6,"B","PIECE 4 MAXIMUM LENGTH",2.08)=""
^DD(358.6,"B","PIECE 4 NODE",8.04)=""
^DD(358.6,"B","PIECE 5 DESCRIPTIVE NAME",2.09)=""
^DD(358.6,"B","PIECE 5 MAXIMUM LENGTH",2.1)=""
^DD(358.6,"B","PIECE 5 NODE",8.05)=""
^DD(358.6,"B","PIECE 6 DESCRIPTIVE NAME",2.11)=""
^DD(358.6,"B","PIECE 6 MAXIMUM LENGTH",2.12)=""
^DD(358.6,"B","PIECE 6 NODE",8.06)=""
^DD(358.6,"B","PIECE 7 DESCRIPTIVE NAME",2.13)=""
^DD(358.6,"B","PIECE 7 MAXIMUM LENGTH",2.14)=""
^DD(358.6,"B","PIECE 7 NODE",8.07)=""
^DD(358.6,"B","PRIMARY VALUE DATA TYPE",16.6)=""
^DD(358.6,"B","PRIMARY VALUE HEADER",16.7)=""
^DD(358.6,"B","PRINT COMPLETE",.08)=""
^DD(358.6,"B","PROTECTED LOCAL VARIABLES",6)=""
^DD(358.6,"B","REQUIRED LOCAL VARIABLES",7)=""
^DD(358.6,"B","ROUTINE",.03)=""
^DD(358.6,"B","SELECTOR",17)=""
^DD(358.6,"B","TOOLKIT MEMBER?",.12)=""
^DD(358.6,"B","TYPE OF HEALTH SUMMARY",.11)=""
^DD(358.6,"B","USER LOOKUP",3)=""
^DD(358.6,"B","VALIDATOR",11)=""
^DD(358.6,"B","VARIABLE DATA?",.05)=""
^DD(358.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.02)="1"
^DD(358.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.04)=""
^DD(358.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.06)="1"
^DD(358.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.08)="1"
^DD(358.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.1)="1"
^DD(358.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.12)="1"
^DD(358.6,"B","WHAT IS ITS MAXIMUM LENGTH?",2.14)="1"
^DD(358.6,"GL",0,1,.01)=""
^DD(358.6,"GL",0,2,.02)=""
^DD(358.6,"GL",0,3,.03)=""
^DD(358.6,"GL",0,4,.04)=""
^DD(358.6,"GL",0,5,.05)=""
^DD(358.6,"GL",0,6,.06)=""
^DD(358.6,"GL",0,7,.07)=""
^DD(358.6,"GL",0,8,.08)=""
^DD(358.6,"GL",0,9,.09)=""
^DD(358.6,"GL",0,10,.1)=""
^DD(358.6,"GL",0,11,.11)=""
^DD(358.6,"GL",0,12,.12)=""
^DD(358.6,"GL",0,13,.13)=""
^DD(358.6,"GL",0,14,.14)=""
^DD(358.6,"GL",0,15,.15)=""
^DD(358.6,"GL",0,16,.16)=""
^DD(358.6,"GL",0,17,.17)=""
^DD(358.6,"GL",0,18,.18)=""
^DD(358.6,"GL",0,19,.19)=""
^DD(358.6,"GL",0,20,.2)=""
^DD(358.6,"GL",0,21,.21)=""
^DD(358.6,"GL",1,0,1)=""
^DD(358.6,"GL",2,1,2.01)=""
^DD(358.6,"GL",2,2,2.02)=""
^DD(358.6,"GL",2,3,2.03)=""
^DD(358.6,"GL",2,4,2.04)=""
^DD(358.6,"GL",2,5,2.05)=""
^DD(358.6,"GL",2,6,2.06)=""
^DD(358.6,"GL",2,7,2.07)=""
^DD(358.6,"GL",2,8,2.08)=""
^DD(358.6,"GL",2,9,2.09)=""
^DD(358.6,"GL",2,10,2.1)=""
^DD(358.6,"GL",2,11,2.11)=""
^DD(358.6,"GL",2,12,2.12)=""
^DD(358.6,"GL",2,13,2.13)=""
^DD(358.6,"GL",2,14,2.14)=""
^DD(358.6,"GL",2,16,2.16)=""
^DD(358.6,"GL",2,17,2.17)=""
^DD(358.6,"GL",2,18,2.18)=""
^DD(358.6,"GL",3,1,3)=""
^DD(358.6,"GL",4,"E1,245",4.01)=""
^DD(358.6,"GL",5,"E1,245",5.01)=""
^DD(358.6,"GL",6,0,6)=""
^DD(358.6,"GL",7,0,7)=""
^DD(358.6,"GL",8,1,8.01)=""
^DD(358.6,"GL",8,2,8.02)=""
^DD(358.6,"GL",8,3,8.03)=""
^DD(358.6,"GL",8,4,8.04)=""
^DD(358.6,"GL",8,5,8.05)=""
^DD(358.6,"GL",8,6,8.06)=""
^DD(358.6,"GL",8,7,8.07)=""
^DD(358.6,"GL",9,"E1,245",9)=""
^DD(358.6,"GL",10,1,10)=""
^DD(358.6,"GL",11,"E1,245",11)=""
^DD(358.6,"GL",12,1,12.01)=""
^DD(358.6,"GL",12,2,12.02)=""
^DD(358.6,"GL",12,3,12.03)=""
^DD(358.6,"GL",12,4,12.04)=""
^DD(358.6,"GL",12,5,12.05)=""
^DD(358.6,"GL",12,6,12.06)=""
^DD(358.6,"GL",13,0,13)=""
^DD(358.6,"GL",14,"E1,245",14)=""
^DD(358.6,"GL",15,0,15)=""
^DD(358.6,"GL",16,1,16.1)=""
^DD(358.6,"GL",16,2,16.2)=""
^DD(358.6,"GL",16,3,16.3)=""
^DD(358.6,"GL",16,5,16.5)=""
^DD(358.6,"GL",16,6,16.6)=""
^DD(358.6,"GL",16,7,16.7)=""
^DD(358.6,"GL",16,8,16.8)=""
^DD(358.6,"GL",16,9,16.9)=""
^DD(358.6,"GL",17,"E1,245",17)=""
^DD(358.6,"GL",18,"E1,245",18)=""
^DD(358.6,"GL",19,"E1,245",19)=""
^DD(358.6,"GL",20,1,20)=""
^DD(358.6,"GL",21,"E1,245",21)=""
^DD(358.6,"IX",.01)=""
^DD(358.6,"IX",.04)=""
^DD(358.6,"IX",3)=""
^DD(358.6,"RQ",.01)=""
^DD(358.6,"RQ",.06)=""
^DD(358.6,"RQ",.09)=""
^DD(358.6,"SB",358.61,1)=""
^DD(358.6,"SB",358.613,13)=""
^DD(358.6,"SB",358.615,15)=""
^DD(358.6,"SB",358.66,6)=""
^DD(358.6,"SB",358.67,7)=""
^DD(358.61,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(358.61,0,"DT")="2921119"
^DD(358.61,0,"NM","DESCRIPTION")=""
^DD(358.61,0,"UP")="358.6"
^DD(358.61,.01,0)="/6^W^^0;1^Q"
^DD(358.61,.01,3)="Enter a description of the data being exchanged."
^DD(358.61,.01,21,0)="^^1^1^2950719^^"
^DD(358.61,.01,21,1,0)="This should describe the data being exchanged b the package interface."
^DD(358.61,.01,"DT")="2930210"
^DD(358.61,"B","/6",.01)=""
^DD(358.61,"GL",0,1,.01)=""
^DD(358.613,0)="ALLOWABLE QUALIFIERS SUB-FIELD^^.08^6"
^DD(358.613,0,"DT")="2950810"
^DD(358.613,0,"IX","B",358.613,.01)=""
^DD(358.613,0,"NM","ALLOWABLE QUALIFIERS")=""
^DD(358.613,0,"UP")="358.6"
^DD(358.613,.01,0)="ALLOWABLE QUALIFIERS^MV^^0;1^Q"
^DD(358.613,.01,1,0)="^.1"
^DD(358.613,.01,1,1,0)="358.613^B"
^DD(358.613,.01,1,1,1)="S ^IBE(358.6,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(358.613,.01,1,1,2)="K ^IBE(358.6,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(358.613,.01,1,1,3)="Required Index for Variable Pointer"
^DD(358.613,.01,3)="Which qualifiers can apply to the data?"
^DD(358.613,.01,21,0)="^^1^1^2951018^^^^"
^DD(358.613,.01,21,1,0)="A qualifier that can be used by this package interface."
^DD(358.613,.01,"DT")="2950426"
^DD(358.613,.01,"V",0)="^.12P^2^2"
^DD(358.613,.01,"V",1,0)="358.98^QUALIFIER^1^Q^n^n"
^DD(358.613,.01,"V",2,0)="358.99^DATA ELEMENT^2^D^n^n"
^DD(358.613,.01,"V","B",358.98,1)=""
^DD(358.613,.01,"V","B",358.99,2)=""
^DD(358.613,.01,"V","M","DATA ELEMENT",2)=""
^DD(358.613,.01,"V","M","QUALIFIER",1)=""
^DD(358.613,.01,"V","O",1,1)=""
^DD(358.613,.01,"V","O",2,2)=""
^DD(358.613,.01,"V","P","D",2)=""
^DD(358.613,.01,"V","P","Q",1)=""
^DD(358.613,.03,0)="INDEPENDENT MAPPING INFO?^RS^0:NO;1:YES;^0;3^Q"
^DD(358.613,.03,3)="YES means that fields on the form associated with this qualifier will have its own rules for entering the data to the database."
^DD(358.613,.03,21,0)="^^2^2^2950719^"
^DD(358.613,.03,21,1,0)="YES means that data can be mapped into the PCE Generic Device Interface"
^DD(358.613,.03,21,2,0)="based on the qualifier."
^DD(358.613,.03,"DT")="2950426"
^DD(358.613,.04,0)="PCE GDI NODE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(358.613,.04,3)="What node should the qualifier be placed on?"
^DD(358.613,.04,21,0)="^^1^1^2950719^"
^DD(358.613,.04,21,1,0)="The node where the data should be placed."
^DD(358.613,.04,"DT")="2950710"
^DD(358.613,.05,0)="PCE GDI PIECE, VALUE^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.613,.05,3)="What piece should the primary value be located?"
^DD(358.613,.05,21,0)="^^1^1^2950719^"
^DD(358.613,.05,21,1,0)="The piece on the node where the value should be placed."
^DD(358.613,.05,"DT")="2950426"
^DD(358.613,.07,0)="PCE GDI PIECE, HEADER^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.613,.07,3)="What piece should the header be located on?"
^DD(358.613,.07,21,0)="^^1^1^2950719^"
^DD(358.613,.07,21,1,0)="The piece on the node where the associated header should be placed."
^DD(358.613,.07,"DT")="2950426"
^DD(358.613,.08,0)="PCE GDI PIECE, QUALIFIER^NJ2,0^^0;8^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.613,.08,3)="What piece should the qualifier be located on?"
^DD(358.613,.08,21,0)="^^1^1^2950719^"
^DD(358.613,.08,21,1,0)="The piece where the qualifier should go."
^DD(358.613,.08,"DT")="2950426"
^DD(358.613,"B","ALLOWABLE QUALIFIERS",.01)=""
^DD(358.613,"B","INDEPENDENT MAPPING INFO?",.03)=""
^DD(358.613,"B","PCE GDI NODE",.04)=""
^DD(358.613,"B","PCE GDI PIECE, HEADER",.07)=""
^DD(358.613,"B","PCE GDI PIECE, QUALIFIER",.08)=""
^DD(358.613,"B","PCE GDI PIECE, VALUE",.05)=""
^DD(358.613,"GL",0,1,.01)=""
^DD(358.613,"GL",0,3,.03)=""
^DD(358.613,"GL",0,4,.04)=""
^DD(358.613,"GL",0,5,.05)=""
^DD(358.613,"GL",0,7,.07)=""
^DD(358.613,"GL",0,8,.08)=""
^DD(358.613,"IX",.01)=""
^DD(358.613,"RQ",.03)=""
^DD(358.615,0)="DATA DESCRIPTION SUB-FIELD^^.05^5"
^DD(358.615,0,"DT")="2950417"
^DD(358.615,0,"ID","WRITE")="D EN^DDIOL(""  PIECE=""_$P(^(0),U,3),"""",""?0"")"
^DD(358.615,0,"IX","B",358.615,.01)=""
^DD(358.615,0,"IX","C",358.615,.03)=""
^DD(358.615,0,"NM","DATA DESCRIPTION")=""
^DD(358.615,0,"UP")="358.6"
^DD(358.615,.01,0)="DATA^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(358.615,.01,1,0)="^.1"
^DD(358.615,.01,1,1,0)="358.615^B"
^DD(358.615,.01,1,1,1)="S ^IBE(358.6,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(358.615,.01,1,1,2)="K ^IBE(358.6,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(358.615,.01,3)="Enter a descriptive name for this data field, up to 30 characters."
^DD(358.615,.01,21,0)="^^1^1^2950719^"
^DD(358.615,.01,21,1,0)="A descriptive name for the data."
^DD(358.615,.01,"DT")="2950320"
^DD(358.615,.02,0)="MAXIMUM LENGTH^RNJ3,0^^0;2^K:+X'=X!(X>210)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.615,.02,3)="What is the maximum length of this field?"
^DD(358.615,.02,21,0)="^^1^1^2950719^"
^DD(358.615,.02,21,1,0)="The maximum length of the data."
^DD(358.615,.02,"DT")="2950320"
^DD(358.615,.03,0)="PIECE^NJ1,0X^^0;3^K:+X'=X!(X>8)!(X<2)!(X?.E1"".""1N.N)!($D(^IBE(358.6,D0,15,""C"",X))) X"
^DD(358.615,.03,1,0)="^.1"
^DD(358.615,.03,1,1,0)="358.615^C"
^DD(358.615,.03,1,1,1)="S ^IBE(358.6,DA(1),15,""C"",$E(X,1,30),DA)="""""
^DD(358.615,.03,1,1,2)="K ^IBE(358.6,DA(1),15,""C"",$E(X,1,30),DA)"
^DD(358.615,.03,1,1,"%D",0)="^^1^1^2950320^"
^DD(358.615,.03,1,1,"%D",1,0)="Indexes the field by piece."
^DD(358.615,.03,1,1,"DT")="2950320"
^DD(358.615,.03,3)="In the returned record, which piece will this field be?"
^DD(358.615,.03,21,0)="^^1^1^2950719^"
^DD(358.615,.03,21,1,0)="The piece that the data will be returned as."
^DD(358.615,.03,"DT")="2950407"
^DD(358.615,.04,0)="ANNEX NODE^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(358.615,.04,3)="You can optionally specify the subscript to store the data. Use this when the entire record won't fit on one node."
^DD(358.615,.04,21,0)="^^2^2^2950719^"
^DD(358.615,.04,21,1,0)="In case all the returned data can not be returned on a single node an"
^DD(358.615,.04,21,2,0)="annex node can be specified."
^DD(358.615,.04,"DT")="2950320"
^DD(358.615,.05,0)="RECOMMENDED HEADER^F^^0;5^K:$L(X)>40!($L(X)<1) X"
^DD(358.615,.05,3)="Answer must be 1-40 characters in length."
^DD(358.615,.05,21,0)="^^1^1^2950719^^"
^DD(358.615,.05,21,1,0)="The recommended header will be used as the default when designing a form."
^DD(358.615,.05,"DT")="2950417"
^DD(358.615,"B","ANNEX NODE",.04)=""
^DD(358.615,"B","DATA",.01)=""
^DD(358.615,"B","MAXIMUM LENGTH",.02)=""
^DD(358.615,"B","PIECE",.03)=""
^DD(358.615,"B","RECOMMENDED HEADER",.05)=""
^DD(358.615,"GL",0,1,.01)=""
^DD(358.615,"GL",0,2,.02)=""
^DD(358.615,"GL",0,3,.03)=""
^DD(358.615,"GL",0,4,.04)=""
^DD(358.615,"GL",0,5,.05)=""
^DD(358.615,"IX",.01)=""
^DD(358.615,"IX",.03)=""
^DD(358.615,"RQ",.02)=""
^DD(358.66,0)="PROTECTED LOCAL VARIABLES SUB-FIELD^^.01^1"
^DD(358.66,0,"DT")="2930608"
^DD(358.66,0,"IX","B",358.66,.01)=""
^DD(358.66,0,"NM","PROTECTED LOCAL VARIABLES")=""
^DD(358.66,0,"UP")="358.6"
^DD(358.66,.01,0)="PROTECTED LOCAL VARIABLES^MFX^^0;1^K:'$$VARIABLE^IBDFU5(X) X"
^DD(358.66,.01,1,0)="^.1"
^DD(358.66,.01,1,1,0)="358.66^B"
^DD(358.66,.01,1,1,1)="S ^IBE(358.6,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(358.66,.01,1,1,2)="K ^IBE(358.6,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(358.66,.01,3)="Enter variables that should be NEWED before the entry action or calling the interface."
^DD(358.66,.01,21,0)="^^3^3^2950426^^"
^DD(358.66,.01,21,1,0)=" "
^DD(358.66,.01,21,2,0)="A list of variables that should be newed before the entry action or"
^DD(358.66,.01,21,3,0)="calling the interface."
^DD(358.66,.01,"DT")="2930608"
^DD(358.66,"B","PROTECTED LOCAL VARIABLES",.01)=""
^DD(358.66,"GL",0,1,.01)=""
^DD(358.66,"IX",.01)=""
^DD(358.67,0)="REQUIRED LOCAL VARIABLES SUB-FIELD^^.01^1"
^DD(358.67,0,"DT")="2930521"
^DD(358.67,0,"IX","B",358.67,.01)=""
^DD(358.67,0,"NM","REQUIRED LOCAL VARIABLES")=""
^DD(358.67,0,"UP")="358.6"
^DD(358.67,.01,0)="REQUIRED LOCAL VARIABLE^MFX^^0;1^K:'$$VARIABLE^IBDFU5(X) X"
^DD(358.67,.01,1,0)="^.1"
^DD(358.67,.01,1,1,0)="358.67^B"
^DD(358.67,.01,1,1,1)="S ^IBE(358.6,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(358.67,.01,1,1,2)="K ^IBE(358.6,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(358.67,.01,3)="Enter any variables that must exist before the Package Interface routine is called."
^DD(358.67,.01,21,0)="^^4^4^2930528^"
^DD(358.67,.01,21,1,0)=" "
^DD(358.67,.01,21,2,0)="A variable that is required input to the interface routine. The interface"
^DD(358.67,.01,21,3,0)="routine will not be called if all of the required variables are not"
^DD(358.67,.01,21,4,0)="defined."
^DD(358.67,.01,"DT")="2930521"
^DD(358.67,"B","REQUIRED LOCAL VARIABLE",.01)=""
^DD(358.67,"GL",0,1,.01)=""
^DD(358.67,"IX",.01)=""
^DD(358.7,0)="FIELD^^.08^8"
^DD(358.7,0,"DDA")="N"
^DD(358.7,0,"DT")="2950717"
^DD(358.7,0,"ID",.02)="W "" STARTING COL="",$P(^(0),U,2)+1"
^DD(358.7,0,"ID",.03)="W "" STARTING ROW="",$P(^(0),U,3)+1"
^DD(358.7,0,"ID",.06)="W """""
^DD(358.7,0,"IX","B",358.7,.01)=""
^DD(358.7,0,"IX","C",358.7,.06)=""
^DD(358.7,0,"NM","IMP/EXP FORM LINE")=""
^DD(358.7,0,"VR")="3.0"
^DD(358.7,0,"VRPK")="IBD"
^DD(358.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(358.7,.01,1,0)="^.1"
^DD(358.7,.01,1,1,0)="358.7^B"
^DD(358.7,.01,1,1,1)="S ^IBE(358.7,""B"",$E(X,1,30),DA)="""""
^DD(358.7,.01,1,1,2)="K ^IBE(358.7,""B"",$E(X,1,30),DA)"
^DD(358.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(358.7,.01,21,0)="^^4^4^2930527^"
^DD(358.7,.01,21,1,0)=" "
^DD(358.7,.01,21,2,0)="The name given to the line. Lines should be given names that will allow"
^DD(358.7,.01,21,3,0)="them to be identifies, such as V(1,1), meaning a vertical line starting at"
^DD(358.7,.01,21,4,0)="coordinates (1,1)."
^DD(358.7,.02,0)="LINE STARTING COLUMN^RNJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.7,.02,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(358.7,.02,2.1)="S:+Y=Y Y=+Y+1"
^DD(358.7,.02,3)="Enter the block column the line should begin at."
^DD(358.7,.02,21,0)="^^2^2^2930527^"
^DD(358.7,.02,21,1,0)=" "
^DD(358.7,.02,21,2,0)="The column, relative to the block, that the line should begin at."
^DD(358.7,.02,23,0)="^^4^4^2930715^"
^DD(358.7,.02,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.7,.02,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.7,.02,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.7,.02,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.7,.02,"DT")="2930715"
^DD(358.7,.03,0)="LINE STARTING ROW^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.7,.03,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(358.7,.03,2.1)="S:+Y=Y Y=+Y+1"
^DD(358.7,.03,3)="Enter the block row the line should begin at."
^DD(358.7,.03,21,0)="^^2^2^2930527^"
^DD(358.7,.03,21,1,0)=" "
^DD(358.7,.03,21,2,0)="The row, relative to the block, that the line should begin at."
^DD(358.7,.03,23,0)="^^4^4^2930715^"
^DD(358.7,.03,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.7,.03,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.7,.03,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.7,.03,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.7,.03,"DT")="2930715"
^DD(358.7,.04,0)="ORIENTATION^RS^H:HORIZONTAL;V:VERTICAL;^0;4^Q"
^DD(358.7,.04,.1)="ORIENTATION (HORIZONTAL/VERTICAL)"
^DD(358.7,.04,3)="Should the line be horizontal or vertical?"
^DD(358.7,.04,21,0)="^^2^2^2930607^"
^DD(358.7,.04,21,1,0)=" "
^DD(358.7,.04,21,2,0)="The direction the line goes in."
^DD(358.7,.04,"DT")="2930415"
^DD(358.7,.05,0)="LENGTH^RNJ3,0^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.7,.05,3)="How long should the line be?"
^DD(358.7,.05,21,0)="^^3^3^2930527^"
^DD(358.7,.05,21,1,0)=" "
^DD(358.7,.05,21,2,0)="The length of the line. For horizontal lines the length is in terms of"
^DD(358.7,.05,21,3,0)="characters. For vertical lines it is in terms of rows."
^DD(358.7,.05,"DT")="2930319"
^DD(358.7,.06,0)="BLOCK^RP358.1'^IBE(358.1,^0;6^Q"
^DD(358.7,.06,1,0)="^.1"
^DD(358.7,.06,1,1,0)="358.7^C"
^DD(358.7,.06,1,1,1)="S ^IBE(358.7,""C"",$E(X,1,30),DA)="""""
^DD(358.7,.06,1,1,2)="K ^IBE(358.7,""C"",$E(X,1,30),DA)"
^DD(358.7,.06,1,1,"%D",0)="^^2^2^2930319^"
^DD(358.7,.06,1,1,"%D",1,0)=" "
^DD(358.7,.06,1,1,"%D",2,0)="This cross-reference is used to find all lines belonging to a block."
^DD(358.7,.06,1,1,"DT")="2930319"
^DD(358.7,.06,3)="What block should the line appear in?"
^DD(358.7,.06,4)="W ""DOES THIS WORK"",!"
^DD(358.7,.06,21,0)="^^2^2^2930802^^"
^DD(358.7,.06,21,1,0)=" "
^DD(358.7,.06,21,2,0)="The block the line appears in."
^DD(358.7,.06,"DT")="2930802"
^DD(358.7,.07,0)="NUMBER OF LINES^NJ3,0^^0;7^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.7,.07,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(358.7,.07,"DT")="2950717"
^DD(358.7,.08,0)="LINE SPACING^S^s:SINGLE;d:DOUBLE;t:TRIPLE;^0;8^Q"
^DD(358.7,.08,3)="How should the lines be spaced?"
^DD(358.7,.08,"DT")="2950717"
^DD(358.7,"B","BLOCK",.06)=""
^DD(358.7,"B","LENGTH",.05)=""
^DD(358.7,"B","LINE SPACING",.08)=""
^DD(358.7,"B","LINE STARTING COLUMN",.02)=""
^DD(358.7,"B","LINE STARTING ROW",.03)=""
^DD(358.7,"B","NAME",.01)=""
^DD(358.7,"B","NUMBER OF LINES",.07)=""
^DD(358.7,"B","ORIENTATION",.04)=""
^DD(358.7,"GL",0,1,.01)=""
^DD(358.7,"GL",0,2,.02)=""
^DD(358.7,"GL",0,3,.03)=""
^DD(358.7,"GL",0,4,.04)=""
^DD(358.7,"GL",0,5,.05)=""
^DD(358.7,"GL",0,6,.06)=""
^DD(358.7,"GL",0,7,.07)=""
^DD(358.7,"GL",0,8,.08)=""
^DD(358.7,"IX",.01)=""
^DD(358.7,"IX",.06)=""
^DD(358.7,"RQ",.01)=""
^DD(358.7,"RQ",.02)=""
^DD(358.7,"RQ",.03)=""
^DD(358.7,"RQ",.04)=""
^DD(358.7,"RQ",.05)=""
^DD(358.7,"RQ",.06)=""
^DD(358.8,0)="FIELD^^1^7"
^DD(358.8,0,"DDA")="N"
^DD(358.8,0,"DT")="2930802"
^DD(358.8,0,"IX","B",358.8,.01)=""
^DD(358.8,0,"IX","C",358.8,.02)=""
^DD(358.8,0,"NM","IMP/EXP TEXT AREA")=""
^DD(358.8,0,"VR")="3.0"
^DD(358.8,0,"VRPK")="IBD"
^DD(358.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(358.8,.01,1,0)="^.1"
^DD(358.8,.01,1,1,0)="358.8^B"
^DD(358.8,.01,1,1,1)="S ^IBE(358.8,""B"",$E(X,1,30),DA)="""""
^DD(358.8,.01,1,1,2)="K ^IBE(358.8,""B"",$E(X,1,30),DA)"
^DD(358.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(358.8,.01,21,0)="^^2^2^2930528^"
^DD(358.8,.01,21,1,0)=" "
^DD(358.8,.01,21,2,0)="The name of the text area."
^DD(358.8,.02,0)="BLOCK^RP358.1'^IBE(358.1,^0;2^Q"
^DD(358.8,.02,1,0)="^.1"
^DD(358.8,.02,1,1,0)="358.8^C"
^DD(358.8,.02,1,1,1)="S ^IBE(358.8,""C"",$E(X,1,30),DA)="""""
^DD(358.8,.02,1,1,2)="K ^IBE(358.8,""C"",$E(X,1,30),DA)"
^DD(358.8,.02,1,1,"%D",0)="^^3^3^2930326^"
^DD(358.8,.02,1,1,"%D",1,0)=" "
^DD(358.8,.02,1,1,"%D",2,0)="Used to find all of the text areas that should appear on a particular"
^DD(358.8,.02,1,1,"%D",3,0)="block."
^DD(358.8,.02,1,1,"DT")="2930326"
^DD(358.8,.02,3)="What block do you want the text to appear in?"
^DD(358.8,.02,21,0)="^^2^2^2930802^^"
^DD(358.8,.02,21,1,0)=" "
^DD(358.8,.02,21,2,0)="The block the text area is displayed in."
^DD(358.8,.02,"DT")="2930802"
^DD(358.8,.03,0)="TEXT AREA STARTING COLUMN^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.8,.03,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(358.8,.03,2.1)="S:+Y=Y Y=+Y+1"
^DD(358.8,.03,3)="What block column should the text begin in?"
^DD(358.8,.03,21,0)="^^2^2^2930528^"
^DD(358.8,.03,21,1,0)=" "
^DD(358.8,.03,21,2,0)="The starting position of the text area, relative to the block."
^DD(358.8,.03,23,0)="^^4^4^2930715^"
^DD(358.8,.03,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.8,.03,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.8,.03,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.8,.03,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.8,.03,"DT")="2930715"
^DD(358.8,.04,0)="TEXT AREA STARTING ROW^RNJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.8,.04,2)="S Y(0)=Y S:+Y=Y Y=+Y+1"
^DD(358.8,.04,2.1)="S:+Y=Y Y=+Y+1"
^DD(358.8,.04,3)="What block row should the text begin in?"
^DD(358.8,.04,21,0)="^^2^2^2930528^"
^DD(358.8,.04,21,1,0)=" "
^DD(358.8,.04,21,2,0)="The starting row of the text area, relative to the block."
^DD(358.8,.04,23,0)="^^4^4^2930715^"
^DD(358.8,.04,23,1,0)="The internal representation starts at 0, the external representation"
^DD(358.8,.04,23,2,0)="starts at 1. The difference is because for computing the form image"
^DD(358.8,.04,23,3,0)="it is convenient to work with displacements from the top left-hand"
^DD(358.8,.04,23,4,0)="corner. However, users do not want to work with row=0 or column=0."
^DD(358.8,.04,"DT")="2930715"
^DD(358.8,.05,0)="TEXT WIDTH^RNJ3,0^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.8,.05,3)="How many columns should be allocated on the block for the text?"
^DD(358.8,.05,21,0)="^^2^2^2930528^"
^DD(358.8,.05,21,1,0)=" "
^DD(358.8,.05,21,2,0)="The width of the text area, measured in characters."
^DD(358.8,.05,"DT")="2930326"
^DD(358.8,.06,0)="TEXT HEIGHT^RNJ3,0^^0;6^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.8,.06,3)="How many lines on the block should be allocated for the text?"
^DD(358.8,.06,21,0)="^^2^2^2930528^"
^DD(358.8,.06,21,1,0)=" "
^DD(358.8,.06,21,2,0)="The height of the text area, measured in lines."
^DD(358.8,.06,"DT")="2930326"
^DD(358.8,1,0)="TEXT^358.81^^1;0"
^DD(358.8,1,21,0)="^^2^2^2930528^"
^DD(358.8,1,21,1,0)=" "
^DD(358.8,1,21,2,0)="The text that should appear within the text area."
^DD(358.8,"B","BLOCK",.02)=""
^DD(358.8,"B","NAME",.01)=""
^DD(358.8,"B","TEXT",1)=""
^DD(358.8,"B","TEXT AREA STARTING COLUMN",.03)=""
^DD(358.8,"B","TEXT AREA STARTING ROW",.04)=""
^DD(358.8,"B","TEXT HEIGHT",.06)=""
^DD(358.8,"B","TEXT WIDTH",.05)=""
^DD(358.8,"GL",0,1,.01)=""
^DD(358.8,"GL",0,2,.02)=""
^DD(358.8,"GL",0,3,.03)=""
^DD(358.8,"GL",0,4,.04)=""
^DD(358.8,"GL",0,5,.05)=""
^DD(358.8,"GL",0,6,.06)=""
^DD(358.8,"GL",1,0,1)=""
^DD(358.8,"IX",.01)=""
^DD(358.8,"IX",.02)=""
^DD(358.8,"RQ",.01)=""
^DD(358.8,"RQ",.02)=""
^DD(358.8,"RQ",.03)=""
^DD(358.8,"RQ",.04)=""
^DD(358.8,"RQ",.05)=""
^DD(358.8,"RQ",.06)=""
^DD(358.8,"SB",358.81,1)=""
^DD(358.81,0)="TEXT SUB-FIELD^^.01^1"
^DD(358.81,0,"NM","TEXT")=""
^DD(358.81,0,"UP")="358.8"
^DD(358.81,.01,0)="TEXT^WL^^0;1^Q"
^DD(358.81,.01,3)="Enter the text that you want to appear in the block."
^DD(358.81,.01,"DT")="2930326"
^DD(358.81,"B","TEXT",.01)=""
^DD(358.81,"GL",0,1,.01)=""
^DD(358.91,0)="FIELD^^.04^4"
^DD(358.91,0,"DDA")="N"
^DD(358.91,0,"DT")="2960123"
^DD(358.91,0,"IX","B",358.91,.01)=""
^DD(358.91,0,"NM","IMP/EXP MARKING AREA")=""
^DD(358.91,0,"PT",358.22,.06)=""
^DD(358.91,0,"VR")="3.0"
^DD(358.91,0,"VRPK")="IBD"
^DD(358.91,.01,0)="NAME^RFX^^0;1^K:$L(X)>30 X"
^DD(358.91,.01,1,0)="^.1"
^DD(358.91,.01,1,1,0)="358.91^B"
^DD(358.91,.01,1,1,1)="S ^IBE(358.91,""B"",$E(X,1,30),DA)="""""
^DD(358.91,.01,1,1,2)="K ^IBE(358.91,""B"",$E(X,1,30),DA)"
^DD(358.91,.01,3)="NAME MUST BE UNDER 31 CHARACTERS"
^DD(358.91,.01,21,0)="^^1^1^2930608^"
^DD(358.91,.01,21,1,0)="The name should describe the appearance of the marking area on the form."
^DD(358.91,.02,0)="DISPLAY STRING^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(358.91,.02,3)="Answer must be 1-20 characters in length."
^DD(358.91,.02,21,0)="^^2^2^2930528^"
^DD(358.91,.02,21,1,0)=" "
^DD(358.91,.02,21,2,0)="The text that should be displayed in the MARKING AREA."
^DD(358.91,.02,"DT")="2921207"
^DD(358.91,.03,0)="TOOL KIT MEMBER?^S^0:NO;1:YES;^0;3^Q"
^DD(358.91,.03,3)="Enter YES if the MARKING AREA is part of the tool kit, NO otherwise."
^DD(358.91,.03,21,0)="^^2^2^2960123^"
^DD(358.91,.03,21,1,0)="Used to prevent local sites from editing MARKING AREAS that are part of the"
^DD(358.91,.03,21,2,0)="tool kit."
^DD(358.91,.03,"DT")="2960123"
^DD(358.91,.04,0)="REQUIRES SPECIAL PROCEDURE?^S^0:NO;1:YES;^0;4^Q"
^DD(358.91,.04,3)="Answer NO if the Marking Area is just text, YES if it requires a special procedure to print."
^DD(358.91,.04,21,0)="^^2^2^2960123^"
^DD(358.91,.04,21,1,0)="No means that the Marking Area is just text that can be printed.  YES "
^DD(358.91,.04,21,2,0)="means that a special procedure must be called to print the Marking Area."
^DD(358.91,.04,"DT")="2960123"
^DD(358.91,"B","DISPLAY STRING",.02)=""
^DD(358.91,"B","NAME",.01)=""
^DD(358.91,"B","REQUIRES SPECIAL PROCEDURE?",.04)=""
^DD(358.91,"B","TOOL KIT MEMBER?",.03)=""
^DD(358.91,"GL",0,1,.01)=""
^DD(358.91,"GL",0,2,.02)=""
^DD(358.91,"GL",0,3,.03)=""
^DD(358.91,"GL",0,4,.04)=""
^DD(358.91,"IX",.01)=""
^DD(358.91,"RQ",.01)=""
^DD(358.93,0)="FIELD^^1^9"
^DD(358.93,0,"DDA")="N"
^DD(358.93,0,"DT")="2960119"
^DD(358.93,0,"IX","A",358.931,.01)=""
^DD(358.93,0,"IX","A1",358.931,.02)=""
^DD(358.93,0,"IX","B",358.93,.01)=""
^DD(358.93,0,"IX","C",358.93,.08)=""
^DD(358.93,0,"NM","IMP/EXP MULTIPLE CHOICE FIELD")=""
^DD(358.93,0,"VR")="3.0"
^DD(358.93,0,"VRPK")="IBD"
^DD(358.93,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(358.93,.01,1,0)="^.1"
^DD(358.93,.01,1,1,0)="358.93^B"
^DD(358.93,.01,1,1,1)="S ^IBE(358.93,""B"",$E(X,1,30),DA)="""""
^DD(358.93,.01,1,1,2)="K ^IBE(358.93,""B"",$E(X,1,30),DA)"
^DD(358.93,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(358.93,.01,21,0)="^^2^2^2930623^^^^"
^DD(358.93,.01,21,1,0)=" "
^DD(358.93,.01,21,2,0)="The division the setup is for."
^DD(358.93,.01,"DT")="2930518"
^DD(358.93,.02,0)="QUESTION OR EXPLANATION ^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(358.93,.02,.1)="YOU CAN ENTER TEXT, SUCH AS A QUESTION, TO APPEAR ON THE FORM"
^DD(358.93,.02,3)="You may enter text, such as a question, to appear as part of the input field."
^DD(358.93,.02,"DT")="2940721"
^DD(358.93,.03,0)="STARTING COLUMN FOR TEXT^NJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.93,.03,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.93,.03,2.1)="S Y=+Y+1"
^DD(358.93,.03,3)="What block column shuld the label begin in?"
^DD(358.93,.03,"DT")="2940721"
^DD(358.93,.04,0)="STARTING ROW FOR TEXT^NJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.93,.04,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.93,.04,2.1)="S Y=+Y+1"
^DD(358.93,.04,3)="What block row should the label start in?"
^DD(358.93,.04,"DT")="2940721"
^DD(358.93,.06,0)="TYPE OF DATA^R*P358.6'X^IBE(358.6,^0;6^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$D(^(9))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.93,.06,.1)="WHAT TYPE OF DATA WILL BE ENTERED TO THIS FIELD?"
^DD(358.93,.06,3)="What type of data will be entered to the field?"
^DD(358.93,.06,12)="Allows only available interfaces for passing data to DHCP."
^DD(358.93,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$D(^(9))"""
^DD(358.93,.06,21,0)="^^2^2^2950914^^^"
^DD(358.93,.06,21,1,0)="Points to the package interface file. That is where information about the"
^DD(358.93,.06,21,2,0)="data and how to map it to DHCP is stored."
^DD(358.93,.06,"DT")="2950727"
^DD(358.93,.07,0)="TEXT APPEARANCE^FX^^0;7^S X=$$UPPER^VALM1(X) K:$L(X)>3!(""UBR""'[$E(X,1))!(""UBR""'[$E(X,2))!(""UBR""'[$E(X,3)) X"
^DD(358.93,.07,.1)="HOW SHOULD THE TEXT APPEAR? CHOOSE FROM {U,B,R}"
^DD(358.93,.07,3)="B=bold,U=underline,R=reverse You can enter any combination of {B,U,R}."
^DD(358.93,.07,"DT")="2940816"
^DD(358.93,.08,0)="BLOCK^RP358.1'^IBE(358.1,^0;8^Q"
^DD(358.93,.08,1,0)="^.1"
^DD(358.93,.08,1,1,0)="358.93^C"
^DD(358.93,.08,1,1,1)="S ^IBE(358.93,""C"",$E(X,1,30),DA)="""""
^DD(358.93,.08,1,1,2)="K ^IBE(358.93,""C"",$E(X,1,30),DA)"
^DD(358.93,.08,1,1,"%D",0)="^^1^1^2940720^"
^DD(358.93,.08,1,1,"%D",1,0)="Used to find all the input fields appearing in a block."
^DD(358.93,.08,1,1,"DT")="2940720"
^DD(358.93,.08,3)="What block should this input field appear in?"
^DD(358.93,.08,"DT")="2940720"
^DD(358.93,.09,0)="SELECTION RULE^S^0:ANY NUMBER;1:EXACTLY ONE;2:AT MOST ONE (0 or 1);3:AT LEAST ONE (1 or more);^0;9^Q"
^DD(358.93,.09,3)="Which rule applies to the choices the user can makee?"
^DD(358.93,.09,"DT")="2941209"
^DD(358.93,1,0)="CHOICE^358.931^^1;0"
^DD(358.93,1,12)="Allows only package interfaces that print reports and that are available."
^DD(358.93,1,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"""
^DD(358.93,1,21,0)="^^2^2^2930528^"
^DD(358.93,1,21,1,0)=" "
^DD(358.93,1,21,2,0)="The reports that should print."
^DD(358.93,1,"DT")="2940721"
^DD(358.93,"B","BLOCK",.08)=""
^DD(358.93,"B","CHOICE",1)=""
^DD(358.93,"B","NAME",.01)=""
^DD(358.93,"B","QUESTION OR EXPLANATION ",.02)=""
^DD(358.93,"B","SELECTION RULE",.09)=""
^DD(358.93,"B","STARTING COLUMN FOR TEXT",.03)=""
^DD(358.93,"B","STARTING ROW FOR TEXT",.04)=""
^DD(358.93,"B","TEXT APPEARANCE",.07)=""
^DD(358.93,"B","TYPE OF DATA",.06)=""
^DD(358.93,"GL",0,1,.01)=""
^DD(358.93,"GL",0,2,.02)=""
^DD(358.93,"GL",0,3,.03)=""
^DD(358.93,"GL",0,4,.04)=""
^DD(358.93,"GL",0,6,.06)=""
^DD(358.93,"GL",0,7,.07)=""
^DD(358.93,"GL",0,8,.08)=""
^DD(358.93,"GL",0,9,.09)=""
^DD(358.93,"GL",1,0,1)=""
^DD(358.93,"IX",.01)=""
^DD(358.93,"IX",.08)=""
^DD(358.93,"RQ",.01)=""
^DD(358.93,"RQ",.06)=""
^DD(358.93,"RQ",.08)=""
^DD(358.93,"SB",358.931,1)=""
^DD(358.931,0)="CHOICE SUB-FIELD^^.09^9"
^DD(358.931,0,"DT")="2960119"
^DD(358.931,0,"IX","B",358.931,.01)=""
^DD(358.931,0,"NM","CHOICE")=""
^DD(358.931,0,"UP")="358.93"
^DD(358.931,.01,0)="CHOICE^MF^^0;1^K:$L(X)>68!($L(X)<1) X"
^DD(358.931,.01,.1)="LABEL APPEARING WITH THE BUBBLE"
^DD(358.931,.01,1,0)="^.1"
^DD(358.931,.01,1,1,0)="358.931^B"
^DD(358.931,.01,1,1,1)="S ^IBE(358.93,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(358.931,.01,1,1,2)="K ^IBE(358.93,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(358.931,.01,1,2,0)="358.93^A^MUMPS"
^DD(358.931,.01,1,2,1)="I $P($G(^IBE(358.93,DA(1),1,DA,0)),U,2) S ^IBE(358.93,""A"",$P(^IBE(358.93,DA(1),0),U),$P(^IBE(358.93,DA(1),1,DA,0),U,2),X,DA(1),DA)="""""
^DD(358.931,.01,1,2,2)="I $P($G(^IBE(358.93,DA(1),1,DA,0)),U,2) K ^IBE(358.93,""A"",$P(^IBE(358.93,DA(1),0),U),$P(^IBE(358.93,DA(1),1,DA,0),U,2),X,DA(1),DA)"
^DD(358.931,.01,1,2,"%D",0)="^^3^3^2960402^^^^"
^DD(358.931,.01,1,2,"%D",1,0)=" "
^DD(358.931,.01,1,2,"%D",2,0)="Used to find all the reports/forms that should be printed for the division"
^DD(358.931,.01,1,2,"%D",3,0)="under a particular condition."
^DD(358.931,.01,1,2,"DT")="2960402"
^DD(358.931,.01,3)="Answer must be 1-68 characters in length."
^DD(358.931,.01,12)="Allows only reports installed in the Package Interface file."
^DD(358.931,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"""
^DD(358.931,.01,21,0)="^^3^3^2960118^^"
^DD(358.931,.01,21,1,0)=" "
^DD(358.931,.01,21,2,0)="A report that should print. Only reports contained in the Package"
^DD(358.931,.01,21,3,0)="Interface file can be printed by the print manager."
^DD(358.931,.01,"DT")="2960402"
^DD(358.931,.02,0)="STARTING COLUMN FOR LABEL^NJ3,0XO^^0;2^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.931,.02,1,0)="^.1"
^DD(358.931,.02,1,1,0)="358.93^A1^MUMPS"
^DD(358.931,.02,1,1,1)="S ^IBE(358.93,""A"",$P($G(^IBE(358.93,DA(1),0)),U),X,$P($G(^IBE(358.93,DA(1),1,DA,0)),U),DA(1),DA)="""""
^DD(358.931,.02,1,1,2)="K ^IBE(358.93,""A"",$P($G(^IBE(358.93,DA(1),0)),U),X,$P($G(^IBE(358.93,DA(1),1,DA,0)),U),DA(1),DA)"
^DD(358.931,.02,1,1,"%D",0)="^^3^3^2960402^^^^"
^DD(358.931,.02,1,1,"%D",1,0)=" "
^DD(358.931,.02,1,1,"%D",2,0)="Used to find all the reports/forms that should be printed for the entire"
^DD(358.931,.02,1,1,"%D",3,0)="division under a particular condition."
^DD(358.931,.02,1,1,"DT")="2960402"
^DD(358.931,.02,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.931,.02,2.1)="S Y=+Y+1"
^DD(358.931,.02,3)="What block column should the label begin in?"
^DD(358.931,.02,4)="D HELP6^IBDFU5A"
^DD(358.931,.02,21,0)="^^2^2^2930528^"
^DD(358.931,.02,21,1,0)=" "
^DD(358.931,.02,21,2,0)="The condition under which the report should print."
^DD(358.931,.02,"DT")="2960402"
^DD(358.931,.03,0)="STARTING ROW FOR LABEL^NJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.931,.03,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.931,.03,2.1)="S Y=+Y+1"
^DD(358.931,.03,3)="What block row should the label be in?"
^DD(358.931,.03,"DT")="2940720"
^DD(358.931,.04,0)="LABEL APPEARANCE^FX^^0;4^S X=$$UPPER^VALM1(X) K:$L(X)>4!(""UBRI""'[$E(X,1))!(""UBRI""'[$E(X,2))!(""UBRI""'[$E(X,3))!(""UBRI""'[$E(X,4)) X"
^DD(358.931,.04,.1)="HOW SHOULD THE LABEL APPEAR? CHOOSE FROM {U,B,R,I}"
^DD(358.931,.04,3)="B=bold,U=underline,R=reverse,I=invisible You can enter any combination of {B,U,R,I}. The label will not print if it is made invisible."
^DD(358.931,.04,"DT")="2940816"
^DD(358.931,.05,0)="CHOICE LABEL^RF^^0;5^K:$L(X)>120!($L(X)<1) X"
^DD(358.931,.05,3)="Answer must be 1-120 characters in length."
^DD(358.931,.05,21,0)="^^1^1^2960118^"
^DD(358.931,.05,21,1,0)="The label that is to appear with the choice."
^DD(358.931,.05,"DT")="2960118"
^DD(358.931,.06,0)="STARTING COLUMN FOR BUBBLE^RNJ3,0XO^^0;6^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.931,.06,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.931,.06,2.1)="S Y=+Y+1"
^DD(358.931,.06,3)="What block column should the bubble begin in?"
^DD(358.931,.06,"DT")="2940720"
^DD(358.931,.07,0)="STARTING ROW FOR BUBBLE^RNJ3,0XO^^0;7^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.931,.07,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.931,.07,2.1)="S Y=+Y+1"
^DD(358.931,.07,3)="What block row should the bubble be in?"
^DD(358.931,.07,"DT")="2940720"
^DD(358.931,.08,0)="VALUE TO PASS^RFX^^0;8^S X=X"
^DD(358.931,.08,3)="What data should be entered into the database when this bubble is checked?"
^DD(358.931,.08,4)=""
^DD(358.931,.08,22)="t"
^DD(358.931,.08,"DT")="2950901"
^DD(358.931,.09,0)="DATA QUALIFIER^*P358.98'^IBD(358.98,^0;9^S DIC(""S"")=""I $$DQGOOD^IBDFU9($P($G(^IBE(358.93,DA(1),0)),""""^"""",6),Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.931,.09,3)="Does one of the qualifers appy to this choice?"
^DD(358.931,.09,12)="Allows only certain data qualifiers, dependent on the type of data."
^DD(358.931,.09,12.1)="S DIC(""S"")=""I $$DQGOOD^IBDFU9($P($G(^IBE(358.93,DA(1),0)),""""^"""",6),Y)"""
^DD(358.931,.09,"DT")="2941207"
^DD(358.931,"B","CHOICE",.01)=""
^DD(358.931,"B","CHOICE LABEL",.05)=""
^DD(358.931,"B","DATA QUALIFIER",.09)=""
^DD(358.931,"B","LABEL APPEARANCE",.04)=""
^DD(358.931,"B","STARTING COLUMN FOR BUBBLE",.06)=""
^DD(358.931,"B","STARTING COLUMN FOR LABEL",.02)=""
^DD(358.931,"B","STARTING ROW FOR BUBBLE",.07)=""
^DD(358.931,"B","STARTING ROW FOR LABEL",.03)=""
^DD(358.931,"B","VALUE TO PASS",.08)=""
^DD(358.931,"GL",0,1,.01)=""
^DD(358.931,"GL",0,2,.02)=""
^DD(358.931,"GL",0,3,.03)=""
^DD(358.931,"GL",0,4,.04)=""
^DD(358.931,"GL",0,5,.05)=""
^DD(358.931,"GL",0,6,.06)=""
^DD(358.931,"GL",0,7,.07)=""
^DD(358.931,"GL",0,8,.08)=""
^DD(358.931,"GL",0,9,.09)=""
^DD(358.931,"IX",.01)=""
^DD(358.931,"IX",.02)=""
^DD(358.931,"RQ",.05)=""
^DD(358.931,"RQ",.06)=""
^DD(358.931,"RQ",.07)=""
^DD(358.931,"RQ",.08)=""
^DD(358.94,0)="FIELD^^.1^8"
^DD(358.94,0,"DT")="2950728"
^DD(358.94,0,"IX","B",358.94,.01)=""
^DD(358.94,0,"IX","C",358.94,.08)=""
^DD(358.94,0,"NM","IMP/EXP HAND PRINT FIELD")=""
^DD(358.94,0,"VR")="3.0"
^DD(358.94,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(358.94,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(358.94,.01,1,0)="^.1"
^DD(358.94,.01,1,1,0)="358.94^B"
^DD(358.94,.01,1,1,1)="S ^IBE(358.94,""B"",$E(X,1,30),DA)="""""
^DD(358.94,.01,1,1,2)="K ^IBE(358.94,""B"",$E(X,1,30),DA)"
^DD(358.94,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(358.94,.01,21,0)="^^3^3^2950725^"
^DD(358.94,.01,21,1,0)=" "
^DD(358.94,.01,21,2,0)=" "
^DD(358.94,.01,21,3,0)="The name of the field. "
^DD(358.94,.01,"DT")="2930518"
^DD(358.94,.02,0)="LABEL^RF^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(358.94,.02,.1)=""
^DD(358.94,.02,3)="What label should appear before the hand print field?"
^DD(358.94,.02,21,0)="^^1^1^2950728^^^^"
^DD(358.94,.02,21,1,0)="The text that labels the field on the form."
^DD(358.94,.02,"DT")="2950728"
^DD(358.94,.03,0)="STARTING COLUMN^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.94,.03,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.94,.03,2.1)="S Y=+Y+1"
^DD(358.94,.03,3)="What block column should the field begin in?"
^DD(358.94,.03,"DT")="2950728"
^DD(358.94,.04,0)="STARTING ROW^RNJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.94,.04,2)="S Y(0)=Y S Y=+Y+1"
^DD(358.94,.04,2.1)="S Y=+Y+1"
^DD(358.94,.04,3)="What block row should the field start in?"
^DD(358.94,.04,"DT")="2950728"
^DD(358.94,.05,0)="LABEL APPEARANCE^F^^0;5^K:$L(X)>3!($L(X)<1) X"
^DD(358.94,.05,3)="B=bold,U=underline,R=reverse You can enter any combination of {B,U,R}."
^DD(358.94,.05,21,0)="^^1^1^2950725^"
^DD(358.94,.05,21,1,0)="Allows the form designer to specify the appearance of the label."
^DD(358.94,.05,"DT")="2950725"
^DD(358.94,.06,0)="TYPE OF DATA^R*P357.6'X^IBE(357.6,^0;6^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.94,.06,.1)="WHAT TYPE OF DATA WILL BE ENTERED TO THIS FIELD?"
^DD(358.94,.06,3)="What type of data will be entered to the field?"
^DD(358.94,.06,12)="Allows only interfaces for passing values from user filled in fields."
^DD(358.94,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1"""
^DD(358.94,.06,21,0)="^^2^2^2950914^^^"
^DD(358.94,.06,21,1,0)="Points to the package interface file. That is where information about the"
^DD(358.94,.06,21,2,0)="data and how to map it to DHCP is stored."
^DD(358.94,.06,"DT")="2950914"
^DD(358.94,.08,0)="BLOCK^RP357.1'^IBE(357.1,^0;8^Q"
^DD(358.94,.08,1,0)="^.1"
^DD(358.94,.08,1,1,0)="358.94^C"
^DD(358.94,.08,1,1,1)="S ^IBE(358.94,""C"",$E(X,1,30),DA)="""""
^DD(358.94,.08,1,1,2)="K ^IBE(358.94,""C"",$E(X,1,30),DA)"
^DD(358.94,.08,1,1,"%D",0)="^^1^1^2940720^"
^DD(358.94,.08,1,1,"%D",1,0)="Used to find all the input fields appearing in a block."
^DD(358.94,.08,1,1,"DT")="2940720"
^DD(358.94,.08,3)="What block should this input field appear in?"
^DD(358.94,.08,"DT")="2940720"
^DD(358.94,.1,0)="DHCP DATA ELEMENT^R*P359.1'X^IBE(359.1,^0;10^S DIC(""S"")=""I $$DTGOOD^IBDFU9($P($G(^IBE(358.94,DA,0)),""""^"""",6),Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(358.94,.1,3)="What data will be printed in this field?"
^DD(358.94,.1,12)="Allows only data elements defined as allowable for the Package Interface."
^DD(358.94,.1,12.1)="S DIC(""S"")=""I $$DTGOOD^IBDFU9($P($G(^IBE(358.94,DA,0)),""""^"""",6),Y)"""
^DD(358.94,.1,21,0)="^^1^1^2950914^^"
^DD(358.94,.1,21,1,0)="Specifies what data the hand print field is for."
^DD(358.94,.1,"DT")="2950727"
^DD(358.94,"B","BLOCK",.08)=""
^DD(358.94,"B","DHCP DATA ELEMENT",.1)=""
^DD(358.94,"B","LABEL",.02)=""
^DD(358.94,"B","LABEL APPEARANCE",.05)=""
^DD(358.94,"B","NAME",.01)=""
^DD(358.94,"B","STARTING COLUMN",.03)=""
^DD(358.94,"B","STARTING ROW",.04)=""
^DD(358.94,"B","TYPE OF DATA",.06)=""
^DD(358.94,"GL",0,1,.01)=""
^DD(358.94,"GL",0,2,.02)=""
^DD(358.94,"GL",0,3,.03)=""
^DD(358.94,"GL",0,4,.04)=""
^DD(358.94,"GL",0,5,.05)=""
^DD(358.94,"GL",0,6,.06)=""
^DD(358.94,"GL",0,8,.08)=""
^DD(358.94,"GL",0,10,.1)=""
^DD(358.94,"IX",.01)=""
^DD(358.94,"IX",.08)=""
^DD(358.94,"RQ",.01)=""
^DD(358.94,"RQ",.02)=""
^DD(358.94,"RQ",.03)=""
^DD(358.94,"RQ",.04)=""
^DD(358.94,"RQ",.06)=""
^DD(358.94,"RQ",.08)=""
^DD(358.94,"RQ",.1)=""
^DD(358.98,0)="FIELD^^.03^3"
^DD(358.98,0,"DDA")="N"
^DD(358.98,0,"DT")="2950717"
^DD(358.98,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(358.98,0,"IX","B",358.98,.01)=""
^DD(358.98,0,"NM","IMP/EXP AICS DATA QUALIFIERS")=""
^DD(358.98,0,"PT",358.22,.09)=""
^DD(358.98,0,"PT",358.613,.01)=""
^DD(358.98,0,"PT",358.931,.09)=""
^DD(358.98,0,"VR")="3.0"
^DD(358.98,0,"VRPK")="IBD"
^DD(358.98,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(358.98,.01,1,0)="^.1"
^DD(358.98,.01,1,1,0)="358.98^B"
^DD(358.98,.01,1,1,1)="S ^IBD(358.98,""B"",$E(X,1,30),DA)="""""
^DD(358.98,.01,1,1,2)="K ^IBD(358.98,""B"",$E(X,1,30),DA)"
^DD(358.98,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(358.98,.02,0)="CODE^RF^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(358.98,.02,3)="Answer must be 1-3 characters in length."
^DD(358.98,.02,"DT")="2941018"
^DD(358.98,.03,0)="RECOMMENDED HEADER^F^^0;3^K:$L(X)>12!($L(X)<1) X"
^DD(358.98,.03,3)="Answer must be 1-12 characters in length."
^DD(358.98,.03,21,0)="^^2^2^2950717^"
^DD(358.98,.03,21,1,0)="The recommended header will be used as the default header when designing a"
^DD(358.98,.03,21,2,0)="form."
^DD(358.98,.03,"DT")="2950717"
^DD(358.98,"B","CODE",.02)=""
^DD(358.98,"B","NAME",.01)=""
^DD(358.98,"B","RECOMMENDED HEADER",.03)=""
^DD(358.98,"GL",0,1,.01)=""
^DD(358.98,"GL",0,2,.02)=""
^DD(358.98,"GL",0,3,.03)=""
^DD(358.98,"IX",.01)=""
^DD(358.98,"RQ",.01)=""
^DD(358.98,"RQ",.02)=""
^DD(358.99,0)="FIELD^^10.04^15"
^DD(358.99,0,"DDA")="N"
^DD(358.99,0,"DT")="2950928"
^DD(358.99,0,"IX","B",358.99,.01)=""
^DD(358.99,0,"NM","IMP/EXP AICS DATA ELEMENTS")=""
^DD(358.99,0,"PT",357.6,13)=""
^DD(358.99,0,"PT",357.613,.01)=""
^DD(358.99,0,"PT",358.6,16.2)=""
^DD(358.99,0,"PT",358.6,16.6)=""
^DD(358.99,0,"PT",358.613,.01)=""
^DD(358.99,0,"VR")="3.0"
^DD(358.99,0,"VRPK")="IBD"
^DD(358.99,.01,0)="DHCP DATA TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(358.99,.01,1,0)="^.1"
^DD(358.99,.01,1,1,0)="358.99^B"
^DD(358.99,.01,1,1,1)="S ^IBE(358.99,""B"",$E(X,1,30),DA)="""""
^DD(358.99,.01,1,1,2)="K ^IBE(358.99,""B"",$E(X,1,30),DA)"
^DD(358.99,.01,3)="Answer must be 3-30 characters in length."
^DD(358.99,.01,21,0)="^^2^2^2950418^"
^DD(358.99,.01,21,1,0)="A type of data that is recognized as such within the framework of scanning"
^DD(358.99,.01,21,2,0)="DHCP forms and which requires its own Paper Keyboard description."
^DD(358.99,.01,"DT")="2950418"
^DD(358.99,.02,0)="MAXIMUM LENGTH FOR INPUT^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.99,.02,3)="What is the maximum number of characters that can be input for this data?"
^DD(358.99,.02,21,0)="^^1^1^2950808^"
^DD(358.99,.02,21,1,0)="The maximum number of characters that can be input for this data type."
^DD(358.99,.02,"DT")="2950504"
^DD(358.99,.05,0)="PRINT FORMAT^F^^0;5^K:$L(X)>64!($L(X)<1) X"
^DD(358.99,.05,3)="Use an underscore,'_',to indicate positions that the user should fill in. Use other characters to pre-fillthat position."
^DD(358.99,.05,21,0)="^^4^4^2950811^^^"
^DD(358.99,.05,21,1,0)="Used to print the field. Fields for certain types of data, such"
^DD(358.99,.05,21,2,0)="as telephone numbers and Social Security numbers usually require certain"
^DD(358.99,.05,21,3,0)="formats, such as 092-52-0493 for an SSN. The PRINT FORMAT allows the"
^DD(358.99,.05,21,4,0)="required format to be specified."
^DD(358.99,.05,"DT")="2950811"
^DD(358.99,.06,0)="SPACE ALLOCATION^RNJ2,0^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(358.99,.06,3)="What is the maximum number of characters in this field?"
^DD(358.99,.06,21,0)="^^2^2^2950808^^"
^DD(358.99,.06,21,1,0)="This is used to determine how much space on the form to allocate for the "
^DD(358.99,.06,21,2,0)="hand print."
^DD(358.99,.06,"DT")="2950504"
^DD(358.99,.07,0)="REQUIRED CONFIDENCE^NJ2,0^^0;7^K:+X'=X!(X>11)!(X<0)!(X?.E1"".""1N.N) X"
^DD(358.99,.07,3)="Enter a number between 0 and 11. 0 means that the data will not require validation, 11 means the field must always be validated."
^DD(358.99,.07,21,0)="^^2^2^2950808^"
^DD(358.99,.07,21,1,0)="This is the confidence level (as defined by Paper Keyboard) that should be"
^DD(358.99,.07,21,2,0)="applied to this data type."
^DD(358.99,.07,"DT")="2950601"
^DD(358.99,.1,0)="RECOMMENDED LABEL^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(358.99,.1,3)="Answer must be 1-30 characters in length."
^DD(358.99,.1,21,0)="^^1^1^2950817^^^"
^DD(358.99,.1,21,1,0)="Will be used as a default label."
^DD(358.99,.1,"DT")="2950817"
^DD(358.99,.11,0)="LABEL FOR UNIT OF MEASUREMENT^F^^0;11^K:$L(X)>20!($L(X)<1) X"
^DD(358.99,.11,3)="Answer must be 1-20 characters in length."
^DD(358.99,.11,21,0)="^^1^1^2950815^^^"
^DD(358.99,.11,21,1,0)="The unit of measurement as defined by the PCE Generic Device Interface."
^DD(358.99,.11,"DT")="2950815"
^DD(358.99,.12,0)="PCE GDI VITALS TYPE^F^^0;12^K:$L(X)>10!($L(X)<1) X"
^DD(358.99,.12,3)="Answer must be 1-10 characters in length."
^DD(358.99,.12,21,0)="^^1^1^2950811^"
^DD(358.99,.12,21,1,0)="The type of vitals measurement - used only for the PCE GDI VITALS node."
^DD(358.99,.12,"DT")="2950811"
^DD(358.99,.13,0)="PCE GDI VITALS UNITS^F^^0;13^K:$L(X)>10!($L(X)<1) X"
^DD(358.99,.13,3)="Answer must be 1-10 characters in length."
^DD(358.99,.13,21,0)="^^1^1^2950811^"
^DD(358.99,.13,21,1,0)="The unit of measurement - used only for the PCE GDI VITALS node."
^DD(358.99,.13,"DT")="2950811"
^DD(358.99,1,0)="PCE GDI INPUT TRANSFORM^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(358.99,1,3)="The M code should set X to the value to be passed, else kill X if it is not valid."
^DD(358.99,1,9)="@"
^DD(358.99,1,21,0)="^^4^4^2950908^"
^DD(358.99,1,21,1,0)="The input transform should change X into a value that can be passed to the"
^DD(358.99,1,21,2,0)="PCE Generic Device Interface. X should be killed if it not be transformed."
^DD(358.99,1,21,3,0)="Note that the return value of X need not meet all of PCE's validation"
^DD(358.99,1,21,4,0)="requirments - for example, X may be an inactive code."
^DD(358.99,1,"DT")="2950908"
^DD(358.99,2,0)="HELP FOR INPUT TRANSFORM^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(358.99,2,3)="Enter a line of help that will assist the user in entering valid data."
^DD(358.99,2,21,0)="^^1^1^2950808^"
^DD(358.99,2,21,1,0)="Help for the user."
^DD(358.99,2,"DT")="2950426"
^DD(358.99,10.01,0)="PAPER KEYBOARD DATA TYPE^S^a:ALPHA (any ASCII);d:DATE (MM/DD/YY);f:FLOATING POINT NUMBER;i:INTEGER;t:TIME(HHMM, VA FileMan format);^10;1^Q"
^DD(358.99,10.01,3)="Choose the most appropriate data type from the list."
^DD(358.99,10.01,21,0)="^^4^4^2950928^"
^DD(358.99,10.01,21,1,0)="These are the data types provided for by Paper Keyboard.  The ALPHA"
^DD(358.99,10.01,21,2,0)="data type can be further described by a Paper Keyboard picture clause."
^DD(358.99,10.01,21,3,0)="The Integer data type does not apply if the field can contain spaces or"
^DD(358.99,10.01,21,4,0)="punctuation other than a '-'."
^DD(358.99,10.01,"DT")="2950928"
^DD(358.99,10.02,0)="PAPER KEYBOARD PICTURE^F^^10;2^K:$L(X)>60!($L(X)<1) X"
^DD(358.99,10.02,3)="Answer must be 1-60 characters in length."
^DD(358.99,10.02,21,0)="^^6^6^2950928^"
^DD(358.99,10.02,21,1,0)="Enter a picture clause specific to Paper Keyboard.  A picture clause"
^DD(358.99,10.02,21,2,0)="describes the intended format for the data type.  This is similar to"
^DD(358.99,10.02,21,3,0)="an M pattern match.  For example, a CPT code is 5 characters, the"
^DD(358.99,10.02,21,4,0)="first character may be an alpha or numeric followed by 4 numeric"
^DD(358.99,10.02,21,5,0)="characaters.  To represent this picture in Paper Keyboard, one would"
^DD(358.99,10.02,21,6,0)="enter the picture X####."
^DD(358.99,10.02,"DT")="2950928"
^DD(358.99,10.03,0)="DICTIONARY^F^^10;3^K:$L(X)>12!($L(X)<1) X"
^DD(358.99,10.03,3)="Answer must be 1-12 characters in length."
^DD(358.99,10.03,21,0)="^^3^3^2950928^"
^DD(358.99,10.03,21,1,0)="Enter the name of a Paper Keyboard Dictionary.  A dictionary"
^DD(358.99,10.03,21,2,0)="can be applied to ICR data types to improve the recognition of ICR"
^DD(358.99,10.03,21,3,0)="fields.  This is the name of the file that Paper Keyboard uses."
^DD(358.99,10.03,"DT")="2950928"
^DD(358.99,10.04,0)="PK PICTURES FOR SUBFIELDS^F^^10;4^K:$L(X)>120!($L(X)<1) X"
^DD(358.99,10.04,3)="Answer must be 1-120 characters in length."
^DD(358.99,10.04,21,0)="^^7^7^2950928^"
^DD(358.99,10.04,21,1,0)="When using print formats for paper keyboard you should enter the "
^DD(358.99,10.04,21,2,0)="picture clause in this field.  For example, the print format for"
^DD(358.99,10.04,21,3,0)="a SSN might look like ___-__-____.  This would cause the dashes to"
^DD(358.99,10.04,21,4,0)="be printed and user input to be accepted in three subfields with"
^DD(358.99,10.04,21,5,0)="lenghts of 3, 2, and 4 numerics.  You would then enter the picture"
^DD(358.99,10.04,21,6,0)="in this field as ###-##-####.  (note the # sign is used as the"
^DD(358.99,10.04,21,7,0)="picture for numerics)"
^DD(358.99,10.04,"DT")="2950928"
^DD(358.99,"B","DHCP DATA TYPE",.01)=""
^DD(358.99,"B","DICTIONARY",10.03)=""
^DD(358.99,"B","HELP FOR INPUT TRANSFORM",2)=""
^DD(358.99,"B","LABEL FOR UNIT OF MEASUREMENT",.11)=""
^DD(358.99,"B","MAXIMUM LENGTH FOR INPUT",.02)=""
^DD(358.99,"B","PAPER KEYBOARD DATA TYPE",10.01)=""
^DD(358.99,"B","PAPER KEYBOARD PICTURE",10.02)=""
^DD(358.99,"B","PCE GDI INPUT TRANSFORM",1)=""
^DD(358.99,"B","PCE GDI VITALS TYPE",.12)=""
^DD(358.99,"B","PCE GDI VITALS UNITS",.13)=""
^DD(358.99,"B","PK PICTURES FOR SUBFIELDS",10.04)=""
^DD(358.99,"B","PRINT FORMAT",.05)=""
^DD(358.99,"B","RECOMMENDED LABEL",.1)=""
^DD(358.99,"B","REQUIRED CONFIDENCE",.07)=""
^DD(358.99,"B","SPACE ALLOCATION",.06)=""
^DD(358.99,"GL",0,1,.01)=""
^DD(358.99,"GL",0,2,.02)=""
^DD(358.99,"GL",0,5,.05)=""
^DD(358.99,"GL",0,6,.06)=""
^DD(358.99,"GL",0,7,.07)=""
^DD(358.99,"GL",0,10,.1)=""
^DD(358.99,"GL",0,11,.11)=""
^DD(358.99,"GL",0,12,.12)=""
^DD(358.99,"GL",0,13,.13)=""
^DD(358.99,"GL",1,"E1,245",1)=""
^DD(358.99,"GL",2,1,2)=""
^DD(358.99,"GL",10,1,10.01)=""
^DD(358.99,"GL",10,2,10.02)=""
^DD(358.99,"GL",10,3,10.03)=""
^DD(358.99,"GL",10,4,10.04)=""
^DD(358.99,"IX",.01)=""
^DD(358.99,"RQ",.01)=""
^DD(358.99,"RQ",.02)=""
^DD(358.99,"RQ",.06)=""
^DD(359,0)="FIELD^^1^6"
^DD(359,0,"DDA")="N"
^DD(359,0,"DT")="2950306"
^DD(359,0,"IX","AORIG",359,.02)=""
^DD(359,0,"IX","B",359,.01)=""
^DD(359,0,"NM","CONVERTED FORMS")=""
^DD(359,0,"VR")="3.0"
^DD(359,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(359,.01,0)="CONVERTED FORM^RP357'^IBE(357,^0;1^Q"
^DD(359,.01,1,0)="^.1"
^DD(359,.01,1,1,0)="359^B"
^DD(359,.01,1,1,1)="S ^IBD(359,""B"",$E(X,1,30),DA)="""""
^DD(359,.01,1,1,2)="K ^IBD(359,""B"",$E(X,1,30),DA)"
^DD(359,.01,3)="What is the new form?"
^DD(359,.01,21,0)="^^1^1^2950302^"
^DD(359,.01,21,1,0)="The new form that was created."
^DD(359,.01,"DT")="2950302"
^DD(359,.02,0)="ORIGINAL FORM^P357'^IBE(357,^0;2^Q"
^DD(359,.02,1,0)="^.1"
^DD(359,.02,1,1,0)="359^AORIG"
^DD(359,.02,1,1,1)="S ^IBD(359,""AORIG"",$E(X,1,30),DA)="""""
^DD(359,.02,1,1,2)="K ^IBD(359,""AORIG"",$E(X,1,30),DA)"
^DD(359,.02,1,1,"%D",0)="^^1^1^2951121^"
^DD(359,.02,1,1,"%D",1,0)="This is a regular cross reference of forms already converted"
^DD(359,.02,1,1,"DT")="2951121"
^DD(359,.02,3)="What was the original form that the new one was created from?"
^DD(359,.02,"DT")="2951121"
^DD(359,.03,0)="NAME OF ORIGINAL FORM^RF^^0;3^K:$L(X)>45!($L(X)<1) X"
^DD(359,.03,3)="Answer must be 1-45 characters in length."
^DD(359,.03,"DT")="2950303"
^DD(359,.04,0)="DATE OF CONVERSION^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(359,.04,3)="When was the new form created?"
^DD(359,.04,21,0)="^^1^1^2950302^"
^DD(359,.04,21,1,0)="The date the converted form was created."
^DD(359,.04,"DT")="2950302"
^DD(359,.05,0)="SUBSTITUTION OCCURRED?^S^0:NO;1:YES;^0;5^Q"
^DD(359,.05,3)="Has the new form been substituted in the clinics for the original form?"
^DD(359,.05,"DT")="2950302"
^DD(359,1,0)="WARNINGS^359.01^^1;0"
^DD(359,"B","CONVERTED FORM",.01)=""
^DD(359,"B","DATE OF CONVERSION",.04)=""
^DD(359,"B","NAME OF ORIGINAL FORM",.03)=""
^DD(359,"B","ORIGINAL FORM",.02)=""
^DD(359,"B","SUBSTITUTION OCCURRED?",.05)=""
^DD(359,"B","WARNINGS",1)=""
^DD(359,"GL",0,1,.01)=""
^DD(359,"GL",0,2,.02)=""
^DD(359,"GL",0,3,.03)=""
^DD(359,"GL",0,4,.04)=""
^DD(359,"GL",0,5,.05)=""
^DD(359,"GL",1,0,1)=""
^DD(359,"IX",.01)=""
^DD(359,"IX",.02)=""
^DD(359,"RQ",.01)=""
^DD(359,"RQ",.03)=""
^DD(359,"RQ",.04)=""
^DD(359,"SB",359.01,1)=""
^DD(359.01,0)="WARNINGS SUB-FIELD^^.01^1"
^DD(359.01,0,"DT")="2950306"
^DD(359.01,0,"NM","WARNINGS")=""
^DD(359.01,0,"UP")="359"
^DD(359.01,.01,0)="WARNINGS^WL^^0;1^Q"
^DD(359.01,.01,3)="Enter warnings or problems encountered while converting the form to scanning."
^DD(359.01,.01,"DT")="2950306"
^DD(359.01,"B","WARNINGS",.01)=""
^DD(359.01,"GL",0,1,.01)=""
^DD(359.1,0)="FIELD^^10.04^15"
^DD(359.1,0,"DDA")="N"
^DD(359.1,0,"DT")="2950928"
^DD(359.1,0,"IX","B",359.1,.01)=""
^DD(359.1,0,"NM","AICS DATA ELEMENTS")=""
^DD(359.1,0,"PT",357.14,.17)=""
^DD(359.1,0,"PT",357.6,13)=""
^DD(359.1,0,"PT",357.6,16.2)=""
^DD(359.1,0,"PT",357.6,16.6)=""
^DD(359.1,0,"PT",357.613,.01)=""
^DD(359.1,0,"PT",357.952,.17)=""
^DD(359.1,0,"PT",358.94,.1)=""
^DD(359.1,0,"PT",359.94,.1)=""
^DD(359.1,0,"VR")="3.0"
^DD(359.1,0,"VRPK")="IBD"
^DD(359.1,.01,0)="DATA TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(359.1,.01,1,0)="^.1"
^DD(359.1,.01,1,1,0)="359.1^B"
^DD(359.1,.01,1,1,1)="S ^IBE(359.1,""B"",$E(X,1,30),DA)="""""
^DD(359.1,.01,1,1,2)="K ^IBE(359.1,""B"",$E(X,1,30),DA)"
^DD(359.1,.01,3)="Answer must be 3-30 characters in length."
^DD(359.1,.01,21,0)="^^8^8^2951003^"
^DD(359.1,.01,21,1,0)="A type of data that is recognized as such within the framework of scanning"
^DD(359.1,.01,21,2,0)="DHCP forms and which requires its own description for"
^DD(359.1,.01,21,3,0)="scanning/recognition."
^DD(359.1,.01,21,4,0)=" "
^DD(359.1,.01,21,5,0)="Enter a type of data that can appear on a scannable encounter form.  The"
^DD(359.1,.01,21,6,0)="data should require a unique description for each commercial scanning"
^DD(359.1,.01,21,7,0)="application in use.  For example, check out date/time or CPT procedure"
^DD(359.1,.01,21,8,0)="require a definition for scanning."
^DD(359.1,.01,"DT")="2950928"
^DD(359.1,.02,0)="MAXIMUM LENGTH FOR INPUT^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(359.1,.02,3)="What is the maximum number of characters that can be input for this data?"
^DD(359.1,.02,21,0)="^^1^1^2950808^"
^DD(359.1,.02,21,1,0)="The maximum number of characters that can be input for this data type."
^DD(359.1,.02,"DT")="2950504"
^DD(359.1,.05,0)="PRINT FORMAT^F^^0;5^K:$L(X)>64!($L(X)<1) X"
^DD(359.1,.05,3)="Use an underscore,'_',to indicate positions that the user should fill in. Use other characters to pre-fill that position."
^DD(359.1,.05,21,0)="^^4^4^2951003^^^^"
^DD(359.1,.05,21,1,0)="Used to print the field. Fields for certain types of data, such"
^DD(359.1,.05,21,2,0)="as telephone numbers and Social Security numbers usually require certain"
^DD(359.1,.05,21,3,0)="formats, such as 092-52-0493 for an SSN. The PRINT FORMAT allows the"
^DD(359.1,.05,21,4,0)="required format to be specified."
^DD(359.1,.05,"DT")="2950811"
^DD(359.1,.06,0)="SPACE ALLOCATION^RNJ2,0^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(359.1,.06,3)="What is the maximum number of characters in this field?"
^DD(359.1,.06,21,0)="^^2^2^2950808^^"
^DD(359.1,.06,21,1,0)="This is used to determine how much space on the form to allocate for the "
^DD(359.1,.06,21,2,0)="hand print."
^DD(359.1,.06,"DT")="2950504"
^DD(359.1,.07,0)="REQUIRED CONFIDENCE^NJ2,0^^0;7^K:+X'=X!(X>11)!(X<0)!(X?.E1"".""1N.N) X"
^DD(359.1,.07,3)="Enter a number between 0 and 11. 0 means that the data will not require validation, 11 means the field must always be validated."
^DD(359.1,.07,21,0)="^^2^2^2950808^"
^DD(359.1,.07,21,1,0)="This is the confidence level (as defined by Paper Keyboard) that should be"
^DD(359.1,.07,21,2,0)="applied to this data type."
^DD(359.1,.07,"DT")="2950601"
^DD(359.1,.1,0)="RECOMMENDED LABEL^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(359.1,.1,3)="Answer must be 1-30 characters in length."
^DD(359.1,.1,21,0)="^^1^1^2950817^^^"
^DD(359.1,.1,21,1,0)="Will be used as a default label."
^DD(359.1,.1,"DT")="2950817"
^DD(359.1,.11,0)="LABEL FOR UNIT OF MEASUREMENT^F^^0;11^K:$L(X)>20!($L(X)<1) X"
^DD(359.1,.11,3)="Answer must be 1-20 characters in length."
^DD(359.1,.11,21,0)="^^1^1^2950815^^^"
^DD(359.1,.11,21,1,0)="The unit of measurement as defined by the PCE Generic Device Interface."
^DD(359.1,.11,"DT")="2950815"
^DD(359.1,.12,0)="PCE DIM VITALS TYPE^F^^0;12^K:$L(X)>10!($L(X)<1) X"
^DD(359.1,.12,3)="Answer must be 1-10 characters in length."
^DD(359.1,.12,21,0)="^^1^1^2960401^^^"
^DD(359.1,.12,21,1,0)="The type of vitals measurement - used only for the PCE DIM VITALS node."
^DD(359.1,.12,"DT")="2960401"
^DD(359.1,.13,0)="PCE DIM VITALS UNITS^F^^0;13^K:$L(X)>10!($L(X)<1) X"
^DD(359.1,.13,3)="Answer must be 1-10 characters in length."
^DD(359.1,.13,21,0)="^^2^2^2960401^^"
^DD(359.1,.13,21,1,0)="The unit of measurement - used only for the PCE Device Interface Mondule"
^DD(359.1,.13,21,2,0)="(DIM) VITALS node."
^DD(359.1,.13,"DT")="2960401"
^DD(359.1,1,0)="PCE DIM INPUT TRANSFORM^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(359.1,1,3)="The M code should set X to the value to be passed, else kill X if it is not valid."
^DD(359.1,1,9)="@"
^DD(359.1,1,21,0)="^^4^4^2960401^^"
^DD(359.1,1,21,1,0)="The input transform should change X into a value that can be passed to the"
^DD(359.1,1,21,2,0)="PCE Device Interface Module. X should be killed if it not be transformed."
^DD(359.1,1,21,3,0)="Note that the return value of X need not meet all of PCE's validation"
^DD(359.1,1,21,4,0)="requirments - for example, X may be an inactive code."
^DD(359.1,1,"DT")="2960401"
^DD(359.1,2,0)="HELP FOR INPUT TRANSFORM^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(359.1,2,3)="Enter a line of help that will assist the user in entering valid data."
^DD(359.1,2,21,0)="^^1^1^2950808^"
^DD(359.1,2,21,1,0)="Help for the user."
^DD(359.1,2,"DT")="2950426"
^DD(359.1,10.01,0)="PAPER KEYBOARD DATA TYPE^S^a:ALPHA (any ASCII);d:DATE (MM/DD/YY);f:FLOATING POINT NUMBER;i:INTEGER;t:TIME (HHMM, VA FileMan format);^10;1^Q"
^DD(359.1,10.01,3)="Choose the most appropriate data type from the list."
^DD(359.1,10.01,21,0)="^^4^4^2950928^^"
^DD(359.1,10.01,21,1,0)="These are the data types provided for by Paper Keyboard.  The ALPHA data"
^DD(359.1,10.01,21,2,0)="type can be further described by a Paper Keyboard picture clause.  The "
^DD(359.1,10.01,21,3,0)="Integer data type does not apply if the field can contain spaces or"
^DD(359.1,10.01,21,4,0)="puntuation other than a '+'."
^DD(359.1,10.01,"DT")="2950928"
^DD(359.1,10.02,0)="PAPER KEYBOARD PICTURE^F^^10;2^K:$L(X)>60!($L(X)<1) X"
^DD(359.1,10.02,3)="Answer must be 1-60 characters in length."
^DD(359.1,10.02,21,0)="^^6^6^2950928^^"
^DD(359.1,10.02,21,1,0)="Enter a picture clause specific to Paper Keyboard.  A picture clause"
^DD(359.1,10.02,21,2,0)="describes the intended format for the data type.  This is similar"
^DD(359.1,10.02,21,3,0)="to an M pattern match.  For example, a CPT code is 5 characters, the"
^DD(359.1,10.02,21,4,0)="first character may be an alpha or numeric followed by 4 numeric "
^DD(359.1,10.02,21,5,0)="characters.  To represent this picture in Paper Keyboard, one would"
^DD(359.1,10.02,21,6,0)="enter the picture X####."
^DD(359.1,10.02,"DT")="2950928"
^DD(359.1,10.03,0)="DICTIONARY^F^^10;3^K:$L(X)>12!($L(X)<1)!'(X?1.8A.1""."".3A) X"
^DD(359.1,10.03,3)="You may optionally enter the name of a dictionary to assist in the recognition of ICR fields.  Answer must be 1-12 characters in length."
^DD(359.1,10.03,21,0)="^^3^3^2951017^"
^DD(359.1,10.03,21,1,0)="Enter the name of a dictionary.  A dictionary can be applied to ICR data"
^DD(359.1,10.03,21,2,0)="types to improve the recognition of ICR fields. This is the name of the"
^DD(359.1,10.03,21,3,0)="file that the scanning software uses."
^DD(359.1,10.03,"DT")="2950928"
^DD(359.1,10.04,0)="PK PICTURES FOR SUBFIELDS^F^^10;4^K:$L(X)>120!($L(X)<1) X"
^DD(359.1,10.04,3)="Answer must be 1-120 characters in length."
^DD(359.1,10.04,21,0)="^^7^7^2950928^^^"
^DD(359.1,10.04,21,1,0)="When using print formats for paper keyboard you should enter the"
^DD(359.1,10.04,21,2,0)="picture clause in this field.  For example the print format"
^DD(359.1,10.04,21,3,0)="for a SSN might look like ___-__-____ .  This would cause the"
^DD(359.1,10.04,21,4,0)="dashes to be printed and user input to be accepted in three"
^DD(359.1,10.04,21,5,0)="subfields with lengths of 3, 2, and 4 numerics.  You would then"
^DD(359.1,10.04,21,6,0)="enter the picture in this field as ###-##-####.  (note the # sign"
^DD(359.1,10.04,21,7,0)="is used as the picture for numerics)"
^DD(359.1,10.04,"DT")="2950928"
^DD(359.1,"B","DATA TYPE",.01)=""
^DD(359.1,"B","DICTIONARY",10.03)=""
^DD(359.1,"B","HELP FOR INPUT TRANSFORM",2)=""
^DD(359.1,"B","LABEL FOR UNIT OF MEASUREMENT",.11)=""
^DD(359.1,"B","MAXIMUM LENGTH FOR INPUT",.02)=""
^DD(359.1,"B","PAPER KEYBOARD DATA TYPE",10.01)=""
^DD(359.1,"B","PAPER KEYBOARD PICTURE",10.02)=""
^DD(359.1,"B","PCE DIM INPUT TRANSFORM",1)=""
^DD(359.1,"B","PCE DIM VITALS TYPE",.12)=""
^DD(359.1,"B","PCE DIM VITALS UNITS",.13)=""
^DD(359.1,"B","PK PICTURES FOR SUBFIELDS",10.04)=""
^DD(359.1,"B","PRINT FORMAT",.05)=""
^DD(359.1,"B","RECOMMENDED LABEL",.1)=""
^DD(359.1,"B","REQUIRED CONFIDENCE",.07)=""
^DD(359.1,"B","SPACE ALLOCATION",.06)=""
^DD(359.1,"GL",0,1,.01)=""
^DD(359.1,"GL",0,2,.02)=""
^DD(359.1,"GL",0,5,.05)=""
^DD(359.1,"GL",0,6,.06)=""
^DD(359.1,"GL",0,7,.07)=""
^DD(359.1,"GL",0,10,.1)=""
^DD(359.1,"GL",0,11,.11)=""
^DD(359.1,"GL",0,12,.12)=""
^DD(359.1,"GL",0,13,.13)=""
^DD(359.1,"GL",1,"E1,245",1)=""
^DD(359.1,"GL",2,1,2)=""
^DD(359.1,"GL",10,1,10.01)=""
^DD(359.1,"GL",10,2,10.02)=""
^DD(359.1,"GL",10,3,10.03)=""
^DD(359.1,"GL",10,4,10.04)=""
^DD(359.1,"IX",.01)=""
^DD(359.1,"RQ",.01)=""
^DD(359.1,"RQ",.02)=""
^DD(359.1,"RQ",.06)=""
^DD(359.2,0)="FIELD^^10^4"
^DD(359.2,0,"DT")="2951003"
^DD(359.2,0,"ID",.02)="W ""   Created: "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(359.2,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(359.2,0,"IX","B",359.2,.01)=""
^DD(359.2,0,"NM","FORM SPECS")=""
^DD(359.2,0,"VR")="3.0"
^DD(359.2,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(359.2,.01,0)="NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(359.2,.01,1,0)="^.1"
^DD(359.2,.01,1,1,0)="359.2^B"
^DD(359.2,.01,1,1,1)="S ^IBD(359.2,""B"",$E(X,1,30),DA)="""""
^DD(359.2,.01,1,1,2)="K ^IBD(359.2,""B"",$E(X,1,30),DA)"
^DD(359.2,.01,1,2,0)="^^TRIGGER^359.2^.02"
^DD(359.2,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2)="""" I X S X=DIV S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(359.2,.01,1,2,1.4)"
^DD(359.2,.01,1,2,1.4)="S DIH=$S($D(^IBD(359.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=359.2,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(359.2,.01,1,2,2)="Q"
^DD(359.2,.01,1,2,"%D",0)="^^2^2^2951003^"
^DD(359.2,.01,1,2,"%D",1,0)="This triggers the date created into the DATE CREATED field.  The"
^DD(359.2,.01,1,2,"%D",2,0)="date created is used by the purge utilities."
^DD(359.2,.01,1,2,"CREATE CONDITION")="#.02="""""
^DD(359.2,.01,1,2,"CREATE VALUE")="S X=DT"
^DD(359.2,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(359.2,.01,1,2,"DT")="2951003"
^DD(359.2,.01,1,2,"FIELD")="#.02"
^DD(359.2,.01,1,3,0)="^^TRIGGER^359.2^.03"
^DD(359.2,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(359.2,.01,1,3,1.1) X ^DD(359.2,.01,1,3,1.4)"
^DD(359.2,.01,1,3,1.1)="S X=DIV S X=$P($G(^IBE(357,+$O(^IBE(357,""ADEF"",+DA,0)),0)),""^"")"
^DD(359.2,.01,1,3,1.4)="S DIH=$S($D(^IBD(359.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=359.2,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(359.2,.01,1,3,2)="Q"
^DD(359.2,.01,1,3,"%D",0)="^^1^1^2951003^"
^DD(359.2,.01,1,3,"%D",1,0)="This triggers the name of the form into this file."
^DD(359.2,.01,1,3,"CREATE CONDITION")="#.03="""""
^DD(359.2,.01,1,3,"CREATE VALUE")="S X=$P($G(^IBE(357,+$O(^IBE(357,""ADEF"",+DA,0)),0)),""^"")"
^DD(359.2,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(359.2,.01,1,3,"DT")="2951003"
^DD(359.2,.01,1,3,"FIELD")="#.03"
^DD(359.2,.01,3)="This the form ID number.  Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(359.2,.01,"DT")="2951003"
^DD(359.2,.02,0)="DATE CREATED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(359.2,.02,5,1,0)="359.2^.01^2"
^DD(359.2,.02,9)="^"
^DD(359.2,.02,21,0)="^^2^2^2951003^"
^DD(359.2,.02,21,1,0)="This is the date that this entry was created.  This is triggered by the"
^DD(359.2,.02,21,2,0)="creation of a new entry."
^DD(359.2,.02,"DT")="2951003"
^DD(359.2,.03,0)="FORM NAME^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(359.2,.03,3)="Answer must be 1-30 characters in length."
^DD(359.2,.03,5,1,0)="359.2^.01^3"
^DD(359.2,.03,9)="^"
^DD(359.2,.03,21,0)="^^2^2^2951003^"
^DD(359.2,.03,21,1,0)="This is the name of the form that this form specification is for.  This"
^DD(359.2,.03,21,2,0)="is triggered on creation of the entry"
^DD(359.2,.03,"DT")="2951003"
^DD(359.2,10,0)="FORM SPEC DESCRIPTION^359.21^^10;0"
^DD(359.2,"B","DATE CREATED",.02)=""
^DD(359.2,"B","FORM NAME",.03)=""
^DD(359.2,"B","FORM SPEC DESCRIPTION",10)=""
^DD(359.2,"B","NUMBER",.01)=""
^DD(359.2,"GL",0,1,.01)=""
^DD(359.2,"GL",0,2,.02)=""
^DD(359.2,"GL",0,3,.03)=""
^DD(359.2,"GL",10,0,10)=""
^DD(359.2,"IX",.01)=""
^DD(359.2,"RQ",.01)=""
^DD(359.2,"SB",359.21,10)=""
^DD(359.21,0)="FORM SPEC DESCRIPTION SUB-FIELD^^.01^1"
^DD(359.21,0,"DT")="2950613"
^DD(359.21,0,"NM","FORM SPEC DESCRIPTION")=""
^DD(359.21,0,"UP")="359.2"
^DD(359.21,.01,0)="FORM SPEC DESCRIPTION^WL^^0;1^Q"
^DD(359.21,.01,21,0)="^^3^3^2950613^^^^"
^DD(359.21,.01,21,1,0)="This is the form spec as created by the routines IBDFBKS* and stored"
^DD(359.21,.01,21,2,0)="in this file.  The form spec description is then retrieved to the"
^DD(359.21,.01,21,3,0)="AICS workstation thru standard broker calls."
^DD(359.21,.01,"DT")="2950613"
^DD(359.21,"B","FORM SPEC DESCRIPTION",.01)=""
^DD(359.21,"GL",0,1,.01)=""
^DD(359.3,0)="FIELD^^10^22"
^DD(359.3,0,"DDA")="N"
^DD(359.3,0,"DT")="2970304"
^DD(359.3,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(359.3,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBD(357.96,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(357.96,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(359.3,0,"ID",.08)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(359.3,.08,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,8)_"""":"""",2),$C(59),1)"")"
^DD(359.3,0,"IX","AB",359.3,.01)=""
^DD(359.3,0,"IX","AC",359.3,.13)=""
^DD(359.3,0,"IX","B",359.3,.01)=""
^DD(359.3,0,"IX","C",359.3,.02)=""
^DD(359.3,0,"IX","D",359.3,.05)=""
^DD(359.3,0,"NM","AICS ERROR AND WARNING LOG")=""
^DD(359.3,0,"VR")="3.0"
^DD(359.3,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(359.3,.01,0)="ERROR DATE/TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(359.3,.01,1,0)="^.1"
^DD(359.3,.01,1,1,0)="359.3^B"
^DD(359.3,.01,1,1,1)="S ^IBD(359.3,""B"",$E(X,1,30),DA)="""""
^DD(359.3,.01,1,1,2)="K ^IBD(359.3,""B"",$E(X,1,30),DA)"
^DD(359.3,.01,1,2,0)="359.3^AB^MUMPS"
^DD(359.3,.01,1,2,1)="S ^IBD(359.3,""AB"",-X,DA)="""""
^DD(359.3,.01,1,2,2)="K ^IBD(359.3,""AB"",-X,DA)"
^DD(359.3,.01,1,2,"%D",0)="^^2^2^2970418^^"
^DD(359.3,.01,1,2,"%D",1,0)="This is an inverse data cross reference to allow listing of errors in reverse"
^DD(359.3,.01,1,2,"%D",2,0)="chronological order."
^DD(359.3,.01,1,2,"DT")="2970206"
^DD(359.3,.01,3)="Enter the Date and Time that this error occured."
^DD(359.3,.01,21,0)="^^2^2^2970418^^^^"
^DD(359.3,.01,21,1,0)="Enter the date and time that the error occured.  Normally errors are filed"
^DD(359.3,.01,21,2,0)="automatically by the computer when the error occurs."
^DD(359.3,.01,"DT")="2970206"
^DD(359.3,.02,0)="PATIENT^P2'I^DPT(^0;2^Q"
^DD(359.3,.02,1,0)="^.1"
^DD(359.3,.02,1,1,0)="359.3^C"
^DD(359.3,.02,1,1,1)="S ^IBD(359.3,""C"",$E(X,1,30),DA)="""""
^DD(359.3,.02,1,1,2)="K ^IBD(359.3,""C"",$E(X,1,30),DA)"
^DD(359.3,.02,1,1,"%D",0)="^^1^1^2970128^"
^DD(359.3,.02,1,1,"%D",1,0)="Regular cross reference of the patient field."
^DD(359.3,.02,1,1,"DT")="2970128"
^DD(359.3,.02,3)="Enter the name of the patient that was being processed when the error occured."
^DD(359.3,.02,21,0)="^^2^2^2970128^"
^DD(359.3,.02,21,1,0)="This is the name of the patient that was being processed when the error "
^DD(359.3,.02,21,2,0)="occured."
^DD(359.3,.02,"DT")="2970206"
^DD(359.3,.03,0)="ENCOUNTER DATE/TIME^DI^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(359.3,.03,21,0)="^^2^2^2970127^"
^DD(359.3,.03,21,1,0)="This is the date/time of the encounter that was being processed when the"
^DD(359.3,.03,21,2,0)="error occured."
^DD(359.3,.03,"DT")="2970206"
^DD(359.3,.04,0)="FORM DEFINITION^FI^^0;4^K:$L(X)>12!($L(X)<1) X"
^DD(359.3,.04,3)="Answer must be 1-12 characters in length."
^DD(359.3,.04,21,0)="^^2^2^2970211^^"
^DD(359.3,.04,21,1,0)="Enter the Form Definition file entry that was being processed when"
^DD(359.3,.04,21,2,0)="the error occured."
^DD(359.3,.04,"DT")="2970211"
^DD(359.3,.05,0)="FORM TRACKING NUMBER^FI^^0;5^K:$L(X)>12!($L(X)<1) X"
^DD(359.3,.05,1,0)="^.1"
^DD(359.3,.05,1,1,0)="359.3^D"
^DD(359.3,.05,1,1,1)="S ^IBD(359.3,""D"",$E(X,1,30),DA)="""""
^DD(359.3,.05,1,1,2)="K ^IBD(359.3,""D"",$E(X,1,30),DA)"
^DD(359.3,.05,1,1,"%D",0)="^^1^1^2970205^"
^DD(359.3,.05,1,1,"%D",1,0)="Regular cross reference of the form tracking ID field."
^DD(359.3,.05,1,1,"DT")="2970205"
^DD(359.3,.05,3)="Answer must be 1-12 characters in length."
^DD(359.3,.05,21,0)="^^2^2^2970211^^"
^DD(359.3,.05,21,1,0)="Enter the Form Tracking File number from the encounter form that was"
^DD(359.3,.05,21,2,0)="being processed when the error occured."
^DD(359.3,.05,"DT")="2970211"
^DD(359.3,.06,0)="DATA INTERNAL NUMBER^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(359.3,.06,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(359.3,.06,21,0)="^^5^5^2970127^"
^DD(359.3,.06,21,1,0)="Enter the array number of the data element that was being processed when"
^DD(359.3,.06,21,2,0)="the error occured."
^DD(359.3,.06,21,3,0)=""
^DD(359.3,.06,21,4,0)="This number is normally added by the system when an error occured.  It can"
^DD(359.3,.06,21,5,0)="be used to debug the cause of the error when rescanning an encounter form."
^DD(359.3,.06,"DT")="2970127"
^DD(359.3,.07,0)="DATA VALUE^F^^0;7^K:$L(X)>80!($L(X)<1) X"
^DD(359.3,.07,3)="Answer must be 1-80 characters in length."
^DD(359.3,.07,21,0)="^^3^3^2970127^^"
^DD(359.3,.07,21,1,0)="Enter the value of the data that was being processed when the error"
^DD(359.3,.07,21,2,0)="occured."
^DD(359.3,.07,21,3,0)=""
^DD(359.3,.07,"DT")="2970127"
^DD(359.3,.08,0)="ERROR SOURCE^SI^1:AICS;2:PANDAS;99:PCE;^0;8^Q"
^DD(359.3,.08,21,0)="^^2^2^2970130^"
^DD(359.3,.08,21,1,0)="This is the source of the data that caused the error, or may also be a"
^DD(359.3,.08,21,2,0)="listing of errors returned from PCE."
^DD(359.3,.08,"DT")="2970206"
^DD(359.3,.09,0)="FORM NAME^P357'^IBE(357,^0;9^Q"
^DD(359.3,.09,3)=""
^DD(359.3,.09,21,0)="^^2^2^2970128^^"
^DD(359.3,.09,21,1,0)="This is the name of the Encounter form that was being processed when the"
^DD(359.3,.09,21,2,0)="error occured."
^DD(359.3,.09,"DT")="2970128"
^DD(359.3,.1,0)="PACKAGE INTERFACE^P357.6'^IBE(357.6,^0;10^Q"
^DD(359.3,.1,21,0)="^^2^2^2970127^"
^DD(359.3,.1,21,1,0)="This is the name of the package interface for the data that was being"
^DD(359.3,.1,21,2,0)="processed when the error occured."
^DD(359.3,.1,"DT")="2970127"
^DD(359.3,.11,0)="QUALIFIER^F^^0;11^K:$L(X)>20!($L(X)<1) X"
^DD(359.3,.11,3)="Answer must be 1-20 characters in length."
^DD(359.3,.11,21,0)="^^2^2^2970127^"
^DD(359.3,.11,21,1,0)="This is the data qualifer, if any, that was being processed when the error"
^DD(359.3,.11,21,2,0)="occured."
^DD(359.3,.11,"DT")="2970127"
^DD(359.3,.12,0)="DATA TEXT^F^^0;12^K:$L(X)>30!($L(X)<3) X"
^DD(359.3,.12,3)="Answer must be 3-30 characters in length."
^DD(359.3,.12,21,0)="^^2^2^2970127^"
^DD(359.3,.12,21,1,0)="This is the text associated with the data value that was being processed "
^DD(359.3,.12,21,2,0)="when the error occured."
^DD(359.3,.12,"DT")="2970127"
^DD(359.3,.13,0)="USER^P200'I^VA(200,^0;13^Q"
^DD(359.3,.13,1,0)="^.1"
^DD(359.3,.13,1,1,0)="359.3^AC"
^DD(359.3,.13,1,1,1)="S ^IBD(359.3,""AC"",$E(X,1,30),DA)="""""
^DD(359.3,.13,1,1,2)="K ^IBD(359.3,""AC"",$E(X,1,30),DA)"
^DD(359.3,.13,1,1,"DT")="2970314"
^DD(359.3,.13,21,0)="^^1^1^2970127^"
^DD(359.3,.13,21,1,0)="Enter the user that was logged on when the error occured."
^DD(359.3,.13,"DT")="2970314"
^DD(359.3,.16,0)="DIALOG NUMBER^NJ12,3^^0;16^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(359.3,.16,3)="Type a Number between 0 and 99999999, 3 Decimal Digits"
^DD(359.3,.16,21,0)="^^1^1^2970304^"
^DD(359.3,.16,21,1,0)="This is the number of the dialog that was used to record this error."
^DD(359.3,.16,"DT")="2970304"
^DD(359.3,.17,0)="PAGE^NJ2,0^^0;17^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(359.3,.17,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(359.3,.17,21,0)="^^1^1^2990315^^^^"
^DD(359.3,.17,21,1,0)="This is the page of the form being scanned when the error occured."
^DD(359.3,.17,"DT")="2971124"
^DD(359.3,.18,0)="WORKSTATION ID^F^^0;18^K:$L(X)>1!($L(X)<1)!'(X?1U) X"
^DD(359.3,.18,3)="This is the AICS Workstation ID as set in the AICS workstation preferences.  Answer must be 1 Uppercase character in length."
^DD(359.3,.18,21,0)="^^3^3^2990318^^^"
^DD(359.3,.18,21,1,0)="This is the ID from the AICS workstation.  This is used to identify which"
^DD(359.3,.18,21,2,0)="workstation the error occured on."
^DD(359.3,.18,21,3,0)=""
^DD(359.3,.18,"DT")="2971124"
^DD(359.3,1.01,0)="OPTION^FI^^1;1^K:$L(X)>40!($L(X)<1) X"
^DD(359.3,1.01,3)="Answer must be 1-40 characters in length."
^DD(359.3,1.01,21,0)="^^2^2^2970129^"
^DD(359.3,1.01,21,1,0)="This is the free text name of the option that was being used when the"
^DD(359.3,1.01,21,2,0)="error occured."
^DD(359.3,1.01,"DT")="2970206"
^DD(359.3,1.02,0)="DATE ERROR CORRECTED^D^^1;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(359.3,1.02,5,1,0)="359.3^1.04^1"
^DD(359.3,1.02,"DT")="2970206"
^DD(359.3,1.03,0)="USER CORRECTING DATA^P200'^VA(200,^1;3^Q"
^DD(359.3,1.03,3)=""
^DD(359.3,1.03,5,1,0)="359.3^1.04^2"
^DD(359.3,1.03,21,0)="^^1^1^2970224^"
^DD(359.3,1.03,21,1,0)="Enter the name of the user who corrected the data."
^DD(359.3,1.03,"DT")="2970224"
^DD(359.3,1.04,0)="ERROR REVIEWED OR CORRECTED^S^1:YES;0:NO;^1;4^Q"
^DD(359.3,1.04,1,0)="^.1"
^DD(359.3,1.04,1,1,0)="^^TRIGGER^359.3^1.02"
^DD(359.3,1.04,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^IBD(359.3,DA,1)),U,4) I X S X=DIV S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(359.3,1.04,1,1,1.4)"
^DD(359.3,1.04,1,1,1.4)="S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=359.3,DIG=1.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(359.3,1.04,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(359.3,1.04,1,1,2.4)"
^DD(359.3,1.04,1,1,2.4)="S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=359.3,DIG=1.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(359.3,1.04,1,1,"CREATE CONDITION")="I $P($G(^IBD(359.3,DA,1)),U,4)"
^DD(359.3,1.04,1,1,"CREATE VALUE")="S X=DT"
^DD(359.3,1.04,1,1,"DELETE VALUE")="@"
^DD(359.3,1.04,1,1,"DT")="2970224"
^DD(359.3,1.04,1,1,"FIELD")="#1.02"
^DD(359.3,1.04,1,2,0)="^^TRIGGER^359.3^1.03"
^DD(359.3,1.04,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^IBD(359.3,DA,1)),U,4) I X S X=DIV S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(359.3,1.04,1,2,1.4)"
^DD(359.3,1.04,1,2,1.4)="S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=359.3,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(359.3,1.04,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBD(359.3,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(359.3,1.04,1,2,2.4)"
^DD(359.3,1.04,1,2,2.4)="S DIH=$S($D(^IBD(359.3,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=359.3,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(359.3,1.04,1,2,"CREATE CONDITION")="I $P($G(^IBD(359.3,DA,1)),U,4)"
^DD(359.3,1.04,1,2,"CREATE VALUE")="S X=DUZ"
^DD(359.3,1.04,1,2,"DELETE VALUE")="@"
^DD(359.3,1.04,1,2,"DT")="2970224"
^DD(359.3,1.04,1,2,"FIELD")="#1.03"
^DD(359.3,1.04,21,0)="^^1^1^2970224^"
^DD(359.3,1.04,21,1,0)="Enter whether or not this error has been reviewed or corrected."
^DD(359.3,1.04,"DT")="2970224"
^DD(359.3,9,0)="CLINIC^CJ30^^ ; ^X ^DD(359.3,9,9.2) S Y(359.3,9,101)=$S($D(^IBD(357.96,D0,0)):^(0),1:"""") S X=$S('$D(^SC(+$P(Y(359.3,9,101),U,10),0)):"""",1:$P(^(0),U,1)) S D0=Y(359.3,9,80)"
^DD(359.3,9,9)="^"
^DD(359.3,9,9.01)="357.96^.1;359.3^.05"
^DD(359.3,9,9.1)="#.05:357.96:#.1"
^DD(359.3,9,9.2)="S Y(359.3,9,80)=$S($D(D0):D0,1:""""),Y(359.3,9,1)=$S($D(^IBD(359.3,D0,0)):^(0),1:"""") S X=$P(Y(359.3,9,1),U,5) K DIC S DIC=""^IBD(357.96,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y"
^DD(359.3,9,21,0)="^^2^2^2990315^^"
^DD(359.3,9,21,1,0)="This field is a computed field that can be used on outputs via VA FileManager"
^DD(359.3,9,21,2,0)="for use by VA Medical Centers."
^DD(359.3,9,"DT")="2970724"
^DD(359.3,10,0)="ERROR MESSAGE^359.31^^10;0"
^DD(359.3,"B","CLINIC",9)=""
^DD(359.3,"B","DATA INTERNAL NUMBER",.06)=""
^DD(359.3,"B","DATA TEXT",.12)=""
^DD(359.3,"B","DATA VALUE",.07)=""
^DD(359.3,"B","DATE ERROR CORRECTED",1.02)=""
^DD(359.3,"B","DIALOG NUMBER",.16)=""
^DD(359.3,"B","ENCOUNTER DATE/TIME",.03)=""
^DD(359.3,"B","ERROR DATE/TIME",.01)=""
^DD(359.3,"B","ERROR MESSAGE",10)=""
^DD(359.3,"B","ERROR REVIEWED OR CORRECTED",1.04)=""
^DD(359.3,"B","ERROR SOURCE",.08)=""
^DD(359.3,"B","FORM DEFINITION",.04)=""
^DD(359.3,"B","FORM NAME",.09)=""
^DD(359.3,"B","FORM TRACKING NUMBER",.05)=""
^DD(359.3,"B","OPTION",1.01)=""
^DD(359.3,"B","PACKAGE INTERFACE",.1)=""
^DD(359.3,"B","PAGE",.17)=""
^DD(359.3,"B","PATIENT",.02)=""
^DD(359.3,"B","QUALIFIER",.11)=""
^DD(359.3,"B","USER",.13)=""
^DD(359.3,"B","USER CORRECTING DATA",1.03)=""
^DD(359.3,"B","WORKSTATION ID",.18)=""
^DD(359.3,"GL",0,1,.01)=""
^DD(359.3,"GL",0,2,.02)=""
^DD(359.3,"GL",0,3,.03)=""
^DD(359.3,"GL",0,4,.04)=""
^DD(359.3,"GL",0,5,.05)=""
^DD(359.3,"GL",0,6,.06)=""
^DD(359.3,"GL",0,7,.07)=""
^DD(359.3,"GL",0,8,.08)=""
^DD(359.3,"GL",0,9,.09)=""
^DD(359.3,"GL",0,10,.1)=""
^DD(359.3,"GL",0,11,.11)=""
^DD(359.3,"GL",0,12,.12)=""
^DD(359.3,"GL",0,13,.13)=""
^DD(359.3,"GL",0,16,.16)=""
^DD(359.3,"GL",0,17,.17)=""
^DD(359.3,"GL",0,18,.18)=""
^DD(359.3,"GL",1,1,1.01)=""
^DD(359.3,"GL",1,2,1.02)=""
^DD(359.3,"GL",1,3,1.03)=""
^DD(359.3,"GL",1,4,1.04)=""
^DD(359.3,"GL",10,0,10)=""
^DD(359.3,"IX",.01)=""
^DD(359.3,"IX",.02)=""
^DD(359.3,"IX",.05)=""
^DD(359.3,"IX",.13)=""
^DD(359.3,"IX",1.04)=""
^DD(359.3,"RQ",.01)=""
^DD(359.3,"SB",359.31,10)=""
^DD(359.31,0)="ERROR MESSAGE SUB-FIELD^^.01^1"
^DD(359.31,0,"DT")="2970127"
^DD(359.31,0,"NM","ERROR MESSAGE")=""
^DD(359.31,0,"UP")="359.3"
^DD(359.31,.01,0)="ERROR MESSAGE^W^^0;1^Q"
^DD(359.31,.01,21,0)="^^4^4^2970127^"
^DD(359.31,.01,21,1,0)="This is the error message that was generated when the error occured."
^DD(359.31,.01,21,2,0)="The text of the message was built from the dialog file.  The first"
^DD(359.31,.01,21,3,0)="line of the error message is intended to be returned as a single line"
^DD(359.31,.01,21,4,0)="of text to the user."
^DD(359.31,.01,"DT")="2970127"
^DD(359.31,"B","ERROR MESSAGE",.01)=""
^DD(359.31,"GL",0,1,.01)=""
^DD(359.94,0)="FIELD^^.1^8"
^DD(359.94,0,"DT")="2950906"
^DD(359.94,0,"IX","B",359.94,.01)=""
^DD(359.94,0,"IX","C",359.94,.08)=""
^DD(359.94,0,"NM","HAND PRINT FIELD")=""
^DD(359.94,0,"VR")="3.0"
^DD(359.94,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(359.94,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(359.94,.01,1,0)="^.1"
^DD(359.94,.01,1,1,0)="359.94^B"
^DD(359.94,.01,1,1,1)="S ^IBE(359.94,""B"",$E(X,1,30),DA)="""""
^DD(359.94,.01,1,1,2)="K ^IBE(359.94,""B"",$E(X,1,30),DA)"
^DD(359.94,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(359.94,.01,21,0)="^^3^3^2950725^"
^DD(359.94,.01,21,1,0)=" "
^DD(359.94,.01,21,2,0)=" "
^DD(359.94,.01,21,3,0)="The name of the field. "
^DD(359.94,.01,"DT")="2930518"
^DD(359.94,.02,0)="LABEL^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(359.94,.02,.1)=""
^DD(359.94,.02,3)="What label should appear before the hand print field?"
^DD(359.94,.02,21,0)="^^1^1^2950906^^^^"
^DD(359.94,.02,21,1,0)="The text that labels the field on the form."
^DD(359.94,.02,"DT")="2950906"
^DD(359.94,.03,0)="STARTING COLUMN^RNJ3,0XO^^0;3^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(359.94,.03,2)="S Y(0)=Y S Y=+Y+1"
^DD(359.94,.03,2.1)="S Y=+Y+1"
^DD(359.94,.03,3)="What block column should the field begin in?"
^DD(359.94,.03,21,0)="^^1^1^2950808^"
^DD(359.94,.03,21,1,0)="The column the label begins at."
^DD(359.94,.03,"DT")="2950728"
^DD(359.94,.04,0)="STARTING ROW^RNJ3,0XO^^0;4^S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(359.94,.04,2)="S Y(0)=Y S Y=+Y+1"
^DD(359.94,.04,2.1)="S Y=+Y+1"
^DD(359.94,.04,3)="What block row should the field start in?"
^DD(359.94,.04,21,0)="^^1^1^2950808^"
^DD(359.94,.04,21,1,0)="The row the label begins at."
^DD(359.94,.04,"DT")="2950728"
^DD(359.94,.05,0)="LABEL APPEARANCE^FX^^0;5^K:$L(X)>3!($L(X)<1)!($TR(X,""BUR"")'="""") X"
^DD(359.94,.05,3)="B=bold,U=underline,R=reverse You can enter any combination of {B,U,R}."
^DD(359.94,.05,21,0)="^^1^1^2950725^"
^DD(359.94,.05,21,1,0)="Allows the form designer to specify the appearance of the label."
^DD(359.94,.05,"DT")="2961024"
^DD(359.94,.06,0)="TYPE OF DATA^R*P357.6'X^IBE(357.6,^0;6^S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""H"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(359.94,.06,.1)="WHAT TYPE OF DATA WILL BE ENTERED TO THIS FIELD?"
^DD(359.94,.06,3)="What type of data will be entered to the field?"
^DD(359.94,.06,12)="Allows only available input interfaces defined as allowable for hand print fields."
^DD(359.94,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""""H"""""""
^DD(359.94,.06,21,0)="^^2^2^2940721^^"
^DD(359.94,.06,21,1,0)="Points to the package interface file. That is where information about the"
^DD(359.94,.06,21,2,0)="data and how to map it to DHCP is stored."
^DD(359.94,.06,"DT")="2950825"
^DD(359.94,.08,0)="BLOCK^RP357.1'^IBE(357.1,^0;8^Q"
^DD(359.94,.08,1,0)="^.1"
^DD(359.94,.08,1,1,0)="359.94^C"
^DD(359.94,.08,1,1,1)="S ^IBE(359.94,""C"",$E(X,1,30),DA)="""""
^DD(359.94,.08,1,1,2)="K ^IBE(359.94,""C"",$E(X,1,30),DA)"
^DD(359.94,.08,1,1,"%D",0)="^^1^1^2940720^"
^DD(359.94,.08,1,1,"%D",1,0)="Used to find all the input fields appearing in a block."
^DD(359.94,.08,1,1,"DT")="2940720"
^DD(359.94,.08,3)="What block should this input field appear in?"
^DD(359.94,.08,21,0)="^^1^1^2950808^"
^DD(359.94,.08,21,1,0)="The block the field belongs to."
^DD(359.94,.08,"DT")="2940720"
^DD(359.94,.1,0)="DHCP DATA ELEMENT^R*P359.1'X^IBE(359.1,^0;10^S DIC(""S"")=""I $$DTGOOD^IBDFU9($P($G(^IBE(359.94,DA,0)),""""^"""",6),Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(359.94,.1,3)="What data will be printed in this field?"
^DD(359.94,.1,12)="Allows only data elements defined as allowable for the Package Interface."
^DD(359.94,.1,12.1)="S DIC(""S"")=""I $$DTGOOD^IBDFU9($P($G(^IBE(359.94,DA,0)),""""^"""",6),Y)"""
^DD(359.94,.1,21,0)="^^1^1^2950725^"
^DD(359.94,.1,21,1,0)="Specifies what data the hand print field is for."
^DD(359.94,.1,"DT")="2950727"
^DD(359.94,"B","BLOCK",.08)=""
^DD(359.94,"B","DHCP DATA ELEMENT",.1)=""
^DD(359.94,"B","LABEL",.02)=""
^DD(359.94,"B","LABEL APPEARANCE",.05)=""
^DD(359.94,"B","NAME",.01)=""
^DD(359.94,"B","STARTING COLUMN",.03)=""
^DD(359.94,"B","STARTING ROW",.04)=""
^DD(359.94,"B","TYPE OF DATA",.06)=""
^DD(359.94,"GL",0,1,.01)=""
^DD(359.94,"GL",0,2,.02)=""
^DD(359.94,"GL",0,3,.03)=""
^DD(359.94,"GL",0,4,.04)=""
^DD(359.94,"GL",0,5,.05)=""
^DD(359.94,"GL",0,6,.06)=""
^DD(359.94,"GL",0,8,.08)=""
^DD(359.94,"GL",0,10,.1)=""
^DD(359.94,"IX",.01)=""
^DD(359.94,"IX",.08)=""
^DD(359.94,"RQ",.01)=""
^DD(359.94,"RQ",.03)=""
^DD(359.94,"RQ",.04)=""
^DD(359.94,"RQ",.06)=""
^DD(359.94,"RQ",.08)=""
^DD(359.94,"RQ",.1)=""
^DD(361,0)="FIELD^^2^18"
^DD(361,0,"DDA")="N"
^DD(361,0,"DT")="3010419"
^DD(361,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(361,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(361,0,"ID",.07)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(361,.07,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,7)_"""":"""",2),$C(59),1)"")"
^DD(361,0,"IX","AC",361,.06)=""
^DD(361,0,"IX","AERR",361,.11)=""
^DD(361,0,"IX","AFR",361,.13)=""
^DD(361,0,"IX","ANR",361,.14)=""
^DD(361,0,"IX","ARD",361,.02)=""
^DD(361,0,"IX","AREV",361,.09)=""
^DD(361,0,"IX","ASV",361,.03)=""
^DD(361,0,"IX","B",361,.01)=""
^DD(361,0,"NM","BILL STATUS MESSAGE")=""
^DD(361,0,"VR")="2.0"
^DD(361,0,"VRPK")="IB"
^DD(361,.01,0)="BILL NUMBER^RP399'^DGCR(399,^0;1^Q"
^DD(361,.01,1,0)="^.1"
^DD(361,.01,1,1,0)="361^B"
^DD(361,.01,1,1,1)="S ^IBM(361,""B"",$E(X,1,30),DA)="""""
^DD(361,.01,1,1,2)="K ^IBM(361,""B"",$E(X,1,30),DA)"
^DD(361,.01,3)="Enter the bill # that this message is for"
^DD(361,.01,"DT")="3000612"
^DD(361,.02,0)="DATE RECEIVED^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(361,.02,1,0)="^.1"
^DD(361,.02,1,1,0)="361^ARD"
^DD(361,.02,1,1,1)="S ^IBM(361,""ARD"",$E(X,1,30),DA)="""""
^DD(361,.02,1,1,2)="K ^IBM(361,""ARD"",$E(X,1,30),DA)"
^DD(361,.02,1,1,3)="Do not delete"
^DD(361,.02,1,1,"DT")="3010423"
^DD(361,.02,3)="Enter the date and time this status message was received"
^DD(361,.02,21,0)="^^1^1^2980714^"
^DD(361,.02,21,1,0)="This is the date or date/time the status message was received for a bill."
^DD(361,.02,"DT")="3010423"
^DD(361,.03,0)="MESSAGE SEVERITY^S^R:REJECTION;I:INFORMATION/WARNING;^0;3^Q"
^DD(361,.03,1,0)="^.1"
^DD(361,.03,1,1,0)="361^ASV"
^DD(361,.03,1,1,1)="S ^IBM(361,""ASV"",$E(X,1,30),DA)="""""
^DD(361,.03,1,1,2)="K ^IBM(361,""ASV"",$E(X,1,30),DA)"
^DD(361,.03,1,1,"%D",0)="^^1^1^3010507^"
^DD(361,.03,1,1,"%D",1,0)="This allows for sorting by severity for report purposes."
^DD(361,.03,1,1,"DT")="3010507"
^DD(361,.03,3)="Enter the severity of this message"
^DD(361,.03,21,0)="^^1^1^2980714^^"
^DD(361,.03,21,1,0)="This is the level of severity that this message will convey to the biller."
^DD(361,.03,"DT")="3010507"
^DD(361,.04,0)="MESSAGE GENERATION SOURCE^S^0:NON-PAYER;1:PAYER;^0;4^Q"
^DD(361,.04,3)="Enter 0 for non-payer or 1 for a payer-generated message"
^DD(361,.04,21,0)="^^2^2^2980825^^^^"
^DD(361,.04,21,1,0)="This field determines whether or not the message was generated as a result"
^DD(361,.04,21,2,0)="of the payer (1) or before it got to the payer (0)."
^DD(361,.04,"DT")="2980825"
^DD(361,.05,0)="BATCH NUMBER^P364.1'^IBA(364.1,^0;5^Q"
^DD(361,.05,3)="Enter the batch number the bill was in when the message was received"
^DD(361,.05,21,0)="^^2^2^2980728^"
^DD(361,.05,21,1,0)="This is the batch number in which the bill was sent in when this status"
^DD(361,.05,21,2,0)="message was received."
^DD(361,.05,"DT")="2980728"
^DD(361,.06,0)="RETURN MESSAGE ID^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(361,.06,1,0)="^.1"
^DD(361,.06,1,1,0)="361^AC"
^DD(361,.06,1,1,1)="S ^IBM(361,""AC"",$E(X,1,30),DA)="""""
^DD(361,.06,1,1,2)="K ^IBM(361,""AC"",$E(X,1,30),DA)"
^DD(361,.06,1,1,3)="Do not delete"
^DD(361,.06,1,1,"%D",0)="^^2^2^2980728^"
^DD(361,.06,1,1,"%D",1,0)="This xref is used to determine if a return message from file 364.2 has not"
^DD(361,.06,1,1,"%D",2,0)="already been added to this file."
^DD(361,.06,1,1,"DT")="2980728"
^DD(361,.06,3)="Answer must be 1-20 characters in length."
^DD(361,.06,21,0)="^^3^3^2990511^^"
^DD(361,.06,21,1,0)="This is the ID of the return message that this status was delivered in."
^DD(361,.06,21,2,0)="It is used to ensure these status messages don't get added to this file"
^DD(361,.06,21,3,0)="more than once."
^DD(361,.06,"DT")="2980728"
^DD(361,.07,0)="BILL'S COB SEQUENCE^S^P:PRIMARY;S:SECONDARY;T:TERTIARY;^0;7^Q"
^DD(361,.07,3)="Enter the COB sequence of the bill when this status message was received"
^DD(361,.07,21,0)="^^1^1^2990511^^"
^DD(361,.07,21,1,0)="This is the COB sequence of the bill when the message is received."
^DD(361,.07,"DT")="2990511"
^DD(361,.08,0)="PAYER ID RETURNED^F^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(361,.08,3)="Answer must be 1-10 characters in length."
^DD(361,.08,21,0)="^^2^2^2990712^^"
^DD(361,.08,21,1,0)="This is the payer ID from ENVOY for the insurance company that the bill"
^DD(361,.08,21,2,0)="was sent to."
^DD(361,.08,23,0)="^^4^4^2990712^"
^DD(361,.08,23,1,0)="If this field comes back with data and there is no ID defined for the"
^DD(361,.08,23,2,0)="insurance co, update the data base with this number.  The exception to this"
^DD(361,.08,23,3,0)="is if it comes back = HPRNT or SPRNT, then we update the field that says"
^DD(361,.08,23,4,0)="the bill was printed at ENVOY."
^DD(361,.08,"DT")="2990712"
^DD(361,.09,0)="REVIEW STATUS^S^0:NOT REVIEWED;1:REVIEW IN PROCESS;2:REVIEW COMPLETE;^0;9^Q"
^DD(361,.09,1,0)="^.1"
^DD(361,.09,1,1,0)="361^AREV"
^DD(361,.09,1,1,1)="S ^IBM(361,""AREV"",$E(X,1,30),DA)="""""
^DD(361,.09,1,1,2)="K ^IBM(361,""AREV"",$E(X,1,30),DA)"
^DD(361,.09,1,1,3)="Do not delete"
^DD(361,.09,1,1,"%D",0)="^^1^1^2991104^"
^DD(361,.09,1,1,"%D",1,0)="This allows the file to be traversed by status."
^DD(361,.09,1,1,"DT")="2991104"
^DD(361,.09,3)="Enter the number that corresponds to this entry's current status."
^DD(361,.09,21,0)="^^1^1^3000306^^"
^DD(361,.09,21,1,0)="This field contains the current review state of this message."
^DD(361,.09,"DT")="3010419"
^DD(361,.1,0)="FINAL REVIEW ACTION^S^C:BILL CANCELLED - NO FURTHER ACTION;F:FILED - NO ACTION;R:BILL CORRECTED/RESUBMITTED;O:OTHER ACTION;^0;10^Q"
^DD(361,.1,1,0)="^.1"
^DD(361,.1,1,1,0)="^^TRIGGER^361^.13"
^DD(361,.1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^IBM(361,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=361,DIG=.13 D ^DICR"
^DD(361,.1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" S DIH=$G(^IBM(361,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=361,DIG=.13 D ^DICR"
^DD(361,.1,1,1,"CREATE VALUE")="TODAY"
^DD(361,.1,1,1,"DELETE VALUE")="@"
^DD(361,.1,1,1,"FIELD")="FINAL REVIEW DATE"
^DD(361,.1,3)="Enter the action taken to complete the review of the status message"
^DD(361,.1,21,0)="^^3^3^2990802^^^"
^DD(361,.1,21,1,0)="This is the final action taken to review this status message.  If OTHER"
^DD(361,.1,21,2,0)="ACTION is chosen, the action taken should be noted in the REVIEW DATE's"
^DD(361,.1,21,3,0)="COMMENT field."
^DD(361,.1,"DT")="3010305"
^DD(361,.11,0)="TRANSMIT BILL^*P364'^IBA(364,^0;11^S DIC(""S"")=""N Z S Z=$G(^(0)) I +Z=+$G(^IBM(361,DA,0)),$P(Z,U,8)=$P(^(0),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(361,.11,1,0)="^.1"
^DD(361,.11,1,1,0)="361^AERR"
^DD(361,.11,1,1,1)="S ^IBM(361,""AERR"",$E(X,1,30),DA)="""""
^DD(361,.11,1,1,2)="K ^IBM(361,""AERR"",$E(X,1,30),DA)"
^DD(361,.11,1,1,3)="Do not delete"
^DD(361,.11,1,1,"DT")="2991110"
^DD(361,.11,3)="Enter the transmit bill that relates to this message"
^DD(361,.11,12)="Must be for the same bill entry and insurance sequence"
^DD(361,.11,12.1)="S DIC(""S"")=""N Z S Z=$G(^(0)) I +Z=+$G(^IBM(361,DA,0)),$P(Z,U,8)=$P(^(0),U,7)"""
^DD(361,.11,21,0)="^^1^1^2991110^^"
^DD(361,.11,21,1,0)="This is the pointer to the transmit bill entry that generated this message."
^DD(361,.11,"DT")="2991110"
^DD(361,.12,0)="DATE GENERATED^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(361,.12,1,0)="^.1^^0"
^DD(361,.12,3)="Enter the date the message was generated at the source"
^DD(361,.12,21,0)="^^1^1^3000124^"
^DD(361,.12,21,1,0)="This is the date the message was created at the source."
^DD(361,.12,"DT")="3000126"
^DD(361,.13,0)="FINAL REVIEW DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(361,.13,1,0)="^.1"
^DD(361,.13,1,1,0)="361^AFR"
^DD(361,.13,1,1,1)="S ^IBM(361,""AFR"",$E(X,1,30),DA)="""""
^DD(361,.13,1,1,2)="K ^IBM(361,""AFR"",$E(X,1,30),DA)"
^DD(361,.13,1,1,3)="Please do not delete"
^DD(361,.13,1,1,"%D",0)="^^3^3^3010305^"
^DD(361,.13,1,1,"%D",1,0)="This cross reference provides an index for the status message file by"
^DD(361,.13,1,1,"%D",2,0)="final review date.  This is used to determine when a record should be"
^DD(361,.13,1,1,"%D",3,0)="deleted from the file."
^DD(361,.13,1,1,"DT")="3010305"
^DD(361,.13,3)="Enter the date this message received its final review."
^DD(361,.13,5,1,0)="361^.1^1"
^DD(361,.13,21,0)="^^2^2^3010305^"
^DD(361,.13,21,1,0)="This is the date of the final review of the message.  It will be used to"
^DD(361,.13,21,2,0)="determine when the message should be automatically deleted from the file."
^DD(361,.13,"DT")="3010305"
^DD(361,.14,0)="AUTO FILED WITH NO REVIEW^S^0:NO;1:YES;^0;14^Q"
^DD(361,.14,1,0)="^.1"
^DD(361,.14,1,1,0)="361^ANR"
^DD(361,.14,1,1,1)="S ^IBM(361,""ANR"",$E(X,1,30),DA)="""""
^DD(361,.14,1,1,2)="K ^IBM(361,""ANR"",$E(X,1,30),DA)"
^DD(361,.14,1,1,3)="Do not delete"
^DD(361,.14,1,1,"%D",0)="^^1^1^3010419^"
^DD(361,.14,1,1,"%D",1,0)="Fast access to messages that need no review"
^DD(361,.14,1,1,"DT")="3010419"
^DD(361,.14,3)="Enter YES if this record was auto filed and requires no review"
^DD(361,.14,21,0)="^^2^2^3010419^"
^DD(361,.14,21,1,0)="This field is set to YES (1) when the return message text contains any"
^DD(361,.14,21,2,0)="of the text defined in file 361.3 that indicates no review is needed."
^DD(361,.14,"DT")="3010419"
^DD(361,.15,0)="MESSAGE CHECKSUM^F^^0;15^K:$L(X)>18!($L(X)<1) X"
^DD(361,.15,3)="Answer must be 1-18 characters in length"
^DD(361,.15,21,0)="^^5^5^3050531^"
^DD(361,.15,21,1,0)="This field contains the calculated checksum value of the status"
^DD(361,.15,21,2,0)="message text.  It is a unique number which is mathematically"
^DD(361,.15,21,3,0)="generated based on the actual data in the 277STAT flat file data"
^DD(361,.15,21,4,0)="received from Austin.  This checksum value is used to eliminate"
^DD(361,.15,21,5,0)="duplicate status message transmissions into VistA."
^DD(361,.15,23,0)="^^1^1^3050722^"
^DD(361,.15,23,1,0)="This field should never be set manually."
^DD(361,.15,"DT")="3050722"
^DD(361,.16,0)="DATE LAST PRINTED VIA MCS^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(361,.16,3)="(No range limit on date)"
^DD(361,.16,21,0)="^^2^2^3051026^"
^DD(361,.16,21,1,0)="This is the date that the associated claim was most recently printed by "
^DD(361,.16,21,2,0)="the MCS option - Resubmit by Print."
^DD(361,.16,"DT")="3051026"
^DD(361,1,0)="STATUS MESSAGE^361.01^^1;0"
^DD(361,1,21,0)="^^2^2^3000508^"
^DD(361,1,21,1,0)="This is the message text and other pertinent data from a status message for"
^DD(361,1,21,2,0)="the bill."
^DD(361,2,0)="REVIEW DATE^361.02D^^2;0"
^DD(361,2,21,0)="^^1^1^3000508^"
^DD(361,2,21,1,0)="This is the date and time a review was initiated by a user."
^DD(361,"B","AUTO FILED WITH NO REVIEW",.14)=""
^DD(361,"B","BATCH NUMBER",.05)=""
^DD(361,"B","BILL NUMBER",.01)=""
^DD(361,"B","BILL'S COB SEQUENCE",.07)=""
^DD(361,"B","DATE GENERATED",.12)=""
^DD(361,"B","DATE LAST PRINTED VIA MCS",.16)=""
^DD(361,"B","DATE RECEIVED",.02)=""
^DD(361,"B","FINAL REVIEW ACTION",.1)=""
^DD(361,"B","FINAL REVIEW DATE",.13)=""
^DD(361,"B","MESSAGE CHECKSUM",.15)=""
^DD(361,"B","MESSAGE GENERATION SOURCE",.04)=""
^DD(361,"B","MESSAGE SEVERITY",.03)=""
^DD(361,"B","PAYER ID RETURNED",.08)=""
^DD(361,"B","RETURN MESSAGE ID",.06)=""
^DD(361,"B","REVIEW DATE",2)=""
^DD(361,"B","REVIEW STATUS",.09)=""
^DD(361,"B","STATUS MESSAGE",1)=""
^DD(361,"B","TRANSMIT BILL",.11)=""
^DD(361,"GL",0,1,.01)=""
^DD(361,"GL",0,2,.02)=""
^DD(361,"GL",0,3,.03)=""
^DD(361,"GL",0,4,.04)=""
^DD(361,"GL",0,5,.05)=""
^DD(361,"GL",0,6,.06)=""
^DD(361,"GL",0,7,.07)=""
^DD(361,"GL",0,8,.08)=""
^DD(361,"GL",0,9,.09)=""
^DD(361,"GL",0,10,.1)=""
^DD(361,"GL",0,11,.11)=""
^DD(361,"GL",0,12,.12)=""
^DD(361,"GL",0,13,.13)=""
^DD(361,"GL",0,14,.14)=""
^DD(361,"GL",0,15,.15)=""
^DD(361,"GL",0,16,.16)=""
^DD(361,"GL",1,0,1)=""
^DD(361,"GL",2,0,2)=""
^DD(361,"IX",.01)=""
^DD(361,"IX",.02)=""
^DD(361,"IX",.03)=""
^DD(361,"IX",.06)=""
^DD(361,"IX",.09)=""
^DD(361,"IX",.1)=""
^DD(361,"IX",.11)=""
^DD(361,"IX",.13)=""
^DD(361,"IX",.14)=""
^DD(361,"RQ",.01)=""
^DD(361,"SB",361.01,1)=""
^DD(361,"SB",361.02,2)=""
^DD(361.01,0)="STATUS MESSAGE SUB-FIELD^^.01^1"
^DD(361.01,0,"DT")="2990621"
^DD(361.01,0,"NM","STATUS MESSAGE")=""
^DD(361.01,0,"UP")="361"
^DD(361.01,.01,0)="STATUS MESSAGE^WL^^0;1^Q"
^DD(361.01,.01,3)="Enter the text of the status message"
^DD(361.01,.01,21,0)="^.001^2^2^3000508^^^"
^DD(361.01,.01,21,1,0)="This is the message text and other pertinent data from a status message for"
^DD(361.01,.01,21,2,0)="the bill."
^DD(361.01,.01,"DT")="2990621"
^DD(361.01,"B","STATUS MESSAGE",.01)=""
^DD(361.01,"GL",0,1,.01)=""
^DD(361.02,0)="REVIEW DATE SUB-FIELD^^.03^3"
^DD(361.02,0,"DT")="2990802"
^DD(361.02,0,"IX","B",361.02,.01)=""
^DD(361.02,0,"NM","REVIEW DATE")=""
^DD(361.02,0,"UP")="361"
^DD(361.02,.01,0)="REVIEW DATE^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(361.02,.01,1,0)="^.1"
^DD(361.02,.01,1,1,0)="361.02^B"
^DD(361.02,.01,1,1,1)="S ^IBM(361,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(361.02,.01,1,1,2)="K ^IBM(361,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(361.02,.01,3)="Enter the date a review of this message was performed"
^DD(361.02,.01,21,0)="^.001^1^1^3000508^^^"
^DD(361.02,.01,21,1,0)="This is the date and time a review was initiated by a user."
^DD(361.02,.01,"DT")="2990802"
^DD(361.02,.02,0)="REVIEWED BY^P200'^VA(200,^0;2^Q"
^DD(361.02,.02,3)="Enter the name of the user who reviewed this message."
^DD(361.02,.02,21,0)="^^2^2^2990802^"
^DD(361.02,.02,21,1,0)="This is the name of the person who selected the option to review this "
^DD(361.02,.02,21,2,0)="message."
^DD(361.02,.02,"DT")="2990802"
^DD(361.02,.03,0)="COMMENTS^361.03^^1;0"
^DD(361.02,"B","COMMENTS",.03)=""
^DD(361.02,"B","REVIEW DATE",.01)=""
^DD(361.02,"B","REVIEWED BY",.02)=""
^DD(361.02,"GL",0,1,.01)=""
^DD(361.02,"GL",0,2,.02)=""
^DD(361.02,"GL",1,0,.03)=""
^DD(361.02,"IX",.01)=""
^DD(361.02,"SB",361.03,.03)=""
^DD(361.03,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(361.03,0,"DT")="2990802"
^DD(361.03,0,"NM","COMMENTS")=""
^DD(361.03,0,"UP")="361.02"
^DD(361.03,.01,0)="COMMENTS^W^^0;1^Q"
^DD(361.03,.01,3)="Enter a description of any issues or comments to be saved with this review."
^DD(361.03,.01,21,0)="^^3^3^3000323^^^^"
^DD(361.03,.01,21,1,0)="A comment can be entered to describe what took place during status message"
^DD(361.03,.01,21,2,0)="review. Issues encountered or resolved, special circumstances regarding the "
^DD(361.03,.01,21,3,0)="claim, etc. are examples of the type of comments to enter here."
^DD(361.03,.01,"DT")="2990802"
^DD(361.03,"B","COMMENTS",.01)=""
^DD(361.03,"GL",0,1,.01)=""
^DD(361.1,0)="FIELD^^100.05^97"
^DD(361.1,0,"DDA")="N"
^DD(361.1,0,"DT")="2991110"
^DD(361.1,0,"ID","W")="N %Y S %Y=$G(^(0)) D EN^DDIOL($$EXTERNAL^DILFD(361.1,.02,,$P(%Y,U,2))_"" (""_$$EXTERNAL^DILFD(361.1,.15,,$P(%Y,U,15))_"")"")"
^DD(361.1,0,"IX","ABB",361.1,.01)=""
^DD(361.1,0,"IX","AC",361.1,100.02)=""
^DD(361.1,0,"IX","AERR",361.1,.19)=""
^DD(361.1,0,"IX","AREV",361.1,.16)=""
^DD(361.1,0,"IX","B",361.1,.01)=""
^DD(361.1,0,"IX","C",361.18,.01)=""
^DD(361.1,0,"IX","C",361.18,.03)=""
^DD(361.1,0,"NM","EXPLANATION OF BENEFITS")=""
^DD(361.1,0,"PT",344.41,.02)=""
^DD(361.1,0,"VR")="2.0"
^DD(361.1,0,"VRPK")="IB"
^DD(361.1,.01,0)="BILL^RP399'^DGCR(399,^0;1^Q"
^DD(361.1,.01,1,0)="^.1^^-1"
^DD(361.1,.01,1,1,0)="361.1^B"
^DD(361.1,.01,1,1,1)="S ^IBM(361.1,""B"",$E(X,1,30),DA)="""""
^DD(361.1,.01,1,1,2)="K ^IBM(361.1,""B"",$E(X,1,30),DA)"
^DD(361.1,.01,1,3,0)="361.1^ABB^MUMPS"
^DD(361.1,.01,1,3,1)="N Z S Z=+$G(^IBM(361.1,DA,100)) I Z S ^IBM(361.1,""ABB"",$E(X,1,30),Z,DA)="""""
^DD(361.1,.01,1,3,2)="S Z=+$G(^IBM(361.1,DA,100)) I Z K ^IBM(361.1,""ABB"",$E(X,1,30),Z,DA)"
^DD(361.1,.01,1,3,3)="Do not delete"
^DD(361.1,.01,1,3,"%D",0)="^^1^1^2990708^^"
^DD(361.1,.01,1,3,"%D",1,0)="Compound cross reference by batch and bill #"
^DD(361.1,.01,1,3,"DT")="2990708"
^DD(361.1,.01,3)="ENTER THE BILL # THAT THIS EOB IS FOR"
^DD(361.1,.01,21,0)="^^1^1^2980714^"
^DD(361.1,.01,21,1,0)="This is the pointer to the bill # to which this EOB is associated."
^DD(361.1,.01,"DT")="2991115"
^DD(361.1,.02,0)="PAYER NAME^P36'^DIC(36,^0;2^Q"
^DD(361.1,.02,3)="Enter the name of the payer who returned this EOB."
^DD(361.1,.02,5,1,0)="361.1^.15^2"
^DD(361.1,.02,21,0)="^^2^2^2990528^^^^"
^DD(361.1,.02,21,1,0)="This is the name of the insurance company that provided this EOB for the"
^DD(361.1,.02,21,2,0)="bill."
^DD(361.1,.02,"DT")="2990528"
^DD(361.1,.03,0)="PAYER ID^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(361.1,.03,3)="Answer must be 1-20 characters in length."
^DD(361.1,.03,21,0)="^^1^1^2981006^"
^DD(361.1,.03,21,1,0)="This is the payer ID provided for the insurance co that returned this EOB."
^DD(361.1,.03,"DT")="2981006"
^DD(361.1,.04,0)="EOB TYPE^SO^0:NORMAL EOB;1:MEDICARE MRA;^0;4^Q"
^DD(361.1,.04,2)="S Y(0)=Y S Y=$S(Y=0:""NORMAL EOB"",1:""MRA"") N Z S Z=$O(^(8,0)) I $O(^IBM(361.1,D0,8,Z),-1)'=Z S Y=Y_"" (SPLIT TO MORE CLAIMS)"""
^DD(361.1,.04,2.1)="S Y=$S(Y=0:""NORMAL EOB"",1:""MRA"") N Z S Z=$O(^(8,0)) I $O(^IBM(361.1,D0,8,Z),-1)'=Z S Y=Y_"" (SPLIT TO MORE CLAIMS)"""
^DD(361.1,.04,3)="Enter 1 if an MRA from MEDICARE"
^DD(361.1,.04,21,0)="^.001^2^2^3001130^^"
^DD(361.1,.04,21,1,0)="This field indicates whether this EOB contains actual payment data or is"
^DD(361.1,.04,21,2,0)="simply an MRA received from MEDICARE."
^DD(361.1,.04,"DT")="3030318"
^DD(361.1,.05,0)="ENTRY DATE/TIME^RD^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(361.1,.05,3)="Enter the date and time this entry is added to the file"
^DD(361.1,.05,21,0)="^.001^2^2^3030625^^^^"
^DD(361.1,.05,21,1,0)="This is the date and time that this EOB entry was added to the Vista file."
^DD(361.1,.05,21,2,0)="This is not mapped from the 835 transmission."
^DD(361.1,.05,"DT")="3030113"
^DD(361.1,.06,0)="EOB PAID DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(361.1,.06,1,0)="^.1^^0"
^DD(361.1,.06,3)="Enter the date the payer paid the claim"
^DD(361.1,.06,21,0)="^^2^2^3031014^"
^DD(361.1,.06,21,1,0)="This is the effective date of money movement (paid date) from the"
^DD(361.1,.06,21,2,0)="payer, as indicated in the 835 transmission."
^DD(361.1,.06,"DT")="3031014"
^DD(361.1,.07,0)="TRACE NUMBER^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(361.1,.07,1,0)="^.1^^0"
^DD(361.1,.07,3)="Answer must be 1-30 characters in length."
^DD(361.1,.07,21,0)="^^1^1^2981007^"
^DD(361.1,.07,21,1,0)="This is the TRACE NUMBER from the 835 transaction for this EOB"
^DD(361.1,.07,23,0)="^^1^1^2990112^^"
^DD(361.1,.07,23,1,0)="This is the data from the 835 data field (TRN-02)"
^DD(361.1,.07,"DT")="3040407"
^DD(361.1,.08,0)="CROSSED OVER NAME^F^^0;8^K:$L(X)>40!($L(X)<1) X"
^DD(361.1,.08,3)="Answer must be 1-40 characters in length."
^DD(361.1,.08,21,0)="^^2^2^2981007^"
^DD(361.1,.08,21,1,0)="This is the name of the insurance company to which this claim was sent"
^DD(361.1,.08,21,2,0)="for COB purposes automatically."
^DD(361.1,.08,23,0)="^^1^1^2990112^^"
^DD(361.1,.08,23,1,0)="This is the data from the 835 data field (NM-103/Qualifier='DC')"
^DD(361.1,.08,"DT")="2981007"
^DD(361.1,.09,0)="CROSSED OVER ID^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(361.1,.09,3)="Answer must be 1-20 characters in length."
^DD(361.1,.09,21,0)="^^1^1^2981007^"
^DD(361.1,.09,21,1,0)="This is the ID returned on the 835 for the CROSS-OVER payer."
^DD(361.1,.09,23,0)="^^1^1^2990112^^"
^DD(361.1,.09,23,1,0)="This is the data from the 835 data field (NM-109)"
^DD(361.1,.09,"DT")="2981007"
^DD(361.1,.1,0)="DRG CODE USED^F^^0;10^K:$L(X)>4!($L(X)<1) X"
^DD(361.1,.1,3)="Answer must be 1-4 characters in length."
^DD(361.1,.1,21,0)="^^1^1^2981007^"
^DD(361.1,.1,21,1,0)="This is the DRG code used for pricing as reported from the payer for institutional claims only."
^DD(361.1,.1,23,0)="^^1^1^2990112^^"
^DD(361.1,.1,23,1,0)="This is the data from the 835 data field (CLP-11) or from manual entry of the amount"
^DD(361.1,.1,"DT")="2981007"
^DD(361.1,.11,0)="DRG WEIGHT USED^NJ15,4^^0;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(361.1,.11,3)="Type a Number between 0 and 9999999999, 4 Decimal Digits"
^DD(361.1,.11,21,0)="^^1^1^2981007^"
^DD(361.1,.11,21,1,0)="This is the DRG weight used for pricing as reported from the payer for institutional claims only."
^DD(361.1,.11,23,0)="^^1^1^2990112^^"
^DD(361.1,.11,23,1,0)="This is the data from the 835 data field (CLP-12) or from manual entry of the amount"
^DD(361.1,.11,"DT")="2990303"
^DD(361.1,.12,0)="DISCHARGE FRACTION^NJ13,2^^0;12^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(361.1,.12,3)="Type a Number between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,.12,21,0)="^^1^1^2981007^"
^DD(361.1,.12,21,1,0)="This is the DISCHARGE FRACTION field as reported by the payer for institutional claims only."
^DD(361.1,.12,23,0)="^^1^1^2990112^^"
^DD(361.1,.12,23,1,0)="This is the data from the 835 data field (CLP-13) or from manual entry of the amount"
^DD(361.1,.12,"DT")="2981007"
^DD(361.1,.13,0)="CLAIM STATUS^S^1:PROCESSED;2:DENIED;3:PENDED;4:REVERSAL;5:OTHER;^0;13^Q"
^DD(361.1,.13,3)="Enter the status of this EOB."
^DD(361.1,.13,21,0)="^^2^2^2990210^^"
^DD(361.1,.13,21,1,0)="This is the status of this EOB.  Only PROCESSED and DENIED claims will be"
^DD(361.1,.13,21,2,0)="sent to subsequent payers for COB purposes."
^DD(361.1,.13,23,0)="^^1^1^2990210^^^"
^DD(361.1,.13,23,1,0)="This is the data from the 835 data field (CLP-02) or from manual entry of the amount"
^DD(361.1,.13,"DT")="2981007"
^DD(361.1,.14,0)="ICN^F^^0;14^K:$L(X)>30!($L(X)<1) X"
^DD(361.1,.14,3)="Answer must be 1-30 characters in length"
^DD(361.1,.14,21,0)="^^1^1^2990119^^"
^DD(361.1,.14,21,1,0)="This is the ICN as reported on the EOB from the payer."
^DD(361.1,.14,23,0)="^^1^1^2990119^"
^DD(361.1,.14,23,1,0)="This data is found on the 835 in the CLP-07 data element."
^DD(361.1,.14,"DT")="3040419"
^DD(361.1,.15,0)="INSURANCE SEQUENCE^RS^1:PRIMARY;2:SECONDARY;3:TERTIARY;^0;15^Q"
^DD(361.1,.15,1,0)="^.1^^-1"
^DD(361.1,.15,1,2,0)="^^TRIGGER^361.1^.02"
^DD(361.1,.15,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(361.1,.15,1,2,1.1) X ^DD(361.1,.15,1,2,1.4)"
^DD(361.1,.15,1,2,1.1)="S X=DIV S X=+$P(^DGCR(399,+$G(^IBM(361.1,DA,0)),""M""),U,X),X=$S(X:X,1:"""")"
^DD(361.1,.15,1,2,1.4)="S DIH=$S($D(^IBM(361.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=361.1,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(361.1,.15,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(361.1,.15,1,2,2.4)"
^DD(361.1,.15,1,2,2.4)="S DIH=$S($D(^IBM(361.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=361.1,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(361.1,.15,1,2,3)="Please do not delete"
^DD(361.1,.15,1,2,"%D",0)="^^2^2^2990607^"
^DD(361.1,.15,1,2,"%D",1,0)="This trigger forces the insurance company pointer into the PAYER NAME field"
^DD(361.1,.15,1,2,"%D",2,0)="when the COB sequence for the bill is entered."
^DD(361.1,.15,1,2,"CREATE VALUE")="S X=+$P(^DGCR(399,+$G(^IBM(361.1,DA,0)),""M""),U,X),X=$S(X:X,1:"""")"
^DD(361.1,.15,1,2,"DELETE VALUE")="@"
^DD(361.1,.15,1,2,"DT")="2990607"
^DD(361.1,.15,1,2,"FIELD")="PAYER NAME"
^DD(361.1,.15,3)="Enter the sequence for this insurance for this bill"
^DD(361.1,.15,21,0)="^^1^1^2990122^"
^DD(361.1,.15,21,1,0)="This is the sequence for the insurance for this bill."
^DD(361.1,.15,"DT")="2991115"
^DD(361.1,.16,0)="REVIEW STATUS^S^0:NOT REVIEWED;1:REVIEW IN PROCESS;1.5:COB PROCESSED, NOT AUTHORIZED;2:ACCEPTED-INTERIM EOB;3:ACCEPTED-COMPLETE EOB;4:REJECTED;9:CLAIM CANCELLED;^0;16^Q"
^DD(361.1,.16,1,0)="^.1"
^DD(361.1,.16,1,1,0)="361.1^AREV"
^DD(361.1,.16,1,1,1)="S ^IBM(361.1,""AREV"",$E(X,1,30),DA)="""""
^DD(361.1,.16,1,1,2)="K ^IBM(361.1,""AREV"",$E(X,1,30),DA)"
^DD(361.1,.16,1,1,3)="Do not delete"
^DD(361.1,.16,1,1,"%D",0)="^^1^1^3030929^"
^DD(361.1,.16,1,1,"%D",1,0)="This xref is used to pull out EOB's that are in various stages of review."
^DD(361.1,.16,1,1,"DT")="3030929"
^DD(361.1,.16,1,2,0)="^^TRIGGER^361.1^100.03"
^DD(361.1,.16,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361.1,D0,100)):^(100),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^IBM(361.1,DIV(0),100)),DIV=X S $P(^(100),U,3)=DIV,DIH=361.1,DIG=100.03 D ^DICR"
^DD(361.1,.16,1,2,2)="Q"
^DD(361.1,.16,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(361.1,.16,1,2,"DELETE VALUE")="NO EFFECT"
^DD(361.1,.16,1,2,"DT")="3030520"
^DD(361.1,.16,1,2,"FIELD")="LAST EDITED BY"
^DD(361.1,.16,1,3,0)="^^TRIGGER^361.1^100.04"
^DD(361.1,.16,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBM(361.1,D0,100)):^(100),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT() S DIH=$G(^IBM(361.1,DIV(0),100)),DIV=X S $P(^(100),U,4)=DIV,DIH=361.1,DIG=100.04 D ^DICR"
^DD(361.1,.16,1,3,2)="Q"
^DD(361.1,.16,1,3,"CREATE VALUE")="S X=$$NOW^XLFDT()"
^DD(361.1,.16,1,3,"DELETE VALUE")="NO EFFECT"
^DD(361.1,.16,1,3,"DT")="3030520"
^DD(361.1,.16,1,3,"FIELD")="LAST EDITED DATE"
^DD(361.1,.16,21,0)="^.001^2^2^3030520^^^"
^DD(361.1,.16,21,1,0)="This is the current processing status of the EOB/MRA.  Only MRA claims can"
^DD(361.1,.16,21,2,0)="be in a REJECTED status."
^DD(361.1,.16,"DT")="3040915"
^DD(361.1,.17,0)="MANUAL ENTRY?^S^0:NO;1:YES;^0;17^Q"
^DD(361.1,.17,3)="Enter a 1 if this EOB was manually entered or 0 if it was entered electronically"
^DD(361.1,.17,21,0)="^^2^2^2990210^"
^DD(361.1,.17,21,1,0)="This field indicates whether the EOB was added electronically or"
^DD(361.1,.17,21,2,0)="manually."
^DD(361.1,.17,"DT")="2990210"
^DD(361.1,.18,0)="MANUALLY ENTERED BY^P200'^VA(200,^0;18^Q"
^DD(361.1,.18,3)="Enter the name of the person entering the EOB"
^DD(361.1,.18,21,0)="^^1^1^2990528^"
^DD(361.1,.18,21,1,0)="This is the name of the person responsible for the entry of this EOB."
^DD(361.1,.18,"DT")="2990528"
^DD(361.1,.19,0)="TRANSMIT BILL^*P364'^IBA(364,^0;19^S DIC(""S"")=""N Z S Z=$G(^(0)) I +Z=+$G(^IBM(361.1,DA,0)),$TR($P(Z,U,8),""""PST"""",""""123"""")=$P(^(0),U,15)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(361.1,.19,1,0)="^.1"
^DD(361.1,.19,1,1,0)="361.1^AERR"
^DD(361.1,.19,1,1,1)="S ^IBM(361.1,""AERR"",$E(X,1,30),DA)="""""
^DD(361.1,.19,1,1,2)="K ^IBM(361.1,""AERR"",$E(X,1,30),DA)"
^DD(361.1,.19,1,1,3)="Do not delete"
^DD(361.1,.19,1,1,"DT")="2991110"
^DD(361.1,.19,3)="Enter the transmit bill that generated this EOB."
^DD(361.1,.19,12)="Only for same bill entry and ins sequence"
^DD(361.1,.19,12.1)="S DIC(""S"")=""N Z S Z=$G(^(0)) I +Z=+$G(^IBM(361.1,DA,0)),$TR($P(Z,U,8),""""PST"""",""""123"""")=$P(^(0),U,15)"""
^DD(361.1,.19,21,0)="^^1^1^2991110^"
^DD(361.1,.19,21,1,0)="This is the transmit bill entry that was responsible for this EOB."
^DD(361.1,.19,"DT")="2991110"
^DD(361.1,.2,0)="FINAL REVIEW ACTION^S^C:BILL CANCELLED - NO FURTHER ACTION;F:FILED - NO ACTION;R:CORRECTED/RESUBMITTED;P:COB PROCESSED;O:OTHER ACTION;^0;20^Q"
^DD(361.1,.2,3)="Enter the final review action for this EOB"
^DD(361.1,.2,21,0)="^^1^1^3030703^"
^DD(361.1,.2,21,1,0)="This is the action that was taken to complete the review of this EOB."
^DD(361.1,.2,"DT")="3030703"
^DD(361.1,.21,0)="CLAIM STATUS CODE^F^^0;21^K:$L(X)>2!($L(X)<1) X"
^DD(361.1,.21,3)="Answer must be 1-2 characters in length."
^DD(361.1,.21,21,0)="^^1^1^3030325^"
^DD(361.1,.21,21,1,0)="This is the actual X12 claim status code that was received for this EOB."
^DD(361.1,.21,"DT")="3030325"
^DD(361.1,1.01,0)="PAYER PAID AMT^NJ13,2^^1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,1.01,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,1.01,21,0)="^^1^1^2981006^"
^DD(361.1,1.01,21,1,0)="This is the amount that was paid on this claim for this EOB"
^DD(361.1,1.01,23,0)="^^1^1^2990112^^"
^DD(361.1,1.01,23,1,0)="This is the amount from the 835 data field (CLP-04) or from manual entry of the amount"
^DD(361.1,1.01,"DT")="2981006"
^DD(361.1,1.02,0)="PATIENT RESPONSIBILITY AMT^NJ16,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999.99)!(X<0) X"
^DD(361.1,1.02,3)="Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits"
^DD(361.1,1.02,21,0)="^^2^2^2990122^^"
^DD(361.1,1.02,21,1,0)="This is the amount the insurance company/MRA dictates is the responsibility"
^DD(361.1,1.02,21,2,0)="of the patient for this claim."
^DD(361.1,1.02,23,0)="^^2^2^2990122^"
^DD(361.1,1.02,23,1,0)="This field is found from the data on the 835 in the CAS segment when the"
^DD(361.1,1.02,23,2,0)="qualifier = 'PR'."
^DD(361.1,1.02,"DT")="2990122"
^DD(361.1,1.03,0)="COVERED AMT^NJ13,2^^1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,1.03,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,1.03,21,0)="^^1^1^2990112^^"
^DD(361.1,1.03,21,1,0)="This is the amount as reported by the payer."
^DD(361.1,1.03,23,0)="^^1^1^2990112^^"
^DD(361.1,1.03,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='AU') or from manual entry of the amount"
^DD(361.1,1.03,"DT")="2981006"
^DD(361.1,1.04,0)="DISCOUNT AMT^NJ13,2^^1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,1.04,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,1.04,21,0)="^^1^1^2990112^^"
^DD(361.1,1.04,21,1,0)="This is the prompt pay discount amount as reported by the payer."
^DD(361.1,1.04,23,0)="^^1^1^2990112^^"
^DD(361.1,1.04,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='D8') or from manual entry of the amount"
^DD(361.1,1.04,"DT")="2981006"
^DD(361.1,1.05,0)="PER DAY LIMIT AMT^NJ13,2^^1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,1.05,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,1.05,21,0)="^^1^1^2990112^^"
^DD(361.1,1.05,21,1,0)="This is the amount as reported by the payer."
^DD(361.1,1.05,23,0)="^^1^1^2990112^^"
^DD(361.1,1.05,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='DY') or from manual entry of the amount"
^DD(361.1,1.05,"DT")="2981006"
^DD(361.1,1.07,0)="INTEREST AMT^NJ13,2^^1;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,1.07,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,1.07,21,0)="^^1^1^2990112^^"
^DD(361.1,1.07,21,1,0)="This is the amount as reported by the payer."
^DD(361.1,1.07,23,0)="^^1^1^2990112^^"
^DD(361.1,1.07,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='I') or from manual entry of the amount"
^DD(361.1,1.07,"DT")="2981006"
^DD(361.1,1.08,0)="TAX AMT^NJ13,2^^1;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,1.08,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,1.08,21,0)="^^1^1^2990112^^"
^DD(361.1,1.08,21,1,0)="This is the amount as reported by the payer."
^DD(361.1,1.08,23,0)="^^1^1^2990112^^"
^DD(361.1,1.08,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='T') or from manual entry of the amount"
^DD(361.1,1.08,"DT")="2981006"
^DD(361.1,1.09,0)="TOTAL BEFORE TAXES AMT^NJ13,2^^1;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,1.09,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,1.09,21,0)="^^1^1^2990112^^"
^DD(361.1,1.09,21,1,0)="This is the amount as reported by the payer."
^DD(361.1,1.09,23,0)="^^1^1^2990112^^"
^DD(361.1,1.09,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='T2') or from manual entry of the amount"
^DD(361.1,1.09,"DT")="2981006"
^DD(361.1,1.1,0)="STATEMENT START DATE^D^^1;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.1,1.1,3)="Enter the date the payer reported as the starting date of service."
^DD(361.1,1.1,21,0)="^^2^2^3040128^"
^DD(361.1,1.1,21,1,0)="This is the date the payer reported as the starting date of service for"
^DD(361.1,1.1,21,2,0)="the claim."
^DD(361.1,1.1,"DT")="3040128"
^DD(361.1,1.11,0)="STATEMENT END DATE^D^^1;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.1,1.11,3)="Enter the date the payer reported as the ending date of service."
^DD(361.1,1.11,21,0)="^^2^2^3040128^"
^DD(361.1,1.11,21,1,0)="This is the date the payer reported as the ending date of service for"
^DD(361.1,1.11,21,2,0)="the claim."
^DD(361.1,1.11,"DT")="3040128"
^DD(361.1,2.03,0)="TOTAL ALLOWED AMT^NJ13,2^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,2.03,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,2.03,21,0)="^^1^1^2990112^^"
^DD(361.1,2.03,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,2.03,23,0)="^^1^1^2990112^^"
^DD(361.1,2.03,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='B6')"
^DD(361.1,2.03,"DT")="2981006"
^DD(361.1,2.04,0)="TOTAL SUBMITTED CHARGES^NJ13,2^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,2.04,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,2.04,21,0)="^^1^1^2990112^^"
^DD(361.1,2.04,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,2.04,23,0)="^^1^1^2990112^^"
^DD(361.1,2.04,23,1,0)="This is the amount from the 835 data field (AMT-02/Qualifier='T3')"
^DD(361.1,2.04,"DT")="2981006"
^DD(361.1,2.05,0)="NEGATIVE REIMBURSEMENT AMT^NJ13,2^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999)!(X<-9999999999)!(X?.E1"".""3.N) X"
^DD(361.1,2.05,3)="Type a Dollar amount between -9999999999 and 9999999999, 2 Decimal Digits"
^DD(361.1,2.05,21,0)="^^2^2^2990202^^"
^DD(361.1,2.05,21,1,0)="This is the amount of negative reimbursement on a claim as reported by"
^DD(361.1,2.05,21,2,0)="MEDICARE."
^DD(361.1,2.05,23,0)="^^2^2^2990202^^"
^DD(361.1,2.05,23,1,0)="This data can be found on the electronic EOB (835) in the AMT-02 (qualifier"
^DD(361.1,2.05,23,2,0)="'NL') data element."
^DD(361.1,2.05,"DT")="3030815"
^DD(361.1,3.01,0)="M-CARE OUTP REIMBURS. RATE^NJ6,4^^3;1^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""5.N) X"
^DD(361.1,3.01,3)="Type a number between 0 and 1, 4 Decimal Digits"
^DD(361.1,3.01,21,0)="^^1^1^3030625^"
^DD(361.1,3.01,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.01,23,0)="^^1^1^3030625^"
^DD(361.1,3.01,23,1,0)="This is the amount from the 835 data field (MOA-01)"
^DD(361.1,3.01,"DT")="3030625"
^DD(361.1,3.02,0)="M-CARE OUTP HCPCS PAYMNT AMT^NJ13,2^^3;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,3.02,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,3.02,21,0)="^^1^1^2990112^^^"
^DD(361.1,3.02,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.02,23,0)="^^1^1^2990112^^"
^DD(361.1,3.02,23,1,0)="This is the amount from the 835 data field (MOA-02)"
^DD(361.1,3.02,"DT")="2981006"
^DD(361.1,3.03,0)="M-CARE OUTP REMARKS CODE-1^F^^3;3^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,3.03,3)="Answer must be 1-10 characters in length."
^DD(361.1,3.03,21,0)="^^1^1^2990112^^"
^DD(361.1,3.03,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.03,23,0)="^^1^1^2990112^^"
^DD(361.1,3.03,23,1,0)="This is the amount from the 835 data field (MOA-03)"
^DD(361.1,3.03,"DT")="2981006"
^DD(361.1,3.04,0)="M-CARE OUTP REMARKS CODE-2^F^^3;4^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,3.04,3)="Answer must be 1-10 characters in length."
^DD(361.1,3.04,21,0)="^^1^1^2990112^^"
^DD(361.1,3.04,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.04,23,0)="^^1^1^2990112^^"
^DD(361.1,3.04,23,1,0)="This is the amount from the 835 data field (MOA-04)"
^DD(361.1,3.04,"DT")="2981006"
^DD(361.1,3.05,0)="M-CARE OUTP REMARKS CODE-3^F^^3;5^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,3.05,3)="Answer must be 1-10 characters in length."
^DD(361.1,3.05,21,0)="^^1^1^2990112^^"
^DD(361.1,3.05,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.05,23,0)="^^1^1^2990112^^"
^DD(361.1,3.05,23,1,0)="This is the amount from the 835 data field (MOA-05)"
^DD(361.1,3.05,"DT")="2981006"
^DD(361.1,3.06,0)="M-CARE OUTP REMARKS CODE-4^F^^3;6^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,3.06,3)="Answer must be 1-10 characters in length."
^DD(361.1,3.06,21,0)="^^1^1^2990112^^"
^DD(361.1,3.06,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.06,23,0)="^^1^1^2990112^^"
^DD(361.1,3.06,23,1,0)="This is the amount from the 835 data field (MOA-06)"
^DD(361.1,3.06,"DT")="2981006"
^DD(361.1,3.07,0)="M-CARE OUTP REMARKS CODE-5^F^^3;7^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,3.07,3)="Answer must be 1-10 characters in length."
^DD(361.1,3.07,21,0)="^^1^1^2990112^^"
^DD(361.1,3.07,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.07,23,0)="^^1^1^2990112^^"
^DD(361.1,3.07,23,1,0)="This is the amount from the 835 data field (MOA-07)"
^DD(361.1,3.07,"DT")="2981006"
^DD(361.1,3.08,0)="M-CARE ESRD PAID AMT^NJ13,2^^3;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,3.08,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,3.08,21,0)="^^1^1^2990112^^"
^DD(361.1,3.08,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.08,23,0)="^^1^1^2990112^"
^DD(361.1,3.08,23,1,0)="This is the amount from the 835 data field (MOA-08)"
^DD(361.1,3.08,"DT")="2990112"
^DD(361.1,3.09,0)="M-CARE NON-PAYABLE PROF COMP^NJ13,2^^3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,3.09,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,3.09,21,0)="^^1^1^2990112^^^"
^DD(361.1,3.09,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,3.09,23,0)="^^1^1^2990112^^^"
^DD(361.1,3.09,23,1,0)="This is the amount from the 835 data field (MOA-09)"
^DD(361.1,3.09,"DT")="2990112"
^DD(361.1,4.01,0)="M-CARE INP COV. DAYS/VISIT CT^NJ4,0^^4;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(361.1,4.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(361.1,4.01,21,0)="^.001^1^1^3010412^^"
^DD(361.1,4.01,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.01,23,0)="^.001^1^1^3010412^^^"
^DD(361.1,4.01,23,1,0)="This is the amount from the 835 data field (MIA-01)"
^DD(361.1,4.01,"DT")="2981006"
^DD(361.1,4.02,0)="M-CARE INP LIFETM PSYCH DY CT^NJ4,0^^4;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(361.1,4.02,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(361.1,4.02,21,0)="^^1^1^2990112^"
^DD(361.1,4.02,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.02,23,0)="^^1^1^2990112^"
^DD(361.1,4.02,23,1,0)="This is the amount from the 835 data field (MIA-03)"
^DD(361.1,4.02,"DT")="2981006"
^DD(361.1,4.03,0)="M-CARE INP CLAIM DRG AMT^NJ13,2^^4;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.03,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.03,21,0)="^^1^1^2990112^"
^DD(361.1,4.03,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.03,23,0)="^^1^1^2990112^"
^DD(361.1,4.03,23,1,0)="This is the amount from the 835 data field (MIA-04)"
^DD(361.1,4.03,"DT")="2981006"
^DD(361.1,4.04,0)="M-CARE INP CAP EXCEPTION AMT^NJ13,2^^4;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.04,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.04,21,0)="^^1^1^2990112^^"
^DD(361.1,4.04,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.04,23,0)="^^1^1^2990112^^"
^DD(361.1,4.04,23,1,0)="This is the amount from the 835 data field (MIA-24)"
^DD(361.1,4.04,"DT")="2981006"
^DD(361.1,4.05,0)="M-CARE INP DISPROP. SHARE AMT^NJ13,2^^4;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.05,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.05,21,0)="^^1^1^2990112^^"
^DD(361.1,4.05,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.05,23,0)="^^1^1^2990112^^"
^DD(361.1,4.05,23,1,0)="This is the amount from the 835 data field (MIA-06)"
^DD(361.1,4.05,"DT")="2981006"
^DD(361.1,4.06,0)="M-CARE INP MSP PASS THRU AMT^NJ13,2^^4;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.06,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.06,21,0)="^^1^1^2990112^^"
^DD(361.1,4.06,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.06,23,0)="^^1^1^2990112^^"
^DD(361.1,4.06,23,1,0)="MIA-07"
^DD(361.1,4.06,"DT")="2981006"
^DD(361.1,4.07,0)="M-CARE INP PPS CAPITAL AMT^NJ13,2^^4;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.07,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.07,21,0)="^^1^1^2990112^^"
^DD(361.1,4.07,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.07,23,0)="^^1^1^2990112^^"
^DD(361.1,4.07,23,1,0)="This is the amount from the 835 data field (MIA-08)"
^DD(361.1,4.07,"DT")="2981006"
^DD(361.1,4.08,0)="M-CARE INP PPS CAP FSP-DRG AMT^NJ13,2^^4;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.08,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.08,21,0)="^^1^1^2990112^^"
^DD(361.1,4.08,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.08,23,0)="^^1^1^2990112^^"
^DD(361.1,4.08,23,1,0)="This is the amount from the 835 data field (MIA-09)"
^DD(361.1,4.08,"DT")="2981006"
^DD(361.1,4.09,0)="M-CARE INP PPS CAP HSP-DRG AMT^NJ13,2^^4;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.09,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.09,21,0)="^^1^1^2990112^^"
^DD(361.1,4.09,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.09,23,0)="^^1^1^2990112^^"
^DD(361.1,4.09,23,1,0)="This is the amount from the 835 data field (MIA-10)"
^DD(361.1,4.09,"DT")="2981006"
^DD(361.1,4.1,0)="M-CARE INP PPS CAP DSH-DRG AMT^NJ13,2^^4;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.1,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.1,21,0)="^^1^1^2990112^^"
^DD(361.1,4.1,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.1,23,0)="^^1^1^2990112^^"
^DD(361.1,4.1,23,1,0)="This is the amount from the 835 data field (MIA-11)"
^DD(361.1,4.1,"DT")="2981006"
^DD(361.1,4.11,0)="M-CARE INP OLD CAPITAL AMT^NJ13,2^^4;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.11,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.11,21,0)="^^1^1^2990112^^"
^DD(361.1,4.11,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.11,23,0)="^^1^1^2990112^^"
^DD(361.1,4.11,23,1,0)="This is the amount from the 835 data field (MIA-12)"
^DD(361.1,4.11,"DT")="2981006"
^DD(361.1,4.12,0)="M-CARE INP PPS CAPITAL IME AMT^NJ13,2^^4;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.12,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.12,21,0)="^^1^1^2990112^^"
^DD(361.1,4.12,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.12,23,0)="^^1^1^2990112^^"
^DD(361.1,4.12,23,1,0)="This is the amount from the 835 data field (MIA-13)"
^DD(361.1,4.12,"DT")="2981006"
^DD(361.1,4.13,0)="M-CARE INP PPS OP HOS DRG AMT^NJ13,2^^4;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.13,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.13,21,0)="^^1^1^2990112^^"
^DD(361.1,4.13,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.13,23,0)="^^1^1^2990112^^"
^DD(361.1,4.13,23,1,0)="This is the amount from the 835 data field (MIA-14)"
^DD(361.1,4.13,"DT")="2981006"
^DD(361.1,4.14,0)="M-CARE INP COST REPORT DAY CT^NJ3,0^^4;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(361.1,4.14,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(361.1,4.14,21,0)="^^1^1^2990112^^"
^DD(361.1,4.14,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.14,23,0)="^^1^1^2990112^^"
^DD(361.1,4.14,23,1,0)="This is the amount from the 835 data field (MIA-15)"
^DD(361.1,4.14,"DT")="2981006"
^DD(361.1,4.15,0)="M-CARE INP PPS OP FED DRG AMT^NJ13,2^^4;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.15,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.15,21,0)="^^1^1^2990112^^"
^DD(361.1,4.15,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.15,23,0)="^^1^1^2990112^^"
^DD(361.1,4.15,23,1,0)="This is the amount from the 835 data field (MIA-16)"
^DD(361.1,4.15,"DT")="2981006"
^DD(361.1,4.16,0)="M-CARE INP PPS CAP OUTLIER AMT^NJ13,2^^4;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.16,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.16,21,0)="^^1^1^2990112^^"
^DD(361.1,4.16,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.16,23,0)="^^1^1^2990112^^"
^DD(361.1,4.16,23,1,0)="This is the amount from the 835 data field (MIA-17)"
^DD(361.1,4.16,"DT")="2981006"
^DD(361.1,4.17,0)="M-CARE INP INDIRECT TEACH AMT^NJ13,2^^4;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.17,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.17,21,0)="^^1^1^2990112^^"
^DD(361.1,4.17,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.17,23,0)="^^1^1^2990112^^"
^DD(361.1,4.17,23,1,0)="This is the amount from the 835 data field (MIA-18)"
^DD(361.1,4.17,"DT")="2981006"
^DD(361.1,4.18,0)="M-CARE INP NON-PAY PROF COMP^NJ13,2^^4;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.1,4.18,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.1,4.18,21,0)="^^1^1^2990112^^"
^DD(361.1,4.18,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,4.18,23,0)="^^1^1^2990112^^"
^DD(361.1,4.18,23,1,0)="This is the amount from the 835 data field (MIA-19)"
^DD(361.1,4.18,"DT")="2981006"
^DD(361.1,4.19,0)="MEDICARE NON-COVERED DAYS^NJ4,0^^4;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(361.1,4.19,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(361.1,4.19,21,0)="^^1^1^3010412^"
^DD(361.1,4.19,21,1,0)="This is a data element from a MEDICARE electronic remittance advice"
^DD(361.1,4.19,23,0)="^^1^1^3010412^"
^DD(361.1,4.19,23,1,0)="This is the amount from the 835 data field (QTY with qualifier 'NA')"
^DD(361.1,4.19,"DT")="3010412"
^DD(361.1,5.01,0)="M-CARE INP PYMNT REMARK CODE-1^F^^5;1^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,5.01,3)="Answer must be 1-10 characters in length."
^DD(361.1,5.01,21,0)="^^1^1^2990112^^"
^DD(361.1,5.01,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,5.01,23,0)="^^1^1^2990112^^"
^DD(361.1,5.01,23,1,0)="This is the amount from the 835 data field (MIA-05)"
^DD(361.1,5.01,"DT")="2981006"
^DD(361.1,5.011,0)="REMARK CODE-1 SHORT TEXT^F^^RM1;1^K:$L(X)>190!($L(X)<1) X"
^DD(361.1,5.011,3)="Answer must be 1-190 characters in length."
^DD(361.1,5.011,21,0)="^^2^2^2990303^^^"
^DD(361.1,5.011,21,1,0)="This is the abbreviated text for remark code # 1, if available"
^DD(361.1,5.011,21,2,0)="This applies to EITHER inpatient or outpatient remark codes from MEDICARE."
^DD(361.1,5.011,"DT")="2990205"
^DD(361.1,5.02,0)="M-CARE INP PYMNT REMARK CODE-2^F^^5;2^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,5.02,3)="Answer must be 1-10 characters in length."
^DD(361.1,5.02,21,0)="^^1^1^2990112^^"
^DD(361.1,5.02,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,5.02,23,0)="^^1^1^2990112^^"
^DD(361.1,5.02,23,1,0)="This is the amount from the 835 data field (MIA-20)"
^DD(361.1,5.02,"DT")="2981006"
^DD(361.1,5.021,0)="REMARK CODE-2 SHORT TEXT^F^^RM2;1^K:$L(X)>190!($L(X)<1) X"
^DD(361.1,5.021,3)="Answer must be 1-190 characters in length."
^DD(361.1,5.021,21,0)="^^2^2^2990303^^"
^DD(361.1,5.021,21,1,0)="This is the abbreviated text for remark code # 2, if available"
^DD(361.1,5.021,21,2,0)="This applies to EITHER inpatient or outpatient remark codes from MEDICARE."
^DD(361.1,5.021,"DT")="2990205"
^DD(361.1,5.03,0)="M-CARE INP PYMNT REMARK CODE-3^F^^5;3^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,5.03,3)="Answer must be 1-10 characters in length."
^DD(361.1,5.03,21,0)="^^1^1^2990112^^"
^DD(361.1,5.03,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,5.03,23,0)="^^1^1^2990112^^"
^DD(361.1,5.03,23,1,0)="This is the amount from the 835 data field (MIA-21)"
^DD(361.1,5.03,"DT")="2981006"
^DD(361.1,5.031,0)="REMARK CODE-3 SHORT TEXT^F^^RM3;1^K:$L(X)>190!($L(X)<1) X"
^DD(361.1,5.031,3)="Answer must be 1-190 characters in length."
^DD(361.1,5.031,21,0)="^^2^2^2990303^^"
^DD(361.1,5.031,21,1,0)="This is the abbreviated text for remark code # 3, if available"
^DD(361.1,5.031,21,2,0)="This applies to EITHER inpatient or outpatient remark codes from MEDICARE."
^DD(361.1,5.031,"DT")="2990205"
^DD(361.1,5.04,0)="M-CARE INP PYMNT REMARK CODE-4^F^^5;4^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,5.04,3)="Answer must be 1-10 characters in length."
^DD(361.1,5.04,21,0)="^^1^1^2990112^^"
^DD(361.1,5.04,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,5.04,23,0)="^^1^1^2990112^^"
^DD(361.1,5.04,23,1,0)="This is the amount from the 835 data field (MIA-22)"
^DD(361.1,5.04,"DT")="2981006"
^DD(361.1,5.041,0)="REMARK CODE-4 SHORT TEXT^F^^RM4;1^K:$L(X)>190!($L(X)<1) X"
^DD(361.1,5.041,3)="Answer must be 1-190 characters in length."
^DD(361.1,5.041,21,0)="^^2^2^2990303^^^"
^DD(361.1,5.041,21,1,0)="This is the abbreviated text for remark code # 4, if available"
^DD(361.1,5.041,21,2,0)="This applies to EITHER inpatient or outpatient remark codes from MEDICARE."
^DD(361.1,5.041,"DT")="2990205"
^DD(361.1,5.05,0)="M-CARE INP PYMNT REMARK CODE-5^F^^5;5^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,5.05,3)="Answer must be 1-10 characters in length."
^DD(361.1,5.05,21,0)="^^1^1^2990112^^"
^DD(361.1,5.05,21,1,0)="This is a data element from a MEDICARE electronic remittance advice."
^DD(361.1,5.05,23,0)="^^1^1^2990112^^"
^DD(361.1,5.05,23,1,0)="This is the amount from the 835 data field (MIA-23)"
^DD(361.1,5.05,"DT")="2981006"
^DD(361.1,5.051,0)="REMARK CODE-5 SHORT TEXT^F^^RM5;1^K:$L(X)>190!($L(X)<1) X"
^DD(361.1,5.051,3)="Answer must be 1-190 characters in length."
^DD(361.1,5.051,21,0)="^^2^2^2990303^^^"
^DD(361.1,5.051,21,1,0)="This is the abbreviated text for remark code # 5, if available"
^DD(361.1,5.051,21,2,0)="This applies to EITHER inpatient or outpatient remark codes from MEDICARE."
^DD(361.1,5.051,"DT")="2990205"
^DD(361.1,6.01,0)="NEW PATIENT NAME^F^^6;1^K:$L(X)>30!($L(X)<1) X"
^DD(361.1,6.01,3)="Answer must be 1-30 characters in length."
^DD(361.1,6.01,21,0)="^^1^1^2990208^"
^DD(361.1,6.01,21,1,0)="This is the 'new' patient name as reported on the electronic EOB."
^DD(361.1,6.01,"DT")="2990208"
^DD(361.1,6.02,0)="NEW PATIENT ID^F^^6;2^K:$L(X)>20!($L(X)<1) X"
^DD(361.1,6.02,3)="Answer must be 1-20 characters in length."
^DD(361.1,6.02,21,0)="^^1^1^2990208^"
^DD(361.1,6.02,21,1,0)="This is the 'new' patient ID as reported on the electronic EOB."
^DD(361.1,6.02,"DT")="2990208"
^DD(361.1,6.03,0)="CORRECTED DATA MESSAGE^F^^6;3^K:$L(X)>190!($L(X)<1) X"
^DD(361.1,6.03,3)="Answer must be 1-190 characters in length"
^DD(361.1,6.03,21,0)="^^5^5^3080116^"
^DD(361.1,6.03,21,1,0)="This is a free text message describing the results of the processing of "
^DD(361.1,6.03,21,2,0)="the ""06"" record type on the incoming 835 transmission.  The ""06"" record "
^DD(361.1,6.03,21,3,0)="type is where the payer can send back the corrected patient name and/or "
^DD(361.1,6.03,21,4,0)="the corrected patient ID#.  VistA will accept this information and "
^DD(361.1,6.03,21,5,0)="attempt to the update the patient insurance files with this data."
^DD(361.1,6.03,"DT")="3080116"
^DD(361.1,7.01,0)="TRANSFERRED IN^F^^7;1^K:$L(X)>64!($L(X)<1) X"
^DD(361.1,7.01,3)="Answer must be 1-64 characters in length."
^DD(361.1,7.01,21,0)="^.001^1^1^3030313^^"
^DD(361.1,7.01,21,1,0)="This is the site that this EOB was transferred into this site from."
^DD(361.1,7.01,"DT")="3030113"
^DD(361.1,8,0)="AR AMOUNTS DISTRIBUTION^361.18A^^8;0"
^DD(361.1,8,21,0)="^^2^2^3030313^"
^DD(361.1,8,21,1,0)="This is the list of bills that AR has determined will apply to this ERA "
^DD(361.1,8,21,2,0)="along with the amount that was paid/retracted."
^DD(361.1,10,0)="835 CLAIM LEVEL ADJUSTMENTS^361.11S^^10;0"
^DD(361.1,10,21,0)="^^2^2^2990202^^^^"
^DD(361.1,10,21,1,0)="This is the list of claim level adjustments, including general category"
^DD(361.1,10,21,2,0)="of adjustment, reason code, amount and quantity."
^DD(361.1,10,23,0)="^^2^2^2990202^^^^"
^DD(361.1,10,23,1,0)="This data is received from the EOB on the 835 data segment 'CAS'"
^DD(361.1,10,23,2,0)="on a claim level basis."
^DD(361.1,10,"DT")="2981006"
^DD(361.1,15,0)="835 LINE LEVEL ADJUSTMENTS^361.115A^^15;0"
^DD(361.1,15,21,0)="^^2^2^2990202^^^"
^DD(361.1,15,21,1,0)="This is the list of line level adjustments, including general category"
^DD(361.1,15,21,2,0)="of adjustment, reason code, amount and quantity."
^DD(361.1,15,23,0)="^^2^2^2990202^^^^"
^DD(361.1,15,23,1,0)="This data is received from the EOB on the 835 data segment 'CAS'"
^DD(361.1,15,23,2,0)="on a line level basis."
^DD(361.1,20,0)="MESSAGE STORAGE ERRORS^361.12^^ERR;0"
^DD(361.1,21,0)="REVIEW DATE/TIME^361.121DA^^21;0"
^DD(361.1,21,"DT")="2990825"
^DD(361.1,25.01,0)="PAYER CONTACT NAME^F^^25;1^K:$L(X)>30!($L(X)<1) X"
^DD(361.1,25.01,3)="Answer must be 1-30 characters in length."
^DD(361.1,25.01,21,0)="^^2^2^3030324^"
^DD(361.1,25.01,21,1,0)="This is the name of the contact the payer has provided for questions"
^DD(361.1,25.01,21,2,0)="concerning this particular claim's adjudication."
^DD(361.1,25.01,"DT")="3030324"
^DD(361.1,25.02,0)="CONTACT NUMBER 1^F^^25;2^K:$L(X)>30!($L(X)<1) X"
^DD(361.1,25.02,3)="Answer must be 1-30 characters in length."
^DD(361.1,25.02,21,0)="^^1^1^3030324^"
^DD(361.1,25.02,21,1,0)="This is a phone #/telephone extension or email address for the contact."
^DD(361.1,25.02,"DT")="3030324"
^DD(361.1,25.03,0)="CONTACT TYPE 1^S^EM:E-MAIL;FX:FAX;TE:TELEPHONE;EX:TELEPHONE EXTENSION;^25;3^Q"
^DD(361.1,25.03,3)="Enter the code for the type of contact information."
^DD(361.1,25.03,21,0)="^.001^2^2^3030324^^"
^DD(361.1,25.03,21,1,0)="This is the code that describes the type of contact information provided in"
^DD(361.1,25.03,21,2,0)="the CONTACT NUMBER 1 field."
^DD(361.1,25.03,"DT")="3030324"
^DD(361.1,25.04,0)="CONTACT NUMBER 2^F^^25;4^K:$L(X)>30!($L(X)<1) X"
^DD(361.1,25.04,3)="Answer must be 1-30 characters in length."
^DD(361.1,25.04,21,0)="^^1^1^3030324^"
^DD(361.1,25.04,21,1,0)="This is a phone #/telephone extension or email address for the contact."
^DD(361.1,25.04,"DT")="3030324"
^DD(361.1,25.05,0)="CONTACT TYPE 2^S^EM:E-MAIL;FX:FAX;TE:TELEPHONE;EX:TELEPHONE EXTENSION;^25;5^Q"
^DD(361.1,25.05,3)="Enter the code for the type of contact information."
^DD(361.1,25.05,21,0)="^^2^2^3030324^"
^DD(361.1,25.05,21,1,0)="This is the code that describes the type of contact information provided in"
^DD(361.1,25.05,21,2,0)="the CONTACT NUMBER 2 field."
^DD(361.1,25.05,"DT")="3030324"
^DD(361.1,25.06,0)="CONTACT NUMBER 3^F^^25;6^K:$L(X)>30!($L(X)<1) X"
^DD(361.1,25.06,3)="Answer must be 1-30 characters in length."
^DD(361.1,25.06,21,0)="^^1^1^3030324^"
^DD(361.1,25.06,21,1,0)="This is a phone #/telephone extension or email address for the contact."
^DD(361.1,25.06,"DT")="3030324"
^DD(361.1,25.07,0)="CONTACT TYPE 3^S^EM:E-MAIL;FX:FAX;TE:TELEPHONE;EX:TELEPHONE EXTENSION;^25;7^Q"
^DD(361.1,25.07,3)="Enter the code for the type of contact information."
^DD(361.1,25.07,21,0)="^^2^2^3030324^"
^DD(361.1,25.07,21,1,0)="This is the code that describes the type of contact information provided in"
^DD(361.1,25.07,21,2,0)="the CONTACT NUMBER 3 field."
^DD(361.1,25.07,"DT")="3030324"
^DD(361.1,30.01,0)="AUTO BILL MESSAGE^F^^30;1^K:$L(X)>200!($L(X)<2) X"
^DD(361.1,30.01,3)="Answer must be 2-200 characters in length"
^DD(361.1,30.01,21,0)="^^3^3^3030515^"
^DD(361.1,30.01,21,1,0)="This field contains reason messages or error messages that"
^DD(361.1,30.01,21,2,0)="describe why this EOB record was not automatically turned into"
^DD(361.1,30.01,21,3,0)="a secondary or tertiary bill."
^DD(361.1,30.01,"DT")="3030515"
^DD(361.1,30.02,0)="AUTO BILL MESSAGE DATE/TIME^D^^30;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(361.1,30.02,21,0)="^^2^2^3030515^"
^DD(361.1,30.02,21,1,0)="This is the date/time that the automatic bill generation"
^DD(361.1,30.02,21,2,0)="failure message was filed."
^DD(361.1,30.02,"DT")="3030515"
^DD(361.1,61.01,0)="ORIGINAL 06 RECORD DATA^F^^6.1;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(361.1,61.01,3)="Answer must be 1-200 characters in length"
^DD(361.1,61.01,21,0)="^^3^3^3080117^"
^DD(361.1,61.01,21,1,0)="This field contains the original ""06"" record type on the 835 transmission "
^DD(361.1,61.01,21,2,0)="from Austin.  It contains the corrected patient name and/or the corrected "
^DD(361.1,61.01,21,3,0)="patient ID directly from the payer."
^DD(361.1,61.01,"DT")="3080117"
^DD(361.1,62.01,0)="MAILMAN HEADER INFORMATION^F^^6.2;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(361.1,62.01,3)="Answer must be 1-200 characters in length"
^DD(361.1,62.01,21,0)="^^2^2^3080117^"
^DD(361.1,62.01,21,1,0)="This field contains MailMan header data which is returned from the "
^DD(361.1,62.01,21,2,0)="MailMan utility $$NET^XMRENT."
^DD(361.1,62.01,"DT")="3080117"
^DD(361.1,100.01,0)="BATCH NUMBER^P364.1'^IBA(364.1,^100;1^Q"
^DD(361.1,100.01,1,0)="^.1^^0"
^DD(361.1,100.01,3)="Enter the batch number the bill was in when the EOB was received"
^DD(361.1,100.01,21,0)="^^2^2^2990211^"
^DD(361.1,100.01,21,1,0)="This is the number of the batch the bill was in when the EOB message was"
^DD(361.1,100.01,21,2,0)="received."
^DD(361.1,100.01,"DT")="2990708"
^DD(361.1,100.02,0)="RETURN MESSAGE ID^F^^100;2^K:$L(X)>20!($L(X)<1) X"
^DD(361.1,100.02,1,0)="^.1"
^DD(361.1,100.02,1,1,0)="361.1^AC"
^DD(361.1,100.02,1,1,1)="S ^IBM(361.1,""AC"",$E(X,1,30),DA)="""""
^DD(361.1,100.02,1,1,2)="K ^IBM(361.1,""AC"",$E(X,1,30),DA)"
^DD(361.1,100.02,1,1,3)="Please do not delete"
^DD(361.1,100.02,1,1,"%D",0)="^^1^1^2990211^^"
^DD(361.1,100.02,1,1,"%D",1,0)="Used to assure messages only update this file once."
^DD(361.1,100.02,1,1,"DT")="2990211"
^DD(361.1,100.02,3)="Answer must be 1-20 characters in length."
^DD(361.1,100.02,21,0)="^^3^3^2990211^"
^DD(361.1,100.02,21,1,0)="This is the ID of the return message that this EOB was delivered in.  It is"
^DD(361.1,100.02,21,2,0)="used to ensure these EOB messages don't get added to this file more than"
^DD(361.1,100.02,21,3,0)="once."
^DD(361.1,100.02,"DT")="2990211"
^DD(361.1,100.03,0)="LAST EDITED BY^P200'^VA(200,^100;3^Q"
^DD(361.1,100.03,3)="Enter the name of the person who last edited this EOB record."
^DD(361.1,100.03,5,1,0)="361.1^.16^2"
^DD(361.1,100.03,21,0)="^^1^1^2990528^"
^DD(361.1,100.03,21,1,0)="This is the name of the person who last edited this EOB record."
^DD(361.1,100.03,"DT")="2990528"
^DD(361.1,100.04,0)="LAST EDITED DATE^D^^100;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(361.1,100.04,3)="Enter the last date/time this EOB record was edited."
^DD(361.1,100.04,5,1,0)="361.1^.16^3"
^DD(361.1,100.04,21,0)="^^1^1^2990528^"
^DD(361.1,100.04,21,1,0)="This is the last date/time this EOB record was edited."
^DD(361.1,100.04,"DT")="2990528"
^DD(361.1,100.05,0)="MESSAGE CHECKSUM^F^^100;5^K:$L(X)>10!($L(X)<1) X"
^DD(361.1,100.05,3)="Answer must be 1-10 characters in length."
^DD(361.1,100.05,21,0)="^.001^7^7^3030618^^^^"
^DD(361.1,100.05,21,1,0)="This field contains the calculated checksum value of the X12"
^DD(361.1,100.05,21,2,0)="835 transaction data from the payer.  It is a unique number"
^DD(361.1,100.05,21,3,0)="which is mathematically generated based on the actual data in"
^DD(361.1,100.05,21,4,0)="the 835 flat file received from Austin."
^DD(361.1,100.05,21,5,0)=" "
^DD(361.1,100.05,21,6,0)="This number will be used to identify and eliminate duplicate"
^DD(361.1,100.05,21,7,0)="835 transmissions into VistA."
^DD(361.1,100.05,23,0)="^.001^1^1^3030618^^^^"
^DD(361.1,100.05,23,1,0)="This field should not be set manually."
^DD(361.1,100.05,"DT")="3030508"
^DD(361.1,"B","835 CLAIM LEVEL ADJUSTMENTS",10)=""
^DD(361.1,"B","835 LINE LEVEL ADJUSTMENTS",15)=""
^DD(361.1,"B","AR AMOUNTS DISTRIBUTION",8)=""
^DD(361.1,"B","AUTO BILL MESSAGE",30.01)=""
^DD(361.1,"B","AUTO BILL MESSAGE DATE/TIME",30.02)=""
^DD(361.1,"B","BATCH NUMBER",100.01)=""
^DD(361.1,"B","BILL",.01)=""
^DD(361.1,"B","CLAIM STATUS",.13)=""
^DD(361.1,"B","CLAIM STATUS CODE",.21)=""
^DD(361.1,"B","CONTACT NUMBER 1",25.02)=""
^DD(361.1,"B","CONTACT NUMBER 2",25.04)=""
^DD(361.1,"B","CONTACT NUMBER 3",25.06)=""
^DD(361.1,"B","CONTACT TYPE 1",25.03)=""
^DD(361.1,"B","CONTACT TYPE 2",25.05)=""
^DD(361.1,"B","CONTACT TYPE 3",25.07)=""
^DD(361.1,"B","CORRECTED DATA MESSAGE",6.03)=""
^DD(361.1,"B","COVERED AMT",1.03)=""
^DD(361.1,"B","CROSSED OVER ID",.09)=""
^DD(361.1,"B","CROSSED OVER NAME",.08)=""
^DD(361.1,"B","DISCHARGE FRACTION",.12)=""
^DD(361.1,"B","DISCOUNT AMT",1.04)=""
^DD(361.1,"B","DRG CODE USED",.1)=""
^DD(361.1,"B","DRG WEIGHT USED",.11)=""
^DD(361.1,"B","ENTRY DATE/TIME",.05)=""
^DD(361.1,"B","EOB PAID DATE",.06)=""
^DD(361.1,"B","EOB TYPE",.04)=""
^DD(361.1,"B","FINAL REVIEW ACTION",.2)=""
^DD(361.1,"B","ICN",.14)=""
^DD(361.1,"B","INSURANCE SEQUENCE",.15)=""
^DD(361.1,"B","INTEREST AMT",1.07)=""
^DD(361.1,"B","LAST EDITED BY",100.03)=""
^DD(361.1,"B","LAST EDITED DATE",100.04)=""
^DD(361.1,"B","M-CARE ESRD PAID AMT",3.08)=""
^DD(361.1,"B","M-CARE INP CAP EXCEPTION AMT",4.04)=""
^DD(361.1,"B","M-CARE INP CLAIM DRG AMT",4.03)=""
^DD(361.1,"B","M-CARE INP COST REPORT DAY CT",4.14)=""
^DD(361.1,"B","M-CARE INP COV. DAYS/VISIT CT",4.01)=""
^DD(361.1,"B","M-CARE INP DISPROP. SHARE AMT",4.05)=""
^DD(361.1,"B","M-CARE INP INDIRECT TEACH AMT",4.17)=""
^DD(361.1,"B","M-CARE INP LIFETM PSYCH DY CT",4.02)=""
^DD(361.1,"B","M-CARE INP MSP PASS THRU AMT",4.06)=""
^DD(361.1,"B","M-CARE INP NON-PAY PROF COMP",4.18)=""
^DD(361.1,"B","M-CARE INP OLD CAPITAL AMT",4.11)=""
^DD(361.1,"B","M-CARE INP PPS CAP DSH-DRG AMT",4.1)=""
^DD(361.1,"B","M-CARE INP PPS CAP FSP-DRG AMT",4.08)=""
^DD(361.1,"B","M-CARE INP PPS CAP HSP-DRG AMT",4.09)=""
^DD(361.1,"B","M-CARE INP PPS CAP OUTLIER AMT",4.16)=""
^DD(361.1,"B","M-CARE INP PPS CAPITAL AMT",4.07)=""
^DD(361.1,"B","M-CARE INP PPS CAPITAL IME AMT",4.12)=""
^DD(361.1,"B","M-CARE INP PPS OP FED DRG AMT",4.15)=""
^DD(361.1,"B","M-CARE INP PPS OP HOS DRG AMT",4.13)=""
^DD(361.1,"B","M-CARE INP PYMNT REMARK CODE-1",5.01)=""
^DD(361.1,"B","M-CARE INP PYMNT REMARK CODE-2",5.02)=""
^DD(361.1,"B","M-CARE INP PYMNT REMARK CODE-3",5.03)=""
^DD(361.1,"B","M-CARE INP PYMNT REMARK CODE-4",5.04)=""
^DD(361.1,"B","M-CARE INP PYMNT REMARK CODE-5",5.05)=""
^DD(361.1,"B","M-CARE NON-PAYABLE PROF COMP",3.09)=""
^DD(361.1,"B","M-CARE OUTP HCPCS PAYMNT AMT",3.02)=""
^DD(361.1,"B","M-CARE OUTP REIMBURS. RATE",3.01)=""
^DD(361.1,"B","M-CARE OUTP REMARKS CODE-1",3.03)=""
^DD(361.1,"B","M-CARE OUTP REMARKS CODE-2",3.04)=""
^DD(361.1,"B","M-CARE OUTP REMARKS CODE-3",3.05)=""
^DD(361.1,"B","M-CARE OUTP REMARKS CODE-4",3.06)=""
^DD(361.1,"B","M-CARE OUTP REMARKS CODE-5",3.07)=""
^DD(361.1,"B","MAILMAN HEADER INFORMATION",62.01)=""
^DD(361.1,"B","MANUAL ENTRY?",.17)=""
^DD(361.1,"B","MANUALLY ENTERED BY",.18)=""
^DD(361.1,"B","MEDICARE NON-COVERED DAYS",4.19)=""
^DD(361.1,"B","MESSAGE CHECKSUM",100.05)=""
^DD(361.1,"B","MESSAGE STORAGE ERRORS",20)=""
^DD(361.1,"B","NEGATIVE REIMBURSEMENT AMT",2.05)=""
^DD(361.1,"B","NEW PATIENT ID",6.02)=""
^DD(361.1,"B","NEW PATIENT NAME",6.01)=""
^DD(361.1,"B","ORIGINAL 06 RECORD DATA",61.01)=""
^DD(361.1,"B","PATIENT RESPONSIBILITY AMT",1.02)=""
^DD(361.1,"B","PAYER CONTACT NAME",25.01)=""
^DD(361.1,"B","PAYER ID",.03)=""
^DD(361.1,"B","PAYER NAME",.02)=""
^DD(361.1,"B","PAYER PAID AMT",1.01)=""
^DD(361.1,"B","PER DAY LIMIT AMT",1.05)=""
^DD(361.1,"B","REMARK CODE-1 SHORT TEXT",5.011)=""
^DD(361.1,"B","REMARK CODE-2 SHORT TEXT",5.021)=""
^DD(361.1,"B","REMARK CODE-3 SHORT TEXT",5.031)=""
^DD(361.1,"B","REMARK CODE-4 SHORT TEXT",5.041)=""
^DD(361.1,"B","REMARK CODE-5 SHORT TEXT",5.051)=""
^DD(361.1,"B","RETURN MESSAGE ID",100.02)=""
^DD(361.1,"B","REVIEW DATE/TIME",21)=""
^DD(361.1,"B","REVIEW STATUS",.16)=""
^DD(361.1,"B","STATEMENT END DATE",1.11)=""
^DD(361.1,"B","STATEMENT START DATE",1.1)=""
^DD(361.1,"B","TAX AMT",1.08)=""
^DD(361.1,"B","TOTAL ALLOWED AMT",2.03)=""
^DD(361.1,"B","TOTAL BEFORE TAXES AMT",1.09)=""
^DD(361.1,"B","TOTAL SUBMITTED CHARGES",2.04)=""
^DD(361.1,"B","TRACE NUMBER",.07)=""
^DD(361.1,"B","TRANSFERRED IN",7.01)=""
^DD(361.1,"B","TRANSMIT BILL",.19)=""
^DD(361.1,"GL",0,1,.01)=""
^DD(361.1,"GL",0,2,.02)=""
^DD(361.1,"GL",0,3,.03)=""
^DD(361.1,"GL",0,4,.04)=""
^DD(361.1,"GL",0,5,.05)=""
^DD(361.1,"GL",0,6,.06)=""
^DD(361.1,"GL",0,7,.07)=""
^DD(361.1,"GL",0,8,.08)=""
^DD(361.1,"GL",0,9,.09)=""
^DD(361.1,"GL",0,10,.1)=""
^DD(361.1,"GL",0,11,.11)=""
^DD(361.1,"GL",0,12,.12)=""
^DD(361.1,"GL",0,13,.13)=""
^DD(361.1,"GL",0,14,.14)=""
^DD(361.1,"GL",0,15,.15)=""
^DD(361.1,"GL",0,16,.16)=""
^DD(361.1,"GL",0,17,.17)=""
^DD(361.1,"GL",0,18,.18)=""
^DD(361.1,"GL",0,19,.19)=""
^DD(361.1,"GL",0,20,.2)=""
^DD(361.1,"GL",0,21,.21)=""
^DD(361.1,"GL",1,1,1.01)=""
^DD(361.1,"GL",1,2,1.02)=""
^DD(361.1,"GL",1,3,1.03)=""
^DD(361.1,"GL",1,4,1.04)=""
^DD(361.1,"GL",1,5,1.05)=""
^DD(361.1,"GL",1,7,1.07)=""
^DD(361.1,"GL",1,8,1.08)=""
^DD(361.1,"GL",1,9,1.09)=""
^DD(361.1,"GL",1,10,1.1)=""
^DD(361.1,"GL",1,11,1.11)=""
^DD(361.1,"GL",2,3,2.03)=""
^DD(361.1,"GL",2,4,2.04)=""
^DD(361.1,"GL",2,5,2.05)=""
^DD(361.1,"GL",3,1,3.01)=""
^DD(361.1,"GL",3,2,3.02)=""
^DD(361.1,"GL",3,3,3.03)=""
^DD(361.1,"GL",3,4,3.04)=""
^DD(361.1,"GL",3,5,3.05)=""
^DD(361.1,"GL",3,6,3.06)=""
^DD(361.1,"GL",3,7,3.07)=""
^DD(361.1,"GL",3,8,3.08)=""
^DD(361.1,"GL",3,9,3.09)=""
^DD(361.1,"GL",4,1,4.01)=""
^DD(361.1,"GL",4,2,4.02)=""
^DD(361.1,"GL",4,3,4.03)=""
^DD(361.1,"GL",4,4,4.04)=""
^DD(361.1,"GL",4,5,4.05)=""
^DD(361.1,"GL",4,6,4.06)=""
^DD(361.1,"GL",4,7,4.07)=""
^DD(361.1,"GL",4,8,4.08)=""
^DD(361.1,"GL",4,9,4.09)=""
^DD(361.1,"GL",4,10,4.1)=""
^DD(361.1,"GL",4,11,4.11)=""
^DD(361.1,"GL",4,12,4.12)=""
^DD(361.1,"GL",4,13,4.13)=""
^DD(361.1,"GL",4,14,4.14)=""
^DD(361.1,"GL",4,15,4.15)=""
^DD(361.1,"GL",4,16,4.16)=""
^DD(361.1,"GL",4,17,4.17)=""
^DD(361.1,"GL",4,18,4.18)=""
^DD(361.1,"GL",4,19,4.19)=""
^DD(361.1,"GL",5,1,5.01)=""
^DD(361.1,"GL",5,2,5.02)=""
^DD(361.1,"GL",5,3,5.03)=""
^DD(361.1,"GL",5,4,5.04)=""
^DD(361.1,"GL",5,5,5.05)=""
^DD(361.1,"GL",6,1,6.01)=""
^DD(361.1,"GL",6,2,6.02)=""
^DD(361.1,"GL",6,3,6.03)=""
^DD(361.1,"GL",6.1,"E1,200",61.01)=""
^DD(361.1,"GL",6.2,"E1,200",62.01)=""
^DD(361.1,"GL",7,1,7.01)=""
^DD(361.1,"GL",8,0,8)=""
^DD(361.1,"GL",10,0,10)=""
^DD(361.1,"GL",15,0,15)=""
^DD(361.1,"GL",21,0,21)=""
^DD(361.1,"GL",25,1,25.01)=""
^DD(361.1,"GL",25,2,25.02)=""
^DD(361.1,"GL",25,3,25.03)=""
^DD(361.1,"GL",25,4,25.04)=""
^DD(361.1,"GL",25,5,25.05)=""
^DD(361.1,"GL",25,6,25.06)=""
^DD(361.1,"GL",25,7,25.07)=""
^DD(361.1,"GL",30,1,30.01)=""
^DD(361.1,"GL",30,2,30.02)=""
^DD(361.1,"GL",100,1,100.01)=""
^DD(361.1,"GL",100,2,100.02)=""
^DD(361.1,"GL",100,3,100.03)=""
^DD(361.1,"GL",100,4,100.04)=""
^DD(361.1,"GL",100,5,100.05)=""
^DD(361.1,"GL","ERR",0,20)=""
^DD(361.1,"GL","RM1",1,5.011)=""
^DD(361.1,"GL","RM2",1,5.021)=""
^DD(361.1,"GL","RM3",1,5.031)=""
^DD(361.1,"GL","RM4",1,5.041)=""
^DD(361.1,"GL","RM5",1,5.051)=""
^DD(361.1,"IX",.01)=""
^DD(361.1,"IX",.15)=""
^DD(361.1,"IX",.16)=""
^DD(361.1,"IX",.19)=""
^DD(361.1,"IX",100.02)=""
^DD(361.1,"RQ",.01)=""
^DD(361.1,"RQ",.05)=""
^DD(361.1,"RQ",.15)=""
^DD(361.1,"SB",361.11,10)=""
^DD(361.1,"SB",361.115,15)=""
^DD(361.1,"SB",361.12,20)=""
^DD(361.1,"SB",361.121,21)=""
^DD(361.1,"SB",361.18,8)=""
^DD(361.11,0)="835 CLAIM LEVEL ADJUSTMENTS SUB-FIELD^^1^2"
^DD(361.11,0,"DT")="2990119"
^DD(361.11,0,"IX","B",361.11,.01)=""
^DD(361.11,0,"NM","835 CLAIM LEVEL ADJUSTMENTS")=""
^DD(361.11,0,"UP")="361.1"
^DD(361.11,.01,0)="ADJUSTMENT CATEGORY (GRP CODE)^MRS^CO:Contractual Obligations;CR:Corrections and Reversals;OA:Other Adjustments;PI:Payor Initiated Reductions;PR:Patient Responsibility;MM:Medicare Message;^0;1^Q"
^DD(361.11,.01,1,0)="^.1"
^DD(361.11,.01,1,1,0)="361.11^B"
^DD(361.11,.01,1,1,1)="S ^IBM(361.1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(361.11,.01,1,1,2)="K ^IBM(361.1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(361.11,.01,3)="Enter the group code associated with the adjustment"
^DD(361.11,.01,21,0)="^^1^1^2990202^^^^"
^DD(361.11,.01,21,1,0)="This is the group code as reported on the EOB for the adjustment"
^DD(361.11,.01,23,0)="^^1^1^2990202^^"
^DD(361.11,.01,23,1,0)="This data is found in the electronic eob (835) in the data element CAS-01"
^DD(361.11,.01,"DT")="2990119"
^DD(361.11,1,0)="REASONS^361.111^^1;0"
^DD(361.11,1,21,0)="^^2^2^2990202^^"
^DD(361.11,1,21,1,0)="This is the list of reasons returned for claim-level adjustments to the"
^DD(361.11,1,21,2,0)="claim."
^DD(361.11,"B","ADJUSTMENT CATEGORY (GRP CODE)",.01)=""
^DD(361.11,"B","REASONS",1)=""
^DD(361.11,"GL",0,1,.01)=""
^DD(361.11,"GL",1,0,1)=""
^DD(361.11,"IX",.01)=""
^DD(361.11,"RQ",.01)=""
^DD(361.11,"SB",361.111,1)=""
^DD(361.111,0)="REASONS SUB-FIELD^^.04^4"
^DD(361.111,0,"DT")="2981007"
^DD(361.111,0,"IX","B",361.111,.01)=""
^DD(361.111,0,"NM","REASONS")=""
^DD(361.111,0,"UP")="361.11"
^DD(361.111,.01,0)="REASON CODE^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(361.111,.01,1,0)="^.1"
^DD(361.111,.01,1,1,0)="361.111^B"
^DD(361.111,.01,1,1,1)="S ^IBM(361.1,DA(2),10,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(361.111,.01,1,1,2)="K ^IBM(361.1,DA(2),10,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(361.111,.01,3)="Answer must be 1-20 characters in length."
^DD(361.111,.01,21,0)="^^1^1^2990202^^^^"
^DD(361.111,.01,21,1,0)="This is the reason code for the adjustment"
^DD(361.111,.01,23,0)="^^2^2^2990202^^^^"
^DD(361.111,.01,23,1,0)="This data is found in the electronic eob (835) in the data elements"
^DD(361.111,.01,23,2,0)="CAS-02,5,8,11,14,17"
^DD(361.111,.01,"DT")="2981006"
^DD(361.111,.02,0)="AMOUNT^NJ13,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999)!(X<-9999999999)!(X?.E1"".""3.N) X"
^DD(361.111,.02,3)="Type a Dollar amount between -9999999999 and 9999999999, 2 Decimal Digits"
^DD(361.111,.02,21,0)="^^1^1^2990202^^^^"
^DD(361.111,.02,21,1,0)="This is the adjusted amount for the reason code"
^DD(361.111,.02,23,0)="^^2^2^2990202^^^"
^DD(361.111,.02,23,1,0)="This data is found in the electronic eob (835) in the data elements"
^DD(361.111,.02,23,2,0)="CAS-03,6,9,12,15,18"
^DD(361.111,.02,"DT")="3031014"
^DD(361.111,.03,0)="QUANTITY^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1.N) X"
^DD(361.111,.03,3)="Type a number between -99999 and 99999, 0 Decimal Digits"
^DD(361.111,.03,21,0)="^^1^1^2990202^^"
^DD(361.111,.03,21,1,0)="This is the quantity for the item adjusted"
^DD(361.111,.03,23,0)="^^2^2^2990202^"
^DD(361.111,.03,23,1,0)="This data is found in the electronic eob (835) in the data elements"
^DD(361.111,.03,23,2,0)="CAS-04,7,10,13,16,19"
^DD(361.111,.03,"DT")="3030822"
^DD(361.111,.04,0)="REASON TEXT^F^^0;4^K:$L(X)>190!($L(X)<1) X"
^DD(361.111,.04,3)="Answer must be 1-190 characters in length."
^DD(361.111,.04,21,0)="^^1^1^2990205^^^^"
^DD(361.111,.04,21,1,0)="This is the free text interpretation of the reason code, if available"
^DD(361.111,.04,23,0)="^^2^2^2990205^^^^"
^DD(361.111,.04,23,1,0)="This is provided by the Austin AAC to accelerate the recognition of these"
^DD(361.111,.04,23,2,0)="codes.  It may be an abbreviated version of the actual message."
^DD(361.111,.04,"DT")="2981007"
^DD(361.111,"B","AMOUNT",.02)=""
^DD(361.111,"B","QUANTITY",.03)=""
^DD(361.111,"B","REASON CODE",.01)=""
^DD(361.111,"B","REASON TEXT",.04)=""
^DD(361.111,"GL",0,1,.01)=""
^DD(361.111,"GL",0,2,.02)=""
^DD(361.111,"GL",0,3,.03)=""
^DD(361.111,"GL",0,4,.04)=""
^DD(361.111,"IX",.01)=""
^DD(361.115,0)="835 LINE LEVEL ADJUSTMENTS SUB-FIELD^^4^17"
^DD(361.115,0,"DT")="2991103"
^DD(361.115,0,"IX","AC",361.115,.12)=""
^DD(361.115,0,"IX","B",361.115,.01)=""
^DD(361.115,0,"NM","835 LINE LEVEL ADJUSTMENTS")=""
^DD(361.115,0,"UP")="361.1"
^DD(361.115,.01,0)="ADJUSTMENT SEQUENCE #^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(361.115,.01,1,0)="^.1"
^DD(361.115,.01,1,1,0)="361.115^B"
^DD(361.115,.01,1,1,1)="S ^IBM(361.1,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(361.115,.01,1,1,2)="K ^IBM(361.1,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(361.115,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(361.115,.01,21,0)="^^1^1^2990202^"
^DD(361.115,.01,21,1,0)="This is a sequence # for the adjustment. It has no value to the COB process."
^DD(361.115,.01,"DT")="2990201"
^DD(361.115,.02,0)="PAYER ID CODE^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(361.115,.02,3)="Answer must be 1-20 characters in length."
^DD(361.115,.02,"DT")="2981006"
^DD(361.115,.03,0)="AMOUNT PAID^NJ13,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999)!(X<-9999999999)!(X?.E1"".""3.N) X"
^DD(361.115,.03,3)="Type a Dollar amount between -9999999999 and 9999999999, 2 Decimal Digits"
^DD(361.115,.03,21,0)="^^1^1^2990201^^^"
^DD(361.115,.03,21,1,0)="This is the amount that was actually paid on this procedure."
^DD(361.115,.03,23,0)="^^1^1^2990201^^^"
^DD(361.115,.03,23,1,0)="This data is found in the electronic 835 at the SVC03 data element."
^DD(361.115,.03,"DT")="3030912"
^DD(361.115,.04,0)="PROCEDURE^F^^0;4^K:$L(X)>15!($L(X)<3) X"
^DD(361.115,.04,3)="Answer must be 3-15 characters in length."
^DD(361.115,.04,21,0)="^.001^1^1^3031006^^^^"
^DD(361.115,.04,21,1,0)="This is the procedure for which payment was considered."
^DD(361.115,.04,23,0)="^.001^1^1^3031006^^^^"
^DD(361.115,.04,23,1,0)="This data is found in the electronic 835 at the SVC01-02 data element."
^DD(361.115,.04,"DT")="3031006"
^DD(361.115,.09,0)="DESCRIPTION^F^^0;9^K:$L(X)>80!($L(X)<1) X"
^DD(361.115,.09,3)="Answer must be 1-80 characters in length."
^DD(361.115,.09,21,0)="^^1^1^2990201^"
^DD(361.115,.09,21,1,0)="This is the procedure description as reported on the EOB."
^DD(361.115,.09,23,0)="^^1^1^2990201^"
^DD(361.115,.09,23,1,0)="This data is found in the electronic 835 at the SVC01-07 data element."
^DD(361.115,.09,"DT")="2981006"
^DD(361.115,.1,0)="REVENUE CODE^P399.2'^DGCR(399.2,^0;10^Q"
^DD(361.115,.1,21,0)="^^1^1^2990202^^"
^DD(361.115,.1,21,1,0)="This is the revenue code that is associated with the procedure being billed."
^DD(361.115,.1,23,0)="^^2^2^2990202^^"
^DD(361.115,.1,23,1,0)="This data element is used only for Institutional claims and can be found"
^DD(361.115,.1,23,2,0)="in the electronic EOB (835) in the SVC-04 data element."
^DD(361.115,.1,"DT")="2981006"
^DD(361.115,.11,0)="PAID UNITS OF SERVICE^RNJ10,1^^0;11^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""2.N) X"
^DD(361.115,.11,3)="Type a number between 0 and 99999999, 1 Decimal Digit"
^DD(361.115,.11,21,0)="^^1^1^3040823^"
^DD(361.115,.11,21,1,0)="This is the number of units of service that were actually reimbursed."
^DD(361.115,.11,23,0)="^^1^1^3040823^"
^DD(361.115,.11,23,1,0)="This data is found in the electronic 835 at the SVC05 data element."
^DD(361.115,.11,"DT")="3040823"
^DD(361.115,.12,0)="REFERENCED LINE #^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(361.115,.12,1,0)="^.1"
^DD(361.115,.12,1,1,0)="361.115^AC"
^DD(361.115,.12,1,1,1)="S ^IBM(361.1,DA(1),15,""AC"",$E(X,1,30),DA)="""""
^DD(361.115,.12,1,1,2)="K ^IBM(361.1,DA(1),15,""AC"",$E(X,1,30),DA)"
^DD(361.115,.12,1,1,3)="Please do not delete"
^DD(361.115,.12,1,1,"%D",0)="^^3^3^2990202^"
^DD(361.115,.12,1,1,"%D",1,0)="This xref is the 'key' field for sorting the lines level adjustments by"
^DD(361.115,.12,1,1,"%D",2,0)="VISTA line number so the adjustments can be placed in the proper sequence"
^DD(361.115,.12,1,1,"%D",3,0)="when the 837 COB data is assembled."
^DD(361.115,.12,1,1,"DT")="2990202"
^DD(361.115,.12,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(361.115,.12,21,0)="^^3^3^2990202^^^"
^DD(361.115,.12,21,1,0)="This is the line # on the original bill that is referenced by this"
^DD(361.115,.12,21,2,0)="adjustment.  If bundling or unbundling has occurred, this is the line # that"
^DD(361.115,.12,21,3,0)="has the actual adjustment information attached to it."
^DD(361.115,.12,23,0)="^^1^1^2990202^^"
^DD(361.115,.12,23,1,0)="This data is calculated from the results of the 835 or EOB."
^DD(361.115,.12,"DT")="2990202"
^DD(361.115,.13,0)="ALLOWED AMOUNT^NJ13,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.115,.13,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.115,.13,21,0)="^^1^1^2990202^"
^DD(361.115,.13,21,1,0)="This is the amount MEDICARE will allow for this service line"
^DD(361.115,.13,23,0)="^^2^2^2990202^"
^DD(361.115,.13,23,1,0)="This data can be found in the electronic EOB (835) at the AMT-02 (qualifier"
^DD(361.115,.13,23,2,0)="'B6') data element at the line item level."
^DD(361.115,.13,"DT")="2990202"
^DD(361.115,.14,0)="PER DIEM AMOUNT^NJ13,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(361.115,.14,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(361.115,.14,21,0)="^^1^1^2990202^"
^DD(361.115,.14,21,1,0)="This is the per diem amount reported by MEDICARE for this service line."
^DD(361.115,.14,23,0)="^^2^2^2990202^"
^DD(361.115,.14,23,1,0)="This data can be found in the electronic EOB (835) at the AMT-02 (qualifier"
^DD(361.115,.14,23,2,0)="'DY') data element at the line item level."
^DD(361.115,.14,"DT")="2990202"
^DD(361.115,.15,0)="ORIGINAL PROCEDURE^F^^0;15^K:$L(X)>15!($L(X)<1) X"
^DD(361.115,.15,3)="Answer must be 1-15 characters in length."
^DD(361.115,.15,21,0)="^^5^5^2991028^^^^"
^DD(361.115,.15,21,1,0)="If this adjustment indicates bundling or unbundling occurred (paid"
^DD(361.115,.15,21,2,0)="procedure was not the original submitted procedure), this is the procedure "
^DD(361.115,.15,21,3,0)="that was originally sent for payment on the claim.  This field will only"
^DD(361.115,.15,21,4,0)="have data in it if the procedure was part of a bundling or unbundling"
^DD(361.115,.15,21,5,0)="process."
^DD(361.115,.15,23,0)="^^3^3^2991028^^^"
^DD(361.115,.15,23,1,0)="If there is data in this field, there will be one or more procedures that"
^DD(361.115,.15,23,2,0)="will need additional line items output for 837 COB due to"
^DD(361.115,.15,23,3,0)="bundling/unbundling of procedures by the payer."
^DD(361.115,.15,"DT")="2991028"
^DD(361.115,.16,0)="SERVICE DATE FROM^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.115,.16,3)="Enter the date the service was performed"
^DD(361.115,.16,21,0)="^.001^1^1^3030324^^^^"
^DD(361.115,.16,21,1,0)="This is the first date of service for the claim."
^DD(361.115,.16,"DT")="3030324"
^DD(361.115,.17,0)="SERVICE DATE TO^D^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.115,.17,3)="Enter the date the service was performed"
^DD(361.115,.17,21,0)="^^1^1^3030324^"
^DD(361.115,.17,21,1,0)="This is the last date of service for the claim."
^DD(361.115,.17,"DT")="3030324"
^DD(361.115,.18,0)="PROCEDURE TYPE^F^^0;18^K:$L(X)>2!($L(X)<1) X"
^DD(361.115,.18,3)="Answer must be 1-2 characters in length."
^DD(361.115,.18,21,0)="^^2^2^3030324^"
^DD(361.115,.18,21,1,0)="This is the code representing the type of procedure as reported in this"
^DD(361.115,.18,21,2,0)="record."
^DD(361.115,.18,"DT")="3030325"
^DD(361.115,1,0)="ADJUSTMENTS^361.1151SA^^1;0"
^DD(361.115,1,21,0)="^^2^2^3030408^"
^DD(361.115,1,21,1,0)="This is the list of line level adjustments, including general category"
^DD(361.115,1,21,2,0)="of adjustment, reason code, amount and quantity."
^DD(361.115,2,0)="PAID MODIFIERS^361.1152A^^2;0"
^DD(361.115,4,0)="LINE ITEM REMARK^361.1154A^^4;0"
^DD(361.115,"B","ADJUSTMENT SEQUENCE #",.01)=""
^DD(361.115,"B","ADJUSTMENTS",1)=""
^DD(361.115,"B","ALLOWED AMOUNT",.13)=""
^DD(361.115,"B","AMOUNT PAID",.03)=""
^DD(361.115,"B","DESCRIPTION",.09)=""
^DD(361.115,"B","LINE ITEM REMARK",4)=""
^DD(361.115,"B","ORIGINAL PROCEDURE",.15)=""
^DD(361.115,"B","PAID MODIFIERS",2)=""
^DD(361.115,"B","PAID UNITS OF SERVICE",.11)=""
^DD(361.115,"B","PAYER ID CODE",.02)=""
^DD(361.115,"B","PER DIEM AMOUNT",.14)=""
^DD(361.115,"B","PROCEDURE",.04)=""
^DD(361.115,"B","PROCEDURE TYPE",.18)=""
^DD(361.115,"B","REFERENCED LINE #",.12)=""
^DD(361.115,"B","REVENUE CODE",.1)=""
^DD(361.115,"B","SERVICE DATE FROM",.16)=""
^DD(361.115,"B","SERVICE DATE TO",.17)=""
^DD(361.115,"GL",0,1,.01)=""
^DD(361.115,"GL",0,2,.02)=""
^DD(361.115,"GL",0,3,.03)=""
^DD(361.115,"GL",0,4,.04)=""
^DD(361.115,"GL",0,9,.09)=""
^DD(361.115,"GL",0,10,.1)=""
^DD(361.115,"GL",0,11,.11)=""
^DD(361.115,"GL",0,12,.12)=""
^DD(361.115,"GL",0,13,.13)=""
^DD(361.115,"GL",0,14,.14)=""
^DD(361.115,"GL",0,15,.15)=""
^DD(361.115,"GL",0,16,.16)=""
^DD(361.115,"GL",0,17,.17)=""
^DD(361.115,"GL",0,18,.18)=""
^DD(361.115,"GL",1,0,1)=""
^DD(361.115,"GL",2,0,2)=""
^DD(361.115,"GL",4,0,4)=""
^DD(361.115,"IX",.01)=""
^DD(361.115,"IX",.12)=""
^DD(361.115,"RQ",.11)=""
^DD(361.115,"SB",361.1151,1)=""
^DD(361.115,"SB",361.1152,2)=""
^DD(361.115,"SB",361.1154,4)=""
^DD(361.1151,0)="ADJUSTMENTS SUB-FIELD^^1^2"
^DD(361.1151,0,"DT")="2981007"
^DD(361.1151,0,"IX","B",361.1151,.01)=""
^DD(361.1151,0,"NM","ADJUSTMENTS")=""
^DD(361.1151,0,"UP")="361.115"
^DD(361.1151,.01,0)="GROUP CODE^MS^CO:Contractual Obligations;CR:Corrections and Reversals;OA:Other Adjustments;PI:Payor Initiated Reductions;PR:Patient Responsibility;LQ:Line Item Remark Code WebMD Kludge;^0;1^Q"
^DD(361.1151,.01,1,0)="^.1"
^DD(361.1151,.01,1,1,0)="361.1151^B"
^DD(361.1151,.01,1,1,1)="S ^IBM(361.1,DA(2),15,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(361.1151,.01,1,1,2)="K ^IBM(361.1,DA(2),15,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(361.1151,.01,"DT")="3031030"
^DD(361.1151,1,0)="REASONS^361.11511A^^1;0"
^DD(361.1151,1,21,0)="^^2^2^2990202^^^"
^DD(361.1151,1,21,1,0)="This is the list of reasons returned for line-level adjustments to the"
^DD(361.1151,1,21,2,0)="claim."
^DD(361.1151,"B","GROUP CODE",.01)=""
^DD(361.1151,"B","REASONS",1)=""
^DD(361.1151,"GL",0,1,.01)=""
^DD(361.1151,"GL",1,0,1)=""
^DD(361.1151,"IX",.01)=""
^DD(361.1151,"SB",361.11511,1)=""
^DD(361.11511,0)="REASONS SUB-FIELD^^.04^4"
^DD(361.11511,0,"DT")="2981007"
^DD(361.11511,0,"IX","B",361.11511,.01)=""
^DD(361.11511,0,"NM","REASONS")=""
^DD(361.11511,0,"UP")="361.1151"
^DD(361.11511,.01,0)="REASON CODE^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(361.11511,.01,1,0)="^.1"
^DD(361.11511,.01,1,1,0)="361.11511^B"
^DD(361.11511,.01,1,1,1)="S ^IBM(361.1,DA(3),15,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(361.11511,.01,1,1,2)="K ^IBM(361.1,DA(3),15,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(361.11511,.01,3)="Answer must be 1-10 characters in length."
^DD(361.11511,.01,21,0)="^^1^1^2990202^^^"
^DD(361.11511,.01,21,1,0)="This is the reason code for the adjustment"
^DD(361.11511,.01,23,0)="^^2^2^2990202^^^"
^DD(361.11511,.01,23,1,0)="This data is found in the electronic eob (835) in the data elements"
^DD(361.11511,.01,23,2,0)="CAS-02,5,8,11,14,17"
^DD(361.11511,.01,"DT")="2981006"
^DD(361.11511,.02,0)="AMOUNT^NJ13,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999)!(X<-9999999999) X"
^DD(361.11511,.02,3)="Type a Dollar Amount between -9999999999 and 9999999999, 2 Decimal Digits"
^DD(361.11511,.02,21,0)="^^1^1^2990202^^"
^DD(361.11511,.02,21,1,0)="This is the adjusted amount for the reason code"
^DD(361.11511,.02,23,0)="^^2^2^2990202^^"
^DD(361.11511,.02,23,1,0)="This data is found in the electronic eob (835) in the data elements"
^DD(361.11511,.02,23,2,0)="CAS-03,6,9,12,15,18"
^DD(361.11511,.02,"DT")="3030411"
^DD(361.11511,.03,0)="QUANTITY^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1.N) X"
^DD(361.11511,.03,3)="Type a number between -9999999 and 9999999, 0 Decimal Digits"
^DD(361.11511,.03,21,0)="^^1^1^2990202^^"
^DD(361.11511,.03,21,1,0)="This is the quantity for the item adjusted"
^DD(361.11511,.03,23,0)="^^2^2^2990202^^^"
^DD(361.11511,.03,23,1,0)="This data is found in the electronic eob (835) in the data elements"
^DD(361.11511,.03,23,2,0)="CAS-04,7,10,13,16,19"
^DD(361.11511,.03,"DT")="3030822"
^DD(361.11511,.04,0)="REASON TEXT^F^^0;4^K:$L(X)>190!($L(X)<1) X"
^DD(361.11511,.04,3)="Answer must be 1-190 characters in length."
^DD(361.11511,.04,21,0)="^^1^1^2990202^^^"
^DD(361.11511,.04,21,1,0)="This is the free text interpretation of the reason code, if available"
^DD(361.11511,.04,23,0)="^^2^2^2990202^"
^DD(361.11511,.04,23,1,0)="This is provided by the Austin AAC to accelerate the recognition of these"
^DD(361.11511,.04,23,2,0)="codes.  It may be an abbreviated version of the actual message."
^DD(361.11511,.04,"DT")="2981007"
^DD(361.11511,"B","AMOUNT",.02)=""
^DD(361.11511,"B","QUANTITY",.03)=""
^DD(361.11511,"B","REASON CODE",.01)=""
^DD(361.11511,"B","REASON TEXT",.04)=""
^DD(361.11511,"GL",0,1,.01)=""
^DD(361.11511,"GL",0,2,.02)=""
^DD(361.11511,"GL",0,3,.03)=""
^DD(361.11511,"GL",0,4,.04)=""
^DD(361.11511,"IX",.01)=""
^DD(361.1152,0)="PAID MODIFIERS SUB-FIELD^^.01^1"
^DD(361.1152,0,"DT")="2991103"
^DD(361.1152,0,"IX","B",361.1152,.01)=""
^DD(361.1152,0,"NM","PAID MODIFIERS")=""
^DD(361.1152,0,"UP")="361.115"
^DD(361.1152,.01,0)="PAID MODIFIERS^MF^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(361.1152,.01,1,0)="^.1"
^DD(361.1152,.01,1,1,0)="361.1152^B"
^DD(361.1152,.01,1,1,1)="S ^IBM(361.1,DA(2),15,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(361.1152,.01,1,1,2)="K ^IBM(361.1,DA(2),15,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(361.1152,.01,3)="Answer must be 2 characters in length."
^DD(361.1152,.01,21,0)="^.001^1^1^3030618^^^"
^DD(361.1152,.01,21,1,0)="This field contains the procedure modifiers used to pay on this line item."
^DD(361.1152,.01,"DT")="3030618"
^DD(361.1152,"B","PAID MODIFIERS",.01)=""
^DD(361.1152,"GL",0,1,.01)=""
^DD(361.1152,"IX",.01)=""
^DD(361.1154,0)="LINE ITEM REMARK SUB-FIELD^^.03^3"
^DD(361.1154,0,"DT")="3040817"
^DD(361.1154,0,"IX","B",361.1154,.01)=""
^DD(361.1154,0,"NM","LINE ITEM REMARK")=""
^DD(361.1154,0,"UP")="361.115"
^DD(361.1154,.01,0)="LINE ITEM REMARK^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(361.1154,.01,1,0)="^.1"
^DD(361.1154,.01,1,1,0)="361.1154^B"
^DD(361.1154,.01,1,1,1)="S ^IBM(361.1,DA(2),15,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(361.1154,.01,1,1,2)="K ^IBM(361.1,DA(2),15,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(361.1154,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(361.1154,.01,21,0)="^^2^2^3040817^"
^DD(361.1154,.01,21,1,0)="This is the sequential number used to enumerate the line item remarks in "
^DD(361.1154,.01,21,2,0)="the ERA."
^DD(361.1154,.01,"DT")="3040817"
^DD(361.1154,.02,0)="LINE ITEM REMARK CODE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(361.1154,.02,3)="Answer must be 1-10 characters in length."
^DD(361.1154,.02,21,0)="^^1^1^3040817^"
^DD(361.1154,.02,21,1,0)="This is the remark code provided by MEDICARE for this line item."
^DD(361.1154,.02,"DT")="3040817"
^DD(361.1154,.03,0)="LINE ITEM REMARK CODE TEXT^F^^0;3^K:$L(X)>190!($L(X)<1) X"
^DD(361.1154,.03,3)="Answer must be 1-190 characters in length."
^DD(361.1154,.03,21,0)="^^1^1^3040817^"
^DD(361.1154,.03,21,1,0)="This is the free text explanation of the remark code in this record."
^DD(361.1154,.03,"DT")="3040817"
^DD(361.1154,"B","LINE ITEM REMARK",.01)=""
^DD(361.1154,"B","LINE ITEM REMARK CODE",.02)=""
^DD(361.1154,"B","LINE ITEM REMARK CODE TEXT",.03)=""
^DD(361.1154,"GL",0,1,.01)=""
^DD(361.1154,"GL",0,2,.02)=""
^DD(361.1154,"GL",0,3,.03)=""
^DD(361.1154,"IX",.01)=""
^DD(361.12,0)="MESSAGE STORAGE ERRORS SUB-FIELD^^.01^1"
^DD(361.12,0,"DT")="3030626"
^DD(361.12,0,"NM","MESSAGE STORAGE ERRORS")=""
^DD(361.12,0,"UP")="361.1"
^DD(361.12,.01,0)="MESSAGE STORAGE ERRORS^WL^^0;1^Q"
^DD(361.12,.01,3)="Enter the text of the error message"
^DD(361.12,.01,21,0)="^.001^2^2^3030626^^^"
^DD(361.12,.01,21,1,0)="This is the text of all the errors encountered for this EOB when attempting"
^DD(361.12,.01,21,2,0)="to load it from the EDI MESSAGES file."
^DD(361.12,.01,"DT")="3030626"
^DD(361.12,"B","MESSAGE STORAGE ERRORS",.01)=""
^DD(361.12,"GL",0,1,.01)=""
^DD(361.121,0)="REVIEW DATE/TIME SUB-FIELD^^1^3"
^DD(361.121,0,"DT")="2990802"
^DD(361.121,0,"IX","B",361.121,.01)=""
^DD(361.121,0,"NM","REVIEW DATE/TIME")=""
^DD(361.121,0,"UP")="361.1"
^DD(361.121,.01,0)="REVIEW DATE/TIME^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(361.121,.01,1,0)="^.1"
^DD(361.121,.01,1,1,0)="361.121^B"
^DD(361.121,.01,1,1,1)="S ^IBM(361.1,DA(1),21,""B"",$E(X,1,30),DA)="""""
^DD(361.121,.01,1,1,2)="K ^IBM(361.1,DA(1),21,""B"",$E(X,1,30),DA)"
^DD(361.121,.01,3)="Enter the date/time this EOB is being reviewed."
^DD(361.121,.01,21,0)="^^1^1^2990802^^"
^DD(361.121,.01,21,1,0)="This is the date/time that this EOB was selected for review."
^DD(361.121,.01,"DT")="2990825"
^DD(361.121,.02,0)="REVIEWED BY^P200'^VA(200,^0;2^Q"
^DD(361.121,.02,3)="Enter the name of the person reviewing this EOB."
^DD(361.121,.02,21,0)="^^1^1^2990825^^"
^DD(361.121,.02,21,1,0)="This is the name of the person who is reviewing this EOB."
^DD(361.121,.02,"DT")="2990802"
^DD(361.121,1,0)="COMMENTS^361.1211^^1;0"
^DD(361.121,"B","COMMENTS",1)=""
^DD(361.121,"B","REVIEW DATE/TIME",.01)=""
^DD(361.121,"B","REVIEWED BY",.02)=""
^DD(361.121,"GL",0,1,.01)=""
^DD(361.121,"GL",0,2,.02)=""
^DD(361.121,"GL",1,0,1)=""
^DD(361.121,"IX",.01)=""
^DD(361.121,"SB",361.1211,1)=""
^DD(361.1211,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(361.1211,0,"DT")="2990802"
^DD(361.1211,0,"NM","COMMENTS")=""
^DD(361.1211,0,"UP")="361.121"
^DD(361.1211,.01,0)="COMMENTS^W^^0;1^Q"
^DD(361.1211,.01,3)="Enter a description of the actions taken during this EOB review."
^DD(361.1211,.01,21,0)="^^3^3^2990802^"
^DD(361.1211,.01,21,1,0)="This is a description of any unusual occurrences that might have taken"
^DD(361.1211,.01,21,2,0)="place in the process of reviewing this EOB.  It also contains any notes"
^DD(361.1211,.01,21,3,0)="relating to the final review of the EOB."
^DD(361.1211,.01,"DT")="2990802"
^DD(361.1211,"B","COMMENTS",.01)=""
^DD(361.1211,"GL",0,1,.01)=""
^DD(361.18,0)="AR AMOUNTS DISTRIBUTION SUB-FIELD^^.03^3"
^DD(361.18,0,"DT")="3030318"
^DD(361.18,0,"IX","AC",361.18,.03)=""
^DD(361.18,0,"IX","B",361.18,.01)=""
^DD(361.18,0,"NM","AR AMOUNTS DISTRIBUTION")=""
^DD(361.18,0,"UP")="361.1"
^DD(361.18,.01,0)="BILL #^MRF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(361.18,.01,1,0)="^.1^^-1"
^DD(361.18,.01,1,1,0)="361.18^B"
^DD(361.18,.01,1,1,1)="S ^IBM(361.1,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(361.18,.01,1,1,2)="K ^IBM(361.1,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(361.18,.01,1,2,0)="361.1^C"
^DD(361.18,.01,1,2,1)="S ^IBM(361.1,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(361.18,.01,1,2,2)="K ^IBM(361.1,""C"",$E(X,1,30),DA(1),DA)"
^DD(361.18,.01,1,2,3)="Do not delete"
^DD(361.18,.01,1,2,"DT")="3030313"
^DD(361.18,.01,3)="Answer must be 1-15 characters in length."
^DD(361.18,.01,21,0)="^^2^2^3030318^"
^DD(361.18,.01,21,1,0)="This is the free text bill # that AR has determined this ERA has"
^DD(361.18,.01,21,2,0)="referenced."
^DD(361.18,.01,"DT")="3030318"
^DD(361.18,.02,0)="AMOUNT^NJ16,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999999999)!(X<-9999999999999) X"
^DD(361.18,.02,3)="Type a Dollar Amount between -9999999999999 and 9999999999999, 2 Decimal Digits"
^DD(361.18,.02,21,0)="^^2^2^3030313^"
^DD(361.18,.02,21,1,0)="This is the amount of money from this ERA that AR has determined applies"
^DD(361.18,.02,21,2,0)="to the corresponding bill."
^DD(361.18,.02,"DT")="3030313"
^DD(361.18,.03,0)="BILL REFERENCE^P399'^DGCR(399,^0;3^Q"
^DD(361.18,.03,1,0)="^.1"
^DD(361.18,.03,1,1,0)="361.1^C"
^DD(361.18,.03,1,1,1)="S ^IBM(361.1,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(361.18,.03,1,1,2)="K ^IBM(361.1,""C"",$E(X,1,30),DA(1),DA)"
^DD(361.18,.03,1,1,3)="Do not delete"
^DD(361.18,.03,1,1,"DT")="3030318"
^DD(361.18,.03,1,2,0)="361.18^AC"
^DD(361.18,.03,1,2,1)="S ^IBM(361.1,DA(1),8,""AC"",$E(X,1,30),DA)="""""
^DD(361.18,.03,1,2,2)="K ^IBM(361.1,DA(1),8,""AC"",$E(X,1,30),DA)"
^DD(361.18,.03,1,2,3)="Do not delete"
^DD(361.18,.03,1,2,"DT")="3030318"
^DD(361.18,.03,3)="Enter the IB bill reference for this distribution amount"
^DD(361.18,.03,21,0)="^^3^3^3030318^"
^DD(361.18,.03,21,1,0)="This is the actual pointer to file 399 for the bill referenced in this "
^DD(361.18,.03,21,2,0)="distribution record.  If this data is missing, the amount was posted to "
^DD(361.18,.03,21,3,0)="suspense."
^DD(361.18,.03,"DT")="3030318"
^DD(361.18,"B","AMOUNT",.02)=""
^DD(361.18,"B","BILL #",.01)=""
^DD(361.18,"B","BILL REFERENCE",.03)=""
^DD(361.18,"GL",0,1,.01)=""
^DD(361.18,"GL",0,2,.02)=""
^DD(361.18,"GL",0,3,.03)=""
^DD(361.18,"IX",.01)=""
^DD(361.18,"IX",.03)=""
^DD(361.18,"RQ",.01)=""
^DD(361.2,0)="FIELD^^.03^3"
^DD(361.2,0,"DDA")="N"
^DD(361.2,0,"DT")="3001019"
^DD(361.2,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(361.2,0,"IX","B",361.2,.01)=""
^DD(361.2,0,"NM","IB ELECTRONIC REPORT DISPOSITION")=""
^DD(361.2,0,"VR")="2.0"
^DD(361.2,0,"VRPK")="IB"
^DD(361.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(361.2,.01,1,0)="^.1"
^DD(361.2,.01,1,1,0)="361.2^B"
^DD(361.2,.01,1,1,1)="S ^IBE(361.2,""B"",$E(X,1,30),DA)="""""
^DD(361.2,.01,1,1,2)="K ^IBE(361.2,""B"",$E(X,1,30),DA)"
^DD(361.2,.01,3)="Answer must be 1-30 characters in length."
^DD(361.2,.01,21,0)="^^1^1^3001019^"
^DD(361.2,.01,21,1,0)="This is the name of the electronic billing report."
^DD(361.2,.01,"DT")="3001019"
^DD(361.2,.02,0)="DISPOSITION^S^0:IGNORE THE REPORT;1:MAIL REPORT TO MAIL GROUP;^0;2^Q"
^DD(361.2,.02,3)="Enter 0 to ignore this report, 1 to save it in a mail message"
^DD(361.2,.02,21,0)="^.001^3^3^3001019^^"
^DD(361.2,.02,21,1,0)="This is the indicator that tells the system what to do when it receives "
^DD(361.2,.02,21,2,0)="an electronic message identified as this report.  It can either be"
^DD(361.2,.02,21,3,0)="ignored or saved via a mail message to the IB EDI SUPERVISOR mail group."
^DD(361.2,.02,"DT")="3001019"
^DD(361.2,.03,0)="SHORT DESCRIPTION^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(361.2,.03,3)="Answer must be 1-30 characters in length."
^DD(361.2,.03,21,0)="^.001^2^2^3001019^^"
^DD(361.2,.03,21,1,0)="This is the description of the report that will be displayed when the"
^DD(361.2,.03,21,2,0)="report name is."
^DD(361.2,.03,"DT")="3001019"
^DD(361.2,"B","DISPOSITION",.02)=""
^DD(361.2,"B","NAME",.01)=""
^DD(361.2,"B","SHORT DESCRIPTION",.03)=""
^DD(361.2,"GL",0,1,.01)=""
^DD(361.2,"GL",0,2,.02)=""
^DD(361.2,"GL",0,3,.03)=""
^DD(361.2,"IX",.01)=""
^DD(361.2,"RQ",.01)=""
^DD(361.3,0)="FIELD^^.06^6"
^DD(361.3,0,"DDA")="N"
^DD(361.3,0,"DT")="3010418"
^DD(361.3,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(361.3,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(361.3,0,"IX","B",361.3,.01)=""
^DD(361.3,0,"NM","IB MESSAGE SCREEN TEXT")=""
^DD(361.3,0,"VR")="2.0"
^DD(361.3,0,"VRPK")="IB"
^DD(361.3,.01,0)="TEXT^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(361.3,.01,1,0)="^.1"
^DD(361.3,.01,1,1,0)="361.3^B"
^DD(361.3,.01,1,1,1)="S ^IBE(361.3,""B"",$E(X,1,30),DA)="""""
^DD(361.3,.01,1,1,2)="K ^IBE(361.3,""B"",$E(X,1,30),DA)"
^DD(361.3,.01,1,2,0)="^^TRIGGER^361.3^.03"
^DD(361.3,.01,1,2,1)="X ^DD(361.3,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=361.3,DIG=.03 D ^DICR"
^DD(361.3,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1))="""""
^DD(361.3,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=361.3,DIG=.03 D ^DICR"
^DD(361.3,.01,1,2,3)="Do not delete"
^DD(361.3,.01,1,2,"%D",0)="^^1^1^3010418^"
^DD(361.3,.01,1,2,"%D",1,0)="This trigger automaticallly sets the name of the creating user."
^DD(361.3,.01,1,2,"CREATE CONDITION")="ADDED BY="""""
^DD(361.3,.01,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(361.3,.01,1,2,"DELETE VALUE")="@"
^DD(361.3,.01,1,2,"DT")="3010418"
^DD(361.3,.01,1,2,"FIELD")="ADDED BY"
^DD(361.3,.01,1,3,0)="^^TRIGGER^361.3^.04"
^DD(361.3,.01,1,3,1)="X ^DD(361.3,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(361.3,.01,1,3,1.4)"
^DD(361.3,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)="""""
^DD(361.3,.01,1,3,1.4)="S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=361.3,DIG=.04 D ^DICR"
^DD(361.3,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(361.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$G(^IBE(361.3,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=361.3,DIG=.04 D ^DICR"
^DD(361.3,.01,1,3,3)="Do not delete"
^DD(361.3,.01,1,3,"%D",0)="^^1^1^3010418^"
^DD(361.3,.01,1,3,"%D",1,0)="This trigger automaticallly sets the date/time of the record's creation."
^DD(361.3,.01,1,3,"CREATE CONDITION")="ADDED DATE="""""
^DD(361.3,.01,1,3,"CREATE VALUE")="NOW"
^DD(361.3,.01,1,3,"DELETE VALUE")="@"
^DD(361.3,.01,1,3,"DT")="3010418"
^DD(361.3,.01,1,3,"FIELD")="ADDED DATE"
^DD(361.3,.01,3)="Answer must be 1-30 characters in length."
^DD(361.3,.01,21,0)="^^2^2^3010418^"
^DD(361.3,.01,21,1,0)="This is the text the return message module will check for in the"
^DD(361.3,.01,21,2,0)="incoming message."
^DD(361.3,.01,"DT")="3010418"
^DD(361.3,.02,0)="DEFAULT REVIEW STATUS^S^0:AUTO-FILE, NO REVIEW;1:ALWAYS REQUIRE REVIEW;^0;2^Q"
^DD(361.3,.02,1,0)="^.1^^0"
^DD(361.3,.02,3)="Select the action the return message processing job should take if a match is found for text."
^DD(361.3,.02,21,0)="^^3^3^3010418^"
^DD(361.3,.02,21,1,0)="This field tells the return message filer routines whether to auto-file"
^DD(361.3,.02,21,2,0)="the message that contains the text in the text field or to require the"
^DD(361.3,.02,21,3,0)="message to be manually reviewed."
^DD(361.3,.02,"DT")="3010418"
^DD(361.3,.03,0)="ADDED BY^P200'I^VA(200,^0;3^Q"
^DD(361.3,.03,3)="Enter the name of the user who entered this record."
^DD(361.3,.03,5,1,0)="361.3^.01^2"
^DD(361.3,.03,21,0)="^^1^1^3010418^"
^DD(361.3,.03,21,1,0)="This is the user who originally added the text record to the file."
^DD(361.3,.03,"DT")="3010418"
^DD(361.3,.04,0)="ADDED DATE^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.3,.04,3)="Enter the date/time the record was entered into the file."
^DD(361.3,.04,5,1,0)="361.3^.01^3"
^DD(361.3,.04,9)="^"
^DD(361.3,.04,21,0)="^^1^1^3010418^"
^DD(361.3,.04,21,1,0)="This is the date/time when the text record was added to the file."
^DD(361.3,.04,"DT")="3010418"
^DD(361.3,.05,0)="EDITED BY^P200'I^VA(200,^0;5^Q"
^DD(361.3,.05,3)="Enter the name of the user who edited this record."
^DD(361.3,.05,21,0)="^^1^1^3010418^"
^DD(361.3,.05,21,1,0)="This is the user who last edited this record."
^DD(361.3,.05,"DT")="3010418"
^DD(361.3,.06,0)="EDITED DATE/TIME^DI^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.3,.06,3)="Enter the date/time the record was edited"
^DD(361.3,.06,21,0)="^^1^1^3010418^"
^DD(361.3,.06,21,1,0)="This is the last date/time that the record was edited."
^DD(361.3,.06,"DT")="3010418"
^DD(361.3,"B","ADDED BY",.03)=""
^DD(361.3,"B","ADDED DATE",.04)=""
^DD(361.3,"B","DEFAULT REVIEW STATUS",.02)=""
^DD(361.3,"B","EDITED BY",.05)=""
^DD(361.3,"B","EDITED DATE/TIME",.06)=""
^DD(361.3,"B","TEXT",.01)=""
^DD(361.3,"GL",0,1,.01)=""
^DD(361.3,"GL",0,2,.02)=""
^DD(361.3,"GL",0,3,.03)=""
^DD(361.3,"GL",0,4,.04)=""
^DD(361.3,"GL",0,5,.05)=""
^DD(361.3,"GL",0,6,.06)=""
^DD(361.3,"IX",.01)=""
^DD(361.3,"RQ",.01)=""
^DD(361.4,0)="FIELD^^2^4"
^DD(361.4,0,"DDA")="N"
^DD(361.4,0,"DT")="3050127"
^DD(361.4,0,"IX","ALT",361.4,.02)=""
^DD(361.4,0,"IX","ARD",361.42,.01)=""
^DD(361.4,0,"IX","ATD",361.41,.01)=""
^DD(361.4,0,"IX","B",361.4,.01)=""
^DD(361.4,0,"IX","C",361.41,.02)=""
^DD(361.4,0,"NM","EDI TEST CLAIM STATUS MESSAGE")=""
^DD(361.4,0,"VR")="2.0"
^DD(361.4,0,"VRPK")="IB"
^DD(361.4,.01,0)="CLAIM^RP399'X^DGCR(399,^0;1^S DINUM=X Q"
^DD(361.4,.01,1,0)="^.1"
^DD(361.4,.01,1,1,0)="361.4^B"
^DD(361.4,.01,1,1,1)="S ^IBM(361.4,""B"",$E(X,1,30),DA)="""""
^DD(361.4,.01,1,1,2)="K ^IBM(361.4,""B"",$E(X,1,30),DA)"
^DD(361.4,.01,3)="Enter the bill # that was transmitted as test"
^DD(361.4,.01,"DT")="3050127"
^DD(361.4,.02,0)="LAST TRANSMIT DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.4,.02,1,0)="^.1"
^DD(361.4,.02,1,1,0)="361.4^ALT"
^DD(361.4,.02,1,1,1)="S ^IBM(361.4,""ALT"",$E(X,1,30),DA)="""""
^DD(361.4,.02,1,1,2)="K ^IBM(361.4,""ALT"",$E(X,1,30),DA)"
^DD(361.4,.02,1,1,3)="Do not delete"
^DD(361.4,.02,1,1,"DT")="3050126"
^DD(361.4,.02,3)="Enter the latest date that this claim was transmitted as test."
^DD(361.4,.02,5,1,0)="361.41^.01^2"
^DD(361.4,.02,21,0)="^^1^1^3050126^"
^DD(361.4,.02,21,1,0)="This is the latest date the claim was sent as a test claim."
^DD(361.4,.02,"DT")="3050126"
^DD(361.4,1,0)="TRANSMIT DATE/TIME^361.41D^^1;0"
^DD(361.4,1,21,0)="^^2^2^3050126^"
^DD(361.4,1,21,1,0)="This multiple contains the date/time, batch and user information for the "
^DD(361.4,1,21,2,0)="transmission of previously transmitted claims for test purposes."
^DD(361.4,2,0)="MESSAGE^361.42D^^2;0"
^DD(361.4,2,21,0)="^^2^2^3050126^"
^DD(361.4,2,21,1,0)="This multiple contains the information about the status messages received"
^DD(361.4,2,21,2,0)="in the test queue for the test claim."
^DD(361.4,"B","CLAIM",.01)=""
^DD(361.4,"B","LAST TRANSMIT DATE",.02)=""
^DD(361.4,"B","MESSAGE",2)=""
^DD(361.4,"B","TRANSMIT DATE/TIME",1)=""
^DD(361.4,"GL",0,1,.01)=""
^DD(361.4,"GL",0,2,.02)=""
^DD(361.4,"GL",1,0,1)=""
^DD(361.4,"GL",2,0,2)=""
^DD(361.4,"IX",.01)=""
^DD(361.4,"IX",.02)=""
^DD(361.4,"RQ",.01)=""
^DD(361.4,"SB",361.41,1)=""
^DD(361.4,"SB",361.42,2)=""
^DD(361.41,0)="TRANSMIT DATE/TIME SUB-FIELD^^.04^4"
^DD(361.41,0,"DT")="3050127"
^DD(361.41,0,"IX","ALTD",361.41,.01)=""
^DD(361.41,0,"IX","B",361.41,.01)=""
^DD(361.41,0,"NM","TRANSMIT DATE/TIME")=""
^DD(361.41,0,"UP")="361.4"
^DD(361.41,.01,0)="TRANSMIT DATE/TIME^MD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(361.41,.01,1,0)="^.1"
^DD(361.41,.01,1,1,0)="361.41^B"
^DD(361.41,.01,1,1,1)="S ^IBM(361.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(361.41,.01,1,1,2)="K ^IBM(361.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(361.41,.01,1,2,0)="^^TRIGGER^361.4^.02"
^DD(361.41,.01,1,2,1)="X ^DD(361.41,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV,X=$P(X,""."",1) S DIH=$G(^IBM(361.4,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=361.4,DIG=.02 D ^DICR"
^DD(361.41,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"""") S X=Y(0),X=$P(X,""."",1) S X=X>$P(Y(1),U,2)"
^DD(361.41,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^IBM(361.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$LASTDT^IBCEPTU(.DA) X ^DD(361.41,.01,1,2,2.4)"
^DD(361.41,.01,1,2,2.4)="S DIH=$G(^IBM(361.4,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=361.4,DIG=.02 D ^DICR"
^DD(361.41,.01,1,2,"CREATE CONDITION")="DATE(TRANSMIT DATE)>LAST TRANSMIT DATE"
^DD(361.41,.01,1,2,"CREATE VALUE")="DATE(TRANSMIT DATE)"
^DD(361.41,.01,1,2,"DELETE VALUE")="S X=$$LASTDT^IBCEPTU(.DA)"
^DD(361.41,.01,1,2,"DIC")=""
^DD(361.41,.01,1,2,"DT")="3050126"
^DD(361.41,.01,1,2,"FIELD")="LAST TRANSMIT DATE"
^DD(361.41,.01,1,3,0)="361.41^ALTD^MUMPS"
^DD(361.41,.01,1,3,1)="S ^IBM(361.4,DA(1),1,""ALTD"",X\1,DA)="""""
^DD(361.41,.01,1,3,2)="K ^IBM(361.4,DA(1),1,""ALTD"",X\1,DA)"
^DD(361.41,.01,1,3,3)="Do not delete"
^DD(361.41,.01,1,3,"%D",0)="^.101^2^2^3050128^^"
^DD(361.41,.01,1,3,"%D",1,0)="This xref is used to determine the last transmit date as it is date"
^DD(361.41,.01,1,3,"%D",2,0)="without time."
^DD(361.41,.01,1,3,"DT")="3050128"
^DD(361.41,.01,1,4,0)="361.4^ATD"
^DD(361.41,.01,1,4,1)="S ^IBM(361.4,""ATD"",$E(X,1,30),DA(1),DA)="""""
^DD(361.41,.01,1,4,2)="K ^IBM(361.4,""ATD"",$E(X,1,30),DA(1),DA)"
^DD(361.41,.01,1,4,"DT")="3060118"
^DD(361.41,.01,3)="Enter the date and time the claim was transmitted as test."
^DD(361.41,.01,21,0)="^.001^1^1^3050126^^"
^DD(361.41,.01,21,1,0)="This is the date and time the claim was transmitted as test."
^DD(361.41,.01,"DT")="3060118"
^DD(361.41,.02,0)="BATCH #^*P364.1'^IBA(364.1,^0;2^S DIC(""S"")=""I $P(^(0),U,14)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(361.41,.02,1,0)="^.1"
^DD(361.41,.02,1,1,0)="361.4^C"
^DD(361.41,.02,1,1,1)="S ^IBM(361.4,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(361.41,.02,1,1,2)="K ^IBM(361.4,""C"",$E(X,1,30),DA(1),DA)"
^DD(361.41,.02,1,1,3)="Do not delete"
^DD(361.41,.02,1,1,"DT")="3050126"
^DD(361.41,.02,3)="Enter the batch # this claim was transmitted in."
^DD(361.41,.02,12)="Must be flagged as a test batch"
^DD(361.41,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,14)"""
^DD(361.41,.02,21,0)="^^1^1^3050126^"
^DD(361.41,.02,21,1,0)="This is the batch # this claim was transmitted in."
^DD(361.41,.02,"DT")="3050126"
^DD(361.41,.03,0)="TRANSMITTED BY^P200'^VA(200,^0;3^Q"
^DD(361.41,.03,3)="Enter the user who transmitted the claim as test."
^DD(361.41,.03,21,0)="^^1^1^3050126^"
^DD(361.41,.03,21,1,0)="This is the user who transmitted the claim as test."
^DD(361.41,.03,"DT")="3050126"
^DD(361.41,.04,0)="CURRENT PAYER SEQUENCE^NJ1,0^^0;4^K:+X'=X!(X>3)!(X<1)!(X?.E1"".""1N.N) X"
^DD(361.41,.04,3)="Type a Number between 1 and 3, 0 Decimal Digits"
^DD(361.41,.04,21,0)="^.001^1^1^3050127^^"
^DD(361.41,.04,21,1,0)="This is the current payer sequence when this claim was resubmitted."
^DD(361.41,.04,"DT")="3050127"
^DD(361.41,"B","BATCH #",.02)=""
^DD(361.41,"B","CURRENT PAYER SEQUENCE",.04)=""
^DD(361.41,"B","TRANSMIT DATE/TIME",.01)=""
^DD(361.41,"B","TRANSMITTED BY",.03)=""
^DD(361.41,"GL",0,1,.01)=""
^DD(361.41,"GL",0,2,.02)=""
^DD(361.41,"GL",0,3,.03)=""
^DD(361.41,"GL",0,4,.04)=""
^DD(361.41,"IX",.01)=""
^DD(361.41,"IX",.02)=""
^DD(361.42,0)="MESSAGE SUB-FIELD^^1^4"
^DD(361.42,0,"DT")="3050126"
^DD(361.42,0,"IX","AC",361.42,.03)=""
^DD(361.42,0,"IX","B",361.42,.01)=""
^DD(361.42,0,"NM","MESSAGE")=""
^DD(361.42,0,"UP")="361.4"
^DD(361.42,.01,0)="MESSAGE RECEIVED DATE/TIME^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(361.42,.01,1,0)="^.1"
^DD(361.42,.01,1,1,0)="361.42^B"
^DD(361.42,.01,1,1,1)="S ^IBM(361.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(361.42,.01,1,1,2)="K ^IBM(361.4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(361.42,.01,1,2,0)="361.4^ARD"
^DD(361.42,.01,1,2,1)="S ^IBM(361.4,""ARD"",$E(X,1,30),DA(1),DA)="""""
^DD(361.42,.01,1,2,2)="K ^IBM(361.4,""ARD"",$E(X,1,30),DA(1),DA)"
^DD(361.42,.01,1,2,3)="Do not delete"
^DD(361.42,.01,1,2,"DT")="3050126"
^DD(361.42,.01,3)="Enter the date/time the message was received."
^DD(361.42,.01,21,0)="^^1^1^3050126^"
^DD(361.42,.01,21,1,0)="This is the date/time the message was received."
^DD(361.42,.01,"DT")="3050126"
^DD(361.42,.02,0)="MESSAGE SEVERITY^S^R:REJECTION;I:INFORMATION/WARNING;^0;2^Q"
^DD(361.42,.02,3)="Enter the code that corresponds to the severity of the message."
^DD(361.42,.02,21,0)="^^1^1^3050126^"
^DD(361.42,.02,21,1,0)="This is the code that corresponds to the severity of the message."
^DD(361.42,.02,"DT")="3050126"
^DD(361.42,.03,0)="RETURN MESSAGE ID^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(361.42,.03,1,0)="^.1"
^DD(361.42,.03,1,1,0)="361.42^AC"
^DD(361.42,.03,1,1,1)="S ^IBM(361.4,DA(1),2,""AC"",$E(X,1,30),DA)="""""
^DD(361.42,.03,1,1,2)="K ^IBM(361.4,DA(1),2,""AC"",$E(X,1,30),DA)"
^DD(361.42,.03,1,1,3)="Do not delete"
^DD(361.42,.03,1,1,"DT")="3050127"
^DD(361.42,.03,3)="Answer must be 1-20 characters in length."
^DD(361.42,.03,21,0)="^^1^1^3050126^"
^DD(361.42,.03,21,1,0)="This is the VistA mailman message # that the status message was received in."
^DD(361.42,.03,"DT")="3050127"
^DD(361.42,1,0)="MESSAGE^361.421^^1;0"
^DD(361.42,1,21,0)="^^1^1^3050126^"
^DD(361.42,1,21,1,0)="This field contains the formatted version of the status message received."
^DD(361.42,"B","MESSAGE",1)=""
^DD(361.42,"B","MESSAGE RECEIVED DATE/TIME",.01)=""
^DD(361.42,"B","MESSAGE SEVERITY",.02)=""
^DD(361.42,"B","RETURN MESSAGE ID",.03)=""
^DD(361.42,"GL",0,1,.01)=""
^DD(361.42,"GL",0,2,.02)=""
^DD(361.42,"GL",0,3,.03)=""
^DD(361.42,"GL",1,0,1)=""
^DD(361.42,"IX",.01)=""
^DD(361.42,"IX",.03)=""
^DD(361.42,"SB",361.421,1)=""
^DD(361.421,0)="MESSAGE SUB-FIELD^^.01^1"
^DD(361.421,0,"DT")="3050126"
^DD(361.421,0,"NM","MESSAGE")=""
^DD(361.421,0,"UP")="361.42"
^DD(361.421,.01,0)="MESSAGE^WL^^0;1^Q"
^DD(361.421,.01,3)="Enter the status message."
^DD(361.421,.01,21,0)="^.001^1^1^3050126^^"
^DD(361.421,.01,21,1,0)="This is the status message received."
^DD(361.421,.01,"DT")="3050126"
^DD(361.421,"B","MESSAGE",.01)=""
^DD(361.421,"GL",0,1,.01)=""
^DD(362.1,0)="FIELD^^11^5"
^DD(362.1,0,"DDA")="N"
^DD(362.1,0,"DT")="2930903"
^DD(362.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBT(356,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(356,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(362.1,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGCR(399,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(399,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(362.1,0,"IX","B",362.1,.01)=""
^DD(362.1,0,"IX","C",362.1,.02)=""
^DD(362.1,0,"IX","D",362.1,.03)=""
^DD(362.1,0,"NM","IB AUTOMATED BILLING COMMENTS")=""
^DD(362.1,0,"VR")="2.0"
^DD(362.1,.01,0)="NUMBER^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(362.1,.01,1,0)="^.1"
^DD(362.1,.01,1,1,0)="362.1^B"
^DD(362.1,.01,1,1,1)="S ^IBA(362.1,""B"",$E(X,1,30),DA)="""""
^DD(362.1,.01,1,1,2)="K ^IBA(362.1,""B"",$E(X,1,30),DA)"
^DD(362.1,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(362.1,.01,21,0)="^^1^1^2931229^"
^DD(362.1,.01,21,1,0)="A reference number that should be unique for each entry."
^DD(362.1,.01,"DT")="2930903"
^DD(362.1,.02,0)="CLAIMS TRACKING ID^P356'^IBT(356,^0;2^Q"
^DD(362.1,.02,1,0)="^.1"
^DD(362.1,.02,1,1,0)="362.1^C"
^DD(362.1,.02,1,1,1)="S ^IBA(362.1,""C"",$E(X,1,30),DA)="""""
^DD(362.1,.02,1,1,2)="K ^IBA(362.1,""C"",$E(X,1,30),DA)"
^DD(362.1,.02,1,1,"DT")="2930905"
^DD(362.1,.02,3)="Enter a Claims Tracking event."
^DD(362.1,.02,21,0)="^^1^1^2931229^"
^DD(362.1,.02,21,1,0)="The Claims Tracking event for this comment entry."
^DD(362.1,.02,"DT")="2930905"
^DD(362.1,.03,0)="BILL NUMBER^P399'^DGCR(399,^0;3^Q"
^DD(362.1,.03,1,0)="^.1"
^DD(362.1,.03,1,1,0)="362.1^D"
^DD(362.1,.03,1,1,1)="S ^IBA(362.1,""D"",$E(X,1,30),DA)="""""
^DD(362.1,.03,1,1,2)="K ^IBA(362.1,""D"",$E(X,1,30),DA)"
^DD(362.1,.03,1,1,"DT")="2930906"
^DD(362.1,.03,3)="Enter a bill number."
^DD(362.1,.03,21,0)="^^1^1^2931229^"
^DD(362.1,.03,21,1,0)="This is the bill associated with the Claims Tracking event, if any."
^DD(362.1,.03,"DT")="2930906"
^DD(362.1,.05,0)="DATE ENTERED^RD^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(362.1,.05,1,0)="^.1^^0"
^DD(362.1,.05,3)="Enter a date."
^DD(362.1,.05,21,0)="^^3^3^2931229^"
^DD(362.1,.05,21,1,0)="This is the date the event was added to the comments file.  This is"
^DD(362.1,.05,21,2,0)="usually the date the auto biller first tried to create a bill for the"
^DD(362.1,.05,21,3,0)="event."
^DD(362.1,.05,"DT")="2940211"
^DD(362.1,11,0)="COMMENTS^362.111^^11;0"
^DD(362.1,11,21,0)="^^2^2^2931229^"
^DD(362.1,11,21,1,0)="Comments associated with the Claims Tracking event the the Bill/Claims "
^DD(362.1,11,21,2,0)="bill."
^DD(362.1,"B","BILL NUMBER",.03)=""
^DD(362.1,"B","CLAIMS TRACKING ID",.02)=""
^DD(362.1,"B","COMMENTS",11)=""
^DD(362.1,"B","DATE ENTERED",.05)=""
^DD(362.1,"B","NUMBER",.01)=""
^DD(362.1,"GL",0,1,.01)=""
^DD(362.1,"GL",0,2,.02)=""
^DD(362.1,"GL",0,3,.03)=""
^DD(362.1,"GL",0,5,.05)=""
^DD(362.1,"GL",11,0,11)=""
^DD(362.1,"IX",.01)=""
^DD(362.1,"IX",.02)=""
^DD(362.1,"IX",.03)=""
^DD(362.1,"RQ",.01)=""
^DD(362.1,"RQ",.05)=""
^DD(362.1,"SB",362.111,11)=""
^DD(362.111,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(362.111,0,"DT")="2930903"
^DD(362.111,0,"NM","COMMENTS")=""
^DD(362.111,0,"UP")="362.1"
^DD(362.111,.01,0)="COMMENTS^W^^0;1^Q"
^DD(362.111,.01,"DT")="2930903"
^DD(362.111,"B","COMMENTS",.01)=""
^DD(362.111,"GL",0,1,.01)=""
^DD(362.3,0)="FIELD^^.03^3"
^DD(362.3,0,"DDA")="N"
^DD(362.3,0,"DT")="2931229"
^DD(362.3,0,"ID",.02)="W """""
^DD(362.3,0,"IX","AIFN",362.3,.01)=""
^DD(362.3,0,"IX","AIFN1",362.3,.02)=""
^DD(362.3,0,"IX","AO",362.3,.02)=""
^DD(362.3,0,"IX","AO1",362.3,.03)=""
^DD(362.3,0,"IX","B",362.3,.01)=""
^DD(362.3,0,"NM","IB BILL/CLAIMS DIAGNOSIS")=""
^DD(362.3,0,"PT",399.0304,10)=""
^DD(362.3,0,"PT",399.0304,11)=""
^DD(362.3,0,"PT",399.0304,12)=""
^DD(362.3,0,"PT",399.0304,13)=""
^DD(362.3,0,"VR")="2.0"
^DD(362.3,.01,0)="DIAGNOSIS^R*P80'^ICD9(^0;1^S ICDVDT=$$BDATE^IBACSV(+$P($G(^IBA(362.3,+$G(DA),0)),U,2)),DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,ICDVDT),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(362.3,.01,1,0)="^.1^^-1"
^DD(362.3,.01,1,1,0)="362.3^B"
^DD(362.3,.01,1,1,1)="S ^IBA(362.3,""B"",$E(X,1,30),DA)="""""
^DD(362.3,.01,1,1,2)="K ^IBA(362.3,""B"",$E(X,1,30),DA)"
^DD(362.3,.01,1,2,0)="362.3^AIFN^MUMPS"
^DD(362.3,.01,1,2,1)="S:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,""AIFN""_+$P(^(0),U,2),+X,DA)="""""
^DD(362.3,.01,1,2,2)="K:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,""AIFN""_+$P(^(0),U,2),+X,DA)"
^DD(362.3,.01,1,2,"%D",0)="^^2^2^2940214^^^^"
^DD(362.3,.01,1,2,"%D",1,0)="Special x-ref set up specifically to provide a regular x-ref of a bill and"
^DD(362.3,.01,1,2,"%D",2,0)="all it's diagnoses for easy look-up."
^DD(362.3,.01,1,2,"DT")="2931117"
^DD(362.3,.01,3)="Enter a diagnosis for this bill.  Duplicates are not allowed."
^DD(362.3,.01,4)="D HELP^IBCSC4D"
^DD(362.3,.01,12)="Only active diagnosis, no duplicates for a bill, and bill must not be authorized or cancelled."
^DD(362.3,.01,12.1)="S ICDVDT=$$BDATE^IBACSV(+$P($G(^IBA(362.3,+$G(DA),0)),U,2)),DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,ICDVDT),'$$DXDUP^IBCU1(+Y,$G(DA)),$$DXBSTAT^IBCU1($G(DA))<3"""
^DD(362.3,.01,21,0)="^^1^1^2960530^^^^"
^DD(362.3,.01,21,1,0)="Enter an active diagnosis for this bill."
^DD(362.3,.01,23,0)="^^1^1^2960530^^^^"
^DD(362.3,.01,23,1,0)="All diagnosis for a bill are stored here, beginning with IB v2.0."
^DD(362.3,.01,"DT")="3040514"
^DD(362.3,.02,0)="BILL NUMBER^R*P399'^DGCR(399,^0;2^S DIC(""S"")=""I $P(^(0),U,13)<3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(362.3,.02,1,0)="^.1"
^DD(362.3,.02,1,1,0)="362.3^AIFN1^MUMPS"
^DD(362.3,.02,1,1,1)="S ^IBA(362.3,""AIFN""_X,+^IBA(362.3,DA,0),DA)="""""
^DD(362.3,.02,1,1,2)="K ^IBA(362.3,""AIFN""_X,+^IBA(362.3,DA,0),DA)"
^DD(362.3,.02,1,1,"%D",0)="^^2^2^2940214^^^"
^DD(362.3,.02,1,1,"%D",1,0)="Special x-ref set up specifically to provide a regular x-ref of a bill and"
^DD(362.3,.02,1,1,"%D",2,0)="all it's diagnoses for easy look-up."
^DD(362.3,.02,1,1,"DT")="2931117"
^DD(362.3,.02,1,2,0)="362.3^AO^MUMPS"
^DD(362.3,.02,1,2,1)="S:+$P(^IBA(362.3,DA,0),U,3) ^IBA(362.3,""AO"",+X,+$P(^(0),U,3),DA)="""""
^DD(362.3,.02,1,2,2)="K:+$P(^IBA(362.3,DA,0),U,3) ^IBA(362.3,""AO"",+X,+$P(^(0),U,3),DA)"
^DD(362.3,.02,1,2,"%D",0)="^^1^1^2931117^"
^DD(362.3,.02,1,2,"%D",1,0)="Print order by bill, used to prevent duplicate print orders for a bill."
^DD(362.3,.02,1,2,"DT")="2931117"
^DD(362.3,.02,1,3,0)="^^TRIGGER^362.3^.03"
^DD(362.3,.02,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$ORDNXT^IBCU1(+X) X ^DD(362.3,.02,1,3,1.4)"
^DD(362.3,.02,1,3,1.4)="S DIH=$S($D(^IBA(362.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=362.3,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(362.3,.02,1,3,2)="Q"
^DD(362.3,.02,1,3,"%D",0)="^^1^1^2940112^"
^DD(362.3,.02,1,3,"%D",1,0)="Sets default value for print order."
^DD(362.3,.02,1,3,"CREATE CONDITION")="ORDER="""""
^DD(362.3,.02,1,3,"CREATE VALUE")="S X=$$ORDNXT^IBCU1(+X)"
^DD(362.3,.02,1,3,"DELETE VALUE")="NO EFFECT"
^DD(362.3,.02,1,3,"DT")="2940112"
^DD(362.3,.02,1,3,"FIELD")="ORDER"
^DD(362.3,.02,3)="The bill that this diagnosis is related to."
^DD(362.3,.02,12)="Diagnosis can only be added to open bills."
^DD(362.3,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,13)<3"""
^DD(362.3,.02,"DT")="2940112"
^DD(362.3,.03,0)="ORDER^NJ3,0X^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N)!($$DXBSTAT^IBCU1(DA)>2)!($$ORDDUP^IBCU1(+X,DA)) X"
^DD(362.3,.03,1,0)="^.1"
^DD(362.3,.03,1,1,0)="362.3^AO1^MUMPS"
^DD(362.3,.03,1,1,1)="S:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,""AO"",+$P(^(0),U,2),+X,DA)="""""
^DD(362.3,.03,1,1,2)="K:+$P(^IBA(362.3,DA,0),U,2) ^IBA(362.3,""AO"",+$P(^(0),U,2),+X,DA)"
^DD(362.3,.03,1,1,"%D",0)="^^1^1^2931117^"
^DD(362.3,.03,1,1,"%D",1,0)="Print order by bill, used to prevent duplicate print orders for a bill."
^DD(362.3,.03,1,1,"DT")="2931117"
^DD(362.3,.03,1,2,0)="^^TRIGGER^399^215"
^DD(362.3,.03,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$FIRSTDX^IBCSC4D(DA) I X S X=DIV X ^DD(362.3,.03,1,2,89.2) S X=$S('$D(^ICD9(+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y X ^DD(362.3,.03,1,2,1.1) X ^DD(362.3,.03,1,2,1.4)"
^DD(362.3,.03,1,2,1.1)="S X=DIV S Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(362.3,.03,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U2"")):^(""U2""),1:""""),DIV=X I $D(^(0)) S $P(^(""U2""),U,1)=DIV,DIH=399,DIG=215 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(362.3,.03,1,2,2)="Q"
^DD(362.3,.03,1,2,3)="Do not delete"
^DD(362.3,.03,1,2,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(362.3,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^DGCR(399,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""")"
^DD(362.3,.03,1,2,"%D",0)="^^4^4^3010102^"
^DD(362.3,.03,1,2,"%D",1,0)="This trigger sets the admitting diagnosis on the bill record to the"
^DD(362.3,.03,1,2,"%D",2,0)="diagnosis entered for the bill if admitting dx is not already on the bill"
^DD(362.3,.03,1,2,"%D",3,0)="and there is no other diagnosis with a lower numbered order already on the"
^DD(362.3,.03,1,2,"%D",4,0)="bill.  This will only fire for inpatient episode bills."
^DD(362.3,.03,1,2,"CREATE CONDITION")="S X=$$FIRSTDX^IBCSC4D(DA)"
^DD(362.3,.03,1,2,"CREATE VALUE")="INTERNAL(DIAGNOSIS)"
^DD(362.3,.03,1,2,"DELETE VALUE")="NO EFFECT"
^DD(362.3,.03,1,2,"DT")="3010102"
^DD(362.3,.03,1,2,"FIELD")="BILL NUMBER:ADMITTING DIAGNOSIS"
^DD(362.3,.03,3)="Type a Number between 1 and 999, 0 Decimal Digits.  This is the number that represents the order in which the diagnoses will be printed on a bill.  Each number must be unique for a bill."
^DD(362.3,.03,4)="D HELP^IBCSC4D"
^DD(362.3,.03,5,1,0)="362.3^.02^3"
^DD(362.3,.03,21,0)="^.001^2^2^3001212^^"
^DD(362.3,.03,21,1,0)="This is the number that represents the order in which the diagnoses will"
^DD(362.3,.03,21,2,0)="be printed on a bill.  Each number must be unique for a bill."
^DD(362.3,.03,"DT")="3010102"
^DD(362.3,"B","BILL NUMBER",.02)=""
^DD(362.3,"B","DIAGNOSIS",.01)=""
^DD(362.3,"B","ORDER",.03)=""
^DD(362.3,"GL",0,1,.01)=""
^DD(362.3,"GL",0,2,.02)=""
^DD(362.3,"GL",0,3,.03)=""
^DD(362.3,"IX",.01)=""
^DD(362.3,"IX",.02)=""
^DD(362.3,"IX",.03)=""
^DD(362.3,"RQ",.01)=""
^DD(362.3,"RQ",.02)=""
^DD(362.4,0)="FIELD^^.09^9"
^DD(362.4,0,"DDA")="N"
^DD(362.4,0,"DT")="2940208"
^DD(362.4,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGCR(399,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(399,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(362.4,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(362.4,0,"IX","AIFN",362.4,.01)=""
^DD(362.4,0,"IX","AIFN1",362.4,.02)=""
^DD(362.4,0,"IX","B",362.4,.01)=""
^DD(362.4,0,"IX","C",362.4,.02)=""
^DD(362.4,0,"NM","IB BILL/CLAIMS PRESCRIPTION REFILL")=""
^DD(362.4,0,"VR")="2.0"
^DD(362.4,.01,0)="RX #^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<1) X"
^DD(362.4,.01,1,0)="^.1"
^DD(362.4,.01,1,1,0)="362.4^B"
^DD(362.4,.01,1,1,1)="S ^IBA(362.4,""B"",$E(X,1,30),DA)="""""
^DD(362.4,.01,1,1,2)="K ^IBA(362.4,""B"",$E(X,1,30),DA)"
^DD(362.4,.01,1,2,0)="362.4^AIFN^MUMPS"
^DD(362.4,.01,1,2,1)="S:+$P(^IBA(362.4,+DA,0),U,2) ^IBA(362.4,""AIFN""_+$P(^(0),U,2),X,+DA)="""""
^DD(362.4,.01,1,2,2)="K:+$P(^IBA(362.4,+DA,0),U,2) ^IBA(362.4,""AIFN""_+$P(^(0),U,2),X,+DA)"
^DD(362.4,.01,1,2,"%D",0)="^^2^2^2931229^^"
^DD(362.4,.01,1,2,"%D",1,0)="Special x-ref set up specifically to provide a regular x-ref of a bill and"
^DD(362.4,.01,1,2,"%D",2,0)="all it's rx refills for easy look-up."
^DD(362.4,.01,1,2,"DT")="2931229"
^DD(362.4,.01,1,3,0)="^^TRIGGER^362.4^.05"
^DD(362.4,.01,1,3,1)="Q"
^DD(362.4,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(362.4,.01,1,3,2.4)"
^DD(362.4,.01,1,3,2.4)="S DIH=$S($D(^IBA(362.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=362.4,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(362.4,.01,1,3,"%D",0)="^^1^1^2931229^"
^DD(362.4,.01,1,3,"%D",1,0)="Deletes the Prescription Record pointer if the Prescription Number is modified."
^DD(362.4,.01,1,3,"CREATE VALUE")="NO EFFECT"
^DD(362.4,.01,1,3,"DELETE VALUE")="@"
^DD(362.4,.01,1,3,"DT")="2931229"
^DD(362.4,.01,1,3,"FIELD")="RECORD"
^DD(362.4,.01,3)="Answer must be 1-11 characters in length."
^DD(362.4,.01,21,0)="^^1^1^2940223^^^^"
^DD(362.4,.01,21,1,0)="The prescription number for the refill."
^DD(362.4,.01,23,0)="^^3^3^2940223^^^^"
^DD(362.4,.01,23,1,0)="A free text pointer (may correspond to 52,.01).  Because prescriptions "
^DD(362.4,.01,23,2,0)="may be deleted from file 52 or prescriptions added that may not be from  "
^DD(362.4,.01,23,3,0)="outpatient pharmacy this may not be defined in the Prescription file (52)."
^DD(362.4,.01,"DT")="2931229"
^DD(362.4,.02,0)="BILL NUMBER^R*P399'^DGCR(399,^0;2^S DIC(""S"")=""I $P(^(0),U,13)<3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(362.4,.02,1,0)="^.1"
^DD(362.4,.02,1,1,0)="362.4^AIFN1^MUMPS"
^DD(362.4,.02,1,1,1)="S ^IBA(362.4,""AIFN""_X,$P(^IBA(362.4,+DA,0),U,1),DA)="""""
^DD(362.4,.02,1,1,2)="K ^IBA(362.4,""AIFN""_X,$P(^IBA(362.4,+DA,0),U,1),DA)"
^DD(362.4,.02,1,1,"%D",0)="^^2^2^2931229^^^"
^DD(362.4,.02,1,1,"%D",1,0)="Special x-ref set up specifically to provide a regular x-ref of a bill and"
^DD(362.4,.02,1,1,"%D",2,0)="all it's rx refills for easy look-up."
^DD(362.4,.02,1,1,"DT")="2931229"
^DD(362.4,.02,1,2,0)="362.4^C"
^DD(362.4,.02,1,2,1)="S ^IBA(362.4,""C"",$E(X,1,30),DA)="""""
^DD(362.4,.02,1,2,2)="K ^IBA(362.4,""C"",$E(X,1,30),DA)"
^DD(362.4,.02,1,2,"DT")="2940110"
^DD(362.4,.02,3)="Enter a bill number."
^DD(362.4,.02,12)="Only open bills may be modified."
^DD(362.4,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,13)<3"""
^DD(362.4,.02,21,0)="^^1^1^2931229^"
^DD(362.4,.02,21,1,0)="The bill this rx refill is associated with."
^DD(362.4,.02,"DT")="2940110"
^DD(362.4,.03,0)="DATE^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(362.4,.03,3)="Enter the refill date."
^DD(362.4,.03,21,0)="^^1^1^2940208^"
^DD(362.4,.03,21,1,0)="The date of the refill that is being billed."
^DD(362.4,.03,"DT")="2940208"
^DD(362.4,.04,0)="DRUG^RP50'^PSDRUG(^0;4^Q"
^DD(362.4,.04,3)="Enter the drug for this prescription."
^DD(362.4,.04,21,0)="^^1^1^2931223^"
^DD(362.4,.04,21,1,0)="The drug prescribed."
^DD(362.4,.04,"DT")="2931223"
^DD(362.4,.05,0)="RECORD^P52'^PSRX(^0;5^Q"
^DD(362.4,.05,3)="This is the Prescription record for this refill."
^DD(362.4,.05,5,1,0)="362.4^.01^3"
^DD(362.4,.05,21,0)="^^1^1^2931229^"
^DD(362.4,.05,21,1,0)="Enter the Prescription record for this refill."
^DD(362.4,.05,23,0)="^^4^4^2931229^"
^DD(362.4,.05,23,1,0)="This should be automatically set by the system if a Prescription (52) "
^DD(362.4,.05,23,2,0)="refill is chosen.  This is not required because not all items may be"
^DD(362.4,.05,23,3,0)="outpatient prescriptions, such as fee basis charges."
^DD(362.4,.05,23,4,0)="Also, note that the Prescription (52) is not a permanent file."
^DD(362.4,.05,"DT")="2931229"
^DD(362.4,.06,0)="DAYS SUPPLY^NJ2,0^^0;6^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(362.4,.06,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(362.4,.06,21,0)="^^1^1^2940110^^^^"
^DD(362.4,.06,21,1,0)="This should be the number of days supplied of the drug dispensed in this refill."
^DD(362.4,.06,23,0)="^^1^1^2940110^^^"
^DD(362.4,.06,23,1,0)="Passed from (52,8) "
^DD(362.4,.06,"DT")="2940110"
^DD(362.4,.07,0)="QTY^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(362.4,.07,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(362.4,.07,21,0)="^^2^2^2940110^^^"
^DD(362.4,.07,21,1,0)="This should be the quantity (# of tablets, pills, items, etc.) of the drug "
^DD(362.4,.07,21,2,0)="dispensed in this refill."
^DD(362.4,.07,23,0)="^^1^1^2940110^^"
^DD(362.4,.07,23,1,0)="Loaded from (52,52,1)"
^DD(362.4,.07,"DT")="2940110"
^DD(362.4,.08,0)="NDC #^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(362.4,.08,1,0)="^.1"
^DD(362.4,.08,1,1,0)="^^TRIGGER^362.4^.09"
^DD(362.4,.08,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=$$NDCNUM^IBCSC5A(X) S DIH=$G(^IBA(362.4,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=362.4,DIG=.09 D ^DICR"
^DD(362.4,.08,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(362.4,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=362.4,DIG=.09 D ^DICR"
^DD(362.4,.08,1,1,"CREATE VALUE")="S X=$$NDCNUM^IBCSC5A(X)"
^DD(362.4,.08,1,1,"DELETE VALUE")="@"
^DD(362.4,.08,1,1,"FIELD")="FORMAT OF NDC#"
^DD(362.4,.08,3)="Answer must be 1-20 characters in length."
^DD(362.4,.08,21,0)="^^1^1^2940112^^^"
^DD(362.4,.08,21,1,0)="Enter the NDC number for this drug, if it should be printed on the bill."
^DD(362.4,.08,23,0)="^^1^1^2940112^^"
^DD(362.4,.08,23,1,0)="Not loaded from pharmacy."
^DD(362.4,.08,"DT")="3010214"
^DD(362.4,.09,0)="FORMAT OF NDC#^*S^1:4-4-2 FORMAT;2:5-3-2 FORMAT;3:5-4-1 FORMAT;4:5-4-2 FORMAT;^0;9^Q"
^DD(362.4,.09,3)="Enter the NATIONAL DRUG CODE format for the NDC# of this prescription."
^DD(362.4,.09,5,1,0)="362.4^.08^1"
^DD(362.4,.09,12)="If format 1,2,3 - length of # (minus dashes) must be 10.  For format code, it must be 11."
^DD(362.4,.09,12.1)="S DIC(""S"")=""N Z S Z=$P($G(^IBA(362.4,+$G(DA),0)),U,8) I $S(Z="""""""":1,X'=4:$L($TR(Z,""""-""""))=10,1:$L($TR(Z,""""-""""))=11)"""
^DD(362.4,.09,21,0)="^.001^2^2^3010808^^^^"
^DD(362.4,.09,21,1,0)="This is the NATIONAL DRUG CODE format in which the NDC# for the drug"
^DD(362.4,.09,21,2,0)="has been entered."
^DD(362.4,.09,"DT")="3010808"
^DD(362.4,"B","BILL NUMBER",.02)=""
^DD(362.4,"B","DATE",.03)=""
^DD(362.4,"B","DAYS SUPPLY",.06)=""
^DD(362.4,"B","DRUG",.04)=""
^DD(362.4,"B","FORMAT OF NDC#",.09)=""
^DD(362.4,"B","NDC #",.08)=""
^DD(362.4,"B","QTY",.07)=""
^DD(362.4,"B","RECORD",.05)=""
^DD(362.4,"B","RX #",.01)=""
^DD(362.4,"GL",0,1,.01)=""
^DD(362.4,"GL",0,2,.02)=""
^DD(362.4,"GL",0,3,.03)=""
^DD(362.4,"GL",0,4,.04)=""
^DD(362.4,"GL",0,5,.05)=""
^DD(362.4,"GL",0,6,.06)=""
^DD(362.4,"GL",0,7,.07)=""
^DD(362.4,"GL",0,8,.08)=""
^DD(362.4,"GL",0,9,.09)=""
^DD(362.4,"IX",.01)=""
^DD(362.4,"IX",.02)=""
^DD(362.4,"IX",.08)=""
^DD(362.4,"RQ",.01)=""
^DD(362.4,"RQ",.02)=""
^DD(362.4,"RQ",.04)=""
^DD(362.5,0)="FIELD^^.04^5"
^DD(362.5,0,"DDA")="N"
^DD(362.5,0,"DT")="2931229"
^DD(362.5,0,"IX","AIFN",362.5,.01)=""
^DD(362.5,0,"IX","AIFN1",362.5,.02)=""
^DD(362.5,0,"IX","B",362.5,.01)=""
^DD(362.5,0,"NM","IB BILL/CLAIMS PROSTHETICS")=""
^DD(362.5,0,"VR")="2.0"
^DD(362.5,.01,0)="DELIVERY DATE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(362.5,.01,1,0)="^.1"
^DD(362.5,.01,1,1,0)="362.5^B"
^DD(362.5,.01,1,1,1)="S ^IBA(362.5,""B"",$E(X,1,30),DA)="""""
^DD(362.5,.01,1,1,2)="K ^IBA(362.5,""B"",$E(X,1,30),DA)"
^DD(362.5,.01,1,2,0)="362.5^AIFN^MUMPS"
^DD(362.5,.01,1,2,1)="S:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,""AIFN""_+$P(^(0),U,2),+X,+DA)="""""
^DD(362.5,.01,1,2,2)="K:+$P(^IBA(362.5,+DA,0),U,2) ^IBA(362.5,""AIFN""_+$P(^(0),U,2),+X,+DA)"
^DD(362.5,.01,1,2,"%D",0)="^^1^1^2931228^"
^DD(362.5,.01,1,2,"%D",1,0)="Set-up for quick cross reference of all prosthetic devices on a bill."
^DD(362.5,.01,1,2,"DT")="2931228"
^DD(362.5,.01,1,3,0)="^^TRIGGER^362.5^.04"
^DD(362.5,.01,1,3,1)="Q"
^DD(362.5,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(362.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(362.5,.01,1,3,2.4)"
^DD(362.5,.01,1,3,2.4)="S DIH=$S($D(^IBA(362.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=362.5,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(362.5,.01,1,3,"%D",0)="^^3^3^2931229^"
^DD(362.5,.01,1,3,"%D",1,0)="Deletes"
^DD(362.5,.01,1,3,"%D",2,0)="the Prescription Transaction Record pointer if the Delivery Date is "
^DD(362.5,.01,1,3,"%D",3,0)="changed."
^DD(362.5,.01,1,3,"CREATE VALUE")="NO EFFECT"
^DD(362.5,.01,1,3,"DELETE VALUE")="@"
^DD(362.5,.01,1,3,"DT")="2931229"
^DD(362.5,.01,1,3,"FIELD")="record"
^DD(362.5,.01,3)="Enter the date the item was delivered to the patient."
^DD(362.5,.01,21,0)="^^2^2^2931229^^"
^DD(362.5,.01,21,1,0)="This is the date the prosthetic item was delivered and accepted by the"
^DD(362.5,.01,21,2,0)="patient."
^DD(362.5,.01,"DT")="2931229"
^DD(362.5,.02,0)="BILL NUMBER^R*P399'^DGCR(399,^0;2^S DIC(""S"")=""I $P(^(0),U,13)<3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(362.5,.02,1,0)="^.1"
^DD(362.5,.02,1,1,0)="362.5^AIFN1^MUMPS"
^DD(362.5,.02,1,1,1)="S ^IBA(362.5,""AIFN""_+X,+^IBA(362.5,+DA,0),DA)="""""
^DD(362.5,.02,1,1,2)="K ^IBA(362.5,""AIFN""_+X,+^IBA(362.5,+DA,0),DA)"
^DD(362.5,.02,1,1,"%D",0)="^^1^1^2931228^"
^DD(362.5,.02,1,1,"%D",1,0)="Set-up for quick cross reference of all prosthetic devices on a bill."
^DD(362.5,.02,1,1,"DT")="2931228"
^DD(362.5,.02,3)="The bill number associated with this prosthetic item."
^DD(362.5,.02,12)="Only open biils!"
^DD(362.5,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,13)<3"""
^DD(362.5,.02,"DT")="2931228"
^DD(362.5,.03,0)="*ITEM^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(362.5,.03,3)="Enter the prosthetic item to be added to this bill."
^DD(362.5,.03,21,0)="^.001^1^1^3080307^^^^"
^DD(362.5,.03,21,1,0)="The prosthetic item added to the bill."
^DD(362.5,.03,23,0)="^.001^5^5^3080307^^^^"
^DD(362.5,.03,23,1,0)="This should be automatically set by the system if a prosthetic record"
^DD(362.5,.03,23,2,0)="is chosen."
^DD(362.5,.03,23,3,0)=" "
^DD(362.5,.03,23,4,0)="This field was marked for deletion 04/01/08.  "
^DD(362.5,.03,23,5,0)="Field was a pointer to PROS ITEM MASTER (#661) which is out of date."
^DD(362.5,.03,"DT")="3080307"
^DD(362.5,.04,0)="RECORD^P660'^RMPR(660,^0;4^Q"
^DD(362.5,.04,3)="Enter the record for this prosthetic item transaction."
^DD(362.5,.04,5,1,0)="362.5^.01^3"
^DD(362.5,.04,21,0)="^^1^1^2931229^^^^"
^DD(362.5,.04,21,1,0)="This is the Prosthetic record for this item transaction."
^DD(362.5,.04,23,0)="^^3^3^2931229^^^^"
^DD(362.5,.04,23,1,0)="This should be automatically set by the system if a prosthetic record"
^DD(362.5,.04,23,2,0)="is chosen.  This is not required because not all items may be from"
^DD(362.5,.04,23,3,0)="prosthetics, such as fee basis charges."
^DD(362.5,.04,"DT")="2931229"
^DD(362.5,.05,0)="ITEM NAME^RF^^0;5^K:$L(X)>60!($L(X)<3) X"
^DD(362.5,.05,3)="Answer must be 3-60 characters in length."
^DD(362.5,.05,21,0)="^^1^1^3080212^"
^DD(362.5,.05,21,1,0)="This is the name or short description of the Prosthetics Item."
^DD(362.5,.05,"DT")="3080212"
^DD(362.5,"B","*ITEM",.03)=""
^DD(362.5,"B","BILL NUMBER",.02)=""
^DD(362.5,"B","DELIVERY DATE",.01)=""
^DD(362.5,"B","ITEM NAME",.05)=""
^DD(362.5,"B","RECORD",.04)=""
^DD(362.5,"GL",0,1,.01)=""
^DD(362.5,"GL",0,2,.02)=""
^DD(362.5,"GL",0,3,.03)=""
^DD(362.5,"GL",0,4,.04)=""
^DD(362.5,"GL",0,5,.05)=""
^DD(362.5,"IX",.01)=""
^DD(362.5,"IX",.02)=""
^DD(362.5,"RQ",.01)=""
^DD(362.5,"RQ",.02)=""
^DD(362.5,"RQ",.05)=""
^DD(363,0)="FIELD^^11^10"
^DD(363,0,"DDA")="N"
^DD(363,0,"DT")="2960829"
^DD(363,0,"IX","ARB",363,.02)=""
^DD(363,0,"IX","ARB1",363,.03)=""
^DD(363,0,"IX","B",363,.01)=""
^DD(363,0,"IX","C",363.0011,.01)=""
^DD(363,0,"NM","RATE SCHEDULE")=""
^DD(363,0,"VR")="2.0"
^DD(363,0,"VRPK")="IB"
^DD(363,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(363,.01,1,0)="^.1"
^DD(363,.01,1,1,0)="363^B"
^DD(363,.01,1,1,1)="S ^IBE(363,""B"",$E(X,1,30),DA)="""""
^DD(363,.01,1,1,2)="K ^IBE(363,""B"",$E(X,1,30),DA)"
^DD(363,.01,3)="Answer must be 3-20 characters in length.  Enter a descriptive name for the payer and service."
^DD(363,.01,21,0)="^^3^3^2960701^"
^DD(363,.01,21,1,0)="A Rate Schedule which defines a set of charges billable to a payer for"
^DD(363,.01,21,2,0)="a specific type of service.  This is a free text short description that"
^DD(363,.01,21,3,0)="should identify who and what is being billed."
^DD(363,.01,"DT")="2960701"
^DD(363,.02,0)="RATE TYPE^R*P399.3'^DGCR(399.3,^0;2^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363,.02,1,0)="^.1"
^DD(363,.02,1,1,0)="363^ARB^MUMPS"
^DD(363,.02,1,1,1)="I +X,+$P($G(^IBE(363,DA,0)),U,3) S ^IBE(363,""ARB"",+X,+$P(^(0),U,3),DA)="""""
^DD(363,.02,1,1,2)="I +X,+$P($G(^IBE(363,DA,0)),U,3) K ^IBE(363,""ARB"",+X,+$P(^(0),U,3),DA)"
^DD(363,.02,1,1,"%D",0)="^^1^1^2960801^^"
^DD(363,.02,1,1,"%D",1,0)="Cross reference by Rate Type and Bill Type."
^DD(363,.02,1,1,"DT")="2960801"
^DD(363,.02,3)="Enter the Rate Type this schedule applies to."
^DD(363,.02,12)="Only Active Rate Types!"
^DD(363,.02,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(363,.02,21,0)="^^1^1^2960701^"
^DD(363,.02,21,1,0)="The Rate Type of the bills the charges of this schedule should be applied to."
^DD(363,.02,"DT")="2960801"
^DD(363,.03,0)="BILL TYPE^RS^1:INPATIENT;3:OUTPATIENT;^0;3^Q"
^DD(363,.03,1,0)="^.1"
^DD(363,.03,1,1,0)="363^ARB1^MUMPS"
^DD(363,.03,1,1,1)="I +X,+$P($G(^IBE(363,DA,0)),U,2) S ^IBE(363,""ARB"",+$P(^(0),U,2),+X,DA)="""""
^DD(363,.03,1,1,2)="I +X,+$P($G(^IBE(363,DA,0)),U,2) K ^IBE(363,""ARB"",+$P(^(0),U,2),+X,DA)"
^DD(363,.03,1,1,"%D",0)="^^1^1^2960801^^"
^DD(363,.03,1,1,"%D",1,0)="Cross reference by Rate Type and Bill Type."
^DD(363,.03,1,1,"DT")="2960801"
^DD(363,.03,3)="The type of bill this schedule can be used for."
^DD(363,.03,21,0)="^^2^2^2960703^^^"
^DD(363,.03,21,1,0)="The type of care being billed or type of bill the charges of this schedule"
^DD(363,.03,21,2,0)="are for."
^DD(363,.03,"DT")="2960801"
^DD(363,.04,0)="BILLABLE SERVICE^*P399.1'^DGCR(399.1,^0;4^S DIC(""S"")=""I +$P(^(0),U,13)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363,.04,3)="Enter the type of service this schedule covers."
^DD(363,.04,12)="Pre-defined Billable Services Only!"
^DD(363,.04,12.1)="S DIC(""S"")=""I +$P(^(0),U,13)"""
^DD(363,.04,21,0)="^^1^1^2960701^^"
^DD(363,.04,21,1,0)="The type of service covered by the charges of this Rate Schedule."
^DD(363,.04,"DT")="2960703"
^DD(363,.05,0)="EFFECTIVE DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(363,.05,3)="The first date this schedule can be used."
^DD(363,.05,21,0)="^^2^2^2960701^"
^DD(363,.05,21,1,0)="The first date the charges associated with this Rate Schedule may be billed"
^DD(363,.05,21,2,0)="to a payer."
^DD(363,.05,"DT")="2960701"
^DD(363,.06,0)="INACTIVE DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(363,.06,3)="Enter the last date this schedule is effective."
^DD(363,.06,21,0)="^^1^1^2960701^^"
^DD(363,.06,21,1,0)="This is the last date this Rate Schedule may be used to bill a payer."
^DD(363,.06,"DT")="2960701"
^DD(363,1.01,0)="DISPENSING FEE^NJ7,2^^1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<.01)!(X?.E1"".""3.N) X"
^DD(363,1.01,3)="Enter the dispensing fee part of the rate schedule adjustment."
^DD(363,1.01,21,0)="^^2^2^3030617^"
^DD(363,1.01,21,1,0)="This dollar amount is the dispensing fee component of the rate schedule"
^DD(363,1.01,21,2,0)="adjustment that was entered."
^DD(363,1.01,"DT")="3030617"
^DD(363,1.02,0)="ADMINISTRATIVE FEE^NJ7,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<.01)!(X?.E1"".""3.N) X"
^DD(363,1.02,3)="Enter the administrative fee part of the rate schedule adjustment."
^DD(363,1.02,21,0)="^^2^2^3030617^"
^DD(363,1.02,21,1,0)="This dollar amount is the administrative fee component of the rate"
^DD(363,1.02,21,2,0)="schedule adjustment that was entered."
^DD(363,1.02,"DT")="3030617"
^DD(363,10,0)="ADJUSTMENT^K^^10;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(363,10,3)="This is Standard MUMPS code.  Enter M code that will modify the charge in X."
^DD(363,10,9)="@"
^DD(363,10,21,0)="^^20^20^2960822^^^"
^DD(363,10,21,1,0)="This allows the base charges of a rate to be adjusted for specific types"
^DD(363,10,21,2,0)="of payers."
^DD(363,10,21,3,0)=" "
^DD(363,10,21,4,0)="Modifies the Unit Charge of all items assigned to this Rate Schedule."
^DD(363,10,21,5,0)="For Example, this would be used to bill a certain type of payer only 80%"
^DD(363,10,21,6,0)="of the CMAC.  Or to add a $2.50 fee to each prescription."
^DD(363,10,21,7,0)=" "
^DD(363,10,21,8,0)="This is a line of M code and should only be modified by an M programmer."
^DD(363,10,21,9,0)=" "
^DD(363,10,21,10,0)="Once the Unit Charge is determined for a billable item, this code is "
^DD(363,10,21,11,0)="executed to modify that charge.  This modified charge is what will be added"
^DD(363,10,21,12,0)="to the bill."
^DD(363,10,21,13,0)=" "
^DD(363,10,21,14,0)="When this code is executed:"
^DD(363,10,21,15,0)="- the original value of the Unit Charge will be in variable X"
^DD(363,10,21,16,0)="- the modified charge to be billed should be returned in variable X"
^DD(363,10,21,17,0)="Use the local namespace for any other variables needed and kill them."
^DD(363,10,21,18,0)=" "
^DD(363,10,21,19,0)="          To charge 80% of the Unit Charge:        S X=X*.8"
^DD(363,10,21,20,0)="          To add a $2.50 fee to the Unit Charge:   S X=X+2.5"
^DD(363,10,"DT")="2960822"
^DD(363,11,0)="CHARGE SET^363.0011P^^11;0"
^DD(363,11,21,0)="^^2^2^2960724^"
^DD(363,11,21,1,0)="All Charge Sets for this Rate Schedule.  These define all the charges"
^DD(363,11,21,2,0)="that may be billable to the payors for a specific type of bill."
^DD(363,"B","ADJUSTMENT",10)=""
^DD(363,"B","ADMINISTRATIVE FEE",1.02)=""
^DD(363,"B","BILL TYPE",.03)=""
^DD(363,"B","BILLABLE SERVICE",.04)=""
^DD(363,"B","CHARGE SET",11)=""
^DD(363,"B","DISPENSING FEE",1.01)=""
^DD(363,"B","EFFECTIVE DATE",.05)=""
^DD(363,"B","INACTIVE DATE",.06)=""
^DD(363,"B","NAME",.01)=""
^DD(363,"B","RATE TYPE",.02)=""
^DD(363,"GL",0,1,.01)=""
^DD(363,"GL",0,2,.02)=""
^DD(363,"GL",0,3,.03)=""
^DD(363,"GL",0,4,.04)=""
^DD(363,"GL",0,5,.05)=""
^DD(363,"GL",0,6,.06)=""
^DD(363,"GL",1,1,1.01)=""
^DD(363,"GL",1,2,1.02)=""
^DD(363,"GL",10,"E1,245",10)=""
^DD(363,"GL",11,0,11)=""
^DD(363,"IX",.01)=""
^DD(363,"IX",.02)=""
^DD(363,"IX",.03)=""
^DD(363,"RQ",.01)=""
^DD(363,"RQ",.02)=""
^DD(363,"RQ",.03)=""
^DD(363,"SB",363.0011,11)=""
^DD(363.0011,0)="CHARGE SET SUB-FIELD^^.02^2"
^DD(363.0011,0,"DT")="2960829"
^DD(363.0011,0,"IX","B",363.0011,.01)=""
^DD(363.0011,0,"NM","CHARGE SET")=""
^DD(363.0011,0,"UP")="363"
^DD(363.0011,.01,0)="CHARGE SET^MP363.1'^IBE(363.1,^0;1^Q"
^DD(363.0011,.01,1,0)="^.1"
^DD(363.0011,.01,1,1,0)="363.0011^B"
^DD(363.0011,.01,1,1,1)="S ^IBE(363,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(363.0011,.01,1,1,2)="K ^IBE(363,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(363.0011,.01,1,2,0)="363^C"
^DD(363.0011,.01,1,2,1)="S ^IBE(363,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(363.0011,.01,1,2,2)="K ^IBE(363,""C"",$E(X,1,30),DA(1),DA)"
^DD(363.0011,.01,1,2,3)="Do Not Delete"
^DD(363.0011,.01,1,2,"%D",0)="^^1^1^2960826^"
^DD(363.0011,.01,1,2,"%D",1,0)="All Charge Sets that have been assigned to a Rate Schedule."
^DD(363.0011,.01,1,2,"DT")="2960826"
^DD(363.0011,.01,3)="Enter the Charge Set that defines the rate and charges to be billed for this schedule."
^DD(363.0011,.01,21,0)="^^2^2^2960724^"
^DD(363.0011,.01,21,1,0)="The Charge Sets whose rates should be billed to the payers defined by"
^DD(363.0011,.01,21,2,0)="this Rate Schedule."
^DD(363.0011,.01,"DT")="2960826"
^DD(363.0011,.02,0)="AUTO ADD^S^1:YES;^0;2^Q"
^DD(363.0011,.02,3)="Enter YES if the charges for this rate should be automatically added to bills."
^DD(363.0011,.02,21,0)="^^7^7^2960726^^"
^DD(363.0011,.02,21,1,0)="If answered Auto the charges for this rate will be automatically added to"
^DD(363.0011,.02,21,2,0)="all bills with this Rate Schedule.  Generally, this should be Auto Add."
^DD(363.0011,.02,21,3,0)="  "
^DD(363.0011,.02,21,4,0)="If a Rate Schedule has multiple Charge Sets for the same billable items then"
^DD(363.0011,.02,21,5,0)="it may be desirable to chose the Set used most often and have it "
^DD(363.0011,.02,21,6,0)="automatically added to the bills.  If one of the other Sets is needed on a"
^DD(363.0011,.02,21,7,0)="bill then it can be manually added to the bill."
^DD(363.0011,.02,"DT")="2960829"
^DD(363.0011,"B","AUTO ADD",.02)=""
^DD(363.0011,"B","CHARGE SET",.01)=""
^DD(363.0011,"GL",0,1,.01)=""
^DD(363.0011,"GL",0,2,.02)=""
^DD(363.0011,"IX",.01)=""
^DD(363.1,0)="FIELD^^.07^7"
^DD(363.1,0,"DDA")="N"
^DD(363.1,0,"DT")="2960923"
^DD(363.1,0,"IX","B",363.1,.01)=""
^DD(363.1,0,"IX","C",363.1,.02)=""
^DD(363.1,0,"NM","CHARGE SET")=""
^DD(363.1,0,"PT",350.9,9.12)=""
^DD(363.1,0,"PT",363.0011,.01)=""
^DD(363.1,0,"PT",363.2,.02)=""
^DD(363.1,0,"PT",363.3211,.02)=""
^DD(363.1,0,"VR")="2.0"
^DD(363.1,0,"VRPK")="IB"
^DD(363.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(363.1,.01,1,0)="^.1"
^DD(363.1,.01,1,1,0)="363.1^B"
^DD(363.1,.01,1,1,1)="S ^IBE(363.1,""B"",$E(X,1,30),DA)="""""
^DD(363.1,.01,1,1,2)="K ^IBE(363.1,""B"",$E(X,1,30),DA)"
^DD(363.1,.01,3)="Answer must be 3-30 characters in length."
^DD(363.1,.01,21,0)="^^2^2^2960701^"
^DD(363.1,.01,21,1,0)="Descriptive name to help identify the billable items and the rated defined"
^DD(363.1,.01,21,2,0)="by the Charge Set."
^DD(363.1,.01,"DEL",363,0)="I $O(^IBE(363,""C"",DA,0)) W !,""Can not Delete a Charge Set that is assigned to a Rate Schedule!"",!"
^DD(363.1,.01,"DEL",363.2,0)="I $O(^IBA(363.2,""AIVDTS""_DA,0)) W !,""Can not Delete a Charge Set that has Charge Items defined!"",!"
^DD(363.1,.01,"DT")="2960701"
^DD(363.1,.02,0)="BILLING RATE^RP363.3'^IBE(363.3,^0;2^Q"
^DD(363.1,.02,1,0)="^.1"
^DD(363.1,.02,1,1,0)="363.1^C"
^DD(363.1,.02,1,1,1)="S ^IBE(363.1,""C"",$E(X,1,30),DA)="""""
^DD(363.1,.02,1,1,2)="K ^IBE(363.1,""C"",$E(X,1,30),DA)"
^DD(363.1,.02,1,1,"%D",0)="^^1^1^2960716^"
^DD(363.1,.02,1,1,"%D",1,0)="Cross-reference on Billing Rate."
^DD(363.1,.02,1,1,"DT")="2960716"
^DD(363.1,.02,3)="Enter the type of rate this Charge Set is a subset of."
^DD(363.1,.02,21,0)="^^2^2^2960712^^^"
^DD(363.1,.02,21,1,0)="This is the type of rate which defines the charges associated with this"
^DD(363.1,.02,21,2,0)="Charge Set."
^DD(363.1,.02,"DT")="2960716"
^DD(363.1,.03,0)="BILLABLE EVENT^R*P399.1'^DGCR(399.1,^0;3^S DIC(""S"")=""I +$P(^(0),U,14)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.1,.03,3)="Enter the type of event billed by this rate."
^DD(363.1,.03,12)="Billable Events Only!"
^DD(363.1,.03,12.1)="S DIC(""S"")=""I +$P(^(0),U,14)=1"""
^DD(363.1,.03,21,0)="^^3^3^2960823^^^"
^DD(363.1,.03,21,1,0)="This is the type of care being billed or itemized on a bill that the payer"
^DD(363.1,.03,21,2,0)="is charged for.  This should correspond to an actual item that may be"
^DD(363.1,.03,21,3,0)="found on a bill."
^DD(363.1,.03,"DT")="2960701"
^DD(363.1,.04,0)="CHARGE TYPE^S^1:INSTITUTIONAL;2:PROFESSIONAL;^0;4^Q"
^DD(363.1,.04,3)="If the charges in this set are exclusively professional or institutional, enter 1 or 2."
^DD(363.1,.04,21,0)="^^5^5^2981007^^^^"
^DD(363.1,.04,21,1,0)="Defines the charges in this Charge Set as exclusively either professional"
^DD(363.1,.04,21,2,0)="charges or institutional charges."
^DD(363.1,.04,21,3,0)=" "
^DD(363.1,.04,21,4,0)="This is used to identify the charges to add to bills that are defined as"
^DD(363.1,.04,21,5,0)="exclusively professional or institutional bills."
^DD(363.1,.04,"DT")="2960923"
^DD(363.1,.05,0)="DEFAULT REVENUE CODE^*P399.2'^DGCR(399.2,^0;5^S DIC(""S"")=""I +$P(^(0),U,3)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.1,.05,3)="Enter the Revenue Code that should be used as the default when adding charges to a bill."
^DD(363.1,.05,12)="Active Revenue Codes Only!"
^DD(363.1,.05,12.1)="S DIC(""S"")=""I +$P(^(0),U,3)=1"""
^DD(363.1,.05,21,0)="^^7^7^2961009^^^^"
^DD(363.1,.05,21,1,0)="This revenue code will be the default for all items in this Charge Set."
^DD(363.1,.05,21,2,0)="If a Charge Item does not have a Revenue Code defined for it, this code"
^DD(363.1,.05,21,3,0)="will be used.  Therefore, if most charges for this set should have the"
^DD(363.1,.05,21,4,0)="same revenue code, enter that code here."
^DD(363.1,.05,21,5,0)=" "
^DD(363.1,.05,21,6,0)="If there is no Default Revenue Code for a Charge Set, then each Charge Item"
^DD(363.1,.05,21,7,0)="of that set will be required to have a Revenue Code."
^DD(363.1,.05,"DT")="2960822"
^DD(363.1,.06,0)="DEFAULT BEDSECTION^*P399.1'^DGCR(399.1,^0;6^S DIC(""S"")=""I +$P(^(0),U,5)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.1,.06,3)="Enter the bedsection that should be added to a bill with the charges for the items in this set."
^DD(363.1,.06,12)="Billable Bedsections Only!"
^DD(363.1,.06,12.1)="S DIC(""S"")=""I +$P(^(0),U,5)=1"""
^DD(363.1,.06,21,0)="^^6^6^2960822^^"
^DD(363.1,.06,21,1,0)="Bedsection is required to add charges to a bill.  This is a bedsection that"
^DD(363.1,.06,21,2,0)="represents the service responsible for the charges in this Set."
^DD(363.1,.06,21,3,0)=" "
^DD(363.1,.06,21,4,0)="If the charge for this Billing Rate is not associated with a bedsection,"
^DD(363.1,.06,21,5,0)="then add the bedsection that should be added to a bill"
^DD(363.1,.06,21,6,0)="with the charges for this Set."
^DD(363.1,.06,"DT")="2960822"
^DD(363.1,.07,0)="REGION^P363.31'^IBE(363.31,^0;7^Q"
^DD(363.1,.07,3)="Enter the region which defines the divisions this set of charges apply to."
^DD(363.1,.07,21,0)="^^2^2^2960822^"
^DD(363.1,.07,21,1,0)="This is the region the charges this set apply to.  This is only needed"
^DD(363.1,.07,21,2,0)="if the charges for this set are modified based on locality/region."
^DD(363.1,.07,"DT")="2960822"
^DD(363.1,"B","BILLABLE EVENT",.03)=""
^DD(363.1,"B","BILLING RATE",.02)=""
^DD(363.1,"B","CHARGE TYPE",.04)=""
^DD(363.1,"B","DEFAULT BEDSECTION",.06)=""
^DD(363.1,"B","DEFAULT REVENUE CODE",.05)=""
^DD(363.1,"B","NAME",.01)=""
^DD(363.1,"B","REGION",.07)=""
^DD(363.1,"GL",0,1,.01)=""
^DD(363.1,"GL",0,2,.02)=""
^DD(363.1,"GL",0,3,.03)=""
^DD(363.1,"GL",0,4,.04)=""
^DD(363.1,"GL",0,5,.05)=""
^DD(363.1,"GL",0,6,.06)=""
^DD(363.1,"GL",0,7,.07)=""
^DD(363.1,"IX",.01)=""
^DD(363.1,"IX",.02)=""
^DD(363.1,"RQ",.01)=""
^DD(363.1,"RQ",.02)=""
^DD(363.1,"RQ",.03)=""
^DD(363.2,0)="FIELD^^.08^8"
^DD(363.2,0,"DDA")="N"
^DD(363.2,0,"DT")="2970305"
^DD(363.2,0,"IX","AIVDTS",363.2,.01)=""
^DD(363.2,0,"IX","AIVDTS1",363.2,.02)=""
^DD(363.2,0,"IX","AIVDTS2",363.2,.03)=""
^DD(363.2,0,"IX","B",363.2,.01)=""
^DD(363.2,0,"NM","CHARGE ITEM")=""
^DD(363.2,0,"VR")="2.0"
^DD(363.2,0,"VRPK")="IB"
^DD(363.2,.01,0)="NAME^RV^^0;1^Q"
^DD(363.2,.01,1,0)="^.1"
^DD(363.2,.01,1,1,0)="363.2^B"
^DD(363.2,.01,1,1,1)="S ^IBA(363.2,""B"",$E(X,1,30),DA)="""""
^DD(363.2,.01,1,1,2)="K ^IBA(363.2,""B"",$E(X,1,30),DA)"
^DD(363.2,.01,1,2,0)="363.2^AIVDTS^MUMPS"
^DD(363.2,.01,1,2,1)="I +$P($G(^IBA(363.2,DA,0)),U,2),+$P(^(0),U,3) S ^IBA(363.2,""AIVDTS""_+$P(^(0),U,2),+X,-$P(^(0),U,3),DA)="""""
^DD(363.2,.01,1,2,2)="I +$P($G(^IBA(363.2,DA,0)),U,2),+$P(^(0),U,3) K ^IBA(363.2,""AIVDTS""_+$P(^(0),U,2),+X,-$P(^(0),U,3),DA)"
^DD(363.2,.01,1,2,"%D",0)="^^1^1^2960702^"
^DD(363.2,.01,1,2,"%D",1,0)="Cross reference by Set, Item, and Effective Date for lookup."
^DD(363.2,.01,1,2,"DT")="2960702"
^DD(363.2,.01,3)="Enter the Item that is billable."
^DD(363.2,.01,21,0)="^^1^1^2960701^"
^DD(363.2,.01,21,1,0)="The billable Item that may be charged on a bill."
^DD(363.2,.01,"DT")="2960702"
^DD(363.2,.01,"V",0)="^.12P^5^5"
^DD(363.2,.01,"V",1,0)="399.1^BEDSECTION^1^BED^y^n"
^DD(363.2,.01,"V",1,1)="S DIC(""S"")=""I $P(^(0),U,5)=1"""
^DD(363.2,.01,"V",1,2)="Billable Bedsections Only!"
^DD(363.2,.01,"V",2,0)="81^CPT PROCEDURES^2^CPT^n^n"
^DD(363.2,.01,"V",2,1)="S DIC(""S"")=""I '$P(^(0),U,4)"""
^DD(363.2,.01,"V",2,2)="Active CPTs Only!"
^DD(363.2,.01,"V",3,0)="363.21^NDC #s^3^NDC^y^n"
^DD(363.2,.01,"V",3,1)="S DIC(""S"")=""I $P(^(0),U,2)=1"""
^DD(363.2,.01,"V",3,2)="NDC #'s Only!"
^DD(363.2,.01,"V",4,0)="80.2^DRG^4^DRG^n^n"
^DD(363.2,.01,"V",5,0)="363.21^MISCELLANEOUS^5^MISC^y^n"
^DD(363.2,.01,"V",5,1)="S DIC(""S"")=""I $P(^(0),U,2)=9"""
^DD(363.2,.01,"V",5,2)="Miscellaneous items only!"
^DD(363.2,.01,"V","B",80.2,4)=""
^DD(363.2,.01,"V","B",81,2)=""
^DD(363.2,.01,"V","B",363.21,3)=""
^DD(363.2,.01,"V","B",363.21,5)=""
^DD(363.2,.01,"V","B",399.1,1)=""
^DD(363.2,.01,"V","M","BEDSECTION",1)=""
^DD(363.2,.01,"V","M","CPT PROCEDURES",2)=""
^DD(363.2,.01,"V","M","DRG",4)=""
^DD(363.2,.01,"V","M","MISCELLANEOUS",5)=""
^DD(363.2,.01,"V","M","NDC #s",3)=""
^DD(363.2,.01,"V","O",1,1)=""
^DD(363.2,.01,"V","O",2,2)=""
^DD(363.2,.01,"V","O",3,3)=""
^DD(363.2,.01,"V","O",4,4)=""
^DD(363.2,.01,"V","O",5,5)=""
^DD(363.2,.01,"V","P","BED",1)=""
^DD(363.2,.01,"V","P","CPT",2)=""
^DD(363.2,.01,"V","P","DRG",4)=""
^DD(363.2,.01,"V","P","MISC",5)=""
^DD(363.2,.01,"V","P","NDC",3)=""
^DD(363.2,.02,0)="CHARGE SET^RP363.1'^IBE(363.1,^0;2^Q"
^DD(363.2,.02,1,0)="^.1"
^DD(363.2,.02,1,1,0)="363.2^AIVDTS1^MUMPS"
^DD(363.2,.02,1,1,1)="I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,3) S ^IBA(363.2,""AIVDTS""_+X,+$P(^(0),U,1),-$P(^(0),U,3),DA)="""""
^DD(363.2,.02,1,1,2)="I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,3) K ^IBA(363.2,""AIVDTS""_+X,+$P(^(0),U,1),-$P(^(0),U,3),DA)"
^DD(363.2,.02,1,1,"%D",0)="^^1^1^2960702^"
^DD(363.2,.02,1,1,"%D",1,0)="Cross reference by Set, Item, and Effective Date for quick lookup."
^DD(363.2,.02,1,1,"DT")="2960702"
^DD(363.2,.02,3)="Enter the Charge Set this item/charge applies to."
^DD(363.2,.02,21,0)="^^2^2^2960701^"
^DD(363.2,.02,21,1,0)="This is the Charge Set that defines this item and the rate the charge is"
^DD(363.2,.02,21,2,0)="apart of."
^DD(363.2,.02,"DT")="2960702"
^DD(363.2,.03,0)="EFFECTIVE DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(363.2,.03,1,0)="^.1"
^DD(363.2,.03,1,1,0)="363.2^AIVDTS2^MUMPS"
^DD(363.2,.03,1,1,1)="I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,2) S ^IBA(363.2,""AIVDTS""_+$P(^(0),U,2),+^(0),-X,DA)="""""
^DD(363.2,.03,1,1,2)="I +X,+$G(^IBA(363.2,DA,0)),+$P(^(0),U,2) K ^IBA(363.2,""AIVDTS""_+$P(^(0),U,2),+^(0),-X,DA)"
^DD(363.2,.03,1,1,"%D",0)="^^1^1^2960702^"
^DD(363.2,.03,1,1,"%D",1,0)="Cross reference by Set, Item, and Effective Date for quick lookup."
^DD(363.2,.03,1,1,"DT")="2960702"
^DD(363.2,.03,3)="The first date this charge amount should be billed to a payer for the item."
^DD(363.2,.03,21,0)="^^9^9^2961009^^^^"
^DD(363.2,.03,21,1,0)="The first date this charge amount should be applied to this item"
^DD(363.2,.03,21,2,0)="for this Charge Set."
^DD(363.2,.03,21,3,0)=" "
^DD(363.2,.03,21,4,0)="This item charge will override any other Charge Item with a previous"
^DD(363.2,.03,21,5,0)="effective date."
^DD(363.2,.03,21,6,0)=" "
^DD(363.2,.03,21,7,0)="The Charge Item with the most recent effective date will be used as the"
^DD(363.2,.03,21,8,0)="charge for the item and will be used as the implied inactive date for"
^DD(363.2,.03,21,9,0)="any previous charges for the item."
^DD(363.2,.03,"DT")="2960702"
^DD(363.2,.04,0)="INACTIVE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(363.2,.04,3)="Enter the last date this item is billable."
^DD(363.2,.04,21,0)="^^8^8^2961009^^^^"
^DD(363.2,.04,21,1,0)="This is the last date this item is billable for this Charge Set."
^DD(363.2,.04,21,2,0)="If the item is still billable but for a different amount add a new Charge"
^DD(363.2,.04,21,3,0)="Item entry for the item with the correct amount and effective date, it is"
^DD(363.2,.04,21,4,0)="not necessary to inactivate the old amount."
^DD(363.2,.04,21,5,0)=" "
^DD(363.2,.04,21,6,0)="The Charge Item with the most recent effective date will be used as the"
^DD(363.2,.04,21,7,0)="charge for the item and will be used as the implied inactive date for"
^DD(363.2,.04,21,8,0)="any previous charges for the item."
^DD(363.2,.04,"DT")="2960701"
^DD(363.2,.05,0)="UNIT CHARGE^NJ8,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(363.2,.05,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits.  Enter the charge per unit for this item."
^DD(363.2,.05,21,0)="^^2^2^2960701^^"
^DD(363.2,.05,21,1,0)="The dollar amount to be added to a bill for each of this item"
^DD(363.2,.05,21,2,0)="on the bill."
^DD(363.2,.05,"DT")="2960701"
^DD(363.2,.06,0)="REVENUE CODE^*P399.2'^DGCR(399.2,^0;6^S DIC(""S"")=""I $P(^(0),U,3)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.2,.06,3)="Enter the revenue code to be added to the bills for this charge."
^DD(363.2,.06,12)="Active Revenue Codes Only!"
^DD(363.2,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=1"""
^DD(363.2,.06,21,0)="^^3^3^2960701^"
^DD(363.2,.06,21,1,0)="This is the revenue code that will be added to a bill for the charge of"
^DD(363.2,.06,21,2,0)="this item.  If no revenue code is entered the Charge Set's Default Revenue"
^DD(363.2,.06,21,3,0)="Code will be used."
^DD(363.2,.06,"DT")="2960701"
^DD(363.2,.07,0)="CPT MODIFIER^*P81.3'^DIC(81.3,^0;7^S DIC(""S"")=""N IBXZ S IBXZ=$G(^IBA(363.2,+$G(DA),0)) I $$MODP^ICPTMOD(+IBXZ,+Y,""""I"""",+$P(IBXZ,U,3))>0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.2,.07,3)="Enter the modifier for this CPT that fully defines the charge."
^DD(363.2,.07,12)="Certain modifiers may only be used with certain CPT codes.  Only a modifier assignable to this CPT may be used."
^DD(363.2,.07,12.1)="S DIC(""S"")=""N IBXZ S IBXZ=$G(^IBA(363.2,+$G(DA),0)) I $$MODP^ICPTMOD(+IBXZ,+Y,""""I"""",+$P(IBXZ,U,3))>0"""
^DD(363.2,.07,21,0)="^^7^7^2990222^^^^"
^DD(363.2,.07,21,1,0)="A CPT charge may be broken into multiple charges by using the modifier."
^DD(363.2,.07,21,2,0)=" "
^DD(363.2,.07,21,3,0)="If a modifier is added this charge will only be added to bills that have"
^DD(363.2,.07,21,4,0)="both the CPT and modifier combination on the bill."
^DD(363.2,.07,21,5,0)=" "
^DD(363.2,.07,21,6,0)="If no modifier is added then the charge will only be added to bills that"
^DD(363.2,.07,21,7,0)="have the CPT but no modifier."
^DD(363.2,.07,"DT")="2990214"
^DD(363.2,.08,0)="BASE CHARGE^NJ8,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(363.2,.08,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(363.2,.08,21,0)="^.001^5^5^3040115^^^^"
^DD(363.2,.08,21,1,0)="Enter the Base Charge associated with the item.  This amount will be "
^DD(363.2,.08,21,2,0)="added once for the item on the bill, instead of once for each unit of "
^DD(363.2,.08,21,3,0)="the item.  Base Charge is appropriate for only specific types of "
^DD(363.2,.08,21,4,0)="charges where the total charge for the item is an incremental Unit "
^DD(363.2,.08,21,5,0)="charge plus a single Base charge, such as Minutes and Hours."
^DD(363.2,.08,"DT")="3031203"
^DD(363.2,"B","BASE CHARGE",.08)=""
^DD(363.2,"B","CHARGE SET",.02)=""
^DD(363.2,"B","CPT MODIFIER",.07)=""
^DD(363.2,"B","EFFECTIVE DATE",.03)=""
^DD(363.2,"B","INACTIVE DATE",.04)=""
^DD(363.2,"B","NAME",.01)=""
^DD(363.2,"B","REVENUE CODE",.06)=""
^DD(363.2,"B","UNIT CHARGE",.05)=""
^DD(363.2,"GL",0,1,.01)=""
^DD(363.2,"GL",0,2,.02)=""
^DD(363.2,"GL",0,3,.03)=""
^DD(363.2,"GL",0,4,.04)=""
^DD(363.2,"GL",0,5,.05)=""
^DD(363.2,"GL",0,6,.06)=""
^DD(363.2,"GL",0,7,.07)=""
^DD(363.2,"GL",0,8,.08)=""
^DD(363.2,"IX",.01)=""
^DD(363.2,"IX",.02)=""
^DD(363.2,"IX",.03)=""
^DD(363.2,"RQ",.01)=""
^DD(363.2,"RQ",.02)=""
^DD(363.2,"RQ",.03)=""
^DD(363.21,0)="FIELD^^.02^2"
^DD(363.21,0,"DDA")="N"
^DD(363.21,0,"DT")="2960822"
^DD(363.21,0,"IX","B",363.21,.01)=""
^DD(363.21,0,"NM","BILLING ITEMS")=""
^DD(363.21,0,"PT",363.2,.01)=""
^DD(363.21,0,"VR")="2.0"
^DD(363.21,0,"VRPK")="IB"
^DD(363.21,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(363.21,.01,1,0)="^.1^^-1"
^DD(363.21,.01,1,1,0)="363.21^B"
^DD(363.21,.01,1,1,1)="S ^IBA(363.21,""B"",$E(X,1,30),DA)="""""
^DD(363.21,.01,1,1,2)="K ^IBA(363.21,""B"",$E(X,1,30),DA)"
^DD(363.21,.01,3)="Answer must be 3-30 characters in length."
^DD(363.21,.01,21,0)="^^1^1^2960823^^"
^DD(363.21,.01,21,1,0)="Item that may be found on a bill that is billable."
^DD(363.21,.01,"DEL",363.2,0)="I $O(^IBA(363.2,""B"",DA_"";IBA(363.21,"",0)) W !,""Can not Delete items that have Charge Items defined!"",!"
^DD(363.21,.01,"DT")="2960819"
^DD(363.21,.02,0)="TYPE^RS^1:NDC #;9:MISCELLANEOUS;^0;2^Q"
^DD(363.21,.02,3)="Enter the type of data."
^DD(363.21,.02,21,0)="^^1^1^2960822^"
^DD(363.21,.02,21,1,0)="This defines the type of entry."
^DD(363.21,.02,"DT")="2981002"
^DD(363.21,"B","NAME",.01)=""
^DD(363.21,"B","TYPE",.02)=""
^DD(363.21,"GL",0,1,.01)=""
^DD(363.21,"GL",0,2,.02)=""
^DD(363.21,"IX",.01)=""
^DD(363.21,"RQ",.01)=""
^DD(363.21,"RQ",.02)=""
^DD(363.3,0)="FIELD^^.06^6"
^DD(363.3,0,"DDA")="N"
^DD(363.3,0,"DT")="2960819"
^DD(363.3,0,"IX","B",363.3,.01)=""
^DD(363.3,0,"NM","BILLING RATE")=""
^DD(363.3,0,"PT",363.1,.02)=""
^DD(363.3,0,"PT",363.3211,.01)=""
^DD(363.3,0,"VR")="2.0"
^DD(363.3,0,"VRPK")="IB"
^DD(363.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(363.3,.01,1,0)="^.1"
^DD(363.3,.01,1,1,0)="363.3^B"
^DD(363.3,.01,1,1,1)="S ^IBE(363.3,""B"",$E(X,1,30),DA)="""""
^DD(363.3,.01,1,1,2)="K ^IBE(363.3,""B"",$E(X,1,30),DA)"
^DD(363.3,.01,3)="Answer must be 3-30 characters in length.  Enter a descriptive name to identify the rate."
^DD(363.3,.01,21,0)="^^2^2^2960712^"
^DD(363.3,.01,21,1,0)="Name of this rate.  A rate defines a set of charges billable to a specific"
^DD(363.3,.01,21,2,0)="set of payers."
^DD(363.3,.01,"DEL",.03,0)="I $P($G(^IBE(363.3,DA,0)),U,3)=1 W !,""Can not Delete Nationally Distibuted Billing Rates!"",!"
^DD(363.3,.01,"DEL",363.1,0)="I $O(^IBE(363.1,""C"",DA,0)) W !,""Can not Delete a Billing Rate that has Charge Sets defined!"",!"
^DD(363.3,.01,"DT")="2960712"
^DD(363.3,.02,0)="ABBREVIATION^RF^^0;2^K:$L(X)>8!($L(X)<2) X"
^DD(363.3,.02,3)="Answer must be 2-8 characters in length."
^DD(363.3,.02,21,0)="^^2^2^2960712^"
^DD(363.3,.02,21,1,0)="Enter a short identifier for this rate.  This may be used on reports and"
^DD(363.3,.02,21,2,0)="displays."
^DD(363.3,.02,"DT")="2960712"
^DD(363.3,.03,0)="DISTRIBUTION^RS^1:NATIONAL;2:LOCAL;^0;3^Q"
^DD(363.3,.03,3)="Enter Local."
^DD(363.3,.03,21,0)="^^3^3^2960712^"
^DD(363.3,.03,21,1,0)="This indicates how the rate and all corresponding data is distributed to"
^DD(363.3,.03,21,2,0)="the sites.  All National entries will be exported nationally and should not"
^DD(363.3,.03,21,3,0)="be modified locally."
^DD(363.3,.03,"DT")="2960712"
^DD(363.3,.04,0)="BILLABLE ITEM^RS^1:BEDSECTION;2:CPT;3:NDC #;4:DRG;9:MISCELLANEOUS;^0;4^Q"
^DD(363.3,.04,3)="Enter the type of item the charge for this rate is associated with."
^DD(363.3,.04,21,0)="^^2^2^2960819^^^^"
^DD(363.3,.04,21,1,0)="This is the type of item that will be found in the Charge Item list for"
^DD(363.3,.04,21,2,0)="all charges of this rate."
^DD(363.3,.04,"DT")="2981002"
^DD(363.3,.05,0)="CHARGE METHOD^RS^1:COUNT;2:VA COST;3:QUANTITY;4:MILES;5:MINUTES;6:HOURS;^0;5^Q"
^DD(363.3,.05,3)="Enter the method of charge calculation for this rate."
^DD(363.3,.05,21,0)="^.001^8^8^3031110^^^^"
^DD(363.3,.05,21,1,0)="Indicates how the charge will be calculated for the Billable Items"
^DD(363.3,.05,21,2,0)="found on the bills."
^DD(363.3,.05,21,3,0)="COUNT:    charge per Item found on the bill"
^DD(363.3,.05,21,4,0)="VA COST:  calculated value of the VA cost for an item"
^DD(363.3,.05,21,5,0)="QUANTITY: price per dispense unit (NDC # charges only)"
^DD(363.3,.05,21,6,0)="MILES:    charge per mile"
^DD(363.3,.05,21,7,0)="MINUTES:  charge with base plus incremental charge per 15 minutes"
^DD(363.3,.05,21,8,0)="HOURS:    charge with base plus incremental charge per hour"
^DD(363.3,.05,"DT")="3031110"
^DD(363.3,.06,0)="BASE CHARGE^S^1:YES;^0;6^Q"
^DD(363.3,.06,3)="Enter YES if a Base Charge is allowed for this Billing Rate."
^DD(363.3,.06,21,0)="^.001^3^3^3040115^^"
^DD(363.3,.06,21,1,0)="Certain types of charges require both an incremental charge per unit "
^DD(363.3,.06,21,2,0)="and base charge applied once per item.  Enter yes if this Billing "
^DD(363.3,.06,21,3,0)="Rate allows a base charge plus the unit charge for an item."
^DD(363.3,.06,"DT")="3031210"
^DD(363.3,"B","ABBREVIATION",.02)=""
^DD(363.3,"B","BASE CHARGE",.06)=""
^DD(363.3,"B","BILLABLE ITEM",.04)=""
^DD(363.3,"B","CHARGE METHOD",.05)=""
^DD(363.3,"B","DISTRIBUTION",.03)=""
^DD(363.3,"B","NAME",.01)=""
^DD(363.3,"GL",0,1,.01)=""
^DD(363.3,"GL",0,2,.02)=""
^DD(363.3,"GL",0,3,.03)=""
^DD(363.3,"GL",0,4,.04)=""
^DD(363.3,"GL",0,5,.05)=""
^DD(363.3,"GL",0,6,.06)=""
^DD(363.3,"IX",.01)=""
^DD(363.3,"RQ",.01)=""
^DD(363.3,"RQ",.02)=""
^DD(363.3,"RQ",.03)=""
^DD(363.3,"RQ",.04)=""
^DD(363.3,"RQ",.05)=""
^DD(363.31,0)="FIELD^^21^5"
^DD(363.31,0,"DDA")="N"
^DD(363.31,0,"DT")="2960724"
^DD(363.31,0,"IX","AB",363.3121,.01)=""
^DD(363.31,0,"IX","B",363.31,.01)=""
^DD(363.31,0,"NM","BILLING REGION")=""
^DD(363.31,0,"PT",363.1,.07)=""
^DD(363.31,0,"VR")="2.0"
^DD(363.31,0,"VRPK")="IB"
^DD(363.31,.01,0)="REGION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(363.31,.01,1,0)="^.1"
^DD(363.31,.01,1,1,0)="363.31^B"
^DD(363.31,.01,1,1,1)="S ^IBE(363.31,""B"",$E(X,1,30),DA)="""""
^DD(363.31,.01,1,1,2)="K ^IBE(363.31,""B"",$E(X,1,30),DA)"
^DD(363.31,.01,3)="Answer must be 3-30 characters in length."
^DD(363.31,.01,21,0)="^^2^2^2990211^^"
^DD(363.31,.01,21,1,0)="Descriptive name of an area defined by one set of charges for a rate."
^DD(363.31,.01,21,2,0)="This area may contain one or more divisions."
^DD(363.31,.01,"DT")="2990211"
^DD(363.31,.02,0)="IDENTIFIER^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(363.31,.02,3)="Answer must be 1-10 characters in length."
^DD(363.31,.02,21,0)="^.001^5^5^3001012^^^^"
^DD(363.31,.02,21,1,0)="This uniquely identifies a region for a specific Billing Rate and defines "
^DD(363.31,.02,21,2,0)="the smallest geographic area for which charges are created for that Rate."
^DD(363.31,.02,21,3,0)=" "
^DD(363.31,.02,21,4,0)="For Reasonable Charges, this identifier is the 3-digit zip code of the "
^DD(363.31,.02,21,5,0)="region's primary site."
^DD(363.31,.02,"DT")="3000908"
^DD(363.31,.03,0)="TYPE^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(363.31,.03,3)="Answer must be 1-10 characters in length."
^DD(363.31,.03,21,0)="^.001^4^4^3040205^^"
^DD(363.31,.03,21,1,0)="This identifies the type of facility for the divisions assigned to the "
^DD(363.31,.03,21,2,0)="region.  For Reasonable Charges these include: 1 - Provider based with "
^DD(363.31,.03,21,3,0)="Inpatient care, 2 - Provider based with Outpatient care only, "
^DD(363.31,.03,21,4,0)="3 - Non-Provider based Outpatient care."
^DD(363.31,.03,"DT")="3031028"
^DD(363.31,11,0)="DIVISION^363.3111P^^11;0"
^DD(363.31,21,0)="INSTITUTION^363.3121PA^^21;0"
^DD(363.31,"B","DIVISION",11)=""
^DD(363.31,"B","IDENTIFIER",.02)=""
^DD(363.31,"B","INSTITUTION",21)=""
^DD(363.31,"B","REGION",.01)=""
^DD(363.31,"B","TYPE",.03)=""
^DD(363.31,"GL",0,1,.01)=""
^DD(363.31,"GL",0,2,.02)=""
^DD(363.31,"GL",0,3,.03)=""
^DD(363.31,"GL",11,0,11)=""
^DD(363.31,"GL",21,0,21)=""
^DD(363.31,"IX",.01)=""
^DD(363.31,"RQ",.01)=""
^DD(363.31,"SB",363.3111,11)=""
^DD(363.31,"SB",363.3121,21)=""
^DD(363.3111,0)="DIVISION SUB-FIELD^^.01^1"
^DD(363.3111,0,"DT")="2960724"
^DD(363.3111,0,"IX","B",363.3111,.01)=""
^DD(363.3111,0,"NM","DIVISION")=""
^DD(363.3111,0,"UP")="363.31"
^DD(363.3111,.01,0)="DIVISION^MP40.8'^DG(40.8,^0;1^Q"
^DD(363.3111,.01,1,0)="^.1"
^DD(363.3111,.01,1,1,0)="363.3111^B"
^DD(363.3111,.01,1,1,1)="S ^IBE(363.31,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(363.3111,.01,1,1,2)="K ^IBE(363.31,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(363.3111,.01,3)="Enter a division covered by this region."
^DD(363.3111,.01,21,0)="^^2^2^2960724^"
^DD(363.3111,.01,21,1,0)="Each region covered by a rate may contain one or more divisions.  Enter the"
^DD(363.3111,.01,21,2,0)="divisions contained within this region."
^DD(363.3111,.01,"DT")="2960724"
^DD(363.3111,"B","DIVISION",.01)=""
^DD(363.3111,"GL",0,1,.01)=""
^DD(363.3111,"IX",.01)=""
^DD(363.3121,0)="INSTITUTION SUB-FIELD^^.01^1"
^DD(363.3121,0,"DT")="2990820"
^DD(363.3121,0,"IX","B",363.3121,.01)=""
^DD(363.3121,0,"NM","INSTITUTION")=""
^DD(363.3121,0,"UP")="363.31"
^DD(363.3121,.01,0)="INSTITUTION^MP4'^DIC(4,^0;1^Q"
^DD(363.3121,.01,1,0)="^.1"
^DD(363.3121,.01,1,1,0)="363.3121^B"
^DD(363.3121,.01,1,1,1)="S ^IBE(363.31,DA(1),21,""B"",$E(X,1,30),DA)="""""
^DD(363.3121,.01,1,1,2)="K ^IBE(363.31,DA(1),21,""B"",$E(X,1,30),DA)"
^DD(363.3121,.01,1,2,0)="363.31^AB"
^DD(363.3121,.01,1,2,1)="S ^IBE(363.31,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(363.3121,.01,1,2,2)="K ^IBE(363.31,""AB"",$E(X,1,30),DA(1),DA)"
^DD(363.3121,.01,1,2,"DT")="2990820"
^DD(363.3121,.01,21,0)="^^4^4^2990805^"
^DD(363.3121,.01,21,1,0)="This pointer to the institution file (#4) is currently used only"
^DD(363.3121,.01,21,2,0)="for Transfer Pricing.  It would be either another VA facility or"
^DD(363.3121,.01,21,3,0)="a VISN.  This would identify Charge Sets with whom the local facility"
^DD(363.3121,.01,21,4,0)="or VISN has negotiated rates."
^DD(363.3121,.01,"DT")="2990820"
^DD(363.3121,"B","INSTITUTION",.01)=""
^DD(363.3121,"GL",0,1,.01)=""
^DD(363.3121,"IX",.01)=""
^DD(363.32,0)="FIELD^^11^3"
^DD(363.32,0,"DDA")="N"
^DD(363.32,0,"DT")="2990428"
^DD(363.32,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(363.32,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(363.32,0,"IX","B",363.32,.01)=""
^DD(363.32,0,"NM","BILLING SPECIAL GROUPS")=""
^DD(363.32,0,"PT",363.33,.02)=""
^DD(363.32,0,"PT",363.34,.02)=""
^DD(363.32,0,"VR")="2.0"
^DD(363.32,0,"VRPK")="IB"
^DD(363.32,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(363.32,.01,1,0)="^.1"
^DD(363.32,.01,1,1,0)="363.32^B"
^DD(363.32,.01,1,1,1)="S ^IBE(363.32,""B"",$E(X,1,30),DA)="""""
^DD(363.32,.01,1,1,2)="K ^IBE(363.32,""B"",$E(X,1,30),DA)"
^DD(363.32,.01,3)="Answer must be 3-30 characters in length."
^DD(363.32,.01,21,0)="^^1^1^2981228^"
^DD(363.32,.01,21,1,0)="This is the name of the billing group."
^DD(363.32,.01,"DEL",363.33,0)="I +$P($G(^IBE(363.32,DA,0)),U,2)=1,+$O(^IBE(363.33,""C"",DA,0)) W !,""Can not Delete a Group that has Revenue Code Links defined!"",!"
^DD(363.32,.01,"DEL",363.34,0)="I +$P($G(^IBE(363.32,DA,0)),U,2)=2,+$O(^IBE(363.34,""C"",DA,0)) W !,""Can not Delete a Group that has Provider Discounts defined!"",!"
^DD(363.32,.01,"DT")="2981228"
^DD(363.32,.02,0)="TYPE^RS^1:REVENUE CODE LINK;2:PROVIDER DISCOUNT;^0;2^Q"
^DD(363.32,.02,3)="Enter the type of this group."
^DD(363.32,.02,21,0)="^^1^1^2981228^"
^DD(363.32,.02,21,1,0)="This defines the type of data that will be associated with this group."
^DD(363.32,.02,"DT")="2990413"
^DD(363.32,11,0)="BILLING RATE/SET^363.3211PA^^11;0"
^DD(363.32,11,"DT")="2990428"
^DD(363.32,"B","BILLING RATE/SET",11)=""
^DD(363.32,"B","NAME",.01)=""
^DD(363.32,"B","TYPE",.02)=""
^DD(363.32,"GL",0,1,.01)=""
^DD(363.32,"GL",0,2,.02)=""
^DD(363.32,"GL",11,0,11)=""
^DD(363.32,"IX",.01)=""
^DD(363.32,"RQ",.01)=""
^DD(363.32,"RQ",.02)=""
^DD(363.32,"SB",363.3211,11)=""
^DD(363.3211,0)="BILLING RATE/SET SUB-FIELD^^.03^3"
^DD(363.3211,0,"DT")="2990428"
^DD(363.3211,0,"IX","B",363.3211,.01)=""
^DD(363.3211,0,"NM","BILLING RATE/SET")=""
^DD(363.3211,0,"UP")="363.32"
^DD(363.3211,.01,0)="BILLING RATE^MP363.3'^IBE(363.3,^0;1^Q"
^DD(363.3211,.01,1,0)="^.1"
^DD(363.3211,.01,1,1,0)="363.3211^B"
^DD(363.3211,.01,1,1,1)="S ^IBE(363.32,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(363.3211,.01,1,1,2)="K ^IBE(363.32,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(363.3211,.01,3)="Enter the Billing Rate(s) this group applies to."
^DD(363.3211,.01,21,0)="^^2^2^2990428^^^^"
^DD(363.3211,.01,21,1,0)="This is the Billing rate the special links defined by this group should"
^DD(363.3211,.01,21,2,0)="be applied to during billing."
^DD(363.3211,.01,"DT")="2990428"
^DD(363.3211,.02,0)="CHARGE SET^*P363.1'^IBE(363.1,^0;2^S DIC(""S"")=""I +$P(^(0),U,2)=+$G(^IBE(363.32,+$G(DA(1)),11,+$G(DA),0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.3211,.02,3)="If only some of a Billing Rates Charge Sets should be assigned to this Special Group, enter one of those Charge Sets."
^DD(363.3211,.02,12)="Charge Sets for this Billing Rate Only!"
^DD(363.3211,.02,12.1)="S DIC(""S"")=""I +$P(^(0),U,2)=+$G(^IBE(363.32,+$G(DA(1)),11,+$G(DA),0))"""
^DD(363.3211,.02,21,0)="^^6^6^2990428^"
^DD(363.3211,.02,21,1,0)="An entire Billing Rate may be assigned to a Special Group, in this case"
^DD(363.3211,.02,21,2,0)="no Charge Set is needed."
^DD(363.3211,.02,21,3,0)=" "
^DD(363.3211,.02,21,4,0)="If all Charge Sets of a Billing Rate should not be assigned to a Special"
^DD(363.3211,.02,21,5,0)="Group then enter one of the Charge Sets that should be assigned to the"
^DD(363.3211,.02,21,6,0)="Group."
^DD(363.3211,.02,"DT")="2990428"
^DD(363.3211,.03,0)="ORDER^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(363.3211,.03,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(363.3211,.03,21,0)="^^3^3^2990428^"
^DD(363.3211,.03,21,1,0)="If a Billing Rate or Charge Set has been assigned to more than one Special"
^DD(363.3211,.03,21,2,0)="Group then enter the order of precedence that should determine the order"
^DD(363.3211,.03,21,3,0)="they should be used."
^DD(363.3211,.03,"DT")="2990428"
^DD(363.3211,"B","BILLING RATE",.01)=""
^DD(363.3211,"B","CHARGE SET",.02)=""
^DD(363.3211,"B","ORDER",.03)=""
^DD(363.3211,"GL",0,1,.01)=""
^DD(363.3211,"GL",0,2,.02)=""
^DD(363.3211,"GL",0,3,.03)=""
^DD(363.3211,"IX",.01)=""
^DD(363.33,0)="FIELD^^.04^4"
^DD(363.33,0,"DDA")="N"
^DD(363.33,0,"DT")="2990420"
^DD(363.33,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(363.32,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(363.32,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(363.33,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ICPT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(81,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(363.33,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ICPT(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(81,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(363.33,0,"IX","AGP",363.33,.02)=""
^DD(363.33,0,"IX","AGP1",363.33,.03)=""
^DD(363.33,0,"IX","AGPE",363.33,.02)=""
^DD(363.33,0,"IX","AGPE1",363.33,.04)=""
^DD(363.33,0,"IX","B",363.33,.01)=""
^DD(363.33,0,"IX","C",363.33,.02)=""
^DD(363.33,0,"NM","BILLING REVENUE CODE LINKS")=""
^DD(363.33,0,"VR")="2.0"
^DD(363.33,0,"VRPK")="IB"
^DD(363.33,.01,0)="REVENUE CODE^R*P399.2'^DGCR(399.2,^0;1^S DIC(""S"")=""I +$P(^(0),U,3)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.33,.01,1,0)="^.1"
^DD(363.33,.01,1,1,0)="363.33^B"
^DD(363.33,.01,1,1,1)="S ^IBE(363.33,""B"",$E(X,1,30),DA)="""""
^DD(363.33,.01,1,1,2)="K ^IBE(363.33,""B"",$E(X,1,30),DA)"
^DD(363.33,.01,3)="Enter a Revenue Code that should be used to bill this care."
^DD(363.33,.01,12)="Active Revenue Codes Only!"
^DD(363.33,.01,12.1)="S DIC(""S"")=""I +$P(^(0),U,3)=1"""
^DD(363.33,.01,21,0)="^^2^2^2990420^"
^DD(363.33,.01,21,1,0)="This is a Revenue Code that is required to be used when billing a certain"
^DD(363.33,.01,21,2,0)="type of care."
^DD(363.33,.01,"DT")="2990420"
^DD(363.33,.02,0)="GROUP^R*P363.32'^IBE(363.32,^0;2^S DIC(""S"")=""I +$P(^(0),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.33,.02,1,0)="^.1"
^DD(363.33,.02,1,1,0)="363.33^C"
^DD(363.33,.02,1,1,1)="S ^IBE(363.33,""C"",$E(X,1,30),DA)="""""
^DD(363.33,.02,1,1,2)="K ^IBE(363.33,""C"",$E(X,1,30),DA)"
^DD(363.33,.02,1,1,"DT")="2990420"
^DD(363.33,.02,1,2,0)="363.33^AGP^MUMPS"
^DD(363.33,.02,1,2,1)="I +X,+$P($G(^IBE(363.33,DA,0)),U,3) S ^IBE(363.33,""AGP"",+X,+$P(^(0),U,3),DA)="""""
^DD(363.33,.02,1,2,2)="I +X,+$P($G(^IBE(363.33,DA,0)),U,3) K ^IBE(363.33,""AGP"",+X,+$P(^(0),U,3),DA)"
^DD(363.33,.02,1,2,"%D",0)="^^1^1^2990713^^^"
^DD(363.33,.02,1,2,"%D",1,0)="Cross reference of Procedure 1 by Group."
^DD(363.33,.02,1,2,"DT")="2990713"
^DD(363.33,.02,1,3,0)="363.33^AGPE^MUMPS"
^DD(363.33,.02,1,3,1)="I +X,+$P($G(^IBE(363.33,DA,0)),U,4) S ^IBE(363.33,""AGPE"",+X,+$P(^(0),U,4),DA)="""""
^DD(363.33,.02,1,3,2)="I +X,+$P($G(^IBE(363.33,DA,0)),U,4) K ^IBE(363.33,""AGPE"",+X,+$P(^(0),U,4),DA)"
^DD(363.33,.02,1,3,"%D",0)="^^1^1^2990713^^"
^DD(363.33,.02,1,3,"%D",1,0)="Cross reference of Procedure 2 by Group, end of a range."
^DD(363.33,.02,1,3,"DT")="2990713"
^DD(363.33,.02,3)="Enter the name of the group this revenue code link applies to."
^DD(363.33,.02,12)="Revenue Code Link Groups Only!"
^DD(363.33,.02,12.1)="S DIC(""S"")=""I +$P(^(0),U,2)=1"""
^DD(363.33,.02,21,0)="^^2^2^2990420^"
^DD(363.33,.02,21,1,0)="This group defines which Billing Rates the revenue code link should be "
^DD(363.33,.02,21,2,0)="applied to."
^DD(363.33,.02,"DT")="2990713"
^DD(363.33,.03,0)="PROCEDURE 1^R*P81'^ICPT(^0;3^S DIC(""S"")=""I +$P($$CPT^ICPTCOD(Y,DT),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.33,.03,1,0)="^.1"
^DD(363.33,.03,1,1,0)="363.33^AGP1^MUMPS"
^DD(363.33,.03,1,1,1)="I +X,+$P($G(^IBE(363.33,DA,0)),U,2) S ^IBE(363.33,""AGP"",+$P(^(0),U,2),+X,DA)="""""
^DD(363.33,.03,1,1,2)="I +X,+$P($G(^IBE(363.33,DA,0)),U,2) K ^IBE(363.33,""AGP"",+$P(^(0),U,2),+X,DA)"
^DD(363.33,.03,1,1,"%D",0)="^^1^1^2990713^^"
^DD(363.33,.03,1,1,"%D",1,0)="Cross reference of Procedure 1 by Group."
^DD(363.33,.03,1,1,"DT")="2990713"
^DD(363.33,.03,3)="Enter a procedure that requires a specific revenue code on a bill."
^DD(363.33,.03,12)="Active Procedures Only!"
^DD(363.33,.03,12.1)="S DIC(""S"")=""I +$P($$CPT^ICPTCOD(Y,DT),U,7)"""
^DD(363.33,.03,21,0)="^^3^3^2990420^^"
^DD(363.33,.03,21,1,0)="This is a procedure that requires a specific revenue code on a certain type "
^DD(363.33,.03,21,2,0)="of bill.  If there is a range of procedures for a particular revenue code "
^DD(363.33,.03,21,3,0)="then enter the first procedure in the range."
^DD(363.33,.03,"DT")="2990713"
^DD(363.33,.04,0)="PROCEDURE 2^*P81'^ICPT(^0;4^S DIC(""S"")=""I +$P($$CPT^ICPTCOD(Y,DT),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.33,.04,1,0)="^.1"
^DD(363.33,.04,1,1,0)="363.33^AGPE1^MUMPS"
^DD(363.33,.04,1,1,1)="I +X,+$P($G(^IBE(363.33,DA,0)),U,2) S ^IBE(363.33,""AGPE"",+$P(^(0),U,2),+X,DA)="""""
^DD(363.33,.04,1,1,2)="I +X,+$P($G(^IBE(363.33,DA,0)),U,2) K ^IBE(363.33,""AGPE"",+$P(^(0),U,2),+X,DA)"
^DD(363.33,.04,1,1,"%D",0)="^^1^1^2990713^^"
^DD(363.33,.04,1,1,"%D",1,0)="Cross reference of Procedure 2 by Group, end of a range."
^DD(363.33,.04,1,1,"DT")="2990713"
^DD(363.33,.04,3)="If a range of procedures requires a specific revenue code when billed then enter the last procedure in the range."
^DD(363.33,.04,12)="Active Procedures Only!"
^DD(363.33,.04,12.1)="S DIC(""S"")=""I +$P($$CPT^ICPTCOD(Y,DT),U,7)"""
^DD(363.33,.04,21,0)="^^2^2^2990420^^"
^DD(363.33,.04,21,1,0)="This is the last procedure in a range of procedures that require a specific "
^DD(363.33,.04,21,2,0)="revenue code when billed."
^DD(363.33,.04,"DT")="2990713"
^DD(363.33,"B","GROUP",.02)=""
^DD(363.33,"B","PROCEDURE 1",.03)=""
^DD(363.33,"B","PROCEDURE 2",.04)=""
^DD(363.33,"B","REVENUE CODE",.01)=""
^DD(363.33,"GL",0,1,.01)=""
^DD(363.33,"GL",0,2,.02)=""
^DD(363.33,"GL",0,3,.03)=""
^DD(363.33,"GL",0,4,.04)=""
^DD(363.33,"IX",.01)=""
^DD(363.33,"IX",.02)=""
^DD(363.33,"IX",.03)=""
^DD(363.33,"IX",.04)=""
^DD(363.33,"RQ",.01)=""
^DD(363.33,"RQ",.02)=""
^DD(363.33,"RQ",.03)=""
^DD(363.34,0)="FIELD^^11^4"
^DD(363.34,0,"DDA")="N"
^DD(363.34,0,"DT")="2990420"
^DD(363.34,0,"IX","B",363.34,.01)=""
^DD(363.34,0,"IX","C",363.34,.02)=""
^DD(363.34,0,"IX","D",363.3411,.01)=""
^DD(363.34,0,"NM","BILLING PROVIDER DISCOUNT")=""
^DD(363.34,0,"VR")="2.0"
^DD(363.34,0,"VRPK")="IB"
^DD(363.34,.01,0)="PROVIDER TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(363.34,.01,1,0)="^.1"
^DD(363.34,.01,1,1,0)="363.34^B"
^DD(363.34,.01,1,1,1)="S ^IBE(363.34,""B"",$E(X,1,30),DA)="""""
^DD(363.34,.01,1,1,2)="K ^IBE(363.34,""B"",$E(X,1,30),DA)"
^DD(363.34,.01,3)="Answer must be 3-30 characters in length.  Enter the name of a type of provider that should have a discount applied."
^DD(363.34,.01,21,0)="^^4^4^2990714^^^^"
^DD(363.34,.01,21,1,0)="This is a descriptive name of a type of provider that has an associated"
^DD(363.34,.01,21,2,0)="discount and one or more person class.  A Provider of one of the"
^DD(363.34,.01,21,3,0)="assigned person classes will have the discount applied to the care they"
^DD(363.34,.01,21,4,0)="provide."
^DD(363.34,.01,"DT")="2990116"
^DD(363.34,.02,0)="GROUP^R*P363.32'^IBE(363.32,^0;2^S DIC(""S"")=""I +$P(^(0),U,2)=2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.34,.02,1,0)="^.1"
^DD(363.34,.02,1,1,0)="363.34^C"
^DD(363.34,.02,1,1,1)="S ^IBE(363.34,""C"",$E(X,1,30),DA)="""""
^DD(363.34,.02,1,1,2)="K ^IBE(363.34,""C"",$E(X,1,30),DA)"
^DD(363.34,.02,1,1,"DT")="2990420"
^DD(363.34,.02,3)="Enter the name of the special group this provider discount belongs to."
^DD(363.34,.02,12)="Provider Discount Groups Only!"
^DD(363.34,.02,12.1)="S DIC(""S"")=""I +$P(^(0),U,2)=2"""
^DD(363.34,.02,21,0)="^^2^2^2990420^"
^DD(363.34,.02,21,1,0)="This group defines which Billing Rates this provider discount should be"
^DD(363.34,.02,21,2,0)="applied to."
^DD(363.34,.02,"DT")="2990420"
^DD(363.34,.03,0)="PERCENT^NJ6,2^^0;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(363.34,.03,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(363.34,.03,21,0)="^^2^2^2990420^"
^DD(363.34,.03,21,1,0)="This is the percentage of the total charge for a physician that should be"
^DD(363.34,.03,21,2,0)="billed for this provider type."
^DD(363.34,.03,"DT")="2990420"
^DD(363.34,11,0)="PERSON CLASS^363.3411PA^^11;0"
^DD(363.34,11,21,0)="^^1^1^2990714^^^^"
^DD(363.34,11,21,1,0)="The Person Classes associated with this Provider Type."
^DD(363.34,"B","GROUP",.02)=""
^DD(363.34,"B","PERCENT",.03)=""
^DD(363.34,"B","PERSON CLASS",11)=""
^DD(363.34,"B","PROVIDER TYPE",.01)=""
^DD(363.34,"GL",0,1,.01)=""
^DD(363.34,"GL",0,2,.02)=""
^DD(363.34,"GL",0,3,.03)=""
^DD(363.34,"GL",11,0,11)=""
^DD(363.34,"IX",.01)=""
^DD(363.34,"IX",.02)=""
^DD(363.34,"RQ",.01)=""
^DD(363.34,"RQ",.02)=""
^DD(363.34,"SB",363.3411,11)=""
^DD(363.3411,0)="PERSON CLASS SUB-FIELD^^.01^1"
^DD(363.3411,0,"DT")="2990116"
^DD(363.3411,0,"IX","B",363.3411,.01)=""
^DD(363.3411,0,"NM","PERSON CLASS")=""
^DD(363.3411,0,"UP")="363.34"
^DD(363.3411,.01,0)="PERSON CLASS^M*P8932.1'^USC(8932.1,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""a"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(363.3411,.01,1,0)="^.1"
^DD(363.3411,.01,1,1,0)="363.3411^B"
^DD(363.3411,.01,1,1,1)="S ^IBE(363.34,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(363.3411,.01,1,1,2)="K ^IBE(363.34,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(363.3411,.01,1,2,0)="363.34^D"
^DD(363.3411,.01,1,2,1)="S ^IBE(363.34,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(363.3411,.01,1,2,2)="K ^IBE(363.34,""D"",$E(X,1,30),DA(1),DA)"
^DD(363.3411,.01,1,2,"%D",0)="^^1^1^2990116^"
^DD(363.3411,.01,1,2,"%D",1,0)="Cross reference of all Person Class's."
^DD(363.3411,.01,1,2,"DT")="2990116"
^DD(363.3411,.01,3)="Enter a person class that should have the discount associated with this provider type applied to the charges for care."
^DD(363.3411,.01,12)="Active Person Class's Only!"
^DD(363.3411,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""a"""""""
^DD(363.3411,.01,21,0)="^^3^3^2990420^^^^"
^DD(363.3411,.01,21,1,0)="The person class identifies which providers should be associated with this"
^DD(363.3411,.01,21,2,0)="provider type.  All providers with this person class will have the "
^DD(363.3411,.01,21,3,0)="discount applied to charges for their care when billed."
^DD(363.3411,.01,"DT")="2990116"
^DD(363.3411,"B","PERSON CLASS",.01)=""
^DD(363.3411,"GL",0,1,.01)=""
^DD(363.3411,"IX",.01)=""
^DD(364,0)="FIELD^^.08^7"
^DD(364,0,"DDA")="N"
^DD(364,0,"DT")="3010216"
^DD(364,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(364.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(364.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(364,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(364,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(364,0,"ID",.04)="W ""   "",$E($P(^(0),U,4),4,5)_""-""_$E($P(^(0),U,4),6,7)_""-""_$E($P(^(0),U,4),2,3)"
^DD(364,0,"IX","ASTAT",364,.03)=""
^DD(364,0,"IX","B",364,.01)=""
^DD(364,0,"IX","C",364,.02)=""
^DD(364,0,"NM","EDI TRANSMIT BILL")=""
^DD(364,0,"PT",361,.11)=""
^DD(364,0,"PT",361.1,.19)=""
^DD(364,0,"PT",364.2,.05)=""
^DD(364,0,"VR")="2.0"
^DD(364,0,"VRPK")="IB"
^DD(364,.01,0)="BILL NUMBER^RP399'^DGCR(399,^0;1^Q"
^DD(364,.01,1,0)="^.1^^-1"
^DD(364,.01,1,1,0)="364^B"
^DD(364,.01,1,1,1)="S ^IBA(364,""B"",$E(X,1,30),DA)="""""
^DD(364,.01,1,1,2)="K ^IBA(364,""B"",$E(X,1,30),DA)"
^DD(364,.01,3)="Enter the bill number that was EDI transmitted."
^DD(364,.01,"DT")="3000523"
^DD(364,.02,0)="BATCH NUMBER^P364.1'^IBA(364.1,^0;2^Q"
^DD(364,.02,1,0)="^.1^^-1"
^DD(364,.02,1,3,0)="364^C"
^DD(364,.02,1,3,1)="S ^IBA(364,""C"",$E(X,1,30),DA)="""""
^DD(364,.02,1,3,2)="K ^IBA(364,""C"",$E(X,1,30),DA)"
^DD(364,.02,1,3,3)="DO NOT DELETE"
^DD(364,.02,1,3,"%D",0)="^^1^1^2960905^"
^DD(364,.02,1,3,"%D",1,0)="Lookup by batch"
^DD(364,.02,1,3,"DT")="2960905"
^DD(364,.02,21,0)="^^1^1^2951205^"
^DD(364,.02,21,1,0)="The EDI transmission batch that includes this bill entry."
^DD(364,.02,"DT")="2991115"
^DD(364,.03,0)="TRANSMISSION STATUS^RS^X:READY FOR EXTRACT;P:PENDING AUSTIN RECEIPT;A0:RECEIVED IN AUSTIN;A1:ACCEPTED BY NON-PAYER;A2:ACCEPTED PAYER;E:ERROR CONDITION;C:CANCELLED;R:CORRECTED/RETRANSMITTED;Z:CLOSED;^0;3^Q"
^DD(364,.03,1,0)="^.1^^-1"
^DD(364,.03,1,1,0)="364^ASTAT"
^DD(364,.03,1,1,1)="S ^IBA(364,""ASTAT"",$E(X,1,30),DA)="""""
^DD(364,.03,1,1,2)="K ^IBA(364,""ASTAT"",$E(X,1,30),DA)"
^DD(364,.03,1,1,3)="DO NOT DELETE"
^DD(364,.03,1,1,"DT")="2960209"
^DD(364,.03,3)="Enter the current status for this bill transmission."
^DD(364,.03,21,0)="^^1^1^2970602^^^^"
^DD(364,.03,21,1,0)="The current transmission status of this EDI transmission attempt for the bill."
^DD(364,.03,"DT")="3010927"
^DD(364,.04,0)="STATUS DATE^DX^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364,.04,1,0)="^.1^^0"
^DD(364,.04,3)="Enter the date/time that the current status occurred."
^DD(364,.04,21,0)="^^1^1^2951205^"
^DD(364,.04,21,1,0)="The date/time that the current status occurred."
^DD(364,.04,"DT")="2991115"
^DD(364,.06,0)="RESUBMIT BATCH NUMBER^P364.1'^IBA(364.1,^0;6^Q"
^DD(364,.06,3)="Enter the batch number this bill was included in when resubmitted."
^DD(364,.06,21,0)="^.001^1^1^3020814^^"
^DD(364,.06,21,1,0)="This is the batch number this bill was included in when resubmitted."
^DD(364,.06,"DT")="2960918"
^DD(364,.07,0)="TEST BILL^S^0:NO;1:YES;^0;7^Q"
^DD(364,.07,3)="Enter 0 or nothing for a live transmission, 1 for a test"
^DD(364,.07,21,0)="^^2^2^2970602^"
^DD(364,.07,21,1,0)="This indicates whether or not the bill is being transmitted to the test"
^DD(364,.07,21,2,0)="queue or live queue."
^DD(364,.07,"DT")="2970602"
^DD(364,.08,0)="COB SEQUENCE^S^P:PRIMARY;S:SECONDARY;T:TERTIARY;^0;8^Q"
^DD(364,.08,1,0)="^.1^^0"
^DD(364,.08,3)="Enter the COB sequence that this bill was in when this entry was created"
^DD(364,.08,21,0)="^^2^2^2990701^"
^DD(364,.08,21,1,0)="This is the COB sequence for the bill when it was transmitted.  This is used"
^DD(364,.08,21,2,0)="to relate the return messages with the correct COB sequence payer."
^DD(364,.08,"DT")="3000523"
^DD(364,"B","BATCH NUMBER",.02)=""
^DD(364,"B","BILL NUMBER",.01)=""
^DD(364,"B","COB SEQUENCE",.08)=""
^DD(364,"B","RESUBMIT BATCH NUMBER",.06)=""
^DD(364,"B","STATUS DATE",.04)=""
^DD(364,"B","TEST BILL",.07)=""
^DD(364,"B","TRANSMISSION STATUS",.03)=""
^DD(364,"GL",0,1,.01)=""
^DD(364,"GL",0,2,.02)=""
^DD(364,"GL",0,3,.03)=""
^DD(364,"GL",0,4,.04)=""
^DD(364,"GL",0,6,.06)=""
^DD(364,"GL",0,7,.07)=""
^DD(364,"GL",0,8,.08)=""
^DD(364,"IX",.01)=""
^DD(364,"IX",.02)=""
^DD(364,"IX",.03)=""
^DD(364,"RQ",.01)=""
^DD(364,"RQ",.03)=""
^DD(364.1,0)="FIELD^^1.06^21"
^DD(364.1,0,"DDA")="N"
^DD(364.1,0,"DT")="3010913"
^DD(364.1,0,"ID",.08)="W ""   "",$P(^(0),U,8)"
^DD(364.1,0,"IX","AINC",364.1,.1)=""
^DD(364.1,0,"IX","ALT",364.1,1.03)=""
^DD(364.1,0,"IX","ASTAT",364.1,.02)=""
^DD(364.1,0,"IX","ATYP",364.1,.07)=""
^DD(364.1,0,"IX","B",364.1,.01)=""
^DD(364.1,0,"IX","C",364.1,.01)=""
^DD(364.1,0,"IX","MSG",364.1,.04)=""
^DD(364.1,0,"NM","EDI TRANSMISSION BATCH")=""
^DD(364.1,0,"PT",361,.05)=""
^DD(364.1,0,"PT",361.1,100.01)=""
^DD(364.1,0,"PT",361.41,.02)=""
^DD(364.1,0,"PT",364,.02)=""
^DD(364.1,0,"PT",364,.06)=""
^DD(364.1,0,"PT",364.1,.15)=""
^DD(364.1,0,"PT",364.2,.04)=""
^DD(364.1,0,"VR")="2.0"
^DD(364.1,0,"VRPK")="IB"
^DD(364.1,.01,0)="BATCH NUMBER^RNJ10,0^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(364.1,.01,1,0)="^.1"
^DD(364.1,.01,1,1,0)="364.1^B"
^DD(364.1,.01,1,1,1)="S ^IBA(364.1,""B"",$E(X,1,30),DA)="""""
^DD(364.1,.01,1,1,2)="K ^IBA(364.1,""B"",$E(X,1,30),DA)"
^DD(364.1,.01,1,2,0)="364.1^C^MUMPS"
^DD(364.1,.01,1,2,1)="S ^IBA(364.1,""C"",+$E(X,4,$L(X)),DA)="""""
^DD(364.1,.01,1,2,2)="K ^IBA(364.1,""C"",+$E(X,4,$L(X)),DA)"
^DD(364.1,.01,1,2,3)="DO NOT DELETE"
^DD(364.1,.01,1,2,"%D",0)="^^1^1^2960910^"
^DD(364.1,.01,1,2,"%D",1,0)="Lookup batch number without station prefix."
^DD(364.1,.01,1,2,"DT")="2960910"
^DD(364.1,.01,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(364.1,.01,21,0)="^^1^1^2951205^"
^DD(364.1,.01,21,1,0)="The number of the batch for EDI transmissions."
^DD(364.1,.01,"DT")="2960910"
^DD(364.1,.02,0)="LATEST RECEIPT STATUS^S^P:PENDING AUSTIN RECEIPT;A0:RECEIVED IN AUSTIN;^0;2^Q"
^DD(364.1,.02,1,0)="^.1"
^DD(364.1,.02,1,1,0)="^^TRIGGER^364.1^1.06"
^DD(364.1,.02,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(364.1,.02,1,1,1.1) X ^DD(364.1,.02,1,1,1.4)"
^DD(364.1,.02,1,1,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(364.1,.02,1,1,1.4)="S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,6)=DIV,DIH=364.1,DIG=1.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.1,.02,1,1,2)="Q"
^DD(364.1,.02,1,1,"CREATE VALUE")="NOW"
^DD(364.1,.02,1,1,"DELETE VALUE")="NO EFFECT"
^DD(364.1,.02,1,1,"FIELD")="#1.06"
^DD(364.1,.02,1,2,0)="364.1^ASTAT"
^DD(364.1,.02,1,2,1)="S ^IBA(364.1,""ASTAT"",$E(X,1,30),DA)="""""
^DD(364.1,.02,1,2,2)="K ^IBA(364.1,""ASTAT"",$E(X,1,30),DA)"
^DD(364.1,.02,1,2,3)="DO NOT DELETE"
^DD(364.1,.02,1,2,"%D",0)="^^1^1^2960917^"
^DD(364.1,.02,1,2,"%D",1,0)="Xref by status"
^DD(364.1,.02,1,2,"DT")="2960917"
^DD(364.1,.02,3)="Enter the latest receipt status tracked for this batch"
^DD(364.1,.02,21,0)="^^3^3^2960411^^^^"
^DD(364.1,.02,21,1,0)="This field indicates where the last receipt for this batch came from.  It is"
^DD(364.1,.02,21,2,0)="used in tracking how far a batch has gone in the transmission path for as"
^DD(364.1,.02,21,3,0)="long as it can be tracked with electronic receipt messages."
^DD(364.1,.02,"DT")="3010913"
^DD(364.1,.03,0)="NUMBER OF BILLS^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(364.1,.03,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(364.1,.03,21,0)="^^1^1^2961003^^^"
^DD(364.1,.03,21,1,0)="This is the total number of bills currently under the control of this batch."
^DD(364.1,.03,"DT")="2990305"
^DD(364.1,.04,0)="MAIL MESSAGE^NJ15,0^^0;4^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(364.1,.04,1,0)="^.1"
^DD(364.1,.04,1,1,0)="364.1^MSG"
^DD(364.1,.04,1,1,1)="S ^IBA(364.1,""MSG"",$E(X,1,30),DA)="""""
^DD(364.1,.04,1,1,2)="K ^IBA(364.1,""MSG"",$E(X,1,30),DA)"
^DD(364.1,.04,1,1,3)="DO NOT DELETE"
^DD(364.1,.04,1,1,"DT")="2960417"
^DD(364.1,.04,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(364.1,.04,21,0)="^.001^1^1^3020923^^^^"
^DD(364.1,.04,21,1,0)="This is the number of the mail message that was generated for this batch."
^DD(364.1,.04,"DT")="3020923"
^DD(364.1,.05,0)="BATCH REJECTED^S^1:YES;0:NO;^0;5^Q"
^DD(364.1,.05,3)="Enter 0 (NO) if batch has not been rejected, 1 (YES) if it has"
^DD(364.1,.05,5,1,0)="364.1^.11^1"
^DD(364.1,.05,21,0)="^^2^2^2960411^"
^DD(364.1,.05,21,1,0)="This field indicates whether or not a batch has been rejected at any point"
^DD(364.1,.05,21,2,0)="in the transmission path."
^DD(364.1,.05,"DT")="2960411"
^DD(364.1,.06,0)="BILL TYPE^S^2:CMS-1500 (PROF);3:UB-04 (INST);^0;6^Q"
^DD(364.1,.06,3)="ENTER THE TYPE OF BILL CONTAINED IN THIS BATCH"
^DD(364.1,.06,21,0)="^^1^1^3070116^^"
^DD(364.1,.06,21,1,0)="THIS IS THE TYPE OF BILL THAT IS CONTAINED IN THIS BATCH"
^DD(364.1,.06,"DT")="3070116"
^DD(364.1,.07,0)="BATCH TYPE^S^1:EDI 837 BILL SUBMISSION;^0;7^Q"
^DD(364.1,.07,1,0)="^.1"
^DD(364.1,.07,1,1,0)="364.1^ATYP"
^DD(364.1,.07,1,1,1)="S ^IBA(364.1,""ATYP"",$E(X,1,30),DA)="""""
^DD(364.1,.07,1,1,2)="K ^IBA(364.1,""ATYP"",$E(X,1,30),DA)"
^DD(364.1,.07,1,1,3)="DO NOT DELETE"
^DD(364.1,.07,1,1,"%D",0)="^^1^1^2961002^"
^DD(364.1,.07,1,1,"%D",1,0)="Xref by batch type"
^DD(364.1,.07,1,1,"DT")="2961002"
^DD(364.1,.07,3)="Enter the code that corresponds to the type of data in the batch."
^DD(364.1,.07,21,0)="^^1^1^2960905^"
^DD(364.1,.07,21,1,0)="This identifies the type of ANSI X12 data contained in the batch."
^DD(364.1,.07,"DT")="2961002"
^DD(364.1,.08,0)="DESCRIPTION^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(364.1,.08,3)="Answer must be 1-80 characters in length."
^DD(364.1,.08,21,0)="^^1^1^2960905^^"
^DD(364.1,.08,21,1,0)="This is a free text description to identify the contents of the batch."
^DD(364.1,.08,"DT")="2960905"
^DD(364.1,.09,0)="BATCH RESUBMIT TASK^F^^0;9^K:$L(X)>15!($L(X)<1) X"
^DD(364.1,.09,3)="Answer must be 1-15 characters in length."
^DD(364.1,.09,21,0)="^^3^3^2961003^^^"
^DD(364.1,.09,21,1,0)="If the batch is being resubmitted, this is the task # of the task that is"
^DD(364.1,.09,21,2,0)="doing the resubmission if the job is queued.  No entry is made here if the"
^DD(364.1,.09,21,3,0)="task is not queued."
^DD(364.1,.09,"DT")="2960916"
^DD(364.1,.1,0)="BATCH RESUBMIT INCOMPLETE^S^0:NO;1:YES;^0;10^Q"
^DD(364.1,.1,1,0)="^.1"
^DD(364.1,.1,1,1,0)="364.1^AINC^MUMPS"
^DD(364.1,.1,1,1,1)="S:X=1 ^IBA(364.1,""AINC"",1,DA)="""""
^DD(364.1,.1,1,1,2)="K:X=1 ^IBA(364.1,""AINC"",1,DA)"
^DD(364.1,.1,1,1,3)="DO NOT DELETE"
^DD(364.1,.1,1,1,"%D",0)="^^1^1^2960926^"
^DD(364.1,.1,1,1,"%D",1,0)="Xref used to track batches not completely resubmitted."
^DD(364.1,.1,1,1,"DT")="2960926"
^DD(364.1,.1,3)="Enter YES if batch resubmit was incomplete."
^DD(364.1,.1,21,0)="^^3^3^2960918^^"
^DD(364.1,.1,21,1,0)="This field is 0 or null if batch either was not resubmitted or if all bills"
^DD(364.1,.1,21,2,0)="in the batch have been resubmitted.  It is a 1 (YES) if any bills in the"
^DD(364.1,.1,21,3,0)="batch were not resubmitted, but the batch itself was."
^DD(364.1,.1,"DT")="2960926"
^DD(364.1,.11,0)="REJECT MESSAGE^P364.2'^IBA(364.2,^0;11^Q"
^DD(364.1,.11,1,0)="^.1"
^DD(364.1,.11,1,1,0)="^^TRIGGER^364.1^.05"
^DD(364.1,.11,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^IBA(364.2,+Y(0),0)):"""",1:$P(^(0),U,1))'="""" I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(364.1,.11,1,1,1.4)"
^DD(364.1,.11,1,1,1.4)="S DIH=$S($D(^IBA(364.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=364.1,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.1,.11,1,1,2)="Q"
^DD(364.1,.11,1,1,"CREATE CONDITION")="REJECT MESSAGE'="""""
^DD(364.1,.11,1,1,"CREATE VALUE")="S X=1"
^DD(364.1,.11,1,1,"DELETE VALUE")="NO EFFECT"
^DD(364.1,.11,1,1,"FIELD")="BATCH REJECTED"
^DD(364.1,.11,3)="Enter the number of the reject message for this batch"
^DD(364.1,.11,21,0)="^^1^1^2960919^"
^DD(364.1,.11,21,1,0)="Pointer to the reject message received for this batch."
^DD(364.1,.11,"DT")="2960919"
^DD(364.1,.12,0)="INSURANCE COMPANY^P36'^DIC(36,^0;12^Q"
^DD(364.1,.12,3)="ENTER THE NAME OF THE INSURANCE COMPANY WHOSE BILLS ARE CONTAINED IN THIS BATCH"
^DD(364.1,.12,21,0)="^^1^1^2981113^^^"
^DD(364.1,.12,21,1,0)="This is the insurance company associated with this batch."
^DD(364.1,.12,"DT")="2981113"
^DD(364.1,.13,0)="BATCH RESUBMIT DATE^DX^^0;13^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.1,.13,3)="Enter the date/time the batch was last resubmitted."
^DD(364.1,.13,21,0)="^^2^2^2961003^"
^DD(364.1,.13,21,1,0)="This is the last date/time the batch was resubmitted.  It is set when the"
^DD(364.1,.13,21,2,0)="resubmit process is done."
^DD(364.1,.13,"DT")="2961003"
^DD(364.1,.14,0)="TEST BATCH^S^0:NO;1:YES;^0;14^Q"
^DD(364.1,.14,3)="Enter YES (1) indicate a test batch in a production environment "
^DD(364.1,.14,21,0)="^^2^2^2970602^"
^DD(364.1,.14,21,1,0)="This field indicates the batch is a test batch in a production environment."
^DD(364.1,.14,21,2,0)="All bills in this batch will have also been printed."
^DD(364.1,.14,"DT")="2970602"
^DD(364.1,.15,0)="PREVIOUS BATCH^*P364.1'^IBA(364.1,^0;15^S DIC(""S"")=""I +Y'=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(364.1,.15,3)="Enter the number of the batch that was resubmitted in this batch"
^DD(364.1,.15,12)="Cannot point to itself"
^DD(364.1,.15,12.1)="S DIC(""S"")=""I +Y'=DA"""
^DD(364.1,.15,21,0)="^^3^3^2990305^"
^DD(364.1,.15,21,1,0)="If this data exists, this batch was created as a result of another batch"
^DD(364.1,.15,21,2,0)="being resubmitted.  This data references the original batch that contained"
^DD(364.1,.15,21,3,0)="the bills that are now contained in this batch."
^DD(364.1,.15,"DT")="2990305"
^DD(364.1,1.01,0)="DATE FIRST SENT^DX^^1;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.1,1.01,1,0)="^.1"
^DD(364.1,1.01,1,1,0)="^^TRIGGER^364.1^1.03"
^DD(364.1,1.01,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(364.1,1.01,1,1,1.4)"
^DD(364.1,1.01,1,1,1.4)="S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=364.1,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.1,1.01,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(364.1,1.01,1,1,2.4)"
^DD(364.1,1.01,1,1,2.4)="S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=364.1,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.1,1.01,1,1,"CREATE CONDITION")="DATE LAST SENT="""""
^DD(364.1,1.01,1,1,"CREATE VALUE")="DATE FIRST SENT"
^DD(364.1,1.01,1,1,"DELETE VALUE")="@"
^DD(364.1,1.01,1,1,"FIELD")="DATE LAST SENT"
^DD(364.1,1.01,3)="Enter the first date/time that the batch was transmitted."
^DD(364.1,1.01,21,0)="^^1^1^2960212^"
^DD(364.1,1.01,21,1,0)="This is the date/time that this batch was first transmitted."
^DD(364.1,1.01,"DT")="2961002"
^DD(364.1,1.02,0)="FIRST SENT BY^P200'^VA(200,^1;2^Q"
^DD(364.1,1.02,1,0)="^.1"
^DD(364.1,1.02,1,1,0)="^^TRIGGER^364.1^1.04"
^DD(364.1,1.02,1,1,1)="X ^DD(364.1,1.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(364.1,1.02,1,1,1.4)"
^DD(364.1,1.02,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1))="""""
^DD(364.1,1.02,1,1,1.4)="S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,4)=DIV,DIH=364.1,DIG=1.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.1,1.02,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(364.1,1.02,1,1,2.4)"
^DD(364.1,1.02,1,1,2.4)="S DIH=$S($D(^IBA(364.1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,4)=DIV,DIH=364.1,DIG=1.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.1,1.02,1,1,"CREATE CONDITION")="LAST SENT BY="""""
^DD(364.1,1.02,1,1,"CREATE VALUE")="INTERNAL(FIRST SENT BY)"
^DD(364.1,1.02,1,1,"DELETE VALUE")="@"
^DD(364.1,1.02,1,1,"DT")="2990203"
^DD(364.1,1.02,1,1,"FIELD")="LAST SENT BY"
^DD(364.1,1.02,3)="Enter the name of the user responsible for the first transmission of this batch."
^DD(364.1,1.02,21,0)="^^2^2^2960212^"
^DD(364.1,1.02,21,1,0)="The name of the user who was responsible for the first transmission of this"
^DD(364.1,1.02,21,2,0)="batch."
^DD(364.1,1.02,"DT")="2990203"
^DD(364.1,1.03,0)="DATE LAST SENT^DX^^1;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.1,1.03,1,0)="^.1"
^DD(364.1,1.03,1,1,0)="364.1^ALT"
^DD(364.1,1.03,1,1,1)="S ^IBA(364.1,""ALT"",$E(X,1,30),DA)="""""
^DD(364.1,1.03,1,1,2)="K ^IBA(364.1,""ALT"",$E(X,1,30),DA)"
^DD(364.1,1.03,1,1,3)="DO NOT DELETE"
^DD(364.1,1.03,1,1,"%D",0)="^^1^1^2961002^"
^DD(364.1,1.03,1,1,"%D",1,0)="Xref by last transmit date"
^DD(364.1,1.03,1,1,"DT")="2961002"
^DD(364.1,1.03,3)="Enter the last date/time that the batch was transmitted."
^DD(364.1,1.03,5,1,0)="364.1^1.01^1"
^DD(364.1,1.03,21,0)="^^1^1^2960212^"
^DD(364.1,1.03,21,1,0)="This is the date/time that the batch was last transmitted."
^DD(364.1,1.03,"DT")="2961002"
^DD(364.1,1.04,0)="LAST SENT BY^P200'^VA(200,^1;4^Q"
^DD(364.1,1.04,3)="Enter the name of the user responsible for the last transmission of this batch."
^DD(364.1,1.04,5,1,0)="364.1^1.02^1"
^DD(364.1,1.04,21,0)="^^2^2^2960212^"
^DD(364.1,1.04,21,1,0)="The name of the user who was responsible for the last transmission of this"
^DD(364.1,1.04,21,2,0)="batch."
^DD(364.1,1.04,"DT")="2970121"
^DD(364.1,1.05,0)="LATEST STATUS DATE^DX^^1;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.1,1.05,3)="Enter the date and time associated with the latest status."
^DD(364.1,1.05,21,0)="^^2^2^2960411^^"
^DD(364.1,1.05,21,1,0)="This is the date and time contained on the latest receipt message for this"
^DD(364.1,1.05,21,2,0)="batch."
^DD(364.1,1.05,"DT")="2961002"
^DD(364.1,1.06,0)="DATE LATEST STATUS RECORDED^DX^^1;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.1,1.06,3)="Enter the date and time that the latest status was recorded in this file"
^DD(364.1,1.06,5,1,0)="364.1^.02^1"
^DD(364.1,1.06,21,0)="^^1^1^2960411^^"
^DD(364.1,1.06,21,1,0)="This is the date and time the latest status was recorded in this file."
^DD(364.1,1.06,"DT")="2961002"
^DD(364.1,"B","BATCH NUMBER",.01)=""
^DD(364.1,"B","BATCH REJECTED",.05)=""
^DD(364.1,"B","BATCH RESUBMIT DATE",.13)=""
^DD(364.1,"B","BATCH RESUBMIT INCOMPLETE",.1)=""
^DD(364.1,"B","BATCH RESUBMIT TASK",.09)=""
^DD(364.1,"B","BATCH TYPE",.07)=""
^DD(364.1,"B","BILL TYPE",.06)=""
^DD(364.1,"B","DATE FIRST SENT",1.01)=""
^DD(364.1,"B","DATE LAST SENT",1.03)=""
^DD(364.1,"B","DATE LATEST STATUS RECORDED",1.06)=""
^DD(364.1,"B","DESCRIPTION",.08)=""
^DD(364.1,"B","FIRST SENT BY",1.02)=""
^DD(364.1,"B","INSURANCE COMPANY",.12)=""
^DD(364.1,"B","LAST SENT BY",1.04)=""
^DD(364.1,"B","LATEST RECEIPT STATUS",.02)=""
^DD(364.1,"B","LATEST STATUS DATE",1.05)=""
^DD(364.1,"B","MAIL MESSAGE",.04)=""
^DD(364.1,"B","NUMBER OF BILLS",.03)=""
^DD(364.1,"B","PREVIOUS BATCH",.15)=""
^DD(364.1,"B","REJECT MESSAGE",.11)=""
^DD(364.1,"B","TEST BATCH",.14)=""
^DD(364.1,"GL",0,1,.01)=""
^DD(364.1,"GL",0,2,.02)=""
^DD(364.1,"GL",0,3,.03)=""
^DD(364.1,"GL",0,4,.04)=""
^DD(364.1,"GL",0,5,.05)=""
^DD(364.1,"GL",0,6,.06)=""
^DD(364.1,"GL",0,7,.07)=""
^DD(364.1,"GL",0,8,.08)=""
^DD(364.1,"GL",0,9,.09)=""
^DD(364.1,"GL",0,10,.1)=""
^DD(364.1,"GL",0,11,.11)=""
^DD(364.1,"GL",0,12,.12)=""
^DD(364.1,"GL",0,13,.13)=""
^DD(364.1,"GL",0,14,.14)=""
^DD(364.1,"GL",0,15,.15)=""
^DD(364.1,"GL",1,1,1.01)=""
^DD(364.1,"GL",1,2,1.02)=""
^DD(364.1,"GL",1,3,1.03)=""
^DD(364.1,"GL",1,4,1.04)=""
^DD(364.1,"GL",1,5,1.05)=""
^DD(364.1,"GL",1,6,1.06)=""
^DD(364.1,"IX",.01)=""
^DD(364.1,"IX",.02)=""
^DD(364.1,"IX",.04)=""
^DD(364.1,"IX",.07)=""
^DD(364.1,"IX",.1)=""
^DD(364.1,"IX",.11)=""
^DD(364.1,"IX",1.01)=""
^DD(364.1,"IX",1.02)=""
^DD(364.1,"IX",1.03)=""
^DD(364.1,"RQ",.01)=""
^DD(364.2,0)="FIELD^^2^16"
^DD(364.2,0,"DDA")="N"
^DD(364.2,0,"DT")="3010226"
^DD(364.2,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(364.1,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(364.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(364.2,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(364,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(364,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(364.2,0,"IX","ABA",364.2,.04)=""
^DD(364.2,0,"IX","ABI",364.2,.05)=""
^DD(364.2,0,"IX","AMAN",364.2,.01)=""
^DD(364.2,0,"IX","AMD",364.2,.1)=""
^DD(364.2,0,"IX","AMS",364.2,.06)=""
^DD(364.2,0,"IX","AMT",364.2,.02)=""
^DD(364.2,0,"IX","ARD",364.2,.03)=""
^DD(364.2,0,"IX","ASCD",364.2,1.03)=""
^DD(364.2,0,"IX","B",364.2,.01)=""
^DD(364.2,0,"IX","C",364.2,.05)=""
^DD(364.2,0,"NM","EDI MESSAGES")=""
^DD(364.2,0,"PT",364.1,.11)=""
^DD(364.2,0,"VR")="2.0"
^DD(364.2,0,"VRPK")="IB"
^DD(364.2,.01,0)="MESSAGE #^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(364.2,.01,1,0)="^.1"
^DD(364.2,.01,1,1,0)="364.2^B"
^DD(364.2,.01,1,1,1)="S ^IBA(364.2,""B"",$E(X,1,30),DA)="""""
^DD(364.2,.01,1,1,2)="K ^IBA(364.2,""B"",$E(X,1,30),DA)"
^DD(364.2,.01,1,2,0)="364.2^AMAN^MUMPS"
^DD(364.2,.01,1,2,1)="S:$P(X,""-"",2)=""MAN"" ^IBA(364.2,""AMAN"",+X,DA)="""""
^DD(364.2,.01,1,2,2)="K:$P(X,""-"",2)=""MAN"" ^IBA(364.2,""AMAN"",+X,DA)"
^DD(364.2,.01,1,2,3)="DO NOT DELETE"
^DD(364.2,.01,1,2,"%D",0)="^^1^1^2961016^"
^DD(364.2,.01,1,2,"%D",1,0)="This xref allows a unique number for each manual entry."
^DD(364.2,.01,1,2,"DT")="2961016"
^DD(364.2,.01,3)="Answer must be 2-30 characters in length."
^DD(364.2,.01,"DT")="2980723"
^DD(364.2,.02,0)="MESSAGE TYPE^P364.3'^IBE(364.3,^0;2^Q"
^DD(364.2,.02,1,0)="^.1"
^DD(364.2,.02,1,1,0)="364.2^AMT"
^DD(364.2,.02,1,1,1)="S ^IBA(364.2,""AMT"",$E(X,1,30),DA)="""""
^DD(364.2,.02,1,1,2)="K ^IBA(364.2,""AMT"",$E(X,1,30),DA)"
^DD(364.2,.02,1,1,3)="DO NOT DELETE"
^DD(364.2,.02,1,1,"%D",0)="^^1^1^2960514^"
^DD(364.2,.02,1,1,"%D",1,0)="Cross reference by message type"
^DD(364.2,.02,1,1,"DT")="2960514"
^DD(364.2,.02,3)="Enter the type of message that is contained in this record"
^DD(364.2,.02,21,0)="^^3^3^3000118^^^^"
^DD(364.2,.02,21,1,0)="This field contains the type of message that is represented by this record."
^DD(364.2,.02,21,2,0)="It is used to determine the type of processing and processing options"
^DD(364.2,.02,21,3,0)="that will be allowed for this message."
^DD(364.2,.02,"DT")="2960514"
^DD(364.2,.03,0)="DATE RECORDED^DX^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.2,.03,1,0)="^.1"
^DD(364.2,.03,1,1,0)="364.2^ARD"
^DD(364.2,.03,1,1,1)="S ^IBA(364.2,""ARD"",$E(X,1,30),DA)="""""
^DD(364.2,.03,1,1,2)="K ^IBA(364.2,""ARD"",$E(X,1,30),DA)"
^DD(364.2,.03,1,1,3)="DO NOT DELETE"
^DD(364.2,.03,1,1,"%D",0)="^^1^1^2960515^"
^DD(364.2,.03,1,1,"%D",1,0)="Cross reference by date recorded"
^DD(364.2,.03,1,1,"DT")="2960515"
^DD(364.2,.03,3)="Enter the date/time this record was added to the file."
^DD(364.2,.03,21,0)="^^1^1^2951206^"
^DD(364.2,.03,21,1,0)="This is the date and time that this record was recorded in this file."
^DD(364.2,.03,"DT")="2961002"
^DD(364.2,.04,0)="BATCH NUMBER^P364.1'^IBA(364.1,^0;4^Q"
^DD(364.2,.04,1,0)="^.1"
^DD(364.2,.04,1,1,0)="364.2^ABA"
^DD(364.2,.04,1,1,1)="S ^IBA(364.2,""ABA"",$E(X,1,30),DA)="""""
^DD(364.2,.04,1,1,2)="K ^IBA(364.2,""ABA"",$E(X,1,30),DA)"
^DD(364.2,.04,1,1,3)="DO NOT DELETE"
^DD(364.2,.04,1,1,"%D",0)="^^1^1^2960513^"
^DD(364.2,.04,1,1,"%D",1,0)="This is a cross reference by batch #."
^DD(364.2,.04,1,1,"DT")="2960513"
^DD(364.2,.04,3)="Enter the batch number associated with this message."
^DD(364.2,.04,21,0)="^^2^2^2951206^^"
^DD(364.2,.04,21,1,0)="This is the batch number this message is associated with.  This field only"
^DD(364.2,.04,21,2,0)="applies to message types that deal with batch processing."
^DD(364.2,.04,"DT")="2960513"
^DD(364.2,.05,0)="TRANSMIT BILL^P364'^IBA(364,^0;5^Q"
^DD(364.2,.05,1,0)="^.1"
^DD(364.2,.05,1,1,0)="364.2^ABI"
^DD(364.2,.05,1,1,1)="S ^IBA(364.2,""ABI"",$E(X,1,30),DA)="""""
^DD(364.2,.05,1,1,2)="K ^IBA(364.2,""ABI"",$E(X,1,30),DA)"
^DD(364.2,.05,1,1,3)="DO NOT DELETE"
^DD(364.2,.05,1,1,"%D",0)="^^1^1^2960513^"
^DD(364.2,.05,1,1,"%D",1,0)="Cross reference by bill #"
^DD(364.2,.05,1,1,"DT")="2960513"
^DD(364.2,.05,1,2,0)="364.2^C"
^DD(364.2,.05,1,2,1)="S ^IBA(364.2,""C"",$E(X,1,30),DA)="""""
^DD(364.2,.05,1,2,2)="K ^IBA(364.2,""C"",$E(X,1,30),DA)"
^DD(364.2,.05,1,2,"%D",0)="^^1^1^2990621^"
^DD(364.2,.05,1,2,"%D",1,0)="Allows lookup of messages by bill #"
^DD(364.2,.05,1,2,"DT")="2990621"
^DD(364.2,.05,3)="Enter the bill number that this message is associated with."
^DD(364.2,.05,21,0)="^^2^2^2951206^^"
^DD(364.2,.05,21,1,0)="This is the bill number this message is associated with.  This field only"
^DD(364.2,.05,21,2,0)="applies to message types that deal with bill processing."
^DD(364.2,.05,"DT")="2990621"
^DD(364.2,.06,0)="STATUS^RS^P:PENDING;U:UPDATING;^0;6^Q"
^DD(364.2,.06,1,0)="^.1"
^DD(364.2,.06,1,1,0)="364.2^AMS"
^DD(364.2,.06,1,1,1)="S ^IBA(364.2,""AMS"",$E(X,1,30),DA)="""""
^DD(364.2,.06,1,1,2)="K ^IBA(364.2,""AMS"",$E(X,1,30),DA)"
^DD(364.2,.06,1,1,3)="DO NOT DELETE"
^DD(364.2,.06,1,1,"%D",0)="^^1^1^2960514^^"
^DD(364.2,.06,1,1,"%D",1,0)="Cross reference by message status"
^DD(364.2,.06,1,1,"DT")="2960514"
^DD(364.2,.06,1,2,0)="^^TRIGGER^364.2^1.03"
^DD(364.2,.06,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(364.2,.06,1,2,1.1) X ^DD(364.2,.06,1,2,1.4)"
^DD(364.2,.06,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(364.2,.06,1,2,1.4)="S DIH=$S($D(^IBA(364.2,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=364.2,DIG=1.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.2,.06,1,2,2)="Q"
^DD(364.2,.06,1,2,3)="DO NOT DELETE"
^DD(364.2,.06,1,2,"%D",0)="^^1^1^2960909^"
^DD(364.2,.06,1,2,"%D",1,0)="Triggers status change date when status is changed."
^DD(364.2,.06,1,2,"CREATE VALUE")="NOW"
^DD(364.2,.06,1,2,"DELETE VALUE")="NO EFFECT"
^DD(364.2,.06,1,2,"DT")="2960909"
^DD(364.2,.06,1,2,"FIELD")="STATUS CHANGED DATE"
^DD(364.2,.06,1,3,0)="^^TRIGGER^364.2^1.04"
^DD(364.2,.06,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(364.2,.06,1,3,1.4)"
^DD(364.2,.06,1,3,1.4)="S DIH=$S($D(^IBA(364.2,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,4)=DIV,DIH=364.2,DIG=1.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.2,.06,1,3,2)="Q"
^DD(364.2,.06,1,3,3)="DO NOT DELETE"
^DD(364.2,.06,1,3,"%D",0)="^^1^1^2960909^"
^DD(364.2,.06,1,3,"%D",1,0)="Triggers status changed by when status is changed."
^DD(364.2,.06,1,3,"CREATE VALUE")="S X=$G(DUZ)"
^DD(364.2,.06,1,3,"DELETE VALUE")="NO EFFECT"
^DD(364.2,.06,1,3,"DT")="2960909"
^DD(364.2,.06,1,3,"FIELD")="STATUS CHANGED BY"
^DD(364.2,.06,3)="Enter the current status of this message."
^DD(364.2,.06,21,0)="^^1^1^2960502^^^"
^DD(364.2,.06,21,1,0)="This is the current status of this message."
^DD(364.2,.06,"DT")="3010226"
^DD(364.2,.07,0)="PATIENT^P2'^DPT(^0;7^Q"
^DD(364.2,.07,3)="Enter the name of the patient associated with this message"
^DD(364.2,.07,21,0)="^^2^2^2960924^"
^DD(364.2,.07,21,1,0)="If this is not a bill processing type message, it must be a patient type"
^DD(364.2,.07,21,2,0)="message.  This is the name of the patient referenced in this type of record."
^DD(364.2,.07,"DT")="2960924"
^DD(364.2,.08,0)="SOURCE LEVEL^S^0:PRIOR TO PAYER;1:FROM PAYER;^0;8^Q"
^DD(364.2,.08,3)="Enter 0 if source is other than payer, otherwise enter 1"
^DD(364.2,.08,21,0)="^^3^3^2980825^"
^DD(364.2,.08,21,1,0)="This field identifies the level of the source of the EDI message.  If it"
^DD(364.2,.08,21,2,0)="was generated by the payer, this field is a 1.  If the message was"
^DD(364.2,.08,21,3,0)="generated by other than the payer, this field is null or 0."
^DD(364.2,.08,"DT")="2980825"
^DD(364.2,.1,0)="MESSAGE DATE^DX^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.2,.1,1,0)="^.1"
^DD(364.2,.1,1,1,0)="364.2^AMD"
^DD(364.2,.1,1,1,1)="S ^IBA(364.2,""AMD"",$E(X,1,30),DA)="""""
^DD(364.2,.1,1,1,2)="K ^IBA(364.2,""AMD"",$E(X,1,30),DA)"
^DD(364.2,.1,1,1,3)="DO NOT DELETE"
^DD(364.2,.1,1,1,"%D",0)="^^1^1^2960515^"
^DD(364.2,.1,1,1,"%D",1,0)="Cross reference by message date"
^DD(364.2,.1,1,1,"DT")="2960515"
^DD(364.2,.1,3)="Enter the date/time this message was generated."
^DD(364.2,.1,21,0)="^^2^2^2980729^^^"
^DD(364.2,.1,21,1,0)="This is the date and time when the message was generated.  It will be"
^DD(364.2,.1,21,2,0)="taken from the return message transaction."
^DD(364.2,.1,"DT")="2961002"
^DD(364.2,.11,0)="UPDATE TASK^NJ11,0^^0;11^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(364.2,.11,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(364.2,.11,21,0)="^^1^1^2960305^"
^DD(364.2,.11,21,1,0)="This is the last Task Manager job that was entered for this transaction."
^DD(364.2,.11,"DT")="2960924"
^DD(364.2,.12,0)="DATA BASE UPDATED^S^0:NO;1:YES;^0;12^Q"
^DD(364.2,.12,3)="Enter NO if data base not updated, YES if it has been"
^DD(364.2,.12,21,0)="^^3^3^2960925^"
^DD(364.2,.12,21,1,0)="This is a flag that keeps track of whether or not this message has been"
^DD(364.2,.12,21,2,0)="applied against the data base and updated the appropriate statuses of the"
^DD(364.2,.12,21,3,0)="transmit bill and any other appropriate files."
^DD(364.2,.12,"DT")="2960925"
^DD(364.2,.13,0)="SOURCE^F^^0;13^K:$L(X)>45!($L(X)<1) X"
^DD(364.2,.13,3)="Answer must be 1-45 characters in length."
^DD(364.2,.13,21,0)="^^1^1^2991021^"
^DD(364.2,.13,21,1,0)="This is the text to identify who sent the message."
^DD(364.2,.13,"DT")="2991021"
^DD(364.2,.14,0)="CLAIM RESUBMITTED TEST^S^0:NO;1:YES;^0;14^Q"
^DD(364.2,.14,3)="Enter a 1 (YES) if the message was received for a test claim from a resubmission for test."
^DD(364.2,.14,21,0)="^.001^4^4^3050321^^"
^DD(364.2,.14,21,1,0)="This is a flag that indicates if the status message is for a non-TEST"
^DD(364.2,.14,21,2,0)="claim, a test claim that was sent as TEST only or a live EDI claim that was"
^DD(364.2,.14,21,3,0)="resubmitted as a test claim.  The first 2 instances will always have a 0"
^DD(364.2,.14,21,4,0)="(NO) here, while the third instance will have a 1 (YES)."
^DD(364.2,.14,23,0)="^.001^4^4^3050321^^"
^DD(364.2,.14,23,1,0)="The way this flag is calcualted is to first look to see if the message"
^DD(364.2,.14,23,2,0)="was received from the test queue.  If it was not, this field is NO.  If"
^DD(364.2,.14,23,3,0)="it was, and the last entry for the claim in file 364 indicates it was a"
^DD(364.2,.14,23,4,0)="test claim, this flag is NO.  Otherwise, the flag is YES."
^DD(364.2,.14,"DT")="3050127"
^DD(364.2,1.03,0)="STATUS CHANGED DATE^DX^^1;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,12)"
^DD(364.2,1.03,1,0)="^.1"
^DD(364.2,1.03,1,1,0)="364.2^ASCD"
^DD(364.2,1.03,1,1,1)="S ^IBA(364.2,""ASCD"",$E(X,1,30),DA)="""""
^DD(364.2,1.03,1,1,2)="K ^IBA(364.2,""ASCD"",$E(X,1,30),DA)"
^DD(364.2,1.03,1,1,3)="DO NOT DELETE"
^DD(364.2,1.03,1,1,"%D",0)="^^1^1^2960924^"
^DD(364.2,1.03,1,1,"%D",1,0)="Xref used for purging messages"
^DD(364.2,1.03,1,1,"DT")="2960924"
^DD(364.2,1.03,3)="Enter the date/time the status was last changed"
^DD(364.2,1.03,5,1,0)="364.2^.06^2"
^DD(364.2,1.03,21,0)="^^1^1^2960515^"
^DD(364.2,1.03,21,1,0)="This is the date and time that the status was last changed."
^DD(364.2,1.03,"DT")="2961002"
^DD(364.2,1.04,0)="STATUS CHANGED BY^P200'^VA(200,^1;4^Q"
^DD(364.2,1.04,3)="Enter the name of the user who last changed the status"
^DD(364.2,1.04,5,1,0)="364.2^.06^3"
^DD(364.2,1.04,21,0)="^^1^1^2960515^"
^DD(364.2,1.04,21,1,0)="The name of the person who last changed the status of this message."
^DD(364.2,1.04,"DT")="2970121"
^DD(364.2,2,0)="MESSAGE^364.21^^2;0"
^DD(364.2,2,"DT")="2980728"
^DD(364.2,"B","BATCH NUMBER",.04)=""
^DD(364.2,"B","CLAIM RESUBMITTED TEST",.14)=""
^DD(364.2,"B","DATA BASE UPDATED",.12)=""
^DD(364.2,"B","DATE RECORDED",.03)=""
^DD(364.2,"B","MESSAGE",2)=""
^DD(364.2,"B","MESSAGE #",.01)=""
^DD(364.2,"B","MESSAGE DATE",.1)=""
^DD(364.2,"B","MESSAGE TYPE",.02)=""
^DD(364.2,"B","PATIENT",.07)=""
^DD(364.2,"B","SOURCE",.13)=""
^DD(364.2,"B","SOURCE LEVEL",.08)=""
^DD(364.2,"B","STATUS",.06)=""
^DD(364.2,"B","STATUS CHANGED BY",1.04)=""
^DD(364.2,"B","STATUS CHANGED DATE",1.03)=""
^DD(364.2,"B","TRANSMIT BILL",.05)=""
^DD(364.2,"B","UPDATE TASK",.11)=""
^DD(364.2,"GL",0,1,.01)=""
^DD(364.2,"GL",0,2,.02)=""
^DD(364.2,"GL",0,3,.03)=""
^DD(364.2,"GL",0,4,.04)=""
^DD(364.2,"GL",0,5,.05)=""
^DD(364.2,"GL",0,6,.06)=""
^DD(364.2,"GL",0,7,.07)=""
^DD(364.2,"GL",0,8,.08)=""
^DD(364.2,"GL",0,10,.1)=""
^DD(364.2,"GL",0,11,.11)=""
^DD(364.2,"GL",0,12,.12)=""
^DD(364.2,"GL",0,13,.13)=""
^DD(364.2,"GL",0,14,.14)=""
^DD(364.2,"GL",1,3,1.03)=""
^DD(364.2,"GL",1,4,1.04)=""
^DD(364.2,"GL",2,0,2)=""
^DD(364.2,"IX",.01)=""
^DD(364.2,"IX",.02)=""
^DD(364.2,"IX",.03)=""
^DD(364.2,"IX",.04)=""
^DD(364.2,"IX",.05)=""
^DD(364.2,"IX",.06)=""
^DD(364.2,"IX",.1)=""
^DD(364.2,"IX",1.03)=""
^DD(364.2,"RQ",.01)=""
^DD(364.2,"RQ",.06)=""
^DD(364.2,"SB",364.21,2)=""
^DD(364.21,0)="MESSAGE SUB-FIELD^^.01^1"
^DD(364.21,0,"DT")="2980729"
^DD(364.21,0,"NM","MESSAGE")=""
^DD(364.21,0,"UP")="364.2"
^DD(364.21,.01,0)="MESSAGE^WL^^0;1^Q"
^DD(364.21,.01,3)="Enter the message or actual return message format (preceeded by ##)"
^DD(364.21,.01,21,0)="^^2^2^2980729^^"
^DD(364.21,.01,21,1,0)="This is control information or actual text of the mailman message."
^DD(364.21,.01,21,2,0)="Control information starts with ## in the first 2 characters."
^DD(364.21,.01,"DT")="2980729"
^DD(364.21,"B","MESSAGE",.01)=""
^DD(364.21,"GL",0,1,.01)=""
^DD(364.3,0)="FIELD^^.06^6"
^DD(364.3,0,"DDA")="N"
^DD(364.3,0,"DT")="2980729"
^DD(364.3,0,"ID",.05)="W ""   "",$P(^(0),U,5)"
^DD(364.3,0,"IX","B",364.3,.01)=""
^DD(364.3,0,"NM","IB MESSAGE ROUTER")=""
^DD(364.3,0,"PT",364.2,.02)=""
^DD(364.3,0,"VR")="2.0"
^DD(364.3,0,"VRPK")="IB"
^DD(364.3,.01,0)="MESSAGE CODE^RFX^^0;1^K:$L(X)>7 X"
^DD(364.3,.01,1,0)="^.1"
^DD(364.3,.01,1,1,0)="364.3^B"
^DD(364.3,.01,1,1,1)="S ^IBE(364.3,""B"",$E(X,1,30),DA)="""""
^DD(364.3,.01,1,1,2)="K ^IBE(364.3,""B"",$E(X,1,30),DA)"
^DD(364.3,.01,3)="Answer must be 1-7 characters in length."
^DD(364.3,.01,21,0)="^^2^2^2960411^^^^"
^DD(364.3,.01,21,1,0)="This is the message code that can be processed by the EDI return message"
^DD(364.3,.01,21,2,0)="module."
^DD(364.3,.01,"DT")="2960411"
^DD(364.3,.02,0)="MAILGROUP TO NOTIFY^P3.8'^XMB(3.8,^0;2^Q"
^DD(364.3,.02,3)="Enter the name of the mail group that will receive errors or notification of this transaction type."
^DD(364.3,.02,21,0)="^^2^2^2960304^"
^DD(364.3,.02,21,1,0)="This is the mail group which will receive transaction processing error"
^DD(364.3,.02,21,2,0)="messages and notifications."
^DD(364.3,.02,"DT")="2960304"
^DD(364.3,.03,0)="TAG^F^^0;3^K:$L(X)>8!($L(X)<1) X"
^DD(364.3,.03,3)="Answer must be 1-8 characters in length."
^DD(364.3,.03,9)="@"
^DD(364.3,.03,21,0)="^.001^1^1^3000414^^^"
^DD(364.3,.03,21,1,0)="This is the entry point for transaction processing."
^DD(364.3,.03,"DT")="2960304"
^DD(364.3,.04,0)="ROUTINE^F^^0;4^K:$L(X)>10!($L(X)<3) X"
^DD(364.3,.04,3)="Answer must be 3-10 characters in length."
^DD(364.3,.04,9)="@"
^DD(364.3,.04,21,0)="^.001^1^1^3000414^^"
^DD(364.3,.04,21,1,0)="This is the routine for transaction processing."
^DD(364.3,.04,"DT")="2960304"
^DD(364.3,.05,0)="SHORT DESCRIPTION^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(364.3,.05,3)="Answer must be 1-30 characters in length."
^DD(364.3,.05,21,0)="^^3^3^2960416^"
^DD(364.3,.05,21,1,0)="This is a short description of the transaction's purpose.  It is displayed"
^DD(364.3,.05,21,2,0)="when an error occurs on the transaction type to give the user a better"
^DD(364.3,.05,21,3,0)="definition of the message's intended use."
^DD(364.3,.05,"DT")="2960416"
^DD(364.3,.06,0)="DISPLAY TEXT^F^^0;6^K:$L(X)>6!($L(X)<1) X"
^DD(364.3,.06,3)="Answer must be 1-6 characters in length."
^DD(364.3,.06,21,0)="^^1^1^2980729^"
^DD(364.3,.06,21,1,0)="This is the text to display for this message type"
^DD(364.3,.06,"DT")="2980729"
^DD(364.3,"B","DISPLAY TEXT",.06)=""
^DD(364.3,"B","MAILGROUP TO NOTIFY",.02)=""
^DD(364.3,"B","MESSAGE CODE",.01)=""
^DD(364.3,"B","ROUTINE",.04)=""
^DD(364.3,"B","SHORT DESCRIPTION",.05)=""
^DD(364.3,"B","TAG",.03)=""
^DD(364.3,"GL",0,1,.01)=""
^DD(364.3,"GL",0,2,.02)=""
^DD(364.3,"GL",0,3,.03)=""
^DD(364.3,"GL",0,4,.04)=""
^DD(364.3,"GL",0,5,.05)=""
^DD(364.3,"GL",0,6,.06)=""
^DD(364.3,"IX",.01)=""
^DD(364.3,"RQ",.01)=""
^DD(364.4,0)="FIELD^^10.04^18"
^DD(364.4,0,"DDA")="N"
^DD(364.4,0,"DT")="3010307"
^DD(364.4,0,"ID",.08)="W ""   "",$P(^(0),U,8)"
^DD(364.4,0,"IX","AC",364.4,.11)=""
^DD(364.4,0,"IX","B",364.4,.01)=""
^DD(364.4,0,"NM","IB EDI TRANSMISSION RULE")=""
^DD(364.4,0,"VR")="2.0"
^DD(364.4,0,"VRPK")="IB"
^DD(364.4,.01,0)="RULE NUMBER^RNJ6,0X^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X<99 N DIR,Y,IBX S IBX=X K X D EN^DDIOL(""Use a # > 99 to protect local rules from national updates"") S DIR(0)=""YA"",DIR(""A"")=""OK to continue? "" D ^DIR K DIR,X S:Y X=IBX"
^DD(364.4,.01,1,0)="^.1"
^DD(364.4,.01,1,1,0)="364.4^B"
^DD(364.4,.01,1,1,1)="S ^IBE(364.4,""B"",$E(X,1,30),DA)="""""
^DD(364.4,.01,1,1,2)="K ^IBE(364.4,""B"",$E(X,1,30),DA)"
^DD(364.4,.01,1,1,"DT")="2990419"
^DD(364.4,.01,1,2,0)="^^TRIGGER^364.4^.04"
^DD(364.4,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(364.4,.01,1,2,1.4)"
^DD(364.4,.01,1,2,1.4)="S DIH=$S($D(^IBE(364.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.4,DIG=.04 D ^DICR"
^DD(364.4,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(364.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(364.4,.01,1,2,2.4)"
^DD(364.4,.01,1,2,2.4)="S DIH=$S($D(^IBE(364.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.4,DIG=.04 D ^DICR"
^DD(364.4,.01,1,2,3)="Do not delete"
^DD(364.4,.01,1,2,"%D",0)="^^4^4^2990426^"
^DD(364.4,.01,1,2,"%D",1,0)="This trigger is used to force a 3 into the TYPE OF CARE field because"
^DD(364.4,.01,1,2,"%D",2,0)="CO thinks it does not need it, but the field thinks it might.  For now, the"
^DD(364.4,.01,1,2,"%D",3,0)="code will assume it is always a '3' (both inpt and outpt) and when/if they"
^DD(364.4,.01,1,2,"%D",4,0)="realize they need this field, it will be ready for their use."
^DD(364.4,.01,1,2,"CREATE VALUE")="S X=3"
^DD(364.4,.01,1,2,"DELETE VALUE")="@"
^DD(364.4,.01,1,2,"DT")="2990426"
^DD(364.4,.01,1,2,"FIELD")="#.04"
^DD(364.4,.01,3)="Type a Number from 0-999999 (0-99 are reserved for national use.  Use at your own risk!!)"
^DD(364.4,.01,21,0)="^^2^2^2990419^^"
^DD(364.4,.01,21,1,0)="This is the rule # given to identify this rule.  Rules 1-99 are reserved"
^DD(364.4,.01,21,2,0)="for National EDI rules and are not editable."
^DD(364.4,.01,"DT")="2990426"
^DD(364.4,.02,0)="EARLIEST ACTIVATE DATE^DX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),'$$BTDTOK^IBCEF61(DA,"""",1,X) K X"
^DD(364.4,.02,3)="Enter a date here if this rule should be effective in the future.  Must be less than entered expire date."
^DD(364.4,.02,21,0)="^^1^1^2990416^"
^DD(364.4,.02,21,1,0)="This is a date in the future when this rule will automatically be used."
^DD(364.4,.02,"DT")="2990503"
^DD(364.4,.03,0)="TRANSMISSION TYPE^RS^1:EDI only;2:MRA only;3:Both EDI and MRA;^0;3^Q"
^DD(364.4,.03,1,0)="^.1^^0"
^DD(364.4,.03,3)="Select the type of transmission this rule will apply to"
^DD(364.4,.03,21,0)="^^1^1^2990416^"
^DD(364.4,.03,21,1,0)="This is the type of transmission that the rule will be executed for."
^DD(364.4,.03,"DT")="3020329"
^DD(364.4,.04,0)="TYPE OF CARE^RS^1:OUTPATIENT only;2:INPATIENT only;3:Both INPT and OUTPT;^0;4^Q"
^DD(364.4,.04,1,0)="^.1^^0"
^DD(364.4,.04,3)=" Select the type of care this rule will apply to"
^DD(364.4,.04,5,1,0)="364.4^.01^2"
^DD(364.4,.04,9)="^"
^DD(364.4,.04,21,0)="^^1^1^2990416^"
^DD(364.4,.04,21,1,0)="This is the type of care that the rule will be executed for."
^DD(364.4,.04,"DT")="3020329"
^DD(364.4,.05,0)="FORM TYPE^RS^1:INSTITUTIONAL (UB-04) only;2:PROFESSIONAL (CMS-1500) only;3:Both INST (UB-04) and PROF (CMS-1500);^0;5^Q"
^DD(364.4,.05,1,0)="^.1^^0"
^DD(364.4,.05,3)="Select the form type this rule will apply to"
^DD(364.4,.05,21,0)="^^1^1^3070116^^"
^DD(364.4,.05,21,1,0)="This is the form type that the rule will be executed for."
^DD(364.4,.05,"DT")="3070116"
^DD(364.4,.06,0)="INACTIVE DATE^DX^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),'$$BTDTOK^IBCEF61(DA,"""",2,X) K X"
^DD(364.4,.06,1,0)="^.1^^0"
^DD(364.4,.06,3)="Enter the date when this edit will no longer be used to determine if a bill is transmittable.  Must not be earlier than entered active date."
^DD(364.4,.06,21,0)="^^2^2^2990419^^"
^DD(364.4,.06,21,1,0)="This is the date on which this edit will not longer be used to determine"
^DD(364.4,.06,21,2,0)="'transmittable' for a bill."
^DD(364.4,.06,"DT")="3020329"
^DD(364.4,.07,0)="INSURANCE COMPANY OPTION^RS^1:APPLY ONLY TO SPECIFIC COMPANIES;2:DO NOT APPLY TO SPECIFIC COMPANIES;3:APPLY TO ALL COMPANIES;^0;7^Q"
^DD(364.4,.07,1,0)="^.1^^0"
^DD(364.4,.07,3)="Select the option to determine which insurance companies to apply this rule to."
^DD(364.4,.07,21,0)="^^3^3^2990416^"
^DD(364.4,.07,21,1,0)="This is the option to determine which insurance companies to apply this rule"
^DD(364.4,.07,21,2,0)="to.  If 1 or 2 are chosen, the list of insurance companies to be included"
^DD(364.4,.07,21,3,0)="or excluded should be entered in the appropriate multiple within this file."
^DD(364.4,.07,"DT")="3020329"
^DD(364.4,.08,0)="SHORT DESCRIPTION^F^^0;8^K:$L(X)>40!($L(X)<1) X"
^DD(364.4,.08,3)="Answer must be 1-40 characters in length."
^DD(364.4,.08,21,0)="^^2^2^2990419^"
^DD(364.4,.08,21,1,0)="This is a short description of the rule used for identification purposes on"
^DD(364.4,.08,21,2,0)="lookup."
^DD(364.4,.08,"DT")="2990429"
^DD(364.4,.1,0)="BILL TYPE RESTRICTIONS^364.41A^^BTYP;0"
^DD(364.4,.1,"DT")="2990429"
^DD(364.4,.11,0)="TYPE OF RULE^RS^0:LIMIT TO FORM TYPE;1:LIMIT TO SOME BILL TYPES;2:MRA REQUEST RESTRICTIONS;9:LOCALLY DEFINED;^0;11^Q"
^DD(364.4,.11,1,0)="^.1"
^DD(364.4,.11,1,1,0)="364.4^AC"
^DD(364.4,.11,1,1,1)="S ^IBE(364.4,""AC"",$E(X,1,30),DA)="""""
^DD(364.4,.11,1,1,2)="K ^IBE(364.4,""AC"",$E(X,1,30),DA)"
^DD(364.4,.11,1,1,3)="Please don't delete"
^DD(364.4,.11,1,1,"%D",0)="^^2^2^2990420^"
^DD(364.4,.11,1,1,"%D",1,0)="This xref allows a check on all rules of the same type for conflict checking"
^DD(364.4,.11,1,1,"%D",2,0)="purposes."
^DD(364.4,.11,1,1,"DT")="2990420"
^DD(364.4,.11,3)="Select the 'type' of rule this is."
^DD(364.4,.11,21,0)="^^31^31^3070116^"
^DD(364.4,.11,21,1,0)="This flag puts the rule into a 'type' category for conflict checking.  It"
^DD(364.4,.11,21,2,0)="is also a flag that can indicate this rule needs to be executed to"
^DD(364.4,.11,21,3,0)="determine if an MRA request is valid for the MEDIGAP insurance that is"
^DD(364.4,.11,21,4,0)="next in line for COB or if the claim should be directly shuttled to the"
^DD(364.4,.11,21,5,0)="MEDIGAP carrier."
^DD(364.4,.11,21,6,0)=" "
^DD(364.4,.11,21,7,0)="TYPE OF RULE = 0 (LIMIT TO FORM TYPES) is used to further limit the"
^DD(364.4,.11,21,8,0)="transmission of PROFESSIONAL (CMS-1500) or INSTITUTIONAL (UB-04) form"
^DD(364.4,.11,21,9,0)="types. If you pick one form type, no bills of the other form type will be"
^DD(364.4,.11,21,10,0)="transmitted for:"
^DD(364.4,.11,21,11,0)="a) the insurance companies you selected to include   OR"
^DD(364.4,.11,21,12,0)="b) the insurance companies not entered on the excluded list  OR"
^DD(364.4,.11,21,13,0)="c) any insurance co if all insurance companies are selected."
^DD(364.4,.11,21,14,0)=" "
^DD(364.4,.11,21,15,0)="TYPE OF RULE = 1 (LIMIT TO SOME BILL TYPES) is used to further limit the"
^DD(364.4,.11,21,16,0)="transmission of the UB-04 equivalent of bill type (111,131,etc).  These"
^DD(364.4,.11,21,17,0)="rules can be used to restrict transmissions to specific bill types or to"
^DD(364.4,.11,21,18,0)="allow all bill types except those specified (these are entered preceeded"
^DD(364.4,.11,21,19,0)="by a dash).  A 'wild card' character of X can be used to indicate that a"
^DD(364.4,.11,21,20,0)="character in that position is included (ie 11X will allow 111,112,113,etc)"
^DD(364.4,.11,21,21,0)="The rule will not allow transmission of bills matching the EDI/MRA and"
^DD(364.4,.11,21,22,0)="PROF/INST parameters and insurance co restrictions (see rule 0 above)"
^DD(364.4,.11,21,23,0)="unless they match the allowed bill types and do not match any of the"
^DD(364.4,.11,21,24,0)="excluded bill types."
^DD(364.4,.11,21,25,0)=" "
^DD(364.4,.11,21,26,0)="TYPE OF RULE = 9 (LOCAL EDITS) are local edits.  If this type of rule is"
^DD(364.4,.11,21,27,0)="used, the code entered for the edit must return a truth value of 1 if the"
^DD(364.4,.11,21,28,0)="bill should be transmitted or 0 if the bill should not be transmitted."
^DD(364.4,.11,21,29,0)="The variable IBIFN is the internal entry # of the bill (file 399), the"
^DD(364.4,.11,21,30,0)="IB(x) array contains the value of fields #.03,.04,.05,.07,.11 for the"
^DD(364.4,.11,21,31,0)="rule where 'x' is the field #. IBDA is the ien of the rule (file 364.4)."
^DD(364.4,.11,"DT")="3070116"
^DD(364.4,1,0)="RULE CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(364.4,1,3)="This is Standard MUMPS code that will be executed to enforce this rule."
^DD(364.4,1,9)="@"
^DD(364.4,1,21,0)="^^7^7^2990429^^"
^DD(364.4,1,21,1,0)="This is the MUMPS call that will execute the edit's logic and will set "
^DD(364.4,1,21,2,0)="$T to 1 for edit passed or to 0 for edit failed.  You can assume the"
^DD(364.4,1,21,3,0)="following variables are available:"
^DD(364.4,1,21,4,0)="  IBIFN = ien of the bill in file 399"
^DD(364.4,1,21,5,0)="  IB(.03) = Current value of the bill's transmission type"
^DD(364.4,1,21,6,0)="  IB(.05) = Current value of the bill's form type"
^DD(364.4,1,21,7,0)="  IB(.07) = Current value of the bill's insurance option"
^DD(364.4,1,"DT")="2990419"
^DD(364.4,2,0)="EXCLUDED INSURANCE COMPANY^364.42PA^^2;0"
^DD(364.4,3,0)="INCLUDED INSURANCE COMPANY^364.43PA^^3;0"
^DD(364.4,4,0)="RULE DESCRIPTION^364.44^^4;0"
^DD(364.4,10.01,0)="RULE ADDED BY^P200'^VA(200,^10;1^Q"
^DD(364.4,10.01,3)="Enter the name of the person who entered this rule"
^DD(364.4,10.01,21,0)="^^1^1^2990427^"
^DD(364.4,10.01,21,1,0)="This is the person responsible for adding this rule to this file."
^DD(364.4,10.01,"DT")="2990427"
^DD(364.4,10.02,0)="RULE ADDED DATE^D^^10;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(364.4,10.02,3)="Enter the date this rule was first added to the file."
^DD(364.4,10.02,21,0)="^^1^1^2990427^"
^DD(364.4,10.02,21,1,0)="This is the date this rule entry was first added to this file."
^DD(364.4,10.02,"DT")="2990427"
^DD(364.4,10.03,0)="RULE LAST EDITED BY^P200'^VA(200,^10;3^Q"
^DD(364.4,10.03,3)="Enter the name of the person who last edited this rule entry."
^DD(364.4,10.03,21,0)="^^1^1^2990427^"
^DD(364.4,10.03,21,1,0)="This is the name of the person who last edited this rule entry."
^DD(364.4,10.03,"DT")="2990427"
^DD(364.4,10.04,0)="RULE LAST EDITED DATE^D^^10;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(364.4,10.04,3)="Enter the date this rule was last edited."
^DD(364.4,10.04,21,0)="^^1^1^2990427^"
^DD(364.4,10.04,21,1,0)="This is the last date this rule was edited."
^DD(364.4,10.04,"DT")="2990427"
^DD(364.4,"B","BILL TYPE RESTRICTIONS",.1)=""
^DD(364.4,"B","EARLIEST ACTIVATE DATE",.02)=""
^DD(364.4,"B","EXCLUDED INSURANCE COMPANY",2)=""
^DD(364.4,"B","FORM TYPE",.05)=""
^DD(364.4,"B","INACTIVE DATE",.06)=""
^DD(364.4,"B","INCLUDED INSURANCE COMPANY",3)=""
^DD(364.4,"B","INSURANCE COMPANY OPTION",.07)=""
^DD(364.4,"B","RULE ADDED BY",10.01)=""
^DD(364.4,"B","RULE ADDED DATE",10.02)=""
^DD(364.4,"B","RULE CODE",1)=""
^DD(364.4,"B","RULE DESCRIPTION",4)=""
^DD(364.4,"B","RULE LAST EDITED BY",10.03)=""
^DD(364.4,"B","RULE LAST EDITED DATE",10.04)=""
^DD(364.4,"B","RULE NUMBER",.01)=""
^DD(364.4,"B","SHORT DESCRIPTION",.08)=""
^DD(364.4,"B","TRANSMISSION TYPE",.03)=""
^DD(364.4,"B","TYPE OF CARE",.04)=""
^DD(364.4,"B","TYPE OF RULE",.11)=""
^DD(364.4,"GL",0,1,.01)=""
^DD(364.4,"GL",0,2,.02)=""
^DD(364.4,"GL",0,3,.03)=""
^DD(364.4,"GL",0,4,.04)=""
^DD(364.4,"GL",0,5,.05)=""
^DD(364.4,"GL",0,6,.06)=""
^DD(364.4,"GL",0,7,.07)=""
^DD(364.4,"GL",0,8,.08)=""
^DD(364.4,"GL",0,11,.11)=""
^DD(364.4,"GL",1,"E1,245",1)=""
^DD(364.4,"GL",2,0,2)=""
^DD(364.4,"GL",3,0,3)=""
^DD(364.4,"GL",4,0,4)=""
^DD(364.4,"GL",10,1,10.01)=""
^DD(364.4,"GL",10,2,10.02)=""
^DD(364.4,"GL",10,3,10.03)=""
^DD(364.4,"GL",10,4,10.04)=""
^DD(364.4,"GL","BTYP",0,.1)=""
^DD(364.4,"IX",.01)=""
^DD(364.4,"IX",.11)=""
^DD(364.4,"RQ",.01)=""
^DD(364.4,"RQ",.03)=""
^DD(364.4,"RQ",.04)=""
^DD(364.4,"RQ",.05)=""
^DD(364.4,"RQ",.07)=""
^DD(364.4,"RQ",.11)=""
^DD(364.4,"SB",364.41,.1)=""
^DD(364.4,"SB",364.42,2)=""
^DD(364.4,"SB",364.43,3)=""
^DD(364.4,"SB",364.44,4)=""
^DD(364.41,0)="BILL TYPE RESTRICTIONS SUB-FIELD^^.03^3"
^DD(364.41,0,"DT")="2990429"
^DD(364.41,0,"IX","B",364.41,.01)=""
^DD(364.41,0,"NM","BILL TYPE RESTRICTIONS")=""
^DD(364.41,0,"UP")="364.4"
^DD(364.41,.01,0)="BILL TYPE^MRF^^0;1^K:$L(X)>4!($L(X)<3)!'(X?1""-""2N1""X""!(X?2N1""X"")!(X?1""-""1N2""X"")!(X?1N2""X"")!(X?1""-""3N)!(X?3N)!(X?3""X"")) X"
^DD(364.41,.01,1,0)="^.1"
^DD(364.41,.01,1,1,0)="364.41^B"
^DD(364.41,.01,1,1,1)="S ^IBE(364.4,DA(1),""BTYP"",""B"",$E(X,1,30),DA)="""""
^DD(364.41,.01,1,1,2)="K ^IBE(364.4,DA(1),""BTYP"",""B"",$E(X,1,30),DA)"
^DD(364.41,.01,3)="Answer must be 3-4 characters in length."
^DD(364.41,.01,21,0)="^^4^4^3070116^"
^DD(364.41,.01,21,1,0)="This field contains the UB-04 type of bill that should only be transmitted"
^DD(364.41,.01,21,2,0)="electronically.  It needs to be entered in a 3-digit format.  The first"
^DD(364.41,.01,21,3,0)="digit must be numeric, but the second and third digits can be an X to"
^DD(364.41,.01,21,4,0)="indicate any number in that position applies (11X would include 111-119)."
^DD(364.41,.01,"DT")="3070116"
^DD(364.41,.02,0)="EARLIEST ACTIVATE DATE^DX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),'$$BTDTOK^IBCEF61(DA(1),DA,1,X) K X"
^DD(364.41,.02,3)="Enter the future date this bill type should begin to be excluded from transmission checks."
^DD(364.41,.02,21,0)="^^2^2^2990419^^"
^DD(364.41,.02,21,1,0)="This is the date in the future that this bill type should start to be"
^DD(364.41,.02,21,2,0)="excluded from transmission.  This date is specific for this bill type."
^DD(364.41,.02,"DT")="2990503"
^DD(364.41,.03,0)="INACTIVE DATE^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),'$$BTDTOK^IBCEF61(DA(1),DA,2,X) K X"
^DD(364.41,.03,3)="Enter the future date this bill type should begin to be excluded from transmission checks."
^DD(364.41,.03,21,0)="^^2^2^2990419^^"
^DD(364.41,.03,21,1,0)="This is the first date on which this edit will no longer be used to"
^DD(364.41,.03,21,2,0)="determine 'transmittable' for a bill of this bill type."
^DD(364.41,.03,"DT")="2990503"
^DD(364.41,"B","BILL TYPE",.01)=""
^DD(364.41,"B","EARLIEST ACTIVATE DATE",.02)=""
^DD(364.41,"B","INACTIVE DATE",.03)=""
^DD(364.41,"GL",0,1,.01)=""
^DD(364.41,"GL",0,2,.02)=""
^DD(364.41,"GL",0,3,.03)=""
^DD(364.41,"IX",.01)=""
^DD(364.41,"RQ",.01)=""
^DD(364.42,0)="EXCLUDED INSURANCE COMPANY SUB-FIELD^^.01^1"
^DD(364.42,0,"DT")="2990416"
^DD(364.42,0,"IX","B",364.42,.01)=""
^DD(364.42,0,"NM","EXCLUDED INSURANCE COMPANY")=""
^DD(364.42,0,"UP")="364.4"
^DD(364.42,.01,0)="EXCLUDED INSURANCE COMPANY^MP36'^DIC(36,^0;1^Q"
^DD(364.42,.01,1,0)="^.1"
^DD(364.42,.01,1,1,0)="364.42^B"
^DD(364.42,.01,1,1,1)="S ^IBE(364.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(364.42,.01,1,1,2)="K ^IBE(364.4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(364.42,.01,3)="Enter the insurance companies that this edit should NOT be executed for."
^DD(364.42,.01,21,0)="^^2^2^2990416^"
^DD(364.42,.01,21,1,0)="This is the set of insurance companies for which this edit will not be"
^DD(364.42,.01,21,2,0)="executed."
^DD(364.42,.01,"DT")="2990416"
^DD(364.42,"B","EXCLUDED INSURANCE COMPANY",.01)=""
^DD(364.42,"GL",0,1,.01)=""
^DD(364.42,"IX",.01)=""
^DD(364.43,0)="INCLUDED INSURANCE COMPANY SUB-FIELD^^.01^1"
^DD(364.43,0,"DT")="2990416"
^DD(364.43,0,"IX","B",364.43,.01)=""
^DD(364.43,0,"NM","INCLUDED INSURANCE COMPANY")=""
^DD(364.43,0,"UP")="364.4"
^DD(364.43,.01,0)="INCLUDED INSURANCE COMPANY^MP36'^DIC(36,^0;1^Q"
^DD(364.43,.01,1,0)="^.1"
^DD(364.43,.01,1,1,0)="364.43^B"
^DD(364.43,.01,1,1,1)="S ^IBE(364.4,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(364.43,.01,1,1,2)="K ^IBE(364.4,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(364.43,.01,3)="Enter the insurance companies that this edit should only be executed for."
^DD(364.43,.01,21,0)="^^2^2^2990416^"
^DD(364.43,.01,21,1,0)="This is the set of insurance companies for which this edit should only be"
^DD(364.43,.01,21,2,0)="executed."
^DD(364.43,.01,"DT")="2990416"
^DD(364.43,"B","INCLUDED INSURANCE COMPANY",.01)=""
^DD(364.43,"GL",0,1,.01)=""
^DD(364.43,"IX",.01)=""
^DD(364.44,0)="RULE DESCRIPTION SUB-FIELD^^.01^1"
^DD(364.44,0,"DT")="2990416"
^DD(364.44,0,"NM","RULE DESCRIPTION")=""
^DD(364.44,0,"UP")="364.4"
^DD(364.44,.01,0)="RULE DESCRIPTION^W^^0;1^Q"
^DD(364.44,.01,3)="Enter text here to provide a broader description of the transmission rule."
^DD(364.44,.01,21,0)="^^1^1^2990416^^"
^DD(364.44,.01,21,1,0)="This is a broader description of the transmission rule."
^DD(364.44,.01,"DT")="2990416"
^DD(364.44,"B","RULE DESCRIPTION",.01)=""
^DD(364.44,"GL",0,1,.01)=""
^DD(364.5,0)="FIELD^^3^11"
^DD(364.5,0,"DDA")="N"
^DD(364.5,0,"DT")="2960311"
^DD(364.5,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(364.5,0,"IX","B",364.5,.01)=""
^DD(364.5,0,"NM","IB DATA ELEMENT DEFINITION")=""
^DD(364.5,0,"PT",364.7,.03)=""
^DD(364.5,0,"VR")="2.0"
^DD(364.5,0,"VRPK")="IB"
^DD(364.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(364.5,.01,1,0)="^.1"
^DD(364.5,.01,1,1,0)="364.5^B"
^DD(364.5,.01,1,1,1)="S ^IBA(364.5,""B"",$E(X,1,30),DA)="""""
^DD(364.5,.01,1,1,2)="K ^IBA(364.5,""B"",$E(X,1,30),DA)"
^DD(364.5,.01,3)="Answer must be 3-30 characters in length."
^DD(364.5,.01,21,0)="^^1^1^2951205^"
^DD(364.5,.01,21,1,0)="The name to be used to uniquely identify this data element."
^DD(364.5,.01,"DT")="2951219"
^DD(364.5,.02,0)="SECURITY LEVEL^RS^N:NATIONAL,NO EDIT;L:LOCAL;^0;2^Q"
^DD(364.5,.02,21,0)="^^2^2^2960215^^^^"
^DD(364.5,.02,21,1,0)="If this field is set to N (NATIONAL,NO EDIT), this is a secured data"
^DD(364.5,.02,21,2,0)="element and will not be allowed to be edited or deleted."
^DD(364.5,.02,"DT")="2960215"
^DD(364.5,.03,0)="TYPE OF ELEMENT^RS^F:NON-MULTIPLE FILEMAN FIELD;E:EXTRACTED VIA CODE;C:CONSTANT VALUE;^0;3^Q"
^DD(364.5,.03,1,0)="^.1"
^DD(364.5,.03,1,1,0)="^^TRIGGER^364.5^.04"
^DD(364.5,.03,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=""FC"",Y(1)=X S X=Y(0),X=X S Y=X,X=Y(1),X=X S X=X[Y I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=""I"" X ^DD(364.5,.03,1,1,1.4)"
^DD(364.5,.03,1,1,1.4)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.5,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.5,.03,1,1,2)="Q"
^DD(364.5,.03,1,1,3)="DO NOT DELETE"
^DD(364.5,.03,1,1,"%D",0)="^^1^1^2960215^"
^DD(364.5,.03,1,1,"%D",1,0)="If TYPE OF ELEMENT is 'F' or 'C' then ELEMENT CATEGORY must be 'I'. "
^DD(364.5,.03,1,1,"CREATE CONDITION")="""FC""[INTERNAL(TYPE OF ELEMENT)"
^DD(364.5,.03,1,1,"CREATE VALUE")="S X=""I"""
^DD(364.5,.03,1,1,"DELETE VALUE")="NO EFFECT"
^DD(364.5,.03,1,1,"DT")="2960215"
^DD(364.5,.03,1,1,"FIELD")="ELEMENT CATEGORY"
^DD(364.5,.03,1,2,0)="^^TRIGGER^364.5^.06"
^DD(364.5,.03,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'=""F"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(364.5,.03,1,2,1.4)"
^DD(364.5,.03,1,2,1.4)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.5,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.5,.03,1,2,2)="Q"
^DD(364.5,.03,1,2,3)="DO NOT DELETE"
^DD(364.5,.03,1,2,"%D",0)="^^2^2^2960215^"
^DD(364.5,.03,1,2,"%D",1,0)="This triggers the FILEMAN FIELD REFERENCE field to null if the element type"
^DD(364.5,.03,1,2,"%D",2,0)="is not FILEMAN field type of element."
^DD(364.5,.03,1,2,"CREATE CONDITION")="INTERNAL(TYPE OF ELEMENT)'=""F"""
^DD(364.5,.03,1,2,"CREATE VALUE")="@"
^DD(364.5,.03,1,2,"DELETE VALUE")="NO EFFECT"
^DD(364.5,.03,1,2,"DT")="2960215"
^DD(364.5,.03,1,2,"FIELD")="FILEMAN FIELD REFERENCE"
^DD(364.5,.03,1,3,0)="^^TRIGGER^364.5^.08"
^DD(364.5,.03,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'=""C"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(364.5,.03,1,3,1.4)"
^DD(364.5,.03,1,3,1.4)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=364.5,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.5,.03,1,3,2)="Q"
^DD(364.5,.03,1,3,3)="DO NOT DELETE"
^DD(364.5,.03,1,3,"%D",0)="^^2^2^2960215^"
^DD(364.5,.03,1,3,"%D",1,0)="This triggers the CONSTANT VALUE field to null if the element type is not"
^DD(364.5,.03,1,3,"%D",2,0)="CONSTANT type of element."
^DD(364.5,.03,1,3,"CREATE CONDITION")="INTERNAL(TYPE OF ELEMENT)'=""C"""
^DD(364.5,.03,1,3,"CREATE VALUE")="@"
^DD(364.5,.03,1,3,"DELETE VALUE")="NO EFFECT"
^DD(364.5,.03,1,3,"DT")="2960215"
^DD(364.5,.03,1,3,"FIELD")="CONSTANT VALUE"
^DD(364.5,.03,1,4,0)="^^TRIGGER^364.5^1"
^DD(364.5,.03,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'=""E"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,1)):^(1),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y S X="""" X ^DD(364.5,.03,1,4,1.4)"
^DD(364.5,.03,1,4,1.4)="S DIH=$S($D(^IBA(364.5,DIV(0),1)):^(1),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(1)=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=364.5,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.5,.03,1,4,2)="Q"
^DD(364.5,.03,1,4,3)="DO NOT DELETE"
^DD(364.5,.03,1,4,"%D",0)="^^2^2^2960215^"
^DD(364.5,.03,1,4,"%D",1,0)="This triggers the EXTRACT CODE field to null if the element type is not an"
^DD(364.5,.03,1,4,"%D",2,0)="EXTRACTED VIA CODE type of element."
^DD(364.5,.03,1,4,"CREATE CONDITION")="INTERNAL(TYPE OF ELEMENT)'=""E"""
^DD(364.5,.03,1,4,"CREATE VALUE")="@"
^DD(364.5,.03,1,4,"DELETE VALUE")="NO EFFECT"
^DD(364.5,.03,1,4,"DT")="2960215"
^DD(364.5,.03,1,4,"FIELD")="EXTRACT CODE"
^DD(364.5,.03,21,0)="^^3^3^2951207^^"
^DD(364.5,.03,21,1,0)="The type of data element being defined as needed by one or more forms.  This"
^DD(364.5,.03,21,2,0)="field determines the type of retrieval needed to get the actual data element's"
^DD(364.5,.03,21,3,0)="value for a given bill."
^DD(364.5,.03,"DT")="2960215"
^DD(364.5,.04,0)="ELEMENT CATEGORY^RSX^I:INDIVIDUAL ELEMENT;G:GROUP ELEMENT;^0;4^I $P($G(^IBA(364.5,DA,0)),U,3)=""F"",$G(X)=""G"" K X"
^DD(364.5,.04,1,0)="^.1"
^DD(364.5,.04,1,1,0)="^^TRIGGER^364.5^.06"
^DD(364.5,.04,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=""G"" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(364.5,.04,1,1,1.4)"
^DD(364.5,.04,1,1,1.4)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.5,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.5,.04,1,1,2)="Q"
^DD(364.5,.04,1,1,"CREATE CONDITION")="INTERNAL(ELEMENT CATEGORY)=""G"""
^DD(364.5,.04,1,1,"CREATE VALUE")=""""""
^DD(364.5,.04,1,1,"DELETE VALUE")="NO EFFECT"
^DD(364.5,.04,1,1,"FIELD")="FILEMAN FIELD REFERENCE"
^DD(364.5,.04,3)="This indicates an INDIVIDUAL or GROUP of elements will be returned.  Group is not valid for Fileman type elements."
^DD(364.5,.04,5,1,0)="364.5^.03^1"
^DD(364.5,.04,21,0)="^^3^3^2951205^"
^DD(364.5,.04,21,1,0)="This defines whether the data element to be extracted is a single piece of data"
^DD(364.5,.04,21,2,0)="or is a string of related data.  Fileman field references must be designated as"
^DD(364.5,.04,21,3,0)="individual elements."
^DD(364.5,.04,"DT")="2960215"
^DD(364.5,.05,0)="BASE FILE^P1'^DIC(^0;5^Q"
^DD(364.5,.05,3)="Enter the Fileman file to be used as a 'base' to extract the data from."
^DD(364.5,.05,21,0)="^^2^2^2960311^"
^DD(364.5,.05,21,1,0)="This is the number of the Fileman file to be used as a 'base' to extract"
^DD(364.5,.05,21,2,0)="data for this field."
^DD(364.5,.05,"DT")="2960311"
^DD(364.5,.06,0)="FILEMAN FIELD REFERENCE^FX^^0;6^K:$L(X)>65!($L(X)<1) X I $D(X),$P($G(^IBA(364.5,DA,0)),U,4)=""G"" K X"
^DD(364.5,.06,1,0)="^.1"
^DD(364.5,.06,1,1,0)="^^TRIGGER^364.5^.07"
^DD(364.5,.06,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)="""" I X S X=DIV S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(364.5,.06,1,1,1.4)"
^DD(364.5,.06,1,1,1.4)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=364.5,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.5,.06,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(364.5,.06,1,1,2.4)"
^DD(364.5,.06,1,1,2.4)="S DIH=$S($D(^IBA(364.5,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=364.5,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.5,.06,1,1,"CREATE CONDITION")="FILEMAN FIELD REFERENCE="""""
^DD(364.5,.06,1,1,"CREATE VALUE")="@"
^DD(364.5,.06,1,1,"DELETE VALUE")="@"
^DD(364.5,.06,1,1,"FIELD")="#.07"
^DD(364.5,.06,3)="Must be a valid Fileman reference and ELEMENT CATEGORY must not be GROUP."
^DD(364.5,.06,5,1,0)="364.5^.03^2"
^DD(364.5,.06,5,2,0)="364.5^.04^1"
^DD(364.5,.06,21,0)="^^6^6^2951221^^^"
^DD(364.5,.06,21,1,0)="The valid Fileman field reference or simple Fileman navigation to be used"
^DD(364.5,.06,21,2,0)="to extract using the $$GET^DIQ utility. Note this will not return true"
^DD(364.5,.06,21,3,0)="multiple entries.  Word-processing type fields are able to be retrieved,"
^DD(364.5,.06,21,4,0)="however.  No syntax check is made on this field so the user must be careful"
^DD(364.5,.06,21,5,0)="to type a valid Fileman expression.  This must be designated as an"
^DD(364.5,.06,21,6,0)="INDIVIDUAL element, not a group element."
^DD(364.5,.06,"DT")="2951221"
^DD(364.5,.07,0)="FILEMAN RETURN FORMAT^S^I:INTERNAL;E:EXTERNAL;^0;7^Q"
^DD(364.5,.07,5,1,0)="364.5^.06^1"
^DD(364.5,.07,21,0)="^^5^5^2951205^"
^DD(364.5,.07,21,1,0)="This is the format for the retrieved data for Fileman-type data elements.  It"
^DD(364.5,.07,21,2,0)="is recommended to use Internal format whenever possible to keep the data"
^DD(364.5,.07,21,3,0)="element definitions in this file as generic as possible to avoid duplication.  "
^DD(364.5,.07,21,4,0)="The format capabilities of the forms generator should be used to interpret and"
^DD(364.5,.07,21,5,0)="reformat the data element when needed."
^DD(364.5,.07,"DT")="2951205"
^DD(364.5,.08,0)="CONSTANT VALUE^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(364.5,.08,3)="Answer must be 1-80 characters in length."
^DD(364.5,.08,5,1,0)="364.5^.03^3"
^DD(364.5,.08,21,0)="^^1^1^2951205^"
^DD(364.5,.08,21,1,0)="The specific value that this data element should return for this data element."
^DD(364.5,.08,"DT")="2951205"
^DD(364.5,1,0)="EXTRACT CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(364.5,1,3)="This is Standard MUMPS code."
^DD(364.5,1,5,1,0)="364.5^.03^4"
^DD(364.5,1,9)="@"
^DD(364.5,1,21,0)="^^7^7^2951207^^^"
^DD(364.5,1,21,1,0)="The code to be executed by the forms generator to return the value(s) of the"
^DD(364.5,1,21,2,0)="data element.  If no ARRAY ROOT field is completed for this data element, the"
^DD(364.5,1,21,3,0)="code should set the variable IBXDATA or the array IBXDATA(1) through IBXDATA(n)"
^DD(364.5,1,21,4,0)="where n=the total # of iterations of the data element retrieved.  If the ARRAY "
^DD(364.5,1,21,5,0)="ROOT field has been completed for this data element, this code should set the"
^DD(364.5,1,21,6,0)="variable referenced there.  IBXIEN is assumed to be the internal entry number"
^DD(364.5,1,21,7,0)="of the  file (referenced by the variable IBXFILE) entry."
^DD(364.5,1,"DT")="2951205"
^DD(364.5,2,0)="ARRAY ROOT^F^^2;E1,50^K:$L(X)>50!($L(X)<1) X"
^DD(364.5,2,3)="Answer must be a valid array root name."
^DD(364.5,2,21,0)="^^3^3^2960117^^"
^DD(364.5,2,21,1,0)=" The local or global base root where multiple-valued output or word processing"
^DD(364.5,2,21,2,0)="data is to be stored for this data element.  IBXDATA is the default if there"
^DD(364.5,2,21,3,0)="is no data in this field.  Example of a global array: ^TMP($J)"
^DD(364.5,2,"DT")="2960117"
^DD(364.5,3,0)="DESCRIPTION^364.53^^3;0"
^DD(364.5,"B","ARRAY ROOT",2)=""
^DD(364.5,"B","BASE FILE",.05)=""
^DD(364.5,"B","CONSTANT VALUE",.08)=""
^DD(364.5,"B","DESCRIPTION",3)=""
^DD(364.5,"B","ELEMENT CATEGORY",.04)=""
^DD(364.5,"B","EXTRACT CODE",1)=""
^DD(364.5,"B","FILEMAN FIELD REFERENCE",.06)=""
^DD(364.5,"B","FILEMAN RETURN FORMAT",.07)=""
^DD(364.5,"B","NAME",.01)=""
^DD(364.5,"B","SECURITY LEVEL",.02)=""
^DD(364.5,"B","TYPE OF ELEMENT",.03)=""
^DD(364.5,"GL",0,1,.01)=""
^DD(364.5,"GL",0,2,.02)=""
^DD(364.5,"GL",0,3,.03)=""
^DD(364.5,"GL",0,4,.04)=""
^DD(364.5,"GL",0,5,.05)=""
^DD(364.5,"GL",0,6,.06)=""
^DD(364.5,"GL",0,7,.07)=""
^DD(364.5,"GL",0,8,.08)=""
^DD(364.5,"GL",1,"E1,245",1)=""
^DD(364.5,"GL",2,"E1,50",2)=""
^DD(364.5,"GL",3,0,3)=""
^DD(364.5,"IX",.01)=""
^DD(364.5,"IX",.03)=""
^DD(364.5,"IX",.04)=""
^DD(364.5,"IX",.06)=""
^DD(364.5,"RQ",.01)=""
^DD(364.5,"RQ",.02)=""
^DD(364.5,"RQ",.03)=""
^DD(364.5,"RQ",.04)=""
^DD(364.5,"SB",364.53,3)=""
^DD(364.53,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(364.53,0,"DT")="2951205"
^DD(364.53,0,"NM","DESCRIPTION")=""
^DD(364.53,0,"UP")="364.5"
^DD(364.53,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(364.53,.01,3)="Enter a description of the data element being defined."
^DD(364.53,.01,21,0)="^^1^1^2951205^"
^DD(364.53,.01,21,1,0)="This is a free text description of the data that this data element represents."
^DD(364.53,.01,"DT")="2951205"
^DD(364.53,"B","DESCRIPTION",.01)=""
^DD(364.53,"GL",0,1,.01)=""
^DD(364.6,0)="FIELD^^.13^13"
^DD(364.6,0,"DDA")="N"
^DD(364.6,0,"DT")="3071126"
^DD(364.6,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(364.6,0,"ID",.05)="W ""   "",$P(^(0),U,5)"
^DD(364.6,0,"ID",.08)="W ""   "",$P(^(0),U,8)"
^DD(364.6,0,"ID",.1)="W ""   "",$P(^(0),U,10)"
^DD(364.6,0,"IX","APAR",364.6,.01)=""
^DD(364.6,0,"IX","APAR1",364.6,.03)=""
^DD(364.6,0,"IX","ASEQ",364.6,.01)=""
^DD(364.6,0,"IX","ASEQ1",364.6,.04)=""
^DD(364.6,0,"IX","ASEQ2",364.6,.05)=""
^DD(364.6,0,"IX","ASEQ3",364.6,.08)=""
^DD(364.6,0,"IX","B",364.6,.01)=""
^DD(364.6,0,"NM","IB FORM SKELETON DEFINITION")=" "
^DD(364.6,0,"PT",364.6,.03)=""
^DD(364.6,0,"PT",364.7,.01)=""
^DD(364.6,0,"VR")="2.0"
^DD(364.6,0,"VRPK")="IB"
^DD(364.6,.01,0)="BILL FORM^RP353'X^IBE(353,^0;1^I $$DUP^IBCEFG0($G(DA),X,1) K X"
^DD(364.6,.01,1,0)="^.1"
^DD(364.6,.01,1,1,0)="364.6^B"
^DD(364.6,.01,1,1,1)="S ^IBA(364.6,""B"",$E(X,1,30),DA)="""""
^DD(364.6,.01,1,1,2)="K ^IBA(364.6,""B"",$E(X,1,30),DA)"
^DD(364.6,.01,1,2,0)="364.6^ASEQ^MUMPS"
^DD(364.6,.01,1,2,1)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=$P(Z0,U,4),Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 S ^IBA(364.6,""ASEQ"",+X,Z1,Z2,Z3,DA)="""""
^DD(364.6,.01,1,2,2)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=$P(Z0,U,4),Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 K ^IBA(364.6,""ASEQ"",+X,Z1,Z2,Z3,DA)"
^DD(364.6,.01,1,2,3)="DO NOT DELETE"
^DD(364.6,.01,1,2,"%D",0)="^^1^1^2960117^^"
^DD(364.6,.01,1,2,"%D",1,0)="This xref contains the sequence to use to extract or print the form fields."
^DD(364.6,.01,1,2,"DT")="2960116"
^DD(364.6,.01,1,3,0)="364.6^APAR^MUMPS"
^DD(364.6,.01,1,3,1)="N Z0 S Z0=$P($G(^IBA(364.6,DA,0)),U,3) I Z0,Z0'=X S ^IBA(364.6,""APAR"",$E(X,1,30),Z0,DA)="""""
^DD(364.6,.01,1,3,2)="N Z0 S Z0=$P($G(^IBA(364.6,DA,0)),U,3) I Z0,Z0'=X K ^IBA(364.6,""APAR"",$E(X,1,30),Z0,DA)"
^DD(364.6,.01,1,3,3)="DO NOT DELETE"
^DD(364.6,.01,1,3,"%D",0)="^^1^1^2960117^"
^DD(364.6,.01,1,3,"%D",1,0)="Xref by bill form and associated form field definition."
^DD(364.6,.01,1,3,"DT")="2960117"
^DD(364.6,.01,1,4,0)="^^TRIGGER^364.6^.03"
^DD(364.6,.01,1,4,1)="X ^DD(364.6,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$S('$D(D0):"""",D0<0:"""",1:D0) X ^DD(364.6,.01,1,4,1.4)"
^DD(364.6,.01,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.01,1,4,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)=""BILLING SCREEN"" S D0=I(0,0)"
^DD(364.6,.01,1,4,1.4)="S DIH=$G(^IBA(364.6,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=364.6,DIG=.03 D ^DICR"
^DD(364.6,.01,1,4,2)="X ^DD(364.6,.01,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^IBA(364.6,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=364.6,DIG=.03 D ^DICR"
^DD(364.6,.01,1,4,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.01,1,4,79.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)=""BILLING SCREEN"" S D0=I(0,0)"
^DD(364.6,.01,1,4,3)="DO NOT DELETE"
^DD(364.6,.01,1,4,69.2)="S I(0,0)=$G(D0),D0=Y(0) S:'D0!'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(353,2.02,0)),U,3),Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""")"
^DD(364.6,.01,1,4,79.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'D0!'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$P($G(^DD(353,2.02,0)),U,3)"
^DD(364.6,.01,1,4,"%D",0)="^^1^1^3000613^"
^DD(364.6,.01,1,4,"%D",1,0)="This trigger is needed for the local screen 9 logic to work correctly."
^DD(364.6,.01,1,4,"CREATE CONDITION")="BILL FORM:FORMAT TYPE=""BILLING SCREEN"""
^DD(364.6,.01,1,4,"CREATE VALUE")="NUMBER"
^DD(364.6,.01,1,4,"DELETE CONDITION")="BILL FORM:FORMAT TYPE=""BILLING SCREEN"""
^DD(364.6,.01,1,4,"DELETE VALUE")="@"
^DD(364.6,.01,1,4,"DT")="3000613"
^DD(364.6,.01,1,4,"FIELD")="ASSOCIATED FORM DEFINITION"
^DD(364.6,.01,3)="Enter a BILLING FORM that the data element will appear on."
^DD(364.6,.01,21,0)="^^2^2^2960318^^^^"
^DD(364.6,.01,21,1,0)="Identifies a billing 'form' or 'screen' where the data element is used."
^DD(364.6,.01,21,2,0)="The combination of form/page/line/column must be unique."
^DD(364.6,.01,"DT")="3000613"
^DD(364.6,.02,0)="SECURITY LEVEL^SX^N:NATIONAL,NO EDIT;L:LOCAL;^0;2^I X=""N"",$P($G(^IBA(364.6,DA,0)),U,3) K X"
^DD(364.6,.02,3)="Enter an N if no editing is allowed, L if editing is OK because this entry is associated with a locally defined form."
^DD(364.6,.02,5,1,0)="364.6^.03^7"
^DD(364.6,.02,21,0)="^.001^4^4^3001030^^"
^DD(364.6,.02,21,1,0)="This field determines whether or not editing of the entry is allowed.  If"
^DD(364.6,.02,21,2,0)="the security level of the entry is NATIONAL (N), no local editing is"
^DD(364.6,.02,21,3,0)="allowed.  If the security level of the entry is LOCAL (L), it may be"
^DD(364.6,.02,21,4,0)="edited."
^DD(364.6,.02,"DT")="2960117"
^DD(364.6,.03,0)="ASSOCIATED FORM DEFINITION^P364.6'^IBA(364.6,^0;3^Q"
^DD(364.6,.03,1,0)="^.1"
^DD(364.6,.03,1,1,0)="364.6^APAR1^MUMPS"
^DD(364.6,.03,1,1,1)="N Z0 S Z0=+$G(^IBA(364.6,DA,0)) I Z0,Z0'=X S ^IBA(364.6,""APAR"",Z0,$E(X,1,30),DA)="""""
^DD(364.6,.03,1,1,2)="N Z0 S Z0=+$G(^IBA(364.6,DA,0)) I Z0,Z0'=X K ^IBA(364.6,""APAR"",Z0,$E(X,1,30),DA)"
^DD(364.6,.03,1,1,3)="DO NOT DELETE"
^DD(364.6,.03,1,1,"%D",0)="^^1^1^2960117^^"
^DD(364.6,.03,1,1,"%D",1,0)="Xref by bill form and associated form field definition."
^DD(364.6,.03,1,1,"DT")="2960117"
^DD(364.6,.03,1,2,0)="^^TRIGGER^364.6^.04"
^DD(364.6,.03,1,2,1)="X ^DD(364.6,.03,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,2,1.4)"
^DD(364.6,.03,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,2,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^DD(364.6,.03,1,2,1.4)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=364.6,DIG=.04 D ^DICR"
^DD(364.6,.03,1,2,2)="Q"
^DD(364.6,.03,1,2,3)="DO NOT DELETE"
^DD(364.6,.03,1,2,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^DD(364.6,.03,1,2,"%D",0)="^.101^2^2^3000424^^"
^DD(364.6,.03,1,2,"%D",1,0)="If an associated form that is not a screen form, page is taken from the"
^DD(364.6,.03,1,2,"%D",2,0)="associated with field definition."
^DD(364.6,.03,1,2,"CREATE CONDITION")="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^DD(364.6,.03,1,2,"CREATE VALUE")="@"
^DD(364.6,.03,1,2,"DELETE VALUE")="NO EFFECT"
^DD(364.6,.03,1,2,"DT")="3000405"
^DD(364.6,.03,1,2,"FIELD")="PAGE OR SEQUENCE"
^DD(364.6,.03,1,3,0)="^^TRIGGER^364.6^.05"
^DD(364.6,.03,1,3,1)="X ^DD(364.6,.03,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,3,1.4)"
^DD(364.6,.03,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,3,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^DD(364.6,.03,1,3,1.4)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=364.6,DIG=.05 D ^DICR"
^DD(364.6,.03,1,3,2)="Q"
^DD(364.6,.03,1,3,3)="DO NOT DELETE"
^DD(364.6,.03,1,3,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^DD(364.6,.03,1,3,"%D",0)="^^2^2^3000405^"
^DD(364.6,.03,1,3,"%D",1,0)="If an associated form that is not a screen form, line is taken from the"
^DD(364.6,.03,1,3,"%D",2,0)="associated with field definition."
^DD(364.6,.03,1,3,"CREATE CONDITION")="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^DD(364.6,.03,1,3,"CREATE VALUE")="@"
^DD(364.6,.03,1,3,"DELETE VALUE")="NO EFFECT"
^DD(364.6,.03,1,3,"DT")="3000405"
^DD(364.6,.03,1,3,"FIELD")="FIRST LINE NUMBER"
^DD(364.6,.03,1,4,0)="^^TRIGGER^364.6^.08"
^DD(364.6,.03,1,4,1)="X ^DD(364.6,.03,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,4,1.4)"
^DD(364.6,.03,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,4,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^DD(364.6,.03,1,4,1.4)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=364.6,DIG=.08 D ^DICR"
^DD(364.6,.03,1,4,2)="Q"
^DD(364.6,.03,1,4,3)="DO NOT DELETE"
^DD(364.6,.03,1,4,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^DD(364.6,.03,1,4,"%D",0)="^^2^2^3000405^"
^DD(364.6,.03,1,4,"%D",1,0)="If an associated form that is not a screen form, column is taken from the"
^DD(364.6,.03,1,4,"%D",2,0)="associated with field definition."
^DD(364.6,.03,1,4,"CREATE CONDITION")="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^DD(364.6,.03,1,4,"CREATE VALUE")="@"
^DD(364.6,.03,1,4,"DELETE VALUE")="NO EFFECT"
^DD(364.6,.03,1,4,"DT")="3000405"
^DD(364.6,.03,1,4,"FIELD")="STARTING COLUMN"
^DD(364.6,.03,1,5,0)="^^TRIGGER^364.6^.09"
^DD(364.6,.03,1,5,1)="X ^DD(364.6,.03,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,5,1.4)"
^DD(364.6,.03,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,5,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^DD(364.6,.03,1,5,1.4)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=364.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.6,.03,1,5,2)="Q"
^DD(364.6,.03,1,5,3)="DO NOT DELETE"
^DD(364.6,.03,1,5,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^DD(364.6,.03,1,5,"%D",0)="^^2^2^3000405^"
^DD(364.6,.03,1,5,"%D",1,0)="If an associated form that is not a screen form, length is taken from the"
^DD(364.6,.03,1,5,"%D",2,0)="associated with field definition."
^DD(364.6,.03,1,5,"CREATE CONDITION")="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^DD(364.6,.03,1,5,"CREATE VALUE")="@"
^DD(364.6,.03,1,5,"DELETE VALUE")="NO EFFECT"
^DD(364.6,.03,1,5,"DT")="3000405"
^DD(364.6,.03,1,5,"FIELD")="LENGTH"
^DD(364.6,.03,1,6,0)="^^TRIGGER^364.6^.06"
^DD(364.6,.03,1,6,1)="X ^DD(364.6,.03,1,6,1.3) I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(364.6,.03,1,6,1.4)"
^DD(364.6,.03,1,6,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(364.6,.03,1,6,69.2) S Y(101)=$S($D(^IBE(353,D0,2)):^(2),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)'=""BILLING SCREEN"" S D0=I(0,0)"
^DD(364.6,.03,1,6,1.4)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=364.6,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.6,.03,1,6,2)="Q"
^DD(364.6,.03,1,6,3)="DO NOT DELETE"
^DD(364.6,.03,1,6,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,1) S:'$D(^IBE(353,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(353,2.02,0)):$P(^(0),U,3),1:"""")"
^DD(364.6,.03,1,6,"%D",0)="^^2^2^3000405^"
^DD(364.6,.03,1,6,"%D",1,0)="If associated form that is not a screen form, the max number lines is taken"
^DD(364.6,.03,1,6,"%D",2,0)="from the associated with field definition."
^DD(364.6,.03,1,6,"CREATE CONDITION")="BILL FORM:FORMAT TYPE'=""BILLING SCREEN"""
^DD(364.6,.03,1,6,"CREATE VALUE")="@"
^DD(364.6,.03,1,6,"DELETE VALUE")="NO EFFECT"
^DD(364.6,.03,1,6,"DT")="3000405"
^DD(364.6,.03,1,6,"FIELD")="MAX NUMBER LINES"
^DD(364.6,.03,1,7,0)="^^TRIGGER^364.6^.02"
^DD(364.6,.03,1,7,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""L"" X ^DD(364.6,.03,1,7,1.4)"
^DD(364.6,.03,1,7,1.4)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=364.6,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.6,.03,1,7,2)="Q"
^DD(364.6,.03,1,7,3)="DO NOT DELETE"
^DD(364.6,.03,1,7,"%D",0)="^^1^1^2960117^"
^DD(364.6,.03,1,7,"%D",1,0)="Only local entries can be associated."
^DD(364.6,.03,1,7,"CREATE VALUE")="""L"""
^DD(364.6,.03,1,7,"DELETE VALUE")="NO EFFECT"
^DD(364.6,.03,1,7,"DT")="2960117"
^DD(364.6,.03,1,7,"FIELD")="SECURITY LEVEL"
^DD(364.6,.03,3)="Enter the form definition record this definition will override."
^DD(364.6,.03,5,1,0)="364.6^.01^4"
^DD(364.6,.03,21,0)="^^1^1^2960117^^"
^DD(364.6,.03,21,1,0)="The form definition record this definition will override."
^DD(364.6,.03,"DT")="3000414"
^DD(364.6,.04,0)="PAGE OR SEQUENCE^FX^^0;4^K:$L(X)>20!($L(X)<1) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)=""S"":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,2) K X"
^DD(364.6,.04,1,0)="^.1^^-1"
^DD(364.6,.04,1,1,0)="364.6^ASEQ1^MUMPS"
^DD(364.6,.04,1,1,1)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 S ^IBA(364.6,""ASEQ"",Z1,$E(X,1,30),Z2,Z3,DA)="""""
^DD(364.6,.04,1,1,2)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,5),Z3=$P(Z0,U,8) I Z1,Z2,Z3 K ^IBA(364.6,""ASEQ"",Z1,$E(X,1,30),Z2,Z3,DA)"
^DD(364.6,.04,1,1,3)="DO NOT DELETE"
^DD(364.6,.04,1,1,"%D",0)="^^1^1^2960117^"
^DD(364.6,.04,1,1,"%D",1,0)="This xref contains the sequence to use to extract or print the form fields."
^DD(364.6,.04,1,1,"DT")="2960117"
^DD(364.6,.04,3)="This data must be 1-20 char long, can't be an assoc form, and must be a unique form/page/line/column."
^DD(364.6,.04,5,1,0)="364.6^.03^2"
^DD(364.6,.04,21,0)="^^4^4^2960318^^^^"
^DD(364.6,.04,21,1,0)="This field is used to specify the page, section, transaction segment, etc."
^DD(364.6,.04,21,2,0)="that the data element is to be associated with.  This field will be used as"
^DD(364.6,.04,21,3,0)="the second-level sort field when extracting data fields for this form."
^DD(364.6,.04,21,4,0)="The combination of form/page/line/column must be unique."
^DD(364.6,.04,"DT")="3000428"
^DD(364.6,.05,0)="FIRST LINE NUMBER^NJ4,0X^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)=""S"":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,3) K X"
^DD(364.6,.05,.1)="LINE"
^DD(364.6,.05,1,0)="^.1"
^DD(364.6,.05,1,1,0)="364.6^ASEQ2^MUMPS"
^DD(364.6,.05,1,1,1)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,8) I Z1,Z2'="""",Z3 S ^IBA(364.6,""ASEQ"",Z1,Z2,$E(X,1,30),Z3,DA)="""""
^DD(364.6,.05,1,1,2)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,8) I Z1,Z2'="""",Z3 K ^IBA(364.6,""ASEQ"",Z1,Z2,$E(X,1,30),Z3,DA)"
^DD(364.6,.05,1,1,3)="DO NOT DELETE"
^DD(364.6,.05,1,1,"%D",0)="^^1^1^2960117^^^^"
^DD(364.6,.05,1,1,"%D",1,0)="This xref contains the sequence to use to extract or print the form fields."
^DD(364.6,.05,1,1,"DT")="2960117"
^DD(364.6,.05,3)="Type a # 0-9999, 0 Decimals, can't be assoc form, need unique form/pg/line/col."
^DD(364.6,.05,5,1,0)="364.6^.03^3"
^DD(364.6,.05,21,0)="^^5^5^2960318^^^"
^DD(364.6,.05,21,1,0)="If this is a printed form, this is the first line number that this data"
^DD(364.6,.05,21,2,0)="element will appear on.  For transmitted forms, this is assumed to always"
^DD(364.6,.05,21,3,0)="be a 1.  This will be used as the third-level sort field when extracting"
^DD(364.6,.05,21,4,0)="data fields for this form.  The combination of form/page/line/column must"
^DD(364.6,.05,21,5,0)="be unique."
^DD(364.6,.05,"DT")="3000428"
^DD(364.6,.06,0)="MAX NUMBER LINES^NJ3,0X^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$P($G(^IBA(364.6,DA,0)),U,3) K X"
^DD(364.6,.06,3)="Type a Number between 0 and 999, 0 Decimal Digits (can't be an associated form)."
^DD(364.6,.06,5,1,0)="364.6^.03^6"
^DD(364.6,.06,21,0)="^^2^2^2951205^"
^DD(364.6,.06,21,1,0)="If a printed form, this is the highest numbered line number that this data"
^DD(364.6,.06,21,2,0)="element is allowed to print on."
^DD(364.6,.06,"DT")="2960117"
^DD(364.6,.07,0)="LOCAL OVERRIDE ALLOWED^S^0:NO;1:YES;^0;7^Q"
^DD(364.6,.07,3)="Enter 0 (NO) to prevent local override, 1 to allow local override."
^DD(364.6,.07,21,0)="^.001^2^2^3020822^^"
^DD(364.6,.07,21,1,0)="This controls whether or not the output forms generator will allow for a"
^DD(364.6,.07,21,2,0)="redefinition of this record via a local override."
^DD(364.6,.07,"DT")="2960311"
^DD(364.6,.08,0)="STARTING COLUMN OR PIECE^NJ3,1X^^0;8^K:+X'=X!(X>999)!(X<0)!($S(X[""."":X'?.E1"".""1.2N,1:0)) X I $D(X),$S($P($G(^IBE(353,+$G(^IBA(364.6,+DA,0)),2)),U,2)=""S"":0,1:$P($G(^IBA(364.6,DA,0)),U,3))!$$DUP^IBCEFG0(DA,X,4) K X"
^DD(364.6,.08,.1)="COLUMN"
^DD(364.6,.08,1,0)="^.1"
^DD(364.6,.08,1,1,0)="364.6^ASEQ3^MUMPS"
^DD(364.6,.08,1,1,1)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,5) I Z1,Z2'="""",Z3 S ^IBA(364.6,""ASEQ"",Z1,Z2,Z3,$E(X,1,30),DA)="""""
^DD(364.6,.08,1,1,2)="N Z0,Z1,Z2,Z3 S Z0=$G(^IBA(364.6,DA,0)),Z1=+Z0,Z2=$P(Z0,U,4),Z3=$P(Z0,U,5) I Z1,Z2'="""",Z3 K ^IBA(364.6,""ASEQ"",Z1,Z2,Z3,$E(X,1,30),DA)"
^DD(364.6,.08,1,1,3)="DO NOT DELETE"
^DD(364.6,.08,1,1,"%D",0)="^^1^1^2960117^"
^DD(364.6,.08,1,1,"%D",1,0)="This xref contains the sequence to use to extract or print the form fields."
^DD(364.6,.08,1,1,"DT")="2960117"
^DD(364.6,.08,1,2,0)="^^TRIGGER^364.6^.11"
^DD(364.6,.08,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)[""."" I X S X=DIV S Y(1)=$S($D(^IBA(364.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(364.6,.08,1,2,1.4)"
^DD(364.6,.08,1,2,1.4)="S DIH=$S($D(^IBA(364.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=364.6,DIG=.11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(364.6,.08,1,2,2)="Q"
^DD(364.6,.08,1,2,3)="DO NOT DELETE"
^DD(364.6,.08,1,2,"%D",0)="^^2^2^2960126^^^"
^DD(364.6,.08,1,2,"%D",1,0)="If the starting column or piece is not a whole number, this must be a"
^DD(364.6,.08,1,2,"%D",2,0)="calculate only field - no output."
^DD(364.6,.08,1,2,"CREATE CONDITION")="STARTING COLUMN OR PIECE[""."""
^DD(364.6,.08,1,2,"CREATE VALUE")="S X=1"
^DD(364.6,.08,1,2,"DELETE VALUE")="NO EFFECT"
^DD(364.6,.08,1,2,"DT")="2960126"
^DD(364.6,.08,1,2,"FIELD")="#.11"
^DD(364.6,.08,3)="Type a # 0-9999, 1-2 Decimals, can't be assoc form, need unique form/pg/line/col."
^DD(364.6,.08,5,1,0)="364.6^.03^4"
^DD(364.6,.08,21,0)="^^5^5^2960318^^^^"
^DD(364.6,.08,21,1,0)="This is the column on the form, position in the data string (for non-printed"
^DD(364.6,.08,21,2,0)="forms) -  starting at position 1, or delimited piece that this data element"
^DD(364.6,.08,21,3,0)="is to be printed or stored in.  This will be used as the fourth-level sort"
^DD(364.6,.08,21,4,0)="field when extracting data fields for this form.  The combination of"
^DD(364.6,.08,21,5,0)="form/page/line/column must be unique."
^DD(364.6,.08,"DT")="3000428"
^DD(364.6,.09,0)="LENGTH^NJ3,0X^^0;9^K:+X'=X!(X>250)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$P($G(^IBA(364.6,DA,0)),U,3),$P($G(^IBE(353,+^IBA(364.6,DA,0),2)),U,2)'=""S"" K X"
^DD(364.6,.09,3)="Type a Number between 1 and 250, 0 Decimal Digits (can't be an associated form)."
^DD(364.6,.09,5,1,0)="364.6^.03^5"
^DD(364.6,.09,21,0)="^^3^3^2951205^"
^DD(364.6,.09,21,1,0)="The length desired for the data element.  If present, this field will be used"
^DD(364.6,.09,21,2,0)="to truncate or pad the data element to this length after the element has been"
^DD(364.6,.09,21,3,0)="passed through the routine identified in the FORMAT ROUTINE field."
^DD(364.6,.09,"DT")="3000111"
^DD(364.6,.1,0)="SHORT DESCRIPTION^F^^0;10^K:$L(X)>40!($L(X)<1) X"
^DD(364.6,.1,1,0)="^.1^^0"
^DD(364.6,.1,3)="Answer must be 1-40 characters in length"
^DD(364.6,.1,21,0)="^^2^2^3071126^"
^DD(364.6,.1,21,1,0)="This is a short description of the field that is used as an identifier to"
^DD(364.6,.1,21,2,0)="make lookups on this file meaningful."
^DD(364.6,.1,"DT")="3080310"
^DD(364.6,.11,0)="CALCULATE ONLY OR OUTPUT^S^1:CALCULATE ONLY;0:OUTPUT;^0;11^Q"
^DD(364.6,.11,3)="Enter 1 if this field is used for calculation purposes and is not meant to be output"
^DD(364.6,.11,5,1,0)="364.6^.08^2"
^DD(364.6,.11,21,0)="^^4^4^2960715^^^^"
^DD(364.6,.11,21,1,0)="This field is set to 1 if there is a need to do a special extract or"
^DD(364.6,.11,21,2,0)="calculation at some point in the processing, but no output is desired"
^DD(364.6,.11,21,3,0)="from the field's code execution.  Used to set up arrays for group elements"
^DD(364.6,.11,21,4,0)="then the individual elements are output separately."
^DD(364.6,.11,"DT")="2960715"
^DD(364.6,.12,0)="TRANSMIT IGNORES IF NULL^S^0:FALSE;1:TRUE;^0;12^Q"
^DD(364.6,.12,3)="Enter 1 (TRUE) if there should be no entry made in the output global if the data value of the element is null."
^DD(364.6,.12,21,0)="^.001^5^5^3001030^^^"
^DD(364.6,.12,21,1,0)="This field can be used to suppress output of a field if its value is null."
^DD(364.6,.12,21,2,0)="If not suppressed, an entry is made in the output global used by the"
^DD(364.6,.12,21,3,0)="formatter, regardless of the contents of the data for this field."
^DD(364.6,.12,21,4,0)="Supressing the value results in no output to the formatter's output"
^DD(364.6,.12,21,5,0)="global if the value of the data for this field is determined to be null."
^DD(364.6,.12,"DT")="2991006"
^DD(364.6,.13,0)="DATA REQUIRED FOR FIELD^S^1:YES;0:NO;^0;13^Q"
^DD(364.6,.13,3)="Enter yes if there should always be data in this field."
^DD(364.6,.13,21,0)="^^2^2^3000216^"
^DD(364.6,.13,21,1,0)="This field is a flag that will stop the output of a record if this field"
^DD(364.6,.13,21,2,0)="indicates data is required and the data extracted is null."
^DD(364.6,.13,"DT")="3000216"
^DD(364.6,"B","ASSOCIATED FORM DEFINITION",.03)=""
^DD(364.6,"B","BILL FORM",.01)=""
^DD(364.6,"B","CALCULATE ONLY OR OUTPUT",.11)=""
^DD(364.6,"B","COLUMN",.08)="1"
^DD(364.6,"B","DATA REQUIRED FOR FIELD",.13)=""
^DD(364.6,"B","FIRST LINE NUMBER",.05)=""
^DD(364.6,"B","LENGTH",.09)=""
^DD(364.6,"B","LINE",.05)="1"
^DD(364.6,"B","LOCAL OVERRIDE ALLOWED",.07)=""
^DD(364.6,"B","MAX NUMBER LINES",.06)=""
^DD(364.6,"B","PAGE OR SEQUENCE",.04)=""
^DD(364.6,"B","SECURITY LEVEL",.02)=""
^DD(364.6,"B","SHORT DESCRIPTION",.1)=""
^DD(364.6,"B","STARTING COLUMN OR PIECE",.08)=""
^DD(364.6,"B","TRANSMIT IGNORES IF NULL",.12)=""
^DD(364.6,"GL",0,1,.01)=""
^DD(364.6,"GL",0,2,.02)=""
^DD(364.6,"GL",0,3,.03)=""
^DD(364.6,"GL",0,4,.04)=""
^DD(364.6,"GL",0,5,.05)=""
^DD(364.6,"GL",0,6,.06)=""
^DD(364.6,"GL",0,7,.07)=""
^DD(364.6,"GL",0,8,.08)=""
^DD(364.6,"GL",0,9,.09)=""
^DD(364.6,"GL",0,10,.1)=""
^DD(364.6,"GL",0,11,.11)=""
^DD(364.6,"GL",0,12,.12)=""
^DD(364.6,"GL",0,13,.13)=""
^DD(364.6,"IX",.01)=""
^DD(364.6,"IX",.03)=""
^DD(364.6,"IX",.04)=""
^DD(364.6,"IX",.05)=""
^DD(364.6,"IX",.08)=""
^DD(364.6,"RQ",.01)=""
^DD(364.7,0)="FIELD^^3^12"
^DD(364.7,0,"DDA")="N"
^DD(364.7,0,"DT")="2960710"
^DD(364.7,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBA(364.5,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(364.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(364.7,0,"IX","AINS",364.7,.01)=""
^DD(364.7,0,"IX","AINS1",364.7,.05)=""
^DD(364.7,0,"IX","AINTYP",364.7,.01)=""
^DD(364.7,0,"IX","AINTYP1",364.7,.05)=""
^DD(364.7,0,"IX","AINTYP2",364.7,.06)=""
^DD(364.7,0,"IX","ATYPE",364.7,.01)=""
^DD(364.7,0,"IX","ATYPE1",364.7,.06)=""
^DD(364.7,0,"IX","B",364.7,.01)=""
^DD(364.7,0,"IX","C",364.7,.03)=""
^DD(364.7,0,"NM","IB FORM FIELD CONTENT")=" "
^DD(364.7,0,"VR")="2.0"
^DD(364.7,0,"VRPK")="IB"
^DD(364.7,.01,0)="FORM FIELD REFERENCE^RP364.6'^IBA(364.6,^0;1^Q"
^DD(364.7,.01,1,0)="^.1"
^DD(364.7,.01,1,1,0)="364.7^B"
^DD(364.7,.01,1,1,1)="S ^IBA(364.7,""B"",$E(X,1,30),DA)="""""
^DD(364.7,.01,1,1,2)="K ^IBA(364.7,""B"",$E(X,1,30),DA)"
^DD(364.7,.01,1,2,0)="364.7^ATYPE^MUMPS"
^DD(364.7,.01,1,2,1)="N Z1,Z0 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="""",$P($G(^IBA(364.6,+X,0)),U,3),'$P(Z0,U,5) S ^IBA(364.7,""ATYPE"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)="""""
^DD(364.7,.01,1,2,2)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,6) I Z1'="""",$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""ATYPE"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)"
^DD(364.7,.01,1,2,3)="DO NOT DELETE"
^DD(364.7,.01,1,2,"%D",0)="^^1^1^2980104^^^^"
^DD(364.7,.01,1,2,"%D",1,0)="Xref by form and bill type"
^DD(364.7,.01,1,2,"DT")="2960117"
^DD(364.7,.01,1,3,0)="364.7^AINTYP^MUMPS"
^DD(364.7,.01,1,3,1)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="""",$P($G(^IBA(364.6,+X,0)),U,3) S ^IBA(364.7,""AINTYP"",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)="""""
^DD(364.7,.01,1,3,2)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5),Z2=$P(Z0,U,6) I Z1,Z2'="""",$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""AINTYP"",$P(^IBA(364.6,+X,0),U,3),Z1,Z2,DA)"
^DD(364.7,.01,1,3,3)="DO NOT DELETE"
^DD(364.7,.01,1,3,"%D",0)="^^1^1^2971231^^^"
^DD(364.7,.01,1,3,"%D",1,0)="Xref by form, insurance company and bill type"
^DD(364.7,.01,1,3,"DT")="2960117"
^DD(364.7,.01,1,4,0)="364.7^AINS^MUMPS"
^DD(364.7,.01,1,4,1)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3),$P(Z0,U,6)="""" S ^IBA(364.7,""AINS"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)="""""
^DD(364.7,.01,1,4,2)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P(Z0,U,5) I Z1,$P($G(^IBA(364.6,+X,0)),U,3) K ^IBA(364.7,""AINS"",$P(^IBA(364.6,+X,0),U,3),Z1,DA)"
^DD(364.7,.01,1,4,3)="DO NOT DELETE"
^DD(364.7,.01,1,4,"%D",0)="^^1^1^2971231^^"
^DD(364.7,.01,1,4,"%D",1,0)="Xref by form field and insurance company"
^DD(364.7,.01,1,4,"DT")="2960118"
^DD(364.7,.01,3)="Enter the billing form that this field is associated with"
^DD(364.7,.01,21,0)="^^2^2^2951207^^^^"
^DD(364.7,.01,21,1,0)="This is a pointer to the billing form field that this field is associated"
^DD(364.7,.01,21,2,0)="with."
^DD(364.7,.01,"DT")="3000428"
^DD(364.7,.02,0)="SECURITY LEVEL^S^N:NATIONAL,NO EDIT;L:LOCAL;^0;2^Q"
^DD(364.7,.02,3)="Enter N for nationally released fields (no edit) or L for locally added fields."
^DD(364.7,.02,21,0)="^^3^3^2951219^^^"
^DD(364.7,.02,21,1,0)="This field determines whether or not editing of the entry is allowed.  For"
^DD(364.7,.02,21,2,0)="NATIONAL (N) field, no local editing is allowed.  If LOCAL (L) field is"
^DD(364.7,.02,21,3,0)="created, editing is allowed."
^DD(364.7,.02,"DT")="3000428"
^DD(364.7,.03,0)="DATA ELEMENT^P364.5'^IBA(364.5,^0;3^Q"
^DD(364.7,.03,1,0)="^.1"
^DD(364.7,.03,1,1,0)="364.7^C"
^DD(364.7,.03,1,1,1)="S ^IBA(364.7,""C"",$E(X,1,30),DA)="""""
^DD(364.7,.03,1,1,2)="K ^IBA(364.7,""C"",$E(X,1,30),DA)"
^DD(364.7,.03,1,1,3)="DO NOT DELETE"
^DD(364.7,.03,1,1,"%D",0)="^^1^1^2960702^"
^DD(364.7,.03,1,1,"%D",1,0)="Xref by DATA ELEMENT NAME"
^DD(364.7,.03,1,1,"DT")="2960702"
^DD(364.7,.03,3)="Enter the data element that will define this form field.  If used on a screen, it must be a fileman type."
^DD(364.7,.03,21,0)="^^1^1^2960627^^^^"
^DD(364.7,.03,21,1,0)="This identifies the data element that be extracted for this entry."
^DD(364.7,.03,23,0)="^^4^4^2960627^^^^"
^DD(364.7,.03,23,1,0)="This is the data element that will be allowed to be displayed/edited on a"
^DD(364.7,.03,23,2,0)="screen, extracted for a transmit, or printed on a printed form.  If used on"
^DD(364.7,.03,23,3,0)="a screen, the data element must be a fileman type and a local field (>10000"
^DD(364.7,.03,23,4,0)="for ifn and on a node >10000) to be editable."
^DD(364.7,.03,"DT")="2960702"
^DD(364.7,.04,0)="SCREEN PROMPT^FX^^0;4^K:$L(X)>70!($L(X)<1) X I $D(X),$P($G(^IBE(353,+$G(^IBA(364.6,+$G(^IBA(364.7,DA,0)),0)),2)),U,2)'=""S"" K X"
^DD(364.7,.04,.1)=" "
^DD(364.7,.04,1,0)="^.1^^0"
^DD(364.7,.04,3)="Answer must be 1-70 characters in length."
^DD(364.7,.04,21,0)="3^^2^2^2960321^^^^"
^DD(364.7,.04,21,1,0)="This is used only by screen-type forms to place a prompt on the screen"
^DD(364.7,.04,21,2,0)="for a particular field."
^DD(364.7,.04,23,0)="^^3^3^2960321^^^^"
^DD(364.7,.04,23,1,0)="This is the prompt that will preceed the data element defined for this"
^DD(364.7,.04,23,2,0)="entry.  If no data element, this prompt will display.  This field is only"
^DD(364.7,.04,23,3,0)="used for screen-type forms."
^DD(364.7,.04,"DT")="2960321"
^DD(364.7,.05,0)="INSURANCE COMPANY^P36'^DIC(36,^0;5^Q"
^DD(364.7,.05,1,0)="^.1"
^DD(364.7,.05,1,1,0)="364.7^AINS1^MUMPS"
^DD(364.7,.05,1,1,1)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,$P(Z0,U,6)="""" S ^IBA(364.7,""AINS"",Z1,$E(X,1,30),DA)="""""
^DD(364.7,.05,1,1,2)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K ^IBA(364.7,""AINS"",Z1,$E(X,1,30),DA) I Z2'="""",$D(^IBA(364.7,""AINTYP"",Z1,X,Z2,DA)) S ^IBA(364.7,""ATYPE"",Z1,Z2,DA)="""""
^DD(364.7,.05,1,1,3)="DO NOT DELETE"
^DD(364.7,.05,1,1,"%D",0)="^^1^1^2960118^"
^DD(364.7,.05,1,1,"%D",1,0)="Xref by form field and insurance company."
^DD(364.7,.05,1,1,"DT")="2960118"
^DD(364.7,.05,1,2,0)="364.7^AINTYP1^MUMPS"
^DD(364.7,.05,1,2,1)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) I Z1,Z2'="""" S ^IBA(364.7,""AINTYP"",Z1,$E(X,1,30),Z2,DA)="""" K ^IBA(364.7,""ATYPE"",Z1,Z2,DA),^IBA(364.7,""AINS"",Z1,X,DA)"
^DD(364.7,.05,1,2,2)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,6) K:Z1&(Z2'="""") ^IBA(364.7,""AINTYP"",Z1,$E(X,1,30),Z2,DA)"
^DD(364.7,.05,1,2,3)="DO NOT DELETE"
^DD(364.7,.05,1,2,"%D",0)="^^1^1^2960117^^^^"
^DD(364.7,.05,1,2,"%D",1,0)="Xref by insurance company and bill type"
^DD(364.7,.05,1,2,"DT")="2960117"
^DD(364.7,.05,3)="Enter the name of the insurance company that this field is associated with."
^DD(364.7,.05,21,0)="^^2^2^2951207^"
^DD(364.7,.05,21,1,0)="This is the insurance company who has a need for other than the standard"
^DD(364.7,.05,21,2,0)="data in this field."
^DD(364.7,.05,"DT")="3000428"
^DD(364.7,.06,0)="BILL TYPE^S^I:INPATIENT;O:OUTPATIENT;^0;6^Q"
^DD(364.7,.06,1,0)="^.1"
^DD(364.7,.06,1,1,0)="364.7^ATYPE1^MUMPS"
^DD(364.7,.06,1,1,1)="N Z0,Z1 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3) I Z1,'$P(Z0,U,5) S ^IBA(364.7,""ATYPE"",Z1,$E(X,1,30),DA)="""""
^DD(364.7,.06,1,1,2)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1 K ^IBA(364.7,""ATYPE"",Z1,$E(X,1,30),DA) I Z2,$D(^IBA(364.7,""AINTYP"",Z1,Z2,X,DA)) S ^IBA(364.7,""AINS"",Z1,Z2,DA)="""""
^DD(364.7,.06,1,1,3)="DO NOT DELETE"
^DD(364.7,.06,1,1,"%D",0)="^^1^1^2960117^^"
^DD(364.7,.06,1,1,"%D",1,0)="Xref by form and bill type."
^DD(364.7,.06,1,1,"DT")="2960117"
^DD(364.7,.06,1,2,0)="364.7^AINTYP2^MUMPS"
^DD(364.7,.06,1,2,1)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) I Z1,Z2 K:'$D(^IBA(364.7,""AINTYP"",Z1,Z2,X,DA)) ^IBA(364.7,""AINS"",Z1,Z2,DA) S ^IBA(364.7,""AINTYP"",Z1,Z2,$E(X,1,30),DA)="""""
^DD(364.7,.06,1,2,2)="N Z0,Z1,Z2 S Z0=$G(^IBA(364.7,DA,0)),Z1=+$P($G(^IBA(364.6,+Z0,0)),U,3),Z2=$P(Z0,U,5) K:Z1&Z2 ^IBA(364.7,""AINTYP"",Z1,Z2,$E(X,1,30),DA)"
^DD(364.7,.06,1,2,3)="DO NOT DELETE"
^DD(364.7,.06,1,2,"%D",0)="^^1^1^2960117^^^^"
^DD(364.7,.06,1,2,"%D",1,0)="Xref by form, insurance company and bill type"
^DD(364.7,.06,1,2,"DT")="2960117"
^DD(364.7,.06,3)="Enter the type of the bill."
^DD(364.7,.06,21,0)="^^1^1^2960117^^"
^DD(364.7,.06,21,1,0)="This is the type of bill that requires this field."
^DD(364.7,.06,"DT")="3000428"
^DD(364.7,.07,0)="PAD CHARACTER^S^ZL:ZERO PAD ON LEFT;ZR:ZERO PAD ON RIGHT;SL:SPACE PAD ON LEFT;SR:SPACE PAD ON RIGHT;N:NO PAD REQUIRED;^0;7^Q"
^DD(364.7,.07,3)="Enter the code that corresponds to the format and pad character to use for the data output in this field."
^DD(364.7,.07,21,0)="^^3^3^2960126^^"
^DD(364.7,.07,21,1,0)="If present, this defines the character to be used to pad the DATA"
^DD(364.7,.07,21,2,0)="ELEMENT to its desired length and the orientation of the padding characters"
^DD(364.7,.07,21,3,0)="to the left or right of the data.  The default is space pad to the right."
^DD(364.7,.07,"DT")="2960126"
^DD(364.7,.08,0)="REQUIRED^S^0:NO;1:YES;^0;8^Q"
^DD(364.7,.08,3)="Enter 1 (YES) if this data element is on a local screen 9 form and the data is required for the bill to be authorized."
^DD(364.7,.08,21,0)="^.001^4^4^3001030^^"
^DD(364.7,.08,21,1,0)="This field controls the required/not required status of a data element"
^DD(364.7,.08,21,2,0)="on a local screen 9 form.  If this field is 1 (YES), this data element"
^DD(364.7,.08,21,3,0)="is always required to have data (not null) in order for a bill to be"
^DD(364.7,.08,21,4,0)="authorized."
^DD(364.7,.08,"DT")="2951207"
^DD(364.7,.09,0)="EDIT STATUS^S^E:EDITABLE;D:DISPLAY ONLY;^0;9^Q"
^DD(364.7,.09,3)="Enter 'E' to enable editing for this field, 'D' for a display only field."
^DD(364.7,.09,21,0)="^^2^2^2960320^"
^DD(364.7,.09,21,1,0)="This field is used to control whether or not a data element on a screen is"
^DD(364.7,.09,21,2,0)="editable or for display-only purposes."
^DD(364.7,.09,"DT")="2960320"
^DD(364.7,.1,0)="EDIT GROUP NUMBER^NJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(364.7,.1,3)=" Enter the edit group # that this field will be included in.  Valid #'s are 1-99."
^DD(364.7,.1,21,0)="^^6^6^2960321^^"
^DD(364.7,.1,21,1,0)="This field contains the # of the edit group that the screen data element"
^DD(364.7,.1,21,2,0)="will be included with.  When this group # is selected on an edit screen,"
^DD(364.7,.1,21,3,0)="all data elements assigned to this group # on this screen will be presented"
^DD(364.7,.1,21,4,0)="for editing.  If no # is entered here, this field will not be available for"
^DD(364.7,.1,21,5,0)="editing.  This field will only apply to screen-type forms' editable data"
^DD(364.7,.1,21,6,0)="element descriptions."
^DD(364.7,.1,"DT")="2960321"
^DD(364.7,1,0)="FORMAT CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(364.7,1,3)="This is Standard MUMPS code."
^DD(364.7,1,9)="@"
^DD(364.7,1,21,0)="^^8^8^2951207^"
^DD(364.7,1,21,1,0)="This is the code that will be xecuted to format the 'raw' data element"
^DD(364.7,1,21,2,0)="value that is returned from the execution of the DATA ELEMENT's definition."
^DD(364.7,1,21,3,0)="This code can assume the variable/array IBXDATA is available as input and"
^DD(364.7,1,21,4,0)="should set this variable/array as its output.  Standard calls for data"
^DD(364.7,1,21,5,0)="formatting have been provided.  The variables IBXPG, IBXLN, IBXCOL are the"
^DD(364.7,1,21,6,0)="only IBX* variables that should be changed in this routine.  These represent"
^DD(364.7,1,21,7,0)="the page, line, column as the first 3 levels of subscript for the output"
^DD(364.7,1,21,8,0)="array."
^DD(364.7,1,"DT")="2951207"
^DD(364.7,3,0)="FORMAT CODE DESCRIPTION^364.73^^3;0"
^DD(364.7,3,21,0)="^.001^1^1^3010102^^"
^DD(364.7,3,21,1,0)="This field describes the function of the format code entered."
^DD(364.7,3,"DT")="2960710"
^DD(364.7,"B"," ",.04)="1"
^DD(364.7,"B","BILL TYPE",.06)=""
^DD(364.7,"B","DATA ELEMENT",.03)=""
^DD(364.7,"B","EDIT GROUP NUMBER",.1)=""
^DD(364.7,"B","EDIT STATUS",.09)=""
^DD(364.7,"B","FORM FIELD REFERENCE",.01)=""
^DD(364.7,"B","FORMAT CODE",1)=""
^DD(364.7,"B","FORMAT CODE DESCRIPTION",3)=""
^DD(364.7,"B","INSURANCE COMPANY",.05)=""
^DD(364.7,"B","PAD CHARACTER",.07)=""
^DD(364.7,"B","REQUIRED",.08)=""
^DD(364.7,"B","SCREEN PROMPT",.04)=""
^DD(364.7,"B","SECURITY LEVEL",.02)=""
^DD(364.7,"GL",0,1,.01)=""
^DD(364.7,"GL",0,2,.02)=""
^DD(364.7,"GL",0,3,.03)=""
^DD(364.7,"GL",0,4,.04)=""
^DD(364.7,"GL",0,5,.05)=""
^DD(364.7,"GL",0,6,.06)=""
^DD(364.7,"GL",0,7,.07)=""
^DD(364.7,"GL",0,8,.08)=""
^DD(364.7,"GL",0,9,.09)=""
^DD(364.7,"GL",0,10,.1)=""
^DD(364.7,"GL",1,"E1,245",1)=""
^DD(364.7,"GL",3,0,3)=""
^DD(364.7,"IX",.01)=""
^DD(364.7,"IX",.03)=""
^DD(364.7,"IX",.05)=""
^DD(364.7,"IX",.06)=""
^DD(364.7,"RQ",.01)=""
^DD(364.7,"SB",364.73,3)=""
^DD(364.73,0)="FORMAT CODE DESCRIPTION SUB-FIELD^^.01^1"
^DD(364.73,0,"DT")="2960710"
^DD(364.73,0,"NM","FORMAT CODE DESCRIPTION")=" "
^DD(364.73,0,"UP")="364.7"
^DD(364.73,.01,0)="FORMAT CODE DESCRIPTION^W^^0;1^Q"
^DD(364.73,.01,3)="Enter a description of the processing logic of the format code."
^DD(364.73,.01,21,0)="^.001^1^1^3010102^^^^"
^DD(364.73,.01,21,1,0)="This is a description of the processing logic of the format code."
^DD(364.73,.01,"DT")="2960710"
^DD(364.73,"B","FORMAT CODE DESCRIPTION",.01)=""
^DD(364.73,"GL",0,1,.01)=""
^DD(365,0)="FIELD^^4.01^33"
^DD(365,0,"DDA")="N"
^DD(365,0,"DT")="3030613"
^DD(365,0,"IX","AC",365,.06)=""
^DD(365,0,"IX","AE",365,.08)=""
^DD(365,0,"IX","AF",365,.04)=""
^DD(365,0,"IX","B",365,.01)=""
^DD(365,0,"IX","C",365,.09)=""
^DD(365,0,"NM","IIV RESPONSE")=""
^DD(365,0,"PT",365.16,.03)=""
^DD(365,0,"VR")="2.0"
^DD(365,0,"VRPK")="IB"
^DD(365,.01,0)="MESSAGE CONTROL ID^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(365,.01,1,0)="^.1"
^DD(365,.01,1,1,0)="365^B"
^DD(365,.01,1,1,1)="S ^IBCN(365,""B"",$E(X,1,30),DA)="""""
^DD(365,.01,1,1,2)="K ^IBCN(365,""B"",$E(X,1,30),DA)"
^DD(365,.01,1,1,"%D",0)="^.101^2^2^3020607^^"
^DD(365,.01,1,1,"%D",1,0)="This is the standard ""B"" cross-reference of the HL7 Message"
^DD(365,.01,1,1,"%D",2,0)="Control ID."
^DD(365,.01,3)="HL7 message control ID assigned. Answer must be 1-20 characters in length."
^DD(365,.01,21,0)="^^3^3^3020607^"
^DD(365,.01,21,1,0)="This is the HL7 message control number that is generated at"
^DD(365,.01,21,2,0)="the time the HL7 message is generated and placed in the"
^DD(365,.01,21,3,0)="outgoing HL7 message queue."
^DD(365,.01,"DT")="3020517"
^DD(365,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(365,.02,3)="Selected patient"
^DD(365,.02,21,0)="^^1^1^3020607^"
^DD(365,.02,21,1,0)="This the patient who was identified on the outgoing HL7 message."
^DD(365,.02,"DT")="3020610"
^DD(365,.03,0)="PAYER^P365.12'^IBE(365.12,^0;3^Q"
^DD(365,.03,3)="Selected payer"
^DD(365,.03,21,0)="^^2^2^3020607^"
^DD(365,.03,21,1,0)="This is the payer that was selected for either identification or"
^DD(365,.03,21,2,0)="verification."
^DD(365,.03,"DT")="3020610"
^DD(365,.04,0)="BUFFER ENTRY^P355.33'^IBA(355.33,^0;4^Q"
^DD(365,.04,1,0)="^.1"
^DD(365,.04,1,1,0)="365^AF"
^DD(365,.04,1,1,1)="S ^IBCN(365,""AF"",$E(X,1,30),DA)="""""
^DD(365,.04,1,1,2)="K ^IBCN(365,""AF"",$E(X,1,30),DA)"
^DD(365,.04,1,1,"%D",0)="^.101^2^2^3021111^^"
^DD(365,.04,1,1,"%D",1,0)="This cross-reference is by the Insurance Buffer Entry IEN.  Used"
^DD(365,.04,1,1,"%D",2,0)="for error reporting."
^DD(365,.04,1,1,"DT")="3020613"
^DD(365,.04,21,0)="^^2^2^3020607^"
^DD(365,.04,21,1,0)="This field is a pointer to the Insurance Buffer File if a buffer"
^DD(365,.04,21,2,0)="record exists for this insurance inquiry."
^DD(365,.04,"DT")="3020613"
^DD(365,.05,0)="TRANSMISSION QUEUE^P365.1'^IBCN(365.1,^0;5^Q"
^DD(365,.05,21,0)="^.001^2^2^3020612^^"
^DD(365,.05,21,1,0)="This is the reference back to the Transmission Queue File.  It"
^DD(365,.05,21,2,0)="provides a link between the inquiry and the response."
^DD(365,.05,"DT")="3020605"
^DD(365,.06,0)="TRANSMISSION STATUS^P365.14'^IBE(365.14,^0;6^Q"
^DD(365,.06,1,0)="^.1"
^DD(365,.06,1,1,0)="365^AC"
^DD(365,.06,1,1,1)="S ^IBCN(365,""AC"",$E(X,1,30),DA)="""""
^DD(365,.06,1,1,2)="K ^IBCN(365,""AC"",$E(X,1,30),DA)"
^DD(365,.06,1,1,"%D",0)="^^2^2^3020607^"
^DD(365,.06,1,1,"%D",1,0)="This is a standard cross-reference by the Transmission Status.  It"
^DD(365,.06,1,1,"%D",2,0)="will be used to determined records being processed."
^DD(365,.06,1,1,"DT")="3020607"
^DD(365,.06,21,0)="^^1^1^3020607^"
^DD(365,.06,21,1,0)="This is the status of the response record."
^DD(365,.06,"DT")="3020607"
^DD(365,.07,0)="DATE/TIME RECEIVED^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(365,.07,.1)="Response Date"
^DD(365,.07,21,0)="^^2^2^3020607^"
^DD(365,.07,21,1,0)="This is the date and time that the HL7 response was received"
^DD(365,.07,21,2,0)="from the payer via the Eligibility Communicator."
^DD(365,.07,"DT")="3020809"
^DD(365,.08,0)="DATE/TIME CREATED^D^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(365,.08,1,0)="^.1"
^DD(365,.08,1,1,0)="365^AE"
^DD(365,.08,1,1,1)="S ^IBCN(365,""AE"",$E(X,1,30),DA)="""""
^DD(365,.08,1,1,2)="K ^IBCN(365,""AE"",$E(X,1,30),DA)"
^DD(365,.08,1,1,"%D",0)="^^1^1^3020611^"
^DD(365,.08,1,1,"%D",1,0)="Index used for IIV reporting - statistics"
^DD(365,.08,1,1,"DT")="3020611"
^DD(365,.08,21,0)="^.001^2^2^3020607^^"
^DD(365,.08,21,1,0)="This is the date and time that the baseline response record "
^DD(365,.08,21,2,0)="was created when the outgoing HL7 message was generated."
^DD(365,.08,"DT")="3020611"
^DD(365,.09,0)="TRACE NUMBER^F^^0;9^K:$L(X)>15!($L(X)<3) X"
^DD(365,.09,.1)="Trace #"
^DD(365,.09,1,0)="^.1"
^DD(365,.09,1,1,0)="365^C"
^DD(365,.09,1,1,1)="S ^IBCN(365,""C"",$E(X,1,30),DA)="""""
^DD(365,.09,1,1,2)="K ^IBCN(365,""C"",$E(X,1,30),DA)"
^DD(365,.09,1,1,"%D",0)="^^2^2^3020809^"
^DD(365,.09,1,1,"%D",1,0)="This is the Trace Number assigned to the message from the incoming"
^DD(365,.09,1,1,"%D",2,0)="source."
^DD(365,.09,1,1,"DT")="3020809"
^DD(365,.09,3)="Answer must be 3-15 characters in length."
^DD(365,.09,21,0)="^.001^2^2^3030204^^^"
^DD(365,.09,21,1,0)="This field will contain the Trace Number assigned by EC that is"
^DD(365,.09,21,2,0)="used for tracking a message between EC and the vendor."
^DD(365,.09,"DT")="3030204"
^DD(365,.1,0)="RESPONSE TYPE^S^O:Original;U:Unsolicited;^0;10^Q"
^DD(365,.1,21,0)="^.001^3^3^3030507^^"
^DD(365,.1,21,1,0)="This field identifies whether a response originated from the"
^DD(365,.1,21,2,0)="Transmission Queue file (Original) or was received Unsolicited"
^DD(365,.1,21,3,0)="from the EC."
^DD(365,.1,"DT")="3020906"
^DD(365,1.01,0)="NAME OF INSURED^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(365,1.01,.1)="Subscriber"
^DD(365,1.01,3)="Answer must be 1-30 characters in length"
^DD(365,1.01,21,0)="^^4^4^3020607^"
^DD(365,1.01,21,1,0)="This is the name of the insured person in LastName,FirstName MI"
^DD(365,1.01,21,2,0)="format.  If the patient is the subscriber, this field is the"
^DD(365,1.01,21,3,0)="same.  If the patient is a dependent, the subscriber's name is"
^DD(365,1.01,21,4,0)="stored here."
^DD(365,1.01,"DT")="3020712"
^DD(365,1.02,0)="INSURED DOB^F^^1;2^K:$L(X)>12!($L(X)<1) X"
^DD(365,1.02,.1)="Subscriber DOB"
^DD(365,1.02,3)="Answer must be 1-12 characters in length"
^DD(365,1.02,21,0)="^^1^1^3020607^"
^DD(365,1.02,21,1,0)="The date of birth of the insured person."
^DD(365,1.02,"DT")="3021011"
^DD(365,1.03,0)="INSURED SSN^F^^1;3^K:$L(X)>11!($L(X)<1) X"
^DD(365,1.03,.1)="Subscriber SSN"
^DD(365,1.03,3)="Answer must be 1-11 characters in length"
^DD(365,1.03,21,0)="^^1^1^3020607^"
^DD(365,1.03,21,1,0)="The social security number of the insured person."
^DD(365,1.03,"DT")="3020712"
^DD(365,1.04,0)="INSURED SEX^F^^1;4^K:$L(X)>6!($L(X)<1) X"
^DD(365,1.04,.1)="Subscriber Sex"
^DD(365,1.04,3)="Answer must be 1-6 characters in length"
^DD(365,1.04,21,0)="^^1^1^3020607^"
^DD(365,1.04,21,1,0)="The sex of the insured person."
^DD(365,1.04,"DT")="3021011"
^DD(365,1.05,0)="SUBSCRIBER ID^F^^1;5^K:$L(X)>20!($L(X)<1) X"
^DD(365,1.05,.1)="Subscriber ID"
^DD(365,1.05,3)="Answer must be 1-20 characters in length"
^DD(365,1.05,21,0)="^^1^1^3020607^"
^DD(365,1.05,21,1,0)="The subscriber identification of the insured person."
^DD(365,1.05,"DT")="3020712"
^DD(365,1.06,0)="GROUP NAME^F^^1;6^K:$L(X)>20!($L(X)<1) X"
^DD(365,1.06,.1)="Group Name"
^DD(365,1.06,3)="Answer must be 1-20 characters in length"
^DD(365,1.06,21,0)="^^1^1^3020607^"
^DD(365,1.06,21,1,0)="The name of the group or plan if not an individual policy."
^DD(365,1.06,"DT")="3020712"
^DD(365,1.07,0)="GROUP NUMBER^F^^1;7^K:$L(X)>17!($L(X)<1) X"
^DD(365,1.07,.1)="Group ID"
^DD(365,1.07,3)="Answer must be 1-17 characters in length"
^DD(365,1.07,21,0)="^^1^1^3020607^"
^DD(365,1.07,21,1,0)="The number that identifies the group or plan."
^DD(365,1.07,"DT")="3020712"
^DD(365,1.08,0)="WHOSE INSURANCE^S^v:VETERAN;s:SPOUSE;o:OTHER;^1;8^Q"
^DD(365,1.08,.1)="Whose Insurance"
^DD(365,1.08,21,0)="^^2^2^3020607^"
^DD(365,1.08,21,1,0)="This is a definition of who is the subscriber of the insurance;"
^DD(365,1.08,21,2,0)="the veteran, a spouse or someone else."
^DD(365,1.08,"DT")="3020712"
^DD(365,1.09,0)="PT RELATIONSHIP TO INSURED^S^01:PATIENT;02:SPOUSE;03:NATURAL CHILD;08:EMPLOYEE;09:UNKNOWN;11:ORGAN DONOR;15:INJURED PLAINTIFF;18:PARENT;^1;9^Q"
^DD(365,1.09,.1)="Pt Rel to Insured"
^DD(365,1.09,21,0)="^.001^2^2^3030507^^"
^DD(365,1.09,21,1,0)="This is a definition of the patient's relationship to the"
^DD(365,1.09,21,2,0)="insured person."
^DD(365,1.09,"DT")="3030507"
^DD(365,1.1,0)="SERVICE DATE^D^^1;10^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(365,1.1,.1)="Service Date"
^DD(365,1.1,3)="(No range limit on date)"
^DD(365,1.1,21,0)="^^3^3^3020607^"
^DD(365,1.1,21,1,0)="This is the date of service returned by the Eligibility"
^DD(365,1.1,21,2,0)="Communicator.  It may be different from the one sent in"
^DD(365,1.1,21,3,0)="the original inquiry."
^DD(365,1.1,"DT")="3020712"
^DD(365,1.11,0)="EFFECTIVE DATE^D^^1;11^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(365,1.11,.1)="Effective Date"
^DD(365,1.11,3)="(No range limit on date)"
^DD(365,1.11,21,0)="^^1^1^3020607^"
^DD(365,1.11,21,1,0)="This is the date that the insurance coverage began."
^DD(365,1.11,"DT")="3020712"
^DD(365,1.12,0)="EXPIRATION DATE^D^^1;12^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(365,1.12,.1)="Expiration Date"
^DD(365,1.12,3)="(No range limit on date)"
^DD(365,1.12,21,0)="^^1^1^3020607^"
^DD(365,1.12,21,1,0)="This is the date that the insurance coverage ends."
^DD(365,1.12,"DT")="3020712"
^DD(365,1.13,0)="COORDINATION OF BENEFITS^S^1:PRIMARY;2:SECONDARY;3:TERTIARY;^1;13^Q"
^DD(365,1.13,.1)="COB"
^DD(365,1.13,21,0)="^^2^2^3020607^"
^DD(365,1.13,21,1,0)="If an insurance payer is identified as a primary, secondary or"
^DD(365,1.13,21,2,0)="tertiary in the response."
^DD(365,1.13,"DT")="3020712"
^DD(365,1.14,0)="ERROR CONDITION^P365.017'^IBE(365.017,^1;14^Q"
^DD(365,1.14,.1)="Error Condition"
^DD(365,1.14,21,0)="^^2^2^3020607^"
^DD(365,1.14,21,1,0)="This is an error value returned from either the payer or the"
^DD(365,1.14,21,2,0)="Eligibility Communicator."
^DD(365,1.14,"DT")="3020712"
^DD(365,1.15,0)="ERROR ACTION^P365.018'^IBE(365.018,^1;15^Q"
^DD(365,1.15,.1)="Error Action"
^DD(365,1.15,21,0)="^^2^2^3020607^"
^DD(365,1.15,21,1,0)="When an error condition is returned in the response, there may"
^DD(365,1.15,21,2,0)="be an action that directs what happens to the response."
^DD(365,1.15,"DT")="3020712"
^DD(365,1.16,0)="DATE OF DEATH^D^^1;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(365,1.16,.1)="Date of Death"
^DD(365,1.16,21,0)="^^2^2^3020607^"
^DD(365,1.16,21,1,0)="This is the date that the payer indicates that the person"
^DD(365,1.16,21,2,0)="that verification was requested for has died."
^DD(365,1.16,"DT")="3020712"
^DD(365,1.17,0)="CERTIFICATION DATE^D^^1;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(365,1.17,.1)="Certification Date"
^DD(365,1.17,21,0)="^^2^2^3020607^"
^DD(365,1.17,21,1,0)="This field may be returned by the payer and is the date that"
^DD(365,1.17,21,2,0)="the insurance coverage was certified."
^DD(365,1.17,"DT")="3020712"
^DD(365,1.18,0)="MEMBER ID^F^^1;18^K:$L(X)>20!($L(X)<1) X"
^DD(365,1.18,.1)="Member ID"
^DD(365,1.18,3)="Answer must be 1-20 characters in length."
^DD(365,1.18,21,0)="^^1^1^3021010^"
^DD(365,1.18,21,1,0)="The member identification of the insured person."
^DD(365,1.18,"DT")="3021010"
^DD(365,1.19,0)="PAYER UPDATED POLICY^D^^1;19^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(365,1.19,.1)="Payer Updated Policy"
^DD(365,1.19,3)="Enter the date the payer updated their record of this policy."
^DD(365,1.19,21,0)="^.001^3^3^3051007^^"
^DD(365,1.19,21,1,0)="The date/time that the payer indicated they had updated their record of "
^DD(365,1.19,21,2,0)="this policy.  This date/time was received by IIV from the Eligibility"
^DD(365,1.19,21,3,0)="Communicator."
^DD(365,1.19,"DT")="3050720"
^DD(365,1.2,0)="POLICY NUMBER^F^^1;20^K:$L(X)>30!($L(X)<1) X"
^DD(365,1.2,.1)="Policy Number"
^DD(365,1.2,3)="Answer must be 1-30 characters in length."
^DD(365,1.2,21,0)="^^2^2^3051007^"
^DD(365,1.2,21,1,0)="This field may be returned by the payer.  It is the policy number of the "
^DD(365,1.2,21,2,0)="insured person."
^DD(365,1.2,"DT")="3051007"
^DD(365,2,0)="ELIGIBILITY/BENEFIT^365.02^^2;0"
^DD(365,2,21,0)="^.001^2^2^3030213^^^"
^DD(365,2,21,1,0)="This multiple contains all of the eligibility and benefit data"
^DD(365,2,21,2,0)="for a specific insured person returned from the Payer."
^DD(365,3,0)="CONTACT PERSON^365.03^^3;0"
^DD(365,3,21,0)="^.001^3^3^3030613^^^^"
^DD(365,3,21,1,0)="This field contains any persons identified by the Payer"
^DD(365,3,21,2,0)="as a contact name and/or communications number.  There "
^DD(365,3,21,3,0)="could be up to 3 different methods of communication."
^DD(365,4.01,0)="ERROR TEXT^F^^4;1^K:$L(X)>80!($L(X)<1) X"
^DD(365,4.01,.1)="Error Text"
^DD(365,4.01,3)="Answer must be 1-80 characters in length."
^DD(365,4.01,21,0)="^^3^3^3020702^"
^DD(365,4.01,21,1,0)="This field contains error message text which is sent from the"
^DD(365,4.01,21,2,0)="Eligibility Communicator if an error does not fall within one"
^DD(365,4.01,21,3,0)="of the standard X.12 error conditions."
^DD(365,4.01,"DT")="3020906"
^DD(365,"B","BUFFER ENTRY",.04)=""
^DD(365,"B","CERTIFICATION DATE",1.17)=""
^DD(365,"B","COB",1.13)="1"
^DD(365,"B","CONTACT PERSON",3)=""
^DD(365,"B","COORDINATION OF BENEFITS",1.13)=""
^DD(365,"B","Certification Date",1.17)="1"
^DD(365,"B","DATE OF DEATH",1.16)=""
^DD(365,"B","DATE/TIME CREATED",.08)=""
^DD(365,"B","DATE/TIME RECEIVED",.07)=""
^DD(365,"B","Date of Death",1.16)="1"
^DD(365,"B","EFFECTIVE DATE",1.11)=""
^DD(365,"B","ELIGIBILITY/BENEFIT",2)=""
^DD(365,"B","ERROR ACTION",1.15)=""
^DD(365,"B","ERROR CONDITION",1.14)=""
^DD(365,"B","ERROR TEXT",4.01)=""
^DD(365,"B","EXPIRATION DATE",1.12)=""
^DD(365,"B","Effective Date",1.11)="1"
^DD(365,"B","Error Action",1.15)="1"
^DD(365,"B","Error Condition",1.14)="1"
^DD(365,"B","Error Text",4.01)="1"
^DD(365,"B","Expiration Date",1.12)="1"
^DD(365,"B","GROUP NAME",1.06)=""
^DD(365,"B","GROUP NUMBER",1.07)=""
^DD(365,"B","Group ID",1.07)="1"
^DD(365,"B","Group Name",1.06)="1"
^DD(365,"B","INSURED DOB",1.02)=""
^DD(365,"B","INSURED SEX",1.04)=""
^DD(365,"B","INSURED SSN",1.03)=""
^DD(365,"B","MEMBER ID",1.18)=""
^DD(365,"B","MESSAGE CONTROL ID",.01)=""
^DD(365,"B","Member ID",1.18)="1"
^DD(365,"B","NAME OF INSURED",1.01)=""
^DD(365,"B","PATIENT",.02)=""
^DD(365,"B","PAYER",.03)=""
^DD(365,"B","PAYER UPDATED POLICY",1.19)=""
^DD(365,"B","POLICY NUMBER",1.2)=""
^DD(365,"B","PT RELATIONSHIP TO INSURED",1.09)=""
^DD(365,"B","Payer Updated Policy",1.19)="1"
^DD(365,"B","Policy Number",1.2)="1"
^DD(365,"B","Pt Rel to Insured",1.09)="1"
^DD(365,"B","RESPONSE TYPE",.1)=""
^DD(365,"B","Response Date",.07)="1"
^DD(365,"B","SERVICE DATE",1.1)=""
^DD(365,"B","SUBSCRIBER ID",1.05)=""
^DD(365,"B","Service Date",1.1)="1"
^DD(365,"B","Subscriber",1.01)="1"
^DD(365,"B","Subscriber DOB",1.02)="1"
^DD(365,"B","Subscriber ID",1.05)="1"
^DD(365,"B","Subscriber SSN",1.03)="1"
^DD(365,"B","Subscriber Sex",1.04)="1"
^DD(365,"B","TRACE NUMBER",.09)=""
^DD(365,"B","TRANSMISSION QUEUE",.05)=""
^DD(365,"B","TRANSMISSION STATUS",.06)=""
^DD(365,"B","Trace #",.09)="1"
^DD(365,"B","WHOSE INSURANCE",1.08)=""
^DD(365,"B","Whose Insurance",1.08)="1"
^DD(365,"GL",0,1,.01)=""
^DD(365,"GL",0,2,.02)=""
^DD(365,"GL",0,3,.03)=""
^DD(365,"GL",0,4,.04)=""
^DD(365,"GL",0,5,.05)=""
^DD(365,"GL",0,6,.06)=""
^DD(365,"GL",0,7,.07)=""
^DD(365,"GL",0,8,.08)=""
^DD(365,"GL",0,9,.09)=""
^DD(365,"GL",0,10,.1)=""
^DD(365,"GL",1,1,1.01)=""
^DD(365,"GL",1,2,1.02)=""
^DD(365,"GL",1,3,1.03)=""
^DD(365,"GL",1,4,1.04)=""
^DD(365,"GL",1,5,1.05)=""
^DD(365,"GL",1,6,1.06)=""
^DD(365,"GL",1,7,1.07)=""
^DD(365,"GL",1,8,1.08)=""
^DD(365,"GL",1,9,1.09)=""
^DD(365,"GL",1,10,1.1)=""
^DD(365,"GL",1,11,1.11)=""
^DD(365,"GL",1,12,1.12)=""
^DD(365,"GL",1,13,1.13)=""
^DD(365,"GL",1,14,1.14)=""
^DD(365,"GL",1,15,1.15)=""
^DD(365,"GL",1,16,1.16)=""
^DD(365,"GL",1,17,1.17)=""
^DD(365,"GL",1,18,1.18)=""
^DD(365,"GL",1,19,1.19)=""
^DD(365,"GL",1,20,1.2)=""
^DD(365,"GL",2,0,2)=""
^DD(365,"GL",3,0,3)=""
^DD(365,"GL",4,1,4.01)=""
^DD(365,"IX",.01)=""
^DD(365,"IX",.04)=""
^DD(365,"IX",.06)=""
^DD(365,"IX",.08)=""
^DD(365,"IX",.09)=""
^DD(365,"RQ",.01)=""
^DD(365,"SB",365.02,2)=""
^DD(365,"SB",365.03,3)=""
^DD(365.011,0)="FIELD^^.03^3"
^DD(365.011,0,"DDA")="N"
^DD(365.011,0,"DT")="3020603"
^DD(365.011,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.011,0,"IX","B",365.011,.01)=""
^DD(365.011,0,"NM","X12 271 ELIGIBILITY/BENEFIT")=""
^DD(365.011,0,"PT",365.02,.02)=""
^DD(365.011,0,"VR")="2.0"
^DD(365.011,0,"VRPK")="IB"
^DD(365.011,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(365.011,.01,1,0)="^.1"
^DD(365.011,.01,1,1,0)="365.011^B"
^DD(365.011,.01,1,1,1)="S ^IBE(365.011,""B"",$E(X,1,30),DA)="""""
^DD(365.011,.01,1,1,2)="K ^IBE(365.011,""B"",$E(X,1,30),DA)"
^DD(365.011,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.011,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.011,.01,3)="Answer must be 1-2 characters in length."
^DD(365.011,.01,21,0)="^^1^1^3020612^"
^DD(365.011,.01,21,1,0)="This is the code value sent in an X.12 271 EB01 table."
^DD(365.011,.01,"DT")="3020517"
^DD(365.011,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>75!($L(X)<1) X"
^DD(365.011,.02,3)="Answer must be 1-75 characters in length"
^DD(365.011,.02,21,0)="^^1^1^3020612^"
^DD(365.011,.02,21,1,0)="This describes the code value in more detail."
^DD(365.011,.02,"DT")="3020517"
^DD(365.011,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.011,.03,21,0)="^^2^2^3020612^"
^DD(365.011,.03,21,1,0)="This field will be marked inactive if a code is determined to no longer"
^DD(365.011,.03,21,2,0)="be used by X.12."
^DD(365.011,.03,"DT")="3020603"
^DD(365.011,"B","CODE",.01)=""
^DD(365.011,"B","DESCRIPTION",.02)=""
^DD(365.011,"B","INACTIVE?",.03)=""
^DD(365.011,"GL",0,1,.01)=""
^DD(365.011,"GL",0,2,.02)=""
^DD(365.011,"GL",0,3,.03)=""
^DD(365.011,"IX",.01)=""
^DD(365.011,"RQ",.01)=""
^DD(365.012,0)="FIELD^^.03^3"
^DD(365.012,0,"DDA")="N"
^DD(365.012,0,"DT")="3020603"
^DD(365.012,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.012,0,"IX","B",365.012,.01)=""
^DD(365.012,0,"NM","X12 271 COVERAGE LEVEL")=""
^DD(365.012,0,"PT",365.02,.03)=""
^DD(365.012,0,"VR")="2.0"
^DD(365.012,0,"VRPK")="IB"
^DD(365.012,.01,0)="CODE^RF^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(365.012,.01,1,0)="^.1"
^DD(365.012,.01,1,1,0)="365.012^B"
^DD(365.012,.01,1,1,1)="S ^IBE(365.012,""B"",$E(X,1,30),DA)="""""
^DD(365.012,.01,1,1,2)="K ^IBE(365.012,""B"",$E(X,1,30),DA)"
^DD(365.012,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.012,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.012,.01,3)="Answer must be 3 characters in length"
^DD(365.012,.01,21,0)="^^1^1^3020612^"
^DD(365.012,.01,21,1,0)="This is the code value sent in an X.12 271 EB02 table."
^DD(365.012,.01,"DT")="3020517"
^DD(365.012,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>75!($L(X)<1) X"
^DD(365.012,.02,3)="Answer must be 1-75 characters in length"
^DD(365.012,.02,21,0)="^^1^1^3020612^"
^DD(365.012,.02,21,1,0)="This describes the code value in more detail."
^DD(365.012,.02,"DT")="3020517"
^DD(365.012,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.012,.03,21,0)="^^2^2^3020612^"
^DD(365.012,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.012,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.012,.03,"DT")="3020603"
^DD(365.012,"B","CODE",.01)=""
^DD(365.012,"B","DESCRIPTION",.02)=""
^DD(365.012,"B","INACTIVE?",.03)=""
^DD(365.012,"GL",0,1,.01)=""
^DD(365.012,"GL",0,2,.02)=""
^DD(365.012,"GL",0,3,.03)=""
^DD(365.012,"IX",.01)=""
^DD(365.012,"RQ",.01)=""
^DD(365.013,0)="FIELD^^.03^3"
^DD(365.013,0,"DDA")="N"
^DD(365.013,0,"DT")="3020603"
^DD(365.013,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.013,0,"IX","B",365.013,.01)=""
^DD(365.013,0,"NM","X12 271 SERVICE TYPE")=""
^DD(365.013,0,"PT",365.02,.04)=""
^DD(365.013,0,"VR")="2.0"
^DD(365.013,0,"VRPK")="IB"
^DD(365.013,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1) X"
^DD(365.013,.01,1,0)="^.1"
^DD(365.013,.01,1,1,0)="365.013^B"
^DD(365.013,.01,1,1,1)="S ^IBE(365.013,""B"",$E(X,1,30),DA)="""""
^DD(365.013,.01,1,1,2)="K ^IBE(365.013,""B"",$E(X,1,30),DA)"
^DD(365.013,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.013,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.013,.01,3)="Answer must be 1-2 characters in length"
^DD(365.013,.01,21,0)="^.001^1^1^3020612^^"
^DD(365.013,.01,21,1,0)="This is the code value sent in an X.12 271 EB03."
^DD(365.013,.01,"DT")="3020517"
^DD(365.013,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>75!($L(X)<1) X"
^DD(365.013,.02,3)="Answer must be 1-75 characters in length"
^DD(365.013,.02,21,0)="^^1^1^3020612^"
^DD(365.013,.02,21,1,0)="This describes the code value in more detail."
^DD(365.013,.02,"DT")="3020517"
^DD(365.013,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.013,.03,21,0)="^^2^2^3020612^"
^DD(365.013,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.013,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.013,.03,"DT")="3020603"
^DD(365.013,"B","CODE",.01)=""
^DD(365.013,"B","DESCRIPTION",.02)=""
^DD(365.013,"B","INACTIVE?",.03)=""
^DD(365.013,"GL",0,1,.01)=""
^DD(365.013,"GL",0,2,.02)=""
^DD(365.013,"GL",0,3,.03)=""
^DD(365.013,"IX",.01)=""
^DD(365.013,"RQ",.01)=""
^DD(365.014,0)="FIELD^^.03^3"
^DD(365.014,0,"DDA")="N"
^DD(365.014,0,"DT")="3020612"
^DD(365.014,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.014,0,"IX","B",365.014,.01)=""
^DD(365.014,0,"NM","X12 271 INSURANCE TYPE")=""
^DD(365.014,0,"PT",365.02,.05)=""
^DD(365.014,0,"VR")="2.0"
^DD(365.014,0,"VRPK")="IB"
^DD(365.014,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1) X"
^DD(365.014,.01,1,0)="^.1"
^DD(365.014,.01,1,1,0)="365.014^B"
^DD(365.014,.01,1,1,1)="S ^IBE(365.014,""B"",$E(X,1,30),DA)="""""
^DD(365.014,.01,1,1,2)="K ^IBE(365.014,""B"",$E(X,1,30),DA)"
^DD(365.014,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.014,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.014,.01,3)="Answer must be 1-2 characters in length"
^DD(365.014,.01,21,0)="^^1^1^3020612^"
^DD(365.014,.01,21,1,0)="This is the code value sent in an X.12 271 EB04."
^DD(365.014,.01,"DT")="3020517"
^DD(365.014,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>175!($L(X)<1) X"
^DD(365.014,.02,3)="Answer must be 1-175 characters in length."
^DD(365.014,.02,21,0)="^^1^1^3020612^"
^DD(365.014,.02,21,1,0)="This describes the code value in more detail."
^DD(365.014,.02,"DT")="3020612"
^DD(365.014,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.014,.03,21,0)="^^2^2^3020612^"
^DD(365.014,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.014,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.014,.03,"DT")="3020603"
^DD(365.014,"B","CODE",.01)=""
^DD(365.014,"B","DESCRIPTION",.02)=""
^DD(365.014,"B","INACTIVE?",.03)=""
^DD(365.014,"GL",0,1,.01)=""
^DD(365.014,"GL",0,2,.02)=""
^DD(365.014,"GL",0,3,.03)=""
^DD(365.014,"IX",.01)=""
^DD(365.014,"RQ",.01)=""
^DD(365.015,0)="FIELD^^.03^3"
^DD(365.015,0,"DDA")="N"
^DD(365.015,0,"DT")="3020603"
^DD(365.015,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.015,0,"IX","B",365.015,.01)=""
^DD(365.015,0,"NM","X12 271 TIME PERIOD QUALIFIER")=""
^DD(365.015,0,"PT",365.02,.07)=""
^DD(365.015,0,"VR")="2.0"
^DD(365.015,0,"VRPK")="IB"
^DD(365.015,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1) X"
^DD(365.015,.01,1,0)="^.1"
^DD(365.015,.01,1,1,0)="365.015^B"
^DD(365.015,.01,1,1,1)="S ^IBE(365.015,""B"",$E(X,1,30),DA)="""""
^DD(365.015,.01,1,1,2)="K ^IBE(365.015,""B"",$E(X,1,30),DA)"
^DD(365.015,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.015,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.015,.01,3)="Answer must be 1-2 characters in length"
^DD(365.015,.01,21,0)="^.001^1^1^3030320^^"
^DD(365.015,.01,21,1,0)="This is the code value sent in an X.12 271 EB06."
^DD(365.015,.01,"DT")="3020517"
^DD(365.015,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(365.015,.02,3)="Answer must be 1-30 characters in length"
^DD(365.015,.02,21,0)="^^1^1^3020612^"
^DD(365.015,.02,21,1,0)="This describes the code value in more detail."
^DD(365.015,.02,"DT")="3020517"
^DD(365.015,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.015,.03,21,0)="^^2^2^3020612^"
^DD(365.015,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.015,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.015,.03,"DT")="3020603"
^DD(365.015,"B","CODE",.01)=""
^DD(365.015,"B","DESCRIPTION",.02)=""
^DD(365.015,"B","INACTIVE?",.03)=""
^DD(365.015,"GL",0,1,.01)=""
^DD(365.015,"GL",0,2,.02)=""
^DD(365.015,"GL",0,3,.03)=""
^DD(365.015,"IX",.01)=""
^DD(365.015,"RQ",.01)=""
^DD(365.016,0)="FIELD^^.03^3"
^DD(365.016,0,"DDA")="N"
^DD(365.016,0,"DT")="3020603"
^DD(365.016,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.016,0,"IX","B",365.016,.01)=""
^DD(365.016,0,"NM","X12 271 QUANTITY QUALIFIER")=""
^DD(365.016,0,"PT",365.02,.1)=""
^DD(365.016,0,"VR")="2.0"
^DD(365.016,0,"VRPK")="IB"
^DD(365.016,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1) X"
^DD(365.016,.01,1,0)="^.1"
^DD(365.016,.01,1,1,0)="365.016^B"
^DD(365.016,.01,1,1,1)="S ^IBE(365.016,""B"",$E(X,1,30),DA)="""""
^DD(365.016,.01,1,1,2)="K ^IBE(365.016,""B"",$E(X,1,30),DA)"
^DD(365.016,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.016,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.016,.01,3)="Answer must be 1-2 characters in length"
^DD(365.016,.01,21,0)="^.001^1^1^3030318^^^^"
^DD(365.016,.01,21,1,0)="This is the code value sent in an X.12 271 EB09."
^DD(365.016,.01,"DT")="3020517"
^DD(365.016,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(365.016,.02,3)="Answer must be 1-30 characters in length"
^DD(365.016,.02,21,0)="^^1^1^3020612^"
^DD(365.016,.02,21,1,0)="This describes the code value in more detail."
^DD(365.016,.02,"DT")="3020517"
^DD(365.016,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.016,.03,21,0)="^^2^2^3020612^"
^DD(365.016,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.016,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.016,.03,"DT")="3020603"
^DD(365.016,"B","CODE",.01)=""
^DD(365.016,"B","DESCRIPTION",.02)=""
^DD(365.016,"B","INACTIVE?",.03)=""
^DD(365.016,"GL",0,1,.01)=""
^DD(365.016,"GL",0,2,.02)=""
^DD(365.016,"GL",0,3,.03)=""
^DD(365.016,"IX",.01)=""
^DD(365.016,"RQ",.01)=""
^DD(365.017,0)="FIELD^^.03^3"
^DD(365.017,0,"DDA")="N"
^DD(365.017,0,"DT")="3020603"
^DD(365.017,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.017,0,"IX","B",365.017,.01)=""
^DD(365.017,0,"NM","X12 271 ERROR CONDITION")=""
^DD(365.017,0,"PT",365,1.14)=""
^DD(365.017,0,"VR")="2.0"
^DD(365.017,0,"VRPK")="IB"
^DD(365.017,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(365.017,.01,1,0)="^.1"
^DD(365.017,.01,1,1,0)="365.017^B"
^DD(365.017,.01,1,1,1)="S ^IBE(365.017,""B"",$E(X,1,30),DA)="""""
^DD(365.017,.01,1,1,2)="K ^IBE(365.017,""B"",$E(X,1,30),DA)"
^DD(365.017,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.017,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.017,.01,3)="Answer must be 1-2 characters in length."
^DD(365.017,.01,21,0)="^^1^1^3020612^"
^DD(365.017,.01,21,1,0)="This is the code value sent in an X.12 271 AAA03 as an error."
^DD(365.017,.01,"DT")="3020517"
^DD(365.017,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>75!($L(X)<1) X"
^DD(365.017,.02,3)="Answer must be 1-75 characters in length"
^DD(365.017,.02,21,0)="^^1^1^3020612^"
^DD(365.017,.02,21,1,0)="This describes the code value in more detail."
^DD(365.017,.02,"DT")="3020517"
^DD(365.017,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.017,.03,21,0)="^^2^2^3020612^"
^DD(365.017,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.017,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.017,.03,"DT")="3020603"
^DD(365.017,"B","CODE",.01)=""
^DD(365.017,"B","DESCRIPTION",.02)=""
^DD(365.017,"B","INACTIVE?",.03)=""
^DD(365.017,"GL",0,1,.01)=""
^DD(365.017,"GL",0,2,.02)=""
^DD(365.017,"GL",0,3,.03)=""
^DD(365.017,"IX",.01)=""
^DD(365.017,"RQ",.01)=""
^DD(365.018,0)="FIELD^^.03^3"
^DD(365.018,0,"DDA")="N"
^DD(365.018,0,"DT")="3020603"
^DD(365.018,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.018,0,"IX","B",365.018,.01)=""
^DD(365.018,0,"NM","X12 271 ERROR ACTION")=""
^DD(365.018,0,"PT",365,1.15)=""
^DD(365.018,0,"VR")="2.0"
^DD(365.018,0,"VRPK")="IB"
^DD(365.018,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(365.018,.01,1,0)="^.1"
^DD(365.018,.01,1,1,0)="365.018^B"
^DD(365.018,.01,1,1,1)="S ^IBE(365.018,""B"",$E(X,1,30),DA)="""""
^DD(365.018,.01,1,1,2)="K ^IBE(365.018,""B"",$E(X,1,30),DA)"
^DD(365.018,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.018,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.018,.01,3)="Answer must be 1 character in length."
^DD(365.018,.01,21,0)="^^1^1^3020612^"
^DD(365.018,.01,21,1,0)="This is the code value sent in an X.12 271 AAA05."
^DD(365.018,.01,"DT")="3020517"
^DD(365.018,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>75!($L(X)<1) X"
^DD(365.018,.02,3)="Answer must be 1-75 characters in length"
^DD(365.018,.02,21,0)="^^1^1^3020612^"
^DD(365.018,.02,21,1,0)="This describes the code value in more detail."
^DD(365.018,.02,"DT")="3020522"
^DD(365.018,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.018,.03,21,0)="^^2^2^3020612^"
^DD(365.018,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.018,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.018,.03,"DT")="3020603"
^DD(365.018,"B","CODE",.01)=""
^DD(365.018,"B","DESCRIPTION",.02)=""
^DD(365.018,"B","INACTIVE?",.03)=""
^DD(365.018,"GL",0,1,.01)=""
^DD(365.018,"GL",0,2,.02)=""
^DD(365.018,"GL",0,3,.03)=""
^DD(365.018,"IX",.01)=""
^DD(365.018,"RQ",.01)=""
^DD(365.02,0)="ELIGIBILITY/BENEFIT SUB-FIELD^^2^14"
^DD(365.02,0,"DT")="3030213"
^DD(365.02,0,"IX","B",365.02,.01)=""
^DD(365.02,0,"NM","ELIGIBILITY/BENEFIT")=""
^DD(365.02,0,"UP")="365"
^DD(365.02,.01,0)="EB NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(365.02,.01,1,0)="^.1"
^DD(365.02,.01,1,1,0)="365.02^B"
^DD(365.02,.01,1,1,1)="S ^IBCN(365,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(365.02,.01,1,1,2)="K ^IBCN(365,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(365.02,.01,1,1,"%D",0)="^^1^1^3020715^"
^DD(365.02,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.02,.01,1,1,"DT")="3020715"
^DD(365.02,.01,3)="Type a Number between 1 and 999"
^DD(365.02,.01,21,0)="^^3^3^3020612^"
^DD(365.02,.01,21,1,0)="This is a sequential number corresponding to the Set-ID for all"
^DD(365.02,.01,21,2,0)="of the eligibility/benefit (X.12 EB segments) segments coming"
^DD(365.02,.01,21,3,0)="into VISTA."
^DD(365.02,.01,"DT")="3020715"
^DD(365.02,.02,0)="ELIGIBILITY/BENEFIT INFO^P365.011'^IBE(365.011,^0;2^Q"
^DD(365.02,.02,.1)="Elig/Ben Info"
^DD(365.02,.02,21,0)="^^3^3^3020612^"
^DD(365.02,.02,21,1,0)="This field contains a code identifying the eligibility status"
^DD(365.02,.02,21,2,0)="of the individual or the benefit returned by the Payer.  It corresponds"
^DD(365.02,.02,21,3,0)="to X.12 271 EB01 data element."
^DD(365.02,.02,"DT")="3020712"
^DD(365.02,.03,0)="COVERAGE LEVEL^P365.012'^IBE(365.012,^0;3^Q"
^DD(365.02,.03,.1)="Coverage Level"
^DD(365.02,.03,21,0)="^^2^2^3020612^"
^DD(365.02,.03,21,1,0)="This field identifies the level of coverage of benefits."
^DD(365.02,.03,21,2,0)="It corresponds to X.12 271 EB02 data element."
^DD(365.02,.03,"DT")="3020712"
^DD(365.02,.04,0)="SERVICE TYPE^P365.013'^IBE(365.013,^0;4^Q"
^DD(365.02,.04,.1)="Service Type"
^DD(365.02,.04,21,0)="^^2^2^3020612^"
^DD(365.02,.04,21,1,0)="This field is a code identifying the classification of service."
^DD(365.02,.04,21,2,0)="It corresponds to X.12 271 EB03 data element."
^DD(365.02,.04,"DT")="3020712"
^DD(365.02,.05,0)="INSURANCE TYPE^P365.014'^IBE(365.014,^0;5^Q"
^DD(365.02,.05,.1)="Insurance Type"
^DD(365.02,.05,21,0)="^^3^3^3020612^"
^DD(365.02,.05,21,1,0)="This code identifying the type of insurance policy within"
^DD(365.02,.05,21,2,0)="a specific insurance program.  It corresponds to X.12 271 EB04"
^DD(365.02,.05,21,3,0)="data element."
^DD(365.02,.05,"DT")="3020712"
^DD(365.02,.06,0)="PLAN COVERAGE DESCRIPTION^F^^0;6^K:$L(X)>50!($L(X)<1) X"
^DD(365.02,.06,.1)="Plan Coverage Description"
^DD(365.02,.06,3)="Answer must be 1-50 characters in length"
^DD(365.02,.06,21,0)="^.001^2^2^3020612^^"
^DD(365.02,.06,21,1,0)="This code is a description or number that identifies the plan"
^DD(365.02,.06,21,2,0)="or coverage. It corresponds to X.12 271 EB05 data element."
^DD(365.02,.06,"DT")="3020712"
^DD(365.02,.07,0)="TIME PERIOD QUALIFIER^P365.015'^IBE(365.015,^0;7^Q"
^DD(365.02,.07,.1)="Time Period"
^DD(365.02,.07,21,0)="^^3^3^3020612^"
^DD(365.02,.07,21,1,0)="This code for the time period category for the benefits being"
^DD(365.02,.07,21,2,0)="described when needed to qualify benefit availability."
^DD(365.02,.07,21,3,0)="It corresponds to X.12 271 EB06 data element."
^DD(365.02,.07,"DT")="3020712"
^DD(365.02,.08,0)="MONETARY AMOUNT^NJ12,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(365.02,.08,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(365.02,.08,21,0)="^.001^3^3^3040422^^^^"
^DD(365.02,.08,21,1,0)="This field is populated if eligibility or benefit must be"
^DD(365.02,.08,21,2,0)="qualified by a monetary amount. It corresponds to X.12 271 EB07"
^DD(365.02,.08,21,3,0)="data element."
^DD(365.02,.08,"DT")="3040422"
^DD(365.02,.09,0)="PERCENT^NJ9,5^^0;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""6N.N) X"
^DD(365.02,.09,.1)="Percentage"
^DD(365.02,.09,3)="Type a Number between 0 and 100, 5 Decimal Digits"
^DD(365.02,.09,21,0)="^.001^2^2^3030213^^^"
^DD(365.02,.09,21,1,0)="This field is used if eligibility or benefit must be qualified"
^DD(365.02,.09,21,2,0)="by a percentage. It corresponds to X.12 271 EB08 data element."
^DD(365.02,.09,"DT")="3030213"
^DD(365.02,.1,0)="QUANTITY QUALIFIER^P365.016'^IBE(365.016,^0;10^Q"
^DD(365.02,.1,.1)="Quantity"
^DD(365.02,.1,21,0)="^^3^3^3020708^"
^DD(365.02,.1,21,1,0)="This field is used to identify the type of units that are being"
^DD(365.02,.1,21,2,0)="conveyed in the QUANTITY field (#.11)."
^DD(365.02,.1,21,3,0)="It corresponds to X.12 271 EB09 data element."
^DD(365.02,.1,"DT")="3020712"
^DD(365.02,.11,0)="QUANTITY^F^^0;11^K:$L(X)>15!($L(X)<1) X"
^DD(365.02,.11,3)="Answer must be 1-15 characters in length"
^DD(365.02,.11,21,0)="^^3^3^3020612^"
^DD(365.02,.11,21,1,0)="This field number is used for the quantity value as qualified by"
^DD(365.02,.11,21,2,0)="the QUANTITY QUALIFIER field. It corresponds to X.12 271"
^DD(365.02,.11,21,3,0)="EB10 data element."
^DD(365.02,.11,"DT")="3020517"
^DD(365.02,.12,0)="AUTHORIZATION/CERTIFICATION^S^Y:YES;N:NO;U:UNKNOWN;^0;12^Q"
^DD(365.02,.12,.1)="Authorization/Certification"
^DD(365.02,.12,21,0)="^.001^3^3^3020612^^^"
^DD(365.02,.12,21,1,0)="This field indicates that an authorization or certification"
^DD(365.02,.12,21,2,0)="is required per plan provisions. It corresponds to X.12 271"
^DD(365.02,.12,21,3,0)="EB11 data element."
^DD(365.02,.12,"DT")="3020712"
^DD(365.02,.13,0)="IN PLAN^S^Y:YES;N:NO;U:UNKNOWN;^0;13^Q"
^DD(365.02,.13,.1)="In-Plan-Network"
^DD(365.02,.13,21,0)="^^3^3^3020612^"
^DD(365.02,.13,21,1,0)="This field indicates that an authorization or certification"
^DD(365.02,.13,21,2,0)="is required per plan provisions. It corresponds to X.12 271"
^DD(365.02,.13,21,3,0)="EB12 data element."
^DD(365.02,.13,"DT")="3020712"
^DD(365.02,2,0)="NOTES^365.22^^2;0"
^DD(365.02,2,21,0)="^^2^2^3020612^"
^DD(365.02,2,21,1,0)="This field contains any additional text about the eligibility"
^DD(365.02,2,21,2,0)="benefit information.  It is transcribed from X.12 271 MSG segments."
^DD(365.02,"B","AUTHORIZATION/CERTIFICATION",.12)=""
^DD(365.02,"B","Authorization/Certification",.12)="1"
^DD(365.02,"B","COVERAGE LEVEL",.03)=""
^DD(365.02,"B","Coverage Level",.03)="1"
^DD(365.02,"B","EB NUMBER",.01)=""
^DD(365.02,"B","ELIGIBILITY/BENEFIT INFO",.02)=""
^DD(365.02,"B","Elig/Ben Info",.02)="1"
^DD(365.02,"B","IN PLAN",.13)=""
^DD(365.02,"B","INSURANCE TYPE",.05)=""
^DD(365.02,"B","In-Plan-Network",.13)="1"
^DD(365.02,"B","Insurance Type",.05)="1"
^DD(365.02,"B","MONETARY AMOUNT",.08)=""
^DD(365.02,"B","NOTES",2)=""
^DD(365.02,"B","PERCENT",.09)=""
^DD(365.02,"B","PLAN COVERAGE DESCRIPTION",.06)=""
^DD(365.02,"B","Percentage",.09)="1"
^DD(365.02,"B","Plan Coverage Description",.06)="1"
^DD(365.02,"B","QUANTITY",.11)=""
^DD(365.02,"B","QUANTITY QUALIFIER",.1)=""
^DD(365.02,"B","Quantity",.1)="1"
^DD(365.02,"B","SERVICE TYPE",.04)=""
^DD(365.02,"B","Service Type",.04)="1"
^DD(365.02,"B","TIME PERIOD QUALIFIER",.07)=""
^DD(365.02,"B","Time Period",.07)="1"
^DD(365.02,"GL",0,1,.01)=""
^DD(365.02,"GL",0,2,.02)=""
^DD(365.02,"GL",0,3,.03)=""
^DD(365.02,"GL",0,4,.04)=""
^DD(365.02,"GL",0,5,.05)=""
^DD(365.02,"GL",0,6,.06)=""
^DD(365.02,"GL",0,7,.07)=""
^DD(365.02,"GL",0,8,.08)=""
^DD(365.02,"GL",0,9,.09)=""
^DD(365.02,"GL",0,10,.1)=""
^DD(365.02,"GL",0,11,.11)=""
^DD(365.02,"GL",0,12,.12)=""
^DD(365.02,"GL",0,13,.13)=""
^DD(365.02,"GL",2,0,2)=""
^DD(365.02,"IX",.01)=""
^DD(365.02,"SB",365.22,2)=""
^DD(365.021,0)="FIELD^^.03^3"
^DD(365.021,0,"DDA")="N"
^DD(365.021,0,"DT")="3020603"
^DD(365.021,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.021,0,"IX","B",365.021,.01)=""
^DD(365.021,0,"NM","X12 271 CONTACT QUALIFIER")=""
^DD(365.021,0,"PT",365.03,.02)=""
^DD(365.021,0,"PT",365.03,.04)=""
^DD(365.021,0,"PT",365.03,.06)=""
^DD(365.021,0,"VR")="2.0"
^DD(365.021,0,"VRPK")="IB"
^DD(365.021,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(365.021,.01,1,0)="^.1"
^DD(365.021,.01,1,1,0)="365.021^B"
^DD(365.021,.01,1,1,1)="S ^IBE(365.021,""B"",$E(X,1,30),DA)="""""
^DD(365.021,.01,1,1,2)="K ^IBE(365.021,""B"",$E(X,1,30),DA)"
^DD(365.021,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.021,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.021,.01,3)="Answer must be 2 characters in length."
^DD(365.021,.01,21,0)="^^1^1^3020612^"
^DD(365.021,.01,21,1,0)="This is the code value sent in an X.12 message."
^DD(365.021,.01,"DT")="3020517"
^DD(365.021,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(365.021,.02,3)="Answer must be 1-30 characters in length."
^DD(365.021,.02,21,0)="^^1^1^3020612^"
^DD(365.021,.02,21,1,0)="This describes the code value in more detail."
^DD(365.021,.02,"DT")="3020517"
^DD(365.021,.03,0)="INACTIVE?^S^0:NO;1:YES;^0;3^Q"
^DD(365.021,.03,21,0)="^^2^2^3020612^"
^DD(365.021,.03,21,1,0)="This field will be marked inactive if a code is"
^DD(365.021,.03,21,2,0)="determined to no longer be used by X.12."
^DD(365.021,.03,"DT")="3020603"
^DD(365.021,"B","CODE",.01)=""
^DD(365.021,"B","DESCRIPTION",.02)=""
^DD(365.021,"B","INACTIVE?",.03)=""
^DD(365.021,"GL",0,1,.01)=""
^DD(365.021,"GL",0,2,.02)=""
^DD(365.021,"GL",0,3,.03)=""
^DD(365.021,"IX",.01)=""
^DD(365.021,"RQ",.01)=""
^DD(365.03,0)="CONTACT PERSON SUB-FIELD^^.07^7"
^DD(365.03,0,"DT")="3030613"
^DD(365.03,0,"IX","B",365.03,.01)=""
^DD(365.03,0,"NM","CONTACT PERSON")=""
^DD(365.03,0,"UP")="365"
^DD(365.03,.01,0)="CONTACT PERSON^MF^^0;1^K:$L(X)>32!($L(X)<1) X"
^DD(365.03,.01,1,0)="^.1"
^DD(365.03,.01,1,1,0)="365.03^B"
^DD(365.03,.01,1,1,1)="S ^IBCN(365,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(365.03,.01,1,1,2)="K ^IBCN(365,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(365.03,.01,1,1,"%D",0)="^^1^1^3020715^"
^DD(365.03,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.03,.01,1,1,"DT")="3020715"
^DD(365.03,.01,3)="Answer must be 1-32 characters in length."
^DD(365.03,.01,21,0)="^.001^1^1^3030613^^^"
^DD(365.03,.01,21,1,0)="This is the name of the contact person."
^DD(365.03,.01,"DT")="3030613"
^DD(365.03,.02,0)="COMMUNICATION QUALIFIER #1^P365.021'^IBE(365.021,^0;2^Q"
^DD(365.03,.02,21,0)="^^2^2^3020612^"
^DD(365.03,.02,21,1,0)="This field identifies a method of communication, whether by"
^DD(365.03,.02,21,2,0)="phone or email, etc."
^DD(365.03,.02,"DT")="3020603"
^DD(365.03,.03,0)="COMMUNICATION NUMBER #1^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(365.03,.03,3)="Answer must be 1-20 characters in length."
^DD(365.03,.03,21,0)="^^2^2^3020612^"
^DD(365.03,.03,21,1,0)="This is the value of the information defined in the QUALIFIER #1"
^DD(365.03,.03,21,2,0)="field.  It could be a phone number or email address, etc."
^DD(365.03,.03,"DT")="3020603"
^DD(365.03,.04,0)="COMMUNICATION QUALIFIER #2^P365.021'^IBE(365.021,^0;4^Q"
^DD(365.03,.04,21,0)="^^2^2^3020612^"
^DD(365.03,.04,21,1,0)="This field identifies a method of communication, whether by"
^DD(365.03,.04,21,2,0)="phone or email, etc."
^DD(365.03,.04,"DT")="3020603"
^DD(365.03,.05,0)="COMMUNICATION NUMBER #2^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(365.03,.05,3)="Answer must be 1-20 characters in length."
^DD(365.03,.05,21,0)="^^2^2^3020612^"
^DD(365.03,.05,21,1,0)="This is the value of the information defined in the QUALIFIER #2"
^DD(365.03,.05,21,2,0)="field.  It could be a phone number or email address, etc."
^DD(365.03,.05,"DT")="3020603"
^DD(365.03,.06,0)="COMMUNICATION QUALIFIER #3^P365.021'^IBE(365.021,^0;6^Q"
^DD(365.03,.06,21,0)="^^2^2^3020612^"
^DD(365.03,.06,21,1,0)="This field identifies a method of communication, whether by"
^DD(365.03,.06,21,2,0)="phone or email, etc."
^DD(365.03,.06,"DT")="3020603"
^DD(365.03,.07,0)="COMMUNICATION NUMBER #3^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(365.03,.07,3)="Answer must be 1-20 characters in length."
^DD(365.03,.07,21,0)="^^2^2^3020612^"
^DD(365.03,.07,21,1,0)="This is the value of the information defined in the QUALIFIER #3"
^DD(365.03,.07,21,2,0)="field.  It could be a phone number or email address, etc."
^DD(365.03,.07,"DT")="3020603"
^DD(365.03,"B","COMMUNICATION NUMBER #1",.03)=""
^DD(365.03,"B","COMMUNICATION NUMBER #2",.05)=""
^DD(365.03,"B","COMMUNICATION NUMBER #3",.07)=""
^DD(365.03,"B","COMMUNICATION QUALIFIER #1",.02)=""
^DD(365.03,"B","COMMUNICATION QUALIFIER #2",.04)=""
^DD(365.03,"B","COMMUNICATION QUALIFIER #3",.06)=""
^DD(365.03,"B","CONTACT PERSON",.01)=""
^DD(365.03,"GL",0,1,.01)=""
^DD(365.03,"GL",0,2,.02)=""
^DD(365.03,"GL",0,3,.03)=""
^DD(365.03,"GL",0,4,.04)=""
^DD(365.03,"GL",0,5,.05)=""
^DD(365.03,"GL",0,6,.06)=""
^DD(365.03,"GL",0,7,.07)=""
^DD(365.03,"IX",.01)=""
^DD(365.1,0)="FIELD^^2^23"
^DD(365.1,0,"DDA")="N"
^DD(365.1,0,"DT")="3021025"
^DD(365.1,0,"IX","AC",365.1,.04)=""
^DD(365.1,0,"IX","AE",365.1,.06)=""
^DD(365.1,0,"IX","B",365.1,.01)=""
^DD(365.1,0,"IX","C",365.16,.02)=""
^DD(365.1,0,"IX","D",365.1,.05)=""
^DD(365.1,0,"IX","E",365.1,.02)=""
^DD(365.1,0,"IX","F",365.1,.03)=""
^DD(365.1,0,"NM","IIV TRANSMISSION QUEUE")=""
^DD(365.1,0,"PT",365,.05)=""
^DD(365.1,0,"VR")="2.0"
^DD(365.1,0,"VRPK")="IB"
^DD(365.1,.01,0)="TRANSACTION NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(365.1,.01,1,0)="^.1"
^DD(365.1,.01,1,1,0)="365.1^B"
^DD(365.1,.01,1,1,1)="S ^IBCN(365.1,""B"",$E(X,1,30),DA)="""""
^DD(365.1,.01,1,1,2)="K ^IBCN(365.1,""B"",$E(X,1,30),DA)"
^DD(365.1,.01,3)="Type a Number between 1 and 999999999"
^DD(365.1,.01,21,0)="^^2^2^3020612^"
^DD(365.1,.01,21,1,0)="This field is a sequential number used to uniquely identify a"
^DD(365.1,.01,21,2,0)="record when creating an entry in this file."
^DD(365.1,.01,"DT")="3020517"
^DD(365.1,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(365.1,.02,1,0)="^.1"
^DD(365.1,.02,1,1,0)="365.1^E"
^DD(365.1,.02,1,1,1)="S ^IBCN(365.1,""E"",$E(X,1,30),DA)="""""
^DD(365.1,.02,1,1,2)="K ^IBCN(365.1,""E"",$E(X,1,30),DA)"
^DD(365.1,.02,1,1,"DT")="3020723"
^DD(365.1,.02,21,0)="^.001^2^2^3030415^^"
^DD(365.1,.02,21,1,0)="This is the patient who needs to have insurance identification or"
^DD(365.1,.02,21,2,0)="verification performed."
^DD(365.1,.02,"DT")="3021023"
^DD(365.1,.03,0)="PAYER^P365.12'^IBE(365.12,^0;3^Q"
^DD(365.1,.03,1,0)="^.1"
^DD(365.1,.03,1,1,0)="365.1^F"
^DD(365.1,.03,1,1,1)="S ^IBCN(365.1,""F"",$E(X,1,30),DA)="""""
^DD(365.1,.03,1,1,2)="K ^IBCN(365.1,""F"",$E(X,1,30),DA)"
^DD(365.1,.03,1,1,"%D",0)="^^1^1^3020918^"
^DD(365.1,.03,1,1,"%D",1,0)="For testing purposes only"
^DD(365.1,.03,1,1,"DT")="3020918"
^DD(365.1,.03,21,0)="^^2^2^3020612^"
^DD(365.1,.03,21,1,0)="This is the Payer to whom the insurance identification or"
^DD(365.1,.03,21,2,0)="verification is to be submitted to."
^DD(365.1,.03,"DT")="3021023"
^DD(365.1,.04,0)="TRANSMISSION STATUS^P365.14'^IBE(365.14,^0;4^Q"
^DD(365.1,.04,1,0)="^.1"
^DD(365.1,.04,1,1,0)="365.1^AC"
^DD(365.1,.04,1,1,1)="S ^IBCN(365.1,""AC"",$E(X,1,30),DA)="""""
^DD(365.1,.04,1,1,2)="K ^IBCN(365.1,""AC"",$E(X,1,30),DA)"
^DD(365.1,.04,1,1,"%D",0)="^^2^2^3020607^"
^DD(365.1,.04,1,1,"%D",1,0)="This is a standard cross-reference by the Transmission Status.  It"
^DD(365.1,.04,1,1,"%D",2,0)="will be used to determined records being processed."
^DD(365.1,.04,1,1,"DT")="3020607"
^DD(365.1,.04,21,0)="^.001^1^1^3030409^^"
^DD(365.1,.04,21,1,0)="This is the current status of a transmission record."
^DD(365.1,.04,"DT")="3030409"
^DD(365.1,.05,0)="BUFFER ENTRY^P355.33'^IBA(355.33,^0;5^Q"
^DD(365.1,.05,1,0)="^.1"
^DD(365.1,.05,1,1,0)="365.1^D"
^DD(365.1,.05,1,1,1)="S ^IBCN(365.1,""D"",$E(X,1,30),DA)="""""
^DD(365.1,.05,1,1,2)="K ^IBCN(365.1,""D"",$E(X,1,30),DA)"
^DD(365.1,.05,1,1,"DT")="3020710"
^DD(365.1,.05,21,0)="^^3^3^3020612^"
^DD(365.1,.05,21,1,0)="This field will be populated if either the transmission record"
^DD(365.1,.05,21,2,0)="was created from a buffer entry or if a problem exists with"
^DD(365.1,.05,21,3,0)="the transmission record, a buffer entry will be created."
^DD(365.1,.05,"DT")="3020710"
^DD(365.1,.06,0)="DATE/TIME CREATED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(365.1,.06,1,0)="^.1"
^DD(365.1,.06,1,1,0)="365.1^AE"
^DD(365.1,.06,1,1,1)="S ^IBCN(365.1,""AE"",$E(X,1,30),DA)="""""
^DD(365.1,.06,1,1,2)="K ^IBCN(365.1,""AE"",$E(X,1,30),DA)"
^DD(365.1,.06,1,1,"%D",0)="^^2^2^3020711^"
^DD(365.1,.06,1,1,"%D",1,0)="This cross reference by the date/time created will be used during"
^DD(365.1,.06,1,1,"%D",2,0)="the purging process."
^DD(365.1,.06,1,1,"DT")="3020711"
^DD(365.1,.06,21,0)="^.001^1^1^3020612^^"
^DD(365.1,.06,21,1,0)="This is the date and time that the transmission record was created."
^DD(365.1,.06,"DT")="3020913"
^DD(365.1,.07,0)="NO. OF TRANSMISSIONS^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(365.1,.07,3)="Type a Number between 1 and 99"
^DD(365.1,.07,21,0)="^^2^2^3020612^"
^DD(365.1,.07,21,1,0)="This field is a count of how many HL7 messages have been"
^DD(365.1,.07,21,2,0)="generated and transmitted."
^DD(365.1,.07,"DT")="3020517"
^DD(365.1,.08,0)="NO. OF RETRIES^NJ2,0^^0;8^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(365.1,.08,3)="Type a Number between 0 and 10"
^DD(365.1,.08,21,0)="^^2^2^3020612^"
^DD(365.1,.08,21,1,0)="This field contains the number of retry messages that have"
^DD(365.1,.08,21,2,0)="been created an re-transmitted."
^DD(365.1,.08,"DT")="3020517"
^DD(365.1,.09,0)="DATE OF FUTURE TRANSMISSION^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(365.1,.09,3)="(No range limit on date)"
^DD(365.1,.09,21,0)="^^2^2^3020612^"
^DD(365.1,.09,21,1,0)="This field contains the date that if the transmission record"
^DD(365.1,.09,21,2,0)="status is ""hold"" that the record should be resent."
^DD(365.1,.09,"DT")="3020805"
^DD(365.1,.1,0)="WHICH EXTRACT^S^1:Buffer;2:Appt;3:Nonverified;4:No Insurance;^0;10^Q"
^DD(365.1,.1,21,0)="^^2^2^3020612^"
^DD(365.1,.1,21,1,0)="This field identifies which data extract that the transmission"
^DD(365.1,.1,21,2,0)="record was generated from."
^DD(365.1,.1,"DT")="3020517"
^DD(365.1,.11,0)="QUERY FLAG^S^I:Identification;V:Verification;^0;11^Q"
^DD(365.1,.11,21,0)="^^4^4^3020612^"
^DD(365.1,.11,21,1,0)="This field identifies whether the transmission record is an"
^DD(365.1,.11,21,2,0)="identification or a verification record.  Identification records"
^DD(365.1,.11,21,3,0)="will be checked against the National Insurance Cache to"
^DD(365.1,.11,21,4,0)="identify any insurance."
^DD(365.1,.11,"DT")="3020517"
^DD(365.1,.12,0)="SERVICE DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(365.1,.12,21,0)="^^2^2^3020612^"
^DD(365.1,.12,21,1,0)="This is the date that was determined by the system to submit to"
^DD(365.1,.12,21,2,0)="the Payer as the date that service was performed."
^DD(365.1,.12,"DT")="3021023"
^DD(365.1,.13,0)="INSUR RECORD IEN^NJ3,0^^0;13^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(365.1,.13,3)="Type a number between 1 and 999, 0 Decimal Digits"
^DD(365.1,.13,21,0)="^^4^4^3020618^"
^DD(365.1,.13,21,1,0)="This field is the IEN of the insurance record which the data"
^DD(365.1,.13,21,2,0)="extract used to determine that a valid payer record was to be"
^DD(365.1,.13,21,3,0)="placed in the Transmission Queue file.  This is used to help"
^DD(365.1,.13,21,4,0)="retrieve important information for the HL7 message."
^DD(365.1,.13,"DT")="3020702"
^DD(365.1,.14,0)="OVERRIDE FRESHNESS FLAG^S^1:YES;0:NO;^0;14^Q"
^DD(365.1,.14,3)="Enter Yes to force an electronic transmission of this entry."
^DD(365.1,.14,21,0)="^^5^5^3020702^"
^DD(365.1,.14,21,1,0)="The presence of this flag will alert the process that"
^DD(365.1,.14,21,2,0)="electronically transmits the insurance verification request,"
^DD(365.1,.14,21,3,0)="that this entry should get transmitted to the Payer - "
^DD(365.1,.14,21,4,0)="bypassing the National Insurance Cache.  This is regardless"
^DD(365.1,.14,21,5,0)="of the freshness date or of any other data elements."
^DD(365.1,.14,"DT")="3020702"
^DD(365.1,.15,0)="STATUS DATE^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(365.1,.15,3)="(No range limit on date)"
^DD(365.1,.15,21,0)="^.001^1^1^3020805^^"
^DD(365.1,.15,21,1,0)="This is the date/time that the status field was changed."
^DD(365.1,.15,"DT")="3020805"
^DD(365.1,.16,0)="HL7 SUBSCRIBER ID FIELD^F^^0;16^K:$L(X)>20!($L(X)<1) X"
^DD(365.1,.16,3)="Answer must be 1-20 characters in length."
^DD(365.1,.16,21,0)="^^3^3^3021002^"
^DD(365.1,.16,21,1,0)="This is the data that will be used to populate the Subscriber ID field in "
^DD(365.1,.16,21,2,0)="the HL7 message for the electronic Insurance Identification and "
^DD(365.1,.16,21,3,0)="Verification project."
^DD(365.1,.16,"DT")="3021016"
^DD(365.1,.17,0)="FRESHNESS DATE^D^^0;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(365.1,.17,3)="Enter valid date."
^DD(365.1,.17,"DT")="3021010"
^DD(365.1,.18,0)="PASS BUFFER?^S^1:Yes;0:No;^0;18^Q"
^DD(365.1,.18,21,0)="^^2^2^3021025^"
^DD(365.1,.18,21,1,0)="This field is a flag on whether to pass the Buffer IEN on to the"
^DD(365.1,.18,21,2,0)="Response file."
^DD(365.1,.18,"DT")="3021025"
^DD(365.1,1.02,0)="ORIGINAL INSUR CO NAME^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(365.1,1.02,3)="Answer must be 1-30 characters in length."
^DD(365.1,1.02,21,0)="^^3^3^3020702^"
^DD(365.1,1.02,21,1,0)="If the transmission record is created from an Insurance Buffer"
^DD(365.1,1.02,21,2,0)="entry, this is the data value of the equivalent field at time"
^DD(365.1,1.02,21,3,0)="of creation."
^DD(365.1,1.02,"DT")="3020702"
^DD(365.1,1.03,0)="ORIGINAL GROUP NUMBER^F^^1;3^K:$L(X)>17!($L(X)<1) X"
^DD(365.1,1.03,3)="Answer must be 1-17 characters in length."
^DD(365.1,1.03,21,0)="^^3^3^3020702^"
^DD(365.1,1.03,21,1,0)="If the transmission record is created from an Insurance Buffer"
^DD(365.1,1.03,21,2,0)="entry, this is the data value of the equivalent field at time"
^DD(365.1,1.03,21,3,0)="of creation."
^DD(365.1,1.03,"DT")="3020702"
^DD(365.1,1.04,0)="ORIGINAL GROUP NAME^F^^1;4^K:$L(X)>20!($L(X)<1) X"
^DD(365.1,1.04,3)="Answer must be 1-20 characters in length."
^DD(365.1,1.04,21,0)="^^3^3^3020612^"
^DD(365.1,1.04,21,1,0)="If the transmission record is created from an Insurance Buffer"
^DD(365.1,1.04,21,2,0)="entry, this is the data value of the equivalent field at time"
^DD(365.1,1.04,21,3,0)="of creation."
^DD(365.1,1.04,"DT")="3020702"
^DD(365.1,1.05,0)="ORIGINAL SUBSCRIBER ID^F^^1;5^K:$L(X)>20!($L(X)<1) X"
^DD(365.1,1.05,3)="Answer must be 1-20 characters in length."
^DD(365.1,1.05,21,0)="^^3^3^3020702^"
^DD(365.1,1.05,21,1,0)="If the transmission record is created from an Insurance Buffer"
^DD(365.1,1.05,21,2,0)="entry, this is the data value of the equivalent field at time"
^DD(365.1,1.05,21,3,0)="of creation."
^DD(365.1,1.05,"DT")="3020702"
^DD(365.1,2,0)="HL7 MESSAGES^365.16D^^2;0"
^DD(365.1,2,21,0)="^.001^2^2^3020612^^"
^DD(365.1,2,21,1,0)="This is a record of all HL7 messages generated for a transmission"
^DD(365.1,2,21,2,0)="record."
^DD(365.1,"B","BUFFER ENTRY",.05)=""
^DD(365.1,"B","DATE OF FUTURE TRANSMISSION",.09)=""
^DD(365.1,"B","DATE/TIME CREATED",.06)=""
^DD(365.1,"B","FRESHNESS DATE",.17)=""
^DD(365.1,"B","HL7 MESSAGES",2)=""
^DD(365.1,"B","HL7 SUBSCRIBER ID FIELD",.16)=""
^DD(365.1,"B","INSUR RECORD IEN",.13)=""
^DD(365.1,"B","NO. OF RETRIES",.08)=""
^DD(365.1,"B","NO. OF TRANSMISSIONS",.07)=""
^DD(365.1,"B","ORIGINAL GROUP NAME",1.04)=""
^DD(365.1,"B","ORIGINAL GROUP NUMBER",1.03)=""
^DD(365.1,"B","ORIGINAL INSUR CO NAME",1.02)=""
^DD(365.1,"B","ORIGINAL SUBSCRIBER ID",1.05)=""
^DD(365.1,"B","OVERRIDE FRESHNESS FLAG",.14)=""
^DD(365.1,"B","PASS BUFFER?",.18)=""
^DD(365.1,"B","PATIENT",.02)=""
^DD(365.1,"B","PAYER",.03)=""
^DD(365.1,"B","QUERY FLAG",.11)=""
^DD(365.1,"B","SERVICE DATE",.12)=""
^DD(365.1,"B","STATUS DATE",.15)=""
^DD(365.1,"B","TRANSACTION NUMBER",.01)=""
^DD(365.1,"B","TRANSMISSION STATUS",.04)=""
^DD(365.1,"B","WHICH EXTRACT",.1)=""
^DD(365.1,"GL",0,1,.01)=""
^DD(365.1,"GL",0,2,.02)=""
^DD(365.1,"GL",0,3,.03)=""
^DD(365.1,"GL",0,4,.04)=""
^DD(365.1,"GL",0,5,.05)=""
^DD(365.1,"GL",0,6,.06)=""
^DD(365.1,"GL",0,7,.07)=""
^DD(365.1,"GL",0,8,.08)=""
^DD(365.1,"GL",0,9,.09)=""
^DD(365.1,"GL",0,10,.1)=""
^DD(365.1,"GL",0,11,.11)=""
^DD(365.1,"GL",0,12,.12)=""
^DD(365.1,"GL",0,13,.13)=""
^DD(365.1,"GL",0,14,.14)=""
^DD(365.1,"GL",0,15,.15)=""
^DD(365.1,"GL",0,16,.16)=""
^DD(365.1,"GL",0,17,.17)=""
^DD(365.1,"GL",0,18,.18)=""
^DD(365.1,"GL",1,2,1.02)=""
^DD(365.1,"GL",1,3,1.03)=""
^DD(365.1,"GL",1,4,1.04)=""
^DD(365.1,"GL",1,5,1.05)=""
^DD(365.1,"GL",2,0,2)=""
^DD(365.1,"IX",.01)=""
^DD(365.1,"IX",.02)=""
^DD(365.1,"IX",.03)=""
^DD(365.1,"IX",.04)=""
^DD(365.1,"IX",.05)=""
^DD(365.1,"IX",.06)=""
^DD(365.1,"RQ",.01)=""
^DD(365.1,"SB",365.16,2)=""
^DD(365.11,0)="FIELD^^.08^8"
^DD(365.11,0,"DDA")="N"
^DD(365.11,0,"DT")="3020429"
^DD(365.11,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(365.11,0,"IX","B",365.11,.01)=""
^DD(365.11,0,"IX","C",365.11,.02)=""
^DD(365.11,0,"NM","IIV AUTO MATCH")=""
^DD(365.11,0,"VR")="2.0"
^DD(365.11,0,"VRPK")="IB"
^DD(365.11,.01,0)="AUTO MATCH VALUE^RFX^^0;1^D ITAM^IBCNEAMI"
^DD(365.11,.01,.1)="ENTERED NAME"
^DD(365.11,.01,1,0)="^.1"
^DD(365.11,.01,1,1,0)="365.11^B"
^DD(365.11,.01,1,1,1)="S ^IBCN(365.11,""B"",$E(X,1,30),DA)="""""
^DD(365.11,.01,1,1,2)="K ^IBCN(365.11,""B"",$E(X,1,30),DA)"
^DD(365.11,.01,3)="Answer must be 3-30 characters in length"
^DD(365.11,.01,21,0)="^.001^8^8^3020604^^^"
^DD(365.11,.01,21,1,0)="This field is the entered name for the insurance company.  This"
^DD(365.11,.01,21,2,0)="value holds the 'incorrect' insurance company name which needs"
^DD(365.11,.01,21,3,0)="to get corrected and replaced with the valid insurance company"
^DD(365.11,.01,21,4,0)="name.  Typical values in this field will include common "
^DD(365.11,.01,21,5,0)="spelling mistakes and incorrect insurance company names.  Also"
^DD(365.11,.01,21,6,0)="allowed here is the ""*"" wildcard character.  Any entry with a "
^DD(365.11,.01,21,7,0)="wildcard character must also contain at least 4 non-wildcard"
^DD(365.11,.01,21,8,0)="characters.  Multiple asterisks are allowed here."
^DD(365.11,.01,"DT")="3020606"
^DD(365.11,.02,0)="INSURANCE COMPANY NAME^RFX^^0;2^D ITIC^IBCNEAMI"
^DD(365.11,.02,1,0)="^.1"
^DD(365.11,.02,1,1,0)="365.11^C"
^DD(365.11,.02,1,1,1)="S ^IBCN(365.11,""C"",$E(X,1,30),DA)="""""
^DD(365.11,.02,1,1,2)="K ^IBCN(365.11,""C"",$E(X,1,30),DA)"
^DD(365.11,.02,1,1,"%D",0)="^^1^1^3020429^"
^DD(365.11,.02,1,1,"%D",1,0)="This is an index file by the insurance company name field."
^DD(365.11,.02,1,1,"DT")="3020429"
^DD(365.11,.02,3)="Answer must be 3-30 characters in length"
^DD(365.11,.02,21,0)="^^4^4^3020708^"
^DD(365.11,.02,21,1,0)="This is the name of a valid insurance company from the Insurance"
^DD(365.11,.02,21,2,0)="Company file (file# 36).  The insurance company name entered here must"
^DD(365.11,.02,21,3,0)="be a currently valid company name meaning that the entry must be"
^DD(365.11,.02,21,4,0)="active and not scheduled for deletion."
^DD(365.11,.02,"DT")="3020708"
^DD(365.11,.03,0)="DATE/TIME ENTERED^RD^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:DT>X X"
^DD(365.11,.03,3)="TYPE A DATE NOT EARLIER THAN CURRENT DATE"
^DD(365.11,.03,21,0)="^^2^2^3020612^"
^DD(365.11,.03,21,1,0)="This is the date and time that the auto match value was"
^DD(365.11,.03,21,2,0)="created."
^DD(365.11,.03,"DT")="3020429"
^DD(365.11,.04,0)="ENTERED BY^RP200'^VA(200,^0;4^Q"
^DD(365.11,.04,21,0)="^^1^1^3020612^"
^DD(365.11,.04,21,1,0)="This is the user who created the auto match value."
^DD(365.11,.04,"DT")="3020429"
^DD(365.11,.05,0)="DATE/TIME LAST EDITED^RD^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:DT>X X"
^DD(365.11,.05,3)="TYPE A DATE NOT EARLIER THAN CURRENT DATE"
^DD(365.11,.05,21,0)="^^2^2^3020612^"
^DD(365.11,.05,21,1,0)="This is the date and time that the auto match value"
^DD(365.11,.05,21,2,0)="was last edited."
^DD(365.11,.05,"DT")="3020429"
^DD(365.11,.06,0)="LAST EDITED BY^RP200'^VA(200,^0;6^Q"
^DD(365.11,.06,21,0)="^^1^1^3020612^"
^DD(365.11,.06,21,1,0)="This is the user who last edited the auto match value."
^DD(365.11,.06,"DT")="3020429"
^DD(365.11,.07,0)="ORIGINAL ENTERED VALUE^RF^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(365.11,.07,3)="Answer must be 3-30 characters in length"
^DD(365.11,.07,21,0)="^^4^4^3020429^"
^DD(365.11,.07,21,1,0)="This is the original value of the 'entered by' field.  The first"
^DD(365.11,.07,21,2,0)="time an entry is created, this value will get set and then no"
^DD(365.11,.07,21,3,0)="further updates to this field will be made.  This will provide"
^DD(365.11,.07,21,4,0)="the original value to this entry."
^DD(365.11,.07,"DT")="3020429"
^DD(365.11,.08,0)="ORIGINAL INSURANCE COMPANY^RF^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(365.11,.08,3)="Answer must be 3-30 characters in length"
^DD(365.11,.08,21,0)="^.001^4^4^3020604^^"
^DD(365.11,.08,21,1,0)="This is the original, valid, correct insurance company name "
^DD(365.11,.08,21,2,0)="at the time this entry was first created.  This is for auditing"
^DD(365.11,.08,21,3,0)="and historical tracking purposes only.  This field isn't "
^DD(365.11,.08,21,4,0)="updated after the original data entry."
^DD(365.11,.08,"DT")="3020429"
^DD(365.11,"B","AUTO MATCH VALUE",.01)=""
^DD(365.11,"B","DATE/TIME ENTERED",.03)=""
^DD(365.11,"B","DATE/TIME LAST EDITED",.05)=""
^DD(365.11,"B","ENTERED BY",.04)=""
^DD(365.11,"B","ENTERED NAME",.01)="1"
^DD(365.11,"B","INSURANCE COMPANY NAME",.02)=""
^DD(365.11,"B","LAST EDITED BY",.06)=""
^DD(365.11,"B","ORIGINAL ENTERED VALUE",.07)=""
^DD(365.11,"B","ORIGINAL INSURANCE COMPANY",.08)=""
^DD(365.11,"GL",0,1,.01)=""
^DD(365.11,"GL",0,2,.02)=""
^DD(365.11,"GL",0,3,.03)=""
^DD(365.11,"GL",0,4,.04)=""
^DD(365.11,"GL",0,5,.05)=""
^DD(365.11,"GL",0,6,.06)=""
^DD(365.11,"GL",0,7,.07)=""
^DD(365.11,"GL",0,8,.08)=""
^DD(365.11,"IX",.01)=""
^DD(365.11,"IX",.02)=""
^DD(365.11,"RQ",.01)=""
^DD(365.11,"RQ",.02)=""
^DD(365.11,"RQ",.03)=""
^DD(365.11,"RQ",.04)=""
^DD(365.11,"RQ",.05)=""
^DD(365.11,"RQ",.06)=""
^DD(365.11,"RQ",.07)=""
^DD(365.11,"RQ",.08)=""
^DD(365.12,0)="FIELD^^1^7"
^DD(365.12,0,"DDA")="N"
^DD(365.12,0,"DT")="3030307"
^DD(365.12,0,"IX","B",365.12,.01)=""
^DD(365.12,0,"IX","C",365.12,.02)=""
^DD(365.12,0,"NM","PAYER")=""
^DD(365.12,0,"PT",36,3.1)=""
^DD(365.12,0,"PT",350.9003,.01)=""
^DD(365.12,0,"PT",365,.03)=""
^DD(365.12,0,"PT",365.1,.03)=""
^DD(365.12,0,"PT",366.03,.03)=""
^DD(365.12,0,"VR")="2.0"
^DD(365.12,0,"VRPK")="IB"
^DD(365.12,.01,0)="PAYER NAME^RFX^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(365.12,.01,1,0)="^.1"
^DD(365.12,.01,1,1,0)="365.12^B"
^DD(365.12,.01,1,1,1)="S ^IBE(365.12,""B"",$E(X,1,30),DA)="""""
^DD(365.12,.01,1,1,2)="K ^IBE(365.12,""B"",$E(X,1,30),DA)"
^DD(365.12,.01,1,1,"%D",0)="^.101^1^1^3020612^^"
^DD(365.12,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.12,.01,3)="Enter the Insurance Payer Name. Answer must be 1-80 characters in length."
^DD(365.12,.01,21,0)="^.001^1^1^3030422^^^^"
^DD(365.12,.01,21,1,0)="This is the Insurance Company Name as named for electronic interface."
^DD(365.12,.01,"DT")="3020719"
^DD(365.12,.02,0)="VA NATIONAL ID^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(365.12,.02,1,0)="^.1"
^DD(365.12,.02,1,1,0)="365.12^C"
^DD(365.12,.02,1,1,1)="S ^IBE(365.12,""C"",$E(X,1,30),DA)="""""
^DD(365.12,.02,1,1,2)="K ^IBE(365.12,""C"",$E(X,1,30),DA)"
^DD(365.12,.02,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.12,.02,1,1,"%D",1,0)="Cross-reference by the ID assigned by the VA to each Payer."
^DD(365.12,.02,1,1,"DT")="3020612"
^DD(365.12,.02,3)="Answer must be 1-10 characters in length."
^DD(365.12,.02,21,0)="^.001^3^3^3020610^^^"
^DD(365.12,.02,21,1,0)="This field will be created from the list of payers from the"
^DD(365.12,.02,21,2,0)="Eligibility Communicator which will be used to uniquely identify"
^DD(365.12,.02,21,3,0)="the Insurance Payers."
^DD(365.12,.02,"DT")="3020612"
^DD(365.12,.03,0)="CMS NATIONAL ID^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(365.12,.03,3)="Answer must be 1-20 characters in length."
^DD(365.12,.03,21,0)="^.001^3^3^3020610^^^"
^DD(365.12,.03,21,1,0)="If and when the Centers for Medicare and Medicaid services determine"
^DD(365.12,.03,21,2,0)="what national payer id should be assigned, then this field will get"
^DD(365.12,.03,21,3,0)="updated with that ID."
^DD(365.12,.03,"DT")="3020517"
^DD(365.12,.04,0)="DATE/TIME CREATED^RD^^0;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(365.12,.04,21,0)="^^1^1^3030110^"
^DD(365.12,.04,21,1,0)="DATE/TIME THAT THIS ENTRY WAS ADDED TO THE PAYER FILE."
^DD(365.12,.04,"DT")="3030110"
^DD(365.12,.05,0)="EDI ID NUMBER - PROF^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(365.12,.05,3)="Answer must be 1-30 characters in length."
^DD(365.12,.05,21,0)="^^2^2^3030110^"
^DD(365.12,.05,21,1,0)="This is the ID number used to identify the insurance company for "
^DD(365.12,.05,21,2,0)="professional claim transmissions."
^DD(365.12,.05,"DT")="3030110"
^DD(365.12,.06,0)="EDI ID NUMBER - INST^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(365.12,.06,3)="Answer must be 1-30 characters in length."
^DD(365.12,.06,21,0)="^^2^2^3030110^"
^DD(365.12,.06,21,1,0)="This is the id number used to identify the insurance company for "
^DD(365.12,.06,21,2,0)="institutional claim transmissions."
^DD(365.12,.06,"DT")="3030110"
^DD(365.12,1,0)="APPLICATION^365.121P^^1;0"
^DD(365.12,"B","APPLICATION",1)=""
^DD(365.12,"B","CMS NATIONAL ID",.03)=""
^DD(365.12,"B","DATE/TIME CREATED",.04)=""
^DD(365.12,"B","EDI ID NUMBER - INST",.06)=""
^DD(365.12,"B","EDI ID NUMBER - PROF",.05)=""
^DD(365.12,"B","PAYER NAME",.01)=""
^DD(365.12,"B","VA NATIONAL ID",.02)=""
^DD(365.12,"GL",0,1,.01)=""
^DD(365.12,"GL",0,2,.02)=""
^DD(365.12,"GL",0,3,.03)=""
^DD(365.12,"GL",0,4,.04)=""
^DD(365.12,"GL",0,5,.05)=""
^DD(365.12,"GL",0,6,.06)=""
^DD(365.12,"GL",1,0,1)=""
^DD(365.12,"IX",.01)=""
^DD(365.12,"IX",.02)=""
^DD(365.12,"RQ",.01)=""
^DD(365.12,"RQ",.04)=""
^DD(365.12,"SB",365.121,1)=""
^DD(365.121,0)="APPLICATION SUB-FIELD^^.15^15"
^DD(365.121,0,"DT")="3030307"
^DD(365.121,0,"IX","B",365.121,.01)=""
^DD(365.121,0,"NM","APPLICATION")=""
^DD(365.121,0,"UP")="365.12"
^DD(365.121,.01,0)="APPLICATION^MP365.13'^IBE(365.13,^0;1^Q"
^DD(365.121,.01,1,0)="^.1"
^DD(365.121,.01,1,1,0)="365.121^B"
^DD(365.121,.01,1,1,1)="S ^IBE(365.12,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(365.121,.01,1,1,2)="K ^IBE(365.12,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(365.121,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.121,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.121,.01,21,0)="^^2^2^3020604^"
^DD(365.121,.01,21,1,0)="This field identifies the specific application which may have"
^DD(365.121,.01,21,2,0)="an interface."
^DD(365.121,.01,"DT")="3020517"
^DD(365.121,.02,0)="NATIONAL ACTIVE^S^0:Not Active;1:Active;^0;2^Q"
^DD(365.121,.02,21,0)="^^2^2^3020604^"
^DD(365.121,.02,21,1,0)="This field identifies whether a particular payer is set up and"
^DD(365.121,.02,21,2,0)="accepting data from the Eligibility Communicator for this application."
^DD(365.121,.02,"DT")="3020517"
^DD(365.121,.03,0)="LOCAL ACTIVE^S^0:Not Active;1:Active;^0;3^Q"
^DD(365.121,.03,21,0)="^^2^2^3020604^"
^DD(365.121,.03,21,1,0)="This field identifies whether the local VA facility is allowing for"
^DD(365.121,.03,21,2,0)="electronic interface for this payer and application."
^DD(365.121,.03,"DT")="3020517"
^DD(365.121,.04,0)="USER EDITED LOCAL^P200'^VA(200,^0;4^Q"
^DD(365.121,.04,3)=""
^DD(365.121,.04,21,0)="^.001^1^1^3020604^^"
^DD(365.121,.04,21,1,0)="This is the user who last edited the local active switch."
^DD(365.121,.04,"DT")="3020612"
^DD(365.121,.05,0)="DATE/TIME LOCAL EDITED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(365.121,.05,21,0)="^^2^2^3020604^"
^DD(365.121,.05,21,1,0)="This field indicates the date and time the local switch was"
^DD(365.121,.05,21,2,0)="last edited."
^DD(365.121,.05,"DT")="3020517"
^DD(365.121,.06,0)="DATE/TIME NATIONAL EDITED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(365.121,.06,21,0)="^^4^4^3030123^"
^DD(365.121,.06,21,1,0)="This field indicates the date and time that this payer"
^DD(365.121,.06,21,2,0)="application was last updated via EC."
^DD(365.121,.06,"DT")="3030123"
^DD(365.121,.07,0)="AUTO-ACCEPT^S^1:YES;0:NO;^0;7^Q"
^DD(365.121,.07,21,0)="^.001^7^7^3030714^^^^"
^DD(365.121,.07,21,1,0)="This field indicates whether the site will automatically accept"
^DD(365.121,.07,21,2,0)="the incoming application information and file it into VISTA"
^DD(365.121,.07,21,3,0)="rather than storing the information in a temporary file for"
^DD(365.121,.07,21,4,0)="manual intervention."
^DD(365.121,.07,21,5,0)="  "
^DD(365.121,.07,21,6,0)="For insurance identification and verification, this data will"
^DD(365.121,.07,21,7,0)="be stored in the Insurance Buffer file."
^DD(365.121,.07,"DT")="3020612"
^DD(365.121,.08,0)="IDENT REQUIRES SUBSCRIBER ID^S^0:NO;1:YES;^0;8^Q"
^DD(365.121,.08,3)="Enter YES if the Payer requires the Subscriber ID for identification transactions, Enter NO otherwise."
^DD(365.121,.08,21,0)="^^3^3^3030123^"
^DD(365.121,.08,21,1,0)="This flag is set by the Eligibility Communicator (EC).  It should not be "
^DD(365.121,.08,21,2,0)="modified via FileMan.  The flag indicates whether or not a payer requires "
^DD(365.121,.08,21,3,0)="a Subscriber ID for identification transactions."
^DD(365.121,.08,"DT")="3030123"
^DD(365.121,.09,0)="USE SSN FOR SUBSCRIBER ID^S^0:NO;1:YES;^0;9^Q"
^DD(365.121,.09,3)="Enter 1 for Yes, if the Payer uses the patient's SSN as the Subscriber ID.  Enter 0 for No, otherwise."
^DD(365.121,.09,21,0)="^^3^3^3030123^"
^DD(365.121,.09,21,1,0)="This flag is set by the Eligibility Communicator (EC).  It should "
^DD(365.121,.09,21,2,0)="not be modified via FileMan.  The flag indicates whether or not a"
^DD(365.121,.09,21,3,0)="payer recognizes a patient's SSN as a valid Subscriber ID."
^DD(365.121,.09,"DT")="3030123"
^DD(365.121,.1,0)="TRANSMIT SSN^S^0:NO;1:YES;^0;10^Q"
^DD(365.121,.1,3)="Enter YES if the patient's SSN should be transmitted for this payer application, Enter NO otherwise."
^DD(365.121,.1,21,0)="^^3^3^3030123^"
^DD(365.121,.1,21,1,0)="This flag is set by the Eligibility Communicator (EC).  It should"
^DD(365.121,.1,21,2,0)="not be modified via FileMan.  The flag indicates whether or not a"
^DD(365.121,.1,21,3,0)="payer accepts a patient's SSN for transactions."
^DD(365.121,.1,"DT")="3030123"
^DD(365.121,.11,0)="DEACTIVATED?^S^0:NO;1:YES;^0;11^Q"
^DD(365.121,.11,21,0)="^.001^5^5^3020919^^^"
^DD(365.121,.11,21,1,0)="This field is the flag which determines if a payer and application"
^DD(365.121,.11,21,2,0)="is no longer active."
^DD(365.121,.11,21,3,0)="  "
^DD(365.121,.11,21,4,0)="This field will be applied by the EC.  Users should not modify"
^DD(365.121,.11,21,5,0)="this field."
^DD(365.121,.11,"DT")="3020919"
^DD(365.121,.12,0)="DATE/TIME DEACTIVATED^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(365.121,.12,21,0)="^^2^2^3020916^"
^DD(365.121,.12,21,1,0)="This is the date and time that the payer and application were"
^DD(365.121,.12,21,2,0)="deactivated."
^DD(365.121,.12,"DT")="3020916"
^DD(365.121,.13,0)="DATE/TIME CREATED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(365.121,.13,3)=""
^DD(365.121,.13,21,0)="^^2^2^3030123^"
^DD(365.121,.13,21,1,0)="This is the date/time that this application was created."
^DD(365.121,.13,21,2,0)="This field should not be edited through FileMan."
^DD(365.121,.13,"DT")="3030123"
^DD(365.121,.14,0)="FUTURE SERVICE DAYS^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(365.121,.14,3)="Type a Number between 0 and 9999"
^DD(365.121,.14,21,0)="^.001^2^2^3030307^^"
^DD(365.121,.14,21,1,0)="A service date is acceptable to the payer if the service date is not"
^DD(365.121,.14,21,2,0)="greater than ""T+"" this value."
^DD(365.121,.14,"DT")="3030307"
^DD(365.121,.15,0)="PAST SERVICE DAYS^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(365.121,.15,3)="Type a Number between 0 and 9999"
^DD(365.121,.15,21,0)="^.001^2^2^3030307^^"
^DD(365.121,.15,21,1,0)="A service date is acceptable to the payer if the service date is not less"
^DD(365.121,.15,21,2,0)="than ""T-"" this value."
^DD(365.121,.15,"DT")="3030307"
^DD(365.121,"B","APPLICATION",.01)=""
^DD(365.121,"B","AUTO-ACCEPT",.07)=""
^DD(365.121,"B","DATE/TIME CREATED",.13)=""
^DD(365.121,"B","DATE/TIME DEACTIVATED",.12)=""
^DD(365.121,"B","DATE/TIME LOCAL EDITED",.05)=""
^DD(365.121,"B","DATE/TIME NATIONAL EDITED",.06)=""
^DD(365.121,"B","DEACTIVATED?",.11)=""
^DD(365.121,"B","FUTURE SERVICE DAYS",.14)=""
^DD(365.121,"B","IDENT REQUIRES SUBSCRIBER ID",.08)=""
^DD(365.121,"B","LOCAL ACTIVE",.03)=""
^DD(365.121,"B","NATIONAL ACTIVE",.02)=""
^DD(365.121,"B","PAST SERVICE DAYS",.15)=""
^DD(365.121,"B","TRANSMIT SSN",.1)=""
^DD(365.121,"B","USE SSN FOR SUBSCRIBER ID",.09)=""
^DD(365.121,"B","USER EDITED LOCAL",.04)=""
^DD(365.121,"GL",0,1,.01)=""
^DD(365.121,"GL",0,2,.02)=""
^DD(365.121,"GL",0,3,.03)=""
^DD(365.121,"GL",0,4,.04)=""
^DD(365.121,"GL",0,5,.05)=""
^DD(365.121,"GL",0,6,.06)=""
^DD(365.121,"GL",0,7,.07)=""
^DD(365.121,"GL",0,8,.08)=""
^DD(365.121,"GL",0,9,.09)=""
^DD(365.121,"GL",0,10,.1)=""
^DD(365.121,"GL",0,11,.11)=""
^DD(365.121,"GL",0,12,.12)=""
^DD(365.121,"GL",0,13,.13)=""
^DD(365.121,"GL",0,14,.14)=""
^DD(365.121,"GL",0,15,.15)=""
^DD(365.121,"IX",.01)=""
^DD(365.13,0)="FIELD^^.01^1"
^DD(365.13,0,"DDA")="N"
^DD(365.13,0,"IX","B",365.13,.01)=""
^DD(365.13,0,"NM","PAYER APPLICATION")=""
^DD(365.13,0,"PT",365.121,.01)=""
^DD(365.13,0,"VR")="2.0"
^DD(365.13,0,"VRPK")="IB"
^DD(365.13,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(365.13,.01,1,0)="^.1"
^DD(365.13,.01,1,1,0)="365.13^B"
^DD(365.13,.01,1,1,1)="S ^IBE(365.13,""B"",$E(X,1,30),DA)="""""
^DD(365.13,.01,1,1,2)="K ^IBE(365.13,""B"",$E(X,1,30),DA)"
^DD(365.13,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.13,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.13,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(365.13,.01,21,0)="^^4^4^3020604^"
^DD(365.13,.01,21,1,0)="This field identifies any application which may have an electronic"
^DD(365.13,.01,21,2,0)="interface."
^DD(365.13,.01,21,3,0)="  "
^DD(365.13,.01,21,4,0)="e.g. Pharmacy, Insurance, Claims, etc."
^DD(365.13,"B","NAME",.01)=""
^DD(365.13,"GL",0,1,.01)=""
^DD(365.13,"IX",.01)=""
^DD(365.13,"RQ",.01)=""
^DD(365.14,0)="FIELD^^.01^1"
^DD(365.14,0,"DDA")="N"
^DD(365.14,0,"DT")="3020612"
^DD(365.14,0,"IX","B",365.14,.01)=""
^DD(365.14,0,"NM","IIV TRANSMISSION STATUS")=""
^DD(365.14,0,"PT",365,.06)=""
^DD(365.14,0,"PT",365.1,.04)=""
^DD(365.14,0,"VR")="2.0"
^DD(365.14,0,"VRPK")="IB"
^DD(365.14,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(365.14,.01,1,0)="^.1"
^DD(365.14,.01,1,1,0)="365.14^B"
^DD(365.14,.01,1,1,1)="S ^IBE(365.14,""B"",$E(X,1,30),DA)="""""
^DD(365.14,.01,1,1,2)="K ^IBE(365.14,""B"",$E(X,1,30),DA)"
^DD(365.14,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.14,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.14,.01,3)="Answer must be 3-30 characters in length."
^DD(365.14,.01,21,0)="^^1^1^3020612^"
^DD(365.14,.01,21,1,0)="This field is the full name of the transmission status."
^DD(365.14,.01,"DT")="3020612"
^DD(365.14,"B","NAME",.01)=""
^DD(365.14,"GL",0,1,.01)=""
^DD(365.14,"IX",.01)=""
^DD(365.14,"RQ",.01)=""
^DD(365.15,0)="FIELD^^2^5"
^DD(365.15,0,"DDA")="N"
^DD(365.15,0,"DT")="3040607"
^DD(365.15,0,"IX","B",365.15,.01)=""
^DD(365.15,0,"NM","IIV STATUS TABLE")=""
^DD(365.15,0,"PT",355.33,.12)=""
^DD(365.15,0,"VR")="2.0"
^DD(365.15,0,"VRPK")="IB"
^DD(365.15,.01,0)="CODE^RFO^^0;1^K:$L(X)>5!($L(X)<2) X"
^DD(365.15,.01,1,0)="^.1"
^DD(365.15,.01,1,1,0)="365.15^B"
^DD(365.15,.01,1,1,1)="S ^IBE(365.15,""B"",$E(X,1,30),DA)="""""
^DD(365.15,.01,1,1,2)="K ^IBE(365.15,""B"",$E(X,1,30),DA)"
^DD(365.15,.01,1,1,"%D",0)="^^1^1^3020612^"
^DD(365.15,.01,1,1,"%D",1,0)="Standard ""B"" cross-reference"
^DD(365.15,.01,2)="S Y(0)=Y S Y=$S($E(Y,1)=""D"":""Response Received, Inactive Policy"",$E(Y)=""B"":""Problem Identified"",$E(Y,1)=""A"":""Response Received, Active Policy"",$E(Y,1)=""Q"":""Inquiry Sent, Awaiting Response"",$E(Y,1)=""U"":""Response Received, Ambiguous Answer"",1:"""")"
^DD(365.15,.01,2.1)="S Y=$S($E(Y,1)=""D"":""Response Received, Inactive Policy"",$E(Y)=""B"":""Problem Identified"",$E(Y,1)=""A"":""Response Received, Active Policy"",$E(Y,1)=""Q"":""Inquiry Sent, Awaiting Response"",$E(Y,1)=""U"":""Response Received, Ambiguous Answer"",1:"""")"
^DD(365.15,.01,3)="Answer must be 2-5 characters in length"
^DD(365.15,.01,21,0)="^.001^5^5^3040430^^^^"
^DD(365.15,.01,21,1,0)="This is the internal representation of a given IIV status which may"
^DD(365.15,.01,21,2,0)="be found in the Insurance Buffer application.  This code takes"
^DD(365.15,.01,21,3,0)="into account that although several IIV statuses may use the same symbol "
^DD(365.15,.01,21,4,0)="in the IIV status column in the Insurance Buffer list, each IIV status "
^DD(365.15,.01,21,5,0)="may have a different meaning."
^DD(365.15,.01,"DT")="3040430"
^DD(365.15,.02,0)="ASCII VALUE FOR IIV STATUS^NJ3,0^^0;2^K:+X'=X!(X>126)!(X<32)!(X?.E1"".""1N.N) X"
^DD(365.15,.02,3)="Type a Number between 32 and 126, 0 Decimal Digits"
^DD(365.15,.02,21,0)="^.001^5^5^3040430^^^"
^DD(365.15,.02,21,1,0)="This field is the ASCII number representation for the character"
^DD(365.15,.02,21,2,0)="which should be displayed in the IIV status column in the insurance "
^DD(365.15,.02,21,3,0)="buffer list for this entry.  The ASCII value is being stored instead of "
^DD(365.15,.02,21,4,0)="the character itself because of the issues involved with storing the ""?"" "
^DD(365.15,.02,21,5,0)="character as a valid symbol."
^DD(365.15,.02,"DT")="3040227"
^DD(365.15,.03,0)="EXPAND ENTRY ACTION^S^1:EE Update is Allowed;0:EE Update is Not Allowed;^0;3^Q"
^DD(365.15,.03,3)="Can the Expand Entry action overwrite this IIV status?"
^DD(365.15,.03,21,0)="^^6^6^3050208^"
^DD(365.15,.03,21,1,0)="This field will determine whether or not the IIV status associated with"
^DD(365.15,.03,21,2,0)="a buffer entry may get overwritten by the Expand Entry action in"
^DD(365.15,.03,21,3,0)="the Insurance Buffer application.  Some IIV statuses should stay as they"
^DD(365.15,.03,21,4,0)="are and not get updated by Expand Entry and other symbols should"
^DD(365.15,.03,21,5,0)="get updated, so the user knows the current status of the buffer entry"
^DD(365.15,.03,21,6,0)="with regard to the IIV process."
^DD(365.15,.03,"DT")="3030409"
^DD(365.15,1,0)="DESCRIPTION^365.152^^1;0"
^DD(365.15,1,21,0)="^.001^3^3^3040812^^^^"
^DD(365.15,1,21,1,0)="This is the explanation of what the IIV status means.  This"
^DD(365.15,1,21,2,0)="description will appear in the Expand Entry action of the "
^DD(365.15,1,21,3,0)="Insurance Buffer application."
^DD(365.15,2,0)="CORRECTIVE ACTION^365.17^^2;0"
^DD(365.15,2,21,0)="^^3^3^3040812^"
^DD(365.15,2,21,1,0)="This is the set of steps a user needs to follow in order to resolve this"
^DD(365.15,2,21,2,0)="IIV problem that is displayed on the Expand Entry screen in the Insurance "
^DD(365.15,2,21,3,0)="Buffer."
^DD(365.15,2,"DT")="3040607"
^DD(365.15,"B","ASCII VALUE FOR IIV STATUS",.02)=""
^DD(365.15,"B","CODE",.01)=""
^DD(365.15,"B","CORRECTIVE ACTION",2)=""
^DD(365.15,"B","DESCRIPTION",1)=""
^DD(365.15,"B","EXPAND ENTRY ACTION",.03)=""
^DD(365.15,"GL",0,1,.01)=""
^DD(365.15,"GL",0,2,.02)=""
^DD(365.15,"GL",0,3,.03)=""
^DD(365.15,"GL",1,0,1)=""
^DD(365.15,"GL",2,0,2)=""
^DD(365.15,"IX",.01)=""
^DD(365.15,"RQ",.01)=""
^DD(365.15,"SB",365.152,1)=""
^DD(365.15,"SB",365.17,2)=""
^DD(365.151,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(365.151,0,"DT")="3020603"
^DD(365.151,0,"NM","DESCRIPTION")=""
^DD(365.151,0,"UP")="365.15"
^DD(365.151,.01,0)="DESCRIPTION^W^^0;1"
^DD(365.151,.01,21,0)="^^4^4^3020603^"
^DD(365.151,.01,21,1,0)="This is the explanation of what the symbol stands for in this"
^DD(365.151,.01,21,2,0)="instance of this symbol.  The same symbol may have multiple"
^DD(365.151,.01,21,3,0)="explanations.  This description is displayed during the Expand"
^DD(365.151,.01,21,4,0)="Entry action in the Insurance Buffer application."
^DD(365.151,.01,"DT")="3020603"
^DD(365.151,"B","DESCRIPTION",.01)=""
^DD(365.151,"GL",0,1,.01)=""
^DD(365.152,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(365.152,0,"DT")="3020603"
^DD(365.152,0,"NM","DESCRIPTION")=""
^DD(365.152,0,"UP")="365.15"
^DD(365.152,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(365.152,.01,3)="Enter the explanation for this IIV status."
^DD(365.152,.01,21,0)="^.001^3^3^3040812^^"
^DD(365.152,.01,21,1,0)="This is the explanation of what the IIV status means.  This description"
^DD(365.152,.01,21,2,0)="will appear in the Expand Entry action of the Insurance Buffer"
^DD(365.152,.01,21,3,0)="application."
^DD(365.152,.01,"DT")="3040812"
^DD(365.152,"B","DESCRIPTION",.01)=""
^DD(365.152,"GL",0,1,.01)=""
^DD(365.16,0)="HL7 MESSAGES SUB-FIELD^^.03^3"
^DD(365.16,0,"DT")="3020603"
^DD(365.16,0,"IX","B",365.16,.01)=""
^DD(365.16,0,"NM","HL7 MESSAGES")=""
^DD(365.16,0,"UP")="365.1"
^DD(365.16,.01,0)="HL7 DATE/TIME CREATED^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(365.16,.01,1,0)="^.1"
^DD(365.16,.01,1,1,0)="365.16^B"
^DD(365.16,.01,1,1,1)="S ^IBCN(365.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(365.16,.01,1,1,2)="K ^IBCN(365.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(365.16,.01,21,0)="^^1^1^3020612^"
^DD(365.16,.01,21,1,0)="This is the date and time that the HL7 message was created."
^DD(365.16,.01,"DT")="3020603"
^DD(365.16,.02,0)="MESSAGE CONTROL ID^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(365.16,.02,1,0)="^.1"
^DD(365.16,.02,1,1,0)="365.1^C"
^DD(365.16,.02,1,1,1)="S ^IBCN(365.1,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(365.16,.02,1,1,2)="K ^IBCN(365.1,""C"",$E(X,1,30),DA(1),DA)"
^DD(365.16,.02,1,1,"%D",0)="^^3^3^3020607^"
^DD(365.16,.02,1,1,"%D",1,0)="This is a standard FileMan cross-reference.  It is by the HL7"
^DD(365.16,.02,1,1,"%D",2,0)="message control ID and since that is a multiple, the cross-reference"
^DD(365.16,.02,1,1,"%D",3,0)="is by the entire file."
^DD(365.16,.02,1,1,"DT")="3020607"
^DD(365.16,.02,3)="Answer must be 1-20 characters in length."
^DD(365.16,.02,21,0)="^^2^2^3020612^"
^DD(365.16,.02,21,1,0)="This is the message control ID number assigned by the HL7"
^DD(365.16,.02,21,2,0)="package when a message is created."
^DD(365.16,.02,"DT")="3020607"
^DD(365.16,.03,0)="RESPONSE^P365'^IBCN(365,^0;3^Q"
^DD(365.16,.03,21,0)="^^3^3^3020612^"
^DD(365.16,.03,21,1,0)="When an HL7 message is created, a corresponding ""stub"" response"
^DD(365.16,.03,21,2,0)="message will be created at the same time.  This is a pointer to"
^DD(365.16,.03,21,3,0)="that ""stub"" message."
^DD(365.16,.03,"DT")="3020603"
^DD(365.16,"B","HL7 DATE/TIME CREATED",.01)=""
^DD(365.16,"B","MESSAGE CONTROL ID",.02)=""
^DD(365.16,"B","RESPONSE",.03)=""
^DD(365.16,"GL",0,1,.01)=""
^DD(365.16,"GL",0,2,.02)=""
^DD(365.16,"GL",0,3,.03)=""
^DD(365.16,"IX",.01)=""
^DD(365.16,"IX",.02)=""
^DD(365.17,0)="CORRECTIVE ACTION SUB-FIELD^^.01^1"
^DD(365.17,0,"DT")="3040607"
^DD(365.17,0,"NM","CORRECTIVE ACTION")=""
^DD(365.17,0,"UP")="365.15"
^DD(365.17,.01,0)="CORRECTIVE ACTION^W^^0;1"
^DD(365.17,.01,3)="Enter the steps to follow to correct this issue in order to electronically confirm this insurance policy using IIV."
^DD(365.17,.01,21,0)="^^3^3^3040812^"
^DD(365.17,.01,21,1,0)="This is the set of steps a user needs to follow in order to resolve this"
^DD(365.17,.01,21,2,0)="IIV problem that is displayed on the Expand Entry screen in the Insurance"
^DD(365.17,.01,21,3,0)="Buffer."
^DD(365.17,.01,"DT")="3040812"
^DD(365.17,"B","CORRECTIVE ACTION",.01)=""
^DD(365.17,"GL",0,1,.01)=""
^DD(365.22,0)="NOTES SUB-FIELD^^.01^1"
^DD(365.22,0,"DT")="3020517"
^DD(365.22,0,"NM","NOTES")=""
^DD(365.22,0,"UP")="365.02"
^DD(365.22,.01,0)="NOTES^W^^0;1"
^DD(365.22,.01,"DT")="3020517"
^DD(365.22,"B","NOTES",.01)=""
^DD(365.22,"GL",0,1,.01)=""
^DD(366.01,0)="FIELD^^3^11"
^DD(366.01,0,"DDA")="N"
^DD(366.01,0,"DT")="3040119"
^DD(366.01,0,"IX","AB",366.012,.01)=""
^DD(366.01,0,"IX","B",366.01,.01)=""
^DD(366.01,0,"NM","NCPDP PROCESSOR")=""
^DD(366.01,0,"PT",366.03,10.04)=""
^DD(366.01,0,"VR")="2.0"
^DD(366.01,0,"VRPK")="IB"
^DD(366.01,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(366.01,.01,1,0)="^.1"
^DD(366.01,.01,1,1,0)="366.01^B"
^DD(366.01,.01,1,1,1)="S ^IBCNR(366.01,""B"",$E(X,1,30),DA)="""""
^DD(366.01,.01,1,1,2)="K ^IBCNR(366.01,""B"",$E(X,1,30),DA)"
^DD(366.01,.01,3)="Enter the NCPDP Processor's long name.  Answer must be 1-40 characters in length."
^DD(366.01,.01,21,0)="^.001^1^1^3031107^^^^"
^DD(366.01,.01,21,1,0)="The NCPDP Processor's long name."
^DD(366.01,.01,"DT")="3031028"
^DD(366.01,.02,0)="BLOCKED?^RS^0:No;1:Yes;^0;2^Q"
^DD(366.01,.02,3)="Is the NCPDP Processor blocked from receiving NCPDP transmissions?  Enter 'N' for No or 'Y' for Yes."
^DD(366.01,.02,21,0)="^.001^2^2^3040726^^^^"
^DD(366.01,.02,21,1,0)="Flag indicating if the NCPDP Processor is blocked from receiving NCPDP"
^DD(366.01,.02,21,2,0)="transmissions."
^DD(366.01,.02,"DT")="3031028"
^DD(366.01,.03,0)="DATE/TIME CREATED^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.01,.03,3)="Enter the date and time associated with the creation of the NCPDP Processor file (#366.01) entry."
^DD(366.01,.03,21,0)="^.001^2^2^3040726^^^^"
^DD(366.01,.03,21,1,0)="The date and time associated with the creation of the NCPDP Processor "
^DD(366.01,.03,21,2,0)="file (#366.01) entry."
^DD(366.01,.03,"DT")="3031107"
^DD(366.01,1.01,0)="PRIMARY CONTACT NAME^F^^1;1^K:$L(X)>50!($L(X)<1) X"
^DD(366.01,1.01,3)="Enter the NCPDP Processor's primary contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.01,1.01,21,0)="^.001^2^2^3031107^^^^"
^DD(366.01,1.01,21,1,0)="The NCPDP Processor's primary contact name in general VA name format"
^DD(366.01,1.01,21,2,0)="(Family,Given Middle/MI Suffix)."
^DD(366.01,1.01,"DT")="3031028"
^DD(366.01,1.02,0)="PRIMARY CONTACT PREFIX^F^^1;2^K:$L(X)>3!($L(X)<1) X"
^DD(366.01,1.02,3)="Enter the NCPDP Processor's primary contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.01,1.02,21,0)="^.001^1^1^3031028^^^^"
^DD(366.01,1.02,21,1,0)="The NCPDP Processor's primary contact prefix / title (e.g. Dr.)."
^DD(366.01,1.02,"DT")="3031028"
^DD(366.01,1.03,0)="PRIMARY CONTACT DEGREE^F^^1;3^K:$L(X)>3!($L(X)<1) X"
^DD(366.01,1.03,3)="Enter the NCPDP Processor's primary contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.01,1.03,21,0)="^.001^1^1^3031028^^^"
^DD(366.01,1.03,21,1,0)="The NCPDP Processor's primary contact degree code (e.g. MD)."
^DD(366.01,1.03,"DT")="3031028"
^DD(366.01,1.04,0)="ALTERNATE CONTACT NAME^F^^1;4^K:$L(X)>50!($L(X)<1) X"
^DD(366.01,1.04,3)="Enter the NCPDP Processor's alternate contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.01,1.04,21,0)="^.001^2^2^3031028^^^^"
^DD(366.01,1.04,21,1,0)="The NCPDP Processor's alternate contact name in general VA name format"
^DD(366.01,1.04,21,2,0)="(Family,Given Middle/MI Suffix)."
^DD(366.01,1.04,"DT")="3031028"
^DD(366.01,1.05,0)="ALTERNATE CONTACT PREFIX^F^^1;5^K:$L(X)>3!($L(X)<1) X"
^DD(366.01,1.05,3)="Enter the NCPDP Processor's alternate contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.01,1.05,21,0)="^.001^1^1^3031028^^^^"
^DD(366.01,1.05,21,1,0)="The NCPDP Processor's alternate contact prefix / title (e.g. Dr.)."
^DD(366.01,1.05,"DT")="3031028"
^DD(366.01,1.06,0)="ALTERNATE CONTACT DEGREE^F^^1;6^K:$L(X)>3!($L(X)<1) X"
^DD(366.01,1.06,3)="Enter the NCPDP Processor's alternate contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.01,1.06,21,0)="^.001^1^1^3040726^^^^"
^DD(366.01,1.06,21,1,0)="The NCPDP Processor's alternate contact degree code (e.g. MD)."
^DD(366.01,1.06,"DT")="3031028"
^DD(366.01,2,0)="CONTACT MEANS^366.012^^2;0"
^DD(366.01,2,21,0)="^.001^2^2^3040726^^"
^DD(366.01,2,21,1,0)="The NCPDP Processor's Contact Means sub-file"
^DD(366.01,2,21,2,0)="Applies to both the NCPDP Processor's primary and alternate contacts."
^DD(366.01,2,"DT")="3031028"
^DD(366.01,3,0)="APPLICATION^366.013P^^3;0"
^DD(366.01,3,21,0)="^.001^2^2^3040726^^^^"
^DD(366.01,3,21,1,0)="The NCPDP Processor's Application (electronic interface application)"
^DD(366.01,3,21,2,0)="sub-file."
^DD(366.01,3,"DT")="3031107"
^DD(366.01,"B","ALTERNATE CONTACT DEGREE",1.06)=""
^DD(366.01,"B","ALTERNATE CONTACT NAME",1.04)=""
^DD(366.01,"B","ALTERNATE CONTACT PREFIX",1.05)=""
^DD(366.01,"B","APPLICATION",3)=""
^DD(366.01,"B","BLOCKED?",.02)=""
^DD(366.01,"B","CONTACT MEANS",2)=""
^DD(366.01,"B","DATE/TIME CREATED",.03)=""
^DD(366.01,"B","NAME",.01)=""
^DD(366.01,"B","PRIMARY CONTACT DEGREE",1.03)=""
^DD(366.01,"B","PRIMARY CONTACT NAME",1.01)=""
^DD(366.01,"B","PRIMARY CONTACT PREFIX",1.02)=""
^DD(366.01,"GL",0,1,.01)=""
^DD(366.01,"GL",0,2,.02)=""
^DD(366.01,"GL",0,3,.03)=""
^DD(366.01,"GL",1,1,1.01)=""
^DD(366.01,"GL",1,2,1.02)=""
^DD(366.01,"GL",1,3,1.03)=""
^DD(366.01,"GL",1,4,1.04)=""
^DD(366.01,"GL",1,5,1.05)=""
^DD(366.01,"GL",1,6,1.06)=""
^DD(366.01,"GL",2,0,2)=""
^DD(366.01,"GL",3,0,3)=""
^DD(366.01,"IX",.01)=""
^DD(366.01,"RQ",.01)=""
^DD(366.01,"RQ",.02)=""
^DD(366.01,"RQ",.03)=""
^DD(366.01,"SB",366.012,2)=""
^DD(366.01,"SB",366.013,3)=""
^DD(366.012,0)="CONTACT MEANS SUB-FIELD^^.07^7"
^DD(366.012,0,"DT")="3040119"
^DD(366.012,0,"IX","B",366.012,.01)=""
^DD(366.012,0,"NM","CONTACT MEANS")=""
^DD(366.012,0,"UP")="366.01"
^DD(366.012,.01,0)="PKEY^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(366.012,.01,1,0)="^.1^^-1"
^DD(366.012,.01,1,1,0)="366.012^B"
^DD(366.012,.01,1,1,1)="S ^IBCNR(366.01,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(366.012,.01,1,1,2)="K ^IBCNR(366.01,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(366.012,.01,1,2,0)="366.01^AB"
^DD(366.012,.01,1,2,1)="S ^IBCNR(366.01,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(366.012,.01,1,2,2)="K ^IBCNR(366.01,""AB"",$E(X,1,30),DA(1),DA)"
^DD(366.012,.01,1,2,"DT")="3031104"
^DD(366.012,.01,3)="Answer must be 1-10 characters in length."
^DD(366.012,.01,21,0)="^.001^1^1^3031203^^^^"
^DD(366.012,.01,21,1,0)="The contact means' primary key (PKey)."
^DD(366.012,.01,"DT")="3031203"
^DD(366.012,.02,0)="TYPE^S^A:Alternate contact means;P:Primary contact means;^0;2^Q"
^DD(366.012,.02,3)="Enter the contact means' type."
^DD(366.012,.02,21,0)="^.001^1^1^3040726^^^^"
^DD(366.012,.02,21,1,0)="The contact means' type."
^DD(366.012,.02,"DT")="3031028"
^DD(366.012,.03,0)="TELECOMMUNICATION USE^S^ASN:Answering Service Number;BPN:Beeper Number;EMR:Emergency Number;NET:Network (email) Address;ORN:Other Residence Number;PRN:Primary Residence Number;VHN:Vacation Home Number;WPN:Work Number;^0;3^Q"
^DD(366.012,.03,.1)="TELECOMMUNICATION USE CODE"
^DD(366.012,.03,3)="Enter the contact means' telecommunication use code from HL7 Table 0201."
^DD(366.012,.03,21,0)="^.001^1^1^3040119^^^^"
^DD(366.012,.03,21,1,0)="The contact means' telecommunication use code from HL7 Table 0201."
^DD(366.012,.03,"DT")="3040119"
^DD(366.012,.04,0)="TELECOMMUNICATION EQUIPMENT^S^BP:Beeper;CP:Cellular Phone;FX:Fax;Internet:Internet Address;MD:Modem;PH:Telephone;X.400:X.400 email address;^0;4^Q"
^DD(366.012,.04,.1)="TELECOMMUNICATION EQUIPMENT TYPE CODE"
^DD(366.012,.04,3)="Enter the contact means' telecommunication equipment type code from HL7 Table 0202."
^DD(366.012,.04,21,0)="^.001^2^2^3031028^^^"
^DD(366.012,.04,21,1,0)="The contact means' telecommunication equipment type code from HL7 Table"
^DD(366.012,.04,21,2,0)="0202."
^DD(366.012,.04,"DT")="3031028"
^DD(366.012,.05,0)="EMAIL ADDRESS^F^^0;5^K:$L(X)>100!($L(X)<1) X"
^DD(366.012,.05,3)="Enter the contact means' email address.  Answer must be 1-100 characters in length."
^DD(366.012,.05,21,0)="^.001^2^2^3031028^^"
^DD(366.012,.05,21,1,0)="The contact means' email address."
^DD(366.012,.05,21,2,0)="Required if telecommunication use code = NET (Network (email) Address)."
^DD(366.012,.05,"DT")="3031028"
^DD(366.012,.06,0)="TELEPHONE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<10) X"
^DD(366.012,.06,3)="Enter the contact means' telephone number.  Answer must be 10-30 characters in length."
^DD(366.012,.06,21,0)="^.001^3^3^3031028^^^^"
^DD(366.012,.06,21,1,0)="The contact means' telephone number."
^DD(366.012,.06,21,2,0)="Required if telecommunication use code is not = NET (Network (email)"
^DD(366.012,.06,21,3,0)="Address)."
^DD(366.012,.06,"DT")="3031028"
^DD(366.012,.07,0)="COMMENT^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(366.012,.07,3)="Enter the contact means' comment (e.g. Do not call on Friday.).  Answer must be 1-40 characters in length."
^DD(366.012,.07,21,0)="^.001^1^1^3031028^^"
^DD(366.012,.07,21,1,0)="The contact means' comment (e.g. Do not call on Friday.)."
^DD(366.012,.07,"DT")="3031028"
^DD(366.012,"B","COMMENT",.07)=""
^DD(366.012,"B","EMAIL ADDRESS",.05)=""
^DD(366.012,"B","PKEY",.01)=""
^DD(366.012,"B","TELECOMMUNICATION EQUIPMENT",.04)=""
^DD(366.012,"B","TELECOMMUNICATION USE",.03)=""
^DD(366.012,"B","TELECOMMUNICATION USE CODE",.03)="1"
^DD(366.012,"B","TELEPHONE NUMBER",.06)=""
^DD(366.012,"B","TYPE",.02)=""
^DD(366.012,"GL",0,1,.01)=""
^DD(366.012,"GL",0,2,.02)=""
^DD(366.012,"GL",0,3,.03)=""
^DD(366.012,"GL",0,4,.04)=""
^DD(366.012,"GL",0,5,.05)=""
^DD(366.012,"GL",0,6,.06)=""
^DD(366.012,"GL",0,7,.07)=""
^DD(366.012,"IX",.01)=""
^DD(366.013,0)="APPLICATION SUB-FIELD^^.15^15"
^DD(366.013,0,"DT")="3031107"
^DD(366.013,0,"IX","B",366.013,.01)=""
^DD(366.013,0,"NM","APPLICATION")=""
^DD(366.013,0,"UP")="366.01"
^DD(366.013,.01,0)="APPLICATION^MP366.11'^IBCNR(366.11,^0;1^Q"
^DD(366.013,.01,1,0)="^.1"
^DD(366.013,.01,1,1,0)="366.013^B"
^DD(366.013,.01,1,1,1)="S ^IBCNR(366.01,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(366.013,.01,1,1,2)="K ^IBCNR(366.01,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(366.013,.01,3)="Answer must be 3-30 characters in length, non-numeric, and can not have a leading puncuation character."
^DD(366.013,.01,21,0)="^.001^1^1^3040726^^^^"
^DD(366.013,.01,21,1,0)="The application's (electronic interface application) name."
^DD(366.013,.01,"DT")="3031107"
^DD(366.013,.02,0)="NATIONAL ACTIVE?^S^0:Not Active;1:Active;^0;2^Q"
^DD(366.013,.02,3)="Do not edit via FileMan!  Are electronic transactions permitted from a national perspective?  Enter 'A' for Active (permitted) or 'N' for Not Active (not permitted)."
^DD(366.013,.02,21,0)="^.001^4^4^3040726^^^^"
^DD(366.013,.02,21,1,0)="An application (electronic interface application) flag, controlled by the"
^DD(366.013,.02,21,2,0)="national Eligibility Communicator (EC), indicating if the NCPDP Processor is"
^DD(366.013,.02,21,3,0)="active (electronic transactions permitted)."
^DD(366.013,.02,21,4,0)="Do not edit via FileMan."
^DD(366.013,.02,"DT")="3031107"
^DD(366.013,.03,0)="LOCAL ACTIVE?^S^0:Not Active;1:Active;^0;3^Q"
^DD(366.013,.03,3)="Are electronic transactions permitted from a local perspective?  Enter 'A' for Active (permitted) or 'N' for Not Active (not permitted)."
^DD(366.013,.03,21,0)="^.001^3^3^3040726^^^^"
^DD(366.013,.03,21,1,0)="An application (electronic interface application) flag, controlled by the"
^DD(366.013,.03,21,2,0)="local site, indicating if the NCPDP Processor is active "
^DD(366.013,.03,21,3,0)="(electronic transactions permitted)."
^DD(366.013,.03,"DT")="3031107"
^DD(366.013,.04,0)="USER EDITED LOCAL^P200'^VA(200,^0;4^Q"
^DD(366.013,.04,3)="Enter the user's name associated with the last edit of the Application (electronic interface application) Local Active? field."
^DD(366.013,.04,21,0)="^.001^2^2^3040726^^^^"
^DD(366.013,.04,21,1,0)="The user's name associated with the last edit of the Application"
^DD(366.013,.04,21,2,0)="(electronic interface application) Local Active? field."
^DD(366.013,.04,"DT")="3031107"
^DD(366.013,.05,0)="DATE/TIME LOCAL EDITED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.013,.05,3)="Enter the date and time associated with the last edit of the Application (electronic interface application) Local Active? field."
^DD(366.013,.05,21,0)="^.001^2^2^3040726^^^^"
^DD(366.013,.05,21,1,0)="The date and time associated with the last edit of the Application "
^DD(366.013,.05,21,2,0)="(electronic interface application) Local Active? field."
^DD(366.013,.05,"DT")="3031107"
^DD(366.013,.06,0)="DATE/TIME NATIONAL EDITED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.013,.06,3)="Do not edit via FileMan.  Enter the date and time  associated with the last edit of the Application (electronic interface application) National Active? field."
^DD(366.013,.06,21,0)="^.001^3^3^3040726^^^^"
^DD(366.013,.06,21,1,0)="The date and time associated with the last edit of the Application "
^DD(366.013,.06,21,2,0)="(electronic interface application) National Active? field."
^DD(366.013,.06,21,3,0)="Do not edit via FileMan."
^DD(366.013,.06,"DT")="3031107"
^DD(366.013,.07,0)="AUTO-ACCEPT?^S^0:No;1:Yes;^0;7^Q"
^DD(366.013,.07,3)="Automatically accept incoming information?  Enter 'N' for No or 'Y' for Yes."
^DD(366.013,.07,21,0)="^.001^4^4^3040726^^^^"
^DD(366.013,.07,21,1,0)="An application (electronic interface application) flag, indicating whether "
^DD(366.013,.07,21,2,0)="the site will automatically accept incoming information and file it in the "
^DD(366.013,.07,21,3,0)="VistA System, rather than storing the information in a temporary file for "
^DD(366.013,.07,21,4,0)="manual intervention."
^DD(366.013,.07,"DT")="3031107"
^DD(366.013,.08,0)="IDENT REQUIRES SUBSCRIBER ID?^S^0:No;1:Yes;^0;8^Q"
^DD(366.013,.08,3)="Do not edit via FileMan!  Subscriber ID required for identification?  Enter 'N' for No or 'Y' for Yes."
^DD(366.013,.08,21,0)="^.001^4^4^3040726^^^^"
^DD(366.013,.08,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.013,.08,21,2,0)="national Eligibility Communicator (EC), indicating if a Subscriber ID is "
^DD(366.013,.08,21,3,0)="required for identification."
^DD(366.013,.08,21,4,0)="Do not edit via FileMan."
^DD(366.013,.08,"DT")="3031107"
^DD(366.013,.09,0)="USE SSN FOR SUBSCRIBER ID?^S^0:No;1:Yes;^0;9^Q"
^DD(366.013,.09,3)="Do not edit via FileMan!  Use SSN for subscriber ID?  Enter 'N' for No or 'Y"" for Yes."
^DD(366.013,.09,21,0)="^.001^4^4^3040726^^^^"
^DD(366.013,.09,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.013,.09,21,2,0)="national Eligibility Communicator (EC), indicating if a patient's "
^DD(366.013,.09,21,3,0)="Social Security Number (SSN) is a valid Subscriber ID."
^DD(366.013,.09,21,4,0)="Do not edit via FileMan."
^DD(366.013,.09,"DT")="3031107"
^DD(366.013,.1,0)="TRANSMIT SSN?^S^0:No;1:Yes;^0;10^Q"
^DD(366.013,.1,3)="Do not edit via FileMan!  Transmit SSN?  Enter 'N' for No or 'Y' for Yes."
^DD(366.013,.1,21,0)="^.001^4^4^3040726^^^^"
^DD(366.013,.1,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.013,.1,21,2,0)="national Eligibility Communicator (EC), indicating if a patient's"
^DD(366.013,.1,21,3,0)="Social Security Number (SSN) can be transmitted."
^DD(366.013,.1,21,4,0)="Do not edit via FileMan."
^DD(366.013,.1,"DT")="3031107"
^DD(366.013,.11,0)="DEACTIVATED?^S^0:No;1:Yes;^0;11^Q"
^DD(366.013,.11,3)="Do not edit via FileMan!  NCPDP Processor deactivated from a national perspective?  Enter 'N' for No or 'Y' for Yes."
^DD(366.013,.11,21,0)="^.001^4^4^3040726^^^^"
^DD(366.013,.11,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.013,.11,21,2,0)="national Eligibility Communicator (EC), indicating if the NCPDP Processor "
^DD(366.013,.11,21,3,0)="has been deactivated (electronic transactions not permitted)."
^DD(366.013,.11,21,4,0)="Do not edit via FileMan."
^DD(366.013,.11,"DT")="3031107"
^DD(366.013,.12,0)="DATE/TIME DEACTIVATED^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(366.013,.12,3)="Do not edit via FileMan!  Enter the date and time associated with the last edit of the Application (electronic interface application) Deactivated? field."
^DD(366.013,.12,21,0)="^.001^3^3^3040726^^^^"
^DD(366.013,.12,21,1,0)="The date and time associated with the last edit of the "
^DD(366.013,.12,21,2,0)="Application (electronic interface application) Deactivated? field."
^DD(366.013,.12,21,3,0)="Do not edit via FileMan."
^DD(366.013,.12,"DT")="3031107"
^DD(366.013,.13,0)="DATE/TIME CREATED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.013,.13,3)="Do not edit via FileMan!  Enter the date and time associated with the creation of the Application (electronic interface application) sub-file entry."
^DD(366.013,.13,21,0)="^.001^3^3^3040726^^^^"
^DD(366.013,.13,21,1,0)="The date and time associated with the creation of the Application "
^DD(366.013,.13,21,2,0)="(electronic interface application) sub-file entry."
^DD(366.013,.13,21,3,0)="Do not edit via FileMan."
^DD(366.013,.13,"DT")="3031107"
^DD(366.013,.14,0)="FUTURE SERVICE DAYS^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.013,.14,3)="Enter the maximum number of days (0-9999) before the service date for an acceptable claim submission."
^DD(366.013,.14,21,0)="^.001^2^2^3040726^^^^"
^DD(366.013,.14,21,1,0)="The application's (electronic interface application) maximum number of days "
^DD(366.013,.14,21,2,0)="before the service date for an acceptable claim submission."
^DD(366.013,.14,"DT")="3031107"
^DD(366.013,.15,0)="PAST SERVICE DAYS^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.013,.15,3)="Enter the maximum number of days (0-9999) after the service date for an acce"
^DD(366.013,.15,21,0)="^.001^2^2^3040726^^^^"
^DD(366.013,.15,21,1,0)="The application's (electronic interface application) maximum number of days "
^DD(366.013,.15,21,2,0)="after the service date for an acceptable claim submission."
^DD(366.013,.15,"DT")="3031107"
^DD(366.013,"B","APPLICATION",.01)=""
^DD(366.013,"B","AUTO-ACCEPT?",.07)=""
^DD(366.013,"B","DATE/TIME CREATED",.13)=""
^DD(366.013,"B","DATE/TIME DEACTIVATED",.12)=""
^DD(366.013,"B","DATE/TIME LOCAL EDITED",.05)=""
^DD(366.013,"B","DATE/TIME NATIONAL EDITED",.06)=""
^DD(366.013,"B","DEACTIVATED?",.11)=""
^DD(366.013,"B","FUTURE SERVICE DAYS",.14)=""
^DD(366.013,"B","IDENT REQUIRES SUBSCRIBER ID?",.08)=""
^DD(366.013,"B","LOCAL ACTIVE?",.03)=""
^DD(366.013,"B","NATIONAL ACTIVE?",.02)=""
^DD(366.013,"B","PAST SERVICE DAYS",.15)=""
^DD(366.013,"B","TRANSMIT SSN?",.1)=""
^DD(366.013,"B","USE SSN FOR SUBSCRIBER ID?",.09)=""
^DD(366.013,"B","USER EDITED LOCAL",.04)=""
^DD(366.013,"GL",0,1,.01)=""
^DD(366.013,"GL",0,2,.02)=""
^DD(366.013,"GL",0,3,.03)=""
^DD(366.013,"GL",0,4,.04)=""
^DD(366.013,"GL",0,5,.05)=""
^DD(366.013,"GL",0,6,.06)=""
^DD(366.013,"GL",0,7,.07)=""
^DD(366.013,"GL",0,8,.08)=""
^DD(366.013,"GL",0,9,.09)=""
^DD(366.013,"GL",0,10,.1)=""
^DD(366.013,"GL",0,11,.11)=""
^DD(366.013,"GL",0,12,.12)=""
^DD(366.013,"GL",0,13,.13)=""
^DD(366.013,"GL",0,14,.14)=""
^DD(366.013,"GL",0,15,.15)=""
^DD(366.013,"IX",.01)=""
^DD(366.02,0)="FIELD^^3^10"
^DD(366.02,0,"DDA")="N"
^DD(366.02,0,"DT")="3040119"
^DD(366.02,0,"IX","AB",366.022,.01)=""
^DD(366.02,0,"IX","B",366.02,.01)=""
^DD(366.02,0,"NM","PHARMACY BENEFITS MANAGER (PBM)")=""
^DD(366.02,0,"PT",366.03,10.01)=""
^DD(366.02,0,"VR")="2.0"
^DD(366.02,0,"VRPK")="IB"
^DD(366.02,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(366.02,.01,1,0)="^.1"
^DD(366.02,.01,1,1,0)="366.02^B"
^DD(366.02,.01,1,1,1)="S ^IBCNR(366.02,""B"",$E(X,1,30),DA)="""""
^DD(366.02,.01,1,1,2)="K ^IBCNR(366.02,""B"",$E(X,1,30),DA)"
^DD(366.02,.01,3)="Enter the Pharmacy Benefits Manager's (PBM's) long name.  Answer must be 1-40 characters in length."
^DD(366.02,.01,21,0)="^.001^1^1^3031028^^^"
^DD(366.02,.01,21,1,0)="The Pharmacy Benefits Manager's (PBM's) long name."
^DD(366.02,.01,"DT")="3031028"
^DD(366.02,.02,0)="DATE/TIME CREATED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.02,.02,3)="Enter the date and time associated with the creation of Pharmacy Benefits (PBM) file (#366.02) entry."
^DD(366.02,.02,21,0)="^.001^2^2^3040726^^^"
^DD(366.02,.02,21,1,0)="The date and time associated with the creation of Pharmacy Benefits "
^DD(366.02,.02,21,2,0)="Manager (PBM) file (#366.02) entry."
^DD(366.02,.02,"DT")="3031107"
^DD(366.02,1.01,0)="PRIMARY CONTACT NAME^F^^1;1^K:$L(X)>50!($L(X)<1) X"
^DD(366.02,1.01,3)="Enter the Pharmacy Benefits Manager's (PBM's) primary contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.02,1.01,21,0)="^.001^2^2^3031028^^^^"
^DD(366.02,1.01,21,1,0)="The Pharmacy Benefits Manager's (PBM's) primary contact name in general VA"
^DD(366.02,1.01,21,2,0)="name format (Family,Given Middle/MI Suffix)."
^DD(366.02,1.01,"DT")="3031028"
^DD(366.02,1.02,0)="PRIMARY CONTACT PREFIX^F^^1;2^K:$L(X)>3!($L(X)<1) X"
^DD(366.02,1.02,3)="Enter the Pharmacy Benefits Manager's (PBM's) primary contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.02,1.02,21,0)="^.001^2^2^3031028^^^^"
^DD(366.02,1.02,21,1,0)="The Pharmacy Benefits Manager's (PBM's) primary contact prefix / title"
^DD(366.02,1.02,21,2,0)="(e.g. Dr.)."
^DD(366.02,1.02,"DT")="3031028"
^DD(366.02,1.03,0)="PRIMARY CONTACT DEGREE^F^^1;3^K:$L(X)>3!($L(X)<1) X"
^DD(366.02,1.03,3)="Enter the Pharmacy Benefits Manager's (PBM's) primary contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.02,1.03,21,0)="^.001^2^2^3031028^^^"
^DD(366.02,1.03,21,1,0)="Enter the Pharmacy Benefits Manager's (PBM's) primary contact degree code"
^DD(366.02,1.03,21,2,0)="(e.g. MD)."
^DD(366.02,1.03,"DT")="3031028"
^DD(366.02,1.04,0)="ALTERNATE CONTACT NAME^F^^1;4^K:$L(X)>50!($L(X)<1) X"
^DD(366.02,1.04,3)="Enter the Pharmacy Benefits Manager's (PBM's) alternate contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.02,1.04,21,0)="^.001^2^2^3031028^^^"
^DD(366.02,1.04,21,1,0)="The Pharmacy Benefits Manager's (PBM's) alternate contact name in general"
^DD(366.02,1.04,21,2,0)="VA name format (Family,Given Middle/MI Suffix)."
^DD(366.02,1.04,"DT")="3031028"
^DD(366.02,1.05,0)="ALTERNATE CONTACT PREFIX^F^^1;5^K:$L(X)>3!($L(X)<1) X"
^DD(366.02,1.05,3)="Enter the Pharmacy Benefits Manager's (PBM's) alternate contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.02,1.05,21,0)="^.001^2^2^3031028^^^"
^DD(366.02,1.05,21,1,0)="The Pharmacy Benefits Manager's (PBM's) alternate contact prefix / title"
^DD(366.02,1.05,21,2,0)="(e.g. Dr.)."
^DD(366.02,1.05,"DT")="3031028"
^DD(366.02,1.06,0)="ALTERNATE CONTACT DEGREE^F^^1;6^K:$L(X)>3!($L(X)<1) X"
^DD(366.02,1.06,3)="Enter the Pharmacy Benefits Manager's (PBM's) alternate contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.02,1.06,21,0)="^.001^2^2^3031028^^^"
^DD(366.02,1.06,21,1,0)="The Pharmacy Benefits Manager's (PBM's) alternate contact degree code"
^DD(366.02,1.06,21,2,0)="(e.g. MD)."
^DD(366.02,1.06,"DT")="3031028"
^DD(366.02,2,0)="CONTACT MEANS^366.022^^2;0"
^DD(366.02,2,21,0)="^.001^2^2^3040726^^"
^DD(366.02,2,21,1,0)="The Pharmacy Benefits Manager's (PBM's) Contact Means sub-file."
^DD(366.02,2,21,2,0)="Applies to both the PBM's primary and alternate contacts."
^DD(366.02,2,"DT")="3031028"
^DD(366.02,3,0)="APPLICATION^366.023P^^3;0"
^DD(366.02,3,21,0)="^.001^2^2^3040726^^"
^DD(366.02,3,21,1,0)="The Pharmacy Benefits Manager's (PBM's) Application (electronic interface "
^DD(366.02,3,21,2,0)="application) sub-file."
^DD(366.02,"B","ALTERNATE CONTACT DEGREE",1.06)=""
^DD(366.02,"B","ALTERNATE CONTACT NAME",1.04)=""
^DD(366.02,"B","ALTERNATE CONTACT PREFIX",1.05)=""
^DD(366.02,"B","APPLICATION",3)=""
^DD(366.02,"B","CONTACT MEANS",2)=""
^DD(366.02,"B","DATE/TIME CREATED",.02)=""
^DD(366.02,"B","NAME",.01)=""
^DD(366.02,"B","PRIMARY CONTACT DEGREE",1.03)=""
^DD(366.02,"B","PRIMARY CONTACT NAME",1.01)=""
^DD(366.02,"B","PRIMARY CONTACT PREFIX",1.02)=""
^DD(366.02,"GL",0,1,.01)=""
^DD(366.02,"GL",0,2,.02)=""
^DD(366.02,"GL",1,1,1.01)=""
^DD(366.02,"GL",1,2,1.02)=""
^DD(366.02,"GL",1,3,1.03)=""
^DD(366.02,"GL",1,4,1.04)=""
^DD(366.02,"GL",1,5,1.05)=""
^DD(366.02,"GL",1,6,1.06)=""
^DD(366.02,"GL",2,0,2)=""
^DD(366.02,"GL",3,0,3)=""
^DD(366.02,"IX",.01)=""
^DD(366.02,"RQ",.01)=""
^DD(366.02,"RQ",.02)=""
^DD(366.02,"SB",366.022,2)=""
^DD(366.02,"SB",366.023,3)=""
^DD(366.022,0)="CONTACT MEANS SUB-FIELD^^.07^7"
^DD(366.022,0,"DT")="3040119"
^DD(366.022,0,"IX","B",366.022,.01)=""
^DD(366.022,0,"NM","CONTACT MEANS")=""
^DD(366.022,0,"UP")="366.02"
^DD(366.022,.01,0)="PKEY^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(366.022,.01,1,0)="^.1^^-1"
^DD(366.022,.01,1,1,0)="366.022^B"
^DD(366.022,.01,1,1,1)="S ^IBCNR(366.02,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(366.022,.01,1,1,2)="K ^IBCNR(366.02,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(366.022,.01,1,2,0)="366.02^AB"
^DD(366.022,.01,1,2,1)="S ^IBCNR(366.02,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(366.022,.01,1,2,2)="K ^IBCNR(366.02,""AB"",$E(X,1,30),DA(1),DA)"
^DD(366.022,.01,1,2,"DT")="3031104"
^DD(366.022,.01,3)="Enter the contact means' primary key (PKey).  Answer must be 1-10 caracters in length."
^DD(366.022,.01,21,0)="^.001^1^1^3031203^^^^"
^DD(366.022,.01,21,1,0)="The contact means' primary key (PKey)."
^DD(366.022,.01,"DT")="3031118"
^DD(366.022,.02,0)="TYPE^S^A:Alternate contact means;P:Primary contact means;^0;2^Q"
^DD(366.022,.02,3)="Enter the contact means' type."
^DD(366.022,.02,21,0)="^.001^1^1^3031028^^^^"
^DD(366.022,.02,21,1,0)="The contact means' type."
^DD(366.022,.02,"DT")="3031028"
^DD(366.022,.03,0)="TELECOMMUNICATION USE^S^ASN:Answering Service Number;BPN:Beeper Number;EMR:Emergency Number;NET:Network (email) Address;ORN:Other Residence Number;PRN:Primary Residence Number;VHN:Vacation Home Number;WPN:Work Number;^0;3^Q"
^DD(366.022,.03,.1)="TELECOMMUNICATION USE CODE"
^DD(366.022,.03,3)="Enter the contact means' telecommunication use code from HL7 Table 0201."
^DD(366.022,.03,21,0)="^.001^1^1^3040119^^^^"
^DD(366.022,.03,21,1,0)="The contact means' telecommunication use code from HL7 Table 0201."
^DD(366.022,.03,"DT")="3040119"
^DD(366.022,.04,0)="TELECOMMUNICATION EQUIPMENT^S^BP:Beeper;CP:Cellular Phone;FX:Fax;Internet:Internet Address;MD:Modem;PH:Telephone;X.400:X.400 email address;^0;4^Q"
^DD(366.022,.04,.1)="TELECOMMUNICATION EQUIPMENT TYPE CODE"
^DD(366.022,.04,3)="Enter the contact means' telecommunication equipment type code from HL7 Table 0202."
^DD(366.022,.04,21,0)="^.001^2^2^3031028^^^"
^DD(366.022,.04,21,1,0)="The contact means' telecommunication equipment type code from HL7 Table"
^DD(366.022,.04,21,2,0)="0202."
^DD(366.022,.04,"DT")="3031028"
^DD(366.022,.05,0)="EMAIL ADDRESS^F^^0;5^K:$L(X)>100!($L(X)<1) X"
^DD(366.022,.05,3)="Enter the contact means' email address.  Answer must be 1-100 characters in length."
^DD(366.022,.05,21,0)="^.001^2^2^3031028^^^"
^DD(366.022,.05,21,1,0)="The contact means' email address."
^DD(366.022,.05,21,2,0)="Required if telecommunication use code = NET (Network (email) Address)."
^DD(366.022,.05,"DT")="3031028"
^DD(366.022,.06,0)="TELEPHONE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<10) X"
^DD(366.022,.06,3)="Enter the contact means' telephone number.  Answer must be 10-30 characters in length."
^DD(366.022,.06,21,0)="^.001^3^3^3031028^^^"
^DD(366.022,.06,21,1,0)="The contact means' telephone number."
^DD(366.022,.06,21,2,0)="Required if telecommunication use code is not = NET (Network (email)"
^DD(366.022,.06,21,3,0)="Address)."
^DD(366.022,.06,"DT")="3031028"
^DD(366.022,.07,0)="COMMENT^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(366.022,.07,3)="Enter the contact means' comment (e.g. Do not call on Friday.).  Answer must be 1-40 characters in length."
^DD(366.022,.07,21,0)="^.001^1^1^3031028^^"
^DD(366.022,.07,21,1,0)="The contact means' comment (e.g. Do not call on Friday.)."
^DD(366.022,.07,"DT")="3031028"
^DD(366.022,"B","COMMENT",.07)=""
^DD(366.022,"B","EMAIL ADDRESS",.05)=""
^DD(366.022,"B","PKEY",.01)=""
^DD(366.022,"B","TELECOMMUNICATION EQUIPMENT",.04)=""
^DD(366.022,"B","TELECOMMUNICATION USE",.03)=""
^DD(366.022,"B","TELECOMMUNICATION USE CODE",.03)="1"
^DD(366.022,"B","TELEPHONE NUMBER",.06)=""
^DD(366.022,"B","TYPE",.02)=""
^DD(366.022,"GL",0,1,.01)=""
^DD(366.022,"GL",0,2,.02)=""
^DD(366.022,"GL",0,3,.03)=""
^DD(366.022,"GL",0,4,.04)=""
^DD(366.022,"GL",0,5,.05)=""
^DD(366.022,"GL",0,6,.06)=""
^DD(366.022,"GL",0,7,.07)=""
^DD(366.022,"IX",.01)=""
^DD(366.023,0)="APPLICATION SUB-FIELD^^.15^15"
^DD(366.023,0,"DT")="3031110"
^DD(366.023,0,"IX","B",366.023,.01)=""
^DD(366.023,0,"NM","APPLICATION")=""
^DD(366.023,0,"UP")="366.02"
^DD(366.023,.01,0)="APPLICATION^MP366.12'^IBCNR(366.12,^0;1^Q"
^DD(366.023,.01,1,0)="^.1"
^DD(366.023,.01,1,1,0)="366.023^B"
^DD(366.023,.01,1,1,1)="S ^IBCNR(366.02,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(366.023,.01,1,1,2)="K ^IBCNR(366.02,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(366.023,.01,3)="Answer must be 3-30 characters in length, non-numeric, and can not have a leading puncuation character."
^DD(366.023,.01,21,0)="^.001^1^1^3040726^^^^"
^DD(366.023,.01,21,1,0)="The application's (electronic interface application) name."
^DD(366.023,.01,"DT")="3031110"
^DD(366.023,.02,0)="NATIONAL ACTIVE?^S^0:Not Active;1:Active;^0;2^Q"
^DD(366.023,.02,3)="Do not edit via FileMan!  Are electronic transactions permitted from a national perspective?  Enter 'A' for Active (permitted) or 'N' for Not Active (not permitted)."
^DD(366.023,.02,21,0)="^.001^4^4^3040726^^^^"
^DD(366.023,.02,21,1,0)="An application (electronic interface application) flag, controlled by the"
^DD(366.023,.02,21,2,0)="national Eligibility Communicator (EC), indicating if the Pharmacy Benefits "
^DD(366.023,.02,21,3,0)="Manager (PBM) is active (electronic transactions permitted)."
^DD(366.023,.02,21,4,0)="Do not edit via FileMan."
^DD(366.023,.02,"DT")="3031107"
^DD(366.023,.03,0)="LOCAL ACTIVE?^S^0:Not Active;1:Active;^0;3^Q"
^DD(366.023,.03,3)="Are electronic transactions permitted from a local perspective?  Enter 'A' for Active (permitted) or 'N' for Not Active (not permitted)."
^DD(366.023,.03,21,0)="^.001^3^3^3040726^^^^"
^DD(366.023,.03,21,1,0)="An application (electronic interface application) flag, controlled by the"
^DD(366.023,.03,21,2,0)="local site, indicating if the Pharmacy Benefits Manager (PBM) is active "
^DD(366.023,.03,21,3,0)="(electronic transactions permitted)."
^DD(366.023,.03,"DT")="3031107"
^DD(366.023,.04,0)="USER EDITED LOCAL^P200'^VA(200,^0;4^Q"
^DD(366.023,.04,3)="Enter the user's name associated with the last edit of the Application (electronic interface application) Local Active? field."
^DD(366.023,.04,21,0)="^.001^2^2^3040726^^^^"
^DD(366.023,.04,21,1,0)="The user's name associated with the last edit of the Application"
^DD(366.023,.04,21,2,0)="(electronic interface application) Local Active? field."
^DD(366.023,.04,"DT")="3031107"
^DD(366.023,.05,0)="DATE/TIME LOCAL EDITED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.023,.05,3)="Enter the date and time associated with the last edit of the Application (electronic interface application) Local Active? field."
^DD(366.023,.05,21,0)="^.001^2^2^3040726^^^^"
^DD(366.023,.05,21,1,0)="The date and time associated with the last edit of the Application "
^DD(366.023,.05,21,2,0)="(electronic interface application) Local Active? field."
^DD(366.023,.05,"DT")="3031107"
^DD(366.023,.06,0)="DATE/TIME NATIONAL EDITED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.023,.06,3)="Do not edit via FileMan.  Enter the date and time  associated with the last edit of the Application (electronic interface application) National Active? field."
^DD(366.023,.06,21,0)="^.001^3^3^3040726^^^^"
^DD(366.023,.06,21,1,0)="The date and time associated with the last edit of the Application "
^DD(366.023,.06,21,2,0)="(electronic interface application) National Active? field."
^DD(366.023,.06,21,3,0)="Do not edit via FileMan."
^DD(366.023,.06,"DT")="3031107"
^DD(366.023,.07,0)="AUTO-ACCEPT?^S^0:No;1:Yes;^0;7^Q"
^DD(366.023,.07,3)="Automatically accept incoming information?  Enter 'N' for No or 'Y' for Yes."
^DD(366.023,.07,21,0)="^.001^4^4^3040726^^^^"
^DD(366.023,.07,21,1,0)="An application (electronic interface application) flag, indicating whether "
^DD(366.023,.07,21,2,0)="the site will automatically accept incoming information and file it in the "
^DD(366.023,.07,21,3,0)="VistA System, rather than storing the information in a temporary file for "
^DD(366.023,.07,21,4,0)="manual intervention."
^DD(366.023,.07,"DT")="3031107"
^DD(366.023,.08,0)="IDENT REQUIRES SUBSCRIBER ID?^S^0:No;1:Yes;^0;8^Q"
^DD(366.023,.08,3)="Do not edit via FileMan!  Subscriber ID required for identification?  Enter 'N' for No or 'Y' for Yes."
^DD(366.023,.08,21,0)="^.001^4^4^3040726^^^^"
^DD(366.023,.08,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.023,.08,21,2,0)="national Eligibility Communicator (EC), indicating if a Subscriber ID is "
^DD(366.023,.08,21,3,0)="required for identification."
^DD(366.023,.08,21,4,0)="Do not edit via FileMan."
^DD(366.023,.08,"DT")="3031107"
^DD(366.023,.09,0)="USE SSN FOR SUBSCRIBER ID?^S^0:No;1:Yes;^0;9^Q"
^DD(366.023,.09,3)="Do not edit via FileMan!  Use SSN for subscriber ID?  Enter 'N' for No or 'Y"" for Yes."
^DD(366.023,.09,21,0)="^.001^4^4^3040726^^^^"
^DD(366.023,.09,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.023,.09,21,2,0)="national Eligibility Communicator (EC), indicating if a patient's "
^DD(366.023,.09,21,3,0)="Social Security Number (SSN) is a valid Subscriber ID."
^DD(366.023,.09,21,4,0)="Do not edit via FileMan."
^DD(366.023,.09,"DT")="3031107"
^DD(366.023,.1,0)="TRANSMIT SSN?^S^0:No;1:Yes;^0;10^Q"
^DD(366.023,.1,3)="Do not edit via FileMan!  Transmit SSN?  Enter 'N' for No or 'Y' for Yes."
^DD(366.023,.1,21,0)="^.001^4^4^3040726^^^^"
^DD(366.023,.1,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.023,.1,21,2,0)="national Eligibility Communicator (EC), indicating if a patient's"
^DD(366.023,.1,21,3,0)="Social Security Number (SSN) can be transmitted."
^DD(366.023,.1,21,4,0)="Do not edit via FileMan."
^DD(366.023,.1,"DT")="3031107"
^DD(366.023,.11,0)="DEACTIVATED?^S^0:No;1:Yes;^0;11^Q"
^DD(366.023,.11,3)="Do not edit via FileMan!  Pharmacy Benefits Manager (PBM) deactivated from a national perspective?  Enter 'N' for No or 'Y' for Yes."
^DD(366.023,.11,21,0)="^.001^4^4^3040726^^^^"
^DD(366.023,.11,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.023,.11,21,2,0)="national Eligibility Communicator (EC), indicating if the Pharmacy Benefits "
^DD(366.023,.11,21,3,0)="Manager (PBM) has been deactivated (electronic transactions not permitted)."
^DD(366.023,.11,21,4,0)="Do not edit via FileMan."
^DD(366.023,.11,"DT")="3031107"
^DD(366.023,.12,0)="DATE/TIME DEACTIVATED^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(366.023,.12,3)="Do not edit via FileMan!  Enter the date and time associated with the last edit of the Application (electronic interface application) Deactivated? field."
^DD(366.023,.12,21,0)="^.001^3^3^3040726^^^^"
^DD(366.023,.12,21,1,0)="The date and time associated with the last edit of the "
^DD(366.023,.12,21,2,0)="Application (electronic interface application) Deactivated? field."
^DD(366.023,.12,21,3,0)="Do not edit via FileMan."
^DD(366.023,.12,"DT")="3031107"
^DD(366.023,.13,0)="DATE/TIME CREATED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.023,.13,3)="Do not edit via FileMan!  Enter the date and time associated with the creation of the Application (electronic interface application) sub-file entry."
^DD(366.023,.13,21,0)="^.001^3^3^3040726^^^^"
^DD(366.023,.13,21,1,0)="The date and time associated with the creation of the Application "
^DD(366.023,.13,21,2,0)="(electronic interface application) sub-file entry."
^DD(366.023,.13,21,3,0)="Do not edit via FileMan."
^DD(366.023,.13,"DT")="3031107"
^DD(366.023,.14,0)="FUTURE SERVICE DAYS^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.023,.14,3)="Enter the maximum number of days (0-9999) before the service date for an acceptable claim submission."
^DD(366.023,.14,21,0)="^.001^2^2^3040726^^^^"
^DD(366.023,.14,21,1,0)="The application's (electronic interface application) maximum number of days "
^DD(366.023,.14,21,2,0)="before the service date for an acceptable claim submission."
^DD(366.023,.14,"DT")="3031107"
^DD(366.023,.15,0)="PAST SERVICE DAYS^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.023,.15,3)="Enter the maximum number of days (0-9999) after the service date for an acce"
^DD(366.023,.15,21,0)="^.001^2^2^3040726^^^^"
^DD(366.023,.15,21,1,0)="The application's (electronic interface application) maximum number of days "
^DD(366.023,.15,21,2,0)="after the service date for an acceptable claim submission."
^DD(366.023,.15,"DT")="3031107"
^DD(366.023,"B","APPLICATION",.01)=""
^DD(366.023,"B","AUTO-ACCEPT?",.07)=""
^DD(366.023,"B","DATE/TIME CREATED",.13)=""
^DD(366.023,"B","DATE/TIME DEACTIVATED",.12)=""
^DD(366.023,"B","DATE/TIME LOCAL EDITED",.05)=""
^DD(366.023,"B","DATE/TIME NATIONAL EDITED",.06)=""
^DD(366.023,"B","DEACTIVATED?",.11)=""
^DD(366.023,"B","FUTURE SERVICE DAYS",.14)=""
^DD(366.023,"B","IDENT REQUIRES SUBSCRIBER ID?",.08)=""
^DD(366.023,"B","LOCAL ACTIVE?",.03)=""
^DD(366.023,"B","NATIONAL ACTIVE?",.02)=""
^DD(366.023,"B","PAST SERVICE DAYS",.15)=""
^DD(366.023,"B","TRANSMIT SSN?",.1)=""
^DD(366.023,"B","USE SSN FOR SUBSCRIBER ID?",.09)=""
^DD(366.023,"B","USER EDITED LOCAL",.04)=""
^DD(366.023,"GL",0,1,.01)=""
^DD(366.023,"GL",0,2,.02)=""
^DD(366.023,"GL",0,3,.03)=""
^DD(366.023,"GL",0,4,.04)=""
^DD(366.023,"GL",0,5,.05)=""
^DD(366.023,"GL",0,6,.06)=""
^DD(366.023,"GL",0,7,.07)=""
^DD(366.023,"GL",0,8,.08)=""
^DD(366.023,"GL",0,9,.09)=""
^DD(366.023,"GL",0,10,.1)=""
^DD(366.023,"GL",0,11,.11)=""
^DD(366.023,"GL",0,12,.12)=""
^DD(366.023,"GL",0,13,.13)=""
^DD(366.023,"GL",0,14,.14)=""
^DD(366.023,"GL",0,15,.15)=""
^DD(366.023,"IX",.01)=""
^DD(366.03,0)="FIELD^^12^35"
^DD(366.03,0,"DDA")="N"
^DD(366.03,0,"DT")="3040119"
^DD(366.03,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(366.03,0,"ID",10.02)="W:$D(^(10)) ""   "",$P(^(10),U,2)"
^DD(366.03,0,"ID",10.03)="W:$D(^(10)) ""   "",$P(^(10),U,3)"
^DD(366.03,0,"IX","AB",366.032,.01)=""
^DD(366.03,0,"IX","AC",366.0312,.01)=""
^DD(366.03,0,"IX","B",366.03,.01)=""
^DD(366.03,0,"IX","C",366.03,.02)=""
^DD(366.03,0,"IX","D",366.03,10.02)=""
^DD(366.03,0,"IX","E",366.03,10.03)=""
^DD(366.03,0,"NM","PLAN")=""
^DD(366.03,0,"PT",355.3,6.01)=""
^DD(366.03,0,"VR")="2.0"
^DD(366.03,0,"VRPK")="IB"
^DD(366.03,.01,0)="ID^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(366.03,.01,1,0)="^.1"
^DD(366.03,.01,1,1,0)="366.03^B"
^DD(366.03,.01,1,1,1)="S ^IBCNR(366.03,""B"",$E(X,1,30),DA)="""""
^DD(366.03,.01,1,1,2)="K ^IBCNR(366.03,""B"",$E(X,1,30),DA)"
^DD(366.03,.01,3)="Enter the Plan's identifier (ID / VA National Plan ID).  Answer must be 1-30 characters in length."
^DD(366.03,.01,21,0)="^.001^1^1^3031028^^^"
^DD(366.03,.01,21,1,0)="The Plan's identifier (ID / VA National Plan ID)."
^DD(366.03,.01,"DT")="3031028"
^DD(366.03,.02,0)="NAME^RF^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(366.03,.02,1,0)="^.1^^-1"
^DD(366.03,.02,1,1,0)="366.03^C"
^DD(366.03,.02,1,1,1)="S ^IBCNR(366.03,""C"",$E(X,1,30),DA)="""""
^DD(366.03,.02,1,1,2)="K ^IBCNR(366.03,""C"",$E(X,1,30),DA)"
^DD(366.03,.02,1,1,"DT")="3031120"
^DD(366.03,.02,3)="Enter the Plan's long name (VA National Plan Name).  Answer must be 1-40 characters in length."
^DD(366.03,.02,21,0)="^.001^1^1^3031107^^^^"
^DD(366.03,.02,21,1,0)="The Plan's long name (VA National Plan Name)."
^DD(366.03,.02,"DT")="3031120"
^DD(366.03,.03,0)="PAYER NAME^P365.12'^IBE(365.12,^0;3^Q"
^DD(366.03,.03,3)="Enter the Plan's Payer Name."
^DD(366.03,.03,21,0)="^^1^1^3031203^"
^DD(366.03,.03,21,1,0)="The Plan's Payer Name."
^DD(366.03,.03,"DT")="3031203"
^DD(366.03,.04,0)="NAME - SHORT^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(366.03,.04,3)="Enter the Plan's short name.  Answer must be 1-20 characters in length."
^DD(366.03,.04,21,0)="^.001^1^1^3031028^^^^"
^DD(366.03,.04,21,1,0)="The Plan's short name."
^DD(366.03,.04,"DT")="3031028"
^DD(366.03,.05,0)="TYPE^S^BC:Blue Cross;CO:Commercial;TC:Tricare;UC:Uncategorized;^0;5^Q"
^DD(366.03,.05,3)="Enter the Plan's type code."
^DD(366.03,.05,21,0)="^.001^1^1^3031028^^^"
^DD(366.03,.05,21,1,0)="The Plan's type code."
^DD(366.03,.05,"DT")="3031028"
^DD(366.03,.06,0)="REGION^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(366.03,.06,3)="Enter the Plan's geographical region (e.g. MD).  Answer must be 1-20 characters in length."
^DD(366.03,.06,21,0)="^.001^1^1^3031028^^^"
^DD(366.03,.06,21,1,0)="The Plan's geographical region (e.g. MD)."
^DD(366.03,.06,"DT")="3031028"
^DD(366.03,.07,0)="DATE/TIME CREATED^RD^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.03,.07,3)="Enter the date and time associated with the creation of Plan File entry."
^DD(366.03,.07,21,0)="^.001^1^1^3040726^^^^"
^DD(366.03,.07,21,1,0)="The date and time associated with the creation of Plan file (#366.03) entry."
^DD(366.03,.07,"DT")="3031107"
^DD(366.03,1.01,0)="PRIMARY CONTACT NAME^F^^1;1^K:$L(X)>50!($L(X)<1) X"
^DD(366.03,1.01,3)="Enter the Plan's primary contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.03,1.01,21,0)="^.001^2^2^3031028^^^"
^DD(366.03,1.01,21,1,0)="The Plan's primary contact name in general VA name format (Family,Given"
^DD(366.03,1.01,21,2,0)="Middle/MI Suffix)."
^DD(366.03,1.01,"DT")="3031028"
^DD(366.03,1.02,0)="PRIMARY CONTACT PREFIX^F^^1;2^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,1.02,3)="Enter the Plan's primary contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.03,1.02,21,0)="^.001^1^1^3031028^^^"
^DD(366.03,1.02,21,1,0)="The Plan's primary contact prefix / title (e.g. Dr.)."
^DD(366.03,1.02,"DT")="3031028"
^DD(366.03,1.03,0)="PRIMARY CONTACT DEGREE^F^^1;3^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,1.03,3)="Enter the Plan's primary contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.03,1.03,21,0)="^.001^1^1^3031028^^^"
^DD(366.03,1.03,21,1,0)="The Plan's primary contact degree code (e.g. MD)."
^DD(366.03,1.03,"DT")="3031028"
^DD(366.03,1.04,0)="ALTERNATE CONTACT NAME^F^^1;4^K:$L(X)>50!($L(X)<1) X"
^DD(366.03,1.04,3)="Enter the Plan's alternate contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.03,1.04,21,0)="^.001^2^2^3031028^^^"
^DD(366.03,1.04,21,1,0)="The Plan's alternate contact name in general VA name format (Family,Given"
^DD(366.03,1.04,21,2,0)="Middle/MI Suffix)."
^DD(366.03,1.04,"DT")="3031028"
^DD(366.03,1.05,0)="ALTERNATE CONTACT PREFIX^F^^1;5^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,1.05,3)="Enter the Plan's alternate contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.03,1.05,21,0)="^.001^1^1^3031028^^^"
^DD(366.03,1.05,21,1,0)="The Plan's alternate contact prefix / title (e.g. Dr.)."
^DD(366.03,1.05,"DT")="3031028"
^DD(366.03,1.06,0)="ALTERNATE CONTACT DEGREE^F^^1;6^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,1.06,3)="Enter the Plan's alternate contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.03,1.06,21,0)="^.001^1^1^3031028^^^"
^DD(366.03,1.06,21,1,0)="The Plan's alternate contact degree code (e.g. MD)."
^DD(366.03,1.06,"DT")="3031028"
^DD(366.03,2,0)="CONTACT MEANS^366.032^^2;0"
^DD(366.03,2,21,0)="^.001^2^2^3040726^^^^"
^DD(366.03,2,21,1,0)="The Plan's Contact Means sub-file."
^DD(366.03,2,21,2,0)="Applies to both the Plan's primary and alternate contacts."
^DD(366.03,2,"DT")="3031028"
^DD(366.03,3,0)="APPLICATION^366.033P^^3;0"
^DD(366.03,3,21,0)="^.001^1^1^3040726^^^^"
^DD(366.03,3,21,1,0)="The Plan's Application (electronic interface application) sub-file."
^DD(366.03,10.01,0)="PHARMACY BENEFITS MANAGER NAME^P366.02'^IBCNR(366.02,^10;1^Q"
^DD(366.03,10.01,.1)="PHARMACY BENEFITS MANAGER (PBM) NAME"
^DD(366.03,10.01,3)="Enter the Plan's Pharmacy Benefits Manager (PBM) Name."
^DD(366.03,10.01,20,0)="^.3LA^1^1"
^DD(366.03,10.01,20,1,0)="PHARMACY"
^DD(366.03,10.01,21,0)="^.001^1^1^3031110^^^^"
^DD(366.03,10.01,21,1,0)="The Plan's Pharmacy Benefits Manager (PBM) Name."
^DD(366.03,10.01,"DT")="3031110"
^DD(366.03,10.02,0)="BANKING IDENTIFICATION NUMBER^F^^10;2^K:$L(X)>10!($L(X)<1) X"
^DD(366.03,10.02,.1)="BANKING IDENTIFICATION NUMBER (BIN)"
^DD(366.03,10.02,1,0)="^.1"
^DD(366.03,10.02,1,1,0)="366.03^D"
^DD(366.03,10.02,1,1,1)="S ^IBCNR(366.03,""D"",$E(X,1,30),DA)="""""
^DD(366.03,10.02,1,1,2)="K ^IBCNR(366.03,""D"",$E(X,1,30),DA)"
^DD(366.03,10.02,1,1,"DT")="3031120"
^DD(366.03,10.02,3)="Enter the Plan's Banking Identification Number (BIN).  Answer must be 1-10 characters in length."
^DD(366.03,10.02,20,0)="^.3LA^1^1"
^DD(366.03,10.02,20,1,0)="PHARMACY"
^DD(366.03,10.02,21,0)="^.001^2^2^3031110^^^^"
^DD(366.03,10.02,21,1,0)="The Plan's Banking Identification Number (BIN)."
^DD(366.03,10.02,21,2,0)="Used for NCPDP transmissions."
^DD(366.03,10.02,"DT")="3031120"
^DD(366.03,10.03,0)="PROCESSOR CONTROL NUMBER (PCN)^F^^10;3^K:$L(X)>20!($L(X)<1) X"
^DD(366.03,10.03,1,0)="^.1"
^DD(366.03,10.03,1,1,0)="366.03^E"
^DD(366.03,10.03,1,1,1)="S ^IBCNR(366.03,""E"",$E(X,1,30),DA)="""""
^DD(366.03,10.03,1,1,2)="K ^IBCNR(366.03,""E"",$E(X,1,30),DA)"
^DD(366.03,10.03,1,1,"DT")="3031120"
^DD(366.03,10.03,3)="Enter the Plan's Processor Control Number (PCN).  Answer must be 1-20 characters in length."
^DD(366.03,10.03,20,0)="^.3LA^1^1"
^DD(366.03,10.03,20,1,0)="PHARMACY"
^DD(366.03,10.03,21,0)="^.001^2^2^3031110^^^^"
^DD(366.03,10.03,21,1,0)="The Plan's Processor Control Number (PCN)."
^DD(366.03,10.03,21,2,0)="Used for NCPDP transmissions."
^DD(366.03,10.03,"DT")="3031120"
^DD(366.03,10.04,0)="NCPDP PROCESSOR NAME^P366.01'^IBCNR(366.01,^10;4^Q"
^DD(366.03,10.04,3)="Enter the Plan's NCPDP Processor Name."
^DD(366.03,10.04,20,0)="^.3LA^1^1"
^DD(366.03,10.04,20,1,0)="PHARMACY"
^DD(366.03,10.04,21,0)="^.001^1^1^3031110^^^^"
^DD(366.03,10.04,21,1,0)="The Plan's NCPDP Processor Name."
^DD(366.03,10.04,"DT")="3031110"
^DD(366.03,10.05,0)="ENABLED?^S^0:No;1:Yes;^10;5^Q"
^DD(366.03,10.05,3)="Is the Plan enabled for NCPDP transmissions?"
^DD(366.03,10.05,20,0)="^.3LA^1^1"
^DD(366.03,10.05,20,1,0)="PHARMACY"
^DD(366.03,10.05,21,0)="^.001^1^1^3031028^^^^"
^DD(366.03,10.05,21,1,0)="Is the Plan enabled for NCPDP transmissions?"
^DD(366.03,10.05,"DT")="3031028"
^DD(366.03,10.06,0)="SOFTWARE VENDOR ID^F^^10;6^K:$L(X)>10!($L(X)<1) X"
^DD(366.03,10.06,.1)="SOFTWARE VENDOR / CERTIFICATION ID"
^DD(366.03,10.06,3)="Enter the Plan's software vendor / certification identifier (ID).  Answer must be 1-10 characters in length."
^DD(366.03,10.06,20,0)="^.3LA^1^1"
^DD(366.03,10.06,20,1,0)="PHARMACY"
^DD(366.03,10.06,21,0)="^.001^2^2^3031028^^^^"
^DD(366.03,10.06,21,1,0)="The Plan's software vendor / certification identifier (ID)."
^DD(366.03,10.06,21,2,0)="Used for NCPDP transmissions."
^DD(366.03,10.06,"DT")="3031028"
^DD(366.03,10.07,0)="BILLING PAYER SHEET NAME^P9002313.92'^BPSF(9002313.92,^10;7^Q"
^DD(366.03,10.07,.1)=""
^DD(366.03,10.07,3)="Enter the Plan's Billing Payer Sheet Name."
^DD(366.03,10.07,20,0)=" ^.3LA^1^1"
^DD(366.03,10.07,20,1,0)="PHARMACY"
^DD(366.03,10.07,21,0)="^^2^2^3031203^"
^DD(366.03,10.07,21,1,0)="The Plan's Billing Payer Sheet Name."
^DD(366.03,10.07,21,2,0)="Defines the NCPDP Billing (B1) Record format."
^DD(366.03,10.07,"DT")="3031203"
^DD(366.03,10.08,0)="REVERSAL PAYER SHEET NAME^P9002313.92'^BPSF(9002313.92,^10;8^Q"
^DD(366.03,10.08,3)="Enter the Plan's Reversal Payer Sheet Name."
^DD(366.03,10.08,20,0)="^.3LA^1^1"
^DD(366.03,10.08,20,1,0)="PHARMACY"
^DD(366.03,10.08,21,0)="^^2^2^3031203^"
^DD(366.03,10.08,21,1,0)="The Plan's Reversal Payer Sheet Name."
^DD(366.03,10.08,21,2,0)="Defines the NCPDP Reversal (B2) Record format."
^DD(366.03,10.08,"DT")="3031203"
^DD(366.03,10.09,0)="REBILL PAYER SHEET NAME^P9002313.92'^BPSF(9002313.92,^10;9^Q"
^DD(366.03,10.09,3)="Enter the Plan's Rebill Payer Sheet Name."
^DD(366.03,10.09,20,0)="^.3LA^1^1"
^DD(366.03,10.09,20,1,0)="PHARMACY"
^DD(366.03,10.09,21,0)="^.001^2^2^3031203^^"
^DD(366.03,10.09,21,1,0)="The Plan's Rebill Payer Sheet Name."
^DD(366.03,10.09,21,2,0)="Defines the NCPDP Rebill (B3) Record format."
^DD(366.03,10.09,"DT")="3031203"
^DD(366.03,10.1,0)="MAXIMUM NCPDP TRANSACTIONS^NJ5,0^^10;10^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(366.03,10.1,3)="Enter the Plan's maximum NCPDP transactions permitted within an NCPDP transmission.  Answer must be between 1-99999 (inclusive)."
^DD(366.03,10.1,20,0)="^.3LA^1^1"
^DD(366.03,10.1,20,1,0)="PHARMACY"
^DD(366.03,10.1,21,0)="^.001^2^2^3031203^^^^"
^DD(366.03,10.1,21,1,0)="The Plan's maximum NCPDP transactions permitted within an NCPDP"
^DD(366.03,10.1,21,2,0)="transmission."
^DD(366.03,10.1,"DT")="3031028"
^DD(366.03,10.11,0)="TEST BILLING PAYER SHEET^P9002313.92'^BPSF(9002313.92,^10;11^Q"
^DD(366.03,10.11,3)="Enter the Plan's Test Billing Payer Sheet Name."
^DD(366.03,10.11,20,0)="^.3LA^1^1"
^DD(366.03,10.11,20,1,0)="PHARMACY"
^DD(366.03,10.11,21,0)="^.001^2^2^3040726^^^"
^DD(366.03,10.11,21,1,0)="The Plan's Test Billing Payer Sheet Name."
^DD(366.03,10.11,21,2,0)="Defines the Test NCPDP Billing (B1) Record format."
^DD(366.03,10.11,"DT")="3031216"
^DD(366.03,10.12,0)="TEST REVERSAL PAYER SHEET NAME^P9002313.92'^BPSF(9002313.92,^10;12^Q"
^DD(366.03,10.12,3)="Enter the Plan's Test Reversal Payer Sheet Name."
^DD(366.03,10.12,20,0)="^.3LA^1^1"
^DD(366.03,10.12,20,1,0)="PHARMACY"
^DD(366.03,10.12,21,0)="^.001^2^2^3040726^^^^"
^DD(366.03,10.12,21,1,0)="The Plan's Test Reversal Payer Sheet Name."
^DD(366.03,10.12,21,2,0)="Defines the Test NCPDP Reversal (B2) Record format."
^DD(366.03,10.12,"DT")="3031203"
^DD(366.03,10.13,0)="TEST REBILL PAYER SHEET NAME^P9002313.92'^BPSF(9002313.92,^10;13^Q"
^DD(366.03,10.13,3)="Enter the Plan's Test Rebill Payer Sheet Name."
^DD(366.03,10.13,20,0)="^.3LA^1^1"
^DD(366.03,10.13,20,1,0)="PHARMACY"
^DD(366.03,10.13,21,0)="^.001^2^2^3031203^^^"
^DD(366.03,10.13,21,1,0)="The Plan's Test Rebill Payer Sheet Name."
^DD(366.03,10.13,21,2,0)="Defines the Test NCPDP Rebill (B3) Record format."
^DD(366.03,10.13,"DT")="3031203"
^DD(366.03,11.01,0)="RX PRIMARY CONTACT NAME^F^^11;1^K:$L(X)>50!($L(X)<1) X"
^DD(366.03,11.01,.1)="PHARMACY (RX) PRIMARY CONTACT NAME"
^DD(366.03,11.01,3)="Enter the Plan's pharmacy (RX) primary contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.03,11.01,20,0)="^.3LA^1^1"
^DD(366.03,11.01,20,1,0)="PHARMACY"
^DD(366.03,11.01,21,0)="^.001^2^2^3031028^^^^"
^DD(366.03,11.01,21,1,0)="The Plan's pharmacy (RX) primary contact name in general VA name format"
^DD(366.03,11.01,21,2,0)="(Family,Given Middle/MI Suffix)."
^DD(366.03,11.01,"DT")="3031028"
^DD(366.03,11.02,0)="RX PRIMARY CONTACT PREFIX^F^^11;2^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,11.02,.1)="PHARMACY (RX) PRIMARY CONTACT PREFIX"
^DD(366.03,11.02,3)="Enter the Plan's pharmacy (RX) primary contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.03,11.02,20,0)="^.3LA^1^1"
^DD(366.03,11.02,20,1,0)="PHARMACY"
^DD(366.03,11.02,21,0)="^.001^1^1^3031028^^^^"
^DD(366.03,11.02,21,1,0)="The Plan's pharmacy (RX) primary contact prefix / title (e.g. Dr.)."
^DD(366.03,11.02,"DT")="3031028"
^DD(366.03,11.03,0)="RX PRIMARY CONTACT DEGREE^F^^11;3^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,11.03,.1)="PHARMACY (RX) PRIMARY CONTACT DEGREE"
^DD(366.03,11.03,3)="Enter the Plan's pharmacy (RX) primary contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.03,11.03,20,0)="^.3LA^1^1"
^DD(366.03,11.03,20,1,0)="PHARMACY"
^DD(366.03,11.03,21,0)="^.001^1^1^3031028^^^^"
^DD(366.03,11.03,21,1,0)="The Plan's pharmacy (RX) primary contact degree code (e.g. MD)."
^DD(366.03,11.03,"DT")="3031028"
^DD(366.03,11.04,0)="RX ALTERNATE CONTACT NAME^F^^11;4^K:$L(X)>50!($L(X)<1) X"
^DD(366.03,11.04,.1)="PHARMACY (RX) ALTERNATE CONTACT NAME"
^DD(366.03,11.04,3)="Enter the Plan's pharmacy (RX) alternate contact name in general VA name format (Family,Given Middle/MI Suffix).  Answer must be 1-50 characters in length."
^DD(366.03,11.04,20,0)="^.3LA^1^1"
^DD(366.03,11.04,20,1,0)="PHARMACY"
^DD(366.03,11.04,21,0)="^.001^2^2^3031028^^^^"
^DD(366.03,11.04,21,1,0)="The Plan's pharmacy (RX) alternate contact name in general VA name format"
^DD(366.03,11.04,21,2,0)="(Family,Given Middle/MI Suffix)."
^DD(366.03,11.04,"DT")="3031028"
^DD(366.03,11.05,0)="RX ALTERNATE CONTACT PREFIX^F^^11;5^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,11.05,.1)="PHARMACY (RX) ALTERNATE CONTACT PREFIX"
^DD(366.03,11.05,3)="Enter the Plan's pharmacy (RX) alternate contact prefix / title (e.g. Dr.).  Answer must be 1-3 characters in length."
^DD(366.03,11.05,20,0)="^.3LA^1^1"
^DD(366.03,11.05,20,1,0)="PHARMACY"
^DD(366.03,11.05,21,0)="^.001^1^1^3031028^^^^"
^DD(366.03,11.05,21,1,0)="The Plan's pharmacy (RX) alternate contact prefix / title (e.g. Dr.)."
^DD(366.03,11.05,"DT")="3031028"
^DD(366.03,11.06,0)="RX ALTERNATE CONTACT DEGREE^F^^11;6^K:$L(X)>3!($L(X)<1) X"
^DD(366.03,11.06,.1)="PHARMACY (RX) ALTERNATE CONTACT DEGREE"
^DD(366.03,11.06,3)="Enter the Plan's pharmacy (RX) alternate contact degree code (e.g. MD).  Answer must be 1-3 characters in length."
^DD(366.03,11.06,20,0)="^.3LA^1^1"
^DD(366.03,11.06,20,1,0)="PHARMACY"
^DD(366.03,11.06,21,0)="^.001^1^1^3031028^^^^"
^DD(366.03,11.06,21,1,0)="The Plan's pharmacy (RX) alternate contact degree code (e.g. MD)."
^DD(366.03,11.06,"DT")="3031028"
^DD(366.03,12,0)="RX CONTACT MEANS^366.0312^^12;0"
^DD(366.03,12,20,0)="^.3LA^1^1"
^DD(366.03,12,20,1,0)="PHARMACY"
^DD(366.03,12,21,0)="^.001^2^2^3040726^^^"
^DD(366.03,12,21,1,0)="The Plan's Pharmacy (RX) Contact Means sub-file."
^DD(366.03,12,21,2,0)="Applies to both the Plan's pharmacy (RX) primary and alternate contacts."
^DD(366.03,12,"DT")="3031028"
^DD(366.03,"B","ALTERNATE CONTACT DEGREE",1.06)=""
^DD(366.03,"B","ALTERNATE CONTACT NAME",1.04)=""
^DD(366.03,"B","ALTERNATE CONTACT PREFIX",1.05)=""
^DD(366.03,"B","APPLICATION",3)=""
^DD(366.03,"B","BANKING IDENTIFICATION NUMBER",10.02)=""
^DD(366.03,"B","BILLING PAYER SHEET NAME",10.07)=""
^DD(366.03,"B","CONTACT MEANS",2)=""
^DD(366.03,"B","DATE/TIME CREATED",.07)=""
^DD(366.03,"B","ENABLED?",10.05)=""
^DD(366.03,"B","ID",.01)=""
^DD(366.03,"B","MAXIMUM NCPDP TRANSACTIONS",10.1)=""
^DD(366.03,"B","NAME",.02)=""
^DD(366.03,"B","NAME - SHORT",.04)=""
^DD(366.03,"B","NCPDP PROCESSOR NAME",10.04)=""
^DD(366.03,"B","PAYER NAME",.03)=""
^DD(366.03,"B","PHARMACY BENEFITS MANAGER NAME",10.01)=""
^DD(366.03,"B","PRIMARY CONTACT DEGREE",1.03)=""
^DD(366.03,"B","PRIMARY CONTACT NAME",1.01)=""
^DD(366.03,"B","PRIMARY CONTACT PREFIX",1.02)=""
^DD(366.03,"B","PROCESSOR CONTROL NUMBER (PCN)",10.03)=""
^DD(366.03,"B","REBILL PAYER SHEET NAME",10.09)=""
^DD(366.03,"B","REGION",.06)=""
^DD(366.03,"B","REVERSAL PAYER SHEET NAME",10.08)=""
^DD(366.03,"B","RX ALTERNATE CONTACT DEGREE",11.06)=""
^DD(366.03,"B","RX ALTERNATE CONTACT NAME",11.04)=""
^DD(366.03,"B","RX ALTERNATE CONTACT PREFIX",11.05)=""
^DD(366.03,"B","RX CONTACT MEANS",12)=""
^DD(366.03,"B","RX PRIMARY CONTACT DEGREE",11.03)=""
^DD(366.03,"B","RX PRIMARY CONTACT NAME",11.01)=""
^DD(366.03,"B","RX PRIMARY CONTACT PREFIX",11.02)=""
^DD(366.03,"B","SOFTWARE VENDOR ID",10.06)=""
^DD(366.03,"B","TEST BILLING PAYER SHEET",10.11)=""
^DD(366.03,"B","TEST REBILL PAYER SHEET NAME",10.13)=""
^DD(366.03,"B","TEST REVERSAL PAYER SHEET NAME",10.12)=""
^DD(366.03,"B","TYPE",.05)=""
^DD(366.03,"GL",0,1,.01)=""
^DD(366.03,"GL",0,2,.02)=""
^DD(366.03,"GL",0,3,.03)=""
^DD(366.03,"GL",0,4,.04)=""
^DD(366.03,"GL",0,5,.05)=""
^DD(366.03,"GL",0,6,.06)=""
^DD(366.03,"GL",0,7,.07)=""
^DD(366.03,"GL",1,1,1.01)=""
^DD(366.03,"GL",1,2,1.02)=""
^DD(366.03,"GL",1,3,1.03)=""
^DD(366.03,"GL",1,4,1.04)=""
^DD(366.03,"GL",1,5,1.05)=""
^DD(366.03,"GL",1,6,1.06)=""
^DD(366.03,"GL",2,0,2)=""
^DD(366.03,"GL",3,0,3)=""
^DD(366.03,"GL",10,1,10.01)=""
^DD(366.03,"GL",10,2,10.02)=""
^DD(366.03,"GL",10,3,10.03)=""
^DD(366.03,"GL",10,4,10.04)=""
^DD(366.03,"GL",10,5,10.05)=""
^DD(366.03,"GL",10,6,10.06)=""
^DD(366.03,"GL",10,7,10.07)=""
^DD(366.03,"GL",10,8,10.08)=""
^DD(366.03,"GL",10,9,10.09)=""
^DD(366.03,"GL",10,10,10.1)=""
^DD(366.03,"GL",10,11,10.11)=""
^DD(366.03,"GL",10,12,10.12)=""
^DD(366.03,"GL",10,13,10.13)=""
^DD(366.03,"GL",11,1,11.01)=""
^DD(366.03,"GL",11,2,11.02)=""
^DD(366.03,"GL",11,3,11.03)=""
^DD(366.03,"GL",11,4,11.04)=""
^DD(366.03,"GL",11,5,11.05)=""
^DD(366.03,"GL",11,6,11.06)=""
^DD(366.03,"GL",12,0,12)=""
^DD(366.03,"GR","PHARMACY",10.01,1)=""
^DD(366.03,"GR","PHARMACY",10.02,1)=""
^DD(366.03,"GR","PHARMACY",10.03,1)=""
^DD(366.03,"GR","PHARMACY",10.04,1)=""
^DD(366.03,"GR","PHARMACY",10.05,1)=""
^DD(366.03,"GR","PHARMACY",10.06,1)=""
^DD(366.03,"GR","PHARMACY",10.07,1)=""
^DD(366.03,"GR","PHARMACY",10.08,1)=""
^DD(366.03,"GR","PHARMACY",10.09,1)=""
^DD(366.03,"GR","PHARMACY",10.1,1)=""
^DD(366.03,"GR","PHARMACY",10.11,1)=""
^DD(366.03,"GR","PHARMACY",10.12,1)=""
^DD(366.03,"GR","PHARMACY",10.13,1)=""
^DD(366.03,"GR","PHARMACY",11.01,1)=""
^DD(366.03,"GR","PHARMACY",11.02,1)=""
^DD(366.03,"GR","PHARMACY",11.03,1)=""
^DD(366.03,"GR","PHARMACY",11.04,1)=""
^DD(366.03,"GR","PHARMACY",11.05,1)=""
^DD(366.03,"GR","PHARMACY",11.06,1)=""
^DD(366.03,"GR","PHARMACY",12,1)=""
^DD(366.03,"IX",.01)=""
^DD(366.03,"IX",.02)=""
^DD(366.03,"IX",10.02)=""
^DD(366.03,"IX",10.03)=""
^DD(366.03,"RQ",.01)=""
^DD(366.03,"RQ",.02)=""
^DD(366.03,"RQ",.07)=""
^DD(366.03,"SB",366.0312,12)=""
^DD(366.03,"SB",366.032,2)=""
^DD(366.03,"SB",366.033,3)=""
^DD(366.0312,0)="RX CONTACT MEANS SUB-FIELD^^.07^7"
^DD(366.0312,0,"DT")="3040119"
^DD(366.0312,0,"IX","B",366.0312,.01)=""
^DD(366.0312,0,"NM","RX CONTACT MEANS")=""
^DD(366.0312,0,"UP")="366.03"
^DD(366.0312,.01,0)="PKEY^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(366.0312,.01,1,0)="^.1^^-1"
^DD(366.0312,.01,1,1,0)="366.0312^B"
^DD(366.0312,.01,1,1,1)="S ^IBCNR(366.03,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(366.0312,.01,1,1,2)="K ^IBCNR(366.03,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(366.0312,.01,1,2,0)="366.03^AC"
^DD(366.0312,.01,1,2,1)="S ^IBCNR(366.03,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(366.0312,.01,1,2,2)="K ^IBCNR(366.03,""AC"",$E(X,1,30),DA(1),DA)"
^DD(366.0312,.01,1,2,"DT")="3031104"
^DD(366.0312,.01,3)="Enter the contact means' primary key (PKey).  Answer must be 1-10 caracters in length."
^DD(366.0312,.01,21,0)="^.001^1^1^3031028^^^^"
^DD(366.0312,.01,21,1,0)="The contact means' primary key (PKey)."
^DD(366.0312,.01,"DT")="3031118"
^DD(366.0312,.02,0)="TYPE^S^A:Alternate contact means;P:Primary contact means;^0;2^Q"
^DD(366.0312,.02,3)="Enter the contact means' type."
^DD(366.0312,.02,21,0)="^.001^1^1^3031028^^^^"
^DD(366.0312,.02,21,1,0)="The contact means' type."
^DD(366.0312,.02,"DT")="3031028"
^DD(366.0312,.03,0)="TELECOMMUNICATION USE^S^ASN:Answering Service Number;BPN:Beeper Number;EMR:Emergency Number;NET:Network (email) Address;ORN:Other Residence Number;PRN:Primary Residence Number;VHN:Vacation Home Number;WPN:Work Number;^0;3^Q"
^DD(366.0312,.03,.1)="TELECOMMUNICATION USE CODE"
^DD(366.0312,.03,3)="Enter the contact means' telecommunication use code from HL7 Table 0201."
^DD(366.0312,.03,21,0)="^.001^1^1^3040119^^^^"
^DD(366.0312,.03,21,1,0)="The contact means' telecommunication use code from HL7 Table 0201."
^DD(366.0312,.03,"DT")="3040119"
^DD(366.0312,.04,0)="TELECOMMUNICATION EQUIPMENT^S^BP:Beeper;CP:Cellular Phone;FX:Fax;Internet:Internet Address;MD:Modem;PH:Telephone;X.400:X.400 email address;^0;4^Q"
^DD(366.0312,.04,.1)="TELECOMMUNICATION EQUIPMENT TYPE CODE"
^DD(366.0312,.04,3)="Enter the contact means' telecommunication equipment type code from HL7 Table 0202."
^DD(366.0312,.04,21,0)="^.001^2^2^3031028^^^^"
^DD(366.0312,.04,21,1,0)="The contact means' telecommunication equipment type code from HL7 Table"
^DD(366.0312,.04,21,2,0)="0202."
^DD(366.0312,.04,"DT")="3031028"
^DD(366.0312,.05,0)="EMAIL ADDRESS^F^^0;5^K:$L(X)>100!($L(X)<1) X"
^DD(366.0312,.05,3)="Enter the contact means' email address.  Answer must be 1-100 characters in length."
^DD(366.0312,.05,21,0)="^.001^2^2^3031028^^^"
^DD(366.0312,.05,21,1,0)="The contact means' email address."
^DD(366.0312,.05,21,2,0)="Required if telecommunication use code = NET (Network (email) Address)."
^DD(366.0312,.05,"DT")="3031028"
^DD(366.0312,.06,0)="TELEPHONE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<10) X"
^DD(366.0312,.06,3)="Enter the contact means' telephone number.  Answer must be 10-30 characters in length."
^DD(366.0312,.06,21,0)="^.001^3^3^3031028^^^^"
^DD(366.0312,.06,21,1,0)="The contact means' telephone number."
^DD(366.0312,.06,21,2,0)="Required if telecommunication use code is not = NET (Network (email)"
^DD(366.0312,.06,21,3,0)="Address)."
^DD(366.0312,.06,"DT")="3031028"
^DD(366.0312,.07,0)="COMMENT^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(366.0312,.07,3)="Enter the contact means' comment (e.g. Do not call on Friday.).  Answer must be 1-40 characters in length."
^DD(366.0312,.07,21,0)="^.001^1^1^3031028^^^"
^DD(366.0312,.07,21,1,0)="The contact means' comment (e.g. Do not call on Friday.)."
^DD(366.0312,.07,"DT")="3031028"
^DD(366.0312,"B","COMMENT",.07)=""
^DD(366.0312,"B","EMAIL ADDRESS",.05)=""
^DD(366.0312,"B","PKEY",.01)=""
^DD(366.0312,"B","TELECOMMUNICATION EQUIPMENT",.04)=""
^DD(366.0312,"B","TELECOMMUNICATION USE",.03)=""
^DD(366.0312,"B","TELECOMMUNICATION USE CODE",.03)="1"
^DD(366.0312,"B","TELEPHONE NUMBER",.06)=""
^DD(366.0312,"B","TYPE",.02)=""
^DD(366.0312,"GL",0,1,.01)=""
^DD(366.0312,"GL",0,2,.02)=""
^DD(366.0312,"GL",0,3,.03)=""
^DD(366.0312,"GL",0,4,.04)=""
^DD(366.0312,"GL",0,5,.05)=""
^DD(366.0312,"GL",0,6,.06)=""
^DD(366.0312,"GL",0,7,.07)=""
^DD(366.0312,"IX",.01)=""
^DD(366.032,0)="CONTACT MEANS SUB-FIELD^^.07^7"
^DD(366.032,0,"DT")="3040119"
^DD(366.032,0,"IX","B",366.032,.01)=""
^DD(366.032,0,"NM","CONTACT MEANS")=""
^DD(366.032,0,"UP")="366.03"
^DD(366.032,.01,0)="PKEY^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(366.032,.01,1,0)="^.1^^-1"
^DD(366.032,.01,1,1,0)="366.032^B"
^DD(366.032,.01,1,1,1)="S ^IBCNR(366.03,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(366.032,.01,1,1,2)="K ^IBCNR(366.03,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(366.032,.01,1,2,0)="366.03^AB"
^DD(366.032,.01,1,2,1)="S ^IBCNR(366.03,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(366.032,.01,1,2,2)="K ^IBCNR(366.03,""AB"",$E(X,1,30),DA(1),DA)"
^DD(366.032,.01,1,2,"DT")="3031104"
^DD(366.032,.01,3)="Enter the contact means' primary key (PKey).  Answer must be 1-10 caracters in length."
^DD(366.032,.01,21,0)="^.001^1^1^3031028^^^"
^DD(366.032,.01,21,1,0)="The contact means' primary key (PKey)."
^DD(366.032,.01,"DT")="3031118"
^DD(366.032,.02,0)="TYPE^S^A:Alternate contact means;P:Primary contact means;^0;2^Q"
^DD(366.032,.02,3)="Enter the contact means' type."
^DD(366.032,.02,21,0)="^.001^1^1^3031028^^^"
^DD(366.032,.02,21,1,0)="The contact means' type."
^DD(366.032,.02,"DT")="3031028"
^DD(366.032,.03,0)="TELECOMMUNICATION USE^S^ASN:Answering Service Number;BPN:Beeper Number;EMR:Emergency Number;NET:Network (email) Address;ORN:Other Residence Number;PRN:Primary Residence Number;VHN:Vacation Home Number;WPN:Work Number;^0;3^Q"
^DD(366.032,.03,.1)="TELECOMMUNICATION USE CODE"
^DD(366.032,.03,3)="Enter the contact means' telecommunication use code from HL7 Table 0201."
^DD(366.032,.03,21,0)="^.001^1^1^3040119^^^^"
^DD(366.032,.03,21,1,0)="The contact means' telecommunication use code from HL7 Table 0201."
^DD(366.032,.03,"DT")="3040119"
^DD(366.032,.04,0)="TELECOMMUNICATION EQUIPMENT^S^BP:Beeper;CP:Cellular Phone;FX:Fax;Internet:Internet Address;MD:Modem;PH:Telephone;X.400:X.400 email address;^0;4^Q"
^DD(366.032,.04,.1)="TELECOMMUNICATION EQUIPMENT TYPE CODE"
^DD(366.032,.04,3)="Enter the contact means' telecommunication equipment type code from HL7 Table 0202."
^DD(366.032,.04,21,0)="^.001^2^2^3031028^^"
^DD(366.032,.04,21,1,0)="The contact means' telecommunication equipment type code from HL7 Table"
^DD(366.032,.04,21,2,0)="0202."
^DD(366.032,.04,"DT")="3031028"
^DD(366.032,.05,0)="EMAIL ADDRESS^F^^0;5^K:$L(X)>100!($L(X)<1) X"
^DD(366.032,.05,3)="Enter the contact means' email address.  Answer must be 1-100 characters in length."
^DD(366.032,.05,21,0)="^.001^2^2^3031028^^"
^DD(366.032,.05,21,1,0)="The contact means' email address."
^DD(366.032,.05,21,2,0)="Required if telecommunication use code = NET (Network (email) Address)."
^DD(366.032,.05,"DT")="3031028"
^DD(366.032,.06,0)="TELEPHONE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<10) X"
^DD(366.032,.06,3)="Enter the contact means' telephone number.  Answer must be 10-30 characters in length."
^DD(366.032,.06,21,0)="^.001^3^3^3031028^^^"
^DD(366.032,.06,21,1,0)="The contact means' telephone number."
^DD(366.032,.06,21,2,0)="Required if telecommunication use code is not = NET (Network (email)"
^DD(366.032,.06,21,3,0)="Address)."
^DD(366.032,.06,"DT")="3031028"
^DD(366.032,.07,0)="COMMENT^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(366.032,.07,3)="Enter the contact means' comment (e.g. Do not call on Friday.).  Answer must be 1-40 characters in length."
^DD(366.032,.07,21,0)="^.001^1^1^3031028^^"
^DD(366.032,.07,21,1,0)="The contact means' comment (e.g. Do not call on Friday.)."
^DD(366.032,.07,"DT")="3031028"
^DD(366.032,"B","COMMENT",.07)=""
^DD(366.032,"B","EMAIL ADDRESS",.05)=""
^DD(366.032,"B","PKEY",.01)=""
^DD(366.032,"B","TELECOMMUNICATION EQUIPMENT",.04)=""
^DD(366.032,"B","TELECOMMUNICATION USE",.03)=""
^DD(366.032,"B","TELECOMMUNICATION USE CODE",.03)="1"
^DD(366.032,"B","TELEPHONE NUMBER",.06)=""
^DD(366.032,"B","TYPE",.02)=""
^DD(366.032,"GL",0,1,.01)=""
^DD(366.032,"GL",0,2,.02)=""
^DD(366.032,"GL",0,3,.03)=""
^DD(366.032,"GL",0,4,.04)=""
^DD(366.032,"GL",0,5,.05)=""
^DD(366.032,"GL",0,6,.06)=""
^DD(366.032,"GL",0,7,.07)=""
^DD(366.032,"IX",.01)=""
^DD(366.033,0)="APPLICATION SUB-FIELD^^.15^15"
^DD(366.033,0,"DT")="3031110"
^DD(366.033,0,"IX","B",366.033,.01)=""
^DD(366.033,0,"NM","APPLICATION")=""
^DD(366.033,0,"UP")="366.03"
^DD(366.033,.01,0)="APPLICATION^MP366.13'^IBCNR(366.13,^0;1^Q"
^DD(366.033,.01,1,0)="^.1"
^DD(366.033,.01,1,1,0)="366.033^B"
^DD(366.033,.01,1,1,1)="S ^IBCNR(366.03,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(366.033,.01,1,1,2)="K ^IBCNR(366.03,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(366.033,.01,3)="Answer must be 3-30 characters in length, non-numeric, and can not have a leading puncuation character."
^DD(366.033,.01,21,0)="^.001^1^1^3040726^^^^"
^DD(366.033,.01,21,1,0)="The application's (electronic interface application) name."
^DD(366.033,.01,"DT")="3031110"
^DD(366.033,.02,0)="NATIONAL ACTIVE?^S^0:Not Active;1:Active;^0;2^Q"
^DD(366.033,.02,3)="Do not edit via FileMan!  Are electronic transactions permitted from a national perspective?  Enter 'A' for Active (permitted) or 'N' for Not Active (not permitted)."
^DD(366.033,.02,21,0)="^.001^4^4^3040726^^^^"
^DD(366.033,.02,21,1,0)="An application (electronic interface application) flag, controlled by the"
^DD(366.033,.02,21,2,0)="national Eligibility Communicator (EC), indicating if the Plan is"
^DD(366.033,.02,21,3,0)="active (electronic transactions permitted)."
^DD(366.033,.02,21,4,0)="Do not edit via FileMan."
^DD(366.033,.02,"DT")="3031107"
^DD(366.033,.03,0)="LOCAL ACTIVE?^S^0:Not Active;1:Active;^0;3^Q"
^DD(366.033,.03,3)="Are electronic transactions permitted from a local perspective?  Enter 'A' for Active (permitted) or 'N' for Not Active (not permitted)."
^DD(366.033,.03,21,0)="^.001^3^3^3040726^^^^"
^DD(366.033,.03,21,1,0)="An application (electronic interface application) flag, controlled by the"
^DD(366.033,.03,21,2,0)="local site, indicating if the Plan is active "
^DD(366.033,.03,21,3,0)="(electronic transactions permitted)."
^DD(366.033,.03,"DT")="3031107"
^DD(366.033,.04,0)="USER EDITED LOCAL^P200'^VA(200,^0;4^Q"
^DD(366.033,.04,3)="Enter the user's name associated with the last edit of the Application (electronic interface application) Local Active? field."
^DD(366.033,.04,21,0)="^.001^2^2^3040726^^^^"
^DD(366.033,.04,21,1,0)="The user's name associated with the last edit of the Application"
^DD(366.033,.04,21,2,0)="(electronic interface application) Local Active? field."
^DD(366.033,.04,"DT")="3031107"
^DD(366.033,.05,0)="DATE/TIME LOCAL EDITED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.033,.05,3)="Enter the date and time associated with the last edit of the Application (electronic interface application) Local Active? field."
^DD(366.033,.05,21,0)="^.001^2^2^3040726^^^^"
^DD(366.033,.05,21,1,0)="The date and time associated with the last edit of the Application "
^DD(366.033,.05,21,2,0)="(electronic interface application) Local Active? field."
^DD(366.033,.05,"DT")="3031107"
^DD(366.033,.06,0)="DATE/TIME NATIONAL EDITED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.033,.06,3)="Do not edit via FileMan.  Enter the date and time  associated with the last edit of the Application (electronic interface application) National Active? field."
^DD(366.033,.06,21,0)="^.001^3^3^3040726^^^^"
^DD(366.033,.06,21,1,0)="The date and time associated with the last edit of the Application "
^DD(366.033,.06,21,2,0)="(electronic interface application) National Active? field."
^DD(366.033,.06,21,3,0)="Do not edit via FileMan."
^DD(366.033,.06,"DT")="3031107"
^DD(366.033,.07,0)="AUTO-ACCEPT?^S^0:No;1:Yes;^0;7^Q"
^DD(366.033,.07,3)="Automatically accept incoming information?  Enter 'N' for No or 'Y' for Yes."
^DD(366.033,.07,21,0)="^.001^4^4^3040726^^^^"
^DD(366.033,.07,21,1,0)="An application (electronic interface application) flag, indicating whether "
^DD(366.033,.07,21,2,0)="the site will automatically accept incoming information and file it in the "
^DD(366.033,.07,21,3,0)="VistA System, rather than storing the information in a temporary file for "
^DD(366.033,.07,21,4,0)="manual intervention."
^DD(366.033,.07,"DT")="3031107"
^DD(366.033,.08,0)="IDENT REQUIRES SUBSCRIBER ID?^S^0:No;1:Yes;^0;8^Q"
^DD(366.033,.08,3)="Do not edit via FileMan!  Subscriber ID required for identification?  Enter 'N' for No or 'Y' for Yes."
^DD(366.033,.08,21,0)="^.001^4^4^3040726^^^^"
^DD(366.033,.08,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.033,.08,21,2,0)="national Eligibility Communicator (EC), indicating if a Subscriber ID is "
^DD(366.033,.08,21,3,0)="required for identification."
^DD(366.033,.08,21,4,0)="Do not edit via FileMan."
^DD(366.033,.08,"DT")="3031107"
^DD(366.033,.09,0)="USE SSN FOR SUBSCRIBER ID?^S^0:No;1:Yes;^0;9^Q"
^DD(366.033,.09,3)="Do not edit via FileMan!  Use SSN for subscriber ID?  Enter 'N' for No or 'Y"" for Yes."
^DD(366.033,.09,21,0)="^.001^4^4^3040726^^^^"
^DD(366.033,.09,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.033,.09,21,2,0)="national Eligibility Communicator (EC), indicating if a patient's "
^DD(366.033,.09,21,3,0)="Social Security Number (SSN) is a valid Subscriber ID."
^DD(366.033,.09,21,4,0)="Do not edit via FileMan."
^DD(366.033,.09,"DT")="3031107"
^DD(366.033,.1,0)="TRANSMIT SSN?^S^0:No;1:Yes;^0;10^Q"
^DD(366.033,.1,3)="Do not edit via FileMan!  Transmit SSN?  Enter 'N' for No or 'Y' for Yes."
^DD(366.033,.1,21,0)="^.001^4^4^3040726^^^^"
^DD(366.033,.1,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.033,.1,21,2,0)="national Eligibility Communicator (EC), indicating if a patient's"
^DD(366.033,.1,21,3,0)="Social Security Number (SSN) can be transmitted."
^DD(366.033,.1,21,4,0)="Do not edit via FileMan."
^DD(366.033,.1,"DT")="3031107"
^DD(366.033,.11,0)="DEACTIVATED?^S^0:No;1:Yes;^0;11^Q"
^DD(366.033,.11,3)="Do not edit via FileMan!  Plan deactivated from a national perspective?  Enter 'N' for No or 'Y' for Yes."
^DD(366.033,.11,21,0)="^.001^4^4^3040726^^^^"
^DD(366.033,.11,21,1,0)="An application (electronic interface application) flag, controlled by the "
^DD(366.033,.11,21,2,0)="national Eligibility Communicator (EC), indicating if the Plan "
^DD(366.033,.11,21,3,0)="has been deactivated (electronic transactions not permitted)."
^DD(366.033,.11,21,4,0)="Do not edit via FileMan."
^DD(366.033,.11,"DT")="3031107"
^DD(366.033,.12,0)="DATE/TIME DEACTIVATED^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(366.033,.12,3)="Do not edit via FileMan!  Enter the date and time associated with the last edit of the Application (electronic interface application) Deactivated? field."
^DD(366.033,.12,21,0)="^.001^3^3^3040726^^^^"
^DD(366.033,.12,21,1,0)="The date and time associated with the last edit of the "
^DD(366.033,.12,21,2,0)="Application (electronic interface application) Deactivated? field."
^DD(366.033,.12,21,3,0)="Do not edit via FileMan."
^DD(366.033,.12,"DT")="3031107"
^DD(366.033,.13,0)="DATE/TIME CREATED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(366.033,.13,3)="Do not edit via FileMan!  Enter the date and time associated with the creation of the Application (electronic interface application) sub-file entry."
^DD(366.033,.13,21,0)="^.001^3^3^3040726^^^^"
^DD(366.033,.13,21,1,0)="The date and time associated with the creation of the Application "
^DD(366.033,.13,21,2,0)="(electronic interface application) sub-file entry."
^DD(366.033,.13,21,3,0)="Do not edit via FileMan."
^DD(366.033,.13,"DT")="3031107"
^DD(366.033,.14,0)="FUTURE SERVICE DAYS^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.033,.14,3)="Enter the maximum number of days (0-9999) before the service date for an acceptable claim submission."
^DD(366.033,.14,21,0)="^.001^2^2^3040726^^^^"
^DD(366.033,.14,21,1,0)="The application's (electronic interface application) maximum number of days "
^DD(366.033,.14,21,2,0)="before the service date for an acceptable claim submission."
^DD(366.033,.14,"DT")="3031107"
^DD(366.033,.15,0)="PAST SERVICE DAYS^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.033,.15,3)="Enter the maximum number of days (0-9999) after the service date for an acce"
^DD(366.033,.15,21,0)="^.001^2^2^3040726^^^^"
^DD(366.033,.15,21,1,0)="The application's (electronic interface application) maximum number of days "
^DD(366.033,.15,21,2,0)="after the service date for an acceptable claim submission."
^DD(366.033,.15,"DT")="3031107"
^DD(366.033,"B","APPLICATION",.01)=""
^DD(366.033,"B","AUTO-ACCEPT?",.07)=""
^DD(366.033,"B","DATE/TIME CREATED",.13)=""
^DD(366.033,"B","DATE/TIME DEACTIVATED",.12)=""
^DD(366.033,"B","DATE/TIME LOCAL EDITED",.05)=""
^DD(366.033,"B","DATE/TIME NATIONAL EDITED",.06)=""
^DD(366.033,"B","DEACTIVATED?",.11)=""
^DD(366.033,"B","FUTURE SERVICE DAYS",.14)=""
^DD(366.033,"B","IDENT REQUIRES SUBSCRIBER ID?",.08)=""
^DD(366.033,"B","LOCAL ACTIVE?",.03)=""
^DD(366.033,"B","NATIONAL ACTIVE?",.02)=""
^DD(366.033,"B","PAST SERVICE DAYS",.15)=""
^DD(366.033,"B","TRANSMIT SSN?",.1)=""
^DD(366.033,"B","USE SSN FOR SUBSCRIBER ID?",.09)=""
^DD(366.033,"B","USER EDITED LOCAL",.04)=""
^DD(366.033,"GL",0,1,.01)=""
^DD(366.033,"GL",0,2,.02)=""
^DD(366.033,"GL",0,3,.03)=""
^DD(366.033,"GL",0,4,.04)=""
^DD(366.033,"GL",0,5,.05)=""
^DD(366.033,"GL",0,6,.06)=""
^DD(366.033,"GL",0,7,.07)=""
^DD(366.033,"GL",0,8,.08)=""
^DD(366.033,"GL",0,9,.09)=""
^DD(366.033,"GL",0,10,.1)=""
^DD(366.033,"GL",0,11,.11)=""
^DD(366.033,"GL",0,12,.12)=""
^DD(366.033,"GL",0,13,.13)=""
^DD(366.033,"GL",0,14,.14)=""
^DD(366.033,"GL",0,15,.15)=""
^DD(366.033,"IX",.01)=""
^DD(366.11,0)="FIELD^^.01^1"
^DD(366.11,0,"DDA")="N"
^DD(366.11,0,"IX","B",366.11,.01)=""
^DD(366.11,0,"NM","NCPDP PROCESSOR APPLICATION")=""
^DD(366.11,0,"PT",366.013,.01)=""
^DD(366.11,0,"VR")="2.0"
^DD(366.11,0,"VRPK")="IB"
^DD(366.11,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(366.11,.01,1,0)="^.1"
^DD(366.11,.01,1,1,0)="366.11^B"
^DD(366.11,.01,1,1,1)="S ^IBCNR(366.11,""B"",$E(X,1,30),DA)="""""
^DD(366.11,.01,1,1,2)="K ^IBCNR(366.11,""B"",$E(X,1,30),DA)"
^DD(366.11,.01,3)="Enter a NCPDP Processor application name that identifies an electronic interface application.  Answer must be 3-30 characters in length, non-numeric, and not have a leading puncuation character."
^DD(366.11,.01,21,0)="^.001^2^2^3040727^^^^"
^DD(366.11,.01,21,1,0)="A NCPDP Processor application name that identifies an electronic"
^DD(366.11,.01,21,2,0)="interface application."
^DD(366.11,.01,"DT")="3031107"
^DD(366.11,"B","NAME",.01)=""
^DD(366.11,"GL",0,1,.01)=""
^DD(366.11,"IX",.01)=""
^DD(366.11,"RQ",.01)=""
^DD(366.12,0)="FIELD^^.01^1"
^DD(366.12,0,"DDA")="N"
^DD(366.12,0,"IX","B",366.12,.01)=""
^DD(366.12,0,"NM","PHARMACY BENEFITS MANAGER (PBM) APPLICATION")=""
^DD(366.12,0,"PT",366.023,.01)=""
^DD(366.12,0,"VR")="2.0"
^DD(366.12,0,"VRPK")="IB"
^DD(366.12,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(366.12,.01,1,0)="^.1"
^DD(366.12,.01,1,1,0)="366.12^B"
^DD(366.12,.01,1,1,1)="S ^IBCNR(366.12,""B"",$E(X,1,30),DA)="""""
^DD(366.12,.01,1,1,2)="K ^IBCNR(366.12,""B"",$E(X,1,30),DA)"
^DD(366.12,.01,3)="Enter a PBM application name that identifies an electronic interface application.  Answer must be 3-30 characters in length, non-numeric, and not have a leading puncuation character."
^DD(366.12,.01,21,0)="^.001^2^2^3040727^^^^"
^DD(366.12,.01,21,1,0)="A Pharmacy Benefits Manager (PBM) application name that identifies an"
^DD(366.12,.01,21,2,0)="electronic interface application."
^DD(366.12,.01,"DT")="3031107"
^DD(366.12,"B","NAME",.01)=""
^DD(366.12,"GL",0,1,.01)=""
^DD(366.12,"IX",.01)=""
^DD(366.12,"RQ",.01)=""
^DD(366.13,0)="FIELD^^.01^1"
^DD(366.13,0,"DDA")="N"
^DD(366.13,0,"IX","B",366.13,.01)=""
^DD(366.13,0,"NM","PLAN APPLICATION")=""
^DD(366.13,0,"PT",366.033,.01)=""
^DD(366.13,0,"VR")="2.0"
^DD(366.13,0,"VRPK")="IB"
^DD(366.13,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(366.13,.01,1,0)="^.1"
^DD(366.13,.01,1,1,0)="366.13^B"
^DD(366.13,.01,1,1,1)="S ^IBCNR(366.13,""B"",$E(X,1,30),DA)="""""
^DD(366.13,.01,1,1,2)="K ^IBCNR(366.13,""B"",$E(X,1,30),DA)"
^DD(366.13,.01,3)="Enter a Plan application name that identifies an electronic interface application.  Answer must be 3-30 characters in length, non-numeric, and not have a leading puncuation character."
^DD(366.13,.01,21,0)="^.001^2^2^3040727^^^^"
^DD(366.13,.01,21,1,0)="A Plan application name that identifies an electronic interface"
^DD(366.13,.01,21,2,0)="application."
^DD(366.13,.01,"DT")="3031107"
^DD(366.13,"B","NAME",.01)=""
^DD(366.13,"GL",0,1,.01)=""
^DD(366.13,"IX",.01)=""
^DD(366.13,"RQ",.01)=""
^DD(366.14,0)="FIELD^^1^2"
^DD(366.14,0,"DDA")="N"
^DD(366.14,0,"DT")="3060620"
^DD(366.14,0,"IX","B",366.14,.01)=""
^DD(366.14,0,"IX","D",366.141,.03)=""
^DD(366.14,0,"IX","E",366.141,.13)=""
^DD(366.14,0,"IX","I",366.141,.201)=""
^DD(366.14,0,"IX","I",366.141,.212)=""
^DD(366.14,0,"IX","R",366.141,.202)=""
^DD(366.14,0,"IX","U",366.141,.06)=""
^DD(366.14,0,"NM","IB NCPDP EVENT LOG")=""
^DD(366.14,0,"VR")="2.0"
^DD(366.14,0,"VRPK")="IB"
^DD(366.14,.01,0)="DATE^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(366.14,.01,1,0)="^.1"
^DD(366.14,.01,1,1,0)="366.14^B"
^DD(366.14,.01,1,1,1)="S ^IBCNR(366.14,""B"",$E(X,1,30),DA)="""""
^DD(366.14,.01,1,1,2)="K ^IBCNR(366.14,""B"",$E(X,1,30),DA)"
^DD(366.14,.01,3)="Represents the date when specific ePharmacy billing events occurred for an outpatient claim."
^DD(366.14,.01,21,0)="^^2^2^3060621^"
^DD(366.14,.01,21,1,0)="This date is populated by the IB software That supports the processing of"
^DD(366.14,.01,21,2,0)="ePharmacy Billing events for outpatient claims."
^DD(366.14,.01,"DT")="3060621"
^DD(366.14,1,0)="EVENT^366.141SA^^1;0"
^DD(366.14,1,21,0)="^^2^2^3060621^"
^DD(366.14,1,21,1,0)="This multiple contains 1 to many records by Event type that can occur on "
^DD(366.14,1,21,2,0)="a given date for 1 to many outpatient prescription claims."
^DD(366.14,1,23,0)="^^4^4^3060621^"
^DD(366.14,1,23,1,0)="The records in this sub-file are stored by sequence or as they occur in "
^DD(366.14,1,23,2,0)="time for a given date.  This sub-file is updated when one of the 2 "
^DD(366.14,1,23,3,0)="functions, $$RX^IBNCPDP or $$STORES^IBNCPDP are invoked by the calling "
^DD(366.14,1,23,4,0)="application when processing ePharmacy related billing events."
^DD(366.14,1,"DT")="3060316"
^DD(366.14,"B","DATE",.01)=""
^DD(366.14,"B","EVENT",1)=""
^DD(366.14,"GL",0,1,.01)=""
^DD(366.14,"GL",1,0,1)=""
^DD(366.14,"IX",.01)=""
^DD(366.14,"RQ",.01)=""
^DD(366.14,"SB",366.141,1)=""
^DD(366.141,0)="EVENT SUB-FIELD^^.08^48"
^DD(366.141,0,"DT")="3060620"
^DD(366.141,0,"IX","B",366.141,.01)=""
^DD(366.141,0,"NM","EVENT")=""
^DD(366.141,0,"UP")="366.14"
^DD(366.141,.01,0)="EVENT TYPE^RS^0:UNKNOWN;1:BILLABLE STATUS CHECK;2:SUBMIT;3:BILL;4:RELEASE;5:REVERSE;6:CLOSE;7:REOPEN;^0;1^Q"
^DD(366.141,.01,1,0)="^.1"
^DD(366.141,.01,1,1,0)="366.141^B"
^DD(366.141,.01,1,1,1)="S ^IBCNR(366.14,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(366.141,.01,1,1,2)="K ^IBCNR(366.14,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(366.141,.01,3)="Pharmacy event types"
^DD(366.141,.01,21,0)="^^2^2^3060621^"
^DD(366.141,.01,21,1,0)="The event types represent the various ePharmacy billing events during the "
^DD(366.141,.01,21,2,0)="processing of outpatient Rx claims."
^DD(366.141,.01,"DT")="3060621"
^DD(366.141,.03,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(366.141,.03,1,0)="^.1"
^DD(366.141,.03,1,1,0)="366.14^D"
^DD(366.141,.03,1,1,1)="S ^IBCNR(366.14,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(366.141,.03,1,1,2)="K ^IBCNR(366.14,""D"",$E(X,1,30),DA(1),DA)"
^DD(366.141,.03,1,1,"DT")="3060307"
^DD(366.141,.03,3)="Internally populated by the IB application (not entered by the user)."
^DD(366.141,.03,21,0)="^^1^1^3060621^^"
^DD(366.141,.03,21,1,0)="PATIENT on the Rx claim"
^DD(366.141,.03,"DT")="3060621"
^DD(366.141,.04,0)="JOB^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.141,.04,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(366.141,.04,21,0)="^^1^1^3060620^"
^DD(366.141,.04,21,1,0)="The job number of the job currently executing"
^DD(366.141,.04,"DT")="3060620"
^DD(366.141,.05,0)="TIME^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(366.141,.05,1,0)="^.1^^0"
^DD(366.141,.05,3)="Enter date and time"
^DD(366.141,.05,21,0)="^^1^1^3060620^^"
^DD(366.141,.05,21,1,0)="Date and time of the event"
^DD(366.141,.05,"DT")="3060620"
^DD(366.141,.06,0)="ePHARMACY USER^P200'^VA(200,^0;6^Q"
^DD(366.141,.06,1,0)="^.1"
^DD(366.141,.06,1,1,0)="366.14^U"
^DD(366.141,.06,1,1,1)="S ^IBCNR(366.14,""U"",$E(X,1,30),DA(1),DA)="""""
^DD(366.141,.06,1,1,2)="K ^IBCNR(366.14,""U"",$E(X,1,30),DA(1),DA)"
^DD(366.141,.06,1,1,"DT")="3060307"
^DD(366.141,.06,3)=""
^DD(366.141,.06,21,0)="^^4^4^3060621^"
^DD(366.141,.06,21,1,0)="System user who triggered the e-pharmacy event. This can be the system"
^DD(366.141,.06,21,2,0)="user who enters prescription or makes billing operation on e-pharmacy"
^DD(366.141,.06,21,3,0)="claims. It also can be POSTMASTER if the operation (like claims"
^DD(366.141,.06,21,4,0)="auto-reversal process) was performed by a background job."
^DD(366.141,.06,23,0)="^^1^1^3060620^"
^DD(366.141,.06,23,1,0)="NEW PERSON file #200 internal entry number"
^DD(366.141,.06,"DT")="3060621"
^DD(366.141,.07,0)="RESULT^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(366.141,.07,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(366.141,.07,21,0)="^^1^1^3060620^"
^DD(366.141,.07,21,1,0)="Result of the event processing - return code"
^DD(366.141,.07,"DT")="3060620"
^DD(366.141,.08,0)="RESULT MESSAGE^F^^0;8^K:$L(X)>40!($L(X)<1) X"
^DD(366.141,.08,3)="Answer must be 1-40 characters in length."
^DD(366.141,.08,21,0)="^^1^1^3060620^"
^DD(366.141,.08,21,1,0)="Result of the event processing - message"
^DD(366.141,.08,"DT")="3060620"
^DD(366.141,.09,0)="E-PHARMACY DIVISION^P9002313.56'^BPS(9002313.56,^0;9^Q"
^DD(366.141,.09,21,0)="^^1^1^3070216^"
^DD(366.141,.09,21,1,0)="E-Pharmacy division (BPS PHARMACY)."
^DD(366.141,.09,"DT")="3070216"
^DD(366.141,.11,0)="AUTH #^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(366.141,.11,3)="Answer must be 1-30 characters in length."
^DD(366.141,.11,21,0)="^^1^1^3060620^"
^DD(366.141,.11,21,1,0)="ECME approval/authorization number"
^DD(366.141,.11,"DT")="3060620"
^DD(366.141,.12,0)="BCID^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(366.141,.12,3)="Answer must be 1-30 characters in length."
^DD(366.141,.12,21,0)="^^1^1^3060620^"
^DD(366.141,.12,21,1,0)="Prescription/Service Reference Number and Fill Date divided by semicolon"
^DD(366.141,.12,23,0)="^^4^4^3060620^"
^DD(366.141,.12,23,1,0)="Prescription/Service Reference Number;Fill Date"
^DD(366.141,.12,23,2,0)="Where:"
^DD(366.141,.12,23,3,0)="Prescription/Service Ref  Number is 7 digits"
^DD(366.141,.12,23,4,0)="Fill Date is 8 digits in YYYYMMDD format"
^DD(366.141,.12,"DT")="3060620"
^DD(366.141,.13,0)="CLAIMID^F^^1;3^K:$L(X)>7!($L(X)<7) X"
^DD(366.141,.13,1,0)="^.1"
^DD(366.141,.13,1,1,0)="366.14^E^MUMPS"
^DD(366.141,.13,1,1,1)="S ^IBCNR(366.14,""E"",$E(X,1,30),$G(^IBCNR(366.14,DA(1),0)),DA)="""""
^DD(366.141,.13,1,1,2)="K ^IBCNR(366.14,""E"",$E(X,1,30),$G(^IBCNR(366.14,DA(1),0)),DA)"
^DD(366.141,.13,1,1,"DT")="3060308"
^DD(366.141,.13,3)="Answer must be 7 characters in length."
^DD(366.141,.13,21,0)="^.001^1^1^3060308^^^"
^DD(366.141,.13,21,1,0)="7 digits ECME number with leading zero(s)"
^DD(366.141,.13,"DT")="3060308"
^DD(366.141,.14,0)="PATIENT IN IBD^P2'^DPT(^1;4^Q"
^DD(366.141,.14,3)=""
^DD(366.141,.14,21,0)="^.001^2^2^3060620^^^"
^DD(366.141,.14,21,1,0)="PATIENT identifier passed in IBD ARRAY when outside application calls"
^DD(366.141,.14,21,2,0)="$$STORESP^IBNCPDP (IA #4299)"
^DD(366.141,.14,23,0)="^^2^2^3060620^"
^DD(366.141,.14,23,1,0)="Pointer to PATIENT file #2 passed into $$STORESP^IBNCPDP in ""DFN"" node of"
^DD(366.141,.14,23,2,0)="IBD array."
^DD(366.141,.14,"DT")="3060620"
^DD(366.141,.15,0)="MEDICAL CENTER DIVISION^P40.8'^DG(40.8,^1;5^Q"
^DD(366.141,.15,3)="Select a division"
^DD(366.141,.15,21,0)="^.001^1^1^3070216^^^"
^DD(366.141,.15,21,1,0)="Division identifier"
^DD(366.141,.15,"DT")="3070216"
^DD(366.141,.16,0)="RESPONSE^F^^1;6^K:$L(X)>20!($L(X)<1) X"
^DD(366.141,.16,3)="Answer must be 1-20 characters in length."
^DD(366.141,.16,21,0)="^^5^5^3060620^^"
^DD(366.141,.16,21,1,0)="Response from the payer:"
^DD(366.141,.16,21,2,0)="ACCEPTED"
^DD(366.141,.16,21,3,0)="PAYABLE"
^DD(366.141,.16,21,4,0)="REJECTED"
^DD(366.141,.16,21,5,0)="DUPLICATE"
^DD(366.141,.16,"DT")="3060620"
^DD(366.141,.17,0)="REVERSAL REASON^F^^1;7^K:$L(X)>40!($L(X)<1) X"
^DD(366.141,.17,3)="Answer must be 1-40 characters in length."
^DD(366.141,.17,21,0)="^^1^1^3060214^"
^DD(366.141,.17,21,1,0)="Reversal reason"
^DD(366.141,.17,"DT")="3060214"
^DD(366.141,.18,0)="RTS-DEL^NJ2,0^^1;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.141,.18,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(366.141,.18,21,0)="^^1^1^3060620^"
^DD(366.141,.18,21,1,0)="Return to Stock-Delete status"
^DD(366.141,.18,"DT")="3060620"
^DD(366.141,.19,0)="STATUS^F^^1;9^K:$L(X)>20!($L(X)<1) X"
^DD(366.141,.19,3)="Answer must be 1-20 characters in length."
^DD(366.141,.19,21,0)="^^2^2^3060620^"
^DD(366.141,.19,21,1,0)="Bill status - one of the following values: ""PAID"",""REJECTED"",""REVERSED"", "
^DD(366.141,.19,21,2,0)="""CLOSED"", ""RELEASED"", or ""SUBMITTED"""
^DD(366.141,.19,"DT")="3060620"
^DD(366.141,.201,0)="PRESCRIPTION^P52'^PSRX(^2;1^Q"
^DD(366.141,.201,1,0)="^.1"
^DD(366.141,.201,1,1,0)="366.14^I"
^DD(366.141,.201,1,1,1)="S ^IBCNR(366.14,""I"",$E(X,1,30),DA(1),DA)="""""
^DD(366.141,.201,1,1,2)="K ^IBCNR(366.14,""I"",$E(X,1,30),DA(1),DA)"
^DD(366.141,.201,1,1,"DT")="3060307"
^DD(366.141,.201,3)="Enter a prescription"
^DD(366.141,.201,21,0)="^^2^2^3060620^"
^DD(366.141,.201,21,1,0)="Pointer TO PRESCRIPTION FILE (#52) as passed into $$STORESP^ IBNCPDP (IA "
^DD(366.141,.201,21,2,0)="# 4299) in ""PRESCRIPTION"" node"
^DD(366.141,.201,"DT")="3060620"
^DD(366.141,.202,0)="RX NO^F^^2;2^K:$L(X)>20!($L(X)<1) X"
^DD(366.141,.202,1,0)="^.1"
^DD(366.141,.202,1,1,0)="366.14^R"
^DD(366.141,.202,1,1,1)="S ^IBCNR(366.14,""R"",$E(X,1,30),DA(1),DA)="""""
^DD(366.141,.202,1,1,2)="K ^IBCNR(366.14,""R"",$E(X,1,30),DA(1),DA)"
^DD(366.141,.202,1,1,"DT")="3060307"
^DD(366.141,.202,3)="Answer must be 1-20 characters in length."
^DD(366.141,.202,21,0)="^^2^2^3060620^"
^DD(366.141,.202,21,1,0)="RX Number from file #52 passed into $$STORESP^IBNCPDP (IA # 4299) in"
^DD(366.141,.202,21,2,0)="the ""RX NO"" node"
^DD(366.141,.202,"DT")="3060620"
^DD(366.141,.203,0)="FILL NUMBER^NJ5,0^^2;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.141,.203,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(366.141,.203,21,0)="^^3^3^3060620^^"
^DD(366.141,.203,21,1,0)="Refill #"
^DD(366.141,.203,21,2,0)="0 - for original refill"
^DD(366.141,.203,21,3,0)="1...n - for other refills"
^DD(366.141,.203,"DT")="3060620"
^DD(366.141,.204,0)="DRUG^F^^2;4^K:$L(X)>50!($L(X)<1) X"
^DD(366.141,.204,3)="Answer must be 1-50 characters in length."
^DD(366.141,.204,21,0)="^^1^1^3060621^"
^DD(366.141,.204,21,1,0)="Prescription Drug on the claim"
^DD(366.141,.204,"DT")="3060621"
^DD(366.141,.205,0)="NDC^F^^2;5^K:$L(X)>15!($L(X)<1) X"
^DD(366.141,.205,3)="Answer must be 1-15 characters in length."
^DD(366.141,.205,21,0)="^^1^1^3060620^"
^DD(366.141,.205,21,1,0)="National Drug Code number"
^DD(366.141,.205,"DT")="3060620"
^DD(366.141,.206,0)="FILL DATE^D^^2;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(366.141,.206,3)="Rx fill/refill date"
^DD(366.141,.206,21,0)="^^1^1^3060621^"
^DD(366.141,.206,21,1,0)="Original fill/refill fill date of the outpatient pharmacy Rx."
^DD(366.141,.206,"DT")="3060621"
^DD(366.141,.207,0)="RELEASE DATE^D^^2;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(366.141,.207,3)="Date of Rx release"
^DD(366.141,.207,21,0)="^^2^2^3060621^"
^DD(366.141,.207,21,1,0)="Rx release date in FileMan format. The field is populated only if the Rx "
^DD(366.141,.207,21,2,0)="was released."
^DD(366.141,.207,"DT")="3060621"
^DD(366.141,.208,0)="QTY^NJ10,3^^2;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(366.141,.208,3)="Type a Number between 0 and 999999, 3 Decimal Digits"
^DD(366.141,.208,21,0)="^^1^1^3060620^"
^DD(366.141,.208,21,1,0)="RX quantity"
^DD(366.141,.208,23,0)="^^1^1^3060620^"
^DD(366.141,.208,23,1,0)="RX Quantity"
^DD(366.141,.208,"DT")="3060620"
^DD(366.141,.209,0)="DAYS SUPPLY^NJ6,0^^2;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.141,.209,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(366.141,.209,21,0)="^^1^1^3060620^"
^DD(366.141,.209,21,1,0)="RX Days Supply"
^DD(366.141,.209,"DT")="3060620"
^DD(366.141,.21,0)="DEA^F^^2;10^K:$L(X)>10!($L(X)<1) X"
^DD(366.141,.21,3)="Answer must be 1-10 characters in length."
^DD(366.141,.21,21,0)="^^1^1^3060620^"
^DD(366.141,.21,21,1,0)="Drug Enforcement Agency number"
^DD(366.141,.21,"DT")="3060620"
^DD(366.141,.211,0)="FILLED BY^P200'^VA(200,^2;11^Q"
^DD(366.141,.211,3)="Enter a user who filled RX"
^DD(366.141,.211,21,0)="^^1^1^3060620^"
^DD(366.141,.211,21,1,0)="Person, who filled the RX refill."
^DD(366.141,.211,23,0)="^^1^1^3060620^"
^DD(366.141,.211,23,1,0)="Pointer to the NEW PERSON FILE (#200)"
^DD(366.141,.211,"DT")="3060620"
^DD(366.141,.212,0)="RX #^P52'^PSRX(^2;12^Q"
^DD(366.141,.212,1,0)="^.1"
^DD(366.141,.212,1,1,0)="366.14^I"
^DD(366.141,.212,1,1,1)="S ^IBCNR(366.14,""I"",$E(X,1,30),DA(1),DA)="""""
^DD(366.141,.212,1,1,2)="K ^IBCNR(366.14,""I"",$E(X,1,30),DA(1),DA)"
^DD(366.141,.212,1,1,"DT")="3060307"
^DD(366.141,.212,3)="Enter a prescription"
^DD(366.141,.212,21,0)="^^2^2^3060620^"
^DD(366.141,.212,21,1,0)="Pointer TO PRESCRIPTION FILE (#52) as passed into $$RX^IBNCPDP (IA # "
^DD(366.141,.212,21,2,0)="4299) in ""IEN"" node"
^DD(366.141,.212,"DT")="3060621"
^DD(366.141,.301,0)="BILL^P399'^DGCR(399,^3;1^Q"
^DD(366.141,.301,3)="Enter IB bill"
^DD(366.141,.301,21,0)="^^1^1^3060620^"
^DD(366.141,.301,21,1,0)="IB bill"
^DD(366.141,.301,23,0)="^^1^1^3060620^"
^DD(366.141,.301,23,1,0)="Pointer TO BILL/CLAIMS FILE (#399)"
^DD(366.141,.301,"DT")="3060620"
^DD(366.141,.302,0)="BILLED^NJ11,2^^3;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(366.141,.302,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(366.141,.302,21,0)="^^1^1^3060620^"
^DD(366.141,.302,21,1,0)="Amount billed to the insurance"
^DD(366.141,.302,"DT")="3060620"
^DD(366.141,.303,0)="PLAN^P355.3'^IBA(355.3,^3;3^Q"
^DD(366.141,.303,3)="Enter a group plan"
^DD(366.141,.303,21,0)="^^1^1^3060620^"
^DD(366.141,.303,21,1,0)="Group insurance plan"
^DD(366.141,.303,"DT")="3060620"
^DD(366.141,.304,0)="COST^NJ12,4^^3;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(366.141,.304,3)="Type a Number between 0 and 9999999, 4 Decimal Digits"
^DD(366.141,.304,21,0)="^^1^1^3060620^"
^DD(366.141,.304,21,1,0)="Cost - dollar amount per Dispensed Unit"
^DD(366.141,.304,"DT")="3060620"
^DD(366.141,.305,0)="PAID BY INSURANCE^NJ10,2^^3;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(366.141,.305,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(366.141,.305,21,0)="^^1^1^3060620^^^"
^DD(366.141,.305,21,1,0)="Amount paid by the Insurance"
^DD(366.141,.305,"DT")="3060620"
^DD(366.141,.306,0)="CLOSE/REOPEN COMMENT^F^^3;6^K:$L(X)>70!($L(X)<1) X"
^DD(366.141,.306,3)="Answer must be 1-70 characters in length."
^DD(366.141,.306,21,0)="^^1^1^3060620^"
^DD(366.141,.306,21,1,0)="Close or reopen comment"
^DD(366.141,.306,"DT")="3060620"
^DD(366.141,.307,0)="CLOSE REASON^P356.8'^IBE(356.8,^3;7^Q"
^DD(366.141,.307,3)="Select a close reason"
^DD(366.141,.307,21,0)="^^1^1^3060620^"
^DD(366.141,.307,21,1,0)="Close reason"
^DD(366.141,.307,"DT")="3060620"
^DD(366.141,.308,0)="DROP TO PAPER^NJ7,0^^3;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.141,.308,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(366.141,.308,21,0)="^^1^1^3060620^"
^DD(366.141,.308,21,1,0)="Drop to Paper flag. "
^DD(366.141,.308,23,0)="^^2^2^3060620^"
^DD(366.141,.308,23,1,0)="1 (TRUE) for certain Close Claim Reasons indicates that the closed "
^DD(366.141,.308,23,2,0)="episode still may be ""dropped to paper"" - passed to the Autobiller."
^DD(366.141,.308,"DT")="3060620"
^DD(366.141,.309,0)="RELEASE COPAY^NJ7,0^^3;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.141,.309,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(366.141,.309,21,0)="^^1^1^3060620^"
^DD(366.141,.309,21,1,0)="Release Copay flag."
^DD(366.141,.309,23,0)="^^1^1^3060620^"
^DD(366.141,.309,23,1,0)="1 (TRUE) indicates that the patients copay should be released off hold."
^DD(366.141,.309,"DT")="3060620"
^DD(366.141,.31,0)="ECME USER IN IBD^P200'^VA(200,^3;10^Q"
^DD(366.141,.31,3)=""
^DD(366.141,.31,21,0)="^^6^6^3060620^"
^DD(366.141,.31,21,1,0)="System user who triggered the ECME event and whose identifier was "
^DD(366.141,.31,21,2,0)="passed in IBD ARRAY when outside application calls $$STORESP^IBNCPDP (IA"
^DD(366.141,.31,21,3,0)="#4299). This can be the system user who enters prescription or makes"
^DD(366.141,.31,21,4,0)="billing operation on e-pharmacy claims. It also can be POSTMASTER if the"
^DD(366.141,.31,21,5,0)="operation (like claims auto-reversal process) was performed by a"
^DD(366.141,.31,21,6,0)="background job."
^DD(366.141,.31,23,0)="^^1^1^3060620^"
^DD(366.141,.31,23,1,0)="System User's ID as is passed inside IBD array into IB APIs."
^DD(366.141,.31,"DT")="3060620"
^DD(366.141,.401,0)="AO^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;1^Q"
^DD(366.141,.401,3)="Enter Agent Orange indicator"
^DD(366.141,.401,21,0)="^.001^1^1^3070730^^"
^DD(366.141,.401,21,1,0)="Agent Orange indicator"
^DD(366.141,.401,"DT")="3070730"
^DD(366.141,.402,0)="CV^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;2^Q"
^DD(366.141,.402,3)="Enter Combat Veteran indicator"
^DD(366.141,.402,21,0)="^.001^1^1^3070730^^"
^DD(366.141,.402,21,1,0)="Combat Veteran indicator"
^DD(366.141,.402,"DT")="3070730"
^DD(366.141,.403,0)="SWA^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;3^Q"
^DD(366.141,.403,3)="Enter Southwest Asia indicator"
^DD(366.141,.403,21,0)="^.001^1^1^3070730^^^"
^DD(366.141,.403,21,1,0)="Southwest Asia indicator."
^DD(366.141,.403,"DT")="3070730"
^DD(366.141,.404,0)="IR^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;4^Q"
^DD(366.141,.404,3)="Enter Ionizing radiation exposure indicator"
^DD(366.141,.404,21,0)="^.001^1^1^3070730^^"
^DD(366.141,.404,21,1,0)="Ionizing radiation exposure indicator"
^DD(366.141,.404,"DT")="3070730"
^DD(366.141,.405,0)="MST^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;5^Q"
^DD(366.141,.405,3)="Enter Military Sexual trauma indicator"
^DD(366.141,.405,21,0)="^.001^1^1^3070730^^"
^DD(366.141,.405,21,1,0)="Military Sexual trauma indicator"
^DD(366.141,.405,"DT")="3070730"
^DD(366.141,.406,0)="HNC^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;6^Q"
^DD(366.141,.406,3)="Enter Head/neck cancer indicator"
^DD(366.141,.406,21,0)="^.001^1^1^3070730^^"
^DD(366.141,.406,21,1,0)="Head/neck cancer indicator"
^DD(366.141,.406,"DT")="3070730"
^DD(366.141,.407,0)="SC^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;7^Q"
^DD(366.141,.407,3)="Enter Service Connected indicator"
^DD(366.141,.407,21,0)="^.001^1^1^3070730^^"
^DD(366.141,.407,21,1,0)="Service Connected indicator"
^DD(366.141,.407,"DT")="3070730"
^DD(366.141,.408,0)="SHAD^S^0:NO;1:YES;2:NO ANSWER;3:OVERRIDDEN;^4;8^Q"
^DD(366.141,.408,3)="Enter Project 112/SHAD indicator"
^DD(366.141,.408,21,0)="^.001^1^1^3070803^^"
^DD(366.141,.408,21,1,0)="Project 112/SHAD indicator"
^DD(366.141,.408,"DT")="3070803"
^DD(366.141,2,0)="INSURANCE^366.1412A^^5;0"
^DD(366.141,2,21,0)="^.001^1^1^3060620^^"
^DD(366.141,2,21,1,0)="Insurance data"
^DD(366.141,2,23,0)="^^2^2^3060620^"
^DD(366.141,2,23,1,0)="Insurance data stored in ""INS"" node of the array which is passed into "
^DD(366.141,2,23,2,0)="$$RX^IBNCPDP API (IA #4299)"
^DD(366.141,"B","AO",.401)=""
^DD(366.141,"B","AUTH #",.11)=""
^DD(366.141,"B","BCID",.12)=""
^DD(366.141,"B","BILL",.301)=""
^DD(366.141,"B","BILLED",.302)=""
^DD(366.141,"B","CLAIMID",.13)=""
^DD(366.141,"B","CLOSE REASON",.307)=""
^DD(366.141,"B","CLOSE/REOPEN COMMENT",.306)=""
^DD(366.141,"B","COST",.304)=""
^DD(366.141,"B","CV",.402)=""
^DD(366.141,"B","DAYS SUPPLY",.209)=""
^DD(366.141,"B","DEA",.21)=""
^DD(366.141,"B","DROP TO PAPER",.308)=""
^DD(366.141,"B","DRUG",.204)=""
^DD(366.141,"B","E-PHARMACY DIVISION",.09)=""
^DD(366.141,"B","ECME USER IN IBD",.31)=""
^DD(366.141,"B","EVENT TYPE",.01)=""
^DD(366.141,"B","FILL DATE",.206)=""
^DD(366.141,"B","FILL NUMBER",.203)=""
^DD(366.141,"B","FILLED BY",.211)=""
^DD(366.141,"B","HNC",.406)=""
^DD(366.141,"B","INSURANCE",2)=""
^DD(366.141,"B","IR",.404)=""
^DD(366.141,"B","JOB",.04)=""
^DD(366.141,"B","MEDICAL CENTER DIVISION",.15)=""
^DD(366.141,"B","MST",.405)=""
^DD(366.141,"B","NDC",.205)=""
^DD(366.141,"B","PAID BY INSURANCE",.305)=""
^DD(366.141,"B","PATIENT",.03)=""
^DD(366.141,"B","PATIENT IN IBD",.14)=""
^DD(366.141,"B","PLAN",.303)=""
^DD(366.141,"B","PRESCRIPTION",.201)=""
^DD(366.141,"B","QTY",.208)=""
^DD(366.141,"B","RELEASE COPAY",.309)=""
^DD(366.141,"B","RELEASE DATE",.207)=""
^DD(366.141,"B","RESPONSE",.16)=""
^DD(366.141,"B","RESULT",.07)=""
^DD(366.141,"B","RESULT MESSAGE",.08)=""
^DD(366.141,"B","REVERSAL REASON",.17)=""
^DD(366.141,"B","RTS-DEL",.18)=""
^DD(366.141,"B","RX #",.212)=""
^DD(366.141,"B","RX NO",.202)=""
^DD(366.141,"B","SC",.407)=""
^DD(366.141,"B","SHAD",.408)=""
^DD(366.141,"B","STATUS",.19)=""
^DD(366.141,"B","SWA",.403)=""
^DD(366.141,"B","TIME",.05)=""
^DD(366.141,"B","ePHARMACY USER",.06)=""
^DD(366.141,"GL",0,1,.01)=""
^DD(366.141,"GL",0,3,.03)=""
^DD(366.141,"GL",0,4,.04)=""
^DD(366.141,"GL",0,5,.05)=""
^DD(366.141,"GL",0,6,.06)=""
^DD(366.141,"GL",0,7,.07)=""
^DD(366.141,"GL",0,8,.08)=""
^DD(366.141,"GL",0,9,.09)=""
^DD(366.141,"GL",1,1,.11)=""
^DD(366.141,"GL",1,2,.12)=""
^DD(366.141,"GL",1,3,.13)=""
^DD(366.141,"GL",1,4,.14)=""
^DD(366.141,"GL",1,5,.15)=""
^DD(366.141,"GL",1,6,.16)=""
^DD(366.141,"GL",1,7,.17)=""
^DD(366.141,"GL",1,8,.18)=""
^DD(366.141,"GL",1,9,.19)=""
^DD(366.141,"GL",2,1,.201)=""
^DD(366.141,"GL",2,2,.202)=""
^DD(366.141,"GL",2,3,.203)=""
^DD(366.141,"GL",2,4,.204)=""
^DD(366.141,"GL",2,5,.205)=""
^DD(366.141,"GL",2,6,.206)=""
^DD(366.141,"GL",2,7,.207)=""
^DD(366.141,"GL",2,8,.208)=""
^DD(366.141,"GL",2,9,.209)=""
^DD(366.141,"GL",2,10,.21)=""
^DD(366.141,"GL",2,11,.211)=""
^DD(366.141,"GL",2,12,.212)=""
^DD(366.141,"GL",3,1,.301)=""
^DD(366.141,"GL",3,2,.302)=""
^DD(366.141,"GL",3,3,.303)=""
^DD(366.141,"GL",3,4,.304)=""
^DD(366.141,"GL",3,5,.305)=""
^DD(366.141,"GL",3,6,.306)=""
^DD(366.141,"GL",3,7,.307)=""
^DD(366.141,"GL",3,8,.308)=""
^DD(366.141,"GL",3,9,.309)=""
^DD(366.141,"GL",3,10,.31)=""
^DD(366.141,"GL",4,1,.401)=""
^DD(366.141,"GL",4,2,.402)=""
^DD(366.141,"GL",4,3,.403)=""
^DD(366.141,"GL",4,4,.404)=""
^DD(366.141,"GL",4,5,.405)=""
^DD(366.141,"GL",4,6,.406)=""
^DD(366.141,"GL",4,7,.407)=""
^DD(366.141,"GL",4,8,.408)=""
^DD(366.141,"GL",5,0,2)=""
^DD(366.141,"IX",.01)=""
^DD(366.141,"IX",.03)=""
^DD(366.141,"IX",.06)=""
^DD(366.141,"IX",.13)=""
^DD(366.141,"IX",.201)=""
^DD(366.141,"IX",.202)=""
^DD(366.141,"IX",.212)=""
^DD(366.141,"RQ",.01)=""
^DD(366.141,"SB",366.1412,2)=""
^DD(366.1412,0)="INSURANCE SUB-FIELD^^.07^23"
^DD(366.1412,0,"DT")="3060620"
^DD(366.1412,0,"IX","B",366.1412,.01)=""
^DD(366.1412,0,"NM","INSURANCE")=""
^DD(366.1412,0,"UP")="366.141"
^DD(366.1412,.01,0)="INSURANCE^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.1412,.01,1,0)="^.1"
^DD(366.1412,.01,1,1,0)="366.1412^B"
^DD(366.1412,.01,1,1,1)="S ^IBCNR(366.14,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(366.1412,.01,1,1,2)="K ^IBCNR(366.14,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(366.1412,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(366.1412,.01,21,0)="^^1^1^3060620^"
^DD(366.1412,.01,21,1,0)="Sequential number for patients insurances."
^DD(366.1412,.01,"DT")="3060620"
^DD(366.1412,.02,0)="GROUP INSURANCE PLAN^P355.3'^IBA(355.3,^0;2^Q"
^DD(366.1412,.02,3)="Enter Group Insurance Plan"
^DD(366.1412,.02,21,0)="^^1^1^3060620^"
^DD(366.1412,.02,21,1,0)="Group Insurance Plan"
^DD(366.1412,.02,"DT")="3060620"
^DD(366.1412,.03,0)="BIN^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(366.1412,.03,3)="Answer must be 1-10 characters in length"
^DD(366.1412,.03,21,0)="^^1^1^3060620^"
^DD(366.1412,.03,21,1,0)="Bank Identification Number"
^DD(366.1412,.03,"DT")="3060620"
^DD(366.1412,.04,0)="PCN^F^^0;4^K:$L(X)>16!($L(X)<1) X"
^DD(366.1412,.04,3)="Answer must be 1-16 characters in length."
^DD(366.1412,.04,21,0)="^^1^1^3060620^"
^DD(366.1412,.04,21,1,0)="Processor Control Number"
^DD(366.1412,.04,"DT")="3060620"
^DD(366.1412,.05,0)="PAYER SHEET B1^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(366.1412,.05,3)="Answer must be 1-20 characters in length."
^DD(366.1412,.05,21,0)="^^1^1^3060620^^"
^DD(366.1412,.05,21,1,0)="Payer sheet B1"
^DD(366.1412,.05,"DT")="3060620"
^DD(366.1412,.06,0)="GROUP ID^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(366.1412,.06,3)="Answer must be 1-15 characters in length."
^DD(366.1412,.06,21,0)="^^1^1^3060620^"
^DD(366.1412,.06,21,1,0)="Group ID"
^DD(366.1412,.06,"DT")="3060620"
^DD(366.1412,.07,0)="CARDHOLDER ID^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(366.1412,.07,3)="Answer must be 1-20 characters in length."
^DD(366.1412,.07,21,0)="^^1^1^3060620^"
^DD(366.1412,.07,21,1,0)="Cardholder ID"
^DD(366.1412,.07,"DT")="3060620"
^DD(366.1412,.08,0)="PATIENT RELATIONSHIP CODE^NJ2,0^^0;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(366.1412,.08,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(366.1412,.08,21,0)="^^1^1^3060620^"
^DD(366.1412,.08,21,1,0)="Patient Relationship code"
^DD(366.1412,.08,"DT")="3060620"
^DD(366.1412,.101,0)="CARDHOLDER FIRST NAME^F^^1;1^K:$L(X)>25!($L(X)<1) X"
^DD(366.1412,.101,3)="Answer must be 1-25 characters in length."
^DD(366.1412,.101,21,0)="^^1^1^3060620^"
^DD(366.1412,.101,21,1,0)="Cardholder First Name"
^DD(366.1412,.101,"DT")="3060620"
^DD(366.1412,.102,0)="CARDHOLDER LAST NAME^F^^1;2^K:$L(X)>35!($L(X)<1) X"
^DD(366.1412,.102,3)="Answer must be 1-35 characters in length."
^DD(366.1412,.102,21,0)="^^1^1^3060620^"
^DD(366.1412,.102,21,1,0)="Cardholder Last Name"
^DD(366.1412,.102,"DT")="3060620"
^DD(366.1412,.103,0)="STATE^P5'^DIC(5,^1;3^Q"
^DD(366.1412,.103,21,0)="^^1^1^3060620^"
^DD(366.1412,.103,21,1,0)="State"
^DD(366.1412,.103,"DT")="3060620"
^DD(366.1412,.104,0)="PAYER SHEET B2^F^^1;4^K:$L(X)>20!($L(X)<1) X"
^DD(366.1412,.104,3)="Answer must be 1-20 characters in length."
^DD(366.1412,.104,21,0)="^^1^1^3060620^"
^DD(366.1412,.104,21,1,0)="Payer sheet B2"
^DD(366.1412,.104,"DT")="3060620"
^DD(366.1412,.105,0)="PAYER SHEET B3^F^^1;5^K:$L(X)>20!($L(X)<1) X"
^DD(366.1412,.105,3)="Answer must be 1-20 characters in length."
^DD(366.1412,.105,21,0)="^^1^1^3060620^"
^DD(366.1412,.105,21,1,0)="Payer sheet B3"
^DD(366.1412,.105,"DT")="3060620"
^DD(366.1412,.106,0)="SOFTWARE/VENDOR CERT ID^F^^1;6^K:$L(X)>20!($L(X)<1) X"
^DD(366.1412,.106,3)="Answer must be 1-20 characters in length."
^DD(366.1412,.106,21,0)="^^1^1^3060620^"
^DD(366.1412,.106,21,1,0)="Software/Vendor Certification ID"
^DD(366.1412,.106,"DT")="3060620"
^DD(366.1412,.107,0)="INSURANCE NAME^F^^1;7^K:$L(X)>50!($L(X)<1) X"
^DD(366.1412,.107,3)="Answer must be 1-50 characters in length."
^DD(366.1412,.107,21,0)="^^1^1^3060620^"
^DD(366.1412,.107,21,1,0)="Insurance Name"
^DD(366.1412,.107,"DT")="3060620"
^DD(366.1412,.201,0)="DISPENSING FEE^NJ10,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(366.1412,.201,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(366.1412,.201,21,0)="^^1^1^3060620^"
^DD(366.1412,.201,21,1,0)="Dispensing Fee Submitted"
^DD(366.1412,.201,"DT")="3060620"
^DD(366.1412,.202,0)="BASIS OF COST DETERMINATION^F^^2;2^K:$L(X)>4!($L(X)<1) X"
^DD(366.1412,.202,3)="Answer must be 1-4 characters in length."
^DD(366.1412,.202,21,0)="^^1^1^3060620^"
^DD(366.1412,.202,21,1,0)="Basis of Cost Determination"
^DD(366.1412,.202,23,0)="^^4^4^3060217^"
^DD(366.1412,.202,23,1,0)="for basis of cost determination the following is used:"
^DD(366.1412,.202,23,2,0)="""07"" would be sent for Usual & Customary"
^DD(366.1412,.202,23,3,0)="""01"" would be sent for AWP"
^DD(366.1412,.202,23,4,0)="""05"" would be sent for Cost calculations"
^DD(366.1412,.202,"DT")="3060620"
^DD(366.1412,.203,0)="AWP OR TORT RATE OR COST^NJ10,2^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(366.1412,.203,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(366.1412,.203,21,0)="^^1^1^3060620^"
^DD(366.1412,.203,21,1,0)="Average Wholesale Price OR Tort dollar amount rate OR Cost amount"
^DD(366.1412,.203,"DT")="3060620"
^DD(366.1412,.204,0)="GROSS AMOUNT DUE^NJ10,2^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(366.1412,.204,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(366.1412,.204,21,0)="^^1^1^3060620^"
^DD(366.1412,.204,21,1,0)="Gross Amount Due. Base price plus Dispense fee/Administrative fee."
^DD(366.1412,.204,"DT")="3060620"
^DD(366.1412,.205,0)="ADMINISTRATIVE FEE^NJ10,2^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(366.1412,.205,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(366.1412,.205,21,0)="^^1^1^3060620^"
^DD(366.1412,.205,21,1,0)="Administrative Fee"
^DD(366.1412,.205,"DT")="3060620"
^DD(366.1412,.301,0)="GROUP NAME^F^^3;1^K:$L(X)>20!($L(X)<1) X"
^DD(366.1412,.301,3)="Answer must be 1-20 characters in length."
^DD(366.1412,.301,21,0)="^^1^1^3060620^"
^DD(366.1412,.301,21,1,0)="Group Name"
^DD(366.1412,.301,"DT")="3060620"
^DD(366.1412,.302,0)="INSURANCE PHONE NUMBER^F^^3;2^K:$L(X)>20!($L(X)<1) X"
^DD(366.1412,.302,3)="Answer must be 1-20 characters in length."
^DD(366.1412,.302,21,0)="^^1^1^3060620^"
^DD(366.1412,.302,21,1,0)="Insurance Phone Number"
^DD(366.1412,.302,"DT")="3060620"
^DD(366.1412,.303,0)="PLAN ID^F^^3;3^K:$L(X)>50!($L(X)<1) X"
^DD(366.1412,.303,3)="Answer must be 1-50 characters in length."
^DD(366.1412,.303,21,0)="^^1^1^3060620^"
^DD(366.1412,.303,21,1,0)="Plan ID"
^DD(366.1412,.303,"DT")="3060620"
^DD(366.1412,"B","ADMINISTRATIVE FEE",.205)=""
^DD(366.1412,"B","AWP OR TORT RATE OR COST",.203)=""
^DD(366.1412,"B","BASIS OF COST DETERMINATION",.202)=""
^DD(366.1412,"B","BIN",.03)=""
^DD(366.1412,"B","CARDHOLDER FIRST NAME",.101)=""
^DD(366.1412,"B","CARDHOLDER ID",.07)=""
^DD(366.1412,"B","CARDHOLDER LAST NAME",.102)=""
^DD(366.1412,"B","DISPENSING FEE",.201)=""
^DD(366.1412,"B","GROSS AMOUNT DUE",.204)=""
^DD(366.1412,"B","GROUP ID",.06)=""
^DD(366.1412,"B","GROUP INSURANCE PLAN",.02)=""
^DD(366.1412,"B","GROUP NAME",.301)=""
^DD(366.1412,"B","INSURANCE",.01)=""
^DD(366.1412,"B","INSURANCE NAME",.107)=""
^DD(366.1412,"B","INSURANCE PHONE NUMBER",.302)=""
^DD(366.1412,"B","PATIENT RELATIONSHIP CODE",.08)=""
^DD(366.1412,"B","PAYER SHEET B1",.05)=""
^DD(366.1412,"B","PAYER SHEET B2",.104)=""
^DD(366.1412,"B","PAYER SHEET B3",.105)=""
^DD(366.1412,"B","PCN",.04)=""
^DD(366.1412,"B","PLAN ID",.303)=""
^DD(366.1412,"B","SOFTWARE/VENDOR CERT ID",.106)=""
^DD(366.1412,"B","STATE",.103)=""
^DD(366.1412,"GL",0,1,.01)=""
^DD(366.1412,"GL",0,2,.02)=""
^DD(366.1412,"GL",0,3,.03)=""
^DD(366.1412,"GL",0,4,.04)=""
^DD(366.1412,"GL",0,5,.05)=""
^DD(366.1412,"GL",0,6,.06)=""
^DD(366.1412,"GL",0,7,.07)=""
^DD(366.1412,"GL",0,8,.08)=""
^DD(366.1412,"GL",1,1,.101)=""
^DD(366.1412,"GL",1,2,.102)=""
^DD(366.1412,"GL",1,3,.103)=""
^DD(366.1412,"GL",1,4,.104)=""
^DD(366.1412,"GL",1,5,.105)=""
^DD(366.1412,"GL",1,6,.106)=""
^DD(366.1412,"GL",1,7,.107)=""
^DD(366.1412,"GL",2,1,.201)=""
^DD(366.1412,"GL",2,2,.202)=""
^DD(366.1412,"GL",2,3,.203)=""
^DD(366.1412,"GL",2,4,.204)=""
^DD(366.1412,"GL",2,5,.205)=""
^DD(366.1412,"GL",3,1,.301)=""
^DD(366.1412,"GL",3,2,.302)=""
^DD(366.1412,"GL",3,3,.303)=""
^DD(366.1412,"IX",.01)=""
^DD(372,0)="FIELD^^11^12"
^DD(372,0,"DDA")="N"
^DD(372,0,"DT")="3050919"
^DD(372,0,"IX","B",372,.01)=""
^DD(372,0,"NM","PFSS SITE PARAMETERS")=""
^DD(372,0,"VR")="2.0"
^DD(372,0,"VRPK")="IB"
^DD(372,.01,0)="SITE^RP4'XI^DIC(4,^0;1^K:+$G(^IBBAS(372,1,0)) X"
^DD(372,.01,1,0)="^.1"
^DD(372,.01,1,1,0)="372^B"
^DD(372,.01,1,1,1)="S ^IBBAS(372,""B"",$E(X,1,30),DA)="""""
^DD(372,.01,1,1,2)="K ^IBBAS(372,""B"",$E(X,1,30),DA)"
^DD(372,.01,3)="The SITE field is populated at installation.  Additional records may not be created."
^DD(372,.01,4)=""
^DD(372,.01,21,0)="^^4^4^3050518^"
^DD(372,.01,21,1,0)="The SITE field (#.01) is populated during the initial installation"
^DD(372,.01,21,2,0)="of this file.  Once set, it may not be edited or deleted, nor can"
^DD(372,.01,21,3,0)="additional records be added to the file.  Only one record exists and its"
^DD(372,.01,21,4,0)="internal entry number is 1."
^DD(372,.01,"DT")="3050518"
^DD(372,.03,0)="MESSAGES PER BATCH^RNJ3,0^^0;3^K:+X'=X!(X>999)!(X<10)!(X?.E1"".""1N.N) X"
^DD(372,.03,3)="Type a Number between 10 and 999, 0 Decimal Digits"
^DD(372,.03,21,0)="^.001^5^5^3050527^^"
^DD(372,.03,21,1,0)="The value in this field determines the maximum number of charge records to"
^DD(372,.03,21,2,0)="be inserted into a Charge Batch when running the background job associated "
^DD(372,.03,21,3,0)="with the PFSS Charge Batch Processing [IBBA BATCH DFT] menu option.  The "
^DD(372,.03,21,4,0)="field is site configurable from a minimum of 10 records to a maximum of "
^DD(372,.03,21,5,0)="999 records per batch message."
^DD(372,.03,"DT")="3051103"
^DD(372,.04,0)="SERVICE MASTER DIRECTORY^F^^0;4^K:$L(X)>40!($L(X)<3) X"
^DD(372,.04,3)="Answer must be 3-40 characters in length."
^DD(372,.04,21,0)="^.001^2^2^3050426^^"
^DD(372,.04,21,1,0)="The system directory which will hold the text file used for seeding"
^DD(372,.04,21,2,0)="or updating the PFSS SERVICE MASTER file (#374)."
^DD(372,.04,"DT")="3050419"
^DD(372,.05,0)="MAIL GROUP FOR SERVICE MASTER^P3.8'^XMB(3.8,^0;5^Q"
^DD(372,.05,21,0)="^^3^3^3050802^"
^DD(372,.05,21,1,0)="This selection of the appropriate mail group is left to the local"
^DD(372,.05,21,2,0)="site.  This mail group will receive the Error Reports issued from"
^DD(372,.05,21,3,0)="the PFSS SERVICE MASTER file (#374) seeding and maintenance processes."
^DD(372,.05,"DT")="3050802"
^DD(372,.06,0)="MAIL GROUP FOR CHARGE^P3.8'^XMB(3.8,^0;6^Q"
^DD(372,.06,21,0)="^^2^2^3050919^"
^DD(372,.06,21,1,0)="This is the Mail Group that will receive all error messages generated"
^DD(372,.06,21,2,0)="in IBB during charge transaction prcessing initiated by CHARGE^IBBAPI."
^DD(372,.06,"DT")="3050919"
^DD(372,.1,0)="CHARGE PROCESSOR RUNNING^SI^1:YES;0:NO;^0;10^Q"
^DD(372,.1,21,0)="^^9^9^3050426^"
^DD(372,.1,21,1,0)="When menu option IBBA BATCH DFT invokes EN^IBBADFTO, the setting of this "
^DD(372,.1,21,2,0)="field is immediately checked.  This is intended to prevent concurrent jobs "
^DD(372,.1,21,3,0)="from processing the Charge Cache."
^DD(372,.1,21,4,0)=" "
^DD(372,.1,21,5,0)="If this field is set to ""YES , then EN^IBBADFTO exits immediately."
^DD(372,.1,21,6,0)="If this field is set to ""NO , then it is set to ""YES  and processing in "
^DD(372,.1,21,7,0)="EN^IBBADFTO continues."
^DD(372,.1,21,8,0)="When processing of the Charge Cache is completed, just before EN^IBBADFTO "
^DD(372,.1,21,9,0)="exits, this field is set to ""NO ."
^DD(372,.1,"DT")="3050609"
^DD(372,.11,0)="CHARGE PROCESS START TIME^DI^^0;11^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(372,.11,21,0)="^^6^6^3050426^"
^DD(372,.11,21,1,0)="The CHARGE PROCESS START TIME indicates the exact date/time when charge "
^DD(372,.11,21,2,0)="processing is started via EN^IBBADFTO."
^DD(372,.11,21,3,0)=" "
^DD(372,.11,21,4,0)="When field #.1 is set to ""YES , then current system date/time is set "
^DD(372,.11,21,5,0)="into field #.11."
^DD(372,.11,21,6,0)="When field #.1 is set to ""NO , then any data in field #.11 is deleted."
^DD(372,.11,"DT")="3050609"
^DD(372,1.01,0)="MASTER SWITCH^RSI^1:ON;0:OFF;^1;1^Q"
^DD(372,1.01,21,0)="^^2^2^3050426^"
^DD(372,1.01,21,1,0)="This is the PFSS On/Off Switch which determines whether the PFSS "
^DD(372,1.01,21,2,0)="functionality is in use (""ON ) or not in use (""OFF )."
^DD(372,1.01,"DT")="3050404"
^DD(372,1.02,0)="EFFECTIVE DATE/TIME^RDI^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(372,1.02,21,0)="^^2^2^3050426^"
^DD(372,1.02,21,1,0)="This is the exact date/time at which the PFSS On/Off Switch enters the "
^DD(372,1.02,21,2,0)="status shown in field #1 as determined by the local site/user."
^DD(372,1.02,"DT")="3050404"
^DD(372,2,0)="CURRENT CHARGE ID^NJ8,0I^^2;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(372,2,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(372,2,21,0)="^.001^9^9^3050527^^^"
^DD(372,2,21,1,0)="This is the current setting of the PFSS Charge Identifier.  Applications"
^DD(372,2,21,2,0)="using PFSS must tag each charge transaction with a unique identifying "
^DD(372,2,21,3,0)="number, which is stored within the application's file structure,"
^DD(372,2,21,4,0)="and sent within the HL7 charge message to the external medical billing."
^DD(372,2,21,5,0)="system."
^DD(372,2,21,6,0)=" "
^DD(372,2,21,7,0)="To obtain a PFSS Charge Identifier the application calls "
^DD(372,2,21,8,0)="$$GETCHGID^IBBAPI().  That function increments the CURRENT CHARGE ID"
^DD(372,2,21,9,0)="by 1 and returns that value to the calling application."
^DD(372,2,"DT")="3050609"
^DD(372,10,0)="SWITCH HISTORY^372.01DA^^H;0"
^DD(372,10,21,0)="^^3^3^3050426^"
^DD(372,10,21,1,0)="This is a multiple field which will be automatically updated each time "
^DD(372,10,21,2,0)="the IBBA MASTER SWITCH menu option is used to change the setting of the "
^DD(372,10,21,3,0)="MASTER SWITCH field (#1)."
^DD(372,11,0)="SERVICE MASTER HISTORY^372.011DA^^11;0"
^DD(372,11,21,0)="^^3^3^3050426^"
^DD(372,11,21,1,0)="This is a multiple field (subfile) which will be automatically updated "
^DD(372,11,21,2,0)="each time the PFSS SERVICE MASTER file (#374) is updated via a text file "
^DD(372,11,21,3,0)="from an external source."
^DD(372,"B","CHARGE PROCESS START TIME",.11)=""
^DD(372,"B","CHARGE PROCESSOR RUNNING",.1)=""
^DD(372,"B","CURRENT CHARGE ID",2)=""
^DD(372,"B","EFFECTIVE DATE/TIME",1.02)=""
^DD(372,"B","MAIL GROUP FOR CHARGE",.06)=""
^DD(372,"B","MAIL GROUP FOR SERVICE MASTER",.05)=""
^DD(372,"B","MASTER SWITCH",1.01)=""
^DD(372,"B","MESSAGES PER BATCH",.03)=""
^DD(372,"B","SERVICE MASTER DIRECTORY",.04)=""
^DD(372,"B","SERVICE MASTER HISTORY",11)=""
^DD(372,"B","SITE",.01)=""
^DD(372,"B","SWITCH HISTORY",10)=""
^DD(372,"GL",0,1,.01)=""
^DD(372,"GL",0,3,.03)=""
^DD(372,"GL",0,4,.04)=""
^DD(372,"GL",0,5,.05)=""
^DD(372,"GL",0,6,.06)=""
^DD(372,"GL",0,10,.1)=""
^DD(372,"GL",0,11,.11)=""
^DD(372,"GL",1,1,1.01)=""
^DD(372,"GL",1,2,1.02)=""
^DD(372,"GL",2,1,2)=""
^DD(372,"GL",11,0,11)=""
^DD(372,"GL","H",0,10)=""
^DD(372,"IX",.01)=""
^DD(372,"RQ",.01)=""
^DD(372,"RQ",.03)=""
^DD(372,"RQ",1.01)=""
^DD(372,"RQ",1.02)=""
^DD(372,"SB",372.01,10)=""
^DD(372,"SB",372.011,11)=""
^DD(372.01,0)="SWITCH HISTORY SUB-FIELD^^.04^4"
^DD(372.01,0,"DT")="3050404"
^DD(372.01,0,"IX","B",372.01,.01)=""
^DD(372.01,0,"NM","SWITCH HISTORY")=""
^DD(372.01,0,"UP")="372"
^DD(372.01,.01,0)="DATE/TIME OF CHANGE^RDI^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(372.01,.01,1,0)="^.1"
^DD(372.01,.01,1,1,0)="372.01^B"
^DD(372.01,.01,1,1,1)="S ^IBBAS(372,DA(1),""H"",""B"",$E(X,1,30),DA)="""""
^DD(372.01,.01,1,1,2)="K ^IBBAS(372,DA(1),""H"",""B"",$E(X,1,30),DA)"
^DD(372.01,.01,21,0)="^^2^2^3050426^"
^DD(372.01,.01,21,1,0)="This is the date/time at which the setting of the MASTER SWITCH "
^DD(372.01,.01,21,2,0)="(field #1.01) was changed."
^DD(372.01,.01,"DT")="3050609"
^DD(372.01,.02,0)="PREVIOUS STATUS^RSI^1:ON;0:OFF;^0;2^Q"
^DD(372.01,.02,21,0)="^^2^2^3050426^"
^DD(372.01,.02,21,1,0)="This is the setting of the MASTER SWITCH field (#1.01) of file #372 "
^DD(372.01,.02,21,2,0)="before the change is made."
^DD(372.01,.02,"DT")="3050609"
^DD(372.01,.03,0)="CHANGED BY^RP200'I^VA(200,^0;3^Q"
^DD(372.01,.03,21,0)="^^2^2^3050426^"
^DD(372.01,.03,21,1,0)="This is the identity of the user that changed the setting of the "
^DD(372.01,.03,21,2,0)="MASTER SWITCH field (#1.01) of file #372."
^DD(372.01,.03,"DT")="3050609"
^DD(372.01,.04,0)="REASON^RFI^^0;4^K:$L(X)>80!($L(X)<10) X"
^DD(372.01,.04,3)="Answer must be 10-80 characters in length."
^DD(372.01,.04,21,0)="^^2^2^3050426^"
^DD(372.01,.04,21,1,0)="This is the reason provided by the user for the change to the MASTER "
^DD(372.01,.04,21,2,0)="SWITCH (field #1.01) setting in the PFSS MASTER file (#372)."
^DD(372.01,.04,"DT")="3050609"
^DD(372.01,"B","CHANGED BY",.03)=""
^DD(372.01,"B","DATE/TIME OF CHANGE",.01)=""
^DD(372.01,"B","PREVIOUS STATUS",.02)=""
^DD(372.01,"B","REASON",.04)=""
^DD(372.01,"GL",0,1,.01)=""
^DD(372.01,"GL",0,2,.02)=""
^DD(372.01,"GL",0,3,.03)=""
^DD(372.01,"GL",0,4,.04)=""
^DD(372.01,"IX",.01)=""
^DD(372.01,"RQ",.01)=""
^DD(372.01,"RQ",.02)=""
^DD(372.01,"RQ",.03)=""
^DD(372.01,"RQ",.04)=""
^DD(372.011,0)="SERVICE MASTER HISTORY SUB-FIELD^^.03^3"
^DD(372.011,0,"DT")="3050527"
^DD(372.011,0,"IX","B",372.011,.01)=""
^DD(372.011,0,"NM","SERVICE MASTER HISTORY")=""
^DD(372.011,0,"UP")="372"
^DD(372.011,.01,0)="DATE/TIME UPDATE STARTED^DI^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(372.011,.01,1,0)="^.1"
^DD(372.011,.01,1,1,0)="372.011^B"
^DD(372.011,.01,1,1,1)="S ^IBBAS(372,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(372.011,.01,1,1,2)="K ^IBBAS(372,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(372.011,.01,21,0)="^.001^2^2^3050426^^^"
^DD(372.011,.01,21,1,0)="The date/time at which a seeding or update operation on PFSS SERVICE"
^DD(372.011,.01,21,2,0)="MASTER file (#374) was started."
^DD(372.011,.01,"DT")="3050609"
^DD(372.011,.02,0)="UPDATE FILE NAME^FI^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(372.011,.02,1,0)="^.1^^0"
^DD(372.011,.02,3)="Answer must be 3-50 characters in length."
^DD(372.011,.02,21,0)="^.001^2^2^3050426^^"
^DD(372.011,.02,21,1,0)="The name of the text file used for a seeding or update operation on"
^DD(372.011,.02,21,2,0)="the PFSS SERVICE MASTER file (#374)."
^DD(372.011,.02,"DT")="3050803"
^DD(372.011,.03,0)="DATE/TIME UPDATED COMPLETED^DI^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(372.011,.03,21,0)="^.001^2^2^3050426^^"
^DD(372.011,.03,21,1,0)="The date/time at which a seeding or update operation on PFSS SERVICE"
^DD(372.011,.03,21,2,0)="MASTER file (#374) was completed."
^DD(372.011,.03,"DT")="3050803"
^DD(372.011,"B","DATE/TIME UPDATE STARTED",.01)=""
^DD(372.011,"B","DATE/TIME UPDATED COMPLETED",.03)=""
^DD(372.011,"B","UPDATE FILE NAME",.02)=""
^DD(372.011,"GL",0,1,.01)=""
^DD(372.011,"GL",0,2,.02)=""
^DD(372.011,"GL",0,3,.03)=""
^DD(372.011,"IX",.01)=""
^DD(373,0)="FIELD^^99.03^43"
^DD(373,0,"DDA")="N"
^DD(373,0,"DT")="3051103"
^DD(373,0,"IX","AC",373,.03)=""
^DD(373,0,"IX","AOX",373,.06)=""
^DD(373,0,"IX","AOX",373,.11)=""
^DD(373,0,"IX","C",373,.04)=""
^DD(373,0,"NM","PFSS CHARGE CACHE")=""
^DD(373,0,"VR")="2.0"
^DD(373,0,"VRPK")="IB"
^DD(373,.01,0)="CHARGE NUMBER^RNJ10,0X^^0;1^S DINUM=X K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(373,.01,1,0)="^.1^^0"
^DD(373,.01,3)=""
^DD(373,.01,21,0)="^.001^2^2^3050426^^"
^DD(373,.01,21,1,0)="A sequential integer used for both the internal entry number and #.01 "
^DD(373,.01,21,2,0)="field for each record created in the file."
^DD(373,.01,23,0)="^.001^2^2^3050426^^^^"
^DD(373,.01,23,1,0)="The file is DINUM'd; the internal entry number and #.01 field are the"
^DD(373,.01,23,2,0)="same value."
^DD(373,.01,"DT")="3050426"
^DD(373,.02,0)="PFSS ACCOUNT REFERENCE^RP375'^IBBAA(375,^0;2^Q"
^DD(373,.02,21,0)="^.001^3^3^3050601^^^"
^DD(373,.02,21,1,0)="The PFSS Account Reference (i.e., internal entry number to PFSS ACCOUNT"
^DD(373,.02,21,2,0)="file #375) associated with the charge (debit or credit) contained in this "
^DD(373,.02,21,3,0)="record."
^DD(373,.02,23,0)="^^5^5^3050601^"
^DD(373,.02,23,1,0)="This pointer to the PFSS ACCOUNT file (#375) is used to retrieve the"
^DD(373,.02,23,2,0)="value in the EXTERNAL ACCOUNT NUMBER field (#02) for the PFSS HL7"
^DD(373,.02,23,3,0)="DFT message, PV1 Segment, Sequence 19.  All additional data for both"
^DD(373,.02,23,4,0)="the PV1 and PV2 Segments is also taken directly from the PFSS ACCOUNT"
^DD(373,.02,23,5,0)="record."
^DD(373,.02,"DT")="3050610"
^DD(373,.03,0)="PATIENT^RP2'^DPT(^0;3^Q"
^DD(373,.03,1,0)="^.1"
^DD(373,.03,1,1,0)="373^AC"
^DD(373,.03,1,1,1)="S ^IBBAD(373,""AC"",$E(X,1,30),DA)="""""
^DD(373,.03,1,1,2)="K ^IBBAD(373,""AC"",$E(X,1,30),DA)"
^DD(373,.03,1,1,"%D",0)="^.101^4^4^3051116^^^^"
^DD(373,.03,1,1,"%D",1,0)="The is a regular cross-reference by PATIENT (field #.03).  The principal"
^DD(373,.03,1,1,"%D",2,0)="purpose of this cross-reference is to allow the Patient Merge processor"
^DD(373,.03,1,1,"%D",3,0)="(Kernel) to operate efficiently in the event that patient's with"
^DD(373,.03,1,1,"%D",4,0)="records in file #373 are merged."
^DD(373,.03,1,1,"DT")="3050602"
^DD(373,.03,21,0)="^^2^2^3050426^"
^DD(373,.03,21,1,0)="The Patient identifier associated with the billing account identified "
^DD(373,.03,21,2,0)="in field #.02."
^DD(373,.03,23,0)="^.001^11^11^3050614^^^^"
^DD(373,.03,23,1,0)="This pointer to the PATIENT file (#2) is used to construct the"
^DD(373,.03,23,2,0)="HL7 PID Segment for PFSS DFT messages."
^DD(373,.03,23,3,0)="  "
^DD(373,.03,23,4,0)="The ""OX"" cross-reference depends upon field #.03."
^DD(373,.03,23,5,0)="  "
^DD(373,.03,23,6,0)="S ^IBBAD(373,""OX"",X1,X2,DA)="""""
^DD(373,.03,23,7,0)="   where:  X1=field #.03"
^DD(373,.03,23,8,0)="           X2=field #.04"
^DD(373,.03,23,9,0)="  "
^DD(373,.03,23,10,0)="The ""OX"" cross-reference should be set only through SAOX^IBBAADD; it"
^DD(373,.03,23,11,0)="should be killed only through KAOX^IBBAADD."
^DD(373,.03,"DT")="3050602"
^DD(373,.04,0)="UNIQUE CHARGE ID^RNJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(373,.04,1,0)="^.1"
^DD(373,.04,1,1,0)="373^C"
^DD(373,.04,1,1,1)="S ^IBBAD(373,""C"",$E(X,1,30),DA)="""""
^DD(373,.04,1,1,2)="K ^IBBAD(373,""C"",$E(X,1,30),DA)"
^DD(373,.04,1,1,"%D",0)="^.101^1^1^3051116^^^"
^DD(373,.04,1,1,"%D",1,0)="A simple cross-reference using the Unique Charge ID."
^DD(373,.04,1,1,"DT")="3050426"
^DD(373,.04,3)="Type a Number between 0 and 0, 0 Decimal Digits"
^DD(373,.04,21,0)="^.001^5^5^3050920^^^^"
^DD(373,.04,21,1,0)="A numeric identifier of not more than 8 digits that uniquely identifies the"
^DD(373,.04,21,2,0)="charge item in the external medical billing system."
^DD(373,.04,21,3,0)="  "
^DD(373,.04,21,4,0)="This data item is referred to as the ""PFSS Charge Identifier"" within"
^DD(373,.04,21,5,0)="the PFSS project documentation."
^DD(373,.04,23,0)="^.001^12^12^3050920^^^^"
^DD(373,.04,23,1,0)="The application providing the data to the PFSS CHARGE CACHE file"
^DD(373,.04,23,2,0)="uses $$GETCHGID^IBBAPI to obtain a unique identifying number for"
^DD(373,.04,23,3,0)="the original charge."
^DD(373,.04,23,4,0)="  "
^DD(373,.04,23,5,0)="The ""OX"" cross-reference depends upon field #.04."
^DD(373,.04,23,6,0)="  "
^DD(373,.04,23,7,0)="S ^IBBAD(373,""OX"",X1,X2,DA)="""""
^DD(373,.04,23,8,0)="   where:  X1=field #.03"
^DD(373,.04,23,9,0)="           X2=field #.04"
^DD(373,.04,23,10,0)="  "
^DD(373,.04,23,11,0)="The ""OX"" cross-reference should be set only through SAOX^IBBAADD; it"
^DD(373,.04,23,12,0)="should be killed only through KAOX^IBBAADD."
^DD(373,.04,"DT")="3050920"
^DD(373,.05,0)="TYPE^RS^CG:CHARGE;CD:CREDIT;^0;5^Q"
^DD(373,.05,21,0)="^^1^1^3050426^"
^DD(373,.05,21,1,0)="Identifies the charge item as either account debit or account credit."
^DD(373,.05,"DT")="3050224"
^DD(373,.06,0)="DEPARTMENT^RF^^0;6^K:$L(X)>3!($L(X)<3) X"
^DD(373,.06,1,0)="^.1"
^DD(373,.06,1,1,0)="373^AOX^MUMPS"
^DD(373,.06,1,1,1)="I X D SAOX^IBBAADD(DA)"
^DD(373,.06,1,1,2)="Q"
^DD(373,.06,1,1,"DT")="3050418"
^DD(373,.06,3)="Answer must be 3 characters in length."
^DD(373,.06,21,0)="^.001^41^41^3050601^^^^"
^DD(373,.06,21,1,0)="The Department code associated by the sending-application with the charge."
^DD(373,.06,21,2,0)="  "
^DD(373,.06,21,3,0)="Department Codes are defined as follows for the various service areas:"
^DD(373,.06,21,4,0)="  "
^DD(373,.06,21,5,0)="108 - Laboratory; "
^DD(373,.06,21,6,0)="160 - Pharmacy; "
^DD(373,.06,21,7,0)="419 - Anesthesiology; "
^DD(373,.06,21,8,0)="423 - Prosthetics;"
^DD(373,.06,21,9,0)="  "
^DD(373,.06,21,10,0)="Surgery (based on Surgical Specialty):"
^DD(373,.06,21,11,0)="180 - Oral Surgery; "
^DD(373,.06,21,12,0)="401 - General Surgery; "
^DD(373,.06,21,13,0)="402 - Cardiac Surgery; "
^DD(373,.06,21,14,0)="403 - Otorhinolaryngology (ENT); "
^DD(373,.06,21,15,0)="404 - Gynecology; "
^DD(373,.06,21,16,0)="406 - Neurosurgery; "
^DD(373,.06,21,17,0)="407 - Ophthalmology; "
^DD(373,.06,21,18,0)="409 - Orthopedics; "
^DD(373,.06,21,19,0)="410 - Plastic Surgery (inc. H&N); "
^DD(373,.06,21,20,0)="411 - Podiatry; "
^DD(373,.06,21,21,0)="412 - Proctology; "
^DD(373,.06,21,22,0)="413 - Thoracic Surgery; "
^DD(373,.06,21,23,0)="415 - Peripheral Vascular; "
^DD(373,.06,21,24,0)="457 - Transplantation;"
^DD(373,.06,21,25,0)="  "
^DD(373,.06,21,26,0)="Radiology (based on Imaging Type):"
^DD(373,.06,21,27,0)="105 - General Radiology; "
^DD(373,.06,21,28,0)="109 - Nuclear Medicine; "
^DD(373,.06,21,29,0)="109 - Cardiology Studies (Nuc Med); "
^DD(373,.06,21,30,0)="115 - Ultrasound; "
^DD(373,.06,21,31,0)="150 - CT Scan; "
^DD(373,.06,21,32,0)="151 - Magnetic Resonance Imaging; "
^DD(373,.06,21,33,0)="152 - Angio-Neuro-Interventional; "
^DD(373,.06,21,34,0)="421 - Vascular Lab; "
^DD(373,.06,21,35,0)="703 - Mammography;"
^DD(373,.06,21,36,0)="  "
^DD(373,.06,21,37,0)="All CPT-based charges coming through PCE, which are not already associated"
^DD(373,.06,21,38,0)="with one of the Department Codes listed above, are assigned a Department "
^DD(373,.06,21,39,0)="Code.  The Department Code assigned is the Stop Code associated (in the "
^DD(373,.06,21,40,0)="HOSPITAL LOCATION file, #44) with the Hospital Location of the patient "
^DD(373,.06,21,41,0)="visit/encounter."
^DD(373,.06,"DT")="3050418"
^DD(373,.07,0)="SERVICE CODE^RF^^0;7^K:$L(X)>6!($L(X)<6) X"
^DD(373,.07,3)="Answer must be 6 characters in length."
^DD(373,.07,21,0)="^.001^6^6^3050527^^^^"
^DD(373,.07,21,1,0)="The value for SERVICE CODE is taken from the PFSS SERVICE MASTER"
^DD(373,.07,21,2,0)="file (#374), SERVICE CODE field (#.01)."
^DD(373,.07,21,3,0)=" "
^DD(373,.07,21,4,0)="Selection of a SERVICE CODE from file #374 is based upon the"
^DD(373,.07,21,5,0)="CPT or HCPCS Code and Date of Service provided by the application"
^DD(373,.07,21,6,0)="sending data to the PFSS CHARGE CACHE file."
^DD(373,.07,"DT")="3050224"
^DD(373,.08,0)="ORDER IEN^P100'^OR(100,^0;8^Q"
^DD(373,.08,21,0)="^.001^12^12^3050527^^^^"
^DD(373,.08,21,1,0)="The ORDER file (#100) internal entry number for the service order which"
^DD(373,.08,21,2,0)="resulted in this charge in PFSS."
^DD(373,.08,21,3,0)="  "
^DD(373,.08,21,4,0)="All data provided to the PFSS CHARGE CACHE file by PCE will include"
^DD(373,.08,21,5,0)="the ORDER file IEN, if known by PCE.  If the charge is the result of a"
^DD(373,.08,21,6,0)="Radiology exam, then IBB will query OERR to obtain the PFSS Account"
^DD(373,.08,21,7,0)="Reference associated with the order IEN.  IBB will then convert that"
^DD(373,.08,21,8,0)="PFSS Account Reference to its external medical billing system"
^DD(373,.08,21,9,0)="equivalent using $$EXTNUM^IBBAACCT.  This external billing system"
^DD(373,.08,21,10,0)="number is included in the outbound charge message as a Secondary Visit"
^DD(373,.08,21,11,0)="Number, so that the Radiology charge can be related to back to the"
^DD(373,.08,21,12,0)="original outpatient visit or inpatient episode by the billing system."
^DD(373,.08,"DT")="3050318"
^DD(373,.09,0)="CLINICAL EVENT ID^F^^0;9^K:$L(X)>18!($L(X)<3) X"
^DD(373,.09,3)="Answer must be 3-18 characters in length."
^DD(373,.09,21,0)="^^7^7^3051103^"
^DD(373,.09,21,1,0)="The Clinical Event Identifier is passed to CHARGE^IBBAPI in IBBFT1(2)."
^DD(373,.09,21,2,0)="The free text data item is used by certain applications, such as PCE,"
^DD(373,.09,21,3,0)="as a way of linking billable items to a specific event (e.g., visit)."
^DD(373,.09,21,4,0)="  "
^DD(373,.09,21,5,0)="The format of the identifier is"
^DD(373,.09,21,6,0)="   <package_namespace>_<package_file_ien>"
^DD(373,.09,21,7,0)="  "
^DD(373,.09,"DT")="3051103"
^DD(373,.1,0)="DATE/TIME CREATED^RD^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(373,.1,21,0)="^^1^1^3050426^"
^DD(373,.1,21,1,0)="The date/time at which the charge cache record was created."
^DD(373,.1,"DT")="3050224"
^DD(373,.11,0)="HL7 MESSAGE ID^F^^0;11^K:$L(X)>24!($L(X)<3) X"
^DD(373,.11,1,0)="^.1"
^DD(373,.11,1,1,0)="373^AOX^MUMPS"
^DD(373,.11,1,1,1)="I X'="""" D KAOX^IBBAADD(DA)"
^DD(373,.11,1,1,2)="Q"
^DD(373,.11,1,1,"DT")="3050418"
^DD(373,.11,3)="Answer must be 3-24 characters in length."
^DD(373,.11,21,0)="^^4^4^3050426^"
^DD(373,.11,21,1,0)="he batch message identifier (from CREATE^HLTF) followed by a hyphen and"
^DD(373,.11,21,2,0)="the sequence number for the individual charge message.  Identifies the"
^DD(373,.11,21,3,0)="exact batch location in which data from this charge record is transmitted"
^DD(373,.11,21,4,0)="to the external medical billing system."
^DD(373,.11,"DT")="3050418"
^DD(373,.2,0)="TEST PATIENT^S^1:YES;^0;20^Q"
^DD(373,.2,21,0)="^^2^2^3050511^"
^DD(373,.2,21,1,0)="If the DFN for this patient indicates a test patient as a result"
^DD(373,.2,21,2,0)="of a call to $$TESTPAT^VADPT, then this field is set to ""YES""."
^DD(373,.2,23,0)="^^2^2^3050601^"
^DD(373,.2,23,1,0)="PFSS HL7 messages will not be constructed for any record in this"
^DD(373,.2,23,2,0)="file where TEST PATIENT = ""YES""."
^DD(373,.2,"DT")="3050511"
^DD(373,3.03,0)="PROCEDURE CODE^RP81'^ICPT(^PR1;3^Q"
^DD(373,3.03,21,0)="^.001^9^9^3050531^^^^"
^DD(373,3.03,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373,3.03,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373,3.03,21,3,0)="  "
^DD(373,3.03,21,4,0)="Charges passed to IBB via PCE are ultimately based on CPT Codes, "
^DD(373,3.03,21,5,0)="while those from Prosthetics are based on HCPCS Codes, both of which"
^DD(373,3.03,21,6,0)="are found in the CPT file (#81).  This field holds the file #81"
^DD(373,3.03,21,7,0)="pointer related to the charge from PCE or Prosthetics."
^DD(373,3.03,21,8,0)="  "
^DD(373,3.03,21,9,0)="Outpatient Pharmacy charges are not associated with file #81."
^DD(373,3.03,23,0)="^.001^1^1^3050601^^^^"
^DD(373,3.03,23,1,0)="PFSS HL7 DFT message data; PR1 Segment, Sequence 3."
^DD(373,3.03,"DT")="3050224"
^DD(373,3.05,0)="PROCEDURE DATE/TIME^RD^^PR1;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(373,3.05,21,0)="^^7^7^3050527^"
^DD(373,3.05,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373,3.05,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373,3.05,21,3,0)="  "
^DD(373,3.05,21,4,0)="For charges passed to IBB via PCE this field contains the EVENT DATE"
^DD(373,3.05,21,5,0)="AND TIME (field #1201) from the V CPT file (#900010.18)."
^DD(373,3.05,21,6,0)="  "
^DD(373,3.05,21,7,0)="Outpatient Pharmacy and Prosthetics charges do not use this field."
^DD(373,3.05,23,0)="^.001^1^1^3050601^^^"
^DD(373,3.05,23,1,0)="PFSS HL7 DFT message data; PR1 Segment, Sequence 5."
^DD(373,3.05,"DT")="3050224"
^DD(373,3.06,0)="FUNCTIONAL TYPE^F^^PR1;6^K:$L(X)>1!($L(X)<1) X"
^DD(373,3.06,3)="Answer must be 1 character in length."
^DD(373,3.06,21,0)="^.001^10^10^3050527^^^"
^DD(373,3.06,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373,3.06,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373,3.06,21,3,0)="  "
^DD(373,3.06,21,4,0)="For charges passed to IBB by Prosthetics, this field contains a"
^DD(373,3.06,21,5,0)="coded-value as follows:"
^DD(373,3.06,21,6,0)="   O = Home Oxygen"
^DD(373,3.06,21,7,0)="   P = Purchasing"
^DD(373,3.06,21,8,0)="   I = Stock Issue"
^DD(373,3.06,21,9,0)="  "
^DD(373,3.06,21,10,0)="Outpatient Pharmacy and PCE charges do not use this field."
^DD(373,3.06,23,0)="^.001^1^1^3050601^^^"
^DD(373,3.06,23,1,0)="PFSS HL7 ADT message data; PR1 Segment; Sequence 6."
^DD(373,3.06,"DT")="3050527"
^DD(373,3.11,0)="SURGEON^P200'^VA(200,^PR1;11^Q"
^DD(373,3.11,21,0)="^.001^8^8^3050531^^^^"
^DD(373,3.11,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373,3.11,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373,3.11,21,3,0)="  "
^DD(373,3.11,21,4,0)="If PCE passes to IBB charge data that originated in Surgery, then this"
^DD(373,3.11,21,5,0)="field provides the identity of the Principal Surgeon as a pointer to the"
^DD(373,3.11,21,6,0)="NEW PERSON file (#200)."
^DD(373,3.11,21,7,0)="  "
^DD(373,3.11,21,8,0)="Outpatient Pharmacy and Prosthetics charges do not use this field."
^DD(373,3.11,23,0)="^.001^1^1^3050601^^^^"
^DD(373,3.11,23,1,0)="PFSS HL7 DFT message data; PR1 Segment, Sequence 11."
^DD(373,3.11,"DT")="3050526"
^DD(373,3.12,0)="ATTENDING SURGEON^P200'^VA(200,^PR1;12^Q"
^DD(373,3.12,21,0)="^.001^8^8^3050527^^^"
^DD(373,3.12,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373,3.12,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373,3.12,21,3,0)="  "
^DD(373,3.12,21,4,0)="If PCE passes to IBB charge data that originated in Surgery, then this"
^DD(373,3.12,21,5,0)="field provides the identity of the Attending Surgeon as a pointer to the"
^DD(373,3.12,21,6,0)="NEW PERSON file (#200)."
^DD(373,3.12,21,7,0)="  "
^DD(373,3.12,21,8,0)="Outpatient Pharmacy and Prosthetics charges do not use this field."
^DD(373,3.12,23,0)="^.001^1^1^3050601^^^"
^DD(373,3.12,23,1,0)="PFSS HL7 DFT message data; PR1 Segment, Sequence 12."
^DD(373,3.12,"DT")="3050526"
^DD(373,3.16,0)="PROCEDURE CODE MODIFIER(S)^F^^PR1;16^K:$L(X)>25!($L(X)<1) X"
^DD(373,3.16,3)="Answer must be 1-25 characters in length."
^DD(373,3.16,21,0)="^.001^14^14^3050531^^^^"
^DD(373,3.16,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373,3.16,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373,3.16,21,3,0)="  "
^DD(373,3.16,21,4,0)="Charges passed to IBB via PCE or from Prosthetics are based on codes"
^DD(373,3.16,21,5,0)="contained the CPT file (#81).  These CPT or HCPCS codes may be"
^DD(373,3.16,21,6,0)="""modified"" by the sending application using codes found in the CPT"
^DD(373,3.16,21,7,0)="MODIFIER file (#81.3)."
^DD(373,3.16,21,8,0)="  "
^DD(373,3.16,21,9,0)="This field may contain one or more modifiers as a string of numbers"
^DD(373,3.16,21,10,0)="delimited by semi-colons; each number is a pointer to the CPT MODIFIER"
^DD(373,3.16,21,11,0)="file (#81.3)."
^DD(373,3.16,21,12,0)="Example: 68;245;74;318;"
^DD(373,3.16,21,13,0)="  "
^DD(373,3.16,21,14,0)="Outpatient Pharmacy charges do not use this field."
^DD(373,3.16,23,0)="^.001^1^1^3050601^^^^"
^DD(373,3.16,23,1,0)="PFSS HL7 DFT message data; PR1 Segment, Sequence 16."
^DD(373,3.16,"DT")="3050224"
^DD(373,4,0)="DIAGNOSIS^373.04A^^DG1;0"
^DD(373,4,21,0)="^.001^2^2^3050426^^"
^DD(373,4,21,1,0)="Multiple DG1 Segments are allowed within a DFT-PO3 message.  Each subrecord"
^DD(373,4,21,2,0)="in subfile #373.04 contains data for an individual DG1 Segment."
^DD(373,5,0)="SC/EI CLASSIFICATION^373.05A^^ZCL;0"
^DD(373,5,21,0)="^^2^2^3050426^"
^DD(373,5,21,1,0)="Multiple ZCL Segments are allowed within a DFT-PO3 message.  Each"
^DD(373,5,21,2,0)="subrecord in subfile #373.05 contains data for an individual ZCL Segment."
^DD(373,5,"DT")="3050304"
^DD(373,6.04,0)="TRANSACTION DATE^D^^FT1;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(373,6.04,21,0)="^.001^5^5^3050714^^"
^DD(373,6.04,21,1,0)="The definition of this data item depends upon the application that"
^DD(373,6.04,21,2,0)="is the originating source of the data."
^DD(373,6.04,21,3,0)="PCE - Event Date and Time"
^DD(373,6.04,21,4,0)="OP PHARMACY - Fill Date or Refill Date"
^DD(373,6.04,21,5,0)="PROSTHETICS - Delivery Date"
^DD(373,6.04,23,0)="^.001^1^1^3050714^^^"
^DD(373,6.04,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 4."
^DD(373,6.04,"DT")="3050714"
^DD(373,6.06,0)="TRANSACTION TYPE^RS^CG:CHARGE;CD:CREDIT;^FT1;6^Q"
^DD(373,6.06,21,0)="^.001^3^3^3050714^^^^"
^DD(373,6.06,21,1,0)="An indicator to the external medical billing system that tells"
^DD(373,6.06,21,2,0)="whether the data in this charge transaction should be handled as"
^DD(373,6.06,21,3,0)="a debit (""CG"") or a credit (""CD"") to the account."
^DD(373,6.06,23,0)="^.001^1^1^3050714^^"
^DD(373,6.06,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 6."
^DD(373,6.06,"DT")="3050224"
^DD(373,6.07,0)="CHARGE CODE^NJ9,0^^FT1;7^K:+X'=X!(X>999999999)!(X<100000000)!(X?.E1"".""1N.N) X"
^DD(373,6.07,3)="Type a Number between 100000000 and 999999999, 0 Decimal Digits"
^DD(373,6.07,21,0)="^.001^3^3^3050601^^^"
^DD(373,6.07,21,1,0)="The value in this field descibes the charge and is formed by"
^DD(373,6.07,21,2,0)="concatenating the 6-digit SERVICE CODE (field #.07) to the"
^DD(373,6.07,21,3,0)="3-digit DEPARTMENT CODE (field #.06)."
^DD(373,6.07,23,0)="^^1^1^3050601^"
^DD(373,6.07,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 7."
^DD(373,6.07,"DT")="3050511"
^DD(373,6.1,0)="TRANSACTION QUANTITY^NJ5,0^^FT1;10^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(373,6.1,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(373,6.1,21,0)="^.001^2^2^3050601^^^^"
^DD(373,6.1,21,1,0)="This field will hold an integer value that describes the quantity"
^DD(373,6.1,21,2,0)="being charged."
^DD(373,6.1,23,0)="^.001^1^1^3050601^^"
^DD(373,6.1,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 10."
^DD(373,6.1,"DT")="3050224"
^DD(373,6.13,0)="DEPARTMENT CODE^RF^^FT1;13^K:$L(X)>3!($L(X)<3) X"
^DD(373,6.13,3)="Answer must be 3 characters in length."
^DD(373,6.13,21,0)="^^3^3^3050601^"
^DD(373,6.13,21,1,0)="The 3-digit Department Code provided by the sending application."
^DD(373,6.13,21,2,0)="The data value in this field is the same as in field #.06, DEPARTMENT."
^DD(373,6.13,21,3,0)="It is placed here to simplify the message build."
^DD(373,6.13,23,0)="^.001^1^1^3050601^^^"
^DD(373,6.13,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 13."
^DD(373,6.13,"DT")="3050224"
^DD(373,6.16,0)="ASSIGNED PATIENT LOCATION^P44'^SC(^FT1;16^Q"
^DD(373,6.16,23,0)="^^1^1^3050601^"
^DD(373,6.16,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 16."
^DD(373,6.16,"DT")="3050224"
^DD(373,6.18,0)="PATIENT TYPE^S^0:NOT RX COPAY EXEMPT;1:RX COPAY EXEMPT;^FT1;18^Q"
^DD(373,6.18,21,0)="^.001^3^3^3050601^^^"
^DD(373,6.18,21,1,0)="Used by Ooutpatient Pharmacy only; holds an indicator to show"
^DD(373,6.18,21,2,0)="whether the patient being charged for the prescription is ""Rx Copay"
^DD(373,6.18,21,3,0)="Exempt"" or ""Not Exempt""."
^DD(373,6.18,23,0)="^.001^1^1^3050601^^"
^DD(373,6.18,23,1,0)="PFSS HL7 DFT message data; FT1 Segment; Sequence 18."
^DD(373,6.18,"DT")="3050324"
^DD(373,6.2,0)="PERFORMED BY^P200'^VA(200,^FT1;20^Q"
^DD(373,6.2,21,0)="^^3^3^3050601^"
^DD(373,6.2,21,1,0)="Used for charge data from PCE only; a pointer to the NEW PERSON"
^DD(373,6.2,21,2,0)="file (#200) which supplies the identity of the Rendering Provider"
^DD(373,6.2,21,3,0)="for the procedure."
^DD(373,6.2,23,0)="^.001^1^1^3050601^^"
^DD(373,6.2,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 20."
^DD(373,6.2,"DT")="3050224"
^DD(373,6.21,0)="ORDERED BY^P200'^VA(200,^FT1;21^Q"
^DD(373,6.21,21,0)="^^3^3^3050601^"
^DD(373,6.21,21,1,0)="A pointer to the NEW PERSON file (#200) which supplies the identity of the "
^DD(373,6.21,21,2,0)="Odering Provider for the CPT procedure, HCPCS item, or Prescription "
^DD(373,6.21,21,3,0)="Fill/Refill."
^DD(373,6.21,23,0)="^.001^1^1^3050601^^"
^DD(373,6.21,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 21."
^DD(373,6.21,"DT")="3050713"
^DD(373,6.22,0)="UNIT COST^NJ8,2^^FT1;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(373,6.22,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(373,6.22,21,0)="^^2^2^3050601^"
^DD(373,6.22,21,1,0)="Used by Outpatient Pharmacy and Prosthetics to indicate the cost per"
^DD(373,6.22,21,2,0)="unit of the HCPCS item or pharmacy item being charged."
^DD(373,6.22,23,0)="^.001^1^1^3050601^^"
^DD(373,6.22,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 22."
^DD(373,6.22,"DT")="3050224"
^DD(373,6.29,0)="NDC^F^^FT1;29^K:$L(X)>65!($L(X)<3) X"
^DD(373,6.29,3)="Answer must be 3-65 characters in length."
^DD(373,6.29,21,0)="^.001^5^5^3050601^^^^"
^DD(373,6.29,21,1,0)="Used by Outpatient Pharmacy only to provide the National Drug Code"
^DD(373,6.29,21,2,0)="and Generic Drug Name for the prescription being charged."
^DD(373,6.29,21,3,0)=" "
^DD(373,6.29,21,4,0)="1st "";  piece is NDC Code and 2nd "";  piece is Generic Drug Name."
^DD(373,6.29,21,5,0)="Example: 0258-3581-05;THEOPHYLLINE (THEOCHRON) 300MG SA TAB"
^DD(373,6.29,23,0)="^.001^1^1^3050601^^^^"
^DD(373,6.29,23,1,0)="PFSS HL7 DFT message data; FT1 Segment, Sequence 29."
^DD(373,6.29,"DT")="3050324"
^DD(373,6.31,0)="TRANSACTION REF. KEY^S^1:PSO NSC RX COPAY;2:PSO SC RX COPAY;3:PSO NSC RX COPAY CANCEL;4:PSO NSC RX COPAY UPDATE;5:PSO SC RX COPAY CANCEL;6:PSO SC RX COPAY UPDATE;^FT1;31^Q"
^DD(373,6.31,21,0)="^.001^9^9^3050601^^^"
^DD(373,6.31,21,1,0)="Used by Outpatient Pharmacy only; indicates the type of copay"
^DD(373,6.31,21,2,0)="transaction that has been associated with the pharmacy item."
^DD(373,6.31,21,3,0)="The following types are available:"
^DD(373,6.31,21,4,0)="PSO NSC RX COPAY; "
^DD(373,6.31,21,5,0)="FOR PSO SC RX COPAY; "
^DD(373,6.31,21,6,0)="FOR PSO NSC RX COPAY CANCEL; "
^DD(373,6.31,21,7,0)="FOR PSO NSC RX COPAY UPDATE; "
^DD(373,6.31,21,8,0)="FOR PSO SC RX COPAY CANCEL; "
^DD(373,6.31,21,9,0)="FOR PSO SC RX COPAY UPDATE."
^DD(373,6.31,23,0)="^.001^1^1^3050601^^"
^DD(373,6.31,23,1,0)="PFSS HL7 DFT message data; FT1 Segment; Sequence 31."
^DD(373,6.31,"DT")="3050505"
^DD(373,7.01,0)="QUANTITY/TIMING^F^^RXE;1^K:$L(X)>12!($L(X)<3) X"
^DD(373,7.01,3)="Answer must be 3-12 characters in length."
^DD(373,7.01,21,0)="^.001^5^5^3050601^^^"
^DD(373,7.01,21,1,0)="Used by Outpatient Pharmacy only to specify the Quantity and"
^DD(373,7.01,21,2,0)="Days Supply for the pharmacy item being charged."
^DD(373,7.01,21,3,0)=" "
^DD(373,7.01,21,4,0)="1st "";"" piece is Quantity and 3rd "";"" piece is Days Supply."
^DD(373,7.01,21,5,0)="Example:  180;;90"
^DD(373,7.01,23,0)="^.001^1^1^3050601^^^"
^DD(373,7.01,23,1,0)="PFSS HL7 DFT message data; RXE Segment; Sequence 1."
^DD(373,7.01,"DT")="3050324"
^DD(373,7.15,0)="RX NUMBER^F^^RXE;15^K:$L(X)>20!($L(X)<1) X"
^DD(373,7.15,3)="Answer must be 1-20 characters in length."
^DD(373,7.15,21,0)="^^3^3^3050613^"
^DD(373,7.15,21,1,0)="The Rx number for the presciption fill/refill being charged."
^DD(373,7.15,21,2,0)="Data is taken from field #1.5 of the PFSS ACCOUNT file (#375)"
^DD(373,7.15,21,3,0)="record pointed to by field #.02 of this record."
^DD(373,7.15,"DT")="3050613"
^DD(373,7.17,0)="REFILLS DISPENSED^NJ2,0^^RXE;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(373,7.17,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(373,7.17,21,0)="^^3^3^3050601^"
^DD(373,7.17,21,1,0)="Used by Outpatient Pharmacy only to indicate the number of refills"
^DD(373,7.17,21,2,0)="dispensed for the prescription being charged.  The charge data for the"
^DD(373,7.17,21,3,0)="original fill will show 0 in this field."
^DD(373,7.17,23,0)="^.001^1^1^3050601^^"
^DD(373,7.17,23,1,0)="PFSS HL7 DFT message data; RXE Segment; Sequence 17."
^DD(373,7.17,"DT")="3050324"
^DD(373,7.18,0)="DATE OF MOST RECENT FILL^D^^RXE;18^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(373,7.18,21,0)="^.001^2^2^3050601^^^"
^DD(373,7.18,21,1,0)="Used by Outpatient Pharmacy only to indicate the date/time of the"
^DD(373,7.18,21,2,0)="most recent fill for the prescription being charged."
^DD(373,7.18,23,0)="^.001^1^1^3050601^^^^"
^DD(373,7.18,23,1,0)="PFSS HL7 DFT message data; RXE Segment; Sequence 18."
^DD(373,7.18,"DT")="3050601"
^DD(373,7.31,0)="SUPPLEMENTARY CODE^F^^RXE;31^K:$L(X)>6!($L(X)<1) X"
^DD(373,7.31,3)="Answer must be 1-6 characters in length."
^DD(373,7.31,21,0)="^^2^2^3050601^"
^DD(373,7.31,21,1,0)="Used by Outpatient Pharmacy only to send all DEA and Special"
^DD(373,7.31,21,2,0)="Handling codes associated with the prescription being charged."
^DD(373,7.31,23,0)="^.001^1^1^3050601^^"
^DD(373,7.31,23,1,0)="PFSS HL7 DFT message data; RXE Segment; Sequence 31."
^DD(373,7.31,"DT")="3050324"
^DD(373,11,0)="PROCEDURE TEXT^F^^11;1^K:$L(X)>200!($L(X)<3) X"
^DD(373,11,3)="Answer must be 3-200 characters in length."
^DD(373,11,21,0)="^^3^3^3050601^"
^DD(373,11,21,1,0)="The calling application may provide data for this field that is"
^DD(373,11,21,2,0)="used to enhance or add detail to the CPT or HCPCS code provided in"
^DD(373,11,21,3,0)="field #3.03."
^DD(373,11,23,0)="^.001^1^1^3050601^^^"
^DD(373,11,23,1,0)="PFSS HL7 DFT message data; PR1 Segment; Sequence 4."
^DD(373,11,"DT")="3050505"
^DD(373,23.01,0)="VENDOR^P440'^PRC(440,^23;1^Q"
^DD(373,23.01,21,0)="^.001^3^3^3050601^^"
^DD(373,23.01,21,1,0)="Used for charges related to Prosthetics only; the Vendor associated with"
^DD(373,23.01,21,2,0)="the Prosthetics item.  Provided by Prosthetics as a pointer to "
^DD(373,23.01,21,3,0)="the VENDOR file (#440)."
^DD(373,23.01,23,0)="^^1^1^3050601^"
^DD(373,23.01,23,1,0)="PFSS HL7 DFT message data; RQ1 Segment, Sequence 4."
^DD(373,23.01,"DT")="3050317"
^DD(373,23.02,0)="OBL#^F^^23;2^K:$L(X)>30!($L(X)<1) X"
^DD(373,23.02,3)="Answer must be 1-30 characters in length."
^DD(373,23.02,21,0)="^.001^2^2^3050601^^"
^DD(373,23.02,21,1,0)="Used for charges related to Prosthetics only; the OBL# associated with"
^DD(373,23.02,21,2,0)="the Prosthetics item."
^DD(373,23.02,23,0)="^^1^1^3050601^"
^DD(373,23.02,23,1,0)="PFSS HL7 DFT message data; RQ1 Segment, Sequence 5."
^DD(373,23.02,"DT")="3050317"
^DD(373,99.01,0)="STATUS^S^E:ERROR;^99;1^Q"
^DD(373,99.01,21,0)="^^2^2^3050426^"
^DD(373,99.01,21,1,0)="The status of the charge record.  A status of ""Error  indicates that a"
^DD(373,99.01,21,2,0)="fatal HL7 error condition was encountered during batch charge processing."
^DD(373,99.01,"DT")="3050224"
^DD(373,99.02,0)="ERROR TEXT^F^^99;2^K:$L(X)>200!($L(X)<3) X"
^DD(373,99.02,3)="Answer must be 3-200 characters in length."
^DD(373,99.02,21,0)="^^3^3^3050426^"
^DD(373,99.02,21,1,0)="If a fatal HL7 error condition was encountered during batch charge"
^DD(373,99.02,21,2,0)="processing on this record, the HL7 error text will be placed in this"
^DD(373,99.02,21,3,0)="field."
^DD(373,99.02,"DT")="3050426"
^DD(373,99.03,0)="ERROR DATE/TIME^D^^99;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(373,99.03,21,0)="^^3^3^3050426^"
^DD(373,99.03,21,1,0)="If a fatal HL7 error condition was encountered during batch charge"
^DD(373,99.03,21,2,0)="processing on this record, the error date/time will be placed in"
^DD(373,99.03,21,3,0)="this field."
^DD(373,99.03,"DT")="3050426"
^DD(373,"B","ASSIGNED PATIENT LOCATION",6.16)=""
^DD(373,"B","ATTENDING SURGEON",3.12)=""
^DD(373,"B","CHARGE CODE",6.07)=""
^DD(373,"B","CHARGE NUMBER",.01)=""
^DD(373,"B","CLINICAL EVENT ID",.09)=""
^DD(373,"B","DATE OF MOST RECENT FILL",7.18)=""
^DD(373,"B","DATE/TIME CREATED",.1)=""
^DD(373,"B","DEPARTMENT",.06)=""
^DD(373,"B","DEPARTMENT CODE",6.13)=""
^DD(373,"B","DIAGNOSIS",4)=""
^DD(373,"B","ERROR DATE/TIME",99.03)=""
^DD(373,"B","ERROR TEXT",99.02)=""
^DD(373,"B","FUNCTIONAL TYPE",3.06)=""
^DD(373,"B","HL7 MESSAGE ID",.11)=""
^DD(373,"B","NDC",6.29)=""
^DD(373,"B","OBL#",23.02)=""
^DD(373,"B","ORDER IEN",.08)=""
^DD(373,"B","ORDERED BY",6.21)=""
^DD(373,"B","PATIENT",.03)=""
^DD(373,"B","PATIENT TYPE",6.18)=""
^DD(373,"B","PERFORMED BY",6.2)=""
^DD(373,"B","PFSS ACCOUNT REFERENCE",.02)=""
^DD(373,"B","PROCEDURE CODE",3.03)=""
^DD(373,"B","PROCEDURE CODE MODIFIER(S)",3.16)=""
^DD(373,"B","PROCEDURE DATE/TIME",3.05)=""
^DD(373,"B","PROCEDURE TEXT",11)=""
^DD(373,"B","QUANTITY/TIMING",7.01)=""
^DD(373,"B","REFILLS DISPENSED",7.17)=""
^DD(373,"B","RX NUMBER",7.15)=""
^DD(373,"B","SC/EI CLASSIFICATION",5)=""
^DD(373,"B","SERVICE CODE",.07)=""
^DD(373,"B","STATUS",99.01)=""
^DD(373,"B","SUPPLEMENTARY CODE",7.31)=""
^DD(373,"B","SURGEON",3.11)=""
^DD(373,"B","TEST PATIENT",.2)=""
^DD(373,"B","TRANSACTION DATE",6.04)=""
^DD(373,"B","TRANSACTION QUANTITY",6.1)=""
^DD(373,"B","TRANSACTION REF. KEY",6.31)=""
^DD(373,"B","TRANSACTION TYPE",6.06)=""
^DD(373,"B","TYPE",.05)=""
^DD(373,"B","UNIQUE CHARGE ID",.04)=""
^DD(373,"B","UNIT COST",6.22)=""
^DD(373,"B","VENDOR",23.01)=""
^DD(373,"GL",0,1,.01)=""
^DD(373,"GL",0,2,.02)=""
^DD(373,"GL",0,3,.03)=""
^DD(373,"GL",0,4,.04)=""
^DD(373,"GL",0,5,.05)=""
^DD(373,"GL",0,6,.06)=""
^DD(373,"GL",0,7,.07)=""
^DD(373,"GL",0,8,.08)=""
^DD(373,"GL",0,9,.09)=""
^DD(373,"GL",0,10,.1)=""
^DD(373,"GL",0,11,.11)=""
^DD(373,"GL",0,20,.2)=""
^DD(373,"GL",11,1,11)=""
^DD(373,"GL",23,1,23.01)=""
^DD(373,"GL",23,2,23.02)=""
^DD(373,"GL",99,1,99.01)=""
^DD(373,"GL",99,2,99.02)=""
^DD(373,"GL",99,3,99.03)=""
^DD(373,"GL","DG1",0,4)=""
^DD(373,"GL","FT1",4,6.04)=""
^DD(373,"GL","FT1",6,6.06)=""
^DD(373,"GL","FT1",7,6.07)=""
^DD(373,"GL","FT1",10,6.1)=""
^DD(373,"GL","FT1",13,6.13)=""
^DD(373,"GL","FT1",16,6.16)=""
^DD(373,"GL","FT1",18,6.18)=""
^DD(373,"GL","FT1",20,6.2)=""
^DD(373,"GL","FT1",21,6.21)=""
^DD(373,"GL","FT1",22,6.22)=""
^DD(373,"GL","FT1",29,6.29)=""
^DD(373,"GL","FT1",31,6.31)=""
^DD(373,"GL","PR1",3,3.03)=""
^DD(373,"GL","PR1",5,3.05)=""
^DD(373,"GL","PR1",6,3.06)=""
^DD(373,"GL","PR1",11,3.11)=""
^DD(373,"GL","PR1",12,3.12)=""
^DD(373,"GL","PR1",16,3.16)=""
^DD(373,"GL","RXE",1,7.01)=""
^DD(373,"GL","RXE",15,7.15)=""
^DD(373,"GL","RXE",17,7.17)=""
^DD(373,"GL","RXE",18,7.18)=""
^DD(373,"GL","RXE",31,7.31)=""
^DD(373,"GL","ZCL",0,5)=""
^DD(373,"IX",.03)=""
^DD(373,"IX",.04)=""
^DD(373,"IX",.06)=""
^DD(373,"IX",.11)=""
^DD(373,"RQ",.01)=""
^DD(373,"RQ",.02)=""
^DD(373,"RQ",.03)=""
^DD(373,"RQ",.04)=""
^DD(373,"RQ",.05)=""
^DD(373,"RQ",.06)=""
^DD(373,"RQ",.07)=""
^DD(373,"RQ",.1)=""
^DD(373,"RQ",3.03)=""
^DD(373,"RQ",3.05)=""
^DD(373,"RQ",6.06)=""
^DD(373,"RQ",6.13)=""
^DD(373,"SB",373.04,4)=""
^DD(373,"SB",373.05,5)=""
^DD(373.04,0)="DIAGNOSIS SUB-FIELD^^.06^3"
^DD(373.04,0,"DT")="3050420"
^DD(373.04,0,"IX","B",373.04,.01)=""
^DD(373.04,0,"NM","DIAGNOSIS")=""
^DD(373.04,0,"UP")="373"
^DD(373.04,.01,0)="SET ID^RNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(373.04,.01,1,0)="^.1"
^DD(373.04,.01,1,1,0)="373.04^B"
^DD(373.04,.01,1,1,1)="S ^IBBAD(373,DA(1),""DG1"",""B"",$E(X,1,30),DA)="""""
^DD(373.04,.01,1,1,2)="K ^IBBAD(373,DA(1),""DG1"",""B"",$E(X,1,30),DA)"
^DD(373.04,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(373.04,.01,21,0)="^.001^11^11^3050531^^^^"
^DD(373.04,.01,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373.04,.01,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373.04,.01,21,3,0)="  "
^DD(373.04,.01,21,4,0)="Each application sending charge data to IBB will provide one or"
^DD(373.04,.01,21,5,0)="more related diagnoses.  If more than one, then these diagnoses"
^DD(373.04,.01,21,6,0)="are passed to IBB in priority order; i.e., the first diagnosis is"
^DD(373.04,.01,21,7,0)="the primary diagnosis related to the charge, the second diagnosis"
^DD(373.04,.01,21,8,0)="is the secondary diagnosis related to the charge, etc.  IBB files"
^DD(373.04,.01,21,9,0)="the data into subfile #373.04 in that same order.  This field"
^DD(373.04,.01,21,10,0)="indicates the exact order in which the diagnoses were received and"
^DD(373.04,.01,21,11,0)="filed."
^DD(373.04,.01,23,0)="^.001^1^1^3050601^^^"
^DD(373.04,.01,23,1,0)="PFSS HL7 DFT message data; DG1 Segment, Sequence 1."
^DD(373.04,.01,"DT")="3050224"
^DD(373.04,.03,0)="DIAGNOSIS CODE^RP80'^ICD9(^0;3^Q"
^DD(373.04,.03,21,0)="^.001^6^6^3050531^^"
^DD(373.04,.03,21,1,0)="Charge data being filed into the PFSS CHARGE CACHE comes from one of"
^DD(373.04,.03,21,2,0)="three sources - Outpatient Pharmacy, Prosthetics, or PCE."
^DD(373.04,.03,21,3,0)="  "
^DD(373.04,.03,21,4,0)="The applications sending charge data to IBB will provide one or"
^DD(373.04,.03,21,5,0)="more related diagnoses.  Each diagnosis is provided as a pointer to"
^DD(373.04,.03,21,6,0)="the ICD DIAGNOSIS file (#80)."
^DD(373.04,.03,23,0)="^.001^1^1^3050601^^^^"
^DD(373.04,.03,23,1,0)="PFSS HL7 DFT message data; DG1 Segment, Sequence 3."
^DD(373.04,.03,"DT")="3050224"
^DD(373.04,.06,0)="DIAGNOSIS TYPE^RS^A:ADMITTING;D:DISCHARGE;W:WORKING;F:FINAL;^0;6^Q"
^DD(373.04,.06,21,0)="^.001^3^3^3050531^^"
^DD(373.04,.06,21,1,0)="The applications passing charge data to IBB must define each diagnosis"
^DD(373.04,.06,21,2,0)="code included in the charge data as being one of the following:"
^DD(373.04,.06,21,3,0)="A(dmitting), W(orking), D(ischarging), or F(inal)."
^DD(373.04,.06,23,0)="^.001^1^1^3050601^^^"
^DD(373.04,.06,23,1,0)="PFSS HL7 DFT message data; DG1 Segment, Sequence 6."
^DD(373.04,.06,"DT")="3050420"
^DD(373.04,"B","DIAGNOSIS CODE",.03)=""
^DD(373.04,"B","DIAGNOSIS TYPE",.06)=""
^DD(373.04,"B","SET ID",.01)=""
^DD(373.04,"GL",0,1,.01)=""
^DD(373.04,"GL",0,3,.03)=""
^DD(373.04,"GL",0,6,.06)=""
^DD(373.04,"IX",.01)=""
^DD(373.04,"RQ",.01)=""
^DD(373.04,"RQ",.03)=""
^DD(373.04,"RQ",.06)=""
^DD(373.05,0)="SC/EI CLASSIFICATION SUB-FIELD^^.03^3"
^DD(373.05,0,"DT")="3050526"
^DD(373.05,0,"NM","SC/EI CLASSIFICATION")=""
^DD(373.05,0,"UP")="373"
^DD(373.05,.01,0)="SET ID^NJ1,0^^0;1^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(373.05,.01,1,0)="^.1^^0"
^DD(373.05,.01,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(373.05,.01,21,0)="^.001^4^4^3050531^^"
^DD(373.05,.01,21,1,0)="SC/EI Classification data related to the charge is usually a set of"
^DD(373.05,.01,21,2,0)="classification codes, which causes multiple records to be created in"
^DD(373.05,.01,21,3,0)="subfile #373.05.  The value in this field merely indicates the order"
^DD(373.05,.01,21,4,0)="in which the subfile record was created."
^DD(373.05,.01,23,0)="^.001^1^1^3050601^^^^"
^DD(373.05,.01,23,1,0)="PFSS HL7 DFT message data; ZCL Segment, Sequence 1."
^DD(373.05,.01,"DT")="3050714"
^DD(373.05,.02,0)="TYPE^S^1:AO;2:IR;3:SC;4:EC;5:MST;6:HNC;7:CV;8:SHAD;^0;2^Q"
^DD(373.05,.02,21,0)="^.001^2^2^3050531^^"
^DD(373.05,.02,21,1,0)="SC/EI Classification data related to the charge can only be one of"
^DD(373.05,.02,21,2,0)="the following types: AO, IR, SC, EC, MST, HNC, CV, or SHAD."
^DD(373.05,.02,23,0)="^.001^1^1^3050601^^^^"
^DD(373.05,.02,23,1,0)="PFSS HL7 DFT message data; ZCL Segment, Sequence 2."
^DD(373.05,.02,"DT")="3050526"
^DD(373.05,.03,0)="VALUE^S^1:YES;0:NO;^0;3^Q"
^DD(373.05,.03,21,0)="^.001^2^2^3050531^^"
^DD(373.05,.03,21,1,0)="SC/EI Classification data related to the charge can have any of the"
^DD(373.05,.03,21,2,0)="following values: Yes (1), No (0), or Unknown (null)."
^DD(373.05,.03,23,0)="^.001^1^1^3050601^^^^"
^DD(373.05,.03,23,1,0)="PFSS HL7 DFT message data; ZCL Segment, Sequence 3."
^DD(373.05,.03,"DT")="3050304"
^DD(373.05,"B","SET ID",.01)=""
^DD(373.05,"B","TYPE",.02)=""
^DD(373.05,"B","VALUE",.03)=""
^DD(373.05,"GL",0,1,.01)=""
^DD(373.05,"GL",0,2,.02)=""
^DD(373.05,"GL",0,3,.03)=""
^DD(375,0)="FIELD^^99^39"
^DD(375,0,"DDA")="N"
^DD(375,0,"DT")="3050630"
^DD(375,0,"IX","AA",375,.03)=""
^DD(375,0,"IX","C",375,.02)=""
^DD(375,0,"IX","G",375.099,.04)=""
^DD(375,0,"NM","PFSS ACCOUNT")=""
^DD(375,0,"PT",52,125)=""
^DD(375,0,"PT",52.1,21)=""
^DD(375,0,"PT",75.1,90)=""
^DD(375,0,"PT",100,97)=""
^DD(375,0,"PT",130,500)=""
^DD(375,0,"PT",350,.22)=""
^DD(375,0,"PT",373,.02)=""
^DD(375,0,"PT",409.55,.04)=""
^DD(375,0,"PT",660,100)=""
^DD(375,0,"PT",665.194,101)=""
^DD(375,0,"PT",665.723191,100)=""
^DD(375,0,"PT",9000010,.26)=""
^DD(375,0,"VR")="2.0"
^DD(375,0,"VRPK")="IB"
^DD(375,.01,0)="ACCOUNT REFERENCE^RNJ9,0X^^0;1^S DINUM=X K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(375,.01,1,0)="^.1^^0"
^DD(375,.01,3)=""
^DD(375,.01,21,0)="^.001^3^3^3050531^^^"
^DD(375,.01,21,1,0)="The number by which all VistA applications will reference an external"
^DD(375,.01,21,2,0)="medical billing system account number for purposes of attaching charges"
^DD(375,.01,21,3,0)="for 1st or 3rd party billing."
^DD(375,.01,23,0)="^.001^2^2^3050531^^^"
^DD(375,.01,23,1,0)="The file is DINUM'd; the internal entry number and #.01 field are the"
^DD(375,.01,23,2,0)="same value."
^DD(375,.01,"DT")="3050606"
^DD(375,.02,0)="EXTERNAL ACCOUNT NUMBER^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(375,.02,1,0)="^.1"
^DD(375,.02,1,1,0)="375^C"
^DD(375,.02,1,1,1)="S ^IBBAA(375,""C"",$E(X,1,30),DA)="""""
^DD(375,.02,1,1,2)="K ^IBBAA(375,""C"",$E(X,1,30),DA)"
^DD(375,.02,1,1,"DT")="3050401"
^DD(375,.02,3)="Answer must be 1-20 characters in length."
^DD(375,.02,21,0)="^.001^2^2^3050531^^^"
^DD(375,.02,21,1,0)="The number provided by the external medical billing system for purposes"
^DD(375,.02,21,2,0)="of attaching charges for 1st or 3rd party billing."
^DD(375,.02,23,0)="^.001^1^1^3050531^^"
^DD(375,.02,23,1,0)="PFSS HL7 ADT message data; PV1 Segment; Sequence 19."
^DD(375,.02,"DT")="3050630"
^DD(375,.03,0)="PATIENT^RP2'X^DPT(^0;3^Q"
^DD(375,.03,1,0)="^.1^^-1"
^DD(375,.03,1,3,0)="375^AA"
^DD(375,.03,1,3,1)="S ^IBBAA(375,""AA"",$E(X,1,30),DA)="""""
^DD(375,.03,1,3,2)="K ^IBBAA(375,""AA"",$E(X,1,30),DA)"
^DD(375,.03,1,3,"%D",0)="^^4^4^3050615^"
^DD(375,.03,1,3,"%D",1,0)="The is a regular cross-reference by PATIENT (field #.03).  The principal"
^DD(375,.03,1,3,"%D",2,0)="purpose of this cross-reference is to allow the Patient Merge processor"
^DD(375,.03,1,3,"%D",3,0)="(Kernel) to operate efficiently in the event that patient's with"
^DD(375,.03,1,3,"%D",4,0)="records in file #375 are merged."
^DD(375,.03,1,3,"DT")="3050615"
^DD(375,.03,21,0)="^.001^2^2^3050620^^^"
^DD(375,.03,21,1,0)="The Patient identifier associated with the billing account."
^DD(375,.03,21,2,0)="An internal entry number to the PATIENT file (#2)."
^DD(375,.03,23,0)="^.001^16^16^3050620^^^^"
^DD(375,.03,23,1,0)="This pointer to the PATIENT file (#2) is used to construct the"
^DD(375,.03,23,2,0)="HL7 PID Segment for PFSS ADT messages."
^DD(375,.03,23,3,0)="  "
^DD(375,.03,23,4,0)="Both the ""AC"" cross-reference, which uses field #1.03, and the ""AF"""
^DD(375,.03,23,5,0)="cross-reference, which uses field #16.01, depend on field #.03."
^DD(375,.03,23,6,0)=" "
^DD(375,.03,23,7,0)="S ^IBBAA(375,""AC"",X1,X3,X2,DA)="""""
^DD(375,.03,23,8,0)="   where:  X1=field #.03"
^DD(375,.03,23,9,0)="           X2=field #1.03"
^DD(375,.03,23,10,0)="           X3=field #1.44"
^DD(375,.03,23,11,0)="  "
^DD(375,.03,23,12,0)="S ^IBBAA(375,""AF"",X1,X3,X2,DA)="""""
^DD(375,.03,23,13,0)="   where:  X1=field #.03"
^DD(375,.03,23,14,0)="           X2=field #16.01"
^DD(375,.03,23,15,0)="           X3=field #1.44"
^DD(375,.03,23,16,0)=" "
^DD(375,.03,"DT")="3050620"
^DD(375,.04,0)="APPLICATION REFERENCE^F^^0;4^K:$L(X)>25!($L(X)<3) X"
^DD(375,.04,3)="Answer must be 3-25 characters in length."
^DD(375,.04,21,0)="^.001^2^2^3050627^^^^"
^DD(375,.04,21,1,0)="This field value indicates where in application processing the"
^DD(375,.04,21,2,0)="GETACCT^IBBAPI function is called."
^DD(375,.04,23,0)="^.001^1^1^3050531^^^^"
^DD(375,.04,23,1,0)=""";""_<routine_name> or <tag>_"";""_<routine_name>"
^DD(375,.04,"DT")="3050627"
^DD(375,.05,0)="EXTERNAL ACCT REC'D^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(375,.05,21,0)="^.001^2^2^3050531^^"
^DD(375,.05,21,1,0)="The date/time at which the External Account Number was received and"
^DD(375,.05,21,2,0)="processed into file #375, field #.02."
^DD(375,.05,"DT")="3050223"
^DD(375,.2,0)="TEST PATIENT^S^1:YES;^0;20^Q"
^DD(375,.2,21,0)="^.001^2^2^3050531^^"
^DD(375,.2,21,1,0)="If the DFN for this patient indicates a test patient as a result"
^DD(375,.2,21,2,0)="of a call to $$TESTPAT^VADPT, then this field is set to ""YES""."
^DD(375,.2,23,0)="^.001^2^2^3050601^^"
^DD(375,.2,23,1,0)="PFSS HL7 messages will not be constructed for any record in this"
^DD(375,.2,23,2,0)="file where TEST PATIENT = ""YES""."
^DD(375,.2,"DT")="3050511"
^DD(375,1.02,0)="PATIENT CLASS^RS^I:INPATIENT;O:OUTPATIENT;^PV1;2^Q"
^DD(375,1.02,21,0)="^.001^2^2^3050531^^"
^DD(375,1.02,21,1,0)="The Patient associated with this account is classified as either"
^DD(375,1.02,21,2,0)="""I"" (Inpatient) or ""O"" (Outpatient)."
^DD(375,1.02,23,0)="^.001^1^1^3050531^^^"
^DD(375,1.02,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 2."
^DD(375,1.02,"DT")="3050224"
^DD(375,1.03,0)="PATIENT LOCATION^P44'^SC(^PV1;3^Q"
^DD(375,1.03,21,0)="^.001^3^3^3050620^^^"
^DD(375,1.03,21,1,0)="The sending application provides a pointer to the HOSPITAL LOCATION"
^DD(375,1.03,21,2,0)="file (#44), which provides the a medical center location where"
^DD(375,1.03,21,3,0)="the patient visit took place or where service was provided."
^DD(375,1.03,23,0)="^.001^9^9^3050620^^^^"
^DD(375,1.03,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 3."
^DD(375,1.03,23,2,0)="  "
^DD(375,1.03,23,3,0)="The ""AC"" cross-reference uses field #1.03."
^DD(375,1.03,23,4,0)="  "
^DD(375,1.03,23,5,0)="S ^IBBAA(375,""AC"",X1,X3,X2,DA)="""""
^DD(375,1.03,23,6,0)="   where:  X1=field #.03"
^DD(375,1.03,23,7,0)="           X2=field #1.03"
^DD(375,1.03,23,8,0)="           X3=field #1.44"
^DD(375,1.03,23,9,0)=" "
^DD(375,1.03,"DT")="3050620"
^DD(375,1.04,0)="APPOINTMENT TYPE^P409.1'^SD(409.1,^PV1;4^Q"
^DD(375,1.04,21,0)="^^3^3^3050531^"
^DD(375,1.04,21,1,0)="If the account is setup for an actual outpatient visit (i.e., a"
^DD(375,1.04,21,2,0)="Scheduled appointment), this field will contain a pointer to the"
^DD(375,1.04,21,3,0)="APPOINTMENT TYPE file (#409.1)."
^DD(375,1.04,23,0)="^.001^1^1^3050531^^"
^DD(375,1.04,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 4."
^DD(375,1.04,"DT")="3050224"
^DD(375,1.07,0)="ATTENDING PHYSICIAN^P200'^VA(200,^PV1;7^Q"
^DD(375,1.07,21,0)="^^2^2^3050531^"
^DD(375,1.07,21,1,0)="The sending application may provide data on the Attending Physician"
^DD(375,1.07,21,2,0)="or Ordering Provided as a pointer to the NEW PERSON file (#200)."
^DD(375,1.07,23,0)="^.001^1^1^3050531^^"
^DD(375,1.07,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 7."
^DD(375,1.07,"DT")="3050224"
^DD(375,1.09,0)="CONSULTING PHYSICIAN^P200'^VA(200,^PV1;9^Q"
^DD(375,1.09,21,0)="^.001^3^3^3050531^^^"
^DD(375,1.09,21,1,0)="The sending application may provide data on the Consulting"
^DD(375,1.09,21,2,0)="Physician related to a patient visit as a pointer to the NEW"
^DD(375,1.09,21,3,0)="PERSON file (#200)."
^DD(375,1.09,23,0)="^^1^1^3050531^"
^DD(375,1.09,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 9."
^DD(375,1.09,"DT")="3050224"
^DD(375,1.1,0)="PURPOSE OF VISIT^S^1:C&P;2:10-10;3:SV;4:UV;^PV1;10^Q"
^DD(375,1.1,21,0)="^^6^6^3050531^"
^DD(375,1.1,21,1,0)="This field may contain a code to indicate the general type of the"
^DD(375,1.1,21,2,0)="outpatient visit associated with this account:"
^DD(375,1.1,21,3,0)="   C&P = Compensation & Pension"
^DD(375,1.1,21,4,0)="   10-10 = Registration 10-10"
^DD(375,1.1,21,5,0)="   SV = Scheduled Visit"
^DD(375,1.1,21,6,0)="   UV = Unscheduled Visit."
^DD(375,1.1,23,0)="^.001^1^1^3050531^^"
^DD(375,1.1,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 10."
^DD(375,1.1,"DT")="3050224"
^DD(375,1.17,0)="ADMITTING PHYSICIAN^P200'^VA(200,^PV1;17^Q"
^DD(375,1.17,21,0)="^^4^4^3050531^"
^DD(375,1.17,21,1,0)="The sending application may provide data on the Admitting"
^DD(375,1.17,21,2,0)="Physician, Surgeon, or Primary Provider associated with the"
^DD(375,1.17,21,3,0)="visit/encounter.  The data is provided as a pointer to the"
^DD(375,1.17,21,4,0)="NEW PERSON file (#200)."
^DD(375,1.17,23,0)="^.001^1^1^3050531^^"
^DD(375,1.17,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 17."
^DD(375,1.17,"DT")="3050224"
^DD(375,1.18,0)="PRIMARY STOP CODE^P40.7'^DIC(40.7,^PV1;18^Q"
^DD(375,1.18,21,0)="^.001^3^3^3050531^^"
^DD(375,1.18,21,1,0)="The sending application may provide a pointer to the CLINIC STOP"
^DD(375,1.18,21,2,0)="file (#40.7) in order to identify the Primary Stop Code associated"
^DD(375,1.18,21,3,0)="with the visit, encounter, or occasion of service."
^DD(375,1.18,23,0)="^.001^1^1^3050531^^^"
^DD(375,1.18,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 18."
^DD(375,1.18,"DT")="3050224"
^DD(375,1.25,0)="CHECK-IN DATE/TIME^D^^PV1;25^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(375,1.25,21,0)="^^2^2^3050531^"
^DD(375,1.25,21,1,0)="Normally only used when SCHEDULING is the sending application, this"
^DD(375,1.25,21,2,0)="indicates the date/time of the clinic visit check-in."
^DD(375,1.25,23,0)="^.001^1^1^3050531^^"
^DD(375,1.25,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 25."
^DD(375,1.25,"DT")="3050224"
^DD(375,1.41,0)="CREDIT STOP CODE^P40.7'^DIC(40.7,^PV1;41^Q"
^DD(375,1.41,21,0)="^^3^3^3050531^"
^DD(375,1.41,21,1,0)="The sending application may provide a pointer to the CLINIC STOP"
^DD(375,1.41,21,2,0)="file (#40.7) in order to identify the Credit Stop Code associated"
^DD(375,1.41,21,3,0)="with the visit, encounter, or occasion of service."
^DD(375,1.41,23,0)="^.001^1^1^3050531^^"
^DD(375,1.41,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 41."
^DD(375,1.41,"DT")="3050224"
^DD(375,1.44,0)="ADMIT DATE/TIME^DX^^PV1;44^D KAC144^IBBAADD(DA) S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(375,1.44,1,0)="^.1^^0"
^DD(375,1.44,21,0)="^^9^9^3050627^"
^DD(375,1.44,21,1,0)="The definition of this data element is dependent upon the application"
^DD(375,1.44,21,2,0)="that is the originating source of the data in the account record."
^DD(375,1.44,21,3,0)="   SCHEDULING -- Appointment Date/Time"
^DD(375,1.44,21,4,0)="   PCE -- Visit Date/Time"
^DD(375,1.44,21,5,0)="   PTF/FEE BASIS -- Admit Date"
^DD(375,1.44,21,6,0)="   RADIOLOGY -- Date Exam Desired"
^DD(375,1.44,21,7,0)="   PROSTHETICS -- Entry Date"
^DD(375,1.44,21,8,0)="   OP PHARMACY -- Fill/Refill Date"
^DD(375,1.44,21,9,0)="   SURGERY -- Date of Operation"
^DD(375,1.44,23,0)="^.001^22^22^3050620^^^^"
^DD(375,1.44,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 44."
^DD(375,1.44,23,2,0)="  "
^DD(375,1.44,23,3,0)="Both the ""AC"" cross-reference, which uses field #1.03, and the ""AF"""
^DD(375,1.44,23,4,0)="cross-reference, which uses field #16.01, depend on field #1.44.  Some"
^DD(375,1.44,23,5,0)="input to $$GETACCT^IBBAPI does not contain a data for field #1.44."
^DD(375,1.44,23,6,0)="An example would be input for a Pre-Admit (A05) message.  It contains"
^DD(375,1.44,23,7,0)="data for field #2.08 (Expected Admit Date/Time), but normally does"
^DD(375,1.44,23,8,0)="not contain data for field #1.44 (Admit Date/Time).  In these cases,"
^DD(375,1.44,23,9,0)="the data for field #2.08 is also placed in field #1.44, so that"
^DD(375,1.44,23,10,0)="field #1.44 will be non-null, and both ""AC"" and ""AF"" cross-references"
^DD(375,1.44,23,11,0)="can be set. "
^DD(375,1.44,23,12,0)="  "
^DD(375,1.44,23,13,0)="S ^IBBAA(375,""AC"",X1,X3,X2,DA)="""""
^DD(375,1.44,23,14,0)="   where:  X1=field #.03"
^DD(375,1.44,23,15,0)="           X2=field #1.03"
^DD(375,1.44,23,16,0)="           X3=field #1.44"
^DD(375,1.44,23,17,0)="  "
^DD(375,1.44,23,18,0)="S ^IBBAA(375,""AF"",X1,X3,X2,DA)="""""
^DD(375,1.44,23,19,0)="   where:  X1=field #.03"
^DD(375,1.44,23,20,0)="           X2=field #16.01"
^DD(375,1.44,23,21,0)="           X3=field #1.44"
^DD(375,1.44,23,22,0)="  "
^DD(375,1.44,"DT")="3050627"
^DD(375,1.45,0)="DISCHARGE DATE/TIME^D^^PV1;45^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(375,1.45,21,0)="^^2^2^3050531^"
^DD(375,1.45,21,1,0)="Used only by Scheduling to indicate the Check-Out Date/Time for"
^DD(375,1.45,21,2,0)="the outpatient appointment."
^DD(375,1.45,23,0)="^.001^1^1^3050531^^"
^DD(375,1.45,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 45."
^DD(375,1.45,"DT")="3050224"
^DD(375,1.5,0)="ALTERNATE VISIT ID^F^^PV1;50^K:$L(X)>30!($L(X)<3) X"
^DD(375,1.5,3)="Answer must be 3-30 characters in length."
^DD(375,1.5,21,0)="^^11^11^3050531^"
^DD(375,1.5,21,1,0)="Radiology   Secondary Visit Number; used for Radiology charges; the "
^DD(375,1.5,21,2,0)="external billing system's Visit Number associated with the CPRS ORDER (#100)"
^DD(375,1.5,21,3,0)="for the outpatient or inpatient Radiology order.  "
^DD(375,1.5,21,4,0)="Concatenate "";;;;RAD  to numeric string."
^DD(375,1.5,21,5,0)=" "
^DD(375,1.5,21,6,0)="Surgery   Surgical Case Number; used for Surgery account creation.  "
^DD(375,1.5,21,7,0)="Concatenate "";;;;SUR  to numeric string."
^DD(375,1.5,21,8,0)=" "
^DD(375,1.5,21,9,0)="OP Pharmacy   IEN to PRESCRIPTION file (#52); used for Pharmacy account "
^DD(375,1.5,21,10,0)="creation.  "
^DD(375,1.5,21,11,0)="Concatenate "";;;;OPP  to numeric string."
^DD(375,1.5,23,0)="^^1^1^3050531^"
^DD(375,1.5,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 50."
^DD(375,1.5,"DT")="3050517"
^DD(375,1.51,0)="WORKLOAD NON-COUNT^S^Y:WNC;N:WC;^PV1;51^Q"
^DD(375,1.51,21,0)="^.001^3^3^3051020^^"
^DD(375,1.51,21,1,0)="Normally only used when SCHEDULING is the sending application, this"
^DD(375,1.51,21,2,0)="defines the clinic location found in field #1.03 as ""count"" or"
^DD(375,1.51,21,3,0)="""non-count"" for workload purposes."
^DD(375,1.51,23,0)="^.001^1^1^3051020^^"
^DD(375,1.51,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 51."
^DD(375,1.51,"DT")="3050608"
^DD(375,1.52,0)="OTHER PROVIDER^P200'^VA(200,^PV1;52^Q"
^DD(375,1.52,21,0)="^^2^2^3050531^"
^DD(375,1.52,21,1,0)="Data for an additional Provider to be supplied by the calling"
^DD(375,1.52,21,2,0)="application as a pointer to the NEW PERSON file (#200)."
^DD(375,1.52,23,0)="^.001^1^1^3050531^^"
^DD(375,1.52,23,1,0)="PFSS HL7 ADT and DFT message data; PV1 Segment; Sequence 52."
^DD(375,1.52,"DT")="3050224"
^DD(375,2.07,0)="ELIGIBILITY OF VISIT^P8.1'^DIC(8.1,^PV2;7^Q"
^DD(375,2.07,21,0)="^^4^4^3050531^"
^DD(375,2.07,21,1,0)="Only used by SCHEDULING or PCE to indicate the patient's Eligibility"
^DD(375,2.07,21,2,0)="related to the outpatient visit with which this account record is "
^DD(375,2.07,21,3,0)="associated.  Data is provided as a pointer to the MAS ELIGIBILITY"
^DD(375,2.07,21,4,0)="CODE file (#8.1)."
^DD(375,2.07,23,0)="^.001^1^1^3050531^^^"
^DD(375,2.07,23,1,0)="PFSS HL7 ADT or DFT message data; PV2 Segment, Sequence 7."
^DD(375,2.07,"DT")="3050224"
^DD(375,2.08,0)="EXPECTED ADMIT DATE/TIME^DX^^PV2;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(375,2.08,1,0)="^.1^^0"
^DD(375,2.08,21,0)="^.001^6^6^3050607^^^"
^DD(375,2.08,21,1,0)="The definition of this data element is dependent upon the application"
^DD(375,2.08,21,2,0)="that is the originating source of the data."
^DD(375,2.08,21,3,0)="   SCHEDULING -- Appointment Date/Time"
^DD(375,2.08,21,4,0)="   PROSTHETICS -- Entry Date/Time"
^DD(375,2.08,21,5,0)="   SURGERY -- Planned Date of Operation"
^DD(375,2.08,21,6,0)="   RADIOLOGY -- Date Desired for Exam"
^DD(375,2.08,23,0)="^^1^1^3050607^"
^DD(375,2.08,23,1,0)="PFSS HL7 ADT or DFT message data; PV2 Segment, Sequence 8."
^DD(375,2.08,"DT")="3050607"
^DD(375,2.24,0)="APPOINTMENT STATUS^S^R:SCHEDULED/KEPT;I:INPATIENT;NS:NO-SHOW;NSR:NO-SHOW/RESCHEDULED;CP:CANCELLED BY PATIENT;CPR:CANCELLED BY PATIENT/RESCHEDULED;CC:CANCELLED BY CLINIC;CCR:CANCELLED BY CLINIC/RESCHEDULED;NT:NO ACTION TAKEN;^PV2;24^Q"
^DD(375,2.24,23,0)="^^1^1^3050531^"
^DD(375,2.24,23,1,0)="PFSS HL7 ADT or DFT message data; PV2 Segment, Sequence 24."
^DD(375,2.24,"DT")="3050224"
^DD(375,2.46,0)="PT STATUS EFFECTIVE DATE^D^^PV2;46^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(375,2.46,21,0)="^.001^4^4^3050713^^^"
^DD(375,2.46,21,1,0)="The definition of this data element is dependent upon the application"
^DD(375,2.46,21,2,0)="that is the originating source of the data."
^DD(375,2.46,21,3,0)="   SCHEDULING - Date Appointment Made."
^DD(375,2.46,21,4,0)="   PROSTHETICS - Date Ordered/Suspense Date."
^DD(375,2.46,23,0)="^.001^1^1^3050713^^^^"
^DD(375,2.46,23,1,0)="PFSS HL7 ADT or DFT message data; PV2 Segment, Sequence 46."
^DD(375,2.46,"DT")="3050317"
^DD(375,3.03,0)="PROCEDURE CODE^P81'^ICPT(^PR1;3^Q"
^DD(375,3.03,21,0)="^^4^4^3050627^"
^DD(375,3.03,21,1,0)="The applications sending account data to IBB may provide a purpose"
^DD(375,3.03,21,2,0)="for the visit, encounter, or occasion of service, in the form of a"
^DD(375,3.03,21,3,0)="pointer value to the CPT file (#81).  The pointer is used to derive"
^DD(375,3.03,21,4,0)="a specific CPT or HCPCS code."
^DD(375,3.03,23,0)="^.001^1^1^3050601^^^^"
^DD(375,3.03,23,1,0)="PFSS HL7 ADT message data; PR1 Segment, Sequence 3."
^DD(375,3.03,"DT")="3050627"
^DD(375,3.06,0)="FUNCTIONAL TYPE^F^^PR1;6^K:$L(X)>4!($L(X)<1) X"
^DD(375,3.06,3)="Answer must be 1-4 characters in length."
^DD(375,3.06,21,0)="^.001^15^15^3050713^^"
^DD(375,3.06,21,1,0)="Radiology - Imaging Type Abbreviation."
^DD(375,3.06,21,2,0)="   ANI  = ANGIO/NEURO/INTERVENTIONAL"
^DD(375,3.06,21,3,0)="   CARD = CARDIOLOGY STUDIES (NUC MED)"
^DD(375,3.06,21,4,0)="   CT   = CT SCAN"
^DD(375,3.06,21,5,0)="   RAD  = GENERAL RADIOLOGY"
^DD(375,3.06,21,6,0)="   MRI  = MAGNETIC RESONANCE IMAGING"
^DD(375,3.06,21,7,0)="   MAM  = MAMMOGRAPHY"
^DD(375,3.06,21,8,0)="   NM   = NUCLEAR MEDICINE"
^DD(375,3.06,21,9,0)="   US   = ULTRASOUND"
^DD(375,3.06,21,10,0)="   VAS  = VASCULAR LAB"
^DD(375,3.06,21,11,0)="  "
^DD(375,3.06,21,12,0)="Prosthetics - Prosthetics Flag."
^DD(375,3.06,21,13,0)="   O = Home Oxygen"
^DD(375,3.06,21,14,0)="   P = Purchasing"
^DD(375,3.06,21,15,0)="   I = Stock Issue"
^DD(375,3.06,23,0)="^.001^1^1^3050713^^^^"
^DD(375,3.06,23,1,0)="PFSS HL7 ADT message data; PR1 Segment, Sequence 6."
^DD(375,3.06,"DT")="3050318"
^DD(375,3.11,0)="SURGEON^P200'^VA(200,^PR1;11^Q"
^DD(375,3.11,21,0)="^.001^3^3^3050531^^^^"
^DD(375,3.11,21,1,0)="If SURGERY passes to IBB data for setup of an account, then this field"
^DD(375,3.11,21,2,0)="provides the identity of the Principal Surgeon as a pointer to the"
^DD(375,3.11,21,3,0)="NEW PERSON file (#200)."
^DD(375,3.11,23,0)="^.001^1^1^3050531^^"
^DD(375,3.11,23,1,0)="PFSS HL7 ADT message data; PR1 Segment; Sequence 11."
^DD(375,3.11,"DT")="3050318"
^DD(375,3.16,0)="PROCEDURE CODE MODIFIER(S)^F^^PR1;16^K:$L(X)>25!($L(X)<1) X"
^DD(375,3.16,3)="Answer must be 1-25 characters in length."
^DD(375,3.16,21,0)="^.001^5^5^3050531^^^^"
^DD(375,3.16,21,1,0)="Data may only be contained here if field #3.03 holds a pointer to"
^DD(375,3.16,21,2,0)="the CPT file (#81), which may be resolved to a CPT or HCPCS code."
^DD(375,3.16,21,3,0)="A string of numbers delimited by semi-colons; each number is a pointer to"
^DD(375,3.16,21,4,0)="the CPT MODIFIER file (#81.3)."
^DD(375,3.16,21,5,0)="Example: 68;245;74;318;"
^DD(375,3.16,23,0)="^.001^1^1^3050531^^^^"
^DD(375,3.16,23,1,0)="PFSS HL7 ADT message data; PR1 Segment; Sequence 16."
^DD(375,3.16,"DT")="3050224"
^DD(375,4,0)="DIAGNOSIS^375.04A^^DG1;0"
^DD(375,4,21,0)="^.001^2^2^3050531^^"
^DD(375,4,21,1,0)="Multiple DG1 Segments are allowed within an ADT message.  Each subrecord"
^DD(375,4,21,2,0)="in subfile #375.04 contains data for an individual DG1 Segment."
^DD(375,5,0)="SC/EI CLASSIFICATION^375.05A^^ZCL;0"
^DD(375,5,21,0)="^^2^2^3050426^"
^DD(375,5,21,1,0)="Multiple ZCL Segments are allowed within an ADT message.  Each subrecord"
^DD(375,5,21,2,0)="in subfile #375.05 contains data for an individual ZCL Segment."
^DD(375,11,0)="PROCEDURE TEXT^F^^11;1^K:$L(X)>200!($L(X)<3) X"
^DD(375,11,3)="Answer must be 3-200 characters in length."
^DD(375,11,21,0)="^.001^7^7^3050531^^^^"
^DD(375,11,21,1,0)="If the application calling GETACCT^IBBAPI does not yet have Procedure"
^DD(375,11,21,2,0)="data as a pointer to the CPT file (#81), then Procedure may be supplied as"
^DD(375,11,21,3,0)="free text."
^DD(375,11,21,4,0)="  "
^DD(375,11,21,5,0)="The calling application may also provide data for this field that is"
^DD(375,11,21,6,0)="used to enhance or add detail to the CPT or HCPCS code provided in"
^DD(375,11,21,7,0)="field #3.03."
^DD(375,11,23,0)="^.001^1^1^3050531^^^^"
^DD(375,11,23,1,0)="PFSS HL7 ADT message data; PR1 Segment; Sequence 4."
^DD(375,11,"DT")="3050302"
^DD(375,12,0)="DIAGNOSIS TEXT^F^^12;1^K:$L(X)>200!($L(X)<3) X"
^DD(375,12,3)="Answer must be 3-200 characters in length."
^DD(375,12,21,0)="^.001^3^3^3050531^^^^"
^DD(375,12,21,1,0)="If the application calling GETACCT^IBBAPI does not yet have Diagnosis data"
^DD(375,12,21,2,0)="as a pointer to the ICD DIAGNOSIS file (#80), then Diagnosis may be supplied"
^DD(375,12,21,3,0)="as free text."
^DD(375,12,23,0)="^.001^1^1^3050531^^^^"
^DD(375,12,23,1,0)="PFSS HL7 ADT message data; DG1 Segment; Sequence 4."
^DD(375,12,"DT")="3050609"
^DD(375,13,0)="FACILITY ID^P40.8'^DG(40.8,^13;1^Q"
^DD(375,13,21,0)="^.001^2^2^3050531^^"
^DD(375,13,21,1,0)="Identifies the facility (i.e., medical center division) associated"
^DD(375,13,21,2,0)="with the patient service."
^DD(375,13,23,0)="^.001^1^1^3050531^^"
^DD(375,13,23,1,0)="PFSS HL7 ADT message data; EVN Segment; Sequence 6."
^DD(375,13,"DT")="3050309"
^DD(375,14.01,0)="SURGICAL CASE #^P130'^SRF(^14;1^Q"
^DD(375,14.01,21,0)="^.001^1^1^3050531^^"
^DD(375,14.01,21,1,0)="Surgical Case # for any account setup by Surgery package."
^DD(375,14.01,23,0)="^.001^1^1^3050531^^"
^DD(375,14.01,23,1,0)="PFSS HL7 ADT message data; PV1 Segment; Sequence 50."
^DD(375,14.01,"DT")="3050309"
^DD(375,14.02,0)="SURGICAL SPECIALTY^P45.3'^DIC(45.3,^14;2^Q"
^DD(375,14.02,21,0)="^.001^1^1^3050531^^"
^DD(375,14.02,21,1,0)="Surgical Specialty for any account setup by Surgery package."
^DD(375,14.02,23,0)="^.001^1^1^3050531^^"
^DD(375,14.02,23,1,0)="PFSS HL7 ADT message data; PV2 Segment; Sequence 12."
^DD(375,14.02,"DT")="3050309"
^DD(375,15.01,0)="RADIOLOGY CLINICAL HX^P75.1'^RAO(75.1,^15;1^Q"
^DD(375,15.01,21,0)="^.001^2^2^3050531^^"
^DD(375,15.01,21,1,0)="The Clinical History for the Radiology exam can be obtained by using this"
^DD(375,15.01,21,2,0)="pointer value to the RAD/NUC MED ORDERS file (#75.1)."
^DD(375,15.01,23,0)="^.001^1^1^3050531^^"
^DD(375,15.01,23,1,0)="PFSS HL7 ADT message data; OBX Segment; Sequence 5."
^DD(375,15.01,"DT")="3050318"
^DD(375,16.01,0)="OUTSIDE LOCATION^F^^16;1^K:$L(X)>50!($L(X)<2) X"
^DD(375,16.01,1,0)="^.1^^0"
^DD(375,16.01,3)="Answer must be 2-50 characters in length."
^DD(375,16.01,21,0)="^.001^6^6^3050620^^^^"
^DD(375,16.01,21,1,0)="If the Patient Location for the visit/encounter/service is outside"
^DD(375,16.01,21,2,0)="the VAMC, then the name of that location is stored here as free text."
^DD(375,16.01,21,3,0)="  "
^DD(375,16.01,21,4,0)="For A01 event messages related to inpatient admissions to outside"
^DD(375,16.01,21,5,0)="hospitals, the PTF application will use ""FEE BASIS"" as a generic"
^DD(375,16.01,21,6,0)="location descriptor."
^DD(375,16.01,23,0)="^.001^9^9^3050620^^^^"
^DD(375,16.01,23,1,0)="PFSS HL7 ADT message data; PV1 Segment; Sequence 3."
^DD(375,16.01,23,2,0)=" "
^DD(375,16.01,23,3,0)="The ""AF"" cross-reference uses field #16.01."
^DD(375,16.01,23,4,0)=" "
^DD(375,16.01,23,5,0)="S ^IBBAA(375,""AF"",X1,X3,X2,DA)="""""
^DD(375,16.01,23,6,0)="   where:  X1=field #.03"
^DD(375,16.01,23,7,0)="           X2=field #16.01"
^DD(375,16.01,23,8,0)="           X3=field #1.44"
^DD(375,16.01,23,9,0)=" "
^DD(375,16.01,"DT")="3050620"
^DD(375,99,0)="EVENT HISTORY^375.099DA^^99;0"
^DD(375,99,21,0)="^.001^2^2^3050531^^"
^DD(375,99,21,1,0)="This subfile stores a history of the HL7 ADT events that are sent/received"
^DD(375,99,21,2,0)="for this PFSS ACCOUNT record."
^DD(375,"B","ACCOUNT REFERENCE",.01)=""
^DD(375,"B","ADMIT DATE/TIME",1.44)=""
^DD(375,"B","ADMITTING PHYSICIAN",1.17)=""
^DD(375,"B","ALTERNATE VISIT ID",1.5)=""
^DD(375,"B","APPLICATION REFERENCE",.04)=""
^DD(375,"B","APPOINTMENT STATUS",2.24)=""
^DD(375,"B","APPOINTMENT TYPE",1.04)=""
^DD(375,"B","ATTENDING PHYSICIAN",1.07)=""
^DD(375,"B","CHECK-IN DATE/TIME",1.25)=""
^DD(375,"B","CONSULTING PHYSICIAN",1.09)=""
^DD(375,"B","CREDIT STOP CODE",1.41)=""
^DD(375,"B","DIAGNOSIS",4)=""
^DD(375,"B","DIAGNOSIS TEXT",12)=""
^DD(375,"B","DISCHARGE DATE/TIME",1.45)=""
^DD(375,"B","ELIGIBILITY OF VISIT",2.07)=""
^DD(375,"B","EVENT HISTORY",99)=""
^DD(375,"B","EXPECTED ADMIT DATE/TIME",2.08)=""
^DD(375,"B","EXTERNAL ACCOUNT NUMBER",.02)=""
^DD(375,"B","EXTERNAL ACCT REC'D",.05)=""
^DD(375,"B","FACILITY ID",13)=""
^DD(375,"B","FUNCTIONAL TYPE",3.06)=""
^DD(375,"B","OTHER PROVIDER",1.52)=""
^DD(375,"B","OUTSIDE LOCATION",16.01)=""
^DD(375,"B","PATIENT",.03)=""
^DD(375,"B","PATIENT CLASS",1.02)=""
^DD(375,"B","PATIENT LOCATION",1.03)=""
^DD(375,"B","PRIMARY STOP CODE",1.18)=""
^DD(375,"B","PROCEDURE CODE",3.03)=""
^DD(375,"B","PROCEDURE CODE MODIFIER(S)",3.16)=""
^DD(375,"B","PROCEDURE TEXT",11)=""
^DD(375,"B","PT STATUS EFFECTIVE DATE",2.46)=""
^DD(375,"B","PURPOSE OF VISIT",1.1)=""
^DD(375,"B","RADIOLOGY CLINICAL HX",15.01)=""
^DD(375,"B","SC/EI CLASSIFICATION",5)=""
^DD(375,"B","SURGEON",3.11)=""
^DD(375,"B","SURGICAL CASE #",14.01)=""
^DD(375,"B","SURGICAL SPECIALTY",14.02)=""
^DD(375,"B","TEST PATIENT",.2)=""
^DD(375,"B","WORKLOAD NON-COUNT",1.51)=""
^DD(375,"GL",0,1,.01)=""
^DD(375,"GL",0,2,.02)=""
^DD(375,"GL",0,3,.03)=""
^DD(375,"GL",0,4,.04)=""
^DD(375,"GL",0,5,.05)=""
^DD(375,"GL",0,20,.2)=""
^DD(375,"GL",11,1,11)=""
^DD(375,"GL",12,1,12)=""
^DD(375,"GL",13,1,13)=""
^DD(375,"GL",14,1,14.01)=""
^DD(375,"GL",14,2,14.02)=""
^DD(375,"GL",15,1,15.01)=""
^DD(375,"GL",16,1,16.01)=""
^DD(375,"GL",99,0,99)=""
^DD(375,"GL","DG1",0,4)=""
^DD(375,"GL","PR1",3,3.03)=""
^DD(375,"GL","PR1",6,3.06)=""
^DD(375,"GL","PR1",11,3.11)=""
^DD(375,"GL","PR1",16,3.16)=""
^DD(375,"GL","PV1",2,1.02)=""
^DD(375,"GL","PV1",3,1.03)=""
^DD(375,"GL","PV1",4,1.04)=""
^DD(375,"GL","PV1",7,1.07)=""
^DD(375,"GL","PV1",9,1.09)=""
^DD(375,"GL","PV1",10,1.1)=""
^DD(375,"GL","PV1",17,1.17)=""
^DD(375,"GL","PV1",18,1.18)=""
^DD(375,"GL","PV1",25,1.25)=""
^DD(375,"GL","PV1",41,1.41)=""
^DD(375,"GL","PV1",44,1.44)=""
^DD(375,"GL","PV1",45,1.45)=""
^DD(375,"GL","PV1",50,1.5)=""
^DD(375,"GL","PV1",51,1.51)=""
^DD(375,"GL","PV1",52,1.52)=""
^DD(375,"GL","PV2",7,2.07)=""
^DD(375,"GL","PV2",8,2.08)=""
^DD(375,"GL","PV2",24,2.24)=""
^DD(375,"GL","PV2",46,2.46)=""
^DD(375,"GL","ZCL",0,5)=""
^DD(375,"IX",.02)=""
^DD(375,"IX",.03)=""
^DD(375,"RQ",.01)=""
^DD(375,"RQ",.03)=""
^DD(375,"RQ",1.02)=""
^DD(375,"SB",375.04,4)=""
^DD(375,"SB",375.05,5)=""
^DD(375,"SB",375.099,99)=""
^DD(375.04,0)="DIAGNOSIS SUB-FIELD^^.06^3"
^DD(375.04,0,"DT")="3050420"
^DD(375.04,0,"IX","B",375.04,.01)=""
^DD(375.04,0,"NM","DIAGNOSIS")=""
^DD(375.04,0,"UP")="375"
^DD(375.04,.01,0)="SET ID^NJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(375.04,.01,1,0)="^.1"
^DD(375.04,.01,1,1,0)="375.04^B"
^DD(375.04,.01,1,1,1)="S ^IBBAA(375,DA(1),""DG1"",""B"",$E(X,1,30),DA)="""""
^DD(375.04,.01,1,1,2)="K ^IBBAA(375,DA(1),""DG1"",""B"",$E(X,1,30),DA)"
^DD(375.04,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(375.04,.01,21,0)="^^11^11^3050627^"
^DD(375.04,.01,21,1,0)="Unique, sequential integer.  The Diagnosis with SET ID=1 should be "
^DD(375.04,.01,21,2,0)="interpreted as the Primary Diagnosis."
^DD(375.04,.01,21,3,0)="  "
^DD(375.04,.01,21,4,0)="Each application sending account data to IBB may provide one or"
^DD(375.04,.01,21,5,0)="more related diagnoses.  If more than one, then these diagnoses"
^DD(375.04,.01,21,6,0)="are passed to IBB in priority order; i.e., the first diagnosis is"
^DD(375.04,.01,21,7,0)="the primary diagnosis related to the charge, the second diagnosis"
^DD(375.04,.01,21,8,0)="is the secondary diagnosis related to the charge, etc.  IBB files"
^DD(375.04,.01,21,9,0)="the data into subfile #375.04 in that same order.  This field"
^DD(375.04,.01,21,10,0)="indicates the exact order in which the diagnoses were received and"
^DD(375.04,.01,21,11,0)="filed."
^DD(375.04,.01,"DT")="3050627"
^DD(375.04,.03,0)="DIAGNOSIS CODE^RP80'^ICD9(^0;3^Q"
^DD(375.04,.03,21,0)="^.001^3^3^3050531^^^^"
^DD(375.04,.03,21,1,0)="The applications sending account data to IBB may provide one or"
^DD(375.04,.03,21,2,0)="more related diagnoses.  Each diagnosis is provided as a pointer to"
^DD(375.04,.03,21,3,0)="the ICD DIAGNOSIS file (#80)."
^DD(375.04,.03,23,0)="^.001^1^1^3050531^^"
^DD(375.04,.03,23,1,0)="PFSS HL7 ADT message data; DG1 Segment, Sequence 3."
^DD(375.04,.03,"DT")="3050224"
^DD(375.04,.06,0)="DIAGNOSIS TYPE^RS^A:ADMITTING;D:DISCHARGE;W:WORKING;F:FINAL;^0;6^Q"
^DD(375.04,.06,21,0)="^^3^3^3050531^"
^DD(375.04,.06,21,1,0)="The applications passing account data to IBB must define each diagnosis"
^DD(375.04,.06,21,2,0)="code included in the charge data as being one of the following:"
^DD(375.04,.06,21,3,0)="A(dmitting), W(orking), D(ischarging), or F(inal)."
^DD(375.04,.06,23,0)="^.001^1^1^3050531^^"
^DD(375.04,.06,23,1,0)="PFSS HL7 ADT message data; DG1 Segment, Sequence 6."
^DD(375.04,.06,"DT")="3050420"
^DD(375.04,"B","DIAGNOSIS CODE",.03)=""
^DD(375.04,"B","DIAGNOSIS TYPE",.06)=""
^DD(375.04,"B","SET ID",.01)=""
^DD(375.04,"GL",0,1,.01)=""
^DD(375.04,"GL",0,3,.03)=""
^DD(375.04,"GL",0,6,.06)=""
^DD(375.04,"IX",.01)=""
^DD(375.04,"RQ",.03)=""
^DD(375.04,"RQ",.06)=""
^DD(375.05,0)="SC/EI CLASSIFICATION SUB-FIELD^^.03^3"
^DD(375.05,0,"DT")="3050526"
^DD(375.05,0,"NM","SC/EI CLASSIFICATION")=""
^DD(375.05,0,"UP")="375"
^DD(375.05,.01,0)="SET ID^NJ1,0^^0;1^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(375.05,.01,1,0)="^.1^^0"
^DD(375.05,.01,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(375.05,.01,21,0)="^.001^4^4^3050531^^^^"
^DD(375.05,.01,21,1,0)="SC/EI Classification data related to the charge is usually a set of"
^DD(375.05,.01,21,2,0)="classification codes, which causes multiple records to be created in"
^DD(375.05,.01,21,3,0)="subfile #375.05.  The value in this field merely indicates the order"
^DD(375.05,.01,21,4,0)="in which the subfile record was created."
^DD(375.05,.01,23,0)="^.001^1^1^3050531^^^^"
^DD(375.05,.01,23,1,0)="PFSS HL7 ADT message data; ZCL Segment; Sequence 1."
^DD(375.05,.01,"DT")="3050712"
^DD(375.05,.02,0)="TYPE^S^1:AO;2:IR;3:SC;4:EC;5:MST;6:HNC;7:CV;8:SHAD;^0;2^Q"
^DD(375.05,.02,21,0)="^.001^2^2^3050531^^^"
^DD(375.05,.02,21,1,0)="SC/EI Classification data related to the charge can only be one of"
^DD(375.05,.02,21,2,0)="the following types: AO, IR, SC, EC, MST, HNC, CV, or SHAD."
^DD(375.05,.02,23,0)="^^1^1^3050531^"
^DD(375.05,.02,23,1,0)="PFSS HL7 ADT message data; ZCL Segment; Sequence 2."
^DD(375.05,.02,"DT")="3050526"
^DD(375.05,.03,0)="VALUE^S^1:YES;0:NO;^0;3^Q"
^DD(375.05,.03,21,0)="^.001^2^2^3050531^^"
^DD(375.05,.03,21,1,0)="SC/EI Classification data related to the charge can have any of the"
^DD(375.05,.03,21,2,0)="following values: Yes (1), No (0), or Unknown (null)."
^DD(375.05,.03,23,0)="^^1^1^3050531^"
^DD(375.05,.03,23,1,0)="PFSS HL7 ADT message data; ZCL Segment; Sequence 3."
^DD(375.05,.03,"DT")="3050304"
^DD(375.05,"B","SET ID",.01)=""
^DD(375.05,"B","TYPE",.02)=""
^DD(375.05,"B","VALUE",.03)=""
^DD(375.05,"GL",0,1,.01)=""
^DD(375.05,"GL",0,2,.02)=""
^DD(375.05,"GL",0,3,.03)=""
^DD(375.099,0)="EVENT HISTORY SUB-FIELD^^.04^4"
^DD(375.099,0,"DT")="3050428"
^DD(375.099,0,"IX","B",375.099,.01)=""
^DD(375.099,0,"NM","EVENT HISTORY")=""
^DD(375.099,0,"UP")="375"
^DD(375.099,.01,0)="CREATE DATE/TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(375.099,.01,1,0)="^.1"
^DD(375.099,.01,1,1,0)="375.099^B"
^DD(375.099,.01,1,1,1)="S ^IBBAA(375,DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(375.099,.01,1,1,2)="K ^IBBAA(375,DA(1),99,""B"",$E(X,1,30),DA)"
^DD(375.099,.01,3)=""
^DD(375.099,.01,21,0)="^.001^1^1^3050627^^^"
^DD(375.099,.01,21,1,0)="Date/time at which the subrecord was created. "
^DD(375.099,.01,23,0)="^^10^10^3050627^"
^DD(375.099,.01,23,1,0)="This may represent any of the following:"
^DD(375.099,.01,23,2,0)="(1) The date/time at which the VistA application called the GETACCT^IBBAPI"
^DD(375.099,.01,23,3,0)="    in order to send data to the external billing system for the purpose of"
^DD(375.099,.01,23,4,0)="    either establishing a new account/visit or updating an existing "
^DD(375.099,.01,23,5,0)="    account/visit."
^DD(375.099,.01,23,6,0)="(2) The date/time at which an ADT message was sent to the external billing "
^DD(375.099,.01,23,7,0)="    system via the outbound HL7 interface after processing by EN^IBBAADTO."
^DD(375.099,.01,23,8,0)="(3) The date/time at which an ADT message was received from the external "
^DD(375.099,.01,23,9,0)="    billing system and processed by EN^IBBAADTI via the inbound HL7"
^DD(375.099,.01,23,10,0)="    interface."
^DD(375.099,.01,"DT")="3050627"
^DD(375.099,.02,0)="HL7 EVENT^RF^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(375.099,.02,3)="Answer must be 3 characters in length."
^DD(375.099,.02,21,0)="^.001^2^2^3050531^^^"
^DD(375.099,.02,21,1,0)="The HL7 ADT event code, which may be one of the following:"
^DD(375.099,.02,21,2,0)="A01, A03, A04, A05, A08, A11, A13, A38."
^DD(375.099,.02,23,0)="^.001^5^5^3050531^^^"
^DD(375.099,.02,23,1,0)="The HL7 Event code specified by the VistA application in order to send "
^DD(375.099,.02,23,2,0)="visit-level data to the external billing system."
^DD(375.099,.02,23,3,0)="OR"
^DD(375.099,.02,23,4,0)="The HL7 Event code contained in an inbound message from the external "
^DD(375.099,.02,23,5,0)="billing system and processed by IBB."
^DD(375.099,.02,"DT")="3050224"
^DD(375.099,.03,0)="REASON^RS^R:REQUEST;O:OUTBOUND;I:INBOUND;^0;3^Q"
^DD(375.099,.03,21,0)="^.001^19^19^3050531^^^^"
^DD(375.099,.03,21,1,0)="Indicates the reason for the entry into the EVENT HISTORY subfile."
^DD(375.099,.03,21,2,0)="  "
^DD(375.099,.03,21,3,0)="There are only three points in the history of the ADT message event"
^DD(375.099,.03,21,4,0)="that are tracked by IBB:"
^DD(375.099,.03,21,5,0)="  "
^DD(375.099,.03,21,6,0)="(1) Date/time of original request by application;"
^DD(375.099,.03,21,7,0)="    Reason = ""R"" (Request)"
^DD(375.099,.03,21,8,0)="  "
^DD(375.099,.03,21,9,0)="(2) Date/time at which VDEF sent the message to VistA HL7;"
^DD(375.099,.03,21,10,0)="    Reason = ""O"" (Outbound)"
^DD(375.099,.03,21,11,0)="  "
^DD(375.099,.03,21,12,0)="(3) Date/time at which a incoming message from the external medical"
^DD(375.099,.03,21,13,0)="    billing system was received;"
^DD(375.099,.03,21,14,0)="    Reason = ""I"" (Inbound)"
^DD(375.099,.03,21,15,0)="  "
^DD(375.099,.03,21,16,0)="    Note: The incoming message could be either a response to an"
^DD(375.099,.03,21,17,0)="    outbound ADT message that originated in VistA, or it may be"
^DD(375.099,.03,21,18,0)="    an ADT message related to inpatient bed control that originated"
^DD(375.099,.03,21,19,0)="    in the external medical billing system."
^DD(375.099,.03,"DT")="3050224"
^DD(375.099,.04,0)="HL7 MESSAGE^P772'^HL(772,^0;4^Q"
^DD(375.099,.04,1,0)="^.1"
^DD(375.099,.04,1,1,0)="375^G^MUMPS"
^DD(375.099,.04,1,1,1)="I X,$P(^IBBAA(375,DA(1),0),U,2)=""G"" S $P(^(0),U,2)="""" K ^IBBAA(375,""C"",""G"",DA(1))"
^DD(375.099,.04,1,1,2)="Q"
^DD(375.099,.04,1,1,"%D",0)="^.101^3^3^3050906^^^^"
^DD(375.099,.04,1,1,"%D",1,0)="Whenever field #.04 in subfile #375.099 is set then the HL7 message"
^DD(375.099,.04,1,1,"%D",2,0)="(at least one) has been sent for this Account.  At that point, if the"
^DD(375.099,.04,1,1,"%D",3,0)="EXTERNAL ACCOUNT NUMBER (field #.02) is set to ""G"", then remove ""G""."
^DD(375.099,.04,1,1,"DT")="3050713"
^DD(375.099,.04,21,0)="^.001^2^2^3050531^^"
^DD(375.099,.04,21,1,0)="The pointer to the HL7 MESSAGE TEXT file (#772) where the outbound"
^DD(375.099,.04,21,2,0)="ADT message resides."
^DD(375.099,.04,23,0)="^^3^3^3050531^"
^DD(375.099,.04,23,1,0)="This data item is provided by the VDEF message builder; it will"
^DD(375.099,.04,23,2,0)="only be present in the subfile #375.099 record if field #.03 is"
^DD(375.099,.04,23,3,0)="set to ""OUTBOUND""."
^DD(375.099,.04,"DT")="3050713"
^DD(375.099,"B","CREATE DATE/TIME",.01)=""
^DD(375.099,"B","HL7 EVENT",.02)=""
^DD(375.099,"B","HL7 MESSAGE",.04)=""
^DD(375.099,"B","REASON",.03)=""
^DD(375.099,"GL",0,1,.01)=""
^DD(375.099,"GL",0,2,.02)=""
^DD(375.099,"GL",0,3,.03)=""
^DD(375.099,"GL",0,4,.04)=""
^DD(375.099,"IX",.01)=""
^DD(375.099,"IX",.04)=""
^DD(375.099,"RQ",.01)=""
^DD(375.099,"RQ",.02)=""
^DD(375.099,"RQ",.03)=""
^DD(389.9,0)="FIELD^^17000^8"
^DD(389.9,0,"DDA")="N"
^DD(389.9,0,"DT")="2920716"
^DD(389.9,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(389.9,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(40.8,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(40.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(389.9,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(389.9,0,"IX","AIVDT",389.9,.03)=""
^DD(389.9,0,"IX","AIVDT0",389.9,.02)=""
^DD(389.9,0,"IX","AIVDT1",389.9,.05)=""
^DD(389.9,0,"IX","AIVDT10",389.9,.02)=""
^DD(389.9,0,"IX","B",389.9,.01)=""
^DD(389.9,0,"IX","C",389.9,.03)=""
^DD(389.9,0,"IX","D",389.9,.04)=""
^DD(389.9,0,"IX","E",389.9,.02)=""
^DD(389.9,0,"NM","STATION NUMBER (TIME SENSITIVE)")=""
^DD(389.9,0,"VR")="5.3"
^DD(389.9,.01,0)="REFERENCE NUMBER^RNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(389.9,.01,1,0)="^.1"
^DD(389.9,.01,1,1,0)="389.9^B"
^DD(389.9,.01,1,1,1)="S ^VA(389.9,""B"",$E(X,1,30),DA)="""""
^DD(389.9,.01,1,1,2)="K ^VA(389.9,""B"",$E(X,1,30),DA)"
^DD(389.9,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(389.9,.01,21,0)="^^2^2^2920717^^"
^DD(389.9,.01,21,1,0)="This field is the reference number of the entry in the file.  It is "
^DD(389.9,.01,21,2,0)="assigned by the enter/edit routine."
^DD(389.9,.01,"DT")="2911107"
^DD(389.9,.02,0)="EFFECTIVE DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(389.9,.02,1,0)="^.1"
^DD(389.9,.02,1,1,0)="389.9^E"
^DD(389.9,.02,1,1,1)="S ^VA(389.9,""E"",$E(X,1,30),DA)="""""
^DD(389.9,.02,1,1,2)="K ^VA(389.9,""E"",$E(X,1,30),DA)"
^DD(389.9,.02,1,1,"DT")="2911107"
^DD(389.9,.02,1,2,0)="389.9^AIVDT0^MUMPS"
^DD(389.9,.02,1,2,1)="I $P(^VA(389.9,DA,0),U,3) S ^VA(389.9,""AIVDT"",$P(^(0),U,3),-X,DA)="""""
^DD(389.9,.02,1,2,2)="I $P(^VA(389.9,DA,0),U,3) K ^VA(389.9,""AIVDT"",$P(^(0),U,3),-X,DA)"
^DD(389.9,.02,1,2,"DT")="2911107"
^DD(389.9,.02,1,3,0)="389.9^AIVDT10^MUMPS"
^DD(389.9,.02,1,3,1)="I $P(^VA(389.9,DA,0),U,5) S ^VA(389.9,""AIVDT1"",$E($P(^(0),U,5),1,30),-X,DA)="""""
^DD(389.9,.02,1,3,2)="I $P(^VA(389.9,DA,0),U,5) K ^VA(389.9,""AIVDT1"",$E($P(^(0),U,5),1,30),-X,DA)"
^DD(389.9,.02,1,3,"DT")="2911107"
^DD(389.9,.02,21,0)="^^5^5^2920717^^"
^DD(389.9,.02,21,1,0)="This is the effective date of the station number for this division.  If"
^DD(389.9,.02,21,2,0)="you are creating a new division with a new station number then the entry"
^DD(389.9,.02,21,3,0)="for this division should be sufficient.  If your medical center is changing"
^DD(389.9,.02,21,4,0)="station numbers then an entry for this effective date is required for all"
^DD(389.9,.02,21,5,0)="medical center divisions."
^DD(389.9,.02,"DT")="2911107"
^DD(389.9,.03,0)="MEDICAL CENTER DIVISION^P40.8'^DG(40.8,^0;3^Q"
^DD(389.9,.03,1,0)="^.1"
^DD(389.9,.03,1,1,0)="389.9^C"
^DD(389.9,.03,1,1,1)="S ^VA(389.9,""C"",$E(X,1,30),DA)="""""
^DD(389.9,.03,1,1,2)="K ^VA(389.9,""C"",$E(X,1,30),DA)"
^DD(389.9,.03,1,1,"DT")="2911107"
^DD(389.9,.03,1,2,0)="389.9^AIVDT^MUMPS"
^DD(389.9,.03,1,2,1)="I $P(^VA(389.9,DA,0),U,2) S ^VA(389.9,""AIVDT"",$E(X,1,30),-$P(^(0),U,2),DA)="""""
^DD(389.9,.03,1,2,2)="I $P(^VA(389.9,DA,0),U,2) K ^VA(389.9,""AIVDT"",$E(X,1,30),-$P(^(0),U,2),DA)"
^DD(389.9,.03,1,2,"DT")="2911107"
^DD(389.9,.03,21,0)="^^4^4^2920717^^"
^DD(389.9,.03,21,1,0)="This is the medical center division that you want to create a station"
^DD(389.9,.03,21,2,0)="number entry for.  You must create one entry for each medical center "
^DD(389.9,.03,21,3,0)="division.  If you are changing station numbers then one entry for each"
^DD(389.9,.03,21,4,0)="division is required for the new effective date."
^DD(389.9,.03,"DT")="2920716"
^DD(389.9,.04,0)="STATION NUMBER^RF^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X"
^DD(389.9,.04,1,0)="^.1"
^DD(389.9,.04,1,1,0)="389.9^D"
^DD(389.9,.04,1,1,1)="S ^VA(389.9,""D"",$E(X,1,30),DA)="""""
^DD(389.9,.04,1,1,2)="K ^VA(389.9,""D"",$E(X,1,30),DA)"
^DD(389.9,.04,1,1,"DT")="2911107"
^DD(389.9,.04,3)="This is the full station number and suffix.  Answer must be 3-7 characters in length."
^DD(389.9,.04,21,0)="^^2^2^2920717^^^"
^DD(389.9,.04,21,1,0)="This is the 3 digit station number, if this divison has a suffix then"
^DD(389.9,.04,21,2,0)="this is the station number and the suffix."
^DD(389.9,.04,"DT")="2920210"
^DD(389.9,.05,0)="IS PRIMARY DIVISION^FXO^^0;5^I $D(X) D YN^VASITE I $D(X) K:$L(X)>1!($L(X)<1)!'(X?1""1"") X"
^DD(389.9,.05,1,0)="^.1"
^DD(389.9,.05,1,1,0)="389.9^AIVDT1^MUMPS"
^DD(389.9,.05,1,1,1)="I $P(^VA(389.9,DA,0),""^"",2) S ^VA(389.9,""AIVDT1"",X,-$P(^(0),""^"",2),DA)="""""
^DD(389.9,.05,1,1,2)="I $P(^VA(389.9,DA,0),""^"",2) K ^VA(389.9,""AIVDT1"",X,-$P(^(0),""^"",2),DA)"
^DD(389.9,.05,1,1,"DT")="2911107"
^DD(389.9,.05,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(389.9,.05,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(389.9,.05,3)="Answer 'Yes' if this is the primary station number for this date.  Only 1 entry may be a primary station number for a date."
^DD(389.9,.05,21,0)="^^5^5^2980623^^"
^DD(389.9,.05,21,1,0)="Each station has one primary divison.  This normally is the divison where"
^DD(389.9,.05,21,2,0)="the station number is 3 numberic characters with no suffix.  If this is the"
^DD(389.9,.05,21,3,0)="primary division then this field should be set to 'YES'."
^DD(389.9,.05,21,4,0)=" "
^DD(389.9,.05,21,5,0)="Only one division may be the primary division at a time."
^DD(389.9,.05,"DT")="2911108"
^DD(389.9,.06,0)="INACTIVE^S^1:YES - INACTIVE;0:NO - ACTIVE;^0;6^Q"
^DD(389.9,.06,21,0)="^^4^4^2920717^"
^DD(389.9,.06,21,1,0)="This field is used to inactivate a station number.  A new entry for a"
^DD(389.9,.06,21,2,0)="station number for the date it became inactive is required, and this"
^DD(389.9,.06,21,3,0)="field should be made set to 'YES' for the entry that inactivates the"
^DD(389.9,.06,21,4,0)="station number."
^DD(389.9,.06,"DT")="2911107"
^DD(389.9,.07,0)="OTHER INSTITUTION^*P4'^DIC(4,^0;7^S DIC(""S"")=""I '$P(^VA(389.9,DA,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(389.9,.07,12)="Other institution can only be used if this is not a Medical Center Division!"
^DD(389.9,.07,12.1)="S DIC(""S"")=""I '$P(^VA(389.9,DA,0),U,3)"""
^DD(389.9,.07,21,0)="^^7^7^2911108^"
^DD(389.9,.07,21,1,0)="If this entry in the Station Number file is for a station that is not"
^DD(389.9,.07,21,2,0)="a Medical Center Division then this is the institution pointer to this "
^DD(389.9,.07,21,3,0)="entry."
^DD(389.9,.07,21,4,0)=" "
^DD(389.9,.07,21,5,0)="This field isn't currently used but could be used for possibly Record"
^DD(389.9,.07,21,6,0)="Tracking, Outpatient Pharmacy CMOP's, or Reference Lab work and others"
^DD(389.9,.07,21,7,0)="if only I knew what else to do with it."
^DD(389.9,.07,"DT")="2911108"
^DD(389.9,17000,0)="INTEGRATION NAME^F^^INTEG;1^K:$L(X)>80!($L(X)<3) X"
^DD(389.9,17000,3)="Answer must be 3-80 characters in length."
^DD(389.9,17000,21,0)="^^1^1^2980129^"
^DD(389.9,17000,21,1,0)="This will be used for the new name for sites that have integrated."
^DD(389.9,17000,"DT")="2980129"
^DD(389.9,"B","EFFECTIVE DATE",.02)=""
^DD(389.9,"B","INACTIVE",.06)=""
^DD(389.9,"B","INTEGRATION NAME",17000)=""
^DD(389.9,"B","IS PRIMARY DIVISION",.05)=""
^DD(389.9,"B","MEDICAL CENTER DIVISION",.03)=""
^DD(389.9,"B","OTHER INSTITUTION",.07)=""
^DD(389.9,"B","REFERENCE NUMBER",.01)=""
^DD(389.9,"B","STATION NUMBER",.04)=""
^DD(389.9,"GL",0,1,.01)=""
^DD(389.9,"GL",0,2,.02)=""
^DD(389.9,"GL",0,3,.03)=""
^DD(389.9,"GL",0,4,.04)=""
^DD(389.9,"GL",0,5,.05)=""
^DD(389.9,"GL",0,6,.06)=""
^DD(389.9,"GL",0,7,.07)=""
^DD(389.9,"GL","INTEG",1,17000)=""
^DD(389.9,"IX",.01)=""
^DD(389.9,"IX",.02)=""
^DD(389.9,"IX",.03)=""
^DD(389.9,"IX",.04)=""
^DD(389.9,"IX",.05)=""
^DD(389.9,"RQ",.01)=""
^DD(389.9,"RQ",.04)=""
^DD(391,0)="FIELD^^200^34"
^DD(391,0,"DT")="2920422"
^DD(391,0,"IX","B",391,.01)=""
^DD(391,0,"NM","TYPE OF PATIENT")=""
^DD(391,0,"PT",2,391)=""
^DD(391,0,"VR")="5.3"
^DD(391,0,"VRPK")="DG"
^DD(391,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(391,.01,1,0)="^.1"
^DD(391,.01,1,1,0)="391^B"
^DD(391,.01,1,1,1)="S ^DG(391,""B"",$E(X,1,30),DA)="""""
^DD(391,.01,1,1,2)="K ^DG(391,""B"",$E(X,1,30),DA)"
^DD(391,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(391,.01,21,0)="^^3^3^2911112^"
^DD(391,.01,21,1,0)="This field contains the names of the various types of patients seen at"
^DD(391,.01,21,2,0)="VA facilities.  This file should not be added to or altered or it could"
^DD(391,.01,21,3,0)="affect daily operations of the MAS software."
^DD(391,.02,0)="IGNORE VETERAN CHECKS?^RS^0:NO;1:YES;^0;2^Q"
^DD(391,.02,21,0)="^^4^4^2911112^"
^DD(391,.02,21,1,0)="If this particular type of patient is non-veteran, but the patient can"
^DD(391,.02,21,2,0)="respond to questions meant for veterans, respond yes.  An example would"
^DD(391,.02,21,3,0)="be MILITARY RETIREE.  These patients are seen as non-veterans, but may"
^DD(391,.02,21,4,0)="have veteran periods of service, prisoner of war dates, etc."
^DD(391,.03,0)="*INFO TO ASK^RF^^0;3^K:$L(X)>40!($L(X)<1)!'(X?.N) X"
^DD(391,.03,.1)="INFO TO ASK"
^DD(391,.03,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(391,.03,21,0)="^^2^2^2911112^"
^DD(391,.03,21,1,0)="This field is no longer used by the MAS package.  It will be removed in"
^DD(391,.03,21,2,0)="a future release."
^DD(391,.03,"DT")="2911112"
^DD(391,.04,0)="MAKE RECORD SENSITIVE?^S^1:YES;0:NO;^0;4^Q"
^DD(391,.04,3)="Answer YES if you want this record automatically made sensitive when using the registration screens."
^DD(391,.04,21,0)="^^4^4^2911112^"
^DD(391,.04,21,1,0)="If it is desirable to automatically make a record sensitive if the patient"
^DD(391,.04,21,2,0)="has this patient type, answer yes here.  An example would be EMPLOYEE.  Any"
^DD(391,.04,21,3,0)="record for a patient added to your system with a patient type of EMPLOYEE"
^DD(391,.04,21,4,0)="will automatically be recorded as sensitive in the security system."
^DD(391,.04,"DT")="2880929"
^DD(391,.05,0)="VETERAN?^RS^0:NO;1:YES;^0;5^Q"
^DD(391,.05,1,0)="^.1"
^DD(391,.05,1,1,0)="^^TRIGGER^391^9"
^DD(391,.05,1,1,1)="X ^DD(391,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DG(391,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(391,.05,1,1,1.4)"
^DD(391,.05,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(391,.05,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""YES"""
^DD(391,.05,1,1,1.4)="S DIH=$S($D(^DG(391,DIV(0),""S"")):^(""S""),1:""""),DIV=X S $P(^(""S""),U,9)=DIV,DIH=391,DIG=9 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(391,.05,1,1,2)="Q"
^DD(391,.05,1,1,"%D",0)="^^2^2^2920325^"
^DD(391,.05,1,1,"%D",1,0)="This trigger will automatically stuff YES into the SHOW INCOME SCREENING"
^DD(391,.05,1,1,"%D",2,0)="SCREEN field if this field (VETERAN?) is answered YES."
^DD(391,.05,1,1,"CREATE CONDITION")="VETERAN?=""YES"""
^DD(391,.05,1,1,"CREATE VALUE")="S X=1"
^DD(391,.05,1,1,"DELETE VALUE")="NO EFFECT"
^DD(391,.05,1,1,"DT")="2920325"
^DD(391,.05,1,1,"FIELD")="SHOW INCOME SCREENING SCREEN"
^DD(391,.05,3)="Enter 1 (or yes) if patients of this type are veterans.  Otherwise, respond 0 (or no)."
^DD(391,.05,21,0)="^^5^5^2920615^^"
^DD(391,.05,21,1,0)="Enter YES (or 1) at this prompt if patients of this patient type are"
^DD(391,.05,21,2,0)="veterans.  Respond NO otherwise.  This information is necessary to"
^DD(391,.05,21,3,0)="determine whether certain screens may be turned off.  If this is a"
^DD(391,.05,21,4,0)="non-veteran patient type, but patients with this patient type COULD be"
^DD(391,.05,21,5,0)="veterans, respond YES to the IGNORE VETERAN CHECKS? prompt (field .02)."
^DD(391,.05,"DT")="2920325"
^DD(391,3,0)="SHOW CONTACT SCREEN?^S^0:NO;1:YES;^S;3^Q"
^DD(391,3,21,0)="^^3^3^2911112^"
^DD(391,3,21,1,0)="Answer yes if you would like to have the contact screen displayed for any"
^DD(391,3,21,2,0)="patient of this patient type.  This screen contains names and addresses of"
^DD(391,3,21,3,0)="next of kin, emergency contacts, and designees."
^DD(391,3,"DT")="2880531"
^DD(391,4,0)="*SHOW EMPLOYMENT SCREEN?^S^0:NO;1:YES;^S;4^Q"
^DD(391,4,.1)="SHOW EMPLOYMENT SCREEN?"
^DD(391,4,3)="This field is no longer used.  The employment screen will now for all patients."
^DD(391,4,21,0)="^^4^4^2920324^^^"
^DD(391,4,21,1,0)="This field is no longer used by the MAS package.  Due to the increased"
^DD(391,4,21,2,0)="need for employment data due to billing, the employment screen can no"
^DD(391,4,21,3,0)="longer be turned off.  This field will be removed in a future release of"
^DD(391,4,21,4,0)="the MAS package."
^DD(391,4,"DT")="2920324"
^DD(391,5,0)="*SHOW INSURANCE SCREEN?^S^0:NO;1:YES;^S;5^Q"
^DD(391,5,.1)="SHOW INSURANCE SCREEN?"
^DD(391,5,3)=""
^DD(391,5,21,0)="^^2^2^2911112^"
^DD(391,5,21,1,0)="This field is no longer used by the MAS package (the insurance screen is"
^DD(391,5,21,2,0)="now displayed for ALL patients).  It will be removed in a future release."
^DD(391,5,"DT")="2911112"
^DD(391,6,0)="SHOW SERVICE SCREEN?^S^0:NO;1:YES;^S;6^Q"
^DD(391,6,3)=""
^DD(391,6,21,0)="^^6^6^2911112^"
^DD(391,6,21,1,0)="Answer yes if you would like the service screen to display for all patients"
^DD(391,6,21,2,0)="added to your system with this patient type.  The service record screen"
^DD(391,6,21,3,0)="contains data about service history, prisoner of war status, combat,"
^DD(391,6,21,4,0)="Vietnam service, agent orange and ionizing radiation exposure, military"
^DD(391,6,21,5,0)="retirement/disability, and service dental history.  For non-veterans, you"
^DD(391,6,21,6,0)="may choose not to display this screen."
^DD(391,6,"DT")="2880531"
^DD(391,7,0)="*SHOW MONETARY SCREEN?^S^0:NO;1:YES;^S;7^Q"
^DD(391,7,.1)="SHOW MONETARY SCREEN?"
^DD(391,7,3)=""
^DD(391,7,21,0)="^^2^2^2911112^"
^DD(391,7,21,1,0)="This field is no longer used by the MAS package.  It will be removed in a"
^DD(391,7,21,2,0)="future version of MAS."
^DD(391,7,"DT")="2911112"
^DD(391,7,"V",0)="^.12P"
^DD(391,8,0)="SHOW FAMILY INFO SCREEN^RSX^0:NO;1:YES;^S;8^D FAMINF^DGRPDD"
^DD(391,8,3)="Enter yes to display the family demographic screen during registration."
^DD(391,8,21,0)="^^7^7^2920422^^"
^DD(391,8,21,1,0)="To display the family demographic screen during registration (screen 8),"
^DD(391,8,21,2,0)="respond yes here.  You must answer yes for NSC patients as income screening"
^DD(391,8,21,3,0)="is required for all non-service connected veterans.  You may chose to"
^DD(391,8,21,4,0)="show this screen for service connected patients or non-veterans."
^DD(391,8,21,5,0)=" "
^DD(391,8,21,6,0)="The family demographic screen holds the name, SSN, date of birth, and"
^DD(391,8,21,7,0)="sex for all dependents of the patient."
^DD(391,8,"DT")="2920629"
^DD(391,8.2,0)="ID FORMAT^P8.2'^DIC(8.2,^8.2;1^Q"
^DD(391,8.2,21,0)="^^3^3^2911112^"
^DD(391,8.2,21,1,0)="This field contains a pointer to the IDENTIFICATION FORMAT file (#8.2)."
^DD(391,8.2,21,2,0)="This field will contain the default ID format for all patients with this"
^DD(391,8.2,21,3,0)="patient type.  For most VA purposes, this will be the SSN."
^DD(391,8.2,"DT")="2891106"
^DD(391,9,0)="SHOW INCOME SCREENING SCREEN^SX^0:NO;1:YES;^S;9^D INCSCR^DGRPDD"
^DD(391,9,3)="Enter yes if you want the income screening screen to show for all patients of this patient type."
^DD(391,9,5,1,0)="391^.05^1"
^DD(391,9,21,0)="^^7^7^2920325^^^^"
^DD(391,9,21,1,0)="Enter yes if the income screening screen should be displayed for this type"
^DD(391,9,21,2,0)="of patient.  Answer no otherwise.  You will be unable to edit this question"
^DD(391,9,21,3,0)="if the VETERAN? prompt (field .05) is answered yes.  This data must be"
^DD(391,9,21,4,0)="collected for all veterans seen.  This screen will contain information"
^DD(391,9,21,5,0)="on a patient's income for the previous calendar year.  It will also"
^DD(391,9,21,6,0)="contain information on the patient's spouse and dependents.  This data"
^DD(391,9,21,7,0)="will, in turn, be used for IRS matching."
^DD(391,9,"DT")="2920629"
^DD(391,10,0)="SHOW INELIGIBLE SCREEN^S^0:NO;1:YES;^S;10^Q"
^DD(391,10,3)=""
^DD(391,10,21,0)="^^3^3^2920325^^^"
^DD(391,10,21,1,0)="Enter yes if you wish the ineligible data screen to show for all"
^DD(391,10,21,2,0)="patients of this patient type.  This screen contains information on the"
^DD(391,10,21,3,0)="a patient's ineligibility for care and data on missing patients."
^DD(391,10,"DT")="2920325"
^DD(391,11,0)="SHOW VERIFICATION SCREEN?^S^0:NO;1:YES;^S;11^Q"
^DD(391,11,3)="If you want users to be able to see the verification screen for this type of patient, answer yes.  Otherwise, respond no."
^DD(391,11,21,0)="^^4^4^2920325^"
^DD(391,11,21,1,0)="Enter yes if you wish the service verification screen to show for all"
^DD(391,11,21,2,0)="patients of this patient type.  This screen contains information on the"
^DD(391,11,21,3,0)="verification of eligility and service record data.  It also contains"
^DD(391,11,21,4,0)="data on VA rated disabilities."
^DD(391,11,"DT")="2920325"
^DD(391,41,0)="*EDIT APPLICANT EMPLOYER?^S^0:NO;1:YES;^E;41^Q"
^DD(391,41,.1)="EDIT APPLICANT EMPLOYER?"
^DD(391,41,3)=""
^DD(391,41,21,0)="^^3^3^2911112^"
^DD(391,41,21,1,0)="Respond yes if you want users to be able to edit the employer data for"
^DD(391,41,21,2,0)="the applicant (veteran).  If you say no, this information will appear on"
^DD(391,41,21,3,0)="the screen display, but will not be editable."
^DD(391,41,"DT")="2920326"
^DD(391,42,0)="*EDIT SPOUSE'S EMPLOYER?^S^0:NO;1:YES;^E;42^Q"
^DD(391,42,.1)="EDIT SPOUSE'S EMPLOYER"
^DD(391,42,3)=""
^DD(391,42,21,0)="^^3^3^2911112^"
^DD(391,42,21,1,0)="Respond yes if you want users to be able to edit the spouse's employer"
^DD(391,42,21,2,0)="information for this type of patient.  If you say no, this information"
^DD(391,42,21,3,0)="will appear on the screen display, but will not be editable."
^DD(391,42,"DT")="2920326"
^DD(391,61,0)="*EDIT SERVICE HISTORY?^S^0:NO;1:YES;^E;61^Q"
^DD(391,61,3)=""
^DD(391,61,21,0)="^^3^3^2911112^"
^DD(391,61,21,1,0)="Enter yes if you wish to allow users to edit the service history data for"
^DD(391,61,21,2,0)="this type of patient.  If you say no, this information will appear on the"
^DD(391,61,21,3,0)="screen display, but will not be editable."
^DD(391,61,"DT")="2920423"
^DD(391,62,0)="*EDIT PRISONER OF WAR DATA?^S^0:NO;1:YES;^E;62^Q"
^DD(391,62,3)=""
^DD(391,62,21,0)="^^4^4^2911112^"
^DD(391,62,21,1,0)="Enter yes if you wish to allow users to edit the prisoner of war data"
^DD(391,62,21,2,0)="(from/to dates, where imprisoned, etc.) for this type of patient.  If you"
^DD(391,62,21,3,0)="say no, this information will appear on the screen display, but will not"
^DD(391,62,21,4,0)="be editable."
^DD(391,62,"DT")="2920423"
^DD(391,63,0)="*EDIT COMBAT DATA?^S^0:NO;1:YES;^E;63^Q"
^DD(391,63,3)=""
^DD(391,63,21,0)="^^4^4^2911112^"
^DD(391,63,21,1,0)="Enter yes if you want the users to be able to edit combat data for patients"
^DD(391,63,21,2,0)="of this type.  This data includes combat from/to dates as well as where the"
^DD(391,63,21,3,0)="combat occurred.  If you respond no, this data will appear on the screen,"
^DD(391,63,21,4,0)="but will not be editable."
^DD(391,63,"DT")="2920423"
^DD(391,64,0)="*EDIT VIETNAM SERVICE DATA?^S^0:NO;1:YES;^E;64^Q"
^DD(391,64,3)=""
^DD(391,64,21,0)="^^4^4^2911112^"
^DD(391,64,21,1,0)="Enter yes if you want users to be able to edit Vietnam service data for"
^DD(391,64,21,2,0)="patients of this type.  This data includes the dates from and to which the"
^DD(391,64,21,3,0)="veteran served in Vietnam.  If you respond no, this data will appear on the"
^DD(391,64,21,4,0)="screen, but will be uneditable."
^DD(391,64,"DT")="2920423"
^DD(391,65,0)="*EDIT AGENT ORANGE DATA?^S^0:NO;1:YES;^E;65^Q"
^DD(391,65,3)=""
^DD(391,65,21,0)="^^4^4^2911112^"
^DD(391,65,21,1,0)="Enter yes if you want users to be able to edit agent orange exposure data"
^DD(391,65,21,2,0)="for patients of this type.  This data includes the dates of test for AO"
^DD(391,65,21,3,0)="exposure.  If you respond no, this data will appear on the screen, but"
^DD(391,65,21,4,0)="will be uneditable."
^DD(391,65,"DT")="2920423"
^DD(391,66,0)="*EDIT RADIATION EXPOSURE DATA?^S^0:NO;1:YES;^E;66^Q"
^DD(391,66,3)=""
^DD(391,66,21,0)="^^4^4^2911112^"
^DD(391,66,21,1,0)="Enter yes if you want to be able to edit radiation exposure data for"
^DD(391,66,21,2,0)="patients with this patient type.  This data includes dates of test for"
^DD(391,66,21,3,0)="radiation.  If you respond no, this data will appear on the screen, but"
^DD(391,66,21,4,0)="will be uneditable."
^DD(391,66,"DT")="2920423"
^DD(391,67,0)="*EDIT MILITARY DISABILITY DATA^S^0:NO;1:YES;^E;67^Q"
^DD(391,67,3)=""
^DD(391,67,21,0)="^^3^3^2911112^"
^DD(391,67,21,1,0)="Enter yes if you want the users to be able to edit data relating to"
^DD(391,67,21,2,0)="military disability for patients of this type.  If you respond no, the"
^DD(391,67,21,3,0)="data element will appear on the screen, but will not be editable."
^DD(391,67,"DT")="2920423"
^DD(391,68,0)="*EDIT DENTAL HISTORY DATA?^S^1:YES;0:NO;^E;68^Q"
^DD(391,68,21,0)="^^3^3^2911112^"
^DD(391,68,21,1,0)="Enter yes if you want users to be able to edit data relating to dental"
^DD(391,68,21,2,0)="history in service if the patient is of this type.  If you respond no,"
^DD(391,68,21,3,0)="the data element will appear on the screen, but will not be editable."
^DD(391,68,"DT")="2920423"
^DD(391,71,0)="*EDIT VA MONETARY BENEFITS?^S^0:NO;1:YES;^E;71^Q"
^DD(391,71,.1)="EDIT VA MONETARY BENEFITS?"
^DD(391,71,3)=""
^DD(391,71,21,0)="^^2^2^2911112^"
^DD(391,71,21,1,0)="This field is no longer used by the MAS package and will be removed in"
^DD(391,71,21,2,0)="a future version."
^DD(391,71,"DT")="2911112"
^DD(391,72,0)="*EDIT OTHER MONETARY BENEFITS?^S^0:NO;1:YES;^E;72^Q"
^DD(391,72,.1)="EDIT OTHER MONETARY BENEFITS?"
^DD(391,72,3)=""
^DD(391,72,21,0)="^^2^2^2911112^"
^DD(391,72,21,1,0)="This field is no longer used by the MAS package and will be removed in a"
^DD(391,72,21,2,0)="future version."
^DD(391,72,"DT")="2911112"
^DD(391,74,0)="EDIT SC CONDITIONS PER PT?^S^0:NO;1:YES;^E;74^Q"
^DD(391,74,3)="Enter YES if you want to allow the user to edit SC conditions as stated by the applicant."
^DD(391,74,21,0)="^^4^4^2911204^^^"
^DD(391,74,21,1,0)="If the user should be allowed to edit SC conditions as stated by the"
^DD(391,74,21,2,0)="applicant for patients of this patient type, answer yes here.  Otherwise"
^DD(391,74,21,3,0)="respond no.  This data appears on registration screen 7 (Eligibility"
^DD(391,74,21,4,0)="Status Data)."
^DD(391,74,"DT")="2911204"
^DD(391,83,0)="*EDIT SC CONDITIONS PER PT?^S^0:NO;1:YES;^E;83^Q"
^DD(391,83,.1)="EDIT SC CONDITIONS PER PT?"
^DD(391,83,3)=""
^DD(391,83,21,0)="^^11^11^2911113^^"
^DD(391,83,21,1,0)="Respond yes if you want to give users the ability to edit service"
^DD(391,83,21,2,0)="conditions as stated by the patient for patients of this patient type.  If"
^DD(391,83,21,3,0)="you respond no, the question will appear on the screen, but it will not"
^DD(391,83,21,4,0)="be editable."
^DD(391,83,21,5,0)=" "
^DD(391,83,21,6,0)=" "
^DD(391,83,21,7,0)="Note:  Due to a change in screen numbering, this field is being *'d for"
^DD(391,83,21,8,0)="       deletion and will no longer be used (affective with installation"
^DD(391,83,21,9,0)="       of this version).  A new field 73 has been added which is the"
^DD(391,83,21,10,0)="       same prompt.  This is in keeping with the present field numbering"
^DD(391,83,21,11,0)="       sequence."
^DD(391,83,"DT")="2911113"
^DD(391,91,0)="*EDIT INELIGIBLE DATA?^S^0:NO;1:YES;^E;91^Q"
^DD(391,91,.1)="EDIT INELIGIBLE DATA?"
^DD(391,91,3)=""
^DD(391,91,21,0)="^^3^3^2911112^"
^DD(391,91,21,1,0)="Enter yes if you want users to be allowed to edit data about a patients"
^DD(391,91,21,2,0)="eligibility for patients of this patient type.  If you respond no, the"
^DD(391,91,21,3,0)="question will appear on the screen, but it will not be editable."
^DD(391,91,"DT")="2920325"
^DD(391,92,0)="*EDIT MISSING DATA?^S^0:NO;1:YES;^E;92^Q"
^DD(391,92,.1)="EDIT MISSING DATA?"
^DD(391,92,3)=""
^DD(391,92,21,0)="^^3^3^2911112^"
^DD(391,92,21,1,0)="Enter yes if you want the user to be allowed to edit data on missing"
^DD(391,92,21,2,0)="veterans for patients of this patient type.  If you respond no, the"
^DD(391,92,21,3,0)="question will appear on the screen, but will not be editable."
^DD(391,92,"DT")="2920325"
^DD(391,101,0)="EDIT INELIGIBLE DATA?^S^0:NO;1:YES;^E10;1^Q"
^DD(391,101,3)="Enter yes if you want users to be allowed to edit data about a patients ineligiblility for care."
^DD(391,101,21,0)="^^4^4^2920325^^"
^DD(391,101,21,1,0)="If, when editing data for patients of this type, you want users to be able"
^DD(391,101,21,2,0)="edit data about a patient's ineligibility for care, respond yes here."
^DD(391,101,21,3,0)="If you respond no, the data will display on the screen, but will not be"
^DD(391,101,21,4,0)="editable by the users."
^DD(391,101,23,0)="^^4^4^2920325^^"
^DD(391,101,23,1,0)="This data has been placed on the E10 node.  Because FM does not allow"
^DD(391,101,23,2,0)="more than 100 pieces on a node, it must be kept on a separate node.  The"
^DD(391,101,23,3,0)="registration code will have to check if screen number is 10 or greater"
^DD(391,101,23,4,0)="and check the E10 node rather than the E node."
^DD(391,101,"DT")="2920325"
^DD(391,102,0)="EDIT MISSING DATA?^S^0:NO;1:YES;^E10;2^Q"
^DD(391,102,3)="If you want users to be able to edit the missing data for patients of thsi type, answer yes."
^DD(391,102,21,0)="^^3^3^2920325^"
^DD(391,102,21,1,0)="If, for patients of the specified patient type, you want users to be able"
^DD(391,102,21,2,0)="to edit data about missing veterans, answer yes.  If you respond no, the"
^DD(391,102,21,3,0)="user will see the screen, but will not be able to edit the missing data."
^DD(391,102,23,0)="^^8^8^2920325^"
^DD(391,102,23,1,0)="Because FM will not allow more than 100 pieces on a node, editable items"
^DD(391,102,23,2,0)="on screen 10 or greater had to be moved to the new E10 node.  The fields"
^DD(391,102,23,3,0)="were numbered so that the field number was equal to screen#_item# and the"
^DD(391,102,23,4,0)="piece position on the node was equal to the field number.  Because the"
^DD(391,102,23,5,0)="missing data is on screen 10, it is not possible to put it on the same"
^DD(391,102,23,6,0)="node (because there can not be more than 100 pieces).  Registration will"
^DD(391,102,23,7,0)="need to check to see if the screen is 10 or greater and, if so, look at"
^DD(391,102,23,8,0)="this new node."
^DD(391,102,"DT")="2920325"
^DD(391,200,0)="NEW PATIENT INPUT DR^FX^^DR;E1,240^W:$S('$D(DUZ(0)):1,DUZ(0)'=""@"":1,1:0) !?5,""Must have Programmer Access!!! "" K:$S('$D(DUZ(0)):1,DUZ(0)'=""@"":1,1:0) X I $D(X) K:$L(X)>240!($L(X)<2) X I $D(X) D ^DIM"
^DD(391,200,3)="Enter the fields (DR string) to be asked for new patients of this type who are entered into the system.  Must have programmer access!!"
^DD(391,200,8.5)="@"
^DD(391,200,9)="@"
^DD(391,200,21,0)="^^8^8^2911112^"
^DD(391,200,21,1,0)="This field contains a line of code which sets the variable DR for use in"
^DD(391,200,21,2,0)="a filemanager enter/edit (DIE) call.  In order to add to this field or"
^DD(391,200,21,3,0)="edit what is in it, you must have programmer mode."
^DD(391,200,21,4,0)=" "
^DD(391,200,21,5,0)="This DR string should contain a listing of the fields you wish to ask"
^DD(391,200,21,6,0)="whenever a patient of this patient type is added to the system.  These"
^DD(391,200,21,7,0)="fields would be in addition to the prompts normally given for NAME, SSN,"
^DD(391,200,21,8,0)="DOB, VET?, etc.  If blank, only the standard questions will be asked."
^DD(391,200,"DT")="2910601"
^DD(391,"B","*EDIT AGENT ORANGE DATA?",65)=""
^DD(391,"B","*EDIT APPLICANT EMPLOYER?",41)=""
^DD(391,"B","*EDIT COMBAT DATA?",63)=""
^DD(391,"B","*EDIT DENTAL HISTORY DATA?",68)=""
^DD(391,"B","*EDIT INELIGIBLE DATA?",91)=""
^DD(391,"B","*EDIT MILITARY DISABILITY DATA",67)=""
^DD(391,"B","*EDIT MISSING DATA?",92)=""
^DD(391,"B","*EDIT OTHER MONETARY BENEFITS?",72)=""
^DD(391,"B","*EDIT PRISONER OF WAR DATA?",62)=""
^DD(391,"B","*EDIT RADIATION EXPOSURE DATA?",66)=""
^DD(391,"B","*EDIT SC CONDITIONS PER PT?",83)=""
^DD(391,"B","*EDIT SERVICE HISTORY?",61)=""
^DD(391,"B","*EDIT SPOUSE'S EMPLOYER?",42)=""
^DD(391,"B","*EDIT VA MONETARY BENEFITS?",71)=""
^DD(391,"B","*EDIT VIETNAM SERVICE DATA?",64)=""
^DD(391,"B","*INFO TO ASK",.03)=""
^DD(391,"B","*SHOW EMPLOYMENT SCREEN?",4)=""
^DD(391,"B","*SHOW INSURANCE SCREEN?",5)=""
^DD(391,"B","*SHOW MONETARY SCREEN?",7)=""
^DD(391,"B","EDIT APPLICANT EMPLOYER?",41)="1"
^DD(391,"B","EDIT INELIGIBLE DATA?",91)="1"
^DD(391,"B","EDIT INELIGIBLE DATA?",101)=""
^DD(391,"B","EDIT MISSING DATA?",92)="1"
^DD(391,"B","EDIT MISSING DATA?",102)=""
^DD(391,"B","EDIT OTHER MONETARY BENEFITS?",72)="1"
^DD(391,"B","EDIT SC CONDITIONS PER PT?",74)=""
^DD(391,"B","EDIT SC CONDITIONS PER PT?",83)="1"
^DD(391,"B","EDIT SPOUSE'S EMPLOYER",42)="1"
^DD(391,"B","EDIT VA MONETARY BENEFITS?",71)="1"
^DD(391,"B","ID FORMAT",8.2)=""
^DD(391,"B","IGNORE VETERAN CHECKS?",.02)=""
^DD(391,"B","INFO TO ASK",.03)="1"
^DD(391,"B","MAKE RECORD SENSITIVE?",.04)=""
^DD(391,"B","NAME",.01)=""
^DD(391,"B","NEW PATIENT INPUT DR",200)=""
^DD(391,"B","SHOW CONTACT SCREEN?",3)=""
^DD(391,"B","SHOW EMPLOYMENT SCREEN?",4)="1"
^DD(391,"B","SHOW FAMILY INFO SCREEN",8)=""
^DD(391,"B","SHOW INCOME SCREENING SCREEN",9)=""
^DD(391,"B","SHOW INELIGIBLE SCREEN",10)=""
^DD(391,"B","SHOW INSURANCE SCREEN?",5)="1"
^DD(391,"B","SHOW MONETARY SCREEN?",7)="1"
^DD(391,"B","SHOW SERVICE SCREEN?",6)=""
^DD(391,"B","SHOW VERIFICATION SCREEN?",11)=""
^DD(391,"B","VETERAN?",.05)=""
^DD(391,"GL",0,1,.01)=""
^DD(391,"GL",0,2,.02)=""
^DD(391,"GL",0,3,.03)=""
^DD(391,"GL",0,4,.04)=""
^DD(391,"GL",0,5,.05)=""
^DD(391,"GL",8.2,1,8.2)=""
^DD(391,"GL","DR","E1,240",200)=""
^DD(391,"GL","E",41,41)=""
^DD(391,"GL","E",42,42)=""
^DD(391,"GL","E",61,61)=""
^DD(391,"GL","E",62,62)=""
^DD(391,"GL","E",63,63)=""
^DD(391,"GL","E",64,64)=""
^DD(391,"GL","E",65,65)=""
^DD(391,"GL","E",66,66)=""
^DD(391,"GL","E",67,67)=""
^DD(391,"GL","E",68,68)=""
^DD(391,"GL","E",71,71)=""
^DD(391,"GL","E",72,72)=""
^DD(391,"GL","E",74,74)=""
^DD(391,"GL","E",83,83)=""
^DD(391,"GL","E",91,91)=""
^DD(391,"GL","E",92,92)=""
^DD(391,"GL","E10",1,101)=""
^DD(391,"GL","E10",2,102)=""
^DD(391,"GL","S",3,3)=""
^DD(391,"GL","S",4,4)=""
^DD(391,"GL","S",5,5)=""
^DD(391,"GL","S",6,6)=""
^DD(391,"GL","S",7,7)=""
^DD(391,"GL","S",8,8)=""
^DD(391,"GL","S",9,9)=""
^DD(391,"GL","S",10,10)=""
^DD(391,"GL","S",11,11)=""
^DD(391,"IX",.01)=""
^DD(391,"IX",.05)=""
^DD(391,"RQ",.01)=""
^DD(391,"RQ",.02)=""
^DD(391,"RQ",.03)=""
^DD(391,"RQ",.05)=""
^DD(391,"RQ",8)=""
^DD(391.1,0)="FIELD^^50^5"
^DD(391.1,0,"DT")="2920331"
^DD(391.1,0,"IX","B",391.1,.01)=""
^DD(391.1,0,"NM","AMIS SEGMENT")=""
^DD(391.1,0,"PT",2.101,17)=""
^DD(391.1,0,"VR")="5.3"
^DD(391.1,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>5000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(391.1,.001,3)="Type a Number between 1 and 5000, 0 Decimal Digits"
^DD(391.1,.001,21,0)="^^2^2^2930525^^^^"
^DD(391.1,.001,21,1,0)="This field is for storing the internal reference number of the AMIS"
^DD(391.1,.001,21,2,0)="Segment as it is created."
^DD(391.1,.001,23,0)="^^1^1^2930525^^"
^DD(391.1,.001,23,1,0)="This is the AMIS segment number (e.g. 401)."
^DD(391.1,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(391.1,.01,1,0)="^.1"
^DD(391.1,.01,1,1,0)="391.1^B"
^DD(391.1,.01,1,1,1)="S ^DG(391.1,""B"",$E(X,1,30),DA)="""""
^DD(391.1,.01,1,1,2)="K ^DG(391.1,""B"",$E(X,1,30),DA)"
^DD(391.1,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(391.1,.01,21,0)="^^2^2^2930525^^^^"
^DD(391.1,.01,21,1,0)="This field stores the name of the AMIS Segment added to the file, e.g."
^DD(391.1,.01,21,2,0)="100% SC VETERANS."
^DD(391.1,.01,23,0)="^^3^3^2930525^^"
^DD(391.1,.01,23,1,0)="This is the text description of the AMIS Segment.  This is pointed to by the"
^DD(391.1,.01,23,2,0)="AMIS 420 SEGMENT field of the DISPOSITION LOG-IN DATE/TIME multiple of"
^DD(391.1,.01,23,3,0)="the PATIENT File."
^DD(391.1,.02,0)="INACTIVE^S^0:NO;1:YES;^0;2^Q"
^DD(391.1,.02,3)="Enter '1' if this segment should not be selectable."
^DD(391.1,.02,21,0)="^^3^3^2930525^^^"
^DD(391.1,.02,21,1,0)="This field entry indicates whether or not the specified AMIS Segment"
^DD(391.1,.02,21,2,0)="has been inactivated.  It is a set of codes where '0' stands for NO"
^DD(391.1,.02,21,3,0)="and '1' stands for YES."
^DD(391.1,.02,23,0)="^^3^3^2930525^"
^DD(391.1,.02,23,1,0)="This field indicates whether or not the AMIS Segment has been inactivated."
^DD(391.1,.02,23,2,0)="Note that the INACTIVATION DATE field (#.03) is alternatively used to "
^DD(391.1,.02,23,3,0)="determine the activation status, based on the date."
^DD(391.1,.02,"DT")="2880204"
^DD(391.1,.03,0)="INACTIVATION DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(391.1,.03,3)="This field should not be modified unless directed by your ISC."
^DD(391.1,.03,21,0)="^^1^1^2930525^^^"
^DD(391.1,.03,21,1,0)="This field stores the date/time on which the AMIS Segment is inactivated."
^DD(391.1,.03,23,0)="^^2^2^2930525^"
^DD(391.1,.03,23,1,0)="Some AMIS Segments were inactivated as of a given date.  Prior to this "
^DD(391.1,.03,23,2,0)="date, the segment is active.  After the date it is not (e.g. AMIS 419)."
^DD(391.1,.03,"DT")="2920331"
^DD(391.1,50,0)="DIVISION^391.11P^^D;0"
^DD(391.1,50,21,0)="^^4^4^2930811^^^^"
^DD(391.1,50,21,1,0)="This multiple contains information entered for each AMIS Segment, including"
^DD(391.1,50,21,2,0)="the Division and REPORT MONTH/YEAR multiple."
^DD(391.1,50,21,3,0)=" "
^DD(391.1,50,21,4,0)="These fields should not be enter/edited via FM without ISC guidance."
^DD(391.1,50,23,0)="^^6^6^2930811^^^^"
^DD(391.1,50,23,1,0)="This multiple is a pointer to the MEDICAL CENTER DIVISION FILE (#40.8)."
^DD(391.1,50,23,2,0)="It contains a multiple, REPORT MONTH/YEAR (#391.12).  As such, data is"
^DD(391.1,50,23,3,0)="stored with the hierarchy of AMIS Segment, then Division, then MONTH/YEAR."
^DD(391.1,50,23,4,0)="This entire multiple will be created by the AMIS 400 report generation"
^DD(391.1,50,23,5,0)="if a patient is dispositioned from this division.  The division is"
^DD(391.1,50,23,6,0)="DINUMed with the Medical Center Division File."
^DD(391.1,"B","DIVISION",50)=""
^DD(391.1,"B","INACTIVATION DATE",.03)=""
^DD(391.1,"B","INACTIVE",.02)=""
^DD(391.1,"B","NAME",.01)=""
^DD(391.1,"B","NUMBER",.001)=""
^DD(391.1,"GL",0,1,.01)=""
^DD(391.1,"GL",0,2,.02)=""
^DD(391.1,"GL",0,3,.03)=""
^DD(391.1,"GL","D",0,50)=""
^DD(391.1,"IX",.01)=""
^DD(391.1,"RQ",.01)=""
^DD(391.1,"SB",391.11,50)=""
^DD(391.11,0)="DIVISION SUB-FIELD^^50^2"
^DD(391.11,0,"IX","B",391.11,.01)=""
^DD(391.11,0,"NM","DIVISION")=""
^DD(391.11,0,"UP")="391.1"
^DD(391.11,.01,0)="DIVISION^P40.8'^DG(40.8,^0;1^Q"
^DD(391.11,.01,1,0)="^.1"
^DD(391.11,.01,1,1,0)="391.11^B"
^DD(391.11,.01,1,1,1)="S ^DG(391.1,DA(1),""D"",""B"",$E(X,1,30),DA)="""""
^DD(391.11,.01,1,1,2)="K ^DG(391.1,DA(1),""D"",""B"",$E(X,1,30),DA)"
^DD(391.11,.01,3)="This data should not be enter/edited via FM without your ISC's direction."
^DD(391.11,.01,21,0)="^^1^1^2930525^^^"
^DD(391.11,.01,21,1,0)="This is a pointer to the MEDICAL CENTER DIVISION FILE (#40.8)."
^DD(391.11,.01,23,0)="^^1^1^2930525^^^"
^DD(391.11,.01,23,1,0)="This is a pointer to the MEDICAL CENTER DIVISION FILE (#40.8)."
^DD(391.11,.01,"DT")="2880204"
^DD(391.11,50,0)="REPORT MONTH/YEAR^391.12D^^MY;0"
^DD(391.11,50,21,0)="^^2^2^2930525^^^^"
^DD(391.11,50,21,1,0)="This multiple contains the monthly AMIS report data.  This data should not be"
^DD(391.11,50,21,2,0)="changed without the direction of your ISC."
^DD(391.11,50,23,0)="^^2^2^2930525^^^^"
^DD(391.11,50,23,1,0)="This multiple contains the monthly AMIS report data and status fields"
^DD(391.11,50,23,2,0)="to help manage the generation of the report data."
^DD(391.11,50,"DT")="2930525"
^DD(391.11,"B","DIVISION",.01)=""
^DD(391.11,"B","REPORT MONTH/YEAR",50)=""
^DD(391.11,"GL",0,1,.01)=""
^DD(391.11,"GL","MY",0,50)=""
^DD(391.11,"IX",.01)=""
^DD(391.11,"SB",391.12,50)=""
^DD(391.12,0)="REPORT MONTH/YEAR SUB-FIELD^^40^46"
^DD(391.12,0,"IX","AR",391.12,.01)=""
^DD(391.12,0,"NM","REPORT MONTH/YEAR")=""
^DD(391.12,0,"UP")="391.11"
^DD(391.12,.01,0)="REPORT MONTH/YEAR^DX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:'+$E(X,4,5) X I $D(X) S X=$E(X,1,5)_""00"",DINUM=X"
^DD(391.12,.01,1,0)="^.1"
^DD(391.12,.01,1,1,0)="391.12^AR^MUMPS"
^DD(391.12,.01,1,1,1)="S ^DG(391.1,""AR"",X,DA(2),DA(1))="""""
^DD(391.12,.01,1,1,2)="K ^DG(391.1,""AR"",X,DA(2),DA(1))"
^DD(391.12,.01,3)="This contains the month/year of the AMIS report."
^DD(391.12,.01,21,0)="^^2^2^2930525^^^^"
^DD(391.12,.01,21,1,0)="This is the month/year of the AMIS report.  This data should not be changed  "
^DD(391.12,.01,21,2,0)="the direction of your ISC."
^DD(391.12,.01,23,0)="^^1^1^2930525^^^"
^DD(391.12,.01,23,1,0)="This is the month/year of the AMIS report."
^DD(391.12,.01,"DT")="2890225"
^DD(391.12,.02,0)="ORIGINALLY CREATED BY^RP200'^VA(200,^0;2^Q"
^DD(391.12,.02,3)="Name of user who initially generated report."
^DD(391.12,.02,21,0)="^^2^2^2930525^^"
^DD(391.12,.02,21,1,0)="This field contains the a pointer to the person who initially"
^DD(391.12,.02,21,2,0)="generated the report."
^DD(391.12,.02,23,0)="^^1^1^2930525^"
^DD(391.12,.02,23,1,0)="This is a pointer to the NEW PERSON File."
^DD(391.12,.02,"DT")="2901017"
^DD(391.12,.03,0)="DATE ORIGINALLY CREATED^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(391.12,.03,3)="The date on which this report was originally generated."
^DD(391.12,.03,21,0)="^^1^1^2930525^^"
^DD(391.12,.03,21,1,0)="This field contains the date this report was initially created."
^DD(391.12,.03,23,0)="^^1^1^2930525^"
^DD(391.12,.03,23,1,0)="This field is used to manage AMIS report generation."
^DD(391.12,.03,"DT")="2880204"
^DD(391.12,.04,0)="LAST GENERATED BY^RP200'^VA(200,^0;4^Q"
^DD(391.12,.04,3)="Name of person who last generated this report."
^DD(391.12,.04,21,0)="^^1^1^2930525^^^^"
^DD(391.12,.04,21,1,0)="This field contains the name of the person who last generated this report."
^DD(391.12,.04,23,0)="^^1^1^2930525^^"
^DD(391.12,.04,23,1,0)="This field is used to manage AMIS report generation."
^DD(391.12,.04,"DT")="2901017"
^DD(391.12,.05,0)="DATE LAST GENERATED^RD^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(391.12,.05,3)="The date on which this report was last generated."
^DD(391.12,.05,21,0)="^^1^1^2930525^^"
^DD(391.12,.05,21,1,0)="This field contains the last date on which this report was generated."
^DD(391.12,.05,23,0)="^^1^1^2930525^"
^DD(391.12,.05,23,1,0)="This is used to manage AMIS report generation."
^DD(391.12,.05,"DT")="2880204"
^DD(391.12,.06,0)="BALANCE FLAG^S^1:AMIS SEGMENTS IN BALANCE;0:AMIS SEGMENTS OUT OF BALANCE;^0;6^Q"
^DD(391.12,.06,3)="This should not be edited without the direction of your ISC."
^DD(391.12,.06,21,0)="^^1^1^2930525^^^"
^DD(391.12,.06,21,1,0)="This flag indicates if the AMIS segment is in/out of balance."
^DD(391.12,.06,23,0)="^^3^3^2930525^^"
^DD(391.12,.06,23,1,0)="This is a data validation check.  AMIS reports summarize patient data;"
^DD(391.12,.06,23,2,0)="this field will indicate that the AMIS is out of balance if the data"
^DD(391.12,.06,23,3,0)="are inconsistent."
^DD(391.12,.06,"DT")="2901101"
^DD(391.12,1,0)="NUMBER OF APPLICATIONS^RNJ4,0^^A1;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,1,21,0)="^^2^2^2930525^^^"
^DD(391.12,1,21,1,0)="This field contains the Number of Applications (e.g. for AMIS 401, the"
^DD(391.12,1,21,2,0)="number of SC 100% veterans who applied for care)."
^DD(391.12,1,23,0)="^^2^2^2930525^^"
^DD(391.12,1,23,1,0)="This is a counter field for the number of applications, for a given"
^DD(391.12,1,23,2,0)="AMIS Segment."
^DD(391.12,1,"DT")="2880204"
^DD(391.12,2,0)="HOSP CARE RECEIVED^RNJ4,0^^A1;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,2,21,0)="^^2^2^2930525^^^^"
^DD(391.12,2,21,1,0)="This field contains the total number of patients that received"
^DD(391.12,2,21,2,0)="Hospital Care."
^DD(391.12,2,23,0)="^^2^2^2930525^^^^"
^DD(391.12,2,23,1,0)="This is the number of patients whose AMIS 401-420 Disposition group is"
^DD(391.12,2,23,2,0)="'Hosp Admit'."
^DD(391.12,3,0)="HOSP WAIT LIST^RNJ4,0^^A1;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,3,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,3,21,0)="^^2^2^2930525^^^"
^DD(391.12,3,21,1,0)="This field contains the total number of patients that are on"
^DD(391.12,3,21,2,0)="the Hospital waiting list."
^DD(391.12,3,23,0)="^^2^2^2930525^^"
^DD(391.12,3,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,3,23,2,0)="Disposition Group is ""Hosp W/L""."
^DD(391.12,4,0)="NHCU CARE RECEIVED^RNJ4,0^^A1;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,4,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,4,21,0)="^^2^2^2930525^^"
^DD(391.12,4,21,1,0)="This field contains the total number of patients who received care on"
^DD(391.12,4,21,2,0)="the Nursing Home Care Unit."
^DD(391.12,4,23,0)="^^2^2^2930525^^"
^DD(391.12,4,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,4,23,2,0)="Disposition Group is ""NHCU Admit""."
^DD(391.12,5,0)="NHCU WAIT LIST^RNJ4,0^^A1;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,5,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,5,21,0)="^^2^2^2930525^^"
^DD(391.12,5,21,1,0)="This field contains the number of patients who are on the waiting list"
^DD(391.12,5,21,2,0)="for the Nursing Home Care Unit."
^DD(391.12,5,23,0)="^^2^2^2930525^^"
^DD(391.12,5,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,5,23,2,0)="Disposition Group is ""NHCU W/L""."
^DD(391.12,6,0)="DOMICILIARY CARE RECEIVED^RNJ4,0^^A1;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,6,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,6,21,0)="^^2^2^2930525^^"
^DD(391.12,6,21,1,0)="This field contains the number of patients that were dispositioned"
^DD(391.12,6,21,2,0)="to recieve domiciliary care."
^DD(391.12,6,23,0)="^^2^2^2930525^^"
^DD(391.12,6,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,6,23,2,0)="Disposition Group is ""Dom Admit""."
^DD(391.12,7,0)="DOM WAIT LIST^RNJ4,0^^A1;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,7,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,7,21,0)="^^2^2^2930525^^"
^DD(391.12,7,21,1,0)="This field contains the number of applications that were dispositioned"
^DD(391.12,7,21,2,0)="as DOMICILIARY WAITING LIST."
^DD(391.12,7,23,0)="^^2^2^2930525^^"
^DD(391.12,7,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,7,23,2,0)="Group is ""Dom W/L""."
^DD(391.12,8,0)="OUTPATIENT CARE RECEIVED^RNJ4,0^^A1;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,8,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,8,21,0)="1^^1^1^2930525^"
^DD(391.12,8,21,1,0)="This field contains the number of patients who received outpatient care."
^DD(391.12,8,23,0)="^^5^5^2930525^"
^DD(391.12,8,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,8,23,2,0)="Group is ""OP Care Rec"".  It also includes patients who have been "
^DD(391.12,8,23,3,0)="dispositioned to something other than ""Ineligible"", ""Low Priority"", or "
^DD(391.12,8,23,4,0)="""Trt Mo Unavail"" but whose AMIS Disposition Group is one of the "
^DD(391.12,8,23,5,0)="following: a) Community b) Fee Basis c) Other d) OP Care Rec e) Other VA."
^DD(391.12,9,0)="EXAMINED, NO FURTHER CARE^RNJ4,0^^A1;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,9,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,9,21,0)="^^1^1^2930525^"
^DD(391.12,9,21,1,0)="This field contains the number of patients for whom no care is required."
^DD(391.12,9,23,0)="^^2^2^2930525^"
^DD(391.12,9,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,9,23,2,0)="Group is ""No Care Req""."
^DD(391.12,10,0)="CANCELLED^RNJ4,0^^A1;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,10,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,10,21,0)="^^2^2^2930525^"
^DD(391.12,10,21,1,0)="This field contains the number of patients whose disposition was"
^DD(391.12,10,21,2,0)="cancelled."
^DD(391.12,10,23,0)="^^2^2^2930525^"
^DD(391.12,10,23,1,0)="This field contains the total number of patients whose AMIS 401-420"
^DD(391.12,10,23,2,0)="Group is ""Cancel""."
^DD(391.12,11,0)="INELIG-DENTAL^RNJ4,0^^A1;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,11,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,11,21,0)="^^2^2^2930525^"
^DD(391.12,11,21,1,0)="This field contains the number of patients who applied for dental care"
^DD(391.12,11,21,2,0)="and are ineligible."
^DD(391.12,11,23,0)="^^2^2^2930525^"
^DD(391.12,11,23,1,0)="This is one of the two ineligible types and who have a TYPE OF CARE"
^DD(391.12,11,23,2,0)="APPLIED FOR of 'Dental'."
^DD(391.12,12,0)="INELIG-PLASTIC SURGERY^RNJ4,0^^A1;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,12,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,12,21,0)="^^2^2^2930525^"
^DD(391.12,12,21,1,0)="This field contains the number of patients who applied for plastic"
^DD(391.12,12,21,2,0)="surgery and are ineligible."
^DD(391.12,12,23,0)="^^3^3^2930525^"
^DD(391.12,12,23,1,0)="This field contians the number of patients whose disposition type is"
^DD(391.12,12,23,2,0)="one of the two ineligible types and who have a TYPE OF CARE APPLIED"
^DD(391.12,12,23,3,0)="FOR of 'Plastic Surgery'."
^DD(391.12,13,0)="INELIG-STERILIZATION^RNJ4,0^^A1;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,13,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,13,21,0)="^^2^2^2930525^"
^DD(391.12,13,21,1,0)="This field contains the number of patients who applied for sterilization"
^DD(391.12,13,21,2,0)="and are ineligible."
^DD(391.12,13,23,0)="^^3^3^2930525^"
^DD(391.12,13,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,13,23,2,0)="of the two ineligible types and whose TYPE OF CARE APPLIED FOR is"
^DD(391.12,13,23,3,0)="'Sterilization'."
^DD(391.12,14,0)="INELIG-PREGNANCY^RNJ4,0^^A1;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,14,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,14,21,0)="^^2^2^2930525^"
^DD(391.12,14,21,1,0)="This field contains the number of patients who applied for pregnancy"
^DD(391.12,14,21,2,0)="care but are ineligible."
^DD(391.12,14,23,0)="^^3^3^2930525^"
^DD(391.12,14,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,14,23,2,0)="of the two ineligible types and whose TYPE OF CARE APPLIED FOR is"
^DD(391.12,14,23,3,0)="'Pregnancy'."
^DD(391.12,15,0)="INELIG-OTHER^RNJ4,0^^A1;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,15,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,15,21,0)="^^3^3^2930525^"
^DD(391.12,15,21,1,0)="This field contains the number of patients who applied for care other "
^DD(391.12,15,21,2,0)="than dental, plastic surgery, sterilization or pregnancy and are"
^DD(391.12,15,21,3,0)="ineligible."
^DD(391.12,15,23,0)="^^3^3^2930525^"
^DD(391.12,15,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,15,23,2,0)="of the two ineligible types and whose TYPE OF CARE APPLIED FOR is"
^DD(391.12,15,23,3,0)="not 'Dental', 'Plastic Surgery', 'Sterilization', or 'Pregnancy'."
^DD(391.12,16,0)="INELIG-HOSP CARE^RNJ4,0^^A1;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,16,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,16,21,0)="^^2^2^2930525^^"
^DD(391.12,16,21,1,0)="This field contains the number of patients who applied for hospital care"
^DD(391.12,16,21,2,0)="and are ineligible."
^DD(391.12,16,23,0)="^^3^3^2930525^^"
^DD(391.12,16,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,16,23,2,0)="of the two ineligible types and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,16,23,3,0)="'Hospital'."
^DD(391.12,17,0)="INELIG-NHCU CARE^RNJ4,0^^A1;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,17,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,17,21,0)="^^2^2^2930525^"
^DD(391.12,17,21,1,0)="This field contains the number of patients who applied for care on"
^DD(391.12,17,21,2,0)="the Nursing Home Care Unit and are ineligible."
^DD(391.12,17,23,0)="^^3^3^2930525^"
^DD(391.12,17,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,17,23,2,0)="of the two ineligible types and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,17,23,3,0)="'Nursing Home'."
^DD(391.12,18,0)="INELIG-DOMICILIARY CARE^RNJ4,0^^A1;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,18,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,18,21,0)="^^2^2^2930525^^^"
^DD(391.12,18,21,1,0)="This field contains the number of patients who applied for domiciliary care"
^DD(391.12,18,21,2,0)="and are ineligible."
^DD(391.12,18,23,0)="^^3^3^2930525^"
^DD(391.12,18,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,18,23,2,0)="of the two ineligible types and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,18,23,3,0)="'Domiciliary'."
^DD(391.12,19,0)="INELIG-OPT CARE^RNJ4,0^^A1;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,19,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,19,21,0)="^^2^2^2930525^"
^DD(391.12,19,21,1,0)="This field contains the number of patients who applied for outpatient"
^DD(391.12,19,21,2,0)="care are are ineligible."
^DD(391.12,19,23,0)="^^3^3^2930525^"
^DD(391.12,19,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,19,23,2,0)="of the two ineligible types and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,19,23,3,0)="other than 'Hospital', ""Nursing Home', or 'Domiciliary'."
^DD(391.12,20,0)="INELIG-TO COMMUNITY^RNJ4,0^^A1;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,20,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,20,21,0)="^^2^2^2930525^"
^DD(391.12,20,21,1,0)="This field contains the number of patients who are ineligible and were"
^DD(391.12,20,21,2,0)="dispositioned to the community."
^DD(391.12,20,23,0)="^^3^3^2930525^"
^DD(391.12,20,23,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,20,23,2,0)="'Ineligible-Disp Community'.  The disposition group must be defined"
^DD(391.12,20,23,3,0)="as ""Community"" or this will be counted as Block 20."
^DD(391.12,21,0)="INELIG-TO OTHER^RNJ4,0^^A1;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,21,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,21,21,0)="^^2^2^2930525^^"
^DD(391.12,21,21,1,0)="This field contains the number of patients are ineligible for care but"
^DD(391.12,21,21,2,0)="where not dispositioned to the community."
^DD(391.12,21,23,0)="^^3^3^2930525^^"
^DD(391.12,21,23,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,21,23,2,0)="'Ineligible-Disp Other'.  The disposition group must be defined"
^DD(391.12,21,23,3,0)="as 'Other'."
^DD(391.12,22,0)="TRT MOD UNAVAIL-HOSP^RNJ4,0^^A1;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,22,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,22,21,0)="^^2^2^2930525^^^"
^DD(391.12,22,21,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,22,21,2,0)="unavailable and whose TYPE OF BENEFIT IS 'Hospital'."
^DD(391.12,22,23,0)="^^2^2^2930525^^^"
^DD(391.12,22,23,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,22,23,2,0)="unavailable and whose TYPE OF BENEFIT IS'Hospital'."
^DD(391.12,23,0)="TRT MOD UNAVAIL-NHCU^RNJ4,0^^A1;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,23,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,23,21,0)="^^3^3^2930525^^"
^DD(391.12,23,21,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,23,21,2,0)="unavailable and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,23,21,3,0)="'Nursing Home'."
^DD(391.12,23,23,0)="^^3^3^2930525^^"
^DD(391.12,23,23,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,23,23,2,0)="unavailable and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,23,23,3,0)="'Nursing Home'."
^DD(391.12,24,0)="TRT MOD UNAVAIL-DOM^RNJ4,0^^A1;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,24,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,24,21,0)="^^3^3^2930525^^"
^DD(391.12,24,21,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,24,21,2,0)="unavailable and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,24,21,3,0)="'Domiciliary'."
^DD(391.12,24,23,0)="^^3^3^2930525^^"
^DD(391.12,24,23,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,24,23,2,0)="unavailable and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,24,23,3,0)="'Domiciliary'."
^DD(391.12,25,0)="TRT MOD UNAVAIL-OPT^RNJ4,0^^A1;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,25,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,25,21,0)="^^3^3^2930525^^^"
^DD(391.12,25,21,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,25,21,2,0)="unavailable and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,25,21,3,0)="other than 'Hospital', 'Nursing Home', or 'Domiciliary'."
^DD(391.12,25,23,0)="^^3^3^2930525^^"
^DD(391.12,25,23,1,0)="This field contains the number of patients whose treatment modality is"
^DD(391.12,25,23,2,0)="unavailable and whose TYPE OF BENEFIT APPLIED FOR is"
^DD(391.12,25,23,3,0)="other than 'Hospital', 'Nursing Home', or 'Domiciliary'."
^DD(391.12,26,0)="TRT MOD UNAVAIL-TO COMMUNITY^RNJ4,0^^A1;26^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,26,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,26,21,0)="^^4^4^2930525^^^"
^DD(391.12,26,21,1,0)="This field contains the number of patients whose "
^DD(391.12,26,21,2,0)="disposition type is"
^DD(391.12,26,21,3,0)="'Trt Mod Unavail-Disp"
^DD(391.12,26,21,4,0)=" Community'."
^DD(391.12,26,23,0)="^^4^4^2930525^^^"
^DD(391.12,26,23,1,0)="This field contains the number of patients whose "
^DD(391.12,26,23,2,0)="disposition type is"
^DD(391.12,26,23,3,0)="'Trt Mod Unavail-Disp "
^DD(391.12,26,23,4,0)="Community.  Note that the Disposition Group must be defined as 'Community'."
^DD(391.12,27,0)="TRT MOD UNAVAIL-OTHER VA^RNJ4,0^^A1;27^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,27,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,27,21,0)="^^3^3^2930525^"
^DD(391.12,27,21,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,27,21,2,0)="'TRT MOD UNAVAIL-DISP OTHER VA'.  Note that the Disposition Group must"
^DD(391.12,27,21,3,0)="be defined as 'Other VA""."
^DD(391.12,27,23,0)="^^3^3^2930525^"
^DD(391.12,27,23,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,27,23,2,0)="'TRT MOD UNAVAIL-DISP OTHER VA'.  Note that the Disposition Group must"
^DD(391.12,27,23,3,0)="be defined as 'Other VA""."
^DD(391.12,27,"DT")="2941213"
^DD(391.12,28,0)="TRT MOD UNAVAIL-TO FEE^RNJ4,0^^A1;28^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,28,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,28,21,0)="^^3^3^2930525^"
^DD(391.12,28,21,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,28,21,2,0)="'TRT MOD UNAVAIL-DISP FEE BASIS'.  Note that the Disposition Group"
^DD(391.12,28,21,3,0)="must be defined as 'FEE BASIS'."
^DD(391.12,28,23,0)="^^3^3^2930525^"
^DD(391.12,28,23,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,28,23,2,0)="'TRT MOD UNAVAIL-DISP FEE BASIS'.  Note that the Disposition Group"
^DD(391.12,28,23,3,0)="must be defined as 'FEE BASIS'."
^DD(391.12,29,0)="TRT MOD UNAVAIL-TO OTHER^RNJ4,0^^A1;29^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,29,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,29,21,0)="^^3^3^2930525^"
^DD(391.12,29,21,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,29,21,2,0)="'TRT MOD UNAVAIL-DISP OTHER'.  Note that the Disposition Group must "
^DD(391.12,29,21,3,0)="be defined as 'Other'."
^DD(391.12,29,23,0)="^^3^3^2930525^"
^DD(391.12,29,23,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,29,23,2,0)="'TRT MOD UNAVAIL-DISP OTHER'.  Note that the Disposition Group must "
^DD(391.12,29,23,3,0)="be defined as 'Other'."
^DD(391.12,30,0)="LOW PRIORITY-HOSP CARE^RNJ4,0^^A1;30^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,30,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,30,21,0)="^^3^3^2930525^"
^DD(391.12,30,21,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,30,21,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,30,21,3,0)="'Hospital'."
^DD(391.12,30,23,0)="^^3^3^2930525^"
^DD(391.12,30,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,30,23,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,30,23,3,0)="'Hospital'."
^DD(391.12,31,0)="LOW PRIORITY-NHCU CARE^RNJ4,0^^A1;31^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,31,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,31,21,0)="^^3^3^2930525^"
^DD(391.12,31,21,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,31,21,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,31,21,3,0)="'Nursing Home'."
^DD(391.12,31,23,0)="^^3^3^2930525^"
^DD(391.12,31,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,31,23,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,31,23,3,0)="'Nursing Home'."
^DD(391.12,32,0)="LOW PRIORITY-DOM CARE^RNJ4,0^^A1;32^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,32,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,32,21,0)="^^3^3^2930525^^"
^DD(391.12,32,21,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,32,21,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,32,21,3,0)="'Domiciliary'."
^DD(391.12,32,23,0)="^^3^3^2930525^^"
^DD(391.12,32,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,32,23,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,32,23,3,0)="'Domiciliary'."
^DD(391.12,33,0)="LOW PRIORITY-OPT CARE^RNJ4,0^^A1;33^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,33,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,33,21,0)="^^3^3^2930525^"
^DD(391.12,33,21,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,33,21,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,33,21,3,0)="other than 'Hospital', 'Nursing Home', or 'Domiciliary'."
^DD(391.12,33,23,0)="^^3^3^2930525^"
^DD(391.12,33,23,1,0)="This field contains the number of patients whose disposition type is one"
^DD(391.12,33,23,2,0)="of the four Low Priority types and whose TYPE OF BENEFIT IS"
^DD(391.12,33,23,3,0)="other than 'Hospital', 'Nursing Home', or 'Domiciliary'."
^DD(391.12,34,0)="LOW PRIORITY-TO COMMUNITY^RNJ4,0^^A1;34^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,34,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,34,21,0)="^^3^3^2930525^"
^DD(391.12,34,21,1,0)="This field contains the number of patients "
^DD(391.12,34,21,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,34,21,3,0)="COMMUNITY'."
^DD(391.12,34,23,0)="^^3^3^2930525^"
^DD(391.12,34,23,1,0)="This field contains the number of patients "
^DD(391.12,34,23,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,34,23,3,0)="COMMUNITY'."
^DD(391.12,35,0)="LOW PRIORITY-TO OTHER VA^RNJ4,0^^A1;35^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,35,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,35,21,0)="^^3^3^2930525^"
^DD(391.12,35,21,1,0)="This field contains the number of patients "
^DD(391.12,35,21,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,35,21,3,0)="OTHER VA'."
^DD(391.12,35,23,0)="^^3^3^2930525^"
^DD(391.12,35,23,1,0)="This field contains the number of patients "
^DD(391.12,35,23,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,35,23,3,0)="OTHER VA'."
^DD(391.12,36,0)="LOW PRIORITY-TO FEE^RNJ4,0^^A1;36^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,36,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,36,21,0)="^^3^3^2930525^^^^"
^DD(391.12,36,21,1,0)="This field contains the number of patients "
^DD(391.12,36,21,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,36,21,3,0)="FEE BASIS'."
^DD(391.12,36,23,0)="^^3^3^2930525^^^"
^DD(391.12,36,23,1,0)="This field contains the number of patients "
^DD(391.12,36,23,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,36,23,3,0)="FEE BASIS'."
^DD(391.12,37,0)="LOW PRIORITY-TO OTHER^RNJ4,0^^A1;37^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,37,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,37,21,0)="^^3^3^2930525^^"
^DD(391.12,37,21,1,0)="This field contains the number of patients "
^DD(391.12,37,21,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,37,21,3,0)="OTHER'."
^DD(391.12,37,23,0)="^^3^3^2930525^^"
^DD(391.12,37,23,1,0)="This field contains the number of patients "
^DD(391.12,37,23,2,0)="whose disposition type is 'LOW PRIORITY-DISP"
^DD(391.12,37,23,3,0)="OTHER'."
^DD(391.12,38,0)="PENDING DETERMINATION^RNJ4,0^^A1;38^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,38,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,38,21,0)="^^2^2^2930525^^"
^DD(391.12,38,21,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,38,21,2,0)="'PENDING DETERMINATION'."
^DD(391.12,38,23,0)="^^2^2^2930525^^"
^DD(391.12,38,23,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,38,23,2,0)="'PENDING DETERMINATION'."
^DD(391.12,39,0)="WON'T PAY DEDUCTIBLE^RNJ4,0^^A1;39^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,39,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,39,21,0)="^^2^2^2930525^^"
^DD(391.12,39,21,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,39,21,2,0)="'REFUSED TO PAY DEDUCTIBLE'."
^DD(391.12,39,23,0)="^^2^2^2930525^^"
^DD(391.12,39,23,1,0)="This field contains the number of patients whose disposition type is"
^DD(391.12,39,23,2,0)="'REFUSED TO PAY DEDUCTIBLE'."
^DD(391.12,40,0)="NON-VETERAN APPLICANTS^RNJ4,0^^A1;40^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(391.12,40,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(391.12,40,21,0)="^^2^2^2930525^^"
^DD(391.12,40,21,1,0)="This field contains the total number of patients who were registered"
^DD(391.12,40,21,2,0)="with a NON-VETERAN eligibility code."
^DD(391.12,40,23,0)="^^3^3^2930525^^"
^DD(391.12,40,23,1,0)="Regardless of disposition type, registration type, etc. the total number"
^DD(391.12,40,23,2,0)="of patients who were registered with a NON-VETERAN eligibility code will"
^DD(391.12,40,23,3,0)="be displayed in this block - segment 420 only."
^DD(391.12,"B","BALANCE FLAG",.06)=""
^DD(391.12,"B","CANCELLED",10)=""
^DD(391.12,"B","DATE LAST GENERATED",.05)=""
^DD(391.12,"B","DATE ORIGINALLY CREATED",.03)=""
^DD(391.12,"B","DOM WAIT LIST",7)=""
^DD(391.12,"B","DOMICILIARY CARE RECEIVED",6)=""
^DD(391.12,"B","EXAMINED, NO FURTHER CARE",9)=""
^DD(391.12,"B","HOSP CARE RECEIVED",2)=""
^DD(391.12,"B","HOSP WAIT LIST",3)=""
^DD(391.12,"B","INELIG-DENTAL",11)=""
^DD(391.12,"B","INELIG-DOMICILIARY CARE",18)=""
^DD(391.12,"B","INELIG-HOSP CARE",16)=""
^DD(391.12,"B","INELIG-NHCU CARE",17)=""
^DD(391.12,"B","INELIG-OPT CARE",19)=""
^DD(391.12,"B","INELIG-OTHER",15)=""
^DD(391.12,"B","INELIG-PLASTIC SURGERY",12)=""
^DD(391.12,"B","INELIG-PREGNANCY",14)=""
^DD(391.12,"B","INELIG-STERILIZATION",13)=""
^DD(391.12,"B","INELIG-TO COMMUNITY",20)=""
^DD(391.12,"B","INELIG-TO OTHER",21)=""
^DD(391.12,"B","LAST GENERATED BY",.04)=""
^DD(391.12,"B","LOW PRIORITY-DOM CARE",32)=""
^DD(391.12,"B","LOW PRIORITY-HOSP CARE",30)=""
^DD(391.12,"B","LOW PRIORITY-NHCU CARE",31)=""
^DD(391.12,"B","LOW PRIORITY-OPT CARE",33)=""
^DD(391.12,"B","LOW PRIORITY-TO COMMUNITY",34)=""
^DD(391.12,"B","LOW PRIORITY-TO FEE",36)=""
^DD(391.12,"B","LOW PRIORITY-TO OTHER",37)=""
^DD(391.12,"B","LOW PRIORITY-TO OTHER VA",35)=""
^DD(391.12,"B","NHCU CARE RECEIVED",4)=""
^DD(391.12,"B","NHCU WAIT LIST",5)=""
^DD(391.12,"B","NON-VETERAN APPLICANTS",40)=""
^DD(391.12,"B","NUMBER OF APPLICATIONS",1)=""
^DD(391.12,"B","ORIGINALLY CREATED BY",.02)=""
^DD(391.12,"B","OUTPATIENT CARE RECEIVED",8)=""
^DD(391.12,"B","PENDING DETERMINATION",38)=""
^DD(391.12,"B","REPORT MONTH/YEAR",.01)=""
^DD(391.12,"B","TRT MOD UNAVAIL-DOM",24)=""
^DD(391.12,"B","TRT MOD UNAVAIL-HOSP",22)=""
^DD(391.12,"B","TRT MOD UNAVAIL-NHCU",23)=""
^DD(391.12,"B","TRT MOD UNAVAIL-OPT",25)=""
^DD(391.12,"B","TRT MOD UNAVAIL-OTHER VA",27)=""
^DD(391.12,"B","TRT MOD UNAVAIL-TO COMMUNITY",26)=""
^DD(391.12,"B","TRT MOD UNAVAIL-TO FEE",28)=""
^DD(391.12,"B","TRT MOD UNAVAIL-TO OTHER",29)=""
^DD(391.12,"B","WON'T PAY DEDUCTIBLE",39)=""
^DD(391.12,"GL",0,1,.01)=""
^DD(391.12,"GL",0,2,.02)=""
^DD(391.12,"GL",0,3,.03)=""
^DD(391.12,"GL",0,4,.04)=""
^DD(391.12,"GL",0,5,.05)=""
^DD(391.12,"GL",0,6,.06)=""
^DD(391.12,"GL","A1",1,1)=""
^DD(391.12,"GL","A1",2,2)=""
^DD(391.12,"GL","A1",3,3)=""
^DD(391.12,"GL","A1",4,4)=""
^DD(391.12,"GL","A1",5,5)=""
^DD(391.12,"GL","A1",6,6)=""
^DD(391.12,"GL","A1",7,7)=""
^DD(391.12,"GL","A1",8,8)=""
^DD(391.12,"GL","A1",9,9)=""
^DD(391.12,"GL","A1",10,10)=""
^DD(391.12,"GL","A1",11,11)=""
^DD(391.12,"GL","A1",12,12)=""
^DD(391.12,"GL","A1",13,13)=""
^DD(391.12,"GL","A1",14,14)=""
^DD(391.12,"GL","A1",15,15)=""
^DD(391.12,"GL","A1",16,16)=""
^DD(391.12,"GL","A1",17,17)=""
^DD(391.12,"GL","A1",18,18)=""
^DD(391.12,"GL","A1",19,19)=""
^DD(391.12,"GL","A1",20,20)=""
^DD(391.12,"GL","A1",21,21)=""
^DD(391.12,"GL","A1",22,22)=""
^DD(391.12,"GL","A1",23,23)=""
^DD(391.12,"GL","A1",24,24)=""
^DD(391.12,"GL","A1",25,25)=""
^DD(391.12,"GL","A1",26,26)=""
^DD(391.12,"GL","A1",27,27)=""
^DD(391.12,"GL","A1",28,28)=""
^DD(391.12,"GL","A1",29,29)=""
^DD(391.12,"GL","A1",30,30)=""
^DD(391.12,"GL","A1",31,31)=""
^DD(391.12,"GL","A1",32,32)=""
^DD(391.12,"GL","A1",33,33)=""
^DD(391.12,"GL","A1",34,34)=""
^DD(391.12,"GL","A1",35,35)=""
^DD(391.12,"GL","A1",36,36)=""
^DD(391.12,"GL","A1",37,37)=""
^DD(391.12,"GL","A1",38,38)=""
^DD(391.12,"GL","A1",39,39)=""
^DD(391.12,"GL","A1",40,40)=""
^DD(391.12,"IX",.01)=""
^DD(391.12,"RQ",.02)=""
^DD(391.12,"RQ",.03)=""
^DD(391.12,"RQ",.04)=""
^DD(391.12,"RQ",.05)=""
^DD(391.12,"RQ",1)=""
^DD(391.12,"RQ",2)=""
^DD(391.12,"RQ",3)=""
^DD(391.12,"RQ",4)=""
^DD(391.12,"RQ",5)=""
^DD(391.12,"RQ",6)=""
^DD(391.12,"RQ",7)=""
^DD(391.12,"RQ",8)=""
^DD(391.12,"RQ",9)=""
^DD(391.12,"RQ",10)=""
^DD(391.12,"RQ",11)=""
^DD(391.12,"RQ",12)=""
^DD(391.12,"RQ",13)=""
^DD(391.12,"RQ",14)=""
^DD(391.12,"RQ",15)=""
^DD(391.12,"RQ",16)=""
^DD(391.12,"RQ",17)=""
^DD(391.12,"RQ",18)=""
^DD(391.12,"RQ",19)=""
^DD(391.12,"RQ",20)=""
^DD(391.12,"RQ",21)=""
^DD(391.12,"RQ",22)=""
^DD(391.12,"RQ",23)=""
^DD(391.12,"RQ",24)=""
^DD(391.12,"RQ",25)=""
^DD(391.12,"RQ",26)=""
^DD(391.12,"RQ",27)=""
^DD(391.12,"RQ",28)=""
^DD(391.12,"RQ",29)=""
^DD(391.12,"RQ",30)=""
^DD(391.12,"RQ",31)=""
^DD(391.12,"RQ",32)=""
^DD(391.12,"RQ",33)=""
^DD(391.12,"RQ",34)=""
^DD(391.12,"RQ",35)=""
^DD(391.12,"RQ",36)=""
^DD(391.12,"RQ",37)=""
^DD(391.12,"RQ",38)=""
^DD(391.12,"RQ",39)=""
^DD(391.12,"RQ",40)=""
^DD(391.23,0)="FIELD^^5^6"
^DD(391.23,0,"DDA")="N"
^DD(391.23,0,"DT")="3040319"
^DD(391.23,0,"IX","B",391.23,.01)=""
^DD(391.23,0,"IX","D",391.23,5)=""
^DD(391.23,0,"NM","DG REGISTER ONCE FIELD DEFINITION")=""
^DD(391.23,0,"VR")="5.3"
^DD(391.23,0,"VRPK")="DG"
^DD(391.23,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(391.23,.01,.1)="Description of Field"
^DD(391.23,.01,1,0)="^.1"
^DD(391.23,.01,1,1,0)="391.23^B"
^DD(391.23,.01,1,1,1)="S ^DGRO(391.23,""B"",$E(X,1,30),DA)="""""
^DD(391.23,.01,1,1,2)="K ^DGRO(391.23,""B"",$E(X,1,30),DA)"
^DD(391.23,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(391.23,.01,"DT")="3040107"
^DD(391.23,1,0)="FILE NUMBER^RNJ13,5^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""6.N) X"
^DD(391.23,1,.1)="File Number of File"
^DD(391.23,1,3)="Type a number between 0 and 9999999, 5 Decimal Digits"
^DD(391.23,1,"DT")="3040413"
^DD(391.23,2,0)="FIELD NUMBER^RNJ15,6^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""7.N) X"
^DD(391.23,2,3)="Type a number between 0 and 99999999, 6 Decimal Digits"
^DD(391.23,2,"DT")="3040413"
^DD(391.23,3,0)="FIELD DESCRIPTION^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(391.23,3,3)="Answer must be 3-30 characters in length"
^DD(391.23,3,"DT")="3030827"
^DD(391.23,4,0)="Disable Field^S^0:No;1:Yes;^0;5^Q"
^DD(391.23,4,3)="Enter Yes to disable the entry of this field from the LST."
^DD(391.23,4,"DT")="3030718"
^DD(391.23,5,0)="ORDER INDEX^RF^^0;6^K:$L(X)>2!($L(X)<1)!'(X?1A.N) X"
^DD(391.23,5,1,0)="^.1^^-1"
^DD(391.23,5,1,1,0)="391.23^D"
^DD(391.23,5,1,1,1)="S ^DGRO(391.23,""D"",$E(X,1,30),DA)="""""
^DD(391.23,5,1,1,2)="K ^DGRO(391.23,""D"",$E(X,1,30),DA)"
^DD(391.23,5,1,1,3)="Do not delete."
^DD(391.23,5,1,1,"%D",0)="^.101^4^4^3040413^^^^"
^DD(391.23,5,1,1,"%D",1,0)="This cross reference is required to define the arrays passed between"
^DD(391.23,5,1,1,"%D",2,0)="FileMan calls in Register Once Messaging software.  The ORDER INDEX field"
^DD(391.23,5,1,1,"%D",3,0)="defines the order that groups of fields are loaded into the data base at"
^DD(391.23,5,1,1,"%D",4,0)="the Querying Site."
^DD(391.23,5,1,1,"DT")="3040322"
^DD(391.23,5,3)="Enter one Alpha character (mandatory) followed by 1 Numeric (optional)."
^DD(391.23,5,21,0)="^.001^5^5^3040413^^^^"
^DD(391.23,5,21,1,0)="This field indexes the order that data must be loaded into the respective"
^DD(391.23,5,21,2,0)="fields at the Querying Site."
^DD(391.23,5,21,3,0)=" "
^DD(391.23,5,21,4,0)="Is of the format 1 Alpha character followed by an optional Numeric"
^DD(391.23,5,21,5,0)="character."
^DD(391.23,5,23,0)="^.001^41^41^3040413^^^^"
^DD(391.23,5,23,1,0)="Referenced by Register Once Messaging routine which loads data returned"
^DD(391.23,5,23,2,0)="from the Last Site Treated into the Querying Site."
^DD(391.23,5,23,3,0)=" "
^DD(391.23,5,23,4,0)="Is of the format 1 Alpha character followed by an optional Numeric"
^DD(391.23,5,23,5,0)="character."
^DD(391.23,5,23,6,0)=" "
^DD(391.23,5,23,7,0)="With exception of the Patient file, Indices used must contain a"
^DD(391.23,5,23,8,0)="single file, only.  The Patient file can be referenced across"
^DD(391.23,5,23,9,0)="multiple indices to set order of entry for fields in that file."
^DD(391.23,5,23,10,0)="However, Register Once Messaging will not support other files"
^DD(391.23,5,23,11,0)="using multiple indices."
^DD(391.23,5,23,12,0)=" "
^DD(391.23,5,23,13,0)="The ORDER INDEX field must contain a letter and optionally may be"
^DD(391.23,5,23,14,0)="followed by a number.  The optional number is not used with initial"
^DD(391.23,5,23,15,0)="release but is allowed so that further levels of order may be added"
^DD(391.23,5,23,16,0)="within a specific ""letter group"" for the Patient file."
^DD(391.23,5,23,17,0)=" "
^DD(391.23,5,23,18,0)="The DG REGISTER ONCE FIELD DEFINITION file is released with ORDER"
^DD(391.23,5,23,19,0)="INDEX defined for each field.  Groups of fields in the Patient file"
^DD(391.23,5,23,20,0)="has been defined with upper case letters.  Fields in other files"
^DD(391.23,5,23,21,0)="have been defined with lower case letters.  This is done to support"
^DD(391.23,5,23,22,0)="greater expansion for entries in the Patient file.  Use of upper case"
^DD(391.23,5,23,23,0)="letters for fields in files other than the Patient file should be"
^DD(391.23,5,23,24,0)="avoided unless those fields are depended upon by Patient file fields."
^DD(391.23,5,23,25,0)=" "
^DD(391.23,5,23,26,0)="Reasons for the Constraints on defining ORDER INDEX values:"
^DD(391.23,5,23,27,0)="  Register Once Messaging is designed so that this field's value"
^DD(391.23,5,23,28,0)="  assumes a record EDIT for the PATIENT file (#2), ONLY.  Fields"
^DD(391.23,5,23,29,0)="  in other files and PATIENT file multiples will be added as new"
^DD(391.23,5,23,30,0)="  records.  Examples of other files include the DG SECURITY LOG"
^DD(391.23,5,23,31,0)="  file (#38.1).  Examples of PATIENT file multiples include the"
^DD(391.23,5,23,32,0)="  Patient file ALIAS multiple (2.01)."
^DD(391.23,5,23,33,0)=" "
^DD(391.23,5,23,34,0)="  The ORDER INDEX will NOT support adding data to existing records"
^DD(391.23,5,23,35,0)="  in any file or multiple EXCEPT the PATIENT file.  This means that"
^DD(391.23,5,23,36,0)="  only fields in the Patient file can have an ORDER INDEX different"
^DD(391.23,5,23,37,0)="  from another field in the Patient file."
^DD(391.23,5,23,38,0)=" "
^DD(391.23,5,23,39,0)="Ordering modifications for the fields defined in this file MUST be designed"
^DD(391.23,5,23,40,0)="according to this ordering specification or a technical redesign of ROM"
^DD(391.23,5,23,41,0)="will be necessary."
^DD(391.23,5,"DT")="3040413"
^DD(391.23,"B","Description of Field",.01)="1"
^DD(391.23,"B","Disable Field",4)=""
^DD(391.23,"B","FIELD DESCRIPTION",3)=""
^DD(391.23,"B","FIELD NUMBER",2)=""
^DD(391.23,"B","FILE NUMBER",1)=""
^DD(391.23,"B","File Number of File",1)="1"
^DD(391.23,"B","NAME",.01)=""
^DD(391.23,"B","ORDER INDEX",5)=""
^DD(391.23,"GL",0,1,.01)=""
^DD(391.23,"GL",0,2,1)=""
^DD(391.23,"GL",0,3,2)=""
^DD(391.23,"GL",0,4,3)=""
^DD(391.23,"GL",0,5,4)=""
^DD(391.23,"GL",0,6,5)=""
^DD(391.23,"IX",.01)=""
^DD(391.23,"IX",5)=""
^DD(391.23,"RQ",.01)=""
^DD(391.23,"RQ",1)=""
^DD(391.23,"RQ",2)=""
^DD(391.23,"RQ",5)=""
^DD(391.31,0)="FIELD^^7^8"
^DD(391.31,0,"DDA")="N"
^DD(391.31,0,"DT")="3050214"
^DD(391.31,0,"IX","B",391.31,.01)=""
^DD(391.31,0,"IX","C",391.317,.01)=""
^DD(391.31,0,"IX","D",391.317,.02)=""
^DD(391.31,0,"IX","E",391.31,1)=""
^DD(391.31,0,"IX","HTHNOACK",391.317,.02)=""
^DD(391.31,0,"NM","HOME TELEHEALTH PATIENT")=""
^DD(391.31,0,"VR")="5.3"
^DD(391.31,0,"VRPK")="DG"
^DD(391.31,.01,0)="RECORD NUMBER^RNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(391.31,.01,1,0)="^.1"
^DD(391.31,.01,1,1,0)="391.31^B"
^DD(391.31,.01,1,1,1)="S ^DGHT(391.31,""B"",$E(X,1,30),DA)="""""
^DD(391.31,.01,1,1,2)="K ^DGHT(391.31,""B"",$E(X,1,30),DA)"
^DD(391.31,.01,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(391.31,.01,21,0)="^.001^1^1^3050420^^^"
^DD(391.31,.01,21,1,0)="This field contains the record number for this entry."
^DD(391.31,.01,23,0)="^.001^1^1^3050420^^^"
^DD(391.31,.01,23,1,0)="The internal entry number (IEN) for this record."
^DD(391.31,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""Home Telehealth entries cannot be deleted"")"
^DD(391.31,.01,"DT")="3050214"
^DD(391.31,1,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(391.31,1,1,0)="^.1"
^DD(391.31,1,1,1,0)="391.31^E"
^DD(391.31,1,1,1,1)="S ^DGHT(391.31,""E"",$E(X,1,30),DA)="""""
^DD(391.31,1,1,1,2)="K ^DGHT(391.31,""E"",$E(X,1,30),DA)"
^DD(391.31,1,1,1,"DT")="3060823"
^DD(391.31,1,3)="Enter the name of the patient being assigned for Home Telehealth."
^DD(391.31,1,8.5)=""
^DD(391.31,1,21,0)="^.001^1^1^3050420^^^^"
^DD(391.31,1,21,1,0)="This is the name of patient assigned for Home Telehealth service."
^DD(391.31,1,23,0)="^.001^1^1^3050420^^^^"
^DD(391.31,1,23,1,0)="A pointer to the PATIENT file (#2)."
^DD(391.31,1,"DT")="3060823"
^DD(391.31,2,0)="VENDOR^R*P4'^DIC(4,^0;3^S DIC(""S"")=""I $P($G(^DIC(4,+Y,99)),""""^"""")?1""""200T"""".E"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(391.31,2,3)="Enter the vendor assigned to this Home Telehealth patient."
^DD(391.31,2,12)="Only 200T entries are valid."
^DD(391.31,2,12.1)="S DIC(""S"")=""I $P($G(^DIC(4,+Y,99)),""""^"""")?1""""200T"""".E"""
^DD(391.31,2,21,0)="^.001^3^3^3050216^^^^"
^DD(391.31,2,21,1,0)="This is the name of the vendor assigned to this Home Telehealth patient."
^DD(391.31,2,21,2,0)="The vendor data comes from the Institution file #4 and are the 200T* entries.  "
^DD(391.31,2,21,3,0)="These entries are specifically added to file #4 for Home Telehealth vendors."
^DD(391.31,2,23,0)="^.001^1^1^3050216^^^^"
^DD(391.31,2,23,1,0)="A pointer to the INSTITUTION file (#4)."
^DD(391.31,2,"DT")="3050214"
^DD(391.31,3,0)="CONSULT NUMBER^RP123'^GMR(123,^0;4^Q"
^DD(391.31,3,3)="Enter IEN of the consult from REQUEST/CONSULTATION file (#123)."
^DD(391.31,3,21,0)="^.001^1^1^3050214^^^"
^DD(391.31,3,21,1,0)="This is the internal entry number of the consultation."
^DD(391.31,3,23,0)="^.001^1^1^3050214^^"
^DD(391.31,3,23,1,0)="A pointer to the REQUEST/CONSULTATION file (#123)."
^DD(391.31,3,"DT")="3050119"
^DD(391.31,4,0)="CARE COORDINATOR^RP200'^VA(200,^0;5^Q"
^DD(391.31,4,3)="Enter the name of the Care Coordinator responsible for patient."
^DD(391.31,4,21,0)="^.001^3^3^3050214^^^^"
^DD(391.31,4,21,1,0)="This is the name of the Care Coordinator responsible for assigning "
^DD(391.31,4,21,2,0)="this patient for Home Telehealth service.  Care Coordinator is "
^DD(391.31,4,21,3,0)="selected from entries in the NEW PERSON file (#200)."
^DD(391.31,4,23,0)="^.001^1^1^3050214^^^"
^DD(391.31,4,23,1,0)="A pointer to the NEW PERSON file (#200)."
^DD(391.31,4,"DT")="3050119"
^DD(391.31,5,0)="ACTIVATION DATE^RD^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(391.31,5,3)="The date/time the patient was activated for Home Telehealth service."
^DD(391.31,5,21,0)="^.001^2^2^3050214^^^^"
^DD(391.31,5,21,1,0)="The date and time the patient was assigned/registered/sign-up for Home "
^DD(391.31,5,21,2,0)="Telehealth services."
^DD(391.31,5,"DT")="3050207"
^DD(391.31,6,0)="INACTIVATION DATE^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(391.31,6,1,0)="^.1^^0"
^DD(391.31,6,3)="The date/time the patient was inactivated from Home Telehealth service."
^DD(391.31,6,21,0)="^.001^1^1^3050214^^^^"
^DD(391.31,6,21,1,0)="The date and time this patient was inactivated  from Home Telehealth service."
^DD(391.31,6,"DT")="3050207"
^DD(391.31,7,0)="TRANSACTION^391.317DA^^TRAN;0"
^DD(391.31,7,21,0)="^.001^2^2^3050214^^^^"
^DD(391.31,7,21,1,0)="Transaction relating to home telehealth patient sign-up/activation (admission)"
^DD(391.31,7,21,2,0)="and inactivation (discharge)."
^DD(391.31,"B","ACTIVATION DATE",5)=""
^DD(391.31,"B","CARE COORDINATOR",4)=""
^DD(391.31,"B","CONSULT NUMBER",3)=""
^DD(391.31,"B","INACTIVATION DATE",6)=""
^DD(391.31,"B","PATIENT",1)=""
^DD(391.31,"B","RECORD NUMBER",.01)=""
^DD(391.31,"B","TRANSACTION",7)=""
^DD(391.31,"B","VENDOR",2)=""
^DD(391.31,"GL",0,1,.01)=""
^DD(391.31,"GL",0,2,1)=""
^DD(391.31,"GL",0,3,2)=""
^DD(391.31,"GL",0,4,3)=""
^DD(391.31,"GL",0,5,4)=""
^DD(391.31,"GL",0,6,5)=""
^DD(391.31,"GL",0,7,6)=""
^DD(391.31,"GL","TRAN",0,7)=""
^DD(391.31,"IX",.01)=""
^DD(391.31,"IX",1)=""
^DD(391.31,"RQ",.01)=""
^DD(391.31,"RQ",1)=""
^DD(391.31,"RQ",2)=""
^DD(391.31,"RQ",3)=""
^DD(391.31,"RQ",4)=""
^DD(391.31,"RQ",5)=""
^DD(391.31,"SB",391.317,7)=""
^DD(391.317,0)="TRANSACTION SUB-FIELD^^.08^8"
^DD(391.317,0,"DT")="3050214"
^DD(391.317,0,"IX","B",391.317,.01)=""
^DD(391.317,0,"NM","TRANSACTION")=""
^DD(391.317,0,"UP")="391.31"
^DD(391.317,.01,0)="TRANSACTION DATE^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(391.317,.01,1,0)="^.1^^-1"
^DD(391.317,.01,1,1,0)="391.317^B"
^DD(391.317,.01,1,1,1)="S ^DGHT(391.31,DA(1),""TRAN"",""B"",$E(X,1,30),DA)="""""
^DD(391.317,.01,1,1,2)="K ^DGHT(391.31,DA(1),""TRAN"",""B"",$E(X,1,30),DA)"
^DD(391.317,.01,1,2,0)="391.31^C"
^DD(391.317,.01,1,2,1)="S ^DGHT(391.31,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(391.317,.01,1,2,2)="K ^DGHT(391.31,""C"",$E(X,1,30),DA(1),DA)"
^DD(391.317,.01,1,2,"DT")="3050207"
^DD(391.317,.01,3)="Date/time event was last transmitted."
^DD(391.317,.01,21,0)="^.001^2^2^3050214^^^"
^DD(391.317,.01,21,1,0)="Date and time transaction was transmitted.  The date/time is reflective of "
^DD(391.317,.01,21,2,0)="the last time this event was transmitted."
^DD(391.317,.01,"DT")="3051209"
^DD(391.317,.02,0)="MESSAGE ID OF XMIT TO HT^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(391.317,.02,1,0)="^.1^^-1"
^DD(391.317,.02,1,1,0)="391.31^D"
^DD(391.317,.02,1,1,1)="S ^DGHT(391.31,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(391.317,.02,1,1,2)="K ^DGHT(391.31,""D"",$E(X,1,30),DA(1),DA)"
^DD(391.317,.02,1,1,"DT")="3050210"
^DD(391.317,.02,1,2,0)="391.31^HTHNOACK^MUMPS"
^DD(391.317,.02,1,2,1)="D SETXREF^DGHTXREF($E(X,1,30),1,0)"
^DD(391.317,.02,1,2,2)="K ^DGHT(391.31,""HTHNOACK"",$E(X,1,30),DA(1),DA)"
^DD(391.317,.02,1,2,"%D",0)="^.101^6^6^3060125^^^^"
^DD(391.317,.02,1,2,"%D",1,0)="This xref is set when an activation/inactivation occur for home telehealth"
^DD(391.317,.02,1,2,"%D",2,0)="patients and an hl7 message is succesfully generated. The xref will"
^DD(391.317,.02,1,2,"%D",3,0)="remain until an application acknowledgment is received for the sent "
^DD(391.317,.02,1,2,"%D",4,0)="hl7 message from the receiving vendor server. If no AA is received "
^DD(391.317,.02,1,2,"%D",5,0)="attempts will be made to retransmit the messages a predetermined number "
^DD(391.317,.02,1,2,"%D",6,0)="of times at predetermined time intervals."
^DD(391.317,.02,1,2,"DT")="3060125"
^DD(391.317,.02,3)="Enter message ID of transmission to HT."
^DD(391.317,.02,21,0)="^.001^1^1^3050214^^"
^DD(391.317,.02,21,1,0)="Message ID of last transmission to Home Telehealth Vendor server."
^DD(391.317,.02,"DT")="3060125"
^DD(391.317,.03,0)="USER CREATING TRANSACTION^P200'^VA(200,^0;3^Q"
^DD(391.317,.03,3)="The user entering this transaction for Home Telehealth service."
^DD(391.317,.03,21,0)="^.001^1^1^3050214^^^"
^DD(391.317,.03,21,1,0)="The user creating this transaction. This information is obtained from the DUZ."
^DD(391.317,.03,23,0)="^^1^1^3050214^"
^DD(391.317,.03,23,1,0)="Pointer to NEW PERSON file #200."
^DD(391.317,.03,"DT")="3050207"
^DD(391.317,.04,0)="MESSAGE TYPE^RS^A:ACTIVATION/SIGN UP;I:INACTIVATION;^0;4^Q"
^DD(391.317,.04,3)="Enter type of message being transmitted."
^DD(391.317,.04,21,0)="^.001^3^3^3050214^^^^"
^DD(391.317,.04,21,1,0)="This is the type of message being transmitted for the Home Telehealth patient."
^DD(391.317,.04,21,2,0)="    A   Patient Activation/Sign-up. This is a 'A04' (register) HL7 type message."
^DD(391.317,.04,21,3,0)="    I   Patient Inactivation.  This is an 'A03' (discharge) HL7 type message."
^DD(391.317,.04,"DT")="3050207"
^DD(391.317,.05,0)="TRANSMISSION EVENT^RS^0:RETRANSMIT;1:ADD;^0;5^Q"
^DD(391.317,.05,3)="Enter the action taken for the transmission."
^DD(391.317,.05,21,0)="^.001^3^3^3050214^^"
^DD(391.317,.05,21,1,0)="Actions taken for the transmission are as follows:-"
^DD(391.317,.05,21,2,0)="  ADD         Encounter 1st added.  "
^DD(391.317,.05,21,3,0)="  RETRANSMIT  Encounter retransmitted."
^DD(391.317,.05,"DT")="3050207"
^DD(391.317,.06,0)="DATE/TIME OF ACK FROM HT^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(391.317,.06,3)="Enter date/time acknowledgement was received from HT vendor."
^DD(391.317,.06,21,0)="^.001^2^2^3050214^^^"
^DD(391.317,.06,21,1,0)="Date and time acknowledgement for transmission to Home Telehealth "
^DD(391.317,.06,21,2,0)="Vendor server was received. "
^DD(391.317,.06,"DT")="3050207"
^DD(391.317,.07,0)="ACK CODE FROM HT^S^A:ACCEPTED;R:REJECTED;^0;7^Q"
^DD(391.317,.07,3)="Enter acknowledgement code received from HT."
^DD(391.317,.07,21,0)="^.001^5^5^3050214^^"
^DD(391.317,.07,21,1,0)="Code denoting type of acknowledgement received for transmission to Home "
^DD(391.317,.07,21,2,0)="Telehealth Vendor Server.  This code is related to the application "
^DD(391.317,.07,21,3,0)="acknowledgement.  The codes are as follows:-"
^DD(391.317,.07,21,4,0)="    A = Accepted"
^DD(391.317,.07,21,5,0)="    R = Rejected"
^DD(391.317,.07,"DT")="3050207"
^DD(391.317,.08,0)="REJECT MESSAGE^F^^0;8^K:$L(X)>50!($L(X)<3) X"
^DD(391.317,.08,3)="Enter 3-50 characters of the error message."
^DD(391.317,.08,21,0)="^.001^2^2^3050214^^^^"
^DD(391.317,.08,21,1,0)="If there was an error in processing of the transmission message, this field "
^DD(391.317,.08,21,2,0)="will contain the 3-50 characters of the error message."
^DD(391.317,.08,"DT")="3050214"
^DD(391.317,"B","ACK CODE FROM HT",.07)=""
^DD(391.317,"B","DATE/TIME OF ACK FROM HT",.06)=""
^DD(391.317,"B","MESSAGE ID OF XMIT TO HT",.02)=""
^DD(391.317,"B","MESSAGE TYPE",.04)=""
^DD(391.317,"B","REJECT MESSAGE",.08)=""
^DD(391.317,"B","TRANSACTION DATE",.01)=""
^DD(391.317,"B","TRANSMISSION EVENT",.05)=""
^DD(391.317,"B","USER CREATING TRANSACTION",.03)=""
^DD(391.317,"GL",0,1,.01)=""
^DD(391.317,"GL",0,2,.02)=""
^DD(391.317,"GL",0,3,.03)=""
^DD(391.317,"GL",0,4,.04)=""
^DD(391.317,"GL",0,5,.05)=""
^DD(391.317,"GL",0,6,.06)=""
^DD(391.317,"GL",0,7,.07)=""
^DD(391.317,"GL",0,8,.08)=""
^DD(391.317,"IX",.01)=""
^DD(391.317,"IX",.02)=""
^DD(391.317,"RQ",.01)=""
^DD(391.317,"RQ",.04)=""
^DD(391.317,"RQ",.05)=""
^DD(391.71,0)="FIELD^^2.1^12"
^DD(391.71,0,"DDA")="N"
^DD(391.71,0,"DT")="2981124"
^DD(391.71,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(391.71,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(391.71,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(391.71,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(391.71,0,"IX","AC",391.71,.06)=""
^DD(391.71,0,"IX","AD",391.71,.01)=""
^DD(391.71,0,"IX","AD2",391.71,.04)=""
^DD(391.71,0,"IX","AD3",391.71,.05)=""
^DD(391.71,0,"IX","AXMIT1",391.71,.04)=""
^DD(391.71,0,"IX","AXMIT2",391.71,.08)=""
^DD(391.71,0,"IX","B",391.71,.01)=""
^DD(391.71,0,"IX","C",391.71,.03)=""
^DD(391.71,0,"IX","D",391.71,.02)=""
^DD(391.71,0,"NM","ADT/HL7 PIVOT")=""
^DD(391.71,0,"VR")="5.3"
^DD(391.71,0,"VRPK")="DG"
^DD(391.71,.01,0)="DATE/TIME OF EVENT^RD^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(391.71,.01,1,0)="^.1"
^DD(391.71,.01,1,1,0)="391.71^B"
^DD(391.71,.01,1,1,1)="S ^VAT(391.71,""B"",$E(X,1,30),DA)="""""
^DD(391.71,.01,1,1,2)="K ^VAT(391.71,""B"",$E(X,1,30),DA)"
^DD(391.71,.01,1,2,0)="391.71^AD^MUMPS"
^DD(391.71,.01,1,2,1)="N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U,4),B=$P(M,U,5) I A'=""""&(B'="""") S ^VAT(391.71,""AKY"",A,X,B,DA)="""""
^DD(391.71,.01,1,2,2)="N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U,4),B=$P(M,U,5) I A'=""""&(B'="""") K ^VAT(391.71,""AKY"",A,X,B,DA)"
^DD(391.71,.01,1,2,"%D",0)="^^2^2^2950713^"
^DD(391.71,.01,1,2,"%D",1,0)="This cross reference is one of the three fields used to create a unique"
^DD(391.71,.01,1,2,"%D",2,0)="key for the entries in this file.  .04 and .05 are the other fields."
^DD(391.71,.01,1,2,"DT")="2950519"
^DD(391.71,.01,3)=""
^DD(391.71,.01,21,0)="^^1^1^2950519^"
^DD(391.71,.01,21,1,0)="This will contain the date time of the event."
^DD(391.71,.01,"DT")="2950519"
^DD(391.71,.02,0)="PIVOT NUMBER^RNJ9,0X^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N)!($D(^VAT(391.71,""D"",X))) X"
^DD(391.71,.02,1,0)="^.1^^-1"
^DD(391.71,.02,1,2,0)="391.71^D"
^DD(391.71,.02,1,2,1)="S ^VAT(391.71,""D"",$E(X,1,30),DA)="""""
^DD(391.71,.02,1,2,2)="K ^VAT(391.71,""D"",$E(X,1,30),DA)"
^DD(391.71,.02,1,2,"DT")="2950606"
^DD(391.71,.02,3)="Type a Number between 1 and 999999999, 0 Decimal Digits, and a pivot number that does not already exist in the file"
^DD(391.71,.02,21,0)="^^1^1^2970529^^^^"
^DD(391.71,.02,21,1,0)="This will contain a unique pivot number that is created by the system."
^DD(391.71,.02,"DT")="2970529"
^DD(391.71,.03,0)="PATIENT^RP2'^DPT(^0;3^Q"
^DD(391.71,.03,1,0)="^.1"
^DD(391.71,.03,1,1,0)="391.71^C"
^DD(391.71,.03,1,1,1)="S ^VAT(391.71,""C"",$E(X,1,30),DA)="""""
^DD(391.71,.03,1,1,2)="K ^VAT(391.71,""C"",$E(X,1,30),DA)"
^DD(391.71,.03,1,1,"%D",0)="^^2^2^2950713^"
^DD(391.71,.03,1,1,"%D",1,0)="This cross reference is a standard cross reference to be used by FM and"
^DD(391.71,.03,1,1,"%D",2,0)="programmers to indentify the patient this entry is related to."
^DD(391.71,.03,1,1,"DT")="2950531"
^DD(391.71,.03,21,0)="^^2^2^2950531^^"
^DD(391.71,.03,21,1,0)="This is the pointer to the patient file (#2) to the patient this event"
^DD(391.71,.03,21,2,0)="belongs to."
^DD(391.71,.03,"DT")="2950531"
^DD(391.71,.04,0)="TYPE OF EVENT^RS^1:INPATIENT EVENTS;2:OUTPATIENT EVENTS;3:REGISTRATION EVENTS;4:UPDATES TO DATA;5:TREATING FACILITY UPDATES;6:COTS UPDATE EVENTS;^0;4^Q"
^DD(391.71,.04,1,0)="^.1"
^DD(391.71,.04,1,1,0)="391.71^AD2^MUMPS"
^DD(391.71,.04,1,1,1)="N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,5) I A'=""""&(B'="""") S ^VAT(391.71,""AKY"",X,A,B,DA)="""""
^DD(391.71,.04,1,1,2)="N A,B,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,5) I A'=""""&(B'="""") K ^VAT(391.71,""AKY"",X,A,B,DA)"
^DD(391.71,.04,1,1,"%D",0)="^^2^2^2960905^^"
^DD(391.71,.04,1,1,"%D",1,0)="This cross reference is one of the three fields used to create a unique key"
^DD(391.71,.04,1,1,"%D",2,0)="for entries in this file.  .01 and .05 are the other two."
^DD(391.71,.04,1,1,"DT")="2950521"
^DD(391.71,.04,1,2,0)="391.71^AXMIT1^MUMPS"
^DD(391.71,.04,1,2,1)="Q:($G(VAFCA08))  N A S A=$P(^VAT(391.71,DA,0),""^"",8) S:(+A) ^VAT(391.71,""AXMIT"",X,DA)="""""
^DD(391.71,.04,1,2,2)="K ^VAT(391.71,""AXMIT"",X,DA)"
^DD(391.71,.04,1,2,"%D",0)="^^12^12^2960912^^"
^DD(391.71,.04,1,2,"%D",1,0)="This cross reference is used to gather the entries that need to be"
^DD(391.71,.04,1,2,"%D",2,0)="broadcasted because an update has occured to a patient's data.  The set"
^DD(391.71,.04,1,2,"%D",3,0)="logic will only be executed when the REQUIRES TRANSMISSION field (#.08)"
^DD(391.71,.04,1,2,"%D",4,0)="has a value of 'YES'."
^DD(391.71,.04,1,2,"%D",5,0)=" "
^DD(391.71,.04,1,2,"%D",6,0)="  "
^DD(391.71,.04,1,2,"%D",7,0)=" Resulting node:"
^DD(391.71,.04,1,2,"%D",8,0)="   ^VAT(391.71,""AXMIT"",[.04],DA) = """""
^DD(391.71,.04,1,2,"%D",9,0)="  "
^DD(391.71,.04,1,2,"%D",10,0)=" Where:"
^DD(391.71,.04,1,2,"%D",11,0)="   [.04] = Value contained in TYPE OF EVENT field (#.04)"
^DD(391.71,.04,1,2,"%D",12,0)="      DA = Pointer to entry that requires transmission"
^DD(391.71,.04,1,2,"DT")="2960912"
^DD(391.71,.04,21,0)="^^1^1^2970530^^^^"
^DD(391.71,.04,21,1,0)="This indicates the type of event that has occurred."
^DD(391.71,.04,"DT")="2991004"
^DD(391.71,.05,0)="EVENT POINTER^V^^0;5^Q"
^DD(391.71,.05,1,0)="^.1"
^DD(391.71,.05,1,1,0)="391.71^AD3^MUMPS"
^DD(391.71,.05,1,1,1)="N B,A,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,4) I A'=""""&(B'="""") S ^VAT(391.71,""AKY"",B,A,X,DA)="""""
^DD(391.71,.05,1,1,2)="N B,A,M S M=$G(^VAT(391.71,DA,0)),A=$P(M,U),B=$P(M,U,4) I A'=""""&(B'="""") K ^VAT(391.71,""AKY"",B,A,X,DA)"
^DD(391.71,.05,1,1,"%D",0)="^^2^2^2950713^"
^DD(391.71,.05,1,1,"%D",1,0)="This cross reference is one of the three fields used to create a unique key"
^DD(391.71,.05,1,1,"%D",2,0)="for entries in this file.  .01 and .04 are the other two."
^DD(391.71,.05,1,1,"DT")="2950521"
^DD(391.71,.05,21,0)="^^5^5^2970530^^^^"
^DD(391.71,.05,21,1,0)="This field is a variable pointer to the Patient Movement, Outpatient"
^DD(391.71,.05,21,2,0)="Encounter or Patient file.  When the type of event is inpatient, it points"
^DD(391.71,.05,21,3,0)="to the event in the Patient Movement file.  Outpatient, it points to"
^DD(391.71,.05,21,4,0)="either the Patient file or the Outpatient Encounter file.  Registration"
^DD(391.71,.05,21,5,0)="and Updates point to the Patient file."
^DD(391.71,.05,"DT")="2950521"
^DD(391.71,.05,"V",0)="^.12P^3^3"
^DD(391.71,.05,"V",1,0)="2^PTR TO PATIENT FILE^1^P^n^n"
^DD(391.71,.05,"V",2,0)="405^POINTER TO PATIENT MOVEMENT^2^I^n^n"
^DD(391.71,.05,"V",3,0)="409.68^PTR TO OUTPATIENT ENCOUNTER^3^O^n^n"
^DD(391.71,.05,"V","B",2,1)=""
^DD(391.71,.05,"V","B",405,2)=""
^DD(391.71,.05,"V","B",409.68,3)=""
^DD(391.71,.05,"V","M","POINTER TO PATIENT MOVEMENT",2)=""
^DD(391.71,.05,"V","M","PTR TO OUTPATIENT ENCOUNTER",3)=""
^DD(391.71,.05,"V","M","PTR TO PATIENT FILE",1)=""
^DD(391.71,.05,"V","O",1,1)=""
^DD(391.71,.05,"V","O",2,2)=""
^DD(391.71,.05,"V","O",3,3)=""
^DD(391.71,.05,"V","P","I",2)=""
^DD(391.71,.05,"V","P","O",3)=""
^DD(391.71,.05,"V","P","P",1)=""
^DD(391.71,.06,0)="TRANSMITTED^S^1:NEED TO TRANSMIT;^0;6^Q"
^DD(391.71,.06,1,0)="^.1"
^DD(391.71,.06,1,1,0)="391.71^AC^MUMPS"
^DD(391.71,.06,1,1,1)="S:+X ^VAT(391.71,""AC"",$E(X,1,30),DA)="""""
^DD(391.71,.06,1,1,2)="K ^VAT(391.71,""AC"",$E(X,1,30),DA)"
^DD(391.71,.06,1,1,"%D",0)="^^3^3^2960906^"
^DD(391.71,.06,1,1,"%D",1,0)="This cross reference is used to gather the entries that need to be"
^DD(391.71,.06,1,1,"%D",2,0)="broadcasted because an update has occured to a patient's data.  The"
^DD(391.71,.06,1,1,"%D",3,0)="set logic will not be executed for anything other than a postive send."
^DD(391.71,.06,1,1,"DT")="2950616"
^DD(391.71,.06,"DT")="2970203"
^DD(391.71,.07,0)="DELETED^S^1:DELETED;^0;7^Q"
^DD(391.71,.07,1,0)="^.1^^0"
^DD(391.71,.07,21,0)="^^3^3^2950713^"
^DD(391.71,.07,21,1,0)="This field is used to mark the given entry for the event as being deleted."
^DD(391.71,.07,21,2,0)="It indicates that the ADT event was deleted, but an ancillary system may"
^DD(391.71,.07,21,3,0)="still hold the PIVOT number."
^DD(391.71,.07,"DT")="2950525"
^DD(391.71,.08,0)="REQUIRES TRANSMISSION^S^0:NO;1:YES;^0;8^Q"
^DD(391.71,.08,.1)="Requires Transmission"
^DD(391.71,.08,1,0)="^.1"
^DD(391.71,.08,1,1,0)="391.71^AXMIT2^MUMPS"
^DD(391.71,.08,1,1,1)="Q:(($G(VAFCA08))!('X))  N A S A=$P(^VAT(391.71,DA,0),""^"",4) S:(+A) ^VAT(391.71,""AXMIT"",A,DA)="""""
^DD(391.71,.08,1,1,2)="N A S A=$P(^VAT(391.71,DA,0),""^"",4) K:(+A) ^VAT(391.71,""AXMIT"",A,DA)"
^DD(391.71,.08,1,1,"%D",0)="^^12^12^2960912^"
^DD(391.71,.08,1,1,"%D",1,0)="This cross reference is used to gather the entries that need to be"
^DD(391.71,.08,1,1,"%D",2,0)="broadcasted because an update has occured to a patient's data.  The set"
^DD(391.71,.08,1,1,"%D",3,0)="logic will only be executed when the REQUIRES TRANSMISSION field (#.08)"
^DD(391.71,.08,1,1,"%D",4,0)="has a value of 'YES'."
^DD(391.71,.08,1,1,"%D",5,0)="                                                                       "
^DD(391.71,.08,1,1,"%D",6,0)=" "
^DD(391.71,.08,1,1,"%D",7,0)=" Resulting node:"
^DD(391.71,.08,1,1,"%D",8,0)="   ^VAT(391.71,""AXMIT"",[.04],DA) = """""
^DD(391.71,.08,1,1,"%D",9,0)=" "
^DD(391.71,.08,1,1,"%D",10,0)=" Where:"
^DD(391.71,.08,1,1,"%D",11,0)="   [.04] = Value contained in TYPE OF EVENT field (#.04)"
^DD(391.71,.08,1,1,"%D",12,0)="      DA = Pointer to entry that requires transmission"
^DD(391.71,.08,1,1,"DT")="2960912"
^DD(391.71,.08,3)="Enter 'Yes' if this entry needs to be transmitted"
^DD(391.71,.08,21,0)="^^1^1^2960912^^"
^DD(391.71,.08,21,1,0)="This field denotes whether or not the entry requires transmission."
^DD(391.71,.08,"DT")="2960912"
^DD(391.71,.09,0)="USER^P200'^VA(200,^0;9^Q"
^DD(391.71,.09,3)="Answer must be 1-80 characters in length."
^DD(391.71,.09,"DT")="2970317"
^DD(391.71,.1,0)="EVENT REASON CODE^F^^0;10^K:$L(X)>3!($L(X)<1) X"
^DD(391.71,.1,3)="Answer must be 1-3 characters in length."
^DD(391.71,.1,21,0)="^^5^5^2980522^^"
^DD(391.71,.1,21,1,0)="This field may contain an HL7 event reason code for certain"
^DD(391.71,.1,21,2,0)="entries in the pivot file. For example, if a user causes an ADT-A08"
^DD(391.71,.1,21,3,0)="message to be generated, by adding a patient to the security log"
^DD(391.71,.1,21,4,0)="file the event reason code is 97, indicating a 'Sensitivity Update'"
^DD(391.71,.1,21,5,0)="triggered the A08."
^DD(391.71,.1,"DT")="2980522"
^DD(391.71,1.1,0)="RESULTING MESSAGE^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(391.71,1.1,3)="Answer must be 1-80 characters in length."
^DD(391.71,1.1,21,0)="^^3^3^2970722^"
^DD(391.71,1.1,21,1,0)="This field will store the result from attempting to build and send"
^DD(391.71,1.1,21,2,0)="an HL7 message.  The result will either be a message ID when the"
^DD(391.71,1.1,21,3,0)="attempt is successful or an error message."
^DD(391.71,1.1,"DT")="2970722"
^DD(391.71,2.1,0)="FIELD(S) EDITED^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(391.71,2.1,3)="Answer must be 1-200 characters in length."
^DD(391.71,2.1,21,0)="^^2^2^2970821^"
^DD(391.71,2.1,21,1,0)="This field will be used to store the fields edited, delimited by ;"
^DD(391.71,2.1,21,2,0)="for the event."
^DD(391.71,2.1,"DT")="2970821"
^DD(391.71,"B","DATE/TIME OF EVENT",.01)=""
^DD(391.71,"B","DELETED",.07)=""
^DD(391.71,"B","EVENT POINTER",.05)=""
^DD(391.71,"B","EVENT REASON CODE",.1)=""
^DD(391.71,"B","FIELD(S) EDITED",2.1)=""
^DD(391.71,"B","PATIENT",.03)=""
^DD(391.71,"B","PIVOT NUMBER",.02)=""
^DD(391.71,"B","REQUIRES TRANSMISSION",.08)=""
^DD(391.71,"B","RESULTING MESSAGE",1.1)=""
^DD(391.71,"B","Requires Transmission",.08)="1"
^DD(391.71,"B","TRANSMITTED",.06)=""
^DD(391.71,"B","TYPE OF EVENT",.04)=""
^DD(391.71,"B","USER",.09)=""
^DD(391.71,"GL",0,1,.01)=""
^DD(391.71,"GL",0,2,.02)=""
^DD(391.71,"GL",0,3,.03)=""
^DD(391.71,"GL",0,4,.04)=""
^DD(391.71,"GL",0,5,.05)=""
^DD(391.71,"GL",0,6,.06)=""
^DD(391.71,"GL",0,7,.07)=""
^DD(391.71,"GL",0,8,.08)=""
^DD(391.71,"GL",0,9,.09)=""
^DD(391.71,"GL",0,10,.1)=""
^DD(391.71,"GL",1,1,1.1)=""
^DD(391.71,"GL",2,1,2.1)=""
^DD(391.71,"IX",.01)=""
^DD(391.71,"IX",.02)=""
^DD(391.71,"IX",.03)=""
^DD(391.71,"IX",.04)=""
^DD(391.71,"IX",.05)=""
^DD(391.71,"IX",.06)=""
^DD(391.71,"IX",.08)=""
^DD(391.71,"RQ",.01)=""
^DD(391.71,"RQ",.02)=""
^DD(391.71,"RQ",.03)=""
^DD(391.71,"RQ",.04)=""
^DD(391.72,0)="FIELD^^50^5"
^DD(391.72,0,"DDA")="N"
^DD(391.72,0,"DT")="2991101"
^DD(391.72,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HL(771,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(771,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(391.72,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HL(779.001,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(779.001,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(391.72,0,"IX","B",391.72,.01)=""
^DD(391.72,0,"IX","C",391.72,.02)=""
^DD(391.72,0,"IX","D",391.72,.03)=""
^DD(391.72,0,"NM","ADT/HL7 EVENT REASON")=""
^DD(391.72,0,"PT",391.91,.07)=""
^DD(391.72,0,"VR")="5.3"
^DD(391.72,0,"VRPK")="DG"
^DD(391.72,.01,0)="EVENT REASON CODE^RFX^^0;1^K:$L(X)>3!($L(X)<1)!'(X?1.3AN) X"
^DD(391.72,.01,.1)=""
^DD(391.72,.01,1,0)="^.1^^-1"
^DD(391.72,.01,1,1,0)="391.72^B"
^DD(391.72,.01,1,1,1)="S ^VAT(391.72,""B"",$E(X,1,30),DA)="""""
^DD(391.72,.01,1,1,2)="K ^VAT(391.72,""B"",$E(X,1,30),DA)"
^DD(391.72,.01,3)="Code must be 1-3 alpha/numeric characters in length."
^DD(391.72,.01,11,0)="^.2LAP"
^DD(391.72,.01,21,0)="^^1^1^3000119^^^^"
^DD(391.72,.01,21,1,0)="This is the coded value for the event reason."
^DD(391.72,.01,23,0)="^^3^3^3000119^^^"
^DD(391.72,.01,23,1,0)="This is a free-text field, one to three alpha/numeric characters in"
^DD(391.72,.01,23,2,0)="length. These codes will not be able to be deleted through conventional"
^DD(391.72,.01,23,3,0)="FileMan practice."
^DD(391.72,.01,"DEL",1,0)="I 1 D EN^DDIOL(""  Event Reason codes cannot be deleted!  "")"
^DD(391.72,.01,"DT")="2991103"
^DD(391.72,.02,0)="HL7 APPLICATION PARAMETER^RP771'^HL(771,^0;2^Q"
^DD(391.72,.02,1,0)="^.1^^-1"
^DD(391.72,.02,1,2,0)="391.72^C"
^DD(391.72,.02,1,2,1)="S ^VAT(391.72,""C"",$E(X,1,30),DA)="""""
^DD(391.72,.02,1,2,2)="K ^VAT(391.72,""C"",$E(X,1,30),DA)"
^DD(391.72,.02,1,2,"DT")="2991101"
^DD(391.72,.02,3)="Enter the Application Parameter associated with this event reason."
^DD(391.72,.02,21,0)="^^2^2^2991110^^^"
^DD(391.72,.02,21,1,0)="This field allows different HL7 Application Parameters to be linked to the"
^DD(391.72,.02,21,2,0)="same event reason."
^DD(391.72,.02,"DT")="2991102"
^DD(391.72,.03,0)="HL7 EVENT TYPE^R*P779.001'^HL(779.001,^0;3^S DIC(""S"")=""I $E($P(^(0),""""^""""))=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(391.72,.03,1,0)="^.1^^-1"
^DD(391.72,.03,1,2,0)="391.72^D"
^DD(391.72,.03,1,2,1)="S ^VAT(391.72,""D"",$E(X,1,30),DA)="""""
^DD(391.72,.03,1,2,2)="K ^VAT(391.72,""D"",$E(X,1,30),DA)"
^DD(391.72,.03,1,2,"DT")="2991101"
^DD(391.72,.03,3)="Enter the appropriate event type code for this event reason."
^DD(391.72,.03,12)="Only ADT event types are selectable."
^DD(391.72,.03,12.1)="S DIC(""S"")=""I $E($P(^(0),""""^""""))=""""A"""""""
^DD(391.72,.03,21,0)="^^1^1^2991110^^"
^DD(391.72,.03,21,1,0)="This field links an event type (ADT) to a specific event reason."
^DD(391.72,.03,"DT")="2991102"
^DD(391.72,.04,0)="SHORT DESCRIPTION^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(391.72,.04,3)="Description must be 1-40 characters in length."
^DD(391.72,.04,21,0)="^^1^1^2991110^^^"
^DD(391.72,.04,21,1,0)="This is the text that the user will see on reports and displays."
^DD(391.72,.04,"DT")="2991101"
^DD(391.72,50,0)="DESCRIPTION^391.721^^DESC;0"
^DD(391.72,50,21,0)="^^2^2^2991110^"
^DD(391.72,50,21,1,0)="This is the full-length description of the event reason code.  This text"
^DD(391.72,50,21,2,0)="will not be displayed to the user."
^DD(391.72,"B","DESCRIPTION",50)=""
^DD(391.72,"B","EVENT REASON CODE",.01)=""
^DD(391.72,"B","HL7 APPLICATION PARAMETER",.02)=""
^DD(391.72,"B","HL7 EVENT TYPE",.03)=""
^DD(391.72,"B","SHORT DESCRIPTION",.04)=""
^DD(391.72,"GL",0,1,.01)=""
^DD(391.72,"GL",0,2,.02)=""
^DD(391.72,"GL",0,3,.03)=""
^DD(391.72,"GL",0,4,.04)=""
^DD(391.72,"GL","DESC",0,50)=""
^DD(391.72,"IX",.01)=""
^DD(391.72,"IX",.02)=""
^DD(391.72,"IX",.03)=""
^DD(391.72,"RQ",.01)=""
^DD(391.72,"RQ",.02)=""
^DD(391.72,"RQ",.03)=""
^DD(391.72,"SB",391.721,50)=""
^DD(391.721,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(391.721,0,"DT")="2991101"
^DD(391.721,0,"NM","DESCRIPTION")=""
^DD(391.721,0,"UP")="391.72"
^DD(391.721,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(391.721,.01,3)="Enter a full length description of the event reason code."
^DD(391.721,.01,21,0)="^^2^2^2991110^^^"
^DD(391.721,.01,21,1,0)="This is the full-length description of the event reason code.  This text"
^DD(391.721,.01,21,2,0)="will not be displayed to the user."
^DD(391.721,.01,"DT")="2991101"
^DD(391.721,"B","DESCRIPTION",.01)=""
^DD(391.721,"GL",0,1,.01)=""
^DD(391.91,0)="FIELD^^.07^4"
^DD(391.91,0,"DDA")="N"
^DD(391.91,0,"DT")="2960909"
^DD(391.91,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(391.91,0,"IX","AINST",391.91,.01)=""
^DD(391.91,0,"IX","AINST2",391.91,.02)=""
^DD(391.91,0,"IX","APAT",391.91,.01)=""
^DD(391.91,0,"IX","APAT2",391.91,.02)=""
^DD(391.91,0,"IX","B",391.91,.01)=""
^DD(391.91,0,"IX","C",391.91,.02)=""
^DD(391.91,0,"NM","TREATING FACILITY LIST")=""
^DD(391.91,0,"VR")="5.3"
^DD(391.91,0,"VRPK")="DG"
^DD(391.91,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(391.91,.01,1,0)="^.1"
^DD(391.91,.01,1,1,0)="391.91^B"
^DD(391.91,.01,1,1,1)="S ^DGCN(391.91,""B"",$E(X,1,30),DA)="""""
^DD(391.91,.01,1,1,2)="K ^DGCN(391.91,""B"",$E(X,1,30),DA)"
^DD(391.91,.01,1,2,0)="391.91^APAT^MUMPS"
^DD(391.91,.01,1,2,1)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,2) I TMPA S ^DGCN(391.91,""APAT"",$E(X,1,30),TMPA,DA)="""""
^DD(391.91,.01,1,2,2)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,2) I TMPA K ^DGCN(391.91,""APAT"",$E(X,1,30),TMPA,DA)"
^DD(391.91,.01,1,2,"%D",0)="^^2^2^2990112^^^^"
^DD(391.91,.01,1,2,"%D",1,0)="This cross-reference is used to uniquely identify the institutions"
^DD(391.91,.01,1,2,"%D",2,0)="where the patient has been treated."
^DD(391.91,.01,1,2,"DT")="2960909"
^DD(391.91,.01,1,3,0)="391.91^AINST^MUMPS"
^DD(391.91,.01,1,3,1)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,2) I TMPA S ^DGCN(391.91,""AINST"",TMPA,$E(X,1,30),DA)="""""
^DD(391.91,.01,1,3,2)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,2) I TMPA K ^DGCN(391.91,""AINST"",TMPA,$E(X,1,30),DA)"
^DD(391.91,.01,1,3,"%D",0)="^^2^2^2990111^^^^"
^DD(391.91,.01,1,3,"%D",1,0)="This cross-reference is used to uniquely identify the patients for "
^DD(391.91,.01,1,3,"%D",2,0)="a particular institution."
^DD(391.91,.01,1,3,"DT")="2960909"
^DD(391.91,.01,3)="Enter the patient name, between 1 and 30 characters. "
^DD(391.91,.01,21,0)="^^2^2^3000120^^^^"
^DD(391.91,.01,21,1,0)="This is a pointer to the patient in question that was seen at this treating"
^DD(391.91,.01,21,2,0)="facility."
^DD(391.91,.01,"DT")="2991202"
^DD(391.91,.02,0)="INSTITUTION^RP4'I^DIC(4,^0;2^Q"
^DD(391.91,.02,1,0)="^.1"
^DD(391.91,.02,1,1,0)="391.91^C"
^DD(391.91,.02,1,1,1)="S ^DGCN(391.91,""C"",$E(X,1,30),DA)="""""
^DD(391.91,.02,1,1,2)="K ^DGCN(391.91,""C"",$E(X,1,30),DA)"
^DD(391.91,.02,1,1,"%D",0)="^^1^1^2990111^^^^"
^DD(391.91,.02,1,1,"%D",1,0)="This is a lookup cross-reference on the institution."
^DD(391.91,.02,1,1,"DT")="2960909"
^DD(391.91,.02,1,2,0)="391.91^APAT2^MUMPS"
^DD(391.91,.02,1,2,1)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,1) I TMPA S ^DGCN(391.91,""APAT"",TMPA,$E(X,1,30),DA)="""""
^DD(391.91,.02,1,2,2)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,1) I TMPA K ^DGCN(391.91,""APAT"",TMPA,$E(X,1,30),DA)"
^DD(391.91,.02,1,2,"%D",0)="^^2^2^2990111^^^^"
^DD(391.91,.02,1,2,"%D",1,0)="This cross-reference is used to uniquely identify the institutions "
^DD(391.91,.02,1,2,"%D",2,0)="at which a patient has been seen."
^DD(391.91,.02,1,2,"DT")="2960909"
^DD(391.91,.02,1,3,0)="391.91^AINST2^MUMPS"
^DD(391.91,.02,1,3,1)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,1) I TMPA S ^DGCN(391.91,""AINST"",$E(X,1,30),TMPA,DA)="""""
^DD(391.91,.02,1,3,2)="N TMPA S TMPA=$P($G(^DGCN(391.91,DA,0)),U,1) I TMPA K ^DGCN(391.91,""AINST"",$E(X,1,30),TMPA,DA)"
^DD(391.91,.02,1,3,"%D",0)="^^2^2^2990111^^^^"
^DD(391.91,.02,1,3,"%D",1,0)="This cross-reference is used to uniquely identify the patients for "
^DD(391.91,.02,1,3,"%D",2,0)="a particular institution."
^DD(391.91,.02,1,3,"DT")="2960909"
^DD(391.91,.02,3)="Enter the institution where the patient was seen, between 1 and 30 characters."
^DD(391.91,.02,9)="@"
^DD(391.91,.02,21,0)="^^1^1^2990111^^^^"
^DD(391.91,.02,21,1,0)="This is the institution where the patient was treated."
^DD(391.91,.02,"DT")="2960910"
^DD(391.91,.03,0)="DATE LAST TREATED^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(391.91,.03,3)="Enter the date the patient was treated at the facility."
^DD(391.91,.03,21,0)="^^1^1^2981228^^^"
^DD(391.91,.03,21,1,0)="This is the date the patient was treated at the facility."
^DD(391.91,.03,"DT")="2960909"
^DD(391.91,.07,0)="ADT/HL7 EVENT REASON^P391.72'^VAT(391.72,^0;7^Q"
^DD(391.91,.07,3)="Enter the reason for the event experienced by the patient at this treating facility."
^DD(391.91,.07,21,0)="^^3^3^3000120^^^"
^DD(391.91,.07,21,1,0)="This field tracks the reason for an event experienced by a patient at a"
^DD(391.91,.07,21,2,0)="given facility.  Some event reasons might be patient admission, patient"
^DD(391.91,.07,21,3,0)="discharge, etc."
^DD(391.91,.07,"DT")="2991202"
^DD(391.91,"B","ADT/HL7 EVENT REASON",.07)=""
^DD(391.91,"B","DATE LAST TREATED",.03)=""
^DD(391.91,"B","INSTITUTION",.02)=""
^DD(391.91,"B","PATIENT",.01)=""
^DD(391.91,"GL",0,1,.01)=""
^DD(391.91,"GL",0,2,.02)=""
^DD(391.91,"GL",0,3,.03)=""
^DD(391.91,"GL",0,7,.07)=""
^DD(391.91,"IX",.01)=""
^DD(391.91,"IX",.02)=""
^DD(391.91,"RQ",.01)=""
^DD(391.91,"RQ",.02)=""
^DD(391.98,0)="FIELD^^50^7"
^DD(391.98,0,"DDA")="N"
^DD(391.98,0,"DT")="2961021"
^DD(391.98,0,"IX","AKY",391.98,.01)=""
^DD(391.98,0,"IX","AKY1",391.98,.03)=""
^DD(391.98,0,"IX","AKY2",391.98,50)=""
^DD(391.98,0,"IX","AST",391.98,.04)=""
^DD(391.98,0,"IX","B",391.98,.01)=""
^DD(391.98,0,"IX","C",391.98,.01)=""
^DD(391.98,0,"IX","EVT",391.98,.03)=""
^DD(391.98,0,"IX","FRM",391.98,50)=""
^DD(391.98,0,"NM","PATIENT DATA EXCEPTION")=""
^DD(391.98,0,"PT",391.99,.01)=""
^DD(391.98,0,"PT",391.99,.04)=""
^DD(391.98,0,"VR")="5.3"
^DD(391.98,0,"VRPK")="DG"
^DD(391.98,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(391.98,.01,1,0)="^.1"
^DD(391.98,.01,1,1,0)="391.98^B"
^DD(391.98,.01,1,1,1)="S ^DGCN(391.98,""B"",$E(X,1,30),DA)="""""
^DD(391.98,.01,1,1,2)="K ^DGCN(391.98,""B"",$E(X,1,30),DA)"
^DD(391.98,.01,1,1,"DT")="2990202"
^DD(391.98,.01,1,2,0)="391.98^AKY^MUMPS"
^DD(391.98,.01,1,2,1)="N A,B,C S A=^DGCN(391.98,DA,0),B=$G(^DGCN(391.98,DA,""FRM"")),C=$P(A,U,3) I B]"""",C]"""" S ^DGCN(391.98,""AKY"",$E(X,1,30),B,C,DA)="""""
^DD(391.98,.01,1,2,2)="N A,B,C S A=^DGCN(391.98,DA,0),B=$G(^DGCN(391.98,DA,""FRM"")),C=$P(A,U,3) I B]"""",C]"""" K ^DGCN(391.98,""AKY"",$E(X,1,30),B,C,DA)"
^DD(391.98,.01,1,2,"%D",0)="^^3^3^2990202^^^^"
^DD(391.98,.01,1,2,"%D",1,0)="This is the first, of a three cross-reference, that is to be used"
^DD(391.98,.01,1,2,"%D",2,0)="as the key to this file.  The Date of Event field (#.03) and"
^DD(391.98,.01,1,2,"%D",3,0)="the From Whom field (#50) are the other two cross-references."
^DD(391.98,.01,1,2,"DT")="2961016"
^DD(391.98,.01,1,3,0)="391.98^C^MUMPS"
^DD(391.98,.01,1,3,1)="N A S A=$P($G(^DPT(X,0)),U,1) I A]"""" S ^DGCN(391.98,""C"",A,DA)="""""
^DD(391.98,.01,1,3,2)="N A S A=$P($G(^DPT(X,0)),U,1) I A]"""" K ^DGCN(391.98,""C"",A,DA)"
^DD(391.98,.01,1,3,"%D",0)="^^1^1^2990202^^^^"
^DD(391.98,.01,1,3,"%D",1,0)="This is the external to help in the sorting."
^DD(391.98,.01,1,3,"DT")="2990202"
^DD(391.98,.01,3)="Enter the patient name, between 1 and 30 characters."
^DD(391.98,.01,21,0)="^^1^1^2990201^^^^"
^DD(391.98,.01,21,1,0)="An exception has been logged for this patient."
^DD(391.98,.01,"DT")="2990202"
^DD(391.98,.02,0)="DATE RECEIVED^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(391.98,.02,1,0)="^.1^^0"
^DD(391.98,.02,3)="Enter the date that the exception was received at the facility."
^DD(391.98,.02,21,0)="^^1^1^2981228^^"
^DD(391.98,.02,21,1,0)="This is the date that the exception was received at the facility."
^DD(391.98,.02,"DT")="2961024"
^DD(391.98,.03,0)="DATE OF EVENT^RD^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(391.98,.03,1,0)="^.1"
^DD(391.98,.03,1,1,0)="391.98^AKY1^MUMPS"
^DD(391.98,.03,1,1,1)="N A,B,C S A=^DGCN(391.98,DA,0),B=$P(A,U,1),C=$G(^DGCN(391.98,DA,""FRM"")) I B]"""",C]"""" S ^DGCN(391.98,""AKY"",B,C,$E(X,1,30),DA)="""""
^DD(391.98,.03,1,1,2)="N A,B,C S A=^DGCN(391.98,DA,0),B=$P(A,U,1),C=$G(^DGCN(391.98,DA,""FRM"")) I B]"""",C]"""" K ^DGCN(391.98,""AKY"",B,C,$E(X,1,30),DA)"
^DD(391.98,.03,1,1,"%D",0)="^^2^2^2990111^^^^"
^DD(391.98,.03,1,1,"%D",1,0)="This is the second field of the key cross-reference.  The other two "
^DD(391.98,.03,1,1,"%D",2,0)="fields are the Patient field (#.01) and the From Whom field (#50)."
^DD(391.98,.03,1,1,"DT")="2961016"
^DD(391.98,.03,1,2,0)="391.98^EVT"
^DD(391.98,.03,1,2,1)="S ^DGCN(391.98,""EVT"",$E(X,1,30),DA)="""""
^DD(391.98,.03,1,2,2)="K ^DGCN(391.98,""EVT"",$E(X,1,30),DA)"
^DD(391.98,.03,1,2,"%D",0)="^^2^2^2990111^^^^"
^DD(391.98,.03,1,2,"%D",1,0)="This cross-reference is to organize the date of the events that "
^DD(391.98,.03,1,2,"%D",2,0)="caused this information to be sent."
^DD(391.98,.03,1,2,"DT")="2961016"
^DD(391.98,.03,3)="Enter the date that the event occurred."
^DD(391.98,.03,21,0)="^^2^2^2990111^^^^"
^DD(391.98,.03,21,1,0)="This is the date/time the event occurred that caused the information "
^DD(391.98,.03,21,2,0)="to be sent to this facility."
^DD(391.98,.03,"DT")="2961016"
^DD(391.98,.04,0)="STATUS^RP391.984'^DGCN(391.984,^0;4^Q"
^DD(391.98,.04,1,0)="^.1"
^DD(391.98,.04,1,1,0)="391.98^AST"
^DD(391.98,.04,1,1,1)="S ^DGCN(391.98,""AST"",$E(X,1,30),DA)="""""
^DD(391.98,.04,1,1,2)="K ^DGCN(391.98,""AST"",$E(X,1,30),DA)"
^DD(391.98,.04,1,1,"%D",0)="^^1^1^2990111^^^"
^DD(391.98,.04,1,1,"%D",1,0)="This cross-reference is used primarily to organize the statuses."
^DD(391.98,.04,1,1,"DT")="2961016"
^DD(391.98,.04,3)="Enter the status of this exception."
^DD(391.98,.04,21,0)="^^1^1^2981228^^"
^DD(391.98,.04,21,1,0)="This is the status of the exception.  Every entry should have a status."
^DD(391.98,.04,"DT")="2961021"
^DD(391.98,11,0)="WHEN COMPLETED^D^^1;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(391.98,11,3)="Enter the date that the exception event was completed."
^DD(391.98,11,21,0)="^^1^1^2981228^^"
^DD(391.98,11,21,1,0)="This field contains the date/time the exception event was completed."
^DD(391.98,11,"DT")="2961015"
^DD(391.98,12,0)="WHO COMPLETED^P200'^VA(200,^1;2^Q"
^DD(391.98,12,3)="Enter the person who marked the exception as being completed."
^DD(391.98,12,21,0)="^^2^2^2981228^^^"
^DD(391.98,12,21,1,0)="This is the person who marked the exception as being completed "
^DD(391.98,12,21,2,0)="using the comparison screens."
^DD(391.98,12,"DT")="2961016"
^DD(391.98,50,0)="FROM WHOM^RF^^FRM;1^K:$L(X)>35!($L(X)<1) X"
^DD(391.98,50,1,0)="^.1"
^DD(391.98,50,1,1,0)="391.98^FRM"
^DD(391.98,50,1,1,1)="S ^DGCN(391.98,""FRM"",$E(X,1,30),DA)="""""
^DD(391.98,50,1,1,2)="K ^DGCN(391.98,""FRM"",$E(X,1,30),DA)"
^DD(391.98,50,1,1,"%D",0)="^^1^1^2990111^^^"
^DD(391.98,50,1,1,"%D",1,0)="This is a cross-reference of who sent the exception data."
^DD(391.98,50,1,1,"DT")="2961016"
^DD(391.98,50,1,2,0)="391.98^AKY2^MUMPS"
^DD(391.98,50,1,2,1)="N A,B,C S A=^DGCN(391.98,DA,0),B=$P(A,U,1),C=$P(A,U,3) I A]"""",B]"""" S ^DGCN(391.98,""AKY"",B,$E(X,1,35),C,DA)="""""
^DD(391.98,50,1,2,2)="N A,B,C S A=^DGCN(391.98,DA,0),B=$P(A,U,1),C=$P(A,U,3) I A]"""",B]"""" K ^DGCN(391.98,""AKY"",B,$E(X,1,35),C,DA)"
^DD(391.98,50,1,2,"%D",0)="^^3^3^2990111^^^^"
^DD(391.98,50,1,2,"%D",1,0)="This is the third field of the three field key to this file.  "
^DD(391.98,50,1,2,"%D",2,0)="The other two fields are the Patient field (#.01) and the Date "
^DD(391.98,50,1,2,"%D",3,0)="of Event field (#.03)."
^DD(391.98,50,1,2,"DT")="2961016"
^DD(391.98,50,3)="Enter the sender of the information."
^DD(391.98,50,21,0)="^^3^3^2990111^^"
^DD(391.98,50,21,1,0)="This field contains the sender of the information that needs to be"
^DD(391.98,50,21,2,0)="reviewed by the exception handler.  This is a free text field so "
^DD(391.98,50,21,3,0)="that a non-DHCP sender can be documented."
^DD(391.98,50,"DT")="2961016"
^DD(391.98,"B","DATE OF EVENT",.03)=""
^DD(391.98,"B","DATE RECEIVED",.02)=""
^DD(391.98,"B","FROM WHOM",50)=""
^DD(391.98,"B","PATIENT",.01)=""
^DD(391.98,"B","STATUS",.04)=""
^DD(391.98,"B","WHEN COMPLETED",11)=""
^DD(391.98,"B","WHO COMPLETED",12)=""
^DD(391.98,"GL",0,1,.01)=""
^DD(391.98,"GL",0,2,.02)=""
^DD(391.98,"GL",0,3,.03)=""
^DD(391.98,"GL",0,4,.04)=""
^DD(391.98,"GL",1,1,11)=""
^DD(391.98,"GL",1,2,12)=""
^DD(391.98,"GL","FRM",1,50)=""
^DD(391.98,"IX",.01)=""
^DD(391.98,"IX",.03)=""
^DD(391.98,"IX",.04)=""
^DD(391.98,"IX",50)=""
^DD(391.98,"RQ",.01)=""
^DD(391.98,"RQ",.03)=""
^DD(391.98,"RQ",.04)=""
^DD(391.98,"RQ",50)=""
^DD(391.984,0)="FIELD^^.02^2"
^DD(391.984,0,"DDA")="N"
^DD(391.984,0,"DT")="2961021"
^DD(391.984,0,"IX","B",391.984,.01)=""
^DD(391.984,0,"IX","C",391.984,.02)=""
^DD(391.984,0,"NM","EXCEPTION STATUS")=""
^DD(391.984,0,"PT",391.98,.04)=""
^DD(391.984,0,"VR")="5.3"
^DD(391.984,0,"VRPK")="DG"
^DD(391.984,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(391.984,.01,1,0)="^.1"
^DD(391.984,.01,1,1,0)="391.984^B"
^DD(391.984,.01,1,1,1)="S ^DGCN(391.984,""B"",$E(X,1,30),DA)="""""
^DD(391.984,.01,1,1,2)="K ^DGCN(391.984,""B"",$E(X,1,30),DA)"
^DD(391.984,.01,3)="Enter the name of the exception status."
^DD(391.984,.01,21,0)="^^3^3^2990112^^^^"
^DD(391.984,.01,21,1,0)="This is the status that will be displayed to the user when"
^DD(391.984,.01,21,2,0)="using the exception handler in the Patient Data Review "
^DD(391.984,.01,21,3,0)="[VAFC EXCEPTION HANDLER] option."
^DD(391.984,.01,"DT")="2961021"
^DD(391.984,.02,0)="CODE^RF^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(391.984,.02,1,0)="^.1"
^DD(391.984,.02,1,1,0)="391.984^C"
^DD(391.984,.02,1,1,1)="S ^DGCN(391.984,""C"",$E(X,1,30),DA)="""""
^DD(391.984,.02,1,1,2)="K ^DGCN(391.984,""C"",$E(X,1,30),DA)"
^DD(391.984,.02,1,1,"DT")="2961021"
^DD(391.984,.02,3)="Enter the code or abbreviation for the exception status."
^DD(391.984,.02,21,0)="^^3^3^2990112^^^^"
^DD(391.984,.02,21,1,0)="This is the status code that will be displayed to the user"
^DD(391.984,.02,21,2,0)="when using the exception handler in the Patient Data Review "
^DD(391.984,.02,21,3,0)="[VAFC EXCEPTION HANDLER] option."
^DD(391.984,.02,"DT")="2961021"
^DD(391.984,"B","CODE",.02)=""
^DD(391.984,"B","NAME",.01)=""
^DD(391.984,"GL",0,1,.01)=""
^DD(391.984,"GL",0,2,.02)=""
^DD(391.984,"IX",.01)=""
^DD(391.984,"IX",.02)=""
^DD(391.984,"RQ",.01)=""
^DD(391.984,"RQ",.02)=""
^DD(391.99,0)="FIELD^^50^7"
^DD(391.99,0,"DDA")="N"
^DD(391.99,0,"DT")="2970922"
^DD(391.99,0,"IX","AKY",391.99,.01)=""
^DD(391.99,0,"IX","AKY1",391.99,.02)=""
^DD(391.99,0,"IX","AKY2",391.99,.03)=""
^DD(391.99,0,"IX","ASRT",391.99,.02)=""
^DD(391.99,0,"IX","ASRT1",391.99,.03)=""
^DD(391.99,0,"IX","B",391.99,.01)=""
^DD(391.99,0,"NM","PATIENT DATA ELEMENT")=""
^DD(391.99,0,"VR")="5.3"
^DD(391.99,0,"VRPK")="DG"
^DD(391.99,.01,0)="EXCEPTION^RP391.98'^DGCN(391.98,^0;1^Q"
^DD(391.99,.01,1,0)="^.1"
^DD(391.99,.01,1,1,0)="391.99^B"
^DD(391.99,.01,1,1,1)="S ^DGCN(391.99,""B"",$E(X,1,30),DA)="""""
^DD(391.99,.01,1,1,2)="K ^DGCN(391.99,""B"",$E(X,1,30),DA)"
^DD(391.99,.01,1,2,0)="391.99^AKY^MUMPS"
^DD(391.99,.01,1,2,1)="N A,B,C S A=^DGCN(391.99,DA,0),B=$P(A,U,2),C=$P(A,U,3) I B]"""",C]"""" S ^DGCN(391.99,""AKY"",$E(X,1,30),B,C,DA)="""""
^DD(391.99,.01,1,2,2)="N A,B,C S A=^DGCN(391.99,DA,0),B=$P(A,U,2),C=$P(A,U,3) I B]"""",C]"""" K ^DGCN(391.99,""AKY"",$E(X,1,30),B,C,DA)"
^DD(391.99,.01,1,2,"%D",0)="^^2^2^2990112^^^^"
^DD(391.99,.01,1,2,"%D",1,0)="This is the first field in the three field key cross-reference."
^DD(391.99,.01,1,2,"%D",2,0)="The other fields are the File field (#.02) and the Field field (#.03)"
^DD(391.99,.01,1,2,"DT")="2961016"
^DD(391.99,.01,3)="Enter the patient data exception."
^DD(391.99,.01,21,0)="^^1^1^2990112^^^"
^DD(391.99,.01,21,1,0)="This is a pointer to the PATIENT DATA EXCEPTION.  This .01 is not unique."
^DD(391.99,.01,"DT")="2961016"
^DD(391.99,.02,0)="FILE^RF^^0;2^K:$L(X)>25!($L(X)<1) X"
^DD(391.99,.02,1,0)="^.1"
^DD(391.99,.02,1,1,0)="391.99^AKY1^MUMPS"
^DD(391.99,.02,1,1,1)="N A,B,C S A=^DGCN(391.99,DA,0),B=$P(A,U,1),C=$P(A,U,3) I B]"""",C]"""" S ^DGCN(391.99,""AKY"",B,$E(X,1,30),C,DA)="""""
^DD(391.99,.02,1,1,2)="N A,B,C S A=^DGCN(391.99,DA,0),B=$P(A,U,1),C=$P(A,U,3) I B]"""",C]"""" K ^DGCN(391.99,""AKY"",B,$E(X,1,30),C,DA)"
^DD(391.99,.02,1,1,"%D",0)="^^3^3^2990112^^^^"
^DD(391.99,.02,1,1,"%D",1,0)="This is the second field in the three field key cross-reference."
^DD(391.99,.02,1,1,"%D",2,0)="The other fields are the Exception field (#.01) and the Field"
^DD(391.99,.02,1,1,"%D",3,0)="field (#.03)."
^DD(391.99,.02,1,1,"DT")="2961016"
^DD(391.99,.02,1,2,0)="391.99^ASRT^MUMPS"
^DD(391.99,.02,1,2,1)="N A S A=$P(^DGCN(391.99,DA,0),U,3) I A]"""" S ^DGCN(391.99,""ASRT"",$E(X,1,30),A,DA)="""""
^DD(391.99,.02,1,2,2)="N A S A=$P(^DGCN(391.99,DA,0),U,3) I A]"""" K ^DGCN(391.99,""ASRT"",$E(X,1,30),A,DA)"
^DD(391.99,.02,1,2,"%D",0)="^^3^3^2990112^^^^"
^DD(391.99,.02,1,2,"%D",1,0)="This two field cross-reference is used to sort the data by file "
^DD(391.99,.02,1,2,"%D",2,0)="and field.  The other field in the cross-reference is the Field "
^DD(391.99,.02,1,2,"%D",3,0)="field (#.03)."
^DD(391.99,.02,1,2,"DT")="2961016"
^DD(391.99,.02,3)="Answer must be 1-25 characters in length."
^DD(391.99,.02,21,0)="^^1^1^2961016^"
^DD(391.99,.02,21,1,0)="This is the file that the data element would be placed in."
^DD(391.99,.02,"DT")="2961016"
^DD(391.99,.03,0)="FIELD^RF^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(391.99,.03,1,0)="^.1"
^DD(391.99,.03,1,1,0)="391.99^AKY2^MUMPS"
^DD(391.99,.03,1,1,1)="N A,B,C S A=^DGCN(391.99,DA,0),B=$P(A,U,1),C=$P(A,U,2) I B]"""",C]"""" S ^DGCN(391.99,""AKY"",B,C,$E(X,1,30),DA)="""""
^DD(391.99,.03,1,1,2)="N A,B,C S A=^DGCN(391.99,DA,0),B=$P(A,U,1),C=$P(A,U,2) I B]"""",C]"""" K ^DGCN(391.99,""AKY"",B,C,$E(X,1,30),DA)"
^DD(391.99,.03,1,1,"%D",0)="^^3^3^2990112^^^^"
^DD(391.99,.03,1,1,"%D",1,0)="This is the third field in the three field key cross-reference."
^DD(391.99,.03,1,1,"%D",2,0)="The other fields are the Exception field (#.01) and the "
^DD(391.99,.03,1,1,"%D",3,0)="File field (#.02)."
^DD(391.99,.03,1,1,"DT")="2961017"
^DD(391.99,.03,1,2,0)="391.99^ASRT1^MUMPS"
^DD(391.99,.03,1,2,1)="N A S A=$P(^DGCN(391.99,DA,0),U,2) I A]"""" S ^DGCN(391.99,""ASRT"",A,$E(X,1,30),DA)="""""
^DD(391.99,.03,1,2,2)="N A S A=$P(^DGCN(391.99,DA,0),U,2) I A]"""" K ^DGCN(391.99,""ASRT"",A,$E(X,1,30),DA)"
^DD(391.99,.03,1,2,"%D",0)="^^3^3^2990112^^^^"
^DD(391.99,.03,1,2,"%D",1,0)="This is the second part of the cross-reference that sorts the "
^DD(391.99,.03,1,2,"%D",2,0)="data element by file and field.  The other field is the File "
^DD(391.99,.03,1,2,"%D",3,0)="field (#.02)."
^DD(391.99,.03,1,2,"DT")="2961017"
^DD(391.99,.03,3)="Answer must be 1-25 characters in length."
^DD(391.99,.03,21,0)="^^1^1^2961016^"
^DD(391.99,.03,21,1,0)="This is the field the data element belongs in."
^DD(391.99,.03,"DT")="2961017"
^DD(391.99,.04,0)="MASTER FILE^P391.98'^DGCN(391.98,^0;4^Q"
^DD(391.99,.04,3)="Enter Patient Data Exception."
^DD(391.99,.04,21,0)="^^2^2^2990112^^^"
^DD(391.99,.04,21,1,0)="This is a pointer to this file. Its use will be for the definition of"
^DD(391.99,.04,21,2,0)="multiples.  At this point in time it is not used."
^DD(391.99,.04,"DT")="2961016"
^DD(391.99,.05,0)="EDITED?^S^1:YES;^0;5^Q"
^DD(391.99,.05,3)="Enter YES or 1 if the element was edited."
^DD(391.99,.05,21,0)="^^2^2^2990112^^^"
^DD(391.99,.05,21,1,0)="This field flags incoming data elements that were actually edited"
^DD(391.99,.05,21,2,0)="at the site which originated the incoming message."
^DD(391.99,.05,"DT")="2970805"
^DD(391.99,.06,0)="UNRESOLVED?^S^1:YES;^0;6^Q"
^DD(391.99,.06,3)="Enter YES or 1 if the element cannot be resolved."
^DD(391.99,.06,21,0)="^^1^1^2990112^^^"
^DD(391.99,.06,21,1,0)="This field flags incoming data elements that cannot be resolved."
^DD(391.99,.06,"DT")="2970922"
^DD(391.99,50,0)="VALUE^F^^VAL;1^K:$L(X)>245!($L(X)<1) X"
^DD(391.99,50,3)="Enter the value that will be placed in the field."
^DD(391.99,50,21,0)="^^1^1^2990112^^^"
^DD(391.99,50,21,1,0)="This is the value that will be placed in the field."
^DD(391.99,50,"DT")="2961016"
^DD(391.99,"B","EDITED?",.05)=""
^DD(391.99,"B","EXCEPTION",.01)=""
^DD(391.99,"B","FIELD",.03)=""
^DD(391.99,"B","FILE",.02)=""
^DD(391.99,"B","MASTER FILE",.04)=""
^DD(391.99,"B","UNRESOLVED?",.06)=""
^DD(391.99,"B","VALUE",50)=""
^DD(391.99,"GL",0,1,.01)=""
^DD(391.99,"GL",0,2,.02)=""
^DD(391.99,"GL",0,3,.03)=""
^DD(391.99,"GL",0,4,.04)=""
^DD(391.99,"GL",0,5,.05)=""
^DD(391.99,"GL",0,6,.06)=""
^DD(391.99,"GL","VAL",1,50)=""
^DD(391.99,"IX",.01)=""
^DD(391.99,"IX",.02)=""
^DD(391.99,"IX",.03)=""
^DD(391.99,"RQ",.01)=""
^DD(391.99,"RQ",.02)=""
^DD(391.99,"RQ",.03)=""
^DD(392,0)="FIELD^^51^36"
^DD(392,0,"DDA")="N"
^DD(392,0,"DT")="2930127"
^DD(392,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(392,0,"ID",6)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGBT(392.3,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(392.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(392,0,"IX","AC",392,6)=""
^DD(392,0,"IX","ACTP",392,6)=""
^DD(392,0,"IX","AD",392,9)=""
^DD(392,0,"IX","AE",392,3)=""
^DD(392,0,"IX","AFLS",392,14)=""
^DD(392,0,"IX","AI",392,2)=""
^DD(392,0,"IX","AS",392,7)=""
^DD(392,0,"IX","B",392,.01)=""
^DD(392,0,"IX","C",392,2)=""
^DD(392,0,"NM","BENEFICIARY TRAVEL CLAIM")=""
^DD(392,0,"VR")="1.0"
^DD(392,0,"VRPK")="DGBT"
^DD(392,.01,0)="Claim DATE/TIME^RDX^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=X"
^DD(392,.01,1,0)="^.1"
^DD(392,.01,1,1,0)="392^B"
^DD(392,.01,1,1,1)="S ^DGBT(392,""B"",$E(X,1,30),DA)="""""
^DD(392,.01,1,1,2)="K ^DGBT(392,""B"",$E(X,1,30),DA)"
^DD(392,.01,3)="Enter the Beneficiary Travel CLAIM date/time in the usual fileman format."
^DD(392,.01,21,0)="^^1^1^2920108^"
^DD(392,.01,21,1,0)="Enter the date/time of the Bene Travel Claim."
^DD(392,.01,22)=""
^DD(392,.01,"DT")="2890113"
^DD(392,2,0)="NAME^RP2'I^DPT(^0;2^Q"
^DD(392,2,1,0)="^.1"
^DD(392,2,1,1,0)="392^C"
^DD(392,2,1,1,1)="S ^DGBT(392,""C"",$E(X,1,30),DA)="""""
^DD(392,2,1,1,2)="K ^DGBT(392,""C"",$E(X,1,30),DA)"
^DD(392,2,1,2,0)="392^AI^MUMPS"
^DD(392,2,1,2,1)="S ^DGBT(392,""AI"",$E(X,1,30),9999999.99999-DA)=DA"
^DD(392,2,1,2,2)="K ^DGBT(392,""AI"",$E(X,1,30),9999999.99999-DA)"
^DD(392,2,21,0)="^^1^1^2920108^"
^DD(392,2,21,1,0)="Enter the patient that is related to this Bene Travel Claim."
^DD(392,2,"DT")="2890129"
^DD(392,3,0)="ELIGIBILITY^P8'X^DIC(8,^0;3^Q"
^DD(392,3,1,0)="^.1"
^DD(392,3,1,1,0)="392^AE"
^DD(392,3,1,1,1)="S ^DGBT(392,""AE"",$E(X,1,30),DA)="""""
^DD(392,3,1,1,2)="K ^DGBT(392,""AE"",$E(X,1,30),DA)"
^DD(392,3,3)="Enter the primary eligibility or other entitled eligibilities"
^DD(392,3,21,0)="^^1^1^2920108^"
^DD(392,3,21,1,0)="This field contains the eligibililty of the patient for this Bene Travel Claim."
^DD(392,3,"DT")="2890108"
^DD(392,4,0)="SC PERCENTAGE^NJ3,0^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(392,4,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(392,4,21,0)="^^1^1^2920109^^"
^DD(392,4,21,1,0)="Enter the SC percentage of this patient related to this Bene Travel Claim."
^DD(392,5,0)="CERTIFICATION DATE^*P392.2'^DGBT(392.2,^0;5^S DIC(""S"")=""I $P(^(0),U,2)=$P(^DGBT(392,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(392,5,.1)="ANNUAL CERTIFICATION"
^DD(392,5,3)=""
^DD(392,5,4)=""
^DD(392,5,12)="Only allowed to select Certification Dates for this patient"
^DD(392,5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$P(^DGBT(392,DA,0),U,2)"""
^DD(392,5,21,0)="^^1^1^2960726^^^"
^DD(392,5,21,1,0)="This field contains the Beneficiary Travel Certification date."
^DD(392,5,"DT")="2890106"
^DD(392,6,0)="ACCOUNT^R*P392.3'^DGBT(392.3,^0;6^S DIC(""S"")=""I $P(^(0),U,3)'>DA&('$P(^(0),U,4)!($P(^(0),U,4)'<DA))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(392,6,1,0)="^.1"
^DD(392,6,1,1,0)="392^AC"
^DD(392,6,1,1,1)="S ^DGBT(392,""AC"",$E(X,1,30),DA)="""""
^DD(392,6,1,1,2)="K ^DGBT(392,""AC"",$E(X,1,30),DA)"
^DD(392,6,1,2,0)="392^ACTP^MUMPS"
^DD(392,6,1,2,1)="Q:'$D(^DGBT(392.3,X,0))  S:+$P(^(0),U,5) ^DGBT(392,""ACTP"",+$P(^(0),U,5),DA)="""""
^DD(392,6,1,2,2)="Q:'$D(^DGBT(392.3,X,0))  K:+$P(^(0),U,5) ^DGBT(392,""ACTP"",+$P(^(0),U,5),DA)"
^DD(392,6,3)=""
^DD(392,6,12)="Enter the appropriate account at the time of the claim."
^DD(392,6,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'>DA&('$P(^(0),U,4)!($P(^(0),U,4)'<DA))"""
^DD(392,6,21,0)="^^3^3^2930127^^"
^DD(392,6,21,1,0)="This field is a pointer to the Beneficiary Travel Account file and"
^DD(392,6,21,2,0)="contains the account number assigned to an individual beneficiary"
^DD(392,6,21,3,0)="travel claim."
^DD(392,6,"DT")="2910219"
^DD(392,7,0)="CARRIER^RP440'^PRC(440,^0;7^Q"
^DD(392,7,1,0)="^.1"
^DD(392,7,1,1,0)="392^AS"
^DD(392,7,1,1,1)="S ^DGBT(392,""AS"",$E(X,1,30),DA)="""""
^DD(392,7,1,1,2)="K ^DGBT(392,""AS"",$E(X,1,30),DA)"
^DD(392,7,3)=""
^DD(392,7,21,0)="^^2^2^2920109^"
^DD(392,7,21,1,0)="This field points to the Vendor File and contains the Carrier providing "
^DD(392,7,21,2,0)="services for this Bene Travel Claim."
^DD(392,7,"DT")="2890129"
^DD(392,8,0)="MOST ECON. COST^NJ8,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(392,8,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(392,8,21,0)="^^2^2^2920109^"
^DD(392,8,21,1,0)="This field contains the most economical cost amount (whatever cost less) "
^DD(392,8,21,2,0)="for this Bene Travel Claim."
^DD(392,8,"DT")="2881214"
^DD(392,9,0)="DEDUCTIBLE AMOUNT^RNJ4,2X^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99)!(X<0) X"
^DD(392,9,1,0)="^.1"
^DD(392,9,1,1,0)="392^AD^MUMPS"
^DD(392,9,1,1,1)="S ^DGBT(392,""AD"",$P(^DGBT(392,DA,0),""^"",2),$E(DA,2,5),DA)=X"
^DD(392,9,1,1,2)="K ^DGBT(392,""AD"",$P(^DGBT(392,DA,0),""^"",2),$E(DA,2,5),DA)"
^DD(392,9,3)="Type a Dollar Amount between 0 and 99, 2 Decimal Digits"
^DD(392,9,21,0)="^^1^1^2920109^"
^DD(392,9,21,1,0)="This field contains the deductible amount applied to this Bene Travel Claim."
^DD(392,9,"DT")="3080117"
^DD(392,10,0)="AMOUNT PAYABLE^RNJ8,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(392,10,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(392,10,21,0)="^^2^2^2920109^"
^DD(392,10,21,1,0)="This field contains the amount payable (cost minus any applied deductible) "
^DD(392,10,21,2,0)="for this Bene Travel Claim."
^DD(392,10,"DT")="2881214"
^DD(392,11,0)="DIVISION^RP40.8'^DG(40.8,^0;11^Q"
^DD(392,11,21,0)="^^2^2^2920109^"
^DD(392,11,21,1,0)="This field contains the medical center division related to this Bene Travel "
^DD(392,11,21,2,0)="Claim."
^DD(392,11,"DT")="2890127"
^DD(392,12,0)="WHO ENTERED INTO FILE^P200'^VA(200,^0;12^Q"
^DD(392,12,21,0)="^^1^1^2920109^^^"
^DD(392,12,21,1,0)="The name of the user who first entered this patient into the Beneficiary Travel Claim file."
^DD(392,12,"DT")="2901017"
^DD(392,13,0)="DATE ENTERED INTO THE FILE^MD^^0;13^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(392,13,21,0)="^^1^1^2881215^^"
^DD(392,13,21,1,0)="The date this beneficiary travel claim was entered into this file."
^DD(392,13,"DT")="2881215"
^DD(392,14,0)="COREFLS CARRIER^P392.31'O^DGBT(392.31,^0;14^Q"
^DD(392,14,1,0)="^.1"
^DD(392,14,1,1,0)="392^AFLS"
^DD(392,14,1,1,1)="S ^DGBT(392,""AFLS"",$E(X,1,30),DA)="""""
^DD(392,14,1,1,2)="K ^DGBT(392,""AFLS"",$E(X,1,30),DA)"
^DD(392,14,1,1,"DT")="3020416"
^DD(392,14,2)="S Y(0)=Y K DGBTPRV S DGBTPRV=$$PREV^DGBTCSL(.Y)"
^DD(392,14,2.1)="K DGBTPRV S DGBTPRV=$$PREV^DGBTCSL(.Y)"
^DD(392,14,3)="Enter a COREFLS Carrier for this claim."
^DD(392,14,21,0)="^^1^1^3021207^"
^DD(392,14,21,1,0)="This field contains the COREFLS Carrier for this Bene Travel Claim."
^DD(392,14,"DEL",1,0)="I 1 W !,*7,""DELETIONS ARE NOT ALLOWED"""
^DD(392,14,"DT")="3021211"
^DD(392,21,0)="PLACE OF DEPARTURE [LINE 1]^F^^D;1^K:$L(X)>35!($L(X)<3) X"
^DD(392,21,1,0)="^.1"
^DD(392,21,1,1,0)="^^TRIGGER^392^22"
^DD(392,21,1,1,1)="Q"
^DD(392,21,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGBT(392,D0,""D"")):^(""D""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(392,21,1,1,2.4)"
^DD(392,21,1,1,2.4)="S DIH=$S($D(^DGBT(392,DIV(0),""D"")):^(""D""),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(""D"")=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=392,DIG=22 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(392,21,1,1,"CREATE VALUE")="NO EFFECT"
^DD(392,21,1,1,"DELETE VALUE")="@"
^DD(392,21,1,1,"FIELD")="PLACE OF DEPARTURE [LINE 2]"
^DD(392,21,3)="Enter the first line of the place of departure address.  Answer must be 3-35 characters in length."
^DD(392,21,21,0)="^^2^2^2920109^^"
^DD(392,21,21,1,0)="This field contains the first line of the address for the place of "
^DD(392,21,21,2,0)="departure for this Bene Travel Claim."
^DD(392,21,"DT")="2890406"
^DD(392,22,0)="PLACE OF DEPARTURE [LINE 2]^F^^D;2^K:$L(X)>30!($L(X)<3) X"
^DD(392,22,1,0)="^.1"
^DD(392,22,1,1,0)="^^TRIGGER^392^23"
^DD(392,22,1,1,1)="Q"
^DD(392,22,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGBT(392,D0,""D"")):^(""D""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(392,22,1,1,2.4)"
^DD(392,22,1,1,2.4)="S DIH=$S($D(^DGBT(392,DIV(0),""D"")):^(""D""),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(""D"")=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=392,DIG=23 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(392,22,1,1,"CREATE VALUE")="NO EFFECT"
^DD(392,22,1,1,"DELETE VALUE")="@"
^DD(392,22,1,1,"FIELD")="PLACE OF DEPARTURE [LINE 3]"
^DD(392,22,3)="If the space provided in 'PLACE OF DEPARTURE [LINE 1] was not sufficient, enter the second line of the place of departure address.  Answer must be 3-30 characters in length."
^DD(392,22,5,1,0)="392^21^1"
^DD(392,22,21,0)="^^2^2^2920109^"
^DD(392,22,21,1,0)="This field contains the second line of the address for the place of "
^DD(392,22,21,2,0)="departure for this Bene Travel Claim."
^DD(392,22,"DT")="2890406"
^DD(392,23,0)="PLACE OF DEPARTURE [LINE 3]^F^^D;3^K:$L(X)>30!($L(X)<3) X"
^DD(392,23,3)="Answer must be 3-30 characters in length."
^DD(392,23,5,1,0)="392^22^1"
^DD(392,23,21,0)="^^2^2^2920109^"
^DD(392,23,21,1,0)="This field contains the third line of the address for the place of "
^DD(392,23,21,2,0)="departure for this Bene Travel Claim."
^DD(392,23,"DT")="2881215"
^DD(392,24,0)="CITY OF DEPARTURE^FX^^D;4^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X I $D(X) D UP^DGHELP"
^DD(392,24,3)="Answer must be 2-30 characters in length."
^DD(392,24,21,0)="^^2^2^2920109^"
^DD(392,24,21,1,0)="This field contains the name of the city in the address for the place of "
^DD(392,24,21,2,0)="departure for this Bene Travel Claim."
^DD(392,24,"DT")="2890227"
^DD(392,24.1,0)="STATE OF DEPARTURE^P5'^DIC(5,^D;5^Q"
^DD(392,24.1,21,0)="^^2^2^2920109^"
^DD(392,24.1,21,1,0)="This field points to the State File and uses this for the state in the "
^DD(392,24.1,21,2,0)="address for the place of departure for this Bene Travel Claim."
^DD(392,24.1,"DT")="2890227"
^DD(392,24.2,0)="ZIP CODE/DEPARTURE^FXO^^D;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(392,24.2,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(392,24.2,2.1)="D ZIPOUT^VAFADDR"
^DD(392,24.2,3)="Answer with either 5 digit or 9 digit zip code."
^DD(392,24.2,21,0)="^^2^2^2930614^"
^DD(392,24.2,21,1,0)="This field contains the 5-digit zip code used in the address for the place"
^DD(392,24.2,21,2,0)="of departure for this Bene Travel Claim."
^DD(392,24.2,"DT")="2930301"
^DD(392,25,0)="DESTINATION [LINE 1]^F^^T;1^K:$L(X)>35!($L(X)<3) X"
^DD(392,25,1,0)="^.1"
^DD(392,25,1,1,0)="^^TRIGGER^392^26"
^DD(392,25,1,1,1)="Q"
^DD(392,25,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGBT(392,D0,""T"")):^(""T""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(392,25,1,1,2.4)"
^DD(392,25,1,1,2.4)="S DIH=$S($D(^DGBT(392,DIV(0),""T"")):^(""T""),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(""T"")=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=392,DIG=26 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(392,25,1,1,"CREATE VALUE")="NO EFFECT"
^DD(392,25,1,1,"DELETE VALUE")="@"
^DD(392,25,1,1,"FIELD")="DESTINATION [LINE 2]"
^DD(392,25,3)="Answer must be 3-35 characters in length."
^DD(392,25,21,0)="^^2^2^2920109^"
^DD(392,25,21,1,0)="This field contains the first line of the address for place of destination "
^DD(392,25,21,2,0)="for this Bene Travel Claim."
^DD(392,25,"DT")="2890406"
^DD(392,26,0)="DESTINATION [LINE 2]^F^^T;2^K:$L(X)>30!($L(X)<3) X"
^DD(392,26,1,0)="^.1"
^DD(392,26,1,1,0)="^^TRIGGER^392^27"
^DD(392,26,1,1,1)="Q"
^DD(392,26,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGBT(392,D0,""T"")):^(""T""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(392,26,1,1,2.4)"
^DD(392,26,1,1,2.4)="S DIH=$S($D(^DGBT(392,DIV(0),""T"")):^(""T""),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(""T"")=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=392,DIG=27 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(392,26,1,1,"CREATE VALUE")="NO EFFECT"
^DD(392,26,1,1,"DELETE VALUE")="@"
^DD(392,26,1,1,"FIELD")="DESTINATION [LINE 3]"
^DD(392,26,3)="Answer must be 3-30 characters in length."
^DD(392,26,5,1,0)="392^25^1"
^DD(392,26,21,0)="^^2^2^2920109^"
^DD(392,26,21,1,0)="This field contains the second line of the address for the place of "
^DD(392,26,21,2,0)="destination for this Bene Travel Claim."
^DD(392,26,"DT")="2890406"
^DD(392,27,0)="DESTINATION [LINE 3]^F^^T;3^K:$L(X)>30!($L(X)<3) X"
^DD(392,27,3)="Answer must be 3-30 characters in length."
^DD(392,27,5,1,0)="392^26^1"
^DD(392,27,21,0)="^^2^2^2920109^^"
^DD(392,27,21,1,0)="This field contains the third line of the address for the place of "
^DD(392,27,21,2,0)="destination for this Bene Travel Claim."
^DD(392,27,"DT")="2890208"
^DD(392,28,0)="CITY OF DESTINATION^FX^^T;4^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X I $D(X) D UP^DGHELP"
^DD(392,28,3)="Answer must be 2-30 characters in length."
^DD(392,28,21,0)="^^2^2^2920109^"
^DD(392,28,21,1,0)="This field contains the name of the city in the address for the place of "
^DD(392,28,21,2,0)="destination for this Bene Travel Claim."
^DD(392,28,"DT")="2890309"
^DD(392,28.1,0)="STATE OF DESTINATION^P5'^DIC(5,^T;5^Q"
^DD(392,28.1,21,0)="^^2^2^2920109^^"
^DD(392,28.1,21,1,0)="This field points the the STATE file and contains the state used in the "
^DD(392,28.1,21,2,0)="address for the place of destination for this Bene Travel Claim."
^DD(392,28.1,"DT")="2890227"
^DD(392,28.2,0)="ZIP CODE/DESTINATION^FXO^^T;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(392,28.2,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(392,28.2,2.1)="D ZIPOUT^VAFADDR"
^DD(392,28.2,3)="Answer with either 5 digit or 9 digit zip code."
^DD(392,28.2,21,0)="^^2^2^2920109^"
^DD(392,28.2,21,1,0)="This field contains the 5-digit zip code used in the address for the "
^DD(392,28.2,21,2,0)="place of destination for this Bene Travel Claim."
^DD(392,28.2,"DT")="2930301"
^DD(392,31,0)="ONE WAY/ROUND TRIP^RS^1:ONE WAY;2:ROUND TRIP;^M;1^Q"
^DD(392,31,21,0)="^^1^1^2920109^^"
^DD(392,31,21,1,0)="This field indicates one way or round trip for this Bene Travel Claim."
^DD(392,31,"DT")="2890208"
^DD(392,32,0)="MILEAGE/ONE WAY^RNJ5,0^^M;2^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(392,32,3)="Type a Number between 0 and 10000, 0 Decimal Digits"
^DD(392,32,21,0)="^^1^1^2920109^"
^DD(392,32,21,1,0)="This field contains the one way mileage for this Bene Travel Calim."
^DD(392,32,"DT")="2890129"
^DD(392,33,0)="TOTAL MILEAGE AMOUNT^NJ8,2^^M;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(392,33,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(392,33,21,0)="^^2^2^2930127^^"
^DD(392,33,21,1,0)="This is a numeric field containing the total mileage entered for a"
^DD(392,33,21,2,0)="specific beneficiary travel claim."
^DD(392,33,"DT")="2890107"
^DD(392,34,0)="MEALS & LODGING^NJ8,2^^M;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(392,34,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(392,34,21,0)="^^1^1^2920109^"
^DD(392,34,21,1,0)="This field contains meals and lodging costs for this Bene Travel Claim."
^DD(392,34,"DT")="2890107"
^DD(392,35,0)="FERRY, BRIDGES, ETC.^NJ8,2^^M;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(392,35,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(392,35,21,0)="^^1^1^2920109^"
^DD(392,35,21,1,0)="This field contains ferry, bridges, etc. costs for this Bene Travel Claim."
^DD(392,35,"DT")="2890107"
^DD(392,41,0)="AUTHORIZING PERSON^P200'^VA(200,^A;1^Q"
^DD(392,41,21,0)="^^2^2^2930127^^"
^DD(392,41,21,1,0)="This field points the person file to indicate who the authorizing person "
^DD(392,41,21,2,0)="responsible for this Bene Travel Claim."
^DD(392,41,"DT")="2930127"
^DD(392,42,0)="ATTENDANT/PAYEE^FX^^A;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'["","") X I $D(X) D UP^DGHELP S Y="", "" F I=0:0 Q:$F(X,Y)<1  S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)"
^DD(392,42,3)="Enter the name in 'Last,First Middle' format between 3-30 characters.  With the exception of the comma, period, space, hyphen, dash and apostrophe punctuation characters should be avoided."
^DD(392,42,21,0)="^^2^2^2930730^^"
^DD(392,42,21,1,0)="This field contains the 'Last, First Middle' name format of the "
^DD(392,42,21,2,0)="attendent/payee of this Bene Travel Claim."
^DD(392,42,"DT")="2930730"
^DD(392,43,0)="C&P REVIEW VISIT^RS^0:NO;1:YES;^A;3^Q"
^DD(392,43,3)="Answer whether this claim is a C&P review visit and should be paid at the C&P review visit mileage rate as indicated in the BT parameters."
^DD(392,43,21,0)="^^3^3^2920109^"
^DD(392,43,21,1,0)="This field indicates whether this is a C&P review visit and should be "
^DD(392,43,21,2,0)="paid at the C&P review visit mileage rate as indicated in the BT "
^DD(392,43,21,3,0)="parameters for this Bene Travel Claim."
^DD(392,43,"DT")="2890228"
^DD(392,44,0)="MODE OF TRANSPORTATION^RP392.4^DGBT(392.4,^A;4^Q"
^DD(392,44,3)="Enter the mode of transportation used for this Beneficiary Travel Claim         (e.g. AMBULANCE, HIRED CAR, HANDICAPPED VAN, etc.)"
^DD(392,44,21,0)="^^2^2^2920109^"
^DD(392,44,21,1,0)="This field points to the Beneficiary Travel Mode of Transportation file "
^DD(392,44,21,2,0)="and indicates the mode of transportation used for this Bene Travel Claim."
^DD(392,44,"DT")="2890302"
^DD(392,51,0)="REMARKS^FX^^R;1^K:$L(X)>79!($L(X)<1)!(X["";"") X"
^DD(392,51,3)="Answer must be 1-79 characters in length and not containing a "";""."
^DD(392,51,21,0)="^^1^1^2920109^"
^DD(392,51,21,1,0)="This field contains remarks related to this Bene Travel Claim."
^DD(392,51,"DT")="2900627"
^DD(392,"B","ACCOUNT",6)=""
^DD(392,"B","AMOUNT PAYABLE",10)=""
^DD(392,"B","ANNUAL CERTIFICATION",5)="1"
^DD(392,"B","ATTENDANT/PAYEE",42)=""
^DD(392,"B","AUTHORIZING PERSON",41)=""
^DD(392,"B","C&P REVIEW VISIT",43)=""
^DD(392,"B","CARRIER",7)=""
^DD(392,"B","CERTIFICATION DATE",5)=""
^DD(392,"B","CITY OF DEPARTURE",24)=""
^DD(392,"B","CITY OF DESTINATION",28)=""
^DD(392,"B","COREFLS CARRIER",14)=""
^DD(392,"B","Claim DATE/TIME",.01)=""
^DD(392,"B","DATE ENTERED INTO THE FILE",13)=""
^DD(392,"B","DEDUCTIBLE AMOUNT",9)=""
^DD(392,"B","DESTINATION [LINE 1]",25)=""
^DD(392,"B","DESTINATION [LINE 2]",26)=""
^DD(392,"B","DESTINATION [LINE 3]",27)=""
^DD(392,"B","DIVISION",11)=""
^DD(392,"B","ELIGIBILITY",3)=""
^DD(392,"B","FERRY, BRIDGES, ETC.",35)=""
^DD(392,"B","MEALS & LODGING",34)=""
^DD(392,"B","MILEAGE/ONE WAY",32)=""
^DD(392,"B","MODE OF TRANSPORTATION",44)=""
^DD(392,"B","MOST ECON. COST",8)=""
^DD(392,"B","NAME",2)=""
^DD(392,"B","ONE WAY/ROUND TRIP",31)=""
^DD(392,"B","PLACE OF DEPARTURE [LINE 1]",21)=""
^DD(392,"B","PLACE OF DEPARTURE [LINE 2]",22)=""
^DD(392,"B","PLACE OF DEPARTURE [LINE 3]",23)=""
^DD(392,"B","REMARKS",51)=""
^DD(392,"B","SC PERCENTAGE",4)=""
^DD(392,"B","STATE OF DEPARTURE",24.1)=""
^DD(392,"B","STATE OF DESTINATION",28.1)=""
^DD(392,"B","TOTAL MILEAGE AMOUNT",33)=""
^DD(392,"B","WHO ENTERED INTO FILE",12)=""
^DD(392,"B","ZIP CODE/DEPARTURE",24.2)=""
^DD(392,"B","ZIP CODE/DESTINATION",28.2)=""
^DD(392,"GL",0,1,.01)=""
^DD(392,"GL",0,2,2)=""
^DD(392,"GL",0,3,3)=""
^DD(392,"GL",0,4,4)=""
^DD(392,"GL",0,5,5)=""
^DD(392,"GL",0,6,6)=""
^DD(392,"GL",0,7,7)=""
^DD(392,"GL",0,8,8)=""
^DD(392,"GL",0,9,9)=""
^DD(392,"GL",0,10,10)=""
^DD(392,"GL",0,11,11)=""
^DD(392,"GL",0,12,12)=""
^DD(392,"GL",0,13,13)=""
^DD(392,"GL",0,14,14)=""
^DD(392,"GL","A",1,41)=""
^DD(392,"GL","A",2,42)=""
^DD(392,"GL","A",3,43)=""
^DD(392,"GL","A",4,44)=""
^DD(392,"GL","D",1,21)=""
^DD(392,"GL","D",2,22)=""
^DD(392,"GL","D",3,23)=""
^DD(392,"GL","D",4,24)=""
^DD(392,"GL","D",5,24.1)=""
^DD(392,"GL","D",6,24.2)=""
^DD(392,"GL","M",1,31)=""
^DD(392,"GL","M",2,32)=""
^DD(392,"GL","M",3,33)=""
^DD(392,"GL","M",4,34)=""
^DD(392,"GL","M",5,35)=""
^DD(392,"GL","R",1,51)=""
^DD(392,"GL","T",1,25)=""
^DD(392,"GL","T",2,26)=""
^DD(392,"GL","T",3,27)=""
^DD(392,"GL","T",4,28)=""
^DD(392,"GL","T",5,28.1)=""
^DD(392,"GL","T",6,28.2)=""
^DD(392,"IX",.01)=""
^DD(392,"IX",2)=""
^DD(392,"IX",3)=""
^DD(392,"IX",6)=""
^DD(392,"IX",7)=""
^DD(392,"IX",9)=""
^DD(392,"IX",14)=""
^DD(392,"IX",21)=""
^DD(392,"IX",22)=""
^DD(392,"IX",25)=""
^DD(392,"IX",26)=""
^DD(392,"RQ",.01)=""
^DD(392,"RQ",2)=""
^DD(392,"RQ",6)=""
^DD(392,"RQ",7)=""
^DD(392,"RQ",9)=""
^DD(392,"RQ",10)=""
^DD(392,"RQ",11)=""
^DD(392,"RQ",31)=""
^DD(392,"RQ",32)=""
^DD(392,"RQ",43)=""
^DD(392,"RQ",44)=""
^DD(392.1,0)="FIELD^^100^7"
^DD(392.1,0,"DDA")="N"
^DD(392.1,0,"DT")="2930209"
^DD(392.1,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(392.1,0,"IX","AC",392.1,.01)=""
^DD(392.1,0,"IX","ACS",392.1,2)=""
^DD(392.1,0,"IX","B",392.1,.01)=""
^DD(392.1,0,"IX","C",392.1,4)=""
^DD(392.1,0,"NM","BENEFICIARY TRAVEL DISTANCE")=""
^DD(392.1,0,"VR")="1.0"
^DD(392.1,0,"VRPK")="DGBT"
^DD(392.1,.01,0)="CITY OR TOWN^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X I $D(X) D UP^DGBTHELP"
^DD(392.1,.01,1,0)="^.1"
^DD(392.1,.01,1,1,0)="392.1^B"
^DD(392.1,.01,1,1,1)="S ^DGBT(392.1,""B"",$E(X,1,30),DA)="""""
^DD(392.1,.01,1,1,2)="K ^DGBT(392.1,""B"",$E(X,1,30),DA)"
^DD(392.1,.01,1,2,0)="392.1^AC^MUMPS"
^DD(392.1,.01,1,2,1)="S:$P(^DGBT(392.1,DA,0),""^"",2)]"""" ^DGBT(392.1,""ACS"",$E(X,1,30),$P(^DGBT(392.1,DA,0),""^"",2),DA)="""" S ^DGBT(392.1,""AC"",DA)=$E(X,1,30)"
^DD(392.1,.01,1,2,2)="K:$P(^DGBT(392.1,DA,0),""^"",2)]"""" ^DGBT(392.1,""ACS"",$E(X,1,30),$P(^DGBT(392.1,DA,0),""^"",2),DA) K ^DGBT(392.1,""AC"",DA)"
^DD(392.1,.01,3)="Enter the name of the city or town to be used as the point of departure, 1-30 characters in length."
^DD(392.1,.01,21,0)="^^4^4^2930614^"
^DD(392.1,.01,21,1,0)="This field contains the free text departure name, 1 to 30 characters"
^DD(392.1,.01,21,2,0)="in length, of the City or Town that is used as the alternate lookup in"
^DD(392.1,.01,21,3,0)="determining the one way mileage distance that is pre-stuffed when entering"
^DD(392.1,.01,21,4,0)="the Bene Travel Claim."
^DD(392.1,.01,"DT")="3011030"
^DD(392.1,2,0)="STATE^RP5'^DIC(5,^0;2^Q"
^DD(392.1,2,1,0)="^.1"
^DD(392.1,2,1,1,0)="392.1^ACS^MUMPS"
^DD(392.1,2,1,1,1)="S ^DGBT(392.1,""ACS"",$P(^DGBT(392.1,DA,0),""^""),X,DA)="""""
^DD(392.1,2,1,1,2)="K ^DGBT(392.1,""ACS"",$P(^DGBT(392.1,DA,0),""^""),X,DA)"
^DD(392.1,2,3)="Enter the State name or two digit postal abbreviation"
^DD(392.1,2,21,0)="^^4^4^2930216^^^^"
^DD(392.1,2,21,1,0)="This field points to the State File (#5) and contains the IFN for that "
^DD(392.1,2,21,2,0)="field and is used in the Beneficiary Travel Claim Options"
^DD(392.1,2,21,3,0)="as the primary look-up to determine the"
^DD(392.1,2,21,4,0)="one way mileage that can be pre-stuffed in the Bene Travel Claim.  "
^DD(392.1,2,"DT")="2890316"
^DD(392.1,3,0)="DEFAULT MILEAGE^NJ5,0^^0;3^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(392.1,3,3)="Enter the default mileage between the city/town and the primary division.  This must be a number between 0 and 10000."
^DD(392.1,3,21,0)="^^7^7^2930216^^^^"
^DD(392.1,3,21,1,0)="This field contains the one way mileage (in whole numbers between 0 and "
^DD(392.1,3,21,2,0)="10000) distance (e.g. between place of departure and place of destination)."
^DD(392.1,3,21,3,0)="The default mileage is between the departure city and the primary division"
^DD(392.1,3,21,4,0)="of the instituion.  This value is not accessed directly by the user"
^DD(392.1,3,21,5,0)="but is stuffed from the mileage/one way field in the primary division"
^DD(392.1,3,21,6,0)="of the division mileage multiple.  It is changed whenever the one-way"
^DD(392.1,3,21,7,0)="mileage in the primary division is changed."
^DD(392.1,3,22)=""
^DD(392.1,3,"DT")="2930209"
^DD(392.1,4,0)="ZIP^FXO^^0;4^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(392.1,4,1,0)="^.1"
^DD(392.1,4,1,1,0)="392.1^C"
^DD(392.1,4,1,1,1)="S ^DGBT(392.1,""C"",$E(X,1,30),DA)="""""
^DD(392.1,4,1,1,2)="K ^DGBT(392.1,""C"",$E(X,1,30),DA)"
^DD(392.1,4,1,1,"%D",0)="^^1^1^2930209^"
^DD(392.1,4,1,1,"%D",1,0)="Zipcode cross-reference for lookup by zipcode"
^DD(392.1,4,1,1,"DT")="2930209"
^DD(392.1,4,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(392.1,4,2.1)="D ZIPOUT^VAFADDR"
^DD(392.1,4,3)="Answer must be 5 digit or 9 digit zip code.  If no zip code is entered, you will not be able to do lookups later by cross-referencing on the zip code."
^DD(392.1,4,21,0)="^^5^5^2930614^"
^DD(392.1,4,21,1,0)="This field contains the 5-digit zip code for the Beneficiary Travel"
^DD(392.1,4,21,2,0)="Distance File. This field is not required, but if no zip code is"
^DD(392.1,4,21,3,0)="present, the claim enter/edit routine will not be able to make the"
^DD(392.1,4,21,4,0)="initial look-up using the 'C' cross reference, and a correct look-up"
^DD(392.1,4,21,5,0)="for the mileage will rely solely  on the correct spelling of the city/town."
^DD(392.1,4,"DT")="2930301"
^DD(392.1,5,0)="* ADDITIONAL INFORMATION^S^0:NO;1:YES;^0;5^Q"
^DD(392.1,5,3)="Enter 'YES' to indication that additional information should be checked (e.g. closer VA facility)."
^DD(392.1,5,21,0)="^^3^3^2930209^^"
^DD(392.1,5,21,1,0)="This field is a set of codes 0 for no and 1 for yes and is used to "
^DD(392.1,5,21,2,0)="indicate that additional information should be checked or not "
^DD(392.1,5,21,3,0)="(e.g. if there is a closer VA facility, etc.)"
^DD(392.1,5,"DT")="2930209"
^DD(392.1,6,0)="* MOST ECON/PUBLIC TRANS. COST^NJ8,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(392.1,6,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits.  Indicate if there is a Most Econ./Public Trans. amount that should be used for this location."
^DD(392.1,6,21,0)="^^3^3^2930209^^^"
^DD(392.1,6,21,1,0)="This field is a dollar amount between 0 and 10000.00 and is used to "
^DD(392.1,6,21,2,0)="indicate if there is a most econ./public trans. amount that should "
^DD(392.1,6,21,3,0)="be used for this location."
^DD(392.1,6,"DT")="2930209"
^DD(392.1,100,0)="DIVISION MILEAGE^392.1001PA^^1;0"
^DD(392.1,100,21,0)="^^4^4^2930614^^^^"
^DD(392.1,100,21,1,0)="Multiple for divisions with each division having it's own"
^DD(392.1,100,21,2,0)="mileage value between the division and the departure city.  Edited"
^DD(392.1,100,21,3,0)="by the user and, for the primary division, the mileage will be stuffed into the "
^DD(392.1,100,21,4,0)="default mileage field, #3."
^DD(392.1,100,"DT")="2930209"
^DD(392.1,"B","* ADDITIONAL INFORMATION",5)=""
^DD(392.1,"B","* MOST ECON/PUBLIC TRANS. COST",6)=""
^DD(392.1,"B","CITY OR TOWN",.01)=""
^DD(392.1,"B","DEFAULT MILEAGE",3)=""
^DD(392.1,"B","DIVISION MILEAGE",100)=""
^DD(392.1,"B","STATE",2)=""
^DD(392.1,"B","ZIP",4)=""
^DD(392.1,"GL",0,1,.01)=""
^DD(392.1,"GL",0,2,2)=""
^DD(392.1,"GL",0,3,3)=""
^DD(392.1,"GL",0,4,4)=""
^DD(392.1,"GL",0,5,5)=""
^DD(392.1,"GL",0,6,6)=""
^DD(392.1,"GL",1,0,100)=""
^DD(392.1,"IX",.01)=""
^DD(392.1,"IX",2)=""
^DD(392.1,"IX",4)=""
^DD(392.1,"RQ",.01)=""
^DD(392.1,"RQ",2)=""
^DD(392.1,"SB",392.1001,100)=""
^DD(392.1001,0)="DIVISION MILEAGE SUB-FIELD^^5^5"
^DD(392.1001,0,"DT")="2930209"
^DD(392.1001,0,"IX","B",392.1001,.01)=""
^DD(392.1001,0,"NM","DIVISION MILEAGE")=""
^DD(392.1001,0,"UP")="392.1"
^DD(392.1001,.01,0)="DIVISION NAME^RP40.8'^DG(40.8,^0;1^Q"
^DD(392.1001,.01,1,0)="^.1"
^DD(392.1001,.01,1,1,0)="392.1001^B"
^DD(392.1001,.01,1,1,1)="S ^DGBT(392.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(392.1001,.01,1,1,2)="K ^DGBT(392.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(392.1001,.01,3)="Enter the division name to be associated with this departure city"
^DD(392.1001,.01,21,0)="^^1^1^2930527^"
^DD(392.1001,.01,21,1,0)="Division Name points to the Medical Center Division file, #40.8"
^DD(392.1001,.01,"DT")="2930209"
^DD(392.1001,2,0)="MILEAGE ONE WAY^RNJ5,0^^0;2^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(392.1001,2,3)="Enter the one-way mileage distance between the departure city and the division, 0 to 10000 miles, no decimal points"
^DD(392.1001,2,21,0)="^^5^5^2930527^"
^DD(392.1001,2,21,1,0)="One-way mileage value between the departure city and the division."
^DD(392.1001,2,21,2,0)="Value is between 0 and 10000 miles.  For the primary division only,"
^DD(392.1001,2,21,3,0)="this value is used to populate the Default Mileage field, #3 on the"
^DD(392.1001,2,21,4,0)="zero node.  This value is stuffed into Field #3 when ever there is a"
^DD(392.1001,2,21,5,0)="difference between the Default mileage, and the primary division mileage."
^DD(392.1001,2,"DT")="2930209"
^DD(392.1001,3,0)="MOST ECONOMICAL COST^NJ8,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(392.1001,3,3)="Enter the cost of the most economical method of transportation as a dollar value between $0 and $10000."
^DD(392.1001,3,21,0)="^^2^2^2930527^"
^DD(392.1001,3,21,1,0)="Cost for the most economical method of transportation,"
^DD(392.1001,3,21,2,0)="public or private."
^DD(392.1001,3,"DT")="2930209"
^DD(392.1001,4,0)="ADDITIONAL INFORMATION^S^0:NO;1:YES;^0;4^Q"
^DD(392.1001,4,3)="Enter 'Y'es if there are remarks to be entered, or a 'N'o if there are no additional mileage remarks."
^DD(392.1001,4,21,0)="^^2^2^2930614^"
^DD(392.1001,4,21,1,0)="Set of codes for additional information/remarks field.  If '0',"
^DD(392.1001,4,21,2,0)="no remarks exist.  If '1', there are remarks attached."
^DD(392.1001,4,"DT")="2930209"
^DD(392.1001,5,0)="REMARKS^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(392.1001,5,3)="Remarks can be 1 to 50 characters in length, and are associated with this division only."
^DD(392.1001,5,21,0)="^^6^6^2930614^"
^DD(392.1001,5,21,1,0)="Additional remarks associated with this division.  Remarks are"
^DD(392.1001,5,21,2,0)="free text, 1 to 50 characters in length.  These remarks will be"
^DD(392.1001,5,21,3,0)="displayed for informational purposes during Claim Enter/Edit,"
^DD(392.1001,5,21,4,0)="prior to the mileage display.  The remark can only be changed in"
^DD(392.1001,5,21,5,0)="the Distance Enter/Edit option, it cannot be changed from the claim"
^DD(392.1001,5,21,6,0)="Enter/edit."
^DD(392.1001,5,"DT")="2930209"
^DD(392.1001,"B","ADDITIONAL INFORMATION",4)=""
^DD(392.1001,"B","DIVISION NAME",.01)=""
^DD(392.1001,"B","MILEAGE ONE WAY",2)=""
^DD(392.1001,"B","MOST ECONOMICAL COST",3)=""
^DD(392.1001,"B","REMARKS",5)=""
^DD(392.1001,"GL",0,1,.01)=""
^DD(392.1001,"GL",0,2,2)=""
^DD(392.1001,"GL",0,3,3)=""
^DD(392.1001,"GL",0,4,4)=""
^DD(392.1001,"GL",0,5,5)=""
^DD(392.1001,"IX",.01)=""
^DD(392.1001,"RQ",.01)=""
^DD(392.1001,"RQ",2)=""
^DD(392.2,0)="FIELD^^19^15"
^DD(392.2,0,"DDA")="N"
^DD(392.2,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(392.2,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(392.2,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(392.2,0,"IX","AENR01",392.2,.01)=""
^DD(392.2,0,"IX","B",392.2,.01)=""
^DD(392.2,0,"IX","C",392.2,2)=""
^DD(392.2,0,"IX","IVM01",392.2,.01)=""
^DD(392.2,0,"IX","IVM2",392.2,2)=""
^DD(392.2,0,"NM","BENEFICIARY TRAVEL CERTIFICATION")=""
^DD(392.2,0,"PT",392,5)=""
^DD(392.2,0,"VR")="1.0"
^DD(392.2,0,"VRPK")="DGBT"
^DD(392.2,.01,0)="DATE CERTIFIED^RDX^^0;1^S %DT=""ESXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999.99999-X"
^DD(392.2,.01,.1)="ANNUAL CERTIFICATION DATE"
^DD(392.2,.01,1,0)="^.1"
^DD(392.2,.01,1,1,0)="392.2^B"
^DD(392.2,.01,1,1,1)="S ^DGBT(392.2,""B"",$E(X,1,30),DA)="""""
^DD(392.2,.01,1,1,2)="K ^DGBT(392.2,""B"",$E(X,1,30),DA)"
^DD(392.2,.01,1,2,0)="392.2^IVM01^MUMPS"
^DD(392.2,.01,1,2,1)="D BT^IVMCUC(DA)"
^DD(392.2,.01,1,2,2)="D BT^IVMCUC(DA)"
^DD(392.2,.01,1,2,"%D",0)="^^1^1^2971014^"
^DD(392.2,.01,1,2,"%D",1,0)="Used to log DCD defined events for nightly transmission to HEC."
^DD(392.2,.01,1,2,"DT")="2971014"
^DD(392.2,.01,1,3,0)="392.2^AENR01^MUMPS"
^DD(392.2,.01,1,3,1)="D E3922^DGRTRIG(DA)"
^DD(392.2,.01,1,3,2)="D E3922^DGRTRIG(DA)"
^DD(392.2,.01,1,3,3)=" DO NOT DELETE"
^DD(392.2,.01,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(392.2,.01,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(392.2,.01,1,3,"%D",2,0)="enrollment."
^DD(392.2,.01,1,3,"DT")="3050913"
^DD(392.2,.01,3)="Enter the date of annual certification.  Future dates are not allowed."
^DD(392.2,.01,21,0)="^^2^2^2920123^"
^DD(392.2,.01,21,1,0)="This field contains the date of annual income certification used in the "
^DD(392.2,.01,21,2,0)="Beneficial Travel Claim process."
^DD(392.2,.01,"DT")="3050913"
^DD(392.2,2,0)="NAME^RP2'^DPT(^0;2^Q"
^DD(392.2,2,1,0)="^.1"
^DD(392.2,2,1,1,0)="392.2^C"
^DD(392.2,2,1,1,1)="S ^DGBT(392.2,""C"",$E(X,1,30),DA)="""""
^DD(392.2,2,1,1,2)="K ^DGBT(392.2,""C"",$E(X,1,30),DA)"
^DD(392.2,2,1,2,0)="392.2^IVM2^MUMPS"
^DD(392.2,2,1,2,1)="D BT^IVMCUC(DA)"
^DD(392.2,2,1,2,2)="D BT^IVMCUC(DA)"
^DD(392.2,2,1,2,"%D",0)="^^1^1^2971014^"
^DD(392.2,2,1,2,"%D",1,0)="Used to log DCD defined events for nightly transmission to HEC."
^DD(392.2,2,1,2,"DT")="2971014"
^DD(392.2,2,21,0)="^^2^2^2920123^"
^DD(392.2,2,21,1,0)="This field points to the patient file and contains the IFN for the "
^DD(392.2,2,21,2,0)="patient related to this Beneficiary Travel certification date."
^DD(392.2,2,"DT")="2971014"
^DD(392.2,3,0)="ELIGIBLE^RS^0:NO;1:YES;^0;3^Q"
^DD(392.2,3,21,0)="^^2^2^2920123^"
^DD(392.2,3,21,1,0)="This field is a set of codes (yes or no) indicating whether this person is "
^DD(392.2,3,21,2,0)="eligible for Beneficiary Travel."
^DD(392.2,3,"DT")="2890227"
^DD(392.2,4,0)="AMOUNT CERTIFIED^NJ9,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100000)!(X<0) X"
^DD(392.2,4,.1)="ANNUAL INCOME"
^DD(392.2,4,3)="Type a Dollar Amount between 0 and 100000, 2 Decimal Digits.  Enter the patient's annual income for the previous year."
^DD(392.2,4,21,0)="^^2^2^2920123^^^^"
^DD(392.2,4,21,1,0)="This field is to be used to record the annual income reported by the "
^DD(392.2,4,21,2,0)="patient."
^DD(392.2,5,0)="EDITED BY^P200'^VA(200,^0;5^Q"
^DD(392.2,5,21,0)="^^3^3^2920123^"
^DD(392.2,5,21,1,0)="This field is a pointer to the new person file and contains the IFN "
^DD(392.2,5,21,2,0)="of the person who last edited this Beneficiary Travel Certification "
^DD(392.2,5,21,3,0)="date/time. "
^DD(392.2,5,"DT")="2901017"
^DD(392.2,6,0)="LAST EDITED^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(392.2,6,21,0)="^^2^2^2920123^"
^DD(392.2,6,21,1,0)="This field contains the date this Beneficiary Travel Certification "
^DD(392.2,6,21,2,0)="entry was last edited on."
^DD(392.2,6,"DT")="2890114"
^DD(392.2,11,0)="ADDRESS LINE [1]^F^^A;1^K:$L(X)>35!($L(X)<3) X"
^DD(392.2,11,3)="ANSWER MUST BE 3-35 CHARACTERS IN LENGTH"
^DD(392.2,11,21,0)="^^2^2^2920123^"
^DD(392.2,11,21,1,0)="This field contains the first line of the address associated with this "
^DD(392.2,11,21,2,0)="Beneficiary Travel Certification date/time."
^DD(392.2,11,"DT")="2890302"
^DD(392.2,12,0)="ADDRESS LINE [2]^F^^A;2^K:$L(X)>30!($L(X)<3) X"
^DD(392.2,12,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(392.2,12,21,0)="^^2^2^2920123^"
^DD(392.2,12,21,1,0)="This field contains the second line of the address associated with this "
^DD(392.2,12,21,2,0)="Beneficiary Travel Certification date/time."
^DD(392.2,12,"DT")="2890302"
^DD(392.2,13,0)="ADDRESS LINE [3]^F^^A;3^K:$L(X)>30!($L(X)<3) X"
^DD(392.2,13,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(392.2,13,21,0)="^^2^2^2920123^"
^DD(392.2,13,21,1,0)="This field contains the third line of the address associated with this "
^DD(392.2,13,21,2,0)="Beneficiary Travel Certifiction date/time."
^DD(392.2,13,"DT")="2890302"
^DD(392.2,14,0)="CITY^FX^^A;4^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X I $D(X) D UP^DGBTHELP"
^DD(392.2,14,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(392.2,14,21,0)="^^2^2^2920123^"
^DD(392.2,14,21,1,0)="This field contains the free text 2-30 character name of the City associated "
^DD(392.2,14,21,2,0)="with this Beneficiary Travel Certification date/time.  "
^DD(392.2,14,"DT")="3011030"
^DD(392.2,15,0)="STATE^P5'^DIC(5,^A;5^Q"
^DD(392.2,15,21,0)="^^2^2^2920123^"
^DD(392.2,15,21,1,0)="This field points to the State File and contains the IFN of the State "
^DD(392.2,15,21,2,0)="associated with this Beneficiary Travel Certification date/time."
^DD(392.2,15,"DT")="2890302"
^DD(392.2,16,0)="ZIP^FXO^^A;6^K:$L(X)>20!($L(X)<5) X I $D(X) D ZIPIN^VAFADDR"
^DD(392.2,16,2)="S Y(0)=Y D ZIPOUT^VAFADDR"
^DD(392.2,16,2.1)="D ZIPOUT^VAFADDR"
^DD(392.2,16,3)="Answer must be 5 digit or 9 digit zip code."
^DD(392.2,16,21,0)="^^2^2^2920123^"
^DD(392.2,16,21,1,0)="This field contains the 5-digit zip code associated with this Beneficiary "
^DD(392.2,16,21,2,0)="Travel Certification date/time."
^DD(392.2,16,"DT")="2930301"
^DD(392.2,17,0)="COUNTY CODE^FX^^A;7^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(392.2,17,3)="ANSWER MUST BE 3 NUMERIC CHARACTERS IN LENGTH"
^DD(392.2,17,21,0)="^^2^2^2920123^"
^DD(392.2,17,21,1,0)="This field contains three numeric characters in length for the County Code "
^DD(392.2,17,21,2,0)="associated with this Beneficiary Travel Certification date/time."
^DD(392.2,17,"DT")="2890302"
^DD(392.2,18,0)="MEANS TEST STATUS^F^^A;8^K:$L(X)>2!($L(X)<1) X"
^DD(392.2,18,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(392.2,18,21,0)="^^2^2^2920123^"
^DD(392.2,18,21,1,0)="This field contains the Means Test Status associated with this Beneficiary "
^DD(392.2,18,21,2,0)="Travel Certification date/time."
^DD(392.2,18,"DT")="2890302"
^DD(392.2,19,0)="PRIMARY ELIGIBILITY^F^^A;9^K:$L(X)>30!($L(X)<3) X"
^DD(392.2,19,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(392.2,19,21,0)="^^2^2^2920123^"
^DD(392.2,19,21,1,0)="This field contains the primary eligibility associated with this Beneficiary "
^DD(392.2,19,21,2,0)="Travel Certification date/time."
^DD(392.2,19,"DT")="2890302"
^DD(392.2,"B","ADDRESS LINE [1]",11)=""
^DD(392.2,"B","ADDRESS LINE [2]",12)=""
^DD(392.2,"B","ADDRESS LINE [3]",13)=""
^DD(392.2,"B","AMOUNT CERTIFIED",4)=""
^DD(392.2,"B","ANNUAL CERTIFICATION DATE",.01)="1"
^DD(392.2,"B","ANNUAL INCOME",4)="1"
^DD(392.2,"B","CITY",14)=""
^DD(392.2,"B","COUNTY CODE",17)=""
^DD(392.2,"B","DATE CERTIFIED",.01)=""
^DD(392.2,"B","EDITED BY",5)=""
^DD(392.2,"B","ELIGIBLE",3)=""
^DD(392.2,"B","LAST EDITED",6)=""
^DD(392.2,"B","MEANS TEST STATUS",18)=""
^DD(392.2,"B","NAME",2)=""
^DD(392.2,"B","PRIMARY ELIGIBILITY",19)=""
^DD(392.2,"B","STATE",15)=""
^DD(392.2,"B","ZIP",16)=""
^DD(392.2,"GL",0,1,.01)=""
^DD(392.2,"GL",0,2,2)=""
^DD(392.2,"GL",0,3,3)=""
^DD(392.2,"GL",0,4,4)=""
^DD(392.2,"GL",0,5,5)=""
^DD(392.2,"GL",0,6,6)=""
^DD(392.2,"GL","A",1,11)=""
^DD(392.2,"GL","A",2,12)=""
^DD(392.2,"GL","A",3,13)=""
^DD(392.2,"GL","A",4,14)=""
^DD(392.2,"GL","A",5,15)=""
^DD(392.2,"GL","A",6,16)=""
^DD(392.2,"GL","A",7,17)=""
^DD(392.2,"GL","A",8,18)=""
^DD(392.2,"GL","A",9,19)=""
^DD(392.2,"IX",.01)=""
^DD(392.2,"IX",2)=""
^DD(392.2,"RQ",.01)=""
^DD(392.2,"RQ",2)=""
^DD(392.2,"RQ",3)=""
^DD(392.3,0)="FIELD^^5^5"
^DD(392.3,0,"DDA")="N"
^DD(392.3,0,"DT")="2931103"
^DD(392.3,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(392.3,0,"IX","B",392.3,.01)=""
^DD(392.3,0,"IX","C",392.3,2)=""
^DD(392.3,0,"IX","D",392.3,.01)=""
^DD(392.3,0,"NM","BENEFICIARY TRAVEL ACCOUNT")=""
^DD(392.3,0,"PT",392,6)=""
^DD(392.3,0,"VR")="1.0"
^DD(392.3,0,"VRPK")="DGBT"
^DD(392.3,.01,0)="ACCOUNT^RFXI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?3.4N1"" ""1AN.ANP) X"
^DD(392.3,.01,1,0)="^.1"
^DD(392.3,.01,1,1,0)="392.3^B"
^DD(392.3,.01,1,1,1)="S ^DGBT(392.3,""B"",$E(X,1,30),DA)="""""
^DD(392.3,.01,1,1,2)="K ^DGBT(392.3,""B"",$E(X,1,30),DA)"
^DD(392.3,.01,1,2,0)="392.3^D^MUMPS"
^DD(392.3,.01,1,2,1)="S ^DGBT(392.3,""D"",$P(X,"" "",2,$L(X,"" "")),DA)="""""
^DD(392.3,.01,1,2,2)="K ^DGBT(392.3,""D"",$P(X,"" "",2,$L(X,"" "")),DA)"
^DD(392.3,.01,3)="Enter account number (three to four numerics) space account name (26 character limit, upper case)."
^DD(392.3,.01,4)="W !!?5,""Some examples of valid entries follow:"",!!?8,""888 SAMPLE"",!?8,""1021 SECOND SAMPLE"",!!"
^DD(392.3,.01,9)="^"
^DD(392.3,.01,21,0)="^^3^3^3011026^"
^DD(392.3,.01,21,1,0)="This field contains the account number (three to four numerics) a space"
^DD(392.3,.01,21,2,0)="then the account name (26 characters limit, upper case) associated with"
^DD(392.3,.01,21,3,0)="the Beneficiary Travel Claims."
^DD(392.3,.01,"DEL",1,0)="I 1 W *7,!,""ACCOUNT TYPES CAN NOT BE DELETED!!"""
^DD(392.3,.01,"DT")="3011030"
^DD(392.3,2,0)="ACCOUNT NUMBER^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3)!'(X?3.4N) X I $D(X),X'=$P($P(^DGBT(392.3,DA,0),U),"" "",1) W !,""Account number must match the number in the ACCOUNT (.01) field."" K X"
^DD(392.3,2,1,0)="^.1"
^DD(392.3,2,1,1,0)="392.3^C"
^DD(392.3,2,1,1,1)="S ^DGBT(392.3,""C"",$E(X,1,30),DA)="""""
^DD(392.3,2,1,1,2)="K ^DGBT(392.3,""C"",$E(X,1,30),DA)"
^DD(392.3,2,1,1,"DT")="2931103"
^DD(392.3,2,3)="Type a three to four character Number between 000 and 9999, No decimal digits."
^DD(392.3,2,9)="^"
^DD(392.3,2,21,0)="^^4^4^3011026^"
^DD(392.3,2,21,1,0)=" "
^DD(392.3,2,21,2,0)="This field contains the Account Number (a three to four character number"
^DD(392.3,2,21,3,0)="between 000 and 9999) and must match the number in the ACCOUNT (.01) field"
^DD(392.3,2,21,4,0)="of this file associated with the Beneficiary Travel Claims."
^DD(392.3,2,"DT")="3011026"
^DD(392.3,3,0)="ACTIVE DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(392.3,3,21,0)="^^1^1^2920123^"
^DD(392.3,3,21,1,0)="This field contains date this Beneficiary Travel Account became active."
^DD(392.3,4,0)="INACTIVE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(392.3,4,21,0)="^^1^1^2920123^"
^DD(392.3,4,21,1,0)="This field contains the date this Beneficiary Travel Account became inactive."
^DD(392.3,5,0)="ACCOUNT TYPE^RS^1:EMERGENCIES;2:INTERFACILITY;3:SPECIAL MODE;4:ALL OTHER;5:C&P EXAMS;^0;5^Q"
^DD(392.3,5,3)="Select the account type which pertains to the account."
^DD(392.3,5,4)=""
^DD(392.3,5,21,0)="^^2^2^2920123^^^^"
^DD(392.3,5,21,1,0)="Field is designed to group like ACCOUNTs by account type, since the"
^DD(392.3,5,21,2,0)="account name/number is subject to change."
^DD(392.3,5,"DT")="2910212"
^DD(392.3,"B","ACCOUNT",.01)=""
^DD(392.3,"B","ACCOUNT NUMBER",2)=""
^DD(392.3,"B","ACCOUNT TYPE",5)=""
^DD(392.3,"B","ACTIVE DATE",3)=""
^DD(392.3,"B","INACTIVE DATE",4)=""
^DD(392.3,"GL",0,1,.01)=""
^DD(392.3,"GL",0,2,2)=""
^DD(392.3,"GL",0,3,3)=""
^DD(392.3,"GL",0,4,4)=""
^DD(392.3,"GL",0,5,5)=""
^DD(392.3,"IX",.01)=""
^DD(392.3,"IX",2)=""
^DD(392.3,"RQ",.01)=""
^DD(392.3,"RQ",2)=""
^DD(392.3,"RQ",3)=""
^DD(392.3,"RQ",5)=""
^DD(392.31,0)="FIELD^^3.02^16"
^DD(392.31,0,"DDA")="N"
^DD(392.31,0,"DT")="3021207"
^DD(392.31,0,"ID","Z")="G START^DGBTID"
^DD(392.31,0,"IX","B",392.31,.01)=""
^DD(392.31,0,"NM","LOCAL VENDOR")=""
^DD(392.31,0,"PT",392,14)=""
^DD(392.31,0,"PT",680,2.6)=""
^DD(392.31,0,"PT",680.6,.09)=""
^DD(392.31,0,"PT",681,3.01)=""
^DD(392.31,0,"VR")="1.0"
^DD(392.31,0,"VRPK")="DGBT"
^DD(392.31,.01,0)="NAME^RF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(392.31,.01,1,0)="^.1"
^DD(392.31,.01,1,1,0)="392.31^B"
^DD(392.31,.01,1,1,1)="S ^DGBT(392.31,""B"",$E(X,1,30),DA)="""""
^DD(392.31,.01,1,1,2)="K ^DGBT(392.31,""B"",$E(X,1,30),DA)"
^DD(392.31,.01,3)="Answer must be 1-80 characters in length."
^DD(392.31,.01,21,0)="^.001^2^2^3021207^^"
^DD(392.31,.01,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.01,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.01,"DT")="3030715"
^DD(392.31,.02,0)="VENDOR NUMBER^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(392.31,.02,3)="Answer must be 1-30 characters in length."
^DD(392.31,.02,21,0)="^^2^2^3021207^"
^DD(392.31,.02,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.02,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.02,"DT")="3030715"
^DD(392.31,.03,0)="SITE CODE^RF^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(392.31,.03,3)="Answer must be 1-30 characters in length."
^DD(392.31,.03,21,0)="^^2^2^3021207^"
^DD(392.31,.03,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.03,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.03,"DT")="3030715"
^DD(392.31,.04,0)="TAX ID^F^^0;4^K:$L(X)>11!($L(X)<1) X"
^DD(392.31,.04,3)="Answer must be 1-11 characters in length."
^DD(392.31,.04,21,0)="^^2^2^3021207^"
^DD(392.31,.04,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.04,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.04,"DT")="3021207"
^DD(392.31,.05,0)="AREA CODE^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(392.31,.05,3)="Answer must be 1-10 characters in length."
^DD(392.31,.05,21,0)="^^2^2^3021207^"
^DD(392.31,.05,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.05,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.05,"DT")="3021207"
^DD(392.31,.06,0)="PHONE^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(392.31,.06,3)="Answer must be 1-15 characters in length."
^DD(392.31,.06,21,0)="^^2^2^3021207^"
^DD(392.31,.06,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.06,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.06,"DT")="3021207"
^DD(392.31,.07,0)="FAX AREA CODE^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(392.31,.07,3)="Answer must be 1-10 characters in length."
^DD(392.31,.07,21,0)="^^2^2^3021207^"
^DD(392.31,.07,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.07,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.07,"DT")="3021207"
^DD(392.31,.08,0)="FAX NUMBER^F^^0;8^K:$L(X)>15!($L(X)<1) X"
^DD(392.31,.08,3)="Answer must be 1-15 characters in length."
^DD(392.31,.08,21,0)="^.001^2^2^3021207^^"
^DD(392.31,.08,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,.08,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,.08,"DT")="3021207"
^DD(392.31,1.01,0)="ADDRESS 1^F^^1;1^K:$L(X)>35!($L(X)<1) X"
^DD(392.31,1.01,3)="Answer must be 1-35 characters in length."
^DD(392.31,1.01,21,0)="^^2^2^3021207^"
^DD(392.31,1.01,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,1.01,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,1.01,"DT")="3021207"
^DD(392.31,1.02,0)="ADDRESS 2^F^^1;2^K:$L(X)>35!($L(X)<1) X"
^DD(392.31,1.02,3)="Answer must be 1-35 characters in length."
^DD(392.31,1.02,21,0)="^^2^2^3021207^"
^DD(392.31,1.02,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,1.02,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,1.02,"DT")="3021207"
^DD(392.31,1.03,0)="ADDRESS 3^F^^1;3^K:$L(X)>35!($L(X)<1) X"
^DD(392.31,1.03,3)="Answer must be 1-35 characters in length."
^DD(392.31,1.03,21,0)="^^2^2^3021207^"
^DD(392.31,1.03,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,1.03,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,1.03,"DT")="3021207"
^DD(392.31,2.01,0)="CITY^F^^2;1^K:$L(X)>25!($L(X)<1) X"
^DD(392.31,2.01,3)="Answer must be 1-25 characters in length."
^DD(392.31,2.01,21,0)="^^2^2^3021207^"
^DD(392.31,2.01,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,2.01,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,2.01,"DT")="3021207"
^DD(392.31,2.02,0)="STATE^F^^2;2^K:$L(X)>25!($L(X)<1) X"
^DD(392.31,2.02,3)="Answer must be 1-25 characters in length."
^DD(392.31,2.02,21,0)="^^2^2^3021207^"
^DD(392.31,2.02,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,2.02,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,2.02,"DT")="3021207"
^DD(392.31,2.03,0)="ZIP CODE^F^^2;3^K:$L(X)>20!($L(X)<1) X"
^DD(392.31,2.03,3)="Answer must be 1-20 characters in length."
^DD(392.31,2.03,21,0)="^.001^2^2^3030414^^"
^DD(392.31,2.03,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,2.03,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,2.03,"DT")="3021207"
^DD(392.31,3.01,0)="LAST UPDATED DATE^D^^3;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(392.31,3.01,21,0)="^^2^2^3021207^"
^DD(392.31,3.01,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,3.01,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,3.01,"DT")="3021207"
^DD(392.31,3.02,0)="INACTIVE DATE^D^^3;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(392.31,3.02,21,0)="^^2^2^3021207^"
^DD(392.31,3.02,21,1,0)="Added or updated by Core Financial Logistics System (coreFLS) through the"
^DD(392.31,3.02,21,2,0)="VisA package (Library, Beneficiary Travel, Incomplete Records Tracking)."
^DD(392.31,3.02,"DT")="3021207"
^DD(392.31,"B","ADDRESS 1",1.01)=""
^DD(392.31,"B","ADDRESS 2",1.02)=""
^DD(392.31,"B","ADDRESS 3",1.03)=""
^DD(392.31,"B","AREA CODE",.05)=""
^DD(392.31,"B","CITY",2.01)=""
^DD(392.31,"B","FAX AREA CODE",.07)=""
^DD(392.31,"B","FAX NUMBER",.08)=""
^DD(392.31,"B","INACTIVE DATE",3.02)=""
^DD(392.31,"B","LAST UPDATED DATE",3.01)=""
^DD(392.31,"B","NAME",.01)=""
^DD(392.31,"B","PHONE",.06)=""
^DD(392.31,"B","SITE CODE",.03)=""
^DD(392.31,"B","STATE",2.02)=""
^DD(392.31,"B","TAX ID",.04)=""
^DD(392.31,"B","VENDOR NUMBER",.02)=""
^DD(392.31,"B","ZIP CODE",2.03)=""
^DD(392.31,"GL",0,1,.01)=""
^DD(392.31,"GL",0,2,.02)=""
^DD(392.31,"GL",0,3,.03)=""
^DD(392.31,"GL",0,4,.04)=""
^DD(392.31,"GL",0,5,.05)=""
^DD(392.31,"GL",0,6,.06)=""
^DD(392.31,"GL",0,7,.07)=""
^DD(392.31,"GL",0,8,.08)=""
^DD(392.31,"GL",1,1,1.01)=""
^DD(392.31,"GL",1,2,1.02)=""
^DD(392.31,"GL",1,3,1.03)=""
^DD(392.31,"GL",2,1,2.01)=""
^DD(392.31,"GL",2,2,2.02)=""
^DD(392.31,"GL",2,3,2.03)=""
^DD(392.31,"GL",3,1,3.01)=""
^DD(392.31,"GL",3,2,3.02)=""
^DD(392.31,"IX",.01)=""
^DD(392.31,"RQ",.01)=""
^DD(392.31,"RQ",.02)=""
^DD(392.31,"RQ",.03)=""
^DD(392.4,0)="FIELD^^.01^2"
^DD(392.4,0,"DDA")="N"
^DD(392.4,0,"IX","B",392.4,.01)=""
^DD(392.4,0,"NM","BENEFICIARY TRAVEL MODE OF TRANSPORTATION")=""
^DD(392.4,0,"PT",161.5,16)=""
^DD(392.4,0,"PT",392,44)=""
^DD(392.4,0,"VR")="1.0"
^DD(392.4,0,"VRPK")="DGBT"
^DD(392.4,.001,0)="NUMBER^NJ2,0X^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(392.4,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(392.4,.001,21,0)="^^2^2^2920123^"
^DD(392.4,.001,21,1,0)="This field contains the IFN for the Beneficiary Travel Mode of Tra"
^DD(392.4,.001,21,2,0)="Transportation used in the Beneficiary Travel Claims."
^DD(392.4,.01,0)="MODE OF TRANSPORTATION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(392.4,.01,1,0)="^.1"
^DD(392.4,.01,1,1,0)="392.4^B"
^DD(392.4,.01,1,1,1)="S ^DGBT(392.4,""B"",$E(X,1,30),DA)="""""
^DD(392.4,.01,1,1,2)="K ^DGBT(392.4,""B"",$E(X,1,30),DA)"
^DD(392.4,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH, ENTER THE TYPE OF TRANSPORTATION USED FOR BENEFICIARY TRAVEL"
^DD(392.4,.01,21,0)="^^2^2^2920123^^^"
^DD(392.4,.01,21,1,0)="This field contains the free text 3-30 characters in length (name or type) "
^DD(392.4,.01,21,2,0)="mode of transportation used in the Beneficiary Travel Claims."
^DD(392.4,"B","MODE OF TRANSPORTATION",.01)=""
^DD(392.4,"B","NUMBER",.001)=""
^DD(392.4,"GL",0,1,.01)=""
^DD(392.4,"IX",.01)=""
^DD(392.4,"RQ",.01)=""
^DD(393,0)="FIELD^^20.01^23"
^DD(393,0,"DDA")="N"
^DD(393,0,"DT")="2950731"
^DD(393,0,"ID","WRITE")="S DGJT=^(0) D WR^DGJTUTL"
^DD(393,0,"IX","AAT",393,.1)=""
^DD(393,0,"IX","AC",393,.08)=""
^DD(393,0,"IX","ADB",393,10.02)=""
^DD(393,0,"IX","ADD",393,10.01)=""
^DD(393,0,"IX","ADM",393,.04)=""
^DD(393,0,"IX","ADR",393,10.07)=""
^DD(393,0,"IX","ADS",393,10.05)=""
^DD(393,0,"IX","ADT",393,10.03)=""
^DD(393,0,"IX","ARB",393,10.08)=""
^DD(393,0,"IX","ASB",393,10.06)=""
^DD(393,0,"IX","ATB",393,10.04)=""
^DD(393,0,"IX","B",393,.01)=""
^DD(393,0,"IX","C",393,.03)=""
^DD(393,0,"NM","INCOMPLETE RECORDS")=""
^DD(393,0,"PT",8925,1403)=""
^DD(393,0,"VR")="1.0"
^DD(393,0,"VRPK")="DGJ"
^DD(393,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(393,.01,1,0)="^.1^^-1"
^DD(393,.01,1,1,0)="393^B"
^DD(393,.01,1,1,1)="S ^VAS(393,""B"",$E(X,1,30),DA)="""""
^DD(393,.01,1,1,2)="K ^VAS(393,""B"",$E(X,1,30),DA)"
^DD(393,.01,3)="Enter the patient for which this summary was created."
^DD(393,.01,4)=""
^DD(393,.01,21,0)="^^1^1^2930728^^^^"
^DD(393,.01,21,1,0)="Enter the patient for which this summary or op report has been recorded."
^DD(393,.01,"DT")="2910109"
^DD(393,.02,0)="TYPE OF DEFICIENCY^RP393.3'^VAS(393.3,^0;2^Q"
^DD(393,.02,1,0)="^.1^^0"
^DD(393,.02,3)=""
^DD(393,.02,21,0)="^^1^1^2930226^^^^"
^DD(393,.02,21,1,0)="Enter the type of deficiency that is being tracked."
^DD(393,.02,"DT")="2930305"
^DD(393,.03,0)="EVENT DATE^RD^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:3991231<X!(2800101>X) X"
^DD(393,.03,1,0)="^.1"
^DD(393,.03,1,1,0)="393^C"
^DD(393,.03,1,1,1)="S ^VAS(393,""C"",$E(X,1,30),DA)="""""
^DD(393,.03,1,1,2)="K ^VAS(393,""C"",$E(X,1,30),DA)"
^DD(393,.03,1,1,"DT")="2910726"
^DD(393,.03,3)="TYPE A DATE BETWEEN 1/1/1980 AND 12/31/2099"
^DD(393,.03,21,0)="^^2^2^2910813^^"
^DD(393,.03,21,1,0)="Enter the date of the event (discharge date for discharge summaries, date"
^DD(393,.03,21,2,0)="of summary for interim summaries, or date of surgery for op reports)."
^DD(393,.03,"DT")="2910726"
^DD(393,.04,0)="ADMISSION^*P405'^DGPM(^0;4^S DIC(""S"")=""I $P(^(0),""""^"""",2)=1,($P(^(0),""""^"""",3)=+^DGPM(DA,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(393,.04,1,0)="^.1^^-1"
^DD(393,.04,1,1,0)="^^TRIGGER^393^.13"
^DD(393,.04,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAS(393,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(393,.04,1,1,1.4)"
^DD(393,.04,1,1,1.4)="S DIH=$S($D(^VAS(393,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=393,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(393,.04,1,1,2)="Q"
^DD(393,.04,1,1,"CREATE VALUE")="S X=1"
^DD(393,.04,1,1,"DELETE VALUE")="NO EFFECT"
^DD(393,.04,1,1,"FIELD")="INPA"
^DD(393,.04,1,2,0)="393^ADM"
^DD(393,.04,1,2,1)="S ^VAS(393,""ADM"",$E(X,1,30),DA)="""""
^DD(393,.04,1,2,2)="K ^VAS(393,""ADM"",$E(X,1,30),DA)"
^DD(393,.04,3)="Enter the admission associated with this report."
^DD(393,.04,12)="Only admissions and only for same patient."
^DD(393,.04,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=1,($P(^(0),""""^"""",3)=+^DGPM(DA,0))"""
^DD(393,.04,21,0)="^^2^2^2910813^^^"
^DD(393,.04,21,1,0)="Enter the admission associated with this report.  Enter nothing if this"
^DD(393,.04,21,2,0)="is an outpatient op report."
^DD(393,.04,"DT")="2930305"
^DD(393,.05,0)="LOCATION^R*P44'^SC(^0;5^S DIC(""S"")=""N CA S CA=$S($D(DGJTAIFN):DGJTAIFN,1:+$P(^VAS(393,DA,0),U,4)) I $P(^SC(+Y,0),U,3)=$S(CA:""""W"""",1:""""C"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(393,.05,3)="Enter the location of the patient at the time of the event."
^DD(393,.05,12)="Screen WARDS for inpatients, CLINICS for outpatients"
^DD(393,.05,12.1)="S DIC(""S"")=""N CA S CA=$S($D(DGJTAIFN):DGJTAIFN,1:+$P(^VAS(393,DA,0),U,4)) I $P(^SC(+Y,0),U,3)=$S(CA:""""W"""",1:""""C"""")"""
^DD(393,.05,21,0)="^^2^2^2930204^^^^"
^DD(393,.05,21,1,0)="Enter the location of the patient at the time of the event (discharge"
^DD(393,.05,21,2,0)="operation or interim summary."
^DD(393,.05,"DT")="2920210"
^DD(393,.06,0)="DIVISION^R*P40.8'^DG(40.8,^0;6^S DIC(""S"")=""I $D(^DG(40.8,+Y,0)) I $D(^DG(40.8,+Y,""""DT"""")) I $P(^DG(40.8,+Y,""""DT""""),""""^"""",1)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(393,.06,1,0)="^.1^^0"
^DD(393,.06,3)="Enter the division at which this event took place."
^DD(393,.06,12)="ONLY THOSE DIVISIONS THAT TRACK RECORDS."
^DD(393,.06,12.1)="S DIC(""S"")=""I $D(^DG(40.8,+Y,0)) I $D(^DG(40.8,+Y,""""DT"""")) I $P(^DG(40.8,+Y,""""DT""""),""""^"""",1)=1"""
^DD(393,.06,21,0)="^^2^2^2920210^^^^"
^DD(393,.06,21,1,0)="Enter the division at which this event took place.  Will initially be"
^DD(393,.06,21,2,0)="determined by the WARD field."
^DD(393,.06,"DT")="2920210"
^DD(393,.07,0)="SPECIALTY^R*P45.7'^DIC(45.7,^0;7^S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$G(DGJTDT))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(393,.07,3)="Enter the patient's treating specialty.  This must be an active treating specialty."
^DD(393,.07,12)="Allows only active treating specialties."
^DD(393,.07,12.1)="S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$G(DGJTDT))"""
^DD(393,.07,21,0)="^^1^1^2910813^^^^"
^DD(393,.07,21,1,0)="Enter the treating specialty the patient had at the time of this event."
^DD(393,.07,"DT")="2950731"
^DD(393,.08,0)="SERVICE^RP393.1'^DG(393.1,^0;8^Q"
^DD(393,.08,1,0)="^.1^^-1"
^DD(393,.08,1,1,0)="393^AC"
^DD(393,.08,1,1,1)="S ^VAS(393,""AC"",$E(X,1,30),DA)="""""
^DD(393,.08,1,1,2)="K ^VAS(393,""AC"",$E(X,1,30),DA)"
^DD(393,.08,1,1,"DT")="2910726"
^DD(393,.08,3)=""
^DD(393,.08,21,0)="^^2^2^2910813^^^^"
^DD(393,.08,21,1,0)="Enter the service responsible for filing this report.  This field will be"
^DD(393,.08,21,2,0)="used to generate reports that are incomplete by service."
^DD(393,.08,"DT")="2910805"
^DD(393,.09,0)="PRIMARY PHYSICIAN^RP200'^VA(200,^0;9^Q"
^DD(393,.09,1,0)="^.1"
^DD(393,.09,1,1,0)="^^TRIGGER^393^.12"
^DD(393,.09,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAS(393,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(393,.09,1,1,1.4)"
^DD(393,.09,1,1,1.4)="S DIH=$S($D(^VAS(393,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=393,DIG=.12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(393,.09,1,1,2)="Q"
^DD(393,.09,1,1,"%D",0)="^^2^2^2930122^"
^DD(393,.09,1,1,"%D",1,0)="This trigger will update the Physician Responsible field with the value of"
^DD(393,.09,1,1,"%D",2,0)="the Primary Physician field."
^DD(393,.09,1,1,"CREATE VALUE")="INTERNAL(PRIMARY PHYSICIAN)"
^DD(393,.09,1,1,"DELETE VALUE")="NO EFFECT"
^DD(393,.09,1,1,"DT")="2930122"
^DD(393,.09,1,1,"FIELD")="PHYSICIAN RESPONSIBLE"
^DD(393,.09,3)="Enter the physician responsible for dictation of this report."
^DD(393,.09,21,0)="^^2^2^2920511^^^^"
^DD(393,.09,21,1,0)="Enter the physician responsible for the patient... usually the physician"
^DD(393,.09,21,2,0)="that will be responsible for the dictation of the summary or report. "
^DD(393,.09,"DT")="2930122"
^DD(393,.1,0)="ATTENDING PHYSICIAN^P200'^VA(200,^0;10^Q"
^DD(393,.1,1,0)="^.1"
^DD(393,.1,1,1,0)="393^AAT^MUMPS"
^DD(393,.1,1,1,1)="S DGJATTD=1 D PHYDEF^DGJTUTL"
^DD(393,.1,1,1,2)="S DGJATTD=1 D PHYDEF^DGJTUTL"
^DD(393,.1,1,1,"%D",0)="^^5^5^2930720^"
^DD(393,.1,1,1,"%D",1,0)="This MUMPS cross reference acts like a trigger that updates the Physician"
^DD(393,.1,1,1,"%D",2,0)="for Deficiency field in file 393.  If the attending physician is changed"
^DD(393,.1,1,1,"%D",3,0)="the record status is transcribed and the Physician for Signature is set"
^DD(393,.1,1,1,"%D",4,0)="to attending then the Physician for Deficiency will be updated with the new"
^DD(393,.1,1,1,"%D",5,0)="attending physicians name."
^DD(393,.1,1,1,"DT")="2930720"
^DD(393,.1,3)="Enter the physician responsible for reviewing this summary."
^DD(393,.1,21,0)="^^1^1^2930324^^^^"
^DD(393,.1,21,1,0)="Enter the physician responsible for reviewing this summary (if applicable)."
^DD(393,.1,"DT")="2930720"
^DD(393,.11,0)="STATUS^R*P393.2'^DG(393.2,^0;11^D STATUS^DGJTHLP D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(393,.11,1,0)="^.1^^0"
^DD(393,.11,3)=""
^DD(393,.11,12)="Choose a STATUS"
^DD(393,.11,12.1)="D STATUS^DGJTHLP"
^DD(393,.11,21,0)="^^1^1^2930720^^^^"
^DD(393,.11,21,1,0)="Enter the status of this report at the present time."
^DD(393,.11,"DT")="2930720"
^DD(393,.12,0)="PHYSICIAN RESPONSIBLE^RP200'^VA(200,^0;12^Q"
^DD(393,.12,1,0)="^.1"
^DD(393,.12,1,1,0)="^^TRIGGER^393^.14"
^DD(393,.12,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X D PHYSRTRG^DGJTUTL I X S X=DIV S Y(1)=$S($D(^VAS(393,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(393,.12,1,1,1.4)"
^DD(393,.12,1,1,1.4)="S DIH=$S($D(^VAS(393,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=393,DIG=.14 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(393,.12,1,1,2)="Q"
^DD(393,.12,1,1,"%D",0)="^^1^1^2930316^"
^DD(393,.12,1,1,"%D",1,0)="This trigger updates the Physician for Deficiency field."
^DD(393,.12,1,1,"CREATE CONDITION")="D PHYSRTRG^DGJTUTL"
^DD(393,.12,1,1,"CREATE VALUE")="INTERNAL(PHYSICIAN RESPONSIBLE)"
^DD(393,.12,1,1,"DELETE VALUE")="NO EFFECT"
^DD(393,.12,1,1,"DT")="2930316"
^DD(393,.12,1,1,"FIELD")="PHYSICIAN FOR DE"
^DD(393,.12,3)="Enter the physician who is responsible for the dictation of the summary or report."
^DD(393,.12,5,1,0)="393^.09^1"
^DD(393,.12,21,0)="^^2^2^2921119^^^^"
^DD(393,.12,21,1,0)="This is the physician that is responsible for the"
^DD(393,.12,21,2,0)="dictation of the report."
^DD(393,.12,"DT")="2930316"
^DD(393,.13,0)="INPATIENT REPORT?^RS^1:YES;0:NO;^0;13^Q"
^DD(393,.13,3)="Enter 1 if this is an inpatient summary or op report, otherwise 0."
^DD(393,.13,5,1,0)="393^.04^1"
^DD(393,.13,9)="^"
^DD(393,.13,21,0)="^^2^2^2921222^^^^"
^DD(393,.13,21,1,0)="Enter  1 if this report is for an inpatient episode.  Enter 0 if it is an"
^DD(393,.13,21,2,0)="outpatient op report."
^DD(393,.14,0)="PHYSICIAN FOR DEFICIENCY^P200'^VA(200,^0;14^Q"
^DD(393,.14,1,0)="^.1^^0"
^DD(393,.14,5,1,0)="393^.12^1"
^DD(393,.14,21,0)="^^6^6^2930812^"
^DD(393,.14,21,1,0)="This field contains the name of the physician that is"
^DD(393,.14,21,2,0)="responsible for the deficiency at the present time.  This"
^DD(393,.14,21,3,0)="field changes whenever an action is taken against a"
^DD(393,.14,21,4,0)="deficiency and the status changes.  This field will be"
^DD(393,.14,21,5,0)="displayed on all the IRT reports as well as all of the"
^DD(393,.14,21,6,0)="enter/edit screens."
^DD(393,.14,"DT")="2930302"
^DD(393,10.01,0)="DATE DICTATED^DX^^DT;1^S %DT(0)=""-NOW"",%DT=""ETX"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(393,10.01,1,0)="^.1"
^DD(393,10.01,1,1,0)="393^ADD^MUMPS"
^DD(393,10.01,1,1,1)="S DGJFDIC=1 D PHYDEF^DGJTUTL"
^DD(393,10.01,1,1,2)="S DGJFDIC=1 D PHYDEF^DGJTUTL"
^DD(393,10.01,1,1,"%D",0)="^^2^2^2930303^"
^DD(393,10.01,1,1,"%D",1,0)="This MUMPS cross reference acts like a trigger that updates the Physician"
^DD(393,10.01,1,1,"%D",2,0)="for Deficiency field in file 393."
^DD(393,10.01,1,1,"DT")="2930303"
^DD(393,10.01,3)="ENTER A DATE IN THE PAST OR NOW"
^DD(393,10.01,21,0)="^^2^2^2921201^^^^"
^DD(393,10.01,21,1,0)="Enter the date on which this record was dictated.  Time of day may also be"
^DD(393,10.01,21,2,0)="entered."
^DD(393,10.01,22)=""
^DD(393,10.01,"DT")="2930303"
^DD(393,10.02,0)="DICTATED BY^P200'^VA(200,^DT;2^Q"
^DD(393,10.02,1,0)="^.1"
^DD(393,10.02,1,1,0)="393^ADB^MUMPS"
^DD(393,10.02,1,1,1)="S DGJFDIC=1 D PHYDEF^DGJTUTL"
^DD(393,10.02,1,1,2)="S DGJFDIC=1 D PHYDEF^DGJTUTL"
^DD(393,10.02,1,1,"%D",0)="^^2^2^2930720^^"
^DD(393,10.02,1,1,"%D",1,0)="This MUMPS cross reference acts like a trigger that updates the Physician"
^DD(393,10.02,1,1,"%D",2,0)="for Deficiency field in file 393."
^DD(393,10.02,1,1,"DT")="2930303"
^DD(393,10.02,3)="Enter the person who dictated this report"
^DD(393,10.02,21,0)="^^1^1^2930204^^^^"
^DD(393,10.02,21,1,0)="Enter the user responsible for dictation of this summary or op report."
^DD(393,10.02,"DT")="2930303"
^DD(393,10.03,0)="DATE TRANSCRIBED^DX^^DT;3^S %DT(0)=""-NOW"",%DT=""ETX"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(393,10.03,1,0)="^.1"
^DD(393,10.03,1,1,0)="393^ADT^MUMPS"
^DD(393,10.03,1,1,1)="S DGJFSIG=1 D PHYDEF^DGJTUTL"
^DD(393,10.03,1,1,2)="S DGJFSIG=1 D PHYDEF^DGJTUTL"
^DD(393,10.03,1,1,"%D",0)="^^2^2^2930302^"
^DD(393,10.03,1,1,"%D",1,0)="This MUMPS cross reference acts like a trigger that updates the Physician"
^DD(393,10.03,1,1,"%D",2,0)="for Deficiency field in file 393."
^DD(393,10.03,1,1,"DT")="2930302"
^DD(393,10.03,3)="ENTER A DATE IN THE PAST OR NOW"
^DD(393,10.03,21,0)="^^1^1^2910813^^^"
^DD(393,10.03,21,1,0)="Enter the date (or date/time) on which this report was transcribed."
^DD(393,10.03,"DT")="2930302"
^DD(393,10.04,0)="TRANSCRIBED BY^V^^DT;4^Q"
^DD(393,10.04,1,0)="^.1"
^DD(393,10.04,1,1,0)="393^ATB^MUMPS"
^DD(393,10.04,1,1,1)="S DGJFSIG=1 D PHYDEF^DGJTUTL"
^DD(393,10.04,1,1,2)="S DGJFSIG=1 D PHYDEF^DGJTUTL"
^DD(393,10.04,1,1,"%D",0)="^^2^2^2930302^"
^DD(393,10.04,1,1,"%D",1,0)="This MUMPS cross reference acts like a trigger that updates the Physician"
^DD(393,10.04,1,1,"%D",2,0)="for Deficiency field in file 393."
^DD(393,10.04,1,1,"DT")="2930302"
^DD(393,10.04,3)=""
^DD(393,10.04,21,0)="^^1^1^2910827^^^^"
^DD(393,10.04,21,1,0)="Enter the person or vendor that transcribed this report."
^DD(393,10.04,23,0)="^^1^1^2910827^^^"
^DD(393,10.04,23,1,0)=" "
^DD(393,10.04,"DT")="2930302"
^DD(393,10.04,"V",0)="^.12P^2^2"
^DD(393,10.04,"V",1,0)="200^PERSON^1^P^n^n"
^DD(393,10.04,"V",2,0)="440^VENDOR^2^V^n^n"
^DD(393,10.04,"V","B",200,1)=""
^DD(393,10.04,"V","B",440,2)=""
^DD(393,10.04,"V","M","PERSON",1)=""
^DD(393,10.04,"V","M","VENDOR",2)=""
^DD(393,10.04,"V","O",1,1)=""
^DD(393,10.04,"V","O",2,2)=""
^DD(393,10.04,"V","P","P",1)=""
^DD(393,10.04,"V","P","V",2)=""
^DD(393,10.05,0)="DATE SIGNED^DX^^DT;5^S %DT(0)=""-NOW"",%DT=""ETX"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(393,10.05,1,0)="^.1"
^DD(393,10.05,1,1,0)="393^ADS^MUMPS"
^DD(393,10.05,1,1,1)="S DGJFREV=1 D PHYDEF^DGJTUTL"
^DD(393,10.05,1,1,2)="S DGJFREV=1 D PHYDEF^DGJTUTL"
^DD(393,10.05,1,1,"%D",0)="^^2^2^2930302^"
^DD(393,10.05,1,1,"%D",1,0)="This Mumps Cross reference acts like a trigger. It will update the"
^DD(393,10.05,1,1,"%D",2,0)="Physician for Deficiency field."
^DD(393,10.05,1,1,"DT")="2930302"
^DD(393,10.05,3)="ENTER A DATE IN THE PAST OR NOW"
^DD(393,10.05,21,0)="^^1^1^2910813^^^^"
^DD(393,10.05,21,1,0)="Enter the date on which this summary was signed by the responsible provider."
^DD(393,10.05,"DT")="2930302"
^DD(393,10.06,0)="SIGNED BY^P200'^VA(200,^DT;6^Q"
^DD(393,10.06,1,0)="^.1"
^DD(393,10.06,1,1,0)="393^ASB^MUMPS"
^DD(393,10.06,1,1,1)="S DGJFREV=1 D PHYDEF^DGJTUTL"
^DD(393,10.06,1,1,2)="S DGJFREV=1 D PHYDEF^DGJTUTL"
^DD(393,10.06,1,1,"%D",0)="^^2^2^2930302^"
^DD(393,10.06,1,1,"%D",1,0)="This Mumps Cross reference acts like a trigger. It will update the"
^DD(393,10.06,1,1,"%D",2,0)="Physician for Deficiency field."
^DD(393,10.06,1,1,"DT")="2930302"
^DD(393,10.06,3)="Enter the name of the user that signed this report or summary."
^DD(393,10.06,21,0)="^^2^2^2910813^^^^"
^DD(393,10.06,21,1,0)="Enter in this field the name of the provider that signed this summary or"
^DD(393,10.06,21,2,0)="op report."
^DD(393,10.06,"DT")="2930302"
^DD(393,10.07,0)="DATE REVIEWED^DX^^DT;7^S %DT(0)=""-NOW"",%DT=""ETX"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(393,10.07,1,0)="^.1"
^DD(393,10.07,1,1,0)="393^ADR^MUMPS"
^DD(393,10.07,1,1,1)="S DGJREVD=1 D PHYDEF^DGJTUTL"
^DD(393,10.07,1,1,2)="S DGJREVD=1 D PHYDEF^DGJTUTL"
^DD(393,10.07,1,1,"%D",0)="^^2^2^2930303^"
^DD(393,10.07,1,1,"%D",1,0)="This MUMPS cross reference acts like a trigger that updates the Physician"
^DD(393,10.07,1,1,"%D",2,0)="for Deficiency field in file 393."
^DD(393,10.07,1,1,"DT")="2930303"
^DD(393,10.07,3)="ENTER A DATE IN THE PAST OR NOW"
^DD(393,10.07,21,0)="^^2^2^2910813^^^"
^DD(393,10.07,21,1,0)="Enter the date on which this summary or op report was reviewed."
^DD(393,10.07,21,2,0)="Entry of a review date/reviewer is optional."
^DD(393,10.07,"DT")="2930303"
^DD(393,10.08,0)="REVIEWED BY^P200'^VA(200,^DT;8^Q"
^DD(393,10.08,1,0)="^.1"
^DD(393,10.08,1,1,0)="393^ARB^MUMPS"
^DD(393,10.08,1,1,1)="S DGJREVD=1 D PHYDEF^DGJTUTL"
^DD(393,10.08,1,1,2)="S DGJREVD=1 D PHYDEF^DGJTUTL"
^DD(393,10.08,1,1,"%D",0)="^^2^2^2930303^"
^DD(393,10.08,1,1,"%D",1,0)="This MUMPS cross reference acts like a trigger that updates the Physician"
^DD(393,10.08,1,1,"%D",2,0)="for Deficiency field in file 393."
^DD(393,10.08,1,1,"DT")="2930303"
^DD(393,10.08,3)="Enter the name of the physician responsible for reviewing this report."
^DD(393,10.08,21,0)="^^2^2^2930326^^^^"
^DD(393,10.08,21,1,0)="Enter the name of the individual responsible for reviewing the signed"
^DD(393,10.08,21,2,0)="summary or op report."
^DD(393,10.08,"DT")="2930303"
^DD(393,20.01,0)="COMMENTS^F^^MSG;1^K:$L(X)>200!($L(X)<3) X"
^DD(393,20.01,3)="Answer must be 3-200 characters in length."
^DD(393,20.01,21,0)="^^3^3^2930812^"
^DD(393,20.01,21,1,0)="This field is a free text field that the user may add any comments"
^DD(393,20.01,21,2,0)="that they need to, in regards to the deficiency.  Each deficiency has"
^DD(393,20.01,21,3,0)="a comment field."
^DD(393,20.01,"DT")="2921201"
^DD(393,"B","ADMISSION",.04)=""
^DD(393,"B","ATTENDING PHYSICIAN",.1)=""
^DD(393,"B","COMMENTS",20.01)=""
^DD(393,"B","DATE DICTATED",10.01)=""
^DD(393,"B","DATE REVIEWED",10.07)=""
^DD(393,"B","DATE SIGNED",10.05)=""
^DD(393,"B","DATE TRANSCRIBED",10.03)=""
^DD(393,"B","DICTATED BY",10.02)=""
^DD(393,"B","DIVISION",.06)=""
^DD(393,"B","EVENT DATE",.03)=""
^DD(393,"B","INPATIENT REPORT?",.13)=""
^DD(393,"B","LOCATION",.05)=""
^DD(393,"B","PATIENT",.01)=""
^DD(393,"B","PHYSICIAN FOR DEFICIENCY",.14)=""
^DD(393,"B","PHYSICIAN RESPONSIBLE",.12)=""
^DD(393,"B","PRIMARY PHYSICIAN",.09)=""
^DD(393,"B","REVIEWED BY",10.08)=""
^DD(393,"B","SERVICE",.08)=""
^DD(393,"B","SIGNED BY",10.06)=""
^DD(393,"B","SPECIALTY",.07)=""
^DD(393,"B","STATUS",.11)=""
^DD(393,"B","TRANSCRIBED BY",10.04)=""
^DD(393,"B","TYPE OF DEFICIENCY",.02)=""
^DD(393,"GL",0,1,.01)=""
^DD(393,"GL",0,2,.02)=""
^DD(393,"GL",0,3,.03)=""
^DD(393,"GL",0,4,.04)=""
^DD(393,"GL",0,5,.05)=""
^DD(393,"GL",0,6,.06)=""
^DD(393,"GL",0,7,.07)=""
^DD(393,"GL",0,8,.08)=""
^DD(393,"GL",0,9,.09)=""
^DD(393,"GL",0,10,.1)=""
^DD(393,"GL",0,11,.11)=""
^DD(393,"GL",0,12,.12)=""
^DD(393,"GL",0,13,.13)=""
^DD(393,"GL",0,14,.14)=""
^DD(393,"GL","DT",1,10.01)=""
^DD(393,"GL","DT",2,10.02)=""
^DD(393,"GL","DT",3,10.03)=""
^DD(393,"GL","DT",4,10.04)=""
^DD(393,"GL","DT",5,10.05)=""
^DD(393,"GL","DT",6,10.06)=""
^DD(393,"GL","DT",7,10.07)=""
^DD(393,"GL","DT",8,10.08)=""
^DD(393,"GL","MSG",1,20.01)=""
^DD(393,"IX",.01)=""
^DD(393,"IX",.03)=""
^DD(393,"IX",.04)=""
^DD(393,"IX",.08)=""
^DD(393,"IX",.09)=""
^DD(393,"IX",.1)=""
^DD(393,"IX",.12)=""
^DD(393,"IX",10.01)=""
^DD(393,"IX",10.02)=""
^DD(393,"IX",10.03)=""
^DD(393,"IX",10.04)=""
^DD(393,"IX",10.05)=""
^DD(393,"IX",10.06)=""
^DD(393,"IX",10.07)=""
^DD(393,"IX",10.08)=""
^DD(393,"RQ",.01)=""
^DD(393,"RQ",.02)=""
^DD(393,"RQ",.03)=""
^DD(393,"RQ",.05)=""
^DD(393,"RQ",.06)=""
^DD(393,"RQ",.07)=""
^DD(393,"RQ",.08)=""
^DD(393,"RQ",.09)=""
^DD(393,"RQ",.11)=""
^DD(393,"RQ",.12)=""
^DD(393,"RQ",.13)=""
^DD(393.1,0)="FIELD^^.03^3"
^DD(393.1,0,"DDA")="N"
^DD(393.1,0,"DT")="2910716"
^DD(393.1,0,"IX","AC",393.1,.02)=""
^DD(393.1,0,"IX","B",393.1,.01)=""
^DD(393.1,0,"NM","MAS SERVICE")=""
^DD(393.1,0,"PT",393,.08)=""
^DD(393.1,0,"VR")="1.0"
^DD(393.1,0,"VRPK")="DGJ"
^DD(393.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(393.1,.01,1,0)="^.1"
^DD(393.1,.01,1,1,0)="393.1^B"
^DD(393.1,.01,1,1,1)="S ^DG(393.1,""B"",$E(X,1,30),DA)="""""
^DD(393.1,.01,1,1,2)="K ^DG(393.1,""B"",$E(X,1,30),DA)"
^DD(393.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(393.1,.01,21,0)="^^2^2^2910813^^"
^DD(393.1,.01,21,1,0)="This field contains the name of the MAS SERVICES. It contains the service"
^DD(393.1,.01,21,2,0)="names for both inpatient wards as well as outpatient clinics."
^DD(393.1,.02,0)="CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(393.1,.02,1,0)="^.1"
^DD(393.1,.02,1,1,0)="393.1^AC"
^DD(393.1,.02,1,1,1)="S ^DG(393.1,""AC"",$E(X,1,30),DA)="""""
^DD(393.1,.02,1,1,2)="K ^DG(393.1,""AC"",$E(X,1,30),DA)"
^DD(393.1,.02,1,1,"DT")="2910716"
^DD(393.1,.02,3)="Answer must be 1-3 characters in length."
^DD(393.1,.02,21,0)="^^1^1^2920511^^^"
^DD(393.1,.02,21,1,0)="This field contains the code for the MAS SERVICES. It can be 1-3 characters."
^DD(393.1,.02,"DT")="2910716"
^DD(393.1,.03,0)="PRINT NAME^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(393.1,.03,3)="Answer must be 1-10 characters in length."
^DD(393.1,.03,21,0)="^^2^2^2910813^^"
^DD(393.1,.03,21,1,0)="This field contains the print name for the MAS SERVICE. It is a shortened"
^DD(393.1,.03,21,2,0)="version of the full name. It is used to display the service for reports."
^DD(393.1,.03,"DT")="2910716"
^DD(393.1,"B","CODE",.02)=""
^DD(393.1,"B","NAME",.01)=""
^DD(393.1,"B","PRINT NAME",.03)=""
^DD(393.1,"GL",0,1,.01)=""
^DD(393.1,"GL",0,2,.02)=""
^DD(393.1,"GL",0,3,.03)=""
^DD(393.1,"IX",.01)=""
^DD(393.1,"IX",.02)=""
^DD(393.1,"RQ",.01)=""
^DD(393.2,0)="FIELD^^.02^2"
^DD(393.2,0,"DDA")="N"
^DD(393.2,0,"DT")="2910813"
^DD(393.2,0,"IX","B",393.2,.01)=""
^DD(393.2,0,"NM","IRT STATUS")=""
^DD(393.2,0,"PT",393,.11)=""
^DD(393.2,0,"VR")="1.0"
^DD(393.2,0,"VRPK")="DGJ"
^DD(393.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(393.2,.01,1,0)="^.1"
^DD(393.2,.01,1,1,0)="393.2^B"
^DD(393.2,.01,1,1,1)="S ^DG(393.2,""B"",$E(X,1,30),DA)="""""
^DD(393.2,.01,1,1,2)="K ^DG(393.2,""B"",$E(X,1,30),DA)"
^DD(393.2,.01,3)="Answer must be 3-30 characters in length."
^DD(393.2,.01,21,0)="^^2^2^2910813^^"
^DD(393.2,.01,21,1,0)="This is the name of the status that a IRT record must go through on its"
^DD(393.2,.01,21,2,0)="way to being completed."
^DD(393.2,.01,"DT")="2910813"
^DD(393.2,.02,0)="PRINT NAME^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(393.2,.02,3)="Answer must be 1-20 characters in length."
^DD(393.2,.02,21,0)="^^2^2^2910813^^"
^DD(393.2,.02,21,1,0)="This field contains a shortened version of the status name. It is used"
^DD(393.2,.02,21,2,0)="for displaying the status on reports."
^DD(393.2,.02,"DT")="2910716"
^DD(393.2,"B","NAME",.01)=""
^DD(393.2,"B","PRINT NAME",.02)=""
^DD(393.2,"GL",0,1,.01)=""
^DD(393.2,"GL",0,2,.02)=""
^DD(393.2,"IX",.01)=""
^DD(393.2,"RQ",.01)=""
^DD(393.3,0)="FIELD^^.09^9"
^DD(393.3,0,"DDA")="N"
^DD(393.3,0,"DT")="2930525"
^DD(393.3,0,"IX","B",393.3,.01)=""
^DD(393.3,0,"NM","IRT TYPE OF DEFICIENCY")=""
^DD(393.3,0,"PT",393,.02)=""
^DD(393.3,0,"PT",8925.95,.12)=""
^DD(393.3,0,"VR")="1.0"
^DD(393.3,0,"VRPK")="DGJ"
^DD(393.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(393.3,.01,1,0)="^.1"
^DD(393.3,.01,1,1,0)="393.3^B"
^DD(393.3,.01,1,1,1)="S ^VAS(393.3,""B"",$E(X,1,30),DA)="""""
^DD(393.3,.01,1,1,2)="K ^VAS(393.3,""B"",$E(X,1,30),DA)"
^DD(393.3,.01,3)="Answer must be 3-30 characters in length."
^DD(393.3,.01,21,0)="^^2^2^2940321^^^"
^DD(393.3,.01,21,1,0)="This field contains the names of the reports or Items that will be"
^DD(393.3,.01,21,2,0)="tracked by the IRT package."
^DD(393.3,.01,"DEL",1,0)="I 1 W *7,!,""CAN'T DELETE THIS ENTRY"""
^DD(393.3,.01,"DT")="2910813"
^DD(393.3,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(393.3,.02,3)="Answer must be 1-3 characters in length."
^DD(393.3,.02,21,0)="^^2^2^2910813^^"
^DD(393.3,.02,21,1,0)="This field contains the three character abbreviation for the type of "
^DD(393.3,.02,21,2,0)="report. It is used on the outputs."
^DD(393.3,.02,"DT")="2910708"
^DD(393.3,.03,0)="DAYS FOR DICTATION^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(393.3,.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(393.3,.03,21,0)="^^2^2^2910813^^"
^DD(393.3,.03,21,1,0)="This field contains the number in days before the report being tracked"
^DD(393.3,.03,21,2,0)="is considered incomplete for dictation."
^DD(393.3,.03,"DT")="2910708"
^DD(393.3,.04,0)="DAYS FOR SIGNATURE^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(393.3,.04,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(393.3,.04,21,0)="^^2^2^2910813^^"
^DD(393.3,.04,21,1,0)="This field contains the number in days before the report being tracked"
^DD(393.3,.04,21,2,0)="is considered incomplete for the physicians signature."
^DD(393.3,.04,"DT")="2910708"
^DD(393.3,.05,0)="DAYS FOR REVIEW^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(393.3,.05,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(393.3,.05,21,0)="^^2^2^2910813^^"
^DD(393.3,.05,21,1,0)="This field contains the number in days before the report being tracked"
^DD(393.3,.05,21,2,0)="is considered incomplete for review, if the facility reviews."
^DD(393.3,.05,"DT")="2910708"
^DD(393.3,.06,0)="CATEGORY^RP393.41'^VAS(393.41,^0;6^Q"
^DD(393.3,.06,21,0)="^^2^2^2930728^"
^DD(393.3,.06,21,1,0)="This field is a pointer to the TYPE OF CATEGORY file 393.41."
^DD(393.3,.06,21,2,0)="It stores the category that the deficiency falls under."
^DD(393.3,.06,"DT")="2930203"
^DD(393.3,.07,0)="TRACK DEFICIENCY^RS^0:NO;1:YES;^0;7^Q"
^DD(393.3,.07,21,0)="^^6^6^2930728^"
^DD(393.3,.07,21,1,0)="This field turns the tracking of the deficiency on or off."
^DD(393.3,.07,21,2,0)="If this field is set to 'Yes' or 1, the deficiency will be"
^DD(393.3,.07,21,3,0)="one that is tracked by the site.  If this field is set to 'N0'"
^DD(393.3,.07,21,4,0)="or 0, the facility will not track this deficiency and this "
^DD(393.3,.07,21,5,0)="deficiency will not appear as a choice in any of the "
^DD(393.3,.07,21,6,0)="Enter/Edit options."
^DD(393.3,.07,"DT")="2921124"
^DD(393.3,.08,0)="STANDARD DEFICIENCY?^RS^0:NO;1:YES;^0;8^Q"
^DD(393.3,.08,21,0)="^^8^8^2930728^^^^"
^DD(393.3,.08,21,1,0)="This field is checked by the IRT background jobs,  Options:  "
^DD(393.3,.08,21,2,0)="(IRT Update Std. Deficiencies & IRT Update Std. Def. Background Job)."
^DD(393.3,.08,21,3,0)="If the field is set to 1 (YES) this deficiency is considered a standard"
^DD(393.3,.08,21,4,0)="deficiency by the site.  The background job will then check"
^DD(393.3,.08,21,5,0)="this field and create an entry for the patient by admission"
^DD(393.3,.08,21,6,0)="for the standard deficiency.  If this field is set to 0 (NO),"
^DD(393.3,.08,21,7,0)="it is not considered a standard deficiency and therefore no"
^DD(393.3,.08,21,8,0)="IRT entry will be made for that deficiency."
^DD(393.3,.08,"DT")="2930507"
^DD(393.3,.09,0)="UNEDITABLE DEFICIENCY^S^1:YES;0:NO;^0;9^Q"
^DD(393.3,.09,21,0)="^^5^5^2940321^^^"
^DD(393.3,.09,21,1,0)="This field is not seen by the user.  It distinguishes the"
^DD(393.3,.09,21,2,0)="deficiencies that are transported with the TYPE OF DEFICIENCY"
^DD(393.3,.09,21,3,0)="file 393.3.  Those deficiencies are highlighted  on the screen under the "
^DD(393.3,.09,21,4,0)="Add a New/Edit Deficiency option.  This is the field that is checked"
^DD(393.3,.09,21,5,0)="for highlighting purposes."
^DD(393.3,.09,"DT")="2930525"
^DD(393.3,"B","ABBREVIATION",.02)=""
^DD(393.3,"B","CATEGORY",.06)=""
^DD(393.3,"B","DAYS FOR DICTATION",.03)=""
^DD(393.3,"B","DAYS FOR REVIEW",.05)=""
^DD(393.3,"B","DAYS FOR SIGNATURE",.04)=""
^DD(393.3,"B","NAME",.01)=""
^DD(393.3,"B","STANDARD DEFICIENCY?",.08)=""
^DD(393.3,"B","TRACK DEFICIENCY",.07)=""
^DD(393.3,"B","UNEDITABLE DEFICIENCY",.09)=""
^DD(393.3,"GL",0,1,.01)=""
^DD(393.3,"GL",0,2,.02)=""
^DD(393.3,"GL",0,3,.03)=""
^DD(393.3,"GL",0,4,.04)=""
^DD(393.3,"GL",0,5,.05)=""
^DD(393.3,"GL",0,6,.06)=""
^DD(393.3,"GL",0,7,.07)=""
^DD(393.3,"GL",0,8,.08)=""
^DD(393.3,"GL",0,9,.09)=""
^DD(393.3,"IX",.01)=""
^DD(393.3,"RQ",.01)=""
^DD(393.3,"RQ",.06)=""
^DD(393.3,"RQ",.07)=""
^DD(393.3,"RQ",.08)=""
^DD(393.41,0)="FIELD^^.04^4"
^DD(393.41,0,"DT")="2930212"
^DD(393.41,0,"IX","B",393.41,.01)=""
^DD(393.41,0,"NM","TYPE OF CATEGORY")=""
^DD(393.41,0,"PT",393.3,.06)=""
^DD(393.41,0,"VR")="1.0"
^DD(393.41,0,"VRPK")="DGJ"
^DD(393.41,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(393.41,.01,1,0)="^.1"
^DD(393.41,.01,1,1,0)="393.41^B"
^DD(393.41,.01,1,1,1)="S ^VAS(393.41,""B"",$E(X,1,30),DA)="""""
^DD(393.41,.01,1,1,2)="K ^VAS(393.41,""B"",$E(X,1,30),DA)"
^DD(393.41,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(393.41,.01,21,0)="^^4^4^2930728^"
^DD(393.41,.01,21,1,0)="This field contains the name of the category that a deficiency can"
^DD(393.41,.01,21,2,0)="fall under. There are thirteen possible categories that a deficiency"
^DD(393.41,.01,21,3,0)="can fall under.  The categories were taken from the Record Review Checklist"
^DD(393.41,.01,21,4,0)="VA Form 10-2493."
^DD(393.41,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(393.41,.02,3)="Answer must be 1-3 characters in length."
^DD(393.41,.02,21,0)="^^2^2^2930728^"
^DD(393.41,.02,21,1,0)="This field contains the three character abbreviation"
^DD(393.41,.02,21,2,0)="for the name of the category."
^DD(393.41,.02,"DT")="2920513"
^DD(393.41,.03,0)="PRINT NAME^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(393.41,.03,3)="Answer must be 1-10 characters in length."
^DD(393.41,.03,21,0)="^^2^2^2930728^"
^DD(393.41,.03,21,1,0)="This field contains the print name for the category."
^DD(393.41,.03,21,2,0)="This field can be displayed on reports."
^DD(393.41,.03,"DT")="2920513"
^DD(393.41,.04,0)="DISPLAY ORDER^RNJ7,3^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(393.41,.04,3)="Type a Number between 1 and 999, 3 Decimal Digits"
^DD(393.41,.04,21,0)="^^2^2^2930212^"
^DD(393.41,.04,21,1,0)="This field shows the display order in which this category will be printed"
^DD(393.41,.04,21,2,0)="the enter/edit screens."
^DD(393.41,.04,"DT")="2930212"
^DD(393.41,"B","ABBREVIATION",.02)=""
^DD(393.41,"B","DISPLAY ORDER",.04)=""
^DD(393.41,"B","NAME",.01)=""
^DD(393.41,"B","PRINT NAME",.03)=""
^DD(393.41,"GL",0,1,.01)=""
^DD(393.41,"GL",0,2,.02)=""
^DD(393.41,"GL",0,3,.03)=""
^DD(393.41,"GL",0,4,.04)=""
^DD(393.41,"IX",.01)=""
^DD(393.41,"RQ",.01)=""
^DD(393.41,"RQ",.04)=""
^DD(394,0)="FIELD^^17^22"
^DD(394,0,"DDA")="N"
^DD(394,0,"DT")="2910614"
^DD(394,0,"ID",3)="W $P(^(0),U,4)"
^DD(394,0,"ID",4)="W $P(^(0),U,5)"
^DD(394,0,"IX","A1AY",394,16)=""
^DD(394,0,"IX","AC",394,.01)=""
^DD(394,0,"IX","AD",394,11)=""
^DD(394,0,"IX","AE",394,13)=""
^DD(394,0,"IX","APDX",394,16)=""
^DD(394,0,"IX","B",394,.01)=""
^DD(394,0,"IX","BS5",394,16)=""
^DD(394,0,"IX","NAME",394,3)=""
^DD(394,0,"IX","SS",394,4)=""
^DD(394,0,"NM","*PDX TRANSACTION")=""
^DD(394,0,"PT",394.1,.03)=""
^DD(394,0,"VR")="1.5"
^DD(394,.01,0)="DATE/TIME OF REQUEST^MRD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(394,.01,1,0)="^.1"
^DD(394,.01,1,1,0)="394^B"
^DD(394,.01,1,1,1)="S ^VAT(394,""B"",$E(X,1,30),DA)="""""
^DD(394,.01,1,1,2)="K ^VAT(394,""B"",$E(X,1,30),DA)"
^DD(394,.01,1,2,0)="394^AC^MUMPS"
^DD(394,.01,1,2,1)="S $P(^VAT(394,DA,0),U,2)=DA"
^DD(394,.01,1,2,2)="Q"
^DD(394,.01,3)=""
^DD(394,.01,7.5)="Q:(X="""")!(X[""^"")  I '$D(VAQFLAG) K X W:DIC(0)[""E"" !,*7,""Information in this file may only be entered/edited through the PDX routines"""
^DD(394,.01,21,0)="^^2^2^2901115^^"
^DD(394,.01,21,1,0)="This is the date/time that the request was entered or returned from the"
^DD(394,.01,21,2,0)="processing site."
^DD(394,.01,"DT")="2901115"
^DD(394,1,0)="PDX REQUEST #^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394,1,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(394,1,"DT")="2900411"
^DD(394,2,0)="PARENT PDX #^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394,2,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(394,2,"DT")="2900411"
^DD(394,3,0)="PATIENT NAME^RF^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(394,3,1,0)="^.1"
^DD(394,3,1,1,0)="394^NAME"
^DD(394,3,1,1,1)="S ^VAT(394,""NAME"",$E(X,1,30),DA)="""""
^DD(394,3,1,1,2)="K ^VAT(394,""NAME"",$E(X,1,30),DA)"
^DD(394,3,3)="Answer must be 3-30 characters in length."
^DD(394,3,"DT")="2901115"
^DD(394,4,0)="SOCIAL SECURITY #^RFX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1)!'((X?9N)!(X?9N1""P"")) X"
^DD(394,4,1,0)="^.1"
^DD(394,4,1,1,0)="394^SS"
^DD(394,4,1,1,1)="S ^VAT(394,""SS"",$E(X,1,30),DA)="""""
^DD(394,4,1,1,2)="K ^VAT(394,""SS"",$E(X,1,30),DA)"
^DD(394,4,3)="Enter patient's SSN without dashes (123-45-6789 becomes 123456789)"
^DD(394,4,"DT")="2901203"
^DD(394,5,0)="CLAIM #^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(394,5,3)="Answer must be 1-10 characters in length."
^DD(394,5,"DT")="2901119"
^DD(394,6,0)="DATE OF BIRTH^DX^^0;7^S %DT=""E"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X"
^DD(394,6,"DT")="2901203"
^DD(394,7,0)="PID^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(394,7,3)="Answer must be 1-20 characters in length."
^DD(394,7,"DT")="2900411"
^DD(394,8,0)="PATIENT POINTER^P2'^DPT(^0;9^Q"
^DD(394,8,"DT")="2900411"
^DD(394,9,0)="REQUESTOR DUZ^NJ8,1^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(394,9,3)="Type a Number between 0 and 999999, 1 Decimal Digit"
^DD(394,9,"DT")="2900524"
^DD(394,9.5,0)="REQUESTOR NAME^F^^0;19^K:$L(X)>30!($L(X)<3) X"
^DD(394,9.5,3)="Answer must be 3-30 characters in length."
^DD(394,9.5,"DT")="2900524"
^DD(394,9.7,0)="REQUESTOR FACILITY^F^^0;20^K:$L(X)>9!($L(X)<1) X"
^DD(394,9.7,3)="Answer must be 1-9 characters in length."
^DD(394,9.7,"DT")="2901113"
^DD(394,9.9,0)="NETWORK ADDRESS^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(394,9.9,3)="Answer must be 1-80 characters in length."
^DD(394,9.9,21,0)="^^2^2^2901115^"
^DD(394,9.9,21,1,0)="THIS IS THE ""RETURN"" ADDRESS FOR THE MESSAGE. THE NETWORK ADDRESS OF THE"
^DD(394,9.9,21,2,0)="SITE SENDING THIS MESSAGE IS STORED HERE."
^DD(394,9.9,"DT")="2901115"
^DD(394,10,0)="PDX CODE^F^^0;11^K:$L(X)>7!($L(X)<1) X"
^DD(394,10,3)="Answer must be 1-7 characters in length."
^DD(394,10,"DT")="2900411"
^DD(394,11,0)="PDX STATUS^P394.3'^VAT(394.3,^0;12^Q"
^DD(394,11,1,0)="^.1"
^DD(394,11,1,1,0)="394^AD"
^DD(394,11,1,1,1)="S ^VAT(394,""AD"",$E(X,1,30),DA)="""""
^DD(394,11,1,1,2)="K ^VAT(394,""AD"",$E(X,1,30),DA)"
^DD(394,11,3)=""
^DD(394,11,"DT")="2901113"
^DD(394,11.5,0)="COMMENTS^F^^1;2^K:$L(X)>70!($L(X)<1) X"
^DD(394,11.5,3)="Enter any comments included with the message"
^DD(394,11.5,"DT")="2910618"
^DD(394,12,0)="REMOTE MESSAGE ID^NJ7,0^^0;13^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394,12,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(394,12,"DT")="2900411"
^DD(394,13,0)="LOCAL MESSAGE ID^NJ7,0^^0;14^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394,13,1,0)="^.1"
^DD(394,13,1,1,0)="394^AE"
^DD(394,13,1,1,1)="S ^VAT(394,""AE"",$E(X,1,30),DA)="""""
^DD(394,13,1,1,2)="K ^VAT(394,""AE"",$E(X,1,30),DA)"
^DD(394,13,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(394,13,"DT")="2901119"
^DD(394,14,0)="AUTHORIZER DUZ^NJ8,1^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(394,14,3)="Type a Number between 0 and 999999, 1 Decimal Digit"
^DD(394,14,"DT")="2900524"
^DD(394,15,0)="AUTHORIZER NAME^F^^0;16^K:$L(X)>30!($L(X)<3) X"
^DD(394,15,3)="Answer must be 3-30 characters in length."
^DD(394,15,"DT")="2900411"
^DD(394,16,0)="AUTHORIZER FACILITY^RF^^0;17^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(394,16,1,0)="^.1^^-1"
^DD(394,16,1,1,0)="394^BS5^MUMPS"
^DD(394,16,1,1,1)="Q:($P(^VAT(394,DA,0),U,4)']"""")!($P(^VAT(394,DA,0),U,5)']"""")  S ^VAT(394,""BS5"",$E($P(^(0),U,4),1)_$E($P(^(0),U,5),6,9),DA)="""""
^DD(394,16,1,1,2)="Q:($P(^VAT(394,DA,0),U,4)']"""")!($P(^VAT(394,DA,0),U,5)']"""")  K ^VAT(394,""BS5"",$E($P(^(0),U,4),1)_$E($P(^(0),U,5),6,9),DA)"
^DD(394,16,1,2,0)="394^APDX^MUMPS"
^DD(394,16,1,2,1)="Q:($P(^VAT(394,DA,0),U,1)']"""")!($P(^(0),U,4)']"""")  S VAQTMP=0 S:'$D(VAQ15) VAQ15=$O(^VAT(394.3,""B"",15,"""")),VAQ16=$O(^VAT(394.3,""B"",16,"""")),VAQTMP=1 D APDX^VAQUTL1"
^DD(394,16,1,2,2)="Q:($P(^VAT(394,DA,0),U,1)']"""")!($P(^(0),U,4)']"""")  K ^VAT(394,""APDX"",$P(^(0),U,4),X,(9999999.999999-$P(^(0),U,1)),DA)"
^DD(394,16,1,3,0)="394^A1AY^MUMPS"
^DD(394,16,1,3,1)="Q:($T(^A1AYFMX2)="""")  D PDXTRIG^A1AYFMX2(1)"
^DD(394,16,1,3,2)="Q:($T(^A1AYFMX2)="""")  D PDXTRIG^A1AYFMX2(0)"
^DD(394,16,1,3,"%D",0)="^^7^7^2920311^^^"
^DD(394,16,1,3,"%D",1,0)=" "
^DD(394,16,1,3,"%D",2,0)="This MUMPS cross-reference is used to update information in the A1AY"
^DD(394,16,1,3,"%D",3,0)="FOREIGN FACILITY XREF file (#11400.2).  It updates the following"
^DD(394,16,1,3,"%D",4,0)="information :"
^DD(394,16,1,3,"%D",5,0)="     LAST PDX TRANSACTION (#3) - Sets/kills the pointer to PDX message"
^DD(394,16,1,3,"%D",6,0)="     LAST PDX DATE (#4) - Sets field to date of PDX message"
^DD(394,16,1,3,"%D",7,0)="     LAST PDX STATUS (#5) - Sets field to status of PDX message"
^DD(394,16,1,3,"DT")="2920311"
^DD(394,16,3)="Answer must be 1-9 characters in length."
^DD(394,16,"DT")="2930428"
^DD(394,17,0)="PURGE^S^1:YES;^0;18^Q"
^DD(394,17,"DT")="2900411"
^DD(394,"B","AUTHORIZER DUZ",14)=""
^DD(394,"B","AUTHORIZER FACILITY",16)=""
^DD(394,"B","AUTHORIZER NAME",15)=""
^DD(394,"B","CLAIM #",5)=""
^DD(394,"B","COMMENTS",11.5)=""
^DD(394,"B","DATE OF BIRTH",6)=""
^DD(394,"B","DATE/TIME OF REQUEST",.01)=""
^DD(394,"B","LOCAL MESSAGE ID",13)=""
^DD(394,"B","NETWORK ADDRESS",9.9)=""
^DD(394,"B","PARENT PDX #",2)=""
^DD(394,"B","PATIENT NAME",3)=""
^DD(394,"B","PATIENT POINTER",8)=""
^DD(394,"B","PDX CODE",10)=""
^DD(394,"B","PDX REQUEST #",1)=""
^DD(394,"B","PDX STATUS",11)=""
^DD(394,"B","PID",7)=""
^DD(394,"B","PURGE",17)=""
^DD(394,"B","REMOTE MESSAGE ID",12)=""
^DD(394,"B","REQUESTOR DUZ",9)=""
^DD(394,"B","REQUESTOR FACILITY",9.7)=""
^DD(394,"B","REQUESTOR NAME",9.5)=""
^DD(394,"B","SOCIAL SECURITY #",4)=""
^DD(394,"GL",0,1,.01)=""
^DD(394,"GL",0,2,1)=""
^DD(394,"GL",0,3,2)=""
^DD(394,"GL",0,4,3)=""
^DD(394,"GL",0,5,4)=""
^DD(394,"GL",0,6,5)=""
^DD(394,"GL",0,7,6)=""
^DD(394,"GL",0,8,7)=""
^DD(394,"GL",0,9,8)=""
^DD(394,"GL",0,10,9)=""
^DD(394,"GL",0,11,10)=""
^DD(394,"GL",0,12,11)=""
^DD(394,"GL",0,13,12)=""
^DD(394,"GL",0,14,13)=""
^DD(394,"GL",0,15,14)=""
^DD(394,"GL",0,16,15)=""
^DD(394,"GL",0,17,16)=""
^DD(394,"GL",0,18,17)=""
^DD(394,"GL",0,19,9.5)=""
^DD(394,"GL",0,20,9.7)=""
^DD(394,"GL",1,1,9.9)=""
^DD(394,"GL",1,2,11.5)=""
^DD(394,"IX",.01)=""
^DD(394,"IX",3)=""
^DD(394,"IX",4)=""
^DD(394,"IX",11)=""
^DD(394,"IX",13)=""
^DD(394,"IX",16)=""
^DD(394,"RQ",.01)=""
^DD(394,"RQ",3)=""
^DD(394,"RQ",4)=""
^DD(394,"RQ",16)=""
^DD(394.1,0)="FIELD^^7^10"
^DD(394.1,0,"DDA")="N"
^DD(394.1,0,"DT")="2900411"
^DD(394.1,0,"IX","B",394.1,.01)=""
^DD(394.1,0,"NM","*PDX DATA")=""
^DD(394.1,0,"VR")="1.5"
^DD(394.1,.01,0)="REQUEST #^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.1,.01,1,0)="^.1"
^DD(394.1,.01,1,1,0)="394.1^B"
^DD(394.1,.01,1,1,1)="S ^VAT(394.1,""B"",$E(X,1,30),DA)="""""
^DD(394.1,.01,1,1,2)="K ^VAT(394.1,""B"",$E(X,1,30),DA)"
^DD(394.1,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(394.1,.01,7.5)="Q:(X="""")!(X[""^"")  I '$D(VAQFLAG) K X W:DIC(0)[""E"" !,*7,""Information in this file may only be entered/edited through the PDX routines"""
^DD(394.1,.01,"DT")="2901113"
^DD(394.1,.02,0)="AUTHORIZING FACILITY^F^^0;2^K:$L(X)>9!($L(X)<1) X"
^DD(394.1,.02,3)="Answer must be 1-9 characters in length."
^DD(394.1,.02,"DT")="2901115"
^DD(394.1,.03,0)="DATE/TIME OF REPLY^P394'^VAT(394,^0;3^Q"
^DD(394.1,.03,"DT")="2901113"
^DD(394.1,1,0)="PHARMACY^394.11^^PHA;0"
^DD(394.1,2,0)="MAS^394.12^^MAS;0"
^DD(394.1,3,0)="LABRATORY^394.13^^LAB;0"
^DD(394.1,4,0)="RADIOLOGY^394.14^^RAD;0"
^DD(394.1,5,0)="SURGERY^394.15^^SUR;0"
^DD(394.1,6,0)="MEDICINE^394.16^^MED;0"
^DD(394.1,7,0)="MINIMUM^394.17^^MIN;0"
^DD(394.1,"B","AUTHORIZING FACILITY",.02)=""
^DD(394.1,"B","DATE/TIME OF REPLY",.03)=""
^DD(394.1,"B","LABRATORY",3)=""
^DD(394.1,"B","MAS",2)=""
^DD(394.1,"B","MEDICINE",6)=""
^DD(394.1,"B","MINIMUM",7)=""
^DD(394.1,"B","PHARMACY",1)=""
^DD(394.1,"B","RADIOLOGY",4)=""
^DD(394.1,"B","REQUEST #",.01)=""
^DD(394.1,"B","SURGERY",5)=""
^DD(394.1,"GL",0,1,.01)=""
^DD(394.1,"GL",0,2,.02)=""
^DD(394.1,"GL",0,3,.03)=""
^DD(394.1,"GL","LAB",0,3)=""
^DD(394.1,"GL","MAS",0,2)=""
^DD(394.1,"GL","MED",0,6)=""
^DD(394.1,"GL","MIN",0,7)=""
^DD(394.1,"GL","PHA",0,1)=""
^DD(394.1,"GL","RAD",0,4)=""
^DD(394.1,"GL","SUR",0,5)=""
^DD(394.1,"IX",.01)=""
^DD(394.1,"RQ",.01)=""
^DD(394.1,"SB",394.11,1)=""
^DD(394.1,"SB",394.12,2)=""
^DD(394.1,"SB",394.13,3)=""
^DD(394.1,"SB",394.14,4)=""
^DD(394.1,"SB",394.15,5)=""
^DD(394.1,"SB",394.16,6)=""
^DD(394.1,"SB",394.17,7)=""
^DD(394.11,0)="PHARMACY SUB-FIELD^^.01^1"
^DD(394.11,0,"DT")="2900411"
^DD(394.11,0,"NM","PHARMACY")=""
^DD(394.11,0,"UP")="394.1"
^DD(394.11,.01,0)="PHARMACY^W^^0;1^Q"
^DD(394.11,.01,"DT")="2900411"
^DD(394.11,"B","PHARMACY",.01)=""
^DD(394.11,"GL",0,1,.01)=""
^DD(394.12,0)="MAS SUB-FIELD^^.01^1"
^DD(394.12,0,"DT")="2900411"
^DD(394.12,0,"NM","MAS")=""
^DD(394.12,0,"UP")="394.1"
^DD(394.12,.01,0)="MAS^W^^0;1^Q"
^DD(394.12,.01,"DT")="2900411"
^DD(394.12,"B","MAS",.01)=""
^DD(394.12,"GL",0,1,.01)=""
^DD(394.13,0)="LABRATORY SUB-FIELD^^.01^1"
^DD(394.13,0,"DT")="2900411"
^DD(394.13,0,"NM","LABRATORY")=""
^DD(394.13,0,"UP")="394.1"
^DD(394.13,.01,0)="LABRATORY^W^^0;1^Q"
^DD(394.13,.01,"DT")="2900411"
^DD(394.13,"B","LABRATORY",.01)=""
^DD(394.13,"GL",0,1,.01)=""
^DD(394.14,0)="RADIOLOGY SUB-FIELD^^.01^1"
^DD(394.14,0,"DT")="2900411"
^DD(394.14,0,"NM","RADIOLOGY")=""
^DD(394.14,0,"UP")="394.1"
^DD(394.14,.01,0)="RADIOLOGY^W^^0;1^Q"
^DD(394.14,.01,"DT")="2900411"
^DD(394.14,"B","RADIOLOGY",.01)=""
^DD(394.14,"GL",0,1,.01)=""
^DD(394.15,0)="SURGERY SUB-FIELD^^.01^1"
^DD(394.15,0,"DT")="2900411"
^DD(394.15,0,"NM","SURGERY")=""
^DD(394.15,0,"UP")="394.1"
^DD(394.15,.01,0)="SURGERY^W^^0;1^Q"
^DD(394.15,.01,"DT")="2900411"
^DD(394.15,"B","SURGERY",.01)=""
^DD(394.15,"GL",0,1,.01)=""
^DD(394.16,0)="MEDICINE SUB-FIELD^^.01^1"
^DD(394.16,0,"DT")="2900411"
^DD(394.16,0,"NM","MEDICINE")=""
^DD(394.16,0,"UP")="394.1"
^DD(394.16,.01,0)="MEDICINE^W^^0;1^Q"
^DD(394.16,.01,"DT")="2900411"
^DD(394.16,"B","MEDICINE",.01)=""
^DD(394.16,"GL",0,1,.01)=""
^DD(394.17,0)="MINIMUM SUB-FIELD^^.01^1"
^DD(394.17,0,"NM","MINIMUM")=""
^DD(394.17,0,"UP")="394.1"
^DD(394.17,.01,0)="MINIMUM^W^^0;1^Q"
^DD(394.17,.01,"DT")="2901115"
^DD(394.17,"B","MINIMUM",.01)=""
^DD(394.17,"GL",0,1,.01)=""
^DD(394.2,0)="FIELD^^6^7"
^DD(394.2,0,"DDA")="N"
^DD(394.2,0,"DT")="2910506"
^DD(394.2,0,"IX","B",394.2,.01)=""
^DD(394.2,0,"NM","*PDX PARAMETER")=""
^DD(394.2,0,"VR")="1.5"
^DD(394.2,.01,0)="ONE^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.2,.01,1,0)="^.1"
^DD(394.2,.01,1,1,0)="394.2^B"
^DD(394.2,.01,1,1,1)="S ^VAT(394.2,""B"",$E(X,1,30),DA)="""""
^DD(394.2,.01,1,1,2)="K ^VAT(394.2,""B"",$E(X,1,30),DA)"
^DD(394.2,.01,3)="Enter '1' as the value for this field"
^DD(394.2,.01,"DT")="2900524"
^DD(394.2,1,0)="LIFETIME OF PDX DATA^RNJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.2,1,3)="Enter the number of days PDX information is valid"
^DD(394.2,1,"DT")="2901128"
^DD(394.2,2,0)="LIFETIME IN TRANSMIT QUEUE^RNJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.2,2,3)="Enter the number of days a PDX message can stay in the transmit queue"
^DD(394.2,2,"DT")="2901128"
^DD(394.2,3,0)="PDX DOMAIN^RP4.2'^DIC(4.2,^0;4^Q"
^DD(394.2,3,3)="Enter your domain address"
^DD(394.2,3,"DT")="2900416"
^DD(394.2,4,0)="STATION NUMBER^RP4'^DIC(4,^0;5^Q"
^DD(394.2,4,1,0)="^.1"
^DD(394.2,4,1,1,0)="^^TRIGGER^394.2^5"
^DD(394.2,4,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(394.2,4,1,1,1.1) X ^DD(394.2,4,1,1,1.4)"
^DD(394.2,4,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(394.2,4,1,1,1.4)="S DIH=$S($D(^VAT(394.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=394.2,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.2,4,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(394.2,4,1,1,2.4)"
^DD(394.2,4,1,1,2.4)="S DIH=$S($D(^VAT(394.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=394.2,DIG=5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.2,4,1,1,"CREATE VALUE")="STATION NUMBER:NAME"
^DD(394.2,4,1,1,"DELETE VALUE")="@"
^DD(394.2,4,1,1,"FIELD")="STATION NAME"
^DD(394.2,4,3)="Enter your station (site) number"
^DD(394.2,4,"DT")="2901128"
^DD(394.2,5,0)="STATION NAME^RF^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(394.2,5,3)="Enter your station (site) name [3-30 characters]"
^DD(394.2,5,5,1,0)="394.2^4^1"
^DD(394.2,5,"DT")="2901128"
^DD(394.2,6,0)="WORK GROUP^394.26P^^1;0"
^DD(394.2,6,21,0)="^^5^5^2910507^^^"
^DD(394.2,6,21,1,0)="MULTIPLE CONTAINING INSTITUTIONS IN YOUR PDX WORKING GROUP.  INSTITUTIONS"
^DD(394.2,6,21,2,0)="IN YOUR WORKING GROUP ARE ALLOWED TO HAVE PDX REQUESTS AUTOMATICALLY"
^DD(394.2,6,21,3,0)="PROCESSED UPON THEIR RECEIPT.  IN ADDITION TO THIS, THE SAME PDX MAY"
^DD(394.2,6,21,4,0)="BE SENT TO THE WORKING GROUP WITHOUT HAVING TO MAKE A REQUEST FOR EACH"
^DD(394.2,6,21,5,0)="INSTITUTION."
^DD(394.2,"B","LIFETIME IN TRANSMIT QUEUE",2)=""
^DD(394.2,"B","LIFETIME OF PDX DATA",1)=""
^DD(394.2,"B","ONE",.01)=""
^DD(394.2,"B","PDX DOMAIN",3)=""
^DD(394.2,"B","STATION NAME",5)=""
^DD(394.2,"B","STATION NUMBER",4)=""
^DD(394.2,"B","WORK GROUP",6)=""
^DD(394.2,"GL",0,1,.01)=""
^DD(394.2,"GL",0,2,1)=""
^DD(394.2,"GL",0,3,2)=""
^DD(394.2,"GL",0,4,3)=""
^DD(394.2,"GL",0,5,4)=""
^DD(394.2,"GL",0,6,5)=""
^DD(394.2,"GL",1,0,6)=""
^DD(394.2,"IX",.01)=""
^DD(394.2,"IX",4)=""
^DD(394.2,"RQ",.01)=""
^DD(394.2,"RQ",1)=""
^DD(394.2,"RQ",2)=""
^DD(394.2,"RQ",3)=""
^DD(394.2,"RQ",4)=""
^DD(394.2,"RQ",5)=""
^DD(394.2,"SB",394.26,6)=""
^DD(394.26,0)="WORK GROUP SUB-FIELD^^1^2"
^DD(394.26,0,"DT")="2910506"
^DD(394.26,0,"IX","B",394.26,.01)=""
^DD(394.26,0,"IX","NET",394.26,1)=""
^DD(394.26,0,"NM","WORK GROUP")=""
^DD(394.26,0,"UP")="394.2"
^DD(394.26,.01,0)="WORK GROUP^MP4'^DIC(4,^0;1^Q"
^DD(394.26,.01,1,0)="^.1"
^DD(394.26,.01,1,1,0)="394.26^B"
^DD(394.26,.01,1,1,1)="S ^VAT(394.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(394.26,.01,1,1,2)="K ^VAT(394.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(394.26,.01,1,2,0)="^^TRIGGER^394.26^1"
^DD(394.26,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(394.2,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.26,.01,1,2,1.1) X ^DD(394.26,.01,1,2,1.4)"
^DD(394.26,.01,1,2,1.1)="S X=DIV X ^DD(394.26,.01,1,2,49.2) S X=$P(Y(101),U,1) S D0=I(0,0) S D1=I(1,0)"
^DD(394.26,.01,1,2,1.4)="S DIH=$S($D(^VAT(394.2,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.26,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.26,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(394.2,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(394.26,.01,1,2,2.4)"
^DD(394.26,.01,1,2,2.4)="S DIH=$S($D(^VAT(394.2,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.26,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.26,.01,1,2,49.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:"""") S X=2910402 K DIC S DIC=""^DIC(4.2,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y S Y(101)=$S($D(^DIC(4.2,D0,0)):^(0),1:"""")"
^DD(394.26,.01,1,2,"CREATE VALUE")="4.2:DOMAIN"
^DD(394.26,.01,1,2,"DELETE VALUE")="@"
^DD(394.26,.01,1,2,"DT")="2910515"
^DD(394.26,.01,1,2,"FIELD")="NETWORK AD"
^DD(394.26,.01,3)="Enter the name of an institution to add to your PDX working group"
^DD(394.26,.01,21,0)="^^1^1^2910506^"
^DD(394.26,.01,21,1,0)="NAME OF THE INSTITUTION IN THE WORK GROUP"
^DD(394.26,.01,"DT")="2910515"
^DD(394.26,1,0)="NETWORK ADDRESS^RP4.2'^DIC(4.2,^0;2^Q"
^DD(394.26,1,1,0)="^.1"
^DD(394.26,1,1,1,0)="394.26^NET"
^DD(394.26,1,1,1,1)="S ^VAT(394.2,DA(1),1,""NET"",$E(X,1,30),DA)="""""
^DD(394.26,1,1,1,2)="K ^VAT(394.2,DA(1),1,""NET"",$E(X,1,30),DA)"
^DD(394.26,1,1,1,"%D",0)="^^2^2^2910506^"
^DD(394.26,1,1,1,"%D",1,0)="CROSS REFERENCE ON THE NETWORK ADDRESS FOR INSTITUTIONS IN THE PDX"
^DD(394.26,1,1,1,"%D",2,0)="WORKING GROUP"
^DD(394.26,1,1,1,"DT")="2910506"
^DD(394.26,1,3)="Enter the network address of the institution"
^DD(394.26,1,5,1,0)="394.26^.01^2"
^DD(394.26,1,21,0)="^^1^1^2910507^^"
^DD(394.26,1,21,1,0)="NETWORK ADDRESS OF THE INSTITUTION"
^DD(394.26,1,"DT")="2910506"
^DD(394.26,"B","NETWORK ADDRESS",1)=""
^DD(394.26,"B","WORK GROUP",.01)=""
^DD(394.26,"GL",0,1,.01)=""
^DD(394.26,"GL",0,2,1)=""
^DD(394.26,"IX",.01)=""
^DD(394.26,"IX",1)=""
^DD(394.26,"RQ",1)=""
^DD(394.3,0)="FIELD^^1^2"
^DD(394.3,0,"DDA")="N"
^DD(394.3,0,"IX","B",394.3,.01)=""
^DD(394.3,0,"NM","*PDX STATUS")=""
^DD(394.3,0,"PT",394,11)=""
^DD(394.3,0,"PT",394.4,1)=""
^DD(394.3,0,"VR")="1.5"
^DD(394.3,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(394.3,.01,1,0)="^.1"
^DD(394.3,.01,1,1,0)="394.3^B"
^DD(394.3,.01,1,1,1)="S ^VAT(394.3,""B"",$E(X,1,30),DA)="""""
^DD(394.3,.01,1,1,2)="K ^VAT(394.3,""B"",$E(X,1,30),DA)"
^DD(394.3,.01,3)="Answer must be 2 characters in length."
^DD(394.3,.01,7.5)="Q:(X="""")!(X[""^"")  I '$D(VAQFLAG) K X W:DIC(0)[""E"" !,*7,""Information in this file may only be entered/edited through the PDX routines"""
^DD(394.3,1,0)="STATUS^RF^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(394.3,1,3)="Answer must be 1-40 characters in length."
^DD(394.3,"B","CODE",.01)=""
^DD(394.3,"B","STATUS",1)=""
^DD(394.3,"GL",0,1,.01)=""
^DD(394.3,"GL",0,2,1)=""
^DD(394.3,"IX",.01)=""
^DD(394.3,"RQ",.01)=""
^DD(394.3,"RQ",1)=""
^DD(394.4,0)="FIELD^^6^8"
^DD(394.4,0,"DDA")="N"
^DD(394.4,0,"DT")="2910510"
^DD(394.4,0,"IX","AC",394.4,1)=""
^DD(394.4,0,"IX","AD",394.4,6)=""
^DD(394.4,0,"IX","B",394.4,.01)=""
^DD(394.4,0,"NM","*PDX STATISTICS")=""
^DD(394.4,0,"VR")="1.5"
^DD(394.4,.01,0)="PROCESSING DATE/TIME^MRD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(394.4,.01,1,0)="^.1"
^DD(394.4,.01,1,1,0)="394.4^B"
^DD(394.4,.01,1,1,1)="S ^VAT(394.4,""B"",$E(X,1,30),DA)="""""
^DD(394.4,.01,1,1,2)="K ^VAT(394.4,""B"",$E(X,1,30),DA)"
^DD(394.4,.01,3)=""
^DD(394.4,.01,7.5)="Q:(X="""")!(X[""^"")  I '$D(VAQFLAG) K X W:DIC(0)[""E"" !,*7,""Information in this file may only be entered/edited through the PDX routines"""
^DD(394.4,1,0)="STATUS^RP394.3'^VAT(394.3,^0;2^Q"
^DD(394.4,1,1,0)="^.1"
^DD(394.4,1,1,1,0)="394.4^AC"
^DD(394.4,1,1,1,1)="S ^VAT(394.4,""AC"",$E(X,1,30),DA)="""""
^DD(394.4,1,1,1,2)="K ^VAT(394.4,""AC"",$E(X,1,30),DA)"
^DD(394.4,1,3)=""
^DD(394.4,2,0)="LOCAL DUZ^RNJ12,1^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(394.4,2,3)="Enter the DUZ of the user that sent the message"
^DD(394.4,2,"DT")="2910510"
^DD(394.4,2.5,0)="REMOTE DOMAIN^RF^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(394.4,2.5,3)="Enter the address the PDX message was sent to"
^DD(394.4,2.5,"DT")="2910510"
^DD(394.4,3,0)="PATIENT NAME^F^^0;4^K:$L(X)>35!($L(X)<1) X"
^DD(394.4,3,1,0)="^.1"
^DD(394.4,3,1,1,0)="^^TRIGGER^394.4^6"
^DD(394.4,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,3,1,1,1.1) X ^DD(394.4,3,1,1,1.4)"
^DD(394.4,3,1,1,1.1)="S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=DIV_$P(Y(1),U,5)"
^DD(394.4,3,1,1,1.4)="S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.4,3,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,3,1,1,2.1) X ^DD(394.4,3,1,1,2.4)"
^DD(394.4,3,1,1,2.1)="S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)_$P(Y(1),U,5)"
^DD(394.4,3,1,1,2.4)="S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.4,3,1,1,"CREATE VALUE")="PATIENT NAME_PATIENT SSN"
^DD(394.4,3,1,1,"DELETE VALUE")="PATIENT NAME_PATIENT SSN"
^DD(394.4,3,1,1,"FIELD")="NAME_SSN"
^DD(394.4,3,3)="Answer must be 1-35 characters in length."
^DD(394.4,4,0)="PATIENT SSN^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(394.4,4,1,0)="^.1"
^DD(394.4,4,1,1,0)="^^TRIGGER^394.4^6"
^DD(394.4,4,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,4,1,1,1.1) X ^DD(394.4,4,1,1,1.4)"
^DD(394.4,4,1,1,1.1)="S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)_DIV"
^DD(394.4,4,1,1,1.4)="S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.4,4,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(394.4,4,1,1,2.1) X ^DD(394.4,4,1,1,2.4)"
^DD(394.4,4,1,1,2.1)="S X=DIV S Y(1)=$S($D(^VAT(394.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)_$P(Y(1),U,5)"
^DD(394.4,4,1,1,2.4)="S DIH=$S($D(^VAT(394.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=394.4,DIG=6 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.4,4,1,1,"CREATE VALUE")="PATIENT NAME_PATIENT SSN"
^DD(394.4,4,1,1,"DELETE VALUE")="PATIENT NAME_PATIENT SSN"
^DD(394.4,4,1,1,"FIELD")="NAME"
^DD(394.4,4,3)="Answer must be 1-10 characters in length."
^DD(394.4,5,0)="PATIENT POINTER^P2'^DPT(^0;6^Q"
^DD(394.4,6,0)="NAME_SSN^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X"
^DD(394.4,6,1,0)="^.1"
^DD(394.4,6,1,1,0)="394.4^AD"
^DD(394.4,6,1,1,1)="S ^VAT(394.4,""AD"",$E(X,1,30),DA)="""""
^DD(394.4,6,1,1,2)="K ^VAT(394.4,""AD"",$E(X,1,30),DA)"
^DD(394.4,6,3)="Answer must be 1-45 characters in length."
^DD(394.4,6,5,1,0)="394.4^3^1"
^DD(394.4,6,5,2,0)="394.4^4^1"
^DD(394.4,"B","LOCAL DUZ",2)=""
^DD(394.4,"B","NAME_SSN",6)=""
^DD(394.4,"B","PATIENT NAME",3)=""
^DD(394.4,"B","PATIENT POINTER",5)=""
^DD(394.4,"B","PATIENT SSN",4)=""
^DD(394.4,"B","PROCESSING DATE/TIME",.01)=""
^DD(394.4,"B","REMOTE DOMAIN",2.5)=""
^DD(394.4,"B","STATUS",1)=""
^DD(394.4,"GL",0,1,.01)=""
^DD(394.4,"GL",0,2,1)=""
^DD(394.4,"GL",0,3,2)=""
^DD(394.4,"GL",0,4,3)=""
^DD(394.4,"GL",0,5,4)=""
^DD(394.4,"GL",0,6,5)=""
^DD(394.4,"GL",0,7,6)=""
^DD(394.4,"GL",0,8,2.5)=""
^DD(394.4,"IX",.01)=""
^DD(394.4,"IX",1)=""
^DD(394.4,"IX",3)=""
^DD(394.4,"IX",4)=""
^DD(394.4,"IX",6)=""
^DD(394.4,"RQ",.01)=""
^DD(394.4,"RQ",1)=""
^DD(394.4,"RQ",2)=""
^DD(394.4,"RQ",2.5)=""
^DD(394.61,0)="FIELD^^100^26"
^DD(394.61,0,"DDA")="N"
^DD(394.61,0,"DT")="2930902"
^DD(394.61,0,"ID","WRITE1")="S VAQXRF=$P($G(^(""QRY"")),U,4) S:(VAQXRF="""") VAQXRF=""NOT ON FILE"" W ""  (PID: "",VAQXRF,"")"" K VAQXRF"
^DD(394.61,0,"IX","AC",394.61,21)=""
^DD(394.61,0,"IX","B",394.61,.01)=""
^DD(394.61,0,"IX","BS51",394.61,10)=""
^DD(394.61,0,"IX","BS52",394.61,11)=""
^DD(394.61,0,"IX","NAME",394.61,10)=""
^DD(394.61,0,"IX","PATPTR",394.61,.03)=""
^DD(394.61,0,"IX","PPP",394.61,.02)=""
^DD(394.61,0,"IX","PURGE",394.61,90)=""
^DD(394.61,0,"IX","SSN",394.61,11)=""
^DD(394.61,0,"IX","STATUS",394.61,.02)=""
^DD(394.61,0,"NM","VAQ - TRANSACTION")=""
^DD(394.61,0,"PT",394.62,40)=""
^DD(394.61,0,"PT",1020.2,3)=""
^DD(394.61,0,"VR")="1.5"
^DD(394.61,.01,0)="Transaction Number^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.61,.01,1,0)="^.1^^-1"
^DD(394.61,.01,1,1,0)="394.61^B"
^DD(394.61,.01,1,1,1)="S ^VAT(394.61,""B"",$E(X,1,30),DA)="""""
^DD(394.61,.01,1,1,2)="K ^VAT(394.61,""B"",$E(X,1,30),DA)"
^DD(394.61,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(394.61,.01,7.5)="I X=""+"" S X=$$AUTO^VAQXRF2(1) K:(X<0) X"
^DD(394.61,.01,21,0)="^^2^2^2930202^^^"
^DD(394.61,.01,21,1,0)=" "
^DD(394.61,.01,21,2,0)="Unique number identifying the transaction."
^DD(394.61,.01,"DT")="2921208"
^DD(394.61,.02,0)="Current Status^P394.85'^VAT(394.85,^0;2^Q"
^DD(394.61,.02,1,0)="^.1"
^DD(394.61,.02,1,1,0)="394.61^STATUS"
^DD(394.61,.02,1,1,1)="S ^VAT(394.61,""STATUS"",$E(X,1,30),DA)="""""
^DD(394.61,.02,1,1,2)="K ^VAT(394.61,""STATUS"",$E(X,1,30),DA)"
^DD(394.61,.02,1,1,"DT")="2921125"
^DD(394.61,.02,1,2,0)="394.61^PPP^MUMPS"
^DD(394.61,.02,1,2,1)="S VAQXRF=X S X=""PPPFMX2"" X ^%ZOSF(""TEST"") D:($T) PDXTRIG^PPPFMX2(DA,1) S X=VAQXRF K VAQXRF"
^DD(394.61,.02,1,2,2)="S VAQXRF=X S X=""PPPFMX2"" X ^%ZOSF(""TEST"") D:($T) PDXTRIG^PPPFMX2(DA,0) S X=VAQXRF K VAQXRF"
^DD(394.61,.02,1,2,"%D",0)="^^3^3^2950217^^^^"
^DD(394.61,.02,1,2,"%D",1,0)="Updates information in the PPP FOREIGN FACILITY XREF file (#1020.2)."
^DD(394.61,.02,1,2,"%D",2,0)="This is only executed if Prescription Practices has been installed at the"
^DD(394.61,.02,1,2,"%D",3,0)="local facility."
^DD(394.61,.02,1,2,"DT")="2940215"
^DD(394.61,.02,21,0)="^^1^1^2930218^"
^DD(394.61,.02,21,1,0)="Current status of the transaction."
^DD(394.61,.02,"DT")="2940215"
^DD(394.61,.03,0)="Patient Ptr^P2'^DPT(^0;3^Q"
^DD(394.61,.03,1,0)="^.1"
^DD(394.61,.03,1,1,0)="394.61^PATPTR"
^DD(394.61,.03,1,1,1)="S ^VAT(394.61,""PATPTR"",$E(X,1,30),DA)="""""
^DD(394.61,.03,1,1,2)="K ^VAT(394.61,""PATPTR"",$E(X,1,30),DA)"
^DD(394.61,.03,1,1,"DT")="2921125"
^DD(394.61,.03,1,2,0)="^^TRIGGER^394.61^10"
^DD(394.61,.03,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(394.61,.03,1,2,1.1) X ^DD(394.61,.03,1,2,1.4)"
^DD(394.61,.03,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(394.61,.03,1,2,1.4)="S DIH=$S($D(^VAT(394.61,DIV(0),""QRY"")):^(""QRY""),1:""""),DIV=X S $P(^(""QRY""),U,1)=DIV,DIH=394.61,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.61,.03,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(394.61,.03,1,2,2.4)"
^DD(394.61,.03,1,2,2.4)="S DIH=$S($D(^VAT(394.61,DIV(0),""QRY"")):^(""QRY""),1:""""),DIV=X S $P(^(""QRY""),U,1)=DIV,DIH=394.61,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.61,.03,1,2,"CREATE VALUE")="Patient Ptr:NAME"
^DD(394.61,.03,1,2,"DELETE VALUE")="@"
^DD(394.61,.03,1,2,"DT")="2921207"
^DD(394.61,.03,1,2,"FIELD")="#10"
^DD(394.61,.03,1,3,0)="^^TRIGGER^394.61^11"
^DD(394.61,.03,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.61,.03,1,3,1.1) X ^DD(394.61,.03,1,3,1.4)"
^DD(394.61,.03,1,3,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0)"
^DD(394.61,.03,1,3,1.4)="S DIH=$S($D(^VAT(394.61,DIV(0),""QRY"")):^(""QRY""),1:""""),DIV=X S $P(^(""QRY""),U,2)=DIV,DIH=394.61,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.61,.03,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(394.61,.03,1,3,2.4)"
^DD(394.61,.03,1,3,2.4)="S DIH=$S($D(^VAT(394.61,DIV(0),""QRY"")):^(""QRY""),1:""""),DIV=X S $P(^(""QRY""),U,2)=DIV,DIH=394.61,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.61,.03,1,3,"CREATE VALUE")="Patient Ptr:SOCIAL SECURITY NUMBER"
^DD(394.61,.03,1,3,"DELETE VALUE")="@"
^DD(394.61,.03,1,3,"DT")="2921207"
^DD(394.61,.03,1,3,"FIELD")="#11"
^DD(394.61,.03,1,4,0)="^^TRIGGER^394.61^12"
^DD(394.61,.03,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.61,.03,1,4,1.1) X ^DD(394.61,.03,1,4,1.4)"
^DD(394.61,.03,1,4,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=I(0,0)"
^DD(394.61,.03,1,4,1.4)="S DIH=$S($D(^VAT(394.61,DIV(0),""QRY"")):^(""QRY""),1:""""),DIV=X S $P(^(""QRY""),U,3)=DIV,DIH=394.61,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.61,.03,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.61,D0,""QRY"")):^(""QRY""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(394.61,.03,1,4,2.4)"
^DD(394.61,.03,1,4,2.4)="S DIH=$S($D(^VAT(394.61,DIV(0),""QRY"")):^(""QRY""),1:""""),DIV=X S $P(^(""QRY""),U,3)=DIV,DIH=394.61,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.61,.03,1,4,"CREATE VALUE")="Patient Ptr:DATE OF BIRTH"
^DD(394.61,.03,1,4,"DELETE VALUE")="@"
^DD(394.61,.03,1,4,"DT")="2921207"
^DD(394.61,.03,1,4,"FIELD")="#12"
^DD(394.61,.03,21,0)="^^1^1^2930218^"
^DD(394.61,.03,21,1,0)="Link to where the patient is stored locally."
^DD(394.61,.03,"DT")="2921207"
^DD(394.61,.04,0)="Sensitive Patient^S^1:YES;0:NO;^0;4^Q"
^DD(394.61,.04,21,0)="^^2^2^2930225^^"
^DD(394.61,.04,21,1,0)="Set to YES if the patient was flagged as sensitive at the remote"
^DD(394.61,.04,21,2,0)="facility."
^DD(394.61,.04,"DT")="2921124"
^DD(394.61,.05,0)="Release Status^P394.85'^VAT(394.85,^0;5^Q"
^DD(394.61,.05,21,0)="^^4^4^2930326^"
^DD(394.61,.05,21,1,0)="This is used when a PDX Request has been processed and requires"
^DD(394.61,.05,21,2,0)="transmission.  The status placed here will be used when building the"
^DD(394.61,.05,21,3,0)="resulting message (i.e. background job building message will use this"
^DD(394.61,.05,21,4,0)="status)."
^DD(394.61,.05,"DT")="2930326"
^DD(394.61,.06,0)="Remote Transaction Number^NJ12,0^^0;6^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.61,.06,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(394.61,.06,21,0)="^^3^3^2930406^"
^DD(394.61,.06,21,1,0)="This is used to store the transaction number of this transaction on the"
^DD(394.61,.06,21,2,0)="remote system.  This field will primarily be used for PDX Requests and"
^DD(394.61,.06,21,3,0)="Unsolicited PDXs that have been received from a remote facility."
^DD(394.61,.06,"DT")="2930406"
^DD(394.61,.07,0)="Remote Version Number^NJ7,3^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(394.61,.07,3)="Type a Number between 1 and 999, 3 Decimal Digits"
^DD(394.61,.07,21,0)="^^3^3^2930924^"
^DD(394.61,.07,21,1,0)="This is used to store the version of PDX that the remote site is using."
^DD(394.61,.07,21,2,0)="This field will primarily be used when requests are processed and returned"
^DD(394.61,.07,21,3,0)="and when a message must be retransmitted."
^DD(394.61,.07,"DT")="2930421"
^DD(394.61,10,0)="Patient's Name^F^^QRY;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X"
^DD(394.61,10,1,0)="^.1"
^DD(394.61,10,1,1,0)="394.61^NAME"
^DD(394.61,10,1,1,1)="S ^VAT(394.61,""NAME"",$E(X,1,30),DA)="""""
^DD(394.61,10,1,1,2)="K ^VAT(394.61,""NAME"",$E(X,1,30),DA)"
^DD(394.61,10,1,1,"DT")="2921125"
^DD(394.61,10,1,2,0)="394.61^BS51^MUMPS"
^DD(394.61,10,1,2,1)="S VAQXRF=$$BS5^VAQXRF2(DA,1) K VAQXRF"
^DD(394.61,10,1,2,2)="S VAQXRF=$$BS5^VAQXRF2(DA,0,10,X) K VAQXRF"
^DD(394.61,10,1,2,"%D",0)="^^12^12^2931102^"
^DD(394.61,10,1,2,"%D",1,0)="Creates a cross reference based on the first letter of the patient's last"
^DD(394.61,10,1,2,"%D",2,0)="name concatenated with the last 4 digits (plus pseudo indicator) of the"
^DD(394.61,10,1,2,"%D",3,0)="patient's social security number."
^DD(394.61,10,1,2,"%D",4,0)=" "
^DD(394.61,10,1,2,"%D",5,0)="Resulting node ==>  ^VAT(394.61,""BS5"",($E([10],1)_$E([11],6,10)),DA)"
^DD(394.61,10,1,2,"%D",6,0)="   Where:  [10] is field number 10"
^DD(394.61,10,1,2,"%D",7,0)="           [11] is field number 11"
^DD(394.61,10,1,2,"%D",8,0)="           DA is the entry number"
^DD(394.61,10,1,2,"%D",9,0)=" "
^DD(394.61,10,1,2,"%D",10,0)="The resulting node is created by the BS51 and BS52 cross references."
^DD(394.61,10,1,2,"%D",11,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.61,10,1,2,"%D",12,0)="the resulting node."
^DD(394.61,10,1,2,"DT")="2930204"
^DD(394.61,10,3)="Answer must be 1-80 characters in length."
^DD(394.61,10,5,1,0)="394.61^.03^2"
^DD(394.61,10,21,0)="^^1^1^2930218^"
^DD(394.61,10,21,1,0)="Name of the patient."
^DD(394.61,10,"DT")="2930204"
^DD(394.61,11,0)="Patient's SSN^F^^QRY;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'((X?9N)!(X?9N1""P"")) X"
^DD(394.61,11,1,0)="^.1"
^DD(394.61,11,1,1,0)="394.61^SSN"
^DD(394.61,11,1,1,1)="S ^VAT(394.61,""SSN"",$E(X,1,30),DA)="""""
^DD(394.61,11,1,1,2)="K ^VAT(394.61,""SSN"",$E(X,1,30),DA)"
^DD(394.61,11,1,1,"DT")="2921125"
^DD(394.61,11,1,2,0)="394.61^BS52^MUMPS"
^DD(394.61,11,1,2,1)="S VAQXRF=$$BS5^VAQXRF2(DA,1) K VAQXRF"
^DD(394.61,11,1,2,2)="S VAQXRF=$$BS5^VAQXRF2(DA,0,11,X) K VAQXRF"
^DD(394.61,11,1,2,"%D",0)="^^12^12^2931102^"
^DD(394.61,11,1,2,"%D",1,0)="Creates a cross reference based on the first letter of the patient's last"
^DD(394.61,11,1,2,"%D",2,0)="name concatenated with the last 4 digits (plus pseudo indicator) of the"
^DD(394.61,11,1,2,"%D",3,0)="patient's social security number."
^DD(394.61,11,1,2,"%D",4,0)=" "
^DD(394.61,11,1,2,"%D",5,0)="Resulting node ==>  ^VAT(394.61,""BS5"",($E([10],1)_$E([11],6,10)),DA)"
^DD(394.61,11,1,2,"%D",6,0)="   Where:  [10] is field number 10"
^DD(394.61,11,1,2,"%D",7,0)="           [11] is field number 11"
^DD(394.61,11,1,2,"%D",8,0)="           DA is the entry number"
^DD(394.61,11,1,2,"%D",9,0)=" "
^DD(394.61,11,1,2,"%D",10,0)="The resulting node is created by the BS51 and BS52 cross references."
^DD(394.61,11,1,2,"%D",11,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.61,11,1,2,"%D",12,0)="the resulting node."
^DD(394.61,11,1,2,"DT")="2930204"
^DD(394.61,11,3)="Answer must be 9-10 characters in length."
^DD(394.61,11,5,1,0)="394.61^.03^3"
^DD(394.61,11,21,0)="^^1^1^2930218^"
^DD(394.61,11,21,1,0)="Social Security Number of the patient."
^DD(394.61,11,"DT")="2930204"
^DD(394.61,12,0)="Patient's DOB^D^^QRY;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(394.61,12,5,1,0)="394.61^.03^4"
^DD(394.61,12,21,0)="^^1^1^2930218^"
^DD(394.61,12,21,1,0)="Date the patient was born."
^DD(394.61,12,"DT")="2921124"
^DD(394.61,13,0)="Patient ID^F^^QRY;4^K:$L(X)>80!($L(X)<1) X"
^DD(394.61,13,3)="Answer must be 1-80 characters in length."
^DD(394.61,13,21,0)="^^1^1^2930218^"
^DD(394.61,13,21,1,0)="A unique identifier of the patient."
^DD(394.61,13,"DT")="2921124"
^DD(394.61,20,0)="Date/Time of Request^D^^RQST1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(394.61,20,21,0)="^^1^1^2930218^"
^DD(394.61,20,21,1,0)="Date and time the request was made."
^DD(394.61,20,"DT")="2921124"
^DD(394.61,21,0)="Requestor^F^^RQST1;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X"
^DD(394.61,21,1,0)="^.1"
^DD(394.61,21,1,1,0)="394.61^AC"
^DD(394.61,21,1,1,1)="S ^VAT(394.61,""AC"",$E(X,1,30),DA)="""""
^DD(394.61,21,1,1,2)="K ^VAT(394.61,""AC"",$E(X,1,30),DA)"
^DD(394.61,21,1,1,"DT")="2930503"
^DD(394.61,21,3)="Answer must be 1-80 characters in length."
^DD(394.61,21,21,0)="^^1^1^2930218^"
^DD(394.61,21,21,1,0)="Person who initiated the request."
^DD(394.61,21,"DT")="2930503"
^DD(394.61,30,0)="Requesting Site^F^^RQST2;1^K:$L(X)>80!($L(X)<1) X"
^DD(394.61,30,3)="Answer must be 1-80 characters in length."
^DD(394.61,30,21,0)="^^1^1^2930218^"
^DD(394.61,30,21,1,0)="From where the request was initiated."
^DD(394.61,30,"DT")="2921124"
^DD(394.61,31,0)="Requesting Address^F^^RQST2;2^K:$L(X)>120!($L(X)<1) X"
^DD(394.61,31,3)="Answer must be 1-120 characters in length."
^DD(394.61,31,21,0)="^^1^1^2930218^"
^DD(394.61,31,21,1,0)="Network address of the requesting site."
^DD(394.61,31,"DT")="2921124"
^DD(394.61,40,0)="Encrypted^S^0:NO;1:YES;^NCRPT;1^Q"
^DD(394.61,40,21,0)="^^1^1^2930225^^"
^DD(394.61,40,21,1,0)="Set to YES if data was encrypted for transmission."
^DD(394.61,40,"DT")="2921124"
^DD(394.61,41,0)="Encryption Method^P394.72'^VAT(394.72,^NCRPT;2^Q"
^DD(394.61,41,21,0)="^^1^1^2930218^"
^DD(394.61,41,21,1,0)="Type of encryption used."
^DD(394.61,41,"DT")="2921124"
^DD(394.61,50,0)="Date/Time of Reply^D^^ATHR1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(394.61,50,1,0)="^.1^^0"
^DD(394.61,50,21,0)="^^1^1^2930218^"
^DD(394.61,50,21,1,0)="Date and time the reply was received."
^DD(394.61,50,"DT")="2930812"
^DD(394.61,51,0)="Authorizer^F^^ATHR1;2^K:$L(X)>80!($L(X)<1) X"
^DD(394.61,51,3)="Answer must be 1-80 characters in length."
^DD(394.61,51,21,0)="^^1^1^2930218^"
^DD(394.61,51,21,1,0)="Person who released the patient information."
^DD(394.61,51,"DT")="2921125"
^DD(394.61,60,0)="Authorizing Site^F^^ATHR2;1^K:$L(X)>80!($L(X)<1) X"
^DD(394.61,60,3)="Answer must be 1-80 characters in length."
^DD(394.61,60,21,0)="^^1^1^2930218^"
^DD(394.61,60,21,1,0)="From where the patient information came."
^DD(394.61,60,"DT")="2921125"
^DD(394.61,61,0)="Authorizing Address^F^^ATHR2;2^K:$L(X)>120!($L(X)<1) X"
^DD(394.61,61,3)="Answer must be 1-120 characters in length."
^DD(394.61,61,21,0)="^^1^1^2930218^"
^DD(394.61,61,21,1,0)="Network address of the authorizing site."
^DD(394.61,61,"DT")="2921125"
^DD(394.61,70,0)="Data in Notification^S^1:YES;0:NO;^NTFY1;1^Q"
^DD(394.61,70,21,0)="^^2^2^2930225^^"
^DD(394.61,70,21,1,0)="Set to YES if requested data is included in the return of data "
^DD(394.61,70,21,2,0)="notification(s)."
^DD(394.61,70,"DT")="2921125"
^DD(394.61,71,0)="Notify^394.6171P^^NTFY2;0"
^DD(394.61,71,21,0)="^^1^1^2930218^"
^DD(394.61,71,21,1,0)="Multiple containing all people to notify upon return of data."
^DD(394.61,80,0)="Data Segment^394.618P^^SEG;0"
^DD(394.61,80,21,0)="^^1^1^2930915^^^^"
^DD(394.61,80,21,1,0)="Multiple containing the data segments contained in the transaction."
^DD(394.61,90,0)="Purge^S^1:YES;0:NO;^PRG;1^Q"
^DD(394.61,90,1,0)="^.1"
^DD(394.61,90,1,1,0)="394.61^PURGE"
^DD(394.61,90,1,1,1)="S ^VAT(394.61,""PURGE"",$E(X,1,30),DA)="""""
^DD(394.61,90,1,1,2)="K ^VAT(394.61,""PURGE"",$E(X,1,30),DA)"
^DD(394.61,90,1,1,"DT")="2921125"
^DD(394.61,90,21,0)="^^1^1^2930924^"
^DD(394.61,90,21,1,0)="Flag indicating if the transaction should be deleted."
^DD(394.61,90,"DT")="2921125"
^DD(394.61,100,0)="Comment^394.611^^CMNT;0"
^DD(394.61,100,21,0)="^^1^1^2930924^^"
^DD(394.61,100,21,1,0)="Comment that was associated with the transaction."
^DD(394.61,"B","Authorizer",51)=""
^DD(394.61,"B","Authorizing Address",61)=""
^DD(394.61,"B","Authorizing Site",60)=""
^DD(394.61,"B","Comment",100)=""
^DD(394.61,"B","Current Status",.02)=""
^DD(394.61,"B","Data Segment",80)=""
^DD(394.61,"B","Data in Notification",70)=""
^DD(394.61,"B","Date/Time of Reply",50)=""
^DD(394.61,"B","Date/Time of Request",20)=""
^DD(394.61,"B","Encrypted",40)=""
^DD(394.61,"B","Encryption Method",41)=""
^DD(394.61,"B","Notify",71)=""
^DD(394.61,"B","Patient ID",13)=""
^DD(394.61,"B","Patient Ptr",.03)=""
^DD(394.61,"B","Patient's DOB",12)=""
^DD(394.61,"B","Patient's Name",10)=""
^DD(394.61,"B","Patient's SSN",11)=""
^DD(394.61,"B","Purge",90)=""
^DD(394.61,"B","Release Status",.05)=""
^DD(394.61,"B","Remote Transaction Number",.06)=""
^DD(394.61,"B","Remote Version Number",.07)=""
^DD(394.61,"B","Requesting Address",31)=""
^DD(394.61,"B","Requesting Site",30)=""
^DD(394.61,"B","Requestor",21)=""
^DD(394.61,"B","Sensitive Patient",.04)=""
^DD(394.61,"B","Transaction Number",.01)=""
^DD(394.61,"GL",0,1,.01)=""
^DD(394.61,"GL",0,2,.02)=""
^DD(394.61,"GL",0,3,.03)=""
^DD(394.61,"GL",0,4,.04)=""
^DD(394.61,"GL",0,5,.05)=""
^DD(394.61,"GL",0,6,.06)=""
^DD(394.61,"GL",0,7,.07)=""
^DD(394.61,"GL","ATHR1",1,50)=""
^DD(394.61,"GL","ATHR1",2,51)=""
^DD(394.61,"GL","ATHR2",1,60)=""
^DD(394.61,"GL","ATHR2",2,61)=""
^DD(394.61,"GL","CMNT",0,100)=""
^DD(394.61,"GL","NCRPT",1,40)=""
^DD(394.61,"GL","NCRPT",2,41)=""
^DD(394.61,"GL","NTFY1",1,70)=""
^DD(394.61,"GL","NTFY2",0,71)=""
^DD(394.61,"GL","PRG",1,90)=""
^DD(394.61,"GL","QRY",1,10)=""
^DD(394.61,"GL","QRY",2,11)=""
^DD(394.61,"GL","QRY",3,12)=""
^DD(394.61,"GL","QRY",4,13)=""
^DD(394.61,"GL","RQST1",1,20)=""
^DD(394.61,"GL","RQST1",2,21)=""
^DD(394.61,"GL","RQST2",1,30)=""
^DD(394.61,"GL","RQST2",2,31)=""
^DD(394.61,"GL","SEG",0,80)=""
^DD(394.61,"IX",.01)=""
^DD(394.61,"IX",.02)=""
^DD(394.61,"IX",.03)=""
^DD(394.61,"IX",10)=""
^DD(394.61,"IX",11)=""
^DD(394.61,"IX",21)=""
^DD(394.61,"IX",90)=""
^DD(394.61,"RQ",.01)=""
^DD(394.61,"SB",394.611,100)=""
^DD(394.61,"SB",394.6171,71)=""
^DD(394.61,"SB",394.618,80)=""
^DD(394.611,0)="Comment SUB-FIELD^^.01^1"
^DD(394.611,0,"DT")="2930113"
^DD(394.611,0,"NM","Comment")=""
^DD(394.611,0,"UP")="394.61"
^DD(394.611,.01,0)="Comment^WL^^0;1^Q"
^DD(394.611,.01,21,0)="^^1^1^2930924^"
^DD(394.611,.01,21,1,0)="Line of text contained in the comment."
^DD(394.611,.01,"DT")="2930113"
^DD(394.611,"B","Comment",.01)=""
^DD(394.611,"GL",0,1,.01)=""
^DD(394.6171,0)="Notify SUB-FIELD^^.01^1"
^DD(394.6171,0,"DT")="2921125"
^DD(394.6171,0,"IX","B",394.6171,.01)=""
^DD(394.6171,0,"NM","Notify")=""
^DD(394.6171,0,"UP")="394.61"
^DD(394.6171,.01,0)="Notify^MP200'^VA(200,^0;1^Q"
^DD(394.6171,.01,1,0)="^.1"
^DD(394.6171,.01,1,1,0)="394.6171^B"
^DD(394.6171,.01,1,1,1)="S ^VAT(394.61,DA(1),""NTFY2"",""B"",$E(X,1,30),DA)="""""
^DD(394.6171,.01,1,1,2)="K ^VAT(394.61,DA(1),""NTFY2"",""B"",$E(X,1,30),DA)"
^DD(394.6171,.01,21,0)="^^1^1^2930218^"
^DD(394.6171,.01,21,1,0)="Who to notify upon return of data."
^DD(394.6171,.01,"DT")="2921125"
^DD(394.6171,"B","Notify",.01)=""
^DD(394.6171,"GL",0,1,.01)=""
^DD(394.6171,"IX",.01)=""
^DD(394.618,0)="Data Segment SUB-FIELD^^.03^3"
^DD(394.618,0,"DT")="2930902"
^DD(394.618,0,"IX","B",394.618,.01)=""
^DD(394.618,0,"NM","Data Segment")=""
^DD(394.618,0,"UP")="394.61"
^DD(394.618,.01,0)="Data Segment^MP394.71'^VAT(394.71,^0;1^Q"
^DD(394.618,.01,1,0)="^.1^^-1"
^DD(394.618,.01,1,1,0)="394.618^B"
^DD(394.618,.01,1,1,1)="S ^VAT(394.61,DA(1),""SEG"",""B"",$E(X,1,30),DA)="""""
^DD(394.618,.01,1,1,2)="K ^VAT(394.61,DA(1),""SEG"",""B"",$E(X,1,30),DA)"
^DD(394.618,.01,21,0)="^^1^1^2930218^"
^DD(394.618,.01,21,1,0)="A data segment contained in the transaction."
^DD(394.618,.01,"DT")="2930812"
^DD(394.618,.02,0)="Time Limit^FX^^0;2^K:$L(X)>6!($L(X)<2)!($$VALOCC^VAQDBIH2(X,0)<0) X"
^DD(394.618,.02,3)="Enter a valid time limit (1-5 digits followed by 'Y' or 'M' or 'D')"
^DD(394.618,.02,21,0)="^^2^2^2930915^^"
^DD(394.618,.02,21,1,0)=" "
^DD(394.618,.02,21,2,0)="Time limit to use when extracting the data segment (if applicable)"
^DD(394.618,.02,"DT")="2930915"
^DD(394.618,.03,0)="Occurrence Limit^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.618,.03,3)="Enter a valid occurrence limit (1-5 digits)"
^DD(394.618,.03,21,0)="^^2^2^2930915^"
^DD(394.618,.03,21,1,0)=" "
^DD(394.618,.03,21,2,0)="Occurrence limit to use when extracting the data segment (if applicable)"
^DD(394.618,.03,"DT")="2930902"
^DD(394.618,"B","Data Segment",.01)=""
^DD(394.618,"B","Occurrence Limit",.03)=""
^DD(394.618,"B","Time Limit",.02)=""
^DD(394.618,"GL",0,1,.01)=""
^DD(394.618,"GL",0,2,.02)=""
^DD(394.618,"GL",0,3,.03)=""
^DD(394.618,"IX",.01)=""
^DD(394.62,0)="FIELD^^50^10"
^DD(394.62,0,"DDA")="N"
^DD(394.62,0,"DT")="2930409"
^DD(394.62,0,"IX","AC1",394.62,.02)=""
^DD(394.62,0,"IX","AC2",394.62,40)=""
^DD(394.62,0,"IX","AF1",394.62,.02)=""
^DD(394.62,0,"IX","AF2",394.62,40)=""
^DD(394.62,0,"IX","AG",394.62,.05)=""
^DD(394.62,0,"IX","B",394.62,.01)=""
^DD(394.62,0,"NM","VAQ - DATA")=""
^DD(394.62,0,"VR")="1.5"
^DD(394.62,.01,0)="Data^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.62,.01,1,0)="^.1^^-1"
^DD(394.62,.01,1,1,0)="394.62^B"
^DD(394.62,.01,1,1,1)="S ^VAT(394.62,""B"",$E(X,1,30),DA)="""""
^DD(394.62,.01,1,1,2)="K ^VAT(394.62,""B"",$E(X,1,30),DA)"
^DD(394.62,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(394.62,.01,7.5)="I X=""+"" S X=$$AUTO^VAQXRF2(2) K:(X<0) X"
^DD(394.62,.01,21,0)="^^2^2^2921125^"
^DD(394.62,.01,21,1,0)=" "
^DD(394.62,.01,21,2,0)="Incrementing number (used to uniquely identify each value)."
^DD(394.62,.01,"DT")="2921208"
^DD(394.62,.02,0)="Segment^P394.71'^VAT(394.71,^0;2^Q"
^DD(394.62,.02,1,0)="^.1^^-1"
^DD(394.62,.02,1,2,0)="394.62^AF1^MUMPS"
^DD(394.62,.02,1,2,1)="S VAQXRF=$$AF^VAQXRF3(DA,1) K VAQXRF"
^DD(394.62,.02,1,2,2)="S VAQXRF=$$AF^VAQXRF3(DA,0,.02,X) K VAQXRF"
^DD(394.62,.02,1,2,"%D",0)="^^12^12^2931102^"
^DD(394.62,.02,1,2,"%D",1,0)="Creates a cross reference of all data segments for a given transaction"
^DD(394.62,.02,1,2,"%D",2,0)="that are stored in displayable format.  This cross reference is only set"
^DD(394.62,.02,1,2,"%D",3,0)="if the field Display Ready (.05) is set to 'YES'."
^DD(394.62,.02,1,2,"%D",4,0)=" "
^DD(394.62,.02,1,2,"%D",5,0)="Resulting node ==>  ^VAT(394.62,""A-DISPLAY"",[40],[.02],DA)"
^DD(394.62,.02,1,2,"%D",6,0)="   Where:   [.02] is field number .02"
^DD(394.62,.02,1,2,"%D",7,0)="            [40] is field number 40"
^DD(394.62,.02,1,2,"%D",8,0)="            DA is the entry number"
^DD(394.62,.02,1,2,"%D",9,0)=" "
^DD(394.62,.02,1,2,"%D",10,0)="The resulting node is created by the AF1 and AF2 cross references."
^DD(394.62,.02,1,2,"%D",11,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.62,.02,1,2,"%D",12,0)="the resulting node."
^DD(394.62,.02,1,2,"DT")="2930217"
^DD(394.62,.02,1,3,0)="394.62^AC1^MUMPS"
^DD(394.62,.02,1,3,1)="S VAQXRF=$$AC^VAQXRF1(DA,1) K VAQXRF"
^DD(394.62,.02,1,3,2)="S VAQXRF=$$AC^VAQXRF1(DA,0,.02,X) K VAQXRF"
^DD(394.62,.02,1,3,"%D",0)="^^10^10^2931102^"
^DD(394.62,.02,1,3,"%D",1,0)="Creates a cross reference of all data segments for a given transaction."
^DD(394.62,.02,1,3,"%D",2,0)=" "
^DD(394.62,.02,1,3,"%D",3,0)="Resulting node ==>  ^VAT(394.62,""A-SEGMENT"",[40],[.02],DA)"
^DD(394.62,.02,1,3,"%D",4,0)="   Where:   [.02] is field number .02"
^DD(394.62,.02,1,3,"%D",5,0)="            [40] is field number 40"
^DD(394.62,.02,1,3,"%D",6,0)="            DA is the entry number"
^DD(394.62,.02,1,3,"%D",7,0)=" "
^DD(394.62,.02,1,3,"%D",8,0)="The resulting node is created by the AC1 and AC2 cross references."
^DD(394.62,.02,1,3,"%D",9,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.62,.02,1,3,"%D",10,0)="the resulting node."
^DD(394.62,.02,1,3,"DT")="2930408"
^DD(394.62,.02,21,0)="^^1^1^2930218^"
^DD(394.62,.02,21,1,0)="Data segment to which the information belongs."
^DD(394.62,.02,"DT")="2930409"
^DD(394.62,.03,0)="File Number^NJ20,9^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(394.62,.03,1,0)="^.1^^0"
^DD(394.62,.03,3)="Type a Number between 0 and 9999999999, 9 Decimal Digits"
^DD(394.62,.03,21,0)="^^1^1^2930330^^^"
^DD(394.62,.03,21,1,0)="File number from which the information came."
^DD(394.62,.03,"DT")="2930409"
^DD(394.62,.04,0)="Field Number^NJ20,9^^0;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(394.62,.04,3)="Type a Number between 0 and 9999999999, 9 Decimal Digits"
^DD(394.62,.04,21,0)="^^1^1^2930330^^^"
^DD(394.62,.04,21,1,0)="Field number from which the information came."
^DD(394.62,.04,"DT")="2921125"
^DD(394.62,.05,0)="Display Ready^S^1:YES;0:NO;^0;5^Q"
^DD(394.62,.05,1,0)="^.1"
^DD(394.62,.05,1,1,0)="394.62^AG^MUMPS"
^DD(394.62,.05,1,1,1)="Q"
^DD(394.62,.05,1,1,2)="S VAQXRF=$$AG^VAQXRF3(DA) K VAQXRF"
^DD(394.62,.05,1,1,"DT")="2930217"
^DD(394.62,.05,21,0)="^^2^2^2930924^"
^DD(394.62,.05,21,1,0)="Set to 'YES' if the segment is being stored in display ready format.  Set"
^DD(394.62,.05,21,2,0)="to 'NO' if segment is being stored as individual pieces of information."
^DD(394.62,.05,"DT")="2930217"
^DD(394.62,10,0)="Value^F^^VAL;1^K:$L(X)>240!($L(X)<1) X"
^DD(394.62,10,3)="Answer must be 1-240 characters in length."
^DD(394.62,10,21,0)="^^2^2^2930225^^^^"
^DD(394.62,10,21,1,0)="Information that was stored in the specified field of the specified"
^DD(394.62,10,21,2,0)="file."
^DD(394.62,10,"DT")="2921125"
^DD(394.62,20,0)="Identifier^F^^IDNT1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>240!($L(X)<1) X"
^DD(394.62,20,1,0)="^.1^^0"
^DD(394.62,20,3)="Answer must be 1-240 characters in length."
^DD(394.62,20,21,0)="^^2^2^2930218^"
^DD(394.62,20,21,1,0)="This field uniquely identifies the ""master"" value (to whom the"
^DD(394.62,20,21,2,0)="information pertains)."
^DD(394.62,20,"DT")="2930409"
^DD(394.62,30,0)="Sequence Number^NJ10,0^^SQNCE;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(394.62,30,1,0)="^.1^^0"
^DD(394.62,30,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(394.62,30,21,0)="^^2^2^2930218^"
^DD(394.62,30,21,1,0)="Sequencing number used when more than one value came from the same"
^DD(394.62,30,21,2,0)="file/field."
^DD(394.62,30,"DT")="2930409"
^DD(394.62,40,0)="Transaction Number^P394.61'^VAT(394.61,^TRNS;1^Q"
^DD(394.62,40,1,0)="^.1^^-1"
^DD(394.62,40,1,2,0)="394.62^AF2^MUMPS"
^DD(394.62,40,1,2,1)="S VAQXRF=$$AF^VAQXRF3(DA,1) K VAQXRF"
^DD(394.62,40,1,2,2)="S VAQXRF=$$AF^VAQXRF3(DA,0,40,X) K VAQXRF"
^DD(394.62,40,1,2,"%D",0)="^^12^12^2931102^"
^DD(394.62,40,1,2,"%D",1,0)="Creates a cross reference of all data segments for a given transaction"
^DD(394.62,40,1,2,"%D",2,0)="that are stored in displayable format.  This cross reference is only set"
^DD(394.62,40,1,2,"%D",3,0)="if the field Display Ready (.05) is set to 'YES'."
^DD(394.62,40,1,2,"%D",4,0)=" "
^DD(394.62,40,1,2,"%D",5,0)="Resulting node ==>  ^VAT(394.62,""A-DISPLAY"",[40],[.02],DA)"
^DD(394.62,40,1,2,"%D",6,0)="   Where:   [.02] is field number .02"
^DD(394.62,40,1,2,"%D",7,0)="            [40] is field number 40"
^DD(394.62,40,1,2,"%D",8,0)="            DA is the entry number"
^DD(394.62,40,1,2,"%D",9,0)=" "
^DD(394.62,40,1,2,"%D",10,0)="The resulting node is created by the AF1 and AF2 cross references."
^DD(394.62,40,1,2,"%D",11,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.62,40,1,2,"%D",12,0)="the resulting node."
^DD(394.62,40,1,2,"DT")="2930217"
^DD(394.62,40,1,3,0)="394.62^AC2^MUMPS"
^DD(394.62,40,1,3,1)="S VAQXRF=$$AC^VAQXRF1(DA,1) K VAQXRF"
^DD(394.62,40,1,3,2)="S VAQXRF=$$AC^VAQXRF1(DA,0,40,X) K VAQXRF"
^DD(394.62,40,1,3,"%D",0)="^^10^10^2931102^"
^DD(394.62,40,1,3,"%D",1,0)="Creates a cross reference of all data segments for a given transaction."
^DD(394.62,40,1,3,"%D",2,0)=" "
^DD(394.62,40,1,3,"%D",3,0)="Resulting node ==>  ^VAT(394.62,""A-SEGMENT"",[40],[.02],DA)"
^DD(394.62,40,1,3,"%D",4,0)="   Where:   [.02] is field number .02"
^DD(394.62,40,1,3,"%D",5,0)="            [40] is field number 40"
^DD(394.62,40,1,3,"%D",6,0)="            DA is the entry number"
^DD(394.62,40,1,3,"%D",7,0)=" "
^DD(394.62,40,1,3,"%D",8,0)="The resulting node is created by the AC1 and AC2 cross references."
^DD(394.62,40,1,3,"%D",9,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.62,40,1,3,"%D",10,0)="the resulting node."
^DD(394.62,40,1,3,"DT")="2930408"
^DD(394.62,40,21,0)="^^1^1^2930218^"
^DD(394.62,40,21,1,0)="Transaction from which the information came."
^DD(394.62,40,"DT")="2930409"
^DD(394.62,50,0)="Displayable Segment^394.625^^DSP;0"
^DD(394.62,50,21,0)="^^1^1^2930924^"
^DD(394.62,50,21,1,0)="Segment in display ready format."
^DD(394.62,"B","Data",.01)=""
^DD(394.62,"B","Display Ready",.05)=""
^DD(394.62,"B","Displayable Segment",50)=""
^DD(394.62,"B","Field Number",.04)=""
^DD(394.62,"B","File Number",.03)=""
^DD(394.62,"B","Identifier",20)=""
^DD(394.62,"B","Segment",.02)=""
^DD(394.62,"B","Sequence Number",30)=""
^DD(394.62,"B","Transaction Number",40)=""
^DD(394.62,"B","Value",10)=""
^DD(394.62,"GL",0,1,.01)=""
^DD(394.62,"GL",0,2,.02)=""
^DD(394.62,"GL",0,3,.03)=""
^DD(394.62,"GL",0,4,.04)=""
^DD(394.62,"GL",0,5,.05)=""
^DD(394.62,"GL","DSP",0,50)=""
^DD(394.62,"GL","IDNT1",1,20)=""
^DD(394.62,"GL","SQNCE",1,30)=""
^DD(394.62,"GL","TRNS",1,40)=""
^DD(394.62,"GL","VAL",1,10)=""
^DD(394.62,"IX",.01)=""
^DD(394.62,"IX",.02)=""
^DD(394.62,"IX",.05)=""
^DD(394.62,"IX",40)=""
^DD(394.62,"RQ",.01)=""
^DD(394.62,"SB",394.625,50)=""
^DD(394.625,0)="Displayable Segment SUB-FIELD^^.01^1"
^DD(394.625,0,"DT")="2930216"
^DD(394.625,0,"NM","Displayable Segment")=""
^DD(394.625,0,"UP")="394.62"
^DD(394.625,.01,0)="Displayable Segment^WL^^0;1^Q"
^DD(394.625,.01,"DT")="2930216"
^DD(394.625,"B","Displayable Segment",.01)=""
^DD(394.625,"GL",0,1,.01)=""
^DD(394.71,0)="FIELD^^20^8"
^DD(394.71,0,"DDA")="N"
^DD(394.71,0,"DT")="2930909"
^DD(394.71,0,"ID","WRITE1")="W ?40,""("",$P(^(0),U,2),"")"""
^DD(394.71,0,"IX","B",394.71,.01)=""
^DD(394.71,0,"IX","C",394.71,.02)=""
^DD(394.71,0,"IX","D",394.71,.01)=""
^DD(394.71,0,"NM","VAQ - DATA SEGMENT")=""
^DD(394.71,0,"PT",394.618,.01)=""
^DD(394.71,0,"PT",394.62,.02)=""
^DD(394.71,0,"PT",394.841,.01)=""
^DD(394.71,0,"PT",394.873,.01)=""
^DD(394.71,0,"VR")="1.5"
^DD(394.71,.01,0)="Data Segment Name^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1)!'(X'?1P.E) X"
^DD(394.71,.01,1,0)="^.1"
^DD(394.71,.01,1,1,0)="394.71^B"
^DD(394.71,.01,1,1,1)="S ^VAT(394.71,""B"",$E(X,1,30),DA)="""""
^DD(394.71,.01,1,1,2)="K ^VAT(394.71,""B"",$E(X,1,30),DA)"
^DD(394.71,.01,1,2,0)="394.71^D^MUMPS"
^DD(394.71,.01,1,2,1)="S ^VAT(394.71,""CAPS"",$TR($E(X,1,30),""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(394.71,.01,1,2,2)="K ^VAT(394.71,""CAPS"",$TR($E(X,1,30),""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(394.71,.01,1,2,"%D",0)="^^6^6^2930927^"
^DD(394.71,.01,1,2,"%D",1,0)="Creates a cross reference of field Data Segment Name (.01) in upper case"
^DD(394.71,.01,1,2,"%D",2,0)="format."
^DD(394.71,.01,1,2,"%D",3,0)=" "
^DD(394.71,.01,1,2,"%D",4,0)="Resulting node ==> ^VAT(394.71,""CAPS"",[.01 in all caps],DA)"
^DD(394.71,.01,1,2,"%D",5,0)="    Where:  [.01 in all caps] is field number .01 converted to upper case"
^DD(394.71,.01,1,2,"%D",6,0)="            DA is the entry number"
^DD(394.71,.01,1,2,"DT")="2930728"
^DD(394.71,.01,3)="Answer must be 1-80 characters in length."
^DD(394.71,.01,21,0)="^^2^2^2921201^"
^DD(394.71,.01,21,1,0)=" "
^DD(394.71,.01,21,2,0)="Name of the data segment."
^DD(394.71,.01,"DT")="2930728"
^DD(394.71,.02,0)="Abbreviation^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<1) X"
^DD(394.71,.02,1,0)="^.1"
^DD(394.71,.02,1,1,0)="394.71^C"
^DD(394.71,.02,1,1,1)="S ^VAT(394.71,""C"",$E(X,1,30),DA)="""""
^DD(394.71,.02,1,1,2)="K ^VAT(394.71,""C"",$E(X,1,30),DA)"
^DD(394.71,.02,1,1,"DT")="2921222"
^DD(394.71,.02,3)="Answer must be 1-7 characters in length."
^DD(394.71,.02,21,0)="^^1^1^2930316^^"
^DD(394.71,.02,21,1,0)="Abbreviation for the data segment."
^DD(394.71,.02,"DT")="2930316"
^DD(394.71,.03,0)="Extract Is Display Ready^S^1:YES;0:NO;^0;3^Q"
^DD(394.71,.03,21,0)="^^3^3^2930225^^"
^DD(394.71,.03,21,1,0)="Set to YES if the Extraction Method returns information in display"
^DD(394.71,.03,21,2,0)="ready format (returns Display Array instead of Extraction Array)."
^DD(394.71,.03,21,3,0)="Set to NO if Extraction Method does not (returns Extraction Array)."
^DD(394.71,.03,"DT")="2930201"
^DD(394.71,.04,0)="Health Summary Component^P142.1'^GMT(142.1,^0;4^Q"
^DD(394.71,.04,21,0)="^^3^3^2931101^"
^DD(394.71,.04,21,1,0)=" "
^DD(394.71,.04,21,2,0)="Set to the Health Summary Component that this data segment is associated"
^DD(394.71,.04,21,3,0)="with.  Leave blank if data segment is not a Health Summary Component."
^DD(394.71,.04,"DT")="2930902"
^DD(394.71,.05,0)="Maximum Time Limit^FX^^0;5^K:$L(X)>6!($L(X)<2)!($$VALOCC^VAQDBIH2(X,0)<0) X"
^DD(394.71,.05,3)="Enter a valid time limit (1-5 digits followed by 'Y' or 'M' or 'D')"
^DD(394.71,.05,21,0)="^^3^3^2930915^"
^DD(394.71,.05,21,1,0)=" "
^DD(394.71,.05,21,2,0)="Maximum time limit facility will allow when automatically processing a PDX"
^DD(394.71,.05,21,3,0)="Request with this segment"
^DD(394.71,.05,"DT")="2930915"
^DD(394.71,.06,0)="Maximum Occurrence Limit^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.71,.06,3)="Enter a valid occurrence limit (1-5 digits)"
^DD(394.71,.06,21,0)="^^3^3^2930915^"
^DD(394.71,.06,21,1,0)=" "
^DD(394.71,.06,21,2,0)="Maximum occurrence limit facility will allow when automatically processing"
^DD(394.71,.06,21,3,0)="a PDX Request with this segment"
^DD(394.71,.06,"DT")="2930909"
^DD(394.71,10,0)="Extraction Method^F^^XRTN;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(394.71,10,3)="Answer must be 1-240 characters in length."
^DD(394.71,10,21,0)="^^1^1^2930218^"
^DD(394.71,10,21,1,0)="Function call to extract data segment."
^DD(394.71,10,"DT")="2921130"
^DD(394.71,20,0)="Display Method^F^^DRTN;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(394.71,20,3)="Answer must be 1-240 characters in length."
^DD(394.71,20,21,0)="^^2^2^2930218^"
^DD(394.71,20,21,1,0)="Function call to display data segment.  This field is not used when the"
^DD(394.71,20,21,2,0)="Extraction Method returns information in display ready format."
^DD(394.71,20,"DT")="2921222"
^DD(394.71,"B","Abbreviation",.02)=""
^DD(394.71,"B","Data Segment Name",.01)=""
^DD(394.71,"B","Display Method",20)=""
^DD(394.71,"B","Extract Is Display Ready",.03)=""
^DD(394.71,"B","Extraction Method",10)=""
^DD(394.71,"B","Health Summary Component",.04)=""
^DD(394.71,"B","Maximum Occurrence Limit",.06)=""
^DD(394.71,"B","Maximum Time Limit",.05)=""
^DD(394.71,"GL",0,1,.01)=""
^DD(394.71,"GL",0,2,.02)=""
^DD(394.71,"GL",0,3,.03)=""
^DD(394.71,"GL",0,4,.04)=""
^DD(394.71,"GL",0,5,.05)=""
^DD(394.71,"GL",0,6,.06)=""
^DD(394.71,"GL","DRTN","E1,240",20)=""
^DD(394.71,"GL","XRTN","E1,240",10)=""
^DD(394.71,"IX",.01)=""
^DD(394.71,"IX",.02)=""
^DD(394.71,"RQ",.01)=""
^DD(394.72,0)="FIELD^^20^3"
^DD(394.72,0,"DDA")="N"
^DD(394.72,0,"DT")="2921130"
^DD(394.72,0,"IX","B",394.72,.01)=""
^DD(394.72,0,"NM","VAQ - ENCRYPTION METHOD")=""
^DD(394.72,0,"PT",394.61,41)=""
^DD(394.72,0,"PT",394.81,21)=""
^DD(394.72,0,"VR")="1.5"
^DD(394.72,.01,0)="Encryption Type^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(394.72,.01,1,0)="^.1"
^DD(394.72,.01,1,1,0)="394.72^B"
^DD(394.72,.01,1,1,1)="S ^VAT(394.72,""B"",$E(X,1,30),DA)="""""
^DD(394.72,.01,1,1,2)="K ^VAT(394.72,""B"",$E(X,1,30),DA)"
^DD(394.72,.01,3)="Answer must be 1-30 characters in length."
^DD(394.72,.01,21,0)="^^2^2^2921130^"
^DD(394.72,.01,21,1,0)=" "
^DD(394.72,.01,21,2,0)="Type of encryption (name)."
^DD(394.72,.01,"DT")="2921130"
^DD(394.72,10,0)="Encryption Method^F^^ECR;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(394.72,10,3)="Answer must be 1-240 characters in length."
^DD(394.72,10,21,0)="^^1^1^2930218^"
^DD(394.72,10,21,1,0)="Function call to encrypt a line of data."
^DD(394.72,10,"DT")="2921130"
^DD(394.72,20,0)="Decryption Method^F^^DCR;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(394.72,20,3)="Answer must be 1-240 characters in length."
^DD(394.72,20,21,0)="^^1^1^2930218^"
^DD(394.72,20,21,1,0)="Function call to decrypt a line of data."
^DD(394.72,20,"DT")="2921130"
^DD(394.72,"B","Decryption Method",20)=""
^DD(394.72,"B","Encryption Method",10)=""
^DD(394.72,"B","Encryption Type",.01)=""
^DD(394.72,"GL",0,1,.01)=""
^DD(394.72,"GL","DCR","E1,240",20)=""
^DD(394.72,"GL","ECR","E1,240",10)=""
^DD(394.72,"IX",.01)=""
^DD(394.72,"RQ",.01)=""
^DD(394.73,0)="FIELD^^.03^3"
^DD(394.73,0,"DDA")="N"
^DD(394.73,0,"DT")="2930330"
^DD(394.73,0,"ID","WRITE1")="W ?($X+5),""FILE: "",$P(^(0),U,2)"
^DD(394.73,0,"ID","WRITE2")="W ?($X+5),""FIELD: "",$P(^(0),U,3)"
^DD(394.73,0,"IX","AB1",394.73,.02)=""
^DD(394.73,0,"IX","AB2",394.73,.03)=""
^DD(394.73,0,"IX","B",394.73,.01)=""
^DD(394.73,0,"NM","VAQ - ENCRYPTED FIELDS")=""
^DD(394.73,0,"VR")="1.5"
^DD(394.73,.01,0)="Encrypt Field^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.73,.01,1,0)="^.1"
^DD(394.73,.01,1,1,0)="394.73^B"
^DD(394.73,.01,1,1,1)="S ^VAT(394.73,""B"",$E(X,1,30),DA)="""""
^DD(394.73,.01,1,1,2)="K ^VAT(394.73,""B"",$E(X,1,30),DA)"
^DD(394.73,.01,1,2,0)="^^TRIGGER^394.86^30"
^DD(394.73,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(394.73,.01,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(394.73,.01,1,2,1.4)"
^DD(394.73,.01,1,2,1.4)="S DIH=$S($D(^VAT(394.86,DIV(0),3)):^(3),1:""""),DIV=X I $D(^(0)) S $P(^(3),U,1)=DIV,DIH=394.86,DIG=30 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.73,.01,1,2,2)="Q"
^DD(394.73,.01,1,2,89.2)="S I(0,0)=$S($D(D0):D0,1:"""") S X=1,X=X S X=X K DIC S DIC=""^VAT(394.86,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y S Y(101)=$S($D(^VAT(394.86,D0,3)):^(3),1:"""")"
^DD(394.73,.01,1,2,"CREATE VALUE")="Encrypt Field"
^DD(394.73,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(394.73,.01,1,2,"DIC")="LOOKUP"
^DD(394.73,.01,1,2,"DT")="2930216"
^DD(394.73,.01,1,2,"FIELD")="1:394.86:#30"
^DD(394.73,.01,3)="Incrementing number used to uniquely identify each entry.  Entering '+' will automatically determine this number."
^DD(394.73,.01,7.5)="I X=""+"" S X=$$AUTO^VAQXRF2(3) K:(X<0) X"
^DD(394.73,.01,21,0)="^^3^3^2931112^^^"
^DD(394.73,.01,21,1,0)=" "
^DD(394.73,.01,21,2,0)="Incrementing number used to uniquely identify each entry.  Entering "
^DD(394.73,.01,21,3,0)="'+' will automatically determine this number."
^DD(394.73,.01,"DT")="2921130"
^DD(394.73,.02,0)="File^NJ20,9^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(394.73,.02,1,0)="^.1"
^DD(394.73,.02,1,1,0)="394.73^AB1^MUMPS"
^DD(394.73,.02,1,1,1)="S VAQXRF=$$AB^VAQXRF1(DA,1) K VAQXRF"
^DD(394.73,.02,1,1,2)="S VAQXRF=$$AB^VAQXRF1(DA,0,.02,X) K VAQXRF"
^DD(394.73,.02,1,1,"%D",0)="^^11^11^2931102^"
^DD(394.73,.02,1,1,"%D",1,0)="Creates a cross reference of all file/field combinations that have been"
^DD(394.73,.02,1,1,"%D",2,0)="entered into this file."
^DD(394.73,.02,1,1,"%D",3,0)=" "
^DD(394.73,.02,1,1,"%D",4,0)="Resulting node ==> ^VAT(394.73,""A-NCRPT"",[.02],[.03],DA)"
^DD(394.73,.02,1,1,"%D",5,0)="    Where:  [.02] is field number .02"
^DD(394.73,.02,1,1,"%D",6,0)="            [.03] is field number .03"
^DD(394.73,.02,1,1,"%D",7,0)="            DA is the entry number"
^DD(394.73,.02,1,1,"%D",8,0)=" "
^DD(394.73,.02,1,1,"%D",9,0)="The resulting node is created by the AB1 and AB2 cross references."
^DD(394.73,.02,1,1,"%D",10,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.73,.02,1,1,"%D",11,0)="the resulting node."
^DD(394.73,.02,1,1,"DT")="2921201"
^DD(394.73,.02,3)="Type a Number between 0 and 9999999999, 9 Decimal Digits"
^DD(394.73,.02,21,0)="^^1^1^2930330^^"
^DD(394.73,.02,21,1,0)="File containing the field to encrypt."
^DD(394.73,.02,"DT")="2930330"
^DD(394.73,.03,0)="Field^NJ20,9^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(394.73,.03,1,0)="^.1"
^DD(394.73,.03,1,1,0)="394.73^AB2^MUMPS"
^DD(394.73,.03,1,1,1)="S VAQXRF=$$AB^VAQXRF1(DA,1) K VAQXRF"
^DD(394.73,.03,1,1,2)="S VAQXRF=$$AB^VAQXRF1(DA,0,.03,X) K VAQXRF"
^DD(394.73,.03,1,1,"%D",0)="^^11^11^2931102^"
^DD(394.73,.03,1,1,"%D",1,0)="Creates a cross reference of all file/field combinations that have been"
^DD(394.73,.03,1,1,"%D",2,0)="entered into this file."
^DD(394.73,.03,1,1,"%D",3,0)=" "
^DD(394.73,.03,1,1,"%D",4,0)="Resulting node ==> ^VAT(394.73,""A-NCRPT"",[.02],[.03],DA)"
^DD(394.73,.03,1,1,"%D",5,0)="    Where:  [.02] is field number .02"
^DD(394.73,.03,1,1,"%D",6,0)="            [.03] is field number .03"
^DD(394.73,.03,1,1,"%D",7,0)="            DA is the entry number"
^DD(394.73,.03,1,1,"%D",8,0)=" "
^DD(394.73,.03,1,1,"%D",9,0)="The resulting node is created by the AB1 and AB2 cross references."
^DD(394.73,.03,1,1,"%D",10,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.73,.03,1,1,"%D",11,0)="the resulting node."
^DD(394.73,.03,1,1,"DT")="2921130"
^DD(394.73,.03,3)="Type a Number between 0 and 9999999999, 9 Decimal Digits"
^DD(394.73,.03,21,0)="^^1^1^2930330^^"
^DD(394.73,.03,21,1,0)="Field to encrypt."
^DD(394.73,.03,"DT")="2930330"
^DD(394.73,"B","Encrypt Field",.01)=""
^DD(394.73,"B","Field",.03)=""
^DD(394.73,"B","File",.02)=""
^DD(394.73,"GL",0,1,.01)=""
^DD(394.73,"GL",0,2,.02)=""
^DD(394.73,"GL",0,3,.03)=""
^DD(394.73,"IX",.01)=""
^DD(394.73,"IX",.02)=""
^DD(394.73,"IX",.03)=""
^DD(394.73,"RQ",.01)=""
^DD(394.81,0)="FIELD^^31^7"
^DD(394.81,0,"DDA")="N"
^DD(394.81,0,"DT")="2930908"
^DD(394.81,0,"IX","B",394.81,.01)=""
^DD(394.81,0,"NM","VAQ - PARAMETER")=""
^DD(394.81,0,"VR")="1.5"
^DD(394.81,.01,0)="Facility^R*P4'^DIC(4,^0;1^S DIC(""S"")=""I $$ONEPAR^VAQXRF3(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(394.81,.01,1,0)="^.1"
^DD(394.81,.01,1,1,0)="394.81^B"
^DD(394.81,.01,1,1,1)="S ^VAT(394.81,""B"",$E(X,1,30),DA)="""""
^DD(394.81,.01,1,1,2)="K ^VAT(394.81,""B"",$E(X,1,30),DA)"
^DD(394.81,.01,3)="Please enter your institution's name or number"
^DD(394.81,.01,12)="This file may only contain one entry (your facility)"
^DD(394.81,.01,12.1)="S DIC(""S"")=""I $$ONEPAR^VAQXRF3(Y)"""
^DD(394.81,.01,21,0)="^^2^2^2930908^^^"
^DD(394.81,.01,21,1,0)=" "
^DD(394.81,.01,21,2,0)="Main facility."
^DD(394.81,.01,"DT")="2930908"
^DD(394.81,.02,0)="Domain^P4.2'^DIC(4.2,^0;2^Q"
^DD(394.81,.02,21,0)="^^1^1^2930218^"
^DD(394.81,.02,21,1,0)="E-Mail address of the main facility."
^DD(394.81,.02,"DT")="2921201"
^DD(394.81,10,0)="Lifetime of Data^NJ3,0^^LIFE;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.81,10,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(394.81,10,21,0)="^^1^1^2930218^"
^DD(394.81,10,21,1,0)="Number of days PDX is valid."
^DD(394.81,10,"DT")="2921201"
^DD(394.81,20,0)="Encrypt Fields^S^1:YES;0:NO;^ECR;1^Q"
^DD(394.81,20,21,0)="^^2^2^2930225^^"
^DD(394.81,20,21,1,0)="Set to YES if encryption should be done, by default, for all PDX"
^DD(394.81,20,21,2,0)="requests and unsolicited PDXs sent by the facility."
^DD(394.81,20,"DT")="2921201"
^DD(394.81,21,0)="Encryption Method^P394.72'^VAT(394.72,^ECR;2^Q"
^DD(394.81,21,21,0)="^^3^3^2930225^^"
^DD(394.81,21,21,1,0)="Method of encryption to use, by default, for PDX requests and"
^DD(394.81,21,21,2,0)="unsolicited PDXs sent by facility.  This field is only relevant"
^DD(394.81,21,21,3,0)="when the ENCRYPT FIELDS field is set to YES."
^DD(394.81,21,"DT")="2921201"
^DD(394.81,30,0)="Default Time Limit^FX^^LIMITS;1^K:$L(X)>6!($L(X)<2)!($$VALOCC^VAQDBIH2(X,0)<0) X"
^DD(394.81,30,3)="Enter a valid time limit (1-5 digits followed by 'Y' or 'M' or 'D')"
^DD(394.81,30,21,0)="^^2^2^2930915^"
^DD(394.81,30,21,1,0)=" "
^DD(394.81,30,21,2,0)="Default time limit to use when a data segment accepts time limits"
^DD(394.81,30,"DT")="2930915"
^DD(394.81,31,0)="Default Occurrence Limit^NJ5,0^^LIMITS;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.81,31,3)="Enter a valid occurrence limit (1-5 digits)"
^DD(394.81,31,21,0)="^^3^3^2930915^"
^DD(394.81,31,21,1,0)=" "
^DD(394.81,31,21,2,0)="Default occurrence limit to use when a data segment accepts occurrence"
^DD(394.81,31,21,3,0)="limits"
^DD(394.81,31,"DT")="2930902"
^DD(394.81,"B","Default Occurrence Limit",31)=""
^DD(394.81,"B","Default Time Limit",30)=""
^DD(394.81,"B","Domain",.02)=""
^DD(394.81,"B","Encrypt Fields",20)=""
^DD(394.81,"B","Encryption Method",21)=""
^DD(394.81,"B","Facility",.01)=""
^DD(394.81,"B","Lifetime of Data",10)=""
^DD(394.81,"GL",0,1,.01)=""
^DD(394.81,"GL",0,2,.02)=""
^DD(394.81,"GL","ECR",1,20)=""
^DD(394.81,"GL","ECR",2,21)=""
^DD(394.81,"GL","LIFE",1,10)=""
^DD(394.81,"GL","LIMITS",1,30)=""
^DD(394.81,"GL","LIMITS",2,31)=""
^DD(394.81,"IX",.01)=""
^DD(394.81,"RQ",.01)=""
^DD(394.82,0)="FIELD^^11^4"
^DD(394.82,0,"DDA")="N"
^DD(394.82,0,"DT")="2921201"
^DD(394.82,0,"IX","B",394.82,.01)=""
^DD(394.82,0,"IX","C",394.82,.02)=""
^DD(394.82,0,"NM","VAQ - RELEASE GROUP")=""
^DD(394.82,0,"VR")="1.5"
^DD(394.82,.01,0)="Remote Facility^RP4'^DIC(4,^0;1^Q"
^DD(394.82,.01,1,0)="^.1"
^DD(394.82,.01,1,1,0)="394.82^B"
^DD(394.82,.01,1,1,1)="S ^VAT(394.82,""B"",$E(X,1,30),DA)="""""
^DD(394.82,.01,1,1,2)="K ^VAT(394.82,""B"",$E(X,1,30),DA)"
^DD(394.82,.01,1,2,0)="^^TRIGGER^394.82^.02"
^DD(394.82,.01,1,2,1)="X ^DD(394.82,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.82,.01,1,2,1.1) X ^DD(394.82,.01,1,2,1.4)"
^DD(394.82,.01,1,2,1.1)="S X=DIV X ^DD(394.82,.01,1,2,49.2) S D0=$P(Y(101),U,1) S:'$D(^DIC(4.2,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0)"
^DD(394.82,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,6)):^(6),1:"""") S X=$S('$D(^DIC(4.2,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1))'="""" S D0=I(0,0)"
^DD(394.82,.01,1,2,1.4)="S DIH=$S($D(^VAT(394.82,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.82,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(394.82,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.82,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(394.82,.01,1,2,2.4)"
^DD(394.82,.01,1,2,2.4)="S DIH=$S($D(^VAT(394.82,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.82,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(394.82,.01,1,2,49.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^DIC(4,D0,6)):^(6),1:"""")"
^DD(394.82,.01,1,2,"CREATE CONDITION")="Remote Facility:DOMAIN'="""""
^DD(394.82,.01,1,2,"CREATE VALUE")="Remote Facility:DOMAIN:NUMBER"
^DD(394.82,.01,1,2,"DELETE VALUE")="@"
^DD(394.82,.01,1,2,"DT")="2941101"
^DD(394.82,.01,1,2,"FIELD")="Remote Domain"
^DD(394.82,.01,1,3,0)="^^TRIGGER^394.82^10"
^DD(394.82,.01,1,3,1)="X ^DD(394.82,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.82,.01,1,3,1.4)"
^DD(394.82,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))="""""
^DD(394.82,.01,1,3,1.4)="S DIH=$S($D(^VAT(394.82,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,1)=DIV,DIH=394.82,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.82,.01,1,3,2)="Q"
^DD(394.82,.01,1,3,"%D",0)="^^1^1^2930928^"
^DD(394.82,.01,1,3,"%D",1,0)="User adding remote facility to release group automatically stored"
^DD(394.82,.01,1,3,"CREATE CONDITION")="Added By="""""
^DD(394.82,.01,1,3,"CREATE VALUE")="S X=$G(DUZ)"
^DD(394.82,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(394.82,.01,1,3,"DT")="2930928"
^DD(394.82,.01,1,3,"FIELD")="Added By"
^DD(394.82,.01,1,4,0)="^^TRIGGER^394.82^11"
^DD(394.82,.01,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2)="""" I X S X=DIV S Y(1)=$S($D(^VAT(394.82,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.82,.01,1,4,1.1) X ^DD(394.82,.01,1,4,1.4)"
^DD(394.82,.01,1,4,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(394.82,.01,1,4,1.4)="S DIH=$S($D(^VAT(394.82,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=394.82,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.82,.01,1,4,2)="Q"
^DD(394.82,.01,1,4,"%D",0)="^^1^1^2930928^"
^DD(394.82,.01,1,4,"%D",1,0)="Date/time remote facility is added to release group automatically stored."
^DD(394.82,.01,1,4,"CREATE CONDITION")="Date Added="""""
^DD(394.82,.01,1,4,"CREATE VALUE")="NOW"
^DD(394.82,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(394.82,.01,1,4,"DT")="2930928"
^DD(394.82,.01,1,4,"FIELD")="Date Added"
^DD(394.82,.01,3)=""
^DD(394.82,.01,21,0)="^^2^2^2921201^"
^DD(394.82,.01,21,1,0)=" "
^DD(394.82,.01,21,2,0)="Name of remote facility being granted 'Automatic Processing'."
^DD(394.82,.01,"DT")="2941101"
^DD(394.82,.02,0)="Remote Domain^P4.2'^DIC(4.2,^0;2^Q"
^DD(394.82,.02,1,0)="^.1"
^DD(394.82,.02,1,1,0)="394.82^C"
^DD(394.82,.02,1,1,1)="S ^VAT(394.82,""C"",$E(X,1,30),DA)="""""
^DD(394.82,.02,1,1,2)="K ^VAT(394.82,""C"",$E(X,1,30),DA)"
^DD(394.82,.02,1,1,"DT")="2930331"
^DD(394.82,.02,5,1,0)="394.82^.01^2"
^DD(394.82,.02,21,0)="^^1^1^2930218^"
^DD(394.82,.02,21,1,0)="Remote facility's E-Mail address."
^DD(394.82,.02,"DT")="2930331"
^DD(394.82,10,0)="Added By^P200'^VA(200,^1;1^Q"
^DD(394.82,10,5,1,0)="394.82^.01^3"
^DD(394.82,10,9)="^"
^DD(394.82,10,21,0)="^^1^1^2930218^"
^DD(394.82,10,21,1,0)="User who added this facility to the Release Group."
^DD(394.82,10,"DT")="2921201"
^DD(394.82,11,0)="Date Added^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(394.82,11,5,1,0)="394.82^.01^4"
^DD(394.82,11,9)="^"
^DD(394.82,11,21,0)="^^1^1^2930218^"
^DD(394.82,11,21,1,0)="Date the facility was added."
^DD(394.82,11,"DT")="2921201"
^DD(394.82,"B","Added By",10)=""
^DD(394.82,"B","Date Added",11)=""
^DD(394.82,"B","Remote Domain",.02)=""
^DD(394.82,"B","Remote Facility",.01)=""
^DD(394.82,"GL",0,1,.01)=""
^DD(394.82,"GL",0,2,.02)=""
^DD(394.82,"GL",1,1,10)=""
^DD(394.82,"GL",1,2,11)=""
^DD(394.82,"IX",.01)=""
^DD(394.82,"IX",.02)=""
^DD(394.82,"RQ",.01)=""
^DD(394.83,0)="FIELD^^10^4"
^DD(394.83,0,"DDA")="N"
^DD(394.83,0,"DT")="2921201"
^DD(394.83,0,"IX","B",394.83,.01)=""
^DD(394.83,0,"NM","VAQ - OUTGOING GROUP")=""
^DD(394.83,0,"VR")="1.5"
^DD(394.83,.01,0)="Group Name^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(394.83,.01,1,0)="^.1"
^DD(394.83,.01,1,1,0)="394.83^B"
^DD(394.83,.01,1,1,1)="S ^VAT(394.83,""B"",$E(X,1,30),DA)="""""
^DD(394.83,.01,1,1,2)="K ^VAT(394.83,""B"",$E(X,1,30),DA)"
^DD(394.83,.01,1,2,0)="^^TRIGGER^394.83^.02"
^DD(394.83,.01,1,2,1)="X ^DD(394.83,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.83,.01,1,2,1.4)"
^DD(394.83,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(394.83,.01,1,2,1.4)="S DIH=$S($D(^VAT(394.83,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.83,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.83,.01,1,2,2)="Q"
^DD(394.83,.01,1,2,"%D",0)="^^1^1^2930928^"
^DD(394.83,.01,1,2,"%D",1,0)="User creating outgoing group automatically stored."
^DD(394.83,.01,1,2,"CREATE CONDITION")="Created By="""""
^DD(394.83,.01,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(394.83,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(394.83,.01,1,2,"DT")="2930928"
^DD(394.83,.01,1,2,"FIELD")="Created By"
^DD(394.83,.01,1,3,0)="^^TRIGGER^394.83^.03"
^DD(394.83,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.83,.01,1,3,1.1) X ^DD(394.83,.01,1,3,1.4)"
^DD(394.83,.01,1,3,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(394.83,.01,1,3,1.4)="S DIH=$S($D(^VAT(394.83,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.83,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.83,.01,1,3,2)="Q"
^DD(394.83,.01,1,3,"%D",0)="^^1^1^2930928^"
^DD(394.83,.01,1,3,"%D",1,0)="Date/time outgoing group was created automatically stored."
^DD(394.83,.01,1,3,"CREATE CONDITION")="Date Created="""""
^DD(394.83,.01,1,3,"CREATE VALUE")="NOW"
^DD(394.83,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(394.83,.01,1,3,"DT")="2930928"
^DD(394.83,.01,1,3,"FIELD")="Date Created"
^DD(394.83,.01,3)="Answer must be 1-30 characters in length."
^DD(394.83,.01,21,0)="^^2^2^2921201^"
^DD(394.83,.01,21,1,0)=" "
^DD(394.83,.01,21,2,0)="Name of group."
^DD(394.83,.01,"DT")="2930928"
^DD(394.83,.02,0)="Created By^P200'^VA(200,^0;2^Q"
^DD(394.83,.02,1,0)="^.1^^0"
^DD(394.83,.02,5,1,0)="394.83^.01^2"
^DD(394.83,.02,9)="^"
^DD(394.83,.02,21,0)="^^1^1^2930218^"
^DD(394.83,.02,21,1,0)="Name of person who created this group."
^DD(394.83,.02,"DT")="2931101"
^DD(394.83,.03,0)="Date Created^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(394.83,.03,1,0)="^.1^^0"
^DD(394.83,.03,5,1,0)="394.83^.01^3"
^DD(394.83,.03,9)="^"
^DD(394.83,.03,21,0)="^^1^1^2930218^"
^DD(394.83,.03,21,1,0)="Date the group was created."
^DD(394.83,.03,"DT")="2931101"
^DD(394.83,10,0)="Remote Facility^394.831P^^FAC;0"
^DD(394.83,10,21,0)="^^1^1^2930218^^"
^DD(394.83,10,21,1,0)="Multiple containing the facilities and their associated domains."
^DD(394.83,"B","Created By",.02)=""
^DD(394.83,"B","Date Created",.03)=""
^DD(394.83,"B","Group Name",.01)=""
^DD(394.83,"B","Remote Facility",10)=""
^DD(394.83,"GL",0,1,.01)=""
^DD(394.83,"GL",0,2,.02)=""
^DD(394.83,"GL",0,3,.03)=""
^DD(394.83,"GL","FAC",0,10)=""
^DD(394.83,"IX",.01)=""
^DD(394.83,"RQ",.01)=""
^DD(394.83,"SB",394.831,10)=""
^DD(394.831,0)="Remote Facility SUB-FIELD^^11^4"
^DD(394.831,0,"DT")="2921201"
^DD(394.831,0,"IX","AD1",394.831,.01)=""
^DD(394.831,0,"IX","AD2",394.831,.02)=""
^DD(394.831,0,"IX","B",394.831,.01)=""
^DD(394.831,0,"NM","Remote Facility")=""
^DD(394.831,0,"UP")="394.83"
^DD(394.831,.01,0)="Remote Facility^M*P4'X^DIC(4,^0;1^S DIC(""S"")=""I $$OKDOM1^VAQXRF2(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(394.831,.01,1,0)="^.1^^-1"
^DD(394.831,.01,1,1,0)="394.831^B"
^DD(394.831,.01,1,1,1)="S ^VAT(394.83,DA(1),""FAC"",""B"",$E(X,1,30),DA)="""""
^DD(394.831,.01,1,1,2)="K ^VAT(394.83,DA(1),""FAC"",""B"",$E(X,1,30),DA)"
^DD(394.831,.01,1,2,0)="394.831^AD1^MUMPS"
^DD(394.831,.01,1,2,1)="S VAQXRF=$$AD^VAQXRF2(DA(1),DA,1) K VAQXRF"
^DD(394.831,.01,1,2,2)="S VAQXRF=$$AD^VAQXRF2(DA(1),DA,0,.01,X) K VAQXRF"
^DD(394.831,.01,1,2,"%D",0)="^^12^12^2931102^"
^DD(394.831,.01,1,2,"%D",1,0)="Creates a cross reference of all remote facilities and their domains that"
^DD(394.831,.01,1,2,"%D",2,0)="have been entered for a given group."
^DD(394.831,.01,1,2,"%D",3,0)=" "
^DD(394.831,.01,1,2,"%D",4,0)="Resulting node ==> ^VAT(394.83,DA(1),""FAC"",""A-OUTGRP"",[10;.01],[10;.02],DA)"
^DD(394.831,.01,1,2,"%D",5,0)="   Where:  [10;.01] is field number .01 of multiple field number 10"
^DD(394.831,.01,1,2,"%D",6,0)="           [10;.02] is field number .02 of multiple field number 10"
^DD(394.831,.01,1,2,"%D",7,0)="           DA(1) is the entry number within the main file"
^DD(394.831,.01,1,2,"%D",8,0)="           DA is the entry number within the multiple"
^DD(394.831,.01,1,2,"%D",9,0)=" "
^DD(394.831,.01,1,2,"%D",10,0)="The resulting node is created by the AD1 and AD2 cross references."
^DD(394.831,.01,1,2,"%D",11,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.831,.01,1,2,"%D",12,0)="the resulting node."
^DD(394.831,.01,1,2,"DT")="2921201"
^DD(394.831,.01,1,3,0)="^^TRIGGER^394.831^10"
^DD(394.831,.01,1,3,1)="X ^DD(394.831,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,""FAC"",D1,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.831,.01,1,3,1.4)"
^DD(394.831,.01,1,3,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,""FAC"",D1,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))="""""
^DD(394.831,.01,1,3,1.4)="S DIH=$S($D(^VAT(394.83,DIV(0),""FAC"",DIV(1),1)):^(1),1:""""),DIV=X S $P(^(1),U,1)=DIV,DIH=394.831,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.831,.01,1,3,2)="Q"
^DD(394.831,.01,1,3,"%D",0)="^^1^1^2930928^"
^DD(394.831,.01,1,3,"%D",1,0)="User adding facility to outgoing group automatically stored."
^DD(394.831,.01,1,3,"CREATE CONDITION")="Added By="""""
^DD(394.831,.01,1,3,"CREATE VALUE")="S X=$G(DUZ)"
^DD(394.831,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(394.831,.01,1,3,"DT")="2930928"
^DD(394.831,.01,1,3,"FIELD")="Added By"
^DD(394.831,.01,1,4,0)="^^TRIGGER^394.831^11"
^DD(394.831,.01,1,4,1)="X ^DD(394.831,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,""FAC"",D1,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.831,.01,1,4,1.1) X ^DD(394.831,.01,1,4,1.4)"
^DD(394.831,.01,1,4,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(394.831,.01,1,4,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.83,D0,""FAC"",D1,1)):^(1),1:"""") S X=$P(Y(1),U,2)="""""
^DD(394.831,.01,1,4,1.4)="S DIH=$S($D(^VAT(394.83,DIV(0),""FAC"",DIV(1),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=394.831,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.831,.01,1,4,2)="Q"
^DD(394.831,.01,1,4,"%D",0)="^^1^1^2930928^"
^DD(394.831,.01,1,4,"%D",1,0)="Date/time facility added to outgoing group automatically stored."
^DD(394.831,.01,1,4,"CREATE CONDITION")="Date Added="""""
^DD(394.831,.01,1,4,"CREATE VALUE")="NOW"
^DD(394.831,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(394.831,.01,1,4,"DT")="2930928"
^DD(394.831,.01,1,4,"FIELD")="Date Added"
^DD(394.831,.01,1,5,0)="^^TRIGGER^394.831^.02"
^DD(394.831,.01,1,5,1)="X ^DD(394.831,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.83,D0,""FAC"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.831,.01,1,5,1.1) X ^DD(394.831,.01,1,5,1.4)"
^DD(394.831,.01,1,5,1.1)="S X=DIV X ^DD(394.831,.01,1,5,49.2) S D0=$P(Y(101),U,1) S:'$D(^DIC(4.2,+D0,0)) D0=-1 S X=$S('$D(D0):"""",D0<0:"""",1:D0) S D0=I(0,0) S D1=I(1,0)"
^DD(394.831,.01,1,5,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(394.831,.01,1,5,69.2) S X=$S('$D(^DIC(4.2,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1))'="""" S D0=I(0,0) S D1=I(1,0)"
^DD(394.831,.01,1,5,1.4)="S DIH=$S($D(^VAT(394.83,DIV(0),""FAC"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.831,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(394.831,.01,1,5,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(394.83,D0,""FAC"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(394.831,.01,1,5,2.4)"
^DD(394.831,.01,1,5,2.4)="S DIH=$S($D(^VAT(394.83,DIV(0),""FAC"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.831,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(394.831,.01,1,5,49.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^DIC(4,D0,6)):^(6),1:"""")"
^DD(394.831,.01,1,5,69.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,6)):^(6),1:"""")"
^DD(394.831,.01,1,5,"CREATE CONDITION")="Remote Facility:DOMAIN'="""""
^DD(394.831,.01,1,5,"CREATE VALUE")="Remote Facility:DOMAIN:NUMBER"
^DD(394.831,.01,1,5,"DELETE VALUE")="@"
^DD(394.831,.01,1,5,"DT")="2941101"
^DD(394.831,.01,1,5,"FIELD")="Remote Domain"
^DD(394.831,.01,3)=""
^DD(394.831,.01,12)="You can't choose a Facility which points to a closed Domain."
^DD(394.831,.01,12.1)="S DIC(""S"")=""I $$OKDOM1^VAQXRF2(Y)"""
^DD(394.831,.01,21,0)="^.001^1^1^3011009^^^^"
^DD(394.831,.01,21,1,0)="Name of facility."
^DD(394.831,.01,"DT")="3011009"
^DD(394.831,.02,0)="Remote Domain^*P4.2'^DIC(4.2,^0;2^S DIC(""S"")=""I $$OKDOM2^VAQXRF2(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(394.831,.02,1,0)="^.1"
^DD(394.831,.02,1,1,0)="394.831^AD2^MUMPS"
^DD(394.831,.02,1,1,1)="S VAQXRF=$$AD^VAQXRF2(DA(1),DA,1) K VAQXRF"
^DD(394.831,.02,1,1,2)="S VAQXRF=$$AD^VAQXRF2(DA(1),DA,0,.02,X) K VAQXRF"
^DD(394.831,.02,1,1,"%D",0)="^^12^12^2931102^"
^DD(394.831,.02,1,1,"%D",1,0)="Creates a cross reference of all remote facilities and their domains that"
^DD(394.831,.02,1,1,"%D",2,0)="have been entered for a given group."
^DD(394.831,.02,1,1,"%D",3,0)=" "
^DD(394.831,.02,1,1,"%D",4,0)="Resulting node ==> ^VAT(394.83,DA(1),""FAC"",""A-OUTGRP"",[10;.01],[10;.02],DA)"
^DD(394.831,.02,1,1,"%D",5,0)="   Where:  [10;.01] is field number .01 of multiple field number 10"
^DD(394.831,.02,1,1,"%D",6,0)="           [10;.02] is field number .02 of multiple field number 10"
^DD(394.831,.02,1,1,"%D",7,0)="           DA(1) is the entry number within the main file"
^DD(394.831,.02,1,1,"%D",8,0)="           DA is the entry number within the multiple"
^DD(394.831,.02,1,1,"%D",9,0)=" "
^DD(394.831,.02,1,1,"%D",10,0)="The resulting node is created by the AD1 and AD2 cross references."
^DD(394.831,.02,1,1,"%D",11,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.831,.02,1,1,"%D",12,0)="the resulting node."
^DD(394.831,.02,1,1,"DT")="2921201"
^DD(394.831,.02,5,1,0)="394.831^.01^5"
^DD(394.831,.02,12)="You can't choose a closed Domain."
^DD(394.831,.02,12.1)="S DIC(""S"")=""I $$OKDOM2^VAQXRF2(Y)"""
^DD(394.831,.02,21,0)="^.001^1^1^3011009^^^"
^DD(394.831,.02,21,1,0)="Facility's E-Mail address."
^DD(394.831,.02,"DT")="3011009"
^DD(394.831,10,0)="Added By^P200'^VA(200,^1;1^Q"
^DD(394.831,10,5,1,0)="394.831^.01^3"
^DD(394.831,10,9)="^"
^DD(394.831,10,21,0)="^^1^1^2930218^"
^DD(394.831,10,21,1,0)="Person who added this facility."
^DD(394.831,10,"DT")="2921201"
^DD(394.831,11,0)="Date Added^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(394.831,11,5,1,0)="394.831^.01^4"
^DD(394.831,11,9)="^"
^DD(394.831,11,21,0)="^^1^1^2930218^"
^DD(394.831,11,21,1,0)="Date facility was added."
^DD(394.831,11,"DT")="2921201"
^DD(394.831,"B","Added By",10)=""
^DD(394.831,"B","Date Added",11)=""
^DD(394.831,"B","Remote Domain",.02)=""
^DD(394.831,"B","Remote Facility",.01)=""
^DD(394.831,"GL",0,1,.01)=""
^DD(394.831,"GL",0,2,.02)=""
^DD(394.831,"GL",1,1,10)=""
^DD(394.831,"GL",1,2,11)=""
^DD(394.831,"IX",.01)=""
^DD(394.831,"IX",.02)=""
^DD(394.84,0)="FIELD^^10^5"
^DD(394.84,0,"DDA")="N"
^DD(394.84,0,"DT")="2930902"
^DD(394.84,0,"ID","WRITE1")="W ?35,@(""$P($P($C(59)_$S($D(^DD(394.84,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(394.84,0,"ID","WRITE2")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ?50,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(394.84,0,"IX","AE1",394.84,.02)=""
^DD(394.84,0,"IX","AE2",394.84,.03)=""
^DD(394.84,0,"IX","B",394.84,.01)=""
^DD(394.84,0,"NM","VAQ - SEGMENT GROUP")=""
^DD(394.84,0,"VR")="1.5"
^DD(394.84,.01,0)="Group Name^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(394.84,.01,1,0)="^.1"
^DD(394.84,.01,1,1,0)="394.84^B"
^DD(394.84,.01,1,1,1)="S ^VAT(394.84,""B"",$E(X,1,30),DA)="""""
^DD(394.84,.01,1,1,2)="K ^VAT(394.84,""B"",$E(X,1,30),DA)"
^DD(394.84,.01,1,2,0)="^^TRIGGER^394.84^.03"
^DD(394.84,.01,1,2,1)="X ^DD(394.84,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.84,.01,1,2,1.4)"
^DD(394.84,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1))="""""
^DD(394.84,.01,1,2,1.4)="S DIH=$S($D(^VAT(394.84,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.84,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.84,.01,1,2,2)="Q"
^DD(394.84,.01,1,2,"%D",0)="^^1^1^2930928^"
^DD(394.84,.01,1,2,"%D",1,0)="User creating segment group automatically stored."
^DD(394.84,.01,1,2,"CREATE CONDITION")="Created By="""""
^DD(394.84,.01,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(394.84,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(394.84,.01,1,2,"DT")="2930928"
^DD(394.84,.01,1,2,"FIELD")="Created By"
^DD(394.84,.01,1,3,0)="^^TRIGGER^394.84^.04"
^DD(394.84,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)="""" I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(394.84,.01,1,3,1.1) X ^DD(394.84,.01,1,3,1.4)"
^DD(394.84,.01,1,3,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(394.84,.01,1,3,1.4)="S DIH=$S($D(^VAT(394.84,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=394.84,DIG=.04 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.84,.01,1,3,2)="Q"
^DD(394.84,.01,1,3,"%D",0)="^^1^1^2930928^"
^DD(394.84,.01,1,3,"%D",1,0)="Date/time segment group was created automatically stored."
^DD(394.84,.01,1,3,"CREATE CONDITION")="Date Created="""""
^DD(394.84,.01,1,3,"CREATE VALUE")="NOW"
^DD(394.84,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(394.84,.01,1,3,"DT")="2930928"
^DD(394.84,.01,1,3,"FIELD")="Date Created"
^DD(394.84,.01,3)="Answer must be 1-30 characters in length."
^DD(394.84,.01,21,0)="^^2^2^2921202^^"
^DD(394.84,.01,21,1,0)=" "
^DD(394.84,.01,21,2,0)="Name of group."
^DD(394.84,.01,"DT")="2930928"
^DD(394.84,.02,0)="Group Type^S^1:PUBLIC;0:PRIVATE;^0;2^Q"
^DD(394.84,.02,1,0)="^.1"
^DD(394.84,.02,1,1,0)="394.84^AE1^MUMPS"
^DD(394.84,.02,1,1,1)="S VAQXRF=$$AE^VAQXRF2(DA,1) K VAQXRF"
^DD(394.84,.02,1,1,2)="S VAQXRF=$$AE^VAQXRF2(DA,0,.02,X) K VAQXRF"
^DD(394.84,.02,1,1,"%D",0)="^^11^11^2931102^"
^DD(394.84,.02,1,1,"%D",1,0)="Creates a cross reference based on the group type and creator for each"
^DD(394.84,.02,1,1,"%D",2,0)="segment group entered."
^DD(394.84,.02,1,1,"%D",3,0)=" "
^DD(394.84,.02,1,1,"%D",4,0)="Resulting node ==> ^VAT(394.84,""A-SEGGRP"",[.02],[.03],DA)"
^DD(394.84,.02,1,1,"%D",5,0)="   Where:  [.02] is field number .02"
^DD(394.84,.02,1,1,"%D",6,0)="           [.03] is field number .03"
^DD(394.84,.02,1,1,"%D",7,0)="           DA is the entry number"
^DD(394.84,.02,1,1,"%D",8,0)=" "
^DD(394.84,.02,1,1,"%D",9,0)="The resulting node is created by the AE1 and AE2 cross references."
^DD(394.84,.02,1,1,"%D",10,0)="Re-indexing either of these cross references will correctly update/create"
^DD(394.84,.02,1,1,"%D",11,0)="the resulting node."
^DD(394.84,.02,1,1,"DT")="2930927"
^DD(394.84,.02,21,0)="^^3^3^2930218^"
^DD(394.84,.02,21,1,0)="Set to PRIVATE if the group can only be referenced by the person who"
^DD(394.84,.02,21,2,0)="created the group.  Set to PUBLIC if the group can be referenced"
^DD(394.84,.02,21,3,0)="by all users."
^DD(394.84,.02,"DT")="2930927"
^DD(394.84,.03,0)="Created By^P200'^VA(200,^0;3^Q"
^DD(394.84,.03,1,0)="^.1"
^DD(394.84,.03,1,1,0)="394.84^AE2^MUMPS"
^DD(394.84,.03,1,1,1)="S VAQXRF=$$AE^VAQXRF2(DA,1) K VAQXRF"
^DD(394.84,.03,1,1,2)="S VAQXRF=$$AE^VAQXRF2(DA,0,.03,X) K VAQXRF"
^DD(394.84,.03,1,1,"%D",0)="^^7^7^2930927^"
^DD(394.84,.03,1,1,"%D",1,0)="Creates a cross reference based on the group type and creator for each"
^DD(394.84,.03,1,1,"%D",2,0)="segment group entered."
^DD(394.84,.03,1,1,"%D",3,0)=" "
^DD(394.84,.03,1,1,"%D",4,0)="Resulting node ==> ^VAT(394.84,""A-SEGGRP"",[.02],[.03],DA)"
^DD(394.84,.03,1,1,"%D",5,0)="   Where:  [.02] is field number .02"
^DD(394.84,.03,1,1,"%D",6,0)="           [.03] is field number .03"
^DD(394.84,.03,1,1,"%D",7,0)="           DA is the entry number"
^DD(394.84,.03,1,1,"DT")="2930927"
^DD(394.84,.03,5,1,0)="394.84^.01^2"
^DD(394.84,.03,9)="^"
^DD(394.84,.03,21,0)="^^1^1^2930218^"
^DD(394.84,.03,21,1,0)="Person who created this group."
^DD(394.84,.03,"DT")="2930927"
^DD(394.84,.04,0)="Date Created^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(394.84,.04,5,1,0)="394.84^.01^3"
^DD(394.84,.04,9)="^"
^DD(394.84,.04,21,0)="^^1^1^2930218^"
^DD(394.84,.04,21,1,0)="Date the group was created."
^DD(394.84,.04,"DT")="2921202"
^DD(394.84,10,0)="Data Segment^394.841P^^SEG;0"
^DD(394.84,10,21,0)="^^1^1^2930915^^^"
^DD(394.84,10,21,1,0)="Multiple containing data segments contained in this group."
^DD(394.84,"B","Created By",.03)=""
^DD(394.84,"B","Data Segment",10)=""
^DD(394.84,"B","Date Created",.04)=""
^DD(394.84,"B","Group Name",.01)=""
^DD(394.84,"B","Group Type",.02)=""
^DD(394.84,"GL",0,1,.01)=""
^DD(394.84,"GL",0,2,.02)=""
^DD(394.84,"GL",0,3,.03)=""
^DD(394.84,"GL",0,4,.04)=""
^DD(394.84,"GL","SEG",0,10)=""
^DD(394.84,"IX",.01)=""
^DD(394.84,"IX",.02)=""
^DD(394.84,"IX",.03)=""
^DD(394.84,"RQ",.01)=""
^DD(394.84,"SB",394.841,10)=""
^DD(394.841,0)="Data Segment SUB-FIELD^^.05^5"
^DD(394.841,0,"DT")="2930902"
^DD(394.841,0,"IX","B",394.841,.01)=""
^DD(394.841,0,"NM","Data Segment")=""
^DD(394.841,0,"UP")="394.84"
^DD(394.841,.01,0)="Data Segment^MP394.71'^VAT(394.71,^0;1^Q"
^DD(394.841,.01,1,0)="^.1"
^DD(394.841,.01,1,1,0)="394.841^B"
^DD(394.841,.01,1,1,1)="S ^VAT(394.84,DA(1),""SEG"",""B"",$E(X,1,30),DA)="""""
^DD(394.841,.01,1,1,2)="K ^VAT(394.84,DA(1),""SEG"",""B"",$E(X,1,30),DA)"
^DD(394.841,.01,1,2,0)="^^TRIGGER^394.841^.02"
^DD(394.841,.01,1,2,1)="X ^DD(394.841,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,""SEG"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.841,.01,1,2,1.4)"
^DD(394.841,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,""SEG"",D1,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(394.841,.01,1,2,1.4)="S DIH=$S($D(^VAT(394.84,DIV(0),""SEG"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.841,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.841,.01,1,2,2)="Q"
^DD(394.841,.01,1,2,"%D",0)="^^1^1^2930928^"
^DD(394.841,.01,1,2,"%D",1,0)="User adding segment to segment group automatically stored."
^DD(394.841,.01,1,2,"CREATE CONDITION")="Added By="""""
^DD(394.841,.01,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(394.841,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(394.841,.01,1,2,"DT")="2930928"
^DD(394.841,.01,1,2,"FIELD")="Added By"
^DD(394.841,.01,1,3,0)="^^TRIGGER^394.841^.03"
^DD(394.841,.01,1,3,1)="X ^DD(394.841,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.84,D0,""SEG"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.841,.01,1,3,1.1) X ^DD(394.841,.01,1,3,1.4)"
^DD(394.841,.01,1,3,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(394.841,.01,1,3,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^VAT(394.84,D0,""SEG"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""""
^DD(394.841,.01,1,3,1.4)="S DIH=$S($D(^VAT(394.84,DIV(0),""SEG"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=394.841,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.841,.01,1,3,2)="Q"
^DD(394.841,.01,1,3,"%D",0)="^^1^1^2930928^"
^DD(394.841,.01,1,3,"%D",1,0)="Date/time segment is added to segment group automatically stored."
^DD(394.841,.01,1,3,"CREATE CONDITION")="Date Added="""""
^DD(394.841,.01,1,3,"CREATE VALUE")="NOW"
^DD(394.841,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(394.841,.01,1,3,"DT")="2930928"
^DD(394.841,.01,1,3,"FIELD")="Date Added"
^DD(394.841,.01,21,0)="^^1^1^2930218^"
^DD(394.841,.01,21,1,0)="Data segment contained in this group."
^DD(394.841,.01,"DT")="2930928"
^DD(394.841,.02,0)="Added By^P200'^VA(200,^0;2^Q"
^DD(394.841,.02,5,1,0)="394.841^.01^2"
^DD(394.841,.02,9)="^"
^DD(394.841,.02,21,0)="^^1^1^2930218^"
^DD(394.841,.02,21,1,0)="Person who added the data segment to the group."
^DD(394.841,.02,"DT")="2921202"
^DD(394.841,.03,0)="Date Added^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(394.841,.03,5,1,0)="394.841^.01^3"
^DD(394.841,.03,9)="^"
^DD(394.841,.03,21,0)="^^1^1^2930218^"
^DD(394.841,.03,21,1,0)="Date the data segment was added."
^DD(394.841,.03,"DT")="2921202"
^DD(394.841,.04,0)="Time Limit^FX^^0;4^K:$L(X)>6!($L(X)<2)!($$VALOCC^VAQDBIH2(X,0)<0) X"
^DD(394.841,.04,3)="Enter a valid time limit (1-5 digits followed by 'Y' or 'M' or 'D')"
^DD(394.841,.04,21,0)="^^2^2^2930915^"
^DD(394.841,.04,21,1,0)=" "
^DD(394.841,.04,21,2,0)="Time limit to use when extracting data segment (if applicable)"
^DD(394.841,.04,"DT")="2930915"
^DD(394.841,.05,0)="Occurrence Limit^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(394.841,.05,3)="Enter a valid occurrence limit (1-5 digits)"
^DD(394.841,.05,21,0)="^^2^2^2930915^"
^DD(394.841,.05,21,1,0)=" "
^DD(394.841,.05,21,2,0)="Occurrence limit to use when extracting data segment (if applicable)"
^DD(394.841,.05,"DT")="2930902"
^DD(394.841,"B","Added By",.02)=""
^DD(394.841,"B","Data Segment",.01)=""
^DD(394.841,"B","Date Added",.03)=""
^DD(394.841,"B","Occurrence Limit",.05)=""
^DD(394.841,"B","Time Limit",.04)=""
^DD(394.841,"GL",0,1,.01)=""
^DD(394.841,"GL",0,2,.02)=""
^DD(394.841,"GL",0,3,.03)=""
^DD(394.841,"GL",0,4,.04)=""
^DD(394.841,"GL",0,5,.05)=""
^DD(394.841,"IX",.01)=""
^DD(394.85,0)="FIELD^^1^2"
^DD(394.85,0,"DDA")="N"
^DD(394.85,0,"DT")="2921207"
^DD(394.85,0,"IX","B",394.85,.01)=""
^DD(394.85,0,"NM","VAQ - STATUS")=""
^DD(394.85,0,"PT",394.61,.02)=""
^DD(394.85,0,"PT",394.61,.05)=""
^DD(394.85,0,"PT",1020.2,5)=""
^DD(394.85,0,"VR")="1.5"
^DD(394.85,.01,0)="Code^RF^^0;1^K:$L(X)>10!($L(X)<3)!'(X?1.4U1""-""1.5A) X"
^DD(394.85,.01,1,0)="^.1"
^DD(394.85,.01,1,1,0)="394.85^B"
^DD(394.85,.01,1,1,1)="S ^VAT(394.85,""B"",$E(X,1,30),DA)="""""
^DD(394.85,.01,1,1,2)="K ^VAT(394.85,""B"",$E(X,1,30),DA)"
^DD(394.85,.01,3)="Answer must be 3-10 characters in length."
^DD(394.85,.01,21,0)="^^6^6^2921207^"
^DD(394.85,.01,21,1,0)=" "
^DD(394.85,.01,21,2,0)="Code representing current status of a transaction."
^DD(394.85,.01,21,3,0)=" "
^DD(394.85,.01,21,4,0)="Code must be in the form XXXX-YYYYY where XXXX is the namespace of the"
^DD(394.85,.01,21,5,0)="package (1-4 upper case characters) and YYYYY is 1-5 characters (upper or"
^DD(394.85,.01,21,6,0)="lower case) of the package's choosing.  [Must Pattern match 1.4U1""-""1.5A]"
^DD(394.85,.01,"DT")="2921207"
^DD(394.85,1,0)="Status^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(394.85,1,3)="Answer must be 1-80 characters in length."
^DD(394.85,1,21,0)="^^1^1^2930218^"
^DD(394.85,1,21,1,0)="Printable description of the code."
^DD(394.85,1,"DT")="2921202"
^DD(394.85,"B","Code",.01)=""
^DD(394.85,"B","Status",1)=""
^DD(394.85,"GL",0,1,.01)=""
^DD(394.85,"GL",0,2,1)=""
^DD(394.85,"IX",.01)=""
^DD(394.85,"RQ",.01)=""
^DD(394.86,0)="FIELD^^30^4"
^DD(394.86,0,"DDA")="N"
^DD(394.86,0,"DT")="2930528"
^DD(394.86,0,"IX","B",394.86,.01)=""
^DD(394.86,0,"NM","VAQ - AUTO-NUMBERING")=""
^DD(394.86,0,"VR")="1.5"
^DD(394.86,.01,0)="Stub^RNJ1,0X^^0;1^K:((+X)'=1) X"
^DD(394.86,.01,1,0)="^.1"
^DD(394.86,.01,1,1,0)="394.86^B"
^DD(394.86,.01,1,1,1)="S ^VAT(394.86,""B"",$E(X,1,30),DA)="""""
^DD(394.86,.01,1,1,2)="K ^VAT(394.86,""B"",$E(X,1,30),DA)"
^DD(394.86,.01,3)="Please enter '1'"
^DD(394.86,.01,21,0)="^^2^2^2921207^"
^DD(394.86,.01,21,1,0)=" "
^DD(394.86,.01,21,2,0)="Stub entry (always '1')."
^DD(394.86,.01,"DT")="2930927"
^DD(394.86,10,0)="Last Transaction^NJ10,0^^1;1^K:+X'=X!(X>9999999999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(394.86,10,3)="Type a Number between 100 and 9999999999, 0 Decimal Digits"
^DD(394.86,10,21,0)="^^1^1^2930528^^^"
^DD(394.86,10,21,1,0)="Last ""Transaction Number"" used (field .01 for file 394.61)."
^DD(394.86,10,"DT")="2930528"
^DD(394.86,20,0)="Last Data^NJ10,0^^2;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(394.86,20,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(394.86,20,21,0)="^^1^1^2930218^"
^DD(394.86,20,21,1,0)="Last ""Data"" used (field .01 for file 394.62)."
^DD(394.86,20,"DT")="2921208"
^DD(394.86,30,0)="Last Encrypted Field^NJ10,0^^3;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(394.86,30,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(394.86,30,5,1,0)="394.73^.01^2"
^DD(394.86,30,21,0)="^^1^1^2930218^"
^DD(394.86,30,21,1,0)="Last ""Extract"" used (field .01 for file 394.712)."
^DD(394.86,30,"DT")="2930216"
^DD(394.86,"B","Last Data",20)=""
^DD(394.86,"B","Last Encrypted Field",30)=""
^DD(394.86,"B","Last Transaction",10)=""
^DD(394.86,"B","Stub",.01)=""
^DD(394.86,"GL",0,1,.01)=""
^DD(394.86,"GL",1,1,10)=""
^DD(394.86,"GL",2,1,20)=""
^DD(394.86,"GL",3,1,30)=""
^DD(394.86,"IX",.01)=""
^DD(394.86,"RQ",.01)=""
^DD(394.87,0)="FIELD^^30^10"
^DD(394.87,0,"DDA")="N"
^DD(394.87,0,"DT")="2930115"
^DD(394.87,0,"IX","B",394.87,.01)=""
^DD(394.87,0,"NM","VAQ - WORKLOAD")=""
^DD(394.87,0,"VR")="1.5"
^DD(394.87,.01,0)="Date/Time of Work^RD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(394.87,.01,1,0)="^.1"
^DD(394.87,.01,1,1,0)="394.87^B"
^DD(394.87,.01,1,1,1)="S ^VAT(394.87,""B"",$E(X,1,30),DA)="""""
^DD(394.87,.01,1,1,2)="K ^VAT(394.87,""B"",$E(X,1,30),DA)"
^DD(394.87,.01,1,2,0)="^^TRIGGER^394.87^.02"
^DD(394.87,.01,1,2,1)="X ^DD(394.87,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^VAT(394.87,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(394.87,.01,1,2,1.4)"
^DD(394.87,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^VAT(394.87,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(394.87,.01,1,2,1.4)="S DIH=$S($D(^VAT(394.87,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=394.87,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.87,.01,1,2,2)="Q"
^DD(394.87,.01,1,2,"%D",0)="^^1^1^2930928^"
^DD(394.87,.01,1,2,"%D",1,0)="User that did the specified work is automatically added."
^DD(394.87,.01,1,2,"CREATE CONDITION")="Done By="""""
^DD(394.87,.01,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(394.87,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(394.87,.01,1,2,"DT")="2930928"
^DD(394.87,.01,1,2,"FIELD")="Done By"
^DD(394.87,.01,3)=""
^DD(394.87,.01,21,0)="^^2^2^2921208^"
^DD(394.87,.01,21,1,0)=" "
^DD(394.87,.01,21,2,0)="When work was done."
^DD(394.87,.01,"DT")="2930928"
^DD(394.87,.02,0)="Done By^P200'^VA(200,^0;2^Q"
^DD(394.87,.02,5,1,0)="394.87^.01^2"
^DD(394.87,.02,9)="^"
^DD(394.87,.02,21,0)="^^1^1^2930218^"
^DD(394.87,.02,21,1,0)="Who did the work."
^DD(394.87,.02,"DT")="2921208"
^DD(394.87,.03,0)="Work Done^P394.88'^VAT(394.88,^0;3^Q"
^DD(394.87,.03,21,0)="^^1^1^2930218^"
^DD(394.87,.03,21,1,0)="Type of work done."
^DD(394.87,.03,"DT")="2921208"
^DD(394.87,10,0)="Patient Ptr^P2'^DPT(^PAT;1^Q"
^DD(394.87,10,1,0)="^.1"
^DD(394.87,10,1,1,0)="^^TRIGGER^394.87^11"
^DD(394.87,10,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,""PAT"")):^(""PAT""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(394.87,10,1,1,1.1) X ^DD(394.87,10,1,1,1.4)"
^DD(394.87,10,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(394.87,10,1,1,1.4)="S DIH=$S($D(^VAT(394.87,DIV(0),""PAT"")):^(""PAT""),1:""""),DIV=X S $P(^(""PAT""),U,2)=DIV,DIH=394.87,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.87,10,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,""PAT"")):^(""PAT""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(394.87,10,1,1,2.4)"
^DD(394.87,10,1,1,2.4)="S DIH=$S($D(^VAT(394.87,DIV(0),""PAT"")):^(""PAT""),1:""""),DIV=X S $P(^(""PAT""),U,2)=DIV,DIH=394.87,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.87,10,1,1,"CREATE VALUE")="Patient Ptr:NAME"
^DD(394.87,10,1,1,"DELETE VALUE")="@"
^DD(394.87,10,1,1,"FIELD")="#11"
^DD(394.87,10,1,2,0)="^^TRIGGER^394.87^12"
^DD(394.87,10,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,""PAT"")):^(""PAT""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(394.87,10,1,2,1.1) X ^DD(394.87,10,1,2,1.4)"
^DD(394.87,10,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0)"
^DD(394.87,10,1,2,1.4)="S DIH=$S($D(^VAT(394.87,DIV(0),""PAT"")):^(""PAT""),1:""""),DIV=X S $P(^(""PAT""),U,3)=DIV,DIH=394.87,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.87,10,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VAT(394.87,D0,""PAT"")):^(""PAT""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(394.87,10,1,2,2.4)"
^DD(394.87,10,1,2,2.4)="S DIH=$S($D(^VAT(394.87,DIV(0),""PAT"")):^(""PAT""),1:""""),DIV=X S $P(^(""PAT""),U,3)=DIV,DIH=394.87,DIG=12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(394.87,10,1,2,"CREATE VALUE")="Patient Ptr:SOCIAL SECURITY NUMBER"
^DD(394.87,10,1,2,"DELETE VALUE")="@"
^DD(394.87,10,1,2,"DT")="2921208"
^DD(394.87,10,1,2,"FIELD")="#12"
^DD(394.87,10,21,0)="^^1^1^2930218^"
^DD(394.87,10,21,1,0)="On whom the work was done."
^DD(394.87,10,"DT")="2921208"
^DD(394.87,11,0)="Patient's Name^F^^PAT;2^K:$L(X)>80!($L(X)<1) X"
^DD(394.87,11,3)="Answer must be 1-80 characters in length."
^DD(394.87,11,5,1,0)="394.87^10^1"
^DD(394.87,11,21,0)="^^1^1^2930225^^^"
^DD(394.87,11,21,1,0)="Name of the patient on whom the work was done."
^DD(394.87,11,"DT")="2921208"
^DD(394.87,12,0)="Patient's SSN^F^^PAT;3^K:$L(X)>10!($L(X)<9)!'((X?9N)!(X?9N1""P"")) X"
^DD(394.87,12,3)="Answer must be 9-10 characters in length."
^DD(394.87,12,5,1,0)="394.87^10^2"
^DD(394.87,12,21,0)="^^1^1^2930225^^"
^DD(394.87,12,21,1,0)="Social Security Number of the patient on whom the work was done."
^DD(394.87,12,"DT")="2921208"
^DD(394.87,13,0)="Patient ID^F^^PAT;4^K:$L(X)>80!($L(X)<1) X"
^DD(394.87,13,3)="Answer must be 1-80 characters in length."
^DD(394.87,13,21,0)="^^1^1^2930225^^"
^DD(394.87,13,21,1,0)="Patient ID of the patient on whom the work was done."
^DD(394.87,13,"DT")="2930115"
^DD(394.87,20,0)="Remote Facility^F^^FAC;1^K:$L(X)>80!($L(X)<1) X"
^DD(394.87,20,3)="Answer must be 1-80 characters in length."
^DD(394.87,20,21,0)="^^1^1^2930218^"
^DD(394.87,20,21,1,0)="Facility associated with the transaction."
^DD(394.87,20,"DT")="2921208"
^DD(394.87,21,0)="Remote Domain^F^^FAC;2^K:$L(X)>120!($L(X)<1) X"
^DD(394.87,21,3)="Answer must be 1-120 characters in length."
^DD(394.87,21,21,0)="^^1^1^2930218^"
^DD(394.87,21,21,1,0)="Domain associated with the transaction."
^DD(394.87,21,"DT")="2921208"
^DD(394.87,30,0)="Segment in Transaction^394.873P^^SGMNT;0"
^DD(394.87,30,21,0)="^^1^1^2930924^"
^DD(394.87,30,21,1,0)="Multiple containing all data segments contained in the transaction."
^DD(394.87,"B","Date/Time of Work",.01)=""
^DD(394.87,"B","Done By",.02)=""
^DD(394.87,"B","Patient ID",13)=""
^DD(394.87,"B","Patient Ptr",10)=""
^DD(394.87,"B","Patient's Name",11)=""
^DD(394.87,"B","Patient's SSN",12)=""
^DD(394.87,"B","Remote Domain",21)=""
^DD(394.87,"B","Remote Facility",20)=""
^DD(394.87,"B","Segment in Transaction",30)=""
^DD(394.87,"B","Work Done",.03)=""
^DD(394.87,"GL",0,1,.01)=""
^DD(394.87,"GL",0,2,.02)=""
^DD(394.87,"GL",0,3,.03)=""
^DD(394.87,"GL","FAC",1,20)=""
^DD(394.87,"GL","FAC",2,21)=""
^DD(394.87,"GL","PAT",1,10)=""
^DD(394.87,"GL","PAT",2,11)=""
^DD(394.87,"GL","PAT",3,12)=""
^DD(394.87,"GL","PAT",4,13)=""
^DD(394.87,"GL","SGMNT",0,30)=""
^DD(394.87,"IX",.01)=""
^DD(394.87,"IX",10)=""
^DD(394.87,"RQ",.01)=""
^DD(394.87,"SB",394.873,30)=""
^DD(394.873,0)="Segment in Transaction SUB-FIELD^^.01^1"
^DD(394.873,0,"DT")="2930310"
^DD(394.873,0,"IX","B",394.873,.01)=""
^DD(394.873,0,"NM","Segment in Transaction")=""
^DD(394.873,0,"UP")="394.87"
^DD(394.873,.01,0)="Segment in Transaction^MP394.71'^VAT(394.71,^0;1^Q"
^DD(394.873,.01,1,0)="^.1"
^DD(394.873,.01,1,1,0)="394.873^B"
^DD(394.873,.01,1,1,1)="S ^VAT(394.87,DA(1),""SGMNT"",""B"",$E(X,1,30),DA)="""""
^DD(394.873,.01,1,1,2)="K ^VAT(394.87,DA(1),""SGMNT"",""B"",$E(X,1,30),DA)"
^DD(394.873,.01,21,0)="^^1^1^2930924^"
^DD(394.873,.01,21,1,0)="Data segment that was contained in the transaction."
^DD(394.873,.01,"DT")="2930310"
^DD(394.873,"B","Segment in Transaction",.01)=""
^DD(394.873,"GL",0,1,.01)=""
^DD(394.873,"IX",.01)=""
^DD(394.88,0)="FIELD^^10^3"
^DD(394.88,0,"DDA")="N"
^DD(394.88,0,"DT")="2930527"
^DD(394.88,0,"IX","B",394.88,.01)=""
^DD(394.88,0,"NM","VAQ - WORK")=""
^DD(394.88,0,"PT",394.87,.03)=""
^DD(394.88,0,"VR")="1.5"
^DD(394.88,.01,0)="Work ID^RF^^0;1^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(394.88,.01,1,0)="^.1"
^DD(394.88,.01,1,1,0)="394.88^B"
^DD(394.88,.01,1,1,1)="S ^VAT(394.88,""B"",$E(X,1,30),DA)="""""
^DD(394.88,.01,1,1,2)="K ^VAT(394.88,""B"",$E(X,1,30),DA)"
^DD(394.88,.01,3)="Answer must be 1-8 characters in length."
^DD(394.88,.01,21,0)="^^2^2^2930527^"
^DD(394.88,.01,21,1,0)=" "
^DD(394.88,.01,21,2,0)="Unique identifier used to distinguish type of work done."
^DD(394.88,.01,"DT")="2930527"
^DD(394.88,.02,0)="Work^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(394.88,.02,3)="Answer must be 1-80 characters in length."
^DD(394.88,.02,21,0)="^^1^1^2930527^"
^DD(394.88,.02,21,1,0)="Type of work done through PDX."
^DD(394.88,.02,"DT")="2930205"
^DD(394.88,10,0)="Description^394.881^^DESC;0"
^DD(394.88,10,21,0)="^^1^1^2930218^"
^DD(394.88,10,21,1,0)="Description of work."
^DD(394.88,"B","Description",10)=""
^DD(394.88,"B","Work",.02)=""
^DD(394.88,"B","Work ID",.01)=""
^DD(394.88,"GL",0,1,.01)=""
^DD(394.88,"GL",0,2,.02)=""
^DD(394.88,"GL","DESC",0,10)=""
^DD(394.88,"IX",.01)=""
^DD(394.88,"RQ",.01)=""
^DD(394.88,"SB",394.881,10)=""
^DD(394.881,0)="Description SUB-FIELD^^.01^1"
^DD(394.881,0,"DT")="2921208"
^DD(394.881,0,"NM","Description")=""
^DD(394.881,0,"UP")="394.88"
^DD(394.881,.01,0)="Description^WL^^0;1^Q"
^DD(394.881,.01,"DT")="2921208"
^DD(394.881,"B","Description",.01)=""
^DD(394.881,"GL",0,1,.01)=""
^DD(395,0)="FIELD^^23^23"
^DD(395,0,"DT")="2930607"
^DD(395,0,"IX","B",395,.01)=""
^DD(395,0,"NM","DVB PARAMETERS")=""
^DD(395,0,"VR")="4"
^DD(395,.01,0)="ONE^RNJ1,0X^^0;1^K:+X'=X!(X>1)!(X<0)!(X=0)!(X?.E1"".""1N.N) X"
^DD(395,.01,1,0)="^.1"
^DD(395,.01,1,1,0)="395^B"
^DD(395,.01,1,1,1)="S ^DVB(395,""B"",$E(X,1,30),DA)="""""
^DD(395,.01,1,1,2)="K ^DVB(395,""B"",$E(X,1,30),DA)"
^DD(395,.01,3)="Type a Number between 0 and 1"
^DD(395,.01,"DT")="2891004"
^DD(395,.05,0)="USE HINQ SCREENS?^S^y:YES;n:NO;^0;5^Q"
^DD(395,.05,21,0)="^^1^1^2930712^"
^DD(395,.05,21,1,0)="When this field is set to NO alert processing will not call HINQ screens"
^DD(395,.05,"DT")="2930712"
^DD(395,1,0)="NETWORK DAY^D^^HQ;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(395,1,.1)="DATE OF CURRENT NETWORK WORKDAY"
^DD(395,1,21,0)="^^10^10^2920117^^^^"
^DD(395,1,21,1,0)="This field contains the date of the current network workday."
^DD(395,1,21,2,0)="This will usually be the current day's date.  On days that the"
^DD(395,1,21,3,0)="network is unavailable (weekends and holidays) this field will"
^DD(395,1,21,4,0)="contain the value of the previous network workday's date.  For"
^DD(395,1,21,5,0)="example, on a Sunday, this field will contain the date of the"
^DD(395,1,21,6,0)="previous Friday."
^DD(395,1,21,7,0)=" "
^DD(395,1,21,8,0)="The value in this field is updated automatically by the system on"
^DD(395,1,21,9,0)="workdays when a HINQ request is sent.  It should not be necessary to edit"
^DD(395,1,21,10,0)=" this field."
^DD(395,1,"DT")="2881020"
^DD(395,2,0)="LAST NET-WORKDAY^D^^HQ;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(395,2,.1)="DATE OF LAST NETWORK WORKDAY"
^DD(395,2,10)="SYSTEM GENERATED"
^DD(395,2,21,0)="15^^21^21^2920117^^^^"
^DD(395,2,21,1,0)="This field contains the date of the network workday that is"
^DD(395,2,21,2,0)="previous to the current network workday.  For example, on a"
^DD(395,2,21,3,0)="Tuesday, it contains Monday's date.  On a Sunday, the network"
^DD(395,2,21,4,0)="workday is still Friday so Last Net-Workday will contain Thursday's"
^DD(395,2,21,5,0)="date."
^DD(395,2,21,6,0)=" "
^DD(395,2,21,7,0)="When the parameter, NETWORK DAY, is updated on workdays, LAST NET-WORKDAY"
^DD(395,2,21,8,0)="field is automatically updated to the value of the previous"
^DD(395,2,21,9,0)="NETWORK DAY. Thus at times LAST NET-WORKDAY can be days apart from NETWORK"
^DD(395,2,21,10,0)="DAY because a HINQ hasn't been requested to update the field. For example"
^DD(395,2,21,11,0)="if NETWORK DAY is a Monday and LAST NET-WORKDAY is Friday and no HINQs"
^DD(395,2,21,12,0)="are done until Thursday, on Thursday the NETWORK DAY will contain"
^DD(395,2,21,13,0)="Thursday's date but LAST NET-WORKDAY will contain Monday's date.  "
^DD(395,2,21,14,0)="If a HINQ is done again on Friday then NETWORK DAY will be Friday's date"
^DD(395,2,21,15,0)="and LAST NET-WORKDAY will be Thursday's."
^DD(395,2,21,16,0)=" "
^DD(395,2,21,17,0)="VIEW THE HINQ SUSPENSE FILE option displays entries beginning with the"
^DD(395,2,21,18,0)="current day's date and going back to the LAST NET-WORKDAY'S date.  "
^DD(395,2,21,19,0)="It may be necessary to edit this field to contain an earlier date to"
^DD(395,2,21,20,0)="extend the date range of this options. On the following workday, "
^DD(395,2,21,21,0)="this field will get updated as usual to the previous NETWORK DAY'S date."
^DD(395,2,"DT")="2881101"
^DD(395,3,0)="GMT OFFSET^NJ2,0^^HQ;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(395,3,.1)="Difference between time zone and GMT"
^DD(395,3,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(395,3,21,0)="^^7^7^2920117^^^^"
^DD(395,3,21,1,0)="This entry is derived from the time zone field of the Kernel parameter"
^DD(395,3,21,2,0)="file and the Mailman time zone file.  If these files are not present"
^DD(395,3,21,3,0)="it may be set to a positive number which is the difference between "
^DD(395,3,21,4,0)="GMT and the sites current time zone, i.e. for Eastern daylight time"
^DD(395,3,21,5,0)="it should be set to 4, Central daylight to 5, etc."
^DD(395,3,21,6,0)="This field is used to check the time of availability of the VBA computer"
^DD(395,3,21,7,0)="and disable appropriate HINQ options if the VBA computer is not available."
^DD(395,4,0)="NETWORK ENABLED^S^1:YES;0:NO;^HQ;4^Q"
^DD(395,4,.1)="NETWORK ENABLED PARAMETER"
^DD(395,4,10)="ADT COORDINATOR OR SITE MANAGER"
^DD(395,4,21,0)="^^8^8^2920117^^^^"
^DD(395,4,21,1,0)="This parameter enables or disables the options which transmit"
^DD(395,4,21,2,0)="requests to the VBA computer - GENERATE A HINQ REQUEST and "
^DD(395,4,21,3,0)="PROCESS THE HINQ SUSPENSE FILE.  Enter a yes to enable these"
^DD(395,4,21,4,0)="options or a no to disable them."
^DD(395,4,21,5,0)=" "
^DD(395,4,21,6,0)="These options are automatically disabled during VBA computer"
^DD(395,4,21,7,0)="non-workday hours.  However, it may be necessary to disable these"
^DD(395,4,21,8,0)="options temporarily if transmission problems are occurring."
^DD(395,5,0)="BATCH PROCESSING ENABLED^S^1:YES;0:NO;^HQ;5^Q"
^DD(395,5,.1)="BATCH PROCESSING PARAMETER"
^DD(395,5,10)="SYSTEM GENERATED"
^DD(395,5,21,0)="^^10^10^2920117^^"
^DD(395,5,21,1,0)="This parameter is set to a YES or NO by the system to enable or"
^DD(395,5,21,2,0)="disable the option, PROCESS THE SUSPENSE FILE.  The option is"
^DD(395,5,21,3,0)="automatically disabled during VBA computer non-workday hours."
^DD(395,5,21,4,0)="When the option is selected during workday hours and this field"
^DD(395,5,21,5,0)="contains a NO, a test of the network is automatically performed."
^DD(395,5,21,6,0)="This field will be set to a YES or NO value that indicates whether"
^DD(395,5,21,7,0)="or not the HINQ Suspense file contains 'P'ending entries. The"
^DD(395,5,21,8,0)="system sets this field.  If this field is set to NO, queued jobs"
^DD(395,5,21,9,0)="will quit before logging into the remote VBA.  It may be manually"
^DD(395,5,21,10,0)="reset to YES if there are pending entries in the suspense file."
^DD(395,6,0)="USE HIGH INTENSITY?^S^1:YES;0:NO;^0;3^Q"
^DD(395,6,3)="YES will turn on the high intensity used in the HINQ screens, NO will turn it off"
^DD(395,6,"DT")="2900202"
^DD(395,7,0)="AUTO-REQUEUE OF IDCU ERRORS^S^1:YES REQUEUE;0:NO REQUEUEING;^HQ;7^Q"
^DD(395,7,.1)="AUTO-REQUEUE OF IDCU ERRORS HINQ PARAMETER"
^DD(395,7,10)="ADT COORDINATOR OR SITE MANAGER"
^DD(395,7,11,0)="^.2LAP"
^DD(395,7,21,0)="^^8^8^2920117^^^^"
^DD(395,7,21,1,0)="This parameter should be set to indicate to the system whether or"
^DD(395,7,21,2,0)="not requests with communications errors should automatically be"
^DD(395,7,21,3,0)="retransmitted to the VBA computer.  Set this field to Y for YES"
^DD(395,7,21,4,0)="REQUEUE or to N for NO REQUEUEING."
^DD(395,7,21,5,0)=" "
^DD(395,7,21,6,0)="If this parameter is set to REQUEUE requests will not be retransmitted"
^DD(395,7,21,7,0)="if the Network is Disabled or the remote VBA computer is not available"
^DD(395,7,21,8,0)="because of time, or Saturday, Sunday, Holidays."
^DD(395,8,0)="AUTO-REQUEUE LIMIT^NJ2,0X^^HQ;8^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(395,8,.1)="AUTO-REQUEUE LIMIT PARAMETER"
^DD(395,8,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(395,8,10)="ADT COORDINATOR OR SITE MANAGER"
^DD(395,8,21,0)="^^3^3^2930712^^^"
^DD(395,8,21,1,0)="This parameter should be set to a number between 0 and 100 to"
^DD(395,8,21,2,0)="indicate to the system the total number of requeued jobs that can"
^DD(395,8,21,3,0)="be Retransmitted to the VBA computer in a day."
^DD(395,8,"DT")="2930609"
^DD(395,9,0)="REQUEUE COUNTER^NJ3,0^^HQ;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(395,9,.1)="COUNTER FOR AUTO-REQUEUE REQUESTS"
^DD(395,9,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(395,9,10)="SYSTEM GENERATED"
^DD(395,9,21,0)="^^10^10^2920117^^"
^DD(395,9,21,1,0)="This field is a count of the number of batch processes that have"
^DD(395,9,21,2,0)="been requeued by the system on a particular day.  This field is"
^DD(395,9,21,3,0)="incremented by the system each time a process is automatically"
^DD(395,9,21,4,0)="requeued to the VBA computer.  It is reset to zero by the system"
^DD(395,9,21,5,0)="on workdays."
^DD(395,9,21,6,0)=" "
^DD(395,9,21,7,0)="To allow processes to be requeued, the number in this field must"
^DD(395,9,21,8,0)="not be greater than the number in the AUTO-REQUEUE LIMIT field."
^DD(395,9,21,9,0)="If necessary, this field can be reset to zero by the user to"
^DD(395,9,21,10,0)="allow additional processes to be requeued to the VBA computer."
^DD(395,10,0)="HINQ MAIL MESSAGES^S^1:YES;0:NO;^0;4^Q"
^DD(395,10,21,0)="^^2^2^2920117^^^"
^DD(395,10,21,1,0)="This field will allow the site to turn on the mailing of HINQ mail"
^DD(395,10,21,2,0)="messages when they process the suspense file.  "
^DD(395,10,"DT")="2900307"
^DD(395,11,0)="NEW IDCU INTERFACE^RS^1:YES;0:NO;^HQ;11^Q"
^DD(395,11,10)="SITE MANAGER"
^DD(395,11,21,0)="^^2^2^2930712^^^^"
^DD(395,11,21,1,0)="When this field is set to YES, IDCU addressing is changed to access"
^DD(395,11,21,2,0)="a new interface at the RDPCs."
^DD(395,11,21,3,0)="through the mailman's queues."
^DD(395,11,22)=""
^DD(395,11,"DT")="2930615"
^DD(395,12,0)="RDPC Time Difference^NJ2,0^^HQ;12^K:+X'=X!(X>10)!(X<-15)!(X?.E1"".""1N.N) X"
^DD(395,12,3)="Type a Number between -15 and 10, 0 Decimal Digits"
^DD(395,12,10)="SITE MANAGER"
^DD(395,12,21,0)="^^7^7^2920117^^^^"
^DD(395,12,21,1,0)="This field should contain the time difference between the site "
^DD(395,12,21,2,0)="and the RDPC where HINQ requests are sent.  A site in the Eastern"
^DD(395,12,21,3,0)="time zone sending to the Midwest RDPC should enter '-1' here.  A"
^DD(395,12,21,4,0)="site in the Pacific time zone sending to the Midwest RDPC should"
^DD(395,12,21,5,0)="enter '2' here.  If the RDPC is in the same time zone enter '0'"
^DD(395,12,21,6,0)="here.  Philadelphia is East, Hines, Midwest, and Austin are in "
^DD(395,12,21,7,0)="Central time zones."
^DD(395,12,"DT")="2890912"
^DD(395,13,0)="ASK MEDICAL CENTER DIVISION^S^1:YES;0:NO;^HQ;13^Q"
^DD(395,13,10)="ADT COORDINATOR, SITE MANAGER"
^DD(395,13,21,0)="^^7^7^2920117^^^^"
^DD(395,13,21,1,0)="When a user enters a request in the HINQ suspense file 395.5, if"
^DD(395,13,21,2,0)="the site is multi-divisional as defined in the ADT parameter file 43,"
^DD(395,13,21,3,0)="field 11, the user will be prompted to enter a medical center"
^DD(395,13,21,4,0)="division as defined in file 40.8."
^DD(395,13,21,5,0)=" "
^DD(395,13,21,6,0)="When the HINQ request is processed, the top line of the response"
^DD(395,13,21,7,0)="will show the division name to aid in patient identification."
^DD(395,15,0)="HINQ MAIL GROUP^395.015P^^HQMG;0"
^DD(395,16,0)="IDCU ADDRESS^S^DMS.BDNE:Philadelphia;DMS.BDNC:Hines;DMS.BDNW:Austin;DMS.BDNM:Midwest;DMS.BONS:Philadelphia;^HQVD;1^Q"
^DD(395,16,3)=""
^DD(395,16,10)="DISTRIBUTED"
^DD(395,16,21,0)="^^1^1^2920117^^^^"
^DD(395,16,21,1,0)="This is the code for addressing the VBA computer through IDCU."
^DD(395,16,"DT")="2960820"
^DD(395,17,0)="IDCU USERNAME-PASSWORD^F^^HQVD;2^K:$L(X)>40!($L(X)<2) X"
^DD(395,17,3)="Answer with IDCU  USERNAME-PASSWORD"
^DD(395,17,21,0)="^^1^1^2920117^^^"
^DD(395,17,21,1,0)="This field holds the IDCU USERNAME and PASSWORD   Ex.(USERNAME-PASSWORD)"
^DD(395,17,"DT")="2900705"
^DD(395,19,0)="*HINQ device name^FX^^HQVD;4^K:$L(X)>30!($L(X)<1) X I $D(X) S %ZIS=""NQ"",IOP=X D ^%ZIS K:POP X S:$D(X) X=ION W:$D(X) "" Stored internally as "",X S IOP="""" D ^%ZIS K IOP,%ZIS"
^DD(395,19,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(395,19,21,0)="^^6^6^2990829^^^"
^DD(395,19,21,1,0)="This field should contain the name of the device which will be"
^DD(395,19,21,2,0)="used to connect the DHCP computer to the IDCU"
^DD(395,19,21,3,0)="for transmitting and receiving HINQ requests."
^DD(395,19,21,4,0)="This entry must be a name in the Device file."
^DD(395,19,21,5,0)=" "
^DD(395,19,21,6,0)="As of Patch DVB*4.0*34 this field is no longer used."
^DD(395,19,"DT")="2990829"
^DD(395,20,0)="*BATCH DEVICE NAME^FX^^HQVD;5^K:$L(X)>30!($L(X)<1) X I $D(X) S %ZIS=""NQ"",IOP=X D ^%ZIS K:POP X S:$D(X) X=ION W:$D(X) "" Stored internally as "",X S IOP="""" D ^%ZIS K IOP,%ZIS"
^DD(395,20,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(395,20,21,0)="^^5^5^2990829^^^^"
^DD(395,20,21,1,0)="This field holds the device that is to be used when a batch process"
^DD(395,20,21,2,0)="(process the HINQ Suspense file) is run.  It should be different from"
^DD(395,20,21,3,0)="HINQ device."
^DD(395,20,21,4,0)=" "
^DD(395,20,21,5,0)="As of Patch DVB*4.0*34 this field is no longer used."
^DD(395,20,"DT")="2990829"
^DD(395,21,0)="INSTITUTION/STATION NUMBER^RFX^^0;2^S DIC=""^DIC(4,"",DIC(0)=""ENM"" D ^DIC K:Y=-1 X I $D(X) S X=$P(^DIC(4,+Y,99),U,1) K:$L(X)>3!($L(X)<1) X"
^DD(395,21,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH AND A CORRECT STATION NUMBER OR STATION NAME"
^DD(395,21,21,0)="^^2^2^2920117^^"
^DD(395,21,21,1,0)="This field holds the station number of the site. The HINQ program will"
^DD(395,21,21,2,0)="get the station number it needs from this field."
^DD(395,21,"DT")="2890215"
^DD(395,22,0)="RDPC IP ADDRESS^FX^^HQIP;1^K:$L(X)>15!($L(X)<12)!'(X?1.3N1P1.3N1P1.3N1P1.3N) X"
^DD(395,22,3)="Answer must be 14-15 characters in length."
^DD(395,22,10)="ADT COORDINATOR OR SITE MANAGER"
^DD(395,22,21,0)="^.001^2^2^3040907^^^"
^DD(395,22,21,1,0)="This parameter contains the IP Address of the VBA Remote Data Processing"
^DD(395,22,21,2,0)="Center.  Users at a site will have HINQ passwords only valid at this RDPC."
^DD(395,22,"DT")="3050916"
^DD(395,23,0)="AAC PORT DESIGNATOR^NJ5,0X^^HQIP;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X I X=99999 S X=1"
^DD(395,23,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(395,23,21,0)="^^4^4^3050916^"
^DD(395,23,21,1,0)="This field is a counter for the number of HINQ connections used at a "
^DD(395,23,21,2,0)="site.   The remainder of this number, divided by the number of available "
^DD(395,23,21,3,0)="ports at the AAC, will determine which port to use for this HINQ "
^DD(395,23,21,4,0)="session.  The number will automatically reset after #99999."
^DD(395,23,"DT")="3050916"
^DD(395,"B","*BATCH DEVICE NAME",20)=""
^DD(395,"B","*HINQ device name",19)=""
^DD(395,"B","AAC PORT DESIGNATOR",23)=""
^DD(395,"B","ASK MEDICAL CENTER DIVISION",13)=""
^DD(395,"B","AUTO-REQUEUE LIMIT",8)=""
^DD(395,"B","AUTO-REQUEUE LIMIT PARAMETER",8)="1"
^DD(395,"B","AUTO-REQUEUE OF IDCU ERRORS",7)=""
^DD(395,"B","BATCH PROCESSING ENABLED",5)=""
^DD(395,"B","BATCH PROCESSING PARAMETER",5)="1"
^DD(395,"B","DATE OF LAST NETWORK WORKDAY",2)="1"
^DD(395,"B","GMT OFFSET",3)=""
^DD(395,"B","HINQ MAIL GROUP",15)=""
^DD(395,"B","HINQ MAIL MESSAGES",10)=""
^DD(395,"B","IDCU ADDRESS",16)=""
^DD(395,"B","IDCU USERNAME-PASSWORD",17)=""
^DD(395,"B","INSTITUTION/STATION NUMBER",21)=""
^DD(395,"B","LAST NET-WORKDAY",2)=""
^DD(395,"B","NETWORK DAY",1)=""
^DD(395,"B","NETWORK ENABLED",4)=""
^DD(395,"B","NETWORK ENABLED PARAMETER",4)="1"
^DD(395,"B","NEW IDCU INTERFACE",11)=""
^DD(395,"B","ONE",.01)=""
^DD(395,"B","RDPC IP ADDRESS",22)=""
^DD(395,"B","RDPC Time Difference",12)=""
^DD(395,"B","REQUEUE COUNTER",9)=""
^DD(395,"B","USE HIGH INTENSITY?",6)=""
^DD(395,"B","USE HINQ SCREENS?",.05)=""
^DD(395,"GL",0,1,.01)=""
^DD(395,"GL",0,2,21)=""
^DD(395,"GL",0,3,6)=""
^DD(395,"GL",0,4,10)=""
^DD(395,"GL",0,5,.05)=""
^DD(395,"GL","HQ",1,1)=""
^DD(395,"GL","HQ",2,2)=""
^DD(395,"GL","HQ",3,3)=""
^DD(395,"GL","HQ",4,4)=""
^DD(395,"GL","HQ",5,5)=""
^DD(395,"GL","HQ",7,7)=""
^DD(395,"GL","HQ",8,8)=""
^DD(395,"GL","HQ",9,9)=""
^DD(395,"GL","HQ",11,11)=""
^DD(395,"GL","HQ",12,12)=""
^DD(395,"GL","HQ",13,13)=""
^DD(395,"GL","HQIP",1,22)=""
^DD(395,"GL","HQIP",2,23)=""
^DD(395,"GL","HQMG",0,15)=""
^DD(395,"GL","HQVD",1,16)=""
^DD(395,"GL","HQVD",2,17)=""
^DD(395,"GL","HQVD",4,19)=""
^DD(395,"GL","HQVD",5,20)=""
^DD(395,"IX",.01)=""
^DD(395,"RQ",.01)=""
^DD(395,"RQ",11)=""
^DD(395,"RQ",21)=""
^DD(395,"SB",395.015,15)=""
^DD(395.015,0)="HINQ MAIL GROUP SUB-FIELD^^.01^1"
^DD(395.015,0,"IX","B",395.015,.01)=""
^DD(395.015,0,"NM","HINQ MAIL GROUP")=""
^DD(395.015,0,"UP")="395"
^DD(395.015,.01,0)="HINQ MAIL GROUP^P3.8'X^XMB(3.8,^0;1^Q"
^DD(395.015,.01,1,0)="^.1"
^DD(395.015,.01,1,1,0)="395.015^B"
^DD(395.015,.01,1,1,1)="S ^DVB(395,DA(1),""HQMG"",""B"",$E(X,1,30),DA)="""""
^DD(395.015,.01,1,1,2)="K ^DVB(395,DA(1),""HQMG"",""B"",$E(X,1,30),DA)"
^DD(395.015,.01,"DT")="2890201"
^DD(395.015,"B","HINQ MAIL GROUP",.01)=""
^DD(395.015,"GL",0,1,.01)=""
^DD(395.015,"IX",.01)=""
^DD(395.1,0)="FIELD^^1^2"
^DD(395.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(395.1,0,"IX","B",395.1,.01)=""
^DD(395.1,0,"NM","ENTITLEMENT CODES")=""
^DD(395.1,0,"VR")="4"
^DD(395.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(395.1,.01,1,0)="^.1"
^DD(395.1,.01,1,1,0)="395.1^B"
^DD(395.1,.01,1,1,1)="S ^DVB(395.1,""B"",$E(X,1,30),DA)="""""
^DD(395.1,.01,1,1,2)="K ^DVB(395.1,""B"",$E(X,1,30),DA)"
^DD(395.1,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(395.1,.01,21,0)="^^1^1^2920117^^"
^DD(395.1,.01,21,1,0)="This field contains the actual codes that are sent from VBA."
^DD(395.1,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>214!($L(X)<1) X"
^DD(395.1,1,3)="ANSWER MUST BE 1-214 CHARACTERS IN LENGTH"
^DD(395.1,1,21,0)="^^1^1^2920117^^"
^DD(395.1,1,21,1,0)="These are the meanings for the codes in the name field."
^DD(395.1,"B","DESCRIPTION",1)=""
^DD(395.1,"B","NAME",.01)=""
^DD(395.1,"GL",0,1,.01)=""
^DD(395.1,"GL",0,2,1)=""
^DD(395.1,"IX",.01)=""
^DD(395.1,"RQ",.01)=""
^DD(395.2,0)="FIELD^^1^2"
^DD(395.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(395.2,0,"IX","B",395.2,.01)=""
^DD(395.2,0,"NM","ANATOMICAL-LOSS CODES")=""
^DD(395.2,0,"VR")="4"
^DD(395.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(395.2,.01,1,0)="^.1"
^DD(395.2,.01,1,1,0)="395.2^B"
^DD(395.2,.01,1,1,1)="S ^DVB(395.2,""B"",$E(X,1,30),DA)="""""
^DD(395.2,.01,1,1,2)="K ^DVB(395.2,""B"",$E(X,1,30),DA)"
^DD(395.2,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(395.2,.01,21,0)="^^1^1^2920117^^^^"
^DD(395.2,.01,21,1,0)="This field contains the codes that come from the VBA computer."
^DD(395.2,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>214!($L(X)<1) X"
^DD(395.2,1,3)="ANSWER MUST BE 1-214 CHARACTERS IN LENGTH"
^DD(395.2,1,21,0)="^^1^1^2920117^^"
^DD(395.2,1,21,1,0)="This field contains the meaning of the codes in the .01 field."
^DD(395.2,"B","DESCRIPTION",1)=""
^DD(395.2,"B","NAME",.01)=""
^DD(395.2,"GL",0,1,.01)=""
^DD(395.2,"GL",0,2,1)=""
^DD(395.2,"IX",.01)=""
^DD(395.2,"RQ",.01)=""
^DD(395.3,0)="FIELD^^1^2"
^DD(395.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(395.3,0,"IX","B",395.3,.01)=""
^DD(395.3,0,"NM","MONTHLY COMPENSATION")=""
^DD(395.3,0,"VR")="4"
^DD(395.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(395.3,.01,1,0)="^.1"
^DD(395.3,.01,1,1,0)="395.3^B"
^DD(395.3,.01,1,1,1)="S ^DVB(395.3,""B"",$E(X,1,30),DA)="""""
^DD(395.3,.01,1,1,2)="K ^DVB(395.3,""B"",$E(X,1,30),DA)"
^DD(395.3,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(395.3,.01,21,0)="^^1^1^2920117^^^"
^DD(395.3,.01,21,1,0)="This field contains the codes sent by the VBA computer. "
^DD(395.3,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>214!($L(X)<1) X"
^DD(395.3,1,3)="ANSWER MUST BE 1-214 CHARACTERS IN LENGTH"
^DD(395.3,1,21,0)="^^1^1^2920117^^"
^DD(395.3,1,21,1,0)="These are the meanings of the codes in the .01 field."
^DD(395.3,"B","DESCRIPTION",1)=""
^DD(395.3,"B","NAME",.01)=""
^DD(395.3,"GL",0,1,.01)=""
^DD(395.3,"GL",0,2,1)=""
^DD(395.3,"IX",.01)=""
^DD(395.3,"RQ",.01)=""
^DD(395.4,0)="FIELD^^1^2"
^DD(395.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(395.4,0,"IX","B",395.4,.01)=""
^DD(395.4,0,"NM","DIARY DEFINITIONS")=""
^DD(395.4,0,"VR")="4"
^DD(395.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(395.4,.01,1,0)="^.1"
^DD(395.4,.01,1,1,0)="395.4^B"
^DD(395.4,.01,1,1,1)="S ^DVB(395.4,""B"",$E(X,1,30),DA)="""""
^DD(395.4,.01,1,1,2)="K ^DVB(395.4,""B"",$E(X,1,30),DA)"
^DD(395.4,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(395.4,.01,21,0)="^^1^1^2920117^^"
^DD(395.4,.01,21,1,0)="These are the codes sent by the VBA computer."
^DD(395.4,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>214!($L(X)<1) X"
^DD(395.4,1,3)="ANSWER MUST BE 1-214 CHARACTERS IN LENGTH"
^DD(395.4,1,21,0)="^^1^1^2920117^^"
^DD(395.4,1,21,1,0)="These are the meanings of the codes sent by the VBA computer."
^DD(395.4,"B","DESCRIPTION",1)=""
^DD(395.4,"B","NAME",.01)=""
^DD(395.4,"GL",0,1,.01)=""
^DD(395.4,"GL",0,2,1)=""
^DD(395.4,"IX",.01)=""
^DD(395.4,"RQ",.01)=""
^DD(395.5,0)="FIELD^^12^12"
^DD(395.5,0,"DDA")="N"
^DD(395.5,0,"DT")="2930615"
^DD(395.5,0,"ID","WRITE")="W ?33 S:$D(^DVB(395.7,Y,0)) DVBJ=$P(^(0),U,3) W:$P(^DVB(395.5,Y,0),U,5)=""Y""&$D(DVBJ) ""UPDATED "",""("",$E(DVBJ,4,5),""-"",$E(DVBJ,6,7),""-"",1700+$E(DVBJ,1,3),"")"" K DVBJ W:$P(^DVB(395.5,Y,0),U,5)'=""Y"" ""NOT  UPDATED"" W !,?17"
^DD(395.5,0,"IX","AC",395.5,4)=""
^DD(395.5,0,"IX","AD",395.5,4)=""
^DD(395.5,0,"IX","B",395.5,.01)=""
^DD(395.5,0,"IX","C",395.5,3)=""
^DD(395.5,0,"IX","D",395.51,.01)=""
^DD(395.5,0,"NM","HINQ SUSPENSE")=""
^DD(395.5,0,"VR")="4"
^DD(395.5,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(395.5,.01,1,0)="^.1"
^DD(395.5,.01,1,1,0)="395.5^B"
^DD(395.5,.01,1,1,1)="S ^DVB(395.5,""B"",$E(X,1,30),DA)="""""
^DD(395.5,.01,1,1,2)="K ^DVB(395.5,""B"",$E(X,1,30),DA)"
^DD(395.5,.01,3)=""
^DD(395.5,.01,10)="MEDICAL ADMINISTRATION SERVICE"
^DD(395.5,.01,21,0)="^^2^2^2920117^^^^"
^DD(395.5,.01,21,1,0)="This field points to the main patient file (#2) to give"
^DD(395.5,.01,21,2,0)="the name of the patient who this HINQ request is for."
^DD(395.5,.01,"DT")="2891010"
^DD(395.5,.01,"V",0)="^.12P^2^2"
^DD(395.5,.01,"V",1,0)="2^PAT POINTER^1^PAT^^n"
^DD(395.5,.01,"V",2,0)="395.6^IND POINTER^2^IND^^y"
^DD(395.5,.01,"V","B",2,1)=""
^DD(395.5,.01,"V","B",395.6,2)=""
^DD(395.5,.01,"V","M","IND POINTER",2)=""
^DD(395.5,.01,"V","M","PAT POINTER",1)=""
^DD(395.5,.01,"V","O",1,1)=""
^DD(395.5,.01,"V","O",2,2)=""
^DD(395.5,.01,"V","P","IND",2)=""
^DD(395.5,.01,"V","P","PAT",1)=""
^DD(395.5,2,0)="RECIPIENT^P3.8'^XMB(3.8,^0;2^Q"
^DD(395.5,2,.1)="NAME OF MAIL GROUP"
^DD(395.5,2,10)="ADT COORDINATOR OR SITE MANAGER"
^DD(395.5,2,21,0)="^^3^3^2920117^^^^"
^DD(395.5,2,21,1,0)="This field points to the Mail Group file (#3.8) to give the name"
^DD(395.5,2,21,2,0)="of the mail group who will receive the HINQ mail message associated"
^DD(395.5,2,21,3,0)="with this request."
^DD(395.5,3,0)="TIME OF STATUS CHANGE^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(395.5,3,.1)="DATE/TIME OF LAST STATUS UPDATE"
^DD(395.5,3,1,0)="^.1^^-1"
^DD(395.5,3,1,1,0)="395.5^C^MUMPS"
^DD(395.5,3,1,1,1)="S ^DVB(395.5,""C"",$E(9999999-X,1,30),DA)="""""
^DD(395.5,3,1,1,2)="K ^DVB(395.5,""C"",$E(9999999-X,1,30),DA)"
^DD(395.5,3,10)="SYSTEM GENERATED"
^DD(395.5,3,21,0)="^^2^2^2920117^^^^"
^DD(395.5,3,21,1,0)="This field is filled in by the system with the date and time"
^DD(395.5,3,21,2,0)="that the suspense file status of this entry was last updated."
^DD(395.5,3,"DT")="2881005"
^DD(395.5,4,0)="STATUS^S^A:ABBREVIATED;P:PENDING;E:ERROR;N:NEW MAIL;V:IDCU ERROR;^0;4^Q"
^DD(395.5,4,.1)="SUSPENSE FILE STATUS"
^DD(395.5,4,1,0)="^.1"
^DD(395.5,4,1,1,0)="395.5^AD^MUMPS"
^DD(395.5,4,1,1,1)="S:X=""P"" ^DVB(395.5,""AD"",X,DA)="""""
^DD(395.5,4,1,1,2)="K:X=""P"" ^DVB(395.5,""AD"",""P"",DA)"
^DD(395.5,4,1,2,0)="395.5^AC^MUMPS"
^DD(395.5,4,1,2,1)="S:X=""N"" ^DVB(395.5,""AC"",X,DA)="""""
^DD(395.5,4,1,2,2)="K ^DVB(395.5,""AC"",""N"",DA)"
^DD(395.5,4,10)="SYSTEM GENERATED"
^DD(395.5,4,21,0)="^^5^5^2920205^^^^"
^DD(395.5,4,21,1,0)="This field contains the suspense file status of this entry."
^DD(395.5,4,21,2,0)="Five statuses are available:  'P' for PENDING, 'A' for ABBREVIATED"
^DD(395.5,4,21,3,0)="'E' for ERROR, 'V' for IDCU error, and 'N' for NEW MAIL."
^DD(395.5,4,21,4,0)="Suspense file statuses are updated by the system automatically"
^DD(395.5,4,21,5,0)="when there has been a change which effects the status."
^DD(395.5,4,"DT")="2920204"
^DD(395.5,5,0)="UPDATED?^S^Y:YES;N:NO;I:IGNORED;^0;5^Q"
^DD(395.5,5,.1)="MESSAGE OUT INFORMATION"
^DD(395.5,5,10)="SYSTEM GENERATED"
^DD(395.5,5,21,0)="^^3^3^2920117^^^"
^DD(395.5,5,21,1,0)="This field is to keep track of if the HINQ data for a patient has been"
^DD(395.5,5,21,2,0)="uploaded to the patient file or not.  It will restrict the display"
^DD(395.5,5,21,3,0)="and action of the ALL portion of the UPLOAD option,"
^DD(395.5,5,"DT")="2900517"
^DD(395.5,6,0)="ALERT SET^S^1:YES;0:NO;^0;6^Q"
^DD(395.5,6,21,0)="^^2^2^2930712^^^^"
^DD(395.5,6,21,1,0)="This field is set when an alert is generated to avoid multiple alerts"
^DD(395.5,6,21,2,0)="on the same patient on the same day."
^DD(395.5,6,"DT")="2930615"
^DD(395.5,7,0)="Message-ID^P3.9'^XMB(3.9,^0;7^Q"
^DD(395.5,7,.1)="MESSAGE ID NUMBER"
^DD(395.5,7,3)=""
^DD(395.5,7,10)="SYSTEM GENERATED"
^DD(395.5,7,21,0)="^^2^2^2920117^^^^"
^DD(395.5,7,21,1,0)="This field points to the Message file (#3.9) to give the ID"
^DD(395.5,7,21,2,0)="number associated with this mail message."
^DD(395.5,8,0)="MESSAGE IN TIME^D^^0;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(395.5,8,.1)="DATE/TIME RESPONSE RECEIVED"
^DD(395.5,8,10)="SYSTEM GENERATED"
^DD(395.5,8,21,0)="^^2^2^2920117^^"
^DD(395.5,8,21,1,0)="This field is filled in by the system with the date and time a"
^DD(395.5,8,21,2,0)="HINQ response to this HINQ inquiry request is received. "
^DD(395.5,9,0)="MEDICAL CENTER DIVISION^P40.8'^DG(40.8,^0;9^Q"
^DD(395.5,9,3)="Enter a Medical Center Division"
^DD(395.5,9,21,0)="^^2^2^2920117^^^^"
^DD(395.5,9,21,1,0)="This field is used to aid in HINQ response identification at"
^DD(395.5,9,21,2,0)="multi-divisional sites."
^DD(395.5,9,"DT")="2890126"
^DD(395.5,10,0)="REQUESTOR^395.51PA^^1;0"
^DD(395.5,10,21,0)="^^2^2^2920123^^^^"
^DD(395.5,10,21,1,0)="This multiple field stores information about all requests that are"
^DD(395.5,10,21,2,0)="associated with this entry in the suspense file."
^DD(395.5,11,0)="DATA STRING OUT^F^^HQ;1^K:$L(X)>245!($L(X)<1) X"
^DD(395.5,11,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(395.5,11,"DT")="2880706"
^DD(395.5,12,0)="DATA STRING IN^395.512A^^RS;0"
^DD(395.5,"B","ALERT SET",6)=""
^DD(395.5,"B","DATA STRING IN",12)=""
^DD(395.5,"B","DATA STRING OUT",11)=""
^DD(395.5,"B","DATE/TIME RESPONSE RECEIVED",8)="1"
^DD(395.5,"B","MEDICAL CENTER DIVISION",9)=""
^DD(395.5,"B","MESSAGE ID NUMBER",7)="1"
^DD(395.5,"B","MESSAGE IN TIME",8)=""
^DD(395.5,"B","MESSAGE OUT INFORMATION",5)="1"
^DD(395.5,"B","Message-ID",7)=""
^DD(395.5,"B","NAME",.01)=""
^DD(395.5,"B","NAME OF MAIL GROUP",2)="1"
^DD(395.5,"B","RECIPIENT",2)=""
^DD(395.5,"B","REQUESTOR",10)=""
^DD(395.5,"B","STATUS",4)=""
^DD(395.5,"B","SUSPENSE FILE STATUS",4)="1"
^DD(395.5,"B","TIME OF STATUS CHANGE",3)=""
^DD(395.5,"B","UPDATED?",5)=""
^DD(395.5,"GL",0,1,.01)=""
^DD(395.5,"GL",0,2,2)=""
^DD(395.5,"GL",0,3,3)=""
^DD(395.5,"GL",0,4,4)=""
^DD(395.5,"GL",0,5,5)=""
^DD(395.5,"GL",0,6,6)=""
^DD(395.5,"GL",0,7,7)=""
^DD(395.5,"GL",0,8,8)=""
^DD(395.5,"GL",0,9,9)=""
^DD(395.5,"GL",1,0,10)=""
^DD(395.5,"GL","HQ",1,11)=""
^DD(395.5,"GL","RS",0,12)=""
^DD(395.5,"IX",.01)=""
^DD(395.5,"IX",3)=""
^DD(395.5,"IX",4)=""
^DD(395.5,"RQ",.01)=""
^DD(395.5,"SB",395.51,10)=""
^DD(395.5,"SB",395.512,12)=""
^DD(395.51,0)="REQUESTOR SUB-FIELD^NL^2^2"
^DD(395.51,0,"DT")="2920124"
^DD(395.51,0,"NM","REQUESTOR")=""
^DD(395.51,0,"UP")="395.5"
^DD(395.51,.01,0)="REQUESTOR^P200'X^VA(200,^0;1^S DINUM=X"
^DD(395.51,.01,1,0)="^.1"
^DD(395.51,.01,1,1,0)="395.5^D"
^DD(395.51,.01,1,1,1)="S ^DVB(395.5,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(395.51,.01,1,1,2)="K ^DVB(395.5,""D"",$E(X,1,30),DA(1),DA)"
^DD(395.51,.01,10)="SYSTEM GENERATED"
^DD(395.51,.01,21,0)="^^3^3^2920124^^^^"
^DD(395.51,.01,21,1,0)="This field points to the New Person file (#200).  It is automatically filled"
^DD(395.51,.01,21,2,0)="in by the system with the name(s) of the user(s) who requested a HINQ"
^DD(395.51,.01,21,3,0)="inquiry for this patient."
^DD(395.51,.01,"DT")="2920124"
^DD(395.51,2,0)="TIME OF REQUEST^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(395.51,2,.1)="DATE/TIME REQUEST ENTERED IN SUSPENSE FILE"
^DD(395.51,2,21,0)="^^2^2^2851222^^"
^DD(395.51,2,21,1,0)="This field is automatically filled in by the system with the date and"
^DD(395.51,2,21,2,0)="time this HINQ request was entered into the suspense file"
^DD(395.51,"B","REQUESTOR",.01)=""
^DD(395.51,"B","TIME OF REQUEST",2)=""
^DD(395.51,"GL",0,1,.01)=""
^DD(395.51,"GL",0,2,2)=""
^DD(395.51,"IX",.01)=""
^DD(395.512,0)="DATA STRING IN SUB-FIELD^^.01^1"
^DD(395.512,0,"NM","DATA STRING IN")=""
^DD(395.512,0,"UP")="395.5"
^DD(395.512,.01,0)="DATA STRING IN^FI^^0;1^K:$L(X)>245!($L(X)<1) X"
^DD(395.512,.01,1,0)="^.1^^0"
^DD(395.512,.01,3)="Answer must be 1-245 characters in length."
^DD(395.512,.01,"DT")="2900322"
^DD(395.512,"B","DATA STRING IN",.01)=""
^DD(395.512,"GL",0,1,.01)=""
^DD(395.6,0,"PT",395.5,.01)=""
^DD(395.7,0)="FIELD^^6^6"
^DD(395.7,0,"DT")="2930701"
^DD(395.7,0,"IX","B",395.7,.01)=""
^DD(395.7,0,"NM","HINQ AUDIT")=""
^DD(395.7,0,"VR")="4"
^DD(395.7,.01,0)="PATIENT^RP2'X^DPT(^0;1^S DINUM=X Q"
^DD(395.7,.01,1,0)="^.1"
^DD(395.7,.01,1,1,0)="395.7^B"
^DD(395.7,.01,1,1,1)="S ^DVB(395.7,""B"",$E(X,1,30),DA)="""""
^DD(395.7,.01,1,1,2)="K ^DVB(395.7,""B"",$E(X,1,30),DA)"
^DD(395.7,.01,3)=""
^DD(395.7,.01,21,0)="^^1^1^2920117^^^"
^DD(395.7,.01,21,1,0)="This field points to the patient file for the person it is to keep track of."
^DD(395.7,1,0)="USER NAME^RP200'^VA(200,^0;2^Q"
^DD(395.7,1,"DT")="2920123"
^DD(395.7,2,0)="DATE/TIME^MRD^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(395.7,2,3)=""
^DD(395.7,4,0)="ALERT ACTION^S^c:CORRECTED ALERT;a:ACKNOWLEDGED ALERT;^0;4^Q"
^DD(395.7,4,21,0)="^^1^1^2930712^"
^DD(395.7,4,21,1,0)="The system uses this field to record the response to an alert."
^DD(395.7,4,"DT")="2930701"
^DD(395.7,5,0)="USER THAT PROCESSED ALERT^P200'^VA(200,^0;5^Q"
^DD(395.7,5,21,0)="^^1^1^2930712^"
^DD(395.7,5,21,1,0)="This field is used to record the user who corrected or acknowledged an alert."
^DD(395.7,5,"DT")="2930623"
^DD(395.7,6,0)="DATE/TIME ALERT WAS PROCESSED^D^^0;6^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(395.7,6,21,0)="^^2^2^2930712^"
^DD(395.7,6,21,1,0)="This field is used to record the date/time when an alert was corrected or"
^DD(395.7,6,21,2,0)="acknowledged."
^DD(395.7,6,"DT")="2930623"
^DD(395.7,"B","ALERT ACTION",4)=""
^DD(395.7,"B","DATE/TIME",2)=""
^DD(395.7,"B","DATE/TIME ALERT WAS PROCESSED",6)=""
^DD(395.7,"B","PATIENT",.01)=""
^DD(395.7,"B","USER NAME",1)=""
^DD(395.7,"B","USER THAT PROCESSED ALERT",5)=""
^DD(395.7,"GL",0,1,.01)=""
^DD(395.7,"GL",0,2,1)=""
^DD(395.7,"GL",0,3,2)=""
^DD(395.7,"GL",0,4,4)=""
^DD(395.7,"GL",0,5,5)=""
^DD(395.7,"GL",0,6,6)=""
^DD(395.7,"IX",.01)=""
^DD(395.7,"RQ",.01)=""
^DD(395.7,"RQ",1)=""
^DD(395.7,"RQ",2)=""
^DD(396,0)="FIELD^^30^89"
^DD(396,0,"DDA")="N"
^DD(396,0,"DT")="2941207"
^DD(396,0,"IX","AC",396,6.82)=""
^DD(396,0,"IX","AE1",396,4.6)=""
^DD(396,0,"IX","AE10",396,9.7)=""
^DD(396,0,"IX","AE11",396,11.6)=""
^DD(396,0,"IX","AE12",396,11.7)=""
^DD(396,0,"IX","AE13",396,13.6)=""
^DD(396,0,"IX","AE14",396,13.7)=""
^DD(396,0,"IX","AE15",396,15.6)=""
^DD(396,0,"IX","AE16",396,15.7)=""
^DD(396,0,"IX","AE17",396,17.6)=""
^DD(396,0,"IX","AE18",396,17.7)=""
^DD(396,0,"IX","AE19",396,18.6)=""
^DD(396,0,"IX","AE2",396,4.7)=""
^DD(396,0,"IX","AE20",396,18.7)=""
^DD(396,0,"IX","AE21",396,20.6)=""
^DD(396,0,"IX","AE22",396,20.7)=""
^DD(396,0,"IX","AE23",396,23)=""
^DD(396,0,"IX","AE24",396,29)=""
^DD(396,0,"IX","AE3",396,5.6)=""
^DD(396,0,"IX","AE4",396,5.7)=""
^DD(396,0,"IX","AE5",396,6.6)=""
^DD(396,0,"IX","AE6",396,6.7)=""
^DD(396,0,"IX","AE7",396,7.6)=""
^DD(396,0,"IX","AE8",396,7.7)=""
^DD(396,0,"IX","AE9",396,9.6)=""
^DD(396,0,"IX","AF1",396,4.6)=""
^DD(396,0,"IX","AF10",396,9.7)=""
^DD(396,0,"IX","AF11",396,11.6)=""
^DD(396,0,"IX","AF12",396,11.7)=""
^DD(396,0,"IX","AF13",396,13.6)=""
^DD(396,0,"IX","AF14",396,13.7)=""
^DD(396,0,"IX","AF15",396,15.6)=""
^DD(396,0,"IX","AF16",396,15.7)=""
^DD(396,0,"IX","AF17",396,17.6)=""
^DD(396,0,"IX","AF18",396,17.7)=""
^DD(396,0,"IX","AF19",396,18.6)=""
^DD(396,0,"IX","AF2",396,4.7)=""
^DD(396,0,"IX","AF20",396,18.7)=""
^DD(396,0,"IX","AF21",396,20.6)=""
^DD(396,0,"IX","AF22",396,20.7)=""
^DD(396,0,"IX","AF3",396,5.6)=""
^DD(396,0,"IX","AF4",396,5.7)=""
^DD(396,0,"IX","AF5",396,6.6)=""
^DD(396,0,"IX","AF6",396,6.7)=""
^DD(396,0,"IX","AF7",396,7.6)=""
^DD(396,0,"IX","AF8",396,7.7)=""
^DD(396,0,"IX","AF9",396,9.6)=""
^DD(396,0,"IX","B",396,.01)=""
^DD(396,0,"IX","E",396,23)=""
^DD(396,0,"IX","F",396,25)=""
^DD(396,0,"IX","G",396,3)=""
^DD(396,0,"NM","FORM 7131")=""
^DD(396,0,"VR")="2.7"
^DD(396,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(396,.01,1,0)="^.1^^-1"
^DD(396,.01,1,1,0)="396^B"
^DD(396,.01,1,1,1)="S ^DVB(396,""B"",$E(X,1,30),DA)="""""
^DD(396,.01,1,1,2)="K ^DVB(396,""B"",$E(X,1,30),DA)"
^DD(396,.01,3)="Enter the Veteran's name as it appears on the records or the last four.  The SSN may also be used for lookup."
^DD(396,.01,21,0)="^^2^2^2930503^^^"
^DD(396,.01,21,1,0)="Enter the patient's name, 'last four', or social security number."
^DD(396,.01,21,2,0)="This is the name of the patient from the PATIENT file."
^DD(396,.01,"DT")="2890920"
^DD(396,.5,0)="ADDITIONAL REMARKS^396.02^^5;0"
^DD(396,.5,21,0)="^^2^2^2930430^"
^DD(396,.5,21,1,0)="This field holds the remarks entered for a 7131 request.  It is a word"
^DD(396,.5,21,2,0)="processing field."
^DD(396,1,0)="C-NUMBER^CJ9^^ ; ^X ^DD(396,1,9.2) S Y(396,1,101)=$S($D(^DPT(D0,.31)):^(.31),1:"""") S X=$P(Y(396,1,101),U,3) S D0=Y(396,1,80)"
^DD(396,1,9)="^"
^DD(396,1,9.01)="2^.313;396^.01"
^DD(396,1,9.1)="PATIENT NAME:CLAIM NUMBER"
^DD(396,1,9.2)="S Y(396,1,80)=$S($D(D0):D0,1:""""),Y(396,1,1)=$S($D(^DVB(396,D0,0)):^(0),1:""""),D0=$P(Y(396,1,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(396,1,21,0)="^^1^1^2930503^^"
^DD(396,1,21,1,0)="The patient claim number, as it appears in the PATIENT file (#2)."
^DD(396,2,0)="SOC SEC NUMBER^CJ9^^ ; ^X ^DD(396,2,9.2) S X=$P(Y(396,2,101),U,9) S D0=Y(396,2,80)"
^DD(396,2,9)="^"
^DD(396,2,9.01)="2^.09;396^.01"
^DD(396,2,9.1)="PATIENT NAME:SSN"
^DD(396,2,9.2)="S Y(396,2,80)=$S($D(D0):D0,1:""""),Y(396,2,1)=$S($D(^DVB(396,D0,0)):^(0),1:""""),D0=$P(Y(396,2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(396,2,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(396,2,21,0)="^^1^1^2930503^^"
^DD(396,2,21,1,0)="This is the patient's SSN as it appears in the PATIENT file."
^DD(396,2,"DT")="2890902"
^DD(396,3,0)="ADMISSION DATE^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,3,1,0)="^.1"
^DD(396,3,1,1,0)="396^G"
^DD(396,3,1,1,1)="S ^DVB(396,""G"",$E(X,1,30),DA)="""""
^DD(396,3,1,1,2)="K ^DVB(396,""G"",$E(X,1,30),DA)"
^DD(396,3,3)="This field is computer maintained.  Alter only for corrections."
^DD(396,3,21,0)="^^1^1^2930430^"
^DD(396,3,21,1,0)="This is the admission date this request is associated with."
^DD(396,3,"DT")="2900222"
^DD(396,4,0)="NOTICE OF DISCHARGE^RS^YES:YES;NO:NO;^0;5^Q"
^DD(396,4,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,4,21,0)="^^1^1^2930430^"
^DD(396,4,21,1,0)="This field indicates if a notice of discharge is requested."
^DD(396,4.5,0)="NOTICE/DISCHG STATUS^S^P:PENDING;C:COMPLETED;^0;9^Q"
^DD(396,4.5,1,0)="^.1^^0"
^DD(396,4.5,3)="Enter C if this item is completed or RETURN to leave item as pending."
^DD(396,4.5,21,0)="^^1^1^2930430^"
^DD(396,4.5,21,1,0)="Indicates the status of the notice of discharge report."
^DD(396,4.5,"DT")="2891229"
^DD(396,4.6,0)="NOTICE OF DISCHARGE DIVISION^P40.8'^DG(40.8,^6;9^Q"
^DD(396,4.6,1,0)="^.1"
^DD(396,4.6,1,1,0)="396^AE1^MUMPS"
^DD(396,4.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,4)="""""
^DD(396,4.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,4)"
^DD(396,4.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,4.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,4.6,1,1,"%D",2,0)="It is on the Notice of Discharge Tran Date and Division."
^DD(396,4.6,1,1,"%D",3,0)=" "
^DD(396,4.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex "
^DD(396,4.6,1,1,"%D",5,0)="either the Notice of Discharge Tran Date or Division.  This will NOT reindex"
^DD(396,4.6,1,1,"%D",6,0)="the 'AE' X-ref on other fields in the file."
^DD(396,4.6,1,1,"DT")="2941201"
^DD(396,4.6,1,2,0)="396^AF1^MUMPS"
^DD(396,4.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),4)="""""
^DD(396,4.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,9) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),4)"
^DD(396,4.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,4.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,4.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,4.6,1,2,"%D",3,0)="It is on the Notice of Discharge Tran Date and Division."
^DD(396,4.6,1,2,"%D",4,0)=" "
^DD(396,4.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex "
^DD(396,4.6,1,2,"%D",6,0)="either the Notice of Discharge Tran Date or Division.  This will NOT reindex"
^DD(396,4.6,1,2,"%D",7,0)="the 'AF' X-ref on other fields in the file."
^DD(396,4.6,1,2,"DT")="2941201"
^DD(396,4.6,3)="Enter the division the Notice of Dishcarge is to be completed by."
^DD(396,4.6,21,0)="^^3^3^2941130^^"
^DD(396,4.6,21,1,0)="This field is a pointer to the Medical Center Division file.  It contains"
^DD(396,4.6,21,2,0)="the division the Notice of Discharge requested on the 7131 has been"
^DD(396,4.6,21,3,0)="transferred to."
^DD(396,4.6,23,0)="^^1^1^2941216^^^"
^DD(396,4.6,23,1,0)="This field is a pointer to file 40.8."
^DD(396,4.6,"DT")="2941201"
^DD(396,4.7,0)="NOTICE OF DISCHARGE TRAN DATE^D^^7;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,4.7,1,0)="^.1"
^DD(396,4.7,1,1,0)="396^AE2^MUMPS"
^DD(396,4.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,4)="""""
^DD(396,4.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,4)"
^DD(396,4.7,1,1,"%D",0)="^^2^2^2950126^^^^"
^DD(396,4.7,1,1,"%D",1,0)="This cross reference is used to print the New 7131 Report (Long)."
^DD(396,4.7,1,1,"%D",2,0)="It is on the Notice of Discharge Tran Date and Division."
^DD(396,4.7,1,1,"DT")="2941201"
^DD(396,4.7,1,2,0)="396^AF2^MUMPS"
^DD(396,4.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,4)="""""
^DD(396,4.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,9) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,4)"
^DD(396,4.7,1,2,"%D",0)="^^3^3^2950126^^^^"
^DD(396,4.7,1,2,"%D",1,0)="This cross reference is used to print the Pending 7131 Report and the New"
^DD(396,4.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,4.7,1,2,"%D",3,0)="It is on the Notice of Discharge Tran Date and Division."
^DD(396,4.7,1,2,"DT")="2941201"
^DD(396,4.7,3)="Enter the date the Notice of Discharge was transferred to another division."
^DD(396,4.7,21,0)="^^2^2^2941130^"
^DD(396,4.7,21,1,0)="This field contains the date the Notice of Discharge was transferred to"
^DD(396,4.7,21,2,0)="another division at a multi-divisional facility."
^DD(396,4.7,23,0)="^^1^1^2941130^"
^DD(396,4.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,4.7,"DT")="2941201"
^DD(396,4.8,0)="NOTICE/DISCHG COMPLETION DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,4.8,3)="Enter the date this item was completed by MAS."
^DD(396,4.8,21,0)="^^1^1^2930430^"
^DD(396,4.8,21,1,0)="Date the notice of discharge was completed."
^DD(396,4.8,"DT")="2900222"
^DD(396,4.9,0)="EDIT4.5^F^^1;13^K:$L(X)>25!($L(X)<1) X"
^DD(396,4.9,3)="Computer maintained field.  Alter only for corrections."
^DD(396,4.9,21,0)="^^1^1^2930503^^^"
^DD(396,4.9,21,1,0)="Holds name of person who last edited the NOTICE OF DISCHARGE field."
^DD(396,5,0)="HOSPITAL SUMMARY^RS^YES:YES;NO:NO;^0;6^Q"
^DD(396,5,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,5,21,0)="^^1^1^2930430^"
^DD(396,5,21,1,0)="Indicates whether a hospital summary has been selected."
^DD(396,5.5,0)="HOSPITAL SUMMARY STATUS^S^P:PENDING;C:COMPLETED;^0;11^Q"
^DD(396,5.5,1,0)="^.1^^0"
^DD(396,5.5,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,5.5,21,0)="^^1^1^2930430^"
^DD(396,5.5,21,1,0)="Indicates the status of the hospital summary report."
^DD(396,5.5,"DT")="2891229"
^DD(396,5.6,0)="HOSPITAL SUMMARY DIVISION^P40.8'^DG(40.8,^6;11^Q"
^DD(396,5.6,1,0)="^.1"
^DD(396,5.6,1,1,0)="396^AE3^MUMPS"
^DD(396,5.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,5)="""""
^DD(396,5.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,5)"
^DD(396,5.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,5.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,5.6,1,1,"%D",2,0)="It is on the Hospital Summary Tran Date and Division."
^DD(396,5.6,1,1,"%D",3,0)=" "
^DD(396,5.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex "
^DD(396,5.6,1,1,"%D",5,0)="either the Hospital Summary Tran Date or Division.  This will NOT reindex"
^DD(396,5.6,1,1,"%D",6,0)="the 'AE' X-ref on other fields in the file."
^DD(396,5.6,1,1,"DT")="2941201"
^DD(396,5.6,1,2,0)="396^AF3^MUMPS"
^DD(396,5.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),5)="""""
^DD(396,5.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,11) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),5)"
^DD(396,5.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,5.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,5.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,5.6,1,2,"%D",3,0)="It is on the Hospital Summary Tran Date and Division."
^DD(396,5.6,1,2,"%D",4,0)=" "
^DD(396,5.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex "
^DD(396,5.6,1,2,"%D",6,0)="either the Hospital Summary Tran Date or Division.  This will NOT reindex"
^DD(396,5.6,1,2,"%D",7,0)="the 'AF' X-ref on other fields in the file."
^DD(396,5.6,1,2,"DT")="2941201"
^DD(396,5.6,3)="Enter the division the Hospital Summary is to be completed by."
^DD(396,5.6,21,0)="^^2^2^2941129^"
^DD(396,5.6,21,1,0)="This field contains the division the Hospital Summary on the 7131 was"
^DD(396,5.6,21,2,0)="transferred to."
^DD(396,5.6,23,0)="^^1^1^2941129^"
^DD(396,5.6,23,1,0)="This field is a pointer to the Medical Center Division File (40.8)."
^DD(396,5.6,"DT")="2941201"
^DD(396,5.7,0)="HOSPITAL SUMMARY TRAN DATE^D^^7;11^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,5.7,1,0)="^.1"
^DD(396,5.7,1,1,0)="396^AE4^MUMPS"
^DD(396,5.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,5)="""""
^DD(396,5.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,5)"
^DD(396,5.7,1,1,"%D",0)="^^2^2^2950126^^^^"
^DD(396,5.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,5.7,1,1,"%D",2,0)="It is on the Hospital Summary Tran Date and Division."
^DD(396,5.7,1,1,"DT")="2941201"
^DD(396,5.7,1,2,0)="396^AF4^MUMPS"
^DD(396,5.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,5)="""""
^DD(396,5.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,11) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,5)"
^DD(396,5.7,1,2,"%D",0)="^^3^3^2950126^^^^"
^DD(396,5.7,1,2,"%D",1,0)="This cross reference is used to print the Pending 7131 Report and the New"
^DD(396,5.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,5.7,1,2,"%D",3,0)="It is on the Hospital Summary Tran Date and Division."
^DD(396,5.7,1,2,"DT")="2941201"
^DD(396,5.7,3)="Enter the date the Hospital Summary was transferred to another division."
^DD(396,5.7,21,0)="^^2^2^2941130^"
^DD(396,5.7,21,1,0)="This field contains the date the Hospital Summary was transferred to"
^DD(396,5.7,21,2,0)="another division at a multi-divisional facility."
^DD(396,5.7,23,0)="^^1^1^2941130^"
^DD(396,5.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,5.7,"DT")="2941201"
^DD(396,5.8,0)="HOSP SUMMARY COMPLETION DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,5.8,3)="Enter the date this item was completed by MAS."
^DD(396,5.8,21,0)="^^1^1^2930430^"
^DD(396,5.8,21,1,0)="The date the hospital summary was completed."
^DD(396,5.8,"DT")="2900222"
^DD(396,5.9,0)="EDIT5.5^F^^1;14^K:$L(X)>25!($L(X)<1) X"
^DD(396,5.9,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,5.9,21,0)="^^1^1^2930503^^^"
^DD(396,5.9,21,1,0)="Holds the name of the person who last edited the hospital summary status."
^DD(396,6,0)="CERTIFICATE (21-DAY)^RS^YES:YES;NO:NO;^0;7^Q"
^DD(396,6,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,6,21,0)="^^1^1^2940304^^"
^DD(396,6,21,1,0)="Indicates whether a 21 day certificate is selected."
^DD(396,6.5,0)="(21-DAY) CERTIFICATE STATUS^S^P:PENDING;C:COMPLETED;^0;13^Q"
^DD(396,6.5,1,0)="^.1^^0"
^DD(396,6.5,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,6.5,21,0)="^^1^1^2930430^"
^DD(396,6.5,21,1,0)="Indicates the status of the 21 day certificate."
^DD(396,6.5,"DT")="2891229"
^DD(396,6.6,0)="CERTIFICATE (21-DAY) DIVISION^P40.8'^DG(40.8,^6;13^Q"
^DD(396,6.6,1,0)="^.1"
^DD(396,6.6,1,1,0)="396^AE5^MUMPS"
^DD(396,6.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,6)="""""
^DD(396,6.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,6)"
^DD(396,6.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,6.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,6.6,1,1,"%D",2,0)="It is on the 21-Day Cert Tran Date and Division."
^DD(396,6.6,1,1,"%D",3,0)=" "
^DD(396,6.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex "
^DD(396,6.6,1,1,"%D",5,0)="either the 21-Day Cert Tran Date or Division.  This will NOT reindex"
^DD(396,6.6,1,1,"%D",6,0)="the 'AE' X-ref on other fields in the file."
^DD(396,6.6,1,1,"DT")="2941201"
^DD(396,6.6,1,2,0)="396^AF5^MUMPS"
^DD(396,6.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),6)="""""
^DD(396,6.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,13) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),6)"
^DD(396,6.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,6.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and"
^DD(396,6.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,6.6,1,2,"%D",3,0)="It is on the 21-Day Cert Tran Date and Division."
^DD(396,6.6,1,2,"%D",4,0)=" "
^DD(396,6.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex "
^DD(396,6.6,1,2,"%D",6,0)="either the 21-Day Cert Tran Date or Division.  This will NOT reindex"
^DD(396,6.6,1,2,"%D",7,0)="the 'AF' X-ref on other fields in the file."
^DD(396,6.6,1,2,"DT")="2941201"
^DD(396,6.6,3)="Enter the division the 21-Day Certificate is to be completed by."
^DD(396,6.6,21,0)="^^2^2^2941207^^^"
^DD(396,6.6,21,1,0)="This field contains the division the 21 Day Certificate was transferred to"
^DD(396,6.6,21,2,0)="on the 7131."
^DD(396,6.6,23,0)="^^1^1^2941207^^^"
^DD(396,6.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,6.6,"DT")="2941201"
^DD(396,6.7,0)="CERTIFICATE (21-DAY) TRAN DATE^D^^7;13^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,6.7,1,0)="^.1"
^DD(396,6.7,1,1,0)="396^AE6^MUMPS"
^DD(396,6.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,6)="""""
^DD(396,6.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,6)"
^DD(396,6.7,1,1,"%D",0)="^^2^2^2950126^^^^"
^DD(396,6.7,1,1,"%D",1,0)="This cross reference is used to print the New 7131 Report (Long)."
^DD(396,6.7,1,1,"%D",2,0)="It is on the 21-Day Cert Tran Date and Division."
^DD(396,6.7,1,1,"DT")="2941201"
^DD(396,6.7,1,2,0)="396^AF6^MUMPS"
^DD(396,6.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,6)="""""
^DD(396,6.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,13) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,6)"
^DD(396,6.7,1,2,"%D",0)="^^3^3^2950126^^^^"
^DD(396,6.7,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,6.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,6.7,1,2,"%D",3,0)="It is on the 21-Day Cert Tran Date and Division."
^DD(396,6.7,1,2,"DT")="2941201"
^DD(396,6.7,3)="Enter the date the 21-Day Cert was transferred to another division."
^DD(396,6.7,21,0)="^^2^2^2941207^^"
^DD(396,6.7,21,1,0)="This field contains the date the 21-Day Certificate was transferred to"
^DD(396,6.7,21,2,0)="another division at a multi-divisional facility."
^DD(396,6.7,23,0)="^^1^1^2941207^^"
^DD(396,6.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,6.7,"DT")="2941201"
^DD(396,6.8,0)="(21-DAY) COMPLETION DATE^D^^0;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,6.8,1,0)="^.1^^0"
^DD(396,6.8,3)="Enter the date this item was completed by MAS."
^DD(396,6.8,21,0)="^^1^1^2930430^"
^DD(396,6.8,21,1,0)="Indicates the date the 21 day certificate was completed."
^DD(396,6.8,"DT")="2940707"
^DD(396,6.81,0)="21 DAY CERT TEXT^396.01^^3;0"
^DD(396,6.81,21,0)="^^1^1^2930430^"
^DD(396,6.81,21,1,0)="This field contains the text of the 21 day certificate."
^DD(396,6.82,0)="21 DAY CERT RELEASE STATUS^S^R:RELEASED, READY TO PRINT;P:PRINTED BY RO;N:NEW;^4;1^Q"
^DD(396,6.82,1,0)="^.1"
^DD(396,6.82,1,1,0)="396^AC^MUMPS"
^DD(396,6.82,1,1,1)="N DVBALOC,DVBADA S DVBADA=$P(^DVB(396,DA,0),U,1),DVBALOC=$$STATION^DVBAUTL1(DVBADA) Q:DVBALOC=-1  S ^DVB(396,""AC"",DVBALOC,$E(X,1,30),DA)="""""
^DD(396,6.82,1,1,2)="N DVBALOC,DVBADA S DVBADA=$P(^DVB(396,DA,0),U,1),DVBALOC=$$STATION^DVBAUTL1(DVBADA) Q:DVBALOC=-1  K ^DVB(396,""AC"",DVBALOC,$E(X,1,30),DA)"
^DD(396,6.82,1,1,"%D",0)="^^2^2^2950104^^^^"
^DD(396,6.82,1,1,"%D",1,0)="This cross reference orders 21 Day Certificates by their release status and"
^DD(396,6.82,1,1,"%D",2,0)="Claim folder location."
^DD(396,6.82,1,1,"DT")="2950104"
^DD(396,6.82,3)="This is maintained by editing programs.  Change only for corrections."
^DD(396,6.82,21,0)="^^3^3^2930503^^^^"
^DD(396,6.82,21,1,0)="Indicates the various stages of the 21 day certificate process.  There are"
^DD(396,6.82,21,2,0)="three stages defined here; released and ready to be printed by the RO, "
^DD(396,6.82,21,3,0)="printed by the RO, and new - ready for processing."
^DD(396,6.82,"DT")="2950104"
^DD(396,6.83,0)="21 DAY CERT MAS RELEASE DATE^D^^4;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,6.83,3)="Enter the date the 21-day certificate was released by MAS."
^DD(396,6.83,21,0)="^^1^1^2930430^^"
^DD(396,6.83,21,1,0)="This is the date the certificate was released by MAS to the Regional Office."
^DD(396,6.83,"DT")="2900222"
^DD(396,6.84,0)="21 DAY CERT RELEASED BY^P200'^VA(200,^4;3^Q"
^DD(396,6.84,3)="Enter the DUZ or name of the person releasing the certificate."
^DD(396,6.84,21,0)="^^2^2^2930430^"
^DD(396,6.84,21,1,0)="This field contains the name of the person who released the 21 day"
^DD(396,6.84,21,2,0)="certificate."
^DD(396,6.84,"DT")="2930128"
^DD(396,6.85,0)="DATE 21 DAY CERT PRINTED BY RO^D^^4;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,6.85,3)="This is the date the certificate was actually printed by the Regional Office."
^DD(396,6.85,21,0)="^^1^1^2930430^^"
^DD(396,6.85,21,1,0)="Contains the date the 21 day certificate was printed by the Regional Office."
^DD(396,6.85,"DT")="2900222"
^DD(396,6.86,0)="21 DAY CERT TO DATE^D^^4;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,6.86,3)="This is the date through which the certificate length of stay was calculated."
^DD(396,6.86,21,0)="^^2^2^2950126^^^"
^DD(396,6.86,21,1,0)="Contains the date to which the 21 day certificate length of stay"
^DD(396,6.86,21,2,0)="was calculated."
^DD(396,6.86,"DT")="2900301"
^DD(396,6.87,0)="21 DAY CERT WARD^F^^4;6^K:$L(X)>15!($L(X)<1) X"
^DD(396,6.87,3)="Enter the ward of the patient on the certificate date."
^DD(396,6.87,21,0)="^^2^2^2940304^^"
^DD(396,6.87,21,1,0)="Contains the ward the patient was on when the 21 day certificate was"
^DD(396,6.87,21,2,0)="generated."
^DD(396,6.88,0)="21 DAY CERT BED^F^^4;7^K:$L(X)>10!($L(X)<1) X"
^DD(396,6.88,3)="Enter the bed number of the patient on the certificate date."
^DD(396,6.88,21,0)="^^2^2^2930430^"
^DD(396,6.88,21,1,0)="Contains the location of the bed the patient occupied when the certificate"
^DD(396,6.88,21,2,0)="was generated."
^DD(396,6.89,0)="21 DAY CERT PRINTED BY^F^^4;8^K:$L(X)>35!($L(X)<3) X"
^DD(396,6.89,.1)=""
^DD(396,6.89,3)="The name of the person at the Regional Office who actually printed out the 21-day certificate."
^DD(396,6.89,21,0)="^^1^1^2930503^^^"
^DD(396,6.89,21,1,0)="This is the name of the Regional Office employee who printed the certificate."
^DD(396,6.9,0)="EDIT6.5^F^^1;15^K:$L(X)>25!($L(X)<1) X"
^DD(396,6.9,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,6.9,21,0)="^^1^1^2930430^^"
^DD(396,6.9,21,1,0)="Holds the name of the person who last edited the 21 day certificate status."
^DD(396,7,0)="OTHER/EXAM (REVIEW REMARKS)^RS^YES:YES;NO:NO;^0;8^Q"
^DD(396,7,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,7,21,0)="^^2^2^2950210^^^"
^DD(396,7,21,1,0)="Indicates that the user should review the REMARKS section for further "
^DD(396,7,21,2,0)="instructions concerning this request."
^DD(396,7,"DT")="2950210"
^DD(396,7.6,0)="OTHER/EXAM LISTED IN REM DIV^P40.8'^DG(40.8,^6;15^Q"
^DD(396,7.6,1,0)="^.1"
^DD(396,7.6,1,1,0)="396^AE7^MUMPS"
^DD(396,7.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,7)="""""
^DD(396,7.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,7)"
^DD(396,7.6,1,1,"%D",0)="^^6^6^2950214^^^^"
^DD(396,7.6,1,1,"%D",1,0)="This cross reference is used to print the New 7131 Report (Long)."
^DD(396,7.6,1,1,"%D",2,0)="It is on the OTHER/EXAM LISTED TRAN DATE and Division."
^DD(396,7.6,1,1,"%D",3,0)=" "
^DD(396,7.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex "
^DD(396,7.6,1,1,"%D",5,0)="either the OTHER/EXAM LISTED TRAN DATE or Division.  This will NOT "
^DD(396,7.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,7.6,1,1,"DT")="2941201"
^DD(396,7.6,1,2,0)="396^AF7^MUMPS"
^DD(396,7.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),7)="""""
^DD(396,7.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,15) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),7)"
^DD(396,7.6,1,2,"%D",0)="^^7^7^2950214^^^^"
^DD(396,7.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,7.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,7.6,1,2,"%D",3,0)="It is on the OTHER/EXAM LISTED TRAN DATE and Division."
^DD(396,7.6,1,2,"%D",4,0)=" "
^DD(396,7.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,7.6,1,2,"%D",6,0)="either the OTHER/EXAM LISTED TRAN DATE or Division.  This will NOT "
^DD(396,7.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,7.6,1,2,"DT")="2941201"
^DD(396,7.6,3)="Enter the Medical Center division to which the Exam of Cond's is transferred."
^DD(396,7.6,21,0)="^^2^2^2950210^^^"
^DD(396,7.6,21,1,0)="This field contains the division the OTHER/EXAM  Listed in Remarks"
^DD(396,7.6,21,2,0)="was transferred to."
^DD(396,7.6,23,0)="^^1^1^2941130^^"
^DD(396,7.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,7.6,"DT")="2950210"
^DD(396,7.7,0)="OTHER/EXAM LISTED TRAN DATE^D^^7;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,7.7,1,0)="^.1"
^DD(396,7.7,1,1,0)="396^AE8^MUMPS"
^DD(396,7.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,7)="""""
^DD(396,7.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,7)"
^DD(396,7.7,1,1,"%D",0)="^^2^2^2950214^^^^"
^DD(396,7.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,7.7,1,1,"%D",2,0)="It is on the OTHER/EXAM LISTED TRAN DATE and Division."
^DD(396,7.7,1,1,"DT")="2941201"
^DD(396,7.7,1,2,0)="396^AF8^MUMPS"
^DD(396,7.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,7)="""""
^DD(396,7.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,15) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,7)"
^DD(396,7.7,1,2,"%D",0)="^^3^3^2950214^^^^"
^DD(396,7.7,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,7.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,7.7,1,2,"%D",3,0)="It is on the OTHER/EXAM LISTED TRAN DATE and Division."
^DD(396,7.7,1,2,"DT")="2941201"
^DD(396,7.7,3)="Enter the date the Exam of Conditions listed was transferred to another division."
^DD(396,7.7,21,0)="^^2^2^2950210^^"
^DD(396,7.7,21,1,0)="This field contains the date the OTHER/EXAM Listed in Remarks was"
^DD(396,7.7,21,2,0)="transferred to another division in a multi-divisional facility."
^DD(396,7.7,23,0)="^^1^1^2941130^"
^DD(396,7.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,7.7,"DT")="2950210"
^DD(396,8,0)="STATUS OF OTHER/EXAM^S^P:PENDING;C:COMPLETED;^0;15^Q"
^DD(396,8,1,0)="^.1^^0"
^DD(396,8,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,8,21,0)="^^1^1^2950210^^^"
^DD(396,8,21,1,0)="Indicates the status of the OTHER/EXAM listed in the ADDITIONAL REMARKS field."
^DD(396,8,"DT")="2950210"
^DD(396,8.5,0)="OTHER/EXAM COMPLETION DATE^D^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,8.5,3)="Enter the date this item was completed by MAS."
^DD(396,8.5,21,0)="^^1^1^2950210^^"
^DD(396,8.5,21,1,0)="This is the date that this report was completed."
^DD(396,8.5,"DT")="2950210"
^DD(396,8.7,0)="EDIT8^F^^1;16^K:$L(X)>25!($L(X)<1) X"
^DD(396,8.7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,8.7,21,0)="^^1^1^2930430^^"
^DD(396,8.7,21,1,0)="Holds the name of the person who last edited the STATUS OF EXAM CONDITIONS."
^DD(396,9,0)="SPECIAL REPORT^RS^YES:YES;NO:NO;^0;16^Q"
^DD(396,9,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,9,21,0)="^^1^1^2930430^"
^DD(396,9,21,1,0)="Indicates whether a special report is requested."
^DD(396,9.6,0)="SPECIAL REPORT DIVISION^P40.8'^DG(40.8,^6;17^Q"
^DD(396,9.6,1,0)="^.1"
^DD(396,9.6,1,1,0)="396^AE9^MUMPS"
^DD(396,9.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,9)="""""
^DD(396,9.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,9)"
^DD(396,9.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,9.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,9.6,1,1,"%D",2,0)="It is on the Special Report Tran Date and Division."
^DD(396,9.6,1,1,"%D",3,0)=" "
^DD(396,9.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex"
^DD(396,9.6,1,1,"%D",5,0)="either the Special Report Tran Date or Division.  This will NOT "
^DD(396,9.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,9.6,1,1,"DT")="2941201"
^DD(396,9.6,1,2,0)="396^AF9^MUMPS"
^DD(396,9.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),9)="""""
^DD(396,9.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,17) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),9)"
^DD(396,9.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,9.6,1,2,"%D",1,0)="This cross reference is used to print the Pending 7131 Report and the New"
^DD(396,9.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,9.6,1,2,"%D",3,0)="It is on the Special Report Tran Date and Division."
^DD(396,9.6,1,2,"%D",4,0)=" "
^DD(396,9.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,9.6,1,2,"%D",6,0)="either the Special Report Tran Date or Division.  This will NOT "
^DD(396,9.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,9.6,1,2,"DT")="2941201"
^DD(396,9.6,3)="Enter the Medical Center division which the Special Report is transferred to."
^DD(396,9.6,21,0)="^^1^1^2941130^^"
^DD(396,9.6,21,1,0)="This field contains the division the Special Report was transferred to."
^DD(396,9.6,23,0)="^^1^1^2941130^^"
^DD(396,9.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,9.6,"DT")="2941201"
^DD(396,9.7,0)="SPECIAL REPORT TRAN DATE^D^^7;17^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,9.7,1,0)="^.1"
^DD(396,9.7,1,1,0)="396^AE10^MUMPS"
^DD(396,9.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,9)="""""
^DD(396,9.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,9)"
^DD(396,9.7,1,1,"%D",0)="^^2^2^2950126^^^^"
^DD(396,9.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,9.7,1,1,"%D",2,0)="It is on the Special Report Tran Date and Division."
^DD(396,9.7,1,1,"DT")="2941201"
^DD(396,9.7,1,2,0)="396^AF10^MUMPS"
^DD(396,9.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,9)="""""
^DD(396,9.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,17) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,9)"
^DD(396,9.7,1,2,"%D",0)="^^3^3^2950126^^^^"
^DD(396,9.7,1,2,"%D",1,0)="This cross reference is used to print the Pending 7131 Report and the New"
^DD(396,9.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,9.7,1,2,"%D",3,0)="It is on the Special Report Tran Date and Division."
^DD(396,9.7,1,2,"DT")="2941201"
^DD(396,9.7,3)="Enter the date the Special Report was transferred to another division."
^DD(396,9.7,21,0)="^^2^2^2941130^"
^DD(396,9.7,21,1,0)="This field contains the date the Special Report was transferred to another"
^DD(396,9.7,21,2,0)="division at a multi-divisional facility."
^DD(396,9.7,23,0)="^^1^1^2941130^"
^DD(396,9.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,9.7,"DT")="2941201"
^DD(396,10,0)="STATUS OF SPECIAL REPORT^S^P:PENDING;C:COMPLETED;^0;17^Q"
^DD(396,10,1,0)="^.1^^0"
^DD(396,10,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,10,21,0)="^^1^1^2930430^"
^DD(396,10,21,1,0)="Indicates the status of the special report."
^DD(396,10,"DT")="2891229"
^DD(396,10.5,0)="SPECIAL REPORT COMPLETION DATE^D^^1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,10.5,3)="Enter the date this item was completed by MAS."
^DD(396,10.5,21,0)="^^1^1^2930503^^"
^DD(396,10.5,21,1,0)="Contains the date on which the special report was completed."
^DD(396,10.5,"DT")="2900222"
^DD(396,10.7,0)="EDIT10^F^^1;17^K:$L(X)>25!($L(X)<1) X"
^DD(396,10.7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,10.7,21,0)="^^1^1^2930430^^"
^DD(396,10.7,21,1,0)="Holds the name of the person who last edited the STATUS OF SPECIAL REPORT."
^DD(396,11,0)="COMPETENCY REPORT^RS^YES:YES;NO:NO;^0;18^Q"
^DD(396,11,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,11,21,0)="^^1^1^2930503^^"
^DD(396,11,21,1,0)="Indicates whether or not a competency report has been selected."
^DD(396,11.6,0)="COMPETENCY REPORT DIVISION^P40.8'^DG(40.8,^6;19^Q"
^DD(396,11.6,1,0)="^.1"
^DD(396,11.6,1,1,0)="396^AE11^MUMPS"
^DD(396,11.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,11)="""""
^DD(396,11.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,11)"
^DD(396,11.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,11.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,11.6,1,1,"%D",2,0)="It is on the Competency Report Tran Date and Division."
^DD(396,11.6,1,1,"%D",3,0)=" "
^DD(396,11.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex"
^DD(396,11.6,1,1,"%D",5,0)="either the Competency Report Tran Date or Division.  This will NOT "
^DD(396,11.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,11.6,1,1,"DT")="2941201"
^DD(396,11.6,1,2,0)="396^AF11^MUMPS"
^DD(396,11.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),11)="""""
^DD(396,11.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,19) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),11)"
^DD(396,11.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,11.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,11.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,11.6,1,2,"%D",3,0)="It is on the Competency Report Tran Date and Division."
^DD(396,11.6,1,2,"%D",4,0)=" "
^DD(396,11.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,11.6,1,2,"%D",6,0)="either the Competency Report Tran Date or Division.  This will NOT "
^DD(396,11.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,11.6,1,2,"DT")="2941201"
^DD(396,11.6,3)="Enter the Medical Center division which the Competency Rpt is transferred to."
^DD(396,11.6,21,0)="^^1^1^2941130^^"
^DD(396,11.6,21,1,0)="This field contains the division the Special Report was transferred to."
^DD(396,11.6,23,0)="^^1^1^2941130^^"
^DD(396,11.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,11.6,"DT")="2941201"
^DD(396,11.7,0)="COMPETENCY REPORT TRAN DATE^D^^7;19^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,11.7,1,0)="^.1"
^DD(396,11.7,1,1,0)="396^AE12^MUMPS"
^DD(396,11.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,11)="""""
^DD(396,11.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,11)"
^DD(396,11.7,1,1,"%D",0)="^^2^2^2950126^^^^"
^DD(396,11.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,11.7,1,1,"%D",2,0)="It is on the Competency Report Tran Date and Division."
^DD(396,11.7,1,1,"DT")="2941201"
^DD(396,11.7,1,2,0)="396^AF12^MUMPS"
^DD(396,11.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,11)="""""
^DD(396,11.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,19) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,11)"
^DD(396,11.7,1,2,"%D",0)="^^3^3^2950126^^^^"
^DD(396,11.7,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,11.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,11.7,1,2,"%D",3,0)="It is on the Competency Report Tran Date and Division."
^DD(396,11.7,1,2,"DT")="2941201"
^DD(396,11.7,3)="Enter the date the Competency Rpt was transferred to another division."
^DD(396,11.7,21,0)="^^2^2^2950126^^"
^DD(396,11.7,21,1,0)="This field contains the date the Competency Report was transferred to"
^DD(396,11.7,21,2,0)="another division at a multidivisional facility."
^DD(396,11.7,23,0)="^^1^1^2941130^"
^DD(396,11.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,11.7,"DT")="2941201"
^DD(396,12,0)="STATUS OF COMPETENCY REPORT^S^P:PENDING;C:COMPLETED;^0;19^Q"
^DD(396,12,1,0)="^.1^^0"
^DD(396,12,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,12,21,0)="^^1^1^2930430^"
^DD(396,12,21,1,0)="Indicates the current status of this report."
^DD(396,12,"DT")="2891229"
^DD(396,12.5,0)="COMPETENCY RPT COMPLETION DATE^D^^1;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,12.5,3)="Enter the date this item was completed by MAS."
^DD(396,12.5,21,0)="^^1^1^2930430^"
^DD(396,12.5,21,1,0)="This is the date the competency report was completed by MAS."
^DD(396,12.5,"DT")="2900222"
^DD(396,12.7,0)="EDIT12^F^^1;18^K:$L(X)>25!($L(X)<1) X"
^DD(396,12.7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,12.7,21,0)="^^1^1^2930430^^"
^DD(396,12.7,21,1,0)="Holds the name of the person who last edited the STATUS OF COMPETENCY REPORT."
^DD(396,13,0)="VA FORM 21-2680^RS^YES:YES;NO:NO;^0;20^Q"
^DD(396,13,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,13,21,0)="^^1^1^2940304^^^^"
^DD(396,13,21,1,0)="Indicates whether a VA FORM 21-2680 is requested."
^DD(396,13.6,0)="VA FORM 21-2680 DIVISION^P40.8'^DG(40.8,^6;21^Q"
^DD(396,13.6,1,0)="^.1"
^DD(396,13.6,1,1,0)="396^AE13^MUMPS"
^DD(396,13.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,13)="""""
^DD(396,13.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,13)"
^DD(396,13.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,13.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,13.6,1,1,"%D",2,0)="It is on the 21-2680 Tran Date and Division."
^DD(396,13.6,1,1,"%D",3,0)=" "
^DD(396,13.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex"
^DD(396,13.6,1,1,"%D",5,0)="either the 21-2680 Tran Date or Division.  This will NOT "
^DD(396,13.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,13.6,1,1,"DT")="2941201"
^DD(396,13.6,1,2,0)="396^AF13^MUMPS"
^DD(396,13.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),13)="""""
^DD(396,13.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,21) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),13)"
^DD(396,13.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,13.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,13.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,13.6,1,2,"%D",3,0)="It is on the 21-2680 Tran Date and Division."
^DD(396,13.6,1,2,"%D",4,0)=" "
^DD(396,13.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,13.6,1,2,"%D",6,0)="either the 21-2680 Tran Date or Division.  This will NOT "
^DD(396,13.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,13.6,1,2,"DT")="2941201"
^DD(396,13.6,3)="Enter the Medical Center division which the 21-2680 is transferred to."
^DD(396,13.6,21,0)="^^1^1^2941130^"
^DD(396,13.6,21,1,0)="This field contains the division the VA Form 21-2680 was transferred to."
^DD(396,13.6,23,0)="^^1^1^2941130^"
^DD(396,13.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,13.6,"DT")="2941201"
^DD(396,13.7,0)="VA FORM 21-2680 TRAN DATE^D^^7;21^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,13.7,1,0)="^.1"
^DD(396,13.7,1,1,0)="396^AE14^MUMPS"
^DD(396,13.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,13)="""""
^DD(396,13.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,13)"
^DD(396,13.7,1,1,"%D",0)="^^2^2^2950126^^^"
^DD(396,13.7,1,1,"%D",1,0)="This cross reference is used to print the New 7131 Report (Long)."
^DD(396,13.7,1,1,"%D",2,0)="It is on the 21-2680 Tran Date and Division."
^DD(396,13.7,1,1,"DT")="2941201"
^DD(396,13.7,1,2,0)="396^AF14^MUMPS"
^DD(396,13.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,13)="""""
^DD(396,13.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,21) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,13)"
^DD(396,13.7,1,2,"%D",0)="^^3^3^2950126^^^"
^DD(396,13.7,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,13.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,13.7,1,2,"%D",3,0)="It is on the 21-2680 Tran Date and Division."
^DD(396,13.7,1,2,"DT")="2941201"
^DD(396,13.7,3)="Enter the date the 21-2680 was transferred to another division."
^DD(396,13.7,21,0)="^^2^2^2950126^^^"
^DD(396,13.7,21,1,0)="This field contains the date the VA Form 21-2680 was transferred to another"
^DD(396,13.7,21,2,0)="division in a multidivisonal facility."
^DD(396,13.7,23,0)="^^1^1^2941130^"
^DD(396,13.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,13.7,"DT")="2941201"
^DD(396,14,0)="STATUS OF VA FORM 21-2680^S^P:PENDING;C:COMPLETED;^0;21^Q"
^DD(396,14,1,0)="^.1^^0"
^DD(396,14,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,14,21,0)="^^1^1^2930430^"
^DD(396,14,21,1,0)="Indicates the current status of this report."
^DD(396,14,"DT")="2891229"
^DD(396,14.5,0)="FORM 21-2680 COMPLETION DATE^D^^1;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,14.5,3)="Enter the date this item was completed by MAS."
^DD(396,14.5,21,0)="^^1^1^2930430^"
^DD(396,14.5,21,1,0)="The date this report was completed by MAS."
^DD(396,14.5,"DT")="2900222"
^DD(396,14.7,0)="EDIT14^F^^2;1^K:$L(X)>25!($L(X)<1) X"
^DD(396,14.7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,14.7,21,0)="^^1^1^2930430^^"
^DD(396,14.7,21,1,0)="Holds the name of the person who last edited STATUS OF VA FORM 21-2680."
^DD(396,15,0)="ASSET INFORMATION^RS^YES:YES;NO:NO;^0;22^Q"
^DD(396,15,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,15,21,0)="^^1^1^2930430^"
^DD(396,15,21,1,0)="Indicates whether asset information is requested."
^DD(396,15.6,0)="ASSET INFORMATION DIVISION^P40.8'^DG(40.8,^6;23^Q"
^DD(396,15.6,1,0)="^.1"
^DD(396,15.6,1,1,0)="396^AE15^MUMPS"
^DD(396,15.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,15)="""""
^DD(396,15.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,15)"
^DD(396,15.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,15.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,15.6,1,1,"%D",2,0)="It is on the Asset Information Tran Date and Division."
^DD(396,15.6,1,1,"%D",3,0)=" "
^DD(396,15.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex"
^DD(396,15.6,1,1,"%D",5,0)="either the Asset Information Tran Date or Division.  This will NOT "
^DD(396,15.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,15.6,1,1,"DT")="2941201"
^DD(396,15.6,1,2,0)="396^AF15^MUMPS"
^DD(396,15.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),15)="""""
^DD(396,15.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,23) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),15)"
^DD(396,15.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,15.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,15.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,15.6,1,2,"%D",3,0)="It is on the Asset Information Tran Date and Division."
^DD(396,15.6,1,2,"%D",4,0)=" "
^DD(396,15.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,15.6,1,2,"%D",6,0)="either the Asset Information Tran Date or Division.  This will NOT "
^DD(396,15.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,15.6,1,2,"DT")="2941201"
^DD(396,15.6,3)="Enter the Medical Center division which the Asset Info is transferred to."
^DD(396,15.6,21,0)="^^1^1^2941130^"
^DD(396,15.6,21,1,0)="This field contains the division the Asset Information was transferred to."
^DD(396,15.6,23,0)="^^1^1^2941130^"
^DD(396,15.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,15.6,"DT")="2941201"
^DD(396,15.7,0)="ASSET INFORMATION TRAN DATE^D^^7;23^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,15.7,1,0)="^.1"
^DD(396,15.7,1,1,0)="396^AE16^MUMPS"
^DD(396,15.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,15)="""""
^DD(396,15.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,15)"
^DD(396,15.7,1,1,"%D",0)="^^2^2^2950126^^^^"
^DD(396,15.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,15.7,1,1,"%D",2,0)="It is on the Asset Information Tran Date and Division."
^DD(396,15.7,1,1,"DT")="2941201"
^DD(396,15.7,1,2,0)="396^AF16^MUMPS"
^DD(396,15.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,15)="""""
^DD(396,15.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,23) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,15)"
^DD(396,15.7,1,2,"%D",0)="^^3^3^2950126^^^^"
^DD(396,15.7,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,15.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,15.7,1,2,"%D",3,0)="It is on the Asset Information Tran Date and Division."
^DD(396,15.7,1,2,"DT")="2941201"
^DD(396,15.7,3)="Enter the date the Asset Information was transferred to another division."
^DD(396,15.7,21,0)="^^2^2^2950126^^"
^DD(396,15.7,21,1,0)="This field contains the date the Asset Information was transferred to"
^DD(396,15.7,21,2,0)="another division in a multidivisional facility."
^DD(396,15.7,23,0)="^^1^1^2941130^"
^DD(396,15.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,15.7,"DT")="2941201"
^DD(396,16,0)="STATUS OF ASSET INFORMATION^S^P:PENDING;C:COMPLETED;^0;23^Q"
^DD(396,16,1,0)="^.1^^0"
^DD(396,16,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,16,21,0)="^^1^1^2930430^"
^DD(396,16,21,1,0)="Status of the requested asset information report."
^DD(396,16,"DT")="2891229"
^DD(396,16.5,0)="ASSET INFO COMPLETION DATE^D^^1;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,16.5,3)="Enter the date this item was completed by MAS."
^DD(396,16.5,21,0)="^^1^1^2930430^^^^"
^DD(396,16.5,21,1,0)="This is the date the asset information was completed by MAS."
^DD(396,16.5,"DT")="2900222"
^DD(396,16.7,0)="EDIT16^F^^2;2^K:$L(X)>25!($L(X)<1) X"
^DD(396,16.7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,16.7,21,0)="^^1^1^2930430^^"
^DD(396,16.7,21,1,0)="Holds the name of the person who last edited STATUS OF ASSET INFORMATION."
^DD(396,17,0)="ADMISSION REPORT^RS^YES:YES;NO:NO;^0;24^Q"
^DD(396,17,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,17,21,0)="^^1^1^2930430^"
^DD(396,17,21,1,0)="Indicates whether an admission report was requested."
^DD(396,17.4,0)="ADMISSION REPORT STATUS^S^P:PENDING;C:COMPLETED;^1;7^Q"
^DD(396,17.4,1,0)="^.1^^0"
^DD(396,17.4,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,17.4,21,0)="^^1^1^2930503^^"
^DD(396,17.4,21,1,0)="This is the current status of the admission report."
^DD(396,17.4,"DT")="2891229"
^DD(396,17.6,0)="ADMISSION REPORT DIVISION^P40.8'^DG(40.8,^6;7^Q"
^DD(396,17.6,1,0)="^.1"
^DD(396,17.6,1,1,0)="396^AE17^MUMPS"
^DD(396,17.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,17)="""""
^DD(396,17.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,17)"
^DD(396,17.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,17.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,17.6,1,1,"%D",2,0)="It is on the Admission Report Tran Date and Division."
^DD(396,17.6,1,1,"%D",3,0)=" "
^DD(396,17.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex"
^DD(396,17.6,1,1,"%D",5,0)="either the Admission Report Tran Date or Division.  This will NOT "
^DD(396,17.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,17.6,1,1,"DT")="2941201"
^DD(396,17.6,1,2,0)="396^AF17^MUMPS"
^DD(396,17.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),17)="""""
^DD(396,17.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,7) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),17)"
^DD(396,17.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,17.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,17.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,17.6,1,2,"%D",3,0)="It is on the Admission Report Tran Date and Division."
^DD(396,17.6,1,2,"%D",4,0)=" "
^DD(396,17.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,17.6,1,2,"%D",6,0)="either the Admission Report Tran Date or Division.  This will NOT "
^DD(396,17.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,17.6,1,2,"DT")="2941201"
^DD(396,17.6,3)="Enter the Medical Center division which the Admission Rpt is transferred to."
^DD(396,17.6,21,0)="^^1^1^2941130^"
^DD(396,17.6,21,1,0)="This field contains the division the Asset Information was transferred to."
^DD(396,17.6,23,0)="^^1^1^2941130^"
^DD(396,17.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,17.6,"DT")="2941201"
^DD(396,17.7,0)="ADMISSION REPORT TRAN DATE^D^^7;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,17.7,1,0)="^.1"
^DD(396,17.7,1,1,0)="396^AE18^MUMPS"
^DD(396,17.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,17)="""""
^DD(396,17.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,17)"
^DD(396,17.7,1,1,"%D",0)="^^2^2^2950126^^^"
^DD(396,17.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,17.7,1,1,"%D",2,0)="It is on the Admission Report Tran Date and Division."
^DD(396,17.7,1,1,"DT")="2941201"
^DD(396,17.7,1,2,0)="396^AF18^MUMPS"
^DD(396,17.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,17)="""""
^DD(396,17.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,7) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,17)"
^DD(396,17.7,1,2,"%D",0)="^^3^3^2950126^^^"
^DD(396,17.7,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,17.7,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,17.7,1,2,"%D",3,0)="It is on the Admission Report Tran Date and Division."
^DD(396,17.7,1,2,"DT")="2941201"
^DD(396,17.7,3)="Enter the date the Admission Report was transferred to another division."
^DD(396,17.7,21,0)="^^2^2^2950126^^"
^DD(396,17.7,21,1,0)="This field contains the date the Admission Report was transferred to"
^DD(396,17.7,21,2,0)="another division at a multidivisional facility."
^DD(396,17.7,23,0)="^^1^1^2941130^"
^DD(396,17.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,17.7,"DT")="2941201"
^DD(396,17.8,0)="ADMISSION RPT COMPLETION DATE^D^^1;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,17.8,3)="Enter the date this item was completed by MAS."
^DD(396,17.8,21,0)="^^1^1^2930503^^"
^DD(396,17.8,21,1,0)="This is the date the admission report was completed."
^DD(396,17.8,"DT")="2900222"
^DD(396,17.9,0)="EDIT17.4^F^^2;3^K:$L(X)>25!($L(X)<1) X"
^DD(396,17.9,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,17.9,21,0)="^^2^2^2930503^^^"
^DD(396,17.9,21,1,0)="Holds the name of the person who last edited the ADMISSION REPORT STATUS"
^DD(396,17.9,21,2,0)="field."
^DD(396,18,0)="OPT TREATMENT RPT (DATE RANGE)^F^^0;25^K:$L(X)>25!($L(X)<1) X"
^DD(396,18,3)="If you want to receive the Outpatient Treatment report for a specific veteran, enter the date range that you want that report to cover.  (A Yes or No answer is not correct here.)"
^DD(396,18,4)=""
^DD(396,18,21,0)="^^2^2^2940309^^^^"
^DD(396,18,21,1,0)="This will contain the date range that the user has selected for the OPT"
^DD(396,18,21,2,0)="report. (This field is free text and intended to hold a From/To date range.)"
^DD(396,18,"DT")="2900705"
^DD(396,18.6,0)="OPT TREATMENT RPT DIVISION^P40.8'^DG(40.8,^6;26^Q"
^DD(396,18.6,1,0)="^.1"
^DD(396,18.6,1,1,0)="396^AE19^MUMPS"
^DD(396,18.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,18)="""""
^DD(396,18.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,18)"
^DD(396,18.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,18.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long).  It is"
^DD(396,18.6,1,1,"%D",2,0)="on the OPT Treatment Rpt Tran Date and Division."
^DD(396,18.6,1,1,"%D",3,0)=" "
^DD(396,18.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex"
^DD(396,18.6,1,1,"%D",5,0)="either the OPT Treatment Rpt Tran Date or Division.  This will NOT "
^DD(396,18.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,18.6,1,1,"DT")="2941207"
^DD(396,18.6,1,2,0)="396^AF19^MUMPS"
^DD(396,18.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),18)="""""
^DD(396,18.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,26) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),18)"
^DD(396,18.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,18.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,18.6,1,2,"%D",2,0)="7131 Request Report (Short).  It is on the OPT Treatment Rpt Tran Date and"
^DD(396,18.6,1,2,"%D",3,0)="Division."
^DD(396,18.6,1,2,"%D",4,0)=" "
^DD(396,18.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,18.6,1,2,"%D",6,0)="either the Admission Report Tran Date or Division.  This will NOT "
^DD(396,18.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,18.6,1,2,"DT")="2941207"
^DD(396,18.6,3)="Enter the division the OPT Treatment Rpt is to be completed by."
^DD(396,18.6,21,0)="^^2^2^2941207^"
^DD(396,18.6,21,1,0)="This field contains the division the OPT Treatment Rpt was transferred to"
^DD(396,18.6,21,2,0)="on the 7131."
^DD(396,18.6,23,0)="^^1^1^2941207^"
^DD(396,18.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,18.6,"DT")="2941207"
^DD(396,18.7,0)="OPT TREATMENT RPT TRAN DATE^D^^7;26^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,18.7,1,0)="^.1"
^DD(396,18.7,1,1,0)="396^AE20^MUMPS"
^DD(396,18.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,18)="""""
^DD(396,18.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,18)"
^DD(396,18.7,1,1,"%D",0)="^^2^2^2950126^^^"
^DD(396,18.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long).  It is"
^DD(396,18.7,1,1,"%D",2,0)="on the OPT Treatment Rpt Tran Date and Division."
^DD(396,18.7,1,1,"DT")="2941207"
^DD(396,18.7,1,2,0)="396^AF20^MUMPS"
^DD(396,18.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,18)="""""
^DD(396,18.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,26) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,18)"
^DD(396,18.7,1,2,"%D",0)="^^3^3^2950126^^^"
^DD(396,18.7,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,18.7,1,2,"%D",2,0)="7131 Request Report (Short).  It is on the OPT Treatment Rpt Tran Date"
^DD(396,18.7,1,2,"%D",3,0)="and Division."
^DD(396,18.7,1,2,"DT")="2941207"
^DD(396,18.7,3)="Enter the date the OPT Treatment Rpt was transferred to another division."
^DD(396,18.7,21,0)="^^2^2^2941207^"
^DD(396,18.7,21,1,0)="This field contains the date the OPT Treatment Rpt was transferred to"
^DD(396,18.7,21,2,0)="another division."
^DD(396,18.7,23,0)="^^1^1^2941207^"
^DD(396,18.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,18.7,"DT")="2941207"
^DD(396,19,0)="STATUS OF OPT TREATMENT RPT^S^P:PENDING;C:COMPLETED;^0;26^Q"
^DD(396,19,1,0)="^.1^^0"
^DD(396,19,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,19,21,0)="^^1^1^2930430^"
^DD(396,19,21,1,0)="Contains the current status of the OPT report."
^DD(396,19,"DT")="2891229"
^DD(396,19.5,0)="OPT TREAT RPT COMPLETION DATE^D^^1;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,19.5,3)="Enter the date this item was completed by MAS."
^DD(396,19.5,21,0)="^^1^1^2930503^^"
^DD(396,19.5,21,1,0)="This is the date the OPT report was completed by MAS."
^DD(396,19.5,"DT")="2900222"
^DD(396,19.7,0)="EDIT19^F^^2;4^K:$L(X)>25!($L(X)<1) X"
^DD(396,19.7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,19.7,21,0)="^^2^2^2930430^^^"
^DD(396,19.7,21,1,0)="Holds the name of the person who last edited the STATUS OF OPT TREATMENT"
^DD(396,19.7,21,2,0)="RPT field."
^DD(396,20,0)="BEGINNING DATE/CARE (CHAP 17)^RS^YES:YES;NO:NO;^0;27^Q"
^DD(396,20,3)="Enter Y if you wish to receive this item, N if not."
^DD(396,20,21,0)="^^1^1^2930430^"
^DD(396,20,21,1,0)="This field indicates whether the beginning date/care report is selected."
^DD(396,20.6,0)="BEGINNING DATE/CARE DIVISION^P40.8'^DG(40.8,^6;28^Q"
^DD(396,20.6,1,0)="^.1"
^DD(396,20.6,1,1,0)="396^AE21^MUMPS"
^DD(396,20.6,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,20)="""""
^DD(396,20.6,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,20)"
^DD(396,20.6,1,1,"%D",0)="^^6^6^2950126^^^^"
^DD(396,20.6,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long)."
^DD(396,20.6,1,1,"%D",2,0)="It is on the Beginning Date/Care Tran Date and Division."
^DD(396,20.6,1,1,"%D",3,0)=" "
^DD(396,20.6,1,1,"%D",4,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex"
^DD(396,20.6,1,1,"%D",5,0)="either the Beginning Date/Care Tran Date or Division.  This will NOT "
^DD(396,20.6,1,1,"%D",6,0)="reindex the 'AE' X-ref on other fields in the file."
^DD(396,20.6,1,1,"DT")="2941201"
^DD(396,20.6,1,2,0)="396^AF21^MUMPS"
^DD(396,20.6,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) S:A'="""" ^DVB(396,""AF"",DA,A,$E(X,1,30),20)="""""
^DD(396,20.6,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,7)) A=$P(^DVB(396,DA,7),U,28) I A'="""" K ^DVB(396,""AF"",DA,A,$E(X,1,30),20)"
^DD(396,20.6,1,2,"%D",0)="^^7^7^2950126^^^^"
^DD(396,20.6,1,2,"%D",1,0)="This cross-reference is used to print the Pending 7131 Report and the New"
^DD(396,20.6,1,2,"%D",2,0)="7131 Request Report (Short)."
^DD(396,20.6,1,2,"%D",3,0)="It is on the Beginning Date/Care Tran Date and Division."
^DD(396,20.6,1,2,"%D",4,0)=" "
^DD(396,20.6,1,2,"%D",5,0)="To reindex the 'AF' X-ref for these fields, the user need only reindex"
^DD(396,20.6,1,2,"%D",6,0)="either the Beginning Date/Care Tran Date or Division.  This will NOT "
^DD(396,20.6,1,2,"%D",7,0)="reindex the 'AF' X-ref on other fields in the file."
^DD(396,20.6,1,2,"DT")="2941201"
^DD(396,20.6,3)="Enter the Medical Center division which the Begining Dte/Care is transferred to."
^DD(396,20.6,21,0)="^^2^2^2941130^"
^DD(396,20.6,21,1,0)="This field contains the division the Begining Date/Care (Chapt 17) was"
^DD(396,20.6,21,2,0)="transferred to."
^DD(396,20.6,23,0)="^^1^1^2941130^"
^DD(396,20.6,23,1,0)="This field is a pointer to the Medical Center Division file (40.8)."
^DD(396,20.6,"DT")="2941201"
^DD(396,20.7,0)="BEGINNING DATE/CARE TRAN DATE^D^^7;28^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,20.7,1,0)="^.1"
^DD(396,20.7,1,1,0)="396^AE22^MUMPS"
^DD(396,20.7,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,20)="""""
^DD(396,20.7,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,20)"
^DD(396,20.7,1,1,"%D",0)="^^2^2^2950126^^"
^DD(396,20.7,1,1,"%D",1,0)="This cross-reference is used to print the New 7131 Report (Long).  It is"
^DD(396,20.7,1,1,"%D",2,0)="on the Beginning Date/Care Tran Date and Division."
^DD(396,20.7,1,1,"DT")="2941202"
^DD(396,20.7,1,2,0)="396^AF22^MUMPS"
^DD(396,20.7,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) S:+A>0 ^DVB(396,""AF"",DA,$E(X,1,30),A,20)="""""
^DD(396,20.7,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,6)) A=$P(^DVB(396,DA,6),U,28) I +A>0 K ^DVB(396,""AF"",DA,$E(X,1,30),A,20)"
^DD(396,20.7,1,2,"%D",0)="^^3^3^2950126^^"
^DD(396,20.7,1,2,"%D",1,0)="This cross reference is used to print the Pending 7131 Report and the New"
^DD(396,20.7,1,2,"%D",2,0)="7131 Request Report (Short).  It is on the Beginning Date/Care Tran Date"
^DD(396,20.7,1,2,"%D",3,0)="and Division."
^DD(396,20.7,1,2,"DT")="2941202"
^DD(396,20.7,3)="Enter the date the Beginning Date/Care was transferred to another division."
^DD(396,20.7,21,0)="^^2^2^2950126^^"
^DD(396,20.7,21,1,0)="This field contains the date the Beginning Date/Care was transferred to"
^DD(396,20.7,21,2,0)="another division at a multidivisional facility."
^DD(396,20.7,23,0)="^^1^1^2941202^"
^DD(396,20.7,23,1,0)="This field is a PRECISE date in which Time can be entered."
^DD(396,20.7,"DT")="2941202"
^DD(396,21,0)="STATUS-BEG DATE/CARE (CHAP 17)^S^P:PENDING;C:COMPLETED;^0;28^Q"
^DD(396,21,1,0)="^.1^^0"
^DD(396,21,3)="Enter C if this item is completed or RETURN to leave this item as pending."
^DD(396,21,21,0)="^^1^1^2930430^"
^DD(396,21,21,1,0)="Indicates the current status of the beginning date/care report."
^DD(396,21,"DT")="2891229"
^DD(396,21.5,0)="BEG/DATE/CARE COMPLETION DATE^D^^1;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,21.5,3)="Enter the date this item was completed by MAS."
^DD(396,21.5,21,0)="^^1^1^2930430^"
^DD(396,21.5,21,1,0)="This field holds the date the beginning date/care report was completed."
^DD(396,21.5,"DT")="2900222"
^DD(396,21.7,0)="EDIT21^F^^2;5^K:$L(X)>25!($L(X)<1) X"
^DD(396,21.7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,21.7,21,0)="^^1^1^2930430^^"
^DD(396,21.7,21,1,0)="Holds the name of the person who last edited the STATUS-BEG DATE/CARE field."
^DD(396,22,0)="*ADDITIONAL REMARKS^F^^0;29^K:$L(X)>65!($L(X)<1) X"
^DD(396,22,3)="ANSWER MUST BE 1-65 CHARACTERS IN LENGTH (STARRED FOR DELETION)"
^DD(396,22,21,0)="^^1^1^2930430^^"
^DD(396,22,21,1,0)="This field is starred for deletion and is being replaced by a WP field."
^DD(396,22,"DT")="2930122"
^DD(396,23,0)="DATE OF REQUEST^D^^1;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,23,1,0)="^.1"
^DD(396,23,1,1,0)="396^E"
^DD(396,23,1,1,1)="S ^DVB(396,""E"",$E(X,1,30),DA)="""""
^DD(396,23,1,1,2)="K ^DVB(396,""E"",$E(X,1,30),DA)"
^DD(396,23,1,2,0)="396^AE23^MUMPS"
^DD(396,23,1,2,1)="N A S A="""" S:$D(^DVB(396,DA,2)) A=$P(^DVB(396,DA,2),U,9) S:+A>0 ^DVB(396,""AE"",$E(X,1,30),A,DA,23)="""""
^DD(396,23,1,2,2)="N A S A="""" S:$D(^DVB(396,DA,2)) A=$P(^DVB(396,DA,2),U,9) I +A>0 K ^DVB(396,""AE"",$E(X,1,30),A,DA,23)"
^DD(396,23,1,2,"%D",0)="^^3^3^2950126^^^^"
^DD(396,23,1,2,"%D",1,0)="This cross-reference will be used by the New 7131 Request Report (Long)."
^DD(396,23,1,2,"%D",2,0)="It is needed to print a 7131 at the Division the request has been sent to"
^DD(396,23,1,2,"%D",3,0)="by the Regional Office."
^DD(396,23,1,2,"DT")="2941202"
^DD(396,23,21,0)="^^1^1^2930430^"
^DD(396,23,21,1,0)="This field contains the date the 7131 request was entered."
^DD(396,23,"DT")="2941202"
^DD(396,24,0)="DATE LAST STATUS EDIT^D^^1;11^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396,24,21,0)="^^1^1^2930503^^"
^DD(396,24,21,1,0)="This field contains the date the status of any of the reports was changed."
^DD(396,25,0)="FINALIZATION DATE^D^^1;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(396,25,1,0)="^.1"
^DD(396,25,1,1,0)="396^F"
^DD(396,25,1,1,1)="S ^DVB(396,""F"",$E(X,1,30),DA)="""""
^DD(396,25,1,1,2)="K ^DVB(396,""F"",$E(X,1,30),DA)"
^DD(396,25,21,0)="^^1^1^2930430^"
^DD(396,25,21,1,0)="This field contains the date that the 7131 was finalized."
^DD(396,26,0)="FINALIZED BY^F^^2;6^K:$L(X)>25!($L(X)<1) X"
^DD(396,26,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(396,26,21,0)="^^1^1^2930430^"
^DD(396,26,21,1,0)="This field contains the name of the user who finalized the 7131 request."
^DD(396,27,0)="REQUESTING LOCATION^RF^^2;7^K:$L(X)>30!($L(X)<1) X"
^DD(396,27,3)="Answer must be 1-30 characters in length."
^DD(396,27,21,0)="^^1^1^2930430^^"
^DD(396,27,21,1,0)="The name of the Regional Office that requested this 7131."
^DD(396,27,"DT")="2930408"
^DD(396,28,0)="REQUESTED BY^RF^^2;8^K:$L(X)>30!($L(X)<3) X"
^DD(396,28,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(396,28,21,0)="^^1^1^2930503^^^"
^DD(396,28,21,1,0)="The Regional Office employee who requested the 7131."
^DD(396,29,0)="DIVISION^RP40.8'^DG(40.8,^2;9^Q"
^DD(396,29,1,0)="^.1"
^DD(396,29,1,1,0)="396^AE24^MUMPS"
^DD(396,29,1,1,1)="N A S A="""" S:$D(^DVB(396,DA,1)) A=$P(^DVB(396,DA,1),U,1) S:A'="""" ^DVB(396,""AE"",A,$E(X,1,30),DA,23)="""""
^DD(396,29,1,1,2)="N A S A="""" S:$D(^DVB(396,DA,1)) A=$P(^DVB(396,DA,1),U,1) I A'="""" K ^DVB(396,""AE"",A,$E(X,1,30),DA,23)"
^DD(396,29,1,1,"%D",0)="^^7^7^2950126^^^^"
^DD(396,29,1,1,"%D",1,0)="This cross reference will be used by the New 7131 Request Report (Long)."
^DD(396,29,1,1,"%D",2,0)="It is needed to print a 7131 at the Division the request has been sent to"
^DD(396,29,1,1,"%D",3,0)="by the Regional Office."
^DD(396,29,1,1,"%D",4,0)=" "
^DD(396,29,1,1,"%D",5,0)="To reindex the 'AE' X-ref for these fields, the user need only reindex  "
^DD(396,29,1,1,"%D",6,0)="either the Date of Request or Division.  This will NOT reindex the 'AE' "
^DD(396,29,1,1,"%D",7,0)="X-ref on other fields in the file. "
^DD(396,29,1,1,"DT")="2941202"
^DD(396,29,3)="Enter the routing location for this request (required)."
^DD(396,29,4)=""
^DD(396,29,21,0)="^^1^1^2930503^^"
^DD(396,29,21,1,0)="This field containts the division to which the 7131 request should be sent."
^DD(396,29,"DT")="2941202"
^DD(396,30,0)="DOCUMENT TYPE^RS^L:ACTIVITY DATE;A:ADMISSION DATE;^2;10^Q"
^DD(396,30,3)="Enter the type of document being entered A for admission date or L for activity date."
^DD(396,30,21,0)="^^2^2^2930503^^"
^DD(396,30,21,1,0)="Stores the document type of the 7131 request; either admission date or"
^DD(396,30,21,2,0)="activity date."
^DD(396,30,"DT")="2890823"
^DD(396,"B","(21-DAY) CERTIFICATE STATUS",6.5)=""
^DD(396,"B","(21-DAY) COMPLETION DATE",6.8)=""
^DD(396,"B","*ADDITIONAL REMARKS",22)=""
^DD(396,"B","21 DAY CERT BED",6.88)=""
^DD(396,"B","21 DAY CERT MAS RELEASE DATE",6.83)=""
^DD(396,"B","21 DAY CERT PRINTED BY",6.89)=""
^DD(396,"B","21 DAY CERT RELEASE STATUS",6.82)=""
^DD(396,"B","21 DAY CERT RELEASED BY",6.84)=""
^DD(396,"B","21 DAY CERT TEXT",6.81)=""
^DD(396,"B","21 DAY CERT TO DATE",6.86)=""
^DD(396,"B","21 DAY CERT WARD",6.87)=""
^DD(396,"B","ADDITIONAL REMARKS",.5)=""
^DD(396,"B","ADMISSION DATE",3)=""
^DD(396,"B","ADMISSION REPORT",17)=""
^DD(396,"B","ADMISSION REPORT DIVISION",17.6)=""
^DD(396,"B","ADMISSION REPORT STATUS",17.4)=""
^DD(396,"B","ADMISSION REPORT TRAN DATE",17.7)=""
^DD(396,"B","ADMISSION RPT COMPLETION DATE",17.8)=""
^DD(396,"B","ASSET INFO COMPLETION DATE",16.5)=""
^DD(396,"B","ASSET INFORMATION",15)=""
^DD(396,"B","ASSET INFORMATION DIVISION",15.6)=""
^DD(396,"B","ASSET INFORMATION TRAN DATE",15.7)=""
^DD(396,"B","BEG/DATE/CARE COMPLETION DATE",21.5)=""
^DD(396,"B","BEGINNING DATE/CARE (CHAP 17)",20)=""
^DD(396,"B","BEGINNING DATE/CARE DIVISION",20.6)=""
^DD(396,"B","BEGINNING DATE/CARE TRAN DATE",20.7)=""
^DD(396,"B","C-NUMBER",1)=""
^DD(396,"B","CERTIFICATE (21-DAY)",6)=""
^DD(396,"B","CERTIFICATE (21-DAY) DIVISION",6.6)=""
^DD(396,"B","CERTIFICATE (21-DAY) TRAN DATE",6.7)=""
^DD(396,"B","COMPETENCY REPORT",11)=""
^DD(396,"B","COMPETENCY REPORT DIVISION",11.6)=""
^DD(396,"B","COMPETENCY REPORT TRAN DATE",11.7)=""
^DD(396,"B","COMPETENCY RPT COMPLETION DATE",12.5)=""
^DD(396,"B","DATE 21 DAY CERT PRINTED BY RO",6.85)=""
^DD(396,"B","DATE LAST STATUS EDIT",24)=""
^DD(396,"B","DATE OF REQUEST",23)=""
^DD(396,"B","DIVISION",29)=""
^DD(396,"B","DOCUMENT TYPE",30)=""
^DD(396,"B","EDIT10",10.7)=""
^DD(396,"B","EDIT12",12.7)=""
^DD(396,"B","EDIT14",14.7)=""
^DD(396,"B","EDIT16",16.7)=""
^DD(396,"B","EDIT17.4",17.9)=""
^DD(396,"B","EDIT19",19.7)=""
^DD(396,"B","EDIT21",21.7)=""
^DD(396,"B","EDIT4.5",4.9)=""
^DD(396,"B","EDIT5.5",5.9)=""
^DD(396,"B","EDIT6.5",6.9)=""
^DD(396,"B","EDIT8",8.7)=""
^DD(396,"B","FINALIZATION DATE",25)=""
^DD(396,"B","FINALIZED BY",26)=""
^DD(396,"B","FORM 21-2680 COMPLETION DATE",14.5)=""
^DD(396,"B","HOSP SUMMARY COMPLETION DATE",5.8)=""
^DD(396,"B","HOSPITAL SUMMARY",5)=""
^DD(396,"B","HOSPITAL SUMMARY DIVISION",5.6)=""
^DD(396,"B","HOSPITAL SUMMARY STATUS",5.5)=""
^DD(396,"B","HOSPITAL SUMMARY TRAN DATE",5.7)=""
^DD(396,"B","NOTICE OF DISCHARGE",4)=""
^DD(396,"B","NOTICE OF DISCHARGE DIVISION",4.6)=""
^DD(396,"B","NOTICE OF DISCHARGE TRAN DATE",4.7)=""
^DD(396,"B","NOTICE/DISCHG COMPLETION DATE",4.8)=""
^DD(396,"B","NOTICE/DISCHG STATUS",4.5)=""
^DD(396,"B","OPT TREAT RPT COMPLETION DATE",19.5)=""
^DD(396,"B","OPT TREATMENT RPT (DATE RANGE)",18)=""
^DD(396,"B","OPT TREATMENT RPT DIVISION",18.6)=""
^DD(396,"B","OPT TREATMENT RPT TRAN DATE",18.7)=""
^DD(396,"B","OTHER/EXAM (REVIEW REMARKS)",7)=""
^DD(396,"B","OTHER/EXAM COMPLETION DATE",8.5)=""
^DD(396,"B","OTHER/EXAM LISTED IN REM DIV",7.6)=""
^DD(396,"B","OTHER/EXAM LISTED TRAN DATE",7.7)=""
^DD(396,"B","PATIENT NAME",.01)=""
^DD(396,"B","REQUESTED BY",28)=""
^DD(396,"B","REQUESTING LOCATION",27)=""
^DD(396,"B","SOC SEC NUMBER",2)=""
^DD(396,"B","SPECIAL REPORT",9)=""
^DD(396,"B","SPECIAL REPORT COMPLETION DATE",10.5)=""
^DD(396,"B","SPECIAL REPORT DIVISION",9.6)=""
^DD(396,"B","SPECIAL REPORT TRAN DATE",9.7)=""
^DD(396,"B","STATUS OF ASSET INFORMATION",16)=""
^DD(396,"B","STATUS OF COMPETENCY REPORT",12)=""
^DD(396,"B","STATUS OF OPT TREATMENT RPT",19)=""
^DD(396,"B","STATUS OF OTHER/EXAM",8)=""
^DD(396,"B","STATUS OF SPECIAL REPORT",10)=""
^DD(396,"B","STATUS OF VA FORM 21-2680",14)=""
^DD(396,"B","STATUS-BEG DATE/CARE (CHAP 17)",21)=""
^DD(396,"B","VA FORM 21-2680",13)=""
^DD(396,"B","VA FORM 21-2680 DIVISION",13.6)=""
^DD(396,"B","VA FORM 21-2680 TRAN DATE",13.7)=""
^DD(396,"GL",0,1,.01)=""
^DD(396,"GL",0,4,3)=""
^DD(396,"GL",0,5,4)=""
^DD(396,"GL",0,6,5)=""
^DD(396,"GL",0,7,6)=""
^DD(396,"GL",0,8,7)=""
^DD(396,"GL",0,9,4.5)=""
^DD(396,"GL",0,10,4.8)=""
^DD(396,"GL",0,11,5.5)=""
^DD(396,"GL",0,12,5.8)=""
^DD(396,"GL",0,13,6.5)=""
^DD(396,"GL",0,14,6.8)=""
^DD(396,"GL",0,15,8)=""
^DD(396,"GL",0,16,9)=""
^DD(396,"GL",0,17,10)=""
^DD(396,"GL",0,18,11)=""
^DD(396,"GL",0,19,12)=""
^DD(396,"GL",0,20,13)=""
^DD(396,"GL",0,21,14)=""
^DD(396,"GL",0,22,15)=""
^DD(396,"GL",0,23,16)=""
^DD(396,"GL",0,24,17)=""
^DD(396,"GL",0,25,18)=""
^DD(396,"GL",0,26,19)=""
^DD(396,"GL",0,27,20)=""
^DD(396,"GL",0,28,21)=""
^DD(396,"GL",0,29,22)=""
^DD(396,"GL",1,1,23)=""
^DD(396,"GL",1,2,8.5)=""
^DD(396,"GL",1,3,10.5)=""
^DD(396,"GL",1,4,12.5)=""
^DD(396,"GL",1,5,14.5)=""
^DD(396,"GL",1,6,16.5)=""
^DD(396,"GL",1,7,17.4)=""
^DD(396,"GL",1,8,17.8)=""
^DD(396,"GL",1,9,19.5)=""
^DD(396,"GL",1,10,21.5)=""
^DD(396,"GL",1,11,24)=""
^DD(396,"GL",1,12,25)=""
^DD(396,"GL",1,13,4.9)=""
^DD(396,"GL",1,14,5.9)=""
^DD(396,"GL",1,15,6.9)=""
^DD(396,"GL",1,16,8.7)=""
^DD(396,"GL",1,17,10.7)=""
^DD(396,"GL",1,18,12.7)=""
^DD(396,"GL",2,1,14.7)=""
^DD(396,"GL",2,2,16.7)=""
^DD(396,"GL",2,3,17.9)=""
^DD(396,"GL",2,4,19.7)=""
^DD(396,"GL",2,5,21.7)=""
^DD(396,"GL",2,6,26)=""
^DD(396,"GL",2,7,27)=""
^DD(396,"GL",2,8,28)=""
^DD(396,"GL",2,9,29)=""
^DD(396,"GL",2,10,30)=""
^DD(396,"GL",3,0,6.81)=""
^DD(396,"GL",4,1,6.82)=""
^DD(396,"GL",4,2,6.83)=""
^DD(396,"GL",4,3,6.84)=""
^DD(396,"GL",4,4,6.85)=""
^DD(396,"GL",4,5,6.86)=""
^DD(396,"GL",4,6,6.87)=""
^DD(396,"GL",4,7,6.88)=""
^DD(396,"GL",4,8,6.89)=""
^DD(396,"GL",5,0,.5)=""
^DD(396,"GL",6,7,17.6)=""
^DD(396,"GL",6,9,4.6)=""
^DD(396,"GL",6,11,5.6)=""
^DD(396,"GL",6,13,6.6)=""
^DD(396,"GL",6,15,7.6)=""
^DD(396,"GL",6,17,9.6)=""
^DD(396,"GL",6,19,11.6)=""
^DD(396,"GL",6,21,13.6)=""
^DD(396,"GL",6,23,15.6)=""
^DD(396,"GL",6,26,18.6)=""
^DD(396,"GL",6,28,20.6)=""
^DD(396,"GL",7,7,17.7)=""
^DD(396,"GL",7,9,4.7)=""
^DD(396,"GL",7,11,5.7)=""
^DD(396,"GL",7,13,6.7)=""
^DD(396,"GL",7,15,7.7)=""
^DD(396,"GL",7,17,9.7)=""
^DD(396,"GL",7,19,11.7)=""
^DD(396,"GL",7,21,13.7)=""
^DD(396,"GL",7,23,15.7)=""
^DD(396,"GL",7,26,18.7)=""
^DD(396,"GL",7,28,20.7)=""
^DD(396,"IX",.01)=""
^DD(396,"IX",3)=""
^DD(396,"IX",4.6)=""
^DD(396,"IX",4.7)=""
^DD(396,"IX",5.6)=""
^DD(396,"IX",5.7)=""
^DD(396,"IX",6.6)=""
^DD(396,"IX",6.7)=""
^DD(396,"IX",6.82)=""
^DD(396,"IX",7.6)=""
^DD(396,"IX",7.7)=""
^DD(396,"IX",9.6)=""
^DD(396,"IX",9.7)=""
^DD(396,"IX",11.6)=""
^DD(396,"IX",11.7)=""
^DD(396,"IX",13.6)=""
^DD(396,"IX",13.7)=""
^DD(396,"IX",15.6)=""
^DD(396,"IX",15.7)=""
^DD(396,"IX",17.6)=""
^DD(396,"IX",17.7)=""
^DD(396,"IX",18.6)=""
^DD(396,"IX",18.7)=""
^DD(396,"IX",20.6)=""
^DD(396,"IX",20.7)=""
^DD(396,"IX",23)=""
^DD(396,"IX",25)=""
^DD(396,"IX",29)=""
^DD(396,"RQ",.01)=""
^DD(396,"RQ",4)=""
^DD(396,"RQ",5)=""
^DD(396,"RQ",6)=""
^DD(396,"RQ",7)=""
^DD(396,"RQ",9)=""
^DD(396,"RQ",11)=""
^DD(396,"RQ",13)=""
^DD(396,"RQ",15)=""
^DD(396,"RQ",17)=""
^DD(396,"RQ",20)=""
^DD(396,"RQ",27)=""
^DD(396,"RQ",28)=""
^DD(396,"RQ",29)=""
^DD(396,"RQ",30)=""
^DD(396,"SB",396.01,6.81)=""
^DD(396,"SB",396.02,.5)=""
^DD(396.01,0)="21 DAY CERT TEXT SUB-FIELD^^.01^1"
^DD(396.01,0,"NM","21 DAY CERT TEXT")=""
^DD(396.01,0,"UP")="396"
^DD(396.01,.01,0)="21 DAY CERT TEXT^W^^0;1^Q"
^DD(396.01,.01,3)="Enter the text of the 21-day certificate."
^DD(396.01,"B","21 DAY CERT TEXT",.01)=""
^DD(396.01,"GL",0,1,.01)=""
^DD(396.02,0)="ADDITIONAL REMARKS SUB-FIELD^^.01^1"
^DD(396.02,0,"DT")="2930122"
^DD(396.02,0,"NM","ADDITIONAL REMARKS")=""
^DD(396.02,0,"UP")="396"
^DD(396.02,.01,0)="ADDITIONAL REMARKS^W^^0;1^Q"
^DD(396.02,.01,3)="Enter any ADDITIONAL REMARKS pertaining to this 7131 request."
^DD(396.02,.01,"DT")="2930122"
^DD(396.02,"B","ADDITIONAL REMARKS",.01)=""
^DD(396.02,"GL",0,1,.01)=""
^DD(396.1,0)="FIELD^^90^19"
^DD(396.1,0,"DDA")="N"
^DD(396.1,0,"DT")="3020524"
^DD(396.1,0,"IX","B",396.1,.01)=""
^DD(396.1,0,"NM","AMIE SITE PARAMETER")=""
^DD(396.1,0,"VR")="2.7"
^DD(396.1,0,"VRPK")="DVBA"
^DD(396.1,.01,0)="SITE NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X S:$D(X) DINUM=1"
^DD(396.1,.01,1,0)="^.1"
^DD(396.1,.01,1,1,0)="396.1^B"
^DD(396.1,.01,1,1,1)="S ^DVB(396.1,""B"",$E(X,1,30),DA)="""""
^DD(396.1,.01,1,1,2)="K ^DVB(396.1,""B"",$E(X,1,30),DA)"
^DD(396.1,.01,3)="Enter the name of your facility as you wish it to appear on the AMIE reports."
^DD(396.1,.01,21,0)="^^2^2^2930430^^"
^DD(396.1,.01,21,1,0)="This field contains the name of the facility running the"
^DD(396.1,.01,21,2,0)="AMIE software."
^DD(396.1,.01,"DT")="2890823"
^DD(396.1,.11,0)="*DAYS TO KEEP 2507 HISTORY^NJ3,0I^^0;11^K:+X'=X!(X>999)!(X<120)!(X?.E1"".""1N.N) X"
^DD(396.1,.11,2)="S Y(0)=Y S Y="""""
^DD(396.1,.11,2.1)="S Y="""""
^DD(396.1,.11,3)="Type a Number between 120 and 999, 0 Decimal Digits"
^DD(396.1,.11,4)="D PURGE^DVBAUTLH"
^DD(396.1,.11,21,0)="^^2^2^3021015^^"
^DD(396.1,.11,21,1,0)="This is the number of days a 2507 request will be kept before it is purged."
^DD(396.1,.11,21,2,0)="Starred for deletion with DVBA*2.7*48."
^DD(396.1,.11,23,0)="^^1^1^3021015^^"
^DD(396.1,.11,23,1,0)="Starred for deletion with DVBA*2.7*48."
^DD(396.1,.11,"DT")="3021017"
^DD(396.1,2,0)="ALL ADMISSIONS REPORT DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1,2,3)="Computer maintained date.  Alter only for corrections."
^DD(396.1,2,21,0)="^^1^1^2930430^"
^DD(396.1,2,21,1,0)="This field contains the date the admission reports are run."
^DD(396.1,3,0)="DISCHARGE REPORT DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1,3,3)="Computer maintained date.  Alter only for corrections."
^DD(396.1,3,21,0)="^^1^1^2940304^^"
^DD(396.1,3,21,1,0)="This field contains the date the discharge report is run."
^DD(396.1,4,0)="INCOMPETENT REPORT DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1,4,3)="Computer maintained date.  Alter only for corrections."
^DD(396.1,4,21,0)="^^1^1^2940304^^"
^DD(396.1,4,21,1,0)="This field contains the date the incompetent report is run."
^DD(396.1,6,0)="READMISSION REPORT DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1,6,3)="Computer maintained date.  Alter only for corrections."
^DD(396.1,6,21,0)="^^1^1^2930430^"
^DD(396.1,6,21,1,0)="This field contains the date the readmission report is run."
^DD(396.1,7,0)="SERVICE-CONNECTED REPORT DATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1,7,3)="Computer maintained date.  Alter only for corrections."
^DD(396.1,7,21,0)="^^1^1^2930430^"
^DD(396.1,7,21,1,0)="This field contains the date the service-connected report is run."
^DD(396.1,8,0)="PENSION/A&A REPORT DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1,8,3)="Computer maintained date.  Alter only for corrections."
^DD(396.1,8,21,0)="^^1^1^2930430^"
^DD(396.1,8,21,1,0)="This field contains the date the pension/A&A report is run."
^DD(396.1,9,0)="*NUMBER OF DAYS TO KEEP HISTOR^NJ3,0I^^0;10^K:+X'=X!(X>999)!(X<30)!(X?.E1"".""1.N) X"
^DD(396.1,9,2)="S Y(0)=Y S Y="""""
^DD(396.1,9,2.1)="S Y="""""
^DD(396.1,9,3)="Type a number between 30 and 999, 0 Decimal Digits"
^DD(396.1,9,21,0)="^^3^3^3021015^"
^DD(396.1,9,21,1,0)="This field determines how many days of 7131 information are kept"
^DD(396.1,9,21,2,0)="as history by the 7131 purge routine."
^DD(396.1,9,21,3,0)="Starred for deletion with DVBA*2.7*48."
^DD(396.1,9,23,0)="^^1^1^3021015^"
^DD(396.1,9,23,1,0)="Starred for deletion with DVBA*2.7*48."
^DD(396.1,9,"DT")="3021017"
^DD(396.1,10,0)="REGIONAL OFFICES ALLOWED^396.12P^^1;0"
^DD(396.1,10,21,0)="^^2^2^2930430^^"
^DD(396.1,10,21,1,0)="This field contains the regional offices that will be using AMIE"
^DD(396.1,10,21,2,0)="at the site."
^DD(396.1,11,0)="REMOTE SITE (7131)^396.13P^^2;0"
^DD(396.1,11,21,0)="^^2^2^2950126^^^^"
^DD(396.1,11,21,1,0)="This field contains the names of the divisions that will be using"
^DD(396.1,11,21,2,0)="the 7131 portion of AMIE."
^DD(396.1,12,0)="REMOTE SITE (2507)^396.14P^^3;0"
^DD(396.1,12,21,0)="^^2^2^2940304^^^^"
^DD(396.1,12,21,1,0)="This field contains the names of the divisions that will be using"
^DD(396.1,12,21,2,0)="the C&P portion of AMIE."
^DD(396.1,12,"DT")="2930601"
^DD(396.1,14,0)="2507 INTEGRITY REPORT STATUS^RS^1:OPEN;2:COMPLETED;3:ALL;4:OFF;^0;15^Q"
^DD(396.1,14,3)="Enter the C&P link control parameter for the C&P Exam Integrity Report"
^DD(396.1,14,21,0)="^^2^2^2950126^^"
^DD(396.1,14,21,1,0)="This field contains the parameter that controls the 2507's to review when"
^DD(396.1,14,21,2,0)="reporting C&P Appointment Links on the C&P Exam Integrity report."
^DD(396.1,14,23,0)="^^4^4^2950126^^"
^DD(396.1,14,23,1,0)="'Open' means review only 2507 requests with a status of 'P' or 'S'."
^DD(396.1,14,23,2,0)="'Completed' means review only 2507 requests with a status of 'R' or 'C'."
^DD(396.1,14,23,3,0)="'All' means 2507 requests with any status will be reviewed."
^DD(396.1,14,23,4,0)="'Off' means no 2507 requests will be reviewed."
^DD(396.1,14,"DT")="2941018"
^DD(396.1,15,0)="C&P ROUTING LOCATION^396.115P^^4;0"
^DD(396.1,15,21,0)="^^7^7^2950126^^^^"
^DD(396.1,15,21,1,0)="This field is a pointer to the HOSPITAL LOCATION file.  Its' purpose is to"
^DD(396.1,15,21,2,0)="identify any Hospital location that requests C&P exams.  This field will"
^DD(396.1,15,21,3,0)="also allow screening of Lab and Radiology data for printing with the final"
^DD(396.1,15,21,4,0)="exam results.  When final results are printed, the system will search for"
^DD(396.1,15,21,5,0)="Lab/Radiology results previous to 30 days from the request Release Date"
^DD(396.1,15,21,6,0)="and print the results if they are associated with a location contained in"
^DD(396.1,15,21,7,0)="this multiple."
^DD(396.1,16,0)="RUN NEW REQUESTS ON SATURDAY?^RS^Y:YES;N:NO;^0;14^Q"
^DD(396.1,16,3)="Enter Y to run new requests on Saturday or N to skip.  Sunday is always skipped."
^DD(396.1,16,21,0)="11^^5^5^2940304^^^^"
^DD(396.1,16,21,1,0)="The DATE REPORTED TO MAS is the start of the clock for a 2507 request."
^DD(396.1,16,21,2,0)="If the Hospital C&P section is open on Saturday, this field will be marked"
^DD(396.1,16,21,3,0)="'Yes' so that the Clerks can process 'New' requests on Saturday.        "
^DD(396.1,16,21,4,0)="If Saturdays are skipped, those requests entered on Friday will be reported "
^DD(396.1,16,21,5,0)="as 'New' on Monday morning."
^DD(396.1,16,"DT")="2900628"
^DD(396.1,17,0)="APPT LINKING ENHANCED DIALOGUE^RS^0:OFF;1:ON;^0;18^Q"
^DD(396.1,17,3)="Enter the C&P appointment dialogue parameter.  (Controls C&P appt dialogue)"
^DD(396.1,17,21,0)="^^2^2^2941018^"
^DD(396.1,17,21,1,0)="This field is an On/Off switch controlling the warnings and prompts that "
^DD(396.1,17,21,2,0)="may display when scheduling C&P appointments."
^DD(396.1,17,23,0)="^^6^6^2941018^"
^DD(396.1,17,23,1,0)="This field will control the amount of dialogue the user is issued when"
^DD(396.1,17,23,2,0)="scheduling C&P appointments.  If Off, the user will only be asked the"
^DD(396.1,17,23,3,0)="2507 request selection prompt and then only if more than one pending"
^DD(396.1,17,23,4,0)="request exists for the veteran.  If On, the user will see additional"
^DD(396.1,17,23,5,0)="prompts and warnings to aid proper linking of C&P appointments to the"
^DD(396.1,17,23,6,0)="2507 request."
^DD(396.1,17,"DT")="2941018"
^DD(396.1,18,0)="C&P REPORT PARAMETER^RSI^0:OFF;1:ON;^0;19^Q"
^DD(396.1,18,3)="Enter the C&P appointment control parameter for the C&P Integrity report."
^DD(396.1,18,21,0)="^^2^2^2950126^^^^"
^DD(396.1,18,21,1,0)="This field is an On/Off switch controlling inclusion of the C&P Appointment"
^DD(396.1,18,21,2,0)="Report in the C&P Integrity Report."
^DD(396.1,18,23,0)="^^20^20^2950126^^^^"
^DD(396.1,18,23,1,0)="This is an On/Off switch referenced by AMIE software.  If turned Off, the"
^DD(396.1,18,23,2,0)="site will not receive the C&P appointment part of the integrity report."
^DD(396.1,18,23,3,0)="If On, the user will receive this report with the integrity report.  The"
^DD(396.1,18,23,4,0)="functionality of this parameter is not supported nationally and this"
^DD(396.1,18,23,5,0)="field is reserved for other purposes in future versions."
^DD(396.1,18,23,6,0)=" "
^DD(396.1,18,23,7,0)="This parameter is different from the 2507 INTEGRITY REPORT STATUS parameter"
^DD(396.1,18,23,8,0)="in that it will over ride the value in the 2507 INTEGRITY REPORT STATUS"
^DD(396.1,18,23,9,0)="parameter for the additional report generated with version 2.7.  If the"
^DD(396.1,18,23,10,0)="C&P REPORT PARAMETER is turned off, the unlinked appointment report will"
^DD(396.1,18,23,11,0)="not be included with the C&P Integrity Report regardless of the value of"
^DD(396.1,18,23,12,0)="the 2507 INTEGRITY REPORT STATUS parameter.  The C&P REPORT PARAMETER"
^DD(396.1,18,23,13,0)="will allow the site to list those 2507 requests lacking appointment links"
^DD(396.1,18,23,14,0)="on the C&P Integrity Report without printing the unlinked appointment"
^DD(396.1,18,23,15,0)="report."
^DD(396.1,18,23,16,0)=" "
^DD(396.1,18,23,17,0)="AGAIN: This parameter is not supported in the release of V2.7 but is"
^DD(396.1,18,23,18,0)="included to allow future support of this functionality.  Future versions"
^DD(396.1,18,23,19,0)="of AMIE may remove this parameter and the potential functionality it"
^DD(396.1,18,23,20,0)="provides."
^DD(396.1,18,"DT")="2941228"
^DD(396.1,50,0)="LAST EXAM NUMBER^NJ12,0I^^5;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(396.1,50,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(396.1,50,9)="^"
^DD(396.1,50,21,0)="^^2^2^2930503^"
^DD(396.1,50,21,1,0)="This field contains the number of the last entry in the 2507 EXAM file"
^DD(396.1,50,21,2,0)="(#396.4).  It should NEVER be edited."
^DD(396.1,50,"DT")="2930209"
^DD(396.1,90,0)="POST INIT SCRATCH^F^^POST;1^K:$L(X)>245!($L(X)<1) X"
^DD(396.1,90,3)="Answer must be 1-245 characters in length."
^DD(396.1,90,21,0)="^^2^2^2940309^^"
^DD(396.1,90,21,1,0)="This field is used during AMIE installations to globally store data needed"
^DD(396.1,90,21,2,0)="to complete a post initialization."
^DD(396.1,90,"DT")="2940126"
^DD(396.1,"B","*DAYS TO KEEP 2507 HISTORY",.11)=""
^DD(396.1,"B","*NUMBER OF DAYS TO KEEP HISTOR",9)=""
^DD(396.1,"B","2507 INTEGRITY REPORT STATUS",14)=""
^DD(396.1,"B","ALL ADMISSIONS REPORT DATE",2)=""
^DD(396.1,"B","APPT LINKING ENHANCED DIALOGUE",17)=""
^DD(396.1,"B","C&P REPORT PARAMETER",18)=""
^DD(396.1,"B","C&P ROUTING LOCATION",15)=""
^DD(396.1,"B","DISCHARGE REPORT DATE",3)=""
^DD(396.1,"B","INCOMPETENT REPORT DATE",4)=""
^DD(396.1,"B","LAST EXAM NUMBER",50)=""
^DD(396.1,"B","PENSION/A&A REPORT DATE",8)=""
^DD(396.1,"B","POST INIT SCRATCH",90)=""
^DD(396.1,"B","READMISSION REPORT DATE",6)=""
^DD(396.1,"B","REGIONAL OFFICES ALLOWED",10)=""
^DD(396.1,"B","REMOTE SITE (2507)",12)=""
^DD(396.1,"B","REMOTE SITE (7131)",11)=""
^DD(396.1,"B","RUN NEW REQUESTS ON SATURDAY?",16)=""
^DD(396.1,"B","SERVICE-CONNECTED REPORT DATE",7)=""
^DD(396.1,"B","SITE NAME",.01)=""
^DD(396.1,"GL",0,1,.01)=""
^DD(396.1,"GL",0,3,2)=""
^DD(396.1,"GL",0,4,3)=""
^DD(396.1,"GL",0,5,4)=""
^DD(396.1,"GL",0,7,6)=""
^DD(396.1,"GL",0,8,7)=""
^DD(396.1,"GL",0,9,8)=""
^DD(396.1,"GL",0,10,9)=""
^DD(396.1,"GL",0,11,.11)=""
^DD(396.1,"GL",0,14,16)=""
^DD(396.1,"GL",0,15,14)=""
^DD(396.1,"GL",0,18,17)=""
^DD(396.1,"GL",0,19,18)=""
^DD(396.1,"GL",1,0,10)=""
^DD(396.1,"GL",2,0,11)=""
^DD(396.1,"GL",3,0,12)=""
^DD(396.1,"GL",4,0,15)=""
^DD(396.1,"GL",5,1,50)=""
^DD(396.1,"GL","POST",1,90)=""
^DD(396.1,"IX",.01)=""
^DD(396.1,"RQ",.01)=""
^DD(396.1,"RQ",14)=""
^DD(396.1,"RQ",16)=""
^DD(396.1,"RQ",17)=""
^DD(396.1,"RQ",18)=""
^DD(396.1,"SB",396.115,15)=""
^DD(396.1,"SB",396.12,10)=""
^DD(396.1,"SB",396.13,11)=""
^DD(396.1,"SB",396.14,12)=""
^DD(396.115,0)="C&P ROUTING LOCATION SUB-FIELD^^.01^1"
^DD(396.115,0,"IX","B",396.115,.01)=""
^DD(396.115,0,"NM","C&P ROUTING LOCATION")=""
^DD(396.115,0,"UP")="396.1"
^DD(396.115,.01,0)="C&P ROUTING LOCATION^MP44'^SC(^0;1^Q"
^DD(396.115,.01,1,0)="^.1"
^DD(396.115,.01,1,1,0)="396.115^B"
^DD(396.115,.01,1,1,1)="S ^DVB(396.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(396.115,.01,1,1,2)="K ^DVB(396.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(396.115,.01,3)="Enter a C&P routing location."
^DD(396.115,.01,21,0)="^^1^1^2950126^^^^"
^DD(396.115,.01,21,1,0)="This field contains Hospital Locations that request 2507 requests."
^DD(396.115,.01,"DT")="2900827"
^DD(396.115,"B","C&P ROUTING LOCATION",.01)=""
^DD(396.115,"GL",0,1,.01)=""
^DD(396.115,"IX",.01)=""
^DD(396.12,0)="REGIONAL OFFICES ALLOWED SUB-FIELD^^.01^1"
^DD(396.12,0,"IX","B",396.12,.01)=""
^DD(396.12,0,"NM","REGIONAL OFFICES ALLOWED")=""
^DD(396.12,0,"UP")="396.1"
^DD(396.12,.01,0)="REGIONAL OFFICES ALLOWED^MP4'^DIC(4,^0;1^Q"
^DD(396.12,.01,1,0)="^.1"
^DD(396.12,.01,1,1,0)="396.12^B"
^DD(396.12,.01,1,1,1)="S ^DVB(396.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(396.12,.01,1,1,2)="K ^DVB(396.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(396.12,.01,3)="Enter the number or name of the Regional Offices which will be using this package at your station."
^DD(396.12,.01,21,0)="^^2^2^2930430^"
^DD(396.12,.01,21,1,0)="This field contains the regional offices that will be using AMIE"
^DD(396.12,.01,21,2,0)="at the site."
^DD(396.12,"B","REGIONAL OFFICES ALLOWED",.01)=""
^DD(396.12,"GL",0,1,.01)=""
^DD(396.12,"IX",.01)=""
^DD(396.13,0)="REMOTE SITE (7131) SUB-FIELD^^1^2"
^DD(396.13,0,"IX","B",396.13,.01)=""
^DD(396.13,0,"NM","REMOTE SITE (7131)")=""
^DD(396.13,0,"UP")="396.1"
^DD(396.13,.01,0)="REMOTE SITE (7131)^MP40.8'^DG(40.8,^0;1^Q"
^DD(396.13,.01,1,0)="^.1"
^DD(396.13,.01,1,1,0)="396.13^B"
^DD(396.13,.01,1,1,1)="S ^DVB(396.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(396.13,.01,1,1,2)="K ^DVB(396.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(396.13,.01,3)="Enter the name of the hospital or a valid remote site."
^DD(396.13,.01,21,0)="^^2^2^2930430^"
^DD(396.13,.01,21,1,0)="This field contains the names of the divisions that will be using"
^DD(396.13,.01,21,2,0)="the 7131 portion of AMIE."
^DD(396.13,1,0)="PRINTER NUMBER^FX^^0;2^K:$L(X)>30!($L(X)<1) X I $D(X) S DVBAX=X,%ZIS=""NQ"",IOP=DVBAX K X D ^%ZIS K:POP DVBAX S:$D(DVBAX) X=ION W:$D(X) ""  Stored internally as "",X S IOP=""HOME"" D ^%ZIS K DVBAX,IOP,%ZIS"
^DD(396.13,1,3)="Must already be in the DEVICE file (#3.5).  [1-30 characters]"
^DD(396.13,1,4)="D HLP2^%ZIS"
^DD(396.13,1,21,0)="^^3^3^2950126^^^^"
^DD(396.13,1,21,1,0)="This field contains the name of the printer designated by the"
^DD(396.13,1,21,2,0)="division for AMIE reports.  NOTE:  This field must be entered"
^DD(396.13,1,21,3,0)="exactly as the printer is defined in the Device file."
^DD(396.13,1,"DT")="2900222"
^DD(396.13,"B","PRINTER NUMBER",1)=""
^DD(396.13,"B","REMOTE SITE (7131)",.01)=""
^DD(396.13,"GL",0,1,.01)=""
^DD(396.13,"GL",0,2,1)=""
^DD(396.13,"IX",.01)=""
^DD(396.14,0)="REMOTE SITE (2507) SUB-FIELD^^1^2"
^DD(396.14,0,"IX","B",396.14,.01)=""
^DD(396.14,0,"NM","REMOTE SITE (2507)")=""
^DD(396.14,0,"UP")="396.1"
^DD(396.14,.01,0)="REMOTE SITE (2507)^MP40.8'^DG(40.8,^0;1^Q"
^DD(396.14,.01,1,0)="^.1"
^DD(396.14,.01,1,1,0)="396.14^B"
^DD(396.14,.01,1,1,1)="S ^DVB(396.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(396.14,.01,1,1,2)="K ^DVB(396.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(396.14,.01,3)="Enter the name of the hospital or a valid remote site."
^DD(396.14,.01,21,0)="^^2^2^2930430^"
^DD(396.14,.01,21,1,0)="This field contains the names of the divisions that will be using"
^DD(396.14,.01,21,2,0)="the C&P portion of AMIE."
^DD(396.14,1,0)="PRINTER NUMBER^FX^^0;2^K:$L(X)>30!($L(X)<1) X I $D(X) S DVBAX=X,%ZIS=""NQ"",IOP=DVBAX K X D ^%ZIS K:POP DVBAX S:$D(DVBAX) X=ION W:$D(X) ""  Stored internally as "",X S IOP=""HOME"" D ^%ZIS K IOP,%ZIS"
^DD(396.14,1,3)="Must already be in the Device file.  [1-30 characters]"
^DD(396.14,1,4)="D HLP2^%ZIS"
^DD(396.14,1,21,0)="^^3^3^2940304^^^^"
^DD(396.14,1,21,1,0)="This field contains the name of the printer designated by the"
^DD(396.14,1,21,2,0)="division to be used for 2507 reports.  NOTE:  This field must be"
^DD(396.14,1,21,3,0)="entered exactly as the printer is defined in the Device file."
^DD(396.14,1,"DT")="2900222"
^DD(396.14,"B","PRINTER NUMBER",1)=""
^DD(396.14,"B","REMOTE SITE (2507)",.01)=""
^DD(396.14,"GL",0,1,.01)=""
^DD(396.14,"GL",0,2,1)=""
^DD(396.14,"IX",.01)=""
^DD(396.15,0)="FIELD^^4^4"
^DD(396.15,0,"DT")="3020904"
^DD(396.15,0,"IX","B",396.15,.01)=""
^DD(396.15,0,"NM","CAPRI DIVISION EXAM LIST")=""
^DD(396.15,0,"VR")="2.7"
^DD(396.15,0,"VRPK")="DVBA"
^DD(396.15,.01,0)="DIVISION^RP40.8'^DG(40.8,^0;1^Q"
^DD(396.15,.01,1,0)="^.1"
^DD(396.15,.01,1,1,0)="396.15^B"
^DD(396.15,.01,1,1,1)="S ^DVB(396.15,""B"",$E(X,1,30),DA)="""""
^DD(396.15,.01,1,1,2)="K ^DVB(396.15,""B"",$E(X,1,30),DA)"
^DD(396.15,.01,3)=""
^DD(396.15,.01,21,0)="^^2^2^3020904^"
^DD(396.15,.01,21,1,0)="Medical center divisions will automatically be added to this field when "
^DD(396.15,.01,21,2,0)="the setup utility is accessed in the CAPRI GUI."
^DD(396.15,.01,"DT")="3020904"
^DD(396.15,1,0)="CUSTOM EXAM LISTS^396.151^^1;0"
^DD(396.15,3,0)="COMMENT FOR GUI^396.153^^2;0"
^DD(396.15,3,21,0)="^^2^2^3020904^"
^DD(396.15,3,21,1,0)="This field holds a comment to be displayed in the CAPRI GUI when this "
^DD(396.15,3,21,2,0)="division is selected."
^DD(396.15,4,0)="DISABLE ALL EXAMS?^S^Y:YES;N:NO;^3;1^Q"
^DD(396.15,4,21,0)="^^2^2^3020904^"
^DD(396.15,4,21,1,0)="Used to determine if a division should show in the list of routing "
^DD(396.15,4,21,2,0)="locations in the CAPRI GUI."
^DD(396.15,4,23,0)="^^2^2^3020904^"
^DD(396.15,4,23,1,0)="Set to ""YES"" to hide the division.  If ""NO"" or blank, then the division "
^DD(396.15,4,23,2,0)="will show."
^DD(396.15,4,"DT")="3020904"
^DD(396.15,"B","COMMENT FOR GUI",3)=""
^DD(396.15,"B","CUSTOM EXAM LISTS",1)=""
^DD(396.15,"B","DISABLE ALL EXAMS?",4)=""
^DD(396.15,"B","DIVISION",.01)=""
^DD(396.15,"GL",0,1,.01)=""
^DD(396.15,"GL",1,0,1)=""
^DD(396.15,"GL",2,0,3)=""
^DD(396.15,"GL",3,1,4)=""
^DD(396.15,"IX",.01)=""
^DD(396.15,"RQ",.01)=""
^DD(396.15,"SB",396.151,1)=""
^DD(396.15,"SB",396.153,3)=""
^DD(396.151,0)="CUSTOM EXAM LISTS SUB-FIELD^^4^5"
^DD(396.151,0,"DT")="3020904"
^DD(396.151,0,"IX","B",396.151,.01)=""
^DD(396.151,0,"NM","CUSTOM EXAM LISTS")=""
^DD(396.151,0,"UP")="396.15"
^DD(396.151,.01,0)="NAME OF LIST^MRF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(396.151,.01,1,0)="^.1"
^DD(396.151,.01,1,1,0)="396.151^B"
^DD(396.151,.01,1,1,1)="S ^DVB(396.15,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(396.151,.01,1,1,2)="K ^DVB(396.15,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(396.151,.01,3)="Answer must be 1-80 characters in length."
^DD(396.151,.01,21,0)="^^3^3^3020904^"
^DD(396.151,.01,21,1,0)="Free-text name of the list.  The user will never see this name.  The only "
^DD(396.151,.01,21,2,0)="place it will be visible is in the configuration menu for exam lists in "
^DD(396.151,.01,21,3,0)="the CAPRI GUI."
^DD(396.151,.01,"DT")="3020904"
^DD(396.151,1,0)="COMMENT FOR GUI^396.1511^^1;0"
^DD(396.151,1,21,0)="^^3^3^3020904^"
^DD(396.151,1,21,1,0)="This comment will be displayed if this list becomes the active list in "
^DD(396.151,1,21,2,0)="the CAPRI GUI.  This is not the comment for the division, but only "
^DD(396.151,1,21,3,0)="pertains to the specific list being accessed."
^DD(396.151,2,0)="DEFAULT LIST FOR DISPLAY?^S^Y:YES;N:NO;^2;1^Q"
^DD(396.151,2,21,0)="^^2^2^3020904^"
^DD(396.151,2,21,1,0)="If this is the default list for the division, set this to YES.  "
^DD(396.151,2,21,2,0)="Otherwise, leave it blank or set to NO."
^DD(396.151,2,"DT")="3020904"
^DD(396.151,3,0)="INSTITUTION LIST APPLIES TO^P4'^DIC(4,^2;2^Q"
^DD(396.151,3,21,0)="^^9^9^3020904^"
^DD(396.151,3,21,1,0)="If there is a specific institution that this list applies to "
^DD(396.151,3,21,2,0)="(e.g. ST.PETERSBURG-RO), then enter the name.  The list will be displayed "
^DD(396.151,3,21,3,0)="to the user if their assigned division matches this entry and they've "
^DD(396.151,3,21,4,0)="selected the division under which this list is being created."
^DD(396.151,3,21,5,0)=" "
^DD(396.151,3,21,6,0)="This will allow the site, for example, to create a separate list for "
^DD(396.151,3,21,7,0)="Veterans Benefits, Board of Veterans Appeals, Tiger Team, etc.  In some "
^DD(396.151,3,21,8,0)="cases, an exam of one type may be done at a division for BVA but not "
^DD(396.151,3,21,9,0)="VBA."
^DD(396.151,3,"DT")="3020904"
^DD(396.151,4,0)="EXAM LIST^396.1514P^^3;0"
^DD(396.151,"B","COMMENT FOR GUI",1)=""
^DD(396.151,"B","DEFAULT LIST FOR DISPLAY?",2)=""
^DD(396.151,"B","EXAM LIST",4)=""
^DD(396.151,"B","INSTITUTION LIST APPLIES TO",3)=""
^DD(396.151,"B","NAME OF LIST",.01)=""
^DD(396.151,"GL",0,1,.01)=""
^DD(396.151,"GL",1,0,1)=""
^DD(396.151,"GL",2,1,2)=""
^DD(396.151,"GL",2,2,3)=""
^DD(396.151,"GL",3,0,4)=""
^DD(396.151,"IX",.01)=""
^DD(396.151,"RQ",.01)=""
^DD(396.151,"SB",396.1511,1)=""
^DD(396.151,"SB",396.1514,4)=""
^DD(396.1511,0)="COMMENT FOR GUI SUB-FIELD^^.01^1"
^DD(396.1511,0,"DT")="3020904"
^DD(396.1511,0,"NM","COMMENT FOR GUI")=""
^DD(396.1511,0,"UP")="396.151"
^DD(396.1511,.01,0)="COMMENT FOR GUI^W^^0;1^Q"
^DD(396.1511,.01,"DT")="3020904"
^DD(396.1511,"B","COMMENT FOR GUI",.01)=""
^DD(396.1511,"GL",0,1,.01)=""
^DD(396.1514,0)="EXAM LIST SUB-FIELD^^2^3"
^DD(396.1514,0,"DT")="3020904"
^DD(396.1514,0,"IX","B",396.1514,.01)=""
^DD(396.1514,0,"NM","EXAM LIST")=""
^DD(396.1514,0,"UP")="396.151"
^DD(396.1514,.01,0)="EXAM NAME^MP396.6'^DVB(396.6,^0;1^Q"
^DD(396.1514,.01,1,0)="^.1"
^DD(396.1514,.01,1,1,0)="396.1514^B"
^DD(396.1514,.01,1,1,1)="S ^DVB(396.15,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(396.1514,.01,1,1,2)="K ^DVB(396.15,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(396.1514,.01,21,0)="^^3^3^3020904^"
^DD(396.1514,.01,21,1,0)="The CAPRI GUI will automatically keep information in this field updated.  "
^DD(396.1514,.01,21,2,0)="If a new exam type is released nationally, CAPRI will add it to this "
^DD(396.1514,.01,21,3,0)="multiple."
^DD(396.1514,.01,"DT")="3020904"
^DD(396.1514,1,0)="COMMENT^396.15141^^1;0"
^DD(396.1514,1,21,0)="^^4^4^3020904^"
^DD(396.1514,1,21,1,0)="This field can hold a comment that applies to the examination being "
^DD(396.1514,1,21,2,0)="selected in case there is information the site would like displayed to "
^DD(396.1514,1,21,3,0)="the user (i.e.  ""This examination can be performed faster if ordered at "
^DD(396.1514,1,21,4,0)="the main facility division."")"
^DD(396.1514,2,0)="ACTIVE?^S^Y:YES;N:NO;^2;1^Q"
^DD(396.1514,2,21,0)="^^3^3^3020904^"
^DD(396.1514,2,21,1,0)="This field controls whether the exam appears as active (black) or "
^DD(396.1514,2,21,2,0)="inactive (red) in the CAPRI GUI.  If set to ""NO,"" it will appear "
^DD(396.1514,2,21,3,0)="inactive.  If set to ""YES"" or left blank, it will appear as active."
^DD(396.1514,2,"DT")="3020904"
^DD(396.1514,"B","ACTIVE?",2)=""
^DD(396.1514,"B","COMMENT",1)=""
^DD(396.1514,"B","EXAM NAME",.01)=""
^DD(396.1514,"GL",0,1,.01)=""
^DD(396.1514,"GL",1,0,1)=""
^DD(396.1514,"GL",2,1,2)=""
^DD(396.1514,"IX",.01)=""
^DD(396.1514,"SB",396.15141,1)=""
^DD(396.15141,0)="COMMENT SUB-FIELD^^.01^1"
^DD(396.15141,0,"DT")="3020904"
^DD(396.15141,0,"NM","COMMENT")=""
^DD(396.15141,0,"UP")="396.1514"
^DD(396.15141,.01,0)="COMMENT^W^^0;1^Q"
^DD(396.15141,.01,"DT")="3020904"
^DD(396.15141,"B","COMMENT",.01)=""
^DD(396.15141,"GL",0,1,.01)=""
^DD(396.153,0)="COMMENT FOR GUI SUB-FIELD^^.01^1"
^DD(396.153,0,"DT")="3020904"
^DD(396.153,0,"NM","COMMENT FOR GUI")=""
^DD(396.153,0,"UP")="396.15"
^DD(396.153,.01,0)="COMMENT FOR GUI^W^^0;1^Q"
^DD(396.153,.01,"DT")="3020904"
^DD(396.153,"B","COMMENT FOR GUI",.01)=""
^DD(396.153,"GL",0,1,.01)=""
^DD(396.17,0)="FIELD^^22^22"
^DD(396.17,0,"DDA")="N"
^DD(396.17,0,"DT")="3060619"
^DD(396.17,0,"ID",9)="W:$D(^(4)) ""   "",$P(^(4),U,1)"
^DD(396.17,0,"IX","AC",396.17,16)=""
^DD(396.17,0,"IX","AT",396.17,2)=""
^DD(396.17,0,"IX","B",396.17,.01)=""
^DD(396.17,0,"IX","C",396.17,5)=""
^DD(396.17,0,"IX","FT",396.17,9)=""
^DD(396.17,0,"IX","ID",396.1715,2)=""
^DD(396.17,0,"IX","RS",396.17,11)=""
^DD(396.17,0,"IX","TR",396.17,10)=""
^DD(396.17,0,"NM","CAPRI TEMPLATES")=" "
^DD(396.17,0,"PT",396.4,1)=""
^DD(396.17,0,"VR")="2.7"
^DD(396.17,0,"VRPK")="DVBA"
^DD(396.17,.001,0)="NUMBER^NJ12,0a^^ ^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(396.17,.001,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(396.17,.001,21,0)="^^2^2^3030530^"
^DD(396.17,.001,21,1,0)="This field is used to maintain a tracking ID # used internally in "
^DD(396.17,.001,21,2,0)="the CAPRI Delphi client."
^DD(396.17,.001,"AUDIT")="e"
^DD(396.17,.001,"DT")="3060428"
^DD(396.17,.01,0)="NAME^P2'a^DPT(^0;1^Q"
^DD(396.17,.01,1,0)="^.1"
^DD(396.17,.01,1,1,0)="396.17^B"
^DD(396.17,.01,1,1,1)="S ^DVB(396.17,""B"",$E(X,1,30),DA)="""""
^DD(396.17,.01,1,1,2)="K ^DVB(396.17,""B"",$E(X,1,30),DA)"
^DD(396.17,.01,3)=" "
^DD(396.17,.01,21,0)="^.001^1^1^3050428^^"
^DD(396.17,.01,21,1,0)="Pointer field to the PATIENT (#2) file to link the document to a patient."
^DD(396.17,.01,"AUDIT")="e"
^DD(396.17,.01,"DT")="3060428"
^DD(396.17,2,0)="AUTHOR^P200'^VA(200,^0;2^Q"
^DD(396.17,2,1,0)="^.1"
^DD(396.17,2,1,1,0)="396.17^AT"
^DD(396.17,2,1,1,1)="S ^DVB(396.17,""AT"",$E(X,1,30),DA)="""""
^DD(396.17,2,1,1,2)="K ^DVB(396.17,""AT"",$E(X,1,30),DA)"
^DD(396.17,2,1,1,"DT")="3030530"
^DD(396.17,2,21,0)="^^2^2^3030530^"
^DD(396.17,2,21,1,0)="Pointer field to NEW PERSON (#200) file to link document to a user "
^DD(396.17,2,21,2,0)="responsible for managing the document in CAPRI."
^DD(396.17,2,"DT")="3030530"
^DD(396.17,3,0)="DATE/TIME ENTERED^Da^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.17,3,21,0)="^^2^2^3030530^"
^DD(396.17,3,21,1,0)="This field is used to record the exact date/time the document was "
^DD(396.17,3,21,2,0)="originally started.  "
^DD(396.17,3,"AUDIT")="e"
^DD(396.17,3,"DT")="3060428"
^DD(396.17,4,0)="DATE/TIME UPDATED^Da^^0;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.17,4,21,0)="^^4^4^3030530^"
^DD(396.17,4,21,1,0)="This field records the last time data was saved back to VistA.  It will "
^DD(396.17,4,21,2,0)="be updated during auto-saves, at signature, and if the user saves their "
^DD(396.17,4,21,3,0)="document from within CAPRI.  It will not be updated if a reviewer works "
^DD(396.17,4,21,4,0)="with the document unless information is changed in the form fields."
^DD(396.17,4,"AUDIT")="e"
^DD(396.17,4,"DT")="3060428"
^DD(396.17,5,0)="DATE/TIME LOCKED^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(396.17,5,1,0)="^.1"
^DD(396.17,5,1,1,0)="396.17^C"
^DD(396.17,5,1,1,1)="S ^DVB(396.17,""C"",$E(X,1,30),DA)="""""
^DD(396.17,5,1,1,2)="K ^DVB(396.17,""C"",$E(X,1,30),DA)"
^DD(396.17,5,1,1,"DT")="3021024"
^DD(396.17,5,21,0)="^^3^3^3030530^"
^DD(396.17,5,21,1,0)="This field will be filled in at the time the note is transferred to TIU.  "
^DD(396.17,5,21,2,0)="This will prevent further modification of the document contents by "
^DD(396.17,5,21,3,0)="reviewer or author."
^DD(396.17,5,"DT")="3030530"
^DD(396.17,6,0)="TEMPLATES UTILIZED^396.176^^1;0"
^DD(396.17,6,21,0)="^^3^3^3030530^"
^DD(396.17,6,21,1,0)="A document may be made up of more than one of the predefined C&P "
^DD(396.17,6,21,2,0)="templates.  This word processing field will store each template utilized"
^DD(396.17,6,21,3,0)="during the documentation process on a separate line."
^DD(396.17,7,0)="TIU DOCUMENT NUMBER^NJ15,0^^2;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(396.17,7,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(396.17,7,21,0)="^^3^3^3030530^"
^DD(396.17,7,21,1,0)="After the document is completed and transferred into TIU as an ASCII "
^DD(396.17,7,21,2,0)="report, the new TIU file/document number will be stored in this field for "
^DD(396.17,7,21,3,0)="auditing/validation purposes later. "
^DD(396.17,7,"DT")="3030530"
^DD(396.17,8,0)="FORM DATA^396.178^^3;0"
^DD(396.17,8,21,0)="^.001^6^6^3030530^^^"
^DD(396.17,8,21,1,0)="All of the MS Windows generated ascii code to re-populate GUI form fields"
^DD(396.17,8,21,2,0)="will be stored in this field.  A standard Windows API is used to generate"
^DD(396.17,8,21,3,0)="this text."
^DD(396.17,8,21,4,0)=" "
^DD(396.17,8,21,5,0)="WARNING:  DO NOT EDIT THIS FIELD OR THE DOCUMENT MAY BECOME CORRUPT AND"
^DD(396.17,8,21,6,0)="INACCESSIBLE FROM THE GUI."
^DD(396.17,8.5,0)="FORM SAVE BUFFER^396.19D^^9;0"
^DD(396.17,8.5,21,0)="^.001^5^5^3050314^^^^"
^DD(396.17,8.5,21,1,0)="Snapshots of the user's template data each time they exit the template in "
^DD(396.17,8.5,21,2,0)="the GUI will be stored here.  They'll be used in case of template "
^DD(396.17,8.5,21,3,0)="corruption or if the user wishes to revert to an earlier version of their "
^DD(396.17,8.5,21,4,0)="work.  Once a form is signed and successfully in TIU, then the data in "
^DD(396.17,8.5,21,5,0)="this field will be removed."
^DD(396.17,9,0)="FORM TITLE^F^^4;1^K:$L(X)>250!($L(X)<1) X"
^DD(396.17,9,1,0)="^.1"
^DD(396.17,9,1,1,0)="396.17^FT"
^DD(396.17,9,1,1,1)="S ^DVB(396.17,""FT"",$E(X,1,30),DA)="""""
^DD(396.17,9,1,1,2)="K ^DVB(396.17,""FT"",$E(X,1,30),DA)"
^DD(396.17,9,1,1,"DT")="3030530"
^DD(396.17,9,3)="Answer must be 1-250 characters in length."
^DD(396.17,9,21,0)="^.001^2^2^3031009^^"
^DD(396.17,9,21,1,0)="The text in this field will be displayed in CAPRI as the document title "
^DD(396.17,9,21,2,0)="in lists and reports."
^DD(396.17,9,"DT")="3031009"
^DD(396.17,10,0)="TRANSCRIBER^P200'^VA(200,^5;1^Q"
^DD(396.17,10,1,0)="^.1"
^DD(396.17,10,1,1,0)="396.17^TR"
^DD(396.17,10,1,1,1)="S ^DVB(396.17,""TR"",$E(X,1,30),DA)="""""
^DD(396.17,10,1,1,2)="K ^DVB(396.17,""TR"",$E(X,1,30),DA)"
^DD(396.17,10,1,1,"DT")="3030530"
^DD(396.17,10,21,0)="^^3^3^3030530^"
^DD(396.17,10,21,1,0)="If the document is created for someone, the individual who created the "
^DD(396.17,10,21,2,0)="document will be placed into this field.  For example, a clerk may create "
^DD(396.17,10,21,3,0)="a document for a physician in advance of an appointment."
^DD(396.17,10,"DT")="3030530"
^DD(396.17,11,0)="REVIEW STATUS^Sa^P:REVIEW PENDING;N:NOT REQUIRED;S:SENT BACK;C:COMPLETE;D:DRAFT/NOT READY;A:AWAITING SIGNATURE;U:UNCOSIGNED;L:DELETED;^5;2^Q"
^DD(396.17,11,1,0)="^.1"
^DD(396.17,11,1,1,0)="396.17^RS"
^DD(396.17,11,1,1,1)="S ^DVB(396.17,""RS"",$E(X,1,30),DA)="""""
^DD(396.17,11,1,1,2)="K ^DVB(396.17,""RS"",$E(X,1,30),DA)"
^DD(396.17,11,1,1,"DT")="3030530"
^DD(396.17,11,21,0)="^.001^7^7^3060519^^^"
^DD(396.17,11,21,1,0)="This field is used when the reviewer functionality is activated within "
^DD(396.17,11,21,2,0)="the CAPRI GUI to find documents that may be new and need review.  In "
^DD(396.17,11,21,3,0)="addition, if the field is set to SENT BACK, then the original author will "
^DD(396.17,11,21,4,0)="be notified in the CAPRI GUI that they have a document returned to them "
^DD(396.17,11,21,5,0)="from the reviewer.  The field will be set to the current document status "
^DD(396.17,11,21,6,0)="and may be cycled through several values before the document is finally "
^DD(396.17,11,21,7,0)="completed."
^DD(396.17,11,"AUDIT")="y"
^DD(396.17,11,"DT")="3060519"
^DD(396.17,14,0)="REVIEW DATE/TIME^396.1714D^^6;0"
^DD(396.17,15,0)="FORM SAVED DATA^396.1715^^7;0"
^DD(396.17,16,0)="LOCKED?^S^0:NO;1:YES;^8;1^Q"
^DD(396.17,16,1,0)="^.1"
^DD(396.17,16,1,1,0)="396.17^AC"
^DD(396.17,16,1,1,1)="S ^DVB(396.17,""AC"",$E(X,1,30),DA)="""""
^DD(396.17,16,1,1,2)="K ^DVB(396.17,""AC"",$E(X,1,30),DA)"
^DD(396.17,16,1,1,"DT")="3031113"
^DD(396.17,16,21,0)="^^3^3^3031113^"
^DD(396.17,16,21,1,0)="This field is used to find forms that require some action by the user."
^DD(396.17,16,21,2,0)="Once the template has been uploaded to TIU, the value in this field will "
^DD(396.17,16,21,3,0)="be deleted."
^DD(396.17,16,"DT")="3031113"
^DD(396.17,17,0)="IN USE^F^^8;2^K:$L(X)>200!($L(X)<3) X"
^DD(396.17,17,3)="Answer must be 3-200 characters in length."
^DD(396.17,17,21,0)="^^11^11^3050128^"
^DD(396.17,17,21,1,0)="Once a form has been opened in the GUI, this field will be populated with "
^DD(396.17,17,21,2,0)="identifying information - user DUZ^date/time file was opened.  It "
^DD(396.17,17,21,3,0)="will be left in edit mode in the GUI fileman components until the user "
^DD(396.17,17,21,4,0)="exits.  The data will then be cleared and the field exited on the GUI "
^DD(396.17,17,21,5,0)="side. If the application is terminated prematurely, the lock is"
^DD(396.17,17,21,6,0)="automatically dropped."
^DD(396.17,17,21,7,0)=" "
^DD(396.17,17,21,8,0)="By leaving the field in edit mode throughout the session, until the user "
^DD(396.17,17,21,9,0)="closes their template, other CAPRI instances will be able to tell that "
^DD(396.17,17,21,10,0)="someone is using the record and prevent other users from changing the "
^DD(396.17,17,21,11,0)="data until the first user exits."
^DD(396.17,17,"DT")="3050128"
^DD(396.17,18,0)="AMIE EXAMS^396.1718P^^10;0"
^DD(396.17,19,0)="FLAG NEW^S^0:N;1:Y;^11;1^Q"
^DD(396.17,19,"DT")="3051103"
^DD(396.17,20,0)="FLAG GREEN FLAG^S^0:N;1:Y;^11;2^Q"
^DD(396.17,20,"DT")="3051103"
^DD(396.17,21,0)="FLAG EXCLAMATION^S^0:N;1:Y;^11;3^Q"
^DD(396.17,21,"DT")="3051103"
^DD(396.17,22,0)="PERFORMANCE USE DATA^F^^12;1^K:$L(X)>250!($L(X)<1) X"
^DD(396.17,22,3)="Answer must be 1-250 characters in length."
^DD(396.17,22,21,0)="^^4^4^3060619^"
^DD(396.17,22,21,1,0)="THIS FIELD IS USED FOR DATA ANALYSIS AND QUALITY IMPROVEMENT."
^DD(396.17,22,21,2,0)="DATA WILL BE STORED IN THIS FORMAT:"
^DD(396.17,22,21,3,0)="MERGED TEMPATE (Y/N)^TOTAL TIME FORM WAS IN USE^DOCUMENTATION CLUSTERS^"
^DD(396.17,22,21,4,0)="DOCUMENTATION CLUSTER TIME INTERVAL"
^DD(396.17,22,"DT")="3060619"
^DD(396.17,"AUDIT",.001)=""
^DD(396.17,"AUDIT",.01)=""
^DD(396.17,"AUDIT",3)=""
^DD(396.17,"AUDIT",4)=""
^DD(396.17,"AUDIT",11)=""
^DD(396.17,"B","AMIE EXAMS",18)=""
^DD(396.17,"B","AUTHOR",2)=""
^DD(396.17,"B","DATE/TIME ENTERED",3)=""
^DD(396.17,"B","DATE/TIME LOCKED",5)=""
^DD(396.17,"B","DATE/TIME UPDATED",4)=""
^DD(396.17,"B","FLAG EXCLAMATION",21)=""
^DD(396.17,"B","FLAG GREEN FLAG",20)=""
^DD(396.17,"B","FLAG NEW",19)=""
^DD(396.17,"B","FORM DATA",8)=""
^DD(396.17,"B","FORM SAVE BUFFER",8.5)=""
^DD(396.17,"B","FORM SAVED DATA",15)=""
^DD(396.17,"B","FORM TITLE",9)=""
^DD(396.17,"B","IN USE",17)=""
^DD(396.17,"B","LOCKED?",16)=""
^DD(396.17,"B","NAME",.01)=""
^DD(396.17,"B","NUMBER",.001)=""
^DD(396.17,"B","PERFORMANCE USE DATA",22)=""
^DD(396.17,"B","REVIEW DATE/TIME",14)=""
^DD(396.17,"B","REVIEW STATUS",11)=""
^DD(396.17,"B","TEMPLATES UTILIZED",6)=""
^DD(396.17,"B","TIU DOCUMENT NUMBER",7)=""
^DD(396.17,"B","TRANSCRIBER",10)=""
^DD(396.17,"GL",0,1,.01)=""
^DD(396.17,"GL",0,2,2)=""
^DD(396.17,"GL",0,3,3)=""
^DD(396.17,"GL",0,4,4)=""
^DD(396.17,"GL",0,5,5)=""
^DD(396.17,"GL",1,0,6)=""
^DD(396.17,"GL",2,1,7)=""
^DD(396.17,"GL",3,0,8)=""
^DD(396.17,"GL",4,1,9)=""
^DD(396.17,"GL",5,1,10)=""
^DD(396.17,"GL",5,2,11)=""
^DD(396.17,"GL",6,0,14)=""
^DD(396.17,"GL",7,0,15)=""
^DD(396.17,"GL",8,1,16)=""
^DD(396.17,"GL",8,2,17)=""
^DD(396.17,"GL",9,0,8.5)=""
^DD(396.17,"GL",10,0,18)=""
^DD(396.17,"GL",11,1,19)=""
^DD(396.17,"GL",11,2,20)=""
^DD(396.17,"GL",11,3,21)=""
^DD(396.17,"GL",12,1,22)=""
^DD(396.17,"IX",.01)=""
^DD(396.17,"IX",2)=""
^DD(396.17,"IX",5)=""
^DD(396.17,"IX",9)=""
^DD(396.17,"IX",10)=""
^DD(396.17,"IX",11)=""
^DD(396.17,"IX",16)=""
^DD(396.17,"SB",396.1714,14)=""
^DD(396.17,"SB",396.1715,15)=""
^DD(396.17,"SB",396.1718,18)=""
^DD(396.17,"SB",396.176,6)=""
^DD(396.17,"SB",396.178,8)=""
^DD(396.17,"SB",396.19,8.5)=""
^DD(396.1714,0)="REVIEW DATE/TIME SUB-FIELD^^4^5"
^DD(396.1714,0,"DT")="3030530"
^DD(396.1714,0,"IX","B",396.1714,.01)=""
^DD(396.1714,0,"NM","REVIEW DATE/TIME")=" "
^DD(396.1714,0,"UP")="396.17"
^DD(396.1714,.01,0)="REVIEW DATE/TIME^MDa^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1714,.01,1,0)="^.1"
^DD(396.1714,.01,1,1,0)="396.1714^B"
^DD(396.1714,.01,1,1,1)="S ^DVB(396.17,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(396.1714,.01,1,1,2)="K ^DVB(396.17,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(396.1714,.01,21,0)="^^2^2^3030530^"
^DD(396.1714,.01,21,1,0)="An entry will be made here each time a new ""needs review"" action is "
^DD(396.1714,.01,21,2,0)="activated in the CAPRI GUI."
^DD(396.1714,.01,"AUDIT")="y"
^DD(396.1714,.01,"DT")="3060428"
^DD(396.1714,1,0)="REVIEWER NAME^P200'^VA(200,^0;2^Q"
^DD(396.1714,1,21,0)="^^3^3^3030530^"
^DD(396.1714,1,21,1,0)="This field will remain blank until one of the C&P Exam reviewers picks up"
^DD(396.1714,1,21,2,0)="on the document from within the GUI and activates it using their"
^DD(396.1714,1,21,3,0)="reviewer-specific dialogs."
^DD(396.1714,1,"DT")="3030530"
^DD(396.1714,2,0)="DATE/TIME MARKED COMPLETE^D^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1714,2,21,0)="^^2^2^3030530^"
^DD(396.1714,2,21,1,0)="Once the reviewer is satisfied with the document and transfers it to TIU, "
^DD(396.1714,2,21,2,0)="this field will be completed automatically by the CAPRI GUI."
^DD(396.1714,2,"DT")="3030530"
^DD(396.1714,3,0)="DATE/TIME SENT BACK^D^^0;4^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.1714,3,21,0)="^^3^3^3030530^"
^DD(396.1714,3,21,1,0)="If during the review activity, the review would like the original author "
^DD(396.1714,3,21,2,0)="to re-address the document, then this field will be populated.  "
^DD(396.1714,3,21,3,0)="Otherwise, it will remain blank."
^DD(396.1714,3,"DT")="3030530"
^DD(396.1714,4,0)="SENT BACK COMMENTS^396.17144^^1;0"
^DD(396.1714,4,21,0)="^^4^4^3030530^"
^DD(396.1714,4,21,1,0)="This field contains a list of comments the reviewer wishes to send to the "
^DD(396.1714,4,21,2,0)="document author.  Normally, it will contain required or suggested changes "
^DD(396.1714,4,21,3,0)="to the document.  These comments will not be part of the final TIU/AMIE "
^DD(396.1714,4,21,4,0)="examination report document."
^DD(396.1714,"AUDIT",.01)=""
^DD(396.1714,"B","DATE/TIME MARKED COMPLETE",2)=""
^DD(396.1714,"B","DATE/TIME SENT BACK",3)=""
^DD(396.1714,"B","REVIEW DATE/TIME",.01)=""
^DD(396.1714,"B","REVIEWER NAME",1)=""
^DD(396.1714,"B","SENT BACK COMMENTS",4)=""
^DD(396.1714,"GL",0,1,.01)=""
^DD(396.1714,"GL",0,2,1)=""
^DD(396.1714,"GL",0,3,2)=""
^DD(396.1714,"GL",0,4,3)=""
^DD(396.1714,"GL",1,0,4)=""
^DD(396.1714,"IX",.01)=""
^DD(396.1714,"SB",396.17144,4)=""
^DD(396.17144,0)="SENT BACK COMMENTS SUB-FIELD^^.01^1"
^DD(396.17144,0,"DT")="3030530"
^DD(396.17144,0,"NM","SENT BACK COMMENTS")=" "
^DD(396.17144,0,"UP")="396.1714"
^DD(396.17144,.01,0)="SENT BACK COMMENTS^W^^0;1^Q"
^DD(396.17144,.01,"DT")="3030530"
^DD(396.17144,"B","SENT BACK COMMENTS",.01)=""
^DD(396.17144,"GL",0,1,.01)=""
^DD(396.1715,0)="FORM SAVED DATA SUB-FIELD^^3^4"
^DD(396.1715,0,"DT")="3031002"
^DD(396.1715,0,"IX","B",396.1715,.01)=""
^DD(396.1715,0,"NM","FORM SAVED DATA")=" "
^DD(396.1715,0,"UP")="396.17"
^DD(396.1715,.01,0)="CONTROL NAME^MF^^0;1^K:$L(X)>200!($L(X)<3) X"
^DD(396.1715,.01,1,0)="^.1"
^DD(396.1715,.01,1,1,0)="396.1715^B"
^DD(396.1715,.01,1,1,1)="S ^DVB(396.17,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(396.1715,.01,1,1,2)="K ^DVB(396.17,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(396.1715,.01,3)="Answer must be 3-200 characters in length."
^DD(396.1715,.01,"DT")="3031002"
^DD(396.1715,1,0)="CONTROL TYPE^F^^0;2^K:$L(X)>20!($L(X)<3) X"
^DD(396.1715,1,3)="Answer must be 3-20 characters in length."
^DD(396.1715,1,"DT")="3031001"
^DD(396.1715,2,0)="OBJECT ID^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(396.1715,2,1,0)="^.1"
^DD(396.1715,2,1,1,0)="396.17^ID"
^DD(396.1715,2,1,1,1)="S ^DVB(396.17,""ID"",$E(X,1,30),DA(1),DA)="""""
^DD(396.1715,2,1,1,2)="K ^DVB(396.17,""ID"",$E(X,1,30),DA(1),DA)"
^DD(396.1715,2,1,1,"DT")="3031001"
^DD(396.1715,2,3)="Answer must be 1-15 characters in length."
^DD(396.1715,2,"DT")="3031001"
^DD(396.1715,3,0)="DATA^396.17153^^1;0"
^DD(396.1715,"B","CONTROL NAME",.01)=""
^DD(396.1715,"B","CONTROL TYPE",1)=""
^DD(396.1715,"B","DATA",3)=""
^DD(396.1715,"B","OBJECT ID",2)=""
^DD(396.1715,"GL",0,1,.01)=""
^DD(396.1715,"GL",0,2,1)=""
^DD(396.1715,"GL",0,3,2)=""
^DD(396.1715,"GL",1,0,3)=""
^DD(396.1715,"IX",.01)=""
^DD(396.1715,"IX",2)=""
^DD(396.1715,"SB",396.17153,3)=""
^DD(396.17153,0)="DATA SUB-FIELD^^.01^1"
^DD(396.17153,0,"DT")="3031001"
^DD(396.17153,0,"NM","DATA")=" "
^DD(396.17153,0,"UP")="396.1715"
^DD(396.17153,.01,0)="DATA^WL^^0;1^Q"
^DD(396.17153,.01,"DT")="3031001"
^DD(396.17153,"B","DATA",.01)=""
^DD(396.17153,"GL",0,1,.01)=""
^DD(396.1718,0)="AMIE EXAMS SUB-FIELD^^.01^1"
^DD(396.1718,0,"DT")="3050518"
^DD(396.1718,0,"IX","B",396.1718,.01)=""
^DD(396.1718,0,"NM","AMIE EXAMS")=" "
^DD(396.1718,0,"UP")="396.17"
^DD(396.1718,.01,0)="AMIE EXAMS^MP396.4'^DVB(396.4,^0;1^Q"
^DD(396.1718,.01,1,0)="^.1"
^DD(396.1718,.01,1,1,0)="396.1718^B"
^DD(396.1718,.01,1,1,1)="S ^DVB(396.17,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(396.1718,.01,1,1,2)="K ^DVB(396.17,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(396.1718,.01,21,0)="^^2^2^3050518^"
^DD(396.1718,.01,21,1,0)="Contains references to the AMIE exams being closed at the point this exam "
^DD(396.1718,.01,21,2,0)="template is signed in TIU."
^DD(396.1718,.01,"DT")="3050518"
^DD(396.1718,"B","AMIE EXAMS",.01)=""
^DD(396.1718,"GL",0,1,.01)=""
^DD(396.1718,"IX",.01)=""
^DD(396.176,0)="TEMPLATES UTILIZED SUB-FIELD^^.01^1"
^DD(396.176,0,"DT")="3021003"
^DD(396.176,0,"NM","TEMPLATES UTILIZED")=" "
^DD(396.176,0,"UP")="396.17"
^DD(396.176,.01,0)="TEMPLATES UTILIZED^WL^^0;1^Q"
^DD(396.176,.01,"DT")="3030530"
^DD(396.176,"B","TEMPLATES UTILIZED",.01)=""
^DD(396.176,"GL",0,1,.01)=""
^DD(396.178,0)="FORM DATA SUB-FIELD^^.01^1"
^DD(396.178,0,"DT")="3021001"
^DD(396.178,0,"NM","FORM DATA")=" "
^DD(396.178,0,"UP")="396.17"
^DD(396.178,.01,0)="FORM DATA^WL^^0;1^Q"
^DD(396.178,.01,"DT")="3030530"
^DD(396.178,"B","FORM DATA",.01)=""
^DD(396.178,"GL",0,1,.01)=""
^DD(396.18,0)="FIELD^^11^11"
^DD(396.18,0,"DDA")="N"
^DD(396.18,0,"DT")="3070517"
^DD(396.18,0,"IX","AV",396.18,.01)=""
^DD(396.18,0,"IX","B",396.18,.01)=""
^DD(396.18,0,"NM","CAPRI TEMPLATE DEFINITIONS")=" "
^DD(396.18,0,"VR")="2.7"
^DD(396.18,0,"VRPK")="DVBA"
^DD(396.18,.01,0)="NAME^RF^^0;1^K:$L(X)>250!($L(X)<4)!'(X'?1P.E) X"
^DD(396.18,.01,1,0)="^.1"
^DD(396.18,.01,1,1,0)="396.18^B"
^DD(396.18,.01,1,1,1)="S ^DVB(396.18,""B"",$E(X,1,30),DA)="""""
^DD(396.18,.01,1,1,2)="K ^DVB(396.18,""B"",$E(X,1,30),DA)"
^DD(396.18,.01,1,2,0)="396.18^AV^MUMPS"
^DD(396.18,.01,1,2,1)="Q:X'[""~""  N A,B S A=$E($P(X,""~""),1,30),B=$P(X,""~"",2) S:A]""""&B ^DVB(396.18,""AV"",+B,+$P(B,""T"",2),A,DA)="""""
^DD(396.18,.01,1,2,2)="Q:X'[""~""  N A,B S A=$E($P(X,""~""),1,30),B=$P(X,""~"",2) K:A]""""&B ^DVB(396.18,""AV"",+$P(B,""T"",2),+B,A,DA)"
^DD(396.18,.01,1,2,"%D",0)="^^14^14^3050408^"
^DD(396.18,.01,1,2,"%D",1,0)="""AV"" Cross Reference will be in the following format:"
^DD(396.18,.01,1,2,"%D",2,0)=" ^DVB(396.18,""AV"",<patnum>,<testver>,<name>,DA) = """""
^DD(396.18,.01,1,2,"%D",3,0)="  where:"
^DD(396.18,.01,1,2,"%D",4,0)="   patnum is the patch number"
^DD(396.18,.01,1,2,"%D",5,0)="   testver is ""Test Version"" number, (0 for production)"
^DD(396.18,.01,1,2,"%D",6,0)="   name is 1st 30 chars of TemplateName"
^DD(396.18,.01,1,2,"%D",7,0)=" "
^DD(396.18,.01,1,2,"%D",8,0)="Examples:"
^DD(396.18,.01,1,2,"%D",9,0)="  TemplateName: JOINTS~78T1"
^DD(396.18,.01,1,2,"%D",10,0)="  AV cross ref: ^DVB(396.18,""AV"",78,1,""JOINTS"",DA)="""""
^DD(396.18,.01,1,2,"%D",11,0)=" "
^DD(396.18,.01,1,2,"%D",12,0)="  TemplateName: SPINE~92"
^DD(396.18,.01,1,2,"%D",13,0)="  AV cross ref: ^DVB(396.18,""AV"",92,0,""SPINE"",DA)="""""
^DD(396.18,.01,1,2,"%D",14,0)=" "
^DD(396.18,.01,1,2,"DT")="3050318"
^DD(396.18,.01,3)="Answer must be 4-250 characters in length."
^DD(396.18,.01,21,0)="^.001^13^13^3050408^^^^"
^DD(396.18,.01,21,1,0)="This is the name of the template as displayed in the CAPRI GUI."
^DD(396.18,.01,21,2,0)=" "
^DD(396.18,.01,21,3,0)="Name is TemplateName~<patnum>"
^DD(396.18,.01,21,4,0)="  or is TemplateName~<patnum>T<testver>"
^DD(396.18,.01,21,5,0)=" "
^DD(396.18,.01,21,6,0)="   where:"
^DD(396.18,.01,21,7,0)="    patnum is the patch number"
^DD(396.18,.01,21,8,0)="    testver is ""Test Version"" number"
^DD(396.18,.01,21,9,0)=" "
^DD(396.18,.01,21,10,0)="Examples:"
^DD(396.18,.01,21,11,0)="   JOINTS~78T1"
^DD(396.18,.01,21,12,0)="   SPINE~92"
^DD(396.18,.01,21,13,0)=" "
^DD(396.18,.01,"DT")="3050408"
^DD(396.18,1,0)="DESCRIPTION^396.181^^1;0"
^DD(396.18,1,21,0)="^^2^2^3030530^"
^DD(396.18,1,21,1,0)="The text placed in this field will be displayed in the template selection "
^DD(396.18,1,21,2,0)="dialog in the CAPRI GUI to assist the user in making a selection."
^DD(396.18,2,0)="ACTIVATION DATE^D^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(396.18,2,21,0)="^^3^3^3030530^"
^DD(396.18,2,21,1,0)="If a template is loaded but should not become active until a date in the "
^DD(396.18,2,21,2,0)="future, that date can be set with this field.  If the date entered has "
^DD(396.18,2,21,3,0)="already passed, the template will become active immediately."
^DD(396.18,2,"DT")="3021001"
^DD(396.18,3,0)="DE-ACTIVATION DATE^D^^2;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(396.18,3,21,0)="^^7^7^3030530^"
^DD(396.18,3,21,1,0)="Placing a date in this field will de-activate the template on the date "
^DD(396.18,3,21,2,0)="specified.  It will often occur that an entry will contain a "
^DD(396.18,3,21,3,0)="de-activation date and another entry in the file that's meant to replace "
^DD(396.18,3,21,4,0)="it will contain the same date but in its activation date field.   Once a "
^DD(396.18,3,21,5,0)="template has de-activated, a user will not be able to create a new "
^DD(396.18,3,21,6,0)="document using that template but can still access old documents "
^DD(396.18,3,21,7,0)="previously created with the template."
^DD(396.18,3,"DT")="3021001"
^DD(396.18,4,0)="FORM DEFINITION^396.184^^3;0"
^DD(396.18,4,21,0)="^.001^4^4^3031113^^"
^DD(396.18,4,21,1,0)="This field contains the Windows format screen definition that will "
^DD(396.18,4,21,2,0)="generate the template in the CAPRI GUI.  WARNING:  DO NOT MODIFY THIS "
^DD(396.18,4,21,3,0)="FIELD TO PREVENT CORRUPTION OF THE TEMPLATE. If there is a problem, the"
^DD(396.18,4,21,4,0)="field will need to be updated at a national level and re-distributed. "
^DD(396.18,4,"DT")="3031113"
^DD(396.18,5,0)="LAST UPDATE^D^^2;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.18,5,3)="ENTER THE DATE/TIME THE TEMPLATE WAS UPDATED"
^DD(396.18,5,21,0)="^^3^3^3040615^"
^DD(396.18,5,21,1,0)="FACILITATES THE CUTTING OF BUILDS SINCE A"
^DD(396.18,5,21,2,0)="SCREEN CAN CHECK FOR THOSE WHOSE 'LAST UPDATE'"
^DD(396.18,5,21,3,0)="IS GREATER THAN THE LAST DISTRIBUTION."
^DD(396.18,5,"DT")="3040615"
^DD(396.18,7,0)="SELECTABLE BY USER?^Sa^1:YES;0:NO;^6;1^Q"
^DD(396.18,7,21,0)="^.001^2^2^3030709^^^"
^DD(396.18,7,21,1,0)="If set to NO, this template will be accessible by CAPRI for merging "
^DD(396.18,7,21,2,0)="purposes but not selectable by the user in the forms list."
^DD(396.18,7,"AUDIT")="e"
^DD(396.18,7,"DT")="3051103"
^DD(396.18,8,0)="OBJECT COUNT^NJ7,0^^6;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(396.18,8,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(396.18,8,21,0)="^.001^1^1^3040714^^"
^DD(396.18,8,21,1,0)="Enter the number of Windows Objects contained within the Template."
^DD(396.18,8,"DT")="3040714"
^DD(396.18,9,0)="RELEASED?^S^0:NO;1:YES;9:TEST;^4;1^Q"
^DD(396.18,9,"DT")="3051020"
^DD(396.18,10,0)="CRC^F^^4;2^K:$L(X)>20!($L(X)<1) X"
^DD(396.18,10,3)="Answer must be 1-20 characters in length."
^DD(396.18,10,21,0)="^^2^2^3060207^"
^DD(396.18,10,21,1,0)="This is a value used internally by the CAPRI team to verify a template's "
^DD(396.18,10,21,2,0)="version prior to being distributed to the field."
^DD(396.18,10,"DT")="3060207"
^DD(396.18,11,0)="SCRIPT STYLE^S^1:PASCAL SCRIPT;2:CPWM SCRIPT;^4;3^Q"
^DD(396.18,11,"DT")="3070517"
^DD(396.18,"AUDIT",7)=""
^DD(396.18,"B","ACTIVATION DATE",2)=""
^DD(396.18,"B","CRC",10)=""
^DD(396.18,"B","DE-ACTIVATION DATE",3)=""
^DD(396.18,"B","DESCRIPTION",1)=""
^DD(396.18,"B","FORM DEFINITION",4)=""
^DD(396.18,"B","LAST UPDATE",5)=""
^DD(396.18,"B","NAME",.01)=""
^DD(396.18,"B","OBJECT COUNT",8)=""
^DD(396.18,"B","RELEASED?",9)=""
^DD(396.18,"B","SCRIPT STYLE",11)=""
^DD(396.18,"B","SELECTABLE BY USER?",7)=""
^DD(396.18,"GL",0,1,.01)=""
^DD(396.18,"GL",1,0,1)=""
^DD(396.18,"GL",2,1,2)=""
^DD(396.18,"GL",2,2,3)=""
^DD(396.18,"GL",2,3,5)=""
^DD(396.18,"GL",3,0,4)=""
^DD(396.18,"GL",4,1,9)=""
^DD(396.18,"GL",4,2,10)=""
^DD(396.18,"GL",4,3,11)=""
^DD(396.18,"GL",6,1,7)=""
^DD(396.18,"GL",6,2,8)=""
^DD(396.18,"IX",.01)=""
^DD(396.18,"RQ",.01)=""
^DD(396.18,"SB",396.181,1)=""
^DD(396.18,"SB",396.184,4)=""
^DD(396.181,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(396.181,0,"DT")="3021001"
^DD(396.181,0,"NM","DESCRIPTION")=" "
^DD(396.181,0,"UP")="396.18"
^DD(396.181,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(396.181,.01,"DT")="3021001"
^DD(396.181,"B","DESCRIPTION",.01)=""
^DD(396.181,"GL",0,1,.01)=""
^DD(396.184,0)="FORM DEFINITION SUB-FIELD^^.01^1"
^DD(396.184,0,"DT")="3021001"
^DD(396.184,0,"NM","FORM DEFINITION")=" "
^DD(396.184,0,"UP")="396.18"
^DD(396.184,.01,0)="FORM DEFINITION^WL^^0;1^Q"
^DD(396.184,.01,"DT")="3031113"
^DD(396.184,"B","FORM DEFINITION",.01)=""
^DD(396.184,"GL",0,1,.01)=""
^DD(396.19,0)="FORM SAVE BUFFER SUB-FIELD^^3^4"
^DD(396.19,0,"DT")="3050314"
^DD(396.19,0,"IX","B",396.19,.01)=""
^DD(396.19,0,"NM","FORM SAVE BUFFER")=" "
^DD(396.19,0,"UP")="396.17"
^DD(396.19,.01,0)="DATE/TIME^MRDa^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.19,.01,1,0)="^.1"
^DD(396.19,.01,1,1,0)="396.19^B"
^DD(396.19,.01,1,1,1)="S ^DVB(396.17,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(396.19,.01,1,1,2)="K ^DVB(396.17,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(396.19,.01,3)=" "
^DD(396.19,.01,"AUDIT")="y"
^DD(396.19,.01,"DT")="3060428"
^DD(396.19,1,0)="SAVE DATA^396.191^^1;0"
^DD(396.19,2,0)="COMMENTS^F^^2;1^K:$L(X)>80!($L(X)<1) X"
^DD(396.19,2,3)="Answer must be 1-80 characters in length."
^DD(396.19,2,"DT")="3050310"
^DD(396.19,3,0)="TEMPLATES UTILIZED^396.193^^3;0"
^DD(396.19,"AUDIT",.01)=""
^DD(396.19,"B","COMMENTS",2)=""
^DD(396.19,"B","DATE/TIME",.01)=""
^DD(396.19,"B","SAVE DATA",1)=""
^DD(396.19,"B","TEMPLATES UTILIZED",3)=""
^DD(396.19,"GL",0,1,.01)=""
^DD(396.19,"GL",1,0,1)=""
^DD(396.19,"GL",2,1,2)=""
^DD(396.19,"GL",3,0,3)=""
^DD(396.19,"IX",.01)=""
^DD(396.19,"RQ",.01)=""
^DD(396.19,"SB",396.191,1)=""
^DD(396.19,"SB",396.193,3)=""
^DD(396.191,0)="SAVE DATA SUB-FIELD^^.01^1"
^DD(396.191,0,"DT")="3050308"
^DD(396.191,0,"NM","SAVE DATA")=" "
^DD(396.191,0,"UP")="396.19"
^DD(396.191,.01,0)="SAVE DATA^W^^0;1^Q"
^DD(396.191,.01,"DT")="3050308"
^DD(396.191,"B","SAVE DATA",.01)=""
^DD(396.191,"GL",0,1,.01)=""
^DD(396.193,0)="TEMPLATES UTILIZED SUB-FIELD^^.01^1"
^DD(396.193,0,"DT")="3050314"
^DD(396.193,0,"NM","TEMPLATES UTILIZED")=" "
^DD(396.193,0,"UP")="396.19"
^DD(396.193,.01,0)="TEMPLATES UTILIZED^WL^^0;1^Q"
^DD(396.193,.01,"DT")="3050314"
^DD(396.193,"B","TEMPLATES UTILIZED",.01)=""
^DD(396.193,"GL",0,1,.01)=""
^DD(396.2,0)="FIELD^^5^7"
^DD(396.2,0,"DDA")="N"
^DD(396.2,0,"DT")="2930128"
^DD(396.2,0,"IX","B",396.2,.01)=""
^DD(396.2,0,"IX","C",396.2,3)=""
^DD(396.2,0,"IX","D",396.2,1)=""
^DD(396.2,0,"NM","AMIE REPORT")=""
^DD(396.2,0,"VR")="2.7"
^DD(396.2,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(396.2,.01,1,0)="^.1"
^DD(396.2,.01,1,1,0)="396.2^B"
^DD(396.2,.01,1,1,1)="S ^DVB(396.2,""B"",$E(X,1,30),DA)="""""
^DD(396.2,.01,1,1,2)="K ^DVB(396.2,""B"",$E(X,1,30),DA)"
^DD(396.2,.01,3)="Pointer to patient file for DFN"
^DD(396.2,.01,21,0)="^^1^1^2930430^"
^DD(396.2,.01,21,1,0)="Name of the Patient."
^DD(396.2,.01,23,0)="^^1^1^2930430^"
^DD(396.2,.01,23,1,0)="Pointer to the Patient File."
^DD(396.2,1,0)="7132 ADMISSION DATE^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.2,1,1,0)="^.1"
^DD(396.2,1,1,1,0)="396.2^D^MUMPS"
^DD(396.2,1,1,1,1)="S DVBADFN=$P(^DVB(396.2,DA,0),U,1) S ^DVB(396.2,""D"",$E(X,1,30),DVBADFN,DA)="""" K DVBADFN"
^DD(396.2,1,1,1,2)="S DVBADFN=$P(^DVB(396.2,DA,0),U,1) K ^DVB(396.2,""D"",$E(X,1,30),DVBADFN,DA),DVBADFN"
^DD(396.2,1,1,1,"%D",0)="^^1^1^2940304^"
^DD(396.2,1,1,1,"%D",1,0)="This cross reference orders 7132 Admission Dates by date then patient."
^DD(396.2,1,3)="This field is generated by the Notice of Discharge program."
^DD(396.2,1,21,0)="^^2^2^2930430^"
^DD(396.2,1,21,1,0)="This field holds the date of admission for a veteran.  It is used when"
^DD(396.2,1,21,2,0)="printing Notices of Discharge."
^DD(396.2,1,23,0)="^^1^1^2930430^"
^DD(396.2,1,23,1,0)="Entered by the routine DVBADSCK."
^DD(396.2,1,"DT")="2920618"
^DD(396.2,2,0)="7132 ADMISSION POINTER^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(396.2,2,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(396.2,2,21,0)="^^1^1^2940304^^"
^DD(396.2,2,21,1,0)="Pointer to the Patient Movement file."
^DD(396.2,2,"DT")="2910622"
^DD(396.2,3,0)="7132 STATUS^S^P:PRINTED;R:READY TO PRINT;^0;4^Q"
^DD(396.2,3,1,0)="^.1"
^DD(396.2,3,1,1,0)="396.2^C^MUMPS"
^DD(396.2,3,1,1,1)="S DVBADFN=$P(^DVB(396.2,DA,0),U,1),XLOC=$P(^(0),U,7) Q:XLOC=""""  S ^DVB(396.2,""C"",XLOC,$E(X,1,30),DA)="""" K DVBADFN,XLOC"
^DD(396.2,3,1,1,2)="S DVBADFN=$P(^DVB(396.2,DA,0),U,1),XLOC=$P(^(0),U,7) Q:XLOC=""""  K ^DVB(396.2,""C"",XLOC,$E(X,1,30),DA),XLOC,DVBADFN"
^DD(396.2,3,1,1,"%D",0)="^^1^1^2940304^"
^DD(396.2,3,1,1,"%D",1,0)="This cross reference orders 7132s by routing location and status."
^DD(396.2,3,3)="Status of the notice of discharge."
^DD(396.2,3,21,0)="^^1^1^2930430^"
^DD(396.2,3,21,1,0)="The print status of the Notice of Discharge Record."
^DD(396.2,3,23,0)="^^2^2^2930430^"
^DD(396.2,3,23,1,0)="Set by the Notice of Discharge checking routine and the Notice of Discharge"
^DD(396.2,3,23,2,0)="print routine."
^DD(396.2,3.5,0)="7132 ROUTING LOCATION^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(396.2,3.5,3)="This is the number of the RO to which this belongs."
^DD(396.2,3.5,21,0)="^^2^2^2950126^^^"
^DD(396.2,3.5,21,1,0)="Holds the Patient File Claim Folder Location for the patient that a Notice"
^DD(396.2,3.5,21,2,0)="of Discharge was generated."
^DD(396.2,3.5,23,0)="^^2^2^2950126^^^"
^DD(396.2,3.5,23,1,0)="This field value must match the user's Station Number from the Institution"
^DD(396.2,3.5,23,2,0)="file for the user to be able to print the Notice of Discharge."
^DD(396.2,4,0)="DATE 7132 PRINTED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.2,4,3)="Date printed by the RO."
^DD(396.2,4,21,0)="^^1^1^2930430^"
^DD(396.2,4,21,1,0)="This field contains the date the Notice of Discharge was originally printed."
^DD(396.2,4,23,0)="^^1^1^2930430^"
^DD(396.2,4,23,1,0)="Set by the routine DVBADSNT."
^DD(396.2,5,0)="7132 PRINTED BY^P200'^VA(200,^0;6^Q"
^DD(396.2,5,3)="Name of person who printed the notice of discharge."
^DD(396.2,5,21,0)="^^2^2^2930430^"
^DD(396.2,5,21,1,0)="Indicates the name of the person who originally printed the Notice of"
^DD(396.2,5,21,2,0)="Discharge."
^DD(396.2,5,23,0)="^^2^2^2930430^"
^DD(396.2,5,23,1,0)="Contains the DUZ of the person who printed the Notice of Discharge with"
^DD(396.2,5,23,2,0)="the routine DVBADSNT."
^DD(396.2,5,"DT")="2930128"
^DD(396.2,"B","7132 ADMISSION DATE",1)=""
^DD(396.2,"B","7132 ADMISSION POINTER",2)=""
^DD(396.2,"B","7132 PRINTED BY",5)=""
^DD(396.2,"B","7132 ROUTING LOCATION",3.5)=""
^DD(396.2,"B","7132 STATUS",3)=""
^DD(396.2,"B","DATE 7132 PRINTED",4)=""
^DD(396.2,"B","NAME",.01)=""
^DD(396.2,"GL",0,1,.01)=""
^DD(396.2,"GL",0,2,1)=""
^DD(396.2,"GL",0,3,2)=""
^DD(396.2,"GL",0,4,3)=""
^DD(396.2,"GL",0,5,4)=""
^DD(396.2,"GL",0,6,5)=""
^DD(396.2,"GL",0,7,3.5)=""
^DD(396.2,"IX",.01)=""
^DD(396.2,"IX",1)=""
^DD(396.2,"IX",3)=""
^DD(396.2,"RQ",.01)=""
^DD(396.3,0)="FIELD^^45^42"
^DD(396.3,0,"DDA")="N"
^DD(396.3,0,"DT")="2941116"
^DD(396.3,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(396.3,0,"ID","WRITE")="D DICW^DVBCUTIL"
^DD(396.3,0,"IX","AC",396.3,23.5)=""
^DD(396.3,0,"IX","AD",396.3,23.3)=""
^DD(396.3,0,"IX","ADP1",396.3,4)=""
^DD(396.3,0,"IX","ADP2",396.3,9)=""
^DD(396.3,0,"IX","AE",396.3,31)=""
^DD(396.3,0,"IX","AF",396.3,17)=""
^DD(396.3,0,"IX","AG",396.3,2)=""
^DD(396.3,0,"IX","AORQ",396.3,44)=""
^DD(396.3,0,"IX","B",396.3,.01)=""
^DD(396.3,0,"IX","C",396.3,1)=""
^DD(396.3,0,"IX","E",396.3,11)=""
^DD(396.3,0,"NM","2507 REQUEST")=""
^DD(396.3,0,"PT",396.3,44)=""
^DD(396.3,0,"PT",396.4,.02)=""
^DD(396.3,0,"PT",396.95,.06)=""
^DD(396.3,0,"VR")="2.7"
^DD(396.3,.01,0)="NAME^RP2^DPT(^0;1^Q"
^DD(396.3,.01,1,0)="^.1"
^DD(396.3,.01,1,1,0)="396.3^B"
^DD(396.3,.01,1,1,1)="S ^DVB(396.3,""B"",$E(X,1,30),DA)="""""
^DD(396.3,.01,1,1,2)="K ^DVB(396.3,""B"",$E(X,1,30),DA)"
^DD(396.3,.01,3)="Enter the name of the Veteran as it appears on the hospital records or how it appears on your records."
^DD(396.3,.01,21,0)="^^2^2^2940919^^^"
^DD(396.3,.01,21,1,0)="This field contains the name of the veteran for whom you are requesting"
^DD(396.3,.01,21,2,0)="a 2507 exam."
^DD(396.3,.01,"DEL",1,0)="I $O(^DVB(396.4,""C"",DA,0)) W !,""Delete associated exams first!"""
^DD(396.3,1,0)="REQUEST DATE^MRD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,1,1,0)="^.1"
^DD(396.3,1,1,1,0)="396.3^C"
^DD(396.3,1,1,1,1)="S ^DVB(396.3,""C"",$E(X,1,30),DA)="""""
^DD(396.3,1,1,1,2)="K ^DVB(396.3,""C"",$E(X,1,30),DA)"
^DD(396.3,1,3)="Enter the date and time of the request.  Seconds may be used and are encouraged."
^DD(396.3,1,21,0)="^^1^1^2930512^^"
^DD(396.3,1,21,1,0)="This field contains the date the 2507 request was entered."
^DD(396.3,1,"DT")="2900719"
^DD(396.3,2,0)="REGIONAL OFFICE NUMBER^RP4'^DIC(4,^0;3^Q"
^DD(396.3,2,1,0)="^.1"
^DD(396.3,2,1,1,0)="396.3^AG^MUMPS"
^DD(396.3,2,1,1,1)="N DVBCSTAT S DVBCSTAT=$P(^DVB(396.3,DA,0),U,18) S:DVBCSTAT]"""" ^DVB(396.3,""AF"",DVBCSTAT,$E(X,1,30),DA)="""""
^DD(396.3,2,1,1,2)="N DVBCSTAT S DVBCSTAT=$P(^DVB(396.3,DA,0),U,18) K:DVBCSTAT]"""" ^DVB(396.3,""AF"",DVBCSTAT,$E(X,1,30),DA)"
^DD(396.3,2,1,1,"%D",0)="^^2^2^2950126^^"
^DD(396.3,2,1,1,"%D",1,0)="This is the other half of the complex cross reference on the REQUEST "
^DD(396.3,2,1,1,"%D",2,0)="STATUS field."
^DD(396.3,2,1,1,"DT")="2940906"
^DD(396.3,2,3)="Enter the name or number of the Regional Office which owns this request."
^DD(396.3,2,21,0)="^^2^2^2930503^"
^DD(396.3,2,21,1,0)="This field contains the name of the regional office that entered the"
^DD(396.3,2,21,2,0)="request."
^DD(396.3,2,"DT")="2940906"
^DD(396.3,3,0)="REQUESTER^RP200'^VA(200,^0;4^Q"
^DD(396.3,3,3)="The name of the person who entered the request."
^DD(396.3,3,21,0)="^^2^2^2930503^"
^DD(396.3,3,21,1,0)="This field contains the name of the regional office employee who entered"
^DD(396.3,3,21,2,0)="the 2507 request."
^DD(396.3,3,"DT")="2930128"
^DD(396.3,4,0)="DATE REPORTED TO MAS^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,4,1,0)="^.1"
^DD(396.3,4,1,1,0)="396.3^ADP1^MUMPS"
^DD(396.3,4,1,1,1)="S:$P(^DVB(396.3,DA,0),U,10)'="""" ^DVB(396.3,""ADP"",$E(X,1,30),$P(^(0),U,10),DA)="""""
^DD(396.3,4,1,1,2)="I $P(^DVB(396.3,DA,0),U,10)'="""" K ^DVB(396.3,""ADP"",$E(X,1,30),$P(^(0),U,10),DA)"
^DD(396.3,4,1,1,"%D",0)="^^2^2^2941116^^^"
^DD(396.3,4,1,1,"%D",1,0)="The 'ADP' cross reference is used by the 'Summary Insufficient Exam Report'"
^DD(396.3,4,1,1,"%D",2,0)="as generated by the Insufficient Exam Report option."
^DD(396.3,4,1,1,"DT")="2941116"
^DD(396.3,4,3)="The date the request was printed out for MAS."
^DD(396.3,4,21,0)="4^^4^4^2930503^"
^DD(396.3,4,21,1,0)="This is the date the request was reported (printed) to MAS.  It can only"
^DD(396.3,4,21,2,0)="be set one time, at the first printing.  Future prints or reprints of"
^DD(396.3,4,21,3,0)="the same request will not alter the ""starting"" date.  This date is the"
^DD(396.3,4,21,4,0)="basis for when the clock begins for both the RO and MAS."
^DD(396.3,4,21,5,0)=" "
^DD(396.3,4,21,6,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.3,4,21,7,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.3,4,21,8,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.3,4,21,9,0)="modifications."
^DD(396.3,4,23,0)="^^1^1^2940209^^"
^DD(396.3,4,23,1,0)="Modified when the is printed as a new 2507 request."
^DD(396.3,4,"DT")="2941116"
^DD(396.3,5,0)="DATE SCHEDULING COMPLETED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,5,3)="The date the last exam was successfully scheduled by MAS."
^DD(396.3,5,21,0)="^^2^2^2930503^"
^DD(396.3,5,21,1,0)="This field contains the date scheduling of the 2507 request was completed"
^DD(396.3,5,21,2,0)="through the AMIE option."
^DD(396.3,5,21,3,0)=" "
^DD(396.3,5,21,4,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.3,5,21,5,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.3,5,21,6,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.3,5,21,7,0)="modifications."
^DD(396.3,5,21,8,0)=" "
^DD(396.3,5,23,0)="^^3^3^2940209^^^^"
^DD(396.3,5,23,1,0)="Modified by the option 'Schedule C&P Exams' when the user enters 'Yes'"
^DD(396.3,5,23,2,0)="to the prompt 'Has scheduling for all exams been completed?'.  Todays date"
^DD(396.3,5,23,3,0)="is entered."
^DD(396.3,6,0)="DATE COMPLETED^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,6,3)="The date the entire request was completed."
^DD(396.3,6,21,0)="^^1^1^2930503^"
^DD(396.3,6,21,1,0)="This field contains the date the entire 2507 request was completed."
^DD(396.3,9,0)="PRIORITY OF EXAM^RS^T:TERMINAL;P:POW;OS:ORIGINAL SC;ON:ORIGINAL NSC;I:INCREASE;R:REVIEW;OTR:OTHER;E:INSUFFICIENT EXAM;^0;10^Q"
^DD(396.3,9,1,0)="^.1"
^DD(396.3,9,1,1,0)="396.3^ADP2^MUMPS"
^DD(396.3,9,1,1,1)="S:$P(^DVB(396.3,DA,0),U,5)'="""" ^DVB(396.3,""ADP"",$P(^(0),U,5),$E(X,1,30),DA)="""""
^DD(396.3,9,1,1,2)="I $P(^DVB(396.3,DA,0),U,5)'="""" K ^DVB(396.3,""ADP"",$P(^(0),U,5),$E(X,1,30),DA)"
^DD(396.3,9,1,1,"%D",0)="^^2^2^2941116^^^^"
^DD(396.3,9,1,1,"%D",1,0)="The 'ADP' cross reference is used by the 'Summary Insufficient Exam Report'"
^DD(396.3,9,1,1,"%D",2,0)="as generated by the Insufficient Exam Report option."
^DD(396.3,9,1,1,"DT")="2941116"
^DD(396.3,9,3)="Enter the priority of the exam to be conducted."
^DD(396.3,9,21,0)="^^1^1^2940830^^^"
^DD(396.3,9,21,1,0)="This field contains the status of the 2507 exam to be conducted."
^DD(396.3,9,"DT")="2941116"
^DD(396.3,10,0)="OTHER DISABILITIES [Line 1]^F^^0;11^K:$L(X)>75!($L(X)<1) X"
^DD(396.3,10,.1)="OTHER DIS. [Line 1]"
^DD(396.3,10,3)="Enter any other disabilities known or stated by the Veteran.  [1-75 characters]."
^DD(396.3,10,21,0)="^^1^1^2930503^"
^DD(396.3,10,21,1,0)="This field contains other known disabilities or those stated by the veteran."
^DD(396.3,10.1,0)="OTHER DISABILITIES [Line 2]^F^^1;9^K:$L(X)>75!($L(X)<1) X"
^DD(396.3,10.1,.1)="OTHER DIS. [Line 2]"
^DD(396.3,10.1,3)="Answer must be 1-75 characters in length."
^DD(396.3,10.1,21,0)="^^1^1^2930503^"
^DD(396.3,10.1,21,1,0)="This field contains other known disabilities or those stated by the veteran."
^DD(396.3,10.1,"DT")="2900608"
^DD(396.3,10.2,0)="OTHER DISABILITIES [Line 3]^F^^1;10^K:$L(X)>75!($L(X)<1) X"
^DD(396.3,10.2,.1)="OTHER DIS. [Line 3]"
^DD(396.3,10.2,3)="Answer must be 1-75 characters in length."
^DD(396.3,10.2,21,0)="^^1^1^2930503^"
^DD(396.3,10.2,21,1,0)="This field contains other known disabilities or those stated by the veteran."
^DD(396.3,11,0)="TRANSCRIPTION DATE^D^^0;12^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,11,1,0)="^.1"
^DD(396.3,11,1,1,0)="396.3^E"
^DD(396.3,11,1,1,1)="S ^DVB(396.3,""E"",$E(X,1,30),DA)="""""
^DD(396.3,11,1,1,2)="K ^DVB(396.3,""E"",$E(X,1,30),DA)"
^DD(396.3,11,3)="Enter the date and time the transcription was completed."
^DD(396.3,11,21,0)="^^1^1^2930503^"
^DD(396.3,11,21,1,0)="This field contains the date/time transcription was completed."
^DD(396.3,11,"DT")="2900112"
^DD(396.3,12,0)="DATE APPROVED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,12,3)="Enter the date and time the exam results were approved."
^DD(396.3,12,21,0)="^^1^1^2930503^"
^DD(396.3,12,21,1,0)="This field contains the date/time exam results were approved."
^DD(396.3,13,0)="DATE RELEASED^D^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,13,3)="Enter the date and time that the request was released to the RO for printing."
^DD(396.3,13,21,0)="^^2^2^2930503^"
^DD(396.3,13,21,1,0)="This field contains the date/time the 2507 request was released to the"
^DD(396.3,13,21,2,0)="regional office for printing."
^DD(396.3,13,21,3,0)=" "
^DD(396.3,13,21,4,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.3,13,21,5,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.3,13,21,6,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.3,13,21,7,0)="modifications."
^DD(396.3,14,0)="RELEASED BY^P200'^VA(200,^0;15^Q"
^DD(396.3,14,3)="The name of the person who released the request to the RO."
^DD(396.3,14,21,0)="^^2^2^2930503^"
^DD(396.3,14,21,1,0)="This field contains the name of the MAS employee who released the request"
^DD(396.3,14,21,2,0)="to the regional office."
^DD(396.3,14,"DT")="2930128"
^DD(396.3,15,0)="DATE PRINTED BY THE RO^MD^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,15,3)="The date and time the examination results were printed by the RO."
^DD(396.3,15,21,0)="^^2^2^2930503^"
^DD(396.3,15,21,1,0)="This field contains the date/time the examination results were printed by"
^DD(396.3,15,21,2,0)="the regional office."
^DD(396.3,16,0)="PRINTED BY^P200'^VA(200,^0;17^Q"
^DD(396.3,16,3)="The name of the person that printed the examination results."
^DD(396.3,16,21,0)="^^2^2^2930503^"
^DD(396.3,16,21,1,0)="This field contains the name of the regional office employee who printed"
^DD(396.3,16,21,2,0)="the examination results."
^DD(396.3,16,"DT")="2930128"
^DD(396.3,17,0)="REQUEST STATUS^RS^N:NEW;P:PENDING, REPORTED;S:PENDING, SCHEDULED;R:RELEASED TO RO, NOT PRINTED;C:COMPLETED, PRINTED BY RO;X:CANCELLED BY MAS;RX:CANCELLED BY RO;T:TRANSCRIBED;NT:NEW, TRANSFERRED IN;CT:COMPLETED, TRANSFERRED OUT;^0;18^Q"
^DD(396.3,17,1,0)="^.1"
^DD(396.3,17,1,1,0)="396.3^AF^MUMPS"
^DD(396.3,17,1,1,1)="S DVBCRO=$P(^DVB(396.3,DA,0),U,3) S:DVBCRO]"""" ^DVB(396.3,""AF"",$E(X,1,30),DVBCRO,DA)="""" K DVBCRO"
^DD(396.3,17,1,1,2)="S DVBCRO=$P(^DVB(396.3,DA,0),U,3) K:DVBCRO]"""" ^DVB(396.3,""AF"",$E(X,1,30),DVBCRO,DA) K DVBCRO"
^DD(396.3,17,1,1,"%D",0)="^^2^2^2940906^"
^DD(396.3,17,1,1,"%D",1,0)="This cross reference is to collect all entries with the same Regional"
^DD(396.3,17,1,1,"%D",2,0)="Office number and request status."
^DD(396.3,17,1,1,"DT")="2940906"
^DD(396.3,17,3)="The status of the entire request."
^DD(396.3,17,21,0)="^^1^1^2950126^^"
^DD(396.3,17,21,1,0)="This field contains the request status of the 2507 exam request."
^DD(396.3,17,"DT")="2940906"
^DD(396.3,18,0)="ELAPSED TIME^CJ8,0^^ ; ^S Y(396.3,18,1)=$S($D(^DVB(396.3,D0,0)):^(0),1:""""),X=DT S X=X,X1=X,X2=$P(Y(396.3,18,1),U,5),X="""" D:X2 ^%DTC:X1 S X=$J(X,0,0)"
^DD(396.3,18,9)="^"
^DD(396.3,18,9.01)="396.3^4"
^DD(396.3,18,9.1)="TODAY-DATE REPORTED TO MAS"
^DD(396.3,18,21,0)="^^1^1^2930503^^^"
^DD(396.3,18,21,1,0)="This field contains the computation of TODAY - DATE REPORTED TO MAS."
^DD(396.3,18,"DT")="2900619"
^DD(396.3,19,0)="CANCELLATION DATE^D^^0;19^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,19,3)="The date and time the entire request was cancelled."
^DD(396.3,19,21,0)="^^1^1^2930503^"
^DD(396.3,19,21,1,0)="This field contains the date/time the entire request was cancelled."
^DD(396.3,19,21,2,0)=" "
^DD(396.3,19,21,3,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.3,19,21,4,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.3,19,21,5,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.3,19,21,6,0)="modifications."
^DD(396.3,20,0)="CANCELLED BY^P200'^VA(200,^1;1^Q"
^DD(396.3,20,3)="The name of the person who cancelled the entire request."
^DD(396.3,20,21,0)="^^2^2^2950126^^"
^DD(396.3,20,21,1,0)="This field contains the name of the employee who cancelled the entire"
^DD(396.3,20,21,2,0)="request."
^DD(396.3,20,"DT")="2930128"
^DD(396.3,21,0)="CLAIM FOLDER REQUIRED?^RS^Y:YES;N:NO;^1;2^Q"
^DD(396.3,21,3)="Enter Y if a claim folder review will be required or N if no review will be necessary."
^DD(396.3,21,21,0)="^^2^2^2930503^"
^DD(396.3,21,21,1,0)="This field indicates whether or not a claim folder is required for this"
^DD(396.3,21,21,2,0)="request."
^DD(396.3,21,"DT")="2900413"
^DD(396.3,22,0)="OTHER DOCUMENTS REQUIRED?^RS^Y:YES;N:NO;^1;3^Q"
^DD(396.3,22,3)="Enter 'Y' if other documents will be required or 'N' if not.  A 'N' answer will prompt the Regional Office to print this request as New.  A 'Y' answer will prevent this prompting at the R/O."
^DD(396.3,22,21,0)="^^3^3^2950126^^^^"
^DD(396.3,22,21,1,0)="This field indicates whether or not a document will be able to be printed"
^DD(396.3,22,21,2,0)="at the regional office.  If YES, the regional office will not be prompted"
^DD(396.3,22,21,3,0)="to print the document when it is released by the Medical Center. "
^DD(396.3,22,23,0)="^^9^9^2950126^^^^"
^DD(396.3,22,23,1,0)="If the user enters YES to this field upon release to the Regional Office,"
^DD(396.3,22,23,2,0)="fields DATE COMPLETED, DATE APPROVED, DATE RELEASED and DATE PRINTED BY THE "
^DD(396.3,22,23,3,0)="RO are marked with the date/time of release; fields RELEASED BY and PRINTED "
^DD(396.3,22,23,4,0)="BY are entered with the date of the person releasing the request; and the"
^DD(396.3,22,23,5,0)="field REQUEST STATUS is marked with a status of COMPLETED, PRINTED BY RO."
^DD(396.3,22,23,6,0)=" "
^DD(396.3,22,23,7,0)="This means that the regional office will not be prompted to print this"
^DD(396.3,22,23,8,0)="request as a new request when they log into their report menus.  This"
^DD(396.3,22,23,9,0)="request can be reprinted, however."
^DD(396.3,22,"DT")="2900420"
^DD(396.3,23,0)="REMARKS^396.323^^2;0"
^DD(396.3,23,21,0)="^^1^1^2940721^^^^"
^DD(396.3,23,21,1,0)="This field contains the remarks that are entered for a 2507 request."
^DD(396.3,23.3,0)="LAST EXAM ADD DATE^D^^0;20^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,23.3,1,0)="^.1"
^DD(396.3,23.3,1,1,0)="396.3^AD"
^DD(396.3,23.3,1,1,1)="S ^DVB(396.3,""AD"",$E(X,1,30),DA)="""""
^DD(396.3,23.3,1,1,2)="K ^DVB(396.3,""AD"",$E(X,1,30),DA)"
^DD(396.3,23.3,3)="The last date that an exam was added to this request."
^DD(396.3,23.3,21,0)="^^1^1^2930503^"
^DD(396.3,23.3,21,1,0)="This field contains the last date an exam was added to this request."
^DD(396.3,23.3,"DT")="2901011"
^DD(396.3,23.4,0)="LAST PERSON TO ADD EXAM^P200'^VA(200,^0;21^Q"
^DD(396.3,23.4,3)="The name of the last person to add an exam to this request after logging by the regional office."
^DD(396.3,23.4,21,0)="^^2^2^2930503^^"
^DD(396.3,23.4,21,1,0)="This field contains the name of the last person to add an exam to this"
^DD(396.3,23.4,21,2,0)="request after it was originally entered by the RO."
^DD(396.3,23.4,"DT")="2930128"
^DD(396.3,23.5,0)="REMARKS MODIFICATION DATE^D^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,23.5,1,0)="^.1"
^DD(396.3,23.5,1,1,0)="396.3^AC"
^DD(396.3,23.5,1,1,1)="S ^DVB(396.3,""AC"",$E(X,1,30),DA)="""""
^DD(396.3,23.5,1,1,2)="K ^DVB(396.3,""AC"",$E(X,1,30),DA)"
^DD(396.3,23.5,3)="The date and time of the last REMARKS field modification."
^DD(396.3,23.5,21,0)="^^1^1^2930503^"
^DD(396.3,23.5,21,1,0)="This field contains the date the REMARKS field was last modified."
^DD(396.3,23.5,"DT")="2900906"
^DD(396.3,23.6,0)="REMARKS MODIFIED BY^P200'^VA(200,^0;9^Q"
^DD(396.3,23.6,3)="The name of the person who last modified the REMARKS field."
^DD(396.3,23.6,21,0)="^^2^2^2930503^"
^DD(396.3,23.6,21,1,0)="This field contains the name of the employee who last modified the REMARKS"
^DD(396.3,23.6,21,2,0)="field."
^DD(396.3,23.6,"DT")="2930128"
^DD(396.3,24,0)="ROUTING LOCATION^RP40.8'^DG(40.8,^1;4^Q"
^DD(396.3,24,3)="Enter the name or station number of the site which will be responsible for this request."
^DD(396.3,24,21,0)="^^2^2^2930503^^"
^DD(396.3,24,21,1,0)="This field contains the station name or number of the site which will be"
^DD(396.3,24,21,2,0)="responsible for this request."
^DD(396.3,24,"DT")="2900116"
^DD(396.3,25,0)="APPROVED BY^F^^1;5^K:$L(X)>30!($L(X)<3) X"
^DD(396.3,25,3)="Enter the name of the person who approved the exam results. [3-30 characters]"
^DD(396.3,25,21,0)="^^2^2^2950328^^"
^DD(396.3,25,21,1,0)="This field contains the name of the employee who approved the examination"
^DD(396.3,25,21,2,0)="results."
^DD(396.3,25,"DT")="2910903"
^DD(396.3,26,0)="APPROVAL DATE/TIME^DX^^1;6^S %DT=""ESTXR"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(396.3,26,3)="Enter the date and time that the exam was approved."
^DD(396.3,26,21,0)="^^1^1^2930503^"
^DD(396.3,26,21,1,0)="This field contains the date/time the exam was approved."
^DD(396.3,26,"DT")="3030311"
^DD(396.3,27,0)="*EXAM^396.327P^^3;0"
^DD(396.3,27,21,0)="^^1^1^2930503^^^"
^DD(396.3,27,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.3,27,"DT")="2930316"
^DD(396.3,27.5,0)="RETURNED TO OWNER SITE BY^F^^4;2^K:$L(X)>35!($L(X)<3) X"
^DD(396.3,27.5,3)="The free text name of the person who transferred part or all of this request."
^DD(396.3,27.5,21,0)="^^2^2^2930503^"
^DD(396.3,27.5,21,1,0)="This field contains the name of the employee who returned the transferred"
^DD(396.3,27.5,21,2,0)="request to the owner site."
^DD(396.3,27.5,"DT")="2910419"
^DD(396.3,28,0)="OWNER DOMAIN^P4.2'^DIC(4.2,^0;22^Q"
^DD(396.3,28,3)="Enter the domain of the hospital which owns this request.  Transfers ONLY!!"
^DD(396.3,28,21,0)="^^2^2^2930503^"
^DD(396.3,28,21,1,0)="For transferred-in requests, this field contains the domain of the site"
^DD(396.3,28,21,2,0)="which owns the request."
^DD(396.3,28,"DT")="2901026"
^DD(396.3,29,0)="LAST RATING EXAM DATE^D^^1;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,29,3)="Enter the date of the last rating exam, if it is known."
^DD(396.3,29,21,0)="^^1^1^2930503^"
^DD(396.3,29,21,1,0)="This field contains the date of the last rating exam."
^DD(396.3,29,"DT")="2900219"
^DD(396.3,30,0)="ORIGINAL REQUEST POINTER^NJ15,0^^1;8^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(396.3,30,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits.  This is the original record indicator for transfers ONLY."
^DD(396.3,30,21,0)="^^2^2^2930503^"
^DD(396.3,30,21,1,0)="This field contains a number which is used to point to the original request"
^DD(396.3,30,21,2,0)="at the original site."
^DD(396.3,30,"DT")="2901026"
^DD(396.3,31,0)="TRANSFERRED TO ANOTHER SITE?^S^y:YES;^4;1^Q"
^DD(396.3,31,1,0)="^.1"
^DD(396.3,31,1,1,0)="396.3^AE"
^DD(396.3,31,1,1,1)="S ^DVB(396.3,""AE"",$E(X,1,30),DA)="""""
^DD(396.3,31,1,1,2)="K ^DVB(396.3,""AE"",$E(X,1,30),DA)"
^DD(396.3,31,1,1,"DT")="2910426"
^DD(396.3,31,3)="System controlled.  Change only if necessary."
^DD(396.3,31,21,0)="^^2^2^2940215^^^"
^DD(396.3,31,21,1,0)="This field is set to YES if either the entire request or individual exams"
^DD(396.3,31,21,2,0)="on it have been transferred to another site."
^DD(396.3,31,23,0)="^^2^2^2940215^^^"
^DD(396.3,31,23,1,0)="Edited by the DVBCXFR* routines when 2507's are transferred to remote sites"
^DD(396.3,31,23,2,0)="and received back from remote sites."
^DD(396.3,31,"DT")="2910426"
^DD(396.3,32,0)="DATE TRANSFERRED TO OTHER SITE^D^^4;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,32,3)="The last date the owner site transferred an exam from this request to another site."
^DD(396.3,32,21,0)="^^1^1^2950113^^^"
^DD(396.3,32,21,1,0)="This is the date the owner site transferred this request to another site."
^DD(396.3,32,21,2,0)=" "
^DD(396.3,32,21,3,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.3,32,21,4,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.3,32,21,5,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.3,32,21,6,0)="modifications."
^DD(396.3,32,"DT")="2910523"
^DD(396.3,33,0)="DATE TRANSFRD IN FRM REM SITE^D^^4;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,33,.1)="DATE TRANSFERRED IN FROM REMOTE SITE"
^DD(396.3,33,3)="The date this site received this request from the owner site."
^DD(396.3,33,21,0)="^^2^2^2930503^^"
^DD(396.3,33,21,1,0)="This field contains the date this transferred in request was received"
^DD(396.3,33,21,2,0)="from the owner site."
^DD(396.3,33,21,3,0)=" "
^DD(396.3,33,21,4,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.3,33,21,5,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.3,33,21,6,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.3,33,21,7,0)="modifications."
^DD(396.3,33,"DT")="2910523"
^DD(396.3,34,0)="DATE ALL TRANSFERS RETURNED^D^^4;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.3,34,3)="The date that all transfers were returned to the owner site"
^DD(396.3,34,21,0)="^^3^3^2930503^^^"
^DD(396.3,34,21,1,0)="A request may be transferred to multiple sites.  This field represents the"
^DD(396.3,34,21,2,0)="date the last transfer on the request was received back at the owner site."
^DD(396.3,34,21,3,0)="Only after this date is set will the request be counted on the AMIS 290."
^DD(396.3,34,21,4,0)=" "
^DD(396.3,34,21,5,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.3,34,21,6,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.3,34,21,7,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.3,34,21,8,0)="modifications."
^DD(396.3,34,"DT")="2910523"
^DD(396.3,44,0)="ORIGINAL 2507 REQUEST^P396.3'^DVB(396.3,^5;1^Q"
^DD(396.3,44,1,0)="^.1"
^DD(396.3,44,1,1,0)="396.3^AORQ"
^DD(396.3,44,1,1,1)="S ^DVB(396.3,""AORQ"",$E(X,1,30),DA)="""""
^DD(396.3,44,1,1,2)="K ^DVB(396.3,""AORQ"",$E(X,1,30),DA)"
^DD(396.3,44,1,1,"%D",0)="^^3^3^2941115^^"
^DD(396.3,44,1,1,"%D",1,0)="The 'AORQ' cross reference will be used by the 'Purge old 2507 Requests"
^DD(396.3,44,1,1,"%D",2,0)="(Taskman)' option to prevent the deletion of a 2507 request record linked"
^DD(396.3,44,1,1,"%D",3,0)="to a 2507 request entered with a priority of 'Insufficient'."
^DD(396.3,44,1,1,"DT")="2941115"
^DD(396.3,44,3)="Select the original 2507 request this request is being entered for."
^DD(396.3,44,21,0)="^^2^2^2941115^^"
^DD(396.3,44,21,1,0)="This field is a pointer to the insufficient request this 2507 was entered"
^DD(396.3,44,21,2,0)="for."
^DD(396.3,44,23,0)="^^1^1^2941115^^"
^DD(396.3,44,23,1,0)="This field is a pointer to the 2507 Request file (396.3)."
^DD(396.3,44,"DT")="2941115"
^DD(396.3,45,0)="ORIGINAL 2507 PROCESSING TIME^NJ6,0^^5;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(396.3,45,3)="Enter the number of days the original request took to complete processing."
^DD(396.3,45,21,0)="^^2^2^2941116^^^"
^DD(396.3,45,21,1,0)="This field contains the processing time of the original request the"
^DD(396.3,45,21,2,0)="insufficient request was entered for."
^DD(396.3,45,23,0)="^^2^2^2941116^^^"
^DD(396.3,45,23,1,0)="This field is entered by the Regional Office if the Original Request has"
^DD(396.3,45,23,2,0)="been purged from the system."
^DD(396.3,45,"DT")="2941116"
^DD(396.3,"B","*EXAM",27)=""
^DD(396.3,"B","APPROVAL DATE/TIME",26)=""
^DD(396.3,"B","APPROVED BY",25)=""
^DD(396.3,"B","CANCELLATION DATE",19)=""
^DD(396.3,"B","CANCELLED BY",20)=""
^DD(396.3,"B","CLAIM FOLDER REQUIRED?",21)=""
^DD(396.3,"B","DATE ALL TRANSFERS RETURNED",34)=""
^DD(396.3,"B","DATE APPROVED",12)=""
^DD(396.3,"B","DATE COMPLETED",6)=""
^DD(396.3,"B","DATE PRINTED BY THE RO",15)=""
^DD(396.3,"B","DATE RELEASED",13)=""
^DD(396.3,"B","DATE REPORTED TO MAS",4)=""
^DD(396.3,"B","DATE SCHEDULING COMPLETED",5)=""
^DD(396.3,"B","DATE TRANSFERRED TO OTHER SITE",32)=""
^DD(396.3,"B","DATE TRANSFRD IN FRM REM SITE",33)=""
^DD(396.3,"B","ELAPSED TIME",18)=""
^DD(396.3,"B","LAST EXAM ADD DATE",23.3)=""
^DD(396.3,"B","LAST PERSON TO ADD EXAM",23.4)=""
^DD(396.3,"B","LAST RATING EXAM DATE",29)=""
^DD(396.3,"B","NAME",.01)=""
^DD(396.3,"B","ORIGINAL 2507 PROCESSING TIME",45)=""
^DD(396.3,"B","ORIGINAL 2507 REQUEST",44)=""
^DD(396.3,"B","ORIGINAL REQUEST POINTER",30)=""
^DD(396.3,"B","OTHER DIS. [Line 1]",10)="1"
^DD(396.3,"B","OTHER DIS. [Line 2]",10.1)="1"
^DD(396.3,"B","OTHER DIS. [Line 3]",10.2)="1"
^DD(396.3,"B","OTHER DISABILITIES [Line 1]",10)=""
^DD(396.3,"B","OTHER DISABILITIES [Line 2]",10.1)=""
^DD(396.3,"B","OTHER DISABILITIES [Line 3]",10.2)=""
^DD(396.3,"B","OTHER DOCUMENTS REQUIRED?",22)=""
^DD(396.3,"B","OWNER DOMAIN",28)=""
^DD(396.3,"B","PRINTED BY",16)=""
^DD(396.3,"B","PRIORITY OF EXAM",9)=""
^DD(396.3,"B","REGIONAL OFFICE NUMBER",2)=""
^DD(396.3,"B","RELEASED BY",14)=""
^DD(396.3,"B","REMARKS",23)=""
^DD(396.3,"B","REMARKS MODIFICATION DATE",23.5)=""
^DD(396.3,"B","REMARKS MODIFIED BY",23.6)=""
^DD(396.3,"B","REQUEST DATE",1)=""
^DD(396.3,"B","REQUEST STATUS",17)=""
^DD(396.3,"B","REQUESTER",3)=""
^DD(396.3,"B","RETURNED TO OWNER SITE BY",27.5)=""
^DD(396.3,"B","ROUTING LOCATION",24)=""
^DD(396.3,"B","TRANSCRIPTION DATE",11)=""
^DD(396.3,"B","TRANSFERRED TO ANOTHER SITE?",31)=""
^DD(396.3,"GL",0,1,.01)=""
^DD(396.3,"GL",0,2,1)=""
^DD(396.3,"GL",0,3,2)=""
^DD(396.3,"GL",0,4,3)=""
^DD(396.3,"GL",0,5,4)=""
^DD(396.3,"GL",0,6,5)=""
^DD(396.3,"GL",0,7,6)=""
^DD(396.3,"GL",0,8,23.5)=""
^DD(396.3,"GL",0,9,23.6)=""
^DD(396.3,"GL",0,10,9)=""
^DD(396.3,"GL",0,11,10)=""
^DD(396.3,"GL",0,12,11)=""
^DD(396.3,"GL",0,13,12)=""
^DD(396.3,"GL",0,14,13)=""
^DD(396.3,"GL",0,15,14)=""
^DD(396.3,"GL",0,16,15)=""
^DD(396.3,"GL",0,17,16)=""
^DD(396.3,"GL",0,18,17)=""
^DD(396.3,"GL",0,19,19)=""
^DD(396.3,"GL",0,20,23.3)=""
^DD(396.3,"GL",0,21,23.4)=""
^DD(396.3,"GL",0,22,28)=""
^DD(396.3,"GL",1,1,20)=""
^DD(396.3,"GL",1,2,21)=""
^DD(396.3,"GL",1,3,22)=""
^DD(396.3,"GL",1,4,24)=""
^DD(396.3,"GL",1,5,25)=""
^DD(396.3,"GL",1,6,26)=""
^DD(396.3,"GL",1,7,29)=""
^DD(396.3,"GL",1,8,30)=""
^DD(396.3,"GL",1,9,10.1)=""
^DD(396.3,"GL",1,10,10.2)=""
^DD(396.3,"GL",2,0,23)=""
^DD(396.3,"GL",3,0,27)=""
^DD(396.3,"GL",4,1,31)=""
^DD(396.3,"GL",4,2,27.5)=""
^DD(396.3,"GL",4,3,32)=""
^DD(396.3,"GL",4,4,33)=""
^DD(396.3,"GL",4,5,34)=""
^DD(396.3,"GL",5,1,44)=""
^DD(396.3,"GL",5,2,45)=""
^DD(396.3,"IX",.01)=""
^DD(396.3,"IX",1)=""
^DD(396.3,"IX",2)=""
^DD(396.3,"IX",4)=""
^DD(396.3,"IX",9)=""
^DD(396.3,"IX",11)=""
^DD(396.3,"IX",17)=""
^DD(396.3,"IX",23.3)=""
^DD(396.3,"IX",23.5)=""
^DD(396.3,"IX",31)=""
^DD(396.3,"IX",44)=""
^DD(396.3,"RQ",.01)=""
^DD(396.3,"RQ",1)=""
^DD(396.3,"RQ",2)=""
^DD(396.3,"RQ",3)=""
^DD(396.3,"RQ",9)=""
^DD(396.3,"RQ",17)=""
^DD(396.3,"RQ",21)=""
^DD(396.3,"RQ",22)=""
^DD(396.3,"RQ",24)=""
^DD(396.3,"SB",396.323,23)=""
^DD(396.3,"SB",396.327,27)=""
^DD(396.323,0)="REMARKS SUB-FIELD^^.01^1"
^DD(396.323,0,"NM","REMARKS")=""
^DD(396.323,0,"UP")="396.3"
^DD(396.323,.01,0)="REMARKS^W^^0;1^Q"
^DD(396.323,.01,3)="Enter any pertinent remarks about the Veteran."
^DD(396.323,.01,"DT")="2900110"
^DD(396.323,"B","REMARKS",.01)=""
^DD(396.323,"GL",0,1,.01)=""
^DD(396.327,0)="*EXAM SUB-FIELD^^11^16"
^DD(396.327,0,"DT")="2930128"
^DD(396.327,0,"IX","B",396.327,.01)=""
^DD(396.327,0,"NM","*EXAM")=""
^DD(396.327,0,"UP")="396.3"
^DD(396.327,.01,0)="*EXAM^MP396.6'^DVB(396.6,^0;1^Q"
^DD(396.327,.01,1,0)="^.1"
^DD(396.327,.01,1,1,0)="396.327^B"
^DD(396.327,.01,1,1,1)="S ^DVB(396.3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(396.327,.01,1,1,2)="K ^DVB(396.3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(396.327,.01,3)="Enter the name of the exam you wish to select for the Veteran."
^DD(396.327,.01,21,0)="^^1^1^2930503^"
^DD(396.327,.01,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,.01,"DT")="2930316"
^DD(396.327,.5,0)="*WORKSHEET PRINTED?^S^Y:YES;N:NO;^0;10^Q"
^DD(396.327,.5,1,0)="^.1^^0"
^DD(396.327,.5,3)="System maintained.  Designates whether worksheet has been printed."
^DD(396.327,.5,21,0)="^^1^1^2930503^"
^DD(396.327,.5,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,.5,"DT")="2930316"
^DD(396.327,1,0)="*STATUS^S^O:OPEN;C:COMPLETED;X:CANCELLED BY MAS;RX:CANCELLED BY RO;T:TRANSFERRED OUT;^0;2^Q"
^DD(396.327,1,3)="The status of the individual exam."
^DD(396.327,1,21,0)="^^1^1^2930503^"
^DD(396.327,1,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,1,"DT")="2930316"
^DD(396.327,2,0)="*CANCELLATION REASON^P396.5'^DVB(396.5,^0;3^Q"
^DD(396.327,2,3)="Enter the reason which best describes the cancellation."
^DD(396.327,2,21,0)="^^1^1^2930503^"
^DD(396.327,2,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,2,"DT")="2930316"
^DD(396.327,2.3,0)="*EXAM CANCELLED BY^P200'^VA(200,^0;6^Q"
^DD(396.327,2.3,3)="The name of the person who cancelled the INDIVIDUAL exam."
^DD(396.327,2.3,21,0)="^^1^1^2930503^"
^DD(396.327,2.3,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,2.3,"DT")="2930316"
^DD(396.327,2.5,0)="*EXAM CANCELLATION DATE/TIME^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.327,2.5,3)="Date and time the INDIVIDUAL exam was cancelled."
^DD(396.327,2.5,21,0)="^^1^1^2930503^"
^DD(396.327,2.5,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,2.5,"DT")="2930316"
^DD(396.327,3,0)="*DATE OF EXAM^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(396.327,3,3)="The date the exam was performed."
^DD(396.327,3,21,0)="^^1^1^2930503^"
^DD(396.327,3,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,3,"DT")="2930316"
^DD(396.327,4,0)="*EXAMINING PHYSICIAN^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(396.327,4,3)="Enter the name of the physician which performed the examination."
^DD(396.327,4,21,0)="^^1^1^2930503^"
^DD(396.327,4,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,4,"DT")="2930316"
^DD(396.327,5,0)="*IS THIS A FEE EXAM?^RS^Y:YES;N:NO;^0;8^Q"
^DD(396.327,5,3)="Enter Y if this will be a fee exam or N if not."
^DD(396.327,5,21,0)="^^1^1^2930503^"
^DD(396.327,5,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,5,"DT")="2930316"
^DD(396.327,6,0)="*EXAM PLACE^S^C:CLINIC;F:FEE LOCATION;O:OTHER STATION;^0;9^Q"
^DD(396.327,6,3)="Enter the code which best describes where this exam will take place."
^DD(396.327,6,21,0)="^^1^1^2930503^"
^DD(396.327,6,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,6,"DT")="2930316"
^DD(396.327,7,0)="*RESULTS^396.3277^^1;0"
^DD(396.327,7,21,0)="^^1^1^2930503^"
^DD(396.327,7,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,7,"DT")="2930316"
^DD(396.327,8,0)="*TRANSFERRED OUT TO^P4.2'^DIC(4.2,^0;11^Q"
^DD(396.327,8,3)="Enter the domain to which this exam was transferred."
^DD(396.327,8,21,0)="^^1^1^2930503^"
^DD(396.327,8,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,8,"DT")="2930316"
^DD(396.327,8.5,0)="*TRANSFERRED OUT BY^F^^0;15^K:$L(X)>35!($L(X)<3) X"
^DD(396.327,8.5,3)="The free-text name of the person who originally transferred out this exam. [3-35 characters]"
^DD(396.327,8.5,21,0)="^^1^1^2930503^"
^DD(396.327,8.5,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,8.5,"DT")="2930316"
^DD(396.327,9,0)="*DATE TRANSFERRED OUT^D^^0;12^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.327,9,3)="The date this exam was transferred out to a remote site."
^DD(396.327,9,21,0)="^^1^1^2930503^"
^DD(396.327,9,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,9,"DT")="2930316"
^DD(396.327,10,0)="*DATE TRANSFERRED IN^D^^0;13^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.327,10,3)="The date this exam was transferred to this site from another site."
^DD(396.327,10,21,0)="^^1^1^2930503^"
^DD(396.327,10,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,10,"DT")="2930316"
^DD(396.327,11,0)="*DATE RETURNED TO OWNER SITE^D^^0;14^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.327,11,3)="The date this exam and its results were returned to the owner site."
^DD(396.327,11,21,0)="^^1^1^2930503^"
^DD(396.327,11,21,1,0)="Data moved to File #396.4; field starred for deletion."
^DD(396.327,11,"DT")="2930316"
^DD(396.327,"B","*CANCELLATION REASON",2)=""
^DD(396.327,"B","*DATE OF EXAM",3)=""
^DD(396.327,"B","*DATE RETURNED TO OWNER SITE",11)=""
^DD(396.327,"B","*DATE TRANSFERRED IN",10)=""
^DD(396.327,"B","*DATE TRANSFERRED OUT",9)=""
^DD(396.327,"B","*EXAM",.01)=""
^DD(396.327,"B","*EXAM CANCELLATION DATE/TIME",2.5)=""
^DD(396.327,"B","*EXAM CANCELLED BY",2.3)=""
^DD(396.327,"B","*EXAM PLACE",6)=""
^DD(396.327,"B","*EXAMINING PHYSICIAN",4)=""
^DD(396.327,"B","*IS THIS A FEE EXAM?",5)=""
^DD(396.327,"B","*RESULTS",7)=""
^DD(396.327,"B","*STATUS",1)=""
^DD(396.327,"B","*TRANSFERRED OUT BY",8.5)=""
^DD(396.327,"B","*TRANSFERRED OUT TO",8)=""
^DD(396.327,"B","*WORKSHEET PRINTED?",.5)=""
^DD(396.327,"GL",0,1,.01)=""
^DD(396.327,"GL",0,2,1)=""
^DD(396.327,"GL",0,3,2)=""
^DD(396.327,"GL",0,4,3)=""
^DD(396.327,"GL",0,5,4)=""
^DD(396.327,"GL",0,6,2.3)=""
^DD(396.327,"GL",0,7,2.5)=""
^DD(396.327,"GL",0,8,5)=""
^DD(396.327,"GL",0,9,6)=""
^DD(396.327,"GL",0,10,.5)=""
^DD(396.327,"GL",0,11,8)=""
^DD(396.327,"GL",0,12,9)=""
^DD(396.327,"GL",0,13,10)=""
^DD(396.327,"GL",0,14,11)=""
^DD(396.327,"GL",0,15,8.5)=""
^DD(396.327,"GL",1,0,7)=""
^DD(396.327,"IX",.01)=""
^DD(396.327,"RQ",5)=""
^DD(396.327,"SB",396.3277,7)=""
^DD(396.3277,0)="*RESULTS SUB-FIELD^^.01^1"
^DD(396.3277,0,"NM","*RESULTS")=""
^DD(396.3277,0,"UP")="396.327"
^DD(396.3277,.01,0)="RESULTS^W^^0;1^Q"
^DD(396.3277,.01,"DT")="2900727"
^DD(396.3277,"B","RESULTS",.01)=""
^DD(396.3277,"GL",0,1,.01)=""
^DD(396.4,0)="FIELD^^1^26"
^DD(396.4,0,"DDA")="N"
^DD(396.4,0,"DT")="3060616"
^DD(396.4,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DVB(396.6,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(396.6,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(396.4,0,"IX","AC",396.4,.03)=""
^DD(396.4,0,"IX","AD",396.4,.04)=""
^DD(396.4,0,"IX","AE",396.4,.03)=""
^DD(396.4,0,"IX","AF",396.4,.02)=""
^DD(396.4,0,"IX","AIT",396.4,.11)=""
^DD(396.4,0,"IX","AIT2",396.4,.03)=""
^DD(396.4,0,"IX","APE",396.4,.02)=""
^DD(396.4,0,"IX","APS",396.4,.02)=""
^DD(396.4,0,"IX","ARQ",396.4,.03)=""
^DD(396.4,0,"IX","B",396.4,.01)=""
^DD(396.4,0,"IX","C",396.4,.02)=""
^DD(396.4,0,"IX","F",396.4,.03)=""
^DD(396.4,0,"NM","2507 EXAM")=""
^DD(396.4,0,"PT",396.1718,.01)=""
^DD(396.4,0,"PT",500061,4)=""
^DD(396.4,0,"VR")="2.7"
^DD(396.4,0,"VRPK")="DVBA"
^DD(396.4,.01,0)="EXAM REFERENCE NUMBER^RNJ12,0I^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(396.4,.01,1,0)="^.1"
^DD(396.4,.01,1,1,0)="396.4^B"
^DD(396.4,.01,1,1,1)="S ^DVB(396.4,""B"",$E(X,1,30),DA)="""""
^DD(396.4,.01,1,1,2)="K ^DVB(396.4,""B"",$E(X,1,30),DA)"
^DD(396.4,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(396.4,.01,4)=""
^DD(396.4,.01,21,0)="^^2^2^2941017^^^^"
^DD(396.4,.01,21,1,0)="This field contains an entry number of the exam in the 2507 Exam file."
^DD(396.4,.01,21,2,0)="It is not related to an Exam number or a worksheet number."
^DD(396.4,.01,23,0)="^^2^2^2941017^^^^"
^DD(396.4,.01,23,1,0)="This field is generated from the LAST EXAM NUMBER field in the AMIE site"
^DD(396.4,.01,23,2,0)="parameter file."
^DD(396.4,.01,"DT")="2941220"
^DD(396.4,.02,0)="2507 REQUEST^RP396.3'I^DVB(396.3,^0;2^Q"
^DD(396.4,.02,1,0)="^.1^^-1"
^DD(396.4,.02,1,1,0)="396.4^C"
^DD(396.4,.02,1,1,1)="S ^DVB(396.4,""C"",$E(X,1,30),DA)="""""
^DD(396.4,.02,1,1,2)="K ^DVB(396.4,""C"",$E(X,1,30),DA)"
^DD(396.4,.02,1,1,"%D",0)="^^1^1^2940304^"
^DD(396.4,.02,1,1,"%D",1,0)="This is a standard FM cross reference for this field."
^DD(396.4,.02,1,1,"DT")="2930218"
^DD(396.4,.02,1,2,0)="396.4^APS^MUMPS"
^DD(396.4,.02,1,2,1)="N A S A=^DVB(396.4,DA,0) I $P(A,U,3)]"""",$P(A,U,4)]"""" S ^DVB(396.4,""APS"",$P(^DVB(396.3,$E(X,1,30),0),U,1),$P(A,U,3),$P(A,U,4),DA)="""""
^DD(396.4,.02,1,2,2)="N A S A=^DVB(396.4,DA,0) I $P(A,U,3)]"""",$P(A,U,4)]"""" K ^DVB(396.4,""APS"",$P(^DVB(396.3,$E(X,1,30),0),U,1),$P(A,U,3),$P(A,U,4),DA)"
^DD(396.4,.02,1,2,"%D",0)="^^3^3^2930510^^"
^DD(396.4,.02,1,2,"%D",1,0)="This cross reference contains the patient's internal file number, the exam"
^DD(396.4,.02,1,2,"%D",2,0)="IFN and the exam status.  It is set on two other fields .03 and .04.  "
^DD(396.4,.02,1,2,"%D",3,0)="Recross referencing any one of these fields will be acceptable."
^DD(396.4,.02,1,2,"DT")="2930422"
^DD(396.4,.02,1,3,0)="396.4^APE^MUMPS"
^DD(396.4,.02,1,3,1)="N A,B S A=^DVB(396.3,$E(X,1,30),0) I $P(A,U,1)]"""",$P(A,U,2)]"""" S B=^DVB(396.4,DA,0) I $P(B,U,3)]"""" S ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$P(B,U,3),0),U,1),$P(A,U,2),DA)="""""
^DD(396.4,.02,1,3,2)="N A,B S A=^DVB(396.3,$E(X,1,30),0) I $P(A,U,1)]"""",$P(A,U,2)]"""" S B=^DVB(396.4,DA,0) I $P(B,U,3)]"""" K ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$P(B,U,3),0),U,1),$P(A,U,2),DA)"
^DD(396.4,.02,1,3,"%D",0)="^^3^3^2930510^"
^DD(396.4,.02,1,3,"%D",1,0)="This cross reference contains the patient's IFN, the exam name, and the"
^DD(396.4,.02,1,3,"%D",2,0)="request date.  It is set on one other field .03.  Recross referencing either"
^DD(396.4,.02,1,3,"%D",3,0)="one of these fields would be acceptable."
^DD(396.4,.02,1,3,"DT")="2930422"
^DD(396.4,.02,1,4,0)="396.4^AF^MUMPS"
^DD(396.4,.02,1,4,1)="N A S A=$P(^DVB(396.4,DA,0),U,3) I A]"""" S ^DVB(396.4,""ARQ""_X,A,DA)="""""
^DD(396.4,.02,1,4,2)="N A S A=$P(^DVB(396.4,DA,0),U,3) I A]"""" K ^DVB(396.4,""ARQ""_X,A,DA)"
^DD(396.4,.02,1,4,"%D",0)="^^2^2^2940304^^"
^DD(396.4,.02,1,4,"%D",1,0)="This cross reference is used to quickly find the correct exams that are"
^DD(396.4,.02,1,4,"%D",2,0)="related to a specific request."
^DD(396.4,.02,1,4,"DT")="2930902"
^DD(396.4,.02,3)="Enter the request that this exam belongs to.  You will select the veteran then which request."
^DD(396.4,.02,21,0)="^^2^2^2940721^^"
^DD(396.4,.02,21,1,0)="This field connects the given record with the 2507 request record that"
^DD(396.4,.02,21,2,0)="the exam is on."
^DD(396.4,.02,23,0)="^^1^1^2940721^^"
^DD(396.4,.02,23,1,0)="A pointer to the 2507 Request file (396.3)."
^DD(396.4,.02,"DT")="2941118"
^DD(396.4,.03,0)="EXAM TYPE^RP396.6'I^DVB(396.6,^0;3^Q"
^DD(396.4,.03,1,0)="^.1"
^DD(396.4,.03,1,1,0)="396.4^ARQ^MUMPS"
^DD(396.4,.03,1,1,1)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" S ^DVB(396.4,""ARQ""_A,$E(X,1,30),DA)="""""
^DD(396.4,.03,1,1,2)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" K ^DVB(396.4,""ARQ""_A,$E(X,1,30),DA)"
^DD(396.4,.03,1,1,"%D",0)="^^1^1^2930902^"
^DD(396.4,.03,1,1,"%D",1,0)="This cross reference is to aid in the look up on the 2507 exam file 396.4"
^DD(396.4,.03,1,1,"DT")="2930902"
^DD(396.4,.03,1,2,0)="396.4^AC^MUMPS"
^DD(396.4,.03,1,2,1)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,4)]"""" S ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$E(X,1,30),$P(A,U,4),DA)="""""
^DD(396.4,.03,1,2,2)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,4)]"""" K ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$E(X,1,30),$P(A,U,4),DA)"
^DD(396.4,.03,1,2,"%D",0)="^^3^3^2930510^^^^"
^DD(396.4,.03,1,2,"%D",1,0)="This cross reference contains the patient's internal file number, the exam "
^DD(396.4,.03,1,2,"%D",2,0)="IFN and the exam status.  It is set on two other fields .02 and .04.   "
^DD(396.4,.03,1,2,"%D",3,0)="Recross referencing any one of these fields will be acceptable."
^DD(396.4,.03,1,2,"DT")="2930422"
^DD(396.4,.03,1,3,0)="396.4^AE^MUMPS"
^DD(396.4,.03,1,3,1)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" S A=^DVB(396.3,A,0) I $P(A,U,1)]"""",$P(A,U,2)]"""" S ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$E(X,1,30),0),U,1),$P(A,U,2),DA)="""""
^DD(396.4,.03,1,3,2)="N A S A=$P(^DVB(396.4,DA,0),U,2) I A]"""" S A=^DVB(396.3,A,0) I $P(A,U,1)]"""",$P(A,U,2)]"""" K ^DVB(396.4,""APE"",$P(A,U,1),$P(^DVB(396.6,$E(X,1,30),0),U,1),$P(A,U,2),DA)"
^DD(396.4,.03,1,3,"%D",0)="^^3^3^2930510^"
^DD(396.4,.03,1,3,"%D",1,0)="This cross reference contains the patient's IFN, the exam name, and the"
^DD(396.4,.03,1,3,"%D",2,0)="request date.  It is set on one other field .03.  Recross referencing either"
^DD(396.4,.03,1,3,"%D",3,0)="one of these fields would be acceptable."
^DD(396.4,.03,1,3,"DT")="2930422"
^DD(396.4,.03,1,4,0)="396.4^F"
^DD(396.4,.03,1,4,1)="S ^DVB(396.4,""F"",$E(X,1,30),DA)="""""
^DD(396.4,.03,1,4,2)="K ^DVB(396.4,""F"",$E(X,1,30),DA)"
^DD(396.4,.03,1,4,"DT")="2930218"
^DD(396.4,.03,1,5,0)="396.4^AIT2^MUMPS"
^DD(396.4,.03,1,5,1)="S:+$P(^DVB(396.4,DA,0),U,11)>0 ^DVB(396.4,""AIT"",$P(^(0),U,11),$E(X,1,30),DA)="""""
^DD(396.4,.03,1,5,2)="I +$P(^DVB(396.4,DA,0),U,11)>0 K ^DVB(396.4,""AIT"",$P(^(0),U,11),$E(X,1,30),DA)"
^DD(396.4,.03,1,5,"%D",0)="^^2^2^2941116^^^"
^DD(396.4,.03,1,5,"%D",1,0)="This cross reference is on the Insufficient Reason and Exam Type fields."
^DD(396.4,.03,1,5,"%D",2,0)="It is used by the the Detailed Insufficient Exam Report."
^DD(396.4,.03,1,5,"DT")="2941116"
^DD(396.4,.03,3)="Enter the name of the exam for this request."
^DD(396.4,.03,4)=""
^DD(396.4,.03,21,0)="^^1^1^2940722^^"
^DD(396.4,.03,21,1,0)="Contains the name of the exam."
^DD(396.4,.03,23,0)="^^1^1^2940722^^"
^DD(396.4,.03,23,1,0)="This field is a pointer to the 2507 Exam File (396.6)."
^DD(396.4,.03,"DT")="2941118"
^DD(396.4,.04,0)="STATUS^S^O:OPEN;C:COMPLETED;X:CANCELED BY MAS;RX:CANCELED BY RO;T:TRANSFERRED OUT;^0;4^Q"
^DD(396.4,.04,1,0)="^.1^^-1"
^DD(396.4,.04,1,1,0)="396.4^AD^MUMPS"
^DD(396.4,.04,1,1,1)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,3)]"""" S ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$P(A,U,3),$E(X,1,30),DA)="""""
^DD(396.4,.04,1,1,2)="N A S A=^DVB(396.4,DA,0) I $P(A,U,2)]"""",$P(A,U,3)]"""" K ^DVB(396.4,""APS"",$P(^DVB(396.3,$P(A,U,2),0),U,1),$P(A,U,3),$E(X,1,30),DA)"
^DD(396.4,.04,1,1,"%D",0)="^^3^3^2930510^^^^"
^DD(396.4,.04,1,1,"%D",1,0)="This cross reference contains the patient's internal file number, the exam "
^DD(396.4,.04,1,1,"%D",2,0)="IFN and the exam status.  It is set on two other fields .02 and .03.   "
^DD(396.4,.04,1,1,"%D",3,0)="Recross referencing any one of these fields will be acceptable."
^DD(396.4,.04,1,1,"DT")="2930422"
^DD(396.4,.04,3)="This is the status of the exam in AMIE."
^DD(396.4,.04,21,0)="^.001^2^2^3040910^^"
^DD(396.4,.04,21,1,0)="The value of the status of the exam record.  (Open, Closed, Transferred or"
^DD(396.4,.04,21,2,0)="Cancelled)"
^DD(396.4,.04,21,3,0)=" "
^DD(396.4,.04,21,4,0)="This field is used as part of the implementation of a Nationally Controlled"
^DD(396.4,.04,21,5,0)="Procedure (AMIS 290).  Per VHA Directive 10-93-142, the information "
^DD(396.4,.04,21,6,0)="contained in this field is not to be changed as the results of local (site) "
^DD(396.4,.04,21,7,0)="modifications."
^DD(396.4,.04,23,0)="^.001^2^2^3040910^^"
^DD(396.4,.04,23,1,0)="This field is a set of codes.  It controls what AMIE functions can be "
^DD(396.4,.04,23,2,0)="performed on the exam record."
^DD(396.4,.04,"DT")="3040910"
^DD(396.4,.05,0)="WORK SHEET PRINTED^S^Y:YES;N:NO;^0;5^Q"
^DD(396.4,.05,3)="Indicates whether a worksheet has been printed or not."
^DD(396.4,.05,21,0)="^^2^2^2930430^"
^DD(396.4,.05,21,1,0)="Indicates if the user has printed the worksheet when a request was logged"
^DD(396.4,.05,21,2,0)="or an exam was added to a request."
^DD(396.4,.05,"DT")="2930128"
^DD(396.4,.06,0)="DATE OF EXAM^DX^^0;6^S %DT=""EST"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(396.4,.06,3)="This is the date this exam was performed."
^DD(396.4,.06,21,0)="^^1^1^2930430^^"
^DD(396.4,.06,21,1,0)="The date the exam was performed."
^DD(396.4,.06,23,0)="^^1^1^2930430^^"
^DD(396.4,.06,23,1,0)="Entered with the transcription routine ^DVBCEDIT."
^DD(396.4,.06,"DT")="3030311"
^DD(396.4,.07,0)="EXAMINING PHYSICIAN^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(396.4,.07,3)="Enter the name of the physician who performed this exam."
^DD(396.4,.07,21,0)="^^1^1^2940721^^"
^DD(396.4,.07,21,1,0)="The name of the Doctor that performed the examination."
^DD(396.4,.07,"DT")="2930301"
^DD(396.4,.08,0)="FEE EXAM^RS^Y:YES;N:NO;^0;8^Q"
^DD(396.4,.08,3)="Enter 'Y' if this is to be a FEE exam."
^DD(396.4,.08,21,0)="^^1^1^2930430^"
^DD(396.4,.08,21,1,0)="Indicates if the exam was performed on a Fee basis."
^DD(396.4,.08,"DT")="2930128"
^DD(396.4,.09,0)="EXAM PLACE^S^C:CLINIC;F:FEE LOCATION;O:OTHER STATION;^0;9^Q"
^DD(396.4,.09,3)="Enter the code where this exam took place.  Select the code that best fits the situation."
^DD(396.4,.09,21,0)="^^1^1^2950126^^"
^DD(396.4,.09,21,1,0)="Indicates where the exam was performed."
^DD(396.4,.09,"DT")="2930128"
^DD(396.4,.1,0)="DOCTOR'S ELECTRONIC SIGNATURE^FOI^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(396.4,.1,2)="S Y(0)=Y S Y=""  <Hidden>"""
^DD(396.4,.1,2.1)="S Y=""  <Hidden>"""
^DD(396.4,.1,3)="This is the Doctor's electronic signature tied to this exam."
^DD(396.4,.1,21,0)="^^2^2^2950126^^"
^DD(396.4,.1,21,1,0)="The doctor's electronic signature.  This is for use with the Kurzweil"
^DD(396.4,.1,21,2,0)="system."
^DD(396.4,.1,"DT")="2930201"
^DD(396.4,.11,0)="INSUFFICIENT REASON^P396.94'^DVB(396.94,^0;11^Q"
^DD(396.4,.11,1,0)="^.1"
^DD(396.4,.11,1,1,0)="396.4^AIT^MUMPS"
^DD(396.4,.11,1,1,1)="S:+$P(^DVB(396.4,DA,0),U,3)>0 ^DVB(396.4,""AIT"",$E(X,1,30),$P(^(0),U,3),DA)="""""
^DD(396.4,.11,1,1,2)="I +$P(^DVB(396.4,DA,0),U,3)>0 K ^DVB(396.4,""AIT"",$E(X,1,30),$P(^(0),U,3),DA)"
^DD(396.4,.11,1,1,"%D",0)="^^2^2^2941116^^^^"
^DD(396.4,.11,1,1,"%D",1,0)="This cross reference is on the Insufficient Reason and Exam Type fields."
^DD(396.4,.11,1,1,"%D",2,0)="It is used by the Detailed Insufficient Exam Report."
^DD(396.4,.11,1,1,"DT")="2941116"
^DD(396.4,.11,3)="Enter the insufficient reason this exam is being returned."
^DD(396.4,.11,4)=""
^DD(396.4,.11,21,0)="^^1^1^2950210^^^^"
^DD(396.4,.11,21,1,0)="This field contains a pointer to the Insufficient Reason file (396.94)."
^DD(396.4,.11,23,0)="^^3^3^2950210^^^^"
^DD(396.4,.11,23,1,0)="This field is a pointer to the Insufficient Reason File.  It is entered "
^DD(396.4,.11,23,2,0)="when the user adds an exam to a 2507 request that has a priority of"
^DD(396.4,.11,23,3,0)="'Insufficient'."
^DD(396.4,.11,"DT")="2950210"
^DD(396.4,.12,0)="ORIGINAL PROVIDER^F^^0;12^K:$L(X)>30!($L(X)<1) X"
^DD(396.4,.12,3)="Enter the name of the provider who performed the original exam."
^DD(396.4,.12,21,0)="^^3^3^2941221^^"
^DD(396.4,.12,21,1,0)="This field contains the name of the provider who performed the original"
^DD(396.4,.12,21,2,0)="exam.  If the exam was transferred from another Medical Center, the name"
^DD(396.4,.12,21,3,0)="of that site should be included in this field."
^DD(396.4,.12,23,0)="^^3^3^2941221^^"
^DD(396.4,.12,23,1,0)="This field is populated by AMIE software when the original 2507 request"
^DD(396.4,.12,23,2,0)="has not been purged.  If the original 2507 record has been purged, the user"
^DD(396.4,.12,23,3,0)="enters this information."
^DD(396.4,.12,"DT")="2941221"
^DD(396.4,1,0)="CAPRI TEMPLATE ID^P396.17'^DVB(396.17,^2;1^Q"
^DD(396.4,1,21,0)="^^1^1^3060616^"
^DD(396.4,1,21,1,0)="Pointer to the CAPRI template used to complete this examination."
^DD(396.4,1,"DT")="3060616"
^DD(396.4,50,0)="CANCELLATION DATE/TIME^D^^CAN;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(396.4,50,3)="Date and Time the INDIVIDUAL exam was canceled."
^DD(396.4,50,21,0)="^^1^1^2930521^^"
^DD(396.4,50,21,1,0)="Indicates when the exam was cancelled."
^DD(396.4,50,23,0)="^^1^1^2930521^^"
^DD(396.4,50,23,1,0)="Updated only when the exam is cancelled."
^DD(396.4,50,"DT")="2930521"
^DD(396.4,51,0)="CANCELED BY^P200'^VA(200,^CAN;2^Q"
^DD(396.4,51,3)="This field holds the name of the person who canceled the individual exam."
^DD(396.4,51,21,0)="^^1^1^2930430^"
^DD(396.4,51,21,1,0)="Indicates who cancelled the exam."
^DD(396.4,51,23,0)="^^1^1^2930430^"
^DD(396.4,51,23,1,0)="Contains the DUZ of the person who cancelled the exam.  (Pointer)"
^DD(396.4,51,"DT")="2930128"
^DD(396.4,52,0)="CANCELLATION REASON^P396.5'^DVB(396.5,^CAN;3^Q"
^DD(396.4,52,3)="Enter the response which best describes the reason for the cancellation."
^DD(396.4,52,21,0)="^^2^2^2950126^^^"
^DD(396.4,52,21,1,0)="Contains the reason for cancellation from the 2507 CANCELLATION REASON file"
^DD(396.4,52,21,2,0)="(396.5)."
^DD(396.4,52,23,0)="^^1^1^2950126^^^"
^DD(396.4,52,23,1,0)="Pointer to file 396.5."
^DD(396.4,52,"DT")="2930521"
^DD(396.4,60,0)="DATE TRANSFERRED OUT^D^^TRAN;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(396.4,60,3)="Enter the date this exam was transferred to the remote site."
^DD(396.4,60,21,0)="^^1^1^2930430^"
^DD(396.4,60,21,1,0)="Indicates the date an exam was transferred to another VAMC."
^DD(396.4,60,"DT")="2930128"
^DD(396.4,61,0)="TRANSFERRED OUT BY^F^^TRAN;2^K:$L(X)>30!($L(X)<1) X"
^DD(396.4,61,3)="Answer must be 1-30 characters in length.  Enter the name of the person who transferred out this exam."
^DD(396.4,61,21,0)="^^2^2^2930430^"
^DD(396.4,61,21,1,0)="A Free Text field which contains the name of the user that transferred an"
^DD(396.4,61,21,2,0)="exam to another VAMC."
^DD(396.4,61,"DT")="2930128"
^DD(396.4,62,0)="TRANSFERRED OUT TO^P4.2'^DIC(4.2,^TRAN;3^Q"
^DD(396.4,62,3)="Enter the domain this exam was transferred to."
^DD(396.4,62,21,0)="^^1^1^2930430^"
^DD(396.4,62,21,1,0)="Contains the name of the institution that an exam was transferred out to."
^DD(396.4,62,23,0)="^^1^1^2930430^"
^DD(396.4,62,23,1,0)="A pointer to the Domain File."
^DD(396.4,62,"DT")="2930128"
^DD(396.4,63,0)="DATE TRANSFERRED IN^D^^TRAN;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(396.4,63,3)="Enter the date this exam was transferred to this site."
^DD(396.4,63,21,0)="^^1^1^2950126^^"
^DD(396.4,63,21,1,0)="Contains the date an exam was received at a remote site."
^DD(396.4,63,21,2,0)="that remote site."
^DD(396.4,63,"DT")="2930128"
^DD(396.4,64,0)="DATE RETURNED TO OWNER SITE^D^^TRAN;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(396.4,64,3)="Enter the date this exam and its results were returned to the originating site."
^DD(396.4,64,21,0)="^^4^4^2930430^"
^DD(396.4,64,21,1,0)="Used by a remote site when an exam is transferred to that site for "
^DD(396.4,64,21,2,0)="completion.  Upon completion and release of a transferred exam, this"
^DD(396.4,64,21,3,0)="field records at the remote site the date the exam was released to the"
^DD(396.4,64,21,4,0)="originating site."
^DD(396.4,64,"DT")="2930128"
^DD(396.4,70,0)="EXAM RESULTS^396.41^^RES;0"
^DD(396.4,70,21,0)="^^1^1^2931013^^"
^DD(396.4,70,21,1,0)="Contains the results of a completed exam."
^DD(396.4,70,23,0)="^^1^1^2931013^^"
^DD(396.4,70,23,1,0)="Entered by the transcriptionist with the routine ^DVBCEDIT."
^DD(396.4,71,0)="EXAM RESULTS RTF^396.471^^1;0"
^DD(396.4,75,0)="TIU DOCUMENT ID^P8925'^TIU(8925,^0;13^Q"
^DD(396.4,75,21,0)="^^3^3^3030625^"
^DD(396.4,75,21,1,0)="This field is a pointer to a TIU document containing the examination"
^DD(396.4,75,21,2,0)="report.  The CAPRI GUI will automatically populate this field when a C&P"
^DD(396.4,75,21,3,0)="exam template is completed via the CAPRI interface."
^DD(396.4,75,"DT")="3030625"
^DD(396.4,80,0)="INSUFFICIENT REMARKS^396.42^^INREM;0"
^DD(396.4,80,21,0)="^^3^3^2941115^"
^DD(396.4,80,21,1,0)="This field contains insufficient remarks entered by the Regional Office"
^DD(396.4,80,21,2,0)="when the C&P Exam Request is returned with a Priority of 'E'"
^DD(396.4,80,21,3,0)="(Insufficient)."
^DD(396.4,80,23,0)="^^2^2^2941115^"
^DD(396.4,80,23,1,0)="This information is reported when the Medical Center prints a 2507 request"
^DD(396.4,80,23,2,0)="that has a priority of Insufficient."
^DD(396.4,90,0)="DATE TRANSCRIPTION COMPLETE^D^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.4,90,9)="^"
^DD(396.4,90,21,0)="^.001^2^2^3040910^^^"
^DD(396.4,90,21,1,0)="This field records the date/time the user has marked the exam document as "
^DD(396.4,90,21,2,0)="complete."
^DD(396.4,90,"DT")="3040909"
^DD(396.4,"B","2507 REQUEST",.02)=""
^DD(396.4,"B","CANCELED BY",51)=""
^DD(396.4,"B","CANCELLATION DATE/TIME",50)=""
^DD(396.4,"B","CANCELLATION REASON",52)=""
^DD(396.4,"B","CAPRI TEMPLATE ID",1)=""
^DD(396.4,"B","DATE OF EXAM",.06)=""
^DD(396.4,"B","DATE RETURNED TO OWNER SITE",64)=""
^DD(396.4,"B","DATE TRANSCRIPTION COMPLETE",90)=""
^DD(396.4,"B","DATE TRANSFERRED IN",63)=""
^DD(396.4,"B","DATE TRANSFERRED OUT",60)=""
^DD(396.4,"B","DOCTOR'S ELECTRONIC SIGNATURE",.1)=""
^DD(396.4,"B","EXAM PLACE",.09)=""
^DD(396.4,"B","EXAM REFERENCE NUMBER",.01)=""
^DD(396.4,"B","EXAM RESULTS",70)=""
^DD(396.4,"B","EXAM RESULTS RTF",71)=""
^DD(396.4,"B","EXAM TYPE",.03)=""
^DD(396.4,"B","EXAMINING PHYSICIAN",.07)=""
^DD(396.4,"B","FEE EXAM",.08)=""
^DD(396.4,"B","INSUFFICIENT REASON",.11)=""
^DD(396.4,"B","INSUFFICIENT REMARKS",80)=""
^DD(396.4,"B","ORIGINAL PROVIDER",.12)=""
^DD(396.4,"B","STATUS",.04)=""
^DD(396.4,"B","TIU DOCUMENT ID",75)=""
^DD(396.4,"B","TRANSFERRED OUT BY",61)=""
^DD(396.4,"B","TRANSFERRED OUT TO",62)=""
^DD(396.4,"B","WORK SHEET PRINTED",.05)=""
^DD(396.4,"GL",0,1,.01)=""
^DD(396.4,"GL",0,2,.02)=""
^DD(396.4,"GL",0,3,.03)=""
^DD(396.4,"GL",0,4,.04)=""
^DD(396.4,"GL",0,5,.05)=""
^DD(396.4,"GL",0,6,.06)=""
^DD(396.4,"GL",0,7,.07)=""
^DD(396.4,"GL",0,8,.08)=""
^DD(396.4,"GL",0,9,.09)=""
^DD(396.4,"GL",0,10,.1)=""
^DD(396.4,"GL",0,11,.11)=""
^DD(396.4,"GL",0,12,.12)=""
^DD(396.4,"GL",0,13,75)=""
^DD(396.4,"GL",0,14,90)=""
^DD(396.4,"GL",1,0,71)=""
^DD(396.4,"GL",2,1,1)=""
^DD(396.4,"GL","CAN",1,50)=""
^DD(396.4,"GL","CAN",2,51)=""
^DD(396.4,"GL","CAN",3,52)=""
^DD(396.4,"GL","INREM",0,80)=""
^DD(396.4,"GL","RES",0,70)=""
^DD(396.4,"GL","TRAN",1,60)=""
^DD(396.4,"GL","TRAN",2,61)=""
^DD(396.4,"GL","TRAN",3,62)=""
^DD(396.4,"GL","TRAN",4,63)=""
^DD(396.4,"GL","TRAN",5,64)=""
^DD(396.4,"IX",.01)=""
^DD(396.4,"IX",.02)=""
^DD(396.4,"IX",.03)=""
^DD(396.4,"IX",.04)=""
^DD(396.4,"IX",.11)=""
^DD(396.4,"RQ",.01)=""
^DD(396.4,"RQ",.02)=""
^DD(396.4,"RQ",.03)=""
^DD(396.4,"RQ",.08)=""
^DD(396.4,"SB",396.41,70)=""
^DD(396.4,"SB",396.42,80)=""
^DD(396.4,"SB",396.471,71)=""
^DD(396.41,0)="EXAM RESULTS SUB-FIELD^^.01^1"
^DD(396.41,0,"DT")="2930128"
^DD(396.41,0,"NM","EXAM RESULTS")=""
^DD(396.41,0,"UP")="396.4"
^DD(396.41,.01,0)="EXAM RESULTS^W^^0;1^Q"
^DD(396.41,.01,3)="Enter the results for this exam."
^DD(396.41,.01,4)="S Y=$$PHYS^DVBCUTL4(""YES"") K Y"
^DD(396.41,.01,"DT")="2930128"
^DD(396.41,"B","EXAM RESULTS",.01)=""
^DD(396.41,"GL",0,1,.01)=""
^DD(396.42,0)="INSUFFICIENT REMARKS SUB-FIELD^^.01^1"
^DD(396.42,0,"DT")="2941115"
^DD(396.42,0,"NM","INSUFFICIENT REMARKS")=""
^DD(396.42,0,"UP")="396.4"
^DD(396.42,.01,0)="INSUFFICIENT REMARKS^W^^0;1^Q"
^DD(396.42,.01,3)="Enter the insufficient remarks detailing the reason the exam is being returned."
^DD(396.42,.01,21,0)="^^4^4^2941115^"
^DD(396.42,.01,21,1,0)="This field contains insufficient remarks entered by the Regional Office"
^DD(396.42,.01,21,2,0)="when the C&P Exam Request is returned with a Priority of 'E'            "
^DD(396.42,.01,21,3,0)="(Insufficient)."
^DD(396.42,.01,21,4,0)=" "
^DD(396.42,.01,23,0)="^^2^2^2941115^"
^DD(396.42,.01,23,1,0)="This information is reported when the Medical Center prints a 2507 request"
^DD(396.42,.01,23,2,0)="that has a priority of Insufficient."
^DD(396.42,.01,"DT")="2941115"
^DD(396.42,"B","INSUFFICIENT REMARKS",.01)=""
^DD(396.42,"GL",0,1,.01)=""
^DD(396.471,0)="EXAM RESULTS RTF SUB-FIELD^^.01^1"
^DD(396.471,0,"DT")="3050719"
^DD(396.471,0,"NM","EXAM RESULTS RTF")=""
^DD(396.471,0,"UP")="396.4"
^DD(396.471,.01,0)="EXAM RESULTS RTF^WL^^0;1^Q"
^DD(396.471,.01,21,0)="^^2^2^3050719^"
^DD(396.471,.01,21,1,0)="Exam results stored in RTF format for display in the GUI.  This should "
^DD(396.471,.01,21,2,0)="match field 70 except for the addition of RTF formatting commands."
^DD(396.471,.01,"DT")="3050719"
^DD(396.471,"B","EXAM RESULTS RTF",.01)=""
^DD(396.471,"GL",0,1,.01)=""
^DD(396.5,0)="FIELD^^1^2"
^DD(396.5,0,"DDA")="N"
^DD(396.5,0,"IX","B",396.5,.01)=""
^DD(396.5,0,"IX","C",396.5,1)=""
^DD(396.5,0,"NM","2507 CANCELLATION REASON")=""
^DD(396.5,0,"PT",396.327,2)=""
^DD(396.5,0,"PT",396.4,52)=""
^DD(396.5,0,"VR")="2.7"
^DD(396.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(396.5,.01,1,0)="^.1"
^DD(396.5,.01,1,1,0)="396.5^B"
^DD(396.5,.01,1,1,1)="S ^DVB(396.5,""B"",$E(X,1,30),DA)="""""
^DD(396.5,.01,1,1,2)="K ^DVB(396.5,""B"",$E(X,1,30),DA)"
^DD(396.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(396.5,.01,21,0)="^^2^2^2930430^"
^DD(396.5,.01,21,1,0)="This field holds the values of possible reasons a user may select whenever"
^DD(396.5,.01,21,2,0)="cancelling a 2507 exam."
^DD(396.5,.01,23,0)="^^2^2^2930430^"
^DD(396.5,.01,23,1,0)="A record in this file is pointed to by CANCELLATION REASON field in the"
^DD(396.5,.01,23,2,0)="file 396.4."
^DD(396.5,1,0)="*SEQUENCE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(396.5,1,1,0)="^.1"
^DD(396.5,1,1,1,0)="396.5^C"
^DD(396.5,1,1,1,1)="S ^DVB(396.5,""C"",$E(X,1,30),DA)="""""
^DD(396.5,1,1,1,2)="K ^DVB(396.5,""C"",$E(X,1,30),DA)"
^DD(396.5,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(396.5,1,21,0)="^^1^1^2930430^^"
^DD(396.5,1,21,1,0)="This field is the sequence number of the cancellation reason."
^DD(396.5,"B","*SEQUENCE",1)=""
^DD(396.5,"B","NAME",.01)=""
^DD(396.5,"GL",0,1,.01)=""
^DD(396.5,"GL",0,2,1)=""
^DD(396.5,"IX",.01)=""
^DD(396.5,"IX",1)=""
^DD(396.5,"RQ",.01)=""
^DD(396.6,0)="FIELD^^10^7"
^DD(396.6,0,"DDA")="N"
^DD(396.6,0,"DT")="2940126"
^DD(396.6,0,"ID",.07)="W ""   "",$P(^(0),U,7)"
^DD(396.6,0,"IX","APE",396.6,.01)=""
^DD(396.6,0,"IX","B",396.6,.01)=""
^DD(396.6,0,"IX","C",396.6,2)=""
^DD(396.6,0,"IX","D",396.6,.07)=""
^DD(396.6,0,"NM","AMIE EXAM")=""
^DD(396.6,0,"PT",396.1514,.01)=""
^DD(396.6,0,"PT",396.327,.01)=""
^DD(396.6,0,"PT",396.4,.03)=""
^DD(396.6,0,"VR")="2.7"
^DD(396.6,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(396.6,.01,1,0)="^.1"
^DD(396.6,.01,1,1,0)="396.6^B"
^DD(396.6,.01,1,1,1)="S ^DVB(396.6,""B"",$E(X,1,30),DA)="""""
^DD(396.6,.01,1,1,2)="K ^DVB(396.6,""B"",$E(X,1,30),DA)"
^DD(396.6,.01,1,2,0)="396.6^APE^MUMPS"
^DD(396.6,.01,1,2,1)="D EXAMSET^DVBADD"
^DD(396.6,.01,1,2,2)="D EXAMKILL^DVBADD"
^DD(396.6,.01,1,2,"%D",0)="^^4^4^2960215^"
^DD(396.6,.01,1,2,"%D",1,0)="This cross-reference will cause the APE cross-references in the 2507 EXAM"
^DD(396.6,.01,1,2,"%D",2,0)="file (#396.4) to be reset whenever the name of an exam is changed.  The"
^DD(396.6,.01,1,2,"%D",3,0)="APE x-ref in file 396.4 contains the name of the exam rather than its"
^DD(396.6,.01,1,2,"%D",4,0)="pointer value."
^DD(396.6,.01,1,2,"DT")="2960215"
^DD(396.6,.01,3)="ANSWER MUST BE 3-60 CHARACTERS IN LENGTH"
^DD(396.6,.01,21,0)="^^1^1^2930430^"
^DD(396.6,.01,21,1,0)="The name of the 2507 Exam that a user may add to a 2507 Exam Request."
^DD(396.6,.01,23,0)="^^1^1^2930430^"
^DD(396.6,.01,23,1,0)="Designed for use with the 2507 Request File (396.3)."
^DD(396.6,.01,"DT")="2960215"
^DD(396.6,.07,0)="AMIE WORKSHEET #^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(396.6,.07,1,0)="^.1"
^DD(396.6,.07,1,1,0)="396.6^D"
^DD(396.6,.07,1,1,1)="S ^DVB(396.6,""D"",$E(X,1,30),DA)="""""
^DD(396.6,.07,1,1,2)="K ^DVB(396.6,""D"",$E(X,1,30),DA)"
^DD(396.6,.07,1,1,"%D",0)="^^1^1^2940126^"
^DD(396.6,.07,1,1,"%D",1,0)="Used during the lookup for the Physician's guide."
^DD(396.6,.07,1,1,"DT")="2940126"
^DD(396.6,.07,3)="Answer must be 1-6 characters in length."
^DD(396.6,.07,21,0)="^^2^2^2940721^^^"
^DD(396.6,.07,21,1,0)="This is the worksheet number.  It is used not only in AMIE but in the"
^DD(396.6,.07,21,2,0)="Physician's Guide as well."
^DD(396.6,.07,"DT")="2940126"
^DD(396.6,.5,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;5^Q"
^DD(396.6,.5,3)="Enter A if the exam is active or I if inactive.  If inactive it cannot be selected by the RO."
^DD(396.6,.5,21,0)="^^1^1^2940721^^"
^DD(396.6,.5,21,1,0)="The status of the 2507 Exam.  May be 'I' for Inacactive or 'A' for Active."
^DD(396.6,.5,23,0)="2"
^DD(396.6,.5,23,1,0)="This field is used with VA FileMan screens to prevent users from selecting "
^DD(396.6,.5,23,2,0)="exams at a VAMC that the VAMC does not have facilities to perform."
^DD(396.6,.5,"DT")="2900327"
^DD(396.6,2,0)="BODY SYSTEM^RP396.7'^DVB(396.7,^0;3^Q"
^DD(396.6,2,1,0)="^.1"
^DD(396.6,2,1,1,0)="396.6^C"
^DD(396.6,2,1,1,1)="S ^DVB(396.6,""C"",$E(X,1,30),DA)="""""
^DD(396.6,2,1,1,2)="K ^DVB(396.6,""C"",$E(X,1,30),DA)"
^DD(396.6,2,3)="Enter the body system to which this exam belongs."
^DD(396.6,2,21,0)="^^1^1^2940304^^"
^DD(396.6,2,21,1,0)="Indicates which Body System the exam pertains to.                   "
^DD(396.6,2,23,0)="^^1^1^2940304^^"
^DD(396.6,2,23,1,0)="A pointer to the Body System File."
^DD(396.6,2,"DT")="2900326"
^DD(396.6,6,0)="PRINT NAME^RF^^0;2^K:$L(X)>25!($L(X)<1) X"
^DD(396.6,6,3)="Answer must be 1-25 characters in length."
^DD(396.6,6,21,0)="^^1^1^2930430^"
^DD(396.6,6,21,1,0)="This field holds the name of the exam as it will appear on reports."
^DD(396.6,6,"DT")="2900216"
^DD(396.6,7,0)="REPORTING PROGRAM NAME^FX^^0;4^X ^%ZOSF(""TEST"") K:$L(X)>8!($L(X)<1)!('$T) X"
^DD(396.6,7,3)="Enter the name of valid program that will be used to generate the exams for the physicians."
^DD(396.6,7,21,0)="^^2^2^2930430^"
^DD(396.6,7,21,1,0)="This field holds the name of the worksheet routine that is printed when"
^DD(396.6,7,21,2,0)="a user prints worksheets after logging or adding exams to 2507 requests."
^DD(396.6,7,23,0)="^^2^2^2930430^"
^DD(396.6,7,23,1,0)="This value of this field is a routine name.  It is pulled into a variable"
^DD(396.6,7,23,2,0)="and called via indirection from other routines."
^DD(396.6,7,"DT")="2900123"
^DD(396.6,10,0)="*RELATED DISABILITIES^396.61P^^1;0"
^DD(396.6,10,21,0)="^^1^1^2970411^^"
^DD(396.6,10,21,1,0)="These are the specfic disabilities that belong to this AMIE worksheet"
^DD(396.6,10,23,0)="^^1^1^2970411^^"
^DD(396.6,10,23,1,0)=" "
^DD(396.6,10,"DT")="2970411"
^DD(396.6,"B","*RELATED DISABILITIES",10)=""
^DD(396.6,"B","AMIE WORKSHEET #",.07)=""
^DD(396.6,"B","BODY SYSTEM",2)=""
^DD(396.6,"B","NAME",.01)=""
^DD(396.6,"B","PRINT NAME",6)=""
^DD(396.6,"B","REPORTING PROGRAM NAME",7)=""
^DD(396.6,"B","STATUS",.5)=""
^DD(396.6,"GL",0,1,.01)=""
^DD(396.6,"GL",0,2,6)=""
^DD(396.6,"GL",0,3,2)=""
^DD(396.6,"GL",0,4,7)=""
^DD(396.6,"GL",0,5,.5)=""
^DD(396.6,"GL",0,7,.07)=""
^DD(396.6,"GL",1,0,10)=""
^DD(396.6,"IX",.01)=""
^DD(396.6,"IX",.07)=""
^DD(396.6,"IX",2)=""
^DD(396.6,"RQ",.01)=""
^DD(396.6,"RQ",2)=""
^DD(396.6,"RQ",6)=""
^DD(396.6,"SB",396.61,10)=""
^DD(396.61,0)="*RELATED DISABILITIES SUB-FIELD^^.01^1"
^DD(396.61,0,"DT")="2940126"
^DD(396.61,0,"IX","B",396.61,.01)=""
^DD(396.61,0,"NM","*RELATED DISABILITIES")=""
^DD(396.61,0,"UP")="396.6"
^DD(396.61,.01,0)="*RELATED DISABILITIES^MP31'^DIC(31,^0;1^Q"
^DD(396.61,.01,1,0)="^.1"
^DD(396.61,.01,1,1,0)="396.61^B"
^DD(396.61,.01,1,1,1)="S ^DVB(396.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(396.61,.01,1,1,2)="K ^DVB(396.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(396.61,.01,"DT")="2970411"
^DD(396.61,"B","*RELATED DISABILITIES",.01)=""
^DD(396.61,"GL",0,1,.01)=""
^DD(396.61,"IX",.01)=""
^DD(396.7,0)="FIELD^^10^2"
^DD(396.7,0,"DDA")="N"
^DD(396.7,0,"DT")="2940119"
^DD(396.7,0,"IX","B",396.7,.01)=""
^DD(396.7,0,"NM","2507 BODY SYSTEM")=""
^DD(396.7,0,"PT",396.6,2)=""
^DD(396.7,0,"VR")="2.7"
^DD(396.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(396.7,.01,1,0)="^.1"
^DD(396.7,.01,1,1,0)="396.7^B"
^DD(396.7,.01,1,1,1)="S ^DVB(396.7,""B"",$E(X,1,30),DA)="""""
^DD(396.7,.01,1,1,2)="K ^DVB(396.7,""B"",$E(X,1,30),DA)"
^DD(396.7,.01,3)="Answer must be 3-30 characters in length and be the name of a specific 2507 Exam Body System."
^DD(396.7,.01,21,0)="^^2^2^2930430^"
^DD(396.7,.01,21,1,0)="Contains the specific Body System Name.  2507 Request Exams belong to"
^DD(396.7,.01,21,2,0)="specific body systems.  This field holds the name of those systems."
^DD(396.7,.01,23,0)="^^2^2^2930430^"
^DD(396.7,.01,23,1,0)="This field was designed to be pointed to by the 'Body System' field in the"
^DD(396.7,.01,23,2,0)="AMIE file 396.6 (2507 Exam File)."
^DD(396.7,.01,"DT")="2930430"
^DD(396.7,10,0)="*RELATED DISABILITIES^396.701P^^1;0"
^DD(396.7,10,21,0)="^^2^2^2940304^^^^"
^DD(396.7,10,21,1,0)="This field contains all the Disability Conditions that are associated with"
^DD(396.7,10,21,2,0)="this particular Body System.                                        "
^DD(396.7,10,23,0)="^^1^1^2940304^^"
^DD(396.7,10,23,1,0)=" "
^DD(396.7,10,"DT")="2970411"
^DD(396.7,"B","*RELATED DISABILITIES",10)=""
^DD(396.7,"B","NAME",.01)=""
^DD(396.7,"GL",0,1,.01)=""
^DD(396.7,"GL",1,0,10)=""
^DD(396.7,"IX",.01)=""
^DD(396.7,"RQ",.01)=""
^DD(396.7,"SB",396.701,10)=""
^DD(396.701,0)="*RELATED DISABILITIES SUB-FIELD^^.01^1"
^DD(396.701,0,"DT")="2940119"
^DD(396.701,0,"IX","AC",396.701,.01)=""
^DD(396.701,0,"IX","B",396.701,.01)=""
^DD(396.701,0,"NM","*RELATED DISABILITIES")=""
^DD(396.701,0,"UP")="396.7"
^DD(396.701,.01,0)="*RELATED DISABILITIES^MP31'^DIC(31,^0;1^Q"
^DD(396.701,.01,1,0)="^.1"
^DD(396.701,.01,1,1,0)="396.701^B"
^DD(396.701,.01,1,1,1)="S ^DVB(396.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(396.701,.01,1,1,2)="K ^DVB(396.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(396.701,.01,1,2,0)="396.701^AC^MUMPS"
^DD(396.701,.01,1,2,1)="I $D(^DVB(396.7,DA(1),1,DA,0)) N DVBA,X S DVBA=$P(^(0),U,1) I DVBA'="""" S %=""^DIC(31,""""ADVB"""",I,DVBA,""""DVB(396.7"""",DA(1),DA)"",X=$P(^DVB(396.7,DA(1),0),U,1) D S^XTLKWIC"
^DD(396.701,.01,1,2,2)="I $D(^DVB(396.7,DA(1),1,DA,0)) N DVBA,X S DVBA=$P(^(0),U,1) I DVBA'="""" S %=""^DIC(31,""""ADVB"""",I,DVBA,""""DVB(396.7"""",DA(1),DA)"",X=$P(^DVB(396.7,DA(1),0),U,1) D K^XTLKWIC"
^DD(396.701,.01,1,2,"%D",0)="^^3^3^2940304^^^^"
^DD(396.701,.01,1,2,"%D",1,0)="This cross reference is to help seed the MTLU look up cross reference on"
^DD(396.701,.01,1,2,"%D",2,0)="file 31."
^DD(396.701,.01,1,2,"%D",3,0)=" "
^DD(396.701,.01,1,2,"DT")="2940127"
^DD(396.701,.01,"DT")="2970411"
^DD(396.701,"B","*RELATED DISABILITIES",.01)=""
^DD(396.701,"GL",0,1,.01)=""
^DD(396.701,"IX",.01)=""
^DD(396.93,0,"PT",8984.1,.02)=""
^DD(396.93,0,"PT",8984.2,.02)=""
^DD(396.94,0)="FIELD^^.03^3"
^DD(396.94,0,"DDA")="N"
^DD(396.94,0,"DT")="2941115"
^DD(396.94,0,"IX","B",396.94,.01)=""
^DD(396.94,0,"IX","C",396.94,.02)=""
^DD(396.94,0,"NM","2507 INSUFFICIENT REASONS")=""
^DD(396.94,0,"PT",396.4,.11)=""
^DD(396.94,0,"VR")="2.7"
^DD(396.94,.01,0)="INSUFFICIENT REASON^RF^^0;1^K:$L(X)>75!($L(X)<1)!'(X'?1P.E) X"
^DD(396.94,.01,1,0)="^.1"
^DD(396.94,.01,1,1,0)="396.94^B"
^DD(396.94,.01,1,1,1)="S ^DVB(396.94,""B"",$E(X,1,30),DA)="""""
^DD(396.94,.01,1,1,2)="K ^DVB(396.94,""B"",$E(X,1,30),DA)"
^DD(396.94,.01,3)="Enter the reason a 2507 exam may be returned as insufficient."
^DD(396.94,.01,4)=""
^DD(396.94,.01,21,0)="^^2^2^2950210^^^^"
^DD(396.94,.01,21,1,0)="This field contains the text of the reason that the 2507 exam was"
^DD(396.94,.01,21,2,0)="insufficient."
^DD(396.94,.01,23,0)="^^5^5^2950210^^^^"
^DD(396.94,.01,23,1,0)="The information in this field should not be modified by the site.  The"
^DD(396.94,.01,23,2,0)="reasons included in this file have been established by the AMIE Sub-group"
^DD(396.94,.01,23,3,0)="of the PII-EP."
^DD(396.94,.01,23,4,0)=" "
^DD(396.94,.01,23,5,0)="This information should not be modified by the site."
^DD(396.94,.01,"DT")="2941115"
^DD(396.94,.02,0)="INSUFFICIENT CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(396.94,.02,1,0)="^.1"
^DD(396.94,.02,1,1,0)="396.94^C"
^DD(396.94,.02,1,1,1)="S ^DVB(396.94,""C"",$E(X,1,30),DA)="""""
^DD(396.94,.02,1,1,2)="K ^DVB(396.94,""C"",$E(X,1,30),DA)"
^DD(396.94,.02,1,1,"%D",0)="^^2^2^2941129^"
^DD(396.94,.02,1,1,"%D",1,0)="This cross reference has been added to allow transfers of 2507 requests"
^DD(396.94,.02,1,1,"%D",2,0)="with a Priority of Insufficient to add the Insufficient Reason via Code."
^DD(396.94,.02,1,1,"DT")="2941129"
^DD(396.94,.02,3)="Enter the insufficient reason code."
^DD(396.94,.02,21,0)="^^6^6^2950126^^^^"
^DD(396.94,.02,21,1,0)="This field is used when transferring insufficient exams.  It is included to"
^DD(396.94,.02,21,2,0)="allow the implementation of access of insufficient reasons by an"
^DD(396.94,.02,21,3,0)="associated code."
^DD(396.94,.02,21,4,0)=" "
^DD(396.94,.02,21,5,0)="Because this code is used by the AMIE 2507 transfer processing, it should"
^DD(396.94,.02,21,6,0)="not be modified."
^DD(396.94,.02,23,0)="^^2^2^2941115^^^^"
^DD(396.94,.02,23,1,0)="This fields allows the implementation of access to insufficient reasons by"
^DD(396.94,.02,23,2,0)="an associated code."
^DD(396.94,.02,"DT")="2941129"
^DD(396.94,.03,0)="INSUFFICIENT REASON (REPORT)^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X"
^DD(396.94,.03,1,0)="^.1^^0"
^DD(396.94,.03,3)="Enter a shorter version of the Insufficient Reason for reporting purposes."
^DD(396.94,.03,21,0)="^^1^1^2941115^^^^"
^DD(396.94,.03,21,1,0)="This field contains an abridged version of the Insufficient Reason."
^DD(396.94,.03,23,0)="^^1^1^2941115^^^^"
^DD(396.94,.03,23,1,0)="This field is used by the summary and detailed insufficient exam reports."
^DD(396.94,.03,"DT")="2950210"
^DD(396.94,"B","INSUFFICIENT CODE",.02)=""
^DD(396.94,"B","INSUFFICIENT REASON",.01)=""
^DD(396.94,"B","INSUFFICIENT REASON (REPORT)",.03)=""
^DD(396.94,"GL",0,1,.01)=""
^DD(396.94,"GL",0,2,.02)=""
^DD(396.94,"GL",0,3,.03)=""
^DD(396.94,"IX",.01)=""
^DD(396.94,"IX",.02)=""
^DD(396.94,"RQ",.01)=""
^DD(396.94,"RQ",.02)=""
^DD(396.94,"RQ",.03)=""
^DD(396.95,0)="FIELD^^.08^8"
^DD(396.95,0,"DDA")="N"
^DD(396.95,0,"DT")="2941107"
^DD(396.95,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(396.95,0,"ID",.06)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DVB(396.3,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(396.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(396.95,0,"IX","AB",396.95,.03)=""
^DD(396.95,0,"IX","AB2",396.95,.06)=""
^DD(396.95,0,"IX","AR",396.95,.06)=""
^DD(396.95,0,"IX","ARO",396.95,.02)=""
^DD(396.95,0,"IX","ARO1",396.95,.06)=""
^DD(396.95,0,"IX","ARVC",396.95,.03)=""
^DD(396.95,0,"IX","ARVO",396.95,.02)=""
^DD(396.95,0,"IX","AVC2",396.95,.04)=""
^DD(396.95,0,"IX","AVC3",396.95,.06)=""
^DD(396.95,0,"IX","AVO2",396.95,.04)=""
^DD(396.95,0,"IX","AVO3",396.95,.06)=""
^DD(396.95,0,"IX","B",396.95,.01)=""
^DD(396.95,0,"IX","CD",396.95,.03)=""
^DD(396.95,0,"NM","AMIE C&P EXAM TRACKING")=""
^DD(396.95,0,"VR")="2.7"
^DD(396.95,.01,0)="INITIAL APPT DATE^RD^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.95,.01,1,0)="^.1"
^DD(396.95,.01,1,1,0)="396.95^B"
^DD(396.95,.01,1,1,1)="S ^DVB(396.95,""B"",$E(X,1,30),DA)="""""
^DD(396.95,.01,1,1,2)="K ^DVB(396.95,""B"",$E(X,1,30),DA)"
^DD(396.95,.01,3)="Enter the first appointment date scheduled."
^DD(396.95,.01,21,0)="^^1^1^2941018^^^^"
^DD(396.95,.01,21,1,0)="This field contains the initial appointment date."
^DD(396.95,.01,23,0)="^^2^2^2941018^^^^"
^DD(396.95,.01,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.01,23,2,0)="contains the date of the first appointment scheduled for the examination."
^DD(396.95,.01,"DT")="2941028"
^DD(396.95,.02,0)="ORIGINAL APPT DATE^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.95,.02,1,0)="^.1"
^DD(396.95,.02,1,1,0)="396.95^ARO^MUMPS"
^DD(396.95,.02,1,1,1)="I $P(^DVB(396.95,DA,0),U,6)'="""" S ^DVB(396.95,""ARO"",$P(^DVB(396.95,DA,0),U,6),$E(X,1,30),DA)="""""
^DD(396.95,.02,1,1,2)="I $P(^DVB(396.95,DA,0),U,6)'="""" K ^DVB(396.95,""ARO"",$P(^DVB(396.95,DA,0),U,6),$E(X,1,30),DA)"
^DD(396.95,.02,1,1,"%D",0)="^^4^4^2941018^^^"
^DD(396.95,.02,1,1,"%D",1,0)=" "
^DD(396.95,.02,1,1,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.02,1,1,"%D",3,0)="processing time for a 2507 request.  It is used to find the last original"
^DD(396.95,.02,1,1,"%D",4,0)="appointment date on a 2507 request."
^DD(396.95,.02,1,1,"DT")="2940919"
^DD(396.95,.02,1,2,0)="396.95^ARVO^MUMPS"
^DD(396.95,.02,1,2,1)="I $P(^DVB(396.95,DA,0),U,4)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) S ^DVB(396.95,""ARVO"",A,B,$E(X,1,30),DA)="""""
^DD(396.95,.02,1,2,2)="I $P(^DVB(396.95,DA,0),U,4)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) K ^DVB(396.95,""ARVO"",A,B,$E(X,1,30),DA)"
^DD(396.95,.02,1,2,"%D",0)="^^6^6^2940919^"
^DD(396.95,.02,1,2,"%D",1,0)=" "
^DD(396.95,.02,1,2,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.02,1,2,"%D",3,0)="processing time for a 2507 request.  It is used to find the last original"
^DD(396.95,.02,1,2,"%D",4,0)="appointment date on those appointments that have been cancelled by the"
^DD(396.95,.02,1,2,"%D",5,0)="veteran.  This is to ensure that all appointments rescheduled at the"
^DD(396.95,.02,1,2,"%D",6,0)="request of the veteran are completed within 30 days."
^DD(396.95,.02,1,2,"DT")="2940919"
^DD(396.95,.02,3)="Enter the date of the original appointment for the examination."
^DD(396.95,.02,21,0)="^^1^1^2941018^^^^"
^DD(396.95,.02,21,1,0)="This field contains the original appointment date."
^DD(396.95,.02,23,0)="^^8^8^2941018^^^^"
^DD(396.95,.02,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.02,23,2,0)="contains the date of the original appointment for the examination."
^DD(396.95,.02,23,3,0)="This date will equal the current appointment until the veteran"
^DD(396.95,.02,23,4,0)="reschedules."
^DD(396.95,.02,23,5,0)=" "
^DD(396.95,.02,23,6,0)="This date will be used for the clock stop date in the event of a veteran"
^DD(396.95,.02,23,7,0)="reschedule, if it is the latest original appointment date rescheduled by"
^DD(396.95,.02,23,8,0)="the veteran."
^DD(396.95,.02,"DT")="2941028"
^DD(396.95,.03,0)="CURRENT APPT DATE^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.95,.03,1,0)="^.1"
^DD(396.95,.03,1,1,0)="396.95^AB^MUMPS"
^DD(396.95,.03,1,1,1)="N A S A=$P(^DVB(396.95,DA,0),U,6) I +A>0 S ^DVB(396.95,""AB"",A,$E(X,1,30),DA)="""""
^DD(396.95,.03,1,1,2)="N A S A=$P(^DVB(396.95,DA,0),U,6) I +A>0 K ^DVB(396.95,""AB"",A,$E(X,1,30),DA)"
^DD(396.95,.03,1,1,"%D",0)="^^3^3^2941018^^^^"
^DD(396.95,.03,1,1,"%D",1,0)=" "
^DD(396.95,.03,1,1,"%D",2,0)="This cross reference is used to reference all the current appointment dates"
^DD(396.95,.03,1,1,"%D",3,0)="on a specific 2507 request."
^DD(396.95,.03,1,1,"DT")="2941018"
^DD(396.95,.03,1,2,0)="396.95^CD"
^DD(396.95,.03,1,2,1)="S ^DVB(396.95,""CD"",$E(X,1,30),DA)="""""
^DD(396.95,.03,1,2,2)="K ^DVB(396.95,""CD"",$E(X,1,30),DA)"
^DD(396.95,.03,1,2,"%D",0)="^^3^3^2941018^^"
^DD(396.95,.03,1,2,"%D",1,0)=" "
^DD(396.95,.03,1,2,"%D",2,0)="This Cross Reference is used by the AMIE Appointment Management software to"
^DD(396.95,.03,1,2,"%D",3,0)="find a specific appointment link in the AMIE C&P Exam Tracking File."
^DD(396.95,.03,1,2,"DT")="2940919"
^DD(396.95,.03,1,3,0)="396.95^ARVC^MUMPS"
^DD(396.95,.03,1,3,1)="I $P(^DVB(396.95,DA,0),U,4)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) S ^DVB(396.95,""ARVC"",A,B,$E(X,1,30),DA)="""""
^DD(396.95,.03,1,3,2)="I $P(^DVB(396.95,DA,0),U,4)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,4) K ^DVB(396.95,""ARVC"",A,B,$E(X,1,30),DA)"
^DD(396.95,.03,1,3,"%D",0)="^^6^6^2940919^^^^"
^DD(396.95,.03,1,3,"%D",1,0)=" "
^DD(396.95,.03,1,3,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.03,1,3,"%D",3,0)="processing time for a 2507 request.  It is used to find the last current"
^DD(396.95,.03,1,3,"%D",4,0)="appointment date on those appointments that have been cancelled by the"
^DD(396.95,.03,1,3,"%D",5,0)="veteran.  This is to ensure that all appointments rescheduled at the"
^DD(396.95,.03,1,3,"%D",6,0)="request of the veteran are completed within 30 days."
^DD(396.95,.03,1,3,"DT")="2940919"
^DD(396.95,.03,3)="Enter the date of the current appointment for the examination."
^DD(396.95,.03,21,0)="^^1^1^2941018^^^"
^DD(396.95,.03,21,1,0)="This field contains the current appointment date for the examination."
^DD(396.95,.03,23,0)="^^4^4^2941018^^^"
^DD(396.95,.03,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.03,23,2,0)="contains the date of the current appointment for the examination.  This"
^DD(396.95,.03,23,3,0)="date may be used for the clock start date in the event of a veteran"
^DD(396.95,.03,23,4,0)="reschedule."
^DD(396.95,.03,"DT")="2941028"
^DD(396.95,.04,0)="VETERAN CANCELLATION^RS^0:NO;1:YES;^0;4^Q"
^DD(396.95,.04,1,0)="^.1"
^DD(396.95,.04,1,1,0)="396.95^AVC2^MUMPS"
^DD(396.95,.04,1,1,1)="I $P(^DVB(396.95,DA,0),U,3)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,3) S ^DVB(396.95,""ARVC"",A,$E(X,1,30),B,DA)="""""
^DD(396.95,.04,1,1,2)="I $P(^DVB(396.95,DA,0),U,3)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,3) K ^DVB(396.95,""ARVC"",A,$E(X,1,30),B,DA)"
^DD(396.95,.04,1,1,"%D",0)="^^6^6^2940919^^^"
^DD(396.95,.04,1,1,"%D",1,0)=" "
^DD(396.95,.04,1,1,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.04,1,1,"%D",3,0)="processing time for a 2507 request.  It is used to find the last current"
^DD(396.95,.04,1,1,"%D",4,0)="appointment date on those appointments that have been cancelled by the"
^DD(396.95,.04,1,1,"%D",5,0)="veteran.  This is to ensure that all appointments rescheduled at the"
^DD(396.95,.04,1,1,"%D",6,0)="request of the veteran are completed within 30 days."
^DD(396.95,.04,1,1,"DT")="2940919"
^DD(396.95,.04,1,2,0)="396.95^AVO2^MUMPS"
^DD(396.95,.04,1,2,1)="I $P(^DVB(396.95,DA,0),U,2)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,2) S ^DVB(396.95,""ARVO"",A,$E(X,1,30),B,DA)="""""
^DD(396.95,.04,1,2,2)="I $P(^DVB(396.95,DA,0),U,2)'="""",($P(^DVB(396.95,DA,0),U,6)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,6),B=$P(^DVB(396.95,DA,0),U,2) K ^DVB(396.95,""ARVO"",A,$E(X,1,30),B,DA)"
^DD(396.95,.04,1,2,"%D",0)="^^6^6^2940919^"
^DD(396.95,.04,1,2,"%D",1,0)=" "
^DD(396.95,.04,1,2,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.04,1,2,"%D",3,0)="processing time for a 2507 request.  It is used to find the last original"
^DD(396.95,.04,1,2,"%D",4,0)="appointment date on those appointments that have been cancelled by the"
^DD(396.95,.04,1,2,"%D",5,0)="veteran.  This is to ensure that all appointments rescheduled at the"
^DD(396.95,.04,1,2,"%D",6,0)="request of the veteran are completed within 30 days."
^DD(396.95,.04,1,2,"DT")="2940919"
^DD(396.95,.04,3)="Enter the date of the current appointment for the examination."
^DD(396.95,.04,21,0)="^^2^2^2941018^^^"
^DD(396.95,.04,21,1,0)="This field contains a code indicating if the appointment has been cancelled"
^DD(396.95,.04,21,2,0)="at the request of the veteran."
^DD(396.95,.04,23,0)="^^4^4^2941018^^^"
^DD(396.95,.04,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.04,23,2,0)="contains either of two values for a set of codes (Yes or No).  In the"
^DD(396.95,.04,23,3,0)="event of a veteran reschedule, this field will indicate the occurance so"
^DD(396.95,.04,23,4,0)="the Original Appt Date will not be modified with any subsequent reschedules."
^DD(396.95,.04,"DT")="2941028"
^DD(396.95,.05,0)="VETERAN REQ APPT DATE^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.95,.05,1,0)="^.1^^0"
^DD(396.95,.05,3)="Enter the last appointment date rescheduled for at the veteran's request."
^DD(396.95,.05,21,0)="^^2^2^2941018^^^^"
^DD(396.95,.05,21,1,0)="This field contains the date to which the veteran last requested the"
^DD(396.95,.05,21,2,0)="appointment be rescheduled."
^DD(396.95,.05,23,0)="^^2^2^2941018^^^^"
^DD(396.95,.05,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.05,23,2,0)="contains the last date of the appointment rescheduled to by the veteran."
^DD(396.95,.05,"DT")="2941028"
^DD(396.95,.06,0)="2507 REQUEST^RP396.3'^DVB(396.3,^0;6^Q"
^DD(396.95,.06,1,0)="^.1"
^DD(396.95,.06,1,1,0)="396.95^AB2^MUMPS"
^DD(396.95,.06,1,1,1)="N A S A=$P(^DVB(396.95,DA,0),U,3) I +A>0 S ^DVB(396.95,""AB"",$E(X,1,30),A,DA)="""""
^DD(396.95,.06,1,1,2)="N A S A=$P(^DVB(396.95,DA,0),U,3) I +A>0 K ^DVB(396.95,""AB"",$E(X,1,30),A,DA)"
^DD(396.95,.06,1,1,"%D",0)="^^3^3^2941018^^^^"
^DD(396.95,.06,1,1,"%D",1,0)=" "
^DD(396.95,.06,1,1,"%D",2,0)="This cross reference is used to look up Current Appt Dates on specific "
^DD(396.95,.06,1,1,"%D",3,0)="2507 requests."
^DD(396.95,.06,1,1,"DT")="2941018"
^DD(396.95,.06,1,2,0)="396.95^AR"
^DD(396.95,.06,1,2,1)="S ^DVB(396.95,""AR"",$E(X,1,30),DA)="""""
^DD(396.95,.06,1,2,2)="K ^DVB(396.95,""AR"",$E(X,1,30),DA)"
^DD(396.95,.06,1,2,"%D",0)="^^3^3^2941018^^"
^DD(396.95,.06,1,2,"%D",1,0)=" "
^DD(396.95,.06,1,2,"%D",2,0)="This Cross-Reference is used by DVBCPURG to delete those appointment"
^DD(396.95,.06,1,2,"%D",3,0)="records that are associated with the 2507 request being deleted."
^DD(396.95,.06,1,2,"DT")="2940919"
^DD(396.95,.06,1,3,0)="396.95^ARO1^MUMPS"
^DD(396.95,.06,1,3,1)="I $P(^DVB(396.95,DA,0),U,2)'="""" S ^DVB(396.95,""ARO"",$E(X,1,30),$P(^DVB(396.95,DA,0),U,2),DA)="""""
^DD(396.95,.06,1,3,2)="I $P(^DVB(396.95,DA,0),U,2)'="""" K ^DVB(396.95,""ARO"",$E(X,1,30),$P(^DVB(396.95,DA,0),U,2),DA)"
^DD(396.95,.06,1,3,"%D",0)="^^4^4^2941018^^"
^DD(396.95,.06,1,3,"%D",1,0)=" "
^DD(396.95,.06,1,3,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.06,1,3,"%D",3,0)="processing time for a 2507 request.  It is used to find the last original"
^DD(396.95,.06,1,3,"%D",4,0)="appointment date on a 2507 request."
^DD(396.95,.06,1,3,"DT")="2940919"
^DD(396.95,.06,1,4,0)="396.95^AVC3^MUMPS"
^DD(396.95,.06,1,4,1)="I ($P(^DVB(396.95,DA,0),U,3)'=""""),($P(^DVB(396.95,DA,0),U,4)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,3) S ^DVB(396.95,""ARVC"",$E(X,1,30),A,B,DA)="""""
^DD(396.95,.06,1,4,2)="I ($P(^DVB(396.95,DA,0),U,3)'=""""),($P(^DVB(396.95,DA,0),U,4)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,3) K ^DVB(396.95,""ARVC"",$E(X,1,30),A,B,DA)"
^DD(396.95,.06,1,4,"%D",0)="^^6^6^2940919^^^"
^DD(396.95,.06,1,4,"%D",1,0)=" "
^DD(396.95,.06,1,4,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.06,1,4,"%D",3,0)="processing time for a 2507 request.  It is used to find the last current"
^DD(396.95,.06,1,4,"%D",4,0)="appointment date on those appointments that have been cancelled by the"
^DD(396.95,.06,1,4,"%D",5,0)="veteran.  This is to ensure that all appointments rescheduled at the"
^DD(396.95,.06,1,4,"%D",6,0)="request of the veteran are completed within 30 days."
^DD(396.95,.06,1,4,"DT")="2940919"
^DD(396.95,.06,1,5,0)="396.95^AVO3^MUMPS"
^DD(396.95,.06,1,5,1)="I $P(^DVB(396.95,DA,0),U,2)'="""",($P(^DVB(396.95,DA,0),U,4)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,2) S ^DVB(396.95,""ARVO"",$E(X,1,30),A,B,DA)="""""
^DD(396.95,.06,1,5,2)="I $P(^DVB(396.95,DA,0),U,2)'="""",($P(^DVB(396.95,DA,0),U,4)'="""") N A,B S A=$P(^DVB(396.95,DA,0),U,4),B=$P(^DVB(396.95,DA,0),U,2) K ^DVB(396.95,""ARVO"",$E(X,1,30),A,B,DA)"
^DD(396.95,.06,1,5,"%D",0)="^^6^6^2940919^"
^DD(396.95,.06,1,5,"%D",1,0)=" "
^DD(396.95,.06,1,5,"%D",2,0)="This Cross-Reference is used by the software that calculates the total"
^DD(396.95,.06,1,5,"%D",3,0)="processing time for a 2507 request.  It is used to find the last original"
^DD(396.95,.06,1,5,"%D",4,0)="appointment date on those appointments that have been cancelled by the"
^DD(396.95,.06,1,5,"%D",5,0)="veteran.  This is to ensure that all appointments rescheduled at the"
^DD(396.95,.06,1,5,"%D",6,0)="request of the veteran are completed within 30 days."
^DD(396.95,.06,1,5,"DT")="2940919"
^DD(396.95,.06,3)="Enter the IEN from the 2507 Request this record points to."
^DD(396.95,.06,21,0)="^^2^2^2941018^^^^"
^DD(396.95,.06,21,1,0)="This field contains a pointer to the 2507 request record this appointment"
^DD(396.95,.06,21,2,0)="is scheduled for."
^DD(396.95,.06,23,0)="^^2^2^2941018^^^^"
^DD(396.95,.06,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.06,23,2,0)="contains an IEN from file 396.3."
^DD(396.95,.06,"DT")="2941028"
^DD(396.95,.07,0)="APPOINTMENT STATUS^RS^1:ACTIVE;0:CANCELLED;^0;7^Q"
^DD(396.95,.07,3)="Enter the status of the appointment tracked by this record."
^DD(396.95,.07,21,0)="^^1^1^2941018^^"
^DD(396.95,.07,21,1,0)="This field contains a code indicating the status of the appointment."
^DD(396.95,.07,23,0)="^^2^2^2941018^^"
^DD(396.95,.07,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.07,23,2,0)="contains either of two values for a set of codes (Active or Cancelled)."
^DD(396.95,.07,"DT")="2941028"
^DD(396.95,.08,0)="DATE APPT CANCELLED^D^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(396.95,.08,3)="Enter the date the appointment this record is linked to was cancelled."
^DD(396.95,.08,21,0)="^^2^2^2950126^^^"
^DD(396.95,.08,21,1,0)="This field contains the date the appointment this link is associated with"
^DD(396.95,.08,21,2,0)="was last cancelled."
^DD(396.95,.08,23,0)="^^2^2^2941107^^"
^DD(396.95,.08,23,1,0)="The information in this field should not be modified by the site.  It"
^DD(396.95,.08,23,2,0)="contains the last date the appointment was cancelled."
^DD(396.95,.08,"DT")="2941107"
^DD(396.95,"B","2507 REQUEST",.06)=""
^DD(396.95,"B","APPOINTMENT STATUS",.07)=""
^DD(396.95,"B","CURRENT APPT DATE",.03)=""
^DD(396.95,"B","DATE APPT CANCELLED",.08)=""
^DD(396.95,"B","INITIAL APPT DATE",.01)=""
^DD(396.95,"B","ORIGINAL APPT DATE",.02)=""
^DD(396.95,"B","VETERAN CANCELLATION",.04)=""
^DD(396.95,"B","VETERAN REQ APPT DATE",.05)=""
^DD(396.95,"GL",0,1,.01)=""
^DD(396.95,"GL",0,2,.02)=""
^DD(396.95,"GL",0,3,.03)=""
^DD(396.95,"GL",0,4,.04)=""
^DD(396.95,"GL",0,5,.05)=""
^DD(396.95,"GL",0,6,.06)=""
^DD(396.95,"GL",0,7,.07)=""
^DD(396.95,"GL",0,8,.08)=""
^DD(396.95,"IX",.01)=""
^DD(396.95,"IX",.02)=""
^DD(396.95,"IX",.03)=""
^DD(396.95,"IX",.04)=""
^DD(396.95,"IX",.06)=""
^DD(396.95,"RQ",.01)=""
^DD(396.95,"RQ",.04)=""
^DD(396.95,"RQ",.06)=""
^DD(396.95,"RQ",.07)=""
^DD(399,0)="FIELD^^461^191"
^DD(399,0,"DDA")="N"
^DD(399,0,"DIK")="IBXX"
^DD(399,0,"DIKOLD")="IBXX"
^DD(399,0,"DT")="2940310"
^DD(399,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(399,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(399,0,"ID",.05)="I $P(@(DIC_""Y,0)""),U,5) W ""   "",$S($P(^(0),U,5)>2:""Outpatient"",1:""Inpatient"")"
^DD(399,0,"ID",.07)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGCR(399.3,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(399.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(399,0,"ID",.13)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(399,.13,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,13)_"""":"""",2),$C(59),1)"")"
^DD(399,0,"IX","ABNDT",399,.03)=""
^DD(399,0,"IX","ABT",399,.05)=""
^DD(399,0,"IX","AC",399,.17)=""
^DD(399,0,"IX","AD",399,.07)=""
^DD(399,0,"IX","AF",399,.14)=""
^DD(399,0,"IX","AG",399,460)=""
^DD(399,0,"IX","AH",399,.19)=""
^DD(399,0,"IX","AI",399,.19)=""
^DD(399,0,"IX","AI",399,.25)=""
^DD(399,0,"IX","AI11",399,112)=""
^DD(399,0,"IX","AI2",399,102)=""
^DD(399,0,"IX","AI21",399,113)=""
^DD(399,0,"IX","AI3",399,103)=""
^DD(399,0,"IX","AI31",399,114)=""
^DD(399,0,"IX","AJ",399,.19)=""
^DD(399,0,"IX","ALEX",399,21)=""
^DD(399,0,"IX","AML",399,111)=""
^DD(399,0,"IX","AML1",399,.11)=""
^DD(399,0,"IX","AML2",399,135)=""
^DD(399,0,"IX","AOP",399,.13)=""
^DD(399,0,"IX","AOPV",399.043,.01)=""
^DD(399,0,"IX","AP",399,12)=""
^DD(399,0,"IX","APD",399,1)=""
^DD(399,0,"IX","APD3",399,10)=""
^DD(399,0,"IX","APDS",399,151)=""
^DD(399,0,"IX","APDT",399,.03)=""
^DD(399,0,"IX","APM",399,7)=""
^DD(399,0,"IX","APTF",399,.08)=""
^DD(399,0,"IX","AREV1",399.043,.01)=""
^DD(399,0,"IX","AREV2",399,151)=""
^DD(399,0,"IX","AREV3",399,152)=""
^DD(399,0,"IX","AREV4",399,135)=""
^DD(399,0,"IX","AREV5",399,111)=""
^DD(399,0,"IX","AREV6",399,.11)=""
^DD(399,0,"IX","AREV7",399,.19)=""
^DD(399,0,"IX","ASC1",399.042,.06)=""
^DD(399,0,"IX","ASC11",399.042,.07)=""
^DD(399,0,"IX","ASC2",399.042,.06)=""
^DD(399,0,"IX","ASC21",399.042,.07)=""
^DD(399,0,"IX","ASD",399.0304,.01)=""
^DD(399,0,"IX","ASD1",399.0304,1)=""
^DD(399,0,"IX","AST",399,.13)=""
^DD(399,0,"IX","B",399,.01)=""
^DD(399,0,"IX","C",399,.02)=""
^DD(399,0,"IX","D",399,.03)=""
^DD(399,0,"NM","BILL/CLAIMS")=""
^DD(399,0,"PT",351.5,.09)=""
^DD(399,0,"PT",351.9,.01)=""
^DD(399,0,"PT",356,.11)=""
^DD(399,0,"PT",356.399,.02)=""
^DD(399,0,"PT",361,.01)=""
^DD(399,0,"PT",361.1,.01)=""
^DD(399,0,"PT",361.18,.03)=""
^DD(399,0,"PT",361.4,.01)=""
^DD(399,0,"PT",362.1,.03)=""
^DD(399,0,"PT",362.3,.02)=""
^DD(399,0,"PT",362.4,.02)=""
^DD(399,0,"PT",362.5,.02)=""
^DD(399,0,"PT",364,.01)=""
^DD(399,0,"PT",366.141,.301)=""
^DD(399,0,"PT",399,.15)=""
^DD(399,0,"PT",399,.17)=""
^DD(399,0,"PT",399,29)=""
^DD(399,0,"PT",399,30)=""
^DD(399,0,"PT",399,125)=""
^DD(399,0,"PT",399,126)=""
^DD(399,0,"PT",399,127)=""
^DD(399,0,"VR")="2.0"
^DD(399,.01,0)="BILL NUMBER^RFXI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:X'?.ANP X I $D(X) K:$E(X)="" "" X"
^DD(399,.01,1,0)="^.1"
^DD(399,.01,1,1,0)="399^B"
^DD(399,.01,1,1,1)="S ^DGCR(399,""B"",$E(X,1,30),DA)="""""
^DD(399,.01,1,1,2)="K ^DGCR(399,""B"",$E(X,1,30),DA)"
^DD(399,.01,1,3,0)="^^TRIGGER^399^1"
^DD(399,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,1)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,.01,1,3,1.4)"
^DD(399,.01,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,1)=DIV,DIH=399,DIG=1 D ^DICR"
^DD(399,.01,1,3,2)="Q"
^DD(399,.01,1,3,"CREATE CONDITION")="DATE ENTERED="""""
^DD(399,.01,1,3,"CREATE VALUE")="TODAY"
^DD(399,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,.01,1,3,"DT")="3040614"
^DD(399,.01,1,3,"FIELD")="#1"
^DD(399,.01,1,4,0)="^^TRIGGER^399^2"
^DD(399,.01,1,4,1)="X ^DD(399,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$S(($D(DUZ)#2):DUZ,1:"""") X ^DD(399,.01,1,4,1.4)"
^DD(399,.01,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,2),X=X S X=X="""""
^DD(399,.01,1,4,1.4)="S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,2)=DIV,DIH=399,DIG=2 D ^DICR"
^DD(399,.01,1,4,2)="Q"
^DD(399,.01,1,4,"CREATE CONDITION")="INTERNAL(#2)="""""
^DD(399,.01,1,4,"CREATE VALUE")="S X=$S(($D(DUZ)#2):DUZ,1:"""")"
^DD(399,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(399,.01,1,4,"DT")="3040614"
^DD(399,.01,1,4,"FIELD")="#2"
^DD(399,.01,1,5,0)="^^TRIGGER^399^164"
^DD(399,.01,1,5,1)="X ^DD(399,.01,1,5,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=$S($D(^IBE(350.9,1,1)):$P(^(1),U,6),1:"""") X ^DD(399,.01,1,5,1.4)"
^DD(399,.01,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,14)="""""
^DD(399,.01,1,5,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U"")),DIV=X S $P(^(""U""),U,14)=DIV,DIH=399,DIG=164 D ^DICR"
^DD(399,.01,1,5,2)="Q"
^DD(399,.01,1,5,"%D",0)="^^2^2^3040614^"
^DD(399,.01,1,5,"%D",1,0)="This will automatically store the default BC/BS PROVIDER # from the"
^DD(399,.01,1,5,"%D",2,0)="IB SITE PARAMETERS file into the BC/BS PROVIDER # field for this bill."
^DD(399,.01,1,5,"CREATE CONDITION")="#164="""""
^DD(399,.01,1,5,"CREATE VALUE")="S X=$S($D(^IBE(350.9,1,1)):$P(^(1),U,6),1:"""")"
^DD(399,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(399,.01,1,5,"DT")="3040614"
^DD(399,.01,1,5,"FIELD")="#164"
^DD(399,.01,1,6,0)="^^TRIGGER^399^.13"
^DD(399,.01,1,6,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR"
^DD(399,.01,1,6,2)="Q"
^DD(399,.01,1,6,"CREATE VALUE")="S X=1"
^DD(399,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(399,.01,1,6,"DT")="3040614"
^DD(399,.01,1,6,"FIELD")="#.13"
^DD(399,.01,1,7,0)="^^TRIGGER^399^.19"
^DD(399,.01,1,7,1)="X ^DD(399,.01,1,7,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=3 S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=399,DIG=.19 D ^DICR"
^DD(399,.01,1,7,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($G(^IBE(353,+$P(Y(1),U,19),0)),U)="""""
^DD(399,.01,1,7,2)="Q"
^DD(399,.01,1,7,3)="DO NOT DELETE"
^DD(399,.01,1,7,"%D",0)="^^1^1^3060927^"
^DD(399,.01,1,7,"%D",1,0)="Sets the bill's form type to a 3 (UB) when the bill is created."
^DD(399,.01,1,7,"CREATE CONDITION")="FORM TYPE="""""
^DD(399,.01,1,7,"CREATE VALUE")="S X=3"
^DD(399,.01,1,7,"DELETE VALUE")="NO EFFECT"
^DD(399,.01,1,7,"DT")="3060927"
^DD(399,.01,1,7,"FIELD")="FORM TYPE"
^DD(399,.01,3)="Enter the ""unique"" bill number for this billing episode [6 characters]."
^DD(399,.01,4)=""
^DD(399,.01,21,0)="^^8^8^2940317^^^^"
^DD(399,.01,21,1,0)="This is the ""unique"" bill number assigned to this billing episode."
^DD(399,.01,21,2,0)="A bill numbers consist of 6 characters.  Beginning with MAS "
^DD(399,.01,21,3,0)="version 4.7 bill numbers will be determined by the Accounts Receivable"
^DD(399,.01,21,4,0)="module of IFCAP and returned to MCCR.  This is to provide consistency"
^DD(399,.01,21,5,0)="in bill numbering between the sites and CALM.  The bill numbers"
^DD(399,.01,21,6,0)="will be determined from entries in the AR BILL NUMBER file.  They"
^DD(399,.01,21,7,0)="will be in the format of PAT (Pending Account Transaction) numbers"
^DD(399,.01,21,8,0)="and may be used in Accounts Receivable for PAT numbers."
^DD(399,.01,"DT")="3060927"
^DD(399,.02,0)="PATIENT NAME^RP2'I^DPT(^0;2^Q"
^DD(399,.02,1,0)="^.1^^-1"
^DD(399,.02,1,1,0)="399^C"
^DD(399,.02,1,1,1)="S ^DGCR(399,""C"",$E(X,1,30),DA)="""""
^DD(399,.02,1,1,2)="K ^DGCR(399,""C"",$E(X,1,30),DA)"
^DD(399,.02,3)="Enter the name of the patient for whom this bill is being generated."
^DD(399,.02,21,0)="^^1^1^2880831^"
^DD(399,.02,21,1,0)="This is the name of the patient for whom this bill is being generated."
^DD(399,.02,"DT")="2970212"
^DD(399,.03,0)="EVENT DATE^RDX^^0;3^S %DT=""ETP"",%DT(0)=""-0"" D ^%DT S X=Y K:Y<1 X I $D(X),'$D(IBNWBL) W !?4,""Event date can no longer be edited...cancel and submit a new bill if necessary."" K X"
^DD(399,.03,1,0)="^.1"
^DD(399,.03,1,1,0)="399^D"
^DD(399,.03,1,1,1)="S ^DGCR(399,""D"",$E(X,1,30),DA)="""""
^DD(399,.03,1,1,2)="K ^DGCR(399,""D"",$E(X,1,30),DA)"
^DD(399,.03,1,2,0)="399^APDT^MUMPS"
^DD(399,.03,1,2,1)="S IBN=$P(^DGCR(399,DA,0),""^"",2) S:$D(IBN) ^DGCR(399,""APDT"",IBN,DA,9999999-X)="""" K IBN"
^DD(399,.03,1,2,2)="S IBN=$P(^DGCR(399,DA,0),""^"",2) I $D(IBN) K ^DGCR(399,""APDT"",IBN,DA,9999999-X),IBN"
^DD(399,.03,1,2,"%D",0)="^^1^1^2940214^^"
^DD(399,.03,1,2,"%D",1,0)="Cross-reference of bills by patient and event date."
^DD(399,.03,1,3,0)="399^ABNDT^MUMPS"
^DD(399,.03,1,3,1)="S ^DGCR(399,""ABNDT"",DA,9999999-X)="""""
^DD(399,.03,1,3,2)="K ^DGCR(399,""ABNDT"",DA,9999999-X)"
^DD(399,.03,1,3,"%D",0)="^^1^1^2940214^"
^DD(399,.03,1,3,"%D",1,0)="Cross-reference of bills by inverse event date."
^DD(399,.03,3)="Enter the date of admission for inpatient episodes of care. For outpatient visits, enter the date of the initial outpatient visit."
^DD(399,.03,21,0)="^^3^3^2940214^^"
^DD(399,.03,21,1,0)="This is the date on which care was originated. For inpatient episodes of"
^DD(399,.03,21,2,0)="care, this is the admission date. For outpatient visits, this is the date"
^DD(399,.03,21,3,0)="of the initial outpatient visit."
^DD(399,.03,"DT")="2920220"
^DD(399,.04,0)="LOCATION OF CARE^RS^1:HOSPITAL (INCLUDES CLINIC) - INPT. OR OPT.;2:SKILLED NURSING (NHCU);7:CLINIC (WHEN INDEPENDENT OR SATELLITE);^0;4^Q"
^DD(399,.04,.1)="TYPE OF BILL (1ST DIGIT)"
^DD(399,.04,1,0)="^.1"
^DD(399,.04,1,1,0)="^^TRIGGER^399^.24"
^DD(399,.04,1,1,1)="X ^DD(399,.04,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,24)=DIV,DIH=399,DIG=.24 D ^DICR"
^DD(399,.04,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(399,.24,0)),U,3),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,24)_"":"",2),$C(59))="""""
^DD(399,.04,1,1,2)="Q"
^DD(399,.04,1,1,3)="Do Not Delete"
^DD(399,.04,1,1,"%D",0)="^^2^2^3070116^"
^DD(399,.04,1,1,"%D",1,0)="This trigger forces the same initial value into the UB-04 LOCATION OF"
^DD(399,.04,1,1,"%D",2,0)="CARE field as the system-calculated LOCATION OF CARE field."
^DD(399,.04,1,1,"CREATE CONDITION")="UB-04 LOCATION OF CARE="""""
^DD(399,.04,1,1,"CREATE VALUE")="INTERNAL(LOCATION OF CARE)"
^DD(399,.04,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.04,1,1,"DT")="3070116"
^DD(399,.04,1,1,"FIELD")="UB-04 LOCATION OF CARE"
^DD(399,.04,3)="Enter the code which identifies the type of facility at which care was administered."
^DD(399,.04,21,0)="^^1^1^2931221^^^^"
^DD(399,.04,21,1,0)="This identifies the type of facility at which care was administered."
^DD(399,.04,"DT")="3070116"
^DD(399,.05,0)="BILL CLASSIFICATION^RSX^1:INPATIENT (MEDICARE PART A);2:HUMANITARIAN EMERGENCY (INPT./MEDICARE PART B);3:OUTPATIENT;4:HUMANITARIAN EMERGENCY (OPT./ESRD);^0;5^Q"
^DD(399,.05,.1)="TYPE OF BILL (2ND DIGIT)"
^DD(399,.05,1,0)="^.1"
^DD(399,.05,1,1,0)="399^ABT"
^DD(399,.05,1,1,1)="S ^DGCR(399,""ABT"",$E(X,1,30),DA)="""""
^DD(399,.05,1,1,2)="K ^DGCR(399,""ABT"",$E(X,1,30),DA)"
^DD(399,.05,1,2,0)="^^TRIGGER^399^.25"
^DD(399,.05,1,2,1)="X ^DD(399,.05,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X=DIV S X=$$TRIG05^IBCU4(X,D0) S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,25)=DIV,DIH=399,DIG=.25 D ^DICR"
^DD(399,.05,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($G(^DGCR(399.1,+$P(Y(1),U,25),0)),U)="""""
^DD(399,.05,1,2,2)="Q"
^DD(399,.05,1,2,"CREATE CONDITION")="UB-04 BILL CLASSIFICATION="""""
^DD(399,.05,1,2,"CREATE VALUE")="S X=$$TRIG05^IBCU4(X,D0)"
^DD(399,.05,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,.05,1,2,"DT")="3070116"
^DD(399,.05,1,2,"FIELD")="UB-04 BILL CLASSIFICATION"
^DD(399,.05,3)="Enter the code which designates inpatient or outpatient care."
^DD(399,.05,21,0)="^^1^1^2931220^^^^"
^DD(399,.05,21,1,0)="This code identifies the care being billed for as inpatient or outpatient."
^DD(399,.05,"DT")="3070116"
^DD(399,.06,0)="TIMEFRAME OF BILL^RS^1:ADMIT THRU DISCHARGE;2:INTERIM - FIRST CLAIM;3:INTERIM - CONTINUING CLAIM;4:INTERIM - LAST CLAIM;5:LATE CHARGES ONLY;6:ADJUSTMENT PRIOR CLAIM;7:REPLACEMENT PRIOR CLAIM;8:VOID/CANCEL PRIOR CLAIM;O:NON-PAY/ZERO CLAIM;^0;6^Q"
^DD(399,.06,.1)="TYPE OF BILL (3RD DIGIT)"
^DD(399,.06,1,0)="^.1"
^DD(399,.06,1,1,0)="^^TRIGGER^399^.26"
^DD(399,.06,1,1,1)="X ^DD(399,.06,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,26),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,26)=DIV,DIH=399,DIG=.26 D ^DICR"
^DD(399,.06,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(399,.26,0)),U,3),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,26)_"":"",2),$C(59))="""""
^DD(399,.06,1,1,2)="Q"
^DD(399,.06,1,1,3)="Do not delete"
^DD(399,.06,1,1,"%D",0)="^^2^2^3070116^"
^DD(399,.06,1,1,"%D",1,0)="This trigger forces the same initial value into the UB-04 TIMEFRAME OF"
^DD(399,.06,1,1,"%D",2,0)="BILL field as the system-calculated TIMEFRAME OF BILL field."
^DD(399,.06,1,1,"CREATE CONDITION")="UB-04 TIMEFRAME OF BILL="""""
^DD(399,.06,1,1,"CREATE VALUE")="INTERNAL(TIMEFRAME OF BILL)"
^DD(399,.06,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.06,1,1,"DT")="3070116"
^DD(399,.06,1,1,"FIELD")="UB-04 TIMEFRAME OF BILL"
^DD(399,.06,3)="Enter the code which defines the frequency of this bill."
^DD(399,.06,5,1,0)="399^.26^1"
^DD(399,.06,21,0)="^^1^1^2931220^^^"
^DD(399,.06,21,1,0)="This code defines the frequency of this bill."
^DD(399,.06,"DT")="3070116"
^DD(399,.07,0)="RATE TYPE^R*P399.3'^DGCR(399.3,^0;7^S DIC(""S"")=""I '$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,.07,1,0)="^.1"
^DD(399,.07,1,1,0)="^^TRIGGER^399^156"
^DD(399,.07,1,1,1)="X ^DD(399,.07,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(399,.07,1,1,1.4)"
^DD(399,.07,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.07,1,1,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,5)_"":"",2),$C(59),1)[""YES"" S D0=I(0,0)"
^DD(399,.07,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,6)=DIV,DIH=399,DIG=156 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.07,1,1,2)="X ^DD(399,.07,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(399,.07,1,1,2.4)"
^DD(399,.07,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.07,1,1,79.2) S Y(101)=$S($D(^DGCR(399.3,D0,0)):^(0),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,5)_"":"",2),$C(59),1)'[""YES"" S D0=I(0,0)"
^DD(399,.07,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,6)=DIV,DIH=399,DIG=156 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.07,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^DGCR(399.3,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(399.3,.05,0)):$P(^(0),U,3),1:""""),Y(101)=$S($D(^DGCR(399.3,D0,0)):^(0),1:"""")"
^DD(399,.07,1,1,79.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:""""),D0=$P(Y(1),U,7) S:'$D(^DGCR(399.3,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(399.3,.05,0)):$P(^(0),U,3),1:"""")"
^DD(399,.07,1,1,"CREATE CONDITION")="RATE TYPE:IS THIS A THIRD PARTY BILL?[""YES"""
^DD(399,.07,1,1,"CREATE VALUE")="S X=1"
^DD(399,.07,1,1,"DELETE CONDITION")="RATE TYPE:IS THIS A THIRD PARTY BILL?'[""YES"""
^DD(399,.07,1,1,"DELETE VALUE")="S X=0"
^DD(399,.07,1,1,"DT")="2990921"
^DD(399,.07,1,1,"FIELD")="ASSIGNMENT OF BENEFITS"
^DD(399,.07,1,2,0)="^^TRIGGER^399^.11"
^DD(399,.07,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$P(^DGCR(399.3,$P(^DGCR(399,DA,0),U,7),0),U,7) X ^DD(399,.07,1,2,1.4)"
^DD(399,.07,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=399,DIG=.11 D ^DICR"
^DD(399,.07,1,2,2)="Q"
^DD(399,.07,1,2,"CREATE VALUE")="S X=$P(^DGCR(399.3,$P(^DGCR(399,DA,0),U,7),0),U,7)"
^DD(399,.07,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,.07,1,2,"DT")="3040614"
^DD(399,.07,1,2,"FIELD")="WHO'S RESPONSIBLE"
^DD(399,.07,1,3,0)="399^AD"
^DD(399,.07,1,3,1)="S ^DGCR(399,""AD"",$E(X,1,30),DA)="""""
^DD(399,.07,1,3,2)="K ^DGCR(399,""AD"",$E(X,1,30),DA)"
^DD(399,.07,1,3,"DT")="2910912"
^DD(399,.07,3)="Enter the code which identifies the type of bill."
^DD(399,.07,12)="to screen out Inactive Rate Types"
^DD(399,.07,12.1)="S DIC(""S"")=""I '$P(^(0),U,3)"""
^DD(399,.07,21,0)="^^1^1^2890413^^^"
^DD(399,.07,21,1,0)="This identifies the type of bill."
^DD(399,.07,"DT")="3040614"
^DD(399,.08,0)="PTF ENTRY NUMBER^RP45X^DGPT(^0;8^D PTF^IBCU S DIC(0)=""MN"",DIC=""^DGPT("",DIC(""S"")=""I $D(IBDD1(+Y))"" D ^DIC:X K DIC,IBDD1 S:$D(DIE) DIC=DIE S X=+Y K:Y<0 X"
^DD(399,.08,1,0)="^.1^^-1"
^DD(399,.08,1,1,0)="^^TRIGGER^399^159"
^DD(399,.08,1,1,1)="X ^DD(399,.08,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(399,.08,1,1,1.4)"
^DD(399,.08,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,159,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,9)_"":"",2),$C(59),1)="""""
^DD(399,.08,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,9)=DIV,DIH=399,DIG=159 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.08,1,1,2)="Q"
^DD(399,.08,1,1,"CREATE CONDITION")="#159="""""
^DD(399,.08,1,1,"CREATE VALUE")="S X=2"
^DD(399,.08,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.08,1,1,"FIELD")="#159"
^DD(399,.08,1,2,0)="^^TRIGGER^399^158"
^DD(399,.08,1,2,1)="X ^DD(399,.08,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(399,.08,1,2,1.4)"
^DD(399,.08,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,158,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,8)_"":"",2),$C(59),1)="""""
^DD(399,.08,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,8)=DIV,DIH=399,DIG=158 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.08,1,2,2)="Q"
^DD(399,.08,1,2,"CREATE CONDITION")="#158="""""
^DD(399,.08,1,2,"CREATE VALUE")="S X=2"
^DD(399,.08,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,.08,1,2,"FIELD")="#158"
^DD(399,.08,1,4,0)="^^TRIGGER^399^162"
^DD(399,.08,1,4,1)="X ^DD(399,.08,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV D DIS^IBCU S X=X X ^DD(399,.08,1,4,1.4)"
^DD(399,.08,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$S('$D(^DGCR(399.1,+$P(Y(1),U,12),0)):"""",1:$P(^(0),U,1))="""""
^DD(399,.08,1,4,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,12)=DIV,DIH=399,DIG=162 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.08,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(399,.08,1,4,2.4)"
^DD(399,.08,1,4,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,12)=DIV,DIH=399,DIG=162 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.08,1,4,"%D",0)="^^2^2^2920212^"
^DD(399,.08,1,4,"%D",1,0)="This sets the discharge status to the correct entry based upon the"
^DD(399,.08,1,4,"%D",2,0)="Disposition Field type in the PTF record."
^DD(399,.08,1,4,"CREATE CONDITION")="#162="""""
^DD(399,.08,1,4,"CREATE VALUE")="D DIS^IBCU S X=X"
^DD(399,.08,1,4,"DELETE VALUE")="@"
^DD(399,.08,1,4,"DT")="2920212"
^DD(399,.08,1,4,"FIELD")="#162"
^DD(399,.08,1,5,0)="399^APTF"
^DD(399,.08,1,5,1)="S ^DGCR(399,""APTF"",$E(X,1,30),DA)="""""
^DD(399,.08,1,5,2)="K ^DGCR(399,""APTF"",$E(X,1,30),DA)"
^DD(399,.08,1,5,"%D",0)="^^2^2^2920406^"
^DD(399,.08,1,5,"%D",1,0)="Cross reference of all PTF records with associated bills.  To be used"
^DD(399,.08,1,5,"%D",2,0)="by PTF purge utilities."
^DD(399,.08,1,5,"DT")="2920406"
^DD(399,.08,1,6,0)="^^TRIGGER^399^165"
^DD(399,.08,1,6,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,0),U,5)<3 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=+$$LOS1^IBCU64(DA) X ^DD(399,.08,1,6,1.4)"
^DD(399,.08,1,6,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,15)=DIV,DIH=399,DIG=165 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.08,1,6,2)="Q"
^DD(399,.08,1,6,"%D",0)="^^1^1^2931018^^^"
^DD(399,.08,1,6,"%D",1,0)="Sets Length of Stay based on PTF record and date range of bill.  Inpatients only."
^DD(399,.08,1,6,"CREATE CONDITION")="I $P(^DGCR(399,DA,0),U,5)<3"
^DD(399,.08,1,6,"CREATE VALUE")="S X=+$$LOS1^IBCU64(DA)"
^DD(399,.08,1,6,"DELETE VALUE")="NO EFFECT"
^DD(399,.08,1,6,"DT")="2931018"
^DD(399,.08,1,6,"FIELD")="LENGTH OF STAY"
^DD(399,.08,3)="ENTER A PTF RECORD BELONGING TO THIS PATIENT ONLY!"
^DD(399,.08,12.1)="S DIC(""S"")=""I $D(IBDD1(+Y))"""
^DD(399,.08,21,0)="^^1^1^2880831^^"
^DD(399,.08,21,1,0)="This identifies PTF records belonging to this patient only."
^DD(399,.08,"DT")="2990628"
^DD(399,.09,0)="PROCEDURE CODING METHOD^SX^4:CPT-4;5:HCPCS (HCFA COMMON PROCEDURE CODING SYSTEM);9:ICD-9-CM;^0;9^S:X=4 X=5"
^DD(399,.09,3)="Enter the code which identifies the method for procedure coding on this bill."
^DD(399,.09,5,1,0)="399^.19^1"
^DD(399,.09,21,0)="^.001^2^2^3000712^^^"
^DD(399,.09,21,1,0)="This defines the outpatient procedure coding method utilized on this bill."
^DD(399,.09,21,2,0)="If you select CPT-4, it will be changed to HCPCS automatically."
^DD(399,.09,"DT")="3000712"
^DD(399,.11,0)="WHO'S RESPONSIBLE FOR BILL?^RSI^p:PATIENT;i:INSURER;o:OTHER;^0;11^Q"
^DD(399,.11,1,0)="^.1"
^DD(399,.11,1,1,0)="^^TRIGGER^399^112"
^DD(399,.11,1,1,1)="X ^DD(399,.11,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""M"")):^(""M""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV D EN1^IBCU5 X ^DD(399,.11,1,1,1.4)"
^DD(399,.11,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=(X=""i""&($S('$D(^DGCR(399,DA,""M"")):1,'+^(""M""):1,'$D(^DIC(36,+^(""M""),0)):1,1:0)))"
^DD(399,.11,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""M"")):^(""M""),1:""""),DIV=X S $P(^(""M""),U,12)=DIV,DIH=399,DIG=112 D ^DICR"
^DD(399,.11,1,1,2)="Q"
^DD(399,.11,1,1,"CREATE CONDITION")="S X=(X=""i""&($S('$D(^DGCR(399,DA,""M"")):1,'+^(""M""):1,'$D(^DIC(36,+^(""M""),0)):1,1:0)))"
^DD(399,.11,1,1,"CREATE VALUE")="D EN1^IBCU5"
^DD(399,.11,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.11,1,1,"DT")="2930908"
^DD(399,.11,1,1,"FIELD")="#112"
^DD(399,.11,1,2,0)="399^AML1^MUMPS"
^DD(399,.11,1,2,1)="D EN^IBCU5"
^DD(399,.11,1,2,2)="D DEL^IBCU5"
^DD(399,.11,1,2,"%D",0)="^^1^1^2940214^"
^DD(399,.11,1,2,"%D",1,0)="Loads/deletes the mailing address."
^DD(399,.11,1,3,0)="399^AREV6^MUMPS"
^DD(399,.11,1,3,1)="S DGRVRCAL=1"
^DD(399,.11,1,3,2)="S DGRVRCAL=2"
^DD(399,.11,1,3,"%D",0)="^^2^2^2980225^^"
^DD(399,.11,1,3,"%D",1,0)="Variable causes revenue codes and charges to be re-calculated on return"
^DD(399,.11,1,3,"%D",2,0)="to the enter/edit billing screens."
^DD(399,.11,1,4,0)="^^TRIGGER^399^.21"
^DD(399,.11,1,4,1)="X ^DD(399,.11,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,21),X=X S DIU=X K Y X ^DD(399,.11,1,4,1.1) X ^DD(399,.11,1,4,1.4)"
^DD(399,.11,1,4,1.1)="S X=DIV S X=DIV,X=X S X=X=""i"",Y(1)=X S X=""P"",Y(2)=X,Y(3)=X S X=DIV,X=X S X=X=""p"",Y(4)=X S X=""A"",Y(5)=X S X=1,Y(6)=X S X="""",X=$S(Y(1):Y(2),Y(4):Y(5),Y(6):X)"
^DD(399,.11,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,.21,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,21)_"":"",2),$C(59),1)="""""
^DD(399,.11,1,4,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,21)=DIV,DIH=399,DIG=.21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.11,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($P(^DGCR(399,DA,0),U,11)'=""i"":1,""PST""'[$P(^DGCR(399,DA,0),U,21):1,1:0) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="""" X ^DD(399,.11,1,4,2.4)"
^DD(399,.11,1,4,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,21)=DIV,DIH=399,DIG=.21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.11,1,4,"%D",0)="^^4^4^2970924^^"
^DD(399,.11,1,4,"%D",1,0)="If the Payer Sequence has not been set then set it based on Who's"
^DD(399,.11,1,4,"%D",2,0)="Responsible.  When Who's responsible is changed/deleted then update the"
^DD(399,.11,1,4,"%D",3,0)="Payer Sequence if insurer is not reponsible or the payer sequence is not"
^DD(399,.11,1,4,"%D",4,0)="a valid sequence for an insurer."
^DD(399,.11,1,4,"CREATE CONDITION")="CURRENT BILL PAYER SEQUENCE="""""
^DD(399,.11,1,4,"CREATE VALUE")="$S(INTERNAL(WHO'S RESPONSIBLE)=""i"":""P"",INTERNAL(WHO'S RESPONSIBLE)=""p"":""A"",1:"""")"
^DD(399,.11,1,4,"DELETE CONDITION")="S X=$S($P(^DGCR(399,DA,0),U,11)'=""i"":1,""PST""'[$P(^DGCR(399,DA,0),U,21):1,1:0)"
^DD(399,.11,1,4,"DELETE VALUE")="@"
^DD(399,.11,1,4,"DT")="2970924"
^DD(399,.11,1,4,"FIELD")="CURRENT BILL PAYER SEQUENCE"
^DD(399,.11,3)="Enter the code which identifies the party responsible for payment of this bill."
^DD(399,.11,5,1,0)="399^.07^2"
^DD(399,.11,21,0)="^^1^1^2880928^"
^DD(399,.11,21,1,0)="This identifies the party responsible for payment of this bill."
^DD(399,.11,"DT")="2970924"
^DD(399,.13,0)="STATUS^RS^0:CLOSED;1:ENTERED/NOT REVIEWED;2:REQUEST MRA;3:AUTHORIZED;4:PRNT/TX;5:**NOT USED**;7:CANCELLED;^0;13^Q"
^DD(399,.13,1,0)="^.1"
^DD(399,.13,1,1,0)="^^TRIGGER^399^.14"
^DD(399,.13,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,.13,1,1,1.4)"
^DD(399,.13,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=399,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.13,1,1,2)="Q"
^DD(399,.13,1,1,"CREATE VALUE")="TODAY"
^DD(399,.13,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.13,1,1,"DT")="3000124"
^DD(399,.13,1,1,"FIELD")="#.14"
^DD(399,.13,1,2,0)="399^AOP^MUMPS"
^DD(399,.13,1,2,1)="I X>0,X<3,$P(^DGCR(399,DA,0),U,2) S ^DGCR(399,""AOP"",$P(^(0),U,2),DA)="""""
^DD(399,.13,1,2,2)="I $P(^DGCR(399,DA,0),U,2) K ^DGCR(399,""AOP"",$P(^(0),U,2),DA)"
^DD(399,.13,1,3,0)="399^AST^MUMPS"
^DD(399,.13,1,3,1)="I +X=3 S ^DGCR(399,""AST"",+X,DA)="""""
^DD(399,.13,1,3,2)="K ^DGCR(399,""AST"",+X,DA)"
^DD(399,.13,1,3,"%D",0)="^^1^1^2940214^^^^"
^DD(399,.13,1,3,"%D",1,0)="Cross reference of all Authorized bills."
^DD(399,.13,1,3,"DT")="2940127"
^DD(399,.13,1,4,0)="^^TRIGGER^399^24"
^DD(399,.13,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=2 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""1N"" X ^DD(399,.13,1,4,1.4)"
^DD(399,.13,1,4,1.4)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR"
^DD(399,.13,1,4,2)="X ^DD(399,.13,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""0"" S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR"
^DD(399,.13,1,4,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.13,1,4,79.2) S Y=X,X=Y(2),X=X!Y,Y(4)=X,Y(5)=X S X=$P(Y(6),U,5),X=X S X=X,Y=X,X=Y(4),X=X&Y"
^DD(399,.13,1,4,3)="DO NOT DELETE"
^DD(399,.13,1,4,79.2)="S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:""""),Y(6)=$S($D(^(""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,13),X=X S X=X=1,Y(2)=X,Y(3)=X S X=$P(Y(1),U,13),X=X S X=X=7"
^DD(399,.13,1,4,"%D",0)="^^6^6^3000530^"
^DD(399,.13,1,4,"%D",1,0)="This trigger forces the CLAIM MRA STATUS field to be set to '1N' (MRA"
^DD(399,.13,1,4,"%D",2,0)="NEEDED/NOT YET REQUESTED) whenever the STATUS of the claim is set to 2"
^DD(399,.13,1,4,"%D",3,0)="(REQUEST MRA)."
^DD(399,.13,1,4,"%D",4,0)="If the STATUS of the claim is changed to 1 (ENTERED/NOT REVIEWED) or 7"
^DD(399,.13,1,4,"%D",5,0)="(CANCELLED) and the MRA CLAIM STATUS is currently '1N' or '1R',the MRA"
^DD(399,.13,1,4,"%D",6,0)="CLAIM STATUS field is set to 0 (NO MRA NEEDED)."
^DD(399,.13,1,4,"CREATE CONDITION")="INTERNAL(STATUS)=2"
^DD(399,.13,1,4,"CREATE VALUE")="""1N"""
^DD(399,.13,1,4,"DELETE CONDITION")="(INTERNAL(STATUS)=1!(INTERNAL(STATUS)=7))&(INTERNAL(CLAIM MRA STATUS))"
^DD(399,.13,1,4,"DELETE VALUE")="""0"""
^DD(399,.13,1,4,"DT")="3000530"
^DD(399,.13,1,4,"FIELD")="CLAIM MRA STATUS"
^DD(399,.13,3)="Enter the code which defines whether or not billing record is editable."
^DD(399,.13,5,1,0)="399^.01^6"
^DD(399,.13,5,2,0)="399^14^1"
^DD(399,.13,5,3,0)="399^17^1"
^DD(399,.13,5,4,0)="399^25^1"
^DD(399,.13,5,5,0)="399^9^3"
^DD(399,.13,21,0)="^^6^6^3000322^^^^"
^DD(399,.13,21,1,0)="This identifies the status of this billing record. That is, whether or not"
^DD(399,.13,21,2,0)="this record is open for editing.  Current valid statuses are:"
^DD(399,.13,21,3,0)="1=ENTERED/NOT REVIEWED, 2=REQUEST MRA, 3=AUTHORIZED, 4=PRNT/TX,"
^DD(399,.13,21,4,0)="7=CANCELLED, 0=CLOSED"
^DD(399,.13,21,5,0)="Note that 5:TRANSMITTED is not currently valid"
^DD(399,.13,21,6,0)="Only ENTERED/NOT REVIEWED bills are editable."
^DD(399,.13,"DT")="3000530"
^DD(399,.14,0)="STATUS DATE^RD^^0;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(399,.14,1,0)="^.1"
^DD(399,.14,1,1,0)="399^AF^MUMPS"
^DD(399,.14,1,1,1)="D BC^IBJVDEQ"
^DD(399,.14,1,1,2)="Q"
^DD(399,.14,1,1,"%D",0)="^.101^2^2^3030826^^^"
^DD(399,.14,1,1,"%D",1,0)="This cross-reference sets the record into the nightly Data"
^DD(399,.14,1,1,"%D",2,0)="Extract queue if it meets the criteria."
^DD(399,.14,1,1,"DT")="3030826"
^DD(399,.14,3)="Enter the date of last status change."
^DD(399,.14,5,1,0)="399^.13^1"
^DD(399,.14,21,0)="^^1^1^2880831^"
^DD(399,.14,21,1,0)="This is the date of the last status change."
^DD(399,.14,"DT")="3030826"
^DD(399,.15,0)="BILL COPIED FROM^*P399'^DGCR(399,^0;15^S DIC(""S"")=""I $P(^(0),U,13)=7"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,.15,3)="Enter the bill that this bill was copied from."
^DD(399,.15,12)="BILL MUST BE CANCELLED TO COPY"
^DD(399,.15,12.1)="S DIC(""S"")=""I $P(^(0),U,13)=7"""
^DD(399,.15,21,0)="^^3^3^2920211^^"
^DD(399,.15,21,1,0)="If this bill was copied from another bill, then this will be the bill"
^DD(399,.15,21,2,0)="it was copied from.  This field is automatically completed by the"
^DD(399,.15,21,3,0)="Copy and Cancel option."
^DD(399,.15,"DT")="2900126"
^DD(399,.16,0)="NON-VA DISCHARGE DATE^D^^0;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,.16,3)="Enter the discharge date for this admission.  It must be since the admission    date and not in the future."
^DD(399,.16,21,0)="^^3^3^2900420^"
^DD(399,.16,21,1,0)="This is the discharge date for NON-VA Admissions when no associated PTF"
^DD(399,.16,21,2,0)="record exists.  The date entered must be after the admission date and"
^DD(399,.16,21,3,0)="not into the future."
^DD(399,.16,"DT")="2900420"
^DD(399,.17,0)="PRIMARY BILL^P399'^DGCR(399,^0;17^Q"
^DD(399,.17,1,0)="^.1"
^DD(399,.17,1,1,0)="399^AC"
^DD(399,.17,1,1,1)="S ^DGCR(399,""AC"",$E(X,1,30),DA)="""""
^DD(399,.17,1,1,2)="K ^DGCR(399,""AC"",$E(X,1,30),DA)"
^DD(399,.17,21,0)="^^3^3^2920211^^"
^DD(399,.17,21,1,0)="This is the initial bill that this episode is associated with."
^DD(399,.17,21,2,0)="If an episode of care has more than one bill but multiple event dates, then"
^DD(399,.17,21,3,0)="this field can be used."
^DD(399,.17,"DT")="2900524"
^DD(399,.18,0)="SC AT TIME OF CARE^FXO^^0;18^I $D(X) D YN^IBCU"
^DD(399,.18,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,.18,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,.18,3)="Was this patient Service Connected for any condition during the timeframe of this bill?  Answer 'Yes' or 'No'."
^DD(399,.18,21,0)="^^8^8^2920610^^^^"
^DD(399,.18,21,1,0)="Was this patient Service Connected for any condition at the time the"
^DD(399,.18,21,2,0)="care in the bill was rendered.  This field is used to correctly assign"
^DD(399,.18,21,3,0)="Accounts Receivable AMIS segments to this bill if it is a Reimbursable"
^DD(399,.18,21,4,0)="Insurance bill.  Answer 'Yes' or 'No'."
^DD(399,.18,21,5,0)=" "
^DD(399,.18,21,6,0)="The default for this field is the current value in the SC PATIENT field"
^DD(399,.18,21,7,0)="of the patient file.  If this field is left blank, the default value"
^DD(399,.18,21,8,0)="will be used to determine the AMIS segment."
^DD(399,.18,"DT")="2910913"
^DD(399,.19,0)="FORM TYPE^R*P353'^IBE(353,^0;19^S DIC(""S"")=""N Z S Z=$G(^IBE(353,Y,2)) I $P(Z,U,2)=""""P"""",$P(Z,U,4)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(399,.19,1,0)="^.1"
^DD(399,.19,1,1,0)="^^TRIGGER^399^.09"
^DD(399,.19,1,1,1)="X ^DD(399,.19,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=5 S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=399,DIG=.09 D ^DICR"
^DD(399,.19,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,.19,1,1,69.2) S X=$P($P(Y(3),$C(59)_$P(Y(2),U,9)_"":"",2),$C(59))="""",Y=X,X=Y(1),X=X&Y"
^DD(399,.19,1,1,2)="Q"
^DD(399,.19,1,1,69.2)="S Y(3)=$C(59)_$P($G(^DD(399,.09,0)),U,3),Y(2)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($G(^IBE(353,+Y(0),0)),U)=""CMS-1500"",Y(1)=$G(X)"
^DD(399,.19,1,1,"%D",0)="^^2^2^3060928^"
^DD(399,.19,1,1,"%D",1,0)="If the CMS-1500 claim form is used and no coding method defined, then set"
^DD(399,.19,1,1,"%D",2,0)="coding method to HCPCS"
^DD(399,.19,1,1,"CREATE CONDITION")="FORM TYPE=""CMS-1500""&(PROCEDURE CODING METHOD="""")"
^DD(399,.19,1,1,"CREATE VALUE")="S X=5"
^DD(399,.19,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.19,1,1,"DT")="3060928"
^DD(399,.19,1,1,"FIELD")="PROCEDURE CODING METHOD"
^DD(399,.19,1,2,0)="399^AREV7^MUMPS"
^DD(399,.19,1,2,1)="S DGRVRCAL=1"
^DD(399,.19,1,2,2)="S DGRVRCAL=2"
^DD(399,.19,1,2,3)="DO NOT DELETE"
^DD(399,.19,1,2,"%D",0)="^^2^2^2940214^"
^DD(399,.19,1,2,"%D",1,0)="Variable causes revenue codes and chrges to be re-calculated on return"
^DD(399,.19,1,2,"%D",2,0)="to the enter/edit billing screens."
^DD(399,.19,1,2,"DT")="2920428"
^DD(399,.19,1,3,0)="399^AH^MUMPS"
^DD(399,.19,1,3,1)="D ALLID^IBCEP3(DA,.19,1)"
^DD(399,.19,1,3,2)="D ALLID^IBCEP3(DA,.19,2)"
^DD(399,.19,1,3,3)="Do not delete"
^DD(399,.19,1,3,"%D",0)="^.101^3^3^3000926^^^"
^DD(399,.19,1,3,"%D",1,0)="This cross reference determines if the change of form type requires the"
^DD(399,.19,1,3,"%D",2,0)="provider id's to be updated or deleted.  If it does, the update/deletion"
^DD(399,.19,1,3,"%D",3,0)="is performed for the claim."
^DD(399,.19,1,3,"DT")="3000926"
^DD(399,.19,1,4,0)="399^AI^MUMPS"
^DD(399,.19,1,4,1)="D BILLPNS^IBCU(DA)"
^DD(399,.19,1,4,2)="Q"
^DD(399,.19,1,4,3)="Do Not Delete"
^DD(399,.19,1,4,"%D",0)="^.101^2^2^3050822^^"
^DD(399,.19,1,4,"%D",1,0)="This cross reference updates all Bill Provider #s based on the Form Type,  "
^DD(399,.19,1,4,"%D",2,0)="using the Insurance Companies Hospital or Professional Provider Number.  "
^DD(399,.19,1,4,"DT")="3020820"
^DD(399,.19,1,5,0)="399^AJ^MUMPS"
^DD(399,.19,1,5,1)="D ATTREND^IBCU1(DA,"""","""")"
^DD(399,.19,1,5,2)="D ATTREND^IBCU1(DA,"""","""")"
^DD(399,.19,1,5,3)="Do Not Delete"
^DD(399,.19,1,5,"%D",0)="^^14^14^3060509^"
^DD(399,.19,1,5,"%D",1,0)="This Mumps cross reference is used to potentially trigger 6 other fields "
^DD(399,.19,1,5,"%D",2,0)="in file 399.  The fields are triggered when the insurance companies in the"
^DD(399,.19,1,5,"%D",3,0)="claim have flags set to use the attending or rendering physicians as the "
^DD(399,.19,1,5,"%D",4,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06 "
^DD(399,.19,1,5,"%D",5,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID "
^DD(399,.19,1,5,"%D",6,0)="INST)."
^DD(399,.19,1,5,"%D",7,0)=" "
^DD(399,.19,1,5,"%D",8,0)="The following fields are the ones being ""triggered"":"
^DD(399,.19,1,5,"%D",9,0)="#122 PRIMARY PROVIDER #"
^DD(399,.19,1,5,"%D",10,0)="#123 SECONDARY PROVIDER #"
^DD(399,.19,1,5,"%D",11,0)="#124 TERTIARY PROVIDER #"
^DD(399,.19,1,5,"%D",12,0)="#128 PRIMARY ID QUALIFER"
^DD(399,.19,1,5,"%D",13,0)="#129 SECONDARY ID QUALIFIER"
^DD(399,.19,1,5,"%D",14,0)="#130 TERTIARY ID QUALIFIER "
^DD(399,.19,1,5,"DT")="3060508"
^DD(399,.19,3)="Enter the type of claim form to be used."
^DD(399,.19,5,1,0)="399^.01^7"
^DD(399,.19,5,2,0)="399^.27^1"
^DD(399,.19,5,3,0)="399^135^2"
^DD(399,.19,12)="Must be a printable national form type."
^DD(399,.19,12.1)="S DIC(""S"")=""N Z S Z=$G(^IBE(353,Y,2)) I $P(Z,U,2)=""""P"""",$P(Z,U,4)"""
^DD(399,.19,21,0)="^^1^1^3061003^"
^DD(399,.19,21,1,0)="Select the form type on which to print the bill."
^DD(399,.19,23,0)="^.001^1^1^3061003^^^"
^DD(399,.19,23,1,0)="Critical that this field either be a 2 or a 3."
^DD(399,.19,"DT")="3061003"
^DD(399,.2,0)="AUTO^S^0:NO;1:YES;^0;20^Q"
^DD(399,.2,1,0)="^.1"
^DD(399,.2,1,1,0)="^^TRIGGER^399^2"
^DD(399,.2,1,1,1)="X ^DD(399,.2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=.5 X ^DD(399,.2,1,1,1.4)"
^DD(399,.2,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(399,.2,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""YES"""
^DD(399,.2,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""S"")):^(""S""),1:""""),DIV=X S $P(^(""S""),U,2)=DIV,DIH=399,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.2,1,1,2)="Q"
^DD(399,.2,1,1,"CREATE CONDITION")="AUTO=""YES"""
^DD(399,.2,1,1,"CREATE VALUE")="S X=.5"
^DD(399,.2,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.2,1,1,"FIELD")="ENTERED/EDITED BY"
^DD(399,.2,3)="True if this bill was created by the auto biller."
^DD(399,.2,21,0)="^^2^2^2940125^"
^DD(399,.2,21,1,0)="True if this bill was created by the auto biller.  Should only be set"
^DD(399,.2,21,2,0)="by the auto biller software, no manual entry."
^DD(399,.2,"DT")="2950824"
^DD(399,.21,0)="CURRENT BILL PAYER SEQUENCE^*S^P:PRIMARY INSURANCE;S:SECONDARY INSURANCE;T:TERTIARY INSURANCE;A:PATIENT;^0;21^Q"
^DD(399,.21,1,0)="^.1"
^DD(399,.21,1,1,0)="^^TRIGGER^399^136"
^DD(399,.21,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$BPP^IBCNS2(DA) X ^DD(399,.21,1,1,1.4)"
^DD(399,.21,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.21,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(399,.21,1,1,2.4)"
^DD(399,.21,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.21,1,1,"%D",0)="^^2^2^2970821^"
^DD(399,.21,1,1,"%D",1,0)="Set the Bill Payer Policy to the Payer Policy corresponding to the Payer"
^DD(399,.21,1,1,"%D",2,0)="Sequence."
^DD(399,.21,1,1,"CREATE VALUE")="S X=$$BPP^IBCNS2(DA)"
^DD(399,.21,1,1,"DELETE VALUE")="@"
^DD(399,.21,1,1,"DT")="2970821"
^DD(399,.21,1,1,"FIELD")="BILL PAYER POLICY"
^DD(399,.21,1,2,0)="^^TRIGGER^399^24"
^DD(399,.21,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=('$$REQMRA^IBEFUNC(DA)&$$NEEDMRA^IBEFUNC(DA)) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(399,.21,1,2,1.4)"
^DD(399,.21,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR"
^DD(399,.21,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=('$$REQMRA^IBEFUNC(DA)&$$NEEDMRA^IBEFUNC(DA)) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399,.21,1,2,2.4)"
^DD(399,.21,1,2,2.4)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR"
^DD(399,.21,1,2,"%D",0)="^^4^4^3041108^"
^DD(399,.21,1,2,"%D",1,0)="When the payer sequence changes, this trigger will detect if an MRA is no"
^DD(399,.21,1,2,"%D",2,0)="longer needed, but the CLAIM MRA STATUS field still indicates than an MRA"
^DD(399,.21,1,2,"%D",3,0)="is still needed.  In this case, the CLAIM MRA STATUS is updated to be 0 -"
^DD(399,.21,1,2,"%D",4,0)="NO MRA NEEDED."
^DD(399,.21,1,2,"CREATE CONDITION")="('$$REQMRA^IBEFUNC(DA)&$$NEEDMRA^IBEFUNC(DA))"
^DD(399,.21,1,2,"CREATE VALUE")="S X=0"
^DD(399,.21,1,2,"DELETE CONDITION")="('$$REQMRA^IBEFUNC(DA)&$$NEEDMRA^IBEFUNC(DA))"
^DD(399,.21,1,2,"DELETE VALUE")="@"
^DD(399,.21,1,2,"DT")="3041108"
^DD(399,.21,1,2,"FIELD")="CLAIM MRA STATUS"
^DD(399,.21,1,3,0)="^^TRIGGER^399^27"
^DD(399,.21,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($$WNRBILL^IBEFUNC(DA,X):1,1:0) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(399,.21,1,3,1.4)"
^DD(399,.21,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,8)=DIV,DIH=399,DIG=27 D ^DICR"
^DD(399,.21,1,3,2)="Q"
^DD(399,.21,1,3,3)="Do not delete"
^DD(399,.21,1,3,"%D",0)="^^3^3^3041119^"
^DD(399,.21,1,3,"%D",1,0)="If the insurance for the payer sequence is MEDICARE WNR, the"
^DD(399,.21,1,3,"%D",2,0)="data in field FORCE CLAIM TO PRINT must be deleted as it is not valid"
^DD(399,.21,1,3,"%D",3,0)="to print an MRA request."
^DD(399,.21,1,3,"CREATE CONDITION")="S X=$S($$WNRBILL^IBEFUNC(DA,X):1,1:0)"
^DD(399,.21,1,3,"CREATE VALUE")="@"
^DD(399,.21,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,.21,1,3,"DT")="3041119"
^DD(399,.21,1,3,"FIELD")="FORCE CLAIM TO PRINT"
^DD(399,.21,3)="Enter the entity currently responsible for paying this bill."
^DD(399,.21,5,1,0)="399^.11^4"
^DD(399,.21,12)="Primary/Secondary/Tertiary must have corresponding insurance co on bill."
^DD(399,.21,12.1)="S DIC(""S"")=""I $S(X=""""P"""":$D(^DGCR(399,DA,""""I1"""")),X=""""S"""":$D(^DGCR(399,DA,""""I2"""")),X=""""T"""":$D(^DGCR(399,DA,""""I3"""")),1:1)"""
^DD(399,.21,21,0)="^^1^1^2960129^^^"
^DD(399,.21,21,1,0)="This field determines the entity currently responsible for paying this bill."
^DD(399,.21,"DT")="3041119"
^DD(399,.22,0)="DEFAULT DIVISION^P40.8'^DG(40.8,^0;22^Q"
^DD(399,.22,1,0)="^.1"
^DD(399,.22,1,1,0)="^^TRIGGER^399^122"
^DD(399,.22,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,"""",1) X ^DD(399,.22,1,1,1.4)"
^DD(399,.22,1,1,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,2)=DIV,DIH=399,DIG=122 D ^DICR"
^DD(399,.22,1,1,2)="Q"
^DD(399,.22,1,1,"CREATE VALUE")="S X=$$PRVNUM^IBCU(DA,"""",1)"
^DD(399,.22,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.22,1,1,"FIELD")="PRIMARY PROVIDER #"
^DD(399,.22,1,2,0)="^^TRIGGER^399^123"
^DD(399,.22,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,"""",2) X ^DD(399,.22,1,2,1.4)"
^DD(399,.22,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,3)=DIV,DIH=399,DIG=123 D ^DICR"
^DD(399,.22,1,2,2)="Q"
^DD(399,.22,1,2,"CREATE VALUE")="S X=$$PRVNUM^IBCU(DA,"""",2)"
^DD(399,.22,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,.22,1,2,"DT")="3040611"
^DD(399,.22,1,2,"FIELD")="SECONDARY PROVIDER #"
^DD(399,.22,1,3,0)="^^TRIGGER^399^124"
^DD(399,.22,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,"""",3) X ^DD(399,.22,1,3,1.4)"
^DD(399,.22,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,4)=DIV,DIH=399,DIG=124 D ^DICR"
^DD(399,.22,1,3,2)="Q"
^DD(399,.22,1,3,"CREATE VALUE")="S X=$$PRVNUM^IBCU(DA,"""",3)"
^DD(399,.22,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,.22,1,3,"DT")="3040611"
^DD(399,.22,1,3,"FIELD")="TERTIARY PROVIDER #"
^DD(399,.22,1,4,0)="^^TRIGGER^399^128"
^DD(399,.22,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,"""",1) X ^DD(399,.22,1,4,1.4)"
^DD(399,.22,1,4,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,10)=DIV,DIH=399,DIG=128 D ^DICR"
^DD(399,.22,1,4,2)="Q"
^DD(399,.22,1,4,"CREATE VALUE")="S X=$$PRVQUAL^IBCU(DA,"""",1)"
^DD(399,.22,1,4,"DELETE VALUE")="NO EFFECT"
^DD(399,.22,1,4,"DT")="3060219"
^DD(399,.22,1,4,"FIELD")="PRIMARY ID QUALIFIER"
^DD(399,.22,1,5,0)="^^TRIGGER^399^129"
^DD(399,.22,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,"""",2) X ^DD(399,.22,1,5,1.4)"
^DD(399,.22,1,5,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,11)=DIV,DIH=399,DIG=129 D ^DICR"
^DD(399,.22,1,5,2)="Q"
^DD(399,.22,1,5,"CREATE VALUE")="S X=$$PRVQUAL^IBCU(DA,"""",2)"
^DD(399,.22,1,5,"DELETE VALUE")="NO EFFECT"
^DD(399,.22,1,5,"DT")="3060219"
^DD(399,.22,1,5,"FIELD")="SECONDARY ID QUALIFIER"
^DD(399,.22,1,6,0)="^^TRIGGER^399^130"
^DD(399,.22,1,6,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,"""",3) X ^DD(399,.22,1,6,1.4)"
^DD(399,.22,1,6,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,12)=DIV,DIH=399,DIG=130 D ^DICR"
^DD(399,.22,1,6,2)="Q"
^DD(399,.22,1,6,"CREATE VALUE")="S X=$$PRVQUAL^IBCU(DA,"""",3)"
^DD(399,.22,1,6,"DELETE VALUE")="NO EFFECT"
^DD(399,.22,1,6,"DT")="3060219"
^DD(399,.22,1,6,"FIELD")="TERTIARY ID QUALIFIER"
^DD(399,.22,1,7,0)="^^TRIGGER^399^235"
^DD(399,.22,1,7,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$CLIAREQ^IBCEP8A(DA) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$CLIA^IBCEP8A(DA) X ^DD(399,.22,1,7,1.4)"
^DD(399,.22,1,7,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,13)=DIV,DIH=399,DIG=235 D ^DICR"
^DD(399,.22,1,7,2)="Q"
^DD(399,.22,1,7,"%D",0)="^^3^3^3060614^"
^DD(399,.22,1,7,"%D",1,0)="This trigger will set the LAB CLIA NUMBER field to the default CLIA# for "
^DD(399,.22,1,7,"%D",2,0)="the division when the division field is entered or changed.  The trigger "
^DD(399,.22,1,7,"%D",3,0)="condition ensures that lab services are on the claim."
^DD(399,.22,1,7,"CREATE CONDITION")="S X=$$CLIAREQ^IBCEP8A(DA)"
^DD(399,.22,1,7,"CREATE VALUE")="S X=$$CLIA^IBCEP8A(DA)"
^DD(399,.22,1,7,"DELETE VALUE")="NO EFFECT"
^DD(399,.22,1,7,"DT")="3060614"
^DD(399,.22,1,7,"FIELD")="LAB CLIA NUMBER"
^DD(399,.22,1,8,0)="^^TRIGGER^399^243"
^DD(399,.22,1,8,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U3"")):^(""U3""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P($$TAXDEF^IBCEP81(DIV(0)),U,2) X ^DD(399,.22,1,8,1.4)"
^DD(399,.22,1,8,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U3"")),DIV=X S $P(^(""U3""),U,2)=DIV,DIH=399,DIG=243 D ^DICR"
^DD(399,.22,1,8,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U3"")):^(""U3""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^DGCR(399,DIV(0),""U3"")),DIV=X S $P(^(""U3""),U,2)=DIV,DIH=399,DIG=243 D ^DICR"
^DD(399,.22,1,8,3)="Do not delete"
^DD(399,.22,1,8,"%D",0)="^^2^2^3060614^"
^DD(399,.22,1,8,"%D",1,0)="This xref updates the DEFAULT DIVISION TAXONOMY field with the Default "
^DD(399,.22,1,8,"%D",2,0)="Division's default taxonomy."
^DD(399,.22,1,8,"CREATE VALUE")="S X=$P($$TAXDEF^IBCEP81(DIV(0)),U,2)"
^DD(399,.22,1,8,"DELETE VALUE")="@"
^DD(399,.22,1,8,"DT")="3060614"
^DD(399,.22,1,8,"FIELD")="#243"
^DD(399,.22,3)="Enter the default division that should be used in charge calculations."
^DD(399,.22,21,0)="^^2^2^2960724^"
^DD(399,.22,21,1,0)="For rates specific to a division, this division will be used to"
^DD(399,.22,21,2,0)="determine the charges for all CPT's that do not have a division specified."
^DD(399,.22,"DT")="3060614"
^DD(399,.24,0)="UB-04 LOCATION OF CARE^RS^1:HOSPITAL - INPT OR OPT (INCLUDES CLINICS);2:SKILLED NURSING (NHCU);3:HOME HEALTH AGENCY;7:CLINIC (ONLY INDEPENDENT/SATELITE);8:SPEC. FACILITY HOSP/AMB SURG CTR;^0;24^Q"
^DD(399,.24,1,0)="^.1^^0"
^DD(399,.24,3)="Enter the appropriate UB-04 location of care"
^DD(399,.24,5,1,0)="399^.04^1"
^DD(399,.24,21,0)="^^2^2^3070116^"
^DD(399,.24,21,1,0)="This field contains the code representing the location of care for a bill."
^DD(399,.24,21,2,0)="This is the first digit of the 3-digit UB-04 type of bill."
^DD(399,.24,"DT")="3070116"
^DD(399,.25,0)="UB-04 BILL CLASSIFICATION^R*P399.1'^DGCR(399.1,^0;25^S DIC(""S"")=""I $P(^(0),U,23),$$TOBIN^IBCU4(Y,D0)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(399,.25,1,0)="^.1"
^DD(399,.25,1,1,0)="399^AI^MUMPS"
^DD(399,.25,1,1,1)="D ALLID^IBCEP3(DA,.25,1)"
^DD(399,.25,1,1,2)="D ALLID^IBCEP3(DA,.25,2)"
^DD(399,.25,1,1,3)="Do not delete"
^DD(399,.25,1,1,"%D",0)="^^3^3^3000926^"
^DD(399,.25,1,1,"%D",1,0)="This cross reference determines if the change of care type requires the"
^DD(399,.25,1,1,"%D",2,0)="provider id's to be updated or deleted.  If it does, the update/deletion"
^DD(399,.25,1,1,"%D",3,0)="is performed for the claim."
^DD(399,.25,1,1,"DT")="3000926"
^DD(399,.25,3)="Enter the appropriate UB-04 bill classification"
^DD(399,.25,5,1,0)="399^.05^2"
^DD(399,.25,12)="CLASSIFICATION MUST BE CONSISTENT WITH LOC OF CARE VALUE"
^DD(399,.25,12.1)="S DIC(""S"")=""I $P(^(0),U,23),$$TOBIN^IBCU4(Y,D0)"""
^DD(399,.25,21,0)="^^2^2^3070116^"
^DD(399,.25,21,1,0)="This field contains the code representing the bill classification for the"
^DD(399,.25,21,2,0)="bill.  It is the second digit in the 3-digit UB-04 type of bill."
^DD(399,.25,"DT")="3070116"
^DD(399,.26,0)="UB-04 TIMEFRAME OF BILL^RS^1:ADMIT THRU DISCHARGE;2:INTERIM - 1ST CLAIM;3:INTERIM - CONTINUING CLAIM;4:INTERIM - LAST CLAIM;5:LATE CHARGES ONLY;6:ADJUSTMENT CLAIM;7:REPLACEMENT CLAIM;8:VOID/CANCEL PRIOR CLAIM;O:NON-PAY/ZERO CLAIM;^0;26^Q"
^DD(399,.26,1,0)="^.1"
^DD(399,.26,1,1,0)="^^TRIGGER^399^.06"
^DD(399,.26,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=399,DIG=.06 D ^DICR"
^DD(399,.26,1,1,2)="Q"
^DD(399,.26,1,1,"CREATE VALUE")="INTERNAL(UB-04 TIMEFRAME OF BILL)"
^DD(399,.26,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.26,1,1,"DT")="3070212"
^DD(399,.26,1,1,"FIELD")="TIMEFRAME OF BILL"
^DD(399,.26,3)="Enter the appropriate UB-04 timeframe of bill"
^DD(399,.26,5,1,0)="399^.06^1"
^DD(399,.26,21,0)="^^3^3^3070116^"
^DD(399,.26,21,1,0)="This field contains the code representing the timeframe of the bill"
^DD(399,.26,21,2,0)="value for the bill.  This is the 3rd digit of the 3-digit UB-04 type"
^DD(399,.26,21,3,0)="of bill."
^DD(399,.26,"DT")="3070212"
^DD(399,.27,0)="BILL CHARGE TYPE^S^1:INSTITUTIONAL;2:PROFESSIONAL;^0;27^Q"
^DD(399,.27,1,0)="^.1"
^DD(399,.27,1,1,0)="^^TRIGGER^399^.19"
^DD(399,.27,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=$$FT^IBCU3(DA,1) X ^DD(399,.27,1,1,1.4)"
^DD(399,.27,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,19)=DIV,DIH=399,DIG=.19 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,.27,1,1,2)="Q"
^DD(399,.27,1,1,"%D",0)="^^1^1^2990305^"
^DD(399,.27,1,1,"%D",1,0)="Sets the bill Form Type based on Insurance, Charge Type, and Site default."
^DD(399,.27,1,1,"CREATE VALUE")="S X=$$FT^IBCU3(DA,1)"
^DD(399,.27,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,.27,1,1,"DT")="2990305"
^DD(399,.27,1,1,"FIELD")="FORM TYPE"
^DD(399,.27,3)="Enter the part of the service to the patient this bill covers."
^DD(399,.27,21,0)="^^3^3^2981007^^^^"
^DD(399,.27,21,1,0)="The service to the patient may have two components, institutional/facility"
^DD(399,.27,21,2,0)="and professional.  If this bill only has charges for one of these"
^DD(399,.27,21,3,0)="components then enter that component."
^DD(399,.27,"DT")="2990305"
^DD(399,1,0)="DATE ENTERED^RDXI^^S;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,1,1,0)="^.1"
^DD(399,1,1,1,0)="399^APD"
^DD(399,1,1,1,1)="S ^DGCR(399,""APD"",$E(X,1,30),DA)="""""
^DD(399,1,1,1,2)="K ^DGCR(399,""APD"",$E(X,1,30),DA)"
^DD(399,1,1,1,"%D",0)="^^1^1^2920521^"
^DD(399,1,1,1,"%D",1,0)="Regular cross-reference used to speed up reports."
^DD(399,1,1,1,"DT")="2920521"
^DD(399,1,3)="Enter the date on which this billing record was established."
^DD(399,1,5,1,0)="399^.01^3"
^DD(399,1,21,0)="^^1^1^2880831^"
^DD(399,1,21,1,0)="This is the date on which this billing record was established."
^DD(399,1,"DT")="2920521"
^DD(399,2,0)="ENTERED/EDITED BY^RP200'I^VA(200,^S;2^Q"
^DD(399,2,3)="Enter the user who established this billing record."
^DD(399,2,5,1,0)="399^.01^4"
^DD(399,2,5,2,0)="399^.2^1"
^DD(399,2,21,0)="^^1^1^2940214^^^"
^DD(399,2,21,1,0)="This is the user who established this billing record."
^DD(399,2,"DT")="2900921"
^DD(399,3,0)="INITIAL REVIEW^FOX^^S;3^I $D(X) D YN^IBCU"
^DD(399,3,.1)="DO YOU APPROVE THIS BILL? (Y/N)"
^DD(399,3,1,0)="^.1^^-1"
^DD(399,3,1,1,0)="^^TRIGGER^399^4"
^DD(399,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,4)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,3,1,1,1.4)"
^DD(399,3,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""S"")):^(""S""),1:""""),DIV=X S $P(^(""S""),U,4)=DIV,DIH=399,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,3,1,1,2)="Q"
^DD(399,3,1,1,"CREATE CONDITION")="INITIAL REVIEW DATE="""""
^DD(399,3,1,1,"CREATE VALUE")="TODAY"
^DD(399,3,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,3,1,1,"DT")="2940310"
^DD(399,3,1,1,"FIELD")="INITIAL REVIEW DATE"
^DD(399,3,1,2,0)="^^TRIGGER^399^5"
^DD(399,3,1,2,1)="X ^DD(399,3,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,3,1,2,1.4)"
^DD(399,3,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1))="""""
^DD(399,3,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""S"")):^(""S""),1:""""),DIV=X S $P(^(""S""),U,5)=DIV,DIH=399,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,3,1,2,2)="Q"
^DD(399,3,1,2,"CREATE CONDITION")="INITIAL REVIEWER="""""
^DD(399,3,1,2,"CREATE VALUE")="S X=DUZ"
^DD(399,3,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,3,1,2,"DT")="2940310"
^DD(399,3,1,2,"FIELD")="INITIAL REVIEWER"
^DD(399,3,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,3,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,3,3)="Enter 'Yes' or '1' if the information in this record is accurate and complete or 'No' or '0' if the information is inaccurate or incomplete."
^DD(399,3,21,0)="^^2^2^2880831^"
^DD(399,3,21,1,0)="This allows the user to approve or disapprove the information contained in"
^DD(399,3,21,2,0)="this billing record."
^DD(399,3,"DT")="2940310"
^DD(399,4,0)="INITIAL REVIEW DATE^D^^S;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,4,1,0)="^.1^^0"
^DD(399,4,3)="Enter the date on which this billing record was first reviewed."
^DD(399,4,5,1,0)="399^3^1"
^DD(399,4,21,0)="^^1^1^2880831^"
^DD(399,4,21,1,0)="This is the date on which this record was initially reviewed."
^DD(399,4,"DT")="2900116"
^DD(399,5,0)="INITIAL REVIEWER^P200'I^VA(200,^S;5^Q"
^DD(399,5,1,0)="^.1^^0"
^DD(399,5,3)="Enter the user who first reviewed this billing record."
^DD(399,5,5,1,0)="399^3^2"
^DD(399,5,21,0)="^^1^1^2880831^"
^DD(399,5,21,1,0)="This is the user who performed the initial review on this billing record."
^DD(399,5,"DT")="2900921"
^DD(399,6,0)="SECONDARY REVIEW^FOX^^S;6^I $D(X) D YN^IBCU"
^DD(399,6,.1)="DO YOU APPROVE THIS BILL? (Y/N)"
^DD(399,6,1,0)="^.1^^0"
^DD(399,6,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,6,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,6,3)="Enter 'Yes' or '1' if the information in this record is accurate and complete, or 'No' or '0' if the information is inaccurate or incomplete."
^DD(399,6,21,0)="^^2^2^2990628^^^^"
^DD(399,6,21,1,0)="This allows the user to approve or disapprove the information contained in"
^DD(399,6,21,2,0)="this billing record during the secondary review stage."
^DD(399,6,"DT")="2980724"
^DD(399,7,0)="MRA REQUESTED DATE^D^^S;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,7,1,0)="^.1"
^DD(399,7,1,1,0)="399^APM"
^DD(399,7,1,1,1)="S ^DGCR(399,""APM"",$E(X,1,30),DA)="""""
^DD(399,7,1,1,2)="K ^DGCR(399,""APM"",$E(X,1,30),DA)"
^DD(399,7,1,1,"%D",0)="^^2^2^3040528^"
^DD(399,7,1,1,"%D",1,0)="Regular cross-reference on the date the MRA was requested."
^DD(399,7,1,1,"%D",2,0)="Used to speed up reports."
^DD(399,7,1,1,"DT")="3040528"
^DD(399,7,3)="Enter the date on which the last request for an MRA was performed."
^DD(399,7,5,1,0)="399^25^3"
^DD(399,7,9)="^"
^DD(399,7,21,0)="^^1^1^2990628^^^"
^DD(399,7,21,1,0)="This is the last date for which this record requested an MRA."
^DD(399,7,23,0)="^^2^2^2990628^^"
^DD(399,7,23,1,0)="This field used to contain the SECONDARY REVIEW DATE data, but is being"
^DD(399,7,23,2,0)="recycled for requesting MRA date data."
^DD(399,7,"DT")="3040528"
^DD(399,8,0)="MRA REQUESTOR^P200'^VA(200,^S;8^Q"
^DD(399,8,3)="Enter the user who requested this bill be submitted to request an MRA"
^DD(399,8,5,1,0)="399^25^2"
^DD(399,8,21,0)="^^2^2^2990628^^^^"
^DD(399,8,21,1,0)="This is the user who requested this bill be submitted to request an MRA"
^DD(399,8,21,2,0)="because MEDICARE WNR is the current insurance for the bill."
^DD(399,8,23,0)="^^2^2^2990628^^^^"
^DD(399,8,23,1,0)="This field used to contain the SECONDARY REVIEWER data, but is being"
^DD(399,8,23,2,0)="recycled for who requested an MRA data."
^DD(399,8,"DT")="2980724"
^DD(399,9,0)="AUTHORIZE BILL GENERATION?^FOX^^S;9^I $D(X) D YN^IBCU"
^DD(399,9,1,0)="^.1"
^DD(399,9,1,1,0)="^^TRIGGER^399^10"
^DD(399,9,1,1,1)="X ^DD(399,9,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,9,1,1,1.4)"
^DD(399,9,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,10)="""",Y(2)=X,Y(3)=X,Y=Y(0) X:$D(^DD(399,9,2)) ^(2) S X=Y=""YES"",Y=X,X=Y(2),X=X&Y"
^DD(399,9,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""S"")):^(""S""),1:""""),DIV=X S $P(^(""S""),U,10)=DIV,DIH=399,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,9,1,1,2)="Q"
^DD(399,9,1,1,"CREATE CONDITION")="AUTHORIZATION DATE=""""&(#9=""YES"")"
^DD(399,9,1,1,"CREATE VALUE")="TODAY"
^DD(399,9,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,9,1,1,"DT")="2960909"
^DD(399,9,1,1,"FIELD")="AUTHORIZATION DATE"
^DD(399,9,1,2,0)="^^TRIGGER^399^11"
^DD(399,9,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,9,1,2,69.2) S X=X=""YES"",Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,9,1,2,1.4)"
^DD(399,9,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""S"")):^(""S""),1:""""),DIV=X S $P(^(""S""),U,11)=DIV,DIH=399,DIG=11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,9,1,2,2)="Q"
^DD(399,9,1,2,69.2)="S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,11),0)):"""",1:$P(^(0),U,1))="""",Y(2)=X,Y(3)=X,Y=Y(0) X:$D(^DD(399,9,2)) ^(2) S X=Y"
^DD(399,9,1,2,"CREATE CONDITION")="AUTHORIZER=""""&(#9=""YES"")"
^DD(399,9,1,2,"CREATE VALUE")="S X=DUZ"
^DD(399,9,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,9,1,2,"DT")="2960909"
^DD(399,9,1,2,"FIELD")="AUTHORIZER"
^DD(399,9,1,3,0)="^^TRIGGER^399^.13"
^DD(399,9,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y=Y(0) X:$D(^DD(399,9,2)) ^(2) S X=Y=""YES"" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(399,9,1,3,1.4)"
^DD(399,9,1,3,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,9,1,3,2)="Q"
^DD(399,9,1,3,"CREATE CONDITION")="#9=""YES"""
^DD(399,9,1,3,"CREATE VALUE")="S X=3"
^DD(399,9,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,9,1,3,"DT")="3000124"
^DD(399,9,1,3,"FIELD")="STATUS"
^DD(399,9,1,4,0)="^^TRIGGER^399^25"
^DD(399,9,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$EXTERNAL^DIDU(399,9,"""",Y(0))=""YES"" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(399,9,1,4,1.4)"
^DD(399,9,1,4,1.4)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,6)=DIV,DIH=399,DIG=25 D ^DICR"
^DD(399,9,1,4,2)="Q"
^DD(399,9,1,4,"%D",0)="^^1^1^3030620^"
^DD(399,9,1,4,"%D",1,0)="If Authorize Bill Generation? (Fld #9) is answered with Yes, then the value in Request an MRA? (Fld #25) gets removed (set to null)."
^DD(399,9,1,4,"CREATE CONDITION")="#9=""YES"""
^DD(399,9,1,4,"CREATE VALUE")="@"
^DD(399,9,1,4,"DELETE VALUE")="NO EFFECT"
^DD(399,9,1,4,"DT")="3030620"
^DD(399,9,1,4,"FIELD")="REQUEST"
^DD(399,9,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,9,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,9,3)="Enter 'Yes' or '1' if the billing record has been reviewed and is ready for authorization, or 'No' or '0' if the billing record is not ready to be authorized."
^DD(399,9,21,0)="^^1^1^2960410^^"
^DD(399,9,21,1,0)="This allows the user to authorize the printing/transmitting of this bill."
^DD(399,9,"DT")="3030620"
^DD(399,10,0)="AUTHORIZATION DATE^DI^^S;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,10,1,0)="^.1"
^DD(399,10,1,1,0)="399^APD3"
^DD(399,10,1,1,1)="S ^DGCR(399,""APD3"",$E(X,1,30),DA)="""""
^DD(399,10,1,1,2)="K ^DGCR(399,""APD3"",$E(X,1,30),DA)"
^DD(399,10,1,1,"%D",0)="^^1^1^2950824^"
^DD(399,10,1,1,"%D",1,0)="Regular cross-reference used to speed up reports."
^DD(399,10,1,1,"DT")="2950824"
^DD(399,10,3)="Enter date on which this billing record was authorized for generation."
^DD(399,10,5,1,0)="399^9^1"
^DD(399,10,21,0)="^^1^1^2880831^"
^DD(399,10,21,1,0)="This is the date on which this bill was authorized for printing."
^DD(399,10,"DT")="2950824"
^DD(399,11,0)="AUTHORIZER^P200'I^VA(200,^S;11^Q"
^DD(399,11,3)="Enter user who authorized this bill for generation."
^DD(399,11,5,1,0)="399^9^2"
^DD(399,11,21,0)="^^1^1^2880831^"
^DD(399,11,21,1,0)="This is the user who authorized the generation of this bill."
^DD(399,11,"DT")="2900921"
^DD(399,12,0)="DATE FIRST PRINTED^RD^^S;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,12,1,0)="^.1"
^DD(399,12,1,1,0)="^^TRIGGER^399^14"
^DD(399,12,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,14)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,12,1,1,1.4)"
^DD(399,12,1,1,1.4)="S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,14)=DIV,DIH=399,DIG=14 D ^DICR"
^DD(399,12,1,1,2)="Q"
^DD(399,12,1,1,"CREATE CONDITION")="#14="""""
^DD(399,12,1,1,"CREATE VALUE")="TODAY"
^DD(399,12,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,12,1,1,"DT")="3040614"
^DD(399,12,1,1,"FIELD")="#14"
^DD(399,12,1,2,0)="^^TRIGGER^399^15"
^DD(399,12,1,2,1)="X ^DD(399,12,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,15)=DIV,DIH=399,DIG=15 D ^DICR"
^DD(399,12,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,15),0)),U)="""""
^DD(399,12,1,2,2)="Q"
^DD(399,12,1,2,"CREATE CONDITION")="#15="""""
^DD(399,12,1,2,"CREATE VALUE")="S X=DUZ"
^DD(399,12,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,12,1,2,"DT")="3040614"
^DD(399,12,1,2,"FIELD")="#15"
^DD(399,12,1,3,0)="^^TRIGGER^399^13"
^DD(399,12,1,3,1)="X ^DD(399,12,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,13)=DIV,DIH=399,DIG=13 D ^DICR"
^DD(399,12,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,13),0)),U)="""""
^DD(399,12,1,3,2)="Q"
^DD(399,12,1,3,"CREATE CONDITION")="FIRST PRINTED BY="""""
^DD(399,12,1,3,"CREATE VALUE")="S X=DUZ"
^DD(399,12,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,12,1,3,"DT")="3040618"
^DD(399,12,1,3,"FIELD")="FIRST PRINTED BY"
^DD(399,12,1,4,0)="399^AP"
^DD(399,12,1,4,1)="S ^DGCR(399,""AP"",$E(X,1,30),DA)="""""
^DD(399,12,1,4,2)="K ^DGCR(399,""AP"",$E(X,1,30),DA)"
^DD(399,12,1,4,"%D",0)="^^1^1^2910916^"
^DD(399,12,1,4,"%D",1,0)="Regular cross-reference to be used to speed up reports."
^DD(399,12,1,4,"DT")="2910916"
^DD(399,12,3)="Enter date on which this bill was first generated."
^DD(399,12,21,0)="^^1^1^2990125^^"
^DD(399,12,21,1,0)="This is the date on which the bill was first printed."
^DD(399,12,"DT")="3040618"
^DD(399,13,0)="FIRST PRINTED BY^P200'^VA(200,^S;13^Q"
^DD(399,13,1,0)="^.1^^0"
^DD(399,13,3)="Enter user who first generated this bill."
^DD(399,13,5,1,0)="399^12^3"
^DD(399,13,21,0)="^^1^1^2880831^"
^DD(399,13,21,1,0)="This is the user who first generated this bill."
^DD(399,13,"DT")="2900921"
^DD(399,14,0)="DATE LAST PRINTED^D^^S;14^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,14,1,0)="^.1"
^DD(399,14,1,1,0)="^^TRIGGER^399^.13"
^DD(399,14,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=4 S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR"
^DD(399,14,1,1,2)="Q"
^DD(399,14,1,1,"CREATE VALUE")="S X=4"
^DD(399,14,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,14,1,1,"DT")="3040614"
^DD(399,14,1,1,"FIELD")="STATUS"
^DD(399,14,1,3,0)="^^TRIGGER^399^15"
^DD(399,14,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=DUZ S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,15)=DIV,DIH=399,DIG=15 D ^DICR"
^DD(399,14,1,3,2)="Q"
^DD(399,14,1,3,"CREATE VALUE")="S X=DUZ"
^DD(399,14,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,14,1,3,"DT")="3040614"
^DD(399,14,1,3,"FIELD")="#15"
^DD(399,14,3)="Enter date on which this bill was last generated."
^DD(399,14,5,1,0)="399^12^1"
^DD(399,14,21,0)="^^1^1^2880831^"
^DD(399,14,21,1,0)="This is the date on which this bill was last printed."
^DD(399,14,"DT")="3040614"
^DD(399,15,0)="LAST PRINTED BY^P200'I^VA(200,^S;15^Q"
^DD(399,15,1,0)="^.1^^0"
^DD(399,15,3)="Enter user who generated this bill last."
^DD(399,15,5,1,0)="399^12^2"
^DD(399,15,5,2,0)="399^14^3"
^DD(399,15,21,0)="^^1^1^2880831^"
^DD(399,15,21,1,0)="This is the user who last printed this bill."
^DD(399,15,"DT")="2900921"
^DD(399,16,0)="CANCEL BILL?^FOX^^S;16^I $D(X) D YN^IBCU"
^DD(399,16,1,0)="^.1"
^DD(399,16,1,1,0)="^^TRIGGER^399^17"
^DD(399,16,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$EXTERNAL^DIDU(399,16,"""",Y(0))=""YES"" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,16,1,1,1.4)"
^DD(399,16,1,1,1.4)="S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,17)=DIV,DIH=399,DIG=17 D ^DICR"
^DD(399,16,1,1,2)="Q"
^DD(399,16,1,1,"CREATE CONDITION")="CANCEL BILL?=""YES"""
^DD(399,16,1,1,"CREATE VALUE")="TODAY"
^DD(399,16,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,16,1,1,"DT")="3040406"
^DD(399,16,1,1,"FIELD")="#17"
^DD(399,16,1,2,0)="^^TRIGGER^399^18"
^DD(399,16,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$EXTERNAL^DIDU(399,16,"""",Y(0))=""YES"" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,16,1,2,1.4)"
^DD(399,16,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,18)=DIV,DIH=399,DIG=18 D ^DICR"
^DD(399,16,1,2,2)="Q"
^DD(399,16,1,2,"CREATE CONDITION")="CANCEL BILL?=""YES"""
^DD(399,16,1,2,"CREATE VALUE")="S X=DUZ"
^DD(399,16,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,16,1,2,"DT")="3040406"
^DD(399,16,1,2,"FIELD")="#18"
^DD(399,16,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,16,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,16,3)="Enter 'Yes' or '1' if you want this billing record to be cancelled, 'No' or '0' if you do not want this billing record to be cancelled."
^DD(399,16,21,0)="^.001^1^1^3040326^^"
^DD(399,16,21,1,0)="This allows the user to cancel this bill."
^DD(399,16,"DT")="3040406"
^DD(399,17,0)="DATE BILL CANCELLED^DI^^S;17^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,17,1,0)="^.1"
^DD(399,17,1,1,0)="^^TRIGGER^399^.13"
^DD(399,17,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,16),X=X S X=X=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=7 X ^DD(399,17,1,1,1.4)"
^DD(399,17,1,1,1.4)="S DIH=$G(^DGCR(399,DIV(0),0)),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR"
^DD(399,17,1,1,2)="Q"
^DD(399,17,1,1,"CREATE CONDITION")="INTERNAL(#16)=1"
^DD(399,17,1,1,"CREATE VALUE")="S X=7"
^DD(399,17,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,17,1,1,"DT")="3040614"
^DD(399,17,1,1,"FIELD")="STATUS"
^DD(399,17,3)="Enter date on which this bill was cancelled."
^DD(399,17,5,1,0)="399^16^1"
^DD(399,17,21,0)="^^1^1^2880831^"
^DD(399,17,21,1,0)="This is the date on which this billing record was cancelled."
^DD(399,17,"DT")="3040614"
^DD(399,18,0)="BILL CANCELLED BY^P200'I^VA(200,^S;18^Q"
^DD(399,18,3)="Enter user who cancelled this bill."
^DD(399,18,5,1,0)="399^16^2"
^DD(399,18,21,0)="^^1^1^2880831^"
^DD(399,18,21,1,0)="This is the user who cancelled this bill."
^DD(399,18,"DT")="2900921"
^DD(399,19,0)="REASON CANCELLED^RFX^^S;19^K:$L(X)>100!($L(X)<3)!'(X?1A.ANP) X I '$D(X) X ^DD(399,19,9.3)"
^DD(399,19,3)="Enter the 3-100 character reason(s) why this bill was cancelled."
^DD(399,19,9.3)="W ?5,""Reason for cancellation is mandatory if you wish to cancel this bill."",!,?5,""Bill will not be cancelled if this field is left unanswered."",!"
^DD(399,19,21,0)="^^3^3^2900417^^^"
^DD(399,19,21,1,0)="This is the reason(s) why this bill was cancelled.  This entry is mandatory"
^DD(399,19,21,2,0)="when cancelling a bill.  Enter 3-100 characters, the first character must"
^DD(399,19,21,3,0)="be an alphabetic character."
^DD(399,19,"DT")="2920121"
^DD(399,20,0)="LAST AUSTIN CONFIRM DATE^D^^TX;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(399,20,3)="Enter the date/time that this bill was confirmed by Austin as received."
^DD(399,20,21,0)="^^1^1^2960819^"
^DD(399,20,21,1,0)="This is the last date/time that Austin received the bill."
^DD(399,20,"DT")="2960819"
^DD(399,21,0)="LAST ELECTRONIC EXTRACT DATE^D^^TX;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(399,21,1,0)="^.1"
^DD(399,21,1,1,0)="399^ALEX"
^DD(399,21,1,1,1)="S ^DGCR(399,""ALEX"",$E(X,1,30),DA)="""""
^DD(399,21,1,1,2)="K ^DGCR(399,""ALEX"",$E(X,1,30),DA)"
^DD(399,21,1,1,3)="Please do not delete"
^DD(399,21,1,1,"%D",0)="^^2^2^3000418^"
^DD(399,21,1,1,"%D",1,0)="This cross reference provides a way to easily find all bills extracted"
^DD(399,21,1,1,"%D",2,0)="in a selected date range."
^DD(399,21,1,1,"DT")="3000418"
^DD(399,21,3)="Enter the date/time that this bill was last extracted for EDI transmission."
^DD(399,21,21,0)="^^1^1^2960819^^"
^DD(399,21,21,1,0)="This is the last time this bill was extracted to be transmitted to Austin."
^DD(399,21,"DT")="3000418"
^DD(399,22,0)="MRA RECORDED DATE^D^^TX;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,22,3)="Enter the date the MRA was received for this bill"
^DD(399,22,5,1,0)="399^24^1"
^DD(399,22,21,0)="^^1^1^2990421^"
^DD(399,22,21,1,0)="This is the date that the MRA was recorded as being received for this bill."
^DD(399,22,"DT")="2990421"
^DD(399,24,0)="CLAIM MRA STATUS^S^0:NO MRA NEEDED;1N:MRA NEEDED/NOT YET REQUESTED;1R:MRA REQUESTED;C:VALID MRA RECEIVED;A:MRA SKIPPED;^TX;5^Q"
^DD(399,24,1,0)="^.1^^-1"
^DD(399,24,1,1,0)="^^TRIGGER^399^22"
^DD(399,24,1,1,1)="X ^DD(399,24,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,24,1,1,1.4)"
^DD(399,24,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,3)="""",Y(2)=X,Y(3)=X S X=Y(0),X=X S X=X=""C"",Y=X,X=Y(2),X=X&Y"
^DD(399,24,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,3)=DIV,DIH=399,DIG=22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,24,1,1,2)="Q"
^DD(399,24,1,1,"CREATE CONDITION")="MRA RECORDED DATE=""""&(INTERNAL(CLAIM MRA STATUS)=""C"")"
^DD(399,24,1,1,"CREATE VALUE")="S X=DT"
^DD(399,24,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,24,1,1,"FIELD")="MRA RECORDED DATE"
^DD(399,24,3)="ENTER THE STATUS OF THE CLAIM FOR MRA"
^DD(399,24,5,1,0)="399^.13^4"
^DD(399,24,5,2,0)="399^.21^2"
^DD(399,24,5,3,0)="399^101^2"
^DD(399,24,5,4,0)="399^102^3"
^DD(399,24,21,0)="^^2^2^2980622^^^"
^DD(399,24,21,1,0)="This field tracks the process of obtaining an MRA for a MEDICARE primary"
^DD(399,24,21,2,0)="claim."
^DD(399,24,23,0)="^^7^7^2980622^"
^DD(399,24,23,1,0)="If 'CLAIM MRA STATUS, there is no need to check for MRA status any further"
^DD(399,24,23,2,0)="as either the MRA has been received or is not needed."
^DD(399,24,23,3,0)=" "
^DD(399,24,23,4,0)="This field is used to determine what can happen to this claim.  If an MRA"
^DD(399,24,23,5,0)="is needed, this field will prevent it from being sent to A/R and will"
^DD(399,24,23,6,0)="protect it from any other action that would compromise its integrity until"
^DD(399,24,23,7,0)="a formal bill can be created for it."
^DD(399,24,"DT")="3001003"
^DD(399,25,0)="REQUEST AN MRA?^FXO^^TX;6^I $D(Y) D YN^IBCU"
^DD(399,25,1,0)="^.1"
^DD(399,25,1,1,0)="^^TRIGGER^399^.13"
^DD(399,25,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(399,25,1,1,1.4)"
^DD(399,25,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=399,DIG=.13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,25,1,1,2)="Q"
^DD(399,25,1,1,3)="Do not delete"
^DD(399,25,1,1,"%D",0)="^.101^2^2^3030611^^"
^DD(399,25,1,1,"%D",1,0)="This triggers the status of the bill to indicate an MRA is ready to be"
^DD(399,25,1,1,"%D",2,0)="requested."
^DD(399,25,1,1,"CREATE CONDITION")="INTERNAL(REQUEST AN MRA)=1"
^DD(399,25,1,1,"CREATE VALUE")="S X=2"
^DD(399,25,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,25,1,1,"DT")="2980625"
^DD(399,25,1,1,"FIELD")="STATUS"
^DD(399,25,1,2,0)="^^TRIGGER^399^8"
^DD(399,25,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,25,1,2,69.2) S X=X S X=X="""",Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399,25,1,2,1.4)"
^DD(399,25,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,8)=DIV,DIH=399,DIG=8 D ^DICR"
^DD(399,25,1,2,2)="Q"
^DD(399,25,1,2,69.2)="S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:""""),Y(4)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,13),X=X S X=X=2,Y(2)=$G(X),Y(3)=$G(X) S X=$P(Y(4),U,8)"
^DD(399,25,1,2,"CREATE CONDITION")="(INTERNAL(#.13)=2)&(INTERNAL(#8)="""")"
^DD(399,25,1,2,"CREATE VALUE")="S X=DUZ"
^DD(399,25,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,25,1,2,"DT")="3030725"
^DD(399,25,1,2,"FIELD")="MRA REQUESTOR"
^DD(399,25,1,3,0)="^^TRIGGER^399^7"
^DD(399,25,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(399,25,1,3,69.2) S X=X S X=X="""",Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(399,25,1,3,1.4)"
^DD(399,25,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""S"")),DIV=X S $P(^(""S""),U,7)=DIV,DIH=399,DIG=7 D ^DICR"
^DD(399,25,1,3,2)="Q"
^DD(399,25,1,3,69.2)="S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:""""),Y(4)=$S($D(^DGCR(399,D0,""S"")):^(""S""),1:"""") S X=$P(Y(1),U,13),X=X S X=X=2,Y(2)=$G(X),Y(3)=$G(X) S X=$P(Y(4),U,7)"
^DD(399,25,1,3,"CREATE CONDITION")="(INTERNAL(#.13)=2)&(INTERNAL(#7)="""")"
^DD(399,25,1,3,"CREATE VALUE")="S X=DT"
^DD(399,25,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,25,1,3,"DT")="3030725"
^DD(399,25,1,3,"FIELD")="MRA REQUESTED DATE"
^DD(399,25,2)="S Y(0)=Y S Y=$P(""NO^YES"",U,Y+1)"
^DD(399,25,2.1)="S Y=$P(""NO^YES"",U,Y+1)"
^DD(399,25,3)="Enter 'Yes' (1) if the bill has been reviewed and is ready for submission to MEDICARE for an MRA, or 'No' (0) if the billing record is not ready to be submitted."
^DD(399,25,5,1,0)="399^9^4"
^DD(399,25,21,0)="^^1^1^2980625^^^"
^DD(399,25,21,1,0)="This field indicates that the bill is ready to send to MEDICARE for an MRA."
^DD(399,25,"DT")="3030725"
^DD(399,26,0)="PRINTED VIA EDI?^S^0:NO;1:YES;^TX;7^Q"
^DD(399,26,3)="Enter 1 if this claim was printed at the EDI contractor"
^DD(399,26,21,0)="^^3^3^2990712^"
^DD(399,26,21,1,0)="This field is the flag that says the bill was not transmitted electronically"
^DD(399,26,21,2,0)="when the EDI contractor got the claim, but was printed at their print"
^DD(399,26,21,3,0)="shop and mailed out."
^DD(399,26,"DT")="2990712"
^DD(399,27,0)="FORCE CLAIM TO PRINT^S^0:NO FORCED PRINT;1:FORCE LOCAL PRINT;2:FORCE CLEARINGHOUSE PRINT;^TX;8^Q"
^DD(399,27,3)="Enter a 1 if you always want to print this bill locally or 2 to force print at clearinghouse"
^DD(399,27,5,1,0)="399^.21^3"
^DD(399,27,5,2,0)="399^101^3"
^DD(399,27,5,3,0)="399^102^4"
^DD(399,27,21,0)="^^3^3^2991206^^^"
^DD(399,27,21,1,0)="If this field is set to 1 or 2, the claim will be printed either locally (1)"
^DD(399,27,21,2,0)="or at the clearinghouse (2).  If flag is set to 0, bill can be transmitted"
^DD(399,27,21,3,0)="electronically to the payer."
^DD(399,27,"DT")="2991015"
^DD(399,28,0)="FORCE PRINT MRA SECONDARY^S^0:NO FORCED PRINT;1:MEDICARE SECONDARY FORCE LOCAL PRINT;^TX;9^Q"
^DD(399,28,3)="Enter a 1 to force print locally the subsequent MRA claim"
^DD(399,28,21,0)="^^11^11^3040618^"
^DD(399,28,21,1,0)="Once the MRA is received from Medicare, the payer sequence on"
^DD(399,28,21,2,0)="this claim will be incremented and this claim will become the"
^DD(399,28,21,3,0)="subsequent MRA claim."
^DD(399,28,21,4,0)=" "
^DD(399,28,21,5,0)="If this field is set to FORCE LOCAL PRINT, then the subsequent"
^DD(399,28,21,6,0)="MRA claim cannot be electronically transmitted and must be"
^DD(399,28,21,7,0)="printed locally."
^DD(399,28,21,8,0)=" "
^DD(399,28,21,9,0)="If this field is set to NO FORCED PRINT (Default), then the"
^DD(399,28,21,10,0)="subsequent MRA claim may be sent electronically to the next"
^DD(399,28,21,11,0)="payer."
^DD(399,28,"DT")="3040916"
^DD(399,28.1,0)="MRA REVIEW STATUS^S^0:NOT BEING REVIEWED;1:REVIEW IN PROCESS;^TX;10^Q"
^DD(399,28.1,3)="Enter code indicating whether this MRA claim is being reviewed."
^DD(399,28.1,21,0)="^^1^1^3080102^"
^DD(399,28.1,21,1,0)="Select code that indicates whether this MRA claim is under review."
^DD(399,28.1,"DT")="3080102"
^DD(399,29,0)="BILL CLONED TO^P399'^DGCR(399,^S1;1^Q"
^DD(399,29,3)="Select the Bill Number for which the new claim is being created. "
^DD(399,29,21,0)="^.001^1^1^3050712^^"
^DD(399,29,21,1,0)="This is the Bill Number for which the new claim is being created."
^DD(399,29,"DT")="3050712"
^DD(399,30,0)="BILL CLONED FROM^P399'^DGCR(399,^S1;2^Q"
^DD(399,30,3)="Select the Bill Number from which this claim was cloned. "
^DD(399,30,21,0)="^.001^1^1^3050712^^"
^DD(399,30,21,1,0)="This is the bill number to which this claim is being cloned. "
^DD(399,30,"DT")="3050711"
^DD(399,31,0)="DATE BILL CLONED^D^^S1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,31,3)="Enter the date this bill was cloned. "
^DD(399,31,21,0)="^^1^1^3050712^"
^DD(399,31,21,1,0)="This is the date this bill was cloned. "
^DD(399,31,"DT")="3050711"
^DD(399,32,0)="BILL CLONED BY^P200'^VA(200,^S1;4^Q"
^DD(399,32,3)="Enter the name of the person who is cloning the claim. "
^DD(399,32,21,0)="^^1^1^3050712^"
^DD(399,32,21,1,0)="This is the user who cloned the claim. "
^DD(399,32,"DT")="3050711"
^DD(399,33,0)="REASON CLONED^F^^S1;5^K:$L(X)>30!($L(X)<3) X"
^DD(399,33,3)="Answer must be 3-30 characters in length."
^DD(399,33,21,0)="^^1^1^3050712^"
^DD(399,33,21,1,0)="This is the reason why the old claim was cloned to a new one. "
^DD(399,33,"DT")="3050711"
^DD(399,40,0)="CONDITION CODE^399.04PA^^CC;0"
^DD(399,40,21,0)="^^2^2^2970916^^^^"
^DD(399,40,21,1,0)="This identifies the condition(s) relating to this bill that may affect"
^DD(399,40,21,2,0)="payer processing."
^DD(399,41,0)="OCCURRENCE CODE^399.041IPA^^OC;0"
^DD(399,41,12)="Valid MCCR Occurrence Codes only!"
^DD(399,41,12.1)="S DIC(""S"")=""I $D(^DGCR(399.1,+Y,0)) I $P(^DGCR(399.1,+Y,0),""""^"""",4)=1 X ^DD(399.041,9.1)"""
^DD(399,41,21,0)="^^2^2^2920430^^^^"
^DD(399,41,21,1,0)="This identifies the significant event(s) relating to this bill that may"
^DD(399,41,21,2,0)="affect payer processing."
^DD(399,42,0)="REVENUE CODE^399.042IPA^^RC;0"
^DD(399,42,21,0)="^^2^2^2961001^^^^"
^DD(399,42,21,1,0)="This identifies specific accommodation(s), ancillary service(s) or billing"
^DD(399,42,21,2,0)="calculation(s)."
^DD(399,42,"DT")="2990331"
^DD(399,43,0)="OP VISITS DATE(S)^399.043DA^^OP;0"
^DD(399,43,21,0)="^^1^1^2880831^"
^DD(399,43,21,1,0)="This identifies the outpatient visit date(s) which are included on this bill."
^DD(399,44,0)="REASON(S) DISAPPROVED-INITIAL^399.044PA^^D1;0"
^DD(399,44,21,0)="^^2^2^2880831^"
^DD(399,44,21,1,0)="This defines the reason(s) why this billing record was disapproved during"
^DD(399,44,21,2,0)="the initial review phase."
^DD(399,45,0)="REASON(S) DISAPPROVED-SECOND^399.045PA^^D2;0"
^DD(399,45,21,0)="^^2^2^2880831^"
^DD(399,45,21,1,0)="This defines the reason(s) why this billing record was disapproved during"
^DD(399,45,21,2,0)="the secondary review phase."
^DD(399,46,0)="RETURNED LOG DATE/TIME^399.046DA^^R;0"
^DD(399,46,21,0)="^^4^4^2911025^^^"
^DD(399,46,21,1,0)="This field provides the audit trail of who edited a bill after is has"
^DD(399,46,21,2,0)="been returned from being Audited for correction by the approving service."
^DD(399,46,21,3,0)="Data in this field is automatically entered by the system whenever a"
^DD(399,46,21,4,0)="returned bill is edited and/or returned to fiscal."
^DD(399,47,0)="VALUE CODE^399.047PA^^CV;0"
^DD(399,48,0)="OTHER CARE^399.048P^^OT;0"
^DD(399,48,21,0)="^.001^2^2^3040123^^^^"
^DD(399,48,21,1,0)="Allows definition of the type of care to be other than the standard "
^DD(399,48,21,2,0)="inpatient or outpatient."
^DD(399,48,23,0)="^.001^1^1^3040123^^^^"
^DD(399,48,23,1,0)="Used to identify the charges applied to the dates of care."
^DD(399,51,0)="*CPT PROCEDURE CODE (1)^*P81'^ICPT(^C;1^S DIC(""S"")=""I $P(^(0),""""^"""",1)?5N"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,51,.1)="CPT PROCEDURE CODE (1)"
^DD(399,51,1,0)="^.1^^0"
^DD(399,51,3)="CPT procedure codes may be selected if CPT is specified as the Procedure Coding Method for this bill."
^DD(399,51,12)="Only CPT codes may be selected!!"
^DD(399,51,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)?5N"""
^DD(399,51,21,0)="^^3^3^2940214^^^^"
^DD(399,51,21,1,0)="This is a CPT outpatient procedure code."
^DD(399,51,21,2,0)=" "
^DD(399,51,21,3,0)="This field has been marked for deletion 11/4/91."
^DD(399,51,"DT")="2920122"
^DD(399,52,0)="*CPT PROCEDURE CODE (2)^*P81'^ICPT(^C;2^S DIC(""S"")=""I $P(^(0),""""^"""",1)?5N"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,52,.1)="CPT PROCEDURE CODE (2)"
^DD(399,52,1,0)="^.1^^0"
^DD(399,52,3)="CPT outpatient procedure codes may only be selected if CPT is specified as the Procedure Coding Method for this outpatient bill."
^DD(399,52,12)="Only CPT codes may be selected!!"
^DD(399,52,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)?5N"""
^DD(399,52,21,0)="^^3^3^2911104^^"
^DD(399,52,21,1,0)="This is a CPT outpatient procedure code."
^DD(399,52,21,2,0)=" "
^DD(399,52,21,3,0)="This field has been marked for deletion on 11/4/91."
^DD(399,52,"DT")="2920122"
^DD(399,53,0)="*CPT PROCEDURE CODE (3)^*P81'^ICPT(^C;3^S DIC(""S"")=""I $P(^(0),""""^"""",1)?5N"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,53,.1)="CPT PROCEDURE CODE (3)"
^DD(399,53,1,0)="^.1^^0"
^DD(399,53,3)="CPT outpatient procedure codes may only be selected if CPT is specified as the Procedure Coding Method for this outpatient bill."
^DD(399,53,12)="Only CPT codes may be selected!!"
^DD(399,53,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)?5N"""
^DD(399,53,21,0)="^^3^3^2911104^^"
^DD(399,53,21,1,0)="This is a CPT outpatient procedure code."
^DD(399,53,21,2,0)=" "
^DD(399,53,21,3,0)="This field has been marked for deletion on 11/4/91."
^DD(399,53,"DT")="2920122"
^DD(399,54,0)="*ICD PROCEDURE CODE (1)^P80.1'^ICD0(^C;4^Q"
^DD(399,54,1,0)="^.1^^0"
^DD(399,54,3)="Enter ICD procedure code associated with the outpatient episode of care."
^DD(399,54,21,0)="^^3^3^2911104^^^"
^DD(399,54,21,1,0)="This is an ICD outpatient procedure code."
^DD(399,54,21,2,0)=" "
^DD(399,54,21,3,0)="This field is marked for deletion on 11/4/91."
^DD(399,54,"DT")="2920122"
^DD(399,55,0)="*ICD PROCEDURE CODE (2)^P80.1'^ICD0(^C;5^Q"
^DD(399,55,.1)="ICD PROCEDURE CODE (2)"
^DD(399,55,1,0)="^.1^^0"
^DD(399,55,3)="Enter ICD procedure code associated with this outpatient episode of care."
^DD(399,55,21,0)="^^3^3^2920526^^^"
^DD(399,55,21,1,0)="This is an ICD outpatient procedure code."
^DD(399,55,21,2,0)=" "
^DD(399,55,21,3,0)="This field is marked of deletion on 11/4/91."
^DD(399,55,"DT")="2920122"
^DD(399,56,0)="*ICD PROCEDURE CODE (3)^P80.1'^ICD0(^C;6^Q"
^DD(399,56,.1)="ICD PROCEDURE CODE (3)"
^DD(399,56,1,0)="^.1^^0"
^DD(399,56,3)="Enter ICD procedure code associated with this outpatient episode of care."
^DD(399,56,21,0)="^^3^3^2911104^^"
^DD(399,56,21,1,0)="This is an ICD outpatient procedure code."
^DD(399,56,21,2,0)=" "
^DD(399,56,21,3,0)="This field is marked for deletion on 11/4/91."
^DD(399,56,"DT")="2920122"
^DD(399,57,0)="*HCFA PROCEDURE CODE (1)^*P81'X^ICPT(^C;7^S D=""F"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,57,.1)="HCFA PROCEDURE CODE (1)"
^DD(399,57,1,0)="^.1^^0"
^DD(399,57,3)="Enter HCFA procedure code associated with this outpatient episode of care."
^DD(399,57,12)="Only HCFA codes may be selected!!"
^DD(399,57,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)?1A.N"""
^DD(399,57,21,0)="^^3^3^2911104^^^^"
^DD(399,57,21,1,0)="This is a HCFA outpatient procedure code."
^DD(399,57,21,2,0)=" "
^DD(399,57,21,3,0)="This field is marked for deletion on 11/4/91."
^DD(399,57,"DT")="2920122"
^DD(399,58,0)="*HCFA PROCEDURE CODE (2)^*P81'X^ICPT(^C;8^S D=""F"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,58,.1)="HCFA PROCEDURE CODE (2)"
^DD(399,58,1,0)="^.1^^0"
^DD(399,58,3)="Enter HCFA procedure code associated with this outpatient episode of care."
^DD(399,58,12)="Only HCFA codes may be selected!!"
^DD(399,58,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)?1A.N"""
^DD(399,58,21,0)="^^3^3^2911104^^"
^DD(399,58,21,1,0)="This is a HCFA outpatient procedure code."
^DD(399,58,21,2,0)=" "
^DD(399,58,21,3,0)="This field has been marked for deletion on 11/4/91."
^DD(399,58,"DT")="2920122"
^DD(399,59,0)="*HCFA PROCEDURE CODE (3)^*P81'X^ICPT(^C;9^S D=""F"" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,59,.1)="*HCFA PROCDURE CODE (3)"
^DD(399,59,1,0)="^.1^^0"
^DD(399,59,3)="Enter HCFA procedure code associated with this outpatient episode of care."
^DD(399,59,12)="Only HCFA codes may be selected!!"
^DD(399,59,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)?1A.N"""
^DD(399,59,21,0)="^^3^3^2911104^^"
^DD(399,59,21,1,0)="This is a HCFA outpatient procedure code."
^DD(399,59,21,2,0)=" "
^DD(399,59,21,3,0)="This field has been marked for deletion on 11/4/91."
^DD(399,59,"DT")="2920122"
^DD(399,60,0)="OUTPATIENT DIAGNOSIS^FX^^C;10^K:$L(X)>45!($L(X)<1)!'(X?1U.ANP) X"
^DD(399,60,3)="Answer must be 1-45 characters in length."
^DD(399,60,5,1,0)="399^64^1"
^DD(399,60,9)="^"
^DD(399,60,21,0)="^^1^1^2900525^^^^"
^DD(399,60,21,1,0)="The outpatient diagnosis is selectable from the ICD DIAGNOSIS file."
^DD(399,60,"DT")="2900613"
^DD(399,61,0)="*PROCDEDURE DATE (1)^RDX^^C;11^S %DT=""EX"" D ^%DT S X=Y I $D(X) D DTMES^IBCU7"
^DD(399,61,.1)="PROCEDURE DATE (1)"
^DD(399,61,3)="TYPE A DATE ON OR BEFORE TODAY"
^DD(399,61,21,0)="^^4^4^2920615^^^^"
^DD(399,61,21,1,0)="This is the date on which the first procedure associated with this"
^DD(399,61,21,2,0)="billing episode occurred."
^DD(399,61,21,3,0)=" "
^DD(399,61,21,4,0)="This field has been marked for deletion on 11/4/91."
^DD(399,61,"DT")="2911104"
^DD(399,62,0)="*PROCEDURE DATE (2)^RDX^^C;12^S %DT=""EX"" D ^%DT S X=Y I $D(X) D DTMES^IBCU7"
^DD(399,62,.1)="PROCEDURE DATE (2)"
^DD(399,62,3)=""
^DD(399,62,21,0)="^^4^4^2911104^^"
^DD(399,62,21,1,0)="This is the date on which the second procedure associated with"
^DD(399,62,21,2,0)="this billing episode occurred."
^DD(399,62,21,3,0)=" "
^DD(399,62,21,4,0)="This field has been marked for deletion on 11/4/91."
^DD(399,62,"DT")="2911104"
^DD(399,63,0)="*PROCEDURE DATE (3)^RDX^^C;13^S %DT=""EX"" D ^%DT S X=Y I $D(X) D DTMES^IBCU7"
^DD(399,63,.1)="PROCEDURE DATE (3)"
^DD(399,63,3)="TYPE A DATE ON OR BEFORE TODAY"
^DD(399,63,21,0)="^^4^4^2911104^^"
^DD(399,63,21,1,0)="This is the date on which the third procedure associated with this"
^DD(399,63,21,2,0)="billing episode occurred."
^DD(399,63,21,3,0)=" "
^DD(399,63,21,4,0)="This field has been marked for deletion on 11/4/91."
^DD(399,63,"DT")="2911104"
^DD(399,64,0)="*ICD DIAGNOSIS CODE (1)^RP80'^ICD9(^C;14^Q"
^DD(399,64,.1)="ICD DIAGNOSIS CODE (1)"
^DD(399,64,1,0)="^.1"
^DD(399,64,1,1,0)="^^TRIGGER^399^60"
^DD(399,64,1,1,1)="X ^DD(399,64,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$P(^ICD9(+X,0),""^"",3) X ^DD(399,64,1,1,1.4)"
^DD(399,64,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S X=X>2"
^DD(399,64,1,1,1.4)="S DIH=$G(^DGCR(399,DIV(0),""C"")),DIV=X S $P(^(""C""),U,10)=DIV,DIH=399,DIG=60 D ^DICR"
^DD(399,64,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""C"")):^(""C""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" S DIH=$G(^DGCR(399,DIV(0),""C"")),DIV=X S $P(^(""C""),U,10)=DIV,DIH=399,DIG=60 D ^DICR"
^DD(399,64,1,1,"%D",0)="^^1^1^3040614^"
^DD(399,64,1,1,"%D",1,0)="Sets the Outpatient Diagnosis to the ICD DIAGNOSIS CODE (1)."
^DD(399,64,1,1,"CREATE CONDITION")="INTERNAL(#.05)>2"
^DD(399,64,1,1,"CREATE VALUE")="S X=$P(^ICD9(+X,0),""^"",3)"
^DD(399,64,1,1,"DELETE VALUE")="@"
^DD(399,64,1,1,"DT")="3040614"
^DD(399,64,1,1,"FIELD")="#60"
^DD(399,64,3)="Enter the ICD diagnosis code which pertains to this billing episode."
^DD(399,64,21,0)="^^1^1^2931117^^^"
^DD(399,64,21,1,0)="This is the first ICD diagnosis code associated with this billing episode."
^DD(399,64,23,0)="^^2^2^2931117^"
^DD(399,64,23,1,0)="Replaced by a diagnosis file (362.3) with IB v2.0.  ""*"" for deletion"
^DD(399,64,23,2,0)="on 11/10/93."
^DD(399,64,"DT")="3040614"
^DD(399,65,0)="*ICD DIAGNOSIS CODE (2)^P80'^ICD9(^C;15^Q"
^DD(399,65,.1)="ICD DIAGNOSIS CODE (2)"
^DD(399,65,3)="Enter the ICD diagnosis code which pertains to this billing episode."
^DD(399,65,21,0)="^^1^1^2931117^^"
^DD(399,65,21,1,0)="This is the second ICD diagnosis code associated with this billing episode."
^DD(399,65,23,0)="^^2^2^2931117^"
^DD(399,65,23,1,0)="Replaced by a diagnosis file (362.3) with IB v2.0.  ""*"" for deletion"
^DD(399,65,23,2,0)="on 11/10/93."
^DD(399,65,"DT")="2931110"
^DD(399,66,0)="*ICD DIAGNOSIS CODE (3)^P80'^ICD9(^C;16^Q"
^DD(399,66,.1)="ICD DIAGNOSIS CODE (3)"
^DD(399,66,3)="Enter the ICD diagnosis code which pertains to this billing episode."
^DD(399,66,21,0)="^^1^1^2931117^^"
^DD(399,66,21,1,0)="This is the third ICD diagnosis code associated with this billing episode."
^DD(399,66,23,0)="^^2^2^2931117^"
^DD(399,66,23,1,0)="Replaced by a diagnosis file (362.3) with IB v2.0.  ""*"" for deletion"
^DD(399,66,23,2,0)="on 11/10/93."
^DD(399,66,"DT")="2931110"
^DD(399,67,0)="*ICD DIAGNOSIS CODE (4)^P80'^ICD9(^C;17^Q"
^DD(399,67,.1)="ICD DIAGNOSIS CODE (4)"
^DD(399,67,3)="Enter the ICD diagnosis code which pertains to this billing episode."
^DD(399,67,21,0)="^^1^1^2931117^^"
^DD(399,67,21,1,0)="This is the fourth ICD diagnosis code associated with this billing episode."
^DD(399,67,23,0)="^^2^2^2931117^"
^DD(399,67,23,1,0)="Replaced by a diagnosis file (362.3) with IB v2.0.  ""*"" for deletion"
^DD(399,67,23,2,0)="on 11/10/93."
^DD(399,67,"DT")="2931110"
^DD(399,68,0)="*ICD DIAGNOSIS CODE (5)^P80'^ICD9(^C;18^Q"
^DD(399,68,.1)="ICD DIAGNOSIS CODE (5)"
^DD(399,68,3)="Enter the ICD diagnosis code which pertains to this billing episode."
^DD(399,68,21,0)="^^1^1^2931117^^"
^DD(399,68,21,1,0)="This is the fifth ICD diagnosis code associated with this billing episode."
^DD(399,68,23,0)="^^2^2^2931117^"
^DD(399,68,23,1,0)="Replaced by a diagnosis file (362.3) with IB v2.0.  ""*"" for deletion"
^DD(399,68,23,2,0)="on 11/10/93."
^DD(399,68,"DT")="2931110"
^DD(399,77,0)="MRA REQUEST CLAIM COMMENTS^399.077DA^^TXC;0"
^DD(399,77,21,0)="^^7^7^3071115^"
^DD(399,77,21,1,0)="This multiple structure is available only for those claims in a status of "
^DD(399,77,21,2,0)="2 - REQUEST MRA.  This will allow the users to enter comments either in "
^DD(399,77,21,3,0)="TPJI or in the MRA worklist that pertain to this claim during the time "
^DD(399,77,21,4,0)="the MRA request claim is sent to Medicare and before the MRA secondary "
^DD(399,77,21,5,0)="claim is authorized to the secondary payer."
^DD(399,77,21,6,0)=" "
^DD(399,77,21,7,0)="Once entered, comments may not be edited or deleted by the users."
^DD(399,77,"DT")="3071105"
^DD(399,101,0)="PRIMARY INSURANCE CARRIER^R*P36'X^DIC(36,^M;1^D DD^IBCNS S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"" D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,101,1,0)="^.1"
^DD(399,101,1,1,0)="^^TRIGGER^399^122"
^DD(399,101,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,X,1) X ^DD(399,101,1,1,1.4)"
^DD(399,101,1,1,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,2)=DIV,DIH=399,DIG=122 D ^DICR"
^DD(399,101,1,1,2)="Q"
^DD(399,101,1,1,3)="Do Not Delete"
^DD(399,101,1,1,"%D",0)="^.101^3^3^3020819^^"
^DD(399,101,1,1,"%D",1,0)="This trigger sets the Bill Primary Provider # based on the Form Type,  "
^DD(399,101,1,1,"%D",2,0)="using the Primary Insurance Companies Hospital or Professional Provider "
^DD(399,101,1,1,"%D",3,0)="Number.  Special case for Medicare Part A."
^DD(399,101,1,1,"CREATE VALUE")="S X=$$PRVNUM^IBCU(DA,X,1)"
^DD(399,101,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,101,1,1,"DT")="3020819"
^DD(399,101,1,1,"FIELD")="PRIMARY PROVIDER #"
^DD(399,101,1,2,0)="^^TRIGGER^399^24"
^DD(399,101,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(399,101,1,2,1.1) X ^DD(399,101,1,2,1.4)"
^DD(399,101,1,2,1.1)="S X=DIV S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^DD(399,101,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,101,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399,101,1,2,2.4)"
^DD(399,101,1,2,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,101,1,2,3)="DO NOT DELETE"
^DD(399,101,1,2,"%D",0)="^^2^2^2990628^"
^DD(399,101,1,2,"%D",1,0)="This triggers the CLAIM MRA STATUS to 'MRA NEEDED' (1N) if the primary"
^DD(399,101,1,2,"%D",2,0)="insurance is the current insurance and the current insurance = MEDICARE WNR."
^DD(399,101,1,2,"CREATE CONDITION")="I $$COBN^IBCEF(DA)=1"
^DD(399,101,1,2,"CREATE VALUE")="S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^DD(399,101,1,2,"DELETE CONDITION")="I $$COBN^IBCEF(DA)=1"
^DD(399,101,1,2,"DELETE VALUE")="@"
^DD(399,101,1,2,"DT")="2990628"
^DD(399,101,1,2,"FIELD")="CLAIM MRA STATUS"
^DD(399,101,1,3,0)="^^TRIGGER^399^27"
^DD(399,101,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=1,1:0) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(399,101,1,3,1.4)"
^DD(399,101,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,8)=DIV,DIH=399,DIG=27 D ^DICR"
^DD(399,101,1,3,2)="Q"
^DD(399,101,1,3,3)="Do not delete"
^DD(399,101,1,3,"%D",0)="^^3^3^3041119^"
^DD(399,101,1,3,"%D",1,0)="When the current insurance is the primary insurance and the primary"
^DD(399,101,1,3,"%D",2,0)="insurance is MEDICARE WNR, delete the FORCE CLAIM TO PRINT field as it"
^DD(399,101,1,3,"%D",3,0)="is not valid to print an MRA request."
^DD(399,101,1,3,"CREATE CONDITION")="S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=1,1:0)"
^DD(399,101,1,3,"CREATE VALUE")="@"
^DD(399,101,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,101,1,3,"DT")="3041119"
^DD(399,101,1,3,"FIELD")="FORCE CLAIM TO PRINT"
^DD(399,101,1,4,0)="^^TRIGGER^399^128"
^DD(399,101,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,X,1) X ^DD(399,101,1,4,1.4)"
^DD(399,101,1,4,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,10)=DIV,DIH=399,DIG=128 D ^DICR"
^DD(399,101,1,4,2)="Q"
^DD(399,101,1,4,"CREATE VALUE")="S X=$$PRVQUAL^IBCU(DA,X,1)"
^DD(399,101,1,4,"DELETE VALUE")="NO EFFECT"
^DD(399,101,1,4,"DT")="3060219"
^DD(399,101,1,4,"FIELD")="PRIMARY ID QUALIFIER"
^DD(399,101,3)="Enter name of insurance carrier to which this bill is to be sent."
^DD(399,101,5,1,0)="399^112^1"
^DD(399,101,12)="Only valid insurance companies for this date of care."
^DD(399,101,12.1)="S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"""
^DD(399,101,21,0)="^^2^2^2990503^^^^"
^DD(399,101,21,1,0)="This is the name of the insurance carrier to which this bill is to be sent."
^DD(399,101,21,2,0)="This is from the entries in this patient's file of insurance companies. "
^DD(399,101,23,0)="^^3^3^2990503^^^"
^DD(399,101,23,1,0)="Only valid/active insurance companies for this patient can be choosen,"
^DD(399,101,23,2,0)="as defined by DD^IBCNS.  Company must not already be defined as a carrier "
^DD(399,101,23,3,0)="(399,102-103) for this bill."
^DD(399,101,"DT")="3060219"
^DD(399,102,0)="SECONDARY INSURANCE CARRIER^*P36'X^DIC(36,^M;2^D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,102,1,0)="^.1"
^DD(399,102,1,1,0)="399^AI2^MUMPS"
^DD(399,102,1,1,1)="Q"
^DD(399,102,1,1,2)="Q"
^DD(399,102,1,1,"DT")="2931220"
^DD(399,102,1,2,0)="^^TRIGGER^399^123"
^DD(399,102,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,X,2) X ^DD(399,102,1,2,1.4)"
^DD(399,102,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,3)=DIV,DIH=399,DIG=123 D ^DICR"
^DD(399,102,1,2,2)="Q"
^DD(399,102,1,2,3)="Do Not Delete"
^DD(399,102,1,2,"%D",0)="^^3^3^3020819^"
^DD(399,102,1,2,"%D",1,0)="This trigger sets the Bill Secondary Provider # based on the Form Type,  "
^DD(399,102,1,2,"%D",2,0)="using the Secondary Insurance Companies Hospital or Professional Provider "
^DD(399,102,1,2,"%D",3,0)="Number.  Special case for Medicare Part A."
^DD(399,102,1,2,"CREATE VALUE")="S X=$$PRVNUM^IBCU(DA,X,2)"
^DD(399,102,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,102,1,2,"DT")="3020819"
^DD(399,102,1,2,"FIELD")="SECONDARY PROVIDER "
^DD(399,102,1,3,0)="^^TRIGGER^399^24"
^DD(399,102,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=2 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(399,102,1,3,1.1) X ^DD(399,102,1,3,1.4)"
^DD(399,102,1,3,1.1)="S X=DIV S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^DD(399,102,1,3,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,102,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $$COBN^IBCEF(DA)=2 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399,102,1,3,2.4)"
^DD(399,102,1,3,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""TX"")):^(""TX""),1:""""),DIV=X S $P(^(""TX""),U,5)=DIV,DIH=399,DIG=24 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,102,1,3,3)="DO NOT DELETE"
^DD(399,102,1,3,"%D",0)="^^3^3^2990628^"
^DD(399,102,1,3,"%D",1,0)="This trigger forces the CLAIM MRA STATUS field to be set appropriately if"
^DD(399,102,1,3,"%D",2,0)="the current insurance is the secondary insurance company and it will require"
^DD(399,102,1,3,"%D",3,0)="an MRA request."
^DD(399,102,1,3,"CREATE CONDITION")="I $$COBN^IBCEF(DA)=2"
^DD(399,102,1,3,"CREATE VALUE")="S X=$S($$REQMRA^IBEFUNC(DA):""1N"",1:"""")"
^DD(399,102,1,3,"DELETE CONDITION")="I $$COBN^IBCEF(DA)=2"
^DD(399,102,1,3,"DELETE VALUE")="@"
^DD(399,102,1,3,"DT")="2990628"
^DD(399,102,1,3,"FIELD")="CLAIM MRA STATUS"
^DD(399,102,1,4,0)="^^TRIGGER^399^27"
^DD(399,102,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=2,1:0) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""TX"")):^(""TX""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(399,102,1,4,1.4)"
^DD(399,102,1,4,1.4)="S DIH=$G(^DGCR(399,DIV(0),""TX"")),DIV=X S $P(^(""TX""),U,8)=DIV,DIH=399,DIG=27 D ^DICR"
^DD(399,102,1,4,2)="Q"
^DD(399,102,1,4,3)="Do not delete"
^DD(399,102,1,4,"%D",0)="^^3^3^3041119^"
^DD(399,102,1,4,"%D",1,0)="When the current insurance is the secondary insurance and the secondary"
^DD(399,102,1,4,"%D",2,0)="insurance is MEDICARE WNR, delete the FORCE CLAIM TO PRINT field as it"
^DD(399,102,1,4,"%D",3,0)="is not valid to print an MRA request."
^DD(399,102,1,4,"CREATE CONDITION")="S X=$S($$MCRWNR^IBEFUNC(X):$$COBN^IBCEF(DA)=2,1:0)"
^DD(399,102,1,4,"CREATE VALUE")="@"
^DD(399,102,1,4,"DELETE VALUE")="NO EFFECT"
^DD(399,102,1,4,"DT")="3041119"
^DD(399,102,1,4,"FIELD")="FORCE CLAIM TO PRINT"
^DD(399,102,1,5,0)="^^TRIGGER^399^129"
^DD(399,102,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,X,2) X ^DD(399,102,1,5,1.4)"
^DD(399,102,1,5,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,11)=DIV,DIH=399,DIG=129 D ^DICR"
^DD(399,102,1,5,2)="Q"
^DD(399,102,1,5,"CREATE VALUE")="S X=$$PRVQUAL^IBCU(DA,X,2)"
^DD(399,102,1,5,"DELETE VALUE")="NO EFFECT"
^DD(399,102,1,5,"DT")="3060219"
^DD(399,102,1,5,"FIELD")="SECONDARY ID QUALIFIER"
^DD(399,102,3)="Enter name of secondary insurance carrier from which the provider might expect some payment for this bill."
^DD(399,102,5,1,0)="399^113^1"
^DD(399,102,12)="Only valid insurance companies for this date of care."
^DD(399,102,12.1)="S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"""
^DD(399,102,21,0)="^^2^2^2880831^"
^DD(399,102,21,1,0)="This is the name of the secondary insurance carrier from which the provider"
^DD(399,102,21,2,0)="might expect some payment for this bill."
^DD(399,102,"DT")="3060219"
^DD(399,103,0)="TERTIARY INSURANCE CARRIER^*P36'X^DIC(36,^M;3^D ^DIC K DIC,IBDD S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,103,1,0)="^.1"
^DD(399,103,1,1,0)="399^AI3^MUMPS"
^DD(399,103,1,1,1)="Q"
^DD(399,103,1,1,2)="Q"
^DD(399,103,1,1,"DT")="2931220"
^DD(399,103,1,2,0)="^^TRIGGER^399^124"
^DD(399,103,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$$PRVNUM^IBCU(DA,X,3) X ^DD(399,103,1,2,1.4)"
^DD(399,103,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,4)=DIV,DIH=399,DIG=124 D ^DICR"
^DD(399,103,1,2,2)="Q"
^DD(399,103,1,2,3)="Do Not Delete"
^DD(399,103,1,2,"%D",0)="^^3^3^3020819^"
^DD(399,103,1,2,"%D",1,0)="This trigger sets the Bill Tertiary Provider # based on the Form Type,  "
^DD(399,103,1,2,"%D",2,0)="using the Tertiary Insurance Companies Hospital or Professional Provider "
^DD(399,103,1,2,"%D",3,0)="Number.  Special case for Medicare Part A."
^DD(399,103,1,2,"CREATE VALUE")="S X=$$PRVNUM^IBCU(DA,X,3)"
^DD(399,103,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,103,1,2,"DT")="3020819"
^DD(399,103,1,2,"FIELD")="TERTIARY PROVIDER"
^DD(399,103,1,3,0)="^^TRIGGER^399^130"
^DD(399,103,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$PRVQUAL^IBCU(DA,X,3) X ^DD(399,103,1,3,1.4)"
^DD(399,103,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,12)=DIV,DIH=399,DIG=130 D ^DICR"
^DD(399,103,1,3,2)="Q"
^DD(399,103,1,3,"CREATE VALUE")="S X=$$PRVQUAL^IBCU(DA,X,3)"
^DD(399,103,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,103,1,3,"DT")="3060219"
^DD(399,103,1,3,"FIELD")="TERTIARY ID QUALIFIER"
^DD(399,103,3)="Enter name of tertiary insurance carrier from which the provider might expect some payment for this bill."
^DD(399,103,5,1,0)="399^114^1"
^DD(399,103,12)="Only valid insurance companies for this date of care."
^DD(399,103,12.1)="S DIC(""S"")=""I $D(IBDD(+Y)),'$D(^DGCR(399,DA,""""AIC"""",+Y))"""
^DD(399,103,21,0)="^^2^2^2880831^"
^DD(399,103,21,1,0)="This is the name of the tertiary insurance carrier from which the provider"
^DD(399,103,21,2,0)="might expect some payment for this bill."
^DD(399,103,"DT")="3060219"
^DD(399,104,0)="MAILING ADDRESS NAME^F^^M;4^K:$L(X)>30!($L(X)<1) X"
^DD(399,104,3)="Enter the name or title of the person to which this bill is to be sent."
^DD(399,104,21,0)="^^1^1^2880831^"
^DD(399,104,21,1,0)="This is the name of the party to whom this bill is to be sent."
^DD(399,104,"DT")="2880523"
^DD(399,105,0)="MAILING ADDRESS STREET^FX^^M;5^K:$L(X)>35!($L(X)<3) X"
^DD(399,105,3)="Enter the 3-35 character street address to which this bill is to be mailed."
^DD(399,105,9.3)="I '$D(^DGCR(399,D0,""M"")),$D(^DGCR(399,D0,""I1"")) S IBITY=$P(^DGCR(399,D0,""I1""),""^"",1),IBIMA=^DIC(36,IBITY,2,1,0) I $D(IBIMA),IBIMA'="""" S ^DGCR(399,D0,""M"")=IBIMA"
^DD(399,105,21,0)="^^1^1^2900307^^^"
^DD(399,105,21,1,0)="This is the street address to which this bill is to be sent."
^DD(399,105,"DT")="2890131"
^DD(399,106,0)="MAILING ADDRESS STREET2^F^^M;6^K:$L(X)>35!($L(X)<3) X"
^DD(399,106,3)="Enter the 3-35 character street address to which this bill is to be mailed."
^DD(399,106,21,0)="^^1^1^2900307^^^"
^DD(399,106,21,1,0)="This is the street address to which this bill is to be sent."
^DD(399,107,0)="MAILING ADDRESS CITY^F^^M;7^K:$L(X)>25!($L(X)<2) X"
^DD(399,107,3)="Enter the 2-25 character city to which this bill is to be mailed."
^DD(399,107,21,0)="^^1^1^2880831^"
^DD(399,107,21,1,0)="This is the city to which this bill is to be sent."
^DD(399,107,"DT")="2890213"
^DD(399,108,0)="MAILING ADDRESS STATE^P5'^DIC(5,^M;8^Q"
^DD(399,108,3)="Enter the state to which this bill is to be mailed."
^DD(399,108,21,0)="^^1^1^2880831^"
^DD(399,108,21,1,0)="This is the state to which this bill is to be sent."
^DD(399,108,"DT")="2880523"
^DD(399,109,0)="MAILING ADDRESS ZIP CODE^FX^^M;9^S:$E(X,6)=""-"" X=$TR(X,""-"") K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(399,109,3)="Enter the 5-digit or 9-digit zip code to which this bill is to be sent."
^DD(399,109,21,0)="^^1^1^2990511^^^"
^DD(399,109,21,1,0)="This is the 5-digit or 9-digit zip code to which this bill is to be sent."
^DD(399,109,"DT")="2990510"
^DD(399,110,0)="*PATIENT SHORT MAILING ADDRESS^RF^^M;10^K:$L(X)>47!($L(X)<1) X"
^DD(399,110,3)="Answer with the 1-47 character short form of the patient mailing address.  This is all the information run together with a maximum of 47 characters."
^DD(399,110,21,0)="^.001^7^7^3070207^^"
^DD(399,110,21,1,0)="This is the 1-47 character patient mailing address that will print in"
^DD(399,110,21,2,0)="block 11 on the UB-82 form and block 13 on the UB-92.  The computer will"
^DD(399,110,21,3,0)="try to calculate this.  If the length of all the patient address"
^DD(399,110,21,4,0)="fields is longer than 47 characters you will need to abbreviate this in"
^DD(399,110,21,5,0)="order to get it to print in this block."
^DD(399,110,21,6,0)=" "
^DD(399,110,21,7,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,110,"DT")="3070207"
^DD(399,111,0)="RESPONSIBLE INSTITUTION^RP4^DIC(4,^M;11^Q"
^DD(399,111,1,0)="^.1"
^DD(399,111,1,1,0)="399^AML^MUMPS"
^DD(399,111,1,1,1)="D MAILIN^IBCU5"
^DD(399,111,1,1,2)="D DEL^IBCU5"
^DD(399,111,1,1,"%D",0)="^^1^1^2940214^"
^DD(399,111,1,1,"%D",1,0)="Sets/deletes mailing address."
^DD(399,111,1,2,0)="399^AREV5^MUMPS"
^DD(399,111,1,2,1)="S DGRVRCAL=1"
^DD(399,111,1,2,2)="S DGRVRCAL=2"
^DD(399,111,1,2,"%D",0)="^^2^2^2940214^"
^DD(399,111,1,2,"%D",1,0)="Variable causes revenue codes and chrges to be re-calculated on return"
^DD(399,111,1,2,"%D",2,0)="to the enter/edit billing screens."
^DD(399,111,3)="Enter name of the institution or organization responsible for payment of this bill."
^DD(399,111,21,0)="^^2^2^2940114^^^"
^DD(399,111,21,1,0)="This is the name of the institution or organization responsible for payment"
^DD(399,111,21,2,0)="of this bill."
^DD(399,111,"DT")="2900515"
^DD(399,112,0)="PRIMARY INSURANCE POLICY^FXO^^M;12^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X D:$D(X) DD^IBCNS2(X,DA,1)"
^DD(399,112,1,0)="^.1"
^DD(399,112,1,1,0)="^^TRIGGER^399^101"
^DD(399,112,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M"")):^(""M""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(399,112,1,1,1.1) X ^DD(399,112,1,1,1.4)"
^DD(399,112,1,1,1.1)="S X=DIV S X=+$$INSCO^IBCNS2(DA,$P(^DGCR(399,DA,""M""),U,12))"
^DD(399,112,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""M"")):^(""M""),1:""""),DIV=X S $P(^(""M""),U,1)=DIV,DIH=399,DIG=101 D ^DICR"
^DD(399,112,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M"")):^(""M""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(399,112,1,1,2.4)"
^DD(399,112,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""M"")):^(""M""),1:""""),DIV=X S $P(^(""M""),U,1)=DIV,DIH=399,DIG=101 D ^DICR"
^DD(399,112,1,1,"CREATE VALUE")="S X=+$$INSCO^IBCNS2(DA,$P(^DGCR(399,DA,""M""),U,12))"
^DD(399,112,1,1,"DELETE VALUE")="@"
^DD(399,112,1,1,"DT")="3000124"
^DD(399,112,1,1,"FIELD")="#101"
^DD(399,112,1,2,0)="399^AI11^MUMPS"
^DD(399,112,1,2,1)="D IX^IBCNS2(DA,""I1"")"
^DD(399,112,1,2,2)="D KIX^IBCNS2(DA,""I1"")"
^DD(399,112,1,2,"%D",0)="^^2^2^2931220^^"
^DD(399,112,1,2,"%D",1,0)="Sets ""I1"" x-ref and ""aic"" x-ref for bill/claims file.  These indexes "
^DD(399,112,1,2,"%D",2,0)="previously were set by field #101."
^DD(399,112,1,2,"DT")="2931220"
^DD(399,112,1,3,0)="^^TRIGGER^399^136"
^DD(399,112,1,3,1)="X ^DD(399,112,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$BPP^IBCNS2(DA,1) X ^DD(399,112,1,3,1.4)"
^DD(399,112,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,.21,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,21)_"":"",2),$C(59),1)=""PRIMARY INSURANCE"""
^DD(399,112,1,3,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,112,1,3,2)="X ^DD(399,112,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(399,112,1,3,2.4)"
^DD(399,112,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,.21,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,21)_"":"",2),$C(59),1)=""PRIMARY INSURANCE"""
^DD(399,112,1,3,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,112,1,3,"%D",0)="^^1^1^2990503^^"
^DD(399,112,1,3,"%D",1,0)="If this is a Primary Bill then set Bill Payer to the Primary Payer."
^DD(399,112,1,3,"CREATE CONDITION")="CURRENT BILL PAYER SEQUENCE=""PRIMARY INSURANCE"""
^DD(399,112,1,3,"CREATE VALUE")="S X=$$BPP^IBCNS2(DA,1)"
^DD(399,112,1,3,"DELETE CONDITION")="CURRENT BILL PAYER SEQUENCE=""PRIMARY INSURANCE"""
^DD(399,112,1,3,"DELETE VALUE")="@"
^DD(399,112,1,3,"DT")="2970821"
^DD(399,112,1,3,"FIELD")="BILL PAYER POLICY"
^DD(399,112,2)="S Y(0)=Y S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,112,2.1)="S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,112,3)="Select this patient's insurance policy that is the primary policy to be billed.  Enter the name of the Ins. Company or its internal entry number."
^DD(399,112,4)="D DDHELP^IBCNS2(DA,1)"
^DD(399,112,5,1,0)="399^.11^1"
^DD(399,112,21,0)="^.001^1^1^3001030^^^^"
^DD(399,112,21,1,0)="The policy to be billed for this episode of care."
^DD(399,112,"DT")="3030131"
^DD(399,113,0)="SECONDARY INSURANCE POLICY^FOX^^M;13^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X D:$D(X) DD^IBCNS2(X,DA,2)"
^DD(399,113,1,0)="^.1^^-1"
^DD(399,113,1,1,0)="^^TRIGGER^399^102"
^DD(399,113,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M"")):^(""M""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(399,113,1,1,1.1) X ^DD(399,113,1,1,1.4)"
^DD(399,113,1,1,1.1)="S X=DIV S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,""M""),U,13))"
^DD(399,113,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""M"")):^(""M""),1:""""),DIV=X S $P(^(""M""),U,2)=DIV,DIH=399,DIG=102 D ^DICR"
^DD(399,113,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M"")):^(""M""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(399,113,1,1,2.4)"
^DD(399,113,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""M"")):^(""M""),1:""""),DIV=X S $P(^(""M""),U,2)=DIV,DIH=399,DIG=102 D ^DICR"
^DD(399,113,1,1,"CREATE VALUE")="S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,""M""),U,13))"
^DD(399,113,1,1,"DELETE VALUE")="@"
^DD(399,113,1,1,"DT")="2931203"
^DD(399,113,1,1,"FIELD")="SECONDARY INSURANCE CARRIER"
^DD(399,113,1,2,0)="399^AI21^MUMPS"
^DD(399,113,1,2,1)="D IX^IBCNS2(DA,""I2"")"
^DD(399,113,1,2,2)="D KIX^IBCNS2(DA,""I2"")"
^DD(399,113,1,2,"%D",0)="^^2^2^2931220^"
^DD(399,113,1,2,"%D",1,0)="Sets ""I2"" x-ref and ""aic"" x-ref for bill/claims file.  These indexes "
^DD(399,113,1,2,"%D",2,0)="previously were set by field #102."
^DD(399,113,1,2,"DT")="2931220"
^DD(399,113,1,3,0)="^^TRIGGER^399^136"
^DD(399,113,1,3,1)="X ^DD(399,113,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$BPP^IBCNS2(DA,1) X ^DD(399,113,1,3,1.4)"
^DD(399,113,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,.21,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,21)_"":"",2),$C(59),1)=""SECONDARY INSURANCE"""
^DD(399,113,1,3,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,113,1,3,2)="X ^DD(399,113,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(399,113,1,3,2.4)"
^DD(399,113,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,.21,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,21)_"":"",2),$C(59),1)=""SECONDARY INSURANCE"""
^DD(399,113,1,3,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,113,1,3,"%D",0)="^^1^1^2970821^"
^DD(399,113,1,3,"%D",1,0)="If this is a Secondary Bill then set the Bill Payer to the Secondary Payer."
^DD(399,113,1,3,"CREATE CONDITION")="CURRENT BILL PAYER SEQUENCE=""SECONDARY INSURANCE"""
^DD(399,113,1,3,"CREATE VALUE")="S X=$$BPP^IBCNS2(DA,1)"
^DD(399,113,1,3,"DELETE CONDITION")="CURRENT BILL PAYER SEQUENCE=""SECONDARY INSURANCE"""
^DD(399,113,1,3,"DELETE VALUE")="@"
^DD(399,113,1,3,"DT")="2970821"
^DD(399,113,1,3,"FIELD")="BILL PAYER POLICY"
^DD(399,113,2)="S Y(0)=Y S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,113,2.1)="S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,113,3)="Select this patient's insurance policy that is the secondary policy to be billed.  Enter the name of the Ins. Company or its internal entry number."
^DD(399,113,4)="D DDHELP^IBCNS2(DA,2)"
^DD(399,113,21,0)="^^1^1^2940214^"
^DD(399,113,21,1,0)="The secondary policy to be billed for this episode of care."
^DD(399,113,"DT")="3030131"
^DD(399,114,0)="TERTIARY INSURANCE POLICY^FOX^^M;14^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X D:$D(X) DD^IBCNS2(X,DA,3)"
^DD(399,114,1,0)="^.1"
^DD(399,114,1,1,0)="^^TRIGGER^399^103"
^DD(399,114,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M"")):^(""M""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(399,114,1,1,1.1) X ^DD(399,114,1,1,1.4)"
^DD(399,114,1,1,1.1)="S X=DIV S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,""M""),U,14))"
^DD(399,114,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""M"")):^(""M""),1:""""),DIV=X S $P(^(""M""),U,3)=DIV,DIH=399,DIG=103 D ^DICR"
^DD(399,114,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""M"")):^(""M""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(399,114,1,1,2.4)"
^DD(399,114,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""M"")):^(""M""),1:""""),DIV=X S $P(^(""M""),U,3)=DIV,DIH=399,DIG=103 D ^DICR"
^DD(399,114,1,1,"CREATE VALUE")="S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,""M""),U,14))"
^DD(399,114,1,1,"DELETE VALUE")="@"
^DD(399,114,1,1,"DT")="2931203"
^DD(399,114,1,1,"FIELD")="TERTIARY INSURANCE CARRIER"
^DD(399,114,1,2,0)="399^AI31^MUMPS"
^DD(399,114,1,2,1)="D IX^IBCNS2(DA,""I3"")"
^DD(399,114,1,2,2)="D KIX^IBCNS2(DA,""I3"")"
^DD(399,114,1,2,"%D",0)="^^2^2^2931220^"
^DD(399,114,1,2,"%D",1,0)="Sets ""I3"" x-ref and ""aic"" x-ref for bill/claims file.  These indexes "
^DD(399,114,1,2,"%D",2,0)="previously were set by field #103."
^DD(399,114,1,2,"DT")="2931220"
^DD(399,114,1,3,0)="^^TRIGGER^399^136"
^DD(399,114,1,3,1)="X ^DD(399,114,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$$BPP^IBCNS2(DA) X ^DD(399,114,1,3,1.4)"
^DD(399,114,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,.21,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,21)_"":"",2),$C(59),1)=""TERTIARY INSURANCE"""
^DD(399,114,1,3,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,114,1,3,2)="X ^DD(399,114,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(399,114,1,3,2.4)"
^DD(399,114,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(399,.21,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,21)_"":"",2),$C(59),1)=""TERTIARY INSURANCE"""
^DD(399,114,1,3,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,2)=DIV,DIH=399,DIG=136 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,114,1,3,"%D",0)="^^1^1^2970821^"
^DD(399,114,1,3,"%D",1,0)="If this is a Tertiary Bill then set the Bill Payer to the Tertiary Payer."
^DD(399,114,1,3,"CREATE CONDITION")="CURRENT BILL PAYER SEQUENCE=""TERTIARY INSURANCE"""
^DD(399,114,1,3,"CREATE VALUE")="S X=$$BPP^IBCNS2(DA)"
^DD(399,114,1,3,"DELETE CONDITION")="CURRENT BILL PAYER SEQUENCE=""TERTIARY INSURANCE"""
^DD(399,114,1,3,"DELETE VALUE")="@"
^DD(399,114,1,3,"DT")="2970821"
^DD(399,114,1,3,"FIELD")="BILL PAYER POLICY"
^DD(399,114,2)="S Y(0)=Y S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,114,2.1)="S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,114,3)="Select this patient's insurance policy that is the tertiary policy to be billed.  Enter the name of the Ins. Company or its internal entry number."
^DD(399,114,4)="D DDHELP^IBCNS2(DA,3)"
^DD(399,114,21,0)="^^1^1^2940214^"
^DD(399,114,21,1,0)="The tertiary policy to be billed for this episode of care."
^DD(399,114,"DT")="3030131"
^DD(399,121,0)="MAILING ADDRESS STREET3^F^^M1;1^K:$L(X)>35!($L(X)<3) X"
^DD(399,121,3)="Enter the 3-35 character street address to which this bill is to be sent."
^DD(399,121,21,0)="^^1^1^2890110^"
^DD(399,121,21,1,0)="This is the street address to which this bill is to be sent."
^DD(399,121,"DT")="2890110"
^DD(399,122,0)="PRIMARY PROVIDER #^FX^^M1;2^K:$L(X)>13!($L(X)<3)!($TR(X,"" "")="""") X"
^DD(399,122,1,0)="^.1"
^DD(399,122,1,1,0)="^^TRIGGER^399^128"
^DD(399,122,1,1,1)="Q"
^DD(399,122,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,2)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" X ^DD(399,122,1,1,2.4)"
^DD(399,122,1,1,2.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,10)=DIV,DIH=399,DIG=128 D ^DICR"
^DD(399,122,1,1,"%D",0)="^^2^2^3060410^"
^DD(399,122,1,1,"%D",1,0)="This trigger will delete the PRIMARY ID QUALIFIER when the PRIMARY "
^DD(399,122,1,1,"%D",2,0)="PROVIDER # is deleted"
^DD(399,122,1,1,"CREATE VALUE")="NO EFFECT"
^DD(399,122,1,1,"DELETE CONDITION")="PRIMARY PROVIDER #="""""
^DD(399,122,1,1,"DELETE VALUE")="@"
^DD(399,122,1,1,"FIELD")="PRIMARY ID QUALIFIER"
^DD(399,122,3)="Answer must be 3-13 characters in length."
^DD(399,122,5,1,0)="399^101^1"
^DD(399,122,5,2,0)="399^.22^1"
^DD(399,122,21,0)="^^2^2^3070622^^^"
^DD(399,122,21,1,0)="This is the number assigned to the provider by the primary payer."
^DD(399,122,21,2,0)="Printed in Form Locator 57 for the Primary Insurance Carrier on the UB-04."
^DD(399,122,"DT")="3070622"
^DD(399,123,0)="SECONDARY PROVIDER #^FX^^M1;3^K:$L(X)>13!($L(X)<3)!($TR(X,"" "")="""") X"
^DD(399,123,1,0)="^.1"
^DD(399,123,1,1,0)="^^TRIGGER^399^129"
^DD(399,123,1,1,1)="Q"
^DD(399,123,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(399,123,1,1,2.4)"
^DD(399,123,1,1,2.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,11)=DIV,DIH=399,DIG=129 D ^DICR"
^DD(399,123,1,1,"%D",0)="^^2^2^3060410^"
^DD(399,123,1,1,"%D",1,0)="This trigger will delete the SECONDARY ID QUALIFIER when the SECONDARY"
^DD(399,123,1,1,"%D",2,0)="PROVIDER # is deleted"
^DD(399,123,1,1,"CREATE VALUE")="NO EFFECT"
^DD(399,123,1,1,"DELETE CONDITION")="SECONDARY PROVIDER #="""""
^DD(399,123,1,1,"DELETE VALUE")="@"
^DD(399,123,1,1,"FIELD")="SECONDARY ID QUALIFIER"
^DD(399,123,3)="Answer must be 3-13 characters in length."
^DD(399,123,5,1,0)="399^102^2"
^DD(399,123,5,2,0)="399^.22^2"
^DD(399,123,21,0)="^^3^3^3070116^"
^DD(399,123,21,1,0)="This is the number assigned to the provider by the secondary payer."
^DD(399,123,21,2,0)="Printed in Form Locator 57 for the Secondary Insurance Carrier on the"
^DD(399,123,21,3,0)="UB-04."
^DD(399,123,"DT")="3070622"
^DD(399,124,0)="TERTIARY PROVIDER #^FX^^M1;4^K:$L(X)>13!($L(X)<3)!($TR(X,"" "")="""") X"
^DD(399,124,1,0)="^.1"
^DD(399,124,1,1,0)="^^TRIGGER^399^130"
^DD(399,124,1,1,1)="Q"
^DD(399,124,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,4)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""M1"")):^(""M1""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(399,124,1,1,2.4)"
^DD(399,124,1,1,2.4)="S DIH=$G(^DGCR(399,DIV(0),""M1"")),DIV=X S $P(^(""M1""),U,12)=DIV,DIH=399,DIG=130 D ^DICR"
^DD(399,124,1,1,"%D",0)="^^2^2^3060410^"
^DD(399,124,1,1,"%D",1,0)="This trigger will delete the TERTIARY ID QUALIFIER when the TERTIARY"
^DD(399,124,1,1,"%D",2,0)="PROVIDER # is deleted"
^DD(399,124,1,1,"CREATE VALUE")="NO EFFECT"
^DD(399,124,1,1,"DELETE CONDITION")="TERTIARY PROVIDER #="""""
^DD(399,124,1,1,"DELETE VALUE")="@"
^DD(399,124,1,1,"FIELD")="TERTIARY ID QUALIFIER"
^DD(399,124,3)="Answer must be 3-13 characters in length."
^DD(399,124,5,1,0)="399^103^2"
^DD(399,124,5,2,0)="399^.22^3"
^DD(399,124,21,0)="^^3^3^3070116^"
^DD(399,124,21,1,0)="This is the number assigned to the provider by the tertiary payer."
^DD(399,124,21,2,0)="Printed in Form Locator 57 for the Tertiary Insurance Carrier on the"
^DD(399,124,21,3,0)="UB-04."
^DD(399,124,"DT")="3070622"
^DD(399,125,0)="PRIMARY BILL #^*P399'^DGCR(399,^M1;5^S DIC(""S"")=""I $P(^(0),U,21)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,125,3)="Enter the Primary Bill in the series for this episode of care."
^DD(399,125,12)="Primary Bills Only!"
^DD(399,125,12.1)="S DIC(""S"")=""I $P(^(0),U,21)=""""P"""""""
^DD(399,125,21,0)="^^1^1^2970821^"
^DD(399,125,21,1,0)="This is the bill to the Primary Payer for the episode(s) on this bill."
^DD(399,125,"DT")="2970821"
^DD(399,126,0)="SECONDARY BILL #^*P399'^DGCR(399,^M1;6^S DIC(""S"")=""I $P(^(0),U,21)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,126,3)="Enter the Secondary Bill in the series for this episode of care."
^DD(399,126,12)="Secondary Bills Only!"
^DD(399,126,12.1)="S DIC(""S"")=""I $P(^(0),U,21)=""""S"""""""
^DD(399,126,21,0)="^^1^1^2970821^"
^DD(399,126,21,1,0)="This is the bill to the Secondary Payer for the episode(s) on this bill."
^DD(399,126,"DT")="2970821"
^DD(399,127,0)="TERTIARY BILL #^*P399'^DGCR(399,^M1;7^S DIC(""S"")=""I $P(^(0),U,21)=""""T"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,127,3)="Enter the Tertiary Bill in the series for this episode of care."
^DD(399,127,12)="Tertiary Bills Only!"
^DD(399,127,12.1)="S DIC(""S"")=""I $P(^(0),U,21)=""""T"""""""
^DD(399,127,21,0)="^^1^1^2970821^"
^DD(399,127,21,1,0)="This is the bill to the Tertiary Payer for the episode(s) on this bill."
^DD(399,127,"DT")="2970821"
^DD(399,128,0)="PRIMARY ID QUALIFIER^*P355.97'^IBE(355.97,^M1;10^S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,128,3)="Enter the Qualifier for the Primary Insurance ID #"
^DD(399,128,5,1,0)="399^101^4"
^DD(399,128,5,2,0)="399^.22^4"
^DD(399,128,5,3,0)="399^122^1"
^DD(399,128,5,4,0)="399^122^1"
^DD(399,128,12)="Only Billing Provider Secondary IDs allowed"
^DD(399,128,12.1)="S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"""
^DD(399,128,21,0)="^^1^1^3060309^"
^DD(399,128,21,1,0)="This is the qualifier for PRIMARY PROVIDER #."
^DD(399,128,"DT")="3060417"
^DD(399,129,0)="SECONDARY ID QUALIFIER^*P355.97'^IBE(355.97,^M1;11^S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,129,3)="Enter the Qualifier for the Secondary Insurance ID #"
^DD(399,129,5,1,0)="399^102^5"
^DD(399,129,5,2,0)="399^.22^5"
^DD(399,129,5,3,0)="399^123^1"
^DD(399,129,5,4,0)="399^123^1"
^DD(399,129,12)="Only Billing Provider Secondary IDs allowed"
^DD(399,129,12.1)="S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"""
^DD(399,129,21,0)="^^1^1^3060309^"
^DD(399,129,21,1,0)="This is the qualifier for the SECONDARY PROVIDER #."
^DD(399,129,"DT")="3060417"
^DD(399,130,0)="TERTIARY ID QUALIFIER^*P355.97'^IBE(355.97,^M1;12^S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,130,3)="Enter the Qualifier for the Tertiary Insurance ID #"
^DD(399,130,5,1,0)="399^103^3"
^DD(399,130,5,2,0)="399^.22^6"
^DD(399,130,5,3,0)="399^124^1"
^DD(399,130,5,4,0)="399^124^1"
^DD(399,130,12)="Only Billing Provider Secondary IDs allowed"
^DD(399,130,12.1)="S DIC(""S"")=""I $$BPS^IBCEPU(Y)!($$EPT^IBCEPU(Y))"""
^DD(399,130,21,0)="^.001^1^1^3060309^^"
^DD(399,130,21,1,0)="This is the qualifier for the TERTIARY PROVIDER #."
^DD(399,130,"DT")="3060417"
^DD(399,135,0)="BILL PAYER CARRIER^*P36'^DIC(36,^MP;1^S DIC(""S"")=""I $D(^DGCR(399,DA,""""AIC"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,135,1,0)="^.1^^-1"
^DD(399,135,1,2,0)="^^TRIGGER^399^.19"
^DD(399,135,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=$$FT^IBCU3(DA,1) X ^DD(399,135,1,2,1.4)"
^DD(399,135,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,19)=DIV,DIH=399,DIG=.19 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,135,1,2,2)="Q"
^DD(399,135,1,2,"%D",0)="^^1^1^2990305^"
^DD(399,135,1,2,"%D",1,0)="Sets the bill Form Type based on Insurance, Charge Type, and Site default."
^DD(399,135,1,2,"CREATE VALUE")="S X=$$FT^IBCU3(DA,1)"
^DD(399,135,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,135,1,2,"DT")="2990305"
^DD(399,135,1,2,"FIELD")="FORM TYPE"
^DD(399,135,1,3,0)="399^AML2^MUMPS"
^DD(399,135,1,3,1)="D MAILA^IBCU5"
^DD(399,135,1,3,2)="D DEL^IBCU5"
^DD(399,135,1,3,"%D",0)="^^1^1^2970821^"
^DD(399,135,1,3,"%D",1,0)="Sets Mailing Address to the address of the Bill Payer."
^DD(399,135,1,3,"DT")="2970821"
^DD(399,135,1,4,0)="399^AREV4^MUMPS"
^DD(399,135,1,4,1)="S DGRVRCAL=1"
^DD(399,135,1,4,2)="S DGRVRCAL=2"
^DD(399,135,1,4,"%D",0)="^^1^1^2980225^^"
^DD(399,135,1,4,"%D",1,0)="This variable causes the bills charges to be recalculated."
^DD(399,135,1,4,"DT")="2970821"
^DD(399,135,3)="Select the Insurance Carrier responsible for this bill."
^DD(399,135,5,1,0)="399^136^1"
^DD(399,135,12)="Only Insurance Companies already assigned to this bill!"
^DD(399,135,12.1)="S DIC(""S"")=""I $D(^DGCR(399,DA,""""AIC"""",+Y))"""
^DD(399,135,21,0)="^^3^3^2970821^^^"
^DD(399,135,21,1,0)="This is the Insurance Carrier responsible for the bill.  This may only be"
^DD(399,135,21,2,0)="set to the Carrier assigned as Primary, Secondary, or Tertiary carrier"
^DD(399,135,21,3,0)="that corresponds to the Payer Sequence."
^DD(399,135,"DT")="2990305"
^DD(399,136,0)="BILL PAYER POLICY^FXO^^MP;2^K:$L(X)>20!($L(X)<1) X K:$G(X)'=$$BPP^IBCNS2(DA) X"
^DD(399,136,1,0)="^.1"
^DD(399,136,1,1,0)="^^TRIGGER^399^135"
^DD(399,136,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X='$$WNRBILL^IBEFUNC(DA) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(399,136,1,1,1.1) X ^DD(399,136,1,1,1.4)"
^DD(399,136,1,1,1.1)="S X=DIV S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,""MP""),U,2))"
^DD(399,136,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,1)=DIV,DIH=399,DIG=135 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,136,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""MP"")):^(""MP""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(399,136,1,1,2.4)"
^DD(399,136,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""MP"")):^(""MP""),1:""""),DIV=X S $P(^(""MP""),U,1)=DIV,DIH=399,DIG=135 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,136,1,1,"%D",0)="^^2^2^2990503^"
^DD(399,136,1,1,"%D",1,0)="Sets the BILL PAYER CARRIER to the Bill Payer Policy Insurance Company if"
^DD(399,136,1,1,"%D",2,0)="insurance is not Medicare - will not reimburse."
^DD(399,136,1,1,"CREATE CONDITION")="S X='$$WNRBILL^IBEFUNC(DA)"
^DD(399,136,1,1,"CREATE VALUE")="S X=+$$INSCO^IBCNS2(DA,+$P(^DGCR(399,DA,""MP""),U,2))"
^DD(399,136,1,1,"DELETE VALUE")="@"
^DD(399,136,1,1,"DT")="2990503"
^DD(399,136,1,1,"FIELD")="BILL PAYER CARRIER"
^DD(399,136,2)="S Y(0)=Y S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,136,2.1)="S Y=$$TRANS^IBCNS2($G(DA,D0),Y)"
^DD(399,136,3)="Select the policy responsible for this bill."
^DD(399,136,5,1,0)="399^.21^1"
^DD(399,136,5,2,0)="399^112^3"
^DD(399,136,5,3,0)="399^113^3"
^DD(399,136,5,4,0)="399^114^3"
^DD(399,136,21,0)="^^3^3^2970821^^^^"
^DD(399,136,21,1,0)="This is the policy responsible for this bill.  This may only be set to the"
^DD(399,136,21,2,0)="policy assigned as Primary, Secondary, or Tertiary policy that corresponds"
^DD(399,136,21,3,0)="to the Payer Sequence."
^DD(399,136,"DT")="3030131"
^DD(399,151,0)="STATEMENT COVERS FROM^RDX^^U;1^S %DT=""ETP"" D ^%DT S X=Y K:Y<1 X I $D(X) D DDAT^IBCU4 K IB00"
^DD(399,151,1,0)="^.1"
^DD(399,151,1,1,0)="^^TRIGGER^399^165"
^DD(399,151,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,0),U,5)<3 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$LOS1^IBCU64(DA) X ^DD(399,151,1,1,1.4)"
^DD(399,151,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,15)=DIV,DIH=399,DIG=165 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,151,1,1,2)="Q"
^DD(399,151,1,1,"%D",0)="^^1^1^2931018^"
^DD(399,151,1,1,"%D",1,0)="Sets Length of Stay based on PTF record and date range of bill.  Inpatient only."
^DD(399,151,1,1,"CREATE CONDITION")="I $P(^DGCR(399,DA,0),U,5)<3"
^DD(399,151,1,1,"CREATE VALUE")="S X=$$LOS1^IBCU64(DA)"
^DD(399,151,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,151,1,1,"DT")="2931018"
^DD(399,151,1,1,"FIELD")="LENGTH OF STAY"
^DD(399,151,1,2,0)="399^AREV2^MUMPS"
^DD(399,151,1,2,1)="S DGRVRCAL=1"
^DD(399,151,1,2,2)="S DGRVRCAL=2"
^DD(399,151,1,2,"%D",0)="^^2^2^2990222^^"
^DD(399,151,1,2,"%D",1,0)="Variable causes revenue codes and charges to be re-calculated on return"
^DD(399,151,1,2,"%D",2,0)="to the enter/edit billing screens."
^DD(399,151,1,3,0)="^^TRIGGER^399^201"
^DD(399,151,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I +$G(^DGCR(399,DA,""U1""))=0 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(399,151,1,3,1.4)"
^DD(399,151,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U1"")),DIV=X S $P(^(""U1""),U,1)=DIV,DIH=399,DIG=201 D ^DICR"
^DD(399,151,1,3,2)="Q"
^DD(399,151,1,3,"CREATE CONDITION")="I +$G(^DGCR(399,DA,""U1""))=0"
^DD(399,151,1,3,"CREATE VALUE")="S X=0"
^DD(399,151,1,3,"DELETE VALUE")="NO EFFECT"
^DD(399,151,1,3,"DT")="3011023"
^DD(399,151,1,3,"FIELD")="TOTAL CHARGE"
^DD(399,151,1,4,0)="399^APDS^MUMPS"
^DD(399,151,1,4,1)="S:$P(^DGCR(399,DA,0),""^"",2) ^DGCR(399,""APDS"",$P(^(0),U,2),-X,DA)="""""
^DD(399,151,1,4,2)="K:$P(^DGCR(399,DA,0),""^"",2) ^DGCR(399,""APDS"",$P(^(0),U,2),-X,DA)"
^DD(399,151,1,4,"%D",0)="^^1^1^2950413^"
^DD(399,151,1,4,"%D",1,0)="Patients and bills by inverse Statement From Date."
^DD(399,151,1,4,"DT")="2950413"
^DD(399,151,3)="Enter the beginning service date of the period included on this bill."
^DD(399,151,21,0)="^.001^2^2^3010522^^^^"
^DD(399,151,21,1,0)="This is the beginning service date of the period covered by this bill."
^DD(399,151,21,2,0)="The date range for inpatient interim bills should not be overlapped."
^DD(399,151,"DT")="3011023"
^DD(399,152,0)="STATEMENT COVERS TO^RDX^^U;2^S %DT=""ETP"" D ^%DT S X=Y K:Y<1 X I $D(X) D DDAT1^IBCU4 K IB00"
^DD(399,152,1,0)="^.1"
^DD(399,152,1,1,0)="^^TRIGGER^399^165"
^DD(399,152,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P(^DGCR(399,DA,0),U,5)<3 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$LOS1^IBCU64(DA) X ^DD(399,152,1,1,1.4)"
^DD(399,152,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U"")):^(""U""),1:""""),DIV=X S $P(^(""U""),U,15)=DIV,DIH=399,DIG=165 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,152,1,1,2)="Q"
^DD(399,152,1,1,"%D",0)="^^1^1^2931018^"
^DD(399,152,1,1,"%D",1,0)="Sets Length of Stay based on PTF record and date range of bill.  (Inpatient only.)"
^DD(399,152,1,1,"CREATE CONDITION")="I $P(^DGCR(399,DA,0),U,5)<3"
^DD(399,152,1,1,"CREATE VALUE")="S X=$$LOS1^IBCU64(DA)"
^DD(399,152,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,152,1,1,"DT")="2931018"
^DD(399,152,1,1,"FIELD")="LENGTH OF STAY"
^DD(399,152,1,2,0)="399^AREV3^MUMPS"
^DD(399,152,1,2,1)="S DGRVRCAL=1"
^DD(399,152,1,2,2)="S DGRVRCAL=2"
^DD(399,152,1,2,"%D",0)="^^2^2^2940214^"
^DD(399,152,1,2,"%D",1,0)="Variable causes revenue codes and chrges to be re-calculated on return"
^DD(399,152,1,2,"%D",2,0)="to the enter/edit billing screens."
^DD(399,152,3)="Enter the ending service date of period covered by this bill."
^DD(399,152,21,0)="^.001^2^2^3010522^^^^"
^DD(399,152,21,1,0)="This is the ending service date of the period covered by this bill."
^DD(399,152,21,2,0)="The date range for inpatient interim bills should not be overlapped."
^DD(399,152,"DT")="2931018"
^DD(399,153,0)="POWER OF ATTORNEY COMPLETED?^RFOX^^U;3^I $D(X) D YN^IBCU"
^DD(399,153,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,153,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,153,3)="Enter 'Yes' or '1' if Power of Attorney has been completed, 'No' or '0' if Power of Attorney has not been completed."
^DD(399,153,21,0)="^^2^2^2880901^"
^DD(399,153,21,1,0)="This identifies whether or not the power of attorney forms (if necessary)"
^DD(399,153,21,2,0)="have been signed."
^DD(399,153,"DT")="2880607"
^DD(399,154,0)="WHOSE EMPLOYMENT INFO.?^RS^p:PATIENT;s:SPOUSE;^U;4^Q"
^DD(399,154,3)="Enter the code which indicates whether the employment information given applies to the patient or to the patient's spouse."
^DD(399,154,21,0)="^^2^2^2880901^"
^DD(399,154,21,1,0)="This indicates whether the employment information give applies to the"
^DD(399,154,21,2,0)="patient or to the patient's spouse."
^DD(399,154,"DT")="2880523"
^DD(399,155,0)="IS THIS A SENSITIVE RECORD?^RFOX^^U;5^I $D(X) D YN^IBCU"
^DD(399,155,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,155,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,155,3)="Enter 'Yes' or '1' if this record contains sensitive information pertaining  to, but not limited to, drugs, alcohol, and/or sickle cell anemia, 'No' or '0'  if it does not."
^DD(399,155,21,0)="^^3^3^2880921^^"
^DD(399,155,21,1,0)="This indicates whether or not this record contains information pertaining"
^DD(399,155,21,2,0)="to, but not limited to, drugs, alcohol, or sickle cell anemia, and if so,"
^DD(399,155,21,3,0)="allows the user to identify this record as ""sensitive""."
^DD(399,155,"DT")="2880607"
^DD(399,156,0)="ASSIGNMENT OF BENEFITS^RFOX^^U;6^I $D(X) D YN^IBCU I $D(X) X:X=0 ^DD(399,156,9.3) K IBRATY"
^DD(399,156,2)="S Y(0)=Y S Y=$S(Y="""":"""",""Yy1""[Y:""YES"",""Nn0""[Y:""NO"",1:"""")"
^DD(399,156,2.1)="S Y=$S(Y="""":"""",""Yy1""[Y:""YES"",""Nn0""[Y:""NO"",1:"""")"
^DD(399,156,3)="Enter the code which indicates whether or not a third party is authorized to pay the provider for services covered by this bill."
^DD(399,156,5,1,0)="399^.07^1"
^DD(399,156,9.3)="S IBRATY=$P(^DGCR(399,DA,0),""^"",7) I $D(^DGCR(399.3,IBRATY,0)),$P(^(0),""^"",5)=1 K X W !?4,""Answer must be YES for this 'Third Party' billing episode!"",*7"
^DD(399,156,21,0)="^^2^2^2880901^"
^DD(399,156,21,1,0)="This indicates whether or not a third party is authorized to pay the "
^DD(399,156,21,2,0)="provider for services covered by this bill."
^DD(399,156,"DT")="2990921"
^DD(399,157,0)="R.O.I. FORM(S) COMPLETED?^FOX^^U;7^I $D(X) D YN^IBCU"
^DD(399,157,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,157,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399,157,3)="Enter 'Yes' or '1' if Release Of Information form(s) are completed, 'No' or '0' if Release Of Information form(s) are not completed."
^DD(399,157,21,0)="^^2^2^2880901^"
^DD(399,157,21,1,0)="This allows the user to indicate if the Release of Information forms (if"
^DD(399,157,21,2,0)="necessary) have been signed."
^DD(399,157,"DT")="2880607"
^DD(399,158,0)="TYPE OF ADMISSION^S^1:EMERGENCY;2:URGENT;3:ELECTIVE;^U;8^Q"
^DD(399,158,3)="Enter a code indicating the priority of this admission."
^DD(399,158,5,1,0)="399^.08^2"
^DD(399,158,21,0)="^^1^1^2880901^"
^DD(399,158,21,1,0)="This indicates the priority of this admission."
^DD(399,158,"DT")="2880523"
^DD(399,159,0)="SOURCE OF ADMISSION^S^1:PHYSICIAN REFERRAL;2:CLINIC REFERRAL;3:HMO REFERRAL;4:TRANSFER FROM HOSPITAL;5:TRANSFER FROM SKILLED NURSING FAC.;6:TRANSFER FROM OTHER HEALTH CARE FAC.;7:EMERGENCY ROOM;8:COURT/LAW ENFORCEMENT;9:INFO NOT AVAILABLE;^U;9^Q"
^DD(399,159,3)="Enter the code which indicates the source of this admission."
^DD(399,159,5,1,0)="399^.08^1"
^DD(399,159,21,0)="^^2^2^2990528^^^^"
^DD(399,159,21,1,0)="This indicates the source of this admission or how an outpatient came to be"
^DD(399,159,21,2,0)="treated at the facility."
^DD(399,159,"DT")="2890403"
^DD(399,159.5,0)="NON-PTF ADMISSION HOUR^FXO^^U;20^D NOPTF^IBCU"
^DD(399,159.5,2)="S Y(0)=Y S Y=$S(Y=0:""12AM"",Y<12:Y_""AM"",Y=12:""12PM"",Y=99:Y,1:(Y-12)_""PM"")"
^DD(399,159.5,2.1)="S Y=$S(Y=0:""12AM"",Y<12:Y_""AM"",Y=12:""12PM"",Y=99:Y,1:(Y-12)_""PM"")"
^DD(399,159.5,3)="Type an hour from 0-23 or you may enter 1-12 with AM/PM. Use 99 if hr is unknown."
^DD(399,159.5,21,0)="^.001^1^1^3001218^^^^"
^DD(399,159.5,21,1,0)="This is the actual hour the patient was admitted for non-PTF related bills."
^DD(399,159.5,"DT")="3000222"
^DD(399,160,0)="ACCIDENT HOUR^FX^^U;10^K:$L(X)>2!($L(X)<1)!(X=99) X"
^DD(399,160,3)="Enter the hour at which an accident took place if this bill is related to an accident."
^DD(399,160,21,0)="^^2^2^3000301^^^"
^DD(399,160,21,1,0)="This indicates the hour at which an accident occurred if this episode"
^DD(399,160,21,2,0)="of care is related to an accident."
^DD(399,160,"DT")="3000222"
^DD(399,161,0)="DISCHARGE BEDSECTION^*P399.1'^DGCR(399.1,^U;11^S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),""""^"""",5)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,161,1,0)="^.1"
^DD(399,161,1,1,0)="^^TRIGGER^399^162"
^DD(399,161,1,1,1)="X ^DD(399,161,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV D DIS^IBCU S X=X S DIH=$G(^DGCR(399,DIV(0),""U"")),DIV=X S $P(^(""U""),U,12)=DIV,DIH=399,DIG=162 D ^DICR"
^DD(399,161,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""U"")):^(""U""),1:"""") S X=$P($G(^DGCR(399.1,+$P(Y(1),U,12),0)),U)="""""
^DD(399,161,1,1,2)="Q"
^DD(399,161,1,1,"%D",0)="^^2^2^3040614^"
^DD(399,161,1,1,"%D",1,0)="Sets the Discharge Status field to the correct status based upon the"
^DD(399,161,1,1,"%D",2,0)="Disposition Type field in the PTF Record."
^DD(399,161,1,1,"CREATE CONDITION")="#162="""""
^DD(399,161,1,1,"CREATE VALUE")="D DIS^IBCU S X=X"
^DD(399,161,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,161,1,1,"DT")="3040614"
^DD(399,161,1,1,"FIELD")="#162"
^DD(399,161,3)="Enter the bedsection from which this patient was discharged."
^DD(399,161,12)="Valid MCCR Bedsections only!"
^DD(399,161,12.1)="S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),""""^"""",5)=1"""
^DD(399,161,21,0)="^^1^1^2880901^"
^DD(399,161,21,1,0)="This is the bedsection from which this patient was discharged."
^DD(399,161,"DT")="3040614"
^DD(399,162,0)="DISCHARGE STATUS^*P399.1'^DGCR(399.1,^U;12^S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),""""^"""",6)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,162,3)="Enter the code which indicates patient status as of statement covers through date."
^DD(399,162,5,1,0)="399^.08^4"
^DD(399,162,5,2,0)="399^161^1"
^DD(399,162,12)="Valid MCCR Discharge Statuses only!"
^DD(399,162,12.1)="S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),""""^"""",6)=1"""
^DD(399,162,21,0)="^^1^1^2880901^"
^DD(399,162,21,1,0)="This is the patient status as of the statement covers through date."
^DD(399,162,"DT")="2880831"
^DD(399,163,0)="TREATMENT AUTHORIZATION CODE^F^^U;13^K:$L(X)>18!($L(X)<1) X"
^DD(399,163,3)="Answer must be 1-18 characters in length."
^DD(399,163,21,0)="^^5^5^3070201^"
^DD(399,163,21,1,0)="This indicates that the treatment covered by this bill has been "
^DD(399,163,21,2,0)="authorized by the primary payer."
^DD(399,163,21,3,0)=" "
^DD(399,163,21,4,0)="On the CMS-1500 this is box 23, PRIOR AUTHORIZATION NUMBER."
^DD(399,163,21,5,0)="On the UB-04, this is reported in FL63."
^DD(399,163,"DT")="3070201"
^DD(399,164,0)="BC/BS PROVIDER #^RFX^^U;14^K:$L(X)>13!($L(X)<3)!'(X?.ANP) X"
^DD(399,164,3)="Enter the Blue Cross/Shield provider number for this particular billing episode."
^DD(399,164,5,1,0)="399^.01^5"
^DD(399,164,21,0)="^^1^1^2880901^"
^DD(399,164,21,1,0)="This is the Blue Cross/Blue Shield Provider Number for this billing episode."
^DD(399,164,"DT")="2910819"
^DD(399,165,0)="LENGTH OF STAY^F^^U;15^K:$L(X)>6!($L(X)<1)!'(X?.N) X"
^DD(399,165,1,0)="^.1"
^DD(399,165,1,1,0)="^^TRIGGER^399^216"
^DD(399,165,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=($P($G(^DGCR(399,DA,""U2"")),U,2)=""""&$$INPAT^IBCEF(DA,1)) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(399,165,1,1,1.4)"
^DD(399,165,1,1,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,2)=DIV,DIH=399,DIG=216 D ^DICR"
^DD(399,165,1,1,2)="Q"
^DD(399,165,1,1,3)="Do not delete"
^DD(399,165,1,1,"%D",0)="^^3^3^3010315^"
^DD(399,165,1,1,"%D",1,0)="This cross reference populates the covered days field with the length"
^DD(399,165,1,1,"%D",2,0)="of stay if the bill is for an inpatient episode and there is not"
^DD(399,165,1,1,"%D",3,0)="already a value entered for covered days on this bill."
^DD(399,165,1,1,"CREATE CONDITION")="S X=($P($G(^DGCR(399,DA,""U2"")),U,2)=""""&$$INPAT^IBCEF(DA,1))"
^DD(399,165,1,1,"CREATE VALUE")="LENGTH OF STAY"
^DD(399,165,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399,165,1,1,"FIELD")="COVERED DAYS"
^DD(399,165,1,2,0)="^^TRIGGER^399^217"
^DD(399,165,1,2,1)="X ^DD(399,165,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N Z S X=$$LOS1^IBCU64(DA,.Z),X=+$G(Z) X ^DD(399,165,1,2,1.4)"
^DD(399,165,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=($P($G(^DGCR(399,DA,""U2"")),U,3)=""""&$$INPAT^IBCEF(DA,1))"
^DD(399,165,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,3)=DIV,DIH=399,DIG=217 D ^DICR"
^DD(399,165,1,2,2)="Q"
^DD(399,165,1,2,3)="Do not delete"
^DD(399,165,1,2,"%D",0)="^^3^3^3010315^"
^DD(399,165,1,2,"%D",1,0)="This cross reference populates the non-covered days field with the # of"
^DD(399,165,1,2,"%D",2,0)="leave/pass days if the bill is for an inpatient episode and there is not"
^DD(399,165,1,2,"%D",3,0)="already a value entered for non-covered days on this bill."
^DD(399,165,1,2,"CREATE CONDITION")="S X=($P($G(^DGCR(399,DA,""U2"")),U,3)=""""&$$INPAT^IBCEF(DA,1))"
^DD(399,165,1,2,"CREATE VALUE")="N Z S X=$$LOS1^IBCU64(DA,.Z),X=+$G(Z)"
^DD(399,165,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,165,1,2,"DT")="3010315"
^DD(399,165,1,2,"FIELD")="NON-COVERED DAYS"
^DD(399,165,3)="Enter the length of stay for this inpatient episode excluding pass, AA and UA days."
^DD(399,165,5,1,0)="399^.08^6"
^DD(399,165,5,2,0)="399^151^1"
^DD(399,165,5,3,0)="399^152^1"
^DD(399,165,21,0)="^^2^2^2931018^^^^"
^DD(399,165,21,1,0)="This defines the length of stay in days for this inpatient episode excluding"
^DD(399,165,21,2,0)="pass, AA, and UA days."
^DD(399,165,23,0)="^^12^12^2931018^^^^"
^DD(399,165,23,1,0)="If no PTF defined then uses the Statement From and To dates for LOS."
^DD(399,165,23,2,0)="Excludes pass, AA, UA days but includes days in non-billable bedsections."
^DD(399,165,23,3,0)="Notice that the number of units of service under revenue code only"
^DD(399,165,23,4,0)="includes billable bedsections so the number of units may not add"
^DD(399,165,23,5,0)="up to the length of stay if the patient was in a non-billable bedsection"
^DD(399,165,23,6,0)="for awhile."
^DD(399,165,23,7,0)="LOS of a stay where admit day=discharge day is 1.  LOS of a stay where"
^DD(399,165,23,8,0)="admit date+1=discharge date also has an LOS of 1."
^DD(399,165,23,9,0)="The discharge date is not charged.  Therefore, on continuous first"
^DD(399,165,23,10,0)="and interum bills the LOS is the date range inclusive of the last day"
^DD(399,165,23,11,0)="on the bill, all other bills exclude the last day (with exception of"
^DD(399,165,23,12,0)="admit=discharge day)."
^DD(399,165,"DT")="3010315"
^DD(399,166,0)="UNABLE TO WORK FROM^D^^U;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,166,3)="Enter the beginning date the patient became unable to work due to current condition."
^DD(399,166,21,0)="^^3^3^3060921^"
^DD(399,166,21,1,0)="Enter the beginning date for the period of time that the patient could not"
^DD(399,166,21,2,0)="work due to the condition for which this claim is being submitted.  Printed"
^DD(399,166,21,3,0)="on the CMS-1500."
^DD(399,166,"DT")="3060921"
^DD(399,167,0)="UNABLE TO WORK TO^D^^U;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,167,3)="Enter the ending date of the time that the patient was unable to work due to current condition."
^DD(399,167,21,0)="^^3^3^3060921^"
^DD(399,167,21,1,0)="This is the ending date of the period of time during which the patient"
^DD(399,167,21,2,0)="was unable to work due to the condition for which this claim is being"
^DD(399,167,21,3,0)="submitted.  Used on the CMS-1500."
^DD(399,167,"DT")="3060921"
^DD(399,168,0)="*PLACE OF SERVICE^P353.1'^IBE(353.1,^U;18^Q"
^DD(399,168,3)="Enter the code corresponding to the Place of Service of patient care."
^DD(399,168,21,0)="^^3^3^2930611^^^^"
^DD(399,168,21,1,0)="This indicates the Place of Service, used on the HCFA 1500."
^DD(399,168,21,2,0)="Not used after IB v1.5, replaced by PLACE OF SERVICE (304,8) associated"
^DD(399,168,21,3,0)="with a specific procedure.  Marked for deletion 6/11/93."
^DD(399,168,"DT")="2930611"
^DD(399,169,0)="*TYPE OF SERVICE^P353.2'^IBE(353.2,^U;19^Q"
^DD(399,169,3)="Enter the appropriate Type of Service code for this visit."
^DD(399,169,21,0)="^^3^3^2930611^^"
^DD(399,169,21,1,0)="Code indicating the Type of Service preformed.  Used on the HCFA 1500."
^DD(399,169,21,2,0)="Not used after IB v1.5, replaced by TYPE OF SERVICE (304,9) associated"
^DD(399,169,21,3,0)="with a specific procedure.  Marked for deletion 6/11/93."
^DD(399,169,"DT")="2930611"
^DD(399,201,0)="TOTAL CHARGES^NJ8,2XI^^U1;1^Q"
^DD(399,201,1,0)="^.1^^0"
^DD(399,201,3)="Enter the total amount of the revenue code charges for this bill in dollars."
^DD(399,201,5,1,0)="399^151^3"
^DD(399,201,9)="^"
^DD(399,201,21,0)="^^1^1^2960419^^"
^DD(399,201,21,1,0)="This is the total amount of the revenue code charges for this bill."
^DD(399,201,"DT")="3011023"
^DD(399,202,0)="OFFSET AMOUNT^NJ8,2^^U1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(399,202,1,0)="^.1"
^DD(399,202,1,1,0)="^^TRIGGER^399^203"
^DD(399,202,1,1,1)="Q"
^DD(399,202,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,2)="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(399,202,1,1,2.4)"
^DD(399,202,1,1,2.4)="S DIH=$G(^DGCR(399,DIV(0),""U1"")),DIV=X S $P(^(""U1""),U,3)=DIV,DIH=399,DIG=203 D ^DICR"
^DD(399,202,1,1,"CREATE VALUE")="NO EFFECT"
^DD(399,202,1,1,"DELETE CONDITION")="OFFSET AMOUNT="""""
^DD(399,202,1,1,"DELETE VALUE")="@"
^DD(399,202,1,1,"DT")="3040614"
^DD(399,202,1,1,"FIELD")="#203"
^DD(399,202,3)="Enter the dollar amount between 0 and 99999.99 that is to be subtracted from the total charges on this bill.  Offset includes, but is not limited to, co-payments and deductibles."
^DD(399,202,5,1,0)="399^218^1"
^DD(399,202,5,2,0)="399^219^1"
^DD(399,202,5,3,0)="399^220^1"
^DD(399,202,21,0)="^.001^3^3^3021126^^"
^DD(399,202,21,1,0)="This is the dollar amount which is to be subtracted from the total charges"
^DD(399,202,21,2,0)="on this bill. Offset includes, but is not limited to, co-payments, credits,"
^DD(399,202,21,3,0)="and deductibles."
^DD(399,202,"DT")="3040614"
^DD(399,203,0)="OFFSET DESCRIPTION^FX^^U1;3^K:$L(X)>24!($L(X)<3) X"
^DD(399,203,3)="Enter reason for Offset Amount.  Offset Description may include, but is not limited to, deductibles, copayments, credits, etc."
^DD(399,203,5,1,0)="399^202^1"
^DD(399,203,5,2,0)="399^218^2"
^DD(399,203,5,3,0)="399^219^2"
^DD(399,203,5,4,0)="399^220^2"
^DD(399,203,21,0)="^^1^1^2940317^^^^"
^DD(399,203,21,1,0)="This defines the reason for offset amount.  Maximum length is 24 characters."
^DD(399,203,"DT")="2940317"
^DD(399,204,0)="*UB82 FORM LOCATOR 2^F^^U1;4^K:$L(X)>30!($L(X)<2) X"
^DD(399,204,3)="Enter the information (2-30 characters) which is to appear in form locator 2 on the UB-82 form."
^DD(399,204,21,0)="^^4^4^3070116^"
^DD(399,204,21,1,0)="This allows the user to enter information which will appear in form locator"
^DD(399,204,21,2,0)="2 on the UB-82 form."
^DD(399,204,21,3,0)=" "
^DD(399,204,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,204,23,0)="^^4^4^3070116^"
^DD(399,204,23,1,0)="The name (LABEL) of this field has been changed from: FORM LOCATOR 2 "
^DD(399,204,23,2,0)="to: UB82 FORM LOCATOR 2 to distinguish it from field #450."
^DD(399,204,23,3,0)=" "
^DD(399,204,23,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,204,"DT")="3070116"
^DD(399,205,0)="*FORM LOCATOR 9^F^^U1;5^K:$L(X)>7!($L(X)<2) X"
^DD(399,205,3)="Enter the information (2-7 characters) which will appear in form locator 9 on the UB-82 form."
^DD(399,205,21,0)="^^4^4^3070116^"
^DD(399,205,21,1,0)="This allows the user to enter information which will appear in form locator"
^DD(399,205,21,2,0)="9 on the UB-82 form.  "
^DD(399,205,21,3,0)=" "
^DD(399,205,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,205,23,0)="^^4^4^3070116^"
^DD(399,205,23,1,0)="Was temporarily used to hold Admitting DX for the UB-92 (FL 76), but was "
^DD(399,205,23,2,0)="replaced by FL 215."
^DD(399,205,23,3,0)=" "
^DD(399,205,23,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,205,"DT")="3070116"
^DD(399,206,0)="*FORM LOCATOR 27^F^^U1;6^K:$L(X)>8!($L(X)<2) X"
^DD(399,206,3)="Enter the information (2-8 characters) which is to appear in form locator 27 on the UB-82 form."
^DD(399,206,21,0)="^^4^4^3070116^"
^DD(399,206,21,1,0)="This allows the user to enter information will will appear in form locator"
^DD(399,206,21,2,0)="27 on the UB-82 form."
^DD(399,206,21,3,0)=" "
^DD(399,206,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,206,"DT")="3070116"
^DD(399,207,0)="*FORM LOCATOR 45^F^^U1;7^K:$L(X)>17!($L(X)<2) X"
^DD(399,207,3)="Enter the information (2-17 characters) which will appear in form locator 45 on the UB-82 form."
^DD(399,207,21,0)="^^4^4^3070116^"
^DD(399,207,21,1,0)="This allows the user to enter information which will appear in form locator"
^DD(399,207,21,2,0)="45 on the UB-82 form."
^DD(399,207,21,3,0)=" "
^DD(399,207,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,207,"DT")="3070116"
^DD(399,208,0)="*BILL COMMENT^F^^U1;8^K:$L(X)>35!($L(X)<2) X"
^DD(399,208,.1)=""
^DD(399,208,3)="Answer must be 2-35 characters in length"
^DD(399,208,21,0)="^^3^3^3070209^"
^DD(399,208,21,1,0)="This field is not used after IB patch 349."
^DD(399,208,21,2,0)="The new remarks field for FL-80 on the UB-04 is"
^DD(399,208,21,3,0)="BILL REMARKS (field#402)."
^DD(399,208,"DT")="3070209"
^DD(399,209,0)="*FISCAL YEAR 1^RF^^U1;9^K:$L(X)>2!($L(X)<2)!'(X?.N) X"
^DD(399,209,3)="Enter the 2 digit fiscal year associated with this bill."
^DD(399,209,21,0)="^.001^2^2^3010522^^^^"
^DD(399,209,21,1,0)="This defines the first fiscal year with which this bill is associated."
^DD(399,209,21,2,0)="OBSOLETE AS OF PATCH IB*2*137  --  2001"
^DD(399,209,"DT")="3010522"
^DD(399,210,0)="*FY 1 CHARGES^RNJ10,2^^U1;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(399,210,1,0)="^.1^^0"
^DD(399,210,3)="Enter the charges incurred during the first fiscal year associated with this bill."
^DD(399,210,21,0)="^.001^3^3^3010522^^"
^DD(399,210,21,1,0)="These are the charges incurred during the first fiscal year associated"
^DD(399,210,21,2,0)="with this bill."
^DD(399,210,21,3,0)="OBSOLETE AS OF PATCH IB*2*137  --  2001"
^DD(399,210,"DT")="3010522"
^DD(399,211,0)="*FISCAL YEAR 2^F^^U1;11^K:$L(X)>2!($L(X)<2)!'(X?.N) X"
^DD(399,211,3)="Enter the 2 digit second fiscal year associated with this bill."
^DD(399,211,21,0)="^.001^2^2^3010522^^^^"
^DD(399,211,21,1,0)="This is the second fiscal year with which this bill is associated."
^DD(399,211,21,2,0)="OBSOLETE AS OF PATCH IB*2*137  --  2001"
^DD(399,211,23,0)="^.001^2^2^3010522^^^^"
^DD(399,211,23,1,0)="Beginning with 1.5 bills can no longer span fical years, so this is"
^DD(399,211,23,2,0)="no longer needed."
^DD(399,211,"DT")="3010522"
^DD(399,212,0)="*FY 2 CHARGES^NJ10,2^^U1;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(399,212,3)="Enter the charges incurred during the second fiscal year associated with this bill."
^DD(399,212,9)="^"
^DD(399,212,21,0)="^.001^3^3^3010522^^"
^DD(399,212,21,1,0)="These are the charges incurred during the second fiscal year associated"
^DD(399,212,21,2,0)="with this bill."
^DD(399,212,21,3,0)="OBSOLETE AS OF PATCH IB*2*137  --  2001"
^DD(399,212,"DT")="3010522"
^DD(399,213,0)="*FORM LOCATOR 92^F^^U1;13^K:$L(X)>32!($L(X)<3) X"
^DD(399,213,3)="Answer must be 3-32 characters in length."
^DD(399,213,21,0)="^^6^6^3070116^"
^DD(399,213,21,1,0)="This is the Attending Physician ID (UPIN) and is printed on the UB-82 in"
^DD(399,213,21,2,0)="form locator 92 and form locator 82 on the UB-92.  This field will be"
^DD(399,213,21,3,0)="loaded with the ATTENDING PHYSICIAN ID code required by the primary"
^DD(399,213,21,4,0)="insurer, if that insurer has a code defined."
^DD(399,213,21,5,0)=" "
^DD(399,213,21,6,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,213,23,0)="^^7^7^3070116^"
^DD(399,213,23,1,0)="This field may be null or a value the billing clerk inserted while editing"
^DD(399,213,23,2,0)="on screen 8 or a value that the primary insurer requires to print in form"
^DD(399,213,23,3,0)="locator 92 of the UB-82 or FL 82 of the UB-92.  If the field is null"
^DD(399,213,23,4,0)="then the print routines print the string 'Dept. of Veterans Affairs' in"
^DD(399,213,23,5,0)="form locator 82/92."
^DD(399,213,23,6,0)=" "
^DD(399,213,23,7,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,213,"DT")="3070116"
^DD(399,214,0)="*FORM LOCATOR 93^F^^U1;14^K:$L(X)>32!($L(X)<3) X"
^DD(399,214,3)="Answer must be 3-32 characters in length."
^DD(399,214,21,0)="^^4^4^2940120^^^^"
^DD(399,214,21,1,0)="Enter the 'Other Physician ID'.  The name and/or number of the licensed"
^DD(399,214,21,2,0)="physician other than the attending physician or what the primary insurer"
^DD(399,214,21,3,0)="requires in this field on the form.  Will print in form locator 93 on the"
^DD(399,214,21,4,0)="UB-82 and form locator 83 on the UB-92."
^DD(399,214,23,0)="^^1^1^2990511^"
^DD(399,214,23,1,0)="This field will be deleted 18 months from 1-1-2000."
^DD(399,214,"DT")="2990511"
^DD(399,215,0)="ADMITTING DIAGNOSIS^*P80'^ICD9(^U2;1^S ICDVDT=$$BDATE^IBACSV(+$G(DA)),DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,ICDVDT)"",DIC(""W"")=""D EN^DDIOL(""""   """"_$P($$ICD9^IBACSV(+Y,ICDVDT),U,3),,""""?0"""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(399,215,3)="Enter the code for the admitting diagnosis."
^DD(399,215,5,1,0)="362.3^.03^2"
^DD(399,215,12)="Only codes active for the date of service may be selected."
^DD(399,215,12.1)="S ICDVDT=$$BDATE^IBACSV(+$G(DA)),DIC(""S"")=""I $$ICD9ACT^IBACSV(+Y,ICDVDT)"",DIC(""W"")=""D EN^DDIOL(""""   """"_$P($$ICD9^IBACSV(+Y,ICDVDT),U,3),,""""?0"""")"""
^DD(399,215,21,0)="^^5^5^3070116^"
^DD(399,215,21,1,0)="The ICD-9 diagnosis code provided at the time of admission as stated"
^DD(399,215,21,2,0)="by the physician."
^DD(399,215,21,3,0)=" "
^DD(399,215,21,4,0)="The admitting diagnosis code will be printed in Form Locator 69"
^DD(399,215,21,5,0)="on the UB-04."
^DD(399,215,"DT")="3070116"
^DD(399,216,0)="COVERED DAYS^NJ3,0^^U2;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(399,216,3)="Type a number between 0 and 999, 0 Decimal Digits"
^DD(399,216,5,1,0)="399^165^1"
^DD(399,216,21,0)="^^2^2^3070117^^"
^DD(399,216,21,1,0)="The number of days covered by the primary payer, as qualified by the payer"
^DD(399,216,21,2,0)="organization."
^DD(399,216,"DT")="3070117"
^DD(399,217,0)="NON-COVERED DAYS^NJ4,0^^U2;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(399,217,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(399,217,5,1,0)="399^165^2"
^DD(399,217,21,0)="^^1^1^3070117^"
^DD(399,217,21,1,0)="Days of care not covered by the primary payer."
^DD(399,217,"DT")="3070117"
^DD(399,218,0)="PRIMARY PRIOR PAYMENT^NJ11,2^^U2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(399,218,1,0)="^.1"
^DD(399,218,1,1,0)="^^TRIGGER^399^202"
^DD(399,218,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(399,218,1,1,1.4)"
^DD(399,218,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,2)=DIV,DIH=399,DIG=202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,218,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(399,218,1,1,2.4)"
^DD(399,218,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,2)=DIV,DIH=399,DIG=202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,218,1,1,"%D",0)="^^1^1^2970821^"
^DD(399,218,1,1,"%D",1,0)="Adds Primary Prior Payment to the Offset Amount."
^DD(399,218,1,1,"CREATE VALUE")="OFFSET AMOUNT+PRIMARY PRIOR PAYMENT"
^DD(399,218,1,1,"DELETE VALUE")="OFFSET AMOUNT-OLD PRIMARY PRIOR PAYMENT"
^DD(399,218,1,1,"FIELD")="OFFSET AMOUNT"
^DD(399,218,1,2,0)="^^TRIGGER^399^203"
^DD(399,218,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""PRIOR PAYMENT(S)"" X ^DD(399,218,1,2,1.4)"
^DD(399,218,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,3)=DIV,DIH=399,DIG=203 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,218,1,2,2)="Q"
^DD(399,218,1,2,"%D",0)="^^1^1^2970821^"
^DD(399,218,1,2,"%D",1,0)="Sets Offset Description if a Primary Prior Payment is entered."
^DD(399,218,1,2,"CREATE VALUE")="""PRIOR PAYMENT(S)"""
^DD(399,218,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,218,1,2,"DT")="2970821"
^DD(399,218,1,2,"FIELD")="OFFSET DESCRIPTION"
^DD(399,218,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(399,218,21,0)="^^1^1^2960419^"
^DD(399,218,21,1,0)="This is the amount the primary insurance has already paid on this bill."
^DD(399,218,"DT")="2970821"
^DD(399,219,0)="SECONDARY PRIOR PAYMENT^NJ11,2^^U2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(399,219,1,0)="^.1"
^DD(399,219,1,1,0)="^^TRIGGER^399^202"
^DD(399,219,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(399,219,1,1,1.4)"
^DD(399,219,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,2)=DIV,DIH=399,DIG=202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,219,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(399,219,1,1,2.4)"
^DD(399,219,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,2)=DIV,DIH=399,DIG=202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,219,1,1,"%D",0)="^^1^1^2970821^"
^DD(399,219,1,1,"%D",1,0)="Adds the Secondary Prior Payment to the Offset Amount."
^DD(399,219,1,1,"CREATE VALUE")="OFFSET AMOUNT+SECONDARY PRIOR PAYMENT"
^DD(399,219,1,1,"DELETE VALUE")="OFFSET AMOUNT-OLD SECONDARY PRIOR PAYMENT"
^DD(399,219,1,1,"FIELD")="OFFSET AMOUNT"
^DD(399,219,1,2,0)="^^TRIGGER^399^203"
^DD(399,219,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""PRIOR PAYMENT(S)"" X ^DD(399,219,1,2,1.4)"
^DD(399,219,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,3)=DIV,DIH=399,DIG=203 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,219,1,2,2)="Q"
^DD(399,219,1,2,"%D",0)="^^1^1^2970821^"
^DD(399,219,1,2,"%D",1,0)="Sets Offset Description if a Secondary Prior Payment is entered."
^DD(399,219,1,2,"CREATE VALUE")="""PRIOR PAYMENT(S)"""
^DD(399,219,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,219,1,2,"DT")="2970821"
^DD(399,219,1,2,"FIELD")="OFFSET DESCRIPTION"
^DD(399,219,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(399,219,21,0)="^^1^1^2970821^"
^DD(399,219,21,1,0)="This is the amount the secondary insurance has already paid on this bill."
^DD(399,219,"DT")="2970821"
^DD(399,220,0)="TERTIARY PRIOR PAYMENT^NJ11,2^^U2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(399,220,1,0)="^.1"
^DD(399,220,1,1,0)="^^TRIGGER^399^202"
^DD(399,220,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(399,220,1,1,1.4)"
^DD(399,220,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,2)=DIV,DIH=399,DIG=202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,220,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(399,220,1,1,2.4)"
^DD(399,220,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,2)=DIV,DIH=399,DIG=202 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,220,1,1,"%D",0)="^^1^1^2970821^"
^DD(399,220,1,1,"%D",1,0)="Adds the Tertiary Prior Payments to the Offset Amount."
^DD(399,220,1,1,"CREATE VALUE")="OFFSET AMOUNT+TERTIARY PRIOR PAYMENT"
^DD(399,220,1,1,"DELETE VALUE")="OFFSET AMOUNT-OLD TERTIARY PRIOR PAYMENT"
^DD(399,220,1,1,"FIELD")="OFFSET AMOUNT"
^DD(399,220,1,2,0)="^^TRIGGER^399^203"
^DD(399,220,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U1"")):^(""U1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""PRIOR PAYMENT(S)"" X ^DD(399,220,1,2,1.4)"
^DD(399,220,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U1"")):^(""U1""),1:""""),DIV=X S $P(^(""U1""),U,3)=DIV,DIH=399,DIG=203 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,220,1,2,2)="Q"
^DD(399,220,1,2,"%D",0)="^^1^1^2970821^"
^DD(399,220,1,2,"%D",1,0)="Sets the Offset Description if a Tertiary Prior Payment is entered."
^DD(399,220,1,2,"CREATE VALUE")="""PRIOR PAYMENT(S)"""
^DD(399,220,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399,220,1,2,"DT")="2970821"
^DD(399,220,1,2,"FIELD")="OFFSET DESCRIPTION"
^DD(399,220,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(399,220,21,0)="^^1^1^2970821^"
^DD(399,220,21,1,0)="This is the amount the tertiary insurance has already paid on this bill."
^DD(399,220,"DT")="2970821"
^DD(399,221,0)="CO-INSURANCE DAYS^NJ3,0^^U2;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(399,221,3)="Type a number between 0 and 999, 0 Decimal Digits"
^DD(399,221,21,0)="^^1^1^3070117^"
^DD(399,221,21,1,0)="This is the # of days."
^DD(399,221,"DT")="3070117"
^DD(399,222,0)="PROVIDER^399.0222ISA^^PRV;0"
^DD(399,222,12)="Rendering is for prof only.  Operating/Attending are for inst only."
^DD(399,222,12.1)="S DIC(""S"")=""I $$PRVOK^IBCEU(+Y,$S($D(D0):D0,1:$G(DA)))"""
^DD(399,222,"DT")="3010426"
^DD(399,230,0)="SECONDARY AUTHORIZATION CODE^FX^^U2;8^K:$L(X)>18!($L(X)<1) X"
^DD(399,230,3)="Answer must be 1-18 characters in length."
^DD(399,230,21,0)="^^5^5^3070201^"
^DD(399,230,21,1,0)="This indicates that the treatment covered by this bill has been"
^DD(399,230,21,2,0)="authorized by the secondary payer."
^DD(399,230,21,3,0)=" "
^DD(399,230,21,4,0)="On the CMS-1500 this is box 23, PRIOR AUTHORIZATION NUMBER."
^DD(399,230,21,5,0)="On the UB-04, this is reported in FL63."
^DD(399,230,"DT")="3070201"
^DD(399,231,0)="TERTIARY AUTHORIZATION CODE^F^^U2;9^K:$L(X)>18!($L(X)<1) X"
^DD(399,231,3)="Answer must be 1-18 characters in length."
^DD(399,231,21,0)="^^5^5^3070201^"
^DD(399,231,21,1,0)="This indicates that the treatment covered by this bill has been "
^DD(399,231,21,2,0)="authorized by the tertiary payer."
^DD(399,231,21,3,0)=" "
^DD(399,231,21,4,0)="On the CMS-1500 this is box 23, PRIOR AUTHORIZATION NUMBER."
^DD(399,231,21,5,0)="On the UB-04, this is reported in FL63."
^DD(399,231,"DT")="3070201"
^DD(399,232,0)="NON-VA FACILITY^*P355.93X^IBA(355.93,^U2;10^S DIC(""S"")=""I $P(^(0),U,2)=1,$P(^(0),U)'["""","""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,232,1,0)="^.1"
^DD(399,232,1,1,0)="^^TRIGGER^399^234"
^DD(399,232,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(399,232,1,1,1.1) X ^DD(399,232,1,1,1.4)"
^DD(399,232,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^IBA(355.93,+D0,0)) D0=-1 S Y(101)=$S($D(^IBA(355.93,D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0)"
^DD(399,232,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U2"")):^(""U2""),1:""""),DIV=X S $P(^(""U2""),U,12)=DIV,DIH=399,DIG=234 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,232,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(399,232,1,1,2.4)"
^DD(399,232,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U2"")):^(""U2""),1:""""),DIV=X S $P(^(""U2""),U,12)=DIV,DIH=399,DIG=234 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,232,1,1,"CREATE VALUE")="NON-VA FACILITY:FACILITY DEFAULT ID NUMBER"
^DD(399,232,1,1,"DELETE VALUE")="@"
^DD(399,232,1,1,"DT")="3010102"
^DD(399,232,1,1,"FIELD")="NON-VA CARE ID #"
^DD(399,232,1,2,0)="^^TRIGGER^399^233"
^DD(399,232,1,2,1)="Q"
^DD(399,232,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(399,232,1,2,2.4)"
^DD(399,232,1,2,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""U2"")):^(""U2""),1:""""),DIV=X S $P(^(""U2""),U,11)=DIV,DIH=399,DIG=233 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399,232,1,2,3)="Do not delete"
^DD(399,232,1,2,"%D",0)="^^2^2^3010110^"
^DD(399,232,1,2,"%D",1,0)="This cross reference deletes the NON-VA CARE TYPE field when the NON-VA"
^DD(399,232,1,2,"%D",2,0)="Facility value is deleted."
^DD(399,232,1,2,"CREATE VALUE")="NO EFFECT"
^DD(399,232,1,2,"DELETE VALUE")="@"
^DD(399,232,1,2,"DT")="3010110"
^DD(399,232,1,2,"FIELD")="NON-VA CARE TYPE"
^DD(399,232,1,3,0)="^^TRIGGER^399^235"
^DD(399,232,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$CLIAREQ^IBCEP8A(DA) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$CLIA^IBCEP8A(DA) X ^DD(399,232,1,3,1.4)"
^DD(399,232,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,13)=DIV,DIH=399,DIG=235 D ^DICR"
^DD(399,232,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$$CLIAREQ^IBCEP8A(DA) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""U2"")):^(""U2""),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X=DIV S X=$$CLIA^IBCEP8A(DA) X ^DD(399,232,1,3,2.4)"
^DD(399,232,1,3,2.4)="S DIH=$G(^DGCR(399,DIV(0),""U2"")),DIV=X S $P(^(""U2""),U,13)=DIV,DIH=399,DIG=235 D ^DICR"
^DD(399,232,1,3,"%D",0)="^^3^3^3060104^"
^DD(399,232,1,3,"%D",1,0)="This trigger will set the LAB CLIA NUMBER field to the default"
^DD(399,232,1,3,"%D",2,0)="CLIA# for the facility - either VA facility or non-VA facility."
^DD(399,232,1,3,"%D",3,0)="The trigger condition ensures that lab services are on the claim."
^DD(399,232,1,3,"CREATE CONDITION")="S X=$$CLIAREQ^IBCEP8A(DA)"
^DD(399,232,1,3,"CREATE VALUE")="S X=$$CLIA^IBCEP8A(DA)"
^DD(399,232,1,3,"DELETE CONDITION")="S X=$$CLIAREQ^IBCEP8A(DA)"
^DD(399,232,1,3,"DELETE VALUE")="S X=$$CLIA^IBCEP8A(DA)"
^DD(399,232,1,3,"DT")="3060104"
^DD(399,232,1,3,"FIELD")="LAB CLIA NUMBER"
^DD(399,232,1,4,0)="^^TRIGGER^399^244"
^DD(399,232,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U3"")):^(""U3""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$P($$TAXGET^IBCEP81(X),U,2) X ^DD(399,232,1,4,1.4)"
^DD(399,232,1,4,1.4)="S DIH=$G(^DGCR(399,DIV(0),""U3"")),DIV=X S $P(^(""U3""),U,3)=DIV,DIH=399,DIG=244 D ^DICR"
^DD(399,232,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399,D0,""U3"")):^(""U3""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^DGCR(399,DIV(0),""U3"")),DIV=X S $P(^(""U3""),U,3)=DIV,DIH=399,DIG=244 D ^DICR"
^DD(399,232,1,4,3)="Do not delete"
^DD(399,232,1,4,"%D",0)="^^2^2^3060614^"
^DD(399,232,1,4,"%D",1,0)="This xref updates the NON-VA FACILITY TAXONOMY field with the non-VA "
^DD(399,232,1,4,"%D",2,0)="facility's default taxonomy."
^DD(399,232,1,4,"CREATE VALUE")="S X=$P($$TAXGET^IBCEP81(X),U,2)"
^DD(399,232,1,4,"DELETE VALUE")="@"
^DD(399,232,1,4,"DT")="3060614"
^DD(399,232,1,4,"FIELD")="#244"
^DD(399,232,3)="Enter the non-VA/other VA facility where care was given.  Facility name cannot contain a comma."
^DD(399,232,12)="Must be a facility provider type entry without a comma in the name"
^DD(399,232,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=1,$P(^(0),U)'["""","""""""
^DD(399,232,21,0)="^.001^2^2^3030807^^^^"
^DD(399,232,21,1,0)="The is the name of the non-VA or outside VA facility where the services"
^DD(399,232,21,2,0)="were rendered."
^DD(399,232,"DT")="3060614"
^DD(399,233,0)="NON-VA CARE TYPE^S^1:FEE BASIS, NON-LAB;2:FEE BASIS, LAB;3:NON-FEE BASIS, NON-LAB;4:NON-FEE BASIS, LAB;^U2;11^Q"
^DD(399,233,3)="Enter the type of outside care that was provided"
^DD(399,233,5,1,0)="399^232^2"
^DD(399,233,21,0)="^.001^2^2^3001030^^^"
^DD(399,233,21,1,0)="This is the code that identifies if the care given was fee basis lab,"
^DD(399,233,21,2,0)="fee basis non-lab, or non-fee basis care."
^DD(399,233,"DT")="2990825"
^DD(399,234,0)="NON-VA CARE ID #^F^^U2;12^K:$L(X)>15!($L(X)<1) X"
^DD(399,234,3)="Answer must be 1-15 characters in length."
^DD(399,234,5,1,0)="399^232^1"
^DD(399,234,21,0)="^^3^3^2990722^^^"
^DD(399,234,21,1,0)="This is the id number to be reported on the bill for the non-VA facility"
^DD(399,234,21,2,0)="where care was provided."
^DD(399,234,21,3,0)="For a lab, this should be the CLIA #"
^DD(399,234,"DT")="2990722"
^DD(399,235,0)="LAB CLIA NUMBER^F^^U2;13^K:$L(X)>15!($L(X)<1) X"
^DD(399,235,3)="Answer must be 1-15 characters in length."
^DD(399,235,5,1,0)="399^232^3"
^DD(399,235,5,2,0)="399^.22^7"
^DD(399,235,21,0)="^^9^9^3051228^"
^DD(399,235,21,1,0)="Enter the CLIA number for the VA Division if the service was "
^DD(399,235,21,2,0)="performed by the VA."
^DD(399,235,21,3,0)="Enter the CLIA number for the Other Facility if the service was "
^DD(399,235,21,4,0)="performed by a non-VA facility."
^DD(399,235,21,5,0)=" "
^DD(399,235,21,6,0)="You can define a CLIA number as a secondary ID for a non-VA"
^DD(399,235,21,7,0)="Facility through Provider ID Maint.  If you enter a CLIA number"
^DD(399,235,21,8,0)="here that is not defined in Provider ID Maint (non-VA) or the"
^DD(399,235,21,9,0)="Institution file (VA), it will be sent with this claim only."
^DD(399,235,"DT")="3051228"
^DD(399,236,0)="HOMEBOUND^S^0:NO;1:YES;^U2;14^Q"
^DD(399,236,3)="Enter yes if patient was homebound for purchased labs."
^DD(399,236,21,0)="^^3^3^3060921^"
^DD(399,236,21,1,0)="This is the indicator to tell the CMS-1500 to print the homebound"
^DD(399,236,21,2,0)="statement in box 19.  Refer to the MEDICARE regulations on when to fill in"
^DD(399,236,21,3,0)="this field."
^DD(399,236,"DT")="3060921"
^DD(399,237,0)="DATE LAST SEEN^D^^U2;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399,237,3)="Enter the last date the patient was seen if care was provided by an outside provider of PT/OT or routine foot care."
^DD(399,237,21,0)="^^2^2^3060921^"
^DD(399,237,21,1,0)="This data will print in box 19 of the CMS-1500 for printed claims.  Refer"
^DD(399,237,21,2,0)="to the MEDICARE regulations on when to fill in this field."
^DD(399,237,"DT")="3060921"
^DD(399,238,0)="SPECIAL PROGRAM INDICATOR^F^^U2;16^K:$L(X)>2!($L(X)<1) X"
^DD(399,238,3)="The demonstration number if this is a MEDICARE special program claim."
^DD(399,238,21,0)="^^3^3^3060921^^"
^DD(399,238,21,1,0)="This is a indicator to tell the CMS-1500 to print the statement associated"
^DD(399,238,21,2,0)="with the special program in box 19.  Refer to the MEDICARE regulations on"
^DD(399,238,21,3,0)="when to fill in this field."
^DD(399,238,"DT")="3060921"
^DD(399,239,0)="PRIMARY EMC ID CARE UNIT^F^^U2;17^K:$L(X)>30!($L(X)<1) X"
^DD(399,239,3)="Answer must be 1-30 characters in length."
^DD(399,239,4)="D CAREID^IBCEP1(""EMC"",1,DA)"
^DD(399,239,21,0)="^.001^3^3^3001109^^^"
^DD(399,239,21,1,0)="This is the data value needed to allow the system to match the"
^DD(399,239,21,2,0)="attending/rendering provider with the correct EMC id # for the primary"
^DD(399,239,21,3,0)="ins co."
^DD(399,239,"DT")="3001109"
^DD(399,240,0)="SECONDARY EMC ID CARE UNIT^F^^U2;18^K:$L(X)>30!($L(X)<1) X"
^DD(399,240,3)="Answer must be 1-30 characters in length."
^DD(399,240,4)="D CAREID^IBCEP1(""EMC"",2,DA)"
^DD(399,240,21,0)="^^3^3^3000905^"
^DD(399,240,21,1,0)="This is the data value needed to allow the system to match the"
^DD(399,240,21,2,0)="attending/rendering provider with the correct EMC id # for the secondary"
^DD(399,240,21,3,0)="ins co."
^DD(399,240,"DT")="3001109"
^DD(399,241,0)="TERTIARY EMC ID CARE UNIT^F^^U2;19^K:$L(X)>30!($L(X)<1) X"
^DD(399,241,3)="Answer must be 1-30 characters in length."
^DD(399,241,4)="D CAREID^IBCEP1(""EMC"",3,DA)"
^DD(399,241,21,0)="^^3^3^3000905^"
^DD(399,241,21,1,0)="This is the data value needed to allow the system to match the"
^DD(399,241,21,2,0)="attending/rendering provider with the correct EMC id # for the tertiary"
^DD(399,241,21,3,0)="ins co."
^DD(399,241,"DT")="3001109"
^DD(399,242,0)="MAMMOGRAPHY CERT NUMBER^F^^U3;1^K:$L(X)>15!($L(X)<1) X"
^DD(399,242,3)="Answer must be 1-15 characters in length"
^DD(399,242,21,0)="^^10^10^3051228^"
^DD(399,242,21,1,0)="Enter the Mammography Certification number for the VAMC if the "
^DD(399,242,21,2,0)="service was performed by the VA."
^DD(399,242,21,3,0)="Enter the Mammography Certification number for the Other Facility "
^DD(399,242,21,4,0)="if the service was performed by a non-VA facility."
^DD(399,242,21,5,0)=" "
^DD(399,242,21,6,0)="You can define a Mammography Certification number for a non-VA "
^DD(399,242,21,7,0)="Facility through Provider ID Maint.  If you enter a Mammography"
^DD(399,242,21,8,0)="Certification number here that is not defined in Provider ID"
^DD(399,242,21,9,0)="Maint (non-VA) or the Institution file (VA), it will be sent"
^DD(399,242,21,10,0)="with this claim only."
^DD(399,242,"DT")="3051228"
^DD(399,243,0)="DEFAULT DIVISION TAXONOMY^*P8932.1'^USC(8932.1,^U3;2^S DIC(""S"")=""I $P($G(^(90002)),U,2)=""""N"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,243,3)="Enter the Taxonomy Code associated with the Default Division."
^DD(399,243,5,1,0)="399^.22^8"
^DD(399,243,12)="Only entries for 'Non-Individuals' may be selected."
^DD(399,243,12.1)="S DIC(""S"")=""I $P($G(^(90002)),U,2)=""""N"""""""
^DD(399,243,"DT")="3060613"
^DD(399,244,0)="NON-VA FACILITY TAXONOMY^*P8932.1'^USC(8932.1,^U3;3^S DIC(""S"")=""I $P($G(^(90002)),U,2)=""""N"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399,244,3)="Enter the Taxonomy Code associated with this Non-VA Facility."
^DD(399,244,5,1,0)="399^232^4"
^DD(399,244,12)="Only entries for 'Non-Individuals' may be selected."
^DD(399,244,12.1)="S DIC(""S"")=""I $P($G(^(90002)),U,2)=""""N"""""""
^DD(399,244,"DT")="3060613"
^DD(399,245,0)="LAST XRAY DATE^DX^^U3;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D CHDAT^IBCU4"
^DD(399,245,3)="Enter the last date the patient had an Xray  (for chiropractics only)."
^DD(399,245,21,0)="^.001^3^3^3070619^^^^"
^DD(399,245,21,1,0)="If an Xray was used to demonstrate a subluxation of the spine, enter the"
^DD(399,245,21,2,0)="date of the last Xray."
^DD(399,245,21,3,0)="If an Xray date is entered, it will automatically print on CMS-1500."
^DD(399,245,"DT")="3070619"
^DD(399,246,0)="DATE OF INITIAL TREATMENT^DX^^U3;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D CHDAT^IBCU4"
^DD(399,246,3)="Enter the date on which the chiropractic treatment began."
^DD(399,246,21,0)="^.001^1^1^3070807^^"
^DD(399,246,21,1,0)="Date on which these treatments were started."
^DD(399,246,"DT")="3070619"
^DD(399,247,0)="DATE OF ACUTE MANIFESTATION^DX^^U3;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D CHDAT^IBCU4"
^DD(399,247,3)="Enter the date on which the acute chiropractic condition began."
^DD(399,247,21,0)="^.001^3^3^3070806^^^"
^DD(399,247,21,1,0)="If the Patient's Condition Code equals Acute Condition or Acute"
^DD(399,247,21,2,0)="Manifestation of a Chronic Condition, you must enter the date on which"
^DD(399,247,21,3,0)="the acute condition started."
^DD(399,247,"DT")="3070619"
^DD(399,248,0)="PATIENT CONDITION CODE^S^A:Acute Condition;C:Chronic Condition;D:Non-acute Condition;E:Non-Life Threatening;F:Routine;G:Symptomatic;M:Acute Manifestation of a Chronic Condition;^U3;7^Q"
^DD(399,248,3)="Enter a code describing the chiropractic condition."
^DD(399,248,21,0)="^.001^1^1^3070806^^^^"
^DD(399,248,21,1,0)="Enter one of the following required codes;"
^DD(399,248,"DT")="3070524"
^DD(399,301,0)="PRIMARY NODE^RF^^I1;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(399,301,3)="This is the information pertaining to the primary insurance carrier associated with this bill."
^DD(399,301,21,0)="^^2^2^2930622^^"
^DD(399,301,21,1,0)="This is the information pertaining to the primary insurance carrier which"
^DD(399,301,21,2,0)="is associated with this bill."
^DD(399,301,23,0)="^^4^4^2930622^"
^DD(399,301,23,1,0)="Set by trigger on Primary Insurance Carrier (399,101) and at UPDT^IBSCSE."
^DD(399,301,23,2,0)="This node is a duplicate of the insurance's node in the patient file."
^DD(399,301,23,3,0)="^DGCR(399,IBIFN,""I1"")=^DPT(DFN,.312,X)"
^DD(399,301,23,4,0)="      where +^DPT(DFN,.312,X)=(399,101)  primary insurer"
^DD(399,301,"DT")="2900129"
^DD(399,302,0)="SECONDARY NODE^RF^^I2;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(399,302,3)="This is the information pertaining to the secondary insurance carrier which is associated with this bill."
^DD(399,302,21,0)="^^2^2^2930622^^"
^DD(399,302,21,1,0)="This is the information pertaining to the secondary insurance carrier which "
^DD(399,302,21,2,0)="is associated with this bill."
^DD(399,302,23,0)="^^4^4^2930622^"
^DD(399,302,23,1,0)="Set by trigger on Secondary Insurance Carrier (399,102) and by UPDT^IBCSCE."
^DD(399,302,23,2,0)="This node is a duplicate of the insurance's node in the patient file."
^DD(399,302,23,3,0)="^DGCR(399,IBIFN,""I2"")=^DPT(DFN,.312,X)"
^DD(399,302,23,4,0)="      where +^DPT(DFN,.312,X)=(399,102)  secondary insurer for bill"
^DD(399,302,"DT")="2900129"
^DD(399,303,0)="TERTIARY NODE^RF^^I3;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(399,303,3)="This is the information pertaining to the tertiary insurance carrier associated with this bill."
^DD(399,303,21,0)="^^1^1^2940214^^"
^DD(399,303,21,1,0)="This is the information pertaining to the tertiary insurance carrier associated with this bill."
^DD(399,303,"DT")="2900129"
^DD(399,304,0)="PROCEDURES^399.0304IVA^^CP;0"
^DD(399,304,21,0)="^^1^1^2940214^^^^"
^DD(399,304,21,1,0)="These are ICD or CPT procedures that are associated with this bill."
^DD(399,304,23,0)="^^1^1^2940120^^^^"
^DD(399,304,23,1,0)=" "
^DD(399,304,"DT")="2911101"
^DD(399,400,0)="BLOCK 31^F^^UF2;1^K:$L(X)>63!($L(X)<3) X"
^DD(399,400,3)="Answer must be 3-63 characters in length."
^DD(399,400,21,0)="^^4^4^3060908^"
^DD(399,400,21,1,0)="Entry will be printed in block 31 of the CMS-1500.  This block is 3 lines"
^DD(399,400,21,2,0)="of 21 characters each."
^DD(399,400,21,3,0)=" "
^DD(399,400,21,4,0)="Set up for the physicians name and number."
^DD(399,400,"DT")="3060908"
^DD(399,401,0)="PRINT FACILITY DATA IN BOX 32^*S^1:YES;^UF2;2^Q"
^DD(399,401,3)="Respond YES if the facility name and address should print in box 32 of the CMS-1500 instead of 'SAME'"
^DD(399,401,12)="Must be a CMS-1500 form and the division must be the main division for the facility."
^DD(399,401,12.1)="S DIC(""S"")=""N Z S Z=$G(^DGCR(399,+$G(DA),0)) I $S('$G(DA):1,1:$P(Z,U,19)=2&($P($G(^IBE(350.9,1,0)),U,2)=$P($G(^DG(40.8,+$P(Z,U,22),0)),U,7)))"""
^DD(399,401,21,0)="^^3^3^3070131^"
^DD(399,401,21,1,0)="If this bill is for the facility's main division and it should always"
^DD(399,401,21,2,0)="print with the full name and address of the main facility in box 32"
^DD(399,401,21,3,0)="of the CMS-1500, this field should be set to YES (1)."
^DD(399,401,"DT")="3070131"
^DD(399,402,0)="BILL REMARKS^F^^UF2;3^K:$L(X)>80!($L(X)<1) X"
^DD(399,402,3)="Answer must be 1-80 characters in length"
^DD(399,402,21,0)="^^8^8^3070808^"
^DD(399,402,21,1,0)="Enter up to 80 characters of free text which will print in FL-80."
^DD(399,402,21,2,0)=" "
^DD(399,402,21,3,0)="FL-80 on the UB-04 claim form is a 4-line box.  Line 1 can hold a "
^DD(399,402,21,4,0)="maximum of 19 characters after a mandatory 5 character indentation.  "
^DD(399,402,21,5,0)="Lines 2-4 can hold a maximum of 24 characters each."
^DD(399,402,21,6,0)=" "
^DD(399,402,21,7,0)="The display of these remarks on billing screen 8 is exactly how"
^DD(399,402,21,8,0)="the remarks will appear on the printed claim form."
^DD(399,402,23,0)="^^1^1^3070808^"
^DD(399,402,23,1,0)="This field is also transmitted via EDI in the UB1 segment, piece 21."
^DD(399,402,"DT")="3070808"
^DD(399,450,0)="*UB92 FORM LOCATOR 2^F^^UF3;1^K:$L(X)>59!($L(X)<3) X"
^DD(399,450,3)="Answer must be 3-59 characters in length."
^DD(399,450,21,0)="^^5^5^3070117^"
^DD(399,450,21,1,0)="FORM LOCATOR 2 ON THE UB-92."
^DD(399,450,21,2,0)="Printed in Form Locator 2 on the UB-92.  If more than 30 characters are"
^DD(399,450,21,3,0)="entered this will be printed on two lines."
^DD(399,450,21,4,0)=" "
^DD(399,450,21,5,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,450,23,0)="^^8^8^3070117^"
^DD(399,450,23,1,0)="Unlabled Form Locator 2 on the UB-92.  On the form the block is two lines"
^DD(399,450,23,2,0)="of 29 and 30 characters, with the upper line optional.  Therefore, if"
^DD(399,450,23,3,0)="string is longer than 30 characters it must be split and printed on both"
^DD(399,450,23,4,0)="lines."
^DD(399,450,23,5,0)="Field name changed from FORM LOCATOR 2 to UB92 FORM LOCATOR 2"
^DD(399,450,23,6,0)="with patch IB*2.0*243."
^DD(399,450,23,7,0)=" "
^DD(399,450,23,8,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,450,"DT")="3070117"
^DD(399,451,0)="*FORM LOCATOR 11^F^^UF3;2^K:$L(X)>25!($L(X)<3) X"
^DD(399,451,3)="Answer must be 3-25 characters in length."
^DD(399,451,21,0)="^^4^4^3070117^"
^DD(399,451,21,1,0)="Printed in Form Locator 11 on the UB-92.  If more than 13 characters are"
^DD(399,451,21,2,0)="entered this will be printed on two lines."
^DD(399,451,21,3,0)=" "
^DD(399,451,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,451,23,0)="^^6^6^3070117^"
^DD(399,451,23,1,0)="Unlabled Form Locator 11 on the UB-92.  On the form the block is two lines"
^DD(399,451,23,2,0)="of 12 and 13 characters, with the upper line optional.  Therefore, if"
^DD(399,451,23,3,0)="string is longer than 13 characters it must be split and printed on both"
^DD(399,451,23,4,0)="lines."
^DD(399,451,23,5,0)=" "
^DD(399,451,23,6,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,451,"DT")="3070117"
^DD(399,452,0)="*FORM LOCATOR 31^F^^UF3;3^K:$L(X)>11!($L(X)<3) X"
^DD(399,452,3)="Answer must be 3-11 characters in length."
^DD(399,452,21,0)="^^4^4^3070117^"
^DD(399,452,21,1,0)="Printed in Form Locator 31 on the UB-92.  If more than 6 characters are"
^DD(399,452,21,2,0)="entered this will be printed on two lines."
^DD(399,452,21,3,0)=" "
^DD(399,452,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,452,23,0)="^^5^5^3070117^"
^DD(399,452,23,1,0)="Unlabled Form Locator 31 on the UB-92.  On the form the block is two lines"
^DD(399,452,23,2,0)="of 5 and 6 characters.  Therefore, if the string is longer than 6"
^DD(399,452,23,3,0)="characters it must be split and printed on both lines."
^DD(399,452,23,4,0)=" "
^DD(399,452,23,5,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,452,"DT")="3070117"
^DD(399,453,0)="FORM LOCATOR 64A^F^^UF3;4^K:$L(X)>23!($L(X)<3) X"
^DD(399,453,.1)="PRIMARY INSURANCE ICN/DCN"
^DD(399,453,3)="Answer must be 3-23 characters in length."
^DD(399,453,21,0)="^^4^4^3070119^"
^DD(399,453,21,1,0)="Form Locator 64A on the UB-04.  This field is nationally reserved on"
^DD(399,453,21,2,0)="adjustment/replacement type bills for the Internal Control Number"
^DD(399,453,21,3,0)="(ICN)/Document Control Number (DCN) assigned to the original bill"
^DD(399,453,21,4,0)="by the primary payer."
^DD(399,453,"DT")="3070119"
^DD(399,454,0)="FORM LOCATOR 64B^F^^UF3;5^K:$L(X)>23!($L(X)<3) X"
^DD(399,454,.1)="SECONDARY INSURANCE ICN/DCN"
^DD(399,454,3)="Answer must be 3-23 characters in length."
^DD(399,454,21,0)="^^4^4^3070119^"
^DD(399,454,21,1,0)="Form Locator 64B on the UB-04.  This field is nationally reserved on"
^DD(399,454,21,2,0)="adjustment/replacement type bills for the Internal Control Number"
^DD(399,454,21,3,0)="(ICN)/Document Control Number (DCN) assigned to the original bill by the"
^DD(399,454,21,4,0)="secondary payer."
^DD(399,454,"DT")="3070119"
^DD(399,455,0)="FORM LOCATOR 64C^F^^UF3;6^K:$L(X)>23!($L(X)<3) X"
^DD(399,455,.1)="TERTIARY INSURANCE ICN/DCN"
^DD(399,455,3)="Answer must be 3-23 characters in length."
^DD(399,455,21,0)="^^4^4^3070119^"
^DD(399,455,21,1,0)="Form Locator 64C on the UB-04.  This field is nationally reserved on"
^DD(399,455,21,2,0)="adjustment/replacement type bills for the Internal Control Number"
^DD(399,455,21,3,0)="(ICN)/Document Control Number (DCN) assigned to the original bill by the"
^DD(399,455,21,4,0)="tertiary payer."
^DD(399,455,"DT")="3070119"
^DD(399,456,0)="*FORM LOCATOR 56^F^^UF3;7^K:$L(X)>69!($L(X)<3) X"
^DD(399,456,3)="Answer must be 3-69 characters in length."
^DD(399,456,21,0)="^^4^4^3070117^"
^DD(399,456,21,1,0)="Printed in Form Locator 56 on the UB-92.  If more than 14 characters are"
^DD(399,456,21,2,0)="entered this will be printed on multiple lines."
^DD(399,456,21,3,0)=" "
^DD(399,456,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,456,23,0)="^^6^6^3070117^"
^DD(399,456,23,1,0)="Unlabled Form Locator 56 on the UB-92.  On the form the block is five lines"
^DD(399,456,23,2,0)="of 13 and 14 characters.  Therefore, if the string is longer than 14"
^DD(399,456,23,3,0)="characters it must be split and printed on multiple lines.  The top line of"
^DD(399,456,23,4,0)="13 characters will be used last."
^DD(399,456,23,5,0)=" "
^DD(399,456,23,6,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,456,"DT")="3070117"
^DD(399,457,0)="*FORM LOCATOR 57^F^^UF31;1^K:$L(X)>27!($L(X)<3) X"
^DD(399,457,3)="Answer must be 3-27 characters in length."
^DD(399,457,21,0)="^^3^3^3070117^"
^DD(399,457,21,1,0)="Unlabled Form Locator 57 on the UB-92."
^DD(399,457,21,2,0)=" "
^DD(399,457,21,3,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,457,"DT")="3070117"
^DD(399,458,0)="*FORM LOCATOR 78^F^^UF31;2^K:$L(X)>5!($L(X)<3) X"
^DD(399,458,3)="Answer must be 3-5 characters in length."
^DD(399,458,21,0)="^^4^4^3070117^"
^DD(399,458,21,1,0)="Printed in Form Locator 78 on the UB-92.  If more than 3 characters are"
^DD(399,458,21,2,0)="entered this will be printed on two lines."
^DD(399,458,21,3,0)=" "
^DD(399,458,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,458,23,0)="^^6^6^3070117^"
^DD(399,458,23,1,0)="Unlabled Form Locator 78 on the UB-92.  On the form the block is two lines"
^DD(399,458,23,2,0)="of 2 and 3 characters, with the upper line optional.  Therefore, if"
^DD(399,458,23,3,0)="string is longer than 3 characters it must be split and printed on both"
^DD(399,458,23,4,0)="lines."
^DD(399,458,23,5,0)=" "
^DD(399,458,23,6,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399,458,"DT")="3070117"
^DD(399,459,0)="FORM LOC 19-UNSPECIFIED DATA^F^^UF31;3^K:$L(X)>80!($L(X)<1) X"
^DD(399,459,3)="Answer must be 1-80 characters in length."
^DD(399,459,21,0)="^^24^24^3060908^"
^DD(399,459,21,1,0)="This is the text that will be printed in box 19 of the CMS-1500 form"
^DD(399,459,21,2,0)="when there is no other place to enter the data.  This field only applies"
^DD(399,459,21,3,0)="to printed claims.  Electronic claims information must be entered into the"
^DD(399,459,21,4,0)="appropriate data fields."
^DD(399,459,21,5,0)="For print claims, this data is derived from a combination of different"
^DD(399,459,21,6,0)="data throughout the system and is limited to 80 characters.  The hierarchy"
^DD(399,459,21,7,0)="for including data is as follows (until 80 characters have been used):"
^DD(399,459,21,8,0)="   "
^DD(399,459,21,9,0)="   DATE LAST SEEN and REFERRING PHYSICIAN ID# (physical therapy)"
^DD(399,459,21,10,0)="   X-RAY DATE (chiropractic)"
^DD(399,459,21,11,0)="   HOMEBOUND INDICATOR (independent lab renders an EKG or obtains specimen"
^DD(399,459,21,12,0)="                        from a homebound patient)"
^DD(399,459,21,13,0)="   NO ASSIGNMENT OF BENEFITS (if no assignment of benefits indicated)"
^DD(399,459,21,14,0)="   Hearing aid testing (if applicable)"
^DD(399,459,21,15,0)="   DENTAL SURGERY (if applicable)"
^DD(399,459,21,16,0)="   ATTENDING PHYSICIAN NOT HOSPICE EMPLOYEE (if applicable)"
^DD(399,459,21,17,0)="   LOW OSMOLAR CONTRAST MATERIAL (if applicable)"
^DD(399,459,21,18,0)="   SHARED POST-OP CARE TRANSITION DATE (if applicable)"
^DD(399,459,21,19,0)="   COMMENTS IN BOX 19 DATA FIELD"
^DD(399,459,21,20,0)=" "
^DD(399,459,21,21,0)="You will need to use the Medicare manual to determine when these data"
^DD(399,459,21,22,0)="elements are needed and specifically what data is to be reported.  If the"
^DD(399,459,21,23,0)="individual data elements cannot be entered into VistA in unique fields,"
^DD(399,459,21,24,0)="you will need to enter the corresponding text into the free text box 19"
^DD(399,459,"DT")="3060908"
^DD(399,460,0)="ECME NUMBER^F^^M1;8^K:$L(X)>30!($L(X)<1) X"
^DD(399,460,1,0)="^.1"
^DD(399,460,1,1,0)="399^AG"
^DD(399,460,1,1,1)="S ^DGCR(399,""AG"",$E(X,1,30),DA)="""""
^DD(399,460,1,1,2)="K ^DGCR(399,""AG"",$E(X,1,30),DA)"
^DD(399,460,1,1,"DT")="3030624"
^DD(399,460,3)="Enter the ECME reference number for this bill."
^DD(399,460,21,0)="^^2^2^3030709^"
^DD(399,460,21,1,0)="This is the reference number back to the ECME transaction to identify "
^DD(399,460,21,2,0)="bills created electronically by the ECME/Pharmacy NCPDP process."
^DD(399,460,"DT")="3030709"
^DD(399,461,0)="ECME APPROVAL^F^^M1;9^K:$L(X)>30!($L(X)<1) X"
^DD(399,461,1,0)="^.1^^0"
^DD(399,461,3)="Enter the ECME approval number."
^DD(399,461,21,0)="^^2^2^3030915^"
^DD(399,461,21,1,0)="This is the approval for payment received from the FI for ECME "
^DD(399,461,21,2,0)="electronically processed claims."
^DD(399,461,"DT")="3030916"
^DD(399,"B","*BILL COMMENT",208)=""
^DD(399,"B","*CPT PROCEDURE CODE (1)",51)=""
^DD(399,"B","*CPT PROCEDURE CODE (2)",52)=""
^DD(399,"B","*CPT PROCEDURE CODE (3)",53)=""
^DD(399,"B","*FISCAL YEAR 1",209)=""
^DD(399,"B","*FISCAL YEAR 2",211)=""
^DD(399,"B","*FORM LOCATOR 11",451)=""
^DD(399,"B","*FORM LOCATOR 27",206)=""
^DD(399,"B","*FORM LOCATOR 31",452)=""
^DD(399,"B","*FORM LOCATOR 45",207)=""
^DD(399,"B","*FORM LOCATOR 56",456)=""
^DD(399,"B","*FORM LOCATOR 57",457)=""
^DD(399,"B","*FORM LOCATOR 78",458)=""
^DD(399,"B","*FORM LOCATOR 9",205)=""
^DD(399,"B","*FORM LOCATOR 92",213)=""
^DD(399,"B","*FORM LOCATOR 93",214)=""
^DD(399,"B","*FY 1 CHARGES",210)=""
^DD(399,"B","*FY 2 CHARGES",212)=""
^DD(399,"B","*HCFA PROCDURE CODE (3)",59)="1"
^DD(399,"B","*HCFA PROCEDURE CODE (1)",57)=""
^DD(399,"B","*HCFA PROCEDURE CODE (2)",58)=""
^DD(399,"B","*HCFA PROCEDURE CODE (3)",59)=""
^DD(399,"B","*ICD DIAGNOSIS CODE (1)",64)=""
^DD(399,"B","*ICD DIAGNOSIS CODE (2)",65)=""
^DD(399,"B","*ICD DIAGNOSIS CODE (3)",66)=""
^DD(399,"B","*ICD DIAGNOSIS CODE (4)",67)=""
^DD(399,"B","*ICD DIAGNOSIS CODE (5)",68)=""
^DD(399,"B","*ICD PROCEDURE CODE (1)",54)=""
^DD(399,"B","*ICD PROCEDURE CODE (2)",55)=""
^DD(399,"B","*ICD PROCEDURE CODE (3)",56)=""
^DD(399,"B","*PATIENT SHORT MAILING ADDRESS",110)=""
^DD(399,"B","*PLACE OF SERVICE",168)=""
^DD(399,"B","*PROCDEDURE DATE (1)",61)=""
^DD(399,"B","*PROCEDURE DATE (2)",62)=""
^DD(399,"B","*PROCEDURE DATE (3)",63)=""
^DD(399,"B","*TYPE OF SERVICE",169)=""
^DD(399,"B","*UB82 FORM LOCATOR 2",204)=""
^DD(399,"B","*UB92 FORM LOCATOR 2",450)=""
^DD(399,"B","ACCIDENT HOUR",160)=""
^DD(399,"B","ADMITTING DIAGNOSIS",215)=""
^DD(399,"B","ASSIGNMENT OF BENEFITS",156)=""
^DD(399,"B","AUTHORIZATION DATE",10)=""
^DD(399,"B","AUTHORIZE BILL GENERATION?",9)=""
^DD(399,"B","AUTHORIZER",11)=""
^DD(399,"B","AUTO",.2)=""
^DD(399,"B","BC/BS PROVIDER #",164)=""
^DD(399,"B","BILL CANCELLED BY",18)=""
^DD(399,"B","BILL CHARGE TYPE",.27)=""
^DD(399,"B","BILL CLASSIFICATION",.05)=""
^DD(399,"B","BILL CLONED BY",32)=""
^DD(399,"B","BILL CLONED FROM",30)=""
^DD(399,"B","BILL CLONED TO",29)=""
^DD(399,"B","BILL COPIED FROM",.15)=""
^DD(399,"B","BILL NUMBER",.01)=""
^DD(399,"B","BILL PAYER CARRIER",135)=""
^DD(399,"B","BILL PAYER POLICY",136)=""
^DD(399,"B","BILL REMARKS",402)=""
^DD(399,"B","BLOCK 31",400)=""
^DD(399,"B","CANCEL BILL?",16)=""
^DD(399,"B","CLAIM MRA STATUS",24)=""
^DD(399,"B","CO-INSURANCE DAYS",221)=""
^DD(399,"B","CONDITION CODE",40)=""
^DD(399,"B","COVERED DAYS",216)=""
^DD(399,"B","CPT PROCEDURE CODE (1)",51)="1"
^DD(399,"B","CPT PROCEDURE CODE (2)",52)="1"
^DD(399,"B","CPT PROCEDURE CODE (3)",53)="1"
^DD(399,"B","CURRENT BILL PAYER SEQUENCE",.21)=""
^DD(399,"B","DATE BILL CANCELLED",17)=""
^DD(399,"B","DATE BILL CLONED",31)=""
^DD(399,"B","DATE ENTERED",1)=""
^DD(399,"B","DATE FIRST PRINTED",12)=""
^DD(399,"B","DATE LAST PRINTED",14)=""
^DD(399,"B","DATE LAST SEEN",237)=""
^DD(399,"B","DATE OF ACUTE MANIFESTATION",247)=""
^DD(399,"B","DATE OF INITIAL TREATMENT",246)=""
^DD(399,"B","DEFAULT DIVISION",.22)=""
^DD(399,"B","DEFAULT DIVISION TAXONOMY",243)=""
^DD(399,"B","DISCHARGE BEDSECTION",161)=""
^DD(399,"B","DISCHARGE STATUS",162)=""
^DD(399,"B","ECME APPROVAL",461)=""
^DD(399,"B","ECME NUMBER",460)=""
^DD(399,"B","ENTERED/EDITED BY",2)=""
^DD(399,"B","EVENT DATE",.03)=""
^DD(399,"B","FIRST PRINTED BY",13)=""
^DD(399,"B","FORCE CLAIM TO PRINT",27)=""
^DD(399,"B","FORCE PRINT MRA SECONDARY",28)=""
^DD(399,"B","FORM LOC 19-UNSPECIFIED DATA",459)=""
^DD(399,"B","FORM LOCATOR 64A",453)=""
^DD(399,"B","FORM LOCATOR 64B",454)=""
^DD(399,"B","FORM LOCATOR 64C",455)=""
^DD(399,"B","FORM TYPE",.19)=""
^DD(399,"B","HCFA PROCEDURE CODE (1)",57)="1"
^DD(399,"B","HCFA PROCEDURE CODE (2)",58)="1"
^DD(399,"B","HOMEBOUND",236)=""
^DD(399,"B","ICD DIAGNOSIS CODE (1)",64)="1"
^DD(399,"B","ICD DIAGNOSIS CODE (2)",65)="1"
^DD(399,"B","ICD DIAGNOSIS CODE (3)",66)="1"
^DD(399,"B","ICD DIAGNOSIS CODE (4)",67)="1"
^DD(399,"B","ICD DIAGNOSIS CODE (5)",68)="1"
^DD(399,"B","ICD PROCEDURE CODE (2)",55)="1"
^DD(399,"B","ICD PROCEDURE CODE (3)",56)="1"
^DD(399,"B","INITIAL REVIEW",3)=""
^DD(399,"B","INITIAL REVIEW DATE",4)=""
^DD(399,"B","INITIAL REVIEWER",5)=""
^DD(399,"B","IS THIS A SENSITIVE RECORD?",155)=""
^DD(399,"B","LAB CLIA NUMBER",235)=""
^DD(399,"B","LAST AUSTIN CONFIRM DATE",20)=""
^DD(399,"B","LAST ELECTRONIC EXTRACT DATE",21)=""
^DD(399,"B","LAST PRINTED BY",15)=""
^DD(399,"B","LAST XRAY DATE",245)=""
^DD(399,"B","LENGTH OF STAY",165)=""
^DD(399,"B","LOCATION OF CARE",.04)=""
^DD(399,"B","MAILING ADDRESS CITY",107)=""
^DD(399,"B","MAILING ADDRESS NAME",104)=""
^DD(399,"B","MAILING ADDRESS STATE",108)=""
^DD(399,"B","MAILING ADDRESS STREET",105)=""
^DD(399,"B","MAILING ADDRESS STREET2",106)=""
^DD(399,"B","MAILING ADDRESS STREET3",121)=""
^DD(399,"B","MAILING ADDRESS ZIP CODE",109)=""
^DD(399,"B","MAMMOGRAPHY CERT NUMBER",242)=""
^DD(399,"B","MRA RECORDED DATE",22)=""
^DD(399,"B","MRA REQUEST CLAIM COMMENTS",77)=""
^DD(399,"B","MRA REQUESTED DATE",7)=""
^DD(399,"B","MRA REQUESTOR",8)=""
^DD(399,"B","MRA REVIEW STATUS",28.1)=""
^DD(399,"B","NON-COVERED DAYS",217)=""
^DD(399,"B","NON-PTF ADMISSION HOUR",159.5)=""
^DD(399,"B","NON-VA CARE ID #",234)=""
^DD(399,"B","NON-VA CARE TYPE",233)=""
^DD(399,"B","NON-VA DISCHARGE DATE",.16)=""
^DD(399,"B","NON-VA FACILITY",232)=""
^DD(399,"B","NON-VA FACILITY TAXONOMY",244)=""
^DD(399,"B","OCCURRENCE CODE",41)=""
^DD(399,"B","OFFSET AMOUNT",202)=""
^DD(399,"B","OFFSET DESCRIPTION",203)=""
^DD(399,"B","OP VISITS DATE(S)",43)=""
^DD(399,"B","OTHER CARE",48)=""
^DD(399,"B","OUTPATIENT DIAGNOSIS",60)=""
^DD(399,"B","PATIENT CONDITION CODE",248)=""
^DD(399,"B","PATIENT NAME",.02)=""
^DD(399,"B","POWER OF ATTORNEY COMPLETED?",153)=""
^DD(399,"B","PRIMARY BILL",.17)=""
^DD(399,"B","PRIMARY BILL #",125)=""
^DD(399,"B","PRIMARY EMC ID CARE UNIT",239)=""
^DD(399,"B","PRIMARY ID QUALIFIER",128)=""
^DD(399,"B","PRIMARY INSURANCE CARRIER",101)=""
^DD(399,"B","PRIMARY INSURANCE ICN/DCN",453)="1"
^DD(399,"B","PRIMARY INSURANCE POLICY",112)=""
^DD(399,"B","PRIMARY NODE",301)=""
^DD(399,"B","PRIMARY PRIOR PAYMENT",218)=""
^DD(399,"B","PRIMARY PROVIDER #",122)=""
^DD(399,"B","PRINT FACILITY DATA IN BOX 32",401)=""
^DD(399,"B","PRINTED VIA EDI?",26)=""
^DD(399,"B","PROCEDURE CODING METHOD",.09)=""
^DD(399,"B","PROCEDURE DATE (1)",61)="1"
^DD(399,"B","PROCEDURE DATE (2)",62)="1"
^DD(399,"B","PROCEDURE DATE (3)",63)="1"
^DD(399,"B","PROCEDURES",304)=""
^DD(399,"B","PROVIDER",222)=""
^DD(399,"B","PTF ENTRY NUMBER",.08)=""
^DD(399,"B","R.O.I. FORM(S) COMPLETED?",157)=""
^DD(399,"B","RATE TYPE",.07)=""
^DD(399,"B","REASON CANCELLED",19)=""
^DD(399,"B","REASON CLONED",33)=""
^DD(399,"B","REASON(S) DISAPPROVED-INITIAL",44)=""
^DD(399,"B","REASON(S) DISAPPROVED-SECOND",45)=""
^DD(399,"B","REQUEST AN MRA?",25)=""
^DD(399,"B","RESPONSIBLE INSTITUTION",111)=""
^DD(399,"B","RETURNED LOG DATE/TIME",46)=""
^DD(399,"B","REVENUE CODE",42)=""
^DD(399,"B","SC AT TIME OF CARE",.18)=""
^DD(399,"B","SECONDARY AUTHORIZATION CODE",230)=""
^DD(399,"B","SECONDARY BILL #",126)=""
^DD(399,"B","SECONDARY EMC ID CARE UNIT",240)=""
^DD(399,"B","SECONDARY ID QUALIFIER",129)=""
^DD(399,"B","SECONDARY INSURANCE CARRIER",102)=""
^DD(399,"B","SECONDARY INSURANCE ICN/DCN",454)="1"
^DD(399,"B","SECONDARY INSURANCE POLICY",113)=""
^DD(399,"B","SECONDARY NODE",302)=""
^DD(399,"B","SECONDARY PRIOR PAYMENT",219)=""
^DD(399,"B","SECONDARY PROVIDER #",123)=""
^DD(399,"B","SECONDARY REVIEW",6)=""
^DD(399,"B","SOURCE OF ADMISSION",159)=""
^DD(399,"B","SPECIAL PROGRAM INDICATOR",238)=""
^DD(399,"B","STATEMENT COVERS FROM",151)=""
^DD(399,"B","STATEMENT COVERS TO",152)=""
^DD(399,"B","STATUS",.13)=""
^DD(399,"B","STATUS DATE",.14)=""
^DD(399,"B","TERTIARY AUTHORIZATION CODE",231)=""
^DD(399,"B","TERTIARY BILL #",127)=""
^DD(399,"B","TERTIARY EMC ID CARE UNIT",241)=""
^DD(399,"B","TERTIARY ID QUALIFIER",130)=""
^DD(399,"B","TERTIARY INSURANCE CARRIER",103)=""
^DD(399,"B","TERTIARY INSURANCE ICN/DCN",455)="1"
^DD(399,"B","TERTIARY INSURANCE POLICY",114)=""
^DD(399,"B","TERTIARY NODE",303)=""
^DD(399,"B","TERTIARY PRIOR PAYMENT",220)=""
^DD(399,"B","TERTIARY PROVIDER #",124)=""
^DD(399,"B","TIMEFRAME OF BILL",.06)=""
^DD(399,"B","TOTAL CHARGES",201)=""
^DD(399,"B","TREATMENT AUTHORIZATION CODE",163)=""
^DD(399,"B","TYPE OF ADMISSION",158)=""
^DD(399,"B","TYPE OF BILL (1ST DIGIT)",.04)="1"
^DD(399,"B","TYPE OF BILL (2ND DIGIT)",.05)="1"
^DD(399,"B","TYPE OF BILL (3RD DIGIT)",.06)="1"
^DD(399,"B","UB-04 BILL CLASSIFICATION",.25)=""
^DD(399,"B","UB-04 LOCATION OF CARE",.24)=""
^DD(399,"B","UB-04 TIMEFRAME OF BILL",.26)=""
^DD(399,"B","UNABLE TO WORK FROM",166)=""
^DD(399,"B","UNABLE TO WORK TO",167)=""
^DD(399,"B","VALUE CODE",47)=""
^DD(399,"B","WHO'S RESPONSIBLE FOR BILL?",.11)=""
^DD(399,"B","WHOSE EMPLOYMENT INFO.?",154)=""
^DD(399,"GL",0,1,.01)=""
^DD(399,"GL",0,2,.02)=""
^DD(399,"GL",0,3,.03)=""
^DD(399,"GL",0,4,.04)=""
^DD(399,"GL",0,5,.05)=""
^DD(399,"GL",0,6,.06)=""
^DD(399,"GL",0,7,.07)=""
^DD(399,"GL",0,8,.08)=""
^DD(399,"GL",0,9,.09)=""
^DD(399,"GL",0,11,.11)=""
^DD(399,"GL",0,13,.13)=""
^DD(399,"GL",0,14,.14)=""
^DD(399,"GL",0,15,.15)=""
^DD(399,"GL",0,16,.16)=""
^DD(399,"GL",0,17,.17)=""
^DD(399,"GL",0,18,.18)=""
^DD(399,"GL",0,19,.19)=""
^DD(399,"GL",0,20,.2)=""
^DD(399,"GL",0,21,.21)=""
^DD(399,"GL",0,22,.22)=""
^DD(399,"GL",0,24,.24)=""
^DD(399,"GL",0,25,.25)=""
^DD(399,"GL",0,26,.26)=""
^DD(399,"GL",0,27,.27)=""
^DD(399,"GL","C",1,51)=""
^DD(399,"GL","C",2,52)=""
^DD(399,"GL","C",3,53)=""
^DD(399,"GL","C",4,54)=""
^DD(399,"GL","C",5,55)=""
^DD(399,"GL","C",6,56)=""
^DD(399,"GL","C",7,57)=""
^DD(399,"GL","C",8,58)=""
^DD(399,"GL","C",9,59)=""
^DD(399,"GL","C",10,60)=""
^DD(399,"GL","C",11,61)=""
^DD(399,"GL","C",12,62)=""
^DD(399,"GL","C",13,63)=""
^DD(399,"GL","C",14,64)=""
^DD(399,"GL","C",15,65)=""
^DD(399,"GL","C",16,66)=""
^DD(399,"GL","C",17,67)=""
^DD(399,"GL","C",18,68)=""
^DD(399,"GL","CC",0,40)=""
^DD(399,"GL","CP",0,304)=""
^DD(399,"GL","CV",0,47)=""
^DD(399,"GL","D1",0,44)=""
^DD(399,"GL","D2",0,45)=""
^DD(399,"GL","I1","E1,240",301)=""
^DD(399,"GL","I2","E1,240",302)=""
^DD(399,"GL","I3","E1,240",303)=""
^DD(399,"GL","M",1,101)=""
^DD(399,"GL","M",2,102)=""
^DD(399,"GL","M",3,103)=""
^DD(399,"GL","M",4,104)=""
^DD(399,"GL","M",5,105)=""
^DD(399,"GL","M",6,106)=""
^DD(399,"GL","M",7,107)=""
^DD(399,"GL","M",8,108)=""
^DD(399,"GL","M",9,109)=""
^DD(399,"GL","M",10,110)=""
^DD(399,"GL","M",11,111)=""
^DD(399,"GL","M",12,112)=""
^DD(399,"GL","M",13,113)=""
^DD(399,"GL","M",14,114)=""
^DD(399,"GL","M1",1,121)=""
^DD(399,"GL","M1",2,122)=""
^DD(399,"GL","M1",3,123)=""
^DD(399,"GL","M1",4,124)=""
^DD(399,"GL","M1",5,125)=""
^DD(399,"GL","M1",6,126)=""
^DD(399,"GL","M1",7,127)=""
^DD(399,"GL","M1",8,460)=""
^DD(399,"GL","M1",9,461)=""
^DD(399,"GL","M1",10,128)=""
^DD(399,"GL","M1",11,129)=""
^DD(399,"GL","M1",12,130)=""
^DD(399,"GL","MP",1,135)=""
^DD(399,"GL","MP",2,136)=""
^DD(399,"GL","OC",0,41)=""
^DD(399,"GL","OP",0,43)=""
^DD(399,"GL","OT",0,48)=""
^DD(399,"GL","PRV",0,222)=""
^DD(399,"GL","R",0,46)=""
^DD(399,"GL","RC",0,42)=""
^DD(399,"GL","S",1,1)=""
^DD(399,"GL","S",2,2)=""
^DD(399,"GL","S",3,3)=""
^DD(399,"GL","S",4,4)=""
^DD(399,"GL","S",5,5)=""
^DD(399,"GL","S",6,6)=""
^DD(399,"GL","S",7,7)=""
^DD(399,"GL","S",8,8)=""
^DD(399,"GL","S",9,9)=""
^DD(399,"GL","S",10,10)=""
^DD(399,"GL","S",11,11)=""
^DD(399,"GL","S",12,12)=""
^DD(399,"GL","S",13,13)=""
^DD(399,"GL","S",14,14)=""
^DD(399,"GL","S",15,15)=""
^DD(399,"GL","S",16,16)=""
^DD(399,"GL","S",17,17)=""
^DD(399,"GL","S",18,18)=""
^DD(399,"GL","S",19,19)=""
^DD(399,"GL","S1",1,29)=""
^DD(399,"GL","S1",2,30)=""
^DD(399,"GL","S1",3,31)=""
^DD(399,"GL","S1",4,32)=""
^DD(399,"GL","S1",5,33)=""
^DD(399,"GL","TX",1,20)=""
^DD(399,"GL","TX",2,21)=""
^DD(399,"GL","TX",3,22)=""
^DD(399,"GL","TX",5,24)=""
^DD(399,"GL","TX",6,25)=""
^DD(399,"GL","TX",7,26)=""
^DD(399,"GL","TX",8,27)=""
^DD(399,"GL","TX",9,28)=""
^DD(399,"GL","TX",10,28.1)=""
^DD(399,"GL","TXC",0,77)=""
^DD(399,"GL","U",1,151)=""
^DD(399,"GL","U",2,152)=""
^DD(399,"GL","U",3,153)=""
^DD(399,"GL","U",4,154)=""
^DD(399,"GL","U",5,155)=""
^DD(399,"GL","U",6,156)=""
^DD(399,"GL","U",7,157)=""
^DD(399,"GL","U",8,158)=""
^DD(399,"GL","U",9,159)=""
^DD(399,"GL","U",10,160)=""
^DD(399,"GL","U",11,161)=""
^DD(399,"GL","U",12,162)=""
^DD(399,"GL","U",13,163)=""
^DD(399,"GL","U",14,164)=""
^DD(399,"GL","U",15,165)=""
^DD(399,"GL","U",16,166)=""
^DD(399,"GL","U",17,167)=""
^DD(399,"GL","U",18,168)=""
^DD(399,"GL","U",19,169)=""
^DD(399,"GL","U",20,159.5)=""
^DD(399,"GL","U1",1,201)=""
^DD(399,"GL","U1",2,202)=""
^DD(399,"GL","U1",3,203)=""
^DD(399,"GL","U1",4,204)=""
^DD(399,"GL","U1",5,205)=""
^DD(399,"GL","U1",6,206)=""
^DD(399,"GL","U1",7,207)=""
^DD(399,"GL","U1",8,208)=""
^DD(399,"GL","U1",9,209)=""
^DD(399,"GL","U1",10,210)=""
^DD(399,"GL","U1",11,211)=""
^DD(399,"GL","U1",12,212)=""
^DD(399,"GL","U1",13,213)=""
^DD(399,"GL","U1",14,214)=""
^DD(399,"GL","U2",1,215)=""
^DD(399,"GL","U2",2,216)=""
^DD(399,"GL","U2",3,217)=""
^DD(399,"GL","U2",4,218)=""
^DD(399,"GL","U2",5,219)=""
^DD(399,"GL","U2",6,220)=""
^DD(399,"GL","U2",7,221)=""
^DD(399,"GL","U2",8,230)=""
^DD(399,"GL","U2",9,231)=""
^DD(399,"GL","U2",10,232)=""
^DD(399,"GL","U2",11,233)=""
^DD(399,"GL","U2",12,234)=""
^DD(399,"GL","U2",13,235)=""
^DD(399,"GL","U2",14,236)=""
^DD(399,"GL","U2",15,237)=""
^DD(399,"GL","U2",16,238)=""
^DD(399,"GL","U2",17,239)=""
^DD(399,"GL","U2",18,240)=""
^DD(399,"GL","U2",19,241)=""
^DD(399,"GL","U3",1,242)=""
^DD(399,"GL","U3",2,243)=""
^DD(399,"GL","U3",3,244)=""
^DD(399,"GL","U3",4,245)=""
^DD(399,"GL","U3",5,246)=""
^DD(399,"GL","U3",6,247)=""
^DD(399,"GL","U3",7,248)=""
^DD(399,"GL","UF2",1,400)=""
^DD(399,"GL","UF2",2,401)=""
^DD(399,"GL","UF2",3,402)=""
^DD(399,"GL","UF3",1,450)=""
^DD(399,"GL","UF3",2,451)=""
^DD(399,"GL","UF3",3,452)=""
^DD(399,"GL","UF3",4,453)=""
^DD(399,"GL","UF3",5,454)=""
^DD(399,"GL","UF3",6,455)=""
^DD(399,"GL","UF3",7,456)=""
^DD(399,"GL","UF31",1,457)=""
^DD(399,"GL","UF31",2,458)=""
^DD(399,"GL","UF31",3,459)=""
^DD(399,"IX",.01)=""
^DD(399,"IX",.02)=""
^DD(399,"IX",.03)=""
^DD(399,"IX",.04)=""
^DD(399,"IX",.05)=""
^DD(399,"IX",.06)=""
^DD(399,"IX",.07)=""
^DD(399,"IX",.08)=""
^DD(399,"IX",.11)=""
^DD(399,"IX",.13)=""
^DD(399,"IX",.14)=""
^DD(399,"IX",.17)=""
^DD(399,"IX",.19)=""
^DD(399,"IX",.2)=""
^DD(399,"IX",.21)=""
^DD(399,"IX",.22)=""
^DD(399,"IX",.25)=""
^DD(399,"IX",.26)=""
^DD(399,"IX",.27)=""
^DD(399,"IX",1)=""
^DD(399,"IX",3)=""
^DD(399,"IX",7)=""
^DD(399,"IX",9)=""
^DD(399,"IX",10)=""
^DD(399,"IX",12)=""
^DD(399,"IX",14)=""
^DD(399,"IX",16)=""
^DD(399,"IX",17)=""
^DD(399,"IX",21)=""
^DD(399,"IX",24)=""
^DD(399,"IX",25)=""
^DD(399,"IX",64)=""
^DD(399,"IX",101)=""
^DD(399,"IX",102)=""
^DD(399,"IX",103)=""
^DD(399,"IX",111)=""
^DD(399,"IX",112)=""
^DD(399,"IX",113)=""
^DD(399,"IX",114)=""
^DD(399,"IX",122)=""
^DD(399,"IX",123)=""
^DD(399,"IX",124)=""
^DD(399,"IX",135)=""
^DD(399,"IX",136)=""
^DD(399,"IX",151)=""
^DD(399,"IX",152)=""
^DD(399,"IX",161)=""
^DD(399,"IX",165)=""
^DD(399,"IX",202)=""
^DD(399,"IX",218)=""
^DD(399,"IX",219)=""
^DD(399,"IX",220)=""
^DD(399,"IX",232)=""
^DD(399,"IX",460)=""
^DD(399,"RQ",.01)=""
^DD(399,"RQ",.02)=""
^DD(399,"RQ",.03)=""
^DD(399,"RQ",.04)=""
^DD(399,"RQ",.05)=""
^DD(399,"RQ",.06)=""
^DD(399,"RQ",.07)=""
^DD(399,"RQ",.08)=""
^DD(399,"RQ",.11)=""
^DD(399,"RQ",.13)=""
^DD(399,"RQ",.14)=""
^DD(399,"RQ",.19)=""
^DD(399,"RQ",.24)=""
^DD(399,"RQ",.25)=""
^DD(399,"RQ",.26)=""
^DD(399,"RQ",1)=""
^DD(399,"RQ",2)=""
^DD(399,"RQ",12)=""
^DD(399,"RQ",19)=""
^DD(399,"RQ",61)=""
^DD(399,"RQ",62)=""
^DD(399,"RQ",63)=""
^DD(399,"RQ",64)=""
^DD(399,"RQ",101)=""
^DD(399,"RQ",110)=""
^DD(399,"RQ",111)=""
^DD(399,"RQ",151)=""
^DD(399,"RQ",152)=""
^DD(399,"RQ",153)=""
^DD(399,"RQ",154)=""
^DD(399,"RQ",155)=""
^DD(399,"RQ",156)=""
^DD(399,"RQ",164)=""
^DD(399,"RQ",209)=""
^DD(399,"RQ",210)=""
^DD(399,"RQ",301)=""
^DD(399,"RQ",302)=""
^DD(399,"RQ",303)=""
^DD(399,"SB",399.0222,222)=""
^DD(399,"SB",399.0304,304)=""
^DD(399,"SB",399.04,40)=""
^DD(399,"SB",399.041,41)=""
^DD(399,"SB",399.042,42)=""
^DD(399,"SB",399.043,43)=""
^DD(399,"SB",399.044,44)=""
^DD(399,"SB",399.045,45)=""
^DD(399,"SB",399.046,46)=""
^DD(399,"SB",399.047,47)=""
^DD(399,"SB",399.048,48)=""
^DD(399,"SB",399.077,77)=""
^DD(399.0222,0)="PROVIDER SUB-FIELD^^1.03^18"
^DD(399.0222,0,"DIK")="IBXX"
^DD(399.0222,0,"DT")="3000911"
^DD(399.0222,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(399.0222,0,"IX","AC",399.0222,.05)=""
^DD(399.0222,0,"IX","AD",399.0222,.06)=""
^DD(399.0222,0,"IX","AE",399.0222,.07)=""
^DD(399.0222,0,"IX","AF",399.0222,.12)=""
^DD(399.0222,0,"IX","AG",399.0222,.13)=""
^DD(399.0222,0,"IX","AH",399.0222,.14)=""
^DD(399.0222,0,"IX","B",399.0222,.01)=""
^DD(399.0222,0,"IX","C",399.0222,.01)=""
^DD(399.0222,0,"IX","CA",399.0222,.01)=""
^DD(399.0222,0,"NM","PROVIDER")=" "
^DD(399.0222,0,"UP")="399"
^DD(399.0222,.01,0)="FUNCTION^MR*S^1:REFERRING;2:OPERATING;3:RENDERING;4:ATTENDING;5:SUPERVISING;9:OTHER;^0;1^Q"
^DD(399.0222,.01,1,0)="^.1"
^DD(399.0222,.01,1,1,0)="399.0222^B"
^DD(399.0222,.01,1,1,1)="S ^DGCR(399,DA(1),""PRV"",""B"",$E(X,1,30),DA)="""""
^DD(399.0222,.01,1,1,2)="K ^DGCR(399,DA(1),""PRV"",""B"",$E(X,1,30),DA)"
^DD(399.0222,.01,1,1,"DT")="3000103"
^DD(399.0222,.01,1,2,0)="^^TRIGGER^399.0222^.04"
^DD(399.0222,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0),X=X S X=X'=1 I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.01,1,2,1.4)"
^DD(399.0222,.01,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""PRV"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=399.0222,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0222,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.01,1,2,2.4)"
^DD(399.0222,.01,1,2,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""PRV"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=399.0222,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0222,.01,1,2,3)="Do not delete"
^DD(399.0222,.01,1,2,"%D",0)="^^2^2^3000103^^"
^DD(399.0222,.01,1,2,"%D",1,0)="This xref is used to delete the state field if the provider is not a"
^DD(399.0222,.01,1,2,"%D",2,0)="referring provider function type."
^DD(399.0222,.01,1,2,"CREATE CONDITION")="INTERNAL(PROVIDER FUNCTION)'=1"
^DD(399.0222,.01,1,2,"CREATE VALUE")="@"
^DD(399.0222,.01,1,2,"DELETE VALUE")="@"
^DD(399.0222,.01,1,2,"DT")="2990513"
^DD(399.0222,.01,1,2,"FIELD")="PROVIDER STATE"
^DD(399.0222,.01,1,3,0)="399.0222^C^MUMPS"
^DD(399.0222,.01,1,3,1)="S ^DGCR(399,DA(1),""PRV"",""C"",$E($$EXTERNAL^DILFD(399.0222,.01,,X),1,30),DA)="""""
^DD(399.0222,.01,1,3,2)="K ^DGCR(399,DA(1),""PRV"",""C"",$E($$EXTERNAL^DILFD(399.0222,.01,,X),1,30),DA)"
^DD(399.0222,.01,1,3,"DT")="2991221"
^DD(399.0222,.01,1,4,0)="399.0222^CA^MUMPS"
^DD(399.0222,.01,1,4,1)="S ^DGCR(399,DA(1),""PRV"",""C"",$$LOW^XLFSTR($E($$EXTERNAL^DILFD(399.0222,.01,,X),1,30)),DA)="""""
^DD(399.0222,.01,1,4,2)="K ^DGCR(399,DA(1),""PRV"",""C"",$$LOW^XLFSTR($E($$EXTERNAL^DILFD(399.0222,.01,,X),1,30)),DA)"
^DD(399.0222,.01,1,4,"DT")="3000329"
^DD(399.0222,.01,3)="Select the function performed by a provider for this bill"
^DD(399.0222,.01,4)="D PRVHELP^IBCEU5"
^DD(399.0222,.01,12)="Function must match bill form type.  Use '??' to see the function definitions.  Attending and rendering cannot exist on the same bill."
^DD(399.0222,.01,12.1)="S DIC(""S"")=""I $$PRVOK^IBCEU(+Y,$S($G(D0):D0,1:$G(DA))),$$PRVOK1^IBCEU(+Y,$S($G(D0):D0,1:$G(DA)))"""
^DD(399.0222,.01,21,0)="75^.001^6^6^3040617^^^^"
^DD(399.0222,.01,21,1,0)="There are providers who performed specific functions for the services on"
^DD(399.0222,.01,21,2,0)="this bill.  These providers are needed to enable the V.A. to collect"
^DD(399.0222,.01,21,3,0)="reimbursement when more than one provider function is involved in the"
^DD(399.0222,.01,21,4,0)="billable episode (like an operating physician or referring provider). This"
^DD(399.0222,.01,21,5,0)="data identifies the type of function that was performed by a provider."
^DD(399.0222,.01,21,6,0)="There can only be 1 provider recorded for each function on a claim."
^DD(399.0222,.01,"DT")="3040617"
^DD(399.0222,.02,0)="PERFORMED BY^V^^0;2^Q"
^DD(399.0222,.02,1,0)="^.1"
^DD(399.0222,.02,1,1,0)="^^TRIGGER^399.0222^.05"
^DD(399.0222,.02,1,1,1)="X ^DD(399.0222,.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.02,1,1,1.4)"
^DD(399.0222,.02,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,5)=""SLF000"""
^DD(399.0222,.02,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""PRV"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=399.0222,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0222,.02,1,1,2)="Q"
^DD(399.0222,.02,1,1,3)="Do not delete"
^DD(399.0222,.02,1,1,"%D",0)="^.101^2^2^3040526^^"
^DD(399.0222,.02,1,1,"%D",1,0)="This cross reference deletes any SLF000 id in the primary insurance id if"
^DD(399.0222,.02,1,1,"%D",2,0)="a provider name is entered."
^DD(399.0222,.02,1,1,"CREATE CONDITION")="PRIMARY INS CO ID NUMBER=""SLF000"""
^DD(399.0222,.02,1,1,"CREATE VALUE")="@"
^DD(399.0222,.02,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399.0222,.02,1,1,"DT")="3000330"
^DD(399.0222,.02,1,1,"FIELD")="PRIMARY INS CO ID NUMBER"
^DD(399.0222,.02,1,2,0)="^^TRIGGER^399.0222^.03"
^DD(399.0222,.02,1,2,1)="X ^DD(399.0222,.02,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$EXTCR^IBCEU5(X) X ^DD(399.0222,.02,1,2,1.4)"
^DD(399.0222,.02,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(2)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:""""),Y=Y(0) X:$D(^DD(399.0222,.02,2)) ^(2) S X=Y'[""*"",Y(1)=X S X=$P(Y(2),U,3)="""",Y=X,X=Y(1),X=X&Y"
^DD(399.0222,.02,1,2,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""PRV"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=399.0222,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0222,.02,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.02,1,2,2.4)"
^DD(399.0222,.02,1,2,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""PRV"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=399.0222,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0222,.02,1,2,3)="Do not delete"
^DD(399.0222,.02,1,2,"%D",0)="^.101^4^4^3000926^^"
^DD(399.0222,.02,1,2,"%D",1,0)="This trigger will force the CREDENTIALS field of the provider multiple to be"
^DD(399.0222,.02,1,2,"%D",2,0)="set to the first 3 characters of the provider's degree if the credentials"
^DD(399.0222,.02,1,2,"%D",3,0)="don't already exist."
^DD(399.0222,.02,1,2,"CREATE CONDITION")="CREDENTIALS="""""
^DD(399.0222,.02,1,2,"CREATE VALUE")="S X=$$EXTCR^IBCEU5(X)"
^DD(399.0222,.02,1,2,"DELETE VALUE")="@"
^DD(399.0222,.02,1,2,"DT")="3000405"
^DD(399.0222,.02,1,2,"FIELD")="CREDENTIALS"
^DD(399.0222,.02,1,3,0)="^^TRIGGER^399.0222^.08"
^DD(399.0222,.02,1,3,1)="X ^DD(399.0222,.02,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$SPEC^IBCEU(X) X ^DD(399.0222,.02,1,3,1.4)"
^DD(399.0222,.02,1,3,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,8)="""""
^DD(399.0222,.02,1,3,1.4)="S DIH=$G(^DGCR(399,DIV(0),""PRV"",DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=399.0222,DIG=.08 D ^DICR"
^DD(399.0222,.02,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.02,1,3,2.4)"
^DD(399.0222,.02,1,3,2.4)="S DIH=$G(^DGCR(399,DIV(0),""PRV"",DIV(1),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=399.0222,DIG=.08 D ^DICR"
^DD(399.0222,.02,1,3,3)="Do not delete"
^DD(399.0222,.02,1,3,"%D",0)="^^2^2^3001018^"
^DD(399.0222,.02,1,3,"%D",1,0)="This trigger will force the SPECIALTY field of the provider multiple to be"
^DD(399.0222,.02,1,3,"%D",2,0)="set to the current specialty of the provider."
^DD(399.0222,.02,1,3,"CREATE CONDITION")="SPECIALTY="""""
^DD(399.0222,.02,1,3,"CREATE VALUE")="S X=$$SPEC^IBCEU(X)"
^DD(399.0222,.02,1,3,"DELETE VALUE")="@"
^DD(399.0222,.02,1,3,"DT")="3001018"
^DD(399.0222,.02,1,3,"FIELD")="SPECIALTY"
^DD(399.0222,.02,1,4,0)="^^TRIGGER^399.0222^.05"
^DD(399.0222,.02,1,4,1)="Q"
^DD(399.0222,.02,1,4,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.02,1,4,2.4)"
^DD(399.0222,.02,1,4,2.4)="S DIH=$G(^DGCR(399,DIV(0),""PRV"",DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=399.0222,DIG=.05 D ^DICR"
^DD(399.0222,.02,1,4,3)="Do not delete"
^DD(399.0222,.02,1,4,"%D",0)="^^2^2^3040526^"
^DD(399.0222,.02,1,4,"%D",1,0)="This xref deletes the PRIMARY INS CO ID NUMBER when the provider is"
^DD(399.0222,.02,1,4,"%D",2,0)="changed."
^DD(399.0222,.02,1,4,"CREATE VALUE")="NO EFFECT"
^DD(399.0222,.02,1,4,"DELETE VALUE")="@"
^DD(399.0222,.02,1,4,"DT")="3040526"
^DD(399.0222,.02,1,4,"FIELD")="PRIMARY INS CO ID NUMBER"
^DD(399.0222,.02,1,5,0)="^^TRIGGER^399.0222^.06"
^DD(399.0222,.02,1,5,1)="Q"
^DD(399.0222,.02,1,5,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.02,1,5,2.4)"
^DD(399.0222,.02,1,5,2.4)="S DIH=$G(^DGCR(399,DIV(0),""PRV"",DIV(1),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=399.0222,DIG=.06 D ^DICR"
^DD(399.0222,.02,1,5,3)="Do not delete"
^DD(399.0222,.02,1,5,"%D",0)="^^2^2^3040526^"
^DD(399.0222,.02,1,5,"%D",1,0)="This xref deletes the SECONDARY INS CO ID NUMBER when the provider is"
^DD(399.0222,.02,1,5,"%D",2,0)="changed."
^DD(399.0222,.02,1,5,"CREATE VALUE")="NO EFFECT"
^DD(399.0222,.02,1,5,"DELETE VALUE")="@"
^DD(399.0222,.02,1,5,"DT")="3040526"
^DD(399.0222,.02,1,5,"FIELD")="SECONDARY INS CO ID NUMBER"
^DD(399.0222,.02,1,6,0)="^^TRIGGER^399.0222^.07"
^DD(399.0222,.02,1,6,1)="Q"
^DD(399.0222,.02,1,6,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.02,1,6,2.4)"
^DD(399.0222,.02,1,6,2.4)="S DIH=$G(^DGCR(399,DIV(0),""PRV"",DIV(1),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=399.0222,DIG=.07 D ^DICR"
^DD(399.0222,.02,1,6,3)="Do not delete"
^DD(399.0222,.02,1,6,"%D",0)="^^2^2^3040526^"
^DD(399.0222,.02,1,6,"%D",1,0)="This xref deletes the TERTIARY INS CO ID NUMBER when the provider is"
^DD(399.0222,.02,1,6,"%D",2,0)="changed."
^DD(399.0222,.02,1,6,"CREATE VALUE")="NO EFFECT"
^DD(399.0222,.02,1,6,"DELETE VALUE")="@"
^DD(399.0222,.02,1,6,"DT")="3040526"
^DD(399.0222,.02,1,6,"FIELD")="TERTIARY INS CO ID NUMBER"
^DD(399.0222,.02,1,7,0)="^^TRIGGER^399.0222^.15"
^DD(399.0222,.02,1,7,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$P($$GETTAX^IBCEF73A(X),U,2) X ^DD(399.0222,.02,1,7,1.4)"
^DD(399.0222,.02,1,7,1.4)="S DIH=$G(^DGCR(399,DIV(0),""PRV"",DIV(1),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=399.0222,DIG=.15 D ^DICR"
^DD(399.0222,.02,1,7,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.02,1,7,2.4)"
^DD(399.0222,.02,1,7,2.4)="S DIH=$G(^DGCR(399,DIV(0),""PRV"",DIV(1),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=399.0222,DIG=.15 D ^DICR"
^DD(399.0222,.02,1,7,3)="Do not delete"
^DD(399.0222,.02,1,7,"%D",0)="^^2^2^3060614^"
^DD(399.0222,.02,1,7,"%D",1,0)="This xref updates the TAXONOMY field with the provider's default taxonomy "
^DD(399.0222,.02,1,7,"%D",2,0)="when the provider field is entered or changed."
^DD(399.0222,.02,1,7,"CREATE VALUE")="S X=$P($$GETTAX^IBCEF73A(X),U,2)"
^DD(399.0222,.02,1,7,"DELETE VALUE")="@"
^DD(399.0222,.02,1,7,"DT")="3060614"
^DD(399.0222,.02,1,7,"FIELD")="#.15"
^DD(399.0222,.02,3)="Enter the name of the provider who performed the indicated function"
^DD(399.0222,.02,4)=" "
^DD(399.0222,.02,5,1,0)="399.0222^.05^1"
^DD(399.0222,.02,21,0)="^.001^2^2^3040521^^^^"
^DD(399.0222,.02,21,1,0)="Providers may be VA providers found in the VistA NEW PERSON file or"
^DD(399.0222,.02,21,2,0)="NON-VA providers found in the IB NON VA BILLING PROVIDER file."
^DD(399.0222,.02,"DT")="3060614"
^DD(399.0222,.02,"V",0)="^.12P^2^2"
^DD(399.0222,.02,"V",1,0)="200^VistA identified provider^1^VA^y^n"
^DD(399.0222,.02,"V",1,1)="S DIC(""S"")=""I $O(^(""""USC1"""",0))"""
^DD(399.0222,.02,"V",1,2)="VistA provider must have a person class defined"
^DD(399.0222,.02,"V",2,0)="355.93^Non-VA provider^2^NVA^y^y"
^DD(399.0222,.02,"V",2,1)="S DIC(""S"")=""I 1"""
^DD(399.0222,.02,"V",2,2)="Non VA providers can be individuals or facilities"
^DD(399.0222,.02,"V","B",200,1)=""
^DD(399.0222,.02,"V","B",355.93,2)=""
^DD(399.0222,.02,"V","M","Non-VA provider",2)=""
^DD(399.0222,.02,"V","M","VistA identified provider",1)=""
^DD(399.0222,.02,"V","O",1,1)=""
^DD(399.0222,.02,"V","O",2,2)=""
^DD(399.0222,.02,"V","P","NVA",2)=""
^DD(399.0222,.02,"V","P","VA",1)=""
^DD(399.0222,.03,0)="CREDENTIALS^F^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(399.0222,.03,3)="Enter up to 3 digits to describe the providers credentials"
^DD(399.0222,.03,5,1,0)="399.0222^.02^2"
^DD(399.0222,.03,21,0)="^^2^2^3000405^"
^DD(399.0222,.03,21,1,0)="This field should contain the 1-3 digit code for the provider's credentials"
^DD(399.0222,.03,21,2,0)="as they apply to the services being billed for."
^DD(399.0222,.03,"DT")="3000405"
^DD(399.0222,.04,0)="STATE^P5'^DIC(5,^0;4^Q"
^DD(399.0222,.04,3)="ENTER THE STATE FOR THE REFERRING PROVIDER"
^DD(399.0222,.04,5,1,0)="399.0222^.01^2"
^DD(399.0222,.04,21,0)="^.001^2^2^3020523^^"
^DD(399.0222,.04,21,1,0)="This is the state of the referring provider.  This is only used for"
^DD(399.0222,.04,21,2,0)="referring provider types"
^DD(399.0222,.04,"DT")="3020516"
^DD(399.0222,.05,0)="PRIMARY INS CO ID NUMBER^FX^^0;5^I $D(DA) N Z S Z=$G(^DGCR(399,DA(1),""PRV"",DA,0)) S:X=""/ID"" X=$$RECALC^IBCEP2A(.DA,1,$P(Z,U,5)) K:$L(X)>15!'$L(X) X I $D(X),$P(Z,U,2)="""",$S($$INPAT^IBCEF(DA(1),1):1,1:X'=""SLF000"") K X"
^DD(399.0222,.05,.1)="PRIM INS PERF PROV SECONDARY ID"
^DD(399.0222,.05,1,0)="^.1"
^DD(399.0222,.05,1,1,0)="^^TRIGGER^399.0222^.02"
^DD(399.0222,.05,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=Y(0)=""SLF000"" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""PRV"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(399.0222,.05,1,1,1.4)"
^DD(399.0222,.05,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""PRV"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=399.0222,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0222,.05,1,1,2)="Q"
^DD(399.0222,.05,1,1,3)="Do not delete"
^DD(399.0222,.05,1,1,"%D",0)="^.101^1^1^3000330^^"
^DD(399.0222,.05,1,1,"%D",1,0)="This erases the provider name if the id is SLF000."
^DD(399.0222,.05,1,1,"CREATE CONDITION")="PRIMARY INS CO ID NUMBER=""SLF000"""
^DD(399.0222,.05,1,1,"CREATE VALUE")="@"
^DD(399.0222,.05,1,1,"DELETE VALUE")="NO EFFECT"
^DD(399.0222,.05,1,1,"FIELD")="PERFORMED BY"
^DD(399.0222,.05,1,2,0)="399.0222^AC^MUMPS"
^DD(399.0222,.05,1,2,1)="D ATTREND^IBCU1(DA(1),DA,.05)"
^DD(399.0222,.05,1,2,2)="D ATTREND^IBCU1(DA(1),DA,.05)"
^DD(399.0222,.05,1,2,3)="Do Not Delete"
^DD(399.0222,.05,1,2,"%D",0)="^.101^6^6^3060509^^"
^DD(399.0222,.05,1,2,"%D",1,0)="This Mumps cross reference is used to trigger #122 PRIMARY PROVIDER #."
^DD(399.0222,.05,1,2,"%D",2,0)="The field is triggered when the primary insurance company in the"
^DD(399.0222,.05,1,2,"%D",3,0)="claim has flags set to use the attending or rendering physicians as the"
^DD(399.0222,.05,1,2,"%D",4,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^DD(399.0222,.05,1,2,"%D",5,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^DD(399.0222,.05,1,2,"%D",6,0)="INST)."
^DD(399.0222,.05,1,2,"DT")="3060508"
^DD(399.0222,.05,3)="Enter the # the primary ins co uses for the provider.  If outpatient and self-referred, use SLF000."
^DD(399.0222,.05,4)="D INSPAR^IBCEP2A(DA(1),1)"
^DD(399.0222,.05,5,1,0)="399.0222^.02^1"
^DD(399.0222,.05,5,2,0)="399.0222^.02^4"
^DD(399.0222,.05,21,0)="^.001^1^1^3040521^^^^"
^DD(399.0222,.05,21,1,0)="This is the primary insurance co specific provider's secondary id number."
^DD(399.0222,.05,"DT")="3060508"
^DD(399.0222,.06,0)="SECONDARY INS CO ID NUMBER^FX^^0;6^I $D(DA) N Z S Z=$G(^DGCR(399,DA(1),""PRV"",DA,0)) S:X=""/ID"" X=$$RECALC^IBCEP2A(.DA,2,$P(Z,U,6)) K:$L(X)>15!'$L(X) X I $D(X),$P(Z,U,2)="""",$S($$INPAT^IBCEF(DA(1),1):1,1:X'=""SLF000"") K X"
^DD(399.0222,.06,.1)="SECOND INS PERF PROV SECONDARY ID"
^DD(399.0222,.06,1,0)="^.1"
^DD(399.0222,.06,1,1,0)="399.0222^AD^MUMPS"
^DD(399.0222,.06,1,1,1)="D ATTREND^IBCU1(DA(1),DA,.06)"
^DD(399.0222,.06,1,1,2)="D ATTREND^IBCU1(DA(1),DA,.06)"
^DD(399.0222,.06,1,1,3)="Do Not Delete"
^DD(399.0222,.06,1,1,"%D",0)="^.101^6^6^3060509^^"
^DD(399.0222,.06,1,1,"%D",1,0)="This Mumps cross reference is used to trigger #123 SECONDARY PROVIDER #."
^DD(399.0222,.06,1,1,"%D",2,0)="The field is triggered when the secondary insurance company in the"
^DD(399.0222,.06,1,1,"%D",3,0)="claim has flags set to use the attending or rendering physicians as the"
^DD(399.0222,.06,1,1,"%D",4,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^DD(399.0222,.06,1,1,"%D",5,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^DD(399.0222,.06,1,1,"%D",6,0)="INST)."
^DD(399.0222,.06,1,1,"DT")="3060508"
^DD(399.0222,.06,3)="Enter the # the secondary ins co uses for the provider.  If outpatient and self-referred, use SLF000."
^DD(399.0222,.06,4)="D INSPAR^IBCEP2A(DA(1),2)"
^DD(399.0222,.06,5,1,0)="399.0222^.02^5"
^DD(399.0222,.06,21,0)="^.001^1^1^3040521^^^^"
^DD(399.0222,.06,21,1,0)="This is the secondary ins company's specific secondary provider id number."
^DD(399.0222,.06,"DT")="3060508"
^DD(399.0222,.07,0)="TERTIARY INS CO ID NUMBER^FX^^0;7^I $D(DA) N Z S Z=$G(^DGCR(399,DA(1),""PRV"",DA,0)) S:X=""/ID"" X=$$RECALC^IBCEP2A(.DA,3,$P(Z,U,7)) K:$L(X)>15!'$L(X) X I $D(X),$P(Z,U,2)="""",$S($$INPAT^IBCEF(DA(1),1):1,1:X'=""SLF000"") K X"
^DD(399.0222,.07,.1)="TERTIARY INS PERF PROV SECONDARY ID"
^DD(399.0222,.07,1,0)="^.1"
^DD(399.0222,.07,1,1,0)="399.0222^AE^MUMPS"
^DD(399.0222,.07,1,1,1)="D ATTREND^IBCU1(DA(1),DA,.07)"
^DD(399.0222,.07,1,1,2)="D ATTREND^IBCU1(DA(1),DA,.07)"
^DD(399.0222,.07,1,1,3)="Do Not Delete"
^DD(399.0222,.07,1,1,"%D",0)="^^6^6^3060509^"
^DD(399.0222,.07,1,1,"%D",1,0)="This Mumps cross reference is used to trigger #124 TERTIARY PROVIDER #."
^DD(399.0222,.07,1,1,"%D",2,0)="The field is triggered when the tertiary insurance company in the"
^DD(399.0222,.07,1,1,"%D",3,0)="claim has flags set to use the attending or rendering physicians as the"
^DD(399.0222,.07,1,1,"%D",4,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^DD(399.0222,.07,1,1,"%D",5,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^DD(399.0222,.07,1,1,"%D",6,0)="INST)."
^DD(399.0222,.07,1,1,"DT")="3060508"
^DD(399.0222,.07,3)="Enter the # the tertiary ins co uses for the provider.  If outpatient and self-referred, use SLF000."
^DD(399.0222,.07,4)="D INSPAR^IBCEP2A(DA(1),3)"
^DD(399.0222,.07,5,1,0)="399.0222^.02^6"
^DD(399.0222,.07,21,0)="^.001^1^1^3040521^^^^"
^DD(399.0222,.07,21,1,0)="This is the tertiary ins company's specific secondary provider id number."
^DD(399.0222,.07,"DT")="3060508"
^DD(399.0222,.08,0)="SPECIALTY^F^^0;8^K:$L(X)>2!($L(X)<2) X"
^DD(399.0222,.08,3)="Enter the 2 digit specialty code designation"
^DD(399.0222,.08,5,1,0)="399.0222^.02^3"
^DD(399.0222,.08,21,0)="^^2^2^3000411^"
^DD(399.0222,.08,21,1,0)="This field contains the specialty code for the provider if the provider"
^DD(399.0222,.08,21,2,0)="is not resident in VistA's NEW PERSON file."
^DD(399.0222,.08,"DT")="3000411"
^DD(399.0222,.09,0)="DELETE 2006 .09^R*P355.96'^IBA(355.96,^0;9^S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,1,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,.09,1,0)="^.1^^0"
^DD(399.0222,.09,3)="Enter the care unit that applies to this bill for the primary insurance co's performing provider id"
^DD(399.0222,.09,4)="D CAREID^IBCEP1(""PERF"",1,DA(1))"
^DD(399.0222,.09,12)="Must be a valid care unit for the ins co, care type, form type and performing prov id type"
^DD(399.0222,.09,12.1)="S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,1,1)"""
^DD(399.0222,.09,21,0)="^.001^5^5^3021126^^^^"
^DD(399.0222,.09,21,1,0)="The primary insurance company requires a specific care unit value"
^DD(399.0222,.09,21,2,0)="to identify the correct id for the performing provider.  You must"
^DD(399.0222,.09,21,3,0)="enter a care unit value here so a valid id can be determined."
^DD(399.0222,.09,21,4,0)="This care unit must be valid for the insurance co, form type, care type"
^DD(399.0222,.09,21,5,0)="and provider type required by the insurance co."
^DD(399.0222,.09,"DT")="3040521"
^DD(399.0222,.1,0)="DELETE 2006 .1^R*P355.96'^IBA(355.96,^0;10^S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,1,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,.1,1,0)="^.1^^0"
^DD(399.0222,.1,3)="Enter the care unit that applies to this bill for the secondary insurance co's performing provider id"
^DD(399.0222,.1,4)="D CAREID^IBCEP1(""PERF"",2,DA(1))"
^DD(399.0222,.1,12)="Must be a valid care unit for the ins co, care type, form type and performing prov id type"
^DD(399.0222,.1,12.1)="S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,1,2)"""
^DD(399.0222,.1,21,0)="^.001^4^4^3030109^^^^"
^DD(399.0222,.1,21,1,0)="If the secondary insurance company requires a specific care unit"
^DD(399.0222,.1,21,2,0)="specification to identify the correct id for the performing provider, this"
^DD(399.0222,.1,21,3,0)="is the exact data value related to this claim that will allow the system"
^DD(399.0222,.1,21,4,0)="to perform this match."
^DD(399.0222,.1,"DT")="3040521"
^DD(399.0222,.11,0)="DELETE 2006 .11^R*P355.96'^IBA(355.96,^0;11^S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,1,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,.11,1,0)="^.1^^0"
^DD(399.0222,.11,3)="Enter the care unit that applies to this bill for the tertiary insurance's performing provider id"
^DD(399.0222,.11,4)="D CAREID^IBCEP1(""PERF"",3,DA(1))"
^DD(399.0222,.11,12)="Must be a valid care unit for the ins co, care type, form type and performing prov id type"
^DD(399.0222,.11,12.1)="S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,1,3)"""
^DD(399.0222,.11,21,0)="^.001^4^4^3010507^^^^"
^DD(399.0222,.11,21,1,0)="If the tertiary insurance company requires a specific care unit"
^DD(399.0222,.11,21,2,0)="specification to identify the correct id for the performing provider, this"
^DD(399.0222,.11,21,3,0)="is the exact data value related to this claim that will allow the system"
^DD(399.0222,.11,21,4,0)="to perform this match."
^DD(399.0222,.11,"DT")="3040521"
^DD(399.0222,.12,0)="PRIM INS PROVIDER ID TYPE^*P355.97'^IBE(355.97,^0;12^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,.12,.1)="PRIM INS PERF PROV SECONDARY ID TYPE"
^DD(399.0222,.12,1,0)="^.1"
^DD(399.0222,.12,1,1,0)="399.0222^AF^MUMPS"
^DD(399.0222,.12,1,1,1)="D ATTREND^IBCU1(DA(1),DA,.12)"
^DD(399.0222,.12,1,1,2)="D ATTREND^IBCU1(DA(1),DA,.12)"
^DD(399.0222,.12,1,1,3)="Do Not Delete"
^DD(399.0222,.12,1,1,"%D",0)="^^6^6^3060509^"
^DD(399.0222,.12,1,1,"%D",1,0)="This Mumps cross reference is used to trigger #128 PRIMARY ID QUALIFIER."
^DD(399.0222,.12,1,1,"%D",2,0)="The field is triggered when the primary insurance company in the"
^DD(399.0222,.12,1,1,"%D",3,0)="claim has flags set to use the attending or rendering physicians as the"
^DD(399.0222,.12,1,1,"%D",4,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^DD(399.0222,.12,1,1,"%D",5,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^DD(399.0222,.12,1,1,"%D",6,0)="INST)."
^DD(399.0222,.12,1,1,"DT")="3060508"
^DD(399.0222,.12,3)="Enter the type of id the primary payer requires as a secondary id."
^DD(399.0222,.12,12)="Must be valid for transmission."
^DD(399.0222,.12,12.1)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^DD(399.0222,.12,21,0)="^.001^1^1^3040517^^"
^DD(399.0222,.12,21,1,0)="This is the type of id the primary payer uses as a secondary id."
^DD(399.0222,.12,"DT")="3060508"
^DD(399.0222,.13,0)="SEC INS PROVIDER ID TYPE^*P355.97'^IBE(355.97,^0;13^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,.13,.1)="SECOND INS PERF PROV SECONDARY ID TYPE"
^DD(399.0222,.13,1,0)="^.1"
^DD(399.0222,.13,1,1,0)="399.0222^AG^MUMPS"
^DD(399.0222,.13,1,1,1)="D ATTREND^IBCU1(DA(1),DA,.13)"
^DD(399.0222,.13,1,1,2)="D ATTREND^IBCU1(DA(1),DA,.13)"
^DD(399.0222,.13,1,1,3)="Do Not Delete"
^DD(399.0222,.13,1,1,"%D",0)="^^6^6^3060509^"
^DD(399.0222,.13,1,1,"%D",1,0)="This Mumps cross reference is used to trigger #129 SECONDARY ID QUALIFIER."
^DD(399.0222,.13,1,1,"%D",2,0)="The field is triggered when the secondary insurance company in the"
^DD(399.0222,.13,1,1,"%D",3,0)="claim has flags set to use the attending or rendering physicians as the"
^DD(399.0222,.13,1,1,"%D",4,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^DD(399.0222,.13,1,1,"%D",5,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^DD(399.0222,.13,1,1,"%D",6,0)="INST)."
^DD(399.0222,.13,1,1,"DT")="3060508"
^DD(399.0222,.13,3)="Enter the type of id the secondary payer requires as a secondary id."
^DD(399.0222,.13,12)="Must be valid for transmission."
^DD(399.0222,.13,12.1)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^DD(399.0222,.13,"DT")="3060508"
^DD(399.0222,.14,0)="TERT INS PROVIDER ID TYPE^*P355.97'^IBE(355.97,^0;14^S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,.14,.1)="TERTIARY INS PERF PROV SECONDARY ID TYPE"
^DD(399.0222,.14,1,0)="^.1"
^DD(399.0222,.14,1,1,0)="399.0222^AH^MUMPS"
^DD(399.0222,.14,1,1,1)="D ATTREND^IBCU1(DA(1),DA,.14)"
^DD(399.0222,.14,1,1,2)="D ATTREND^IBCU1(DA(1),DA,.14)"
^DD(399.0222,.14,1,1,3)="Do Not Delete"
^DD(399.0222,.14,1,1,"%D",0)="^^6^6^3060509^"
^DD(399.0222,.14,1,1,"%D",1,0)="This Mumps cross reference is used to trigger #130 TERTIARY ID QUALIFIER."
^DD(399.0222,.14,1,1,"%D",2,0)="The field is triggered when the tertiary insurance company in the"
^DD(399.0222,.14,1,1,"%D",3,0)="claim has flags set to use the attending or rendering physicians as the"
^DD(399.0222,.14,1,1,"%D",4,0)="billing provider secondary IDs.  The flags in file 36 are field #4.06"
^DD(399.0222,.14,1,1,"%D",5,0)="(ATT/REND ID BILL SEC ID PROF) and field 4.08 (ATT/REND ID BILL SEC ID"
^DD(399.0222,.14,1,1,"%D",6,0)="INST)."
^DD(399.0222,.14,1,1,"DT")="3060508"
^DD(399.0222,.14,3)="Enter the type of id the tertiary payer requires as a secondary id."
^DD(399.0222,.14,12)="Must be valid for transmission."
^DD(399.0222,.14,12.1)="S DIC(""S"")=""I $$RAINS^IBCEPU(Y)!($$RAOWN^IBCEPU(Y))"""
^DD(399.0222,.14,21,0)="^.001^1^1^3040517^^"
^DD(399.0222,.14,21,1,0)="This is the type of id the tertiary payer uses as a secondary id."
^DD(399.0222,.14,"DT")="3060508"
^DD(399.0222,.15,0)="TAXONOMY^P8932.1'^USC(8932.1,^0;15^Q"
^DD(399.0222,.15,3)="Enter the Taxonomy Code associated with this entry."
^DD(399.0222,.15,5,1,0)="399.0222^.02^7"
^DD(399.0222,.15,"DT")="3060613"
^DD(399.0222,1.01,0)="DELETE 2006 1.01^*P355.96^IBA(355.96,^1;1^S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,2,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,1.01,3)="Enter the care unit that applies to this bill for the EMC id for the primary insurance"
^DD(399.0222,1.01,4)="D CAREID^IBCEP1(""EMC"",1,DA(1))"
^DD(399.0222,1.01,12)="Must be a valid care unit for the ins co, care type, form type and EMC id type"
^DD(399.0222,1.01,12.1)="S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,2,1)"""
^DD(399.0222,1.01,21,0)="^.001^3^3^3010426^^^^"
^DD(399.0222,1.01,21,1,0)="This is the exact data you need to use to allow the system to match the"
^DD(399.0222,1.01,21,2,0)="provider with the correct EMC id # for the primary insurance co"
^DD(399.0222,1.01,21,3,0)="based on this piece of data and relating directly to this claim."
^DD(399.0222,1.01,"DT")="3040521"
^DD(399.0222,1.02,0)="DELETE 2006 1.02^*P355.96^IBA(355.96,^1;2^S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,2,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,1.02,3)="Enter the care unit that applies to this bill for the EMC id for the secondary insurance"
^DD(399.0222,1.02,4)="D CAREID^IBCEP1(""EMC"",2,DA(1))"
^DD(399.0222,1.02,12)="Must be a valid care unit for the ins co, care type, form type and EMC id type"
^DD(399.0222,1.02,12.1)="S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,2,2)"""
^DD(399.0222,1.02,21,0)="^.001^3^3^3001109^^"
^DD(399.0222,1.02,21,1,0)="This is the exact data you need to use to allow the system to match the"
^DD(399.0222,1.02,21,2,0)="provider with the correct EMC id # for the secondary insurance co"
^DD(399.0222,1.02,21,3,0)="based on this piece of data and relating directly to this claim."
^DD(399.0222,1.02,"DT")="3040521"
^DD(399.0222,1.03,0)="DELETE 2006 1.03^*P355.96^IBA(355.96,^1;3^S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,2,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0222,1.03,3)="Enter the care unit that applies to this bill for the EMC id for the tertiary insurance"
^DD(399.0222,1.03,4)="D CAREID^IBCEP1(""EMC"",3,DA(1))"
^DD(399.0222,1.03,12)="Must be a valid care unit for the ins co, care type, form type and EMC id type"
^DD(399.0222,1.03,12.1)="S DIC(""S"")=""I $$CAREUOK^IBCEP4(DA(1),+Y,2,3)"""
^DD(399.0222,1.03,21,0)="^.001^3^3^3001109^^"
^DD(399.0222,1.03,21,1,0)="This is the exact data you need to use to allow the system to match the"
^DD(399.0222,1.03,21,2,0)="provider with the correct EMC id # for the tertiary insurance co"
^DD(399.0222,1.03,21,3,0)="based on this piece of data and relating directly to this claim."
^DD(399.0222,1.03,"DT")="3040521"
^DD(399.0222,"B","CREDENTIALS",.03)=""
^DD(399.0222,"B","DELETE 2006 .09",.09)=""
^DD(399.0222,"B","DELETE 2006 .1",.1)=""
^DD(399.0222,"B","DELETE 2006 .11",.11)=""
^DD(399.0222,"B","DELETE 2006 1.01",1.01)=""
^DD(399.0222,"B","DELETE 2006 1.02",1.02)=""
^DD(399.0222,"B","DELETE 2006 1.03",1.03)=""
^DD(399.0222,"B","FUNCTION",.01)=""
^DD(399.0222,"B","PERFORMED BY",.02)=""
^DD(399.0222,"B","PRIM INS PROVIDER ID TYPE",.12)=""
^DD(399.0222,"B","PRIMARY INS CO ID NUMBER",.05)=""
^DD(399.0222,"B","SEC INS PROVIDER ID TYPE",.13)=""
^DD(399.0222,"B","SECONDARY INS CO ID NUMBER",.06)=""
^DD(399.0222,"B","SPECIALTY",.08)=""
^DD(399.0222,"B","STATE",.04)=""
^DD(399.0222,"B","TAXONOMY",.15)=""
^DD(399.0222,"B","TERT INS PROVIDER ID TYPE",.14)=""
^DD(399.0222,"B","TERTIARY INS CO ID NUMBER",.07)=""
^DD(399.0222,"GL",0,1,.01)=""
^DD(399.0222,"GL",0,2,.02)=""
^DD(399.0222,"GL",0,3,.03)=""
^DD(399.0222,"GL",0,4,.04)=""
^DD(399.0222,"GL",0,5,.05)=""
^DD(399.0222,"GL",0,6,.06)=""
^DD(399.0222,"GL",0,7,.07)=""
^DD(399.0222,"GL",0,8,.08)=""
^DD(399.0222,"GL",0,9,.09)=""
^DD(399.0222,"GL",0,10,.1)=""
^DD(399.0222,"GL",0,11,.11)=""
^DD(399.0222,"GL",0,12,.12)=""
^DD(399.0222,"GL",0,13,.13)=""
^DD(399.0222,"GL",0,14,.14)=""
^DD(399.0222,"GL",0,15,.15)=""
^DD(399.0222,"GL",1,1,1.01)=""
^DD(399.0222,"GL",1,2,1.02)=""
^DD(399.0222,"GL",1,3,1.03)=""
^DD(399.0222,"IX",.01)=""
^DD(399.0222,"IX",.02)=""
^DD(399.0222,"IX",.05)=""
^DD(399.0222,"IX",.06)=""
^DD(399.0222,"IX",.07)=""
^DD(399.0222,"IX",.12)=""
^DD(399.0222,"IX",.13)=""
^DD(399.0222,"IX",.14)=""
^DD(399.0222,"RQ",.01)=""
^DD(399.0222,"RQ",.09)=""
^DD(399.0222,"RQ",.1)=""
^DD(399.0222,"RQ",.11)=""
^DD(399.0304,0)="PROCEDURES SUB-FIELD^^50.08^32"
^DD(399.0304,0,"DIK")="IBXX"
^DD(399.0304,0,"DT")="2931130"
^DD(399.0304,0,"ID","WRITE")="D DISPID^IBCSC4D"
^DD(399.0304,0,"IX","AREV7",399.0304,4)=""
^DD(399.0304,0,"IX","ASC",399.0304,4)=""
^DD(399.0304,0,"IX","B",399.0304,.01)=""
^DD(399.0304,0,"IX","D",399.0304,3)=""
^DD(399.0304,0,"NM","PROCEDURES")=""
^DD(399.0304,0,"UP")="399"
^DD(399.0304,.01,0)="PROCEDURES^MV^^0;1^"
^DD(399.0304,.01,1,0)="^.1"
^DD(399.0304,.01,1,1,0)="399.0304^B"
^DD(399.0304,.01,1,1,1)="S ^DGCR(399,DA(1),""CP"",""B"",$E(X,1,30),DA)="""""
^DD(399.0304,.01,1,1,2)="K ^DGCR(399,DA(1),""CP"",""B"",$E(X,1,30),DA)"
^DD(399.0304,.01,1,1,3)="Required Index for Variable Pointer"
^DD(399.0304,.01,1,2,0)="399^ASD^MUMPS"
^DD(399.0304,.01,1,2,1)="I $P(X,"";"",2)=""ICPT("",$D(^DGCR(399,DA(1),""CP"",DA,0)),$P(^(0),""^"",2) S ^DGCR(399,""ASD"",-$P(^(0),""^"",2),+X,DA(1),DA)="""""
^DD(399.0304,.01,1,2,2)="I $P(X,"";"",2)=""ICPT("",$D(^DGCR(399,DA(1),""CP"",DA,0)),$P(^(0),""^"",2) K ^DGCR(399,""ASD"",-$P(^(0),""^"",2),+X,DA(1),DA)"
^DD(399.0304,.01,1,2,3)="DO NOT DELETE"
^DD(399.0304,.01,1,2,"%D",0)="^^1^1^2930513^^^"
^DD(399.0304,.01,1,2,"%D",1,0)="Index procedure date and all CPT procedures."
^DD(399.0304,.01,1,2,"DT")="2920311"
^DD(399.0304,.01,1,3,0)="^^TRIGGER^399.0304^20"
^DD(399.0304,.01,1,3,1)="Q"
^DD(399.0304,.01,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""CP"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="""" X ^DD(399.0304,.01,1,3,2.4)"
^DD(399.0304,.01,1,3,2.4)="S DIH=$G(^DGCR(399,DIV(0),""CP"",DIV(1),0)),DIV=X S $P(^(0),U,20)=DIV,DIH=399.0304,DIG=20 D ^DICR"
^DD(399.0304,.01,1,3,3)="Do Not Delete"
^DD(399.0304,.01,1,3,"%D",0)="^.101^1^1^3010510^^"
^DD(399.0304,.01,1,3,"%D",1,0)="Delete the Outpatient Encounter link if the Procedure is modified."
^DD(399.0304,.01,1,3,"CREATE VALUE")="NO EFFECT"
^DD(399.0304,.01,1,3,"DELETE VALUE")="@"
^DD(399.0304,.01,1,3,"DT")="3010510"
^DD(399.0304,.01,1,3,"FIELD")="OUTPATIENT ENCOUNTER"
^DD(399.0304,.01,3)="Procedure coding must match the PROCEDURE CODING METHOD entry for this bill."
^DD(399.0304,.01,4)="D 3^IBCSCH1"
^DD(399.0304,.01,7.5)="D ^IBCU7"
^DD(399.0304,.01,21,0)="^^2^2^2930513^^^^"
^DD(399.0304,.01,21,1,0)="These are ICD, CPT, or HCFA procedure codes associated with the episode"
^DD(399.0304,.01,21,2,0)="of care on this bill."
^DD(399.0304,.01,23,0)="^^1^1^2930513^^^"
^DD(399.0304,.01,23,1,0)=" "
^DD(399.0304,.01,"DEL",1,0)="N IBZ S IBZ=$$RXLINK^IBCSC5C(DA(1),DA) I IBZ D EN^DDIOL(""  Can't delete this procedure while linked to RX revenue code #""_IBZ)"
^DD(399.0304,.01,"DT")="3040708"
^DD(399.0304,.01,"V",0)="^.12P^2^2"
^DD(399.0304,.01,"V",1,0)="81^CPT^1^CPT^y^n"
^DD(399.0304,.01,"V",1,1)="S ICPTVDT=$$BDATE^IBACSV($G(DA(1)),$G(DA)),DIC(""S"")=""I $$CPTACT^IBACSV(+Y,ICPTVDT)"",DIC(""W"")=""D EN^DDIOL(""""   """"_$P($$CPT^IBACSV(+Y,ICPTVDT),U,2),,""""?0"""")"""
^DD(399.0304,.01,"V",1,2)="Only codes active for the date of service may be selected."
^DD(399.0304,.01,"V",2,0)="80.1^ICD operation/procedure^2^ICD^y^n"
^DD(399.0304,.01,"V",2,1)="S ICDVDT=$$BDATE^IBACSV($G(DA(1)),$G(DA)),DIC(""S"")=""I $$ICD0ACT^IBACSV(+Y,ICDVDT)"",DIC(""W"")=""D EN^DDIOL(""""   """"_$P($$ICD0^IBACSV(+Y,ICDVDT),U,4),,""""?0"""")"""
^DD(399.0304,.01,"V",2,2)="Only codes active for the date of service may be selected."
^DD(399.0304,.01,"V","B",80.1,2)=""
^DD(399.0304,.01,"V","B",81,1)=""
^DD(399.0304,.01,"V","M","CPT",1)=""
^DD(399.0304,.01,"V","M","ICD operation/procedure",2)=""
^DD(399.0304,.01,"V","O",1,1)=""
^DD(399.0304,.01,"V","O",2,2)=""
^DD(399.0304,.01,"V","P","CPT",1)=""
^DD(399.0304,.01,"V","P","ICD",2)=""
^DD(399.0304,1,0)="PROCEDURE DATE^DX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$D(IBIFN),'$$OPV2^IBCU41(X,IBIFN,1) K X"
^DD(399.0304,1,1,0)="^.1^^-1"
^DD(399.0304,1,1,1,0)="399^ASD1^MUMPS"
^DD(399.0304,1,1,1,1)="I $D(^DGCR(399,DA(1),""CP"",DA,0)),+^(0),$P($P(^(0),""^"",1),"";"",2)=""ICPT("" S ^DGCR(399,""ASD"",-X,+^(0),DA(1),DA)="""""
^DD(399.0304,1,1,1,2)="I $D(^DGCR(399,DA(1),""CP"",DA,0)),+^(0),$P($P(^(0),""^"",1),"";"",2)=""ICPT("" K ^DGCR(399,""ASD"",-X,+^(0),DA(1),DA)"
^DD(399.0304,1,1,1,3)="DO NOT DELETE"
^DD(399.0304,1,1,1,"%D",0)="^^1^1^2930617^^^"
^DD(399.0304,1,1,1,"%D",1,0)="Index procedure date and all CPT procedures."
^DD(399.0304,1,1,1,"DT")="2920311"
^DD(399.0304,1,3)="Procedure date must be within the bill's STATEMENT FROM and STATEMENT TO dates."
^DD(399.0304,1,21,0)="^^1^1^2911025^"
^DD(399.0304,1,21,1,0)="This is the date the procedure was performed."
^DD(399.0304,1,"DT")="2990123"
^DD(399.0304,2,0)="*ADDITIONAL PROCEDURE NAME^FI^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>28!($L(X)<3)!'(X?.ANP) X"
^DD(399.0304,2,.1)="ADDITIONAL PROCEDURE NAME"
^DD(399.0304,2,1,0)="^.1^^0"
^DD(399.0304,2,3)="Answer must be 3-28 characters in length."
^DD(399.0304,2,9)="^"
^DD(399.0304,2,21,0)="^^3^3^2920211^^^"
^DD(399.0304,2,21,1,0)="This is the name of the procedure."
^DD(399.0304,2,21,2,0)=" "
^DD(399.0304,2,21,3,0)="This field has been marked for deletion 11/4/91."
^DD(399.0304,2,"DT")="2911104"
^DD(399.0304,3,0)="PRINT ORDER^NJ2,0X^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$D(^DGCR(399,DA(1),""CP"",""D"",X)) W !!,*7,""This number already used!"" K X"
^DD(399.0304,3,1,0)="^.1"
^DD(399.0304,3,1,1,0)="399.0304^D"
^DD(399.0304,3,1,1,1)="S ^DGCR(399,DA(1),""CP"",""D"",$E(X,1,30),DA)="""""
^DD(399.0304,3,1,1,2)="K ^DGCR(399,DA(1),""CP"",""D"",$E(X,1,30),DA)"
^DD(399.0304,3,1,1,"DT")="2911030"
^DD(399.0304,3,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(399.0304,3,21,0)="^^4^4^3070131^"
^DD(399.0304,3,21,1,0)="This is the relative order that this procedure will appear on the"
^DD(399.0304,3,21,2,0)="bill.  For the UB-04, the procedure with the lowest print order is the"
^DD(399.0304,3,21,3,0)="principal procedure and the rest print in FL74 in lowest to highest"
^DD(399.0304,3,21,4,0)="print order."
^DD(399.0304,3,"DT")="3070131"
^DD(399.0304,4,0)="BASC BILLABLE^S^1:YES;^0;5^Q"
^DD(399.0304,4,1,0)="^.1"
^DD(399.0304,4,1,1,0)="399.0304^AREV7^MUMPS"
^DD(399.0304,4,1,1,1)="S DGRVRCAL=1"
^DD(399.0304,4,1,1,2)="S DGRVRCAL=2"
^DD(399.0304,4,1,1,"%D",0)="^^2^2^2911119^"
^DD(399.0304,4,1,1,"%D",1,0)="When this field is edited or changed, the revenue codes and charges for this"
^DD(399.0304,4,1,1,"%D",2,0)="bill will automatically be recalculated."
^DD(399.0304,4,1,1,"DT")="2911119"
^DD(399.0304,4,1,2,0)="399.0304^ASC"
^DD(399.0304,4,1,2,1)="S ^DGCR(399,DA(1),""CP"",""ASC"",$E(X,1,30),DA)="""""
^DD(399.0304,4,1,2,2)="K ^DGCR(399,DA(1),""CP"",""ASC"",$E(X,1,30),DA)"
^DD(399.0304,4,1,2,"%D",0)="^^2^2^2930611^^"
^DD(399.0304,4,1,2,"%D",1,0)="This cross-reference is used to determine if any procedures entered are"
^DD(399.0304,4,1,2,"%D",2,0)="billable as Ambulatory Surgery Codes."
^DD(399.0304,4,1,2,"DT")="2911120"
^DD(399.0304,4,3)=""
^DD(399.0304,4,21,0)="2^^2^2^2940214^"
^DD(399.0304,4,21,1,0)="This field will be completed by the system if this procedure is an"
^DD(399.0304,4,21,2,0)="Ambulatory Surgery that can be billed under the HCFA rate system."
^DD(399.0304,4,"DT")="2920228"
^DD(399.0304,5,0)="DIVISION^P40.8'^DG(40.8,^0;6^Q"
^DD(399.0304,5,1,0)="^.1^^0"
^DD(399.0304,5,3)="Enter the division where this procedure was performed if the CPT charges are based on region and if it is different than the bills Default Division."
^DD(399.0304,5,5,1,0)="399.0304^6^1"
^DD(399.0304,5,21,0)="^^3^3^2961001^^^^"
^DD(399.0304,5,21,1,0)="Enter the Division at which this procedure was performed.  This is only"
^DD(399.0304,5,21,2,0)="required if the bill's charges are based on CPT and region and the"
^DD(399.0304,5,21,3,0)="division is different than the bill's Default Division."
^DD(399.0304,5,"DT")="2990123"
^DD(399.0304,6,0)="ASSOCIATED CLINIC^*P44'^SC(^0;7^S DIC(""S"")=""I +$$CLNSCRN^IBCU(+$P($G(^DGCR(399,+$G(DA(1)),""""CP"""",+$G(DA),0)),U,2),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0304,6,1,0)="^.1"
^DD(399.0304,6,1,1,0)="^^TRIGGER^399.0304^5"
^DD(399.0304,6,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""CP"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(399.0304,6,1,1,1.1) X ^DD(399.0304,6,1,1,1.4)"
^DD(399.0304,6,1,1,1.1)="S X=DIV X ^DD(399.0304,6,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)"
^DD(399.0304,6,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""CP"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=399.0304,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0304,6,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""CP"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(399.0304,6,1,1,2.4)"
^DD(399.0304,6,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""CP"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=399.0304,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0304,6,1,1,49.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^SC(+D0,0)) D0=-1 S Y(102)=$S($D(^SC(D0,0)):^(0),1:""""),Y(101)=X S X=$P(Y(102),U,15)"
^DD(399.0304,6,1,1,"%D",0)="^^1^1^2990124^"
^DD(399.0304,6,1,1,"%D",1,0)="Auto set the procedures division to the clinics division."
^DD(399.0304,6,1,1,"CREATE VALUE")="ASSOCIATED CLINIC:INTERNAL(#3.5)"
^DD(399.0304,6,1,1,"DELETE VALUE")="@"
^DD(399.0304,6,1,1,"DT")="2990124"
^DD(399.0304,6,1,1,"FIELD")="DIVISION"
^DD(399.0304,6,3)="Enter the clinic associated with this procedures visit."
^DD(399.0304,6,12)="Only active clinics!"
^DD(399.0304,6,12.1)="S DIC(""S"")=""I +$$CLNSCRN^IBCU(+$P($G(^DGCR(399,+$G(DA(1)),""""CP"""",+$G(DA),0)),U,2),+Y)"""
^DD(399.0304,6,21,0)="^^3^3^2990714^^^^"
^DD(399.0304,6,21,1,0)="Enter the clinic where this procedure was performed.  This field must"
^DD(399.0304,6,21,2,0)="be completed in order for this procedure to be successfully transferred"
^DD(399.0304,6,21,3,0)="to the Add/Edit Stop code logic for inclusion in OPC workload."
^DD(399.0304,6,"DT")="2990130"
^DD(399.0304,7,0)="*ASSOCIATED DIAGNOSIS^P80'^ICD9(^0;8^Q"
^DD(399.0304,7,3)="Enter the diagnosis related to this procedure."
^DD(399.0304,7,21,0)="^^2^2^2931117^^^^"
^DD(399.0304,7,21,1,0)="This is the diagnosis most closely related to this procedure.  Used on the"
^DD(399.0304,7,21,2,0)="HFCA 1500, block 24e."
^DD(399.0304,7,23,0)="^^2^2^2931117^"
^DD(399.0304,7,23,1,0)="Replaced by (399,304,10-13) so that could point to the diagnosis file (362.3)."
^DD(399.0304,7,23,2,0)="""*""ed for deletion 11/16/93."
^DD(399.0304,7,"DT")="2931116"
^DD(399.0304,8,0)="PLACE OF SERVICE^P353.1'^IBE(353.1,^0;9^Q"
^DD(399.0304,8,3)="Enter the Place of Service appropriate for this procedure."
^DD(399.0304,8,21,0)="^^2^2^3060908^"
^DD(399.0304,8,21,1,0)="This is the Place of Service appropriate for this Procedure.  Used only"
^DD(399.0304,8,21,2,0)="for the CMS-1500 claim form."
^DD(399.0304,8,"DT")="3060908"
^DD(399.0304,9,0)="TYPE OF SERVICE^P353.2'^IBE(353.2,^0;10^Q"
^DD(399.0304,9,1,0)="^.1"
^DD(399.0304,9,1,1,0)="^^TRIGGER^399.0304^15"
^DD(399.0304,9,1,1,1)="X ^DD(399.0304,9,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""CP"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" X ^DD(399.0304,9,1,1,1.4)"
^DD(399.0304,9,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X,I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^IBE(353.2,+D0,0)) D0=-1 S Y(101)=$S($D(^IBE(353.2,D0,0)):^(0),1:""""),X=$P(Y(101),U,2)'=""ANESTHESIA"",D0=I(0,0),D1=I(1,0)"
^DD(399.0304,9,1,1,1.4)="S DIH=$S($D(^DGCR(399,DIV(0),""CP"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=399.0304,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0304,9,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""CP"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" X ^DD(399.0304,9,1,1,2.4)"
^DD(399.0304,9,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""CP"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=399.0304,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.0304,9,1,1,"CREATE CONDITION")="TYPE OF SERVICE:NAME'=""ANESTHESIA"""
^DD(399.0304,9,1,1,"CREATE VALUE")="@"
^DD(399.0304,9,1,1,"DELETE VALUE")="@"
^DD(399.0304,9,1,1,"FIELD")="MINUTES"
^DD(399.0304,9,3)="Enter the Type of Service appropriate for this procedure."
^DD(399.0304,9,21,0)="^^1^1^3070131^"
^DD(399.0304,9,21,1,0)="This is the Type of Service to be associated with this procedure."
^DD(399.0304,9,"DT")="3070131"
^DD(399.0304,10,0)="ASSOCIATED DIAGNOSIS (1)^*P362.3'^IBA(362.3,^0;11^S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0304,10,3)="Enter the diagnosis related to this procedure."
^DD(399.0304,10,12)="Only Diagnosis for this bill may be chosen."
^DD(399.0304,10,12.1)="S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"""
^DD(399.0304,10,21,0)="^^2^2^3070131^"
^DD(399.0304,10,21,1,0)="The diagnosis most closely related to this procedure.  Used only for the"
^DD(399.0304,10,21,2,0)="CMS-1500, box 24e."
^DD(399.0304,10,23,0)="^^1^1^3070131^^^^"
^DD(399.0304,10,23,1,0)="Converted from (399,304,7) with IB 2.0."
^DD(399.0304,10,"DT")="3070131"
^DD(399.0304,11,0)="ASSOCIATED DIAGNOSIS (2)^*P362.3'^IBA(362.3,^0;12^S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0304,11,3)="Enter a diagnosis related to this procedure."
^DD(399.0304,11,12)="Only Diagnosis for this bill may be chosen."
^DD(399.0304,11,12.1)="S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"""
^DD(399.0304,11,21,0)="^^2^2^3070131^"
^DD(399.0304,11,21,1,0)="The diagnosis most closely related to this procedure.  Used only for the"
^DD(399.0304,11,21,2,0)="CMS-1500, box 24e."
^DD(399.0304,11,"DT")="3070131"
^DD(399.0304,12,0)="ASSOCIATED DIAGNOSIS (3)^*P362.3'^IBA(362.3,^0;13^S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0304,12,3)="Enter a diagnosis related to this procedure."
^DD(399.0304,12,12)="Only Diagnosis for this bill may be chosen."
^DD(399.0304,12,12.1)="S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"""
^DD(399.0304,12,21,0)="^^2^2^3070131^"
^DD(399.0304,12,21,1,0)="The diagnosis most closely related to this procedure.  Used only for the"
^DD(399.0304,12,21,2,0)="CMS-1500, box 24e."
^DD(399.0304,12,"DT")="3070131"
^DD(399.0304,13,0)="ASSOCIATED DIAGNOSIS (4)^*P362.3'^IBA(362.3,^0;14^S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0304,13,3)="Enter a diagnosis related to this procedure."
^DD(399.0304,13,12)="Only Diagnosis for this bill may be chosen."
^DD(399.0304,13,12.1)="S DIC(""S"")=""I +$P(^IBA(362.3,Y,0),U,2)=+$G(DA(1))"""
^DD(399.0304,13,21,0)="^^2^2^3070131^"
^DD(399.0304,13,21,1,0)="The diagnosis most closely related to this procedure.  Used only for the"
^DD(399.0304,13,21,2,0)="CMS-1500, box 24e."
^DD(399.0304,13,"DT")="3070131"
^DD(399.0304,14,0)="*CPT MODIFIER^*P81.3'^DIC(81.3,^0;15^S DIC(""S"")=""N IBXZ S IBXZ=$G(^DGCR(399,+$G(DA(1)),""""CP"""",+$G(DA),0)) I +IBXZ,+$$MODP^ICPTMOD(+IBXZ,+Y,""""I"""",+$P(IBXZ,U,2))>0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0304,14,3)="Enter a CPT modifier."
^DD(399.0304,14,12)="Only acceptable modifiers for this CPT Code may be selected!"
^DD(399.0304,14,12.1)="S DIC(""S"")=""N IBXZ S IBXZ=$G(^DGCR(399,+$G(DA(1)),""""CP"""",+$G(DA),0)) I +IBXZ,+$$MODP^ICPTMOD(+IBXZ,+Y,""""I"""",+$P(IBXZ,U,2))>0"""
^DD(399.0304,14,21,0)="^^2^2^2990130^^^"
^DD(399.0304,14,21,1,0)="Enter the modifier which should be printed on the claim form with"
^DD(399.0304,14,21,2,0)="the CPT code."
^DD(399.0304,14,23,0)="^^1^1^2990820^"
^DD(399.0304,14,23,1,0)="This field has been marked for deletion on 9/1/99."
^DD(399.0304,14,"DT")="2990820"
^DD(399.0304,15,0)="MINUTES^NJ3,0X^^0;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(399.0304,15,3)="Enter the # of minutes for this service."
^DD(399.0304,15,5,1,0)="399.0304^9^1"
^DD(399.0304,15,21,0)="^.001^1^1^3031203^^^^"
^DD(399.0304,15,21,1,0)="Enter the number of minutes of care, usually related to Anesthesia."
^DD(399.0304,15,"DT")="2990219"
^DD(399.0304,16,0)="CPT MODIFIER SEQUENCE^399.30416IA^^MOD;0"
^DD(399.0304,16,"DT")="2981215"
^DD(399.0304,17,0)="EMERGENCY PROCEDURE?^S^0:NO;1:YES;^0;17^Q"
^DD(399.0304,17,3)="Enter YES if this was an emergency procedure"
^DD(399.0304,17,21,0)="^^2^2^2981210^"
^DD(399.0304,17,21,1,0)="This field stores whether the procedure performed was emergency or"
^DD(399.0304,17,21,2,0)="scheduled/routine."
^DD(399.0304,17,"DT")="2981210"
^DD(399.0304,18,0)="PROVIDER^*P200'^VA(200,^0;18^S DIC(""S"")=""I $O(^(""""USC1"""",0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.0304,18,3)="Enter the provider who performed this procedure."
^DD(399.0304,18,12)="Only medical personnel are selectable for this field."
^DD(399.0304,18,12.1)="S DIC(""S"")=""I $O(^(""""USC1"""",0))"""
^DD(399.0304,18,21,0)="^.001^1^1^3060614^^^"
^DD(399.0304,18,21,1,0)="This is the provider who performed the procedure."
^DD(399.0304,18,"DT")="3060614"
^DD(399.0304,19,0)="PURCHASED COST^NJ8,2^^0;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(399.0304,19,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(399.0304,19,21,0)="^.001^2^2^3001101^^^^"
^DD(399.0304,19,21,1,0)="This is the actual amount the VA paid for a service provided"
^DD(399.0304,19,21,2,0)="to a VA patient at a NON-VA facility or provider."
^DD(399.0304,19,"DT")="2991112"
^DD(399.0304,20,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;20^Q"
^DD(399.0304,20,3)="Link between procedure and encounter."
^DD(399.0304,20,5,1,0)="399.0304^.01^3"
^DD(399.0304,20,21,0)="^.001^1^1^3010510^^^^"
^DD(399.0304,20,21,1,0)="The Outpatient Encounter where this procedure was performed."
^DD(399.0304,20,23,0)="^.001^2^2^3010510^^^"
^DD(399.0304,20,23,1,0)="This field is stuffed by the application for procedures extracted from "
^DD(399.0304,20,23,2,0)="the Outpatient Encounter file."
^DD(399.0304,20,"DT")="3010510"
^DD(399.0304,21,0)="MILES^NJ7,1^^0;21^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(399.0304,21,3)="Type a Number between 0 and 99999, 1 Decimal Digit"
^DD(399.0304,21,21,0)="^^1^1^3030930^"
^DD(399.0304,21,21,1,0)="Enter the number of miles the patient was transported."
^DD(399.0304,21,"DT")="3030930"
^DD(399.0304,22,0)="HOURS^NJ5,1^^0;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(399.0304,22,3)="Type a Number between 0 and 999, 1 Decimal Digit"
^DD(399.0304,22,21,0)="^.001^1^1^3031203^^"
^DD(399.0304,22,21,1,0)="Enter the number of hours of care, usually related to Observation."
^DD(399.0304,22,"DT")="3031203"
^DD(399.0304,50.01,0)="*HCFA BOX 24K (LOCAL USE ONLY)^F^^AUX;1^K:$L(X)>15!($L(X)<1) X"
^DD(399.0304,50.01,3)="This field is no longer used. Answer must be 1-15 characters in length."
^DD(399.0304,50.01,21,0)="^^7^7^3061013^"
^DD(399.0304,50.01,21,1,0)="This field is obsolete."
^DD(399.0304,50.01,21,2,0)="Field contains the text to print in HCFA box 24K for this line item when"
^DD(399.0304,50.01,21,3,0)="the bill is printed locally only.  If anything is entered in this field,"
^DD(399.0304,50.01,21,4,0)="it will override any system defaults that may apply to this field.  "
^DD(399.0304,50.01,21,5,0)="However, this data will NEVER be transmitted electronically for the claim."
^DD(399.0304,50.01,21,6,0)="If you need to submit data in this field, set the PRINT LOCAL flag on the"
^DD(399.0304,50.01,21,7,0)="claim so you can print and mail it from the site."
^DD(399.0304,50.01,"DT")="3061013"
^DD(399.0304,50.02,0)="*LAST XRAY DATE^D^^AUX;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(399.0304,50.02,3)="This field is obsolete."
^DD(399.0304,50.02,21,0)="^^1^1^3070806^"
^DD(399.0304,50.02,21,1,0)="This field has been deactivated and is not in use anymore."
^DD(399.0304,50.02,"DT")="3070524"
^DD(399.0304,50.03,0)="ATTENDING NOT HOSPICE EMPLOYEE^S^1: ATTENDING PHYSICIAN IS NOT A HOSPICE EMPLOYEE;^AUX;3^Q"
^DD(399.0304,50.03,3)="Enter a 1 if billing for hospice care and the attending physician is not employed by the hospice."
^DD(399.0304,50.03,21,0)="^^3^3^3060908^"
^DD(399.0304,50.03,21,1,0)="This is the flag that indicates that an attending physician for hospice"
^DD(399.0304,50.03,21,2,0)="care charges was not employed by the hospice.  For printed claims, this"
^DD(399.0304,50.03,21,3,0)="data will print on the CMS-1500 in box 19"
^DD(399.0304,50.03,"DT")="3060908"
^DD(399.0304,50.04,0)="*LEVEL OF SUBLUXATION^F^^AUX;4^K:$L(X)>7!($L(X)<2)!'(X?2.3E1""-""2.3E!(X?2.3E&(X'[""-""))) X"
^DD(399.0304,50.04,3)="This field is obsolete."
^DD(399.0304,50.04,21,0)="^.001^1^1^3070806^^^"
^DD(399.0304,50.04,21,1,0)="This field has been deactivated and is not in use anymore."
^DD(399.0304,50.04,"DT")="3070525"
^DD(399.0304,50.05,0)="*CHIRO TREATMENT SERIES NUM^NJ5,0^^AUX;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(399.0304,50.05,3)="This field is obsolete."
^DD(399.0304,50.05,21,0)="^^1^1^3070525^"
^DD(399.0304,50.05,21,1,0)="This field has been deactivated and is not in use anymore."
^DD(399.0304,50.05,"DT")="3070525"
^DD(399.0304,50.06,0)="*CHIROPRACTIC QUANTITY^NJ5,0^^AUX;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(399.0304,50.06,3)="This field is obsolete."
^DD(399.0304,50.06,21,0)="^^1^1^3070525^"
^DD(399.0304,50.06,21,1,0)="This field has been deactivated and is not in use anymore."
^DD(399.0304,50.06,"DT")="3070525"
^DD(399.0304,50.07,0)="EPSDT FLAG^S^1:YES;^AUX;7^Q"
^DD(399.0304,50.07,3)="Enter a 1 if the item being billed is EPSDT related"
^DD(399.0304,50.07,21,0)="^^3^3^3060908^"
^DD(399.0304,50.07,21,1,0)="This is the field to indicate a service is EPSDT related (Early and"
^DD(399.0304,50.07,21,2,0)="Periodic Screen for Diagnosis and Treatment of children)."
^DD(399.0304,50.07,21,3,0)="For printed claims, this data will print in CMS-1500 box 24H."
^DD(399.0304,50.07,"DT")="3060908"
^DD(399.0304,50.08,0)="SERVICE LINE COMMENT^F^^AUX;8^K:$L(X)>59!($L(X)<1) X"
^DD(399.0304,50.08,3)="Answer must be 1-59 characters in length"
^DD(399.0304,50.08,21,0)="^^12^12^3060829^"
^DD(399.0304,50.08,21,1,0)="Enter a free text comment as supplemental information associated"
^DD(399.0304,50.08,21,2,0)="with this procedure.  This text will print up to 59 characters"
^DD(399.0304,50.08,21,3,0)="across the shaded line of Box 24 of the CMS-1500 form."
^DD(399.0304,50.08,21,4,0)=" "
^DD(399.0304,50.08,21,5,0)="The following qualifiers can be entered after the text when "
^DD(399.0304,50.08,21,6,0)="reporting NDC units when the NDC Units are required in addition "
^DD(399.0304,50.08,21,7,0)="to the HCPCS units:"
^DD(399.0304,50.08,21,8,0)=" "
^DD(399.0304,50.08,21,9,0)="F2   International Unit"
^DD(399.0304,50.08,21,10,0)="GR   Gram"
^DD(399.0304,50.08,21,11,0)="ML   Milliliter"
^DD(399.0304,50.08,21,12,0)="UN   Unit"
^DD(399.0304,50.08,"DT")="3060829"
^DD(399.0304,50.09,0)="SERVICE LINE COMMENT QUALIFIER^F^^AUX;9^K:$L(X)>7!($L(X)<1) X"
^DD(399.0304,50.09,3)="Answer must be 1-7 characters in length"
^DD(399.0304,50.09,21,0)="^^20^20^3060829^"
^DD(399.0304,50.09,21,1,0)="Enter an optional free text Qualifier."
^DD(399.0304,50.09,21,2,0)=" "
^DD(399.0304,50.09,21,3,0)="The following qualifiers should be used when reporting the following"
^DD(399.0304,50.09,21,4,0)="services."
^DD(399.0304,50.09,21,5,0)=" "
^DD(399.0304,50.09,21,6,0)="  7    Anesthesia information"
^DD(399.0304,50.09,21,7,0)="  ZZ   Narrative description of unspecified code"
^DD(399.0304,50.09,21,8,0)="  N4   National Drug Codes (NDC)"
^DD(399.0304,50.09,21,9,0)="  VP   Vendor Product Number Health Industry Business Communications "
^DD(399.0304,50.09,21,10,0)="       Council (HIBCC) Labeling Standard"
^DD(399.0304,50.09,21,11,0)="  OZ   Product Number Health Care Uniform Code Council - Global Trade"
^DD(399.0304,50.09,21,12,0)="       Item Number (GTIN)"
^DD(399.0304,50.09,21,13,0)="  CTR  Contract rate"
^DD(399.0304,50.09,21,14,0)=" "
^DD(399.0304,50.09,21,15,0)="If required to report other supplemental information not listed above, "
^DD(399.0304,50.09,21,16,0)="follow payer instructions for the use of a qualifier for the"
^DD(399.0304,50.09,21,17,0)="information being reported.  When reporting a service that does not"
^DD(399.0304,50.09,21,18,0)="have a qualifier, then leave this field blank.  In this case, two"
^DD(399.0304,50.09,21,19,0)="blank spaces will be inserted on the printed 1500 form before the"
^DD(399.0304,50.09,21,20,0)="service line supplemental information is displayed."
^DD(399.0304,50.09,"DT")="3060829"
^DD(399.0304,"B","*ADDITIONAL PROCEDURE NAME",2)=""
^DD(399.0304,"B","*ASSOCIATED DIAGNOSIS",7)=""
^DD(399.0304,"B","*CHIRO TREATMENT SERIES NUM",50.05)=""
^DD(399.0304,"B","*CHIROPRACTIC QUANTITY",50.06)=""
^DD(399.0304,"B","*CPT MODIFIER",14)=""
^DD(399.0304,"B","*HCFA BOX 24K (LOCAL USE ONLY)",50.01)=""
^DD(399.0304,"B","*LAST XRAY DATE",50.02)=""
^DD(399.0304,"B","*LEVEL OF SUBLUXATION",50.04)=""
^DD(399.0304,"B","ADDITIONAL PROCEDURE NAME",2)="1"
^DD(399.0304,"B","ASSOCIATED CLINIC",6)=""
^DD(399.0304,"B","ASSOCIATED DIAGNOSIS (1)",10)=""
^DD(399.0304,"B","ASSOCIATED DIAGNOSIS (2)",11)=""
^DD(399.0304,"B","ASSOCIATED DIAGNOSIS (3)",12)=""
^DD(399.0304,"B","ASSOCIATED DIAGNOSIS (4)",13)=""
^DD(399.0304,"B","ATTENDING NOT HOSPICE EMPLOYEE",50.03)=""
^DD(399.0304,"B","BASC BILLABLE",4)=""
^DD(399.0304,"B","CPT MODIFIER SEQUENCE",16)=""
^DD(399.0304,"B","DIVISION",5)=""
^DD(399.0304,"B","EMERGENCY PROCEDURE?",17)=""
^DD(399.0304,"B","EPSDT FLAG",50.07)=""
^DD(399.0304,"B","HOURS",22)=""
^DD(399.0304,"B","MILES",21)=""
^DD(399.0304,"B","MINUTES",15)=""
^DD(399.0304,"B","OUTPATIENT ENCOUNTER",20)=""
^DD(399.0304,"B","PLACE OF SERVICE",8)=""
^DD(399.0304,"B","PRINT ORDER",3)=""
^DD(399.0304,"B","PROCEDURE DATE",1)=""
^DD(399.0304,"B","PROCEDURES",.01)=""
^DD(399.0304,"B","PROVIDER",18)=""
^DD(399.0304,"B","PURCHASED COST",19)=""
^DD(399.0304,"B","SERVICE LINE COMMENT",50.08)=""
^DD(399.0304,"B","SERVICE LINE COMMENT QUALIFIER",50.09)=""
^DD(399.0304,"B","TYPE OF SERVICE",9)=""
^DD(399.0304,"GL",0,1,.01)=""
^DD(399.0304,"GL",0,2,1)=""
^DD(399.0304,"GL",0,3,2)=""
^DD(399.0304,"GL",0,4,3)=""
^DD(399.0304,"GL",0,5,4)=""
^DD(399.0304,"GL",0,6,5)=""
^DD(399.0304,"GL",0,7,6)=""
^DD(399.0304,"GL",0,8,7)=""
^DD(399.0304,"GL",0,9,8)=""
^DD(399.0304,"GL",0,10,9)=""
^DD(399.0304,"GL",0,11,10)=""
^DD(399.0304,"GL",0,12,11)=""
^DD(399.0304,"GL",0,13,12)=""
^DD(399.0304,"GL",0,14,13)=""
^DD(399.0304,"GL",0,15,14)=""
^DD(399.0304,"GL",0,16,15)=""
^DD(399.0304,"GL",0,17,17)=""
^DD(399.0304,"GL",0,18,18)=""
^DD(399.0304,"GL",0,19,19)=""
^DD(399.0304,"GL",0,20,20)=""
^DD(399.0304,"GL",0,21,21)=""
^DD(399.0304,"GL",0,22,22)=""
^DD(399.0304,"GL","AUX",1,50.01)=""
^DD(399.0304,"GL","AUX",2,50.02)=""
^DD(399.0304,"GL","AUX",3,50.03)=""
^DD(399.0304,"GL","AUX",4,50.04)=""
^DD(399.0304,"GL","AUX",5,50.05)=""
^DD(399.0304,"GL","AUX",6,50.06)=""
^DD(399.0304,"GL","AUX",7,50.07)=""
^DD(399.0304,"GL","AUX",8,50.08)=""
^DD(399.0304,"GL","AUX",9,50.09)=""
^DD(399.0304,"GL","MOD",0,16)=""
^DD(399.0304,"IX",.01)=""
^DD(399.0304,"IX",1)=""
^DD(399.0304,"IX",3)=""
^DD(399.0304,"IX",4)=""
^DD(399.0304,"IX",6)=""
^DD(399.0304,"IX",9)=""
^DD(399.0304,"SB",399.30416,16)=""
^DD(399.04,0)="CONDITION CODE SUB-FIELD^^.01^1"
^DD(399.04,0,"NM","CONDITION CODE")=""
^DD(399.04,0,"UP")="399"
^DD(399.04,.01,0)="CONDITION CODE^M*P399.1'^DGCR(399.1,^0;1^S DIC(""S"")=""I +$P($G(^DGCR(399.1,+Y,0)),U,15)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.04,.01,3)="Enter a Condition Code that applies to this bill."
^DD(399.04,.01,12)="Valid Condition Codes Only!"
^DD(399.04,.01,12.1)="S DIC(""S"")=""I +$P($G(^DGCR(399.1,+Y,0)),U,15)"""
^DD(399.04,.01,21,0)="^^2^2^2970916^^^"
^DD(399.04,.01,21,1,0)="This identifies various condition(s) relating to the patient and care"
^DD(399.04,.01,21,2,0)="provided that is being billed that may affect payer processing."
^DD(399.04,.01,"DT")="2970910"
^DD(399.04,"B","CONDITION CODE",.01)=""
^DD(399.04,"GL",0,1,.01)=""
^DD(399.041,0)="OCCURRENCE CODE SUB-FIELD^^.04^4"
^DD(399.041,0,"DIK")="IBXX"
^DD(399.041,0,"DT")="2931221"
^DD(399.041,0,"ID",.02)="W """""
^DD(399.041,0,"IX","B",399.041,.01)=""
^DD(399.041,0,"NM","OCCURRENCE CODE")=""
^DD(399.041,0,"UP")="399"
^DD(399.041,.01,0)="OCCURRENCE CODE^M*P399.1'^DGCR(399.1,^0;1^S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),U,4)=1,$S(+Y'=22:1,$P(^DPT($P(^DGCR(399,DA,0),U,2),0),U,2)=""""F"""":1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.041,.01,1,0)="^.1"
^DD(399.041,.01,1,1,0)="399.041^B"
^DD(399.041,.01,1,1,1)="S ^DGCR(399,DA(1),""OC"",""B"",$E(X,1,30),DA)="""""
^DD(399.041,.01,1,1,2)="K ^DGCR(399,DA(1),""OC"",""B"",$E(X,1,30),DA)"
^DD(399.041,.01,3)="This code defines the event(s) relating to this bill which may affect           insurance processing."
^DD(399.041,.01,9.6)="I X=10 S DFN=$P(^DGCR(399,DA,0),""^"",2) I $D(^DPT(DFN,0)),$P(^DPT(DFN,0),""^"",2)=""M"" W !!,""This patient is a MALE!! Occurrence Code 10 applies only to FEMALES!!"",!! K DFN,X Q"
^DD(399.041,.01,12)="Valid MCCR Occurrence Codes only!"
^DD(399.041,.01,12.1)="S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),U,4)=1,$S(+Y'=22:1,$P(^DPT($P(^DGCR(399,DA,0),U,2),0),U,2)=""""F"""":1,1:0)"""
^DD(399.041,.01,"DT")="2890131"
^DD(399.041,.02,0)="DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2000101>X) X"
^DD(399.041,.02,3)="TYPE A DATE BETWEEN 1/1/1900 AND TODAY"
^DD(399.041,.02,21,0)="^^2^2^2931221^^"
^DD(399.041,.02,21,1,0)="This is the date that this event occured."
^DD(399.041,.02,21,2,0)="This is the beginning date for the time period covered by Occurrence Spans."
^DD(399.041,.02,"DT")="2991118"
^DD(399.041,.03,0)="STATE^P5'^DIC(5,^0;3^Q"
^DD(399.041,.03,3)="Enter the state in which the auto accident occurred."
^DD(399.041,.03,21,0)="^^1^1^3061012^"
^DD(399.041,.03,21,1,0)="This is the state in which the auto accident occurred."
^DD(399.041,.03,"DT")="3061012"
^DD(399.041,.04,0)="END DATE^RDX^^0;4^S %DT=""EX"" D ^%DT S X=Y K:X<1 X I $D(X),X<$P($G(^DGCR(399,DA(1),""OC"",DA,0)),U,2) K X"
^DD(399.041,.04,3)="The end date is required and can not be before the start date."
^DD(399.041,.04,21,0)="^^1^1^3070625^"
^DD(399.041,.04,21,1,0)="The end date is required and can not be before the start date."
^DD(399.041,.04,"DT")="3070625"
^DD(399.041,"B","DATE",.02)=""
^DD(399.041,"B","END DATE",.04)=""
^DD(399.041,"B","OCCURRENCE CODE",.01)=""
^DD(399.041,"B","STATE",.03)=""
^DD(399.041,"GL",0,1,.01)=""
^DD(399.041,"GL",0,2,.02)=""
^DD(399.041,"GL",0,3,.03)=""
^DD(399.041,"GL",0,4,.04)=""
^DD(399.041,"IX",.01)=""
^DD(399.041,"RQ",.02)=""
^DD(399.041,"RQ",.04)=""
^DD(399.042,0)="REVENUE CODE SUB-FIELD^^.15^15"
^DD(399.042,0,"DIK")="IBXX"
^DD(399.042,0,"DT")="2940207"
^DD(399.042,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGCR(399.1,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(399.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(399.042,0,"IX","ABS",399.042,.05)=""
^DD(399.042,0,"IX","ABS1",399.042,.01)=""
^DD(399.042,0,"IX","ACP",399.042,.15)=""
^DD(399.042,0,"IX","ATC",399.042,.04)=""
^DD(399.042,0,"IX","B",399.042,.01)=""
^DD(399.042,0,"IX","TC",399.042,.03)=""
^DD(399.042,0,"IX","TC1",399.042,.02)=""
^DD(399.042,0,"NM","REVENUE CODE")=""
^DD(399.042,0,"UP")="399"
^DD(399.042,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(399.042,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(399.042,.001,9)="^"
^DD(399.042,.001,21,0)="^^2^2^2911025^"
^DD(399.042,.001,21,1,0)="This is the sequential number of the entry.  Use of this number facilitates"
^DD(399.042,.001,21,2,0)="reference to the line item charges and revenue codes it is associated with."
^DD(399.042,.001,"DT")="2900710"
^DD(399.042,.01,0)="REVENUE CODE^MR*P399.2'^DGCR(399.2,^0;1^S DIC(""S"")=""I +$P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.042,.01,1,0)="^.1^^-1"
^DD(399.042,.01,1,1,0)="399.042^B"
^DD(399.042,.01,1,1,1)="S ^DGCR(399,DA(1),""RC"",""B"",$E(X,1,30),DA)="""""
^DD(399.042,.01,1,1,2)="K ^DGCR(399,DA(1),""RC"",""B"",$E(X,1,30),DA)"
^DD(399.042,.01,1,2,0)="399.042^ABS1^MUMPS"
^DD(399.042,.01,1,2,1)="I $P(^DGCR(399,DA(1),""RC"",DA,0),U,5) S ^DGCR(399,DA(1),""RC"",""ABS"",$P(^DGCR(399,DA(1),""RC"",DA,0),U,5),$E(X,1,30),DA)="""""
^DD(399.042,.01,1,2,2)="I $P(^DGCR(399,DA(1),""RC"",DA,0),U,5) K ^DGCR(399,DA(1),""RC"",""ABS"",$P(^DGCR(399,DA(1),""RC"",DA,0),U,5),$E(X,1,30),DA)"
^DD(399.042,.01,1,2,"%D",0)="^.101^1^1^3000621^^^"
^DD(399.042,.01,1,2,"%D",1,0)="Cross reference of all revenue codes with bedsections."
^DD(399.042,.01,1,2,"DT")="3000621"
^DD(399.042,.01,3)="Enter the code(s) which identify a specific accommodation, ancillary service, or billing calculation.  You may enter up to 10 codes per bill."
^DD(399.042,.01,9.6)="I $D(^DGCR(399,+DA,""RC"",0)),$P(^(0),""^"",4)'<10,'$D(^DGCR(399,DA,""RC"",""B"",X)) W !!,""No more than 10 Revenue Codes per bill may be entered."",! S DGCRR=1"
^DD(399.042,.01,12)="Select active revenue codes only!"
^DD(399.042,.01,12.1)="S DIC(""S"")=""I +$P(^(0),U,3)"""
^DD(399.042,.01,21,0)="^^1^1^2990331^"
^DD(399.042,.01,21,1,0)="Enter the Revenue Code to assign the charge for the care being billed."
^DD(399.042,.01,"DT")="3000622"
^DD(399.042,.02,0)="CHARGES^RNJ8,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(399.042,.02,1,0)="^.1^^-1"
^DD(399.042,.02,1,1,0)="399.042^TC1^MUMPS"
^DD(399.042,.02,1,1,1)="D 21^IBCU2"
^DD(399.042,.02,1,1,2)="D 22^IBCU2"
^DD(399.042,.02,1,1,"%D",0)="^^1^1^2940214^"
^DD(399.042,.02,1,1,"%D",1,0)="Sets/deletes total charges."
^DD(399.042,.02,1,1,"DT")="2920921"
^DD(399.042,.02,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(399.042,.02,21,0)="^^3^3^2911025^"
^DD(399.042,.02,21,1,0)="This is the unit charge for this revenue code.  It will be"
^DD(399.042,.02,21,2,0)="multiplied times the number of units to determine the total cost for"
^DD(399.042,.02,21,3,0)="this revenue code."
^DD(399.042,.02,"DT")="2920921"
^DD(399.042,.03,0)="UNITS OF SERVICE^RNJ6,0X^^0;3^K:X'?1.N X I $D(X) S:X=0 X=1"
^DD(399.042,.03,1,0)="^.1"
^DD(399.042,.03,1,1,0)="399.042^TC^MUMPS"
^DD(399.042,.03,1,1,1)="D 31^IBCU2"
^DD(399.042,.03,1,1,2)="D 32^IBCU2"
^DD(399.042,.03,1,1,"%D",0)="^^1^1^2940214^^^"
^DD(399.042,.03,1,1,"%D",1,0)="Adds/deletes total charges."
^DD(399.042,.03,1,1,"DT")="2920921"
^DD(399.042,.03,3)="Enter the number of units of service (accommodation days, miles, treatments, etc.) rendered to or for this patient for this revenue code."
^DD(399.042,.03,21,0)="^^3^3^2940214^^^^"
^DD(399.042,.03,21,1,0)="This is the number of day of inpatient care or the number of outpatient"
^DD(399.042,.03,21,2,0)="visits for this revenue code.  It will be multiplied by the"
^DD(399.042,.03,21,3,0)="CHARGES field to determine the TOTAL charges for this revenue code."
^DD(399.042,.03,"DT")="2981211"
^DD(399.042,.04,0)="TOTAL^RNJ9,2XI^^0;4^K:X?1.10N.1""."".2N X"
^DD(399.042,.04,1,0)="^.1^^-1"
^DD(399.042,.04,1,1,0)="399.042^ATC^MUMPS"
^DD(399.042,.04,1,1,1)="S DGXRF=1 D TC^IBCU2 K DGXRF"
^DD(399.042,.04,1,1,2)="S DGXRF=2 D TC^IBCU2 K DGXRF"
^DD(399.042,.04,1,1,"%D",0)="^.101^1^1^3010522^^^^"
^DD(399.042,.04,1,1,"%D",1,0)="Sets/deletes total charges"
^DD(399.042,.04,1,1,"DT")="2920921"
^DD(399.042,.04,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(399.042,.04,21,0)="^^2^2^2911025^"
^DD(399.042,.04,21,1,0)="This is the total charges for this revenue code.  It is computed by the"
^DD(399.042,.04,21,2,0)="system."
^DD(399.042,.04,"DT")="2920921"
^DD(399.042,.05,0)="BEDSECTION^R*P399.1'^DGCR(399.1,^0;5^S DIC(""S"")=""I $P(^(0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.042,.05,1,0)="^.1"
^DD(399.042,.05,1,1,0)="399.042^ABS^MUMPS"
^DD(399.042,.05,1,1,1)="S ^DGCR(399,DA(1),""RC"",""ABS"",$E(X,1,30),+^DGCR(399,DA(1),""RC"",DA,0),DA)="""""
^DD(399.042,.05,1,1,2)="K ^DGCR(399,DA(1),""RC"",""ABS"",$E(X,1,30),+^DGCR(399,DA(1),""RC"",DA,0),DA)"
^DD(399.042,.05,1,1,"%D",0)="^^1^1^2940214^"
^DD(399.042,.05,1,1,"%D",1,0)="Cross reference of all revenue codes with bedsections."
^DD(399.042,.05,12)="ONLY BILLABLE BEDSECTIONS"
^DD(399.042,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,5)"""
^DD(399.042,.05,21,0)="^^2^2^2931018^^"
^DD(399.042,.05,21,1,0)="If this is an inpatient bill then this is the Specialty associated with"
^DD(399.042,.05,21,2,0)="authorized rates for the type of care provided for this revenue code."
^DD(399.042,.05,23,0)="^^1^1^2931018^"
^DD(399.042,.05,23,1,0)="Includes only billable bedsections."
^DD(399.042,.05,"DT")="2900514"
^DD(399.042,.06,0)="PROCEDURE^*P81'^ICPT(^0;6^S ICPTVDT=$$BDATE^IBACSV($G(DA(1))),DIC(""S"")=""I $$CPTACT^IBACSV(+Y,ICPTVDT)"",DIC(""W"")=""D EN^DDIOL(""""   """"_$P($$CPT^IBACSV(+Y,ICPTVDT),U,2),,""""?0"""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(399.042,.06,1,0)="^.1^^-1"
^DD(399.042,.06,1,1,0)="399^ASC1^MUMPS"
^DD(399.042,.06,1,1,1)="I $$RC^IBEFUNC1(DA(1),DA) S ^DGCR(399,""ASC1"",$E(X,1,30),DA(1),DA)="""""
^DD(399.042,.06,1,1,2)="K ^DGCR(399,""ASC1"",$E(X,1,30),DA(1),DA)"
^DD(399.042,.06,1,1,"%D",0)="^^1^1^2940310^^^^"
^DD(399.042,.06,1,1,"%D",1,0)="All Billable Ambulatory Surgery Codes (BASC) that have been billed."
^DD(399.042,.06,1,1,"DT")="2930903"
^DD(399.042,.06,1,2,0)="399^ASC2^MUMPS"
^DD(399.042,.06,1,2,1)="I $$RC^IBEFUNC1(DA(1),DA) S ^DGCR(399,""ASC2"",DA(1),$E(X,1,30),DA)="""""
^DD(399.042,.06,1,2,2)="K ^DGCR(399,""ASC2"",DA(1),$E(X,1,30),DA)"
^DD(399.042,.06,1,2,"%D",0)="^^1^1^2940310^^^^"
^DD(399.042,.06,1,2,"%D",1,0)="All bills with charges for Billable Ambulatory Surgery Codes (BASC)."
^DD(399.042,.06,1,2,"DT")="2930903"
^DD(399.042,.06,12)="Only codes active for the date of service may be selected."
^DD(399.042,.06,12.1)="S ICPTVDT=$$BDATE^IBACSV($G(DA(1))),DIC(""S"")=""I $$CPTACT^IBACSV(+Y,ICPTVDT)"",DIC(""W"")=""D EN^DDIOL(""""   """"_$P($$CPT^IBACSV(+Y,ICPTVDT),U,2),,""""?0"""")"""
^DD(399.042,.06,21,0)="^^9^9^3060908^"
^DD(399.042,.06,21,1,0)="This field may be used to associate the revenue code with a procedure."
^DD(399.042,.06,21,2,0)="This will be needed primarily to accomodate the CMS-1500 which allows"
^DD(399.042,.06,21,3,0)="charges by procedure not revenue code.  The charge associated with the"
^DD(399.042,.06,21,4,0)="revenue code will be printed on the CMS-1500 claim form in the same line"
^DD(399.042,.06,21,5,0)="item as the procedure."
^DD(399.042,.06,21,6,0)=" "
^DD(399.042,.06,21,7,0)="This field is also used for revenue codes that are for Billable Ambulatory"
^DD(399.042,.06,21,8,0)="Surgeries (BASC).  It identifies the CPT code of the surgery which is"
^DD(399.042,.06,21,9,0)="being billed for."
^DD(399.042,.06,"DT")="3060908"
^DD(399.042,.07,0)="DIVISION^P40.8'X^DG(40.8,^0;7^Q"
^DD(399.042,.07,1,0)="^.1^^-1"
^DD(399.042,.07,1,1,0)="399^ASC11^MUMPS"
^DD(399.042,.07,1,1,1)="I $$RC^IBEFUNC1(DA(1),DA) S ^DGCR(399,""ASC1"",$P(^DGCR(399,DA(1),""RC"",DA,0),U,6),DA(1),DA)="""""
^DD(399.042,.07,1,1,2)="K ^DGCR(399,""ASC1"",+$P(^DGCR(399,DA(1),""RC"",DA,0),U,6),DA(1),DA)"
^DD(399.042,.07,1,1,"%D",0)="^^1^1^2940310^^^^"
^DD(399.042,.07,1,1,"%D",1,0)="All Billable Ambulatory Surgery Codes (BASC) that have been billed."
^DD(399.042,.07,1,1,"DT")="2940310"
^DD(399.042,.07,1,2,0)="399^ASC21^MUMPS"
^DD(399.042,.07,1,2,1)="I $$RC^IBEFUNC1(DA(1),DA) S ^DGCR(399,""ASC2"",DA(1),$P(^DGCR(399,DA(1),""RC"",DA,0),U,6),DA)="""""
^DD(399.042,.07,1,2,2)="K ^DGCR(399,""ASC2"",DA(1),+$P(^DGCR(399,DA(1),""RC"",DA,0),U,6),DA)"
^DD(399.042,.07,1,2,"%D",0)="^^1^1^2940310^^^^"
^DD(399.042,.07,1,2,"%D",1,0)="All bills with charges for Billable Ambulatory Surgery Codes (BASC)."
^DD(399.042,.07,1,2,"DT")="2940307"
^DD(399.042,.07,3)="Enter the division where the care was provided if the charges are based on CPT region and if it is different than the bills Default Division."
^DD(399.042,.07,21,0)="^^3^3^2961001^^^^"
^DD(399.042,.07,21,1,0)="This identifes the division where the treatement being billed was performed."
^DD(399.042,.07,21,2,0)="It is only required if the charges are based on CPT and region and the "
^DD(399.042,.07,21,3,0)="division is different than the bills Default Division."
^DD(399.042,.07,"DT")="2940310"
^DD(399.042,.08,0)="AUTO^S^1:YES;^0;8^Q"
^DD(399.042,.08,3)="This field sould be automatically added by the software, user entry is not necessary."
^DD(399.042,.08,21,0)="^^2^2^2940207^^"
^DD(399.042,.08,21,1,0)="True if the revenue code and charge were added by the automatic charge"
^DD(399.042,.08,21,2,0)="calculation routine, blank if added manually by the user."
^DD(399.042,.08,23,0)="^^5^5^2940207^^"
^DD(399.042,.08,23,1,0)="Should only be true if the automatic charge calculator created the "
^DD(399.042,.08,23,2,0)="revenue code and charge based on the chargable items on the bill.  Should"
^DD(399.042,.08,23,3,0)="be null for any rev code manually entered by a user.  (FILE^IBCU62) "
^DD(399.042,.08,23,4,0)="This is used to determine which of the revenue codes should be deleted"
^DD(399.042,.08,23,5,0)="before the calculator re-builds them.  (ALL^IBCU61)"
^DD(399.042,.08,"DT")="2940207"
^DD(399.042,.09,0)="NON-COVERED CHARGE^NJ8,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0)!(X?.E1"".""3.N) X"
^DD(399.042,.09,3)="Type a Dollar amount between 0 and 99999, 2 Decimal Digits"
^DD(399.042,.09,21,0)="^^3^3^3080204^"
^DD(399.042,.09,21,1,0)="This is the amount of the charges that are not covered for this revenue"
^DD(399.042,.09,21,2,0)="code line item.  Use to record things such as pass days that need to be"
^DD(399.042,.09,21,3,0)="reported but are not chargeable."
^DD(399.042,.09,"DT")="3080204"
^DD(399.042,.1,0)="TYPE^S^1:INPT BS;2:OPT VST DT;3:RX;4:CPT;5:PROS;6:DRG;9:UNASSOCIATED;^0;10^Q"
^DD(399.042,.1,1,0)="^.1"
^DD(399.042,.1,1,1,0)="^^TRIGGER^399.042^.11"
^DD(399.042,.1,1,1,1)="Q"
^DD(399.042,.1,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""RC"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(399.042,.1,1,1,2.4)"
^DD(399.042,.1,1,1,2.4)="S DIH=$G(^DGCR(399,DIV(0),""RC"",DIV(1),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=399.042,DIG=.11 D ^DICR"
^DD(399.042,.1,1,1,3)="DO NOT DELETE"
^DD(399.042,.1,1,1,"%D",0)="^^1^1^3000526^"
^DD(399.042,.1,1,1,"%D",1,0)="This erases the item pointer if the item type changes."
^DD(399.042,.1,1,1,"CREATE VALUE")="NO EFFECT"
^DD(399.042,.1,1,1,"DELETE VALUE")="@"
^DD(399.042,.1,1,1,"DT")="3000526"
^DD(399.042,.1,1,1,"FIELD")="ITEM"
^DD(399.042,.1,1,2,0)="^^TRIGGER^399.042^.15"
^DD(399.042,.1,1,2,1)="Q"
^DD(399.042,.1,1,2,2)="X ^DD(399.042,.1,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""RC"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^DGCR(399,DIV(0),""RC"",DIV(1),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=399.042,DIG=.15 D ^DICR"
^DD(399.042,.1,1,2,2.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^DGCR(399,D0,""RC"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S X=X=3"
^DD(399.042,.1,1,2,3)="DO NOT DELETE"
^DD(399.042,.1,1,2,"%D",0)="^^1^1^3000526^"
^DD(399.042,.1,1,2,"%D",1,0)="This xref deletes the RX pointer to the procedure whenever the type is changed"
^DD(399.042,.1,1,2,"CREATE VALUE")="NO EFFECT"
^DD(399.042,.1,1,2,"DELETE CONDITION")="INTERNAL(TYPE)=3"
^DD(399.042,.1,1,2,"DELETE VALUE")="@"
^DD(399.042,.1,1,2,"DT")="3000526"
^DD(399.042,.1,1,2,"FIELD")="RX PROCEDURE"
^DD(399.042,.1,3)="This is an indicator of the type of item the charge is for."
^DD(399.042,.1,21,0)="^^2^2^2981202^^^^"
^DD(399.042,.1,21,1,0)="The type of item the charge is for.  This places the charges into "
^DD(399.042,.1,21,2,0)="categories and should correspond to the billable event."
^DD(399.042,.1,23,0)="^^2^2^2981202^^^^"
^DD(399.042,.1,23,1,0)="This defines the file reference of the item pointer.  This is automatically"
^DD(399.042,.1,23,2,0)="set when the charges are set by the auto calculator."
^DD(399.042,.1,"DT")="3000526"
^DD(399.042,.11,0)="ITEM^NJ10,0^^0;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(399.042,.11,1,0)="^.1"
^DD(399.042,.11,1,1,0)="^^TRIGGER^399.042^.15"
^DD(399.042,.11,1,1,1)="Q"
^DD(399.042,.11,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=X'="""" I X S X=DIV S Y(1)=$S($D(^DGCR(399,D0,""RC"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" X ^DD(399.042,.11,1,1,2.4)"
^DD(399.042,.11,1,1,2.4)="S DIH=$S($D(^DGCR(399,DIV(0),""RC"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,15)=DIV,DIH=399.042,DIG=.15 D ^DICR"
^DD(399.042,.11,1,1,"%D",0)="^.101^2^2^3010102^^^"
^DD(399.042,.11,1,1,"%D",1,0)="This trigger deletes the reference to the prescription procedure"
^DD(399.042,.11,1,1,"%D",2,0)="when the item being billed is changed."
^DD(399.042,.11,1,1,"CREATE VALUE")="NO EFFECT"
^DD(399.042,.11,1,1,"DELETE CONDITION")="OLD ITEM'="""""
^DD(399.042,.11,1,1,"DELETE VALUE")="@"
^DD(399.042,.11,1,1,"FIELD")="#.15"
^DD(399.042,.11,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(399.042,.11,5,1,0)="399.042^.1^1"
^DD(399.042,.11,21,0)="^^3^3^2961214^^"
^DD(399.042,.11,21,1,0)="This is a soft pointer to the item being charged for.  The TYPE field"
^DD(399.042,.11,21,2,0)="defines the file reference this is pointing to.  Automatically set when"
^DD(399.042,.11,21,3,0)="charges are set by the auto calculator."
^DD(399.042,.11,"DT")="3001012"
^DD(399.042,.12,0)="COMPONENT^S^1:INSTITUTIONAL;2:PROFESSIONAL;^0;12^Q"
^DD(399.042,.12,3)="Enter the component of the total charge this charge represents."
^DD(399.042,.12,21,0)="^^3^3^2961214^^^^"
^DD(399.042,.12,21,1,0)="The total charges for some events are broken into Institutional and"
^DD(399.042,.12,21,2,0)="Professional charges.  If this charge is for only one of these components"
^DD(399.042,.12,21,3,0)="enter it here."
^DD(399.042,.12,23,0)="^^2^2^2961214^^^"
^DD(399.042,.12,23,1,0)="This set should be a subset of the Charge Set Charge Type set (363.1,.04)"
^DD(399.042,.12,23,2,0)="Automatically set when charges are set by the auto calculator."
^DD(399.042,.12,"DT")="2961202"
^DD(399.042,.13,0)="*UB92 FORM LOCATOR 49^F^^0;13^K:$L(X)>4!($L(X)<1) X"
^DD(399.042,.13,3)="Answer must be 1-4 characters in length."
^DD(399.042,.13,21,0)="^^4^4^3070214^"
^DD(399.042,.13,21,1,0)="This is the data that should print for a revenue code line in the form"
^DD(399.042,.13,21,2,0)="locator 49."
^DD(399.042,.13,21,3,0)=" "
^DD(399.042,.13,21,4,0)="This field is marked for deletion and can be deleted 11/23/2008."
^DD(399.042,.13,"DT")="3070214"
^DD(399.042,.15,0)="RX PROCEDURE^FXO^^0;15^S X=$$RXPRLOOK^IBCEU4(X) K:'X X"
^DD(399.042,.15,1,0)="^.1^^-1"
^DD(399.042,.15,1,1,0)="399.042^ACP"
^DD(399.042,.15,1,1,1)="S ^DGCR(399,DA(1),""RC"",""ACP"",$E(X,1,30),DA)="""""
^DD(399.042,.15,1,1,2)="K ^DGCR(399,DA(1),""RC"",""ACP"",$E(X,1,30),DA)"
^DD(399.042,.15,1,1,"DT")="3000210"
^DD(399.042,.15,2)="S Y(0)=Y S Y=Y_"" - ""_$P($$PRCNM^IBCSCH1($P($G(^DGCR(399,D0,""CP"",+Y,0)),U)),U)"
^DD(399.042,.15,2.1)="S Y=Y_"" - ""_$P($$PRCNM^IBCSCH1($P($G(^DGCR(399,D0,""CP"",+Y,0)),U)),U)"
^DD(399.042,.15,3)="Enter the procedure code from the procedure codes on the bill that this charge is for."
^DD(399.042,.15,4)="I $$RXPRLOOK^IBCEU4(X)"
^DD(399.042,.15,5,1,0)="399.042^.1^2"
^DD(399.042,.15,5,2,0)="399.042^.11^1"
^DD(399.042,.15,21,0)="^^2^2^3060908^"
^DD(399.042,.15,21,1,0)="This is a soft pointer to the CP multiple entry for prescriptions billed on"
^DD(399.042,.15,21,2,0)="a CMS-1500 billing form."
^DD(399.042,.15,23,0)="^^1^1^3060908^^^^"
^DD(399.042,.15,23,1,0)="This field is hard-set when prescriptions are auto-entered on a bill."
^DD(399.042,.15,"DT")="3060908"
^DD(399.042,"B","*UB92 FORM LOCATOR 49",.13)=""
^DD(399.042,"B","AUTO",.08)=""
^DD(399.042,"B","BEDSECTION",.05)=""
^DD(399.042,"B","CHARGES",.02)=""
^DD(399.042,"B","COMPONENT",.12)=""
^DD(399.042,"B","DIVISION",.07)=""
^DD(399.042,"B","ITEM",.11)=""
^DD(399.042,"B","NON-COVERED CHARGE",.09)=""
^DD(399.042,"B","NUMBER",.001)=""
^DD(399.042,"B","PROCEDURE",.06)=""
^DD(399.042,"B","REVENUE CODE",.01)=""
^DD(399.042,"B","RX PROCEDURE",.15)=""
^DD(399.042,"B","TOTAL",.04)=""
^DD(399.042,"B","TYPE",.1)=""
^DD(399.042,"B","UNITS OF SERVICE",.03)=""
^DD(399.042,"GL",0,1,.01)=""
^DD(399.042,"GL",0,2,.02)=""
^DD(399.042,"GL",0,3,.03)=""
^DD(399.042,"GL",0,4,.04)=""
^DD(399.042,"GL",0,5,.05)=""
^DD(399.042,"GL",0,6,.06)=""
^DD(399.042,"GL",0,7,.07)=""
^DD(399.042,"GL",0,8,.08)=""
^DD(399.042,"GL",0,9,.09)=""
^DD(399.042,"GL",0,10,.1)=""
^DD(399.042,"GL",0,11,.11)=""
^DD(399.042,"GL",0,12,.12)=""
^DD(399.042,"GL",0,13,.13)=""
^DD(399.042,"GL",0,15,.15)=""
^DD(399.042,"IX",.01)=""
^DD(399.042,"IX",.02)=""
^DD(399.042,"IX",.03)=""
^DD(399.042,"IX",.04)=""
^DD(399.042,"IX",.05)=""
^DD(399.042,"IX",.06)=""
^DD(399.042,"IX",.07)=""
^DD(399.042,"IX",.1)=""
^DD(399.042,"IX",.11)=""
^DD(399.042,"IX",.15)=""
^DD(399.042,"RQ",.01)=""
^DD(399.042,"RQ",.02)=""
^DD(399.042,"RQ",.03)=""
^DD(399.042,"RQ",.04)=""
^DD(399.042,"RQ",.05)=""
^DD(399.043,0)="OP VISITS DATE(S) SUB-FIELD^^.01^1"
^DD(399.043,0,"DIK")="IBXX"
^DD(399.043,0,"NM","OP VISITS DATE(S)")=""
^DD(399.043,0,"UP")="399"
^DD(399.043,.01,0)="OP VISITS DATE(S)^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1!('$D(IBIFN))!('$$OPV^IBCU41(X,IBIFN)) X I $D(X) S DINUM=X"
^DD(399.043,.01,1,0)="^.1"
^DD(399.043,.01,1,1,0)="399^AOPV^MUMPS"
^DD(399.043,.01,1,1,1)="S ^DGCR(399,""AOPV"",$P(^DGCR(399,DA(1),0),U,2),$E(X,1,30),DA(1))="""""
^DD(399.043,.01,1,1,2)="K ^DGCR(399,""AOPV"",$P(^DGCR(399,DA(1),0),U,2),$E(X,1,30),DA(1))"
^DD(399.043,.01,1,1,"%D",0)="^^1^1^2940214^"
^DD(399.043,.01,1,1,"%D",1,0)="Cross reference of bills by patient and outpatient visit date."
^DD(399.043,.01,1,2,0)="399^AREV1^MUMPS"
^DD(399.043,.01,1,2,1)="S DGRVRCAL=1"
^DD(399.043,.01,1,2,2)="S DGRVRCAL=2"
^DD(399.043,.01,1,2,"%D",0)="^^2^2^2940214^^"
^DD(399.043,.01,1,2,"%D",1,0)="Variable causes revenue codes and chrges to be re-calculated on return"
^DD(399.043,.01,1,2,"%D",2,0)="to the enter/edit billing screens."
^DD(399.043,.01,3)="Enter outpatient dates which are covered by this bill. These dates must be included within the period which this statement covers."
^DD(399.043,.01,"DT")="2930903"
^DD(399.043,"B","OP VISITS DATE(S)",.01)=""
^DD(399.043,"GL",0,1,.01)=""
^DD(399.043,"IX",.01)=""
^DD(399.044,0)="REASON(S) DISAPPROVED-INITIAL SUB-FIELD^^.01^1"
^DD(399.044,0,"DIK")="IBXX"
^DD(399.044,0,"IX","B",399.044,.01)=""
^DD(399.044,0,"NM","REASON(S) DISAPPROVED-INITIAL")=""
^DD(399.044,0,"UP")="399"
^DD(399.044,.01,0)="REASON(S) DISAPPROVED-INITIAL^MP399.4'^DGCR(399.4,^0;1^Q"
^DD(399.044,.01,1,0)="^.1"
^DD(399.044,.01,1,1,0)="399.044^B"
^DD(399.044,.01,1,1,1)="S ^DGCR(399,DA(1),""D1"",""B"",$E(X,1,30),DA)="""""
^DD(399.044,.01,1,1,2)="K ^DGCR(399,DA(1),""D1"",""B"",$E(X,1,30),DA)"
^DD(399.044,.01,3)="Select reason(s) why this billing record has been disapproved."
^DD(399.044,.01,"DT")="2880523"
^DD(399.044,"B","REASON(S) DISAPPROVED-INITIAL",.01)=""
^DD(399.044,"GL",0,1,.01)=""
^DD(399.044,"IX",.01)=""
^DD(399.045,0)="REASON(S) DISAPPROVED-SECOND SUB-FIELD^^.01^1"
^DD(399.045,0,"DIK")="IBXX"
^DD(399.045,0,"IX","B",399.045,.01)=""
^DD(399.045,0,"NM","REASON(S) DISAPPROVED-SECOND")=""
^DD(399.045,0,"UP")="399"
^DD(399.045,.01,0)="REASON(S) DISAPPROVED-SECOND^MP399.4'^DGCR(399.4,^0;1^Q"
^DD(399.045,.01,1,0)="^.1"
^DD(399.045,.01,1,1,0)="399.045^B"
^DD(399.045,.01,1,1,1)="S ^DGCR(399,DA(1),""D2"",""B"",$E(X,1,30),DA)="""""
^DD(399.045,.01,1,1,2)="K ^DGCR(399,DA(1),""D2"",""B"",$E(X,1,30),DA)"
^DD(399.045,.01,3)="Select reason(s) why this billing record has been disapproved."
^DD(399.045,.01,"DT")="2880523"
^DD(399.045,"B","REASON(S) DISAPPROVED-SECOND",.01)=""
^DD(399.045,"GL",0,1,.01)=""
^DD(399.045,"IX",.01)=""
^DD(399.046,0)="RETURNED LOG DATE/TIME SUB-FIELD^^.04^4"
^DD(399.046,0,"DIK")="IBXX"
^DD(399.046,0,"IX","AC",399.046,.04)=""
^DD(399.046,0,"IX","B",399.046,.01)=""
^DD(399.046,0,"NM","RETURNED LOG DATE/TIME")=""
^DD(399.046,0,"UP")="399"
^DD(399.046,.01,0)="LOG DATE/TIME^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(399.046,.01,1,0)="^.1"
^DD(399.046,.01,1,1,0)="399.046^B"
^DD(399.046,.01,1,1,1)="S ^DGCR(399,DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(399.046,.01,1,1,2)="K ^DGCR(399,DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(399.046,.01,21,0)="^^1^1^2911025^"
^DD(399.046,.01,21,1,0)="This is the date and time that this entry was edited."
^DD(399.046,.01,"DT")="2900605"
^DD(399.046,.02,0)="USER^P200'^VA(200,^0;2^Q"
^DD(399.046,.02,1,0)="^.1^^0"
^DD(399.046,.02,21,0)="^^1^1^2911025^"
^DD(399.046,.02,21,1,0)="This is the user who edited or returned the bill."
^DD(399.046,.02,"DT")="2901004"
^DD(399.046,.03,0)="RETURNED COMMENTS^F^^0;3^K:$L(X)>80!($L(X)<3) X"
^DD(399.046,.03,3)="Answer must be 3-80 characters in length."
^DD(399.046,.03,21,0)="^^2^2^2940214^^"
^DD(399.046,.03,21,1,0)="Enter any comments that you would like stored with this bill.  This may"
^DD(399.046,.03,21,2,0)="include documentation of any changes and why they occured."
^DD(399.046,.03,"DT")="2900606"
^DD(399.046,.04,0)="RETURN TO A/R?^FXO^^0;4^I $D(X) D YN^IBCU"
^DD(399.046,.04,1,0)="^.1"
^DD(399.046,.04,1,1,0)="399.046^AC"
^DD(399.046,.04,1,1,1)="S ^DGCR(399,DA(1),""R"",""AC"",$E(X,1,30),DA)="""""
^DD(399.046,.04,1,1,2)="K ^DGCR(399,DA(1),""R"",""AC"",$E(X,1,30),DA)"
^DD(399.046,.04,2)="S Y(0)=Y S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399.046,.04,2.1)="S Y=$S(Y:""YES"",Y=0:""NO"",1:"""")"
^DD(399.046,.04,3)="Answer must be 1 character in length."
^DD(399.046,.04,21,0)="^^2^2^2911025^^"
^DD(399.046,.04,21,1,0)="Enter 'Yes' if you are returning this bill to Accounts Receivable at"
^DD(399.046,.04,21,2,0)="this time.  Enter 'No' if you do not wish to return this bill at this time."
^DD(399.046,.04,"DT")="2920921"
^DD(399.046,"B","LOG DATE/TIME",.01)=""
^DD(399.046,"B","RETURN TO A/R?",.04)=""
^DD(399.046,"B","RETURNED COMMENTS",.03)=""
^DD(399.046,"B","USER",.02)=""
^DD(399.046,"GL",0,1,.01)=""
^DD(399.046,"GL",0,2,.02)=""
^DD(399.046,"GL",0,3,.03)=""
^DD(399.046,"GL",0,4,.04)=""
^DD(399.046,"IX",.01)=""
^DD(399.046,"IX",.04)=""
^DD(399.047,0)="VALUE CODE SUB-FIELD^^.02^2"
^DD(399.047,0,"DIK")="IBXX"
^DD(399.047,0,"DT")="2931222"
^DD(399.047,0,"IX","B",399.047,.01)=""
^DD(399.047,0,"NM","VALUE CODE")=""
^DD(399.047,0,"UP")="399"
^DD(399.047,.01,0)="VALUE CODE^M*P399.1'X^DGCR(399.1,^0;1^S DIC(""S"")=""I +$P($G(^DGCR(399.1,+Y,0)),U,11),$$ALLOWVC^IBCVC(DA(1),+Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(399.047,.01,1,0)="^.1^^-1"
^DD(399.047,.01,1,1,0)="399.047^B"
^DD(399.047,.01,1,1,1)="S ^DGCR(399,DA(1),""CV"",""B"",$E(X,1,30),DA)="""""
^DD(399.047,.01,1,1,2)="K ^DGCR(399,DA(1),""CV"",""B"",$E(X,1,30),DA)"
^DD(399.047,.01,3)="Enter a Value Code that applies to this bill."
^DD(399.047,.01,4)=""
^DD(399.047,.01,12)="Value Codes Only!"
^DD(399.047,.01,12.1)="S DIC(""S"")=""I +$P($G(^DGCR(399.1,+Y,0)),U,11),$$ALLOWVC^IBCVC(DA(1),+Y)"""
^DD(399.047,.01,"DT")="3070927"
^DD(399.047,.02,0)="VALUE^FX^^0;2^K:$L(X)>10!($L(X)<1)!'$$FORMCHK^IBCVC(X,.DA) X"
^DD(399.047,.02,3)=""
^DD(399.047,.02,4)="D HELP^IBCVC"
^DD(399.047,.02,"DT")="3070718"
^DD(399.047,"B","VALUE",.02)=""
^DD(399.047,"B","VALUE CODE",.01)=""
^DD(399.047,"GL",0,1,.01)=""
^DD(399.047,"GL",0,2,.02)=""
^DD(399.047,"IX",.01)=""
^DD(399.048,0)="OTHER CARE SUB-FIELD^^.03^3"
^DD(399.048,0,"DIK")="IBXX"
^DD(399.048,0,"DT")="3040122"
^DD(399.048,0,"IX","B",399.048,.01)=""
^DD(399.048,0,"NM","OTHER CARE")=""
^DD(399.048,0,"UP")="399"
^DD(399.048,.01,0)="OTHER CARE^M*P399.1'^DGCR(399.1,^0;1^S DIC(""S"")=""I +$P($G(^DGCR(399.1,+Y,0)),U,5),+$P($G(^DGCR(399.1,+Y,0)),U,25)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.048,.01,1,0)="^.1"
^DD(399.048,.01,1,1,0)="399.048^B"
^DD(399.048,.01,1,1,1)="S ^DGCR(399,DA(1),""OT"",""B"",$E(X,1,30),DA)="""""
^DD(399.048,.01,1,1,2)="K ^DGCR(399,DA(1),""OT"",""B"",$E(X,1,30),DA)"
^DD(399.048,.01,3)="Identify care other than Inpatient or Outpatient."
^DD(399.048,.01,12)="Bedsections available for Other Care."
^DD(399.048,.01,12.1)="S DIC(""S"")=""I +$P($G(^DGCR(399.1,+Y,0)),U,5),+$P($G(^DGCR(399.1,+Y,0)),U,25)"""
^DD(399.048,.01,21,0)="^.001^3^3^3040122^^"
^DD(399.048,.01,21,1,0)="Identification of a range of dates for care to be other than the "
^DD(399.048,.01,21,2,0)="standard Inpatient or Outpatient.  Reasonable Charges will be applied "
^DD(399.048,.01,21,3,0)="for the type of care entered."
^DD(399.048,.01,"DT")="3040122"
^DD(399.048,.02,0)="START DATE^RDX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D OTDAT^IBCU4"
^DD(399.048,.02,3)="Enter the date the patient began this type of care."
^DD(399.048,.02,21,0)="^.001^1^1^3040123^^^"
^DD(399.048,.02,21,1,0)="This is the date the patient entered this type of care."
^DD(399.048,.02,"DT")="3040122"
^DD(399.048,.03,0)="END DATE^RDX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D OTDAT^IBCU4"
^DD(399.048,.03,3)="Enter the date this type of care ended for the patient."
^DD(399.048,.03,21,0)="^.001^1^1^3040123^^^^"
^DD(399.048,.03,21,1,0)="This is the date this type of care ended for the patient."
^DD(399.048,.03,"DT")="3040122"
^DD(399.048,"B","END DATE",.03)=""
^DD(399.048,"B","OTHER CARE",.01)=""
^DD(399.048,"B","START DATE",.02)=""
^DD(399.048,"GL",0,1,.01)=""
^DD(399.048,"GL",0,2,.02)=""
^DD(399.048,"GL",0,3,.03)=""
^DD(399.048,"IX",.01)=""
^DD(399.048,"RQ",.02)=""
^DD(399.048,"RQ",.03)=""
^DD(399.077,0)="MRA REQUEST CLAIM COMMENTS SUB-FIELD^^.03^3"
^DD(399.077,0,"DIK")="IBXX"
^DD(399.077,0,"DT")="3071115"
^DD(399.077,0,"IX","B",399.077,.01)=""
^DD(399.077,0,"NM","MRA REQUEST CLAIM COMMENTS")=""
^DD(399.077,0,"UP")="399"
^DD(399.077,.01,0)="COMMENT ENTERED DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(399.077,.01,1,0)="^.1^^-1"
^DD(399.077,.01,1,1,0)="399.077^B"
^DD(399.077,.01,1,1,1)="S ^DGCR(399,DA(1),""TXC"",""B"",$E(X,1,30),DA)="""""
^DD(399.077,.01,1,1,2)="K ^DGCR(399,DA(1),""TXC"",""B"",$E(X,1,30),DA)"
^DD(399.077,.01,1,2,0)="^^TRIGGER^399.077^.02"
^DD(399.077,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DGCR(399,D0,""TXC"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(399.077,.01,1,2,1.4)"
^DD(399.077,.01,1,2,1.4)="S DIH=$G(^DGCR(399,DIV(0),""TXC"",DIV(1),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=399.077,DIG=.02 D ^DICR"
^DD(399.077,.01,1,2,2)="Q"
^DD(399.077,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(399.077,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399.077,.01,1,2,"DT")="3071105"
^DD(399.077,.01,1,2,"FIELD")="COMMENT ENTERED BY"
^DD(399.077,.01,3)="(No range limit on date)"
^DD(399.077,.01,21,0)="^^2^2^3071105^"
^DD(399.077,.01,21,1,0)="This is the date/time the comment was entered into the system.  Set "
^DD(399.077,.01,21,2,0)="automatically.  Don't edit through Fileman."
^DD(399.077,.01,"DT")="3071115"
^DD(399.077,.02,0)="COMMENT ENTERED BY^P200'^VA(200,^0;2^Q"
^DD(399.077,.02,5,1,0)="399.077^.01^2"
^DD(399.077,.02,21,0)="^^2^2^3071105^"
^DD(399.077,.02,21,1,0)="This is the user who entered the comment.  Set by the system "
^DD(399.077,.02,21,2,0)="automatically.  Don't edit through Fileman."
^DD(399.077,.02,"DT")="3071105"
^DD(399.077,.03,0)="COMMENTS^399.0771^^1;0"
^DD(399.077,"B","COMMENT ENTERED BY",.02)=""
^DD(399.077,"B","COMMENT ENTERED DATE",.01)=""
^DD(399.077,"B","COMMENTS",.03)=""
^DD(399.077,"GL",0,1,.01)=""
^DD(399.077,"GL",0,2,.02)=""
^DD(399.077,"GL",1,0,.03)=""
^DD(399.077,"IX",.01)=""
^DD(399.077,"SB",399.0771,.03)=""
^DD(399.0771,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(399.0771,0,"DT")="3071115"
^DD(399.0771,0,"NM","COMMENTS")=""
^DD(399.0771,0,"UP")="399.077"
^DD(399.0771,.01,0)="COMMENTS^W^^0;1"
^DD(399.0771,.01,"DT")="3071115"
^DD(399.0771,"B","COMMENTS",.01)=""
^DD(399.0771,"GL",0,1,.01)=""
^DD(399.1,0)="FIELD^^.25^21"
^DD(399.1,0,"DDA")="N"
^DD(399.1,0,"DT")="2980908"
^DD(399.1,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(399.1,0,"IX","AC",399.1,.14)=""
^DD(399.1,0,"IX","B",399.1,.01)=""
^DD(399.1,0,"IX","C",399.1,.02)=""
^DD(399.1,0,"IX","C1",399.1,.02)=""
^DD(399.1,0,"IX","D",399.1,.03)=""
^DD(399.1,0,"NM","MCCR UTILITY")=""
^DD(399.1,0,"PT",42.4,5)=""
^DD(399.1,0,"PT",363,.04)=""
^DD(399.1,0,"PT",363.1,.03)=""
^DD(399.1,0,"PT",363.1,.06)=""
^DD(399.1,0,"PT",363.2,.01)=""
^DD(399.1,0,"PT",399,.25)=""
^DD(399.1,0,"PT",399,161)=""
^DD(399.1,0,"PT",399,162)=""
^DD(399.1,0,"PT",399.04,.01)=""
^DD(399.1,0,"PT",399.041,.01)=""
^DD(399.1,0,"PT",399.042,.05)=""
^DD(399.1,0,"PT",399.047,.01)=""
^DD(399.1,0,"PT",399.048,.01)=""
^DD(399.1,0,"PT",399.1,.25)=""
^DD(399.1,0,"PT",399.5,.02)=""
^DD(399.1,0,"VR")="2.0"
^DD(399.1,0,"VRPK")="IB"
^DD(399.1,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(399.1,.001,3)="Enter the internal file number of this entry."
^DD(399.1,.001,21,0)="^^1^1^2880901^"
^DD(399.1,.001,21,1,0)="This is the internal file number of this entry."
^DD(399.1,.001,"DT")="2880606"
^DD(399.1,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(399.1,.01,1,0)="^.1"
^DD(399.1,.01,1,1,0)="399.1^B"
^DD(399.1,.01,1,1,1)="S ^DGCR(399.1,""B"",$E(X,1,30),DA)="""""
^DD(399.1,.01,1,1,2)="K ^DGCR(399.1,""B"",$E(X,1,30),DA)"
^DD(399.1,.01,3)="Answer must be 3-60 characters in length."
^DD(399.1,.01,21,0)="^^1^1^2880901^"
^DD(399.1,.01,21,1,0)="This is the full name/description of this entry."
^DD(399.1,.01,"DT")="2920430"
^DD(399.1,.02,0)="CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(399.1,.02,1,0)="^.1"
^DD(399.1,.02,1,1,0)="399.1^C"
^DD(399.1,.02,1,1,1)="S ^DGCR(399.1,""C"",$E(X,1,30),DA)="""""
^DD(399.1,.02,1,1,2)="K ^DGCR(399.1,""C"",$E(X,1,30),DA)"
^DD(399.1,.02,1,2,0)="399.1^C1^MUMPS"
^DD(399.1,.02,1,2,1)="I +X S ^DGCR(399.1,""C1"",+X,DA)="""""
^DD(399.1,.02,1,2,2)="K ^DGCR(399.1,""C1"",+X,DA)"
^DD(399.1,.02,1,2,"%D",0)="^^1^1^2940214^"
^DD(399.1,.02,1,2,"%D",1,0)="Cross reference of the codes that identify the entries."
^DD(399.1,.02,3)="Enter code or number which corresponds to this entry."
^DD(399.1,.02,21,0)="^^1^1^2880901^"
^DD(399.1,.02,21,1,0)="This identifies the code or number associated with this entry."
^DD(399.1,.02,"DT")="2880831"
^DD(399.1,.03,0)="ABBREVIATION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(399.1,.03,1,0)="^.1"
^DD(399.1,.03,1,1,0)="399.1^D"
^DD(399.1,.03,1,1,1)="S ^DGCR(399.1,""D"",$E(X,1,30),DA)="""""
^DD(399.1,.03,1,1,2)="K ^DGCR(399.1,""D"",$E(X,1,30),DA)"
^DD(399.1,.03,3)="Enter the 2-20 character abbreviation (if any) of the name of this entry."
^DD(399.1,.03,21,0)="^^1^1^2880901^"
^DD(399.1,.03,21,1,0)="This is the abbreviation (if any) of the name of this entry."
^DD(399.1,.11,0)="OCCURRENCE CODE^S^1:YES;0:NO;^0;4^Q"
^DD(399.1,.11,3)="Enter the code which indicates whether or not this is an Occurrence Code."
^DD(399.1,.11,21,0)="^^1^1^2880901^"
^DD(399.1,.11,21,1,0)="This indicates whether or not this entry is an Occurrence Code."
^DD(399.1,.11,"DT")="2901003"
^DD(399.1,.12,0)="BEDSECTION^S^1:YES;0:NO;^0;5^Q"
^DD(399.1,.12,1,0)="^.1^^0"
^DD(399.1,.12,3)="Enter the code which indicates whether or not this is a Bedsection."
^DD(399.1,.12,21,0)="^^1^1^2880901^"
^DD(399.1,.12,21,1,0)="This indicates whether or not this entry is a Bedsection."
^DD(399.1,.12,"DT")="2901003"
^DD(399.1,.13,0)="DISCHARGE STATUS^S^1:YES;0:NO;^0;6^Q"
^DD(399.1,.13,3)="Enter the code which indicates whether or not this is a Discharge Status."
^DD(399.1,.13,21,0)="^^1^1^2880901^"
^DD(399.1,.13,21,1,0)="This indicates whether or not this entry is a Discharge Status."
^DD(399.1,.13,"DT")="2901003"
^DD(399.1,.14,0)="IB ACTION TYPE (COPAYMENT)^P350.1'^IBE(350.1,^0;7^Q"
^DD(399.1,.14,1,0)="^.1"
^DD(399.1,.14,1,1,0)="399.1^AC"
^DD(399.1,.14,1,1,1)="S ^DGCR(399.1,""AC"",$E(X,1,30),DA)="""""
^DD(399.1,.14,1,1,2)="K ^DGCR(399.1,""AC"",$E(X,1,30),DA)"
^DD(399.1,.14,1,1,"%D",0)="^^5^5^2920407^^^"
^DD(399.1,.14,1,1,"%D",1,0)="This cross-reference is used to determine the billable bedsection for"
^DD(399.1,.14,1,1,"%D",2,0)="an Integrated Billing ACTION TYPE (file #350.2) for Means Test Inpatient"
^DD(399.1,.14,1,1,"%D",3,0)="or Nursing Home Care co-payment charges.  The actual charge for the action"
^DD(399.1,.14,1,1,"%D",4,0)="type is then found in the BILLING RATES file (#399.5), based on the"
^DD(399.1,.14,1,1,"%D",5,0)="bedsection and date of care."
^DD(399.1,.14,1,1,"DT")="2920407"
^DD(399.1,.14,21,0)="^^6^6^2920415^^^"
^DD(399.1,.14,21,1,0)="This field will only be used for those bedsections which are included"
^DD(399.1,.14,21,2,0)="in the billing of Means Test/Category C charges."
^DD(399.1,.14,21,3,0)=" "
^DD(399.1,.14,21,4,0)="The field is a pointer to the IB ACTION TYPE file.  Once the bedsection"
^DD(399.1,.14,21,5,0)="is derived from the patient's treating specialty, the IB ACTION TYPE"
^DD(399.1,.14,21,6,0)="for the Category C Inpatient/NHC co-payment charge can be determined."
^DD(399.1,.14,"DT")="2920407"
^DD(399.1,.15,0)="IB ACTION TYPE (PER DIEM)^P350.1'^IBE(350.1,^0;8^Q"
^DD(399.1,.15,1,0)="^.1^^0"
^DD(399.1,.15,21,0)="^^6^6^2920415^^"
^DD(399.1,.15,21,1,0)="This field will only be used for those bedsections which are included"
^DD(399.1,.15,21,2,0)="in the billing of Means Test/Category C charges."
^DD(399.1,.15,21,3,0)=" "
^DD(399.1,.15,21,4,0)="The field is a pointer to the IB ACTION TYPE file.  Once the bedsection"
^DD(399.1,.15,21,5,0)="is derived from the patient's treating specialty, the IB ACTION TYPE"
^DD(399.1,.15,21,6,0)="for the Category C Inpatient/NHC per diem charge can be determined."
^DD(399.1,.15,"DT")="2920408"
^DD(399.1,.16,0)="OCC RELATED TO^*S^1:EMPLOYMENT;2:AUTO ACCIDENT;3:OTHER ACCIDENT;^0;9^Q"
^DD(399.1,.16,3)="Enter the code that most accurately relates to the Occurence Code."
^DD(399.1,.16,12)="Valid MCCR Occurrence Codes only!"
^DD(399.1,.16,12.1)="S DIC(""S"")=""I $P(^DGCR(399.1,+DA,0),U,4)=1"""
^DD(399.1,.16,21,0)="^^2^2^3070131^"
^DD(399.1,.16,21,1,0)="Relates the Occurrence Codes to the 'Condition Related To' question on the"
^DD(399.1,.16,21,2,0)="CMS-1500, box 10."
^DD(399.1,.16,"DT")="3070131"
^DD(399.1,.17,0)="OCCURRENCE SPAN^*S^1:YES;0:NO;^0;10^Q"
^DD(399.1,.17,3)="Enter Yes if this Occurrence code has two related dates associated with it."
^DD(399.1,.17,12)="Only Valid Occurrence Codes!"
^DD(399.1,.17,12.1)="S DIC(""S"")=""I +$P(^DGCR(399.1,+DA,0),U,4)"""
^DD(399.1,.17,21,0)="^^2^2^2940103^^"
^DD(399.1,.17,21,1,0)="A code and related dates that identify an event that relates to the payment"
^DD(399.1,.17,21,2,0)="of the claim."
^DD(399.1,.17,23,0)="^^2^2^2940103^^^^"
^DD(399.1,.17,23,1,0)="For Occurrence Spans both this flag and Occurrence Code must be set."
^DD(399.1,.17,23,2,0)="Setting this flag indicates two dates are required."
^DD(399.1,.17,"DT")="2940103"
^DD(399.1,.18,0)="VALUE CODE^S^1:YES;0:NO;^0;11^Q"
^DD(399.1,.18,3)="Enter Yes if this is a Value Code."
^DD(399.1,.18,"DT")="2931221"
^DD(399.1,.19,0)="VALUE CODE AMOUNT^*S^1:YES;0:NO;^0;12^Q"
^DD(399.1,.19,3)="Enter Yes if the value associated with this code is a dollar amount."
^DD(399.1,.19,12)="Only applies to value codes."
^DD(399.1,.19,12.1)="S DIC(""S"")=""I +$P(^DGCR(399.1,+DA,0),U,11)"""
^DD(399.1,.19,21,0)="^^2^2^2940103^^"
^DD(399.1,.19,21,1,0)="Enter Yes if the value amount associated with this value code should be"
^DD(399.1,.19,21,2,0)="right justified to the right of the delimiter, ie with cents printed."
^DD(399.1,.19,23,0)="^^4^4^2940103^^^"
^DD(399.1,.19,23,1,0)="If this is true then the value amount for the value code is a dollar"
^DD(399.1,.19,23,2,0)="amount and should be right justified to the right of the "
^DD(399.1,.19,23,3,0)="delimiter.  The value amounts for all other value codes will be right"
^DD(399.1,.19,23,4,0)="justified to the left of the delimiter."
^DD(399.1,.19,"DT")="2940103"
^DD(399.1,.2,0)="BILLABLE SERVICE^S^1:YES;0:NO;^0;13^Q"
^DD(399.1,.2,3)="Enter Yes if this is a billable service."
^DD(399.1,.2,21,0)="^^2^2^2960709^^"
^DD(399.1,.2,21,1,0)="These are the types of services a patient may receive that may be billable"
^DD(399.1,.2,21,2,0)="to a payer."
^DD(399.1,.2,"DT")="2960701"
^DD(399.1,.21,0)="BILLABLE EVENT^S^1:YES;0:NO;^0;14^Q"
^DD(399.1,.21,3)="Enter Yes if this is a type of event that may be billed."
^DD(399.1,.21,21,0)="^^2^2^2960701^^"
^DD(399.1,.21,21,1,0)="These are the types of events used to itemize on the bill the care provided"
^DD(399.1,.21,21,2,0)="to the patient and are billable for at least one payer rate."
^DD(399.1,.21,"DT")="2960701"
^DD(399.1,.22,0)="CONDITION CODE^S^1:YES;0:NO;^0;15^Q"
^DD(399.1,.22,3)="Enter Yes if this is a Condition Code."
^DD(399.1,.22,21,0)="^^1^1^2970910^"
^DD(399.1,.22,21,1,0)="This indicates whether or not this entry is a Condition Code."
^DD(399.1,.22,"DT")="2970910"
^DD(399.1,.23,0)="BILL CLASSIFICATION^S^0:NO;1:YES;^0;23^Q"
^DD(399.1,.23,3)="Enter the code which indicates whether or not this is a bill classification code"
^DD(399.1,.23,21,0)="^^1^1^2980908^^^^"
^DD(399.1,.23,21,1,0)="This indicates whether or not this entry is a bill classification code."
^DD(399.1,.23,"DT")="2980908"
^DD(399.1,.24,0)="VALID LOCATION OF CARE VALUES^F^^0;24^K:$L(X)>10!($L(X)<1) X"
^DD(399.1,.24,3)="Answer must be 1-10 characters in length."
^DD(399.1,.24,21,0)="^^3^3^2990427^^"
^DD(399.1,.24,21,1,0)="This is the list of valid location of care values that are consistent with"
^DD(399.1,.24,21,2,0)="the bill classification code.  More than 1 value can be entered, separated"
^DD(399.1,.24,21,3,0)="by commas."
^DD(399.1,.24,"DT")="2980908"
^DD(399.1,.25,0)="OTHER CARE^*P399.1'^DGCR(399.1,^0;25^S DIC(""S"")=""I +$P(^(0),U,13),$P(^DGCR(399.1,+DA,0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.1,.25,3)="Enter the Billable Service this Bedsection is related to."
^DD(399.1,.25,12)="Only Valid Billable Services!"
^DD(399.1,.25,12.1)="S DIC(""S"")=""I +$P(^(0),U,13),$P(^DGCR(399.1,+DA,0),U,5)"""
^DD(399.1,.25,21,0)="^.001^2^2^3040205^^^^"
^DD(399.1,.25,21,1,0)="If this Bedsection is associated with an 'Other Type of Care', then this "
^DD(399.1,.25,21,2,0)="Billable Service will identify the Rate Schedules that apply."
^DD(399.1,.25,"DT")="3040122"
^DD(399.1,.26,0)="VALUE CODE OBSOLETE DATE^D^^0;26^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(399.1,.26,3)="(No range limit on date)"
^DD(399.1,.26,"DT")="3070412"
^DD(399.1,1,0)="VALUE CODE HELP TEXT^399.11^^1;0"
^DD(399.1,"B","ABBREVIATION",.03)=""
^DD(399.1,"B","BEDSECTION",.12)=""
^DD(399.1,"B","BILL CLASSIFICATION",.23)=""
^DD(399.1,"B","BILLABLE EVENT",.21)=""
^DD(399.1,"B","BILLABLE SERVICE",.2)=""
^DD(399.1,"B","CODE",.02)=""
^DD(399.1,"B","CONDITION CODE",.22)=""
^DD(399.1,"B","DISCHARGE STATUS",.13)=""
^DD(399.1,"B","IB ACTION TYPE (COPAYMENT)",.14)=""
^DD(399.1,"B","IB ACTION TYPE (PER DIEM)",.15)=""
^DD(399.1,"B","NAME",.01)=""
^DD(399.1,"B","NUMBER",.001)=""
^DD(399.1,"B","OCC RELATED TO",.16)=""
^DD(399.1,"B","OCCURRENCE CODE",.11)=""
^DD(399.1,"B","OCCURRENCE SPAN",.17)=""
^DD(399.1,"B","OTHER CARE",.25)=""
^DD(399.1,"B","VALID LOCATION OF CARE VALUES",.24)=""
^DD(399.1,"B","VALUE CODE",.18)=""
^DD(399.1,"B","VALUE CODE AMOUNT",.19)=""
^DD(399.1,"B","VALUE CODE HELP TEXT",1)=""
^DD(399.1,"B","VALUE CODE OBSOLETE DATE",.26)=""
^DD(399.1,"GL",0,1,.01)=""
^DD(399.1,"GL",0,2,.02)=""
^DD(399.1,"GL",0,3,.03)=""
^DD(399.1,"GL",0,4,.11)=""
^DD(399.1,"GL",0,5,.12)=""
^DD(399.1,"GL",0,6,.13)=""
^DD(399.1,"GL",0,7,.14)=""
^DD(399.1,"GL",0,8,.15)=""
^DD(399.1,"GL",0,9,.16)=""
^DD(399.1,"GL",0,10,.17)=""
^DD(399.1,"GL",0,11,.18)=""
^DD(399.1,"GL",0,12,.19)=""
^DD(399.1,"GL",0,13,.2)=""
^DD(399.1,"GL",0,14,.21)=""
^DD(399.1,"GL",0,15,.22)=""
^DD(399.1,"GL",0,23,.23)=""
^DD(399.1,"GL",0,24,.24)=""
^DD(399.1,"GL",0,25,.25)=""
^DD(399.1,"GL",0,26,.26)=""
^DD(399.1,"GL",1,0,1)=""
^DD(399.1,"IX",.01)=""
^DD(399.1,"IX",.02)=""
^DD(399.1,"IX",.03)=""
^DD(399.1,"IX",.14)=""
^DD(399.1,"RQ",.01)=""
^DD(399.1,"SB",399.11,1)=""
^DD(399.11,0)="VALUE CODE HELP TEXT SUB-FIELD^^.01^1"
^DD(399.11,0,"DT")="3070406"
^DD(399.11,0,"NM","VALUE CODE HELP TEXT")=""
^DD(399.11,0,"UP")="399.1"
^DD(399.11,.01,0)="VALUE CODE HELP TEXT^W^^0;1"
^DD(399.11,.01,21,0)="^^2^2^3070406^"
^DD(399.11,.01,21,1,0)="This field is for the help text specific to this value code.  It will be "
^DD(399.11,.01,21,2,0)="used when adding value codes to the bill."
^DD(399.11,.01,"DT")="3070406"
^DD(399.11,"B","VALUE CODE HELP TEXT",.01)=""
^DD(399.11,"GL",0,1,.01)=""
^DD(399.2,0)="FIELD^^4^5"
^DD(399.2,0,"DDA")="N"
^DD(399.2,0,"DT")="2931221"
^DD(399.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(399.2,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(399.2,0,"IX","AC",399.2,2)=""
^DD(399.2,0,"IX","B",399.2,.01)=""
^DD(399.2,0,"IX","C",399.2,1)=""
^DD(399.2,0,"IX","D1",399.2,2)=""
^DD(399.2,0,"IX","E",399.2,3)=""
^DD(399.2,0,"IX","F",399.2,.01)=""
^DD(399.2,0,"NM","REVENUE CODE")=""
^DD(399.2,0,"PT",36,.09)=""
^DD(399.2,0,"PT",36,.15)=""
^DD(399.2,0,"PT",162.03,48)=""
^DD(399.2,0,"PT",350.9,1.18)=""
^DD(399.2,0,"PT",350.9,1.28)=""
^DD(399.2,0,"PT",361.115,.1)=""
^DD(399.2,0,"PT",363.1,.05)=""
^DD(399.2,0,"PT",363.2,.06)=""
^DD(399.2,0,"PT",363.33,.01)=""
^DD(399.2,0,"PT",399.042,.01)=""
^DD(399.2,0,"PT",399.5,.03)=""
^DD(399.2,0,"VR")="2.0"
^DD(399.2,.01,0)="REVENUE CODE^RFXI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) S:$L(X)<3 X=$E(""000"",1,3-$L(X))_X K:X=""000"" X K:$L(X)>3!($L(X)<3)!'(X?3N) X I $D(X) S DINUM=+X K X"
^DD(399.2,.01,1,0)="^.1^^-1"
^DD(399.2,.01,1,1,0)="399.2^B"
^DD(399.2,.01,1,1,1)="S ^DGCR(399.2,""B"",$E(X,1,30),DA)="""""
^DD(399.2,.01,1,1,2)="K ^DGCR(399.2,""B"",$E(X,1,30),DA)"
^DD(399.2,.01,1,3,0)="399.2^F^MUMPS"
^DD(399.2,.01,1,3,1)="I +X,+X<100 S ^DGCR(399.2,""F"",+X,DA)="""""
^DD(399.2,.01,1,3,2)="K ^DGCR(399.2,""F"",+X,DA)"
^DD(399.2,.01,1,3,"%D",0)="^^1^1^2940214^"
^DD(399.2,.01,1,3,"%D",1,0)="All revenue codes less than 100."
^DD(399.2,.01,3)="Enter the 3-digit numeric code associated with this entry."
^DD(399.2,.01,21,0)="^^1^1^2880901^"
^DD(399.2,.01,21,1,0)="This is the 3-digit numeric code associated with this entry."
^DD(399.2,.01,"DT")="2901003"
^DD(399.2,1,0)="STANDARD ABBREVIATION^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!'(X?1""*"".A!(X?1A.E)) X I $D(X),$E(X)=""*"" S X=X_""RESERVED"" K X"
^DD(399.2,1,1,0)="^.1"
^DD(399.2,1,1,1,0)="399.2^C"
^DD(399.2,1,1,1,1)="S ^DGCR(399.2,""C"",$E(X,1,30),DA)="""""
^DD(399.2,1,1,1,2)="K ^DGCR(399.2,""C"",$E(X,1,30),DA)"
^DD(399.2,1,1,2,0)="^^TRIGGER^399.2^3"
^DD(399.2,1,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=$E(X)=""*"" I X S X=DIV S Y(1)=$S($D(^DGCR(399.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(399.2,1,1,2,1.4)"
^DD(399.2,1,1,2,1.4)="S DIH=$G(^DGCR(399.2,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=399.2,DIG=3 D ^DICR"
^DD(399.2,1,1,2,2)="Q"
^DD(399.2,1,1,2,"CREATE CONDITION")="$E(STANDARD ABBREVIATION)=""*"""
^DD(399.2,1,1,2,"CREATE VALUE")="STANDARD ABBREVIATION"
^DD(399.2,1,1,2,"DELETE VALUE")="NO EFFECT"
^DD(399.2,1,1,2,"DT")="3040614"
^DD(399.2,1,1,2,"FIELD")="DESCRIPTION"
^DD(399.2,1,3)="Enter the 1-60 character abbreviation of the description field of this entry."
^DD(399.2,1,21,0)="^^1^1^2880901^"
^DD(399.2,1,21,1,0)="This is the abbreviation of the description field of this entry."
^DD(399.2,1,"DT")="3040614"
^DD(399.2,2,0)="ACTIVATE^RSX^1:ACTIVATE CODE;0:INACTIVATE CODE;^0;3^Q:'X  S %=^DGCR(399.2,+DA,0) I $E($P(%,""^"",2))=""*""!($E($P(%,""^"",4))=""*"") W !?4,""Can't activate a RESERVED code..."",*7 K X"
^DD(399.2,2,1,0)="^.1"
^DD(399.2,2,1,1,0)="399.2^AC^MUMPS"
^DD(399.2,2,1,1,1)="I $P(^DGCR(399.2,DA,0),""^"",3)=1 S ^DGCR(399.2,""AC"",DA)="""""
^DD(399.2,2,1,1,2)="K ^DGCR(399.2,""AC"",DA)"
^DD(399.2,2,1,1,"%D",0)="^^1^1^2940214^"
^DD(399.2,2,1,1,"%D",1,0)="Cross reference of all active revenue codes."
^DD(399.2,2,1,2,0)="399.2^D1^MUMPS"
^DD(399.2,2,1,2,1)="S Z1=+X,Z=$P(^DGCR(399.2,DA,0),""^"",1) X ^DD(399.2,2,9.3)"
^DD(399.2,2,1,2,2)="S Z1=+X,Z=$P(^DGCR(399.2,DA,0),""^"",1) X ^DD(399.2,2,9.4)"
^DD(399.2,2,3)="Enter 'A' or '1' if you want to activate this code for usage. 'I' or '0' if you want this code to remain inactive."
^DD(399.2,2,9.3)="S:Z1 ^DGCR(399.2,""D"",Z,DA)="""" K Z,Z1"
^DD(399.2,2,9.4)="K ^DGCR(399.2,""D"",Z,DA),Z,Z1"
^DD(399.2,2,21,0)="^^1^1^2931221^^^^"
^DD(399.2,2,21,1,0)="This indicates whether or not this revenue code has been activated for use."
^DD(399.2,2,"DT")="2931221"
^DD(399.2,3,0)="DESCRIPTION^RFX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X"
^DD(399.2,3,1,0)="^.1"
^DD(399.2,3,1,1,0)="399.2^E^KWIC"
^DD(399.2,3,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?!'-/&:;)\|*#+`=""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^DGCR(399.2,""E"",I,DA)="""""
^DD(399.2,3,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?!'-/&:;)\|*#+`=""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^DGCR(399.2,""E"",I,DA)"
^DD(399.2,3,3)="Enter the 2-60 character description of this revenue code."
^DD(399.2,3,5,1,0)="399.2^1^2"
^DD(399.2,3,21,0)="^^1^1^2931220^^"
^DD(399.2,3,21,1,0)="This is the full length description of this entry."
^DD(399.2,3,"DT")="2931220"
^DD(399.2,4,0)="ALL INCLUSIVE^SX^0:NO;1:YES;^0;5^K X"
^DD(399.2,4,3)="Enter the code which indicates if this revenue code is an all inclusive rate."
^DD(399.2,4,21,0)="^^1^1^2880901^"
^DD(399.2,4,21,1,0)="This indicates whether or not this revenue code is an all inclusive rate."
^DD(399.2,4,"DT")="2880831"
^DD(399.2,"B","ACTIVATE",2)=""
^DD(399.2,"B","ALL INCLUSIVE",4)=""
^DD(399.2,"B","DESCRIPTION",3)=""
^DD(399.2,"B","REVENUE CODE",.01)=""
^DD(399.2,"B","STANDARD ABBREVIATION",1)=""
^DD(399.2,"GL",0,1,.01)=""
^DD(399.2,"GL",0,2,1)=""
^DD(399.2,"GL",0,3,2)=""
^DD(399.2,"GL",0,4,3)=""
^DD(399.2,"GL",0,5,4)=""
^DD(399.2,"IX",.01)=""
^DD(399.2,"IX",1)=""
^DD(399.2,"IX",2)=""
^DD(399.2,"IX",3)=""
^DD(399.2,"RQ",.01)=""
^DD(399.2,"RQ",2)=""
^DD(399.2,"RQ",3)=""
^DD(399.2,"TRB",399.2,1,2,3)=""
^DD(399.3,0)="FIELD^^.11^12"
^DD(399.3,0,"DT")="2920206"
^DD(399.3,0,"ID",.07)="W ""Who's Responsible: "",@(""$P($P($C(59)_$S($D(^DD(399.3,.07,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,7)_"""":"""",2),$C(59),1)"")"
^DD(399.3,0,"IX","B",399.3,.01)=""
^DD(399.3,0,"NM","RATE TYPE")=""
^DD(399.3,0,"PT",363,.02)=""
^DD(399.3,0,"PT",399,.07)=""
^DD(399.3,0,"VR")="2.0"
^DD(399.3,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(399.3,.001,3)="Enter the internal file number of this entry."
^DD(399.3,.001,21,0)="^^1^1^2880901^"
^DD(399.3,.001,21,1,0)="This is the internal file number of this entry."
^DD(399.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(399.3,.01,1,0)="^.1"
^DD(399.3,.01,1,1,0)="399.3^B"
^DD(399.3,.01,1,1,1)="S ^DGCR(399.3,""B"",$E(X,1,30),DA)="""""
^DD(399.3,.01,1,1,2)="K ^DGCR(399.3,""B"",$E(X,1,30),DA)"
^DD(399.3,.01,3)="Enter the 1-30 character name/description of this rate type."
^DD(399.3,.01,21,0)="^^1^1^2890331^^"
^DD(399.3,.01,21,1,0)="This is the name/description of this rate type."
^DD(399.3,.01,"DEL",.01,0)="I 1 W !,""Deletion of Rate Types not allowed. Use the Inactive field."""
^DD(399.3,.02,0)="BILL NAME^RF^^0;2^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(399.3,.02,3)="Enter the 1-30 character text which you want to appear on the UB form each time a bill of this rate type is printed."
^DD(399.3,.02,21,0)="^^2^2^2940120^^"
^DD(399.3,.02,21,1,0)="This is the text which will appear on the UB claim form each time a bill of"
^DD(399.3,.02,21,2,0)="this rate type is printed."
^DD(399.3,.03,0)="INACTIVE^S^0:NO;1:YES;^0;3^Q"
^DD(399.3,.03,3)="Enter the code which indicates whether or not you would like to inactivate this rate type."
^DD(399.3,.03,21,0)="^^1^1^2890405^^"
^DD(399.3,.03,21,1,0)="This indicates whether or not this code has been inactivated."
^DD(399.3,.03,"DT")="2890405"
^DD(399.3,.04,0)="ABBREVIATION^RF^^0;4^K:$L(X)>8!($L(X)<2)!'(X?1A.ANP) X"
^DD(399.3,.04,3)="Enter the 2-8 character abbreviation of the name of this rate type which will appear on all of the billing outputs."
^DD(399.3,.04,21,0)="^^2^2^2880901^"
^DD(399.3,.04,21,1,0)="This defines the abbreviation of the name of this rate type which will"
^DD(399.3,.04,21,2,0)="appear on all of the billing outputs."
^DD(399.3,.05,0)="IS THIS A THIRD PARTY BILL?^RS^0:NO;1:YES;^0;5^Q"
^DD(399.3,.05,3)="Enter '1' or 'Yes' if this is a third party bill or '0' or 'No' if a bill of this rate type is not a third party bill."
^DD(399.3,.05,21,0)="^^2^2^2880901^"
^DD(399.3,.05,21,1,0)="This allows the user to determine whether or not a bill of this rate type"
^DD(399.3,.05,21,2,0)="is a third party bill."
^DD(399.3,.06,0)="ACCOUNTS RECEIVABLE CATEGORY^R*P430.2'^PRCA(430.2,^0;6^S DIC(""S"")=""I $P(^(0),U,7)>9"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.3,.06,1,0)="^.1"
^DD(399.3,.06,1,1,0)="^^TRIGGER^399.3^.07"
^DD(399.3,.06,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV D ARCAT^IBCU X ^DD(399.3,.06,1,1,1.4)"
^DD(399.3,.06,1,1,1.4)="S DIH=$S($D(^DGCR(399.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=399.3,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.3,.06,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGCR(399.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(399.3,.06,1,1,2.4)"
^DD(399.3,.06,1,1,2.4)="S DIH=$S($D(^DGCR(399.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=399.3,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(399.3,.06,1,1,"%D",0)="^^2^2^2931217^"
^DD(399.3,.06,1,1,"%D",1,0)="This triggers the correct value for WHO's RESPONSIBLE for any AR Category"
^DD(399.3,.06,1,1,"%D",2,0)="that is entered."
^DD(399.3,.06,1,1,"CREATE VALUE")="D ARCAT^IBCU"
^DD(399.3,.06,1,1,"DELETE VALUE")="S X="""""
^DD(399.3,.06,1,1,"DT")="2931217"
^DD(399.3,.06,1,1,"FIELD")="#.07"
^DD(399.3,.06,3)="Select the 'Accounts Receivable Category' which corresponds to this rate type."
^DD(399.3,.06,12)="Only Accounts Receivable categories may be selected"
^DD(399.3,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,7)>9"""
^DD(399.3,.06,21,0)="^^1^1^2920107^^^"
^DD(399.3,.06,21,1,0)="This points to the corresponding Accounts Receivable category."
^DD(399.3,.06,"DT")="2931217"
^DD(399.3,.07,0)="WHO'S RESPONSIBLE^SI^p:PATIENT;i:INSURER;o:OTHER (INSTITUTION);^0;7^Q"
^DD(399.3,.07,3)="Enter the Expected debtor for this rate type."
^DD(399.3,.07,5,1,0)="399.3^.06^1"
^DD(399.3,.07,21,0)="4"
^DD(399.3,.07,21,1,0)="This field is triggered when an Accounts Receivable Category is entered."
^DD(399.3,.07,21,2,0)="It is used to provide consistency between packages so the the debtor for"
^DD(399.3,.07,21,3,0)="the bill is from the correct file.  Debtors can be from the Patient file,"
^DD(399.3,.07,21,4,0)="the Insurance Company file, or the Institution file."
^DD(399.3,.07,"DT")="2900214"
^DD(399.3,.08,0)="REIMBURSABLE INSURANCE?^S^1:YES;0:NO;^0;8^Q"
^DD(399.3,.08,3)="Answer '1' or 'YES' if you want the Medicare statement to print on all UB bills of this Rate Type."
^DD(399.3,.08,21,0)="^^7^7^2940120^^^^"
^DD(399.3,.08,21,1,0)="This field should be answered 'YES' if this is a Reimbursable Insurance"
^DD(399.3,.08,21,2,0)="rate type, all other rate types should be answered 'NO'.  This field"
^DD(399.3,.08,21,3,0)="will be used to determine if a bill is reimbursable Insurance."
^DD(399.3,.08,21,4,0)=" "
^DD(399.3,.08,21,5,0)="Primarily, this field will be used by the bill print option to determine "
^DD(399.3,.08,21,6,0)="if the 7 line statement that begins ""For your information..."""
^DD(399.3,.08,21,7,0)="should be printed on the UB claim form. (Only applies to the UB form types.)"
^DD(399.3,.08,"DT")="2920406"
^DD(399.3,.09,0)="NSC STATEMENT ON UB BILLS^S^1:YES;0:NO;^0;9^Q"
^DD(399.3,.09,3)="Enter '1' or 'YES' if you want the statement ""The undersigned certifies that treatment rendered is not for a service connected disablility."" to print on UB bills of this rate type."
^DD(399.3,.09,21,0)="^^6^6^2940120^^^^"
^DD(399.3,.09,21,1,0)="The statement ""The undersigned certifies that treatment rendered is not"
^DD(399.3,.09,21,2,0)="for a service connected disablity."" will be printed on UB claim forms of"
^DD(399.3,.09,21,3,0)="this Rate Type if this field is answered 'YES'."
^DD(399.3,.09,21,4,0)=" "
^DD(399.3,.09,21,5,0)="This field should be answered 'YES' for all rate types where the bill"
^DD(399.3,.09,21,6,0)="can only be for NSC care."
^DD(399.3,.09,"DT")="2940120"
^DD(399.3,.1,0)="ELECTRONIC TRANSMIT^S^0:NOT ALLOWED;1:ALLOWED;^0;10^Q"
^DD(399.3,.1,3)="Enter the type of electronic transmission (or none) for bills of this rate type."
^DD(399.3,.1,21,0)="^^1^1^2960422^^"
^DD(399.3,.1,21,1,0)="The type of transmission allowed, if any, for bills of this rate type."
^DD(399.3,.1,"DT")="2990302"
^DD(399.3,.11,0)="BILL RESULTING FROM^*P430.6'^PRCA(430.6,^0;11^S DIC(""S"")=""N Z0 S Z0=$P($G(^DGCR(399.3,DA,0)),U,6) Q:+Z0'>0  S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""""X"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.3,.11,3)="Enter the default that will be used for the BILL RESULTING FROM field when auto-audit is invoked"
^DD(399.3,.11,12)="Type for the entry must be compatible with Rate Type/AR Category's Type"
^DD(399.3,.11,12.1)="S DIC(""S"")=""N Z0 S Z0=$P($G(^DGCR(399.3,DA,0)),U,6) Q:+Z0'>0  S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""""X"""")"""
^DD(399.3,.11,21,0)="^.001^3^3^3021217^^"
^DD(399.3,.11,21,1,0)="This is the default value for the BILL RESULTING FROM (#4.5) field in the"
^DD(399.3,.11,21,2,0)="ACCOUNTS RECEIVABLE file (#430) that will be used during auto-audit"
^DD(399.3,.11,21,3,0)="for all bills with this rate type."
^DD(399.3,.11,"DT")="3021217"
^DD(399.3,"B","ABBREVIATION",.04)=""
^DD(399.3,"B","ACCOUNTS RECEIVABLE CATEGORY",.06)=""
^DD(399.3,"B","BILL NAME",.02)=""
^DD(399.3,"B","BILL RESULTING FROM",.11)=""
^DD(399.3,"B","ELECTRONIC TRANSMIT",.1)=""
^DD(399.3,"B","INACTIVE",.03)=""
^DD(399.3,"B","IS THIS A THIRD PARTY BILL?",.05)=""
^DD(399.3,"B","NAME",.01)=""
^DD(399.3,"B","NSC STATEMENT ON UB BILLS",.09)=""
^DD(399.3,"B","NUMBER",.001)=""
^DD(399.3,"B","REIMBURSABLE INSURANCE?",.08)=""
^DD(399.3,"B","WHO'S RESPONSIBLE",.07)=""
^DD(399.3,"GL",0,1,.01)=""
^DD(399.3,"GL",0,2,.02)=""
^DD(399.3,"GL",0,3,.03)=""
^DD(399.3,"GL",0,4,.04)=""
^DD(399.3,"GL",0,5,.05)=""
^DD(399.3,"GL",0,6,.06)=""
^DD(399.3,"GL",0,7,.07)=""
^DD(399.3,"GL",0,8,.08)=""
^DD(399.3,"GL",0,9,.09)=""
^DD(399.3,"GL",0,10,.1)=""
^DD(399.3,"GL",0,11,.11)=""
^DD(399.3,"IX",.01)=""
^DD(399.3,"IX",.06)=""
^DD(399.3,"RQ",.01)=""
^DD(399.3,"RQ",.02)=""
^DD(399.3,"RQ",.04)=""
^DD(399.3,"RQ",.05)=""
^DD(399.3,"RQ",.06)=""
^DD(399.30416,0)="CPT MODIFIER SEQUENCE SUB-FIELD^^.02^2"
^DD(399.30416,0,"DIK")="IBXX"
^DD(399.30416,0,"DT")="3000417"
^DD(399.30416,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(81.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(81.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(399.30416,0,"ID","WRITE")="W ?10,$P($$MOD^ICPTMOD(+$P(^(0),U,2),""I""),U,3)"
^DD(399.30416,0,"IX","B",399.30416,.01)=""
^DD(399.30416,0,"IX","C",399.30416,.02)=""
^DD(399.30416,0,"NM","CPT MODIFIER SEQUENCE")=""
^DD(399.30416,0,"UP")="399.0304"
^DD(399.30416,.01,0)="CPT MODIFIER SEQUENCE^MNJ2,0X^^0;1^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X I $D(X) N Z S Z=$O(^DGCR(399,DA(2),""CP"",DA(1),""MOD"",""B"",X,0)) I Z,Z'=DA D EN^DDIOL(X_"" has already been used!!"",,""!,*7,?10"") K X"
^DD(399.30416,.01,1,0)="^.1"
^DD(399.30416,.01,1,1,0)="399.30416^B"
^DD(399.30416,.01,1,1,1)="S ^DGCR(399,DA(2),""CP"",DA(1),""MOD"",""B"",$E(X,1,30),DA)="""""
^DD(399.30416,.01,1,1,2)="K ^DGCR(399,DA(2),""CP"",DA(1),""MOD"",""B"",$E(X,1,30),DA)"
^DD(399.30416,.01,3)="Type a unique sequence number between 1 and 10, 0 Decimal Digits"
^DD(399.30416,.01,21,0)="^^1^1^2990127^^^"
^DD(399.30416,.01,21,1,0)="This field determines the billing priority of the modifier."
^DD(399.30416,.01,"DT")="2981215"
^DD(399.30416,.02,0)="CPT MODIFIER^R*P81.3'^DIC(81.3,^0;2^D B30416^IBACSV D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(399.30416,.02,1,0)="^.1"
^DD(399.30416,.02,1,1,0)="399.30416^C"
^DD(399.30416,.02,1,1,1)="S ^DGCR(399,DA(2),""CP"",DA(1),""MOD"",""C"",$E(X,1,30),DA)="""""
^DD(399.30416,.02,1,1,2)="K ^DGCR(399,DA(2),""CP"",DA(1),""MOD"",""C"",$E(X,1,30),DA)"
^DD(399.30416,.02,1,1,"DT")="3010205"
^DD(399.30416,.02,3)="ENTER A VALID CPT MODIFIER FOR THE PROCEDURE"
^DD(399.30416,.02,12)="Only acceptable modifiers for the CPT Code may be selected!"
^DD(399.30416,.02,12.1)="D B30416^IBACSV"
^DD(399.30416,.02,"DT")="3040429"
^DD(399.30416,"B","CPT MODIFIER",.02)=""
^DD(399.30416,"B","CPT MODIFIER SEQUENCE",.01)=""
^DD(399.30416,"GL",0,1,.01)=""
^DD(399.30416,"GL",0,2,.02)=""
^DD(399.30416,"IX",.01)=""
^DD(399.30416,"IX",.02)=""
^DD(399.30416,"RQ",.02)=""
^DD(399.4,0)="FIELD^^.01^2"
^DD(399.4,0,"DDA")="N"
^DD(399.4,0,"IX","B",399.4,.01)=""
^DD(399.4,0,"IX","C",399.4,.01)=""
^DD(399.4,0,"NM","MCCR INCONSISTENT DATA ELEMENTS")=""
^DD(399.4,0,"PT",399.044,.01)=""
^DD(399.4,0,"PT",399.045,.01)=""
^DD(399.4,0,"VR")="2.0"
^DD(399.4,0,"VRPK")="IB"
^DD(399.4,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(399.4,.001,3)="Enter form locator number which corresponds to this entry on the UB-82 form."
^DD(399.4,.001,21,0)="^^2^2^2880901^"
^DD(399.4,.001,21,1,0)="This number corresponds to the form locator number of this entry on the"
^DD(399.4,.001,21,2,0)="UB-82 form."
^DD(399.4,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>55!($L(X)<3)!'(X'?1P.E) X"
^DD(399.4,.01,1,0)="^.1"
^DD(399.4,.01,1,1,0)="399.4^B"
^DD(399.4,.01,1,1,1)="S ^DGCR(399.4,""B"",$E(X,1,30),DA)="""""
^DD(399.4,.01,1,1,2)="K ^DGCR(399.4,""B"",$E(X,1,30),DA)"
^DD(399.4,.01,1,2,0)="399.4^C^KWIC"
^DD(399.4,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^DGCR(399.4,""C"",I,DA)="""""
^DD(399.4,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^DGCR(399.4,""C"",I,DA)"
^DD(399.4,.01,3)="Enter the 3-55 character reason for disapproval."
^DD(399.4,.01,21,0)="^^2^2^2880901^"
^DD(399.4,.01,21,1,0)="This defines a reason why a bill may be disapproved during the review phase"
^DD(399.4,.01,21,2,0)="of the billing process."
^DD(399.4,"B","NAME",.01)=""
^DD(399.4,"B","NUMBER",.001)=""
^DD(399.4,"GL",0,1,.01)=""
^DD(399.4,"IX",.01)=""
^DD(399.4,"RQ",.01)=""
^DD(399.5,0)="FIELD^^.07^7"
^DD(399.5,0,"DDA")="N"
^DD(399.5,0,"DT")="2900501"
^DD(399.5,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGCR(399.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(399.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(399.5,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGCR(399.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(399.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(399.5,0,"ID",.04)="S DGZX=X,X=$P(^(0),U,4),X2=""2$"" D COMMA^%DTC W ""   "",X S X=DGZX K DGZX,X2"
^DD(399.5,0,"ID",.05)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(399.5,.05,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(399.5,0,"IX","AIVDT",399.5,.01)=""
^DD(399.5,0,"IX","AIVDT1",399.5,.02)=""
^DD(399.5,0,"IX","AIVDT2",399.5,.03)=""
^DD(399.5,0,"IX","B",399.5,.01)=""
^DD(399.5,0,"IX","D",399.5,.03)=""
^DD(399.5,0,"NM","BILLING RATES")=""
^DD(399.5,0,"VR")="2.0"
^DD(399.5,0,"VRPK")="IB"
^DD(399.5,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:2991001<X!(2861001>X) X"
^DD(399.5,.01,1,0)="^.1"
^DD(399.5,.01,1,1,0)="399.5^B"
^DD(399.5,.01,1,1,1)="S ^DGCR(399.5,""B"",$E(X,1,30),DA)="""""
^DD(399.5,.01,1,1,2)="K ^DGCR(399.5,""B"",$E(X,1,30),DA)"
^DD(399.5,.01,1,2,0)="399.5^AIVDT^MUMPS"
^DD(399.5,.01,1,2,1)="S:$P(^DGCR(399.5,DA,0),U,2)&($P(^(0),U,3)) ^DGCR(399.5,""AIVDT"",$P(^(0),U,2),-X,$P(^(0),U,3),DA)="""""
^DD(399.5,.01,1,2,2)="K:$P(^DGCR(399.5,DA,0),U,2)&($P(^(0),U,3)) ^DGCR(399.5,""AIVDT"",$P(^(0),U,2),-X,$P(^(0),U,3),DA)"
^DD(399.5,.01,1,2,3)="DON'T DELETE"
^DD(399.5,.01,1,2,"%D",0)="^^1^1^2940214^^^"
^DD(399.5,.01,1,2,"%D",1,0)="All rates by revenue code, bedsection, and inverse date effective."
^DD(399.5,.01,1,2,"DT")="2900501"
^DD(399.5,.01,3)="TYPE A DATE BETWEEN 10/1/1986 AND 10/1/1999"
^DD(399.5,.01,21,0)="^^4^4^2961008^^^^"
^DD(399.5,.01,21,1,0)="This is the date in which changes in billing rates will take effect."
^DD(399.5,.01,21,2,0)="A new entry, with a new effective date is necessary to change a"
^DD(399.5,.01,21,3,0)="previous entry.  The most recent effective date's entry data will"
^DD(399.5,.01,21,4,0)="be used (even if its null) in calculating current charges."
^DD(399.5,.01,"DT")="2900525"
^DD(399.5,.02,0)="BILLING BEDSECTION^R*P399.1'^DGCR(399.1,^0;2^S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.5,.02,1,0)="^.1^^-1"
^DD(399.5,.02,1,2,0)="399.5^AIVDT1^MUMPS"
^DD(399.5,.02,1,2,1)="S:$P(^DGCR(399.5,DA,0),U,3) ^DGCR(399.5,""AIVDT"",X,-^(0),$P(^(0),U,3),DA)="""""
^DD(399.5,.02,1,2,2)="K:$P(^DGCR(399.5,DA,0),U,3) ^DGCR(399.5,""AIVDT"",X,-^(0),$P(^(0),U,3),DA)"
^DD(399.5,.02,1,2,3)="DON'T DELETE"
^DD(399.5,.02,1,2,"%D",0)="^^1^1^2940214^^"
^DD(399.5,.02,1,2,"%D",1,0)="All rates by revenue code, bedsection, and inverse date effective."
^DD(399.5,.02,1,2,"DT")="2900501"
^DD(399.5,.02,12)="VALID BILLING BEDSECTIONS ONLY"
^DD(399.5,.02,12.1)="S DIC(""S"")=""I $P(^DGCR(399.1,+Y,0),U,5)"""
^DD(399.5,.02,21,0)="^^1^1^2911025^"
^DD(399.5,.02,21,1,0)="This is the Specialty for which we have approved billing rates."
^DD(399.5,.02,"DT")="2900504"
^DD(399.5,.03,0)="REVENUE CODE^R*P399.2'^DGCR(399.2,^0;3^S DIC(""S"")=""I $P(^DGCR(399.2,+Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(399.5,.03,1,0)="^.1"
^DD(399.5,.03,1,1,0)="399.5^D"
^DD(399.5,.03,1,1,1)="S ^DGCR(399.5,""D"",$E(X,1,30),DA)="""""
^DD(399.5,.03,1,1,2)="K ^DGCR(399.5,""D"",$E(X,1,30),DA)"
^DD(399.5,.03,1,1,3)="Don't delete this."
^DD(399.5,.03,1,1,"DT")="2900501"
^DD(399.5,.03,1,2,0)="399.5^AIVDT2^MUMPS"
^DD(399.5,.03,1,2,1)="S:$P(^DGCR(399.5,DA,0),U,2) ^DGCR(399.5,""AIVDT"",$P(^(0),U,2),-^(0),X,DA)="""""
^DD(399.5,.03,1,2,2)="K:$P(^DGCR(399.5,DA,0),U,2) ^DGCR(399.5,""AIVDT"",$P(^(0),U,2),-^(0),X,DA)"
^DD(399.5,.03,1,2,3)="DON'T DELETE"
^DD(399.5,.03,1,2,"%D",0)="^^1^1^2940214^"
^DD(399.5,.03,1,2,"%D",1,0)="All rates by revenue code, bedsection, and inverse date effective."
^DD(399.5,.03,1,2,"DT")="2900501"
^DD(399.5,.03,12)="Select Active Revenue Codes Only!"
^DD(399.5,.03,12.1)="S DIC(""S"")=""I $P(^DGCR(399.2,+Y,0),U,3)"""
^DD(399.5,.03,21,0)="^^1^1^2920211^^"
^DD(399.5,.03,21,1,0)="This is the revenue code that will automatically be used with this rate."
^DD(399.5,.03,"DT")="2900501"
^DD(399.5,.04,0)="AMOUNT^RNJ7,2O^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<1) X"
^DD(399.5,.04,2)="S Y(0)=Y S X=Y,X2=""2$"" D COMMA^%DTC S Y=X"
^DD(399.5,.04,2.1)="S X=Y,X2=""2$"" D COMMA^%DTC S Y=X"
^DD(399.5,.04,3)="Type a Dollar Amount between 1 and 9999, 2 Decimal Digits"
^DD(399.5,.04,21,0)="^^1^1^2911025^"
^DD(399.5,.04,21,1,0)="This is the unit charge dollar amount for this rate."
^DD(399.5,.04,"DT")="2900529"
^DD(399.5,.05,0)="ACTIVE^S^0:NOT ACTIVE;1:YES, ACTIVE;^0;5^Q"
^DD(399.5,.05,21,0)="^^4^4^2940214^^"
^DD(399.5,.05,21,1,0)="If a rate is no longer to be used it should be inactivated.  This may be"
^DD(399.5,.05,21,2,0)="necessary if you are building rates for the same care using different"
^DD(399.5,.05,21,3,0)="Revenue Codes and would like to keep the old entries in the file for"
^DD(399.5,.05,21,4,0)="reference purposes."
^DD(399.5,.05,"DT")="2900501"
^DD(399.5,.06,0)="PAYORS TO USE WITH^S^i:INSURANCE CO.;p:PATIENTS;o:OTHER (INSTITUTIONS);op:PATIENTS & INSTITUTIONS;iop:ALL BUT CAT C'S;iopc:ALL;c:CAT C. BILLS ONLY;opc:ALL BUT INSURANCE CO.'S;^0;6^Q"
^DD(399.5,.06,21,0)="^^10^10^2940214^^"
^DD(399.5,.06,21,1,0)="Enter the payors that this Billing Rate is to be used with.  For the"
^DD(399.5,.06,21,2,0)="purposes of this field, the choices for payer are:"
^DD(399.5,.06,21,3,0)="   i - Insurance companies"
^DD(399.5,.06,21,4,0)="   o - Other (Institutions"
^DD(399.5,.06,21,5,0)="   p - Patients"
^DD(399.5,.06,21,6,0)="   c - Means Test/Cat C bills"
^DD(399.5,.06,21,7,0)=" "
^DD(399.5,.06,21,8,0)="All bills to patients will be considered patient bills except for"
^DD(399.5,.06,21,9,0)="Means test Co-payment bills, which may have a different amount or "
^DD(399.5,.06,21,10,0)="maximum associated with it."
^DD(399.5,.06,"DT")="2900504"
^DD(399.5,.07,0)="NON-STANDARD RATE^S^0:NO;1:YES;^0;7^Q"
^DD(399.5,.07,3)="Enter whether or not this Billing Rate should NOT be set up automatically for bills to the identified payors and bedsections."
^DD(399.5,.07,21,0)="^^9^9^2900515^"
^DD(399.5,.07,21,1,0)="This field should be answered 'YES' if this billing rate should not"
^DD(399.5,.07,21,2,0)="be automatically set up for all payers identified in the field 'PAYORS"
^DD(399.5,.07,21,3,0)="TO USE WITH.""  This billing rate will only be used with insurance "
^DD(399.5,.07,21,4,0)="companies where this revenue code has been listed in the  "
^DD(399.5,.07,21,5,0)="DIFFERENT REVENUE CODES TO USE field of the Insurance Company File."
^DD(399.5,.07,21,6,0)=" "
^DD(399.5,.07,21,7,0)="If this field is left blank or answered 'NO' then this Revenue Code"
^DD(399.5,.07,21,8,0)="and amount will be set up automatically for this bedsection when a bill"
^DD(399.5,.07,21,9,0)="is created."
^DD(399.5,.07,"DT")="2900515"
^DD(399.5,"B","ACTIVE",.05)=""
^DD(399.5,"B","AMOUNT",.04)=""
^DD(399.5,"B","BILLING BEDSECTION",.02)=""
^DD(399.5,"B","EFFECTIVE DATE",.01)=""
^DD(399.5,"B","NON-STANDARD RATE",.07)=""
^DD(399.5,"B","PAYORS TO USE WITH",.06)=""
^DD(399.5,"B","REVENUE CODE",.03)=""
^DD(399.5,"GL",0,1,.01)=""
^DD(399.5,"GL",0,2,.02)=""
^DD(399.5,"GL",0,3,.03)=""
^DD(399.5,"GL",0,4,.04)=""
^DD(399.5,"GL",0,5,.05)=""
^DD(399.5,"GL",0,6,.06)=""
^DD(399.5,"GL",0,7,.07)=""
^DD(399.5,"IX",.01)=""
^DD(399.5,"IX",.02)=""
^DD(399.5,"IX",.03)=""
^DD(399.5,"RQ",.01)=""
^DD(399.5,"RQ",.02)=""
^DD(399.5,"RQ",.03)=""
^DD(399.5,"RQ",.04)=""
^DD(403.12,.01,5,1,0)="44^.01^12"
^DD(403.12,"TRB",44,.01,12,.01)=""
^DD(403.35,0)="FIELD^^1.15^2"
^DD(403.35,0,"DDA")="N"
^DD(403.35,0,"DT")="2960313"
^DD(403.35,0,"IX","AC",403.35,1.15)=""
^DD(403.35,0,"IX","B",403.35,.01)=""
^DD(403.35,0,"NM","SCHEDULING USER PREFERENCE")=""
^DD(403.35,0,"VR")="5.3"
^DD(403.35,0,"VRPK")="SD"
^DD(403.35,.01,0)="SCHEDULING USER^RP200'X^VA(200,^0;1^S DINUM=X"
^DD(403.35,.01,1,0)="^.1"
^DD(403.35,.01,1,1,0)="403.35^B"
^DD(403.35,.01,1,1,1)="S ^SCRS(403.35,""B"",$E(X,1,30),DA)="""""
^DD(403.35,.01,1,1,2)="K ^SCRS(403.35,""B"",$E(X,1,30),DA)"
^DD(403.35,.01,3)="This is the person using the Scheduling Package."
^DD(403.35,.01,21,0)="^^2^2^2950811^^"
^DD(403.35,.01,21,1,0)="This is the user for whom preferences in the Scheduling Package will be"
^DD(403.35,.01,21,2,0)="used."
^DD(403.35,.01,23,0)="^^1^1^2950811^^"
^DD(403.35,.01,23,1,0)="This is a pointer to the NEW PERSON file (#200)."
^DD(403.35,.01,"DT")="2950811"
^DD(403.35,1.15,0)="DEFAULT PCMM REPORT QUERY^P404.95'^SD(404.95,^PCMM;15^Q"
^DD(403.35,1.15,1,0)="^.1"
^DD(403.35,1.15,1,1,0)="403.35^AC"
^DD(403.35,1.15,1,1,1)="S ^SCRS(403.35,""AC"",$E(X,1,30),DA)="""""
^DD(403.35,1.15,1,1,2)="K ^SCRS(403.35,""AC"",$E(X,1,30),DA)"
^DD(403.35,1.15,1,1,"DT")="2960318"
^DD(403.35,1.15,"DT")="2960318"
^DD(403.35,"B","DEFAULT PCMM REPORT QUERY",1.15)=""
^DD(403.35,"B","SCHEDULING USER",.01)=""
^DD(403.35,"GL",0,1,.01)=""
^DD(403.35,"GL","PCMM",15,1.15)=""
^DD(403.35,"IX",.01)=""
^DD(403.35,"IX",1.15)=""
^DD(403.35,"RQ",.01)=""
^DD(403.43,0)="FIELD^^50^5"
^DD(403.43,0,"DDA")="N"
^DD(403.43,0,"DT")="2960521"
^DD(403.43,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(403.43,0,"IX","B",403.43,.01)=""
^DD(403.43,0,"IX","EVN",403.43,.02)=""
^DD(403.43,0,"NM","SCHEDULING EVENT")=""
^DD(403.43,0,"PT",403.44,.02)=""
^DD(403.43,0,"VR")="5.3"
^DD(403.43,0,"VRPK")="SD"
^DD(403.43,.01,0)="EVENT CODE^RF^^0;1^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(403.43,.01,1,0)="^.1"
^DD(403.43,.01,1,1,0)="403.43^B"
^DD(403.43,.01,1,1,1)="S ^SD(403.43,""B"",$E(X,1,30),DA)="""""
^DD(403.43,.01,1,1,2)="K ^SD(403.43,""B"",$E(X,1,30),DA)"
^DD(403.43,.01,1,1,"%D",0)="^^1^1^2950606^"
^DD(403.43,.01,1,1,"%D",1,0)="This cross-reference allows look-up by event code."
^DD(403.43,.01,3)="Answer must be 1-8 characters in length."
^DD(403.43,.01,21,0)="^^14^14^2960528^^^^"
^DD(403.43,.01,21,1,0)="Unique code that identifies an enrollment, request or appointment event."
^DD(403.43,.01,21,2,0)="  "
^DD(403.43,.01,21,3,0)="This field uniquely identifies an event and is the primary key to the"
^DD(403.43,.01,21,4,0)="Scheduling Event file."
^DD(403.43,.01,21,5,0)=""
^DD(403.43,.01,21,6,0)="The event code corresponds to the following scheme:"
^DD(403.43,.01,21,7,0)=" "
^DD(403.43,.01,21,8,0)=" HL-xxx    HL7 related event codes"
^DD(403.43,.01,21,9,0)=" SC-RSxxx  Resource related event codes"
^DD(403.43,.01,21,10,0)=" SC-RQxxx  Request related event codes"
^DD(403.43,.01,21,11,0)=" ZMxxx to become SC-MCxxx  Managed Care related event codes"
^DD(403.43,.01,21,12,0)=" SC-TMxxx  Team related event codes"
^DD(403.43,.01,21,13,0)=" SC-OExxx  Encounter related event codes"
^DD(403.43,.01,21,14,0)=" "
^DD(403.43,.01,"DT")="2960516"
^DD(403.43,.02,0)="EVENT NAME^RF^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(403.43,.02,1,0)="^.1"
^DD(403.43,.02,1,1,0)="403.43^EVN"
^DD(403.43,.02,1,1,1)="S ^SD(403.43,""EVN"",$E(X,1,30),DA)="""""
^DD(403.43,.02,1,1,2)="K ^SD(403.43,""EVN"",$E(X,1,30),DA)"
^DD(403.43,.02,1,1,"%D",0)="^^1^1^2950606^"
^DD(403.43,.02,1,1,"%D",1,0)="This cross-reference allows look-up by event name."
^DD(403.43,.02,1,1,"DT")="2941123"
^DD(403.43,.02,3)="Answer must be 1-60 characters in length."
^DD(403.43,.02,21,0)="^^4^4^2950606^^"
^DD(403.43,.02,21,1,0)="Brief description of event type."
^DD(403.43,.02,21,2,0)=" "
^DD(403.43,.02,21,3,0)="This field briefly describes the event type and is used to help identify"
^DD(403.43,.02,21,4,0)="the event."
^DD(403.43,.02,"DT")="2941202"
^DD(403.43,.03,0)="EVENT TYPE^S^1:REQUEST;2:ENROLLMENT;3:ENCOUNTER;4:TEAM;5:TEAM POSITION;6:PRACTITIONER POSITION;7:PATIENT TEAM;8:PATIENT POSITION;9:RESOURCE;10:VISIT TYPE;11:CLINICAL RESOURCE;12:SCHEDULE;13:QUERY;^0;3^Q"
^DD(403.43,.03,3)=""
^DD(403.43,.03,21,0)="^^3^3^2950606^^"
^DD(403.43,.03,21,1,0)="This field contains the event type."
^DD(403.43,.03,21,2,0)=" "
^DD(403.43,.03,21,3,0)="Possible event types include:  Request, Enrollment and Encounter"
^DD(403.43,.03,"DT")="2960521"
^DD(403.43,.04,0)="HL7 EVENT CODE^P779.001'^HL(779.001,^0;4^Q"
^DD(403.43,.04,"DT")="2960507"
^DD(403.43,50,0)="DESCRIPTION^403.435^^D;0"
^DD(403.43,50,21,0)="^^1^1^2950606^"
^DD(403.43,50,21,1,0)="This field contains the scheduling event description."
^DD(403.43,"B","DESCRIPTION",50)=""
^DD(403.43,"B","EVENT CODE",.01)=""
^DD(403.43,"B","EVENT NAME",.02)=""
^DD(403.43,"B","EVENT TYPE",.03)=""
^DD(403.43,"B","HL7 EVENT CODE",.04)=""
^DD(403.43,"GL",0,1,.01)=""
^DD(403.43,"GL",0,2,.02)=""
^DD(403.43,"GL",0,3,.03)=""
^DD(403.43,"GL",0,4,.04)=""
^DD(403.43,"GL","D",0,50)=""
^DD(403.43,"IX",.01)=""
^DD(403.43,"IX",.02)=""
^DD(403.43,"RQ",.01)=""
^DD(403.43,"RQ",.02)=""
^DD(403.43,"SB",403.435,50)=""
^DD(403.435,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(403.435,0,"DT")="2941110"
^DD(403.435,0,"NM","DESCRIPTION")=""
^DD(403.435,0,"UP")="403.43"
^DD(403.435,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(403.435,.01,"DT")="2941110"
^DD(403.435,"B","DESCRIPTION",.01)=""
^DD(403.435,"GL",0,1,.01)=""
^DD(403.44,0)="FIELD^^50^5"
^DD(403.44,0,"DT")="2960528"
^DD(403.44,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SD(403.43,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(403.43,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(403.44,0,"IX","B",403.44,.01)=""
^DD(403.44,0,"IX","EVC",403.44,.02)=""
^DD(403.44,0,"NM","SCHEDULING REASON")=""
^DD(403.44,0,"PT",404.52,.05)=""
^DD(403.44,0,"PT",404.53,.05)=""
^DD(403.44,0,"PT",404.58,.04)=""
^DD(403.44,0,"PT",404.59,.04)=""
^DD(403.44,0,"VR")="5.3"
^DD(403.44,0,"VRPK")="SD"
^DD(403.44,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(403.44,.01,1,0)="^.1"
^DD(403.44,.01,1,1,0)="403.44^B"
^DD(403.44,.01,1,1,1)="S ^SD(403.44,""B"",$E(X,1,30),DA)="""""
^DD(403.44,.01,1,1,2)="K ^SD(403.44,""B"",$E(X,1,30),DA)"
^DD(403.44,.01,1,1,"%D",0)="^^1^1^2950606^"
^DD(403.44,.01,1,1,"%D",1,0)="This cross-reference allows look-up by name."
^DD(403.44,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(403.44,.01,21,0)="^^3^3^2950606^"
^DD(403.44,.01,21,1,0)="Brief description of the event reason."
^DD(403.44,.01,21,2,0)=" "
^DD(403.44,.01,21,3,0)="This field is the primary key to the scheduling reason file."
^DD(403.44,.02,0)="EVENT CODE^RP403.43'^SD(403.43,^0;2^Q"
^DD(403.44,.02,1,0)="^.1"
^DD(403.44,.02,1,1,0)="403.44^EVC"
^DD(403.44,.02,1,1,1)="S ^SD(403.44,""EVC"",$E(X,1,30),DA)="""""
^DD(403.44,.02,1,1,2)="K ^SD(403.44,""EVC"",$E(X,1,30),DA)"
^DD(403.44,.02,1,1,"%D",0)="^^1^1^2950606^"
^DD(403.44,.02,1,1,"%D",1,0)="This cross-reference allows look-up by event code."
^DD(403.44,.02,1,1,"DT")="2941123"
^DD(403.44,.02,21,0)="^^5^5^2960516^^^^"
^DD(403.44,.02,21,1,0)="Indicates which processes can utilize this entry."
^DD(403.44,.02,21,2,0)=" "
^DD(403.44,.02,21,3,0)="This field indicates the event where this reason can be used.  For example,"
^DD(403.44,.02,21,4,0)="'HL-S15' means this reason can be used during appointment cancellations."
^DD(403.44,.02,21,5,0)="This field associates a scheduling reason with a particular event code."
^DD(403.44,.02,"DT")="2941123"
^DD(403.44,.03,0)="SYNONYM^F^^0;3^K:$L(X)>5!($L(X)<1) X"
^DD(403.44,.03,3)="Answer must be 1-5 characters in length."
^DD(403.44,.03,"DT")="2960507"
^DD(403.44,.04,0)="STATUS^S^0:INACTIVE;1:ACTIVE;^0;4^Q"
^DD(403.44,.04,"DT")="2960507"
^DD(403.44,50,0)="DESCRIPTION^403.445^^D;0"
^DD(403.44,50,21,0)="^^1^1^2950606^"
^DD(403.44,50,21,1,0)="This field contains the scheduling reason description."
^DD(403.44,"B","DESCRIPTION",50)=""
^DD(403.44,"B","EVENT CODE",.02)=""
^DD(403.44,"B","NAME",.01)=""
^DD(403.44,"B","STATUS",.04)=""
^DD(403.44,"B","SYNONYM",.03)=""
^DD(403.44,"GL",0,1,.01)=""
^DD(403.44,"GL",0,2,.02)=""
^DD(403.44,"GL",0,3,.03)=""
^DD(403.44,"GL",0,4,.04)=""
^DD(403.44,"GL","D",0,50)=""
^DD(403.44,"IX",.01)=""
^DD(403.44,"IX",.02)=""
^DD(403.44,"RQ",.01)=""
^DD(403.44,"RQ",.02)=""
^DD(403.44,"SB",403.445,50)=""
^DD(403.445,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(403.445,0,"DT")="2941115"
^DD(403.445,0,"NM","DESCRIPTION")=""
^DD(403.445,0,"UP")="403.44"
^DD(403.445,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(403.445,.01,"DT")="2941115"
^DD(403.445,"B","DESCRIPTION",.01)=""
^DD(403.445,"GL",0,1,.01)=""
^DD(403.46,0)="FIELD^^2^5"
^DD(403.46,0,"DDA")="N"
^DD(403.46,0,"DT")="3031210"
^DD(403.46,0,"IX","B",403.46,.01)=""
^DD(403.46,0,"IX","USR",403.46,.02)=""
^DD(403.46,0,"NM","STANDARD POSITION")=""
^DD(403.46,0,"PT",404.57,.03)=""
^DD(403.46,0,"PT",404.95,40)=""
^DD(403.46,0,"PT",404.9503,.01)=""
^DD(403.46,0,"VR")="5.3"
^DD(403.46,0,"VRPK")="SD"
^DD(403.46,.01,0)="STANDARD POSITION^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(403.46,.01,1,0)="^.1"
^DD(403.46,.01,1,1,0)="403.46^B"
^DD(403.46,.01,1,1,1)="S ^SD(403.46,""B"",$E(X,1,30),DA)="""""
^DD(403.46,.01,1,1,2)="K ^SD(403.46,""B"",$E(X,1,30),DA)"
^DD(403.46,.01,3)="Choose standard position from list defined by VA Central Office."
^DD(403.46,.01,21,0)="^.001^3^3^3040406^^^"
^DD(403.46,.01,21,1,0)="Standard role the provider performs as part of this team."
^DD(403.46,.01,21,2,0)=" "
^DD(403.46,.01,21,3,0)="These standard positions are defined by Central Office."
^DD(403.46,.01,"DT")="2950224"
^DD(403.46,.02,0)="USER CLASSIFICATION^P8930'^USR(8930,^0;2^Q"
^DD(403.46,.02,1,0)="^.1"
^DD(403.46,.02,1,1,0)="403.46^USR"
^DD(403.46,.02,1,1,1)="S ^SD(403.46,""USR"",$E(X,1,30),DA)="""""
^DD(403.46,.02,1,1,2)="K ^SD(403.46,""USR"",$E(X,1,30),DA)"
^DD(403.46,.02,1,1,"DT")="2950228"
^DD(403.46,.02,3)="The class of users defined in the USR CLASS File (#8930) that are permited to fill this position."
^DD(403.46,.02,21,0)="^^1^1^2950728^^^"
^DD(403.46,.02,21,1,0)="Name of the user class that may fill this standard position."
^DD(403.46,.02,"DT")="2950728"
^DD(403.46,.03,0)="ALLOWED TO BE PRIMARY CARE^S^1:YES;0:NO;2:CAN BE PRIMARY AS PRECEPTED;3:NP CAN BE PRIMARY;^0;3^Q"
^DD(403.46,.03,21,0)="^^4^4^3060712^"
^DD(403.46,.03,21,1,0)="Can this position provide Primary Care to the patient"
^DD(403.46,.03,21,2,0)="This field is used to determine inconsistencies between the Team Position"
^DD(403.46,.03,21,3,0)="Role and the ability of that role to act a Primary Care Provider."
^DD(403.46,.03,21,4,0)="This fields value is distributed by patch SD*5.3*297 and should not be changed."
^DD(403.46,.03,"DT")="3031210"
^DD(403.46,1,0)="DESCRIPTION^403.46001^^1;0"
^DD(403.46,2,0)="PERSON CLASS^403.462PA^^2;0"
^DD(403.46,2,21,0)="^^4^4^3040406^"
^DD(403.46,2,21,1,0)="This multiple defines which Person Class(es) are allowed in this position."
^DD(403.46,2,21,2,0)="If none is indicated all Person Classes are permitted."
^DD(403.46,2,21,3,0)="This field is used to insure consistency between Practitioner and Team Position"
^DD(403.46,2,21,4,0)="Standard Role. This field is populated with patch SD*5.3*297 and should not be edited."
^DD(403.46,"B","ALLOWED TO BE PRIMARY CARE",.03)=""
^DD(403.46,"B","DESCRIPTION",1)=""
^DD(403.46,"B","PERSON CLASS",2)=""
^DD(403.46,"B","STANDARD POSITION",.01)=""
^DD(403.46,"B","USER CLASSIFICATION",.02)=""
^DD(403.46,"GL",0,1,.01)=""
^DD(403.46,"GL",0,2,.02)=""
^DD(403.46,"GL",0,3,.03)=""
^DD(403.46,"GL",1,0,1)=""
^DD(403.46,"GL",2,0,2)=""
^DD(403.46,"IX",.01)=""
^DD(403.46,"IX",.02)=""
^DD(403.46,"RQ",.01)=""
^DD(403.46,"SB",403.46001,1)=""
^DD(403.46,"SB",403.462,2)=""
^DD(403.46001,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(403.46001,0,"DT")="2950222"
^DD(403.46001,0,"NM","DESCRIPTION")=""
^DD(403.46001,0,"UP")="403.46"
^DD(403.46001,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(403.46001,.01,3)="This is the long description of the standard position"
^DD(403.46001,.01,21,0)="^^1^1^2950222^"
^DD(403.46001,.01,21,1,0)="This is a more complete description of the standard position."
^DD(403.46001,.01,"DT")="2950222"
^DD(403.46001,"B","DESCRIPTION",.01)=""
^DD(403.46001,"GL",0,1,.01)=""
^DD(403.462,0)="PERSON CLASS SUB-FIELD^^.01^1"
^DD(403.462,0,"DT")="3020821"
^DD(403.462,0,"IX","B",403.462,.01)=""
^DD(403.462,0,"NM","PERSON CLASS")=""
^DD(403.462,0,"UP")="403.46"
^DD(403.462,.01,0)="PERSON CLASS^MP8932.1'X^USC(8932.1,^0;1^S DINUM=X"
^DD(403.462,.01,1,0)="^.1"
^DD(403.462,.01,1,1,0)="403.462^B"
^DD(403.462,.01,1,1,1)="S ^SD(403.46,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(403.462,.01,1,1,2)="K ^SD(403.46,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(403.462,.01,3)="Enter only if this role restricts by person class"
^DD(403.462,.01,21,0)="^.001^1^1^3021025^^"
^DD(403.462,.01,21,1,0)="Screen of Providers that can be assigned to a position. If no entries all providers are allowed"
^DD(403.462,.01,"DT")="3020821"
^DD(403.462,"B","PERSON CLASS",.01)=""
^DD(403.462,"GL",0,1,.01)=""
^DD(403.462,"IX",.01)=""
^DD(403.47,0)="FIELD^^1^2"
^DD(403.47,0,"DT")="2950222"
^DD(403.47,0,"IX","B",403.47,.01)=""
^DD(403.47,0,"NM","TEAM PURPOSE")=""
^DD(403.47,0,"PT",404.51,.03)=""
^DD(403.47,0,"VR")="5.3"
^DD(403.47,0,"VRPK")="SD"
^DD(403.47,.01,0)="TEAM PURPOSE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(403.47,.01,1,0)="^.1"
^DD(403.47,.01,1,1,0)="403.47^B"
^DD(403.47,.01,1,1,1)="S ^SD(403.47,""B"",$E(X,1,30),DA)="""""
^DD(403.47,.01,1,1,2)="K ^SD(403.47,""B"",$E(X,1,30),DA)"
^DD(403.47,.01,3)="This is the primary role/purpose of a team."
^DD(403.47,.01,21,0)="^^1^1^2950222^"
^DD(403.47,.01,21,1,0)="The primary role/purpose of a team."
^DD(403.47,.01,"DT")="2950222"
^DD(403.47,1,0)="DESCRIPTION^403.47001^^1;0"
^DD(403.47,"B","DESCRIPTION",1)=""
^DD(403.47,"B","TEAM PURPOSE",.01)=""
^DD(403.47,"GL",0,1,.01)=""
^DD(403.47,"GL",1,0,1)=""
^DD(403.47,"IX",.01)=""
^DD(403.47,"RQ",.01)=""
^DD(403.47,"SB",403.47001,1)=""
^DD(403.47001,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(403.47001,0,"DT")="2950222"
^DD(403.47001,0,"NM","DESCRIPTION")=""
^DD(403.47001,0,"UP")="403.47"
^DD(403.47001,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(403.47001,.01,3)="This is the long description of the role/purpose of a team."
^DD(403.47001,.01,21,0)="^^1^1^2950222^"
^DD(403.47001,.01,21,1,0)="Detailed description of the team's primary role/purpose."
^DD(403.47001,.01,"DT")="2950222"
^DD(403.47001,"B","DESCRIPTION",.01)=""
^DD(403.47001,"GL",0,1,.01)=""
^DD(404.41,0)="FIELD^^206^11"
^DD(404.41,0,"DDA")="N"
^DD(404.41,0,"DT")="2960208"
^DD(404.41,0,"IX","APC1",404.41,.01)=""
^DD(404.41,0,"IX","APC2",404.41,.04)=""
^DD(404.41,0,"IX","B",404.41,.01)=""
^DD(404.41,0,"NM","OUTPATIENT PROFILE")=""
^DD(404.41,0,"VR")="5.3"
^DD(404.41,0,"VRPK")="SD"
^DD(404.41,.01,0)="PATIENT^RP2'X^DPT(^0;1^S DINUM=X"
^DD(404.41,.01,1,0)="^.1"
^DD(404.41,.01,1,1,0)="404.41^B"
^DD(404.41,.01,1,1,1)="S ^SCPT(404.41,""B"",$E(X,1,30),DA)="""""
^DD(404.41,.01,1,1,2)="K ^SCPT(404.41,""B"",$E(X,1,30),DA)"
^DD(404.41,.01,1,2,0)="404.41^APC1^MUMPS"
^DD(404.41,.01,1,2,1)="N SC2 S SC2=$P($G(^SCPT(404.41,DA,0)),U,4) I SC2]"""" S ^SCPT(404.41,""APC"",X,SC2,DA)="""""
^DD(404.41,.01,1,2,2)="N SC2 S SC2=$P($G(^SCPT(404.41,DA,0)),U,4) I SC2]"""" K ^SCPT(404.41,""APC"",X,SC2,DA)"
^DD(404.41,.01,1,2,"%D",0)="^^1^1^2960208^^"
^DD(404.41,.01,1,2,"%D",1,0)="This sorts by PATIENT(#.01), then by PRIMARY CARE?(#.04).  There is an associated cross reference for the PRIMARY CARE? Field (#.04)."
^DD(404.41,.01,1,2,"DT")="2960208"
^DD(404.41,.01,3)="Select Outpatient"
^DD(404.41,.01,21,0)="^^2^2^2960214^"
^DD(404.41,.01,21,1,0)="This is a surrogate for the patient file.  It contains only outpatient"
^DD(404.41,.01,21,2,0)="information."
^DD(404.41,.01,"DT")="2960214"
^DD(404.41,.02,0)="SEND APPOINTMENT LETTERS?^S^0:NO;1:YES;^0;2^Q"
^DD(404.41,.02,"DT")="2960526"
^DD(404.41,.03,0)="CONTRACT NURSING HOME PATIENT^S^1:YES;0:NO;^0;3^Q"
^DD(404.41,.03,3)="This indicates if this is a contract nursing home patient."
^DD(404.41,.03,21,0)="^^3^3^2950306^"
^DD(404.41,.03,21,1,0)="This indicates if the patient is a contract nursing home patient."
^DD(404.41,.03,21,2,0)="This can then be used in helping to schedule the patient to assure"
^DD(404.41,.03,21,3,0)="proper personnel are available before and after the appointment."
^DD(404.41,.03,"DT")="2950306"
^DD(404.41,.04,0)="PRIMARY CARE?^S^1:YES;0:NO;^0;4^Q"
^DD(404.41,.04,1,0)="^.1"
^DD(404.41,.04,1,1,0)="404.41^APC2^MUMPS"
^DD(404.41,.04,1,1,1)="N SC1 S SC1=$P($G(^SCPT(404.41,DA,0)),U,1) I SC1 S ^SCPT(404.41,""APC"",SC1,X,DA)="""""
^DD(404.41,.04,1,1,2)="N SC1 S SC1=$P($G(^SCPT(404.41,DA,0)),U,1) I SC1 K ^SCPT(404.41,""APC"",SC1,X,DA)"
^DD(404.41,.04,1,1,"%D",0)="^^1^1^2960208^"
^DD(404.41,.04,1,1,"%D",1,0)="his sorts by PATIENT(#.01), then by PRIMARY CARE?(#.04).  There is an associated cross reference for the PATIENT Field (#.01)."
^DD(404.41,.04,1,1,"DT")="2960208"
^DD(404.41,.04,3)="Patient has been or will be assigned to a Primary Care Team."
^DD(404.41,.04,21,0)="^^2^2^2960208^"
^DD(404.41,.04,21,1,0)="This indicates if patient has been or will be assigned to a Primary Care"
^DD(404.41,.04,21,2,0)="Team."
^DD(404.41,.04,"DT")="2960208"
^DD(404.41,25,0)="COMMENT^404.4125^^C;0"
^DD(404.41,201,0)="CURRENT PC PRACTITIONER ^CJ8^^ ; ^S X=$P($$NMPCPR^SCAPMCU2(D0,DT,1),U,2)"
^DD(404.41,201,.1)="CURRENT PRIMARY CARE PRACTITIONER"
^DD(404.41,201,9)="^"
^DD(404.41,201,9.01)=""
^DD(404.41,201,9.1)="S X=$P($$NMPCPR^SCAPMCU2(D0,DT,1),U,2)"
^DD(404.41,201,21,0)="^^3^3^2960214^^^^"
^DD(404.41,201,21,1,0)="This has not been implemented yet."
^DD(404.41,201,21,2,0)="This is calcultes the current Primary Care Practitioner,"
^DD(404.41,201,21,3,0)="from the Primary Care Profile History File."
^DD(404.41,201,"DT")="2960520"
^DD(404.41,202,0)="*CURRENT PC ATTENDING^CJ8^^ ; ^S X=$P($$NMPCPR^SCAPMCU2(D0,DT,2),U,2)"
^DD(404.41,202,.1)="CURRENT PRIMARY CARE ATTENDING"
^DD(404.41,202,9)="^"
^DD(404.41,202,9.01)=""
^DD(404.41,202,9.1)="S X=$P($$NMPCPR^SCAPMCU2(D0,DT,2),U,2)"
^DD(404.41,202,21,0)="^^3^3^2990601^^^^"
^DD(404.41,202,21,1,0)="This has not been implemented yet."
^DD(404.41,202,21,2,0)="This calculates the current primary care attending"
^DD(404.41,202,21,3,0)="practitioner from the Patient Team/Position Assignment file."
^DD(404.41,202,"DT")="2990601"
^DD(404.41,203,0)="CURRENT PC TEAM^CJ8^^ ; ^S X=$P($$NMPCTM^SCAPMCU2(D0,DT,1),U,2)"
^DD(404.41,203,.1)="CURRENT PRIMARY CARE TEAM"
^DD(404.41,203,9)="^"
^DD(404.41,203,9.01)=""
^DD(404.41,203,9.1)="S X=$P($$NMPCTM^SCAPMCU2(D0,DT,1),U,2)"
^DD(404.41,203,21,0)="^^2^2^2960214^^^^"
^DD(404.41,203,21,1,0)="This has not been implemented yet."
^DD(404.41,203,21,2,0)="This calculates the current primary care team."
^DD(404.41,203,"DT")="2960520"
^DD(404.41,204,0)="CURRENT PC PRACTITIONER POS^CJ8^^ ; ^S X=$P($$NMPCTP^SCAPMCU2(D0,DT,1),U,2)"
^DD(404.41,204,.1)="CURRENT PRIMARY CARE PRACTITIONER POSITION"
^DD(404.41,204,9)="^"
^DD(404.41,204,9.01)=""
^DD(404.41,204,9.1)="S X=$P($$NMPCTP^SCAPMCU2(D0,DT,1),U,2)"
^DD(404.41,204,21,0)="^^3^3^2960214^^^^"
^DD(404.41,204,21,1,0)="This has not been implemented yet."
^DD(404.41,204,21,2,0)="This calculates the current primary care practitioner"
^DD(404.41,204,21,3,0)="position."
^DD(404.41,204,"DT")="2960520"
^DD(404.41,205,0)="*CURRENT PC ATTENDING POSITION^CJ8^^ ; ^S X=$P($$NMPCTP^SCAPMCU2(D0,DT,2),U,2)"
^DD(404.41,205,.1)="CURRENT PRIMARY CARE ATTENDING POSITION"
^DD(404.41,205,9)="^"
^DD(404.41,205,9.01)=""
^DD(404.41,205,9.1)="S X=$P($$NMPCTP^SCAPMCU2(D0,DT,2),U,2)"
^DD(404.41,205,21,0)="^^2^2^2960214^^^^"
^DD(404.41,205,21,1,0)="This calculates the current primary care attending practitioner position"
^DD(404.41,205,21,2,0)="for the patient."
^DD(404.41,205,"DT")="2990601"
^DD(404.41,206,0)="CURRENT ASSOCIATE PC PROVIDER^CJ8^^ ; ^S X=$P($$NMPCPR^SCAPMCU2(D0,DT,3),U,2)"
^DD(404.41,206,9)="^"
^DD(404.41,206,9.01)=""
^DD(404.41,206,9.1)="S X=$P($$NMPCPR^SCAPMCU2(D0,DT,3),U,2)"
^DD(404.41,206,21,0)="^^1^1^2990812^^"
^DD(404.41,206,21,1,0)="This calculates the current Associate Primary Care provider."
^DD(404.41,"B","*CURRENT PC ATTENDING",202)=""
^DD(404.41,"B","*CURRENT PC ATTENDING POSITION",205)=""
^DD(404.41,"B","COMMENT",25)=""
^DD(404.41,"B","CONTRACT NURSING HOME PATIENT",.03)=""
^DD(404.41,"B","CURRENT ASSOCIATE PC PROVIDER",206)=""
^DD(404.41,"B","CURRENT PC PRACTITIONER ",201)=""
^DD(404.41,"B","CURRENT PC PRACTITIONER POS",204)=""
^DD(404.41,"B","CURRENT PC TEAM",203)=""
^DD(404.41,"B","CURRENT PRIMARY CARE ATTENDING",202)="1"
^DD(404.41,"B","CURRENT PRIMARY CARE TEAM",203)="1"
^DD(404.41,"B","PATIENT",.01)=""
^DD(404.41,"B","PRIMARY CARE?",.04)=""
^DD(404.41,"B","SEND APPOINTMENT LETTERS?",.02)=""
^DD(404.41,"GL",0,1,.01)=""
^DD(404.41,"GL",0,2,.02)=""
^DD(404.41,"GL",0,3,.03)=""
^DD(404.41,"GL",0,4,.04)=""
^DD(404.41,"GL","C",0,25)=""
^DD(404.41,"IX",.01)=""
^DD(404.41,"IX",.04)=""
^DD(404.41,"RQ",.01)=""
^DD(404.41,"SB",404.4125,25)=""
^DD(404.4125,0)="COMMENT SUB-FIELD^^.01^1"
^DD(404.4125,0,"DT")="2941110"
^DD(404.4125,0,"NM","COMMENT")=""
^DD(404.4125,0,"UP")="404.41"
^DD(404.4125,.01,0)="COMMENT^W^^0;1^Q"
^DD(404.4125,.01,"DT")="2941110"
^DD(404.4125,"B","COMMENT",.01)=""
^DD(404.4125,"GL",0,1,.01)=""
^DD(404.42,0)="FIELD^^1^12"
^DD(404.42,0,"DDA")="N"
^DD(404.42,0,"DT")="3020818"
^DD(404.42,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(404.42,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCTM(404.51,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(404.51,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(404.42,0,"IX","AB",404.42,.01)=""
^DD(404.42,0,"IX","AIDT",404.42,.01)=""
^DD(404.42,0,"IX","AIDT1",404.42,.03)=""
^DD(404.42,0,"IX","AIDT2",404.42,.02)=""
^DD(404.42,0,"IX","AOUTPT",404.42,.08)=""
^DD(404.42,0,"IX","APCTM",404.42,.01)=""
^DD(404.42,0,"IX","APCTM1",404.42,.08)=""
^DD(404.42,0,"IX","APCTM2",404.42,.02)=""
^DD(404.42,0,"IX","APCTM3",404.42,.03)=""
^DD(404.42,0,"IX","APTTM",404.42,.01)=""
^DD(404.42,0,"IX","APTTM1",404.42,.03)=""
^DD(404.42,0,"IX","ATMPT",404.42,.03)=""
^DD(404.42,0,"IX","ATMPT1",404.42,.01)=""
^DD(404.42,0,"IX","B",404.42,.01)=""
^DD(404.42,0,"IX","C",404.42,.03)=""
^DD(404.42,0,"NM","PATIENT TEAM ASSIGNMENT")=""
^DD(404.42,0,"PT",404.43,.01)=""
^DD(404.42,0,"VR")="5.3"
^DD(404.42,0,"VRPK")="SD"
^DD(404.42,.01,0)="PATIENT^RP2'X^DPT(^0;1^N SC1,SCN,SCDA S SCDA=+$G(DA),SCN=$G(^SCPT(404.42,SCDA,0)) S $P(SCN,U,1)=X S SCN1=$$OKPTTM^SCMCTMU(SCN,SCDA) D:'SCN1 EN^DDIOL($P(SCN1,U,2),"""",""?5"") K:'SCN1 X"
^DD(404.42,.01,1,0)="^.1"
^DD(404.42,.01,1,1,0)="404.42^B"
^DD(404.42,.01,1,1,1)="S ^SCPT(404.42,""B"",$E(X,1,30),DA)="""""
^DD(404.42,.01,1,1,2)="K ^SCPT(404.42,""B"",$E(X,1,30),DA)"
^DD(404.42,.01,1,2,0)="404.42^AIDT^MUMPS"
^DD(404.42,.01,1,2,1)="N SC2,SC3 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCPT(404.42,""AIDT"",X,SC2,-SC3,DA)="""""
^DD(404.42,.01,1,2,2)="N SC2,SC3 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCPT(404.42,""AIDT"",X,SC2,-SC3,DA)"
^DD(404.42,.01,1,2,"%D",0)="^^1^1^2950907^"
^DD(404.42,.01,1,2,"%D",1,0)="This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.42,.01,1,2,"DT")="2950907"
^DD(404.42,.01,1,3,0)="404.42^AB"
^DD(404.42,.01,1,3,1)="S ^SCPT(404.42,""AB"",$E(X,1,30),DA)="""""
^DD(404.42,.01,1,3,2)="K ^SCPT(404.42,""AB"",$E(X,1,30),DA)"
^DD(404.42,.01,1,3,"DT")="2950120"
^DD(404.42,.01,1,4,0)="404.42^ATMPT1^MUMPS"
^DD(404.42,.01,1,4,1)="N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,3) I SC1 S ^SCPT(404.42,""ATMPT"",SC1,X,DA)="""""
^DD(404.42,.01,1,4,2)="N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,3) I SC1 K ^SCPT(404.42,""ATMPT"",SC1,X,DA)"
^DD(404.42,.01,1,4,"%D",0)="^^1^1^2950630^"
^DD(404.42,.01,1,4,"%D",1,0)="This sorts by TEAM ASSIGNMENT(#.03), then by PATIENT(#.01).  There is an associated cross reference for the TEAM ASSIGNMENT Field (#.03)."
^DD(404.42,.01,1,4,"DT")="2950630"
^DD(404.42,.01,1,5,0)="404.42^APTTM^MUMPS"
^DD(404.42,.01,1,5,1)="N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 S ^SCPT(404.42,""APTTM"",X,SC2,DA)="""""
^DD(404.42,.01,1,5,2)="N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,3) I SC2 K ^SCPT(404.42,""APTTM"",X,SC2,DA)"
^DD(404.42,.01,1,5,"%D",0)="^^1^1^2950703^"
^DD(404.42,.01,1,5,"%D",1,0)="This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03).  There is an associated cross reference for the TEAM ASSIGNMENT Field (#.03)."
^DD(404.42,.01,1,5,"DT")="2950703"
^DD(404.42,.01,1,6,0)="404.42^APCTM^MUMPS"
^DD(404.42,.01,1,6,1)="N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.42,DA,0)),U,8) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" S SC4=$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,""APCTM"",X,SC2,SC3,SC4,DA)="""""
^DD(404.42,.01,1,6,2)="N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.42,DA,0)),U,8) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" S SC4=$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,""APCTM"",X,SC2,SC3,SC4,DA)"
^DD(404.42,.01,1,6,"%D",0)="^^3^3^2960214^^"
^DD(404.42,.01,1,6,"%D",1,0)="This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGN"
^DD(404.42,.01,1,6,"%D",2,0)="ED DATE(#.02), then by TEAM ASSIGNMENT(#.03).  There are associated cross refere"
^DD(404.42,.01,1,6,"%D",3,0)="nces for each of these fields."
^DD(404.42,.01,1,6,"DT")="2960214"
^DD(404.42,.01,3)="Select Patient from active team"
^DD(404.42,.01,"DT")="3020731"
^DD(404.42,.02,0)="TEAM ASSIGNED DATE^RDX^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X IF $D(X)&($P(^SCPT(404.42,DA,0),U,9)) D:X>$P(^SCPT(404.42,DA,0),U,9) EN^DDIOL(""Discharge must be after Assigned Date"","""",""?5"") K:X>$P(^SCPT(404.42,DA,0),U,9) X"
^DD(404.42,.02,1,0)="^.1"
^DD(404.42,.02,1,1,0)="404.42^AIDT2^MUMPS"
^DD(404.42,.02,1,1,1)="N SC1,SC2 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2 S ^SCPT(404.42,""AIDT"",SC1,SC2,-X,DA)="""""
^DD(404.42,.02,1,1,2)="N SC1,SC2 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2 K ^SCPT(404.42,""AIDT"",SC1,SC2,-X,DA)"
^DD(404.42,.02,1,1,"%D",0)="^^1^1^2950907^"
^DD(404.42,.02,1,1,"%D",1,0)="This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.42,.02,1,1,"DT")="2950907"
^DD(404.42,.02,1,2,0)="404.42^APCTM2^MUMPS"
^DD(404.42,.02,1,2,1)="N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"""" S SC4=$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,""APCTM"",SC1,SC2,X,SC4,DA)="""""
^DD(404.42,.02,1,2,2)="N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"""" S SC4=$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,""APCTM"",SC1,SC2,X,SC4,DA)"
^DD(404.42,.02,1,2,"%D",0)="^^1^1^2960214^^"
^DD(404.42,.02,1,2,"%D",1,0)="This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then by TEAM ASSIGNMENT(#.03).  There are associated cross references for each of these fields."
^DD(404.42,.02,1,2,"DT")="2960214"
^DD(404.42,.02,3)="This is the date the team is assigned to the patient."
^DD(404.42,.02,21,0)="^^1^1^2950630^^^"
^DD(404.42,.02,21,1,0)="This is the date that the patient joins the team's patient panel."
^DD(404.42,.02,"DT")="2960214"
^DD(404.42,.03,0)="TEAM ASSIGNMENT^P404.51'^SCTM(404.51,^0;3^Q"
^DD(404.42,.03,1,0)="^.1"
^DD(404.42,.03,1,1,0)="404.42^ATMPT^MUMPS"
^DD(404.42,.03,1,1,1)="N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,1) I SC2 S ^SCPT(404.42,""ATMPT"",X,SC2,DA)="""""
^DD(404.42,.03,1,1,2)="N SC2 S SC2=$P($G(^SCPT(404.42,DA,0)),U,1) I SC2 K ^SCPT(404.42,""ATMPT"",X,SC2,DA)"
^DD(404.42,.03,1,1,"%D",0)="^^1^1^2950630^"
^DD(404.42,.03,1,1,"%D",1,0)="This sorts by TEAM ASSIGNMENT(#.03), then by PATIENT(#.01).  There is an associated cross reference for the PATIENT Field (#.01)."
^DD(404.42,.03,1,1,"DT")="2950630"
^DD(404.42,.03,1,2,0)="404.42^APTTM1^MUMPS"
^DD(404.42,.03,1,2,1)="N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S ^SCPT(404.42,""APTTM"",SC1,X,DA)="""""
^DD(404.42,.03,1,2,2)="N SC1 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 K ^SCPT(404.42,""APTTM"",SC1,X,DA)"
^DD(404.42,.03,1,2,"%D",0)="^^1^1^2950703^"
^DD(404.42,.03,1,2,"%D",1,0)="This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03).  There is an associated cross reference for the PATIENT Field (#.01)."
^DD(404.42,.03,1,2,"DT")="2950703"
^DD(404.42,.03,1,3,0)="404.42^AIDT1^MUMPS"
^DD(404.42,.03,1,3,1)="N SC1,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCPT(404.42,""AIDT"",SC1,X,-SC3,DA)="""""
^DD(404.42,.03,1,3,2)="N SC1,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCPT(404.42,""AIDT"",SC1,X,-SC3,DA)"
^DD(404.42,.03,1,3,"%D",0)="^^1^1^2950907^"
^DD(404.42,.03,1,3,"%D",1,0)="This sorts by PATIENT(#.01), then by TEAM ASSIGNMENT(#.03), then by -TEAM ASSIGNED DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.42,.03,1,3,"DT")="2950907"
^DD(404.42,.03,1,4,0)="404.42^APCTM3^MUMPS"
^DD(404.42,.03,1,4,1)="N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCPT(404.42,""APCTM"",SC1,SC2,SC3,X,DA)="""""
^DD(404.42,.03,1,4,2)="N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,8) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCPT(404.42,""APCTM"",SC1,SC2,-SC3,X,DA)"
^DD(404.42,.03,1,4,"%D",0)="^^1^1^2960214^^"
^DD(404.42,.03,1,4,"%D",1,0)="This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then by TEAM ASSIGNMENT(#.03).  There are associated cross references for each of these fields."
^DD(404.42,.03,1,4,"DT")="2960214"
^DD(404.42,.03,1,5,0)="404.42^C"
^DD(404.42,.03,1,5,1)="S ^SCPT(404.42,""C"",$E(X,1,30),DA)="""""
^DD(404.42,.03,1,5,2)="K ^SCPT(404.42,""C"",$E(X,1,30),DA)"
^DD(404.42,.03,1,5,"%D",0)="^^1^1^2960502^"
^DD(404.42,.03,1,5,"%D",1,0)="Whole cross-reference, by team."
^DD(404.42,.03,1,5,"DT")="2960502"
^DD(404.42,.03,3)="Name of a team assigned to the patient as of the effective date."
^DD(404.42,.03,21,0)="^^1^1^2950905^^^^"
^DD(404.42,.03,21,1,0)="This is the team assigned to patient as of the effective date."
^DD(404.42,.03,"DT")="3020731"
^DD(404.42,.08,0)="ASSIGNMENT TYPE^S^1:PRIMARY CARE;99:OTHER;^0;8^Q"
^DD(404.42,.08,1,0)="^.1"
^DD(404.42,.08,1,1,0)="404.42^APCTM1^MUMPS"
^DD(404.42,.08,1,1,1)="N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S SC4=$P($G(^(0)),U,3) I SC4 S ^SCPT(404.42,""APCTM"",SC1,X,SC3,SC4,DA)="""""
^DD(404.42,.08,1,1,2)="N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.42,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S SC4=$P($G(^(0)),U,3) I SC4 K ^SCPT(404.42,""APCTM"",SC1,X,SC3,SC4,DA)"
^DD(404.42,.08,1,1,"%D",0)="^^1^1^2960325^^^"
^DD(404.42,.08,1,1,"%D",1,0)="This sorts by PATIENT(#.01), then by ASSIGNMENT TYPE(#.08), then by -TEAM ASSIGNED DATE(#.02), then by TEAM ASSIGNMENT(#.03).  There are associated cross references for each of these fields."
^DD(404.42,.08,1,1,"DT")="2960214"
^DD(404.42,.08,1,2,0)="404.42^AOUTPT^MUMPS"
^DD(404.42,.08,1,2,1)="N SCX S SCX=$$MAKEOUT^SCMCDD1(DA)"
^DD(404.42,.08,1,2,2)="Q"
^DD(404.42,.08,1,2,"%D",0)="^^2^2^2960325^"
^DD(404.42,.08,1,2,"%D",1,0)="This makes an entry in the Outpatient Profile File for every patient"
^DD(404.42,.08,1,2,"%D",2,0)="who ever gets assigned to a primary care team."
^DD(404.42,.08,1,2,"DT")="2960325"
^DD(404.42,.08,3)="The type of care provided by this assignment."
^DD(404.42,.08,21,0)="^^1^1^2950309^^"
^DD(404.42,.08,21,1,0)="This field indicates the type of care provided by this assignment."
^DD(404.42,.08,23,0)="^^3^3^2960522^"
^DD(404.42,.08,23,1,0)="Currently there are only two choices in this set of codes.  If additional"
^DD(404.42,.08,23,2,0)="choices are permited, the GUI forms will have to be updated from a"
^DD(404.42,.08,23,3,0)="check-box to another display method."
^DD(404.42,.08,"DT")="2960325"
^DD(404.42,.09,0)="TEAM DISCHARGE DATE^DX^^0;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X IF $D(X) D:$P(^SCPT(404.42,DA,0),U,2)>X EN^DDIOL(""Discharge must be after Assigned Date"","""",""?5"") K:$P(^SCPT(404.42,DA,0),U,2)>X X"
^DD(404.42,.09,3)="Enter the date/time the team was no longer assigned to the patient."
^DD(404.42,.09,21,0)="^^1^1^2950717^^"
^DD(404.42,.09,21,1,0)="This is the date/time that the team ceased to be assigned to the patient."
^DD(404.42,.09,"DT")="2950717"
^DD(404.42,.1,0)="RESTRICT CONSULTS^S^1:YES;0:NO;^0;10^Q"
^DD(404.42,.1,3)="Are users not allowed to make consult appointments if a patient is not enrolled in a clinic?"
^DD(404.42,.1,21,0)="^^3^3^2950706^^"
^DD(404.42,.1,21,1,0)="This attribute prevents users from making consult appointments to clinics"
^DD(404.42,.1,21,2,0)="in which the patient is not enrolled. This parameter"
^DD(404.42,.1,21,3,0)="overrides the same parameter at the team level."
^DD(404.42,.1,"DT")="2950706"
^DD(404.42,.11,0)="USER ENTERING^P200'^VA(200,^0;11^Q"
^DD(404.42,.11,3)="This is the user who entered the record."
^DD(404.42,.11,21,0)="^^1^1^2950706^"
^DD(404.42,.11,21,1,0)="This is the user who entered this record."
^DD(404.42,.11,"DT")="2950706"
^DD(404.42,.12,0)="DATE/TIME ENTERED^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.42,.12,1,0)="^.1^^0"
^DD(404.42,.12,3)="This is the date/time that the history of teams and practitioner positions was entered."
^DD(404.42,.12,21,0)="^^1^1^2960517^^"
^DD(404.42,.12,21,1,0)="This is the date/time that the history of teams and practitioner positions was entered."
^DD(404.42,.12,"DT")="2960528"
^DD(404.42,.13,0)="LAST EDITED BY^P200'^VA(200,^0;13^Q"
^DD(404.42,.13,3)="This is the user who last edited the record."
^DD(404.42,.13,21,0)="^^1^1^2950706^"
^DD(404.42,.13,21,1,0)="This is the user who last edited the record."
^DD(404.42,.13,"DT")="2950706"
^DD(404.42,.14,0)="DATE/TIME LAST EDITED^D^^0;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.42,.14,1,0)="^.1^^0"
^DD(404.42,.14,3)="This is the date/time the record was last edited."
^DD(404.42,.14,21,0)="^^1^1^2960517^^"
^DD(404.42,.14,21,1,0)="This is the date/time the record was last edited."
^DD(404.42,.14,"DT")="2960528"
^DD(404.42,.15,0)="STATUS^S^DU:DEATH UNASSIGNMENT;IU:INACTIVITY UNASSIGNMENT;DD:REASSIGNED AFTER DATE OF DEATH REMOVED;^0;15^Q"
^DD(404.42,.15,21,0)="^^1^1^3020614^"
^DD(404.42,.15,21,1,0)="If Inactivity causes this patient to be discharged from this assignment"
^DD(404.42,.15,"DT")="3020818"
^DD(404.42,1,0)="PURPOSE^404.421^^1;0"
^DD(404.42,"B","ASSIGNMENT TYPE",.08)=""
^DD(404.42,"B","DATE/TIME ENTERED",.12)=""
^DD(404.42,"B","DATE/TIME LAST EDITED",.14)=""
^DD(404.42,"B","LAST EDITED BY",.13)=""
^DD(404.42,"B","PATIENT",.01)=""
^DD(404.42,"B","PURPOSE",1)=""
^DD(404.42,"B","RESTRICT CONSULTS",.1)=""
^DD(404.42,"B","STATUS",.15)=""
^DD(404.42,"B","TEAM ASSIGNED DATE",.02)=""
^DD(404.42,"B","TEAM ASSIGNMENT",.03)=""
^DD(404.42,"B","TEAM DISCHARGE DATE",.09)=""
^DD(404.42,"B","USER ENTERING",.11)=""
^DD(404.42,"GL",0,1,.01)=""
^DD(404.42,"GL",0,2,.02)=""
^DD(404.42,"GL",0,3,.03)=""
^DD(404.42,"GL",0,8,.08)=""
^DD(404.42,"GL",0,9,.09)=""
^DD(404.42,"GL",0,10,.1)=""
^DD(404.42,"GL",0,11,.11)=""
^DD(404.42,"GL",0,12,.12)=""
^DD(404.42,"GL",0,13,.13)=""
^DD(404.42,"GL",0,14,.14)=""
^DD(404.42,"GL",0,15,.15)=""
^DD(404.42,"GL",1,0,1)=""
^DD(404.42,"IX",.01)=""
^DD(404.42,"IX",.02)=""
^DD(404.42,"IX",.03)=""
^DD(404.42,"IX",.08)=""
^DD(404.42,"RQ",.01)=""
^DD(404.42,"RQ",.02)=""
^DD(404.42,"SB",404.421,1)=""
^DD(404.421,0)="PURPOSE SUB-FIELD^^.01^1"
^DD(404.421,0,"DT")="2950309"
^DD(404.421,0,"NM","PURPOSE")=""
^DD(404.421,0,"UP")="404.42"
^DD(404.421,.01,0)="PURPOSE^W^^0;1^Q"
^DD(404.421,.01,21,0)="^^2^2^2950309^"
^DD(404.421,.01,21,1,0)="This field should contain the purpose of the care this assignment will"
^DD(404.421,.01,21,2,0)="provide."
^DD(404.421,.01,"DT")="2950309"
^DD(404.421,"B","PURPOSE",.01)=""
^DD(404.421,"GL",0,1,.01)=""
^DD(404.43,0)="FIELD^^.17^16"
^DD(404.43,0,"DT")="3040526"
^DD(404.43,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCTM(404.57,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(404.57,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(404.43,0,"IX","ACTDFN1",404.43,.01)=""
^DD(404.43,0,"IX","ACTDFN2",404.43,.03)=""
^DD(404.43,0,"IX","ACTDFN3",404.43,.04)=""
^DD(404.43,0,"IX","ACTPC1",404.43,.01)=""
^DD(404.43,0,"IX","ACTPC2",404.43,.03)=""
^DD(404.43,0,"IX","ACTPC3",404.43,.05)=""
^DD(404.43,0,"IX","ACTPC4",404.43,.04)=""
^DD(404.43,0,"IX","ADFN",404.43,.01)=""
^DD(404.43,0,"IX","ADFN1",404.43,.02)=""
^DD(404.43,0,"IX","ADFN2",404.43,.03)=""
^DD(404.43,0,"IX","AEVENT1",404.43,.01)=""
^DD(404.43,0,"IX","AEVENT2",404.43,.05)=""
^DD(404.43,0,"IX","AEVENT3",404.43,.02)=""
^DD(404.43,0,"IX","AEVENT4",404.43,.03)=""
^DD(404.43,0,"IX","AEVENT5",404.43,.04)=""
^DD(404.43,0,"IX","AEXT",404.43,.13)=""
^DD(404.43,0,"IX","AFLG",404.43,.15)=""
^DD(404.43,0,"IX","APCPOS",404.43,.01)=""
^DD(404.43,0,"IX","APCPOS1",404.43,.05)=""
^DD(404.43,0,"IX","APCPOS2",404.43,.03)=""
^DD(404.43,0,"IX","APCPOS3",404.43,.02)=""
^DD(404.43,0,"IX","APRIMARY",404.43,.01)=""
^DD(404.43,0,"IX","APRIMARY1",404.43,.02)=""
^DD(404.43,0,"IX","APRIMARY2",404.43,.03)=""
^DD(404.43,0,"IX","APTPA",404.43,.02)=""
^DD(404.43,0,"IX","APTPA1",404.43,.01)=""
^DD(404.43,0,"IX","ASTATB",404.43,.12)=""
^DD(404.43,0,"IX","ATEST",404.43,.12)=""
^DD(404.43,0,"IX","B",404.43,.01)=""
^DD(404.43,0,"NM","PATIENT TEAM POSITION ASSIGNMENT")=""
^DD(404.43,0,"PT",404.471,.07)=""
^DD(404.43,0,"PT",404.48,.07)=""
^DD(404.43,0,"VR")="5.3"
^DD(404.43,0,"VRPK")="SD"
^DD(404.43,.01,0)="PATIENT TEAM ASSIGNMENT^RP404.42'^SCPT(404.42,^0;1^Q"
^DD(404.43,.01,1,0)="^.1"
^DD(404.43,.01,1,1,0)="404.43^B"
^DD(404.43,.01,1,1,1)="S ^SCPT(404.43,""B"",$E(X,1,30),DA)="""""
^DD(404.43,.01,1,1,2)="K ^SCPT(404.43,""B"",$E(X,1,30),DA)"
^DD(404.43,.01,1,2,0)="404.43^APRIMARY^MUMPS"
^DD(404.43,.01,1,2,1)="N SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"""" S ^SCPT(404.43,""APRIMARY"",X,SC2,-SC3,DA)="""""
^DD(404.43,.01,1,2,2)="N SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"""" K ^SCPT(404.43,""APRIMARY"",X,SC2,-SC3,DA)"
^DD(404.43,.01,1,2,"%D",0)="^^1^1^2950908^"
^DD(404.43,.01,1,2,"%D",1,0)="This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION ASSIGNED DATE(#.03).  There are associated cross references for each of these fields."
^DD(404.43,.01,1,2,"DT")="2950908"
^DD(404.43,.01,1,3,0)="404.43^APTPA1^MUMPS"
^DD(404.43,.01,1,3,1)="N SC1 S SC1=$P($G(^SCPT(404.43,DA,0)),U,2) I SC1 S ^SCPT(404.43,""APTPA"",SC1,X,DA)="""""
^DD(404.43,.01,1,3,2)="N SC1 S SC1=$P($G(^SCPT(404.43,DA,0)),U,2) I SC1 K ^SCPT(404.43,""APTPA"",SC1,X,DA)"
^DD(404.43,.01,1,3,"%D",0)="^^1^1^2951023^"
^DD(404.43,.01,1,3,"%D",1,0)="This sorts by TEAM POSITION(#.02), then by PATIENT TEAM ASSIGNMENT(#.01).  There is an associated cross reference for the TEAM POSITION Field (#.02)."
^DD(404.43,.01,1,3,"DT")="2951023"
^DD(404.43,.01,1,4,0)="404.43^ADFN^MUMPS"
^DD(404.43,.01,1,4,1)="N SCDFN,SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,""ADFN"",SCDFN,SC2,SC3,DA)="""""
^DD(404.43,.01,1,4,2)="N SCDFN,SC2,SC3 S SC2=$P($G(^SCPT(404.43,DA,0)),U,2) I SC2 S SC3=$P($G(^(0)),U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,""ADFN"",SCDFN,SC2,SC3,DA)"
^DD(404.43,.01,1,4,"%D",0)="^^1^1^2960319^^^^"
^DD(404.43,.01,1,4,"%D",1,0)="This sorts by PATIENT File ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED DATE(#.03).  There are associated cross references for each of these fields."
^DD(404.43,.01,1,4,"DT")="2960319"
^DD(404.43,.01,1,5,0)="404.43^APCPOS^MUMPS"
^DD(404.43,.01,1,5,1)="N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.43,DA,0)),U,5) I SC2]"""" S SC3=$P($G(^(0)),U,3) I SC3]"""" S SC4=$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(X,SC2,SC3,SC4,DA)"
^DD(404.43,.01,1,5,2)="N SC2,SC3,SC4 S SC2=$P($G(^SCPT(404.43,DA,0)),U,5) I SC2]"""" S SC3=$P($G(^(0)),U,3) I SC3]"""" S SC4=$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(X,SC2,SC3,SC4,DA)"
^DD(404.43,.01,1,5,"%D",0)="^^1^1^2960214^^^^"
^DD(404.43,.01,1,5,"%D",1,0)="This sorts by PATIENT (via Patient Team Assignement), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by TEAM POSITION(#.02).  There are associated cross references for each of these fields."
^DD(404.43,.01,1,5,"DT")="2960214"
^DD(404.43,.01,1,6,0)="404.43^AEVENT1^MUMPS"
^DD(404.43,.01,1,6,1)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.01,1,6,2)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.01,1,6,"%D",0)="^^1^1^2990507^"
^DD(404.43,.01,1,6,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.43,.01,1,6,"DT")="2990507"
^DD(404.43,.01,1,7,0)="404.43^ACTDFN1^MUMPS"
^DD(404.43,.01,1,7,1)="N ND,SCDFN,SC3,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"""" S SC4=$P(ND,U,4) I SC4']"""" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,""ACTDFN"",SCDFN,DA)="""""
^DD(404.43,.01,1,7,2)="N ND,SCDFN,SC3,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"""" S SC4=$P(ND,U,4) I SC4']"""" S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,""ACTDFN"",SCDFN,DA)"
^DD(404.43,.01,1,7,"%D",0)="^^2^2^2990726^^"
^DD(404.43,.01,1,7,"%D",1,0)="This sorts currently active entries by PATIENT file ien (DFN)."
^DD(404.43,.01,1,7,"%D",2,0)="There are associated xrefs for fields .03 and .04."
^DD(404.43,.01,1,7,"DT")="2990723"
^DD(404.43,.01,1,8,0)="404.43^ACTPC1^MUMPS"
^DD(404.43,.01,1,8,1)="N ND,SCDFN,SC3,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"""" S SC4=$P(ND,U,4) I SC4']"""" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN S ^SCPT(404.43,""ACTPC"",SCDFN,SC5,DA)="""""
^DD(404.43,.01,1,8,2)="N ND,SCDFN,SC3,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC3=$P(ND,U,3) I SC3]"""" S SC4=$P(ND,U,4) I SC4']"""" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,X,0)),U,1) I SCDFN K ^SCPT(404.43,""ACTPC"",SCDFN,SC5,DA)"
^DD(404.43,.01,1,8,"%D",0)="^^3^3^2990723^"
^DD(404.43,.01,1,8,"%D",1,0)="This sorts currently active entries by PATIENT file ien (DFN),"
^DD(404.43,.01,1,8,"%D",2,0)="then by PC ROLE(#.05). There are associated xrefs for fields"
^DD(404.43,.01,1,8,"%D",3,0)=".03, .04 and .05."
^DD(404.43,.01,1,8,"DT")="2990723"
^DD(404.43,.01,3)="This is an entry in the team position assignment file."
^DD(404.43,.01,21,0)="^^1^1^2950508^^"
^DD(404.43,.01,21,1,0)="This is an entry in the team position assignment file."
^DD(404.43,.01,"DT")="3021007"
^DD(404.43,.02,0)="TEAM POSITION^RP404.57'X^SCTM(404.57,^0;2^S DIC(""S"")=""I $$OKTP^SCMCTPU(DA,Y)"""
^DD(404.43,.02,1,0)="^.1"
^DD(404.43,.02,1,1,0)="404.43^APRIMARY1^MUMPS"
^DD(404.43,.02,1,1,1)="N SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"""" S ^SCPT(404.43,""APRIMARY"",SC1,X,-SC3,DA)="""""
^DD(404.43,.02,1,1,2)="N SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"""" K ^SCPT(404.43,""APRIMARY"",SC1,X,-SC3,DA)"
^DD(404.43,.02,1,1,"%D",0)="^^1^1^2950908^"
^DD(404.43,.02,1,1,"%D",1,0)="This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION ASSIGNED DATE(#.03).  There are associated cross references for each of these fields."
^DD(404.43,.02,1,1,"DT")="2950908"
^DD(404.43,.02,1,2,0)="404.43^APTPA^MUMPS"
^DD(404.43,.02,1,2,1)="N SC2 S SC2=$P($G(^SCPT(404.43,DA,0)),U,1) I SC2 S ^SCPT(404.43,""APTPA"",X,SC2,DA)="""""
^DD(404.43,.02,1,2,2)="N SC2 S SC2=$P($G(^SCPT(404.43,DA,0)),U,1) I SC2 K ^SCPT(404.43,""APTPA"",X,SC2,DA)"
^DD(404.43,.02,1,2,"%D",0)="^^1^1^2951023^"
^DD(404.43,.02,1,2,"%D",1,0)="This sorts by TEAM POSITION(#.02), then by PATIENT TEAM ASSIGNMENT(#.01).  There is an associated cross reference for the PATIENT TEAM ASSIGNMENT Field (#.01)."
^DD(404.43,.02,1,2,"DT")="2951023"
^DD(404.43,.02,1,3,0)="404.43^ADFN1^MUMPS"
^DD(404.43,.02,1,3,1)="N SCDFN,SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,""ADFN"",SCDFN,X,SC3,DA)="""""
^DD(404.43,.02,1,3,2)="N SCDFN,SC1,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,""ADFN"",SCDFN,X,SC3,DA)"
^DD(404.43,.02,1,3,"%D",0)="^^1^1^2960319^^^"
^DD(404.43,.02,1,3,"%D",1,0)="This sorts by PATIENT file ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED DATE(#.03).  There are associated cross references for each of these fields."
^DD(404.43,.02,1,3,"DT")="2960319"
^DD(404.43,.02,1,4,0)="404.43^APCPOS3^MUMPS"
^DD(404.43,.02,1,4,1)="N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"""" S SC3=$P($G(^(0)),U,3) I SC3]"""" D SETPC^SCMCDD1(SC1,SC2,SC3,X,DA)"
^DD(404.43,.02,1,4,2)="N SC1,SC2,SC3 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"""" S SC3=$P($G(^(0)),U,3) I SC3]"""" D KILLPC^SCMCDD1(SC1,SC2,SC3,X,DA)"
^DD(404.43,.02,1,4,"%D",0)="^^2^2^2960214^^^^"
^DD(404.43,.02,1,4,"%D",1,0)="This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by"
^DD(404.43,.02,1,4,"%D",2,0)=" TEAM POSITION(#.02).  There are associated cross references for each of these fields."
^DD(404.43,.02,1,4,"DT")="2960214"
^DD(404.43,.02,1,5,0)="404.43^AEVENT3^MUMPS"
^DD(404.43,.02,1,5,1)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.02,1,5,2)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.02,1,5,"%D",0)="^^1^1^2990507^"
^DD(404.43,.02,1,5,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.43,.02,1,5,"DT")="2990507"
^DD(404.43,.02,3)="Enter the position associated with the patient."
^DD(404.43,.02,12)="used to assure position is from team"
^DD(404.43,.02,12.1)="S DIC(""S"")=""I $$OKTP^SCMCTPU(DA,Y)"""
^DD(404.43,.02,21,0)="^^1^1^2960215^^^^"
^DD(404.43,.02,21,1,0)="This is the position associated with the patient."
^DD(404.43,.02,23,0)="^^1^1^2960215^^^^"
^DD(404.43,.02,23,1,0)="Position must be from parent team - see screen."
^DD(404.43,.02,"DT")="3020731"
^DD(404.43,.03,0)="POSITION ASSIGNED DATE^RDX^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,+$G(DA),0)) K:'$$OKACTTP^SCMCTPU(SCNODE,SC1) X"
^DD(404.43,.03,1,0)="^.1"
^DD(404.43,.03,1,1,0)="404.43^APRIMARY2^MUMPS"
^DD(404.43,.03,1,1,1)="N SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S ^SCPT(404.43,""APRIMARY"",SC1,SC2,-X,DA)="""""
^DD(404.43,.03,1,1,2)="N SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 K ^SCPT(404.43,""APRIMARY"",SC1,SC2,-X,DA)"
^DD(404.43,.03,1,1,"%D",0)="^^1^1^2950908^"
^DD(404.43,.03,1,1,"%D",1,0)="This sorts by PATIENT TEAM ASSIGNMENT(#.01), then by TEAM POSITION(#.02), then by -POSITION ASSIGNED DATE(#.03).  There are associated cross references for each of these fields."
^DD(404.43,.03,1,1,"DT")="2950908"
^DD(404.43,.03,1,2,0)="404.43^ADFN2^MUMPS"
^DD(404.43,.03,1,2,1)="N SCDFN,SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,""ADFN"",SCDFN,SC2,X,DA)="""""
^DD(404.43,.03,1,2,2)="N SCDFN,SC1,SC2 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,2) I SC2 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,""ADFN"",SCDFN,SC2,X,DA)"
^DD(404.43,.03,1,2,"%D",0)="^^1^1^2960319^^"
^DD(404.43,.03,1,2,"%D",1,0)="This sorts by PATIENT file ien (DFN), then by TEAM POSITION(#.02), then by POSITION ASSIGNED DATE(#.03).  There are associated cross references for each of these fields."
^DD(404.43,.03,1,2,"DT")="2960319"
^DD(404.43,.03,1,3,0)="404.43^APCPOS2^MUMPS"
^DD(404.43,.03,1,3,1)="N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"""" S SC4=$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(SC1,SC2,X,SC4,DA)"
^DD(404.43,.03,1,3,2)="N SC1,SC2,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,5) I SC2]"""" S SC4=$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(SC1,SC2,X,SC4,DA)"
^DD(404.43,.03,1,3,"%D",0)="^^1^1^2960214^^^^"
^DD(404.43,.03,1,3,"%D",1,0)="This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by TEAM POSITION(#.02).  There are associated cross references for each of these fields."
^DD(404.43,.03,1,3,"DT")="2960214"
^DD(404.43,.03,1,4,0)="404.43^AEVENT4^MUMPS"
^DD(404.43,.03,1,4,1)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.03,1,4,2)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.03,1,4,"%D",0)="^^1^1^2990507^"
^DD(404.43,.03,1,4,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.43,.03,1,4,"DT")="2990507"
^DD(404.43,.03,1,5,0)="404.43^ACTDFN2^MUMPS"
^DD(404.43,.03,1,5,1)="N ND,SCDFN,SC1,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"""" S SC1=$P(ND,U,1) I SC1 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,""ACTDFN"",SCDFN,DA)="""""
^DD(404.43,.03,1,5,2)="N ND,SCDFN,SC1,SC4 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"""" S SC1=$P(ND,U,1) I SC1 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,""ACTDFN"",SCDFN,DA)"
^DD(404.43,.03,1,5,"%D",0)="^^2^2^2990723^"
^DD(404.43,.03,1,5,"%D",1,0)="This sorts currently active entries by PATIENT file ien (DFN)."
^DD(404.43,.03,1,5,"%D",2,0)="There are associated xrefs for fields .01 and .04."
^DD(404.43,.03,1,5,"DT")="2990723"
^DD(404.43,.03,1,6,0)="404.43^ACTPC2^MUMPS"
^DD(404.43,.03,1,6,1)="N ND,SCDFN,SC1,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"""" S SC1=$P(ND,U,1) I SC1 S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,""ACTPC"",SCDFN,SC5,DA)="""""
^DD(404.43,.03,1,6,2)="N ND,SCDFN,SC1,SC4,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"""" S SC1=$P(ND,U,1) I SC1 S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,""ACTPC"",SCDFN,SC5,DA)"
^DD(404.43,.03,1,6,"%D",0)="^^3^3^2990723^"
^DD(404.43,.03,1,6,"%D",1,0)="This sorts currently active entries by PATIENT file ien (DFN),"
^DD(404.43,.03,1,6,"%D",2,0)="then by PC ROLE(#.05). There are associated xrefs for fields"
^DD(404.43,.03,1,6,"%D",3,0)=".01, .04 and .05."
^DD(404.43,.03,1,6,"DT")="2990723"
^DD(404.43,.03,3)="S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,D0,0)) K:'$$OKACTTP^SCMCTPU(SCNODE,SC1) X"
^DD(404.43,.03,21,0)="^^1^1^2960517^^^^"
^DD(404.43,.03,21,1,0)="This is the date that the team position was assigned to the patient."
^DD(404.43,.03,"DT")="2990723"
^DD(404.43,.04,0)="POSITION UNASSIGNED DATE^DX^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X N SC1,SCNODE S SC1=$G(X),SCNODE=$G(^SCPT(404.43,DA,0)) K:'$$OKINTP^SCMCTPU(SCNODE,SC1) X"
^DD(404.43,.04,1,0)="^.1"
^DD(404.43,.04,1,1,0)="404.43^AEVENT5^MUMPS"
^DD(404.43,.04,1,1,1)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.04,1,1,2)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.04,1,1,"%D",0)="^^1^1^2990507^"
^DD(404.43,.04,1,1,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.43,.04,1,1,"DT")="2990507"
^DD(404.43,.04,1,2,0)="404.43^ACTDFN3^MUMPS"
^DD(404.43,.04,1,2,1)="N ND,SCDFN,SC1,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,""ACTDFN"",SCDFN,DA)"
^DD(404.43,.04,1,2,2)="N ND,SCDFN,SC1,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,""ACTDFN"",SCDFN,DA)="""""
^DD(404.43,.04,1,2,"%D",0)="^^2^2^2990723^^"
^DD(404.43,.04,1,2,"%D",1,0)="This sorts currently active entries by PATIENT file ien (DFN)."
^DD(404.43,.04,1,2,"%D",2,0)="There are associated xrefs for fields .01 and .03."
^DD(404.43,.04,1,2,"DT")="2990723"
^DD(404.43,.04,1,3,0)="404.43^ACTPC4^MUMPS"
^DD(404.43,.04,1,3,1)="N ND,SCDFN,SC1,SC3,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"""" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,""ACTPC"",SCDFN,SC5,DA)"
^DD(404.43,.04,1,3,2)="N ND,SCDFN,SC1,SC3,SC5 S ND=$G(^SCPT(404.43,DA,0)),SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"""" S SC5=$P(ND,U,5) I SC5 S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,""ACTPC"",SCDFN,SC5,DA)="""""
^DD(404.43,.04,1,3,"%D",0)="^^3^3^2990723^"
^DD(404.43,.04,1,3,"%D",1,0)="This sorts currently active entries by PATIENT file ien (DFN),"
^DD(404.43,.04,1,3,"%D",2,0)="then by PC ROLE(#.05). There are associated xrefs for fields"
^DD(404.43,.04,1,3,"%D",3,0)=".01, .03 and .05."
^DD(404.43,.04,1,3,"DT")="2990723"
^DD(404.43,.04,3)="This is the date that the position is no longer associated with the patient."
^DD(404.43,.04,21,0)="^^1^1^2950717^"
^DD(404.43,.04,21,1,0)="This is the date/time that the position is no longer associated with the patient."
^DD(404.43,.04,"DT")="2990723"
^DD(404.43,.05,0)="PC ROLE^SX^0:NON PC ASSIGNMENT;1:PC ASSIGNMENT;2:PC ATTENDING;^0;5^N SC1 S SC1=$$OKROLE^SCMCTPU(DA,X) K:'SC1 X"
^DD(404.43,.05,1,0)="^.1"
^DD(404.43,.05,1,1,0)="404.43^APCPOS1^MUMPS"
^DD(404.43,.05,1,1,1)="N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"""" S SC4=$P($G(^(0)),U,2) I SC4 D SETPC^SCMCDD1(SC1,X,SC3,SC4,DA)"
^DD(404.43,.05,1,1,2)="N SC1,SC3,SC4 S SC1=$P($G(^SCPT(404.43,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,3) I SC3]"""" S SC4=$P($G(^(0)),U,2) I SC4 D KILLPC^SCMCDD1(SC1,X,SC3,SC4,DA)"
^DD(404.43,.05,1,1,"%D",0)="^^1^1^2960214^^^^"
^DD(404.43,.05,1,1,"%D",1,0)="This sorts by Patient (via PATIENT TEAM ASSIGNMENT(#.01)), then by PC ROLE(#.05), then by -POSITION ASSIGNED DATE(#.03), then by TEAM POSITION(#.02).  There are associated cross references for each of these fields."
^DD(404.43,.05,1,1,"DT")="2960214"
^DD(404.43,.05,1,2,0)="404.43^AEVENT2^MUMPS"
^DD(404.43,.05,1,2,1)="D PTPXREF^SCMCHLX(DA)"
^DD(404.43,.05,1,2,2)="D PTPXREF^SCMCHLX(DA,X)"
^DD(404.43,.05,1,2,"%D",0)="^^1^1^2990507^"
^DD(404.43,.05,1,2,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.43,.05,1,2,"DT")="2990507"
^DD(404.43,.05,1,3,0)="404.43^ACTPC3^MUMPS"
^DD(404.43,.05,1,3,1)="N ND,SCDFN,SC1,SC4,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"""" S SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN S ^SCPT(404.43,""ACTPC"",SCDFN,X,DA)="""""
^DD(404.43,.05,1,3,2)="N ND,SCDFN,SC1,SC4,SC3 S ND=$G(^SCPT(404.43,DA,0)),SC4=$P(ND,U,4) I SC4']"""" S SC1=$P(ND,U,1) I SC1 S SC3=$P(ND,U,3) I SC3]"""" S SCDFN=$P($G(^SCPT(404.42,SC1,0)),U,1) I SCDFN K ^SCPT(404.43,""ACTPC"",SCDFN,X,DA)"
^DD(404.43,.05,1,3,"%D",0)="^^3^3^2990723^"
^DD(404.43,.05,1,3,"%D",1,0)="This sorts currently active entries by PATIENT file ien (DFN),"
^DD(404.43,.05,1,3,"%D",2,0)="then by PC ROLE(#.05). There are associated xrefs for fields"
^DD(404.43,.05,1,3,"%D",3,0)=".01, .03 and .04."
^DD(404.43,.05,1,3,"DT")="2990723"
^DD(404.43,.05,3)="PC Assignments are only allowed if Patient Team Assignment is for Primary Care"
^DD(404.43,.05,21,0)="^^2^2^2990802^^^^"
^DD(404.43,.05,21,1,0)="This is used to indicate if patient - team position assigment is a "
^DD(404.43,.05,21,2,0)="special one (e.g. primary care practitioner or primary care attending)."
^DD(404.43,.05,23,0)="^^1^1^2990802^^^^"
^DD(404.43,.05,23,1,0)="This is only allowable if the team assignment is a pc team assignment."
^DD(404.43,.05,"DT")="2990802"
^DD(404.43,.06,0)="USER ENTERING^P200'^VA(200,^0;6^Q"
^DD(404.43,.06,3)="The user who initially created the record"
^DD(404.43,.06,21,0)="^^1^1^2960312^"
^DD(404.43,.06,21,1,0)="This is the user who initially created the record."
^DD(404.43,.06,"DT")="2960312"
^DD(404.43,.07,0)="DATE/TIME ENTERED^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.43,.07,3)="This is the date/time that the history of the position was entered."
^DD(404.43,.07,21,0)="^^1^1^2960312^"
^DD(404.43,.07,21,1,0)="This is the date/time that the history of the position was entered."
^DD(404.43,.07,"DT")="2960312"
^DD(404.43,.08,0)="LAST EDITED BY^P200'^VA(200,^0;8^Q"
^DD(404.43,.08,3)="This is the user who last edited the record."
^DD(404.43,.08,21,0)="^^1^1^2960312^"
^DD(404.43,.08,21,1,0)="This is the user who last edited the record."
^DD(404.43,.08,"DT")="2960312"
^DD(404.43,.09,0)="DATE/TIME LAST EDITED^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.43,.09,3)="This is the date/time the record was last edited."
^DD(404.43,.09,21,0)="^^1^1^2960312^"
^DD(404.43,.09,21,1,0)="This is the date/time the record was last edited."
^DD(404.43,.09,"DT")="2960312"
^DD(404.43,.12,0)="STATUS^S^DU:DEATH INACTIVATION;NA:NO APPT INACTIVATION;DD:REASIGNED AFTER DATE OF DEATH REMOVED;^0;12^Q"
^DD(404.43,.12,1,0)="^.1^^-1"
^DD(404.43,.12,1,2,0)="404.43^ASTATB"
^DD(404.43,.12,1,2,1)="S ^SCPT(404.43,""ASTATB"",$E(X,1,30),DA)="""""
^DD(404.43,.12,1,2,2)="K ^SCPT(404.43,""ASTATB"",$E(X,1,30),DA)"
^DD(404.43,.12,1,2,"%D",0)="^^1^1^2981120^"
^DD(404.43,.12,1,2,"%D",1,0)="Sort by Status"
^DD(404.43,.12,1,2,"DT")="2981120"
^DD(404.43,.12,21,0)="^^3^3^3040406^"
^DD(404.43,.12,21,1,0)="Status of this assignment if action on this assignment was made  either"
^DD(404.43,.12,21,2,0)="by entering Date of Death, removing Date of Death, or because position was"
^DD(404.43,.12,21,3,0)="inactivated by patient inactivity."
^DD(404.43,.12,"DT")="3040526"
^DD(404.43,.13,0)="EXTEND AUTOMATIC INACTIVATION^S^0:DO NOT EXTEND;1:PATIENT HAS FUTURE PC APPOINTMENT;2:PROVIDER REQUEST-WILL CONTACT PATIENT;3:PATIENT CONTACTED SITE FOR APPOINTMENT;4:OTHER;^0;13^Q"
^DD(404.43,.13,1,0)="^.1"
^DD(404.43,.13,1,1,0)="404.43^AEXT"
^DD(404.43,.13,1,1,1)="S ^SCPT(404.43,""AEXT"",$E(X,1,30),DA)="""""
^DD(404.43,.13,1,1,2)="K ^SCPT(404.43,""AEXT"",$E(X,1,30),DA)"
^DD(404.43,.13,1,1,"%D",0)="^.101^1^1^3040405^^"
^DD(404.43,.13,1,1,"%D",1,0)="Extended from automatic inactivation"
^DD(404.43,.13,1,1,"DT")="3040119"
^DD(404.43,.13,3)="Enter if you wish to extend this automatic inactivation date by 60 days"
^DD(404.43,.13,21,0)="^^2^2^3040406^"
^DD(404.43,.13,21,1,0)="This is entered in PCMM GUI and is the reason for extending this assignments "
^DD(404.43,.13,21,2,0)="inactivation. If 'Other' is entered a comment is required."
^DD(404.43,.13,"DT")="3040119"
^DD(404.43,.14,0)="EXTENSION COMMENT^F^^0;14^K:$L(X)>50!($L(X)<2) X"
^DD(404.43,.14,3)="Answer must be 2-50 characters in length."
^DD(404.43,.14,21,0)="^.001^2^2^3040406^^^"
^DD(404.43,.14,21,1,0)="If extended for 'OTHER' then this is the free text reason."
^DD(404.43,.14,21,2,0)="This is entered in the PCMM GUI"
^DD(404.43,.14,"DT")="3031009"
^DD(404.43,.15,0)="DATE FLAGGED FOR INACTIVATION^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.43,.15,1,0)="^.1"
^DD(404.43,.15,1,1,0)="404.43^AFLG"
^DD(404.43,.15,1,1,1)="S ^SCPT(404.43,""AFLG"",$E(X,1,30),DA)="""""
^DD(404.43,.15,1,1,2)="K ^SCPT(404.43,""AFLG"",$E(X,1,30),DA)"
^DD(404.43,.15,1,1,"%D",0)="^^1^1^3031015^"
^DD(404.43,.15,1,1,"%D",1,0)="Date record flagged for inactivation. Used to inactivate record 60 days later"
^DD(404.43,.15,1,1,"DT")="3031015"
^DD(404.43,.15,21,0)="^.001^1^1^3040310^^"
^DD(404.43,.15,21,1,0)="Date background job flagged the record for inactivation due to inactivity."
^DD(404.43,.15,"DT")="3040310"
^DD(404.43,.159,0)="SCHEDULED INACTIVATION DATE^CD^^ ; ^D INACTDT^SCMCTSK1(D0)"
^DD(404.43,.159,9)="^"
^DD(404.43,.159,9.01)=""
^DD(404.43,.159,9.1)="D INACTDT^SCMCTSK1(D0)"
^DD(404.43,.159,21,0)="^^1^1^3040405^"
^DD(404.43,.159,21,1,0)="Date this patient is scheduled to be inactivated if not seen by that time."
^DD(404.43,.159,"DT")="3040315"
^DD(404.43,.16,0)="EXTENDED BY^P200'^VA(200,^0;16^Q"
^DD(404.43,.16,3)="Person who filed extension of inactivation"
^DD(404.43,.16,21,0)="^.001^1^1^3040405^^"
^DD(404.43,.16,21,1,0)="Automatically filed with extension"
^DD(404.43,.16,"DT")="3031028"
^DD(404.43,.17,0)="DATE DISINACTIVATED^D^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.43,.17,21,0)="^^1^1^3040210^"
^DD(404.43,.17,21,1,0)="Date reassigned after being automatically inactivated"
^DD(404.43,.17,"DT")="3040210"
^DD(404.43,"B","DATE DISINACTIVATED",.17)=""
^DD(404.43,"B","DATE FLAGGED FOR INACTIVATION",.15)=""
^DD(404.43,"B","DATE/TIME ENTERED",.07)=""
^DD(404.43,"B","DATE/TIME LAST EDITED",.09)=""
^DD(404.43,"B","EXTEND AUTOMATIC INACTIVATION",.13)=""
^DD(404.43,"B","EXTENDED BY",.16)=""
^DD(404.43,"B","EXTENSION COMMENT",.14)=""
^DD(404.43,"B","LAST EDITED BY",.08)=""
^DD(404.43,"B","PATIENT TEAM ASSIGNMENT",.01)=""
^DD(404.43,"B","PC ROLE",.05)=""
^DD(404.43,"B","POSITION ASSIGNED DATE",.03)=""
^DD(404.43,"B","POSITION UNASSIGNED DATE",.04)=""
^DD(404.43,"B","SCHEDULED INACTIVATION DATE",.159)=""
^DD(404.43,"B","STATUS",.12)=""
^DD(404.43,"B","TEAM POSITION",.02)=""
^DD(404.43,"B","USER ENTERING",.06)=""
^DD(404.43,"GL",0,1,.01)=""
^DD(404.43,"GL",0,2,.02)=""
^DD(404.43,"GL",0,3,.03)=""
^DD(404.43,"GL",0,4,.04)=""
^DD(404.43,"GL",0,5,.05)=""
^DD(404.43,"GL",0,6,.06)=""
^DD(404.43,"GL",0,7,.07)=""
^DD(404.43,"GL",0,8,.08)=""
^DD(404.43,"GL",0,9,.09)=""
^DD(404.43,"GL",0,12,.12)=""
^DD(404.43,"GL",0,13,.13)=""
^DD(404.43,"GL",0,14,.14)=""
^DD(404.43,"GL",0,15,.15)=""
^DD(404.43,"GL",0,16,.16)=""
^DD(404.43,"GL",0,17,.17)=""
^DD(404.43,"IX",.01)=""
^DD(404.43,"IX",.02)=""
^DD(404.43,"IX",.03)=""
^DD(404.43,"IX",.04)=""
^DD(404.43,"IX",.05)=""
^DD(404.43,"IX",.12)=""
^DD(404.43,"IX",.13)=""
^DD(404.43,"IX",.15)=""
^DD(404.43,"RQ",.01)=""
^DD(404.43,"RQ",.02)=""
^DD(404.43,"RQ",.03)=""
^DD(404.44,0)="FIELD^^21^11"
^DD(404.44,0,"DDA")="N"
^DD(404.44,0,"DT")="3060724"
^DD(404.44,0,"IX","AC",404.44,19)=""
^DD(404.44,0,"IX","B",404.44,.01)=""
^DD(404.44,0,"NM","PCMM PARAMETER")=""
^DD(404.44,0,"VR")="5.3"
^DD(404.44,0,"VRPK")="SD"
^DD(404.44,.01,0)="NUMBER^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.44,.01,1,0)="^.1"
^DD(404.44,.01,1,1,0)="404.44^B"
^DD(404.44,.01,1,1,1)="S ^SCTM(404.44,""B"",$E(X,1,30),DA)="""""
^DD(404.44,.01,1,1,2)="K ^SCTM(404.44,""B"",$E(X,1,30),DA)"
^DD(404.44,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(404.44,.01,8)=""
^DD(404.44,.01,21,0)="^^3^3^2990817^^"
^DD(404.44,.01,21,1,0)="This is a bogus field.  There should only be one entry for this"
^DD(404.44,.01,21,2,0)="file.  The IEN of this entry must be 1 at this time.  If other entries are"
^DD(404.44,.01,21,3,0)="added and the code not adjusted PCMM will not function properly."
^DD(404.44,.01,"DT")="2990817"
^DD(404.44,12,0)="DISABLE ALL CLIENTS^S^1:YES;0:NO;^1;2^Q"
^DD(404.44,12,21,0)="^^2^2^2990817^^"
^DD(404.44,12,21,1,0)="This field is set to yes if one wants to disable all PCMM GUI client"
^DD(404.44,12,21,2,0)="workstations. A null value will work the same as a zero."
^DD(404.44,12,"DT")="2990817"
^DD(404.44,13,0)="DISABLE CLIENT AUTO-UPDATE^S^1:YES;0:NO;^1;3^Q"
^DD(404.44,13,21,0)="^^2^2^2990823^"
^DD(404.44,13,21,1,0)="This field is used to indicate if client auto updating, registering the client"
^DD(404.44,13,21,2,0)="in 404.46, can happen."
^DD(404.44,13,"DT")="2990823"
^DD(404.44,14,0)="RPC TIME LIMIT^RNJ3,0^^1;4^K:+X'=X!(X>300)!(X<30)!(X?.E1"".""1N.N) X"
^DD(404.44,14,3)="Type a Number between 30 and 300, 0 Decimal Digits"
^DD(404.44,14,21,0)="^^3^3^3000207^"
^DD(404.44,14,21,1,0)="This value represents the maximum number of seconds the client should"
^DD(404.44,14,21,2,0)="wait for a response from the server.  This value should be set as low"
^DD(404.44,14,21,3,0)="as possible consistent with allowing the client to avoid timeout errors."
^DD(404.44,14,23,0)="^^3^3^3000207^^"
^DD(404.44,14,23,1,0)="The value retrieved from this field is returned to the client by the SCMC"
^DD(404.44,14,23,2,0)="VERIFY C/S SYNC remote procedure.  The client then uses this value to"
^DD(404.44,14,23,3,0)="update the run time property RPCTimelimit in all RPCBroker components."
^DD(404.44,14,"DT")="2991206"
^DD(404.44,15,0)="HL7 TRANSMIT LIMIT^NJ6,0^^1;5^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.44,15,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(404.44,15,21,0)="^^5^5^3000207^"
^DD(404.44,15,21,1,0)="This value represents the maximum number of records which will be"
^DD(404.44,15,21,2,0)="transmitted during any given PCMM HL7 transmission session.  The default"
^DD(404.44,15,21,3,0)="value is 999999.  It is recommended this value be left AS IS, unless"
^DD(404.44,15,21,4,0)="the background HL7 messaging volume is adversely affecting system"
^DD(404.44,15,21,5,0)="performance."
^DD(404.44,15,23,0)="^^3^3^3000207^"
^DD(404.44,15,23,1,0)="The value retrieved from this field is used by the "
^DD(404.44,15,23,2,0)="SCMC PCMM HL7 TRANSMIT nightly background option to"
^DD(404.44,15,23,3,0)="regulate the maximum number of records to transmit."
^DD(404.44,15,"DT")="2991206"
^DD(404.44,16,0)="HL7 AUTO RETRANSMIT PERIOD^NJ3,0^^1;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.44,16,3)="Enter a number from 1 to 999."
^DD(404.44,16,21,0)="^^2^2^3000207^"
^DD(404.44,16,21,1,0)="Enter the number of days that an auto retransmit of HL7 messages"
^DD(404.44,16,21,2,0)="should occur if no ACK message is received."
^DD(404.44,16,"DT")="3000203"
^DD(404.44,17,0)="BASELINE RUN DATE^D^^1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.44,17,21,0)="^^2^2^3000323^"
^DD(404.44,17,21,1,0)="  This field contains the date the PCMM Baseline was run."
^DD(404.44,17,21,2,0)="  The Baseline can only run once at a site."
^DD(404.44,17,"DT")="3000323"
^DD(404.44,18,0)="SHORT INTERVAL EXPIRATION DATE^D^^1;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.44,18,3)="Enter date short intervals expire (Debug ONLY)"
^DD(404.44,18,21,0)="^^16^16^3060712^"
^DD(404.44,18,21,1,0)="This field is used for debugging only.  Normally it will hold no value.  "
^DD(404.44,18,21,2,0)="This field should not be populated unless requested by EVS or Field "
^DD(404.44,18,21,3,0)="Office personnel trouble shooting a PCMM issue."
^DD(404.44,18,21,4,0)=" "
^DD(404.44,18,21,5,0)="When a date greater than the current date is entered in this field the "
^DD(404.44,18,21,6,0)="PCMM automated inactivation process will operate in short interval mode "
^DD(404.44,18,21,7,0)="until the current date is greater than the date entered in this field.  "
^DD(404.44,18,21,8,0)="The following PCMM processes are affected while a future date populates "
^DD(404.44,18,21,9,0)="this field:"
^DD(404.44,18,21,10,0)=" "
^DD(404.44,18,21,11,0)="Inactivations occur every two days in lieu the standard mid-month and end "
^DD(404.44,18,21,12,0)="of month."
^DD(404.44,18,21,13,0)=" "
^DD(404.44,18,21,14,0)="PCMM auto inactivation notifications are generated nightly vs. monthly."
^DD(404.44,18,21,15,0)=" "
^DD(404.44,18,21,16,0)="Inactivation grace window is reduced from thirty days to four."
^DD(404.44,18,"DT")="3060712"
^DD(404.44,19,0)="PC STAFF AUTO INACTIVATE DATE^DI^^1;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.44,19,1,0)="^.1"
^DD(404.44,19,1,1,0)="404.44^AC"
^DD(404.44,19,1,1,1)="S ^SCTM(404.44,""AC"",$E(X,1,30),DA)="""""
^DD(404.44,19,1,1,2)="K ^SCTM(404.44,""AC"",$E(X,1,30),DA)"
^DD(404.44,19,1,1,"DT")="3040323"
^DD(404.44,19,3)="Cannot be edited"
^DD(404.44,19,21,0)="^.001^7^7^3040324^^^^"
^DD(404.44,19,21,1,0)="Date Primary Care providers (PCPs and APs) and "
^DD(404.44,19,21,2,0)="staff with inconsistent Person Class  and Standard Role"
^DD(404.44,19,21,3,0)=" entries will be inactivated due to Primary Care business rules.  Only "
^DD(404.44,19,21,4,0)="physicians, NPs and PAs"
^DD(404.44,19,21,5,0)="can be Primary Care Providers (PCP.)  Only Resident or Intern (Physicians,) NPs, and "
^DD(404.44,19,21,6,0)="PAs can be Associate Providers (AP.)"
^DD(404.44,19,21,7,0)="This date is 6 Months after installation of patch SD*5.3*297."
^DD(404.44,19,23,0)="^.001^1^1^3040324^^^"
^DD(404.44,19,23,1,0)="Cannot be edited. Is deleted after used to inactivate providers"
^DD(404.44,19,"DT")="3040323"
^DD(404.44,20,0)="TEAM AUTO INACTIVATE^S^0:NO;1:YES;^1;10^Q"
^DD(404.44,20,21,0)="^^9^9^3060712^"
^DD(404.44,20,21,1,0)="If this field is set to YES, then when a patient is inactivated from "
^DD(404.44,20,21,2,0)="their primary care provider assignment by the nightly job they will also"
^DD(404.44,20,21,3,0)="be inactivated from the same TEAM and all other positions on that TEAM."
^DD(404.44,20,21,4,0)=" "
^DD(404.44,20,21,5,0)="If this field is set to NO, then when a patient is inactivated from their "
^DD(404.44,20,21,6,0)="primary care panel by the nightly job only thier primary care provider "
^DD(404.44,20,21,7,0)="assignment will be inactivated."
^DD(404.44,20,21,8,0)=" "
^DD(404.44,20,21,9,0)="The default value is YES."
^DD(404.44,20,"DT")="3060215"
^DD(404.44,21,0)="PC STAFF INACTIVATION RUN DATE^D^^1;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.44,21,3)="DATE THAT PC STAFF WERE INACTIVATED BY THE NIGHTLY JOB"
^DD(404.44,21,21,0)="^^10^10^3060724^"
^DD(404.44,21,21,1,0)="This field records the date Primary Care providers are inactivated by the "
^DD(404.44,21,21,2,0)="PCMM nightly job process."
^DD(404.44,21,21,3,0)=" "
^DD(404.44,21,21,4,0)="Six months after the installation of patch SD*5.3*297 all primary care "
^DD(404.44,21,21,5,0)="providers identified as having an incorrect person class assignment will "
^DD(404.44,21,21,6,0)="be inactivated.  This is a one time, clean-up event for PCMM Primary Care "
^DD(404.44,21,21,7,0)="Providers."
^DD(404.44,21,21,8,0)=" "
^DD(404.44,21,21,9,0)="This field is populated by a background process and should be manipulated "
^DD(404.44,21,21,10,0)="through FileMan."
^DD(404.44,21,"DT")="3060724"
^DD(404.44,"B","BASELINE RUN DATE",17)=""
^DD(404.44,"B","DISABLE ALL CLIENTS",12)=""
^DD(404.44,"B","DISABLE CLIENT AUTO-UPDATE",13)=""
^DD(404.44,"B","HL7 AUTO RETRANSMIT PERIOD",16)=""
^DD(404.44,"B","HL7 TRANSMIT LIMIT",15)=""
^DD(404.44,"B","NUMBER",.01)=""
^DD(404.44,"B","PC STAFF AUTO INACTIVATE DATE",19)=""
^DD(404.44,"B","PC STAFF INACTIVATION RUN DATE",21)=""
^DD(404.44,"B","RPC TIME LIMIT",14)=""
^DD(404.44,"B","SHORT INTERVAL EXPIRATION DATE",18)=""
^DD(404.44,"B","TEAM AUTO INACTIVATE",20)=""
^DD(404.44,"GL",0,1,.01)=""
^DD(404.44,"GL",1,2,12)=""
^DD(404.44,"GL",1,3,13)=""
^DD(404.44,"GL",1,4,14)=""
^DD(404.44,"GL",1,5,15)=""
^DD(404.44,"GL",1,6,16)=""
^DD(404.44,"GL",1,7,17)=""
^DD(404.44,"GL",1,8,18)=""
^DD(404.44,"GL",1,9,19)=""
^DD(404.44,"GL",1,10,20)=""
^DD(404.44,"GL",1,11,21)=""
^DD(404.44,"IX",.01)=""
^DD(404.44,"IX",19)=""
^DD(404.44,"RQ",.01)=""
^DD(404.44,"RQ",14)=""
^DD(404.45,0)="FIELD^^.04^4"
^DD(404.45,0,"DDA")="N"
^DD(404.45,0,"DT")="2990818"
^DD(404.45,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCTM(404.46,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(404.46,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(404.45,0,"IX","AC",404.45,.02)=""
^DD(404.45,0,"IX","ACT",404.45,.04)=""
^DD(404.45,0,"IX","ACT1",404.45,.01)=""
^DD(404.45,0,"IX","ASER",404.45,.01)=""
^DD(404.45,0,"IX","ASER1",404.45,.02)=""
^DD(404.45,0,"IX","B",404.45,.01)=""
^DD(404.45,0,"NM","PCMM SERVER PATCH")=""
^DD(404.45,0,"VR")="5.3"
^DD(404.45,0,"VRPK")="SD"
^DD(404.45,.01,0)="SERVER PATCH NUMBER^RF^^0;1^K:$L(X)>35!($L(X)<1)!'(X'?1P.E) X"
^DD(404.45,.01,1,0)="^.1"
^DD(404.45,.01,1,1,0)="404.45^B"
^DD(404.45,.01,1,1,1)="S ^SCTM(404.45,""B"",$E(X,1,30),DA)="""""
^DD(404.45,.01,1,1,2)="K ^SCTM(404.45,""B"",$E(X,1,30),DA)"
^DD(404.45,.01,1,2,0)="404.45^ASER^MUMPS"
^DD(404.45,.01,1,2,1)="N CLT S CLT=+$P($G(^SCTM(404.45,DA,0)),U,2) I CLT S ^SCTM(404.45,""ASER"",$E(X,1,35),CLT,DA)="""""
^DD(404.45,.01,1,2,2)="N CLT S CLT=+$P($G(^SCTM(404.45,DA,0)),U,2) I CLT K ^SCTM(404.45,""ASER"",$E(X,1,35),CLT,DA)"
^DD(404.45,.01,1,2,"%D",0)="^^2^2^2990825^^^^"
^DD(404.45,.01,1,2,"%D",1,0)="This cross reference is used to sort by server patch number(.01) then client"
^DD(404.45,.01,1,2,"%D",2,0)="patch number(external)."
^DD(404.45,.01,1,2,"DT")="2990825"
^DD(404.45,.01,1,3,0)="404.45^ACT1^MUMPS"
^DD(404.45,.01,1,3,1)="N ACTV S ACTV=$P($G(^SCTM(404.45,DA,0)),U,4) I ACTV=1 S ^SCTM(404.45,""ACT"",$E(X,1,35),DA)="""""
^DD(404.45,.01,1,3,2)="N ACTV S ACTV=$P($G(^SCTM(404.45,DA,0)),U,4) I ACTV=1 K ^SCTM(404.45,""ACT"",$E(X,1,35),DA)"
^DD(404.45,.01,1,3,"%D",0)="^^1^1^2990819^"
^DD(404.45,.01,1,3,"%D",1,0)="This is part of a compound cross reference to locate active servers."
^DD(404.45,.01,1,3,"DT")="2990819"
^DD(404.45,.01,3)="Answer must be 1-35 characters in length."
^DD(404.45,.01,21,0)="^^1^1^2990816^"
^DD(404.45,.01,21,1,0)="This is the patch number for PCMM that was distributed by a KIDS build."
^DD(404.45,.01,"DT")="2990825"
^DD(404.45,.02,0)="ASSOCIATED CLIENT^P404.46'^SCTM(404.46,^0;2^Q"
^DD(404.45,.02,1,0)="^.1"
^DD(404.45,.02,1,1,0)="404.45^ASER1^MUMPS"
^DD(404.45,.02,1,1,1)="N SER S SER=$P($G(^SCTM(404.45,DA,0)),U,1) I SER]0 S ^SCTM(404.45,""ASER"",SER,$E(X,1,30),DA)="""""
^DD(404.45,.02,1,1,2)="N SER S SER=$P($G(^SCTM(404.45,DA,0)),U,1) I SER]0 K ^SCTM(404.45,""ASER"",SER,$E(X,1,30),DA)"
^DD(404.45,.02,1,1,"%D",0)="^^2^2^2990826^^^^"
^DD(404.45,.02,1,1,"%D",1,0)="This cross reference is used to sort by server patch number(.01) then client"
^DD(404.45,.02,1,1,"%D",2,0)="patch number(external)."
^DD(404.45,.02,1,1,"DT")="2990826"
^DD(404.45,.02,1,2,0)="404.45^AC"
^DD(404.45,.02,1,2,1)="S ^SCTM(404.45,""AC"",$E(X,1,30),DA)="""""
^DD(404.45,.02,1,2,2)="K ^SCTM(404.45,""AC"",$E(X,1,30),DA)"
^DD(404.45,.02,1,2,"%D",0)="^^1^1^2990818^"
^DD(404.45,.02,1,2,"%D",1,0)="This is a general cross reference to help find associated clients and servers."
^DD(404.45,.02,1,2,"DT")="2990818"
^DD(404.45,.02,21,0)="^^2^2^2990816^"
^DD(404.45,.02,21,1,0)="This field points to the PCMM CLIENT PATCH file entries that can work with this"
^DD(404.45,.02,21,2,0)="server version."
^DD(404.45,.02,"DT")="2990826"
^DD(404.45,.03,0)="EFFECTIVE DATE^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.45,.03,21,0)="^^1^1^2990816^"
^DD(404.45,.03,21,1,0)="This is the date this server entry became effective."
^DD(404.45,.03,"DT")="2990816"
^DD(404.45,.04,0)="ACTIVE SERVER VERSION^S^1:YES;0:NO;^0;4^Q"
^DD(404.45,.04,1,0)="^.1"
^DD(404.45,.04,1,1,0)="404.45^ACT^MUMPS"
^DD(404.45,.04,1,1,1)="N SER S SER=$P($G(^SCTM(404.45,DA,0)),U,1) I SER]0,X=1 S ^SCTM(404.45,""ACT"",$E(SER,1,35),DA)="""""
^DD(404.45,.04,1,1,2)="N SER S SER=$P($G(^SCTM(404.45,DA,0)),U,1) I SER]0,X=1 K ^SCTM(404.45,""ACT"",$E(SER,1,35),DA)"
^DD(404.45,.04,1,1,"%D",0)="^^1^1^2990819^^^"
^DD(404.45,.04,1,1,"%D",1,0)="This is used to pinpoint the active servers."
^DD(404.45,.04,1,1,"DT")="2990819"
^DD(404.45,.04,21,0)="^^3^3^2990819^^"
^DD(404.45,.04,21,1,0)="This field is used to indicate which SERVERs are active at"
^DD(404.45,.04,21,2,0)="this site.  It is possible to have more than one server version active at the"
^DD(404.45,.04,21,3,0)="site at one time."
^DD(404.45,.04,"DT")="2990819"
^DD(404.45,"B","ACTIVE SERVER VERSION",.04)=""
^DD(404.45,"B","ASSOCIATED CLIENT",.02)=""
^DD(404.45,"B","EFFECTIVE DATE",.03)=""
^DD(404.45,"B","SERVER PATCH NUMBER",.01)=""
^DD(404.45,"GL",0,1,.01)=""
^DD(404.45,"GL",0,2,.02)=""
^DD(404.45,"GL",0,3,.03)=""
^DD(404.45,"GL",0,4,.04)=""
^DD(404.45,"IX",.01)=""
^DD(404.45,"IX",.02)=""
^DD(404.45,"IX",.04)=""
^DD(404.45,"RQ",.01)=""
^DD(404.46,0)="FIELD^^.04^4"
^DD(404.46,0,"DDA")="N"
^DD(404.46,0,"DT")="2990824"
^DD(404.46,0,"IX","B",404.46,.01)=""
^DD(404.46,0,"NM","PCMM CLIENT PATCH")=""
^DD(404.46,0,"PT",404.45,.02)=""
^DD(404.46,0,"VR")="5.3"
^DD(404.46,0,"VRPK")="SD"
^DD(404.46,.01,0)="CLIENT VERSION NUMBER^RF^^0;1^K:$L(X)>35!($L(X)<1)!'(X'?1P.E) X"
^DD(404.46,.01,1,0)="^.1"
^DD(404.46,.01,1,1,0)="404.46^B"
^DD(404.46,.01,1,1,1)="S ^SCTM(404.46,""B"",$E(X,1,30),DA)="""""
^DD(404.46,.01,1,1,2)="K ^SCTM(404.46,""B"",$E(X,1,30),DA)"
^DD(404.46,.01,3)="Answer must be 1-35 characters in length."
^DD(404.46,.01,21,0)="^^1^1^2990816^"
^DD(404.46,.01,21,1,0)="These are the client versions of PCMM that have been released."
^DD(404.46,.01,"DT")="2990824"
^DD(404.46,.02,0)="CLIENT VERSION ENABLED^S^1:YES;0:NO;^0;2^Q"
^DD(404.46,.02,21,0)="^^2^2^2990816^"
^DD(404.46,.02,21,1,0)="This indicates whether a specific client version is disabled or not."
^DD(404.46,.02,21,2,0)=""
^DD(404.46,.02,"DT")="2990816"
^DD(404.46,.03,0)="EFFECTIVE DATE^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.46,.03,21,0)="^^1^1^2990816^"
^DD(404.46,.03,21,1,0)="This is the date that this client version became active."
^DD(404.46,.03,"DT")="2990816"
^DD(404.46,.04,0)="ASSOCIATED RPCVERSION^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.46,.04,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(404.46,.04,21,0)="^^1^1^2990824^"
^DD(404.46,.04,21,1,0)="This field is for future use for RPC version checking."
^DD(404.46,.04,"DT")="2990824"
^DD(404.46,"B","ASSOCIATED RPCVERSION",.04)=""
^DD(404.46,"B","CLIENT VERSION ENABLED",.02)=""
^DD(404.46,"B","CLIENT VERSION NUMBER",.01)=""
^DD(404.46,"B","EFFECTIVE DATE",.03)=""
^DD(404.46,"GL",0,1,.01)=""
^DD(404.46,"GL",0,2,.02)=""
^DD(404.46,"GL",0,3,.03)=""
^DD(404.46,"GL",0,4,.04)=""
^DD(404.46,"IX",.01)=""
^DD(404.46,"RQ",.01)=""
^DD(404.471,0)="FIELD^^42^10"
^DD(404.471,0,"DDA")="N"
^DD(404.471,0,"DT")="3000317"
^DD(404.471,0,"IX","AST",404.471,.04)=""
^DD(404.471,0,"IX","AST1",404.471,.05)=""
^DD(404.471,0,"IX","AST2",404.471,.02)=""
^DD(404.471,0,"IX","ASTAT",404.471,.04)=""
^DD(404.471,0,"IX","AWRK",404.471,.07)=""
^DD(404.471,0,"IX","B",404.471,.01)=""
^DD(404.471,0,"NM","PCMM HL7 TRANSMISSION LOG")=""
^DD(404.471,0,"VR")="5.3"
^DD(404.471,0,"VRPK")="SD"
^DD(404.471,.01,0)="MESSAGE CONTROL ID^RF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(404.471,.01,1,0)="^.1"
^DD(404.471,.01,1,1,0)="404.471^B"
^DD(404.471,.01,1,1,1)="S ^SCPT(404.471,""B"",$E(X,1,30),DA)="""""
^DD(404.471,.01,1,1,2)="K ^SCPT(404.471,""B"",$E(X,1,30),DA)"
^DD(404.471,.01,3)="Answer must be 1-20 characters in length."
^DD(404.471,.01,21,0)="^^1^1^3000307^"
^DD(404.471,.01,21,1,0)="Unique ID generated by the HL7 package."
^DD(404.471,.01,"DT")="3000207"
^DD(404.471,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(404.471,.02,1,0)="^.1"
^DD(404.471,.02,1,1,0)="404.471^AST2^MUMPS"
^DD(404.471,.02,1,1,1)="D AST2SET^SCMCHLA1(DA,X)"
^DD(404.471,.02,1,1,2)="D AST2KILL^SCMCHLA1(DA,X)"
^DD(404.471,.02,1,1,"%D",0)="^^5^5^3000222^^^"
^DD(404.471,.02,1,1,"%D",1,0)="This cross-reference provides a list of records that have a status of"
^DD(404.471,.02,1,1,"%D",2,0)="'rejected' or 'marked for re-transmit'.  The list is sorted by <ack"
^DD(404.471,.02,1,1,"%D",3,0)="received date/time>,<status>, <patient >,<internal entry number>.  The"
^DD(404.471,.02,1,1,"%D",4,0)="STATUS (#.04) and ACK RECEIVED DATE/TIME (#.05) fields each have a"
^DD(404.471,.02,1,1,"%D",5,0)="companion cross-reference to set this compound cross-reference."
^DD(404.471,.02,1,1,"DT")="3000222"
^DD(404.471,.02,3)=""
^DD(404.471,.02,21,0)="^^1^1^3000307^"
^DD(404.471,.02,21,1,0)="Pointer to the PATIENT file."
^DD(404.471,.02,"DT")="3000222"
^DD(404.471,.03,0)="TRANSMISSION DATE/TIME^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(404.471,.03,3)="(No range limit on date)"
^DD(404.471,.03,21,0)="^^1^1^3000307^"
^DD(404.471,.03,21,1,0)="Date/time message transmitted by HL7."
^DD(404.471,.03,"DT")="2991222"
^DD(404.471,.04,0)="STATUS^S^T:TRANSMITTED;A:ACCEPTED;RJ:REJECTED;M:MARKED FOR RE-TRANSMIT;RT:RE-TRANSMITTED;^0;4^Q"
^DD(404.471,.04,1,0)="^.1"
^DD(404.471,.04,1,1,0)="404.471^AST^MUMPS"
^DD(404.471,.04,1,1,1)="D ASTSET^SCMCHLA1(DA,X)"
^DD(404.471,.04,1,1,2)="D ASTKILL^SCMCHLA1(DA,X)"
^DD(404.471,.04,1,1,"%D",0)="^^5^5^3000222^^^"
^DD(404.471,.04,1,1,"%D",1,0)="This cross-reference provides a list of records that have a status of"
^DD(404.471,.04,1,1,"%D",2,0)="'rejected' or 'marked for re-transmit'.  The list is sorted by <ack"
^DD(404.471,.04,1,1,"%D",3,0)="received date/time>,<status>,<patient >,<internal entry number>.  The"
^DD(404.471,.04,1,1,"%D",4,0)="PATIENT (#.02) and ACK RECEIVED DATE/TIME (#.05) fields each have a"
^DD(404.471,.04,1,1,"%D",5,0)="companion cross-reference to set this compound cross-reference."
^DD(404.471,.04,1,1,"DT")="3000222"
^DD(404.471,.04,1,2,0)="404.471^ASTAT"
^DD(404.471,.04,1,2,1)="S ^SCPT(404.471,""ASTAT"",$E(X,1,30),DA)="""""
^DD(404.471,.04,1,2,2)="K ^SCPT(404.471,""ASTAT"",$E(X,1,30),DA)"
^DD(404.471,.04,1,2,"%D",0)="^^1^1^3000118^"
^DD(404.471,.04,1,2,"%D",1,0)="Use this xref to resubmit rejects."
^DD(404.471,.04,1,2,"DT")="3000118"
^DD(404.471,.04,21,0)="^^1^1^3000307^"
^DD(404.471,.04,21,1,0)="Describes the status of this transmission."
^DD(404.471,.04,"DT")="3000222"
^DD(404.471,.05,0)="ACK RECEIVED DATE/TIME^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(404.471,.05,1,0)="^.1"
^DD(404.471,.05,1,1,0)="404.471^AST1^MUMPS"
^DD(404.471,.05,1,1,1)="D AST1SET^SCMCHLA1(DA,X)"
^DD(404.471,.05,1,1,2)="D AST1KILL^SCMCHLA1(DA,X)"
^DD(404.471,.05,1,1,"%D",0)="^^5^5^3000222^^^"
^DD(404.471,.05,1,1,"%D",1,0)="This cross-reference provides a list of records that have a status of"
^DD(404.471,.05,1,1,"%D",2,0)="'rejected' or 'marked for re-transmit'.  The list is sorted by <ack"
^DD(404.471,.05,1,1,"%D",3,0)="received date/time>,<status>, <patient >,<internal entry number>.  The"
^DD(404.471,.05,1,1,"%D",4,0)="PATIENT (#.02) and STATUS (#.04) fields each have a companion"
^DD(404.471,.05,1,1,"%D",5,0)="cross-reference to set this compound cross-reference."
^DD(404.471,.05,1,1,"DT")="3000222"
^DD(404.471,.05,21,0)="^^1^1^3000307^"
^DD(404.471,.05,21,1,0)="The date/time an Acknowledgment message is received."
^DD(404.471,.05,"DT")="3000222"
^DD(404.471,.06,0)="INCLUDED IN REJECT BULLETIN?^S^Y:YES;^0;6^Q"
^DD(404.471,.06,1,0)="^.1^^0"
^DD(404.471,.06,3)=""
^DD(404.471,.06,21,0)="^^3^3^3000207^^^^"
^DD(404.471,.06,21,1,0)="This field will be used to determine if the record has been included in"
^DD(404.471,.06,21,2,0)="the PCMM Transmission Error notification message that is sent to a local"
^DD(404.471,.06,21,3,0)="mail group when reject messages are received."
^DD(404.471,.06,"DT")="3000208"
^DD(404.471,.07,0)="WORKLOAD EVENT POINTER^V^^0;7^Q"
^DD(404.471,.07,1,0)="^.1"
^DD(404.471,.07,1,1,0)="404.471^AWRK"
^DD(404.471,.07,1,1,1)="S ^SCPT(404.471,""AWRK"",$E(X,1,30),DA)="""""
^DD(404.471,.07,1,1,2)="K ^SCPT(404.471,""AWRK"",$E(X,1,30),DA)"
^DD(404.471,.07,1,1,"%D",0)="^^1^1^3030321^"
^DD(404.471,.07,1,1,"%D",1,0)="Used to see if record was transmitted."
^DD(404.471,.07,1,1,"DT")="3030321"
^DD(404.471,.07,3)="Used only in workload PCMM transmission to AAC"
^DD(404.471,.07,21,0)="^.001^1^1^3030218^^"
^DD(404.471,.07,21,1,0)="Used only in Workload PCMM transmissions to identify error information for retransmission"
^DD(404.471,.07,"DT")="3030321"
^DD(404.471,.07,"V",0)="^.12P^4^4"
^DD(404.471,.07,"V",1,0)="404.43^Patient Team Position^2^PTP^n^n"
^DD(404.471,.07,"V",2,0)="404.52^Position History^3^POH^n^n"
^DD(404.471,.07,"V",3,0)="404.59^Team Position History^98^TPH^n^n"
^DD(404.471,.07,"V",4,0)="404.57^Team Position^5^TP^n^n"
^DD(404.471,.07,"V","B",404.43,1)=""
^DD(404.471,.07,"V","B",404.52,2)=""
^DD(404.471,.07,"V","B",404.57,4)=""
^DD(404.471,.07,"V","B",404.59,3)=""
^DD(404.471,.07,"V","M","Patient Team Position",1)=""
^DD(404.471,.07,"V","M","Position History",2)=""
^DD(404.471,.07,"V","M","Team Position",4)=""
^DD(404.471,.07,"V","M","Team Position History",3)=""
^DD(404.471,.07,"V","O",2,1)=""
^DD(404.471,.07,"V","O",3,2)=""
^DD(404.471,.07,"V","O",5,4)=""
^DD(404.471,.07,"V","O",98,3)=""
^DD(404.471,.07,"V","P","POH",2)=""
^DD(404.471,.07,"V","P","PTP",1)=""
^DD(404.471,.07,"V","P","TP",4)=""
^DD(404.471,.07,"V","P","TPH",3)=""
^DD(404.471,.08,0)="PRACTITIONER^P200'^VA(200,^0;8^Q"
^DD(404.471,.08,3)="To track records that may be deleted"
^DD(404.471,.08,21,0)="^^1^1^3030323^"
^DD(404.471,.08,21,1,0)="Only when entry is derived from POSITION ASSIGNMENT HISTORY"
^DD(404.471,.08,"DT")="3030323"
^DD(404.471,41,0)="ZPC SEGMENTS^404.47141^^ZPC;0"
^DD(404.471,42,0)="ERROR CODE^404.47142P^^ERR;0"
^DD(404.471,"B","ACK RECEIVED DATE/TIME",.05)=""
^DD(404.471,"B","ERROR CODE",42)=""
^DD(404.471,"B","INCLUDED IN REJECT BULLETIN?",.06)=""
^DD(404.471,"B","MESSAGE CONTROL ID",.01)=""
^DD(404.471,"B","PATIENT",.02)=""
^DD(404.471,"B","PRACTITIONER",.08)=""
^DD(404.471,"B","STATUS",.04)=""
^DD(404.471,"B","TRANSMISSION DATE/TIME",.03)=""
^DD(404.471,"B","WORKLOAD EVENT POINTER",.07)=""
^DD(404.471,"B","ZPC SEGMENTS",41)=""
^DD(404.471,"GL",0,1,.01)=""
^DD(404.471,"GL",0,2,.02)=""
^DD(404.471,"GL",0,3,.03)=""
^DD(404.471,"GL",0,4,.04)=""
^DD(404.471,"GL",0,5,.05)=""
^DD(404.471,"GL",0,6,.06)=""
^DD(404.471,"GL",0,7,.07)=""
^DD(404.471,"GL",0,8,.08)=""
^DD(404.471,"GL","ERR",0,42)=""
^DD(404.471,"GL","ZPC",0,41)=""
^DD(404.471,"IX",.01)=""
^DD(404.471,"IX",.02)=""
^DD(404.471,"IX",.04)=""
^DD(404.471,"IX",.05)=""
^DD(404.471,"IX",.07)=""
^DD(404.471,"RQ",.01)=""
^DD(404.471,"SB",404.47141,41)=""
^DD(404.471,"SB",404.47142,42)=""
^DD(404.47141,0)="ZPC SEGMENTS SUB-FIELD^^.02^2"
^DD(404.47141,0,"DT")="2991215"
^DD(404.47141,0,"IX","B",404.47141,.01)=""
^DD(404.47141,0,"IX","C",404.47141,.02)=""
^DD(404.47141,0,"NM","ZPC SEGMENTS")=""
^DD(404.47141,0,"UP")="404.471"
^DD(404.47141,.01,0)="SEQUENCE^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.47141,.01,1,0)="^.1"
^DD(404.47141,.01,1,1,0)="404.47141^B"
^DD(404.47141,.01,1,1,1)="S ^SCPT(404.471,DA(1),""ZPC"",""B"",$E(X,1,30),DA)="""""
^DD(404.47141,.01,1,1,2)="K ^SCPT(404.471,DA(1),""ZPC"",""B"",$E(X,1,30),DA)"
^DD(404.47141,.01,3)="Enter the sequence number from field 7 of the ZPC segment (a whole number from 1 to 9999)."
^DD(404.47141,.01,21,0)="^^1^1^3000307^^"
^DD(404.47141,.01,21,1,0)="The Set ID field of the ZPC segment."
^DD(404.47141,.01,"DT")="2991216"
^DD(404.47141,.02,0)="ZPC ID^P404.49'^SCPT(404.49,^0;2^Q"
^DD(404.47141,.02,1,0)="^.1"
^DD(404.47141,.02,1,1,0)="404.47141^C"
^DD(404.47141,.02,1,1,1)="S ^SCPT(404.471,DA(1),""ZPC"",""C"",$E(X,1,30),DA)="""""
^DD(404.47141,.02,1,1,2)="K ^SCPT(404.471,DA(1),""ZPC"",""C"",$E(X,1,30),DA)"
^DD(404.47141,.02,1,1,"DT")="3000111"
^DD(404.47141,.02,3)=""
^DD(404.47141,.02,21,0)="^^1^1^3000307^"
^DD(404.47141,.02,21,1,0)="The Provider Assignment ID field of the ZPC segment."
^DD(404.47141,.02,"DT")="3000111"
^DD(404.47141,"B","SEQUENCE",.01)=""
^DD(404.47141,"B","ZPC ID",.02)=""
^DD(404.47141,"GL",0,1,.01)=""
^DD(404.47141,"GL",0,2,.02)=""
^DD(404.47141,"IX",.01)=""
^DD(404.47141,"IX",.02)=""
^DD(404.47142,0)="ERROR CODE SUB-FIELD^^.06^6"
^DD(404.47142,0,"DT")="3000317"
^DD(404.47142,0,"IX","B",404.47142,.01)=""
^DD(404.47142,0,"NM","ERROR CODE")=""
^DD(404.47142,0,"UP")="404.471"
^DD(404.47142,.01,0)="ERROR CODE^MP404.472'^SCPT(404.472,^0;1^Q"
^DD(404.47142,.01,1,0)="^.1"
^DD(404.47142,.01,1,1,0)="404.47142^B"
^DD(404.47142,.01,1,1,1)="S ^SCPT(404.471,DA(1),""ERR"",""B"",$E(X,1,30),DA)="""""
^DD(404.47142,.01,1,1,2)="K ^SCPT(404.471,DA(1),""ERR"",""B"",$E(X,1,30),DA)"
^DD(404.47142,.01,3)=""
^DD(404.47142,.01,21,0)="^^2^2^3000307^"
^DD(404.47142,.01,21,1,0)="Pointer to the PCMM HL7 ERROR CODE file. The ERROR CODE is part"
^DD(404.47142,.01,21,2,0)="of the ACK message received from Austin."
^DD(404.47142,.01,"DT")="2991216"
^DD(404.47142,.02,0)="SEGMENT^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(404.47142,.02,3)="Enter 3 letter HL7 segment designation (1-15 characters)."
^DD(404.47142,.02,21,0)="^^2^2^3000307^"
^DD(404.47142,.02,21,1,0)="The 3 letter code that describes the segment that rejected."
^DD(404.47142,.02,21,2,0)="Example: PID -or- ZPC."
^DD(404.47142,.02,"DT")="2991216"
^DD(404.47142,.03,0)="SEQUENCE^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.47142,.03,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(404.47142,.03,21,0)="^.001^2^2^3000317^^^"
^DD(404.47142,.03,21,1,0)="The Set ID field of the ZPC segment. This number is used to identify"
^DD(404.47142,.03,21,2,0)="which ZPC segment rejected by looking in the ZPC SEGMENTS multiple field."
^DD(404.47142,.03,"DT")="3000317"
^DD(404.47142,.04,0)="FIELD POSITION^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.47142,.04,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(404.47142,.04,21,0)="^.001^2^2^3000317^^"
^DD(404.47142,.04,21,1,0)="The Field Position field of the ERR segment.  This number is used to"
^DD(404.47142,.04,21,2,0)="identify which field of the HL7 segment that an error occurred."
^DD(404.47142,.04,"DT")="3000317"
^DD(404.47142,.05,0)="ZPC ID^P404.49'^SCPT(404.49,^0;5^Q"
^DD(404.47142,.05,3)=""
^DD(404.47142,.05,21,0)="^^2^2^3000307^"
^DD(404.47142,.05,21,1,0)="Stores the Provider Assignment ID that is derived from the Sequence"
^DD(404.47142,.05,21,2,0)="number."
^DD(404.47142,.05,"DT")="2991215"
^DD(404.47142,.06,0)="ERROR PROCESSING STATUS^S^1:NEW;2:CHECKED;^0;6^Q"
^DD(404.47142,.06,3)=""
^DD(404.47142,.06,21,0)="^^2^2^3000112^"
^DD(404.47142,.06,21,1,0)="This field will be used to track the processing of the error by the local"
^DD(404.47142,.06,21,2,0)="site."
^DD(404.47142,.06,"DT")="3000112"
^DD(404.47142,"B","ERROR CODE",.01)=""
^DD(404.47142,"B","ERROR PROCESSING STATUS",.06)=""
^DD(404.47142,"B","FIELD POSITION",.04)=""
^DD(404.47142,"B","SEGMENT",.02)=""
^DD(404.47142,"B","SEQUENCE",.03)=""
^DD(404.47142,"B","ZPC ID",.05)=""
^DD(404.47142,"GL",0,1,.01)=""
^DD(404.47142,"GL",0,2,.02)=""
^DD(404.47142,"GL",0,3,.03)=""
^DD(404.47142,"GL",0,4,.04)=""
^DD(404.47142,"GL",0,5,.05)=""
^DD(404.47142,"GL",0,6,.06)=""
^DD(404.47142,"IX",.01)=""
^DD(404.472,0)="FIELD^^10^5"
^DD(404.472,0,"DDA")="N"
^DD(404.472,0,"DT")="3000217"
^DD(404.472,0,"IX","B",404.472,.01)=""
^DD(404.472,0,"NM","PCMM HL7 ERROR CODE")=""
^DD(404.472,0,"PT",404.47142,.01)=""
^DD(404.472,0,"PT",409.69,7)=""
^DD(404.472,0,"VR")="5.3"
^DD(404.472,0,"VRPK")="SD"
^DD(404.472,.01,0)="ERROR CODE^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(404.472,.01,1,0)="^.1"
^DD(404.472,.01,1,1,0)="404.472^B"
^DD(404.472,.01,1,1,1)="S ^SCPT(404.472,""B"",$E(X,1,30),DA)="""""
^DD(404.472,.01,1,1,2)="K ^SCPT(404.472,""B"",$E(X,1,30),DA)"
^DD(404.472,.01,3)="Answer must be 1-10 characters in length."
^DD(404.472,.01,21,0)="^^1^1^3000307^"
^DD(404.472,.01,21,1,0)="This is the unique ID assigned by Austin for each error code."
^DD(404.472,.01,"DT")="2991216"
^DD(404.472,.02,0)="SEGMENT^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(404.472,.02,3)="Enter HL7 message segment. Answer must be 1-10 characters in length."
^DD(404.472,.02,21,0)="^^1^1^3000307^"
^DD(404.472,.02,21,1,0)="The three letter designation of the applicable HL7 segment."
^DD(404.472,.02,"DT")="2991216"
^DD(404.472,.03,0)="FIELD^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(404.472,.03,3)="Enter the segment field name. Answer must be 1-30 characters in length."
^DD(404.472,.03,21,0)="^^1^1^3000307^"
^DD(404.472,.03,21,1,0)="The segment field where the error occurred."
^DD(404.472,.03,"DT")="2991216"
^DD(404.472,.04,0)="SHORT DESCRIPTION^F^^0;4^K:$L(X)>60!($L(X)<1) X"
^DD(404.472,.04,3)="Answer must be 1-60 characters in length."
^DD(404.472,.04,21,0)="^^2^2^3000307^"
^DD(404.472,.04,21,1,0)="The short desciption is used in the Listman display where users"
^DD(404.472,.04,21,2,0)="select errors for retransmission."
^DD(404.472,.04,"DT")="3000217"
^DD(404.472,10,0)="DESCRIPTION^404.482^^DESC;0"
^DD(404.472,10,21,0)="^^1^1^3000307^"
^DD(404.472,10,21,1,0)="The is the full description of this error."
^DD(404.472,"B","DESCRIPTION",10)=""
^DD(404.472,"B","ERROR CODE",.01)=""
^DD(404.472,"B","FIELD",.03)=""
^DD(404.472,"B","SEGMENT",.02)=""
^DD(404.472,"B","SHORT DESCRIPTION",.04)=""
^DD(404.472,"GL",0,1,.01)=""
^DD(404.472,"GL",0,2,.02)=""
^DD(404.472,"GL",0,3,.03)=""
^DD(404.472,"GL",0,4,.04)=""
^DD(404.472,"GL","DESC",0,10)=""
^DD(404.472,"IX",.01)=""
^DD(404.472,"RQ",.01)=""
^DD(404.472,"SB",404.482,10)=""
^DD(404.48,0)="FIELD^^.08^7"
^DD(404.48,0,"DDA")="N"
^DD(404.48,0,"DT")="3021210"
^DD(404.48,0,"ID","A1")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(404.48,0,"ID","A2")="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,7),1:"""") W ""   "",DIY"
^DD(404.48,0,"IX","AACXMIT1",404.48,.03)=""
^DD(404.48,0,"IX","AACXMIT2",404.48,.07)=""
^DD(404.48,0,"IX","B",404.48,.01)=""
^DD(404.48,0,"IX","C",404.48,.02)=""
^DD(404.48,0,"NM","PCMM HL7 EVENT")=""
^DD(404.48,0,"VR")="5.3"
^DD(404.48,0,"VRPK")="SD"
^DD(404.48,.01,0)="DATE/TIME OF EVENT^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(404.48,.01,1,0)="^.1^^-1"
^DD(404.48,.01,1,1,0)="404.48^B"
^DD(404.48,.01,1,1,1)="S ^SCPT(404.48,""B"",$E(X,1,30),DA)="""""
^DD(404.48,.01,1,1,2)="K ^SCPT(404.48,""B"",$E(X,1,30),DA)"
^DD(404.48,.01,3)="Enter date/time of PCMM primary care event."
^DD(404.48,.01,"DT")="2990331"
^DD(404.48,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(404.48,.02,1,0)="^.1"
^DD(404.48,.02,1,1,0)="404.48^C"
^DD(404.48,.02,1,1,1)="S ^SCPT(404.48,""C"",$E(X,1,30),DA)="""""
^DD(404.48,.02,1,1,2)="K ^SCPT(404.48,""C"",$E(X,1,30),DA)"
^DD(404.48,.02,1,1,"%D",0)="^^1^1^2990507^"
^DD(404.48,.02,1,1,"%D",1,0)="Allow look-up by patient."
^DD(404.48,.02,1,1,"DT")="2990507"
^DD(404.48,.02,"DT")="2990507"
^DD(404.48,.03,0)="TRANSMISSION REQUIRED^S^0:NO;1:YES;^0;3^Q"
^DD(404.48,.03,1,0)="^.1^^-1"
^DD(404.48,.03,1,2,0)="404.48^AACXMIT1^MUMPS"
^DD(404.48,.03,1,2,1)="D AACXMIT^SCMCHLX(DA,-1)"
^DD(404.48,.03,1,2,2)="D AACXMIT^SCMCHLX(DA,0)"
^DD(404.48,.03,1,2,"%D",0)="^^4^4^2990506^^"
^DD(404.48,.03,1,2,"%D",1,0)="This xref is used to flag entries for transmission to the NPCD."
^DD(404.48,.03,1,2,"%D",2,0)="  "
^DD(404.48,.03,1,2,"%D",3,0)="     Resulting node:  ^SCPT(404.48,""AACXMIT"",EVENTPTR,DA)"
^DD(404.48,.03,1,2,"%D",4,0)="     Where: EVENTPTR = Value in EVENT POINTER field (#.07)"
^DD(404.48,.03,1,2,"DT")="2990506"
^DD(404.48,.03,3)="Enter YES if the PCMM Primary Care event requires transmission."
^DD(404.48,.03,"DT")="2990507"
^DD(404.48,.04,0)="TEAM POSITION^F^^0;4^K:$L(X)>35!($L(X)<1) X"
^DD(404.48,.04,3)="This field stores the TEAM POSITION pointer. If EVENT POINTER is for file 404.53, this field will store Preceptee TM POS-Preceptor TM POS. 1-35 Characters."
^DD(404.48,.04,21,0)="^^23^23^2990701^^"
^DD(404.48,.04,21,1,0)="The TEAM POSITION value needs to be preserved so deletions can"
^DD(404.48,.04,21,2,0)="be processed."
^DD(404.48,.04,21,3,0)=" "
^DD(404.48,.04,21,4,0)="File 404.43"
^DD(404.48,.04,21,5,0)="   Save piece 2 (TP - Team Position IEN)."
^DD(404.48,.04,21,6,0)="   Use TP to get all providers with $$PRTPC^SCAPMC."
^DD(404.48,.04,21,7,0)="   Get IEN from VARPTR and attach it to ID."
^DD(404.48,.04,21,8,0)="   Send down a delete."
^DD(404.48,.04,21,9,0)=" "
^DD(404.48,.04,21,10,0)="File 404.52"
^DD(404.48,.04,21,11,0)="   Save piece 1 (TP - Team Position IEN)."
^DD(404.48,.04,21,12,0)="   Get IEN from VARPTR."
^DD(404.48,.04,21,13,0)="   Find every Primary Care 404.43 entry for this TP."
^DD(404.48,.04,21,14,0)="   Create ID with 404.43 IEN-IEN-0-AP/PCP."
^DD(404.48,.04,21,15,0)="   Send down a delete."
^DD(404.48,.04,21,16,0)=" "
^DD(404.48,.04,21,17,0)="File 404.53"
^DD(404.48,.04,21,18,0)="   Save piece 1 (TP1) & piece 6 (TP2) (Team Position IEN)."
^DD(404.48,.04,21,19,0)="   Loop to get each IEN for TP1 in 404.52."
^DD(404.48,.04,21,20,0)="   Loop to get each IEN for TP2 in 404.52."
^DD(404.48,.04,21,21,0)="   Find every Primary Care 404.43 entry for TP1."
^DD(404.48,.04,21,22,0)="   Create IDs with 404.43 IEN-TP1 IENs-TP2 IENs-PCP."
^DD(404.48,.04,21,23,0)="   Send down a delete."
^DD(404.48,.04,"DT")="2990701"
^DD(404.48,.05,0)="USER^P200'^VA(200,^0;5^Q"
^DD(404.48,.05,"DT")="2990318"
^DD(404.48,.07,0)="EVENT POINTER^V^^0;7^Q"
^DD(404.48,.07,1,0)="^.1^^-1"
^DD(404.48,.07,1,1,0)="404.48^AACXMIT2^MUMPS"
^DD(404.48,.07,1,1,1)="D AACXMIT^SCMCHLX(DA,-1)"
^DD(404.48,.07,1,1,2)="D AACXMIT^SCMCHLX(DA,0,X)"
^DD(404.48,.07,1,1,"%D",0)="^^4^4^2990506^"
^DD(404.48,.07,1,1,"%D",1,0)="This xref is used to flag entries for transmission to the NPCD."
^DD(404.48,.07,1,1,"%D",2,0)=" "
^DD(404.48,.07,1,1,"%D",3,0)="   Resulting node:  ^SCPT(404.48,""AACXMIT"",EVENTPTR,DA)"
^DD(404.48,.07,1,1,"%D",4,0)="   Where: EVENTPTR = Value in EVENT POINTER field (#.07)"
^DD(404.48,.07,1,1,"DT")="2990506"
^DD(404.48,.07,3)="Enter Patient Team, Patient Team Position, Position History, Preceptor History, or Team entry that generated this event."
^DD(404.48,.07,21,0)="^^4^4^2990412^"
^DD(404.48,.07,21,1,0)="This field is used to enable PCMM to delete a future event from"
^DD(404.48,.07,21,2,0)="this Event file when a future assignment is deleted from either"
^DD(404.48,.07,21,3,0)="the PATIENT TEAM ASSIGNMENT or PATIENT TEAM POSITION ASSIGNMENT"
^DD(404.48,.07,21,4,0)="files."
^DD(404.48,.07,"DT")="2990811"
^DD(404.48,.07,"V",0)="^.12P^6^5"
^DD(404.48,.07,"V",2,0)="404.43^Patient Team Position^2^PTP^n^y"
^DD(404.48,.07,"V",3,0)="404.52^Position History^3^POH^n^y"
^DD(404.48,.07,"V",4,0)="404.53^Preceptor History^4^PRH^n^y"
^DD(404.48,.07,"V",5,0)="404.59^Team Position History^98^TPH^n^n"
^DD(404.48,.07,"V",6,0)="404.57^Team Position^5^TP^n^n"
^DD(404.48,.07,"V","B",404.43,2)=""
^DD(404.48,.07,"V","B",404.52,3)=""
^DD(404.48,.07,"V","B",404.53,4)=""
^DD(404.48,.07,"V","B",404.57,6)=""
^DD(404.48,.07,"V","B",404.59,5)=""
^DD(404.48,.07,"V","M","Patient Team Position",2)=""
^DD(404.48,.07,"V","M","Position History",3)=""
^DD(404.48,.07,"V","M","Preceptor History",4)=""
^DD(404.48,.07,"V","M","Team Position",6)=""
^DD(404.48,.07,"V","M","Team Position History",5)=""
^DD(404.48,.07,"V","O",2,2)=""
^DD(404.48,.07,"V","O",3,3)=""
^DD(404.48,.07,"V","O",4,4)=""
^DD(404.48,.07,"V","O",5,6)=""
^DD(404.48,.07,"V","O",98,5)=""
^DD(404.48,.07,"V","P","POH",3)=""
^DD(404.48,.07,"V","P","PRH",4)=""
^DD(404.48,.07,"V","P","PTP",2)=""
^DD(404.48,.07,"V","P","TP",6)=""
^DD(404.48,.07,"V","P","TPH",5)=""
^DD(404.48,.08,0)="WORKLOAD^S^1:WORKLOAD;^0;8^Q"
^DD(404.48,.08,3)="Indicates if this is for Workload Transmission"
^DD(404.48,.08,21,0)="^^2^2^3030218^"
^DD(404.48,.08,21,1,0)="This field is used to designate that the HL7 message is Workload and based on "
^DD(404.48,.08,21,2,0)="Primary Care provider and position workload."
^DD(404.48,.08,"DT")="3021210"
^DD(404.48,"B","DATE/TIME OF EVENT",.01)=""
^DD(404.48,"B","EVENT POINTER",.07)=""
^DD(404.48,"B","PATIENT",.02)=""
^DD(404.48,"B","TEAM POSITION",.04)=""
^DD(404.48,"B","TRANSMISSION REQUIRED",.03)=""
^DD(404.48,"B","USER",.05)=""
^DD(404.48,"B","WORKLOAD",.08)=""
^DD(404.48,"GL",0,1,.01)=""
^DD(404.48,"GL",0,2,.02)=""
^DD(404.48,"GL",0,3,.03)=""
^DD(404.48,"GL",0,4,.04)=""
^DD(404.48,"GL",0,5,.05)=""
^DD(404.48,"GL",0,7,.07)=""
^DD(404.48,"GL",0,8,.08)=""
^DD(404.48,"IX",.01)=""
^DD(404.48,"IX",.02)=""
^DD(404.48,"IX",.03)=""
^DD(404.48,"IX",.07)=""
^DD(404.48,"RQ",.01)=""
^DD(404.482,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(404.482,0,"DT")="3000209"
^DD(404.482,0,"NM","DESCRIPTION")=""
^DD(404.482,0,"UP")="404.472"
^DD(404.482,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(404.482,.01,3)=""
^DD(404.482,.01,"DT")="3000209"
^DD(404.482,"B","DESCRIPTION",.01)=""
^DD(404.482,"GL",0,1,.01)=""
^DD(404.49,0)="FIELD^^.02^2"
^DD(404.49,0,"DT")="3000105"
^DD(404.49,0,"IX","B",404.49,.01)=""
^DD(404.49,0,"IX","C",404.49,.02)=""
^DD(404.49,0,"NM","PCMM HL7 ID")=""
^DD(404.49,0,"PT",404.47141,.02)=""
^DD(404.49,0,"PT",404.47142,.05)=""
^DD(404.49,0,"VR")="5.3"
^DD(404.49,0,"VRPK")="SD"
^DD(404.49,.01,0)="NAME^RF^^0;1^K:$L(X)>75!($L(X)<3)!'(X'?1P.E) X"
^DD(404.49,.01,1,0)="^.1"
^DD(404.49,.01,1,1,0)="404.49^B"
^DD(404.49,.01,1,1,1)="S ^SCPT(404.49,""B"",$E(X,1,75),DA)="""""
^DD(404.49,.01,1,1,2)="K ^SCPT(404.49,""B"",$E(X,1,75),DA)"
^DD(404.49,.01,3)="Enter an HL7 ZPC segment ID (3-75 characters). Hit ""??"" for more Help."
^DD(404.49,.01,21,0)="^^22^22^2990712^^^^"
^DD(404.49,.01,21,1,0)="This file stores PCMM HL7 message ID numbers for ZPC segments."
^DD(404.49,.01,21,2,0)="The ZPC segment then uses the IEN of this file which shortens"
^DD(404.49,.01,21,3,0)="the ID sent to the NPCD."
^DD(404.49,.01,21,4,0)=" "
^DD(404.49,.01,21,5,0)="The ID can have two formats depending on whether it is a preceptee"
^DD(404.49,.01,21,6,0)="or preceptor."
^DD(404.49,.01,21,7,0)=" "
^DD(404.49,.01,21,8,0)="Format 1:"
^DD(404.49,.01,21,9,0)="   2290-427-34-AP/PCP"
^DD(404.49,.01,21,10,0)="Where:"
^DD(404.49,.01,21,11,0)="   2290= 404.43 IEN"
^DD(404.49,.01,21,12,0)="   427 = 404.52 IEN of preceptor"
^DD(404.49,.01,21,13,0)="   34  = 404.53 IEN"
^DD(404.49,.01,21,14,0)="   AP  = AP (Associate Provider) or PCP (Primary Care Provider)"
^DD(404.49,.01,21,15,0)=" "
^DD(404.49,.01,21,16,0)="Format 2:"
^DD(404.49,.01,21,17,0)="   2290-453-0-AP/PCP"
^DD(404.49,.01,21,18,0)="Where:"
^DD(404.49,.01,21,19,0)="   2290= 404.43 IEN"
^DD(404.49,.01,21,20,0)="   427 = 404.52 IEN of preceptee"
^DD(404.49,.01,21,21,0)="   0   = Place holder. There is no 404.53 IEN."
^DD(404.49,.01,21,22,0)="   AP  = AP (Associate Provider) or PCP (Primary Care Provider)"
^DD(404.49,.01,"DT")="2990707"
^DD(404.49,.02,0)="INTEGRATION ID^F^^0;2^K:$L(X)>25!($L(X)<5) X"
^DD(404.49,.02,1,0)="^.1"
^DD(404.49,.02,1,1,0)="404.49^C"
^DD(404.49,.02,1,1,1)="S ^SCPT(404.49,""C"",$E(X,1,30),DA)="""""
^DD(404.49,.02,1,1,2)="K ^SCPT(404.49,""C"",$E(X,1,30),DA)"
^DD(404.49,.02,1,1,"%D",0)="^^2^2^3000105^"
^DD(404.49,.02,1,1,"%D",1,0)="This xref is used to look-up an entry by it's legacy site ID."
^DD(404.49,.02,1,1,"%D",2,0)="Used when processing HL7 rejects."
^DD(404.49,.02,1,1,"DT")="3000105"
^DD(404.49,.02,3)="Enter legacy site ID (5-25 characters). ID is site number-PCMM HL7 ID IEN (Example: 604-34)."
^DD(404.49,.02,21,0)="^^4^4^3000105^"
^DD(404.49,.02,21,1,0)="When one site is integrated into another site, all entries in 404.43,"
^DD(404.49,.02,21,2,0)="404.52, and 404.53 that have been unassigned and that are moved to the"
^DD(404.49,.02,21,3,0)="primary site, need to be able to convert to the original ID if they are"
^DD(404.49,.02,21,4,0)="edited and an HL7 message is generated. This field preserves that old ID."
^DD(404.49,.02,"DT")="3000105"
^DD(404.49,"B","INTEGRATION ID",.02)=""
^DD(404.49,"B","NAME",.01)=""
^DD(404.49,"GL",0,1,.01)=""
^DD(404.49,"GL",0,2,.02)=""
^DD(404.49,"IX",.01)=""
^DD(404.49,"IX",.02)=""
^DD(404.49,"RQ",.01)=""
^DD(404.51,0)="FIELD^^205^19"
^DD(404.51,0,"DDA")="N"
^DD(404.51,0,"DT")="2960528"
^DD(404.51,0,"IX","AINST",404.51,.07)=""
^DD(404.51,0,"IX","ASCTEAM",404.51,.01)=""
^DD(404.51,0,"IX","B",404.51,.01)=""
^DD(404.51,0,"NM","TEAM")=""
^DD(404.51,0,"PT",2,404.02)=""
^DD(404.51,0,"PT",44.40457,.02)=""
^DD(404.51,0,"PT",183,.01)=""
^DD(404.51,0,"PT",404.42,.03)=""
^DD(404.51,0,"PT",404.56,.01)=""
^DD(404.51,0,"PT",404.57,.02)=""
^DD(404.51,0,"PT",404.58,.01)=""
^DD(404.51,0,"PT",404.95,40)=""
^DD(404.51,0,"PT",404.9503,.01)=""
^DD(404.51,0,"PT",409.3,5)=""
^DD(404.51,0,"PT",810.18,.01)=""
^DD(404.51,0,"PT",8989.5,.01)=""
^DD(404.51,0,"VR")="5.3"
^DD(404.51,0,"VRPK")="SD"
^DD(404.51,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X K:$S('$D(X):1,('$D(^SCTM(404.51,""B"",X))):0,($G(DIUTIL)=""VERIFY FIELDS""):0,1:1) X D:'$D(X) EN^DDIOL(""Duplicate Team Names are not allowed.  Name must be 3-30 characters."")"
^DD(404.51,.01,1,0)="^.1"
^DD(404.51,.01,1,1,0)="404.51^B"
^DD(404.51,.01,1,1,1)="S ^SCTM(404.51,""B"",$E(X,1,30),DA)="""""
^DD(404.51,.01,1,1,2)="K ^SCTM(404.51,""B"",$E(X,1,30),DA)"
^DD(404.51,.01,1,2,0)="404.51^ASCTEAM^MUMPS"
^DD(404.51,.01,1,2,1)="D STSCTMNM^SCMCDD2(DA,X)"
^DD(404.51,.01,1,2,2)="D KLSCTMNM^SCMCDD2(DA,X)"
^DD(404.51,.01,1,2,"%D",0)="^^5^5^2970313^^^^"
^DD(404.51,.01,1,2,"%D",1,0)="This edits the whole cross reference in the Hospital Location File (#44),"
^DD(404.51,.01,1,2,"%D",2,0)="'TEAM'.  This cross-reference allows users to use the team name to find"
^DD(404.51,.01,1,2,"%D",3,0)="clinics associated with the team's team positions.  See the 'ASCTEAM'"
^DD(404.51,.01,1,2,"%D",4,0)="cross-reference in the TEAM POSITION File (#404.57) - in the 'ASSOCIATED"
^DD(404.51,.01,1,2,"%D",5,0)="CLINIC' (#.09) Field."
^DD(404.51,.01,1,2,"DT")="2970313"
^DD(404.51,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(404.51,.01,23,0)="^^1^1^2970307^^^^"
^DD(404.51,.01,23,1,0)="Place holder.  Integration issue.  Can another DHCP file be used?"
^DD(404.51,.01,"DT")="2970313"
^DD(404.51,.02,0)="TEAM PHONE NUMBER^F^^0;2^K:$L(X)>20!($L(X)<3) X"
^DD(404.51,.02,3)="Answer must be 3-20 characters in length."
^DD(404.51,.02,21,0)="^^1^1^2950811^"
^DD(404.51,.02,21,1,0)="This is the phone number associated with the team."
^DD(404.51,.02,"DT")="2950811"
^DD(404.51,.03,0)="TEAM PURPOSE^RP403.47'^SD(403.47,^0;3^Q"
^DD(404.51,.03,3)="This is the purpose of the team (e.g. Primary Care)"
^DD(404.51,.03,21,0)="^^9^9^2960320^^^"
^DD(404.51,.03,21,1,0)="This defines the primary role of the team."
^DD(404.51,.03,21,2,0)=" "
^DD(404.51,.03,21,3,0)="Examples:"
^DD(404.51,.03,21,4,0)="    - Primary Care"
^DD(404.51,.03,21,5,0)="    - Inpatient Ward"
^DD(404.51,.03,21,6,0)="    - Mental Health Treatment"
^DD(404.51,.03,21,7,0)="    - Rapid Response"
^DD(404.51,.03,21,8,0)="    - Community Care"
^DD(404.51,.03,21,9,0)="    - Special Treatment Program"
^DD(404.51,.03,"DT")="2950911"
^DD(404.51,.04,0)="DEFAULT TEAM PRINTER^P3.5'^%ZIS(1,^0;4^Q"
^DD(404.51,.04,3)="Enter the default device for team reports."
^DD(404.51,.04,21,0)="^^1^1^2950811^"
^DD(404.51,.04,21,1,0)="This is the default printer for the team."
^DD(404.51,.04,"DT")="2950811"
^DD(404.51,.05,0)="CAN ACT AS A PC TEAM?^S^1:YES;0:NO;^0;5^Q"
^DD(404.51,.05,3)="By answering 'Yes', this team will be allowed to be assigned as a PC Team."
^DD(404.51,.05,21,0)="^^3^3^2950306^^"
^DD(404.51,.05,21,1,0)="Can this team be the primary care team for a patient?"
^DD(404.51,.05,21,2,0)=" "
^DD(404.51,.05,21,3,0)="(Even if the team's principle purpose is not primary care, it still maybe able act as a primary care team for some patients. This attribute indicates if that is possible.)"
^DD(404.51,.05,"DT")="2950306"
^DD(404.51,.06,0)="SERVICE/DEPARTMENT^RP49'^DIC(49,^0;6^Q"
^DD(404.51,.06,3)="Enter the service/department most closely associated with this team."
^DD(404.51,.06,21,0)="^^1^1^2950911^^"
^DD(404.51,.06,21,1,0)="Entry in the Service/Section file."
^DD(404.51,.06,"DT")="2950911"
^DD(404.51,.07,0)="INSTITUTION^R*P4'^DIC(4,^0;7^S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.51,.07,1,0)="^.1"
^DD(404.51,.07,1,1,0)="404.51^AINST"
^DD(404.51,.07,1,1,1)="S ^SCTM(404.51,""AINST"",$E(X,1,30),DA)="""""
^DD(404.51,.07,1,1,2)="K ^SCTM(404.51,""AINST"",$E(X,1,30),DA)"
^DD(404.51,.07,1,1,"%D",0)="^^1^1^2950703^"
^DD(404.51,.07,1,1,"%D",1,0)="This sorts by institution - can be used for multi-divisional sites."
^DD(404.51,.07,1,1,"DT")="2950703"
^DD(404.51,.07,3)="This is the entry for the site in the INSTITUTION File."
^DD(404.51,.07,12)="SCREEN FOR NATIONAL ENTRY"
^DD(404.51,.07,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"""
^DD(404.51,.07,21,0)="1^.001^1^1^3030213^^^^"
^DD(404.51,.07,21,1,0)="This is the entry for the site in the INSTITUTION File."
^DD(404.51,.07,"DT")="3030225"
^DD(404.51,.08,0)="MAX NUMBER OF PATIENTS^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.51,.08,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(404.51,.08,21,0)="^^2^2^2960528^^"
^DD(404.51,.08,21,1,0)="The maximum allowable number of patients for this team.  After this number"
^DD(404.51,.08,21,2,0)="is exceeded, no more patients should be assigned to this team."
^DD(404.51,.08,"DT")="2950228"
^DD(404.51,.09,0)="MAX % OF PRIMARY CARE PATIENTS^NJ4,0^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.51,.09,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(404.51,.09,21,0)="^^1^1^2960528^^^^"
^DD(404.51,.09,21,1,0)="This is the maximum percentage of all patients assigned to primary care teams that this team should be assigned."
^DD(404.51,.09,"DT")="2960528"
^DD(404.51,.1,0)="CLOSE TO FURTHER ASSIGNMENT?^S^1:YES;0:NO;^0;10^Q"
^DD(404.51,.1,3)="If 'YES' is entered, users may not add additional patients to this team."
^DD(404.51,.1,21,0)="^^2^2^2950306^^"
^DD(404.51,.1,21,1,0)="This indicates that the team cannot be assigned additional patients.  This "
^DD(404.51,.1,21,2,0)="may be used for any reason."
^DD(404.51,.1,"DT")="2950306"
^DD(404.51,.11,0)="AUTO-ASSIGN FROM ASSC CLINICS?^S^1:YES;0:NO;^0;11^Q"
^DD(404.51,.11,3)="Should changes in enrollment data leaving patient in associated clinics automatically assign patients to this team?"
^DD(404.51,.11,21,0)="^^4^4^2960503^^"
^DD(404.51,.11,21,1,0)="By answering 'YES', enrollment into clinics that are associated clinics"
^DD(404.51,.11,21,2,0)="of active positions will result in the patient being assigned to this"
^DD(404.51,.11,21,3,0)="team.  If the clinic is associated with more than one team, no assignment"
^DD(404.51,.11,21,4,0)="will be done."
^DD(404.51,.11,"DT")="2960318"
^DD(404.51,.12,0)="DISCHARGE FROM ASSOC. CLINICS?^S^1:YES;0:NO;^0;12^Q"
^DD(404.51,.12,3)="Should changes in enrollment data leaving patient out of clinic also discharge him from team?"
^DD(404.51,.12,21,0)="^^5^5^2960528^^^"
^DD(404.51,.12,21,1,0)="By answering 'YES', changes in enrollment data that leaves a patient"
^DD(404.51,.12,21,2,0)="discharged from a clinic will result in the patient being automatically"
^DD(404.51,.12,21,3,0)="discharged from the team.  If the patient has any active or future"
^DD(404.51,.12,21,4,0)="assignments to team positions, the patient will not be discharged from"
^DD(404.51,.12,21,5,0)="the team."
^DD(404.51,.12,"DT")="2960318"
^DD(404.51,.13,0)="RESTRICT CONSULTS?^S^1:YES;0:NO;^0;13^Q"
^DD(404.51,.13,3)="Are users not allowed to make consult appointments if a patient is not enrolled in a clinic?"
^DD(404.51,.13,21,0)="^^6^6^2950309^"
^DD(404.51,.13,21,1,0)="This attribute prevents users from making consult appointments to clinics"
^DD(404.51,.13,21,2,0)="in which the patient is not enrolled. This parameter in the Patient"
^DD(404.51,.13,21,3,0)="Team/Position Assignment file"
^DD(404.51,.13,21,4,0)="overrides this same parameter in the team level."
^DD(404.51,.13,21,5,0)=" "
^DD(404.51,.13,21,6,0)="(Applies to on primary teams only.)"
^DD(404.51,.13,"DT")="2950309"
^DD(404.51,50,0)="DESCRIPTION^404.525^^D;0"
^DD(404.51,201,0)="CURRENT # OF PATIENTS^CJ8^^ ; ^S X=$$TEAMCNT^SCAPMCU1(D0,DT)"
^DD(404.51,201,9)="^"
^DD(404.51,201,9.01)=""
^DD(404.51,201,9.1)="S X=$$TEAMCNT^SCAPMCU1(D0,DT)"
^DD(404.51,201,21,0)="^^1^1^2960528^^^^"
^DD(404.51,201,21,1,0)="This calculates the number of patients currently assigned to the team."
^DD(404.51,201,"DT")="2950728"
^DD(404.51,202,0)="CURRENT STATUS^CJ8^^ ; ^S X=$S((+$$ACTTM^SCMCTMU(D0)=1):""Active"",1:""Inactive"")"
^DD(404.51,202,9)="^"
^DD(404.51,202,9.01)=""
^DD(404.51,202,9.1)="S X=$S((+$$ACTTM^SCMCTMU(D0)=1):""Active"",1:""Inactive"")"
^DD(404.51,202,21,0)="^^1^1^2960520^^^^"
^DD(404.51,202,21,1,0)="This indicates if the team is active on the current date."
^DD(404.51,202,"DT")="2950714"
^DD(404.51,203,0)="CURRENT EFFECTIVE DATE^CJ8^^ ; ^N Y S Y=$P($$ACTTM^SCMCTMU(D0),U,2) D DD^%DT S X=Y"
^DD(404.51,203,9)="^"
^DD(404.51,203,9.01)=""
^DD(404.51,203,9.1)="N Y S Y=$P($$ACTTM^SCMCTMU(D0),U,2) D DD^%DT S X=Y"
^DD(404.51,203,21,0)="^^1^1^2960520^^^^"
^DD(404.51,203,21,1,0)="This is the most recent date that the active status was changed."
^DD(404.51,203,"DT")="2960520"
^DD(404.51,204,0)="CURRENT ACTIVATION DATE^CJ8^^ ; ^N Y S Y=$P($$DATES^SCAPMCU1(404.58,D0,DT),U,2) D DD^%DT S X=Y"
^DD(404.51,204,9)="^"
^DD(404.51,204,9.01)=""
^DD(404.51,204,9.1)="N Y S Y=$P($$DATES^SCAPMCU1(404.58,D0,DT),U,2) D DD^%DT S X=Y"
^DD(404.51,204,21,0)="^^4^4^2960520^^^^"
^DD(404.51,204,21,1,0)="This is the activation date of the team based on today's date:"
^DD(404.51,204,21,2,0)="  For teams never active - this is the next date where the team is active"
^DD(404.51,204,21,3,0)="  For teams that are active now - this is the date it became active"
^DD(404.51,204,21,4,0)="  For teams that are currently inactive - this is the last activation date"
^DD(404.51,204,"DT")="2950728"
^DD(404.51,205,0)="CURRENT INACTIVATION DATE^CJ8^^ ; ^N Y S Y=$P($$DATES^SCAPMCU1(404.58,D0,DT),U,3) D DD^%DT S X=Y"
^DD(404.51,205,9)="^"
^DD(404.51,205,9.01)=""
^DD(404.51,205,9.1)="N Y S Y=$P($$DATES^SCAPMCU1(404.58,D0,DT),U,3) D DD^%DT S X=Y"
^DD(404.51,205,21,0)="^^3^3^2960520^^^"
^DD(404.51,205,21,1,0)="This is the inactivation date as of today."
^DD(404.51,205,21,2,0)="  For an inactive team, this is the most recent day it became inactive"
^DD(404.51,205,21,3,0)="  For an active team, this is the date it will become inactive."
^DD(404.51,"B","AUTO-ASSIGN FROM ASSC CLINICS?",.11)=""
^DD(404.51,"B","CAN ACT AS A PC TEAM?",.05)=""
^DD(404.51,"B","CLOSE TO FURTHER ASSIGNMENT?",.1)=""
^DD(404.51,"B","CURRENT # OF PATIENTS",201)=""
^DD(404.51,"B","CURRENT ACTIVATION DATE",204)=""
^DD(404.51,"B","CURRENT EFFECTIVE DATE",203)=""
^DD(404.51,"B","CURRENT INACTIVATION DATE",205)=""
^DD(404.51,"B","CURRENT STATUS",202)=""
^DD(404.51,"B","DEFAULT TEAM PRINTER",.04)=""
^DD(404.51,"B","DESCRIPTION",50)=""
^DD(404.51,"B","DISCHARGE FROM ASSOC. CLINICS?",.12)=""
^DD(404.51,"B","INSTITUTION",.07)=""
^DD(404.51,"B","MAX % OF PRIMARY CARE PATIENTS",.09)=""
^DD(404.51,"B","MAX NUMBER OF PATIENTS",.08)=""
^DD(404.51,"B","NAME",.01)=""
^DD(404.51,"B","RESTRICT CONSULTS?",.13)=""
^DD(404.51,"B","SERVICE/DEPARTMENT",.06)=""
^DD(404.51,"B","TEAM PHONE NUMBER",.02)=""
^DD(404.51,"B","TEAM PURPOSE",.03)=""
^DD(404.51,"GL",0,1,.01)=""
^DD(404.51,"GL",0,2,.02)=""
^DD(404.51,"GL",0,3,.03)=""
^DD(404.51,"GL",0,4,.04)=""
^DD(404.51,"GL",0,5,.05)=""
^DD(404.51,"GL",0,6,.06)=""
^DD(404.51,"GL",0,7,.07)=""
^DD(404.51,"GL",0,8,.08)=""
^DD(404.51,"GL",0,9,.09)=""
^DD(404.51,"GL",0,10,.1)=""
^DD(404.51,"GL",0,11,.11)=""
^DD(404.51,"GL",0,12,.12)=""
^DD(404.51,"GL",0,13,.13)=""
^DD(404.51,"GL","D",0,50)=""
^DD(404.51,"IX",.01)=""
^DD(404.51,"IX",.07)=""
^DD(404.51,"RQ",.01)=""
^DD(404.51,"RQ",.03)=""
^DD(404.51,"RQ",.06)=""
^DD(404.51,"RQ",.07)=""
^DD(404.51,"SB",404.525,50)=""
^DD(404.52,0)="FIELD^^1^15"
^DD(404.52,0,"DDA")="N"
^DD(404.52,0,"DT")="3040322"
^DD(404.52,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(404.52,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(404.52,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.52,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(404.52,0,"IX","AEVENT09",404.52,.09)=""
^DD(404.52,0,"IX","AEVENT1",404.52,.01)=""
^DD(404.52,0,"IX","AEVENT2",404.52,.02)=""
^DD(404.52,0,"IX","AEVENT3",404.52,.03)=""
^DD(404.52,0,"IX","AEVENT4",404.52,.04)=""
^DD(404.52,0,"IX","AFLAG",404.52,.091)=""
^DD(404.52,0,"IX","AFTEE",404.52,.09)=""
^DD(404.52,0,"IX","AIDT",404.52,.01)=""
^DD(404.52,0,"IX","AIDT1",404.52,.02)=""
^DD(404.52,0,"IX","AIDT2",404.52,.04)=""
^DD(404.52,0,"IX","ASTATUS",404.52,.04)=""
^DD(404.52,0,"IX","AWRK",404.52,.01)=""
^DD(404.52,0,"IX","B",404.52,.01)=""
^DD(404.52,0,"IX","C",404.52,.03)=""
^DD(404.52,0,"IX","FTEXR",404.52,.09)=""
^DD(404.52,0,"NM","POSITION ASSIGNMENT HISTORY")=""
^DD(404.52,0,"PT",404.471,.07)=""
^DD(404.52,0,"PT",404.48,.07)=""
^DD(404.52,0,"PT",404.54,.02)=""
^DD(404.52,0,"VR")="5.3"
^DD(404.52,0,"VRPK")="SD"
^DD(404.52,.01,0)="TEAM POSITION^RP404.57'X^SCTM(404.57,^0;1^Q"
^DD(404.52,.01,1,0)="^.1"
^DD(404.52,.01,1,1,0)="404.52^B"
^DD(404.52,.01,1,1,1)="S ^SCTM(404.52,""B"",$E(X,1,30),DA)="""""
^DD(404.52,.01,1,1,2)="K ^SCTM(404.52,""B"",$E(X,1,30),DA)"
^DD(404.52,.01,1,2,0)="404.52^AIDT^MUMPS"
^DD(404.52,.01,1,2,1)="N SC2,SC3 S SC2=$P($G(^SCTM(404.52,DA,0)),U,4) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.52,""AIDT"",X,SC2,-SC3,DA)="""""
^DD(404.52,.01,1,2,2)="N SC2,SC3 S SC2=$P($G(^SCTM(404.52,DA,0)),U,4) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCTM(404.52,""AIDT"",X,SC2,-SC3,DA)"
^DD(404.52,.01,1,2,"%D",0)="^^1^1^2950802^"
^DD(404.52,.01,1,2,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS(#.04), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.52,.01,1,2,"DT")="2950802"
^DD(404.52,.01,1,3,0)="404.52^AEVENT1^MUMPS"
^DD(404.52,.01,1,3,1)="D POSHXREF^SCMCHLX(DA)"
^DD(404.52,.01,1,3,2)="D POSHXREF^SCMCHLX(DA)"
^DD(404.52,.01,1,3,"%D",0)="^^1^1^2990507^"
^DD(404.52,.01,1,3,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.52,.01,1,3,"DT")="2990507"
^DD(404.52,.01,1,4,0)="^^TRIGGER^404.52^.07"
^DD(404.52,.01,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(404.52,.01,1,4,1.4)"
^DD(404.52,.01,1,4,1.4)="S DIH=$S($D(^SCTM(404.52,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.52,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.52,.01,1,4,2)="Q"
^DD(404.52,.01,1,4,"%D",0)="^^2^2^2990630^"
^DD(404.52,.01,1,4,"%D",1,0)="This trigger updates the field USER ENTERING.  It is intended to record who"
^DD(404.52,.01,1,4,"%D",2,0)="entered the record."
^DD(404.52,.01,1,4,"CREATE VALUE")="S X=DUZ"
^DD(404.52,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(404.52,.01,1,4,"DT")="2990630"
^DD(404.52,.01,1,4,"FIELD")="user"
^DD(404.52,.01,1,5,0)="^^TRIGGER^404.52^.08"
^DD(404.52,.01,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(404.52,.01,1,5,1.1) X ^DD(404.52,.01,1,5,1.4)"
^DD(404.52,.01,1,5,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(404.52,.01,1,5,1.4)="S DIH=$S($D(^SCTM(404.52,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.52,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.52,.01,1,5,2)="Q"
^DD(404.52,.01,1,5,"%D",0)="^^1^1^2990630^"
^DD(404.52,.01,1,5,"%D",1,0)="This cross reference is intended to record when the entry is added."
^DD(404.52,.01,1,5,"CREATE VALUE")="NOW"
^DD(404.52,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(404.52,.01,1,5,"DT")="2990630"
^DD(404.52,.01,1,5,"FIELD")="date"
^DD(404.52,.01,1,6,0)="404.52^AWRK"
^DD(404.52,.01,1,6,1)="S ^SCTM(404.52,""AWRK"",$E(X,1,30),DA)="""""
^DD(404.52,.01,1,6,2)="K ^SCTM(404.52,""AWRK"",$E(X,1,30),DA)"
^DD(404.52,.01,1,6,"%D",0)="^^1^1^3030323^"
^DD(404.52,.01,1,6,"%D",1,0)="Keep track of workload on deletion"
^DD(404.52,.01,1,6,"DT")="3030323"
^DD(404.52,.01,1,7,0)="404.52^AWRK^MUMPS"
^DD(404.52,.01,1,7,1)="Q"
^DD(404.52,.01,1,7,2)="D POSBXREF^SCMCHLX(DA,404.52)"
^DD(404.52,.01,1,7,"%D",0)="^^1^1^3030323^"
^DD(404.52,.01,1,7,"%D",1,0)="Keep track of workload on deletion"
^DD(404.52,.01,1,7,"DT")="3030323"
^DD(404.52,.01,3)="This is the entry in the Team Position file."
^DD(404.52,.01,21,0)="^^1^1^2990317^^^"
^DD(404.52,.01,21,1,0)="This is the entry in the Team Position file."
^DD(404.52,.01,"DT")="3030323"
^DD(404.52,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.52,.02,1,0)="^.1^^-1"
^DD(404.52,.02,1,1,0)="404.52^AIDT1^MUMPS"
^DD(404.52,.02,1,1,1)="N SC1,SC2 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"""" S ^SCTM(404.52,""AIDT"",SC1,SC2,-X,DA)="""""
^DD(404.52,.02,1,1,2)="N SC1,SC2 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"""" K ^SCTM(404.52,""AIDT"",SC1,SC2,-X,DA)"
^DD(404.52,.02,1,1,"%D",0)="^^1^1^2950802^"
^DD(404.52,.02,1,1,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS(#.04), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.52,.02,1,1,"DT")="2950802"
^DD(404.52,.02,1,2,0)="404.52^AEVENT2^MUMPS"
^DD(404.52,.02,1,2,1)="D POSHXREF^SCMCHLX(DA)"
^DD(404.52,.02,1,2,2)="D POSHXREF^SCMCHLX(DA)"
^DD(404.52,.02,1,2,"%D",0)="^^1^1^2990507^"
^DD(404.52,.02,1,2,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.52,.02,1,2,"DT")="2990507"
^DD(404.52,.02,3)="This is the date/time that the practitioner took over the position."
^DD(404.52,.02,21,0)="^^1^1^2950908^^^"
^DD(404.52,.02,21,1,0)="This is the date/time that the practitioner took over the team position."
^DD(404.52,.02,"DT")="2950908"
^DD(404.52,.03,0)="PRACTITIONER^R*P200'X^VA(200,^0;3^S DIC(""S"")=""I ($D(^USR(8930.3,""""B"""",+Y)))!('$$USEUSR^SCMCTPU)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.52,.03,1,0)="^.1"
^DD(404.52,.03,1,1,0)="404.52^C"
^DD(404.52,.03,1,1,1)="S ^SCTM(404.52,""C"",$E(X,1,30),DA)="""""
^DD(404.52,.03,1,1,2)="K ^SCTM(404.52,""C"",$E(X,1,30),DA)"
^DD(404.52,.03,1,1,"DT")="2950807"
^DD(404.52,.03,1,2,0)="404.52^AEVENT3^MUMPS"
^DD(404.52,.03,1,2,1)="D POSHXREF^SCMCHLX(DA)"
^DD(404.52,.03,1,2,2)="D POSHXREF^SCMCHLX(DA)"
^DD(404.52,.03,1,2,"%D",0)="^^1^1^2990507^"
^DD(404.52,.03,1,2,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.52,.03,1,2,"DT")="2990507"
^DD(404.52,.03,3)="This is the practitioner that holds the position."
^DD(404.52,.03,12)="This assures that the practitioner is in the USR Class Membership file (8930.3)"
^DD(404.52,.03,12.1)="S DIC(""S"")=""I ($D(^USR(8930.3,""""B"""",+Y)))!('$$USEUSR^SCMCTPU)"""
^DD(404.52,.03,21,0)="^.001^1^1^3040330^^^^"
^DD(404.52,.03,21,1,0)="This is a staff member who is entered in the USR CLASS MEMBERSHIP file (8930.3)."
^DD(404.52,.03,23,0)="^.001^1^1^3040330^^^^"
^DD(404.52,.03,23,1,0)="Screen insures entry in 8930.3"
^DD(404.52,.03,"DT")="2960528"
^DD(404.52,.04,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;4^Q"
^DD(404.52,.04,1,0)="^.1"
^DD(404.52,.04,1,1,0)="404.52^AIDT2^MUMPS"
^DD(404.52,.04,1,1,1)="N SC1,SC3 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.52,""AIDT"",SC1,X,-SC3,DA)="""""
^DD(404.52,.04,1,1,2)="N SC1,SC3 S SC1=$P($G(^SCTM(404.52,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCTM(404.52,""AIDT"",SC1,X,-SC3,DA)"
^DD(404.52,.04,1,1,"%D",0)="^.101^1^1^3021216^^"
^DD(404.52,.04,1,1,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS(#.04), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.52,.04,1,1,"DT")="2950802"
^DD(404.52,.04,1,2,0)="404.52^ASTATUS^MUMPS"
^DD(404.52,.04,1,2,1)="I 'X D POSBXREF^SCMCHLX(DA,404.52)"
^DD(404.52,.04,1,2,2)="Q"
^DD(404.52,.04,1,2,"%D",0)="^.101^1^1^3030218^^^"
^DD(404.52,.04,1,2,"%D",1,0)="For HL7 Workload Transmission. Creates an entry in PCMM HL7 EVENT file."
^DD(404.52,.04,1,2,"DT")="3021216"
^DD(404.52,.04,3)="This indicates if the practitioner's position assignment is active or inactive."
^DD(404.52,.04,21,0)="^^2^2^2950911^^^"
^DD(404.52,.04,21,1,0)="This indicates whether the practitioner's position assignment is"
^DD(404.52,.04,21,2,0)="active or inactive."
^DD(404.52,.04,"DT")="3021216"
^DD(404.52,.05,0)="STATUS REASON^R*P403.44'X^SD(403.44,^0;5^S DIC(""S"")=""IF $$RSNDICS^SCAPMCU1(""""ZM5"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.52,.05,3)="This is the reason that the position assignment changed."
^DD(404.52,.05,12)="This is the reason that the position assignment changed."
^DD(404.52,.05,12.1)="S DIC(""S"")=""IF $$RSNDICS^SCAPMCU1(""""ZM5"""")"""
^DD(404.52,.05,21,0)="^^1^1^2950714^^"
^DD(404.52,.05,21,1,0)="This is the reason that the position assignment changed."
^DD(404.52,.05,"DT")="2960528"
^DD(404.52,.07,0)="USER ENTERING^P200'^VA(200,^0;7^Q"
^DD(404.52,.07,3)="Enter the name of the person responsible for entering this entry."
^DD(404.52,.07,5,1,0)="404.52^.01^4"
^DD(404.52,.07,21,0)="^^2^2^2990630^"
^DD(404.52,.07,21,1,0)="This field is a pointer to the person responsible for entering this entry. It"
^DD(404.52,.07,21,2,0)="is triggered by the .01 field."
^DD(404.52,.07,"DT")="2990630"
^DD(404.52,.08,0)="DATE/TIME ENTERED^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.52,.08,3)="Enter the date this entry was created."
^DD(404.52,.08,5,1,0)="404.52^.01^5"
^DD(404.52,.08,21,0)="^^2^2^2990630^"
^DD(404.52,.08,21,1,0)="This field contains the date/time this entry was added to this file.  It is"
^DD(404.52,.08,21,2,0)="triggered from the .01 field."
^DD(404.52,.08,"DT")="2990630"
^DD(404.52,.09,0)="PRIMARY CARE FTEE EQUIVALENT^NJ4,2X^^0;9^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(404.52,.09,1,0)="^.1"
^DD(404.52,.09,1,1,0)="404.52^AFTEE^MUMPS"
^DD(404.52,.09,1,1,1)="D POSBXREF^SCMCHLX(DA,404.52)"
^DD(404.52,.09,1,1,2)="D POSBXREF^SCMCHLX(DA,404.52)"
^DD(404.52,.09,1,1,"%D",0)="^.101^1^1^3030218^^^^"
^DD(404.52,.09,1,1,"%D",1,0)="For HL7 Workload transmission. Creates an entry in PCMM HL7 EVENT file."
^DD(404.52,.09,1,1,"DT")="3021216"
^DD(404.52,.09,1,2,0)="404.52^FTEXR^MUMPS"
^DD(404.52,.09,1,2,1)="D FTEXR^SCMCTSK"
^DD(404.52,.09,1,2,2)="I '$O(^SCTM(404.52,DA,1,0)) D FTEXR^SCMCTSK"
^DD(404.52,.09,1,2,"%D",0)="^.101^1^1^3040227^^"
^DD(404.52,.09,1,2,"%D",1,0)="Keep track of FTEE changes"
^DD(404.52,.09,1,2,"DT")="3040227"
^DD(404.52,.09,3)="Type a Number between 0 and 1, 2 Decimal Digits Total for site cannot exceed 1"
^DD(404.52,.09,21,0)="^^2^2^3030218^"
^DD(404.52,.09,21,1,0)="Workload measurement for Primary Care Providers. This information is transmitted"
^DD(404.52,.09,21,2,0)="in the HL7 workload message."
^DD(404.52,.09,"DT")="3040227"
^DD(404.52,.091,0)="DATE FLAGGED FOR INACTIVATION^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.52,.091,1,0)="^.1^^0"
^DD(404.52,.091,1,1,0)="404.52^AFLAG"
^DD(404.52,.091,1,1,1)="S ^SCTM(404.52,""AFLAG"",$E(X,1,30),DA)="""""
^DD(404.52,.091,1,1,2)="K ^SCTM(404.52,""AFLAG"",$E(X,1,30),DA)"
^DD(404.52,.091,1,1,"%D",0)="^^1^1^3060712^"
^DD(404.52,.091,1,1,"%D",1,0)="Track positions designated for inactivation"
^DD(404.52,.091,1,1,"DT")="3031010"
^DD(404.52,.091,21,0)="^.001^3^3^3060712^^^^"
^DD(404.52,.091,21,1,0)="Practitioners may be flagged for inactivation if their person class "
^DD(404.52,.091,21,2,0)="is inconsistent with the position role and primary care designation."
^DD(404.52,.091,21,3,0)="The flagging of providers is handled by PCMM NIGHTLY TASK option."
^DD(404.52,.091,"DT")="3040324"
^DD(404.52,.096,0)="AVAILABLE POSITIONS^CJ5^^ ; ^X ""N I,Y ""_$P(^DD(404.52,.097,0),U,5,99) S Y(404.52,.096,1)=X X ""N I,Y ""_$P(^DD(404.52,.098,0),U,5,99) S Y(404.52,.096,2)=X S X=Y(404.52,.096,1)-Y(404.52,.096,2)"
^DD(404.52,.096,9)="^"
^DD(404.52,.096,9.01)="404.52^.098;404.52^.097"
^DD(404.52,.096,9.1)="MAX-CURR"
^DD(404.52,.096,"DT")="3040322"
^DD(404.52,.097,0)="MAX NUMBER OF PATIENTS^CJ5,0^^ ; ^X ^DD(404.52,.097,9.2) S Y(404.52,.097,101)=$S($D(^SCTM(404.57,D0,0)):^(0),1:"""") S X=$P(Y(404.52,.097,101),U,8) S D0=Y(404.52,.097,80) S X=$J(X,0,0)"
^DD(404.52,.097,9)="^"
^DD(404.52,.097,9.01)="404.57^.08;404.52^.01"
^DD(404.52,.097,9.1)="TEAM POSITION:MAX"
^DD(404.52,.097,9.2)="S Y(404.52,.097,80)=$G(D0),Y(404.52,.097,1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:""""),D0=$P(Y(404.52,.097,1),U,1) S:'D0!'$D(^SCTM(404.57,+D0,0)) D0=-1"
^DD(404.52,.098,0)="CURRENT ACTIVE PATIENTS^CJ5,0^^ ; ^S X=$$PCPOSCNT^SCAPMCU1(+$G(^SCTM(404.52,D0,0)),DT,0)"
^DD(404.52,.098,9)="^"
^DD(404.52,.098,9.01)=""
^DD(404.52,.098,9.1)="S X=$$PCPOSCNT^SCAPMCU1(+$G(^SCTM(404.52,D0,0)),DT,0)"
^DD(404.52,.099,0)="ADJUSTED PANEL SIZE^CJ5,0^^ ; ^X ^DD(404.52,.099,9.3) S Y(404.52,.099,5)=$G(X) S X=0,X=$J(Y(404.52,.099,4),Y(404.52,.099,5),X) S X=$J(X,0,0)"
^DD(404.52,.099,9)="^"
^DD(404.52,.099,9.01)="404.52^.09;404.52^.098"
^DD(404.52,.099,9.02)="S X=S(""404.52^.098""),Y(1)=$G(X) S X=S(""404.52^.09""),Y=X,X=Y(1),X=X,X=$S(Y:X/Y,1:""*******""),Y(2)=$G(X) S X=0,Y(3)=$G(X) S X=0,X=$J(Y(2),Y(3),X) S Y=X"
^DD(404.52,.099,9.1)="$J((#.098)/(#.09),0,0)"
^DD(404.52,.099,9.2)="X ""N I,Y ""_$P(^DD(404.52,.098,0),U,5,99) S Y(404.52,.099,1)=X S Y(404.52,.099,3)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=Y(404.52,.099,1)"
^DD(404.52,.099,9.3)="X ^DD(404.52,.099,9.2) S Y(404.52,.099,2)=$G(X) S X=$P(Y(404.52,.099,3),U,9),Y=X,X=Y(404.52,.099,2),X=X,X=$S(Y:X/Y,1:""*******""),Y(404.52,.099,4)=$G(X) S X=0"
^DD(404.52,.099,9.4)="X ^DD(404.52,.099,9.3) S Y(404.52,.099,101)=$G(X) S X=Y(404.52,.099,102),Y(404.52,.099,103)=$G(X) S X=$P($G(^SC(+$P(Y(404.52,.099,104),U,9),0)),U)"
^DD(404.52,.099,"DT")="3040322"
^DD(404.52,.11,0)="INACTIVATED AUTOMATICALLY^S^1:YES;^0;11^Q"
^DD(404.52,.11,1,0)="^.1^^0"
^DD(404.52,.11,1,1,0)="^^BULLETIN MESSAGE"
^DD(404.52,.11,1,1,1)="S Y(0)=X,D0=DA X ""N DIIND F DIIND=1.001:.001 Q:$D(^DD(404.52,.11,1,1,DIIND))[0  X ^(DIIND)"" K XMY S XMB=""SCMC PROVIDER INACTIVATION"" D ^XMB:$D(^XMB(3.6,""B"",XMB)) K Y,XMB"
^DD(404.52,.11,1,1,1.001)="S X=Y(0) S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^VA(200,+$P(Y(1),U,3),0)),U) S XMB(1)=X"
^DD(404.52,.11,1,1,1.002)="S X=Y(0) S Y(1)=$S($D(^SCTM(404.52,D0,0)):^(0),1:"""") S X=$P($G(^SCTM(404.57,+$P(Y(1),U,1),0)),U) S XMB(2)=X"
^DD(404.52,.11,1,1,2)="Q"
^DD(404.52,.11,1,1,"CREATE PARAMETER #1")="PRACTI"
^DD(404.52,.11,1,1,"CREATE PARAMETER #2")="TEAM POS"
^DD(404.52,.11,1,1,"CREATE VALUE")="SCMC PROVIDER INACTIVATION"
^DD(404.52,.11,1,1,"DELETE VALUE")="NO EFFECT"
^DD(404.52,.11,3)="Set by background job on inactivated providers"
^DD(404.52,.11,21,0)="^.001^3^3^3040406^^^"
^DD(404.52,.11,21,1,0)="Set by background job. Do not edit"
^DD(404.52,.11,21,2,0)="This is set by the PCMM NIGHTLY TASK option when a flagged record remains"
^DD(404.52,.11,21,3,0)="inconsistent 6 months after installation of patch SD*5.3*297"
^DD(404.52,.11,"DT")="3040402"
^DD(404.52,1,0)="FTEE HISTORY^404.521DA^^1;0"
^DD(404.52,1,21,0)="^^2^2^3040406^"
^DD(404.52,1,21,1,0)="Historical changes in FTEE values."
^DD(404.52,1,21,2,0)="This is set by crossreference, should not be edited."
^DD(404.52,"B","ADJUSTED PANEL SIZE",.099)=""
^DD(404.52,"B","AVAILABLE POSITIONS",.096)=""
^DD(404.52,"B","CURRENT ACTIVE PATIENTS",.098)=""
^DD(404.52,"B","DATE FLAGGED FOR INACTIVATION",.091)=""
^DD(404.52,"B","DATE/TIME ENTERED",.08)=""
^DD(404.52,"B","EFFECTIVE DATE",.02)=""
^DD(404.52,"B","FTEE HISTORY",1)=""
^DD(404.52,"B","INACTIVATED AUTOMATICALLY",.11)=""
^DD(404.52,"B","MAX NUMBER OF PATIENTS",.097)=""
^DD(404.52,"B","PRACTITIONER",.03)=""
^DD(404.52,"B","PRIMARY CARE FTEE EQUIVALENT",.09)=""
^DD(404.52,"B","STATUS",.04)=""
^DD(404.52,"B","STATUS REASON",.05)=""
^DD(404.52,"B","TEAM POSITION",.01)=""
^DD(404.52,"B","USER ENTERING",.07)=""
^DD(404.52,"GL",0,1,.01)=""
^DD(404.52,"GL",0,2,.02)=""
^DD(404.52,"GL",0,3,.03)=""
^DD(404.52,"GL",0,4,.04)=""
^DD(404.52,"GL",0,5,.05)=""
^DD(404.52,"GL",0,7,.07)=""
^DD(404.52,"GL",0,8,.08)=""
^DD(404.52,"GL",0,9,.09)=""
^DD(404.52,"GL",0,10,.091)=""
^DD(404.52,"GL",0,11,.11)=""
^DD(404.52,"GL",1,0,1)=""
^DD(404.52,"IX",.01)=""
^DD(404.52,"IX",.02)=""
^DD(404.52,"IX",.03)=""
^DD(404.52,"IX",.04)=""
^DD(404.52,"IX",.09)=""
^DD(404.52,"IX",.091)=""
^DD(404.52,"IX",.11)=""
^DD(404.52,"RQ",.01)=""
^DD(404.52,"RQ",.02)=""
^DD(404.52,"RQ",.03)=""
^DD(404.52,"RQ",.04)=""
^DD(404.52,"RQ",.05)=""
^DD(404.52,"SB",404.521,1)=""
^DD(404.521,0)="FTEE HISTORY SUB-FIELD^^.03^3"
^DD(404.521,0,"DT")="3040225"
^DD(404.521,0,"IX","B",404.521,.01)=""
^DD(404.521,0,"NM","FTEE HISTORY")=""
^DD(404.521,0,"UP")="404.52"
^DD(404.521,.01,0)="FTEE HISTORY^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.521,.01,1,0)="^.1"
^DD(404.521,.01,1,1,0)="404.521^B"
^DD(404.521,.01,1,1,1)="S ^SCTM(404.52,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(404.521,.01,1,1,2)="K ^SCTM(404.52,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(404.521,.01,21,0)="^.001^2^2^3040406^^"
^DD(404.521,.01,21,1,0)="Record of changes in FTEE"
^DD(404.521,.01,21,2,0)="This is set automatically, should not be edited."
^DD(404.521,.01,"DT")="3040225"
^DD(404.521,.02,0)="VALUE^NJ4,2^^0;2^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(404.521,.02,3)="Type a Number between 0 and 1, 2 Decimal Digits"
^DD(404.521,.02,21,0)="^.001^2^2^3040406^^"
^DD(404.521,.02,21,1,0)="Historical record of FTEE changes"
^DD(404.521,.02,21,2,0)="This is set automatically, should not be edited."
^DD(404.521,.02,"DT")="3040225"
^DD(404.521,.03,0)="USER^P200'^VA(200,^0;3^Q"
^DD(404.521,.03,21,0)="^^2^2^3040406^"
^DD(404.521,.03,21,1,0)="User making changes to FTEE."
^DD(404.521,.03,21,2,0)="This is set automatically."
^DD(404.521,.03,"DT")="3040225"
^DD(404.521,"B","FTEE HISTORY",.01)=""
^DD(404.521,"B","USER",.03)=""
^DD(404.521,"B","VALUE",.02)=""
^DD(404.521,"GL",0,1,.01)=""
^DD(404.521,"GL",0,2,.02)=""
^DD(404.521,"GL",0,3,.03)=""
^DD(404.521,"IX",.01)=""
^DD(404.525,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(404.525,0,"DT")="2941104"
^DD(404.525,0,"NM","DESCRIPTION")=""
^DD(404.525,0,"UP")="404.51"
^DD(404.525,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(404.525,.01,"DT")="2941104"
^DD(404.525,"B","DESCRIPTION",.01)=""
^DD(404.525,"GL",0,1,.01)=""
^DD(404.53,0)="FIELD^^200^8"
^DD(404.53,0,"DDA")="N"
^DD(404.53,0,"DT")="2990630"
^DD(404.53,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(404.53,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.53,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(404.53,0,"ID",.06)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCTM(404.57,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(404.57,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(404.53,0,"IX","AD",404.53,.06)=""
^DD(404.53,0,"IX","AEVENT1",404.53,.01)=""
^DD(404.53,0,"IX","AEVENT2",404.53,.02)=""
^DD(404.53,0,"IX","AEVENT3",404.53,.04)=""
^DD(404.53,0,"IX","AEVENT4",404.53,.06)=""
^DD(404.53,0,"IX","AIDT",404.53,.01)=""
^DD(404.53,0,"IX","AIDT1",404.53,.02)=""
^DD(404.53,0,"IX","AIDT2",404.53,.04)=""
^DD(404.53,0,"IX","AIDTP",404.53,.06)=""
^DD(404.53,0,"IX","AIDTP1",404.53,.02)=""
^DD(404.53,0,"IX","AIDTP2",404.53,.04)=""
^DD(404.53,0,"IX","B",404.53,.01)=""
^DD(404.53,0,"IX","D",404.53,.06)=""
^DD(404.53,0,"NM","PRECEPTOR ASSIGNMENT HISTORY")=""
^DD(404.53,0,"PT",404.48,.07)=""
^DD(404.53,0,"VR")="5.3"
^DD(404.53,0,"VRPK")="SD"
^DD(404.53,.01,0)="TEAM POSITION^RP404.57'^SCTM(404.57,^0;1^Q"
^DD(404.53,.01,1,0)="^.1"
^DD(404.53,.01,1,1,0)="404.53^B"
^DD(404.53,.01,1,1,1)="S ^SCTM(404.53,""B"",$E(X,1,30),DA)="""""
^DD(404.53,.01,1,1,2)="K ^SCTM(404.53,""B"",$E(X,1,30),DA)"
^DD(404.53,.01,1,2,0)="404.53^AIDT^MUMPS"
^DD(404.53,.01,1,2,1)="N SC2,SC3 S SC2=$P($G(^SCTM(404.53,DA,0)),U,4) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.53,""AIDT"",X,SC2,-SC3,DA)="""""
^DD(404.53,.01,1,2,2)="N SC2,SC3 S SC2=$P($G(^SCTM(404.53,DA,0)),U,4) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCTM(404.53,""AIDT"",X,SC2,-SC3,DA)"
^DD(404.53,.01,1,2,"%D",0)="^^3^3^2990324^^"
^DD(404.53,.01,1,2,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS(#.04), then by"
^DD(404.53,.01,1,2,"%D",2,0)="-EFFECTIVE DATE (#.02).  There are associated cross references for each of"
^DD(404.53,.01,1,2,"%D",3,0)="these fields."
^DD(404.53,.01,1,2,"DT")="2990317"
^DD(404.53,.01,1,3,0)="404.53^AEVENT1^MUMPS"
^DD(404.53,.01,1,3,1)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.01,1,3,2)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.01,1,3,"%D",0)="^^1^1^2990507^"
^DD(404.53,.01,1,3,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.53,.01,1,3,"DT")="2990507"
^DD(404.53,.01,1,4,0)="^^TRIGGER^404.53^.07"
^DD(404.53,.01,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.53,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(404.53,.01,1,4,1.4)"
^DD(404.53,.01,1,4,1.4)="S DIH=$S($D(^SCTM(404.53,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.53,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.53,.01,1,4,2)="Q"
^DD(404.53,.01,1,4,"%D",0)="^^2^2^2990630^"
^DD(404.53,.01,1,4,"%D",1,0)="This trigger is intended to populate the USER ENTERING field of this file.  It"
^DD(404.53,.01,1,4,"%D",2,0)="is to record who entered this entry."
^DD(404.53,.01,1,4,"CREATE VALUE")="S X=DUZ"
^DD(404.53,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(404.53,.01,1,4,"DT")="2990630"
^DD(404.53,.01,1,4,"FIELD")="USER"
^DD(404.53,.01,1,5,0)="^^TRIGGER^404.53^.08"
^DD(404.53,.01,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCTM(404.53,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(404.53,.01,1,5,1.1) X ^DD(404.53,.01,1,5,1.4)"
^DD(404.53,.01,1,5,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(404.53,.01,1,5,1.4)="S DIH=$S($D(^SCTM(404.53,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.53,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.53,.01,1,5,2)="Q"
^DD(404.53,.01,1,5,"%D",0)="^^2^2^2990630^"
^DD(404.53,.01,1,5,"%D",1,0)="This trigger is intended to populate the date/time entered field.  This is the"
^DD(404.53,.01,1,5,"%D",2,0)="date/time the entry was added."
^DD(404.53,.01,1,5,"CREATE VALUE")="NOW"
^DD(404.53,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(404.53,.01,1,5,"DT")="2990630"
^DD(404.53,.01,1,5,"FIELD")="DATE"
^DD(404.53,.01,3)="This is the entry in the Team Position file."
^DD(404.53,.01,21,0)="^^1^1^2990317^^"
^DD(404.53,.01,21,1,0)="This is the entry in the Team Position file."
^DD(404.53,.01,"DT")="2990630"
^DD(404.53,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.53,.02,1,0)="^.1"
^DD(404.53,.02,1,1,0)="404.53^AIDT1^MUMPS"
^DD(404.53,.02,1,1,1)="N SC1,SC2 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"""" S ^SCTM(404.53,""AIDT"",SC1,SC2,-X,DA)="""""
^DD(404.53,.02,1,1,2)="N SC1,SC2 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,4) I SC2]"""" K ^SCTM(404.53,""AIDT"",SC1,SC2,-X,DA)"
^DD(404.53,.02,1,1,"%D",0)="^^3^3^2990515^^"
^DD(404.53,.02,1,1,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS (#.04), then by"
^DD(404.53,.02,1,1,"%D",2,0)="-EFFECTIVE DATE(#.02).  There are associated cross references fo r each of"
^DD(404.53,.02,1,1,"%D",3,0)="these fields."
^DD(404.53,.02,1,1,"DT")="2990515"
^DD(404.53,.02,1,2,0)="404.53^AIDTP1^MUMPS"
^DD(404.53,.02,1,2,1)="N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC2=$P(SCX,U,2) I SC2]"""" S SC6=$P(SCX,U,6) I SC6]"""" S ^SCTM(404.53,""AIDTP"",SC6,SC4,-SC2,DA)="""""
^DD(404.53,.02,1,2,2)="N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC2=$P(SCX,U,2) I SC2]"""" S SC6=$P(SCX,U,6) I SC6]"""" K ^SCTM(404.53,""AIDTP"",SC6,SC4,-SC2,DA)"
^DD(404.53,.02,1,2,"%D",0)="^^3^3^2990325^"
^DD(404.53,.02,1,2,"%D",1,0)="This sorts by PRECEPTOR TEAM POSITION(#.06), then by STATUS (#.04), then"
^DD(404.53,.02,1,2,"%D",2,0)="by -EFFECTIVE DATE (#.02).  There are associated cross references for each"
^DD(404.53,.02,1,2,"%D",3,0)="of these fields."
^DD(404.53,.02,1,2,"DT")="2990325"
^DD(404.53,.02,1,3,0)="404.53^AEVENT2^MUMPS"
^DD(404.53,.02,1,3,1)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.02,1,3,2)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.02,1,3,"%D",0)="^^1^1^2990507^"
^DD(404.53,.02,1,3,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.53,.02,1,3,"DT")="2990507"
^DD(404.53,.02,3)="This is the date/time that the practitioner took over precepting the position."
^DD(404.53,.02,21,0)="^^2^2^2990317^^"
^DD(404.53,.02,21,1,0)="This is the date/time that the practitioner took over precepting the"
^DD(404.53,.02,21,2,0)="position."
^DD(404.53,.02,"DT")="2990515"
^DD(404.53,.04,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;4^Q"
^DD(404.53,.04,1,0)="^.1"
^DD(404.53,.04,1,1,0)="404.53^AIDT2^MUMPS"
^DD(404.53,.04,1,1,1)="N SC1,SC3 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.53,""AIDT"",SC1,X,-SC3,DA)="""""
^DD(404.53,.04,1,1,2)="N SC1,SC3 S SC1=$P($G(^SCTM(404.53,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.53,""AIDT"",SC1,X,-SC3,DA)="""""
^DD(404.53,.04,1,1,"%D",0)="^^3^3^2990324^^"
^DD(404.53,.04,1,1,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS (#.04), then by"
^DD(404.53,.04,1,1,"%D",2,0)="-EFFECTIVE DATE(#.02).  There are associated cross references fo r each of"
^DD(404.53,.04,1,1,"%D",3,0)="these fields."
^DD(404.53,.04,1,1,"DT")="2990324"
^DD(404.53,.04,1,2,0)="404.53^AIDTP2^MUMPS"
^DD(404.53,.04,1,2,1)="N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC2=$P(SCX,U,2) I SC2]"""" S SC6=$P(SCX,U,6) I SC6]"""" S ^SCTM(404.53,""AIDTP"",SC6,SC4,-SC2,DA)="""""
^DD(404.53,.04,1,2,2)="N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC2=$P(SCX,U,2) I SC2]"""" S SC6=$P(SCX,U,6) I SC6]"""" K ^SCTM(404.53,""AIDTP"",SC6,SC4,-SC2,DA)"
^DD(404.53,.04,1,2,"%D",0)="^^3^3^2990325^"
^DD(404.53,.04,1,2,"%D",1,0)="This sorts by PRECEPTOR TEAM POSITION(#.06), then by STATUS (#.04), then"
^DD(404.53,.04,1,2,"%D",2,0)="by -EFFECTIVE DATE (#.02).  There are associated cross references for each"
^DD(404.53,.04,1,2,"%D",3,0)="of these fields."
^DD(404.53,.04,1,2,"DT")="2990325"
^DD(404.53,.04,1,3,0)="404.53^AEVENT3^MUMPS"
^DD(404.53,.04,1,3,1)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.04,1,3,2)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.04,1,3,"%D",0)="^^1^1^2990507^"
^DD(404.53,.04,1,3,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.53,.04,1,3,"DT")="2990507"
^DD(404.53,.04,3)="This indicates if the preceptor link is active or not."
^DD(404.53,.04,21,0)="^^1^1^2990317^"
^DD(404.53,.04,21,1,0)="This indicates if the preceptor link is active or not."
^DD(404.53,.04,"DT")="2990507"
^DD(404.53,.05,0)="STATUS REASON^*P403.44'^SD(403.44,^0;5^S DIC(""S"")=""IF $$RSNDICS^SCAPMCU1(""""ZM6"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.53,.05,3)="This is the reason the preceptor link changed."
^DD(404.53,.05,12)="This is the reason the preceptor link changed."
^DD(404.53,.05,12.1)="S DIC(""S"")=""IF $$RSNDICS^SCAPMCU1(""""ZM6"""")"""
^DD(404.53,.05,21,0)="^^1^1^2990319^^"
^DD(404.53,.05,21,1,0)="This is the reason the preceptor link changed."
^DD(404.53,.05,"DT")="2990319"
^DD(404.53,.06,0)="PRECEPTOR TEAM POSITION^RP404.57'^SCTM(404.57,^0;6^Q"
^DD(404.53,.06,1,0)="^.1"
^DD(404.53,.06,1,1,0)="404.53^D"
^DD(404.53,.06,1,1,1)="S ^SCTM(404.53,""D"",$E(X,1,30),DA)="""""
^DD(404.53,.06,1,1,2)="K ^SCTM(404.53,""D"",$E(X,1,30),DA)"
^DD(404.53,.06,1,1,"DT")="2990317"
^DD(404.53,.06,1,2,0)="404.53^AEVENT4^MUMPS"
^DD(404.53,.06,1,2,1)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.06,1,2,2)="D PREHXREF^SCMCHLX(DA)"
^DD(404.53,.06,1,2,"%D",0)="^^1^1^2990507^"
^DD(404.53,.06,1,2,"%D",1,0)="Trigger an entry into PCMM HL7 EVENT file when this field is edited."
^DD(404.53,.06,1,2,"DT")="2990507"
^DD(404.53,.06,1,3,0)="404.53^AD^MUMPS"
^DD(404.53,.06,1,3,1)="N SC1,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC1=$P(SCX,U) I SC1]"""" S SC6=$P(SCX,U,6) I SC6]"""" S ^SCTM(404.53,""AD"",SC6,SC1,SC4,DA)="""""
^DD(404.53,.06,1,3,2)="N SC1,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC1=$P(SCX,U) I SC1]"""" S SC6=$P(SCX,U,6) I SC6]"""" K ^SCTM(404.53,""AD"",SC6,SC1,SC4,DA)"
^DD(404.53,.06,1,3,"%D",0)="^^2^2^2990407^"
^DD(404.53,.06,1,3,"%D",1,0)="Sorts for preceptor links from top down.  Sorts by preceptor position,"
^DD(404.53,.06,1,3,"%D",2,0)="precepted position, and status."
^DD(404.53,.06,1,3,"DT")="2990407"
^DD(404.53,.06,1,4,0)="404.53^AIDTP^MUMPS"
^DD(404.53,.06,1,4,1)="N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC2=$P(SCX,U,2) I SC2]"""" S SC6=$P(SCX,U,6) I SC6]"""" S ^SCTM(404.53,""AIDTP"",SC6,SC4,-SC2,DA)="""""
^DD(404.53,.06,1,4,2)="N SC2,SC4,SC6,SCX S SCX=$G(^SCTM(404.53,DA,0)),SC4=$P(SCX,U,4) I SC4]"""" S SC2=$P(SCX,U,2) I SC2]"""" S SC6=$P(SCX,U,6) I SC6]"""" K ^SCTM(404.53,""AIDTP"",SC6,SC4,-SC2,DA)"
^DD(404.53,.06,1,4,"%D",0)="^^3^3^2990604^"
^DD(404.53,.06,1,4,"%D",1,0)="This sorts by PRECEPTOR TEAM POSITION(#.06), then by STATUS (#.04), then"
^DD(404.53,.06,1,4,"%D",2,0)="by -EFFECTIVE DATE (#.02).  There are associated cross references for each"
^DD(404.53,.06,1,4,"%D",3,0)="of these fields."
^DD(404.53,.06,1,4,"DT")="2990604"
^DD(404.53,.06,3)="Enter the position that supervises this position."
^DD(404.53,.06,21,0)="^^1^1^2990429^^^^"
^DD(404.53,.06,21,1,0)="This is the preceptor's team position."
^DD(404.53,.06,"DT")="2990604"
^DD(404.53,.07,0)="USER ENTERING^P200'^VA(200,^0;7^Q"
^DD(404.53,.07,3)="Enter the user that is responsible for this entry."
^DD(404.53,.07,5,1,0)="404.53^.01^4"
^DD(404.53,.07,21,0)="^^2^2^2990630^"
^DD(404.53,.07,21,1,0)="This field contains the user that created this entry.  It is triggered from the"
^DD(404.53,.07,21,2,0)=".01 field of this file."
^DD(404.53,.07,"DT")="2990630"
^DD(404.53,.08,0)="DATE/TIME ENTERED^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.53,.08,3)="This is the date/time this entry was added."
^DD(404.53,.08,5,1,0)="404.53^.01^5"
^DD(404.53,.08,21,0)="^^2^2^2990630^"
^DD(404.53,.08,21,1,0)="This is the date/time this entry was added.  It is triggered from the .01 field"
^DD(404.53,.08,21,2,0)="of this file."
^DD(404.53,.08,"DT")="2990630"
^DD(404.53,200,0)="PRECEPTOR NAME^CJ30^^ ; ^S X=$P($$GETPRTP^SCAPMCU2($P(^SCTM(404.53,D0,0),U,6),$P(^SCTM(404.53,D0,0),U,2)),U,2)"
^DD(404.53,200,9)="^"
^DD(404.53,200,9.01)=""
^DD(404.53,200,9.1)="S X=$P($$GETPRTP^SCAPMCU2($P(^SCTM(404.53,D0,0),U,6),$P(^SCTM(404.53,D0,0),U,2)),U,2)"
^DD(404.53,200,"DT")="2990326"
^DD(404.53,"B","DATE/TIME ENTERED",.08)=""
^DD(404.53,"B","EFFECTIVE DATE",.02)=""
^DD(404.53,"B","PRECEPTOR NAME",200)=""
^DD(404.53,"B","PRECEPTOR TEAM POSITION",.06)=""
^DD(404.53,"B","STATUS",.04)=""
^DD(404.53,"B","STATUS REASON",.05)=""
^DD(404.53,"B","TEAM POSITION",.01)=""
^DD(404.53,"B","USER ENTERING",.07)=""
^DD(404.53,"GL",0,1,.01)=""
^DD(404.53,"GL",0,2,.02)=""
^DD(404.53,"GL",0,4,.04)=""
^DD(404.53,"GL",0,5,.05)=""
^DD(404.53,"GL",0,6,.06)=""
^DD(404.53,"GL",0,7,.07)=""
^DD(404.53,"GL",0,8,.08)=""
^DD(404.53,"IX",.01)=""
^DD(404.53,"IX",.02)=""
^DD(404.53,"IX",.04)=""
^DD(404.53,"IX",.06)=""
^DD(404.53,"RQ",.01)=""
^DD(404.53,"RQ",.02)=""
^DD(404.53,"RQ",.04)=""
^DD(404.53,"RQ",.06)=""
^DD(404.56,0)="FIELD^^.02^2"
^DD(404.56,0,"DT")="2950403"
^DD(404.56,0,"ID",.02)="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,2),1:"""") D NAME^DICM2 W ""   "",DINAME,@(""$E(""_DIC_""Y,0),0)"")"
^DD(404.56,0,"IX","AC",404.56,.01)=""
^DD(404.56,0,"IX","AC1",404.56,.02)=""
^DD(404.56,0,"IX","APRIMARY",404.56,.01)=""
^DD(404.56,0,"IX","APRIMARY1",404.56,.02)=""
^DD(404.56,0,"IX","B",404.56,.01)=""
^DD(404.56,0,"NM","TEAM AUTOLINK")=""
^DD(404.56,0,"VR")="5.3"
^DD(404.56,0,"VRPK")="SD"
^DD(404.56,.01,0)="TEAM^RP404.51'^SCTM(404.51,^0;1^Q"
^DD(404.56,.01,1,0)="^.1"
^DD(404.56,.01,1,1,0)="404.56^B"
^DD(404.56,.01,1,1,1)="S ^SCTM(404.56,""B"",$E(X,1,30),DA)="""""
^DD(404.56,.01,1,1,2)="K ^SCTM(404.56,""B"",$E(X,1,30),DA)"
^DD(404.56,.01,1,2,0)="404.56^APRIMARY^MUMPS"
^DD(404.56,.01,1,2,1)="N SC2 S SC2=$P($G(^SCTM(404.56,DA,0)),U,2) I SC2]"""" S ^SCTM(404.56,""APRIMARY"",X,SC2,DA)="""""
^DD(404.56,.01,1,2,2)="N SC2 S SC2=$P($G(^SCTM(404.56,DA,0)),U,2) I SC2]"""" K ^SCTM(404.56,""APRIMARY"",X,SC2,DA)"
^DD(404.56,.01,1,2,"%D",0)="^^1^1^2950403^^"
^DD(404.56,.01,1,2,"%D",1,0)="This sorts by TEAM(#.01), then by AUTOLINK(#.02).  There are associated cross references for each of these fields."
^DD(404.56,.01,1,2,"DT")="2950403"
^DD(404.56,.01,1,3,0)="404.56^AC^MUMPS"
^DD(404.56,.01,1,3,1)="N SC1 S SC1=$P($G(^SCTM(404.56,DA,0)),U,2) I SC1]"""" S ^SCTM(404.56,""AC"",SC1,X,DA)="""""
^DD(404.56,.01,1,3,2)="N SC1 S SC1=$P($G(^SCTM(404.56,DA,0)),U,2) I SC1]"""" K ^SCTM(404.56,""AC"",SC1,X,DA)"
^DD(404.56,.01,1,3,"%D",0)="^^1^1^2950403^^"
^DD(404.56,.01,1,3,"%D",1,0)="This sorts by AUTOLINK(#.02), then by TEAM(#.01).  There is an associated cross reference for the AUTOLINK Field (#.02)."
^DD(404.56,.01,1,3,"DT")="2950403"
^DD(404.56,.01,3)=""
^DD(404.56,.01,"DT")="2950403"
^DD(404.56,.02,0)="AUTOLINK^RV^^0;2^Q"
^DD(404.56,.02,1,0)="^.1"
^DD(404.56,.02,1,1,0)="404.56^APRIMARY1^MUMPS"
^DD(404.56,.02,1,1,1)="N SC1 S SC1=$P($G(^SCTM(404.56,DA,0)),U,1) I SC1 S ^SCTM(404.56,""APRIMARY"",SC1,X,DA)="""""
^DD(404.56,.02,1,1,2)="N SC1 S SC1=$P($G(^SCTM(404.56,DA,0)),U,1) I SC1 K ^SCTM(404.56,""APRIMARY"",SC1,X,DA)"
^DD(404.56,.02,1,1,"%D",0)="^^1^1^2950403^"
^DD(404.56,.02,1,1,"%D",1,0)="This sorts by TEAM(#.01), then by AUTOLINK(#.02).  There are associated cross references for each of these fields."
^DD(404.56,.02,1,1,"DT")="2950403"
^DD(404.56,.02,1,2,0)="404.56^AC1^MUMPS"
^DD(404.56,.02,1,2,1)="N SC2 S SC2=$P($G(^SCTM(404.56,DA,0)),U,1) I SC2 S ^SCTM(404.56,""AC"",X,SC2,DA)="""""
^DD(404.56,.02,1,2,2)="N SC2 S SC2=$P($G(^SCTM(404.56,DA,0)),U,1) I SC2 K ^SCTM(404.56,""AC"",X,SC2,DA)"
^DD(404.56,.02,1,2,"%D",0)="^^1^1^2950403^"
^DD(404.56,.02,1,2,"%D",1,0)="This sorts by AUTOLINK(#.02), then by TEAM(#.01).  There is an associated cross reference for the TEAM Field (#.01)."
^DD(404.56,.02,1,2,"DT")="2950403"
^DD(404.56,.02,3)="Enter the file and entry the team will be linked to for automatic patient updates during ADT movements."
^DD(404.56,.02,21,0)="^^1^1^2950403^^"
^DD(404.56,.02,21,1,0)="Links for automatic patient addition/removal based on ADT movements."
^DD(404.56,.02,"DT")="2950403"
^DD(404.56,.02,"V",0)="^.12P^5^5"
^DD(404.56,.02,"V",1,0)="42^WARD^1^W^n^n"
^DD(404.56,.02,"V",2,0)="405.4^ROOM-BED^2^R^n^n"
^DD(404.56,.02,"V",3,0)="200^PRACTITIONER^3^P^y^n"
^DD(404.56,.02,"V",3,1)="S DIC(""S"")=""I $D(X),$D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(404.56,.02,"V",3,2)="Allows only personnel with 'provider' key."
^DD(404.56,.02,"V",4,0)="45.7^SPECIALTY^4^S^n^n"
^DD(404.56,.02,"V",5,0)="44^CLINIC^5^C^y^n"
^DD(404.56,.02,"V",5,1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(404.56,.02,"V",5,2)="Allows only clinic locations"
^DD(404.56,.02,"V","B",42,1)=""
^DD(404.56,.02,"V","B",44,5)=""
^DD(404.56,.02,"V","B",45.7,4)=""
^DD(404.56,.02,"V","B",200,3)=""
^DD(404.56,.02,"V","B",405.4,2)=""
^DD(404.56,.02,"V","M","CLINIC",5)=""
^DD(404.56,.02,"V","M","PRACTITIONER",3)=""
^DD(404.56,.02,"V","M","ROOM-BED",2)=""
^DD(404.56,.02,"V","M","SPECIALTY",4)=""
^DD(404.56,.02,"V","M","WARD",1)=""
^DD(404.56,.02,"V","O",1,1)=""
^DD(404.56,.02,"V","O",2,2)=""
^DD(404.56,.02,"V","O",3,3)=""
^DD(404.56,.02,"V","O",4,4)=""
^DD(404.56,.02,"V","O",5,5)=""
^DD(404.56,.02,"V","P","C",5)=""
^DD(404.56,.02,"V","P","P",3)=""
^DD(404.56,.02,"V","P","R",2)=""
^DD(404.56,.02,"V","P","S",4)=""
^DD(404.56,.02,"V","P","W",1)=""
^DD(404.56,"B","AUTOLINK",.02)=""
^DD(404.56,"B","TEAM",.01)=""
^DD(404.56,"GL",0,1,.01)=""
^DD(404.56,"GL",0,2,.02)=""
^DD(404.56,"IX",.01)=""
^DD(404.56,"IX",.02)=""
^DD(404.56,"RQ",.01)=""
^DD(404.56,"RQ",.02)=""
^DD(404.57,0)="FIELD^^402^37"
^DD(404.57,0,"DDA")="N"
^DD(404.57,0,"DT")="3040323"
^DD(404.57,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCTM(404.51,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(404.51,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(404.57,0,"ID","WRITE")="D EN^DDIOL($$WRITETP^SCMCDD1(Y),"""",""?0"")"
^DD(404.57,0,"IX","AC",404.57,.03)=""
^DD(404.57,0,"IX","APRIMARY",404.57,.01)=""
^DD(404.57,0,"IX","APRIMARY1",404.57,.02)=""
^DD(404.57,0,"IX","ASCTEAM",404.57,.09)=""
^DD(404.57,0,"IX","ATMPOS",404.57,.01)=""
^DD(404.57,0,"IX","ATMPOS1",404.57,.02)=""
^DD(404.57,0,"IX","AUSR",404.57,.13)=""
^DD(404.57,0,"IX","B",404.57,.01)=""
^DD(404.57,0,"IX","C",404.57,.02)=""
^DD(404.57,0,"IX","E",404.575,.01)=""
^DD(404.57,0,"NM","TEAM POSITION")=""
^DD(404.57,0,"PT",44.40457,.01)=""
^DD(404.57,0,"PT",403.34,.01)=""
^DD(404.57,0,"PT",404.4143,.02)=""
^DD(404.57,0,"PT",404.43,.02)=""
^DD(404.57,0,"PT",404.471,.07)=""
^DD(404.57,0,"PT",404.48,.07)=""
^DD(404.57,0,"PT",404.52,.01)=""
^DD(404.57,0,"PT",404.53,.01)=""
^DD(404.57,0,"PT",404.53,.06)=""
^DD(404.57,0,"PT",404.57,.1)=""
^DD(404.57,0,"PT",404.59,.01)=""
^DD(404.57,0,"PT",409.3,6)=""
^DD(404.57,0,"PT",500065,.01)=""
^DD(404.57,0,"VR")="5.3"
^DD(404.57,0,"VRPK")="SD"
^DD(404.57,.01,0)="POSITION^RFX^^0;1^N SCZ K:$L(X)>30!($L(X)<3) X D:$D(X) IPTF^SCMCTPU(X,.SCZ,.X)"
^DD(404.57,.01,1,0)="^.1"
^DD(404.57,.01,1,1,0)="404.57^B"
^DD(404.57,.01,1,1,1)="S ^SCTM(404.57,""B"",$E(X,1,30),DA)="""""
^DD(404.57,.01,1,1,2)="K ^SCTM(404.57,""B"",$E(X,1,30),DA)"
^DD(404.57,.01,1,2,0)="404.57^APRIMARY^MUMPS"
^DD(404.57,.01,1,2,1)="N SC2 S SC2=$P($G(^SCTM(404.57,DA,0)),U,2) I SC2 S ^SCTM(404.57,""APRIMARY"",X,SC2,DA)="""""
^DD(404.57,.01,1,2,2)="N SC2 S SC2=$P($G(^SCTM(404.57,DA,0)),U,2) I SC2 K ^SCTM(404.57,""APRIMARY"",X,SC2,DA)"
^DD(404.57,.01,1,2,"%D",0)="^^1^1^2951214^^^^"
^DD(404.57,.01,1,2,"%D",1,0)="This sorts by POSITION(#.01), then by TEAM(#.02).  There is an associated cross reference for the TEAM Field (#.02)."
^DD(404.57,.01,1,2,"DT")="2950503"
^DD(404.57,.01,1,3,0)="404.57^ATMPOS^MUMPS"
^DD(404.57,.01,1,3,1)="N SC1 S SC1=$P($G(^SCTM(404.57,DA,0)),U,2) I SC1 S ^SCTM(404.57,""ATMPOS"",SC1,X,DA)="""""
^DD(404.57,.01,1,3,2)="N SC1 S SC1=$P($G(^SCTM(404.57,DA,0)),U,2) I SC1 K ^SCTM(404.57,""ATMPOS"",SC1,X,DA)"
^DD(404.57,.01,1,3,"%D",0)="^^1^1^2950503^"
^DD(404.57,.01,1,3,"%D",1,0)="This sorts by TEAM(#.02), then by POSITION(#.01).  There is an associated cross reference for the TEAM Field (#.02)."
^DD(404.57,.01,1,3,"DT")="2950503"
^DD(404.57,.01,3)="Answer must be 3-30 characters in length - No duplicate position names within a team."
^DD(404.57,.01,21,0)="^.001^1^1^3051011^^^^"
^DD(404.57,.01,21,1,0)="This is the Name of the Team Position."
^DD(404.57,.01,"DT")="2960306"
^DD(404.57,.02,0)="TEAM^RP404.51'X^SCTM(404.51,^0;2^N SC D:$D(X)#2 IPTF^SCMCTPU(.SC,X,.X)"
^DD(404.57,.02,1,0)="^.1"
^DD(404.57,.02,1,1,0)="404.57^APRIMARY1^MUMPS"
^DD(404.57,.02,1,1,1)="N SC1 S SC1=$P($G(^SCTM(404.57,DA,0)),U,1) I SC1]"""" S ^SCTM(404.57,""APRIMARY"",SC1,X,DA)="""""
^DD(404.57,.02,1,1,2)="N SC1 S SC1=$P($G(^SCTM(404.57,DA,0)),U,1) I SC1]"""" K ^SCTM(404.57,""APRIMARY"",SC1,X,DA)"
^DD(404.57,.02,1,1,"%D",0)="^^1^1^2951214^^^^"
^DD(404.57,.02,1,1,"%D",1,0)="This sorts by POSITION(#.01), then by TEAM(#.02).  There is an associated cross reference for the POSITION Field (#.01)."
^DD(404.57,.02,1,1,"DT")="2950503"
^DD(404.57,.02,1,2,0)="404.57^C"
^DD(404.57,.02,1,2,1)="S ^SCTM(404.57,""C"",$E(X,1,30),DA)="""""
^DD(404.57,.02,1,2,2)="K ^SCTM(404.57,""C"",$E(X,1,30),DA)"
^DD(404.57,.02,1,2,"DT")="2950308"
^DD(404.57,.02,1,3,0)="404.57^ATMPOS1^MUMPS"
^DD(404.57,.02,1,3,1)="N SC2 S SC2=$P($G(^SCTM(404.57,DA,0)),U,1) I SC2]"""" S ^SCTM(404.57,""ATMPOS"",X,SC2,DA)="""""
^DD(404.57,.02,1,3,2)="N SC2 S SC2=$P($G(^SCTM(404.57,DA,0)),U,1) I SC2]"""" K ^SCTM(404.57,""ATMPOS"",X,SC2,DA)"
^DD(404.57,.02,1,3,"%D",0)="^^1^1^2950503^"
^DD(404.57,.02,1,3,"%D",1,0)="This sorts by TEAM(#.02), then by POSITION(#.01).  There is an associated cross reference for the POSITION Field (#.01)."
^DD(404.57,.02,1,3,"DT")="2950503"
^DD(404.57,.02,3)="This is the entry in the team File"
^DD(404.57,.02,21,0)="^^1^1^2951128^^^^"
^DD(404.57,.02,21,1,0)="Entry in the team file."
^DD(404.57,.02,23,0)="^^1^1^2951128^^"
^DD(404.57,.02,23,1,0)="Pointer  to TEAM File (#404.51)"
^DD(404.57,.02,"DT")="2950905"
^DD(404.57,.03,0)="STANDARD ROLE NAME^RP403.46'^SD(403.46,^0;3^Q"
^DD(404.57,.03,1,0)="^.1"
^DD(404.57,.03,1,1,0)="404.57^AC"
^DD(404.57,.03,1,1,1)="S ^SCTM(404.57,""AC"",$E(X,1,30),DA)="""""
^DD(404.57,.03,1,1,2)="K ^SCTM(404.57,""AC"",$E(X,1,30),DA)"
^DD(404.57,.03,1,1,"DT")="2960126"
^DD(404.57,.03,3)="This is the associated standard position from the list provided by VACO."
^DD(404.57,.03,21,0)="^^3^3^2950228^^^"
^DD(404.57,.03,21,1,0)="Standard role the provider performs as part of this team."
^DD(404.57,.03,21,2,0)=" "
^DD(404.57,.03,21,3,0)="These standard positions are defined by Central Office."
^DD(404.57,.03,"DT")="2960126"
^DD(404.57,.04,0)="POSSIBLE PRIMARY PRACTITIONER?^S^1:YES;0:NO;^0;4^Q"
^DD(404.57,.04,3)="'YES' indicates that this position may function as primary practitioner or attending."
^DD(404.57,.04,21,0)="^^4^4^2990623^^^^"
^DD(404.57,.04,21,1,0)="Can this position be the primary care provider for a patient?"
^DD(404.57,.04,21,2,0)=" "
^DD(404.57,.04,21,3,0)="(Even if the position's principle purpose is not primary care, it still maybe able act as a primary care provider for some patients. This field indicates if that is possible.)"
^DD(404.57,.04,21,4,0)="Note: This also enables the position to be a PC Attending Position."
^DD(404.57,.04,"DT")="3030213"
^DD(404.57,.08,0)="MAX NUMBER OF PATIENTS^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.57,.08,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(404.57,.08,21,0)="^^2^2^2960528^^^"
^DD(404.57,.08,21,1,0)="Once the current number of assigned patients reaches this"
^DD(404.57,.08,21,2,0)="level, further assignment of this position should be avoided."
^DD(404.57,.08,"DT")="3030213"
^DD(404.57,.09,0)="ASSOCIATED CLINIC^P44'^SC(^0;9^Q"
^DD(404.57,.09,1,0)="^.1^^-1"
^DD(404.57,.09,1,2,0)="404.57^ASCTEAM^MUMPS"
^DD(404.57,.09,1,2,1)="D SETSCTM^SCMCDD2(DA,X)"
^DD(404.57,.09,1,2,2)="D KILLSCTM^SCMCDD2(DA,X)"
^DD(404.57,.09,1,2,"%D",0)="^^4^4^2960401^"
^DD(404.57,.09,1,2,"%D",1,0)="This edits the whole cross reference in the Hospital Location File (#44),"
^DD(404.57,.09,1,2,"%D",2,0)="'TEAM'.  This cross-reference allows users to use the team name to find"
^DD(404.57,.09,1,2,"%D",3,0)="clinics associated with the team's team positions.  See the 'ASCTEAM'"
^DD(404.57,.09,1,2,"%D",4,0)="cross-reference of the TEAM (#404.51) File's NAME (#.01) Field."
^DD(404.57,.09,1,2,"DT")="2960401"
^DD(404.57,.09,3)="Field is no longer used "
^DD(404.57,.09,12)="Allows only clinic locations."
^DD(404.57,.09,12.1)="S DIC(""S"")=""IF $P(^(0),""""^"""",3)=""""C"""""""
^DD(404.57,.09,21,0)="^^3^3^3080129^"
^DD(404.57,.09,21,1,0)="This field is no longer updated since the release of SD*5.3*297."
^DD(404.57,.09,21,2,0)=" "
^DD(404.57,.09,21,3,0)="during various appointing and information processes."
^DD(404.57,.09,23,0)="^^1^1^3080129^^"
^DD(404.57,.09,23,1,0)="NO LONGER UPDATED WITH RELEASE OF SD*5.3*297"
^DD(404.57,.09,"DT")="3080129"
^DD(404.57,.1,0)="*PRECEPTOR POSITION^*P404.57'^SCTM(404.57,^0;10^S DIC(""S"")=""I $$OKPREC^SCAPMCU1($P(^SCTM(404.57,DA,0),U,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.57,.1,1,0)="^.1^^0"
^DD(404.57,.1,3)="Enter position that supervises this current position."
^DD(404.57,.1,12)="requires preceptor to be of team & possible preceptor"
^DD(404.57,.1,12.1)="S DIC(""S"")=""I $$OKPREC^SCAPMCU1($P(^SCTM(404.57,DA,0),U,2))"""
^DD(404.57,.1,21,0)="^^5^5^2950717^^^^"
^DD(404.57,.1,21,1,0)="This field contains the name of the Team Position that is responsible for"
^DD(404.57,.1,21,2,0)="supervising this current position."
^DD(404.57,.1,21,3,0)=" "
^DD(404.57,.1,21,4,0)="It is an optional field. However, when indicated, this field usually"
^DD(404.57,.1,21,5,0)="contains an attending position."
^DD(404.57,.1,"DT")="2990610"
^DD(404.57,.11,0)="BEEPER NUMBER^F^^0;11^K:$L(X)>20!($L(X)<3) X"
^DD(404.57,.11,3)="Answer must be 3-20 characters in length."
^DD(404.57,.11,21,0)="^^1^1^2950801^^"
^DD(404.57,.11,21,1,0)="This is the pager or beeper number that is used by this team position."
^DD(404.57,.11,"DT")="2950801"
^DD(404.57,.12,0)="CAN ACT AS PRECEPTOR?^S^1:YES;0:NO;^0;12^Q"
^DD(404.57,.12,3)="This indicates if position can supervise other positions."
^DD(404.57,.12,21,0)="^^2^2^2950717^"
^DD(404.57,.12,21,1,0)="By answering 'YES', this position may be used as a preceptor position"
^DD(404.57,.12,21,2,0)="for the team."
^DD(404.57,.12,"DT")="2950717"
^DD(404.57,.13,0)="USER CLASS^P8930'^USR(8930,^0;13^Q"
^DD(404.57,.13,1,0)="^.1"
^DD(404.57,.13,1,1,0)="404.57^AUSR"
^DD(404.57,.13,1,1,1)="S ^SCTM(404.57,""AUSR"",$E(X,1,30),DA)="""""
^DD(404.57,.13,1,1,2)="K ^SCTM(404.57,""AUSR"",$E(X,1,30),DA)"
^DD(404.57,.13,1,1,"%D",0)="^^1^1^2960322^^"
^DD(404.57,.13,1,1,"%D",1,0)="This provides a x-ref on the USER CLASS Field"
^DD(404.57,.13,1,1,"DT")="2960322"
^DD(404.57,.13,3)="Class of users who will fill this position"
^DD(404.57,.13,21,0)="^^2^2^2960517^^^^"
^DD(404.57,.13,21,1,0)="This is an entry in the USR CLASS file to which anyone assigned to the"
^DD(404.57,.13,21,2,0)="position must belong."
^DD(404.57,.13,"DT")="2960517"
^DD(404.57,1,0)="POSITION DESCRIPTION^404.571^^1;0"
^DD(404.57,2.01,0)="DEATH MESSAGE^S^T:TEAM'S PATIENTS;P:POSITION'S PATIENTS;N:DO NOT SEND;^2;1^Q"
^DD(404.57,2.01,3)="This determines for which patients the position receives messages related to patient death."
^DD(404.57,2.01,21,0)="^.001^1^1^3030922^^^^"
^DD(404.57,2.01,21,1,0)="This determines for which patients the position receives messages related to patient death."
^DD(404.57,2.01,"DT")="2960502"
^DD(404.57,2.02,0)="INPATIENT MESSAGE^S^T:TEAM'S PATIENTS;P:POSITION'S PATIENTS;N:DO NOT SEND;^2;2^Q"
^DD(404.57,2.02,3)="This determines for which patients the position receives messages related to inpatient activity."
^DD(404.57,2.02,21,0)="^^1^1^2960502^^^^"
^DD(404.57,2.02,21,1,0)="This determines for which patients the position receives messages related to inpatient activity."
^DD(404.57,2.02,"DT")="2960502"
^DD(404.57,2.03,0)="TEAM MESSAGE^S^T:TEAM'S PATIENTS;P:POSITION'S PATIENTS;N:DO NOT SEND;^2;3^Q"
^DD(404.57,2.03,3)="This determines for which patients the position receives messages related to team activity."
^DD(404.57,2.03,21,0)="^^3^3^2960502^^^^"
^DD(404.57,2.03,21,1,0)="This determines for which patients the position receives messages related "
^DD(404.57,2.03,21,2,0)="to team activity such as assignment or re-assignment of a position or"
^DD(404.57,2.03,21,3,0)="team to the patient."
^DD(404.57,2.03,"DT")="2960502"
^DD(404.57,2.04,0)="CONSULT MESSAGE^S^T:TEAM'S PATIENTS;P:POSITION'S PATIENTS;N:DO NOT SEND;^2;4^Q"
^DD(404.57,2.04,3)="This determines for which patients the position receives messages related to activity in clinics to which the patient is not enrolled."
^DD(404.57,2.04,21,0)="^^1^1^2960502^^^^"
^DD(404.57,2.04,21,1,0)="This determines for which patients the position receives messages related to activity in clinics to which the patient is not enrolled."
^DD(404.57,2.04,"DT")="2960502"
^DD(404.57,2.05,0)="PRECEPTOR DEATH MESSAGE^S^1:YES;0:NO;^2;5^Q"
^DD(404.57,2.05,3)="Enter 'YES' if the preceptor should be notified on death entries."
^DD(404.57,2.05,21,0)="^^2^2^2990511^"
^DD(404.57,2.05,21,1,0)="A yes entry triggers a mailmessage on a death entry for the preceptor of"
^DD(404.57,2.05,21,2,0)="this position."
^DD(404.57,2.05,"DT")="2990511"
^DD(404.57,2.06,0)="PRECEPTOR INPATIENT MESSAGE^S^1:YES;0:NO;^2;6^Q"
^DD(404.57,2.06,3)="Enter 'YES' if the preceptor should be notified on inpatient activity."
^DD(404.57,2.06,21,0)="^^2^2^2990511^"
^DD(404.57,2.06,21,1,0)="A yes entry triggers a mailmessage on inpatient activity for the preceptor"
^DD(404.57,2.06,21,2,0)="ofthis position."
^DD(404.57,2.06,"DT")="2990511"
^DD(404.57,2.07,0)="PRECEPTOR TEAM MESSAGE^S^1:YES;0:NO;^2;7^Q"
^DD(404.57,2.07,3)="Enter 'YES' if the preceptor should be notified on team activity."
^DD(404.57,2.07,21,0)="^^2^2^2990511^"
^DD(404.57,2.07,21,1,0)="A yes entry triggers a mailmessage on team activity for the preceptor"
^DD(404.57,2.07,21,2,0)="of this position."
^DD(404.57,2.07,"DT")="2990511"
^DD(404.57,2.08,0)="PRECEPTOR CONSULT MESSAGE^S^1:YES;0:NO;^2;8^Q"
^DD(404.57,2.08,3)="Enter 'YES' if the preceptor should be notified on consult activity."
^DD(404.57,2.08,21,0)="^^2^2^2990511^"
^DD(404.57,2.08,21,1,0)="A yes entry triggers a mailmessage on consult activity for the preceptor"
^DD(404.57,2.08,21,2,0)="of this position."
^DD(404.57,2.08,"DT")="2990511"
^DD(404.57,2.09,0)="AUTOMATIC INACTIVATION MESSAGE^S^T:TEAM'S PATIENTS;P:POSITION'S PATIENTS;N:DO NOT SEND;^2;9^Q"
^DD(404.57,2.09,3)="This determines for which patients the position receives messages related to patient inactivation."
^DD(404.57,2.09,21,0)="^^1^1^3030922^"
^DD(404.57,2.09,21,1,0)="Determines where patient inactivation messages are sent"
^DD(404.57,2.09,"DT")="3030922"
^DD(404.57,2.1,0)="PRECEPTOR INACTIVATION MESSAGE^S^1:YES;0:NO;^2;10^Q"
^DD(404.57,2.1,3)="Enter 'YES' if the preceptor should be notified on automatic patient inactivation."
^DD(404.57,2.1,21,0)="^.001^1^1^3030922^^"
^DD(404.57,2.1,21,1,0)="Notify Preceptor if patient is automatically inactivated"
^DD(404.57,2.1,"DT")="3030922"
^DD(404.57,5,0)="ASSOCIATED CLINICS^404.575PA^^5;0"
^DD(404.57,5,21,0)="^.001^2^2^3071127^^^"
^DD(404.57,5,21,1,0)="Multiple Entry of Associated Clinics. This replaces single value "
^DD(404.57,5,21,2,0)="used before patch SD*5.3*297"
^DD(404.57,200,0)="CURRENT # OF PC PATIENTS^CJ8^^ ; ^S X=$$PCPOSCNT^SCAPMCU1(D0,DT)"
^DD(404.57,200,.1)="CURRENT NUMBER OF PRIMARY CARE PATIENTS"
^DD(404.57,200,9)="^"
^DD(404.57,200,9.01)=""
^DD(404.57,200,9.1)="S X=$$PCPOSCNT^SCAPMCU1(D0,DT)"
^DD(404.57,200,21,0)="^^2^2^2960520^^^^"
^DD(404.57,200,21,1,0)="This calculates the current number of Primary Care patients"
^DD(404.57,200,21,2,0)="for this team position."
^DD(404.57,200,"DT")="2950728"
^DD(404.57,201,0)="CURRENT # OF PATIENTS^CJ8^^ ; ^S X=$$PCPOSCNT^SCAPMCU1(D0,DT,0)"
^DD(404.57,201,9)="^"
^DD(404.57,201,9.01)=""
^DD(404.57,201,9.1)="S X=$$PCPOSCNT^SCAPMCU1(D0,DT,0)"
^DD(404.57,201,21,0)="^^2^2^2960520^"
^DD(404.57,201,21,1,0)="This is the number of all patients (primary care & otherwise) associated"
^DD(404.57,201,21,2,0)="with the team."
^DD(404.57,201,"DT")="3040322"
^DD(404.57,202,0)="FUTURE # OF PC PATIENTS^CJ8,0^^ ; ^S X=$$PCPOSCNT^SCAPMCU1(D0,DT,1,1) S X=$J(X,0,0)"
^DD(404.57,202,9)="^"
^DD(404.57,202,9.01)=""
^DD(404.57,202,9.1)="S X=$$PCPOSCNT^SCAPMCU1(D0,DT,1,1)"
^DD(404.57,202,21,0)="^^1^1^2990429^"
^DD(404.57,202,21,1,0)="The number of current AND future PC assignments to this team position."
^DD(404.57,203,0)="FUTURE # OF PATIENTS^CJ8,0^^ ; ^S X=$$PCPOSCNT^SCAPMCU1(D0,DT,0,1) S X=$J(X,0,0)"
^DD(404.57,203,9)="^"
^DD(404.57,203,9.01)=""
^DD(404.57,203,9.1)="S X=$$PCPOSCNT^SCAPMCU1(D0,DT,0,1)"
^DD(404.57,203,21,0)="^^1^1^2990429^"
^DD(404.57,203,21,1,0)="The number of current AND future assignments to this team position."
^DD(404.57,300,0)="CURRENT STATUS^CJ8^^ ; ^S X=$S((+$$ACTTP^SCMCTPU(D0)=1):""Active"",1:""Inactive"")"
^DD(404.57,300,9)="^"
^DD(404.57,300,9.01)=""
^DD(404.57,300,9.1)="S X=$S((+$$ACTTP^SCMCTPU(D0)=1):""Active"",1:""Inactive"")"
^DD(404.57,300,21,0)="^^1^1^2960213^^^^"
^DD(404.57,300,21,1,0)="This indicates if the team position is active on the current date."
^DD(404.57,300,"DT")="2950714"
^DD(404.57,301,0)="CURRENT EFFECTIVE DATE^CJ8^^ ; ^N Y S X="""" S Y=$P($$ACTTP^SCMCTPU(D0),U,2) D DD^%DT S X=Y"
^DD(404.57,301,9)="^"
^DD(404.57,301,9.01)=""
^DD(404.57,301,9.1)="N Y S X="""" S Y=$P($$ACTTP^SCMCTPU(D0),U,2) D DD^%DT S X=Y"
^DD(404.57,301,21,0)="^^1^1^2950807^^^^"
^DD(404.57,301,21,1,0)="This is the most recent date (not in future) that the active status changed."
^DD(404.57,302,0)="CURRENT ACTIVATION DATE^CJ8^^ ; ^N Y S X="""" S Y=$P($$DATES^SCAPMCU1(404.59,D0,DT),U,2) D DD^%DT S X=Y"
^DD(404.57,302,9)="^"
^DD(404.57,302,9.01)=""
^DD(404.57,302,9.1)="N Y S X="""" S Y=$P($$DATES^SCAPMCU1(404.59,D0,DT),U,2) D DD^%DT S X=Y"
^DD(404.57,302,21,0)="^^4^4^2950807^^^^"
^DD(404.57,302,21,1,0)="This is the activation date of the position based on today's date:"
^DD(404.57,302,21,2,0)="  For positions never active - this is the next date where the position is active"
^DD(404.57,302,21,3,0)="  For positions that are active now - this is the date it became active"
^DD(404.57,302,21,4,0)="  For positions that are currently inactive - this is the last activation date"
^DD(404.57,303,0)="CURRENT INACTIVATION DATE^CJ8^^ ; ^N Y S X="""" S Y=$P($$DATES^SCAPMCU1(404.59,D0,DT),U,3) D DD^%DT S X=Y"
^DD(404.57,303,9)="^"
^DD(404.57,303,9.01)=""
^DD(404.57,303,9.1)="N Y S X="""" S Y=$P($$DATES^SCAPMCU1(404.59,D0,DT),U,3) D DD^%DT S X=Y"
^DD(404.57,303,21,0)="^^2^2^2950807^^^^"
^DD(404.57,303,21,1,0)="If it is inactive, this is the day the position became inactive.  If it is"
^DD(404.57,303,21,2,0)="active it is the day the position will become inactive."
^DD(404.57,304,0)="CURRENT PRACTITIONER^CJ8^^ ; ^S X=$P($$GETPRTP^SCAPMCU2(D0,DT),U,2)"
^DD(404.57,304,9)="^"
^DD(404.57,304,9.01)=""
^DD(404.57,304,9.1)="S X=$P($$GETPRTP^SCAPMCU2(D0,DT),U,2)"
^DD(404.57,304,"DT")="3031113"
^DD(404.57,305,0)="CURRENT PRECEPTOR POSITION^CJ40^^ ; ^S X=$P($$OKPREC3^SCMCLK(D0,DT),U,2)"
^DD(404.57,305,9)="^"
^DD(404.57,305,9.01)=""
^DD(404.57,305,9.1)="S X=$P($$OKPREC3^SCMCLK(D0,DT),U,2)"
^DD(404.57,305,"DT")="2990412"
^DD(404.57,306,0)="CURRENT PRECEPTOR^CJ30^^ ; ^S X=$P($$OKPREC2^SCMCLK(D0,DT),U,2)"
^DD(404.57,306,9)="^"
^DD(404.57,306,9.01)=""
^DD(404.57,306,9.1)="S X=$P($$OKPREC2^SCMCLK(D0,DT),U,2)"
^DD(404.57,307,0)="ACTIVE PRECEPTS^CJ3^^ ; ^S X=$S(+$$OKPREC1^SCMCLK(D0,DT)=0:""YES"",1:"""")"
^DD(404.57,307,9)="^"
^DD(404.57,307,9.01)=""
^DD(404.57,307,9.1)="S X=$S(+$$OKPREC1^SCMCLK(D0,DT)=0:""YES"",1:"""")"
^DD(404.57,400,0)="ALLOW PRECEPTED CHANGE^CJ8^^ ; ^S X=$S($$OKPREC4^SCMCLK(D0)=1:""YES"",1:""NO"")"
^DD(404.57,400,9)="^"
^DD(404.57,400,9.01)=""
^DD(404.57,400,9.1)="S X=$S($$OKPREC4^SCMCLK(D0)=1:""YES"",1:""NO"")"
^DD(404.57,400,21,0)="^^4^4^2990624^"
^DD(404.57,400,21,1,0)="Determines if a patient assignment has been made after the date a position"
^DD(404.57,400,21,2,0)="became precepted.  A 'NO' return flags the GUI to always require an active"
^DD(404.57,400,21,3,0)="preceptor assignment and disables the 'can act as preceptor' and 'can act"
^DD(404.57,400,21,4,0)="as preceptor' controls."
^DD(404.57,401,0)="ALLOW PRECEPTOR CHANGE^CJ8^^ ; ^S X=$S($$OKPREC1^SCMCLK(D0,1)=1:""YES"",1:""NO"")"
^DD(404.57,401,9)="^"
^DD(404.57,401,9.01)=""
^DD(404.57,401,9.1)="S X=$S($$OKPREC1^SCMCLK(D0,1)=1:""YES"",1:""NO"")"
^DD(404.57,401,21,0)="^^4^4^2990624^"
^DD(404.57,401,21,1,0)="Determines if a preceptor assignment has been made after the date a"
^DD(404.57,401,21,2,0)="position became preceptor.  A 'NO' return flags the GUI to always require"
^DD(404.57,401,21,3,0)="an active staff assignment and disables the 'can act as preceptor' and"
^DD(404.57,401,21,4,0)="'can act as preceptor' controls."
^DD(404.57,402,0)="STAFF/POS INCONSISTENT REASON^CJ40^^ ; ^D POSIN^SCMCTSK3(D0)"
^DD(404.57,402,9)="^"
^DD(404.57,402,9.01)=""
^DD(404.57,402,9.1)="D POSIN^SCMCTSK3(D0)"
^DD(404.57,402,21,0)="^^4^4^3040402^"
^DD(404.57,402,21,1,0)="This is a computed field that checks for any inconsistency"
^DD(404.57,402,21,2,0)="between the Position Role, PC assignment and the Person"
^DD(404.57,402,21,3,0)="Class of the current active provider."
^DD(404.57,402,21,4,0)="The value is blank if there is not an inconsistency."
^DD(404.57,402,"DT")="3040323"
^DD(404.57,"B","*PRECEPTOR POSITION",.1)=""
^DD(404.57,"B","ACTIVE PRECEPTS",307)=""
^DD(404.57,"B","ALLOW PRECEPTED CHANGE",400)=""
^DD(404.57,"B","ALLOW PRECEPTOR CHANGE",401)=""
^DD(404.57,"B","ASSOCIATED CLINIC",.09)=""
^DD(404.57,"B","ASSOCIATED CLINICS",5)=""
^DD(404.57,"B","AUTOMATIC INACTIVATION MESSAGE",2.09)=""
^DD(404.57,"B","BEEPER NUMBER",.11)=""
^DD(404.57,"B","CAN ACT AS PRECEPTOR?",.12)=""
^DD(404.57,"B","CONSULT MESSAGE",2.04)=""
^DD(404.57,"B","CURRENT # OF PATIENTS",201)=""
^DD(404.57,"B","CURRENT # OF PC PATIENTS",200)=""
^DD(404.57,"B","CURRENT ACTIVATION DATE",302)=""
^DD(404.57,"B","CURRENT EFFECTIVE DATE",301)=""
^DD(404.57,"B","CURRENT INACTIVATION DATE",303)=""
^DD(404.57,"B","CURRENT PRACTITIONER",304)=""
^DD(404.57,"B","CURRENT PRECEPTOR",306)=""
^DD(404.57,"B","CURRENT PRECEPTOR POSITION",305)=""
^DD(404.57,"B","CURRENT STATUS",300)=""
^DD(404.57,"B","DEATH MESSAGE",2.01)=""
^DD(404.57,"B","FUTURE # OF PATIENTS",203)=""
^DD(404.57,"B","FUTURE # OF PC PATIENTS",202)=""
^DD(404.57,"B","INPATIENT MESSAGE",2.02)=""
^DD(404.57,"B","MAX NUMBER OF PATIENTS",.08)=""
^DD(404.57,"B","POSITION",.01)=""
^DD(404.57,"B","POSITION DESCRIPTION",1)=""
^DD(404.57,"B","POSSIBLE PRIMARY PRACTITIONER?",.04)=""
^DD(404.57,"B","PRECEPTOR CONSULT MESSAGE",2.08)=""
^DD(404.57,"B","PRECEPTOR DEATH MESSAGE",2.05)=""
^DD(404.57,"B","PRECEPTOR INACTIVATION MESSAGE",2.1)=""
^DD(404.57,"B","PRECEPTOR INPATIENT MESSAGE",2.06)=""
^DD(404.57,"B","PRECEPTOR TEAM MESSAGE",2.07)=""
^DD(404.57,"B","STAFF/POS INCONSISTENT REASON",402)=""
^DD(404.57,"B","STANDARD ROLE NAME",.03)=""
^DD(404.57,"B","TEAM",.02)=""
^DD(404.57,"B","TEAM MESSAGE",2.03)=""
^DD(404.57,"B","USER CLASS",.13)=""
^DD(404.57,"GL",0,1,.01)=""
^DD(404.57,"GL",0,2,.02)=""
^DD(404.57,"GL",0,3,.03)=""
^DD(404.57,"GL",0,4,.04)=""
^DD(404.57,"GL",0,8,.08)=""
^DD(404.57,"GL",0,9,.09)=""
^DD(404.57,"GL",0,10,.1)=""
^DD(404.57,"GL",0,11,.11)=""
^DD(404.57,"GL",0,12,.12)=""
^DD(404.57,"GL",0,13,.13)=""
^DD(404.57,"GL",1,0,1)=""
^DD(404.57,"GL",2,1,2.01)=""
^DD(404.57,"GL",2,2,2.02)=""
^DD(404.57,"GL",2,3,2.03)=""
^DD(404.57,"GL",2,4,2.04)=""
^DD(404.57,"GL",2,5,2.05)=""
^DD(404.57,"GL",2,6,2.06)=""
^DD(404.57,"GL",2,7,2.07)=""
^DD(404.57,"GL",2,8,2.08)=""
^DD(404.57,"GL",2,9,2.09)=""
^DD(404.57,"GL",2,10,2.1)=""
^DD(404.57,"GL",5,0,5)=""
^DD(404.57,"IX",.01)=""
^DD(404.57,"IX",.02)=""
^DD(404.57,"IX",.03)=""
^DD(404.57,"IX",.09)=""
^DD(404.57,"IX",.13)=""
^DD(404.57,"RQ",.01)=""
^DD(404.57,"RQ",.02)=""
^DD(404.57,"RQ",.03)=""
^DD(404.57,"SB",404.571,1)=""
^DD(404.57,"SB",404.575,5)=""
^DD(404.571,0)="POSITION DESCRIPTION SUB-FIELD^^.01^1"
^DD(404.571,0,"DT")="2950222"
^DD(404.571,0,"NM","POSITION DESCRIPTION")=""
^DD(404.571,0,"UP")="404.57"
^DD(404.571,.01,0)="POSITION DESCRIPTION^W^^0;1^Q"
^DD(404.571,.01,3)="Detailed description of position where duties of the role are outlined."
^DD(404.571,.01,21,0)="^^1^1^2950222^"
^DD(404.571,.01,21,1,0)="This is the long description of the position."
^DD(404.571,.01,"DT")="2950222"
^DD(404.571,"B","POSITION DESCRIPTION",.01)=""
^DD(404.571,"GL",0,1,.01)=""
^DD(404.575,0)="ASSOCIATED CLINICS SUB-FIELD^^.01^1"
^DD(404.575,0,"DT")="3031107"
^DD(404.575,0,"IX","ASCTEAM",404.575,.01)=""
^DD(404.575,0,"IX","B",404.575,.01)=""
^DD(404.575,0,"NM","ASSOCIATED CLINICS")=""
^DD(404.575,0,"UP")="404.57"
^DD(404.575,.01,0)="ASSOCIATED CLINICS^*P44'X^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(404.575,.01,1,0)="^.1"
^DD(404.575,.01,1,1,0)="404.575^B"
^DD(404.575,.01,1,1,1)="S ^SCTM(404.57,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(404.575,.01,1,1,2)="K ^SCTM(404.57,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(404.575,.01,1,2,0)="404.575^ASCTEAM^MUMPS"
^DD(404.575,.01,1,2,1)="D SETSCTM^SCMCDD2(DA(1),X)"
^DD(404.575,.01,1,2,2)="D KILLSCTM^SCMCDD2(DA(1),X)"
^DD(404.575,.01,1,2,"%D",0)="^^1^1^3031107^"
^DD(404.575,.01,1,2,"%D",1,0)="Set Team entry in Clinic file"
^DD(404.575,.01,1,2,"DT")="3031107"
^DD(404.575,.01,1,3,0)="404.57^E"
^DD(404.575,.01,1,3,1)="S ^SCTM(404.57,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(404.575,.01,1,3,2)="K ^SCTM(404.57,""E"",$E(X,1,30),DA(1),DA)"
^DD(404.575,.01,1,3,"DT")="3071127"
^DD(404.575,.01,3)="Enter Clinic(s) associated with this position"
^DD(404.575,.01,12)="Only Clinics"
^DD(404.575,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(404.575,.01,21,0)="^.001^3^3^3040402^^"
^DD(404.575,.01,21,1,0)="Clinics associated with this position"
^DD(404.575,.01,21,2,0)="Replaces single value field used before patch"
^DD(404.575,.01,21,3,0)="SD*5.3*297"
^DD(404.575,.01,"DT")="3071127"
^DD(404.575,"B","ASSOCIATED CLINICS",.01)=""
^DD(404.575,"GL",0,1,.01)=""
^DD(404.575,"IX",.01)=""
^DD(404.58,0)="FIELD^^.04^4"
^DD(404.58,0,"DT")="2960116"
^DD(404.58,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(404.58,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.58,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(404.58,0,"IX","AIDT",404.58,.01)=""
^DD(404.58,0,"IX","AIDT1",404.58,.03)=""
^DD(404.58,0,"IX","AIDT2",404.58,.02)=""
^DD(404.58,0,"IX","B",404.58,.01)=""
^DD(404.58,0,"NM","TEAM HISTORY")=""
^DD(404.58,0,"VR")="5.3"
^DD(404.58,0,"VRPK")="SD"
^DD(404.58,.01,0)="TEAM^RP404.51'^SCTM(404.51,^0;1^Q"
^DD(404.58,.01,1,0)="^.1"
^DD(404.58,.01,1,1,0)="404.58^B"
^DD(404.58,.01,1,1,1)="S ^SCTM(404.58,""B"",$E(X,1,30),DA)="""""
^DD(404.58,.01,1,1,2)="K ^SCTM(404.58,""B"",$E(X,1,30),DA)"
^DD(404.58,.01,1,2,0)="404.58^AIDT^MUMPS"
^DD(404.58,.01,1,2,1)="N SC2,SC3 S SC2=$P($G(^SCTM(404.58,DA,0)),U,3) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.58,""AIDT"",X,SC2,-SC3,DA)="""""
^DD(404.58,.01,1,2,2)="N SC2,SC3 S SC2=$P($G(^SCTM(404.58,DA,0)),U,3) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCTM(404.58,""AIDT"",X,SC2,-SC3,DA)"
^DD(404.58,.01,1,2,"%D",0)="^^1^1^2950803^"
^DD(404.58,.01,1,2,"%D",1,0)="This sorts by TEAM(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.58,.01,1,2,"DT")="2950803"
^DD(404.58,.01,3)="This is the name of the team."
^DD(404.58,.01,21,0)="^^1^1^2950712^"
^DD(404.58,.01,21,1,0)="This is a pointer to the TEAM file."
^DD(404.58,.01,"DT")="2950803"
^DD(404.58,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.58,.02,1,0)="^.1^^-1"
^DD(404.58,.02,1,1,0)="404.58^AIDT2^MUMPS"
^DD(404.58,.02,1,1,1)="N SC1,SC2 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"""" S ^SCTM(404.58,""AIDT"",SC1,SC2,-X,DA)="""""
^DD(404.58,.02,1,1,2)="N SC1,SC2 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"""" K ^SCTM(404.58,""AIDT"",SC1,SC2,-X,DA)"
^DD(404.58,.02,1,1,"%D",0)="^^1^1^2950803^"
^DD(404.58,.02,1,1,"%D",1,0)="This sorts by TEAM(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.58,.02,1,1,"DT")="2950803"
^DD(404.58,.02,3)="This is the date the team's status changed."
^DD(404.58,.02,21,0)="^^1^1^2950907^^"
^DD(404.58,.02,21,1,0)="This is the date that the team's status changed."
^DD(404.58,.02,"DT")="2950807"
^DD(404.58,.03,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;3^Q"
^DD(404.58,.03,1,0)="^.1"
^DD(404.58,.03,1,1,0)="404.58^AIDT1^MUMPS"
^DD(404.58,.03,1,1,1)="N SC1,SC3 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.58,""AIDT"",SC1,X,-SC3,DA)="""""
^DD(404.58,.03,1,1,2)="N SC1,SC3 S SC1=$P($G(^SCTM(404.58,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCTM(404.58,""AIDT"",SC1,X,-SC3,DA)"
^DD(404.58,.03,1,1,"%D",0)="^^1^1^2950803^"
^DD(404.58,.03,1,1,"%D",1,0)="This sorts by TEAM(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.58,.03,1,1,"DT")="2950803"
^DD(404.58,.03,3)="This indicates what the status of the team is as of the effective date."
^DD(404.58,.03,21,0)="^^1^1^2950714^^"
^DD(404.58,.03,21,1,0)="This is indicates if the team is active or inactive as of the effective date."
^DD(404.58,.03,"DT")="2950803"
^DD(404.58,.04,0)="STATUS REASON^R*P403.44'^SD(403.44,^0;4^S DIC(""S"")=""IF $$RSNDICS^SCAPMCU1(""""ZM1"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.58,.04,3)="This is the reason that the team's status changed.  It is a required field."
^DD(404.58,.04,12)="ASDF"
^DD(404.58,.04,12.1)="S DIC(""S"")=""IF $$RSNDICS^SCAPMCU1(""""ZM1"""")"""
^DD(404.58,.04,21,0)="^^1^1^2960116^^^^"
^DD(404.58,.04,21,1,0)="This is the reason that the team's status changed."
^DD(404.58,.04,"DT")="2960116"
^DD(404.58,"B","EFFECTIVE DATE",.02)=""
^DD(404.58,"B","STATUS",.03)=""
^DD(404.58,"B","STATUS REASON",.04)=""
^DD(404.58,"B","TEAM",.01)=""
^DD(404.58,"GL",0,1,.01)=""
^DD(404.58,"GL",0,2,.02)=""
^DD(404.58,"GL",0,3,.03)=""
^DD(404.58,"GL",0,4,.04)=""
^DD(404.58,"IX",.01)=""
^DD(404.58,"IX",.02)=""
^DD(404.58,"IX",.03)=""
^DD(404.58,"RQ",.01)=""
^DD(404.58,"RQ",.02)=""
^DD(404.58,"RQ",.03)=""
^DD(404.58,"RQ",.04)=""
^DD(404.59,0)="FIELD^^.04^4"
^DD(404.59,0,"DDA")="N"
^DD(404.59,0,"DT")="2950911"
^DD(404.59,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(404.59,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.59,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(404.59,0,"IX","AIDT",404.59,.01)=""
^DD(404.59,0,"IX","AIDT1",404.59,.03)=""
^DD(404.59,0,"IX","AIDT2",404.59,.02)=""
^DD(404.59,0,"IX","B",404.59,.01)=""
^DD(404.59,0,"NM","TEAM POSITION HISTORY")=""
^DD(404.59,0,"PT",404.471,.07)=""
^DD(404.59,0,"PT",404.48,.07)=""
^DD(404.59,0,"VR")="5.3"
^DD(404.59,0,"VRPK")="SD"
^DD(404.59,.01,0)="TEAM POSITION^RP404.57'^SCTM(404.57,^0;1^Q"
^DD(404.59,.01,1,0)="^.1"
^DD(404.59,.01,1,1,0)="404.59^B"
^DD(404.59,.01,1,1,1)="S ^SCTM(404.59,""B"",$E(X,1,30),DA)="""""
^DD(404.59,.01,1,1,2)="K ^SCTM(404.59,""B"",$E(X,1,30),DA)"
^DD(404.59,.01,1,2,0)="404.59^AIDT^MUMPS"
^DD(404.59,.01,1,2,1)="N SC2,SC3 S SC2=$P($G(^SCTM(404.59,DA,0)),U,3) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.59,""AIDT"",X,SC2,-SC3,DA)="""""
^DD(404.59,.01,1,2,2)="N SC2,SC3 S SC2=$P($G(^SCTM(404.59,DA,0)),U,3) I SC2]"""" S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCTM(404.59,""AIDT"",X,SC2,-SC3,DA)"
^DD(404.59,.01,1,2,"%D",0)="^^1^1^2950807^"
^DD(404.59,.01,1,2,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.59,.01,1,2,"DT")="2950807"
^DD(404.59,.01,3)="This is the position on the team."
^DD(404.59,.01,21,0)="^^2^2^2950713^^"
^DD(404.59,.01,21,1,0)="This is the position on the team that is either being activated or "
^DD(404.59,.01,21,2,0)="inactivated."
^DD(404.59,.01,"DT")="2950807"
^DD(404.59,.02,0)="EFFECTIVE DATE^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.59,.02,1,0)="^.1^^-1"
^DD(404.59,.02,1,1,0)="404.59^AIDT2^MUMPS"
^DD(404.59,.02,1,1,1)="N SC1,SC2 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"""" S ^SCTM(404.59,""AIDT"",SC1,SC2,-X,DA)="""""
^DD(404.59,.02,1,1,2)="N SC1,SC2 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC2=$P($G(^(0)),U,3) I SC2]"""" K ^SCTM(404.59,""AIDT"",SC1,SC2,-X,DA)"
^DD(404.59,.02,1,1,"%D",0)="^^1^1^2950807^"
^DD(404.59,.02,1,1,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.59,.02,1,1,"DT")="2950807"
^DD(404.59,.02,3)="This is the date that the team position's status changed."
^DD(404.59,.02,21,0)="^^1^1^2950911^^^"
^DD(404.59,.02,21,1,0)="This is the date that the team position's status changed."
^DD(404.59,.02,"DT")="2950911"
^DD(404.59,.03,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;3^Q"
^DD(404.59,.03,1,0)="^.1"
^DD(404.59,.03,1,1,0)="404.59^AIDT1^MUMPS"
^DD(404.59,.03,1,1,1)="N SC1,SC3 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" S ^SCTM(404.59,""AIDT"",SC1,X,-SC3,DA)="""""
^DD(404.59,.03,1,1,2)="N SC1,SC3 S SC1=$P($G(^SCTM(404.59,DA,0)),U,1) I SC1 S SC3=$P($G(^(0)),U,2) I SC3]"""" K ^SCTM(404.59,""AIDT"",SC1,X,-SC3,DA)"
^DD(404.59,.03,1,1,"%D",0)="^.101^1^1^3030214^^"
^DD(404.59,.03,1,1,"%D",1,0)="This sorts by TEAM POSITION(#.01), then by STATUS(#.03), then by -EFFECTIVE DATE(#.02).  There are associated cross references for each of these fields."
^DD(404.59,.03,1,1,"DT")="2950807"
^DD(404.59,.03,3)="This indicates if the team position is active or inactive."
^DD(404.59,.03,21,0)="^^1^1^2950911^^^"
^DD(404.59,.03,21,1,0)="This indicates if the team position is active or inactive."
^DD(404.59,.03,"DT")="3030323"
^DD(404.59,.04,0)="STATUS REASON^R*P403.44'^SD(403.44,^0;4^S DIC(""S"")=""I $$RSNDICS^SCAPMCU1(""""ZM3"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.59,.04,3)="This is the reason that the activation/inactivation status changed."
^DD(404.59,.04,12)="Requires Scheduling Reason's Scheduling Event Code to be TEAM POSITION ADD/MODIFY"
^DD(404.59,.04,12.1)="S DIC(""S"")=""I $$RSNDICS^SCAPMCU1(""""ZM3"""")"""
^DD(404.59,.04,21,0)="^^1^1^2950714^^^^"
^DD(404.59,.04,21,1,0)="This is the reason that the activation/inactivation status changed."
^DD(404.59,.04,"DT")="2950714"
^DD(404.59,"B","EFFECTIVE DATE",.02)=""
^DD(404.59,"B","STATUS",.03)=""
^DD(404.59,"B","STATUS REASON",.04)=""
^DD(404.59,"B","TEAM POSITION",.01)=""
^DD(404.59,"GL",0,1,.01)=""
^DD(404.59,"GL",0,2,.02)=""
^DD(404.59,"GL",0,3,.03)=""
^DD(404.59,"GL",0,4,.04)=""
^DD(404.59,"IX",.01)=""
^DD(404.59,"IX",.02)=""
^DD(404.59,"IX",.03)=""
^DD(404.59,"RQ",.01)=""
^DD(404.59,"RQ",.02)=""
^DD(404.59,"RQ",.03)=""
^DD(404.59,"RQ",.04)=""
^DD(404.91,0)="FIELD^^1000^36"
^DD(404.91,0,"DDA")="N"
^DD(404.91,0,"DT")="2960711"
^DD(404.91,0,"IX","B",404.91,.01)=""
^DD(404.91,0,"NM","SCHEDULING PARAMETER")=""
^DD(404.91,0,"VR")="5.3"
^DD(404.91,0,"VRPK")="SD"
^DD(404.91,.001,0)="ENTRY NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,.001,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(404.91,.001,21,0)="^^3^3^2950606^^"
^DD(404.91,.001,21,1,0)="This field is the primary key field in the Scheduling Parameter file."
^DD(404.91,.001,21,2,0)=" "
^DD(404.91,.001,21,3,0)="A site has only one scheduling parameter table entry and it must equal 1."
^DD(404.91,.001,"DT")="2941123"
^DD(404.91,.01,0)="ID^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,.01,1,0)="^.1"
^DD(404.91,.01,1,1,0)="404.91^B"
^DD(404.91,.01,1,1,1)="S ^SD(404.91,""B"",$E(X,1,30),DA)="""""
^DD(404.91,.01,1,1,2)="K ^SD(404.91,""B"",$E(X,1,30),DA)"
^DD(404.91,.01,1,1,"%D",0)="^^1^1^2950606^"
^DD(404.91,.01,1,1,"%D",1,0)="This cross-reference allows look-up by ID."
^DD(404.91,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(404.91,.01,21,0)="^^4^4^2950606^^"
^DD(404.91,.01,21,1,0)="Internal entry number of parameter entry.  It must equal 1."
^DD(404.91,.01,21,2,0)=" "
^DD(404.91,.01,21,3,0)="This field is the internal entry number to the parameter file and it must"
^DD(404.91,.01,21,4,0)="equal 1.  A site has only one scheduling parameter table entry."
^DD(404.91,.01,"DT")="2941121"
^DD(404.91,70.01,0)="SD70 INSTALL DATE^D^^PATCH70;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,70.01,21,0)="^^2^2^2961028^"
^DD(404.91,70.01,21,1,0)="This contains the date that patch SD*5.3*70 was installed, and is"
^DD(404.91,70.01,21,2,0)="used by the clean-up routine to check if dates must be reviewed."
^DD(404.91,70.01,"DT")="2961028"
^DD(404.91,70.02,0)="SD70 LAST DATE^D^^PATCH70;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,70.02,21,0)="^^1^1^2961028^^"
^DD(404.91,70.02,21,1,0)="This monitors the HL7 segments clean-up from patch SD*5.3*70."
^DD(404.91,70.02,"DT")="2961028"
^DD(404.91,192.1,0)="CWT EXTRACT 1 RUN DAY^NJ2,0^^PATCH192;1^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,192.1,3)="Type a Number between 1 and 31, 0 Decimal Digits"
^DD(404.91,192.1,21,0)="^^4^4^2990420^"
^DD(404.91,192.1,21,1,0)="This field holds the day the 'Clinic Waiting Time' extract (1) will"
^DD(404.91,192.1,21,2,0)="normally be scheduled to run, where '1' = the first day of the month,"
^DD(404.91,192.1,21,3,0)="etc.  A selection of '31' equates to the last day of the month"
^DD(404.91,192.1,21,4,0)="(regardless of the actual length of the month)."
^DD(404.91,192.1,23,0)="^^2^2^2990420^"
^DD(404.91,192.1,23,1,0)="This field is used to determine the appropriate date for automatic "
^DD(404.91,192.1,23,2,0)="queuing of the 'Clinic Waiting Time' extract (1)."
^DD(404.91,192.1,"DT")="2990420"
^DD(404.91,192.2,0)="CWT EXTRACT 1 LENGTH^NJ3,0^^PATCH192;2^K:+X'=X!(X>366)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,192.2,3)="Type a Number between 1 and 366, 0 Decimal Digits"
^DD(404.91,192.2,21,0)="^^2^2^2990420^"
^DD(404.91,192.2,21,1,0)="This field holds the number of days the 'Clinic Waiting Time' extract (1)"
^DD(404.91,192.2,21,2,0)="will return data for when it runs."
^DD(404.91,192.2,23,0)="^^2^2^2990420^"
^DD(404.91,192.2,23,1,0)="Used during automatic queueing of the 'Clinic Waiting Time' extract (1)"
^DD(404.91,192.2,23,2,0)="to determine the number of days of data to be returned by the extract."
^DD(404.91,192.2,"DT")="2990420"
^DD(404.91,192.3,0)="CWT EXTRACT 2 RUN DAY^NJ2,0^^PATCH192;3^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,192.3,3)="Type a Number between 1 and 31, 0 Decimal Digits"
^DD(404.91,192.3,21,0)="^^4^4^2990420^"
^DD(404.91,192.3,21,1,0)="This field holds the day the 'Clinic Waiting Time' extract (2) will"
^DD(404.91,192.3,21,2,0)="normally be scheduled to run, where '1' represents the first day of"
^DD(404.91,192.3,21,3,0)="the month, etc.  A selection of '31' equates to the last day of the"
^DD(404.91,192.3,21,4,0)="month, regardless of the actual length of the month."
^DD(404.91,192.3,23,0)="^^2^2^2990420^"
^DD(404.91,192.3,23,1,0)="This field is used to determine the appropriate date for automatic"
^DD(404.91,192.3,23,2,0)="queueing of the 'Clinic Waiting Time' extract (2)."
^DD(404.91,192.3,"DT")="2990420"
^DD(404.91,192.4,0)="CWT EXTRACT 2 LENGTH^NJ2,0^^PATCH192;4^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,192.4,3)="Type a Number between 1 and 31, 0 Decimal Digits"
^DD(404.91,192.4,21,0)="^^3^3^2990420^"
^DD(404.91,192.4,21,1,0)="This field holds the number of days for which data will be returned by "
^DD(404.91,192.4,21,2,0)="the 'Clinic Waiting Time' extract (2).  A selection of '31' will return"
^DD(404.91,192.4,21,3,0)="the whole month, regardless of the length of the month."
^DD(404.91,192.4,23,0)="^^2^2^2990420^^^"
^DD(404.91,192.4,23,1,0)="Used during automatic queueing of the 'Clinic Waiting Time' extract (2)"
^DD(404.91,192.4,23,2,0)="to determine the number of days to return data for."
^DD(404.91,192.4,"DT")="2990420"
^DD(404.91,192.5,0)="CWT EXTRACT INTERVAL^S^M:MONTHLY;Q:QUARTERLY;S:SEMI-ANNUAL;A:ANNUAL;^PATCH192;5^Q"
^DD(404.91,192.5,3)="Specify how often the 'Clinic Waiting Time' extract should run."
^DD(404.91,192.5,21,0)="^^2^2^2990420^^"
^DD(404.91,192.5,21,1,0)="This field determines how often the 'Clinic Waiting Time' extract should"
^DD(404.91,192.5,21,2,0)="be queued."
^DD(404.91,192.5,23,0)="^^2^2^2990420^"
^DD(404.91,192.5,23,1,0)="Used during automatic queueing of the 'Clinic Waiting Time' extract to"
^DD(404.91,192.5,23,2,0)="determine the scheduling interval for queueing."
^DD(404.91,192.5,"DT")="2990420"
^DD(404.91,192.6,0)="CWT DEFAULT RUN TIME^RNJ6,4^^PATCH192;6^K:+X'=X!(X>.2359)!(X<.0001)!(X?.E1"".""5N.N) X"
^DD(404.91,192.6,3)="Type a Number between .0001 and .2359, 4 Decimal Digits, representing the time of day automatically queued extracts should run."
^DD(404.91,192.6,21,0)="^^2^2^2990426^"
^DD(404.91,192.6,21,1,0)="This field holds the default run time for automatic queueing of "
^DD(404.91,192.6,21,2,0)="Clinic Waiting Time extracts."
^DD(404.91,192.6,"DT")="2990426"
^DD(404.91,192.7,0)="CWT EXTRACT 1 DESTINATION^RF^^PATCH192;7^K:$L(X)>50!($L(X)<3) X"
^DD(404.91,192.7,3)="Enter the remote mail group for the transmission of CWT extract 1, answer must be 3-50 characters in length."
^DD(404.91,192.7,21,0)="^^2^2^2990426^"
^DD(404.91,192.7,21,1,0)="This is the remote mail group which will receive transmissions of CWT"
^DD(404.91,192.7,21,2,0)="extract 1."
^DD(404.91,192.7,"DT")="2990426"
^DD(404.91,192.8,0)="CWT EXTRACT 2 DESTINATION^RF^^PATCH192;8^K:$L(X)>50!($L(X)<3) X"
^DD(404.91,192.8,3)="Enter the remote mail group for the transmission of CWT extract 2, answer must be 3-50 characters in length."
^DD(404.91,192.8,21,0)="^^2^2^2990426^"
^DD(404.91,192.8,21,1,0)="This is the remote mail group which will receive transmissions of CWT"
^DD(404.91,192.8,21,2,0)="extract 2."
^DD(404.91,192.8,"DT")="2990426"
^DD(404.91,701,0)="LAST XMIT OUTPAT ENC NUMBER^RNJ15,0I^^AMB;1^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,701,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(404.91,701,21,0)="^^2^2^2960728^^^"
^DD(404.91,701,21,1,0)="This field contains the last value used for the NUMBER field (#.01) when"
^DD(404.91,701,21,2,0)="creating entries in the TRANSMITTED OUTPATIENT ENCOUNTER file (#409.73)."
^DD(404.91,701,"DT")="2960430"
^DD(404.91,702,0)="AMB CARE HL7 DATE^D^^AMB;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,702,21,0)="^^3^3^2960501^"
^DD(404.91,702,21,1,0)="This is the date when the software is to begin storing and transmitting"
^DD(404.91,702,21,2,0)="the new data for the Ambulatory Care Reporting project.  In this case this"
^DD(404.91,702,21,3,0)="date will be 10/1/96"
^DD(404.91,702,"DT")="2960501"
^DD(404.91,703,0)="AMB CARE CLOSE OUT^D^^AMB;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,703,21,0)="^^2^2^2960522^^"
^DD(404.91,703,21,1,0)="This field contains the closeout date for the OPC generation and"
^DD(404.91,703,21,2,0)="transmission."
^DD(404.91,703,"DT")="2960514"
^DD(404.91,704,0)="AMB CARE LAG FOR ACK^NJ3,0^^AMB;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,704,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(404.91,704,21,0)="^^2^2^2960522^^"
^DD(404.91,704,21,1,0)="Number of days to wait for acknowledgments to Ambulatory Care"
^DD(404.91,704,21,2,0)="transmissions"
^DD(404.91,704,"DT")="2960522"
^DD(404.91,705,0)="CLINIC UPDATE QUEUED FOR^DI^^AMB;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,705,21,0)="^^2^2^2960728^^^"
^DD(404.91,705,21,1,0)="Date/time updating all clinic entries in Hospital Location file was queued"
^DD(404.91,705,21,2,0)="to run.  This value is entered during the installation process."
^DD(404.91,705,"DT")="2960711"
^DD(404.91,706,0)="CLINIC UPDATE TASK #^NJ15,0I^^AMB;6^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.91,706,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.91,706,21,0)="^^3^3^2960728^^"
^DD(404.91,706,21,1,0)="Task number assigned to background job that will upate all clinic entries"
^DD(404.91,706,21,2,0)="in Hospital Location file. This value is entered during the installation"
^DD(404.91,706,21,3,0)="process."
^DD(404.91,706,"DT")="2960711"
^DD(404.91,707,0)="CLINIC UPDATE COMPLETED ON^DI^^AMB;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,707,21,0)="^^2^2^2960711^"
^DD(404.91,707,21,1,0)="Date/time updating all clinic entries in Hospital Location file was"
^DD(404.91,707,21,2,0)="completed.  This value is entered by the background job."
^DD(404.91,707,"DT")="2960723"
^DD(404.91,708,0)="AMBCARE MESSAGE LINES^NJ4,0^^AMB;8^K:+X'=X!(X>5000)!(X<500)!(X?.E1"".""1N.N) X"
^DD(404.91,708,3)="Type a Number between 500 and 5000, 0 Decimal Digits"
^DD(404.91,708,21,0)="^^2^2^2961106^"
^DD(404.91,708,21,1,0)="This field contains the maximum number of lines that can be contained in"
^DD(404.91,708,21,2,0)="batch HL7 messages."
^DD(404.91,708,"DT")="2961106"
^DD(404.91,709,0)="ENCOUNTER DAY^404.91709DA^^AMBCLN;0"
^DD(404.91,709,21,0)="^^2^2^2970409^^^^"
^DD(404.91,709,21,1,0)="This multiple has been added for patch 102.  It contains information for"
^DD(404.91,709,21,2,0)="each encounter date reviewed."
^DD(404.91,709,23,0)="^^1^1^2970409^^^^"
^DD(404.91,709,23,1,0)=" "
^DD(404.91,709,"DT")="2970320"
^DD(404.91,710,0)="NPCD ENCOUNTER MONTH^404.9171^^710;0"
^DD(404.91,710,21,0)="^.001^8^8^3020215^^^^"
^DD(404.91,710,21,1,0)="This field is not used after installing SD*5.3*247 because the close out dates"
^DD(404.91,710,21,2,0)="will be calculated."
^DD(404.91,710,21,3,0)=""
^DD(404.91,710,21,4,0)="The previous  description:"
^DD(404.91,710,21,5,0)=""
^DD(404.91,710,21,6,0)="This multiple will contain close out dates of the National Patient Care"
^DD(404.91,710,21,7,0)="Database (NPCD) for a given month/year that an encounter can occur."
^DD(404.91,710,21,8,0)=""
^DD(404.91,710,"DT")="2970415"
^DD(404.91,801,0)="USE USR CLASS FUNCTIONALITY?^SX^1:YES;0:NO;^PCMM;1^D:'$D(^USR)&($G(X)) EN^DDIOL(""   TIU's USR Class Files are required"","""",""?5"") K:'$D(^USR)&($G(X)) X"
^DD(404.91,801,3)="If 'YES' is answered, TIU's USR Class functionality will be enforced on Position Assignments."
^DD(404.91,801,21,0)="^^4^4^2960329^^"
^DD(404.91,801,21,1,0)="This tells the PCMM software to use TIU's USR Class functionality that"
^DD(404.91,801,21,2,0)="tells if a user is a member of a user class."
^DD(404.91,801,21,3,0)="If this is unanswered or 'NO', any staff member in the NEW PERSON File (#200)"
^DD(404.91,801,21,4,0)="will be assignable to team positions."
^DD(404.91,801,"DT")="2960313"
^DD(404.91,802,0)="CHECK PC TEAM AT DISCHARGE?^S^1:YES;0:NO;^PCMM;2^Q"
^DD(404.91,802,3)="Enter YES if users will be prompted to add a patient to a PC Team, if they are not assigned one."
^DD(404.91,802,21,0)="^^3^3^2960402^"
^DD(404.91,802,21,1,0)="This controls whether the user will be asked if they want to assign the"
^DD(404.91,802,21,2,0)="patient to a primary care team upon inpatient discharge."
^DD(404.91,802,21,3,0)="Edits to discharges will also evoke this functionality."
^DD(404.91,802,"DT")="2960402"
^DD(404.91,803,0)="ENABLE AUTOLINK FUNCTIONALITY?^S^1:YES;0:NO;^PCMM;3^Q"
^DD(404.91,803,3)="Enter 'YES' if Teams can be Autolinked with Wards, Practitioners, Room-Beds, or Specialities."
^DD(404.91,803,21,0)="^^1^1^2960502^"
^DD(404.91,803,21,1,0)="This should generally be turned on only for sites with CPRS installed."
^DD(404.91,803,"DT")="2960502"
^DD(404.91,804,0)="REASSIGNMENT MAIL GROUP^P3.8'^XMB(3.8,^PCMM;4^Q"
^DD(404.91,804,3)="Enter the name of a mail group"
^DD(404.91,804,21,0)="^^2^2^2981002^^"
^DD(404.91,804,21,1,0)="This field is a pointer to the mail group file.  The mail group that it points"
^DD(404.91,804,21,2,0)="to is the group that will receive the Multiple Reassignment mail message."
^DD(404.91,804,"DT")="2981002"
^DD(404.91,901,0)="EARLIEST ENCOUNTER DATE^DX^^CNV;1^S %DT=""EX"" D ^%DT S X=Y K:$$FMADD^XLFDT($$ENDDATE^SCCVU(),1)<X!(2801001>X) X"
^DD(404.91,901,.1)="EARLIEST ENCOUNTER CONVERSION DATE"
^DD(404.91,901,3)=""
^DD(404.91,901,4)="W !,""Type a date between "",$$FMTE^XLFDT(2801001),"" and "",$$FMTE^XLFDT($$FMADD^XLFDT($$ENDDATE^SCCVU(),1)),""."",!"
^DD(404.91,901,21,0)="^^7^7^2991228^"
^DD(404.91,901,21,1,0)="This field contains the earliest date to convert encounters.  For example,"
^DD(404.91,901,21,2,0)="if 10/1/94 is entered in this field, encounters before 10/1/94 cannot"
^DD(404.91,901,21,3,0)="be converted using the ACRP Database Conversion patch (SD*5.3*211)."
^DD(404.91,901,21,4,0)=" "
^DD(404.91,901,21,5,0)="Also, in order to 'complete' the conversion and delete the old Scheduling"
^DD(404.91,901,21,6,0)="data files, all encounter data from this date through 9/30/96 must be"
^DD(404.91,901,21,7,0)="converted."
^DD(404.91,901,"DT")="2981208"
^DD(404.91,902,0)="CONVERSION DEFAULT DISP CLINIC^*P44'^SC(^CNV;2^S DIC(""S"")=""I $D(^PX(815,1,""""DHL"""",""""B"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(404.91,902,3)="ENTER THE NAME OF THE DEFAULT DISPOSITION CLINIC"
^DD(404.91,902,9)="^"
^DD(404.91,902,12)="Must be a disposition clinic"
^DD(404.91,902,12.1)="S DIC(""S"")=""I $D(^PX(815,1,""""DHL"""",""""B"""",+Y))"""
^DD(404.91,902,21,0)="^^10^10^2991228^"
^DD(404.91,902,21,1,0)="This field contains a pointer to a disposition clinic. The value of this"
^DD(404.91,902,21,2,0)="field will be used by the ACRP Database Conversion patch (SD*5.3*211)."
^DD(404.91,902,21,3,0)=" "
^DD(404.91,902,21,4,0)="If during the conversion the division of a disposition is not associated"
^DD(404.91,902,21,5,0)="with any valid disposition clinic then this field will be used."
^DD(404.91,902,21,6,0)=" "
^DD(404.91,902,21,7,0)="This situation may occur for very old dispositions."
^DD(404.91,902,21,8,0)=" "
^DD(404.91,902,21,9,0)="If this situation does occur and this field has no value then the"
^DD(404.91,902,21,10,0)="disposition will not be converted."
^DD(404.91,902,"DT")="2981027"
^DD(404.91,903,0)="DT SCHED FILE DELETE COMPLETED^D^^CNV;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,903,3)="Enter the date the OLD Scheduling Visit files were deleted from your system."
^DD(404.91,903,21,0)="^^5^5^2991207^^^^"
^DD(404.91,903,21,1,0)="This is the date the SCHEDULING VISITS, OUTPATIENT DIAGNOSIS, OUTPATIENT"
^DD(404.91,903,21,2,0)="PROVIDER and the OPC files were deleted from the system."
^DD(404.91,903,21,3,0)=""
^DD(404.91,903,21,4,0)="Once this date has been entered, the Scheduling system will no longer check"
^DD(404.91,903,21,5,0)="these files for past encounter data. It will use only the PCE V-files."
^DD(404.91,903,"DT")="2980302"
^DD(404.91,904,0)="DATE CONVERSION COMPLETED^D^^CNV;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,904,3)="Enter the date the scheduling conversion was completed."
^DD(404.91,904,21,0)="^^3^3^2991207^^^^"
^DD(404.91,904,21,1,0)="This is the date the ACRP Database Conversion has been completed."
^DD(404.91,904,21,2,0)="After this date is entered, no more Conversion Specification Templates"
^DD(404.91,904,21,3,0)="(CST) can be executed."
^DD(404.91,904,"DT")="2980129"
^DD(404.91,905,0)="LIMIT CONV RANGE TO 1 YEAR^S^0:NO;1:YES;^CNV;5^Q"
^DD(404.91,905,3)="Enter YES to limit the scheduling conversion to 1 fiscal yr at a time."
^DD(404.91,905,21,0)="^^2^2^2991207^^^^"
^DD(404.91,905,21,1,0)="This field will be YES (1) if you wish to limit the date range for a"
^DD(404.91,905,21,2,0)="Conversion Specification Template (CST) to at most 1 year at a time."
^DD(404.91,905,"DT")="2980304"
^DD(404.91,906,0)="RE-CONVERSION ALLOWED^S^1:YES;0:NO;^CNV;6^Q"
^DD(404.91,906,3)="Should the reconversion event be allowed."
^DD(404.91,906,21,0)="^^12^12^2981118^^^^"
^DD(404.91,906,21,1,0)="WARNING: The site should only set to 'YES' if instructed to by National"
^DD(404.91,906,21,2,0)="         VistA Support (NVS) staff."
^DD(404.91,906,21,3,0)=""
^DD(404.91,906,21,4,0)="This field needs to be set to 'YES' in order for the site to schedule a"
^DD(404.91,906,21,5,0)="'re-convert' event using ACRP Database Conversion patch functionality."
^DD(404.91,906,21,6,0)=""
^DD(404.91,906,21,7,0)="A 're-convert' event will delete each OUTPATIENT ENCOUNTER (#409.68)"
^DD(404.91,906,21,8,0)="and VISIT (#9000010) file entries that were created by the conversion"
^DD(404.91,906,21,9,0)="for an encounter. Next, the conversion logic will again be executed"
^DD(404.91,906,21,10,0)="for the encounter."
^DD(404.91,906,21,11,0)=""
^DD(404.91,906,21,12,0)="This parameter is initially set to 'NO' (i.e. 0 or null)."
^DD(404.91,906,"DT")="2981029"
^DD(404.91,907,0)="MAXIMUM ERRORS ALLOWED^NJ7,0^^CNV;7^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.91,907,3)="Type a Number between 1 and 1000000, 0 Decimal Digits"
^DD(404.91,907,21,0)="^^6^6^2990113^^^^"
^DD(404.91,907,21,1,0)="If a Conversion Specification Template (CST) produces this many errors"
^DD(404.91,907,21,2,0)="in the CST error log, then processing of the conversion for the template"
^DD(404.91,907,21,3,0)="will be forced to stop."
^DD(404.91,907,21,4,0)=" "
^DD(404.91,907,21,5,0)="If a value for this field is not specified, the system will use 1000."
^DD(404.91,907,21,6,0)=" "
^DD(404.91,907,"DT")="2990113"
^DD(404.91,908,0)="DATA TRANSFER COMPLETED^D^^CNV;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91,908,3)="Enter date/time post-init data transfer completed."
^DD(404.91,908,21,0)="^^10^10^2991228^"
^DD(404.91,908,21,1,0)="This field contains the completion date and time of the transfer of user"
^DD(404.91,908,21,2,0)="related data from the SCHEDULING VISITS (#409.5) file to the OUTPATIENT"
^DD(404.91,908,21,3,0)="ENCOUNTER (#409.68) file for visits after 10/1/1996."
^DD(404.91,908,21,4,0)=" "
^DD(404.91,908,21,5,0)="This transfer occurs as part of the post-install of patch SD*5.3*211."
^DD(404.91,908,21,6,0)=" "
^DD(404.91,908,21,7,0)="This field is used by the post-init to determine if the transfer needs to be"
^DD(404.91,908,21,8,0)="performed. If the field is set, the transfer does not need to be performed."
^DD(404.91,908,21,9,0)="For test sites, this will be particularly helpful since they may need to load"
^DD(404.91,908,21,10,0)="the patch numerous times."
^DD(404.91,908,"DT")="2990113"
^DD(404.91,909,0)="DISPLAY CANCELLED TEMPLATES^S^0:NO;1:YES;^CNV;9^Q"
^DD(404.91,909,3)="Should cancelled CSTs be included in display list?"
^DD(404.91,909,21,0)="^^5^5^2990126^^^^"
^DD(404.91,909,21,1,0)="This parameter indicates whether or not cancelled Conversion Specification"
^DD(404.91,909,21,2,0)="Templates (CSTs) are included in the list of templates displayed"
^DD(404.91,909,21,3,0)="while using the 'ACRP Database Converion' [SCCV CONV MAIN OPTION] option."
^DD(404.91,909,21,4,0)=""
^DD(404.91,909,21,5,0)="This parameter is initially set to 'NO' (i.e. 0 or null)."
^DD(404.91,909,"DT")="2990126"
^DD(404.91,1000,0)="FILE DELETION LOG^404.9101^^DELETED;0"
^DD(404.91,1000,21,0)="^^3^3^3000113^"
^DD(404.91,1000,21,1,0)="This multiple keeps track of when a Scheduling file was deleted as part of"
^DD(404.91,1000,21,2,0)="ACRP Database Conversion (SD*5.3*211). The file, user responsible and the"
^DD(404.91,1000,21,3,0)="date/time of deletion are tracked."
^DD(404.91,"B","AMB CARE CLOSE OUT",703)=""
^DD(404.91,"B","AMB CARE HL7 DATE",702)=""
^DD(404.91,"B","AMB CARE LAG FOR ACK",704)=""
^DD(404.91,"B","AMBCARE MESSAGE LINES",708)=""
^DD(404.91,"B","CHECK PC TEAM AT DISCHARGE?",802)=""
^DD(404.91,"B","CLINIC UPDATE COMPLETED ON",707)=""
^DD(404.91,"B","CLINIC UPDATE QUEUED FOR",705)=""
^DD(404.91,"B","CLINIC UPDATE TASK #",706)=""
^DD(404.91,"B","CONVERSION DEFAULT DISP CLINIC",902)=""
^DD(404.91,"B","CWT DEFAULT RUN TIME",192.6)=""
^DD(404.91,"B","CWT EXTRACT 1 DESTINATION",192.7)=""
^DD(404.91,"B","CWT EXTRACT 1 LENGTH",192.2)=""
^DD(404.91,"B","CWT EXTRACT 1 RUN DAY",192.1)=""
^DD(404.91,"B","CWT EXTRACT 2 DESTINATION",192.8)=""
^DD(404.91,"B","CWT EXTRACT 2 LENGTH",192.4)=""
^DD(404.91,"B","CWT EXTRACT 2 RUN DAY",192.3)=""
^DD(404.91,"B","CWT EXTRACT INTERVAL",192.5)=""
^DD(404.91,"B","DATA TRANSFER COMPLETED",908)=""
^DD(404.91,"B","DATE CONVERSION COMPLETED",904)=""
^DD(404.91,"B","DISPLAY CANCELLED TEMPLATES",909)=""
^DD(404.91,"B","DT SCHED FILE DELETE COMPLETED",903)=""
^DD(404.91,"B","EARLIEST ENCOUNTER DATE",901)=""
^DD(404.91,"B","ENABLE AUTOLINK FUNCTIONALITY?",803)=""
^DD(404.91,"B","ENCOUNTER DAY",709)=""
^DD(404.91,"B","ENTRY NUMBER",.001)=""
^DD(404.91,"B","FILE DELETION LOG",1000)=""
^DD(404.91,"B","ID",.01)=""
^DD(404.91,"B","LAST XMIT OUTPAT ENC NUMBER",701)=""
^DD(404.91,"B","LIMIT CONV RANGE TO 1 YEAR",905)=""
^DD(404.91,"B","MAXIMUM ERRORS ALLOWED",907)=""
^DD(404.91,"B","NPCD ENCOUNTER MONTH",710)=""
^DD(404.91,"B","RE-CONVERSION ALLOWED",906)=""
^DD(404.91,"B","REASSIGNMENT MAIL GROUP",804)=""
^DD(404.91,"B","SD70 INSTALL DATE",70.01)=""
^DD(404.91,"B","SD70 LAST DATE",70.02)=""
^DD(404.91,"B","USE USR CLASS FUNCTIONALITY?",801)=""
^DD(404.91,"GL",0,1,.01)=""
^DD(404.91,"GL",710,0,710)=""
^DD(404.91,"GL","AMB",1,701)=""
^DD(404.91,"GL","AMB",2,702)=""
^DD(404.91,"GL","AMB",3,703)=""
^DD(404.91,"GL","AMB",4,704)=""
^DD(404.91,"GL","AMB",5,705)=""
^DD(404.91,"GL","AMB",6,706)=""
^DD(404.91,"GL","AMB",7,707)=""
^DD(404.91,"GL","AMB",8,708)=""
^DD(404.91,"GL","AMBCLN",0,709)=""
^DD(404.91,"GL","CNV",1,901)=""
^DD(404.91,"GL","CNV",2,902)=""
^DD(404.91,"GL","CNV",3,903)=""
^DD(404.91,"GL","CNV",4,904)=""
^DD(404.91,"GL","CNV",5,905)=""
^DD(404.91,"GL","CNV",6,906)=""
^DD(404.91,"GL","CNV",7,907)=""
^DD(404.91,"GL","CNV",8,908)=""
^DD(404.91,"GL","CNV",9,909)=""
^DD(404.91,"GL","DELETED",0,1000)=""
^DD(404.91,"GL","PATCH192",1,192.1)=""
^DD(404.91,"GL","PATCH192",2,192.2)=""
^DD(404.91,"GL","PATCH192",3,192.3)=""
^DD(404.91,"GL","PATCH192",4,192.4)=""
^DD(404.91,"GL","PATCH192",5,192.5)=""
^DD(404.91,"GL","PATCH192",6,192.6)=""
^DD(404.91,"GL","PATCH192",7,192.7)=""
^DD(404.91,"GL","PATCH192",8,192.8)=""
^DD(404.91,"GL","PATCH70",1,70.01)=""
^DD(404.91,"GL","PATCH70",2,70.02)=""
^DD(404.91,"GL","PCMM",1,801)=""
^DD(404.91,"GL","PCMM",2,802)=""
^DD(404.91,"GL","PCMM",3,803)=""
^DD(404.91,"GL","PCMM",4,804)=""
^DD(404.91,"IX",.01)=""
^DD(404.91,"RQ",.01)=""
^DD(404.91,"RQ",192.6)=""
^DD(404.91,"RQ",192.7)=""
^DD(404.91,"RQ",192.8)=""
^DD(404.91,"RQ",701)=""
^DD(404.91,"SB",404.9101,1000)=""
^DD(404.91,"SB",404.91709,709)=""
^DD(404.91,"SB",404.9171,710)=""
^DD(404.9101,0)="FILE DELETION LOG SUB-FIELD^^.04^4"
^DD(404.9101,0,"DT")="2990128"
^DD(404.9101,0,"IX","B",404.9101,.01)=""
^DD(404.9101,0,"NM","FILE DELETION LOG")=""
^DD(404.9101,0,"UP")="404.91"
^DD(404.9101,.01,0)="SCHEDULING FILE NUMBER^MNJ6,2X^^0;1^K:+X'=X!(X>409.5)!(X<40.1)!(X?.E1"".""3N.N) X IF $D(X),X'=40.1,X'=40.15,X'=409.43,X'=409.44,X'=409.5 K X"
^DD(404.9101,.01,1,0)="^.1"
^DD(404.9101,.01,1,1,0)="404.9101^B"
^DD(404.9101,.01,1,1,1)="S ^SD(404.91,DA(1),""DELETED"",""B"",$E(X,1,30),DA)="""""
^DD(404.9101,.01,1,1,2)="K ^SD(404.91,DA(1),""DELETED"",""B"",$E(X,1,30),DA)"
^DD(404.9101,.01,3)="Enter 40.1, 40.15, 409.43, 409.44 or 409.5."
^DD(404.9101,.01,21,0)="^^1^1^2990108^^"
^DD(404.9101,.01,21,1,0)="The number of the Scheduling file deleted."
^DD(404.9101,.01,"DT")="2990108"
^DD(404.9101,.02,0)="DATE/TIME OF DELETION^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(404.9101,.02,21,0)="^^1^1^2981009^"
^DD(404.9101,.02,21,1,0)="Date and time when file was deleted."
^DD(404.9101,.02,"DT")="2981009"
^DD(404.9101,.03,0)="USER EXECUTING DD DELETION^RP200'^VA(200,^0;3^Q"
^DD(404.9101,.03,3)="User responsible for deleting the file."
^DD(404.9101,.03,21,0)="^^1^1^2990128^^"
^DD(404.9101,.03,21,1,0)="User responsible for deleting the file data dictionary and templates."
^DD(404.9101,.03,"DT")="2990128"
^DD(404.9101,.04,0)="USER EXECUTING DATA DELETION^P200'^VA(200,^0;4^Q"
^DD(404.9101,.04,21,0)="^^1^1^2990128^"
^DD(404.9101,.04,21,1,0)="User responsible for deleting the file data."
^DD(404.9101,.04,"DT")="2990128"
^DD(404.9101,"B","DATE/TIME OF DELETION",.02)=""
^DD(404.9101,"B","SCHEDULING FILE NUMBER",.01)=""
^DD(404.9101,"B","USER EXECUTING DATA DELETION",.04)=""
^DD(404.9101,"B","USER EXECUTING DD DELETION",.03)=""
^DD(404.9101,"GL",0,1,.01)=""
^DD(404.9101,"GL",0,2,.02)=""
^DD(404.9101,"GL",0,3,.03)=""
^DD(404.9101,"GL",0,4,.04)=""
^DD(404.9101,"IX",.01)=""
^DD(404.9101,"RQ",.02)=""
^DD(404.9101,"RQ",.03)=""
^DD(404.91709,0)="ENCOUNTER DAY SUB-FIELD^^.09^9"
^DD(404.91709,0,"DT")="2970319"
^DD(404.91709,0,"IX","B",404.91709,.01)=""
^DD(404.91709,0,"NM","ENCOUNTER DAY")=""
^DD(404.91709,0,"UP")="404.91"
^DD(404.91709,.01,0)="ENCOUNTER DAY^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91709,.01,1,0)="^.1"
^DD(404.91709,.01,1,1,0)="404.91709^B"
^DD(404.91709,.01,1,1,1)="S ^SD(404.91,DA(1),""AMBCLN"",""B"",$E(X,1,30),DA)="""""
^DD(404.91709,.01,1,1,2)="K ^SD(404.91,DA(1),""AMBCLN"",""B"",$E(X,1,30),DA)"
^DD(404.91709,.01,21,0)="^^1^1^2970409^^^^"
^DD(404.91709,.01,21,1,0)="This is the encounter date that was reviewed."
^DD(404.91709,.01,23,0)="^^1^1^2970409^^^"
^DD(404.91709,.01,23,1,0)=" "
^DD(404.91709,.01,"DT")="2970320"
^DD(404.91709,.02,0)="START DATE^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91709,.02,21,0)="^^1^1^2970318^^"
^DD(404.91709,.02,21,1,0)="This is the date/time of the encounters that the job was to start at."
^DD(404.91709,.02,"DT")="2970318"
^DD(404.91709,.03,0)="END DATE^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91709,.03,21,0)="^^1^1^2970318^^"
^DD(404.91709,.03,21,1,0)="This is the date time the background job stopped processing the encounters."
^DD(404.91709,.03,"DT")="2970318"
^DD(404.91709,.04,0)="WHO RAN JOB^P200'^VA(200,^0;4^Q"
^DD(404.91709,.04,21,0)="^^1^1^2970318^^"
^DD(404.91709,.04,21,1,0)="This is the person who ran the job."
^DD(404.91709,.04,23,0)="^^1^1^2970318^"
^DD(404.91709,.04,23,1,0)=" "
^DD(404.91709,.04,"DT")="2970313"
^DD(404.91709,.05,0)="NUMBER OF ENCOUNTERS PROCESSED^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.91709,.05,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(404.91709,.05,21,0)="^^2^2^2970409^^"
^DD(404.91709,.05,21,1,0)="This is the number of encounters that were changed or attempted to be"
^DD(404.91709,.05,21,2,0)="changed for the given encounter date."
^DD(404.91709,.05,"DT")="2970318"
^DD(404.91709,.06,0)="TASK NUMBER^NJ11,0^^0;6^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.91709,.06,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(404.91709,.06,21,0)="^^1^1^2970318^"
^DD(404.91709,.06,21,1,0)="This is the task number of the background job."
^DD(404.91709,.06,"DT")="2970318"
^DD(404.91709,.07,0)="STATUS^S^O:OPEN;C:COMPLETED;S:STOPPED;^0;7^Q"
^DD(404.91709,.07,21,0)="^^1^1^2970409^^"
^DD(404.91709,.07,21,1,0)="This is the status of the encounter date the job is working on."
^DD(404.91709,.07,"DT")="2970318"
^DD(404.91709,.08,0)="PREVIOUS START DATE^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91709,.08,21,0)="^^2^2^2970319^^"
^DD(404.91709,.08,21,1,0)="This is a history of when the last date the background job was run for this"
^DD(404.91709,.08,21,2,0)="encounter date."
^DD(404.91709,.08,23,0)="^^2^2^2970319^"
^DD(404.91709,.08,23,1,0)=" "
^DD(404.91709,.08,23,2,0)=" "
^DD(404.91709,.08,"DT")="2970319"
^DD(404.91709,.09,0)="PREVIOUS END DATE^D^^0;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(404.91709,.09,21,0)="^^2^2^2970318^"
^DD(404.91709,.09,21,1,0)="This is a history of when the last date the background job was run for this"
^DD(404.91709,.09,21,2,0)="encounter date."
^DD(404.91709,.09,"DT")="2970319"
^DD(404.91709,"B","ENCOUNTER DAY",.01)=""
^DD(404.91709,"B","END DATE",.03)=""
^DD(404.91709,"B","NUMBER OF ENCOUNTERS PROCESSED",.05)=""
^DD(404.91709,"B","PREVIOUS END DATE",.09)=""
^DD(404.91709,"B","PREVIOUS START DATE",.08)=""
^DD(404.91709,"B","START DATE",.02)=""
^DD(404.91709,"B","STATUS",.07)=""
^DD(404.91709,"B","TASK NUMBER",.06)=""
^DD(404.91709,"B","WHO RAN JOB",.04)=""
^DD(404.91709,"GL",0,1,.01)=""
^DD(404.91709,"GL",0,2,.02)=""
^DD(404.91709,"GL",0,3,.03)=""
^DD(404.91709,"GL",0,4,.04)=""
^DD(404.91709,"GL",0,5,.05)=""
^DD(404.91709,"GL",0,6,.06)=""
^DD(404.91709,"GL",0,7,.07)=""
^DD(404.91709,"GL",0,8,.08)=""
^DD(404.91709,"GL",0,9,.09)=""
^DD(404.91709,"IX",.01)=""
^DD(404.9171,0)="NPCD ENCOUNTER MONTH SUB-FIELD^^.03^3"
^DD(404.9171,0,"DT")="2970415"
^DD(404.9171,0,"IX","B",404.9171,.01)=""
^DD(404.9171,0,"NM","NPCD ENCOUNTER MONTH")=""
^DD(404.9171,0,"UP")="404.91"
^DD(404.9171,.01,0)="NPCD ENCOUNTER MONTH^MF^^0;1^K:$L(X)>7!($L(X)<7)!'(X?2N1""-""4N) X"
^DD(404.9171,.01,.1)="Month of encounter"
^DD(404.9171,.01,1,0)="^.1"
^DD(404.9171,.01,1,1,0)="404.9171^B"
^DD(404.9171,.01,1,1,1)="S ^SD(404.91,DA(1),710,""B"",$E(X,1,30),DA)="""""
^DD(404.9171,.01,1,1,2)="K ^SD(404.91,DA(1),710,""B"",$E(X,1,30),DA)"
^DD(404.9171,.01,3)="Answer must be in the format MM-YYYY"
^DD(404.9171,.01,21,0)="^^1^1^2970415^^^^"
^DD(404.9171,.01,21,1,0)="Month & year that the Oupatient Encounter occurred on."
^DD(404.9171,.01,"DT")="2970415"
^DD(404.9171,.02,0)="NPCD DATABASE CLOSE-OUT^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.9171,.02,.1)="Date of database close-out"
^DD(404.9171,.02,21,0)="^^1^1^2970414^"
^DD(404.9171,.02,21,1,0)="Date that NPCD will no longer accept workload for crediting."
^DD(404.9171,.02,"DT")="2970414"
^DD(404.9171,.03,0)="NPCD WORKLOAD CLOSE-OUT^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(404.9171,.03,.1)="Date of workload close-out"
^DD(404.9171,.03,21,0)="^^2^2^2970414^"
^DD(404.9171,.03,21,1,0)="Date that NPCD will no longer accept workload for decision making"
^DD(404.9171,.03,21,2,0)="purposes."
^DD(404.9171,.03,"DT")="2970414"
^DD(404.9171,"B","Date of database close-out",.02)="1"
^DD(404.9171,"B","Date of workload close-out",.03)="1"
^DD(404.9171,"B","Month of encounter",.01)="1"
^DD(404.9171,"B","NPCD DATABASE CLOSE-OUT",.02)=""
^DD(404.9171,"B","NPCD ENCOUNTER MONTH",.01)=""
^DD(404.9171,"B","NPCD WORKLOAD CLOSE-OUT",.03)=""
^DD(404.9171,"GL",0,1,.01)=""
^DD(404.9171,"GL",0,2,.02)=""
^DD(404.9171,"GL",0,3,.03)=""
^DD(404.9171,"IX",.01)=""
^DD(404.9171,"RQ",.02)=""
^DD(404.9171,"RQ",.03)=""
^DD(404.92,0)="FIELD^^40^6"
^DD(404.92,0,"DDA")="N"
^DD(404.92,0,"DT")="2960314"
^DD(404.92,0,"IX","B",404.92,.01)=""
^DD(404.92,0,"IX","C",404.92,.02)=""
^DD(404.92,0,"NM","SCHEDULING REPORT DEFINITION")=""
^DD(404.92,0,"PT",404.95,.04)=""
^DD(404.92,0,"VR")="5.3"
^DD(404.92,0,"VRPK")="SD"
^DD(404.92,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(404.92,.01,1,0)="^.1"
^DD(404.92,.01,1,1,0)="404.92^B"
^DD(404.92,.01,1,1,1)="S ^SD(404.92,""B"",$E(X,1,30),DA)="""""
^DD(404.92,.01,1,1,2)="K ^SD(404.92,""B"",$E(X,1,30),DA)"
^DD(404.92,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(404.92,.01,21,0)="^^4^4^2960416^"
^DD(404.92,.01,21,1,0)="Name of scheduling report."
^DD(404.92,.01,21,2,0)=""
^DD(404.92,.01,21,3,0)="The name is presented to the user in the combo-box as part of the Query"
^DD(404.92,.01,21,4,0)="Template Utility functionality on the client workstation."
^DD(404.92,.02,0)="REPORT GROUP^P404.94'^SD(404.94,^0;2^Q"
^DD(404.92,.02,1,0)="^.1"
^DD(404.92,.02,1,1,0)="404.92^C"
^DD(404.92,.02,1,1,1)="S ^SD(404.92,""C"",$E(X,1,30),DA)="""""
^DD(404.92,.02,1,1,2)="K ^SD(404.92,""C"",$E(X,1,30),DA)"
^DD(404.92,.02,1,1,"DT")="2960306"
^DD(404.92,.02,21,0)="^^4^4^2960509^^"
^DD(404.92,.02,21,1,0)="This field indicates the report group associated with the"
^DD(404.92,.02,21,2,0)="report definition. The grouping will be used in future"
^DD(404.92,.02,21,3,0)="releases to help screen reports available to the user during"
^DD(404.92,.02,21,4,0)="report selection."
^DD(404.92,.02,"DT")="2960306"
^DD(404.92,10,0)="DESCRIPTION^404.9201^^1;0"
^DD(404.92,10,21,0)="^^2^2^2960416^"
^DD(404.92,10,21,1,0)="This field contains a description of the report's purpose"
^DD(404.92,10,21,2,0)="and output."
^DD(404.92,20,0)="SORTS^404.9202^^SORTS;0"
^DD(404.92,20,21,0)="^^5^5^2960509^^^"
^DD(404.92,20,21,1,0)="This multiple field contains the list of possible ways"
^DD(404.92,20,21,2,0)="this report can be sorted."
^DD(404.92,20,21,3,0)=""
^DD(404.92,20,21,4,0)="If this list contains more then one entry, then the user"
^DD(404.92,20,21,5,0)="must select a sort as part of the report criteria."
^DD(404.92,30,0)="FIELDS^404.9203P^^FIELDS;0"
^DD(404.92,30,21,0)="^^2^2^2960417^^"
^DD(404.92,30,21,1,0)="This multiple contains the list of fields used by this report"
^DD(404.92,30,21,2,0)="definition."
^DD(404.92,30,23,0)="^^3^3^2960417^"
^DD(404.92,30,23,1,0)="The fields entered into this multiple are the fields"
^DD(404.92,30,23,2,0)="presented to the user in the Query Template Utility"
^DD(404.92,30,23,3,0)="application on the client."
^DD(404.92,40,0)="FILES^404.9204PI^^FILES;0"
^DD(404.92,40,21,0)="^^14^14^2960417^^"
^DD(404.92,40,21,1,0)="This multiple contains the list of files that the"
^DD(404.92,40,21,2,0)="user usually must select entries for as part of"
^DD(404.92,40,21,3,0)="the report criteria."
^DD(404.92,40,21,4,0)=""
^DD(404.92,40,21,5,0)="Most reports require at least the selection of"
^DD(404.92,40,21,6,0)="one entry from each file in the multiple."
^DD(404.92,40,21,7,0)="However, there is at least one report where only one"
^DD(404.92,40,21,8,0)="selection is allowed for the file. Also, there is at"
^DD(404.92,40,21,9,0)="least one report that does not require any selection to"
^DD(404.92,40,21,10,0)="be made if the user desires the report to search for"
^DD(404.92,40,21,11,0)="null values."
^DD(404.92,40,21,12,0)=""
^DD(404.92,40,21,13,0)="The 'NUMBER OF SELECTIONS REQUIRED' (#.02) field"
^DD(404.92,40,21,14,0)="indicates how many selections need to be made."
^DD(404.92,"B","DESCRIPTION",10)=""
^DD(404.92,"B","FIELDS",30)=""
^DD(404.92,"B","FILES",40)=""
^DD(404.92,"B","NAME",.01)=""
^DD(404.92,"B","REPORT GROUP",.02)=""
^DD(404.92,"B","SORTS",20)=""
^DD(404.92,"GL",0,1,.01)=""
^DD(404.92,"GL",0,2,.02)=""
^DD(404.92,"GL",1,0,10)=""
^DD(404.92,"GL","FIELDS",0,30)=""
^DD(404.92,"GL","FILES",0,40)=""
^DD(404.92,"GL","SORTS",0,20)=""
^DD(404.92,"IX",.01)=""
^DD(404.92,"IX",.02)=""
^DD(404.92,"RQ",.01)=""
^DD(404.92,"SB",404.9201,10)=""
^DD(404.92,"SB",404.9202,20)=""
^DD(404.92,"SB",404.9203,30)=""
^DD(404.92,"SB",404.9204,40)=""
^DD(404.9201,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(404.9201,0,"DT")="2960306"
^DD(404.9201,0,"NM","DESCRIPTION")=""
^DD(404.9201,0,"UP")="404.92"
^DD(404.9201,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(404.9201,.01,"DT")="2960306"
^DD(404.9201,"B","DESCRIPTION",.01)=""
^DD(404.9201,"GL",0,1,.01)=""
^DD(404.9202,0)="SORTS SUB-FIELD^^.01^1"
^DD(404.9202,0,"DT")="2960306"
^DD(404.9202,0,"IX","B",404.9202,.01)=""
^DD(404.9202,0,"NM","SORTS")=""
^DD(404.9202,0,"UP")="404.92"
^DD(404.9202,.01,0)="SORTS^MF^^0;1^K:$L(X)>100!($L(X)<3) X"
^DD(404.9202,.01,1,0)="^.1"
^DD(404.9202,.01,1,1,0)="404.9202^B"
^DD(404.9202,.01,1,1,1)="S ^SD(404.92,DA(1),""SORTS"",""B"",$E(X,1,30),DA)="""""
^DD(404.9202,.01,1,1,2)="K ^SD(404.92,DA(1),""SORTS"",""B"",$E(X,1,30),DA)"
^DD(404.9202,.01,3)="Answer must be 3-100 characters in length."
^DD(404.9202,.01,21,0)="^^1^1^2960417^^"
^DD(404.9202,.01,21,1,0)="Pre-defined sort sequence available for report."
^DD(404.9202,.01,"DT")="2960306"
^DD(404.9202,"B","SORTS",.01)=""
^DD(404.9202,"GL",0,1,.01)=""
^DD(404.9202,"IX",.01)=""
^DD(404.9203,0)="FIELDS SUB-FIELD^^.04^4"
^DD(404.9203,0,"DT")="2960306"
^DD(404.9203,0,"IX","B",404.9203,.01)=""
^DD(404.9203,0,"NM","FIELDS")=""
^DD(404.9203,0,"UP")="404.92"
^DD(404.9203,.01,0)="FIELDS^MP404.93'^SD(404.93,^0;1^Q"
^DD(404.9203,.01,1,0)="^.1"
^DD(404.9203,.01,1,1,0)="404.9203^B"
^DD(404.9203,.01,1,1,1)="S ^SD(404.92,DA(1),""FIELDS"",""B"",$E(X,1,30),DA)="""""
^DD(404.9203,.01,1,1,2)="K ^SD(404.92,DA(1),""FIELDS"",""B"",$E(X,1,30),DA)"
^DD(404.9203,.01,21,0)="^^2^2^2960416^"
^DD(404.9203,.01,21,1,0)="This field contains the name of a field used by the report"
^DD(404.9203,.01,21,2,0)="definition."
^DD(404.9203,.01,"DT")="2960306"
^DD(404.9203,.02,0)="REQUIRED^S^0:NO;1:YES;^0;2^Q"
^DD(404.9203,.02,21,0)="^^4^4^2960417^^^"
^DD(404.9203,.02,21,1,0)="This parameter indicates if this field is required as part of"
^DD(404.9203,.02,21,2,0)="the report definition. If the field is required and the user"
^DD(404.9203,.02,21,3,0)="does not specify a value, an error will be returned and"
^DD(404.9203,.02,21,4,0)="displayed to the user."
^DD(404.9203,.02,"DT")="2960306"
^DD(404.9203,.03,0)="ALWAYS ASK^S^0:NO;1:YES;^0;3^Q"
^DD(404.9203,.03,21,0)="^^8^8^2960417^^"
^DD(404.9203,.03,21,1,0)="*** This field is currently not being used. ***"
^DD(404.9203,.03,21,2,0)=""
^DD(404.9203,.03,21,3,0)="This parameter indicates that the field should always be"
^DD(404.9203,.03,21,4,0)="presented to the user even if the query template has"
^DD(404.9203,.03,21,5,0)="a value specified for the field."
^DD(404.9203,.03,21,6,0)=""
^DD(404.9203,.03,21,7,0)="Typical fields where this parameter would be 'YES' are"
^DD(404.9203,.03,21,8,0)="date fields."
^DD(404.9203,.03,"DT")="2960306"
^DD(404.9203,.04,0)="DEFAULT VALUE^F^^0;4^K:$L(X)>100!($L(X)<1) X"
^DD(404.9203,.04,3)="Answer must be 1-100 characters in length."
^DD(404.9203,.04,21,0)="^^3^3^2960417^"
^DD(404.9203,.04,21,1,0)="This field can contain a value that will be used as"
^DD(404.9203,.04,21,2,0)="the default when the report criteria form is first"
^DD(404.9203,.04,21,3,0)="presented to the user."
^DD(404.9203,.04,"DT")="2960306"
^DD(404.9203,"B","ALWAYS ASK",.03)=""
^DD(404.9203,"B","DEFAULT VALUE",.04)=""
^DD(404.9203,"B","FIELDS",.01)=""
^DD(404.9203,"B","REQUIRED",.02)=""
^DD(404.9203,"GL",0,1,.01)=""
^DD(404.9203,"GL",0,2,.02)=""
^DD(404.9203,"GL",0,3,.03)=""
^DD(404.9203,"GL",0,4,.04)=""
^DD(404.9203,"IX",.01)=""
^DD(404.9204,0)="FILES SUB-FIELD^^.03^3"
^DD(404.9204,0,"DT")="2960314"
^DD(404.9204,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.9204,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(404.9204,0,"IX","B",404.9204,.01)=""
^DD(404.9204,0,"NM","FILES")=""
^DD(404.9204,0,"UP")="404.92"
^DD(404.9204,.01,0)="FILE^MP1'^DIC(^0;1^Q"
^DD(404.9204,.01,1,0)="^.1"
^DD(404.9204,.01,1,1,0)="404.9204^B"
^DD(404.9204,.01,1,1,1)="S ^SD(404.92,DA(1),""FILES"",""B"",$E(X,1,30),DA)="""""
^DD(404.9204,.01,1,1,2)="K ^SD(404.92,DA(1),""FILES"",""B"",$E(X,1,30),DA)"
^DD(404.9204,.01,21,0)="^^1^1^2960417^"
^DD(404.9204,.01,21,1,0)="Name of the file from which selections are made."
^DD(404.9204,.01,"DT")="2960306"
^DD(404.9204,.02,0)="NUMBER OF SELECTIONS REQUIRED^S^0:ONE/MANY/ALL/NONE;1:ONLY ONE;2:ONE/MANY/ALL;^0;2^Q"
^DD(404.9204,.02,21,0)="^^3^3^2960417^"
^DD(404.9204,.02,21,1,0)="This parameter indicates the number of selection the"
^DD(404.9204,.02,21,2,0)="user can make from the file specified in the FILE (#.01)"
^DD(404.9204,.02,21,3,0)="file."
^DD(404.9204,.02,"DT")="2960311"
^DD(404.9204,.03,0)="DEPENDENT SELECTION FILE^P1'^DIC(^0;3^Q"
^DD(404.9204,.03,21,0)="^^11^11^2960417^^"
^DD(404.9204,.03,21,1,0)="This parameter indicates which other file specified in the"
^DD(404.9204,.03,21,2,0)="multiple dictates which entries can be selected form the"
^DD(404.9204,.03,21,3,0)="current file being specified."
^DD(404.9204,.03,21,4,0)=""
^DD(404.9204,.03,21,5,0)="For example, typically when selecting entries from the"
^DD(404.9204,.03,21,6,0)="HOSPITAL LOCATION (#44) file, the user is restricted to"
^DD(404.9204,.03,21,7,0)="entries that are assoicated INSTITUTION file entries"
^DD(404.9204,.03,21,8,0)="made as part of the report criteria."
^DD(404.9204,.03,21,9,0)=""
^DD(404.9204,.03,21,10,0)="The Query Template Utility uses this parameter during the"
^DD(404.9204,.03,21,11,0)="'validation' check."
^DD(404.9204,.03,"DT")="2960314"
^DD(404.9204,"B","DEPENDENT SELECTION FILE",.03)=""
^DD(404.9204,"B","FILE",.01)=""
^DD(404.9204,"B","NUMBER OF SELECTIONS REQUIRED",.02)=""
^DD(404.9204,"GL",0,1,.01)=""
^DD(404.9204,"GL",0,2,.02)=""
^DD(404.9204,"GL",0,3,.03)=""
^DD(404.9204,"IX",.01)=""
^DD(404.93,0)="FIELD^^10^3"
^DD(404.93,0,"DDA")="N"
^DD(404.93,0,"DT")="2960307"
^DD(404.93,0,"IX","B",404.93,.01)=""
^DD(404.93,0,"IX","C",404.93,.02)=""
^DD(404.93,0,"NM","SCHEDULING REPORT FIELDS DEFINITION")=""
^DD(404.93,0,"PT",404.9203,.01)=""
^DD(404.93,0,"PT",404.9502,.01)=""
^DD(404.93,0,"VR")="5.3"
^DD(404.93,0,"VRPK")="SD"
^DD(404.93,.01,0)="FIELD^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(404.93,.01,1,0)="^.1"
^DD(404.93,.01,1,1,0)="404.93^B"
^DD(404.93,.01,1,1,1)="S ^SD(404.93,""B"",$E(X,1,30),DA)="""""
^DD(404.93,.01,1,1,2)="K ^SD(404.93,""B"",$E(X,1,30),DA)"
^DD(404.93,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(404.93,.01,21,0)="^^1^1^2960417^^"
^DD(404.93,.01,21,1,0)="Human readable/understandable name of field."
^DD(404.93,.02,0)="COMPONENT NAME^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(404.93,.02,1,0)="^.1"
^DD(404.93,.02,1,1,0)="404.93^C"
^DD(404.93,.02,1,1,1)="S ^SD(404.93,""C"",$E(X,1,30),DA)="""""
^DD(404.93,.02,1,1,2)="K ^SD(404.93,""C"",$E(X,1,30),DA)"
^DD(404.93,.02,1,1,"DT")="2960318"
^DD(404.93,.02,3)="Answer must be 3-40 characters in length."
^DD(404.93,.02,21,0)="^^2^2^2960417^"
^DD(404.93,.02,21,1,0)="Name of the Delphi component on the Query Template Utility"
^DD(404.93,.02,21,2,0)="form that corresponds to the field name."
^DD(404.93,.02,23,0)="^^3^3^2960417^"
^DD(404.93,.02,23,1,0)="The component name is used in the Query Template Utility"
^DD(404.93,.02,23,2,0)="to indicate the component should be visible/invisible on"
^DD(404.93,.02,23,3,0)="the form. It's also used for value lookup purposes."
^DD(404.93,.02,"DT")="2960318"
^DD(404.93,10,0)="DESCRIPTION^404.9301^^1;0"
^DD(404.93,10,21,0)="^^2^2^2960417^"
^DD(404.93,10,21,1,0)="This field contains a breif description of the purpose of the"
^DD(404.93,10,21,2,0)="field as it is used in the Query Template Utility."
^DD(404.93,"B","COMPONENT NAME",.02)=""
^DD(404.93,"B","DESCRIPTION",10)=""
^DD(404.93,"B","FIELD",.01)=""
^DD(404.93,"GL",0,1,.01)=""
^DD(404.93,"GL",0,2,.02)=""
^DD(404.93,"GL",1,0,10)=""
^DD(404.93,"IX",.01)=""
^DD(404.93,"IX",.02)=""
^DD(404.93,"RQ",.01)=""
^DD(404.93,"SB",404.9301,10)=""
^DD(404.9301,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(404.9301,0,"DT")="2960306"
^DD(404.9301,0,"NM","DESCRIPTION")=""
^DD(404.9301,0,"UP")="404.93"
^DD(404.9301,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(404.9301,.01,"DT")="2960306"
^DD(404.9301,"B","DESCRIPTION",.01)=""
^DD(404.9301,"GL",0,1,.01)=""
^DD(404.94,0)="FIELD^^10^3"
^DD(404.94,0,"DDA")="N"
^DD(404.94,0,"DT")="2960404"
^DD(404.94,0,"IX","B",404.94,.01)=""
^DD(404.94,0,"NM","SCHEDULING REPORT GROUP")=""
^DD(404.94,0,"PT",404.92,.02)=""
^DD(404.94,0,"VR")="5.3"
^DD(404.94,0,"VRPK")="SD"
^DD(404.94,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(404.94,.01,1,0)="^.1"
^DD(404.94,.01,1,1,0)="404.94^B"
^DD(404.94,.01,1,1,1)="S ^SD(404.94,""B"",$E(X,1,30),DA)="""""
^DD(404.94,.01,1,1,2)="K ^SD(404.94,""B"",$E(X,1,30),DA)"
^DD(404.94,.01,3)="Answer must be 3-30 characters in length."
^DD(404.94,.01,21,0)="^^1^1^2960417^^"
^DD(404.94,.01,21,1,0)="The field contains the name of the report group."
^DD(404.94,.01,"DT")="2960306"
^DD(404.94,.02,0)="REPORT CLASS^S^1:PCMM;^0;2^Q"
^DD(404.94,.02,21,0)="^^9^9^2960417^"
^DD(404.94,.02,21,1,0)="This field allows for a higher level classification of related"
^DD(404.94,.02,21,2,0)="reports."
^DD(404.94,.02,21,3,0)=""
^DD(404.94,.02,21,4,0)="Currently(4/96), there is only one class avaliable, PCMM."
^DD(404.94,.02,21,5,0)="However, it is envisioned that other sub-modules within"
^DD(404.94,.02,21,6,0)="scheduling will use the basic Query Template Utility."
^DD(404.94,.02,21,7,0)="When this occurs, this field will allow the utility to"
^DD(404.94,.02,21,8,0)="only allow user selection of reports available for the"
^DD(404.94,.02,21,9,0)="module accessing the utility."
^DD(404.94,.02,"DT")="2960404"
^DD(404.94,10,0)="DESCRIPTION^404.9401^^1;0"
^DD(404.94,"B","DESCRIPTION",10)=""
^DD(404.94,"B","NAME",.01)=""
^DD(404.94,"B","REPORT CLASS",.02)=""
^DD(404.94,"GL",0,1,.01)=""
^DD(404.94,"GL",0,2,.02)=""
^DD(404.94,"GL",1,0,10)=""
^DD(404.94,"IX",.01)=""
^DD(404.94,"RQ",.01)=""
^DD(404.94,"SB",404.9401,10)=""
^DD(404.9401,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(404.9401,0,"DT")="2951215"
^DD(404.9401,0,"NM","DESCRIPTION")=""
^DD(404.9401,0,"UP")="404.94"
^DD(404.9401,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(404.9401,.01,"DT")="2951215"
^DD(404.9401,"B","DESCRIPTION",.01)=""
^DD(404.9401,"GL",0,1,.01)=""
^DD(404.95,0)="FIELD^^40^8"
^DD(404.95,0,"DDA")="N"
^DD(404.95,0,"DT")="2960408"
^DD(404.95,0,"IX","AC",404.95,.02)=""
^DD(404.95,0,"IX","AD",404.95,.03)=""
^DD(404.95,0,"IX","B",404.95,.01)=""
^DD(404.95,0,"IX","C",404.95,.04)=""
^DD(404.95,0,"NM","SCHEDULING REPORT QUERY TEMPLATE")=""
^DD(404.95,0,"PT",403.35,1.15)=""
^DD(404.95,0,"VR")="5.3"
^DD(404.95,0,"VRPK")="SD"
^DD(404.95,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(404.95,.01,1,0)="^.1"
^DD(404.95,.01,1,1,0)="404.95^B"
^DD(404.95,.01,1,1,1)="S ^SD(404.95,""B"",$E(X,1,30),DA)="""""
^DD(404.95,.01,1,1,2)="K ^SD(404.95,""B"",$E(X,1,30),DA)"
^DD(404.95,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(404.95,.01,21,0)="^^5^5^2960408^"
^DD(404.95,.01,21,1,0)="Name of the query template specified by the creator/user."
^DD(404.95,.01,21,2,0)=""
^DD(404.95,.01,21,3,0)="Two templates cannot have the same name for a given user."
^DD(404.95,.01,21,4,0)="Templates can have the same name but they must be created"
^DD(404.95,.01,21,5,0)="by different users."
^DD(404.95,.01,23,0)="^^2^2^2960408^"
^DD(404.95,.01,23,1,0)="The template name and the creator is the composite primary"
^DD(404.95,.01,23,2,0)="key for this file."
^DD(404.95,.02,0)="CREATOR^P200'^VA(200,^0;2^Q"
^DD(404.95,.02,1,0)="^.1^^-1"
^DD(404.95,.02,1,1,0)="404.95^AC"
^DD(404.95,.02,1,1,1)="S ^SD(404.95,""AC"",$E(X,1,30),DA)="""""
^DD(404.95,.02,1,1,2)="K ^SD(404.95,""AC"",$E(X,1,30),DA)"
^DD(404.95,.02,1,1,"DT")="2960306"
^DD(404.95,.02,21,0)="^^1^1^2960408^"
^DD(404.95,.02,21,1,0)="This field contains the name of the creator of the template."
^DD(404.95,.02,"DT")="2960313"
^DD(404.95,.03,0)="ACCESS LEVEL^S^1:PRIVATE;2:PUBLIC;^0;3^Q"
^DD(404.95,.03,1,0)="^.1"
^DD(404.95,.03,1,1,0)="404.95^AD"
^DD(404.95,.03,1,1,1)="S ^SD(404.95,""AD"",$E(X,1,30),DA)="""""
^DD(404.95,.03,1,1,2)="K ^SD(404.95,""AD"",$E(X,1,30),DA)"
^DD(404.95,.03,1,1,"%D",0)="^^1^1^2960419^"
^DD(404.95,.03,1,1,"%D",1,0)="Allows quick retrieval of 'public' templates."
^DD(404.95,.03,1,1,"DT")="2960419"
^DD(404.95,.03,21,0)="^^7^7^2960408^"
^DD(404.95,.03,21,1,0)="When a template is created, the creator designates whether the"
^DD(404.95,.03,21,2,0)="template is a private template or a public template. Public"
^DD(404.95,.03,21,3,0)="templates can be used by other users but can only be edited"
^DD(404.95,.03,21,4,0)="by the creator."
^DD(404.95,.03,21,5,0)=""
^DD(404.95,.03,21,6,0)="Another user can copy the template with the 'save as' command"
^DD(404.95,.03,21,7,0)="and then make modifications."
^DD(404.95,.03,"DT")="2960419"
^DD(404.95,.04,0)="REPORT^P404.92'^SD(404.92,^0;4^Q"
^DD(404.95,.04,1,0)="^.1"
^DD(404.95,.04,1,1,0)="404.95^C"
^DD(404.95,.04,1,1,1)="S ^SD(404.95,""C"",$E(X,1,30),DA)="""""
^DD(404.95,.04,1,1,2)="K ^SD(404.95,""C"",$E(X,1,30),DA)"
^DD(404.95,.04,1,1,"DT")="2960306"
^DD(404.95,.04,21,0)="^^2^2^2960408^"
^DD(404.95,.04,21,1,0)="This field indicates the report that the template's pre-defined"
^DD(404.95,.04,21,2,0)="specifications are applied against."
^DD(404.95,.04,"DT")="2960306"
^DD(404.95,.05,0)="LAST SAVED DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(404.95,.05,21,0)="^^1^1^2960417^"
^DD(404.95,.05,21,1,0)="Date and time the user lasted saved this template."
^DD(404.95,.05,"DT")="2960408"
^DD(404.95,10,0)="DESCRIPTION^404.9501^^1;0"
^DD(404.95,10,21,0)="^^2^2^2960408^"
^DD(404.95,10,21,1,0)="Personal description for template specified by the template's "
^DD(404.95,10,21,2,0)="creator."
^DD(404.95,30,0)="FIELDS^404.9502P^^FIELDS;0"
^DD(404.95,30,21,0)="^^2^2^2960417^"
^DD(404.95,30,21,1,0)="This multiple contains the field names and user specified"
^DD(404.95,30,21,2,0)="values needed by the REPORT (#.04)."
^DD(404.95,40,0)="SELECTIONS^404.9503V^^FILES;0"
^DD(404.95,40,21,0)="^^3^3^2960417^^"
^DD(404.95,40,21,1,0)="This multiple contains the list of file entries"
^DD(404.95,40,21,2,0)="selected by the user to meet the report criteria"
^DD(404.95,40,21,3,0)="selection requirements."
^DD(404.95,"B","ACCESS LEVEL",.03)=""
^DD(404.95,"B","CREATOR",.02)=""
^DD(404.95,"B","DESCRIPTION",10)=""
^DD(404.95,"B","FIELDS",30)=""
^DD(404.95,"B","LAST SAVED DATE/TIME",.05)=""
^DD(404.95,"B","NAME",.01)=""
^DD(404.95,"B","REPORT",.04)=""
^DD(404.95,"B","SELECTIONS",40)=""
^DD(404.95,"GL",0,1,.01)=""
^DD(404.95,"GL",0,2,.02)=""
^DD(404.95,"GL",0,3,.03)=""
^DD(404.95,"GL",0,4,.04)=""
^DD(404.95,"GL",0,5,.05)=""
^DD(404.95,"GL",1,0,10)=""
^DD(404.95,"GL","FIELDS",0,30)=""
^DD(404.95,"GL","FILES",0,40)=""
^DD(404.95,"IX",.01)=""
^DD(404.95,"IX",.02)=""
^DD(404.95,"IX",.03)=""
^DD(404.95,"IX",.04)=""
^DD(404.95,"RQ",.01)=""
^DD(404.95,"SB",404.9501,10)=""
^DD(404.95,"SB",404.9502,30)=""
^DD(404.95,"SB",404.9503,40)=""
^DD(404.9501,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(404.9501,0,"DT")="2960306"
^DD(404.9501,0,"NM","DESCRIPTION")=""
^DD(404.9501,0,"UP")="404.95"
^DD(404.9501,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(404.9501,.01,"DT")="2960306"
^DD(404.9501,"B","DESCRIPTION",.01)=""
^DD(404.9501,"GL",0,1,.01)=""
^DD(404.9502,0)="FIELDS SUB-FIELD^^.02^2"
^DD(404.9502,0,"DT")="2960306"
^DD(404.9502,0,"IX","B",404.9502,.01)=""
^DD(404.9502,0,"NM","FIELDS")=""
^DD(404.9502,0,"UP")="404.95"
^DD(404.9502,.01,0)="FIELDS^MP404.93'^SD(404.93,^0;1^Q"
^DD(404.9502,.01,1,0)="^.1"
^DD(404.9502,.01,1,1,0)="404.9502^B"
^DD(404.9502,.01,1,1,1)="S ^SD(404.95,DA(1),""FIELDS"",""B"",$E(X,1,30),DA)="""""
^DD(404.9502,.01,1,1,2)="K ^SD(404.95,DA(1),""FIELDS"",""B"",$E(X,1,30),DA)"
^DD(404.9502,.01,21,0)="^^1^1^2960417^"
^DD(404.9502,.01,21,1,0)="Name of the field used by the REPORT (#.04)."
^DD(404.9502,.01,"DT")="2960306"
^DD(404.9502,.02,0)="VALUE^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(404.9502,.02,3)="Answer must be 1-100 characters in length."
^DD(404.9502,.02,21,0)="^^3^3^2960417^^"
^DD(404.9502,.02,21,1,0)="Criteria value specified by the user for the field."
^DD(404.9502,.02,21,2,0)="This value is used during report execution and"
^DD(404.9502,.02,21,3,0)="displayed to the user in the Query Template Utility."
^DD(404.9502,.02,"DT")="2960306"
^DD(404.9502,"B","FIELDS",.01)=""
^DD(404.9502,"B","VALUE",.02)=""
^DD(404.9502,"GL",0,1,.01)=""
^DD(404.9502,"GL",0,2,.02)=""
^DD(404.9502,"IX",.01)=""
^DD(404.9503,0)="SELECTIONS SUB-FIELD^^.01^1"
^DD(404.9503,0,"DT")="2960306"
^DD(404.9503,0,"IX","B",404.9503,.01)=""
^DD(404.9503,0,"NM","SELECTIONS")=""
^DD(404.9503,0,"UP")="404.95"
^DD(404.9503,.01,0)="SELECTIONS^MV^^0;1^Q"
^DD(404.9503,.01,1,0)="^.1"
^DD(404.9503,.01,1,1,0)="404.9503^B"
^DD(404.9503,.01,1,1,1)="S ^SD(404.95,DA(1),""FILES"",""B"",$E(X,1,30),DA)="""""
^DD(404.9503,.01,1,1,2)="K ^SD(404.95,DA(1),""FILES"",""B"",$E(X,1,30),DA)"
^DD(404.9503,.01,1,1,3)="Required Index for Variable Pointer"
^DD(404.9503,.01,21,0)="^^3^3^2960417^"
^DD(404.9503,.01,21,1,0)="This field contains the user selected file entry."
^DD(404.9503,.01,21,2,0)="The entry meets one of the report criteria selection"
^DD(404.9503,.01,21,3,0)="requirements."
^DD(404.9503,.01,"DT")="2960306"
^DD(404.9503,.01,"V",0)="^.12P^6^6"
^DD(404.9503,.01,"V",1,0)="4^DIVISION^1^D^n^n"
^DD(404.9503,.01,"V",2,0)="403.46^ROLE^2^R^n^n"
^DD(404.9503,.01,"V",3,0)="404.51^TEAM^3^T^n^n"
^DD(404.9503,.01,"V",4,0)="200^PRACTITIONER^4^P^n^n"
^DD(404.9503,.01,"V",5,0)="44^CLINIC^5^C^y^n"
^DD(404.9503,.01,"V",5,1)="SET DIC(""S"")=""IF $P(^(0),U,3)[""""C"""""""
^DD(404.9503,.01,"V",5,2)="Allows only clinics."
^DD(404.9503,.01,"V",6,0)="8930^User Class^6^U"
^DD(404.9503,.01,"V","B",4,1)=""
^DD(404.9503,.01,"V","B",44,5)=""
^DD(404.9503,.01,"V","B",200,4)=""
^DD(404.9503,.01,"V","B",403.46,2)=""
^DD(404.9503,.01,"V","B",404.51,3)=""
^DD(404.9503,.01,"V","B",8930,6)=""
^DD(404.9503,.01,"V","M","CLINIC",5)=""
^DD(404.9503,.01,"V","M","DIVISION",1)=""
^DD(404.9503,.01,"V","M","PRACTITIONER",4)=""
^DD(404.9503,.01,"V","M","ROLE",2)=""
^DD(404.9503,.01,"V","M","TEAM",3)=""
^DD(404.9503,.01,"V","M","User Class",6)=""
^DD(404.9503,.01,"V","O",1,1)=""
^DD(404.9503,.01,"V","O",2,2)=""
^DD(404.9503,.01,"V","O",3,3)=""
^DD(404.9503,.01,"V","O",4,4)=""
^DD(404.9503,.01,"V","O",5,5)=""
^DD(404.9503,.01,"V","O",6,6)=""
^DD(404.9503,.01,"V","P","C",5)=""
^DD(404.9503,.01,"V","P","D",1)=""
^DD(404.9503,.01,"V","P","P",4)=""
^DD(404.9503,.01,"V","P","R",2)=""
^DD(404.9503,.01,"V","P","T",3)=""
^DD(404.9503,.01,"V","P","U",6)=""
^DD(404.9503,"B","SELECTIONS",.01)=""
^DD(404.9503,"GL",0,1,.01)=""
^DD(404.9503,"IX",.01)=""
^DD(404.98,0)="FIELD^^211^33"
^DD(404.98,0,"DDA")="N"
^DD(404.98,0,"DT")="2981029"
^DD(404.98,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.98,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(404.98,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(404.98,0,"ID",.04)="W ""   "",$E($P(^(0),U,4),4,5)_""-""_$E($P(^(0),U,4),6,7)_""-""_$E($P(^(0),U,4),2,3)"
^DD(404.98,0,"IX","AIX1",404.98,.05)=""
^DD(404.98,0,"IX","B",404.98,.01)=""
^DD(404.98,0,"IX","C",404.98,.03)=""
^DD(404.98,0,"IX","TYP",404.98,.02)=""
^DD(404.98,0,"NM","SCHEDULING CONVERSION SPECIFICATION TEMPLATE")=""
^DD(404.98,0,"VR")="5.3"
^DD(404.98,0,"VRPK")="SD"
^DD(404.98,.01,0)="NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(404.98,.01,1,0)="^.1^^-1"
^DD(404.98,.01,1,1,0)="404.98^B"
^DD(404.98,.01,1,1,1)="S ^SD(404.98,""B"",$E(X,1,30),DA)="""""
^DD(404.98,.01,1,1,2)="K ^SD(404.98,""B"",$E(X,1,30),DA)"
^DD(404.98,.01,1,1,"%D",0)="^^1^1^2950606^"
^DD(404.98,.01,1,1,"%D",1,0)="This cross-reference allows look-up by number."
^DD(404.98,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(404.98,.01,21,0)="^^1^1^3000113^^^^"
^DD(404.98,.01,21,1,0)="This field contains the CST number.  It is the primary key to this file."
^DD(404.98,.01,"DT")="2960426"
^DD(404.98,.02,0)="TYPE^RS^1:ENCOUNTER;^0;2^Q"
^DD(404.98,.02,1,0)="^.1"
^DD(404.98,.02,1,1,0)="404.98^TYP"
^DD(404.98,.02,1,1,1)="S ^SD(404.98,""TYP"",$E(X,1,30),DA)="""""
^DD(404.98,.02,1,1,2)="K ^SD(404.98,""TYP"",$E(X,1,30),DA)"
^DD(404.98,.02,1,1,"%D",0)="^^1^1^2950606^"
^DD(404.98,.02,1,1,"%D",1,0)="This cross-reference allows look-up by type of conversion."
^DD(404.98,.02,1,1,"DT")="2950322"
^DD(404.98,.02,21,0)="^^3^3^2981102^^^^"
^DD(404.98,.02,21,1,0)="This field contains the type of template entry."
^DD(404.98,.02,21,2,0)=" "
^DD(404.98,.02,21,3,0)="(Currently, only the 'ENCOUNTER' type is used.)"
^DD(404.98,.02,"DT")="2980217"
^DD(404.98,.03,0)="START DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:2960930<X!(2700101>X) X"
^DD(404.98,.03,1,0)="^.1"
^DD(404.98,.03,1,1,0)="404.98^C"
^DD(404.98,.03,1,1,1)="S ^SD(404.98,""C"",$E(X,1,30),DA)="""""
^DD(404.98,.03,1,1,2)="K ^SD(404.98,""C"",$E(X,1,30),DA)"
^DD(404.98,.03,1,1,3)="DO NOT DELETE"
^DD(404.98,.03,1,1,"DT")="2980108"
^DD(404.98,.03,3)="TYPE A DATE BETWEEN 1/1/1970 AND 9/30/1996"
^DD(404.98,.03,21,0)="^^2^2^2981030^^^^"
^DD(404.98,.03,21,1,0)="This field contains the user specified start date for encounters to be"
^DD(404.98,.03,21,2,0)="converted by this CST."
^DD(404.98,.03,"DT")="2980204"
^DD(404.98,.04,0)="END DATE^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:2960930<X!(2700101>X) X"
^DD(404.98,.04,3)="TYPE A DATE BETWEEN 1/1/1970 AND 9/30/1996"
^DD(404.98,.04,21,0)="^^2^2^2981030^^"
^DD(404.98,.04,21,1,0)="This field contains the user specified end date for encounters to be"
^DD(404.98,.04,21,2,0)="converted by this CST."
^DD(404.98,.04,"DT")="2980204"
^DD(404.98,.05,0)="LAST LOG EVENT^*S^0:ESTIMATE;1:CONVERT;2:RE-CONVERT;3:CANCEL;^0;5^Q"
^DD(404.98,.05,1,0)="^.1"
^DD(404.98,.05,1,1,0)="404.98^AIX1^MUMPS"
^DD(404.98,.05,1,1,1)="I '$P(^SD(404.98,DA,0),U,7) D HIS^SCCVLOG($$NOW^XLFDT,DA,1,"""",404.98)"
^DD(404.98,.05,1,1,2)="I $P(^SD(404.98,DA,0),U,5)'=X D HIS^SCCVLOG($$NOW^XLFDT,DA,1,"""",404.98)"
^DD(404.98,.05,1,1,"%D",0)="^^3^3^2981030^^^^"
^DD(404.98,.05,1,1,"%D",1,0)="This mumps cross-reference works like a ""trigger"" cross-reference."
^DD(404.98,.05,1,1,"%D",2,0)="When the CST event changes, a new action of 'Pending' is added to the"
^DD(404.98,.05,1,1,"%D",3,0)="CST EVENT sub-file."
^DD(404.98,.05,1,1,"DT")="2960426"
^DD(404.98,.05,1,2,0)="^^TRIGGER^404.98^.08"
^DD(404.98,.05,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(404.98,.05,1,2,1.4)"
^DD(404.98,.05,1,2,1.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.98,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.98,.05,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(404.98,.05,1,2,2.4)"
^DD(404.98,.05,1,2,2.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.98,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.98,.05,1,2,3)="DO NOT DELETE"
^DD(404.98,.05,1,2,"%D",0)="^^1^1^2980203^"
^DD(404.98,.05,1,2,"%D",1,0)="This forces the last request action to be deleted when a new event is selected."
^DD(404.98,.05,1,2,"CREATE VALUE")="@"
^DD(404.98,.05,1,2,"DELETE VALUE")="@"
^DD(404.98,.05,1,2,"DT")="2980203"
^DD(404.98,.05,1,2,"FIELD")="LAST LOG REQUEST ACTION"
^DD(404.98,.05,5,1,0)="404.98^.09^1"
^DD(404.98,.05,12)="For re-convert, site parameter must be set to 'YES'."
^DD(404.98,.05,12.1)="S DIC(""S"")=""IF $S(Y'=2:1,1:$P($G(^SD(404.91,1,""""CNV"""")),U,6))"""
^DD(404.98,.05,21,0)="^^1^1^2981102^^^^"
^DD(404.98,.05,21,1,0)="This field contains the last event logged for this CST."
^DD(404.98,.05,"DT")="2981029"
^DD(404.98,.06,0)="BULLETIN UPON COMPLETION^S^0:NO;1:YES;^0;6^Q"
^DD(404.98,.06,21,0)="^^2^2^2981030^^^^"
^DD(404.98,.06,21,1,0)="This field indicates whether or not a user requested a bulletin to be sent"
^DD(404.98,.06,21,2,0)="at the completion of a specified event."
^DD(404.98,.06,"DT")="2960502"
^DD(404.98,.07,0)="LAST LOG EVENT STATUS^S^1:PENDING;2:STARTED;3:STOPPED;4:RE-STARTED;5:COMPLETED;6:QUEUED;7:CANCELED;^0;7^Q^^2"
^DD(404.98,.07,5,1,0)="404.9875^.02^2"
^DD(404.98,.07,5,2,0)="404.98^.09^2"
^DD(404.98,.07,9)="^"
^DD(404.98,.07,21,0)="^^2^2^2981030^^"
^DD(404.98,.07,21,1,0)="This field is triggered by the EVENT field of the CST EVENT sub-file."
^DD(404.98,.07,21,2,0)="It contains the last event status for this CST."
^DD(404.98,.07,"DT")="2980302"
^DD(404.98,.08,0)="LAST LOG REQUEST ACTION^S^1:SCHEDULE;2:STOP;3:RE-START;^0;8^Q"
^DD(404.98,.08,5,1,0)="404.9825^.02^1"
^DD(404.98,.08,5,2,0)="404.98^.05^2"
^DD(404.98,.08,9)="^"
^DD(404.98,.08,21,0)="^^1^1^2981030^^^"
^DD(404.98,.08,21,1,0)="This field contains the last action request for this CST."
^DD(404.98,.08,"DT")="2960507"
^DD(404.98,.09,0)="CONVERSION CANCELED^S^0:NO;1:YES;^0;9^Q"
^DD(404.98,.09,1,0)="^.1"
^DD(404.98,.09,1,1,0)="^^TRIGGER^404.98^.05"
^DD(404.98,.09,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(404.98,.09,1,1,1.4)"
^DD(404.98,.09,1,1,1.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=404.98,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.98,.09,1,1,2)="Q"
^DD(404.98,.09,1,1,"CREATE VALUE")="S X=3"
^DD(404.98,.09,1,1,"DELETE VALUE")="NO EFFECT"
^DD(404.98,.09,1,1,"FIELD")="LAST LOG EVENT"
^DD(404.98,.09,1,2,0)="^^TRIGGER^404.98^.07"
^DD(404.98,.09,1,2,1)="X ^DD(404.98,.09,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=5 X ^DD(404.98,.09,1,2,1.4)"
^DD(404.98,.09,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(404.98,.09,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""YES"""
^DD(404.98,.09,1,2,1.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.98,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.98,.09,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(404.98,.09,1,2,2.4)"
^DD(404.98,.09,1,2,2.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.98,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.98,.09,1,2,3)="DO NOT DELETE"
^DD(404.98,.09,1,2,"CREATE CONDITION")="CONVERSION CANCELED=""YES"""
^DD(404.98,.09,1,2,"CREATE VALUE")="S X=5"
^DD(404.98,.09,1,2,"DELETE VALUE")="@"
^DD(404.98,.09,1,2,"DT")="2980309"
^DD(404.98,.09,1,2,"FIELD")="#.07"
^DD(404.98,.09,21,0)="^^1^1^2981030^"
^DD(404.98,.09,21,1,0)="This field indicates that the CST has been canceled when set to 'YES'."
^DD(404.98,.09,"DT")="2980309"
^DD(404.98,1.01,0)="LAST ENTRY PROCESSED^NJ9,0I^^1;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(404.98,1.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(404.98,1.01,21,0)="^^7^7^2981030^^^^"
^DD(404.98,1.01,21,1,0)="This field contains the last entry converted by the CST. If the conversion"
^DD(404.98,1.01,21,2,0)="process is interrupted or stopped, this field is used to determine where"
^DD(404.98,1.01,21,3,0)="to re-start the CST."
^DD(404.98,1.01,21,4,0)=" "
^DD(404.98,1.01,21,5,0)="For the 'Encounter' type CST, this field will be the Outpatient"
^DD(404.98,1.01,21,6,0)="Encounter IEN of the last entry successfully converted.  This field is"
^DD(404.98,1.01,21,7,0)="not filled in until all processing of the encounter has taken place."
^DD(404.98,1.01,"DT")="2980108"
^DD(404.98,1.02,0)="NUMBER OF ENTRIES^NJ9,0I^^1;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,1.02,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(404.98,1.02,21,0)="^^2^2^2981030^^^"
^DD(404.98,1.02,21,1,0)="This field contains the number of entries converted by this CST."
^DD(404.98,1.02,21,2,0)="It is incremented each time an entry is successfully converted."
^DD(404.98,1.02,"DT")="2960515"
^DD(404.98,1.03,0)="TASK #^NJ10,0^^1;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,1.03,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(404.98,1.03,21,0)="^^2^2^2981030^^^"
^DD(404.98,1.03,21,1,0)="This field contains the TaskMan task number of current event for this CST."
^DD(404.98,1.03,21,2,0)="If the task is completed or stopped this field is deleted."
^DD(404.98,1.03,"DT")="2951130"
^DD(404.98,1.04,0)="VOLUME SET^F^^1;4^K:$L(X)>4!($L(X)<1) X"
^DD(404.98,1.04,3)="Answer must be 1-4 characters in length."
^DD(404.98,1.04,21,0)="^^5^5^2981030^^"
^DD(404.98,1.04,21,1,0)="This field is used to determine if the last TaskMan task number assigned"
^DD(404.98,1.04,21,2,0)="is active so more than one conversion job doesn't run at a time for the CST."
^DD(404.98,1.04,21,3,0)=""
^DD(404.98,1.04,21,4,0)="This value is used as input to STAT^%ZTLOAD. The results are used to"
^DD(404.98,1.04,21,5,0)="determine if the task is active or not."
^DD(404.98,1.04,"DT")="2951204"
^DD(404.98,1.05,0)="TOTAL ERRORS LOGGED^NJ9,0^^1;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,1.05,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(404.98,1.05,5,1,0)="404.9825^.07^1"
^DD(404.98,1.05,21,0)="^^2^2^2981030^^^"
^DD(404.98,1.05,21,1,0)="The total # of errors logged for this CST.  This number is reset on"
^DD(404.98,1.05,21,2,0)="reconvert to 0."
^DD(404.98,1.05,"DT")="2980320"
^DD(404.98,2.01,0)="NUMBER OF ADD/EDITS FOUND^NJ15,0^^2;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.01,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.01,21,0)="^^2^2^2981030^^"
^DD(404.98,2.01,21,1,0)="This field contains the total number of add/edits found by the"
^DD(404.98,2.01,21,2,0)="estimator for this CST."
^DD(404.98,2.01,"DT")="2960510"
^DD(404.98,2.02,0)="NUMBER OF ANCILLARIES FOUND^NJ15,0^^2;2^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.02,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.02,21,0)="^^2^2^2981030^^^^"
^DD(404.98,2.02,21,1,0)="This field contains the number of ancillaries visits associated with"
^DD(404.98,2.02,21,2,0)="appointments found by the estimator for this CST."
^DD(404.98,2.02,"DT")="2980120"
^DD(404.98,2.03,0)="NUMBER OF APPOINTMENTS FOUND^NJ14,0^^2;3^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.03,3)="Type a Number between 0 and 99999999999999, 0 Decimal Digits"
^DD(404.98,2.03,21,0)="^^2^2^2981030^^"
^DD(404.98,2.03,21,1,0)="This field contains the number of appointments found by the"
^DD(404.98,2.03,21,2,0)="estimator for this CST."
^DD(404.98,2.03,"DT")="2980120"
^DD(404.98,2.04,0)="NUMBER OF CREDIT STOPS FOUND^NJ15,0^^2;4^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.04,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.04,21,0)="^^2^2^2981030^^"
^DD(404.98,2.04,21,1,0)="This field contains the number of credit stops associated with appointments "
^DD(404.98,2.04,21,2,0)="found by the estimator for this CST."
^DD(404.98,2.04,"DT")="2980120"
^DD(404.98,2.05,0)="NUMBER OF DISPOSITIONS FOUND^NJ15,0^^2;5^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.05,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.05,21,0)="^^2^2^2981030^^^"
^DD(404.98,2.05,21,1,0)="This field contains the number of dispositions found by the estimator for"
^DD(404.98,2.05,21,2,0)="this CST."
^DD(404.98,2.05,"DT")="2980120"
^DD(404.98,2.06,0)="RECORDS NOT CONVERTED^NJ15,0^^2;6^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.06,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.06,21,0)="^^2^2^2981030^^"
^DD(404.98,2.06,21,1,0)="This is the total # of records not converted by this CST due to errors"
^DD(404.98,2.06,21,2,0)="or missing data."
^DD(404.98,2.06,"DT")="2980209"
^DD(404.98,2.07,0)="NUMBER OF ENCOUNTERS^NJ15,0^^2;7^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.07,.1)="NUMBER OF ENCOUNTERS TO BE CREATED"
^DD(404.98,2.07,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.07,21,0)="^^3^3^2981207^^^^"
^DD(404.98,2.07,21,1,0)="This field contains the number of records that will be created"
^DD(404.98,2.07,21,2,0)="in the OUTPATIENT ENCOUNTER (#409.68) file by this CST, as determined"
^DD(404.98,2.07,21,3,0)="by the estimator."
^DD(404.98,2.07,"DT")="2981203"
^DD(404.98,2.08,0)="NUMBER OF VISITS^NJ15,0^^2;8^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.08,.1)="NUMBER OF VISITS TO BE CREATED"
^DD(404.98,2.08,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.08,21,0)="^^2^2^2981207^^^^"
^DD(404.98,2.08,21,1,0)="This field contains the number of records that will be created in the"
^DD(404.98,2.08,21,2,0)="VISIT (#9000010) file by this CST, as determined by the estimator."
^DD(404.98,2.08,"DT")="2981203"
^DD(404.98,2.09,0)="NUMBER OF V PROVIDERs^NJ15,0^^2;9^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.09,.1)="NUMBER OF V PROVIDERs TO BE CREATED"
^DD(404.98,2.09,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.09,21,0)="^^3^3^2981207^^^^"
^DD(404.98,2.09,21,1,0)="This field contains the number of PCE provider records that will be"
^DD(404.98,2.09,21,2,0)="created in the V PROVIDER (#9000010.06) file by this CST, as determined"
^DD(404.98,2.09,21,3,0)="by the estimator."
^DD(404.98,2.09,"DT")="2981203"
^DD(404.98,2.1,0)="NUMBER OF V POVs^NJ15,0^^2;10^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.1,.1)="NUMBER OF V POVs TO BE CREATED"
^DD(404.98,2.1,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.1,21,0)="^^3^3^2981207^^^"
^DD(404.98,2.1,21,1,0)="This field contains the number of PCE diagnosis records that will be"
^DD(404.98,2.1,21,2,0)="created in the V POV (#9000010.07) file by this CST, as determined"
^DD(404.98,2.1,21,3,0)="by the estimator."
^DD(404.98,2.1,"DT")="2981203"
^DD(404.98,2.11,0)="NUMBER OF V CPTs^NJ15,0^^2;11^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.98,2.11,.1)="NUMBEROF V CPTs TO BE CREATED"
^DD(404.98,2.11,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(404.98,2.11,21,0)="^^3^3^2981207^^^^"
^DD(404.98,2.11,21,1,0)="This field contains the number of PCE procedure records that will be"
^DD(404.98,2.11,21,2,0)="created in the V CPT (#9000010.18) file by this CST, as determined"
^DD(404.98,2.11,21,3,0)="by the estimator."
^DD(404.98,2.11,"DT")="2981203"
^DD(404.98,25,0)="REQUEST LOG^404.9825DAI^^R;0"
^DD(404.98,25,21,0)="^^2^2^2981102^^^^"
^DD(404.98,25,21,1,0)="This sub-file contains the request action log for events executed for"
^DD(404.98,25,21,2,0)="this CST."
^DD(404.98,25,"DT")="2980108"
^DD(404.98,50,0)="ERROR LOG^404.985^^ERROR;0"
^DD(404.98,50,21,0)="^^1^1^2981030^^^"
^DD(404.98,50,21,1,0)="This field contains any errors encountered while processing the CST events."
^DD(404.98,75,0)="EVENT LOG^404.9875DAI^^E;0"
^DD(404.98,75,21,0)="^^2^2^2981030^^"
^DD(404.98,75,21,1,0)="This sub-file contains information about the events which took place"
^DD(404.98,75,21,2,0)="for this CST."
^DD(404.98,75,"DT")="2980108"
^DD(404.98,207,0)="SCE GLOBAL ESTIMATE^CJ13,0^^ ; ^N E S E=$G(^SD(404.98,D0,2)) S X=($$SCE^SCCVEGU1()*$P(E,U,7))+($$SCEUPD^SCCVEGU1()*($P(E,U,8)-$P(E,U,7))) S X=$J(X,0,0)"
^DD(404.98,207,9)="^"
^DD(404.98,207,9.01)=""
^DD(404.98,207,9.1)="N E S E=$G(^SD(404.98,D0,2)) S X=($$SCE^SCCVEGU1()*$P(E,U,7))+($$SCEUPD^SCCVEGU1()*($P(E,U,8)-$P(E,U,7)))"
^DD(404.98,207,21,0)="^^13^13^2981207^^^"
^DD(404.98,207,21,1,0)="This computed field provides an estimate on how much disk space will be"
^DD(404.98,207,21,2,0)="required for OUTPATIENT ENCOUNTER (#409.68)records created or modified by"
^DD(404.98,207,21,3,0)="this CST."
^DD(404.98,207,21,4,0)=""
^DD(404.98,207,21,5,0)="The records are stored in the ^SCE global."
^DD(404.98,207,21,6,0)=""
^DD(404.98,207,21,7,0)=""
^DD(404.98,207,21,8,0)="The formula used is the following:"
^DD(404.98,207,21,9,0)=""
^DD(404.98,207,21,10,0)="  NUMBER OF ENCOUNTERS TO BE CREATED * SCE BLOCKS PER NEW RECORD"
^DD(404.98,207,21,11,0)="                                +"
^DD(404.98,207,21,12,0)="  ((NUMBER OF VISITS TO BE CREATED - NUMBER OF ENOCUNTERS TO BE CREATED)"
^DD(404.98,207,21,13,0)="                                     * SCE BLOCKS PER UPDATED RECORD)"
^DD(404.98,207,"DT")="2981203"
^DD(404.98,208,0)="AUPNVSIT GLOBAL ESTIMATE^CJ13,0^^ ; ^N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVSIT^SCCVEGU1()*$P(E,U,8) S X=$J(X,0,0)"
^DD(404.98,208,9)="^"
^DD(404.98,208,9.01)=""
^DD(404.98,208,9.1)="N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVSIT^SCCVEGU1()*$P(E,U,8)"
^DD(404.98,208,21,0)="^^10^10^2981207^^"
^DD(404.98,208,21,1,0)="This computed field provides an estimate on how much disk space will be"
^DD(404.98,208,21,2,0)="required for VISIT (#9000010) records created by this CST."
^DD(404.98,208,21,3,0)=""
^DD(404.98,208,21,4,0)="The records are stored in the ^AUPNVSIT global."
^DD(404.98,208,21,5,0)=""
^DD(404.98,208,21,6,0)=""
^DD(404.98,208,21,7,0)="The formula used is the following:"
^DD(404.98,208,21,8,0)=""
^DD(404.98,208,21,9,0)="     NUMBER OF VISITS TO BE CREATED * AUPNVSIT BLOCKS PER NEW RECORD"
^DD(404.98,208,21,10,0)=""
^DD(404.98,208,"DT")="2981128"
^DD(404.98,209,0)="AUPNVPRV GLOBAL ESTIMATE^CJ13,0^^ ; ^N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVPRV^SCCVEGU1()*$P(E,U,9) S X=$J(X,0,0)"
^DD(404.98,209,9)="^"
^DD(404.98,209,9.01)=""
^DD(404.98,209,9.1)="N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVPRV^SCCVEGU1()*$P(E,U,9)"
^DD(404.98,209,21,0)="^^10^10^2981207^^^"
^DD(404.98,209,21,1,0)="This computed field provides an estimate on how much disk space will be"
^DD(404.98,209,21,2,0)="required for V PROVIDER (#9000010.06) records created by this CST."
^DD(404.98,209,21,3,0)=""
^DD(404.98,209,21,4,0)="The records are stored in the ^AUPNVPRV global."
^DD(404.98,209,21,5,0)=""
^DD(404.98,209,21,6,0)=""
^DD(404.98,209,21,7,0)="The formula used is the following:"
^DD(404.98,209,21,8,0)=""
^DD(404.98,209,21,9,0)="     NUMBER OF V PROVIDERs TO BE CREATED * AUPNVPRV BLOCKS PER NEW RECORD"
^DD(404.98,209,21,10,0)=""
^DD(404.98,210,0)="AUPNVPOV GLOBAL ESTIMATE^CJ13,0^^ ; ^N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVPOV^SCCVEGU1()*$P(E,U,10) S X=$J(X,0,0)"
^DD(404.98,210,9)="^"
^DD(404.98,210,9.01)=""
^DD(404.98,210,9.1)="N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVPOV^SCCVEGU1()*$P(E,U,10)"
^DD(404.98,210,21,0)="^^10^10^2981207^^"
^DD(404.98,210,21,1,0)="This computed field provides an estimate on how much disk space will be"
^DD(404.98,210,21,2,0)="required for V POV (#9000010.07) records created by this CST."
^DD(404.98,210,21,3,0)=""
^DD(404.98,210,21,4,0)="The records are stored in the ^AUPNVPOV global."
^DD(404.98,210,21,5,0)=""
^DD(404.98,210,21,6,0)=""
^DD(404.98,210,21,7,0)="The formula used is the following:"
^DD(404.98,210,21,8,0)=""
^DD(404.98,210,21,9,0)="     NUMBER OF V POVs TO BE CREATED * AUPNVPOV BLOCKS PER NEW RECORD"
^DD(404.98,210,21,10,0)=""
^DD(404.98,211,0)="AUPNVCPT GLOBAL ESTIMATE^CJ13,0^^ ; ^N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVCPT^SCCVEGU1()*$P(E,U,11) S X=$J(X,0,0)"
^DD(404.98,211,9)="^"
^DD(404.98,211,9.01)=""
^DD(404.98,211,9.1)="N E S E=$G(^SD(404.98,D0,2)) S X=$$AUPNVCPT^SCCVEGU1()*$P(E,U,11)"
^DD(404.98,211,21,0)="^^10^10^2981207^^"
^DD(404.98,211,21,1,0)="This computed field provides an estimate on how much disk space will be"
^DD(404.98,211,21,2,0)="required for V CPT (#9000010.18) records created by this CST."
^DD(404.98,211,21,3,0)=""
^DD(404.98,211,21,4,0)="The records are stored in the ^AUPNVCPT global."
^DD(404.98,211,21,5,0)=""
^DD(404.98,211,21,6,0)=""
^DD(404.98,211,21,7,0)="The formula used is the following:"
^DD(404.98,211,21,8,0)=""
^DD(404.98,211,21,9,0)="     NUMBER OF V CPTs TO BE CREATED * AUPNVCPT BLOCKS PER NEW RECORD"
^DD(404.98,211,21,10,0)=""
^DD(404.98,"B","AUPNVCPT GLOBAL ESTIMATE",211)=""
^DD(404.98,"B","AUPNVPOV GLOBAL ESTIMATE",210)=""
^DD(404.98,"B","AUPNVPRV GLOBAL ESTIMATE",209)=""
^DD(404.98,"B","AUPNVSIT GLOBAL ESTIMATE",208)=""
^DD(404.98,"B","BULLETIN UPON COMPLETION",.06)=""
^DD(404.98,"B","CONVERSION CANCELED",.09)=""
^DD(404.98,"B","END DATE",.04)=""
^DD(404.98,"B","ERROR LOG",50)=""
^DD(404.98,"B","EVENT LOG",75)=""
^DD(404.98,"B","LAST ENTRY PROCESSED",1.01)=""
^DD(404.98,"B","LAST LOG EVENT",.05)=""
^DD(404.98,"B","LAST LOG EVENT STATUS",.07)=""
^DD(404.98,"B","LAST LOG REQUEST ACTION",.08)=""
^DD(404.98,"B","NUMBER",.01)=""
^DD(404.98,"B","NUMBER OF ADD/EDITS FOUND",2.01)=""
^DD(404.98,"B","NUMBER OF ANCILLARIES FOUND",2.02)=""
^DD(404.98,"B","NUMBER OF APPOINTMENTS FOUND",2.03)=""
^DD(404.98,"B","NUMBER OF CREDIT STOPS FOUND",2.04)=""
^DD(404.98,"B","NUMBER OF DISPOSITIONS FOUND",2.05)=""
^DD(404.98,"B","NUMBER OF ENCOUNTERS",2.07)=""
^DD(404.98,"B","NUMBER OF ENTRIES",1.02)=""
^DD(404.98,"B","NUMBER OF V CPTs",2.11)=""
^DD(404.98,"B","NUMBER OF V POVs",2.1)=""
^DD(404.98,"B","NUMBER OF V POVs TO BE CREATED",2.1)="1"
^DD(404.98,"B","NUMBER OF V PROVIDERs",2.09)=""
^DD(404.98,"B","NUMBER OF VISITS",2.08)=""
^DD(404.98,"B","NUMBER OF VISITS TO BE CREATED",2.08)="1"
^DD(404.98,"B","NUMBEROF V CPTs TO BE CREATED",2.11)="1"
^DD(404.98,"B","RECORDS NOT CONVERTED",2.06)=""
^DD(404.98,"B","REQUEST LOG",25)=""
^DD(404.98,"B","SCE GLOBAL ESTIMATE",207)=""
^DD(404.98,"B","START DATE",.03)=""
^DD(404.98,"B","TASK #",1.03)=""
^DD(404.98,"B","TOTAL ERRORS LOGGED",1.05)=""
^DD(404.98,"B","TYPE",.02)=""
^DD(404.98,"B","VOLUME SET",1.04)=""
^DD(404.98,"GL",0,1,.01)=""
^DD(404.98,"GL",0,2,.02)=""
^DD(404.98,"GL",0,3,.03)=""
^DD(404.98,"GL",0,4,.04)=""
^DD(404.98,"GL",0,5,.05)=""
^DD(404.98,"GL",0,6,.06)=""
^DD(404.98,"GL",0,7,.07)=""
^DD(404.98,"GL",0,8,.08)=""
^DD(404.98,"GL",0,9,.09)=""
^DD(404.98,"GL",1,1,1.01)=""
^DD(404.98,"GL",1,2,1.02)=""
^DD(404.98,"GL",1,3,1.03)=""
^DD(404.98,"GL",1,4,1.04)=""
^DD(404.98,"GL",1,5,1.05)=""
^DD(404.98,"GL",2,1,2.01)=""
^DD(404.98,"GL",2,2,2.02)=""
^DD(404.98,"GL",2,3,2.03)=""
^DD(404.98,"GL",2,4,2.04)=""
^DD(404.98,"GL",2,5,2.05)=""
^DD(404.98,"GL",2,6,2.06)=""
^DD(404.98,"GL",2,7,2.07)=""
^DD(404.98,"GL",2,8,2.08)=""
^DD(404.98,"GL",2,9,2.09)=""
^DD(404.98,"GL",2,10,2.1)=""
^DD(404.98,"GL",2,11,2.11)=""
^DD(404.98,"GL","E",0,75)=""
^DD(404.98,"GL","ERROR",0,50)=""
^DD(404.98,"GL","R",0,25)=""
^DD(404.98,"IX",.01)=""
^DD(404.98,"IX",.02)=""
^DD(404.98,"IX",.03)=""
^DD(404.98,"IX",.05)=""
^DD(404.98,"IX",.09)=""
^DD(404.98,"RQ",.01)=""
^DD(404.98,"RQ",.02)=""
^DD(404.98,"RQ",.03)=""
^DD(404.98,"RQ",.04)=""
^DD(404.98,"SB",404.9825,25)=""
^DD(404.98,"SB",404.985,50)=""
^DD(404.98,"SB",404.9875,75)=""
^DD(404.9825,0)="REQUEST LOG SUB-FIELD^^.07^7"
^DD(404.9825,0,"DT")="2960506"
^DD(404.9825,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.9825,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(404.9825,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.9825,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(404.9825,0,"IX","B",404.9825,.01)=""
^DD(404.9825,0,"NM","REQUEST LOG")=""
^DD(404.9825,0,"UP")="404.98"
^DD(404.9825,.01,0)="REQUEST DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(404.9825,.01,1,0)="^.1"
^DD(404.9825,.01,1,1,0)="404.9825^B"
^DD(404.9825,.01,1,1,1)="S ^SD(404.98,DA(1),""R"",""B"",+$E(X,1,30),DA)="""""
^DD(404.9825,.01,1,1,2)="K ^SD(404.98,DA(1),""R"",""B"",+$E(X,1,30),DA)"
^DD(404.9825,.01,21,0)="^^1^1^2981030^^"
^DD(404.9825,.01,21,1,0)="This field contains the date/time the request was entered."
^DD(404.9825,.01,"DT")="2951027"
^DD(404.9825,.02,0)="REQUEST ACTION^RSI^1:SCHEDULE;2:STOP;3:RE-START;^0;2^Q"
^DD(404.9825,.02,1,0)="^.1"
^DD(404.9825,.02,1,1,0)="^^TRIGGER^404.98^.08"
^DD(404.9825,.02,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=X X ^DD(404.9825,.02,1,1,1.4)"
^DD(404.9825,.02,1,1,1.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.98,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.9825,.02,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(404.9825,.02,1,1,2.4)"
^DD(404.9825,.02,1,1,2.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=404.98,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.9825,.02,1,1,"CREATE VALUE")="S X=X"
^DD(404.9825,.02,1,1,"DELETE VALUE")="@"
^DD(404.9825,.02,1,1,"DT")="2960507"
^DD(404.9825,.02,1,1,"FIELD")="LAST LOG REQUEST ACTION"
^DD(404.9825,.02,21,0)="^^1^1^2981030^^^"
^DD(404.9825,.02,21,1,0)="This field contains the requested action."
^DD(404.9825,.02,"DT")="2960507"
^DD(404.9825,.03,0)="EVENT^SI^0:ESTIMATE;1:CONVERT;2:RE-CONVERT;^0;3^Q"
^DD(404.9825,.03,1,0)="^.1^^0"
^DD(404.9825,.03,3)=""
^DD(404.9825,.03,21,0)="^^1^1^2981008^^^"
^DD(404.9825,.03,21,1,0)="This field contains the event corresponding to the request."
^DD(404.9825,.03,"DT")="2960508"
^DD(404.9825,.04,0)="START DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(404.9825,.04,21,0)="^^1^1^2960424^"
^DD(404.9825,.04,21,1,0)="This field contains the requested start date/time."
^DD(404.9825,.04,"DT")="2951027"
^DD(404.9825,.05,0)="STOP DATE/TIME^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(404.9825,.05,21,0)="^^1^1^2960424^"
^DD(404.9825,.05,21,1,0)="This field contains the requested stop date/time."
^DD(404.9825,.05,"DT")="2951027"
^DD(404.9825,.06,0)="USER^P200'^VA(200,^0;6^Q"
^DD(404.9825,.06,21,0)="^^1^1^2960506^"
^DD(404.9825,.06,21,1,0)="This field contains the user who entered the request."
^DD(404.9825,.06,"DT")="2960506"
^DD(404.9825,.07,0)="NUMBER ERRORS LOGGED^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(404.9825,.07,1,0)="^.1"
^DD(404.9825,.07,1,1,0)="^^TRIGGER^404.98^1.05"
^DD(404.9825,.07,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(404.9825,.07,1,1,1.4)"
^DD(404.9825,.07,1,1,1.4)="S DIH=$S($D(^SD(404.98,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=404.98,DIG=1.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.9825,.07,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(404.9825,.07,1,1,2.4)"
^DD(404.9825,.07,1,1,2.4)="S DIH=$S($D(^SD(404.98,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=404.98,DIG=1.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.9825,.07,1,1,3)="PLEASE DO NOT DELETE"
^DD(404.9825,.07,1,1,"%D",0)="^^2^2^2980406^"
^DD(404.9825,.07,1,1,"%D",1,0)="This trigger keeps track of the total # of errors that occur during a full"
^DD(404.9825,.07,1,1,"%D",2,0)="run of a CST, regardless of the # of times it is stopped and restarted."
^DD(404.9825,.07,1,1,"CREATE VALUE")="TOTAL ERRORS LOGGED+NUMBER ERRORS LOGGED"
^DD(404.9825,.07,1,1,"DELETE VALUE")="TOTAL ERRORS LOGGED-OLD NUMBER ERRORS LOGGED"
^DD(404.9825,.07,1,1,"DT")="2980406"
^DD(404.9825,.07,1,1,"FIELD")="TOTAL ERRORS LOGGED"
^DD(404.9825,.07,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(404.9825,.07,21,0)="^^2^2^2981030^"
^DD(404.9825,.07,21,1,0)="This field contains the number of errors that occurred as a result of"
^DD(404.9825,.07,21,2,0)="this request."
^DD(404.9825,.07,"DT")="2980406"
^DD(404.9825,"B","EVENT",.03)=""
^DD(404.9825,"B","NUMBER ERRORS LOGGED",.07)=""
^DD(404.9825,"B","REQUEST ACTION",.02)=""
^DD(404.9825,"B","REQUEST DATE/TIME",.01)=""
^DD(404.9825,"B","START DATE/TIME",.04)=""
^DD(404.9825,"B","STOP DATE/TIME",.05)=""
^DD(404.9825,"B","USER",.06)=""
^DD(404.9825,"GL",0,1,.01)=""
^DD(404.9825,"GL",0,2,.02)=""
^DD(404.9825,"GL",0,3,.03)=""
^DD(404.9825,"GL",0,4,.04)=""
^DD(404.9825,"GL",0,5,.05)=""
^DD(404.9825,"GL",0,6,.06)=""
^DD(404.9825,"GL",0,7,.07)=""
^DD(404.9825,"IX",.01)=""
^DD(404.9825,"IX",.02)=""
^DD(404.9825,"IX",.07)=""
^DD(404.9825,"RQ",.02)=""
^DD(404.985,0)="ERROR LOG SUB-FIELD^^.01^1"
^DD(404.985,0,"DT")="2950516"
^DD(404.985,0,"NM","ERROR LOG")=""
^DD(404.985,0,"UP")="404.98"
^DD(404.985,.01,0)="ERROR LOG^WL^^0;1^Q"
^DD(404.985,.01,"DT")="2950516"
^DD(404.985,"B","ERROR LOG",.01)=""
^DD(404.985,"GL",0,1,.01)=""
^DD(404.9875,0)="EVENT LOG SUB-FIELD^^50^4"
^DD(404.9875,0,"DT")="2981008"
^DD(404.9875,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.9875,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(404.9875,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(404.9875,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(404.9875,0,"IX","AEV",404.9875,.01)=""
^DD(404.9875,0,"IX","AEV1",404.9875,.02)=""
^DD(404.9875,0,"IX","AEV2",404.9875,.03)=""
^DD(404.9875,0,"IX","AID",404.9875,.01)=""
^DD(404.9875,0,"IX","B",404.9875,.01)=""
^DD(404.9875,0,"NM","EVENT LOG")=""
^DD(404.9875,0,"UP")="404.98"
^DD(404.9875,.01,0)="EVENT DATE/TIME^RDI^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(404.9875,.01,.1)=""
^DD(404.9875,.01,1,0)="^.1^^-1"
^DD(404.9875,.01,1,1,0)="404.9875^B"
^DD(404.9875,.01,1,1,1)="S ^SD(404.98,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(404.9875,.01,1,1,2)="K ^SD(404.98,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(404.9875,.01,1,1,"%D",0)="^^1^1^2981030^^"
^DD(404.9875,.01,1,1,"%D",1,0)="This cross-reference allows look-up by event date/time."
^DD(404.9875,.01,1,2,0)="404.9875^AID^MUMPS"
^DD(404.9875,.01,1,2,1)="S ^SD(404.98,DA(1),""E"",""AID"",-X,DA)="""""
^DD(404.9875,.01,1,2,2)="K ^SD(404.98,DA(1),""E"",""AID"",-X,DA)"
^DD(404.9875,.01,1,2,"%D",0)="^^8^8^2981030^^"
^DD(404.9875,.01,1,2,"%D",1,0)="This cross-reference is sorted by the following:"
^DD(404.9875,.01,1,2,"%D",2,0)="  ^SD(404.98,<1>,""E"",""AID"",<2>,<3>) where the subscripts are the following:"
^DD(404.9875,.01,1,2,"%D",3,0)=""
^DD(404.9875,.01,1,2,"%D",4,0)="  Subscript    Description"
^DD(404.9875,.01,1,2,"%D",5,0)="  ---------    -----------"
^DD(404.9875,.01,1,2,"%D",6,0)="    <1>        CST number then by"
^DD(404.9875,.01,1,2,"%D",7,0)="    <2>        Inverse Event date/time "
^DD(404.9875,.01,1,2,"%D",8,0)="    <3>        Internal entry number in the EVENT sub-file"
^DD(404.9875,.01,1,2,"DT")="2950526"
^DD(404.9875,.01,1,3,0)="404.9875^AEV^MUMPS"
^DD(404.9875,.01,1,3,1)="S:$P(^SD(404.98,DA(1),""E"",DA,0),U,2)&($P(^(0),U,3)'="""") ^SD(404.98,DA(1),""E"",""AEV"",X,$P(^(0),U,3),+$P(^(0),U,2),DA)="""""
^DD(404.9875,.01,1,3,2)="K ^SD(404.98,DA(1),""E"",""AEV"",X,$P(^SD(404.98,DA(1),""E"",DA,0),U,3),+$P(^(0),U,2),DA)"
^DD(404.9875,.01,1,3,"%D",0)="^^10^10^2981102^^^^"
^DD(404.9875,.01,1,3,"%D",1,0)=" This multiple field cross-reference is subcripted as follows:"
^DD(404.9875,.01,1,3,"%D",2,0)=" ^SD(404.98,<1>,""E"",""AEV"",<2>,<3>,<4>,<5>)"
^DD(404.9875,.01,1,3,"%D",3,0)=" "
^DD(404.9875,.01,1,3,"%D",4,0)="  Subscript      Description"
^DD(404.9875,.01,1,3,"%D",5,0)="  ---------      -----------"
^DD(404.9875,.01,1,3,"%D",6,0)="     <1>         CST number"
^DD(404.9875,.01,1,3,"%D",7,0)="     <2>         Event date/time"
^DD(404.9875,.01,1,3,"%D",8,0)="     <3>         Event"
^DD(404.9875,.01,1,3,"%D",9,0)="     <4>         Status"
^DD(404.9875,.01,1,3,"%D",10,0)="     <5>         Internal entry number of EVENT sub-file entry"
^DD(404.9875,.01,1,3,"DT")="2960502"
^DD(404.9875,.01,21,0)="^^1^1^2981030^^"
^DD(404.9875,.01,21,1,0)="This field contains the date/time the event was logged."
^DD(404.9875,.01,"DT")="2980220"
^DD(404.9875,.02,0)="STATUS^RSI^1:PENDING;2:STARTED;3:STOPPED;4:RE-STARTED;5:COMPLETED;6:QUEUED;7:CANCELED;^0;2^Q"
^DD(404.9875,.02,1,0)="^.1"
^DD(404.9875,.02,1,1,0)="404.9875^AEV1^MUMPS"
^DD(404.9875,.02,1,1,1)="S:$P(^SD(404.98,DA(1),""E"",DA,0),U,3)'="""" ^SD(404.98,DA(1),""E"",""AEV"",$P(^(0),U),$P(^(0),U,3),X,DA)="""""
^DD(404.9875,.02,1,1,2)="K ^SD(404.98,DA(1),""E"",""AEV"",$P(^SD(404.98,DA(1),""E"",DA,0),U),$P(^(0),U,3),X,DA)"
^DD(404.9875,.02,1,1,"%D",0)="^^10^10^2981102^^^^"
^DD(404.9875,.02,1,1,"%D",1,0)="This multiple field cross-reference is subcripted as follows:"
^DD(404.9875,.02,1,1,"%D",2,0)=" ^SD(404.98,<1>,""E"",""AEV"",<2>,<3>,<4>,<5>)"
^DD(404.9875,.02,1,1,"%D",3,0)=" "
^DD(404.9875,.02,1,1,"%D",4,0)="  Subscript      Description"
^DD(404.9875,.02,1,1,"%D",5,0)="  ---------      -----------"
^DD(404.9875,.02,1,1,"%D",6,0)="     <1>         CST number"
^DD(404.9875,.02,1,1,"%D",7,0)="     <2>         Event date/time"
^DD(404.9875,.02,1,1,"%D",8,0)="     <3>         Event"
^DD(404.9875,.02,1,1,"%D",9,0)="     <4>         Status"
^DD(404.9875,.02,1,1,"%D",10,0)="     <5>         Internal entry number of EVENT sub-file entry"
^DD(404.9875,.02,1,1,"DT")="2960502"
^DD(404.9875,.02,1,2,0)="^^TRIGGER^404.98^.07"
^DD(404.9875,.02,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=X X ^DD(404.9875,.02,1,2,1.4)"
^DD(404.9875,.02,1,2,1.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.98,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.9875,.02,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SD(404.98,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(404.9875,.02,1,2,2.4)"
^DD(404.9875,.02,1,2,2.4)="S DIH=$S($D(^SD(404.98,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=404.98,DIG=.07 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(404.9875,.02,1,2,"CREATE VALUE")="S X=X"
^DD(404.9875,.02,1,2,"DELETE VALUE")="@"
^DD(404.9875,.02,1,2,"DT")="2960424"
^DD(404.9875,.02,1,2,"FIELD")="LAST LOG EVENT ACTION"
^DD(404.9875,.02,21,0)="^^1^1^2981030^^^"
^DD(404.9875,.02,21,1,0)="This field contains the event status."
^DD(404.9875,.02,"DT")="2980302"
^DD(404.9875,.03,0)="EVENT^SI^0:ESTIMATE;1:CONVERT;2:RE-CONVERT;3:CANCEL;^0;3^Q"
^DD(404.9875,.03,1,0)="^.1"
^DD(404.9875,.03,1,1,0)="404.9875^AEV2^MUMPS"
^DD(404.9875,.03,1,1,1)="S:$P(^SD(404.98,DA(1),""E"",DA,0),U,2) ^SD(404.98,DA(1),""E"",""AEV"",$P(^(0),U),X,+$P(^(0),U,2),DA)="""""
^DD(404.9875,.03,1,1,2)="K ^SD(404.98,DA(1),""E"",""AEV"",$P(^SD(404.98,DA(1),""E"",DA,0),U),X,+$P(^(0),U,2),DA)"
^DD(404.9875,.03,1,1,"%D",0)="^^10^10^2981102^^^"
^DD(404.9875,.03,1,1,"%D",1,0)="This multiple field cross-reference is subcripted as follows:"
^DD(404.9875,.03,1,1,"%D",2,0)=" ^SD(404.98,<1>,""E"",""AEV"",<2>,<3>,<4>,<5>)"
^DD(404.9875,.03,1,1,"%D",3,0)=" "
^DD(404.9875,.03,1,1,"%D",4,0)="  Subscript      Description"
^DD(404.9875,.03,1,1,"%D",5,0)="  ---------      -----------"
^DD(404.9875,.03,1,1,"%D",6,0)="     <1>         CST number"
^DD(404.9875,.03,1,1,"%D",7,0)="     <2>         Event date/time"
^DD(404.9875,.03,1,1,"%D",8,0)="     <3>         Event"
^DD(404.9875,.03,1,1,"%D",9,0)="     <4>         Status"
^DD(404.9875,.03,1,1,"%D",10,0)="     <5>         Internal entry number of EVENT sub-file entry"
^DD(404.9875,.03,1,1,"DT")="2960502"
^DD(404.9875,.03,21,0)="^^2^2^2981030^^^^"
^DD(404.9875,.03,21,1,0)="This field contains the requested event which is determined by"
^DD(404.9875,.03,21,2,0)="the system."
^DD(404.9875,.03,"DT")="2981008"
^DD(404.9875,50,0)="COMMENT^404.98755^^C;0"
^DD(404.9875,50,21,0)="^^1^1^2950606^"
^DD(404.9875,50,21,1,0)="This field contains any comments related to the event."
^DD(404.9875,"B","COMMENT",50)=""
^DD(404.9875,"B","EVENT",.03)=""
^DD(404.9875,"B","EVENT DATE/TIME",.01)=""
^DD(404.9875,"B","STATUS",.02)=""
^DD(404.9875,"GL",0,1,.01)=""
^DD(404.9875,"GL",0,2,.02)=""
^DD(404.9875,"GL",0,3,.03)=""
^DD(404.9875,"GL","C",0,50)=""
^DD(404.9875,"IX",.01)=""
^DD(404.9875,"IX",.02)=""
^DD(404.9875,"IX",.03)=""
^DD(404.9875,"RQ",.01)=""
^DD(404.9875,"RQ",.02)=""
^DD(404.9875,"SB",404.98755,50)=""
^DD(404.98755,0)="COMMENT SUB-FIELD^^.01^1"
^DD(404.98755,0,"DT")="2950519"
^DD(404.98755,0,"NM","COMMENT")=""
^DD(404.98755,0,"UP")="404.9875"
^DD(404.98755,.01,0)="COMMENT^WL^^0;1^Q"
^DD(404.98755,.01,"DT")="2950519"
^DD(404.98755,"B","COMMENT",.01)=""
^DD(404.98755,"GL",0,1,.01)=""
^DD(405,0)="FIELD^^11500.07^58"
^DD(405,0,"DDA")="N"
^DD(405,0,"DIK")="DGPMXX"
^DD(405,0,"DIKOLD")="DGPMXX"
^DD(405,0,"DT")="2950728"
^DD(405,0,"ID",.02)="W """""
^DD(405,0,"ID",.03)="W """""
^DD(405,0,"ID",.04)="W """""
^DD(405,0,"ID",.14)="W """""
^DD(405,0,"ID","WRITE")="S DGPMDD=^(0) D ID^DGPMDD"
^DD(405,0,"IX","A22",405,.01)=""
^DD(405,0,"IX","AAP",405,.19)=""
^DD(405,0,"IX","ADFN",405,.03)=""
^DD(405,0,"IX","ADFN1",405,.01)=""
^DD(405,0,"IX","ADGRU09",405,.09)=""
^DD(405,0,"IX","ADIS",405,.17)=""
^DD(405,0,"IX","AFD",405,41)=""
^DD(405,0,"IX","AGL1",405,.01)=""
^DD(405,0,"IX","AGL18",405,.18)=""
^DD(405,0,"IX","AGL6",405,.06)=""
^DD(405,0,"IX","AGL9",405,.09)=""
^DD(405,0,"IX","AINP1",405,.01)=""
^DD(405,0,"IX","AINP14",405,.14)=""
^DD(405,0,"IX","AINP2",405,.02)=""
^DD(405,0,"IX","AINP22",405,.22)=""
^DD(405,0,"IX","AINP23",405,.23)=""
^DD(405,0,"IX","AINP3",405,.03)=""
^DD(405,0,"IX","AODS1",405,.01)=""
^DD(405,0,"IX","AODS10",405,.05)=""
^DD(405,0,"IX","AODS11",405,11500.02)=""
^DD(405,0,"IX","AODS3",405,11500.06)=""
^DD(405,0,"IX","AODS3S",405,.09)=""
^DD(405,0,"IX","AODS5",405,.18)=""
^DD(405,0,"IX","AODSA",405,11500.04)=""
^DD(405,0,"IX","AODSD",405,11500.07)=""
^DD(405,0,"IX","APHY",405,.24)=""
^DD(405,0,"IX","APR",405,.08)=""
^DD(405,0,"IX","APTF",405,.16)=""
^DD(405,0,"IX","ATR",405,.09)=""
^DD(405,0,"IX","ATS",405,.09)=""
^DD(405,0,"IX","AVISIT",405,.27)=""
^DD(405,0,"IX","AVST",405,.27)=""
^DD(405,0,"IX","B",405,.01)=""
^DD(405,0,"IX","C",405,.03)=""
^DD(405,0,"IX","CA",405,.14)=""
^DD(405,0,"IX","CN",405,.06)=""
^DD(405,0,"IX","RM",405,.07)=""
^DD(405,0,"NM","PATIENT MOVEMENT")=""
^DD(405,0,"PT",2,.102)=""
^DD(405,0,"PT",2,.105)=""
^DD(405,0,"PT",41.1,17)=""
^DD(405,0,"PT",45.85,.03)=""
^DD(405,0,"PT",100.2,3)=""
^DD(405,0,"PT",100.2,12)=""
^DD(405,0,"PT",119.01,102)=""
^DD(405,0,"PT",119.8,3)=""
^DD(405,0,"PT",351.2,.02)=""
^DD(405,0,"PT",351.61,1.08)=""
^DD(405,0,"PT",356,.05)=""
^DD(405,0,"PT",356.9,.02)=""
^DD(405,0,"PT",356.91,.02)=""
^DD(405,0,"PT",356.93,.02)=""
^DD(405,0,"PT",356.94,.02)=""
^DD(405,0,"PT",391.71,.05)=""
^DD(405,0,"PT",393,.04)=""
^DD(405,0,"PT",405,.14)=""
^DD(405,0,"PT",405,.15)=""
^DD(405,0,"PT",405,.17)=""
^DD(405,0,"PT",405,.21)=""
^DD(405,0,"PT",405,.24)=""
^DD(405,0,"PT",727.802,30)=""
^DD(405,0,"PT",727.804,10)=""
^DD(405,0,"PT",727.805,14)=""
^DD(405,0,"PT",727.806,46)=""
^DD(405,0,"PT",727.808,12)=""
^DD(405,0,"PT",727.809,14)=""
^DD(405,0,"PT",727.81,19)=""
^DD(405,0,"PT",727.811,25)=""
^DD(405,0,"PT",727.813,16)=""
^DD(405,0,"PT",727.814,17)=""
^DD(405,0,"PT",727.815,23)=""
^DD(405,0,"PT",727.817,12)=""
^DD(405,0,"PT",727.819,14)=""
^DD(405,0,"PT",727.82,30)=""
^DD(405,0,"PT",727.821,12)=""
^DD(405,0,"PT",727.822,12)=""
^DD(405,0,"PT",727.824,17)=""
^DD(405,0,"PT",727.825,23)=""
^DD(405,0,"PT",741,.02)=""
^DD(405,0,"PT",8925,1401)=""
^DD(405,0,"VR")="5.3"
^DD(405,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""EST"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X),'$D(DGPMT) W !?3,*7,""USE BED CONTROL MOVEMENT OPTIONS!"" K X"
^DD(405,.01,.1)="MOVEMENT DATE/TIME"
^DD(405,.01,1,0)="^.1^^-1"
^DD(405,.01,1,1,0)="405^B"
^DD(405,.01,1,1,1)="S ^DGPM(""B"",$E(X,1,30),DA)="""""
^DD(405,.01,1,1,2)="K ^DGPM(""B"",$E(X,1,30),DA)"
^DD(405,.01,1,2,0)="405^AINP1^MUMPS"
^DD(405,.01,1,2,1)="S DGPMDDF=1 D ^DGPMDD1"
^DD(405,.01,1,2,2)="S DGPMDDF=1 D ^DGPMDD2"
^DD(405,.01,1,3,0)="^^TRIGGER^2^.351"
^DD(405,.01,1,3,1)="X ^DD(405,.01,1,3,1.3) I X S X=DIV X ^DD(405,.01,1,3,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV X ^DD(405,.01,1,3,1.4)"
^DD(405,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$S('$D(^DG(405.2,+$P(Y(1),U,18),0)):"""",1:$P(^(0),U,1))[""DEATH"""
^DD(405,.01,1,3,1.4)="S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""""),DIV=X I $D(^(0)) S $P(^(.35),U,1)=DIV,DIH=2,DIG=.351 D ^DICR"
^DD(405,.01,1,3,2)="Q"
^DD(405,.01,1,3,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DPT(D0,.35)):^(.35),1:"""")"
^DD(405,.01,1,3,"CREATE CONDITION")="MAS MOVEMENT TYPE[""DEATH"""
^DD(405,.01,1,3,"CREATE VALUE")="DATE/TIME"
^DD(405,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(405,.01,1,3,"FIELD")="PATIENT:DATE OF DEATH"
^DD(405,.01,1,4,0)="405^A22^MUMPS"
^DD(405,.01,1,4,1)="S:$P(^DGPM(DA,0),U,22)="""" $P(^(0),U,22)=0"
^DD(405,.01,1,4,2)="Q"
^DD(405,.01,1,5,0)="^^TRIGGER^405^.24"
^DD(405,.01,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DGPM(+$P(^DGPM(DA,0),U,24),0)):0,1:X'=+^(0)) I X S X=DIV S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="""" X ^DD(405,.01,1,5,1.4)"
^DD(405,.01,1,5,1.4)="S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,24)=DIV,DIH=405,DIG=.24 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(405,.01,1,5,2)="Q"
^DD(405,.01,1,5,"CREATE CONDITION")="S X=$S('$D(^DGPM(+$P(^DGPM(DA,0),U,24),0)):0,1:X'=+^(0))"
^DD(405,.01,1,5,"CREATE VALUE")="@"
^DD(405,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(405,.01,1,5,"FIELD")="RELATED PHYSICAL MOVEMEMT"
^DD(405,.01,1,6,0)="405^ADFN1^MUMPS"
^DD(405,.01,1,6,1)="S:$P(^DGPM(DA,0),U,3) ^DGPM(""ADFN""_$P(^(0),U,3),X,DA)="""""
^DD(405,.01,1,6,2)="K:$P(^DGPM(DA,0),U,3) ^DGPM(""ADFN""_$P(^(0),U,3),X,DA)"
^DD(405,.01,1,7,0)="405^AGL1^MUMPS"
^DD(405,.01,1,7,1)="S Y=$P(^DGPM(DA,0),U,2) I Y,Y'=4,Y'=5,X,X<DT S DGHNYT=$S(Y=1:$S($D(DGIDX):3,1:1),Y=2:$S($D(DGIDX):6,1:4),Y=3:$S($D(DGIDX):9,1:7),1:15) D ^DGPMGLC K DGIDX"
^DD(405,.01,1,7,2)="S Y=$P(^DGPM(DA,0),U,2) I Y,Y'=4,Y'=5,X,X<DT S DGHNYT=$S(Y=1:2,Y=2:5,Y=3:8,1:14) D ^DGPMGLC"
^DD(405,.01,1,7,"DT")="2930430"
^DD(405,.01,1,8,0)="405^AODS1^MUMPS"
^DD(405,.01,1,8,1)="I ""^1^3^""[(""^""_$P(^DGPM(DA,0),""^"",2)_""^"") S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,.01,1,8,2)="I ""^1^3^""[(""^""_$P(^DGPM(DA,0),""^"",2)_""^"") S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,.01,3)="Enter the date and time of this patient movement."
^DD(405,.01,21,0)="^^3^3^2901011^"
^DD(405,.01,21,1,0)="Enter in this field the date/time of the movement (admission, transfer,"
^DD(405,.01,21,2,0)="discharge, treating specialty transfer, lodger check-in, or lodger check-"
^DD(405,.01,21,3,0)="out).  Time must be included."
^DD(405,.01,"DEL",1,0)="I '$D(DGPMT) W !?5,*7,""Use bed control movement options"""
^DD(405,.01,"DT")="2930430"
^DD(405,.02,0)="TRANSACTION^RP405.3'I^DG(405.3,^0;2^Q"
^DD(405,.02,1,0)="^.1"
^DD(405,.02,1,1,0)="405^AINP2^MUMPS"
^DD(405,.02,1,1,1)="S DGPMDDF=2 D ^DGPMDD1"
^DD(405,.02,1,1,2)="S DGPMDDF=2 D ^DGPMDD2"
^DD(405,.02,3)="Enter the transaction type for this patient movement."
^DD(405,.02,21,0)="^^7^7^2910618^^^^"
^DD(405,.02,21,1,0)="Enter in this field the transaction type of the movement.  Choose from:"
^DD(405,.02,21,2,0)="               1     ADMISSION"
^DD(405,.02,21,3,0)="               2     TRANSFER"
^DD(405,.02,21,4,0)="               3     DISCHARGE"
^DD(405,.02,21,5,0)="               4     CHECK-IN LODGER"
^DD(405,.02,21,6,0)="               5     CHECK-OUT LODGER"
^DD(405,.02,21,7,0)="               6     SPECIALTY TRANSFER"
^DD(405,.02,"DT")="2900313"
^DD(405,.03,0)="PATIENT^RP2'I^DPT(^0;3^Q"
^DD(405,.03,1,0)="^.1"
^DD(405,.03,1,1,0)="405^C"
^DD(405,.03,1,1,1)="S ^DGPM(""C"",$E(X,1,30),DA)="""""
^DD(405,.03,1,1,2)="K ^DGPM(""C"",$E(X,1,30),DA)"
^DD(405,.03,1,2,0)="405^AINP3^MUMPS"
^DD(405,.03,1,2,1)="S DGPMDDF=3 D ^DGPMDD1"
^DD(405,.03,1,2,2)="S DGPMDDF=3 D ^DGPMDD2"
^DD(405,.03,1,3,0)="405^ADFN^MUMPS"
^DD(405,.03,1,3,1)="S ^DGPM(""ADFN""_X,+^DGPM(DA,0),DA)="""""
^DD(405,.03,1,3,2)="K ^DGPM(""ADFN""_X,+^DGPM(DA,0),DA)"
^DD(405,.03,3)="Enter the NAME of the patient."
^DD(405,.03,21,0)="^^2^2^2901011^"
^DD(405,.03,21,1,0)="Enter the patient for which this movement occurred.  This field is a"
^DD(405,.03,21,2,0)="pointer to the PATIENT file."
^DD(405,.03,"DT")="2900323"
^DD(405,.04,0)="TYPE OF MOVEMENT^R*P405.1'X^DG(405.1,^0;4^S DIC(""S"")=""I $D(DGPMT),($P(^(0),""""^"""",2)=DGPMT),$P(^(0),""""^"""",4) S DGER=0,DGPMTYP=$P(^(0),""""^"""",3) D:DGPMT<4!(DGPMT=6)!(DGPMT=5) @(""""DICS^DGPMV3""""_DGPMT) I 'DGER"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.04,1,0)="^.1"
^DD(405,.04,1,1,0)="^^TRIGGER^405^.18"
^DD(405,.04,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y X ^DD(405,.04,1,1,1.1) X ^DD(405,.04,1,1,1.4)"
^DD(405,.04,1,1,1.1)="S X=DIV S X=$S($D(^DG(405.1,X,0)):$P(^(0),""^"",3),1:"""")"
^DD(405,.04,1,1,1.4)="S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,18)=DIV,DIH=405,DIG=.18 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(405,.04,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,18)=DIV,DIH=405,DIG=.18 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(405,.04,1,1,"CREATE VALUE")="S X=$S($D(^DG(405.1,X,0)):$P(^(0),""^"",3),1:"""")"
^DD(405,.04,1,1,"DELETE VALUE")="@"
^DD(405,.04,1,1,"FIELD")="MAS MOVEMENT"
^DD(405,.04,3)="Enter the type of movement for this patient on the date/time entered."
^DD(405,.04,12)="Transaction types must match and only allowable types can be chosen."
^DD(405,.04,12.1)="S DIC(""S"")=""I $D(DGPMT),($P(^(0),""""^"""",2)=DGPMT),$P(^(0),""""^"""",4) S DGER=0,DGPMTYP=$P(^(0),""""^"""",3) D:DGPMT<4!(DGPMT=6)!(DGPMT=5) @(""""DICS^DGPMV3""""_DGPMT) I 'DGER"""
^DD(405,.04,21,0)="^^5^5^2970117^^"
^DD(405,.04,21,1,0)="Choose the type of movement this patient had.  You will be selecting from"
^DD(405,.04,21,2,0)="active FACILITY MOVEMENT TYPES for which the TRANSACTION TYPE of this"
^DD(405,.04,21,3,0)="movement matches the TRANSACTION TYPE of the FACILITY MOVEMENT TYPE.  For"
^DD(405,.04,21,4,0)="example, if you are admitting a patient, you will only be able to select"
^DD(405,.04,21,5,0)="active admission types."
^DD(405,.04,"DT")="2970117"
^DD(405,.05,0)="TRANSFER FACILITY^RP4'X^DIC(4,^0;5^I '$D(DGPMT) W !?3,*7,""USE BED CONTROL MOVEMENT OPTIONS!"" K X"
^DD(405,.05,.1)="FACILITY"
^DD(405,.05,1,0)="^.1"
^DD(405,.05,1,1,0)="405^AODS10^MUMPS"
^DD(405,.05,1,1,1)="I $P(^DGPM(DA,0),""^"",2)=3 S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,.05,1,1,2)="I $P(^DGPM(DA,0),""^"",2)=3 S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,.05,3)="Enter the facility from/to which the patient was received/placed."
^DD(405,.05,5,1,0)="405^.18^1"
^DD(405,.05,21,0)="^^6^6^2901011^"
^DD(405,.05,21,1,0)="If this movement is a TRANSFER IN (admission from another facility),"
^DD(405,.05,21,2,0)="TRANSFER OUT (discharge to another facility), or an ASIH movement to"
^DD(405,.05,21,3,0)="another facility (TO ASIH (OTHER FACILITY), for example), you will be"
^DD(405,.05,21,4,0)="prompted for TRANSFER FACILITY and will be asked to choose from an"
^DD(405,.05,21,5,0)="entry in the INSTITUTION file.  This field is required for those"
^DD(405,.05,21,6,0)="movement types mentioned above."
^DD(405,.05,"DT")="2910117"
^DD(405,.06,0)="WARD LOCATION^R*P42'X^DIC(42,^0;6^S DIC(""S"")=""I $S($D(^(""""ORDER"""")):^(""""ORDER""""),1:0)"" D W^DGPMVDD I $D(X) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D WARD^DGPMVDD K:$D(DGOOS) X K DGOOS"
^DD(405,.06,1,0)="^.1"
^DD(405,.06,1,1,0)="405^CN^MUMPS"
^DD(405,.06,1,1,1)="S DGPMDDF=6,DGPMDDT=1 D ^DGPMDDCN"
^DD(405,.06,1,1,2)="S DGPMDDF=6,DGPMDDT=0 D ^DGPMDDCN"
^DD(405,.06,1,2,0)="^^TRIGGER^405^.07"
^DD(405,.06,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=405,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(405,.06,1,2,2)="Q"
^DD(405,.06,1,2,"CREATE VALUE")="@"
^DD(405,.06,1,2,"DELETE VALUE")="NO EFFECT"
^DD(405,.06,1,2,"FIELD")="ROOM"
^DD(405,.06,1,3,0)="405^AGL6^MUMPS"
^DD(405,.06,1,3,1)="S Y=^DGPM(DA,0) I +Y,Y<DT S Y=$P(Y,U,2) I Y<3,$D(DGOWD) S DGHNYT=$S(Y=1:10,1:12) D ^DGPMGLC K DGIDX"
^DD(405,.06,1,3,2)="S Y=^DGPM(DA,0) I +Y,Y<DT,X'=$P(Y,U,6) S Y=$P(Y,U,2) I Y<3 S DGOWD=$S($D(^DIC(42,+X,0)):$P(^(0),U),1:"""") K DGIDX"
^DD(405,.06,3)="Enter the ward on which the patient was placed."
^DD(405,.06,12)="Don't allow an inactive ward or one not on bed census"
^DD(405,.06,12.1)="S DIC(""S"")=""I $S($D(^(""""ORDER"""")):^(""""ORDER""""),1:0)"" D W^DGPMVDD I $D(X)"
^DD(405,.06,21,0)="^^4^4^2901011^"
^DD(405,.06,21,1,0)="Enter in this field the WARD to which this patient is being admitted or"
^DD(405,.06,21,2,0)="transferred to.  Choose from ACTIVE entries in the WARD LOCATION file."
^DD(405,.06,21,3,0)="This field will only be prompted for movements to WARDS at the home"
^DD(405,.06,21,4,0)="facility."
^DD(405,.06,"DT")="2901018"
^DD(405,.07,0)="ROOM-BED^*P405.4'X^DG(405.4,^0;7^K:'$D(DGPMT) X I $D(X) S DIC(""S"")=""I $D(^DG(405.4,""""W"""",+$P(^DGPM(DA,0),""""^"""",6),+Y)) D OCC^DGPMRB I 'DGPMOC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D ROOM^DGPMVDD K:$D(DGOOS) X K DGOOS"
^DD(405,.07,1,0)="^.1^^-1"
^DD(405,.07,1,1,0)="405^RM^MUMPS"
^DD(405,.07,1,1,1)="S DGPMDDF=7,DGPMDDT=1 D ^DGPMDDCN"
^DD(405,.07,1,1,2)="S DGPMDDF=7,DGPMDDT=0 D ^DGPMDDCN"
^DD(405,.07,3)="Enter the ROOM-BED to which this patient is assigned."
^DD(405,.07,4)="D ^DGPMRB K DZ Q"
^DD(405,.07,5,1,0)="405^.06^2"
^DD(405,.07,12)="Only those unoccupied beds on ward selected"
^DD(405,.07,12.1)="S DIC(""S"")=""I $D(^DG(405.4,""""W"""",+$P(^DGPM(DA,0),""""^"""",6),+Y)) D OCC^DGPMRB I 'DGPMOC"""
^DD(405,.07,21,0)="^^3^3^2901011^"
^DD(405,.07,21,1,0)="Select the ROOM-BED to which you are admitting or transferring this"
^DD(405,.07,21,2,0)="patient.  Select from those ACTIVE beds in the ROOM-BED file which are"
^DD(405,.07,21,3,0)="assigned to the WARD LOCATION chosen for this movement."
^DD(405,.07,"DT")="2901204"
^DD(405,.08,0)="PRIMARY PHYSICIAN^*P200'^VA(200,^0;8^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.08,.1)="PROVIDER"
^DD(405,.08,1,0)="^.1"
^DD(405,.08,1,1,0)="405^APR^MUMPS"
^DD(405,.08,1,1,1)="S DGPMDDF=8,DGPMDDT=1 D ^DGPMDDCN"
^DD(405,.08,1,1,2)="S DGPMDDF=8,DGPMDDT=0 D ^DGPMDDCN"
^DD(405,.08,3)="Enter the PROVIDER assigned to this patient with this movement."
^DD(405,.08,4)="D HELP^DGPMDD(DA,+$G(^DGPM(DA,0)))"
^DD(405,.08,12)="Select active providers only."
^DD(405,.08,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))"""
^DD(405,.08,21,0)="^^6^6^2990302^^^^"
^DD(405,.08,21,1,0)="Enter the healthcare provider with primary responsibility for the direct"
^DD(405,.08,21,2,0)="care of the patient.  This may be the resident or intern in a teaching"
^DD(405,.08,21,3,0)="facility or the staff physician in a nonaffiliated hospital."
^DD(405,.08,21,4,0)=" "
^DD(405,.08,21,5,0)="This field will only be prompted for movements with a transaction type"
^DD(405,.08,21,6,0)="of 'specialty transfer'."
^DD(405,.08,"DT")="2990223"
^DD(405,.09,0)="FACILITY TREATING SPECIALTY^R*P45.7'a^DIC(45.7,^0;9^S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGPM(DA,0)),U))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.09,1,0)="^.1"
^DD(405,.09,1,1,0)="405^ATS^MUMPS"
^DD(405,.09,1,1,1)="S DGPMDDF=9 D ^DGPMDD1"
^DD(405,.09,1,1,2)="S DGPMDDF=9 D ^DGPMDD2"
^DD(405,.09,1,2,0)="405^ATR^MUMPS"
^DD(405,.09,1,2,1)="S DGPMDDF=9,DGPMDDT=1 D ^DGPMDDCN"
^DD(405,.09,1,2,2)="S DGPMDDF=9,DGPMDDT=0 D ^DGPMDDCN"
^DD(405,.09,1,3,0)="405^AODS3S^MUMPS"
^DD(405,.09,1,3,1)="I $D(^DGPM(+$P(^DGPM(DA,0),""^"",24),0)),($P(^(0),""^"",2)=1) S A1B2TAG=""ADM1"" D ^A1B2XFR"
^DD(405,.09,1,3,2)="I $D(^DGPM(+$P(^DGPM(DA,0),""^"",24),0)),($P(^(0),""^"",2)=1) S A1B2TAG=""ADM1"" D ^A1B2XFR"
^DD(405,.09,1,4,0)="405^AGL9^MUMPS"
^DD(405,.09,1,4,1)="S Y=^DGPM(DA,0) I +Y,Y<DT S Y=$P(Y,U,2) I Y=6,X'=$P(Y,U,9) S DGHNYT=13 D ^DGPMGLC"
^DD(405,.09,1,4,2)="S Y=^DGPM(DA,0) I +Y,Y<DT S Y=$P(Y,U,2) I Y=6,X'=$P(Y,U,9) S DGHNYT=14 D ^DGPMGLC"
^DD(405,.09,1,4,"%D",0)="^^5^5^2930430^^^^"
^DD(405,.09,1,4,"%D",1,0)="This is set to trigger the G&L Corrections routine to create an entry in"
^DD(405,.09,1,4,"%D",2,0)="the G&L Corrections File if there is a facility treating specialty change,"
^DD(405,.09,1,4,"%D",3,0)="needed to set recalc date for the Treating Specialty Report accurancy."
^DD(405,.09,1,4,"%D",4,0)="If Facility TS change, NOT just a provider change will cause this to"
^DD(405,.09,1,4,"%D",5,0)="create and entry in the G&L Corrections File."
^DD(405,.09,1,4,"DT")="2930430"
^DD(405,.09,1,5,0)="405^ADGRU09^MUMPS"
^DD(405,.09,1,5,1)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DFN)"
^DD(405,.09,1,5,2)="D:($T(ADGRU^DGRUDD01)'="""") ADGRU^DGRUDD01(DFN)"
^DD(405,.09,1,5,"%D",0)="^.101^9^9^3060822^^^^"
^DD(405,.09,1,5,"%D",1,0)="This cross reference is used to remember that changes were made to a"
^DD(405,.09,1,5,"%D",2,0)="monitored data field in the PATIENT MOVEMENT File (#405) required for a"
^DD(405,.09,1,5,"%D",3,0)="vendor RAI/MDS COTS system.  Execution of this cross reference will create"
^DD(405,.09,1,5,"%D",4,0)="an entry in the ADT/HL7 PIVOT file (#391.71) and mark it as requiring"
^DD(405,.09,1,5,"%D",5,0)="transmission of an HL7 demographic A08 update message to the COTS"
^DD(405,.09,1,5,"%D",6,0)="interface.  "
^DD(405,.09,1,5,"%D",7,0)="                     "
^DD(405,.09,1,5,"%D",8,0)="The local variable DGRUGA08 will be set to 1 if the "
^DD(405,.09,1,5,"%D",9,0)="cross reference is not to be executed as part of a re-indexing."
^DD(405,.09,1,5,"DT")="3060822"
^DD(405,.09,3)="Enter the TREATING SPECIALTY assigned to this patient with this movement.  This must be an active treating specialty."
^DD(405,.09,12)="Allows only active treating specialties."
^DD(405,.09,12.1)="S DIC(""S"")=""I $$ACTIVE^DGACT(45.7,Y,$P($G(^DGPM(DA,0)),U))"""
^DD(405,.09,21,0)="^.001^4^4^3060821^^^^"
^DD(405,.09,21,1,0)="When entering a movement with a TRANSACTION TYPE of SPECIALTY"
^DD(405,.09,21,2,0)="CHANGE, you will be asked to provide the treating specialty assigned to"
^DD(405,.09,21,3,0)="this patient.  Choose an entry from the FACILITY TREATING SPECIALTY"
^DD(405,.09,21,4,0)="file which best describes the care this patient is receiving."
^DD(405,.09,"AUDIT")="y"
^DD(405,.09,"DT")="3060822"
^DD(405,.1,0)="DIAGNOSIS [SHORT]^RFX^^0;10^K:$L(X)>30!($L(X)<3)!(X["";"") X"
^DD(405,.1,3)="Enter a 3-30 character description of the diagnosis associated with this movement excluding semi-colons."
^DD(405,.1,21,0)="^^2^2^2901011^"
^DD(405,.1,21,1,0)="When admitting a patient, you will be asked to provide a brief desciption"
^DD(405,.1,21,2,0)="of the diagnosis of this patient upon admission."
^DD(405,.1,"DT")="2920204"
^DD(405,.11,0)="ADMITTED FOR SC CONDITION?^S^1:YES;0:NO;^0;11^Q"
^DD(405,.11,3)="Is this service-connected veteran being admitted for a service connected condition?"
^DD(405,.11,21,0)="^^1^1^2901011^^^^"
^DD(405,.11,21,1,0)="Is this patient being admitted for a service connected condition?"
^DD(405,.12,0)="ADMITTING REGULATION^R*P43.4'^DIC(43.4,^0;12^S DIC(""S"")=""I '$P(^(0),""""^"""",4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.12,3)="Select from the available listing the admitting regulation under which this patient is being admitted if this movement type is an admission."
^DD(405,.12,12)="Select active regulations only."
^DD(405,.12,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",4)"""
^DD(405,.12,21,0)="^^3^3^2901011^"
^DD(405,.12,21,1,0)="When admitting a patient, you must choose an active ADMITTING REGULATION"
^DD(405,.12,21,2,0)="which best describes the category under which this patient is being"
^DD(405,.12,21,3,0)="admitted."
^DD(405,.12,"DT")="2940923"
^DD(405,.13,0)="ABSENCE RETURN DATE^DX^^0;13^K:'$D(DGPMT) X I $D(X) S %DT=""EX"" D ^%DT S X=Y K:Y<1!(Y<$P($P(^DGPM(DA,0),""^"",1),""."",1)) X I $D(X) D ABSRET^DGPMVDD"
^DD(405,.13,3)="For absences, if desired, enter the date on which the patient is expected to return.  Date must be on or after movement date."
^DD(405,.13,21,0)="^^7^7^2901011^"
^DD(405,.13,21,1,0)="If the patient is being transferred to an absence status (via the AUTH"
^DD(405,.13,21,2,0)="ABSENCE 96 HOURS OR LESS or AUTHORIZED ABSENCE transfer types), you will"
^DD(405,.13,21,3,0)="be asked to provide the date this patient is expected to return.  If you"
^DD(405,.13,21,4,0)="choose to transfer the patient with AUTH ABSENCE 96 HOURS OR LESS, this"
^DD(405,.13,21,5,0)="date must be less than or equal to 4 days from the date of transfer.  If"
^DD(405,.13,21,6,0)="you choose to transfer the patient AUTHORIZED ABSENCE, the date of return"
^DD(405,.13,21,7,0)="most be more than 4 days after the date of transfer."
^DD(405,.13,"DT")="2901003"
^DD(405,.14,0)="ADMISSION/CHECK-IN MOVEMENT^R*P405'XI^DGPM(^0;14^S DIC(""S"")=""S DGZ=^DGPM(DA,0) I $D(DGPMT),($P(^DGPM(+Y,0),""""^"""",3)=$P(DGZ,""""^"""",3)),$P(DGZ,""""^"""",1)'<$P(^DGPM(+Y,0),""""^"""",1) K DGZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.14,1,0)="^.1"
^DD(405,.14,1,1,0)="405^AINP14^MUMPS"
^DD(405,.14,1,1,1)="S DGPMDDF=14 D ^DGPMDD1"
^DD(405,.14,1,1,2)="S DGPMDDF=14 D ^DGPMDD2"
^DD(405,.14,1,2,0)="405^CA"
^DD(405,.14,1,2,1)="S ^DGPM(""CA"",$E(X,1,30),DA)="""""
^DD(405,.14,1,2,2)="K ^DGPM(""CA"",$E(X,1,30),DA)"
^DD(405,.14,1,3,0)="^^TRIGGER^405^.17"
^DD(405,.14,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I ""^3^5^""[(""^""_$P(^DGPM(DA,0),""^"",2)_""^"") I X S X=DIV X ^DD(405,.14,1,3,89.2) S X=$S('$D(^DGPM(+$P(Y(101),U,17),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DA X ^DD(405,.14,1,3,1.4)"
^DD(405,.14,1,3,1.4)="S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,17)=DIV,DIH=405,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(405,.14,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I ""^3^5^""[(""^""_$P(^DGPM(DA,0),""^"",2)_""^"") I X S X=DIV X ^DD(405,.14,1,3,89.2) S X=$S('$D(^DGPM(+$P(Y(101),U,17),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X="""" X ^DD(405,.14,1,3,2.4)"
^DD(405,.14,1,3,2.4)="S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,17)=DIV,DIH=405,DIG=.17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(405,.14,1,3,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(1),U,14) S:'$D(^DGPM(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DGPM(D0,0)):^(0),1:"""")"
^DD(405,.14,1,3,"%D",0)="^^5^5^2920121^"
^DD(405,.14,1,3,"%D",1,0)="This trigger will automatically set the 17th piece of the admission or"
^DD(405,.14,1,3,"%D",2,0)="check-in movement if a discharge or check-out movement is entered.  The"
^DD(405,.14,1,3,"%D",3,0)="17th piece is a pointer from the admission to the discharge movement, or,"
^DD(405,.14,1,3,"%D",4,0)="in the case of lodgers, a pointer from the check-in movement to the check-"
^DD(405,.14,1,3,"%D",5,0)="out movement."
^DD(405,.14,1,3,"CREATE CONDITION")="I ""^3^5^""[(""^""_$P(^DGPM(DA,0),""^"",2)_""^"")"
^DD(405,.14,1,3,"CREATE VALUE")="S X=DA"
^DD(405,.14,1,3,"DELETE CONDITION")="I ""^3^5^""[(""^""_$P(^DGPM(DA,0),""^"",2)_""^"")"
^DD(405,.14,1,3,"DELETE VALUE")="@"
^DD(405,.14,1,3,"DT")="2920121"
^DD(405,.14,1,3,"FIELD")="ADMISSION/CHECK-IN:.17"
^DD(405,.14,3)="Enter the admission or check-in movement with which this movement is associated."
^DD(405,.14,12)="Movement doesn't precede admission or check-in movement for same patient."
^DD(405,.14,12.1)="S DIC(""S"")=""S DGZ=^DGPM(DA,0) I $D(DGPMT),($P(^DGPM(+Y,0),""""^"""",3)=$P(DGZ,""""^"""",3)),$P(DGZ,""""^"""",1)'<$P(^DGPM(+Y,0),""""^"""",1) K DGZ"""
^DD(405,.14,21,0)="^^2^2^2901011^^"
^DD(405,.14,21,1,0)="This field is a pointer to the admission or check-in lodger movement which"
^DD(405,.14,21,2,0)="is associated with the transaction being entered."
^DD(405,.14,"DT")="2920121"
^DD(405,.15,0)="ASIH ADMISSION^R*P405'X^DGPM(^0;15^K:'$D(DGPMT) X I $D(X) S DIC(""S"")=""S DGZ=^DGPM(DA,0) I $P(^DGPM(+Y,0),""""^"""",3)=$P(DGZ,""""^"""",3),$P(DGZ,""""^"""",1)'<$P(^DGPM(+Y,0),""""^"""",1) K DGZ"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.15,12)="Movement must not precede ASIH movement for same patient."
^DD(405,.15,12.1)="S DIC(""S"")=""S DGZ=^DGPM(DA,0) I $P(^DGPM(+Y,0),""""^"""",3)=$P(DGZ,""""^"""",3),$P(DGZ,""""^"""",1)'<$P(^DGPM(+Y,0),""""^"""",1) K DGZ"""
^DD(405,.15,21,0)="^^3^3^2910514^^^"
^DD(405,.15,21,1,0)="This field is set internally by the module.  If a patient is transferred"
^DD(405,.15,21,2,0)="either TO ASIH FROM NHCU/DOM or CONTINUED ASIH, this field will point to"
^DD(405,.15,21,3,0)="the entry in this file which holds the admission created by the module."
^DD(405,.15,"DT")="2900705"
^DD(405,.16,0)="PTF ENTRY^*P45'OX^DGPT(^0;16^S DIC(""S"")=""I $P(^(0),""""^"""",1)=$P(^DGPM(DA,0),""""^"""",3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.16,1,0)="^.1"
^DD(405,.16,1,1,0)="405^APTF"
^DD(405,.16,1,1,1)="S ^DGPM(""APTF"",$E(X,1,30),DA)="""""
^DD(405,.16,1,1,2)="K ^DGPM(""APTF"",$E(X,1,30),DA)"
^DD(405,.16,2)="S Y(0)=Y S:Y Y=+Y"
^DD(405,.16,2.1)="S:Y Y=+Y"
^DD(405,.16,3)="The number of the entry in the PTF (45) file associated with this movement."
^DD(405,.16,12)="Select PTF entry for same patient."
^DD(405,.16,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",1)=$P(^DGPM(DA,0),""""^"""",3)"""
^DD(405,.16,21,0)="^^2^2^2910422^^"
^DD(405,.16,21,1,0)="This field is used for movements with a TRANSACTION TYPE of admission only."
^DD(405,.16,21,2,0)="It stores the internal entry number of the record in the PTF file."
^DD(405,.16,"DT")="2920204"
^DD(405,.17,0)="DISCHARGE/CHECK-OUT MOVEMENT^P405'X^DGPM(^0;17^I '$D(DGPMT) K X W !?3,*7,""USE BED CONTROL MOVEMENT OPTIONS TO EDIT"""
^DD(405,.17,1,0)="^.1^^-1"
^DD(405,.17,1,1,0)="405^ADIS^MUMPS"
^DD(405,.17,1,1,1)="D XREF^DGPMDDCN"
^DD(405,.17,1,1,2)="D XREF^DGPMDDCN"
^DD(405,.17,3)="Answer with the movement which removes this patient from inpatient/lodger care."
^DD(405,.17,5,1,0)="405^.14^3"
^DD(405,.17,9)="^"
^DD(405,.17,21,0)="^^2^2^2930712^^^"
^DD(405,.17,21,1,0)="Pointer to the discharge or check-out movement associated with this"
^DD(405,.17,21,2,0)="admission or check-in.  If not defined, the patient is still in-house."
^DD(405,.17,"DT")="2900705"
^DD(405,.18,0)="MAS MOVEMENT TYPE^RP405.2'^DG(405.2,^0;18^Q"
^DD(405,.18,1,0)="^.1"
^DD(405,.18,1,1,0)="^^TRIGGER^405^.05"
^DD(405,.18,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I ""MAS MOVEMENT TYPE""'=""TRANSFER IN""&(""MAS MOVEMENT TYPE""'=""TRANSFER OUT"") I X S X=DIV S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(405,.18,1,1,1.4)"
^DD(405,.18,1,1,1.4)="S DIH=$S($D(^DGPM(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=405,DIG=.05 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(405,.18,1,1,2)="Q"
^DD(405,.18,1,1,"CREATE CONDITION")="I ""MAS MOVEMENT TYPE""'=""TRANSFER IN""&(""MAS MOVEMENT TYPE""'=""TRANSFER OUT"")"
^DD(405,.18,1,1,"CREATE VALUE")="@"
^DD(405,.18,1,1,"DELETE VALUE")="NO EFFECT"
^DD(405,.18,1,1,"FIELD")="TRANSFER FACILITY"
^DD(405,.18,1,2,0)="^^TRIGGER^2^.351"
^DD(405,.18,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DG(405.2,+Y(0),0)):"""",1:$P(^(0),U,1))[""DEATH"" I X S X=DIV X ^DD(405,.18,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y X ^DD(405,.18,1,2,1.1) X ^DD(405,.18,1,2,1.4)"
^DD(405,.18,1,2,1.1)="S X=DIV S Y(1)=$S($D(^DGPM(D0,0)):^(0),1:"""") S X=$P(Y(1),U,1)"
^DD(405,.18,1,2,1.4)="S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""""),DIV=X I $D(^(0)) S $P(^(.35),U,1)=DIV,DIH=2,DIG=.351 D ^DICR"
^DD(405,.18,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S('$D(^DG(405.2,+X,0)):"""",1:$P(^(0),U,1))[""DEATH"" I X S X=DIV X ^DD(405,.18,1,2,89.2) S X=$P(Y(101),U,1) S D0=I(0,0) S DIU=X K Y S X="""" X ^DD(405,.18,1,2,2.4)"
^DD(405,.18,1,2,2.4)="S DIH=$S($D(^DPT(DIV(0),.35)):^(.35),1:""""),DIV=X I $D(^(0)) S $P(^(.35),U,1)=DIV,DIH=2,DIG=.351 D ^DICR"
^DD(405,.18,1,2,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^DPT(D0,.35)):^(.35),1:"""")"
^DD(405,.18,1,2,"CREATE CONDITION")="MAS MOVEMENT TYPE[""DEATH"""
^DD(405,.18,1,2,"CREATE VALUE")="MOVEMENT DATE/TIME"
^DD(405,.18,1,2,"DELETE CONDITION")="OLD MAS MOVEMENT TYPE[""DEATH"""
^DD(405,.18,1,2,"DELETE VALUE")="@"
^DD(405,.18,1,2,"FIELD")=".03:DATE OF DEATH"
^DD(405,.18,1,3,0)="405^AGL18^MUMPS"
^DD(405,.18,1,3,1)="S Y=^DGPM(DA,0) I +Y,Y<DT S Y=$P(Y,U,2) I Y<4,$D(DGOTY) S DGHNYT=11 D ^DGPMGLC K DGIDX"
^DD(405,.18,1,3,2)="S Y=^DGPM(DA,0) I +Y,Y<DT S Y=$P(Y,U,2) I Y<4 S DGOTY=$S($D(^DG(405.2,+X,0)):$P(^(0),U),1:"""") K DGIDX"
^DD(405,.18,1,4,0)="405^AODS5^MUMPS"
^DD(405,.18,1,4,1)="I $P(^DGPM(DA,0),""^"",2)=3 S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,.18,1,4,2)="I $P(^DGPM(DA,0),""^"",2)=3 S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,.18,3)="A pointer to the MAS Movement Type file.  Created by the module."
^DD(405,.18,5,1,0)="405^.04^1"
^DD(405,.18,9)="^"
^DD(405,.18,21,0)="^^6^6^2930712^^"
^DD(405,.18,21,1,0)="This field is internally set by the module.  When you enter a FACILITY"
^DD(405,.18,21,2,0)="MOVEMENT TYPE (field .04 of this file), this field will automatically be"
^DD(405,.18,21,3,0)="set to the internal number of the MAS-distributed movement type to which"
^DD(405,.18,21,4,0)="this FACILITY MOVEMENT TYPE points.  This internal number is used"
^DD(405,.18,21,5,0)="throughout the code of MAS and various other packages to determine the"
^DD(405,.18,21,6,0)="flow of processing that should occur."
^DD(405,.18,"DT")="2910117"
^DD(405,.19,0)="ATTENDING PHYSICIAN^R*P200'^VA(200,^0;19^S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.19,1,0)="^.1"
^DD(405,.19,1,1,0)="405^AAP^MUMPS"
^DD(405,.19,1,1,1)="S DGPMDDF=19,DGPMDDT=1 D ^DGPMDDCN"
^DD(405,.19,1,1,2)="S DGPMDDF=19,DGPMDDT=0 D ^DGPMDDCN"
^DD(405,.19,1,1,"%D",0)="^^3^3^2911125^"
^DD(405,.19,1,1,"%D",1,0)="This cross-reference is used to update the ATTENDING PHYSICIAN field (.1041)"
^DD(405,.19,1,1,"%D",2,0)="in the PATIENT file.  That field stores the current attending physician for"
^DD(405,.19,1,1,"%D",3,0)="all current inpatients."
^DD(405,.19,1,1,"DT")="2911125"
^DD(405,.19,3)="The name of the physician attending to this patient.  Can be the same as the PRIMARY CARE PHYSICIAN."
^DD(405,.19,4)="D HELP^DGPMDD(DA,+$G(^DGPM(DA,0)))"
^DD(405,.19,12)="only active providers"
^DD(405,.19,12.1)="S DIC(""S"")=""I $$SCREEN^DGPMDD(Y,DA,+$G(^DGPM(DA,0)))"""
^DD(405,.19,21,0)="^^5^5^2930330^^^^"
^DD(405,.19,21,1,0)="Enter the supervising physician who is responsible for the care of the"
^DD(405,.19,21,2,0)="patient.  Nonaffiliated hospitals may choose not to use this field."
^DD(405,.19,21,3,0)=" "
^DD(405,.19,21,4,0)="This field will be prompted for movements with a transaction type of"
^DD(405,.19,21,5,0)="'specialty change' only."
^DD(405,.19,"DT")="2950504"
^DD(405,.2,0)="ADMITTING ELIGIBILITY^R*P8'^DIC(8,^0;20^S DIC(""S"")=""I '$P(^(0),""""^"""",7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.2,3)="Answer with the ELIGIBILITY CODE which best describes the entitlement under which this patient is being admitted."
^DD(405,.2,12)="Only active eligibilities allowed."
^DD(405,.2,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",7)"""
^DD(405,.2,21,0)="^^3^3^2920611^^"
^DD(405,.2,21,1,0)="This field will be used in a future version to track the eligibility of"
^DD(405,.2,21,2,0)="a patient upon admission.  This information will be used in the VISIT"
^DD(405,.2,21,3,0)="file which is being developed for use in DoD facilities."
^DD(405,.2,"DT")="2920611"
^DD(405,.21,0)="ASIH TRANSFER^RP405'X^DGPM(^0;21^I '$D(DGPMT) W !?3,*7,""USE BED CONTROL MOVEMENT OPTIONS TO EDIT"" K X"
^DD(405,.21,21,0)="^^4^4^2910514^^^"
^DD(405,.21,21,1,0)="This field is internally set by the module.  If the MAS MOVEMENT TYPE of"
^DD(405,.21,21,2,0)="this movement is TO ASIH, this field will contain a pointer to the transfer "
^DD(405,.21,21,3,0)="movement that created this admission (either a TO ASIH transfer or a "
^DD(405,.21,21,4,0)="CONTINUED ASIH transfer)."
^DD(405,.21,"DT")="2900705"
^DD(405,.22,0)="ASIH SEQUENCE^RNJ1,0X^^0;22^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X I $D(X),'$D(DGPMT) W !?3,*7,""USE BED CONTROL MOVEMENT OPTIONS TO EDIT"" K X"
^DD(405,.22,1,0)="^.1"
^DD(405,.22,1,1,0)="405^AINP22^MUMPS"
^DD(405,.22,1,1,1)="S DGPMDDF=22 D ^DGPMDD1"
^DD(405,.22,1,1,2)="S DGPMDDF=22 D ^DGPMDD2"
^DD(405,.22,3)="Type a Number between 0 and 2, 0 Decimal Digits"
^DD(405,.22,21,0)="^^11^11^2901011^"
^DD(405,.22,21,1,0)="This field is used internally by the module for movements that are ASIH."
^DD(405,.22,21,2,0)="When transferring a patient ASIH to your own facility, there are 2"
^DD(405,.22,21,3,0)="movements created at the same date/time (the admission and the transfer)."
^DD(405,.22,21,4,0)="This is also true for discharges FROM ASIH where both a discharge and a"
^DD(405,.22,21,5,0)="transfer occur at the same date/time.  The movement that physically occurs"
^DD(405,.22,21,6,0)="first (the transfer in the first example, and the discharge in the second)"
^DD(405,.22,21,7,0)="will have a sequence number of 1 while the subsequent movement will have"
^DD(405,.22,21,8,0)="a sequence number of 2.  This number (divided by 100000000) will be added"
^DD(405,.22,21,9,0)="to the date/time of the movement to aid in cross-referencing these"
^DD(405,.22,21,10,0)="movements.  This is intended to make code generation quicker.  [NOTE:  non-"
^DD(405,.22,21,11,0)="ASIH movements will have a ASIH SEQUENCE of 0]"
^DD(405,.22,"DT")="2900705"
^DD(405,.23,0)="DMMS EPISODE NUMBER^NJ5,0^^0;23^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(405,.23,1,0)="^.1"
^DD(405,.23,1,1,0)="405^AINP23^MUMPS"
^DD(405,.23,1,1,1)="S DGPMDDF=23 D ^DGPMDD1"
^DD(405,.23,1,1,2)="S DGPMDDF=23 D ^DGPMDD2"
^DD(405,.23,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(405,.23,21,0)="^^2^2^2901011^"
^DD(405,.23,21,1,0)="This field has been added for use by the DMMS package.  It will hold the"
^DD(405,.23,21,2,0)="episode number of the movement as defined internally by that package."
^DD(405,.23,"DT")="2900215"
^DD(405,.24,0)="RELATED PHYSICAL MOVEMENT^*P405'^DGPM(^0;24^S DIC(""S"")=""I $P(^(0),U,2)'=6,$P(^(0),U,14)=$P(^DGPM(DA,0),U,14),$S('$O(^DGPM(""""APHY"""",Y,0)):1,1:DA=$O(^(0)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405,.24,1,0)="^.1"
^DD(405,.24,1,1,0)="405^APHY"
^DD(405,.24,1,1,1)="S ^DGPM(""APHY"",$E(X,1,30),DA)="""""
^DD(405,.24,1,1,2)="K ^DGPM(""APHY"",$E(X,1,30),DA)"
^DD(405,.24,5,1,0)="405^.01^5"
^DD(405,.24,12)="Allows only physical movenments for same corresponding admission."
^DD(405,.24,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=6,$P(^(0),U,14)=$P(^DGPM(DA,0),U,14),$S('$O(^DGPM(""""APHY"""",Y,0)):1,1:DA=$O(^(0)))"""
^DD(405,.24,21,0)="^^4^4^2901011^^"
^DD(405,.24,21,1,0)="This field will be stored for movements with a TRANSACTION TYPE of"
^DD(405,.24,21,2,0)="TREATING SPECIALTY only.  If the treating specialty transfer is"
^DD(405,.24,21,3,0)="in conjunction with a physical movement (either an admission or a"
^DD(405,.24,21,4,0)="transfer), this field will contain a pointer to that physical movement."
^DD(405,.24,"DT")="2900102"
^DD(405,.25,0)="SCHEDULED ADMISSION?^SI^1:YES;0:NO;^0;25^Q"
^DD(405,.25,3)="Was this admission scheduled?"
^DD(405,.25,21,0)="^^3^3^2901121^^"
^DD(405,.25,21,1,0)="If this admission was a result of a previously scheduled admission, this"
^DD(405,.25,21,2,0)="field should be answered yes.  This field will be filled in for movements "
^DD(405,.25,21,3,0)="with a TRANSACTION of ADMISSION only."
^DD(405,.25,"DT")="2901121"
^DD(405,.26,0)="PTF PURGE STATUS^S^1:PURGED;0:ACTIVE;^0;26^Q"
^DD(405,.26,"DT")="2921222"
^DD(405,.27,0)="VISIT FILE ENTRY^*P9000010'X^AUPNVSIT(^0;27^S DIC(""S"")=""I $P(^DGPM(+DA,0),""""^"""",2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X K:$D(X) X"
^DD(405,.27,.1)=""
^DD(405,.27,1,0)="^.1"
^DD(405,.27,1,1,0)="405^AVISIT"
^DD(405,.27,1,1,1)="S ^DGPM(""AVISIT"",$E(X,1,30),DA)="""""
^DD(405,.27,1,1,2)="K ^DGPM(""AVISIT"",$E(X,1,30),DA)"
^DD(405,.27,1,1,"DT")="2921016"
^DD(405,.27,1,2,0)="405^AVST^MUMPS"
^DD(405,.27,1,2,1)="S:$P(^DGPM(DA,0),U,3) ^DGPM(""AVST"",$P(^DGPM(DA,0),U,3),X,DA)="""""
^DD(405,.27,1,2,2)="K:$P(^DGPM(DA,0),U,3) ^DGPM(""AVST"",$P(^DGPM(DA,0),U,3),X,DA)"
^DD(405,.27,1,2,"DT")="2921016"
^DD(405,.27,3)="This is the Visit Tracking pointer.  Stored here just to make sure it's included in the event driver."
^DD(405,.27,9)="^"
^DD(405,.27,12)="If Patient Movement is an admission then vaild."
^DD(405,.27,12.1)="S DIC(""S"")=""I $P(^DGPM(+DA,0),""""^"""",2)=1"""
^DD(405,.27,"DT")="2930331"
^DD(405,30.01,0)="REASON FOR LODGING^RP406.41'^DG(406.41,^LD;1^Q"
^DD(405,30.01,21,0)="^^2^2^2901011^^^^"
^DD(405,30.01,21,1,0)="Enter the reason this patient was lodged (inclement weather, traveling"
^DD(405,30.01,21,2,0)="distance, etc.)."
^DD(405,30.01,"DT")="2900304"
^DD(405,30.02,0)="LODGING COMMENTS^F^^LD;2^K:$L(X)>30!($L(X)<3) X"
^DD(405,30.02,3)="Answer must be 3-30 characters in length."
^DD(405,30.02,21,0)="^^1^1^2901011^^"
^DD(405,30.02,21,1,0)="Enter an additional comment on why this patient is being lodged if you wish."
^DD(405,30.02,"DT")="2900524"
^DD(405,30.03,0)="DISPOSITION^RS^a:ADMITTED;d:DISMISSED;^LD;3^Q"
^DD(405,30.03,3)="Enter A if the patient was admitted from lodger status, otherwise answer D."
^DD(405,30.03,21,0)="^^4^4^2901011^"
^DD(405,30.03,21,1,0)="Enter in this file the disposition of this patient upon being checked-out"
^DD(405,30.03,21,2,0)="as a lodger.  Choose from ADMITTED (if the patient was admitted to your"
^DD(405,30.03,21,3,0)="facility) or DISMISSED (if the patient was returned to his place of"
^DD(405,30.03,21,4,0)="residence)."
^DD(405,30.03,"DT")="2900320"
^DD(405,40,0)="EXCLUDE FROM FACILITY DIR^CJ3^^ ; ^X ^DD(405,40,9.2) S Y(405,40,101)=$S($D(^DGPM(D0,""DIR"")):^(""DIR""),1:"""") S X=$P($P(Y(405,40,102),$C(59)_$P(Y(405,40,101),U,1)_"":"",2),$C(59)) S D0=Y(405,40,80)"
^DD(405,40,9.01)="405^41;405^.14"
^DD(405,40,9.1)="ADMISSION/CHECK-IN MOVEMENT:FACILITY DIRECTORY EXCLUSION"
^DD(405,40,9.2)="S Y(405,40,80)=$G(D0),Y(405,40,1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(405,40,1),U,14) S:'D0!'$D(^DGPM(+D0,0)) D0=-1 S Y(405,40,102)=$C(59)_$P($G(^DD(405,41,0)),U,3)"
^DD(405,40,21,0)="^^2^2^3030218^"
^DD(405,40,21,1,0)="This computed field will determine if the patient wished to be excluded "
^DD(405,40,21,2,0)="from the Facility Directory for the corresponding admission."
^DD(405,40,"DT")="3030218"
^DD(405,41,0)="FACILITY DIRECTORY EXCLUSION^SX^0:NO;1:YES;^DIR;1^I $D(X),'$D(DGPMT) D EN^DDIOL(""USE BED CONTROL MOVEMENT OPTIONS!"",,""!"") K X"
^DD(405,41,1,0)="^.1"
^DD(405,41,1,1,0)="^^TRIGGER^405^42"
^DD(405,41,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,""DIR"")):^(""DIR""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(405,41,1,1,1.4)"
^DD(405,41,1,1,1.4)="S DIH=$G(^DGPM(DIV(0),""DIR"")),DIV=X S $P(^(""DIR""),U,2)=DIV,DIH=405,DIG=42 D ^DICR"
^DD(405,41,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,""DIR"")):^(""DIR""),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^DGPM(DIV(0),""DIR"")),DIV=X S $P(^(""DIR""),U,2)=DIV,DIH=405,DIG=42 D ^DICR"
^DD(405,41,1,1,"%D",0)="^^2^2^3030218^"
^DD(405,41,1,1,"%D",1,0)="Stuffs the current date/time into the FACILITY DIRECTORY TIME STAMP field "
^DD(405,41,1,1,"%D",2,0)="(#42)."
^DD(405,41,1,1,"CREATE VALUE")="NOW"
^DD(405,41,1,1,"DELETE VALUE")="@"
^DD(405,41,1,1,"FIELD")="#42"
^DD(405,41,1,2,0)="^^TRIGGER^405^43"
^DD(405,41,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,""DIR"")):^(""DIR""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) S DIH=$G(^DGPM(DIV(0),""DIR"")),DIV=X S $P(^(""DIR""),U,3)=DIV,DIH=405,DIG=43 D ^DICR"
^DD(405,41,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPM(D0,""DIR"")):^(""DIR""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^DGPM(DIV(0),""DIR"")),DIV=X S $P(^(""DIR""),U,3)=DIV,DIH=405,DIG=43 D ^DICR"
^DD(405,41,1,2,"%D",0)="^^1^1^3030218^"
^DD(405,41,1,2,"%D",1,0)="Stuffs the current user into the FACILITY DIRECTORY USER field (#43)."
^DD(405,41,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(405,41,1,2,"DELETE VALUE")="@"
^DD(405,41,1,2,"DT")="3030218"
^DD(405,41,1,2,"FIELD")="#43"
^DD(405,41,1,3,0)="405^AFD^MUMPS"
^DD(405,41,1,3,1)="S DGPMDDF=41,DGPMDDT=1 D ^DGPMDDCN"
^DD(405,41,1,3,2)="S DGPMDDF=41,DGPMDDT=0 D ^DGPMDDCN"
^DD(405,41,1,3,"%D",0)="^.101^2^2^3030218^^"
^DD(405,41,1,3,"%D",1,0)="Sets the FACILITY DIRECTORY EXCLUSION field (#.109) of the PATIENT file "
^DD(405,41,1,3,"%D",2,0)="(#2)."
^DD(405,41,1,3,"DT")="3030218"
^DD(405,41,3)="Enter 'YES' if the patient wishes to ""opt out"" from the Facility Directory for this admission.  Otherwise answer 'NO'."
^DD(405,41,21,0)="^^7^7^3030219^"
^DD(405,41,21,1,0)="Denotes whether or not the patient wished to be excluded from the "
^DD(405,41,21,2,0)="Facility Directory for this admisison."
^DD(405,41,21,3,0)=" "
^DD(405,41,21,4,0)="The Facility Directory is the directory of current inpatients in the "
^DD(405,41,21,5,0)="facility.  If the patient wishes to be excluded from the Facility "
^DD(405,41,21,6,0)="Directory, then the VAMC can not make a positive statement to family, "
^DD(405,41,21,7,0)="friends, or others as to whether the patient is here or not."
^DD(405,41,"DT")="3030219"
^DD(405,42,0)="FACILITY DIRECTORY TIME STAMP^DI^^DIR;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(405,42,3)="(No range limit on date)"
^DD(405,42,5,1,0)="405^41^1"
^DD(405,42,9)="^"
^DD(405,42,21,0)="^^1^1^3030218^"
^DD(405,42,21,1,0)="Date/time answer to Facility Directory exclusion question was entered."
^DD(405,42,"DT")="3030218"
^DD(405,43,0)="FACILITY DIRECTORY USER^P200'I^VA(200,^DIR;3^Q"
^DD(405,43,5,1,0)="405^41^2"
^DD(405,43,9)="^"
^DD(405,43,21,0)="^^2^2^3030218^"
^DD(405,43,21,1,0)="User entering the patient's response to the Facility Directory exclusion "
^DD(405,43,21,2,0)="question."
^DD(405,43,"DT")="3030218"
^DD(405,51,0)="SOURCE OF ADMISSION^CJ2^^ ; ^X ^DD(405,51,9.2) S X=$S('$D(^DIC(45.1,+$P(Y(405,51,101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=Y(405,51,80)"
^DD(405,51,9)="^"
^DD(405,51,9.01)="45^20;405^.16"
^DD(405,51,9.1)="PTF ENTRY:SOURCE OF ADMISSION"
^DD(405,51,9.2)="S Y(405,51,80)=$S($D(D0):D0,1:""""),Y(405,51,1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(405,51,1),U,16) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(405,51,101)=$S($D(^DGPT(D0,101)):^(101),1:"""")"
^DD(405,51,9.3)="X ^DD(405,51,9.2) S Y(405,51,101)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(405,51,101),U,16) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(405,51,201)=$S($D(^DGPT(D0,101)):^(101),1:"""")"
^DD(405,51,21,0)="^^9^9^2911223^^^^"
^DD(405,51,21,1,0)="This computed field will determine the SOURCE OF ADMISSION for"
^DD(405,51,21,2,0)="the corresponding admission.  The value is obtained from the"
^DD(405,51,21,3,0)="PTF entry associated with the admission."
^DD(405,51,21,4,0)=" "
^DD(405,51,21,5,0)="This field is only computed for admission entries.  If is field"
^DD(405,51,21,6,0)="is needed while working with another type of movement, the following"
^DD(405,51,21,7,0)="extended syntax can be used:"
^DD(405,51,21,8,0)=" "
^DD(405,51,21,9,0)="  ADMISSION/CHECK-IN MOVEMENT:SOURCE OF ADMISSION"
^DD(405,51,"DT")="2910423"
^DD(405,52,0)="PTF MOVEMENT NUMBER^NJ4,0^^PTF;2^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(405,52,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(405,52,21,0)="^^10^10^2911223^^"
^DD(405,52,21,1,0)="This field may be filled in for treating specialty movements."
^DD(405,52,21,2,0)="It will only be filled in if the treating specialty movement"
^DD(405,52,21,3,0)="causes a PTF 501 movement to be created in the PTF record"
^DD(405,52,21,4,0)="associated with the admission."
^DD(405,52,21,5,0)=" "
^DD(405,52,21,6,0)="The number stored in this field will be the internal multiple"
^DD(405,52,21,7,0)="entry number of the 501 multiple in that PTF record. "
^DD(405,52,21,8,0)=" "
^DD(405,52,21,9,0)="This field is updated automatically and no user input is"
^DD(405,52,21,10,0)="necessary."
^DD(405,52,"DT")="2900131"
^DD(405,53,0)="NEXT PTF MOVEMENT^NJ4,0^^PTF;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(405,53,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(405,53,21,0)="^^14^14^2911223^^^"
^DD(405,53,21,1,0)="This field may be filled in for treating specialty movements."
^DD(405,53,21,2,0)="It will only be filled in if the treating specialty movement"
^DD(405,53,21,3,0)="causes a PTF 501 movement to be created in the PTF record"
^DD(405,53,21,4,0)="associated with the admission."
^DD(405,53,21,5,0)=" "
^DD(405,53,21,6,0)="The number stored in this field will be the internal multiple"
^DD(405,53,21,7,0)="entry number of the 501 multiple, in that PTF record,"
^DD(405,53,21,8,0)="corresponding to the next chronological 501 movement, if one"
^DD(405,53,21,9,0)="exists."
^DD(405,53,21,10,0)=" "
^DD(405,53,21,11,0)="This field is updated automatically and no user input is"
^DD(405,53,21,12,0)="necessary."
^DD(405,53,21,13,0)=" "
^DD(405,53,21,14,0)=" "
^DD(405,53,"DT")="2900131"
^DD(405,54,0)="ADMITTING CATEGORY^P35.2'^DG(35.2,^PTF;4^Q"
^DD(405,54,3)="Please enter the Sharing Agreement Category."
^DD(405,54,21,0)="^^3^3^2970203^^^"
^DD(405,54,21,1,0)="If and entry for the Admitting Regulation exist in the Sharing Agreement"
^DD(405,54,21,2,0)="Category file (#35.1) then the user will be prompted for the category"
^DD(405,54,21,3,0)="associated with the Admitting Regulation."
^DD(405,54,"DT")="2970117"
^DD(405,55,0)="ELIGIBILITY^CJ8,2^^ ; ^X ^DD(405,55,9.2) S X=$S('$D(^DIC(8,+$P(Y(405,55,101),U,8),0)):"""",1:$P(^(0),U,1)) S D0=Y(405,55,80)"
^DD(405,55,9)="^"
^DD(405,55,9.01)="45^20.1;405^.16"
^DD(405,55,9.1)="PTF ENTRY:ADMITTING ELIGIBILITY"
^DD(405,55,9.2)="S Y(405,55,80)=$S($D(D0):D0,1:""""),Y(405,55,1)=$S($D(^DGPM(D0,0)):^(0),1:""""),D0=$P(Y(405,55,1),U,16) S:'$D(^DGPT(+D0,0)) D0=-1 S Y(405,55,101)=$S($D(^DGPT(D0,101)):^(101),1:"""")"
^DD(405,60.01,0)="IRT BACKGROUND JOB RUN^D^^IRT;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(405,60.01,21,0)="^^9^9^2930507^"
^DD(405,60.01,21,1,0)="This field stores the date that the IRT background job"
^DD(405,60.01,21,2,0)="was run for this admission.  If this field contains"
^DD(405,60.01,21,3,0)="a date, this admission has been initialized and all"
^DD(405,60.01,21,4,0)="standard deficiencies have been created for this"
^DD(405,60.01,21,5,0)="admission.  When the IRT background Job is run for"
^DD(405,60.01,21,6,0)="all admission it will check to see if the admission"
^DD(405,60.01,21,7,0)="has already been initialized.  If so, this admission"
^DD(405,60.01,21,8,0)="will not created duplicate entries for the standard"
^DD(405,60.01,21,9,0)="deficiencies."
^DD(405,60.01,"DT")="2930507"
^DD(405,99,0)="DIAGNOSIS^405.099^^DX;0"
^DD(405,99,21,0)="^^2^2^2901011^"
^DD(405,99,21,1,0)="Enter an in-depth description of the diagnosis for this patient.  This will"
^DD(405,99,21,2,0)="be asked for movements with a TRANSACTION TYPE of SPECIALTY TRANSFER only."
^DD(405,100,0)="ENTERED BY^RP200'^VA(200,^USR;1^Q"
^DD(405,100,21,0)="^^1^1^2901011^^"
^DD(405,100,21,1,0)="This field stores the name of the user entering this patient movement."
^DD(405,100,"DT")="2900625"
^DD(405,101,0)="ENTERED ON^RD^^USR;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(405,101,21,0)="^^2^2^2900702^"
^DD(405,101,21,1,0)="This field stores the date/time on which this PATIENT MOVEMENT FILE"
^DD(405,101,21,2,0)="entry was initially entered."
^DD(405,101,"DT")="2890921"
^DD(405,102,0)="LAST EDITED BY^RP200'^VA(200,^USR;3^Q"
^DD(405,102,21,0)="^^2^2^2900702^"
^DD(405,102,21,1,0)="This is the user who last edited this patient movement entry.  The user"
^DD(405,102,21,2,0)="is only stored when a change is made."
^DD(405,102,"DT")="2900625"
^DD(405,103,0)="LAST EDITED ON^RD^^USR;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(405,103,21,0)="^^2^2^2901011^^^"
^DD(405,103,21,1,0)="This is the date/time this movement was last edited.  It will only"
^DD(405,103,21,2,0)="be stored if a change was made."
^DD(405,103,"DT")="2890921"
^DD(405,200,0)="WARD AT DISCHARGE^CJ30^^ ; ^D WARD^DGPMUTL"
^DD(405,200,9)="^"
^DD(405,200,9.01)=""
^DD(405,200,9.1)="D WARD^DGPMUTL"
^DD(405,200,21,0)="^^9^9^2910423^^^^"
^DD(405,200,21,1,0)="This computed field will determine the ward that the patient"
^DD(405,200,21,2,0)="was on when the patient was discharged."
^DD(405,200,21,3,0)=" "
^DD(405,200,21,4,0)="This field is only computed for discharge entries.  If is"
^DD(405,200,21,5,0)="field is needed while working with another type of movement,"
^DD(405,200,21,6,0)="the following extended syntax can be used:"
^DD(405,200,21,7,0)=" "
^DD(405,200,21,8,0)="ADMISSION/CHECK-IN MOVEMENT:DISCHARGE/CHECK-OUT MOVEMENT:WARD AT DISCHARGE"
^DD(405,200,21,9,0)=" "
^DD(405,201,0)="LENGTH OF STAY^CJ8^^ ; ^S X="""" D EN^DGPMLOS S X=$P(X,U,5)"
^DD(405,201,.1)="LOS"
^DD(405,201,9)="^"
^DD(405,201,9.01)=""
^DD(405,201,9.1)="S X="""" D EN^DGPMLOS S X=$P(X,U,5)"
^DD(405,201,21,0)="^^5^5^2910501^^^^"
^DD(405,201,21,1,0)="    This field will print the length of stay in days from admission to"
^DD(405,201,21,2,0)="discharge minus DAYS ABSENT and ASIH DAYS."
^DD(405,201,21,3,0)="     This field is accessible with extended syntax via the following"
^DD(405,201,21,4,0)="statement:"
^DD(405,201,21,5,0)="     ADMISSION/CHECK-IN MOVEMENT:LOS"
^DD(405,201,"DT")="2910429"
^DD(405,202,0)="PASS DAYS^CJ8^^ ; ^S X="""" D EN^DGPMLOS S X=$P(X,U,3)"
^DD(405,202,9)="^"
^DD(405,202,9.01)=""
^DD(405,202,9.1)="S X="""" D EN^DGPMLOS S X=$P(X,U,3)"
^DD(405,202,21,0)="^^4^4^2910501^^^^"
^DD(405,202,21,1,0)="     This field will print AUTHORIZED ABSENCE DAYS <96 for each admission"
^DD(405,202,21,2,0)="episode and is only calculated from the admission movements."
^DD(405,202,21,3,0)="     This field is accessible with the following extended syntax:"
^DD(405,202,21,4,0)="     ADMISSION/CHECK-IN MOVEMENT:PASS DAYS"
^DD(405,202,23,0)="^^1^1^2910501^^^^"
^DD(405,202,23,1,0)=" "
^DD(405,202,"DT")="2910424"
^DD(405,203,0)="DAYS ABSENT^CJ8^^ ; ^S X="""" D EN^DGPMLOS S X=$P(X,U,2)"
^DD(405,203,9)="^"
^DD(405,203,9.01)=""
^DD(405,203,9.1)="S X="""" D EN^DGPMLOS S X=$P(X,U,2)"
^DD(405,203,21,0)="^^5^5^2910501^^^^"
^DD(405,203,21,1,0)="     This field is computed to print the number of absence days for"
^DD(405,203,21,2,0)="a specific admission episode. It will not print PASS DAYS and is"
^DD(405,203,21,3,0)="calculated from the admission movements only."
^DD(405,203,21,4,0)="     This field is accessible with the following extended syntax:"
^DD(405,203,21,5,0)="     ADMISSION/CHECK-IN MOVMEMENT:DAYS ABSENT"
^DD(405,203,"DT")="2910425"
^DD(405,204,0)="ASIH DAYS^CJ8^^ ; ^S X="""" D EN^DGPMLOS S X=$P(X,U,4)"
^DD(405,204,9)="^"
^DD(405,204,9.01)=""
^DD(405,204,9.1)="S X="""" D EN^DGPMLOS S X=$P(X,U,4)"
^DD(405,204,21,0)="^^5^5^2910501^^^^"
^DD(405,204,21,1,0)="     This computed field will print the number of ASIH days for a"
^DD(405,204,21,2,0)="DOM or NHCU admission episode. It will only be calculated from the"
^DD(405,204,21,3,0)="admission movements that could have ASIH days."
^DD(405,204,21,4,0)="     This field is accessible with the following extended syntax:"
^DD(405,204,21,5,0)="     ADMISSION/CHECK-IN MOVEMENT:ASIH DAYS"
^DD(405,204,"DT")="2910429"
^DD(405,300,0)="ORIGINAL ADMISSION DATE^DX^^ORG;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^DGPM(DA,0),U,2)'=1 K X"
^DD(405,300,3)="Enter the patient's Original Admission Date/Time"
^DD(405,300,21,0)="^^1^1^3000823^"
^DD(405,300,21,1,0)="This field contains the original admission date/time for a patient."
^DD(405,300,"DT")="3000823"
^DD(405,11500.01,0)="ODS AT ADMISSION^S^1:YES;0:NO;^ODS;1^Q"
^DD(405,11500.01,3)="Was this patient admitted with a period of service of 6 (ODS)?"
^DD(405,11500.01,21,0)="^^3^3^2910422^^"
^DD(405,11500.01,21,1,0)="Was this patient admitted for care due to injuries sustained in Operation"
^DD(405,11500.01,21,2,0)="Desert Shield?  If the patient's period of service is 6 when admitted,"
^DD(405,11500.01,21,3,0)="this field will automatically be set to 1."
^DD(405,11500.01,"DT")="2910116"
^DD(405,11500.02,0)="NON-VA FACILITY?^S^1:YES;0:NO;^ODS;2^Q"
^DD(405,11500.02,1,0)="^.1"
^DD(405,11500.02,1,1,0)="405^AODS11^MUMPS"
^DD(405,11500.02,1,1,1)="S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,11500.02,1,1,2)="S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,11500.02,3)="Is this patient being transferred to a non-VA facility?  If so, answer yes.  Answer no for transfers to another VA facility."
^DD(405,11500.02,21,0)="^^1^1^2910116^"
^DD(405,11500.02,21,1,0)="Respond yes if you are transferring this patient out to a non-VA facility.  Respond no if transferring the patient to another VA facility."
^DD(405,11500.02,"DT")="2910117"
^DD(405,11500.03,0)="AT VA EXPENSE?^S^1:YES;0:NO;^ODS;3^Q"
^DD(405,11500.03,3)="Is the cost of this transfer to a non-VA facility incurred by the VA?"
^DD(405,11500.03,21,0)="^^1^1^2910116^"
^DD(405,11500.03,21,1,0)="Answer yes if this transfer to a non-VA facility is at the VA's expense."
^DD(405,11500.03,"DT")="2910116"
^DD(405,11500.04,0)="ODS ADMISSION ENTRY^P11500.2'^A1B2(11500.2,^ODS;4^Q"
^DD(405,11500.04,1,0)="^.1"
^DD(405,11500.04,1,1,0)="405^AODSA"
^DD(405,11500.04,1,1,1)="S ^DGPM(""AODSA"",$E(X,1,30),DA)="""""
^DD(405,11500.04,1,1,2)="K ^DGPM(""AODSA"",$E(X,1,30),DA)"
^DD(405,11500.04,3)="Enter the entry in the ODS ADMISSIONS file which corresponds to this admission."
^DD(405,11500.04,21,0)="^^2^2^2910116^"
^DD(405,11500.04,21,1,0)="If this patient was admitted with a period of service of 6 (ODS), enter"
^DD(405,11500.04,21,2,0)="the ODS ADMISSIONS file entry corresponding to this admission."
^DD(405,11500.04,"DT")="2910117"
^DD(405,11500.05,0)="DISPLACED FOR ODS PATIENT?^S^1:YES;0:NO;^ODS;5^Q"
^DD(405,11500.05,3)="Was this VA patient transferred out to make room for an ODS patient?"
^DD(405,11500.05,21,0)="^^2^2^2910116^"
^DD(405,11500.05,21,1,0)="Enter yes if this patient was transferred out in order to free a bed for an"
^DD(405,11500.05,21,2,0)="operation desert shield patient.  Otherwise, respond no."
^DD(405,11500.05,"DT")="2910116"
^DD(405,11500.06,0)="VA COST TO TRAVEL^NJ14,2^^ODS;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999)!(X<0) X"
^DD(405,11500.06,1,0)="^.1"
^DD(405,11500.06,1,1,0)="405^AODS3^MUMPS"
^DD(405,11500.06,1,1,1)="S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,11500.06,1,1,2)="S A1B2TAG=""ADM"" D ^A1B2XFR"
^DD(405,11500.06,3)="Type a Dollar Amount between 0 and 99999999999, 2 Decimal Digits"
^DD(405,11500.06,21,0)="^^3^3^2910116^"
^DD(405,11500.06,21,1,0)="Enter the cost of travel to move this VA patient to a non-VA facility."
^DD(405,11500.06,21,2,0)="This question is only asked if the patient was transferred in order to"
^DD(405,11500.06,21,3,0)="make room for an operation desert shield patient."
^DD(405,11500.06,"DT")="2910117"
^DD(405,11500.07,0)="DISPLACED PATIENT^P11500.3'^A1B2(11500.3,^ODS;7^Q"
^DD(405,11500.07,1,0)="^.1"
^DD(405,11500.07,1,1,0)="405^AODSD"
^DD(405,11500.07,1,1,1)="S ^DGPM(""AODSD"",$E(X,1,30),DA)="""""
^DD(405,11500.07,1,1,2)="K ^DGPM(""AODSD"",$E(X,1,30),DA)"
^DD(405,11500.07,3)="Enter the DISPLACED PATIENT entry corresponding to this discharge."
^DD(405,11500.07,21,0)="^^2^2^2910116^"
^DD(405,11500.07,21,1,0)="Enter the entry in the DISPLACED PATIENT file which corresponds to this"
^DD(405,11500.07,21,2,0)="discharge."
^DD(405,11500.07,"DT")="2910117"
^DD(405,"AUDIT",.09)=""
^DD(405,"B","ABSENCE RETURN DATE",.13)=""
^DD(405,"B","ADMISSION/CHECK-IN MOVEMENT",.14)=""
^DD(405,"B","ADMITTED FOR SC CONDITION?",.11)=""
^DD(405,"B","ADMITTING CATEGORY",54)=""
^DD(405,"B","ADMITTING ELIGIBILITY",.2)=""
^DD(405,"B","ADMITTING REGULATION",.12)=""
^DD(405,"B","ASIH ADMISSION",.15)=""
^DD(405,"B","ASIH DAYS",204)=""
^DD(405,"B","ASIH SEQUENCE",.22)=""
^DD(405,"B","ASIH TRANSFER",.21)=""
^DD(405,"B","AT VA EXPENSE?",11500.03)=""
^DD(405,"B","ATTENDING PHYSICIAN",.19)=""
^DD(405,"B","DATE/TIME",.01)=""
^DD(405,"B","DAYS ABSENT",203)=""
^DD(405,"B","DIAGNOSIS",99)=""
^DD(405,"B","DIAGNOSIS [SHORT]",.1)=""
^DD(405,"B","DISCHARGE/CHECK-OUT MOVEMENT",.17)=""
^DD(405,"B","DISPLACED FOR ODS PATIENT?",11500.05)=""
^DD(405,"B","DISPLACED PATIENT",11500.07)=""
^DD(405,"B","DISPOSITION",30.03)=""
^DD(405,"B","DMMS EPISODE NUMBER",.23)=""
^DD(405,"B","ELIGIBILITY",55)=""
^DD(405,"B","ENTERED BY",100)=""
^DD(405,"B","ENTERED ON",101)=""
^DD(405,"B","EXCLUDE FROM FACILITY DIR",40)=""
^DD(405,"B","FACILITY",.05)="1"
^DD(405,"B","FACILITY DIRECTORY EXCLUSION",41)=""
^DD(405,"B","FACILITY DIRECTORY TIME STAMP",42)=""
^DD(405,"B","FACILITY DIRECTORY USER",43)=""
^DD(405,"B","FACILITY TREATING SPECIALTY",.09)=""
^DD(405,"B","IRT BACKGROUND JOB RUN",60.01)=""
^DD(405,"B","LAST EDITED BY",102)=""
^DD(405,"B","LAST EDITED ON",103)=""
^DD(405,"B","LENGTH OF STAY",201)=""
^DD(405,"B","LODGING COMMENTS",30.02)=""
^DD(405,"B","LOS",201)="1"
^DD(405,"B","MAS MOVEMENT TYPE",.18)=""
^DD(405,"B","MOVEMENT DATE/TIME",.01)="1"
^DD(405,"B","NEXT PTF MOVEMENT",53)=""
^DD(405,"B","NON-VA FACILITY?",11500.02)=""
^DD(405,"B","ODS ADMISSION ENTRY",11500.04)=""
^DD(405,"B","ODS AT ADMISSION",11500.01)=""
^DD(405,"B","ORIGINAL ADMISSION DATE",300)=""
^DD(405,"B","PASS DAYS",202)=""
^DD(405,"B","PATIENT",.03)=""
^DD(405,"B","PRIMARY PHYSICIAN",.08)=""
^DD(405,"B","PROVIDER",.08)="1"
^DD(405,"B","PTF ENTRY",.16)=""
^DD(405,"B","PTF MOVEMENT NUMBER",52)=""
^DD(405,"B","PTF PURGE STATUS",.26)=""
^DD(405,"B","REASON FOR LODGING",30.01)=""
^DD(405,"B","RELATED PHYSICAL MOVEMENT",.24)=""
^DD(405,"B","ROOM-BED",.07)=""
^DD(405,"B","SCHEDULED ADMISSION?",.25)=""
^DD(405,"B","SOURCE OF ADMISSION",51)=""
^DD(405,"B","TRANSACTION",.02)=""
^DD(405,"B","TRANSFER FACILITY",.05)=""
^DD(405,"B","TYPE OF MOVEMENT",.04)=""
^DD(405,"B","VA COST TO TRAVEL",11500.06)=""
^DD(405,"B","VISIT FILE ENTRY",.27)=""
^DD(405,"B","WARD AT DISCHARGE",200)=""
^DD(405,"B","WARD LOCATION",.06)=""
^DD(405,"GL",0,1,.01)=""
^DD(405,"GL",0,2,.02)=""
^DD(405,"GL",0,3,.03)=""
^DD(405,"GL",0,4,.04)=""
^DD(405,"GL",0,5,.05)=""
^DD(405,"GL",0,6,.06)=""
^DD(405,"GL",0,7,.07)=""
^DD(405,"GL",0,8,.08)=""
^DD(405,"GL",0,9,.09)=""
^DD(405,"GL",0,10,.1)=""
^DD(405,"GL",0,11,.11)=""
^DD(405,"GL",0,12,.12)=""
^DD(405,"GL",0,13,.13)=""
^DD(405,"GL",0,14,.14)=""
^DD(405,"GL",0,15,.15)=""
^DD(405,"GL",0,16,.16)=""
^DD(405,"GL",0,17,.17)=""
^DD(405,"GL",0,18,.18)=""
^DD(405,"GL",0,19,.19)=""
^DD(405,"GL",0,20,.2)=""
^DD(405,"GL",0,21,.21)=""
^DD(405,"GL",0,22,.22)=""
^DD(405,"GL",0,23,.23)=""
^DD(405,"GL",0,24,.24)=""
^DD(405,"GL",0,25,.25)=""
^DD(405,"GL",0,26,.26)=""
^DD(405,"GL",0,27,.27)=""
^DD(405,"GL","DIR",1,41)=""
^DD(405,"GL","DIR",2,42)=""
^DD(405,"GL","DIR",3,43)=""
^DD(405,"GL","DX",0,99)=""
^DD(405,"GL","IRT",1,60.01)=""
^DD(405,"GL","LD",1,30.01)=""
^DD(405,"GL","LD",2,30.02)=""
^DD(405,"GL","LD",3,30.03)=""
^DD(405,"GL","ODS",1,11500.01)=""
^DD(405,"GL","ODS",2,11500.02)=""
^DD(405,"GL","ODS",3,11500.03)=""
^DD(405,"GL","ODS",4,11500.04)=""
^DD(405,"GL","ODS",5,11500.05)=""
^DD(405,"GL","ODS",6,11500.06)=""
^DD(405,"GL","ODS",7,11500.07)=""
^DD(405,"GL","ORG",1,300)=""
^DD(405,"GL","PTF",2,52)=""
^DD(405,"GL","PTF",3,53)=""
^DD(405,"GL","PTF",4,54)=""
^DD(405,"GL","USR",1,100)=""
^DD(405,"GL","USR",2,101)=""
^DD(405,"GL","USR",3,102)=""
^DD(405,"GL","USR",4,103)=""
^DD(405,"IX",.01)=""
^DD(405,"IX",.02)=""
^DD(405,"IX",.03)=""
^DD(405,"IX",.04)=""
^DD(405,"IX",.05)=""
^DD(405,"IX",.06)=""
^DD(405,"IX",.07)=""
^DD(405,"IX",.08)=""
^DD(405,"IX",.09)=""
^DD(405,"IX",.14)=""
^DD(405,"IX",.16)=""
^DD(405,"IX",.17)=""
^DD(405,"IX",.18)=""
^DD(405,"IX",.19)=""
^DD(405,"IX",.22)=""
^DD(405,"IX",.23)=""
^DD(405,"IX",.24)=""
^DD(405,"IX",.27)=""
^DD(405,"IX",41)=""
^DD(405,"IX",11500.02)=""
^DD(405,"IX",11500.04)=""
^DD(405,"IX",11500.06)=""
^DD(405,"IX",11500.07)=""
^DD(405,"RQ",.01)=""
^DD(405,"RQ",.02)=""
^DD(405,"RQ",.03)=""
^DD(405,"RQ",.04)=""
^DD(405,"RQ",.05)=""
^DD(405,"RQ",.06)=""
^DD(405,"RQ",.09)=""
^DD(405,"RQ",.1)=""
^DD(405,"RQ",.12)=""
^DD(405,"RQ",.14)=""
^DD(405,"RQ",.15)=""
^DD(405,"RQ",.18)=""
^DD(405,"RQ",.19)=""
^DD(405,"RQ",.2)=""
^DD(405,"RQ",.21)=""
^DD(405,"RQ",.22)=""
^DD(405,"RQ",30.01)=""
^DD(405,"RQ",30.03)=""
^DD(405,"RQ",100)=""
^DD(405,"RQ",101)=""
^DD(405,"RQ",102)=""
^DD(405,"RQ",103)=""
^DD(405,"SB",405.099,99)=""
^DD(405.099,0)="DIAGNOSIS SUB-FIELD^^.01^1"
^DD(405.099,0,"IX","B",405.099,.01)=""
^DD(405.099,0,"NM","DIAGNOSIS")=""
^DD(405.099,0,"UP")="405"
^DD(405.099,.01,0)="DIAGNOSIS^W^^0;1^Q"
^DD(405.099,.01,1,0)="^.1"
^DD(405.099,.01,1,1,0)="405.099^B"
^DD(405.099,.01,1,1,1)="S ^DGPM(DA(1),""DX"",""B"",$E(X,1,30),DA)="""""
^DD(405.099,.01,1,1,2)="K ^DGPM(DA(1),""DX"",""B"",$E(X,1,30),DA)"
^DD(405.099,.01,"DT")="2890102"
^DD(405.099,"B","DIAGNOSIS",.01)=""
^DD(405.099,"GL",0,1,.01)=""
^DD(405.099,"IX",.01)=""
^DD(405.1,0)="FIELD^^10^8"
^DD(405.1,0,"DDA")="N"
^DD(405.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(405.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(405.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(405.1,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(405.1,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(405.1,0,"IX","AF",405.11,.01)=""
^DD(405.1,0,"IX","AM",405.1,.03)=""
^DD(405.1,0,"IX","AT",405.1,.02)=""
^DD(405.1,0,"IX","B",405.1,.01)=""
^DD(405.1,0,"IX","C",405.1,.07)=""
^DD(405.1,0,"NM","FACILITY MOVEMENT TYPE")=""
^DD(405.1,0,"PT",405,.04)=""
^DD(405.1,0,"PT",405.11,.01)=""
^DD(405.1,0,"VR")="5.3"
^DD(405.1,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(405.1,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(405.1,.001,21,0)="^^3^3^2930127^^"
^DD(405.1,.001,21,1,0)="This field contains the internal entry number for this facility"
^DD(405.1,.001,21,2,0)="movement type.  This number is assigned by the system sequentially"
^DD(405.1,.001,21,3,0)="with each new entry."
^DD(405.1,.001,"DT")="2910330"
^DD(405.1,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(405.1,.01,1,0)="^.1"
^DD(405.1,.01,1,1,0)="405.1^B"
^DD(405.1,.01,1,1,1)="S ^DG(405.1,""B"",$E(X,1,30),DA)="""""
^DD(405.1,.01,1,1,2)="K ^DG(405.1,""B"",$E(X,1,30),DA)"
^DD(405.1,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(405.1,.01,21,0)="^^2^2^2911223^^"
^DD(405.1,.01,21,1,0)="Enter the name of the movement type.  This name will be displayed on many"
^DD(405.1,.01,21,2,0)="of the bed control outputs."
^DD(405.1,.01,"DEL",1,0)="I 1 W !?5,*7,""Deletion of movement types is not allowed!"""
^DD(405.1,.01,"DT")="2881228"
^DD(405.1,.02,0)="TRANSACTION TYPE^RP405.3'I^DG(405.3,^0;2^Q"
^DD(405.1,.02,1,0)="^.1"
^DD(405.1,.02,1,1,0)="405.1^AT"
^DD(405.1,.02,1,1,1)="S ^DG(405.1,""AT"",$E(X,1,30),DA)="""""
^DD(405.1,.02,1,1,2)="K ^DG(405.1,""AT"",$E(X,1,30),DA)"
^DD(405.1,.02,3)="Enter this facility movement type transaction type."
^DD(405.1,.02,21,0)="^^2^2^2911223^^"
^DD(405.1,.02,21,1,0)="Enter the type of transaction (admission, transfer, discharge, check-in"
^DD(405.1,.02,21,2,0)="lodger, check-out lodger, or specialty change) for this movement type."
^DD(405.1,.02,"DT")="2890823"
^DD(405.1,.03,0)="MOVEMENT TYPE^R*P405.2'^DG(405.2,^0;3^S DIC(""S"")=""I $P(^(0),""""^"""",2)=$P(^DG(405.1,DA,0),""""^"""",2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(405.1,.03,1,0)="^.1"
^DD(405.1,.03,1,1,0)="405.1^AM"
^DD(405.1,.03,1,1,1)="S ^DG(405.1,""AM"",$E(X,1,30),DA)="""""
^DD(405.1,.03,1,1,2)="K ^DG(405.1,""AM"",$E(X,1,30),DA)"
^DD(405.1,.03,3)="Select from the available listing the MAS MOVEMENT TYPE which best defines this facility movement type."
^DD(405.1,.03,12)="Transaction types must match."
^DD(405.1,.03,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=$P(^DG(405.1,DA,0),""""^"""",2)"""
^DD(405.1,.03,21,0)="^^4^4^2911223^^"
^DD(405.1,.03,21,1,0)="Enter the MAS MOVEMENT TYPE you wish this local movement type to be"
^DD(405.1,.03,21,2,0)="associated with.  All entries in this file must point to an entry in"
^DD(405.1,.03,21,3,0)="the MAS MOVEMENT TYPE file.  This field is used to determine the flow"
^DD(405.1,.03,21,4,0)="of many ADT functions."
^DD(405.1,.03,"DT")="2881013"
^DD(405.1,.04,0)="ACTIVE^RS^0:INACTIVE;1:ACTIVE;^0;4^Q"
^DD(405.1,.04,3)="Enter '1' if you want to use this movement type, '0' if you don't."
^DD(405.1,.04,21,0)="^^1^1^2911223^^"
^DD(405.1,.04,21,1,0)="Enter 1 if this movement type may be selected by users at your site."
^DD(405.1,.05,0)="ASK SPECIALTY AT MOVEMENT?^RS^0:NO;1:YES;^0;5^Q"
^DD(405.1,.05,3)="Should user be prompted for treating specialty when entering this type of movement?"
^DD(405.1,.05,21,0)="^^2^2^2911223^^"
^DD(405.1,.05,21,1,0)="Do you want the user to be asked to add/edit a treating specialty movement"
^DD(405.1,.05,21,2,0)="when this type of movement is entered/edited?"
^DD(405.1,.05,"DT")="2881013"
^DD(405.1,.07,0)="PRINT NAME^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(405.1,.07,1,0)="^.1"
^DD(405.1,.07,1,1,0)="405.1^C"
^DD(405.1,.07,1,1,1)="S ^DG(405.1,""C"",$E(X,1,30),DA)="""""
^DD(405.1,.07,1,1,2)="K ^DG(405.1,""C"",$E(X,1,30),DA)"
^DD(405.1,.07,3)="Answer must be 3-20 characters in length."
^DD(405.1,.07,21,0)="^^4^4^2911023^^"
^DD(405.1,.07,21,1,0)="This field contains the PRINT NAME.  It will be printed on the extended"
^DD(405.1,.07,21,2,0)="patient inquiry, extended bed control, as well as other bed control"
^DD(405.1,.07,21,3,0)="options.  If it is not defined, the NAME field will be used in an"
^DD(405.1,.07,21,4,0)="abbreviated format.  This field will also be used for look-up."
^DD(405.1,.07,"DT")="2900720"
^DD(405.1,10,0)="CAN ONLY FOLLOW MOVEMENT(S)^405.11PA^^F;0"
^DD(405.1,10,12)="Nothing follows discharges, admissions follow nothing."
^DD(405.1,10,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)'=3,$P(^DG(405.1,D0,0),""""^"""",2)'=1"""
^DD(405.1,10,21,0)="^^6^6^2911223^"
^DD(405.1,10,21,1,0)="This multiple contains all other movement types which this entry can"
^DD(405.1,10,21,2,0)="follow.  For admissions and check-in lodger movements, this multiple"
^DD(405.1,10,21,3,0)="will be blank as they can not follow anything.  The multiple will never"
^DD(405.1,10,21,4,0)="contain a discharge or a check-out lodger movement as nothing can follow"
^DD(405.1,10,21,5,0)="those movements.  The 'Can Only Follow' syntax relates to one episode,"
^DD(405.1,10,21,6,0)="either a lodger stay or an inpatient admission."
^DD(405.1,"B","ACTIVE",.04)=""
^DD(405.1,"B","ASK SPECIALTY AT MOVEMENT?",.05)=""
^DD(405.1,"B","CAN ONLY FOLLOW MOVEMENT(S)",10)=""
^DD(405.1,"B","MOVEMENT TYPE",.03)=""
^DD(405.1,"B","NAME",.01)=""
^DD(405.1,"B","NUMBER",.001)=""
^DD(405.1,"B","PRINT NAME",.07)=""
^DD(405.1,"B","TRANSACTION TYPE",.02)=""
^DD(405.1,"GL",0,1,.01)=""
^DD(405.1,"GL",0,2,.02)=""
^DD(405.1,"GL",0,3,.03)=""
^DD(405.1,"GL",0,4,.04)=""
^DD(405.1,"GL",0,5,.05)=""
^DD(405.1,"GL",0,7,.07)=""
^DD(405.1,"GL","F",0,10)=""
^DD(405.1,"IX",.01)=""
^DD(405.1,"IX",.02)=""
^DD(405.1,"IX",.03)=""
^DD(405.1,"IX",.07)=""
^DD(405.1,"RQ",.01)=""
^DD(405.1,"RQ",.02)=""
^DD(405.1,"RQ",.03)=""
^DD(405.1,"RQ",.04)=""
^DD(405.1,"RQ",.05)=""
^DD(405.1,"SB",405.11,10)=""
^DD(405.11,0)="CAN ONLY FOLLOW MOVEMENT(S) SUB-FIELD^^.01^1"
^DD(405.11,0,"IX","B",405.11,.01)=""
^DD(405.11,0,"NM","CAN ONLY FOLLOW MOVEMENT(S)")=""
^DD(405.11,0,"UP")="405.1"
^DD(405.11,.01,0)="CAN ONLY FOLLOW MOVEMENT(S)^M*P405.1'X^DG(405.1,^0;1^S DIC(""S"")=""S DGY=+$P(^(0),""""^"""",3),DGX=$P(^DG(405.1,+DA,0),""""^"""",3) I DGX,$D(^DG(405.2,DGX,""""F"""",DGY,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(405.11,.01,1,0)="^.1"
^DD(405.11,.01,1,1,0)="405.11^B"
^DD(405.11,.01,1,1,1)="S ^DG(405.1,DA(1),""F"",""B"",$E(X,1,30),DA)="""""
^DD(405.11,.01,1,1,2)="K ^DG(405.1,DA(1),""F"",""B"",$E(X,1,30),DA)"
^DD(405.11,.01,1,2,0)="405.1^AF^MUMPS"
^DD(405.11,.01,1,2,1)="S ^DG(405.1,""AF"",+X,DA(1))="""""
^DD(405.11,.01,1,2,2)="K ^DG(405.1,""AF"",+X,DA(1))"
^DD(405.11,.01,3)="Enter the movement which this one can follow."
^DD(405.11,.01,12)="Can't follow discharge or check-out.  Check-in and admission follow nothing.  Must be consistent with distributed movement types."
^DD(405.11,.01,12.1)="S DIC(""S"")=""S DGY=+$P(^(0),""""^"""",3),DGX=$P(^DG(405.1,+DA,0),""""^"""",3) I DGX,$D(^DG(405.2,DGX,""""F"""",DGY,0))"""
^DD(405.11,.01,21,0)="^^4^4^2911223^^"
^DD(405.11,.01,21,1,0)="Enter a movement type which this movement type can follow.  Admissions can"
^DD(405.11,.01,21,2,0)="not follow any movement types.  Nothing can follow a discharge.  Likewise,"
^DD(405.11,.01,21,3,0)="check-in lodgers can not follow any movement types and nothing can follow"
^DD(405.11,.01,21,4,0)="a check-out lodger movement."
^DD(405.11,.01,"DT")="2910429"
^DD(405.11,"B","CAN ONLY FOLLOW MOVEMENT(S)",.01)=""
^DD(405.11,"GL",0,1,.01)=""
^DD(405.11,"IX",.01)=""
^DD(405.2,0)="FIELD^^50.03^12"
^DD(405.2,0,"DDA")="N"
^DD(405.2,0,"DT")="2920603"
^DD(405.2,0,"ID",.02)="W:$D(^(0)) ""   "","""" S %=$C(59)_$S($D(^DD(405.2,.02,0)):$P(^(0),U,3),1:"""") W @(""$E(""_DIC_""Y,0),0)""),$P($P(%,$C(59)_$P(^(0),U,2)_"":"",2),$C(59),1)"
^DD(405.2,0,"IX","AF",405.21,.01)=""
^DD(405.2,0,"IX","B",405.2,.01)=""
^DD(405.2,0,"NM","MAS MOVEMENT TYPE")=""
^DD(405.2,0,"PT",45.1,3)=""
^DD(405.2,0,"PT",100.25,5)=""
^DD(405.2,0,"PT",100.5,7)=""
^DD(405.2,0,"PT",100.63,.01)=""
^DD(405.2,0,"PT",405,.18)=""
^DD(405.2,0,"PT",405.1,.03)=""
^DD(405.2,0,"PT",405.21,.01)=""
^DD(405.2,0,"PT",727.808,18)=""
^DD(405.2,0,"PT",727.817,18)=""
^DD(405.2,0,"PT",727.821,18)=""
^DD(405.2,0,"PT",727.822,18)=""
^DD(405.2,0,"VR")="5.3"
^DD(405.2,.001,0)="ENTRY NUMBER^NJ3,0I^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(405.2,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 100"
^DD(405.2,.001,21,0)="^^6^6^2911223^"
^DD(405.2,.001,21,1,0)="This field contains the internal entry number as created by VA FileMan"
^DD(405.2,.001,21,2,0)="and maintained by the MAS package.  This number is used widely throughout"
^DD(405.2,.001,21,3,0)="many DHCP packages including MAS, dietetics, and pharmacy to determine"
^DD(405.2,.001,21,4,0)="programming flow.  Adding, editing, or removing entries in this file will"
^DD(405.2,.001,21,5,0)="have severe negative impacts on software operation at your facility.  You"
^DD(405.2,.001,21,6,0)="MUST NOT edit this data!"
^DD(405.2,.001,"DT")="2900802"
^DD(405.2,.01,0)="NAME^RFI^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(405.2,.01,1,0)="^.1"
^DD(405.2,.01,1,1,0)="405.2^B"
^DD(405.2,.01,1,1,1)="S ^DG(405.2,""B"",$E(X,1,30),DA)="""""
^DD(405.2,.01,1,1,2)="K ^DG(405.2,""B"",$E(X,1,30),DA)"
^DD(405.2,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(405.2,.01,21,0)="^^5^5^2911223^"
^DD(405.2,.01,21,1,0)="This field contains the name of the movement type as distributed by the"
^DD(405.2,.01,21,2,0)="MAS package under the direction of MAS VACO and the MAS SIUG.  Entries"
^DD(405.2,.01,21,3,0)="in this file must not be edited locally, and will be maintained via"
^DD(405.2,.01,21,4,0)="frequent MAS software upgrades.  Changes to this file could severely"
^DD(405.2,.01,21,5,0)="impact operations at your site."
^DD(405.2,.01,"DT")="2900802"
^DD(405.2,.02,0)="TRANSACTION TYPE^RP405.3'I^DG(405.3,^0;2^Q"
^DD(405.2,.02,3)="Enter the transaction type of this MAS movement."
^DD(405.2,.02,21,0)="^^6^6^2911223^"
^DD(405.2,.02,21,1,0)="This field contains a pointer to the MAS MOVEMENT TRANSACTION TYPE file"
^DD(405.2,.02,21,2,0)="containing the allowable types of bed control movements (admissions,"
^DD(405.2,.02,21,3,0)="discharges, transfers, lodger movements, etc.).  This data is distributed"
^DD(405.2,.02,21,4,0)="by the MAS package under the direction of MAS VACO and the MAS SIUG."
^DD(405.2,.02,21,5,0)="Altering of this data in any way will have severe and negative impacts on"
^DD(405.2,.02,21,6,0)="operations at your site."
^DD(405.2,.02,"DT")="2900802"
^DD(405.2,.05,0)="ASK SPECIALTY AT MOVEMENT?^RSI^0:NO;1:YES;^0;5^Q"
^DD(405.2,.05,3)="Should the user be prompted to change the treating specialty when entering this movement type?"
^DD(405.2,.05,21,0)="^^6^6^2911223^"
^DD(405.2,.05,21,1,0)="This field will contain a yes if, when entering a movement of this type,"
^DD(405.2,.05,21,2,0)="the user should also be asked if they would like to enter a specialty"
^DD(405.2,.05,21,3,0)="transfer.  This would only be true in the case of admissions and some"
^DD(405.2,.05,21,4,0)="transfers.  This data is distributed with the MAS package under the"
^DD(405.2,.05,21,5,0)="direction of the MAS SIUG and MAS VACO.  Altering of this data in any"
^DD(405.2,.05,21,6,0)="way will have severe and negative impacts on operations at your site."
^DD(405.2,.05,"DT")="2910325"
^DD(405.2,.06,0)="ASK FACILITY ON MOVEMENT?^RSI^0:NO;1:YES;^0;6^Q"
^DD(405.2,.06,3)="Should user be prompted for the name of the facility to/from which the patient is received/sent?"
^DD(405.2,.06,21,0)="^^8^8^2911223^"
^DD(405.2,.06,21,1,0)="This field will contain a yes if, when entering a movement of this type,"
^DD(405.2,.06,21,2,0)="the user should also be asked for a 'TRANSFER FACILITY'.  This would be"
^DD(405.2,.06,21,3,0)="true for movements such as TRANSFER IN, TRANSFER OUT, CONTINUED ASIH"
^DD(405.2,.06,21,4,0)="(OTHER FACILITY), etc. where it is necessary to prompt for the facility"
^DD(405.2,.06,21,5,0)="where the patient is trasferring from or to.  This data is distributed by"
^DD(405.2,.06,21,6,0)="the MAS package as directed by MAS VACO and the MAS SIUG.  Altering of"
^DD(405.2,.06,21,7,0)="this data in any way will have severe and negative impacts on operations"
^DD(405.2,.06,21,8,0)="at your site."
^DD(405.2,.06,"DT")="2900802"
^DD(405.2,.07,0)="MODULE GENERATED/SELECTABLE?^RSI^0:MODULE GENERATED;1:SELECTABLE;^0;7^Q"
^DD(405.2,.07,3)="Can this movement type be selected by the user or is it generated by the module?"
^DD(405.2,.07,21,0)="^^8^8^2911223^"
^DD(405.2,.07,21,1,0)="Due to the ASIH (absent sick in hospital) functionality, there are certain"
^DD(405.2,.07,21,2,0)="movements (a TO ASIH admission) which are entered automatically by the"
^DD(405.2,.07,21,3,0)="system and are not selectable.  In this case, MODULE GENERATED would be"
^DD(405.2,.07,21,4,0)="entered in this field.  For movements which the user can choose at standard"
^DD(405.2,.07,21,5,0)="TYPE OF MOVEMENT prompts, this field will be SELECTABLE.  This data is"
^DD(405.2,.07,21,6,0)="distributed by the MAS package as directed by the MAS SIUG and MAS VACO."
^DD(405.2,.07,21,7,0)="Altering of this data in any way will have severe and negative impacts on"
^DD(405.2,.07,21,8,0)="operations at your site."
^DD(405.2,.07,"DT")="2900802"
^DD(405.2,.08,0)="PTF DISCHARGE CODE^RSI^1:REGULAR;2:NBC OR WHILE ASIH;3:EXPIRATION 6 MONTH LIMIT;4:IRREGULAR;5:TRANSFER;6:DEATH WITH AUTOPSY;7:DEATH WITHOUT AUTOPSY;^0;8^Q"
^DD(405.2,.08,3)="For this discharge movement type, enter the PTF code to be used for this transaction."
^DD(405.2,.08,21,0)="^^5^5^2920925^^"
^DD(405.2,.08,21,1,0)="This field is filled in only for discharges and contains the code for the"
^DD(405.2,.08,21,2,0)="discharge that is transmitted with the PTF record.  This data is"
^DD(405.2,.08,21,3,0)="distributed by the MAS packge under the direction of the MAS SIUG and"
^DD(405.2,.08,21,4,0)="MAS VACO.  Altering of this data in any way will have severe and negative"
^DD(405.2,.08,21,5,0)="impacts on the operations of MAS and other DHCP software packages."
^DD(405.2,.08,"DT")="2920925"
^DD(405.2,10,0)="CAN ONLY FOLLOW MOVEMENT(S)^405.21P^^F;0"
^DD(405.2,10,12)="Can't follow a discharge ever."
^DD(405.2,10,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)'=3"""
^DD(405.2,10,21,0)="^^13^13^2911223^"
^DD(405.2,10,21,1,0)="This multiple contains all other types of movements which this entry is"
^DD(405.2,10,21,2,0)="allowed to follow.  For admissions, this multiple will be blank as they"
^DD(405.2,10,21,3,0)="can not follow any other movements.  This is also true for check-in lodger"
^DD(405.2,10,21,4,0)="movements.  This multiple will never contain discharges or check-out lodger"
^DD(405.2,10,21,5,0)="movements as nothing can follow them.  The 'can only follow' syntax holds"
^DD(405.2,10,21,6,0)="only for a single episode:  either a lodger episode or an admission"
^DD(405.2,10,21,7,0)="episode."
^DD(405.2,10,21,8,0)=" "
^DD(405.2,10,21,9,0)="This data is distributed by the MAS software package under the direction"
^DD(405.2,10,21,10,0)="and review of MAS VACO as well as the MAS expert panel.  Editing of entries"
^DD(405.2,10,21,11,0)="in this multiple will have severe and extremely negative affects on the"
^DD(405.2,10,21,12,0)="operation of the MAS software package as well as other DHCP software"
^DD(405.2,10,21,13,0)="packages."
^DD(405.2,25,0)="DESCRIPTION^RF^^D;1^K:$L(X)>245!($L(X)<4) X"
^DD(405.2,25,3)="ANSWER MUST BE 4-245 CHARACTERS IN LENGTH"
^DD(405.2,25,21,0)="^^2^2^2911223^"
^DD(405.2,25,21,1,0)="This field will contain a brief description of the movement type.  This"
^DD(405.2,25,21,2,0)="description is distributed by the MAS package and should not be altered."
^DD(405.2,25,"DT")="2910217"
^DD(405.2,50.01,0)="ABSENCE MOVEMENT?^RSI^1:YES;0:NO;^E;1^Q"
^DD(405.2,50.01,3)="Is this transfer type an absence movement?"
^DD(405.2,50.01,21,0)="^^6^6^2911223^"
^DD(405.2,50.01,21,1,0)="If a patient has this movement type as his most recent movement and at"
^DD(405.2,50.01,21,2,0)="the time of the movement the patient is currently not in-house, this"
^DD(405.2,50.01,21,3,0)="field should contain a yes.  This data is distributed by the MAS package"
^DD(405.2,50.01,21,4,0)="and it is utilized by MAS as well as many other DHCP software packages."
^DD(405.2,50.01,21,5,0)="Altering of this data in any way will have very negative impacts on the"
^DD(405.2,50.01,21,6,0)="operations at your site.  DO NOT EDIT THIS DATA!"
^DD(405.2,50.01,"DT")="2910419"
^DD(405.2,50.02,0)="CAN MOVEMENT FOLLOW ADMISSION?^RSI^1:YES;0:NO;^E;2^Q"
^DD(405.2,50.02,3)="Can this movement follow an admisison?  No for transfers from absence."
^DD(405.2,50.02,21,0)="^^4^4^2911223^"
^DD(405.2,50.02,21,1,0)="If this movement type can follow an admission, this field will be YES.  This"
^DD(405.2,50.02,21,2,0)="data is distributed by the MAS package and it is utilized by MAS as well as"
^DD(405.2,50.02,21,3,0)="many other DHCP packages.  Altering of this data in any way will have very"
^DD(405.2,50.02,21,4,0)="negative impacts on the operations at your site.  DO NOT EDIT THIS DATA!"
^DD(405.2,50.02,"DT")="2900802"
^DD(405.2,50.03,0)="ASIH MOVEMENT?^RSI^1:YES;0:NO;^E;3^Q"
^DD(405.2,50.03,3)="Is this movement an ASIH movement?"
^DD(405.2,50.03,21,0)="^^5^5^2911223^"
^DD(405.2,50.03,21,1,0)="If this movement is an absent sick in hospital movement, this field will"
^DD(405.2,50.03,21,2,0)="be YES.  This data is distributed by the MAS package and it is utilized"
^DD(405.2,50.03,21,3,0)="by MAS as well as many other DHCP packages.  Altering of this data in any"
^DD(405.2,50.03,21,4,0)="way will have very negative impacts on the operations at your site.  DO NOT"
^DD(405.2,50.03,21,5,0)="EDIT THIS DATA!"
^DD(405.2,50.03,"DT")="2900802"
^DD(405.2,"B","ABSENCE MOVEMENT?",50.01)=""
^DD(405.2,"B","ASIH MOVEMENT?",50.03)=""
^DD(405.2,"B","ASK FACILITY ON MOVEMENT?",.06)=""
^DD(405.2,"B","ASK SPECIALTY AT MOVEMENT?",.05)=""
^DD(405.2,"B","CAN MOVEMENT FOLLOW ADMISSION?",50.02)=""
^DD(405.2,"B","CAN ONLY FOLLOW MOVEMENT(S)",10)=""
^DD(405.2,"B","DESCRIPTION",25)=""
^DD(405.2,"B","ENTRY NUMBER",.001)=""
^DD(405.2,"B","MODULE GENERATED/SELECTABLE?",.07)=""
^DD(405.2,"B","NAME",.01)=""
^DD(405.2,"B","PTF DISCHARGE CODE",.08)=""
^DD(405.2,"B","TRANSACTION TYPE",.02)=""
^DD(405.2,"GL",0,1,.01)=""
^DD(405.2,"GL",0,2,.02)=""
^DD(405.2,"GL",0,5,.05)=""
^DD(405.2,"GL",0,6,.06)=""
^DD(405.2,"GL",0,7,.07)=""
^DD(405.2,"GL",0,8,.08)=""
^DD(405.2,"GL","D",1,25)=""
^DD(405.2,"GL","E",1,50.01)=""
^DD(405.2,"GL","E",2,50.02)=""
^DD(405.2,"GL","E",3,50.03)=""
^DD(405.2,"GL","F",0,10)=""
^DD(405.2,"IX",.01)=""
^DD(405.2,"RQ",.01)=""
^DD(405.2,"RQ",.02)=""
^DD(405.2,"RQ",.05)=""
^DD(405.2,"RQ",.06)=""
^DD(405.2,"RQ",.07)=""
^DD(405.2,"RQ",.08)=""
^DD(405.2,"RQ",25)=""
^DD(405.2,"RQ",50.01)=""
^DD(405.2,"RQ",50.02)=""
^DD(405.2,"RQ",50.03)=""
^DD(405.2,"SB",405.21,10)=""
^DD(405.21,0)="CAN ONLY FOLLOW MOVEMENT(S) SUB-FIELD^^.01^1"
^DD(405.21,0,"IX","B",405.21,.01)=""
^DD(405.21,0,"NM","CAN ONLY FOLLOW MOVEMENT(S)")=""
^DD(405.21,0,"UP")="405.2"
^DD(405.21,.01,0)="CAN ONLY FOLLOW MOVEMENT(S)^M*P405.2'XI^DG(405.2,^0;1^S DIC(""S"")=""I ((""""^3^5^"""")'[(""""^""""_$P(^(0),""""^"""",2)_""""^"""")),((""""^1^4^"""")'[(""""^""""_$P(^DG(405.2,DA,0),""""^"""",2)_""""^""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(405.21,.01,1,0)="^.1"
^DD(405.21,.01,1,1,0)="405.21^B"
^DD(405.21,.01,1,1,1)="S ^DG(405.2,DA(1),""F"",""B"",$E(X,1,30),DA)="""""
^DD(405.21,.01,1,1,2)="K ^DG(405.2,DA(1),""F"",""B"",$E(X,1,30),DA)"
^DD(405.21,.01,1,1,"DT")="2910423"
^DD(405.21,.01,1,2,0)="405.2^AF"
^DD(405.21,.01,1,2,1)="S ^DG(405.2,""AF"",$E(X,1,30),DA(1),DA)="""""
^DD(405.21,.01,1,2,2)="K ^DG(405.2,""AF"",$E(X,1,30),DA(1),DA)"
^DD(405.21,.01,1,2,"DT")="2910423"
^DD(405.21,.01,3)="Enter the movement types which can precede this movement type."
^DD(405.21,.01,12)="Nothing follows check-out/discharge.  Admission/check-ins follow nothing."
^DD(405.21,.01,12.1)="S DIC(""S"")=""I ((""""^3^5^"""")'[(""""^""""_$P(^(0),""""^"""",2)_""""^"""")),((""""^1^4^"""")'[(""""^""""_$P(^DG(405.2,DA,0),""""^"""",2)_""""^""""))"""
^DD(405.21,.01,21,0)="^^6^6^2911223^"
^DD(405.21,.01,21,1,0)="This field contains a movement which this MAS MOVEMENT TYPE can follow."
^DD(405.21,.01,21,2,0)="No discharges or check-out lodger movements will be contained in this"
^DD(405.21,.01,21,3,0)="multiple and there will be no entries in the multiple for MAS MOVEMENT"
^DD(405.21,.01,21,4,0)="TYPES which are admissions or check-in lodgers.  Altering of this data"
^DD(405.21,.01,21,5,0)="in any way (adding, editing, or deleting) WILL have severe and negative"
^DD(405.21,.01,21,6,0)="impacts on the operations of MAS as well as other DHCP software packages."
^DD(405.21,.01,"DT")="2910423"
^DD(405.21,"B","CAN ONLY FOLLOW MOVEMENT(S)",.01)=""
^DD(405.21,"GL",0,1,.01)=""
^DD(405.21,"IX",.01)=""
^DD(405.3,0)="FIELD^^.01^1"
^DD(405.3,0,"DDA")="N"
^DD(405.3,0,"IX","B",405.3,.01)=""
^DD(405.3,0,"NM","MAS MOVEMENT TRANSACTION TYPE")=""
^DD(405.3,0,"PT",405,.02)=""
^DD(405.3,0,"PT",405.1,.02)=""
^DD(405.3,0,"PT",405.2,.02)=""
^DD(405.3,0,"VR")="5.3"
^DD(405.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(405.3,.01,1,0)="^.1"
^DD(405.3,.01,1,1,0)="405.3^B"
^DD(405.3,.01,1,1,1)="S ^DG(405.3,""B"",$E(X,1,30),DA)="""""
^DD(405.3,.01,1,1,2)="K ^DG(405.3,""B"",$E(X,1,30),DA)"
^DD(405.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(405.3,.01,21,0)="^^3^3^2911223^^"
^DD(405.3,.01,21,1,0)="Enter the type of transaction that is acceptable by the MAS package.  This"
^DD(405.3,.01,21,2,0)="field must NOT be altered as it could severely and adversely affect the"
^DD(405.3,.01,21,3,0)="MAS package."
^DD(405.3,"B","NAME",.01)=""
^DD(405.3,"GL",0,1,.01)=""
^DD(405.3,"IX",.01)=""
^DD(405.3,"RQ",.01)=""
^DD(405.4,0)="FIELD^^200^5"
^DD(405.4,0,"ID","WRITE")="I '$D(DGPMT) D ID^DGPMDDRB"
^DD(405.4,0,"IX","AINV",405.42,.01)=""
^DD(405.4,0,"IX","ARBU",405.4,.01)=""
^DD(405.4,0,"IX","B",405.4,.01)=""
^DD(405.4,0,"IX","BD",405.4,.01)=""
^DD(405.4,0,"IX","W",405.41,.01)=""
^DD(405.4,0,"NM","ROOM-BED")=""
^DD(405.4,0,"PT",2,.108)=""
^DD(405.4,0,"PT",46.13,.01)=""
^DD(405.4,0,"PT",53.68,.18)=""
^DD(405.4,0,"PT",100.213,.01)=""
^DD(405.4,0,"PT",115.01,14)=""
^DD(405.4,0,"PT",115.016,2.5)=""
^DD(405.4,0,"PT",115.017,2.5)=""
^DD(405.4,0,"PT",115.018,4.5)=""
^DD(405.4,0,"PT",119.62,.01)=""
^DD(405.4,0,"PT",404.56,.02)=""
^DD(405.4,0,"PT",405,.07)=""
^DD(405.4,0,"PT",8989.5,.01)=""
^DD(405.4,0,"VR")="5.3"
^DD(405.4,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3)!'(X?.UN1""-""1UN.UN!(X?.UN1""-"".UN1""-""1UN.UN)) X"
^DD(405.4,.01,1,0)="^.1"
^DD(405.4,.01,1,1,0)="405.4^B"
^DD(405.4,.01,1,1,1)="S ^DG(405.4,""B"",$E(X,1,30),DA)="""""
^DD(405.4,.01,1,1,2)="K ^DG(405.4,""B"",$E(X,1,30),DA)"
^DD(405.4,.01,1,2,0)="405.4^BD^MUMPS"
^DD(405.4,.01,1,2,1)="S DGPMDD=$P($P(X,""-"",2),""-"",1) S:DGPMDD]"""" ^DG(405.4,""BD"",DGPMDD,DA)="""" K DGPMDD"
^DD(405.4,.01,1,2,2)="S DGPMDD=$P($P(X,""-"",2),""-"",1) K ^DG(405.4,""BD"",DGPMDD,DA),DGPMDD"
^DD(405.4,.01,1,3,0)="405.4^ARBU^MUMPS"
^DD(405.4,.01,1,3,1)="Q"
^DD(405.4,.01,1,3,2)="N DFN,% S %=$P(^DG(405.4,DA,0),""^"",1) F DFN=0:0 S DFN=$O(^DPT(""RM"",X,DFN)) Q:'DFN  I $G(^DPT(DFN,.108))=DA K ^DPT(""RM"",X,DFN) S ^DPT(""RM"",%,DFN)="""",^DPT(DFN,.101)=%"
^DD(405.4,.01,1,3,3)="This cross-reference should not be deleted."
^DD(405.4,.01,1,3,"%D",0)="^^2^2^2960411^"
^DD(405.4,.01,1,3,"%D",1,0)="This cross-reference will reset the RM cross-reference in the PATIENT file"
^DD(405.4,.01,1,3,"%D",2,0)="any time the name of a ROOM-BED is changed."
^DD(405.4,.01,1,3,"DT")="2960411"
^DD(405.4,.01,1,4,0)="^^TRIGGER^46.11^.02"
^DD(405.4,.01,1,4,1)="Q"
^DD(405.4,.01,1,4,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(405.4,.01,1,4,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV S X=X X ^DD(405.4,.01,1,4,2.4)"
^DD(405.4,.01,1,4,2.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=46.11,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(405.4,.01,1,4,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DG(405.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMFL"",X=""""""""_X_"""""""" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(405.4,.01,1,4,"%D",0)="^^8^8^2991103^^^"
^DD(405.4,.01,1,4,"%D",1,0)="Trigger the Room-Bed name before it is changed into the RAI MDS "
^DD(405.4,.01,1,4,"%D",2,0)="MONITOR file."
^DD(405.4,.01,1,4,"%D",3,0)="This is a conditional trigger.  This will only occur if the CREATE MFU"
^DD(405.4,.01,1,4,"%D",4,0)="FOR RAI MDS field (#391.7014) in the MAS PARAMETER file (#43) is"
^DD(405.4,.01,1,4,"%D",5,0)="equal to a ""1"".  This trigger will force an entry into the RAI MDS"
^DD(405.4,.01,1,4,"%D",6,0)="MONITOR file.  Entries in that file will be used to create Master File"
^DD(405.4,.01,1,4,"%D",7,0)="Update HL7 messages to keep certain Vista and vendor files in"
^DD(405.4,.01,1,4,"%D",8,0)="syncronization."
^DD(405.4,.01,1,4,"CREATE VALUE")="NO EFFECT"
^DD(405.4,.01,1,4,"DELETE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(405.4,.01,1,4,"DELETE VALUE")="OLD NAME"
^DD(405.4,.01,1,4,"DIC")="LOOKUP"
^DD(405.4,.01,1,4,"DT")="2991018"
^DD(405.4,.01,1,4,"FIELD")="NAME:RAI MDS MONITOR:#.02"
^DD(405.4,.01,1,5,0)="^^TRIGGER^46.11^.03"
^DD(405.4,.01,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(405.4,.01,1,5,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=I(0,0) S DIU=X K Y S X=DIV S X=405.4 X ^DD(405.4,.01,1,5,1.4)"
^DD(405.4,.01,1,5,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,3)=DIV,DIH=46.11,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(405.4,.01,1,5,2)="Q"
^DD(405.4,.01,1,5,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DG(405.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMFL"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(405.4,.01,1,5,"%D",0)="^^8^8^2991103^^"
^DD(405.4,.01,1,5,"%D",1,0)="Trigger the file number (#405.4) of the Room-Bed file into the"
^DD(405.4,.01,1,5,"%D",2,0)="RAI MDS MONITOR file whenever the Room-Bed name is changed or added."
^DD(405.4,.01,1,5,"%D",3,0)="This is a conditional trigger.  It will only occur if the CREATE MFU"
^DD(405.4,.01,1,5,"%D",4,0)="FOR RAI MDS field (#391.7014) in the MAS PARAMETER file (#43) is"
^DD(405.4,.01,1,5,"%D",5,0)="equal to a ""1"".  This data in the RAI MDS MONITOR file is used to"
^DD(405.4,.01,1,5,"%D",6,0)="determine the type of Master File Update to be created.  For example,"
^DD(405.4,.01,1,5,"%D",7,0)="if the file number is 42 or 405.4, then a ""LOC"" type (LOCATION) is"
^DD(405.4,.01,1,5,"%D",8,0)="created."
^DD(405.4,.01,1,5,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(405.4,.01,1,5,"CREATE VALUE")="S X=405.4"
^DD(405.4,.01,1,5,"DELETE VALUE")="NO EFFECT"
^DD(405.4,.01,1,5,"DIC")="LOOKUP"
^DD(405.4,.01,1,5,"DT")="2991018"
^DD(405.4,.01,1,5,"FIELD")="NAME:RAI MDS MONITOR:#.03"
^DD(405.4,.01,1,6,0)="^^TRIGGER^46.11^.04"
^DD(405.4,.01,1,6,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$P($G(^DG(43,1,""HL7"")),U,4)=1 I X S X=DIV X ^DD(405.4,.01,1,6,89.2) S Y(101)=$S($D(^DGRU(46.11,D0,0)):^(0),1:"""") S X=$P(Y(101),U,4) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DA X ^DD(405.4,.01,1,6,1.4)"
^DD(405.4,.01,1,6,1.4)="S DIH=$S($D(^DGRU(46.11,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,4)=DIV,DIH=46.11,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(405.4,.01,1,6,2)="Q"
^DD(405.4,.01,1,6,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^DG(405.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^DGRU(46.11,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(405.4,.01,1,6,"%D",0)="^^5^5^2991103^^"
^DD(405.4,.01,1,6,"%D",1,0)="Trigger the internal entry number of the Room-Bed entry which was changed"
^DD(405.4,.01,1,6,"%D",2,0)="or added inti the RAI MDS MONITOR file."
^DD(405.4,.01,1,6,"%D",3,0)="This is a conditional trigger.  it will only occur if the CREATE MFU"
^DD(405.4,.01,1,6,"%D",4,0)="FOR RAI MDS field (#391.7014) in the MAS PARAMETER file (#43) is"
^DD(405.4,.01,1,6,"%D",5,0)="equal to a ""1"". "
^DD(405.4,.01,1,6,"CREATE CONDITION")="S X=$P($G(^DG(43,1,""HL7"")),U,4)=1"
^DD(405.4,.01,1,6,"CREATE VALUE")="S X=DA"
^DD(405.4,.01,1,6,"DELETE VALUE")="NO EFFECT"
^DD(405.4,.01,1,6,"DIC")="LOOKUP"
^DD(405.4,.01,1,6,"DT")="2991018"
^DD(405.4,.01,1,6,"FIELD")="NAME:RAI MDS MONITOR:#.04"
^DD(405.4,.01,3)="Enter a ROOM-BED designation in 'ROOM-BED' format.  If building must be included in designation it should be appended to the end, i.e., 'D101-A-6'.  [3-15 CHARACTERS ONLY]"
^DD(405.4,.01,21,0)="^^2^2^2911023^"
^DD(405.4,.01,21,1,0)="Enter the name of the room-bed you are adding.  Should be in the format"
^DD(405.4,.01,21,2,0)="ROOM-BED."
^DD(405.4,.01,"DEL",1,0)="I 1 W !?5,*7,""Deletion of room-beds is not allowed!"""
^DD(405.4,.01,"DT")="2991018"
^DD(405.4,.02,0)="DESCRIPTION^RP405.6^DG(405.6,^0;2^Q"
^DD(405.4,.02,3)="If you wish you may choose, from the available listing, a description which best describes the use of this room-bed."
^DD(405.4,.02,21,0)="^^3^3^2911223^^"
^DD(405.4,.02,21,1,0)="Enter a description for this bed.  It will show when entering 2 question"
^DD(405.4,.02,21,2,0)="marks at the ROOM-BED prompt in bed control or when displaying bed"
^DD(405.4,.02,21,3,0)="availability.  An example would be PRIVATE ROOM."
^DD(405.4,.02,"DT")="2891127"
^DD(405.4,.2,0)="CURRENTLY OUT-OF-SERVICE?^CJ1,0^^ ; ^D RIN^DGPMDDCF"
^DD(405.4,.2,9)="^"
^DD(405.4,.2,9.01)=""
^DD(405.4,.2,9.1)="D RIN^DGPMDDCF"
^DD(405.4,.2,21,0)="^^2^2^2911223^^"
^DD(405.4,.2,21,1,0)="Is this bed currently unavailable?  This field is computed based on data"
^DD(405.4,.2,21,2,0)="in the OUT-OF-SERVICE DATE multiple."
^DD(405.4,100,0)="WARD(S) WHICH CAN ASSIGN^405.41P^^W;0"
^DD(405.4,100,21,0)="^^1^1^2911223^^"
^DD(405.4,100,21,1,0)="Enter the list of wards which can assign this bed."
^DD(405.4,200,0)="OUT-OF-SERVICE DATE^405.42ID^^I;0"
^DD(405.4,200,21,0)="^^2^2^2911223^^"
^DD(405.4,200,21,1,0)="This multiple contains information on when this bed has been placed out-"
^DD(405.4,200,21,2,0)="of-service."
^DD(405.4,"B","CURRENTLY OUT-OF-SERVICE?",.2)=""
^DD(405.4,"B","DESCRIPTION",.02)=""
^DD(405.4,"B","NAME",.01)=""
^DD(405.4,"B","OUT-OF-SERVICE DATE",200)=""
^DD(405.4,"B","WARD(S) WHICH CAN ASSIGN",100)=""
^DD(405.4,"GL",0,1,.01)=""
^DD(405.4,"GL",0,2,.02)=""
^DD(405.4,"GL","I",0,200)=""
^DD(405.4,"GL","W",0,100)=""
^DD(405.4,"IX",.01)=""
^DD(405.4,"RQ",.01)=""
^DD(405.4,"RQ",.02)=""
^DD(405.4,"SB",405.41,100)=""
^DD(405.4,"SB",405.42,200)=""
^DD(405.41,0)="WARD(S) WHICH CAN ASSIGN SUB-FIELD^^.01^1"
^DD(405.41,0,"IX","B",405.41,.01)=""
^DD(405.41,0,"NM","WARD(S) WHICH CAN ASSIGN")=""
^DD(405.41,0,"UP")="405.4"
^DD(405.41,.01,0)="WARD(S) WHICH CAN ASSIGN^MP42'X^DIC(42,^0;1^I $D(X) S DINUM=X D CK^DGPMDDRB"
^DD(405.41,.01,1,0)="^.1"
^DD(405.41,.01,1,1,0)="405.41^B"
^DD(405.41,.01,1,1,1)="S ^DG(405.4,DA(1),""W"",""B"",$E(X,1,30),DA)="""""
^DD(405.41,.01,1,1,2)="K ^DG(405.4,DA(1),""W"",""B"",$E(X,1,30),DA)"
^DD(405.41,.01,1,2,0)="405.4^W"
^DD(405.41,.01,1,2,1)="S ^DG(405.4,""W"",$E(X,1,30),DA(1),DA)="""""
^DD(405.41,.01,1,2,2)="K ^DG(405.4,""W"",$E(X,1,30),DA(1),DA)"
^DD(405.41,.01,3)="Choose, from the available listing, the ward(s) which are permitted to place a patient in this bed."
^DD(405.41,.01,21,0)="^^2^2^2911223^^"
^DD(405.41,.01,21,1,0)="Enter the ward (a pointer to the WARD LOCATION file) which can utilize"
^DD(405.41,.01,21,2,0)="this bed."
^DD(405.41,.01,"DT")="2900709"
^DD(405.41,"B","WARD(S) WHICH CAN ASSIGN",.01)=""
^DD(405.41,"GL",0,1,.01)=""
^DD(405.41,"IX",.01)=""
^DD(405.42,0)="OUT-OF-SERVICE DATE SUB-FIELD^^.04^4"
^DD(405.42,0,"IX","B",405.42,.01)=""
^DD(405.42,0,"NM","OUT-OF-SERVICE DATE")=""
^DD(405.42,0,"UP")="405.4"
^DD(405.42,.01,0)="OUT-OF-SERVICE DATE^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X I $D(X) D ROOS^DGPMDDOS I $D(X)"
^DD(405.42,.01,1,0)="^.1"
^DD(405.42,.01,1,1,0)="405.42^B"
^DD(405.42,.01,1,1,1)="S ^DG(405.4,DA(1),""I"",""B"",$E(X,1,30),DA)="""""
^DD(405.42,.01,1,1,2)="K ^DG(405.4,DA(1),""I"",""B"",$E(X,1,30),DA)"
^DD(405.42,.01,1,2,0)="405.4^AINV^MUMPS"
^DD(405.42,.01,1,2,1)="S ^DG(405.4,DA(1),""I"",""AINV"",9999999-X,DA)="""""
^DD(405.42,.01,1,2,2)="K ^DG(405.4,DA(1),""I"",""AINV"",9999999-X,DA)"
^DD(405.42,.01,3)="Enter the DATE (without TIME) that this ROOM-BED was placed OUT-OF-SERVICE making it unavailable for selection."
^DD(405.42,.01,21,0)="^^1^1^2911223^^"
^DD(405.42,.01,21,1,0)="Enter the date/time this bed was placed out-of-service."
^DD(405.42,.01,"DT")="2900629"
^DD(405.42,.02,0)="REASON^RP405.5'^DG(405.5,^0;2^Q"
^DD(405.42,.02,3)="Select, from the available listing, the REASON which best described why this bed is OUT-OF-SERVICE."
^DD(405.42,.02,21,0)="^^2^2^2911223^^"
^DD(405.42,.02,21,1,0)="Enter a reason why this bed was placed out-of-service.  These reasons are"
^DD(405.42,.02,21,2,0)="determined by MAS/CO."
^DD(405.42,.03,0)="COMMENT^F^^0;3^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X"
^DD(405.42,.03,3)="If you wish you may enter a comment [3-30 characters] which further explains why this room-bed is out-of-service.  For example, for a contruction project you might enter the project number."
^DD(405.42,.03,21,0)="^^1^1^2911223^^"
^DD(405.42,.03,21,1,0)="Enter an optional comment as to why this bed was placed out-of-service."
^DD(405.42,.04,0)="RETURN TO SERVICE DATE^DX^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D RRTS^DGPMDDOS"
^DD(405.42,.04,3)="Enter the date this room-bed is expected to be returned to service.  If the bed is to be placed out-of-service indefinitely then don't answer this prompt."
^DD(405.42,.04,21,0)="^^1^1^2911223^^"
^DD(405.42,.04,21,1,0)="If it is known when this bed will return to service, enter it here."
^DD(405.42,.04,"DT")="2900626"
^DD(405.42,"B","COMMENT",.03)=""
^DD(405.42,"B","OUT-OF-SERVICE DATE",.01)=""
^DD(405.42,"B","REASON",.02)=""
^DD(405.42,"B","RETURN TO SERVICE DATE",.04)=""
^DD(405.42,"GL",0,1,.01)=""
^DD(405.42,"GL",0,2,.02)=""
^DD(405.42,"GL",0,3,.03)=""
^DD(405.42,"GL",0,4,.04)=""
^DD(405.42,"IX",.01)=""
^DD(405.42,"RQ",.02)=""
^DD(405.5,0)="FIELD^^.01^2"
^DD(405.5,0,"IX","B",405.5,.01)=""
^DD(405.5,0,"NM","MAS OUT-OF-SERVICE")=""
^DD(405.5,0,"PT",42.08,.02)=""
^DD(405.5,0,"PT",405.42,.02)=""
^DD(405.5,0,"VR")="5.3"
^DD(405.5,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(405.5,.001,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(405.5,.001,21,0)="^^2^2^2911223^^"
^DD(405.5,.001,21,1,0)="This is the internal file number of the entry in the file.  It MUST NOT"
^DD(405.5,.001,21,2,0)="be altered."
^DD(405.5,.01,0)="REASON^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(405.5,.01,1,0)="^.1"
^DD(405.5,.01,1,1,0)="405.5^B"
^DD(405.5,.01,1,1,1)="S ^DG(405.5,""B"",$E(X,1,30),DA)="""""
^DD(405.5,.01,1,1,2)="K ^DG(405.5,""B"",$E(X,1,30),DA)"
^DD(405.5,.01,3)="ANSWER MUST BE 3-60 CHARACTERS IN LENGTH"
^DD(405.5,.01,21,0)="^^2^2^2911223^^"
^DD(405.5,.01,21,1,0)="This field contains the CO approved reasons a bed or ward may be placed"
^DD(405.5,.01,21,2,0)="out-of-service.  It must not be altered in any way."
^DD(405.5,"B","NUMBER",.001)=""
^DD(405.5,"B","REASON",.01)=""
^DD(405.5,"GL",0,1,.01)=""
^DD(405.5,"IX",.01)=""
^DD(405.5,"RQ",.01)=""
^DD(405.6,0)="FIELD^^.01^1"
^DD(405.6,0,"IX","B",405.6,.01)=""
^DD(405.6,0,"NM","ROOM-BED DESCRIPTION")=""
^DD(405.6,0,"PT",405.4,.02)=""
^DD(405.6,0,"VR")="5.3"
^DD(405.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(405.6,.01,1,0)="^.1"
^DD(405.6,.01,1,1,0)="405.6^B"
^DD(405.6,.01,1,1,1)="S ^DG(405.6,""B"",$E(X,1,30),DA)="""""
^DD(405.6,.01,1,1,2)="K ^DG(405.6,""B"",$E(X,1,30),DA)"
^DD(405.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(405.6,.01,21,0)="^^2^2^2911223^^"
^DD(405.6,.01,21,1,0)="This file/field contains the descriptions of beds available at your"
^DD(405.6,.01,21,2,0)="facility.  Examples include PRIVATE ROOM, MALES ONLY, etc."
^DD(405.6,"B","NAME",.01)=""
^DD(405.6,"GL",0,1,.01)=""
^DD(405.6,"IX",.01)=""
^DD(405.6,"RQ",.01)=""
^DD(406.41,0)="FIELD^^.01^1"
^DD(406.41,0,"IX","B",406.41,.01)=""
^DD(406.41,0,"NM","LODGING REASON")=""
^DD(406.41,0,"PT",405,30.01)=""
^DD(406.41,0,"VR")="5.3"
^DD(406.41,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(406.41,.01,1,0)="^.1"
^DD(406.41,.01,1,1,0)="406.41^B"
^DD(406.41,.01,1,1,1)="S ^DG(406.41,""B"",$E(X,1,30),DA)="""""
^DD(406.41,.01,1,1,2)="K ^DG(406.41,""B"",$E(X,1,30),DA)"
^DD(406.41,.01,3)="Answer must be 3-30 characters in length."
^DD(406.41,.01,21,0)="^^1^1^2920211^^^^"
^DD(406.41,.01,21,1,0)="Enter the reason why a patient may be lodged."
^DD(406.41,.01,"DEL",.01,0)="I 1 W *7,""  You can not delete reasons for lodging!"""
^DD(406.41,"B","NAME",.01)=""
^DD(406.41,"GL",0,1,.01)=""
^DD(406.41,"IX",.01)=""
^DD(406.41,"RQ",.01)=""
^DD(407.5,0)="FIELD^^3^4"
^DD(407.5,0,"ID",1)="W """""
^DD(407.5,0,"ID","WRITE")="W:$P(^(0),""^"",2)]"""" $S($D(^VA(407.6,$N(^VA(407.6,""B"",$P(^VA(407.5,+Y,0),""^"",2),0)),0)):$P(^(0),""^"",2),1:"""")"
^DD(407.5,0,"IX","B",407.5,.01)=""
^DD(407.5,0,"IX","C",407.5,1)=""
^DD(407.5,0,"NM","LETTER")=""
^DD(407.5,0,"PT",44,2508)=""
^DD(407.5,0,"PT",44,2509)=""
^DD(407.5,0,"PT",44,2510)=""
^DD(407.5,0,"PT",44,2511)=""
^DD(407.5,0,"VR")="5.3"
^DD(407.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(407.5,.01,1,0)="^.1"
^DD(407.5,.01,1,1,0)="407.5^B"
^DD(407.5,.01,1,1,1)="S ^VA(407.5,""B"",$E(X,1,30),DA)="""""
^DD(407.5,.01,1,1,2)="K ^VA(407.5,""B"",$E(X,1,30),DA)"
^DD(407.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(407.5,.01,21,0)="^^4^4^2920211^"
^DD(407.5,.01,21,1,0)="The name of a letter that has been initially created by the developer"
^DD(407.5,.01,21,2,0)="in a 'skeleton form' and the user edits the body of the letter.  These"
^DD(407.5,.01,21,3,0)="letters are utilized mostly in the Scheduling Module of the MAS DHCP"
^DD(407.5,.01,21,4,0)="software."
^DD(407.5,.01,"DEL",1,0)="I $D(^SC(""ALTN"",DA))!$D(^SC(""ALTP"",DA))!$D(^SC(""ALTC"",DA))!$D(^SC(""ALTA"",DA))"
^DD(407.5,1,0)="TYPE^RFX^^0;2^K:X[""""""""!($A(X)=45) X S DIC=""^VA(407.6,"",DIC(0)=""QMZ"",DIC(""S"")=""I $P(^(0),""""^"""",3)']"""""""""" D ^DIC K:+Y'>0&(X'=""?"") X I $D(^VA(407.6,+Y,0)) S Y=Y(0,0) W:X'=$P(Y(0),""^"",2) ""  "",$P(Y(0),""^"",2) S X=Y(0,0) K DIC S DIC=407.5"
^DD(407.5,1,1,0)="^.1"
^DD(407.5,1,1,1,0)="407.5^C"
^DD(407.5,1,1,1,1)="S ^VA(407.5,""C"",$E(X,1,30),DA)="""""
^DD(407.5,1,1,1,2)="K ^VA(407.5,""C"",$E(X,1,30),DA)"
^DD(407.5,1,3)="TYPE must be in LETTER TYPE file."
^DD(407.5,1,4)="K DIC S DIC=""^VA(407.6,"",DIC(0)=""QMZ"",X=""?"",DIC(""S"")=""I $P(^(0),""""^"""",3)']"""""""""",D=""B"" D ^DIC"
^DD(407.5,1,21,0)="^^4^4^2920211^"
^DD(407.5,1,21,1,0)="The letter created is assigned a type for user specific needs.  For"
^DD(407.5,1,21,2,0)="example, a letter created to alert a veteran that he has an appointment"
^DD(407.5,1,21,3,0)="and a new travel legislation has been passed, the user may call this"
^DD(407.5,1,21,4,0)="letter 'Beneficiary Travel'."
^DD(407.5,1,"DT")="2881221"
^DD(407.5,2,0)="INITIAL SECTION OF LETTER^407.52^^1;0"
^DD(407.5,2,21,0)="^^6^6^2920211^"
^DD(407.5,2,21,1,0)="The initial section of the letter is the portion that has been pre-\"
^DD(407.5,2,21,2,0)="programmed by the developer to include items such as veteran's"
^DD(407.5,2,21,3,0)="name, address, social security number and is in the format of a "
^DD(407.5,2,21,4,0)="VA style letter.  The first paragraph automatically lists the"
^DD(407.5,2,21,5,0)="clinic and date/time he/she may have or had an appointment in one"
^DD(407.5,2,21,6,0)="of the facility's outpatient areas."
^DD(407.5,3,0)="FINAL SECTION OF LETTER^407.53^^2;0"
^DD(407.5,3,21,0)="^^3^3^2920211^"
^DD(407.5,3,21,1,0)="The final section of the letter is a word-processing field in which,"
^DD(407.5,3,21,2,0)="through a scheduling menu option, the user can enter the body of the"
^DD(407.5,3,21,3,0)="letter with site=specific information or announcements for the veteran."
^DD(407.5,"B","FINAL SECTION OF LETTER",3)=""
^DD(407.5,"B","INITIAL SECTION OF LETTER",2)=""
^DD(407.5,"B","NAME",.01)=""
^DD(407.5,"B","TYPE",1)=""
^DD(407.5,"GL",0,1,.01)=""
^DD(407.5,"GL",0,2,1)=""
^DD(407.5,"GL",1,0,2)=""
^DD(407.5,"GL",2,0,3)=""
^DD(407.5,"IX",.01)=""
^DD(407.5,"IX",1)=""
^DD(407.5,"RQ",.01)=""
^DD(407.5,"RQ",1)=""
^DD(407.5,"SB",407.52,2)=""
^DD(407.5,"SB",407.53,3)=""
^DD(407.52,0)="INITIAL SECTION OF LETTER SUB-FIELD^^.01^1"
^DD(407.52,0,"IX","B",407.52,.01)=""
^DD(407.52,0,"NM","INITIAL SECTION OF LETTER")=""
^DD(407.52,0,"UP")="407.5"
^DD(407.52,.01,0)="INITIAL SECTION OF LETTER^W^^0;1^Q"
^DD(407.52,.01,1,0)="^.1"
^DD(407.52,.01,1,1,0)="407.52^B"
^DD(407.52,.01,1,1,1)="S ^VA(407.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(407.52,.01,1,1,2)="K ^VA(407.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(407.52,"B","INITIAL SECTION OF LETTER",.01)=""
^DD(407.52,"GL",0,1,.01)=""
^DD(407.52,"IX",.01)=""
^DD(407.53,0)="FINAL SECTION OF LETTER SUB-FIELD^^.01^1"
^DD(407.53,0,"IX","B",407.53,.01)=""
^DD(407.53,0,"NM","FINAL SECTION OF LETTER")=""
^DD(407.53,0,"UP")="407.5"
^DD(407.53,.01,0)="FINAL SECTION OF LETTER^W^^0;1^Q"
^DD(407.53,.01,1,0)="^.1"
^DD(407.53,.01,1,1,0)="407.53^B"
^DD(407.53,.01,1,1,1)="S ^VA(407.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(407.53,.01,1,1,2)="K ^VA(407.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(407.53,"B","FINAL SECTION OF LETTER",.01)=""
^DD(407.53,"GL",0,1,.01)=""
^DD(407.53,"IX",.01)=""
^DD(407.6,0)="FIELD^^2^3"
^DD(407.6,0,"DT")="2911209"
^DD(407.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(407.6,0,"IX","B",407.6,.01)=""
^DD(407.6,0,"IX","C",407.6,1)=""
^DD(407.6,0,"NM","LETTER TYPE")=""
^DD(407.6,0,"VR")="5.3"
^DD(407.6,.01,0)="CODE^RFXI^^0;1^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X I $D(X),$D(^VA(407.6,""B"",X)) W !,""NO DUPLICATE CODES ALLOWED!"" K X"
^DD(407.6,.01,1,0)="^.1"
^DD(407.6,.01,1,1,0)="407.6^B"
^DD(407.6,.01,1,1,1)="S ^VA(407.6,""B"",$E(X,1,30),DA)="""""
^DD(407.6,.01,1,1,2)="K ^VA(407.6,""B"",$E(X,1,30),DA)"
^DD(407.6,.01,3)="Answer must be 1-3 characters in length."
^DD(407.6,.01,21,0)="^^2^2^2920211^"
^DD(407.6,.01,21,1,0)="The code is the alpha character assigned to a particular type of"
^DD(407.6,.01,21,2,0)="letter, i.e. 'P' = PRE-APPOINTMENT."
^DD(407.6,1,0)="CODE NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X"
^DD(407.6,1,1,0)="^.1"
^DD(407.6,1,1,1,0)="407.6^C"
^DD(407.6,1,1,1,1)="S ^VA(407.6,""C"",$E(X,1,30),DA)="""""
^DD(407.6,1,1,1,2)="K ^VA(407.6,""C"",$E(X,1,30),DA)"
^DD(407.6,1,3)="Answer must be 3-60 characters in length."
^DD(407.6,1,21,0)="^^5^5^2920211^"
^DD(407.6,1,21,1,0)="Code name is the name of the type of letter.  For example, PRE-"
^DD(407.6,1,21,2,0)="APPOINTMENT letter is a letter generated from the scheduling module"
^DD(407.6,1,21,3,0)="of the MAS DHCP software for veterans who have future appointments"
^DD(407.6,1,21,4,0)="and these letters are 'reminder' letters sent to the veterans for their "
^DD(407.6,1,21,5,0)="future appointments."
^DD(407.6,2,0)="INACTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(407.6,2,21,0)="^^2^2^2920211^"
^DD(407.6,2,21,1,0)="The inactive date is the date/time entered by a user denoting that"
^DD(407.6,2,21,2,0)="any particular letter type has been inactivated and no longer in use."
^DD(407.6,"B","CODE",.01)=""
^DD(407.6,"B","CODE NAME",1)=""
^DD(407.6,"B","INACTIVE DATE",2)=""
^DD(407.6,"GL",0,1,.01)=""
^DD(407.6,"GL",0,2,1)=""
^DD(407.6,"GL",0,3,2)=""
^DD(407.6,"IX",.01)=""
^DD(407.6,"IX",1)=""
^DD(407.6,"RQ",.01)=""
^DD(407.6,"RQ",1)=""
^DD(407.7,0)="FIELD^^1^4"
^DD(407.7,0,"DT")="2930304"
^DD(407.7,0,"IX","B",407.7,.01)=""
^DD(407.7,0,"NM","TRANSMISSION ROUTERS")=""
^DD(407.7,0,"VR")="5.3"
^DD(407.7,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(407.7,.01,1,0)="^.1"
^DD(407.7,.01,1,1,0)="407.7^B"
^DD(407.7,.01,1,1,1)="S ^VAT(407.7,""B"",$E(X,1,30),DA)="""""
^DD(407.7,.01,1,1,2)="K ^VAT(407.7,""B"",$E(X,1,30),DA)"
^DD(407.7,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(407.7,.01,21,0)="^^3^3^2930609^^"
^DD(407.7,.01,21,1,0)="The name assigned to a transmission router or destination point that"
^DD(407.7,.01,21,2,0)="data will be electronically transmitted to, usually at the Austin"
^DD(407.7,.01,21,3,0)="DPC."
^DD(407.7,.01,"DT")="2910625"
^DD(407.7,.02,0)="LINES/MSG FIXED LENGTH RECORD^RNJ4,0^^0;2^K:+X'=X!(X>1400)!(X<100)!(X?.E1"".""1N.N) X"
^DD(407.7,.02,3)="Type a Number between 100 and 1400, 0 Decimal Digits"
^DD(407.7,.02,21,0)="^^2^2^2880609^^^^"
^DD(407.7,.02,21,1,0)="Maximum number of lines of FIXED LENGTH records to allow in a single"
^DD(407.7,.02,21,2,0)="mailman message."
^DD(407.7,.02,"DT")="2900627"
^DD(407.7,.03,0)="LINES/MSG VARIABLE LENGTH REC^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(407.7,.03,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(407.7,.03,21,0)="^^2^2^2880609^^"
^DD(407.7,.03,21,1,0)="Maximum number of lines of VARIABLE LENGTH records to allow in a"
^DD(407.7,.03,21,2,0)="single mailman message."
^DD(407.7,.03,"DT")="2880526"
^DD(407.7,1,0)="MAIL ROUTER^407.71AI^^R;0"
^DD(407.7,1,21,0)="^^4^4^2920211^"
^DD(407.7,1,21,1,0)="The mail router is the actual router name/destination that is given"
^DD(407.7,1,21,2,0)="to a transmission router for electronic flow of data to usually the"
^DD(407.7,1,21,3,0)="Austin DPC.  For example, the mail router used to transmit Fee Basis"
^DD(407.7,1,21,4,0)="data to Austin DPC is named Q-FEE.VA.GOV"
^DD(407.7,"B","LINES/MSG FIXED LENGTH RECORD",.02)=""
^DD(407.7,"B","LINES/MSG VARIABLE LENGTH REC",.03)=""
^DD(407.7,"B","MAIL ROUTER",1)=""
^DD(407.7,"B","NAME",.01)=""
^DD(407.7,"GL",0,1,.01)=""
^DD(407.7,"GL",0,2,.02)=""
^DD(407.7,"GL",0,3,.03)=""
^DD(407.7,"GL","R",0,1)=""
^DD(407.7,"IX",.01)=""
^DD(407.7,"RQ",.01)=""
^DD(407.7,"RQ",.02)=""
^DD(407.7,"SB",407.71,1)=""
^DD(407.71,0)="MAIL ROUTER SUB-FIELD^^2^3"
^DD(407.71,0,"DT")="2930304"
^DD(407.71,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(407.71,0,"IX","B",407.71,.01)=""
^DD(407.71,0,"NM","MAIL ROUTER")=""
^DD(407.71,0,"UP")="407.7"
^DD(407.71,.01,0)="RECEIVING USER^F^^0;1^K:$L(X)>35!($L(X)<3) X"
^DD(407.71,.01,1,0)="^.1"
^DD(407.71,.01,1,1,0)="407.71^B"
^DD(407.71,.01,1,1,1)="S ^VAT(407.7,DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(407.71,.01,1,1,2)="K ^VAT(407.7,DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(407.71,.01,3)="Answer must be a valid and unique user in the domain you are transmitting to."
^DD(407.71,.01,21,0)="^^2^2^2920211^"
^DD(407.71,.01,21,1,0)="The user who will be receiving the data transmission, usually XXX"
^DD(407.71,.01,21,2,0)="defined for generic purposes."
^DD(407.71,1,0)="DOMAIN MAIL ROUTER^RP4.2'X^DIC(4.2,^0;2^I $D(^XMB(""NUM"")),^(""NUM"")=X K X W !!,""YOU CAN NOT TRANSMIT TO YOUR OWN DOMAIN"",!!"
^DD(407.71,1,21,0)="^^2^2^2920211^"
^DD(407.71,1,21,1,0)="Mail router designated for each domain to receive data transmission."
^DD(407.71,1,21,2,0)="Domain can be any station or facility."
^DD(407.71,1,"DT")="2930304"
^DD(407.71,2,0)="TRANSMIT^S^0:NO;1:YES;^0;3^Q"
^DD(407.71,2,21,0)="^^2^2^2920211^"
^DD(407.71,2,21,1,0)="This field is flagged with a '0' if transmission router should not"
^DD(407.71,2,21,2,0)="be set to transmit data and a '1' if it is."
^DD(407.71,"B","DOMAIN MAIL ROUTER",1)=""
^DD(407.71,"B","RECEIVING USER",.01)=""
^DD(407.71,"B","TRANSMIT",2)=""
^DD(407.71,"GL",0,1,.01)=""
^DD(407.71,"GL",0,2,1)=""
^DD(407.71,"GL",0,3,2)=""
^DD(407.71,"IX",.01)=""
^DD(407.71,"RQ",1)=""
^DD(408,0)="FIELD^^11^15"
^DD(408,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(408,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(408,0,"ID",4)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(408,4,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(408,0,"IX","AC",408,2)=""
^DD(408,0,"IX","AD",408,5)=""
^DD(408,0,"IX","AE",408,4)=""
^DD(408,0,"IX","B",408,.01)=""
^DD(408,0,"IX","C",408,1)=""
^DD(408,0,"NM","DISCRETIONARY WORKLOAD")=""
^DD(408,0,"VR")="5.3"
^DD(408,.01,0)="RUN DATE^MRDX^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X S DINUM=X"
^DD(408,.01,1,0)="^.1"
^DD(408,.01,1,1,0)="408^B"
^DD(408,.01,1,1,1)="S ^VAT(408,""B"",$E(X,1,30),DA)="""""
^DD(408,.01,1,1,2)="K ^VAT(408,""B"",$E(X,1,30),DA)"
^DD(408,.01,3)=""
^DD(408,1,0)="REPORT MONTH/YR^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(408,1,1,0)="^.1"
^DD(408,1,1,1,0)="408^C"
^DD(408,1,1,1,1)="S ^VAT(408,""C"",$E(X,1,30),DA)="""""
^DD(408,1,1,1,2)="K ^VAT(408,""C"",$E(X,1,30),DA)"
^DD(408,1.5,0)="REPORT RANGE^F^^0;10^K:$L(X)>15!($L(X)<1) X"
^DD(408,1.5,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(408,1.5,21,0)="^^2^2^2890710^"
^DD(408,1.5,21,1,0)="This field is not used by Medical Centers, it only applies to"
^DD(408,1.5,21,2,0)="the Q-DWL collection queue."
^DD(408,1.5,"DT")="2890710"
^DD(408,2,0)="SITE CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X"
^DD(408,2,1,0)="^.1^^-1"
^DD(408,2,1,1,0)="408^AC"
^DD(408,2,1,1,1)="S ^VAT(408,""AC"",$E(X,1,30),DA)="""""
^DD(408,2,1,1,2)="K ^VAT(408,""AC"",$E(X,1,30),DA)"
^DD(408,2,3)="Answer must be 3-15 characters in length."
^DD(408,3,0)="INSTITUTION^P4'^DIC(4,^0;4^Q"
^DD(408,4,0)="REPORT TYPE^S^1:OPC VISITS;2:DISCHARGES;3:OPC RESEARCH;4:OPC 10/10 VISITS;^0;5^Q"
^DD(408,4,1,0)="^.1"
^DD(408,4,1,1,0)="408^AE^MUMPS"
^DD(408,4,1,1,1)="S ^VAT(408,""AE"",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)="""""
^DD(408,4,1,1,2)="K ^VAT(408,""AE"",$P(^VAT(408,DA,0),U,2),$P(^(0),U,3),$E(X,1,30),DA)"
^DD(408,5,0)="*TRANSMISSION^S^0:NO;1:YES;^0;6^Q"
^DD(408,5,1,0)="^.1"
^DD(408,5,1,1,0)="408^AD"
^DD(408,5,1,1,1)="S ^VAT(408,""AD"",$E(X,1,30),DA)="""""
^DD(408,5,1,1,2)="K ^VAT(408,""AD"",$E(X,1,30),DA)"
^DD(408,5,3)=""
^DD(408,6,0)="ELAPSED TIME^F^^0;7^K:$L(X)>15!($L(X)<3) X"
^DD(408,6,3)="Answer must be 3-15 characters in length."
^DD(408,7,0)="MESSAGE DATE^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(408,7.5,0)="MESSAGE ID^NJ9,0^^2;1^K:+X'=X!(X>100000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408,7.5,3)="Type a Number between 0 and 100000000, 0 Decimal Digits"
^DD(408,7.5,21,0)="^^2^2^2890710^"
^DD(408,7.5,21,1,0)="This field is not used by Medical Centers, it only applies to"
^DD(408,7.5,21,2,0)="the Q-DWL collection queue."
^DD(408,7.5,"DT")="2890710"
^DD(408,7.7,0)="REMOTE MESSAGE ID^F^^2;2^K:$L(X)>45!($L(X)<2) X"
^DD(408,7.7,3)="ANSWER MUST BE 2-45 CHARACTERS IN LENGTH"
^DD(408,7.7,21,0)="^^2^2^2890710^"
^DD(408,7.7,21,1,0)="This field is not used by Medical Centers, it only applies to"
^DD(408,7.7,21,2,0)="the Q-DWL collection queue."
^DD(408,7.7,"DT")="2890710"
^DD(408,8,0)="ELIGIBILITY^408.08SA^^1;0"
^DD(408,9,0)="PTS REMAINING^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408,9,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408,10,0)="DUZ^P200'^VA(200,^2;3^Q"
^DD(408,10,21,0)="^^2^2^2890710^"
^DD(408,10,21,1,0)="This field is not used by Medical Centers, it only applies to"
^DD(408,10,21,2,0)="the Q-DWL collection queue."
^DD(408,10,"DT")="2901006"
^DD(408,11,0)="COMPLETED?^S^0:PENDING;1:COMPLETE;2:NEW;^2;4^Q"
^DD(408,11,21,0)="^^2^2^2890710^"
^DD(408,11,21,1,0)="This field is not used by Medical Centers, it only applies to"
^DD(408,11,21,2,0)="the Q-DWL collection queue."
^DD(408,11,"DT")="2890710"
^DD(408,"B","*TRANSMISSION",5)=""
^DD(408,"B","COMPLETED?",11)=""
^DD(408,"B","DUZ",10)=""
^DD(408,"B","ELAPSED TIME",6)=""
^DD(408,"B","ELIGIBILITY",8)=""
^DD(408,"B","INSTITUTION",3)=""
^DD(408,"B","MESSAGE DATE",7)=""
^DD(408,"B","MESSAGE ID",7.5)=""
^DD(408,"B","PTS REMAINING",9)=""
^DD(408,"B","REMOTE MESSAGE ID",7.7)=""
^DD(408,"B","REPORT MONTH/YR",1)=""
^DD(408,"B","REPORT RANGE",1.5)=""
^DD(408,"B","REPORT TYPE",4)=""
^DD(408,"B","RUN DATE",.01)=""
^DD(408,"B","SITE CODE",2)=""
^DD(408,"GL",0,1,.01)=""
^DD(408,"GL",0,2,1)=""
^DD(408,"GL",0,3,2)=""
^DD(408,"GL",0,4,3)=""
^DD(408,"GL",0,5,4)=""
^DD(408,"GL",0,6,5)=""
^DD(408,"GL",0,7,6)=""
^DD(408,"GL",0,8,7)=""
^DD(408,"GL",0,9,9)=""
^DD(408,"GL",0,10,1.5)=""
^DD(408,"GL",1,0,8)=""
^DD(408,"GL",2,1,7.5)=""
^DD(408,"GL",2,2,7.7)=""
^DD(408,"GL",2,3,10)=""
^DD(408,"GL",2,4,11)=""
^DD(408,"IX",.01)=""
^DD(408,"IX",1)=""
^DD(408,"IX",2)=""
^DD(408,"IX",4)=""
^DD(408,"IX",5)=""
^DD(408,"RQ",.01)=""
^DD(408,"SB",408.08,8)=""
^DD(408.08,0)="ELIGIBILITY SUB-FIELD^^8^9"
^DD(408.08,0,"IX","B",408.08,.01)=""
^DD(408.08,0,"NM","ELIGIBILITY")=""
^DD(408.08,0,"UP")="408"
^DD(408.08,.01,0)="ELIGIBILITY^MS^1:SC 50-100%;2:A&A/HB/WW1/POW/MEX;3:SC<50%;4:NSC/PEN;5:NSC;6:DOM;7:VE ERROR;8:CHAMPVA;9:COLLATERAL;10:EMPLOYEE;11:OTHER FED;12:ALLIED VET;13:HUMANITARIAN;14:SHARING;15:REIMB INSURANCE;16:NV ERROR;^0;1^Q"
^DD(408.08,.01,1,0)="^.1"
^DD(408.08,.01,1,1,0)="408.08^B"
^DD(408.08,.01,1,1,1)="S ^VAT(408,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(408.08,.01,1,1,2)="K ^VAT(408,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(408.08,.01,3)=""
^DD(408.08,1,0)="AS^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408.08,2,0)="AN^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408.08,3,0)="B0^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408.08,4,0)="C0^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408.08,5,0)="N0^NJ7,0^^0;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408.08,6,0)="X0^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,6,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408.08,7,0)="U0^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,7,1,0)="^.1"
^DD(408.08,7,1,1,0)="^^TRIGGER^408.08^8"
^DD(408.08,7,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(408.08,7,1,1,1.1) X ^DD(408.08,7,1,1,1.4)"
^DD(408.08,7,1,1,1.1)="S X=DIV S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2)+$P(Y(1),U,3)+$P(Y(1),U,4)+$P(Y(1),U,5)+$P(Y(1),U,6)+$P(Y(1),U,7)+DIV"
^DD(408.08,7,1,1,1.4)="S DIH=$S($D(^VAT(408,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U"" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"""":U_%,1:""""),DIH=408.08,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.08,7,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^VAT(408,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(408.08,7,1,1,2.4)"
^DD(408.08,7,1,1,2.4)="S DIH=$S($D(^VAT(408,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,8,99))  S DIH=DIH_U"" S %=$P(DIH,U,10,999),DIU=$P(DIH,U,9),^(0)=$P(DIH,U,1,8)_U_DIV_$S(%]"""":U_%,1:""""),DIH=408.08,DIG=8 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.08,7,1,1,"CREATE VALUE")="AS+AN+B0+C0+N0+X0+U0"
^DD(408.08,7,1,1,"DELETE VALUE")="@"
^DD(408.08,7,1,1,"FIELD")="TOTAL MT"
^DD(408.08,7,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(408.08,8,0)="TOTAL MT^NJ8,0^^0;9^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.08,8,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(408.08,8,5,1,0)="408.08^7^1"
^DD(408.08,"B","AN",2)=""
^DD(408.08,"B","AS",1)=""
^DD(408.08,"B","B0",3)=""
^DD(408.08,"B","C0",4)=""
^DD(408.08,"B","ELIGIBILITY",.01)=""
^DD(408.08,"B","N0",5)=""
^DD(408.08,"B","TOTAL MT",8)=""
^DD(408.08,"B","U0",7)=""
^DD(408.08,"B","X0",6)=""
^DD(408.08,"GL",0,1,.01)=""
^DD(408.08,"GL",0,2,1)=""
^DD(408.08,"GL",0,3,2)=""
^DD(408.08,"GL",0,4,3)=""
^DD(408.08,"GL",0,5,4)=""
^DD(408.08,"GL",0,6,5)=""
^DD(408.08,"GL",0,7,6)=""
^DD(408.08,"GL",0,8,7)=""
^DD(408.08,"GL",0,9,8)=""
^DD(408.08,"IX",.01)=""
^DD(408.08,"IX",7)=""
^DD(408.11,0)="FIELD^^.04^5"
^DD(408.11,0,"DDA")="N"
^DD(408.11,0,"DT")="2920308"
^DD(408.11,0,"IX","B",408.11,.01)=""
^DD(408.11,0,"NM","RELATIONSHIP")=""
^DD(408.11,0,"PT",408.12,.02)=""
^DD(408.11,0,"VR")="5.3"
^DD(408.11,.001,0)="NUMBER^NJ3,0I^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(408.11,.001,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(408.11,.001,21,0)="^^2^2^2930127^^"
^DD(408.11,.001,21,1,0)="This filed contains the internal entry number for this type of"
^DD(408.11,.001,21,2,0)="relationship in conjunction with income screening data."
^DD(408.11,.001,"DT")="2920114"
^DD(408.11,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(408.11,.01,1,0)="^.1"
^DD(408.11,.01,1,1,0)="408.11^B"
^DD(408.11,.01,1,1,1)="S ^DG(408.11,""B"",$E(X,1,30),DA)="""""
^DD(408.11,.01,1,1,2)="K ^DG(408.11,""B"",$E(X,1,30),DA)"
^DD(408.11,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(408.11,.01,21,0)="^^5^5^2920323^"
^DD(408.11,.01,21,1,0)="This field contains the name of an allowable relationship for an individual"
^DD(408.11,.01,21,2,0)="to a patient.  The list of allowable relationships is provided by MAS VACO"
^DD(408.11,.01,21,3,0)="based on documentation from the Internal Revenue Service.  This data is"
^DD(408.11,.01,21,4,0)="used in the income screening and means test modules of MAS and must not be"
^DD(408.11,.01,21,5,0)="added to, edited, or removed from this file."
^DD(408.11,.01,"DEL",1,0)="I 1 W !,*7,""Deletion of a relationship is not allowed."""
^DD(408.11,.02,0)="ACTIVE?^RS^1:YES;0:NO;^0;2^Q"
^DD(408.11,.02,3)="Is this relationship currently acceptable through DHCP?"
^DD(408.11,.02,21,0)="^^4^4^2920323^^"
^DD(408.11,.02,21,1,0)="Enter yes, if this relationship is allowable through DHCP.  Otherwise,"
^DD(408.11,.02,21,2,0)="respond no.  This information is provided by MAS VACO for use in the income"
^DD(408.11,.02,21,3,0)="screening and means test modules of MAS.  It must not be altered in any"
^DD(408.11,.02,21,4,0)="way at the local level."
^DD(408.11,.02,"DT")="2920308"
^DD(408.11,.03,0)="SEX^RS^M:MALE;F:FEMALE;E:EITHER;^0;3^Q"
^DD(408.11,.03,3)="Enter the sex of this type of relationship.  If the relationship can be either sex (example:  SPOUSE), enter E."
^DD(408.11,.03,21,0)="^^7^7^2920323^^"
^DD(408.11,.03,21,1,0)="Enter the sex of a person of this relationship.  In some cases, such as"
^DD(408.11,.03,21,2,0)="'SELF', 'SPOUSE', or 'OTHER', the sex could be either male or female.  In"
^DD(408.11,.03,21,3,0)="that case, enter EITHER."
^DD(408.11,.03,21,4,0)=" "
^DD(408.11,.03,21,5,0)="This information is provided and maintained by the MAS package.  Alteration"
^DD(408.11,.03,21,6,0)="of this data in any way could have negative impacts on the performance"
^DD(408.11,.03,21,7,0)="of the MAS package at your facility."
^DD(408.11,.03,"DT")="2920312"
^DD(408.11,.04,0)="ALLOWABLE FOR MEANS TEST?^S^1:YES;0:NO;^0;4^Q"
^DD(408.11,.04,3)="Enter yes, if this relationship is recognized by the means test portion of MAS.  Otherwise, respond no."
^DD(408.11,.04,21,0)="^^7^7^2920323^^"
^DD(408.11,.04,21,1,0)="If this relationship is an acceptable relationship for means test purposes,"
^DD(408.11,.04,21,2,0)="respond YES here.  If the relationship is acceptable for only income"
^DD(408.11,.04,21,3,0)="screening and IVM (income verification matching) purposes and not for"
^DD(408.11,.04,21,4,0)="means test, answer NO here."
^DD(408.11,.04,21,5,0)=" "
^DD(408.11,.04,21,6,0)="This information is provided by MAS VACO and maintained by the MAS software"
^DD(408.11,.04,21,7,0)="module.  It must not be altered in any way at the local facility level."
^DD(408.11,.04,"DT")="2920308"
^DD(408.11,"B","ACTIVE?",.02)=""
^DD(408.11,"B","ALLOWABLE FOR MEANS TEST?",.04)=""
^DD(408.11,"B","NAME",.01)=""
^DD(408.11,"B","NUMBER",.001)=""
^DD(408.11,"B","SEX",.03)=""
^DD(408.11,"GL",0,1,.01)=""
^DD(408.11,"GL",0,2,.02)=""
^DD(408.11,"GL",0,3,.03)=""
^DD(408.11,"GL",0,4,.04)=""
^DD(408.11,"IX",.01)=""
^DD(408.11,"RQ",.01)=""
^DD(408.11,"RQ",.02)=""
^DD(408.11,"RQ",.03)=""
^DD(408.12,0)="FIELD^^75^4"
^DD(408.12,0,"DDA")="N"
^DD(408.12,0,"DT")="2941220"
^DD(408.12,0,"ID",.03)="S DIY=$S($D(@(DIC_(+Y)_"",""""0"""")"")):$P(^(""0""),U,3),1:"""") D NAME^DICM2 W ""   "",DINAME,@(""$E(""_DIC_""Y,0),0)"")"
^DD(408.12,0,"IX","AENR02",408.12,.02)=""
^DD(408.12,0,"IX","AIVM",408.1275,.04)=""
^DD(408.12,0,"IX","B",408.12,.01)=""
^DD(408.12,0,"IX","C",408.12,.03)=""
^DD(408.12,0,"NM","PATIENT RELATION")=""
^DD(408.12,0,"PT",408.21,.02)=""
^DD(408.12,0,"VR")="5.3"
^DD(408.12,.01,0)="PATIENT^RP2'X^DPT(^0;1^Q"
^DD(408.12,.01,1,0)="^.1^^-1"
^DD(408.12,.01,1,1,0)="408.12^B"
^DD(408.12,.01,1,1,1)="S ^DGPR(408.12,""B"",$E(X,1,30),DA)="""""
^DD(408.12,.01,1,1,2)="K ^DGPR(408.12,""B"",$E(X,1,30),DA)"
^DD(408.12,.01,3)=""
^DD(408.12,.01,21,0)="^^2^2^2920504^^"
^DD(408.12,.01,21,1,0)="Enter the name of the patient to which this individual is related (even if"
^DD(408.12,.01,21,2,0)="it is the patient himself/herself)."
^DD(408.12,.01,23,0)="^^3^3^2920323^"
^DD(408.12,.01,23,1,0)="This field is used to group all relations to a patient for use in means"
^DD(408.12,.01,23,2,0)="test and income screening.  All active relatives are displayed in both"
^DD(408.12,.01,23,3,0)="modules and income data is collected for them."
^DD(408.12,.01,"DEL",1,0)="I 1 W !,*7,""Relations cannot be deleted, they must be inactivated!!"""
^DD(408.12,.01,"DT")="2930702"
^DD(408.12,.02,0)="RELATIONSHIP^R*P408.11'^DG(408.11,^0;2^D REL^DGMTDD1 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(408.12,.02,1,0)="^.1"
^DD(408.12,.02,1,1,0)="408.12^AENR02^MUMPS"
^DD(408.12,.02,1,1,1)="D E40812^DGRTRIG(DA)"
^DD(408.12,.02,1,1,2)="D E40812^DGRTRIG(DA)"
^DD(408.12,.02,1,1,3)=" DO NOT DELETE"
^DD(408.12,.02,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.12,.02,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.12,.02,1,1,"%D",2,0)="enrollment."
^DD(408.12,.02,1,1,"DT")="3050913"
^DD(408.12,.02,3)="Enter this persons relationship to the veteran."
^DD(408.12,.02,12)="Only allows appropriate codes given sex of relation.  Self and Spouse not editable or selectable."
^DD(408.12,.02,12.1)="D REL^DGMTDD1"
^DD(408.12,.02,21,0)="^^4^4^2920323^^"
^DD(408.12,.02,21,1,0)="Enter in this field the persons relationship to the veteran.  Choose"
^DD(408.12,.02,21,2,0)="only those that are appropriate for the sex of the person entered."
^DD(408.12,.02,21,3,0)="Self and Spouse will not be selectable or editable.  They are created"
^DD(408.12,.02,21,4,0)="automatically by the module."
^DD(408.12,.02,"DT")="3050913"
^DD(408.12,.03,0)="PERSON^RVX^^0;3^Q"
^DD(408.12,.03,1,0)="^.1"
^DD(408.12,.03,1,1,0)="408.12^C"
^DD(408.12,.03,1,1,1)="S ^DGPR(408.12,""C"",$E(X,1,30),DA)="""""
^DD(408.12,.03,1,1,2)="K ^DGPR(408.12,""C"",$E(X,1,30),DA)"
^DD(408.12,.03,1,1,"DT")="2920121"
^DD(408.12,.03,3)=""
^DD(408.12,.03,21,0)="^^3^3^2920710^^^"
^DD(408.12,.03,21,1,0)="Enter in this field the name of the relative.  The entry must be either"
^DD(408.12,.03,21,2,0)="in the PATIENT file (for those individuals that have been seen as patients"
^DD(408.12,.03,21,3,0)="in this facility) or the INCOME PERSON file."
^DD(408.12,.03,23,0)="^^3^3^2920710^^^"
^DD(408.12,.03,23,1,0)="This is a variable pointer to the PATIENT and INCOME PERSON files.  If the"
^DD(408.12,.03,23,2,0)="relative has been a patient, this should point to an entry in the PATIENT"
^DD(408.12,.03,23,3,0)="file.  Otherwise, the entry should be found in the INCOME PERSON file."
^DD(408.12,.03,"DT")="2930726"
^DD(408.12,.03,"V",0)="^.12P^2^2"
^DD(408.12,.03,"V",1,0)="2^Patient^1^P^n^n"
^DD(408.12,.03,"V",2,0)="408.13^Income Person^2^I^n^n"
^DD(408.12,.03,"V","B",2,1)=""
^DD(408.12,.03,"V","B",408.13,2)=""
^DD(408.12,.03,"V","M","Income Person",2)=""
^DD(408.12,.03,"V","M","Patient",1)=""
^DD(408.12,.03,"V","O",1,1)=""
^DD(408.12,.03,"V","O",2,2)=""
^DD(408.12,.03,"V","P","I",2)=""
^DD(408.12,.03,"V","P","P",1)=""
^DD(408.12,75,0)="EFFECTIVE DATE^408.1275D^^E;0"
^DD(408.12,75,21,0)="^^6^6^2971006^^^^"
^DD(408.12,75,21,1,0)="This multiple contains data on when an individual became a dependent and"
^DD(408.12,75,21,2,0)="a non-dependent.  First, a date must be selected and then it must be"
^DD(408.12,75,21,3,0)="determined whether on that date the relative became active or became a"
^DD(408.12,75,21,4,0)="non-dependent.  This information is used in the means test and income"
^DD(408.12,75,21,5,0)="screening modules for purposes of income collection.  Only those persons"
^DD(408.12,75,21,6,0)="that are active relatives of a patient will require income collection."
^DD(408.12,"B","EFFECTIVE DATE",75)=""
^DD(408.12,"B","PATIENT",.01)=""
^DD(408.12,"B","PERSON",.03)=""
^DD(408.12,"B","RELATIONSHIP",.02)=""
^DD(408.12,"GL",0,1,.01)=""
^DD(408.12,"GL",0,2,.02)=""
^DD(408.12,"GL",0,3,.03)=""
^DD(408.12,"GL","E",0,75)=""
^DD(408.12,"IX",.01)=""
^DD(408.12,"IX",.02)=""
^DD(408.12,"IX",.03)=""
^DD(408.12,"RQ",.01)=""
^DD(408.12,"RQ",.02)=""
^DD(408.12,"RQ",.03)=""
^DD(408.12,"SB",408.1275,75)=""
^DD(408.1275,0)="EFFECTIVE DATE SUB-FIELD^^.04^4"
^DD(408.1275,0,"DT")="2941220"
^DD(408.1275,0,"IX","AENR01",408.1275,.01)=""
^DD(408.1275,0,"IX","AID",408.1275,.01)=""
^DD(408.1275,0,"IX","B",408.1275,.01)=""
^DD(408.1275,0,"NM","EFFECTIVE DATE")=""
^DD(408.1275,0,"UP")="408.12"
^DD(408.1275,.01,0)="EFFECTIVE DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1!'$$DOB^DGDEP1(DA(1),X) X I Y>DT W !,""Future dates not allowed."" K X"
^DD(408.1275,.01,1,0)="^.1"
^DD(408.1275,.01,1,1,0)="408.1275^B"
^DD(408.1275,.01,1,1,1)="S ^DGPR(408.12,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(408.1275,.01,1,1,2)="K ^DGPR(408.12,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(408.1275,.01,1,2,0)="408.1275^AID^MUMPS"
^DD(408.1275,.01,1,2,1)="S ^DGPR(408.12,DA(1),""E"",""AID"",-X,DA)="""""
^DD(408.1275,.01,1,2,2)="K ^DGPR(408.12,DA(1),""E"",""AID"",-X,DA)"
^DD(408.1275,.01,1,2,"DT")="2920121"
^DD(408.1275,.01,1,3,0)="408.1275^AENR01^MUMPS"
^DD(408.1275,.01,1,3,1)="D E40812^DGRTRIG($G(DA(1)))"
^DD(408.1275,.01,1,3,2)="D E40812^DGRTRIG($G(DA(1)))"
^DD(408.1275,.01,1,3,3)=" DO NOT DELETE"
^DD(408.1275,.01,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.1275,.01,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.1275,.01,1,3,"%D",2,0)="enrollment."
^DD(408.1275,.01,1,3,"DT")="3050913"
^DD(408.1275,.01,3)="This date should be a precise date with month and day specified."
^DD(408.1275,.01,21,0)="^^4^4^2971006^^^^"
^DD(408.1275,.01,21,1,0)="Enter the date on which the relative either became active (date of birth"
^DD(408.1275,.01,21,2,0)="for a child or marriage date for a spouse, for example) or the date the"
^DD(408.1275,.01,21,3,0)="relative became inactive (date of death, date of divorce, or date child"
^DD(408.1275,.01,21,4,0)="became 18, for example)."
^DD(408.1275,.01,"DEL",1,0)="I '$O(^DGPR(408.12,DA(1),""E"",$O(^DGPR(408.12,DA(1),""E"",0))))!($G(DGEDIT)&$P(^(DA,0),U,3)) W !,*7,""Cannot delete ""_$S($P(^(0),U,3):""IVM"",1:""last"")_"" EFFECTIVE DATE!"""
^DD(408.1275,.01,"DT")="3050913"
^DD(408.1275,.02,0)="ACTIVE^RS^1:YES;0:NO;^0;2^Q"
^DD(408.1275,.02,21,0)="^^3^3^2920323^"
^DD(408.1275,.02,21,1,0)="If this change in status makes the dependent effective, enter 1 for active."
^DD(408.1275,.02,21,2,0)="If the change in status makes an active dependent no longer dependent, enter"
^DD(408.1275,.02,21,3,0)="0 here."
^DD(408.1275,.02,"DT")="2920114"
^DD(408.1275,.03,0)="FILED BY IVM^S^1:YES;^0;3^Q"
^DD(408.1275,.03,3)="If 'Yes' then this date has been filed by the IVM Center"
^DD(408.1275,.03,"DT")="2941220"
^DD(408.1275,.04,0)="IVM TEST^P408.31'^DGMT(408.31,^0;4^Q"
^DD(408.1275,.04,1,0)="^.1"
^DD(408.1275,.04,1,1,0)="408.12^AIVM"
^DD(408.1275,.04,1,1,1)="S ^DGPR(408.12,""AIVM"",$E(X,1,30),DA(1),DA)="""""
^DD(408.1275,.04,1,1,2)="K ^DGPR(408.12,""AIVM"",$E(X,1,30),DA(1),DA)"
^DD(408.1275,.04,1,1,"%D",0)="^^2^2^2941220^"
^DD(408.1275,.04,1,1,"%D",1,0)="This cross referenced is used for the IVM test when an effective date is"
^DD(408.1275,.04,1,1,"%D",2,0)="added."
^DD(408.1275,.04,1,1,"DT")="2941220"
^DD(408.1275,.04,3)=""
^DD(408.1275,.04,21,0)="^^1^1^2941220^"
^DD(408.1275,.04,21,1,0)="This is a pointer to the IVM test."
^DD(408.1275,.04,"DT")="2941220"
^DD(408.1275,"B","ACTIVE",.02)=""
^DD(408.1275,"B","EFFECTIVE DATE",.01)=""
^DD(408.1275,"B","FILED BY IVM",.03)=""
^DD(408.1275,"B","IVM TEST",.04)=""
^DD(408.1275,"GL",0,1,.01)=""
^DD(408.1275,"GL",0,2,.02)=""
^DD(408.1275,"GL",0,3,.03)=""
^DD(408.1275,"GL",0,4,.04)=""
^DD(408.1275,"IX",.01)=""
^DD(408.1275,"IX",.04)=""
^DD(408.1275,"RQ",.01)=""
^DD(408.1275,"RQ",.02)=""
^DD(408.13,0)="FIELD^^1.8^13"
^DD(408.13,0,"DDA")="N"
^DD(408.13,0,"DT")="2920415"
^DD(408.13,0,"IX","ADOB",408.13,.03)=""
^DD(408.13,0,"IX","AENR01",408.13,.01)=""
^DD(408.13,0,"IX","AENR02",408.13,.02)=""
^DD(408.13,0,"IX","AENR03",408.13,.03)=""
^DD(408.13,0,"IX","AENR09",408.13,.09)=""
^DD(408.13,0,"IX","AENR1",408.13,.1)=""
^DD(408.13,0,"IX","AENR11",408.13,1.1)=""
^DD(408.13,0,"IX","AIVM",408.13,.09)=""
^DD(408.13,0,"IX","B",408.13,.01)=""
^DD(408.13,0,"IX","BS",408.13,.09)=""
^DD(408.13,0,"IX","BS5",408.13,.09)=""
^DD(408.13,0,"IX","SSN",408.13,.09)=""
^DD(408.13,0,"NM","INCOME PERSON")=""
^DD(408.13,0,"PT",408.12,.03)=""
^DD(408.13,0,"PT",408.41,.1)=""
^DD(408.13,0,"VR")="5.3"
^DD(408.13,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'["","") X I $D(X) D UP^DGHELP S Y="", "" F I=0:0 Q:$F(X,Y)<1  S X=$E(X,1,($F(X,Y)-2))_$E(X,$F(X,Y),99)"
^DD(408.13,.01,1,0)="^.1"
^DD(408.13,.01,1,1,0)="408.13^B"
^DD(408.13,.01,1,1,1)="S ^DGPR(408.13,""B"",$E(X,1,30),DA)="""""
^DD(408.13,.01,1,1,2)="K ^DGPR(408.13,""B"",$E(X,1,30),DA)"
^DD(408.13,.01,1,2,0)="408.13^AENR01^MUMPS"
^DD(408.13,.01,1,2,1)="D E40813^DGRTRIG(DA)"
^DD(408.13,.01,1,2,2)="D E40813^DGRTRIG(DA)"
^DD(408.13,.01,1,2,3)=" DO NOT DELETE"
^DD(408.13,.01,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.13,.01,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.13,.01,1,2,"%D",2,0)="enrollment."
^DD(408.13,.01,1,2,"DT")="3050913"
^DD(408.13,.01,3)="Answer must be 3-30 characters in length.  The name must be in the format LASTNAME,FIRSTNAME MIDDLENAME where middlename is optional.  The name must not begin with punctuation."
^DD(408.13,.01,21,0)="^^5^5^2920504^^^"
^DD(408.13,.01,21,1,0)="Enter the name of the relative of the veteran.  The name should be entered"
^DD(408.13,.01,21,2,0)="in the same format as that for the veteran:  LASTNAME,FIRSTNAME MIDDLENAME."
^DD(408.13,.01,21,3,0)="If a space is entered between the comma and the first name, it will"
^DD(408.13,.01,21,4,0)="automatically be removed.  The relation's full name should be used to avoid"
^DD(408.13,.01,21,5,0)="potential duplicates."
^DD(408.13,.01,"DEL",1,0)="I 1 W !,*7,""Relations cannot be deleted, they must be inactivated!!"""
^DD(408.13,.01,"DT")="3050913"
^DD(408.13,.02,0)="SEX^RS^M:MALE;F:FEMALE;^0;2^Q"
^DD(408.13,.02,1,0)="^.1"
^DD(408.13,.02,1,1,0)="408.13^AENR02^MUMPS"
^DD(408.13,.02,1,1,1)="D E40813^DGRTRIG(DA)"
^DD(408.13,.02,1,1,2)="D E40813^DGRTRIG(DA)"
^DD(408.13,.02,1,1,3)=" DO NOT DELETE"
^DD(408.13,.02,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.13,.02,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.13,.02,1,1,"%D",2,0)="enrollment."
^DD(408.13,.02,1,1,"DT")="3050913"
^DD(408.13,.02,21,0)="^^3^3^2920323^"
^DD(408.13,.02,21,1,0)="Enter the sex of the relative.  This question must be answered in order for"
^DD(408.13,.02,21,2,0)="this relative to remain on file.  Enter M or Male for male or F or FEMALE"
^DD(408.13,.02,21,3,0)="for female."
^DD(408.13,.02,23,0)="^^4^4^2920323^"
^DD(408.13,.02,23,1,0)="This field is used to screen the allowable relationships as selectable"
^DD(408.13,.02,23,2,0)="from the PATIENT RELATION file.  Entry of FEMALE will, for example, screen"
^DD(408.13,.02,23,3,0)="out relationships such as BROTHER, FATHER, etc. which allowing entries"
^DD(408.13,.02,23,4,0)="such as SISTER and MOTHER."
^DD(408.13,.02,"DT")="3050913"
^DD(408.13,.03,0)="DATE OF BIRTH^RDXO^^0;3^S %DT=""EP"" D ^%DT S X=Y K:1701231>X!((($E(DT,1,3)-1)_1231)<X) X"
^DD(408.13,.03,.1)="DOB"
^DD(408.13,.03,1,0)="^.1"
^DD(408.13,.03,1,1,0)="408.13^ADOB"
^DD(408.13,.03,1,1,1)="S ^DGPR(408.13,""ADOB"",$E(X,1,30),DA)="""""
^DD(408.13,.03,1,1,2)="K ^DGPR(408.13,""ADOB"",$E(X,1,30),DA)"
^DD(408.13,.03,1,1,"DT")="2920121"
^DD(408.13,.03,1,2,0)="408.13^AENR03^MUMPS"
^DD(408.13,.03,1,2,1)="D E40813^DGRTRIG(DA)"
^DD(408.13,.03,1,2,2)="D E40813^DGRTRIG(DA)"
^DD(408.13,.03,1,2,3)=" DO NOT DELETE"
^DD(408.13,.03,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.13,.03,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.13,.03,1,2,"%D",2,0)="enrollment."
^DD(408.13,.03,1,2,"DT")="3050913"
^DD(408.13,.03,2)="S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X"
^DD(408.13,.03,2.1)="NUMDATE4(DOB)"
^DD(408.13,.03,3)="Enter the date this dependent was born.  The date must not be during the current calendar year.  Only persons that were dependents before the current year may be entered."
^DD(408.13,.03,21,0)="^^10^10^2920511^^^^"
^DD(408.13,.03,21,1,0)="Enter the date on which this relative was born.  This information is"
^DD(408.13,.03,21,2,0)="necessary for use in the income screening and means test portions of"
^DD(408.13,.03,21,3,0)="MAS."
^DD(408.13,.03,21,4,0)=" "
^DD(408.13,.03,21,5,0)="The date entered must not be during the current calendar year.  That is,"
^DD(408.13,.03,21,6,0)="it must be on or before December 31 or the prior calendar year.  The reason"
^DD(408.13,.03,21,7,0)="for this is that this data is used for collecting income information for"
^DD(408.13,.03,21,8,0)="the purposes of comparing this data with the Internal Revenue Service (IRS)."
^DD(408.13,.03,21,9,0)="Children born during the current calendar year can not be entered until"
^DD(408.13,.03,21,10,0)="next year."
^DD(408.13,.03,"DT")="3050913"
^DD(408.13,.09,0)="SOCIAL SECURITY NUMBER^RFX^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) D SSN^DGMTDD1"
^DD(408.13,.09,.1)="SSN"
^DD(408.13,.09,1,0)="^.1"
^DD(408.13,.09,1,1,0)="408.13^BS^MUMPS"
^DD(408.13,.09,1,1,1)="S ^DGPR(408.13,""BS"",$E(X,6,9),DA)="""""
^DD(408.13,.09,1,1,2)="K ^DGPR(408.13,""BS"",$E(X,6,9),DA)"
^DD(408.13,.09,1,1,"DT")="2920121"
^DD(408.13,.09,1,2,0)="408.13^BS5^MUMPS"
^DD(408.13,.09,1,2,1)="S ^DGPR(408.13,""BS5"",$E(^DGPR(408.13,DA,0),1)_$E(X,6,9),DA)="""""
^DD(408.13,.09,1,2,2)="K ^DGPR(408.13,""BS5"",$E(^DGPR(408.13,DA,0),1)_$E(X,6,9),DA)"
^DD(408.13,.09,1,2,"DT")="2920121"
^DD(408.13,.09,1,3,0)="408.13^SSN"
^DD(408.13,.09,1,3,1)="S ^DGPR(408.13,""SSN"",$E(X,1,30),DA)="""""
^DD(408.13,.09,1,3,2)="K ^DGPR(408.13,""SSN"",$E(X,1,30),DA)"
^DD(408.13,.09,1,3,"DT")="2920121"
^DD(408.13,.09,1,4,0)="408.13^AIVM^MUMPS"
^DD(408.13,.09,1,4,1)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T SPSSN^IVMPXFR S X=IVMX K IVMX"
^DD(408.13,.09,1,4,2)="S IVMX=X,X=""IVMPXFR"" X ^%ZOSF(""TEST"") D:$T SPSSN^IVMPXFR S X=IVMX K IVMX"
^DD(408.13,.09,1,4,"%D",0)="^^4^4^2940714^"
^DD(408.13,.09,1,4,"%D",1,0)="This cross-reference will check the IVM PATIENT file to see if a change"
^DD(408.13,.09,1,4,"%D",2,0)="to this field will require transmission to the IVM Center.  If it does,"
^DD(408.13,.09,1,4,"%D",3,0)="the IVM PATIENT file entry's TRANSMISSION STATUS will be set to 0 and"
^DD(408.13,.09,1,4,"%D",4,0)="the nightly background job will transmit the updated information."
^DD(408.13,.09,1,4,"DT")="2940714"
^DD(408.13,.09,1,5,0)="^^TRIGGER^408.13^.1"
^DD(408.13,.09,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0)'[""P"" I X S X=DIV S Y(1)=$S($D(^DGPR(408.13,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" X ^DD(408.13,.09,1,5,1.4)"
^DD(408.13,.09,1,5,1.4)="S DIH=$G(^DGPR(408.13,DIV(0),0)),DIV=X S $P(^(0),U,10)=DIV,DIH=408.13,DIG=.1 D ^DICR"
^DD(408.13,.09,1,5,2)="Q"
^DD(408.13,.09,1,5,3)=" DO NOT DELETE"
^DD(408.13,.09,1,5,"%D",0)="^^1^1^3050914^"
^DD(408.13,.09,1,5,"%D",1,0)="Pseudo SSN Reason will have a value only if SSN is a Pseudo SSN."
^DD(408.13,.09,1,5,"CREATE CONDITION")="#.09'[""P"""
^DD(408.13,.09,1,5,"CREATE VALUE")="@"
^DD(408.13,.09,1,5,"DELETE VALUE")="NO EFFECT"
^DD(408.13,.09,1,5,"DT")="3050914"
^DD(408.13,.09,1,5,"FIELD")="PSEUDO SSN REASON"
^DD(408.13,.09,3)="Answer with this dependent's social security number.  Answer must be 9 numbers in length or a ""P"" or a pseudo SSN."
^DD(408.13,.09,21,0)="^.001^13^13^3070130^^"
^DD(408.13,.09,21,1,0)="Answer with the individual's social security number.  Answer must be 9 "
^DD(408.13,.09,21,2,0)="numbers in length. The SSN will be sent to the SSA for verification. "
^DD(408.13,.09,21,3,0)="This status will be displayed next to the SSN.  Once an SSN has"
^DD(408.13,.09,21,4,0)="received a status of Verified, it is locked from user updating and a "
^DD(408.13,.09,21,5,0)="""VERIFIED"" will be displayed by the SSN field.  Only HEC staff are able "
^DD(408.13,.09,21,6,0)="to change a Spouse or Dependent verified SSN.  If SSA indicates the "
^DD(408.13,.09,21,7,0)="SSN is invalid, ""INVALID"" will appear next to the invalid SSN of the"
^DD(408.13,.09,21,8,0)="individual. Facilities should make every effort to obtain the accurate "
^DD(408.13,.09,21,9,0)="SSN from the individual for any invalid or pseudo SSN."
^DD(408.13,.09,21,10,0)=" "
^DD(408.13,.09,21,11,0)="If a valid SSN is not known, then a ""P"" will be entered at the SSN"
^DD(408.13,.09,21,12,0)="prompt for the system to automatically assign a Pseudo-SSN.  If a"
^DD(408.13,.09,21,13,0)="Pseudo SSN is entered, a Reason for entering it will be required."
^DD(408.13,.09,23,0)="^.001^1^1^3070130^^^^"
^DD(408.13,.09,23,1,0)="This contains the SSN of the veteran's dependents."
^DD(408.13,.09,"DT")="3060919"
^DD(408.13,.1,0)="PSEUDO SSN REASON^RS^R:REFUSED TO PROVIDE;S:SSN UNKNOWN/FOLLOW-UP REQUIRED;N:NO SSN ASSIGNED;^0;10^Q"
^DD(408.13,.1,1,0)="^.1"
^DD(408.13,.1,1,1,0)="408.13^AENR1^MUMPS"
^DD(408.13,.1,1,1,1)="D E40813^DGRTRIG(DA)"
^DD(408.13,.1,1,1,2)="D E40813^DGRTRIG(DA)"
^DD(408.13,.1,1,1,3)=" DO NOT DELETE"
^DD(408.13,.1,1,1,"%D",0)="^.101^2^2^3050930^^^^"
^DD(408.13,.1,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.13,.1,1,1,"%D",2,0)="enrollment."
^DD(408.13,.1,1,1,"DT")="3050930"
^DD(408.13,.1,5,1,0)="408.13^.09^5"
^DD(408.13,.1,21,0)="^.001^17^17^3060801^^"
^DD(408.13,.1,21,1,0)="This field is used to document the reason the individual was assigned a "
^DD(408.13,.1,21,2,0)="pseudo SSN.  Based on your selection, the Pseudo SSN Report (Dependent) "
^DD(408.13,.1,21,3,0)="option located in the Means Test Menu can provide you a current report"
^DD(408.13,.1,21,4,0)="of the reasons entered at this prompt.  The following reasons are "
^DD(408.13,.1,21,5,0)="available for selection:"
^DD(408.13,.1,21,6,0)=" "
^DD(408.13,.1,21,7,0)="Refused to Provide - use this reason when the individual was asked for "
^DD(408.13,.1,21,8,0)="his/her SSN and refused to provide the number."
^DD(408.13,.1,21,9,0)=" "
^DD(408.13,.1,21,10,0)="SSN Unknown/Follow-up required - use this reason when the individual is "
^DD(408.13,.1,21,11,0)="not available to ask/answer the request for SSN.  The facility should"
^DD(408.13,.1,21,12,0)="initiate Follow-up activity to obtain the SSN."
^DD(408.13,.1,21,13,0)=" "
^DD(408.13,.1,21,14,0)="No SSN Assigned - use this reason when the individual has not been "
^DD(408.13,.1,21,15,0)="assigned an SSN.  This generally applies to spouses or dependents "
^DD(408.13,.1,21,16,0)="of veterans who are not US citizens and infrequently, non-citizen"
^DD(408.13,.1,21,17,0)="beneficiaries."
^DD(408.13,.1,"DT")="3050930"
^DD(408.13,1.1,0)="MAIDEN NAME^FX^^1;1^K:$L(X)>35!($L(X)<2) X I $D(X) S DG20NAME=X,(X,DG20NAME)=$$FORMAT^XLFNAME7(.DG20NAME,3,35,,2,,1) K:'$L(X) X,DG20NAME"
^DD(408.13,1.1,1,0)="^.1"
^DD(408.13,1.1,1,1,0)="408.13^AENR11^MUMPS"
^DD(408.13,1.1,1,1,1)="D E40813^DGRTRIG(DA)"
^DD(408.13,1.1,1,1,2)="D E40813^DGRTRIG(DA)"
^DD(408.13,1.1,1,1,3)=" DO NOT DELETE"
^DD(408.13,1.1,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.13,1.1,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.13,1.1,1,1,"%D",2,0)="enrollment."
^DD(408.13,1.1,1,1,"DT")="3050913"
^DD(408.13,1.1,3)="Answer must be 2-35 characters in length."
^DD(408.13,1.1,4)=""
^DD(408.13,1.1,21,0)="^.001^4^4^3050607^^"
^DD(408.13,1.1,21,1,0)="Enter the spouse's maiden name in 'LAST,FIRST MIDDLE SUFFIX' format.  "
^DD(408.13,1.1,21,2,0)="Entry of the LAST name only is permitted and the comma may be omitted.  "
^DD(408.13,1.1,21,3,0)="If the response contains no comma, one will be appended to the value.  "
^DD(408.13,1.1,21,4,0)="Including the comma, the value must be at least 3 characters in length."
^DD(408.13,1.1,23,0)="^.001^8^8^3050607^^"
^DD(408.13,1.1,23,1,0)="This field was added via patch DG*5.3*597, distributed with EAS*1.0*51."
^DD(408.13,1.1,23,2,0)=" "
^DD(408.13,1.1,23,3,0)="The purpose of this field is to store in the INCOME PERSON file"
^DD(408.13,1.1,23,4,0)="the maiden name of the Veteran's spouse as reported on the"
^DD(408.13,1.1,23,5,0)="1010EZ application."
^DD(408.13,1.1,23,6,0)=" "
^DD(408.13,1.1,23,7,0)="However, the field may be used to add the maiden name of any"
^DD(408.13,1.1,23,8,0)="dependent of the Veteran."
^DD(408.13,1.1,"DT")="3050913"
^DD(408.13,1.2,0)="STREET ADDRESS [LINE 1]^FX^^1;2^K:X[""""""""!($A(X)=45) X K:$L(X)>30!($L(X)<3) X"
^DD(408.13,1.2,3)="Answer must be 3-30 characters in length."
^DD(408.13,1.2,4)="D HELPSA1^DGRPEIS3"
^DD(408.13,1.2,"DEL",1,0)="D SDD^DGLOCK2 I '$D(X)"
^DD(408.13,1.2,"DT")="3050224"
^DD(408.13,1.3,0)="STREET ADDRESS [LINE 2]^FX^^1;3^K:X[""""""""!($A(X)=45) X K:$L(X)>30!($L(X)<3) X"
^DD(408.13,1.3,3)="Answer must be 3-30 characters in length."
^DD(408.13,1.3,4)="D HELPSA2^DGRPEIS3"
^DD(408.13,1.3,"DEL",1,0)="D SDD^DGLOCK2 I '$D(X)"
^DD(408.13,1.3,"DT")="3050224"
^DD(408.13,1.4,0)="STREET ADDRESS [LINE 3]^F^^1;4^K:$L(X)>30!($L(X)<3) X"
^DD(408.13,1.4,3)="Answer must be 3-30 characters in length."
^DD(408.13,1.4,4)="D HELPSA3^DGRPEIS3"
^DD(408.13,1.4,"DEL",1,0)="D SDD^DGLOCK2 I '$D(X)"
^DD(408.13,1.4,"DT")="3050224"
^DD(408.13,1.5,0)="CITY^F^^1;5^K:$L(X)>30!($L(X)<3) X"
^DD(408.13,1.5,3)="Answer must be 3-30 characters in length."
^DD(408.13,1.5,4)="D HELPCITY^DGRPEIS3"
^DD(408.13,1.5,"DEL",1,0)="D SDD^DGLOCK2 I '$D(X)"
^DD(408.13,1.5,"DT")="3040416"
^DD(408.13,1.6,0)="STATE^P5'^DIC(5,^1;6^Q"
^DD(408.13,1.6,3)=""
^DD(408.13,1.6,4)="D HELPSTAT^DGRPEIS3"
^DD(408.13,1.6,"DEL",1,0)="D SDD^DGLOCK2 I '$D(X)"
^DD(408.13,1.6,"DT")="3040416"
^DD(408.13,1.7,0)="ZIP^F^^1;7^K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1""-""4N)) X"
^DD(408.13,1.7,3)="Answer must be 5-10 characters in length."
^DD(408.13,1.7,4)="D HELPZIP^DGRPEIS3"
^DD(408.13,1.7,"DT")="3040416"
^DD(408.13,1.8,0)="TELEPHONE NUMBER^FX^^1;8^K:$L(X)>20!($L(X)<4) X"
^DD(408.13,1.8,3)="Answer must be 4-20 characters in length."
^DD(408.13,1.8,4)="D HELPPHON^DGRPEIS3"
^DD(408.13,1.8,23,0)="^^7^7^3050303^"
^DD(408.13,1.8,23,1,0)="May be exactly 10 digits or may be formatted upto 13 characters as:"
^DD(408.13,1.8,23,2,0)=" "
^DD(408.13,1.8,23,3,0)="   (nnn)nnn-nnnn"
^DD(408.13,1.8,23,4,0)="   i.e., (<area_code>)<exchange>-<number>"
^DD(408.13,1.8,23,5,0)="   or"
^DD(408.13,1.8,23,6,0)="   nnn.nnn.nnnn"
^DD(408.13,1.8,23,7,0)="   i.e., <area_code>.<exchange>.<number>"
^DD(408.13,1.8,"DT")="3050111"
^DD(408.13,"B","CITY",1.5)=""
^DD(408.13,"B","DATE OF BIRTH",.03)=""
^DD(408.13,"B","DOB",.03)="1"
^DD(408.13,"B","MAIDEN NAME",1.1)=""
^DD(408.13,"B","NAME",.01)=""
^DD(408.13,"B","PSEUDO SSN REASON",.1)=""
^DD(408.13,"B","SEX",.02)=""
^DD(408.13,"B","SOCIAL SECURITY NUMBER",.09)=""
^DD(408.13,"B","SSN",.09)="1"
^DD(408.13,"B","STATE",1.6)=""
^DD(408.13,"B","STREET ADDRESS [LINE 1]",1.2)=""
^DD(408.13,"B","STREET ADDRESS [LINE 2]",1.3)=""
^DD(408.13,"B","STREET ADDRESS [LINE 3]",1.4)=""
^DD(408.13,"B","TELEPHONE NUMBER",1.8)=""
^DD(408.13,"B","ZIP",1.7)=""
^DD(408.13,"GL",0,1,.01)=""
^DD(408.13,"GL",0,2,.02)=""
^DD(408.13,"GL",0,3,.03)=""
^DD(408.13,"GL",0,9,.09)=""
^DD(408.13,"GL",0,10,.1)=""
^DD(408.13,"GL",1,1,1.1)=""
^DD(408.13,"GL",1,2,1.2)=""
^DD(408.13,"GL",1,3,1.3)=""
^DD(408.13,"GL",1,4,1.4)=""
^DD(408.13,"GL",1,5,1.5)=""
^DD(408.13,"GL",1,6,1.6)=""
^DD(408.13,"GL",1,7,1.7)=""
^DD(408.13,"GL",1,8,1.8)=""
^DD(408.13,"IX",.01)=""
^DD(408.13,"IX",.02)=""
^DD(408.13,"IX",.03)=""
^DD(408.13,"IX",.09)=""
^DD(408.13,"IX",.1)=""
^DD(408.13,"IX",1.1)=""
^DD(408.13,"RQ",.01)=""
^DD(408.13,"RQ",.02)=""
^DD(408.13,"RQ",.03)=""
^DD(408.13,"RQ",.09)=""
^DD(408.13,"RQ",.1)=""
^DD(408.21,0)="FIELD^^104^49"
^DD(408.21,0,"DDA")="N"
^DD(408.21,0,"DIK")="DGMTXX1"
^DD(408.21,0,"DIKOLD")="DGMTXX1"
^DD(408.21,0,"DT")="3010920"
^DD(408.21,0,"ID",.02)="W """""
^DD(408.21,0,"ID","WRITE")="D ID^DGMTDD3"
^DD(408.21,0,"IX","AENR01",408.21,.01)=""
^DD(408.21,0,"IX","AENR08",408.21,.08)=""
^DD(408.21,0,"IX","AENR09",408.21,.09)=""
^DD(408.21,0,"IX","AENR1",408.21,.1)=""
^DD(408.21,0,"IX","AENR101",408.21,1.01)=""
^DD(408.21,0,"IX","AENR102",408.21,1.02)=""
^DD(408.21,0,"IX","AENR103",408.21,1.03)=""
^DD(408.21,0,"IX","AENR11",408.21,.11)=""
^DD(408.21,0,"IX","AENR12",408.21,.12)=""
^DD(408.21,0,"IX","AENR13",408.21,.13)=""
^DD(408.21,0,"IX","AENR14",408.21,.14)=""
^DD(408.21,0,"IX","AENR15",408.21,.15)=""
^DD(408.21,0,"IX","AENR16",408.21,.16)=""
^DD(408.21,0,"IX","AENR17",408.21,.17)=""
^DD(408.21,0,"IX","AENR201",408.21,2.01)=""
^DD(408.21,0,"IX","AENR202",408.21,2.02)=""
^DD(408.21,0,"IX","AENR203",408.21,2.03)=""
^DD(408.21,0,"IX","AENR204",408.21,2.04)=""
^DD(408.21,0,"IX","AENR205",408.21,2.05)=""
^DD(408.21,0,"IX","AGME101",408.21,1.01)=""
^DD(408.21,0,"IX","AI",408.21,.01)=""
^DD(408.21,0,"IX","AI2",408.21,.02)=""
^DD(408.21,0,"IX","AIX14",408.21,.14)=""
^DD(408.21,0,"IX","AIX204",408.21,2.04)=""
^DD(408.21,0,"IX","AM",408.21,31)=""
^DD(408.21,0,"IX","B",408.21,.01)=""
^DD(408.21,0,"IX","C",408.21,.02)=""
^DD(408.21,0,"NM","INDIVIDUAL ANNUAL INCOME")=""
^DD(408.21,0,"PT",408.22,.02)=""
^DD(408.21,0,"VR")="1.0"
^DD(408.21,0,"VRPK")="EAS"
^DD(408.21,.01,0)="YEAR^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(408.21,.01,1,0)="^.1"
^DD(408.21,.01,1,1,0)="408.21^B"
^DD(408.21,.01,1,1,1)="S ^DGMT(408.21,""B"",$E(X,1,30),DA)="""""
^DD(408.21,.01,1,1,2)="K ^DGMT(408.21,""B"",$E(X,1,30),DA)"
^DD(408.21,.01,1,1,"%D",0)="^^1^1^2920326^"
^DD(408.21,.01,1,1,"%D",1,0)="This cross-reference allows look-up by year."
^DD(408.21,.01,1,2,0)="408.21^AI^MUMPS"
^DD(408.21,.01,1,2,1)="S:$P(^DGMT(408.21,DA,0),U,2) ^DGMT(408.21,""AI"",+$P(^(0),U,2),-X,DA)="""""
^DD(408.21,.01,1,2,2)="K ^DGMT(408.21,""AI"",+$P(^DGMT(408.21,DA,0),U,2),-X,DA)"
^DD(408.21,.01,1,2,"%D",0)="^^2^2^2920414^^"
^DD(408.21,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by patient by inverse"
^DD(408.21,.01,1,2,"%D",2,0)="year by internal entry number."
^DD(408.21,.01,1,2,"DT")="2920414"
^DD(408.21,.01,1,3,0)="408.21^AENR01^MUMPS"
^DD(408.21,.01,1,3,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.01,1,3,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.01,1,3,3)=" DO NOT DELETE"
^DD(408.21,.01,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.01,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.01,1,3,"%D",2,0)="enrollment."
^DD(408.21,.01,1,3,"DT")="3050913"
^DD(408.21,.01,3)="Enter in this field the year the income information is being collected for."
^DD(408.21,.01,21,0)="^^2^2^2920324^^"
^DD(408.21,.01,21,1,0)="Enter in this field the year the income information is being collected"
^DD(408.21,.01,21,2,0)="for."
^DD(408.21,.01,"DT")="3050913"
^DD(408.21,.02,0)="PATIENT RELATION^RP408.12'OI^DGPR(408.12,^0;2^Q"
^DD(408.21,.02,1,0)="^.1"
^DD(408.21,.02,1,1,0)="408.21^AI2^MUMPS"
^DD(408.21,.02,1,1,1)="S ^DGMT(408.21,""AI"",X,-$P(^DGMT(408.21,DA,0),U),DA)="""""
^DD(408.21,.02,1,1,2)="K ^DGMT(408.21,""AI"",X,-$P(^DGMT(408.21,DA,0),U),DA)"
^DD(408.21,.02,1,1,"%D",0)="^^2^2^2920326^"
^DD(408.21,.02,1,1,"%D",1,0)="This cross-referencs can be used to sort by patient by inverse"
^DD(408.21,.02,1,1,"%D",2,0)="year by internal entry number."
^DD(408.21,.02,1,1,"DT")="2920121"
^DD(408.21,.02,1,2,0)="408.21^C"
^DD(408.21,.02,1,2,1)="S ^DGMT(408.21,""C"",$E(X,1,30),DA)="""""
^DD(408.21,.02,1,2,2)="K ^DGMT(408.21,""C"",$E(X,1,30),DA)"
^DD(408.21,.02,1,2,"%D",0)="^^1^1^2920326^"
^DD(408.21,.02,1,2,"%D",1,0)="This cross-reference allows look-up by patient relation."
^DD(408.21,.02,1,2,"DT")="2920317"
^DD(408.21,.02,2)="S Y(0)=Y D NAM^DGMTDD3"
^DD(408.21,.02,2.1)="D NAM^DGMTDD3"
^DD(408.21,.02,3)="Enter in this field the patient or relation whose annual income information is being collected."
^DD(408.21,.02,21,0)="^^2^2^2920324^"
^DD(408.21,.02,21,1,0)="Enter in this field the patient or relation whose annual income"
^DD(408.21,.02,21,2,0)="information is being collected."
^DD(408.21,.02,"DT")="2920324"
^DD(408.21,.06,0)="RETIREMENT AND PENSION^NJ10,2X^^0;6^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.06,3)="Type a Dollar amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.06,21,0)="^^4^4^3010906^"
^DD(408.21,.06,21,1,0)="Enter in this field the annual amount of Retirement and Pension"
^DD(408.21,.06,21,2,0)="received during the current calendar year."
^DD(408.21,.06,21,3,0)=" "
^DD(408.21,.06,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.06,"DT")="3010905"
^DD(408.21,.07,0)="VA PENSION^NJ10,2X^^0;7^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.07,3)="Type a Dollar amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.07,21,0)="^^4^4^3010906^"
^DD(408.21,.07,21,1,0)="Enter in this field the annual amount of VA Pension received during"
^DD(408.21,.07,21,2,0)="the current calendar year."
^DD(408.21,.07,21,3,0)=" "
^DD(408.21,.07,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.07,"DT")="3010905"
^DD(408.21,.08,0)="SOCIAL SECURITY (NOT SSI)^NJ10,2X^^0;8^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.08,.1)="ANNUAL SOCIAL SECURITY (NOT SSI)"
^DD(408.21,.08,1,0)="^.1"
^DD(408.21,.08,1,1,0)="408.21^AENR08^MUMPS"
^DD(408.21,.08,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.08,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.08,1,1,3)=" DO NOT DELETE"
^DD(408.21,.08,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.08,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.08,1,1,"%D",2,0)="enrollment."
^DD(408.21,.08,1,1,"DT")="3050913"
^DD(408.21,.08,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.08,4)="D:$G(DGMTYPT)=3 8^EASECDD"
^DD(408.21,.08,21,0)="^.001^4^4^3010921^^^^"
^DD(408.21,.08,21,1,0)="Enter in this field the annual amount of Social Security received"
^DD(408.21,.08,21,2,0)="during the previous calendar year.  Do not include SSI."
^DD(408.21,.08,21,3,0)=" "
^DD(408.21,.08,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.08,23,0)="^.001^2^2^3010921^^^^"
^DD(408.21,.08,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.08,23,2,0)="applications maintain the field."
^DD(408.21,.08,"DT")="3050913"
^DD(408.21,.09,0)="U.S. CIVIL SERVICE^NJ8,2X^^0;9^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.09,.1)="ANNUAL U.S. CIVIL SERVICE"
^DD(408.21,.09,1,0)="^.1"
^DD(408.21,.09,1,1,0)="408.21^AENR09^MUMPS"
^DD(408.21,.09,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.09,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.09,1,1,3)=" DO NOT DELETE"
^DD(408.21,.09,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.09,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.09,1,1,"%D",2,0)="enrollment."
^DD(408.21,.09,1,1,"DT")="3050913"
^DD(408.21,.09,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.09,4)="D:$G(DGMTYPT)=3 9^EASECDD"
^DD(408.21,.09,21,0)="^.001^4^4^3010905^^^"
^DD(408.21,.09,21,1,0)="Enter in this field the annual amount of U.S. Civil Service received"
^DD(408.21,.09,21,2,0)="during the previous calendar year."
^DD(408.21,.09,21,3,0)=" "
^DD(408.21,.09,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.09,23,0)="^.001^2^2^3010905^^"
^DD(408.21,.09,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.09,23,2,0)="applications maintain the field."
^DD(408.21,.09,"DT")="3050913"
^DD(408.21,.1,0)="U.S. RAILROAD RETIREMENT^NJ8,2X^^0;10^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.1,.1)="ANNUAL U.S. RAILROAD RETIREMENT"
^DD(408.21,.1,1,0)="^.1"
^DD(408.21,.1,1,1,0)="408.21^AENR1^MUMPS"
^DD(408.21,.1,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.1,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.1,1,1,3)=" DO NOT DELETE"
^DD(408.21,.1,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.1,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.1,1,1,"%D",2,0)="enrollment."
^DD(408.21,.1,1,1,"DT")="3050913"
^DD(408.21,.1,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.1,4)="D:$G(DGMTYPT)=3 10^EASECDD"
^DD(408.21,.1,21,0)="^.001^4^4^3010905^^^"
^DD(408.21,.1,21,1,0)="Enter in this field the annual amount of U.S. Railroad Retirement"
^DD(408.21,.1,21,2,0)="received during the previous calendar year."
^DD(408.21,.1,21,3,0)=" "
^DD(408.21,.1,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.1,23,0)="^.001^2^2^3010905^^"
^DD(408.21,.1,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.1,23,2,0)="applications maintain the field."
^DD(408.21,.1,"DT")="3050913"
^DD(408.21,.11,0)="MILITARY RETIREMENT^NJ8,2X^^0;11^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.11,.1)="ANNUAL MILITARY RETIREMENT"
^DD(408.21,.11,1,0)="^.1"
^DD(408.21,.11,1,1,0)="408.21^AENR11^MUMPS"
^DD(408.21,.11,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.11,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.11,1,1,3)=" DO NOT DELETE"
^DD(408.21,.11,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.11,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.11,1,1,"%D",2,0)="enrollment."
^DD(408.21,.11,1,1,"DT")="3050913"
^DD(408.21,.11,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.11,4)="D:$G(DGMTYPT)=3 11^EASECDD"
^DD(408.21,.11,21,0)="^.001^4^4^3010905^^^^"
^DD(408.21,.11,21,1,0)="Enter in this field the annual amount of Military Retirement received"
^DD(408.21,.11,21,2,0)="during the previous calendar year."
^DD(408.21,.11,21,3,0)=" "
^DD(408.21,.11,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.11,23,0)="^.001^2^2^3010905^^^^"
^DD(408.21,.11,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.11,23,2,0)="applications maintain the field."
^DD(408.21,.11,"DT")="3050913"
^DD(408.21,.12,0)="UNEMPLOYMENT COMPENSATION^NJ8,2X^^0;12^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.12,.1)="ANNUAL UNEMPLOYMENT COMPENSATION"
^DD(408.21,.12,1,0)="^.1"
^DD(408.21,.12,1,1,0)="408.21^AENR12^MUMPS"
^DD(408.21,.12,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.12,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.12,1,1,3)=" DO NOT DELETE"
^DD(408.21,.12,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.12,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.12,1,1,"%D",2,0)="enrollment."
^DD(408.21,.12,1,1,"DT")="3050913"
^DD(408.21,.12,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.12,4)="D:$G(DGMTYPT)=3 12^EASECDD"
^DD(408.21,.12,21,0)="^.001^4^4^3010905^^^^"
^DD(408.21,.12,21,1,0)="Enter in this field the annual amount of Unemployment Compensation"
^DD(408.21,.12,21,2,0)="received during the previous calendar year."
^DD(408.21,.12,21,3,0)=" "
^DD(408.21,.12,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.12,23,0)="^.001^2^2^3010905^^^"
^DD(408.21,.12,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.12,23,2,0)="applications maintain the field."
^DD(408.21,.12,"DT")="3050913"
^DD(408.21,.13,0)="OTHER RETIREMENT^NJ8,2X^^0;13^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.13,.1)="ANNUAL OTHER RETIREMENT"
^DD(408.21,.13,1,0)="^.1"
^DD(408.21,.13,1,1,0)="408.21^AENR13^MUMPS"
^DD(408.21,.13,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.13,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.13,1,1,3)=" DO NOT DELETE"
^DD(408.21,.13,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.13,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.13,1,1,"%D",2,0)="enrollment."
^DD(408.21,.13,1,1,"DT")="3050913"
^DD(408.21,.13,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.13,4)="D:$G(DGMTYPT)=3 13^EASECDD"
^DD(408.21,.13,21,0)="^.001^5^5^3010905^^^^"
^DD(408.21,.13,21,1,0)="Enter in this field the annual amount of Other Retirement received"
^DD(408.21,.13,21,2,0)="during the previous calendar year.  This includes company, state,"
^DD(408.21,.13,21,3,0)="local, etc."
^DD(408.21,.13,21,4,0)=" "
^DD(408.21,.13,21,5,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.13,23,0)="^.001^2^2^3010905^^"
^DD(408.21,.13,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.13,23,2,0)="applications maintain the field."
^DD(408.21,.13,"DT")="3050913"
^DD(408.21,.14,0)="TOTAL INCOME FROM EMPLOYMENT^NJ9,2X^^0;14^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.14,.1)="ANNUAL TOTAL INCOME FROM EMPLOYMENT"
^DD(408.21,.14,1,0)="^.1"
^DD(408.21,.14,1,1,0)="408.21^AIX14^MUMPS"
^DD(408.21,.14,1,1,1)="D EMP^DGMTDD3"
^DD(408.21,.14,1,1,2)="I $D(^DGMT(408.21,DA,0)),$P(^(0),U,14)="""" D EMP^DGMTDD3"
^DD(408.21,.14,1,1,"%D",0)="^^4^4^2920412^^^^"
^DD(408.21,.14,1,1,"%D",1,0)="This mumps cross-reference works like a ""trigger"" cross-reference."
^DD(408.21,.14,1,1,"%D",2,0)="If the patient has a child with no employment income, or the child's"
^DD(408.21,.14,1,1,"%D",3,0)="employment income minus the income exclusion is not greater than 0 any"
^DD(408.21,.14,1,1,"%D",4,0)="corresponding educational expenses on file for the year are deleted."
^DD(408.21,.14,1,1,"DT")="2920412"
^DD(408.21,.14,1,2,0)="408.21^AENR14^MUMPS"
^DD(408.21,.14,1,2,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.14,1,2,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.14,1,2,3)=" DO NOT DELETE"
^DD(408.21,.14,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.14,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.14,1,2,"%D",2,0)="enrollment."
^DD(408.21,.14,1,2,"DT")="3050913"
^DD(408.21,.14,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.14,4)="D:$G(DGMTYPT)=3 14^EASECDD"
^DD(408.21,.14,21,0)="^.001^5^5^3010905^^^^"
^DD(408.21,.14,21,1,0)="Enter in this field the annual amount of Total Income from Employment"
^DD(408.21,.14,21,2,0)="received during the previous calendar year.  This includes wages,"
^DD(408.21,.14,21,3,0)="salary, earnings and tips."
^DD(408.21,.14,21,4,0)=" "
^DD(408.21,.14,21,5,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.14,23,0)="^.001^2^2^3010905^^^"
^DD(408.21,.14,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.14,23,2,0)="applications maintain this field."
^DD(408.21,.14,"DT")="3050913"
^DD(408.21,.15,0)="INTEREST, DIVIDEND, OR ANNUITY^NJ8,2X^^0;15^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.15,.1)="ANNUAL INTEREST, DIVIDEND OR ANNUITY INCOME"
^DD(408.21,.15,1,0)="^.1"
^DD(408.21,.15,1,1,0)="408.21^AENR15^MUMPS"
^DD(408.21,.15,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.15,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.15,1,1,3)=" DO NOT DELETE"
^DD(408.21,.15,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.15,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.15,1,1,"%D",2,0)="enrollment."
^DD(408.21,.15,1,1,"DT")="3050913"
^DD(408.21,.15,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.15,4)="D:$G(DGMTYPT)=3 15^EASECDD"
^DD(408.21,.15,21,0)="^.001^4^4^3010905^^^^"
^DD(408.21,.15,21,1,0)="Enter in this field the annual amount of Interest, Dividend, or"
^DD(408.21,.15,21,2,0)="Annuity Income received during the previous calendar year."
^DD(408.21,.15,21,3,0)=" "
^DD(408.21,.15,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.15,23,0)="^.001^2^2^3010905^^^"
^DD(408.21,.15,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.15,23,2,0)="applications maintain this field."
^DD(408.21,.15,"DT")="3050913"
^DD(408.21,.16,0)="WORKERS COMP. OR BLACK LUNG^NJ8,2X^^0;16^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.16,.1)="ANNUAL WORKERS COMPENSATION OR BLACK LUNG BENEFITS"
^DD(408.21,.16,1,0)="^.1"
^DD(408.21,.16,1,1,0)="408.21^AENR16^MUMPS"
^DD(408.21,.16,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.16,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.16,1,1,3)=" DO NOT DELETE"
^DD(408.21,.16,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.16,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.16,1,1,"%D",2,0)="enrollment."
^DD(408.21,.16,1,1,"DT")="3050913"
^DD(408.21,.16,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.16,4)="D:$G(DGMTYPT)=3 16^EASECDD"
^DD(408.21,.16,21,0)="^.001^4^4^3010905^^^^"
^DD(408.21,.16,21,1,0)="Enter in this field the annual amount of Workers Compensation or"
^DD(408.21,.16,21,2,0)="Black Lung Benefits received during the previous calendar year."
^DD(408.21,.16,21,3,0)=" "
^DD(408.21,.16,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.16,23,0)="^.001^2^2^3010905^^^^"
^DD(408.21,.16,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.16,23,2,0)="applications maintain the field."
^DD(408.21,.16,"DT")="3050913"
^DD(408.21,.17,0)="ALL OTHER INCOME^NJ9,2X^^0;17^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.17,.1)="ANNUAL ALL OTHER INCOME"
^DD(408.21,.17,1,0)="^.1"
^DD(408.21,.17,1,1,0)="408.21^AENR17^MUMPS"
^DD(408.21,.17,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,.17,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,.17,1,1,3)=" DO NOT DELETE"
^DD(408.21,.17,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,.17,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,.17,1,1,"%D",2,0)="enrollment."
^DD(408.21,.17,1,1,"DT")="3050913"
^DD(408.21,.17,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.17,4)="D:$G(DGMTYPT)=3 17^EASECDD"
^DD(408.21,.17,21,0)="15^.001^15^15^3010905^^"
^DD(408.21,.17,21,1,0)="Enter in this field the annual amount of All Other Income received"
^DD(408.21,.17,21,2,0)="during the previous calendar year."
^DD(408.21,.17,21,3,0)=" "
^DD(408.21,.17,21,4,0)="Business or Farm Income.  Net income from operation of a farm or other"
^DD(408.21,.17,21,5,0)="business is countable.  If a veteran reports this type of income, have"
^DD(408.21,.17,21,6,0)="the veteran complete VA Form 21-4165, Pension Claim Questionaire for"
^DD(408.21,.17,21,7,0)="Farm Income, or VA Form 21-4185, Report of Income from Property or"
^DD(408.21,.17,21,8,0)="Business.  Subtract the veteran's business or farm expenses from"
^DD(408.21,.17,21,9,0)="gross income.  The result should be entered in this field.  If the"
^DD(408.21,.17,21,10,0)="veteran or veteran's spouse or child receives a salary from the business,"
^DD(408.21,.17,21,11,0)="it should be reported in the 'Total Income from Employment' field."
^DD(408.21,.17,21,12,0)="Also, note that depreciation is not a deductible expense for VA"
^DD(408.21,.17,21,13,0)="purposes."
^DD(408.21,.17,21,14,0)=" "
^DD(408.21,.17,21,15,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.17,23,0)="^.001^2^2^3010905^^"
^DD(408.21,.17,23,1,0)="This field is shared by Income Screening and Means Test.  Both"
^DD(408.21,.17,23,2,0)="applications maintain this field."
^DD(408.21,.17,"DT")="3050913"
^DD(408.21,.18,0)="COPIED DATA^S^1:YES;0:NO;^0;18^Q"
^DD(408.21,.18,3)="If YES, this data has been copied using the Income Screen COPY function without editing"
^DD(408.21,.18,5,1,0)="408.21^104^1"
^DD(408.21,.18,21,0)="^^4^4^2930304^^^"
^DD(408.21,.18,21,1,0)="This field is used to track the use of the Income Screen COPY function."
^DD(408.21,.18,21,2,0)="NULL = COPY function has never been used on this record"
^DD(408.21,.18,21,3,0)="YES  = COPY function has been used and no editing has been done"
^DD(408.21,.18,21,4,0)="NO   = COPY function has been used but record was selected for editing"
^DD(408.21,.18,23,0)="^^4^4^2930304^^^"
^DD(408.21,.18,23,1,0)="This field is used to track the use of the Income Screen COPY function."
^DD(408.21,.18,23,2,0)="If the COPY function has NEVER been used for this record this value"
^DD(408.21,.18,23,3,0)="should be null.  The LAST EDITED ON (#104) field has a trigger to"
^DD(408.21,.18,23,4,0)="change a YES value to a NO."
^DD(408.21,.18,"DT")="2930203"
^DD(408.21,.19,0)="SPOUSE VA DISABILITY/COMP^NJ10,2X^^0;19^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.19,3)="Type a Dollar amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.19,21,0)="^^4^4^3010906^"
^DD(408.21,.19,21,1,0)="Enter in this field the annual amount for Spouse VA Disability and"
^DD(408.21,.19,21,2,0)="Compensation received during the current calendar year."
^DD(408.21,.19,21,3,0)=" "
^DD(408.21,.19,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.19,"DT")="3010905"
^DD(408.21,.2,0)="COURT MANDATED^NJ10,2X^^0;20^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,.2,3)="Type a Dollar amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,.2,21,0)="^^5^5^3010906^"
^DD(408.21,.2,21,1,0)="Enter in this field the annual amount of Court Mandated income (such"
^DD(408.21,.2,21,2,0)="as alimony or child support) received during the current calendar"
^DD(408.21,.2,21,3,0)="year."
^DD(408.21,.2,21,4,0)=" "
^DD(408.21,.2,21,5,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,.2,"DT")="3010905"
^DD(408.21,.21,0)="YEARS ESTIMATED TAXABLE INCOME^NJ15,2^^0;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(408.21,.21,.1)="LAST YEAR'S ESTIMATED ""HOUSEHOLD"" TAXABLE INCOME"
^DD(408.21,.21,3)="Type a Dollar Amount between 0 and 999999999999, 2 Decimal Digits"
^DD(408.21,.21,21,0)="^^2^2^2961218^"
^DD(408.21,.21,21,1,0)="Last Year's Estimated ""Household"" Taxable Income which will be used"
^DD(408.21,.21,21,2,0)="to make preliminary prima facie financial eligibility determinations."
^DD(408.21,.21,"DT")="2961205"
^DD(408.21,1.01,0)="ADJUSTED MEDICAL EXPENSES^NJ8,2X^^1;1^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.01,1,0)="^.1"
^DD(408.21,1.01,1,1,0)="408.21^AGME101^MUMPS"
^DD(408.21,1.01,1,1,1)="D AGME101^DGMTSCU4(DA)"
^DD(408.21,1.01,1,1,2)="D AGME101^DGMTSCU4(DA)"
^DD(408.21,1.01,1,1,3)=" DO NOT DELETE"
^DD(408.21,1.01,1,1,"%D",0)="^.101^2^2^3050310^^^"
^DD(408.21,1.01,1,1,"%D",1,0)="Should fire only upon an IVM upload change to this field.  Gross medical "
^DD(408.21,1.01,1,1,"%D",2,0)="expense needs to be back-calculated when IVM changes this field."
^DD(408.21,1.01,1,1,"DT")="3050309"
^DD(408.21,1.01,1,2,0)="408.21^AENR101^MUMPS"
^DD(408.21,1.01,1,2,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,1.01,1,2,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,1.01,1,2,3)="DO NOT DELETE"
^DD(408.21,1.01,1,2,"%D",0)="^^2^2^3050913^"
^DD(408.21,1.01,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,1.01,1,2,"%D",2,0)="enrollment."
^DD(408.21,1.01,1,2,"DT")="3050913"
^DD(408.21,1.01,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.01,4)="D:$G(DGMTYPT)=3 101^EASECDD"
^DD(408.21,1.01,21,0)="^.001^13^13^3050225^^^"
^DD(408.21,1.01,21,1,0)="Enter in this field the total amount of unreimbursed medical expenses"
^DD(408.21,1.01,21,2,0)="paid by the veteran during the previous calendar year.  The expenses"
^DD(408.21,1.01,21,3,0)="can be for the veteran or for members of the veteran's family."
^DD(408.21,1.01,21,4,0)="Reportable medical expenses include amounts paid for the following:"
^DD(408.21,1.01,21,5,0)="fees of physicians, dentists, and other providers of health services;"
^DD(408.21,1.01,21,6,0)="hospital and nursing home fees; medical insurance premiums (including"
^DD(408.21,1.01,21,7,0)="the Medicare premium); drugs and medicines; eyeglasses; any other"
^DD(408.21,1.01,21,8,0)="expenses that are reasonable related to medical care.  The expenses"
^DD(408.21,1.01,21,9,0)="must actually have been paid by the veteran.  Do not list expenses"
^DD(408.21,1.01,21,10,0)="which have not been paid or which have been paid by someone other"
^DD(408.21,1.01,21,11,0)="than the veteran.  Do not list expenses which the veteran has paid if"
^DD(408.21,1.01,21,12,0)="the veteran expects to receive reimbursement from insurance or some"
^DD(408.21,1.01,21,13,0)="other source."
^DD(408.21,1.01,23,0)="^.001^5^5^3050225^^"
^DD(408.21,1.01,23,1,0)="As of patch DG*5.3*624, this field should not be edited directly."
^DD(408.21,1.01,23,2,0)="This field is now derived based upon the value entered in field 1.12 and "
^DD(408.21,1.01,23,3,0)="the number of dependents active for the test.  An IVM upload is the only "
^DD(408.21,1.01,23,4,0)="exception.  When this happens, field 1.12 will be back-calculated based "
^DD(408.21,1.01,23,5,0)="on the value IVM places here."
^DD(408.21,1.01,"DT")="3050913"
^DD(408.21,1.02,0)="FUNERAL AND BURIAL EXPENSES^NJ8,2X^^1;2^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X D:$G(DGMTYPT)'=3 FUN^DGMTDD3:$D(X)"
^DD(408.21,1.02,1,0)="^.1"
^DD(408.21,1.02,1,1,0)="408.21^AENR102^MUMPS"
^DD(408.21,1.02,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,1.02,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,1.02,1,1,3)=" DO NOT DELETE"
^DD(408.21,1.02,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,1.02,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,1.02,1,1,"%D",2,0)="enrollment."
^DD(408.21,1.02,1,1,"DT")="3050913"
^DD(408.21,1.02,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.02,4)="D:$G(DGMTYPT)=3 102^EASECDD"
^DD(408.21,1.02,21,0)="^.001^4^4^3010906^^"
^DD(408.21,1.02,21,1,0)="Enter in this field amounts paid by the veteran during the previous"
^DD(408.21,1.02,21,2,0)="calendar year for funeral or burial expenses of the veteran's"
^DD(408.21,1.02,21,3,0)="spouse or child.  Do not report amounts paid for funeral or"
^DD(408.21,1.02,21,4,0)="burial expenses of other relatives such as parents, siblings, etc."
^DD(408.21,1.02,"DT")="3050913"
^DD(408.21,1.03,0)="EDUCATIONAL EXPENSES^NJ8,2X^^1;3^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.03,1,0)="^.1"
^DD(408.21,1.03,1,1,0)="408.21^AENR103^MUMPS"
^DD(408.21,1.03,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,1.03,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,1.03,1,1,3)=" DO NOT DELETE"
^DD(408.21,1.03,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,1.03,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,1.03,1,1,"%D",2,0)="enrollment."
^DD(408.21,1.03,1,1,"DT")="3050913"
^DD(408.21,1.03,3)=""
^DD(408.21,1.03,4)="D:$G(DGMTYPT)'=3 EDHLP^DGMTDD3 D:$G(DGMTYPT)=3 103^EASECDD"
^DD(408.21,1.03,21,0)="^.001^2^2^3010906^^^^"
^DD(408.21,1.03,21,1,0)="Enter amounts paid by the veteran during the previous calendar year"
^DD(408.21,1.03,21,2,0)="for educational expenses."
^DD(408.21,1.03,"DT")="3050913"
^DD(408.21,1.04,0)="RENT/MORTGAGE^NJ10,2X^^1;4^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.04,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.04,21,0)="^^4^4^3020211^^"
^DD(408.21,1.04,21,1,0)="Enter in this field the annual amount paid for Rent or Mortgage during"
^DD(408.21,1.04,21,2,0)="the current calendar year."
^DD(408.21,1.04,21,3,0)="  "
^DD(408.21,1.04,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.04,"DT")="3020506"
^DD(408.21,1.05,0)="UTILITIES^NJ10,2X^^1;5^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.05,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.05,21,0)="^.001^4^4^3020211^^"
^DD(408.21,1.05,21,1,0)="Enter in this field the annual amount paid for Utilities during the"
^DD(408.21,1.05,21,2,0)="current calendar year."
^DD(408.21,1.05,21,3,0)=" "
^DD(408.21,1.05,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.05,"DT")="3020506"
^DD(408.21,1.06,0)="CAR PAYMENT^NJ10,2X^^1;6^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.06,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.06,21,0)="^.001^5^5^3020211^^^"
^DD(408.21,1.06,21,1,0)="Enter in this field the annual amount paid for Car Payments during the"
^DD(408.21,1.06,21,2,0)="current calendar year.  This amount excludes gas, insurance, and parking"
^DD(408.21,1.06,21,3,0)="fees."
^DD(408.21,1.06,21,4,0)=" "
^DD(408.21,1.06,21,5,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.06,"DT")="3020506"
^DD(408.21,1.07,0)="FOOD^NJ10,2X^^1;7^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.07,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.07,21,0)="^.001^4^4^3020211^^"
^DD(408.21,1.07,21,1,0)="Enter in this field the annual amount paid for Food during the current"
^DD(408.21,1.07,21,2,0)="calendar year."
^DD(408.21,1.07,21,3,0)=" "
^DD(408.21,1.07,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.07,"DT")="3020506"
^DD(408.21,1.08,0)="COURT-ORDERED PAYMENTS^NJ10,2X^^1;8^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.08,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.08,21,0)="^^4^4^3020211^"
^DD(408.21,1.08,21,1,0)="Enter in this field the annual amount paid for Court-Ordered Payments"
^DD(408.21,1.08,21,2,0)="during this current calendar year."
^DD(408.21,1.08,21,3,0)=" "
^DD(408.21,1.08,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.08,"DT")="3020506"
^DD(408.21,1.09,0)="INSURANCE^NJ10,2X^^1;9^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.09,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.09,21,0)="^.001^4^4^3020211^^"
^DD(408.21,1.09,21,1,0)="Enter in this field the annual amount paid for Insurance during the"
^DD(408.21,1.09,21,2,0)="current calendar year.  This amount should exclude life insurance."
^DD(408.21,1.09,21,3,0)=" "
^DD(408.21,1.09,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.09,"DT")="3020506"
^DD(408.21,1.1,0)="TAXES^NJ10,2X^^1;10^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0)!(X?.E1"".""3.N) X"
^DD(408.21,1.1,3)="Type a Dollar amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.1,21,0)="^.001^4^4^3020312^^^^"
^DD(408.21,1.1,21,1,0)="Enter in this field the annual amount paid for Taxes during the current"
^DD(408.21,1.1,21,2,0)="calendar year.  This includes income tax, property and personal tax."
^DD(408.21,1.1,21,3,0)=" "
^DD(408.21,1.1,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.1,"DT")="3020506"
^DD(408.21,1.11,0)="TAXES (PROPERTY,PERSONAL)^NJ10,2X^^1;11^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 W """"  """",X"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.11,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.11,21,0)="^.001^4^4^3020211^^"
^DD(408.21,1.11,21,1,0)="Enter in this field the total amount of Taxes (personal, property)"
^DD(408.21,1.11,21,2,0)="paid during the current calendar year."
^DD(408.21,1.11,21,3,0)=" "
^DD(408.21,1.11,21,4,0)="A monthly amount can be entered with an '*' after it."
^DD(408.21,1.11,"DT")="3020211"
^DD(408.21,1.12,0)="GROSS MEDICAL EXPENSES^NJ10,2X^^1;12^S:X[""$"" X=$P(X,""$"",2) X:X[""*"" ""S X=X*12 D EN^DDIOL(""""  """"_X,"""""""",""""?0"""")"" K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,1.12,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,1.12,4)=""
^DD(408.21,1.12,21,0)="^^17^17^3050301^"
^DD(408.21,1.12,21,1,0)="Enter the total amount of unreimbursed medical expenses paid by the"
^DD(408.21,1.12,21,2,0)="veteran during the previous calendar year.  The expenses can be for the"
^DD(408.21,1.12,21,3,0)="veteran or for persons that the veteran has a legal or moral obligation"
^DD(408.21,1.12,21,4,0)="to support.  The expenses must actually have been paid by the veteran.  "
^DD(408.21,1.12,21,5,0)="Reportable medical expenses include amounts paid for the following:"
^DD(408.21,1.12,21,6,0)="fees of physicians, dentists, and other providers of health services; "
^DD(408.21,1.12,21,7,0)="hospital and nursing home fees; medical insurance premiums (including"
^DD(408.21,1.12,21,8,0)="the Medicare premium); drugs and medicines; eyeglasses; any other"
^DD(408.21,1.12,21,9,0)="expenses that are reasonable related to medical care.  Do not list"
^DD(408.21,1.12,21,10,0)="expenses which the veteran has paid if the veteran expects to receive"
^DD(408.21,1.12,21,11,0)="reimbursement from insurance or some other source."
^DD(408.21,1.12,21,12,0)=" "
^DD(408.21,1.12,21,13,0)="By law, not all of the unreimbursed medical expenses paid by the veteran"
^DD(408.21,1.12,21,14,0)="during the previous calendar year may be deducted from the total annual "
^DD(408.21,1.12,21,15,0)="income.  The total amount of the unreimbursed medical expenses entered"
^DD(408.21,1.12,21,16,0)="in this field will be automatically adjusted based upon the veteran's "
^DD(408.21,1.12,21,17,0)="maximum annual pension amount and number of dependents."
^DD(408.21,1.12,23,0)="^.001^4^4^3050301^^"
^DD(408.21,1.12,23,1,0)="Enter the total amount of unreimbursed medical expenses"
^DD(408.21,1.12,23,2,0)="paid by the veteran during the previous calendar year."
^DD(408.21,1.12,23,3,0)="The expenses can be for the veteran or for persons that"
^DD(408.21,1.12,23,4,0)="the veteran has a legal or moral obligation to support."
^DD(408.21,1.12,"DT")="3050222"
^DD(408.21,2.01,0)="CASH, AMOUNTS IN BANK ACCOUNTS^NJ9,2X^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)"
^DD(408.21,2.01,.1)="CASH, AMOUNTS IN BANK ACCOUNTS (INCLUDE IRA'S)"
^DD(408.21,2.01,1,0)="^.1"
^DD(408.21,2.01,1,1,0)="408.21^AENR201^MUMPS"
^DD(408.21,2.01,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.01,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.01,1,1,3)=" DO NOT DELETE"
^DD(408.21,2.01,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,2.01,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,2.01,1,1,"%D",2,0)="enrollment."
^DD(408.21,2.01,1,1,"DT")="3050913"
^DD(408.21,2.01,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.01,4)="D:$G(DGMTYPT)=3 201^EASECDD"
^DD(408.21,2.01,21,0)="^.001^3^3^3010920^^"
^DD(408.21,2.01,21,1,0)="Enter in this field cash and amounts in bank accounts.  This includes"
^DD(408.21,2.01,21,2,0)="checking accounts, savings accounts, Individual Retirement Accounts,"
^DD(408.21,2.01,21,3,0)="certificate of deposit, etc."
^DD(408.21,2.01,"DT")="3050913"
^DD(408.21,2.02,0)="STOCKS AND BONDS^NJ9,2X^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)"
^DD(408.21,2.02,1,0)="^.1"
^DD(408.21,2.02,1,1,0)="408.21^AENR202^MUMPS"
^DD(408.21,2.02,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.02,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.02,1,1,3)=" DO NOT DELETE"
^DD(408.21,2.02,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,2.02,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,2.02,1,1,"%D",2,0)="enrollment."
^DD(408.21,2.02,1,1,"DT")="3050913"
^DD(408.21,2.02,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.02,4)="D:$G(DGMTYPT)=3 202^EASECDD"
^DD(408.21,2.02,21,0)="^.001^3^3^3010920^^^^"
^DD(408.21,2.02,21,1,0)="Enter in this field stocks, bonds, and similar assets.  The reportable"
^DD(408.21,2.02,21,2,0)="value of the stock or bond is the amount of money that the asset"
^DD(408.21,2.02,21,3,0)="would bring if it were cashed out today."
^DD(408.21,2.02,"DT")="3050913"
^DD(408.21,2.03,0)="REAL PROPERTY^NJ9,2X^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)"
^DD(408.21,2.03,.1)="REAL PROPERTY (NOT INCLUDING PRIMARY RESIDENCE)"
^DD(408.21,2.03,1,0)="^.1"
^DD(408.21,2.03,1,1,0)="408.21^AENR203^MUMPS"
^DD(408.21,2.03,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.03,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.03,1,1,3)=" DO NOT DELETE"
^DD(408.21,2.03,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,2.03,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,2.03,1,1,"%D",2,0)="enrollment."
^DD(408.21,2.03,1,1,"DT")="3050913"
^DD(408.21,2.03,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.03,21,0)="^^11^11^2920723^^^^"
^DD(408.21,2.03,21,1,0)="Enter in this field the current value, less mortgages or other"
^DD(408.21,2.03,21,2,0)="encumbrances, of any real property (land and buildings) owned."
^DD(408.21,2.03,21,3,0)="Do not report the value of the veteran's primary residence."
^DD(408.21,2.03,21,4,0)="If the veteran's primary residence is a multifamily dwelling, report"
^DD(408.21,2.03,21,5,0)="the value of the building less the value of the unit occupied by"
^DD(408.21,2.03,21,6,0)="the veteran.  If the veteran lives on a farm, report the value"
^DD(408.21,2.03,21,7,0)="of the farm less the value of the house occupied by the veteran"
^DD(408.21,2.03,21,8,0)="and a reasonable surrounding area.  NOTE:  Since the veteran's primary"
^DD(408.21,2.03,21,9,0)="residence is not reported as an asset, the mortgage may NOT be reported"
^DD(408.21,2.03,21,10,0)="as a debt.  In addition, the value of any other property owned by the"
^DD(408.21,2.03,21,11,0)="veteran or spouse will be calculated in the same manner."
^DD(408.21,2.03,"DT")="3050913"
^DD(408.21,2.04,0)="OTHER PROPERTY OR ASSETS^NJ9,2X^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X D NET^DGMTDD3:$D(X)"
^DD(408.21,2.04,.1)="OTHER PROPERTY NOT SHOWN ELSEWHERE"
^DD(408.21,2.04,1,0)="^.1"
^DD(408.21,2.04,1,1,0)="408.21^AIX204^MUMPS"
^DD(408.21,2.04,1,1,1)="I $D(^DGMT(408.21,DA,2)),$P(^(2),U,4)=0 D OTH^DGMTDD3"
^DD(408.21,2.04,1,1,2)="I $D(^DGMT(408.21,DA,2)),$P(^(2),U,4)="""" D OTH^DGMTDD3"
^DD(408.21,2.04,1,1,"DT")="2920325"
^DD(408.21,2.04,1,2,0)="408.21^AENR204^MUMPS"
^DD(408.21,2.04,1,2,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.04,1,2,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.04,1,2,3)=" DO NOT DELETE"
^DD(408.21,2.04,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,2.04,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,2.04,1,2,"%D",2,0)="enrollment."
^DD(408.21,2.04,1,2,"DT")="3050913"
^DD(408.21,2.04,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.04,21,0)="^^4^4^2920723^^"
^DD(408.21,2.04,21,1,0)="Enter in this field the current market value of other property owned."
^DD(408.21,2.04,21,2,0)="However, do not report the value of household effects or vehicles"
^DD(408.21,2.04,21,3,0)="regularly used for family transportation.  Other property may include"
^DD(408.21,2.04,21,4,0)="an art or stamp collection."
^DD(408.21,2.04,"DT")="3050913"
^DD(408.21,2.05,0)="DEBTS^NJ9,2X^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X D DEB^DGMTDD3:$D(X)"
^DD(408.21,2.05,1,0)="^.1"
^DD(408.21,2.05,1,1,0)="408.21^AENR205^MUMPS"
^DD(408.21,2.05,1,1,1)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.05,1,1,2)="D E40821^DGRTRIG(DA)"
^DD(408.21,2.05,1,1,3)=" DO NOT DELETE"
^DD(408.21,2.05,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.21,2.05,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.21,2.05,1,1,"%D",2,0)="enrollment."
^DD(408.21,2.05,1,1,"DT")="3050913"
^DD(408.21,2.05,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.05,21,0)="^^3^3^2920325^^^"
^DD(408.21,2.05,21,1,0)="Enter in this field debts that will reduce the value of the property"
^DD(408.21,2.05,21,2,0)="listed in 'OTHER PROPERTY OR ASSETS'.  It cannot exceed the 'OTHER"
^DD(408.21,2.05,21,3,0)="PROPERTY OR ASSETS'.  DO NOT ENTER ANY CREDIT CARD DEBTS."
^DD(408.21,2.05,"DT")="3050913"
^DD(408.21,2.06,0)="RESIDENCE^NJ10,2^^2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0)!(X?.E1"".""3.N) X"
^DD(408.21,2.06,3)="Type a Dollar amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.06,21,0)="^^4^4^3010809^"
^DD(408.21,2.06,21,1,0)="Enter in this field the current market value, minus any outstanding"
^DD(408.21,2.06,21,2,0)="mortgage or lien, of the veteran's primary residence.  Do not enter an"
^DD(408.21,2.06,21,3,0)="amount in this field if the veteran is receiving only non-institutional"
^DD(408.21,2.06,21,4,0)="services, or there is a spouse or dependent residing in the community."
^DD(408.21,2.06,"DT")="3010809"
^DD(408.21,2.07,0)="OTHER RESIDENCES/LAND/FARM^NJ10,2^^2;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,2.07,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.07,21,0)="^^3^3^3030828^"
^DD(408.21,2.07,21,1,0)="Enter in this field the current market value, minus any outstanding"
^DD(408.21,2.07,21,2,0)="mortgages or liens, of the veteran's other residence(s), land, farm or"
^DD(408.21,2.07,21,3,0)="ranch.  Exclude the value of burial plots."
^DD(408.21,2.07,"DT")="3030828"
^DD(408.21,2.08,0)="VEHICLE(S)^NJ10,2^^2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,2.08,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.08,21,0)="^.001^4^4^3030828^^^"
^DD(408.21,2.08,21,1,0)="Enter in this field the current value, minus any outstanding liens, of"
^DD(408.21,2.08,21,2,0)="any vehicle(s) owned by the veteran.  Exclude the value of one vehicle"
^DD(408.21,2.08,21,3,0)="if the veteran is receiving only non-institutional care, or there is a"
^DD(408.21,2.08,21,4,0)="spouse or dependent residing in the community."
^DD(408.21,2.08,"DT")="3010920"
^DD(408.21,2.09,0)="OTHER LIQUID ASSETS^NJ10,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,2.09,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,2.09,21,0)="^^6^6^3030828^"
^DD(408.21,2.09,21,1,0)="Enter in this field the current value of such items as stamp or coin"
^DD(408.21,2.09,21,2,0)="collections, art work, and collectibles minus any amount owed.  Exclude"
^DD(408.21,2.09,21,3,0)="from this amount the value of household furniture and other household"
^DD(408.21,2.09,21,4,0)="goods, clothing, jewelry, and personal items if the veteran is receiving"
^DD(408.21,2.09,21,5,0)="only non-institutional care, or there is a spouse or dependent residing"
^DD(408.21,2.09,21,6,0)="in the community."
^DD(408.21,2.09,"DT")="3020312"
^DD(408.21,31,0)="*ANNUAL MEANS TEST^P408.31'^DGMT(408.31,^MT;1^Q"
^DD(408.21,31,.1)="ANNUAL MEANS TEST"
^DD(408.21,31,1,0)="^.1"
^DD(408.21,31,1,1,0)="408.21^AM"
^DD(408.21,31,1,1,1)="S ^DGMT(408.21,""AM"",$E(X,1,30),DA)="""""
^DD(408.21,31,1,1,2)="K ^DGMT(408.21,""AM"",$E(X,1,30),DA)"
^DD(408.21,31,1,1,"DT")="2920413"
^DD(408.21,31,3)="This field contains the means test associated with this income."
^DD(408.21,31,9)="^"
^DD(408.21,31,21,0)="^.001^4^4^3011011^^^^"
^DD(408.21,31,21,1,0)="This field is filled in by the system.  It contains the financial test"
^DD(408.21,31,21,2,0)="associated with this individual annual income.  It is not required;"
^DD(408.21,31,21,3,0)="since all income records will not necessarily be associated with"
^DD(408.21,31,21,4,0)="a financial test."
^DD(408.21,31,"DT")="2941219"
^DD(408.21,91,0)="TOTAL SPOUSE INCOME^NJ10,2X^^TOT;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(408.21,91,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(408.21,91,9)="^"
^DD(408.21,91,21,0)="^^2^2^2920324^"
^DD(408.21,91,21,1,0)="This field contains the total income for a spouse prior to"
^DD(408.21,91,21,2,0)="moving to the new income structure in MAS v5.2."
^DD(408.21,91,"DT")="2941130"
^DD(408.21,92,0)="TOTAL SPOUSE NET WORTH^NJ10,2X^^TOT;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(408.21,92,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(408.21,92,9)="^"
^DD(408.21,92,21,0)="^^2^2^2920324^^"
^DD(408.21,92,21,1,0)="This field contains the total net worth for a spouse prior to"
^DD(408.21,92,21,2,0)="moving to the new income structure in MAS v5.2."
^DD(408.21,92,"DT")="2941130"
^DD(408.21,93,0)="TOTAL CHILDREN INCOME^NJ10,2X^^TOT;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(408.21,93,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(408.21,93,9)="^"
^DD(408.21,93,21,0)="^^2^2^2920324^^"
^DD(408.21,93,21,1,0)="This field contains the total income for children prior to"
^DD(408.21,93,21,2,0)="moving to the new income structure in MAS v5.2."
^DD(408.21,93,"DT")="2941130"
^DD(408.21,94,0)="TOTAL CHILDREN NET WORTH^NJ10,2X^^TOT;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(408.21,94,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(408.21,94,9)="^"
^DD(408.21,94,21,0)="^^5^5^2920324^^"
^DD(408.21,94,21,1,0)="This field contains the total net worth for children prior to"
^DD(408.21,94,21,2,0)="moving to the new income structure in MAS v5.2."
^DD(408.21,94,21,3,0)=" "
^DD(408.21,94,21,4,0)="With the new version net worth will no longer be collected for"
^DD(408.21,94,21,5,0)="children."
^DD(408.21,94,"DT")="2941130"
^DD(408.21,95,0)="TOTAL VETERAN STOCKS, BONDS^NJ9,2X^^TOT;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(408.21,95,.1)="TOTAL VETERAN STOCKS, BONDS, BANK DEP."
^DD(408.21,95,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(408.21,95,9)="^"
^DD(408.21,95,21,0)="^^5^5^2920324^"
^DD(408.21,95,21,1,0)="This field contains the veteran's stocks and bonds prior to"
^DD(408.21,95,21,2,0)="moving to the new income structure in MAS v5.2."
^DD(408.21,95,21,3,0)=" "
^DD(408.21,95,21,4,0)="With the new version cash has been combined with the stocks"
^DD(408.21,95,21,5,0)="and bonds."
^DD(408.21,95,"DT")="2941130"
^DD(408.21,101,0)="ENTERED BY^RP200'^VA(200,^USR;1^Q"
^DD(408.21,101,3)="This field contains the user who entered the income information."
^DD(408.21,101,21,0)="^^1^1^2920324^^"
^DD(408.21,101,21,1,0)="This field contains the user who entered the income information."
^DD(408.21,101,"DT")="2920110"
^DD(408.21,102,0)="ENTERED ON^RD^^USR;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.21,102,3)="This field contains the date/time the income information was entered."
^DD(408.21,102,21,0)="^^1^1^2920324^"
^DD(408.21,102,21,1,0)="This field contains the date/time the income information was entered."
^DD(408.21,102,"DT")="2920110"
^DD(408.21,103,0)="LAST EDITED BY^RP200'^VA(200,^USR;3^Q"
^DD(408.21,103,1,0)="^.1^^0"
^DD(408.21,103,3)="This field contains the last user to edit the income information."
^DD(408.21,103,21,0)="^^1^1^2920324^^"
^DD(408.21,103,21,1,0)="This field contains the last user to edit the income information."
^DD(408.21,103,"DT")="2930203"
^DD(408.21,104,0)="LAST EDITED ON^RD^^USR;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.21,104,1,0)="^.1"
^DD(408.21,104,1,1,0)="^^TRIGGER^408.21^.18"
^DD(408.21,104,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I $P($G(^DGMT(408.21,DA,0)),U,18) I X S X=DIV S Y(1)=$S($D(^DGMT(408.21,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(408.21,104,1,1,1.4)"
^DD(408.21,104,1,1,1.4)="S DIH=$S($D(^DGMT(408.21,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,18)=DIV,DIH=408.21,DIG=.18 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.21,104,1,1,2)="Q"
^DD(408.21,104,1,1,"%D",0)="^^2^2^2930208^"
^DD(408.21,104,1,1,"%D",1,0)="If the 'COPIED DATA' (#.18) field is 'YES', when the 'LAST EDITED"
^DD(408.21,104,1,1,"%D",2,0)="ON' (#104) field is modified, the value of 'COPIED DATA' is set to 'NO'."
^DD(408.21,104,1,1,"CREATE CONDITION")="I $P($G(^DGMT(408.21,DA,0)),U,18)"
^DD(408.21,104,1,1,"CREATE VALUE")="S X=0"
^DD(408.21,104,1,1,"DELETE VALUE")="NO EFFECT"
^DD(408.21,104,1,1,"DT")="2930208"
^DD(408.21,104,1,1,"FIELD")="#.18"
^DD(408.21,104,3)="This field contains the last date/time the income information was edited."
^DD(408.21,104,21,0)="^^1^1^2920324^"
^DD(408.21,104,21,1,0)="This field contains the last date/time the income information was edited."
^DD(408.21,104,"DT")="2930208"
^DD(408.21,"B","*ANNUAL MEANS TEST",31)=""
^DD(408.21,"B","ADJUSTED MEDICAL EXPENSES",1.01)=""
^DD(408.21,"B","ALL OTHER INCOME",.17)=""
^DD(408.21,"B","ANNUAL ALL OTHER INCOME",.17)="1"
^DD(408.21,"B","ANNUAL MEANS TEST",31)="1"
^DD(408.21,"B","ANNUAL MILITARY RETIREMENT",.11)="1"
^DD(408.21,"B","ANNUAL OTHER RETIREMENT",.13)="1"
^DD(408.21,"B","ANNUAL U.S. CIVIL SERVICE",.09)="1"
^DD(408.21,"B","CAR PAYMENT",1.06)=""
^DD(408.21,"B","CASH, AMOUNTS IN BANK ACCOUNTS",2.01)=""
^DD(408.21,"B","COPIED DATA",.18)=""
^DD(408.21,"B","COURT MANDATED",.2)=""
^DD(408.21,"B","COURT-ORDERED PAYMENTS",1.08)=""
^DD(408.21,"B","DEBTS",2.05)=""
^DD(408.21,"B","EDUCATIONAL EXPENSES",1.03)=""
^DD(408.21,"B","ENTERED BY",101)=""
^DD(408.21,"B","ENTERED ON",102)=""
^DD(408.21,"B","FOOD",1.07)=""
^DD(408.21,"B","FUNERAL AND BURIAL EXPENSES",1.02)=""
^DD(408.21,"B","GROSS MEDICAL EXPENSES",1.12)=""
^DD(408.21,"B","INSURANCE",1.09)=""
^DD(408.21,"B","INTEREST, DIVIDEND, OR ANNUITY",.15)=""
^DD(408.21,"B","LAST EDITED BY",103)=""
^DD(408.21,"B","LAST EDITED ON",104)=""
^DD(408.21,"B","MILITARY RETIREMENT",.11)=""
^DD(408.21,"B","OTHER LIQUID ASSETS",2.09)=""
^DD(408.21,"B","OTHER PROPERTY OR ASSETS",2.04)=""
^DD(408.21,"B","OTHER RESIDENCES/LAND/FARM",2.07)=""
^DD(408.21,"B","OTHER RETIREMENT",.13)=""
^DD(408.21,"B","PATIENT RELATION",.02)=""
^DD(408.21,"B","REAL PROPERTY",2.03)=""
^DD(408.21,"B","RENT/MORTGAGE",1.04)=""
^DD(408.21,"B","RESIDENCE",2.06)=""
^DD(408.21,"B","RETIREMENT AND PENSION",.06)=""
^DD(408.21,"B","SOCIAL SECURITY (NOT SSI)",.08)=""
^DD(408.21,"B","SPOUSE VA DISABILITY/COMP",.19)=""
^DD(408.21,"B","STOCKS AND BONDS",2.02)=""
^DD(408.21,"B","TAXES",1.1)=""
^DD(408.21,"B","TAXES (PROPERTY,PERSONAL)",1.11)=""
^DD(408.21,"B","TOTAL CHILDREN INCOME",93)=""
^DD(408.21,"B","TOTAL CHILDREN NET WORTH",94)=""
^DD(408.21,"B","TOTAL INCOME FROM EMPLOYMENT",.14)=""
^DD(408.21,"B","TOTAL SPOUSE INCOME",91)=""
^DD(408.21,"B","TOTAL SPOUSE NET WORTH",92)=""
^DD(408.21,"B","TOTAL VETERAN STOCKS, BONDS",95)=""
^DD(408.21,"B","U.S. CIVIL SERVICE",.09)=""
^DD(408.21,"B","U.S. RAILROAD RETIREMENT",.1)=""
^DD(408.21,"B","UNEMPLOYMENT COMPENSATION",.12)=""
^DD(408.21,"B","UTILITIES",1.05)=""
^DD(408.21,"B","VA PENSION",.07)=""
^DD(408.21,"B","VEHICLE(S)",2.08)=""
^DD(408.21,"B","WORKERS COMP. OR BLACK LUNG",.16)=""
^DD(408.21,"B","YEAR",.01)=""
^DD(408.21,"B","YEARS ESTIMATED TAXABLE INCOME",.21)=""
^DD(408.21,"GL",0,1,.01)=""
^DD(408.21,"GL",0,2,.02)=""
^DD(408.21,"GL",0,6,.06)=""
^DD(408.21,"GL",0,7,.07)=""
^DD(408.21,"GL",0,8,.08)=""
^DD(408.21,"GL",0,9,.09)=""
^DD(408.21,"GL",0,10,.1)=""
^DD(408.21,"GL",0,11,.11)=""
^DD(408.21,"GL",0,12,.12)=""
^DD(408.21,"GL",0,13,.13)=""
^DD(408.21,"GL",0,14,.14)=""
^DD(408.21,"GL",0,15,.15)=""
^DD(408.21,"GL",0,16,.16)=""
^DD(408.21,"GL",0,17,.17)=""
^DD(408.21,"GL",0,18,.18)=""
^DD(408.21,"GL",0,19,.19)=""
^DD(408.21,"GL",0,20,.2)=""
^DD(408.21,"GL",0,21,.21)=""
^DD(408.21,"GL",1,1,1.01)=""
^DD(408.21,"GL",1,2,1.02)=""
^DD(408.21,"GL",1,3,1.03)=""
^DD(408.21,"GL",1,4,1.04)=""
^DD(408.21,"GL",1,5,1.05)=""
^DD(408.21,"GL",1,6,1.06)=""
^DD(408.21,"GL",1,7,1.07)=""
^DD(408.21,"GL",1,8,1.08)=""
^DD(408.21,"GL",1,9,1.09)=""
^DD(408.21,"GL",1,10,1.1)=""
^DD(408.21,"GL",1,11,1.11)=""
^DD(408.21,"GL",1,12,1.12)=""
^DD(408.21,"GL",2,1,2.01)=""
^DD(408.21,"GL",2,2,2.02)=""
^DD(408.21,"GL",2,3,2.03)=""
^DD(408.21,"GL",2,4,2.04)=""
^DD(408.21,"GL",2,5,2.05)=""
^DD(408.21,"GL",2,6,2.06)=""
^DD(408.21,"GL",2,7,2.07)=""
^DD(408.21,"GL",2,8,2.08)=""
^DD(408.21,"GL",2,9,2.09)=""
^DD(408.21,"GL","MT",1,31)=""
^DD(408.21,"GL","TOT",1,91)=""
^DD(408.21,"GL","TOT",2,92)=""
^DD(408.21,"GL","TOT",3,93)=""
^DD(408.21,"GL","TOT",4,94)=""
^DD(408.21,"GL","TOT",5,95)=""
^DD(408.21,"GL","USR",1,101)=""
^DD(408.21,"GL","USR",2,102)=""
^DD(408.21,"GL","USR",3,103)=""
^DD(408.21,"GL","USR",4,104)=""
^DD(408.21,"IX",.01)=""
^DD(408.21,"IX",.02)=""
^DD(408.21,"IX",.08)=""
^DD(408.21,"IX",.09)=""
^DD(408.21,"IX",.1)=""
^DD(408.21,"IX",.11)=""
^DD(408.21,"IX",.12)=""
^DD(408.21,"IX",.13)=""
^DD(408.21,"IX",.14)=""
^DD(408.21,"IX",.15)=""
^DD(408.21,"IX",.16)=""
^DD(408.21,"IX",.17)=""
^DD(408.21,"IX",1.01)=""
^DD(408.21,"IX",1.02)=""
^DD(408.21,"IX",1.03)=""
^DD(408.21,"IX",2.01)=""
^DD(408.21,"IX",2.02)=""
^DD(408.21,"IX",2.03)=""
^DD(408.21,"IX",2.04)=""
^DD(408.21,"IX",2.05)=""
^DD(408.21,"IX",31)=""
^DD(408.21,"IX",104)=""
^DD(408.21,"RQ",.01)=""
^DD(408.21,"RQ",.02)=""
^DD(408.21,"RQ",101)=""
^DD(408.21,"RQ",102)=""
^DD(408.21,"RQ",103)=""
^DD(408.21,"RQ",104)=""
^DD(408.22,0)="FIELD^^31^18"
^DD(408.22,0,"DDA")="N"
^DD(408.22,0,"DIK")="DGMTXX2"
^DD(408.22,0,"DIKOLD")="DGMTXX2"
^DD(408.22,0,"DT")="2941115"
^DD(408.22,0,"ID",.02)="W """""
^DD(408.22,0,"ID","WRITE")="D ID^DGMTDD2"
^DD(408.22,0,"IX","AENR05",408.22,.05)=""
^DD(408.22,0,"IX","AENR06",408.22,.06)=""
^DD(408.22,0,"IX","AENR07",408.22,.07)=""
^DD(408.22,0,"IX","AENR08",408.22,.08)=""
^DD(408.22,0,"IX","AENR09",408.22,.09)=""
^DD(408.22,0,"IX","AENR1",408.22,.1)=""
^DD(408.22,0,"IX","AENR11",408.22,.11)=""
^DD(408.22,0,"IX","AENR12",408.22,.12)=""
^DD(408.22,0,"IX","AENR13",408.22,.13)=""
^DD(408.22,0,"IX","AENR18",408.22,.18)=""
^DD(408.22,0,"IX","AIND",408.22,.02)=""
^DD(408.22,0,"IX","AIX11",408.22,.11)=""
^DD(408.22,0,"IX","AIX12",408.22,.12)=""
^DD(408.22,0,"IX","AIX5",408.22,.05)=""
^DD(408.22,0,"IX","AIX7",408.22,.07)=""
^DD(408.22,0,"IX","AIX8",408.22,.08)=""
^DD(408.22,0,"IX","AMT",408.22,31)=""
^DD(408.22,0,"IX","AMT1",408.22,.01)=""
^DD(408.22,0,"IX","AMT2",408.22,.02)=""
^DD(408.22,0,"IX","B",408.22,.01)=""
^DD(408.22,0,"NM","INCOME RELATION")=""
^DD(408.22,0,"VR")="5.3"
^DD(408.22,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(408.22,.01,1,0)="^.1"
^DD(408.22,.01,1,1,0)="408.22^B"
^DD(408.22,.01,1,1,1)="S ^DGMT(408.22,""B"",$E(X,1,30),DA)="""""
^DD(408.22,.01,1,1,2)="K ^DGMT(408.22,""B"",$E(X,1,30),DA)"
^DD(408.22,.01,1,1,"%D",0)="^^1^1^2920326^"
^DD(408.22,.01,1,1,"%D",1,0)="This cross-reference allows look-up by patient."
^DD(408.22,.01,1,2,0)="408.22^AMT1^MUMPS"
^DD(408.22,.01,1,2,1)="S:$P(^DGMT(408.22,DA,0),U,2)&($P($G(^DGMT(408.22,DA,""MT"")),U)) ^DGMT(408.22,""AMT"",$P(^DGMT(408.22,DA,""MT""),U),X,$P(^DGMT(408.22,DA,0),U,2),DA)="""""
^DD(408.22,.01,1,2,2)="K ^DGMT(408.22,""AMT"",+$P($G(^DGMT(408.22,DA,""MT"")),U),X,+$P(^DGMT(408.22,DA,0),U,2),DA)"
^DD(408.22,.01,1,2,"%D",0)="^^2^2^2980805^^^^"
^DD(408.22,.01,1,2,"%D",1,0)="This cross reference is for the means test. It is indexed by means test,"
^DD(408.22,.01,1,2,"%D",2,0)="patient, individual annual income pointer, IFN."
^DD(408.22,.01,1,2,"DT")="2980805"
^DD(408.22,.01,3)="Enter in this field the patient associated with this income relation."
^DD(408.22,.01,21,0)="^^1^1^2920323^"
^DD(408.22,.01,21,1,0)="Enter in this field the patient associated with this income relation."
^DD(408.22,.01,"DT")="2980805"
^DD(408.22,.02,0)="INDIVIDUAL ANNUAL INCOME^RP408.21'IO^DGMT(408.21,^0;2^Q"
^DD(408.22,.02,1,0)="^.1"
^DD(408.22,.02,1,1,0)="408.22^AIND"
^DD(408.22,.02,1,1,1)="S ^DGMT(408.22,""AIND"",$E(X,1,30),DA)="""""
^DD(408.22,.02,1,1,2)="K ^DGMT(408.22,""AIND"",$E(X,1,30),DA)"
^DD(408.22,.02,1,1,"%D",0)="^^2^2^2920326^"
^DD(408.22,.02,1,1,"%D",1,0)="This cross-reference can be used to sort by individual annual"
^DD(408.22,.02,1,1,"%D",2,0)="income by internal entry number."
^DD(408.22,.02,1,1,"DT")="2920128"
^DD(408.22,.02,1,2,0)="408.22^AMT2^MUMPS"
^DD(408.22,.02,1,2,1)="S:$P($G(^DGMT(408.22,DA,""MT"")),U) ^DGMT(408.22,""AMT"",$P(^DGMT(408.22,DA,""MT""),U),+$P(^DGMT(408.22,DA,0),U),X,DA)="""""
^DD(408.22,.02,1,2,2)="K ^DGMT(408.22,""AMT"",+$P($G(^DGMT(408.22,DA,""MT"")),U),+$P(^DGMT(408.22,DA,0),U),X,DA)"
^DD(408.22,.02,1,2,"%D",0)="^^2^2^2980805^^^^"
^DD(408.22,.02,1,2,"%D",1,0)="This cross reference is for the means test. It is indexed by means test,"
^DD(408.22,.02,1,2,"%D",2,0)="patient, individual annual income pointer, IFN."
^DD(408.22,.02,1,2,"DT")="2980805"
^DD(408.22,.02,2)="S Y(0)=Y D NAM^DGMTDD2"
^DD(408.22,.02,2.1)="D NAM^DGMTDD2"
^DD(408.22,.02,3)="Enter in this field the individual whose income is associated with this income relation."
^DD(408.22,.02,21,0)="^^2^2^2920324^"
^DD(408.22,.02,21,1,0)="Enter in this field the individual whose income is associated"
^DD(408.22,.02,21,2,0)="with this income relation."
^DD(408.22,.02,"DT")="2980805"
^DD(408.22,.05,0)="MARRIED LAST CALENDAR YEAR^RSX^1:YES;0:NO;^0;5^D MAR^DGMTDD2:'X"
^DD(408.22,.05,.1)="WAS YOUR MARITAL STATUS EITHER MARRIED OR SEPARATED ON DEC 31ST LAST YEAR"
^DD(408.22,.05,1,0)="^.1"
^DD(408.22,.05,1,1,0)="^^TRIGGER^408.22^.06"
^DD(408.22,.05,1,1,1)="X ^DD(408.22,.05,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(408.22,.05,1,1,1.4)"
^DD(408.22,.05,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.05,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(408.22,.05,1,1,1.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=408.22,DIG=.06 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.05,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.05,1,1,79.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(408.22,.05,1,1,2.4)"
^DD(408.22,.05,1,1,2.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=408.22,DIG=.06 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.05,1,1,79.2)="S Y(2)=$C(59)_$S($D(^DD(408.22,.05,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)"
^DD(408.22,.05,1,1,"%D",0)="^^3^3^2920402^^^^"
^DD(408.22,.05,1,1,"%D",1,0)="This triggered cross-reference will update the 'Lived With Patient'"
^DD(408.22,.05,1,1,"%D",2,0)="field (#.06).  If the patient is not married, the 'Lived With Patient'"
^DD(408.22,.05,1,1,"%D",3,0)="field is deleted for the patient."
^DD(408.22,.05,1,1,"CREATE CONDITION")="MARRIED=""NO"""
^DD(408.22,.05,1,1,"CREATE VALUE")="@"
^DD(408.22,.05,1,1,"DELETE CONDITION")="MARRIED="""""
^DD(408.22,.05,1,1,"DELETE VALUE")="@"
^DD(408.22,.05,1,1,"FIELD")="LIVES WITH PATIENT"
^DD(408.22,.05,1,2,0)="408.22^AIX5^MUMPS"
^DD(408.22,.05,1,2,1)="I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,5) D FUN^DGMTDD2:'$P(^(0),U,8),SP^DGMTDD2"
^DD(408.22,.05,1,2,2)="I $D(^DGMT(408.22,DA,0)),$P(^(0),U,5)="""" D FUN^DGMTDD2:'$P(^(0),U,8),SP^DGMTDD2"
^DD(408.22,.05,1,2,"%D",0)="^^6^6^2970702^^^^"
^DD(408.22,.05,1,2,"%D",1,0)="This mumps cross-reference work like a ""trigger"" cross-reference."
^DD(408.22,.05,1,2,"%D",2,0)="If the patient was not married and did not have any dependent"
^DD(408.22,.05,1,2,"%D",3,0)="children, any corresponding funeral and burial expenses on file for"
^DD(408.22,.05,1,2,"%D",4,0)="the year are deleted.  Also, if the veteran is no longer married the"
^DD(408.22,.05,1,2,"%D",5,0)="spouse's corresponding income and net worth on file for the year will"
^DD(408.22,.05,1,2,"%D",6,0)="be deleted."
^DD(408.22,.05,1,2,"DT")="2970702"
^DD(408.22,.05,1,3,0)="408.22^AENR05^MUMPS"
^DD(408.22,.05,1,3,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.05,1,3,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.05,1,3,3)=" DO NOT DELETE"
^DD(408.22,.05,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.05,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.05,1,3,"%D",2,0)="enrollment."
^DD(408.22,.05,1,3,"DT")="3050913"
^DD(408.22,.05,3)="Enter 'YES' in this field if the veteran's marital status was either married or separated on Dec 31st last year.  Otherwise, enter 'NO'."
^DD(408.22,.05,21,0)="^^3^3^2920429^^^^"
^DD(408.22,.05,21,1,0)="Enter 'YES' in this field if the veteran's marital status was either"
^DD(408.22,.05,21,2,0)="married or separated on Dec 31st of last calendar year.  Otherwise,"
^DD(408.22,.05,21,3,0)="enter 'NO'."
^DD(408.22,.05,"DT")="3050913"
^DD(408.22,.06,0)="LIVED WITH PATIENT^SX^1:YES;0:NO;^0;6^D LIV^DGMTDD2"
^DD(408.22,.06,.1)=""
^DD(408.22,.06,1,0)="^.1"
^DD(408.22,.06,1,1,0)="^^TRIGGER^408.22^.07"
^DD(408.22,.06,1,1,1)="X ^DD(408.22,.06,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(408.22,.06,1,1,1.4)"
^DD(408.22,.06,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""YES"""
^DD(408.22,.06,1,1,1.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=408.22,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.06,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.06,1,1,79.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(408.22,.06,1,1,2.4)"
^DD(408.22,.06,1,1,2.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=408.22,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.06,1,1,79.2)="S Y(2)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)"
^DD(408.22,.06,1,1,"%D",0)="^^4^4^2920402^^^^"
^DD(408.22,.06,1,1,"%D",1,0)="This triggered cross-reference will update the 'Amount Contributed to"
^DD(408.22,.06,1,1,"%D",2,0)="Spouse' field (#.07).  If the patient is married and lived with his"
^DD(408.22,.06,1,1,"%D",3,0)="or her spouse, the 'Amount Contributed to Spouse' field is deleted"
^DD(408.22,.06,1,1,"%D",4,0)="for the patient."
^DD(408.22,.06,1,1,"CREATE CONDITION")="LIVES WITH PATIENT=""YES"""
^DD(408.22,.06,1,1,"CREATE VALUE")="@"
^DD(408.22,.06,1,1,"DELETE CONDITION")="LIVES WITH PATIENT="""""
^DD(408.22,.06,1,1,"DELETE VALUE")="@"
^DD(408.22,.06,1,1,"FIELD")="AMOUNT CONTRIBUTED TO SPOUSE"
^DD(408.22,.06,1,2,0)="^^TRIGGER^408.22^.1"
^DD(408.22,.06,1,2,1)="X ^DD(408.22,.06,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" X ^DD(408.22,.06,1,2,1.4)"
^DD(408.22,.06,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""YES"""
^DD(408.22,.06,1,2,1.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=408.22,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.06,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.06,1,2,79.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" X ^DD(408.22,.06,1,2,2.4)"
^DD(408.22,.06,1,2,2.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=408.22,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.06,1,2,79.2)="S Y(2)=$C(59)_$S($D(^DD(408.22,.06,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,6)_"":"",2),$C(59),1)"
^DD(408.22,.06,1,2,"%D",0)="^^4^4^2920402^^^"
^DD(408.22,.06,1,2,"%D",1,0)="This triggered cross-reference will update the 'Contribute to Support'"
^DD(408.22,.06,1,2,"%D",2,0)="field (#.1).  If the patient had a dependent child which lived with"
^DD(408.22,.06,1,2,"%D",3,0)="him or her, the 'Contributed to Support' field is deleted for the"
^DD(408.22,.06,1,2,"%D",4,0)="child."
^DD(408.22,.06,1,2,"CREATE CONDITION")="LIVES WITH PATIENT=""YES"""
^DD(408.22,.06,1,2,"CREATE VALUE")="@"
^DD(408.22,.06,1,2,"DELETE CONDITION")="LIVES WITH PATIENT="""""
^DD(408.22,.06,1,2,"DELETE VALUE")="@"
^DD(408.22,.06,1,2,"DT")="2920205"
^DD(408.22,.06,1,2,"FIELD")="CONTRIBUTE TO SUPPORT"
^DD(408.22,.06,1,3,0)="408.22^AENR06^MUMPS"
^DD(408.22,.06,1,3,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.06,1,3,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.06,1,3,3)=" DO NOT DELETE"
^DD(408.22,.06,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.06,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.06,1,3,"%D",2,0)="enrollment."
^DD(408.22,.06,1,3,"DT")="3050913"
^DD(408.22,.06,4)="D LIVHLP^DGMTDD2"
^DD(408.22,.06,5,1,0)="408.22^.05^1"
^DD(408.22,.06,21,0)="^^1^1^2920402^^^^"
^DD(408.22,.06,21,1,0)="Enter whether the veteran and relation lived together last calendar year."
^DD(408.22,.06,22)=""
^DD(408.22,.06,"DT")="3050913"
^DD(408.22,.07,0)="AMOUNT CONTRIBUTED TO SPOUSE^NJ8,2X^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X D AMT^DGMTDD2:$D(X)"
^DD(408.22,.07,.1)="IF YOU DID NOT LIVE WITH SPOUSE, AMOUNT CONTRIBUTED TO SPOUSE LAST YEAR"
^DD(408.22,.07,1,0)="^.1"
^DD(408.22,.07,1,1,0)="408.22^AIX7^MUMPS"
^DD(408.22,.07,1,1,1)="I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),$P(^(0),U,7)<600 D SP^DGMTDD2"
^DD(408.22,.07,1,1,2)="I $D(^DGMT(408.22,DA,0)),'$P(^(0),U,6),$P(^(0),U,7)="""" D SP^DGMTDD2"
^DD(408.22,.07,1,1,"%D",0)="^^4^4^2920723^^^^"
^DD(408.22,.07,1,1,"%D",1,0)="This mumps cross-reference works like a ""trigger"" cross-reference."
^DD(408.22,.07,1,1,"%D",2,0)="If the patient did not contribute at least $600 to the spouse,"
^DD(408.22,.07,1,1,"%D",3,0)="any corresponding income and net worth on file for the year"
^DD(408.22,.07,1,1,"%D",4,0)="are deleted."
^DD(408.22,.07,1,1,"DT")="2920723"
^DD(408.22,.07,1,2,0)="408.22^AENR07^MUMPS"
^DD(408.22,.07,1,2,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.07,1,2,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.07,1,2,3)=" DO NOT DELETE"
^DD(408.22,.07,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.07,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.07,1,2,"%D",2,0)="enrollment."
^DD(408.22,.07,1,2,"DT")="3050913"
^DD(408.22,.07,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(408.22,.07,5,1,0)="408.22^.06^1"
^DD(408.22,.07,21,0)="^^8^8^3050111^"
^DD(408.22,.07,21,1,0)="This response must be a number."
^DD(408.22,.07,21,2,0)=" "
^DD(408.22,.07,21,3,0)="If the veteran did not live with his or her spouse, enter in this"
^DD(408.22,.07,21,4,0)="field the amount the veteran contributed to his or her spouse last"
^DD(408.22,.07,21,5,0)="calendar year."
^DD(408.22,.07,21,6,0)=" "
^DD(408.22,.07,21,7,0)="If the amount the veteran contributed is less than $600, then the"
^DD(408.22,.07,21,8,0)="spouse will not be considered a dependent for financial assessment."
^DD(408.22,.07,"DT")="3050913"
^DD(408.22,.08,0)="DEPENDENT CHILDREN^SX^1:YES;0:NO;^0;8^D DEP^DGMTDD2:'X"
^DD(408.22,.08,.1)="DID YOU HAVE ANY DEPENDENT CHILDREN"
^DD(408.22,.08,1,0)="^.1"
^DD(408.22,.08,1,1,0)="408.22^AIX8^MUMPS"
^DD(408.22,.08,1,1,1)="I $D(^DGMT(408.22,DA,0)),$P(^(0),U,8)=0,'$P(^(0),U,5) D FUN^DGMTDD2"
^DD(408.22,.08,1,1,2)="I $D(^DGMT(408.22,DA,0)),$P(^(0),U,8)="""",'$P(^(0),U,5) D FUN^DGMTDD2"
^DD(408.22,.08,1,1,"%D",0)="^^4^4^2920403^^^"
^DD(408.22,.08,1,1,"%D",1,0)="This mumps cross-reference works like a ""trigger"" cross-reference."
^DD(408.22,.08,1,1,"%D",2,0)="If the patient did not have any dependent children and was not married,"
^DD(408.22,.08,1,1,"%D",3,0)="any corresponding funeral and burial expenses on file for the year are"
^DD(408.22,.08,1,1,"%D",4,0)="deleted."
^DD(408.22,.08,1,1,"DT")="2920403"
^DD(408.22,.08,1,2,0)="408.22^AENR08^MUMPS"
^DD(408.22,.08,1,2,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.08,1,2,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.08,1,2,3)=" DO NOT DELETE"
^DD(408.22,.08,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.08,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.08,1,2,"%D",2,0)="enrollment."
^DD(408.22,.08,1,2,"DT")="3050913"
^DD(408.22,.08,3)="Enter in this field whether the veteran had dependent children last calendar year."
^DD(408.22,.08,4)=""
^DD(408.22,.08,21,0)="^^16^16^2920721^^^^"
^DD(408.22,.08,21,1,0)="Enter in this field whether the veteran had any UNMARRIED children or"
^DD(408.22,.08,21,2,0)="stepchildren under the age of 18 or between the ages of 18 and 23 and"
^DD(408.22,.08,21,3,0)="attending school, or any unmarried children over the age of 17 who"
^DD(408.22,.08,21,4,0)="became permanently incapable of self-support before reaching the age of 18"
^DD(408.22,.08,21,5,0)="last calendar year."
^DD(408.22,.08,21,6,0)=" "
^DD(408.22,.08,21,7,0)="School attendance does not have to be full-time but it should be regular.  "
^DD(408.22,.08,21,8,0)="The child can be enrolled in high school, college, or vocational school.  "
^DD(408.22,.08,21,9,0)="If the worksheet is being completed during a break between regular school"
^DD(408.22,.08,21,10,0)="terms, consider the child to be attending school if the veteran indicates"
^DD(408.22,.08,21,11,0)="that the child plans to enroll in the next regular term (excluding summer"
^DD(408.22,.08,21,12,0)="sessions).  If the child is under the age of 18, the child does not have to"
^DD(408.22,.08,21,13,0)="be attending school.  DO NOT INCLUDE FOSTER CHILDREN."
^DD(408.22,.08,21,14,0)=" "
^DD(408.22,.08,21,15,0)="If the veteran says 'YES', all dependent children must be entered"
^DD(408.22,.08,21,16,0)="for the means test thresholds to be properly determined."
^DD(408.22,.08,"DT")="3050913"
^DD(408.22,.09,0)="INCAPABLE OF SELF-SUPPORT^S^1:YES;0:NO;^0;9^Q"
^DD(408.22,.09,.1)="PERMANENTLY INCAPABLE OF SELF-SUPPORT"
^DD(408.22,.09,1,0)="^.1"
^DD(408.22,.09,1,1,0)="408.22^AENR09^MUMPS"
^DD(408.22,.09,1,1,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.09,1,1,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.09,1,1,3)=" DO NOT DELETE"
^DD(408.22,.09,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.09,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.09,1,1,"%D",2,0)="enrollment."
^DD(408.22,.09,1,1,"DT")="3050913"
^DD(408.22,.09,3)="Enter in this field whether the child is unmarried, over the age of 17, and became permanently incapable of self-support before reaching the age of 18."
^DD(408.22,.09,21,0)="^^3^3^2920323^"
^DD(408.22,.09,21,1,0)="Enter in this field whether the child is unmarried, over the age of 17,"
^DD(408.22,.09,21,2,0)="and became permanently incapable of self-support before reaching in age"
^DD(408.22,.09,21,3,0)="of 18."
^DD(408.22,.09,"DT")="3050913"
^DD(408.22,.1,0)="CONTRIBUTED TO SUPPORT^SX^1:YES;0:NO;^0;10^D CON^DGMTDD2"
^DD(408.22,.1,.1)="DID YOU CONTRIBUTE TO THE CHILD'S SUPPORT"
^DD(408.22,.1,1,0)="^.1"
^DD(408.22,.1,1,1,0)="408.22^AENR1^MUMPS"
^DD(408.22,.1,1,1,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.1,1,1,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.1,1,1,3)=" DO NOT DELETE"
^DD(408.22,.1,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.1,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.1,1,1,"%D",2,0)="enrollment."
^DD(408.22,.1,1,1,"DT")="3050913"
^DD(408.22,.1,3)="Enter in this field a Yes or No to indicate whether the veteran contributed any dollar amount to the child's support last calendar year."
^DD(408.22,.1,4)="D HLPCS^DGRPU"
^DD(408.22,.1,5,1,0)="408.22^.06^2"
^DD(408.22,.1,21,0)="^.001^5^5^3050228^^^^"
^DD(408.22,.1,21,1,0)="Enter in this field a Yes or No to indicate whether the veteran"
^DD(408.22,.1,21,2,0)="contributed any dollar amount to the child's support last calendar"
^DD(408.22,.1,21,3,0)="year.  The contributions do not have to be in regular set amounts."
^DD(408.22,.1,21,4,0)="For example, a veteran who paid a child's school tuition or"
^DD(408.22,.1,21,5,0)="medical bills would be contributing to the child's support."
^DD(408.22,.1,"DT")="3050913"
^DD(408.22,.11,0)="CHILD HAD INCOME^SX^1:YES;0:NO;^0;11^Q"
^DD(408.22,.11,.1)="DID CHILD HAVE ANY INCOME"
^DD(408.22,.11,1,0)="^.1"
^DD(408.22,.11,1,1,0)="^^TRIGGER^408.22^.12"
^DD(408.22,.11,1,1,1)="X ^DD(408.22,.11,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(408.22,.11,1,1,1.4)"
^DD(408.22,.11,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(408.22,.11,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(408.22,.11,1,1,1.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=408.22,DIG=.12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.11,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.22,.11,1,1,79.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(408.22,.11,1,1,2.4)"
^DD(408.22,.11,1,1,2.4)="S DIH=$S($D(^DGMT(408.22,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=408.22,DIG=.12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.22,.11,1,1,79.2)="S Y(2)=$C(59)_$S($D(^DD(408.22,.11,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)"
^DD(408.22,.11,1,1,"%D",0)="^^4^4^2920402^^^"
^DD(408.22,.11,1,1,"%D",1,0)="This triggered cross-reference will update the 'Income Available"
^DD(408.22,.11,1,1,"%D",2,0)="to You' field (#.12).  If the patient had a dependent child whose"
^DD(408.22,.11,1,1,"%D",3,0)="income was not available to him or her, the 'Income Available to"
^DD(408.22,.11,1,1,"%D",4,0)="You' field is deleted for the child."
^DD(408.22,.11,1,1,"CREATE CONDITION")="CHILD HAS INCOME=""NO"""
^DD(408.22,.11,1,1,"CREATE VALUE")="@"
^DD(408.22,.11,1,1,"DELETE CONDITION")="CHILD HAS INCOME="""""
^DD(408.22,.11,1,1,"DELETE VALUE")="@"
^DD(408.22,.11,1,1,"FIELD")="INCOME AVAILABLE TO YOU"
^DD(408.22,.11,1,2,0)="408.22^AIX11^MUMPS"
^DD(408.22,.11,1,2,1)="I $D(^DGMT(408.22,DA,0)),$P(^(0),U,11)=0 D INC^DGMTDD2"
^DD(408.22,.11,1,2,2)="I $D(^DGMT(408.22,DA,0)),$P(^(0),U,11)="""" D INC^DGMTDD2"
^DD(408.22,.11,1,2,"%D",0)="^^3^3^2920402^^^^"
^DD(408.22,.11,1,2,"%D",1,0)="This mumps cross-reference works like a ""trigger"" cross-reference."
^DD(408.22,.11,1,2,"%D",2,0)="If the patient had a child with no income, any corresponding income"
^DD(408.22,.11,1,2,"%D",3,0)="or educational expenses on file for the year are deleted."
^DD(408.22,.11,1,2,"DT")="2920323"
^DD(408.22,.11,1,3,0)="408.22^AENR11^MUMPS"
^DD(408.22,.11,1,3,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.11,1,3,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.11,1,3,3)=" DO NOT DELETE"
^DD(408.22,.11,1,3,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.11,1,3,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.11,1,3,"%D",2,0)="enrollment."
^DD(408.22,.11,1,3,"DT")="3050913"
^DD(408.22,.11,3)="Enter in this field whether the child had income last calendar year."
^DD(408.22,.11,21,0)="^^3^3^2920402^^^^"
^DD(408.22,.11,21,1,0)="Enter in this field whether the child had income last calendar"
^DD(408.22,.11,21,2,0)="year.  Income payable to another person as guardian or custodian"
^DD(408.22,.11,21,3,0)="of the child is considered to be the child's income."
^DD(408.22,.11,"DT")="3050913"
^DD(408.22,.12,0)="INCOME AVAILABLE TO YOU^SX^1:YES;0:NO;^0;12^D AVL^DGMTDD2"
^DD(408.22,.12,.1)="WAS THE CHILD'S INCOME AVAILABLE TO YOU"
^DD(408.22,.12,1,0)="^.1"
^DD(408.22,.12,1,1,0)="408.22^AIX12^MUMPS"
^DD(408.22,.12,1,1,1)="I $D(^DGMT(408.22,DA,0)),$P(^(0),U,12)=0,$P(^(0),U,11) D INC^DGMTDD2"
^DD(408.22,.12,1,1,2)="I $D(^DGMT(408.22,DA,0)),$P(^(0),U,12)="""",$P(^(0),U,11) D INC^DGMTDD2"
^DD(408.22,.12,1,1,"%D",0)="^^4^4^2920402^^^"
^DD(408.22,.12,1,1,"%D",1,0)="This mumps cross-reference works like a ""trigger"" cross-reference."
^DD(408.22,.12,1,1,"%D",2,0)="If the patient had a child whose income was not available to him or her,"
^DD(408.22,.12,1,1,"%D",3,0)="any corresponding income or educational expenses on file for the year"
^DD(408.22,.12,1,1,"%D",4,0)="are deleted."
^DD(408.22,.12,1,1,"DT")="2920323"
^DD(408.22,.12,1,2,0)="408.22^AENR12^MUMPS"
^DD(408.22,.12,1,2,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.12,1,2,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.12,1,2,3)=" DO NOT DELETE"
^DD(408.22,.12,1,2,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.12,1,2,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.12,1,2,"%D",2,0)="enrollment."
^DD(408.22,.12,1,2,"DT")="3050913"
^DD(408.22,.12,3)="Enter in this field whether the child's income was available to the veteran last calendar year."
^DD(408.22,.12,5,1,0)="408.22^.11^1"
^DD(408.22,.12,21,0)="^^7^7^2920402^^^"
^DD(408.22,.12,21,1,0)="Enter in this field whether the child's income was available to"
^DD(408.22,.12,21,2,0)="the veteran last calendar year.  The child's income is deemed to be"
^DD(408.22,.12,21,3,0)="available if it can be used to pay expenses of the veteran's household."
^DD(408.22,.12,21,4,0)="For example, a Social Security check payable to the veteran's estranged"
^DD(408.22,.12,21,5,0)="spouse as custodian of the child is probably not available to the veteran."
^DD(408.22,.12,21,6,0)="On the other hand, a Social Security check on behalf of the child payable"
^DD(408.22,.12,21,7,0)="to someone living in the veteran's household is probably available."
^DD(408.22,.12,"DT")="3050913"
^DD(408.22,.13,0)="NUMBER OF DEPENDENT CHILDREN^NJ2,0^^0;13^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.22,.13,1,0)="^.1"
^DD(408.22,.13,1,1,0)="408.22^AENR13^MUMPS"
^DD(408.22,.13,1,1,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.13,1,1,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.13,1,1,3)=" DO NOT DELETE"
^DD(408.22,.13,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.13,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.13,1,1,"%D",2,0)="enrollment."
^DD(408.22,.13,1,1,"DT")="3050913"
^DD(408.22,.13,3)="Type a Number between 0 and 30, 0 Decimal Digits"
^DD(408.22,.13,21,0)="^^5^5^2920325^^^"
^DD(408.22,.13,21,1,0)="This field is computed by the system.  Dependent children"
^DD(408.22,.13,21,2,0)="include any unmarried children or stepchildren who are under"
^DD(408.22,.13,21,3,0)="the age of 18 or between the ages of 18 and 23 and attending"
^DD(408.22,.13,21,4,0)="school, or any unmarried children over the age of 17 who became"
^DD(408.22,.13,21,5,0)="permanently incapable of self-support before reaching the age of 18."
^DD(408.22,.13,"DT")="3050913"
^DD(408.22,.14,0)="MARRIED THIS YEAR^S^1:YES;0:NO;^0;14^Q"
^DD(408.22,.14,.1)="IS YOUR MARITAL STATUS EITHER MARRIED OR SEPARATED"
^DD(408.22,.14,1,0)="^.1"
^DD(408.22,.14,1,1,0)="^^TRIGGER^408.22^.15"
^DD(408.22,.14,1,1,1)="X ^DD(408.22,.14,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR"
^DD(408.22,.14,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(408.22,.14,1,1,2)="X ^DD(408.22,.14,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR"
^DD(408.22,.14,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59),1)="""""
^DD(408.22,.14,1,1,"%D",0)="^^3^3^3010822^"
^DD(408.22,.14,1,1,"%D",1,0)="This triggered cross-reference will update the Living With Patient field"
^DD(408.22,.14,1,1,"%D",2,0)="(#.15).  If Married This Year=""NO"", the Living With Patient field will be"
^DD(408.22,.14,1,1,"%D",3,0)="deleted."
^DD(408.22,.14,1,1,"CREATE CONDITION")="#.14=""NO"""
^DD(408.22,.14,1,1,"CREATE VALUE")="@"
^DD(408.22,.14,1,1,"DELETE CONDITION")="#.14="""""
^DD(408.22,.14,1,1,"DELETE VALUE")="@"
^DD(408.22,.14,1,1,"FIELD")="#.15"
^DD(408.22,.14,1,2,0)="^^TRIGGER^408.22^.16"
^DD(408.22,.14,1,2,1)="X ^DD(408.22,.14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR"
^DD(408.22,.14,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(408.22,.14,1,2,2)="X ^DD(408.22,.14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR"
^DD(408.22,.14,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59),1)="""""
^DD(408.22,.14,1,2,"%D",0)="^^3^3^3010822^"
^DD(408.22,.14,1,2,"%D",1,0)="This trigger cross-reference will update the Residing In The Community"
^DD(408.22,.14,1,2,"%D",2,0)="field (#.16).  If Married This Year=""NO"", the Residing In The Community"
^DD(408.22,.14,1,2,"%D",3,0)="field will be deleted."
^DD(408.22,.14,1,2,"CREATE CONDITION")="#.14=""NO"""
^DD(408.22,.14,1,2,"CREATE VALUE")="@"
^DD(408.22,.14,1,2,"DELETE CONDITION")="#.14="""""
^DD(408.22,.14,1,2,"DELETE VALUE")="@"
^DD(408.22,.14,1,2,"DT")="3010822"
^DD(408.22,.14,1,2,"FIELD")="#.16"
^DD(408.22,.14,1,3,0)="^^TRIGGER^408.22^.17"
^DD(408.22,.14,1,3,1)="X ^DD(408.22,.14,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=408.22,DIG=.17 D ^DICR"
^DD(408.22,.14,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))=""NO"""
^DD(408.22,.14,1,3,2)="X ^DD(408.22,.14,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,17)=DIV,DIH=408.22,DIG=.17 D ^DICR"
^DD(408.22,.14,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.14,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,14)_"":"",2),$C(59))="""""
^DD(408.22,.14,1,3,"%D",0)="^^3^3^3030902^"
^DD(408.22,.14,1,3,"%D",1,0)="This trigger cross-reference will update the Legally Separated field"
^DD(408.22,.14,1,3,"%D",2,0)="(#.17).  If Married This Year=""NO"", the Legally Separated field will be"
^DD(408.22,.14,1,3,"%D",3,0)="deleted."
^DD(408.22,.14,1,3,"CREATE CONDITION")="#.14=""NO"""
^DD(408.22,.14,1,3,"CREATE VALUE")="@"
^DD(408.22,.14,1,3,"DELETE CONDITION")="#.14="""""
^DD(408.22,.14,1,3,"DELETE VALUE")="@"
^DD(408.22,.14,1,3,"DT")="3030902"
^DD(408.22,.14,1,3,"FIELD")="#.17"
^DD(408.22,.14,21,0)="^.001^2^2^3010822^^"
^DD(408.22,.14,21,1,0)="Enter 'YES' in this field if the veteran's marital status currently is"
^DD(408.22,.14,21,2,0)="either married or separated.  Otherwise, enter 'NO'."
^DD(408.22,.14,"DT")="3030902"
^DD(408.22,.15,0)="LIVING WITH PATIENT^S^1:YES;0:NO;^0;15^Q"
^DD(408.22,.15,5,1,0)="408.22^.14^1"
^DD(408.22,.15,5,2,0)="408.22^.16^1"
^DD(408.22,.15,21,0)="^.001^1^1^3010822^^"
^DD(408.22,.15,21,1,0)="Enter whether the veteran and relation are living together."
^DD(408.22,.15,"DT")="3010822"
^DD(408.22,.16,0)="RESIDING IN THE COMMUNITY^S^1:YES;0:NO;^0;16^Q"
^DD(408.22,.16,1,0)="^.1"
^DD(408.22,.16,1,1,0)="^^TRIGGER^408.22^.15"
^DD(408.22,.16,1,1,1)="X ^DD(408.22,.16,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=""NO"" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR"
^DD(408.22,.16,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.16,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(408.22,.16,1,1,2)="X ^DD(408.22,.16,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=408.22,DIG=.15 D ^DICR"
^DD(408.22,.16,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.16,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,16)_"":"",2),$C(59),1)="""""
^DD(408.22,.16,1,1,"%D",0)="^^2^2^3010822^"
^DD(408.22,.16,1,1,"%D",1,0)="This trigger cross-reference will update the Living With Patient field"
^DD(408.22,.16,1,1,"%D",2,0)="(#.15). If Residing in the Community=""NO"", then Living With Patient=""NO""."
^DD(408.22,.16,1,1,"CREATE CONDITION")="RESIDING IN THE COMMUNITY=""NO"""
^DD(408.22,.16,1,1,"CREATE VALUE")="""NO"""
^DD(408.22,.16,1,1,"DELETE CONDITION")="RESIDING IN THE COMMUNITY="""""
^DD(408.22,.16,1,1,"DELETE VALUE")="@"
^DD(408.22,.16,1,1,"FIELD")="#.15"
^DD(408.22,.16,5,1,0)="408.22^.14^2"
^DD(408.22,.16,5,2,0)="408.22^.17^1"
^DD(408.22,.16,21,0)="^.001^2^2^3010822^^"
^DD(408.22,.16,21,1,0)="Enter 'YES' if the spouse or dependent is residing in the community."
^DD(408.22,.16,21,2,0)="Enter 'NO' if the spouse or dependent is institutionalized."
^DD(408.22,.16,"DT")="3010822"
^DD(408.22,.17,0)="LEGALLY SEPARATED^S^1:YES;0:NO;^0;17^Q"
^DD(408.22,.17,1,0)="^.1"
^DD(408.22,.17,1,1,0)="^^TRIGGER^408.22^.16"
^DD(408.22,.17,1,1,1)="X ^DD(408.22,.17,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR"
^DD(408.22,.17,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$P($G(^DD(408.22,.17,0)),U,3) S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59))=""YES"""
^DD(408.22,.17,1,1,2)="X ^DD(408.22,.17,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" S DIH=$G(^DGMT(408.22,DIV(0),0)),DIV=X S $P(^(0),U,16)=DIV,DIH=408.22,DIG=.16 D ^DICR"
^DD(408.22,.17,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$P($G(^DD(408.22,.17,0)),U,3),Y(1)=$S($D(^DGMT(408.22,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,17)_"":"",2),$C(59))=""YES"""
^DD(408.22,.17,1,1,"%D",0)="^^3^3^3030902^"
^DD(408.22,.17,1,1,"%D",1,0)="This trigger cross-reference will update the Residing in the Community"
^DD(408.22,.17,1,1,"%D",2,0)="field (#.16).  If Legally Separated=""YES"", the Residing in the Community"
^DD(408.22,.17,1,1,"%D",3,0)="field will be deleted."
^DD(408.22,.17,1,1,"CREATE CONDITION")="#.17=""YES"""
^DD(408.22,.17,1,1,"CREATE VALUE")="@"
^DD(408.22,.17,1,1,"DELETE CONDITION")="#.17=""YES"""
^DD(408.22,.17,1,1,"DELETE VALUE")="@"
^DD(408.22,.17,1,1,"DT")="3030902"
^DD(408.22,.17,1,1,"FIELD")="#.16"
^DD(408.22,.17,5,1,0)="408.22^.14^3"
^DD(408.22,.17,21,0)="^^2^2^3030902^"
^DD(408.22,.17,21,1,0)="Enter 'YES' in this field if the veteran and spouse are legally"
^DD(408.22,.17,21,2,0)="separated."
^DD(408.22,.17,23,0)="^^4^4^3030902^"
^DD(408.22,.17,23,1,0)="This field will be used to determine how the veteran's LTC copayment is "
^DD(408.22,.17,23,2,0)="calculated. If LEGALLY SEPARATED = ""YES"", then the calculation used will "
^DD(408.22,.17,23,3,0)="be the same as an unmarried veteran. This question will be asked if the "
^DD(408.22,.17,23,4,0)="field MARRIED THIS YEAR (#.14) = ""YES""."
^DD(408.22,.17,"DT")="3030902"
^DD(408.22,.18,0)="CHILD 18-23 IN SCHOOL^S^0:NO;1:YES;^0;18^Q"
^DD(408.22,.18,.1)="CHILD IS 18-23 YRS AND CHILD ATTENDED SCHOOL LAST YR"
^DD(408.22,.18,1,0)="^.1"
^DD(408.22,.18,1,1,0)="408.22^AENR18^MUMPS"
^DD(408.22,.18,1,1,1)="D E40822^DGRTRIG(DA)"
^DD(408.22,.18,1,1,2)="D E40822^DGRTRIG(DA)"
^DD(408.22,.18,1,1,3)=" DO NOT DELETE"
^DD(408.22,.18,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.22,.18,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.22,.18,1,1,"%D",2,0)="enrollment."
^DD(408.22,.18,1,1,"DT")="3050913"
^DD(408.22,.18,3)=""
^DD(408.22,.18,4)="D HLP1823^DGRPU"
^DD(408.22,.18,"DT")="3050913"
^DD(408.22,.19,0)="AMOUNT CONTRIBUTED TO CHILD^NJ8,2^^0;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(408.22,.19,.1)="IF YOU DID NOT LIVE WITH CHILD, AMOUNT CONTRIBUTED TO CHILD LAST YEAR"
^DD(408.22,.19,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(408.22,.19,21,0)="^.001^5^5^3050223^^^^"
^DD(408.22,.19,21,1,0)="Enter in this field the dollar amount that the veteran contributed"
^DD(408.22,.19,21,2,0)="to the child's support last calendar year.  The contributions do not "
^DD(408.22,.19,21,3,0)="have to be in regular set amounts.  For example, a veteran who paid"
^DD(408.22,.19,21,4,0)="a child's school tuition or medical bills would be contributing to"
^DD(408.22,.19,21,5,0)="the child's support. "
^DD(408.22,.19,"DT")="3050124"
^DD(408.22,31,0)="ANNUAL MEANS TEST^P408.31'^DGMT(408.31,^MT;1^Q"
^DD(408.22,31,1,0)="^.1"
^DD(408.22,31,1,1,0)="408.22^AMT^MUMPS"
^DD(408.22,31,1,1,1)="S:$P(^DGMT(408.22,DA,0),U,2) ^DGMT(408.22,""AMT"",X,+$P(^DGMT(408.22,DA,0),U),+$P(^DGMT(408.22,DA,0),U,2),DA)="""""
^DD(408.22,31,1,1,2)="K ^DGMT(408.22,""AMT"",X,+$P(^DGMT(408.22,DA,0),U),+$P($G(^DGMT(408.22,DA,0)),U,2),DA)"
^DD(408.22,31,1,1,"%D",0)="^^2^2^2950302^^"
^DD(408.22,31,1,1,"%D",1,0)="This cross reference is for the means test.  It is indexed by means test, "
^DD(408.22,31,1,1,"%D",2,0)="patient, individual annual income pointer, IFN."
^DD(408.22,31,1,1,"DT")="2950302"
^DD(408.22,31,"DT")="2950302"
^DD(408.22,"B","AMOUNT CONTRIBUTED TO CHILD",.19)=""
^DD(408.22,"B","AMOUNT CONTRIBUTED TO SPOUSE",.07)=""
^DD(408.22,"B","ANNUAL MEANS TEST",31)=""
^DD(408.22,"B","CHILD 18-23 IN SCHOOL",.18)=""
^DD(408.22,"B","CHILD HAD INCOME",.11)=""
^DD(408.22,"B","CONTRIBUTED TO SUPPORT",.1)=""
^DD(408.22,"B","DEPENDENT CHILDREN",.08)=""
^DD(408.22,"B","DID CHILD HAVE ANY INCOME",.11)="1"
^DD(408.22,"B","INCAPABLE OF SELF-SUPPORT",.09)=""
^DD(408.22,"B","INCOME AVAILABLE TO YOU",.12)=""
^DD(408.22,"B","INDIVIDUAL ANNUAL INCOME",.02)=""
^DD(408.22,"B","LEGALLY SEPARATED",.17)=""
^DD(408.22,"B","LIVED WITH PATIENT",.06)=""
^DD(408.22,"B","LIVING WITH PATIENT",.15)=""
^DD(408.22,"B","MARRIED LAST CALENDAR YEAR",.05)=""
^DD(408.22,"B","MARRIED THIS YEAR",.14)=""
^DD(408.22,"B","NUMBER OF DEPENDENT CHILDREN",.13)=""
^DD(408.22,"B","PATIENT",.01)=""
^DD(408.22,"B","RESIDING IN THE COMMUNITY",.16)=""
^DD(408.22,"GL",0,1,.01)=""
^DD(408.22,"GL",0,2,.02)=""
^DD(408.22,"GL",0,5,.05)=""
^DD(408.22,"GL",0,6,.06)=""
^DD(408.22,"GL",0,7,.07)=""
^DD(408.22,"GL",0,8,.08)=""
^DD(408.22,"GL",0,9,.09)=""
^DD(408.22,"GL",0,10,.1)=""
^DD(408.22,"GL",0,11,.11)=""
^DD(408.22,"GL",0,12,.12)=""
^DD(408.22,"GL",0,13,.13)=""
^DD(408.22,"GL",0,14,.14)=""
^DD(408.22,"GL",0,15,.15)=""
^DD(408.22,"GL",0,16,.16)=""
^DD(408.22,"GL",0,17,.17)=""
^DD(408.22,"GL",0,18,.18)=""
^DD(408.22,"GL",0,19,.19)=""
^DD(408.22,"GL","MT",1,31)=""
^DD(408.22,"IX",.01)=""
^DD(408.22,"IX",.02)=""
^DD(408.22,"IX",.05)=""
^DD(408.22,"IX",.06)=""
^DD(408.22,"IX",.07)=""
^DD(408.22,"IX",.08)=""
^DD(408.22,"IX",.09)=""
^DD(408.22,"IX",.1)=""
^DD(408.22,"IX",.11)=""
^DD(408.22,"IX",.12)=""
^DD(408.22,"IX",.13)=""
^DD(408.22,"IX",.14)=""
^DD(408.22,"IX",.16)=""
^DD(408.22,"IX",.17)=""
^DD(408.22,"IX",.18)=""
^DD(408.22,"IX",31)=""
^DD(408.22,"RQ",.01)=""
^DD(408.22,"RQ",.02)=""
^DD(408.22,"RQ",.05)=""
^DD(408.31,0)="FIELD^^50^42"
^DD(408.31,0,"DDA")="N"
^DD(408.31,0,"DIK")="DGMTXX3"
^DD(408.31,0,"DIKOLD")="DGMTXX3"
^DD(408.31,0,"DT")="2940923"
^DD(408.31,0,"ID",.019)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(408.33,+$P(^(0),U,19),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(408.33,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(408.31,0,"ID",.02)="W """""
^DD(408.31,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(408.32,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(408.32,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(408.31,0,"ID",.23)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(408.34,+$P(^(0),U,23),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(408.34,.01,0),U,2) D Y^DIQ:Y]"""" W ?61,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(408.31,0,"ID",2)="W:$D(^(""PRIM"")) ?68,$S(^(""PRIM""):""PRIMARY"",1:""NOT PRIMARY"")"
^DD(408.31,0,"IX","AAPD",408.31,.11)=""
^DD(408.31,0,"IX","AC",408.31,.03)=""
^DD(408.31,0,"IX","AD",408.31,.02)=""
^DD(408.31,0,"IX","AD1",408.31,.01)=""
^DD(408.31,0,"IX","AD2",408.31,.019)=""
^DD(408.31,0,"IX","ADFN",408.31,.02)=""
^DD(408.31,0,"IX","ADFN1",408.31,.01)=""
^DD(408.31,0,"IX","AE",408.31,.2)=""
^DD(408.31,0,"IX","AENR202",408.31,2.02)=""
^DD(408.31,0,"IX","AF",408.31,.2)=""
^DD(408.31,0,"IX","AG",408.31,.07)=""
^DD(408.31,0,"IX","AH",408.31,2.03)=""
^DD(408.31,0,"IX","AID",408.31,.02)=""
^DD(408.31,0,"IX","AID1",408.31,.01)=""
^DD(408.31,0,"IX","AID2",408.31,.019)=""
^DD(408.31,0,"IX","AP",408.31,.16)=""
^DD(408.31,0,"IX","AS",408.31,.03)=""
^DD(408.31,0,"IX","AS1",408.31,.01)=""
^DD(408.31,0,"IX","AS2",408.31,.02)=""
^DD(408.31,0,"IX","AS3",408.31,.019)=""
^DD(408.31,0,"IX","AT",408.31,2.08)=""
^DD(408.31,0,"IX","B",408.31,.01)=""
^DD(408.31,0,"IX","C",408.31,.02)=""
^DD(408.31,0,"NM","ANNUAL MEANS TEST")=""
^DD(408.31,0,"PT",301.5,.06)=""
^DD(408.31,0,"PT",301.5,.07)=""
^DD(408.31,0,"PT",408.1275,.04)=""
^DD(408.31,0,"PT",408.21,31)=""
^DD(408.31,0,"PT",408.22,31)=""
^DD(408.31,0,"PT",408.31,2.06)=""
^DD(408.31,0,"PT",408.31,2.08)=""
^DD(408.31,0,"PT",408.41,.03)=""
^DD(408.31,0,"VR")="5.3"
^DD(408.31,.01,0)="DATE OF TEST^RDX^^0;1^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X),'$D(DGMTACT) W !,?3,*7,""USE THE SPECIFIC FINANCIAL TEST OPTIONS"" K X"
^DD(408.31,.01,1,0)="^.1"
^DD(408.31,.01,1,1,0)="408.31^B"
^DD(408.31,.01,1,1,1)="S ^DGMT(408.31,""B"",$E(X,1,30),DA)="""""
^DD(408.31,.01,1,1,2)="K ^DGMT(408.31,""B"",$E(X,1,30),DA)"
^DD(408.31,.01,1,1,"%D",0)="^^1^1^2920326^"
^DD(408.31,.01,1,1,"%D",1,0)="This cross-reference allows look-up by date of test."
^DD(408.31,.01,1,2,0)="408.31^AS1^MUMPS"
^DD(408.31,.01,1,2,1)="S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,3))&($P(^(0),U,19)) ^DGMT(408.31,""AS"",+$P(^(0),U,19),+$P(^(0),U,3),-X,+$P(^(0),U,2),DA)="""""
^DD(408.31,.01,1,2,2)="K ^DGMT(408.31,""AS"",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,3),-X,+$P(^(0),U,2),DA)"
^DD(408.31,.01,1,2,"%D",0)="^^2^2^2921224^^^^"
^DD(408.31,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by type of test by status by"
^DD(408.31,.01,1,2,"%D",2,0)="inverse date of test by patient by internal entry number."
^DD(408.31,.01,1,2,"DT")="2921202"
^DD(408.31,.01,1,3,0)="408.31^AID1^MUMPS"
^DD(408.31,.01,1,3,1)="S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,19)) ^DGMT(408.31,""AID"",+$P(^(0),U,19),+$P(^(0),U,2),-X,DA)="""""
^DD(408.31,.01,1,3,2)="K ^DGMT(408.31,""AID"",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,2),-X,DA)"
^DD(408.31,.01,1,3,"%D",0)="^^2^2^2921224^^^^"
^DD(408.31,.01,1,3,"%D",1,0)="This cross-reference can be used to sort by type of test by patient by"
^DD(408.31,.01,1,3,"%D",2,0)="inverse date of test by internal entry number."
^DD(408.31,.01,1,3,"DT")="2921202"
^DD(408.31,.01,1,4,0)="408.31^AD1^MUMPS"
^DD(408.31,.01,1,4,1)="S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,19)) ^DGMT(408.31,""AD"",+$P(^(0),U,19),+$P(^(0),U,2),X,DA)="""""
^DD(408.31,.01,1,4,2)="K ^DGMT(408.31,""AD"",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,2),X,DA)"
^DD(408.31,.01,1,4,"%D",0)="^^2^2^2921224^^^^"
^DD(408.31,.01,1,4,"%D",1,0)="This cross-reference can be used to sort by type of test by patient by date"
^DD(408.31,.01,1,4,"%D",2,0)="of test by internal entry number."
^DD(408.31,.01,1,4,"DT")="2921202"
^DD(408.31,.01,1,5,0)="408.31^ADFN1^MUMPS"
^DD(408.31,.01,1,5,1)="S:$P(^DGMT(408.31,DA,0),U,2) ^DGMT(408.31,""ADFN""_$P(^(0),U,2),X,DA)="""""
^DD(408.31,.01,1,5,2)="K ^DGMT(408.31,""ADFN""_$P(^DGMT(408.31,DA,0),U,2),X,DA)"
^DD(408.31,.01,1,5,"%D",0)="^^1^1^2930115^"
^DD(408.31,.01,1,5,"%D",1,0)="This cross-reference is used to improve look-up performance for a select patient."
^DD(408.31,.01,1,5,"DT")="2930115"
^DD(408.31,.01,3)="Enter in this field the date of test for this annual financial test."
^DD(408.31,.01,21,0)="^^1^1^2941011^^^^"
^DD(408.31,.01,21,1,0)="Enter in this field the date of test for this annual test."
^DD(408.31,.01,"AUDIT")=""
^DD(408.31,.01,"DEL",1,0)="I 1 W *7,!,""This Test Cannot Be Deleted.  Use The Appropriate Means Test/Co-Pay Options."",!"
^DD(408.31,.01,"DT")="2941011"
^DD(408.31,.019,0)="TYPE OF TEST^RP408.33'I^DG(408.33,^0;19^Q"
^DD(408.31,.019,1,0)="^.1"
^DD(408.31,.019,1,1,0)="408.31^AS3^MUMPS"
^DD(408.31,.019,1,1,1)="S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,3)) ^DGMT(408.31,""AS"",X,+$P(^(0),U,3),-$P(^(0),U),+$P(^(0),U,2),DA)="""""
^DD(408.31,.019,1,1,2)="K ^DGMT(408.31,""AS"",X,+$P(^DGMT(408.31,DA,0),U,3),-$P(^(0),U),+$P(^(0),U,2),DA)"
^DD(408.31,.019,1,1,"%D",0)="^^2^2^2921230^"
^DD(408.31,.019,1,1,"%D",1,0)="This cross reference can be used to sort by type of test by status by"
^DD(408.31,.019,1,1,"%D",2,0)="inverse date of test by patient by internal entry number."
^DD(408.31,.019,1,2,0)="408.31^AID2^MUMPS"
^DD(408.31,.019,1,2,1)="S:$P(^DGMT(408.31,DA,0),U,2) ^DGMT(408.31,""AID"",X,+$P(^(0),U,2),-$P(^(0),U),DA)="""""
^DD(408.31,.019,1,2,2)="K ^DGMT(408.31,""AID"",X,+$P(^DGMT(408.31,DA,0),U,2),-$P(^(0),U),DA)"
^DD(408.31,.019,1,2,"%D",0)="^^2^2^2921230^"
^DD(408.31,.019,1,2,"%D",1,0)="This cross reference can be used to sort by type of test by patient by"
^DD(408.31,.019,1,2,"%D",2,0)="inverse date of test by internal entry number."
^DD(408.31,.019,1,2,"DT")="2921230"
^DD(408.31,.019,1,3,0)="408.31^AD2^MUMPS"
^DD(408.31,.019,1,3,1)="S:$P(^DGMT(408.31,DA,0),U,2) ^DGMT(408.31,""AD"",X,+$P(^(0),U,2),$P(^(0),U),DA)="""""
^DD(408.31,.019,1,3,2)="K ^DGMT(408.31,""AD"",X,+$P(^DGMT(408.31,DA,0),U,2),$P(^(0),U),DA)"
^DD(408.31,.019,1,3,"%D",0)="^^2^2^2950620^^"
^DD(408.31,.019,1,3,"%D",1,0)="This cross reference can be used to sort by type of test by patient by"
^DD(408.31,.019,1,3,"%D",2,0)="date of test by internal entry number."
^DD(408.31,.019,1,3,"DT")="2950620"
^DD(408.31,.019,1,4,0)="^^TRIGGER^408.31^.03"
^DD(408.31,.019,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=2 I X S X=DIV S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""9"" X ^DD(408.31,.019,1,4,1.4)"
^DD(408.31,.019,1,4,1.4)="S DIH=$S($D(^DGMT(408.31,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=408.31,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.31,.019,1,4,2)="Q"
^DD(408.31,.019,1,4,"%D",0)="^^1^1^2930202^"
^DD(408.31,.019,1,4,"%D",1,0)="This triggers the status field to incomplete when a new co-pay test is added"
^DD(408.31,.019,1,4,"CREATE CONDITION")="INTERNAL(TYPE OF TEST)=2"
^DD(408.31,.019,1,4,"CREATE VALUE")="""9"""
^DD(408.31,.019,1,4,"DELETE VALUE")="NO EFFECT"
^DD(408.31,.019,1,4,"DT")="2930202"
^DD(408.31,.019,1,4,"FIELD")="STATUS"
^DD(408.31,.019,3)="Enter the type of test associated with the financial test."
^DD(408.31,.019,21,0)="^^1^1^2921230^"
^DD(408.31,.019,21,1,0)="This field contains the type of test, pointer to file 408.33."
^DD(408.31,.019,"DT")="2950620"
^DD(408.31,.02,0)="PATIENT^RP2'I^DPT(^0;2^Q"
^DD(408.31,.02,1,0)="^.1^^-1"
^DD(408.31,.02,1,1,0)="408.31^AS2^MUMPS"
^DD(408.31,.02,1,1,1)="S:$P(^DGMT(408.31,DA,0),U,3)&($P(^(0),U,19)) ^DGMT(408.31,""AS"",$P(^(0),U,19),$P(^(0),U,3),-$P(^(0),U),X,DA)="""""
^DD(408.31,.02,1,1,2)="K ^DGMT(408.31,""AS"",+$P(^DGMT(408.31,DA,0),U,19),+$P(^(0),U,3),-$P(^(0),U),X,DA)"
^DD(408.31,.02,1,1,"%D",0)="^^2^2^2921224^^^^"
^DD(408.31,.02,1,1,"%D",1,0)="This cross-reference can be used to sort by type of test by status by"
^DD(408.31,.02,1,1,"%D",2,0)="inverse date of test by patient by internal entry number."
^DD(408.31,.02,1,1,"DT")="2921224"
^DD(408.31,.02,1,2,0)="408.31^AID^MUMPS"
^DD(408.31,.02,1,2,1)="S:$P(^DGMT(408.31,DA,0),U,19) ^DGMT(408.31,""AID"",$P(^(0),U,19),X,-$P(^DGMT(408.31,DA,0),U),DA)="""""
^DD(408.31,.02,1,2,2)="K ^DGMT(408.31,""AID"",+$P(^DGMT(408.31,DA,0),U,19),X,-$P(^(0),U),DA)"
^DD(408.31,.02,1,2,"%D",0)="^^2^2^2921224^^^^"
^DD(408.31,.02,1,2,"%D",1,0)="This cross-reference can be used to sort by type of test by patient by"
^DD(408.31,.02,1,2,"%D",2,0)="inverse date of test by internal entry number."
^DD(408.31,.02,1,2,"DT")="2921224"
^DD(408.31,.02,1,3,0)="408.31^C"
^DD(408.31,.02,1,3,1)="S ^DGMT(408.31,""C"",$E(X,1,30),DA)="""""
^DD(408.31,.02,1,3,2)="K ^DGMT(408.31,""C"",$E(X,1,30),DA)"
^DD(408.31,.02,1,3,"%D",0)="^^1^1^2920326^"
^DD(408.31,.02,1,3,"%D",1,0)="This cross-reference allows look-up by patient."
^DD(408.31,.02,1,3,"DT")="2920109"
^DD(408.31,.02,1,4,0)="408.31^AD^MUMPS"
^DD(408.31,.02,1,4,1)="S:$P(^DGMT(408.31,DA,0),U,19) ^DGMT(408.31,""AD"",$P(^DGMT(408.31,DA,0),U,19),X,$P(^(0),U),DA)="""""
^DD(408.31,.02,1,4,2)="K ^DGMT(408.31,""AD"",+$P(^DGMT(408.31,DA,0),U,19),X,$P(^(0),U),DA)"
^DD(408.31,.02,1,4,"%D",0)="^^2^2^2921224^^^^"
^DD(408.31,.02,1,4,"%D",1,0)="This cross-reference can be used to sort by type of test by patient by date"
^DD(408.31,.02,1,4,"%D",2,0)="of test by internal entry number."
^DD(408.31,.02,1,4,"DT")="2921224"
^DD(408.31,.02,1,5,0)="^^TRIGGER^408.31^.03"
^DD(408.31,.02,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(408.31,.02,1,5,69.2) S Y=X,X=Y(2),X=X&Y I X S X=DIV S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(408.31,.02,1,5,1.4)"
^DD(408.31,.02,1,5,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"""") S X=$S('$D(^DG(408.32,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1))']"""""
^DD(408.31,.02,1,5,1.4)="S DIH=$S($D(^DGMT(408.31,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=408.31,DIG=.03 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(408.31,.02,1,5,2)="Q"
^DD(408.31,.02,1,5,69.2)="S Y(1)=$S($D(^DGMT(408.31,D0,0)):^(0),1:"""") S X=$S('$D(^DG(408.32,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1))']"""",Y(2)=X,Y(3)=X S X=$P(Y(1),U,19),X=X S X=X=1"
^DD(408.31,.02,1,5,"%D",0)="^^4^4^2921203^^^"
^DD(408.31,.02,1,5,"%D",1,0)="This triggered cross-reference will update the 'Status' field (#.03)."
^DD(408.31,.02,1,5,"%D",2,0)="If there is no status for the date of test, the status of 'REQUIRED'"
^DD(408.31,.02,1,5,"%D",3,0)="will automatically be assigned to the test.  This trigger only applies to"
^DD(408.31,.02,1,5,"%D",4,0)="means test."
^DD(408.31,.02,1,5,"CREATE CONDITION")="STATUS']""""&(INTERNAL(TYPE OF TEST)=1)"
^DD(408.31,.02,1,5,"CREATE VALUE")="""1"""
^DD(408.31,.02,1,5,"DELETE VALUE")="NO EFFECT"
^DD(408.31,.02,1,5,"DT")="2921203"
^DD(408.31,.02,1,5,"FIELD")="STATUS"
^DD(408.31,.02,1,6,0)="408.31^ADFN^MUMPS"
^DD(408.31,.02,1,6,1)="S ^DGMT(408.31,""ADFN""_X,+^DGMT(408.31,DA,0),DA)="""""
^DD(408.31,.02,1,6,2)="K ^DGMT(408.31,""ADFN""_X,+^DGMT(408.31,DA,0),DA)"
^DD(408.31,.02,1,6,"%D",0)="^^2^2^2930430^^"
^DD(408.31,.02,1,6,"%D",1,0)="This cross-reference is used to improve look-up performance for a"
^DD(408.31,.02,1,6,"%D",2,0)="select patient."
^DD(408.31,.02,1,6,"DT")="2920528"
^DD(408.31,.02,3)="Enter in this field a patient associated with this annual financial test."
^DD(408.31,.02,21,0)="^^1^1^2921224^^^"
^DD(408.31,.02,21,1,0)="Enter in this field a patient associated with this annual test."
^DD(408.31,.02,"DT")="2930519"
^DD(408.31,.03,0)="STATUS^R*P408.32'X^DG(408.32,^0;3^S DIC(""S"")=""I $$SCR^DGMTDD(Y,DA,$P(^DGMT(408.31,DA,0),U,19),$G(DGMTACT))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(408.31,.03,1,0)="^.1^^-1"
^DD(408.31,.03,1,1,0)="408.31^AS^MUMPS"
^DD(408.31,.03,1,1,1)="S:$P(^DGMT(408.31,DA,0),U,2)&($P(^(0),U,19)) ^DGMT(408.31,""AS"",$P(^(0),U,19),X,-$P(^(0),U),+$P(^(0),U,2),DA)="""""
^DD(408.31,.03,1,1,2)="K ^DGMT(408.31,""AS"",+$P(^DGMT(408.31,DA,0),U,19),X,-$P(^(0),U),+$P(^(0),U,2),DA)"
^DD(408.31,.03,1,1,"%D",0)="^^2^2^2930114^^^^"
^DD(408.31,.03,1,1,"%D",1,0)="This cross-reference can be used to sort by type of test by status by"
^DD(408.31,.03,1,1,"%D",2,0)="inverse date of test by patient by internal entry number."
^DD(408.31,.03,1,1,"DT")="2921224"
^DD(408.31,.03,1,2,0)="408.31^AC^MUMPS"
^DD(408.31,.03,1,2,1)="D CUR^DGMTDD"
^DD(408.31,.03,1,2,2)="D CUR^DGMTDD"
^DD(408.31,.03,1,2,"%D",0)="^^4^4^2921224^^^^"
^DD(408.31,.03,1,2,"%D",1,0)="This mumps cross-reference works like a ""trigger"" cross-reference."
^DD(408.31,.03,1,2,"%D",2,0)="When the status of the last date of test for a patient is updated,"
^DD(408.31,.03,1,2,"%D",3,0)="the 'Current Means Test Status' field (#.14) in the Patient file (#2)"
^DD(408.31,.03,1,2,"%D",4,0)="is updated.  This trigger only applies to means test."
^DD(408.31,.03,1,2,"DT")="2920115"
^DD(408.31,.03,3)="Enter in this field the financial test status."
^DD(408.31,.03,5,1,0)="408.31^.019^4"
^DD(408.31,.03,5,2,0)="408.31^.02^5"
^DD(408.31,.03,12)="Status must be active and valid."
^DD(408.31,.03,12.1)="S DIC(""S"")=""I $$SCR^DGMTDD(Y,DA,$P(^DGMT(408.31,DA,0),U,19),$G(DGMTACT))"""
^DD(408.31,.03,21,0)="^^1^1^2990916^^^^"
^DD(408.31,.03,21,1,0)="Enter in this field the status of the test."
^DD(408.31,.03,23,0)="^^4^4^2990916^^^^"
^DD(408.31,.03,23,1,0)="This field contains the financial test status.  Normally it  will be "
^DD(408.31,.03,23,2,0)="generated by the system.  Users who hold the DG MEANSTEST"
^DD(408.31,.03,23,3,0)="key will only be allowed to change a patient's means test status."
^DD(408.31,.03,23,4,0)="This change will be audited."
^DD(408.31,.03,"DT")="2990628"
^DD(408.31,.04,0)="INCOME^NJ13,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(408.31,.04,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(408.31,.04,21,0)="^^18^18^2921224^^^^"
^DD(408.31,.04,21,1,0)="This field is computed by the system.  It is a summation of each"
^DD(408.31,.04,21,2,0)="applicable family member's income in the Individual Annual Income"
^DD(408.31,.04,21,3,0)="file (#408.21) for the previous calendar year from date of test."
^DD(408.31,.04,21,4,0)=" "
^DD(408.31,.04,21,5,0)="If the veteran is married, the spouse's income will only be"
^DD(408.31,.04,21,6,0)="collected and subsequently included in the test under"
^DD(408.31,.04,21,7,0)="certain conditions.  The veteran and spouse must either live"
^DD(408.31,.04,21,8,0)="together or if they do not live together, the veteran must"
^DD(408.31,.04,21,9,0)="have contributed at least $600 to the spouse's support during"
^DD(408.31,.04,21,10,0)="the previous calendar year."
^DD(408.31,.04,21,11,0)=" "
^DD(408.31,.04,21,12,0)="If the veteran has dependent children, the children's income will"
^DD(408.31,.04,21,13,0)="only be collected and subsequently included in the test under"
^DD(408.31,.04,21,14,0)="certain conditions.  Only children who have income and whose income"
^DD(408.31,.04,21,15,0)="is available to the veteran need to provide income information."
^DD(408.31,.04,21,16,0)=" "
^DD(408.31,.04,21,17,0)="For means test, it is this cumulative family income which is used to derive "
^DD(408.31,.04,21,18,0)="the means test threshold(s), status and subsequent category of care."
^DD(408.31,.04,23,0)="^^1^1^2920325^"
^DD(408.31,.04,23,1,0)=" "
^DD(408.31,.04,"DT")="2941206"
^DD(408.31,.05,0)="NET WORTH^NJ12,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(408.31,.05,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(408.31,.05,21,0)="^^17^17^2921224^^^^"
^DD(408.31,.05,21,1,0)="This field is computed by the system.  Is a summation of the"
^DD(408.31,.05,21,2,0)="veteran and spouse (if applicable) net worth minus any debts"
^DD(408.31,.05,21,3,0)="in the Individual Annual Income file (#408.21) for the previous calendar"
^DD(408.31,.05,21,4,0)="year from date of test."
^DD(408.31,.05,21,5,0)=" "
^DD(408.31,.05,21,6,0)="If the veteran is married, the spouse's income will only be collected and"
^DD(408.31,.05,21,7,0)="subsequently included in the means test under certain conditions.  The"
^DD(408.31,.05,21,8,0)="veteran and spouse must either live together or if they do not live"
^DD(408.31,.05,21,9,0)="together, the veteran must have contributed at least $600 to the spouse's"
^DD(408.31,.05,21,10,0)="support during the previous calendar year."
^DD(408.31,.05,21,11,0)=" "
^DD(408.31,.05,21,12,0)="When determining the means test status and subsequent category of"
^DD(408.31,.05,21,13,0)="care, the system will require net worth be entered for those"
^DD(408.31,.05,21,14,0)="veteran's who require mandatory care."
^DD(408.31,.05,21,15,0)=" "
^DD(408.31,.05,21,16,0)="If the income plus net worth exceed the annual property threshold,"
^DD(408.31,.05,21,17,0)="the case can be sent to adjudication for the test."
^DD(408.31,.05,"DT")="2941206"
^DD(408.31,.06,0)="COMPLETED BY^P200'^VA(200,^0;6^Q"
^DD(408.31,.06,3)="This field contains the user who completed the financial test."
^DD(408.31,.06,21,0)="^^1^1^2921224^^^"
^DD(408.31,.06,21,1,0)="This field contains the user who completed the test."
^DD(408.31,.06,"DT")="2920103"
^DD(408.31,.07,0)="DATE/TIME COMPLETED^DX^^0;7^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X) D COM^DGMTDD"
^DD(408.31,.07,1,0)="^.1"
^DD(408.31,.07,1,1,0)="408.31^AG"
^DD(408.31,.07,1,1,1)="S ^DGMT(408.31,""AG"",$E(X,1,30),DA)="""""
^DD(408.31,.07,1,1,2)="K ^DGMT(408.31,""AG"",$E(X,1,30),DA)"
^DD(408.31,.07,1,1,"%D",0)="^^1^1^2990122^"
^DD(408.31,.07,1,1,"%D",1,0)="Used for Means Test Audit reports."
^DD(408.31,.07,1,1,"DT")="2990122"
^DD(408.31,.07,3)="This field contains the date/time the initial financial test was completed."
^DD(408.31,.07,21,0)="^^4^4^2940513^^^^"
^DD(408.31,.07,21,1,0)="This field contains the date/time the test was initially completed."
^DD(408.31,.07,21,2,0)="In the case where a means test is verified by IVM, this date/time will"
^DD(408.31,.07,21,3,0)="be the same as the date/time the original means test was completed at"
^DD(408.31,.07,21,4,0)="the medical center."
^DD(408.31,.07,"AUDIT")=""
^DD(408.31,.07,"DT")="2990122"
^DD(408.31,.08,0)="CATEGORY CHANGED BY^P200'^VA(200,^0;8^Q"
^DD(408.31,.08,3)="This field contains the last user who changed the means test category."
^DD(408.31,.08,21,0)="^^1^1^2921203^^^"
^DD(408.31,.08,21,1,0)="This field contains the last user who changed the means test category."
^DD(408.31,.08,"DT")="2920403"
^DD(408.31,.09,0)="DATE/TIME CATEGORY CHANGED^D^^0;9^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,.09,3)="This field contains the last date/time the means test category was changed."
^DD(408.31,.09,21,0)="^^1^1^2920403^^"
^DD(408.31,.09,21,1,0)="This field contains the last date/time the means test category was changed."
^DD(408.31,.09,"DT")="2920403"
^DD(408.31,.1,0)="ADJUDICATION DATE/TIME^D^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,.1,3)="This field contains the last date/time the financial test was adjudicated."
^DD(408.31,.1,21,0)="^^1^1^2921224^^^"
^DD(408.31,.1,21,1,0)="This field contains the last date/time the test was adjudicated."
^DD(408.31,.1,"DT")="2920403"
^DD(408.31,.11,0)="AGREED TO PAY DEDUCTIBLE^S^1:YES;0:NO;^0;11^Q"
^DD(408.31,.11,1,0)="^.1"
^DD(408.31,.11,1,1,0)="408.31^AAPD^MUMPS"
^DD(408.31,.11,1,1,1)="D:$G(DGMTYPT)<3 AUTOUPD^DGENA2(+$P(^DGMT(408.31,DA,0),U,2),2)"
^DD(408.31,.11,1,1,2)="D:$G(DGMTYPT)<3 AUTOUPD^DGENA2(+$P(^DGMT(408.31,DA,0),U,2),2)"
^DD(408.31,.11,1,1,"%D",0)="^.101^3^3^3020129^^^^"
^DD(408.31,.11,1,1,"%D",1,0)="Trigger to update Enrollment when updating the Agree to Pay Deductible"
^DD(408.31,.11,1,1,"%D",2,0)="field. Trigger routine is not called for a LTC copay test (type 3) or a"
^DD(408.31,.11,1,1,"%D",3,0)="LTC copay exemption test (type 4)."
^DD(408.31,.11,1,1,"DT")="3020129"
^DD(408.31,.11,3)="Enter in this field whether the veteran agrees to pay the deductible.  The veteran must also sign the 1010f form agreeing to pay the deductible."
^DD(408.31,.11,21,0)="^^3^3^2920326^^^^"
^DD(408.31,.11,21,1,0)="Enter in this field whether the veteran agrees to pay the"
^DD(408.31,.11,21,2,0)="deductible.  The veteran must also sign the 1010f form agreeing"
^DD(408.31,.11,21,3,0)="to pay the deductible."
^DD(408.31,.11,"DT")="3020129"
^DD(408.31,.12,0)="THRESHOLD A^NJ8,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(408.31,.12,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(408.31,.12,21,0)="^^8^8^2920721^^^^"
^DD(408.31,.12,21,1,0)="This field is computed by the system.  It contains the income"
^DD(408.31,.12,21,2,0)="threshold A as determined by the system for the veteran.  The"
^DD(408.31,.12,21,3,0)="threshold is determined by the system in the following manner:"
^DD(408.31,.12,21,4,0)=" "
^DD(408.31,.12,21,5,0)="Cat A Vet Income+Cat A First Dep+(Cat A Per Dep*(Num Dep-First Dep))"
^DD(408.31,.12,21,6,0)=" "
^DD(408.31,.12,21,7,0)="The means test thresholds are released annually by VHA and include"
^DD(408.31,.12,21,8,0)="the veteran and dependent income for the year."
^DD(408.31,.12,"DT")="2920108"
^DD(408.31,.13,0)="THRESHOLD B^NJ8,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(408.31,.13,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(408.31,.13,21,0)="^^8^8^2920721^^^"
^DD(408.31,.13,21,1,0)="This field is computed by the system.  It contains the income"
^DD(408.31,.13,21,2,0)="threshold B as determined by the system for the veteran.  The"
^DD(408.31,.13,21,3,0)="threshold is determined by the system in the following manner:"
^DD(408.31,.13,21,4,0)=" "
^DD(408.31,.13,21,5,0)="Cat B Vet Income+Cat B First Dep+(Cat B Per Dep*(Num Dep-First Dep))"
^DD(408.31,.13,21,6,0)=" "
^DD(408.31,.13,21,7,0)="The means test thresholds are released annually by VHA and include"
^DD(408.31,.13,21,8,0)="the veteran and dependent income for the year."
^DD(408.31,.13,"DT")="2920108"
^DD(408.31,.14,0)="DECLINES TO GIVE INCOME INFO^S^1:YES;0:NO;^0;14^Q"
^DD(408.31,.14,.1)="DECLINES TO GIVE INCOME INFORMATION"
^DD(408.31,.14,3)="Enter whether the veteran declines to provide income information."
^DD(408.31,.14,21,0)="^^3^3^2920429^^^^"
^DD(408.31,.14,21,1,0)="Enter whether the veteran declines to provide income"
^DD(408.31,.14,21,2,0)="information.  If the veteran declines; s/he is considered to"
^DD(408.31,.14,21,3,0)="be Category C and must agree to pay the deductible."
^DD(408.31,.14,"DT")="2920429"
^DD(408.31,.15,0)="DEDUCTIBLE EXPENSES^NJ13,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(408.31,.15,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(408.31,.15,21,0)="^^2^2^2920401^"
^DD(408.31,.15,21,1,0)="This field is computed by the system.  It is the summation of the veteran's"
^DD(408.31,.15,21,2,0)="deductible expenses in the Individual Annual Income file (#408.21)."
^DD(408.31,.15,"DT")="2941130"
^DD(408.31,.16,0)="PREVIOUS YEARS THRESHOLD^S^1:YES;^0;16^Q"
^DD(408.31,.16,1,0)="^.1"
^DD(408.31,.16,1,1,0)="408.31^AP^MUMPS"
^DD(408.31,.16,1,1,1)="S ^DGMT(408.31,""AP"",X,$P(^DGMT(408.31,DA,0),U),DA)="""""
^DD(408.31,.16,1,1,2)="K ^DGMT(408.31,""AP"",X,$P(^DGMT(408.31,DA,0),U),DA)"
^DD(408.31,.16,1,1,"%D",0)="^^2^2^2920406^"
^DD(408.31,.16,1,1,"%D",1,0)="This cross-reference can be used to sort by previous years threshold"
^DD(408.31,.16,1,1,"%D",2,0)="by date of test by internal entry number."
^DD(408.31,.16,1,1,"DT")="2920406"
^DD(408.31,.16,3)=""
^DD(408.31,.16,21,0)="^^4^4^2921203^^"
^DD(408.31,.16,21,1,0)="This field is filled in by the system.  The field is set to 'YES' if"
^DD(408.31,.16,21,2,0)="the previous years means test parameters are applied to the test."
^DD(408.31,.16,21,3,0)="This should only occur when the new parameters are not yet available"
^DD(408.31,.16,21,4,0)="to the field."
^DD(408.31,.16,"DT")="2920406"
^DD(408.31,.17,0)="NO LONGER REQUIRED DATE^D^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,.17,3)="This field contains the last date the means test was no longer required."
^DD(408.31,.17,21,0)="^^1^1^2920501^^"
^DD(408.31,.17,21,1,0)="This field contains the last date the means test was no longer required."
^DD(408.31,.17,"DT")="2920501"
^DD(408.31,.18,0)="TOTAL DEPENDENTS^NJ2,0^^0;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(408.31,.18,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(408.31,.18,21,0)="^^8^8^2930413^^"
^DD(408.31,.18,21,1,0)="This field is computed by the system.  It is a summation of the dependents "
^DD(408.31,.18,21,2,0)="and spouse (if applicable)."
^DD(408.31,.18,21,3,0)=" "
^DD(408.31,.18,21,4,0)="If the veteran is married, the spouse's will only be collected and"
^DD(408.31,.18,21,5,0)="subsequently included under certain conditions.  The veteran and spouse "
^DD(408.31,.18,21,6,0)="must either live together or if they do not live together, the veteran must "
^DD(408.31,.18,21,7,0)="have contributed at least $600 to the spouse's support during the previous "
^DD(408.31,.18,21,8,0)="calendar year."
^DD(408.31,.18,"DT")="2921202"
^DD(408.31,.2,0)="HARDSHIP?^S^1:YES;0:NO;^0;20^Q"
^DD(408.31,.2,1,0)="^.1"
^DD(408.31,.2,1,1,0)="408.31^AE"
^DD(408.31,.2,1,1,1)="S ^DGMT(408.31,""AE"",$E(X,1,30),DA)="""""
^DD(408.31,.2,1,1,2)="K ^DGMT(408.31,""AE"",$E(X,1,30),DA)"
^DD(408.31,.2,1,1,"%D",0)="^^2^2^2930426^"
^DD(408.31,.2,1,1,"%D",1,0)="This cross-reference are means tests that have been designated as hardships."
^DD(408.31,.2,1,1,"%D",2,0)=" "
^DD(408.31,.2,1,1,"DT")="2930426"
^DD(408.31,.2,1,2,0)="408.31^AF^MUMPS"
^DD(408.31,.2,1,2,1)="S:'X $P(^DGMT(408.31,DA,0),U,21,22)=""^"""
^DD(408.31,.2,1,2,2)="S:'$P(^DGMT(408.31,DA,0),U,20) $P(^DGMT(408.31,DA,0),U,21,22)=""^"""
^DD(408.31,.2,1,2,"%D",0)="^^3^3^2940718^^"
^DD(408.31,.2,1,2,"%D",1,0)=" "
^DD(408.31,.2,1,2,"%D",2,0)="If the hardship question is changed from a yes to a no or is deleted, this"
^DD(408.31,.2,1,2,"%D",3,0)="cross-reference will delete the review date and approved by fields."
^DD(408.31,.2,1,2,"DT")="2940718"
^DD(408.31,.2,3)="Enter 'YES' if this is a hardship case, otherwise 'NO'."
^DD(408.31,.2,"DT")="2940718"
^DD(408.31,.21,0)="HARDSHIP REVIEW DATE^RD^^0;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,.21,3)="Enter the date the hardship should be reviewed."
^DD(408.31,.21,"DT")="2930628"
^DD(408.31,.22,0)="APPROVED BY^RP200'^VA(200,^0;22^Q"
^DD(408.31,.22,3)="Enter the name of the person who approved the hardship."
^DD(408.31,.22,"DT")="2930628"
^DD(408.31,.23,0)="SOURCE OF INCOME TEST^RP408.34'^DG(408.34,^0;23^Q"
^DD(408.31,.23,3)="Enter the source from which this income test was received."
^DD(408.31,.23,9)="^"
^DD(408.31,.23,21,0)="^^9^9^2940316^"
^DD(408.31,.23,21,1,0)="This field is maintained by the means test software.  It is a pointer to"
^DD(408.31,.23,21,2,0)="the SOURCE OF INCOME TEST file (#408.34).  It indicates where the income"
^DD(408.31,.23,21,3,0)="test originated.  For example, if this field points to the VAMC entry, this"
^DD(408.31,.23,21,4,0)="means that the income test was obtained at the VA Medical Center by a user"
^DD(408.31,.23,21,5,0)="using the appropriate Means Test (or other income test) software."
^DD(408.31,.23,21,6,0)=" "
^DD(408.31,.23,21,7,0)="This field MUST NOT BE ALTERED in any way.  It is entered by the software"
^DD(408.31,.23,21,8,0)="and should never be edited or deleted.  Altering this data in any way will"
^DD(408.31,.23,21,9,0)="adversely impact the income testing functionality."
^DD(408.31,.23,"DT")="3060928"
^DD(408.31,.24,0)="DATE VETERAN SIGNED TEST^D^^0;24^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(2940101>X) X"
^DD(408.31,.24,3)="Enter a date between 1/1/1994 and 12/31/2099.  This will be the date the test was signed, but will only be answered if the test was administered outside the VAMC (i.e. at the IVM Center)."
^DD(408.31,.24,21,0)="^^2^2^2940922^^"
^DD(408.31,.24,21,1,0)="This field will contain the date the veteran signed the financial test"
^DD(408.31,.24,21,2,0)="IF the test is from a source other than the VAMC (i.e. IVM)."
^DD(408.31,.24,"DT")="2940513"
^DD(408.31,.25,0)="DATE IVM VERIFIED MT COMPLETED^D^^0;25^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(2940101>X) X"
^DD(408.31,.25,3)="Enter a date between 1/1/1994 and 12/31/2099."
^DD(408.31,.25,21,0)="^^2^2^2940923^"
^DD(408.31,.25,21,1,0)="This field will contain the date returned from the IVM Center that the"
^DD(408.31,.25,21,2,0)="means test was verified and completed."
^DD(408.31,.25,"DT")="2940922"
^DD(408.31,.26,0)="REFUSED TO SIGN^S^1:YES;0:NO;^0;26^Q"
^DD(408.31,.26,3)="Enter 'YES' if veteran refused to sign the means test, otherwise 'NO'."
^DD(408.31,.26,21,0)="^^2^2^2940923^"
^DD(408.31,.26,21,1,0)="This field returns an indicator from the IVM Center that the veteran"
^DD(408.31,.26,21,2,0)="refused to sign the means test."
^DD(408.31,.26,"DT")="2940923"
^DD(408.31,.27,0)="GMT THRESHOLD^NJ8,2^^0;27^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(408.31,.27,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(408.31,.27,21,0)="^.001^5^5^3020626^^"
^DD(408.31,.27,21,1,0)="This field is computed by the system.  It contains the GMT income "
^DD(408.31,.27,21,2,0)="threshold as determined by the system for the veteran.   The GMT "
^DD(408.31,.27,21,3,0)="threshold will be determined by locating the record in the GMT Thresholds "
^DD(408.31,.27,21,4,0)="file that corresponds to the FIPS code of the veteran's address and using "
^DD(408.31,.27,21,5,0)="the income amount for the veteran plus the number of dependents."
^DD(408.31,.27,"DT")="3020626"
^DD(408.31,.29,0)="MEANS TEST SIGNED?^S^1:YES;0:NO;9:DELETED;^0;29^Q"
^DD(408.31,.29,3)="This field is only populated by HEC."
^DD(408.31,.29,21,0)="^.001^1^1^3010717^^"
^DD(408.31,.29,21,1,0)="This field will indicate whether or not HEC has determined that a valid signature exists for this means test."
^DD(408.31,.29,"DT")="3010717"
^DD(408.31,1,0)="BULLETIN DATE^D^^BUL;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,1,3)="Enter the date in which the scheduling bulletin was sent."
^DD(408.31,1,"DT")="2930610"
^DD(408.31,2,0)="PRIMARY INCOME TEST FOR YEAR?^RS^1:YES;0:NO;^PRIM;1^Q"
^DD(408.31,2,3)="Enter 1 if this is the primary income test for this patient for this income year.  Enter 0 otherwise."
^DD(408.31,2,9)="^"
^DD(408.31,2,21,0)="^^9^9^2940316^"
^DD(408.31,2,21,1,0)="This field will be filled in automatically by the means test software.  It"
^DD(408.31,2,21,2,0)="will indicate whether this income test is the primary income test for this"
^DD(408.31,2,21,3,0)="patient for this income year.  If this field contains a 1, this income test"
^DD(408.31,2,21,4,0)="is considered the primary income test for the patient for the income year."
^DD(408.31,2,21,5,0)="If the field contains a 0, it means that the patient has another income test"
^DD(408.31,2,21,6,0)="for the year which is considered the primary income test."
^DD(408.31,2,21,7,0)=" "
^DD(408.31,2,21,8,0)="This field is set by the means test software and MUST NOT BE ALTERED via"
^DD(408.31,2,21,9,0)="FileMan."
^DD(408.31,2,23,0)="^^1^1^2940316^"
^DD(408.31,2,23,1,0)=" "
^DD(408.31,2,"DT")="3060928"
^DD(408.31,2.01,0)="HARDSHIP EFFECTIVE DATE^D^^2;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,2.01,3)="Enter the date the hardship is to be effective."
^DD(408.31,2.01,21,0)="^^1^1^2990611^"
^DD(408.31,2.01,21,1,0)="This field will indicate when the hardship is effective."
^DD(408.31,2.01,"DT")="2990611"
^DD(408.31,2.02,0)="DATE/TIME TEST LAST EDITED^D^^2;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,2.02,1,0)="^.1"
^DD(408.31,2.02,1,1,0)="408.31^AENR202^MUMPS"
^DD(408.31,2.02,1,1,1)="D E40831^DGRTRIG(DA)"
^DD(408.31,2.02,1,1,2)="D E40831^DGRTRIG(DA)"
^DD(408.31,2.02,1,1,3)=" DO NOT DELETE"
^DD(408.31,2.02,1,1,"%D",0)="^.101^2^2^3050913^^^^"
^DD(408.31,2.02,1,1,"%D",1,0)="This cross-reference is used to notify HEC of changes that may affect"
^DD(408.31,2.02,1,1,"%D",2,0)="enrollment."
^DD(408.31,2.02,1,1,"DT")="3050913"
^DD(408.31,2.02,3)="Enter when the test was last changed."
^DD(408.31,2.02,9)="^"
^DD(408.31,2.02,21,0)="^^1^1^2990611^"
^DD(408.31,2.02,21,1,0)="This field will indicate when the test was created or last edited."
^DD(408.31,2.02,"DT")="3050913"
^DD(408.31,2.03,0)="TEST-DETERMINED STATUS^P408.32'^DG(408.32,^2;3^Q"
^DD(408.31,2.03,1,0)="^.1"
^DD(408.31,2.03,1,1,0)="408.31^AH^MUMPS"
^DD(408.31,2.03,1,1,1)="Q"
^DD(408.31,2.03,1,1,2)="D STOPAUTO^DGMTDD(DA)"
^DD(408.31,2.03,1,1,3)="DO NOT DELETE!"
^DD(408.31,2.03,1,1,"%D",0)="^^14^14^2990630^^^"
^DD(408.31,2.03,1,1,"%D",1,0)="A pharmacy copay test and a means test may share the same income screening."
^DD(408.31,2.03,1,1,"%D",2,0)="When one test becomes inactive (No Longer Required or No Longer Applicable),"
^DD(408.31,2.03,1,1,"%D",3,0)="the status is saved in the Test Determined Status field so that it may be"
^DD(408.31,2.03,1,1,"%D",4,0)="reinstated again if the test becomes required. While one test is inactive,"
^DD(408.31,2.03,1,1,"%D",5,0)="the veteran may have another test in effect - for example, if he does not"
^DD(408.31,2.03,1,1,"%D",6,0)="require a means test, he may still be subject to the pharmacy copayments"
^DD(408.31,2.03,1,1,"%D",7,0)="and be eligible to take a pharmacy copayment exemption test.  If a pharmacy"
^DD(408.31,2.03,1,1,"%D",8,0)="copyment test is created, it will utilize the same income screening as was"
^DD(408.31,2.03,1,1,"%D",9,0)="in effect for the means test.  However, if the income screening is then"
^DD(408.31,2.03,1,1,"%D",10,0)="edited, and the veteran later becomes subject to being means tested, the old"
^DD(408.31,2.03,1,1,"%D",11,0)="means test should not be automatically re-completed based on the old status -"
^DD(408.31,2.03,1,1,"%D",12,0)="it needs to be re-completed and a new status determined based on the changed"
^DD(408.31,2.03,1,1,"%D",13,0)="income screening.  This cross-reference is meant to prevent the automatic"
^DD(408.31,2.03,1,1,"%D",14,0)="re-completion of the old test in this situation."
^DD(408.31,2.03,1,1,"DT")="2990630"
^DD(408.31,2.03,3)="Once the test is completed, this field will indicate the status based on income screening and networth adjudication."
^DD(408.31,2.03,21,0)="^^6^6^2990623^^^^"
^DD(408.31,2.03,21,1,0)="This field will be used to record the status determined by the income"
^DD(408.31,2.03,21,2,0)="screening or networth adjudication.  It will not change as the result of"
^DD(408.31,2.03,21,3,0)="a hardship determination or changes in eligibility.  It will be used to"
^DD(408.31,2.03,21,4,0)="automatically re-complete the test if the test is again required after"
^DD(408.31,2.03,21,5,0)="going to a status which indcates that it is not required based on changes"
^DD(408.31,2.03,21,6,0)="in eligibility."
^DD(408.31,2.03,"DT")="2990630"
^DD(408.31,2.04,0)="SITE GRANTING HARDSHIP^F^^2;4^K:$L(X)>7!($L(X)<3) X"
^DD(408.31,2.04,3)="Enter the station number with suffix of the user granting the hardship."
^DD(408.31,2.04,21,0)="^^2^2^2990611^"
^DD(408.31,2.04,21,1,0)="This will indicate the station down to the division level of the user who"
^DD(408.31,2.04,21,2,0)="entered the hardship determination."
^DD(408.31,2.04,"DT")="2990611"
^DD(408.31,2.05,0)="SITE CONDUCTING TEST^F^^2;5^K:$L(X)>7!($L(X)<3) X"
^DD(408.31,2.05,3)="Enter the station number with suffix of the user completing the means test."
^DD(408.31,2.05,21,0)="^^2^2^2990611^"
^DD(408.31,2.05,21,1,0)="This will indicate the site down to the division level of the user who completed"
^DD(408.31,2.05,21,2,0)="the test."
^DD(408.31,2.05,"DT")="2990614"
^DD(408.31,2.06,0)="LINKED RX COPAY/MEANS TEST^P408.31'^DGMT(408.31,^2;6^Q"
^DD(408.31,2.06,1,0)="^.1^^0"
^DD(408.31,2.06,3)="If an Rx Copay was created based on a means test, this field should link the two tests."
^DD(408.31,2.06,21,0)="^^9^9^2990628^"
^DD(408.31,2.06,21,1,0)="If an Rx copay test is created automatically based on a means test, they share"
^DD(408.31,2.06,21,2,0)="the same income screening.  This field should be used to link the two tests"
^DD(408.31,2.06,21,3,0)="together.  It will be used to shift the income screening back and forth to"
^DD(408.31,2.06,21,4,0)="the test that currently requires the income screening.  For example,"
^DD(408.31,2.06,21,5,0)="if a means test becomes not required, an Rx copay test may be automatically"
^DD(408.31,2.06,21,6,0)="created and all the income screening information would be re-pointed to"
^DD(408.31,2.06,21,7,0)="the Rx copay test away from the means test.  If a means test should ever become"
^DD(408.31,2.06,21,8,0)="required again, the pointers from the income screening data can be found and"
^DD(408.31,2.06,21,9,0)="re-pointed from this link."
^DD(408.31,2.06,"DT")="2990630"
^DD(408.31,2.07,0)="REASON FOR EXEMPTION^*P714.1'^EAS(714.1,^2;7^S DIC(""S"")=""I $P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(408.31,2.07,12)="Only Active file entries can be selected."
^DD(408.31,2.07,12.1)="S DIC(""S"")=""I $P(^(0),U,2)"""
^DD(408.31,2.07,21,0)="^.001^1^1^3010816^^^^"
^DD(408.31,2.07,21,1,0)="Select the reason why the veteran qualifies for an exemption from Long Term Care co-payments."
^DD(408.31,2.07,"DT")="3010816"
^DD(408.31,2.08,0)="LINKED LTC CO-PAY/MEANS TEST^P408.31'^DGMT(408.31,^2;8^Q"
^DD(408.31,2.08,1,0)="^.1"
^DD(408.31,2.08,1,1,0)="408.31^AT"
^DD(408.31,2.08,1,1,1)="S ^DGMT(408.31,""AT"",$E(X,1,30),DA)="""""
^DD(408.31,2.08,1,1,2)="K ^DGMT(408.31,""AT"",$E(X,1,30),DA)"
^DD(408.31,2.08,1,1,"DT")="3011217"
^DD(408.31,2.08,21,0)="^^4^4^3011217^"
^DD(408.31,2.08,21,1,0)="If this is a LTC CO-PAY TEST (type 3), this field will point to the"
^DD(408.31,2.08,21,2,0)="LTC CO-PAY EXEMPTION TEST (type 4) associated with this test.  If this"
^DD(408.31,2.08,21,3,0)="is a LTC CO-PAY EXEMPTION TEST (type 4), this field will point to the"
^DD(408.31,2.08,21,4,0)="MEANS TEST (type 1) associated with this the test."
^DD(408.31,2.08,"DT")="3011217"
^DD(408.31,2.09,0)="HARDSHIP REASON^F^^2;9^K:$L(X)>80!($L(X)<3) X"
^DD(408.31,2.09,3)="Enter Hardship Reason [3-80 characters]."
^DD(408.31,2.09,21,0)="^^1^1^3020626^"
^DD(408.31,2.09,21,1,0)="This field will indicate the reason for the Hardship."
^DD(408.31,2.09,"DT")="3020626"
^DD(408.31,2.1,0)="1010EC FORM^S^1:DEC 2002;^2;10^Q"
^DD(408.31,2.1,21,0)="^.001^2^2^3030825^^"
^DD(408.31,2.1,21,1,0)="This field indicates which version of the 10-10EC form was used to"
^DD(408.31,2.1,21,2,0)="complete the LTC copay test."
^DD(408.31,2.1,"DT")="3030825"
^DD(408.31,3,0)="INCOME DATA PURGED PER IRS/SSA^D^^PURGE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.31,3,21,0)="^^3^3^3000125^"
^DD(408.31,3,21,1,0)="If this field contains a date, the income data fields in this record have"
^DD(408.31,3,21,2,0)="been purged as required by Internal Revenue Service and/or Social Security"
^DD(408.31,3,21,3,0)="Administration."
^DD(408.31,3,"DT")="3000125"
^DD(408.31,50,0)="COMMENT^408.311^^C;0"
^DD(408.31,50,21,0)="^^1^1^2921203^^^"
^DD(408.31,50,21,1,0)="This field contains comments on the test."
^DD(408.31,50,"DT")="2920108"
^DD(408.31,"B","1010EC FORM",2.1)=""
^DD(408.31,"B","ADJUDICATION DATE/TIME",.1)=""
^DD(408.31,"B","AGREED TO PAY DEDUCTIBLE",.11)=""
^DD(408.31,"B","APPROVED BY",.22)=""
^DD(408.31,"B","BULLETIN DATE",1)=""
^DD(408.31,"B","CATEGORY CHANGED BY",.08)=""
^DD(408.31,"B","COMMENT",50)=""
^DD(408.31,"B","COMPLETED BY",.06)=""
^DD(408.31,"B","DATE IVM VERIFIED MT COMPLETED",.25)=""
^DD(408.31,"B","DATE OF TEST",.01)=""
^DD(408.31,"B","DATE VETERAN SIGNED TEST",.24)=""
^DD(408.31,"B","DATE/TIME CATEGORY CHANGED",.09)=""
^DD(408.31,"B","DATE/TIME COMPLETED",.07)=""
^DD(408.31,"B","DATE/TIME TEST LAST EDITED",2.02)=""
^DD(408.31,"B","DECLINES TO GIVE INCOME INFO",.14)=""
^DD(408.31,"B","DEDUCTIBLE EXPENSES",.15)=""
^DD(408.31,"B","GMT THRESHOLD",.27)=""
^DD(408.31,"B","HARDSHIP EFFECTIVE DATE",2.01)=""
^DD(408.31,"B","HARDSHIP REASON",2.09)=""
^DD(408.31,"B","HARDSHIP REVIEW DATE",.21)=""
^DD(408.31,"B","HARDSHIP?",.2)=""
^DD(408.31,"B","INCOME",.04)=""
^DD(408.31,"B","INCOME DATA PURGED PER IRS/SSA",3)=""
^DD(408.31,"B","LINKED LTC CO-PAY/MEANS TEST",2.08)=""
^DD(408.31,"B","LINKED RX COPAY/MEANS TEST",2.06)=""
^DD(408.31,"B","MEANS TEST SIGNED?",.29)=""
^DD(408.31,"B","NET WORTH",.05)=""
^DD(408.31,"B","NO LONGER REQUIRED DATE",.17)=""
^DD(408.31,"B","PATIENT",.02)=""
^DD(408.31,"B","PREVIOUS YEARS THRESHOLD",.16)=""
^DD(408.31,"B","PRIMARY INCOME TEST FOR YEAR?",2)=""
^DD(408.31,"B","REASON FOR EXEMPTION",2.07)=""
^DD(408.31,"B","REFUSED TO SIGN",.26)=""
^DD(408.31,"B","SITE CONDUCTING TEST",2.05)=""
^DD(408.31,"B","SITE GRANTING HARDSHIP",2.04)=""
^DD(408.31,"B","SOURCE OF INCOME TEST",.23)=""
^DD(408.31,"B","STATUS",.03)=""
^DD(408.31,"B","TEST-DETERMINED STATUS",2.03)=""
^DD(408.31,"B","THRESHOLD A",.12)=""
^DD(408.31,"B","THRESHOLD B",.13)=""
^DD(408.31,"B","TOTAL DEPENDENTS",.18)=""
^DD(408.31,"B","TYPE OF TEST",.019)=""
^DD(408.31,"GL",0,1,.01)=""
^DD(408.31,"GL",0,2,.02)=""
^DD(408.31,"GL",0,3,.03)=""
^DD(408.31,"GL",0,4,.04)=""
^DD(408.31,"GL",0,5,.05)=""
^DD(408.31,"GL",0,6,.06)=""
^DD(408.31,"GL",0,7,.07)=""
^DD(408.31,"GL",0,8,.08)=""
^DD(408.31,"GL",0,9,.09)=""
^DD(408.31,"GL",0,10,.1)=""
^DD(408.31,"GL",0,11,.11)=""
^DD(408.31,"GL",0,12,.12)=""
^DD(408.31,"GL",0,13,.13)=""
^DD(408.31,"GL",0,14,.14)=""
^DD(408.31,"GL",0,15,.15)=""
^DD(408.31,"GL",0,16,.16)=""
^DD(408.31,"GL",0,17,.17)=""
^DD(408.31,"GL",0,18,.18)=""
^DD(408.31,"GL",0,19,.019)=""
^DD(408.31,"GL",0,20,.2)=""
^DD(408.31,"GL",0,21,.21)=""
^DD(408.31,"GL",0,22,.22)=""
^DD(408.31,"GL",0,23,.23)=""
^DD(408.31,"GL",0,24,.24)=""
^DD(408.31,"GL",0,25,.25)=""
^DD(408.31,"GL",0,26,.26)=""
^DD(408.31,"GL",0,27,.27)=""
^DD(408.31,"GL",0,29,.29)=""
^DD(408.31,"GL",2,1,2.01)=""
^DD(408.31,"GL",2,2,2.02)=""
^DD(408.31,"GL",2,3,2.03)=""
^DD(408.31,"GL",2,4,2.04)=""
^DD(408.31,"GL",2,5,2.05)=""
^DD(408.31,"GL",2,6,2.06)=""
^DD(408.31,"GL",2,7,2.07)=""
^DD(408.31,"GL",2,8,2.08)=""
^DD(408.31,"GL",2,9,2.09)=""
^DD(408.31,"GL",2,10,2.1)=""
^DD(408.31,"GL","BUL",1,1)=""
^DD(408.31,"GL","C",0,50)=""
^DD(408.31,"GL","PRIM",1,2)=""
^DD(408.31,"GL","PURGE",1,3)=""
^DD(408.31,"IX",.01)=""
^DD(408.31,"IX",.019)=""
^DD(408.31,"IX",.02)=""
^DD(408.31,"IX",.03)=""
^DD(408.31,"IX",.07)=""
^DD(408.31,"IX",.11)=""
^DD(408.31,"IX",.16)=""
^DD(408.31,"IX",.2)=""
^DD(408.31,"IX",2.02)=""
^DD(408.31,"IX",2.03)=""
^DD(408.31,"IX",2.08)=""
^DD(408.31,"RQ",.01)=""
^DD(408.31,"RQ",.019)=""
^DD(408.31,"RQ",.02)=""
^DD(408.31,"RQ",.03)=""
^DD(408.31,"RQ",.21)=""
^DD(408.31,"RQ",.22)=""
^DD(408.31,"RQ",.23)=""
^DD(408.31,"RQ",2)=""
^DD(408.31,"SB",408.311,50)=""
^DD(408.311,0)="COMMENT SUB-FIELD^^.01^1"
^DD(408.311,0,"DT")="2920107"
^DD(408.311,0,"NM","COMMENT")=""
^DD(408.311,0,"UP")="408.31"
^DD(408.311,.01,0)="COMMENT^WL^^0;1^Q"
^DD(408.311,.01,3)="This field contains comments on the means test."
^DD(408.311,.01,"DT")="2920108"
^DD(408.311,"B","COMMENT",.01)=""
^DD(408.311,"GL",0,1,.01)=""
^DD(408.32,0)="FIELD^^100^8"
^DD(408.32,0,"DT")="2921230"
^DD(408.32,0,"ID",.019)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(408.33,+$P(^(0),U,19),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(408.33,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(408.32,0,"IX","AC",408.32,.019)=""
^DD(408.32,0,"IX","AC1",408.32,.02)=""
^DD(408.32,0,"IX","B",408.32,.01)=""
^DD(408.32,0,"IX","C",408.32,.02)=""
^DD(408.32,0,"NM","MEANS TEST STATUS")=""
^DD(408.32,0,"PT",2,.14)=""
^DD(408.32,0,"PT",27.11,50.14)=""
^DD(408.32,0,"PT",301.6,1.01)=""
^DD(408.32,0,"PT",408.31,.03)=""
^DD(408.32,0,"PT",408.31,2.03)=""
^DD(408.32,0,"VR")="5.3"
^DD(408.32,.001,0)="ENTRY NUMBER^NJ3,0I^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(408.32,.001,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(408.32,.001,21,0)="^^1^1^2920408^"
^DD(408.32,.001,21,1,0)="Enter in this field the internal entry number associated with this status."
^DD(408.32,.001,"DT")="2920114"
^DD(408.32,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(408.32,.01,1,0)="^.1"
^DD(408.32,.01,1,1,0)="408.32^B"
^DD(408.32,.01,1,1,1)="S ^DG(408.32,""B"",$E(X,1,30),DA)="""""
^DD(408.32,.01,1,1,2)="K ^DG(408.32,""B"",$E(X,1,30),DA)"
^DD(408.32,.01,1,1,"%D",0)="^^1^1^2920408^"
^DD(408.32,.01,1,1,"%D",1,0)="This cross-reference allows look-up by name."
^DD(408.32,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(408.32,.01,21,0)="^^1^1^2921228^^"
^DD(408.32,.01,21,1,0)="Enter in this field the name of the financial test status."
^DD(408.32,.01,"DEL",1,0)="I 1 W !,*7,""Deletion of a means test status is not allowed."""
^DD(408.32,.01,"DT")="2930202"
^DD(408.32,.019,0)="TYPE OF TEST^RP408.33'I^DG(408.33,^0;19^Q"
^DD(408.32,.019,1,0)="^.1"
^DD(408.32,.019,1,1,0)="408.32^AC^MUMPS"
^DD(408.32,.019,1,1,1)="S:$P(^DG(408.32,DA,0),U,2) ^DG(408.32,""AC"",X,+$P(^(0),U,2),DA)="""""
^DD(408.32,.019,1,1,2)="K ^DG(408.32,""AC"",X,+$P(^DG(408.32,DA,0),U,2),DA)"
^DD(408.32,.019,1,1,"%D",0)="^^2^2^2921230^"
^DD(408.32,.019,1,1,"%D",1,0)="This cross reference can be used to sort by type of test by code by"
^DD(408.32,.019,1,1,"%D",2,0)="internal entry number."
^DD(408.32,.019,1,1,"DT")="2921230"
^DD(408.32,.019,3)="Enter the type of test associated with the status."
^DD(408.32,.019,"DT")="2930202"
^DD(408.32,.02,0)="CODE^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X"
^DD(408.32,.02,1,0)="^.1"
^DD(408.32,.02,1,1,0)="408.32^C"
^DD(408.32,.02,1,1,1)="S ^DG(408.32,""C"",$E(X,1,30),DA)="""""
^DD(408.32,.02,1,1,2)="K ^DG(408.32,""C"",$E(X,1,30),DA)"
^DD(408.32,.02,1,1,"%D",0)="^^1^1^2920408^"
^DD(408.32,.02,1,1,"%D",1,0)="This cross-reference allows look-up by code."
^DD(408.32,.02,1,1,"DT")="2920107"
^DD(408.32,.02,1,2,0)="408.32^AC1^MUMPS"
^DD(408.32,.02,1,2,1)="S:$P(^DG(408.32,DA,0),U,19) ^DG(408.32,""AC"",+$P(^(0),U,19),X,DA)="""""
^DD(408.32,.02,1,2,2)="K ^DG(408.32,""AC"",+$P(^DG(408.32,DA,0),U,19),X,DA)"
^DD(408.32,.02,1,2,"%D",0)="^^2^2^2921230^^^^"
^DD(408.32,.02,1,2,"%D",1,0)="This cross reference can be used to sort by type of test by code by"
^DD(408.32,.02,1,2,"%D",2,0)="internal entry number."
^DD(408.32,.02,1,2,"DT")="2921230"
^DD(408.32,.02,3)="Answer must be 1 character in length."
^DD(408.32,.02,21,0)="^^1^1^2921228^^"
^DD(408.32,.02,21,1,0)="Enter in this field the code associated with the financial test status."
^DD(408.32,.02,"DT")="2930302"
^DD(408.32,.03,0)="TYPE OF CARE^RS^D:DISCRETIONARY;M:MANDATORY;N:NOT APPLICABLE;^0;3^Q"
^DD(408.32,.03,3)="Enter in this field the type of care the financial test status is associated with."
^DD(408.32,.03,21,0)="^^2^2^2921228^^"
^DD(408.32,.03,21,1,0)="Enter in this field the type of care the financial test status is"
^DD(408.32,.03,21,2,0)="associated with."
^DD(408.32,.03,"DT")="2920224"
^DD(408.32,50,0)="DESCRIPTION^408.321^^D;0"
^DD(408.32,50,21,0)="^^1^1^2921228^^"
^DD(408.32,50,21,1,0)="Enter in this field the description associated with the financial test status."
^DD(408.32,75,0)="EFFECTIVE DATE^408.3275DA^^E;0"
^DD(408.32,75,21,0)="^^1^1^2921228^^"
^DD(408.32,75,21,1,0)="Enter in this field the effective date of the financial test status."
^DD(408.32,100,0)="MESSAGE^F^^MSG;1^K:$L(X)>80!($L(X)<1) X"
^DD(408.32,100,3)="Answer must be 1-80 characters in length."
^DD(408.32,100,21,0)="^^1^1^2921228^^"
^DD(408.32,100,21,1,0)="Enter in this field the message associated with the financial test status."
^DD(408.32,100,"DT")="2920214"
^DD(408.32,"B","CODE",.02)=""
^DD(408.32,"B","DESCRIPTION",50)=""
^DD(408.32,"B","EFFECTIVE DATE",75)=""
^DD(408.32,"B","ENTRY NUMBER",.001)=""
^DD(408.32,"B","MESSAGE",100)=""
^DD(408.32,"B","NAME",.01)=""
^DD(408.32,"B","TYPE OF CARE",.03)=""
^DD(408.32,"B","TYPE OF TEST",.019)=""
^DD(408.32,"GL",0,1,.01)=""
^DD(408.32,"GL",0,2,.02)=""
^DD(408.32,"GL",0,3,.03)=""
^DD(408.32,"GL",0,19,.019)=""
^DD(408.32,"GL","D",0,50)=""
^DD(408.32,"GL","E",0,75)=""
^DD(408.32,"GL","MSG",1,100)=""
^DD(408.32,"IX",.01)=""
^DD(408.32,"IX",.019)=""
^DD(408.32,"IX",.02)=""
^DD(408.32,"RQ",.01)=""
^DD(408.32,"RQ",.019)=""
^DD(408.32,"RQ",.02)=""
^DD(408.32,"RQ",.03)=""
^DD(408.32,"SB",408.321,50)=""
^DD(408.32,"SB",408.3275,75)=""
^DD(408.321,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(408.321,0,"DT")="2920103"
^DD(408.321,0,"NM","DESCRIPTION")=""
^DD(408.321,0,"UP")="408.32"
^DD(408.321,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(408.321,.01,3)="Enter in this field the description associated with the means test status."
^DD(408.321,.01,21,0)="^^1^1^2920408^"
^DD(408.321,.01,21,1,0)="Enter in this field the description associated with the means test status."
^DD(408.321,.01,"DT")="2920103"
^DD(408.321,"B","DESCRIPTION",.01)=""
^DD(408.321,"GL",0,1,.01)=""
^DD(408.3275,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(408.3275,0,"DT")="2920221"
^DD(408.3275,0,"IX","AID",408.3275,.01)=""
^DD(408.3275,0,"IX","B",408.3275,.01)=""
^DD(408.3275,0,"NM","EFFECTIVE DATE")=""
^DD(408.3275,0,"UP")="408.32"
^DD(408.3275,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(408.3275,.01,1,0)="^.1"
^DD(408.3275,.01,1,1,0)="408.3275^B"
^DD(408.3275,.01,1,1,1)="S ^DG(408.32,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(408.3275,.01,1,1,2)="K ^DG(408.32,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(408.3275,.01,1,1,"%D",0)="^^1^1^2920408^"
^DD(408.3275,.01,1,1,"%D",1,0)="This cross-reference allows look-up by effective date."
^DD(408.3275,.01,1,2,0)="408.3275^AID^MUMPS"
^DD(408.3275,.01,1,2,1)="S ^DG(408.32,DA(1),""E"",""AID"",-X,DA)="""""
^DD(408.3275,.01,1,2,2)="K ^DG(408.32,DA(1),""E"",""AID"",-X,DA)"
^DD(408.3275,.01,1,2,"%D",0)="^^3^3^2920408^"
^DD(408.3275,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by means test status"
^DD(408.3275,.01,1,2,"%D",2,0)="internal entry number by inverse effective data by internal"
^DD(408.3275,.01,1,2,"%D",3,0)="entry number of the effective date."
^DD(408.3275,.01,1,2,"DT")="2920221"
^DD(408.3275,.01,3)="Enter in this field the effective date of the financial test status."
^DD(408.3275,.01,21,0)="^^1^1^2921228^^^"
^DD(408.3275,.01,21,1,0)="Enter in this field the effective date of the financial test status."
^DD(408.3275,.01,"DT")="2920221"
^DD(408.3275,.02,0)="ACTIVE^RS^1:YES;0:NO;^0;2^Q"
^DD(408.3275,.02,3)="Enter in this field whether or not the effective date of the financial test status is active."
^DD(408.3275,.02,21,0)="^^2^2^2921228^^^"
^DD(408.3275,.02,21,1,0)="Enter in this field whether or not the effective date of the financial test"
^DD(408.3275,.02,21,2,0)="status is active."
^DD(408.3275,.02,"DT")="2920221"
^DD(408.3275,"B","ACTIVE",.02)=""
^DD(408.3275,"B","EFFECTIVE DATE",.01)=""
^DD(408.3275,"GL",0,1,.01)=""
^DD(408.3275,"GL",0,2,.02)=""
^DD(408.3275,"IX",.01)=""
^DD(408.3275,"RQ",.01)=""
^DD(408.3275,"RQ",.02)=""
^DD(408.33,0)="FIELD^^.01^2"
^DD(408.33,0,"DDA")="N"
^DD(408.33,0,"DT")="2921224"
^DD(408.33,0,"IX","B",408.33,.01)=""
^DD(408.33,0,"NM","TYPE OF TEST")=""
^DD(408.33,0,"PT",408.31,.019)=""
^DD(408.33,0,"PT",408.32,.019)=""
^DD(408.33,0,"PT",408.41,.019)=""
^DD(408.33,0,"VR")="5.3"
^DD(408.33,.001,0)="NUMBER^NJ3,0I^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(408.33,.001,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(408.33,.001,21,0)="^^2^2^2921224^"
^DD(408.33,.001,21,1,0)="Enter in this field the internal entry number associated with this type of"
^DD(408.33,.001,21,2,0)="test."
^DD(408.33,.001,"DT")="2930126"
^DD(408.33,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(408.33,.01,1,0)="^.1"
^DD(408.33,.01,1,1,0)="408.33^B"
^DD(408.33,.01,1,1,1)="S ^DG(408.33,""B"",$E(X,1,30),DA)="""""
^DD(408.33,.01,1,1,2)="K ^DG(408.33,""B"",$E(X,1,30),DA)"
^DD(408.33,.01,3)="Answer must be 3-30 characters in length."
^DD(408.33,.01,21,0)="^^1^1^2921224^"
^DD(408.33,.01,21,1,0)="Enter in this field the name of the type of test."
^DD(408.33,.01,"DT")="2930126"
^DD(408.33,"B","NAME",.01)=""
^DD(408.33,"B","NUMBER",.001)=""
^DD(408.33,"GL",0,1,.01)=""
^DD(408.33,"IX",.01)=""
^DD(408.33,"RQ",.01)=""
^DD(408.34,0)="FIELD^^1^3"
^DD(408.34,0,"DDA")="N"
^DD(408.34,0,"DT")="2940316"
^DD(408.34,0,"IX","B",408.34,.01)=""
^DD(408.34,0,"NM","SOURCE OF INCOME TEST")=""
^DD(408.34,0,"PT",408.31,.23)=""
^DD(408.34,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(408.34,.01,1,0)="^.1"
^DD(408.34,.01,1,1,0)="408.34^B"
^DD(408.34,.01,1,1,1)="S ^DG(408.34,""B"",$E(X,1,30),DA)="""""
^DD(408.34,.01,1,1,2)="K ^DG(408.34,""B"",$E(X,1,30),DA)"
^DD(408.34,.01,3)="Enter the name of the source for the income test.  Answer must be 3-30 characters in length."
^DD(408.34,.01,21,0)="^^8^8^2940316^"
^DD(408.34,.01,21,1,0)="This file contains the various sources from which a DHCP income test"
^DD(408.34,.01,21,2,0)="may be received.  This would include, but is not limited to, USER if the "
^DD(408.34,.01,21,3,0)="income test is administered by a DHCP user or IVM if the income test "
^DD(408.34,.01,21,4,0)="is verified by the Income Verification Match Center."
^DD(408.34,.01,21,5,0)=" "
^DD(408.34,.01,21,6,0)="This file is distributed with file entries intact.  It should not be"
^DD(408.34,.01,21,7,0)="edited for any reason.  Editing of this file, or entries in it, could "
^DD(408.34,.01,21,8,0)="cause data corruption."
^DD(408.34,.01,23,0)="^^1^1^2940316^"
^DD(408.34,.01,23,1,0)=" "
^DD(408.34,.01,"DT")="2940316"
^DD(408.34,.02,0)="TEST IS EDITABLE?^RSI^1:YES;0:NO;^0;2^Q"
^DD(408.34,.02,3)="Enter 1 if income tests from this source are editable.  Enter 0 otherwise."
^DD(408.34,.02,21,0)="^^6^6^2940316^"
^DD(408.34,.02,21,1,0)="This field will contain a 1 if income test from this source are editable."
^DD(408.34,.02,21,2,0)="Otherwise, this field will contain a 0."
^DD(408.34,.02,21,3,0)=" "
^DD(408.34,.02,21,4,0)="Data in this file is maintained by the software package and should not"
^DD(408.34,.02,21,5,0)="be altered in anyway.  Any change to data in this file could result in"
^DD(408.34,.02,21,6,0)="data corruption or software functioning improperly."
^DD(408.34,.02,"DT")="2940316"
^DD(408.34,1,0)="DESCRIPTION^408.341^^DESC;0"
^DD(408.34,1,21,0)="^^2^2^2940316^"
^DD(408.34,1,21,1,0)="This field will contain a word processing description of the income"
^DD(408.34,1,21,2,0)="source."
^DD(408.34,"B","DESCRIPTION",1)=""
^DD(408.34,"B","NAME",.01)=""
^DD(408.34,"B","TEST IS EDITABLE?",.02)=""
^DD(408.34,"GL",0,1,.01)=""
^DD(408.34,"GL",0,2,.02)=""
^DD(408.34,"GL","DESC",0,1)=""
^DD(408.34,"IX",.01)=""
^DD(408.34,"RQ",.01)=""
^DD(408.34,"RQ",.02)=""
^DD(408.34,"SB",408.341,1)=""
^DD(408.341,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(408.341,0,"DT")="2940316"
^DD(408.341,0,"NM","DESCRIPTION")=""
^DD(408.341,0,"UP")="408.34"
^DD(408.341,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(408.341,.01,3)="Enter the description of this income source"
^DD(408.341,.01,"DT")="2940316"
^DD(408.341,"B","DESCRIPTION",.01)=""
^DD(408.341,"GL",0,1,.01)=""
^DD(408.41,0)="FIELD^^.1^11"
^DD(408.41,0,"DDA")="N"
^DD(408.41,0,"DT")="2940510"
^DD(408.41,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DGMT(408.31,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(408.31,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(408.41,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(408.41,0,"IX","AM",408.41,.04)=""
^DD(408.41,0,"IX","AM1",408.41,.03)=""
^DD(408.41,0,"IX","AM2",408.41,.019)=""
^DD(408.41,0,"IX","B",408.41,.01)=""
^DD(408.41,0,"IX","C",408.41,.04)=""
^DD(408.41,0,"IX","D",408.41,.03)=""
^DD(408.41,0,"NM","MEANS TEST CHANGES")=""
^DD(408.41,0,"VR")="5.3"
^DD(408.41,.01,0)="DATE OF CHANGE^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(408.41,.01,1,0)="^.1"
^DD(408.41,.01,1,1,0)="408.41^B"
^DD(408.41,.01,1,1,1)="S ^DGMT(408.41,""B"",$E(X,1,30),DA)="""""
^DD(408.41,.01,1,1,2)="K ^DGMT(408.41,""B"",$E(X,1,30),DA)"
^DD(408.41,.01,3)="Enter the date/time a change was made to a means test."
^DD(408.41,.01,21,0)="^^1^1^2920427^^"
^DD(408.41,.01,21,1,0)="Date change was made to a means test in file 408.31."
^DD(408.41,.01,"AUDIT")=""
^DD(408.41,.01,"DT")="2920211"
^DD(408.41,.019,0)="TYPE OF TEST^RP408.33'^DG(408.33,^0;19^Q"
^DD(408.41,.019,1,0)="^.1"
^DD(408.41,.019,1,1,0)="408.41^AM2^MUMPS"
^DD(408.41,.019,1,1,1)="S:$P(^DGMT(408.41,DA,0),U,3)&($P(^(0),U,4)) ^DGMT(408.41,""AM"",X,+$P(^(0),U,4),+$P(^(0),U,3),DA)="""""
^DD(408.41,.019,1,1,2)="K ^DGMT(408.41,""AM"",X,+$P(^DGMT(408.41,DA,0),U,4),+$P(^(0),U,3),DA)"
^DD(408.41,.019,1,1,"%D",0)="^^2^2^2921230^"
^DD(408.41,.019,1,1,"%D",1,0)="Sets AM cross-reference - fields involved are Type of Test (.019), Patient"
^DD(408.41,.019,1,1,"%D",2,0)="(.04) and Means Test (.03)."
^DD(408.41,.019,1,1,"DT")="2921230"
^DD(408.41,.019,3)="Enter the type of test associated with the financial test change."
^DD(408.41,.019,21,0)="^^1^1^2921230^"
^DD(408.41,.019,21,1,0)="This field is a pointer to the type of test file, 408.33."
^DD(408.41,.019,"DT")="2921230"
^DD(408.41,.02,0)="TYPE OF CHANGE^R*P408.42'^DG(408.42,^0;2^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(408.41,.02,3)="Enter the type of change for the means test."
^DD(408.41,.02,12)="Screen out those change types which have been inactivated."
^DD(408.41,.02,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(408.41,.02,21,0)="^^2^2^2920427^"
^DD(408.41,.02,21,1,0)="The Type of Change field identifies the reason why an entry was made"
^DD(408.41,.02,21,2,0)="into this file."
^DD(408.41,.02,"DT")="2920211"
^DD(408.41,.03,0)="MEANS TEST^R*P408.31'^DGMT(408.31,^0;3^S DIC(""S"")=""I $D(D0),$P(^DGMT(408.41,D0,0),U,4)=$P(^DGMT(408.31,Y,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(408.41,.03,1,0)="^.1"
^DD(408.41,.03,1,1,0)="408.41^D"
^DD(408.41,.03,1,1,1)="S ^DGMT(408.41,""D"",$E(X,1,30),DA)="""""
^DD(408.41,.03,1,1,2)="K ^DGMT(408.41,""D"",$E(X,1,30),DA)"
^DD(408.41,.03,1,1,"%D",0)="^^1^1^2920331^"
^DD(408.41,.03,1,1,"%D",1,0)="Regular cross-reference for look-up/sort by means test date"
^DD(408.41,.03,1,1,"DT")="2920331"
^DD(408.41,.03,1,2,0)="408.41^AM1^MUMPS"
^DD(408.41,.03,1,2,1)="S:$P(^DGMT(408.41,DA,0),U,4)&$P(^(0),U,19) ^DGMT(408.41,""AM"",+$P(^(0),U,19),+$P(^(0),U,4),X,DA)="""""
^DD(408.41,.03,1,2,2)="K ^DGMT(408.41,""AM"",+$P(^DGMT(408.41,DA,0),U,19),+$P(^(0),U,4),X,DA)"
^DD(408.41,.03,1,2,"%D",0)="^^2^2^2930126^^^^"
^DD(408.41,.03,1,2,"%D",1,0)="Sets AM cross-reference - fields involved are Type of Test (.019), Patient "
^DD(408.41,.03,1,2,"%D",2,0)="(.04) and Means Test (.03). "
^DD(408.41,.03,1,2,"DT")="2930126"
^DD(408.41,.03,3)="Enter the means test which was changed."
^DD(408.41,.03,12)="Display all means tests for a patient"
^DD(408.41,.03,12.1)="S DIC(""S"")=""I $D(D0),$P(^DGMT(408.41,D0,0),U,4)=$P(^DGMT(408.31,Y,0),U,2)"""
^DD(408.41,.03,21,0)="^^1^1^2920624^^"
^DD(408.41,.03,21,1,0)="This field contains the means test which was acted upon."
^DD(408.41,.03,"DT")="2930126"
^DD(408.41,.04,0)="PATIENT^RP2'^DPT(^0;4^Q"
^DD(408.41,.04,1,0)="^.1"
^DD(408.41,.04,1,1,0)="408.41^C"
^DD(408.41,.04,1,1,1)="S ^DGMT(408.41,""C"",$E(X,1,30),DA)="""""
^DD(408.41,.04,1,1,2)="K ^DGMT(408.41,""C"",$E(X,1,30),DA)"
^DD(408.41,.04,1,1,"%D",0)="^^1^1^2920331^"
^DD(408.41,.04,1,1,"%D",1,0)="Regular cross-reference for look-up/sort by patient"
^DD(408.41,.04,1,1,"DT")="2920331"
^DD(408.41,.04,1,2,0)="408.41^AM^MUMPS"
^DD(408.41,.04,1,2,1)="S:$P(^DGMT(408.41,DA,0),U,3)&($P(^(0),U,19)) ^DGMT(408.41,""AM"",+$P(^(0),U,19),X,+$P(^(0),U,3),DA)="""""
^DD(408.41,.04,1,2,2)="K ^DGMT(408.41,""AM"",+$P(^DGMT(408.41,DA,0),U,19),X,+$P(^(0),U,3),DA)"
^DD(408.41,.04,1,2,"%D",0)="^^2^2^2930126^^^^"
^DD(408.41,.04,1,2,"%D",1,0)="Sets AM cross-reference - fields involved are Type of Test (.019), Patient "
^DD(408.41,.04,1,2,"%D",2,0)="(.04) and Means Test (.03). "
^DD(408.41,.04,1,2,"DT")="2930126"
^DD(408.41,.04,3)="Enter the patient associated with the changed means test."
^DD(408.41,.04,21,0)="^^1^1^2920427^"
^DD(408.41,.04,21,1,0)="This field contains the patient associated with the means test."
^DD(408.41,.04,"DT")="2930126"
^DD(408.41,.05,0)="OLD VALUE^F^^0;5^K:$L(X)>30!($L(X)<2) X"
^DD(408.41,.05,3)="Answer must be 2-30 characters in length."
^DD(408.41,.05,21,0)="^^2^2^2920716^^^^"
^DD(408.41,.05,21,1,0)="This field contains the value of the means test category, prior to its change"
^DD(408.41,.05,21,2,0)="in the ANNUAL MEANS TEST file (# 408.31)."
^DD(408.41,.05,"DT")="2920401"
^DD(408.41,.06,0)="NEW VALUE^F^^0;6^K:$L(X)>30!($L(X)<2) X"
^DD(408.41,.06,3)="Answer must be 2-30 characters in length."
^DD(408.41,.06,21,0)="^^2^2^2920716^^^"
^DD(408.41,.06,21,1,0)="This field contains the value of the means test category, after its change"
^DD(408.41,.06,21,2,0)="in the ANNUAL MEANS TEST file (# 408.31)."
^DD(408.41,.06,"DT")="2920401"
^DD(408.41,.07,0)="EDITED BY^P200'^VA(200,^0;7^Q"
^DD(408.41,.07,3)="Enter the name of the user who edited the means test."
^DD(408.41,.07,21,0)="^^2^2^2920716^"
^DD(408.41,.07,21,1,0)="This field contains the name of the person who entered/updated the means"
^DD(408.41,.07,21,2,0)="test."
^DD(408.41,.07,"DT")="2920211"
^DD(408.41,.08,0)="OLD SOURCE OF INCOME TEST^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(408.41,.08,3)="Answer must be 3-30 characters in length."
^DD(408.41,.08,21,0)="1^^1^1^2940510^"
^DD(408.41,.08,21,1,0)="This field contains the source of income test prior to its change in the ANNUAL MEANS TEST file (# 408.31)."
^DD(408.41,.08,"DT")="2940510"
^DD(408.41,.09,0)="NEW SOURCE OF INCOME TEST^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(408.41,.09,3)="Answer must be 3-30 characters in length."
^DD(408.41,.09,21,0)="^^1^1^2940510^^^"
^DD(408.41,.09,21,1,0)="This field contains the source of income test after its change in the ANNUAL MEANS TEST file (# 408.31)."
^DD(408.41,.09,"DT")="2940510"
^DD(408.41,.1,0)="INCOME PERSON^P408.13'^DGPR(408.13,^0;10^Q"
^DD(408.41,.1,3)="Enter an Income Person"
^DD(408.41,.1,21,0)="^^2^2^2941220^"
^DD(408.41,.1,21,1,0)="This field will hold the pointer value of the dependent when a name, DOB,"
^DD(408.41,.1,21,2,0)="SSN or SEX change is audited."
^DD(408.41,.1,"DT")="2941220"
^DD(408.41,"B","DATE OF CHANGE",.01)=""
^DD(408.41,"B","EDITED BY",.07)=""
^DD(408.41,"B","INCOME PERSON",.1)=""
^DD(408.41,"B","MEANS TEST",.03)=""
^DD(408.41,"B","NEW SOURCE OF INCOME TEST",.09)=""
^DD(408.41,"B","NEW VALUE",.06)=""
^DD(408.41,"B","OLD SOURCE OF INCOME TEST",.08)=""
^DD(408.41,"B","OLD VALUE",.05)=""
^DD(408.41,"B","PATIENT",.04)=""
^DD(408.41,"B","TYPE OF CHANGE",.02)=""
^DD(408.41,"B","TYPE OF TEST",.019)=""
^DD(408.41,"GL",0,1,.01)=""
^DD(408.41,"GL",0,2,.02)=""
^DD(408.41,"GL",0,3,.03)=""
^DD(408.41,"GL",0,4,.04)=""
^DD(408.41,"GL",0,5,.05)=""
^DD(408.41,"GL",0,6,.06)=""
^DD(408.41,"GL",0,7,.07)=""
^DD(408.41,"GL",0,8,.08)=""
^DD(408.41,"GL",0,9,.09)=""
^DD(408.41,"GL",0,10,.1)=""
^DD(408.41,"GL",0,19,.019)=""
^DD(408.41,"IX",.01)=""
^DD(408.41,"IX",.019)=""
^DD(408.41,"IX",.03)=""
^DD(408.41,"IX",.04)=""
^DD(408.41,"RQ",.01)=""
^DD(408.41,"RQ",.019)=""
^DD(408.41,"RQ",.02)=""
^DD(408.41,"RQ",.03)=""
^DD(408.41,"RQ",.04)=""
^DD(408.42,0)="FIELD^^.02^2"
^DD(408.42,0,"DDA")="N"
^DD(408.42,0,"DT")="2921229"
^DD(408.42,0,"IX","B",408.42,.01)=""
^DD(408.42,0,"NM","MEANS TEST CHANGES TYPE")=""
^DD(408.42,0,"PT",408.41,.02)=""
^DD(408.42,0,"VR")="5.3"
^DD(408.42,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(408.42,.01,1,0)="^.1"
^DD(408.42,.01,1,1,0)="408.42^B"
^DD(408.42,.01,1,1,1)="S ^DG(408.42,""B"",$E(X,1,30),DA)="""""
^DD(408.42,.01,1,1,2)="K ^DG(408.42,""B"",$E(X,1,30),DA)"
^DD(408.42,.01,3)="Enter the type of means test change, 3-30 characters in length."
^DD(408.42,.01,21,0)="^^1^1^2920427^^^"
^DD(408.42,.01,21,1,0)="This field contains the name of the type of change made to a means test."
^DD(408.42,.01,"DT")="2920211"
^DD(408.42,.02,0)="INACTIVE?^S^1:INACTIVE;0:ACTIVE;^0;2^Q"
^DD(408.42,.02,3)="Indicate whether or not the change type is active."
^DD(408.42,.02,21,0)="^^2^2^2920427^"
^DD(408.42,.02,21,1,0)="This field determines whether or not an entry is selectable.  All active"
^DD(408.42,.02,21,2,0)="change types are selectable."
^DD(408.42,.02,"DT")="2920211"
^DD(408.42,"B","INACTIVE?",.02)=""
^DD(408.42,"B","NAME",.01)=""
^DD(408.42,"GL",0,1,.01)=""
^DD(408.42,"GL",0,2,.02)=""
^DD(408.42,"IX",.01)=""
^DD(408.42,"RQ",.01)=""
^DD(409.1,0)="FIELD^^10^8"
^DD(409.1,0,"IX","B",409.1,.01)=""
^DD(409.1,0,"NM","APPOINTMENT TYPE")=""
^DD(409.1,0,"PT",2.98,9.5)=""
^DD(409.1,0,"PT",35.1,.01)=""
^DD(409.1,0,"PT",40.11,15)=""
^DD(409.1,0,"PT",44,2507)=""
^DD(409.1,0,"PT",195.1165,.01)=""
^DD(409.1,0,"PT",352.1,.02)=""
^DD(409.1,0,"PT",375,1.04)=""
^DD(409.1,0,"PT",409.51,5)=""
^DD(409.1,0,"PT",409.68,.1)=""
^DD(409.1,0,"VR")="5.3"
^DD(409.1,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.1,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(409.1,.001,21,0)="^^2^2^2920211^"
^DD(409.1,.001,21,1,0)="Internal reference number assigned automatically as each new entry"
^DD(409.1,.001,21,2,0)="is placed in the file."
^DD(409.1,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(409.1,.01,1,0)="^.1"
^DD(409.1,.01,1,1,0)="409.1^B"
^DD(409.1,.01,1,1,1)="S ^SD(409.1,""B"",$E(X,1,30),DA)="""""
^DD(409.1,.01,1,1,2)="K ^SD(409.1,""B"",$E(X,1,30),DA)"
^DD(409.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(409.1,.01,21,0)="^^3^3^2920211^"
^DD(409.1,.01,21,1,0)="Name of the appointment type, i.e. Class II Dental is designated for"
^DD(409.1,.01,21,2,0)="veterans who are scheduling an appointment to be treated for a "
^DD(409.1,.01,21,3,0)="dental condition that was related to active duty."
^DD(409.1,.01,"DEL",1,0)="I 1 W !,""Appointment Types can not be deleted.  They can be"",!,"" inactivated by setting the INACTIVE field to 1"",*7"
^DD(409.1,.01,"DT")="2880607"
^DD(409.1,2,0)="IGNORE MEANS TEST BILLING^S^1:IGNORE;^0;2^Q"
^DD(409.1,2,21,0)="^^3^3^2920211^"
^DD(409.1,2,21,1,0)="A '1' placed in this field denotes that any veteran who is categorized"
^DD(409.1,2,21,2,0)="by this particular appointment type will be exempt for having to"
^DD(409.1,2,21,3,0)="complete and Means Test and from any form of billing for care received."
^DD(409.1,3,0)="INACTIVE^S^1:INACTIVE;^0;3^Q"
^DD(409.1,3,21,0)="^^2^2^2920211^"
^DD(409.1,3,21,1,0)="A '1' indicates that this particular appointment type is inactive and"
^DD(409.1,3,21,2,0)="no longer used per instructions from VA Central Office."
^DD(409.1,4,0)="SYNONYM^F^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(409.1,4,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(409.1,4,21,0)="^^1^1^2920211^"
^DD(409.1,4,21,1,0)="A similar name or abbreviation to identify this appointment type."
^DD(409.1,5,0)="DUAL ELIGIBILITY ALLOWED^S^1:YES;^0;5^Q"
^DD(409.1,5,3)="Enter YES if appt type can be used by both vet and nonvet and used for dual elig.  If appt type is for vet use only, leave blank."
^DD(409.1,5,21,0)="^^4^4^2920211^"
^DD(409.1,5,21,1,0)="If an appointment type will allow dual eligibility for this particular"
^DD(409.1,5,21,2,0)="appointment type.  Dual eligibility is when a veteran has a primary"
^DD(409.1,5,21,3,0)="eligibility, i.e. NSC VETERAN, but is also a VA employee and will"
^DD(409.1,5,21,4,0)="have a second or dual eligibility of EMPLOYEE."
^DD(409.1,5,"DT")="2880412"
^DD(409.1,6,0)="DEFAULT ELIGIBILITY^P8'^DIC(8,^0;6^Q"
^DD(409.1,6,3)="This eligibility will be used if the patient has dual eligibility status defined."
^DD(409.1,6,21,0)="^^5^5^2920211^"
^DD(409.1,6,21,1,0)="A specific eligibility code can be entered in this field as the"
^DD(409.1,6,21,2,0)="default eligibility allowed for this appointment type.  If a veteran"
^DD(409.1,6,21,3,0)="is for example WWII and the default eligibility for appointment type"
^DD(409.1,6,21,4,0)="is WWI, user will be unable to schedule this visit utilizing this"
^DD(409.1,6,21,5,0)="appointment type."
^DD(409.1,6,"DT")="2880531"
^DD(409.1,10,0)="DESCRIPTION^409.11^^1;0"
^DD(409.1,10,21,0)="^^2^2^2920318^^"
^DD(409.1,10,21,1,0)="A word-processing field describing the definition and/or use of"
^DD(409.1,10,21,2,0)="each appointment type in this file."
^DD(409.1,"B","DEFAULT ELIGIBILITY",6)=""
^DD(409.1,"B","DESCRIPTION",10)=""
^DD(409.1,"B","DUAL ELIGIBILITY ALLOWED",5)=""
^DD(409.1,"B","IGNORE MEANS TEST BILLING",2)=""
^DD(409.1,"B","INACTIVE",3)=""
^DD(409.1,"B","NAME",.01)=""
^DD(409.1,"B","NUMBER",.001)=""
^DD(409.1,"B","SYNONYM",4)=""
^DD(409.1,"GL",0,1,.01)=""
^DD(409.1,"GL",0,2,2)=""
^DD(409.1,"GL",0,3,3)=""
^DD(409.1,"GL",0,4,4)=""
^DD(409.1,"GL",0,5,5)=""
^DD(409.1,"GL",0,6,6)=""
^DD(409.1,"GL",1,0,10)=""
^DD(409.1,"IX",.01)=""
^DD(409.1,"RQ",.01)=""
^DD(409.1,"SB",409.11,10)=""
^DD(409.11,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(409.11,0,"NM","DESCRIPTION")=""
^DD(409.11,0,"UP")="409.1"
^DD(409.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(409.11,.01,21,0)="^^2^2^2920211^"
^DD(409.11,.01,21,1,0)="A word-processing filed describing the definition and/or use of each"
^DD(409.11,.01,21,2,0)="appointment type in this file.  Can be seen through 'help prompts'."
^DD(409.11,.01,"DT")="2901004"
^DD(409.11,"B","DESCRIPTION",.01)=""
^DD(409.11,"GL",0,1,.01)=""
^DD(409.2,0)="FIELD^^4^4"
^DD(409.2,0,"IX","B",409.2,.01)=""
^DD(409.2,0,"NM","CANCELLATION REASONS")=""
^DD(409.2,0,"PT",2.98,16)=""
^DD(409.2,0,"VR")="5.3"
^DD(409.2,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(409.2,.01,1,0)="^.1"
^DD(409.2,.01,1,1,0)="409.2^B"
^DD(409.2,.01,1,1,1)="S ^SD(409.2,""B"",$E(X,1,30),DA)="""""
^DD(409.2,.01,1,1,2)="K ^SD(409.2,""B"",$E(X,1,30),DA)"
^DD(409.2,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(409.2,.01,21,0)="^^2^2^2920211^^"
^DD(409.2,.01,21,1,0)="Reason for cancelling an appointment, whether it be done by the"
^DD(409.2,.01,21,2,0)="clinic/hospital or the patient.  "
^DD(409.2,.01,"DEL",1,0)="I 1 W !,""Can not delete cancellation reasons"",*7"
^DD(409.2,.01,"DT")="2880607"
^DD(409.2,2,0)="TYPE^RS^P:PATIENT;C:CLINIC;B:BOTH;^0;2^Q"
^DD(409.2,2,3)="ENTER 'P' IF THE CANCELLATION REASON IS DUE TO PATIENT, 'C' IF IT IS DUE TO CLINIC."
^DD(409.2,2,21,0)="^^4^4^2920211^"
^DD(409.2,2,21,1,0)="Who is associated with the reason for cancelling an appointment.  For"
^DD(409.2,2,21,2,0)="example, a 'clinic' type is assigned to a reason in which the clinic"
^DD(409.2,2,21,3,0)="was cancelled due to a physician being absent.  A 'patient' type would"
^DD(409.2,2,21,4,0)="be associated with a reason for cancelling by the patient."
^DD(409.2,3,0)="SYNONYM^F^^0;3^K:$L(X)>5!($L(X)<1) X"
^DD(409.2,3,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(409.2,3,21,0)="^^2^2^2920211^"
^DD(409.2,3,21,1,0)="A synonym or abbreviation that can be used to choose a cancellation"
^DD(409.2,3,21,2,0)="reason."
^DD(409.2,4,0)="INACTIVE^S^1:INACTIVE;^0;4^Q"
^DD(409.2,4,21,0)="^^2^2^2920211^"
^DD(409.2,4,21,1,0)="Entry of '1' in this field indicates that a particular cancellation"
^DD(409.2,4,21,2,0)="reason is inactive or no longer in use."
^DD(409.2,"B","INACTIVE",4)=""
^DD(409.2,"B","NAME",.01)=""
^DD(409.2,"B","SYNONYM",3)=""
^DD(409.2,"B","TYPE",2)=""
^DD(409.2,"GL",0,1,.01)=""
^DD(409.2,"GL",0,2,2)=""
^DD(409.2,"GL",0,3,3)=""
^DD(409.2,"GL",0,4,4)=""
^DD(409.2,"IX",.01)=""
^DD(409.2,"RQ",.01)=""
^DD(409.2,"RQ",2)=""
^DD(409.3,0)="FIELD^^30^50"
^DD(409.3,0,"DDA")="N"
^DD(409.3,0,"DT")="3050505"
^DD(409.3,0,"ID",1)="W """""
^DD(409.3,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.3,0,"ID",4)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(409.3,4,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(409.3,0,"ID",23)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(409.3,23,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,17)_"""":"""",2),$C(59),1)"")"
^DD(409.3,0,"IX","B",409.3,.01)=""
^DD(409.3,0,"IX","C",409.3,2)=""
^DD(409.3,0,"IX","D",409.3,5)=""
^DD(409.3,0,"IX","SC",409.3,8)=""
^DD(409.3,0,"IX","SCC",409.3,8)=""
^DD(409.3,0,"IX","SP",409.3,6)=""
^DD(409.3,0,"IX","SS",409.3,7)=""
^DD(409.3,0,"IX","ST",409.3,5)=""
^DD(409.3,0,"NM","SD WAIT LIST")=""
^DD(409.3,0,"PT",409.3,37)=""
^DD(409.3,0,"PT",409.35,.01)=""
^DD(409.3,0,"PT",409.36,409.3)=""
^DD(409.3,0,"VR")="5.3"
^DD(409.3,0,"VRPK")="SD"
^DD(409.3,.01,0)="PATIENT^RP2^DPT(^0;1^Q"
^DD(409.3,.01,1,0)="^.1^^-1"
^DD(409.3,.01,1,1,0)="409.3^B"
^DD(409.3,.01,1,1,1)="S ^SDWL(409.3,""B"",$E(X,1,30),DA)="""""
^DD(409.3,.01,1,1,2)="K ^SDWL(409.3,""B"",$E(X,1,30),DA)"
^DD(409.3,.01,3)="Enter the name of the patient from the Patient file #2 that is to be on the Sch/PCMM Wait List."
^DD(409.3,.01,21,0)="^.001^2^2^3050303^^^^"
^DD(409.3,.01,21,1,0)="Enter the name of the patient from the Patient file #2 that is to be on"
^DD(409.3,.01,21,2,0)="the Sch/PCMM Wait List."
^DD(409.3,.01,"DT")="3021022"
^DD(409.3,1,0)="ORIGINATING DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.3,1,21,0)="^.001^1^1^3020912^^^^"
^DD(409.3,1,21,1,0)="Date the patient was placed on the Wait List (Sch/PCMM)"
^DD(409.3,1,"DT")="3020618"
^DD(409.3,2,0)="INSTITUTION^R*P4'^DIC(4,^0;3^S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.3,2,1,0)="^.1"
^DD(409.3,2,1,1,0)="409.3^C"
^DD(409.3,2,1,1,1)="S ^SDWL(409.3,""C"",$E(X,1,30),DA)="""""
^DD(409.3,2,1,1,2)="K ^SDWL(409.3,""C"",$E(X,1,30),DA)"
^DD(409.3,2,1,1,"DT")="3020716"
^DD(409.3,2,3)="Enter the INSTITUTION that the patient is to be placed for the waiting list.  INSTITUTION must be NATIONAL and a treating facility."
^DD(409.3,2,12)="Enter a National/Medical Institution"
^DD(409.3,2,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"""
^DD(409.3,2,21,0)="^.001^1^1^3030224^^^^"
^DD(409.3,2,21,1,0)="The Institution the patient is on the Wait List (Sch/PCMM)"
^DD(409.3,2,"AUDIT")=" "
^DD(409.3,2,"DT")="3030304"
^DD(409.3,3,0)="TRANMISSION STATUS TO ACC^S^0:NOT TRANSMITTED;1:TRANSMITTED;^0;4^Q"
^DD(409.3,3,21,0)="^^2^2^3020913^"
^DD(409.3,3,21,1,0)="Reflects the current transmission status (transmitted/not transmitted) of "
^DD(409.3,3,21,2,0)="the wait list entry"
^DD(409.3,3,"DT")="3020808"
^DD(409.3,3.1,0)="DATE OF TRANSMISSION^409.33D^^ACCDATE;0"
^DD(409.3,3.1,21,0)="^^1^1^3020913^"
^DD(409.3,3.1,21,1,0)="Wait List Transmission date information - multiple"
^DD(409.3,4,0)="WAIT LIST TYPE^RSI^1:PCMM TEAM ASSIGNMENT;2:PCMM POSITION ASSIGNMENT;3:SERVICE/SPECIALITY;4:SPECIFIC CLINIC;^0;5^Q"
^DD(409.3,4,3)="Select one Wait List Type."
^DD(409.3,4,21,0)="^.001^1^1^3050426^^^^"
^DD(409.3,4,21,1,0)="The type of wait list the patient is assigned."
^DD(409.3,4,"DT")="3041012"
^DD(409.3,5,0)="WL SPECIFIC TEAM^*P404.51'^SCTM(404.51,^0;6^S DIC(""S"")=""I $D(SDWLIN),$P(^SCTM(404.51,+Y,0),U,7)=SDWLIN"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.3,5,1,0)="^.1"
^DD(409.3,5,1,1,0)="409.3^D"
^DD(409.3,5,1,1,1)="S ^SDWL(409.3,""D"",$E(X,1,30),DA)="""""
^DD(409.3,5,1,1,2)="K ^SDWL(409.3,""D"",$E(X,1,30),DA)"
^DD(409.3,5,1,1,"DT")="3020725"
^DD(409.3,5,1,2,0)="409.3^ST^MUMPS"
^DD(409.3,5,1,2,1)="I $D(X) S ^SDWL(409.3,""ST"",DA,X)="""""
^DD(409.3,5,1,2,2)="K ^SDWL(409.3,""ST"",DA,X)"
^DD(409.3,5,1,2,"DT")="3020816"
^DD(409.3,5,3)="Enter the team that the patient is waiting to be assigned. The team must be an active team at the selected institution and must be over capacity. Patient can be assigned to multiple Teams."
^DD(409.3,5,12)="Entry's for this Institution."
^DD(409.3,5,12.1)="S DIC(""S"")=""I $D(SDWLIN),$P(^SCTM(404.51,+Y,0),U,7)=SDWLIN"""
^DD(409.3,5,21,0)="^^4^4^3060222^"
^DD(409.3,5,21,1,0)="If the patient is waiting for a PCMM Team Assignment,"
^DD(409.3,5,21,2,0)="the team that the patient is waiting to be assigned is to be entered here.  "
^DD(409.3,5,21,3,0)="The team must be active at the designated institution, must be above"
^DD(409.3,5,21,4,0)="capacity.Patients can be assigned to multiple PCMM Teams."
^DD(409.3,5,"AUDIT")="n"
^DD(409.3,5,"DT")="3020930"
^DD(409.3,6,0)="WL SPECIFIC POSITION^P404.57'^SCTM(404.57,^0;7^Q"
^DD(409.3,6,1,0)="^.1"
^DD(409.3,6,1,1,0)="409.3^SP^MUMPS"
^DD(409.3,6,1,1,1)="I $D(X) S ^SDWL(409.3,""SP"",DA,X)="""""
^DD(409.3,6,1,1,2)="K ^SDWL(409.3,""SP"",DA,X)"
^DD(409.3,6,1,1,"DT")="3020816"
^DD(409.3,6,3)="Enter the position the patient is waiting to be assigned. Only active, over capacity positions assigned to the patient's primary care team are selectable."
^DD(409.3,6,21,0)="^^5^5^3060222^"
^DD(409.3,6,21,1,0)="If the patient is waiting for a PCMM Position, the position that the"
^DD(409.3,6,21,2,0)="patient is waiting to be assigned is entered here. The position must be"
^DD(409.3,6,21,3,0)="active, assigned to the team the patient is currently assigned and the"
^DD(409.3,6,21,4,0)="position must be above capacity. The patient can have multiple open"
^DD(409.3,6,21,5,0)="Position Wait List assignments."
^DD(409.3,6,"AUDIT")="n"
^DD(409.3,6,"DT")="3020930"
^DD(409.3,7,0)="WL SERVICE/SPECIALTY^P409.31'^SDWL(409.31,^0;8^Q"
^DD(409.3,7,1,0)="^.1"
^DD(409.3,7,1,1,0)="409.3^SS^MUMPS"
^DD(409.3,7,1,1,1)="I $D(X) S ^SDWL(409.3,""SS"",$P(^SDWL(409.3,DA,0),U,1),$P(^SDWL(409.31,X,0),U,1),DA)="""""
^DD(409.3,7,1,1,2)="I $D(^SDWL(409.31,X,0)) K ^SDWL(409.3,""SS"",$P(^SDWL(409.3,DA,0),U,1),$P(^SDWL(409.31,X,0),U,1),DA)"
^DD(409.3,7,1,1,"DT")="3070205"
^DD(409.3,7,3)="Enter the Service/Specialty (DSS ID) allowed by this institution in the wait list parameters, that this patient is waiting for an appointment."
^DD(409.3,7,21,0)="^.001^4^4^3070302^^^^"
^DD(409.3,7,21,1,0)="If the patient has been assigned to the Service/Specialty Wait List,"
^DD(409.3,7,21,2,0)="enter the DSS ID that represents the service/specialty"
^DD(409.3,7,21,3,0)="the patient is waiting for an appointment. This DSS ID must be active in"
^DD(409.3,7,21,4,0)="file 409.31."
^DD(409.3,7,"AUDIT")="n"
^DD(409.3,7,"DT")="3070205"
^DD(409.3,8,0)="WL SPECIFIC CLINIC^RP409.32'^SDWL(409.32,^0;9^Q"
^DD(409.3,8,1,0)="^.1"
^DD(409.3,8,1,1,0)="409.3^SC^MUMPS"
^DD(409.3,8,1,1,1)="I $D(X) S ^SDWL(409.3,""SC"",$P(^SDWL(409.32,X,0),U,1),DA)="""""
^DD(409.3,8,1,1,2)="K ^SDWL(409.3,""SC"",$P(^SDWL(409.32,X,0),U,1),DA)"
^DD(409.3,8,1,1,"DT")="3020819"
^DD(409.3,8,1,2,0)="409.3^SCC^MUMPS"
^DD(409.3,8,1,2,1)="I $D(X) S ^SDWL(409.3,""SCC"",$P(^SDWL(409.3,DA,0),U,1),X,DA)="""""
^DD(409.3,8,1,2,2)="K ^SDWL(409.3,""SCC"",$P(^SDWL(409.3,DA,0),U,1),X,DA)"
^DD(409.3,8,1,2,"DT")="3020828"
^DD(409.3,8,3)="Select clinic from approved wait list clinics"
^DD(409.3,8,21,0)="^.001^4^4^3020925^^^"
^DD(409.3,8,21,1,0)="If the patient has been assigned to the Specific Clinic Wait List,"
^DD(409.3,8,21,2,0)="enter the clinic that the patient is waiting for an appointment."
^DD(409.3,8,21,3,0)="The clinic must be active and must be assigned to the institution"
^DD(409.3,8,21,4,0)="designated. It must be an active clinic in file 409.32. "
^DD(409.3,8,"AUDIT")="n"
^DD(409.3,8,"DT")="3020930"
^DD(409.3,9,0)="ORIGINATING USER^P200'^VA(200,^0;10^Q"
^DD(409.3,9,21,0)="^.001^1^1^3020626^^"
^DD(409.3,9,21,1,0)="User that enters the patient to the wait list."
^DD(409.3,9,"DT")="3020618"
^DD(409.3,10,0)="PRIORITY^RS^A:ASAP;F:FUTURE;^0;11^Q"
^DD(409.3,10,3)="Select either ASAP which will set the desired date for the appointment as the current date or select Future which will allow you to enter a desired date (example: T+6M)"
^DD(409.3,10,21,0)="^.001^7^7^3020913^^^^"
^DD(409.3,10,21,1,0)="If the patient is assigned to either the Service/Specialty or Specific"
^DD(409.3,10,21,2,0)="Clinic Wait List, a priority of Future or ASAP (as soon as possible) must"
^DD(409.3,10,21,3,0)="be entered. Future indicates that the patient needs an appointment in the"
^DD(409.3,10,21,4,0)="future and a desired will be entered by the user."
^DD(409.3,10,21,5,0)="ASAP indicates that the patient needs an appointment before"
^DD(409.3,10,21,6,0)="the currently next available appointment (as soon as a slot opens). The "
^DD(409.3,10,21,7,0)="desired date for ASAP will be set by the system as the current date."
^DD(409.3,10,"DT")="3020805"
^DD(409.3,11,0)="REQUEST BY^RS^1:PROVIDER;2:PATIENT;^0;12^Q"
^DD(409.3,11,3)="Enter who requested the appointment - the patient or a provider"
^DD(409.3,11,21,0)="^.001^3^3^3020913^^"
^DD(409.3,11,21,1,0)="If the patient is placed on a Service/Specialty or Specific"
^DD(409.3,11,21,2,0)="Clinic Wait List type, the user must enter who requested the appointment "
^DD(409.3,11,21,3,0)="- the patient or a provider."
^DD(409.3,11,"DT")="3020625"
^DD(409.3,12,0)="PROVIDER^P200'^VA(200,^0;13^Q"
^DD(409.3,12,3)="This is the provider that requested the patient's appointment.       Must be an active provider in file 200."
^DD(409.3,12,21,0)="^.001^3^3^3020913^^^^"
^DD(409.3,12,21,1,0)="If the patient's appointment was requested by a provider,"
^DD(409.3,12,21,2,0)="this is the provider that requested the patient's appointment."
^DD(409.3,12,21,3,0)="Must be an active provider in file 200."
^DD(409.3,12,"AUDIT")="n"
^DD(409.3,12,"DT")="3020930"
^DD(409.3,13,0)="SCHEDULED DATE OF APPT^D^^0;23^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.3,13,3)="Enter date/time of the scheduled appointment for this request"
^DD(409.3,13,21,0)="^^2^2^3050506^"
^DD(409.3,13,21,1,0)="The Appointment date scheduled for a patient. This appointment may be "
^DD(409.3,13,21,2,0)="used as a reason for closing Electronic Wait List entry."
^DD(409.3,13,23,0)="^.001^1^1^3050506^^"
^DD(409.3,13,23,1,0)="This is a date/time of the scheduled appointment related to this entry."
^DD(409.3,13,"DT")="3050426"
^DD(409.3,13.1,0)="DATE APPT. MADE^D^^SDAPT;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.3,13.1,3)="(No range limit on date)"
^DD(409.3,13.1,21,0)="^^1^1^3050606^"
^DD(409.3,13.1,21,1,0)="This is the date the appointment was created."
^DD(409.3,13.1,23,0)="^.001^2^2^3050606^^^"
^DD(409.3,13.1,23,1,0)="The Appointment Creation Date. It corresponds to the DATE APPT. MADE field"
^DD(409.3,13.1,23,2,0)="(#20) of the APPOINTMENT multiple (#1900) in the Patient file (#2)."
^DD(409.3,13.1,"DT")="3050505"
^DD(409.3,13.2,0)="APPT CLINIC^P44'^SC(^SDAPT;2^Q"
^DD(409.3,13.2,3)="Hospital Location the appointment is scheduled for."
^DD(409.3,13.2,21,0)="^.001^1^1^3050519^^"
^DD(409.3,13.2,21,1,0)="This is a clinic the appointment was created for."
^DD(409.3,13.2,23,0)="^.001^1^1^3050519^^^"
^DD(409.3,13.2,23,1,0)="Pointer to the HOSPITAL LOCATION file (#44) of the related appointment."
^DD(409.3,13.2,"DT")="3050104"
^DD(409.3,13.3,0)="APPT INSTITUTION^P4'^DIC(4,^SDAPT;3^Q"
^DD(409.3,13.3,21,0)="^.001^1^1^3050519^^"
^DD(409.3,13.3,21,1,0)="The institution the clinic appointment belongs to."
^DD(409.3,13.3,23,0)="^.001^2^2^3050519^^^"
^DD(409.3,13.3,23,1,0)="A pointer from the Hospital Location file of the scheduled appointment to "
^DD(409.3,13.3,23,2,0)="the Institution file (#4)."
^DD(409.3,13.3,"DT")="3050104"
^DD(409.3,13.4,0)="APPT STOP CODE^P40.7'^DIC(40.7,^SDAPT;4^Q"
^DD(409.3,13.4,21,0)="^.001^2^2^3050519^^"
^DD(409.3,13.4,21,1,0)="The stop code/specialty of a clinic associated with the patient "
^DD(409.3,13.4,21,2,0)="appointment."
^DD(409.3,13.4,23,0)="^.001^2^2^3050519^^"
^DD(409.3,13.4,23,1,0)="This is the primary Stop Code Number pointer to the Stop Code file "
^DD(409.3,13.4,23,2,0)="(#40.7)."
^DD(409.3,13.4,"DT")="3050506"
^DD(409.3,13.5,0)="APPT CREDIT STOP CODE^P40.7'^DIC(40.7,^SDAPT;5^Q"
^DD(409.3,13.5,21,0)="^^2^2^3050506^"
^DD(409.3,13.5,21,1,0)="The credit stop code optionally assigned to the Hospital Location file"
^DD(409.3,13.5,21,2,0)="associated with the scheduled appointment."
^DD(409.3,13.5,23,0)="^.001^3^3^3050506^^^"
^DD(409.3,13.5,23,1,0)="This is the secondary (optional) Stop Code Number pointer to the Stop "
^DD(409.3,13.5,23,2,0)="Code file (#40.7). This stop code is assigned to the Hospital Location"
^DD(409.3,13.5,23,3,0)="file associated with the scheduled appointment."
^DD(409.3,13.5,"DT")="3050104"
^DD(409.3,13.6,0)="APPT STATION NUMBER^F^^SDAPT;6^K:$L(X)>6!($L(X)<3)!'(X?3N.E) X"
^DD(409.3,13.6,3)="Answer must be 3-6 characters in length."
^DD(409.3,13.6,21,0)="^^2^2^3050606^"
^DD(409.3,13.6,21,1,0)="This is the 3 digit station number assigned to the facility plus optional"
^DD(409.3,13.6,21,2,0)="modifiers."
^DD(409.3,13.6,23,0)="^.001^2^2^3050606^^^^"
^DD(409.3,13.6,23,1,0)="This is the Station Number field (#99) of the Institution file (#4) "
^DD(409.3,13.6,23,2,0)="associated with the scheduled appointment."
^DD(409.3,13.6,"DT")="3050428"
^DD(409.3,13.7,0)="APPT CLERK^P200'^VA(200,^SDAPT;7^Q"
^DD(409.3,13.7,21,0)="^^1^1^3050506^"
^DD(409.3,13.7,21,1,0)="This is a person who assigned the appointment to the EWL entry."
^DD(409.3,13.7,23,0)="^.001^2^2^3050506^^"
^DD(409.3,13.7,23,1,0)="This is a pointer to the New Person file and it represents a person who "
^DD(409.3,13.7,23,2,0)="entered the scheduled appointment into the EWL."
^DD(409.3,13.7,"DT")="3050104"
^DD(409.3,13.8,0)="APPT STATUS^S^R:Scheduled/Kept;I:Inpatient;NS:No-Show;NSR:No_Show, Rescheduled;CP:Canceled by Patient;CPR:Canceled by Patient, Rescheduled;CC:Canceled by Clinic;CCR:Canceled by Clinic, Rescheduled;NT:No Action Taken;^SDAPT;8^Q"
^DD(409.3,13.8,21,0)="^^1^1^3050506^"
^DD(409.3,13.8,21,1,0)="This is an appointment status."
^DD(409.3,13.8,"DT")="3050112"
^DD(409.3,14,0)="SERVICE CONNECTED PERCENTAGE^NJ3,0^^SC;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.3,14,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(409.3,14,"DT")="3050627"
^DD(409.3,15,0)="SERVICE CONNECTED PRIORITY^S^0:NO;1:YES;^SC;2^Q"
^DD(409.3,15,"DT")="3050627"
^DD(409.3,16,0)="DO NOT REMOVE DATE^D^^0;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.3,16,21,0)="^.001^3^3^3020626^^"
^DD(409.3,16,21,1,0)="If the patient has met the criteria that should remove "
^DD(409.3,16,21,2,0)="him/her from the wait list but the user does not want the"
^DD(409.3,16,21,3,0)="patient removed"
^DD(409.3,16,"DT")="3020618"
^DD(409.3,17,0)="USER ENTERING NO REMOVE^P200'^VA(200,^0;15^Q"
^DD(409.3,17,21,0)="^^1^1^3020626^"
^DD(409.3,17,21,1,0)="User entering 'Do Not Remove'"
^DD(409.3,17,"DT")="3020618"
^DD(409.3,18,0)="DO NOT REMOVE REASON^S^A:Appointment Criteria Not Met;P:Patient wants another appointment;PR:Provider wants another appointment;O:Other;^DNR;1^Q"
^DD(409.3,18,3)="Enter the reason for NOT removing the patient from the wait list."
^DD(409.3,18,21,0)="^.001^1^1^3021009^^^^"
^DD(409.3,18,21,1,0)="Reason why the patient is not removed from Waiting List(Sch/PCMM)"
^DD(409.3,18,"DT")="3021009"
^DD(409.3,18.1,0)="DO NOT REMOVE COMMENT^F^^DNR;2^K:$L(X)>50!($L(X)<1) X"
^DD(409.3,18.1,3)="Answer must be 1-50 characters in length."
^DD(409.3,18.1,21,0)="^^2^2^3020913^"
^DD(409.3,18.1,21,1,0)="Free Text comment (1-50 characters) for why wait list entry should not be "
^DD(409.3,18.1,21,2,0)="removed when an appointment has met the wait list criteria."
^DD(409.3,18.1,"DT")="3020821"
^DD(409.3,19,0)="DATE DISPOSITIONED^D^^DIS;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.3,19,21,0)="^.001^1^1^3050422^^^"
^DD(409.3,19,21,1,0)="Date patient is dispositioned from the Wait List(Sch/PCMM)"
^DD(409.3,19,"DT")="3020618"
^DD(409.3,20,0)="DISPOSITIONED BY^P200'^VA(200,^DIS;2^Q"
^DD(409.3,20,21,0)="^^1^1^3020626^"
^DD(409.3,20,21,1,0)="User who dispositioned patient from Wait List(Sch/PCMM)"
^DD(409.3,20,"DT")="3020618"
^DD(409.3,21,0)="DISPOSITION^S^D:DEATH;NC:REMOVED/NON-VA CARE;SA:REMOVED/SCHEDULED-ASSIGNED;CC:REMOVED/VA CONTRACT CARE;NN:REMOVED/NO LONGER NECESSARY;ER:ENTERED IN ERROR;TR:TRANSFERRED;CL:CHANGED CLINIC;^DIS;3^Q"
^DD(409.3,21,3)="Select a reason for removing the patient the wait list."
^DD(409.3,21,21,0)="^.001^1^1^3060905^^^^"
^DD(409.3,21,21,1,0)="Reason patient has been dispositioned from Wait List(Sch/PCMM)"
^DD(409.3,21,"DT")="3060511"
^DD(409.3,22,0)="DESIRED DATE OF APPOINTMENT^RD^^0;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.3,22,3)="Enter the desired date for the appointment."
^DD(409.3,22,21,0)="^.001^6^6^3021115^^^"
^DD(409.3,22,21,1,0)="If a patient is placed on a Service/Specialty or Clinic Specific"
^DD(409.3,22,21,2,0)="Wait List type, the date the appointment is needed/desired."
^DD(409.3,22,21,3,0)="If the priority is ASAP, this is the date the patient"
^DD(409.3,22,21,4,0)="is placed on the Wait List(Sch/PCMM)."
^DD(409.3,22,21,5,0)="If the priority is Future, the user enters the date that the "
^DD(409.3,22,21,6,0)="patient/provider needs an appointment scheduled."
^DD(409.3,22,"DT")="3020710"
^DD(409.3,23,0)="CURRENT STATUS^S^O:OPEN;C:CLOSED;^0;17^Q"
^DD(409.3,23,21,0)="^.001^3^3^3050412^^^^"
^DD(409.3,23,21,1,0)="If the Wait List(Sch/PCMM) entry is dispositioned the"
^DD(409.3,23,21,2,0)="status = CLOSED, otherwise the Wait List(Sch/PCMM) entry"
^DD(409.3,23,21,3,0)="status = OPEN"
^DD(409.3,23,"DT")="3020618"
^DD(409.3,24,0)="AUDIT POINTER^409.324^^AU;0"
^DD(409.3,25,0)="COMMENTS^F^^0;18^K:$L(X)>60!($L(X)<1) X"
^DD(409.3,25,3)="Answer must be 1-60 characters in length."
^DD(409.3,25,21,0)="^.001^6^6^3020909^^^"
^DD(409.3,25,21,1,0)="Free Text field to enter information related to the "
^DD(409.3,25,21,2,0)="appointment that needs to be made."
^DD(409.3,25,21,3,0)="example: see progress note date 5/01/02"
^DD(409.3,25,21,4,0)="this would direct the scheduling clerk to a note that may contain"
^DD(409.3,25,21,5,0)="lab,xray orders that need to be completed prior to"
^DD(409.3,25,21,6,0)="the appointment."
^DD(409.3,25,"DT")="3050311"
^DD(409.3,26,0)="PACKAGE ORIGINATING^S^SD:SCHEDULING;PCMM:PCMM;^0;19^Q"
^DD(409.3,26,"DT")="3020628"
^DD(409.3,27,0)="EWL ENROLLEE STATUS^S^N:NEW;E:ESTABLISHED;P:PRIOR;U:UNDETERMINED;^0;20^Q"
^DD(409.3,27,21,0)="^^2^2^3020913^"
^DD(409.3,27,21,1,0)="A set of code that is determined by a formula looking at date patient "
^DD(409.3,27,21,2,0)="last seen (file #391.91 and enrollment date from file #27.11)"
^DD(409.3,27,"DT")="3020815"
^DD(409.3,27.1,0)="EWL ENROLLEE DATE USED^D^^1;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.3,27.1,21,0)="^^2^2^3060725^"
^DD(409.3,27.1,21,1,0)="This field contains the actual date used to calculate the number of days "
^DD(409.3,27.1,21,2,0)="between the current date and the last treatment or enrollment date. "
^DD(409.3,27.1,"DT")="3060509"
^DD(409.3,27.2,0)="EWL ENROLLEE DATABASE FILE^S^0:NONE;1:TREATING FACILITY;2:PATIENT ENROLLMENT;3:OUTPATIENT ENCOUNTER;4:KLF DOWNLOAD;^1;4^Q"
^DD(409.3,27.2,21,0)="^^4^4^3060725^"
^DD(409.3,27.2,21,1,0)="This field is used to track the file used to obtain either the last "
^DD(409.3,27.2,21,2,0)="treatment date (TREATING FACILITY file #391.52) or the enrollment date "
^DD(409.3,27.2,21,3,0)="(PATIENT ENROLLMENT file #27.11). It is used internally only for audit "
^DD(409.3,27.2,21,4,0)="purposes."
^DD(409.3,27.2,"DT")="3060522"
^DD(409.3,28,0)="EDITING USER^P200'^VA(200,^0;21^Q"
^DD(409.3,28,"AUDIT")="n"
^DD(409.3,28,"DT")="3020930"
^DD(409.3,29,0)="REOPEN REASON^S^CC:INACTIVATED CLINIC;CA:CANCELED APPOINTMENT;DE:DATE OF DEATH ERROR;O:OTHER;^1;1^Q"
^DD(409.3,29,21,0)="^^1^1^3050506^"
^DD(409.3,29,21,1,0)="The reason why the closed EWL entry was open."
^DD(409.3,29,23,0)="^.001^2^2^3050506^^^"
^DD(409.3,29,23,1,0)="This field has been added with patch SD*5.3*327. It is populated by the "
^DD(409.3,29,23,2,0)="EWL background job."
^DD(409.3,29,"DT")="3050426"
^DD(409.3,30,0)="REOPEN COMMENT^F^^1;2^K:$L(X)>72!($L(X)<3) X"
^DD(409.3,30,3)="Answer must be 3-72 characters in length"
^DD(409.3,30,21,0)="^^1^1^3050506^"
^DD(409.3,30,21,1,0)="The comment used optionally with the Reopen Reason if applicable,"
^DD(409.3,30,"DT")="3050311"
^DD(409.3,32,0)="REJECTION FLAG^S^1:REJECTED;^FLAGS;2^Q"
^DD(409.3,32,"DT")="3060513"
^DD(409.3,33,0)="SCHEDULING REMINDER FLAG^S^Y:TICKLER FLAG;^FLAGS;3^Q"
^DD(409.3,33,"DT")="3060605"
^DD(409.3,34,0)="INTRA TRANSFER FLAG^S^1:INTRA TRANSFER FLAG;^FLAGS;4^Q"
^DD(409.3,34,"DT")="3060427"
^DD(409.3,36,0)="120 DAYS FIELD^S^1:NO APPOINTMENT;2:WITH APPOINTMENT;^FLAGS;6^Q"
^DD(409.3,36,"DT")="3060427"
^DD(409.3,37,0)="CHANGED CLINIC PARENT POINTER^P409.3'^SDWL(409.3,^0;22^Q"
^DD(409.3,37,21,0)="^.001^3^3^3070103^^"
^DD(409.3,37,21,1,0)="When an EWL entry is closed with a disposition code of CL: CLINIC CHANGE,"
^DD(409.3,37,21,2,0)="the process involves the creation of a new EWL entry with details copied"
^DD(409.3,37,21,3,0)="from the parent. This is a pointer back to that parent entry."
^DD(409.3,37,"DT")="3060525"
^DD(409.3,38,0)="MULTI TEAM FLAG^S^1:MULTI TEAM LOCATION;0:SINGL TEAM LOCATION;^FLAGS;5^Q"
^DD(409.3,38,"DT")="3060524"
^DD(409.3,39,0)="120 DAY APPT CREATED^S^1:APPT CREATED;^FLAGS;1^Q"
^DD(409.3,39,"DT")="3060529"
^DD(409.3,"B","120 DAY APPT CREATED",39)=""
^DD(409.3,"B","120 DAYS FIELD",36)=""
^DD(409.3,"B","APPT CLERK",13.7)=""
^DD(409.3,"B","APPT CLINIC",13.2)=""
^DD(409.3,"B","APPT CREDIT STOP CODE",13.5)=""
^DD(409.3,"B","APPT INSTITUTION",13.3)=""
^DD(409.3,"B","APPT STATION NUMBER",13.6)=""
^DD(409.3,"B","APPT STATUS",13.8)=""
^DD(409.3,"B","APPT STOP CODE",13.4)=""
^DD(409.3,"B","AUDIT POINTER",24)=""
^DD(409.3,"B","CHANGED CLINIC PARENT POINTER",37)=""
^DD(409.3,"B","COMMENTS",25)=""
^DD(409.3,"B","CURRENT STATUS",23)=""
^DD(409.3,"B","DATE APPT. MADE",13.1)=""
^DD(409.3,"B","DATE DISPOSITIONED",19)=""
^DD(409.3,"B","DATE OF TRANSMISSION",3.1)=""
^DD(409.3,"B","DESIRED DATE OF APPOINTMENT",22)=""
^DD(409.3,"B","DISPOSITION",21)=""
^DD(409.3,"B","DISPOSITIONED BY",20)=""
^DD(409.3,"B","DO NOT REMOVE COMMENT",18.1)=""
^DD(409.3,"B","DO NOT REMOVE DATE",16)=""
^DD(409.3,"B","DO NOT REMOVE REASON",18)=""
^DD(409.3,"B","EDITING USER",28)=""
^DD(409.3,"B","EWL ENROLLEE DATABASE FILE",27.2)=""
^DD(409.3,"B","EWL ENROLLEE DATE USED",27.1)=""
^DD(409.3,"B","EWL ENROLLEE STATUS",27)=""
^DD(409.3,"B","INSTITUTION",2)=""
^DD(409.3,"B","INTRA TRANSFER FLAG",34)=""
^DD(409.3,"B","MULTI TEAM FLAG",38)=""
^DD(409.3,"B","ORIGINATING DATE",1)=""
^DD(409.3,"B","ORIGINATING USER",9)=""
^DD(409.3,"B","PACKAGE ORIGINATING",26)=""
^DD(409.3,"B","PATIENT",.01)=""
^DD(409.3,"B","PRIORITY",10)=""
^DD(409.3,"B","PROVIDER",12)=""
^DD(409.3,"B","REJECTION FLAG",32)=""
^DD(409.3,"B","REOPEN COMMENT",30)=""
^DD(409.3,"B","REOPEN REASON",29)=""
^DD(409.3,"B","REQUEST BY",11)=""
^DD(409.3,"B","SCHEDULED DATE OF APPT",13)=""
^DD(409.3,"B","SCHEDULING REMINDER FLAG",33)=""
^DD(409.3,"B","SERVICE CONNECTED PERCENTAGE",14)=""
^DD(409.3,"B","SERVICE CONNECTED PRIORITY",15)=""
^DD(409.3,"B","TRANMISSION STATUS TO ACC",3)=""
^DD(409.3,"B","USER ENTERING NO REMOVE",17)=""
^DD(409.3,"B","WAIT LIST TYPE",4)=""
^DD(409.3,"B","WL SERVICE/SPECIALTY",7)=""
^DD(409.3,"B","WL SPECIFIC CLINIC",8)=""
^DD(409.3,"B","WL SPECIFIC POSITION",6)=""
^DD(409.3,"B","WL SPECIFIC TEAM",5)=""
^DD(409.3,"GL",0,1,.01)=""
^DD(409.3,"GL",0,2,1)=""
^DD(409.3,"GL",0,3,2)=""
^DD(409.3,"GL",0,4,3)=""
^DD(409.3,"GL",0,5,4)=""
^DD(409.3,"GL",0,6,5)=""
^DD(409.3,"GL",0,7,6)=""
^DD(409.3,"GL",0,8,7)=""
^DD(409.3,"GL",0,9,8)=""
^DD(409.3,"GL",0,10,9)=""
^DD(409.3,"GL",0,11,10)=""
^DD(409.3,"GL",0,12,11)=""
^DD(409.3,"GL",0,13,12)=""
^DD(409.3,"GL",0,14,16)=""
^DD(409.3,"GL",0,15,17)=""
^DD(409.3,"GL",0,16,22)=""
^DD(409.3,"GL",0,17,23)=""
^DD(409.3,"GL",0,18,25)=""
^DD(409.3,"GL",0,19,26)=""
^DD(409.3,"GL",0,20,27)=""
^DD(409.3,"GL",0,21,28)=""
^DD(409.3,"GL",0,22,37)=""
^DD(409.3,"GL",0,23,13)=""
^DD(409.3,"GL",1,1,29)=""
^DD(409.3,"GL",1,2,30)=""
^DD(409.3,"GL",1,3,27.1)=""
^DD(409.3,"GL",1,4,27.2)=""
^DD(409.3,"GL","ACCDATE",0,3.1)=""
^DD(409.3,"GL","AU",0,24)=""
^DD(409.3,"GL","DIS",1,19)=""
^DD(409.3,"GL","DIS",2,20)=""
^DD(409.3,"GL","DIS",3,21)=""
^DD(409.3,"GL","DNR",1,18)=""
^DD(409.3,"GL","DNR",2,18.1)=""
^DD(409.3,"GL","FLAGS",1,39)=""
^DD(409.3,"GL","FLAGS",2,32)=""
^DD(409.3,"GL","FLAGS",3,33)=""
^DD(409.3,"GL","FLAGS",4,34)=""
^DD(409.3,"GL","FLAGS",5,38)=""
^DD(409.3,"GL","FLAGS",6,36)=""
^DD(409.3,"GL","SC",1,14)=""
^DD(409.3,"GL","SC",2,15)=""
^DD(409.3,"GL","SDAPT",1,13.1)=""
^DD(409.3,"GL","SDAPT",2,13.2)=""
^DD(409.3,"GL","SDAPT",3,13.3)=""
^DD(409.3,"GL","SDAPT",4,13.4)=""
^DD(409.3,"GL","SDAPT",5,13.5)=""
^DD(409.3,"GL","SDAPT",6,13.6)=""
^DD(409.3,"GL","SDAPT",7,13.7)=""
^DD(409.3,"GL","SDAPT",8,13.8)=""
^DD(409.3,"IX",.01)=""
^DD(409.3,"IX",2)=""
^DD(409.3,"IX",5)=""
^DD(409.3,"IX",6)=""
^DD(409.3,"IX",7)=""
^DD(409.3,"IX",8)=""
^DD(409.3,"RQ",.01)=""
^DD(409.3,"RQ",2)=""
^DD(409.3,"RQ",4)=""
^DD(409.3,"RQ",8)=""
^DD(409.3,"RQ",10)=""
^DD(409.3,"RQ",11)=""
^DD(409.3,"RQ",22)=""
^DD(409.3,"SB",409.324,24)=""
^DD(409.3,"SB",409.33,3.1)=""
^DD(409.31,0)="FIELD^^1^2"
^DD(409.31,0,"DDA")="N"
^DD(409.31,0,"DT")="3021022"
^DD(409.31,0,"IX","B",409.31,.01)=""
^DD(409.31,0,"IX","C",409.311,.01)=""
^DD(409.31,0,"IX","D",409.311,.01)=""
^DD(409.31,0,"IX","E",409.311,.01)=""
^DD(409.31,0,"IX","F",409.311,3)=""
^DD(409.31,0,"IX","G",409.311,1)=""
^DD(409.31,0,"NM","SD WL SERVICE/SPECIALTY")=""
^DD(409.31,0,"PT",409.3,7)=""
^DD(409.31,0,"VR")="5.3"
^DD(409.31,0,"VRPK")="SD"
^DD(409.31,.01,0)="SERVICE/SPECIALTY^RP40.7I^DIC(40.7,^0;1^Q"
^DD(409.31,.01,1,0)="^.1"
^DD(409.31,.01,1,1,0)="409.31^B"
^DD(409.31,.01,1,1,1)="S ^SDWL(409.31,""B"",$E(X,1,30),DA)="""""
^DD(409.31,.01,1,1,2)="K ^SDWL(409.31,""B"",$E(X,1,30),DA)"
^DD(409.31,.01,3)="Enter an active DSS ID that can be used by the institution for assigning wait list."
^DD(409.31,.01,21,0)="^.001^4^4^3021022^^^^"
^DD(409.31,.01,21,1,0)="Enter DSS ID that are approved to be used by"
^DD(409.31,.01,21,2,0)="the Wait List(Sch/PCMM) application.  Only"
^DD(409.31,.01,21,3,0)="active DSS IDs in the Clinic Stop file"
^DD(409.31,.01,21,4,0)="can be added."
^DD(409.31,.01,"DT")="3021022"
^DD(409.31,1,0)="INSTITUTION^409.311P^^I;0"
^DD(409.31,"B","INSTITUTION",1)=""
^DD(409.31,"B","SERVICE/SPECIALTY",.01)=""
^DD(409.31,"GL",0,1,.01)=""
^DD(409.31,"GL","I",0,1)=""
^DD(409.31,"IX",.01)=""
^DD(409.31,"RQ",.01)=""
^DD(409.31,"SB",409.311,1)=""
^DD(409.311,0)="INSTITUTION SUB-FIELD^^4^5"
^DD(409.311,0,"DT")="3020923"
^DD(409.311,0,"IX","B",409.311,.01)=""
^DD(409.311,0,"NM","INSTITUTION")=" "
^DD(409.311,0,"UP")="409.31"
^DD(409.311,.01,0)="INSTITUTION^R*P4^DIC(4,^0;1^S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.311,.01,1,0)="^.1"
^DD(409.311,.01,1,1,0)="409.311^B"
^DD(409.311,.01,1,1,1)="S ^SDWL(409.31,DA(1),""I"",""B"",$E(X,1,30),DA)="""""
^DD(409.311,.01,1,1,2)="K ^SDWL(409.31,DA(1),""I"",""B"",$E(X,1,30),DA)"
^DD(409.311,.01,1,2,0)="409.31^C^MUMPS"
^DD(409.311,.01,1,2,1)="I $D(X) S ^SDWL(409.31,""C"",DA(1),DA)="""""
^DD(409.311,.01,1,2,2)="K ^SDWL(409.31,""C"",DA(1),DA)"
^DD(409.311,.01,1,2,"DT")="3020715"
^DD(409.311,.01,1,3,0)="409.31^D^MUMPS"
^DD(409.311,.01,1,3,1)="I $D(X) S ^SDWL(409.31,""D"",DA(1),X)="""""
^DD(409.311,.01,1,3,2)="K ^SDWL(409.31,""D"",DA(1),X)"
^DD(409.311,.01,1,3,"DT")="3020725"
^DD(409.311,.01,1,4,0)="409.31^E^MUMPS"
^DD(409.311,.01,1,4,1)="I $D(X) S ^SDWL(409.31,""E"",X,DA(1))="""""
^DD(409.311,.01,1,4,2)="K ^SDWL(409.31,""E"",X,DA(1))"
^DD(409.311,.01,1,4,"DT")="3020810"
^DD(409.311,.01,3)="ENTER INSTITUTION FOR THIS SERVICE/SPECIALTY.  INSTITUTION MUST BE NATIONAL AND A TREATING FACILITY."
^DD(409.311,.01,12)="Institution must be NATIONAL and a TREATING FACILITY"
^DD(409.311,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"""
^DD(409.311,.01,21,0)="^.001^1^1^3020913^^^"
^DD(409.311,.01,21,1,0)="The institution that allows the DSS ID as a wait list selection."
^DD(409.311,.01,"DT")="3030304"
^DD(409.311,1,0)="DATE ACTIVATED^RDI^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.311,1,1,0)="^.1"
^DD(409.311,1,1,1,0)="^^TRIGGER^409.311^2"
^DD(409.311,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SDWL(409.31,D0,""I"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(409.311,1,1,1,1.4)"
^DD(409.311,1,1,1,1.4)="S DIH=$G(^SDWL(409.31,DIV(0),""I"",DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=409.311,DIG=2 D ^DICR"
^DD(409.311,1,1,1,2)="Q"
^DD(409.311,1,1,1,"CREATE VALUE")="S X=DUZ"
^DD(409.311,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.311,1,1,1,"FIELD")="ACTIVATION DATE ENTERED BY"
^DD(409.311,1,1,2,0)="409.31^G^MUMPS"
^DD(409.311,1,1,2,1)="I $D(X) S ^SDWL(409.31,""ACT"",$P(^SDWL(409.31,DA(1),""I"",DA,0),U,1),X,DA(1),DA)="""""
^DD(409.311,1,1,2,2)="K ^SDWL(409.31,""ACT"",$P(^SDWL(409.31,DA(1),""I"",DA,0),U,1),X,DA(1),DA),^SDWL(409.31,""DEL"",$P(^SDWL(409.31,DA(1),""I"",DA,0),U,1))"
^DD(409.311,1,1,2,"DT")="3020814"
^DD(409.311,1,3)="Enter the date when this Service/Specialty can be selected"
^DD(409.311,1,21,0)="^.001^2^2^3021011^^^^"
^DD(409.311,1,21,1,0)="Date that this DSS ID can be used as a wait list selectable "
^DD(409.311,1,21,2,0)="Service/Specialty"
^DD(409.311,1,"DT")="3021011"
^DD(409.311,2,0)="ACTIVATION DATE ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(409.311,2,5,1,0)="409.311^1^1"
^DD(409.311,2,9)="^"
^DD(409.311,2,21,0)="^^1^1^3020913^"
^DD(409.311,2,21,1,0)="User that entered the activation date for this DSS ID"
^DD(409.311,2,"DT")="3020715"
^DD(409.311,3,0)="DATE INACTIVATED^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.311,3,1,0)="^.1"
^DD(409.311,3,1,1,0)="^^TRIGGER^409.311^4"
^DD(409.311,3,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^SDWL(409.31,D0,""I"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(409.311,3,1,1,1.4)"
^DD(409.311,3,1,1,1.4)="S DIH=$G(^SDWL(409.31,DIV(0),""I"",DIV(1),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=409.311,DIG=4 D ^DICR"
^DD(409.311,3,1,1,2)="Q"
^DD(409.311,3,1,1,"CREATE VALUE")="S X=DUZ"
^DD(409.311,3,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.311,3,1,1,"FIELD")="INACTIVATED DATE"
^DD(409.311,3,1,2,0)="409.31^F^MUMPS"
^DD(409.311,3,1,2,1)="I $D(X) S ^SDWL(409.31,""DEL"",$P(^SDWL(409.31,DA(1),""I"",DA,0),U,1),X,DA(1),DA)="""""
^DD(409.311,3,1,2,2)="K ^SDWL(409.31,""DEL"",$P(^SDWL(409.31,DA(1),""I"",DA,0),U,1),X,DA(1),DA)"
^DD(409.311,3,1,2,"DT")="3020814"
^DD(409.311,3,3)="Enter the date when this Service/Specialty can no longer be selected"
^DD(409.311,3,21,0)="^.001^1^1^3020913^^^"
^DD(409.311,3,21,1,0)="Date that this DSS ID can no longer be used as a wait list selectable"
^DD(409.311,3,"DT")="3020814"
^DD(409.311,4,0)="INACTIVATED DATE ENTERED BY^P200'^VA(200,^0;5^Q"
^DD(409.311,4,5,1,0)="409.311^3^1"
^DD(409.311,4,9)="^"
^DD(409.311,4,21,0)="^^1^1^3020913^"
^DD(409.311,4,21,1,0)="The user that entered the inactivated date for this DSS ID"
^DD(409.311,4,"DT")="3020715"
^DD(409.311,"B","ACTIVATION DATE ENTERED BY",2)=""
^DD(409.311,"B","DATE ACTIVATED",1)=""
^DD(409.311,"B","DATE INACTIVATED",3)=""
^DD(409.311,"B","INACTIVATED DATE ENTERED BY",4)=""
^DD(409.311,"B","INSTITUTION",.01)=""
^DD(409.311,"GL",0,1,.01)=""
^DD(409.311,"GL",0,2,1)=""
^DD(409.311,"GL",0,3,2)=""
^DD(409.311,"GL",0,4,3)=""
^DD(409.311,"GL",0,5,4)=""
^DD(409.311,"IX",.01)=""
^DD(409.311,"IX",1)=""
^DD(409.311,"IX",3)=""
^DD(409.311,"RQ",.01)=""
^DD(409.311,"RQ",1)=""
^DD(409.32,0)="FIELD^^4^6"
^DD(409.32,0,"DDA")="N"
^DD(409.32,0,"DT")="3020923"
^DD(409.32,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.32,0,"IX","ACT",409.32,1)=""
^DD(409.32,0,"IX","B",409.32,.01)=""
^DD(409.32,0,"IX","C",409.32,.02)=""
^DD(409.32,0,"IX","INA",409.32,3)=""
^DD(409.32,0,"NM","SD WL CLINIC LOCATION")=""
^DD(409.32,0,"PT",409.3,8)=""
^DD(409.32,0,"VR")="5.3"
^DD(409.32,0,"VRPK")="SD"
^DD(409.32,.01,0)="CLINIC^RP44I^SC(^0;1^Q"
^DD(409.32,.01,1,0)="^.1"
^DD(409.32,.01,1,1,0)="409.32^B"
^DD(409.32,.01,1,1,1)="S ^SDWL(409.32,""B"",$E(X,1,30),DA)="""""
^DD(409.32,.01,1,1,2)="K ^SDWL(409.32,""B"",$E(X,1,30),DA)"
^DD(409.32,.01,1,2,0)="^^TRIGGER^409.32^.02"
^DD(409.32,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SDWL(409.32,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(409.32,.01,1,2,1.1) S DIH=$G(^SDWL(409.32,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=409.32,DIG=.02 D ^DICR"
^DD(409.32,.01,1,2,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^SC(+D0,0)) D0=-1 S Y(102)=$S($D(^SC(D0,0)):^(0),1:""""),Y(101)=X S X=$P(Y(102),U,4),X=X S X=X S D0=I(0,0)"
^DD(409.32,.01,1,2,2)="Q"
^DD(409.32,.01,1,2,"CREATE VALUE")="#.01:INTERNAL(#3)"
^DD(409.32,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(409.32,.01,1,2,"DT")="3020626"
^DD(409.32,.01,1,2,"FIELD")="INSTITUTION"
^DD(409.32,.01,3)="Select a clinic that can have patients on a Wait List"
^DD(409.32,.01,21,0)="^.001^3^3^3020914^^^^"
^DD(409.32,.01,21,1,0)="Enter clinics that are approved to be used by the"
^DD(409.32,.01,21,2,0)="Wait List(Sch/PCMM) application."
^DD(409.32,.01,21,3,0)="Only active clinics in the Hospital Location file can be added."
^DD(409.32,.01,"DT")="3020716"
^DD(409.32,.02,0)="INSTITUTION^*P4'^DIC(4,^0;6^S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.32,.02,1,0)="^.1"
^DD(409.32,.02,1,1,0)="409.32^C"
^DD(409.32,.02,1,1,1)="S ^SDWL(409.32,""C"",$E(X,1,30),DA)="""""
^DD(409.32,.02,1,1,2)="K ^SDWL(409.32,""C"",$E(X,1,30),DA)"
^DD(409.32,.02,1,1,"DT")="3020702"
^DD(409.32,.02,5,1,0)="409.32^.01^2"
^DD(409.32,.02,12)="INSTITUTION must be NATIONAL and a treating facility."
^DD(409.32,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""N"""",$$TF^XUAF4(+Y)"""
^DD(409.32,.02,21,0)="^.001^1^1^3020913^^^^"
^DD(409.32,.02,21,1,0)="Institution of the clinic in the .01 field"
^DD(409.32,.02,"DT")="3030304"
^DD(409.32,1,0)="DATE ACTIVATED^RDI^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.32,1,1,0)="^.1"
^DD(409.32,1,1,1,0)="409.32^ACT^MUMPS"
^DD(409.32,1,1,1,1)="I $D(X) S ^SDWL(409.32,""ACT"",$P(^SDWL(409.32,DA,0),U,6),$P(^(0),U,1),DA,X)="""""
^DD(409.32,1,1,1,2)="K ^SDWL(409.32,""ACT"",$P(^SDWL(409.32,DA,0),U,6),$P(^(0),U,1),DA,X)"
^DD(409.32,1,1,1,"DT")="3020819"
^DD(409.32,1,3)="This is a required."
^DD(409.32,1,21,0)="^.001^1^1^3020923^^^"
^DD(409.32,1,21,1,0)="Date the clinic is available to Wait List(Sch/PCMM)."
^DD(409.32,1,"DT")="3020923"
^DD(409.32,2,0)="ACTIVATION DATE ENTERED BY^P200^VA(200,^0;3^Q"
^DD(409.32,2,3)=""
^DD(409.32,2,21,0)="^^1^1^3020626^"
^DD(409.32,2,21,1,0)="User entering activation date for clinic to Wait List(Sch/PCMM)."
^DD(409.32,2,"DT")="3020618"
^DD(409.32,3,0)="DATE INACTIVATED^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.32,3,1,0)="^.1"
^DD(409.32,3,1,1,0)="409.32^INA^MUMPS"
^DD(409.32,3,1,1,1)="I $D(X) K ^SDWL(409.32,""ACT"",$P(^SDWL(409.32,DA,0),U,6),$P(^(0),U,1))"
^DD(409.32,3,1,1,2)="Q"
^DD(409.32,3,1,1,"DT")="3020819"
^DD(409.32,3,3)=""
^DD(409.32,3,21,0)="^^1^1^3020626^"
^DD(409.32,3,21,1,0)="Date clinic can no longer be used by the Wait List(Sch/PCMM)."
^DD(409.32,3,"DT")="3020819"
^DD(409.32,4,0)="INACTIVATION DATE ENTERED BY^P200^VA(200,^0;5^Q"
^DD(409.32,4,3)=""
^DD(409.32,4,21,0)="^.001^1^1^3020626^^"
^DD(409.32,4,21,1,0)="Date the clinic is no longer to be used by Wait List(Sch/PCMM)."
^DD(409.32,4,"DT")="3020618"
^DD(409.32,"B","ACTIVATION DATE ENTERED BY",2)=""
^DD(409.32,"B","CLINIC",.01)=""
^DD(409.32,"B","DATE ACTIVATED",1)=""
^DD(409.32,"B","DATE INACTIVATED",3)=""
^DD(409.32,"B","INACTIVATION DATE ENTERED BY",4)=""
^DD(409.32,"B","INSTITUTION",.02)=""
^DD(409.32,"GL",0,1,.01)=""
^DD(409.32,"GL",0,2,1)=""
^DD(409.32,"GL",0,3,2)=""
^DD(409.32,"GL",0,4,3)=""
^DD(409.32,"GL",0,5,4)=""
^DD(409.32,"GL",0,6,.02)=""
^DD(409.32,"IX",.01)=""
^DD(409.32,"IX",.02)=""
^DD(409.32,"IX",1)=""
^DD(409.32,"IX",3)=""
^DD(409.32,"RQ",.01)=""
^DD(409.32,"RQ",1)=""
^DD(409.324,0)="AUDIT POINTER SUB-FIELD^^.01^1"
^DD(409.324,0,"DT")="3020713"
^DD(409.324,0,"IX","B",409.324,.01)=""
^DD(409.324,0,"NM","AUDIT POINTER")=""
^DD(409.324,0,"UP")="409.3"
^DD(409.324,.01,0)="AUDIT POINTER^NJ11,0^^0;1^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.324,.01,1,0)="^.1"
^DD(409.324,.01,1,1,0)="409.324^B"
^DD(409.324,.01,1,1,1)="S ^SDWL(409.3,DA(1),""AU"",""B"",$E(X,1,30),DA)="""""
^DD(409.324,.01,1,1,2)="K ^SDWL(409.3,DA(1),""AU"",""B"",$E(X,1,30),DA)"
^DD(409.324,.01,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(409.324,.01,"DT")="3020713"
^DD(409.324,"B","AUDIT POINTER",.01)=""
^DD(409.324,"GL",0,1,.01)=""
^DD(409.324,"IX",.01)=""
^DD(409.33,0)="DATE OF TRANSMISSION SUB-FIELD^^.01^1"
^DD(409.33,0,"DT")="3020808"
^DD(409.33,0,"IX","B",409.33,.01)=""
^DD(409.33,0,"NM","DATE OF TRANSMISSION")=""
^DD(409.33,0,"UP")="409.3"
^DD(409.33,.01,0)="DATE OF TRANSMISSION^MD^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.33,.01,1,0)="^.1"
^DD(409.33,.01,1,1,0)="409.33^B"
^DD(409.33,.01,1,1,1)="S ^SDWL(409.3,DA(1),""ACCDATE"",""B"",$E(X,1,30),DA)="""""
^DD(409.33,.01,1,1,2)="K ^SDWL(409.3,DA(1),""ACCDATE"",""B"",$E(X,1,30),DA)"
^DD(409.33,.01,21,0)="^^1^1^3020913^"
^DD(409.33,.01,21,1,0)="Date of Wait List transmission"
^DD(409.33,.01,"DT")="3020808"
^DD(409.33,"B","DATE OF TRANSMISSION",.01)=""
^DD(409.33,"GL",0,1,.01)=""
^DD(409.33,"IX",.01)=""
^DD(409.35,0)="FIELD^^7^8"
^DD(409.35,0,"DT")="3070123"
^DD(409.35,0,"IX","B",409.35,.01)=""
^DD(409.35,0,"NM","SDWL TRANSFER REQUEST")=""
^DD(409.35,0,"VR")="5.3"
^DD(409.35,0,"VRPK")="SD"
^DD(409.35,.01,0)="WAIT LIST ENTRY^RP409.3^SDWL(409.3,^0;1^Q"
^DD(409.35,.01,1,0)="^.1"
^DD(409.35,.01,1,1,0)="409.35^B"
^DD(409.35,.01,1,1,1)="S ^SDWL(409.35,""B"",$E(X,1,30),DA)="""""
^DD(409.35,.01,1,1,2)="K ^SDWL(409.35,""B"",$E(X,1,30),DA)"
^DD(409.35,.01,3)=""
^DD(409.35,.01,21,0)="^.001^1^1^3070103^^"
^DD(409.35,.01,21,1,0)="The patient that is to be on the Sch/PCMM Wait List."
^DD(409.35,.01,"DT")="3050506"
^DD(409.35,1,0)="STATION NUMBER^RNJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.35,1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(409.35,1,21,0)="^^2^2^3050614^"
^DD(409.35,1,21,1,0)="The Station Number of the Institution the request for transfer is to be"
^DD(409.35,1,21,2,0)="made to."
^DD(409.35,1,"DT")="3050614"
^DD(409.35,2,0)="TRANSMISSION DATE/TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.35,2,21,0)="^^1^1^3050506^"
^DD(409.35,2,21,1,0)="Exact date and time (including seconds) of the moment of transmission."
^DD(409.35,2,"DT")="3050506"
^DD(409.35,3,0)="STATUS^RS^P:PENDING XMIT;T:TRANSMITTED;R:RECEIVED;X:REFUSED;A:RESOLVED;C:CANCELLED;E:ON EWL;^0;4^Q"
^DD(409.35,3,21,0)="^.001^12^12^3070206^^^"
^DD(409.35,3,21,1,0)="PENDING XMIT : The details have been entered and are about to be  "
^DD(409.35,3,21,2,0)="               transmitted to their destination"
^DD(409.35,3,21,3,0)="TRANSMITTED  : The details have been transmitted to their destination"
^DD(409.35,3,21,4,0)="RECEIVED     : The details have arrived at the destination facility and "
^DD(409.35,3,21,5,0)="               are held on a pending file (#409.36)"
^DD(409.35,3,21,6,0)="REFUSED      : The details were not accepted by the users at the "
^DD(409.35,3,21,7,0)="               desination facility"
^DD(409.35,3,21,8,0)="RESOLVED     : The details were accepted by the users at the desination "
^DD(409.35,3,21,9,0)="               facility"
^DD(409.35,3,21,10,0)="CANCELLED    : A cancellation request has been made. Awaiting "
^DD(409.35,3,21,11,0)="               acknowlegement from the receiving facility."
^DD(409.35,3,21,12,0)="ON EWL         Patient has been placed on the EWL at the destination"
^DD(409.35,3,"DT")="3070123"
^DD(409.35,4,0)="REQUESTOR^RP200'^VA(200,^0;5^Q"
^DD(409.35,4,21,0)="^.001^1^1^3050506^^"
^DD(409.35,4,21,1,0)="The person making the request for transfer."
^DD(409.35,4,"DT")="3050506"
^DD(409.35,5,0)="COMMENT^409.355^^1;0"
^DD(409.35,6,0)="RECEIVING FACILITY TRANSFER ID^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(409.35,6,3)="Answer must be 1-10 characters in length."
^DD(409.35,6,"DT")="3050506"
^DD(409.35,7,0)="ACCEPTING PERSON^F^^0;7^K:$L(X)>35!($L(X)<3) X"
^DD(409.35,7,3)="Answer must be 3-35 characters in length."
^DD(409.35,7,21,0)="^^3^3^3050613^"
^DD(409.35,7,21,1,0)="This is the name of the person who accepted the transfer at the "
^DD(409.35,7,21,2,0)="destination facility. It is a free text name from the NEW PERSON file "
^DD(409.35,7,21,3,0)="(#200)."
^DD(409.35,7,"DT")="3050613"
^DD(409.35,"B","ACCEPTING PERSON",7)=""
^DD(409.35,"B","COMMENT",5)=""
^DD(409.35,"B","RECEIVING FACILITY TRANSFER ID",6)=""
^DD(409.35,"B","REQUESTOR",4)=""
^DD(409.35,"B","STATION NUMBER",1)=""
^DD(409.35,"B","STATUS",3)=""
^DD(409.35,"B","TRANSMISSION DATE/TIME",2)=""
^DD(409.35,"B","WAIT LIST ENTRY",.01)=""
^DD(409.35,"GL",0,1,.01)=""
^DD(409.35,"GL",0,2,1)=""
^DD(409.35,"GL",0,3,2)=""
^DD(409.35,"GL",0,4,3)=""
^DD(409.35,"GL",0,5,4)=""
^DD(409.35,"GL",0,6,6)=""
^DD(409.35,"GL",0,7,7)=""
^DD(409.35,"GL",1,0,5)=""
^DD(409.35,"IX",.01)=""
^DD(409.35,"RQ",.01)=""
^DD(409.35,"RQ",1)=""
^DD(409.35,"RQ",2)=""
^DD(409.35,"RQ",3)=""
^DD(409.35,"RQ",4)=""
^DD(409.35,"SB",409.355,5)=""
^DD(409.355,0)="COMMENT SUB-FIELD^^.01^1"
^DD(409.355,0,"DT")="3050506"
^DD(409.355,0,"NM","COMMENT")=""
^DD(409.355,0,"UP")="409.35"
^DD(409.355,.01,0)="COMMENT^W^^0;1^Q"
^DD(409.355,.01,21,0)="^.001^2^2^3050506^^"
^DD(409.355,.01,21,1,0)="This is a word processing field to allow free text comments to accompany"
^DD(409.355,.01,21,2,0)="the transmission to better describe the treatment that was being awaited."
^DD(409.355,.01,"DT")="3050506"
^DD(409.355,"B","COMMENT",.01)=""
^DD(409.355,"GL",0,1,.01)=""
^DD(409.36,0)="FIELD^^991.01^29"
^DD(409.36,0,"DT")="3050613"
^DD(409.36,0,"IX","B",409.36,.01)=""
^DD(409.36,0,"IX","C",409.36,409.3)=""
^DD(409.36,0,"NM","SDWL TRANSFER ACCEPT")=""
^DD(409.36,0,"VR")="5.3"
^DD(409.36,0,"VRPK")="SD"
^DD(409.36,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(409.36,.01,1,0)="^.1"
^DD(409.36,.01,1,1,0)="409.36^B"
^DD(409.36,.01,1,1,1)="S ^SDWL(409.36,""B"",$E(X,1,30),DA)="""""
^DD(409.36,.01,1,1,2)="K ^SDWL(409.36,""B"",$E(X,1,30),DA)"
^DD(409.36,.01,3)="Answer must be 3-30 characters in length."
^DD(409.36,.01,8.5)="#"
^DD(409.36,.01,21,0)="^^4^4^3050414^"
^DD(409.36,.01,21,1,0)="Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format."
^DD(409.36,.01,21,2,0)="This value must be 3-30 characters in length and may contain only"
^DD(409.36,.01,21,3,0)="uppercase alpha characters, spaces, apostrophes, hyphens and one comma.  "
^DD(409.36,.01,21,4,0)="All other characters and parenthetical text will be removed."
^DD(409.36,.01,"DT")="3050325"
^DD(409.36,.02,0)="SEX^S^M:MALE;F:FEMALE;^1;1^Q"
^DD(409.36,.02,8.5)="#"
^DD(409.36,.02,21,0)="^^1^1^3050414^"
^DD(409.36,.02,21,1,0)="Enter 'M' if this applicant is a male, or 'F' if female."
^DD(409.36,.02,"DT")="3050331"
^DD(409.36,.03,0)="DATE OF BIRTH^D^^1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.36,.03,8.5)="#"
^DD(409.36,.03,21,0)="^^2^2^3050414^"
^DD(409.36,.03,21,1,0)="Enter the applicant's date of birth between December 31, 1870 and today's "
^DD(409.36,.03,21,2,0)="date."
^DD(409.36,.03,"DT")="3050331"
^DD(409.36,.09,0)="SOCIAL SECURITY NUMBER^F^^1;3^K:$L(X)>11!($L(X)<9) X"
^DD(409.36,.09,3)="Answer must be 9-11 characters in length."
^DD(409.36,.09,8.5)="#"
^DD(409.36,.09,21,0)="^^34^34^3050414^"
^DD(409.36,.09,21,1,0)="Enter the applicants social security number as nine digits, i.e., "
^DD(409.36,.09,21,2,0)="123456789.  If the social security number is unknown and you need to "
^DD(409.36,.09,21,3,0)="assign a pseudo SSN follow it with a 'P', i.e., 123456789P.  Simply enter "
^DD(409.36,.09,21,4,0)="a 'P' if you wish the system to determine the proper pseudo SSN. Pseudo "
^DD(409.36,.09,21,5,0)="SSN's are determined as follows:"
^DD(409.36,.09,21,6,0)="   "
^DD(409.36,.09,21,7,0)="   1.  Based on the following table assign the first three numbers"
^DD(409.36,.09,21,8,0)="       of the pseudo SSN based on the patient's three initials in"
^DD(409.36,.09,21,9,0)="       first-middle-last initial order.  For example, if the name"
^DD(409.36,.09,21,10,0)="       is 'SMITH,JOHN P' the table would be used to convert JPS"
^DD(409.36,.09,21,11,0)="       (the initials for JOHN P SMITH) into 467."
^DD(409.36,.09,21,12,0)="    "
^DD(409.36,.09,21,13,0)="       ALPHA     NUMBER              ALPHA      NUMBER"
^DD(409.36,.09,21,14,0)="       -----     ------              -----      ------"
^DD(409.36,.09,21,15,0)="       A,B,C       1                 D,E,F        2"
^DD(409.36,.09,21,16,0)="       G,H,I       3                 J,K,L        4"
^DD(409.36,.09,21,17,0)="       M,N,O       5                 P,Q,R        6"
^DD(409.36,.09,21,18,0)="       S,T,U       7                 V,W,X        8"
^DD(409.36,.09,21,19,0)="       Y,Z         9                 NO INITIAL   0"
^DD(409.36,.09,21,20,0)="   "
^DD(409.36,.09,21,21,0)="   2.  Using the patient's date of birth convert it to six numerics"
^DD(409.36,.09,21,22,0)="       in month-day-year order.  Where a month, day or year consists of"
^DD(409.36,.09,21,23,0)="       less than one numeric, i.e., JUNE=6, preceed it by a zero, i.e.,"
^DD(409.36,.09,21,24,0)="       JUNE=06.  If the month and/or year of birth are unknown indicate"
^DD(409.36,.09,21,25,0)="       them as '00'."
^DD(409.36,.09,21,26,0)="    "
^DD(409.36,.09,21,27,0)=" EXAMPLES"
^DD(409.36,.09,21,28,0)=" --------"
^DD(409.36,.09,21,29,0)=" Patient Name             DOB                 Pseudo SSN"
^DD(409.36,.09,21,30,0)=" ------------             ---                 ----------"
^DD(409.36,.09,21,31,0)=" SMITH,JOHN P             Jan 3, 1917         467010317P"
^DD(409.36,.09,21,32,0)=" SMITH,JOHN P             Jan 1917            467010017P"
^DD(409.36,.09,21,33,0)=" SMITH,JOHN P             1917                467000017P"
^DD(409.36,.09,21,34,0)=" SMITH,JOHN               Dec 15, 1945        407121545P"
^DD(409.36,.09,"DT")="3050331"
^DD(409.36,.1,0)="REQUESTING STATION NUMBER^RNJ5,0^^.1;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.36,.1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(409.36,.1,8.5)="#"
^DD(409.36,.1,21,0)="^^3^3^3050613^"
^DD(409.36,.1,21,1,0)="This is the Station Number of the requesting facility. When "
^DD(409.36,.1,21,2,0)="acknowledgement messages are returned, the domain to which they are to be "
^DD(409.36,.1,21,3,0)="sent can be derived from this value."
^DD(409.36,.1,"DT")="3050613"
^DD(409.36,.111,0)="STREET ADDRESS [LINE 1]^F^^ADDR;1^K:$L(X)>45!($L(X)<3) X"
^DD(409.36,.111,3)="Answer must be 3-45 characters in length."
^DD(409.36,.111,8.5)="#"
^DD(409.36,.111,21,0)="^^2^2^3050414^"
^DD(409.36,.111,21,1,0)="Enter the first line of this applicant's residence street address [3-35 "
^DD(409.36,.111,21,2,0)="characters]."
^DD(409.36,.111,"DT")="3050331"
^DD(409.36,.112,0)="STREET ADDRESS [LINE 2]^F^^ADDR;2^K:$L(X)>30!($L(X)<3) X"
^DD(409.36,.112,3)="Answer must be 3-30 characters in length."
^DD(409.36,.112,8.5)="#"
^DD(409.36,.112,21,0)="^^2^2^3050414^"
^DD(409.36,.112,21,1,0)="Enter the second line of this applicant's residence street address [3-30 "
^DD(409.36,.112,21,2,0)="characters] if the space provided in 'street address' was not sufficient."
^DD(409.36,.112,"DT")="3050331"
^DD(409.36,.113,0)="STREET ADDRESS [LINE 3]^F^^ADDR;3^K:$L(X)>30!($L(X)<3) X"
^DD(409.36,.113,3)="Answer must be 3-30 characters in length."
^DD(409.36,.113,8.5)="#"
^DD(409.36,.113,21,0)="^^3^3^3050414^"
^DD(409.36,.113,21,1,0)="Enter the third line of this applicant's residence street address [3-30 "
^DD(409.36,.113,21,2,0)="characters] if the space provided in 'street address' and 'street address "
^DD(409.36,.113,21,3,0)="2' was not sufficient."
^DD(409.36,.113,"DT")="3050331"
^DD(409.36,.114,0)="CITY^F^^ADDR;4^K:$L(X)>15!($L(X)<3) X"
^DD(409.36,.114,3)="Answer must be 3-15 characters in length."
^DD(409.36,.114,8.5)="#"
^DD(409.36,.114,21,0)="^^3^3^3050414^"
^DD(409.36,.114,21,1,0)="Enter the city in which this applicant resides [2-15 characters]. If the "
^DD(409.36,.114,21,2,0)="space provided is not sufficient please abbreviate the city to the best "
^DD(409.36,.114,21,3,0)="of your ability."
^DD(409.36,.114,"DT")="3050331"
^DD(409.36,.115,0)="STATE^P5'^DIC(5,^ADDR;5^Q"
^DD(409.36,.115,8.5)="#"
^DD(409.36,.115,21,0)="^^2^2^3050414^"
^DD(409.36,.115,21,1,0)="From the available listing choose the state in which this applicant "
^DD(409.36,.115,21,2,0)="resides."
^DD(409.36,.115,"DT")="3050331"
^DD(409.36,.116,0)="ZIP CODE^NJ5,0^^ADDR;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.36,.116,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(409.36,.116,8.5)="#"
^DD(409.36,.116,21,0)="^^2^2^3050414^"
^DD(409.36,.116,21,1,0)="Enter the zip code [5 numerics] for the city in which this applicant "
^DD(409.36,.116,21,2,0)="resides."
^DD(409.36,.116,"DT")="3050331"
^DD(409.36,.117,0)="COUNTY^P5.1'^VIC(5.1,^ADDR;7^Q"
^DD(409.36,.117,8.5)="#"
^DD(409.36,.117,21,0)="^^3^3^3050414^"
^DD(409.36,.117,21,1,0)="If a state of residence is entered select from the available listing the "
^DD(409.36,.117,21,2,0)="county in which this applicant resides.  If no state (or a non-state) is "
^DD(409.36,.117,21,3,0)="entered no selection is possible."
^DD(409.36,.117,"DT")="3050407"
^DD(409.36,.1217,0)="TEMPORARY ADDRESS START DATE^D^^ADDR;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.36,.1217,8.5)="#"
^DD(409.36,.1217,21,0)="^^5^5^3050414^"
^DD(409.36,.1217,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the "
^DD(409.36,.1217,21,2,0)="date on which the applicant will commence being contacted at the "
^DD(409.36,.1217,21,3,0)="temporary address indicated, otherwise nothing may be entered.  This "
^DD(409.36,.1217,21,4,0)="field may not be deleted as long as the need for a temporary address is "
^DD(409.36,.1217,21,5,0)="indicated."
^DD(409.36,.1217,"DT")="3050407"
^DD(409.36,.1218,0)="TEMPORARY ADDRESS END DATE^D^^ADDR;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.36,.1218,8.5)="#"
^DD(409.36,.1218,21,0)="^^4^4^3050414^"
^DD(409.36,.1218,21,1,0)="If the WANT TO ENTER A TEMPORARY ADDRESS prompt is answered YES enter the "
^DD(409.36,.1218,21,2,0)="date as of which the applicant will no longer be contacted at that "
^DD(409.36,.1218,21,3,0)="temporary address, otherwise nothing may be entered.  This field may not "
^DD(409.36,.1218,21,4,0)="be deleted as long as the need for a temporary address is indicated."
^DD(409.36,.1218,"DT")="3050407"
^DD(409.36,.131,0)="PHONE NUMBER^F^^ADDR;8^K:$L(X)>20!($L(X)<1) X"
^DD(409.36,.131,3)="Answer must be 1-20 characters in length."
^DD(409.36,.131,8.5)="#"
^DD(409.36,.131,21,0)="^^2^2^3050414^"
^DD(409.36,.131,21,1,0)="Enter the telephone number [4-20 characters] to this applicant's place of "
^DD(409.36,.131,21,2,0)="residence."
^DD(409.36,.131,"DT")="3050407"
^DD(409.36,.2,0)="TRANSMISSION DATE/TIME^D^^.1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.36,.2,8.5)="#"
^DD(409.36,.2,21,0)="^^1^1^3050408^"
^DD(409.36,.2,21,1,0)="The date and time (including seconds) of the moment of transmission."
^DD(409.36,.2,"DT")="3050331"
^DD(409.36,.3,0)="COVERSHEET REQUESTED^S^Y:YES;^.1;3^Q"
^DD(409.36,.3,21,0)="^^3^3^3050613^"
^DD(409.36,.3,21,1,0)="This is a flag to indicate if a request has been made to print a "
^DD(409.36,.3,21,2,0)="coversheet with the transmitted details of the patient to be transferred. "
^DD(409.36,.3,21,3,0)="If the flag has been set to YES, the request can be notified as Accepted."
^DD(409.36,.3,"DT")="3050613"
^DD(409.36,.301,0)="SERVICE CONNECTED?^S^Y:YES;N:NO;^2;1^Q"
^DD(409.36,.301,8.5)="#"
^DD(409.36,.301,21,0)="^^4^4^3050414^"
^DD(409.36,.301,21,1,0)="Enter 'Y' if this applicant is service connected, 'N' if not. Applicants "
^DD(409.36,.301,21,2,0)="identified as being non-veterans cannot be entered as service connected.  "
^DD(409.36,.301,21,3,0)="Once eligibility has been verified only users holding the designated "
^DD(409.36,.301,21,4,0)="security key may enter/edit this field."
^DD(409.36,.301,"DT")="3050331"
^DD(409.36,.302,0)="SERVICE CONNECTED PERCENTAGE^NJ3,0^^2;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.36,.302,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(409.36,.302,8.5)="#"
^DD(409.36,.302,21,0)="^^5^5^3050414^"
^DD(409.36,.302,21,1,0)="If this applicant is service connected (SERVICE CONNECTED prompt must be "
^DD(409.36,.302,21,2,0)="answered YES) enter the service connected percentage [a number between "
^DD(409.36,.302,21,3,0)="0-100].  Once eligibility has been verified only users who hold the "
^DD(409.36,.302,21,4,0)="designated security key may enter/edit this field.  Field may not be "
^DD(409.36,.302,21,5,0)="deleted as long as service connection is indicated."
^DD(409.36,.302,"DT")="3050331"
^DD(409.36,.361,0)="PRIMARY ELIGIBILITY CODE^F^^2;3^K:$L(X)>75!($L(X)<3) X"
^DD(409.36,.361,3)="Answer must be 3-75 characters in length."
^DD(409.36,.361,8.5)="#"
^DD(409.36,.361,21,0)="^.001^41^41^3050429^^"
^DD(409.36,.361,21,1,0)="Select from the available listing the appropriate eligibility code for "
^DD(409.36,.361,21,2,0)="this applicant.  For non-veteran applicants a wide variety of choices are "
^DD(409.36,.361,21,3,0)="available.  For veteran applicants the choices are screened [in the "
^DD(409.36,.361,21,4,0)="following order] dependent on the responses to other prompts:"
^DD(409.36,.361,21,5,0)="   "
^DD(409.36,.361,21,6,0)="1.  If the SERVICE CONNECTED prompt (field .301) is answered YES"
^DD(409.36,.361,21,7,0)="    only the following two choices are available:"
^DD(409.36,.361,21,8,0)="    "
^DD(409.36,.361,21,9,0)="    a.  If the SERVICE CONNECTED PERCENTAGE prompt (field .302) entered"
^DD(409.36,.361,21,10,0)="        is 50% or greater 'SERVICE CONNECTED 50% TO 100%' can be"
^DD(409.36,.361,21,11,0)="        selected."
^DD(409.36,.361,21,12,0)="   "
^DD(409.36,.361,21,13,0)="    b.  Otherwise, the percentage is assumed to be less than 50% and"
^DD(409.36,.361,21,14,0)="        only 'SC, LESS THAN 50%' may be entered."
^DD(409.36,.361,21,15,0)="   "
^DD(409.36,.361,21,16,0)="2.  If the response to the WERE YOU A PRISONER OF WAR field (# .525)"
^DD(409.36,.361,21,17,0)="    is YES and the veteran is not service connected, you must select "
^DD(409.36,.361,21,18,0)="    PRISONER OF WAR as the eligibility code."
^DD(409.36,.361,21,19,0)="   "
^DD(409.36,.361,21,20,0)="3.  If the veteran is receiving VA benefits, but does not meet the"
^DD(409.36,.361,21,21,0)="    criteria in items 1 and 2 above, then the following choices may"
^DD(409.36,.361,21,22,0)="    be presented for selection:"
^DD(409.36,.361,21,23,0)=" "
^DD(409.36,.361,21,24,0)="    If RECEIVING A&A BENEFITS is answered YES, the eligibility code"
^DD(409.36,.361,21,25,0)="    AID & ATTENDANCE may be selected."
^DD(409.36,.361,21,26,0)=" "
^DD(409.36,.361,21,27,0)="    If the RECEIVING HOUSEBOUND BENEFITS is answered YES ,the eligibility"
^DD(409.36,.361,21,28,0)="    code HOUSEBOUND may be selected."
^DD(409.36,.361,21,29,0)=" "
^DD(409.36,.361,21,30,0)="    If the above two prompts were answered NO, but the RECEIVING A VA"
^DD(409.36,.361,21,31,0)="    PENSION prompt was answered YES, only the NSC, VA PENSION prompt"
^DD(409.36,.361,21,32,0)="    may be selected."
^DD(409.36,.361,21,33,0)=" "
^DD(409.36,.361,21,34,0)="4.  If none of the above pertain to this veteran, then the NSC eligibility"
^DD(409.36,.361,21,35,0)="    will be available for selection."
^DD(409.36,.361,21,36,0)=" "
^DD(409.36,.361,21,37,0)="**  Dependent on the birthdate of the applicant, the following two"
^DD(409.36,.361,21,38,0)="    eligibility codes may be displayed along with those shown in items"
^DD(409.36,.361,21,39,0)="    3 through 5 above:  WORLD WAR I and MEXICAN BORDER WAR.  These would"
^DD(409.36,.361,21,40,0)="    display for veterans not meeting the criteria in items 1 and 2, but"
^DD(409.36,.361,21,41,0)="    whose date of birth is prior to 1920."
^DD(409.36,.361,"DT")="3050429"
^DD(409.36,.4,0)="COMMENTS^409.364^^COMM;0"
^DD(409.36,.5,0)="SENDING FACILITY TRANSFER ID^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(409.36,.5,3)="Answer must be 1-10 characters in length."
^DD(409.36,.5,8.5)="#"
^DD(409.36,.5,21,0)="^.001^2^2^3050408^^"
^DD(409.36,.5,21,1,0)="Identifying reference to the transfer file on the transmitting facility "
^DD(409.36,.5,21,2,0)="(#409.35)."
^DD(409.36,.5,"DT")="3050407"
^DD(409.36,1,0)="STATUS^S^P:PENDING;E:EWL;C:CLOSED;R:REMOVED;T:TRANSFERRED;^2;4^Q"
^DD(409.36,1,21,0)="^.001^9^9^3070123^^^^"
^DD(409.36,1,21,1,0)="The current stage in the transfer process. Possible values are"
^DD(409.36,1,21,2,0)="P - PENDING: where a transfer request has been received but no action has "
^DD(409.36,1,21,3,0)="yet been taken"
^DD(409.36,1,21,4,0)="E - EWL: the transfer patient has been place on the Electronic Wait List "
^DD(409.36,1,21,5,0)="C - CLOSED: the transfer has been completed "
^DD(409.36,1,21,6,0)="T - TRANSFERRED: the transfer patient has been the subject of request to another facility"
^DD(409.36,1,21,7,0)="R - REMOVED: the transfer request has been cancelled"
^DD(409.36,1,21,8,0)="T - TRANSFERRED: the transfer patient has been the subject of request to"
^DD(409.36,1,21,9,0)="another facility"
^DD(409.36,1,"DT")="3060404"
^DD(409.36,2,0)="FACILITY TRANSFERRED TO^NJ5,0^^2;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.36,2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(409.36,2,21,0)="^^2^2^3060905^"
^DD(409.36,2,21,1,0)="The stop code of the facility if the patient for this transfer has become"
^DD(409.36,2,21,2,0)="the subject of a further tranfer elsewhere"
^DD(409.36,2,"DT")="3060404"
^DD(409.36,4,0)="WAIT LIST TYPE^S^1:PCMM TEAM ASSIGNMENT;2:PCMM POSITION ASSIGNMENT;3:SERVICE/SPECIALTY;4:SPECIFIC CLINIC;^WL;1^Q"
^DD(409.36,4,8.5)="#"
^DD(409.36,4,21,0)="^^1^1^3050408^"
^DD(409.36,4,21,1,0)="Set of codes as on the WAIT LIST ENTRY file (#409.3)"
^DD(409.36,4,"DT")="3050407"
^DD(409.36,5,0)="WAIT LIST TYPE EXTENSION^F^^WL;2^K:$L(X)>40!($L(X)<1) X"
^DD(409.36,5,3)="Answer must be 1-40 characters in length."
^DD(409.36,5,8.5)="#"
^DD(409.36,5,21,0)="^^3^3^3050408^"
^DD(409.36,5,21,1,0)="A free text expansion of the attribute associated with the WAIT LIST "
^DD(409.36,5,21,2,0)="TYPE. E.g. A Wait List Type of 3: SERVICE/SPECIALTY would typically hold "
^DD(409.36,5,21,3,0)="the relevant Specialty."
^DD(409.36,5,"DT")="3050407"
^DD(409.36,22,0)="DESIRED DATE OF APPOINTMENT^D^^WL;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.36,22,8.5)="#"
^DD(409.36,22,21,0)="^^2^2^3050408^"
^DD(409.36,22,21,1,0)="Desired Date of Appointment taken from the Wait List Entry file from the "
^DD(409.36,22,21,2,0)="transmitting facility."
^DD(409.36,22,"DT")="3050407"
^DD(409.36,409.3,0)="SD WAIT LIST ENTRY^P409.3'^SDWL(409.3,^2;5^Q"
^DD(409.36,409.3,1,0)="^.1"
^DD(409.36,409.3,1,1,0)="409.36^C"
^DD(409.36,409.3,1,1,1)="S ^SDWL(409.36,""C"",$E(X,1,30),DA)="""""
^DD(409.36,409.3,1,1,2)="K ^SDWL(409.36,""C"",$E(X,1,30),DA)"
^DD(409.36,409.3,1,1,"DT")="3060315"
^DD(409.36,409.3,21,0)="^.001^1^1^3070103^^^^"
^DD(409.36,409.3,21,1,0)="Pointer to the associated EWL entry"
^DD(409.36,409.3,"DT")="3060315"
^DD(409.36,991.01,0)="INTEGRATION CONTROL NUMBER^NJ12,0^^1;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.36,991.01,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(409.36,991.01,8.5)="#"
^DD(409.36,991.01,21,0)="^^3^3^3050414^"
^DD(409.36,991.01,21,1,0)="Machine to machine identifier for a patient."
^DD(409.36,991.01,21,2,0)="Included in the hope of making a match with the same patient on the"
^DD(409.36,991.01,21,3,0)="receiving system."
^DD(409.36,991.01,"DT")="3050331"
^DD(409.36,"B","CITY",.114)=""
^DD(409.36,"B","COMMENTS",.4)=""
^DD(409.36,"B","COUNTY",.117)=""
^DD(409.36,"B","COVERSHEET REQUESTED",.3)=""
^DD(409.36,"B","DATE OF BIRTH",.03)=""
^DD(409.36,"B","DESIRED DATE OF APPOINTMENT",22)=""
^DD(409.36,"B","FACILITY TRANSFERRED TO",2)=""
^DD(409.36,"B","INTEGRATION CONTROL NUMBER",991.01)=""
^DD(409.36,"B","NAME",.01)=""
^DD(409.36,"B","PHONE NUMBER",.131)=""
^DD(409.36,"B","PRIMARY ELIGIBILITY CODE",.361)=""
^DD(409.36,"B","REQUESTING STATION NUMBER",.1)=""
^DD(409.36,"B","SD WAIT LIST ENTRY",409.3)=""
^DD(409.36,"B","SENDING FACILITY TRANSFER ID",.5)=""
^DD(409.36,"B","SERVICE CONNECTED PERCENTAGE",.302)=""
^DD(409.36,"B","SERVICE CONNECTED?",.301)=""
^DD(409.36,"B","SEX",.02)=""
^DD(409.36,"B","SOCIAL SECURITY NUMBER",.09)=""
^DD(409.36,"B","STATE",.115)=""
^DD(409.36,"B","STATUS",1)=""
^DD(409.36,"B","STREET ADDRESS [LINE 1]",.111)=""
^DD(409.36,"B","STREET ADDRESS [LINE 2]",.112)=""
^DD(409.36,"B","STREET ADDRESS [LINE 3]",.113)=""
^DD(409.36,"B","TEMPORARY ADDRESS END DATE",.1218)=""
^DD(409.36,"B","TEMPORARY ADDRESS START DATE",.1217)=""
^DD(409.36,"B","TRANSMISSION DATE/TIME",.2)=""
^DD(409.36,"B","WAIT LIST TYPE",4)=""
^DD(409.36,"B","WAIT LIST TYPE EXTENSION",5)=""
^DD(409.36,"B","ZIP CODE",.116)=""
^DD(409.36,"GL",0,1,.01)=""
^DD(409.36,"GL",0,2,.5)=""
^DD(409.36,"GL",.1,1,.1)=""
^DD(409.36,"GL",.1,2,.2)=""
^DD(409.36,"GL",.1,3,.3)=""
^DD(409.36,"GL",1,1,.02)=""
^DD(409.36,"GL",1,2,.03)=""
^DD(409.36,"GL",1,3,.09)=""
^DD(409.36,"GL",1,4,991.01)=""
^DD(409.36,"GL",2,1,.301)=""
^DD(409.36,"GL",2,2,.302)=""
^DD(409.36,"GL",2,3,.361)=""
^DD(409.36,"GL",2,4,1)=""
^DD(409.36,"GL",2,5,409.3)=""
^DD(409.36,"GL",2,6,2)=""
^DD(409.36,"GL","ADDR",1,.111)=""
^DD(409.36,"GL","ADDR",2,.112)=""
^DD(409.36,"GL","ADDR",3,.113)=""
^DD(409.36,"GL","ADDR",4,.114)=""
^DD(409.36,"GL","ADDR",5,.115)=""
^DD(409.36,"GL","ADDR",6,.116)=""
^DD(409.36,"GL","ADDR",7,.117)=""
^DD(409.36,"GL","ADDR",8,.131)=""
^DD(409.36,"GL","ADDR",9,.1217)=""
^DD(409.36,"GL","ADDR",10,.1218)=""
^DD(409.36,"GL","COMM",0,.4)=""
^DD(409.36,"GL","WL",1,4)=""
^DD(409.36,"GL","WL",2,5)=""
^DD(409.36,"GL","WL",3,22)=""
^DD(409.36,"IX",.01)=""
^DD(409.36,"IX",409.3)=""
^DD(409.36,"RQ",.01)=""
^DD(409.36,"RQ",.1)=""
^DD(409.36,"SB",409.364,.4)=""
^DD(409.364,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(409.364,0,"DT")="3050401"
^DD(409.364,0,"NM","COMMENTS")=""
^DD(409.364,0,"UP")="409.36"
^DD(409.364,.01,0)="COMMENTS^W^^0;1^Q"
^DD(409.364,.01,"DT")="3050401"
^DD(409.364,"B","COMMENTS",.01)=""
^DD(409.364,"GL",0,1,.01)=""
^DD(409.39,0)="FIELD^^9^11"
^DD(409.39,0,"DDA")="N"
^DD(409.39,0,"DT")="3070810"
^DD(409.39,0,"IX","B",409.39,.01)=""
^DD(409.39,0,"NM","EWL CLEAN-UP")=""
^DD(409.39,0,"VR")="5.3"
^DD(409.39,0,"VRPK")="SD"
^DD(409.39,.01,0)="PATIENT^RP2^DPT(^0;1^Q"
^DD(409.39,.01,1,0)="^.1"
^DD(409.39,.01,1,1,0)="409.39^B"
^DD(409.39,.01,1,1,1)="S ^SDWL(409.39,""B"",$E(X,1,30),DA)="""""
^DD(409.39,.01,1,1,2)="K ^SDWL(409.39,""B"",$E(X,1,30),DA)"
^DD(409.39,.01,1,1,"DT")="3070831"
^DD(409.39,.01,3)=""
^DD(409.39,.01,21,0)="^^1^1^3070810^"
^DD(409.39,.01,21,1,0)="Pointer to the PATIENT file (#2). "
^DD(409.39,.01,"DT")="3070831"
^DD(409.39,1,0)="TREATING FACILITY CAL^S^N:NEW;E:ESTABLISHED;P:PRIOR;U:UNKNOWN;^0;2^Q"
^DD(409.39,1,21,0)="^^3^3^3070810^"
^DD(409.39,1,21,1,0)="This field stores the calculation computed for the ORGINATION DATE in the "
^DD(409.39,1,21,2,0)="EWL PATIENT file (#409.3) and a valid date, (if found) in the TREATING "
^DD(409.39,1,21,3,0)="FACILITY FILE (#391.91)."
^DD(409.39,1,"DT")="3070810"
^DD(409.39,2,0)="ENROLL API CAL^S^N:NEW;E:EST;P:PRIOR;U:UNKNOWN;^0;3^Q"
^DD(409.39,2,21,0)="^^2^2^3070810^"
^DD(409.39,2,21,1,0)="This field contains the result of the ENROLLMENT API ($$ENROLL^EASWTAPI) "
^DD(409.39,2,21,2,0)="computation."
^DD(409.39,2,"DT")="3070810"
^DD(409.39,3,0)="VSSC DATA CAL^S^N:NEW;E:EST;P:PRIOR;U:UNKNOWN;^0;4^Q"
^DD(409.39,3,21,0)="^^2^2^3070810^"
^DD(409.39,3,21,1,0)="This field contain the computation computed from the VSSC data import "
^DD(409.39,3,21,2,0)="file."
^DD(409.39,3,"DT")="3070810"
^DD(409.39,4,0)="CURRENT CAL EWL FILE^S^N:NEW;E:EST;P:PRIOR;U:UNKNOWN;^0;5^Q"
^DD(409.39,4,21,0)="^^2^2^3070810^"
^DD(409.39,4,21,1,0)="This field contains the extracted EWL ENROLLEE STATUS from the EWL "
^DD(409.39,4,21,2,0)="PATIENT file (409.3)."
^DD(409.39,4,"DT")="3070810"
^DD(409.39,5,0)="TF DATE USED^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.39,5,21,0)="^^2^2^3070810^"
^DD(409.39,5,21,1,0)="Date used from the TREATING FACILITY file (#391.91) to determine the "
^DD(409.39,5,21,2,0)="TREATING FACILITY calculation."
^DD(409.39,5,"DT")="3070810"
^DD(409.39,6,0)="ENROLLEE API DATE USED^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.39,6,21,0)="^^1^1^3070810^"
^DD(409.39,6,21,1,0)="Date used from the ENROLLMENT API to determine the EWL ENROLLEE STATUS."
^DD(409.39,6,"DT")="3070810"
^DD(409.39,7,0)="VSSC DATE USED^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.39,7,21,0)="^^1^1^3070810^"
^DD(409.39,7,21,1,0)="Date used from the VSSC to determine the EWL ENROLLEE STATUS."
^DD(409.39,7,"DT")="3070810"
^DD(409.39,8,0)="EWL ORIG DATE^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(409.39,8,21,0)="^^1^1^3070810^"
^DD(409.39,8,21,1,0)="Date extracted from the EWL PATIENT FILE (409.3) ORIGINATION DATE."
^DD(409.39,8,"DT")="3070810"
^DD(409.39,8.1,0)="NEW CAL STATUS^S^N:NEW;U:UNDETERMINED;P:PRIOR;E:ESTABLISHED;^0;11^Q"
^DD(409.39,8.1,21,0)="^^1^1^3070810^"
^DD(409.39,8.1,21,1,0)="This field contains the new calculated EWL ENROLLEE STATUS."
^DD(409.39,8.1,"DT")="3070810"
^DD(409.39,9,0)="EWL IEN^NJ12,0^^0;10^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.39,9,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(409.39,9,21,0)="^^1^1^3070810^"
^DD(409.39,9,21,1,0)="This field contains the internal IEN of the EWL PATIENT file (409.3)."
^DD(409.39,9,"DT")="3070810"
^DD(409.39,"B","CURRENT CAL EWL FILE",4)=""
^DD(409.39,"B","ENROLL API CAL",2)=""
^DD(409.39,"B","ENROLLEE API DATE USED",6)=""
^DD(409.39,"B","EWL IEN",9)=""
^DD(409.39,"B","EWL ORIG DATE",8)=""
^DD(409.39,"B","NEW CAL STATUS",8.1)=""
^DD(409.39,"B","PATIENT",.01)=""
^DD(409.39,"B","TF DATE USED",5)=""
^DD(409.39,"B","TREATING FACILITY CAL",1)=""
^DD(409.39,"B","VSSC DATA CAL",3)=""
^DD(409.39,"B","VSSC DATE USED",7)=""
^DD(409.39,"GL",0,1,.01)=""
^DD(409.39,"GL",0,2,1)=""
^DD(409.39,"GL",0,3,2)=""
^DD(409.39,"GL",0,4,3)=""
^DD(409.39,"GL",0,5,4)=""
^DD(409.39,"GL",0,6,5)=""
^DD(409.39,"GL",0,7,6)=""
^DD(409.39,"GL",0,8,7)=""
^DD(409.39,"GL",0,9,8)=""
^DD(409.39,"GL",0,10,9)=""
^DD(409.39,"GL",0,11,8.1)=""
^DD(409.39,"IX",.01)=""
^DD(409.39,"RQ",.01)=""
^DD(409.41,0)="FIELD^^75^12"
^DD(409.41,0,"DDA")="N"
^DD(409.41,0,"DT")="2930316"
^DD(409.41,0,"IX","AID",409.4175,.01)=""
^DD(409.41,0,"IX","B",409.41,.01)=""
^DD(409.41,0,"NM","OUTPATIENT CLASSIFICATION TYPE")=""
^DD(409.41,0,"PT",409.42,.01)=""
^DD(409.41,0,"VR")="5.3"
^DD(409.41,0,"VRPK")="SD"
^DD(409.41,.001,0)="NUMBER^NJ3,0I^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.41,.001,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(409.41,.001,21,0)="^^2^2^2930316^^"
^DD(409.41,.001,21,1,0)="Enter in this field the internal entry number associated with this"
^DD(409.41,.001,21,2,0)="outpatient classification type."
^DD(409.41,.001,"DT")="2921228"
^DD(409.41,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(409.41,.01,1,0)="^.1"
^DD(409.41,.01,1,1,0)="409.41^B"
^DD(409.41,.01,1,1,1)="S ^SD(409.41,""B"",$E(X,1,30),DA)="""""
^DD(409.41,.01,1,1,2)="K ^SD(409.41,""B"",$E(X,1,30),DA)"
^DD(409.41,.01,1,1,"%D",0)="^^2^2^2930621^"
^DD(409.41,.01,1,1,"%D",1,0)="This cross-reference allows look-up by outpatient classification"
^DD(409.41,.01,1,1,"%D",2,0)="type name."
^DD(409.41,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(409.41,.01,21,0)="^^1^1^2930316^^^"
^DD(409.41,.01,21,1,0)="Enter in this field the name of the outpatient classification type."
^DD(409.41,.01,"DEL",1,0)="I 1 W !,*7,""Deletion of an appointment classification type is not allowed."""
^DD(409.41,.01,"DT")="3010927"
^DD(409.41,.02,0)="PROMPT^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(409.41,.02,3)="Answer must be 1-60 characters in length."
^DD(409.41,.02,21,0)="^^4^4^2930621^^^^"
^DD(409.41,.02,21,1,0)="Enter in this field the prompt to be used as when this outpatient"
^DD(409.41,.02,21,2,0)="classification is asked.  If this field is not defined the NAME field"
^DD(409.41,.02,21,3,0)="will be used.  For example, this field might contain the following:  "
^DD(409.41,.02,21,4,0)="   Was treatment for an SC condition"
^DD(409.41,.02,23,0)="^^1^1^2930621^^"
^DD(409.41,.02,23,1,0)="This field in used as DIR(""A"") when prompting for outpatient classification."
^DD(409.41,.02,"DT")="3010925"
^DD(409.41,.03,0)="INPUT TYPE^RSI^F:FREE-TEXT;N:NUMERIC;S:SET;Y:YES/NO;^0;3^Q"
^DD(409.41,.03,21,0)="^^2^2^2930621^^^^"
^DD(409.41,.03,21,1,0)="Enter in this field the input type to be used when this"
^DD(409.41,.03,21,2,0)="outpatient classification is asked."
^DD(409.41,.03,23,0)="^^1^1^2930621^^"
^DD(409.41,.03,23,1,0)="This field is used as DIR(0) when prompting for outpatient classification."
^DD(409.41,.03,"DT")="2930721"
^DD(409.41,.04,0)="DEFAULT^FI^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(409.41,.04,3)="Answer must be 1-10 characters in length."
^DD(409.41,.04,21,0)="^^5^5^2930621^^^^"
^DD(409.41,.04,21,1,0)="Enter in this field the default to be used when this outpatient"
^DD(409.41,.04,21,2,0)="classification is asked."
^DD(409.41,.04,21,3,0)=" "
^DD(409.41,.04,21,4,0)="For example, this field might contain the following if the input type is"
^DD(409.41,.04,21,5,0)="YES/NO:  NO"
^DD(409.41,.04,23,0)="^^1^1^2930621^^"
^DD(409.41,.04,23,1,0)="This field is used as DIR(""B"") when prompting for outpatient classification."
^DD(409.41,.04,"DT")="3010927"
^DD(409.41,.05,0)="REQUIRED^SI^1:YES;0:NO;^0;5^Q"
^DD(409.41,.05,1,0)="^.1^^0"
^DD(409.41,.05,21,0)="^^2^2^2930621^^^"
^DD(409.41,.05,21,1,0)="Enter in this field whether or not a response is required when this"
^DD(409.41,.05,21,2,0)="outpatient classification is asked."
^DD(409.41,.05,"DT")="2930721"
^DD(409.41,.06,0)="DISPLAY NAME^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(409.41,.06,3)="Answer must be 1-30 characters in length."
^DD(409.41,.06,21,0)="^^1^1^2930621^"
^DD(409.41,.06,21,1,0)="Enter in this field the text to be displayed on the check out screen."
^DD(409.41,.06,"DT")="3010925"
^DD(409.41,.07,0)="ABBREVATION^FI^^0;7^K:$L(X)>4!($L(X)<1) X"
^DD(409.41,.07,3)="Answer must be 1-4 characters in length."
^DD(409.41,.07,21,0)="^^2^2^2930621^"
^DD(409.41,.07,21,1,0)="Enter in this field the abbreviation for the outpatient classification"
^DD(409.41,.07,21,2,0)="type.  For example, AO for Agent Orange Exposure."
^DD(409.41,.07,"DT")="2930721"
^DD(409.41,1,0)="SCREEN^KI^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.41,1,3)="This is Standard MUMPS code."
^DD(409.41,1,9)="@"
^DD(409.41,1,21,0)="^^3^3^2990421^^^^"
^DD(409.41,1,21,1,0)="Enter in this field MUMPS code to be used as a screen to determine"
^DD(409.41,1,21,2,0)="whether or not a patient should be asked this outpatient classification"
^DD(409.41,1,21,3,0)="type."
^DD(409.41,1,23,0)="^^5^5^2990421^^^^"
^DD(409.41,1,23,1,0)="The following variables are supported through the outpatient"
^DD(409.41,1,23,2,0)="classification function calls:"
^DD(409.41,1,23,3,0)=" "
^DD(409.41,1,23,4,0)=" DFN      - Patient file IEN"
^DD(409.41,1,23,5,0)=" SDOE     - Outpatient Encounter file IEN  [Optional]"
^DD(409.41,1,"DT")="2990421"
^DD(409.41,2,0)="INPUT PARAMETERS^FI^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(409.41,2,3)="Answer must be 1-245 characters in length."
^DD(409.41,2,21,0)="^^3^3^2930621^^^^"
^DD(409.41,2,21,1,0)="Enter in this field the input parameters to be used when this"
^DD(409.41,2,21,2,0)="outpatient classification is asked.  For example, this field might contain"
^DD(409.41,2,21,3,0)="the following if the input type is a SET:  1:MARRIED;2:SINGLE"
^DD(409.41,2,23,0)="^^1^1^2930621^"
^DD(409.41,2,23,1,0)="This field is used as DIR(0) when prompting for outpatient classification."
^DD(409.41,2,"DT")="2930721"
^DD(409.41,50,0)="DESCRIPTION^409.415^^D;0"
^DD(409.41,50,21,0)="^^2^2^2930316^"
^DD(409.41,50,21,1,0)="Enter in this field the description associated with this outpatient"
^DD(409.41,50,21,2,0)="classification type."
^DD(409.41,75,0)="EFFECTIVE DATE^409.4175DA^^E;0"
^DD(409.41,75,21,0)="^^2^2^2930316^^"
^DD(409.41,75,21,1,0)="Enter in this field the effective date of the outpatient"
^DD(409.41,75,21,2,0)="classification type."
^DD(409.41,"B","ABBREVATION",.07)=""
^DD(409.41,"B","DEFAULT",.04)=""
^DD(409.41,"B","DESCRIPTION",50)=""
^DD(409.41,"B","DISPLAY NAME",.06)=""
^DD(409.41,"B","EFFECTIVE DATE",75)=""
^DD(409.41,"B","INPUT PARAMETERS",2)=""
^DD(409.41,"B","INPUT TYPE",.03)=""
^DD(409.41,"B","NAME",.01)=""
^DD(409.41,"B","NUMBER",.001)=""
^DD(409.41,"B","PROMPT",.02)=""
^DD(409.41,"B","REQUIRED",.05)=""
^DD(409.41,"B","SCREEN",1)=""
^DD(409.41,"GL",0,1,.01)=""
^DD(409.41,"GL",0,2,.02)=""
^DD(409.41,"GL",0,3,.03)=""
^DD(409.41,"GL",0,4,.04)=""
^DD(409.41,"GL",0,5,.05)=""
^DD(409.41,"GL",0,6,.06)=""
^DD(409.41,"GL",0,7,.07)=""
^DD(409.41,"GL",1,"E1,245",1)=""
^DD(409.41,"GL",2,1,2)=""
^DD(409.41,"GL","D",0,50)=""
^DD(409.41,"GL","E",0,75)=""
^DD(409.41,"IX",.01)=""
^DD(409.41,"RQ",.01)=""
^DD(409.41,"RQ",.03)=""
^DD(409.41,"SB",409.415,50)=""
^DD(409.41,"SB",409.4175,75)=""
^DD(409.415,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(409.415,0,"DT")="2930316"
^DD(409.415,0,"NM","DESCRIPTION")=""
^DD(409.415,0,"UP")="409.41"
^DD(409.415,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(409.415,.01,"DT")="2930316"
^DD(409.415,"B","DESCRIPTION",.01)=""
^DD(409.415,"GL",0,1,.01)=""
^DD(409.4175,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(409.4175,0,"DT")="2921228"
^DD(409.4175,0,"IX","B",409.4175,.01)=""
^DD(409.4175,0,"NM","EFFECTIVE DATE")=""
^DD(409.4175,0,"UP")="409.41"
^DD(409.4175,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.4175,.01,1,0)="^.1"
^DD(409.4175,.01,1,1,0)="409.4175^B"
^DD(409.4175,.01,1,1,1)="S ^SD(409.41,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(409.4175,.01,1,1,2)="K ^SD(409.41,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(409.4175,.01,1,1,"%D",0)="^^1^1^2930621^"
^DD(409.4175,.01,1,1,"%D",1,0)="This cross-reference allows look-up by effective date."
^DD(409.4175,.01,1,2,0)="409.41^AID^MUMPS"
^DD(409.4175,.01,1,2,1)="S ^SD(409.41,DA(1),""E"",""AID"",-X,DA)="""""
^DD(409.4175,.01,1,2,2)="K ^SD(409.41,DA(1),""E"",""AID"",-X,DA)"
^DD(409.4175,.01,1,2,"%D",0)="^^3^3^2930621^"
^DD(409.4175,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by outpatient classification"
^DD(409.4175,.01,1,2,"%D",2,0)="type by inverse effective date by internal entry number"
^DD(409.4175,.01,1,2,"%D",3,0)="of the effective date."
^DD(409.4175,.01,1,2,"DT")="2921228"
^DD(409.4175,.01,3)="Enter in this field the effective date of the outpatient classification type."
^DD(409.4175,.01,21,0)="^^2^2^2930316^^"
^DD(409.4175,.01,21,1,0)="Enter in this field the effective date of the outpatient"
^DD(409.4175,.01,21,2,0)="classification type."
^DD(409.4175,.01,"DT")="2921228"
^DD(409.4175,.02,0)="ACTIVE^RS^1:YES;0:NO;^0;2^Q"
^DD(409.4175,.02,3)="Enter in this field whether of not the effective date of the outpatient classification is active or not."
^DD(409.4175,.02,21,0)="^^2^2^2930316^^"
^DD(409.4175,.02,21,1,0)="Enter in this field whether or not the effective date of the"
^DD(409.4175,.02,21,2,0)="outpatient classification is active or not."
^DD(409.4175,.02,"DT")="2921228"
^DD(409.4175,"B","ACTIVE",.02)=""
^DD(409.4175,"B","EFFECTIVE DATE",.01)=""
^DD(409.4175,"GL",0,1,.01)=""
^DD(409.4175,"GL",0,2,.02)=""
^DD(409.4175,"IX",.01)=""
^DD(409.4175,"RQ",.01)=""
^DD(409.4175,"RQ",.02)=""
^DD(409.42,0)="FIELD^^.03^3"
^DD(409.42,0,"DDA")="N"
^DD(409.42,0,"DT")="2930406"
^DD(409.42,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCE(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(409.68,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.42,0,"IX","AO",409.42,.02)=""
^DD(409.42,0,"IX","AO1",409.42,.01)=""
^DD(409.42,0,"IX","B",409.42,.01)=""
^DD(409.42,0,"IX","OE",409.42,.02)=""
^DD(409.42,0,"NM","OUTPATIENT CLASSIFICATION")=""
^DD(409.42,0,"VR")="5.3"
^DD(409.42,.01,0)="TYPE^R*P409.41'^SD(409.41,^0;1^S DIC(""S"")=""I $$ACT^SDCODD(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.42,.01,1,0)="^.1"
^DD(409.42,.01,1,1,0)="409.42^B"
^DD(409.42,.01,1,1,1)="S ^SDD(409.42,""B"",$E(X,1,30),DA)="""""
^DD(409.42,.01,1,1,2)="K ^SDD(409.42,""B"",$E(X,1,30),DA)"
^DD(409.42,.01,1,1,"%D",0)="^^1^1^2930621^"
^DD(409.42,.01,1,1,"%D",1,0)="This cross-reference allows look-up by outpatient classification type."
^DD(409.42,.01,1,2,0)="409.42^AO1^MUMPS"
^DD(409.42,.01,1,2,1)="S:$P(^SDD(409.42,DA,0),U,2) ^SDD(409.42,""AO"",+$P(^(0),U,2),X,DA)="""""
^DD(409.42,.01,1,2,2)="K ^SDD(409.42,""AO"",+$P(^SDD(409.42,DA,0),U,2),X,DA)"
^DD(409.42,.01,1,2,"%D",0)="^^2^2^2930621^"
^DD(409.42,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by outpatient encounter by"
^DD(409.42,.01,1,2,"%D",2,0)="outpatient classification type by internal entry number."
^DD(409.42,.01,1,2,"DT")="2930203"
^DD(409.42,.01,3)="This field contains the outpatient classification type."
^DD(409.42,.01,12)="Outpatient Classification Type must be active."
^DD(409.42,.01,12.1)="S DIC(""S"")=""I $$ACT^SDCODD(Y)"""
^DD(409.42,.01,21,0)="^^1^1^2930512^^"
^DD(409.42,.01,21,1,0)="This field contains the outpatient classification type."
^DD(409.42,.01,"DT")="2930204"
^DD(409.42,.02,0)="OUTPATIENT ENCOUNTER^RP409.68'I^SCE(^0;2^Q"
^DD(409.42,.02,1,0)="^.1^^-1"
^DD(409.42,.02,1,1,0)="409.42^AO^MUMPS"
^DD(409.42,.02,1,1,1)="S ^SDD(409.42,""AO"",X,$P(^SDD(409.42,DA,0),U),DA)="""""
^DD(409.42,.02,1,1,2)="K ^SDD(409.42,""AO"",X,$P(^SDD(409.42,DA,0),U),DA)"
^DD(409.42,.02,1,1,"%D",0)="^^2^2^2930621^"
^DD(409.42,.02,1,1,"%D",1,0)="This cross-reference can be used to sort by outpatient encounter"
^DD(409.42,.02,1,1,"%D",2,0)="by outpatient classification type by internal entry number."
^DD(409.42,.02,1,1,"DT")="2930203"
^DD(409.42,.02,1,3,0)="409.42^OE"
^DD(409.42,.02,1,3,1)="S ^SDD(409.42,""OE"",$E(X,1,30),DA)="""""
^DD(409.42,.02,1,3,2)="K ^SDD(409.42,""OE"",$E(X,1,30),DA)"
^DD(409.42,.02,1,3,"%D",0)="^^3^3^2930420^"
^DD(409.42,.02,1,3,"%D",1,0)=" "
^DD(409.42,.02,1,3,"%D",2,0)="Cross-reference to look up classification by outpatient encounter and to"
^DD(409.42,.02,1,3,"%D",3,0)="allow backwards navigation."
^DD(409.42,.02,1,3,"DT")="2930420"
^DD(409.42,.02,3)="This field contains the outpatient encounter associated with this outpatient classification."
^DD(409.42,.02,21,0)="^^2^2^2930512^^"
^DD(409.42,.02,21,1,0)="This field contains the outpatient encounter associated with this"
^DD(409.42,.02,21,2,0)="outpatient classification."
^DD(409.42,.02,"DT")="2930722"
^DD(409.42,.03,0)="VALUE^FO^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(409.42,.03,2)="S Y(0)=Y S Y=$$VAL^SDCODD(+$G(^SDD(409.42,D0,0)),Y)"
^DD(409.42,.03,2.1)="S Y=$$VAL^SDCODD(+$G(^SDD(409.42,D0,0)),Y)"
^DD(409.42,.03,3)="Answer must be 1-50 characters in length."
^DD(409.42,.03,21,0)="^^1^1^2930512^"
^DD(409.42,.03,21,1,0)="This field contains the value of this outpatient classification."
^DD(409.42,.03,"DT")="2930406"
^DD(409.42,"B","OUTPATIENT ENCOUNTER",.02)=""
^DD(409.42,"B","TYPE",.01)=""
^DD(409.42,"B","VALUE",.03)=""
^DD(409.42,"GL",0,1,.01)=""
^DD(409.42,"GL",0,2,.02)=""
^DD(409.42,"GL",0,3,.03)=""
^DD(409.42,"IX",.01)=""
^DD(409.42,"IX",.02)=""
^DD(409.42,"RQ",.01)=""
^DD(409.42,"RQ",.02)=""
^DD(409.43,0)="FIELD^^.03^3"
^DD(409.43,0,"DDA")="N"
^DD(409.43,0,"DT")="2930217"
^DD(409.43,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCE(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(409.68,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.43,0,"IX","AO",409.43,.02)=""
^DD(409.43,0,"IX","AO1",409.43,.01)=""
^DD(409.43,0,"IX","B",409.43,.01)=""
^DD(409.43,0,"IX","OE",409.43,.02)=""
^DD(409.43,0,"NM","OUTPATIENT DIAGNOSIS")=""
^DD(409.43,0,"VR")="5.3"
^DD(409.43,.01,0)="DIAGNOSIS^R*P80'^ICD9(^0;1^S DIC(""S"")=""I '$P(^(0),U,9)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.43,.01,1,0)="^.1"
^DD(409.43,.01,1,1,0)="409.43^B"
^DD(409.43,.01,1,1,1)="S ^SDD(409.43,""B"",$E(X,1,30),DA)="""""
^DD(409.43,.01,1,1,2)="K ^SDD(409.43,""B"",$E(X,1,30),DA)"
^DD(409.43,.01,1,1,"%D",0)="^^1^1^2930621^"
^DD(409.43,.01,1,1,"%D",1,0)="This cross-reference allow look-up by diagnosis."
^DD(409.43,.01,1,2,0)="409.43^AO1^MUMPS"
^DD(409.43,.01,1,2,1)="S:$P(^SDD(409.43,DA,0),U,2) ^SDD(409.43,""AO"",+$P(^(0),U,2),X,DA)="""""
^DD(409.43,.01,1,2,2)="K ^SDD(409.43,""AO"",+$P(^SDD(409.43,DA,0),U,2),X,DA)"
^DD(409.43,.01,1,2,"%D",0)="^^2^2^2930621^^"
^DD(409.43,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by outpatient encounter by"
^DD(409.43,.01,1,2,"%D",2,0)="diagnosis by internal entry number."
^DD(409.43,.01,1,2,"DT")="2930217"
^DD(409.43,.01,3)="This field contains the outpatient diagnosis."
^DD(409.43,.01,4)=""
^DD(409.43,.01,12)="Diagnosis must be active."
^DD(409.43,.01,12.1)="S DIC(""S"")=""I '$P(^(0),U,9)"""
^DD(409.43,.01,21,0)="^^1^1^2930512^^"
^DD(409.43,.01,21,1,0)="This field contains the outpatient diagnosis."
^DD(409.43,.01,"DEL",1,0)=" IF 0"
^DD(409.43,.01,"DT")="2930217"
^DD(409.43,.02,0)="OUTPATIENT ENCOUNTER^RP409.68'I^SCE(^0;2^Q"
^DD(409.43,.02,1,0)="^.1^^-1"
^DD(409.43,.02,1,1,0)="409.43^AO^MUMPS"
^DD(409.43,.02,1,1,1)="S ^SDD(409.43,""AO"",X,$P(^SDD(409.43,DA,0),U),DA)="""""
^DD(409.43,.02,1,1,2)="K ^SDD(409.43,""AO"",X,$P(^SDD(409.43,DA,0),U),DA)"
^DD(409.43,.02,1,1,"%D",0)="^^2^2^2930621^^"
^DD(409.43,.02,1,1,"%D",1,0)="This cross-reference can be used to sort by outpatient encounter by"
^DD(409.43,.02,1,1,"%D",2,0)="diagnosis by internal entry number."
^DD(409.43,.02,1,1,"DT")="2930217"
^DD(409.43,.02,1,3,0)="409.43^OE"
^DD(409.43,.02,1,3,1)="S ^SDD(409.43,""OE"",$E(X,1,30),DA)="""""
^DD(409.43,.02,1,3,2)="K ^SDD(409.43,""OE"",$E(X,1,30),DA)"
^DD(409.43,.02,1,3,"%D",0)="^^3^3^2930420^"
^DD(409.43,.02,1,3,"%D",1,0)=" "
^DD(409.43,.02,1,3,"%D",2,0)="Cross-reference to look up diagnosis by outpatient encounter and to"
^DD(409.43,.02,1,3,"%D",3,0)="allow backwards navigation."
^DD(409.43,.02,1,3,"DT")="2930420"
^DD(409.43,.02,3)="This field contains the outpatient encounter associated with this outpatient diagnosis."
^DD(409.43,.02,21,0)="^^2^2^2930512^"
^DD(409.43,.02,21,1,0)="This field contains the outpatient encounter associated with this"
^DD(409.43,.02,21,2,0)="outpatient diagnosis."
^DD(409.43,.02,"DT")="2930722"
^DD(409.43,.03,0)="DIAGNOSIS RANKING^F^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(409.43,.03,3)="Answer must be 1-3 characters in length."
^DD(409.43,.03,21,0)="^^2^2^2960503^"
^DD(409.43,.03,21,1,0)="This field is to hold the ranking of the particular diagnosis related to"
^DD(409.43,.03,21,2,0)="the encounter.  Currently a number one will indicate the primary diagnosis."
^DD(409.43,.03,"DT")="2960503"
^DD(409.43,"B","DIAGNOSIS",.01)=""
^DD(409.43,"B","DIAGNOSIS RANKING",.03)=""
^DD(409.43,"B","OUTPATIENT ENCOUNTER",.02)=""
^DD(409.43,"GL",0,1,.01)=""
^DD(409.43,"GL",0,2,.02)=""
^DD(409.43,"GL",0,3,.03)=""
^DD(409.43,"IX",.01)=""
^DD(409.43,"IX",.02)=""
^DD(409.43,"RQ",.01)=""
^DD(409.43,"RQ",.02)=""
^DD(409.44,0)="FIELD^^.03^3"
^DD(409.44,0,"DT")="2950209"
^DD(409.44,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SCE(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(409.68,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.44,0,"IX","AO",409.44,.02)=""
^DD(409.44,0,"IX","AO1",409.44,.01)=""
^DD(409.44,0,"IX","B",409.44,.01)=""
^DD(409.44,0,"IX","OE",409.44,.02)=""
^DD(409.44,0,"NM","OUTPATIENT PROVIDER")=""
^DD(409.44,0,"VR")="5.3"
^DD(409.44,.01,0)="PROVIDER^R*P200'^VA(200,^0;1^S DIC(""S"")=""I $$SCREEN^SDUTL2(Y,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.44,.01,1,0)="^.1"
^DD(409.44,.01,1,1,0)="409.44^B"
^DD(409.44,.01,1,1,1)="S ^SDD(409.44,""B"",$E(X,1,30),DA)="""""
^DD(409.44,.01,1,1,2)="K ^SDD(409.44,""B"",$E(X,1,30),DA)"
^DD(409.44,.01,1,1,"%D",0)="^^1^1^2930621^"
^DD(409.44,.01,1,1,"%D",1,0)="This cross-reference allows look-up by provider."
^DD(409.44,.01,1,2,0)="409.44^AO1^MUMPS"
^DD(409.44,.01,1,2,1)="S:$P(^SDD(409.44,DA,0),U,2) ^SDD(409.44,""AO"",+$P(^(0),U,2),X,DA)="""""
^DD(409.44,.01,1,2,2)="K ^SDD(409.44,""AO"",+$P(^SDD(409.44,DA,0),U,2),X,DA)"
^DD(409.44,.01,1,2,"%D",0)="^^2^2^2930621^"
^DD(409.44,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by outpatient encounter"
^DD(409.44,.01,1,2,"%D",2,0)="by provider by internal entry number."
^DD(409.44,.01,1,2,"DT")="2930203"
^DD(409.44,.01,3)="This field contains the outpatient encounter associated with this outpatient provider."
^DD(409.44,.01,4)="D HELP^SDUTL2(DT)"
^DD(409.44,.01,12)="Provider must be active and have an active entry in the NEW PERSON file for PERSON CLASS."
^DD(409.44,.01,12.1)="S DIC(""S"")=""I $$SCREEN^SDUTL2(Y,DT)"""
^DD(409.44,.01,21,0)="^^1^1^2961029^^^^"
^DD(409.44,.01,21,1,0)="This field contains the outpatient provider."
^DD(409.44,.01,"DEL",1,0)=" IF 0"
^DD(409.44,.01,"DT")="2961029"
^DD(409.44,.02,0)="OUTPATIENT ENCOUNTER^RP409.68'I^SCE(^0;2^Q"
^DD(409.44,.02,1,0)="^.1^^-1"
^DD(409.44,.02,1,1,0)="409.44^AO^MUMPS"
^DD(409.44,.02,1,1,1)="S ^SDD(409.44,""AO"",X,$P(^SDD(409.44,DA,0),U),DA)="""""
^DD(409.44,.02,1,1,2)="K ^SDD(409.44,""AO"",X,$P(^SDD(409.44,DA,0),U),DA)"
^DD(409.44,.02,1,1,"%D",0)="^^2^2^2930621^"
^DD(409.44,.02,1,1,"%D",1,0)="This cross-reference can be used to sort by outpatient encounter by"
^DD(409.44,.02,1,1,"%D",2,0)="provider by internal entry number."
^DD(409.44,.02,1,1,"DT")="2930203"
^DD(409.44,.02,1,3,0)="409.44^OE"
^DD(409.44,.02,1,3,1)="S ^SDD(409.44,""OE"",$E(X,1,30),DA)="""""
^DD(409.44,.02,1,3,2)="K ^SDD(409.44,""OE"",$E(X,1,30),DA)"
^DD(409.44,.02,1,3,"%D",0)="^^3^3^2930420^"
^DD(409.44,.02,1,3,"%D",1,0)=" "
^DD(409.44,.02,1,3,"%D",2,0)="Cross-reference to look up provider by outpatient encounter and to"
^DD(409.44,.02,1,3,"%D",3,0)="allow backwards navigation."
^DD(409.44,.02,1,3,"DT")="2930420"
^DD(409.44,.02,3)="This field contains the outpatient encounter associated with this outpatient provider."
^DD(409.44,.02,21,0)="^^2^2^2930512^"
^DD(409.44,.02,21,1,0)="This field contains the outpatient encounter associated with this"
^DD(409.44,.02,21,2,0)="outpatient provider."
^DD(409.44,.02,"DT")="2930722"
^DD(409.44,.03,0)="PROVIDER TYPE CODE^P8932.1'^USC(8932.1,^0;3^Q"
^DD(409.44,.03,3)=""
^DD(409.44,.03,21,0)="^^2^2^2960725^"
^DD(409.44,.03,21,1,0)="This field contains the provider type code associated with the provider at"
^DD(409.44,.03,21,2,0)="the time of the outpatient encounter."
^DD(409.44,.03,"DT")="2960718"
^DD(409.44,"B","OUTPATIENT ENCOUNTER",.02)=""
^DD(409.44,"B","PROVIDER",.01)=""
^DD(409.44,"B","PROVIDER TYPE CODE",.03)=""
^DD(409.44,"GL",0,1,.01)=""
^DD(409.44,"GL",0,2,.02)=""
^DD(409.44,"GL",0,3,.03)=""
^DD(409.44,"IX",.01)=""
^DD(409.44,"IX",.02)=""
^DD(409.44,"RQ",.01)=""
^DD(409.44,"RQ",.02)=""
^DD(409.45,0)="FIELD^^75^2"
^DD(409.45,0,"DT")="2930604"
^DD(409.45,0,"IX","B",409.45,.01)=""
^DD(409.45,0,"NM","OUTPATIENT CLASSIFICATION STOP CODE EXCEPTION")=""
^DD(409.45,0,"VR")="5.3"
^DD(409.45,.01,0)="STOP CODE NUMBER^RNJ3,0I^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.45,.01,1,0)="^.1"
^DD(409.45,.01,1,1,0)="409.45^B"
^DD(409.45,.01,1,1,1)="S ^SD(409.45,""B"",$E(X,1,30),DA)="""""
^DD(409.45,.01,1,1,2)="K ^SD(409.45,""B"",$E(X,1,30),DA)"
^DD(409.45,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(409.45,.01,21,0)="^^2^2^2930621^"
^DD(409.45,.01,21,1,0)="Enter in this field the clinic stop code exempted from the"
^DD(409.45,.01,21,2,0)="outpatient classification questions."
^DD(409.45,.01,"DEL",1,0)="I 1 W !,*7,""Deletion of an outpatient classification stop code exception is not allowed."""
^DD(409.45,.01,"DT")="2930722"
^DD(409.45,75,0)="EFFECTIVE DATE^409.4575DA^^E;0"
^DD(409.45,75,21,0)="^^2^2^2930621^"
^DD(409.45,75,21,1,0)="Enter in this field the effective date of the outpatient classification"
^DD(409.45,75,21,2,0)="stop code exception."
^DD(409.45,"B","EFFECTIVE DATE",75)=""
^DD(409.45,"B","STOP CODE NUMBER",.01)=""
^DD(409.45,"GL",0,1,.01)=""
^DD(409.45,"GL","E",0,75)=""
^DD(409.45,"IX",.01)=""
^DD(409.45,"RQ",.01)=""
^DD(409.45,"SB",409.4575,75)=""
^DD(409.4575,0)="EFFECTIVE DATE SUB-FIELD^^.02^2"
^DD(409.4575,0,"DT")="2930316"
^DD(409.4575,0,"IX","AID",409.4575,.01)=""
^DD(409.4575,0,"IX","B",409.4575,.01)=""
^DD(409.4575,0,"NM","EFFECTIVE DATE")=""
^DD(409.4575,0,"UP")="409.45"
^DD(409.4575,.01,0)="EFFECTIVE DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.4575,.01,1,0)="^.1"
^DD(409.4575,.01,1,1,0)="409.4575^B"
^DD(409.4575,.01,1,1,1)="S ^SD(409.45,DA(1),""E"",""B"",$E(X,1,30),DA)="""""
^DD(409.4575,.01,1,1,2)="K ^SD(409.45,DA(1),""E"",""B"",$E(X,1,30),DA)"
^DD(409.4575,.01,1,1,"%D",0)="^^1^1^2930621^^"
^DD(409.4575,.01,1,1,"%D",1,0)="This cross-reference allows look-up by effective date."
^DD(409.4575,.01,1,2,0)="409.4575^AID^MUMPS"
^DD(409.4575,.01,1,2,1)="S ^SD(409.45,DA(1),""E"",""AID"",-X,DA)="""""
^DD(409.4575,.01,1,2,2)="K ^SD(409.45,DA(1),""E"",""AID"",-X,DA)"
^DD(409.4575,.01,1,2,"%D",0)="^^3^3^2930621^^"
^DD(409.4575,.01,1,2,"%D",1,0)="This cross-reference can be used to sort by outpatient classification"
^DD(409.4575,.01,1,2,"%D",2,0)="stop code exception by inverse effective date by internal entry number"
^DD(409.4575,.01,1,2,"%D",3,0)="of the effective date."
^DD(409.4575,.01,1,2,"DT")="2930316"
^DD(409.4575,.01,21,0)="^^2^2^2930621^"
^DD(409.4575,.01,21,1,0)="Enter in this field the effective date of the outpatient classification"
^DD(409.4575,.01,21,2,0)="stop code exception."
^DD(409.4575,.01,"DT")="2930316"
^DD(409.4575,.02,0)="ACTIVE^RS^1:YES;0:NO;^0;2^Q"
^DD(409.4575,.02,21,0)="^^2^2^2930621^"
^DD(409.4575,.02,21,1,0)="Enter in this field whether or not the effective date of the"
^DD(409.4575,.02,21,2,0)="outpatient classification stop code exception is active or not."
^DD(409.4575,.02,"DT")="2930316"
^DD(409.4575,"B","ACTIVE",.02)=""
^DD(409.4575,"B","EFFECTIVE DATE",.01)=""
^DD(409.4575,"GL",0,1,.01)=""
^DD(409.4575,"GL",0,2,.02)=""
^DD(409.4575,"IX",.01)=""
^DD(409.4575,"RQ",.01)=""
^DD(409.4575,"RQ",.02)=""
^DD(409.48,0)="FIELD^^.13^14"
^DD(409.48,0,"DDA")="N"
^DD(409.48,0,"DT")="3070308"
^DD(409.48,0,"IX","AC",409.48,.02)=""
^DD(409.48,0,"IX","AD",409.48,.04)=""
^DD(409.48,0,"IX","AE",409.48,.07)=""
^DD(409.48,0,"IX","B",409.48,.01)=""
^DD(409.48,0,"IX","D",409.48,.11)=""
^DD(409.48,0,"NM","SDSC SERVICE CONNECTED CHANGES")=""
^DD(409.48,0,"VR")="5.3"
^DD(409.48,0,"VRPK")="SD"
^DD(409.48,.01,0)="OUTPATIENT ENCOUNTER^RP409.68'X^SCE(^0;1^S DINUM=X"
^DD(409.48,.01,1,0)="^.1"
^DD(409.48,.01,1,1,0)="409.48^B"
^DD(409.48,.01,1,1,1)="S ^SDSC(409.48,""B"",$E(X,1,30),DA)="""""
^DD(409.48,.01,1,1,2)="K ^SDSC(409.48,""B"",$E(X,1,30),DA)"
^DD(409.48,.01,3)=""
^DD(409.48,.01,21,0)="^^2^2^3070305^"
^DD(409.48,.01,21,1,0)="This is the Encounter Number from file #409.68 (Outpatient Encounter) "
^DD(409.48,.01,21,2,0)="which was determined needs to be reviewed. "
^DD(409.48,.01,23,0)="^.001^1^1^3070302^^"
^DD(409.48,.01,23,1,0)="A pointer to the OUTPATIENT ENCOUNTER File #409.68."
^DD(409.48,.01,"DT")="3070305"
^DD(409.48,.02,0)="DATE LAST EDITED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.48,.02,1,0)="^.1^^-1"
^DD(409.48,.02,1,1,0)="409.48^AC"
^DD(409.48,.02,1,1,1)="S ^SDSC(409.48,""AC"",$E(X,1,30),DA)="""""
^DD(409.48,.02,1,1,2)="K ^SDSC(409.48,""AC"",$E(X,1,30),DA)"
^DD(409.48,.02,1,1,"%D",0)="^.101^2^2^3061027^^"
^DD(409.48,.02,1,1,"%D",1,0)="This cross reference is by DATE LAST EDITED and is used for several"
^DD(409.48,.02,1,1,"%D",2,0)="reports that track changes the user made to the encounter."
^DD(409.48,.02,1,1,"DT")="3040916"
^DD(409.48,.02,5,1,0)="409.481^.02^1"
^DD(409.48,.02,21,0)="^^2^2^3070302^"
^DD(409.48,.02,21,1,0)="This field contains the date that this encounter was last edited through"
^DD(409.48,.02,21,2,0)="the ASCD options."
^DD(409.48,.02,"DT")="3040916"
^DD(409.48,.03,0)="LAST EDITED BY^P200'^VA(200,^0;3^Q"
^DD(409.48,.03,5,1,0)="409.481^.03^1"
^DD(409.48,.03,21,0)="^.001^2^2^3070302^^"
^DD(409.48,.03,21,1,0)="This field contains the user who last edited this encounter through the"
^DD(409.48,.03,21,2,0)="ASCD options."
^DD(409.48,.03,23,0)="^^1^1^3070302^"
^DD(409.48,.03,23,1,0)="A pointer to the NEW PERSON File #200."
^DD(409.48,.03,"DT")="3040922"
^DD(409.48,.04,0)="DATE CREATED^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.48,.04,1,0)="^.1"
^DD(409.48,.04,1,1,0)="409.48^AD"
^DD(409.48,.04,1,1,1)="S ^SDSC(409.48,""AD"",$E(X,1,30),DA)="""""
^DD(409.48,.04,1,1,2)="K ^SDSC(409.48,""AD"",$E(X,1,30),DA)"
^DD(409.48,.04,1,1,"%D",0)="^.101^2^2^3061107^^^^"
^DD(409.48,.04,1,1,"%D",1,0)="This cross reference is by DATE CREATED and is used for several reports"
^DD(409.48,.04,1,1,"%D",2,0)="that track what happened when an encounter was added to this file."
^DD(409.48,.04,1,1,"DT")="3040916"
^DD(409.48,.04,21,0)="^.001^1^1^3070302^^^"
^DD(409.48,.04,21,1,0)="This field contains the date that this encounter was added to this file."
^DD(409.48,.04,"DT")="3040923"
^DD(409.48,.05,0)="STATUS^RS^N:NEW;R:REVIEW;C:COMPLETED;^0;5^Q"
^DD(409.48,.05,5,1,0)="409.48^.06^1"
^DD(409.48,.05,5,2,0)="409.481^.06^1"
^DD(409.48,.05,21,0)="^^5^5^3070302^"
^DD(409.48,.05,21,1,0)="This field contains the status of this encounter."
^DD(409.48,.05,21,2,0)="    ""NEW""       - this encounter was recently added to this file."
^DD(409.48,.05,21,3,0)="    ""REVIEW""    - this encounter was forwarded for clinical review."
^DD(409.48,.05,21,4,0)="    ""COMPLETED"" - edits to this encounter are complete and only a"
^DD(409.48,.05,21,5,0)="                  supervisor may make further modifications."
^DD(409.48,.05,"DT")="3040923"
^DD(409.48,.06,0)="SERV. CONNECT (OK BY USER?)^S^0:NO;1:YES;^0;6^Q"
^DD(409.48,.06,1,0)="^.1"
^DD(409.48,.06,1,1,0)="^^TRIGGER^409.48^.05"
^DD(409.48,.06,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""C"" S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=409.48,DIG=.05 D ^DICR"
^DD(409.48,.06,1,1,2)="Q"
^DD(409.48,.06,1,1,"CREATE VALUE")="""C"""
^DD(409.48,.06,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.48,.06,1,1,"FIELD")="#.05"
^DD(409.48,.06,5,1,0)="409.481^.05^1"
^DD(409.48,.06,21,0)="^.001^2^2^3070308^^"
^DD(409.48,.06,21,1,0)="This field will contain 1 ('YES') or 0 ('NO') based on the user"
^DD(409.48,.06,21,2,0)="determination of the encounter's service connected value."
^DD(409.48,.06,"DT")="3040922"
^DD(409.48,.07,0)="DATE OF ENCOUNTER^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.48,.07,1,0)="^.1"
^DD(409.48,.07,1,1,0)="409.48^AE"
^DD(409.48,.07,1,1,1)="S ^SDSC(409.48,""AE"",$E(X,1,30),DA)="""""
^DD(409.48,.07,1,1,2)="K ^SDSC(409.48,""AE"",$E(X,1,30),DA)"
^DD(409.48,.07,1,1,"%D",0)="^.101^1^1^3070302^^^"
^DD(409.48,.07,1,1,"%D",1,0)="This cross reference is by DATE OF ENCOUNTER and is used by several reports."
^DD(409.48,.07,1,1,"DT")="3040916"
^DD(409.48,.07,21,0)="^^2^2^3070302^"
^DD(409.48,.07,21,1,0)="This is the actual date of the encounter copied from the OUTPATIENT"
^DD(409.48,.07,21,2,0)="ENCOUNTER file #409.68 at the time of the compile."
^DD(409.48,.07,"DT")="3040923"
^DD(409.48,.08,0)="PRIMARY PROVIDER^P200'^VA(200,^0;8^Q"
^DD(409.48,.08,21,0)="^.001^2^2^3070302^^^"
^DD(409.48,.08,21,1,0)="This field contains the primary provider for the encounter determined "
^DD(409.48,.08,21,2,0)="at the time of the compile."
^DD(409.48,.08,23,0)="^^1^1^3070302^"
^DD(409.48,.08,23,1,0)="A pointer to the NEW PERSON FILE #200."
^DD(409.48,.08,"DT")="3040922"
^DD(409.48,.09,0)="SERV. CONNECT (OK BY VBA/ICD?)^S^0:NO;1:YES;^0;9^Q"
^DD(409.48,.09,21,0)="^.001^3^3^3070308^^"
^DD(409.48,.09,21,1,0)="This field will contain 1 ('YES') or 0 ('NO') depending on whether the"
^DD(409.48,.09,21,2,0)="automation or compile determined that the VBA/ICD codes found for this"
^DD(409.48,.09,21,3,0)="patient and encounter provided a match."
^DD(409.48,.09,"DT")="3070305"
^DD(409.48,.1,0)="CLAIMS TRACKING ENTRY^NJ11,0^^0;10^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.48,.1,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(409.48,.1,21,0)="^.001^2^2^3070305^^^"
^DD(409.48,.1,21,1,0)="This field will contain the Claims Tracking Entry for a record which may "
^DD(409.48,.1,21,2,0)="have been modified."
^DD(409.48,.1,23,0)="^^1^1^3070305^"
^DD(409.48,.1,23,1,0)="Contains the pointer value to the CLAIMS TRACKING file #356."
^DD(409.48,.1,"DT")="3070305"
^DD(409.48,.11,0)="PATIENT^RP2'^DPT(^0;11^Q"
^DD(409.48,.11,1,0)="^.1"
^DD(409.48,.11,1,1,0)="409.48^D"
^DD(409.48,.11,1,1,1)="S ^SDSC(409.48,""D"",$E(X,1,30),DA)="""""
^DD(409.48,.11,1,1,2)="K ^SDSC(409.48,""D"",$E(X,1,30),DA)"
^DD(409.48,.11,1,1,"%D",0)="^.101^1^1^3061107^^^^"
^DD(409.48,.11,1,1,"%D",1,0)="Patient IEN cross-reference"
^DD(409.48,.11,1,1,"DT")="3041027"
^DD(409.48,.11,21,0)="^^3^3^3070302^"
^DD(409.48,.11,21,1,0)="This field contains the "
^DD(409.48,.11,21,2,0)="patient's DFN for the"
^DD(409.48,.11,21,3,0)="encounter."
^DD(409.48,.11,23,0)="^^1^1^3070302^"
^DD(409.48,.11,23,1,0)="A pointer to the PATIENT file #2."
^DD(409.48,.11,"DT")="3070302"
^DD(409.48,.12,0)="DIVISION^P40.8'^DG(40.8,^0;12^Q"
^DD(409.48,.12,21,0)="^.001^1^1^3070302^^"
^DD(409.48,.12,21,1,0)="This field is the medical center division assigned to the encounter."
^DD(409.48,.12,23,0)="^^1^1^3070302^"
^DD(409.48,.12,23,1,0)="A pointer to the MEDICAL CENTER DIVISION File #40.8."
^DD(409.48,.12,"DT")="3050811"
^DD(409.48,.13,0)="SERV. CONNECT (ORIGINAL VALUE)^S^0:NO;1:YES;^0;13^Q"
^DD(409.48,.13,21,0)="^.001^2^2^3070308^^"
^DD(409.48,.13,21,1,0)="This field will contain 1 ('YES') or 0 ('NO') based on the original"
^DD(409.48,.13,21,2,0)="encounter's service connected value."
^DD(409.48,.13,"DT")="3070308"
^DD(409.48,1,0)="TRACK EDITS^409.481A^^1;0"
^DD(409.48,1,21,0)="^.001^2^2^3070302^^^^"
^DD(409.48,1,21,1,0)="This multiple field tracks each edit made to this encounter through the"
^DD(409.48,1,21,2,0)="ASCD options."
^DD(409.48,"B","CLAIMS TRACKING ENTRY",.1)=""
^DD(409.48,"B","DATE CREATED",.04)=""
^DD(409.48,"B","DATE LAST EDITED",.02)=""
^DD(409.48,"B","DATE OF ENCOUNTER",.07)=""
^DD(409.48,"B","DIVISION",.12)=""
^DD(409.48,"B","LAST EDITED BY",.03)=""
^DD(409.48,"B","OUTPATIENT ENCOUNTER",.01)=""
^DD(409.48,"B","PATIENT",.11)=""
^DD(409.48,"B","PRIMARY PROVIDER",.08)=""
^DD(409.48,"B","SERV. CONNECT (OK BY USER?)",.06)=""
^DD(409.48,"B","SERV. CONNECT (OK BY VBA/ICD?)",.09)=""
^DD(409.48,"B","SERV. CONNECT (ORIGINAL VALUE)",.13)=""
^DD(409.48,"B","STATUS",.05)=""
^DD(409.48,"B","TRACK EDITS",1)=""
^DD(409.48,"GL",0,1,.01)=""
^DD(409.48,"GL",0,2,.02)=""
^DD(409.48,"GL",0,3,.03)=""
^DD(409.48,"GL",0,4,.04)=""
^DD(409.48,"GL",0,5,.05)=""
^DD(409.48,"GL",0,6,.06)=""
^DD(409.48,"GL",0,7,.07)=""
^DD(409.48,"GL",0,8,.08)=""
^DD(409.48,"GL",0,9,.09)=""
^DD(409.48,"GL",0,10,.1)=""
^DD(409.48,"GL",0,11,.11)=""
^DD(409.48,"GL",0,12,.12)=""
^DD(409.48,"GL",0,13,.13)=""
^DD(409.48,"GL",1,0,1)=""
^DD(409.48,"IX",.01)=""
^DD(409.48,"IX",.02)=""
^DD(409.48,"IX",.04)=""
^DD(409.48,"IX",.06)=""
^DD(409.48,"IX",.07)=""
^DD(409.48,"IX",.11)=""
^DD(409.48,"RQ",.01)=""
^DD(409.48,"RQ",.04)=""
^DD(409.48,"RQ",.05)=""
^DD(409.48,"RQ",.11)=""
^DD(409.48,"SB",409.481,1)=""
^DD(409.481,0)="TRACK EDITS SUB-FIELD^^.06^6"
^DD(409.481,0,"DT")="3061107"
^DD(409.481,0,"IX","B",409.481,.01)=""
^DD(409.481,0,"NM","TRACK EDITS")=""
^DD(409.481,0,"UP")="409.48"
^DD(409.481,.01,0)="EDIT NUMBER^NJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.481,.01,1,0)="^.1"
^DD(409.481,.01,1,1,0)="409.481^B"
^DD(409.481,.01,1,1,1)="S ^SDSC(409.48,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.481,.01,1,1,2)="K ^SDSC(409.48,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.481,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(409.481,.01,21,0)="^.001^4^4^3070302^^"
^DD(409.481,.01,21,1,0)="This field contains a unique entry for each edit. The edits are stored"
^DD(409.481,.01,21,2,0)="in order beginning at 1. Under ordinary circumstances there will usually"
^DD(409.481,.01,21,3,0)="only be between 1 and 3 edits for any record although there is no specific"
^DD(409.481,.01,21,4,0)="maximum."
^DD(409.481,.01,"DT")="3061107"
^DD(409.481,.02,0)="DATE EDITED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.481,.02,1,0)="^.1"
^DD(409.481,.02,1,1,0)="^^TRIGGER^409.48^.02"
^DD(409.481,.02,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=409.48,DIG=.02 D ^DICR"
^DD(409.481,.02,1,1,2)="Q"
^DD(409.481,.02,1,1,"CREATE VALUE")="S X=X"
^DD(409.481,.02,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.481,.02,1,1,"DT")="3061107"
^DD(409.481,.02,1,1,"FIELD")="#.02"
^DD(409.481,.02,21,0)="^.001^2^2^3070302^^"
^DD(409.481,.02,21,1,0)="This is the date that the user edited this encounter. A trigger on this"
^DD(409.481,.02,21,2,0)="field will also update the DATE LAST EDITED field in the main file."
^DD(409.481,.02,"DT")="3061107"
^DD(409.481,.03,0)="EDITED BY^P200'^VA(200,^0;3^Q"
^DD(409.481,.03,1,0)="^.1"
^DD(409.481,.03,1,1,0)="^^TRIGGER^409.48^.03"
^DD(409.481,.03,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=409.48,DIG=.03 D ^DICR"
^DD(409.481,.03,1,1,2)="Q"
^DD(409.481,.03,1,1,"CREATE VALUE")="S X=X"
^DD(409.481,.03,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.481,.03,1,1,"FIELD")="#.03"
^DD(409.481,.03,21,0)="^.001^2^2^3070302^^"
^DD(409.481,.03,21,1,0)="This is the user who edited this encounter. A trigger on this field will"
^DD(409.481,.03,21,2,0)="also update the LAST EDITED BY field in the main file."
^DD(409.481,.03,23,0)="^^1^1^3070302^"
^DD(409.481,.03,23,1,0)="A pointer to the NEW PERSON file #200."
^DD(409.481,.03,"DT")="3061107"
^DD(409.481,.04,0)="TYPE OF ENTRY^S^U:USER;C:CLINICAL;S:SUPERVISOR;^0;4^Q"
^DD(409.481,.04,21,0)="^^4^4^3070302^"
^DD(409.481,.04,21,1,0)="This is the type of user who edited this encounter."
^DD(409.481,.04,21,2,0)="    ""USER""        any standard user of this package."
^DD(409.481,.04,21,3,0)="    ""CLINICAL""    a clinical reviewer with the appropriate security key."
^DD(409.481,.04,21,4,0)="    ""SUPERVISOR""  a supervisor with the appropriate security key."
^DD(409.481,.04,"DT")="3061107"
^DD(409.481,.05,0)="SERV. CONNECT (OK BY USER?)^S^0:NO;1:YES;^0;5^Q"
^DD(409.481,.05,1,0)="^.1^^-1"
^DD(409.481,.05,1,1,0)="^^TRIGGER^409.48^.06"
^DD(409.481,.05,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=X S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=409.48,DIG=.06 D ^DICR"
^DD(409.481,.05,1,1,2)="Q"
^DD(409.481,.05,1,1,"CREATE VALUE")="S X=X"
^DD(409.481,.05,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.481,.05,1,1,"FIELD")="#.06"
^DD(409.481,.05,21,0)="^^4^4^3070302^"
^DD(409.481,.05,21,1,0)="This field will contain 1 ('YES') or 0 ('NO') based on the user"
^DD(409.481,.05,21,2,0)="determination of the encounter's service connected value. A trigger on "
^DD(409.481,.05,21,3,0)="this field will also update the SERV. CONNECT (OK BY USER?) field in the"
^DD(409.481,.05,21,4,0)="main file."
^DD(409.481,.05,"DT")="3061208"
^DD(409.481,.06,0)="REVIEW REQUIRED?^S^0:NO;1:YES;^0;6^Q"
^DD(409.481,.06,1,0)="^.1"
^DD(409.481,.06,1,1,0)="^^TRIGGER^409.48^.05"
^DD(409.481,.06,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^SDSC(409.48,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""R"" S DIH=$G(^SDSC(409.48,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=409.48,DIG=.05 D ^DICR"
^DD(409.481,.06,1,1,2)="Q"
^DD(409.481,.06,1,1,"CREATE VALUE")="""R"""
^DD(409.481,.06,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.481,.06,1,1,"FIELD")="#.05"
^DD(409.481,.06,21,0)="^.001^3^3^3070302^^"
^DD(409.481,.06,21,1,0)="This field will be set to 1 ('YES') if a regular user determines that this"
^DD(409.481,.06,21,2,0)="record requires further review by a clinical reviewer. A trigger will also"
^DD(409.481,.06,21,3,0)="set the STATUS field in the main file to 'REVIEW'."
^DD(409.481,.06,"DT")="3061208"
^DD(409.481,"B","DATE EDITED",.02)=""
^DD(409.481,"B","EDIT NUMBER",.01)=""
^DD(409.481,"B","EDITED BY",.03)=""
^DD(409.481,"B","REVIEW REQUIRED?",.06)=""
^DD(409.481,"B","SERV. CONNECT (OK BY USER?)",.05)=""
^DD(409.481,"B","TYPE OF ENTRY",.04)=""
^DD(409.481,"GL",0,1,.01)=""
^DD(409.481,"GL",0,2,.02)=""
^DD(409.481,"GL",0,3,.03)=""
^DD(409.481,"GL",0,4,.04)=""
^DD(409.481,"GL",0,5,.05)=""
^DD(409.481,"GL",0,6,.06)=""
^DD(409.481,"IX",.01)=""
^DD(409.481,"IX",.02)=""
^DD(409.481,"IX",.03)=""
^DD(409.481,"IX",.05)=""
^DD(409.481,"IX",.06)=""
^DD(409.5,0)="FIELD^^206^7"
^DD(409.5,0,"DT")="2930209"
^DD(409.5,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.5,0,"IX","ACG",409.51,5)=""
^DD(409.5,0,"IX","ADT",409.5,2)=""
^DD(409.5,0,"IX","AG",409.51,11)=""
^DD(409.5,0,"IX","AP",409.51,.01)=""
^DD(409.5,0,"IX","ASDPSD",409.5,3)=""
^DD(409.5,0,"IX","ASDPSD1",409.5,.01)=""
^DD(409.5,0,"IX","B",409.5,.01)=""
^DD(409.5,0,"IX","C",409.5,2)=""
^DD(409.5,0,"NM","SCHEDULING VISITS")=""
^DD(409.5,0,"VR")="5.3"
^DD(409.5,.01,0)="DATE/TIME^DX^^0;1^S %DT=""EXT"" D ^%DT S X=Y K:Y<1 X S DINUM=X"
^DD(409.5,.01,1,0)="^.1"
^DD(409.5,.01,1,1,0)="409.5^B"
^DD(409.5,.01,1,1,1)="S ^SDV(""B"",$E(X,1,30),DA)="""""
^DD(409.5,.01,1,1,2)="K ^SDV(""B"",$E(X,1,30),DA)"
^DD(409.5,.01,1,2,0)="409.5^ASDPSD1^MUMPS"
^DD(409.5,.01,1,2,1)="Q"
^DD(409.5,.01,1,2,2)="S SDX=$S($D(^SDV(DA,0)):$P(^(0),""^"",3),1:"""") K:'SDX SDX I $D(SDX) K ^DPT(""ASDPSD"",""C"","" ""_SDX,"" "",DA,$P(^SDV(DA,0),""^"",2)),SDX"
^DD(409.5,.01,3)="Enter the date of the patient's outpatient visit"
^DD(409.5,.01,21,0)="^^1^1^2920211^"
^DD(409.5,.01,21,1,0)="The data/time a veteran was scheduled for an outpatient visit."
^DD(409.5,.01,"DT")="2880524"
^DD(409.5,2,0)="PATIENT^RP2'I^DPT(^0;2^Q"
^DD(409.5,2,1,0)="^.1^^-1"
^DD(409.5,2,1,1,0)="409.5^C"
^DD(409.5,2,1,1,1)="S ^SDV(""C"",$E(X,1,30),DA)="""""
^DD(409.5,2,1,1,2)="K ^SDV(""C"",$E(X,1,30),DA)"
^DD(409.5,2,1,2,0)="409.5^ADT^MUMPS"
^DD(409.5,2,1,2,1)="S ^SDV(""ADT"",X,$P(DA,"".""))=DA"
^DD(409.5,2,1,2,2)="K ^SDV(""ADT"",X,$P(DA,"".""))"
^DD(409.5,2,21,0)="^^2^2^2920211^"
^DD(409.5,2,21,1,0)="The name of the patient who had a scheduled outpatient visit which is"
^DD(409.5,2,21,2,0)="a pointer to File 2, Patient File"
^DD(409.5,2,"DT")="2880524"
^DD(409.5,3,0)="DIVISION^P40.8'^DG(40.8,^0;3^Q"
^DD(409.5,3,1,0)="^.1"
^DD(409.5,3,1,1,0)="409.5^ASDPSD^MUMPS"
^DD(409.5,3,1,1,1)="Q"
^DD(409.5,3,1,1,2)="Q"
^DD(409.5,3,1,1,"%D",0)="^^9^9^2981118^^"
^DD(409.5,3,1,1,"%D",1,0)="This cross reference use to call SDACS but is no longer needed since"
^DD(409.5,3,1,1,"%D",2,0)="the release of patch SD*5.3*132. Cross referece is kept for historial"
^DD(409.5,3,1,1,"%D",3,0)="purposes but both the 'Set' and 'Kill' logic are now just QUIT commands."
^DD(409.5,3,1,1,"%D",4,0)=" "
^DD(409.5,3,1,1,"%D",5,0)="The following are the former 'Set' and 'Kill' logic:"
^DD(409.5,3,1,1,"%D",6,0)="  "
^DD(409.5,3,1,1,"%D",7,0)=" Set: S SDX=DA,DA(1)=$P(^SDV(DA,0),""^"",2),DIV=X D EN1^SDACS K SDX,DA(1),DIV"
^DD(409.5,3,1,1,"%D",8,0)="Kill: S DA(1)=$P(^SDV(DA,0),""^"",2),DIV=X,SDX=DA D EN1K^SDACS K DA(1),SDX,DIV"
^DD(409.5,3,1,1,"%D",9,0)=" "
^DD(409.5,3,1,1,"DT")="2981118"
^DD(409.5,3,3)="Enter division where visit took place."
^DD(409.5,3,21,0)="^^2^2^2920211^"
^DD(409.5,3,21,1,0)="The division a veteran was seen at for a scheduled visit in an outpatient"
^DD(409.5,3,21,2,0)="clinic.  For example, Albany VA Medical Center is considered a division."
^DD(409.5,3,"DT")="2981118"
^DD(409.5,10,0)="CLINIC STOP CODE^409.51P^^CS;0"
^DD(409.5,10,21,0)="^^5^5^2920211^^"
^DD(409.5,10,21,1,0)="Clinic stop code is one of many codes assigned to specialties of"
^DD(409.5,10,21,2,0)="care by VA Central Office for nationwide use.  For example, the stop"
^DD(409.5,10,21,3,0)="code number 102 is 'admissions/screening' which can be associated"
^DD(409.5,10,21,4,0)="with any clinic in which the veteran will be screened for treatment"
^DD(409.5,10,21,5,0)="and possibly admitted."
^DD(409.5,200,0)="# OF AMBULATORY PROCEDURES^CJ8,0^^ ; ^D COUNT^SDAMBAE4"
^DD(409.5,200,9)="^"
^DD(409.5,200,9.01)=""
^DD(409.5,200,9.1)="D COUNT^SDAMBAE4"
^DD(409.5,200,21,0)="^^2^2^2890912^"
^DD(409.5,200,21,1,0)="This computed field returns the total number of ambulatory procedures"
^DD(409.5,200,21,2,0)="performed on the patient for the visit date."
^DD(409.5,200,"DT")="2890904"
^DD(409.5,203,0)="PROCEDURE REIMBURSEMENT^CJ10,2^^ ; ^D TOTAL^SDAMBAE4"
^DD(409.5,203,9)="^"
^DD(409.5,203,9.01)=""
^DD(409.5,203,9.1)="D TOTAL^SDAMBAE4"
^DD(409.5,203,21,0)="^^2^2^2890912^"
^DD(409.5,203,21,1,0)="This computed fields returns the total RAM reimbursement for all the"
^DD(409.5,203,21,2,0)="procedures performed on the patient for the visit date."
^DD(409.5,206,0)="TOTAL LOCAL COST^CJ10,2^^ ; ^D LOCAL^SDAMBAE4"
^DD(409.5,206,9)="^"
^DD(409.5,206,9.01)=""
^DD(409.5,206,9.1)="D LOCAL^SDAMBAE4"
^DD(409.5,206,21,0)="^^10^10^2890912^"
^DD(409.5,206,21,1,0)="This computed field returns the total local cost for all the ambulatory"
^DD(409.5,206,21,2,0)="procedures performed on the patient for the visit date."
^DD(409.5,206,21,3,0)=" "
^DD(409.5,206,21,4,0)="The 'LOCAL COST' in the AMBULATORY PROCEDURE TIME SENSITIVE DATA file"
^DD(409.5,206,21,5,0)="is used if entered for the appropriate entry. Otherwise, the appropriate RAM"
^DD(409.5,206,21,6,0)="reimbursement amount, effective on the visit date, is used."
^DD(409.5,206,21,7,0)=" "
^DD(409.5,206,21,8,0)="In other words, if no local costs are entered for any of the procedures"
^DD(409.5,206,21,9,0)="performed, then the value returned will be equal to the value"
^DD(409.5,206,21,10,0)="returned for the PROCEDURE REIMBURSEMENT field."
^DD(409.5,"B","# OF AMBULATORY PROCEDURES",200)=""
^DD(409.5,"B","CLINIC STOP CODE",10)=""
^DD(409.5,"B","DATE/TIME",.01)=""
^DD(409.5,"B","DIVISION",3)=""
^DD(409.5,"B","PATIENT",2)=""
^DD(409.5,"B","PROCEDURE REIMBURSEMENT",203)=""
^DD(409.5,"B","TOTAL LOCAL COST",206)=""
^DD(409.5,"GL",0,1,.01)=""
^DD(409.5,"GL",0,2,2)=""
^DD(409.5,"GL",0,3,3)=""
^DD(409.5,"GL","CS",0,10)=""
^DD(409.5,"IX",.01)=""
^DD(409.5,"IX",2)=""
^DD(409.5,"IX",3)=""
^DD(409.5,"RQ",2)=""
^DD(409.5,"SB",409.51,10)=""
^DD(409.51,0)="CLINIC STOP CODE SUB-FIELD^^25^15"
^DD(409.51,0,"DT")="2930209"
^DD(409.51,0,"IX","B",409.51,.01)=""
^DD(409.51,0,"NM","CLINIC STOP CODE")=""
^DD(409.51,0,"UP")="409.5"
^DD(409.51,.01,0)="CLINIC STOP CODE^P40.7'^DIC(40.7,^0;1^Q"
^DD(409.51,.01,1,0)="^.1"
^DD(409.51,.01,1,1,0)="409.51^B"
^DD(409.51,.01,1,1,1)="S ^SDV(DA(1),""CS"",""B"",$E(X,1,30),DA)="""""
^DD(409.51,.01,1,1,2)="K ^SDV(DA(1),""CS"",""B"",$E(X,1,30),DA)"
^DD(409.51,.01,1,2,0)="409.5^AP^MUMPS"
^DD(409.51,.01,1,2,1)="I $D(^DIC(40.7,+X,0)),$P(^(0),""^"",2)=900 S ^SDV(""AP"",DA(1),DA)=$P(^SDV(DA(1),0),""^"",2)"
^DD(409.51,.01,1,2,2)="K ^SDV(""AP"",DA(1),DA)"
^DD(409.51,.01,3)="Enter the clinic stop code to be credited for this visit."
^DD(409.51,.01,21,0)="^^4^4^2920211^"
^DD(409.51,.01,21,1,0)="The clinic stop code assigned to a variety of treating specialties by"
^DD(409.51,.01,21,2,0)="VA Central Office.  For example, stop code number '102' is for"
^DD(409.51,.01,21,3,0)="'admissions/screening' which can be assigned to any clinic in which"
^DD(409.51,.01,21,4,0)="a veteran may be screened for treatment and possibly admitted."
^DD(409.51,.01,"DT")="2880210"
^DD(409.51,2,0)="EDITED LAST BY^P200'^VA(200,^0;2^Q"
^DD(409.51,2,21,0)="^^2^2^2920211^"
^DD(409.51,2,21,1,0)="This field records the user who last edited any clinic stop code"
^DD(409.51,2,21,2,0)="within the Scheduling Visits File for a particular patient entry."
^DD(409.51,2,"DT")="2901017"
^DD(409.51,3,0)="ASSOCIATED CLINIC^*P44'^SC(^0;3^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""",$D(DA(1)),$S('$D(^(""""I"""")):1,'^(""""I""""):1,^(""""I"""")>$P(DA(1),"""".""""):1,'$P(^(""""I""""),U,2):0,1:$P(^(""""I""""),U,2)'>$P(DA(1),"""".""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.51,3,12)="Allows only active clinics."
^DD(409.51,3,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""",$D(DA(1)),$S('$D(^(""""I"""")):1,'^(""""I""""):1,^(""""I"""")>$P(DA(1),"""".""""):1,'$P(^(""""I""""),U,2):0,1:$P(^(""""I""""),U,2)'>$P(DA(1),"""".""""))"""
^DD(409.51,3,21,0)="^^5^5^2920211^"
^DD(409.51,3,21,1,0)="The associated clinic that has been assigned by a user in the"
^DD(409.51,3,21,2,0)="add/edit menu option of the Scheduling Module.  A clinic stop code"
^DD(409.51,3,21,3,0)="may be entered for a patient's visit and the associated clinic"
^DD(409.51,3,21,4,0)="added (user specific) without going through the Hospital Location"
^DD(409.51,3,21,5,0)="File setups."
^DD(409.51,3,"DEL",1,0)="I $D(^SDV(DA(1),""CS"",DA,0)),$D(^DIC(40.7,+^(0),0)),$P(^(0),U,2)=""900"" W !?5,""Assoicated clinic is required for stop code '900'"""
^DD(409.51,3,"DT")="2890821"
^DD(409.51,4,0)="ELIGIBILITY FOR VISIT^*P8'^DIC(8,^0;4^S DIC(""S"")=""I $S($D(^DPT(+$P(^SDV(DA(1),0),U,2),""""E"""",Y,0)):1,'$D(^DPT(+$P(^SDV(DA(1),0),U,2),.36)):0,1:Y=+^(.36))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.51,4,1,0)="^.1"
^DD(409.51,4,1,1,0)="^^TRIGGER^409.68^.13"
^DD(409.51,4,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(409.51,4,1,1,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$S('$D(^DIC(8,+$P(Y(101),U,13),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD(409.51,4,1,1,1.4)"
^DD(409.51,4,1,1,1.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,13)=DIV,DIH=409.68,DIG=.13 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.51,4,1,1,2)="Q"
^DD(409.51,4,1,1,89.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SDV(D0,""CS"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,8) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0"
^DD(409.51,4,1,1,"CREATE VALUE")="S X=X"
^DD(409.51,4,1,1,"DELETE VALUE")="NO EFFECT"
^DD(409.51,4,1,1,"DT")="2930722"
^DD(409.51,4,1,1,"FIELD")="OUTPATIENT ENCOUNTER:ELIGIBILITY OF ENCOUNTER"
^DD(409.51,4,5,1,0)="409.51^5^1"
^DD(409.51,4,5,2,0)="409.51^5^2"
^DD(409.51,4,12)="Allows only patient's entitled eligibilities."
^DD(409.51,4,12.1)="S DIC(""S"")=""I $S($D(^DPT(+$P(^SDV(DA(1),0),U,2),""""E"""",Y,0)):1,'$D(^DPT(+$P(^SDV(DA(1),0),U,2),.36)):0,1:Y=+^(.36))"""
^DD(409.51,4,21,0)="^^3^3^2920211^^"
^DD(409.51,4,21,1,0)="The patient's eligibility at the time the appointment is made is store"
^DD(409.51,4,21,2,0)="here.  If there are Other Entitled Eligibilities specified, the Add/Edit"
^DD(409.51,4,21,3,0)="option will prompt for this and store them here."
^DD(409.51,4,"DT")="2930722"
^DD(409.51,5,0)="APPOINTMENT TYPE^R*P409.1'^SD(409.1,^0;5^S DIC(""S"")=""D APP^SDAMBAE2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.51,5,1,0)="^.1"
^DD(409.51,5,1,1,0)="^^TRIGGER^409.51^4"
^DD(409.51,5,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""369""'[X I X S X=DIV S Y(1)=$S($D(^SDV(D0,""CS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(409.51,5,1,1,1.1) X ^DD(409.51,5,1,1,1.4)"
^DD(409.51,5,1,1,1.1)="S X=DIV S X=$S($D(^SD(409.1,X,0)):$P(^(0),U,6),1:"""") S:'X X=$S($D(^DPT(+$P(^SDV(DA(1),0),U,2),.36)):$P(^(.36),U),1:"""")"
^DD(409.51,5,1,1,1.4)="S DIH=$S($D(^SDV(DIV(0),""CS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=409.51,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.51,5,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""369""'[X I X S X=DIV S Y(1)=$S($D(^SDV(D0,""CS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(409.51,5,1,1,2.4)"
^DD(409.51,5,1,1,2.4)="S DIH=$S($D(^SDV(DIV(0),""CS"",DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(0)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=409.51,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.51,5,1,1,"CREATE CONDITION")="S X=""369""'[X"
^DD(409.51,5,1,1,"CREATE VALUE")="S X=$S($D(^SD(409.1,X,0)):$P(^(0),U,6),1:"""") S:'X X=$S($D(^DPT(+$P(^SDV(DA(1),0),U,2),.36)):$P(^(.36),U),1:"""")"
^DD(409.51,5,1,1,"DELETE CONDITION")="S X=""369""'[X"
^DD(409.51,5,1,1,"DELETE VALUE")="@"
^DD(409.51,5,1,1,"FIELD")="ELIGIBILITY FOR VISIT"
^DD(409.51,5,1,2,0)="^^TRIGGER^409.51^4"
^DD(409.51,5,1,2,1)="X ^DD(409.51,5,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^SDV(D0,""CS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(409.51,5,1,2,1.1) X ^DD(409.51,5,1,2,1.4)"
^DD(409.51,5,1,2,1.1)="S X=DIV X ^DD(409.51,5,1,2,49.2) S X=$P(Y(101),U,1),X=X S X=X S D0=I(0,0) S D1=I(1,0)"
^DD(409.51,5,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=$S(""369""'[X:0,1:$O(^DPT(+$P(^SDV(DA(1),0),U,2),""E"",0))) I X S X='$O(^(+X))"
^DD(409.51,5,1,2,1.4)="S DIH=$S($D(^SDV(DIV(0),""CS"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=409.51,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.51,5,1,2,2)="X ^DD(409.51,5,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^SDV(D0,""CS"",D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(409.51,5,1,2,2.4)"
^DD(409.51,5,1,2,2.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=$S(""369""'[X:0,1:$O(^DPT(+$P(^SDV(DA(1),0),U,2),""E"",0))) I X S X='$O(^(+X))"
^DD(409.51,5,1,2,2.4)="S DIH=$S($D(^SDV(DIV(0),""CS"",DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=409.51,DIG=4 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.51,5,1,2,49.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SDV(D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.36)):^(.36),1:"""")"
^DD(409.51,5,1,2,"%D",0)="^^8^8^2911113^^^"
^DD(409.51,5,1,2,"%D",1,0)="This triggers the ELIGIBILITY FOR VISIT field"
^DD(409.51,5,1,2,"%D",2,0)="under the following circumstances:"
^DD(409.51,5,1,2,"%D",3,0)="  "
^DD(409.51,5,1,2,"%D",4,0)="1) APPOINTMENT TYPE is NOT 3,6,9 ==> Nothing"
^DD(409.51,5,1,2,"%D",5,0)="2) Patient has NO eligibility    ==> Nothing"
^DD(409.51,5,1,2,"%D",6,0)="3) Patient has MANY eligibilities==> Nothing"
^DD(409.51,5,1,2,"%D",7,0)="4) APPOINTMENT TYPE IS 3,6,or 9 AND"
^DD(409.51,5,1,2,"%D",8,0)="   Patient has ONE eligibility   ==> Primary Eligibility"
^DD(409.51,5,1,2,"CREATE CONDITION")="S X=$S(""369""'[X:0,1:$O(^DPT(+$P(^SDV(DA(1),0),U,2),""E"",0))) I X S X='$O(^(+X))"
^DD(409.51,5,1,2,"CREATE VALUE")="INTERNAL(PATIENT:PRIMARY ELIGIBILITY CODE)"
^DD(409.51,5,1,2,"DELETE CONDITION")="S X=$S(""369""'[X:0,1:$O(^DPT(+$P(^SDV(DA(1),0),U,2),""E"",0))) I X S X='$O(^(+X))"
^DD(409.51,5,1,2,"DELETE VALUE")="@"
^DD(409.51,5,1,2,"DT")="2911113"
^DD(409.51,5,1,2,"FIELD")="#4"
^DD(409.51,5,1,3,0)="409.5^ACG^MUMPS"
^DD(409.51,5,1,3,1)="S:X=10 ^SDV(""ACG"",DA(1),DA)="""""
^DD(409.51,5,1,3,2)="K:X=10 ^SDV(""ACG"",DA(1),DA)"
^DD(409.51,5,1,4,0)="^^TRIGGER^409.68^.1"
^DD(409.51,5,1,4,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA X ^DD(409.51,5,1,4,89.2) S Y(101)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$S('$D(^SD(409.1,+$P(Y(101),U,10),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S D1=I(1,0) S DIU=X K Y S X=DIV S X=X X ^DD(409.51,5,1,4,1.4)"
^DD(409.51,5,1,4,1.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,10)=DIV,DIH=409.68,DIG=.1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.51,5,1,4,2)="Q"
^DD(409.51,5,1,4,89.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^SDV(D0,""CS"",D1,0)):^(0),1:""""),D0=$P(Y(1),U,8) S:'$D(^SCE(+D0,0)) D0=-1 S DIV(0)=D0"
^DD(409.51,5,1,4,"CREATE VALUE")="S X=X"
^DD(409.51,5,1,4,"DELETE VALUE")="NO EFFECT"
^DD(409.51,5,1,4,"DT")="2930722"
^DD(409.51,5,1,4,"FIELD")="OUTPATIENT ENCOUNTER:#.1"
^DD(409.51,5,12)="Allows only valid appointment types."
^DD(409.51,5,12.1)="S DIC(""S"")=""D APP^SDAMBAE2"""
^DD(409.51,5,21,0)="^^6^6^2920211^"
^DD(409.51,5,21,1,0)="The appointment type assigned to the veteran at time of scheduling"
^DD(409.51,5,21,2,0)="which is dependent on eligibility code and type of care receiving."
^DD(409.51,5,21,3,0)="For example a 'Regular' appointment type indicates no unusual"
^DD(409.51,5,21,4,0)="circumstances for that scheduled appointment.  'Compensation & Pension'"
^DD(409.51,5,21,5,0)="indicates the veteran is receiving an exam requested by the VARO to"
^DD(409.51,5,21,6,0)="assist in determining claimed disability that is service related."
^DD(409.51,5,"DT")="2930722"
^DD(409.51,6,0)="UNRESOLVED APPT TYPE REASON^S^1:DUAL ELIGIBILITY;2:POSSIBLE COMP & PEN;^0;6^Q"
^DD(409.51,6,3)="If the appt type is Computer Generated, enter the reason why"
^DD(409.51,6,21,0)="^^12^12^2920318^^^^"
^DD(409.51,6,21,1,0)="If visit has an appointment type of computer generated, the"
^DD(409.51,6,21,2,0)="UNRESOLVED APPT TYPE REASON field will also be stuffed with the best"
^DD(409.51,6,21,3,0)="possible reason why an appropriate appointment type could not be"
^DD(409.51,6,21,4,0)="determined.  Currently, if a patient has a comp and pen exam within"
^DD(409.51,6,21,5,0)="the last three days of the visit date which is computer generated"
^DD(409.51,6,21,6,0)="the unresolved reason will be POSSIBLE COMP & PEN, if a patient has a dual"
^DD(409.51,6,21,7,0)="eligibility and one of those eligibilities is Sharing Agreement,"
^DD(409.51,6,21,8,0)="Employee, or Collateral, the unresolved reason will be DUAL ELIGIBILITY."
^DD(409.51,6,21,9,0)="Should there be a scenario where both apply, the default is "
^DD(409.51,6,21,10,0)="POSSIBLE COMP & PEN.  This field is updated via the programmer call"
^DD(409.51,6,21,11,0)="to the scheduling hook designed to caputure outpatient workload"
^DD(409.51,6,21,12,0)="(EN3`SDACS)."
^DD(409.51,6,23,0)="^^1^1^2920318^^"
^DD(409.51,6,23,1,0)="Stuffed via the call EN3`SDACS."
^DD(409.51,6,"DT")="2911107"
^DD(409.51,7,0)="DATE ENTRY MADE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.51,7,21,0)="^^2^2^2920421^"
^DD(409.51,7,21,1,0)="This field contains the date that the multiple entry was"
^DD(409.51,7,21,2,0)="entered into the system."
^DD(409.51,7,23,0)="^^2^2^2920421^"
^DD(409.51,7,23,1,0)="This field is automatically entered by the software and"
^DD(409.51,7,23,2,0)="requires no user input."
^DD(409.51,7,"DT")="2920421"
^DD(409.51,8,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;8^Q"
^DD(409.51,8,"DT")="2930209"
^DD(409.51,9,0)="ENCOUNTER CONVERSION STATUS^SI^0:NOT CONVERTED;1:CONVERTED;^0;9^Q"
^DD(409.51,9,21,0)="^^6^6^2991228^"
^DD(409.51,9,21,1,0)="This field indicates whether or not this add/edit stop was converted  "
^DD(409.51,9,21,2,0)="during the ACRP Database Conversion (SD*5.3*211)."
^DD(409.51,9,21,3,0)=" "
^DD(409.51,9,21,4,0)=" "
^DD(409.51,9,21,5,0)="The field is set to '1' after the add/edit stop has been converted"
^DD(409.51,9,21,6,0)="by the conversion software.                        "
^DD(409.51,9,"DT")="2960912"
^DD(409.51,11,0)="COMPUTER GENERATED?^SI^1:YES;^1;1^Q"
^DD(409.51,11,1,0)="^.1"
^DD(409.51,11,1,1,0)="409.5^AG^MUMPS"
^DD(409.51,11,1,1,1)="S:X ^SDV(""AG"",DA(1),DA)="""""
^DD(409.51,11,1,1,2)="K:X ^SDV(""AG"",DA(1),DA)"
^DD(409.51,11,1,1,"%D",0)="^^1^1^2910411^"
^DD(409.51,11,1,1,"%D",1,0)="To quickly identify those stop codes 'auto-generated' by other packages"
^DD(409.51,11,1,1,"DT")="2910411"
^DD(409.51,11,21,0)="^^3^3^2920211^^"
^DD(409.51,11,21,1,0)="Field is used for data validation, to determine which stop codes"
^DD(409.51,11,21,2,0)="were automatically generated by outside package calls.  This"
^DD(409.51,11,21,3,0)="field should not be edited."
^DD(409.51,11,"DT")="2910411"
^DD(409.51,21,0)="PROCEDURE 1^*P81'X^ICPT(^PR;1^S DIC(""W"")=""D ID^SDAMBAE3"",DIC(""S"")=""D SCREEN^SDAMBAE3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S %=2 D DUP^SDAMBAE3"
^DD(409.51,21,12)="Allows only active ambulatory procedures"
^DD(409.51,21,12.1)="S DIC(""S"")=""D SCREEN^SDAMBAE3"""
^DD(409.51,21,21,0)="^^3^3^2970501^^^^"
^DD(409.51,21,21,1,0)="The name/number of the ambulatory procedure that was performed on"
^DD(409.51,21,21,2,0)="the patient in conjunction with this scheduled visit to an outpatient"
^DD(409.51,21,21,3,0)="clinic."
^DD(409.51,21,"DEL",1,0)="I $D(^SDV(DA(1),""CS"",DA,""PR"")) S %=1 X ""F I=1:1:5 I I'=1,$P(^(""""PR""""),U,I) S %=0 Q"" I % W !?5,""Cannot delete all procedures"""
^DD(409.51,21,"DT")="2970501"
^DD(409.51,22,0)="PROCEDURE 2^*P81'X^ICPT(^PR;2^S DIC(""W"")=""D ID^SDAMBAE3"",DIC(""S"")=""D SCREEN^SDAMBAE3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S %=2 D DUP^SDAMBAE3"
^DD(409.51,22,12)="Allows only active ambulatory procedures"
^DD(409.51,22,12.1)="S DIC(""S"")=""D SCREEN^SDAMBAE3"""
^DD(409.51,22,21,0)="^^3^3^2920211^"
^DD(409.51,22,21,1,0)="The name/number of a second ambulatory procedure that was performed on"
^DD(409.51,22,21,2,0)="the patient in conjunction with this scheduled visit to an outpatient"
^DD(409.51,22,21,3,0)="clinic."
^DD(409.51,22,"DEL",1,0)="I $D(^SDV(DA(1),""CS"",DA,""PR"")) S %=1 X ""F I=1:1:5 I I'=2,$P(^(""""PR""""),U,I) S %=0 Q"" I % W !?5,""Cannot delete all procedures"""
^DD(409.51,22,"DT")="2970501"
^DD(409.51,23,0)="PROCEDURE 3^*P81'X^ICPT(^PR;3^S DIC(""W"")=""D ID^SDAMBAE3"",DIC(""S"")=""D SCREEN^SDAMBAE3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S %=3 D DUP^SDAMBAE3"
^DD(409.51,23,12)="Allows only active ambulatory procedures"
^DD(409.51,23,12.1)="S DIC(""S"")=""D SCREEN^SDAMBAE3"""
^DD(409.51,23,21,0)="^^3^3^2920211^"
^DD(409.51,23,21,1,0)="The name/number of a third ambulatory procedure that was performed on"
^DD(409.51,23,21,2,0)="the patient in conjunction with this scheduled visit to an outpatient"
^DD(409.51,23,21,3,0)="clinic."
^DD(409.51,23,"DEL",1,0)="I $D(^SDV(DA(1),""CS"",DA,""PR"")) S %=1 X ""F I=1:1:5 I I'=3,$P(^(""""PR""""),U,I) S %=0 Q"" I % W !?5,""Cannot delete all procedures"""
^DD(409.51,23,"DT")="2970501"
^DD(409.51,24,0)="PROCEDURE 4^*P81'X^ICPT(^PR;4^S DIC(""W"")=""D ID^SDAMBAE3"",DIC(""S"")=""D SCREEN^SDAMBAE3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S %=4 D DUP^SDAMBAE3"
^DD(409.51,24,12)="Allows only active ambulatory procedures"
^DD(409.51,24,12.1)="S DIC(""S"")=""D SCREEN^SDAMBAE3"""
^DD(409.51,24,21,0)="^^3^3^2920211^"
^DD(409.51,24,21,1,0)="The name/number of a fourth ambulatory procedure that was performed on"
^DD(409.51,24,21,2,0)="the patient in conjunction with this scheduled visit to an outpatient"
^DD(409.51,24,21,3,0)="clinic."
^DD(409.51,24,"DEL",1,0)="I $D(^SDV(DA(1),""CS"",DA,""PR"")) S %=1 X ""F I=1:1:5 I I'=4,$P(^(""""PR""""),U,I) S %=0 Q"" I % W !?5,""Cannot delete all procedures"""
^DD(409.51,24,"DT")="2970501"
^DD(409.51,25,0)="PROCEDURE 5^*P81'X^ICPT(^PR;5^S DIC(""W"")=""D ID^SDAMBAE3"",DIC(""S"")=""D SCREEN^SDAMBAE3"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S %=5 D DUP^SDAMBAE3"
^DD(409.51,25,12)="Allows only active ambulatory procedures"
^DD(409.51,25,12.1)="S DIC(""S"")=""D SCREEN^SDAMBAE3"""
^DD(409.51,25,21,0)="^^3^3^2920211^"
^DD(409.51,25,21,1,0)="The name/number of a fifth ambulatory procedure that was performed on"
^DD(409.51,25,21,2,0)="the patient in conjunction with this scheduled visit to an outpatient"
^DD(409.51,25,21,3,0)="clinic."
^DD(409.51,25,"DEL",1,0)="I $D(^SDV(DA(1),""CS"",DA,""PR"")) S %=1 X ""F I=1:1:5 I I'=5,$P(^(""""PR""""),U,I) S %=0 Q"" I % W !?5,""Cannot delete all procedures"""
^DD(409.51,25,"DT")="2970501"
^DD(409.51,"B","APPOINTMENT TYPE",5)=""
^DD(409.51,"B","ASSOCIATED CLINIC",3)=""
^DD(409.51,"B","CLINIC STOP CODE",.01)=""
^DD(409.51,"B","COMPUTER GENERATED?",11)=""
^DD(409.51,"B","DATE ENTRY MADE",7)=""
^DD(409.51,"B","EDITED LAST BY",2)=""
^DD(409.51,"B","ELIGIBILITY FOR VISIT",4)=""
^DD(409.51,"B","ENCOUNTER CONVERSION STATUS",9)=""
^DD(409.51,"B","OUTPATIENT ENCOUNTER",8)=""
^DD(409.51,"B","PROCEDURE 1",21)=""
^DD(409.51,"B","PROCEDURE 2",22)=""
^DD(409.51,"B","PROCEDURE 3",23)=""
^DD(409.51,"B","PROCEDURE 4",24)=""
^DD(409.51,"B","PROCEDURE 5",25)=""
^DD(409.51,"B","UNRESOLVED APPT TYPE REASON",6)=""
^DD(409.51,"GL",0,1,.01)=""
^DD(409.51,"GL",0,2,2)=""
^DD(409.51,"GL",0,3,3)=""
^DD(409.51,"GL",0,4,4)=""
^DD(409.51,"GL",0,5,5)=""
^DD(409.51,"GL",0,6,6)=""
^DD(409.51,"GL",0,7,7)=""
^DD(409.51,"GL",0,8,8)=""
^DD(409.51,"GL",0,9,9)=""
^DD(409.51,"GL",1,1,11)=""
^DD(409.51,"GL","PR",1,21)=""
^DD(409.51,"GL","PR",2,22)=""
^DD(409.51,"GL","PR",3,23)=""
^DD(409.51,"GL","PR",4,24)=""
^DD(409.51,"GL","PR",5,25)=""
^DD(409.51,"IX",.01)=""
^DD(409.51,"IX",4)=""
^DD(409.51,"IX",5)=""
^DD(409.51,"IX",11)=""
^DD(409.51,"RQ",5)=""
^DD(409.55,0)="FIELD^^.001^5"
^DD(409.55,0,"DDA")="N"
^DD(409.55,0,"DT")="3050419"
^DD(409.55,0,"IX","B",409.55,.01)=""
^DD(409.55,0,"IX","C",409.55,.02)=""
^DD(409.55,0,"IX","E",409.55,.04)=""
^DD(409.55,0,"NM","APPOINTMENT PFSS ACCOUNT REFERENCE")=""
^DD(409.55,0,"VR")="5.3"
^DD(409.55,0,"VRPK")="SD"
^DD(409.55,.001,0)="APPOINTMENT ENTRY^RNJ9,0I^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(409.55,.001,3)="Type a number between 1 and 999999999, 0 Decimal Digits"
^DD(409.55,.001,21,0)="^^1^1^3050419^"
^DD(409.55,.001,21,1,0)="This field is the unique record identifier for the appointment /  account number reference."
^DD(409.55,.001,23,0)="^^1^1^3050419^"
^DD(409.55,.001,23,1,0)="XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER"
^DD(409.55,.001,"DT")="3050419"
^DD(409.55,.01,0)="APPOINTMENT DATE/TIME^RD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(409.55,.01,1,0)="^.1"
^DD(409.55,.01,1,1,0)="409.55^B"
^DD(409.55,.01,1,1,1)="S ^SD(409.55,""B"",$E(X,1,30),DA)="""""
^DD(409.55,.01,1,1,2)="K ^SD(409.55,""B"",$E(X,1,30),DA)"
^DD(409.55,.01,3)="Enter the date/time for the scheduled appointment."
^DD(409.55,.01,4)="S %DT=""ESTX"" D HELP^%DTC"
^DD(409.55,.01,21,0)="^^1^1^3050419^"
^DD(409.55,.01,21,1,0)="This is the Date/Time of the scheduled appointment."
^DD(409.55,.01,"DT")="3050419"
^DD(409.55,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(409.55,.02,1,0)="^.1"
^DD(409.55,.02,1,1,0)="409.55^C"
^DD(409.55,.02,1,1,1)="S ^SD(409.55,""C"",$E(X,1,30),DA)="""""
^DD(409.55,.02,1,1,2)="K ^SD(409.55,""C"",$E(X,1,30),DA)"
^DD(409.55,.02,1,1,"DT")="3050419"
^DD(409.55,.02,3)="Select patient for this appointment reference."
^DD(409.55,.02,21,0)="^^1^1^3050419^"
^DD(409.55,.02,21,1,0)="Reference to Patient File (#2) for patient's appointment"
^DD(409.55,.02,"DT")="3050419"
^DD(409.55,.03,0)="CLINIC^RP44'^SC(^0;3^Q"
^DD(409.55,.03,3)="Enter clinic location for appointment."
^DD(409.55,.03,21,0)="^^1^1^3050419^"
^DD(409.55,.03,21,1,0)="This field is the pointer to the HOSPITAL LOCATION File (#44)"
^DD(409.55,.03,"DT")="3050531"
^DD(409.55,.04,0)="PFSS ACCOUNT REFERENCE^P375'I^IBBAA(375,^0;4^Q"
^DD(409.55,.04,.1)=""
^DD(409.55,.04,1,0)="^.1"
^DD(409.55,.04,1,1,0)="409.55^E"
^DD(409.55,.04,1,1,1)="S ^SD(409.55,""E"",$E(X,1,30),DA)="""""
^DD(409.55,.04,1,1,2)="K ^SD(409.55,""E"",$E(X,1,30),DA)"
^DD(409.55,.04,1,1,"%D",0)="^^2^2^3050419^"
^DD(409.55,.04,1,1,"%D",1,0)="Cross-reference to return appointment information for an account number"
^DD(409.55,.04,1,1,"%D",2,0)="reference."
^DD(409.55,.04,1,1,"DT")="3050419"
^DD(409.55,.04,3)="The PFSS ACCOUNT file reference must be set through the PFSS event driver"
^DD(409.55,.04,21,0)="^^3^3^3050602^"
^DD(409.55,.04,21,1,0)="This is the file reference to the PFSS ACCOUNT File (#375) which "
^DD(409.55,.04,21,2,0)="contains the IBB Account Number reference.  This is the reference to the "
^DD(409.55,.04,21,3,0)="account number returned from the external system."
^DD(409.55,.04,23,0)="^^1^1^3050419^"
^DD(409.55,.04,23,1,0)="XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER"
^DD(409.55,.04,"DT")="3050620"
^DD(409.55,"B","APPOINTMENT DATE/TIME",.01)=""
^DD(409.55,"B","APPOINTMENT ENTRY",.001)=""
^DD(409.55,"B","CLINIC",.03)=""
^DD(409.55,"B","PATIENT",.02)=""
^DD(409.55,"B","PFSS ACCOUNT REFERENCE",.04)=""
^DD(409.55,"GL",0,1,.01)=""
^DD(409.55,"GL",0,2,.02)=""
^DD(409.55,"GL",0,3,.03)=""
^DD(409.55,"GL",0,4,.04)=""
^DD(409.55,"IX",.01)=""
^DD(409.55,"IX",.02)=""
^DD(409.55,"IX",.04)=""
^DD(409.55,"RQ",.001)=""
^DD(409.55,"RQ",.01)=""
^DD(409.55,"RQ",.02)=""
^DD(409.55,"RQ",.03)=""
^DD(409.6,0)="FIELD^^3^9"
^DD(409.6,0,"DDA")="N"
^DD(409.6,0,"DT")="3040210"
^DD(409.6,0,"IX","AD",409.6,1)=""
^DD(409.6,0,"IX","B",409.6,.01)=""
^DD(409.6,0,"NM","PATIENT APPOINTMENT INFO LOG")=""
^DD(409.6,0,"VR")="5.3"
^DD(409.6,0,"VRPK")="SD"
^DD(409.6,.01,0)="RUN DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.6,.01,1,0)="^.1"
^DD(409.6,.01,1,1,0)="409.6^B"
^DD(409.6,.01,1,1,1)="S ^SDWL(409.6,""B"",$E(X,1,30),DA)="""""
^DD(409.6,.01,1,1,2)="K ^SDWL(409.6,""B"",$E(X,1,30),DA)"
^DD(409.6,.01,3)="Date the extract is run"
^DD(409.6,.01,21,0)="^^2^2^3040121^"
^DD(409.6,.01,21,1,0)="The date the extract started running at the site. Extracts are run as "
^DD(409.6,.01,21,2,0)="Taskman background jobs."
^DD(409.6,.01,23,0)="^.001^1^1^3040121^^"
^DD(409.6,.01,23,1,0)="This field is populated by the run routine."
^DD(409.6,.01,"DT")="3030924"
^DD(409.6,1,0)="TASK ID^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(409.6,1,1,0)="^.1"
^DD(409.6,1,1,1,0)="409.6^AD"
^DD(409.6,1,1,1,1)="S ^SDWL(409.6,""AD"",$E(X,1,30),DA)="""""
^DD(409.6,1,1,1,2)="K ^SDWL(409.6,""AD"",$E(X,1,30),DA)"
^DD(409.6,1,1,1,"DT")="3030717"
^DD(409.6,1,3)="Taskman Task ID"
^DD(409.6,1,21,0)="^^2^2^3030924^"
^DD(409.6,1,21,1,0)="The Taskman task ID number.  When the extract is run the Taskman ID of "
^DD(409.6,1,21,2,0)="the process is stored in this field."
^DD(409.6,1,"DT")="3030924"
^DD(409.6,1.1,0)="LAST BATCH # OF THIS RUN^NJ13,0^^0;3^K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.6,1.1,3)="Type a Number between 0 and 9999999999999, 0 Decimal Digits"
^DD(409.6,1.1,21,0)="^.001^3^3^3040121^^^^"
^DD(409.6,1.1,21,1,0)="This is the the Message Conrol ID of MSH segment in the latest created "
^DD(409.6,1.1,21,2,0)="HL7 batch. When the extract is run an HL7 batch is created that may "
^DD(409.6,1.1,21,3,0)="contain up to 5000 individual messages."
^DD(409.6,1.1,"DT")="3040121"
^DD(409.6,1.2,0)="LAST SCANNED DATE^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.6,1.2,3)="(No range limit on date)"
^DD(409.6,1.2,21,0)="^^2^2^3040121^"
^DD(409.6,1.2,21,1,0)="This field represents an appointment creation date that was completely "
^DD(409.6,1.2,21,2,0)="scanned as the last one with this transmission."
^DD(409.6,1.2,"DT")="3040121"
^DD(409.6,1.3,0)="# OF APPOINTMENTS^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.6,1.3,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(409.6,1.3,21,0)="^^2^2^3040121^"
^DD(409.6,1.3,21,1,0)="This is the number of appointments corresponding to individual MSG "
^DD(409.6,1.3,21,2,0)="segments sent with this transmission."
^DD(409.6,1.3,"DT")="3040121"
^DD(409.6,1.4,0)="# OF BATCHES^RNJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.6,1.4,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(409.6,1.4,21,0)="^.001^1^1^3040121^^"
^DD(409.6,1.4,21,1,0)="This is the number of batches generated during the run."
^DD(409.6,1.4,23,0)="^^1^1^3040121^"
^DD(409.6,1.4,23,1,0)="Batches are generated with up to 5000 messages per batch."
^DD(409.6,1.4,"DT")="3040121"
^DD(409.6,1.5,0)="TRANSMISSION FINISHED^RD^^0;7^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.6,1.5,3)="This is a date/time when generating of all batches is complete."
^DD(409.6,1.5,"DT")="3040121"
^DD(409.6,2,0)="PATIENT^409.69PA^^1;0"
^DD(409.6,2,21,0)="^.001^2^2^3040126^^^^"
^DD(409.6,2,21,1,0)="The multiple field that records key elements of the patient appointment"
^DD(409.6,2,21,2,0)="extract."
^DD(409.6,2,"DT")="3031021"
^DD(409.6,3,0)="BATCH TRACKING^409.7A^^2;0"
^DD(409.6,"B","# OF APPOINTMENTS",1.3)=""
^DD(409.6,"B","# OF BATCHES",1.4)=""
^DD(409.6,"B","BATCH TRACKING",3)=""
^DD(409.6,"B","LAST BATCH # OF THIS RUN",1.1)=""
^DD(409.6,"B","LAST SCANNED DATE",1.2)=""
^DD(409.6,"B","PATIENT",2)=""
^DD(409.6,"B","RUN DATE",.01)=""
^DD(409.6,"B","TASK ID",1)=""
^DD(409.6,"B","TRANSMISSION FINISHED",1.5)=""
^DD(409.6,"GL",0,1,.01)=""
^DD(409.6,"GL",0,2,1)=""
^DD(409.6,"GL",0,3,1.1)=""
^DD(409.6,"GL",0,4,1.2)=""
^DD(409.6,"GL",0,5,1.3)=""
^DD(409.6,"GL",0,6,1.4)=""
^DD(409.6,"GL",0,7,1.5)=""
^DD(409.6,"GL",1,0,2)=""
^DD(409.6,"GL",2,0,3)=""
^DD(409.6,"IX",.01)=""
^DD(409.6,"IX",1)=""
^DD(409.6,"RQ",.01)=""
^DD(409.6,"RQ",1.2)=""
^DD(409.6,"RQ",1.4)=""
^DD(409.6,"RQ",1.5)=""
^DD(409.6,"SB",409.69,2)=""
^DD(409.6,"SB",409.7,3)=""
^DD(409.61,0)="FIELD^^200^23"
^DD(409.61,0,"DDA")="N"
^DD(409.61,0,"DT")="2930331"
^DD(409.61,0,"IX","B",409.61,.01)=""
^DD(409.61,0,"NM","LIST TEMPLATE")=""
^DD(409.61,0,"VR")="1"
^DD(409.61,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X I $D(X),$D(^SD(409.61,""B"",X)) K X W !,""Template name already exists."""
^DD(409.61,.01,1,0)="^.1"
^DD(409.61,.01,1,1,0)="409.61^B"
^DD(409.61,.01,1,1,1)="S ^SD(409.61,""B"",$E(X,1,30),DA)="""""
^DD(409.61,.01,1,1,2)="K ^SD(409.61,""B"",$E(X,1,30),DA)"
^DD(409.61,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(409.61,.01,10)="APPLICATION DEVELOPER"
^DD(409.61,.01,21,0)="^^3^3^2920219^^^"
^DD(409.61,.01,21,1,0)="This field contains the name of the list."
^DD(409.61,.01,21,2,0)=""
^DD(409.61,.01,21,3,0)="The list name should be namespaced and unique."
^DD(409.61,.01,23,0)="^^7^7^2920302^^^^"
^DD(409.61,.01,23,1,0)="The ""B"" cross reference of this field is used by the List"
^DD(409.61,.01,23,2,0)="Manager when it is called by the application. For example,"
^DD(409.61,.01,23,3,0)="the application would call the List Manager as follows:"
^DD(409.61,.01,23,4,0)=""
^DD(409.61,.01,23,5,0)="D EN^VALM(""SDAM APPOINTMENT MANAGEMENT"")"
^DD(409.61,.01,23,6,0)=""
^DD(409.61,.01,23,7,0)="The value passed in the actual list is used to find the LIST TEMPLATE entry."
^DD(409.61,.01,"DT")="2920224"
^DD(409.61,.02,0)="TYPE OF LIST^S^1:PROTOCOL;2:DISPLAY;3:SELECT (NOT AVAILABLE);^0;2^Q"
^DD(409.61,.02,10)="APPLICATION DEVELOPER"
^DD(409.61,.02,11,0)="^.2LAP"
^DD(409.61,.02,21,0)="^^17^17^2920219^^^"
^DD(409.61,.02,21,1,0)=" This field indicates the type of list."
^DD(409.61,.02,21,2,0)=""
^DD(409.61,.02,21,3,0)=" A 'protocol' list will cause the List Manager to"
^DD(409.61,.02,21,4,0)=" use the PROTOCOL entered in the 'PROTOCOL MENU'"
^DD(409.61,.02,21,5,0)=" field."
^DD(409.61,.02,21,6,0)=""
^DD(409.61,.02,21,7,0)=" A 'display' list will use the standard VALM DISPLAY protocol"
^DD(409.61,.02,21,8,0)=" supplied by the List Manager.  This protocol allows"
^DD(409.61,.02,21,9,0)=" user to view or scroll though the list.  The user"
^DD(409.61,.02,21,10,0)=" will be able to use the standard 'next screen',"
^DD(409.61,.02,21,11,0)=" 'previous screen',etc. actions."
^DD(409.61,.02,21,12,0)=""
^DD(409.61,.02,21,13,0)=" A 'select' list is similar to the 'display' list but"
^DD(409.61,.02,21,14,0)=" will also allow the user to 'select' entries.  The"
^DD(409.61,.02,21,15,0)=" application will then use the selected entries in its"
^DD(409.61,.02,21,16,0)=" processing  This type of list is not currently available."
^DD(409.61,.02,21,17,0)=""
^DD(409.61,.02,"DT")="2920131"
^DD(409.61,.03,0)="LEFT MARGIN^NJ3,0^^0;3^K:+X'=X!(X>132)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.61,.03,3)="Enter a column number from 1 to 132."
^DD(409.61,.03,10)="APPLICATION DEVELOPER"
^DD(409.61,.03,21,0)="^^4^4^2920303^^^^"
^DD(409.61,.03,21,1,0)="This field contains the left column of the scrolling region where the"
^DD(409.61,.03,21,2,0)="list will be displayed."
^DD(409.61,.03,21,3,0)=""
^DD(409.61,.03,21,4,0)="Currently(11/91), this parameter is not used."
^DD(409.61,.03,23,0)="^^1^1^2920219^^"
^DD(409.61,.03,23,1,0)="This attribute is not currently used by the List Manager utility."
^DD(409.61,.03,"DT")="2911125"
^DD(409.61,.04,0)="RIGHT MARGIN^NJ3,0^^0;4^K:+X'=X!(X>240)!(X<80)!(X?.E1"".""1N.N) X"
^DD(409.61,.04,3)="Type a Number between 80 and 240, 0 Decimal Digits"
^DD(409.61,.04,10)="APPLICATION DEVELOPER"
^DD(409.61,.04,21,0)="^^2^2^2930118^"
^DD(409.61,.04,21,1,0)="This field indicates the maximum number of characters a row can"
^DD(409.61,.04,21,2,0)="contain."
^DD(409.61,.04,21,3,0)=""
^DD(409.61,.04,21,4,0)="Currently(11/91), this parameter is not used."
^DD(409.61,.04,21,5,0)="EE"
^DD(409.61,.04,23,0)="^^1^1^2921212^^^^"
^DD(409.61,.04,23,1,0)="This attribute is not currently used by the List Manager utility."
^DD(409.61,.04,"DT")="2921118"
^DD(409.61,.05,0)="TOP MARGIN^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<2)!(X?.E1"".""1N.N) X"
^DD(409.61,.05,3)="Type a Number between 2 and 99, 0 Decimal Digits"
^DD(409.61,.05,10)="APPLICATION DEVELOPER"
^DD(409.61,.05,21,0)="^^2^2^2911126^^^^"
^DD(409.61,.05,21,1,0)="This field contains the number of the top row of the scrolling region"
^DD(409.61,.05,21,2,0)="where the list will be displayed."
^DD(409.61,.05,23,0)="^^3^3^2920219^^"
^DD(409.61,.05,23,1,0)="The List Manager will store this field's data in the following local"
^DD(409.61,.05,23,2,0)="variable:"
^DD(409.61,.05,23,3,0)="              VALM(""TM"")"
^DD(409.61,.05,"DT")="2920309"
^DD(409.61,.06,0)="BOTTOM MARGIN^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.61,.06,3)="Enter a row number from 1 to 99."
^DD(409.61,.06,10)="APPLICATION DEVELOPER"
^DD(409.61,.06,21,0)="^^2^2^2911126^^"
^DD(409.61,.06,21,1,0)="This field contains the number of the bottom row of the scrolling region"
^DD(409.61,.06,21,2,0)="where the list will be displayed."
^DD(409.61,.06,23,0)="^^3^3^2920219^^"
^DD(409.61,.06,23,1,0)="The List Manager will store this field's data in the following local"
^DD(409.61,.06,23,2,0)="variable:"
^DD(409.61,.06,23,3,0)="              VALM(""BM"")"
^DD(409.61,.06,"DT")="2911125"
^DD(409.61,.07,0)="OK TO TRANSPORT?^S^0:NOT OK;1:OK;^0;7^Q"
^DD(409.61,.07,21,0)="^^2^2^2920302^^^"
^DD(409.61,.07,21,1,0)="This field indicates to the transport utility if this"
^DD(409.61,.07,21,2,0)="list template should be distributed."
^DD(409.61,.07,"DT")="2920225"
^DD(409.61,.08,0)="USE CURSOR CONTROL^S^0:NO;1:YES;^0;8^Q"
^DD(409.61,.08,10)="APPLICATION DEVELOPER OR SITE IRM STAFF"
^DD(409.61,.08,21,0)="^^14^14^2920403^^^^"
^DD(409.61,.08,21,1,0)="This field indicates whether the cursor positioning and character"
^DD(409.61,.08,21,2,0)="enhancements capabilities of the device should be used."
^DD(409.61,.08,21,3,0)=""
^DD(409.61,.08,21,4,0)="If set to 'NO', then lists will be presented in scrolling mode. For"
^DD(409.61,.08,21,5,0)="some actions, like 'up one entry', this would increase use"
^DD(409.61,.08,21,6,0)="of system resources."
^DD(409.61,.08,21,7,0)=""
^DD(409.61,.08,21,8,0)="If set to 'YES', then list will be presented using the terminal"
^DD(409.61,.08,21,9,0)="type's capabilities."
^DD(409.61,.08,21,10,0)=""
^DD(409.61,.08,21,11,0)=""
^DD(409.61,.08,21,12,0)="However, if the user signs on to a device that is not adequately"
^DD(409.61,.08,21,13,0)="defined in the TERMINAL TYPE file, then the list will automatically"
^DD(409.61,.08,21,14,0)="display in scrolling mode."
^DD(409.61,.08,23,0)="^^21^21^2920304^^^^"
^DD(409.61,.08,23,1,0)="The List Manager will store this field's data in the following local"
^DD(409.61,.08,23,2,0)="variable:"
^DD(409.61,.08,23,3,0)="              VALMCC"
^DD(409.61,.08,23,4,0)=""
^DD(409.61,.08,23,5,0)="The terminal type attributes that must be defined for a 'yes'"
^DD(409.61,.08,23,6,0)="indication to take affect are the following:"
^DD(409.61,.08,23,7,0)=""
^DD(409.61,.08,23,8,0)="         o  INSERT LINE"
^DD(409.61,.08,23,9,0)="         o  SET TOP & BOTTOM MARGINS"
^DD(409.61,.08,23,10,0)="         o  SAVE CURSOR"
^DD(409.61,.08,23,11,0)="         o  RESTORE CURSOR"
^DD(409.61,.08,23,12,0)="         o  ERASE TO END OF PAGE"
^DD(409.61,.08,23,13,0)="         o  HIGH INTENSITY (BOLD)"
^DD(409.61,.08,23,14,0)="         o  NORMAL INTENSITY (RESET)"
^DD(409.61,.08,23,15,0)="         o  UNDERLINE ON"
^DD(409.61,.08,23,16,0)="         o  UNDERLINE OFF"
^DD(409.61,.08,23,17,0)="         o  REVERSE VIDEO ON"
^DD(409.61,.08,23,18,0)="         o  REVERSE VIDEO OFF"
^DD(409.61,.08,23,19,0)=""
^DD(409.61,.08,23,20,0)="If any of these attributes are not defined then the List Manager"
^DD(409.61,.08,23,21,0)="will automatically enter into scrolling mode."
^DD(409.61,.08,"DT")="2911017"
^DD(409.61,.09,0)="ENTITY NAME^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(409.61,.09,3)="Answer must be 1-30 characters in length."
^DD(409.61,.09,10)="APPLICATION DEVELOPER"
^DD(409.61,.09,21,0)="^^7^7^2911126^^"
^DD(409.61,.09,21,1,0)="This field contains the term that will be displayed to the"
^DD(409.61,.09,21,2,0)="user that best describes the items in the list.  The term"
^DD(409.61,.09,21,3,0)="will be used if the developer wishes to use the generic"
^DD(409.61,.09,21,4,0)="'select' action.  For example, ""Select Appointment(s):"""
^DD(409.61,.09,21,5,0)="could be displayed and the entity is 'Appointment'."
^DD(409.61,.09,21,6,0)=""
^DD(409.61,.09,21,7,0)="The term will be used in other displays as well."
^DD(409.61,.09,23,0)="^^3^3^2920219^^"
^DD(409.61,.09,23,1,0)="The List Manager will store this field's data in the following local"
^DD(409.61,.09,23,2,0)="variable:"
^DD(409.61,.09,23,3,0)="              VALM(""ENTITY"")"
^DD(409.61,.09,"DT")="2911105"
^DD(409.61,.1,0)="PROTOCOL MENU^FX^^0;10^K:$L(X)>63!($L(X)<3) X I $D(X) S DIC(0)=""EQM"",DIC=""^ORD(101,"" D ^DIC K DIC K:Y<0 X I $D(X) S X=$P(Y,U,2)"
^DD(409.61,.1,3)=""
^DD(409.61,.1,10)="APPLICATION DEVELOPER"
^DD(409.61,.1,21,0)="^^5^5^2920131^^"
^DD(409.61,.1,21,1,0)="This field contains the name of the PROTOCOL that will"
^DD(409.61,.1,21,2,0)="be used by the List Manager if the the TYPE OF LIST"
^DD(409.61,.1,21,3,0)="is 'protocol'."
^DD(409.61,.1,21,4,0)=""
^DD(409.61,.1,21,5,0)="This field is not used for 'display' or 'select' types."
^DD(409.61,.1,23,0)="^^1^1^2920219^^"
^DD(409.61,.1,23,1,0)="Note: This protocol is stored as a free-text pointer value."
^DD(409.61,.1,"DT")="2921205"
^DD(409.61,.11,0)="SCREEN TITLE^F^^0;11^K:$L(X)>30!($L(X)<2) X"
^DD(409.61,.11,3)="Answer must be 2-30 characters in length."
^DD(409.61,.11,21,0)="^^2^2^2920219^^"
^DD(409.61,.11,21,1,0)="This field contains the text that will be display/printed"
^DD(409.61,.11,21,2,0)="in the upper left corner of the screen display."
^DD(409.61,.11,23,0)="^^3^3^2920219^"
^DD(409.61,.11,23,1,0)="The List Manager will store this field's data in the following local"
^DD(409.61,.11,23,2,0)="variable:"
^DD(409.61,.11,23,3,0)="              VALM(""TITLE"")"
^DD(409.61,.11,"DT")="2920113"
^DD(409.61,.12,0)="ALLOWABLE NUMBER OF ACTIONS^NJ1,0^^0;12^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.61,.12,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(409.61,.12,21,0)="^^11^11^2920529^^^"
^DD(409.61,.12,21,1,0)="This field indicates the number of actions a user can select"
^DD(409.61,.12,21,2,0)="at one time."
^DD(409.61,.12,21,3,0)=""
^DD(409.61,.12,21,4,0)="For example, if this parameter is set to 1 then the user can"
^DD(409.61,.12,21,5,0)="only enter one action..."
^DD(409.61,.12,21,6,0)="    Select Action: NX"
^DD(409.61,.12,21,7,0)=""
^DD(409.61,.12,21,8,0)="...and the following would not be allowed:"
^DD(409.61,.12,21,9,0)="    Select Action: NX,EP"
^DD(409.61,.12,21,10,0)=""
^DD(409.61,.12,21,11,0)="If this parameter is not entered then the system defaults to 1."
^DD(409.61,.12,23,0)="^^9^9^2920529^"
^DD(409.61,.12,23,1,0)="This field could be very important to an application.  If an"
^DD(409.61,.12,23,2,0)="action causes a change in the list's entries then following"
^DD(409.61,.12,23,3,0)="actions could be affected. The user may think that an entry number"
^DD(409.61,.12,23,4,0)="corresponds to a certain entry, when in fact the list and the"
^DD(409.61,.12,23,5,0)="numbering may have been changed."
^DD(409.61,.12,23,6,0)=""
^DD(409.61,.12,23,7,0)=""
^DD(409.61,.12,23,8,0)="Setting the parameter to 1 is the safest and is the default if the"
^DD(409.61,.12,23,9,0)="field is blank."
^DD(409.61,.12,"DT")="2920529"
^DD(409.61,.13,0)="DATE RANGE LIMIT^NJ3,0^^0;13^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.61,.13,3)="Select the number between 1 and 999."
^DD(409.61,.13,10)="APPLICATION DEVELOPER"
^DD(409.61,.13,21,0)="^^5^5^2911126^^^"
^DD(409.61,.13,21,1,0)="This field contains the maximum number of days that can be specified by"
^DD(409.61,.13,21,2,0)="the user while entering a date range."
^DD(409.61,.13,21,3,0)=""
^DD(409.61,.13,21,4,0)="This parameter is only used if the application calls the List"
^DD(409.61,.13,21,5,0)="Manager's date range selection utility."
^DD(409.61,.13,23,0)="^^3^3^2920302^^^^"
^DD(409.61,.13,23,1,0)="The List Manager will store this field's data in the following global"
^DD(409.61,.13,23,2,0)="variable:"
^DD(409.61,.13,23,3,0)="              ^TMP(""VALM DATA"",$J,VALMEVL,""DAYS"")"
^DD(409.61,.13,"DT")="2911101"
^DD(409.61,.14,0)="AUTOMATIC DEFAULTS^S^0:NO;1:YES;^0;14^Q"
^DD(409.61,.14,21,0)="^^18^18^2930414^"
^DD(409.61,.14,21,1,0)="This field indicates whether List Manager should always supply a default"
^DD(409.61,.14,21,2,0)="action at the 'Select' prompt for 'Protocol' type List Templates."
^DD(409.61,.14,21,3,0)=" "
^DD(409.61,.14,21,4,0)=" "
^DD(409.61,.14,21,5,0)="If set to 'NO', a default will not be provided automatically. It will"
^DD(409.61,.14,21,6,0)="be the developer's responsibility to indicate a default, if desired."
^DD(409.61,.14,21,7,0)="This default can be indicated by setting XQORM(""B"") as part of the protocol"
^DD(409.61,.14,21,8,0)="menu's HEADER code. (i.e. D SHOW^VALM S XQORM(""B"")=""Your action"")"
^DD(409.61,.14,21,9,0)=" "
^DD(409.61,.14,21,10,0)=" "
^DD(409.61,.14,21,11,0)="This parameter only is valid for 'Protocol' type List Templates."
^DD(409.61,.14,21,12,0)=" "
^DD(409.61,.14,21,13,0)=" "
^DD(409.61,.14,21,14,0)="If the parameter is set to 'YES' or is blank, a default will be provided"
^DD(409.61,.14,21,15,0)="by List Manager. If the current screen contains the last line in the"
^DD(409.61,.14,21,16,0)="list, then the default will be 'Quit'. Otherwise, it will be ""Next"
^DD(409.61,.14,21,17,0)="Screen"". However, as discussed above, the developer can override"
^DD(409.61,.14,21,18,0)="this default by setting XQORM(""B"")."
^DD(409.61,.14,"DT")="2930331"
^DD(409.61,1.01,0)="PRINT LIST PROTOCOL^FX^^1;1^K:$L(X)>63!($L(X)<3) X I $D(X) S DIC(0)=""EQM"",DIC=""^ORD(101,"" D ^DIC K DIC K:Y<0 X I $D(X) S X=$P(Y,U,2)"
^DD(409.61,1.01,3)="Answer must be 3-63 characters in length."
^DD(409.61,1.01,21,0)="^^6^6^2930118^"
^DD(409.61,1.01,21,1,0)=""
^DD(409.61,1.01,21,2,0)="This field contains the name of the protocol that will be called when the"
^DD(409.61,1.01,21,3,0)="user selects the generic 'Print List' action."
^DD(409.61,1.01,21,4,0)=""
^DD(409.61,1.01,21,5,0)="Normally, this field is blank and the generic printing action is"
^DD(409.61,1.01,21,6,0)="sufficient."
^DD(409.61,1.01,"DT")="2921205"
^DD(409.61,1.02,0)="HIDDEN ACTION MENU^FX^^1;2^K:$L(X)>63!($L(X)<3) X I $D(X) S DIC(0)=""EQM"",DIC=""^ORD(101,"" D ^DIC K DIC K:Y<0 X I $D(X) S X=$P(Y,U,2)"
^DD(409.61,1.02,3)="Answer must be 3-63 characters in length."
^DD(409.61,1.02,21,0)="^^7^7^2930118^"
^DD(409.61,1.02,21,1,0)=""
^DD(409.61,1.02,21,2,0)="This field contains the name of the protocol menu that will be used by"
^DD(409.61,1.02,21,3,0)="the List Manager for the 'hidden' actions available to the user."
^DD(409.61,1.02,21,4,0)=""
^DD(409.61,1.02,21,5,0)="Normally, the application enters the 'VALM HIDDEN ACTIONS' menu in this"
^DD(409.61,1.02,21,6,0)="field. However, there maybe applications that would require a different"
^DD(409.61,1.02,21,7,0)="set of 'hidden' actions."
^DD(409.61,1.02,"DT")="2921205"
^DD(409.61,100,0)="HEADER CODE^K^^HDR;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.61,100,3)="This is Standard MUMPS code."
^DD(409.61,100,9)="@"
^DD(409.61,100,10)="APPLICATION DEVELOPER"
^DD(409.61,100,21,0)="^^2^2^2911126^^"
^DD(409.61,100,21,1,0)="This MUMPS field contains the code that the List Manager will"
^DD(409.61,100,21,2,0)="execute to print the application specific screen header."
^DD(409.61,100,23,0)="^^3^3^2920219^^^^"
^DD(409.61,100,23,1,0)="The List Manager will store this field's data in the following local"
^DD(409.61,100,23,2,0)="variable:"
^DD(409.61,100,23,3,0)="              VALM(""HDR"")"
^DD(409.61,100,"DT")="2911015"
^DD(409.61,102,0)="EXPAND CODE^K^^EXP;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.61,102,3)="This is Standard MUMPS code."
^DD(409.61,102,9)="@"
^DD(409.61,102,10)="APPLICATION DEVELOPER"
^DD(409.61,102,21,0)="^^2^2^2920303^^^^"
^DD(409.61,102,21,1,0)="This field contains the MUMPS code that displays a detail"
^DD(409.61,102,21,2,0)="inquiry-type report/screen for a specific entry in the list."
^DD(409.61,102,23,0)="^^3^3^2920303^^^^"
^DD(409.61,102,23,1,0)="The List Manager will store this field's data in the following global"
^DD(409.61,102,23,2,0)="variable:"
^DD(409.61,102,23,3,0)="              ^TMP(""VALM DATA"",$J,VALMEVL,""EXP"")"
^DD(409.61,102,"DT")="2911016"
^DD(409.61,103,0)="HELP CODE^K^^HLP;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.61,103,3)="This is Standard MUMPS code."
^DD(409.61,103,9)="@"
^DD(409.61,103,10)="APPLICATION DEVELOPER"
^DD(409.61,103,21,0)="^^7^7^2920303^^^^"
^DD(409.61,103,21,1,0)="This field contains the MUMPS code for the help that will"
^DD(409.61,103,21,2,0)="appear when the user types '?' at the 'Select Action:'"
^DD(409.61,103,21,3,0)="prompt."
^DD(409.61,103,21,4,0)=""
^DD(409.61,103,21,5,0)="This field is optional.  If not defined, the normal"
^DD(409.61,103,21,6,0)="help given by the XQOR* driver will take affect."
^DD(409.61,103,21,7,0)=""
^DD(409.61,103,23,0)="^^3^3^2920302^^^"
^DD(409.61,103,23,1,0)="The List Manager will store this field's data in the following global"
^DD(409.61,103,23,2,0)="variable:"
^DD(409.61,103,23,3,0)="              ^TMP(""VALM DATA"",$J,VALMEVL,""HLP"")"
^DD(409.61,103,"DT")="2911016"
^DD(409.61,105,0)="EXIT CODE^K^^FNL;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.61,105,3)="This is Standard MUMPS code."
^DD(409.61,105,9)="@"
^DD(409.61,105,10)="APPLICATION DEVELOPER"
^DD(409.61,105,21,0)="^^10^10^2920303^^^^"
^DD(409.61,105,21,1,0)="This field contains MUMPS logic that will be executed"
^DD(409.61,105,21,2,0)="by the List Manager when the user exits the list."
^DD(409.61,105,21,3,0)=""
^DD(409.61,105,21,4,0)="The code is usually used to clean up the partiton and"
^DD(409.61,105,21,5,0)="kill any temporary globals used during the List Manager call."
^DD(409.61,105,21,6,0)=""
^DD(409.61,105,21,7,0)="After this code is executed, the List Manager will clean"
^DD(409.61,105,21,8,0)="up the variables and temporary globals it set."
^DD(409.61,105,21,9,0)=""
^DD(409.61,105,21,10,0)="This field is optional."
^DD(409.61,105,23,0)="^^3^3^2920302^^"
^DD(409.61,105,23,1,0)="The List Manager will store this field's data in the following global"
^DD(409.61,105,23,2,0)="variable:"
^DD(409.61,105,23,3,0)="              ^TMP(""VALM DATA"",$J,VALMEVL,""FNL"")"
^DD(409.61,105,"DT")="2911125"
^DD(409.61,106,0)="ENTRY CODE^K^^INIT;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.61,106,.1)="INITIALIZATION CODE"
^DD(409.61,106,3)="This is Standard MUMPS code."
^DD(409.61,106,10)="APPLICATION DEVELOPER"
^DD(409.61,106,21,0)="^^7^7^2920219^^^"
^DD(409.61,106,21,1,0)="This field contains MUMPS code that is executed when then List"
^DD(409.61,106,21,2,0)="Manager is called."
^DD(409.61,106,21,3,0)=""
^DD(409.61,106,21,4,0)="This code is usually used by the application to initialize"
^DD(409.61,106,21,5,0)="variables."
^DD(409.61,106,21,6,0)=""
^DD(409.61,106,21,7,0)="This field is optional."
^DD(409.61,106,23,0)="^^3^3^2920302^^^"
^DD(409.61,106,23,1,0)="The List Manager will store this field's data in the following global"
^DD(409.61,106,23,2,0)="variable:"
^DD(409.61,106,23,3,0)="              ^TMP(""VALM DATA"",$J,VALMEVL,""INIT"")"
^DD(409.61,106,"DT")="2911125"
^DD(409.61,107,0)="ARRAY NAME^F^^ARRAY;E1,50^K:$L(X)>50!($L(X)<1)!'(X?1"" "".E) X"
^DD(409.61,107,3)="Enter the name of the array that will contain the list of items for display."
^DD(409.61,107,10)="APPLICATION DEVELOPER"
^DD(409.61,107,21,0)="^^8^8^2920219^^^^"
^DD(409.61,107,21,1,0)="This field contains the name of the array that holds the"
^DD(409.61,107,21,2,0)="list of items to be displayed."
^DD(409.61,107,21,3,0)=""
^DD(409.61,107,21,4,0)="The array name must be preceded by a space character.  This is"
^DD(409.61,107,21,5,0)="needed to allow global specifications. (File Manager will"
^DD(409.61,107,21,6,0)="not allow '^' as the first character.)"
^DD(409.61,107,21,7,0)=""
^DD(409.61,107,21,8,0)="The array can be either a local or global variable."
^DD(409.61,107,23,0)="^^3^3^2920219^^"
^DD(409.61,107,23,1,0)="The List Manager will store is field's data in the following local"
^DD(409.61,107,23,2,0)="variable:"
^DD(409.61,107,23,3,0)="              VALMAR"
^DD(409.61,107,"DT")="2911125"
^DD(409.61,200,0)="CAPTION LINE COLUMNS^409.621^^COL;0"
^DD(409.61,200,10)="APPLICATION DEVELOPERS"
^DD(409.61,200,21,0)="^^19^19^2920219^^^^"
^DD(409.61,200,21,1,0)="This multiple field contains column definitions for"
^DD(409.61,200,21,2,0)="the data displayed in the list.  Adding entries to"
^DD(409.61,200,21,3,0)="this multiple is optional."
^DD(409.61,200,21,4,0)=""
^DD(409.61,200,21,5,0)="The column parameters are used when the List Manager"
^DD(409.61,200,21,6,0)="writes the line indicating the top of the list's"
^DD(409.61,200,21,7,0)="scrolling region."
^DD(409.61,200,21,8,0)=""
^DD(409.61,200,21,9,0)="If no entries are added then only a line is written"
^DD(409.61,200,21,10,0)="with no captions."
^DD(409.61,200,21,11,0)=""
^DD(409.61,200,21,12,0)=""
^DD(409.61,200,21,13,0)="The parameters are also used by special function calls"
^DD(409.61,200,21,14,0)="that an application is allowed to used.  For example,"
^DD(409.61,200,21,15,0)="there is a function at FLDUPD^VALM1 that can be used"
^DD(409.61,200,21,16,0)="to update the screen. The function will change the value"
^DD(409.61,200,21,17,0)="of a column for a particular entry."
^DD(409.61,200,21,18,0)=""
^DD(409.61,200,21,19,0)="[$$FLDUPD^VALM1(<string>,<field name>,<line number>)]"
^DD(409.61,200,23,0)="^^3^3^2920219^^^"
^DD(409.61,200,23,1,0)="The List Manager will store is field's data in the following local"
^DD(409.61,200,23,2,0)="variable:"
^DD(409.61,200,23,3,0)="     VALMDDF(<column name>)= col name ^ col position ^ col width ^ caption"
^DD(409.61,200,"DT")="2911125"
^DD(409.61,"B","ALLOWABLE NUMBER OF ACTIONS",.12)=""
^DD(409.61,"B","ARRAY NAME",107)=""
^DD(409.61,"B","AUTOMATIC DEFAULTS",.14)=""
^DD(409.61,"B","BOTTOM MARGIN",.06)=""
^DD(409.61,"B","CAPTION LINE COLUMNS",200)=""
^DD(409.61,"B","DATE RANGE LIMIT",.13)=""
^DD(409.61,"B","ENTITY NAME",.09)=""
^DD(409.61,"B","ENTRY CODE",106)=""
^DD(409.61,"B","EXIT CODE",105)=""
^DD(409.61,"B","EXPAND CODE",102)=""
^DD(409.61,"B","HEADER CODE",100)=""
^DD(409.61,"B","HELP CODE",103)=""
^DD(409.61,"B","HIDDEN ACTION MENU",1.02)=""
^DD(409.61,"B","INITIALIZATION CODE",106)="1"
^DD(409.61,"B","LEFT MARGIN",.03)=""
^DD(409.61,"B","NAME",.01)=""
^DD(409.61,"B","OK TO TRANSPORT?",.07)=""
^DD(409.61,"B","PRINT LIST PROTOCOL",1.01)=""
^DD(409.61,"B","PROTOCOL MENU",.1)=""
^DD(409.61,"B","RIGHT MARGIN",.04)=""
^DD(409.61,"B","SCREEN TITLE",.11)=""
^DD(409.61,"B","TOP MARGIN",.05)=""
^DD(409.61,"B","TYPE OF LIST",.02)=""
^DD(409.61,"B","USE CURSOR CONTROL",.08)=""
^DD(409.61,"GL",0,1,.01)=""
^DD(409.61,"GL",0,2,.02)=""
^DD(409.61,"GL",0,3,.03)=""
^DD(409.61,"GL",0,4,.04)=""
^DD(409.61,"GL",0,5,.05)=""
^DD(409.61,"GL",0,6,.06)=""
^DD(409.61,"GL",0,7,.07)=""
^DD(409.61,"GL",0,8,.08)=""
^DD(409.61,"GL",0,9,.09)=""
^DD(409.61,"GL",0,10,.1)=""
^DD(409.61,"GL",0,11,.11)=""
^DD(409.61,"GL",0,12,.12)=""
^DD(409.61,"GL",0,13,.13)=""
^DD(409.61,"GL",0,14,.14)=""
^DD(409.61,"GL",1,1,1.01)=""
^DD(409.61,"GL",1,2,1.02)=""
^DD(409.61,"GL","ARRAY","E1,50",107)=""
^DD(409.61,"GL","COL",0,200)=""
^DD(409.61,"GL","EXP","E1,245",102)=""
^DD(409.61,"GL","FNL","E1,245",105)=""
^DD(409.61,"GL","HDR","E1,245",100)=""
^DD(409.61,"GL","HLP","E1,245",103)=""
^DD(409.61,"GL","INIT","E1,245",106)=""
^DD(409.61,"IX",.01)=""
^DD(409.61,"RQ",.01)=""
^DD(409.61,"SB",409.621,200)=""
^DD(409.62,0)="FIELD^^1^3"
^DD(409.62,0,"DDA")="N"
^DD(409.62,0,"DT")="2920123"
^DD(409.62,0,"IX","B",409.62,.01)=""
^DD(409.62,0,"NM","APPOINTMENT GROUP")=""
^DD(409.62,0,"PT",409.636,.01)=""
^DD(409.62,0,"VR")="5.3"
^DD(409.62,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(409.62,.01,1,0)="^.1"
^DD(409.62,.01,1,1,0)="409.62^B"
^DD(409.62,.01,1,1,1)="S ^SD(409.62,""B"",$E(X,1,30),DA)="""""
^DD(409.62,.01,1,1,2)="K ^SD(409.62,""B"",$E(X,1,30),DA)"
^DD(409.62,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(409.62,.01,21,0)="^^1^1^2920219^^"
^DD(409.62,.01,21,1,0)="This field contains the name of the appointment group."
^DD(409.62,.01,"DEL",1,0)="I 1 W *7,!?5,""o  Deleting entries from this file is prohibited"""
^DD(409.62,.01,"LAYGO",1,0)="W *7,!?5,""o  Adding entries to this file is prohibited??"" I 0"
^DD(409.62,.02,0)="TITLE^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(409.62,.02,3)="Answer must be 1-40 characters in length."
^DD(409.62,.02,21,0)="^^4^4^2920303^^^"
^DD(409.62,.02,21,1,0)="This field contains the free-text title for the group. The"
^DD(409.62,.02,21,2,0)="title is used as part of the header in the 'Appointment"
^DD(409.62,.02,21,3,0)="Management' option screen. The header describes the "
^DD(409.62,.02,21,4,0)="appointment list being displayed."
^DD(409.62,.02,23,0)="^^2^2^2920303^^^"
^DD(409.62,.02,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.62,.02,23,2,0)="directed to do so via a patch."
^DD(409.62,.02,"DT")="2911101"
^DD(409.62,1,0)="SCREEN^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.62,1,3)="This is Standard MUMPS code."
^DD(409.62,1,21,0)="^^13^13^2920303^^^^"
^DD(409.62,1,21,1,0)="This field contains the MUMPS code that returns $T which"
^DD(409.62,1,21,2,0)="is used to determine if an appointment should be used"
^DD(409.62,1,21,3,0)="as part of the group."
^DD(409.62,1,21,4,0)=" "
^DD(409.62,1,21,5,0)="Normally, this field is not filled in and the association"
^DD(409.62,1,21,6,0)="of an APPOINTMENT STATUS to the group is enough to define"
^DD(409.62,1,21,7,0)="the relationship."
^DD(409.62,1,21,8,0)=" "
^DD(409.62,1,21,9,0)="An example of the use of this SCREEN field is in the FUTURE group entry."
^DD(409.62,1,21,10,0)="Both the INPATIENT and FUTURE appointment statuses are associated"
^DD(409.62,1,21,11,0)="with this group.  However, INPATIENT appointments can be in"
^DD(409.62,1,21,12,0)="the past and future.  The screen causes only appointments with"
^DD(409.62,1,21,13,0)="a date/time of greater than today to be used."
^DD(409.62,1,23,0)="^^2^2^2920303^^^"
^DD(409.62,1,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.62,1,23,2,0)="directed to do so via a patch."
^DD(409.62,1,"DT")="2920123"
^DD(409.62,"B","NAME",.01)=""
^DD(409.62,"B","SCREEN",1)=""
^DD(409.62,"B","TITLE",.02)=""
^DD(409.62,"GL",0,1,.01)=""
^DD(409.62,"GL",0,2,.02)=""
^DD(409.62,"GL",1,"E1,245",1)=""
^DD(409.62,"IX",.01)=""
^DD(409.62,"RQ",.01)=""
^DD(409.621,0)="CAPTION LINE COLUMNS SUB-FIELD^^.06^6"
^DD(409.621,0,"DT")="2930310"
^DD(409.621,0,"IX","AIDENT",409.621,.06)=""
^DD(409.621,0,"IX","B",409.621,.01)=""
^DD(409.621,0,"NM","CAPTION LINE COLUMNS")=""
^DD(409.621,0,"UP")="409.61"
^DD(409.621,.01,0)="ITEM NAME^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(409.621,.01,1,0)="^.1"
^DD(409.621,.01,1,1,0)="409.621^B"
^DD(409.621,.01,1,1,1)="S ^SD(409.61,DA(1),""COL"",""B"",$E(X,1,30),DA)="""""
^DD(409.621,.01,1,1,2)="K ^SD(409.61,DA(1),""COL"",""B"",$E(X,1,30),DA)"
^DD(409.621,.01,3)="Answer must be 1-20 characters in length."
^DD(409.621,.01,10)="APPLICATION DEVELOPER"
^DD(409.621,.01,21,0)="^^8^8^2920303^^^^"
^DD(409.621,.01,21,1,0)="This field contains the reference name of the column.  The DISPLAY TEXT"
^DD(409.621,.01,21,2,0)="field contains the text that will be used when the caption line"
^DD(409.621,.01,21,3,0)="is written."
^DD(409.621,.01,21,4,0)=""
^DD(409.621,.01,21,5,0)="The text in this field is used when the application refers to"
^DD(409.621,.01,21,6,0)="this column during programming.  For example, the <field name>"
^DD(409.621,.01,21,7,0)="reference in function call $$FLDUPD^VALM1(<string>,<field name>,"
^DD(409.621,.01,21,8,0)="<line number>) would contain this text."
^DD(409.621,.01,"DT")="2920302"
^DD(409.621,.02,0)="COLUMN^NJ3,0^^0;2^K:+X'=X!(X>240)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.621,.02,1,0)="^.1^^0"
^DD(409.621,.02,3)="Type a Number between 1 and 240, 0 Decimal Digits"
^DD(409.621,.02,10)="APPLICATION DEVELOPER"
^DD(409.621,.02,21,0)="^^1^1^2920302^^^^"
^DD(409.621,.02,21,1,0)="The field contains the column number where the data/caption starts."
^DD(409.621,.02,"DT")="2921118"
^DD(409.621,.03,0)="WIDTH^NJ2,0^^0;3^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.621,.03,3)="Type a Number between 1 and 80, 0 Decimal Digits"
^DD(409.621,.03,10)="APPLICATION DEVELOPER"
^DD(409.621,.03,21,0)="^^2^2^2920219^^"
^DD(409.621,.03,21,1,0)="This field contains the number of characters this field will"
^DD(409.621,.03,21,2,0)="use."
^DD(409.621,.03,"DT")="2930310"
^DD(409.621,.04,0)="DISPLAY TEXT^F^^0;4^K:$L(X)>80!($L(X)<1) X"
^DD(409.621,.04,3)="Enter the text for the caption line. (1-80 characters)"
^DD(409.621,.04,10)="APPLICATION DEVELOPER"
^DD(409.621,.04,21,0)="^^8^8^2920219^^^^"
^DD(409.621,.04,21,1,0)="This field contains the text that will appear on the caption"
^DD(409.621,.04,21,2,0)="line for this column/field."
^DD(409.621,.04,21,3,0)=""
^DD(409.621,.04,21,4,0)="If the text is longer than the WIDTH parameter, it will be"
^DD(409.621,.04,21,5,0)="truncated to the WIDTH specification when written as part"
^DD(409.621,.04,21,6,0)="of the caption line."
^DD(409.621,.04,21,7,0)=""
^DD(409.621,.04,21,8,0)="This field is optional and can be left blank."
^DD(409.621,.04,"DT")="2920302"
^DD(409.621,.05,0)="DEFAULT VIDEO ATTRIBUTES^FX^^0;5^K:$L(X)>4!($L(X)<1) X I $D(X) N I F I=1:1:$L(X) I ""HRUB""'[$E(X,I) K X Q"
^DD(409.621,.05,3)="Indicate the video attributes that are the defaults for this field."
^DD(409.621,.05,21,0)="^^11^11^2930305^^^"
^DD(409.621,.05,21,1,0)="This parameter allows the developer to indicate the default "
^DD(409.621,.05,21,2,0)="video attributes that should be applied when program calls are "
^DD(409.621,.05,21,3,0)="made to the FLDCTRL^VALM10 video control utility."
^DD(409.621,.05,21,4,0)=" "
^DD(409.621,.05,21,5,0)="The following is the list of attributes and abbreviations used "
^DD(409.621,.05,21,6,0)="for this parameter:"
^DD(409.621,.05,21,7,0)=" "
^DD(409.621,.05,21,8,0)=" H - for highlight"
^DD(409.621,.05,21,9,0)=" R - for reverse video"
^DD(409.621,.05,21,10,0)=" U - for underline"
^DD(409.621,.05,21,11,0)=" B - for blinking"
^DD(409.621,.05,"DT")="2930121"
^DD(409.621,.06,0)="SCROLL LOCK^SX^0:NO;1:YES;^0;6^I $D(X),$O(^SD(409.61,DA(1),""COL"",""AIDENT"",1,0)),$O(^(0))'=DA K X"
^DD(409.621,.06,1,0)="^.1"
^DD(409.621,.06,1,1,0)="409.621^AIDENT"
^DD(409.621,.06,1,1,1)="S ^SD(409.61,DA(1),""COL"",""AIDENT"",$E(X,1,30),DA)="""""
^DD(409.621,.06,1,1,2)="K ^SD(409.61,DA(1),""COL"",""AIDENT"",$E(X,1,30),DA)"
^DD(409.621,.06,1,1,"DT")="2921122"
^DD(409.621,.06,21,0)="14^^18^18^2930226^^^^"
^DD(409.621,.06,21,1,0)="If you want to lock one for more columns into place as the user"
^DD(409.621,.06,21,2,0)="scrolls horizontally through the list, you can place a 'scroll lock' "
^DD(409.621,.06,21,3,0)="on the right most column field that should be locked.  "
^DD(409.621,.06,21,4,0)="Only one column can have this 'scroll lock' parameter set to 'yes'."
^DD(409.621,.06,21,5,0)="If you attempt to set more than one, the system will not allow it"
^DD(409.621,.06,21,6,0)="and will issue a warning."
^DD(409.621,.06,21,7,0)=" "
^DD(409.621,.06,21,8,0)=""
^DD(409.621,.06,21,9,0)="If this parameter is set to 'YES', this caption field and any other"
^DD(409.621,.06,21,10,0)="caption field, with a COLUMN parameter set to less than this"
^DD(409.621,.06,21,11,0)="current caption field's, will always be displayed by the List"
^DD(409.621,.06,21,12,0)="Manager."
^DD(409.621,.06,21,13,0)=""
^DD(409.621,.06,21,14,0)="This parameter does not need to be filled in for List Templates"
^DD(409.621,.06,21,15,0)="with a RIGHT MARGIN of 80. For those templates with a"
^DD(409.621,.06,21,16,0)="RIGHT MARGIN of over 80, this field also does not need to"
^DD(409.621,.06,21,17,0)="be entered. However, the use of this field allows the developer"
^DD(409.621,.06,21,18,0)="to indicate the list's identification fields for user readability."
^DD(409.621,.06,23,0)="^^1^1^2930226^"
^DD(409.621,.06,23,1,0)=" "
^DD(409.621,.06,"DT")="2921129"
^DD(409.621,"B","COLUMN",.02)=""
^DD(409.621,"B","DEFAULT VIDEO ATTRIBUTES",.05)=""
^DD(409.621,"B","DISPLAY TEXT",.04)=""
^DD(409.621,"B","ITEM NAME",.01)=""
^DD(409.621,"B","SCROLL LOCK",.06)=""
^DD(409.621,"B","WIDTH",.03)=""
^DD(409.621,"GL",0,1,.01)=""
^DD(409.621,"GL",0,2,.02)=""
^DD(409.621,"GL",0,3,.03)=""
^DD(409.621,"GL",0,4,.04)=""
^DD(409.621,"GL",0,5,.05)=""
^DD(409.621,"GL",0,6,.06)=""
^DD(409.621,"IX",.01)=""
^DD(409.621,"IX",.06)=""
^DD(409.63,0)="FIELD^^100^8"
^DD(409.63,0,"DT")="2930406"
^DD(409.63,0,"IX","AC",409.63,.01)=""
^DD(409.63,0,"IX","ACAN",409.63,.04)=""
^DD(409.63,0,"IX","ACI",409.63,.03)=""
^DD(409.63,0,"IX","ACO",409.63,.06)=""
^DD(409.63,0,"IX","ANS",409.63,.05)=""
^DD(409.63,0,"IX","B",409.63,.01)=""
^DD(409.63,0,"IX","C",409.636,.01)=""
^DD(409.63,0,"NM","APPOINTMENT STATUS")=""
^DD(409.63,0,"PT",409.68,.12)=""
^DD(409.63,0,"VR")="5.3"
^DD(409.63,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>14)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.63,.001,3)="Type a Number between 1 and 14, 0 Decimal Digits"
^DD(409.63,.001,21,0)="^^2^2^2920219^^"
^DD(409.63,.001,21,1,0)="This internal number identifies the appointment status.  Some"
^DD(409.63,.001,21,2,0)="application code uses this number during processing."
^DD(409.63,.001,23,0)="^^2^2^2920303^^^^"
^DD(409.63,.001,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.63,.001,23,2,0)="directed to do so via a patch."
^DD(409.63,.001,"DT")="2930406"
^DD(409.63,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(409.63,.01,1,0)="^.1"
^DD(409.63,.01,1,1,0)="409.63^B"
^DD(409.63,.01,1,1,1)="S ^SD(409.63,""B"",$E(X,1,30),DA)="""""
^DD(409.63,.01,1,1,2)="K ^SD(409.63,""B"",$E(X,1,30),DA)"
^DD(409.63,.01,1,2,0)="409.63^AC^MUMPS"
^DD(409.63,.01,1,2,1)="S ^SD(409.63,""AC"",X,DA)="""""
^DD(409.63,.01,1,2,2)="K ^SD(409.63,""AC"",X,DA)"
^DD(409.63,.01,1,2,"DT")="2920401"
^DD(409.63,.01,3)="Answer must be 3-40 characters in length."
^DD(409.63,.01,21,0)="^^1^1^2920219^^"
^DD(409.63,.01,21,1,0)="This field contains the name of an appointment status, such as CHECKED IN."
^DD(409.63,.01,23,0)="^^2^2^2920303^^^"
^DD(409.63,.01,23,1,0)="The data in this field should not be modified at a site unless"
^DD(409.63,.01,23,2,0)="directed to do so via a patch."
^DD(409.63,.01,"DEL",1,0)="I 1 W *7,!?5,""o  Deleting entries from this file is prohibited"""
^DD(409.63,.01,"DT")="2920401"
^DD(409.63,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(409.63,.02,3)="Answer must be 1-4 characters in length."
^DD(409.63,.02,21,0)="^^1^1^2920219^"
^DD(409.63,.02,21,1,0)="This field contains a short acronym for the appointment status."
^DD(409.63,.02,23,0)="^^7^7^2920303^^^^"
^DD(409.63,.02,23,1,0)="Where the appointment status name is the same as one"
^DD(409.63,.02,23,2,0)="described in the STATUS field of the APPOINTMENT multiple"
^DD(409.63,.02,23,3,0)="of the PATIENT file, this abbreviation is the same as"
^DD(409.63,.02,23,4,0)="the set value of that field."
^DD(409.63,.02,23,5,0)=" "
^DD(409.63,.02,23,6,0)="The data in this field should not be modified a the site unless"
^DD(409.63,.02,23,7,0)="directed to do so via a patch."
^DD(409.63,.02,"DT")="2911101"
^DD(409.63,.03,0)="CHECK IN ALLOWED?^S^0:NO;1:YES;^0;3^Q"
^DD(409.63,.03,1,0)="^.1"
^DD(409.63,.03,1,1,0)="409.63^ACI"
^DD(409.63,.03,1,1,1)="S ^SD(409.63,""ACI"",$E(X,1,30),DA)="""""
^DD(409.63,.03,1,1,2)="K ^SD(409.63,""ACI"",$E(X,1,30),DA)"
^DD(409.63,.03,1,1,"DT")="2911105"
^DD(409.63,.03,21,0)="^^2^2^2920302^^^"
^DD(409.63,.03,21,1,0)="If this field is set to 'YES' than appointments with this"
^DD(409.63,.03,21,2,0)="status can be checked in."
^DD(409.63,.03,23,0)="^^2^2^2920303^^^"
^DD(409.63,.03,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.63,.03,23,2,0)="directed to do so via a patch."
^DD(409.63,.03,"DT")="2911105"
^DD(409.63,.04,0)="CANCEL ALLOWED?^S^0:NO;1:YES;^0;4^Q"
^DD(409.63,.04,1,0)="^.1"
^DD(409.63,.04,1,1,0)="409.63^ACAN"
^DD(409.63,.04,1,1,1)="S ^SD(409.63,""ACAN"",$E(X,1,30),DA)="""""
^DD(409.63,.04,1,1,2)="K ^SD(409.63,""ACAN"",$E(X,1,30),DA)"
^DD(409.63,.04,1,1,"%D",0)="^^2^2^2920213^"
^DD(409.63,.04,1,1,"%D",1,0)="This cross reference is used by the SDAN APPT CANCEL protocol"
^DD(409.63,.04,1,1,"%D",2,0)="to determine is an appointment can be cancelled."
^DD(409.63,.04,1,1,"DT")="2920213"
^DD(409.63,.04,21,0)="^^2^2^2920417^^^^"
^DD(409.63,.04,21,1,0)="If this field is set to 'YES' than appointments with this"
^DD(409.63,.04,21,2,0)="status can be cancelled."
^DD(409.63,.04,23,0)="^^2^2^2920303^^^"
^DD(409.63,.04,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.63,.04,23,2,0)="directed to do so via a patch."
^DD(409.63,.04,"DT")="2920213"
^DD(409.63,.05,0)="NO-SHOW ALLOWED?^S^0:NO;1:YES;^0;5^Q"
^DD(409.63,.05,1,0)="^.1"
^DD(409.63,.05,1,1,0)="409.63^ANS"
^DD(409.63,.05,1,1,1)="S ^SD(409.63,""ANS"",$E(X,1,30),DA)="""""
^DD(409.63,.05,1,1,2)="K ^SD(409.63,""ANS"",$E(X,1,30),DA)"
^DD(409.63,.05,1,1,"%D",0)="^^3^3^2920417^"
^DD(409.63,.05,1,1,"%D",1,0)="This cross reference is used by the 'no-show' protocol action."
^DD(409.63,.05,1,1,"%D",2,0)="It is used to indicate which statuses can be processed by"
^DD(409.63,.05,1,1,"%D",3,0)="the no-show action."
^DD(409.63,.05,1,1,"DT")="2920417"
^DD(409.63,.05,21,0)="^^2^2^2920417^"
^DD(409.63,.05,21,1,0)="If this field is set to 'YES' than appointments with this"
^DD(409.63,.05,21,2,0)="status can be no-showed."
^DD(409.63,.05,23,0)="^^2^2^2920421^"
^DD(409.63,.05,23,1,0)="The data in this field should not be modified a the site"
^DD(409.63,.05,23,2,0)="unless directed to do so via a patch."
^DD(409.63,.05,"DT")="2920417"
^DD(409.63,.06,0)="CHECK OUT ALLOWED?^S^0:NO;1:YES;^0;6^Q"
^DD(409.63,.06,1,0)="^.1"
^DD(409.63,.06,1,1,0)="409.63^ACO"
^DD(409.63,.06,1,1,1)="S ^SD(409.63,""ACO"",$E(X,1,30),DA)="""""
^DD(409.63,.06,1,1,2)="K ^SD(409.63,""ACO"",$E(X,1,30),DA)"
^DD(409.63,.06,1,1,"%D",0)="^^2^2^2930303^"
^DD(409.63,.06,1,1,"%D",1,0)="This cross reference is used to determine if an appointment can be"
^DD(409.63,.06,1,1,"%D",2,0)="checked out."
^DD(409.63,.06,1,1,"DT")="2930303"
^DD(409.63,.06,21,0)="^^2^2^2930303^"
^DD(409.63,.06,21,1,0)="If this field is set to 'YES' then appointments with this satus can be"
^DD(409.63,.06,21,2,0)="checked out."
^DD(409.63,.06,23,0)="^^2^2^2930303^"
^DD(409.63,.06,23,1,0)="The data in this field should not be modified at the site unless"
^DD(409.63,.06,23,2,0)="directed to do so via a patch."
^DD(409.63,.06,"DT")="2930303"
^DD(409.63,100,0)="ASSOCIATED STATUS GROUPS^409.636P^^CAT;0"
^DD(409.63,100,21,0)="^^6^6^2920303^^^"
^DD(409.63,100,21,1,0)="This multiple associates this status with one or more APPOINTMENT"
^DD(409.63,100,21,2,0)="GROUP file entries."
^DD(409.63,100,21,3,0)=" "
^DD(409.63,100,21,4,0)="This information is used by the 'Appointment Management'"
^DD(409.63,100,21,5,0)="option to determine what appointments should be displayed"
^DD(409.63,100,21,6,0)="to the user."
^DD(409.63,100,23,0)="^^2^2^2920303^^"
^DD(409.63,100,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.63,100,23,2,0)="directed to do so via a patch."
^DD(409.63,100,"DT")="2920303"
^DD(409.63,"B","ABBREVIATION",.02)=""
^DD(409.63,"B","ASSOCIATED STATUS GROUPS",100)=""
^DD(409.63,"B","CANCEL ALLOWED?",.04)=""
^DD(409.63,"B","CHECK IN ALLOWED?",.03)=""
^DD(409.63,"B","CHECK OUT ALLOWED?",.06)=""
^DD(409.63,"B","NAME",.01)=""
^DD(409.63,"B","NO-SHOW ALLOWED?",.05)=""
^DD(409.63,"B","NUMBER",.001)=""
^DD(409.63,"GL",0,1,.01)=""
^DD(409.63,"GL",0,2,.02)=""
^DD(409.63,"GL",0,3,.03)=""
^DD(409.63,"GL",0,4,.04)=""
^DD(409.63,"GL",0,5,.05)=""
^DD(409.63,"GL",0,6,.06)=""
^DD(409.63,"GL","CAT",0,100)=""
^DD(409.63,"IX",.01)=""
^DD(409.63,"IX",.03)=""
^DD(409.63,"IX",.04)=""
^DD(409.63,"IX",.05)=""
^DD(409.63,"IX",.06)=""
^DD(409.63,"RQ",.01)=""
^DD(409.63,"SB",409.636,100)=""
^DD(409.636,0)="ASSOCIATED STATUS GROUPS SUB-FIELD^^.01^1"
^DD(409.636,0,"DT")="2911213"
^DD(409.636,0,"IX","B",409.636,.01)=""
^DD(409.636,0,"NM","ASSOCIATED STATUS GROUPS")=""
^DD(409.636,0,"UP")="409.63"
^DD(409.636,.01,0)="GROUP^MP409.62'^SD(409.62,^0;1^Q"
^DD(409.636,.01,1,0)="^.1"
^DD(409.636,.01,1,1,0)="409.636^B"
^DD(409.636,.01,1,1,1)="S ^SD(409.63,DA(1),""CAT"",""B"",$E(X,1,30),DA)="""""
^DD(409.636,.01,1,1,2)="K ^SD(409.63,DA(1),""CAT"",""B"",$E(X,1,30),DA)"
^DD(409.636,.01,1,2,0)="409.63^C"
^DD(409.636,.01,1,2,1)="S ^SD(409.63,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(409.636,.01,1,2,2)="K ^SD(409.63,""C"",$E(X,1,30),DA(1),DA)"
^DD(409.636,.01,1,2,"DT")="2911213"
^DD(409.636,.01,21,0)="^^2^2^2920303^^^"
^DD(409.636,.01,21,1,0)="This field associates the status with an APPOINTMENT GROUP"
^DD(409.636,.01,21,2,0)="file entry."
^DD(409.636,.01,23,0)="^^2^2^2920303^^^"
^DD(409.636,.01,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.636,.01,23,2,0)="directed to do so via a patch."
^DD(409.636,.01,"DT")="2911213"
^DD(409.636,"B","GROUP",.01)=""
^DD(409.636,"GL",0,1,.01)=""
^DD(409.636,"IX",.01)=""
^DD(409.64,0)="FIELD^^200^10"
^DD(409.64,0,"DDA")="N"
^DD(409.64,0,"DT")="2970925"
^DD(409.64,0,"IX","B",409.64,.01)=""
^DD(409.64,0,"NM","QUERY OBJECT")=""
^DD(409.64,0,"VR")="5.3"
^DD(409.64,0,"VRPK")="SD"
^DD(409.64,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(409.64,.01,1,0)="^.1"
^DD(409.64,.01,1,1,0)="409.64^B"
^DD(409.64,.01,1,1,1)="S ^SD(409.64,""B"",$E(X,1,30),DA)="""""
^DD(409.64,.01,1,1,2)="K ^SD(409.64,""B"",$E(X,1,30),DA)"
^DD(409.64,.01,3)="Answer must be 3-40 characters in length."
^DD(409.64,.01,21,0)="^^3^3^2970814^^^"
^DD(409.64,.01,21,1,0)=" This property contains the name of the query object being defined."
^DD(409.64,.01,21,2,0)=" "
^DD(409.64,.01,21,3,0)=" The name should be namespaced."
^DD(409.64,.01,"DT")="2970721"
^DD(409.64,.02,0)="FILE^P1'^DIC(^0;2^Q"
^DD(409.64,.02,21,0)="^^5^5^2970814^^^"
^DD(409.64,.02,21,1,0)=" This property contains the name of the file associated with this query object"
^DD(409.64,.02,21,2,0)=" definition."
^DD(409.64,.02,21,3,0)=" "
^DD(409.64,.02,21,4,0)=" (Note: It is possible to have a file associated with more than"
^DD(409.64,.02,21,5,0)="        one query object definition.) "
^DD(409.64,.02,"DT")="2970814"
^DD(409.64,.03,0)="SUBSCRIPTS IN GLOBAL ROOT^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.64,.03,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(409.64,.03,21,0)="^^13^13^2970924^^^^"
^DD(409.64,.03,21,1,0)=" This property contains the number of subscripts in the global root for"
^DD(409.64,.03,21,2,0)=" the file associated with this query object definition."
^DD(409.64,.03,21,3,0)=" "
^DD(409.64,.03,21,4,0)=" Examples:   "
^DD(409.64,.03,21,5,0)="   "
^DD(409.64,.03,21,6,0)="    Global Root            Level"
^DD(409.64,.03,21,7,0)="    -----------            -----"
^DD(409.64,.03,21,8,0)="     ^SCE                   0"
^DD(409.64,.03,21,9,0)="     ^SCPT(404.42)          1"
^DD(409.64,.03,21,10,0)="             "
^DD(409.64,.03,21,11,0)=" "
^DD(409.64,.03,21,12,0)=" This property is needed by some methods when the intrinic $QSUBCRIPT"
^DD(409.64,.03,21,13,0)=" function is executed."
^DD(409.64,.03,"DT")="2970804"
^DD(409.64,.04,0)="$STORAGE LIMIT^NJ6,0^^0;4^K:+X'=X!(X>300000)!(X<5000)!(X?.E1"".""1N.N) X"
^DD(409.64,.04,3)="Type a Number between 5000 and 300000, 0 Decimal Digits"
^DD(409.64,.04,21,0)="^^13^13^2970925^^^"
^DD(409.64,.04,21,1,0)=" This property indicates the trigger value of $STORAGE that causes"
^DD(409.64,.04,21,2,0)=" the query object data to be stored in ^TMP global instead of a local array."
^DD(409.64,.04,21,3,0)=" (The local variable is the default.)"
^DD(409.64,.04,21,4,0)=" "
^DD(409.64,.04,21,5,0)=" If the $STORAGE is less than the Property value then store in global."
^DD(409.64,.04,21,6,0)=" "
^DD(409.64,.04,21,7,0)=" Examples:"
^DD(409.64,.04,21,8,0)="           $Storage Value     Property Value     Query Stored in..."
^DD(409.64,.04,21,9,0)="           ==============     ==============     =================="
^DD(409.64,.04,21,10,0)="                30000             10000               local"
^DD(409.64,.04,21,11,0)="                 5000             10000               global"
^DD(409.64,.04,21,12,0)=""
^DD(409.64,.04,21,13,0)=""
^DD(409.64,.04,23,0)="^^1^1^2970925^^^"
^DD(409.64,.04,23,1,0)="See DESCRIPTION field."
^DD(409.64,.04,"DT")="2970925"
^DD(409.64,.07,0)="OK TO TRANSPORT?^S^0:NOT OK;1:OK;^0;7^Q"
^DD(409.64,.07,21,0)="^^3^3^2970814^^"
^DD(409.64,.07,21,1,0)=" This field indicates to the transport utility if this"
^DD(409.64,.07,21,2,0)=" query template should be distributed."
^DD(409.64,.07,21,3,0)=""
^DD(409.64,.07,"DT")="2970721"
^DD(409.64,101,0)="OPEN METHOD^K^^OPEN;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.64,101,3)="This is Standard MUMPS code."
^DD(409.64,101,9)="@"
^DD(409.64,101,21,0)="^^3^3^2970814^^^^"
^DD(409.64,101,21,1,0)=" This property contains any query specific open logic that the "
^DD(409.64,101,21,2,0)=" custodial pacakge needs performed. This logic is executed"
^DD(409.64,101,21,3,0)=" after the generic open logic is performed."
^DD(409.64,101,"DT")="2970721"
^DD(409.64,102,0)="CLOSE METHOD^K^^CLOSE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.64,102,3)="This is Standard MUMPS code."
^DD(409.64,102,9)="@"
^DD(409.64,102,21,0)="^^4^4^2970814^^^"
^DD(409.64,102,21,1,0)=" This property contains any query specific close logic that the "
^DD(409.64,102,21,2,0)=" custodial pacakge needs performed. This logic is executed"
^DD(409.64,102,21,3,0)=" before the generic close logic is performed."
^DD(409.64,102,21,4,0)=""
^DD(409.64,102,"DT")="2970721"
^DD(409.64,103,0)="SCAN METHOD^RK^^SCAN;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.64,103,3)="This is Standard MUMPS code."
^DD(409.64,103,9)="@"
^DD(409.64,103,21,0)="^^17^17^2970814^^"
^DD(409.64,103,21,1,0)=" This property contains query object specific logic that the custodial"
^DD(409.64,103,21,2,0)=" package must specify that allows the use of the Scan method by"
^DD(409.64,103,21,3,0)=" developers."
^DD(409.64,103,21,4,0)=" "
^DD(409.64,103,21,5,0)=" This scan logic typically hard codes references to supported indexes."
^DD(409.64,103,21,6,0)=" There is a significant performance reasons for the custidial packages"
^DD(409.64,103,21,7,0)=" to develop this logic. The Next/Eof scanning approach is much slower then"
^DD(409.64,103,21,8,0)=" using Scan/Scan Callback approach."
^DD(409.64,103,21,9,0)=" "
^DD(409.64,103,21,10,0)=" "
^DD(409.64,103,21,11,0)=" For more information, see API definitions for the following: "
^DD(409.64,103,21,12,0)="    Scan"
^DD(409.64,103,21,13,0)="    Scan Callback"
^DD(409.64,103,21,14,0)="    Next"
^DD(409.64,103,21,15,0)="    EOF"
^DD(409.64,103,21,16,0)="    Prior"
^DD(409.64,103,21,17,0)="    BOF"
^DD(409.64,103,"DT")="2970724"
^DD(409.64,104,0)="ZERO NODE METHOD^K^^ZERO;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.64,104,3)="This is Standard MUMPS code."
^DD(409.64,104,9)="@"
^DD(409.64,104,21,0)="^^15^15^2970814^^^^"
^DD(409.64,104,21,1,0)=" This property contains any query specific logic that the "
^DD(409.64,104,21,2,0)=" custodial pacakge needs performed to screen out unsupported"
^DD(409.64,104,21,3,0)=" fields on the zero node."
^DD(409.64,104,21,4,0)=" "
^DD(409.64,104,21,5,0)=" Various methods of the query object need to make available to"
^DD(409.64,104,21,6,0)=" developers the zero node of an entry. For example, during the execution"
^DD(409.64,104,21,7,0)=" of the filters and scan callbacks, the zero node is made available"
^DD(409.64,104,21,8,0)=" to developers in the variable Y0."
^DD(409.64,104,21,9,0)=" "
^DD(409.64,104,21,10,0)=" If the custodial package does not support all fields on the zero"
^DD(409.64,104,21,11,0)=" node, then logic similar to the following needs to be specified"
^DD(409.64,104,21,12,0)=" in this property:"
^DD(409.64,104,21,13,0)=" "
^DD(409.64,104,21,14,0)="         S Y0=$$Y0^XXUTL(Y)"
^DD(409.64,104,21,15,0)="                           ...where Y is the internal entry number"
^DD(409.64,104,"DT")="2970730"
^DD(409.64,200,0)="SUPPORTED INDEXES^409.641^^INDEX;0"
^DD(409.64,200,21,0)="^^3^3^2970814^^^"
^DD(409.64,200,21,1,0)=" This multiple contains index definitions that are supported"
^DD(409.64,200,21,2,0)=" by the custodial package when the developer uses this query object"
^DD(409.64,200,21,3,0)=" definition."
^DD(409.64,"B","$STORAGE LIMIT",.04)=""
^DD(409.64,"B","CLOSE METHOD",102)=""
^DD(409.64,"B","FILE",.02)=""
^DD(409.64,"B","NAME",.01)=""
^DD(409.64,"B","OK TO TRANSPORT?",.07)=""
^DD(409.64,"B","OPEN METHOD",101)=""
^DD(409.64,"B","SCAN METHOD",103)=""
^DD(409.64,"B","SUBSCRIPTS IN GLOBAL ROOT",.03)=""
^DD(409.64,"B","SUPPORTED INDEXES",200)=""
^DD(409.64,"B","ZERO NODE METHOD",104)=""
^DD(409.64,"GL",0,1,.01)=""
^DD(409.64,"GL",0,2,.02)=""
^DD(409.64,"GL",0,3,.03)=""
^DD(409.64,"GL",0,4,.04)=""
^DD(409.64,"GL",0,7,.07)=""
^DD(409.64,"GL","CLOSE","E1,245",102)=""
^DD(409.64,"GL","INDEX",0,200)=""
^DD(409.64,"GL","OPEN","E1,245",101)=""
^DD(409.64,"GL","SCAN","E1,245",103)=""
^DD(409.64,"GL","ZERO","E1,245",104)=""
^DD(409.64,"IX",.01)=""
^DD(409.64,"RQ",.01)=""
^DD(409.64,"RQ",103)=""
^DD(409.64,"SB",409.641,200)=""
^DD(409.641,0)="SUPPORTED INDEXES SUB-FIELD^^101^4"
^DD(409.641,0,"DT")="2970721"
^DD(409.641,0,"IX","B",409.641,.01)=""
^DD(409.641,0,"NM","SUPPORTED INDEXES")=""
^DD(409.641,0,"UP")="409.64"
^DD(409.641,.01,0)="INDEX^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(409.641,.01,1,0)="^.1"
^DD(409.641,.01,1,1,0)="409.641^B"
^DD(409.641,.01,1,1,1)="S ^SD(409.64,DA(1),""INDEX"",""B"",$E(X,1,30),DA)="""""
^DD(409.641,.01,1,1,2)="K ^SD(409.64,DA(1),""INDEX"",""B"",$E(X,1,30),DA)"
^DD(409.641,.01,3)="Answer must be 3-30 characters in length."
^DD(409.641,.01,21,0)="^^12^12^2970814^^"
^DD(409.641,.01,21,1,0)=" This property is the name on the index supported by the custodial"
^DD(409.641,.01,21,2,0)=" package."
^DD(409.641,.01,21,3,0)=" "
^DD(409.641,.01,21,4,0)=" "
^DD(409.641,.01,21,5,0)=" Note: This is not the name of the cross reference being used"
^DD(409.641,.01,21,6,0)="       internally. This is a easy to understand text that"
^DD(409.641,.01,21,7,0)="       describes the content of the cross reference."
^DD(409.641,.01,21,8,0)=" "
^DD(409.641,.01,21,9,0)="       For example:"
^DD(409.641,.01,21,10,0)="                    File: Patient"
^DD(409.641,.01,21,11,0)="         Cross Reference: B"
^DD(409.641,.01,21,12,0)="                   Index: PATIENT NAME"
^DD(409.641,.01,"DT")="2970721"
^DD(409.641,.02,0)="CROSS REFERENCE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(409.641,.02,3)="Answer must be 1-30 characters in length."
^DD(409.641,.02,21,0)="^^2^2^2970814^^"
^DD(409.641,.02,21,1,0)=" This property indicates the specific internal VA FileMan cross reference"
^DD(409.641,.02,21,2,0)=" associated with the index being defined."
^DD(409.641,.02,"DT")="2970721"
^DD(409.641,.03,0)="TYPE^S^1:REGULAR;2:REGULAR DATE/TIME;3:COMPOSITE;4:COMPOSITE DATE/TIME;^0;3^Q"
^DD(409.641,.03,21,0)="^^14^14^2970814^^"
^DD(409.641,.03,21,1,0)=" This property indicates the type of index being defined. Based"
^DD(409.641,.03,21,2,0)=" on this type, various query object method will execute generic"
^DD(409.641,.03,21,3,0)=" logic that applies to all indexes of the specified type."
^DD(409.641,.03,21,4,0)=" "
^DD(409.641,.03,21,5,0)=" Note: Currently, 8/97, the 'COMPOSITE' type is not supported."
^DD(409.641,.03,21,6,0)=" "
^DD(409.641,.03,21,7,0)=" "
^DD(409.641,.03,21,8,0)=" Examples:"
^DD(409.641,.03,21,9,0)=" "
^DD(409.641,.03,21,10,0)="      Index                           Type"
^DD(409.641,.03,21,11,0)="      -----                           ----"
^DD(409.641,.03,21,12,0)="      ^SCE(""C"",DFN,DA)                REGULAR"
^DD(409.641,.03,21,13,0)="      ^SCE(""B"",DATETIME,DA)           REGULAR DATE/TIME"
^DD(409.641,.03,21,14,0)="      ^SCE(""ADFN"",DFN,DATETIME,DA)    COMPOSITE DATE/TIME"
^DD(409.641,.03,"DT")="2970721"
^DD(409.641,101,0)="CUSTOM NODE VALIDATOR^K^^VALIDATOR;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.641,101,3)="This is Standard MUMPS code."
^DD(409.641,101,9)="@"
^DD(409.641,101,21,0)="^^10^10^2970814^^^"
^DD(409.641,101,21,1,0)=" This property contains any query specific validator logic that the "
^DD(409.641,101,21,2,0)=" custodial pacakge needs performed. This logic is executed"
^DD(409.641,101,21,3,0)=" after the various methods execute the intrinic $QUERY function."
^DD(409.641,101,21,4,0)=" Normally, the generic validator associated with the index type is"
^DD(409.641,101,21,5,0)=" sufficient and no custom logic is required."
^DD(409.641,101,21,6,0)=" "
^DD(409.641,101,21,7,0)=" The validator checks to see if $QUERY returns a value that is"
^DD(409.641,101,21,8,0)=" beyond the scope of the query object's properties. For example,"
^DD(409.641,101,21,9,0)=" if your query is for a specific patient, the validator will"
^DD(409.641,101,21,10,0)=" check if a new patient has been reached by $QUERY."
^DD(409.641,101,"DT")="2970721"
^DD(409.641,"B","CROSS REFERENCE",.02)=""
^DD(409.641,"B","CUSTOM NODE VALIDATOR",101)=""
^DD(409.641,"B","INDEX",.01)=""
^DD(409.641,"B","TYPE",.03)=""
^DD(409.641,"GL",0,1,.01)=""
^DD(409.641,"GL",0,2,.02)=""
^DD(409.641,"GL",0,3,.03)=""
^DD(409.641,"GL","VALIDATOR","E1,245",101)=""
^DD(409.641,"IX",.01)=""
^DD(409.65,0)="FIELD^^.01^5"
^DD(409.65,0,"DDA")="N"
^DD(409.65,0,"DT")="2920326"
^DD(409.65,0,"IX","AUPD",409.65,.02)=""
^DD(409.65,0,"IX","AUPD01",409.65,.01)=""
^DD(409.65,0,"IX","B",409.65,.01)=""
^DD(409.65,0,"NM","APPOINTMENT STATUS UPDATE LOG")=""
^DD(409.65,0,"VR")="5.3"
^DD(409.65,.01,0)="APPOINTMENT DATE^RDI^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.65,.01,1,0)="^.1"
^DD(409.65,.01,1,1,0)="409.65^B"
^DD(409.65,.01,1,1,1)="S ^SDD(409.65,""B"",$E(X,1,30),DA)="""""
^DD(409.65,.01,1,1,2)="K ^SDD(409.65,""B"",$E(X,1,30),DA)"
^DD(409.65,.01,1,2,0)="409.65^AUPD01^MUMPS"
^DD(409.65,.01,1,2,1)="S:$P(^SDD(409.65,DA,0),U,2) ^SDD(409.65,""AUPD"",X,$P(^SDD(409.65,DA,0),U,2))="""""
^DD(409.65,.01,1,2,2)="K:$P(^SDD(409.65,DA,0),U,2) ^SDD(409.65,""AUPD"",X,$P(^SDD(409.65,DA,0),U,2))"
^DD(409.65,.01,1,2,"%D",0)="^^5^5^2920604^"
^DD(409.65,.01,1,2,"%D",1,0)="This cross reference is used to indicate if the update status"
^DD(409.65,.01,1,2,"%D",2,0)="update process has started for an appointment date."
^DD(409.65,.01,1,2,"%D",3,0)=" "
^DD(409.65,.01,1,2,"%D",4,0)="This cross reference is also set by the DATE LAST UPDATE STARTED(#.02)"
^DD(409.65,.01,1,2,"%D",5,0)="field."
^DD(409.65,.01,1,2,"DT")="2920604"
^DD(409.65,.01,3)=""
^DD(409.65,.01,21,0)="^^2^2^2920302^"
^DD(409.65,.01,21,1,0)="This field contains the date of the appointments that were processed"
^DD(409.65,.01,21,2,0)="by the status update functionality."
^DD(409.65,.01,"DT")="2920604"
^DD(409.65,.02,0)="DATE LAST UPDATE STARTED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.65,.02,1,0)="^.1"
^DD(409.65,.02,1,1,0)="409.65^AUPD^MUMPS"
^DD(409.65,.02,1,1,1)="S ^SDD(409.65,""AUPD"",+^SDD(409.65,DA,0),X)="""""
^DD(409.65,.02,1,1,2)="K ^SDD(409.65,""AUPD"",+^SDD(409.65,DA,0),X)"
^DD(409.65,.02,1,1,"%D",0)="^^5^5^2920604^^"
^DD(409.65,.02,1,1,"%D",1,0)="This cross reference is used to indicate if the update status"
^DD(409.65,.02,1,1,"%D",2,0)="update process has started for an appointment date."
^DD(409.65,.02,1,1,"%D",3,0)=" "
^DD(409.65,.02,1,1,"%D",4,0)="This cross reference is also set by the APPOINTMENT DATE(.01)"
^DD(409.65,.02,1,1,"%D",5,0)="field."
^DD(409.65,.02,1,1,"DT")="2920604"
^DD(409.65,.02,9)="^"
^DD(409.65,.02,21,0)="^^2^2^2920302^"
^DD(409.65,.02,21,1,0)="This field contains the date and time the appointment status update"
^DD(409.65,.02,21,2,0)="process began execution."
^DD(409.65,.02,23,0)="^^8^8^2920302^"
^DD(409.65,.02,23,1,0)="If the SDAM APPT UPDATE option was used to update the status'"
^DD(409.65,.02,23,2,0)="and the user selected a range of dates then each date will"
^DD(409.65,.02,23,3,0)="have the same DATE LAST UPDATE STARTED.  The status update"
^DD(409.65,.02,23,4,0)="logic processes each clinic and then the appointments in the"
^DD(409.65,.02,23,5,0)="date range for the clinic."
^DD(409.65,.02,23,6,0)=" "
^DD(409.65,.02,23,7,0)="As a result, each date is not finished until the last clinic"
^DD(409.65,.02,23,8,0)="is processed."
^DD(409.65,.02,"DT")="2920604"
^DD(409.65,.03,0)="UPDATE METHOD^S^1:DAILY BACKGROUND JOB;2:MANUALLY QUEUED;^0;3^Q"
^DD(409.65,.03,9)="^"
^DD(409.65,.03,21,0)="^^2^2^2920302^"
^DD(409.65,.03,21,1,0)="This field indicates whether this log entry was entered as a result"
^DD(409.65,.03,21,2,0)="of the SDAM BACKGROUND JOB or SDAM APPT UPDATE option."
^DD(409.65,.03,"DT")="2920302"
^DD(409.65,.04,0)="USER^P200'^VA(200,^0;4^Q"
^DD(409.65,.04,9)="^"
^DD(409.65,.04,21,0)="^^2^2^2920302^^^"
^DD(409.65,.04,21,1,0)="This field contains the name of the user who requested the"
^DD(409.65,.04,21,2,0)="update process to be performed.  "
^DD(409.65,.04,"DT")="2911129"
^DD(409.65,.05,0)="DATE LAST UPDATE COMPLETED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.65,.05,9)="^"
^DD(409.65,.05,21,0)="^^2^2^2970818^^^"
^DD(409.65,.05,21,1,0)="This field contains the date and time the appointment status update"
^DD(409.65,.05,21,2,0)="process finished execution."
^DD(409.65,.05,23,0)="^^8^8^2970820^^^^"
^DD(409.65,.05,23,1,0)="If the SDAM APPT UPDATE option was used to update the status'"
^DD(409.65,.05,23,2,0)="and the user selected a range of dates then each date will"
^DD(409.65,.05,23,3,0)="have the same DATE LAST UPDATE COMPLETED.  The status update"
^DD(409.65,.05,23,4,0)="logic processes each clinic and then the appointments in the"
^DD(409.65,.05,23,5,0)="date range for the clinic."
^DD(409.65,.05,23,6,0)=" "
^DD(409.65,.05,23,7,0)="As a result, each date is not finished until the last clinic"
^DD(409.65,.05,23,8,0)="is processed."
^DD(409.65,.05,"DT")="2920220"
^DD(409.65,"B","APPOINTMENT DATE",.01)=""
^DD(409.65,"B","DATE LAST UPDATE COMPLETED",.05)=""
^DD(409.65,"B","DATE LAST UPDATE STARTED",.02)=""
^DD(409.65,"B","UPDATE METHOD",.03)=""
^DD(409.65,"B","USER",.04)=""
^DD(409.65,"GL",0,1,.01)=""
^DD(409.65,"GL",0,2,.02)=""
^DD(409.65,"GL",0,3,.03)=""
^DD(409.65,"GL",0,4,.04)=""
^DD(409.65,"GL",0,5,.05)=""
^DD(409.65,"IX",.01)=""
^DD(409.65,"IX",.02)=""
^DD(409.65,"RQ",.01)=""
^DD(409.65,"RQ",.02)=""
^DD(409.66,0)="FIELD^^.02^3"
^DD(409.66,0,"DDA")="N"
^DD(409.66,0,"DT")="2930712"
^DD(409.66,0,"IX","B",409.66,.01)=""
^DD(409.66,0,"NM","APPOINTMENT TRANSACTION TYPE")=""
^DD(409.66,0,"VR")="5.3"
^DD(409.66,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.66,.001,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(409.66,.001,21,0)="^^2^2^2920219^"
^DD(409.66,.001,21,1,0)="This internal number identifies the transaction type.  Some"
^DD(409.66,.001,21,2,0)="application code uses this number during processing."
^DD(409.66,.001,23,0)="^^2^2^2920303^^"
^DD(409.66,.001,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.66,.001,23,2,0)="directed to do so via a patch."
^DD(409.66,.001,"DT")="2921106"
^DD(409.66,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(409.66,.01,1,0)="^.1"
^DD(409.66,.01,1,1,0)="409.66^B"
^DD(409.66,.01,1,1,1)="S ^SD(409.66,""B"",$E(X,1,30),DA)="""""
^DD(409.66,.01,1,1,2)="K ^SD(409.66,""B"",$E(X,1,30),DA)"
^DD(409.66,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(409.66,.01,21,0)="^^1^1^2920219^"
^DD(409.66,.01,21,1,0)="This field contains the name of the transaction type."
^DD(409.66,.01,23,0)="^^2^2^2920303^^"
^DD(409.66,.01,23,1,0)="The data in this field should not be modified a the site unless"
^DD(409.66,.01,23,2,0)="directed to do so via a patch."
^DD(409.66,.02,0)="TYPE^S^A:APPOINTMENT;S:STOP CODE;D:DISPOSITION;^0;2^Q"
^DD(409.66,.02,"DT")="2921106"
^DD(409.66,"B","NAME",.01)=""
^DD(409.66,"B","NUMBER",.001)=""
^DD(409.66,"B","TYPE",.02)=""
^DD(409.66,"GL",0,1,.01)=""
^DD(409.66,"GL",0,2,.02)=""
^DD(409.66,"IX",.01)=""
^DD(409.66,"RQ",.01)=""
^DD(409.67,0)="FIELD^^1^2"
^DD(409.67,0,"DDA")="N"
^DD(409.67,0,"DT")="2971210"
^DD(409.67,0,"IX","AB",409.671,.01)=""
^DD(409.67,0,"IX","B",409.67,.01)=""
^DD(409.67,0,"NM","CLINIC GROUP")=""
^DD(409.67,0,"PT",44,31)=""
^DD(409.67,0,"PT",810.112,.01)=""
^DD(409.67,0,"VR")="5.3"
^DD(409.67,0,"VRPK")="SD"
^DD(409.67,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(409.67,.01,1,0)="^.1"
^DD(409.67,.01,1,1,0)="409.67^B"
^DD(409.67,.01,1,1,1)="S ^SD(409.67,""B"",$E(X,1,30),DA)="""""
^DD(409.67,.01,1,1,2)="K ^SD(409.67,""B"",$E(X,1,30),DA)"
^DD(409.67,.01,3)="Answer must be 3-30 characters in length."
^DD(409.67,.01,"DT")="2971210"
^DD(409.67,1,0)="TYPE^409.671S^^1;0"
^DD(409.67,"B","NAME",.01)=""
^DD(409.67,"B","TYPE",1)=""
^DD(409.67,"GL",0,1,.01)=""
^DD(409.67,"GL",1,0,1)=""
^DD(409.67,"IX",.01)=""
^DD(409.67,"RQ",.01)=""
^DD(409.67,"SB",409.671,1)=""
^DD(409.671,0)="TYPE SUB-FIELD^^.01^1"
^DD(409.671,0,"DT")="2971210"
^DD(409.671,0,"IX","B",409.671,.01)=""
^DD(409.671,0,"NM","TYPE")=""
^DD(409.671,0,"UP")="409.67"
^DD(409.671,.01,0)="TYPE^MS^1:REPORT;^0;1^Q"
^DD(409.671,.01,1,0)="^.1"
^DD(409.671,.01,1,1,0)="409.671^B"
^DD(409.671,.01,1,1,1)="S ^SD(409.67,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.671,.01,1,1,2)="K ^SD(409.67,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.671,.01,1,2,0)="409.67^AB"
^DD(409.671,.01,1,2,1)="S ^SD(409.67,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(409.671,.01,1,2,2)="K ^SD(409.67,""AB"",$E(X,1,30),DA(1),DA)"
^DD(409.671,.01,1,2,"DT")="2971210"
^DD(409.671,.01,3)="Enter the type (i.e. purpose) this CLINIC GROUP is to be used for."
^DD(409.671,.01,"DT")="2971210"
^DD(409.671,"B","TYPE",.01)=""
^DD(409.671,"GL",0,1,.01)=""
^DD(409.671,"IX",.01)=""
^DD(409.68,0)="FIELD^^905^25"
^DD(409.68,0,"DT")="2930722"
^DD(409.68,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.68,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(40.7,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(40.7,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.68,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SC(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(44,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.68,0,"IX","ACG",409.68,.1)=""
^DD(409.68,0,"IX","ACG1",409.68,.01)=""
^DD(409.68,0,"IX","ACHILD",409.68,.07)=""
^DD(409.68,0,"IX","ADFN",409.68,.02)=""
^DD(409.68,0,"IX","ADFN1",409.68,.01)=""
^DD(409.68,0,"IX","AG",409.68,201)=""
^DD(409.68,0,"IX","AG1",409.68,.01)=""
^DD(409.68,0,"IX","ANT",409.68,.07)=""
^DD(409.68,0,"IX","APAR",409.68,.06)=""
^DD(409.68,0,"IX","AVCNT",409.68,.05)=""
^DD(409.68,0,"IX","AVSIT",409.68,.05)=""
^DD(409.68,0,"IX","B",409.68,.01)=""
^DD(409.68,0,"IX","C",409.68,.02)=""
^DD(409.68,0,"NM","OUTPATIENT ENCOUNTER")=""
^DD(409.68,0,"PT",2.101,18)=""
^DD(409.68,0,"PT",2.98,21)=""
^DD(409.68,0,"PT",356,.04)=""
^DD(409.68,0,"PT",391.71,.05)=""
^DD(409.68,0,"PT",399.0304,20)=""
^DD(409.68,0,"PT",409.42,.02)=""
^DD(409.68,0,"PT",409.43,.02)=""
^DD(409.68,0,"PT",409.44,.02)=""
^DD(409.68,0,"PT",409.48,.01)=""
^DD(409.68,0,"PT",409.51,8)=""
^DD(409.68,0,"PT",409.68,.06)=""
^DD(409.68,0,"PT",409.73,.02)=""
^DD(409.68,0,"PT",632,31)=""
^DD(409.68,0,"PT",634.2,4)=""
^DD(409.68,0,"VR")="5.3"
^DD(409.68,.01,0)="DATE^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.68,.01,1,0)="^.1"
^DD(409.68,.01,1,1,0)="409.68^B"
^DD(409.68,.01,1,1,1)="S ^SCE(""B"",$E(X,1,30),DA)="""""
^DD(409.68,.01,1,1,2)="K ^SCE(""B"",$E(X,1,30),DA)"
^DD(409.68,.01,1,2,0)="409.68^ADFN1^MUMPS"
^DD(409.68,.01,1,2,1)="S:$P(^SCE(DA,0),U,2) ^SCE(""ADFN"",$P(^SCE(DA,0),U,2),X,DA)="""""
^DD(409.68,.01,1,2,2)="K:$P(^SCE(DA,0),U,2) ^SCE(""ADFN"",$P(^SCE(DA,0),U,2),X,DA)"
^DD(409.68,.01,1,2,"%D",0)="^^4^4^2930429^"
^DD(409.68,.01,1,2,"%D",1,0)=" "
^DD(409.68,.01,1,2,"%D",2,0)="This cross reference is by patient DFN and the outpatient encounter date."
^DD(409.68,.01,1,2,"%D",3,0)="The PATIENT(#.02) field also has a companion cross reference to set this"
^DD(409.68,.01,1,2,"%D",4,0)="compound cross reference."
^DD(409.68,.01,1,2,"DT")="2930429"
^DD(409.68,.01,1,3,0)="409.68^ACG1^MUMPS"
^DD(409.68,.01,1,3,1)="N SD0 S SD0=$G(^SCE(DA,0)) IF $P(SD0,U,10)=10 S ^SCE(""ACG"",+X,DA)="""""
^DD(409.68,.01,1,3,2)="N SD0 S SD0=$G(^SCE(DA,0)) IF $P(SD0,U,10)=10 K ^SCE(""ACG"",+X,DA)"
^DD(409.68,.01,1,3,"%D",0)="^^2^2^2970827^"
^DD(409.68,.01,1,3,"%D",1,0)="Used to quickly find entries that have a 'computer generated' appointment"
^DD(409.68,.01,1,3,"%D",2,0)="type."
^DD(409.68,.01,1,3,"DT")="2970827"
^DD(409.68,.01,1,4,0)="409.68^AG1^MUMPS"
^DD(409.68,.01,1,4,1)="N SDCG S SDCG=$G(^SCE(DA,""CG"")) IF +SDCG S ^SCE(""AG"",+X,DA)="""""
^DD(409.68,.01,1,4,2)="N SDCG S SDCG=$G(^SCE(DA,""CG"")) IF +SDCG K ^SCE(""AG"",+X,DA)"
^DD(409.68,.01,1,4,"%D",0)="^^1^1^2970827^"
^DD(409.68,.01,1,4,"%D",1,0)="Used to quickly identify entries 'auto-generated' by other pacakges."
^DD(409.68,.01,1,4,"DT")="2970827"
^DD(409.68,.01,3)=""
^DD(409.68,.01,21,0)="^^1^1^2950301^^"
^DD(409.68,.01,21,1,0)="This field contains the date and time when outpatient encounter occurred."
^DD(409.68,.01,"DT")="2970827"
^DD(409.68,.02,0)="PATIENT^RP2'I^DPT(^0;2^Q"
^DD(409.68,.02,1,0)="^.1"
^DD(409.68,.02,1,1,0)="409.68^C"
^DD(409.68,.02,1,1,1)="S ^SCE(""C"",$E(X,1,30),DA)="""""
^DD(409.68,.02,1,1,2)="K ^SCE(""C"",$E(X,1,30),DA)"
^DD(409.68,.02,1,1,"DT")="2921016"
^DD(409.68,.02,1,2,0)="409.68^ADFN^MUMPS"
^DD(409.68,.02,1,2,1)="S:$D(^SCE(DA,0)) ^SCE(""ADFN"",X,+^SCE(DA,0),DA)="""""
^DD(409.68,.02,1,2,2)="K:$D(^SCE(DA,0)) ^SCE(""ADFN"",X,+^SCE(DA,0),DA)"
^DD(409.68,.02,1,2,"%D",0)="^^4^4^2930429^"
^DD(409.68,.02,1,2,"%D",1,0)=" "
^DD(409.68,.02,1,2,"%D",2,0)="This cross reference is by patient DFN and the outpatient encounter date."
^DD(409.68,.02,1,2,"%D",3,0)="The DATE(#.01) field also has a companion cross reference to set this"
^DD(409.68,.02,1,2,"%D",4,0)="compound cross reference."
^DD(409.68,.02,1,2,"DT")="2930429"
^DD(409.68,.02,21,0)="^^1^1^2930511^"
^DD(409.68,.02,21,1,0)="This field contains the patient associated with the encounter."
^DD(409.68,.02,"DT")="2930722"
^DD(409.68,.03,0)="CLINIC STOP CODE^RP40.7'I^DIC(40.7,^0;3^Q"
^DD(409.68,.03,21,0)="^^2^2^2930511^"
^DD(409.68,.03,21,1,0)="This field contains the CLINIC STOP CODE associated with the outpatient"
^DD(409.68,.03,21,2,0)="encounter."
^DD(409.68,.03,"DT")="2930722"
^DD(409.68,.04,0)="LOCATION^P44'I^SC(^0;4^Q"
^DD(409.68,.04,21,0)="^^4^4^2930511^^"
^DD(409.68,.04,21,1,0)="This field contains the location, usually a clinic, where the encounter took"
^DD(409.68,.04,21,2,0)="place."
^DD(409.68,.04,21,3,0)=""
^DD(409.68,.04,21,4,0)="This field is optional."
^DD(409.68,.04,"DT")="2930722"
^DD(409.68,.05,0)="VISIT FILE ENTRY^P9000010^AUPNVSIT(^0;5^Q"
^DD(409.68,.05,1,0)="^.1"
^DD(409.68,.05,1,1,0)="409.68^AVSIT"
^DD(409.68,.05,1,1,1)="S ^SCE(""AVSIT"",$E(X,1,30),DA)="""""
^DD(409.68,.05,1,1,2)="K ^SCE(""AVSIT"",$E(X,1,30),DA)"
^DD(409.68,.05,1,1,"%D",0)="^^2^2^2930209^"
^DD(409.68,.05,1,1,"%D",1,0)="This is the standard cross reference set for the Visit Tracking"
^DD(409.68,.05,1,1,"%D",2,0)="application."
^DD(409.68,.05,1,1,"DT")="2930209"
^DD(409.68,.05,1,2,0)="409.68^AVCNT^MUMPS"
^DD(409.68,.05,1,2,1)="N SDX S SDX=X,X=""VSIT"" X ^%ZOSF(""TEST"") I $T S X=SDX D ADD^VSIT"
^DD(409.68,.05,1,2,2)="N SDX S SDX=X,X=""VSIT"" X ^%ZOSF(""TEST"") I $T S X=SDX D SUB^VSIT"
^DD(409.68,.05,1,2,"%D",0)="^^2^2^2930511^^^^"
^DD(409.68,.05,1,2,"%D",1,0)="This cross refernce calls Visit Tracking code to increment and"
^DD(409.68,.05,1,2,"%D",2,0)="decrement the VISIT file's DEPENDENT ENTRY COUNT field."
^DD(409.68,.05,1,2,"DT")="2930511"
^DD(409.68,.05,1,3,0)="^^TRIGGER^409.68^.2"
^DD(409.68,.05,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV S X=$$IEN2VID^VSIT(X) X ^DD(409.68,.05,1,3,1.4)"
^DD(409.68,.05,1,3,1.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,20)=DIV,DIH=409.68,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(409.68,.05,1,3,2)="Q"
^DD(409.68,.05,1,3,"%D",0)="^^1^1^2960506^^"
^DD(409.68,.05,1,3,"%D",1,0)="This trigger is to collect the Unique Visit ID when a Visit IEN is entered."
^DD(409.68,.05,1,3,"CREATE VALUE")="S X=$$IEN2VID^VSIT(X)"
^DD(409.68,.05,1,3,"DELETE VALUE")="NO EFFECT"
^DD(409.68,.05,1,3,"DT")="2960503"
^DD(409.68,.05,1,3,"FIELD")="UNIQ"
^DD(409.68,.05,3)=""
^DD(409.68,.05,21,0)="^^4^4^2930511^"
^DD(409.68,.05,21,1,0)="This field indicates the VISIT file entry associated with this encounter."
^DD(409.68,.05,21,2,0)=""
^DD(409.68,.05,21,3,0)="This field is  optional and will only be filled in if the site is running"
^DD(409.68,.05,21,4,0)="the Visit Tracking module."
^DD(409.68,.05,"DT")="2960503"
^DD(409.68,.06,0)="PARENT ENCOUNTER^P409.68'I^SCE(^0;6^Q"
^DD(409.68,.06,1,0)="^.1"
^DD(409.68,.06,1,1,0)="409.68^APAR"
^DD(409.68,.06,1,1,1)="S ^SCE(""APAR"",$E(X,1,30),DA)="""""
^DD(409.68,.06,1,1,2)="K ^SCE(""APAR"",$E(X,1,30),DA)"
^DD(409.68,.06,1,1,"%D",0)="^^2^2^2930209^"
^DD(409.68,.06,1,1,"%D",1,0)="Cross reference to be used to find outpatient encounters that are associated"
^DD(409.68,.06,1,1,"%D",2,0)="with other encounters."
^DD(409.68,.06,1,1,"DT")="2930209"
^DD(409.68,.06,1,2,0)="^^TRIGGER^409.68^.07"
^DD(409.68,.06,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P($G(^SCE(+X,0)),U,7) X ^DD(409.68,.06,1,2,1.4)"
^DD(409.68,.06,1,2,1.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=409.68,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.68,.06,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=409.68,DIG=.07 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.68,.06,1,2,"%D",0)="^^2^2^2930420^"
^DD(409.68,.06,1,2,"%D",1,0)=" "
^DD(409.68,.06,1,2,"%D",2,0)="Update children's completion date/time with parent's."
^DD(409.68,.06,1,2,"CREATE VALUE")="S X=$P($G(^SCE(+X,0)),U,7)"
^DD(409.68,.06,1,2,"DELETE VALUE")="@"
^DD(409.68,.06,1,2,"DT")="2930420"
^DD(409.68,.06,1,2,"FIELD")="CHECK OUT PROCESS COMPLETION"
^DD(409.68,.06,21,0)="^^7^7^2930511^"
^DD(409.68,.06,21,1,0)="This field associates the current encounter with a parent encounter."
^DD(409.68,.06,21,2,0)="For example, if there are add/edit stop codes associated with an"
^DD(409.68,.06,21,3,0)="appointment, then all the add/edit encounter entries will have"
^DD(409.68,.06,21,4,0)="this parent field filled in with the appointment encounter."
^DD(409.68,.06,21,5,0)=""
^DD(409.68,.06,21,6,0)="This relationship allows the check out software to use the check out"
^DD(409.68,.06,21,7,0)="information of the appointment for the add/edits, as well."
^DD(409.68,.06,"DT")="2930722"
^DD(409.68,.07,0)="CHECK OUT PROCESS COMPLETION^D^^0;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.68,.07,.1)="CHECK OUT PROCESS COMPLETION DATE"
^DD(409.68,.07,1,0)="^.1"
^DD(409.68,.07,1,1,0)="409.68^ANT^MUMPS"
^DD(409.68,.07,1,1,1)="D OE^SDM1A(DA,""SET"")"
^DD(409.68,.07,1,1,2)="D OE^SDM1A(DA,""KILL"")"
^DD(409.68,.07,1,1,"%D",0)="^^2^2^2930311^^"
^DD(409.68,.07,1,1,"%D",1,0)="This MUMPS cross reference updates the appointment status field"
^DD(409.68,.07,1,1,"%D",2,0)="in the patient file."
^DD(409.68,.07,1,1,"DT")="2930311"
^DD(409.68,.07,1,2,0)="^^TRIGGER^409.68^.12"
^DD(409.68,.07,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(409.68,.07,1,2,1.1) X ^DD(409.68,.07,1,2,1.4)"
^DD(409.68,.07,1,2,1.1)="S X=DIV N Y S Y=^SCE(DA,0) S X=$$STATUS^SDVSIT0(+$P(Y,U,2),+Y,+$P(Y,U,4),+$P(Y,U,8),""SET"")"
^DD(409.68,.07,1,2,1.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=409.68,DIG=.12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.68,.07,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SCE(D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(409.68,.07,1,2,2.1) X ^DD(409.68,.07,1,2,2.4)"
^DD(409.68,.07,1,2,2.1)="S X=DIV N Y S Y=^SCE(DA,0) S X=$$STATUS^SDVSIT0(+$P(Y,U,2),+Y,+$P(Y,U,4),+$P(Y,U,8),""KILL"")"
^DD(409.68,.07,1,2,2.4)="S DIH=$S($D(^SCE(DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=409.68,DIG=.12 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(409.68,.07,1,2,"%D",0)="^^10^10^2930503^"
^DD(409.68,.07,1,2,"%D",1,0)=" "
^DD(409.68,.07,1,2,"%D",2,0)="This trigger updates the STATUS(#.12) field."
^DD(409.68,.07,1,2,"%D",3,0)=" "
^DD(409.68,.07,1,2,"%D",4,0)="If the patient was an inpatient at the time of the encounter then the"
^DD(409.68,.07,1,2,"%D",5,0)="status will always be 'INPATIENT' regardless if the encounter was checked"
^DD(409.68,.07,1,2,"%D",6,0)="out or not."
^DD(409.68,.07,1,2,"%D",7,0)=" "
^DD(409.68,.07,1,2,"%D",8,0)="Also, if the encounter was an appointment and the clinic is a non-count"
^DD(409.68,.07,1,2,"%D",9,0)="clinic then the status will always be 'NON-COUNT' regardless if the"
^DD(409.68,.07,1,2,"%D",10,0)="encounter was checked out ot not."
^DD(409.68,.07,1,2,"CREATE VALUE")="N Y S Y=^SCE(DA,0) S X=$$STATUS^SDVSIT0(+$P(Y,U,2),+Y,+$P(Y,U,4),+$P(Y,U,8),""SET"")"
^DD(409.68,.07,1,2,"DELETE VALUE")="N Y S Y=^SCE(DA,0) S X=$$STATUS^SDVSIT0(+$P(Y,U,2),+Y,+$P(Y,U,4),+$P(Y,U,8),""KILL"")"
^DD(409.68,.07,1,2,"DT")="2930503"
^DD(409.68,.07,1,2,"FIELD")="STATUS"
^DD(409.68,.07,1,3,0)="409.68^ACHILD^MUMPS"
^DD(409.68,.07,1,3,1)="D SET^SDCOU(DA,X)"
^DD(409.68,.07,1,3,2)="D KILL^SDCOU(DA,X)"
^DD(409.68,.07,1,3,"%D",0)="^^3^3^2930410^"
^DD(409.68,.07,1,3,"%D",1,0)=" "
^DD(409.68,.07,1,3,"%D",2,0)="This cross reference updates the 'CHECK OUT PROCESS COMPLETION field"
^DD(409.68,.07,1,3,"%D",3,0)="of the 'children' entries."
^DD(409.68,.07,1,3,"DT")="2930410"
^DD(409.68,.07,3)=""
^DD(409.68,.07,5,1,0)="409.68^.06^2"
^DD(409.68,.07,21,0)="^^2^2^2930511^^"
^DD(409.68,.07,21,1,0)="This field indicates the check out process has been successfully"
^DD(409.68,.07,21,2,0)="completed for this outpatient encounter."
^DD(409.68,.07,23,0)="^^1^1^2930312^^"
^DD(409.68,.07,23,1,0)=" "
^DD(409.68,.07,"DT")="2930503"
^DD(409.68,.08,0)="ORIGINATING PROCESS TYPE^RSI^1:APPOINTMENT;2:STOP CODE ADDITION;3:DISPOSITION;4:CREDIT STOP CODE;^0;8^Q"
^DD(409.68,.08,21,0)="^^6^6^2930511^"
^DD(409.68,.08,21,1,0)="This field indicates the type of process that created this encounter."
^DD(409.68,.08,21,2,0)="The types are the follwoing:"
^DD(409.68,.08,21,3,0)="       1 - appointment"
^DD(409.68,.08,21,4,0)="       2 - add/edit stop code"
^DD(409.68,.08,21,5,0)="       3 - disposition"
^DD(409.68,.08,21,6,0)=""
^DD(409.68,.08,"DT")="2930722"
^DD(409.68,.09,0)="EXTENDED REFERENCE^FI^^0;9^K:$L(X)>60!($L(X)<1) X"
^DD(409.68,.09,3)="Answer must be 1-60 characters in length."
^DD(409.68,.09,21,0)="^^24^24^2991228^"
^DD(409.68,.09,21,1,0)="This field indicates the internal multiple entry of the originating"
^DD(409.68,.09,21,2,0)="process that created the encounter."
^DD(409.68,.09,21,3,0)=" "
^DD(409.68,.09,21,4,0)="The reference mapping is the following:"
^DD(409.68,.09,21,5,0)=" "
^DD(409.68,.09,21,6,0)="        Originating Process    Global Reference"
^DD(409.68,.09,21,7,0)="        -------------------    ----------------"
^DD(409.68,.09,21,8,0)="        1 - appointments       ^SC(<LOCATION>,""S"",<DATE/TIME>,1,<EXTERNAL REF>)"
^DD(409.68,.09,21,9,0)="            Note: If this field is equal to 999999, it means that the"
^DD(409.68,.09,21,10,0)="                  appointment encounter was created by the ACRP Database"
^DD(409.68,.09,21,11,0)="                  Conversion functionality in patch SD*5.3*211. The 999999"
^DD(409.68,.09,21,12,0)="                  indicates that the above ^SC node did not exist at the"
^DD(409.68,.09,21,13,0)="                  time of the conversion. The node did not exist because it"
^DD(409.68,.09,21,14,0)="                  had been purged. The conversion set and then killed the"
^DD(409.68,.09,21,15,0)="                  psuedo 999999 node in order to create the encounter."
^DD(409.68,.09,21,16,0)="  "
^DD(409.68,.09,21,17,0)="                  As a result, the 999999 also means that the ELIGIBILITY"
^DD(409.68,.09,21,18,0)="                  OF ENCOUNTER (#.13) for the encounter was the patient's"
^DD(409.68,.09,21,19,0)="                  primary eligibility at the time of the conversion, since"
^DD(409.68,.09,21,20,0)="                  no history exists."
^DD(409.68,.09,21,21,0)=" "
^DD(409.68,.09,21,22,0)="        2 - add/edits          Always null ; not applicable"
^DD(409.68,.09,21,23,0)=" "
^DD(409.68,.09,21,24,0)="        3 - dispositions       ^DPT(<PATIENT>,""DIS"",<EXTERNAL REFERENCE>)"
^DD(409.68,.09,"DT")="2960607"
^DD(409.68,.1,0)="APPOINTMENT TYPE^RP409.1'^SD(409.1,^0;10^Q"
^DD(409.68,.1,1,0)="^.1"
^DD(409.68,.1,1,1,0)="409.68^ACG^MUMPS"
^DD(409.68,.1,1,1,1)="N SD0 S SD0=$G(^SCE(DA,0)) IF +SD0,X=10 S ^SCE(""ACG"",+SD0,DA)="""""
^DD(409.68,.1,1,1,2)="N SD0 S SD0=$G(^SCE(DA,0)) IF +SD0,X=10 K ^SCE(""ACG"",+SD0,DA)"
^DD(409.68,.1,1,1,"%D",0)="^^2^2^2970827^^"
^DD(409.68,.1,1,1,"%D",1,0)="Used to quickly find entries that have a 'computer generated' appointment"
^DD(409.68,.1,1,1,"%D",2,0)="type."
^DD(409.68,.1,1,1,"DT")="2970827"
^DD(409.68,.1,5,1,0)="2.98^9.5^1"
^DD(409.68,.1,5,2,0)="409.51^5^4"
^DD(409.68,.1,21,0)="^^2^2^2930511^"
^DD(409.68,.1,21,1,0)="This field contains the appointment type assoicated with the"
^DD(409.68,.1,21,2,0)="outpatient encounter."
^DD(409.68,.1,"DT")="2970828"
^DD(409.68,.11,0)="MEDICAL CENTER DIVISION^RP40.8'I^DG(40.8,^0;11^Q"
^DD(409.68,.11,21,0)="^^2^2^2930511^"
^DD(409.68,.11,21,1,0)="This field indicates the medical center division where the encounter"
^DD(409.68,.11,21,2,0)="took place."
^DD(409.68,.11,"DT")="2930722"
^DD(409.68,.12,0)="STATUS^P409.63'^SD(409.63,^0;12^Q"
^DD(409.68,.12,5,1,0)="409.68^.07^2"
^DD(409.68,.12,21,0)="^^9^9^2930511^"
^DD(409.68,.12,21,1,0)="This field indicates the status of the encounter. Currently, the only possible"
^DD(409.68,.12,21,2,0)="statuses are the following:"
^DD(409.68,.12,21,3,0)="       CHECKED OUT"
^DD(409.68,.12,21,4,0)="       PENDING ACTION"
^DD(409.68,.12,21,5,0)="       INPATIENT APPOINTMENT"
^DD(409.68,.12,21,6,0)="       NON-COUNT"
^DD(409.68,.12,21,7,0)=""
^DD(409.68,.12,21,8,0)="Future, no-showed and cancelled appointments are not included in this file"
^DD(409.68,.12,21,9,0)="at the present time."
^DD(409.68,.12,"DT")="2930406"
^DD(409.68,.13,0)="ELIGIBILITY OF ENCOUNTER^RP8'I^DIC(8,^0;13^Q"
^DD(409.68,.13,5,1,0)="2.101^13^1"
^DD(409.68,.13,5,2,0)="409.51^4^1"
^DD(409.68,.13,21,0)="^^1^1^2930511^"
^DD(409.68,.13,21,1,0)="This field contains the eligibility associated with the encounter."
^DD(409.68,.13,"DT")="2930722"
^DD(409.68,.2,0)="UNIQUE VISIT NUMBER^F^^0;20^K:$L(X)>12!($L(X)<1) X"
^DD(409.68,.2,3)="Answer must be 1-12 characters in length."
^DD(409.68,.2,5,1,0)="409.68^.05^3"
^DD(409.68,.2,21,0)="^^4^4^2960503^"
^DD(409.68,.2,21,1,0)="This is the unique visit ID created by PCE.  It is stored for every"
^DD(409.68,.2,21,2,0)="encounter.  This number will be obtained from a supported call provided"
^DD(409.68,.2,21,3,0)="by PCE."
^DD(409.68,.2,21,4,0)=" "
^DD(409.68,.2,"DT")="2960503"
^DD(409.68,101,0)="EDITED LAST BY^P200'^VA(200,^USER;1^Q"
^DD(409.68,101,21,0)="^^1^1^2970827^^"
^DD(409.68,101,21,1,0)="This field records the user who last edited the entry."
^DD(409.68,101,23,0)="^^2^2^2970827^^^"
^DD(409.68,101,23,1,0)="This field is automatically entered by the software and requires n"
^DD(409.68,101,23,2,0)="user input."
^DD(409.68,101,"DT")="2970827"
^DD(409.68,102,0)="DATE/TIME LAST EDITED^D^^USER;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.68,102,21,0)="^^1^1^2980331^"
^DD(409.68,102,21,1,0)="This field contains the date/time that the entry was last edited.  "
^DD(409.68,102,23,0)="^^2^2^2980331^^"
^DD(409.68,102,23,1,0)="This field is automatically entered by the software and requires n"
^DD(409.68,102,23,2,0)="user input."
^DD(409.68,102,"DT")="2970827"
^DD(409.68,103,0)="CREATED BY^P200'^VA(200,^USER;3^Q"
^DD(409.68,103,21,0)="^^1^1^2970827^"
^DD(409.68,103,21,1,0)="This field records the user who created the entry."
^DD(409.68,103,23,0)="^^2^2^2970827^^^"
^DD(409.68,103,23,1,0)="This field is automatically set as part of the SD ENCOUNTER ENTRY input"
^DD(409.68,103,23,2,0)="template. This template is executed whenever a new entry is created."
^DD(409.68,103,"DT")="2970827"
^DD(409.68,104,0)="DATE/TIME CREATED^D^^USER;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.68,104,21,0)="^^1^1^2970827^^"
^DD(409.68,104,21,1,0)="This field contains the date/time that the entry was made."
^DD(409.68,104,23,0)="^^3^3^2970827^^"
^DD(409.68,104,23,1,0)="This field is automatically set as part of the SD ENCOUNTER ENTRY input"
^DD(409.68,104,23,2,0)="template. This template is executed whenever a new entry is created."
^DD(409.68,104,23,3,0)=""
^DD(409.68,104,"DT")="2970827"
^DD(409.68,201,0)="COMPUTER GENERATED?^SI^0:NO;1:YES;^CG;1^Q"
^DD(409.68,201,1,0)="^.1"
^DD(409.68,201,1,1,0)="409.68^AG^MUMPS"
^DD(409.68,201,1,1,1)="N SD0 S SD0=$G(^SCE(DA,0)) IF +SD0,X S ^SCE(""AG"",+SD0,DA)="""""
^DD(409.68,201,1,1,2)="N SD0 S SD0=$G(^SCE(DA,0)) IF +SD0,X K ^SCE(""AG"",+SD0,DA)"
^DD(409.68,201,1,1,"%D",0)="^^1^1^2970827^^"
^DD(409.68,201,1,1,"%D",1,0)="Used to quickly identify entries 'auto-generated' by other pacakges."
^DD(409.68,201,1,1,"DT")="2970827"
^DD(409.68,201,21,0)="^^3^3^2970826^"
^DD(409.68,201,21,1,0)=" This field is used for data validation. It helps determine which entries"
^DD(409.68,201,21,2,0)=" were automatically generated by outside packages. This field should not be"
^DD(409.68,201,21,3,0)=" editied."
^DD(409.68,201,23,0)="^^1^1^2970826^"
^DD(409.68,201,23,1,0)="This field is updated via PCE event driver."
^DD(409.68,201,"DT")="2970827"
^DD(409.68,202,0)="UNRESOLVED APPT TYPE REASON^S^1:DUAL ELIGIBILITY;2:POSSIBLE COMP & PEN;^CG;2^Q"
^DD(409.68,202,21,0)="^^14^14^2970826^"
^DD(409.68,202,21,1,0)=" If visit has an appointment type of computer generated, the"
^DD(409.68,202,21,2,0)=" UNRESOLVED APPT TYPE REASON field will also be stuffed with the best"
^DD(409.68,202,21,3,0)=" possible reason why an appropriate appointment type could not be"
^DD(409.68,202,21,4,0)=" determined."
^DD(409.68,202,21,5,0)=""
^DD(409.68,202,21,6,0)=" Currently, if a patient has a comp and pen exam within the last"
^DD(409.68,202,21,7,0)=" three days of the visit date which is computer generated the"
^DD(409.68,202,21,8,0)=" unresolved reason will be POSSIBLE COMP & PEN."
^DD(409.68,202,21,9,0)=""
^DD(409.68,202,21,10,0)=" If a patient has a dual eligibility and one of those eligibilities"
^DD(409.68,202,21,11,0)=" is Sharing Agreement, Employee, or Collateral, the unresolved reason"
^DD(409.68,202,21,12,0)=" will be DUAL ELIGIBILITY."
^DD(409.68,202,21,13,0)=""
^DD(409.68,202,21,14,0)=" If there is a scenario where both apply, the default is POSSIBLE COMP & PEN."
^DD(409.68,202,23,0)="^^1^1^2970826^"
^DD(409.68,202,23,1,0)="This field is updated via PCE event driver functionality."
^DD(409.68,202,"DT")="2970826"
^DD(409.68,901,0)="CREATED BY CONVERSION^S^0:NO;1:YES;^CNV;1^Q"
^DD(409.68,901,21,0)="^^2^2^2991228^"
^DD(409.68,901,21,1,0)="This field is set to 'Yes' if the encounter is created by the"
^DD(409.68,901,21,2,0)="ACRP Database Conversion patch (SD*5.3*211)."
^DD(409.68,901,"DT")="2960201"
^DD(409.68,902,0)="ORIGINAL CREATE DT FROM 'SDV'^D^^CNV;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.68,902,21,0)="^^4^4^2991228^"
^DD(409.68,902,21,1,0)="If this encounter was created by the ACRP Database Conversion"
^DD(409.68,902,21,2,0)="patch (SD*5.3*211) from an entry in the SCHEDULING VISITS (#409.5)"
^DD(409.68,902,21,3,0)="file then this field contains the date that the original entry in"
^DD(409.68,902,21,4,0)="the SCHEDULING VISITS file was created."
^DD(409.68,902,"DT")="2980105"
^DD(409.68,903,0)="NON-HISTORICAL STOP CODE USED^S^0:NO;1:YES;^CNV;3^Q"
^DD(409.68,903,21,0)="^^8^8^2991228^"
^DD(409.68,903,21,1,0)="This field is set to ""YES"" if this encounter was created by ACRP"
^DD(409.68,903,21,2,0)="Database Conversion patch (SD*5.3*211) and the stop code associated with"
^DD(409.68,903,21,3,0)="the encounter was obtained from the HOSPITAL LOCATION (#44) file entry"
^DD(409.68,903,21,4,0)="for the clinic at the time of the conversion."
^DD(409.68,903,21,5,0)=" "
^DD(409.68,903,21,6,0)="In other words, there was no mechanism available to absolutely determine the"
^DD(409.68,903,21,7,0)="historical value of either a clinic stop code or a credit stop code for"
^DD(409.68,903,21,8,0)="a clinic at the time the encounter actually occurred."
^DD(409.68,903,"DT")="2980217"
^DD(409.68,904,0)="CONVERSION COMPLETED^S^0:NO;1:YES;^CNV;4^Q"
^DD(409.68,904,3)="Respond yes or no"
^DD(409.68,904,21,0)="^^2^2^2980406^^"
^DD(409.68,904,21,1,0)="This field indicates whether or not the conversion process has been"
^DD(409.68,904,21,2,0)="completed for this encounter."
^DD(409.68,904,"DT")="2980406"
^DD(409.68,905,0)="DATE OF LAST CONVERSION^D^^CNV;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.68,905,3)="ENTER THE DATE THIS ENCOUNTER WAS LAST CONVERTED"
^DD(409.68,905,21,0)="^^2^2^2980406^"
^DD(409.68,905,21,1,0)="This is the date that the conversion process was last completed for this"
^DD(409.68,905,21,2,0)="encounter."
^DD(409.68,905,"DT")="2980406"
^DD(409.68,"B","APPOINTMENT TYPE",.1)=""
^DD(409.68,"B","CHECK OUT PROCESS COMPLETION",.07)=""
^DD(409.68,"B","CLINIC STOP CODE",.03)=""
^DD(409.68,"B","COMPUTER GENERATED?",201)=""
^DD(409.68,"B","CONVERSION COMPLETED",904)=""
^DD(409.68,"B","CREATED BY",103)=""
^DD(409.68,"B","CREATED BY CONVERSION",901)=""
^DD(409.68,"B","DATE",.01)=""
^DD(409.68,"B","DATE OF LAST CONVERSION",905)=""
^DD(409.68,"B","DATE/TIME CREATED",104)=""
^DD(409.68,"B","DATE/TIME LAST EDITED",102)=""
^DD(409.68,"B","EDITED LAST BY",101)=""
^DD(409.68,"B","ELIGIBILITY OF ENCOUNTER",.13)=""
^DD(409.68,"B","EXTENDED REFERENCE",.09)=""
^DD(409.68,"B","LOCATION",.04)=""
^DD(409.68,"B","MEDICAL CENTER DIVISION",.11)=""
^DD(409.68,"B","NON-HISTORICAL STOP CODE USED",903)=""
^DD(409.68,"B","ORIGINAL CREATE DT FROM 'SDV'",902)=""
^DD(409.68,"B","ORIGINATING PROCESS TYPE",.08)=""
^DD(409.68,"B","PARENT ENCOUNTER",.06)=""
^DD(409.68,"B","PATIENT",.02)=""
^DD(409.68,"B","STATUS",.12)=""
^DD(409.68,"B","UNIQUE VISIT NUMBER",.2)=""
^DD(409.68,"B","UNRESOLVED APPT TYPE REASON",202)=""
^DD(409.68,"B","VISIT FILE ENTRY",.05)=""
^DD(409.68,"GL",0,1,.01)=""
^DD(409.68,"GL",0,2,.02)=""
^DD(409.68,"GL",0,3,.03)=""
^DD(409.68,"GL",0,4,.04)=""
^DD(409.68,"GL",0,5,.05)=""
^DD(409.68,"GL",0,6,.06)=""
^DD(409.68,"GL",0,7,.07)=""
^DD(409.68,"GL",0,8,.08)=""
^DD(409.68,"GL",0,9,.09)=""
^DD(409.68,"GL",0,10,.1)=""
^DD(409.68,"GL",0,11,.11)=""
^DD(409.68,"GL",0,12,.12)=""
^DD(409.68,"GL",0,13,.13)=""
^DD(409.68,"GL",0,20,.2)=""
^DD(409.68,"GL","CG",1,201)=""
^DD(409.68,"GL","CG",2,202)=""
^DD(409.68,"GL","CNV",1,901)=""
^DD(409.68,"GL","CNV",2,902)=""
^DD(409.68,"GL","CNV",3,903)=""
^DD(409.68,"GL","CNV",4,904)=""
^DD(409.68,"GL","CNV",5,905)=""
^DD(409.68,"GL","USER",1,101)=""
^DD(409.68,"GL","USER",2,102)=""
^DD(409.68,"GL","USER",3,103)=""
^DD(409.68,"GL","USER",4,104)=""
^DD(409.68,"IX",.01)=""
^DD(409.68,"IX",.02)=""
^DD(409.68,"IX",.05)=""
^DD(409.68,"IX",.06)=""
^DD(409.68,"IX",.07)=""
^DD(409.68,"IX",.1)=""
^DD(409.68,"IX",201)=""
^DD(409.68,"RQ",.01)=""
^DD(409.68,"RQ",.02)=""
^DD(409.68,"RQ",.03)=""
^DD(409.68,"RQ",.08)=""
^DD(409.68,"RQ",.1)=""
^DD(409.68,"RQ",.11)=""
^DD(409.68,"RQ",.13)=""
^DD(409.69,0)="PATIENT SUB-FIELD^^9^10"
^DD(409.69,0,"DT")="3040126"
^DD(409.69,0,"IX","B",409.69,.01)=""
^DD(409.69,0,"NM","PATIENT")=""
^DD(409.69,0,"UP")="409.6"
^DD(409.69,.01,0)="PATIENT^P2'^DPT(^0;1^Q"
^DD(409.69,.01,1,0)="^.1"
^DD(409.69,.01,1,1,0)="409.69^B"
^DD(409.69,.01,1,1,1)="S ^SDWL(409.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.69,.01,1,1,2)="K ^SDWL(409.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.69,.01,3)="The patient whose appoinment is being transmitted"
^DD(409.69,.01,21,0)="^.001^2^2^3040121^^"
^DD(409.69,.01,21,1,0)="This subfield will hold the pointer to the Patient file to identify a name"
^DD(409.69,.01,21,2,0)="of each patient whose appointment information is being transmitted."
^DD(409.69,.01,"DT")="3030929"
^DD(409.69,1,0)="APPT DATE^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(409.69,1,3)="Scheduled date/time of the transmitted appointment"
^DD(409.69,1,21,0)="^^3^3^3040121^"
^DD(409.69,1,21,1,0)="This is the date/timen the appointment was scheduled for by the scheduling"
^DD(409.69,1,21,2,0)="package. This date and the appointment creation date is used in the "
^DD(409.69,1,21,3,0)="patient wait time calculation."
^DD(409.69,1,"DT")="3040121"
^DD(409.69,2,0)="HL7 MESSAGE ID^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(409.69,2,3)="The HL7 message number."
^DD(409.69,2,21,0)="^.001^6^6^3041005^^^^"
^DD(409.69,2,21,1,0)="This field represents the HL7 message number.  The message number is used in"
^DD(409.69,2,21,2,0)="conjunction with incoming HL7 acknowledgement messages to identify the "
^DD(409.69,2,21,3,0)="original extract message. This message # corresponds to the Message Control "
^DD(409.69,2,21,4,0)="ID in MSG segment. Each message # corresponds to a unique batch # and that"
^DD(409.69,2,21,5,0)="relation is identified in the Batch Tracking multiple  (#3) where it is"
^DD(409.69,2,21,6,0)="represented as the MESSAGE CONTROL ID field (#.03)."
^DD(409.69,2,23,0)="^.001^2^2^3041005^^^"
^DD(409.69,2,23,1,0)="The first three digits represent site number and by dropping it you have"
^DD(409.69,2,23,2,0)="the Internal Entry Number of the HL7 MESSAGE TEXT file (#772). "
^DD(409.69,2,"DT")="3041005"
^DD(409.69,3,0)="HL7 SEQUENCE ID^RF^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(409.69,3,3)="Sequence # of this message within the batch"
^DD(409.69,3,21,0)="^^1^1^3040121^"
^DD(409.69,3,21,1,0)="This number corresponds to a location of this nessage within the Batch #."
^DD(409.69,3,"DT")="3040120"
^DD(409.69,4,0)="RETENTION FLAG^RS^Y:YES - to be sent when 'Final';N:NO - was sent as 'Final';S:SENT as 'Final' with another entry;R:RESENT - because of rejection;^0;5^Q"
^DD(409.69,4,.1)="RETENTION FLAG INDICATING STATUS OF RECORD"
^DD(409.69,4,3)="Will the entry be retained for next transmission"
^DD(409.69,4,21,0)="^.001^4^4^3040121^^"
^DD(409.69,4,21,1,0)="This flag will determine if the entry is to remain in the file to be "
^DD(409.69,4,21,2,0)="transmitted on the subsequent run. Also it may indicate that another "
^DD(409.69,4,21,3,0)="entry was created because of 'S' - sending as final or 'R' - resending "
^DD(409.69,4,21,4,0)="because of rejection."
^DD(409.69,4,"DT")="3030919"
^DD(409.69,5,0)="EVENT REASON^S^CI:Check-in;NS:No Show;CC:Canceled by Clinic;CP:Canceled by Patient;COE:Checked out by Encounter;NM:No Match;CO:Checked-out;CT:Canceled Terminated;^0;6^Q"
^DD(409.69,5,3)=""
^DD(409.69,5,21,0)="^.001^1^1^3040121^^^^"
^DD(409.69,5,21,1,0)="Event reason code as it is files into SCH.6 segment of HL7 message."
^DD(409.69,5,"DT")="3040121"
^DD(409.69,6,0)="DATE APPT MADE^RD^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.69,6,3)="(No range limit on date)"
^DD(409.69,6,21,0)="^^1^1^3040121^"
^DD(409.69,6,21,1,0)="This is the date when an appointment was created."
^DD(409.69,6,"DT")="3040121"
^DD(409.69,7,0)="ERROR MESSAGE^P404.472'^SCPT(404.472,^0;8^Q"
^DD(409.69,7,.1)="Optional Error Flag or Error Code indicating rejection"
^DD(409.69,7,3)=""
^DD(409.69,7,21,0)="^.001^3^3^3040126^^^^"
^DD(409.69,7,21,1,0)="If the Error Flag as 'R' or numeric error code is"
^DD(409.69,7,21,2,0)="entered it means that that appointment has to"
^DD(409.69,7,21,3,0)="be resent with its current status. A new entry will be created."
^DD(409.69,7,"DT")="3040126"
^DD(409.69,8,0)="APPOINTMENT TYPE^S^AR:Action Required;NAT:No Action Taken;F:Future;NC:Non Count;I:Inpatient;NCF:Non Count Future;ABK:Auto Rebook;RS:Rescheduled;O:Outpatient;RSN:Rescheduled Non Count;^0;9^Q"
^DD(409.69,8,3)=""
^DD(409.69,8,21,0)="^.001^2^2^3040921^^"
^DD(409.69,8,21,1,0)="This field records a descriptive code of the appointment type and it "
^DD(409.69,8,21,2,0)="implements the Event Reason as the appointment identifier."
^DD(409.69,8,"DT")="3040921"
^DD(409.69,9,0)="CLINIC^P44'^SC(^0;10^Q"
^DD(409.69,9,"DT")="3031229"
^DD(409.69,"B","APPOINTMENT TYPE",8)=""
^DD(409.69,"B","APPT DATE",1)=""
^DD(409.69,"B","CLINIC",9)=""
^DD(409.69,"B","DATE APPT MADE",6)=""
^DD(409.69,"B","ERROR MESSAGE",7)=""
^DD(409.69,"B","EVENT REASON",5)=""
^DD(409.69,"B","HL7 MESSAGE ID",2)=""
^DD(409.69,"B","HL7 SEQUENCE ID",3)=""
^DD(409.69,"B","PATIENT",.01)=""
^DD(409.69,"B","RETENTION FLAG",4)=""
^DD(409.69,"GL",0,1,.01)=""
^DD(409.69,"GL",0,2,1)=""
^DD(409.69,"GL",0,3,2)=""
^DD(409.69,"GL",0,4,3)=""
^DD(409.69,"GL",0,5,4)=""
^DD(409.69,"GL",0,6,5)=""
^DD(409.69,"GL",0,7,6)=""
^DD(409.69,"GL",0,8,7)=""
^DD(409.69,"GL",0,9,8)=""
^DD(409.69,"GL",0,10,9)=""
^DD(409.69,"IX",.01)=""
^DD(409.69,"RQ",3)=""
^DD(409.69,"RQ",4)=""
^DD(409.69,"RQ",6)=""
^DD(409.7,0)="BATCH TRACKING SUB-FIELD^^.05^5"
^DD(409.7,0,"DT")="3040210"
^DD(409.7,0,"IX","B",409.7,.01)=""
^DD(409.7,0,"NM","BATCH TRACKING")=""
^DD(409.7,0,"UP")="409.6"
^DD(409.7,.01,0)="BATCH CONTROL ID^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(409.7,.01,1,0)="^.1"
^DD(409.7,.01,1,1,0)="409.7^B"
^DD(409.7,.01,1,1,1)="S ^SDWL(409.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(409.7,.01,1,1,2)="K ^SDWL(409.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(409.7,.01,3)="Answer must be 1-30 characters in length."
^DD(409.7,.01,21,0)="^^1^1^3040121^"
^DD(409.7,.01,21,1,0)="This fields corresponds to the Batch Control ID from the BSH segment."
^DD(409.7,.01,"DT")="3040108"
^DD(409.7,.02,0)="BATCH CREATE DATE/TIME^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.7,.02,21,0)="^.001^1^1^3040121^^"
^DD(409.7,.02,21,1,0)="The date/time HL7 packages creates the batch message."
^DD(409.7,.02,"DT")="3031224"
^DD(409.7,.03,0)="MESSAGE CONTROL ID^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(409.7,.03,3)="Answer must be 1-30 characters in length."
^DD(409.7,.03,21,0)="^^1^1^3040121^"
^DD(409.7,.03,21,1,0)="This fields corresponds to the Message Control ID from MSH segment."
^DD(409.7,.03,"DT")="3040121"
^DD(409.7,.04,0)="APPLICATION ACK DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.7,.04,21,0)="^.001^2^2^3040121^^^^"
^DD(409.7,.04,21,1,0)="This is the date/time Vista HL7 receives the application acknowledgement "
^DD(409.7,.04,21,2,0)="from the Vista Interface Engine."
^DD(409.7,.04,"DT")="3031224"
^DD(409.7,.05,0)="APPLICATION ACK TYPE^S^AA:APPLICATION ACCEPT;AE:APPLICATION ERROR;AR:APPLICATION REJECT;MR:MANUAL REJECTION;^0;5^Q"
^DD(409.7,.05,"DT")="3040210"
^DD(409.7,"B","APPLICATION ACK DATE/TIME",.04)=""
^DD(409.7,"B","APPLICATION ACK TYPE",.05)=""
^DD(409.7,"B","BATCH CONTROL ID",.01)=""
^DD(409.7,"B","BATCH CREATE DATE/TIME",.02)=""
^DD(409.7,"B","MESSAGE CONTROL ID",.03)=""
^DD(409.7,"GL",0,1,.01)=""
^DD(409.7,"GL",0,2,.02)=""
^DD(409.7,"GL",0,3,.03)=""
^DD(409.7,"GL",0,4,.04)=""
^DD(409.7,"GL",0,5,.05)=""
^DD(409.7,"IX",.01)=""
^DD(409.73,0)="FIELD^^20.06^18"
^DD(409.73,0,"DDA")="N"
^DD(409.73,0,"DT")="2960429"
^DD(409.73,0,"IX","AACBID",409.73,13)=""
^DD(409.73,0,"IX","AACLST",409.73,11)=""
^DD(409.73,0,"IX","AACMID",409.73,12)=""
^DD(409.73,0,"IX","AACNA1",409.73,11)=""
^DD(409.73,0,"IX","AACNA2",409.73,14)=""
^DD(409.73,0,"IX","AACXMIT1",409.73,.04)=""
^DD(409.73,0,"IX","AACXMIT2",409.73,.06)=""
^DD(409.73,0,"IX","ADEL",409.73,.03)=""
^DD(409.73,0,"IX","AENC",409.73,.02)=""
^DD(409.73,0,"IX","B",409.73,.01)=""
^DD(409.73,0,"NM","TRANSMITTED OUTPATIENT ENCOUNTER")=""
^DD(409.73,0,"PT",409.75,.01)=""
^DD(409.73,0,"PT",409.77,.01)=""
^DD(409.73,0,"VR")="5.3"
^DD(409.73,0,"VRPK")="SD"
^DD(409.73,.01,0)="NUMBER^RNJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.73,.01,.1)="Number"
^DD(409.73,.01,1,0)="^.1"
^DD(409.73,.01,1,1,0)="409.73^B"
^DD(409.73,.01,1,1,1)="S ^SD(409.73,""B"",$E(X,1,30),DA)="""""
^DD(409.73,.01,1,1,2)="K ^SD(409.73,""B"",$E(X,1,30),DA)"
^DD(409.73,.01,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(409.73,.01,7.5)="I X=""+"" S X=$$AUTO^SCDXFX01()"
^DD(409.73,.01,21,0)="^^3^3^2960430^"
^DD(409.73,.01,21,1,0)="Number to uniquely identify entries in the file."
^DD(409.73,.01,21,2,0)=" "
^DD(409.73,.01,21,3,0)="This number is automatically generated if a value of '+' is entered."
^DD(409.73,.01,"DT")="2960429"
^DD(409.73,.02,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;2^Q"
^DD(409.73,.02,.1)="Outpatient Encounter"
^DD(409.73,.02,1,0)="^.1"
^DD(409.73,.02,1,1,0)="409.73^AENC"
^DD(409.73,.02,1,1,1)="S ^SD(409.73,""AENC"",$E(X,1,30),DA)="""""
^DD(409.73,.02,1,1,2)="K ^SD(409.73,""AENC"",$E(X,1,30),DA)"
^DD(409.73,.02,1,1,"%D",0)="^^10^10^2960502^"
^DD(409.73,.02,1,1,"%D",1,0)="Cross reference for sorting entries that point to the OUTPATIENT"
^DD(409.73,.02,1,1,"%D",2,0)="ENCOUNTER file (#409.68)."
^DD(409.73,.02,1,1,"%D",3,0)=" "
^DD(409.73,.02,1,1,"%D",4,0)=" "
^DD(409.73,.02,1,1,"%D",5,0)="Resulting node:"
^DD(409.73,.02,1,1,"%D",6,0)="  ^SD(409.73,""AENC"",[.02],DA)"
^DD(409.73,.02,1,1,"%D",7,0)=" "
^DD(409.73,.02,1,1,"%D",8,0)="Where:"
^DD(409.73,.02,1,1,"%D",9,0)="  [.02] = Value contained in OUTPATIENT ENCOUNTER field (#.02)"
^DD(409.73,.02,1,1,"%D",10,0)="  DA = Pointer to entry in file"
^DD(409.73,.02,1,1,"DT")="2960502"
^DD(409.73,.02,3)="Enter the entry in the Outpatient Encounter file that requires transmission"
^DD(409.73,.02,21,0)="^^1^1^2960429^"
^DD(409.73,.02,21,1,0)="Entry in Outpatient Encounter file that requires transmission."
^DD(409.73,.02,"DT")="2960502"
^DD(409.73,.03,0)="DELETED OUTPATIENT ENCOUNTER^P409.74'^SD(409.74,^0;3^Q"
^DD(409.73,.03,.1)="Deleted Outpatient Encounter"
^DD(409.73,.03,1,0)="^.1"
^DD(409.73,.03,1,1,0)="409.73^ADEL"
^DD(409.73,.03,1,1,1)="S ^SD(409.73,""ADEL"",$E(X,1,30),DA)="""""
^DD(409.73,.03,1,1,2)="K ^SD(409.73,""ADEL"",$E(X,1,30),DA)"
^DD(409.73,.03,1,1,"%D",0)="^^10^10^2960502^"
^DD(409.73,.03,1,1,"%D",1,0)="Cross reference for sorting entries that point to the DELETED OUTPATIENT "
^DD(409.73,.03,1,1,"%D",2,0)="ENCOUNTER file (#409.74)."
^DD(409.73,.03,1,1,"%D",3,0)=" "
^DD(409.73,.03,1,1,"%D",4,0)=" "
^DD(409.73,.03,1,1,"%D",5,0)="Resulting node:"
^DD(409.73,.03,1,1,"%D",6,0)="  ^SD(409.73,""ADEL"",[.03],DA)"
^DD(409.73,.03,1,1,"%D",7,0)=" "
^DD(409.73,.03,1,1,"%D",8,0)="Where:"
^DD(409.73,.03,1,1,"%D",9,0)="  [.03] = Value contained in DELETED OUTPATIENT ENCOUNTER field (#.03)"
^DD(409.73,.03,1,1,"%D",10,0)="  DA = Pointer to entry in file"
^DD(409.73,.03,1,1,"DT")="2960502"
^DD(409.73,.03,3)="Enter the entry in the Deleted Outpatient Encounter file that requires transmission"
^DD(409.73,.03,21,0)="^^1^1^2960429^"
^DD(409.73,.03,21,1,0)="Entry in Deleted Outpatient Encounter file that requires transmssion."
^DD(409.73,.03,"DT")="2960502"
^DD(409.73,.04,0)="TRANSMISSION REQUIRED^S^0:NO;1:YES;^0;4^Q"
^DD(409.73,.04,.1)="Transmission Required"
^DD(409.73,.04,1,0)="^.1^^-5"
^DD(409.73,.04,1,1,0)="409.73^AACXMIT1^MUMPS"
^DD(409.73,.04,1,1,1)="D AACXMIT^SCDXFX01(DA,-1)"
^DD(409.73,.04,1,1,2)="D AACXMIT^SCDXFX01(DA,0)"
^DD(409.73,.04,1,1,"%D",0)="^^12^12^2960509^^^"
^DD(409.73,.04,1,1,"%D",1,0)="This cross reference is used to flag entries for transmission to the"
^DD(409.73,.04,1,1,"%D",2,0)="National Patient Care Database.  The TRANSMISSION EVENT field (#.05) is"
^DD(409.73,.04,1,1,"%D",3,0)="checked for an add, edit, delete, or retransmit event before setting the"
^DD(409.73,.04,1,1,"%D",4,0)="cross reference."
^DD(409.73,.04,1,1,"%D",5,0)=" "
^DD(409.73,.04,1,1,"%D",6,0)=" "
^DD(409.73,.04,1,1,"%D",7,0)="Resulting node:"
^DD(409.73,.04,1,1,"%D",8,0)="  ^SD(409.73,""AACXMIT"",[.06],DA)"
^DD(409.73,.04,1,1,"%D",9,0)=" "
^DD(409.73,.04,1,1,"%D",10,0)="Where:"
^DD(409.73,.04,1,1,"%D",11,0)="  [.06] = Value contained in DATE/TIME OF EVENT field (#.06)"
^DD(409.73,.04,1,1,"%D",12,0)="  DA = Pointer to entry in file"
^DD(409.73,.04,1,1,"DT")="2960509"
^DD(409.73,.04,3)="Enter 'YES' if the [Deleted] Outpatient Encounter requires transmission"
^DD(409.73,.04,21,0)="^^2^2^2960429^"
^DD(409.73,.04,21,1,0)="Flag denoting if transmission of [Deleted] Outpatient Encounter is"
^DD(409.73,.04,21,2,0)="required."
^DD(409.73,.04,"DT")="2960515"
^DD(409.73,.05,0)="TRANSMISSION EVENT^S^0:RETRANSMIT;1:ADD;2:EDIT;3:DELETE;^0;5^Q"
^DD(409.73,.05,.1)="Transmission Event"
^DD(409.73,.05,3)="Enter the action taken on the [Deleted] Outpatient Encounter"
^DD(409.73,.05,21,0)="^^15^15^2960729^"
^DD(409.73,.05,21,1,0)="Code denoting action taken on [Deleted] Outpatient Encounter."
^DD(409.73,.05,21,2,0)=" "
^DD(409.73,.05,21,3,0)="Event relates to why the encounter is being transmitted to the"
^DD(409.73,.05,21,4,0)="National Patient Care Database (NPCDB)."
^DD(409.73,.05,21,5,0)=" "
^DD(409.73,.05,21,6,0)="       ADD - Check out complete; add entry to NPCDB"
^DD(409.73,.05,21,7,0)="      EDIT - Encounter was editted; edit existing entry in NPCDB"
^DD(409.73,.05,21,8,0)="    DELETE - Encounter was deleted; delete entry from NPCDB"
^DD(409.73,.05,21,9,0)="RETRANSMIT - Encounter being retransmitted"
^DD(409.73,.05,21,10,0)="              * Encounter data not acknowledged by NPCDB within"
^DD(409.73,.05,21,11,0)="                two days is automatically marked for retransmission"
^DD(409.73,.05,21,12,0)="              * The option 'Retransmit Ambulatory Care Data by"
^DD(409.73,.05,21,13,0)="                Date Range' marks encounters for retransmission"
^DD(409.73,.05,21,14,0)="              * The nightly transmission includes encounters that"
^DD(409.73,.05,21,15,0)="                are marked for retransmission"
^DD(409.73,.05,"DT")="2960429"
^DD(409.73,.06,0)="DATE/TIME OF EVENT^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.73,.06,.1)="Date/time of Event"
^DD(409.73,.06,1,0)="^.1"
^DD(409.73,.06,1,1,0)="409.73^AACXMIT2^MUMPS"
^DD(409.73,.06,1,1,1)="D AACXMIT^SCDXFX01(DA,-1)"
^DD(409.73,.06,1,1,2)="D AACXMIT^SCDXFX01(DA,0,X)"
^DD(409.73,.06,1,1,"%D",0)="^^12^12^2960430^^"
^DD(409.73,.06,1,1,"%D",1,0)="This cross reference is used to flag entries for transmission to the"
^DD(409.73,.06,1,1,"%D",2,0)="National Patient Care Database.  The TRANSMISSION EVENT field (#.05) is"
^DD(409.73,.06,1,1,"%D",3,0)="checked for an add, edit, delete, or retransmit event before setting the"
^DD(409.73,.06,1,1,"%D",4,0)="cross reference."
^DD(409.73,.06,1,1,"%D",5,0)=" "
^DD(409.73,.06,1,1,"%D",6,0)=" "
^DD(409.73,.06,1,1,"%D",7,0)="Resulting node:"
^DD(409.73,.06,1,1,"%D",8,0)="  ^SD(409.73,""AACXMIT"",[.06],DA)"
^DD(409.73,.06,1,1,"%D",9,0)=" "
^DD(409.73,.06,1,1,"%D",10,0)="Where:"
^DD(409.73,.06,1,1,"%D",11,0)="  [.06] = Value contained in DATE/TIME OF EVENT field (#.06)"
^DD(409.73,.06,1,1,"%D",12,0)="  DA = Pointer to entry in file"
^DD(409.73,.06,1,1,"DT")="2960430"
^DD(409.73,.06,3)="Enter when the action was taken on the [Deleted] Outpatient Encounter"
^DD(409.73,.06,21,0)="^^2^2^2960429^"
^DD(409.73,.06,21,1,0)="Date and [required] time specified action was taken on the [Deleted]"
^DD(409.73,.06,21,2,0)="Outpatient Encounter."
^DD(409.73,.06,"DT")="2960430"
^DD(409.73,.07,0)="USER CAUSING EVENT^P200'^VA(200,^0;7^Q"
^DD(409.73,.07,.1)="User Causing Event"
^DD(409.73,.07,3)="Enter the user that should be associated to the event that occurred"
^DD(409.73,.07,21,0)="^^2^2^2970417^^"
^DD(409.73,.07,21,1,0)="User causing the event to occur.  If the event was caused by the nightly"
^DD(409.73,.07,21,2,0)="ACRP transmission job, the POSTMASTER (DUZ=.5) will be stored as the user."
^DD(409.73,.07,"DT")="2970417"
^DD(409.73,11,0)="DATE/TIME OF XMIT TO NPCDB^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.73,11,.1)="Date/time of Xmit to NPCDB"
^DD(409.73,11,1,0)="^.1"
^DD(409.73,11,1,1,0)="409.73^AACLST"
^DD(409.73,11,1,1,1)="S ^SD(409.73,""AACLST"",$E(X,1,30),DA)="""""
^DD(409.73,11,1,1,2)="K ^SD(409.73,""AACLST"",$E(X,1,30),DA)"
^DD(409.73,11,1,1,"%D",0)="^^10^10^2960430^^"
^DD(409.73,11,1,1,"%D",1,0)="Cross reference used to sort by date/time of last transmission to the"
^DD(409.73,11,1,1,"%D",2,0)="National Patient Care Database"
^DD(409.73,11,1,1,"%D",3,0)=" "
^DD(409.73,11,1,1,"%D",4,0)=" "
^DD(409.73,11,1,1,"%D",5,0)="Resulting node:"
^DD(409.73,11,1,1,"%D",6,0)="  ^SD(409.73,""AACLST"",[11],DA)"
^DD(409.73,11,1,1,"%D",7,0)=" "
^DD(409.73,11,1,1,"%D",8,0)="Where: "
^DD(409.73,11,1,1,"%D",9,0)="  [11] = Value contained in DATE/TIME OF XMIT TO NPCDB field (#11)"
^DD(409.73,11,1,1,"%D",10,0)="  DA = Pointer to entry in file"
^DD(409.73,11,1,1,"DT")="2960429"
^DD(409.73,11,1,2,0)="409.73^AACNA1^MUMPS"
^DD(409.73,11,1,2,1)="D AACNA^SCDXFX01(DA,1)"
^DD(409.73,11,1,2,2)="D AACNA^SCDXFX01(DA,0,X)"
^DD(409.73,11,1,2,"%D",0)="^^13^13^2960430^^"
^DD(409.73,11,1,2,"%D",1,0)="This cross reference is used to sort transmissions to the National Patient"
^DD(409.73,11,1,2,"%D",2,0)="Care Database that have not been acknowledged.  This cross reference is"
^DD(409.73,11,1,2,"%D",3,0)="set when a value is placed into the MESSAGE ID FOR XMIT TO NPCDB field"
^DD(409.73,11,1,2,"%D",4,0)="(#12) and the cross reference is killed when a value is placed into the"
^DD(409.73,11,1,2,"%D",5,0)="DATE/TIME OF ACK FROM NPCDB field (#14)."
^DD(409.73,11,1,2,"%D",6,0)=" "
^DD(409.73,11,1,2,"%D",7,0)=" "
^DD(409.73,11,1,2,"%D",8,0)="Resulting node:"
^DD(409.73,11,1,2,"%D",9,0)="  ^SD(409.73,""AACNOACK"",[11],DA)"
^DD(409.73,11,1,2,"%D",10,0)=" "
^DD(409.73,11,1,2,"%D",11,0)="Where:"
^DD(409.73,11,1,2,"%D",12,0)="  [11] = Value contained in DATE/TIME OF XMIT TO NPCDB field (#11)"
^DD(409.73,11,1,2,"%D",13,0)="  DA = Pointer to entry in file"
^DD(409.73,11,1,2,"DT")="2960430"
^DD(409.73,11,3)="Enter when [Deleted] Outpatient Enounter was transmitted to NPCDB"
^DD(409.73,11,21,0)="^^2^2^2960429^^"
^DD(409.73,11,21,1,0)="Date and [optional] time the [Deleted] Outpatient Encounter was last"
^DD(409.73,11,21,2,0)="transmitted to the National Patient Care Database."
^DD(409.73,11,"DT")="2960430"
^DD(409.73,12,0)="MESSAGE ID OF XMIT TO NPCDB^F^^1;2^K:$L(X)>20!($L(X)<1) X"
^DD(409.73,12,.1)="Message ID of Xmit to NPCDB"
^DD(409.73,12,1,0)="^.1"
^DD(409.73,12,1,1,0)="409.73^AACMID"
^DD(409.73,12,1,1,1)="S ^SD(409.73,""AACMID"",$E(X,1,30),DA)="""""
^DD(409.73,12,1,1,2)="K ^SD(409.73,""AACMID"",$E(X,1,30),DA)"
^DD(409.73,12,1,1,"%D",0)="^^11^11^2960430^"
^DD(409.73,12,1,1,"%D",1,0)="Cross referenced used to sort by message control ID of last transmission"
^DD(409.73,12,1,1,"%D",2,0)="to National Patient Care Database."
^DD(409.73,12,1,1,"%D",3,0)=" "
^DD(409.73,12,1,1,"%D",4,0)=" "
^DD(409.73,12,1,1,"%D",5,0)="Resulting node:"
^DD(409.73,12,1,1,"%D",6,0)="  ^SD(409.73,""AACMID"",[12],DA)"
^DD(409.73,12,1,1,"%D",7,0)=" "
^DD(409.73,12,1,1,"%D",8,0)=" "
^DD(409.73,12,1,1,"%D",9,0)="Where:"
^DD(409.73,12,1,1,"%D",10,0)="  [12] = Value contained in MESSAGE ID FOR XMIT TO NPCDB field (#12)"
^DD(409.73,12,1,1,"%D",11,0)="  DA = Pointer to entry in file"
^DD(409.73,12,1,1,"DT")="2960429"
^DD(409.73,12,1,2,0)="^^TRIGGER^409.73^14"
^DD(409.73,12,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SD(409.73,D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(409.73,12,1,2,1.4)"
^DD(409.73,12,1,2,1.4)="S DIH=$S($D(^SD(409.73,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,4)=DIV,DIH=409.73,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(409.73,12,1,2,2)="Q"
^DD(409.73,12,1,2,"%D",0)="^^1^1^2960430^^"
^DD(409.73,12,1,2,"%D",1,0)="Value contained in DATE/TIME OF ACK FROM NPCDB field (#14) is deleted"
^DD(409.73,12,1,2,"CREATE VALUE")="@"
^DD(409.73,12,1,2,"DELETE VALUE")="NO EFFECT"
^DD(409.73,12,1,2,"DT")="2960429"
^DD(409.73,12,1,2,"FIELD")="DATE/TIME OF ACK FROM NPCDB"
^DD(409.73,12,1,3,0)="^^TRIGGER^409.73^15"
^DD(409.73,12,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SD(409.73,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(409.73,12,1,3,1.4)"
^DD(409.73,12,1,3,1.4)="S DIH=$S($D(^SD(409.73,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=409.73,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(409.73,12,1,3,2)="Q"
^DD(409.73,12,1,3,"%D",0)="^^1^1^2960429^"
^DD(409.73,12,1,3,"%D",1,0)="Value contained in ACK CODE FOR ACK FROM NPCDB field (#15) is deleted"
^DD(409.73,12,1,3,"CREATE VALUE")="@"
^DD(409.73,12,1,3,"DELETE VALUE")="NO EFFECT"
^DD(409.73,12,1,3,"DT")="2960429"
^DD(409.73,12,1,3,"FIELD")="ACK CODE FOR ACK FROM NPCDB"
^DD(409.73,12,3)="Enter message control ID of transmission to NPCDB"
^DD(409.73,12,21,0)="^^1^1^2960429^"
^DD(409.73,12,21,1,0)="Message control ID of last transmission to National Patient Care Database."
^DD(409.73,12,"DT")="2960429"
^DD(409.73,13,0)="BATCH ID OF XMIT TO NPCDB^F^^1;3^K:$L(X)>20!($L(X)<1) X"
^DD(409.73,13,.1)="Batch ID of Xmit to NPCDB"
^DD(409.73,13,1,0)="^.1"
^DD(409.73,13,1,1,0)="409.73^AACBID"
^DD(409.73,13,1,1,1)="S ^SD(409.73,""AACBID"",$E(X,1,30),DA)="""""
^DD(409.73,13,1,1,2)="K ^SD(409.73,""AACBID"",$E(X,1,30),DA)"
^DD(409.73,13,1,1,"%D",0)="^^10^10^2960430^^"
^DD(409.73,13,1,1,"%D",1,0)="Cross referenced used to sort by batch control ID of last transmission to"
^DD(409.73,13,1,1,"%D",2,0)="National Patient Care Database."
^DD(409.73,13,1,1,"%D",3,0)=" "
^DD(409.73,13,1,1,"%D",4,0)=" "
^DD(409.73,13,1,1,"%D",5,0)="Resulting node:"
^DD(409.73,13,1,1,"%D",6,0)="  ^SD(409.73,""AACBID"",[13],DA)"
^DD(409.73,13,1,1,"%D",7,0)=" "
^DD(409.73,13,1,1,"%D",8,0)="Where:"
^DD(409.73,13,1,1,"%D",9,0)="  [13] = Value contained in BATCH ID FOR XMIT TO NPCDB field (#13)"
^DD(409.73,13,1,1,"%D",10,0)="  DA = Pointer to entry in file"
^DD(409.73,13,1,1,"DT")="2960429"
^DD(409.73,13,3)="Enter batch control ID of transmission to NPCDB"
^DD(409.73,13,21,0)="^^1^1^2960429^"
^DD(409.73,13,21,1,0)="Batch control ID of last transmission to National Patient Care Database."
^DD(409.73,13,"DT")="2960429"
^DD(409.73,14,0)="DATE/TIME OF ACK FROM NPCDB^D^^1;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.73,14,.1)="Date/time of Ack from NPCDB"
^DD(409.73,14,1,0)="^.1"
^DD(409.73,14,1,1,0)="409.73^AACNA2^MUMPS"
^DD(409.73,14,1,1,1)="D AACNA^SCDXFX01(DA,0)"
^DD(409.73,14,1,1,2)="Q"
^DD(409.73,14,1,1,"%D",0)="^^13^13^2960430^^"
^DD(409.73,14,1,1,"%D",1,0)="This cross reference is used to sort transmissions to the National Patient"
^DD(409.73,14,1,1,"%D",2,0)="Care Database that have not been acknowledged.  This cross reference is"
^DD(409.73,14,1,1,"%D",3,0)="set when a value is placed into the MESSAGE ID FOR XMIT TO NPCDB field"
^DD(409.73,14,1,1,"%D",4,0)="(#12) and the cross reference is killed when a value is placed into the"
^DD(409.73,14,1,1,"%D",5,0)="DATE/TIME OF ACK FROM NPCDB field (#14)."
^DD(409.73,14,1,1,"%D",6,0)=" "
^DD(409.73,14,1,1,"%D",7,0)=" "
^DD(409.73,14,1,1,"%D",8,0)="Resulting node:"
^DD(409.73,14,1,1,"%D",9,0)="  ^SD(409.73,""AACNOACK"",[11],DA)"
^DD(409.73,14,1,1,"%D",10,0)=" "
^DD(409.73,14,1,1,"%D",11,0)="Where:"
^DD(409.73,14,1,1,"%D",12,0)="  [11] = Value contained in DATE/TIME OF XMIT TO NPCDB field (#11)"
^DD(409.73,14,1,1,"%D",13,0)="  DA = Pointer to entry in file"
^DD(409.73,14,1,1,"DT")="2960430"
^DD(409.73,14,3)="Enter when acknowledgement was received from NPCDB"
^DD(409.73,14,5,1,0)="409.73^12^2"
^DD(409.73,14,21,0)="^^2^2^2960429^"
^DD(409.73,14,21,1,0)="Date and [optional] time acknowledgement for last transmission to National"
^DD(409.73,14,21,2,0)="Patient Care Database was received."
^DD(409.73,14,"DT")="2960430"
^DD(409.73,15,0)="ACK CODE FOR ACK FROM NPCDB^S^A:ACCEPTED;R:REJECTED;E:ERROR;^1;5^Q"
^DD(409.73,15,.1)="Ack Code for Ack from NPCDB"
^DD(409.73,15,3)="Enter acknowledgement code received from NPCDB"
^DD(409.73,15,5,1,0)="409.73^12^3"
^DD(409.73,15,21,0)="^^2^2^2960429^"
^DD(409.73,15,21,1,0)="Code denoting type of acknowledgement received for last transmission to"
^DD(409.73,15,21,2,0)="National Patient Care Database."
^DD(409.73,15,"DT")="2960429"
^DD(409.73,20.01,0)="PATIENT^CJ30^^ ; ^D PAT^SCDXUTL2(D0)"
^DD(409.73,20.01,9)="^"
^DD(409.73,20.01,9.01)=""
^DD(409.73,20.01,9.1)="D PAT^SCDXUTL2(D0)"
^DD(409.73,20.01,"DT")="2981009"
^DD(409.73,20.02,0)="ENCOUNTER DATE^CJ18^^ ; ^D ECDT^SCDXUTL2(D0)"
^DD(409.73,20.02,9)="^"
^DD(409.73,20.02,9.01)=""
^DD(409.73,20.02,9.1)="D ECDT^SCDXUTL2(D0)"
^DD(409.73,20.02,"DT")="2960524"
^DD(409.73,20.03,0)="HOSPITAL LOCATION^CJ30^^ ; ^D ECLOC^SCDXUTL2(D0)"
^DD(409.73,20.03,9)="^"
^DD(409.73,20.03,9.01)=""
^DD(409.73,20.03,9.1)="D ECLOC^SCDXUTL2(D0)"
^DD(409.73,20.03,"DT")="2981009"
^DD(409.73,20.04,0)="PATIENT SSN^CJ10^^ ; ^D SSN^SCDXUTL2(D0)"
^DD(409.73,20.04,9)="^"
^DD(409.73,20.04,9.01)=""
^DD(409.73,20.04,9.1)="D SSN^SCDXUTL2(D0)"
^DD(409.73,20.05,0)="ENCOUNTER DIVISION^CJ35^^ ; ^D EDIV^SCDXUTL2(D0)"
^DD(409.73,20.05,9)="^"
^DD(409.73,20.05,9.01)=""
^DD(409.73,20.05,9.1)="D EDIV^SCDXUTL2(D0)"
^DD(409.73,20.05,"DT")="2981009"
^DD(409.73,20.06,0)="ENCOUNTER DIVISION (INTERNAL)^CJ8,0^^ ; ^D EDIV^SCDXUTL2(D0,1)"
^DD(409.73,20.06,9)="^"
^DD(409.73,20.06,9.01)=""
^DD(409.73,20.06,9.1)="D EDIV^SCDXUTL2(D0,1)"
^DD(409.73,"B","ACK CODE FOR ACK FROM NPCDB",15)=""
^DD(409.73,"B","Ack Code for Ack from NPCDB",15)="1"
^DD(409.73,"B","BATCH ID OF XMIT TO NPCDB",13)=""
^DD(409.73,"B","Batch ID of Xmit to NPCDB",13)="1"
^DD(409.73,"B","DATE/TIME OF ACK FROM NPCDB",14)=""
^DD(409.73,"B","DATE/TIME OF EVENT",.06)=""
^DD(409.73,"B","DATE/TIME OF XMIT TO NPCDB",11)=""
^DD(409.73,"B","DELETED OUTPATIENT ENCOUNTER",.03)=""
^DD(409.73,"B","Date/time of Ack from NPCDB",14)="1"
^DD(409.73,"B","Date/time of Event",.06)="1"
^DD(409.73,"B","Date/time of Xmit to NPCDB",11)="1"
^DD(409.73,"B","Deleted Outpatient Encounter",.03)="1"
^DD(409.73,"B","ENCOUNTER DATE",20.02)=""
^DD(409.73,"B","ENCOUNTER DIVISION",20.05)=""
^DD(409.73,"B","ENCOUNTER DIVISION (INTERNAL)",20.06)=""
^DD(409.73,"B","HOSPITAL LOCATION",20.03)=""
^DD(409.73,"B","MESSAGE ID OF XMIT TO NPCDB",12)=""
^DD(409.73,"B","Message ID of Xmit to NPCDB",12)="1"
^DD(409.73,"B","NUMBER",.01)=""
^DD(409.73,"B","Number",.01)="1"
^DD(409.73,"B","OUTPATIENT ENCOUNTER",.02)=""
^DD(409.73,"B","Outpatient Encounter",.02)="1"
^DD(409.73,"B","PATIENT",20.01)=""
^DD(409.73,"B","PATIENT SSN",20.04)=""
^DD(409.73,"B","TRANSMISSION EVENT",.05)=""
^DD(409.73,"B","TRANSMISSION REQUIRED",.04)=""
^DD(409.73,"B","Transmission Event",.05)="1"
^DD(409.73,"B","Transmission Required",.04)="1"
^DD(409.73,"B","USER CAUSING EVENT",.07)=""
^DD(409.73,"B","User Causing Event",.07)="1"
^DD(409.73,"GL",0,1,.01)=""
^DD(409.73,"GL",0,2,.02)=""
^DD(409.73,"GL",0,3,.03)=""
^DD(409.73,"GL",0,4,.04)=""
^DD(409.73,"GL",0,5,.05)=""
^DD(409.73,"GL",0,6,.06)=""
^DD(409.73,"GL",0,7,.07)=""
^DD(409.73,"GL",1,1,11)=""
^DD(409.73,"GL",1,2,12)=""
^DD(409.73,"GL",1,3,13)=""
^DD(409.73,"GL",1,4,14)=""
^DD(409.73,"GL",1,5,15)=""
^DD(409.73,"IX",.01)=""
^DD(409.73,"IX",.02)=""
^DD(409.73,"IX",.03)=""
^DD(409.73,"IX",.04)=""
^DD(409.73,"IX",.06)=""
^DD(409.73,"IX",11)=""
^DD(409.73,"IX",12)=""
^DD(409.73,"IX",13)=""
^DD(409.73,"IX",14)=""
^DD(409.73,"RQ",.01)=""
^DD(409.74,0)="FIELD^^11^4"
^DD(409.74,0,"DDA")="N"
^DD(409.74,0,"DT")="2960503"
^DD(409.74,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.74,0,"IX","ADEL",409.74,.03)=""
^DD(409.74,0,"IX","B",409.74,.01)=""
^DD(409.74,0,"IX","PAT",409.74,.02)=""
^DD(409.74,0,"NM","DELETED OUTPATIENT ENCOUNTER")=""
^DD(409.74,0,"PT",409.73,.03)=""
^DD(409.74,0,"VR")="5.3"
^DD(409.74,0,"VRPK")="SD"
^DD(409.74,.01,0)="ENCOUNTER DATE/TIME^RD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.74,.01,.1)="Encounter Date/Time"
^DD(409.74,.01,1,0)="^.1"
^DD(409.74,.01,1,1,0)="409.74^B"
^DD(409.74,.01,1,1,1)="S ^SD(409.74,""B"",$E(X,1,30),DA)="""""
^DD(409.74,.01,1,1,2)="K ^SD(409.74,""B"",$E(X,1,30),DA)"
^DD(409.74,.01,1,2,0)="^^TRIGGER^409.74^.03"
^DD(409.74,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^SD(409.74,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^SD(409.74,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(409.74,.01,1,2,1.1) X ^DD(409.74,.01,1,2,1.4)"
^DD(409.74,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(409.74,.01,1,2,1.4)="S DIH=$S($D(^SD(409.74,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=409.74,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(409.74,.01,1,2,2)="Q"
^DD(409.74,.01,1,2,"%D",0)="^^2^2^2960430^"
^DD(409.74,.01,1,2,"%D",1,0)="Current date/time (""NOW"") is put into the DELETION DATE/TIME field (#.03)."
^DD(409.74,.01,1,2,"%D",2,0)=" This is screened so that an existing value is not overwritten."
^DD(409.74,.01,1,2,"CREATE CONDITION")="DELETION DATE/TIME="""""
^DD(409.74,.01,1,2,"CREATE VALUE")="NOW"
^DD(409.74,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(409.74,.01,1,2,"DT")="2960430"
^DD(409.74,.01,1,2,"FIELD")="DELETION DATE/TIME"
^DD(409.74,.01,3)="Enter the date/time of the encounter that was deleted"
^DD(409.74,.01,21,0)="^^1^1^2960430^"
^DD(409.74,.01,21,1,0)="Date/time deleted encounter supposedly took place."
^DD(409.74,.01,"DT")="2960430"
^DD(409.74,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(409.74,.02,.1)="Patient"
^DD(409.74,.02,1,0)="^.1"
^DD(409.74,.02,1,1,0)="409.74^PAT"
^DD(409.74,.02,1,1,1)="S ^SD(409.74,""PAT"",$E(X,1,30),DA)="""""
^DD(409.74,.02,1,1,2)="K ^SD(409.74,""PAT"",$E(X,1,30),DA)"
^DD(409.74,.02,1,1,"%D",0)="^^8^8^2960430^"
^DD(409.74,.02,1,1,"%D",1,0)="Cross reference to allow look-up using the patient's name."
^DD(409.74,.02,1,1,"%D",2,0)=" "
^DD(409.74,.02,1,1,"%D",3,0)="Resulting node:"
^DD(409.74,.02,1,1,"%D",4,0)="  ^SD(409.74,""PAT"",[.02],DA)"
^DD(409.74,.02,1,1,"%D",5,0)=" "
^DD(409.74,.02,1,1,"%D",6,0)="Where:"
^DD(409.74,.02,1,1,"%D",7,0)="  [.02] = Value contained in PATIENT field (#.02)"
^DD(409.74,.02,1,1,"%D",8,0)="  DA = Pointer to entry in file"
^DD(409.74,.02,1,1,"DT")="2960430"
^DD(409.74,.02,3)="Enter the patient associated with the deleted encounter"
^DD(409.74,.02,21,0)="^^1^1^2960430^"
^DD(409.74,.02,21,1,0)="Patient deleted encounter referred to."
^DD(409.74,.02,"DT")="2960430"
^DD(409.74,.03,0)="DELETION DATE/TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(409.74,.03,.1)="Deletion Date/Time"
^DD(409.74,.03,1,0)="^.1"
^DD(409.74,.03,1,1,0)="409.74^ADEL"
^DD(409.74,.03,1,1,1)="S ^SD(409.74,""ADEL"",$E(X,1,30),DA)="""""
^DD(409.74,.03,1,1,2)="K ^SD(409.74,""ADEL"",$E(X,1,30),DA)"
^DD(409.74,.03,1,1,"%D",0)="^^9^9^2960430^"
^DD(409.74,.03,1,1,"%D",1,0)="Cross reference to sort entries by their deletion date/time."
^DD(409.74,.03,1,1,"%D",2,0)=" "
^DD(409.74,.03,1,1,"%D",3,0)=" "
^DD(409.74,.03,1,1,"%D",4,0)="Resulting node:"
^DD(409.74,.03,1,1,"%D",5,0)="  ^SD(409.74,""ADEL"",[.03],DA)"
^DD(409.74,.03,1,1,"%D",6,0)=" "
^DD(409.74,.03,1,1,"%D",7,0)="Where:"
^DD(409.74,.03,1,1,"%D",8,0)="  [.03] = Value contained in DELETION DATE/TIME field (#.03)"
^DD(409.74,.03,1,1,"%D",9,0)="  DA = Pointer to entry in file"
^DD(409.74,.03,1,1,"DT")="2960430"
^DD(409.74,.03,3)="Enter the date/time the encounter was deleted"
^DD(409.74,.03,5,1,0)="409.74^.01^2"
^DD(409.74,.03,21,0)="^^1^1^2960430^"
^DD(409.74,.03,21,1,0)="Date/time encounter was deleted."
^DD(409.74,.03,"DT")="2960430"
^DD(409.74,11,0)="OLD ENCOUNTER ZERO NODE^RF^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(409.74,11,.1)="Old Encounter Zero Node"
^DD(409.74,11,3)="Enter the zero node of the deleted Outpatient Encounter"
^DD(409.74,11,21,0)="^^2^2^2960503^^"
^DD(409.74,11,21,1,0)="This field will contain the zero node of the Outpatient Encounter that was"
^DD(409.74,11,21,2,0)="deleted."
^DD(409.74,11,"DT")="2960503"
^DD(409.74,"B","DELETION DATE/TIME",.03)=""
^DD(409.74,"B","Deletion Date/Time",.03)="1"
^DD(409.74,"B","ENCOUNTER DATE/TIME",.01)=""
^DD(409.74,"B","Encounter Date/Time",.01)="1"
^DD(409.74,"B","OLD ENCOUNTER ZERO NODE",11)=""
^DD(409.74,"B","Old Encounter Zero Node",11)="1"
^DD(409.74,"B","PATIENT",.02)=""
^DD(409.74,"B","Patient",.02)="1"
^DD(409.74,"GL",0,1,.01)=""
^DD(409.74,"GL",0,2,.02)=""
^DD(409.74,"GL",0,3,.03)=""
^DD(409.74,"GL",1,"E1,245",11)=""
^DD(409.74,"IX",.01)=""
^DD(409.74,"IX",.02)=""
^DD(409.74,"IX",.03)=""
^DD(409.74,"RQ",.01)=""
^DD(409.74,"RQ",.02)=""
^DD(409.74,"RQ",.03)=""
^DD(409.74,"RQ",11)=""
^DD(409.75,0)="FIELD^^10.01^3"
^DD(409.75,0,"DDA")="N"
^DD(409.75,0,"DT")="2960429"
^DD(409.75,0,"IX","ACOD",409.75,.01)=""
^DD(409.75,0,"IX","ACOD2",409.75,.02)=""
^DD(409.75,0,"IX","AECL",409.75,.01)=""
^DD(409.75,0,"IX","AEDT",409.75,.01)=""
^DD(409.75,0,"IX","AER",409.75,.01)=""
^DD(409.75,0,"IX","AER2",409.75,.02)=""
^DD(409.75,0,"IX","B",409.75,.01)=""
^DD(409.75,0,"NM","TRANSMITTED OUTPATIENT ENCOUNTER ERROR")=""
^DD(409.75,0,"VR")="5.3"
^DD(409.75,0,"VRPK")="SD"
^DD(409.75,.01,0)="TRANSMITTED ENCOUNTER^RP409.73'^SD(409.73,^0;1^Q"
^DD(409.75,.01,.1)="Transmitted Encounter"
^DD(409.75,.01,1,0)="^.1"
^DD(409.75,.01,1,1,0)="409.75^B"
^DD(409.75,.01,1,1,1)="S ^SD(409.75,""B"",$E(X,1,30),DA)="""""
^DD(409.75,.01,1,1,2)="K ^SD(409.75,""B"",$E(X,1,30),DA)"
^DD(409.75,.01,1,2,0)="409.75^AEDT^MUMPS"
^DD(409.75,.01,1,2,1)="D SETAEDT^SCDDI1(DA,X)"
^DD(409.75,.01,1,2,2)="D KILAEDT^SCDDI1(DA,X)"
^DD(409.75,.01,1,2,"%D",0)="^^4^4^2971021^^^"
^DD(409.75,.01,1,2,"%D",1,0)="Cross reference by Outpatient Encounter date [Deleted Outpatient Encounter"
^DD(409.75,.01,1,2,"%D",2,0)="Date] and Transmitted Outpatient Encounter.  The resulting cross reference "
^DD(409.75,.01,1,2,"%D",3,0)="will look like:"
^DD(409.75,.01,1,2,"%D",4,0)="^SD(409.75,""AEDT"",Encounter Date,IEN for entry in 409.73,DA)="""""
^DD(409.75,.01,1,2,"DT")="2970703"
^DD(409.75,.01,1,3,0)="409.75^AECL^MUMPS"
^DD(409.75,.01,1,3,1)="D SETAECL^SCDDI1(DA,X)"
^DD(409.75,.01,1,3,2)="D KILAECL^SCDDI1(DA,X)"
^DD(409.75,.01,1,3,"%D",0)="^^4^4^2971021^^"
^DD(409.75,.01,1,3,"%D",1,0)="Cross reference by Outpatient Encounter Clinic [Deleted Outpatient Encounter"
^DD(409.75,.01,1,3,"%D",2,0)="Clinic] and Transmitted Outpatient Encounter.  The resulting cross reference"
^DD(409.75,.01,1,3,"%D",3,0)="will look like:"
^DD(409.75,.01,1,3,"%D",4,0)="^SD(409.75,""AECL"",IEN of entry in 44,DA)="""""
^DD(409.75,.01,1,3,"DT")="2970703"
^DD(409.75,.01,1,4,0)="409.75^AER^MUMPS"
^DD(409.75,.01,1,4,1)="N C S C=$P(^SD(409.75,DA,0),U,2) I C S ^SD(409.75,""AER"",$E(X,1,30),C,DA)="""""
^DD(409.75,.01,1,4,2)="N C S C=$P(^SD(409.75,DA,0),U,2) I C K ^SD(409.75,""AER"",$E(X,1,30),C,DA)"
^DD(409.75,.01,1,4,"%D",0)="^^4^4^2971021^^^^"
^DD(409.75,.01,1,4,"%D",1,0)="Cross reference by Transmitted Outpatient Encounter and Transmitted"
^DD(409.75,.01,1,4,"%D",2,0)="Outpatient Encounter Error Code.  The resulting cross reference will look"
^DD(409.75,.01,1,4,"%D",3,0)="like:"
^DD(409.75,.01,1,4,"%D",4,0)="^SD(409.75,""AER"",IEN of entry in 409.73,IEN of entry in 409.76,DA)="""""
^DD(409.75,.01,1,4,"DT")="2970703"
^DD(409.75,.01,1,5,0)="409.75^ACOD^MUMPS"
^DD(409.75,.01,1,5,1)="D SETACOD1^SCDDI1(DA,X)"
^DD(409.75,.01,1,5,2)="D KILACOD1^SCDDI1(DA,X)"
^DD(409.75,.01,1,5,"%D",0)="^^3^3^2971021^^^"
^DD(409.75,.01,1,5,"%D",1,0)="Cross reference used to sort the error codes by patient."
^DD(409.75,.01,1,5,"%D",2,0)="The resulting cross reference will look like:"
^DD(409.75,.01,1,5,"%D",3,0)="^SD(409.75,""ACOD"",Patient DFN,External value of the error code,DA)="""""
^DD(409.75,.01,1,5,"DT")="2970807"
^DD(409.75,.01,3)="Enter Transmitted Outpatient Encounter that wasn't successfully transmitted"
^DD(409.75,.01,21,0)="^^2^2^2960429^^"
^DD(409.75,.01,21,1,0)="Pointer to entry in TRANSMITTED OUTPATIENT ENCOUNTER file that was not"
^DD(409.75,.01,21,2,0)="successfully transmitted to the National Patient Care Database."
^DD(409.75,.01,"DT")="2970807"
^DD(409.75,.02,0)="ERROR CODE^P409.76'^SD(409.76,^0;2^Q"
^DD(409.75,.02,1,0)="^.1"
^DD(409.75,.02,1,1,0)="409.75^AER2^MUMPS"
^DD(409.75,.02,1,1,1)="N P S P=$P(^SD(409.75,DA,0),U,1) I P S ^SD(409.75,""AER"",P,$E(X,1,30),DA)="""""
^DD(409.75,.02,1,1,2)="N P S P=$P(^SD(409.75,DA,0),U,1) I P K ^SD(409.75,""AER"",P,$E(X,1,30),DA)"
^DD(409.75,.02,1,1,"%D",0)="^^4^4^2971021^^^^"
^DD(409.75,.02,1,1,"%D",1,0)="Cross reference by Transmitted Outpatient Encounter and Transmitted"
^DD(409.75,.02,1,1,"%D",2,0)="Outpatient Encounter Error Code.  The resulting cross reference will look"
^DD(409.75,.02,1,1,"%D",3,0)="like:"
^DD(409.75,.02,1,1,"%D",4,0)="^SD(409.75,""AER"",IEN of entry in 409.73,IEN of entry in 409.76,DA)="""""
^DD(409.75,.02,1,1,"DT")="2970703"
^DD(409.75,.02,1,2,0)="409.75^ACOD2^MUMPS"
^DD(409.75,.02,1,2,1)="D SETACOD2^SCDDI1(DA,X)"
^DD(409.75,.02,1,2,2)="D KILACOD2^SCDDI1(DA,X)"
^DD(409.75,.02,1,2,"%D",0)="^^3^3^2971021^^"
^DD(409.75,.02,1,2,"%D",1,0)="Cross reference used to sort the error codes by patient."
^DD(409.75,.02,1,2,"%D",2,0)="The resulting cross reference will look like:"
^DD(409.75,.02,1,2,"%D",3,0)="^SD(409.75,""ACOD"",Patient DFN,External value of the error code,DA)="""""
^DD(409.75,.02,1,2,"DT")="2970807"
^DD(409.75,.02,3)="Enter reason for unsuccessfull transmission"
^DD(409.75,.02,21,0)="^^2^2^2960429^"
^DD(409.75,.02,21,1,0)="Why entry in TRANSMITTED OUTPATIENT ENCOUNTER file was not successfully"
^DD(409.75,.02,21,2,0)="transmitted."
^DD(409.75,.02,"DT")="2970807"
^DD(409.75,10.01,0)="DATE/TIME OF X-MIT TO NPCDB^DCJ17^^ ; ^X ^DD(409.75,10.01,9.2) S Y(409.75,10.01,101)=$S($D(^SD(409.73,D0,1)):^(1),1:"""") S X=$P(Y(409.75,10.01,101),U,1) S D0=Y(409.75,10.01,80)"
^DD(409.75,10.01,9)="^"
^DD(409.75,10.01,9.01)="409.73^11;409.75^.01"
^DD(409.75,10.01,9.1)=".01:11"
^DD(409.75,10.01,9.2)="S Y(409.75,10.01,80)=$S($D(D0):D0,1:""""),Y(409.75,10.01,1)=$S($D(^SD(409.75,D0,0)):^(0),1:""""),D0=$P(Y(409.75,10.01,1),U,1) S:'$D(^SD(409.73,+D0,0)) D0=-1"
^DD(409.75,10.01,"DT")="2961029"
^DD(409.75,"B","DATE/TIME OF X-MIT TO NPCDB",10.01)=""
^DD(409.75,"B","ERROR CODE",.02)=""
^DD(409.75,"B","TRANSMITTED ENCOUNTER",.01)=""
^DD(409.75,"B","Transmitted Encounter",.01)="1"
^DD(409.75,"GL",0,1,.01)=""
^DD(409.75,"GL",0,2,.02)=""
^DD(409.75,"IX",.01)=""
^DD(409.75,"IX",.02)=""
^DD(409.75,"RQ",.01)=""
^DD(409.76,0)="FIELD^^41^6"
^DD(409.76,0,"DDA")="N"
^DD(409.76,0,"DT")="2970710"
^DD(409.76,0,"ID",11)="D EN^DDIOL($P(^(1),U,1))"
^DD(409.76,0,"IX","B",409.76,.01)=""
^DD(409.76,0,"IX","D",409.76,11)=""
^DD(409.76,0,"NM","TRANSMITTED OUTPATIENT ENCOUNTER ERROR CODE")=""
^DD(409.76,0,"PT",409.75,.02)=""
^DD(409.76,0,"VR")="5.3"
^DD(409.76,0,"VRPK")="SD"
^DD(409.76,.01,0)="ERROR CODE^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(409.76,.01,.1)="Error Code"
^DD(409.76,.01,1,0)="^.1"
^DD(409.76,.01,1,1,0)="409.76^B"
^DD(409.76,.01,1,1,1)="S ^SD(409.76,""B"",$E(X,1,30),DA)="""""
^DD(409.76,.01,1,1,2)="K ^SD(409.76,""B"",$E(X,1,30),DA)"
^DD(409.76,.01,3)="Enter an error code to use (1-10 characters)"
^DD(409.76,.01,21,0)="^^2^2^2970623^^^"
^DD(409.76,.01,21,1,0)="Error code denoting why an entry in the Transmitted Outpatient Encounter"
^DD(409.76,.01,21,2,0)="file could not be transmitted or successfully processed."
^DD(409.76,.01,23,0)="^^1^1^2970623^"
^DD(409.76,.01,23,1,0)=" "
^DD(409.76,.01,"DT")="2960430"
^DD(409.76,.02,0)="SOURCE OF ERROR^RS^N:NPCD;V:VISTA;T:HL7 TRANSMISSION;^0;2^Q"
^DD(409.76,.02,3)="Enter the source of the error."
^DD(409.76,.02,21,0)="^^1^1^2970710^"
^DD(409.76,.02,21,1,0)="This set of codes indicates the source of the error."
^DD(409.76,.02,"DT")="2970710"
^DD(409.76,11,0)="ERROR CODE DESCRIPTION^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(409.76,11,.1)="Error Code Description"
^DD(409.76,11,1,0)="^.1^^-1"
^DD(409.76,11,1,2,0)="409.76^D"
^DD(409.76,11,1,2,1)="S ^SD(409.76,""D"",$E(X,1,30),DA)="""""
^DD(409.76,11,1,2,2)="K ^SD(409.76,""D"",$E(X,1,30),DA)"
^DD(409.76,11,1,2,"%D",0)="^^1^1^2971210^"
^DD(409.76,11,1,2,"%D",1,0)="This is used to aid in the lookup of error codes."
^DD(409.76,11,1,2,"DT")="2971210"
^DD(409.76,11,3)="Enter a description of the error code (1-80 characters)"
^DD(409.76,11,21,0)="^^1^1^2960524^^"
^DD(409.76,11,21,1,0)="Free text description of the error code."
^DD(409.76,11,"DT")="2980120"
^DD(409.76,21,0)="CORRECTIVE ACTION DESCRIPTION^409.7621^^2;0"
^DD(409.76,21,21,0)="^^3^3^2971022^"
^DD(409.76,21,21,1,0)="This field describes the actions necessary to correct the error."
^DD(409.76,21,21,2,0)="This is the text which would be viewed by a user when using the Incomplete"
^DD(409.76,21,21,3,0)="Encounter Management Tools."
^DD(409.76,31,0)="VALIDATION LOGIC^K^^CHK;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.76,31,3)="Enter routine entry point to perform error validation"
^DD(409.76,31,9)="@"
^DD(409.76,31,21,0)="^^13^13^2971022^"
^DD(409.76,31,21,1,0)="This field should not be modifed except as directed."
^DD(409.76,31,21,2,0)=" "
^DD(409.76,31,21,3,0)="This contains the logic that needs to be executed in order to validate the"
^DD(409.76,31,21,4,0)="data.  If the data does not validate correctly the error code from this"
^DD(409.76,31,21,5,0)="entry will be used.  The function call contained within this field uses"
^DD(409.76,31,21,6,0)="the following variables:"
^DD(409.76,31,21,7,0)="    Input"
^DD(409.76,31,21,8,0)="       Data - The value being validated."
^DD(409.76,31,21,9,0)=" "
^DD(409.76,31,21,10,0)="    Returns"
^DD(409.76,31,21,11,0)="       RES - Result of the function call"
^DD(409.76,31,21,12,0)="              1 if entry passed validation"
^DD(409.76,31,21,13,0)="              0 if entry does not pass validation"
^DD(409.76,31,"DT")="2970605"
^DD(409.76,41,0)="CORRECTION LOGIC^K^^COR;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.76,41,3)="This is the code that will need to be executed to correct this error."
^DD(409.76,41,9)="@"
^DD(409.76,41,21,0)="^^16^16^2971022^"
^DD(409.76,41,21,1,0)="This field should not be modifed except as directed."
^DD(409.76,41,21,2,0)=" "
^DD(409.76,41,21,3,0)="This contains the logic that needs to be executed in order to allow the"
^DD(409.76,41,21,4,0)="user to correct the error.  The function call contained within this field"
^DD(409.76,41,21,5,0)="uses the following variables:"
^DD(409.76,41,21,6,0)="    Returns"
^DD(409.76,41,21,7,0)="       RES - Result of the function call"
^DD(409.76,41,21,8,0)="             0 - if the corrective action was not successful"
^DD(409.76,41,21,9,0)="             1 - if the corrective action succeeded"
^DD(409.76,41,21,10,0)=" "
^DD(409.76,41,21,11,0)="This function call makes the assumption that the ^TMP(""SCENI XMT"",$J,0)"
^DD(409.76,41,21,12,0)="global from the Incomplete Encounter Management List Manager tool is"
^DD(409.76,41,21,13,0)="available to retrieve the pointer from the TRANSMITTED OUTPATIENT"
^DD(409.76,41,21,14,0)="ENCOUNTER FILE (#409.73) which is used to check the entry and"
^DD(409.76,41,21,15,0)="retreive the entry from the TRANSMITTED OUTPATIENT ENCOUNTER ERROR FILE"
^DD(409.76,41,21,16,0)="(#409.75)."
^DD(409.76,41,"DT")="2970710"
^DD(409.76,"B","CORRECTION LOGIC",41)=""
^DD(409.76,"B","CORRECTIVE ACTION DESCRIPTION",21)=""
^DD(409.76,"B","ERROR CODE",.01)=""
^DD(409.76,"B","ERROR CODE DESCRIPTION",11)=""
^DD(409.76,"B","Error Code",.01)="1"
^DD(409.76,"B","Error Code Description",11)="1"
^DD(409.76,"B","SOURCE OF ERROR",.02)=""
^DD(409.76,"B","VALIDATION LOGIC",31)=""
^DD(409.76,"GL",0,1,.01)=""
^DD(409.76,"GL",0,2,.02)=""
^DD(409.76,"GL",1,1,11)=""
^DD(409.76,"GL",2,0,21)=""
^DD(409.76,"GL","CHK","E1,245",31)=""
^DD(409.76,"GL","COR","E1,245",41)=""
^DD(409.76,"IX",.01)=""
^DD(409.76,"IX",11)=""
^DD(409.76,"RQ",.01)=""
^DD(409.76,"RQ",.02)=""
^DD(409.76,"SB",409.7621,21)=""
^DD(409.7621,0)="CORRECTIVE ACTION DESCRIPTION SUB-FIELD^^.01^1"
^DD(409.7621,0,"DT")="2970710"
^DD(409.7621,0,"NM","CORRECTIVE ACTION DESCRIPTION")=""
^DD(409.7621,0,"UP")="409.76"
^DD(409.7621,.01,0)="CORRECTIVE ACTION DESCRIPTION^W^^0;1^Q"
^DD(409.7621,.01,3)="Enter the corrective action a user will need to take in order to correct this error."
^DD(409.7621,.01,21,0)="^^1^1^2971022^^^"
^DD(409.7621,.01,21,1,0)="This is the corrective action needed to correct this error situation."
^DD(409.7621,.01,"DT")="2970710"
^DD(409.7621,"B","CORRECTIVE ACTION DESCRIPTION",.01)=""
^DD(409.7621,"GL",0,1,.01)=""
^DD(409.77,0)="FIELD^^22^11"
^DD(409.77,0,"DDA")="N"
^DD(409.77,0,"DT")="2970711"
^DD(409.77,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(409.77,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.77,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SC(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(44,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.77,0,"ID",11)="W:$D(^(1)) ""   "",$E($P(^(1),U,1),4,5)_""-""_$E($P(^(1),U,1),6,7)_""-""_$E($P(^(1),U,1),2,3)"
^DD(409.77,0,"IX","ABID",409.77,13)=""
^DD(409.77,0,"IX","ADFN02",409.77,.02)=""
^DD(409.77,0,"IX","ADFN03",409.77,.03)=""
^DD(409.77,0,"IX","AMID",409.77,12)=""
^DD(409.77,0,"IX","AVID",409.77,.06)=""
^DD(409.77,0,"IX","AXMIT",409.77,11)=""
^DD(409.77,0,"IX","B",409.77,.01)=""
^DD(409.77,0,"IX","C",409.77,.03)=""
^DD(409.77,0,"NM","ACRP TRANSMISSION HISTORY")=""
^DD(409.77,0,"VR")="5.3"
^DD(409.77,0,"VRPK")="SD"
^DD(409.77,.01,0)="TRANSMITTED OUTPAT ENCOUNTER^RP409.73'^SD(409.73,^0;1^Q"
^DD(409.77,.01,.1)="Transmitted Outpatient Encounter"
^DD(409.77,.01,1,0)="^.1"
^DD(409.77,.01,1,1,0)="409.77^B"
^DD(409.77,.01,1,1,1)="S ^SD(409.77,""B"",$E(X,1,30),DA)="""""
^DD(409.77,.01,1,1,2)="K ^SD(409.77,""B"",$E(X,1,30),DA)"
^DD(409.77,.01,3)="Enter the Transmitted Outpatient Encounter that was transmitted"
^DD(409.77,.01,21,0)="^^5^5^2970710^"
^DD(409.77,.01,21,1,0)="Entry in the Transmitted Outpatient Encounter file (#409.73) that was"
^DD(409.77,.01,21,2,0)="transmitted.  Following this pointer will allow navigation to the"
^DD(409.77,.01,21,3,0)="Outpatient Encounter and Deleted Outpatient Encounter files (#409.68 and"
^DD(409.77,.01,21,4,0)="409.76), which are pointed to by the Transmitted Outpatient Encounter"
^DD(409.77,.01,21,5,0)="file."
^DD(409.77,.01,"DT")="2970702"
^DD(409.77,.02,0)="DATE/TIME OF ENCOUNTER^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.77,.02,.1)="Date/time of Encounter"
^DD(409.77,.02,1,0)="^.1"
^DD(409.77,.02,1,1,0)="409.77^ADFN02^MUMPS"
^DD(409.77,.02,1,1,1)="S:($P(^SD(409.77,DA,0),""^"",3)) ^SD(409.77,""ADFN"",($P(^SD(409.77,DA,0),""^"",3)),X,DA)="""""
^DD(409.77,.02,1,1,2)="K:($P(^SD(409.77,DA,0),""^"",3)) ^SD(409.77,""ADFN"",($P(^SD(409.77,DA,0),""^"",3)),X,DA)"
^DD(409.77,.02,1,1,"%D",0)="^^11^11^2970710^"
^DD(409.77,.02,1,1,"%D",1,0)="Creates a cross reference similar to the ADFN cross reference on the"
^DD(409.77,.02,1,1,"%D",2,0)="Outpatient Encounter file (#409.68).  Resulting node is also created by"
^DD(409.77,.02,1,1,"%D",3,0)="the ADFN03 cross reference on the Patient field (#.03)."
^DD(409.77,.02,1,1,"%D",4,0)=" "
^DD(409.77,.02,1,1,"%D",5,0)="Resulting node:"
^DD(409.77,.02,1,1,"%D",6,0)="  ^SD(409.77,""ADFN"",[.03],[.02],DA)"
^DD(409.77,.02,1,1,"%D",7,0)=" "
^DD(409.77,.02,1,1,"%D",8,0)="Where:"
^DD(409.77,.02,1,1,"%D",9,0)="  [.03] is field number .03 (Patient)"
^DD(409.77,.02,1,1,"%D",10,0)="  [.02] is field number .02 (Date/time of Encounter)"
^DD(409.77,.02,1,1,"%D",11,0)="  DA is the entry number"
^DD(409.77,.02,1,1,"DT")="2970707"
^DD(409.77,.02,3)="Enter the date/time that the encounter took place"
^DD(409.77,.02,21,0)="^^4^4^2970710^"
^DD(409.77,.02,21,1,0)="This is the date & time that the related Outpatient Encounter took place."
^DD(409.77,.02,21,2,0)="This equates to the Date field (#.01) of the Outpatient Encounter file"
^DD(409.77,.02,21,3,0)="(#409.68) and the first piece of the Old Encounter Zero Node field (#11)"
^DD(409.77,.02,21,4,0)="of the Deleted Outpatient Encounter file (#409.74)."
^DD(409.77,.02,"DT")="2970709"
^DD(409.77,.03,0)="PATIENT^RP2'^DPT(^0;3^Q"
^DD(409.77,.03,.1)="Patient"
^DD(409.77,.03,1,0)="^.1"
^DD(409.77,.03,1,1,0)="409.77^ADFN03^MUMPS"
^DD(409.77,.03,1,1,1)="S:($P(^SD(409.77,DA,0),""^"",2)) ^SD(409.77,""ADFN"",X,($P(^SD(409.77,DA,0),""^"",2)),DA)="""""
^DD(409.77,.03,1,1,2)="K:($P(^SD(409.77,DA,0),""^"",2)) ^SD(409.77,""ADFN"",X,($P(^SD(409.77,DA,0),""^"",2)),DA)"
^DD(409.77,.03,1,1,"%D",0)="^^11^11^2970710^"
^DD(409.77,.03,1,1,"%D",1,0)="Creates a cross reference similar to the ADFN cross reference on the"
^DD(409.77,.03,1,1,"%D",2,0)="Outpatient Encounter file (#409.68).  Resulting node is also created by"
^DD(409.77,.03,1,1,"%D",3,0)="the ADFN02 cross reference on the Date/time of Encounter field (#.02)."
^DD(409.77,.03,1,1,"%D",4,0)=" "
^DD(409.77,.03,1,1,"%D",5,0)="Resulting node:"
^DD(409.77,.03,1,1,"%D",6,0)="  ^SD(409.77,""ADFN"",[.03],[.02],DA)"
^DD(409.77,.03,1,1,"%D",7,0)=" "
^DD(409.77,.03,1,1,"%D",8,0)="Where:"
^DD(409.77,.03,1,1,"%D",9,0)="  [.03] is field number .03 (Patient)                            "
^DD(409.77,.03,1,1,"%D",10,0)="  [.02] is field number .02 (Date/time of Encounter)             "
^DD(409.77,.03,1,1,"%D",11,0)="  DA is the entry number                                         "
^DD(409.77,.03,1,1,"DT")="2970707"
^DD(409.77,.03,1,2,0)="409.77^C"
^DD(409.77,.03,1,2,1)="S ^SD(409.77,""C"",$E(X,1,30),DA)="""""
^DD(409.77,.03,1,2,2)="K ^SD(409.77,""C"",$E(X,1,30),DA)"
^DD(409.77,.03,1,2,"%D",0)="^^8^8^2970711^^"
^DD(409.77,.03,1,2,"%D",1,0)="Cross reference for lookup/selection by patient name."
^DD(409.77,.03,1,2,"%D",2,0)=" "
^DD(409.77,.03,1,2,"%D",3,0)="Resulting node:"
^DD(409.77,.03,1,2,"%D",4,0)="  ^SD(409.77,""C"",[.03],DA)"
^DD(409.77,.03,1,2,"%D",5,0)=" "
^DD(409.77,.03,1,2,"%D",6,0)="Where:"
^DD(409.77,.03,1,2,"%D",7,0)="  [.03] is field number .03 (Patient)"
^DD(409.77,.03,1,2,"%D",8,0)="  DA is the entry number"
^DD(409.77,.03,1,2,"DT")="2970711"
^DD(409.77,.03,3)="Enter the patient that had the encounter"
^DD(409.77,.03,21,0)="^^4^4^2970710^"
^DD(409.77,.03,21,1,0)="This is the patient of the related Outpatient Encounter.  This equates to"
^DD(409.77,.03,21,2,0)="the Patient field (#.02) of the Outpatient Encounter file (#409.68) and"
^DD(409.77,.03,21,3,0)="the second piece of the Old Encounter Zero Node field (#11) of the Deleted"
^DD(409.77,.03,21,4,0)="Outpatient Encounter file (#409.74)."
^DD(409.77,.03,"DT")="2970711"
^DD(409.77,.04,0)="LOCATION^RP44'^SC(^0;4^Q"
^DD(409.77,.04,.1)="Location"
^DD(409.77,.04,3)="Enter the location that the encounter occurred at"
^DD(409.77,.04,21,0)="^^4^4^2970710^"
^DD(409.77,.04,21,1,0)="This is the location (i.e. clinic) that the Outpatient Encounter occurred"
^DD(409.77,.04,21,2,0)="at.  This equates to the Location field (#.04) of the Outpatient Encounter"
^DD(409.77,.04,21,3,0)="file (#409.68) and the fourth piece of the Old Encounter Zero Node field"
^DD(409.77,.04,21,4,0)="(#11) of the Deleted Outpatient Encounter file (#409.74)."
^DD(409.77,.04,"DT")="2970709"
^DD(409.77,.05,0)="MEDICAL CENTER DIVISION^RP40.8'^DG(40.8,^0;5^Q"
^DD(409.77,.05,.1)="Medical Center Division"
^DD(409.77,.05,3)="Enter the division that the encounter took place in"
^DD(409.77,.05,21,0)="^^5^5^2970710^"
^DD(409.77,.05,21,1,0)="This is the division that the location belonged to at the time the"
^DD(409.77,.05,21,2,0)="Outpatient Encounter occurred.  This equates to the Medical Center"
^DD(409.77,.05,21,3,0)="Division field (#.11) of the Outpatient Encounter file (#409.68) and the"
^DD(409.77,.05,21,4,0)="eleventh piece of the Old Encounter Zero Node field (#11) of the Deleted"
^DD(409.77,.05,21,5,0)="Outpatient Encounter file (#409.74)."
^DD(409.77,.05,"DT")="2970709"
^DD(409.77,.06,0)="UNIQUE VISIT ID^RF^^0;6^K:$L(X)>12!($L(X)<1) X"
^DD(409.77,.06,.1)="Unique Visit ID"
^DD(409.77,.06,1,0)="^.1"
^DD(409.77,.06,1,1,0)="409.77^AVID"
^DD(409.77,.06,1,1,1)="S ^SD(409.77,""AVID"",$E(X,1,30),DA)="""""
^DD(409.77,.06,1,1,2)="K ^SD(409.77,""AVID"",$E(X,1,30),DA)"
^DD(409.77,.06,1,1,"%D",0)="^^9^9^2970711^"
^DD(409.77,.06,1,1,"%D",1,0)="Cross reference to sort by the Unique Visit ID of the related Outpatient"
^DD(409.77,.06,1,1,"%D",2,0)="Encounter."
^DD(409.77,.06,1,1,"%D",3,0)=" "
^DD(409.77,.06,1,1,"%D",4,0)="Resulting node:"
^DD(409.77,.06,1,1,"%D",5,0)="  ^SD(409.77,""AVID"",[.06],DA)"
^DD(409.77,.06,1,1,"%D",6,0)=" "
^DD(409.77,.06,1,1,"%D",7,0)="Where:"
^DD(409.77,.06,1,1,"%D",8,0)="  [.06] is field number .06 (Unique Visit ID)"
^DD(409.77,.06,1,1,"%D",9,0)="  DA is the entry number"
^DD(409.77,.06,1,1,"DT")="2970707"
^DD(409.77,.06,3)="Answer must be 1-12 characters in length."
^DD(409.77,.06,21,0)="^^4^4^2970710^"
^DD(409.77,.06,21,1,0)="This is the Unique Visit ID of the related Outpatient Encounter.  This"
^DD(409.77,.06,21,2,0)="equates to the Unique Visit Number field (#.2) of the Outpatient Encounter"
^DD(409.77,.06,21,3,0)="file (#409.68) and the twentieth piece of the Old Encounter Zero Node"
^DD(409.77,.06,21,4,0)="field (#11) of the Deleted Outpatient Encounter file (#409.74)."
^DD(409.77,.06,"DT")="2970709"
^DD(409.77,11,0)="DATE/TIME OF TRANSMISSION^RD^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.77,11,.1)="Date/time of Transmission"
^DD(409.77,11,1,0)="^.1"
^DD(409.77,11,1,1,0)="409.77^AXMIT"
^DD(409.77,11,1,1,1)="S ^SD(409.77,""AXMIT"",$E(X,1,30),DA)="""""
^DD(409.77,11,1,1,2)="K ^SD(409.77,""AXMIT"",$E(X,1,30),DA)"
^DD(409.77,11,1,1,"%D",0)="^^9^9^2970711^^"
^DD(409.77,11,1,1,"%D",1,0)="Cross reference to sort by the date & time that the Outpatient Encounter"
^DD(409.77,11,1,1,"%D",2,0)="data was transmitted."
^DD(409.77,11,1,1,"%D",3,0)=" "
^DD(409.77,11,1,1,"%D",4,0)="Resulting node:"
^DD(409.77,11,1,1,"%D",5,0)="  ^SD(409.77,""AXMIT"",[11],DA)"
^DD(409.77,11,1,1,"%D",6,0)=" "
^DD(409.77,11,1,1,"%D",7,0)="Where:"
^DD(409.77,11,1,1,"%D",8,0)="  [11] is field number 11 (Date/time of Transmission)"
^DD(409.77,11,1,1,"%D",9,0)="  DA is the entry number"
^DD(409.77,11,1,1,"DT")="2970711"
^DD(409.77,11,3)="Enter the date/time that the transmission took place"
^DD(409.77,11,21,0)="^^3^3^2970711^^"
^DD(409.77,11,21,1,0)="This is the date & time that the transmission being recorded took place."
^DD(409.77,11,21,2,0)="This equates to the Date/time of Xmit to NPCDB field (#11) of the"
^DD(409.77,11,21,3,0)="Transmitted Outpatient Encounter file (#409.73)."
^DD(409.77,11,"DT")="2970711"
^DD(409.77,12,0)="MESSAGE ID OF TRANSMISSION^F^^1;2^K:$L(X)>20!($L(X)<1) X"
^DD(409.77,12,.1)="Message ID of Transmission"
^DD(409.77,12,1,0)="^.1"
^DD(409.77,12,1,1,0)="409.77^AMID"
^DD(409.77,12,1,1,1)="S ^SD(409.77,""AMID"",$E(X,1,30),DA)="""""
^DD(409.77,12,1,1,2)="K ^SD(409.77,""AMID"",$E(X,1,30),DA)"
^DD(409.77,12,1,1,"%D",0)="^^9^9^2970711^"
^DD(409.77,12,1,1,"%D",1,0)="Cross reference to sort by the HL7 Message Control ID used when the"
^DD(409.77,12,1,1,"%D",2,0)="related Outpatient Encounter was transmitted."
^DD(409.77,12,1,1,"%D",3,0)=" "
^DD(409.77,12,1,1,"%D",4,0)="Resulting node:"
^DD(409.77,12,1,1,"%D",5,0)="  ^SD(409.77,""AMID"",[12],DA)"
^DD(409.77,12,1,1,"%D",6,0)=" "
^DD(409.77,12,1,1,"%D",7,0)="Where:"
^DD(409.77,12,1,1,"%D",8,0)="  [12] is field number 12 (Message ID of Transmission)"
^DD(409.77,12,1,1,"%D",9,0)="  DA is the entry number"
^DD(409.77,12,1,1,"DT")="2970707"
^DD(409.77,12,3)="Enter the HL7 Message Control ID used when transmitting the information"
^DD(409.77,12,21,0)="^^4^4^2970710^"
^DD(409.77,12,21,1,0)="This is the HL7 Message Control ID that was given to the message used to"
^DD(409.77,12,21,2,0)="transmit the related Outpatient Encounter information.  This equates to"
^DD(409.77,12,21,3,0)="the Message ID of Xmit to NPCDB field (#12) of the Transmitted Outpatient"
^DD(409.77,12,21,4,0)="Encounter file (#409.73)."
^DD(409.77,12,"DT")="2970707"
^DD(409.77,13,0)="BATCH ID OF TRANSMISSION^F^^1;3^K:$L(X)>20!($L(X)<1) X"
^DD(409.77,13,.1)="Batch ID of Transmission"
^DD(409.77,13,1,0)="^.1"
^DD(409.77,13,1,1,0)="409.77^ABID"
^DD(409.77,13,1,1,1)="S ^SD(409.77,""ABID"",$E(X,1,30),DA)="""""
^DD(409.77,13,1,1,2)="K ^SD(409.77,""ABID"",$E(X,1,30),DA)"
^DD(409.77,13,1,1,"%D",0)="^^9^9^2970718^"
^DD(409.77,13,1,1,"%D",1,0)="Cross reference to sort by the HL7 Batch Control ID used when the related"
^DD(409.77,13,1,1,"%D",2,0)="Outpatient Encounter was transmitted."
^DD(409.77,13,1,1,"%D",3,0)=" "
^DD(409.77,13,1,1,"%D",4,0)="Resulting node:"
^DD(409.77,13,1,1,"%D",5,0)="  ^SD(409.77,""ABID"",[13],DA)                                       "
^DD(409.77,13,1,1,"%D",6,0)=" "
^DD(409.77,13,1,1,"%D",7,0)="Where:"
^DD(409.77,13,1,1,"%D",8,0)="  [13] is field number 13 (Batch ID of Transmission)          "
^DD(409.77,13,1,1,"%D",9,0)="  DA is the entry number"
^DD(409.77,13,1,1,"DT")="2970707"
^DD(409.77,13,3)="Enter the HL7 Batch Control ID used when transmitting the information"
^DD(409.77,13,21,0)="^^4^4^2970710^"
^DD(409.77,13,21,1,0)="This is the HL7 Batch Control ID that was given to the message used to"
^DD(409.77,13,21,2,0)="transmit the related Outpatient Encounter information.  This equates to"
^DD(409.77,13,21,3,0)="the Batch ID of Xmit to NPCDB field (#13) of the Transmitted Outpatient"
^DD(409.77,13,21,4,0)="Encounter file (#409.73)."
^DD(409.77,13,"DT")="2970707"
^DD(409.77,21,0)="DATE/TIME OF ACKNOWLEDGEMENT^D^^2;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.77,21,.1)="Date/time of Acknowledgement"
^DD(409.77,21,3)="Enter the date/time that the acknowledgement was received"
^DD(409.77,21,21,0)="^^3^3^2970710^"
^DD(409.77,21,21,1,0)="This is the date & time that the resulting acknowledgement was received."
^DD(409.77,21,21,2,0)="This equates to the Date/time of Ack from NPCDB field (#14) of the"
^DD(409.77,21,21,3,0)="Transmitted Outpatient Encounter file (#409.73)."
^DD(409.77,21,"DT")="2970702"
^DD(409.77,22,0)="ACKNOWLEDGEMENT CODE RECEIVED^S^A:ACCEPTED;R:REJECTED;E:ERROR;^2;2^Q"
^DD(409.77,22,.1)="Acknowledgement Code Received"
^DD(409.77,22,3)="Enter the ack code from the resulting acknowledgement"
^DD(409.77,22,21,0)="^^3^3^2970710^"
^DD(409.77,22,21,1,0)="This is the acknowledgement code that was returned in the resulting"
^DD(409.77,22,21,2,0)="acknowledgement.  This equates to the Ack Code for Ack from NPCDB field"
^DD(409.77,22,21,3,0)="(#15) of the Transmitted Outpatient Encounter file (#409.73)."
^DD(409.77,22,"DT")="2970702"
^DD(409.77,"B","ACKNOWLEDGEMENT CODE RECEIVED",22)=""
^DD(409.77,"B","Acknowledgement Code Received",22)="1"
^DD(409.77,"B","BATCH ID OF TRANSMISSION",13)=""
^DD(409.77,"B","Batch ID of Transmission",13)="1"
^DD(409.77,"B","DATE/TIME OF ACKNOWLEDGEMENT",21)=""
^DD(409.77,"B","DATE/TIME OF ENCOUNTER",.02)=""
^DD(409.77,"B","DATE/TIME OF TRANSMISSION",11)=""
^DD(409.77,"B","Date/time of Acknowledgement",21)="1"
^DD(409.77,"B","Date/time of Encounter",.02)="1"
^DD(409.77,"B","Date/time of Transmission",11)="1"
^DD(409.77,"B","LOCATION",.04)=""
^DD(409.77,"B","Location",.04)="1"
^DD(409.77,"B","MEDICAL CENTER DIVISION",.05)=""
^DD(409.77,"B","MESSAGE ID OF TRANSMISSION",12)=""
^DD(409.77,"B","Medical Center Division",.05)="1"
^DD(409.77,"B","Message ID of Transmission",12)="1"
^DD(409.77,"B","PATIENT",.03)=""
^DD(409.77,"B","Patient",.03)="1"
^DD(409.77,"B","TRANSMITTED OUTPAT ENCOUNTER",.01)=""
^DD(409.77,"B","UNIQUE VISIT ID",.06)=""
^DD(409.77,"B","Unique Visit ID",.06)="1"
^DD(409.77,"GL",0,1,.01)=""
^DD(409.77,"GL",0,2,.02)=""
^DD(409.77,"GL",0,3,.03)=""
^DD(409.77,"GL",0,4,.04)=""
^DD(409.77,"GL",0,5,.05)=""
^DD(409.77,"GL",0,6,.06)=""
^DD(409.77,"GL",1,1,11)=""
^DD(409.77,"GL",1,2,12)=""
^DD(409.77,"GL",1,3,13)=""
^DD(409.77,"GL",2,1,21)=""
^DD(409.77,"GL",2,2,22)=""
^DD(409.77,"IX",.01)=""
^DD(409.77,"IX",.02)=""
^DD(409.77,"IX",.03)=""
^DD(409.77,"IX",.06)=""
^DD(409.77,"IX",11)=""
^DD(409.77,"IX",12)=""
^DD(409.77,"IX",13)=""
^DD(409.77,"RQ",.01)=""
^DD(409.77,"RQ",.02)=""
^DD(409.77,"RQ",.03)=""
^DD(409.77,"RQ",.04)=""
^DD(409.77,"RQ",.05)=""
^DD(409.77,"RQ",.06)=""
^DD(409.77,"RQ",11)=""
^DD(409.91,0)="FIELD^^7^8"
^DD(409.91,0,"DDA")="N"
^DD(409.91,0,"DT")="2980320"
^DD(409.91,0,"IX","B",409.91,.01)=""
^DD(409.91,0,"NM","ACRP REPORT TEMPLATE")=""
^DD(409.91,0,"VR")="5.3"
^DD(409.91,0,"VRPK")="SD"
^DD(409.91,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(409.91,.01,1,0)="^.1"
^DD(409.91,.01,1,1,0)="409.91^B"
^DD(409.91,.01,1,1,1)="S ^SDD(409.91,""B"",$E(X,1,30),DA)="""""
^DD(409.91,.01,1,1,2)="K ^SDD(409.91,""B"",$E(X,1,30),DA)"
^DD(409.91,.01,3)="Answer must be 3-30 characters in length."
^DD(409.91,.01,21,0)="^^1^1^2980528^"
^DD(409.91,.01,21,1,0)="This is the name of the 'ACRP Ad Hoc Report' template being stored."
^DD(409.91,.01,"DT")="2980320"
^DD(409.91,1,0)="CREATED BY^P200'^VA(200,^0;2^Q"
^DD(409.91,1,3)="This is the person that originally created this template."
^DD(409.91,1,21,0)="^^1^1^2980528^"
^DD(409.91,1,21,1,0)="The person that originally created and stored this template."
^DD(409.91,1,"DT")="2980320"
^DD(409.91,2,0)="DATE CREATED^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.91,2,3)="Date/time this template was originally created."
^DD(409.91,2,21,0)="^^1^1^2980528^"
^DD(409.91,2,21,1,0)="The date/time this template was originally stored."
^DD(409.91,2,"DT")="2980320"
^DD(409.91,3,0)="LAST EDITED BY^P200'^VA(200,^0;4^Q"
^DD(409.91,3,3)="The last person to file parameter specifications to this template record."
^DD(409.91,3,21,0)="^^1^1^2980528^"
^DD(409.91,3,21,1,0)="The last person to file parameter specifications to this template record."
^DD(409.91,3,"DT")="2980320"
^DD(409.91,4,0)="DATE LAST EDITED^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(409.91,4,3)="Date/time parameter specifications were last filed to this template record."
^DD(409.91,4,21,0)="^^1^1^2980528^"
^DD(409.91,4,21,1,0)="The last date parameter specifications were stored in this template record."
^DD(409.91,4,"DT")="2980320"
^DD(409.91,5,0)="DESCRIPTION^F^^0;6^K:$L(X)>80!($L(X)<3) X"
^DD(409.91,5,3)="Answer must be 3-80 characters in length.  Enter a brief description of the purpose of this template."
^DD(409.91,5,21,0)="^^1^1^2980528^"
^DD(409.91,5,21,1,0)="A brief description of the purpose of this template."
^DD(409.91,5,"DT")="2980320"
^DD(409.91,6,0)="REPORT PARAMETERS^409.916SA^^1;0"
^DD(409.91,6,21,0)="^^2^2^2980528^"
^DD(409.91,6,21,1,0)="This multiple stores the four types of parameters that a template always"
^DD(409.91,6,21,2,0)="consists of (FORMAT, PERSPECTIVE, LIMITATIONS and PRINT ORDER)."
^DD(409.91,7,0)="ADDITIONAL PRINT FIELDS^409.917SA^^2;0"
^DD(409.91,7,21,0)="^^2^2^2980528^"
^DD(409.91,7,21,1,0)="This multiple contains a list of additional print field selected to be"
^DD(409.91,7,21,2,0)="included in the output of detailed format reports (if any)."
^DD(409.91,"B","ADDITIONAL PRINT FIELDS",7)=""
^DD(409.91,"B","CREATED BY",1)=""
^DD(409.91,"B","DATE CREATED",2)=""
^DD(409.91,"B","DATE LAST EDITED",4)=""
^DD(409.91,"B","DESCRIPTION",5)=""
^DD(409.91,"B","LAST EDITED BY",3)=""
^DD(409.91,"B","NAME",.01)=""
^DD(409.91,"B","REPORT PARAMETERS",6)=""
^DD(409.91,"GL",0,1,.01)=""
^DD(409.91,"GL",0,2,1)=""
^DD(409.91,"GL",0,3,2)=""
^DD(409.91,"GL",0,4,3)=""
^DD(409.91,"GL",0,5,4)=""
^DD(409.91,"GL",0,6,5)=""
^DD(409.91,"GL",1,0,6)=""
^DD(409.91,"GL",2,0,7)=""
^DD(409.91,"IX",.01)=""
^DD(409.91,"RQ",.01)=""
^DD(409.91,"SB",409.916,6)=""
^DD(409.91,"SB",409.917,7)=""
^DD(409.916,0)="REPORT PARAMETERS SUB-FIELD^^1^2"
^DD(409.916,0,"DT")="2980320"
^DD(409.916,0,"IX","B",409.916,.01)=""
^DD(409.916,0,"NM","REPORT PARAMETERS")=""
^DD(409.916,0,"UP")="409.91"
^DD(409.916,.01,0)="PARAMETER TYPE^S^F:FORMAT;P:PERSPECTIVE;L:LIMITATIONS;O:PRINT ORDER;^0;1^Q"
^DD(409.916,.01,1,0)="^.1"
^DD(409.916,.01,1,1,0)="409.916^B"
^DD(409.916,.01,1,1,1)="S ^SDD(409.91,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.916,.01,1,1,2)="K ^SDD(409.91,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.916,.01,3)="Enter the type of parameter these specifications represent."
^DD(409.916,.01,"DT")="2980320"
^DD(409.916,1,0)="PARAMETER NUMBER^409.9161A^^1;0"
^DD(409.916,1,21,0)="^^1^1^2980528^"
^DD(409.916,1,21,1,0)="This multiple contains the various elements of this parameter type."
^DD(409.916,"B","PARAMETER NUMBER",1)=""
^DD(409.916,"B","PARAMETER TYPE",.01)=""
^DD(409.916,"GL",0,1,.01)=""
^DD(409.916,"GL",1,0,1)=""
^DD(409.916,"IX",.01)=""
^DD(409.916,"SB",409.9161,1)=""
^DD(409.9161,0)="PARAMETER NUMBER SUB-FIELD^^6^11"
^DD(409.9161,0,"DT")="2980320"
^DD(409.9161,0,"IX","B",409.9161,.01)=""
^DD(409.9161,0,"NM","PARAMETER NUMBER")=""
^DD(409.9161,0,"UP")="409.916"
^DD(409.9161,.01,0)="PARAMETER NUMBER^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(409.9161,.01,1,0)="^.1"
^DD(409.9161,.01,1,1,0)="409.9161^B"
^DD(409.9161,.01,1,1,1)="S ^SDD(409.91,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.9161,.01,1,1,2)="K ^SDD(409.91,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.9161,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(409.9161,.01,"DT")="2980320"
^DD(409.9161,.02,0)="CATEGORY INTERNAL^F^^0;2^K:$L(X)>120!($L(X)<1) X"
^DD(409.9161,.02,3)="Answer must be 1-120 characters in length, representing the internal value (abbreviation) of the major category for this parameter."
^DD(409.9161,.02,21,0)="^^2^2^2980528^"
^DD(409.9161,.02,21,1,0)="This is the acronym or internal value that represents the major category"
^DD(409.9161,.02,21,2,0)="of the data type for this parameter."
^DD(409.9161,.02,"DT")="2980320"
^DD(409.9161,.03,0)="CATEGORY EXTERNAL^F^^0;3^K:$L(X)>120!($L(X)<1) X"
^DD(409.9161,.03,3)="Answer must be 1-120 characters in length, representing the external value of the major category for this parameter."
^DD(409.9161,.03,21,0)="^^1^1^2980528^"
^DD(409.9161,.03,21,1,0)="This is the major category of the data type for this parameter."
^DD(409.9161,.03,"DT")="2980320"
^DD(409.9161,1,0)="SUBCATEGORY INTERNAL^F^^1;1^K:$L(X)>120!($L(X)<1) X"
^DD(409.9161,1,3)="Answer must be 1-120 characters in length, representing the internal value (abbteviation) of the subcategory for this parameter."
^DD(409.9161,1,21,0)="^^2^2^2980528^"
^DD(409.9161,1,21,1,0)="This is the acronym or internal value that represents the sub-category"
^DD(409.9161,1,21,2,0)="of the data element for this parameter."
^DD(409.9161,1,"DT")="2980320"
^DD(409.9161,1.1,0)="SUBCATEGORY EXTERNAL^F^^1;2^K:$L(X)>120!($L(X)<1) X"
^DD(409.9161,1.1,3)="Answer must be 1-120 characters in length, representing the external value of the subcategory for this parameter."
^DD(409.9161,1.1,21,0)="^^1^1^2980528^"
^DD(409.9161,1.1,21,1,0)="This is the sub-category of the data element for this parameter."
^DD(409.9161,1.1,"DT")="2980320"
^DD(409.9161,2,0)="LIST/RANGE/NULL INTERNAL^S^L:LIST;R:RANGE;N:NULL;^2;1^Q"
^DD(409.9161,2,3)="This determines the method of selection for this data element."
^DD(409.9161,2,21,0)="^^2^2^2980528^"
^DD(409.9161,2,21,1,0)="This is the internal value of the set of codes which indicate if this"
^DD(409.9161,2,21,2,0)="parameter will return a list, range or null values."
^DD(409.9161,2,"DT")="2980320"
^DD(409.9161,2.1,0)="LIST/RANGE/NULL EXTERNAL^F^^2;2^K:$L(X)>120!($L(X)<1) X"
^DD(409.9161,2.1,3)="Answer must be 1-120 characters in length."
^DD(409.9161,2.1,21,0)="^^2^2^2980528^"
^DD(409.9161,2.1,21,1,0)="This is the external value that indicates if this parameter returns a"
^DD(409.9161,2.1,21,2,0)="list, range or null values."
^DD(409.9161,2.1,"DT")="2980320"
^DD(409.9161,3,0)="INCLUDE/EXCLUDE INTERNAL^S^I:INCLUDE;E:EXCLUDE;^3;1^Q"
^DD(409.9161,3,3)="For limitation purposes, this determines if activity with this data element will be included or excluded from the report."
^DD(409.9161,3,21,0)="^^2^2^2980528^"
^DD(409.9161,3,21,1,0)="This is the internal value of the set of codes that indicate if this"
^DD(409.9161,3,21,2,0)="data element is to be included or excluded from the report."
^DD(409.9161,3,"DT")="2980320"
^DD(409.9161,3.1,0)="INCLUDE/EXCLUDE EXTERNAL^F^^3;2^K:$L(X)>120!($L(X)<1) X"
^DD(409.9161,3.1,3)="Answer must be 1-120 characters in length."
^DD(409.9161,3.1,21,0)="^^2^2^2980528^"
^DD(409.9161,3.1,21,1,0)="This indicates if this data element should be included or excluded from"
^DD(409.9161,3.1,21,2,0)="the output."
^DD(409.9161,3.1,"DT")="2980320"
^DD(409.9161,4,0)="ITEM LIST^409.91614A^^4;0"
^DD(409.9161,4,21,0)="^^2^2^2980528^"
^DD(409.9161,4,21,1,0)="This multiple contains the specific data items that this parameter will"
^DD(409.9161,4,21,2,0)="include or exclude."
^DD(409.9161,6,0)="DATE VALUED^S^D:DATE VALUED;^6;1^Q"
^DD(409.9161,6,3)="Indicates if this parameter item is date valued."
^DD(409.9161,6,21,0)="^^1^1^2980528^"
^DD(409.9161,6,21,1,0)="This is used to indicate if this data element is date valued."
^DD(409.9161,6,"DT")="2980320"
^DD(409.9161,"B","CATEGORY EXTERNAL",.03)=""
^DD(409.9161,"B","CATEGORY INTERNAL",.02)=""
^DD(409.9161,"B","DATE VALUED",6)=""
^DD(409.9161,"B","INCLUDE/EXCLUDE EXTERNAL",3.1)=""
^DD(409.9161,"B","INCLUDE/EXCLUDE INTERNAL",3)=""
^DD(409.9161,"B","ITEM LIST",4)=""
^DD(409.9161,"B","LIST/RANGE/NULL EXTERNAL",2.1)=""
^DD(409.9161,"B","LIST/RANGE/NULL INTERNAL",2)=""
^DD(409.9161,"B","PARAMETER NUMBER",.01)=""
^DD(409.9161,"B","SUBCATEGORY EXTERNAL",1.1)=""
^DD(409.9161,"B","SUBCATEGORY INTERNAL",1)=""
^DD(409.9161,"GL",0,1,.01)=""
^DD(409.9161,"GL",0,2,.02)=""
^DD(409.9161,"GL",0,3,.03)=""
^DD(409.9161,"GL",1,1,1)=""
^DD(409.9161,"GL",1,2,1.1)=""
^DD(409.9161,"GL",2,1,2)=""
^DD(409.9161,"GL",2,2,2.1)=""
^DD(409.9161,"GL",3,1,3)=""
^DD(409.9161,"GL",3,2,3.1)=""
^DD(409.9161,"GL",4,0,4)=""
^DD(409.9161,"GL",6,1,6)=""
^DD(409.9161,"IX",.01)=""
^DD(409.9161,"SB",409.91614,4)=""
^DD(409.91614,0)="ITEM LIST SUB-FIELD^^.02^2"
^DD(409.91614,0,"DT")="2980320"
^DD(409.91614,0,"IX","B",409.91614,.01)=""
^DD(409.91614,0,"NM","ITEM LIST")=""
^DD(409.91614,0,"UP")="409.9161"
^DD(409.91614,.01,0)="ITEM EXTERNAL^F^^0;1^K:$L(X)>120!($L(X)<1) X"
^DD(409.91614,.01,1,0)="^.1"
^DD(409.91614,.01,1,1,0)="409.91614^B"
^DD(409.91614,.01,1,1,1)="S ^SDD(409.91,DA(3),1,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(409.91614,.01,1,1,2)="K ^SDD(409.91,DA(3),1,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(409.91614,.01,3)="Answer must be 1-120 characters in length, representing the external value of a selected data item."
^DD(409.91614,.01,21,0)="^^1^1^2980528^"
^DD(409.91614,.01,21,1,0)="This is the external value of the selected data item."
^DD(409.91614,.01,"DT")="2980320"
^DD(409.91614,.02,0)="ITEM INTERNAL^F^^0;2^K:$L(X)>120!($L(X)<1) X"
^DD(409.91614,.02,3)="Answer must be 1-120 characters in length, representing the internal value of a selected data item."
^DD(409.91614,.02,21,0)="^^1^1^2980528^"
^DD(409.91614,.02,21,1,0)="This is the internal value of the selected data item."
^DD(409.91614,.02,"DT")="2980320"
^DD(409.91614,"B","ITEM EXTERNAL",.01)=""
^DD(409.91614,"B","ITEM INTERNAL",.02)=""
^DD(409.91614,"GL",0,1,.01)=""
^DD(409.91614,"GL",0,2,.02)=""
^DD(409.91614,"IX",.01)=""
^DD(409.917,0)="ADDITIONAL PRINT FIELDS SUB-FIELD^^1^2"
^DD(409.917,0,"DT")="2980320"
^DD(409.917,0,"IX","B",409.917,.01)=""
^DD(409.917,0,"NM","ADDITIONAL PRINT FIELDS")=""
^DD(409.917,0,"UP")="409.91"
^DD(409.917,.01,0)="PRINT FIELD TYPE^S^1:ENCOUNTER RELATED DATA;2:PATIENT RELATED DATA;^0;1^Q"
^DD(409.917,.01,1,0)="^.1"
^DD(409.917,.01,1,1,0)="409.917^B"
^DD(409.917,.01,1,1,1)="S ^SDD(409.91,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(409.917,.01,1,1,2)="K ^SDD(409.91,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(409.917,.01,3)="Specifies the type of additional print field data."
^DD(409.917,.01,21,0)="^^6^6^2980529^^"
^DD(409.917,.01,21,1,0)="This set of codes determines which data elements may be selected for"
^DD(409.917,.01,21,2,0)="additional print fields according to the detail list type that has"
^DD(409.917,.01,21,3,0)="been selected.  For unique patient and visit type detail lists, only"
^DD(409.917,.01,21,4,0)="patient related data elements may be selected.  For encounter type"
^DD(409.917,.01,21,5,0)="detail lists, patient related and encounter related elements may be"
^DD(409.917,.01,21,6,0)="selected."
^DD(409.917,.01,"DT")="2980320"
^DD(409.917,1,0)="DATA ELEMENT^409.9171A^^1;0"
^DD(409.917,1,21,0)="^^2^2^2980529^"
^DD(409.917,1,21,1,0)="This is the external representation of the major category of this "
^DD(409.917,1,21,2,0)="data type."
^DD(409.917,"B","DATA ELEMENT",1)=""
^DD(409.917,"B","PRINT FIELD TYPE",.01)=""
^DD(409.917,"GL",0,1,.01)=""
^DD(409.917,"GL",1,0,1)=""
^DD(409.917,"IX",.01)=""
^DD(409.917,"SB",409.9171,1)=""
^DD(409.9171,0)="DATA ELEMENT SUB-FIELD^^2^3"
^DD(409.9171,0,"DT")="2980320"
^DD(409.9171,0,"IX","B",409.9171,.01)=""
^DD(409.9171,0,"NM","DATA ELEMENT")=""
^DD(409.9171,0,"UP")="409.917"
^DD(409.9171,.01,0)="DATA ELEMENT ACRONYM^F^^0;1^K:$L(X)>4!($L(X)<4) X"
^DD(409.9171,.01,1,0)="^.1"
^DD(409.9171,.01,1,1,0)="409.9171^B"
^DD(409.9171,.01,1,1,1)="S ^SDD(409.91,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.9171,.01,1,1,2)="K ^SDD(409.91,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.9171,.01,3)="Answer must be 4 characters in length.  "
^DD(409.9171,.01,"DT")="2980320"
^DD(409.9171,1,0)="DATA ELEMENT CATEGORY^F^^0;2^K:$L(X)>120!($L(X)<1) X"
^DD(409.9171,1,3)="Answer must be 1-120 characters in length, representing the major category of this additional print field."
^DD(409.9171,1,"DT")="2980320"
^DD(409.9171,2,0)="DATA ELEMENT SUBCATEGORY^F^^0;3^K:$L(X)>120!($L(X)<1) X"
^DD(409.9171,2,3)="Answer must be 1-120 characters in length, representing the minor category of this additional print field."
^DD(409.9171,2,21,0)="^^2^2^2980529^"
^DD(409.9171,2,21,1,0)="This is the external representation of the subcategory of this data"
^DD(409.9171,2,21,2,0)="element."
^DD(409.9171,2,"DT")="2980320"
^DD(409.9171,"B","DATA ELEMENT ACRONYM",.01)=""
^DD(409.9171,"B","DATA ELEMENT CATEGORY",1)=""
^DD(409.9171,"B","DATA ELEMENT SUBCATEGORY",2)=""
^DD(409.9171,"GL",0,1,.01)=""
^DD(409.9171,"GL",0,2,1)=""
^DD(409.9171,"GL",0,3,2)=""
^DD(409.9171,"IX",.01)=""
^DD(409.92,0)="FIELD^^16^17"
^DD(409.92,0,"DDA")="N"
^DD(409.92,0,"DT")="2980408"
^DD(409.92,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(409.92,0,"ID",4)="W ""   "",$P(^(0),U,5)"
^DD(409.92,0,"IX","AC",409.92,16)=""
^DD(409.92,0,"IX","B",409.92,.01)=""
^DD(409.92,0,"IX","C",409.92,4)=""
^DD(409.92,0,"NM","ACRP REPORT TEMPLATE PARAMETER")=""
^DD(409.92,0,"VR")="5.3"
^DD(409.92,0,"VRPK")="SD"
^DD(409.92,.01,0)="ORDER NUMBER^RF^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(409.92,.01,1,0)="^.1"
^DD(409.92,.01,1,1,0)="409.92^B"
^DD(409.92,.01,1,1,1)="S ^SD(409.92,""B"",$E(X,1,30),DA)="""""
^DD(409.92,.01,1,1,2)="K ^SD(409.92,""B"",$E(X,1,30),DA)"
^DD(409.92,.01,3)="Answer must be 4 characters in length, all numeric; where the first 2 characters represent the order of the major category, the second 2 characters represent the order of the minor category."
^DD(409.92,.01,21,0)="^^5^5^2980529^"
^DD(409.92,.01,21,1,0)="This is a 4 digit numeric value that determines where (and in what"
^DD(409.92,.01,21,2,0)="order) each data element will be displayed by ^DIR for selection in the"
^DD(409.92,.01,21,3,0)="'ACRP Ad Hoc Report'.  The first to digits determine the order of the"
^DD(409.92,.01,21,4,0)="major category of this data element.  The second two digits determine the"
^DD(409.92,.01,21,5,0)="order of the subcategory of this data element (within the major category)."
^DD(409.92,.01,"DT")="2980319"
^DD(409.92,1,0)="MAJOR CATEGORY (INTERNAL)^F^^0;2^K:$L(X)>2!($L(X)<2) X"
^DD(409.92,1,3)="Answer must be 2 characters in length."
^DD(409.92,1,21,0)="^^4^4^2980529^"
^DD(409.92,1,21,1,0)="This is the internal value or acronym that represents the major category"
^DD(409.92,1,21,2,0)="of this data element.  The 4 character acronym created by concatinating"
^DD(409.92,1,21,3,0)="the major category acromym with the subcategory acronym is used as a"
^DD(409.92,1,21,4,0)="unique identifier for this data element."
^DD(409.92,1,"DT")="2980319"
^DD(409.92,2,0)="MAJOR CATEGORY (EXTERNAL)^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(409.92,2,3)="Answer must be 1-40 characters in length."
^DD(409.92,2,21,0)="^^2^2^2980529^"
^DD(409.92,2,21,1,0)="This is the external representation of the major category (conceptual"
^DD(409.92,2,21,2,0)="group) of this data element."
^DD(409.92,2,"DT")="2980408"
^DD(409.92,3,0)="MINOR CATEGORY (INTERNAL)^F^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(409.92,3,3)="Answer must be 2 characters in length."
^DD(409.92,3,21,0)="^^2^2^2980529^"
^DD(409.92,3,21,1,0)="This is the internal value or acronym that represents the subcategory"
^DD(409.92,3,21,2,0)="of this data element."
^DD(409.92,3,"DT")="2980319"
^DD(409.92,4,0)="MINOR CATEGORY (EXTERNAL)^F^^0;5^K:$L(X)>40!($L(X)<1) X"
^DD(409.92,4,1,0)="^.1"
^DD(409.92,4,1,1,0)="409.92^C^MUMPS"
^DD(409.92,4,1,1,1)="S ^SD(409.92,""C"",X,DA)="""""
^DD(409.92,4,1,1,2)="K ^SD(409.92,""C"",X,DA)"
^DD(409.92,4,1,1,"DT")="2980319"
^DD(409.92,4,3)="Answer must be 1-40 characters in length."
^DD(409.92,4,21,0)="^^2^2^2980529^"
^DD(409.92,4,21,1,0)="This is the external representation of the subcategory (actual data value)"
^DD(409.92,4,21,2,0)="of this data element."
^DD(409.92,4,"DT")="2980408"
^DD(409.92,5,0)="TYPE^S^D:DATE;P:POINTER;F:FIELD;N:NUMBER;T:TEXT;C:COMPUTED;PP:POINTER/POINTER;S:SET OF CODES;^0;6^Q"
^DD(409.92,5,3)="Indicates the type of data this element is."
^DD(409.92,5,21,0)="^^2^2^2980529^"
^DD(409.92,5,21,1,0)="This field defines the type of data this data element consists of and "
^DD(409.92,5,21,2,0)="determines how it will be manipulated generically."
^DD(409.92,5,"DT")="2980319"
^DD(409.92,6,0)="TYPE WHERE^F^^7;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(409.92,6,3)="Answer must be 1-245 characters in length.  Contains 'where' (global or field) or execute code that sets up DIR array for set of codes."
^DD(409.92,6,8)="@"
^DD(409.92,6,8.5)="@"
^DD(409.92,6,9)="@"
^DD(409.92,6,21,0)="^^9^9^2980529^"
^DD(409.92,6,21,1,0)="This indicates where or how this data type is found or code to set up"
^DD(409.92,6,21,2,0)="DIR(0). Specifically:"
^DD(409.92,6,21,3,0)=" "
^DD(409.92,6,21,4,0)="       Data type:              Value:"
^DD(409.92,6,21,5,0)="       ------------------      -------------------------------"
^DD(409.92,6,21,6,0)="       FIELD                   ""file#,field#"""
^DD(409.92,6,21,7,0)="       POINTER                 global root of file pointed to"
^DD(409.92,6,21,8,0)="       POINTER/POINTER         ""globalroot;field#"""
^DD(409.92,6,21,9,0)="       SET OF CODES            execute code to set DIR(0)"
^DD(409.92,6,"DT")="2980319"
^DD(409.92,7,0)="TYPE SCREEN^F^^8;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(409.92,7,3)="Answer must be 1-245 characters in length.  Value for DIC(""S"") or input transform."
^DD(409.92,7,8)="@"
^DD(409.92,7,8.5)="@"
^DD(409.92,7,9)="@"
^DD(409.92,7,21,0)="^^9^9^2980529^"
^DD(409.92,7,21,1,0)="This field contains logic for DIC(""S"") or parameters for DIC(0),"
^DD(409.92,7,21,2,0)="specifically:"
^DD(409.92,7,21,3,0)=" "
^DD(409.92,7,21,4,0)="       Data type:              Value:"
^DD(409.92,7,21,5,0)="       --------------------    -------------------------------------"
^DD(409.92,7,21,6,0)="       DATE                    value for DIR(0)          (required)"
^DD(409.92,7,21,7,0)="       NUMBER                  value for DIR(0)          (required)"
^DD(409.92,7,21,8,0)="       POINTER                 screen logic for DIC(""S"") (optional)"
^DD(409.92,7,21,9,0)="       TEXT                    value for DIR(0)          (required)"
^DD(409.92,7,"DT")="2980319"
^DD(409.92,8,0)="CHOICE METHOD^S^L:LIST;R:RANGE;LR:LIST OR RANGE;^0;9^Q"
^DD(409.92,8,3)="Determines selection method(s) allowed for this data element."
^DD(409.92,8,21,0)="^^2^2^2980529^"
^DD(409.92,8,21,1,0)="This determines the choice method(s) the user will be allowed when"
^DD(409.92,8,21,2,0)="selecting items for this data element."
^DD(409.92,8,"DT")="2980319"
^DD(409.92,9,0)="NUMBER OF CHOICES^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(409.92,9,3)="Type a Number between 0 and 999, 0 Decimal Digits.  Limits the number of choices for list selection."
^DD(409.92,9,21,0)="^^2^2^2980529^"
^DD(409.92,9,21,1,0)="This determines the maximum number of item choices a user is allowed"
^DD(409.92,9,21,2,0)="for this data element."
^DD(409.92,9,"DT")="2980319"
^DD(409.92,10,0)="CODE TO SET 'SDX'^K^^11;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.92,10,3)="This is Standard MUMPS code.  Creates SDX array where SDX(internal value)=external value."
^DD(409.92,10,9)="@"
^DD(409.92,10,21,0)="^^6^6^2980529^"
^DD(409.92,10,21,1,0)="When an encounter is being evaluated, the actual data values for this "
^DD(409.92,10,21,2,0)="data element are extracted into an array where:"
^DD(409.92,10,21,3,0)=" "
^DD(409.92,10,21,4,0)="       SDX(n)=internal value^external value"
^DD(409.92,10,21,5,0)=" "
^DD(409.92,10,21,6,0)="This field contains code which, when executed, will create the SDX array."
^DD(409.92,10,"DT")="2980319"
^DD(409.92,11,0)="OUTPUT TRANSFORM^K^^12;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.92,11,3)="This is Standard MUMPS code.  Performs output transform (where SDX=""internal value^external value"" or ""int;int^ext / ext"" for pointer/pointer data types)."
^DD(409.92,11,9)="@"
^DD(409.92,11,21,0)="^^2^2^2980529^"
^DD(409.92,11,21,1,0)="This field contains code which, when executed, will transform the values"
^DD(409.92,11,21,2,0)="in the SDX(n) array into a different format, if desired."
^DD(409.92,11,"DT")="2980319"
^DD(409.92,12,0)="CODE TO SET 'SDIRQ'^K^^13;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(409.92,12,3)="This is Standard MUMPS code.  Code that sets SDIRQ array for use as DIR(""?"")."
^DD(409.92,12,9)="@"
^DD(409.92,12,21,0)="^^2^2^2980529^"
^DD(409.92,12,21,1,0)="This field contains code that sets the SDIRQ array to help text used as"
^DD(409.92,12,21,2,0)="the DIR(""?"") array."
^DD(409.92,12,"DT")="2980319"
^DD(409.92,13,0)="ADDITIONAL LIMITATIONS^F^^0;14^K:$L(X)>4!($L(X)<4) X"
^DD(409.92,13,3)="Answer must be 4 characters in length.  Represents synonymous additional limitations to apply when evaluating limitations."
^DD(409.92,13,21,0)="^^3^3^2980529^"
^DD(409.92,13,21,1,0)="This field contains the acronym representing an additional data element"
^DD(409.92,13,21,2,0)="to be applied synonymously when evaluating this data element as a "
^DD(409.92,13,21,3,0)="limitation."
^DD(409.92,13,"DT")="2980319"
^DD(409.92,14,0)="PRINT FIELD LEVEL^S^0:EXCLUDE;1:ENCOUNTER DETAIL ONLY;2:ALL DETAIL TYPES;^0;15^Q"
^DD(409.92,14,3)="Determines which data element are selectable for which patient detail types (ie. encounter or patient/visit)."
^DD(409.92,14,21,0)="^^2^2^2980529^"
^DD(409.92,14,21,1,0)="This field describes what level of detail this data element is related"
^DD(409.92,14,21,2,0)="to and restricts selection accordingly."
^DD(409.92,14,"DT")="2980319"
^DD(409.92,15,0)="MULTIPLE VALUED^S^0:NO;1:YES;^0;16^Q"
^DD(409.92,15,3)="Indicates if this data element is potentially multiply valued."
^DD(409.92,15,21,0)="^^2^2^2980529^"
^DD(409.92,15,21,1,0)="This indicates if the actual data for this data element can potentially"
^DD(409.92,15,21,2,0)="be multiply valued."
^DD(409.92,15,"DT")="2980319"
^DD(409.92,16,0)="ACRONYM^F^^1;1^K:$L(X)>4!($L(X)<4) X"
^DD(409.92,16,1,0)="^.1"
^DD(409.92,16,1,1,0)="409.92^AC^MUMPS"
^DD(409.92,16,1,1,1)="S ^SD(409.92,""C"",X,DA)="""""
^DD(409.92,16,1,1,2)="K ^SD(409.92,""C"",X,DA)"
^DD(409.92,16,1,1,"%D",0)="^^1^1^2980319^^^"
^DD(409.92,16,1,1,"%D",1,0)="Adds acronym to 'C' x-ref. for lookup."
^DD(409.92,16,1,1,"DT")="2980319"
^DD(409.92,16,3)="Answer must be 4 characters in length."
^DD(409.92,16,21,0)="^^3^3^2980529^"
^DD(409.92,16,21,1,0)="This field contains the acronym which uniquely identifies this data "
^DD(409.92,16,21,2,0)="element.  It is a 4 character value which consists of the internal"
^DD(409.92,16,21,3,0)="values of the major category and subcategory of this data element."
^DD(409.92,16,"DT")="2980319"
^DD(409.92,"B","ACRONYM",16)=""
^DD(409.92,"B","ADDITIONAL LIMITATIONS",13)=""
^DD(409.92,"B","CHOICE METHOD",8)=""
^DD(409.92,"B","CODE TO SET 'SDIRQ'",12)=""
^DD(409.92,"B","CODE TO SET 'SDX'",10)=""
^DD(409.92,"B","MAJOR CATEGORY (EXTERNAL)",2)=""
^DD(409.92,"B","MAJOR CATEGORY (INTERNAL)",1)=""
^DD(409.92,"B","MINOR CATEGORY (EXTERNAL)",4)=""
^DD(409.92,"B","MINOR CATEGORY (INTERNAL)",3)=""
^DD(409.92,"B","MULTIPLE VALUED",15)=""
^DD(409.92,"B","NUMBER OF CHOICES",9)=""
^DD(409.92,"B","ORDER NUMBER",.01)=""
^DD(409.92,"B","OUTPUT TRANSFORM",11)=""
^DD(409.92,"B","PRINT FIELD LEVEL",14)=""
^DD(409.92,"B","TYPE",5)=""
^DD(409.92,"B","TYPE SCREEN",7)=""
^DD(409.92,"B","TYPE WHERE",6)=""
^DD(409.92,"GL",0,1,.01)=""
^DD(409.92,"GL",0,2,1)=""
^DD(409.92,"GL",0,3,2)=""
^DD(409.92,"GL",0,4,3)=""
^DD(409.92,"GL",0,5,4)=""
^DD(409.92,"GL",0,6,5)=""
^DD(409.92,"GL",0,9,8)=""
^DD(409.92,"GL",0,10,9)=""
^DD(409.92,"GL",0,14,13)=""
^DD(409.92,"GL",0,15,14)=""
^DD(409.92,"GL",0,16,15)=""
^DD(409.92,"GL",1,1,16)=""
^DD(409.92,"GL",7,"E1,245",6)=""
^DD(409.92,"GL",8,"E1,245",7)=""
^DD(409.92,"GL",11,"E1,245",10)=""
^DD(409.92,"GL",12,"E1,245",11)=""
^DD(409.92,"GL",13,"E1,245",12)=""
^DD(409.92,"IX",.01)=""
^DD(409.92,"IX",4)=""
^DD(409.92,"IX",16)=""
^DD(409.92,"RQ",.01)=""
^DD(409.95,0)="FIELD^^2^12"
^DD(409.95,0,"DDA")="N"
^DD(409.95,0,"DT")="2980914"
^DD(409.95,0,"IX","A",409.9501,.01)=""
^DD(409.95,0,"IX","A1",409.9501,.02)=""
^DD(409.95,0,"IX","AE",409.9502,.01)=""
^DD(409.95,0,"IX","B",409.95,.01)=""
^DD(409.95,0,"IX","C",409.95,.02)=""
^DD(409.95,0,"IX","D",409.95,.03)=""
^DD(409.95,0,"IX","E",409.95,.04)=""
^DD(409.95,0,"IX","F",409.95,.05)=""
^DD(409.95,0,"IX","G",409.95,.06)=""
^DD(409.95,0,"IX","H",409.95,.07)=""
^DD(409.95,0,"IX","I",409.95,.08)=""
^DD(409.95,0,"IX","J",409.95,.09)=""
^DD(409.95,0,"NM","PRINT MANAGER CLINIC SETUP")=""
^DD(409.95,0,"VR")="3.0"
^DD(409.95,0,"VRPK")="IBD"
^DD(409.95,.01,0)="CLINIC^R*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C""""!($P(^(0),U,3)=""""W"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.01,1,0)="^.1^^-1"
^DD(409.95,.01,1,1,0)="409.95^B"
^DD(409.95,.01,1,1,1)="S ^SD(409.95,""B"",$E(X,1,30),DA)="""""
^DD(409.95,.01,1,1,2)="K ^SD(409.95,""B"",$E(X,1,30),DA)"
^DD(409.95,.01,3)="Enter the clinic the print manager setup is for.  Currently, only active outpatient clinics and wards are supported."
^DD(409.95,.01,12)="Encounter forms are for clinics or wards."
^DD(409.95,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C""""!($P(^(0),U,3)=""""W"""")"""
^DD(409.95,.01,21,0)="^.001^1^1^3010808^^^^"
^DD(409.95,.01,21,1,0)="Enter a clinic or ward."
^DD(409.95,.01,"DT")="3010808"
^DD(409.95,.02,0)="BASIC DEFAULT ENCOUNTER FORM^*P357'^IBE(357,^0;2^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.02,1,0)="^.1"
^DD(409.95,.02,1,1,0)="409.95^C"
^DD(409.95,.02,1,1,1)="S ^SD(409.95,""C"",$E(X,1,30),DA)="""""
^DD(409.95,.02,1,1,2)="K ^SD(409.95,""C"",$E(X,1,30),DA)"
^DD(409.95,.02,1,1,"DT")="2930209"
^DD(409.95,.02,3)="What form will be the default form printed with patient data for a patient with an appointment?"
^DD(409.95,.02,12)="Does not allow tool kit forms or forms of type other than encounter forms."
^DD(409.95,.02,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.02,21,0)="^^2^2^2930806^^^"
^DD(409.95,.02,21,1,0)=" "
^DD(409.95,.02,21,2,0)="The encounter form that will be printed for every appointment."
^DD(409.95,.02,"DT")="2930806"
^DD(409.95,.03,0)="SUPPLMNTL FORM - ESTBLSHED PT.^*P357'^IBE(357,^0;3^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.03,1,0)="^.1"
^DD(409.95,.03,1,1,0)="409.95^D"
^DD(409.95,.03,1,1,1)="S ^SD(409.95,""D"",$E(X,1,30),DA)="""""
^DD(409.95,.03,1,1,2)="K ^SD(409.95,""D"",$E(X,1,30),DA)"
^DD(409.95,.03,1,1,"DT")="2930209"
^DD(409.95,.03,3)="What supplemental form should be printed for patients that have been seen before?"
^DD(409.95,.03,12)="Does not allow tool kit forms or forms that are not of type encounter form."
^DD(409.95,.03,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.03,21,0)="^^3^3^2930818^^^"
^DD(409.95,.03,21,1,0)=" "
^DD(409.95,.03,21,2,0)="This is a supplemental form that will print only for patients that have"
^DD(409.95,.03,21,3,0)="been seen in the clinic previously."
^DD(409.95,.03,"DT")="2930818"
^DD(409.95,.04,0)="SUPPLMNTL FORM - FIRST VISIT^*P357'^IBE(357,^0;4^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.04,1,0)="^.1"
^DD(409.95,.04,1,1,0)="409.95^E"
^DD(409.95,.04,1,1,1)="S ^SD(409.95,""E"",$E(X,1,30),DA)="""""
^DD(409.95,.04,1,1,2)="K ^SD(409.95,""E"",$E(X,1,30),DA)"
^DD(409.95,.04,1,1,"DT")="2930209"
^DD(409.95,.04,3)="What supplemental form should be printed for first time patients?"
^DD(409.95,.04,12)="Does not allow tool kit forms or forms that are not of type encounter form."
^DD(409.95,.04,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.04,21,0)="^^3^3^2940216^"
^DD(409.95,.04,21,1,0)=" "
^DD(409.95,.04,21,2,0)="This is a supplemental for that will print only for patients that have"
^DD(409.95,.04,21,3,0)="not been seen previously at the clinic."
^DD(409.95,.04,"DT")="2930806"
^DD(409.95,.05,0)="FORM W/O PATIENT DATA^*P357'^IBE(357,^0;5^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.05,.1)="FORM TO PRINT WITH NO PATIENT DATA"
^DD(409.95,.05,1,0)="^.1"
^DD(409.95,.05,1,1,0)="409.95^F"
^DD(409.95,.05,1,1,1)="S ^SD(409.95,""F"",$E(X,1,30),DA)="""""
^DD(409.95,.05,1,1,2)="K ^SD(409.95,""F"",$E(X,1,30),DA)"
^DD(409.95,.05,1,1,"DT")="2930209"
^DD(409.95,.05,3)="Enter the form that should print in cases where you do not want patient data printed on the form."
^DD(409.95,.05,12)="Does not allow tool kit forms or forms that are not of type encounter form."
^DD(409.95,.05,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.05,21,0)="^^4^4^2940216^^^^"
^DD(409.95,.05,21,1,0)=" "
^DD(409.95,.05,21,2,0)="This is the encounter form that should be printed for unscheduled visits."
^DD(409.95,.05,21,3,0)="It may have a space in the top left hand corner for imprinting the"
^DD(409.95,.05,21,4,0)="embossed patient card or space to write in the name, ssn, etc."
^DD(409.95,.05,"DT")="2930910"
^DD(409.95,.06,0)="SUPPLMNTL FORM #1 ALL PATIENTS^*P357'^IBE(357,^0;6^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.06,1,0)="^.1"
^DD(409.95,.06,1,1,0)="409.95^G"
^DD(409.95,.06,1,1,1)="S ^SD(409.95,""G"",$E(X,1,30),DA)="""""
^DD(409.95,.06,1,1,2)="K ^SD(409.95,""G"",$E(X,1,30),DA)"
^DD(409.95,.06,1,1,"%D",0)="^^1^1^2930719^"
^DD(409.95,.06,1,1,"%D",1,0)="Used to find all clinics using this form as a supplemental form for all patients."
^DD(409.95,.06,1,1,"DT")="2930719"
^DD(409.95,.06,3)="You may require a supplemental form to be used for all appointments for this clinic."
^DD(409.95,.06,12)="Does not allow tool kit forms or forms that are not of type encounter form."
^DD(409.95,.06,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.06,21,0)="^^4^4^2940216^^"
^DD(409.95,.06,21,1,0)=" "
^DD(409.95,.06,21,2,0)="This is a supplemental form to be used by all patients of the clinic. A"
^DD(409.95,.06,21,3,0)="form in this category should not also be in one of the other categories"
^DD(409.95,.06,21,4,0)="for supplemental forms, else it will be printed twice."
^DD(409.95,.06,"DT")="2941207"
^DD(409.95,.07,0)="RESERVED FOR FUTURE USE^*P357'^IBE(357,^0;7^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.07,1,0)="^.1"
^DD(409.95,.07,1,1,0)="409.95^H"
^DD(409.95,.07,1,1,1)="S ^SD(409.95,""H"",$E(X,1,30),DA)="""""
^DD(409.95,.07,1,1,2)="K ^SD(409.95,""H"",$E(X,1,30),DA)"
^DD(409.95,.07,1,1,"%D",0)="^^1^1^2930729^"
^DD(409.95,.07,1,1,"%D",1,0)="Used to track forms assigned to a clinic but not in current use."
^DD(409.95,.07,1,1,"DT")="2930729"
^DD(409.95,.07,3)="Assign a form to this category if you don't want it to print for appointments."
^DD(409.95,.07,12)="Does not allow tool kit forms or forms that are not of type encounter form."
^DD(409.95,.07,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.07,21,0)="^^2^2^2940524^^"
^DD(409.95,.07,21,1,0)="This category was created for clinics to assign new forms that are not yet"
^DD(409.95,.07,21,2,0)="complete without fear that they would be accidently printed."
^DD(409.95,.07,"DT")="2940524"
^DD(409.95,.08,0)="SUPPLMNTL FORM #2 ALL PATIENTS^*P357'^IBE(357,^0;8^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.08,1,0)="^.1"
^DD(409.95,.08,1,1,0)="409.95^I"
^DD(409.95,.08,1,1,1)="S ^SD(409.95,""I"",$E(X,1,30),DA)="""""
^DD(409.95,.08,1,1,2)="K ^SD(409.95,""I"",$E(X,1,30),DA)"
^DD(409.95,.08,1,1,"%D",0)="^^2^2^2941207^"
^DD(409.95,.08,1,1,"%D",1,0)="Used to find all clinics using this form as a suplemental form for all"
^DD(409.95,.08,1,1,"%D",2,0)="patients."
^DD(409.95,.08,1,1,"DT")="2941207"
^DD(409.95,.08,3)="You can require this supplmental form to be used for all appointments for this clinic."
^DD(409.95,.08,12)="Does not allow toolkit forms or forms that are not of type encoutner form."
^DD(409.95,.08,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.08,"DT")="2941207"
^DD(409.95,.09,0)="SUPPLMNTL FORM #3 ALL PATIENTS^*P357'^IBE(357,^0;9^S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.95,.09,1,0)="^.1"
^DD(409.95,.09,1,1,0)="409.95^J"
^DD(409.95,.09,1,1,1)="S ^SD(409.95,""J"",$E(X,1,30),DA)="""""
^DD(409.95,.09,1,1,2)="K ^SD(409.95,""J"",$E(X,1,30),DA)"
^DD(409.95,.09,1,1,"%D",0)="^^2^2^2941207^"
^DD(409.95,.09,1,1,"%D",1,0)="Used to find all clinics using this form as a supplemental form for all"
^DD(409.95,.09,1,1,"%D",2,0)="patients."
^DD(409.95,.09,1,1,"DT")="2941207"
^DD(409.95,.09,3)="You can require this supplemental for to be used for all appointments for this clinic."
^DD(409.95,.09,12)="Does not allow toolkit forms or forms that are not of type encounter form."
^DD(409.95,.09,12.1)="S DIC(""S"")=""I '$P($G(^(0)),U,7),$P($G(^(0)),U,4)'>1"""
^DD(409.95,.09,23,0)="^^2^2^2970624^^"
^DD(409.95,.09,23,1,0)=" "
^DD(409.95,.09,23,2,0)=" "
^DD(409.95,.09,"DT")="2970624"
^DD(409.95,.1,0)="DON'T USE PCMM PROVIDERS^S^0:NO;1:YES;^0;10^Q"
^DD(409.95,.1,21,0)="^^6^6^2970324^^^^"
^DD(409.95,.1,21,1,0)="AICS defaults to printing providers specified in PCMM if they are"
^DD(409.95,.1,21,2,0)="defined otherwise the providers from the clinic setup is used."
^DD(409.95,.1,21,3,0)="Answering this field ""YES"" for a clinic will cause AICS to print"
^DD(409.95,.1,21,4,0)="the providers from clinic setup irregardless PCMM.  This is intended"
^DD(409.95,.1,21,5,0)="for use by sites bringing up PCMM but who have not completed the"
^DD(409.95,.1,21,6,0)="entry of providers."
^DD(409.95,.1,"DT")="2970317"
^DD(409.95,1,0)="REPORT^409.9501IP^^1;0"
^DD(409.95,1,12)="Allows only package interfaces that print reports or other forms and that are available."
^DD(409.95,1,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"""
^DD(409.95,1,21,0)="^^4^4^2940628^^^^"
^DD(409.95,1,21,1,0)=" "
^DD(409.95,1,21,2,0)="This is a list of reports or forms that should be printed under certain"
^DD(409.95,1,21,3,0)="circumstances. The only types of forms or reports that can be printed are"
^DD(409.95,1,21,4,0)="ones that are defined in the Package Interface file."
^DD(409.95,1,"DT")="2930520"
^DD(409.95,2,0)="EXCLUDED REPORT^409.9502P^^2;0"
^DD(409.95,2,12)="Allows only available package interfaces that print reports."
^DD(409.95,2,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,6)=4,$P($G(^(0)),U,9)=1"""
^DD(409.95,2,21,0)="^^3^3^2940216^^^^"
^DD(409.95,2,21,1,0)="Used to override reports defined to print for the division. "
^DD(409.95,2,21,2,0)="Reports defined to print for the division will not print if they are"
^DD(409.95,2,21,3,0)="excluded for the clinic."
^DD(409.95,"B","BASIC DEFAULT ENCOUNTER FORM",.02)=""
^DD(409.95,"B","CLINIC",.01)=""
^DD(409.95,"B","DON'T USE PCMM PROVIDERS",.1)=""
^DD(409.95,"B","EXCLUDED REPORT",2)=""
^DD(409.95,"B","FORM W/O PATIENT DATA",.05)=""
^DD(409.95,"B","REPORT",1)=""
^DD(409.95,"B","RESERVED FOR FUTURE USE",.07)=""
^DD(409.95,"B","SUPPLMNTL FORM #1 ALL PATIENTS",.06)=""
^DD(409.95,"B","SUPPLMNTL FORM #2 ALL PATIENTS",.08)=""
^DD(409.95,"B","SUPPLMNTL FORM #3 ALL PATIENTS",.09)=""
^DD(409.95,"B","SUPPLMNTL FORM - ESTBLSHED PT.",.03)=""
^DD(409.95,"B","SUPPLMNTL FORM - FIRST VISIT",.04)=""
^DD(409.95,"GL",0,1,.01)=""
^DD(409.95,"GL",0,2,.02)=""
^DD(409.95,"GL",0,3,.03)=""
^DD(409.95,"GL",0,4,.04)=""
^DD(409.95,"GL",0,5,.05)=""
^DD(409.95,"GL",0,6,.06)=""
^DD(409.95,"GL",0,7,.07)=""
^DD(409.95,"GL",0,8,.08)=""
^DD(409.95,"GL",0,9,.09)=""
^DD(409.95,"GL",0,10,.1)=""
^DD(409.95,"GL",1,0,1)=""
^DD(409.95,"GL",2,0,2)=""
^DD(409.95,"IX",.01)=""
^DD(409.95,"IX",.02)=""
^DD(409.95,"IX",.03)=""
^DD(409.95,"IX",.04)=""
^DD(409.95,"IX",.05)=""
^DD(409.95,"IX",.06)=""
^DD(409.95,"IX",.07)=""
^DD(409.95,"IX",.08)=""
^DD(409.95,"IX",.09)=""
^DD(409.95,"RQ",.01)=""
^DD(409.95,"SB",409.9501,1)=""
^DD(409.95,"SB",409.9502,2)=""
^DD(409.9501,0)="REPORT SUB-FIELD^^.03^3"
^DD(409.9501,0,"DT")="2940627"
^DD(409.9501,0,"IX","B",409.9501,.01)=""
^DD(409.9501,0,"NM","REPORT")=""
^DD(409.9501,0,"UP")="409.95"
^DD(409.9501,.01,0)="REPORT^M*P357.6'^IBE(357.6,^0;1^S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.9501,.01,1,0)="^.1"
^DD(409.9501,.01,1,1,0)="409.9501^B"
^DD(409.9501,.01,1,1,1)="S ^SD(409.95,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.9501,.01,1,1,2)="K ^SD(409.95,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.9501,.01,1,2,0)="409.95^A^MUMPS"
^DD(409.9501,.01,1,2,1)="I $P(^SD(409.95,DA(1),1,DA,0),U,2) S ^SD(409.95,""A"",$P(^SD(409.95,DA(1),0),U),$P(^SD(409.95,DA(1),1,DA,0),U,2),X,DA(1),DA)="""""
^DD(409.9501,.01,1,2,2)="I $P(^SD(409.95,DA(1),1,DA,0),U,2) K ^SD(409.95,""A"",$P(^SD(409.95,DA(1),0),U),$P(^SD(409.95,DA(1),1,DA,0),U,2),X,DA(1),DA)"
^DD(409.9501,.01,1,2,"%D",0)="^^6^6^2940216^"
^DD(409.9501,.01,1,2,"%D",1,0)=" "
^DD(409.9501,.01,1,2,"%D",2,0)="Allows all of the reports that should print under certain conditons for the"
^DD(409.9501,.01,1,2,"%D",3,0)="clinic to be found. The subscripts are ^SD(409.95,""A"",<clinic ien>,<print"
^DD(409.9501,.01,1,2,"%D",4,0)="condition ien >, <package interface ien>, <clinic setup ien>, <report"
^DD(409.9501,.01,1,2,"%D",5,0)="multiple ien>). It is not necessary to re-index the A1 cross-reference on"
^DD(409.9501,.01,1,2,"%D",6,0)="the PRINT CONDITION field if this field is re-indexed."
^DD(409.9501,.01,1,2,"DT")="2930518"
^DD(409.9501,.01,3)="You can choose reports and other forms to print under conditions that you specify."
^DD(409.9501,.01,12)="Allows only reports installed in the Package Interface file."
^DD(409.9501,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"""
^DD(409.9501,.01,21,0)="^^4^4^2940216^"
^DD(409.9501,.01,21,1,0)=" "
^DD(409.9501,.01,21,2,0)=" "
^DD(409.9501,.01,21,3,0)="An entry in the Package Interface file that should identify a routine that"
^DD(409.9501,.01,21,4,0)="prints the desired form or report."
^DD(409.9501,.01,"DT")="2930520"
^DD(409.9501,.02,0)="PRINT CONDITION^RP357.92'^IBE(357.92,^0;2^Q"
^DD(409.9501,.02,1,0)="^.1"
^DD(409.9501,.02,1,1,0)="409.95^A1^MUMPS"
^DD(409.9501,.02,1,1,1)="S ^SD(409.95,""A"",$P(^SD(409.95,DA(1),0),U),X,$P(^SD(409.95,DA(1),1,DA,0),U),DA(1),DA)="""""
^DD(409.9501,.02,1,1,2)="K ^SD(409.95,""A"",$P(^SD(409.95,DA(1),0),U),X,$P(^SD(409.95,DA(1),1,DA,0),U),DA(1),DA)"
^DD(409.9501,.02,1,1,"%D",0)="^^7^7^2940216^"
^DD(409.9501,.02,1,1,"%D",1,0)=" "
^DD(409.9501,.02,1,1,"%D",2,0)=" "
^DD(409.9501,.02,1,1,"%D",3,0)="Allows all of the reports that should print under certain conditons for"
^DD(409.9501,.02,1,1,"%D",4,0)="the clinic to be found. The subscripts are ^SD(409.95,""A"",<clinic"
^DD(409.9501,.02,1,1,"%D",5,0)="ien>,<print condition ien >, <package interface ien>, <clinic setup ien>,"
^DD(409.9501,.02,1,1,"%D",6,0)="<report multiple ien>). It is not necessary to re-index the A"
^DD(409.9501,.02,1,1,"%D",7,0)="cross-reference on the REPORT field if this field is re-indexed."
^DD(409.9501,.02,1,1,"DT")="2930518"
^DD(409.9501,.02,3)="Under what condition should the report be printed?"
^DD(409.9501,.02,4)="D HELP6^IBDFU5A"
^DD(409.9501,.02,21,0)="^^2^2^2930528^"
^DD(409.9501,.02,21,1,0)=" "
^DD(409.9501,.02,21,2,0)="The particular condition under which the form or report should print."
^DD(409.9501,.02,"DT")="2930518"
^DD(409.9501,.03,0)="SIMPLEX/DUPLEX^S^0:SIMPLEX;1:DUPLEX,LONG-EDGE BINDING;2:DUPLEX,SHORT-EDGE BINDING;^0;3^Q"
^DD(409.9501,.03,3)="SIMPLEX means one-sided, DUPLEX means two-sided. SHORT-EDGE BINDING is for attaching forms by the top, LONG-EDGE BINDING is for attaching forms along the side."
^DD(409.9501,.03,21,0)="^^1^1^2940628^"
^DD(409.9501,.03,21,1,0)="Allows reports to be printed one-sided or two-sided."
^DD(409.9501,.03,"DT")="2940627"
^DD(409.9501,"B","PRINT CONDITION",.02)=""
^DD(409.9501,"B","REPORT",.01)=""
^DD(409.9501,"B","SIMPLEX/DUPLEX",.03)=""
^DD(409.9501,"GL",0,1,.01)=""
^DD(409.9501,"GL",0,2,.02)=""
^DD(409.9501,"GL",0,3,.03)=""
^DD(409.9501,"IX",.01)=""
^DD(409.9501,"IX",.02)=""
^DD(409.9501,"RQ",.02)=""
^DD(409.9502,0)="EXCLUDED REPORT SUB-FIELD^^.01^1"
^DD(409.9502,0,"IX","B",409.9502,.01)=""
^DD(409.9502,0,"NM","EXCLUDED REPORT")=""
^DD(409.9502,0,"UP")="409.95"
^DD(409.9502,.01,0)="EXCLUDED REPORT^M*P357.6'^IBE(357.6,^0;1^S DIC(""S"")=""I $P($G(^(0)),U,6)=4,$P($G(^(0)),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.9502,.01,.1)=""
^DD(409.9502,.01,1,0)="^.1"
^DD(409.9502,.01,1,1,0)="409.9502^B"
^DD(409.9502,.01,1,1,1)="S ^SD(409.95,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(409.9502,.01,1,1,2)="K ^SD(409.95,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(409.9502,.01,1,2,0)="409.95^AE^MUMPS"
^DD(409.9502,.01,1,2,1)="S ^SD(409.95,""AE"",$P(^SD(409.95,DA(1),0),U),X,DA(1),DA)="""""
^DD(409.9502,.01,1,2,2)="K ^SD(409.95,""AE"",$P(^SD(409.95,DA(1),0),U),X,DA(1),DA)"
^DD(409.9502,.01,1,2,"%D",0)="^^1^1^2930622^"
^DD(409.9502,.01,1,2,"%D",1,0)="Used to determine if a particular report is defined NOT to print for a clinic."
^DD(409.9502,.01,1,2,"DT")="2930622"
^DD(409.9502,.01,3)="You may enter reports that you DO NOT want to print for this clinic. Entering an EXCLUDED REPORT will prevent it from printing even if it is defined to print for the entire division."
^DD(409.9502,.01,12)="Allows only available package interfaces that print reports."
^DD(409.9502,.01,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,6)=4,$P($G(^(0)),U,9)=1"""
^DD(409.9502,.01,21,0)="^^3^3^2940216^"
^DD(409.9502,.01,21,1,0)="Used to override repots defined to print for the division. Reports"
^DD(409.9502,.01,21,2,0)="defined to print for the division will not print if they are excluded"
^DD(409.9502,.01,21,3,0)="for the clinic."
^DD(409.9502,.01,"DT")="2930623"
^DD(409.9502,"B","EXCLUDED REPORT",.01)=""
^DD(409.9502,"GL",0,1,.01)=""
^DD(409.9502,"IX",.01)=""
^DD(409.96,0)="FIELD^^1^2"
^DD(409.96,0,"DDA")="N"
^DD(409.96,0,"DT")="2940627"
^DD(409.96,0,"IX","A",409.961,.01)=""
^DD(409.96,0,"IX","A1",409.961,.02)=""
^DD(409.96,0,"IX","B",409.96,.01)=""
^DD(409.96,0,"NM","PRINT MANAGER DIVISION SETUP")=""
^DD(409.96,0,"VR")="3.0"
^DD(409.96,0,"VRPK")="AUTOMATED INFO COLLECTION SYS"
^DD(409.96,.01,0)="DIVISION^RP40.8'^DG(40.8,^0;1^Q"
^DD(409.96,.01,1,0)="^.1"
^DD(409.96,.01,1,1,0)="409.96^B"
^DD(409.96,.01,1,1,1)="S ^SD(409.96,""B"",$E(X,1,30),DA)="""""
^DD(409.96,.01,1,1,2)="K ^SD(409.96,""B"",$E(X,1,30),DA)"
^DD(409.96,.01,3)="Enter the division for which you want to specify forms."
^DD(409.96,.01,21,0)="^^2^2^2930623^^^^"
^DD(409.96,.01,21,1,0)=" "
^DD(409.96,.01,21,2,0)="The division the setup is for."
^DD(409.96,.01,"DT")="2930518"
^DD(409.96,1,0)="REPORT^409.961IP^^1;0"
^DD(409.96,1,12)="Allows only package interfaces that print reports and that are available."
^DD(409.96,1,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"""
^DD(409.96,1,21,0)="^^2^2^2940628^^^^"
^DD(409.96,1,21,1,0)=" "
^DD(409.96,1,21,2,0)="The reports that should print."
^DD(409.96,1,"DT")="2930520"
^DD(409.96,"B","DIVISION",.01)=""
^DD(409.96,"B","REPORT",1)=""
^DD(409.96,"GL",0,1,.01)=""
^DD(409.96,"GL",1,0,1)=""
^DD(409.96,"IX",.01)=""
^DD(409.96,"RQ",.01)=""
^DD(409.96,"SB",409.961,1)=""
^DD(409.961,0)="REPORT SUB-FIELD^^.03^3"
^DD(409.961,0,"DT")="2940627"
^DD(409.961,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^IBE(357.92,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(357.92,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(409.961,0,"IX","B",409.961,.01)=""
^DD(409.961,0,"NM","REPORT")=""
^DD(409.961,0,"UP")="409.96"
^DD(409.961,.01,0)="REPORT^M*P357.6'^IBE(357.6,^0;1^S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(409.961,.01,1,0)="^.1"
^DD(409.961,.01,1,1,0)="409.961^B"
^DD(409.961,.01,1,1,1)="S ^SD(409.96,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(409.961,.01,1,1,2)="K ^SD(409.96,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(409.961,.01,1,2,0)="409.96^A^MUMPS"
^DD(409.961,.01,1,2,1)="I $P(^SD(409.96,DA(1),1,DA,0),U,2) S ^SD(409.96,""A"",$P(^SD(409.96,DA(1),0),U),$P(^SD(409.96,DA(1),1,DA,0),U,2),X,DA(1),DA)="""""
^DD(409.961,.01,1,2,2)="I $P(^SD(409.96,DA(1),1,DA,0),U,2) K ^SD(409.96,""A"",$P(^SD(409.96,DA(1),0),U),$P(^SD(409.96,DA(1),1,DA,0),U,2),X,DA(1),DA)"
^DD(409.961,.01,1,2,"%D",0)="^^7^7^2940216^"
^DD(409.961,.01,1,2,"%D",1,0)=" "
^DD(409.961,.01,1,2,"%D",2,0)=" "
^DD(409.961,.01,1,2,"%D",3,0)="Allows all of the reports that should print under certain conditons for"
^DD(409.961,.01,1,2,"%D",4,0)="the division to be found. The subscripts are ^SD(409.96,""A"",<division"
^DD(409.961,.01,1,2,"%D",5,0)="ien>,<print condition ien >, <package interface ien>, <division setup"
^DD(409.961,.01,1,2,"%D",6,0)="ien>, <report multiple ien>). It is not necessary to re-index the A1"
^DD(409.961,.01,1,2,"%D",7,0)="cross-reference on the PRINT CONDITION field if this field is re-indexed."
^DD(409.961,.01,1,2,"DT")="2930518"
^DD(409.961,.01,3)="Enter the report or form that you want to print for the entire division."
^DD(409.961,.01,12)="Allows only reports installed in the Package Interface file."
^DD(409.961,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,6)=4,$P(^(0),U,9)=1"""
^DD(409.961,.01,21,0)="^^3^3^2930528^"
^DD(409.961,.01,21,1,0)=" "
^DD(409.961,.01,21,2,0)="A report that should print. Only reports contained in the Package"
^DD(409.961,.01,21,3,0)="Interface file can be printed by the print manager."
^DD(409.961,.01,"DT")="2930520"
^DD(409.961,.02,0)="PRINT CONDITION^RP357.92'^IBE(357.92,^0;2^Q"
^DD(409.961,.02,1,0)="^.1"
^DD(409.961,.02,1,1,0)="409.96^A1^MUMPS"
^DD(409.961,.02,1,1,1)="S ^SD(409.96,""A"",$P(^SD(409.96,DA(1),0),U),X,$P(^SD(409.96,DA(1),1,DA,0),U),DA(1),DA)="""""
^DD(409.961,.02,1,1,2)="K ^SD(409.96,""A"",$P(^SD(409.96,DA(1),0),U),X,$P(^SD(409.96,DA(1),1,DA,0),U),DA(1),DA)"
^DD(409.961,.02,1,1,"%D",0)="^^6^6^2940216^"
^DD(409.961,.02,1,1,"%D",1,0)=" "
^DD(409.961,.02,1,1,"%D",2,0)="Allows all of the reports that should print under certain conditons for"
^DD(409.961,.02,1,1,"%D",3,0)="the division to be found. The subscripts are ^SD(409.96,""A"",<division"
^DD(409.961,.02,1,1,"%D",4,0)="ien>,<print condition ien >, <package interface ien>, <division setup"
^DD(409.961,.02,1,1,"%D",5,0)="ien>, <report multiple ien>). It is not necessary to re-index the A"
^DD(409.961,.02,1,1,"%D",6,0)="cross-reference on the REPORT field if this field is re-indexed."
^DD(409.961,.02,1,1,"DT")="2930518"
^DD(409.961,.02,3)="Under what condition do you want the report to print?"
^DD(409.961,.02,4)="D HELP6^IBDFU5A"
^DD(409.961,.02,21,0)="^^2^2^2930528^"
^DD(409.961,.02,21,1,0)=" "
^DD(409.961,.02,21,2,0)="The condition under which the report should print."
^DD(409.961,.02,"DT")="2930518"
^DD(409.961,.03,0)="SIMPLEX/DUPLEX^S^0:SIMPLEX;1:DUPLEX,LONG-EDGE BINDING;2:DUPLEX,SHORT-EDGE BINDING;^0;3^Q"
^DD(409.961,.03,3)="SIMPLEX means one-sided, DUPLEX means two-sided. SHORT-EDGE BINDING is for attaching forms by the top, LONG-EDGE BINDING is for attaching forms along the side."
^DD(409.961,.03,21,0)="^^1^1^2940628^"
^DD(409.961,.03,21,1,0)="Allows reports to be printed one-sided or two-sided."
^DD(409.961,.03,"DT")="2940627"
^DD(409.961,"B","PRINT CONDITION",.02)=""
^DD(409.961,"B","REPORT",.01)=""
^DD(409.961,"B","SIMPLEX/DUPLEX",.03)=""
^DD(409.961,"GL",0,1,.01)=""
^DD(409.961,"GL",0,2,.02)=""
^DD(409.961,"GL",0,3,.03)=""
^DD(409.961,"IX",.01)=""
^DD(409.961,"IX",.02)=""
^DD(409.961,"RQ",.02)=""
^DD(410,0)="FIELD^^455^113"
^DD(410,0,"DDA")="N"
^DD(410,0,"DT")="2950807"
^DD(410,0,"ID","Z0")="I '$D(PRCSID) S:$D(^(0)) Z=$P(^(0),U,2),Z=$S(Z=""O"":""OBL "",Z=""C"":""CEIL "",Z=""CA"":""CANC "",Z=""A"":""ADJ "",1:"""") W:Z'="""" ?23,Z W:$D(^(2)) ?30,"" ""_$E($P(^(2),U,1),1,20) W:$D(^(4)) ?53,"" ""_$P(^(4),U,5) W:$D(^(10)) ?61,"" ""_$P(^(10),U,2)"
^DD(410,0,"ID","Z1")="I $D(PRCSID) W $P(X,""-"") W:$D(^(4)) ?23,""COST: "",$J($P(^(4),U,1),9,2) S Z="""" S:$D(^(1)) Z=$P(^(1),U,3),Z=$S(Z=""ST"":""STANDARD"",Z=""SP"":""SPECIAL"",Z=""EM"":""EMERGENCY"",1:"""") W:Z'="""" ?41,""PRIOR: "",Z W:$D(^(2)) ?59,$E($P(^(2),""^"",1),1,20) K Z"
^DD(410,0,"ID","Z2")="W:$P(^PRCS(410,+Y,0),""^"",2)=""O""&($D(^(""IT"",1,1,1,0))) !,$E(^(0),1,79) W:$P(^PRCS(410,+Y,0),""^"",2)'=""O""&($D(^(""CO"",1,0))) !,$E(^(0),1,79) W:$D(^PRCS(410,+Y,0)) !?2"
^DD(410,0,"IX","AC",410,15.5)=""
^DD(410,0,"IX","AD",410,17)=""
^DD(410,0,"IX","AE",410,.01)=""
^DD(410,0,"IX","AF",410,27)=""
^DD(410,0,"IX","AG",410,51)=""
^DD(410,0,"IX","AH",410,20)=""
^DD(410,0,"IX","AI",410,22)=""
^DD(410,0,"IX","AJ",410,25)=""
^DD(410,0,"IX","AK",410,35)=""
^DD(410,0,"IX","AL",410,40)=""
^DD(410,0,"IX","AM",410,42)=""
^DD(410,0,"IX","AN",410,15)=""
^DD(410,0,"IX","AO",410,4)=""
^DD(410,0,"IX","AP",410,18)=""
^DD(410,0,"IX","AQ",410,55)=""
^DD(410,0,"IX","AR",410,49)=""
^DD(410,0,"IX","AS",410,455)=""
^DD(410,0,"IX","B",410,.01)=""
^DD(410,0,"IX","B2",410,.01)=""
^DD(410,0,"IX","B3",410,.01)=""
^DD(410,0,"IX","C",410.04,.01)=""
^DD(410,0,"IX","D",410,24)=""
^DD(410,0,"IX","E",410,11)=""
^DD(410,0,"IX","F",410,55)=""
^DD(410,0,"IX","F1",410,55)=""
^DD(410,0,"IX","H",410,2)=""
^DD(410,0,"IX","I",410,57)=""
^DD(410,0,"IX","J",410,49)=""
^DD(410,0,"IX","K",410,38)=""
^DD(410,0,"IX","L",410,57)=""
^DD(410,0,"IX","RB",410,449)=""
^DD(410,0,"NM","CONTROL POINT ACTIVITY")=""
^DD(410,0,"PT",58.81,7)=""
^DD(410,0,"PT",410,447)=""
^DD(410,0,"PT",413,50)=""
^DD(410,0,"PT",421,7.2)=""
^DD(410,0,"PT",421,8.2)=""
^DD(410,0,"PT",421,9.2)=""
^DD(410,0,"PT",421,10.2)=""
^DD(410,0,"PT",424,.15)=""
^DD(410,0,"PT",442,.07)=""
^DD(410,0,"PT",442,62)=""
^DD(410,0,"PT",442.01,10)=""
^DD(410,0,"PT",442.09,8)=""
^DD(410,0,"PT",442.14,.01)=""
^DD(410,0,"PT",443,.01)=""
^DD(410,0,"PT",443.6,.07)=""
^DD(410,0,"PT",443.6,62)=""
^DD(410,0,"PT",443.61,10)=""
^DD(410,0,"PT",444,8)=""
^DD(410,0,"PT",444.019,15)=""
^DD(410,0,"PT",444.019,21)=""
^DD(410,0,"PT",445.09,.01)=""
^DD(410,0,"PT",664,6)=""
^DD(410,0,"PT",6920,31)=""
^DD(410,0,"VR")="5.1"
^DD(410,0,"VRPK")="IFCAP"
^DD(410,.01,0)="TRANSACTION NUMBER^RFX^^0;1^K:$L(X)>18!($L(X)<3)!'((X?3N1""-""2N1""-""1N1""-""3.4N1""-""4N)!(X?1A.ANP)) X D EN3^PRCSUT3"
^DD(410,.01,1,0)="^.1"
^DD(410,.01,1,1,0)="410^B"
^DD(410,.01,1,1,1)="S ^PRCS(410,""B"",$E(X,1,30),DA)="""""
^DD(410,.01,1,1,2)="K ^PRCS(410,""B"",$E(X,1,30),DA)"
^DD(410,.01,1,2,0)="410^B3^MUMPS"
^DD(410,.01,1,2,1)="I $E(X,1)>0 S ^PRCS(410,""B3"",$P(X,""-"",2)_""-""_$P(X,""-"",5),DA)="""""
^DD(410,.01,1,2,2)="I $E(X,1)>0 K ^PRCS(410,""B3"",$P(X,""-"",2)_""-""_$P(X,""-"",5),DA)"
^DD(410,.01,1,2,"%D",0)="^^2^2^2940216^^"
^DD(410,.01,1,2,"%D",1,0)="This cross reference is set on the fiscal year and last 4"
^DD(410,.01,1,2,"%D",2,0)="digits of the transaction number."
^DD(410,.01,1,3,0)="410^B2^MUMPS"
^DD(410,.01,1,3,1)="I $E(X,1)>0 S ^PRCS(410,""B2"",$P(X,""-"",5),DA)="""""
^DD(410,.01,1,3,2)="I $E(X,1)>0 K ^PRCS(410,""B2"",$P(X,""-"",5),DA)"
^DD(410,.01,1,3,"%D",0)="^^2^2^2930623^"
^DD(410,.01,1,3,"%D",1,0)="This cross reference is set on the last 4 digits of the"
^DD(410,.01,1,3,"%D",2,0)="transaction number."
^DD(410,.01,1,4,0)="410^AE^MUMPS"
^DD(410,.01,1,4,1)="I $E(X,1)>0 S ^PRCS(410,""AE"",$P(X,""-"",1,4),DA)="""""
^DD(410,.01,1,4,2)="I $E(X,1)>0 K ^PRCS(410,""AE"",$P(X,""-"",1,4),DA)"
^DD(410,.01,1,4,"%D",0)="^^2^2^2940216^^"
^DD(410,.01,1,4,"%D",1,0)="This cross reference is set on the station, the fiscal year,"
^DD(410,.01,1,4,"%D",2,0)="the quarter, and the control point."
^DD(410,.01,3)="ANSWER MUST BE 3-18 CHARACTERS IN LENGTH"
^DD(410,.01,8.5)="^"
^DD(410,.01,21,0)="^^9^9^2940523^^^^"
^DD(410,.01,21,1,0)="This is a permanent transaction number (alpha/numeric) used by the"
^DD(410,.01,21,2,0)="Control Point Clerk or Official, as well as A&MM and Fiscal to identify"
^DD(410,.01,21,3,0)="and track the request.  It is built from both the information the user"
^DD(410,.01,21,4,0)="enters and the sequence number (e.g., 610-90-1-004-1234) assigned by the computer."
^DD(410,.01,21,5,0)="  610 = Station Number;"
^DD(410,.01,21,6,0)="  90 = Fiscal Year;"
^DD(410,.01,21,7,0)="  1 =  Quarter;"
^DD(410,.01,21,8,0)="  044 = Fund Control Point;"
^DD(410,.01,21,9,0)="  1234 = Sequence Number assigned by computer."
^DD(410,.01,22)=""
^DD(410,.01,"DT")="2890221"
^DD(410,.5,0)="STATION NUMBER^F^^0;5^K:$L(X)>5!($L(X)<3)!'(X?3N.AN) X"
^DD(410,.5,3)="ANSWER MUST BE 3-5 CHARACTERS IN LENGTH"
^DD(410,.5,21,0)="^^2^2^2931209^^^^"
^DD(410,.5,21,1,0)="This is the abbreviation for the station performing the transaction. "
^DD(410,.5,21,2,0)="It is supplied by the user who initiates the request."
^DD(410,.5,"DT")="2930125"
^DD(410,1,0)="TRANSACTION TYPE^RS^C:CEILING;O:OBLIGATION;A:ADJUSTMENT;CA:CANCELLED;^0;2^Q"
^DD(410,1,1,0)="^.1^^0"
^DD(410,1,3)="Select the appropriate one or two letter transaction type code for this transaction"
^DD(410,1,21,0)="^^3^3^2910912^^^"
^DD(410,1,21,1,0)="A one- or two-letter code selected from a set of Supply codes that"
^DD(410,1,21,2,0)="provides information concerning the vendor size and type of competition"
^DD(410,1,21,3,0)="sought on a purchase order."
^DD(410,1,"DT")="2860630"
^DD(410,2,0)="TEMPORARY TRANS. NUMBER^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<3)!(X'?1A.ANP) X"
^DD(410,2,1,0)="^.1^^-1"
^DD(410,2,1,1,0)="410^H^MUMPS"
^DD(410,2,1,1,1)="S ^PRCS(410,""H"",$E(X,1,30),DA)=$S($D(^PRCS(410,DA,11)):$P(^(11),U,2),1:"""")"
^DD(410,2,1,1,2)="K ^PRCS(410,""H"",$E(X,1,30),DA)"
^DD(410,2,1,1,"%D",0)="^^3^3^2930623^"
^DD(410,2,1,1,"%D",1,0)="This cross reference is set on the temporary transaction "
^DD(410,2,1,1,"%D",2,0)="number, and stores the DUZ of the person initiating"
^DD(410,2,1,1,"%D",3,0)="the request."
^DD(410,2,3)="This field may be used to enter a 3 to 18 character transaction number or other identifier that the requestor or requesting service can use to track this request"
^DD(410,2,21,0)="^^5^5^2910917^^^^"
^DD(410,2,21,1,0)="This is a temporary transaction number (beginning with an alpha"
^DD(410,2,21,2,0)="character) assigned to a request by a Control Point Requestor.  The"
^DD(410,2,21,3,0)="Control Point Clerk/Official decides whether to make the transaction"
^DD(410,2,21,4,0)="number permanent. "
^DD(410,2,21,5,0)="e.g., CRAIG-12"
^DD(410,2,22)=" "
^DD(410,2,"DT")="2941128"
^DD(410,3,0)="FORM TYPE^RP410.5'X^PRCS(410.5,^0;4^S X(1)=$P(^PRCS(410,DA,0),""^"",4) I X(1)=3!(X(1)=4)!(X(1)=5) I X'=X(1)!(X(1)=3&(X'=4)) K X W *7,!,""Sorry, you are not allowed to change a repetitive or issue book form type to another form type"""
^DD(410,3,1,0)="^.1^^0"
^DD(410,3,3)="Enter the appropriate form type to be generated by this request."
^DD(410,3,21,0)="^^7^7^2940623^^^^"
^DD(410,3,21,1,0)="This allows the user to specify what kind of goods or services is being"
^DD(410,3,21,2,0)="ordered on the request.  No Form may be specified to account for money"
^DD(410,3,21,3,0)="committed by a Control Point  on a manual form (not on IFCAP).  The"
^DD(410,3,21,4,0)="following Form Types may be selected:"
^DD(410,3,21,5,0)="Non-Repetitive (2237) Order; Repetitive (PR Card) Order;"
^DD(410,3,21,6,0)="Repetitive and Non-Rep Order; and Issue Book/Interval Issue."
^DD(410,3,21,7,0)="For version 5.0 and later, the NO FORM type is no longer valid."
^DD(410,3,22)="Y"
^DD(410,3,"DT")="2930513"
^DD(410,3.1,0)="INTERVAL ISSUE?^S^1:YES;0:NO;^0;7^Q"
^DD(410,3.1,21,0)="^^5^5^2910912^^"
^DD(410,3.1,21,1,0)="This allows the user to specify (by entering Yes/No) whether the"
^DD(410,3.1,21,2,0)="request for items in the Warehouse is an Interval Issue."
^DD(410,3.1,21,3,0)="  "
^DD(410,3.1,21,4,0)="i.e.,   Items requested between scheduled posted stock delivery, rather"
^DD(410,3.1,21,5,0)="than a regularly scheduled Issue Book order. "
^DD(410,3.1,"DT")="2890709"
^DD(410,3.2,0)="MONTH OF 1358^NJ2,0XO^^0;8^K:+X'=X!(X>12)!(X<1)!(X?.E1"".""1N.N) X I $D(X) D MO1^PRCSUT2 I $D(PRCSQT),$D(PRCSMO) K:PRCSQT'=PRCSMO X K PRCSQT,PRCSMO"
^DD(410,3.2,2)="S Y(0)=Y I +Y S Y=$P(""JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC"",""^"",Y)"
^DD(410,3.2,2.1)="I +Y S Y=$P(""JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC"",""^"",Y)"
^DD(410,3.2,3)="Enter the number of the month for a 1358 Obligation request or the month of the 1358 increase/decrease adjustment."
^DD(410,3.2,4)="D MO^PRCSUT2"
^DD(410,3.2,21,0)="^^1^1^2910514^"
^DD(410,3.2,21,1,0)="This is the month for which the 1358 is entered."
^DD(410,3.2,"DT")="2890727"
^DD(410,4,0)="INVENTORY DISTRIBUTION POINT^*P445'^PRCP(445,^0;6^S DIC(""S"")=""I $P(^(0),U,3)'=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410,4,1,0)="^.1"
^DD(410,4,1,1,0)="410^AO"
^DD(410,4,1,1,1)="S ^PRCS(410,""AO"",$E(X,1,30),DA)="""""
^DD(410,4,1,1,2)="K ^PRCS(410,""AO"",$E(X,1,30),DA)"
^DD(410,4,1,1,"%D",0)="^^2^2^2930623^^"
^DD(410,4,1,1,"%D",1,0)="This cross reference is set on the inventory"
^DD(410,4,1,1,"%D",2,0)="distribution point."
^DD(410,4,3)="Select the appropriate inventory distribution point for this request if applicable."
^DD(410,4,12)="Only Primary Inventory Points, or the Warehouse can make requests to Supply."
^DD(410,4,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""S"""""""
^DD(410,4,21,0)="^^8^8^2910917^^"
^DD(410,4,21,1,0)="This is an entity that wants to maintain a perpetual inventory,"
^DD(410,4,21,2,0)="automate their item distribution function, and automatically generate"
^DD(410,4,21,3,0)="stock replenishment orders based on inventory needs.  There are three"
^DD(410,4,21,4,0)="types:"
^DD(410,4,21,5,0)="  "
^DD(410,4,21,6,0)="Warehouses;"
^DD(410,4,21,7,0)="Primary Distribution Point;"
^DD(410,4,21,8,0)="and Secondary Distribution Point."
^DD(410,4,"DT")="2890911"
^DD(410,5,0)="DATE OF REQUEST^D^^1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,5,3)="Enter the date this request was submitted by the requestor"
^DD(410,5,21,0)="^^1^1^2910514^"
^DD(410,5,21,1,0)="This is the date this request was submitted by the requestor."
^DD(410,5,"DT")="2940822"
^DD(410,6.3,0)="REQUESTING SERVICE^P49'^DIC(49,^3;5^Q"
^DD(410,6.3,3)="Select the name of the service that submitted this request (Optional)"
^DD(410,6.3,21,0)="^^1^1^2940518^^^"
^DD(410,6.3,21,1,0)="This is the name of the service that submitted this request."
^DD(410,6.3,"DT")="2850718"
^DD(410,7,0)="DATE REQUIRED^RD^^1;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,7,3)="Enter the date by which you need the items you are requesting"
^DD(410,7,21,0)="^^1^1^2910514^"
^DD(410,7,21,1,0)="This is the date by which the item(s) requested are needed."
^DD(410,7,"DT")="2860627"
^DD(410,7.5,0)="PRIORITY OF REQUEST^S^EM:EMERGENCY;SP:SPECIAL;ST:STANDARD;^1;3^Q"
^DD(410,7.5,3)="Select the appropriate priority (urgency) for this request. (Optional)"
^DD(410,7.5,21,0)="^^1^1^2910514^"
^DD(410,7.5,21,1,0)="This is the urgency or priority for this request."
^DD(410,7.5,"DT")="2860413"
^DD(410,8,0)="CLASSIFICATION OF REQUEST^*P410.2^PRCS(410.2,^1;5^S DIC(""S"")=""I $D(PRC(""""CP"""")),$D(^PRCS(410.2,+Y,0)),+$P(^(0),U,2)=+PRC(""""CP"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410,8,1,0)="^.1^^0"
^DD(410,8,3)="Select the appropriate classification of request (Optional)"
^DD(410,8,12)="User can only use classification of requests associated with their Control Point."
^DD(410,8,12.1)="S DIC(""S"")=""I $D(PRC(""""CP"""")),$D(^PRCS(410.2,+Y,0)),+$P(^(0),U,2)=+PRC(""""CP"""")"""
^DD(410,8,21,0)="^^4^4^2910514^^^^"
^DD(410,8,21,1,0)="This Classification of Request field allows you "
^DD(410,8,21,2,0)="to classify and/or categorize all transactions"
^DD(410,8,21,3,0)="(requests) for supplies, services, etc."
^DD(410,8,21,4,0)="This is the previous 'Type of Request"" field."
^DD(410,8,"DT")="2890927"
^DD(410,9,0)="SPECIAL REMARKS^410.01^^RM;0"
^DD(410,9,21,0)="^^1^1^2940620^^^^"
^DD(410,9,21,1,0)="These are special remarks regarding this request."
^DD(410,10,0)="ITEM^410.02AI^^IT;0"
^DD(410,10,21,0)="^.001^1^1^3050214^^^^"
^DD(410,10,21,1,0)="This is the item(s) being ordered on this request."
^DD(410,10,"DT")="2910917"
^DD(410,11,0)="VENDOR^RFX^^2;1^D VENDOR^PRCSES"
^DD(410,11,1,0)="^.1"
^DD(410,11,1,1,0)="410^E"
^DD(410,11,1,1,1)="S ^PRCS(410,""E"",$E(X,1,30),DA)="""""
^DD(410,11,1,1,2)="K ^PRCS(410,""E"",$E(X,1,30),DA)"
^DD(410,11,1,1,"%D",0)="^^2^2^2941220^^^"
^DD(410,11,1,1,"%D",1,0)="This cross reference is set on the vendor for the"
^DD(410,11,1,1,"%D",2,0)="transaction."
^DD(410,11,3)="Enter the name of the vendor for the items ordered on this request (1 to 30 characters)"
^DD(410,11,4)="S:$D(D) ZD=D,X=""?"",DIC=""^PRC(440,"",DIC(0)=""EMZ"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD W !,""For 1358 requests, additional information concerning vendors may be entered"",!,""in the Purpose field."""
^DD(410,11,21,0)="^^2^2^2941220^^^^"
^DD(410,11,21,1,0)="This is the name of the vendor for the items ordered on the "
^DD(410,11,21,2,0)="request."
^DD(410,11,"DT")="2860419"
^DD(410,11.1,0)="VENDOR ADDRESS1^F^^2;2^K:$L(X)>33!($L(X)<1)!'(X?.ANP) X"
^DD(410,11.1,3)="Enter first line of vendor address.  Answer must be from 1 to 33 characters."
^DD(410,11.1,21,0)="^^1^1^2910514^"
^DD(410,11.1,21,1,0)="This is the first line of the vendor address."
^DD(410,11.1,"DT")="2860220"
^DD(410,11.2,0)="VENDOR ADDRESS2^F^^2;3^K:$L(X)>33!($L(X)<1)!'(X?.ANP) X"
^DD(410,11.2,3)="Enter the second line of the vendor address (if applicable).  Answer must be from 1 to 33 characters."
^DD(410,11.2,21,0)="^^2^2^2910514^"
^DD(410,11.2,21,1,0)="This is the second line of the vendor address (if"
^DD(410,11.2,21,2,0)="applicable)."
^DD(410,11.2,"DT")="2860220"
^DD(410,11.3,0)="VENDOR ADDRESS3^F^^2;4^K:$L(X)>25!($L(X)<1)!'(X?.ANP) X"
^DD(410,11.3,3)="Enter the third line of the vendor address (if applicable).  Answer must be from 1 to 25 characters."
^DD(410,11.3,21,0)="^^1^1^2910514^"
^DD(410,11.3,21,1,0)="This is the third line of the vendor address (if applicable)."
^DD(410,11.3,"DT")="2860220"
^DD(410,11.4,0)="VENDOR ADDRESS4^F^^2;5^K:$L(X)>25!($L(X)<1)!'(X?.ANP) X"
^DD(410,11.4,3)="Enter the fourth line of the vendor address (if applicable).  Answer must be from 1 to 25 characters."
^DD(410,11.4,21,0)="^^1^1^2910514^"
^DD(410,11.4,21,1,0)="This is the fourth line of the vendor address (if applicable)."
^DD(410,11.4,"DT")="2860220"
^DD(410,11.5,0)="VENDOR CITY^F^^2;6^K:$L(X)>20!($L(X)<3)!'(X?.ANP) X"
^DD(410,11.5,3)="Enter the city for this vendor.  Answer must be from 3 to 20 characters."
^DD(410,11.5,21,0)="^^1^1^2910514^"
^DD(410,11.5,21,1,0)="This is the city in the vendor address."
^DD(410,11.5,"DT")="2850428"
^DD(410,11.6,0)="VENDOR STATE^P5'^DIC(5,^2;7^Q"
^DD(410,11.6,3)="Select the state for this vendor."
^DD(410,11.6,21,0)="^^1^1^2910514^"
^DD(410,11.6,21,1,0)="This is the state in the vendor address."
^DD(410,11.6,"DT")="2850428"
^DD(410,11.7,0)="VENDOR ZIP CODE^FX^^2;8^K:$L(X)<5!(X'?5N.ANP)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(410,11.7,3)="Enter a 5 digit or 9 digit zip code (e.g., 12345 or 12345-6789)"
^DD(410,11.7,21,0)="^^2^2^2910514^"
^DD(410,11.7,21,1,0)="This is a 5 or 9 digit zip code in the vendor"
^DD(410,11.7,21,2,0)="address."
^DD(410,11.7,"DT")="2850428"
^DD(410,11.8,0)="VENDOR CONTACT^F^^2;9^K:$L(X)>30!($L(X)<3)!'(X?.ANP) X"
^DD(410,11.8,3)="Enter the name of the person to contact concerning product information for this vendor.  Answer must be from 3 to 30 characters."
^DD(410,11.8,21,0)="^^2^2^2910514^"
^DD(410,11.8,21,1,0)="This is the name of the contact person for"
^DD(410,11.8,21,2,0)="information from this vendor."
^DD(410,11.8,"DT")="2850428"
^DD(410,11.9,0)="VENDOR PHONE NO.^F^^2;10^K:$L(X)>18!($L(X)<3)!'(X?.ANP) X"
^DD(410,11.9,3)="Enter the phone number for the contact person for this vendor.  Answer must be from 3 to 18 characters."
^DD(410,11.9,21,0)="^^2^2^2910514^"
^DD(410,11.9,21,1,0)="This is the phone number of the contact person for"
^DD(410,11.9,21,2,0)="this vendor."
^DD(410,11.9,"DT")="2860220"
^DD(410,12,0)="VENDOR(POINTER)^P440'^PRC(440,^3;4^Q"
^DD(410,12,21,0)="^^2^2^2910514^"
^DD(410,12,21,1,0)="This is the name of the vendor for the items on"
^DD(410,12,21,2,0)="this request."
^DD(410,12,"DT")="2860419"
^DD(410,13,0)="VENDOR CONTRACT NUMBER^FX^^3;10^S Z0=$S($D(^PRCS(410,DA,3)):$P(^(3),U,4),1:0) K:'Z0 X Q:'Z0  Q:'$D(^PRC(440,Z0,4,0))  S DIC=""^PRC(440,Z0,4,"",DIC(0)=""QEMNZ"" D ^DIC K DIC K:Y'>0 X Q:'$D(X)  S X=$P(Y(0),U,1)"
^DD(410,13,3)="Select the appropriate contract number applicable to this request."
^DD(410,13,4)="S:$D(D) ZD=D S X=""?"",Z0=$S($D(^PRCS(410,DA,3)):$P(^(3),U,4),1:0) Q:'Z0  Q:'$D(^PRC(440,Z0,4,0))  S DIC=""^PRC(440,Z0,4,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(410,13,21,0)="^^1^1^2910913^^"
^DD(410,13,21,1,0)="This is the vendor contract number."
^DD(410,13,"DT")="2870826"
^DD(410,15,0)="CONTROL POINT^RFX^^3;1^K:X[""""""""!($A(X)=45) X I $D(X) S Z0=$P(^PRCS(410,DA,0),U,5) K:'Z0 X Q:'Z0  Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEMNZ"" D ^DIC K DIC K:Y'>0 X Q:'$D(X)  S X=$P(Y(0),U,1)"
^DD(410,15,1,0)="^.1^^-1"
^DD(410,15,1,1,0)="410^AN"
^DD(410,15,1,1,1)="S ^PRCS(410,""AN"",$E(X,1,30),DA)="""""
^DD(410,15,1,1,2)="K ^PRCS(410,""AN"",$E(X,1,30),DA)"
^DD(410,15,1,1,"%D",0)="^^2^2^2930623^"
^DD(410,15,1,1,"%D",1,0)="This cross reference is set on the control point "
^DD(410,15,1,1,"%D",2,0)="name and number."
^DD(410,15,3)="Select the appropriate control point for this transaction"
^DD(410,15,4)="S ZD=D,X=""?"",Z0=$P(^PRCS(410,DA,0),U,5) Q:'Z0  Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD"
^DD(410,15,21,0)="^^2^2^2980331^^^^"
^DD(410,15,21,1,0)="This is the division of monies to a specified service, activity, or"
^DD(410,15,21,2,0)="purpose from an appropriation."
^DD(410,15,"DT")="2941128"
^DD(410,15.5,0)="COST CENTER^RFX^^3;3^D CC^PRCSES"
^DD(410,15.5,1,0)="^.1"
^DD(410,15.5,1,1,0)="410^AC"
^DD(410,15.5,1,1,1)="S ^PRCS(410,""AC"",$E(X,1,30),DA)="""""
^DD(410,15.5,1,1,2)="K ^PRCS(410,""AC"",$E(X,1,30),DA)"
^DD(410,15.5,1,1,"%D",0)="^^2^2^2930623^"
^DD(410,15.5,1,1,"%D",1,0)="This cross reference is set on the cross center"
^DD(410,15.5,1,1,"%D",2,0)="number and name."
^DD(410,15.5,3)="Select the appropriate cost center for this request"
^DD(410,15.5,4)="S ZD=D,X=""?"",Z0=$P(^PRCS(410,DA,0),U,5),Z1=+$P(^PRCS(410,DA,3),U,1) Q:'$D(^PRC(420,Z0,1,0))!'$D(^PRC(420,Z0,1,Z1,2,0))  S DIC=""^PRC(420,Z0,1,Z1,2,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD"
^DD(410,15.5,21,0)="^^2^2^2940531^^^^"
^DD(410,15.5,21,1,0)="This is a subdivision of a Fund Control Point that tells which"
^DD(410,15.5,21,2,0)="service/section is being charged for a request/order."
^DD(410,15.5,"DT")="2850715"
^DD(410,16,0)="SUB-CONTROL POINT^410.04P^^12;0"
^DD(410,16,21,0)="^^3^3^2921013^^^"
^DD(410,16,21,1,0)="This is a subdivision of the Control Point for the"
^DD(410,16,21,2,0)="division of funds by section, unit of"
^DD(410,16,21,3,0)="service, clinic or major 'product line'."
^DD(410,17,0)="BOC1^RFX^^3;6^K:X[""""""""!($A(X)=45) X I $D(X) S Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) D SUB1^PRCSES I $D(X),+$P(^PRCS(410,DA,3),""^"",8)=+X K X W !,""You have already entered this BOC in the BOC2 field."""
^DD(410,17,1,0)="^.1"
^DD(410,17,1,1,0)="410^AD"
^DD(410,17,1,1,1)="S ^PRCS(410,""AD"",$E(X,1,30),DA)="""""
^DD(410,17,1,1,2)="K ^PRCS(410,""AD"",$E(X,1,30),DA)"
^DD(410,17,1,1,"%D",0)="^^3^3^2940518^^^"
^DD(410,17,1,1,"%D",1,0)="This cross reference is set on the BOC name"
^DD(410,17,1,1,"%D",2,0)="and number for the first BOC used on the"
^DD(410,17,1,1,"%D",3,0)="transaction."
^DD(410,17,3)="Select the appropriate budget object code for this request."
^DD(410,17,4)="D ^PRCSES S:$D(D) ZD=D S X=""?"",Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) Q:'Z0!('$D(^PRCD(420.1,Z0,1,0)))  S DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(410,17,21,0)="^^1^1^2940523^^^"
^DD(410,17,21,1,0)="This is a budget object code (BOC) for the transaction."
^DD(410,17,"DT")="2940506"
^DD(410,17.5,0)="BOC1 $ AMOUNT^RNJ10,2X^^3;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,17.5,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(410,17.5,21,0)="^^1^1^2940523^^^"
^DD(410,17.5,21,1,0)="This is the dollar amount applied to the budget object code."
^DD(410,17.5,"DT")="2940323"
^DD(410,18,0)="BOC2^FX^^3;8^K:X[""""""""!($A(X)=45) X I $D(X) S Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) D SUB1^PRCSES I $D(X),+$P(^PRCS(410,DA,3),""^"",6)=+X K X W !,""You have already entered this BOC in the BOC1 field."""
^DD(410,18,1,0)="^.1"
^DD(410,18,1,1,0)="410^AP"
^DD(410,18,1,1,1)="S ^PRCS(410,""AP"",$E(X,1,30),DA)="""""
^DD(410,18,1,1,2)="K ^PRCS(410,""AP"",$E(X,1,30),DA)"
^DD(410,18,1,1,"%D",0)="^^3^3^2940518^^^"
^DD(410,18,1,1,"%D",1,0)="This cross reference is set on the BOC name"
^DD(410,18,1,1,"%D",2,0)="and number for the second BOC (if any) used"
^DD(410,18,1,1,"%D",3,0)="on the transaction."
^DD(410,18,3)="Select the appropriate second budget object code for this request if applicable.  (Optional)"
^DD(410,18,4)="D ^PRCSES S:$D(D) ZD=D S X=""?"",Z0=$S($D(^PRCS(410,DA,3)):+$P(^(3),U,3),1:0) Q:'Z0!('$D(^PRCD(420.1,Z0,1,0)))  S DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(410,18,21,0)="^^1^1^2940523^^^"
^DD(410,18,21,1,0)="This is the second budget object code for the transaction (if applicable)."
^DD(410,18,"DT")="2940506"
^DD(410,18.5,0)="BOC2 $ AMOUNT^NJ10,2X^^3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,18.5,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(410,18.5,21,0)="^^1^1^2940323^^"
^DD(410,18.5,21,1,0)="This is the dollar amount applied to this budget object code (if applicable)."
^DD(410,18.5,"DT")="2940323"
^DD(410,20,0)="COMMITTED (ESTIMATED) COST^RNJ10,2X^^4;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,20,1,0)="^.1^^-1"
^DD(410,20,1,1,0)="410^AH^MUMPS"
^DD(410,20,1,1,1)="Q:$P(^PRCS(410,DA,4),U,3)'=""""  S $P(^(4),""^"",8)=X D TRANS^PRCSES"
^DD(410,20,1,1,2)="Q:$P(^PRCS(410,DA,4),U,3)'=""""  S $P(^(4),""^"",8)="""" D TRANK^PRCSES"
^DD(410,20,1,1,"%D",0)="^^2^2^2930623^"
^DD(410,20,1,1,"%D",1,0)="This cross reference is used to set the committed"
^DD(410,20,1,1,"%D",2,0)="(estimated) cost."
^DD(410,20,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(410,20,21,0)="^^2^2^2910514^"
^DD(410,20,21,1,0)="This is the estimated amount of the committed cost of"
^DD(410,20,21,2,0)="the requested item(s)."
^DD(410,20,"DT")="2890912"
^DD(410,21,0)="DATE COMMITTED^RD^^4;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,21,3)="Enter the date money was committed for this request"
^DD(410,21,21,0)="^^1^1^2960401^^^"
^DD(410,21,21,1,0)="This is the date money was committed for this request."
^DD(410,21,"DT")="2960328"
^DD(410,22,0)="OBLIGATED (ACTUAL) COST^RNJ10,2X^^4;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,22,1,0)="^.1^^-1"
^DD(410,22,1,2,0)="410^AI^MUMPS"
^DD(410,22,1,2,1)="S $P(^PRCS(410,DA,4),""^"",8)=X D TRANS1^PRCSES"
^DD(410,22,1,2,2)="S $P(^PRCS(410,DA,4),""^"",8)="""" D TRANK1^PRCSES"
^DD(410,22,1,2,"%D",0)="^^2^2^2950323^^^"
^DD(410,22,1,2,"%D",1,0)="This cross reference is used to set the obligated"
^DD(410,22,1,2,"%D",2,0)="(actual) cost."
^DD(410,22,3)="Enter the dollar amount (from -9999999.99 to 9999999.99) from the purchase order for this transaction."
^DD(410,22,21,0)="^^1^1^2940323^^^^"
^DD(410,22,21,1,0)="This is the obligated (actual) cost amount from the purchase order."
^DD(410,22,"DT")="2930519"
^DD(410,23,0)="DATE OBLIGATED^D^^4;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,23,3)="Enter the date money was obligated for this transaction"
^DD(410,23,21,0)="^^1^1^2910514^"
^DD(410,23,21,1,0)="This is the date that the funds were obligated for this transaction."
^DD(410,24,0)="PURCHASE ORDER/OBLIGATION NO^FX^^4;5^K:X'?6UN X I $D(X),$D(DA),$D(^PRCS(410,DA,0)),$P(^(0),""^"",2)=""A"",$O(^PRCS(410,""D"",X,0))'>0 W !,*7,""Reference number does not exist.  Are you sure "" S %=2 D YN^DICN K:%'=1 X K %"
^DD(410,24,1,0)="^.1"
^DD(410,24,1,1,0)="410^D"
^DD(410,24,1,1,1)="S ^PRCS(410,""D"",$E(X,1,30),DA)="""""
^DD(410,24,1,1,2)="K ^PRCS(410,""D"",$E(X,1,30),DA)"
^DD(410,24,1,1,"%D",0)="^^2^2^2940216^^"
^DD(410,24,1,1,"%D",1,0)="This cross reference is set on the purchase"
^DD(410,24,1,1,"%D",2,0)="order/obligation number."
^DD(410,24,3)="Enter the 6 character purchase order/obligation/reference number for this transaction"
^DD(410,24,4)="S DIC=""^PRCS(410,"",DIC(0)=""EQZ"",D=""D"",DIC(""S"")=""I $P(^(0),U,4)'=1"" S:$D(PRCSFT) DIC(""S"")=""I $P(^(0),U,4)=1"" S DIC(""S"")=DIC(""S"")_"",PRC(""""SITE"""")=+^(0),+PRC(""""CP"""")=$P($P(^(0),U),""""-"""",4)"" D IX^DIC K DIC(""S"")"
^DD(410,24,21,0)="^^2^2^2940513^^"
^DD(410,24,21,1,0)="This is the purchase order/obligation/reference number"
^DD(410,24,21,2,0)="for this transaction."
^DD(410,24,"DT")="2870325"
^DD(410,25,0)="ADJUSTMENT $ AMOUNT^RNJ10,2X^^4;6^S:X[""$"" X=$P(X,""$"",2) S:X[""CR"" X=-X K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,25,1,0)="^.1^^-1"
^DD(410,25,1,2,0)="410^AJ^MUMPS"
^DD(410,25,1,2,1)="S $P(^PRCS(410,DA,4),""^"",3)=X,$P(^(4),""^"",8)=X D TRANS^PRCSES I $P(^PRCS(410,DA,4),""^"",14)=""Y"" S X=$P(^(4),""^"",8),$P(^(4),""^"",3)="""" D TRANK1^PRCSEZ"
^DD(410,25,1,2,2)="N PRCAAMT S PRCAAMT=X,$P(^PRCS(410,DA,4),""^"",3)="""",$P(^(4),""^"",8)="""" D TRANK^PRCSES I $P(^PRCS(410,DA,4),""^"",14)=""Y"" S X=PRCAAMT D TRANS1^PRCSES"
^DD(410,25,1,2,"%D",0)="^^2^2^2970224^^^^"
^DD(410,25,1,2,"%D",1,0)="This cross reference is used to set the adjustment dollar"
^DD(410,25,1,2,"%D",2,0)="amount."
^DD(410,25,1,2,"DT")="2970224"
^DD(410,25,3)="Enter the adjustment dollar amount (from -9999999.99 to 9999999.99) for this obligation transaction"
^DD(410,25,21,0)="^^2^2^2940707^^"
^DD(410,25,21,1,0)="This is the adjustment dollar amount for this obligation"
^DD(410,25,21,2,0)="transaction."
^DD(410,25,"DT")="2970224"
^DD(410,25.5,0)="ADJUST CP BALANCE ONLY^S^N:NO;Y:YES;^4;14^Q"
^DD(410,25.5,21,0)="^^1^1^2970219^"
^DD(410,25.5,21,1,0)="This is used for adjust transactions only."
^DD(410,25.5,"DT")="2970219"
^DD(410,26,0)="DATE OBL ADJUSTED^D^^4;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,26,3)="Enter the date this obligation transaction was adjusted"
^DD(410,26,21,0)="^^2^2^2910514^"
^DD(410,26,21,1,0)="This is the date this obligation transaction was"
^DD(410,26,21,2,0)="adjusted."
^DD(410,27,0)="TRANSACTION $ AMOUNT^NJ10,2X^^4;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,27,1,0)="^.1"
^DD(410,27,1,1,0)="410^AF^MUMPS"
^DD(410,27,1,1,1)="D TRANS^PRCSES"
^DD(410,27,1,1,2)="D TRANK^PRCSES"
^DD(410,27,1,1,"%D",0)="^^2^2^2930623^^"
^DD(410,27,1,1,"%D",1,0)="This cross reference is used to set the dollar"
^DD(410,27,1,1,"%D",2,0)="amount for the transaction."
^DD(410,27,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(410,27,9)="^"
^DD(410,27,21,0)="^^1^1^2910514^"
^DD(410,27,21,1,0)="This is the transaction dollar amount."
^DD(410,27,"DT")="2890217"
^DD(410,28,0)="ACCOUNTING DATA^F^^3;2^K:$L(X)>16!($L(X)<7)!'(X?.ANP) X"
^DD(410,28,3)="Enter the appropriation symbols for this transaction (e.g., 3650160.001.01)"
^DD(410,28,21,0)="^^2^2^2940531^^^"
^DD(410,28,21,1,0)="These are the appropriate accounting symbols for this transaction"
^DD(410,28,21,2,0)="originating from Fiscal Service."
^DD(410,28,"DT")="2850501"
^DD(410,28.1,0)="FCP/PRJ^F^^3;12^K:$L(X)>9!($L(X)<1) X"
^DD(410,28.1,3)="Answer must be 1-9 characters in length."
^DD(410,28.1,21,0)="^^1^1^2940614^"
^DD(410,28.1,21,1,0)="This is the fund control point/project number."
^DD(410,28.1,"DT")="2940531"
^DD(410,28.5,0)="BBFY^RDX^^3;11^S %DT=""E"" D ^%DT S X=Y,X=X-(X#10000) K:3990000<X!(2000000>X) X"
^DD(410,28.5,3)="Enter a year between 1900 and 2099."
^DD(410,28.5,21,0)="^^1^1^2940614^"
^DD(410,28.5,21,1,0)="This is the beginning budget fiscal year."
^DD(410,28.5,"DT")="2940329"
^DD(410,29,0)="OBLIGATED BY^P200'^VA(200,^4;9^Q"
^DD(410,29,3)="Select the individual in Fiscal Service who obligated this request."
^DD(410,29,21,0)="^^1^1^2921124^^"
^DD(410,29,21,1,0)="This is the person who obligated the transaction."
^DD(410,29,"DT")="2921124"
^DD(410,29.5,0)="OBLIGATION VALIDATION CODE^FO^^4;10^K:$L(X)>30!($L(X)<2) X"
^DD(410,29.5,2)="S Y(0)=Y S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCSC2(D0)"
^DD(410,29.5,2.1)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCSC2(D0)"
^DD(410,29.5,3)="Answer must be 2-30 characters in length."
^DD(410,29.5,8.5)="^"
^DD(410,29.5,21,0)="^^4^4^2930127^^^^"
^DD(410,29.5,21,1,0)="This is the code created for the record at the time that the obligating"
^DD(410,29.5,21,2,0)="official entered their electronic signature, which replaces the written"
^DD(410,29.5,21,3,0)="signature required on the IFCAP document.  The Obligation Validation Code"
^DD(410,29.5,21,4,0)="is encrypted to prevent unauthorized use."
^DD(410,29.5,"DT")="2930317"
^DD(410,29.6,0)="OBLIGATION VALIDATION VERSION^NJ2,0^^4;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410,29.6,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(410,29.6,21,0)="^^2^2^2930127^"
^DD(410,29.6,21,1,0)="This is the version number of the algorithms used for encoding and decoding"
^DD(410,29.6,21,2,0)="the Obligation Validation Code for the record."
^DD(410,29.6,"DT")="2930113"
^DD(410,29.7,0)="OBLIGATION SIGNATURE BLOCK^F^^4;12^K:$L(X)>30!($L(X)<2) X"
^DD(410,29.7,3)="Answer must be 2-30 characters in length."
^DD(410,29.7,21,0)="^^4^4^2930127^"
^DD(410,29.7,21,1,0)="This is the printed form of the name of the official who authorized"
^DD(410,29.7,21,2,0)="the obligation transaction.  It is printed on documents along with"
^DD(410,29.7,21,3,0)="a notation which indicates that the obligation was approved by"
^DD(410,29.7,21,4,0)="electronic signature."
^DD(410,29.7,"DT")="2921116"
^DD(410,29.8,0)="OBLIGATION VAL CODE DATE/TIME^D^^4;13^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,29.8,21,0)="^^2^2^2930127^"
^DD(410,29.8,21,1,0)="This is the date and time that a valid electronic signature was entered"
^DD(410,29.8,21,2,0)="authorizing the obligation transaction."
^DD(410,29.8,"DT")="2930113"
^DD(410,30,0)="FMS $ AMOUNT^RNJ10,2X^^5;1^S:X[""$"" X=$P(X,""$"",2) S:$D(DA) TT=$P(^PRCS(410,DA,0),""^"",2),X=$S(TT=""C""&(X[""CR""):-X,TT=""A""&(X[""CR""):-X,1:X) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999.99)!(X<-9999999.99) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,30,3)="Enter the dollar amount (from -9999999.99 to 9999999.99) for this transaction"
^DD(410,30,21,0)="^^1^1^2940504^^"
^DD(410,30,21,1,0)="This is the FMS dollar amount for the adjustment."
^DD(410,30,"DT")="2940504"
^DD(410,31,0)="FMS DATE^RD^^5;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,31,3)="Enter the date from the CALM (820) report for this transaction"
^DD(410,31,21,0)="^^1^1^2940504^^^"
^DD(410,31,21,1,0)="This is the obligation date for this transaction."
^DD(410,31,"DT")="2940504"
^DD(410,32,0)="FMS TRANSACTION TYPE^FX^^5;3^K:$L(X)'=6!'((X?3N1"".""2N)!(X?3N1""-""2N)) X"
^DD(410,32,3)="Enter the two digit FMS transaction code for this transaction."
^DD(410,32,21,0)="^^1^1^2940504^^^^"
^DD(410,32,21,1,0)="This is the code identifying the transaction."
^DD(410,32,"DT")="2940504"
^DD(410,32.1,0)="CALM TRANS COMPUTED CODE^CJ8^^ ; ^X ^DD(410,32.1,9.3) S X=$E(Y(410,32.1,5),Y(410,32.1,6),X) S Y=X,X=Y(410,32.1,4),X=X_Y"
^DD(410,32.1,9)="^"
^DD(410,32.1,9.01)="410^32"
^DD(410,32.1,9.1)="$E(#32,1,3)_$E(#32,5,6)"
^DD(410,32.1,9.2)="S Y(410,32.1,1)=$S($D(^PRCS(410,D0,5)):^(5),1:"""") S X=$P(Y(410,32.1,1),U,3),Y(410,32.1,2)=X S X=1,Y(410,32.1,3)=X S X=3,X=$E(Y(410,32.1,2),Y(410,32.1,3),X)"
^DD(410,32.1,9.3)="X ^DD(410,32.1,9.2) S Y(410,32.1,4)=X S X=$P(Y(410,32.1,1),U,3),Y(410,32.1,5)=X S X=5,Y(410,32.1,6)=X S X=6"
^DD(410,32.1,21,0)="^^3^3^2910916^^"
^DD(410,32.1,21,1,0)="This is the computed code for the request.  CALM (Centralized"
^DD(410,32.1,21,2,0)="Accounting for Local Management) reports are processed in Austin from"
^DD(410,32.1,21,3,0)="input received from the VA Medical Centers."
^DD(410,32.1,"DT")="2880526"
^DD(410,33,0)="END DATE FOR 1358^D^^5;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(410,33,3)="Enter the ending date for this 1358 Miscellaneous Obligation."
^DD(410,33,21,0)="^^5^5^2940812^"
^DD(410,33,21,1,0)="This field is the ending date for the 1358 Miscellaneous Obligation,"
^DD(410,33,21,2,0)="used when the length of the service contract extends over a period greater"
^DD(410,33,21,3,0)="than one month.  It is used by Fiscal service at the time of obligation."
^DD(410,33,21,4,0)="When used in conjunction with the Auto Accure flag, the ending date will"
^DD(410,33,21,5,0)="be used to determine the monthly accural."
^DD(410,33,"DT")="2940812"
^DD(410,34,0)="AUTO ACCURE^S^1:YES;0:NO;^5;5^Q"
^DD(410,34,3)="Enter YES for Auto Accural; enter NO for no Auto Accrual."
^DD(410,34,21,0)="^^2^2^2940812^"
^DD(410,34,21,1,0)="This field is used by Fiscal service to indicate whether a 1358 "
^DD(410,34,21,2,0)="Miscellaneous Obligation should be accurued in FMS."
^DD(410,34,"DT")="2940812"
^DD(410,35,0)="CEILING $ AMOUNT^RNJ10,2X^^6;1^S:X[""$"" X=$P(X,""$"",2) S:X[""CR"" X=-+X K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X I $D(X) W ""  $ "",$J(X,0,2)"
^DD(410,35,1,0)="^.1^^-1"
^DD(410,35,1,2,0)="410^AK^MUMPS"
^DD(410,35,1,2,1)="S $P(^PRCS(410,DA,4),""^"",3)=X,$P(^(4),""^"",8)=X D TRANS1^PRCSES"
^DD(410,35,1,2,2)="S $P(^PRCS(410,DA,4),""^"",3)="""",$P(^(4),""^"",8)="""" D TRANK1^PRCSES"
^DD(410,35,1,2,"%D",0)="^^2^2^2930623^"
^DD(410,35,1,2,"%D",1,0)="This cross reference is used to set the ceiling"
^DD(410,35,1,2,"%D",2,0)="dollar amount for a ceiling type transaction."
^DD(410,35,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(410,35,21,0)="^^1^1^2910514^"
^DD(410,35,21,1,0)="This is the dollar ceiling amount for this request."
^DD(410,35,"DT")="2890217"
^DD(410,36,0)="DATE ALLOCATED^D^^6;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,36,21,0)="^^2^2^2910514^"
^DD(410,36,21,1,0)="This is the date that the funds are allocated"
^DD(410,36,21,2,0)="for this request."
^DD(410,37,0)="FUND CONTROL POINT DIST. NO^FX^^6;3^K:$L(X)>8!($L(X)<1)!(X'?.ANP) X"
^DD(410,37,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(410,37,21,0)="^^6^6^2910917^^^^"
^DD(410,37,21,1,0)="This is the Fund Control Point Distribution Number."
^DD(410,37,21,2,0)="This number is the Transaction Number from the Fund"
^DD(410,37,21,3,0)="Distribution file, #421.  The Transaction Number is"
^DD(410,37,21,4,0)="composed of SITE, FY (Fiscal Year), and Sequential"
^DD(410,37,21,5,0)="Number.  The number used here is the Sequential Number,"
^DD(410,37,21,6,0)="a four (4) digit number, beginning at 0001."
^DD(410,37,"DT")="2850316"
^DD(410,38,0)="TEMP CP REF#^F^^6;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(410,38,1,0)="^.1"
^DD(410,38,1,1,0)="410^K"
^DD(410,38,1,1,1)="S ^PRCS(410,""K"",$E(X,1,30),DA)="""""
^DD(410,38,1,1,2)="K ^PRCS(410,""K"",$E(X,1,30),DA)"
^DD(410,38,1,1,"%D",0)="^^2^2^2941128^"
^DD(410,38,1,1,"%D",1,0)="This cross reference is used for lookups of temporary"
^DD(410,38,1,1,"%D",2,0)="transactions by the control point clerk."
^DD(410,38,1,1,"DT")="2941128"
^DD(410,38,3)="Answer must be 1-20 characters in length."
^DD(410,38,21,0)="^^2^2^2941128^^"
^DD(410,38,21,1,0)="This field is used for lookups of temporary"
^DD(410,38,21,2,0)="transactions by the control point clerk."
^DD(410,38,"DT")="2941128"
^DD(410,39,0)="ACCOUNTABLE OFFICER^P200'^VA(200,^7;11^Q"
^DD(410,39,21,0)="^^3^3^2941202^"
^DD(410,39,21,1,0)="This field holds the pointer to the accountable officer"
^DD(410,39,21,2,0)="name in the New Person file. This field is displayed on"
^DD(410,39,21,3,0)="2237 transactions."
^DD(410,39,"DT")="2941202"
^DD(410,40,0)="REQUESTOR^P200'X^VA(200,^7;1^I $D(^PRC(411,PRC(""SITE""),8,X)) K X Q"
^DD(410,40,1,0)="^.1^^-1"
^DD(410,40,1,2,0)="410^AL^MUMPS"
^DD(410,40,1,2,1)="I $D(^VA(200,X,20)),$P(^(20),""^"",3)'="""" S $P(^PRCS(410,DA,7),""^"",2)=$P(^VA(200,X,20),""^"",3)"
^DD(410,40,1,2,2)="S $P(^PRCS(410,DA,7),""^"",2)="""""
^DD(410,40,1,2,"%D",0)="^^2^2^2930624^^"
^DD(410,40,1,2,"%D",1,0)="This cross reference is used to set the requestor name"
^DD(410,40,1,2,"%D",2,0)="from file 200 into the file 410 transaction record."
^DD(410,40,1,2,"DT")="2930107"
^DD(410,40,3)="Select the name of the individual to be printed on the 2237 request as the initiator of this request."
^DD(410,40,21,0)="^^2^2^2940323^^^^"
^DD(410,40,21,1,0)="This is the name of the individual printed on the 2237"
^DD(410,40,21,2,0)="form as the initiator of the request."
^DD(410,40,"DT")="2940112"
^DD(410,41,0)="REQUESTOR'S TITLE^FX^^7;2^K:$L(X)>35!($L(X)<3)!(X'?.ANP) X"
^DD(410,41,3)="ANSWER MUST BE 3-35 CHARACTERS IN LENGTH"
^DD(410,41,21,0)="^^1^1^2940620^^"
^DD(410,41,21,1,0)="This is the title of the requestor of this transaction."
^DD(410,41,"DT")="2850316"
^DD(410,42,0)="APPROVING OFFICIAL^P200'^VA(200,^7;3^Q"
^DD(410,42,1,0)="^.1^^-1"
^DD(410,42,1,2,0)="410^AM^MUMPS"
^DD(410,42,1,2,1)="I $D(^VA(200,X,20)),$P(^(20),""^"",3)'="""" S $P(^PRCS(410,DA,7),""^"",4)=$P(^VA(200,X,20),""^"",3)"
^DD(410,42,1,2,2)="S $P(^PRCS(410,DA,7),""^"",4)="""""
^DD(410,42,1,2,"%D",0)="^^3^3^2930624^^"
^DD(410,42,1,2,"%D",1,0)="This cross reference is used to set the approving"
^DD(410,42,1,2,"%D",2,0)="official's name form file 200 into the file 410 transaction "
^DD(410,42,1,2,"%D",3,0)="record."
^DD(410,42,3)="Select the name of the approving official who will be signing this request"
^DD(410,42,21,0)="^^2^2^2921124^^"
^DD(410,42,21,1,0)="This is the name of the approving official who will"
^DD(410,42,21,2,0)="be signing the request."
^DD(410,42,"DT")="2921124"
^DD(410,43,0)="APPR. OFFICIAL'S TITLE^FX^^7;4^K:$L(X)>27!($L(X)<3)!(X'?.ANP) X"
^DD(410,43,3)="ANSWER MUST BE 3-27 CHARACTERS IN LENGTH"
^DD(410,43,21,0)="^^1^1^2910514^"
^DD(410,43,21,1,0)="This is the title of the approving official for this request."
^DD(410,43,"DT")="2850316"
^DD(410,44,0)="DATE SIGNED (APPROVED)^D^^7;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,44,3)="Enter the date this request was signed (approved)"
^DD(410,44,21,0)="^^1^1^2910514^"
^DD(410,44,21,1,0)="This is the date the request was signed (approved)."
^DD(410,44.5,0)="VALIDATION CODE^FIO^^7;6^K:$L(X)>30!($L(X)<2) X"
^DD(410,44.5,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(410,44.5,2.1)="S Y=""<Hidden>"""
^DD(410,44.5,3)="Answer must be 2-30 characters in length."
^DD(410,44.5,8.5)="^"
^DD(410,44.5,21,0)="^^4^4^2930113^^^^"
^DD(410,44.5,21,1,0)="This is the electronic signature code of the approving official for"
^DD(410,44.5,21,2,0)="this request.  It replaces the written signature required on the IFCAP"
^DD(410,44.5,21,3,0)="document.  The electronic signature code is encrypted to prevent"
^DD(410,44.5,21,4,0)="unauthorized use."
^DD(410,44.5,"DT")="2930113"
^DD(410,44.55,0)="VALIDATION VERSION^NJ2,0^^7.1;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410,44.55,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(410,44.55,21,0)="^^3^3^2930511^^^^"
^DD(410,44.55,21,1,0)="This is the version number of the algorithms used to encode and decode"
^DD(410,44.55,21,2,0)="the Validation Code created at the time that the official approving"
^DD(410,44.55,21,3,0)="the transaction entered their electronic signature."
^DD(410,44.55,"DT")="2930113"
^DD(410,44.57,0)="ESIG CODE^F^^7.1;4^K:$L(X)>10!($L(X)<2) X"
^DD(410,44.57,3)="Answer must be 2-10 characters in length."
^DD(410,44.57,21,0)="^^3^3^2930415^^"
^DD(410,44.57,21,1,0)="This is the encoded value used by"
^DD(410,44.57,21,2,0)="IFCAP security utilities when confirming the"
^DD(410,44.57,21,3,0)="integrity of the record."
^DD(410,44.57,"DT")="2930415"
^DD(410,44.6,0)="ES CODE DATE/TIME^D^^7;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,44.6,9)="^"
^DD(410,44.6,21,0)="^^1^1^2930416^^^^"
^DD(410,44.6,21,1,0)="This is the date and time of the ESIG code."
^DD(410,44.6,"DT")="2930416"
^DD(410,44.7,0)="GPF APPROVING FISCAL OFFICER^P200'^VA(200,^7;8^Q"
^DD(410,44.7,3)="Used for General Post Fund requests only.  Entered when the request is approved by a Fiscal officer and released to Supply."
^DD(410,44.7,21,0)="^^3^3^2921124^^^"
^DD(410,44.7,21,1,0)="This is the field used to identify the responsible Fiscal Officer when"
^DD(410,44.7,21,2,0)="the request is approved and released to Supply (General Post Funds -"
^DD(410,44.7,21,3,0)="GPF requests only)."
^DD(410,44.7,"DT")="2921124"
^DD(410,44.8,0)="GPF VALIDATION CODE^FO^^7;9^K:$L(X)>30!($L(X)<2) X"
^DD(410,44.8,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(410,44.8,2.1)="S Y=""<Hidden>"""
^DD(410,44.8,3)="Answer must be 2-30 characters in length.  Used for General Post Fund requests only.  Entered when the request is approved by a Fiscal Officer and released to Supply."
^DD(410,44.8,8.5)="^"
^DD(410,44.8,21,0)="^^4^4^2940620^^^^"
^DD(410,44.8,21,1,0)="This is the electronic signature code of the approving Fiscal Officer"
^DD(410,44.8,21,2,0)="(General Post Funds - GPF requests only).  It replaces the written"
^DD(410,44.8,21,3,0)="signature required on the IFCAP document.  The electronic signature"
^DD(410,44.8,21,4,0)="code is encrypted to prevent unauthorized use."
^DD(410,44.8,"DT")="2930113"
^DD(410,44.85,0)="GPF VALIDATION VERSION^NJ2,0^^7.1;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410,44.85,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(410,44.85,21,0)="^^2^2^2930127^^"
^DD(410,44.85,21,1,0)="This is the version number of the algorithms used for encoding and"
^DD(410,44.85,21,2,0)="decoding the GPF Validation Code."
^DD(410,44.85,"DT")="2930113"
^DD(410,44.87,0)="GPF ESIG CODE^F^^7.1;2^K:$L(X)>10!($L(X)<2) X"
^DD(410,44.87,3)="Answer must be 2-10 characters in length."
^DD(410,44.87,21,0)="^^3^3^2930415^^^"
^DD(410,44.87,21,1,0)="This is the encoded value used by IFCAP security"
^DD(410,44.87,21,2,0)="utilities when confirming the integrity of the"
^DD(410,44.87,21,3,0)="General Post Fund request."
^DD(410,44.87,"DT")="2930415"
^DD(410,44.9,0)="GPF ES CODE DATE/TIME^D^^7;10^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,44.9,3)="Used for General Post Fund requests only.  Entered when the request is approved by a Fiscal Officer and released to Supply."
^DD(410,44.9,21,0)="^^2^2^2930416^^^^"
^DD(410,44.9,21,1,0)="This is the date and time associated with the Fiscal Officer's approval"
^DD(410,44.9,21,2,0)="of the request (General Post Funds - GPF requests only)."
^DD(410,44.9,"DT")="2930416"
^DD(410,45,0)="JUSTIFICATION^410.06^^8;0"
^DD(410,45,21,0)="^^2^2^2911021^^^"
^DD(410,45,21,1,0)="This is the justification for the request entered by the Control Point"
^DD(410,45,21,2,0)="Requestor."
^DD(410,46,0)="DELIVER TO/LOCATION^FX^^9;1^K:$L(X)>30!($L(X)<3)!(X'?.ANP) X"
^DD(410,46,3)="Enter the name of the individual and/or the room number this request should be delivered to (3 to 30 characters)"
^DD(410,46,21,0)="^^2^2^2910514^"
^DD(410,46,21,1,0)="This is the name of the individual and/or room number"
^DD(410,46,21,2,0)="to which this request is to be delivered."
^DD(410,46,"DT")="2850316"
^DD(410,47,0)="EST. DELIVERY DATE^D^^9;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(410,47,3)="Enter the estimated delivery date for this request"
^DD(410,47,21,0)="^^1^1^2940614^^^"
^DD(410,47,21,1,0)="This is the estimated delivery date for this request."
^DD(410,48,0)="DATE RECEIVED^D^^9;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,48,3)="Enter the date this request was received in full"
^DD(410,48,21,0)="^^1^1^2930618^^"
^DD(410,48,21,1,0)="This is the date on which the request was received in full."
^DD(410,48.1,0)="EST. SHIPPING AND/OR HANDLING^NJ7,2X^^9;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<1) X"
^DD(410,48.1,3)="Type a Dollar Amount between 1 and 9999.99, 2 Decimal Digits"
^DD(410,48.1,21,0)="^^2^2^2910514^"
^DD(410,48.1,21,1,0)="This is the estimated shipping and/or handling cost for the "
^DD(410,48.1,21,2,0)="request."
^DD(410,48.1,"DT")="2880922"
^DD(410,49,0)="SORT GROUP^V^^11;1^Q"
^DD(410,49,1,0)="^.1"
^DD(410,49,1,1,0)="410^J"
^DD(410,49,1,1,1)="S ^PRCS(410,""J"",$E(X,1,30),DA)="""""
^DD(410,49,1,1,2)="K ^PRCS(410,""J"",$E(X,1,30),DA)"
^DD(410,49,1,1,"%D",0)="^^2^2^2970311^^"
^DD(410,49,1,1,"%D",1,0)="This cross reference is used to hold Sort Group"
^DD(410,49,1,1,"%D",2,0)="numbers."
^DD(410,49,1,2,0)="410^AR^MUMPS"
^DD(410,49,1,2,1)="I '$D(DIU(0)),$E($P(X,"";"",2),1,9)=""ENG(6920,"" D ACCX^ENLIB2"
^DD(410,49,1,2,2)="Q"
^DD(410,49,1,2,"%D",0)="^^2^2^2970313^^^^"
^DD(410,49,1,2,"%D",1,0)="This cross-reference is used to check the sort group for "
^DD(410,49,1,2,"%D",2,0)="Engineering users (work order for Engineering)."
^DD(410,49,1,2,"DT")="2970313"
^DD(410,49,3)=""
^DD(410,49,4)=""
^DD(410,49,21,0)="^^4^4^2970311^^^^"
^DD(410,49,21,1,0)="This Sort Group field may be used to group together all"
^DD(410,49,21,2,0)="transactions (requests) that relate to a specific project,"
^DD(410,49,21,3,0)="work order, investigator, food group, doctor, etc."
^DD(410,49,21,4,0)="This is the previous 'Project Number' field."
^DD(410,49,"DT")="2970313"
^DD(410,49,"V",0)="^.12P^2^2"
^DD(410,49,"V",1,0)="410.7^Sort Group^1^S^y^y"
^DD(410,49,"V",1,1)="S DIC(""S"")=""I $D(PRC(""""CP"""")),$D(^PRCS(410.7,+Y,0)),$P(^(0),U,2)=+PRC(""""CP"""")"""
^DD(410,49,"V",1,2)="User can only use sort groups associated with their Control Point."
^DD(410,49,"V",2,0)="6920^Work Order^2^W^^n"
^DD(410,49,"V","B",410.7,1)=""
^DD(410,49,"V","B",6920,2)=""
^DD(410,49,"V","M","Sort Group",1)=""
^DD(410,49,"V","M","Work Order",2)=""
^DD(410,49,"V","O",1,1)=""
^DD(410,49,"V","O",2,2)=""
^DD(410,49,"V","P","S",1)=""
^DD(410,49,"V","P","W",2)=""
^DD(410,50,0)="LINE ITEM COUNT^NJ3,0^^10;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410,50,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(410,50,21,0)="^^1^1^2910514^"
^DD(410,50,21,1,0)="This is the number of line items on the request."
^DD(410,50,"DT")="2850501"
^DD(410,51,0)="PARENT TRANSACTION NUMBER^F^^10;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<5)!'(X?.ANP) X"
^DD(410,51,1,0)="^.1"
^DD(410,51,1,1,0)="410^AG"
^DD(410,51,1,1,1)="S ^PRCS(410,""AG"",$E(X,1,30),DA)="""""
^DD(410,51,1,1,2)="K ^PRCS(410,""AG"",$E(X,1,30),DA)"
^DD(410,51,1,1,"%D",0)="^^2^2^2930708^"
^DD(410,51,1,1,"%D",1,0)="This cross reference holds the parent transaction"
^DD(410,51,1,1,"%D",2,0)="number of a split transaction."
^DD(410,51,3)="ANSWER MUST BE 5-18 CHARACTERS IN LENGTH"
^DD(410,51,21,0)="^^2^2^2910916^^"
^DD(410,51,21,1,0)="This is the original transaction, providing the request has been"
^DD(410,51,21,2,0)="divided."
^DD(410,51,"DT")="2850508"
^DD(410,52,0)="STATION NO - P.O. NO^P442'^PRC(442,^10;3^Q"
^DD(410,52,21,0)="^^1^1^2910514^"
^DD(410,52,21,1,0)="This is the station number and the purchase order number on this request."
^DD(410,52,"DT")="2850715"
^DD(410,53,0)="ORIGINATOR OF TEMP # REQ.^P200'^VA(200,^11;2^Q"
^DD(410,53,21,0)="^^3^3^2921221^^^"
^DD(410,53,21,1,0)="This is the name of the person originating the temporary request.  The"
^DD(410,53,21,2,0)="number assigned to the request remains temporary until such time as the"
^DD(410,53,21,3,0)="Control Point Clerk chooses to make it permanent."
^DD(410,53,"DT")="2921221"
^DD(410,54,0)="STATUS^CJ50^^ ; ^D STATUS^PRCSES"
^DD(410,54,9)="^"
^DD(410,54,9.01)=""
^DD(410,54,9.1)="D STATUS^PRCSES"
^DD(410,54,9.2)="S Y(410,54,80)=$S($D(D0):D0,1:""""),Y(410,54,1)=$S($D(^PRCS(410,D0,10)):^(10),1:""""),D0=$P(Y(410,54,1),U,3) S:'$D(^PRC(442,+D0,0)) D0=-1 S Y(410,54,101)=$S($D(^PRC(442,D0,7)):^(7),1:"""")"
^DD(410,54,21,0)="^^2^2^2930728^^^"
^DD(410,54,21,1,0)="This is the status of this request.   It is associated with the"
^DD(410,54,21,2,0)="Purchase Order Status file, #442.3."
^DD(410,54,"DT")="2861208"
^DD(410,55,0)="READY FOR APPROVAL/SIGNATURE?^S^1:YES;^11;3^Q"
^DD(410,55,1,0)="^.1"
^DD(410,55,1,1,0)="410^F^MUMPS"
^DD(410,55,1,1,1)="S %=^PRCS(410,DA,0) I +%,$S($P(%,U,2)=""O""&($P(%,U,4)'=.5):1,$P(%,U,2)=""A""&($P(%,U,4)=1):1,1:"""") S ^PRCS(410,""F"",+%_""-""_+$P($P(%,U),""-"",4)_""-""_$P($P(%,U),""-"",5),DA)="""""
^DD(410,55,1,1,2)="S %=^PRCS(410,DA,0) K ^PRCS(410,""F"",+%_""-""_+$P($P(%,U),""-"",4)_""-""_$P($P(%,U),""-"",5),DA)"
^DD(410,55,1,1,"%D",0)="^^5^5^2930623^"
^DD(410,55,1,1,"%D",1,0)="This cross reference is set on the station name, the"
^DD(410,55,1,1,"%D",2,0)="control point, and the last four digits of the"
^DD(410,55,1,1,"%D",3,0)="transaction number. It is set only for requests "
^DD(410,55,1,1,"%D",4,0)="which are ready for the control point official's"
^DD(410,55,1,1,"%D",5,0)="approval."
^DD(410,55,1,2,0)="410^F1^MUMPS"
^DD(410,55,1,2,1)="S %=^PRCS(410,DA,0) I +%,$S($P(%,U,2)=""O""&($P(%,U,4)'=.5):1,$P(%,U,2)=""A""&($P(%,U,4)=1):1,1:"""") S ^PRCS(410,""F1"",$P($P(%,U),""-"",5)_""-""_+%_""-""_+$P($P(%,U),""-"",4),DA)="""""
^DD(410,55,1,2,2)="S %=^PRCS(410,DA,0) K ^PRCS(410,""F1"",$P($P(%,U),""-"",5)_""-""_+%_""-""_+$P($P(%,U),""-"",4),DA)"
^DD(410,55,1,2,"%D",0)="^^3^3^2930623^"
^DD(410,55,1,2,"%D",1,0)="This cross ref is set on the last 4 digits of the transaction number,"
^DD(410,55,1,2,"%D",2,0)="station #, and the control point.  It is set only for requests "
^DD(410,55,1,2,"%D",3,0)="which are ready for the control point official's approval."
^DD(410,55,1,3,0)="410^AQ"
^DD(410,55,1,3,1)="S ^PRCS(410,""AQ"",$E(X,1,30),DA)="""""
^DD(410,55,1,3,2)="K ^PRCS(410,""AQ"",$E(X,1,30),DA)"
^DD(410,55,1,3,"%D",0)="^^3^3^2930707^^"
^DD(410,55,1,3,"%D",1,0)="This cross reference is set on the transaction number."
^DD(410,55,1,3,"%D",2,0)="It is set only for requests which are ready for the"
^DD(410,55,1,3,"%D",3,0)="control point official's approval."
^DD(410,55,3)="Enter a '1' for 'YES' if this request is ready for approval by the Control Point Official."
^DD(410,55,21,0)="^^2^2^2910514^"
^DD(410,55,21,1,0)="YES indicates that this request is ready for approval"
^DD(410,55,21,2,0)="by the Control Point Official."
^DD(410,55,"DT")="2891116"
^DD(410,56,0)="REQUEST STATUS^P442.3'^PRCD(442.3,^10;4^Q"
^DD(410,56,21,0)="^^2^2^2930728^^^"
^DD(410,56,21,1,0)="This is the status of this request.   It is associated with the"
^DD(410,56,21,2,0)="Purchase Order Status file, #442.3."
^DD(410,56,"DT")="2871005"
^DD(410,57,0)="LOG VOUCHER NUMBER (SUPPLY)^RFX^^100;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1UN4N) X I $D(X),""0123456789JK""'[$E(X,1,1) K X"
^DD(410,57,1,0)="^.1"
^DD(410,57,1,1,0)="410^I^MUMPS"
^DD(410,57,1,1,1)="S Z=$F(""0JK123456789"",$E(X,1)) S:Z Z=""P""_$E(""ABCDEFGHJKLM"",(Z-1),(Z-1))_$E(X,2,5),$P(^PRCS(410,DA,100),""^"",7)=Z K Z"
^DD(410,57,1,1,2)="Q"
^DD(410,57,1,1,"%D",0)="^^2^2^2930623^"
^DD(410,57,1,1,"%D",1,0)="This cross reference is used to set the LOG Voucher"
^DD(410,57,1,1,"%D",2,0)="Number (Supply)."
^DD(410,57,1,2,0)="410^L"
^DD(410,57,1,2,1)="S ^PRCS(410,""L"",$E(X,1,30),DA)="""""
^DD(410,57,1,2,2)="K ^PRCS(410,""L"",$E(X,1,30),DA)"
^DD(410,57,1,2,"%D",0)="^^2^2^2930623^"
^DD(410,57,1,2,"%D",1,0)="This cross reference is set on the LOG Voucher"
^DD(410,57,1,2,"%D",2,0)="Number for the transaction."
^DD(410,57,1,2,"DT")="2910716"
^DD(410,57,3)="Voucher No. must have fiscal month (0=Oct. J=Nov. K=Dec 1=Jan...9=Sep) followed by 4-digit sequential number."
^DD(410,57,21,0)="^^6^6^2940620^^^^"
^DD(410,57,21,1,0)="This is the LOG Voucher Number.  It must have fiscal month (0=Oct."
^DD(410,57,21,2,0)="J=Nov. K= Dec, 1=Jan....9=Sep.), followed by a 4-digit sequential"
^DD(410,57,21,3,0)="number.  This originates from the Integrated Procurement, Storage and"
^DD(410,57,21,4,0)="Distribution System (LOG1) manual, MP-6, Part XIV.  It is used when"
^DD(410,57,21,5,0)="transmitting L0G transactions to the Austin Automation Center"
^DD(410,57,21,6,0)="(AAC)."
^DD(410,57,"DT")="2910716"
^DD(410,58,0)="LOG DIETETIC PERIOD^RSO^1:FIRST REPORT (1ST-15TH);2:SECOND REPORT (16TH-31ST);N:NO REPORT;^100;2^Q"
^DD(410,58,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(410,58,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(410,58,21,0)="^^3^3^2910524^"
^DD(410,58,21,1,0)="This is the set of codes for the first report"
^DD(410,58,21,2,0)="(1st through 15th of month), second report (16th"
^DD(410,58,21,3,0)="through 31st of month), and no report."
^DD(410,58,"DT")="2890424"
^DD(410,59,0)="FISCAL PROCESSING MONTH^RS^1:JANUARY;2:FEBRUARY;3:MARCH;4:APRIL;5:MAY;6:JUNE;7:JULY;8:AUGUST;9:SEPTEMBER;0:OCTOBER;J:NOVEMBER;K:DECEMBER;^100;3^Q"
^DD(410,59,21,0)="^^1^1^2910524^^"
^DD(410,59,21,1,0)="This is the month the request was processed in fiscal."
^DD(410,59,"DT")="2890421"
^DD(410,60,0)="COMMENTS^410.05^^CO;0"
^DD(410,60,21,0)="^^2^2^2930204^^^^"
^DD(410,60,21,1,0)="These are comments entered by Control Point personnel concerning the"
^DD(410,60,21,2,0)="request."
^DD(410,61,0)="REASON FOR RETURN^410.061^^13;0"
^DD(410,61,21,0)="^^1^1^2911021^^^"
^DD(410,61,21,1,0)="This is the reason the request was returned from fiscal."
^DD(410,62,0)="LOG CODE SHEETS SENT BY^*P200'^VA(200,^100;4^S DIC(""S"")=""I $D(^(400)),""""24""""[($P(^(400),U,1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410,62,3)="Name of PPM clerk who created and signed the LOG Issue Request code sheets."
^DD(410,62,12)="Only PPM Clerks or Manager can create LOG code sheets."
^DD(410,62,12.1)="S DIC(""S"")=""I $D(^(400)),""""24""""[($P(^(400),U,1))"""
^DD(410,62,21,0)="^^1^1^2921124^^^^"
^DD(410,62,21,1,0)="This is the person who sent the log code sheets."
^DD(410,62,"DT")="2921117"
^DD(410,63,0)="LOG CODE SHEETS VALID. CODE^FO^^100;5^K:$L(X)>30!($L(X)<2) X"
^DD(410,63,2)="S Y(0)=Y S:Y'="""" Y=""<Hidden>"""
^DD(410,63,2.1)="S:Y'="""" Y=""<Hidden>"""
^DD(410,63,3)="Electronic Signature of PPM Clerk who created and signed the LOG Issue Request Code sheets.  Answer must be 2-30 characters in length."
^DD(410,63,8.5)="^"
^DD(410,63,21,0)="^^2^2^2930127^^^^"
^DD(410,63,21,1,0)="This is the validation code created for the record after the person"
^DD(410,63,21,2,0)="sending the log code sheets has entered their electronic signature."
^DD(410,63,"DT")="2930113"
^DD(410,63.5,0)="LOG CS VALIDATION VERSION^NJ2,0^^100;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410,63.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(410,63.5,21,0)="^^3^3^2930127^"
^DD(410,63.5,21,1,0)="This is the version number of the algorithms used to encode and decode"
^DD(410,63.5,21,2,0)="the LOG Code Sheets Validation Code at the time that the sender enters"
^DD(410,63.5,21,3,0)="a valid electronic signature."
^DD(410,63.5,"DT")="2930113"
^DD(410,63.7,0)="LOG CS ESIG CODE^F^^100;10^K:$L(X)>10!($L(X)<2) X"
^DD(410,63.7,3)="Answer must be 2-10 characters in length."
^DD(410,63.7,21,0)="^^2^2^2930415^^"
^DD(410,63.7,21,1,0)="This is the encoded value used by IFCAP security utilities"
^DD(410,63.7,21,2,0)="when confirming the integrity of the LOG code sheet."
^DD(410,63.7,"DT")="2930415"
^DD(410,64,0)="DATE SIGNED^D^^100;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(410,64,3)="Date/time LOG Issue Request Code sheets were signed by PPM Clerk (thus marking them for transmission)."
^DD(410,64,21,0)="^^1^1^2921117^^^"
^DD(410,64,21,1,0)="This is the date when the code sheets were signed."
^DD(410,64,"DT")="2921117"
^DD(410,65,0)="LOG VOUCHER NUMBER (FISCAL)^RFX^^100;7^K:$L(X)>6!($L(X)<6)!'(X?1""P""1U4N) X I $D(X),""ABCDEFGHJKLM""'[$E(X,2,2) K X"
^DD(410,65,3)="Enter Voucher No. in Fiscal Format. (Letter 'P', followed by letter for month A through M = Oct. through Sep. (note: skips 'I'), followed by 4 digit sequential number."
^DD(410,65,21,0)="^^3^3^2910524^^^"
^DD(410,65,21,1,0)="Enter Voucher No. in Fiscal format. (Letter 'P', followed by letter for"
^DD(410,65,21,2,0)="month A through M = Oct. through Sep. (note: skips 'I'), followed by 4"
^DD(410,65,21,3,0)="digit sequential number."
^DD(410,65,"DT")="2890509"
^DD(410,66,0)="LOG DEPARTMENT^F^^100;8^K:$L(X)>3!($L(X)<3) X"
^DD(410,66,3)="Enter LOG department number for Issue Book requests only!  Answer must be 3 characters in length."
^DD(410,66,21,0)="^^4^4^2910916^^^^"
^DD(410,66,21,1,0)="This is the LOG department number for issue book requests.  This number"
^DD(410,66,21,2,0)="originates from the Integrated Procurement, Storage and Distribution"
^DD(410,66,21,3,0)="System (LOG1) manual, MP-6, Part XIV.  It is used when transmitting L0G"
^DD(410,66,21,4,0)="transactions to the Austin Data Processing Center (DPC)."
^DD(410,66,"DT")="2890831"
^DD(410,67,0)="CONVERTED 1358^S^1:yes;0:no;^0;9^Q"
^DD(410,67,21,0)="^^2^2^2920817^"
^DD(410,67,21,1,0)="    This field will reflect if the entry is a 1358 and has been converted"
^DD(410,67,21,2,0)="during installation of v4 of IFCAP."
^DD(410,67,"DT")="2920305"
^DD(410,68,0)="ORIGINATOR OF REQUEST^P200'^VA(200,^14;1^Q"
^DD(410,68,21,0)="^^3^3^2940711^^^^"
^DD(410,68,21,1,0)="This field is used to contain the New Person File"
^DD(410,68,21,2,0)="pointer for the clerk who physically enters a"
^DD(410,68,21,3,0)="request."
^DD(410,68,"DT")="2940711"
^DD(410,69,0)="AO SIGNATURE DATE^D^^7;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(410,69,21,0)="^^3^3^2941202^"
^DD(410,69,21,1,0)="This field is used to hold the date when a"
^DD(410,69,21,2,0)="2237 was signed by an accountable officer."
^DD(410,69,21,3,0)="It is used to display on the 2237."
^DD(410,69,"DT")="2941202"
^DD(410,445.01,0)="REFERENCE VOUCHER NUMBER^F^^445;1^K:$L(X)>6!($L(X)<6)!'(X?1""I""5N) X"
^DD(410,445.01,3)="Enter the 6 character reference voucher number which will be used to identify the issue book on the code sheets.  The first character should be the letter I."
^DD(410,445.01,21,0)="^^4^4^2940607^^"
^DD(410,445.01,21,1,0)="This field is used for issue books.  It stores the reference voucher"
^DD(410,445.01,21,2,0)="number which is generated by the inventory package during posted.  The"
^DD(410,445.01,21,3,0)="reference voucher number is used on the issue book code sheets and the"
^DD(410,445.01,21,4,0)="voucher summary report."
^DD(410,445.01,"DT")="2940307"
^DD(410,445.02,0)="LAST FMSLINE USED^NJ3,0^^445;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(410,445.02,3)="Enter the last fms line number used on the IV document.  From 0 to 999."
^DD(410,445.02,21,0)="^^2^2^2940307^"
^DD(410,445.02,21,1,0)="This field is used by the inventory package during issue book posting"
^DD(410,445.02,21,2,0)="or adjustments to track the last FMS IV document line number used."
^DD(410,445.02,"DT")="2940307"
^DD(410,446,0)="TOTAL DOLLARS POSTED^NJ7,0^^445;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(410,446,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(410,446,21,0)="^^2^2^2940614^"
^DD(410,446,21,1,0)="This is the total dollar amount posted for"
^DD(410,446,21,2,0)="the issue book."
^DD(410,446,"DT")="2940505"
^DD(410,447,0)="COUPLER^P410'^PRCS(410,^445;4^Q"
^DD(410,447,3)="ENTER THE SELLER/BUYER'S TRANSACTION"
^DD(410,447,21,0)="^^1^1^2941219^"
^DD(410,447,21,1,0)="This field is used to store the seller/buyer txn record id in file 410."
^DD(410,447,"DT")="2941219"
^DD(410,448,0)="SUBSTATION^*P411'X^PRC(411,^0;10^S DIC(""S"")=""I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""""SITE"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410,448,3)="Enter the substation number, if applicable."
^DD(410,448,12)="Insure that substation is linked with selected station."
^DD(410,448,12.1)="S DIC(""S"")=""I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""""SITE"""")"""
^DD(410,448,21,0)="^^3^3^2950913^^^"
^DD(410,448,21,1,0)="This field contains the substation number for the"
^DD(410,448,21,2,0)="transaction. It is used only for merged stations which"
^DD(410,448,21,3,0)="have a primary station with subsidiary stations."
^DD(410,448,"DT")="2950831"
^DD(410,449,0)="RUNNING BALANCE QUARTER DATE^RD^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410,449,1,0)="^.1"
^DD(410,449,1,99,0)="410^RB^MUMPS"
^DD(410,449,1,99,1)="N A S A=$P(^PRCS(410,DA,0),U) S:A A=X_""-""_$P(A,""-"",1)_""-""_$P(A,""-"",4)_""-""_$P(A,""-"",2)_""-""_$P(A,""-"",5),^PRCS(410,""RB"",A,DA)="""""
^DD(410,449,1,99,2)="N A S A=$P(^PRCS(410,DA,0),U) I A S A=X_""-""_$P(A,""-"",1)_""-""_$P(A,""-"",4)_""-""_$P(A,""-"",2)_""-""_$P(A,""-"",5) K ^PRCS(410,""RB"",A,DA)"
^DD(410,449,1,99,"%D",0)="^^2^2^2960223^^^^"
^DD(410,449,1,99,"%D",1,0)="This cross-reference is used to print the quarterly running balance"
^DD(410,449,1,99,"%D",2,0)="report, recalculate the control balances, and run the carry forward option."
^DD(410,449,1,99,"DT")="2960223"
^DD(410,449,21,0)="^^4^4^2960212^"
^DD(410,449,21,1,0)="This is the beginning date of a quarter. It is used"
^DD(410,449,21,2,0)="to print the quarterly running balance report and to recalcualte"
^DD(410,449,21,3,0)="the control point balances. This date will be edited when a entry"
^DD(410,449,21,4,0)="is created, apporved, obligated and carried forward to the new quarter."
^DD(410,449,"DT")="2960223"
^DD(410,450,0)="RUNNING BALANCE STATUS^RS^E:ENTERED;A:APPROVED;O:OBLIGATED;C:CANCELED;^0;12^Q"
^DD(410,450,21,0)="^^2^2^2960216^^^^"
^DD(410,450,21,1,0)="This code is used to indicate the entry is in entered, approved, or"
^DD(410,450,21,2,0)="obligated status."
^DD(410,450,"DT")="2960216"
^DD(410,451,0)="PURCHASE CARD RECORD^P440.5'^PRC(440.5,^1;2^Q"
^DD(410,451,3)=""
^DD(410,451,21,0)="^^2^2^2960607^^^"
^DD(410,451,21,1,0)="This field is filled in when the 2237 associated with"
^DD(410,451,21,2,0)="a purchase card order is created."
^DD(410,451,"DT")="2960607"
^DD(410,455,0)="ISSUE BOOK BATCH ID^F^^445;5^K:$L(X)>25!($L(X)<1) X"
^DD(410,455,1,0)="^.1"
^DD(410,455,1,1,0)="410^AS"
^DD(410,455,1,1,1)="S ^PRCS(410,""AS"",$E(X,1,30),DA)="""""
^DD(410,455,1,1,2)="K ^PRCS(410,""AS"",$E(X,1,30),DA)"
^DD(410,455,1,1,"%D",0)="^^3^3^3050321^"
^DD(410,455,1,1,"%D",1,0)="This cross reference is used for background, but not user interactive "
^DD(410,455,1,1,"%D",2,0)="lookup of file #410 entries associated with a given Issue Book from a "
^DD(410,455,1,1,"%D",3,0)="COTS inventory system."
^DD(410,455,1,1,"DT")="3050321"
^DD(410,455,3)="Answer must be 1-25 characters in length."
^DD(410,455,21,0)="^^2^2^3050321^"
^DD(410,455,21,1,0)="This is the Batch ID of the Issue Book sent from the COTS inventory "
^DD(410,455,21,2,0)="system to uniquely identify the Issue Book."
^DD(410,455,"DT")="3050321"
^DD(410,"B","ACCOUNTABLE OFFICER",39)=""
^DD(410,"B","ACCOUNTING DATA",28)=""
^DD(410,"B","ADJUST CP BALANCE ONLY",25.5)=""
^DD(410,"B","ADJUSTMENT $ AMOUNT",25)=""
^DD(410,"B","AO SIGNATURE DATE",69)=""
^DD(410,"B","APPR. OFFICIAL'S TITLE",43)=""
^DD(410,"B","APPROVING OFFICIAL",42)=""
^DD(410,"B","AUTO ACCURE",34)=""
^DD(410,"B","BBFY",28.5)=""
^DD(410,"B","BOC1",17)=""
^DD(410,"B","BOC1 $ AMOUNT",17.5)=""
^DD(410,"B","BOC2",18)=""
^DD(410,"B","BOC2 $ AMOUNT",18.5)=""
^DD(410,"B","CALM TRANS COMPUTED CODE",32.1)=""
^DD(410,"B","CEILING $ AMOUNT",35)=""
^DD(410,"B","CLASSIFICATION OF REQUEST",8)=""
^DD(410,"B","COMMENTS",60)=""
^DD(410,"B","COMMITTED (ESTIMATED) COST",20)=""
^DD(410,"B","CONTROL POINT",15)=""
^DD(410,"B","CONVERTED 1358",67)=""
^DD(410,"B","COST CENTER",15.5)=""
^DD(410,"B","COUPLER",447)=""
^DD(410,"B","DATE ALLOCATED",36)=""
^DD(410,"B","DATE COMMITTED",21)=""
^DD(410,"B","DATE OBL ADJUSTED",26)=""
^DD(410,"B","DATE OBLIGATED",23)=""
^DD(410,"B","DATE OF REQUEST",5)=""
^DD(410,"B","DATE RECEIVED",48)=""
^DD(410,"B","DATE REQUIRED",7)=""
^DD(410,"B","DATE SIGNED",64)=""
^DD(410,"B","DATE SIGNED (APPROVED)",44)=""
^DD(410,"B","DELIVER TO/LOCATION",46)=""
^DD(410,"B","END DATE FOR 1358",33)=""
^DD(410,"B","ES CODE DATE/TIME",44.6)=""
^DD(410,"B","ESIG CODE",44.57)=""
^DD(410,"B","EST. DELIVERY DATE",47)=""
^DD(410,"B","EST. SHIPPING AND/OR HANDLING",48.1)=""
^DD(410,"B","FCP/PRJ",28.1)=""
^DD(410,"B","FISCAL PROCESSING MONTH",59)=""
^DD(410,"B","FMS $ AMOUNT",30)=""
^DD(410,"B","FMS DATE",31)=""
^DD(410,"B","FMS TRANSACTION TYPE",32)=""
^DD(410,"B","FORM TYPE",3)=""
^DD(410,"B","FUND CONTROL POINT DIST. NO",37)=""
^DD(410,"B","GPF APPROVING FISCAL OFFICER",44.7)=""
^DD(410,"B","GPF ES CODE DATE/TIME",44.9)=""
^DD(410,"B","GPF ESIG CODE",44.87)=""
^DD(410,"B","GPF VALIDATION CODE",44.8)=""
^DD(410,"B","GPF VALIDATION VERSION",44.85)=""
^DD(410,"B","INTERVAL ISSUE?",3.1)=""
^DD(410,"B","INVENTORY DISTRIBUTION POINT",4)=""
^DD(410,"B","ISSUE BOOK BATCH ID",455)=""
^DD(410,"B","ITEM",10)=""
^DD(410,"B","JUSTIFICATION",45)=""
^DD(410,"B","LAST FMSLINE USED",445.02)=""
^DD(410,"B","LINE ITEM COUNT",50)=""
^DD(410,"B","LOG CODE SHEETS SENT BY",62)=""
^DD(410,"B","LOG CODE SHEETS VALID. CODE",63)=""
^DD(410,"B","LOG CS ESIG CODE",63.7)=""
^DD(410,"B","LOG CS VALIDATION VERSION",63.5)=""
^DD(410,"B","LOG DEPARTMENT",66)=""
^DD(410,"B","LOG DIETETIC PERIOD",58)=""
^DD(410,"B","LOG VOUCHER NUMBER (FISCAL)",65)=""
^DD(410,"B","LOG VOUCHER NUMBER (SUPPLY)",57)=""
^DD(410,"B","MONTH OF 1358",3.2)=""
^DD(410,"B","OBLIGATED (ACTUAL) COST",22)=""
^DD(410,"B","OBLIGATED BY",29)=""
^DD(410,"B","OBLIGATION SIGNATURE BLOCK",29.7)=""
^DD(410,"B","OBLIGATION VAL CODE DATE/TIME",29.8)=""
^DD(410,"B","OBLIGATION VALIDATION CODE",29.5)=""
^DD(410,"B","OBLIGATION VALIDATION VERSION",29.6)=""
^DD(410,"B","ORIGINATOR OF REQUEST",68)=""
^DD(410,"B","ORIGINATOR OF TEMP # REQ.",53)=""
^DD(410,"B","PARENT TRANSACTION NUMBER",51)=""
^DD(410,"B","PRIORITY OF REQUEST",7.5)=""
^DD(410,"B","PURCHASE CARD RECORD",451)=""
^DD(410,"B","PURCHASE ORDER/OBLIGATION NO",24)=""
^DD(410,"B","READY FOR APPROVAL/SIGNATURE?",55)=""
^DD(410,"B","REASON FOR RETURN",61)=""
^DD(410,"B","REFERENCE VOUCHER NUMBER",445.01)=""
^DD(410,"B","REQUEST STATUS",56)=""
^DD(410,"B","REQUESTING SERVICE",6.3)=""
^DD(410,"B","REQUESTOR",40)=""
^DD(410,"B","REQUESTOR'S TITLE",41)=""
^DD(410,"B","RUNNING BALANCE QUARTER DATE",449)=""
^DD(410,"B","RUNNING BALANCE STATUS",450)=""
^DD(410,"B","SORT GROUP",49)=""
^DD(410,"B","SPECIAL REMARKS",9)=""
^DD(410,"B","STATION NO - P.O. NO",52)=""
^DD(410,"B","STATION NUMBER",.5)=""
^DD(410,"B","STATUS",54)=""
^DD(410,"B","SUB-CONTROL POINT",16)=""
^DD(410,"B","SUBSTATION",448)=""
^DD(410,"B","TEMP CP REF#",38)=""
^DD(410,"B","TEMPORARY TRANS. NUMBER",2)=""
^DD(410,"B","TOTAL DOLLARS POSTED",446)=""
^DD(410,"B","TRANSACTION $ AMOUNT",27)=""
^DD(410,"B","TRANSACTION NUMBER",.01)=""
^DD(410,"B","TRANSACTION TYPE",1)=""
^DD(410,"B","VALIDATION CODE",44.5)=""
^DD(410,"B","VALIDATION VERSION",44.55)=""
^DD(410,"B","VENDOR",11)=""
^DD(410,"B","VENDOR ADDRESS1",11.1)=""
^DD(410,"B","VENDOR ADDRESS2",11.2)=""
^DD(410,"B","VENDOR ADDRESS3",11.3)=""
^DD(410,"B","VENDOR ADDRESS4",11.4)=""
^DD(410,"B","VENDOR CITY",11.5)=""
^DD(410,"B","VENDOR CONTACT",11.8)=""
^DD(410,"B","VENDOR CONTRACT NUMBER",13)=""
^DD(410,"B","VENDOR PHONE NO.",11.9)=""
^DD(410,"B","VENDOR STATE",11.6)=""
^DD(410,"B","VENDOR ZIP CODE",11.7)=""
^DD(410,"B","VENDOR(POINTER)",12)=""
^DD(410,"GL",0,1,.01)=""
^DD(410,"GL",0,2,1)=""
^DD(410,"GL",0,3,2)=""
^DD(410,"GL",0,4,3)=""
^DD(410,"GL",0,5,.5)=""
^DD(410,"GL",0,6,4)=""
^DD(410,"GL",0,7,3.1)=""
^DD(410,"GL",0,8,3.2)=""
^DD(410,"GL",0,9,67)=""
^DD(410,"GL",0,10,448)=""
^DD(410,"GL",0,11,449)=""
^DD(410,"GL",0,12,450)=""
^DD(410,"GL",1,1,5)=""
^DD(410,"GL",1,2,451)=""
^DD(410,"GL",1,3,7.5)=""
^DD(410,"GL",1,4,7)=""
^DD(410,"GL",1,5,8)=""
^DD(410,"GL",2,1,11)=""
^DD(410,"GL",2,2,11.1)=""
^DD(410,"GL",2,3,11.2)=""
^DD(410,"GL",2,4,11.3)=""
^DD(410,"GL",2,5,11.4)=""
^DD(410,"GL",2,6,11.5)=""
^DD(410,"GL",2,7,11.6)=""
^DD(410,"GL",2,8,11.7)=""
^DD(410,"GL",2,9,11.8)=""
^DD(410,"GL",2,10,11.9)=""
^DD(410,"GL",3,1,15)=""
^DD(410,"GL",3,2,28)=""
^DD(410,"GL",3,3,15.5)=""
^DD(410,"GL",3,4,12)=""
^DD(410,"GL",3,5,6.3)=""
^DD(410,"GL",3,6,17)=""
^DD(410,"GL",3,7,17.5)=""
^DD(410,"GL",3,8,18)=""
^DD(410,"GL",3,9,18.5)=""
^DD(410,"GL",3,10,13)=""
^DD(410,"GL",3,11,28.5)=""
^DD(410,"GL",3,12,28.1)=""
^DD(410,"GL",4,1,20)=""
^DD(410,"GL",4,2,21)=""
^DD(410,"GL",4,3,22)=""
^DD(410,"GL",4,4,23)=""
^DD(410,"GL",4,5,24)=""
^DD(410,"GL",4,6,25)=""
^DD(410,"GL",4,7,26)=""
^DD(410,"GL",4,8,27)=""
^DD(410,"GL",4,9,29)=""
^DD(410,"GL",4,10,29.5)=""
^DD(410,"GL",4,11,29.6)=""
^DD(410,"GL",4,12,29.7)=""
^DD(410,"GL",4,13,29.8)=""
^DD(410,"GL",4,14,25.5)=""
^DD(410,"GL",5,1,30)=""
^DD(410,"GL",5,2,31)=""
^DD(410,"GL",5,3,32)=""
^DD(410,"GL",5,4,33)=""
^DD(410,"GL",5,5,34)=""
^DD(410,"GL",6,1,35)=""
^DD(410,"GL",6,2,36)=""
^DD(410,"GL",6,3,37)=""
^DD(410,"GL",6,4,38)=""
^DD(410,"GL",7,1,40)=""
^DD(410,"GL",7,2,41)=""
^DD(410,"GL",7,3,42)=""
^DD(410,"GL",7,4,43)=""
^DD(410,"GL",7,5,44)=""
^DD(410,"GL",7,6,44.5)=""
^DD(410,"GL",7,7,44.6)=""
^DD(410,"GL",7,8,44.7)=""
^DD(410,"GL",7,9,44.8)=""
^DD(410,"GL",7,10,44.9)=""
^DD(410,"GL",7,11,39)=""
^DD(410,"GL",7,12,69)=""
^DD(410,"GL",7.1,1,44.85)=""
^DD(410,"GL",7.1,2,44.87)=""
^DD(410,"GL",7.1,3,44.55)=""
^DD(410,"GL",7.1,4,44.57)=""
^DD(410,"GL",8,0,45)=""
^DD(410,"GL",9,1,46)=""
^DD(410,"GL",9,2,47)=""
^DD(410,"GL",9,3,48)=""
^DD(410,"GL",9,4,48.1)=""
^DD(410,"GL",10,1,50)=""
^DD(410,"GL",10,2,51)=""
^DD(410,"GL",10,3,52)=""
^DD(410,"GL",10,4,56)=""
^DD(410,"GL",11,1,49)=""
^DD(410,"GL",11,2,53)=""
^DD(410,"GL",11,3,55)=""
^DD(410,"GL",12,0,16)=""
^DD(410,"GL",13,0,61)=""
^DD(410,"GL",14,1,68)=""
^DD(410,"GL",100,1,57)=""
^DD(410,"GL",100,2,58)=""
^DD(410,"GL",100,3,59)=""
^DD(410,"GL",100,4,62)=""
^DD(410,"GL",100,5,63)=""
^DD(410,"GL",100,6,64)=""
^DD(410,"GL",100,7,65)=""
^DD(410,"GL",100,8,66)=""
^DD(410,"GL",100,9,63.5)=""
^DD(410,"GL",100,10,63.7)=""
^DD(410,"GL",445,1,445.01)=""
^DD(410,"GL",445,2,445.02)=""
^DD(410,"GL",445,3,446)=""
^DD(410,"GL",445,4,447)=""
^DD(410,"GL",445,5,455)=""
^DD(410,"GL","CO",0,60)=""
^DD(410,"GL","IT",0,10)=""
^DD(410,"GL","RM",0,9)=""
^DD(410,"IX",.01)=""
^DD(410,"IX",2)=""
^DD(410,"IX",4)=""
^DD(410,"IX",11)=""
^DD(410,"IX",15)=""
^DD(410,"IX",15.5)=""
^DD(410,"IX",17)=""
^DD(410,"IX",18)=""
^DD(410,"IX",20)=""
^DD(410,"IX",22)=""
^DD(410,"IX",24)=""
^DD(410,"IX",25)=""
^DD(410,"IX",27)=""
^DD(410,"IX",35)=""
^DD(410,"IX",38)=""
^DD(410,"IX",40)=""
^DD(410,"IX",42)=""
^DD(410,"IX",49)=""
^DD(410,"IX",51)=""
^DD(410,"IX",55)=""
^DD(410,"IX",57)=""
^DD(410,"IX",449)=""
^DD(410,"IX",455)=""
^DD(410,"RQ",.01)=""
^DD(410,"RQ",1)=""
^DD(410,"RQ",3)=""
^DD(410,"RQ",7)=""
^DD(410,"RQ",11)=""
^DD(410,"RQ",15)=""
^DD(410,"RQ",15.5)=""
^DD(410,"RQ",17)=""
^DD(410,"RQ",17.5)=""
^DD(410,"RQ",20)=""
^DD(410,"RQ",21)=""
^DD(410,"RQ",22)=""
^DD(410,"RQ",25)=""
^DD(410,"RQ",28.5)=""
^DD(410,"RQ",30)=""
^DD(410,"RQ",31)=""
^DD(410,"RQ",35)=""
^DD(410,"RQ",57)=""
^DD(410,"RQ",58)=""
^DD(410,"RQ",59)=""
^DD(410,"RQ",65)=""
^DD(410,"RQ",449)=""
^DD(410,"RQ",450)=""
^DD(410,"SB",410.01,9)=""
^DD(410,"SB",410.02,10)=""
^DD(410,"SB",410.04,16)=""
^DD(410,"SB",410.05,60)=""
^DD(410,"SB",410.06,45)=""
^DD(410,"SB",410.061,61)=""
^DD(410.01,0)="SPECIAL REMARKS SUB-FIELD^NL^.01^1"
^DD(410.01,0,"NM","SPECIAL REMARKS")=""
^DD(410.01,0,"UP")="410"
^DD(410.01,.01,0)="SPECIAL REMARKS^W^^0;1^Q"
^DD(410.01,.01,3)="Enter any special remarks concerning this request you wish to convey to Supply Service.  These remarks will be printed on the request form. (Optional)"
^DD(410.01,.01,21,0)="^^1^1^2940620^^"
^DD(410.01,.01,21,1,0)="These are special remarks regarding this request."
^DD(410.01,.01,"DT")="2860316"
^DD(410.01,"B","SPECIAL REMARKS",.01)=""
^DD(410.01,"GL",0,1,.01)=""
^DD(410.02,0)="ITEM SUB-FIELD^NL^445.05^24"
^DD(410.02,0,"DT")="2940621"
^DD(410.02,0,"ID","Z0")="W:$D(^(0)) ?8,$P(^(0),U,5)"
^DD(410.02,0,"ID","Z1")="W:$D(^(1,1,0)) ?18,$E(^(0),1,60)"
^DD(410.02,0,"IX","AB",410.02,.01)=""
^DD(410.02,0,"IX","AC",410.02,9)=""
^DD(410.02,0,"IX","AD",410.02,.01)=""
^DD(410.02,0,"IX","AD",410.02,4)=""
^DD(410.02,0,"IX","AE",410.02,2)=""
^DD(410.02,0,"IX","AF",410.02,7)=""
^DD(410.02,0,"IX","AG",410.02,5)=""
^DD(410.02,0,"IX","AX1",410.02,445.01)=""
^DD(410.02,0,"IX","AX2",410.02,445.02)=""
^DD(410.02,0,"IX","B",410.02,.01)=""
^DD(410.02,0,"NM","ITEM")=""
^DD(410.02,0,"UP")="410"
^DD(410.02,.01,0)="LINE ITEM NUMBER^MRNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.02,.01,1,0)="^.1^^-1"
^DD(410.02,.01,1,1,0)="410.02^B"
^DD(410.02,.01,1,1,1)="S ^PRCS(410,DA(1),""IT"",""B"",$E(X,1,30),DA)="""""
^DD(410.02,.01,1,1,2)="K ^PRCS(410,DA(1),""IT"",""B"",$E(X,1,30),DA)"
^DD(410.02,.01,1,3,0)="410.02^AB"
^DD(410.02,.01,1,3,1)="S ^PRCS(410,DA(1),""IT"",""AB"",$E(X,1,30),DA)="""""
^DD(410.02,.01,1,3,2)="K ^PRCS(410,DA(1),""IT"",""AB"",$E(X,1,30),DA)"
^DD(410.02,.01,1,3,"%D",0)="^^4^4^2940216^^"
^DD(410.02,.01,1,3,"%D",1,0)="This cross reference is set for each line item of"
^DD(410.02,.01,1,3,"%D",2,0)="a transaction, from the ""IT"" item cross reference."
^DD(410.02,.01,1,3,"%D",3,0)="Listed from ""AB"" and the line item number, on"
^DD(410.02,.01,1,3,"%D",4,0)="consecutive nodes, are the line item data."
^DD(410.02,.01,1,4,0)="410.02^AD^MUMPS"
^DD(410.02,.01,1,4,1)="S Z(1)=$S($D(^PRCS(410,DA(1),3)):$P(^(3),U,3),1:"""") S ^PRCS(410,DA(1),""IT"",DA,0)=$P(^PRCS(410,DA(1),""IT"",DA,0)_""^^^^^^^"",U,1,7)_U_Z(1) K Z(1)"
^DD(410.02,.01,1,4,2)="Q"
^DD(410.02,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(410.02,.01,21,0)="^^1^1^2910514^"
^DD(410.02,.01,21,1,0)="This is the item number for this request."
^DD(410.02,.01,"DT")="3050222"
^DD(410.02,1,0)="DESCRIPTION^410.03^^1;0"
^DD(410.02,1,21,0)="^^1^1^2911021^"
^DD(410.02,1,21,1,0)="This is a description of the item being ordered."
^DD(410.02,2,0)="QUANTITY^RNJ9,2^^0;2^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(410.02,2,1,0)="^.1"
^DD(410.02,2,1,1,0)="410.02^AE^MUMPS"
^DD(410.02,2,1,1,1)="S E=0,E(1)="""" S:'$D(^PRCS(410,DA(1),4)) ^(4)="""" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),""IT"",E)) S:E?1N.N E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q"
^DD(410.02,2,1,1,1.4)="S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=E(1),DA=DA(1) X ^DD(410,20,1,1,1) S DA=E,DA(1)=E(2)"
^DD(410.02,2,1,1,2)="S E=0,E(1)="""" S:'$D(^PRCS(410,DA(1),4)) ^(4)="""" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),""IT"",E)) S:E?1N.N&(E'=DA) E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q"
^DD(410.02,2,1,1,2.4)="S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=$J(E(1),10,2),DA=DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)"
^DD(410.02,2,1,1,"%D",0)="^^2^2^2930623^"
^DD(410.02,2,1,1,"%D",1,0)="This cross reference is used to calculate the quantity"
^DD(410.02,2,1,1,"%D",2,0)="ordered for each line item."
^DD(410.02,2,3)="Enter the quantity (a number from .01 to 999,999 with up to two decimal places) of this item you wish to order."
^DD(410.02,2,21,0)="^^1^1^2910514^"
^DD(410.02,2,21,1,0)="This is the quantity of the item(s) requested."
^DD(410.02,2,"DT")="2860122"
^DD(410.02,3,0)="UNIT OF PURCHASE^RP420.5'^PRCD(420.5,^0;3^Q"
^DD(410.02,3,3)="Select the appropriate unit of purchase for this item"
^DD(410.02,3,21,0)="^^3^3^2910917^^^"
^DD(410.02,3,21,1,0)="This is the unit of measurement for items being procured."
^DD(410.02,3,21,2,0)="  "
^DD(410.02,3,21,3,0)="  e.g., each, dozen, box, bottle, case, pound (lb.), square ft.,  etc."
^DD(410.02,3,"DT")="2850711"
^DD(410.02,4,0)="BOC^RFX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) D SUB^PRCSES"
^DD(410.02,4,1,0)="^.1^^0"
^DD(410.02,4,1,1,0)="410.02^AD^MUMPS"
^DD(410.02,4,1,1,1)="S ^PRCS(410,""AD"",$E(X,1,30),DA(1))="""""
^DD(410.02,4,1,1,2)="K ^PRCS(410,""AD"",$E(X,1,30),DA(1))"
^DD(410.02,4,1,1,"%D",0)="^^2^2^2940518^^"
^DD(410.02,4,1,1,"%D",1,0)="This cross reference is set on the number and name"
^DD(410.02,4,1,1,"%D",2,0)="of the budget object code used on the request."
^DD(410.02,4,3)="Select the appropriate budget object code for this item"
^DD(410.02,4,4)="D ^PRCSES S ZD=D,X=""?"",Z0=$S($D(^PRCS(410,DA(1),3)):+$P(^(3),U,3),1:0) Q:'Z0!'$D(^PRCD(420.1,Z0,1,0))  S DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD"
^DD(410.02,4,21,0)="^^8^8^2940323^^^^"
^DD(410.02,4,21,1,0)="This is a fiscal code which describes the type of item/service being"
^DD(410.02,4,21,2,0)="procured (associated with Control Points and Cost Centers)."
^DD(410.02,4,21,3,0)="  "
^DD(410.02,4,21,4,0)="  e.g.,    2620  Office Supplies"
^DD(410.02,4,21,5,0)="           2623  ADP Recording Media"
^DD(410.02,4,21,6,0)="           2524  ADP Software"
^DD(410.02,4,21,7,0)=" BOC (Budget Object Code) replaces the 'subaccount' field"
^DD(410.02,4,21,8,0)="for FMS."
^DD(410.02,4,"DT")="2940323"
^DD(410.02,5,0)="ITEM MASTER FILE NO.^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) D ITEM^PRCSES1"
^DD(410.02,5,1,0)="^.1"
^DD(410.02,5,1,1,0)="410.02^AG"
^DD(410.02,5,1,1,1)="S ^PRCS(410,DA(1),""IT"",""AG"",$E(X,1,30),DA)="""""
^DD(410.02,5,1,1,2)="K ^PRCS(410,DA(1),""IT"",""AG"",$E(X,1,30),DA)"
^DD(410.02,5,1,1,"%D",0)="^^3^3^2930623^"
^DD(410.02,5,1,1,"%D",1,0)="This cross reference is set from the ""IT"" item"
^DD(410.02,5,1,1,"%D",2,0)="cross reference, and from ""AG"", is set on the"
^DD(410.02,5,1,1,"%D",3,0)="repetitive (PR card) number."
^DD(410.02,5,1,1,"DT")="2910729"
^DD(410.02,5,3)="Select the procurement (UIR) card number you wish to order"
^DD(410.02,5,4)="D ITEMH^PRCSES1"
^DD(410.02,5,21,0)="2^^5^5^2940823^^^"
^DD(410.02,5,21,1,0)="This is a number used to identify an item in the Item File when"
^DD(410.02,5,21,2,0)="entering a repetitive form type (associated with the Item Master"
^DD(410.02,5,21,3,0)="Number)."
^DD(410.02,5,21,4,0)="  "
^DD(410.02,5,21,5,0)="  e.g.,  322  Widget-3/4 IN "
^DD(410.02,5,"DT")="2940823"
^DD(410.02,6,0)="STOCK NUMBER^FX^^0;6^K:$L(X)>24!($L(X)<1)!(X'?.ANP) X"
^DD(410.02,6,3)="Enter the Federal Supply Service (FSS) or other stock number for this item, or the manufacturers model number"
^DD(410.02,6,21,0)="^^3^3^2910913^^"
^DD(410.02,6,21,1,0)="This is the item Federal Supply Service (FSS) Number; or National Stock"
^DD(410.02,6,21,2,0)="Number (NSN); or any other stock number; or the manufacturer model"
^DD(410.02,6,21,3,0)="number."
^DD(410.02,6,"DT")="2850316"
^DD(410.02,7,0)="EST. ITEM (UNIT) COST^RNJ10,2X^^0;7^S:X[""$"" X=$P(X,""$"",2) Q:X?1""N/C""  K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X I $D(X) S:X=0 X=""N/C"""
^DD(410.02,7,1,0)="^.1"
^DD(410.02,7,1,1,0)="410.02^AF^MUMPS"
^DD(410.02,7,1,1,1)="S E=0,E(1)="""" S:'$D(^PRCS(410,DA(1),4)) ^(4)="""" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),""IT"",E)) S:E?1N.N E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q"
^DD(410.02,7,1,1,1.4)="S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=E(1),DA=DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)"
^DD(410.02,7,1,1,2)="S E=0,E(1)="""" S:'$D(^PRCS(410,DA(1),4)) ^(4)="""" F E(0)=1:1 S E=$O(^PRCS(410,DA(1),""IT"",E)) S:E?1N.N&(E'=DA) E(1)=E(1)+($P(^(E,0),U,2)*$P(^(0),U,7)) I E'?1N.N X ^DD(410.02,2,1,1,1.4) K E Q"
^DD(410.02,7,1,1,2.4)="S ^PRCS(410,DA(1),4)=E(1)_U_$P(^PRCS(410,DA(1),4),U,2,99),E=DA,E(2)=DA(1),X=$J(E(1),10,2),DA=DA(1) X ^DD(410,20,1,1,2) S DA=E,DA(1)=E(2)"
^DD(410.02,7,1,1,"%D",0)="^^2^2^2930623^"
^DD(410.02,7,1,1,"%D",1,0)="This cross reference is used to calculate the estimated"
^DD(410.02,7,1,1,"%D",2,0)="item (unit) cost."
^DD(410.02,7,3)="Enter the unit cost for this item (a dollar amount between 0 and 9999999) or N/C for no charge.  Commas are not allowed."
^DD(410.02,7,21,0)="^^2^2^2940513^^^"
^DD(410.02,7,21,1,0)="This is the individual unit cost of the item(s) in "
^DD(410.02,7,21,2,0)="a dollar amount or N/C for no charge."
^DD(410.02,7,"DT")="2860317"
^DD(410.02,8,0)="ITEM DELIVERY POINTS^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(410.02,8,1,0)="^.1^^0"
^DD(410.02,8,3)="If this item is to be delivered to multiple rooms/persons/sections upon receipt, enter in this field each delivery point and the quantity each should receive."
^DD(410.02,8,21,0)="^^2^2^2910913^"
^DD(410.02,8,21,1,0)="This is an identification of the room(s), person(s), or section(s) to"
^DD(410.02,8,21,2,0)="which the item is to be delivered."
^DD(410.02,8,"DT")="2870721"
^DD(410.02,9,0)="PURCHASE ORDER/OBLIGATION NO^P442'^PRC(442,^0;10^Q"
^DD(410.02,9,1,0)="^.1"
^DD(410.02,9,1,1,0)="410.02^AC^MUMPS"
^DD(410.02,9,1,1,1)="K ^PRCS(410,DA(1),""IT"",""AB"",+$P(^PRCS(410,DA(1),""IT"",0),U,1),DA)"
^DD(410.02,9,1,1,2)="S ^PRCS(410,DA(1),""IT"",""AB"",+$P(^PRCS(410,DA(1),""IT"",0),U,1),DA)="""""
^DD(410.02,9,1,1,"%D",0)="^^6^6^2950306^^"
^DD(410.02,9,1,1,"%D",1,0)="This cross reference is used to set part of the ""IT"" item"
^DD(410.02,9,1,1,"%D",2,0)="cross reference. From ""AB"", the purchase order/obligation"
^DD(410.02,9,1,1,"%D",3,0)="number is set."
^DD(410.02,9,1,1,"%D",4,0)="This cross reference is used to link the purchase order number"
^DD(410.02,9,1,1,"%D",5,0)="with the line item number. As items are deleted in any order,"
^DD(410.02,9,1,1,"%D",6,0)="it is more efficient to kill and then recreate the cross reference."
^DD(410.02,9,9)="^"
^DD(410.02,9,21,0)="^^6^6^2910913^^"
^DD(410.02,9,21,1,0)="This is the item purchase order/obligation number that is either"
^DD(410.02,9,21,2,0)="generated on IFCAP or entered by the Control Point Clerk.  For"
^DD(410.02,9,21,3,0)="transactions generated on IFCAP,  the number is transferred from the"
^DD(410.02,9,21,4,0)="purchase order file.  For transactions not generated on IFCAP"
^DD(410.02,9,21,5,0)="(e.g.,travel voucher), the number is manually entered by the Control"
^DD(410.02,9,21,6,0)="Point Clerk."
^DD(410.02,9,"DT")="2850715"
^DD(410.02,10,0)="INTERMEDIATE PRODUCT CODE^P420.9'^PRCD(420.9,^0;11^Q"
^DD(410.02,10,3)="Select the appropriate Intermediate Product Code for this item."
^DD(410.02,10,21,0)="^^1^1^2910913^^"
^DD(410.02,10,21,1,0)="This is the appropriate Intermediate Product Code for the item."
^DD(410.02,10,"DT")="2860422"
^DD(410.02,11,0)="RECEIVING CODE SHEET NO.^P423'^PRCF(423,^0;9^Q"
^DD(410.02,11,3)="Pointer to LOG/CALM Code sheet file (423) for the LOG Issues Code sheet created for the receipt of this line item."
^DD(410.02,11,21,0)="^^7^7^2910917^^"
^DD(410.02,11,21,1,0)="This is the computer generated number identifying the receiving code"
^DD(410.02,11,21,2,0)="sheet transmitted to Austin, TX.  It is associated with the CALM.LOG"
^DD(410.02,11,21,3,0)="Code Sheet file, #423. It is composed of a Sequence Number and Fiscal"
^DD(410.02,11,21,4,0)="Year."
^DD(410.02,11,21,5,0)="  e.g., 106-91,"
^DD(410.02,11,21,6,0)="  106 = Sequence Number;"
^DD(410.02,11,21,7,0)="  91 = Fiscal Year."
^DD(410.02,11,"DT")="2890421"
^DD(410.02,12,0)="DELIVERY SCHEDULE^410.212I^^2;0"
^DD(410.02,12,21,0)="^^1^1^2910917^^^"
^DD(410.02,12,21,1,0)="This field is the Delivery Schedule of the Order File, #442.8."
^DD(410.02,13,0)="QUANTITY POSTED (WHSE)^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(410.02,13,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(410.02,13,21,0)="^^2^2^2911021^"
^DD(410.02,13,21,1,0)="This field is used to store the quantity posted from the warehouse"
^DD(410.02,13,21,2,0)="to a primary for issue book requests."
^DD(410.02,13,"DT")="2910514"
^DD(410.02,14,0)="QUANTITY RECEIVED (PRIMARY)^NJ6,0^^0;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(410.02,14,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(410.02,14,21,0)="^^2^2^2911021^"
^DD(410.02,14,21,1,0)="This field is used to store the quantity received from the warehouse"
^DD(410.02,14,21,2,0)="to a primary for issue book requests."
^DD(410.02,14,"DT")="2910514"
^DD(410.02,15,0)="STATUS^F^^0;14^K:$L(X)>30!($L(X)<1) X"
^DD(410.02,15,3)="Answer must be 1-30 characters in length."
^DD(410.02,15,21,0)="^^3^3^2930728^^"
^DD(410.02,15,21,1,0)="This field is used to indicate if an item is 'C'ancelled or 'S'ubstituted."
^DD(410.02,15,21,2,0)="If an item is substituted, it will also contain the line item number"
^DD(410.02,15,21,3,0)="for the item(s) which were substituted for this item."
^DD(410.02,15,"DT")="2910719"
^DD(410.02,16,0)="PO EST. SHIPPING^NJ10,2^^3;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(410.02,16,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(410.02,16,21,0)="^^2^2^2940425^^"
^DD(410.02,16,21,1,0)="This is the shipping cost for the item as calculated"
^DD(410.02,16,21,2,0)="on the purchase order."
^DD(410.02,16,"DT")="2940425"
^DD(410.02,17,0)="DM DOC ID^FI^^4;1^K:$L(X)>16!($L(X)<9) X"
^DD(410.02,17,3)="Answer must be 9-16 characters in length"
^DD(410.02,17,10)="DynaMed --Information Control"
^DD(410.02,17,21,0)="^^8^8^3050228^"
^DD(410.02,17,21,1,0)="This is DynaMed's unique number associated with each item that is sent on"
^DD(410.02,17,21,2,0)="a request order from DynaMed. It is composed of 1 digit for Year"
^DD(410.02,17,21,3,0)="concatenated with 3 digit Julian Date a dash, concatenated with 4 digit"
^DD(410.02,17,21,4,0)="Sequential Number and a dash, concatenated up to 6 characters (ex"
^DD(410.02,17,21,5,0)="YDDD-9999-CCCCCC)."
^DD(410.02,17,21,6,0)=" "
^DD(410.02,17,21,7,0)="This number is provided by DynaMed, a user's input is not required. "
^DD(410.02,17,21,8,0)="DynaMed allows 16 characters maximum. "
^DD(410.02,17,23,0)="^^4^4^3050228^^"
^DD(410.02,17,23,1,0)="This number will be associated with an order request from DynaMed.  Each"
^DD(410.02,17,23,2,0)="order request will identify a single item in Item Master File in IFCAP.  "
^DD(410.02,17,23,3,0)="The DM DOC ID is also recorded in a DynaMed IFCAP Interface Audit File"
^DD(410.02,17,23,4,0)="#414.02 (a new file created for DynaMed interface)."
^DD(410.02,17,"DT")="3050228"
^DD(410.02,18,0)="DATE NEEDED BY^DI^^4;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(410.02,18,3)="(No range limit on date)"
^DD(410.02,18,10)="DynaMed --Information Control"
^DD(410.02,18,21,0)="^^4^4^3050228^"
^DD(410.02,18,21,1,0)="This field holds a date when DynaMed anticipates an item should arrive. It"
^DD(410.02,18,21,2,0)="is received in a Repetitive Item List(RIL) transaction for each item and"
^DD(410.02,18,21,3,0)="then carried on to 2237 and then to Purchase Order as the item is"
^DD(410.02,18,21,4,0)="processed through IFCAP."
^DD(410.02,18,23,0)="^^2^2^3050228^^^"
^DD(410.02,18,23,1,0)="This field reflects item's needed by date in DynaMed.  It is best NOT to"
^DD(410.02,18,23,2,0)="edit this date."
^DD(410.02,18,"DT")="3050228"
^DD(410.02,445.01,0)="ACCT-BOC^F^^445;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7)!'(X?1""A""1N1""-""4N) X"
^DD(410.02,445.01,1,0)="^.1"
^DD(410.02,445.01,1,1,0)="410.02^AX1^MUMPS"
^DD(410.02,445.01,1,1,1)="D XREFFMS^PRCPSFU0(DA(1),DA,X,445.01,""SET"")"
^DD(410.02,445.01,1,1,2)="D XREFFMS^PRCPSFU0(DA(1),DA,X,445.01,""KILL"")"
^DD(410.02,445.01,1,1,"%D",0)="^^4^4^2940523^^^"
^DD(410.02,445.01,1,1,"%D",1,0)="This cross-reference is used to lookup the FMS line number when creating"
^DD(410.02,445.01,1,1,"%D",2,0)="the IV document.  If an account-BOC previously appears on an FMS"
^DD(410.02,445.01,1,1,"%D",3,0)="IV document line number, the same line number must be used for other items"
^DD(410.02,445.01,1,1,"%D",4,0)="which have the same account-BOC information."
^DD(410.02,445.01,1,1,"DT")="2940307"
^DD(410.02,445.01,3)="Enter 'A' followed by the 1 digit account followed by a '-' followed by the 4 digit BOC."
^DD(410.02,445.01,21,0)="^^4^4^2940523^^^^"
^DD(410.02,445.01,21,1,0)="This field is used to build a cross-reference of the inventory account"
^DD(410.02,445.01,21,2,0)="and BOC which is used to determine the FMS line number for the"
^DD(410.02,445.01,21,3,0)="IV document.  This field is populated during the issue book posting and"
^DD(410.02,445.01,21,4,0)="adjustments in the inventory package."
^DD(410.02,445.01,"DT")="2940506"
^DD(410.02,445.02,0)="FMSLINE^NJ3,0^^445;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.02,445.02,1,0)="^.1"
^DD(410.02,445.02,1,1,0)="410.02^AX2^MUMPS"
^DD(410.02,445.02,1,1,1)="D XREFFMS^PRCPSFU0(DA(1),DA,X,445.02,""SET"")"
^DD(410.02,445.02,1,1,2)="D XREFFMS^PRCPSFU0(DA(1),DA,X,445.02,""KILL"")"
^DD(410.02,445.02,1,1,"%D",0)="^^4^4^2940523^^^^"
^DD(410.02,445.02,1,1,"%D",1,0)="This cross-reference is used to lookup the FMS line number when creating"
^DD(410.02,445.02,1,1,"%D",2,0)="the IV document.  If an account-BOC previously appears on an FMS"
^DD(410.02,445.02,1,1,"%D",3,0)="IV document line number, the same line number must be used for other items"
^DD(410.02,445.02,1,1,"%D",4,0)="which have the same account-BOC information."
^DD(410.02,445.02,1,1,"DT")="2940307"
^DD(410.02,445.02,3)="Enter the FMS IV document line number which was used for this account-BOC (item).  From 1 to 999."
^DD(410.02,445.02,21,0)="^^2^2^2940620^^^^"
^DD(410.02,445.02,21,1,0)="This field is used to store the FMS IV document line number which was"
^DD(410.02,445.02,21,2,0)="used for this account-BOC (field 445.01)."
^DD(410.02,445.02,"DT")="2940307"
^DD(410.02,445.03,0)="TOTAL QUANTITY POSTED^NJ7,0^^445;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(410.02,445.03,3)="Enter the total quantity posted by the warehouse from 0 to 9999999."
^DD(410.02,445.03,21,0)="^^1^1^2940620^^^^"
^DD(410.02,445.03,21,1,0)="This field stores the total quantity posted by the warehouse."
^DD(410.02,445.03,"DT")="2940307"
^DD(410.02,445.04,0)="TOTAL INVENTORY VALUE^NJ10,2^^445;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(410.02,445.04,3)="Enter the total warehouse inventory value posted by the warehouse from 0 to 9999999.99."
^DD(410.02,445.04,21,0)="^^2^2^2940523^^"
^DD(410.02,445.04,21,1,0)="This field stores the total inventory value posted by the warehouse"
^DD(410.02,445.04,21,2,0)="inventory point."
^DD(410.02,445.04,"DT")="2940307"
^DD(410.02,445.05,0)="TOTAL SELLING VALUE^NJ10,2^^445;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(410.02,445.05,3)="Enter the total warehouse selling value posted by the warehouse from 0 to 9999999.99."
^DD(410.02,445.05,21,0)="^^2^2^2940307^"
^DD(410.02,445.05,21,1,0)="This field stores the total selling value posted by the warehouse"
^DD(410.02,445.05,21,2,0)="inventory point."
^DD(410.02,445.05,"DT")="2940307"
^DD(410.02,"B","ACCT-BOC",445.01)=""
^DD(410.02,"B","BOC",4)=""
^DD(410.02,"B","DATE NEEDED BY",18)=""
^DD(410.02,"B","DELIVERY SCHEDULE",12)=""
^DD(410.02,"B","DESCRIPTION",1)=""
^DD(410.02,"B","DM DOC ID",17)=""
^DD(410.02,"B","EST. ITEM (UNIT) COST",7)=""
^DD(410.02,"B","FMSLINE",445.02)=""
^DD(410.02,"B","INTERMEDIATE PRODUCT CODE",10)=""
^DD(410.02,"B","ITEM DELIVERY POINTS",8)=""
^DD(410.02,"B","ITEM MASTER FILE NO.",5)=""
^DD(410.02,"B","LINE ITEM NUMBER",.01)=""
^DD(410.02,"B","PO EST. SHIPPING",16)=""
^DD(410.02,"B","PURCHASE ORDER/OBLIGATION NO",9)=""
^DD(410.02,"B","QUANTITY",2)=""
^DD(410.02,"B","QUANTITY POSTED (WHSE)",13)=""
^DD(410.02,"B","QUANTITY RECEIVED (PRIMARY)",14)=""
^DD(410.02,"B","RECEIVING CODE SHEET NO.",11)=""
^DD(410.02,"B","STATUS",15)=""
^DD(410.02,"B","STOCK NUMBER",6)=""
^DD(410.02,"B","TOTAL INVENTORY VALUE",445.04)=""
^DD(410.02,"B","TOTAL QUANTITY POSTED",445.03)=""
^DD(410.02,"B","TOTAL SELLING VALUE",445.05)=""
^DD(410.02,"B","UNIT OF PURCHASE",3)=""
^DD(410.02,"GL",0,1,.01)=""
^DD(410.02,"GL",0,2,2)=""
^DD(410.02,"GL",0,3,3)=""
^DD(410.02,"GL",0,4,4)=""
^DD(410.02,"GL",0,5,5)=""
^DD(410.02,"GL",0,6,6)=""
^DD(410.02,"GL",0,7,7)=""
^DD(410.02,"GL",0,8,8)=""
^DD(410.02,"GL",0,9,11)=""
^DD(410.02,"GL",0,10,9)=""
^DD(410.02,"GL",0,11,10)=""
^DD(410.02,"GL",0,12,13)=""
^DD(410.02,"GL",0,13,14)=""
^DD(410.02,"GL",0,14,15)=""
^DD(410.02,"GL",1,0,1)=""
^DD(410.02,"GL",2,0,12)=""
^DD(410.02,"GL",3,1,16)=""
^DD(410.02,"GL",4,1,17)=""
^DD(410.02,"GL",4,2,18)=""
^DD(410.02,"GL",445,1,445.01)=""
^DD(410.02,"GL",445,2,445.02)=""
^DD(410.02,"GL",445,3,445.03)=""
^DD(410.02,"GL",445,4,445.04)=""
^DD(410.02,"GL",445,5,445.05)=""
^DD(410.02,"IX",.01)=""
^DD(410.02,"IX",2)=""
^DD(410.02,"IX",4)=""
^DD(410.02,"IX",5)=""
^DD(410.02,"IX",7)=""
^DD(410.02,"IX",9)=""
^DD(410.02,"IX",445.01)=""
^DD(410.02,"IX",445.02)=""
^DD(410.02,"RQ",.01)=""
^DD(410.02,"RQ",2)=""
^DD(410.02,"RQ",3)=""
^DD(410.02,"RQ",4)=""
^DD(410.02,"RQ",7)=""
^DD(410.02,"SB",410.03,1)=""
^DD(410.02,"SB",410.212,12)=""
^DD(410.03,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(410.03,0,"NM","DESCRIPTION")=""
^DD(410.03,0,"UP")="410.02"
^DD(410.03,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(410.03,.01,3)="Enter a description for this item"
^DD(410.03,.01,21,0)="^^1^1^2911021^"
^DD(410.03,.01,21,1,0)="This is a description of the item being ordered."
^DD(410.03,"B","DESCRIPTION",.01)=""
^DD(410.03,"GL",0,1,.01)=""
^DD(410.04,0)="SUB-CONTROL POINT SUB-FIELD^NL^2^3"
^DD(410.04,0,"IX","AB",410.04,.01)=""
^DD(410.04,0,"IX","AC",410.04,1)=""
^DD(410.04,0,"NM","SUB-CONTROL POINT")=""
^DD(410.04,0,"UP")="410"
^DD(410.04,.01,0)="SUB-CONTROL POINT^M*P410.4X^PRCS(410.4,^0;1^S DIC(""S"")=""I $D(PRC(""""CP"""")),$D(^PRCS(410.4,+Y,0)),$P(^(0),U,2)=+PRC(""""CP"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410.04,.01,1,0)="^.1"
^DD(410.04,.01,1,1,0)="410^C^MUMPS"
^DD(410.04,.01,1,1,1)="S ^PRCS(410,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(410.04,.01,1,1,2)="K ^PRCS(410,""C"",$E(X,1,30),DA(1),DA)"
^DD(410.04,.01,1,1,"%D",0)="^^2^2^2930623^"
^DD(410.04,.01,1,1,"%D",1,0)="This cross reference is set on the sub-control"
^DD(410.04,.01,1,1,"%D",2,0)="point and ceiling transaction number."
^DD(410.04,.01,1,2,0)="410.04^AB"
^DD(410.04,.01,1,2,1)="S ^PRCS(410,DA(1),12,""AB"",$E(X,1,30),DA)="""""
^DD(410.04,.01,1,2,2)="K ^PRCS(410,DA(1),12,""AB"",$E(X,1,30),DA)"
^DD(410.04,.01,1,2,"%D",0)="^^2^2^2930623^"
^DD(410.04,.01,1,2,"%D",1,0)="This cross reference is set on the sub-control point"
^DD(410.04,.01,1,2,"%D",2,0)="node as a cross reference by sub-control point number."
^DD(410.04,.01,3)=""
^DD(410.04,.01,12)="Users can only select Sub-Control Points for their own control points."
^DD(410.04,.01,12.1)="S DIC(""S"")=""I $D(PRC(""""CP"""")),$D(^PRCS(410.4,+Y,0)),$P(^(0),U,2)=+PRC(""""CP"""")"""
^DD(410.04,.01,21,0)="^^3^3^2910514^"
^DD(410.04,.01,21,1,0)="This is an additional sub-control point.  IFCAP"
^DD(410.04,.01,21,2,0)="allows more than one sub-control point on each transaction"
^DD(410.04,.01,21,3,0)="to get a quantity discount."
^DD(410.04,.01,"DT")="2900122"
^DD(410.04,1,0)="$ AMOUNT^NJ10,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(410.04,1,1,0)="^.1"
^DD(410.04,1,1,1,0)="410.04^AC^MUMPS"
^DD(410.04,1,1,1,1)="D TRANS^PRCSEZZ"
^DD(410.04,1,1,1,2)="D TRANK^PRCSEZZ"
^DD(410.04,1,1,1,"%D",0)="^^2^2^2930623^"
^DD(410.04,1,1,1,"%D",1,0)="This cross reference is used to set the sub-control"
^DD(410.04,1,1,1,"%D",2,0)="point dollar amount."
^DD(410.04,1,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(410.04,1,21,0)="^^1^1^2910514^"
^DD(410.04,1,21,1,0)="This is the dollar amount committed by each sub-control point."
^DD(410.04,1,"DT")="2890523"
^DD(410.04,2,0)="SCP AMT^CJ8,2^^ ; ^X ^DD(410.04,2,9.7) S X=$S(Y(410.04,2,5):Y(410.04,2,8),Y(410.04,2,10):Y(410.04,2,11),Y(410.04,2,12):X)"
^DD(410.04,2,9)="^"
^DD(410.04,2,9.01)="410.04^1;410^1"
^DD(410.04,2,9.1)="$S((#1[""OB""!(#1[""ADJ"")):(-$ AMOUNT),#1[""CA"":0,1:($ AMOUNT))"
^DD(410.04,2,9.2)="S Y(410.04,2,2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),Y(410.04,2,4)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:"""")"
^DD(410.04,2,9.3)="X ^DD(410.04,2,9.2) S Y(410.04,2,9)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""""),Y(410.04,2,1)=$S($D(^PRCS(410,D0,0)):^(0),1:"""")"
^DD(410.04,2,9.4)="X ^DD(410.04,2,9.3) S Y(410.04,2,7)=$S($D(^PRCS(410,D0,12,D1,0)):^(0),1:"""") S X=$P($P(Y(410.04,2,2),$C(59)_$P(Y(410.04,2,1),U,2)_"":"",2),$C(59),1)[""OB"""
^DD(410.04,2,9.5)="X ^DD(410.04,2,9.4) S Y(410.04,2,3)=X S X=$P($P(Y(410.04,2,4),$C(59)_$P(Y(410.04,2,1),U,2)_"":"",2),$C(59),1)[""ADJ"",Y=X,X=Y(410.04,2,3),X=X!Y,Y(410.04,2,5)=X"
^DD(410.04,2,9.6)="X ^DD(410.04,2,9.5) S Y(410.04,2,6)=X S X=-$P(Y(410.04,2,7),U,2),Y(410.04,2,8)=X S X=$P($P(Y(410.04,2,9),$C(59)_$P(Y(410.04,2,1),U,2)_"":"",2),$C(59),1)[""CA"""
^DD(410.04,2,9.7)="X ^DD(410.04,2,9.6) S Y(410.04,2,10)=X S X=0,Y(410.04,2,11)=X S X=1,Y(410.04,2,12)=X,Y(410.04,2,13)=X S X=$P(Y(410.04,2,7),U,2)"
^DD(410.04,2,21,0)="^^1^1^2921013^^^"
^DD(410.04,2,21,1,0)="This is the computed amount for the Sub-Control Point (SCP)."
^DD(410.04,2,"DT")="2891031"
^DD(410.04,"B","$ AMOUNT",1)=""
^DD(410.04,"B","SCP AMT",2)=""
^DD(410.04,"B","SUB-CONTROL POINT",.01)=""
^DD(410.04,"GL",0,1,.01)=""
^DD(410.04,"GL",0,2,1)=""
^DD(410.04,"IX",.01)=""
^DD(410.04,"IX",1)=""
^DD(410.05,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(410.05,0,"NM","COMMENTS")=""
^DD(410.05,0,"UP")="410"
^DD(410.05,.01,0)="COMMENTS^W^^0;1^Q"
^DD(410.05,.01,3)="Enter any appropriate comments related to this transaction in this field"
^DD(410.05,.01,21,0)="^^2^2^2930204^^^"
^DD(410.05,.01,21,1,0)="These are comments entered by Control Point personnel concerning the"
^DD(410.05,.01,21,2,0)="request."
^DD(410.05,.01,"DT")="2850315"
^DD(410.05,"B","COMMENTS",.01)=""
^DD(410.05,"GL",0,1,.01)=""
^DD(410.06,0)="JUSTIFICATION SUB-FIELD^NL^.01^1"
^DD(410.06,0,"NM","JUSTIFICATION")=""
^DD(410.06,0,"UP")="410"
^DD(410.06,.01,0)="JUSTIFICATION^W^^0;1^Q"
^DD(410.06,.01,.1)="PURPOSE"
^DD(410.06,.01,3)="Enter an appropriate justification for this request.  If this is a sole source request, enter the words ""SOLE SOURCE REQUEST"" as the beginning of this justification"
^DD(410.06,.01,21,0)="^^2^2^2911021^"
^DD(410.06,.01,21,1,0)="This is the justification for the request entered by the Control Point"
^DD(410.06,.01,21,2,0)="Requestor."
^DD(410.06,.01,"DT")="2850316"
^DD(410.06,"B","JUSTIFICATION",.01)=""
^DD(410.06,"B","PURPOSE",.01)="1"
^DD(410.06,"GL",0,1,.01)=""
^DD(410.061,0)="REASON FOR RETURN SUB-FIELD^^.01^1"
^DD(410.061,0,"NM","REASON FOR RETURN")=""
^DD(410.061,0,"UP")="410"
^DD(410.061,.01,0)="REASON FOR RETURN^W^^0;1^Q"
^DD(410.061,.01,21,0)="^^1^1^2911021^"
^DD(410.061,.01,21,1,0)="This is the reason the request was returned from Fiscal."
^DD(410.061,.01,"DT")="2880406"
^DD(410.061,"B","REASON FOR RETURN",.01)=""
^DD(410.061,"GL",0,1,.01)=""
^DD(410.1,0)="FIELD^^3^4"
^DD(410.1,0,"DDA")="N"
^DD(410.1,0,"IX","B",410.1,.01)=""
^DD(410.1,0,"NM","TRANSACTION NUMBER")=""
^DD(410.1,0,"VR")="5.1"
^DD(410.1,0,"VRPK")="IFCAP"
^DD(410.1,.01,0)="STA-FY-FCP, STA-PAT# OR STA-FY-QTR-FCP-CC^RFX^^0;1^K:'((X?3N1""-""2N1""-""3.4N)!(X?3N1""-""6AN)!(X?3N1""-FC"")!(X?3N1""-RQ"")!(X?3N1""-""2N1""-""1N1""-""3.4N1""-""6N)!(X?3N1""-""2N1""-""1N1""-""3.4N1""-NONE"")!(X=""PRCPHL7TXN"")) X"
^DD(410.1,.01,1,0)="^.1"
^DD(410.1,.01,1,1,0)="410.1^B"
^DD(410.1,.01,1,1,1)="S ^PRCS(410.1,""B"",$E(X,1,30),DA)="""""
^DD(410.1,.01,1,1,2)="K ^PRCS(410.1,""B"",$E(X,1,30),DA)"
^DD(410.1,.01,3)="ANSWER MUST BE 10-20 CHARACTERS IN LENGTH"
^DD(410.1,.01,21,0)="13^.001^12^12^3000928^^^^"
^DD(410.1,.01,21,1,0)="STA-FY-FCP is used in file 410."
^DD(410.1,.01,21,2,0)="STA-PAT is used in file 410."
^DD(410.1,.01,21,3,0)="STA-FY-QTR-FCP-CC is used in file 410.3."
^DD(410.1,.01,21,4,0)=" "
^DD(410.1,.01,21,5,0)="The pieces are:"
^DD(410.1,.01,21,6,0)="  STA = Station Number;"
^DD(410.1,.01,21,7,0)="  FY  = Fiscal Year;"
^DD(410.1,.01,21,8,0)="  FCP = Fund Control Point;  "
^DD(410.1,.01,21,9,0)=" PAT# = Pending Accounting Transaction number - the primary CALM"
^DD(410.1,.01,21,10,0)="        reference number;"
^DD(410.1,.01,21,11,0)="  QTR = Quarter of Fiscal Year;"
^DD(410.1,.01,21,12,0)="  CC  = Cost Center."
^DD(410.1,.01,"DT")="3000821"
^DD(410.1,1,0)="COUNTER^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.1,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(410.1,1,21,0)="^^2^2^2910514^"
^DD(410.1,1,21,1,0)="This is the counter that is used to keep track of the last"
^DD(410.1,1,21,2,0)="transaction number used."
^DD(410.1,2,0)="LAST DATE ACCESSED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410.1,2,21,0)="^^1^1^2910514^"
^DD(410.1,2,21,1,0)="This is the date when the transaction was last accessed."
^DD(410.1,2,"DT")="2881206"
^DD(410.1,3,0)="FB^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.1,3,.1)="FEE BASIS"
^DD(410.1,3,1,0)="^.1^^0"
^DD(410.1,3,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(410.1,3,21,0)="^^5^5^2910916^^^"
^DD(410.1,3,21,1,0)="This is the number identifying the fee basis (FB).   Fee basis is the"
^DD(410.1,3,21,2,0)="Department of Veteran's Affairs fee for service (fee basis) program. "
^DD(410.1,3,21,3,0)="Under this program, eligible Veterans are authorized fee basis care if"
^DD(410.1,3,21,4,0)="VA facilities are not feasibly available to meet the patient's medical"
^DD(410.1,3,21,5,0)="needs."
^DD(410.1,3,"DT")="2890821"
^DD(410.1,"B","COUNTER",1)=""
^DD(410.1,"B","FB",3)=""
^DD(410.1,"B","FEE BASIS",3)="1"
^DD(410.1,"B","LAST DATE ACCESSED",2)=""
^DD(410.1,"B","STA-FY-FCP, STA-PAT# OR STA-FY-QTR-FCP-CC",.01)=""
^DD(410.1,"GL",0,1,.01)=""
^DD(410.1,"GL",0,2,1)=""
^DD(410.1,"GL",0,3,2)=""
^DD(410.1,"GL",0,4,3)=""
^DD(410.1,"IX",.01)=""
^DD(410.1,"RQ",.01)=""
^DD(410.2,0)="FIELD^^1^2"
^DD(410.2,0,"IX","AC",410.2,.01)=""
^DD(410.2,0,"IX","B",410.2,.01)=""
^DD(410.2,0,"NM","CLASSIFICATION OF REQUEST")=""
^DD(410.2,0,"PT",410,8)=""
^DD(410.2,0,"PT",413,14)=""
^DD(410.2,0,"PT",442,52)=""
^DD(410.2,0,"PT",443.6,52)=""
^DD(410.2,0,"VR")="5.1"
^DD(410.2,0,"VRPK")="IFCAP"
^DD(410.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(410.2,.01,1,0)="^.1"
^DD(410.2,.01,1,1,0)="410.2^B"
^DD(410.2,.01,1,1,1)="S ^PRCS(410.2,""B"",$E(X,1,30),DA)="""""
^DD(410.2,.01,1,1,2)="K ^PRCS(410.2,""B"",$E(X,1,30),DA)"
^DD(410.2,.01,1,2,0)="410.2^AC^MUMPS"
^DD(410.2,.01,1,2,1)="I $D(PRC(""CP"")) S $P(^PRCS(410.2,DA,0),""^"",2)=+PRC(""CP"")"
^DD(410.2,.01,1,2,2)="I $D(PRC(""CP"")) S $P(^PRCS(410.2,DA,0),""^"",2)="""""
^DD(410.2,.01,1,2,"%D",0)="^^2^2^2930624^^"
^DD(410.2,.01,1,2,"%D",1,0)="This cross reference is used to set the control point"
^DD(410.2,.01,1,2,"%D",2,0)="number into the classification of request file record."
^DD(410.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(410.2,.01,21,0)="^^3^3^2910916^^"
^DD(410.2,.01,21,1,0)="This is the name used to identify the type of request.  File  #410.2 "
^DD(410.2,.01,21,2,0)="is pointed to by the Classification of Request field (#8) of the"
^DD(410.2,.01,21,3,0)="Control Point Activity file, #410."
^DD(410.2,.01,"DT")="2890403"
^DD(410.2,1,0)="CONTROL POINT NUMBER^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.2,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(410.2,1,21,0)="^^1^1^2910514^"
^DD(410.2,1,21,1,0)="This is the Fund Control Point number."
^DD(410.2,1,"DT")="2870224"
^DD(410.2,"B","CONTROL POINT NUMBER",1)=""
^DD(410.2,"B","NAME",.01)=""
^DD(410.2,"GL",0,1,.01)=""
^DD(410.2,"GL",0,2,1)=""
^DD(410.2,"IX",.01)=""
^DD(410.2,"RQ",.01)=""
^DD(410.212,0)="DELIVERY SCHEDULE SUB-FIELD^^1^2"
^DD(410.212,0,"ID","Z1")="I $D(^(0)),$D(^PRCS(410.6,+$P(^(0),U,2),0)) S Z1=^(0) W ""QTY: "",$P(Z1,U,4),?15,""  SCP: "",$S($D(^PRCS(410.4,+$P(Z1,U,5),0)):$E($P(^(0),U),1,10),1:""""),?35,""  DATE: "",$E($P(Z1,U,2),4,5)_""-""_$E($P(Z1,U,2),6,7)_""-""_$E($P(Z1,U,2),2,3) K Z1"
^DD(410.212,0,"ID","Z2")="I $D(^(0)),$D(^PRCS(410.6,+$P(^(0),U,2),0)) S Z1=$P(^(0),U,3) W ""  LOC: "",$S($D(^PRCS(410.8,+Z1,0)):$E($P(^(0),U),1,10),1:"""") K Z1"
^DD(410.212,0,"IX","B",410.212,.01)=""
^DD(410.212,0,"NM","DELIVERY SCHEDULE")=""
^DD(410.212,0,"UP")="410.02"
^DD(410.212,.01,0)="DELIVERY SCHEDULE^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.212,.01,1,0)="^.1"
^DD(410.212,.01,1,1,0)="410.212^B"
^DD(410.212,.01,1,1,1)="S ^PRCS(410,DA(2),""IT"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(410.212,.01,1,1,2)="K ^PRCS(410,DA(2),""IT"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(410.212,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(410.212,.01,21,0)="^^1^1^2910916^^"
^DD(410.212,.01,21,1,0)="This field is the Delivery Schedule of the Order file, #442.8."
^DD(410.212,.01,"DT")="2890428"
^DD(410.212,1,0)="DELIVERY REFERENCE NUMBER^P410.6^PRCS(410.6,^0;2^Q"
^DD(410.212,1,21,0)="^^4^4^2910913^^"
^DD(410.212,1,21,1,0)="This is the reference number for the delivery schedule used by the"
^DD(410.212,1,21,2,0)="Control Point Clerk.  It is associated with delivery schedules for each"
^DD(410.212,1,21,3,0)="item of a request for repetitive, non-repetitive, or a non-repetitive"
^DD(410.212,1,21,4,0)="form type."
^DD(410.212,1,"DT")="2890508"
^DD(410.212,"B","DELIVERY REFERENCE NUMBER",1)=""
^DD(410.212,"B","DELIVERY SCHEDULE",.01)=""
^DD(410.212,"GL",0,1,.01)=""
^DD(410.212,"GL",0,2,1)=""
^DD(410.212,"IX",.01)=""
^DD(410.3,0)="FIELD^^8^9"
^DD(410.3,0,"DT")="2920524"
^DD(410.3,0,"ID",2)="W """""
^DD(410.3,0,"ID",4)="W $E($P(^(0),U,4),4,5)_""-""_$E($P(^(0),U,4),6,7)_""-""_$E($P(^(0),U,4),2,3)"
^DD(410.3,0,"ID","Z0")="W:$D(^PRCS(410.3,+Y,1,0)) ?30,""# OF ITEMS: "",$P(^(0),""^"",4) W ?59,""TOTAL COST: "",$J($P(^PRCS(410.3,+Y,0),U,2),9,2)"
^DD(410.3,0,"IX","AC",410.3,7)=""
^DD(410.3,0,"IX","B",410.3,.01)=""
^DD(410.3,0,"IX","C",410.3,.01)=""
^DD(410.3,0,"NM","REPETITIVE ITEM LIST")=""
^DD(410.3,0,"VR")="5.1"
^DD(410.3,0,"VRPK")="PRC"
^DD(410.3,.01,0)="ENTRY NUMBER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<12)!'(X'?1P.E)!(X'?.ANP) X"
^DD(410.3,.01,1,0)="^.1"
^DD(410.3,.01,1,1,0)="410.3^B"
^DD(410.3,.01,1,1,1)="S ^PRCS(410.3,""B"",$E(X,1,30),DA)="""""
^DD(410.3,.01,1,1,2)="K ^PRCS(410.3,""B"",$E(X,1,30),DA)"
^DD(410.3,.01,1,2,0)="410.3^C^MUMPS"
^DD(410.3,.01,1,2,1)="S:$P(X,""-"",5)'="""" ^PRCS(410.3,""C"",$P(X,""-"",5),DA)="""""
^DD(410.3,.01,1,2,2)="K:$P(X,""-"",5)'="""" ^PRCS(410.3,""C"",$P(X,""-"",5),DA)"
^DD(410.3,.01,1,2,"%D",0)="^^2^2^2930623^"
^DD(410.3,.01,1,2,"%D",1,0)="This cross reference is set on the cost center used on "
^DD(410.3,.01,1,2,"%D",2,0)="the repetitive item list."
^DD(410.3,.01,1,2,"DT")="2930302"
^DD(410.3,.01,3)="ANSWER MUST BE 12-25 CHARACTERS IN LENGTH"
^DD(410.3,.01,21,0)="^^2^2^2940523^^^^"
^DD(410.3,.01,21,1,0)="This is the entry number for this transaction.  It is"
^DD(410.3,.01,21,2,0)="used by the Control Point Clerk when generating requests."
^DD(410.3,.01,23,0)="^^13^13^2940523^^^^"
^DD(410.3,.01,23,1,0)="This field consists of 6 parts, seperated by '-'."
^DD(410.3,.01,23,2,0)=" "
^DD(410.3,.01,23,3,0)=" PART NUMBER       NAME           DESCRIPTION"
^DD(410.3,.01,23,4,0)="     1.       STATION NUMBER  The station number, 3 numbers only"
^DD(410.3,.01,23,5,0)="     2.       FISCAL YEAR"
^DD(410.3,.01,23,6,0)="     3.       QUARTER          A quarter within a FISCAL YEAR"
^DD(410.3,.01,23,7,0)="     4.       CONTROL POINT"
^DD(410.3,.01,23,8,0)="     5.       COST CENTER     A C. center within a CONTROL POINT"
^DD(410.3,.01,23,9,0)="     6.       SEQUENTIAL #    A number that allows for multiple"
^DD(410.3,.01,23,10,0)="                              repetitive item lists.  This number"
^DD(410.3,.01,23,11,0)="                              is stored in file 410.1 under a record"
^DD(410.3,.01,23,12,0)="                              number made up of the first 5 parts of"
^DD(410.3,.01,23,13,0)="                              this field, separated with '-'."
^DD(410.3,.01,"DT")="2930302"
^DD(410.3,1,0)="ITEM^410.31IPA^^1;0"
^DD(410.3,1,21,0)="^^1^1^2910514^"
^DD(410.3,1,21,1,0)="This is the item requested in this transaction."
^DD(410.3,2,0)="TOTAL COST^NJ10,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(410.3,2,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(410.3,2,21,0)="^^1^1^2910514^"
^DD(410.3,2,21,1,0)="This is the total cost of this item."
^DD(410.3,3,0)="INVENTORY/DISTRIBUTION POINT^*P445'^PRCP(445,^0;3^S DIC(""S"")=""I $P(^(0),U,3)'=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410.3,3,3)="For Repetitive Item Lists generated through the General Inventory System, this will be the name of the Inventory/Distribution Point that generated the repetitive item list."
^DD(410.3,3,12)="Only Primary Inventory Points or the Warehouse can make requests to Supply Service."
^DD(410.3,3,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""S"""""""
^DD(410.3,3,21,0)="^^2^2^2910514^"
^DD(410.3,3,21,1,0)="This is the inventory/distribution point for the"
^DD(410.3,3,21,2,0)="items in the transaction."
^DD(410.3,3,"DT")="2870702"
^DD(410.3,4,0)="DATE/TIME CREATED^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(410.3,4,3)="Date and time that this repetitive item list was created, if built using the Automatic Generation of Suggested Supply Request option of the Generic Inventory System."
^DD(410.3,4,21,0)="^^1^1^2910514^"
^DD(410.3,4,21,1,0)="This is the date/time the transaction was created."
^DD(410.3,4,"DT")="2870728"
^DD(410.3,5,0)="REQUEST BEING CREATED^S^1:YES;^0;5^Q"
^DD(410.3,5,21,0)="^^1^1^2910524^^^"
^DD(410.3,5,21,1,0)="Enter YES if a request is to be created."
^DD(410.3,5,"DT")="2890905"
^DD(410.3,6,0)="REPETITIVE ITEM LIST TYPE^S^A:NARCOTIC;L:CONTROLLED SUBSTANCE;D:OTHER DRUGS;^0;6^Q"
^DD(410.3,6,21,0)="^^2^2^2920819^^^^"
^DD(410.3,6,21,1,0)="This field specifies the type of Repetitive Item List i.e. A,L or D for"
^DD(410.3,6,21,2,0)="drug type, or a NULL for non-drug."
^DD(410.3,6,"DT")="2920524"
^DD(410.3,7,0)="NEW SSO^*P442.3'^PRCD(442.3,^2;1^K Z0 S Z0(65)="""",DIC(""S"")=""I $D(Z0(+$P(^(0),U,2)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410.3,7,1,0)="^.1"
^DD(410.3,7,1,1,0)="410.3^AC"
^DD(410.3,7,1,1,1)="S ^PRCS(410.3,""AC"",$E(X,1,30),DA)="""""
^DD(410.3,7,1,1,2)="K ^PRCS(410.3,""AC"",$E(X,1,30),DA)"
^DD(410.3,7,1,1,"%D",0)="^^5^5^2920513^"
^DD(410.3,7,1,1,"%D",1,0)="This x-ref is used to notify the PPM clerk that there is a new REPETITIVE"
^DD(410.3,7,1,1,"%D",2,0)="ITEM LIST file entry created from a SSO transaction from Austin.  This"
^DD(410.3,7,1,1,"%D",3,0)="field is set in S2^PRCOSS6.  The ENTRY ACTION of PRCHUSER PPM menu option"
^DD(410.3,7,1,1,"%D",4,0)="calls the routine PRCOSS3. The routine will notify the user that there are"
^DD(410.3,7,1,1,"%D",5,0)="new REPETITIVE ITEM LIST entries to turn into 2237s."
^DD(410.3,7,1,1,"DT")="2920513"
^DD(410.3,7,3)=""
^DD(410.3,7,12)="Notify PPM clerk about new REPETITIVE ITEM LIST from a SSO transaction to turn into a 2237."
^DD(410.3,7,12.1)="K Z0 S Z0(65)="""",DIC(""S"")=""I $D(Z0(+$P(^(0),U,2)))"""
^DD(410.3,7,21,0)="^^6^6^2930128^"
^DD(410.3,7,21,1,0)="This field points to the PURCHASE ORDER STATUS file.  It is used to build"
^DD(410.3,7,21,2,0)="a cross-reference which notifies the PPM clerk that there is a new"
^DD(410.3,7,21,3,0)="REPETITIVE ITEM LIST file entry created from a SSO transaction from Austin."
^DD(410.3,7,21,4,0)="This field is set in S2^PRCOSS6.  The ENTRY ACTION of the PRCHUSER PPM menu"
^DD(410.3,7,21,5,0)="option calls the routine PRCHOSS3.  The routine will notify the user that"
^DD(410.3,7,21,6,0)="there are new REPETITIVE ITEM LIST entries to turn into 2237s."
^DD(410.3,7,"DT")="2920513"
^DD(410.3,8,0)="DATE/TIME IN DM^DI^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(410.3,8,3)="(No range limit on date)"
^DD(410.3,8,10)="DynaMed --Information Control"
^DD(410.3,8,21,0)="^^3^3^3050114^"
^DD(410.3,8,21,1,0)="This date and time signifies when a Requisition was generated in "
^DD(410.3,8,21,2,0)="DynaMed. This date is passed by DynaMed and it is used to determine "
^DD(410.3,8,21,3,0)="Fiscal Year and Quarter for the transaction in IFCAP."
^DD(410.3,8,23,0)="^^3^3^3050114^"
^DD(410.3,8,23,1,0)="This is the date that determines Fiscal Year and Quarter for the "
^DD(410.3,8,23,2,0)="transaction in IFCAP package."
^DD(410.3,8,23,3,0)="A user is not allowed to edit this field."
^DD(410.3,8,"DT")="3050228"
^DD(410.3,"B","DATE/TIME CREATED",4)=""
^DD(410.3,"B","DATE/TIME IN DM",8)=""
^DD(410.3,"B","ENTRY NUMBER",.01)=""
^DD(410.3,"B","INVENTORY/DISTRIBUTION POINT",3)=""
^DD(410.3,"B","ITEM",1)=""
^DD(410.3,"B","NEW SSO",7)=""
^DD(410.3,"B","REPETITIVE ITEM LIST TYPE",6)=""
^DD(410.3,"B","REQUEST BEING CREATED",5)=""
^DD(410.3,"B","TOTAL COST",2)=""
^DD(410.3,"GL",0,1,.01)=""
^DD(410.3,"GL",0,2,2)=""
^DD(410.3,"GL",0,3,3)=""
^DD(410.3,"GL",0,4,4)=""
^DD(410.3,"GL",0,5,5)=""
^DD(410.3,"GL",0,6,6)=""
^DD(410.3,"GL",0,7,8)=""
^DD(410.3,"GL",1,0,1)=""
^DD(410.3,"GL",2,1,7)=""
^DD(410.3,"IX",.01)=""
^DD(410.3,"IX",7)=""
^DD(410.3,"RQ",.01)=""
^DD(410.3,"SB",410.31,1)=""
^DD(410.31,0)="ITEM SUB-FIELD^NL^7^8"
^DD(410.31,0,"ID","Z0")="W ?8,$P(^PRC(441,$P(^(0),""^"",1),0),""^"",2)"
^DD(410.31,0,"IX","AC",410.31,2)=""
^DD(410.31,0,"IX","B",410.31,.01)=""
^DD(410.31,0,"NM","ITEM")=""
^DD(410.31,0,"UP")="410.3"
^DD(410.31,.01,0)="ITEM^MR*P441'^PRC(441,^0;1^S DIC(""S"")=""I $O(^PRC(441,+Y,2,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(410.31,.01,1,0)="^.1"
^DD(410.31,.01,1,1,0)="410.31^B"
^DD(410.31,.01,1,1,1)="S ^PRCS(410.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(410.31,.01,1,1,2)="K ^PRCS(410.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(410.31,.01,3)="Select an item from the Item Master file for this repetitive request."
^DD(410.31,.01,12)="A vendor must exist for this item in the Item Master file."
^DD(410.31,.01,12.1)="S DIC(""S"")=""I $O(^PRC(441,+Y,2,0))"""
^DD(410.31,.01,21,0)="^^5^5^2910917^^^"
^DD(410.31,.01,21,1,0)="This is a pointer to an item in the Item file, #441.  This file is"
^DD(410.31,.01,21,2,0)="composed of items specified by Supply Service as being purchased"
^DD(410.31,.01,21,3,0)="repetitively.  This file maintains a full description of the item,"
^DD(410.31,.01,21,4,0)="related stock numbers, vendors, contract numbers, and a procurement"
^DD(410.31,.01,21,5,0)="history."
^DD(410.31,.01,"DT")="2870728"
^DD(410.31,1,0)="QUANTITY^RNJ9,2^^0;2^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(410.31,1,1,0)="^.1^^0"
^DD(410.31,1,3)="Enter the quantity (a number from .01 to 999,999 with up to two decimal places) of this item you wish to order."
^DD(410.31,1,21,0)="^^2^2^2910514^"
^DD(410.31,1,21,1,0)="This is the quantity of the item, up to two decimal places, "
^DD(410.31,1,21,2,0)="to be ordered."
^DD(410.31,1,"DT")="2860417"
^DD(410.31,2,0)="VENDOR^RFX^^0;3^D VENDOR^PRCSRIE"
^DD(410.31,2,1,0)="^.1"
^DD(410.31,2,1,1,0)="410.31^AC"
^DD(410.31,2,1,1,1)="S ^PRCS(410.3,DA(1),1,""AC"",X,DA)="""""
^DD(410.31,2,1,1,2)="K ^PRCS(410.3,DA(1),1,""AC"",X,DA)"
^DD(410.31,2,1,1,"%D",0)="^^2^2^2930623^"
^DD(410.31,2,1,1,"%D",1,0)="This cross reference is set on the vendor name used for"
^DD(410.31,2,1,1,"%D",2,0)="the repetitive item list."
^DD(410.31,2,3)="Select the name of the vendor from whom you wish to order this item."
^DD(410.31,2,4)="S:$D(D) ZD=D S X=""?"",Z0=$P(^PRCS(410.3,DA(1),1,DA,0),""^"",1) Q:'Z0  Q:'$D(^PRC(441,Z0,2,0))  S DIC=""^PRC(441,Z0,2,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K ZD"
^DD(410.31,2,21,0)="^^2^2^2940523^^"
^DD(410.31,2,21,1,0)="This is the name of the vendor from whom this item is"
^DD(410.31,2,21,2,0)="to be ordered."
^DD(410.31,2,"DT")="2860421"
^DD(410.31,3,0)="EST. ITEM (UNIT) COST^RNJ10,2X^^0;4^S:X[""$"" X=$P(X,""$"",2) Q:X?1""N/C""  K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X I $D(X),X=0 S X=""N/C"""
^DD(410.31,3,3)="Enter the unit cost for this item (a dollar amount between 0 and 9999999) or N/C for no charge.  Commas are not allowed."
^DD(410.31,3,21,0)="^^2^2^2910514^"
^DD(410.31,3,21,1,0)="This is the unit cost for this item or a N/C for"
^DD(410.31,3,21,2,0)="no charge."
^DD(410.31,3,"DT")="2860831"
^DD(410.31,4,0)="VENDOR(POINTER)^P440'^PRC(440,^0;5^Q"
^DD(410.31,4,21,0)="^^6^6^2940523^^^^"
^DD(410.31,4,21,1,0)="This is a pointer to a vendor in the Vendor file, #440.  The Vendor"
^DD(410.31,4,21,2,0)="file is composed of all the vendors with which the facility does"
^DD(410.31,4,21,3,0)="business.  The Vendor file contains ordering and billing addresses,"
^DD(410.31,4,21,4,0)="contract information, FPDS information, and telephone numbers."
^DD(410.31,4,21,5,0)="If the desired vendor is not in the file, Supply Service must be "
^DD(410.31,4,21,6,0)="contacted to add it.  "
^DD(410.31,4,"DT")="2860419"
^DD(410.31,5,0)="DELIVERY ORDER ITEM^S^Y:YES;N:NO;O:ORDERED;^0;6^Q"
^DD(410.31,5,21,0)="^^3^3^2960731^^"
^DD(410.31,5,21,1,0)="this field is used to indicate if the item is a"
^DD(410.31,5,21,2,0)="contract item, which indicates that it will be"
^DD(410.31,5,21,3,0)="placed on a delivery order."
^DD(410.31,5,"DT")="2960731"
^DD(410.31,6,0)="DM DOC ID^FI^^0;7^K:$L(X)>16!($L(X)<9) X"
^DD(410.31,6,3)="Answer must be 9-16 characters in length."
^DD(410.31,6,10)="DynaMed --Information Control"
^DD(410.31,6,21,0)="^^8^8^3050228^"
^DD(410.31,6,21,1,0)="This is DynaMed's unique number associated with each item that is sent on"
^DD(410.31,6,21,2,0)="a request order from DynaMed. It is composed of 1 digit for Year"
^DD(410.31,6,21,3,0)="concatenated with 3 digit Julian Date a dash, concatenated with 4 digit"
^DD(410.31,6,21,4,0)="Sequential Number and a dash, concatenated up to 6 characters (ex"
^DD(410.31,6,21,5,0)="YDDD-9999-CCCCCC)."
^DD(410.31,6,21,6,0)=" "
^DD(410.31,6,21,7,0)="This number is provided by DynaMed, a user's input is not required. "
^DD(410.31,6,21,8,0)="DynaMed allows 16 characters maximum. "
^DD(410.31,6,23,0)="^.001^9^9^3050228^^^^"
^DD(410.31,6,23,1,0)="This number will be associated with an order request from DynaMed.  Each "
^DD(410.31,6,23,2,0)="order request will identify a single item in Item Master File in IFCAP."
^DD(410.31,6,23,3,0)=" "
^DD(410.31,6,23,4,0)="The DM DOC ID will also be recorded in a New Audit File (DYNAMED IFCAP "
^DD(410.31,6,23,5,0)="INTERFACE AUDIT file #414.02 created for DynaMed Interface) and a cross"
^DD(410.31,6,23,6,0)="reference will be established to ensure that requests bearing the same"
^DD(410.31,6,23,7,0)="Document ID are only processed once by IFCAP."
^DD(410.31,6,23,8,0)=" "
^DD(410.31,6,23,9,0)="A user is not allowed to edit this field."
^DD(410.31,6,"DT")="3050228"
^DD(410.31,7,0)="DATE NEEDED BY^DI^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(410.31,7,3)="(No range limit on date)"
^DD(410.31,7,10)="DynaMed --Information Control"
^DD(410.31,7,21,0)="^^4^4^3050531^^"
^DD(410.31,7,21,1,0)="This date is entered on the DynaMed system at the time the item is "
^DD(410.31,7,21,2,0)="being requested.  This Date is received in a transaction from DynaMed,"
^DD(410.31,7,21,3,0)="it resides first in the RIL, it is pushed to the 2237, and then to the"
^DD(410.31,7,21,4,0)="Purchase Order as the item is processed through IFCAP."
^DD(410.31,7,23,0)="^.001^1^1^3050531^^^^"
^DD(410.31,7,23,1,0)="A user is not allowed to edit this field."
^DD(410.31,7,"DT")="3050531"
^DD(410.31,"B","DATE NEEDED BY",7)=""
^DD(410.31,"B","DELIVERY ORDER ITEM",5)=""
^DD(410.31,"B","DM DOC ID",6)=""
^DD(410.31,"B","EST. ITEM (UNIT) COST",3)=""
^DD(410.31,"B","ITEM",.01)=""
^DD(410.31,"B","QUANTITY",1)=""
^DD(410.31,"B","VENDOR",2)=""
^DD(410.31,"B","VENDOR(POINTER)",4)=""
^DD(410.31,"GL",0,1,.01)=""
^DD(410.31,"GL",0,2,1)=""
^DD(410.31,"GL",0,3,2)=""
^DD(410.31,"GL",0,4,3)=""
^DD(410.31,"GL",0,5,4)=""
^DD(410.31,"GL",0,6,5)=""
^DD(410.31,"GL",0,7,6)=""
^DD(410.31,"GL",0,8,7)=""
^DD(410.31,"IX",.01)=""
^DD(410.31,"IX",2)=""
^DD(410.31,"RQ",.01)=""
^DD(410.31,"RQ",1)=""
^DD(410.31,"RQ",2)=""
^DD(410.31,"RQ",3)=""
^DD(410.4,0)="FIELD^^2^3"
^DD(410.4,0,"IX","AC",410.4,.01)=""
^DD(410.4,0,"IX","B",410.4,.01)=""
^DD(410.4,0,"NM","SUB-CONTROL POINT")=""
^DD(410.4,0,"PT",410.04,.01)=""
^DD(410.4,0,"PT",410.6,4)=""
^DD(410.4,0,"PT",444.039,4)=""
^DD(410.4,0,"VR")="5.1"
^DD(410.4,0,"VRPK")="IFCAP"
^DD(410.4,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3)!(X?1P.E) X"
^DD(410.4,.01,1,0)="^.1"
^DD(410.4,.01,1,1,0)="410.4^B"
^DD(410.4,.01,1,1,1)="S ^PRCS(410.4,""B"",$E(X,1,30),DA)="""""
^DD(410.4,.01,1,1,2)="K ^PRCS(410.4,""B"",$E(X,1,30),DA)"
^DD(410.4,.01,1,2,0)="410.4^AC^MUMPS"
^DD(410.4,.01,1,2,1)="I $D(PRC(""CP"")) S $P(^PRCS(410.4,DA,0),""^"",2)=+PRC(""CP"")"
^DD(410.4,.01,1,2,2)="I $D(PRC(""CP"")) S $P(^PRCS(410.4,DA,0),""^"",2)="""""
^DD(410.4,.01,1,2,"%D",0)="^^3^3^2930624^^"
^DD(410.4,.01,1,2,"%D",1,0)="This cross reference is used to set the control point"
^DD(410.4,.01,1,2,"%D",2,0)="number on the record of the sub-control point created "
^DD(410.4,.01,1,2,"%D",3,0)="under it."
^DD(410.4,.01,3)="Enter a sub-control point name (3-25 characters)."
^DD(410.4,.01,21,0)="^^1^1^2910514^"
^DD(410.4,.01,21,1,0)="This is the name of the sub-control point."
^DD(410.4,.01,"DT")="2870118"
^DD(410.4,1,0)="CONTROL POINT NUMBER^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.4,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(410.4,1,21,0)="^^1^1^2910514^"
^DD(410.4,1,21,1,0)="This is the number of the Fund Control Point."
^DD(410.4,1,"DT")="2870224"
^DD(410.4,2,0)="COMMITTED BALANCES^410.42A^^1;0"
^DD(410.4,2,21,0)="^^1^1^2931220^^^"
^DD(410.4,2,21,1,0)="These are the committed balances for the control point."
^DD(410.4,"B","COMMITTED BALANCES",2)=""
^DD(410.4,"B","CONTROL POINT NUMBER",1)=""
^DD(410.4,"B","NAME",.01)=""
^DD(410.4,"GL",0,1,.01)=""
^DD(410.4,"GL",0,2,1)=""
^DD(410.4,"GL",1,0,2)=""
^DD(410.4,"IX",.01)=""
^DD(410.4,"RQ",.01)=""
^DD(410.4,"SB",410.42,2)=""
^DD(410.42,0)="COMMITTED BALANCES SUB-FIELD^^4^5"
^DD(410.42,0,"NM","COMMITTED BALANCES")=""
^DD(410.42,0,"UP")="410.4"
^DD(410.42,.01,0)="FISCAL YEAR^FX^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X) S DINUM=X"
^DD(410.42,.01,3)="Enter the two digit fiscal year (e.g., 86)"
^DD(410.42,.01,21,0)="^^1^1^2910524^^"
^DD(410.42,.01,21,1,0)="This is the fiscal year for the committed balances."
^DD(410.42,.01,"DT")="2890425"
^DD(410.42,1,0)="1QTR COMMITTED BALANCE^NJ12,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(410.42,1,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(410.42,1,21,0)="^^1^1^2910514^"
^DD(410.42,1,21,1,0)="This is the committed balance for the first quarter."
^DD(410.42,1,"DT")="2890425"
^DD(410.42,2,0)="2QTR COMMITTED BALANCE^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(410.42,2,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(410.42,2,21,0)="^^1^1^2910514^"
^DD(410.42,2,21,1,0)="This is the committed balance for the second quarter."
^DD(410.42,2,"DT")="2890425"
^DD(410.42,3,0)="3QTR COMMITTED BALANCE^NJ12,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(410.42,3,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(410.42,3,21,0)="^^1^1^2910514^"
^DD(410.42,3,21,1,0)="This is the committed balance for the third quarter."
^DD(410.42,3,"DT")="2890425"
^DD(410.42,4,0)="4QTR COMMITTED BALANCE^NJ12,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(410.42,4,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(410.42,4,21,0)="^^1^1^2910524^^"
^DD(410.42,4,21,1,0)="This is the committed balance for the fourth quarter."
^DD(410.42,4,"DT")="2890425"
^DD(410.42,"B","1QTR COMMITTED BALANCE",1)=""
^DD(410.42,"B","2QTR COMMITTED BALANCE",2)=""
^DD(410.42,"B","3QTR COMMITTED BALANCE",3)=""
^DD(410.42,"B","4QTR COMMITTED BALANCE",4)=""
^DD(410.42,"B","FISCAL YEAR",.01)=""
^DD(410.42,"GL",0,1,.01)=""
^DD(410.42,"GL",0,2,1)=""
^DD(410.42,"GL",0,3,2)=""
^DD(410.42,"GL",0,4,3)=""
^DD(410.42,"GL",0,5,4)=""
^DD(410.5,0)="FIELD^^.01^2"
^DD(410.5,0,"IX","B",410.5,.01)=""
^DD(410.5,0,"NM","CPA FORM TYPE")=""
^DD(410.5,0,"PT",410,3)=""
^DD(410.5,0,"VR")="5.1"
^DD(410.5,0,"VRPK")="IFCAP"
^DD(410.5,.001,0)="NUMBER^NJ4,1^^ ^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""2N.N) X"
^DD(410.5,.001,3)="TYPE A NUMBER BETWEEN 0 AND 10"
^DD(410.5,.001,21,0)="^^3^3^2910917^^"
^DD(410.5,.001,21,1,0)="This is the number of the Control Point Activity (CPA) form used by the"
^DD(410.5,.001,21,2,0)="Control Point Clerk.  File  #410.5  is pointed to by the Form Type"
^DD(410.5,.001,21,3,0)="field (#3) of the Control Point Activity file, #410."
^DD(410.5,.001,"DT")="2860929"
^DD(410.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(410.5,.01,1,0)="^.1"
^DD(410.5,.01,1,1,0)="410.5^B"
^DD(410.5,.01,1,1,1)="S ^PRCS(410.5,""B"",X,DA)="""""
^DD(410.5,.01,1,1,2)="K ^PRCS(410.5,""B"",X,DA)"
^DD(410.5,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(410.5,.01,21,0)="^^3^3^2940505^^^^"
^DD(410.5,.01,21,1,0)="This is the name of the Control Point Activity (CPA) form type used by"
^DD(410.5,.01,21,2,0)="the Control Point Clerk.  File  #410.5  is pointed to by the Form Type"
^DD(410.5,.01,21,3,0)="field (#3) of the Control Point Activity file, #410."
^DD(410.5,.01,"DT")="2871213"
^DD(410.5,"B","NAME",.01)=""
^DD(410.5,"B","NUMBER",.001)=""
^DD(410.5,"GL",0,1,.01)=""
^DD(410.5,"IX",.01)=""
^DD(410.5,"RQ",.01)=""
^DD(410.6,0)="FIELD^^6^7"
^DD(410.6,0,"IX","B",410.6,.01)=""
^DD(410.6,0,"NM","DELIVERY SCHEDULE")=""
^DD(410.6,0,"PT",410.212,1)=""
^DD(410.6,0,"PT",444.039,5)=""
^DD(410.6,0,"VR")="5.1"
^DD(410.6,0,"VRPK")="IFCAP"
^DD(410.6,.01,0)="REFERENCE^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(410.6,.01,1,0)="^.1"
^DD(410.6,.01,1,1,0)="410.6^B"
^DD(410.6,.01,1,1,1)="S ^PRCS(410.6,""B"",$E(X,1,30),DA)="""""
^DD(410.6,.01,1,1,2)="K ^PRCS(410.6,""B"",$E(X,1,30),DA)"
^DD(410.6,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(410.6,.01,21,0)="^^7^7^2910917^^"
^DD(410.6,.01,21,1,0)="This is the reference for the delivery schedule used by the Control"
^DD(410.6,.01,21,2,0)="Point Clerk.  It is associated with delivery schedules for each item of"
^DD(410.6,.01,21,3,0)="a request for repetitive, non-repetitive, or a non-repetitive/"
^DD(410.6,.01,21,4,0)="repetitive form type.  File  #410.6  is pointed to by the Delivery"
^DD(410.6,.01,21,5,0)="Reference Number field (#1) of the Delivery Schedule sub-field"
^DD(410.6,.01,21,6,0)="(#410.212) of the Item sub-field (#410.02) of the Control Point"
^DD(410.6,.01,21,7,0)="Activity file, #410."
^DD(410.6,.01,"DT")="2890427"
^DD(410.6,1,0)="DELIVERY DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410.6,1,21,0)="^^1^1^2910524^"
^DD(410.6,1,21,1,0)="This is the delivery date."
^DD(410.6,1,"DT")="2890427"
^DD(410.6,2,0)="LOCATION^P410.8^PRCS(410.8,^0;3^Q"
^DD(410.6,2,21,0)="^^1^1^2910524^"
^DD(410.6,2,21,1,0)="This is the delivery location."
^DD(410.6,2,"DT")="2890427"
^DD(410.6,3,0)="QTY TO BE DELIVERED^RNJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.6,3,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(410.6,3,21,0)="^^1^1^2910524^"
^DD(410.6,3,21,1,0)="This is the quantity of items to be delivered."
^DD(410.6,3,"DT")="2890502"
^DD(410.6,4,0)="SUB-CONTROL POINT^P410.4^PRCS(410.4,^0;5^Q"
^DD(410.6,4,21,0)="^^1^1^2910524^"
^DD(410.6,4,21,1,0)="This is the sub-control point which purchased the items."
^DD(410.6,4,"DT")="2890427"
^DD(410.6,5,0)="QTY RECEIVED^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.6,5,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(410.6,5,21,0)="^^1^1^2910524^"
^DD(410.6,5,21,1,0)="This is the quantity of items received."
^DD(410.6,5,"DT")="2890427"
^DD(410.6,6,0)="DATE RECEIVED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(410.6,6,21,0)="^^1^1^2910524^"
^DD(410.6,6,21,1,0)="This is the date the items were received."
^DD(410.6,6,"DT")="2890427"
^DD(410.6,"B","DATE RECEIVED",6)=""
^DD(410.6,"B","DELIVERY DATE",1)=""
^DD(410.6,"B","LOCATION",2)=""
^DD(410.6,"B","QTY RECEIVED",5)=""
^DD(410.6,"B","QTY TO BE DELIVERED",3)=""
^DD(410.6,"B","REFERENCE",.01)=""
^DD(410.6,"B","SUB-CONTROL POINT",4)=""
^DD(410.6,"GL",0,1,.01)=""
^DD(410.6,"GL",0,2,1)=""
^DD(410.6,"GL",0,3,2)=""
^DD(410.6,"GL",0,4,3)=""
^DD(410.6,"GL",0,5,4)=""
^DD(410.6,"GL",0,6,5)=""
^DD(410.6,"GL",0,7,6)=""
^DD(410.6,"IX",.01)=""
^DD(410.6,"RQ",.01)=""
^DD(410.6,"RQ",3)=""
^DD(410.7,0)="FIELD^^1^2"
^DD(410.7,0,"DDA")="N"
^DD(410.7,0,"IX","AC",410.7,.01)=""
^DD(410.7,0,"IX","B",410.7,.01)=""
^DD(410.7,0,"NM","SORT GROUP")=""
^DD(410.7,0,"PT",410,49)=""
^DD(410.7,0,"PT",413,13)=""
^DD(410.7,0,"PT",442,51)=""
^DD(410.7,0,"PT",443.6,51)=""
^DD(410.7,0,"VR")="5.1"
^DD(410.7,0,"VRPK")="IFCAP"
^DD(410.7,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(410.7,.01,1,0)="^.1"
^DD(410.7,.01,1,1,0)="410.7^B"
^DD(410.7,.01,1,1,1)="S ^PRCS(410.7,""B"",$E(X,1,30),DA)="""""
^DD(410.7,.01,1,1,2)="K ^PRCS(410.7,""B"",$E(X,1,30),DA)"
^DD(410.7,.01,1,2,0)="410.7^AC^MUMPS"
^DD(410.7,.01,1,2,1)="I $D(PRC(""CP"")) S $P(^PRCS(410.7,DA,0),""^"",2)=+PRC(""CP"")"
^DD(410.7,.01,1,2,2)="I $D(PRC(""CP"")) S $P(^PRCS(410.7,DA,0),""^"",2)="""""
^DD(410.7,.01,1,2,"%D",0)="^^2^2^2930624^^^"
^DD(410.7,.01,1,2,"%D",1,0)="This cross reference is used to set the control point number"
^DD(410.7,.01,1,2,"%D",2,0)="on the record of the sort group which was created under it."
^DD(410.7,.01,3)="NAME MUST BE 3-15 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(410.7,.01,21,0)="^^1^1^2910524^^"
^DD(410.7,.01,21,1,0)="This is the name of the sub-control point."
^DD(410.7,.01,"DT")="2890403"
^DD(410.7,1,0)="CONTROL POINT NUMBER^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(410.7,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(410.7,1,21,0)="^^1^1^2910524^^"
^DD(410.7,1,21,1,0)="This is the number of the Fund Control Point."
^DD(410.7,"B","CONTROL POINT NUMBER",1)=""
^DD(410.7,"B","NAME",.01)=""
^DD(410.7,"GL",0,1,.01)=""
^DD(410.7,"GL",0,2,1)=""
^DD(410.7,"IX",.01)=""
^DD(410.7,"RQ",.01)=""
^DD(410.8,0)="FIELD^^.01^1"
^DD(410.8,0,"IX","B",410.8,.01)=""
^DD(410.8,0,"NM","DELIVERY POINT")=""
^DD(410.8,0,"PT",410.6,2)=""
^DD(410.8,0,"PT",441.7,3)=""
^DD(410.8,0,"PT",442.8,3)=""
^DD(410.8,0,"PT",444.039,3)=""
^DD(410.8,0,"VR")="5.1"
^DD(410.8,0,"VRPK")="IFCAP"
^DD(410.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(410.8,.01,1,0)="^.1"
^DD(410.8,.01,1,1,0)="410.8^B"
^DD(410.8,.01,1,1,1)="S ^PRCS(410.8,""B"",$E(X,1,30),DA)="""""
^DD(410.8,.01,1,1,2)="K ^PRCS(410.8,""B"",$E(X,1,30),DA)"
^DD(410.8,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(410.8,.01,21,0)="^^1^1^2910514^"
^DD(410.8,.01,21,1,0)="This is the name of the delivery point."
^DD(410.8,"B","NAME",.01)=""
^DD(410.8,"GL",0,1,.01)=""
^DD(410.8,"IX",.01)=""
^DD(410.8,"RQ",.01)=""
^DD(411,0)="FIELD^^107^53"
^DD(411,0,"ACT")="I $P(Y,""^"",3) L +^PRC(411,0):99999 S:$P(^PRC(411,0),U,3)<1000000 $P(^(0),U,3)=$S(PRCRI<1000000:1000000,1:PRCRI) L -^PRC(411,0):99999"
^DD(411,0,"DDA")="N"
^DD(411,0,"DT")="2950811"
^DD(411,0,"ID",.1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,10),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""  "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(411,0,"IX","A IFCAP-Wide Parameters",411,.01)=""
^DD(411,0,"IX","AC",411,21)=""
^DD(411,0,"IX","AD",411,.01)=""
^DD(411,0,"IX","AE",411,39)=""
^DD(411,0,"IX","B",411,.01)=""
^DD(411,0,"IX","C",411,.1)=""
^DD(411,0,"IX","UP",411,101)=""
^DD(411,0,"NM","ADMIN. ACTIVITY SITE PARAMETER")=""
^DD(411,0,"PT",410,448)=""
^DD(411,0,"PT",411,101)=""
^DD(411,0,"PT",413,4)=""
^DD(411,0,"PT",413.1,4)=""
^DD(411,0,"PT",414.03,.01)=""
^DD(411,0,"PT",420,.01)=""
^DD(411,0,"PT",440.5,15)=""
^DD(411,0,"PT",442,31)=""
^DD(411,0,"PT",443.6,31)=""
^DD(411,0,"PT",444,8.1)=""
^DD(411,0,"VR")="5.1"
^DD(411,0,"VRPK")="IFCAP"
^DD(411,.01,0)="STATION/SUBSTATION CODE^RFX^^0;1^D INP411^PRC0F K:$L(X)>5!($L(X)<3)!'(X?3N.2AN) X"
^DD(411,.01,1,0)="^.1^^-1"
^DD(411,.01,1,1,0)="411^B"
^DD(411,.01,1,1,1)="S ^PRC(411,""B"",$E(X,1,30),DA)="""""
^DD(411,.01,1,1,2)="K ^PRC(411,""B"",$E(X,1,30),DA)"
^DD(411,.01,1,2,0)="411^AD^MUMPS"
^DD(411,.01,1,2,1)="I $D(PRCF(""INST"")) S $P(^PRC(411,DA,0),""^"",10)=PRCF(""INST""),^PRC(411,""C"",PRCF(""INST""),DA)="""""
^DD(411,.01,1,2,2)="Q"
^DD(411,.01,1,2,"%D",0)="^^2^2^2930623^"
^DD(411,.01,1,2,"%D",1,0)="This cross reference is used to set the 3 digit"
^DD(411,.01,1,2,"%D",2,0)="CALM/LOG institution number."
^DD(411,.01,1,4,0)="411^A IFCAP-Wide Parameters^MUMPS"
^DD(411,.01,1,4,1)="Q"
^DD(411,.01,1,4,2)="Q"
^DD(411,.01,1,4,"%D",0)="^^5^5^2960909^"
^DD(411,.01,1,4,"%D",1,0)="This ""cross-reference"" is used to store IFCAP-wide, i.e. non-site-specific,"
^DD(411,.01,1,4,"%D",2,0)="parameters.  The only one here at present is the date when SO transactions"
^DD(411,.01,1,4,"%D",3,0)="should be recoded as ARs in PRCFD8L which is in:"
^DD(411,.01,1,4,"%D",4,0)=" "
^DD(411,.01,1,4,"%D",5,0)="           ^PRC(411,""A IFCAP-Wide Parameters"",""SO 2 AR Date"")"
^DD(411,.01,1,4,"DT")="2960909"
^DD(411,.01,3)="Enter station # or substation code. Answer must be 3-5 characters in length."
^DD(411,.01,4)="D EX^PRCFU"
^DD(411,.01,7.5)="S PRCRI=$P(^PRC(411,0),U,3)"
^DD(411,.01,21,0)="^^1^1^2950809^^^^"
^DD(411,.01,21,1,0)="This is station number or substation code."
^DD(411,.01,"DT")="2960924"
^DD(411,.1,0)="INSTITUTION NAME^P4'I^DIC(4,^0;10^Q"
^DD(411,.1,1,0)="^.1"
^DD(411,.1,1,1,0)="411^C"
^DD(411,.1,1,1,1)="S ^PRC(411,""C"",$E(X,1,30),DA)="""""
^DD(411,.1,1,1,2)="K ^PRC(411,""C"",$E(X,1,30),DA)"
^DD(411,.1,1,1,"%D",0)="^^4^4^2930623^"
^DD(411,.1,1,1,"%D",1,0)="This cross reference is set on the 3 digit"
^DD(411,.1,1,1,"%D",2,0)="CALM/LOG institution number for each institution"
^DD(411,.1,1,1,"%D",3,0)="controlled by the Fiscal Service of the site running"
^DD(411,.1,1,1,"%D",4,0)="IFCAP."
^DD(411,.1,21,0)="^^1^1^2950812^^^"
^DD(411,.1,21,1,0)="This is the name of the institution in this transaction."
^DD(411,.1,"DT")="2910625"
^DD(411,.5,0)="FACILITY TYPE^P411.2'^PRC(411.2,^0;7^Q"
^DD(411,.5,3)="Enter Facility type to print on Purchase Orders, Receiving Reports"
^DD(411,.5,21,0)="^^1^1^2940323^^"
^DD(411,.5,21,1,0)="This is the facility type."
^DD(411,.5,"DT")="2890605"
^DD(411,1,0)="RECEIVING LOCATION^411.01^^1;0"
^DD(411,1,21,0)="^^1^1^2940620^^^^"
^DD(411,1,21,1,0)="This is the receiving location."
^DD(411,2,0)="MAIL INVOICE LOCATION^411.03^^4;0"
^DD(411,2,21,0)="^^1^1^2930204^^^"
^DD(411,2,21,1,0)="This is information about the mail invoice location."
^DD(411,11,0)="PRINTER USE^411.02S^^2;0"
^DD(411,11,21,0)="^^1^1^2930623^^^^"
^DD(411,11,21,1,0)="This is information about the printer."
^DD(411,15,0)="HOSPITAL STREET ADDR.1^RF^^3;1^K:$L(X)>24!($L(X)<3) X"
^DD(411,15,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(411,15,21,0)="^^1^1^2910514^"
^DD(411,15,21,1,0)="This is the street address of the hospital."
^DD(411,15,"DT")="2850422"
^DD(411,16,0)="HOSPITAL STREET ADDR.2^F^^3;2^K:$L(X)>24!($L(X)<3) X"
^DD(411,16,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(411,16,21,0)="^^1^1^2910514^"
^DD(411,16,21,1,0)="This is the second street address of the hospital."
^DD(411,16,"DT")="2850422"
^DD(411,17,0)="HOSPITAL CITY^RF^^3;3^K:$L(X)>15!($L(X)<3) X"
^DD(411,17,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(411,17,21,0)="^^1^1^2910514^"
^DD(411,17,21,1,0)="This is the city of the address of the hospital."
^DD(411,17,"DT")="2850422"
^DD(411,18,0)="HOSPITAL STATE^RP5'^DIC(5,^3;4^Q"
^DD(411,18,21,0)="^^1^1^2910514^"
^DD(411,18,21,1,0)="This is the state of the address of the hospital."
^DD(411,18,"DT")="2850422"
^DD(411,19,0)="HOSPITAL ZIP^RFX^^3;5^K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(411,19,3)="ENTER A 5 DIGIT ZIP CODE OR A 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789"
^DD(411,19,21,0)="^^1^1^2910514^"
^DD(411,19,21,1,0)="This is the 5 to 9 digit zip code for the address of the hospital."
^DD(411,19,"DT")="2861122"
^DD(411,19.2,0)="HOSPITAL PHONE^F^^3;6^K:$L(X)>21!($L(X)<8) X"
^DD(411,19.2,3)="ANSWER MUST BE 8-21 CHARACTERS IN LENGTH"
^DD(411,19.2,21,0)="^^1^1^2910514^"
^DD(411,19.2,21,1,0)="This is the phone number of the hospital."
^DD(411,19.2,"DT")="2851026"
^DD(411,20,0)="SUPPLY P.O. FORM TYPE^RS^1:PRE-PRINTED;2:FREE FORM;^0;11^Q"
^DD(411,20,21,0)="^^1^1^2910514^"
^DD(411,20,21,1,0)="This is the supply purchase order form type."
^DD(411,20,"DT")="2850514"
^DD(411,21,0)="PRIMARY STATION^S^Y:YES;^0;2^Q"
^DD(411,21,1,0)="^.1"
^DD(411,21,1,1,0)="411^AC"
^DD(411,21,1,1,1)="S ^PRC(411,""AC"",$E(X,1,30),DA)="""""
^DD(411,21,1,1,2)="K ^PRC(411,""AC"",$E(X,1,30),DA)"
^DD(411,21,1,1,"%D",0)="^^1^1^2930624^"
^DD(411,21,1,1,"%D",1,0)="This cross reference is set on the primary station."
^DD(411,21,21,0)="^^3^3^2940323^^"
^DD(411,21,21,1,0)="This is the station (e.g., VA Medical Center) that provides"
^DD(411,21,21,2,0)="administrative support for other facilities such as national"
^DD(411,21,21,3,0)="cemeteries, remote warehouses, etc.."
^DD(411,21,"DT")="2940323"
^DD(411,22,0)="FISCAL ACCOUNTING AUTOMATED^S^Y:YES;N:NO;^0;4^Q"
^DD(411,22,3)="Is the Accounting module of the IFCAP system operating?"
^DD(411,22,21,0)="^^2^2^2930204^^"
^DD(411,22,21,1,0)="This indicates if the accounting module of the IFCAP system is"
^DD(411,22,21,2,0)="operating."
^DD(411,22,"DT")="2860226"
^DD(411,23,0)="FMS PAYMENTS BY STATION^S^A:ALL PAYMENTS;C:CERTIFIED PAYMENTS ONLY;N:NO PAYMENTS;^0;5^Q"
^DD(411,23,21,0)="^^1^1^2940323^^^"
^DD(411,23,21,1,0)="These are FMS payments listed by station."
^DD(411,23,"DT")="2940323"
^DD(411,24,0)="SUPPLY RECEIVING LOCATION^S^W:WAREHOUSE;P:PPM;N:NO AUTOMATED RECEIVING;^0;12^Q"
^DD(411,24,3)="Enter the location that will be processing a receiving report on the computer"
^DD(411,24,21,0)="^^2^2^2910514^"
^DD(411,24,21,1,0)="This is a location that will be processing a receiving report on"
^DD(411,24,21,2,0)="the computer."
^DD(411,24,"DT")="2860902"
^DD(411,25,0)="RECEIVING REPORT TRANS METHOD^S^0:US POSTAL SERVICE;1:ELECTRONIC - IMMEDIATE RELEASE;2:ELECTRONIC - BATCH RELEASE;^0;6^Q"
^DD(411,25,3)="0-Reports will be mailed to Austin. 1-Report will be electronically transmitted when CALM code sheet is signed. 2-Report will be put in a batch for later electronic transmission of entire batch."
^DD(411,25,21,0)="^^10^10^2940620^^^^"
^DD(411,25,21,1,0)="   Enter 0 or null, if printed copies of receiving reports will be mailed"
^DD(411,25,21,2,0)="to the Austin Finance Center."
^DD(411,25,21,3,0)="   Enter 1, if each receiving report will be automatically transmitted"
^DD(411,25,21,4,0)="electronically to Austin, as soon as the CALM code sheet is released."
^DD(411,25,21,5,0)="   Enter 2, if receiving reports will be added to a list (batch) of"
^DD(411,25,21,6,0)="receiving reports ready to be transmitted electronically to Austin."
^DD(411,25,21,7,0)="Every receiving report on the list will be transmitted at the same time,"
^DD(411,25,21,8,0)="either through an option allowing the user to release the batch, or by"
^DD(411,25,21,9,0)="using an option that allows the Site Manager to queue the job that releases"
^DD(411,25,21,10,0)="the batch, to run on some schedule."
^DD(411,25,"DT")="2880627"
^DD(411,26,0)="CODE SHEET RETENTION PERIOD^NJ3,0^^0;14^K:+X'=X!(X>999)!(X<30)!(X?.E1"".""1N.N) X"
^DD(411,26,3)="Enter the number of days code sheets are to be retained on line before deletion."
^DD(411,26,21,0)="^^2^2^2910514^"
^DD(411,26,21,1,0)="This indicates the number of days code sheets are to"
^DD(411,26,21,2,0)="be retained before deletion."
^DD(411,26,"DT")="2851218"
^DD(411,27,0)="DATE/TIME STAMP IN FISCAL^S^Y:YES;N:NO;^0;15^Q"
^DD(411,27,3)="Time stamp purchase order that are printed in fiscal from supply"
^DD(411,27,21,0)="^^2^2^2910514^"
^DD(411,27,21,1,0)="This is the date/time stamp purchase order that"
^DD(411,27,21,2,0)="is printed in fiscal from supply."
^DD(411,27,"DT")="2860205"
^DD(411,28,0)="SUPPLY ENTER BOC^S^Y:YES;N:NO;^0;16^Q"
^DD(411,28,21,0)="^^1^1^2940323^^"
^DD(411,28,21,1,0)="This is the supply budget object code (BOC)."
^DD(411,28,"DT")="2940323"
^DD(411,29,0)="STATUS OF FUNDS TRACKING^S^Y:YES;N:NO;^0;17^Q"
^DD(411,29,3)="Enter 'YES' when you desire to allow status of funds tracking based upon the FMS 826 report."
^DD(411,29,21,0)="^.001^2^2^3000609^^^"
^DD(411,29,21,1,0)="YES allows status of funds tracking based on the FMS 826"
^DD(411,29,21,2,0)="report."
^DD(411,29,"DT")="2870225"
^DD(411,30,0)="INTERMEDIATE PRODUCT CODE?^S^Y:YES;N:NO;^0;18^Q"
^DD(411,30,3)="Enter 'Y' for YES if Fiscal is using Intermediate Product Codes."
^DD(411,30,21,0)="^^1^1^2910514^"
^DD(411,30,21,1,0)="YES indicates that Fiscal is using Intermediate Product Codes."
^DD(411,30,"DT")="2860911"
^DD(411,31,0)="PRINT FMS VENDOR ID^S^Y:YES;N:NO;^0;19^Q"
^DD(411,31,3)="Answer 'Yes' when you wish to have FMS ID to print on Purchase Orders."
^DD(411,31,21,0)="^^2^2^2940323^^"
^DD(411,31,21,1,0)="YES indicates the FMS ID will print on"
^DD(411,31,21,2,0)="purchase orders."
^DD(411,31,"DT")="2940323"
^DD(411,32,0)="ADDRESS CODE (GSA)^F^^0;3^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(411,32,3)="Enter the 6 digit activity address code for GSA and DLA code sheets."
^DD(411,32,21,0)="^^2^2^2911008^^"
^DD(411,32,21,1,0)="This is the six digit activity address code for General Services"
^DD(411,32,21,2,0)="Administration (GSA) and Defense Logistics Agency (DLA) code sheets."
^DD(411,32,"DT")="2871209"
^DD(411,33,0)="PRINT REC RPT IN FISCAL^S^Y:ASK TO PRINT RECEIVING REPORT IN FISCAL;N:NOT ASK TO PRINT RECEIVING REPORT IN FISCAL;^0;8^Q"
^DD(411,33,3)="'Y'(YES) will ask 'Do you want to also print receiving report in FISCAL?' when RR is signed off by Warehouse person.  'N'(NO) will NOT ask the question (i.e., won't allow copy to print in Fiscal.)"
^DD(411,33,21,0)="^^8^8^2940620^^^^"
^DD(411,33,21,1,0)="This flag will control whether users doing Warehouse Receiving will see"
^DD(411,33,21,2,0)="the question 'Do you want to also print the receiving report in FISCAL?'."
^DD(411,33,21,3,0)="If they answer 'Y' (YES), then each time the warehouse person signs"
^DD(411,33,21,4,0)="(approves) the receiving information just entered, the computer will give"
^DD(411,33,21,5,0)="him/her the option to print a copy of the receiving report in Fiscal"
^DD(411,33,21,6,0)="at the same time the copy prints in Supply.  If they answer 'N' (NO),"
^DD(411,33,21,7,0)="then they will not even see the question, and will not have the option"
^DD(411,33,21,8,0)="to print the Receiving Report in Fiscal."
^DD(411,33,"DT")="2881031"
^DD(411,34,0)="DISPLAY UNOBLIGATED BALANCE?^S^Y:YES;N:NO;^0;9^Q"
^DD(411,34,3)="Display the Unobligated Balance during Fiscal Obligation Processing?"
^DD(411,34,21,0)="^^8^8^2910524^^^"
^DD(411,34,21,1,0)="This flag is temporary.  Currently, during Fiscal Obligation processing,"
^DD(411,34,21,2,0)="the unobligated balance is displayed online.  To get this figure, the"
^DD(411,34,21,3,0)="system adds up all transactions (2237's) from file 410 for the fiscal"
^DD(411,34,21,4,0)="year, quarter and control point of the current obligation.  This can be"
^DD(411,34,21,5,0)="very time consuming near the end of a quarter.  This function will allow"
^DD(411,34,21,6,0)="Fiscal to 'turn off' the display, so that the obligation will work faster."
^DD(411,34,21,7,0)="We plan to find a quicker way to display the balance, at which time this"
^DD(411,34,21,8,0)="flag will be deleted from the file."
^DD(411,34,"DT")="2881121"
^DD(411,35,0)="RECEIPT BEFORE OBLIGATION OK?^S^Y:YES;N:NO;^0;13^Q"
^DD(411,35,3)="If answered 'Y'(YES), the system will allow receiving to be entered on a P.O., PRIOR to obligation by FISCAL."
^DD(411,35,21,0)="^^2^2^2910524^"
^DD(411,35,21,1,0)="If 'YES' is entered, the system will allow receiving to be"
^DD(411,35,21,2,0)="entered on a purchase order before obligation by Fiscal."
^DD(411,35,"DT")="2890202"
^DD(411,36,0)="ACTIVITY ADDRESS CODE (DLA)^411.04^^5;0"
^DD(411,36,21,0)="^^2^2^2911008^^"
^DD(411,36,21,1,0)="This is the multiple to the field that contains a six digit activity"
^DD(411,36,21,2,0)="address code for Defense Logistics Agency (DLA) code sheets."
^DD(411,37,0)="CAN FISCAL ADD VENDORS?^S^0:NO;1:YES;^0;20^Q"
^DD(411,37,3)="Enter a 1 (or YES) if Fiscal Service is allowed to add entries to the Vendor File, 0 (or NO) if not.  If this field is not filled in, the default value is NO."
^DD(411,37,21,0)="^^2^2^2910524^"
^DD(411,37,21,1,0)="Enter '1' if Fiscal can add entries to the Vendor File."
^DD(411,37,21,2,0)="If this field is not filled in, the default value is NO."
^DD(411,37,"DT")="2890710"
^DD(411,38,0)="ISSUE BOOK SORT DEFAULT^S^A:ALPHA;N:NSN;^0;21^Q"
^DD(411,38,3)="Used to sort items on Issue Request form that prints in supply, ONLY for those services not on the Inventory/Distribution file.  A=Alpha sort on short description, N=National Stock No. sort"
^DD(411,38,21,0)="^^5^5^2910524^"
^DD(411,38,21,1,0)="This field contains codes for the Issue Book sort defaults,"
^DD(411,38,21,2,0)="used to sort items on the Issue Request Form that prints in"
^DD(411,38,21,3,0)="supply.  They are used only for those services not on the"
^DD(411,38,21,4,0)="Inventory/Distribution file.  'A' stands for alpha sort"
^DD(411,38,21,5,0)="and 'N' stands for NSN sort."
^DD(411,38,"DT")="2890929"
^DD(411,39,0)="SCREEN FOR FISCAL USER^S^0:NO;1:YES;^0;22^Q"
^DD(411,39,1,0)="^.1"
^DD(411,39,1,1,0)="411^AE"
^DD(411,39,1,1,1)="S ^PRC(411,""AE"",$E(X,1,30),DA)="""""
^DD(411,39,1,1,2)="K ^PRC(411,""AE"",$E(X,1,30),DA)"
^DD(411,39,1,1,"%D",0)="^^1^1^2930624^"
^DD(411,39,1,1,"%D",1,0)="This cross reference is set on Fiscal user."
^DD(411,39,3)="Set this field to 'YES' if you have more than one Fiscal Svc., i.e., VAMC and VARO.  If you set this field to 'YES' you must make entries in field 'AUTHORIZED FISCAL USERS' for each station."
^DD(411,39,21,0)="^^2^2^2940620^^^^"
^DD(411,39,21,1,0)="Yes in this field allows for screening of more than one Fiscal Service"
^DD(411,39,21,2,0)="(i.e., VA Medical Centers and VA Regional Offices)."
^DD(411,39,"DT")="2900501"
^DD(411,40,0)="AUTHORIZED FISCAL USER^411.05P^^6;0"
^DD(411,40,21,0)="^^3^3^2930224^^^^"
^DD(411,40,21,1,0)="This is a multiple to a pointer field for Authorized Fiscal Users,"
^DD(411,40,21,2,0)="#411.05.  Information under this field is required when replying Yes in"
^DD(411,40,21,3,0)="the Screen for Fiscal User field."
^DD(411,41,0)="ISMS/LOG SWITCH^S^1:LOG ONLY;2:ISMS ONLY;^0;23^Q"
^DD(411,41,21,0)="^^2^2^2930128^"
^DD(411,41,21,1,0)="This field indicates whether the local IFCAP system is transmitting"
^DD(411,41,21,2,0)="code sheets to LOG or to ISMS."
^DD(411,41,"DT")="2920528"
^DD(411,42,0)="ISMS MAILGROUP^F^^3;7^K:$L(X)>30!($L(X)<1) X"
^DD(411,42,3)="Answer must be 1-30 characters in length."
^DD(411,42,21,0)="^^2^2^2930128^"
^DD(411,42,21,1,0)="This field contains the name of the Mail Group which is to receive"
^DD(411,42,21,2,0)="MailMan messages about ISMS transmissions."
^DD(411,42,"DT")="2910805"
^DD(411,43,0)="ISMS TRANSACTION TIMEOUT^NJ7,0^^7;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(411,43,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(411,43,21,0)="^^2^2^2930128^"
^DD(411,43,21,1,0)="This field contains the number of seconds that IFCAP should wait for a"
^DD(411,43,21,2,0)="response before timing out when transmitting records to ISMS."
^DD(411,43,"DT")="2920103"
^DD(411,44,0)="VALIDATION VERSION^RNJ2,0^^7;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(411,44,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(411,44,21,0)="2^^4^4^2930511^"
^DD(411,44,21,1,0)="This is the version number of the algorithms used to encode and decode"
^DD(411,44,21,2,0)="the Validation Code created at the time that the official approving"
^DD(411,44,21,3,0)="the transaction entered their electronic signature."
^DD(411,44,21,4,0)=" "
^DD(411,44,23,0)="^^4^4^2930511^^^"
^DD(411,44,23,1,0)="This validation version number is used by the IFCAP installation"
^DD(411,44,23,2,0)="routine to check the validation code version conversion is necessary."
^DD(411,44,23,3,0)="This field is updated to the current version number when the"
^DD(411,44,23,4,0)="validation code version conversion is done."
^DD(411,44,"DT")="2930511"
^DD(411,45,0)="IFCAP TERMINATED USER^411.045PA^^8;0"
^DD(411,45,21,0)="^^4^4^2941220^^^^"
^DD(411,45,21,1,0)="This field is automatically populated when a"
^DD(411,45,21,2,0)="user is terminated via entry in the Kernel"
^DD(411,45,21,3,0)="Termination field.  Users stored in this field"
^DD(411,45,21,4,0)="cannot be entered as requestors in IFCAP."
^DD(411,46,0)="APPLICATION COORDINATOR^RP200'^VA(200,^9;1^Q"
^DD(411,46,21,0)="^^6^6^2940601^"
^DD(411,46,21,1,0)="This is the name of the application coordinator."
^DD(411,46,21,2,0)="This field is used in conjunction with FMS"
^DD(411,46,21,3,0)="transaction processing. If a transmission error"
^DD(411,46,21,4,0)="occurs, a MailMan message with all available"
^DD(411,46,21,5,0)="information is sent to the application coordinator,"
^DD(411,46,21,6,0)="using the name in this field."
^DD(411,46,"DT")="2940412"
^DD(411,47,0)="FMS SECURITY CODE^RP420.138'^PRCD(420.138,^9;2^Q"
^DD(411,47,3)=""
^DD(411,47,21,0)="^^2^2^2940614^"
^DD(411,47,21,1,0)="This is the FMS security code used in"
^DD(411,47,21,2,0)="document transmissions."
^DD(411,47,"DT")="2940420"
^DD(411,48,0)="DAYS TO TRACK INVOICES^NJ4,0^^0;24^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(411,48,3)="Enter the number of days before the current date for which you wish to track invoices due back in Fiscal. Type a Number between 1 and 9999, 0 Decimal Digits."
^DD(411,48,21,0)="^^1^1^2941104^^"
^DD(411,48,21,1,0)="This field holds the number of days to track invoices."
^DD(411,48,"DT")="2940705"
^DD(411,49,0)="CARRY FORWARD 4TH QTR REQUESTS^S^Y:YES;N:NO;^0;25^Q"
^DD(411,49,21,0)="^^2^2^2960327^"
^DD(411,49,21,1,0)="The field is used to control the 4th quarter outstanding requests being"
^DD(411,49,21,2,0)="carried forward to the new fiscal year."
^DD(411,49,"DT")="2960327"
^DD(411,50,0)="FMS-ET VENDOR CODE^F^^9;5^K:$L(X)>9!($L(X)<1) X"
^DD(411,50,3)="Answer must be 1-9 characters in length."
^DD(411,50,21,0)="^^1^1^2961003^^"
^DD(411,50,21,1,0)="This is a vendor code used in FMS documents."
^DD(411,50,"DT")="2960821"
^DD(411,51,0)="FMS-ET ALTERNATE ADDRESS IND.^F^^9;6^K:$L(X)>2!($L(X)<1) X"
^DD(411,51,3)="Answer must be 1-2 characters in length."
^DD(411,51,21,0)="^^1^1^2960821^"
^DD(411,51,21,1,0)="This is an alternate address indicator used in FMS documents."
^DD(411,51,"DT")="2960821"
^DD(411,52,0)="RANGE OF % FOR RECONCILING AMT^NJ2,0^^9;7^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(411,52,3)="Type a Number between 0 and 20, with no Decimal Digits"
^DD(411,52,21,0)="^^2^2^2970425^^^"
^DD(411,52,21,1,0)="This is the % range used to match the purchase card order in the"
^DD(411,52,21,2,0)="purchase card reconciliation option."
^DD(411,52,"DT")="2970421"
^DD(411,60,0)="FMS-ET RECORD COUNTER^NJ15,0^^60;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(411,60,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(411,60,21,0)="^^3^3^2970818^"
^DD(411,60,21,1,0)="This is a counter used to assign an id number for the FMS-ET record."
^DD(411,60,21,2,0)="The id number is assigned by counter number modulo 10000 (last four"
^DD(411,60,21,3,0)="digits are used)."
^DD(411,60,"DT")="2970818"
^DD(411,61,0)="PROMPT WHEN PRINTING?^S^1:YES;0:NO;^0;26^Q"
^DD(411,61,3)="Enter 'Y' for YES if the user is to be prompted for a print device during 1358/2237 approval."
^DD(411,61,21,0)="^.001^5^5^3010313^^^^"
^DD(411,61,21,1,0)="YES indicates that when approving a 1358/2237, the user"
^DD(411,61,21,2,0)="will be prompted for a print device.  NO indicates that"
^DD(411,61,21,3,0)="the user will not be prompted and the document will queue"
^DD(411,61,21,4,0)="to a background printer, if possible.  This feature is in"
^DD(411,61,21,5,0)="effect only if substations are being utilized."
^DD(411,61,"DT")="3010305"
^DD(411,101,0)="PARENT STATION^*P411'^PRC(411,^50;1^S DIC(""S"")=""I +Y<1000000"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(411,101,1,0)="^.1"
^DD(411,101,1,1,0)="411^UP"
^DD(411,101,1,1,1)="S ^PRC(411,""UP"",$E(X,1,30),DA)="""""
^DD(411,101,1,1,2)="K ^PRC(411,""UP"",$E(X,1,30),DA)"
^DD(411,101,1,1,"%D",0)="^^2^2^2950802^"
^DD(411,101,1,1,"%D",1,0)="This cross-reference is used to lookup the substations of a primary"
^DD(411,101,1,1,"%D",2,0)="station."
^DD(411,101,1,1,"DT")="2950802"
^DD(411,101,3)="Enter a primary station #."
^DD(411,101,12)="Parent station can not be substation."
^DD(411,101,12.1)="S DIC(""S"")=""I +Y<1000000"""
^DD(411,101,21,0)="^^1^1^2950809^^^^"
^DD(411,101,21,1,0)="This is the parent station # of a substation entry."
^DD(411,101,23,0)="^^1^1^2950809^"
^DD(411,101,23,1,0)="This is for the parent station 3 of a substation entry."
^DD(411,101,"DT")="2950809"
^DD(411,102,0)="FACILITY NAME^F^^50;2^K:$L(X)>30!($L(X)<1) X"
^DD(411,102,3)="Enter facility name up to 30 characters."
^DD(411,102,21,0)="^^1^1^2950811^"
^DD(411,102,21,1,0)="This is the facility name."
^DD(411,102,"DT")="2950811"
^DD(411,104,0)="FISCAL REVIEW OF VRQ^S^N:NO;Y:YES;^9;3^Q"
^DD(411,104,3)="Enter YES if you want FISCAL to review each VENDOR REQUEST."
^DD(411,104,21,0)="^^10^10^2960129^"
^DD(411,104,21,1,0)="This field is used to require FISCAL to review each FMS VENDOR REQUEST."
^DD(411,104,21,2,0)="If this field is set to YES no VRQ will be sent to Austin untill FISCAL"
^DD(411,104,21,3,0)="reviews the request.  If FISCAL wants they can check to see if the"
^DD(411,104,21,4,0)="vendor is in the FMS VENDor FILE.  Any differences between the FMS entry"
^DD(411,104,21,5,0)="and the local entry can be changed at the local site and FISCAL is able"
^DD(411,104,21,6,0)="to prevent sending the VRQ to Austin."
^DD(411,104,21,7,0)="     "
^DD(411,104,21,8,0)="If this field is set to NO all VRQs will go to Austin as soon as they are"
^DD(411,104,21,9,0)="created.  If this field is left blank the VRQs will consider that the"
^DD(411,104,21,10,0)="same as a NO in this field."
^DD(411,104,"DT")="2960129"
^DD(411,105,0)="PRODUCTION/TRAINING^S^T:TRAINING;P:PRODUCTION;^9;4^Q"
^DD(411,105,3)="Enter 'T' to send all transactions to the non-production queue in Austin."
^DD(411,105,21,0)="^^3^3^2960506^^"
^DD(411,105,21,1,0)="Setting this field to TRAINING will send all transactions to the non-"
^DD(411,105,21,2,0)="production queue in Austin.  Leaving this field blank or setting it to"
^DD(411,105,21,3,0)="PRODUCTION will send all transactions to the production queue in Austin."
^DD(411,105,23,0)="^^4^4^2960506^"
^DD(411,105,23,1,0)="This field will allow users to switch the destination of all transactions"
^DD(411,105,23,2,0)="from the live, or production, queue to the test or training queue."
^DD(411,105,23,3,0)="   "
^DD(411,105,23,4,0)="Leaving this field blank will default to the live setting."
^DD(411,105,"DT")="2960506"
^DD(411,106,0)="FCP MONITOR STATUS^*S^0:NOT USED;1:ENABLED;2:NOT ENABLED;^60;2^Q"
^DD(411,106,.1)="Fund monitor status"
^DD(411,106,3)="Choose ""NOT ENABLED"" to ask monitor to stop"
^DD(411,106,12)="The only valid option at non-Dynamed sited is ""NOT USED"""
^DD(411,106,12.1)="S DIC(""S"")=""I (($$CHK^PRCVMON)!(Y'>0))"""
^DD(411,106,21,0)="^^4^4^3050519^"
^DD(411,106,21,1,0)="This field is used to control the state of the FCP monitor and should be "
^DD(411,106,21,2,0)="populated for the primary station only (others are ignored). To ask the "
^DD(411,106,21,3,0)="monitor to stop, set this field to ""NOT ENABLED"", to allow it to start, "
^DD(411,106,21,4,0)="set it to ""ENABLED""."
^DD(411,106,"DT")="3050524"
^DD(411,107,0)="FCP MONITOR RUNNING?^SI^0:NO;1:YES;^60;3^Q"
^DD(411,107,.1)="FCP Monitor Running"
^DD(411,107,3)="This field should be set to YES if the monitor is running"
^DD(411,107,21,0)="^^2^2^3050524^"
^DD(411,107,21,1,0)="This flag is set to 1 (""YES"") to indicate that the FCP monitor is "
^DD(411,107,21,2,0)="running. Users should not edit this field."
^DD(411,107,"DT")="3050524"
^DD(411,"B","ACTIVITY ADDRESS CODE (DLA)",36)=""
^DD(411,"B","ADDRESS CODE (GSA)",32)=""
^DD(411,"B","APPLICATION COORDINATOR",46)=""
^DD(411,"B","AUTHORIZED FISCAL USER",40)=""
^DD(411,"B","CAN FISCAL ADD VENDORS?",37)=""
^DD(411,"B","CARRY FORWARD 4TH QTR REQUESTS",49)=""
^DD(411,"B","CODE SHEET RETENTION PERIOD",26)=""
^DD(411,"B","DATE/TIME STAMP IN FISCAL",27)=""
^DD(411,"B","DAYS TO TRACK INVOICES",48)=""
^DD(411,"B","DISPLAY UNOBLIGATED BALANCE?",34)=""
^DD(411,"B","FACILITY NAME",102)=""
^DD(411,"B","FACILITY TYPE",.5)=""
^DD(411,"B","FCP MONITOR RUNNING?",107)=""
^DD(411,"B","FCP MONITOR STATUS",106)=""
^DD(411,"B","FCP Monitor Running",107)="1"
^DD(411,"B","FISCAL ACCOUNTING AUTOMATED",22)=""
^DD(411,"B","FISCAL REVIEW OF VRQ",104)=""
^DD(411,"B","FMS PAYMENTS BY STATION",23)=""
^DD(411,"B","FMS SECURITY CODE",47)=""
^DD(411,"B","FMS-ET ALTERNATE ADDRESS IND.",51)=""
^DD(411,"B","FMS-ET RECORD COUNTER",60)=""
^DD(411,"B","FMS-ET VENDOR CODE",50)=""
^DD(411,"B","Fund monitor status",106)="1"
^DD(411,"B","HOSPITAL CITY",17)=""
^DD(411,"B","HOSPITAL PHONE",19.2)=""
^DD(411,"B","HOSPITAL STATE",18)=""
^DD(411,"B","HOSPITAL STREET ADDR.1",15)=""
^DD(411,"B","HOSPITAL STREET ADDR.2",16)=""
^DD(411,"B","HOSPITAL ZIP",19)=""
^DD(411,"B","IFCAP TERMINATED USER",45)=""
^DD(411,"B","INSTITUTION NAME",.1)=""
^DD(411,"B","INTERMEDIATE PRODUCT CODE?",30)=""
^DD(411,"B","ISMS MAILGROUP",42)=""
^DD(411,"B","ISMS TRANSACTION TIMEOUT",43)=""
^DD(411,"B","ISMS/LOG SWITCH",41)=""
^DD(411,"B","ISSUE BOOK SORT DEFAULT",38)=""
^DD(411,"B","MAIL INVOICE LOCATION",2)=""
^DD(411,"B","PARENT STATION",101)=""
^DD(411,"B","PRIMARY STATION",21)=""
^DD(411,"B","PRINT FMS VENDOR ID",31)=""
^DD(411,"B","PRINT REC RPT IN FISCAL",33)=""
^DD(411,"B","PRINTER USE",11)=""
^DD(411,"B","PRODUCTION/TRAINING",105)=""
^DD(411,"B","PROMPT WHEN PRINTING?",61)=""
^DD(411,"B","RANGE OF % FOR RECONCILING AMT",52)=""
^DD(411,"B","RECEIPT BEFORE OBLIGATION OK?",35)=""
^DD(411,"B","RECEIVING LOCATION",1)=""
^DD(411,"B","RECEIVING REPORT TRANS METHOD",25)=""
^DD(411,"B","SCREEN FOR FISCAL USER",39)=""
^DD(411,"B","STATION/SUBSTATION CODE",.01)=""
^DD(411,"B","STATUS OF FUNDS TRACKING",29)=""
^DD(411,"B","SUPPLY ENTER BOC",28)=""
^DD(411,"B","SUPPLY P.O. FORM TYPE",20)=""
^DD(411,"B","SUPPLY RECEIVING LOCATION",24)=""
^DD(411,"B","VALIDATION VERSION",44)=""
^DD(411,"GL",0,1,.01)=""
^DD(411,"GL",0,2,21)=""
^DD(411,"GL",0,3,32)=""
^DD(411,"GL",0,4,22)=""
^DD(411,"GL",0,5,23)=""
^DD(411,"GL",0,6,25)=""
^DD(411,"GL",0,7,.5)=""
^DD(411,"GL",0,8,33)=""
^DD(411,"GL",0,9,34)=""
^DD(411,"GL",0,10,.1)=""
^DD(411,"GL",0,11,20)=""
^DD(411,"GL",0,12,24)=""
^DD(411,"GL",0,13,35)=""
^DD(411,"GL",0,14,26)=""
^DD(411,"GL",0,15,27)=""
^DD(411,"GL",0,16,28)=""
^DD(411,"GL",0,17,29)=""
^DD(411,"GL",0,18,30)=""
^DD(411,"GL",0,19,31)=""
^DD(411,"GL",0,20,37)=""
^DD(411,"GL",0,21,38)=""
^DD(411,"GL",0,22,39)=""
^DD(411,"GL",0,23,41)=""
^DD(411,"GL",0,24,48)=""
^DD(411,"GL",0,25,49)=""
^DD(411,"GL",0,26,61)=""
^DD(411,"GL",1,0,1)=""
^DD(411,"GL",2,0,11)=""
^DD(411,"GL",3,1,15)=""
^DD(411,"GL",3,2,16)=""
^DD(411,"GL",3,3,17)=""
^DD(411,"GL",3,4,18)=""
^DD(411,"GL",3,5,19)=""
^DD(411,"GL",3,6,19.2)=""
^DD(411,"GL",3,7,42)=""
^DD(411,"GL",4,0,2)=""
^DD(411,"GL",5,0,36)=""
^DD(411,"GL",6,0,40)=""
^DD(411,"GL",7,1,43)=""
^DD(411,"GL",7,2,44)=""
^DD(411,"GL",8,0,45)=""
^DD(411,"GL",9,1,46)=""
^DD(411,"GL",9,2,47)=""
^DD(411,"GL",9,3,104)=""
^DD(411,"GL",9,4,105)=""
^DD(411,"GL",9,5,50)=""
^DD(411,"GL",9,6,51)=""
^DD(411,"GL",9,7,52)=""
^DD(411,"GL",50,1,101)=""
^DD(411,"GL",50,2,102)=""
^DD(411,"GL",60,1,60)=""
^DD(411,"GL",60,2,106)=""
^DD(411,"GL",60,3,107)=""
^DD(411,"IX",.01)=""
^DD(411,"IX",.1)=""
^DD(411,"IX",21)=""
^DD(411,"IX",39)=""
^DD(411,"IX",101)=""
^DD(411,"RQ",.01)=""
^DD(411,"RQ",15)=""
^DD(411,"RQ",17)=""
^DD(411,"RQ",18)=""
^DD(411,"RQ",19)=""
^DD(411,"RQ",20)=""
^DD(411,"RQ",44)=""
^DD(411,"RQ",46)=""
^DD(411,"RQ",47)=""
^DD(411,"SB",411.01,1)=""
^DD(411,"SB",411.02,11)=""
^DD(411,"SB",411.03,2)=""
^DD(411,"SB",411.04,36)=""
^DD(411,"SB",411.045,45)=""
^DD(411,"SB",411.05,40)=""
^DD(411.01,0)="RECEIVING LOCATION SUB-FIELD^NL^8^9"
^DD(411.01,0,"DT")="2910723"
^DD(411.01,0,"NM","RECEIVING LOCATION")=""
^DD(411.01,0,"UP")="411"
^DD(411.01,.01,0)="RECEIVING LOCATION^MRF^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(411.01,.01,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(411.01,.01,21,0)="^^1^1^2910514^"
^DD(411.01,.01,21,1,0)="This is the name of the receiving location."
^DD(411.01,.01,"DT")="2851015"
^DD(411.01,1,0)="STREET ADDR.1^F^^0;2^K:$L(X)>24!($L(X)<3) X"
^DD(411.01,1,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(411.01,1,21,0)="^^2^2^2910514^"
^DD(411.01,1,21,1,0)="This is the first street address of the receiving"
^DD(411.01,1,21,2,0)="location."
^DD(411.01,1,"DT")="2850617"
^DD(411.01,2,0)="STREET ADDR.2^F^^0;3^K:$L(X)>24!($L(X)<3) X"
^DD(411.01,2,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(411.01,2,21,0)="^^1^1^2910514^"
^DD(411.01,2,21,1,0)="This is the second street address of the receiving location."
^DD(411.01,3,0)="STREET ADDR.3^F^^0;4^K:$L(X)>24!($L(X)<3) X"
^DD(411.01,3,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(411.01,3,21,0)="^^1^1^2910514^"
^DD(411.01,3,21,1,0)="This is the third street address of the receiving location."
^DD(411.01,3,"DT")="2851015"
^DD(411.01,4,0)="CITY^RF^^0;5^K:$L(X)>15!($L(X)<3) X"
^DD(411.01,4,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(411.01,4,21,0)="^^1^1^2910514^"
^DD(411.01,4,21,1,0)="This is the city of the address of the receiving location."
^DD(411.01,4,"DT")="2851015"
^DD(411.01,5,0)="STATE^RP5'^DIC(5,^0;6^Q"
^DD(411.01,5,3)="ANSWER MUST BE 5-10 CHARACTERS IN LENGTH"
^DD(411.01,5,21,0)="^^1^1^2910514^"
^DD(411.01,5,21,1,0)="This is the state of the address of the receiving location."
^DD(411.01,5,"DT")="2851015"
^DD(411.01,6,0)="ZIP CODE^RFX^^0;7^K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(411.01,6,3)="ENTER A 5 DIGIT ZIP CODE OR A 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789"
^DD(411.01,6,21,0)="^^2^2^2940620^^^"
^DD(411.01,6,21,1,0)="Enter yes if the Ship To is a Hospital location, enter no if the issuing office is the hospital"
^DD(411.01,6,21,2,0)="and the Ship To is not a Hospital location, i.e. Patient."
^DD(411.01,6,"DT")="2870811"
^DD(411.01,7,0)="DELIVERY HOURS^F^^0;8^K:$L(X)>20!($L(X)<3) X"
^DD(411.01,7,3)="Enter the delivery hours for this receiving location. (i.e., 8AM TO 4:30PM), cannot exceed 20 characters."
^DD(411.01,7,21,0)="2^^2^2^2940620^^^^"
^DD(411.01,7,21,1,0)="These are the delivery hours for the receiving location (i.e., 8 AM"
^DD(411.01,7,21,2,0)="to 4:30 PM)."
^DD(411.01,7,"DT")="2860906"
^DD(411.01,8,0)="SHIP TO SUFFIX^FX^^0;9^K:$L(X)>3!($L(X)<3) X I $D(X) K:X'?3UN X"
^DD(411.01,8,3)="This is the Ship To Address code.  Enter 3 upper case alpha/numeric characters."
^DD(411.01,8,21,0)="5^^5^5^2930204^^^^"
^DD(411.01,8,21,1,0)="This field is the SHIP TO code for the station.  This field is used"
^DD(411.01,8,21,2,0)="in a segment as a shorthand method of sending the station's"
^DD(411.01,8,21,3,0)="name and address.  This field is used within EDI.  Don't enter"
^DD(411.01,8,21,4,0)="anything in this field except SHIP TO code.  This code originates"
^DD(411.01,8,21,5,0)="from Austin, Texas data processing center."
^DD(411.01,8,"DT")="2910723"
^DD(411.01,"B","CITY",4)=""
^DD(411.01,"B","DELIVERY HOURS",7)=""
^DD(411.01,"B","RECEIVING LOCATION",.01)=""
^DD(411.01,"B","SHIP TO SUFFIX",8)=""
^DD(411.01,"B","STATE",5)=""
^DD(411.01,"B","STREET ADDR.1",1)=""
^DD(411.01,"B","STREET ADDR.2",2)=""
^DD(411.01,"B","STREET ADDR.3",3)=""
^DD(411.01,"B","ZIP CODE",6)=""
^DD(411.01,"GL",0,1,.01)=""
^DD(411.01,"GL",0,2,1)=""
^DD(411.01,"GL",0,3,2)=""
^DD(411.01,"GL",0,4,3)=""
^DD(411.01,"GL",0,5,4)=""
^DD(411.01,"GL",0,6,5)=""
^DD(411.01,"GL",0,7,6)=""
^DD(411.01,"GL",0,8,7)=""
^DD(411.01,"GL",0,9,8)=""
^DD(411.01,"RQ",.01)=""
^DD(411.01,"RQ",4)=""
^DD(411.01,"RQ",5)=""
^DD(411.01,"RQ",6)=""
^DD(411.02,0)="PRINTER USE SUB-FIELD^NL^3^4"
^DD(411.02,0,"DT")="2930212"
^DD(411.02,0,"IX","AC",411.02,1)=""
^DD(411.02,0,"IX","AD",411.02,.01)=""
^DD(411.02,0,"IX","AE",411.02,2)=""
^DD(411.02,0,"IX","AF",411.02,.01)=""
^DD(411.02,0,"NM","PRINTER USE")=""
^DD(411.02,0,"UP")="411"
^DD(411.02,.01,0)="PRINTER LOCATION^MS^F:FISCAL (P.O.,1358);FR:FISCAL (REC.REPORTS);R:RECEIVING (SUPPLY);S:SUPPLY (PPM);S8:SUPPLY 2138;S9:SUPPLY 2139;A:ACCOUNTS REC.;UB:UB-82;IFP:IMPREST FUNDS P.O.;IFR:IMPREST FUNDS RECEIVING REPORT;M:MAILMESSAGE;^0;1^Q"
^DD(411.02,.01,1,0)="^.1^^-1"
^DD(411.02,.01,1,1,0)="411.02^AD^MUMPS"
^DD(411.02,.01,1,1,1)="I $P(^PRC(411,DA(1),2,DA,0),U,2)]"""" S ^PRC(411,DA(1),2,""AC"",X,$E($P(^(0),U,2),1,30),DA)="""""
^DD(411.02,.01,1,1,2)="I $P(^PRC(411,DA(1),2,DA,0),U,2)]"""" K ^PRC(411,DA(1),2,""AC"",X,$E($P(^(0),U,2),1,30),DA)"
^DD(411.02,.01,1,1,"%D",0)="^^4^4^2930707^^"
^DD(411.02,.01,1,1,"%D",1,0)="This cross reference is set on one of the valid"
^DD(411.02,.01,1,1,"%D",2,0)="codes used to indicate the printer location."
^DD(411.02,.01,1,1,"%D",3,0)="The set of codes is stored in the Printer Location"
^DD(411.02,.01,1,1,"%D",4,0)="sub-field of the Printer Use field."
^DD(411.02,.01,1,2,0)="411.02^AF^MUMPS"
^DD(411.02,.01,1,2,1)="I $P(^PRC(411,DA(1),2,DA,0),U,3)]"""" S ^PRC(411,DA(1),2,""AE"",X,$P(^(0),U,3),DA)="""""
^DD(411.02,.01,1,2,2)="I $P(^PRC(411,DA(1),2,DA,0),U,3)]"""" K ^PRC(411,DA(1),2,""AE"",X,$P(^(0),U,3),DA)"
^DD(411.02,.01,1,2,"%D",0)="^^3^3^2930623^"
^DD(411.02,.01,1,2,"%D",1,0)="This cross reference is used to set the ""AE"" cross"
^DD(411.02,.01,1,2,"%D",2,0)="reference.  The ""AE"" cross reference is set on"
^DD(411.02,.01,1,2,"%D",3,0)="the name of the device."
^DD(411.02,.01,3)="Select an Admin Activity printer location to be used for certain reports that are automatically printed in various locations."
^DD(411.02,.01,21,0)="^^2^2^2930623^^"
^DD(411.02,.01,21,1,0)="This is the administrative activity"
^DD(411.02,.01,21,2,0)="printer location."
^DD(411.02,.01,"DT")="2930212"
^DD(411.02,1,0)="DEVICE^RFX^^0;2^S DIC=""^%ZIS(1,"",DIC(0)=""EMQZ"" D ^DIC K:Y'>0 X S:$D(X) X=$P(Y(0),U,1) K DIC"
^DD(411.02,1,1,0)="^.1"
^DD(411.02,1,1,1,0)="411.02^AC^MUMPS"
^DD(411.02,1,1,1,1)="S ^PRC(411,DA(1),2,""AC"",$P(^PRC(411,DA(1),2,DA,0),U,1),$E(X,1,30),DA)="""""
^DD(411.02,1,1,1,2)="K ^PRC(411,DA(1),2,""AC"",$P(^PRC(411,DA(1),2,DA,0),U,1),$E(X,1,30),DA)"
^DD(411.02,1,1,1,"%D",0)="^^1^1^2930624^^"
^DD(411.02,1,1,1,"%D",1,0)="This cross reference is set on the device name."
^DD(411.02,1,3)="Select the printer device assigned to this location"
^DD(411.02,1,4)="S ZD=D,X=""?"",DIC=""^%ZIS(1,"",DIC(0)=""EMZ"" D ^DIC S DIC=DIE,D=ZD K ZD"
^DD(411.02,1,21,0)="^^1^1^2910514^"
^DD(411.02,1,21,1,0)="This is the printer device assigned to this location."
^DD(411.02,1,"DT")="2850717"
^DD(411.02,2,0)="STACK DOCUMENTS^S^0:NO;1:YES;^0;3^Q"
^DD(411.02,2,1,0)="^.1^^0"
^DD(411.02,2,1,1,0)="411.02^AE^MUMPS"
^DD(411.02,2,1,1,1)="S ^PRC(411,DA(1),2,""AE"",$P(^PRC(411,DA(1),2,DA,0),U),X,DA)="""""
^DD(411.02,2,1,1,2)="K ^PRC(411,DA(1),2,""AE"",$P(^PRC(411,DA(1),2,DA,0),U),X,DA)"
^DD(411.02,2,1,1,"%D",0)="^^2^2^2930624^"
^DD(411.02,2,1,1,"%D",1,0)="This cross reference is set on the name of the Fiscal"
^DD(411.02,2,1,1,"%D",2,0)="stacked documents printer."
^DD(411.02,2,3)="ENTER A '1' (YES) IF YOU WISH TO HOLD DOCUMENTS FOR LATER RELEASE"
^DD(411.02,2,21,0)="^^2^2^2910514^"
^DD(411.02,2,21,1,0)="YES indicate that the documents will be held"
^DD(411.02,2,21,2,0)="for later release."
^DD(411.02,2,"DT")="2920423"
^DD(411.02,3,0)="DAYS FOR DOCUMENTS RETENTION^NJ2,0X^^0;4^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(411.02,3,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(411.02,3,21,0)="^^4^4^2920817^"
^DD(411.02,3,21,1,0)="     This field is used to calculate the date to stop purging of this file's"
^DD(411.02,3,21,2,0)="entries. If this field is blank, the default will be 7 days so that"
^DD(411.02,3,21,3,0)="entries older than 7 days are purged when the background job to purge"
^DD(411.02,3,21,4,0)="this file runs."
^DD(411.02,3,"DT")="2920806"
^DD(411.02,"B","DAYS FOR DOCUMENTS RETENTION",3)=""
^DD(411.02,"B","DEVICE",1)=""
^DD(411.02,"B","PRINTER LOCATION",.01)=""
^DD(411.02,"B","STACK DOCUMENTS",2)=""
^DD(411.02,"GL",0,1,.01)=""
^DD(411.02,"GL",0,2,1)=""
^DD(411.02,"GL",0,3,2)=""
^DD(411.02,"GL",0,4,3)=""
^DD(411.02,"IX",.01)=""
^DD(411.02,"IX",1)=""
^DD(411.02,"IX",2)=""
^DD(411.02,"RQ",1)=""
^DD(411.03,0)="MAIL INVOICE LOCATION SUB-FIELD^^7^8"
^DD(411.03,0,"DT")="2910723"
^DD(411.03,0,"IX","B",411.03,.01)=""
^DD(411.03,0,"NM","MAIL INVOICE LOCATION")=""
^DD(411.03,0,"UP")="411"
^DD(411.03,.01,0)="MAIL INVOICE LOCATION^MRFX^^0;1^K:($E(X,1)="" "")!($L(X)>20)!($L(X)<1) X"
^DD(411.03,.01,1,0)="^.1"
^DD(411.03,.01,1,1,0)="411.03^B"
^DD(411.03,.01,1,1,1)="S ^PRC(411,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(411.03,.01,1,1,2)="K ^PRC(411,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(411.03,.01,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(411.03,.01,21,0)="^^1^1^2910514^"
^DD(411.03,.01,21,1,0)="This is the mail invoice location."
^DD(411.03,.01,"DT")="2950301"
^DD(411.03,1,0)="MAIL INVOICE ADDRESS1^RF^^0;2^K:$L(X)>20!($L(X)<3) X"
^DD(411.03,1,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(411.03,1,21,0)="^^1^1^2910514^"
^DD(411.03,1,21,1,0)="This is the first address of the mail invoice location."
^DD(411.03,1,"DT")="2861118"
^DD(411.03,2,0)="MAIL INVOICE ADDRESS2^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(411.03,2,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(411.03,2,21,0)="^^1^1^2910514^"
^DD(411.03,2,21,1,0)="This is the second address of the mail invoice location."
^DD(411.03,2,"DT")="2861118"
^DD(411.03,3,0)="MAIL INVOICE ADDRESS3^F^^0;4^K:$L(X)>20!($L(X)<3) X"
^DD(411.03,3,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(411.03,3,21,0)="^^1^1^2910514^"
^DD(411.03,3,21,1,0)="This is the third address of the mail invoice location."
^DD(411.03,3,"DT")="2861118"
^DD(411.03,4,0)="MAIL INVOICE CITY^RF^^0;5^K:$L(X)>15!($L(X)<3) X"
^DD(411.03,4,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(411.03,4,21,0)="^^1^1^2910514^"
^DD(411.03,4,21,1,0)="This is the city of the mail invoice location."
^DD(411.03,4,"DT")="2861118"
^DD(411.03,5,0)="MAIL INVOICE STATE^RP5'^DIC(5,^0;6^Q"
^DD(411.03,5,21,0)="^^1^1^2910514^"
^DD(411.03,5,21,1,0)="This is the state of the mail invoice location."
^DD(411.03,5,"DT")="2861118"
^DD(411.03,6,0)="MAIL INVOICE ZIP^RFX^^0;7^K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(411.03,6,3)="ENTER A 5 DIGIT ZIP CODE OR A 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789"
^DD(411.03,6,21,0)="^^2^2^2910514^"
^DD(411.03,6,21,1,0)="This is the 5 or 9 digit zip code of the address of"
^DD(411.03,6,21,2,0)="the mail invoice location."
^DD(411.03,6,"DT")="2861122"
^DD(411.03,7,0)="BILL TO SUFFIX^FX^^0;8^K:$L(X)>3!($L(X)<3) X I $D(X) K:X'?3UN X"
^DD(411.03,7,3)="This is the Bill To Address code.  Enter 3 upper case alpha/numeric characters."
^DD(411.03,7,21,0)="^^5^5^2930204^^^"
^DD(411.03,7,21,1,0)="This field is the BILL TO code for the station.  This field is used"
^DD(411.03,7,21,2,0)="in the BI segment as a shorthand method of sending the station's"
^DD(411.03,7,21,3,0)="name and address.  This field is used within EDI.  Don't enter"
^DD(411.03,7,21,4,0)="anything in this field except BILL TO code.  This code originates"
^DD(411.03,7,21,5,0)="from Austin, Texas data processing center."
^DD(411.03,7,"DT")="2930127"
^DD(411.03,"B","BILL TO SUFFIX",7)=""
^DD(411.03,"B","MAIL INVOICE ADDRESS1",1)=""
^DD(411.03,"B","MAIL INVOICE ADDRESS2",2)=""
^DD(411.03,"B","MAIL INVOICE ADDRESS3",3)=""
^DD(411.03,"B","MAIL INVOICE CITY",4)=""
^DD(411.03,"B","MAIL INVOICE LOCATION",.01)=""
^DD(411.03,"B","MAIL INVOICE STATE",5)=""
^DD(411.03,"B","MAIL INVOICE ZIP",6)=""
^DD(411.03,"GL",0,1,.01)=""
^DD(411.03,"GL",0,2,1)=""
^DD(411.03,"GL",0,3,2)=""
^DD(411.03,"GL",0,4,3)=""
^DD(411.03,"GL",0,5,4)=""
^DD(411.03,"GL",0,6,5)=""
^DD(411.03,"GL",0,7,6)=""
^DD(411.03,"GL",0,8,7)=""
^DD(411.03,"IX",.01)=""
^DD(411.03,"RQ",.01)=""
^DD(411.03,"RQ",1)=""
^DD(411.03,"RQ",4)=""
^DD(411.03,"RQ",5)=""
^DD(411.03,"RQ",6)=""
^DD(411.04,0)="ACTIVITY ADDRESS CODE (DLA) SUB-FIELD^^1^2"
^DD(411.04,0,"IX","AC",411.04,1)=""
^DD(411.04,0,"IX","B",411.04,.01)=""
^DD(411.04,0,"NM","ACTIVITY ADDRESS CODE (DLA)")=""
^DD(411.04,0,"UP")="411"
^DD(411.04,.01,0)="ACTIVITY ADDRESS CODE (DLA)^MF^^0;1^K:$L(X)>6!($L(X)<6) X"
^DD(411.04,.01,1,0)="^.1"
^DD(411.04,.01,1,1,0)="411.04^B"
^DD(411.04,.01,1,1,1)="S ^PRC(411,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(411.04,.01,1,1,2)="K ^PRC(411,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(411.04,.01,3)="Enter 6 digit activity address code(s) for DLA.  ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(411.04,.01,21,0)="^^2^2^2911002^^^"
^DD(411.04,.01,21,1,0)="This is the six digit activity address code for Defense Logistics"
^DD(411.04,.01,21,2,0)="Agency (DLA) code sheets."
^DD(411.04,.01,"DT")="2890425"
^DD(411.04,1,0)="PRIMARY ADDRESS?^RSX^Y:YES;N:NO;^0;2^I X=""Y"",$O(^PRC(411,DA(1),5,""AC"",""Y"",0)) W !!,*7,""ANOTHER ADDRESS HAS ALREADY BEEN DESIGNATED THE PRIMARY ADDRESS!!"" K X Q"
^DD(411.04,1,1,0)="^.1"
^DD(411.04,1,1,1,0)="411.04^AC"
^DD(411.04,1,1,1,1)="S ^PRC(411,DA(1),5,""AC"",$E(X,1,30),DA)="""""
^DD(411.04,1,1,1,2)="K ^PRC(411,DA(1),5,""AC"",$E(X,1,30),DA)"
^DD(411.04,1,1,1,"%D",0)="^^1^1^2930624^"
^DD(411.04,1,1,1,"%D",1,0)="This cross reference is set on the primary address."
^DD(411.04,1,3)="Specify the primary address to be used as the default for DLA acquisitions."
^DD(411.04,1,21,0)="^^2^2^2910524^"
^DD(411.04,1,21,1,0)="This is the primary address, used as the default for DLA "
^DD(411.04,1,21,2,0)="acquisitions."
^DD(411.04,1,"DT")="2890425"
^DD(411.04,"B","ACTIVITY ADDRESS CODE (DLA)",.01)=""
^DD(411.04,"B","PRIMARY ADDRESS?",1)=""
^DD(411.04,"GL",0,1,.01)=""
^DD(411.04,"GL",0,2,1)=""
^DD(411.04,"IX",.01)=""
^DD(411.04,"IX",1)=""
^DD(411.04,"RQ",1)=""
^DD(411.045,0)="IFCAP TERMINATED USER SUB-FIELD^^.01^1"
^DD(411.045,0,"DT")="2931202"
^DD(411.045,0,"IX","B",411.045,.01)=""
^DD(411.045,0,"NM","IFCAP TERMINATED USER")=""
^DD(411.045,0,"UP")="411"
^DD(411.045,.01,0)="IFCAP TERMINATED USER^P200'X^VA(200,^0;1^S DINUM=X Q"
^DD(411.045,.01,1,0)="^.1"
^DD(411.045,.01,1,1,0)="411.045^B"
^DD(411.045,.01,1,1,1)="S ^PRC(411,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(411.045,.01,1,1,2)="K ^PRC(411,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(411.045,.01,1,1,"%D",0)="^^1^1^2941220^"
^DD(411.045,.01,1,1,"%D",1,0)="This is the cross-reference for terminated users."
^DD(411.045,.01,21,0)="^^2^2^2941220^^"
^DD(411.045,.01,21,1,0)="This is the pointer to File 200 of a user who"
^DD(411.045,.01,21,2,0)="can no longer be used as a requestor in IFCAP."
^DD(411.045,.01,"DT")="2931203"
^DD(411.045,"B","IFCAP TERMINATED USER",.01)=""
^DD(411.045,"GL",0,1,.01)=""
^DD(411.045,"IX",.01)=""
^DD(411.05,0)="AUTHORIZED FISCAL USER SUB-FIELD^^.01^1"
^DD(411.05,0,"DT")="2921222"
^DD(411.05,0,"IX","B",411.05,.01)=""
^DD(411.05,0,"NM","AUTHORIZED FISCAL USER")=""
^DD(411.05,0,"UP")="411"
^DD(411.05,.01,0)="AUTHORIZED FISCAL USER^MP200'X^VA(200,^0;1^S DINUM=X Q"
^DD(411.05,.01,1,0)="^.1^^-1"
^DD(411.05,.01,1,1,0)="411.05^B"
^DD(411.05,.01,1,1,1)="S ^PRC(411,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(411.05,.01,1,1,2)="K ^PRC(411,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(411.05,.01,3)="If you answered 'YES' to SCREEN FOR FISCAL USERS you must make entries in this field for each station."
^DD(411.05,.01,21,0)="^^3^3^2930224^^^^"
^DD(411.05,.01,21,1,0)="This is a pointer to the New Person file (#200) containing information on the"
^DD(411.05,.01,21,2,0)="Authorized Fiscal Users for each station. This information is required"
^DD(411.05,.01,21,3,0)="when replying Yes in the Screen for Fiscal User field."
^DD(411.05,.01,"DT")="2960422"
^DD(411.05,"B","AUTHORIZED FISCAL USER",.01)=""
^DD(411.05,"GL",0,1,.01)=""
^DD(411.05,"IX",.01)=""
^DD(411.2,0)="FIELD^^1^3"
^DD(411.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(411.2,0,"IX","B",411.2,.01)=""
^DD(411.2,0,"NM","FACILITY TYPE (TEMPORARY)")=""
^DD(411.2,0,"PT",411,.5)=""
^DD(411.2,0,"VR")="5.1"
^DD(411.2,0,"VRPK")="IFCAP"
^DD(411.2,.001,0)="NUMBER^NJ12,0^^ ^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(411.2,.001,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(411.2,.001,21,0)="^^1^1^2930825^^^"
^DD(411.2,.001,21,1,0)="This is the facility type number."
^DD(411.2,.01,0)="ABBREVIATED TYPE CODE^RF^^0;1^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(411.2,.01,1,0)="^.1"
^DD(411.2,.01,1,1,0)="411.2^B"
^DD(411.2,.01,1,1,1)="S ^PRC(411.2,""B"",$E(X,1,30),DA)="""""
^DD(411.2,.01,1,1,2)="K ^PRC(411.2,""B"",$E(X,1,30),DA)"
^DD(411.2,.01,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(411.2,.01,21,0)="^^1^1^2930825^^"
^DD(411.2,.01,21,1,0)="This is the abbreviated type code for the facility."
^DD(411.2,1,0)="LONG FACILITY NAME^RF^^0;2^K:$L(X)>24!($L(X)<1) X"
^DD(411.2,1,3)="This will be used as the address name for printing on P.O.s, Requisitions, etc.  ANSWER MUST BE 1-24 CHARACTERS IN LENGTH"
^DD(411.2,1,21,0)="^^2^2^2940620^^^^"
^DD(411.2,1,21,1,0)="This is the name of the facility used as the address "
^DD(411.2,1,21,2,0)="name for printing on P.O.s."
^DD(411.2,1,"DT")="2890719"
^DD(411.2,"B","ABBREVIATED TYPE CODE",.01)=""
^DD(411.2,"B","LONG FACILITY NAME",1)=""
^DD(411.2,"B","NUMBER",.001)=""
^DD(411.2,"GL",0,1,.01)=""
^DD(411.2,"GL",0,2,1)=""
^DD(411.2,"IX",.01)=""
^DD(411.2,"RQ",.01)=""
^DD(411.2,"RQ",1)=""
^DD(411.3,0)="FIELD^^12^13"
^DD(411.3,0,"DDA")="N"
^DD(411.3,0,"DT")="2940726"
^DD(411.3,0,"IX","AAA",411.3,1)=""
^DD(411.3,0,"IX","AC",411.3,9)=""
^DD(411.3,0,"IX","AD",411.3,10)=""
^DD(411.3,0,"IX","B",411.3,.01)=""
^DD(411.3,0,"NM","IFCAP CONVERSION DISCREPANCY")=""
^DD(411.3,0,"VR")="5.1"
^DD(411.3,0,"VRPK")="IFCAP"
^DD(411.3,.01,0)="DISCREPANCY ID^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(411.3,.01,1,0)="^.1"
^DD(411.3,.01,1,1,0)="411.3^B"
^DD(411.3,.01,1,1,1)="S ^PRC(411.3,""B"",$E(X,1,30),DA)="""""
^DD(411.3,.01,1,1,2)="K ^PRC(411.3,""B"",$E(X,1,30),DA)"
^DD(411.3,.01,1,2,0)="^^TRIGGER^411.3^1"
^DD(411.3,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(411.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(411.3,.01,1,2,1.1) X ^DD(411.3,.01,1,2,1.4)"
^DD(411.3,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(411.3,.01,1,2,1.4)="S DIH=$S($D(^PRC(411.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=411.3,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(411.3,.01,1,2,2)="Q"
^DD(411.3,.01,1,2,"%D",0)="^^1^1^2940613^"
^DD(411.3,.01,1,2,"%D",1,0)="This is when this error was logged."
^DD(411.3,.01,1,2,"CREATE VALUE")="NOW"
^DD(411.3,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(411.3,.01,1,2,"DT")="2940613"
^DD(411.3,.01,1,2,"FIELD")="DATE & TIME"
^DD(411.3,.01,1,3,0)="^^TRIGGER^411.3^2"
^DD(411.3,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(411.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(411.3,.01,1,3,1.4)"
^DD(411.3,.01,1,3,1.4)="S DIH=$S($D(^PRC(411.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=411.3,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(411.3,.01,1,3,2)="Q"
^DD(411.3,.01,1,3,"%D",0)="^^1^1^2940613^"
^DD(411.3,.01,1,3,"%D",1,0)="This is who ran the conversion routine when this error was found."
^DD(411.3,.01,1,3,"CREATE VALUE")="S X=DUZ"
^DD(411.3,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(411.3,.01,1,3,"DT")="2940613"
^DD(411.3,.01,1,3,"FIELD")="user"
^DD(411.3,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(411.3,.01,21,0)="^^1^1^2940620^^^^"
^DD(411.3,.01,21,1,0)="This Discrepancy ID is just a number to identify this error record."
^DD(411.3,.01,"DT")="2940613"
^DD(411.3,1,0)="DATE & TIME OF ERROR^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(411.3,1,1,0)="^.1"
^DD(411.3,1,1,1,0)="411.3^AAA^MUMPS"
^DD(411.3,1,1,1,1)="I $P(^(0),U,10)]"""" S ^PRC(411.3,""AAA"",$P(^(0),U,10),X,DA)="""""
^DD(411.3,1,1,1,2)="I $P(^(0),U,10)]"""" K ^PRC(411.3,""AAA"",$P(^(0),U,10),X,DA)"
^DD(411.3,1,1,1,"%D",0)="^^4^4^2950303^"
^DD(411.3,1,1,1,"%D",1,0)="This x-ref and the FMS CONVERSION TRANSACTION field are used"
^DD(411.3,1,1,1,"%D",2,0)="when a report is created from these errors.  This x-ref allows"
^DD(411.3,1,1,1,"%D",3,0)="the report to choose those entries that fall within a user"
^DD(411.3,1,1,1,"%D",4,0)="selected time range."
^DD(411.3,1,1,1,"DT")="2940621"
^DD(411.3,1,3)=""
^DD(411.3,1,5,1,0)="411.3^.01^2"
^DD(411.3,1,9)="^"
^DD(411.3,1,21,0)="^^2^2^2940627^"
^DD(411.3,1,21,1,0)="This is the date/time, in FileMan format, when the VENDOR conversion"
^DD(411.3,1,21,2,0)="error occurred."
^DD(411.3,1,"DT")="2940621"
^DD(411.3,2,0)="USER^P200'^VA(200,^0;3^Q"
^DD(411.3,2,3)=""
^DD(411.3,2,5,1,0)="411.3^.01^3"
^DD(411.3,2,9)="^"
^DD(411.3,2,21,0)="^^1^1^2940627^"
^DD(411.3,2,21,1,0)="This is the user, DUZ, who is running this VENDOR conversion."
^DD(411.3,2,"DT")="2940613"
^DD(411.3,3,0)="RECORD NUMBER (423.6)^P423.6'^PRCF(423.6,^0;4^Q"
^DD(411.3,3,3)="Enter the record number that caused this error."
^DD(411.3,3,21,0)="^^3^3^2940627^"
^DD(411.3,3,21,1,0)="The entry in file 423.6 that has the FMS segment that errored out."
^DD(411.3,3,21,2,0)="File 423.6 is where the FMS server placed the VENDOR Conversion"
^DD(411.3,3,21,3,0)="transaction."
^DD(411.3,3,"DT")="2940613"
^DD(411.3,4,0)="LINE NUMBER (423.6)^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<10000)!(X?.E1"".""1N.N) X"
^DD(411.3,4,3)="Enter the line number, from file 423.6, that caused this error."
^DD(411.3,4,21,0)="^^3^3^2940627^^^^"
^DD(411.3,4,21,1,0)="This is the line number within the record in file 423.6.  This record is"
^DD(411.3,4,21,2,0)="entered in response to an incoming MailMan message addressed to the FMS"
^DD(411.3,4,21,3,0)="server."
^DD(411.3,4,"DT")="2940613"
^DD(411.3,5,0)="FMS FIELD^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(411.3,5,3)="This is the FMS field that displayed this error."
^DD(411.3,5,21,0)="^^3^3^2940627^^^^"
^DD(411.3,5,21,1,0)="This is the field within the CVU segment of the IFCAP vendor conversion"
^DD(411.3,5,21,2,0)="that made this error appear.  There may be nothing wrong with this field."
^DD(411.3,5,21,3,0)="Look at the ERROR field to see what is wrong."
^DD(411.3,5,"DT")="2940613"
^DD(411.3,6,0)="ERROR^P411.4'^PRC(411.4,^0;7^Q"
^DD(411.3,6,3)="Enter the appropriate error for this problem."
^DD(411.3,6,21,0)="^^1^1^2940627^^^^"
^DD(411.3,6,21,1,0)="This is an error message pointer.  The error codes are found in file 411.4."
^DD(411.3,6,23,0)="^^2^2^2940627^^^"
^DD(411.3,6,23,1,0)="This field points to the IFCAP CONVERSION ERROR file.  This file will"
^DD(411.3,6,23,2,0)="hold all the errors from the IFCAP 5.0 CONVERSION."
^DD(411.3,6,"DT")="2940613"
^DD(411.3,7,0)="ENTRY POINT OF PROGRAM^F^^0;8^K:$L(X)>8!($L(X)<1) X"
^DD(411.3,7,3)="Answer must be 1-8 characters in length."
^DD(411.3,7,21,0)="^^2^2^2940627^"
^DD(411.3,7,21,1,0)="This is the line label within a routine.  For the VENDOR conversion it"
^DD(411.3,7,21,2,0)="is not used."
^DD(411.3,7,"DT")="2921231"
^DD(411.3,8,0)="CONVERSION PROGRAM NAME^F^^0;9^K:$L(X)>8!($L(X)<3) X"
^DD(411.3,8,3)="Answer must be 3-8 characters in length."
^DD(411.3,8,21,0)="^^2^2^2940627^"
^DD(411.3,8,21,1,0)="This is the name of a routine.  For VENDOR conversion this field is not"
^DD(411.3,8,21,2,0)="used."
^DD(411.3,8,"DT")="2921231"
^DD(411.3,9,0)="FMS CONVERSION TRANSACTION^F^^0;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X"
^DD(411.3,9,1,0)="^.1"
^DD(411.3,9,1,1,0)="411.3^AC^MUMPS"
^DD(411.3,9,1,1,1)="I $P(^(0),U,2)]"""" S ^PRC(411.3,""AAA"",X,$P(^(0),U,2),DA)="""""
^DD(411.3,9,1,1,2)="I $P(^(0),U,2)]"""" K ^PRC(411.3,""AAA"",X,$P(^(0),U,2),DA)"
^DD(411.3,9,1,1,"%D",0)="^^4^4^2950303^"
^DD(411.3,9,1,1,"%D",1,0)="This x-ref and the DATE & TIME OF ERROR field are used"
^DD(411.3,9,1,1,"%D",2,0)="when a report is created from these errors.  This x-ref allows"
^DD(411.3,9,1,1,"%D",3,0)="the reoirt to choose those entries that fall within a user"
^DD(411.3,9,1,1,"%D",4,0)="selected time range."
^DD(411.3,9,1,1,"DT")="2940621"
^DD(411.3,9,3)="Enter FMS TRANSACTION CLASS value."
^DD(411.3,9,21,0)="^^2^2^2940627^"
^DD(411.3,9,21,1,0)="This is the name of the FMS segment with the error.  See the error"
^DD(411.3,9,21,2,0)="field to find out what is actually wrong."
^DD(411.3,9,"DT")="2940621"
^DD(411.3,10,0)="442 RECORD^F^^0;11^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<1) X"
^DD(411.3,10,1,0)="^.1"
^DD(411.3,10,1,1,0)="411.3^AD^MUMPS"
^DD(411.3,10,1,1,1)="S ^PRC(411.3,""AD"",DA,$E(X,1,30))="""""
^DD(411.3,10,1,1,2)="K ^PRC(411.3,""AD"",DA,$E(X,1,30))"
^DD(411.3,10,1,1,"DT")="2940725"
^DD(411.3,10,1,2,0)="^^TRIGGER^411.3^11"
^DD(411.3,10,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(411.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DIU+1 X ^DD(411.3,10,1,2,1.4)"
^DD(411.3,10,1,2,1.4)="S DIH=$S($D(^PRC(411.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=411.3,DIG=11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(411.3,10,1,2,2)="Q"
^DD(411.3,10,1,2,"%D",0)="^^2^2^2940725^"
^DD(411.3,10,1,2,"%D",1,0)="This x-ref will keep track of how many records were converted in file"
^DD(411.3,10,1,2,"%D",2,0)="442 during the conversion."
^DD(411.3,10,1,2,"CREATE VALUE")="RECORD COUNT+1"
^DD(411.3,10,1,2,"DELETE VALUE")="NO EFFECT"
^DD(411.3,10,1,2,"DT")="2940725"
^DD(411.3,10,1,2,"FIELD")="RECORD COUNT"
^DD(411.3,10,3)="Answer must be 1-12 characters in length."
^DD(411.3,10,21,0)="^^2^2^2940725^"
^DD(411.3,10,21,1,0)="This field holds the INTERNAL ENTRY NUMBER of the last record in file 442"
^DD(411.3,10,21,2,0)="that was converted."
^DD(411.3,10,23,0)="^^6^6^2940725^"
^DD(411.3,10,23,1,0)="This field will keep track of the last record converted.  This is done to"
^DD(411.3,10,23,2,0)="allow the conversion routine PRCHPRCV to be restartable.  The conversion"
^DD(411.3,10,23,3,0)="routine will automatically pick up where it left off, without harming any"
^DD(411.3,10,23,4,0)="previously converted records."
^DD(411.3,10,23,5,0)="  "
^DD(411.3,10,23,6,0)="This field is used for the conversion of file 442 for version 5 of IFCAP."
^DD(411.3,10,"DT")="2940725"
^DD(411.3,11,0)="RECORD COUNT^NJ10,0^^0;12^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(411.3,11,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(411.3,11,5,1,0)="411.3^10^2"
^DD(411.3,11,9)="^"
^DD(411.3,11,21,0)="^^2^2^2941201^"
^DD(411.3,11,21,1,0)="This is the number of records entered into this file during"
^DD(411.3,11,21,2,0)="the conversion process."
^DD(411.3,11,"DT")="2940725"
^DD(411.3,12,0)="RECORD NUMBER (442)^P442'^PRC(442,^0;13^Q"
^DD(411.3,12,21,0)="^^1^1^2940727^"
^DD(411.3,12,21,1,0)="The internal entry number in File 442 that caused the error."
^DD(411.3,12,"DT")="2940726"
^DD(411.3,"B","442 RECORD",10)=""
^DD(411.3,"B","CONVERSION PROGRAM NAME",8)=""
^DD(411.3,"B","DATE & TIME OF ERROR",1)=""
^DD(411.3,"B","DISCREPANCY ID",.01)=""
^DD(411.3,"B","ENTRY POINT OF PROGRAM",7)=""
^DD(411.3,"B","ERROR",6)=""
^DD(411.3,"B","FMS CONVERSION TRANSACTION",9)=""
^DD(411.3,"B","FMS FIELD",5)=""
^DD(411.3,"B","LINE NUMBER (423.6)",4)=""
^DD(411.3,"B","RECORD COUNT",11)=""
^DD(411.3,"B","RECORD NUMBER (423.6)",3)=""
^DD(411.3,"B","RECORD NUMBER (442)",12)=""
^DD(411.3,"B","USER",2)=""
^DD(411.3,"GL",0,1,.01)=""
^DD(411.3,"GL",0,2,1)=""
^DD(411.3,"GL",0,3,2)=""
^DD(411.3,"GL",0,4,3)=""
^DD(411.3,"GL",0,5,4)=""
^DD(411.3,"GL",0,6,5)=""
^DD(411.3,"GL",0,7,6)=""
^DD(411.3,"GL",0,8,7)=""
^DD(411.3,"GL",0,9,8)=""
^DD(411.3,"GL",0,10,9)=""
^DD(411.3,"GL",0,11,10)=""
^DD(411.3,"GL",0,12,11)=""
^DD(411.3,"GL",0,13,12)=""
^DD(411.3,"IX",.01)=""
^DD(411.3,"IX",1)=""
^DD(411.3,"IX",9)=""
^DD(411.3,"IX",10)=""
^DD(411.3,"RQ",.01)=""
^DD(411.4,0)="FIELD^^2^3"
^DD(411.4,0,"DDA")="N"
^DD(411.4,0,"DT")="2940615"
^DD(411.4,0,"ID","X")="W ?10,$P(^(0),U,2)"
^DD(411.4,0,"IX","B",411.4,.01)=""
^DD(411.4,0,"NM","IFCAP CONVERSION ERROR")=""
^DD(411.4,0,"PT",411.3,6)=""
^DD(411.4,0,"VR")="5.1"
^DD(411.4,0,"VRPK")="IFCAP"
^DD(411.4,.01,0)="ERROR CODE^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(411.4,.01,1,0)="^.1"
^DD(411.4,.01,1,1,0)="411.4^B"
^DD(411.4,.01,1,1,1)="S ^PRC(411.4,""B"",$E(X,1,30),DA)="""""
^DD(411.4,.01,1,1,2)="K ^PRC(411.4,""B"",$E(X,1,30),DA)"
^DD(411.4,.01,3)="Enter the ERROR CODE number for this error.  Use a number from 1 to 999999999 with no decimal digits."
^DD(411.4,.01,21,0)="^^1^1^2940620^^^^"
^DD(411.4,.01,21,1,0)="This is the ERROR CODE for the IFCAP CONVERSION DISCREPANCY file."
^DD(411.4,.01,23,0)="^^1^1^2940620^^^^"
^DD(411.4,.01,23,1,0)="The ERROR CODE is DINUMed."
^DD(411.4,.01,"DT")="2940613"
^DD(411.4,1,0)="ERROR MESSAGE^411.41^^1;0"
^DD(411.4,1,21,0)="^^1^1^2941201^"
^DD(411.4,1,21,1,0)="This is the text which describes the error in full."
^DD(411.4,2,0)="TITLE^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(411.4,2,3)="Enter the 'title' of this error, 3 to 30 characters in length."
^DD(411.4,2,21,0)="^^1^1^2941201^"
^DD(411.4,2,21,1,0)="This is the short name or title for this conversion error."
^DD(411.4,2,"DT")="2940615"
^DD(411.4,"B","ERROR CODE",.01)=""
^DD(411.4,"B","ERROR MESSAGE",1)=""
^DD(411.4,"B","TITLE",2)=""
^DD(411.4,"GL",0,1,.01)=""
^DD(411.4,"GL",0,2,2)=""
^DD(411.4,"GL",1,0,1)=""
^DD(411.4,"IX",.01)=""
^DD(411.4,"RQ",.01)=""
^DD(411.4,"SB",411.41,1)=""
^DD(411.41,0)="ERROR MESSAGE SUB-FIELD^^.01^1"
^DD(411.41,0,"DT")="2940613"
^DD(411.41,0,"NM","ERROR MESSAGE")=""
^DD(411.41,0,"UP")="411.4"
^DD(411.41,.01,0)="ERROR MESSAGE^WL^^0;1^Q"
^DD(411.41,.01,3)="This is the description of the error, finally."
^DD(411.41,.01,21,0)="^^1^1^2941201^^"
^DD(411.41,.01,21,1,0)="This is the text which describes the error in full."
^DD(411.41,.01,"DT")="2940613"
^DD(411.41,"B","ERROR MESSAGE",.01)=""
^DD(411.41,"GL",0,1,.01)=""
^DD(411.5,0)="FIELD^^2^3"
^DD(411.5,0,"DDA")="N"
^DD(411.5,0,"DT")="2970905"
^DD(411.5,0,"IX","B",411.5,.01)=""
^DD(411.5,0,"NM","IFCAP PARAMETERS")=""
^DD(411.5,0,"VR")="5.1"
^DD(411.5,0,"VRPK")="IFCAP"
^DD(411.5,.01,0)="NAME^RFX^^0;1^S DINUM=1 K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(411.5,.01,1,0)="^.1"
^DD(411.5,.01,1,1,0)="411.5^B"
^DD(411.5,.01,1,1,1)="S ^PRC(411.5,""B"",$E(X,1,30),DA)="""""
^DD(411.5,.01,1,1,2)="K ^PRC(411.5,""B"",$E(X,1,30),DA)"
^DD(411.5,.01,3)="Only one record will be created in this file.  That record will be entry 1."
^DD(411.5,.01,8.5)="^"
^DD(411.5,.01,9)="^"
^DD(411.5,.01,21,0)="^^9^9^2990806^^^^"
^DD(411.5,.01,21,1,0)="This is the IFCAP parameter record.  It will name entries that are not"
^DD(411.5,.01,21,2,0)="site specific but are specific to the computer system that is running"
^DD(411.5,.01,21,3,0)="IFCAP."
^DD(411.5,.01,21,4,0)="   "
^DD(411.5,.01,21,5,0)="This file will have only one record.  Any IFCAP specific parameters will"
^DD(411.5,.01,21,6,0)="be entered as different fields within this one record."
^DD(411.5,.01,21,7,0)="   "
^DD(411.5,.01,21,8,0)="This file will be set up with the only record being internal entry number"
^DD(411.5,.01,21,9,0)="1.  The user will not be allowed to change or delete that one entry."
^DD(411.5,.01,"DT")="2970905"
^DD(411.5,1,0)="DAYS TO RETAIN^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(411.5,1,3)="Enter the number of days to retain records in the EDI STATUS FILE (1 to 9999 days)"
^DD(411.5,1,21,0)="^^10^10^2970904^"
^DD(411.5,1,21,1,0)="This field will control how many days records in the EDI STATUS FILE"
^DD(411.5,1,21,2,0)="(#443.75) will be retained.  Any records older than this fields number"
^DD(411.5,1,21,3,0)="of days will be removed from the file."
^DD(411.5,1,21,4,0)="   "
^DD(411.5,1,21,5,0)="If no value is entered in this field all records over 60 days will be"
^DD(411.5,1,21,6,0)="removed."
^DD(411.5,1,21,7,0)="   "
^DD(411.5,1,21,8,0)="The DATE/TIME CREATED field (#6) in the EDI STATUS FILE will be used as"
^DD(411.5,1,21,9,0)="the date governing when the record was entered into the file.  Any date"
^DD(411.5,1,21,10,0)="before the magic date will be removed."
^DD(411.5,1,"DT")="2970904"
^DD(411.5,2,0)="EDI PURGE QUEUED^S^1:YES;^0;3^Q"
^DD(411.5,2,21,0)="^^3^3^2970905^"
^DD(411.5,2,21,1,0)="This field will be set when the background task to remove records over"
^DD(411.5,2,21,2,0)="XXX days old from file 443.75 is tasked.   This will show up as any record over"
^DD(411.5,2,21,3,0)="XXX days old will not be available in the EDI/RFQ Report option."
^DD(411.5,2,"DT")="2970905"
^DD(411.5,"B","DAYS TO RETAIN",1)=""
^DD(411.5,"B","EDI PURGE QUEUED",2)=""
^DD(411.5,"B","NAME",.01)=""
^DD(411.5,"GL",0,1,.01)=""
^DD(411.5,"GL",0,2,1)=""
^DD(411.5,"GL",0,3,2)=""
^DD(411.5,"IX",.01)=""
^DD(411.5,"RQ",.01)=""
^DD(413,0)="FIELD^^129^91"
^DD(413,0,"DDA")="N"
^DD(413,0,"DIK")="PRCNX"
^DD(413,0,"DIKOLD")="PRCNX"
^DD(413,0,"DT")="2960823"
^DD(413,0,"ID",6)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCN(413.5,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(413.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(413,0,"IX","AC",413,6)=""
^DD(413,0,"IX","AD",413,5)=""
^DD(413,0,"IX","AE",413,2)=""
^DD(413,0,"IX","B",413,.01)=""
^DD(413,0,"IX","E",413,49)=""
^DD(413,0,"IX","P",413,34)=""
^DD(413,0,"NM","EQUIPMENT REQUEST")=""
^DD(413,0,"PT",413.1,8)=""
^DD(413,0,"VR")="1.0"
^DD(413,0,"VRPK")="EQUIPMENT/TURN-IN REQUEST"
^DD(413,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(413,.001,21,0)="^^1^1^2950619^"
^DD(413,.001,21,1,0)="Internal number for each equipment request."
^DD(413,.001,"DT")="2921023"
^DD(413,.01,0)="TRANSACTION NUMBER^RF^^0;1^K:$L(X)>17!($L(X)<15)!'(X'?1P.E) X"
^DD(413,.01,1,0)="^.1"
^DD(413,.01,1,1,0)="413^B"
^DD(413,.01,1,1,1)="S ^PRCN(413,""B"",$E(X,1,30),DA)="""""
^DD(413,.01,1,1,2)="K ^PRCN(413,""B"",$E(X,1,30),DA)"
^DD(413,.01,1,1,"%D",0)="^^1^1^2940426^"
^DD(413,.01,1,1,"%D",1,0)="This cross-reference is by the generated transaction number."
^DD(413,.01,3)="Format is Station#-CMR#-FY-#####."
^DD(413,.01,21,0)="^^3^3^2940414^^"
^DD(413,.01,21,1,0)="This is the temporary transaction number that is calculated based"
^DD(413,.01,21,2,0)="on the facility number, the CMR Official, the fiscal year and a "
^DD(413,.01,21,3,0)="sequential number."
^DD(413,.01,"DT")="2920827"
^DD(413,1,0)="REQUESTOR^P200'^VA(200,^0;2^Q"
^DD(413,1,21,0)="^^2^2^2950620^^^"
^DD(413,1,21,1,0)="This is the person who initiates the request.  It defaults from the"
^DD(413,1,21,2,0)="DUZ number."
^DD(413,1,"DT")="2920827"
^DD(413,2,0)="REQUESTING SERVICE^P49'^DIC(49,^0;3^Q"
^DD(413,2,1,0)="^.1"
^DD(413,2,1,1,0)="413^AE"
^DD(413,2,1,1,1)="S ^PRCN(413,""AE"",$E(X,1,30),DA)="""""
^DD(413,2,1,1,2)="K ^PRCN(413,""AE"",$E(X,1,30),DA)"
^DD(413,2,1,1,"%D",0)="^^1^1^2950627^"
^DD(413,2,1,1,"%D",1,0)="This cross-reference is by the requesting service for report usage."
^DD(413,2,1,1,"DT")="2950627"
^DD(413,2,21,0)="^^2^2^2931110^"
^DD(413,2,21,1,0)="This is the requestor's service that is calculated from their"
^DD(413,2,21,2,0)="entry in the New Person file."
^DD(413,2,"DT")="2920827"
^DD(413,3,0)="REQUEST DATE/TIME^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(413,3,21,0)="^^3^3^2931110^"
^DD(413,3,21,1,0)="This is the actual date and time that the request was initialized."
^DD(413,3,21,2,0)="This automatically defaults from the current date and time when the"
^DD(413,3,21,3,0)="request is being entered."
^DD(413,3,"DT")="2920827"
^DD(413,4,0)="STATION NUMBER^P411'^PRC(411,^0;5^Q"
^DD(413,4,21,0)="^^3^3^2931110^"
^DD(413,4,21,1,0)="This is the station number that will automatically default if there"
^DD(413,4,21,2,0)="is only one station numer otherwise, the requestor will be prompted"
^DD(413,4,21,3,0)="for it."
^DD(413,4,"DT")="2920827"
^DD(413,4.5,0)="CMR^P6914.1'^ENG(6914.1,^0;16^Q"
^DD(413,4.5,1,0)="^.1"
^DD(413,4.5,1,1,0)="^^TRIGGER^413^5"
^DD(413,4.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^ENG(6914.1,X,0),U,2) X ^DD(413,4.5,1,1,1.4)"
^DD(413,4.5,1,1,1.4)="S DIH=$S($D(^PRCN(413,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=413,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(413,4.5,1,1,2)="Q"
^DD(413,4.5,1,1,"%D",0)="^^1^1^2950805^"
^DD(413,4.5,1,1,"%D",1,0)="This triggers the CMR Official when selecting a particular CMR."
^DD(413,4.5,1,1,"CREATE VALUE")="S X=$P(^ENG(6914.1,X,0),U,2)"
^DD(413,4.5,1,1,"DELETE VALUE")="NO EFFECT"
^DD(413,4.5,1,1,"DT")="2950805"
^DD(413,4.5,1,1,"FIELD")="#5"
^DD(413,4.5,3)="Please select the CMR who will have responsibility for this equipment."
^DD(413,4.5,21,0)="^^2^2^2931110^^"
^DD(413,4.5,21,1,0)="This is the CMR number who will ultimately be responsible for the"
^DD(413,4.5,21,2,0)="equipment when ordered and received."
^DD(413,4.5,"DT")="2950805"
^DD(413,5,0)="CMR RESPONSIBLE OFFICIAL^P200'^VA(200,^0;6^Q"
^DD(413,5,1,0)="^.1"
^DD(413,5,1,1,0)="413^AD"
^DD(413,5,1,1,1)="S ^PRCN(413,""AD"",$E(X,1,30),DA)="""""
^DD(413,5,1,1,2)="K ^PRCN(413,""AD"",$E(X,1,30),DA)"
^DD(413,5,1,1,"%D",0)="^^1^1^2940426^"
^DD(413,5,1,1,"%D",1,0)="This is a cross-reference by the CMR responsible official."
^DD(413,5,1,1,"DT")="2921104"
^DD(413,5,5,1,0)="413^4.5^1"
^DD(413,5,21,0)="^^3^3^2931110^"
^DD(413,5,21,1,0)="This is the person who is associated with a particular CMR.  This"
^DD(413,5,21,2,0)="is defaulted when a CMR is selected and all messages will be"
^DD(413,5,21,3,0)="directed to this person."
^DD(413,5,"DT")="2921104"
^DD(413,6,0)="REQUEST STATUS^P413.5'^PRCN(413.5,^0;7^Q"
^DD(413,6,1,0)="^.1"
^DD(413,6,1,1,0)="413^AC"
^DD(413,6,1,1,1)="S ^PRCN(413,""AC"",$E(X,1,30),DA)="""""
^DD(413,6,1,1,2)="K ^PRCN(413,""AC"",$E(X,1,30),DA)"
^DD(413,6,1,1,"%D",0)="^^1^1^2940426^"
^DD(413,6,1,1,"%D",1,0)="This is a cross-reference by request status."
^DD(413,6,1,1,"DT")="2921020"
^DD(413,6,21,0)="^^2^2^2931110^"
^DD(413,6,21,1,0)="This is the status of the request.  It is set at the completion of"
^DD(413,6,21,2,0)="each step of the process."
^DD(413,6,"DT")="2921020"
^DD(413,7,0)="STATUS DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413,7,21,0)="^^2^2^2931210^"
^DD(413,7,21,1,0)="This date is automatically set whenever the status on a request"
^DD(413,7,21,2,0)="changes.  It is the date that status was applied to the request."
^DD(413,7,"DT")="2920910"
^DD(413,8,0)="REQUEST TYPE^RS^A:ADDITIONAL;R:REPLACEMENT;I:INITIAL;^0;9^Q"
^DD(413,8,3)="Select appropriate type for this request. Additional for new equipment, Initial for project equipment, and Replacement for equipment to be replaced."
^DD(413,8,21,0)="^^3^3^2940504^^"
^DD(413,8,21,1,0)="There are three type of requests.  Each request type may ask some"
^DD(413,8,21,2,0)="different front-end questions.  Replacement type will also create"
^DD(413,8,21,3,0)="an accompanying turn-in request."
^DD(413,8,"DT")="2921001"
^DD(413,9,0)="PROJECT NUMBER^FX^^0;10^D INP^PRCNPROJ Q"
^DD(413,9,3)="ENTER THE OFFICIALLY ASSIGNED PROJECT NUMBER (must begin with 3 numerics and use dashes as delimiters)"
^DD(413,9,4)="D LKUP^PRCNPROJ"
^DD(413,9,21,0)="^^6^6^2931201^^"
^DD(413,9,21,1,0)=" The principal identifier of entries in the CONSTRUCTION PROJECT file."
^DD(413,9,21,2,0)="Format should be either 'SSS-NNN' or 'SSS-YY-NNN'; where SSS is the"
^DD(413,9,21,3,0)="facility number and NNN is a sequential project number."
^DD(413,9,21,4,0)=" YY is usually the fiscal year in which an NRM request is submitted,"
^DD(413,9,21,5,0)="but may also be used for a two-character alphabetic project category"
^DD(413,9,21,6,0)="designation."
^DD(413,9,21,7,0)=" Note that the facility number need not always be the number of the VAMC."
^DD(413,9,21,8,0)="For example, if you are reporting on a National Cemetery project the first"
^DD(413,9,21,9,0)="3 digits will generally be the facility number of the National Cemetery"
^DD(413,9,21,10,0)="itself."
^DD(413,9,21,11,0)=" If you have questions about official project numbers, please"
^DD(413,9,21,12,0)="consult your Project Manager in the Region."
^DD(413,9,"DT")="2931110"
^DD(413,9.1,0)="PROJECT MANAGER^P200'^VA(200,^0;17^Q"
^DD(413,9.1,3)="Please enter the Project Manager"
^DD(413,9.1,21,0)="^^2^2^2931210^"
^DD(413,9.1,21,1,0)="The person in charge of a particular project if a project number"
^DD(413,9.1,21,2,0)="was entered."
^DD(413,9.1,"DT")="2931109"
^DD(413,10,0)="TURN-IN REQUEST^P413.1'^PRCN(413.1,^0;11^Q"
^DD(413,10,21,0)="^^3^3^2931210^"
^DD(413,10,21,1,0)="This points to the accompanying turn-in request from the turn-in"
^DD(413,10,21,2,0)="request file (413.1).  The request and the turn-in are tied to"
^DD(413,10,21,3,0)="each other."
^DD(413,10,"DT")="2920910"
^DD(413,11,0)="REQUESTOR PHONE^F^^0;12^K:$L(X)>20!($L(X)<4) X"
^DD(413,11,3)="Enter the phone number of the requestor"
^DD(413,11,21,0)="^^2^2^2931210^"
^DD(413,11,21,1,0)="This is the phone number of the requestor and should default"
^DD(413,11,21,2,0)="from new person file."
^DD(413,11,"DT")="2920917"
^DD(413,12,0)="DATE REQUIRED BY^RDX^^0;13^S %DT=""EF"" D ^%DT S X=Y K:Y<1!(Y<DT) X"
^DD(413,12,3)="Enter the date this requested equipment is needed by."
^DD(413,12,21,0)="^^1^1^2931210^"
^DD(413,12,21,1,0)="This date is required for a 2237."
^DD(413,12,"DT")="2931109"
^DD(413,13,0)="SORT^P410.7^PRCS(410.7,^0;14^Q"
^DD(413,13,21,0)="^^4^4^2931210^^^^"
^DD(413,13,21,1,0)="This Sort Group field may be used to group together all"
^DD(413,13,21,2,0)="transactions (requests) that relate to a specific project,"
^DD(413,13,21,3,0)="work order, investigator, food group, doctor, etc."
^DD(413,13,21,4,0)="This is the previous 'Project Number' field."
^DD(413,13,"DT")="2920917"
^DD(413,14,0)="CLASSIFICATION^P410.2^PRCS(410.2,^0;15^Q"
^DD(413,14,21,0)="^^3^3^2910514"
^DD(413,14,21,1,0)="This Classification of Request field allows you "
^DD(413,14,21,2,0)="to classify and/or categorize all transactions"
^DD(413,14,21,3,0)="(requests) for supplies, services, etc."
^DD(413,14,"DT")="2920917"
^DD(413,15,0)="LINE ITEM NUMBER^413.015A^^1;0"
^DD(413,15,21,0)="^^1^1^2960823^^^^"
^DD(413,15,21,1,0)="This is a item that is being entered for the request."
^DD(413,15,"DT")="2960823"
^DD(413,16,0)="CHANGE IN PERSONNEL^RS^Y:YES;N:NO;^2;1^Q"
^DD(413,16,3)="Enter 'Y' if there will be any changes in number and/or grades of personnel."
^DD(413,16,21,0)="^^2^2^2931210^"
^DD(413,16,21,1,0)="If any change in personnel is needed because of the acquisition"
^DD(413,16,21,2,0)="of this item, either more people needed or less."
^DD(413,16,"DT")="2921016"
^DD(413,17,0)="JCAHO,CAP,SAFETY DEFICIENCY^RS^Y:YES;N:NO;^2;2^Q"
^DD(413,17,3)="Enter 'Y' if there are any JCAHO, CAP, or other safety deficiency for ordering this equipment."
^DD(413,17,21,0)="^^2^2^2950619^^"
^DD(413,17,21,1,0)="This should be answered if there is any special safety considerations"
^DD(413,17,21,2,0)="with requesting this equipment."
^DD(413,17,"DT")="2921016"
^DD(413,18,0)="CHANGE IN RECURRING COSTS^RS^I:INCREASE;D:DECREASE;N:NO CHANGE;^2;3^Q"
^DD(413,18,3)="Enter the estimated change in recurring costs if this equipment is ordered."
^DD(413,18,21,0)="^^3^3^2950619^^"
^DD(413,18,21,1,0)="This should indicate whether there are any savings by acquiring"
^DD(413,18,21,2,0)="this equipment or increased costs.  If other than no change, some"
^DD(413,18,21,3,0)="other questions will be asked."
^DD(413,18,"DT")="2921216"
^DD(413,19,0)="SUFFICIENT FUNDS BUDGETED?^RS^Y:YES;N:NO;^2;4^Q"
^DD(413,19,3)="Enter 'Y' if sufficient funds have been budgeted to purchase this equipment."
^DD(413,19,21,0)="^^3^3^2931210^"
^DD(413,19,21,1,0)="If there is an increase in recurring costs, the requestor should"
^DD(413,19,21,2,0)="indicate whether sufficients funds have been budgeted for this"
^DD(413,19,21,3,0)="item."
^DD(413,19,"DT")="2921016"
^DD(413,20,0)="ANNUAL RECURRING SUPPLY COST^RNJ10,2^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(413,20,3)="Enter the estimated annual cost of recurring supplies for this equipment"
^DD(413,20,21,0)="^^2^2^2931210^"
^DD(413,20,21,1,0)="Any supply costs that may need to be budgeted for the future"
^DD(413,20,21,2,0)="if this is acquired."
^DD(413,20,"DT")="2930105"
^DD(413,21,0)="TRAINING NEEDED?^RS^Y:YES;N:NO;^2;6^Q"
^DD(413,21,3)="Enter 'Yes' if any special training will be needed to operate this new piece of equipment if purchased."
^DD(413,21,21,0)="^^2^2^2931210^"
^DD(413,21,21,1,0)="By ordering this equipment, whether new training will be needed"
^DD(413,21,21,2,0)="to use it."
^DD(413,21,"DT")="2921019"
^DD(413,22,0)="EST. TRAINING COST^NJ9,2^^2;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(413,22,3)="Enter the estimated costs of any training needed for this equipment"
^DD(413,22,21,0)="^^1^1^2931210^"
^DD(413,22,21,1,0)="A estimated cost of any training needed."
^DD(413,22,"DT")="2921019"
^DD(413,23,0)="MAINT. CONTRACT RECOMMENDED^RS^Y:YES;N:NO;^2;8^Q"
^DD(413,23,3)="Enter 'Yes' if a maintenance contract comes with the item or is recommended for the item."
^DD(413,23,21,0)="^^2^2^2931201^"
^DD(413,23,21,1,0)="Do you think that a maintenance contract on the equipment that you"
^DD(413,23,21,2,0)="are requesting would be desirable?"
^DD(413,23,"DT")="2921019"
^DD(413,24,0)="MAINT. CONTRACT COST^RNJ10,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(413,24,3)="Enter the estimated cost for a recommended maintenance contract"
^DD(413,24,21,0)="^^2^2^2931210^"
^DD(413,24,21,1,0)="Any estimated maintenance cost if a maintenance contract is"
^DD(413,24,21,2,0)="obtained for this equipment."
^DD(413,24,"DT")="2930105"
^DD(413,25,0)="SPACE AVAILABLE?^RS^Y:YES;N:NO;^2;10^Q"
^DD(413,25,3)="Enter 'Yes' if space is currently available for this equipment"
^DD(413,25,21,0)="^^2^2^2931201^"
^DD(413,25,21,1,0)="Do you presently have sufficient space to accommodate the"
^DD(413,25,21,2,0)="equipment that you are requesting?"
^DD(413,25,"DT")="2921019"
^DD(413,26,0)="LOCATION^F^^2;11^K:$L(X)>25!($L(X)<1) X"
^DD(413,26,3)="Enter the location where this item would be located if space is available."
^DD(413,26,4)="D LOCHLP^PRCNUTL1"
^DD(413,26,21,0)="^^4^4^2931201^"
^DD(413,26,21,1,0)="The exact location of the proposed equipment.  Try to format your"
^DD(413,26,21,2,0)="response as ROOM-BUILDING-DIVISION (if applicable).  If the requested"
^DD(413,26,21,3,0)="equipment is portable and subject to use in many different locations,"
^DD(413,26,21,4,0)="please enter PORTABLE instead of a physical location."
^DD(413,26,23,0)="^^3^3^2931201^"
^DD(413,26,23,1,0)="The location will first point to the Location file, if the"
^DD(413,26,23,2,0)="potential location is not in the Location file, a free text"
^DD(413,26,23,3,0)="response will be accepted."
^DD(413,26,"DT")="2921019"
^DD(413,26.5,0)="SPACE FILE PTR.^P6928'^ENG(""SP"",^2;19^Q"
^DD(413,26.5,21,0)="^^2^2^2931210^^"
^DD(413,26.5,21,1,0)="If a location was selected from the Space file, the internal"
^DD(413,26.5,21,2,0)="pointer number will be filed here.  User doesn't see this."
^DD(413,26.5,"DT")="2921215"
^DD(413,27,0)="INSTALLATION NEEDED?^RS^Y:YES;N:NO;^2;12^Q"
^DD(413,27,3)="Enter 'Yes' if the Engineering Department must install equipment"
^DD(413,27,21,0)="^^3^3^2931201^^"
^DD(413,27,21,1,0)="This question must be answered 'Yes' if the Engineering Department"
^DD(413,27,21,2,0)="must install any of the equipment in the request when it has been"
^DD(413,27,21,3,0)="ordered and received."
^DD(413,27,"DT")="2921019"
^DD(413,28,0)="UTILITIES REQUIRED^413.028SA^^3;0"
^DD(413,28,21,0)="^^3^3^2950605^^"
^DD(413,28,21,1,0)="This field is to tell Engineering what kind of work might be"
^DD(413,28,21,2,0)="needed to install this equipment when received so they can"
^DD(413,28,21,3,0)="allocate their resources."
^DD(413,29,0)="OTHER UTILITIES^F^^2;13^K:$L(X)>50!($L(X)<1) X"
^DD(413,29,3)="Enter a free text other utility up to 50 characters"
^DD(413,29,21,0)="^^2^2^2931201^"
^DD(413,29,21,1,0)="Explain what you had in mind when you selected 'Other' as a required"
^DD(413,29,21,2,0)="utility."
^DD(413,29,"DT")="2921019"
^DD(413,30,0)="SERVICE CONTACT^P200'^VA(200,^2;14^Q"
^DD(413,30,1,0)="^.1"
^DD(413,30,1,1,0)="^^TRIGGER^413^31"
^DD(413,30,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413,D0,2)):^(2),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$P($G(^VA(200,X,.13)),U,2) X ^DD(413,30,1,1,1.4)"
^DD(413,30,1,1,1.4)="S DIH=$S($D(^PRCN(413,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,15)=DIV,DIH=413,DIG=31 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(413,30,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413,D0,2)):^(2),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" X ^DD(413,30,1,1,2.4)"
^DD(413,30,1,1,2.4)="S DIH=$S($D(^PRCN(413,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,15)=DIV,DIH=413,DIG=31 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(413,30,1,1,"%D",0)="^^2^2^2960614^^"
^DD(413,30,1,1,"%D",1,0)="The Service Contact phone field is triggered from the Office Phone"
^DD(413,30,1,1,"%D",2,0)="field in the New Person file (.132)."
^DD(413,30,1,1,"CREATE VALUE")="S X=$P($G(^VA(200,X,.13)),U,2) I X="""" K X Q"
^DD(413,30,1,1,"DELETE VALUE")="Q"
^DD(413,30,1,1,"DT")="2940318"
^DD(413,30,1,1,"FIELD")="#31"
^DD(413,30,3)="Enter the name of a service contact if other than requestor if more information is required."
^DD(413,30,21,0)="^^2^2^2960307^^"
^DD(413,30,21,1,0)="This is a person other than the requestor that the CMR Official or"
^DD(413,30,21,2,0)="Personal Property Manager may refer back to for further questions."
^DD(413,30,"DT")="2940318"
^DD(413,31,0)="SERVICE CONTACT PHONE^F^^2;15^K:$L(X)>20!($L(X)<4) X"
^DD(413,31,3)="Enter the phone number of the service contact."
^DD(413,31,5,1,0)="413^30^1"
^DD(413,31,21,0)="^^2^2^2940414^"
^DD(413,31,21,1,0)="This phone number is triggered from the OFFICE PHONE field of the"
^DD(413,31,21,2,0)="NEW PERSON File (#200)."
^DD(413,31,"DT")="2921019"
^DD(413,32,0)="CMR OFFICIAL APPROVAL^RS^Y:YES;N:NO;^2;16^Q"
^DD(413,32,3)="Enter 'Yes' if you approve this request."
^DD(413,32,21,0)="^^2^2^2940414^"
^DD(413,32,21,1,0)="If the primary CMR Responsible Official does not approve a request,"
^DD(413,32,21,2,0)="the request will be returned to the requestor."
^DD(413,32,"DT")="2921019"
^DD(413,33,0)="CHIEF SUPPLY APPROVAL^S^Y:YES;N:NO;^8;4^Q"
^DD(413,33,3)="Enter 'Yes' if you wish to approve this request."
^DD(413,33,21,0)="^^3^3^2940414^"
^DD(413,33,21,1,0)="The Chief of Supply should indicate whether the request is"
^DD(413,33,21,2,0)="approved or not.  If the request is not approved, it will be"
^DD(413,33,21,3,0)="returned to the requestor."
^DD(413,33,"DT")="2940406"
^DD(413,34,0)="CMR PRIORITY^NJ3,0X^^2;18^D EN^PRCNCMRP"
^DD(413,34,1,0)="^.1"
^DD(413,34,1,1,0)="413^P^MUMPS"
^DD(413,34,1,1,1)="S SK=0 D XREF^PRCNCMRP K SK"
^DD(413,34,1,1,2)="S SK=1 D XREF^PRCNCMRP K SK"
^DD(413,34,1,1,"%D",0)="^^2^2^2940426^^"
^DD(413,34,1,1,"%D",1,0)="This cross-reference sets the priority by the requestor's"
^DD(413,34,1,1,"%D",2,0)="service so that all requests are ranked by service."
^DD(413,34,1,1,"DT")="2921106"
^DD(413,34,3)="Enter the number that you consider to be the priority of this request. (1-999)"
^DD(413,34,4)="D DPRI^PRCNCMRP"
^DD(413,34,21,0)="^^4^4^2940414^"
^DD(413,34,21,1,0)="This priority lets the Personal Property Manager (PPM) have"
^DD(413,34,21,2,0)="some idea of what items might be considered more critical.  It"
^DD(413,34,21,3,0)="will also help the Equipment Committee during its' review"
^DD(413,34,21,4,0)="process."
^DD(413,34,"DT")="2960806"
^DD(413,35,0)="NX EQUIPMENT?^RS^Y:YES;N:NO;^4;1^Q"
^DD(413,35,3)="Enter 'Yes' if this equipment is considered to be non-expendable equipment."
^DD(413,35,21,0)="^^3^3^2950805^^"
^DD(413,35,21,1,0)="The Personal Property Manager (PPM) makes the final determination"
^DD(413,35,21,2,0)="on whether the equipment being requested is really considered items"
^DD(413,35,21,3,0)="for CMR responsibility."
^DD(413,35,"DT")="2940630"
^DD(413,36,0)="CONTROLLED ITEM?^RS^Y:YES;N:NO;^4;2^Q"
^DD(413,36,3)="Enter 'Yes' if items on this request must be approved by Central Office."
^DD(413,36,21,0)="^^5^5^2940414^"
^DD(413,36,21,1,0)="The Personal Property Manager (PPM) has a list of criteria that"
^DD(413,36,21,2,0)="determines whether equipment is considered controlled or not.  If"
^DD(413,36,21,3,0)="equipment being requested is considered controlled, it must go"
^DD(413,36,21,4,0)="through Central Office approval process before continuing on to"
^DD(413,36,21,5,0)="the Equipment Committee."
^DD(413,36,"DT")="2921019"
^DD(413,37,0)="SHORT DESCRIPTION^F^^0;18^K:$L(X)>20!($L(X)<1) X"
^DD(413,37,3)="Answer must be 1-20 characters in length."
^DD(413,37,21,0)="^^3^3^2960313^"
^DD(413,37,21,1,0)="This field is taking the first 20 characters of the line"
^DD(413,37,21,2,0)="item description (which is a word-processing field) and"
^DD(413,37,21,3,0)="setting that into a single field for reports."
^DD(413,37,"DT")="2960313"
^DD(413,45,0)="CONCURRENCE NEEDED?^RS^Y:YES;N:NO;^4;11^Q"
^DD(413,45,3)="Enter 'Yes' if you feel other persons need to review and approve this equipment request."
^DD(413,45,21,0)="^^4^4^2940415^"
^DD(413,45,21,1,0)="If other users in the facility may be affected by the purchase"
^DD(413,45,21,2,0)="of the requested items, then answering 'Yes' to this question"
^DD(413,45,21,3,0)="will provide the selected concurring officials the chance to"
^DD(413,45,21,4,0)="review and decide on approval of the request."
^DD(413,45,"DT")="2921019"
^DD(413,46,0)="CONCURRING OFFICIALS^413.046P^^5;0"
^DD(413,46,21,0)="^^1^1^2950620^"
^DD(413,46,21,1,0)="This can be other persons selected to review the request."
^DD(413,47,0)="EQUIPMENT COMMITTEE STATUS^S^DD:Disapproved;DF:Deferred;AP:Approved-Pending Funds;AF:Approved-Funded;^6;1^Q"
^DD(413,47,3)="Enter the final status of this equipment request."
^DD(413,47,21,0)="^^2^2^2940415^"
^DD(413,47,21,1,0)="This is the final status determined by the Equipment Committee"
^DD(413,47,21,2,0)="for this request."
^DD(413,47,"DT")="2921019"
^DD(413,48,0)="EQUIP. COMMITTEE STATUS DATE^D^^6;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413,48,3)="Enter the date that the Equipment Committee or surrogate completed the final status of this request."
^DD(413,48,21,0)="^^3^3^2940415^"
^DD(413,48,21,1,0)="This is the date that the Equipment Committee's final disposition"
^DD(413,48,21,2,0)="of the request was made.  This will be set automatically when the"
^DD(413,48,21,3,0)="status is filed."
^DD(413,48,"DT")="2921019"
^DD(413,49,0)="EQUIPMENT COMMITTEE RANKING^NJ3,0X^^6;3^D EN^PRCNRNK"
^DD(413,49,1,0)="^.1"
^DD(413,49,1,1,0)="413^E"
^DD(413,49,1,1,1)="S ^PRCN(413,""E"",$E(X,1,30),DA)="""""
^DD(413,49,1,1,2)="K ^PRCN(413,""E"",$E(X,1,30),DA)"
^DD(413,49,1,1,"%D",0)="^^2^2^2940426^"
^DD(413,49,1,1,"%D",1,0)="This is the ranking by importance of requests by the Equipment"
^DD(413,49,1,1,"%D",2,0)="Committee or their designated surrogate."
^DD(413,49,1,1,"DT")="2921112"
^DD(413,49,3)="Enter the Equipment Committee ranking for this request."
^DD(413,49,4)="D DRANK^PRCNRNK"
^DD(413,49,21,0)="^^3^3^2940415^"
^DD(413,49,21,1,0)="The ranking of request is temporary assigned so that the Equipment"
^DD(413,49,21,2,0)="Committee may review requests based on the importance of the request"
^DD(413,49,21,3,0)="actually being purchased."
^DD(413,49,"DT")="2960125"
^DD(413,50,0)="2237 NUMBER^P410'^PRCS(410,^6;4^Q"
^DD(413,50,3)="This is the associated 2237 entry if request was approved and funded."
^DD(413,50,21,0)="^^3^3^2940415^"
^DD(413,50,21,1,0)="This is the 2237 number that is assigned when a request has been"
^DD(413,50,21,2,0)="approved by the Equipment Committee and a 2237 has been created"
^DD(413,50,21,3,0)="from the request."
^DD(413,50,"DT")="2921019"
^DD(413,52,0)="ENG. MAINTENANCE TRAINING^RS^Y:YES;N:NO;^7;1^Q"
^DD(413,52,3)="Enter 'Yes' if additional Engineering maintenance training is needed after proposed equipment is purchased."
^DD(413,52,21,0)="^^2^2^2931201^"
^DD(413,52,21,1,0)="Will additional maintenance training be required for Engineering"
^DD(413,52,21,2,0)="personnel if the proposed equipment is acquired?"
^DD(413,52,"DT")="2921019"
^DD(413,53,0)="ENG. TRAINING TUITION^NJ9,2^^7;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(413,53,3)="Enter the estimated amount of any Engineering training tuition"
^DD(413,53,21,0)="^^3^3^2931201^"
^DD(413,53,21,1,0)="The total cost of tuition for all required maintenance training."
^DD(413,53,21,2,0)="If necessary to train two (2) employees at an estimated cost of"
^DD(413,53,21,3,0)="$1000, please enter 2000."
^DD(413,53,"DT")="2921019"
^DD(413,54,0)="ENG. TRAINING TRAVEL COST^NJ8,2^^7;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(413,54,3)="Enter the estimated amount of travel cost for Engineering training"
^DD(413,54,21,0)="^^2^2^2931201^"
^DD(413,54,21,1,0)="If the required maintenance training includes travel costs,"
^DD(413,54,21,2,0)="please enter that amount."
^DD(413,54,"DT")="2921019"
^DD(413,55,0)="ENG. TRAINING VENDOR^F^^7;4^K:$L(X)>50!($L(X)<1) X"
^DD(413,55,3)="Enter a vendor (up to 50 characters) that may conduct Engineering training"
^DD(413,55,21,0)="^^2^2^2950619^^"
^DD(413,55,21,1,0)="The potential vendor who will be conducting the maintenance"
^DD(413,55,21,2,0)="training."
^DD(413,55,"DT")="2921019"
^DD(413,55.5,0)="ENG TRAIN VENDOR PTR^P440'^PRC(440,^7;16^Q"
^DD(413,55.5,4)="D VENHLP^PRCNUTL1"
^DD(413,55.5,21,0)="^^2^2^2950620^"
^DD(413,55.5,21,1,0)="This is the training vendor pointer if the vendor exists in the"
^DD(413,55.5,21,2,0)="IFCAP Vendor file."
^DD(413,55.5,"DT")="2950619"
^DD(413,56,0)="ENG. TRAINING LOCATION^F^^7;5^K:$L(X)>50!($L(X)<1) X"
^DD(413,56,3)="Enter where Engineering training may take place (up to 50 characters)"
^DD(413,56,21,0)="^^1^1^2931201^"
^DD(413,56,21,1,0)="The location where the maintenance training will take place."
^DD(413,56,"DT")="2921019"
^DD(413,57,0)="CONSTRUCTION/RENOVATION^RS^Y:YES;N:NO;^7;6^Q"
^DD(413,57,3)="Enter 'Yes' if there is any special construction needs"
^DD(413,57,21,0)="^^3^3^2931201^^"
^DD(413,57,21,1,0)="Please say yes if any special construction or renovation needs"
^DD(413,57,21,2,0)="to be completed before the installation of any equipment in"
^DD(413,57,21,3,0)="this request."
^DD(413,57,"DT")="2921019"
^DD(413,58,0)="PROJECT NEEDED?^S^Y:YES;N:NO;^7;7^Q"
^DD(413,58,3)="Enter 'Yes' if a Project # is needed"
^DD(413,58,21,0)="^^2^2^2931201^"
^DD(413,58,21,1,0)="Is it necessary that a project be submitted and approved in"
^DD(413,58,21,2,0)="order to accomplish the necessary construction or renovation?"
^DD(413,58,"DT")="2921019"
^DD(413,59,0)="ENG. PROJECT #^FX^^7;8^D INP^PRCNPROJ Q"
^DD(413,59,3)="ENTER THE OFFICIALLY ASSIGNED PROJECT NUMBER (must begin with 3 numerics and use dashes as delimiters)"
^DD(413,59,4)="D LKUP^PRCNPROJ"
^DD(413,59,21,0)="^^6^6^2931110^"
^DD(413,59,21,1,0)=" The principal identifier of entries in the CONSTRUCTION PROJECT file."
^DD(413,59,21,2,0)="Format should be either 'SSS-NNN' or 'SSS-YY-NNN'; where SSS is the"
^DD(413,59,21,3,0)="facility number and NNN is a sequential project number."
^DD(413,59,21,4,0)=" YY is usually the fiscal year in which an NRM request is submitted,"
^DD(413,59,21,5,0)="but may also be used for a two-character alphabetic project category"
^DD(413,59,21,6,0)="designation."
^DD(413,59,"DT")="2931111"
^DD(413,60,0)="CONSTRUCTION/RENOVATION COST^NJ9,2^^7;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(413,60,3)="Enter the estimated cost of new construction or renovation for this request."
^DD(413,60,21,0)="^^3^3^2931201^"
^DD(413,60,21,1,0)="Estimated cost of necessary construction or renovation work."
^DD(413,60,21,2,0)="Be careful to include costs (if any) that are accounted for in"
^DD(413,60,21,3,0)="your estimate of SPECIAL INSTALLATION COST."
^DD(413,60,"DT")="2931111"
^DD(413,61,0)="CONSTRUCTION/RENOVATION TIME^F^^7;10^K:$L(X)>25!($L(X)<1) X"
^DD(413,61,3)="Enter an estimated time it would take to complete construction or renovation."
^DD(413,61,21,0)="^^2^2^2931201^"
^DD(413,61,21,1,0)="Approximate number of calendar days that would be required for"
^DD(413,61,21,2,0)="completion of any necessary construction or renovation work."
^DD(413,61,"DT")="2931201"
^DD(413,62,0)="SPECIAL INSTALLATION^RS^Y:YES;N:NO;^7;11^Q"
^DD(413,62,3)="Enter 'Yes' if Engineering needs to do any special installation forthe requested equipment."
^DD(413,62,21,0)="^^10^10^2931201^"
^DD(413,62,21,1,0)="Will Engineering Service need to provide any special assistance in order"
^DD(413,62,21,2,0)="for the requested equipment to be installed and made operational?  Some"
^DD(413,62,21,3,0)="common examples of special installation requirements might include"
^DD(413,62,21,4,0)="utility connections (other than connection of regular electrical power),"
^DD(413,62,21,5,0)="minor alterations to casework, and temporary removal of doors or"
^DD(413,62,21,6,0)="windows."
^DD(413,62,21,7,0)="  "
^DD(413,62,21,8,0)="Incoming inspections to assure that specifications are met prior to"
^DD(413,62,21,9,0)="initial use are normally performed on all new equipment.  These routine"
^DD(413,62,21,10,0)="inspections should not be considered as special installation requirements."
^DD(413,62,"DT")="2930928"
^DD(413,63,0)="SPECIAL INSTALLATION COST^NJ8,2^^7;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(413,63,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(413,63,21,0)="^^3^3^2931201^"
^DD(413,63,21,1,0)="Estimated cost of performing the work actions described under SPECIAL"
^DD(413,63,21,2,0)="INSTALLATION DESCRIPTION.  Be carefule not to include costs (if any)"
^DD(413,63,21,3,0)="that are accounted for under CONSTRUCTION/RENOVATION COST."
^DD(413,63,"DT")="2921019"
^DD(413,64,0)="ADDITIONAL TEST EQUIP.^RS^Y:YES;N:NO;^7;13^Q"
^DD(413,64,3)="Answer 'Y' if any additional equipment is needed to test or calibrate the new equipment."
^DD(413,64,21,0)="^^2^2^2931201^"
^DD(413,64,21,1,0)="Will Engineering Service need to purchase or lease any additional"
^DD(413,64,21,2,0)="test equipment if the requested NX equipment is acquired?"
^DD(413,64,"DT")="2930928"
^DD(413,65,0)="ADDITIONAL TEST EQUIP. COST^NJ8,2^^7;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(413,65,3)="Enter a estimated cost for any additional test equipment"
^DD(413,65,21,0)="^^5^5^2931201^^^"
^DD(413,65,21,1,0)="The approximate cost of additional test equipment that will need to"
^DD(413,65,21,2,0)="be purchased if the requested NX equipment is acquired.  In the case"
^DD(413,65,21,3,0)="of test equipment that will be leased or rented, please include the"
^DD(413,65,21,4,0)="rental(s) in your estimate of MAINTENANCE IMPACT COST, or"
^DD(413,65,21,5,0)="MAINTENANCE CONTRACT COSTS (whichever applies)."
^DD(413,65,"DT")="2921019"
^DD(413,66,0)="MAINTENANCE IMPACT COST^NJ8,2^^7;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(413,66,3)="Enter a estimated amount that the purchase of this equipment may impact on maintenance"
^DD(413,66,21,0)="^^2^2^2931201^"
^DD(413,66,21,1,0)="Estimated cost of all costs that would be required to maintain"
^DD(413,66,21,2,0)="the requested equipment for a period of one year."
^DD(413,66,"DT")="2921019"
^DD(413,67,0)="ENGINEERING CONTACT^P200'^VA(200,^8;7^Q"
^DD(413,67,3)="Enter the primary Engineering contact person for this request."
^DD(413,67,21,0)="^^2^2^2931201^"
^DD(413,67,21,1,0)="The Engineering Service employee who should be contacted if additional"
^DD(413,67,21,2,0)="information is required concerning this Engineering Equipment Review."
^DD(413,67,"DT")="2931111"
^DD(413,68,0)="ENGINEERING CONTACT PHONE^F^^8;8^K:$L(X)>20!($L(X)<4) X"
^DD(413,68,3)="Enter the Engineering contact's phone number"
^DD(413,68,21,0)="^^1^1^2931201^"
^DD(413,68,21,1,0)="The telephone number of the ENGINEERING CONTACT PERSON."
^DD(413,68,"DT")="2931111"
^DD(413,69,0)="TOTAL ENGINEERING EST. COST^CJ8,2^^ ; ^X ^DD(413,69,9.2) S X=X+$P(Y(413,69,1),U,15)"
^DD(413,69,9)="^"
^DD(413,69,9.01)="413^66;413^65;413^63;413^60;413^54;413^53"
^DD(413,69,9.1)="#53+#54+#60+#63+#65+#66"
^DD(413,69,9.2)="S Y(413,69,1)=$S($D(^PRCN(413,D0,7)):^(7),1:"""") S X=$P(Y(413,69,1),U,2)+$P(Y(413,69,1),U,3)+$P(Y(413,69,1),U,9)+$P(Y(413,69,1),U,12)+$P(Y(413,69,1),U,14)"
^DD(413,69,21,0)="^^5^5^2940415^"
^DD(413,69,21,1,0)="This estimated cost is computed from the following costs that"
^DD(413,69,21,2,0)="the Engineering department may have entered for this request:"
^DD(413,69,21,3,0)="training tuition, training travel, construction/renovation,"
^DD(413,69,21,4,0)="special installation, additional test equipment, and maintenance"
^DD(413,69,21,5,0)="impact."
^DD(413,69,"DT")="2921123"
^DD(413,70,0)="ENG. MAINTENANCE CONTRACT^S^Y:YES;N:NO;^8;6^Q"
^DD(413,70,3)="Enter 'Yes' if Engineering has made the determination of importance of having a maintenance contract."
^DD(413,70,21,0)="^^2^2^2931201^"
^DD(413,70,21,1,0)="Would Engineering Service favor a maintenance contract for the NX"
^DD(413,70,21,2,0)="equipment being requested?"
^DD(413,70,"DT")="2931111"
^DD(413,71,0)="ENG. MAINT. CONTRACT TYPE^S^1:Full Maintenance;2:PM;3:Parts Only;4:Screening Contract;5:Other;^8;2^Q"
^DD(413,71,3)="Select the appropriate type of maintenance contract for Engineering"
^DD(413,71,21,0)="^^4^4^2931201^"
^DD(413,71,21,1,0)="Select the kind of maintenance contract that Engineering Service"
^DD(413,71,21,2,0)="regards as most appropriate.  Ask yourself if it should cover parts"
^DD(413,71,21,3,0)="and labor? Scheduled or unscheduled maintenance?  Hours of coverage?"
^DD(413,71,21,4,0)="Response time and/or maximum downtime?"
^DD(413,71,"DT")="2931111"
^DD(413,72,0)="ENG. MAINT. OTHER CONTRACT^F^^8;1^K:$L(X)>20!($L(X)<1) X"
^DD(413,72,3)="Enter (up to 20 characters) a maintenance contract type"
^DD(413,72,21,0)="^^2^2^2931201^"
^DD(413,72,21,1,0)="Describe the maintenance contract that is not covered in the"
^DD(413,72,21,2,0)="types of contracts."
^DD(413,72,"DT")="2921019"
^DD(413,74,0)="SETS MAINTENANCE MANUALS^NJ2,0^^8;3^K:+X'=X!(X>10)!(X<2)!(X?.E1"".""1N.N) X"
^DD(413,74,3)="Enter the minimum of sets of maintenance manuals to keep on hand (2-10)"
^DD(413,74,21,0)="^^3^3^2931201^"
^DD(413,74,21,1,0)="How many sets of maintenance manuals would be needed by the"
^DD(413,74,21,2,0)="Engineering Service for maintenance of the requested equipment?"
^DD(413,74,21,3,0)="Two (2) sets should be sufficient in most cases."
^DD(413,74,"DT")="2921019"
^DD(413,75,0)="CMR OFFICIAL FINAL APPROVAL^S^Y:YES;N:NO;^2;17^Q"
^DD(413,75,3)="Enter 'Y' if request is ready for 2237 processing, enter 'N' if to be returned to requestor."
^DD(413,75,21,0)="^^4^4^2960227^"
^DD(413,75,21,1,0)="This field allows the CMR Official to review a request that has been in the"
^DD(413,75,21,2,0)="request pipeline for a long period of time.  A request may need editing if"
^DD(413,75,21,3,0)="it has been around a while.  If no editing is needed, then it can go to"
^DD(413,75,21,4,0)="become a 2237."
^DD(413,75,"DT")="2960227"
^DD(413,77,0)="RESUBMIT STATUS^P413.5'^PRCN(413.5,^8;9^Q"
^DD(413,77,21,0)="^^1^1^2940415^"
^DD(413,77,21,1,0)="This is the status of the request before it is resubmitted."
^DD(413,77,"DT")="2931116"
^DD(413,100,0)="CHANGE IN PERSONNEL EXPLAIN^413.01^^10;0"
^DD(413,100,21,0)="^^2^2^2940415^"
^DD(413,100,21,1,0)="If the requestor enters 'Y'es to change in personnel, an explanation"
^DD(413,100,21,2,0)="is needed as to what kind of changes this request causes."
^DD(413,101,0)="DEFICIENCY EXPLANATION^413.0101^^11;0"
^DD(413,101,21,0)="^^3^3^2950619^"
^DD(413,101,21,1,0)="This field is to enter a more detailed explanation if the user answered"
^DD(413,101,21,2,0)="'Y'es to any special safety considerations with equipment being requested."
^DD(413,101,21,3,0)="Goes with field JCAHO,CAP,SAFETY DEFICIENCY."
^DD(413,102,0)="CHANGE RECUR COST EXPLAIN^413.0102^^12;0"
^DD(413,102,21,0)="^^2^2^2950619^"
^DD(413,102,21,1,0)="If other than 'No Change' was answered in the field CHANGE IN RECURRING"
^DD(413,102,21,2,0)="COSTS, then a fuller explanation is needed."
^DD(413,103,0)="TRAINING EXPLANATION^413.0103^^13;0"
^DD(413,103,21,0)="^^2^2^2950619^"
^DD(413,103,21,1,0)="If field TRAINING NEEDED? was answered 'Yes', then a detailed explanation"
^DD(413,103,21,2,0)="is required to be entered."
^DD(413,104,0)="MAINT. CONTRACT JUSTIFICATION^413.0104^^14;0"
^DD(413,104,21,0)="^^2^2^2931201^"
^DD(413,104,21,1,0)="Please explain why you think that a maintenance contract for this"
^DD(413,104,21,2,0)="equipment would be desirable."
^DD(413,105,0)="CMR APPROVAL EXPLANATION^413.0105^^15;0"
^DD(413,105,21,0)="^^2^2^2950619^"
^DD(413,105,21,1,0)="If the CMR did not approve a request, then it is required that they"
^DD(413,105,21,2,0)="enter an explanation of why they didn't approve the request."
^DD(413,117,0)="CONSTRUCT/RENOV DESCRIPTION^413.0117^^27;0"
^DD(413,117,21,0)="^^2^2^2950621^^"
^DD(413,117,21,1,0)="Briefly describe the nature and location of any necessary construction"
^DD(413,117,21,2,0)="or renovation work, whether a project is needed or not."
^DD(413,118,0)="SPECIAL INSTALL DESCRIPTION^413.0118^^28;0"
^DD(413,118,21,0)="^^3^3^2931201^^"
^DD(413,118,21,1,0)="Describe the special tasks that Engineering Service will need to"
^DD(413,118,21,2,0)="perform before the requested equipment can be installed and made"
^DD(413,118,21,3,0)="operational."
^DD(413,119,0)="ADDITIONAL TEST EQUIP EXPLAIN^413.0119^^29;0"
^DD(413,119,21,0)="^^4^4^2931201^"
^DD(413,119,21,1,0)="List and describe any additional test equipment that would be needed"
^DD(413,119,21,2,0)="for calibration and/or repair of the requested NX equipment.  Do not"
^DD(413,119,21,3,0)="include test equipment that is presently on hand or otherwise available"
^DD(413,119,21,4,0)="without cost."
^DD(413,120,0)="ENG. REMARKS^413.03^^30;0"
^DD(413,120,21,0)="^^2^2^2931201^"
^DD(413,120,21,1,0)="Engineering comments of a general nature that may be of some"
^DD(413,120,21,2,0)="benefit to the Equipment Committee."
^DD(413,121,0)="NX EQUIP EXPLANATION^413.0121^^31;0"
^DD(413,121,21,0)="^^2^2^2960806^^^^"
^DD(413,121,21,1,0)="If the PPM does not consider this to be non-expendable, an explanation of"
^DD(413,121,21,2,0)="why is required."
^DD(413,121,"DT")="2950805"
^DD(413,123,0)="ESTIMATED SAVINGS^413.0123^^33;0"
^DD(413,123,21,0)="^^3^3^2921028^"
^DD(413,123,21,1,0)="  Any estimated savings that are effected by the purchase of a controlled"
^DD(413,123,21,2,0)="item needs to be identified (personnel, supplies, increased production,"
^DD(413,123,21,3,0)="etc.)"
^DD(413,124,0)="ADDITIONAL EQUIPMENT^413.0124^^34;0"
^DD(413,124,21,0)="^^3^3^2950621^"
^DD(413,124,21,1,0)="Requests for additional equipment will include the number and"
^DD(413,124,21,2,0)="description of the same or related type of machines now being used"
^DD(413,124,21,3,0)="in operation."
^DD(413,125,0)="REPLACEMENT EQUIPMENT^413.0125^^35;0"
^DD(413,125,21,0)="^^3^3^2950621^"
^DD(413,125,21,1,0)="Requests for replacement equipment will include the complete description"
^DD(413,125,21,2,0)="of the item being replaced, estimate of repairs, total amount of money"
^DD(413,125,21,3,0)="expended for repairs while equipment was in use, and trade-in allowance."
^DD(413,126,0)="JUSTIFICATION^413.0126^^36;0"
^DD(413,126,21,0)="^^2^2^2950621^"
^DD(413,126,21,1,0)="A statement of justification for why the line item is being requested"
^DD(413,126,21,2,0)="is required."
^DD(413,127,0)="REASON CANCELLED^413.0127^^37;0"
^DD(413,127,21,0)="^^1^1^2950621^"
^DD(413,127,21,1,0)="A reason why the request was cancelled is required."
^DD(413,128,0)="EQUIP COMM EXPLANATION^413.0128^^38;0"
^DD(413,128,21,0)="^^2^2^2950621^"
^DD(413,128,21,1,0)="An explanation is required as to why the Equipment Committee did"
^DD(413,128,21,2,0)="not approve a request."
^DD(413,128,23,0)="^^2^2^2931212^"
^DD(413,128,23,1,0)="For the Equipment Committee to explain why they disapproved or"
^DD(413,128,23,2,0)="deferred the request."
^DD(413,129,0)="CHIEF SUPPLY EXPLANATION^413.0129^^39;0"
^DD(413,129,21,0)="^^2^2^2950621^"
^DD(413,129,21,1,0)="A reason why the Chief, Supply did not approve a equipment request"
^DD(413,129,21,2,0)="is required."
^DD(413,129,"DT")="2940406"
^DD(413,"B","2237 NUMBER",50)=""
^DD(413,"B","ADDITIONAL EQUIPMENT",124)=""
^DD(413,"B","ADDITIONAL TEST EQUIP EXPLAIN",119)=""
^DD(413,"B","ADDITIONAL TEST EQUIP.",64)=""
^DD(413,"B","ADDITIONAL TEST EQUIP. COST",65)=""
^DD(413,"B","ANNUAL RECURRING SUPPLY COST",20)=""
^DD(413,"B","CHANGE IN PERSONNEL",16)=""
^DD(413,"B","CHANGE IN PERSONNEL EXPLAIN",100)=""
^DD(413,"B","CHANGE IN RECURRING COSTS",18)=""
^DD(413,"B","CHANGE RECUR COST EXPLAIN",102)=""
^DD(413,"B","CHIEF SUPPLY APPROVAL",33)=""
^DD(413,"B","CHIEF SUPPLY EXPLANATION",129)=""
^DD(413,"B","CLASSIFICATION",14)=""
^DD(413,"B","CMR",4.5)=""
^DD(413,"B","CMR APPROVAL EXPLANATION",105)=""
^DD(413,"B","CMR OFFICIAL APPROVAL",32)=""
^DD(413,"B","CMR OFFICIAL FINAL APPROVAL",75)=""
^DD(413,"B","CMR PRIORITY",34)=""
^DD(413,"B","CMR RESPONSIBLE OFFICIAL",5)=""
^DD(413,"B","CONCURRENCE NEEDED?",45)=""
^DD(413,"B","CONCURRING OFFICIALS",46)=""
^DD(413,"B","CONSTRUCT/RENOV DESCRIPTION",117)=""
^DD(413,"B","CONSTRUCTION/RENOVATION",57)=""
^DD(413,"B","CONSTRUCTION/RENOVATION COST",60)=""
^DD(413,"B","CONSTRUCTION/RENOVATION TIME",61)=""
^DD(413,"B","CONTROLLED ITEM?",36)=""
^DD(413,"B","DATE REQUIRED BY",12)=""
^DD(413,"B","DEFICIENCY EXPLANATION",101)=""
^DD(413,"B","ENG TRAIN VENDOR PTR",55.5)=""
^DD(413,"B","ENG. MAINT. CONTRACT TYPE",71)=""
^DD(413,"B","ENG. MAINT. OTHER CONTRACT",72)=""
^DD(413,"B","ENG. MAINTENANCE CONTRACT",70)=""
^DD(413,"B","ENG. MAINTENANCE TRAINING",52)=""
^DD(413,"B","ENG. PROJECT #",59)=""
^DD(413,"B","ENG. REMARKS",120)=""
^DD(413,"B","ENG. TRAINING LOCATION",56)=""
^DD(413,"B","ENG. TRAINING TRAVEL COST",54)=""
^DD(413,"B","ENG. TRAINING TUITION",53)=""
^DD(413,"B","ENG. TRAINING VENDOR",55)=""
^DD(413,"B","ENGINEERING CONTACT",67)=""
^DD(413,"B","ENGINEERING CONTACT PHONE",68)=""
^DD(413,"B","EQUIP COMM EXPLANATION",128)=""
^DD(413,"B","EQUIP. COMMITTEE STATUS DATE",48)=""
^DD(413,"B","EQUIPMENT COMMITTEE RANKING",49)=""
^DD(413,"B","EQUIPMENT COMMITTEE STATUS",47)=""
^DD(413,"B","EST. TRAINING COST",22)=""
^DD(413,"B","ESTIMATED SAVINGS",123)=""
^DD(413,"B","INSTALLATION NEEDED?",27)=""
^DD(413,"B","JCAHO,CAP,SAFETY DEFICIENCY",17)=""
^DD(413,"B","JUSTIFICATION",126)=""
^DD(413,"B","LINE ITEM NUMBER",15)=""
^DD(413,"B","LOCATION",26)=""
^DD(413,"B","MAINT. CONTRACT COST",24)=""
^DD(413,"B","MAINT. CONTRACT JUSTIFICATION",104)=""
^DD(413,"B","MAINT. CONTRACT RECOMMENDED",23)=""
^DD(413,"B","MAINTENANCE IMPACT COST",66)=""
^DD(413,"B","NUMBER",.001)=""
^DD(413,"B","NX EQUIP EXPLANATION",121)=""
^DD(413,"B","NX EQUIPMENT?",35)=""
^DD(413,"B","OTHER UTILITIES",29)=""
^DD(413,"B","PROJECT MANAGER",9.1)=""
^DD(413,"B","PROJECT NEEDED?",58)=""
^DD(413,"B","PROJECT NUMBER",9)=""
^DD(413,"B","REASON CANCELLED",127)=""
^DD(413,"B","REPLACEMENT EQUIPMENT",125)=""
^DD(413,"B","REQUEST DATE/TIME",3)=""
^DD(413,"B","REQUEST STATUS",6)=""
^DD(413,"B","REQUEST TYPE",8)=""
^DD(413,"B","REQUESTING SERVICE",2)=""
^DD(413,"B","REQUESTOR",1)=""
^DD(413,"B","REQUESTOR PHONE",11)=""
^DD(413,"B","RESUBMIT STATUS",77)=""
^DD(413,"B","SERVICE CONTACT",30)=""
^DD(413,"B","SERVICE CONTACT PHONE",31)=""
^DD(413,"B","SETS MAINTENANCE MANUALS",74)=""
^DD(413,"B","SHORT DESCRIPTION",37)=""
^DD(413,"B","SORT",13)=""
^DD(413,"B","SPACE AVAILABLE?",25)=""
^DD(413,"B","SPACE FILE PTR.",26.5)=""
^DD(413,"B","SPECIAL INSTALL DESCRIPTION",118)=""
^DD(413,"B","SPECIAL INSTALLATION",62)=""
^DD(413,"B","SPECIAL INSTALLATION COST",63)=""
^DD(413,"B","STATION NUMBER",4)=""
^DD(413,"B","STATUS DATE",7)=""
^DD(413,"B","SUFFICIENT FUNDS BUDGETED?",19)=""
^DD(413,"B","TOTAL ENGINEERING EST. COST",69)=""
^DD(413,"B","TRAINING EXPLANATION",103)=""
^DD(413,"B","TRAINING NEEDED?",21)=""
^DD(413,"B","TRANSACTION NUMBER",.01)=""
^DD(413,"B","TURN-IN REQUEST",10)=""
^DD(413,"B","UTILITIES REQUIRED",28)=""
^DD(413,"GL",0,1,.01)=""
^DD(413,"GL",0,2,1)=""
^DD(413,"GL",0,3,2)=""
^DD(413,"GL",0,4,3)=""
^DD(413,"GL",0,5,4)=""
^DD(413,"GL",0,6,5)=""
^DD(413,"GL",0,7,6)=""
^DD(413,"GL",0,8,7)=""
^DD(413,"GL",0,9,8)=""
^DD(413,"GL",0,10,9)=""
^DD(413,"GL",0,11,10)=""
^DD(413,"GL",0,12,11)=""
^DD(413,"GL",0,13,12)=""
^DD(413,"GL",0,14,13)=""
^DD(413,"GL",0,15,14)=""
^DD(413,"GL",0,16,4.5)=""
^DD(413,"GL",0,17,9.1)=""
^DD(413,"GL",0,18,37)=""
^DD(413,"GL",1,0,15)=""
^DD(413,"GL",2,1,16)=""
^DD(413,"GL",2,2,17)=""
^DD(413,"GL",2,3,18)=""
^DD(413,"GL",2,4,19)=""
^DD(413,"GL",2,5,20)=""
^DD(413,"GL",2,6,21)=""
^DD(413,"GL",2,7,22)=""
^DD(413,"GL",2,8,23)=""
^DD(413,"GL",2,9,24)=""
^DD(413,"GL",2,10,25)=""
^DD(413,"GL",2,11,26)=""
^DD(413,"GL",2,12,27)=""
^DD(413,"GL",2,13,29)=""
^DD(413,"GL",2,14,30)=""
^DD(413,"GL",2,15,31)=""
^DD(413,"GL",2,16,32)=""
^DD(413,"GL",2,17,75)=""
^DD(413,"GL",2,18,34)=""
^DD(413,"GL",2,19,26.5)=""
^DD(413,"GL",3,0,28)=""
^DD(413,"GL",4,1,35)=""
^DD(413,"GL",4,2,36)=""
^DD(413,"GL",4,11,45)=""
^DD(413,"GL",5,0,46)=""
^DD(413,"GL",6,1,47)=""
^DD(413,"GL",6,2,48)=""
^DD(413,"GL",6,3,49)=""
^DD(413,"GL",6,4,50)=""
^DD(413,"GL",7,1,52)=""
^DD(413,"GL",7,2,53)=""
^DD(413,"GL",7,3,54)=""
^DD(413,"GL",7,4,55)=""
^DD(413,"GL",7,5,56)=""
^DD(413,"GL",7,6,57)=""
^DD(413,"GL",7,7,58)=""
^DD(413,"GL",7,8,59)=""
^DD(413,"GL",7,9,60)=""
^DD(413,"GL",7,10,61)=""
^DD(413,"GL",7,11,62)=""
^DD(413,"GL",7,12,63)=""
^DD(413,"GL",7,13,64)=""
^DD(413,"GL",7,14,65)=""
^DD(413,"GL",7,15,66)=""
^DD(413,"GL",7,16,55.5)=""
^DD(413,"GL",8,1,72)=""
^DD(413,"GL",8,2,71)=""
^DD(413,"GL",8,3,74)=""
^DD(413,"GL",8,4,33)=""
^DD(413,"GL",8,6,70)=""
^DD(413,"GL",8,7,67)=""
^DD(413,"GL",8,8,68)=""
^DD(413,"GL",8,9,77)=""
^DD(413,"GL",10,0,100)=""
^DD(413,"GL",11,0,101)=""
^DD(413,"GL",12,0,102)=""
^DD(413,"GL",13,0,103)=""
^DD(413,"GL",14,0,104)=""
^DD(413,"GL",15,0,105)=""
^DD(413,"GL",27,0,117)=""
^DD(413,"GL",28,0,118)=""
^DD(413,"GL",29,0,119)=""
^DD(413,"GL",30,0,120)=""
^DD(413,"GL",31,0,121)=""
^DD(413,"GL",33,0,123)=""
^DD(413,"GL",34,0,124)=""
^DD(413,"GL",35,0,125)=""
^DD(413,"GL",36,0,126)=""
^DD(413,"GL",37,0,127)=""
^DD(413,"GL",38,0,128)=""
^DD(413,"GL",39,0,129)=""
^DD(413,"IX",.01)=""
^DD(413,"IX",2)=""
^DD(413,"IX",4.5)=""
^DD(413,"IX",5)=""
^DD(413,"IX",6)=""
^DD(413,"IX",30)=""
^DD(413,"IX",34)=""
^DD(413,"IX",49)=""
^DD(413,"RQ",.01)=""
^DD(413,"RQ",8)=""
^DD(413,"RQ",12)=""
^DD(413,"RQ",16)=""
^DD(413,"RQ",17)=""
^DD(413,"RQ",18)=""
^DD(413,"RQ",19)=""
^DD(413,"RQ",20)=""
^DD(413,"RQ",21)=""
^DD(413,"RQ",23)=""
^DD(413,"RQ",24)=""
^DD(413,"RQ",25)=""
^DD(413,"RQ",27)=""
^DD(413,"RQ",32)=""
^DD(413,"RQ",35)=""
^DD(413,"RQ",36)=""
^DD(413,"RQ",45)=""
^DD(413,"RQ",52)=""
^DD(413,"RQ",57)=""
^DD(413,"RQ",62)=""
^DD(413,"RQ",64)=""
^DD(413,"SB",413.01,100)=""
^DD(413,"SB",413.0101,101)=""
^DD(413,"SB",413.0102,102)=""
^DD(413,"SB",413.0103,103)=""
^DD(413,"SB",413.0104,104)=""
^DD(413,"SB",413.0105,105)=""
^DD(413,"SB",413.0117,117)=""
^DD(413,"SB",413.0118,118)=""
^DD(413,"SB",413.0119,119)=""
^DD(413,"SB",413.0121,121)=""
^DD(413,"SB",413.0123,123)=""
^DD(413,"SB",413.0124,124)=""
^DD(413,"SB",413.0125,125)=""
^DD(413,"SB",413.0126,126)=""
^DD(413,"SB",413.0127,127)=""
^DD(413,"SB",413.0128,128)=""
^DD(413,"SB",413.0129,129)=""
^DD(413,"SB",413.015,15)=""
^DD(413,"SB",413.028,28)=""
^DD(413,"SB",413.03,120)=""
^DD(413,"SB",413.046,46)=""
^DD(413.01,0)="CHANGE IN PERSONNEL EXPLAIN SUB-FIELD^^.01^1"
^DD(413.01,0,"DT")="2921019"
^DD(413.01,0,"NM","CHANGE IN PERSONNEL EXPLAIN")=""
^DD(413.01,0,"UP")="413"
^DD(413.01,.01,0)="CHANGE IN PERSONNEL EXPLAIN^W^^0;1^Q"
^DD(413.01,.01,3)="Enter a explanation of what kinds of change in personnel may be needed, at what level,salary,etc., if this equipment is ordered"
^DD(413.01,.01,21,0)="^^2^2^2940415^"
^DD(413.01,.01,21,1,0)="If the requestor enters 'Y'es to change in personnel, an explanation"
^DD(413.01,.01,21,2,0)="is needed as to what kind of changes this request causes."
^DD(413.01,.01,"DT")="2921019"
^DD(413.01,"B","CHANGE IN PERSONNEL EXPLAIN",.01)=""
^DD(413.01,"GL",0,1,.01)=""
^DD(413.0101,0)="DEFICIENCY EXPLANATION SUB-FIELD^^.01^1"
^DD(413.0101,0,"DT")="2921019"
^DD(413.0101,0,"NM","DEFICIENCY EXPLANATION")=""
^DD(413.0101,0,"UP")="413"
^DD(413.0101,.01,0)="DEFICIENCY EXPLANATION^W^^0;1^Q"
^DD(413.0101,.01,21,0)="^^3^3^2950619^"
^DD(413.0101,.01,21,1,0)="This field is to enter a more detailed explanation if the user answered"
^DD(413.0101,.01,21,2,0)="'Y'es to any special safety considerations with equipment being requested."
^DD(413.0101,.01,21,3,0)="Goes with field JCAHO,CAP,SAFETY DEFICIENCY."
^DD(413.0101,.01,"DT")="2921019"
^DD(413.0101,"B","DEFICIENCY EXPLANATION",.01)=""
^DD(413.0101,"GL",0,1,.01)=""
^DD(413.0102,0)="CHANGE RECUR COST EXPLAIN SUB-FIELD^^.01^1"
^DD(413.0102,0,"DT")="2921019"
^DD(413.0102,0,"NM","CHANGE RECUR COST EXPLAIN")=""
^DD(413.0102,0,"UP")="413"
^DD(413.0102,.01,0)="CHANGE RECUR COST EXPLAIN^W^^0;1^Q"
^DD(413.0102,.01,21,0)="^^2^2^2950619^"
^DD(413.0102,.01,21,1,0)="If other than 'No Change' was answered in the field CHANGE IN RECURRING"
^DD(413.0102,.01,21,2,0)="COSTS, then a fuller explanation is needed."
^DD(413.0102,.01,"DT")="2921019"
^DD(413.0102,"B","CHANGE RECUR COST EXPLAIN",.01)=""
^DD(413.0102,"GL",0,1,.01)=""
^DD(413.0103,0)="TRAINING EXPLANATION SUB-FIELD^^.01^1"
^DD(413.0103,0,"DT")="2921019"
^DD(413.0103,0,"NM","TRAINING EXPLANATION")=""
^DD(413.0103,0,"UP")="413"
^DD(413.0103,.01,0)="TRAINING EXPLANATION^W^^0;1^Q"
^DD(413.0103,.01,21,0)="^^2^2^2950619^"
^DD(413.0103,.01,21,1,0)="If field TRAINING NEEDED? was answered 'Yes', then a detailed explanation"
^DD(413.0103,.01,21,2,0)="is required to be entered."
^DD(413.0103,.01,"DT")="2921019"
^DD(413.0103,"B","TRAINING EXPLANATION",.01)=""
^DD(413.0103,"GL",0,1,.01)=""
^DD(413.0104,0)="MAINT. CONTRACT JUSTIFICATION SUB-FIELD^^.01^1"
^DD(413.0104,0,"DT")="2921019"
^DD(413.0104,0,"NM","MAINT. CONTRACT JUSTIFICATION")=""
^DD(413.0104,0,"UP")="413"
^DD(413.0104,.01,0)="MAINT. CONTRACT JUSTIFICATION^W^^0;1^Q"
^DD(413.0104,.01,21,0)="^^2^2^2931201^"
^DD(413.0104,.01,21,1,0)="Please explain why you think that a maintenance contract for this"
^DD(413.0104,.01,21,2,0)="equipment would be desirable."
^DD(413.0104,.01,"DT")="2921019"
^DD(413.0104,"B","MAINT. CONTRACT JUSTIFICATION",.01)=""
^DD(413.0104,"GL",0,1,.01)=""
^DD(413.0105,0)="CMR APPROVAL EXPLANATION SUB-FIELD^^.01^1"
^DD(413.0105,0,"DT")="2921019"
^DD(413.0105,0,"NM","CMR APPROVAL EXPLANATION")=""
^DD(413.0105,0,"UP")="413"
^DD(413.0105,.01,0)="CMR APPROVAL EXPLANATION^W^^0;1^Q"
^DD(413.0105,.01,21,0)="^^2^2^2950619^"
^DD(413.0105,.01,21,1,0)="If the CMR did not approve a request, then it is required that they"
^DD(413.0105,.01,21,2,0)="enter an explanation of why they didn't approve the request."
^DD(413.0105,.01,"DT")="2921019"
^DD(413.0105,"B","CMR APPROVAL EXPLANATION",.01)=""
^DD(413.0105,"GL",0,1,.01)=""
^DD(413.0117,0)="CONSTRUCT/RENOV DESCRIPTION SUB-FIELD^^.01^1"
^DD(413.0117,0,"DT")="2921019"
^DD(413.0117,0,"NM","CONSTRUCT/RENOV DESCRIPTION")=""
^DD(413.0117,0,"UP")="413"
^DD(413.0117,.01,0)="CONSTRUCT/RENOV DESCRIPTION^W^^0;1^Q"
^DD(413.0117,.01,21,0)="^^2^2^2931201^"
^DD(413.0117,.01,21,1,0)="Briefly describe the nature and location of any necessary construction"
^DD(413.0117,.01,21,2,0)="or renovation work, whether a project is needed or not."
^DD(413.0117,.01,"DT")="2921019"
^DD(413.0117,"B","CONSTRUCT/RENOV DESCRIPTION",.01)=""
^DD(413.0117,"GL",0,1,.01)=""
^DD(413.0118,0)="SPECIAL INSTALL DESCRIPTION SUB-FIELD^^.01^1"
^DD(413.0118,0,"DT")="2921019"
^DD(413.0118,0,"NM","SPECIAL INSTALL DESCRIPTION")=""
^DD(413.0118,0,"UP")="413"
^DD(413.0118,.01,0)="SPECIAL INSTALL DESCRIPTION^W^^0;1^Q"
^DD(413.0118,.01,21,0)="^^3^3^2931201^^"
^DD(413.0118,.01,21,1,0)="Describe the special tasks that Engineering Service will need to"
^DD(413.0118,.01,21,2,0)="perform before the requested equipment can be installed and made"
^DD(413.0118,.01,21,3,0)="operational."
^DD(413.0118,.01,"DT")="2921019"
^DD(413.0118,"B","SPECIAL INSTALL DESCRIPTION",.01)=""
^DD(413.0118,"GL",0,1,.01)=""
^DD(413.0119,0)="ADDITIONAL TEST EQUIP EXPLAIN SUB-FIELD^^.01^1"
^DD(413.0119,0,"DT")="2921019"
^DD(413.0119,0,"NM","ADDITIONAL TEST EQUIP EXPLAIN")=""
^DD(413.0119,0,"UP")="413"
^DD(413.0119,.01,0)="ADDITIONAL TEST EQUIP EXPLAIN^W^^0;1^Q"
^DD(413.0119,.01,21,0)="^^4^4^2931201^"
^DD(413.0119,.01,21,1,0)="List and describe any additional test equipment that would be needed"
^DD(413.0119,.01,21,2,0)="for calibration and/or repair of the requested NX equipment.  Do not"
^DD(413.0119,.01,21,3,0)="include test equipment that is presently on hand or otherwise available"
^DD(413.0119,.01,21,4,0)="without cost."
^DD(413.0119,.01,"DT")="2921019"
^DD(413.0119,"B","ADDITIONAL TEST EQUIP EXPLAIN",.01)=""
^DD(413.0119,"GL",0,1,.01)=""
^DD(413.0121,0)="NX EQUIP EXPLANATION SUB-FIELD^^.01^1"
^DD(413.0121,0,"DT")="2921026"
^DD(413.0121,0,"NM","NX EQUIP EXPLANATION")=""
^DD(413.0121,0,"UP")="413"
^DD(413.0121,.01,0)="NX EQUIP EXPLANATION^W^^0;1^Q"
^DD(413.0121,.01,3)="Enter explanation of why item(s) are not non-expendable"
^DD(413.0121,.01,21,0)="^^2^2^2960806^^^"
^DD(413.0121,.01,21,1,0)="If the PPM does not consider this to be non-expendable, an explanation of"
^DD(413.0121,.01,21,2,0)="why is required."
^DD(413.0121,.01,"DT")="2950805"
^DD(413.0121,"B","NX EQUIP EXPLANATION",.01)=""
^DD(413.0121,"GL",0,1,.01)=""
^DD(413.0123,0)="ESTIMATED SAVINGS SUB-FIELD^^.01^1"
^DD(413.0123,0,"DT")="2921027"
^DD(413.0123,0,"NM","ESTIMATED SAVINGS")=""
^DD(413.0123,0,"UP")="413"
^DD(413.0123,.01,0)="ESTIMATED SAVINGS^W^^0;1^Q"
^DD(413.0123,.01,21,0)="^^3^3^2921028^"
^DD(413.0123,.01,21,1,0)="  Any estimated savings that are effected by the purchase of a controlled"
^DD(413.0123,.01,21,2,0)="item needs to be identified (personnel, supplies, increased production,"
^DD(413.0123,.01,21,3,0)="etc.)"
^DD(413.0123,.01,"DT")="2921027"
^DD(413.0123,"B","ESTIMATED SAVINGS",.01)=""
^DD(413.0123,"GL",0,1,.01)=""
^DD(413.0124,0)="ADDITIONAL EQUIPMENT SUB-FIELD^^.01^1"
^DD(413.0124,0,"DT")="2921027"
^DD(413.0124,0,"NM","ADDITIONAL EQUIPMENT")=""
^DD(413.0124,0,"UP")="413"
^DD(413.0124,.01,0)="ADDITIONAL EQUIPMENT^W^^0;1^Q"
^DD(413.0124,.01,21,0)="^^3^3^2950621^"
^DD(413.0124,.01,21,1,0)="Requests for additional equipment will include the number and"
^DD(413.0124,.01,21,2,0)="description of the same or related type of machines now being used"
^DD(413.0124,.01,21,3,0)="in operation."
^DD(413.0124,.01,"DT")="2921027"
^DD(413.0124,"B","ADDITIONAL EQUIPMENT",.01)=""
^DD(413.0124,"GL",0,1,.01)=""
^DD(413.0125,0)="REPLACEMENT EQUIPMENT SUB-FIELD^^.01^1"
^DD(413.0125,0,"DT")="2921028"
^DD(413.0125,0,"NM","REPLACEMENT EQUIPMENT")=""
^DD(413.0125,0,"UP")="413"
^DD(413.0125,.01,0)="REPLACEMENT EQUIPMENT^W^^0;1^Q"
^DD(413.0125,.01,21,0)="^^3^3^2950621^"
^DD(413.0125,.01,21,1,0)="Requests for replacement equipment will include the complete description"
^DD(413.0125,.01,21,2,0)="of the item being replaced, estimate of repairs, total amount of money"
^DD(413.0125,.01,21,3,0)="expended for repairs while equipment was in use, and trade-in allowance."
^DD(413.0125,.01,"DT")="2921028"
^DD(413.0125,"B","REPLACEMENT EQUIPMENT",.01)=""
^DD(413.0125,"GL",0,1,.01)=""
^DD(413.0126,0)="JUSTIFICATION SUB-FIELD^^.01^1"
^DD(413.0126,0,"DT")="2921210"
^DD(413.0126,0,"NM","JUSTIFICATION")=""
^DD(413.0126,0,"UP")="413"
^DD(413.0126,.01,0)="JUSTIFICATION^W^^0;1^Q"
^DD(413.0126,.01,3)="Please enter a justification for why you are submitting this request."
^DD(413.0126,.01,21,0)="^^2^2^2950621^"
^DD(413.0126,.01,21,1,0)="A statement of justification for why the line item is being requested"
^DD(413.0126,.01,21,2,0)="is required."
^DD(413.0126,.01,"DT")="2921210"
^DD(413.0126,"B","JUSTIFICATION",.01)=""
^DD(413.0126,"GL",0,1,.01)=""
^DD(413.0127,0)="REASON CANCELLED SUB-FIELD^^.01^1"
^DD(413.0127,0,"DT")="2921210"
^DD(413.0127,0,"NM","REASON CANCELLED")=""
^DD(413.0127,0,"UP")="413"
^DD(413.0127,.01,0)="REASON CANCELLED^W^^0;1^Q"
^DD(413.0127,.01,21,0)="^^1^1^2950621^"
^DD(413.0127,.01,21,1,0)="A reason why the request was cancelled is required."
^DD(413.0127,.01,"DT")="2921210"
^DD(413.0127,"B","REASON CANCELLED",.01)=""
^DD(413.0127,"GL",0,1,.01)=""
^DD(413.0128,0)="EQUIP COMM EXPLANATION SUB-FIELD^^.01^1"
^DD(413.0128,0,"DT")="2931212"
^DD(413.0128,0,"NM","EQUIP COMM EXPLANATION")=""
^DD(413.0128,0,"UP")="413"
^DD(413.0128,.01,0)="EQUIP COMM EXPLANATION^W^^0;1^Q"
^DD(413.0128,.01,21,0)="^^2^2^2950621^"
^DD(413.0128,.01,21,1,0)="An explanation is required as to why the Equipment Committee did"
^DD(413.0128,.01,21,2,0)="not approve a request."
^DD(413.0128,.01,"DT")="2931212"
^DD(413.0128,"B","EQUIP COMM EXPLANATION",.01)=""
^DD(413.0128,"GL",0,1,.01)=""
^DD(413.0129,0)="CHIEF SUPPLY EXPLANATION SUB-FIELD^^.01^1"
^DD(413.0129,0,"DT")="2940406"
^DD(413.0129,0,"NM","CHIEF SUPPLY EXPLANATION")=""
^DD(413.0129,0,"UP")="413"
^DD(413.0129,.01,0)="CHIEF SUPPLY EXPLANATION^W^^0;1^Q"
^DD(413.0129,.01,3)="Enter an explanation of why this request has not been approved"
^DD(413.0129,.01,21,0)="^^2^2^2950621^"
^DD(413.0129,.01,21,1,0)="A reason why the Chief, Supply did not approve a equipment request"
^DD(413.0129,.01,21,2,0)="is required."
^DD(413.0129,.01,"DT")="2940406"
^DD(413.0129,"B","CHIEF SUPPLY EXPLANATION",.01)=""
^DD(413.0129,"GL",0,1,.01)=""
^DD(413.015,0)="LINE ITEM NUMBER SUB-FIELD^^15^16"
^DD(413.015,0,"DIK")="PRCNX"
^DD(413.015,0,"DT")="2960617"
^DD(413.015,0,"IX","B",413.015,.01)=""
^DD(413.015,0,"NM","LINE ITEM NUMBER")=""
^DD(413.015,0,"UP")="413"
^DD(413.015,.01,0)="LINE ITEM NUMBER^MRNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413.015,.01,.1)="LINE ITEM NUMBER"
^DD(413.015,.01,1,0)="^.1"
^DD(413.015,.01,1,1,0)="413.015^B"
^DD(413.015,.01,1,1,1)="S ^PRCN(413,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(413.015,.01,1,1,2)="K ^PRCN(413,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(413.015,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.015,.01,1,1,"%D",1,0)="This cross-reference is by the Line Item Number."
^DD(413.015,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(413.015,.01,21,0)="^^1^1^2960823^^^^"
^DD(413.015,.01,21,1,0)="This is the number of the item being requested."
^DD(413.015,.01,"DT")="2960823"
^DD(413.015,1,0)="DESCRIPTION^413.151^^1;0"
^DD(413.015,1,21,0)="^^1^1^2950620^"
^DD(413.015,1,21,1,0)="This is a full description of the line item that is being requested."
^DD(413.015,2,0)="POTENTIAL VENDOR PTR^P440'^PRC(440,^0;2^Q"
^DD(413.015,2,3)="Enter the name of a vendor this equipment could be purchased from."
^DD(413.015,2,21,0)="^^2^2^2950620^"
^DD(413.015,2,21,1,0)="This is the possible vendor that the requested line item could be"
^DD(413.015,2,21,2,0)="purchased from."
^DD(413.015,2,"DT")="2960419"
^DD(413.015,3,0)="VENDOR PRODUCT #^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(413.015,3,3)="Enter the Vendor's specific product number for this item"
^DD(413.015,3,21,0)="^^1^1^2950620^"
^DD(413.015,3,21,1,0)="This is the vendor's identification of a particular item."
^DD(413.015,3,"DT")="2921002"
^DD(413.015,4,0)="UNIT COST^RNJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(413.015,4,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(413.015,4,21,0)="^^1^1^2950620^"
^DD(413.015,4,21,1,0)="This is the cost for each quanitity of the line item."
^DD(413.015,4,"DT")="2921022"
^DD(413.015,5,0)="QUANTITY REQUIRED^RNJ4,0X^^0;5^D ^PRCNREQQ"
^DD(413.015,5,3)="Enter the quantity desired for this line item"
^DD(413.015,5,21,0)="^^3^3^2950620^"
^DD(413.015,5,21,1,0)="This is the quantity of the requested line item.  For replacement"
^DD(413.015,5,21,2,0)="items, there must be a correspondance between the quantity being"
^DD(413.015,5,21,3,0)="requested and the number of items being replaced."
^DD(413.015,5,"DT")="2940330"
^DD(413.015,6,0)="TOTAL COST^CJ8,2^^ ; ^S Y(413.015,6,1)=$S($D(^PRCN(413,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(413.015,6,1),U,4)*$P(Y(413.015,6,1),U,5) S X=$J(X,0,2)"
^DD(413.015,6,9)="^"
^DD(413.015,6,9.01)="413.015^5;413.015^4"
^DD(413.015,6,9.1)="#4*#5"
^DD(413.015,6,21,0)="^^2^2^2950620^"
^DD(413.015,6,21,1,0)="This is the UNIT COST times the QUANTITY REQUIRED to give an"
^DD(413.015,6,21,2,0)="estimated total cost for the requested line item."
^DD(413.015,7,0)="CONTRACT #^FX^^0;6^K:$L(X)>19!($L(X)<7) X D:$D(X) B^PRCNHLP"
^DD(413.015,7,3)="Answer must be 7-19 characters in length."
^DD(413.015,7,4)="D A^PRCNHLP"
^DD(413.015,7,21,0)="^^2^2^2950620^"
^DD(413.015,7,21,1,0)="This field can be used if there is a special contract already in"
^DD(413.015,7,21,2,0)="place for purchase of certain items."
^DD(413.015,7,"DT")="2921002"
^DD(413.015,8,0)="PARENT SYSTEM / COMPONENT^RS^P:PARENT SYSTEM;C:COMPONENT;^0;12^Q"
^DD(413.015,8,21,0)="^^3^3^2950620^"
^DD(413.015,8,21,1,0)="Some items when being requested need to be listed separately but"
^DD(413.015,8,21,2,0)="are not costed out separately.  These would be considered components"
^DD(413.015,8,21,3,0)="of a parent system."
^DD(413.015,8,"DT")="2921218"
^DD(413.015,9,0)="FINAL QUANTITY^RNJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(413.015,9,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(413.015,9,21,0)="^^2^2^2950620^"
^DD(413.015,9,21,1,0)="This field contains the number of items that were approved.  It may"
^DD(413.015,9,21,2,0)="not be the same as the quantity required."
^DD(413.015,9,"DT")="2921022"
^DD(413.015,10,0)="ITEM STATUS^RS^DD:DISAPPROVED;DF:DEFERRED;AP:APPROVED-PENDING FUNDS;AF:APPROVED-FUNDED;^0;8^Q"
^DD(413.015,10,21,0)="^^3^3^2950620^"
^DD(413.015,10,21,1,0)="This field is used to identify the status of a particular line item"
^DD(413.015,10,21,2,0)="after the review process.  Not all line items in a request may be"
^DD(413.015,10,21,3,0)="approved."
^DD(413.015,10,"DT")="2921022"
^DD(413.015,11,0)="ITEM STATUS EXPLANATION^413.1511^^3;0"
^DD(413.015,11,21,0)="^^1^1^2950620^"
^DD(413.015,11,21,1,0)="If a line item was not approved, a reason is required as to why."
^DD(413.015,12,0)="ITEM STATUS DATE^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413.015,12,21,0)="^^1^1^2950620^"
^DD(413.015,12,21,1,0)="This is the date that the line item's status was determined."
^DD(413.015,12,"DT")="2921002"
^DD(413.015,13,0)="CSN^P6917'^ENCSN(6917,^0;10^Q"
^DD(413.015,13,21,0)="^^2^2^2950620^"
^DD(413.015,13,21,1,0)="This is the Category Stock Number for non-expendable items.  It"
^DD(413.015,13,21,2,0)="is required for VACO 134s."
^DD(413.015,13,"DT")="2921027"
^DD(413.015,14,0)="EQUIP COM RANKING^RNJ3,0^^0;11^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413.015,14,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(413.015,14,21,0)="^^2^2^2950620^"
^DD(413.015,14,21,1,0)="This field is used to rank the line item when the Equipment Committee"
^DD(413.015,14,21,2,0)="is reviewing requests."
^DD(413.015,14,"DT")="2921110"
^DD(413.015,15,0)="POTENTIAL VENDOR^F^^0;13^K:$L(X)>30!($L(X)<1) X"
^DD(413.015,15,3)="Enter a free text vendor name, 1-30 characters"
^DD(413.015,15,4)="D VENHLP^PRCNUTL"
^DD(413.015,15,21,0)="^^2^2^2960123^^"
^DD(413.015,15,21,1,0)="This field is to be used for entering a recommended vendor for a line"
^DD(413.015,15,21,2,0)="item in a free text form if they are currently not in the Vendor file."
^DD(413.015,15,"DT")="2960617"
^DD(413.015,"B","CONTRACT #",7)=""
^DD(413.015,"B","CSN",13)=""
^DD(413.015,"B","DESCRIPTION",1)=""
^DD(413.015,"B","EQUIP COM RANKING",14)=""
^DD(413.015,"B","FINAL QUANTITY",9)=""
^DD(413.015,"B","ITEM STATUS",10)=""
^DD(413.015,"B","ITEM STATUS DATE",12)=""
^DD(413.015,"B","ITEM STATUS EXPLANATION",11)=""
^DD(413.015,"B","LINE ITEM NUMBER",.01)=""
^DD(413.015,"B","PARENT SYSTEM / COMPONENT",8)=""
^DD(413.015,"B","POTENTIAL VENDOR",15)=""
^DD(413.015,"B","POTENTIAL VENDOR PTR",2)=""
^DD(413.015,"B","QUANTITY REQUIRED",5)=""
^DD(413.015,"B","TOTAL COST",6)=""
^DD(413.015,"B","UNIT COST",4)=""
^DD(413.015,"B","VENDOR PRODUCT #",3)=""
^DD(413.015,"GL",0,1,.01)=""
^DD(413.015,"GL",0,2,2)=""
^DD(413.015,"GL",0,3,3)=""
^DD(413.015,"GL",0,4,4)=""
^DD(413.015,"GL",0,5,5)=""
^DD(413.015,"GL",0,6,7)=""
^DD(413.015,"GL",0,7,9)=""
^DD(413.015,"GL",0,8,10)=""
^DD(413.015,"GL",0,9,12)=""
^DD(413.015,"GL",0,10,13)=""
^DD(413.015,"GL",0,11,14)=""
^DD(413.015,"GL",0,12,8)=""
^DD(413.015,"GL",0,13,15)=""
^DD(413.015,"GL",1,0,1)=""
^DD(413.015,"GL",3,0,11)=""
^DD(413.015,"IX",.01)=""
^DD(413.015,"RQ",.01)=""
^DD(413.015,"RQ",4)=""
^DD(413.015,"RQ",5)=""
^DD(413.015,"RQ",8)=""
^DD(413.015,"RQ",9)=""
^DD(413.015,"RQ",10)=""
^DD(413.015,"RQ",14)=""
^DD(413.015,"SB",413.151,1)=""
^DD(413.015,"SB",413.1511,11)=""
^DD(413.028,0)="UTILITIES REQUIRED SUB-FIELD^^.01^1"
^DD(413.028,0,"DIK")="PRCNX"
^DD(413.028,0,"DT")="2960823"
^DD(413.028,0,"IX","B",413.028,.01)=""
^DD(413.028,0,"NM","UTILITIES REQUIRED")=""
^DD(413.028,0,"UP")="413"
^DD(413.028,.01,0)="UTILITIES REQUIRED^MRS^0:NONE;1:AIR;2:GAS;3:VACUUM;4:ADP;5:PLUMBING;6:ELECTRICITY-110V;7:ELECTRICITY>208V;8:EMERGENCY POWER;9:FIRE SPRINKLER;10:EXHAUST;11:A/C;12:STEAM;13:OTHER;14:PHONE;^0;1^Q"
^DD(413.028,.01,1,0)="^.1"
^DD(413.028,.01,1,1,0)="413.028^B"
^DD(413.028,.01,1,1,1)="S ^PRCN(413,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(413.028,.01,1,1,2)="K ^PRCN(413,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(413.028,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.028,.01,1,1,"%D",1,0)="This cross-reference is by utility."
^DD(413.028,.01,3)="Select as many utilities that are needed for installation."
^DD(413.028,.01,21,0)="^^3^3^2950605^"
^DD(413.028,.01,21,1,0)="This field is to tell Engineering what kind of work might be"
^DD(413.028,.01,21,2,0)="needed to install this equipment when received so they can"
^DD(413.028,.01,21,3,0)="allocate their resources."
^DD(413.028,.01,"DT")="2960823"
^DD(413.028,"B","UTILITIES REQUIRED",.01)=""
^DD(413.028,"GL",0,1,.01)=""
^DD(413.028,"IX",.01)=""
^DD(413.028,"RQ",.01)=""
^DD(413.03,0)="ENG. REMARKS SUB-FIELD^^.01^1"
^DD(413.03,0,"DT")="2921019"
^DD(413.03,0,"NM","ENG. REMARKS")=""
^DD(413.03,0,"UP")="413"
^DD(413.03,.01,0)="ENG. REMARKS^W^^0;1^Q"
^DD(413.03,.01,21,0)="^^2^2^2931201^"
^DD(413.03,.01,21,1,0)="Engineering comments of a general nature that may be of some"
^DD(413.03,.01,21,2,0)="benefit to the Equipment Committee."
^DD(413.03,.01,"DT")="2921019"
^DD(413.03,"B","ENG. REMARKS",.01)=""
^DD(413.03,"GL",0,1,.01)=""
^DD(413.046,0)="CONCURRING OFFICIALS SUB-FIELD^^5^5"
^DD(413.046,0,"DIK")="PRCNX"
^DD(413.046,0,"DT")="2921019"
^DD(413.046,0,"IX","B",413.046,.01)=""
^DD(413.046,0,"NM","CONCURRING OFFICIALS")=""
^DD(413.046,0,"UP")="413"
^DD(413.046,.01,0)="CONCURRING OFFICIALS^MP413.3^PRCN(413.3,^0;1^Q"
^DD(413.046,.01,1,0)="^.1"
^DD(413.046,.01,1,1,0)="413.046^B"
^DD(413.046,.01,1,1,1)="S ^PRCN(413,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(413.046,.01,1,1,2)="K ^PRCN(413,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(413.046,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.046,.01,1,1,"%D",1,0)="This cross-reference is by concurring official."
^DD(413.046,.01,3)="Select the person(s) you wish to review and approve this request."
^DD(413.046,.01,21,0)="^^2^2^2950620^^"
^DD(413.046,.01,21,1,0)="This can be other persons selected to review the request that"
^DD(413.046,.01,21,2,0)="may be affected by the purchase."
^DD(413.046,.01,"DT")="2921019"
^DD(413.046,1,0)="APPROVAL^S^Y:YES;N:NO;^0;2^Q"
^DD(413.046,1,3)="Enter 'Y'es if you approve this request."
^DD(413.046,1,21,0)="^^3^3^2940415^"
^DD(413.046,1,21,1,0)="The concurring official answers 'Yes' or 'No' on a request."
^DD(413.046,1,21,2,0)="If more than 50% of the chosen concurring officials do not"
^DD(413.046,1,21,3,0)="answer 'Yes', the request will not pass."
^DD(413.046,1,"DT")="2921019"
^DD(413.046,2,0)="APPROVAL DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413.046,2,21,0)="^^2^2^2940415^^^"
^DD(413.046,2,21,1,0)="This is the date that the concurring official approved the request."
^DD(413.046,2,21,2,0)="It is inserted automatically when the concurring official"
^DD(413.046,2,"DT")="2921019"
^DD(413.046,4,0)="COMMENTS^413.464^^1;0"
^DD(413.046,4,21,0)="^^3^3^2950619^"
^DD(413.046,4,21,1,0)="Any special comments that a concurring official might wish to enter"
^DD(413.046,4,21,2,0)="after reviewing a request.  May be required if they did not approve"
^DD(413.046,4,21,3,0)="the request and must give an explanation of why."
^DD(413.046,4,"DT")="2921214"
^DD(413.046,5,0)="DATE CONCURRENCE NEEDED BY^RD^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413.046,5,3)="Enter the date that the Concurring Official must respond by."
^DD(413.046,5,21,0)="^^2^2^2950620^"
^DD(413.046,5,21,1,0)="Enter the date by which the selected concurring official must"
^DD(413.046,5,21,2,0)="respond to the request by."
^DD(413.046,5,"DT")="2931209"
^DD(413.046,"B","APPROVAL",1)=""
^DD(413.046,"B","APPROVAL DATE",2)=""
^DD(413.046,"B","COMMENTS",4)=""
^DD(413.046,"B","CONCURRING OFFICIALS",.01)=""
^DD(413.046,"B","DATE CONCURRENCE NEEDED BY",5)=""
^DD(413.046,"GL",0,1,.01)=""
^DD(413.046,"GL",0,2,1)=""
^DD(413.046,"GL",0,3,2)=""
^DD(413.046,"GL",0,5,5)=""
^DD(413.046,"GL",1,0,4)=""
^DD(413.046,"IX",.01)=""
^DD(413.046,"RQ",5)=""
^DD(413.046,"SB",413.464,4)=""
^DD(413.1,0)="FIELD^^20^18"
^DD(413.1,0,"DDA")="N"
^DD(413.1,0,"DT")="2960307"
^DD(413.1,0,"ID",6)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCN(413.5,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(413.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(413.1,0,"IX","AB",413.11,.01)=""
^DD(413.1,0,"IX","AC",413.1,6)=""
^DD(413.1,0,"IX","AD",413.1,5)=""
^DD(413.1,0,"IX","B",413.1,.01)=""
^DD(413.1,0,"NM","TURN-IN REQUEST")=""
^DD(413.1,0,"PT",413,10)=""
^DD(413.1,0,"VR")="1.0"
^DD(413.1,0,"VRPK")="EQUIPMENT/TURN-IN REQUEST"
^DD(413.1,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413.1,.001,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(413.1,.001,21,0)="^^1^1^2950619^"
^DD(413.1,.001,21,1,0)="This is the sequential internal number of each turn-in request."
^DD(413.1,.001,"DT")="2921207"
^DD(413.1,.01,0)="TRANSACTION CODE^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(413.1,.01,1,0)="^.1"
^DD(413.1,.01,1,1,0)="413.1^B"
^DD(413.1,.01,1,1,1)="S ^PRCN(413.1,""B"",$E(X,1,30),DA)="""""
^DD(413.1,.01,1,1,2)="K ^PRCN(413.1,""B"",$E(X,1,30),DA)"
^DD(413.1,.01,1,1,"%D",0)="^^1^1^2940426^"
^DD(413.1,.01,1,1,"%D",1,0)="This cross-reference is by the generated transaction number."
^DD(413.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(413.1,.01,21,0)="^^3^3^2940414^^"
^DD(413.1,.01,21,1,0)="This is the temporary transaction number that is calculated based"
^DD(413.1,.01,21,2,0)="on the facility number, the CMR Official, the fiscal year and a "
^DD(413.1,.01,21,3,0)="sequential number."
^DD(413.1,1,0)="REQUESTOR^P200'^VA(200,^0;2^Q"
^DD(413.1,1,21,0)="^^2^2^2950620^^^"
^DD(413.1,1,21,1,0)="This is the person who initiates the request.  It defaults from the"
^DD(413.1,1,21,2,0)="DUZ number."
^DD(413.1,1,"DT")="2920910"
^DD(413.1,1.5,0)="REQUESTOR PHONE #^F^^3;3^K:$L(X)>20!($L(X)<4) X"
^DD(413.1,1.5,3)="Enter the phone number of the requestor."
^DD(413.1,1.5,21,0)="^^2^2^2931210^"
^DD(413.1,1.5,21,1,0)="This is the phone number of the requestor and should default"
^DD(413.1,1.5,21,2,0)="from new person file."
^DD(413.1,1.5,"DT")="2921104"
^DD(413.1,2,0)="REQUESTING SERVICE^P49'^DIC(49,^0;3^Q"
^DD(413.1,2,21,0)="^^2^2^2931110^"
^DD(413.1,2,21,1,0)="This is the requestor's service that is calculated from their"
^DD(413.1,2,21,2,0)="entry in the New Person file."
^DD(413.1,2,"DT")="2920910"
^DD(413.1,3,0)="REQUEST DATE/TIME^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413.1,3,21,0)="^^3^3^2931110^"
^DD(413.1,3,21,1,0)="This is the actual date and time that the request was initialized."
^DD(413.1,3,21,2,0)="This automatically defaults from the current date and time when the"
^DD(413.1,3,21,3,0)="request is being entered."
^DD(413.1,3,"DT")="2920910"
^DD(413.1,4,0)="STATION NUMBER^P411'^PRC(411,^0;5^Q"
^DD(413.1,4,21,0)="^^3^3^2931110^"
^DD(413.1,4,21,1,0)="This is the station number that will automatically default if there"
^DD(413.1,4,21,2,0)="is only one station numer otherwise, the requestor will be prompted"
^DD(413.1,4,21,3,0)="for it."
^DD(413.1,4,"DT")="2920910"
^DD(413.1,5,0)="CMR RESPONSIBLE OFFICIAL^P200'^VA(200,^0;6^Q"
^DD(413.1,5,1,0)="^.1"
^DD(413.1,5,1,1,0)="413.1^AD"
^DD(413.1,5,1,1,1)="S ^PRCN(413.1,""AD"",$E(X,1,30),DA)="""""
^DD(413.1,5,1,1,2)="K ^PRCN(413.1,""AD"",$E(X,1,30),DA)"
^DD(413.1,5,1,1,"%D",0)="^^1^1^2940426^"
^DD(413.1,5,1,1,"%D",1,0)="This cross-reference is by the CMR responsible offical."
^DD(413.1,5,1,1,"DT")="2921106"
^DD(413.1,5,5,1,0)="413.1^15^1"
^DD(413.1,5,21,0)="^^3^3^2931110^"
^DD(413.1,5,21,1,0)="This is the person who is associated with a particular CMR.  This"
^DD(413.1,5,21,2,0)="is defaulted when a CMR is selected and all messages will be"
^DD(413.1,5,21,3,0)="directed to this person."
^DD(413.1,5,"DT")="2921106"
^DD(413.1,6,0)="REQUEST STATUS^P413.5'^PRCN(413.5,^0;7^Q"
^DD(413.1,6,1,0)="^.1"
^DD(413.1,6,1,1,0)="413.1^AC"
^DD(413.1,6,1,1,1)="S ^PRCN(413.1,""AC"",$E(X,1,30),DA)="""""
^DD(413.1,6,1,1,2)="K ^PRCN(413.1,""AC"",$E(X,1,30),DA)"
^DD(413.1,6,1,1,"%D",0)="^^1^1^2940426^"
^DD(413.1,6,1,1,"%D",1,0)="This cross-reference is by request status."
^DD(413.1,6,1,1,"DT")="2921026"
^DD(413.1,6,21,0)="^^2^2^2931110^"
^DD(413.1,6,21,1,0)="This is the status of the request.  It is set at the completion of"
^DD(413.1,6,21,2,0)="each step of the process."
^DD(413.1,6,"DT")="2921026"
^DD(413.1,7,0)="STATUS DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413.1,7,21,0)="^^2^2^2931210^"
^DD(413.1,7,21,1,0)="This date is automatically set whenever the status on a request"
^DD(413.1,7,21,2,0)="changes.  It is the date that status was applied to the request."
^DD(413.1,7,"DT")="2920910"
^DD(413.1,8,0)="EQUIP REQUEST^P413'^PRCN(413,^0;9^Q"
^DD(413.1,8,21,0)="^^3^3^2950620^"
^DD(413.1,8,21,1,0)="This is a corresponding equipment request transaction if the"
^DD(413.1,8,21,2,0)="equipment request is replacement and a turn-in request is"
^DD(413.1,8,21,3,0)="generated."
^DD(413.1,8,"DT")="2920910"
^DD(413.1,9,0)="CMR OFFICIAL APPROVAL^RS^Y:YES;N:NO;^0;10^Q"
^DD(413.1,9,21,0)="^^2^2^2940414^"
^DD(413.1,9,21,1,0)="If the primary CMR Responsible Official does not approve a request,"
^DD(413.1,9,21,2,0)="the request will be returned to the requestor."
^DD(413.1,9,"DT")="2921019"
^DD(413.1,11,0)="CMR OFFICIAL EXPLANATION^413.111^^2;0"
^DD(413.1,11,21,0)="^^1^1^2950620^"
^DD(413.1,11,21,1,0)="This CMR Official must explain why a request was not approved."
^DD(413.1,12,0)="UTILITY DISCONNECT?^RS^Y:YES;N:NO;^0;12^Q"
^DD(413.1,12,21,0)="^^3^3^2950620^"
^DD(413.1,12,21,1,0)="This field is to designate the condition of the equipment that was"
^DD(413.1,12,21,2,0)="turned in.  Equipment that is in fair to good condition could be"
^DD(413.1,12,21,3,0)="sent to another medical center needing it."
^DD(413.1,12,"DT")="2921105"
^DD(413.1,13,0)="ENGINEER. WORK ORDER^P6920'^ENG(6920,^0;13^Q"
^DD(413.1,13,21,0)="^^3^3^2950620^"
^DD(413.1,13,21,1,0)="If a turn-in request must be disconnect or have any other engineering"
^DD(413.1,13,21,2,0)="work performed, a work order must be created.  This is a pointer to"
^DD(413.1,13,21,3,0)="that work order."
^DD(413.1,13,"DT")="2950620"
^DD(413.1,15,0)="CMR^RP6914.1'^ENG(6914.1,^0;16^Q"
^DD(413.1,15,1,0)="^.1"
^DD(413.1,15,1,1,0)="^^TRIGGER^413.1^5"
^DD(413.1,15,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=$P(^ENG(6914.1,X,0),U,2) X ^DD(413.1,15,1,1,1.4)"
^DD(413.1,15,1,1,1.4)="S DIH=$S($D(^PRCN(413.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=413.1,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(413.1,15,1,1,2)="Q"
^DD(413.1,15,1,1,"%D",0)="^^1^1^2950805^"
^DD(413.1,15,1,1,"%D",1,0)="This triggers the CMR Official when a particular CMR is entered."
^DD(413.1,15,1,1,"CREATE VALUE")="S X=$P(^ENG(6914.1,X,0),U,2)"
^DD(413.1,15,1,1,"DELETE VALUE")="NO EFFECT"
^DD(413.1,15,1,1,"DT")="2950805"
^DD(413.1,15,1,1,"FIELD")="#5"
^DD(413.1,15,21,0)="^^2^2^2931110^^"
^DD(413.1,15,21,1,0)="This is the CMR number who will ultimately be responsible for the"
^DD(413.1,15,21,2,0)="equipment when ordered and received."
^DD(413.1,15,"DT")="2950805"
^DD(413.1,16,0)="WAREHOUSE OFFICIAL^P200'^VA(200,^3;4^Q"
^DD(413.1,16,3)="Enter the person who is to pick up this equipment"
^DD(413.1,16,21,0)="^^2^2^2950620^"
^DD(413.1,16,21,1,0)="This field is for the person who has been assigned to pick up"
^DD(413.1,16,21,2,0)="the equipment that is being turned in."
^DD(413.1,16,"DT")="2931112"
^DD(413.1,20,0)="TURN-IN LINE ITEM^413.11IPA^^1;0"
^DD(413.1,20,21,0)="^^1^1^2950620^"
^DD(413.1,20,21,1,0)="This is for each item that the request for turn-in is being produced."
^DD(413.1,20,"DT")="2940322"
^DD(413.1,"B","CMR",15)=""
^DD(413.1,"B","CMR OFFICIAL APPROVAL",9)=""
^DD(413.1,"B","CMR OFFICIAL EXPLANATION",11)=""
^DD(413.1,"B","CMR RESPONSIBLE OFFICIAL",5)=""
^DD(413.1,"B","ENGINEER. WORK ORDER",13)=""
^DD(413.1,"B","EQUIP REQUEST",8)=""
^DD(413.1,"B","NUMBER",.001)=""
^DD(413.1,"B","REQUEST DATE/TIME",3)=""
^DD(413.1,"B","REQUEST STATUS",6)=""
^DD(413.1,"B","REQUESTING SERVICE",2)=""
^DD(413.1,"B","REQUESTOR",1)=""
^DD(413.1,"B","REQUESTOR PHONE #",1.5)=""
^DD(413.1,"B","STATION NUMBER",4)=""
^DD(413.1,"B","STATUS DATE",7)=""
^DD(413.1,"B","TRANSACTION CODE",.01)=""
^DD(413.1,"B","TURN-IN LINE ITEM",20)=""
^DD(413.1,"B","UTILITY DISCONNECT?",12)=""
^DD(413.1,"B","WAREHOUSE OFFICIAL",16)=""
^DD(413.1,"GL",0,1,.01)=""
^DD(413.1,"GL",0,2,1)=""
^DD(413.1,"GL",0,3,2)=""
^DD(413.1,"GL",0,4,3)=""
^DD(413.1,"GL",0,5,4)=""
^DD(413.1,"GL",0,6,5)=""
^DD(413.1,"GL",0,7,6)=""
^DD(413.1,"GL",0,8,7)=""
^DD(413.1,"GL",0,9,8)=""
^DD(413.1,"GL",0,10,9)=""
^DD(413.1,"GL",0,12,12)=""
^DD(413.1,"GL",0,13,13)=""
^DD(413.1,"GL",0,16,15)=""
^DD(413.1,"GL",1,0,20)=""
^DD(413.1,"GL",2,0,11)=""
^DD(413.1,"GL",3,3,1.5)=""
^DD(413.1,"GL",3,4,16)=""
^DD(413.1,"IX",.01)=""
^DD(413.1,"IX",5)=""
^DD(413.1,"IX",6)=""
^DD(413.1,"IX",15)=""
^DD(413.1,"RQ",.01)=""
^DD(413.1,"RQ",9)=""
^DD(413.1,"RQ",12)=""
^DD(413.1,"RQ",15)=""
^DD(413.1,"SB",413.11,20)=""
^DD(413.1,"SB",413.111,11)=""
^DD(413.11,0)="TURN-IN LINE ITEM SUB-FIELD^^12^11"
^DD(413.11,0,"DT")="2960307"
^DD(413.11,0,"ID",3)="W ""   "",$P(^(0),U,13)"
^DD(413.11,0,"IX","AC",413.11,2)=""
^DD(413.11,0,"IX","B",413.11,.01)=""
^DD(413.11,0,"NM","TURN-IN LINE ITEM")=""
^DD(413.11,0,"UP")="413.1"
^DD(413.11,.001,0)="TURN-IN LINE ITEM NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413.11,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(413.11,.001,21,0)="^^1^1^2950620^"
^DD(413.11,.001,21,1,0)="This is the sequential internal number for each line item."
^DD(413.11,.001,"DT")="2921207"
^DD(413.11,.01,0)="REPLACEMENT ITEM NUMBER^MP6914'X^ENG(6914,^0;1^D INP^PRCNTIRQ"
^DD(413.11,.01,1,0)="^.1"
^DD(413.11,.01,1,1,0)="413.11^B"
^DD(413.11,.01,1,1,1)="S ^PRCN(413.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(413.11,.01,1,1,2)="K ^PRCN(413.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(413.11,.01,1,1,"%D",0)="^^1^1^2940426^"
^DD(413.11,.01,1,1,"%D",1,0)="This is the regular cross-reference by line item."
^DD(413.11,.01,1,2,0)="413.1^AB"
^DD(413.11,.01,1,2,1)="S ^PRCN(413.1,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(413.11,.01,1,2,2)="K ^PRCN(413.1,""AB"",$E(X,1,30),DA(1),DA)"
^DD(413.11,.01,1,2,"%D",0)="^^2^2^2940426^"
^DD(413.11,.01,1,2,"%D",1,0)="This cross-reference is used to check to see if an inventoried"
^DD(413.11,.01,1,2,"%D",2,0)="item already has a turn-in request on file."
^DD(413.11,.01,1,2,"DT")="2921026"
^DD(413.11,.01,1,3,0)="^^TRIGGER^413.11^3"
^DD(413.11,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCN(413.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y X ^DD(413.11,.01,1,3,1.1) X ^DD(413.11,.01,1,3,1.4)"
^DD(413.11,.01,1,3,1.1)="S X=DIV S X=$P(^ENG(6914,X,0),U,2)"
^DD(413.11,.01,1,3,1.4)="S DIH=$S($D(^PRCN(413.1,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=413.11,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(413.11,.01,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCN(413.1,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(413.11,.01,1,3,2.4)"
^DD(413.11,.01,1,3,2.4)="S DIH=$S($D(^PRCN(413.1,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=413.11,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(413.11,.01,1,3,"%D",0)="^^1^1^2940426^"
^DD(413.11,.01,1,3,"%D",1,0)="This is triggered from the Equipment Inventory file"
^DD(413.11,.01,1,3,"CREATE VALUE")="S X=$P(^ENG(6914,X,0),U,2)"
^DD(413.11,.01,1,3,"DELETE VALUE")="@"
^DD(413.11,.01,1,3,"DT")="2940426"
^DD(413.11,.01,1,3,"FIELD")="#3"
^DD(413.11,.01,3)="Please select the entry from the Equipment Inventory file that you wish to turn-in."
^DD(413.11,.01,4)="S DV="""" D EQHLP^PRCNUTL1"
^DD(413.11,.01,21,0)="^^1^1^2950620^^"
^DD(413.11,.01,21,1,0)="This is a pointer to the item in the inventory that is being replaced."
^DD(413.11,.01,"DT")="2960226"
^DD(413.11,.5,0)="JUSTIFICATION^RS^1:Fair wear and tear;2:Excess equipment failure/repair;3:Upgrade;4:State-of-art technology;5:Replacement due to loss or damage;6:Other;^0;11^Q"
^DD(413.11,.5,21,0)="^^1^1^2950620^"
^DD(413.11,.5,21,1,0)="This is the reason why the item is requested to be turned in."
^DD(413.11,.5,"DT")="2921218"
^DD(413.11,.7,0)="OTHER JUSTIFICATION^F^^0;12^K:$L(X)>70!($L(X)<1) X"
^DD(413.11,.7,3)="Answer must be 1-70 characters in length."
^DD(413.11,.7,21,0)="^^1^1^2950620^"
^DD(413.11,.7,21,1,0)="This field is for a free text if 'OTHER' justification is selected."
^DD(413.11,.7,"DT")="2921218"
^DD(413.11,1,0)="DISPOSAL CONDITION CODE^S^1:Unused-Good;2:Unused-Fair;3:Unused-Poor;4:Used-Good;5:Used-Fair;6:Used-Poor;7:Repairs Required-15% of a/c or less;8:Repairs Required-16%-40% of a/c;9:Repairs Required-41%-65% of a/c;X:Salvage;S:Scrap;^0;2^Q"
^DD(413.11,1,21,0)="^^3^3^2960429^^"
^DD(413.11,1,21,1,0)="This field is to designate the condition of the equipment that was"
^DD(413.11,1,21,2,0)="turned in.  Equipment that is in fair to good condition could be"
^DD(413.11,1,21,3,0)="sent to another medical center needing it."
^DD(413.11,1,"DT")="2920910"
^DD(413.11,2,0)="EQUIP REQUEST LINE ITEM^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413.11,2,1,0)="^.1"
^DD(413.11,2,1,1,0)="413.11^AC"
^DD(413.11,2,1,1,1)="S ^PRCN(413.1,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(413.11,2,1,1,2)="K ^PRCN(413.1,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(413.11,2,1,1,"%D",0)="^^3^3^2940322^"
^DD(413.11,2,1,1,"%D",1,0)="This cross-reference is to be used to check against the quantity"
^DD(413.11,2,1,1,"%D",2,0)="of equipment request line item for editing/entering associated"
^DD(413.11,2,1,1,"%D",3,0)="replacement items."
^DD(413.11,2,1,1,"DT")="2940322"
^DD(413.11,2,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(413.11,2,21,0)="^^2^2^2920910^"
^DD(413.11,2,21,1,0)="This is the corresponding Equipment Request Line Item Number from"
^DD(413.11,2,21,2,0)="the Equipment Request File (413)."
^DD(413.11,2,"DT")="2940322"
^DD(413.11,3,0)="DESCRIPTION^F^^0;13^K:$L(X)>45!($L(X)<1) X"
^DD(413.11,3,3)="Enter the item description"
^DD(413.11,3,5,1,0)="413.11^.01^3"
^DD(413.11,3,21,0)="^^2^2^2950620^"
^DD(413.11,3,21,1,0)="This field is for a free text description of the line item to"
^DD(413.11,3,21,2,0)="be turned in."
^DD(413.11,3,"DT")="2931112"
^DD(413.11,4,0)="UTILITY DISCONNECT?^RS^Y:YES;N:NO;^0;4^Q"
^DD(413.11,4,3)="Does this item need special Engineering disconnect?"
^DD(413.11,4,21,0)="^^2^2^2950620^^"
^DD(413.11,4,21,1,0)="This field is answered 'Y'es if the line item needs to be disconnected by"
^DD(413.11,4,21,2,0)="the Engineering department."
^DD(413.11,4,"DT")="2921105"
^DD(413.11,5,0)="VOUCHER #^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(413.11,5,3)="Answer must be 1-15 characters in length."
^DD(413.11,5,21,0)="^^2^2^2950620^"
^DD(413.11,5,21,1,0)="This field is for a voucher number if the turned in item can"
^DD(413.11,5,21,2,0)="be sold."
^DD(413.11,5,21,3,0)="account."
^DD(413.11,5,"DT")="2921105"
^DD(413.11,11,0)="WORK ORDER #^P6920'^ENG(6920,^0;14^Q"
^DD(413.11,11,21,0)="^^3^3^2940329^"
^DD(413.11,11,21,1,0)="This is the work order number that is processed by Engineering"
^DD(413.11,11,21,2,0)="if the turn-in item must be disconnected or removed by the"
^DD(413.11,11,21,3,0)="Engineering department."
^DD(413.11,11,"DT")="2940329"
^DD(413.11,12,0)="WORK ORDER NEEDED^RS^Y:YES;N:NO;^0;8^Q"
^DD(413.11,12,3)="Enter 'Y'es if a work order will be needed to process turn-in item."
^DD(413.11,12,21,0)="^^2^2^2960307^"
^DD(413.11,12,21,1,0)="This field will be entered by the CMR Responsible Official on whether a"
^DD(413.11,12,21,2,0)="work order will be needed to process the item(s) to be turned-in."
^DD(413.11,12,"DT")="2960307"
^DD(413.11,"B","DESCRIPTION",3)=""
^DD(413.11,"B","DISPOSAL CONDITION CODE",1)=""
^DD(413.11,"B","EQUIP REQUEST LINE ITEM",2)=""
^DD(413.11,"B","JUSTIFICATION",.5)=""
^DD(413.11,"B","OTHER JUSTIFICATION",.7)=""
^DD(413.11,"B","REPLACEMENT ITEM NUMBER",.01)=""
^DD(413.11,"B","TURN-IN LINE ITEM NUMBER",.001)=""
^DD(413.11,"B","UTILITY DISCONNECT?",4)=""
^DD(413.11,"B","VOUCHER #",5)=""
^DD(413.11,"B","WORK ORDER #",11)=""
^DD(413.11,"B","WORK ORDER NEEDED",12)=""
^DD(413.11,"GL",0,1,.01)=""
^DD(413.11,"GL",0,2,1)=""
^DD(413.11,"GL",0,3,2)=""
^DD(413.11,"GL",0,4,4)=""
^DD(413.11,"GL",0,5,5)=""
^DD(413.11,"GL",0,8,12)=""
^DD(413.11,"GL",0,11,.5)=""
^DD(413.11,"GL",0,12,.7)=""
^DD(413.11,"GL",0,13,3)=""
^DD(413.11,"GL",0,14,11)=""
^DD(413.11,"IX",.01)=""
^DD(413.11,"IX",2)=""
^DD(413.11,"RQ",.5)=""
^DD(413.11,"RQ",4)=""
^DD(413.11,"RQ",12)=""
^DD(413.111,0)="CMR OFFICIAL EXPLANATION SUB-FIELD^^.01^1"
^DD(413.111,0,"DT")="2921019"
^DD(413.111,0,"NM","CMR OFFICIAL EXPLANATION")=""
^DD(413.111,0,"UP")="413.1"
^DD(413.111,.01,0)="CMR OFFICIAL EXPLANATION^W^^0;1^Q"
^DD(413.111,.01,21,0)="^^1^1^2950620^"
^DD(413.111,.01,21,1,0)="This CMR Official must explain why a request was not approved."
^DD(413.111,.01,"DT")="2921019"
^DD(413.111,"B","CMR OFFICIAL EXPLANATION",.01)=""
^DD(413.111,"GL",0,1,.01)=""
^DD(413.151,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(413.151,0,"DT")="2921002"
^DD(413.151,0,"NM","DESCRIPTION")=""
^DD(413.151,0,"UP")="413.015"
^DD(413.151,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(413.151,.01,21,0)="^^1^1^2950620^"
^DD(413.151,.01,21,1,0)="This is a full description of the line item that is being requested."
^DD(413.151,.01,"DT")="2921002"
^DD(413.151,"B","DESCRIPTION",.01)=""
^DD(413.151,"GL",0,1,.01)=""
^DD(413.1511,0)="ITEM STATUS EXPLANATION SUB-FIELD^^.01^1"
^DD(413.1511,0,"DT")="2921002"
^DD(413.1511,0,"NM","ITEM STATUS EXPLANATION")=""
^DD(413.1511,0,"UP")="413.015"
^DD(413.1511,.01,0)="ITEM STATUS EXPLANATION^W^^0;1^Q"
^DD(413.1511,.01,21,0)="^^1^1^2950620^"
^DD(413.1511,.01,21,1,0)="If a line item was not approved, a reason is required as to why."
^DD(413.1511,.01,"DT")="2921002"
^DD(413.1511,"B","ITEM STATUS EXPLANATION",.01)=""
^DD(413.1511,"GL",0,1,.01)=""
^DD(413.2,0)="FIELD^^3^4"
^DD(413.2,0,"DDA")="N"
^DD(413.2,0,"DT")="2931105"
^DD(413.2,0,"IX","B",413.2,.01)=""
^DD(413.2,0,"NM","EQUIPMENT COMMITTEE")=""
^DD(413.2,0,"VR")="1.0"
^DD(413.2,0,"VRPK")="EQUIPMENT/TURN-IN REQUEST"
^DD(413.2,.01,0)="MEMBER NAME^RP200'^VA(200,^0;1^Q"
^DD(413.2,.01,1,0)="^.1"
^DD(413.2,.01,1,1,0)="413.2^B"
^DD(413.2,.01,1,1,1)="S ^PRCN(413.2,""B"",$E(X,1,30),DA)="""""
^DD(413.2,.01,1,1,2)="K ^PRCN(413.2,""B"",$E(X,1,30),DA)"
^DD(413.2,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.2,.01,1,1,"%D",1,0)="This cross-reference by Equipment Committee member."
^DD(413.2,.01,3)=""
^DD(413.2,.01,21,0)="^^2^2^2950619^^"
^DD(413.2,.01,21,1,0)="This is a person who has been selected to serve on the Medical"
^DD(413.2,.01,21,2,0)="Center's Equipment Committee."
^DD(413.2,.01,"DT")="2931105"
^DD(413.2,1,0)="MEMBER TYPE^RS^C:CHAIRPERSON;M:MEMBER;^0;2^Q"
^DD(413.2,1,21,0)="^^1^1^2950619^^"
^DD(413.2,1,21,1,0)="Enter the member type of the committee member."
^DD(413.2,1,"DT")="2921105"
^DD(413.2,2,0)="SIGNATURE REQUIRED^RS^Y:YES;N:NO;^0;3^Q"
^DD(413.2,2,21,0)="^^1^1^2950619^"
^DD(413.2,2,21,1,0)="Enter 'yes' if a signture is required for approving a NX item."
^DD(413.2,2,"DT")="2921105"
^DD(413.2,3,0)="SCHEDULED MEETINGS^413.23D^^1;0"
^DD(413.2,3,21,0)="^^2^2^2950619^"
^DD(413.2,3,21,1,0)="Enter the date when the Equipment Committee is going to meet to review"
^DD(413.2,3,21,2,0)="requests."
^DD(413.2,"B","MEMBER NAME",.01)=""
^DD(413.2,"B","MEMBER TYPE",1)=""
^DD(413.2,"B","SCHEDULED MEETINGS",3)=""
^DD(413.2,"B","SIGNATURE REQUIRED",2)=""
^DD(413.2,"GL",0,1,.01)=""
^DD(413.2,"GL",0,2,1)=""
^DD(413.2,"GL",0,3,2)=""
^DD(413.2,"GL",1,0,3)=""
^DD(413.2,"IX",.01)=""
^DD(413.2,"RQ",.01)=""
^DD(413.2,"RQ",1)=""
^DD(413.2,"RQ",2)=""
^DD(413.2,"SB",413.23,3)=""
^DD(413.23,0)="SCHEDULED MEETINGS SUB-FIELD^^.01^1"
^DD(413.23,0,"DT")="2931105"
^DD(413.23,0,"IX","B",413.23,.01)=""
^DD(413.23,0,"NM","SCHEDULED MEETINGS")=""
^DD(413.23,0,"UP")="413.2"
^DD(413.23,.01,0)="MEETING DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(413.23,.01,1,0)="^.1"
^DD(413.23,.01,1,1,0)="413.23^B"
^DD(413.23,.01,1,1,1)="S ^PRCN(413.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(413.23,.01,1,1,2)="K ^PRCN(413.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(413.23,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.23,.01,1,1,"%D",1,0)="This cross-reference is by the scheduled meeting date."
^DD(413.23,.01,21,0)="^^2^2^2950619^"
^DD(413.23,.01,21,1,0)="Enter the date when the Equipment Committee is going to meet to review"
^DD(413.23,.01,21,2,0)="requests."
^DD(413.23,.01,"DT")="2931105"
^DD(413.23,"B","MEETING DATE",.01)=""
^DD(413.23,"GL",0,1,.01)=""
^DD(413.23,"IX",.01)=""
^DD(413.3,0)="FIELD^^1^2"
^DD(413.3,0,"DDA")="N"
^DD(413.3,0,"DT")="2931203"
^DD(413.3,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(3.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(3.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(413.3,0,"IX","B",413.3,.01)=""
^DD(413.3,0,"NM","CONCURRING OFFICIALS")=""
^DD(413.3,0,"PT",413.046,.01)=""
^DD(413.3,0,"VR")="1.0"
^DD(413.3,0,"VRPK")="EQUIPMENT/TURN-IN REQUEST"
^DD(413.3,.01,0)="NAME^RP200'^VA(200,^0;1^Q"
^DD(413.3,.01,1,0)="^.1"
^DD(413.3,.01,1,1,0)="413.3^B"
^DD(413.3,.01,1,1,1)="S ^PRCN(413.3,""B"",$E(X,1,30),DA)="""""
^DD(413.3,.01,1,1,2)="K ^PRCN(413.3,""B"",$E(X,1,30),DA)"
^DD(413.3,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.3,.01,1,1,"%D",1,0)="This cross-reference is by concurring official."
^DD(413.3,.01,1,2,0)="^^TRIGGER^413.3^1"
^DD(413.3,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCN(413.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$P(^VA(200,X,0),U,9) X ^DD(413.3,.01,1,2,1.4)"
^DD(413.3,.01,1,2,1.4)="S DIH=$S($D(^PRCN(413.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=413.3,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(413.3,.01,1,2,2)="Q"
^DD(413.3,.01,1,2,"%D",0)="^^1^1^2950805^"
^DD(413.3,.01,1,2,"%D",1,0)="This triggers the title from the New Person file."
^DD(413.3,.01,1,2,"CREATE VALUE")="S X=$P(^VA(200,X,0),U,9)"
^DD(413.3,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(413.3,.01,1,2,"DT")="2950805"
^DD(413.3,.01,1,2,"FIELD")="#1"
^DD(413.3,.01,3)=""
^DD(413.3,.01,21,0)="^^2^2^2950619^"
^DD(413.3,.01,21,1,0)="This is the name of designated officials at a VA Medical Center"
^DD(413.3,.01,21,2,0)="which must concur with any particular equipment request."
^DD(413.3,.01,"DT")="2950805"
^DD(413.3,1,0)="TITLE^P3.1'^DIC(3.1,^0;2^Q"
^DD(413.3,1,5,1,0)="413.3^.01^2"
^DD(413.3,1,21,0)="^^1^1^2950619^"
^DD(413.3,1,21,1,0)="This is the title of the concurring official."
^DD(413.3,1,"DT")="2931203"
^DD(413.3,"B","NAME",.01)=""
^DD(413.3,"B","TITLE",1)=""
^DD(413.3,"GL",0,1,.01)=""
^DD(413.3,"GL",0,2,1)=""
^DD(413.3,"IX",.01)=""
^DD(413.3,"RQ",.01)=""
^DD(413.4,0)="FIELD^^1^2"
^DD(413.4,0,"DDA")="N"
^DD(413.4,0,"DT")="2920821"
^DD(413.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(413.4,0,"IX","B",413.4,.01)=""
^DD(413.4,0,"NM","SPECIAL HANDLING CODES")=""
^DD(413.4,0,"VR")="1.0"
^DD(413.4,0,"VRPK")="EQUIPMENT/TURN-IN REQUEST"
^DD(413.4,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(413.4,.01,1,0)="^.1"
^DD(413.4,.01,1,1,0)="413.4^B"
^DD(413.4,.01,1,1,1)="S ^PRCN(413.4,""B"",$E(X,1,30),DA)="""""
^DD(413.4,.01,1,1,2)="K ^PRCN(413.4,""B"",$E(X,1,30),DA)"
^DD(413.4,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.4,.01,1,1,"%D",1,0)="This cross-reference is by the special handling code."
^DD(413.4,.01,3)="Answer must be 1-2 characters in length."
^DD(413.4,.01,21,0)="^^2^2^2950619^"
^DD(413.4,.01,21,1,0)="This is a code that represents any special handling that might"
^DD(413.4,.01,21,2,0)="be needed for a piece of equipment."
^DD(413.4,.01,"DT")="2920821"
^DD(413.4,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(413.4,1,3)="Answer must be 2-30 characters in length."
^DD(413.4,1,21,0)="^^2^2^2950619^"
^DD(413.4,1,21,1,0)="This is a description of the shorter code that is used to store"
^DD(413.4,1,21,2,0)="any special handling of items."
^DD(413.4,1,"DT")="2920821"
^DD(413.4,"B","CODE",.01)=""
^DD(413.4,"B","DESCRIPTION",1)=""
^DD(413.4,"GL",0,1,.01)=""
^DD(413.4,"GL",0,2,1)=""
^DD(413.4,"IX",.01)=""
^DD(413.4,"RQ",.01)=""
^DD(413.464,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(413.464,0,"DT")="2921019"
^DD(413.464,0,"NM","COMMENTS")=""
^DD(413.464,0,"UP")="413.046"
^DD(413.464,.01,0)="COMMENTS^W^^0;1^Q"
^DD(413.464,.01,21,0)="^^3^3^2950619^"
^DD(413.464,.01,21,1,0)="Any special comments that a concurring official might wish to enter"
^DD(413.464,.01,21,2,0)="after reviewing a request.  May be required if they did not approve"
^DD(413.464,.01,21,3,0)="the request and must give an explanation of why."
^DD(413.464,.01,"DT")="2921214"
^DD(413.464,"B","COMMENTS",.01)=""
^DD(413.464,"GL",0,1,.01)=""
^DD(413.5,0)="FIELD^^1^3"
^DD(413.5,0,"DDA")="N"
^DD(413.5,0,"DT")="2921008"
^DD(413.5,0,"IX","B",413.5,.01)=""
^DD(413.5,0,"NM","NX STATUS")=""
^DD(413.5,0,"PT",413,6)=""
^DD(413.5,0,"PT",413,77)=""
^DD(413.5,0,"PT",413.1,6)=""
^DD(413.5,0,"VR")="1.0"
^DD(413.5,0,"VRPK")="EQUIPMENT/TURN-IN REQUEST"
^DD(413.5,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413.5,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(413.5,.001,21,0)="^^1^1^2950619^^"
^DD(413.5,.001,21,1,0)="Internal number for each status."
^DD(413.5,.001,"DT")="2921008"
^DD(413.5,.01,0)="STATUS^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(413.5,.01,1,0)="^.1"
^DD(413.5,.01,1,1,0)="413.5^B"
^DD(413.5,.01,1,1,1)="S ^PRCN(413.5,""B"",$E(X,1,30),DA)="""""
^DD(413.5,.01,1,1,2)="K ^PRCN(413.5,""B"",$E(X,1,30),DA)"
^DD(413.5,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.5,.01,1,1,"%D",1,0)="This cross-reference is by the status."
^DD(413.5,.01,1,1,"DT")="2940420"
^DD(413.5,.01,3)="Answer must be 1-60 characters in length."
^DD(413.5,.01,21,0)="^^3^3^2960226^^^"
^DD(413.5,.01,21,1,0)="These are the statuses used in the Equipment and Turn-In requests"
^DD(413.5,.01,21,2,0)="to go to the next step in the process.  Also used for users to only"
^DD(413.5,.01,21,3,0)="view certain statuses."
^DD(413.5,.01,"DT")="2940420"
^DD(413.5,1,0)="MODULE^S^E:EQUIPMENT REQUEST;T:TURN-IN;B:BOTH;^0;2^Q"
^DD(413.5,1,3)=""
^DD(413.5,1,21,0)="^^1^1^2950619^^"
^DD(413.5,1,21,1,0)="This explains which status goes with which part of the module."
^DD(413.5,1,"DT")="2940420"
^DD(413.5,"B","MODULE",1)=""
^DD(413.5,"B","NUMBER",.001)=""
^DD(413.5,"B","STATUS",.01)=""
^DD(413.5,"GL",0,1,.01)=""
^DD(413.5,"GL",0,2,1)=""
^DD(413.5,"IX",.01)=""
^DD(413.5,"RQ",.01)=""
^DD(413.7,0)="FIELD^^1^2"
^DD(413.7,0,"DDA")="N"
^DD(413.7,0,"DT")="2921106"
^DD(413.7,0,"IX","B",413.7,.01)=""
^DD(413.7,0,"NM","COUNTER")=""
^DD(413.7,0,"VR")="1.0"
^DD(413.7,0,"VRPK")="EQUIPMENT/TURN-IN REQUEST"
^DD(413.7,.01,0)="CODE^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(413.7,.01,1,0)="^.1"
^DD(413.7,.01,1,1,0)="413.7^B"
^DD(413.7,.01,1,1,1)="S ^PRCN(413.7,""B"",$E(X,1,30),DA)="""""
^DD(413.7,.01,1,1,2)="K ^PRCN(413.7,""B"",$E(X,1,30),DA)"
^DD(413.7,.01,1,1,"%D",0)="^^1^1^2950621^"
^DD(413.7,.01,1,1,"%D",1,0)="This cross-reference is by the counter's identifying code."
^DD(413.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(413.7,.01,21,0)="^^2^2^2950605^"
^DD(413.7,.01,21,1,0)="This field is the identifying portion of the Sequential Transaction"
^DD(413.7,.01,21,2,0)="Number. It's structure is Site#-CMR#-Fiscal Year."
^DD(413.7,.01,"DT")="2931201"
^DD(413.7,1,0)="LAST NUMBER USED^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(413.7,1,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(413.7,1,21,0)="^^2^2^2950605^"
^DD(413.7,1,21,1,0)="This is the last sequential number that was used for a Sequential"
^DD(413.7,1,21,2,0)="Transaction Number."
^DD(413.7,1,"DT")="2921106"
^DD(413.7,"B","CODE",.01)=""
^DD(413.7,"B","LAST NUMBER USED",1)=""
^DD(413.7,"GL",0,1,.01)=""
^DD(413.7,"GL",0,2,1)=""
^DD(413.7,"IX",.01)=""
^DD(413.7,"RQ",.01)=""
^DD(414.02,0)="FIELD^^13^14"
^DD(414.02,0,"DDA")="N"
^DD(414.02,0,"DT")="3050413"
^DD(414.02,0,"IX","C",414.02,4)=""
^DD(414.02,0,"IX","D",414.02,7)=""
^DD(414.02,0,"NM","DYNAMED IFCAP INTERFACE AUDIT")=""
^DD(414.02,0,"VR")="5.1"
^DD(414.02,0,"VRPK")="PRC"
^DD(414.02,.01,0)="DM DOC ID^RFI^^0;1^K:$L(X)>16!($L(X)<9)!'(X'?1P.E) X"
^DD(414.02,.01,1,0)="^.1^^0"
^DD(414.02,.01,3)="Answer must be 9-16 characters in length."
^DD(414.02,.01,21,0)="^^9^9^3050301^"
^DD(414.02,.01,21,1,0)="This is DynaMed's unique number associated with each item that is sent on "
^DD(414.02,.01,21,2,0)="a request order from DynaMed."
^DD(414.02,.01,21,3,0)=" "
^DD(414.02,.01,21,4,0)="It is composed of 1 digit for Year concatenated with 3 digit Julian Date"
^DD(414.02,.01,21,5,0)="and a dash, concatenated with 4 digit Sequential Number and a dash,"
^DD(414.02,.01,21,6,0)="concatenated up to 6 characters for the stockroom(ex YDDD-9999-CCCCCC)."
^DD(414.02,.01,21,7,0)=" "
^DD(414.02,.01,21,8,0)="This number is provided by DynaMed, a user's input is not required."
^DD(414.02,.01,21,9,0)="DynaMed allows 16 characters maximum."
^DD(414.02,.01,23,0)="^^6^6^3050301^"
^DD(414.02,.01,23,1,0)="This number will be associated with an order request from DynaMed.  Each "
^DD(414.02,.01,23,2,0)="order request will identify a single item in Item Master File in IFCAP. "
^DD(414.02,.01,23,3,0)="It is recorded in this file for auditing purpose and to ensure that "
^DD(414.02,.01,23,4,0)="requests bearing the same Document ID are only processed once by IFCAP."
^DD(414.02,.01,23,5,0)=" "
^DD(414.02,.01,23,6,0)="A user is not allowed to edit this field."
^DD(414.02,.01,"DT")="3050304"
^DD(414.02,1,0)="ITEM^P441'^PRC(441,^0;2^Q"
^DD(414.02,1,3)="This field holds Item's internal entry number(IEN)."
^DD(414.02,1,21,0)="^^2^2^3050228^"
^DD(414.02,1,21,1,0)="An item's Internal Entry Number(IEN) is stored in this field. It is"
^DD(414.02,1,21,2,0)="updated when RIL record is built in IFCAP."
^DD(414.02,1,23,0)="^.001^1^1^3050228^^^"
^DD(414.02,1,23,1,0)="This field should not be edited by a user."
^DD(414.02,1,"DT")="3050228"
^DD(414.02,2,0)="VENDOR^P440'^PRC(440,^0;3^Q"
^DD(414.02,2,3)="This fields holds Vendor's internal entry number(IEN)."
^DD(414.02,2,21,0)="^^2^2^3050228^"
^DD(414.02,2,21,1,0)="A vendor's Internal Entry Number(IEN) is stored in this field. It is "
^DD(414.02,2,21,2,0)="populated when a RIL record is built in IFCAP for DynaMed."
^DD(414.02,2,23,0)="^^1^1^3050228^"
^DD(414.02,2,23,1,0)="This field should not be edited by a user."
^DD(414.02,2,"DT")="3050228"
^DD(414.02,3,0)="ENTERED BY^P200'^VA(200,^0;4^Q"
^DD(414.02,3,3)="It identifies a person who entered the transaction (ex. RIL, 2237 or PC order transaction)."
^DD(414.02,3,21,0)="^^1^1^3050301^^"
^DD(414.02,3,21,1,0)="The user's DUZ, who entered the transaction is placed in this field."
^DD(414.02,3,23,0)="^.001^1^1^3050228^^^^"
^DD(414.02,3,23,1,0)="This field should not be edited by a user."
^DD(414.02,3,"DT")="3050301"
^DD(414.02,4,0)="RIL#^F^^0;5^K:$L(X)>25!($L(X)<12) X"
^DD(414.02,4,1,0)="^.1"
^DD(414.02,4,1,1,0)="414.02^C"
^DD(414.02,4,1,1,1)="S ^PRCV(414.02,""C"",$E(X,1,30),DA)="""""
^DD(414.02,4,1,1,2)="K ^PRCV(414.02,""C"",$E(X,1,30),DA)"
^DD(414.02,4,1,1,"%D",0)="^^1^1^3050309^"
^DD(414.02,4,1,1,"%D",1,0)="Index a RIL # for lookup."
^DD(414.02,4,1,1,"DT")="3050309"
^DD(414.02,4,3)="Answer must be 12-25 characters in length."
^DD(414.02,4,21,0)="^^1^1^3050223^"
^DD(414.02,4,21,1,0)="This field holds a reference to RIL File 410.3, field .01 'Entry Number'."
^DD(414.02,4,23,0)="^^1^1^3050223^"
^DD(414.02,4,23,1,0)="This data should not be edited."
^DD(414.02,4,"DT")="3050309"
^DD(414.02,5,0)="DATE/TIME CREATED IN IFCAP^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(414.02,5,3)="This time stamp refers to when a transactions was created in IFCAP."
^DD(414.02,5,21,0)="^^3^3^3050228^"
^DD(414.02,5,21,1,0)="This field refers to Date and Time stamp when a transaction was created in"
^DD(414.02,5,21,2,0)="IFCAP.  (ex. A transaction can be from REPETITIVE ITEM LIST (RIL) File"
^DD(414.02,5,21,3,0)="#410.3 or CONTROL POINT ACTIVITY (CPA) File #410)"
^DD(414.02,5,23,0)="^.001^2^2^3050228^^"
^DD(414.02,5,23,1,0)="The data should be stored in internal FileMan format.  This field should"
^DD(414.02,5,23,2,0)="not be edited by a user."
^DD(414.02,5,"DT")="3050228"
^DD(414.02,6,0)="DATE/TIME CREATED IN DYNAMED^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(414.02,6,3)="This time stamp refers to date & time when a Requisition was generated in DynaMed. "
^DD(414.02,6,21,0)="^^2^2^3050223^"
^DD(414.02,6,21,1,0)="This time stamp refers to date & time when a Requisition was created in "
^DD(414.02,6,21,2,0)="DynaMed."
^DD(414.02,6,23,0)="^^1^1^3050223^^"
^DD(414.02,6,23,1,0)="This field should not be edited by a user."
^DD(414.02,6,"DT")="3050223"
^DD(414.02,7,0)="2237#^F^^0;8^K:$L(X)>18!($L(X)<3) X"
^DD(414.02,7,1,0)="^.1"
^DD(414.02,7,1,1,0)="414.02^D"
^DD(414.02,7,1,1,1)="S ^PRCV(414.02,""D"",$E(X,1,30),DA)="""""
^DD(414.02,7,1,1,2)="K ^PRCV(414.02,""D"",$E(X,1,30),DA)"
^DD(414.02,7,1,1,"%D",0)="^^1^1^3050309^"
^DD(414.02,7,1,1,"%D",1,0)="Index a 2237 # for a lookup. "
^DD(414.02,7,1,1,"DT")="3050309"
^DD(414.02,7,3)="Answer must be 3-18 characters in length. This field holds the reference to entry made in CPA File #410."
^DD(414.02,7,21,0)="^^2^2^3050228^"
^DD(414.02,7,21,1,0)="This field holds the reference to entry made in CONTROL POINT ACTIVITY "
^DD(414.02,7,21,2,0)="File #410, field .01 'Transaction Number'."
^DD(414.02,7,23,0)="^.001^1^1^3050228^^^"
^DD(414.02,7,23,1,0)="This field should not be edited."
^DD(414.02,7,"DT")="3050309"
^DD(414.02,8,0)="DATE/TIME REMOVED FROM IFCAP^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(414.02,8,3)="This refers to when a transaction was deleted from IFCAP."
^DD(414.02,8,21,0)="^^2^2^3050223^^"
^DD(414.02,8,21,1,0)="This date and time will inform when a transaction (such as RIL or 2237)"
^DD(414.02,8,21,2,0)="was deleted from IFCAP."
^DD(414.02,8,23,0)="^^1^1^3050223^^"
^DD(414.02,8,23,1,0)="This field should not be edited by a user."
^DD(414.02,8,"DT")="3050223"
^DD(414.02,9,0)="WHO DELETED^P200'^VA(200,^0;10^Q"
^DD(414.02,9,3)="This field identifies the person who deleted a transaction containing this DM DOC ID from a file (ex. files 410, 410.3)."
^DD(414.02,9,21,0)="^^2^2^3050301^"
^DD(414.02,9,21,1,0)="This field will hold the DUZ of the person who deleted the transaction "
^DD(414.02,9,21,2,0)="containing this DM DOC ID from a file (ex. 410, 410.3 or 442)."
^DD(414.02,9,23,0)="^.001^1^1^3050301^^^^"
^DD(414.02,9,23,1,0)="This field should not be edited by a user."
^DD(414.02,9,"DT")="3050301"
^DD(414.02,10,0)="PC ORDER#^F^^0;11^K:$L(X)>15!($L(X)<10) X"
^DD(414.02,10,3)="Answer must be 10-15 characters in length. It is a Purchase Card Order#."
^DD(414.02,10,21,0)="^^4^4^3050228^"
^DD(414.02,10,21,1,0)="This field will hold a Purchase Card Order external number that is "
^DD(414.02,10,21,2,0)="PROCUREMENT & ACCOUNTIN G TRANSACTIONS File #442, field's .01 value."
^DD(414.02,10,21,3,0)=" "
^DD(414.02,10,21,4,0)="It is only meant for orders related to Purchase Card."
^DD(414.02,10,23,0)="^.001^1^1^3050228^^"
^DD(414.02,10,23,1,0)="This field should not be edited by a user."
^DD(414.02,10,"DT")="3050228"
^DD(414.02,11,0)="RECEIVING^414.021DA^^1;0"
^DD(414.02,11,21,0)="^^1^1^3050218^"
^DD(414.02,11,21,1,0)="This multiple is used to hold details about Receiving."
^DD(414.02,12,0)="DATE NEEDED BY^DI^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(414.02,12,3)="(No range limit on date)"
^DD(414.02,12,10)="DynaMed --Information Control"
^DD(414.02,12,21,0)="^^2^2^3050223^"
^DD(414.02,12,21,1,0)="This field is provided by DynaMed, it is this date that DynaMed "
^DD(414.02,12,21,2,0)="anticipates receiving an item."
^DD(414.02,12,23,0)="^^3^3^3050223^^"
^DD(414.02,12,23,1,0)="This date is received from DynaMed on a requisition which is entered in "
^DD(414.02,12,23,2,0)="RIL, and then carried on to 2237, Purchase Order as the item is processed "
^DD(414.02,12,23,3,0)="through IFCAP."
^DD(414.02,12,"DT")="3050225"
^DD(414.02,13,0)="ENTERED BY NAME^F^^2;1^K:$L(X)>35!($L(X)<1) X"
^DD(414.02,13,3)="Answer must be 1-35 characters in length."
^DD(414.02,13,21,0)="^.001^6^6^3050413^^"
^DD(414.02,13,21,1,0)="Enter the name of the user who entered this requisition in DynaMed in"
^DD(414.02,13,21,2,0)="the format Family(Last),Given(First).  This name corresponds to the data"
^DD(414.02,13,21,3,0)="in the ENTERED BY field #3."
^DD(414.02,13,21,4,0)=" "
^DD(414.02,13,21,5,0)="The value must be 1-35 characters in length and should contain only "
^DD(414.02,13,21,6,0)="uppercase alpha characters."
^DD(414.02,13,"DT")="3050413"
^DD(414.02,"B","2237#",7)=""
^DD(414.02,"B","DATE NEEDED BY",12)=""
^DD(414.02,"B","DATE/TIME CREATED IN DYNAMED",6)=""
^DD(414.02,"B","DATE/TIME CREATED IN IFCAP",5)=""
^DD(414.02,"B","DATE/TIME REMOVED FROM IFCAP",8)=""
^DD(414.02,"B","DM DOC ID",.01)=""
^DD(414.02,"B","ENTERED BY",3)=""
^DD(414.02,"B","ENTERED BY NAME",13)=""
^DD(414.02,"B","ITEM",1)=""
^DD(414.02,"B","PC ORDER#",10)=""
^DD(414.02,"B","RECEIVING",11)=""
^DD(414.02,"B","RIL#",4)=""
^DD(414.02,"B","VENDOR",2)=""
^DD(414.02,"B","WHO DELETED",9)=""
^DD(414.02,"GL",0,1,.01)=""
^DD(414.02,"GL",0,2,1)=""
^DD(414.02,"GL",0,3,2)=""
^DD(414.02,"GL",0,4,3)=""
^DD(414.02,"GL",0,5,4)=""
^DD(414.02,"GL",0,6,5)=""
^DD(414.02,"GL",0,7,6)=""
^DD(414.02,"GL",0,8,7)=""
^DD(414.02,"GL",0,9,8)=""
^DD(414.02,"GL",0,10,9)=""
^DD(414.02,"GL",0,11,10)=""
^DD(414.02,"GL",0,12,12)=""
^DD(414.02,"GL",1,0,11)=""
^DD(414.02,"GL",2,1,13)=""
^DD(414.02,"IX",4)=""
^DD(414.02,"IX",7)=""
^DD(414.02,"RQ",.01)=""
^DD(414.02,"SB",414.021,11)=""
^DD(414.021,0)="RECEIVING SUB-FIELD^^5^6"
^DD(414.021,0,"DT")="3050223"
^DD(414.021,0,"IX","B",414.021,.01)=""
^DD(414.021,0,"NM","RECEIVING")=""
^DD(414.021,0,"UP")="414.02"
^DD(414.021,.01,0)="DATE/TIME RR DELETED^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(414.021,.01,1,0)="^.1"
^DD(414.021,.01,1,1,0)="414.021^B"
^DD(414.021,.01,1,1,1)="S ^PRCV(414.02,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(414.021,.01,1,1,2)="K ^PRCV(414.02,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(414.021,.01,3)="A Date/Time when Receiving Report was deleted."
^DD(414.021,.01,21,0)="^^2^2^3050301^"
^DD(414.021,.01,21,1,0)="This field refers to the date and time stamp when a certain Receiving"
^DD(414.021,.01,21,2,0)="Report(or Partial) was deleted in IFCAP."
^DD(414.021,.01,23,0)="^^1^1^3050223^"
^DD(414.021,.01,23,1,0)="This date should be in FileMan internal format."
^DD(414.021,.01,"DT")="3050301"
^DD(414.021,1,0)="RR DELETED BY^P200'^VA(200,^0;2^Q"
^DD(414.021,1,3)="This field identifies the person who deleted a Receiving Report."
^DD(414.021,1,"DT")="3050531"
^DD(414.021,2,0)="DATE/TIME RR CREATED^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(414.021,2,3)="A Date/Time when this Receiving Report was created."
^DD(414.021,2,21,0)="^^1^1^3050301^^"
^DD(414.021,2,21,1,0)="A date and time stamp when this Receiving Report was created in IFCAP."
^DD(414.021,2,23,0)="^^1^1^3050301^^"
^DD(414.021,2,23,1,0)="It should be in FileMan internal format."
^DD(414.021,2,"DT")="3050301"
^DD(414.021,3,0)="QTY RECEIVED^RNJ9,2^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3.N) X"
^DD(414.021,3,3)="Type a number between 0 and 999999, 2 Decimal Digits"
^DD(414.021,3,21,0)="^^1^1^3050228^"
^DD(414.021,3,21,1,0)="A quantity received for an item on a purchase order."
^DD(414.021,3,23,0)="^^2^2^3050301^"
^DD(414.021,3,23,1,0)="In IFCAP a quantity for an item can be entered in decimals."
^DD(414.021,3,23,2,0)="(However, in DynaMed quantities will not allowed to be in decimals.)"
^DD(414.021,3,"DT")="3050301"
^DD(414.021,4,0)="RR ITEM COST^NJ11,2^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""3.N) X"
^DD(414.021,4,3)="Type a number between 0 and 99999999, 2 Decimal Digits"
^DD(414.021,4,21,0)="^^1^1^3050228^^"
^DD(414.021,4,21,1,0)="This is a unit cost of an item."
^DD(414.021,4,23,0)="^^1^1^3050228^^^"
^DD(414.021,4,23,1,0)="It should not be modified by a user."
^DD(414.021,4,"DT")="3050228"
^DD(414.021,5,0)="RR ITEM DISCNT^NJ12,3^^0;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""4.N) X"
^DD(414.021,5,3)="Type a number between 0 and 99999999, 3 Decimal Digits"
^DD(414.021,5,21,0)="^^1^1^3050223^"
^DD(414.021,5,21,1,0)="This is a discount on an item."
^DD(414.021,5,23,0)="^^1^1^3050223^"
^DD(414.021,5,23,1,0)="A user should NOT modify."
^DD(414.021,5,"DT")="3050223"
^DD(414.021,"B","DATE/TIME RR CREATED",2)=""
^DD(414.021,"B","DATE/TIME RR DELETED",.01)=""
^DD(414.021,"B","QTY RECEIVED",3)=""
^DD(414.021,"B","RR DELETED BY",1)=""
^DD(414.021,"B","RR ITEM COST",4)=""
^DD(414.021,"B","RR ITEM DISCNT",5)=""
^DD(414.021,"GL",0,1,.01)=""
^DD(414.021,"GL",0,2,1)=""
^DD(414.021,"GL",0,3,2)=""
^DD(414.021,"GL",0,4,3)=""
^DD(414.021,"GL",0,5,4)=""
^DD(414.021,"GL",0,6,5)=""
^DD(414.021,"IX",.01)=""
^DD(414.021,"RQ",.01)=""
^DD(414.021,"RQ",3)=""
^DD(414.03,0)="FIELD^^10^7"
^DD(414.03,0,"DDA")="N"
^DD(414.03,0,"DT")="3050315"
^DD(414.03,0,"IX","AC",414.03,.03)=""
^DD(414.03,0,"NM","COTS INVENTORY SUBSCRIPTION CONTROL")=""
^DD(414.03,0,"VR")="5.1"
^DD(414.03,0,"VRPK")="PRC"
^DD(414.03,.01,0)="STATION^P411'^PRC(411,^0;1^Q"
^DD(414.03,.01,1,0)="^.1^^0"
^DD(414.03,.01,3)="This must be the station number or 0 if none"
^DD(414.03,.01,21,0)="^^2^2^3050228^"
^DD(414.03,.01,21,1,0)="This is the station number associated with the IFCAP object being "
^DD(414.03,.01,21,2,0)="moniored. It is required, but may be 0."
^DD(414.03,.01,"DT")="3050315"
^DD(414.03,.02,0)="SUBSCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(414.03,.02,3)="This is the entity associated with the subscription"
^DD(414.03,.02,21,0)="^^3^3^3050228^"
^DD(414.03,.02,21,1,0)="This is the object (e.g., fund control point) being monitored. This field "
^DD(414.03,.02,21,2,0)="is an identifying string (required) and field .03 identifies the type of "
^DD(414.03,.02,21,3,0)="objct. The format of the string depends on the object type."
^DD(414.03,.02,"DT")="3050315"
^DD(414.03,.03,0)="SUBSCRIPTION TYPE^S^1:FCP Running Balance;^0;3^Q"
^DD(414.03,.03,1,0)="^.1"
^DD(414.03,.03,1,1,0)="414.03^AC"
^DD(414.03,.03,1,1,1)="S ^PRCV(414.03,""AC"",$E(X,1,30),DA)="""""
^DD(414.03,.03,1,1,2)="K ^PRCV(414.03,""AC"",$E(X,1,30),DA)"
^DD(414.03,.03,1,1,"%D",0)="^^1^1^3050228^"
^DD(414.03,.03,1,1,"%D",1,0)="This cross-reference is used to sort subscriptions by type."
^DD(414.03,.03,1,1,"DT")="3050228"
^DD(414.03,.03,3)="This is the type of entity controlling the subscription"
^DD(414.03,.03,21,0)="^^4^4^3050228^"
^DD(414.03,.03,21,1,0)="This field is a code that specifies the subscription type. The "
^DD(414.03,.03,21,2,0)="interpretation of field .02 depends on the value of this code. These two "
^DD(414.03,.03,21,3,0)="fields are intended to provide support for multiple types of "
^DD(414.03,.03,21,4,0)="subscriptions within the one file."
^DD(414.03,.03,"DT")="3050315"
^DD(414.03,1,0)="CREATED^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(414.03,1,3)="This is the date/time the subscription was created"
^DD(414.03,1,21,0)="^^1^1^3050310^"
^DD(414.03,1,21,1,0)="This is the date/time that this subscription was created."
^DD(414.03,1,"DT")="3050310"
^DD(414.03,2,0)="ACTIVE^S^1:YES;0:NO;^0;5^Q"
^DD(414.03,2,3)="Set to 'NO' to inactivate the subscription"
^DD(414.03,2,"DT")="3050310"
^DD(414.03,3,0)="SUBSCRIPTION MID^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(414.03,3,3)="This is the MID of the subscription request (QSB)"
^DD(414.03,3,21,0)="^^2^2^3050310^"
^DD(414.03,3,21,1,0)="This is the message control ID (MID) of the HL7 message requesting that "
^DD(414.03,3,21,2,0)="this subscription be created."
^DD(414.03,3,"DT")="3050310"
^DD(414.03,10,0)="ATTRIBUTE SET^414.031^^1;0"
^DD(414.03,10,21,0)="^^4^4^3050310^"
^DD(414.03,10,21,1,0)="This subfile is used to store attribute values for the object associated "
^DD(414.03,10,21,2,0)="with the subscription. Since the file is designed to work with various "
^DD(414.03,10,21,3,0)="types of objects, attributes are stored as simple key/value pairs, where "
^DD(414.03,10,21,4,0)="both the key and  value are free text."
^DD(414.03,"B","ACTIVE",2)=""
^DD(414.03,"B","ATTRIBUTE SET",10)=""
^DD(414.03,"B","CREATED",1)=""
^DD(414.03,"B","STATION",.01)=""
^DD(414.03,"B","SUBSCRIPTION",.02)=""
^DD(414.03,"B","SUBSCRIPTION MID",3)=""
^DD(414.03,"B","SUBSCRIPTION TYPE",.03)=""
^DD(414.03,"GL",0,1,.01)=""
^DD(414.03,"GL",0,2,.02)=""
^DD(414.03,"GL",0,3,.03)=""
^DD(414.03,"GL",0,4,1)=""
^DD(414.03,"GL",0,5,2)=""
^DD(414.03,"GL",0,6,3)=""
^DD(414.03,"GL",1,0,10)=""
^DD(414.03,"IX",.03)=""
^DD(414.03,"SB",414.031,10)=""
^DD(414.031,0)="ATTRIBUTE SET SUB-FIELD^^1^2"
^DD(414.031,0,"DT")="3050214"
^DD(414.031,0,"IX","B",414.031,.01)=""
^DD(414.031,0,"NM","ATTRIBUTE SET")=""
^DD(414.031,0,"UP")="414.03"
^DD(414.031,.01,0)="FISCAL YEAR^F^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(414.031,.01,1,0)="^.1"
^DD(414.031,.01,1,1,0)="414.031^B"
^DD(414.031,.01,1,1,1)="S ^PRCV(414.03,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(414.031,.01,1,1,2)="K ^PRCV(414.03,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(414.031,.01,3)="Enter the 2 digit fiscal year"
^DD(414.031,.01,21,0)="^^3^3^3050310^"
^DD(414.031,.01,21,1,0)="Financial applications frequently need to assign a fiscal year to an "
^DD(414.031,.01,21,2,0)="object itself. Accordingly, the fiscal year is stored here in an optional "
^DD(414.031,.01,21,3,0)="field. Applications not needing this field can leave it blank."
^DD(414.031,.01,"DT")="3050310"
^DD(414.031,1,0)="ATTRIBUTE^414.0311^^1;0"
^DD(414.031,1,"DT")="3050214"
^DD(414.031,"B","ATTRIBUTE",1)=""
^DD(414.031,"B","FISCAL YEAR",.01)=""
^DD(414.031,"GL",0,1,.01)=""
^DD(414.031,"GL",1,0,1)=""
^DD(414.031,"IX",.01)=""
^DD(414.031,"SB",414.0311,1)=""
^DD(414.0311,0)="ATTRIBUTE SUB-FIELD^^1^2"
^DD(414.0311,0,"DT")="3050214"
^DD(414.0311,0,"IX","B",414.0311,.01)=""
^DD(414.0311,0,"NM","ATTRIBUTE")=""
^DD(414.0311,0,"UP")="414.031"
^DD(414.0311,.01,0)="ATTRIBUTE^MNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(414.0311,.01,1,0)="^.1"
^DD(414.0311,.01,1,1,0)="414.0311^B"
^DD(414.0311,.01,1,1,1)="S ^PRCV(414.03,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(414.0311,.01,1,1,2)="K ^PRCV(414.03,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(414.0311,.01,3)="Enter a numeric attribute key (0 decimal digits)"
^DD(414.0311,.01,"DT")="3050214"
^DD(414.0311,1,0)="VALUE^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(414.0311,1,3)="Answer must be 1-45 characters in length"
^DD(414.0311,1,"DT")="3050214"
^DD(414.0311,"B","ATTRIBUTE",.01)=""
^DD(414.0311,"B","VALUE",1)=""
^DD(414.0311,"GL",0,1,.01)=""
^DD(414.0311,"GL",0,2,1)=""
^DD(414.0311,"IX",.01)=""
^DD(414.04,0)="FIELD^^1^4"
^DD(414.04,0,"DDA")="N"
^DD(414.04,0,"DT")="3050329"
^DD(414.04,0,"IX","D",414.04,.01)=""
^DD(414.04,0,"NM","RECORD CHECKSUM")=""
^DD(414.04,0,"VR")="5.1"
^DD(414.04,0,"VRPK")="PRC"
^DD(414.04,.01,0)="CHECKSUM NAME^RFX^^0;1^K:(($L(X)<1)!($L(X)>10)) X"
^DD(414.04,.01,.1)="Checksum Name for your application"
^DD(414.04,.01,1,0)="^.1^^-1"
^DD(414.04,.01,1,1,0)="414.04^D"
^DD(414.04,.01,1,1,1)="S ^PRCV(414.04,""D"",$E(X,1,30),DA)="""""
^DD(414.04,.01,1,1,2)="K ^PRCV(414.04,""D"",$E(X,1,30),DA)"
^DD(414.04,.01,1,1,"DT")="3050331"
^DD(414.04,.01,3)="Enter checksum name for your application"
^DD(414.04,.01,21,0)="^^4^4^3050401^"
^DD(414.04,.01,21,1,0)="Checksum name for your specific application. We could define different "
^DD(414.04,.01,21,2,0)="checksum name for same file number used in different application."
^DD(414.04,.01,21,3,0)="For example, file 440 could have two checksum name, ""VND1"" and ""VND2"", to "
^DD(414.04,.01,21,4,0)="store checksum for different applications."
^DD(414.04,.01,"DT")="3050401"
^DD(414.04,.02,0)="FILE NUMBER^RNJ8,3^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(414.04,.02,.1)="File Number"
^DD(414.04,.02,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(414.04,.02,21,0)="^.001^1^1^3050329^^"
^DD(414.04,.02,21,1,0)="This is the number of the file we will perform checksum with."
^DD(414.04,.02,"DT")="3050329"
^DD(414.04,.03,0)="DESCRIPTION^RF^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(414.04,.03,.1)="CHECKSUM DESCRIPTION"
^DD(414.04,.03,3)="Enter description/purpose of this checksum."
^DD(414.04,.03,21,0)="^^1^1^3050329^"
^DD(414.04,.03,21,1,0)="Enter the description or purpose of this checksum."
^DD(414.04,.03,"DT")="3050329"
^DD(414.04,1,0)="RECORD NUMBER^414.41^^1;0"
^DD(414.04,"B","CHECKSUM DESCRIPTION",.03)="1"
^DD(414.04,"B","CHECKSUM NAME",.01)=""
^DD(414.04,"B","DESCRIPTION",.03)=""
^DD(414.04,"B","FILE NUMBER",.02)=""
^DD(414.04,"B","File Number",.02)="1"
^DD(414.04,"B","RECORD NUMBER",1)=""
^DD(414.04,"GL",0,1,.01)=""
^DD(414.04,"GL",0,2,.02)=""
^DD(414.04,"GL",0,3,.03)=""
^DD(414.04,"GL",1,0,1)=""
^DD(414.04,"IX",.01)=""
^DD(414.04,"RQ",.01)=""
^DD(414.04,"RQ",.02)=""
^DD(414.04,"RQ",.03)=""
^DD(414.04,"SB",414.41,1)=""
^DD(414.41,0)="RECORD NUMBER SUB-FIELD^^4^5"
^DD(414.41,0,"DT")="3050329"
^DD(414.41,0,"NM","RECORD NUMBER")=""
^DD(414.41,0,"UP")="414.04"
^DD(414.41,.01,0)="RECORD NUMBER^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(414.41,.01,1,0)="^.1^^0"
^DD(414.41,.01,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(414.41,.01,21,0)="^^1^1^3050329^"
^DD(414.41,.01,21,1,0)="Enter record number (or the IEN) of the file being performed checksum."
^DD(414.41,.01,"DT")="3050331"
^DD(414.41,1,0)="CHECKSUM^NJ14,0^^0;2^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(414.41,1,3)="Checksum will be generated"
^DD(414.41,1,"DT")="3050329"
^DD(414.41,2,0)="TIME OF CHECKSUM^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(414.41,2,"DT")="3050329"
^DD(414.41,3,0)="UPDATE SENT^S^1:SENT;0:NOT SENT;^0;4^Q"
^DD(414.41,3,"DT")="3050329"
^DD(414.41,4,0)="TIME SENT^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(414.41,4,"DT")="3050329"
^DD(414.41,"B","CHECKSUM",1)=""
^DD(414.41,"B","RECORD NUMBER",.01)=""
^DD(414.41,"B","TIME OF CHECKSUM",2)=""
^DD(414.41,"B","TIME SENT",4)=""
^DD(414.41,"B","UPDATE SENT",3)=""
^DD(414.41,"GL",0,1,.01)=""
^DD(414.41,"GL",0,2,1)=""
^DD(414.41,"GL",0,3,2)=""
^DD(414.41,"GL",0,4,3)=""
^DD(414.41,"GL",0,5,4)=""
^DD(414.41,"RQ",.01)=""
^DD(417,0)="FIELD^^51^24"
^DD(417,0,"DDA")="N"
^DD(417,0,"DT")="2950309"
^DD(417,0,"IX","B",417,.01)=""
^DD(417,0,"IX","C",417,20)=""
^DD(417,0,"IX","ST",417,51)=""
^DD(417,0,"NM","FMS TRANSACTIONS")=""
^DD(417,0,"VR")="5.1"
^DD(417,0,"VRPK")="IFCAP"
^DD(417,.01,0)="FMS REFERENCE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<6) X"
^DD(417,.01,.1)="FMS REFERENCE#"
^DD(417,.01,1,0)="^.1^^-1"
^DD(417,.01,1,1,0)="417^B"
^DD(417,.01,1,1,1)="S ^PRCS(417,""B"",X,DA)="""""
^DD(417,.01,1,1,2)="K ^PRCS(417,""B"",X,DA)"
^DD(417,.01,3)="Answer must be 6-50 characters in length."
^DD(417,.01,10)="IFCAP"
^DD(417,.01,21,0)="^^3^3^2950403^^^^"
^DD(417,.01,21,1,0)="This is the FMS reference number."
^DD(417,.01,21,2,0)="It is created in IFCAP and has the format"
^DD(417,.01,21,3,0)="FMS trans. number_transmission date."
^DD(417,.01,"DT")="2940404"
^DD(417,1,0)="BEGINNING BUDGET FY^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(417,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(417,1,21,0)="^^1^1^2940202^"
^DD(417,1,21,1,0)="This is the beginning budget fiscal year for the transaction."
^DD(417,1,"DT")="2940202"
^DD(417,2,0)="ENDING BUDGET FY^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(417,2,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(417,2,21,0)="^^1^1^2940202^"
^DD(417,2,21,1,0)="This is the ending budget fiscal year for the transaction."
^DD(417,2,"DT")="2940202"
^DD(417,3,0)="FISCAL YEAR^F^^0;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(417,3,3)="Answer must be 2 characters in length."
^DD(417,3,21,0)="^^1^1^2940614^"
^DD(417,3,21,1,0)="This is the fiscal year for the adjustment."
^DD(417,3,"DT")="2980223"
^DD(417,4,0)="FISCAL QUARTER^NJ1,0^^0;5^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(417,4,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(417,4,21,0)="^^2^2^2940307^^"
^DD(417,4,21,1,0)="This field holds the quarter for the transaction"
^DD(417,4,21,2,0)="retirned from FMS."
^DD(417,4,"DT")="2940307"
^DD(417,5,0)="FUND^F^^0;6^K:$L(X)>6!($L(X)<1) X"
^DD(417,5,3)="Answer must be 1-6 characters in length."
^DD(417,5,21,0)="^^2^2^2940307^"
^DD(417,5,21,1,0)="This is the fund for the transaction which"
^DD(417,5,21,2,0)="was returned from FMS."
^DD(417,5,"DT")="2940307"
^DD(417,6,0)="ADMINISTRATION/STAFF OFFICE^F^^0;7^K:$L(X)>4!($L(X)<1) X"
^DD(417,6,3)="Answer must be 1-4 characters in length."
^DD(417,6,21,0)="^^2^2^2940614^"
^DD(417,6,21,1,0)="This is the administration/staff office returned"
^DD(417,6,21,2,0)="on the adjustment."
^DD(417,6,"DT")="2940307"
^DD(417,7,0)="STATION^F^^0;8^K:$L(X)>7!($L(X)<3) X"
^DD(417,7,3)="Answer must be 3-7 characters in length."
^DD(417,7,21,0)="^^2^2^2950403^^"
^DD(417,7,21,1,0)="This is the station for the transaction"
^DD(417,7,21,2,0)="returned from FMS."
^DD(417,7,"DT")="2940307"
^DD(417,8,0)="PROGRAM^F^^0;9^K:$L(X)>6!($L(X)<1) X"
^DD(417,8,3)="Answer must be 1-6 characters in length."
^DD(417,8,21,0)="^^2^2^2950309^^"
^DD(417,8,21,1,0)="This is the program (optional)"
^DD(417,8,21,2,0)="returned for the transaction."
^DD(417,8,"DT")="2950309"
^DD(417,9,0)="FCP/PROJECT^F^^0;10^K:$L(X)>9!($L(X)<2) X"
^DD(417,9,3)="Answer must be 2-9 characters in length."
^DD(417,9,21,0)="^^2^2^2940307^"
^DD(417,9,21,1,0)="This is the FMS FCP/Project reference for"
^DD(417,9,21,2,0)="the control point."
^DD(417,9,"DT")="2940307"
^DD(417,10,0)="COST CENTER^F^^0;11^K:$L(X)>7!($L(X)<3) X"
^DD(417,10,3)="Answer must be 3-7 characters in length."
^DD(417,10,21,0)="^^1^1^2940307^"
^DD(417,10,21,1,0)="This is the cost center returned by FMS."
^DD(417,10,"DT")="2940307"
^DD(417,11,0)="SUB COST CENTER^F^^0;12^K:$L(X)>2!($L(X)<1) X"
^DD(417,11,3)="Answer must be 1-2 characters in length."
^DD(417,11,21,0)="^^2^2^2940307^"
^DD(417,11,21,1,0)="This is the sub cost center (optional)"
^DD(417,11,21,2,0)="associated with the cost center."
^DD(417,11,"DT")="2940307"
^DD(417,12,0)="REPORTING CATEGORY^F^^0;13^K:$L(X)>2!($L(X)<1) X"
^DD(417,12,3)="Answer must be 1-2 characters in length."
^DD(417,12,21,0)="^^2^2^2940307^"
^DD(417,12,21,1,0)="This is the FMS reporting category for the"
^DD(417,12,21,2,0)="transaction."
^DD(417,12,"DT")="2940307"
^DD(417,13,0)="JOB NUMBER^F^^0;14^K:$L(X)>8!($L(X)<2) X"
^DD(417,13,3)="Answer must be 2-8 characters in length."
^DD(417,13,21,0)="^^2^2^2940307^"
^DD(417,13,21,1,0)="This is the job number (optional) for the"
^DD(417,13,21,2,0)="transaction."
^DD(417,13,"DT")="2940307"
^DD(417,14,0)="BUDGET OBJECT CODE^F^^0;15^K:$L(X)>4!($L(X)<2) X"
^DD(417,14,3)="Answer must be 2-4 characters in length."
^DD(417,14,21,0)="^^2^2^2940307^"
^DD(417,14,21,1,0)="This is the budget object code for the"
^DD(417,14,21,2,0)="transaction."
^DD(417,14,"DT")="2940307"
^DD(417,15,0)="BUDGET OBJECT CLASS^F^^0;16^K:$L(X)>4!($L(X)<2) X"
^DD(417,15,3)="Answer must be 2-4 characters in length."
^DD(417,15,21,0)="^^1^1^2940307^"
^DD(417,15,21,1,0)="This is the budget object class for the transaction."
^DD(417,15,"DT")="2940307"
^DD(417,16,0)="TRANSACTION CODE^F^^0;17^K:$L(X)>2!($L(X)<1) X"
^DD(417,16,3)="Answer must be 1-2 characters in length."
^DD(417,16,21,0)="^^2^2^2940307^"
^DD(417,16,21,1,0)="This is the transaction code for the"
^DD(417,16,21,2,0)="transaction."
^DD(417,16,"DT")="2940307"
^DD(417,17,0)="TRANSACTION NUMBER^F^^0;18^K:$L(X)>11!($L(X)<4) X"
^DD(417,17,3)="Answer must be 4-11 characters in length."
^DD(417,17,21,0)="^^5^5^2940307^"
^DD(417,17,21,1,0)="This is the transaction number (purchase"
^DD(417,17,21,2,0)="order number) returned by FMS."
^DD(417,17,21,3,0)="As all FMS generated transactions do not"
^DD(417,17,21,4,0)="necessarily pertain to a purchase order, this"
^DD(417,17,21,5,0)="number is not always returned."
^DD(417,17,"DT")="2940307"
^DD(417,18,0)="LINE NUMBER^F^^0;19^K:$L(X)>3!($L(X)<1) X"
^DD(417,18,3)="Answer must be 1-3 characters in length."
^DD(417,18,21,0)="^^2^2^2940307^"
^DD(417,18,21,1,0)="This is the line number for the transaction"
^DD(417,18,21,2,0)="returned from FMS."
^DD(417,18,"DT")="2940307"
^DD(417,19,0)="AMOUNT^F^^0;20^K:$L(X)>17!($L(X)<2) X"
^DD(417,19,3)="Answer must be 2-17 characters in length."
^DD(417,19,21,0)="^^2^2^2950403^^"
^DD(417,19,21,1,0)="This is the adjustment amount returned on the"
^DD(417,19,21,2,0)="transaction."
^DD(417,19,"DT")="2940307"
^DD(417,20,0)="STATION-FY-QUARTER-CP^F^^0;21^K:$L(X)>20!($L(X)<6) X"
^DD(417,20,1,0)="^.1"
^DD(417,20,1,1,0)="417^C"
^DD(417,20,1,1,1)="S ^PRCS(417,""C"",$E(X,1,30),DA)="""""
^DD(417,20,1,1,2)="K ^PRCS(417,""C"",$E(X,1,30),DA)"
^DD(417,20,1,1,"%D",0)="^^2^2^2940926^^^^"
^DD(417,20,1,1,"%D",1,0)="This cross reference is used to sort entries by date and"
^DD(417,20,1,1,"%D",2,0)="control point number, for use in creating FMS 820 reports."
^DD(417,20,1,1,"DT")="2940329"
^DD(417,20,3)="Answer must be 6-20 characters in length."
^DD(417,20,21,0)="^^4^4^2950403^^^^"
^DD(417,20,21,1,0)="This field contains the station,fiscal year,"
^DD(417,20,21,2,0)="quarter,and control point.  It is used to"
^DD(417,20,21,3,0)="set up a cross reference for creation of"
^DD(417,20,21,4,0)="FMS 820 reports."
^DD(417,20,"DT")="2940329"
^DD(417,21,0)="TRANSACTION DATE^D^^0;22^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(417,21,21,0)="^^2^2^2940329^"
^DD(417,21,21,1,0)="This is the transaction date returned in the"
^DD(417,21,21,2,0)="header of the FMS transmission."
^DD(417,21,"DT")="2940829"
^DD(417,22,0)="CONVERTED RECORD^F^^1;1^K:$L(X)>12!($L(X)<1) X"
^DD(417,22,3)="Answer must be 1-12 characters in length."
^DD(417,22,21,0)="^^2^2^2960530^^^"
^DD(417,22,21,1,0)="This field is used to store the 410 entry for"
^DD(417,22,21,2,0)="the 820 record."
^DD(417,22,"DT")="2960311"
^DD(417,51,0)="STATUS^S^P:POSTED;D:DUPLICATE;N:NONE;^0;23^Q"
^DD(417,51,1,0)="^.1"
^DD(417,51,1,5,0)="417^ST"
^DD(417,51,1,5,1)="S ^PRCS(417,""ST"",$E(X,1,30),DA)="""""
^DD(417,51,1,5,2)="K ^PRCS(417,""ST"",$E(X,1,30),DA)"
^DD(417,51,1,5,"%D",0)="^^1^1^2960530^"
^DD(417,51,1,5,"%D",1,0)="This is an index by status."
^DD(417,51,1,5,"DT")="2960530"
^DD(417,51,21,0)="^^1^1^2960724^^^^"
^DD(417,51,21,1,0)="Shows status of FMS transactions."
^DD(417,51,"DT")="2960530"
^DD(417,"B","ADMINISTRATION/STAFF OFFICE",6)=""
^DD(417,"B","AMOUNT",19)=""
^DD(417,"B","BEGINNING BUDGET FY",1)=""
^DD(417,"B","BUDGET OBJECT CLASS",15)=""
^DD(417,"B","BUDGET OBJECT CODE",14)=""
^DD(417,"B","CONVERTED RECORD",22)=""
^DD(417,"B","COST CENTER",10)=""
^DD(417,"B","ENDING BUDGET FY",2)=""
^DD(417,"B","FCP/PROJECT",9)=""
^DD(417,"B","FISCAL QUARTER",4)=""
^DD(417,"B","FISCAL YEAR",3)=""
^DD(417,"B","FMS REFERENCE",.01)=""
^DD(417,"B","FMS REFERENCE#",.01)="1"
^DD(417,"B","FUND",5)=""
^DD(417,"B","JOB NUMBER",13)=""
^DD(417,"B","LINE NUMBER",18)=""
^DD(417,"B","PROGRAM",8)=""
^DD(417,"B","REPORTING CATEGORY",12)=""
^DD(417,"B","STATION",7)=""
^DD(417,"B","STATION-FY-QUARTER-CP",20)=""
^DD(417,"B","STATUS",51)=""
^DD(417,"B","SUB COST CENTER",11)=""
^DD(417,"B","TRANSACTION CODE",16)=""
^DD(417,"B","TRANSACTION DATE",21)=""
^DD(417,"B","TRANSACTION NUMBER",17)=""
^DD(417,"GL",0,1,.01)=""
^DD(417,"GL",0,2,1)=""
^DD(417,"GL",0,3,2)=""
^DD(417,"GL",0,4,3)=""
^DD(417,"GL",0,5,4)=""
^DD(417,"GL",0,6,5)=""
^DD(417,"GL",0,7,6)=""
^DD(417,"GL",0,8,7)=""
^DD(417,"GL",0,9,8)=""
^DD(417,"GL",0,10,9)=""
^DD(417,"GL",0,11,10)=""
^DD(417,"GL",0,12,11)=""
^DD(417,"GL",0,13,12)=""
^DD(417,"GL",0,14,13)=""
^DD(417,"GL",0,15,14)=""
^DD(417,"GL",0,16,15)=""
^DD(417,"GL",0,17,16)=""
^DD(417,"GL",0,18,17)=""
^DD(417,"GL",0,19,18)=""
^DD(417,"GL",0,20,19)=""
^DD(417,"GL",0,21,20)=""
^DD(417,"GL",0,22,21)=""
^DD(417,"GL",0,23,51)=""
^DD(417,"GL",1,1,22)=""
^DD(417,"IX",.01)=""
^DD(417,"IX",20)=""
^DD(417,"IX",51)=""
^DD(417,"RQ",.01)=""
^DD(417.1,0)="FIELD^^30^23"
^DD(417.1,0,"DDA")="N"
^DD(417.1,0,"DT")="2950209"
^DD(417.1,0,"IX","B",417.1,.01)=""
^DD(417.1,0,"IX","C",417.1,20)=""
^DD(417.1,0,"NM","FMS EXCEPTIONS")=""
^DD(417.1,0,"VR")="5.1"
^DD(417.1,0,"VRPK")="IFCAP"
^DD(417.1,.01,0)="FMS REFERENCE^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(417.1,.01,1,0)="^.1"
^DD(417.1,.01,1,1,0)="417.1^B"
^DD(417.1,.01,1,1,1)="S ^PRCS(417.1,""B"",X,DA)="""""
^DD(417.1,.01,1,1,2)="K ^PRCS(417.1,""B"",X,DA)"
^DD(417.1,.01,3)="Answer must be 3-40 characters in length."
^DD(417.1,.01,10)="IFCAP"
^DD(417.1,.01,21,0)="^^2^2^2950309^^^^"
^DD(417.1,.01,21,1,0)="This filed holds the FMS transaction reference number,"
^DD(417.1,.01,21,2,0)="in the format FMS trans. number_transmission date."
^DD(417.1,.01,"DT")="2940408"
^DD(417.1,1,0)="BEGINNING BUDGET FISCAL YEAR^F^^0;2^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(417.1,1,3)="Answer must be 2 characters in length."
^DD(417.1,1,21,0)="^^1^1^2991228^^^^"
^DD(417.1,1,21,1,0)="This is the beginning budget fiscal year."
^DD(417.1,1,"DT")="2991228"
^DD(417.1,2,0)="ENDING BUDGET FISCAL YEAR^F^^0;3^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(417.1,2,1,0)="^.1^^0"
^DD(417.1,2,3)="Answer must be 2 characters in length."
^DD(417.1,2,21,0)="^^1^1^2991228^^^^"
^DD(417.1,2,21,1,0)="This is the ending budget fiscal year."
^DD(417.1,2,"DT")="2991228"
^DD(417.1,3,0)="FISCAL YEAR^F^^0;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(417.1,3,1,0)="^.1"
^DD(417.1,3,1,1,0)="^^TRIGGER^417.1^30"
^DD(417.1,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(417.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(417.1,3,1,1,1.1) X ^DD(417.1,3,1,1,1.4)"
^DD(417.1,3,1,1,1.1)="S X=DIV S X=DIV>70,Y(1)=X S X=2,Y(2)=X S X=1,Y(3)=X S X=3,X=$S(Y(1):Y(2),Y(3):X)_DIV_""0000"""
^DD(417.1,3,1,1,1.4)="S DIH=$S($D(^PRCS(417.1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=417.1,DIG=30 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(417.1,3,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCS(417.1,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(417.1,3,1,1,2.4)"
^DD(417.1,3,1,1,2.4)="S DIH=$S($D(^PRCS(417.1,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=417.1,DIG=30 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(417.1,3,1,1,"%D",0)="^^2^2^2991228^"
^DD(417.1,3,1,1,"%D",1,0)="This cross reference converts the 2 digit FISCAL YEAR to an internal"
^DD(417.1,3,1,1,"%D",2,0)="FileMan date and stuffs the value in field #30, which is used in sorts."
^DD(417.1,3,1,1,"CREATE VALUE")="$S(#3>70:2,1:3)_#3_""0000"""
^DD(417.1,3,1,1,"DELETE VALUE")="@"
^DD(417.1,3,1,1,"DT")="2991228"
^DD(417.1,3,1,1,"FIELD")="#30"
^DD(417.1,3,3)="Answer must be 2 characters in length."
^DD(417.1,3,21,0)="^^1^1^2991223^^^^"
^DD(417.1,3,21,1,0)="This is the fiscal year."
^DD(417.1,3,"DT")="2991228"
^DD(417.1,4,0)="FISCAL QUARTER^NJ1,0^^0;5^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(417.1,4,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(417.1,4,21,0)="^^1^1^2940614^"
^DD(417.1,4,21,1,0)="This is the fiscal quarter."
^DD(417.1,4,"DT")="2940408"
^DD(417.1,5,0)="FUND^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(417.1,5,3)="Answer must be 3-20 characters in length."
^DD(417.1,5,21,0)="^^2^2^2940614^"
^DD(417.1,5,21,1,0)="This is the fund returned on the"
^DD(417.1,5,21,2,0)="transaction."
^DD(417.1,5,"DT")="2940408"
^DD(417.1,6,0)="ADMINISTRATIVE STAFF/OFFICE^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(417.1,6,3)="Answer must be 1-20 characters in length."
^DD(417.1,6,21,0)="^^1^1^2950117^^"
^DD(417.1,6,21,1,0)="This is the administrative staff/office."
^DD(417.1,6,"DT")="2950117"
^DD(417.1,7,0)="STATION^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(417.1,7,3)="Answer must be 3-30 characters in length."
^DD(417.1,7,21,0)="^^2^2^2940614^"
^DD(417.1,7,21,1,0)="This is the station number returned on the"
^DD(417.1,7,21,2,0)="transaction."
^DD(417.1,7,"DT")="2940408"
^DD(417.1,8,0)="PROGRAM^F^^0;9^K:$L(X)>6!($L(X)<3) X"
^DD(417.1,8,3)="Answer must be 3-6 characters in length."
^DD(417.1,8,21,0)="^^2^2^2950309^^^"
^DD(417.1,8,21,1,0)="This is the program, if any,"
^DD(417.1,8,21,2,0)="returned on the transaction."
^DD(417.1,8,"DT")="2950309"
^DD(417.1,9,0)="FCP/PROJECT^F^^0;10^K:$L(X)>9!($L(X)<3) X"
^DD(417.1,9,3)="Answer must be 3-9 characters in length."
^DD(417.1,9,21,0)="^^1^1^2940614^"
^DD(417.1,9,21,1,0)="This is the fund control point/project."
^DD(417.1,9,"DT")="2940408"
^DD(417.1,10,0)="COST CENTER^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(417.1,10,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(417.1,10,21,0)="^^2^2^2950117^^"
^DD(417.1,10,21,1,0)="This is the cost center returned on the"
^DD(417.1,10,21,2,0)="transaction."
^DD(417.1,10,"DT")="2950117"
^DD(417.1,11,0)="SUB COST CENTER^NJ2,0^^0;12^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(417.1,11,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(417.1,11,21,0)="^^2^2^2940614^"
^DD(417.1,11,21,1,0)="This is the sub cost center, if any,"
^DD(417.1,11,21,2,0)="returned on the transaction."
^DD(417.1,11,"DT")="2940408"
^DD(417.1,12,0)="REPORTING CATEGORY^F^^0;13^K:$L(X)>9!($L(X)<3) X"
^DD(417.1,12,3)="Answer must be 3-9 characters in length."
^DD(417.1,12,21,0)="^^2^2^2940614^"
^DD(417.1,12,21,1,0)="This is the reporting category for the"
^DD(417.1,12,21,2,0)="control point returned in the transaction."
^DD(417.1,12,"DT")="2940408"
^DD(417.1,13,0)="JOB NUMBER^F^^0;14^K:$L(X)>6!($L(X)<3) X"
^DD(417.1,13,3)="Answer must be 3-6 characters in length."
^DD(417.1,13,21,0)="^^1^1^2940614^"
^DD(417.1,13,21,1,0)="This is the job number."
^DD(417.1,13,"DT")="2940408"
^DD(417.1,14,0)="BUDGET OBJECT CODE^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(417.1,14,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(417.1,14,21,0)="^^2^2^2940614^"
^DD(417.1,14,21,1,0)="This is the budget object code for the"
^DD(417.1,14,21,2,0)="cost center returned in the transaction."
^DD(417.1,14,"DT")="2940408"
^DD(417.1,15,0)="BUDGET OBJECT CLASS^F^^0;16^K:$L(X)>9!($L(X)<3) X"
^DD(417.1,15,3)="Answer must be 3-9 characters in length."
^DD(417.1,15,21,0)="^^2^2^2940614^"
^DD(417.1,15,21,1,0)="This is the budget object class for the"
^DD(417.1,15,21,2,0)="cost center returned in the transaction."
^DD(417.1,15,"DT")="2940408"
^DD(417.1,16,0)="TRANSACTION CODE^F^^0;17^K:$L(X)>3!($L(X)<2) X"
^DD(417.1,16,3)="Answer must be 2-3 characters in length."
^DD(417.1,16,21,0)="^^3^3^2940614^"
^DD(417.1,16,21,1,0)="This is the transaction code for the"
^DD(417.1,16,21,2,0)="original FMS document which the "
^DD(417.1,16,21,3,0)="transmission was generated against."
^DD(417.1,16,"DT")="2940408"
^DD(417.1,17,0)="TRANSACTION NUMBER^F^^0;18^K:$L(X)>9!($L(X)<4) X"
^DD(417.1,17,3)="Answer must be 4-9 characters in length."
^DD(417.1,17,21,0)="^^1^1^2940614^"
^DD(417.1,17,21,1,0)="This is the transaction number."
^DD(417.1,17,"DT")="2940408"
^DD(417.1,18,0)="LINE NUMBER^NJ4,0^^0;19^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(417.1,18,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(417.1,18,21,0)="^^2^2^2940614^"
^DD(417.1,18,21,1,0)="This is the line number returned in the"
^DD(417.1,18,21,2,0)="transmission."
^DD(417.1,18,"DT")="2940408"
^DD(417.1,19,0)="TRANSACTION AMOUNT^NJ10,2^^0;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999)!(X<-9999999) X"
^DD(417.1,19,3)="Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits"
^DD(417.1,19,21,0)="^^2^2^2940614^"
^DD(417.1,19,21,1,0)="This is the transaction amount returned"
^DD(417.1,19,21,2,0)="in the transmission."
^DD(417.1,19,"DT")="2940408"
^DD(417.1,20,0)="STA-FY-QTR-CP^F^^0;21^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<6) X"
^DD(417.1,20,1,0)="^.1"
^DD(417.1,20,1,1,0)="417.1^C"
^DD(417.1,20,1,1,1)="S ^PRCS(417.1,""C"",$E(X,1,30),DA)="""""
^DD(417.1,20,1,1,2)="K ^PRCS(417.1,""C"",$E(X,1,30),DA)"
^DD(417.1,20,1,1,"%D",0)="^^3^3^2940926^^"
^DD(417.1,20,1,1,"%D",1,0)="This index is used to hold the station-fiscal year-quarter"
^DD(417.1,20,1,1,"%D",2,0)="-control point string used for lookups when generating the"
^DD(417.1,20,1,1,"%D",3,0)="FMS Exceptions Report."
^DD(417.1,20,1,1,"DT")="2940916"
^DD(417.1,20,3)="Answer must be 6-20 characters in length."
^DD(417.1,20,21,0)="^^3^3^2950209^^^^"
^DD(417.1,20,21,1,0)="This field is used to set up the ""C"" cross"
^DD(417.1,20,21,2,0)="reference used to create the quarterly"
^DD(417.1,20,21,3,0)="FMS Exception Report."
^DD(417.1,20,"DT")="2950209"
^DD(417.1,21,0)="TRANSACTION DATE^DO^^0;22^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(417.1,21,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(417.1,21,2.1)="X ^DD(""DD"")"
^DD(417.1,21,3)=""
^DD(417.1,21,21,0)="^^2^2^2950117^^^"
^DD(417.1,21,21,1,0)="This is the transaction date, when FMS actually"
^DD(417.1,21,21,2,0)="created the transaction."
^DD(417.1,21,"DT")="2950117"
^DD(417.1,30,0)="FY DATE^D^^1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(417.1,30,3)="Enter 2 or 4 digit Fiscal Year in which the transaction occurs."
^DD(417.1,30,5,1,0)="417.1^3^1"
^DD(417.1,30,9)="^"
^DD(417.1,30,21,0)="^^1^1^2991228^"
^DD(417.1,30,21,1,0)="This field is the Fiscal Year stored as a FileMan date."
^DD(417.1,30,"DT")="2991228"
^DD(417.1,"B","ADMINISTRATIVE STAFF/OFFICE",6)=""
^DD(417.1,"B","BEGINNING BUDGET FISCAL YEAR",1)=""
^DD(417.1,"B","BUDGET OBJECT CLASS",15)=""
^DD(417.1,"B","BUDGET OBJECT CODE",14)=""
^DD(417.1,"B","COST CENTER",10)=""
^DD(417.1,"B","ENDING BUDGET FISCAL YEAR",2)=""
^DD(417.1,"B","FCP/PROJECT",9)=""
^DD(417.1,"B","FISCAL QUARTER",4)=""
^DD(417.1,"B","FISCAL YEAR",3)=""
^DD(417.1,"B","FMS REFERENCE",.01)=""
^DD(417.1,"B","FUND",5)=""
^DD(417.1,"B","FY DATE",30)=""
^DD(417.1,"B","JOB NUMBER",13)=""
^DD(417.1,"B","LINE NUMBER",18)=""
^DD(417.1,"B","PROGRAM",8)=""
^DD(417.1,"B","REPORTING CATEGORY",12)=""
^DD(417.1,"B","STA-FY-QTR-CP",20)=""
^DD(417.1,"B","STATION",7)=""
^DD(417.1,"B","SUB COST CENTER",11)=""
^DD(417.1,"B","TRANSACTION AMOUNT",19)=""
^DD(417.1,"B","TRANSACTION CODE",16)=""
^DD(417.1,"B","TRANSACTION DATE",21)=""
^DD(417.1,"B","TRANSACTION NUMBER",17)=""
^DD(417.1,"GL",0,1,.01)=""
^DD(417.1,"GL",0,2,1)=""
^DD(417.1,"GL",0,3,2)=""
^DD(417.1,"GL",0,4,3)=""
^DD(417.1,"GL",0,5,4)=""
^DD(417.1,"GL",0,6,5)=""
^DD(417.1,"GL",0,7,6)=""
^DD(417.1,"GL",0,8,7)=""
^DD(417.1,"GL",0,9,8)=""
^DD(417.1,"GL",0,10,9)=""
^DD(417.1,"GL",0,11,10)=""
^DD(417.1,"GL",0,12,11)=""
^DD(417.1,"GL",0,13,12)=""
^DD(417.1,"GL",0,14,13)=""
^DD(417.1,"GL",0,15,14)=""
^DD(417.1,"GL",0,16,15)=""
^DD(417.1,"GL",0,17,16)=""
^DD(417.1,"GL",0,18,17)=""
^DD(417.1,"GL",0,19,18)=""
^DD(417.1,"GL",0,20,19)=""
^DD(417.1,"GL",0,21,20)=""
^DD(417.1,"GL",0,22,21)=""
^DD(417.1,"GL",1,2,30)=""
^DD(417.1,"IX",.01)=""
^DD(417.1,"IX",3)=""
^DD(417.1,"IX",20)=""
^DD(417.1,"RQ",.01)=""
^DD(420,0)="FIELD^^11^13"
^DD(420,0,"DDA")="N"
^DD(420,0,"DT")="2950105"
^DD(420,0,"IX","A",420.02,1)=""
^DD(420,0,"IX","AC",420.01,.5)=""
^DD(420,0,"IX","AD",420.01,13)=""
^DD(420,0,"IX","AE",420.07,.01)=""
^DD(420,0,"IX","AF",420.07,.01)=""
^DD(420,0,"IX","B",420,.01)=""
^DD(420,0,"IX","C",420.02,.01)=""
^DD(420,0,"IX","UNQ1",420.01,1)=""
^DD(420,0,"IX","UNQ25D5",420.01,25.5)=""
^DD(420,0,"IX","UNQ26",420.01,26)=""
^DD(420,0,"IX","UNQ27",420.01,27)=""
^DD(420,0,"IX","UNQ28",420.01,28)=""
^DD(420,0,"IX","UNQ29",420.01,29)=""
^DD(420,0,"NM","FUND CONTROL POINT")=""
^DD(420,0,"VR")="5.1"
^DD(420,0,"VRPK")="IFCAP"
^DD(420,.01,0)="STATION NAME^RP411'X^PRC(411,^0;1^S:$D(X) DINUM=X Q"
^DD(420,.01,1,0)="^.1"
^DD(420,.01,1,1,0)="420^B"
^DD(420,.01,1,1,1)="S ^PRC(420,""B"",$E(X,1,30),DA)="""""
^DD(420,.01,1,1,2)="K ^PRC(420,""B"",$E(X,1,30),DA)"
^DD(420,.01,3)="Enter in this field the station number for each station for which your fiscal office is responsible"
^DD(420,.01,21,0)="^^3^3^2940506^^^^"
^DD(420,.01,21,1,0)="This is a pointer to the Admin. Activity Site Parameter file, #411. "
^DD(420,.01,21,2,0)="This field contains the station number of each station for which your"
^DD(420,.01,21,3,0)="fiscal office is responsible."
^DD(420,.01,"DT")="2930426"
^DD(420,1,0)="CONTROL POINT NAME^420.01I^^1;0"
^DD(420,1,3)=""
^DD(420,1,21,0)="^^1^1^2971203^^^^"
^DD(420,1,21,1,0)="This is the name of the Fund Control Point."
^DD(420,1,"DT")="2930204"
^DD(420,2,0)="FUND RELEASING OFFICIAL^420.05P^^2;0"
^DD(420,2,21,0)="^^1^1^2940615^^^^"
^DD(420,2,21,1,0)="This is the official authorized to release funds."
^DD(420,3,0)="STATION OVERCOMMIT SWITCH^S^0:OVERCOMMIT NOT ALLOWED FOR ALL FCP'S;1:CURRENT QUARTER OVERCOMMIT ALLOWED;2:FUTURE QUARTERS OVERCOMMIT ALLOWED;3:CURRENT AND FUTURE QUARTERS OVERCOMMIT ALLOWED;4:INDIVIDUAL CP SWITCH USED;5:OVERCOMMIT ALLOWED;^0;2^Q"
^DD(420,3,21,0)="^^2^2^2950105^^^^"
^DD(420,3,21,1,0)="This is the set of codes for setting the overcommit switch for a control"
^DD(420,3,21,2,0)="point."
^DD(420,3,"DT")="2950105"
^DD(420,3.1,0)="STATION ROLLOVER OF EOQ BAL.^S^2:ALL FCPs CAN SPEND PRIOR FUNDS;3:INDIVIDUAL FCP ROLLOVER EOQ BALANCE IN EFFECT;^0;8^Q"
^DD(420,3.1,21,0)="^^1^1^2941109^"
^DD(420,3.1,21,1,0)="This is used to store roll over data."
^DD(420,3.1,"DT")="2940727"
^DD(420,4,0)="SUPPLY FUND CAP^NJ15,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(420,4,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(420,4,21,0)="^^1^1^2920115^"
^DD(420,4,21,1,0)="This field contains the TOTAL SUPPLY FUND CAP for the station."
^DD(420,4,"DT")="2911018"
^DD(420,5,0)="INVENTORY VALUE^NJ15,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(420,5,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(420,5,21,0)="^^1^1^2920115^"
^DD(420,5,21,1,0)="This field contains the current value of the inventory on hand"
^DD(420,5,"DT")="2911018"
^DD(420,6,0)="DUE-IN VALUE^NJ15,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(420,6,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(420,6,21,0)="^^2^2^2920115^"
^DD(420,6,21,1,0)="This field contains the value of all orders due in ordered under the"
^DD(420,6,21,2,0)="supply fund."
^DD(420,6,"DT")="2911018"
^DD(420,7,0)="TOTAL CAP AVAILABLE^NJ15,2X^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999999.99)!(X<-999999999999.99) X S Z=$G(^PRC(420,DA,0)) K:X'=($P(Z,U,3)-$P(Z,U,4)-$P(Z,U,5)) X K Z"
^DD(420,7,3)="Type a Dollar Amount between -999999999999.99 and 999999999999.99, 2 Decimal Digits.  This value should be equal to supply fund cap minus inventory value minus due-in value."
^DD(420,7,21,0)="^^2^2^2940516^^"
^DD(420,7,21,1,0)="This field contains the total available cap at the station for placing"
^DD(420,7,21,2,0)="orders within supply fund."
^DD(420,7,"DT")="2911018"
^DD(420,8,0)="PRINT ON DEMAND^S^1:YES;0:NO;^0;7^Q"
^DD(420,8,3)="ENTER 1 FOR YES, 0 FOR NO."
^DD(420,8,21,0)="^^2^2^2930127^^^^"
^DD(420,8,21,1,0)="This field indicates whether the user wishes to print on demand, "
^DD(420,8,21,2,0)="using yes or no as an entry."
^DD(420,8,23,0)="^^1^1^2930127^^^^"
^DD(420,8,23,1,0)="PRINT ON DEMAND"
^DD(420,8,"DT")="2920303"
^DD(420,9,0)="STATION OPEN QUARTER DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(420,9,21,0)="^^2^2^2960402^^"
^DD(420,9,21,1,0)="This is the most recent open quarter date. The date is always the first"
^DD(420,9,21,2,0)="day of a quarter."
^DD(420,9,"DT")="2960402"
^DD(420,10,0)="EDI ORDER RELEASE^S^Y:YES;N:NO;^3;1^Q"
^DD(420,10,21,0)="^^2^2^2960520^^^^"
^DD(420,10,21,1,0)="This is used to release EDI orders to vendors directly without fiscal"
^DD(420,10,21,2,0)="review if the data is 'Y' for yes."
^DD(420,10,"DT")="2960520"
^DD(420,11,0)="SITE ALL/DELIVERY ORDER SWITCH^S^A:ALL ORDERS;D:DELIVERY ORDERS ONLY;^3;2^Q"
^DD(420,11,21,0)="^^1^1^2960620^^^^"
^DD(420,11,21,1,0)="This is used to release orders directly without fiscal review."
^DD(420,11,"DT")="2960624"
^DD(420,"B","CONTROL POINT NAME",1)=""
^DD(420,"B","DUE-IN VALUE",6)=""
^DD(420,"B","EDI ORDER RELEASE",10)=""
^DD(420,"B","FUND RELEASING OFFICIAL",2)=""
^DD(420,"B","INVENTORY VALUE",5)=""
^DD(420,"B","PRINT ON DEMAND",8)=""
^DD(420,"B","SITE ALL/DELIVERY ORDER SWITCH",11)=""
^DD(420,"B","STATION NAME",.01)=""
^DD(420,"B","STATION OPEN QUARTER DATE",9)=""
^DD(420,"B","STATION OVERCOMMIT SWITCH",3)=""
^DD(420,"B","STATION ROLLOVER OF EOQ BAL.",3.1)=""
^DD(420,"B","SUPPLY FUND CAP",4)=""
^DD(420,"B","TOTAL CAP AVAILABLE",7)=""
^DD(420,"GL",0,1,.01)=""
^DD(420,"GL",0,2,3)=""
^DD(420,"GL",0,3,4)=""
^DD(420,"GL",0,4,5)=""
^DD(420,"GL",0,5,6)=""
^DD(420,"GL",0,6,7)=""
^DD(420,"GL",0,7,8)=""
^DD(420,"GL",0,8,3.1)=""
^DD(420,"GL",0,9,9)=""
^DD(420,"GL",1,0,1)=""
^DD(420,"GL",2,0,2)=""
^DD(420,"GL",3,1,10)=""
^DD(420,"GL",3,2,11)=""
^DD(420,"IX",.01)=""
^DD(420,"RQ",.01)=""
^DD(420,"SB",420.01,1)=""
^DD(420,"SB",420.05,2)=""
^DD(420.01,0)="CONTROL POINT NAME SUB-FIELD^NL^32^36"
^DD(420.01,0,"DT")="2950105"
^DD(420.01,0,"ID","D25")="W:$D(^(5)) ?50,$P(^(5),U,1)"
^DD(420.01,0,"ID","D25.5")="S %I=Y,Y=$S('$D(^(5)):"""",$D(^PRCD(420.15,+$P(^(5),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(420.15,.01,0),U,2) D Y^DIQ:Y]"""" W ?59,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(420.01,0,"ID","D26")="S %I=Y,Y=$S('$D(^(5)):"""",$D(^PRCD(420.13,+$P(^(5),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(420.13,.01,0),U,2) D Y^DIQ:Y]"""" W ?63,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(420.01,0,"ID","D27")="S %I=Y,Y=$S('$D(^(5)):"""",$D(^PRCD(420.131,+$P(^(5),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(420.131,.01,0),U,2) D Y^DIQ:Y]"""" W ?70,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(420.01,0,"IX","AC",420.01,1)=""
^DD(420.01,0,"IX","B",420.01,.01)=""
^DD(420.01,0,"IX","C",420.01,.01)=""
^DD(420.01,0,"IX","REQ1",420.01,25.2)=""
^DD(420.01,0,"IX","REQ2",420.01,25)=""
^DD(420.01,0,"NM","CONTROL POINT NAME")=""
^DD(420.01,0,"SCR")="X $S(('$D(PRCFA(""REACTIVATE""))&('$D(PRCFA(""ALL"")))):""I +$P(^(0),U,19)=0"",$D(PRCFA(""REACTIVATE"")):""I $P(^(0),U,19)=1"",1:""I 1"")"
^DD(420.01,0,"UP")="420"
^DD(420.01,.01,0)="CONTROL POINT^MFX^^0;1^K:X[""""""""!($A(X)=45) X K:+X=9999 X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?3.4N1"" ""1AN.ANP) X I $D(X) D DINU^PRCB1A"
^DD(420.01,.01,1,0)="^.1"
^DD(420.01,.01,1,1,0)="420.01^B"
^DD(420.01,.01,1,1,1)="S ^PRC(420,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(420.01,.01,1,1,2)="K ^PRC(420,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(420.01,.01,1,2,0)="420.01^C^MUMPS"
^DD(420.01,.01,1,2,1)="S ^PRC(420,DA(1),1,""C"",$E($P(X,"" "",2,99),1,30),DA)="""""
^DD(420.01,.01,1,2,2)="K ^PRC(420,DA(1),1,""C"",$E($P(X,"" "",2,99),1,30),DA)"
^DD(420.01,.01,1,2,"%D",0)="^^1^1^2930624^^"
^DD(420.01,.01,1,2,"%D",1,0)="This cross reference is used to set the control point name."
^DD(420.01,.01,3)="Enter a 3 or 4 digit number, a space and the name of each control point associated with this station.  Answer must be 3 to 30 characters in length"
^DD(420.01,.01,9)="^"
^DD(420.01,.01,21,0)="^^2^2^2971203^^^^"
^DD(420.01,.01,21,1,0)="This is the number, a space, and the name of each Control Point"
^DD(420.01,.01,21,2,0)="associated with this station."
^DD(420.01,.01,23,0)="^^2^2^2971203^^^^"
^DD(420.01,.01,23,1,0)="THIS IS THE NUMBER, A SPACE, AND THE NAME OF EACH CONTROL POINT"
^DD(420.01,.01,23,2,0)="ASSOCIATED WITH THIS STATION"
^DD(420.01,.01,"DT")="2940222"
^DD(420.01,.5,0)="CONTROLLING SERVICE^P49'^DIC(49,^0;10^Q"
^DD(420.01,.5,1,0)="^.1"
^DD(420.01,.5,1,1,0)="420^AC"
^DD(420.01,.5,1,1,1)="S ^PRC(420,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(420.01,.5,1,1,2)="K ^PRC(420,""AC"",$E(X,1,30),DA(1),DA)"
^DD(420.01,.5,1,1,"%D",0)="^^3^3^2930624^^"
^DD(420.01,.5,1,1,"%D",1,0)="This cross reference is set on the number of the"
^DD(420.01,.5,1,1,"%D",2,0)="controlling service listed in the Service/Section"
^DD(420.01,.5,1,1,"%D",3,0)="file."
^DD(420.01,.5,21,0)="^^1^1^2910514^"
^DD(420.01,.5,21,1,0)="This is the controlling service."
^DD(420.01,.5,"DT")="2850501"
^DD(420.01,1,0)="FUND^R*P420.3'X^PRCD(420.3,^0;2^S DIC(""S"")=""I $P(^(0),U,6)="""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1A,UNQCHK^PRCB1A(X,PRCK25D5,PRCK26,PRCK27,PRCK28,PRCK29)"
^DD(420.01,1,1,0)="^.1"
^DD(420.01,1,1,1,0)="420.01^AC^MUMPS"
^DD(420.01,1,1,1,1)="S %=$S($D(^PRCD(420.3,+X,0)):^(0),1:""""),%(1)=^PRC(420,DA(1),1,DA,0),$P(%(1),""^"",6)=$P(%,""^"",2),$P(%(1),""^"",3)=$P(%,""^"",3),^(0)=%(1) K %"
^DD(420.01,1,1,1,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=Y(1)"
^DD(420.01,1,1,1,1.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=420.01,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(420.01,1,1,1,2)="S %=^PRC(420,DA(1),1,DA,0),$P(%,""^"",3)="""",$P(%,""^"",6)="""",^(0)=% K %"
^DD(420.01,1,1,1,2.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3) S D0=Y(1)"
^DD(420.01,1,1,1,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=420.01,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(420.01,1,1,1,"%D",0)="^^3^3^2940314^^^^"
^DD(420.01,1,1,1,"%D",1,0)="This cross reference is used to set the program.limitation.ana-"
^DD(420.01,1,1,1,"%D",2,0)="lysis and the appropriation symbol into"
^DD(420.01,1,1,1,"%D",3,0)="the fund control point record."
^DD(420.01,1,1,1,"CREATE VALUE")="#1:#2"
^DD(420.01,1,1,1,"DELETE VALUE")="#1:#2"
^DD(420.01,1,1,1,"FIELD")="APPROPRIATION SYMBOL"
^DD(420.01,1,1,2,0)="^^TRIGGER^420.01^3"
^DD(420.01,1,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(420.01,1,1,2,1.1) X ^DD(420.01,1,1,2,1.4)"
^DD(420.01,1,1,2,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=Y(1)"
^DD(420.01,1,1,2,1.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=420.01,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(420.01,1,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(420.01,1,1,2,2.1) X ^DD(420.01,1,1,2,2.4)"
^DD(420.01,1,1,2,2.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=Y(1)"
^DD(420.01,1,1,2,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=420.01,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(420.01,1,1,2,"%D",0)="^^3^3^2940314^^"
^DD(420.01,1,1,2,"%D",1,0)="This cross-reference is a trigger of the PROGRAM.LIMITATION.ANALYSIS"
^DD(420.01,1,1,2,"%D",2,0)="field (#3) of the CONTROL POINT NAME sub-field (#420.01) of the FUND"
^DD(420.01,1,1,2,"%D",3,0)="CONTROL POINT File (#420)."
^DD(420.01,1,1,2,"CREATE VALUE")="#1:#1"
^DD(420.01,1,1,2,"DELETE VALUE")="#1:#1"
^DD(420.01,1,1,2,"FIELD")="PROGRAM.LIMITATION.ANALYSIS"
^DD(420.01,1,1,3,0)="^^TRIGGER^420.01^25"
^DD(420.01,1,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(420.01,1,1,3,1.1) X ^DD(420.01,1,1,3,1.4)"
^DD(420.01,1,1,3,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^PRCD(420.3,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,7) S D0=I(0,0) S D1=I(1,0)"
^DD(420.01,1,1,3,1.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,1)=DIV,DIH=420.01,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,1,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(420.01,1,1,3,2.4)"
^DD(420.01,1,1,3,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,1)=DIV,DIH=420.01,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,1,1,3,"CREATE VALUE")="#1:#6"
^DD(420.01,1,1,3,"DELETE VALUE")="@"
^DD(420.01,1,1,3,"DT")="2940314"
^DD(420.01,1,1,3,"FIELD")="FUND"
^DD(420.01,1,1,4,0)="420^UNQ1^MUMPS"
^DD(420.01,1,1,4,1)="D KEY^PRCB1A S PRCK1=X D UNQCRS^PRCB1A"
^DD(420.01,1,1,4,2)="D KEY^PRCB1A S PRCK1=X D UNQCRK^PRCB1A"
^DD(420.01,1,1,4,"%D",0)="^^1^1^2950302^"
^DD(420.01,1,1,4,"%D",1,0)="This is used for unique entry checking."
^DD(420.01,1,1,4,"DT")="2941006"
^DD(420.01,1,1,10,0)="^^TRIGGER^420.01^25.2"
^DD(420.01,1,1,10,1)="X ^DD(420.01,1,1,10,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(420.01,1,1,10,1.1) X ^DD(420.01,1,1,10,1.4)"
^DD(420.01,1,1,10,1.1)="S X=DIV S X=""S X=$$DATE^PRC0C(""""T"""",""""E""""),X=$P($$DATE^PRC0C(+X,""""E""""),U,7)"" X X"
^DD(420.01,1,1,10,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,8)="""""
^DD(420.01,1,1,10,1.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,8)=DIV,DIH=420.01,DIG=25.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,1,1,10,2)="Q"
^DD(420.01,1,1,10,"CREATE CONDITION")="BEGINNING="""""
^DD(420.01,1,1,10,"CREATE VALUE")="PRCMUMPS(""S X=$$DATE^PRC0C(""""T"""",""""E""""),X=$P($$DATE^PRC0C(+X,""""E""""),U,7)"")"
^DD(420.01,1,1,10,"DELETE VALUE")="NO EFFECT"
^DD(420.01,1,1,10,"DT")="2940615"
^DD(420.01,1,1,10,"FIELD")="BEG"
^DD(420.01,1,3)="Select the appropriate FUND code for this control point"
^DD(420.01,1,12)="FUND code only, old ALD code not allowed."
^DD(420.01,1,12.1)="S DIC(""S"")=""I $P(^(0),U,6)="""""""""""
^DD(420.01,1,21,0)="^^4^4^2940725^^^^"
^DD(420.01,1,21,1,0)="This is a pointer to the FUND/APPROPRIATION file, #420.3.  This field"
^DD(420.01,1,21,2,0)=" contains the FUND code for this control point. The FUND code is used"
^DD(420.01,1,21,3,0)=" as an allowance element which identifies the appropriation used for the"
^DD(420.01,1,21,4,0)="funding."
^DD(420.01,1,"DT")="2941006"
^DD(420.01,2,0)="APPROPRIATION SYMBOL^F^^0;3^K:$L(X)>20!($L(X)<6)!'(X?.ANP) X"
^DD(420.01,2,3)="ANSWER MUST BE 6-20 CHARACTERS IN LENGTH"
^DD(420.01,2,5,1,0)="420.01^1^1"
^DD(420.01,2,9)="^"
^DD(420.01,2,21,0)="^^1^1^2910514^"
^DD(420.01,2,21,1,0)="This is the appropriation symbol."
^DD(420.01,2,"DT")="2850423"
^DD(420.01,3,0)="PROGRAM.LIMITATION.ANALYSIS^F^^0;6^K:$L(X)>11!($L(X)<3)!'(X?.NP) X"
^DD(420.01,3,3)="ANSWER MUST BE 3-11 CHARACTERS IN LENGTH"
^DD(420.01,3,5,1,0)="420.01^1^2"
^DD(420.01,3,21,0)="^^3^3^2911009^^"
^DD(420.01,3,21,1,0)="This is the program limitation analysis.  It is a combination of three"
^DD(420.01,3,21,2,0)="(3) groups of information as defined in MP4, Part 5 regarding use of"
^DD(420.01,3,21,3,0)="funds (e.g., 870.001.29 = medical care, all other, ADP funds)."
^DD(420.01,3,"DT")="2850423"
^DD(420.01,4,0)="AUTOMATED^RS^Y:YES;N:NO;^0;11^Q"
^DD(420.01,4,3)="Answer YES, if this control point generates their requests to A&MM through the IFCAP system, rather than manually."
^DD(420.01,4,21,0)="^^2^2^2930701^^"
^DD(420.01,4,21,1,0)="Enter YES if this control point generates their requests to A&MM"
^DD(420.01,4,21,2,0)="using IFCAP."
^DD(420.01,4,"DT")="2850502"
^DD(420.01,6,0)="CONTROL POINT USER^420.02IPA^^1;0"
^DD(420.01,6,21,0)="^^1^1^2941007^^^^"
^DD(420.01,6,21,1,0)="This is the name of the control point user."
^DD(420.01,7,0)="COST CENTER^420.03P^^2;0"
^DD(420.01,7,21,0)="^^1^1^2910514^"
^DD(420.01,7,21,1,0)="This is information about the cost center."
^DD(420.01,8,0)="DESCRIPTION^420.04^^3;0"
^DD(420.01,8,21,0)="^^1^1^2930127^^^"
^DD(420.01,8,21,1,0)="This is a description of this Control Point."
^DD(420.01,8,23,0)="^^1^1^2930127^^"
^DD(420.01,8,23,1,0)="THIS IS A DESCRIPTION OF THIS CONTROL POINT."
^DD(420.01,9,0)="ITEM DELIVERY POINTS^S^1:YES;0:NO;^0;14^Q"
^DD(420.01,9,3)="If this control point will be using the item delivery points field to track multiple delivery points for an item enter a 1 for 'YES'."
^DD(420.01,9,21,0)="^^3^3^2910514^^"
^DD(420.01,9,21,1,0)="Enter 1 for YES if this control point will be "
^DD(420.01,9,21,2,0)="using the item delivery points field to track multiple"
^DD(420.01,9,21,3,0)="delivery points for an item."
^DD(420.01,9,"DT")="2870721"
^DD(420.01,10,0)="STATUS OF FUNDS BALANCE^NJ12,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>999999999)!(X<-999999999) X"
^DD(420.01,10,3)="TYPE A NUMBER BETWEEN -999999999 AND 999999999"
^DD(420.01,10,21,0)="^^1^1^2910514^"
^DD(420.01,10,21,1,0)="This is the status of the funds balance for this Control Point."
^DD(420.01,10,"DT")="2850423"
^DD(420.01,11,0)="ESTIMATED BALANCE^NJ12,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>999999999)!(X<-999999999) X"
^DD(420.01,11,3)="TYPE A NUMBER BETWEEN -999999999 AND 999999999"
^DD(420.01,11,21,0)="^^1^1^2910514^"
^DD(420.01,11,21,1,0)="This is the estimated balance of this Control Point."
^DD(420.01,11,"DT")="2850423"
^DD(420.01,12,0)="ALLOW ACCESS BY ALL REQUESTORS^S^Y:YES;N:NO;^0;9^Q"
^DD(420.01,12,3)="Enter a 'Y' for yes if you want to allow all control point users to have requestor level access to this control point."
^DD(420.01,12,21,0)="^^2^2^2910514^"
^DD(420.01,12,21,1,0)="YES allows all Control Point users to have requestor"
^DD(420.01,12,21,2,0)="level access."
^DD(420.01,12,"DT")="2860625"
^DD(420.01,13,0)="SPECIAL CONTROL POINT^S^1:GENERAL POST FUND;2:SUPPLY FUND;3:CONSTRUCTION;4:CANTEEN;^0;12^Q"
^DD(420.01,13,1,0)="^.1"
^DD(420.01,13,1,1,0)="420^AD"
^DD(420.01,13,1,1,1)="S ^PRC(420,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(420.01,13,1,1,2)="K ^PRC(420,""AD"",$E(X,1,30),DA(1),DA)"
^DD(420.01,13,1,1,"%D",0)="^^4^4^2930624^^"
^DD(420.01,13,1,1,"%D",1,0)="This cross reference is set on one of the three types"
^DD(420.01,13,1,1,"%D",2,0)="of special control point: general post fund, supply,"
^DD(420.01,13,1,1,"%D",3,0)="and CASCA/Canteen. It is set on the type, station"
^DD(420.01,13,1,1,"%D",4,0)="number, and control point."
^DD(420.01,13,3)="Controls the way a procurement document is routed through IFCAP, as well as whether Cost Centers and BOCs are required."
^DD(420.01,13,21,0)="^^2^2^2941110^^^^"
^DD(420.01,13,21,1,0)="This is the appropriate code if this is a special control point "
^DD(420.01,13,21,2,0)="(e.g. Supply Stock Fund)."
^DD(420.01,13,"DT")="2941110"
^DD(420.01,14,0)="CP OVERCOMMIT SWITCH^RS^0:OVERCOMMIT NOT ALLOWED;1:CURRENT QUARTER OVERCOMMIT ALLOWED;2:FUTURE QUARTERS OVERCOMMIT ALLOWED;3:CURRENT AND FUTURE QUARTERS OVERCOMMIT ALLOWED;5:OVERCOMMIT ALLOWED;^0;13^Q"
^DD(420.01,14,3)=""
^DD(420.01,14,21,0)="^^1^1^2950105^^^^"
^DD(420.01,14,21,1,0)="NO indicates that this control point is not permitted to overcommit funds."
^DD(420.01,14,"DT")="2950105"
^DD(420.01,15,0)="COMMITTED/OBLIGATED BALANCES^420.06A^^4;0"
^DD(420.01,15,21,0)="^^1^1^2941109^^^^"
^DD(420.01,15,21,1,0)="This is the Control Point official's fund balance."
^DD(420.01,16,0)="OVERCOMMIT 1358 PERMITTED^S^Y:YES;N:NO;^0;15^Q"
^DD(420.01,16,3)="Enter a 'Y' for YES if this Control Point is allowed to enter 1358 authorizations and/or liquidations in excess of the amount of the 1358."
^DD(420.01,16,21,0)="^^1^1^2930204^^^^"
^DD(420.01,16,21,1,0)="Enter YES if the control point can overcommit in excess of the 1358 amount."
^DD(420.01,16,"DT")="2870825"
^DD(420.01,17,0)="** INVENTORY DISTRIBUTION POINT^P445'^PRCP(445,^0;16^Q"
^DD(420.01,17,1,0)="^.1^^0"
^DD(420.01,17,3)=""
^DD(420.01,17,21,0)="^^2^2^2990812^^^^"
^DD(420.01,17,21,1,0)="REPLACED BY 17.5 MULTIPLE IN PATCH PRC*5*197."
^DD(420.01,17,21,2,0)="** This field will be deleted. **"
^DD(420.01,17,"DT")="2990812"
^DD(420.01,17.5,0)="INVENTORY POINT^420.07P^^7;0"
^DD(420.01,17.5,"DT")="2990811"
^DD(420.01,18,0)="DIETETICS SUBS/SUPPLIES^S^1:SUBSISTENCE;2:SUPPLIES;^0;17^Q"
^DD(420.01,18,3)="Used ONLY for the Dietetics Fund Control Points, to indicate whether the control point is used to purchase Subsistence or Supplies."
^DD(420.01,18,21,0)="^^3^3^2910517^^"
^DD(420.01,18,21,1,0)="This field is used only for the Dietetics Fund Control Points, to"
^DD(420.01,18,21,2,0)="indicate whether the Control Point is used to purchase subsistence"
^DD(420.01,18,21,3,0)="or supplies."
^DD(420.01,18,"DT")="2871218"
^DD(420.01,19,0)="LOG DEPARTMENT^F^^0;18^K:$L(X)>24!($L(X)<3)!'(X?3UN."" "".E) X"
^DD(420.01,19,3)="Enter 3 character department identifier, a space, and the department name.  This is required on all but Supply Fund control points.  ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(420.01,19,21,0)="^^8^8^2960329^"
^DD(420.01,19,21,1,0)="If there is a LOG department number associated with this Fund Control"
^DD(420.01,19,21,2,0)="Point, enter the three character identifier, followed by a space, then"
^DD(420.01,19,21,3,0)="the name of the department (up to 20 characters). This field is used"
^DD(420.01,19,21,4,0)="in generation of LOG code sheets."
^DD(420.01,19,21,5,0)=" "
^DD(420.01,19,21,6,0)="Use of a LOG department number that begins with 11 will require the FCP"
^DD(420.01,19,21,7,0)="user to enter a Food Group for the items they order, and therefore should"
^DD(420.01,19,21,8,0)="be used for Subsistence control points only."
^DD(420.01,19,"DT")="2890727"
^DD(420.01,20,0)="ACTIVE/INACTIVE^S^0:ACTIVE;1:INACTIVE;^0;19^Q"
^DD(420.01,20,1,0)="^.1^^0"
^DD(420.01,20,21,0)="^^1^1^2940429^^^"
^DD(420.01,20,21,1,0)="Enter YES for an active control point."
^DD(420.01,20,"DT")="2930824"
^DD(420.01,21,0)="ROLLOVER OF EOQ BALANCE^RS^1:TRANSFER FUNDS TO ANOTHER FCP;2:SPEND AVAILABLE PRIOR FUNDS;3:RESTRICT TO CURRENT QUARTER (DEFAULT);^0;20^Q"
^DD(420.01,21,1,0)="^.1"
^DD(420.01,21,1,1,0)="^^TRIGGER^420.01^22"
^DD(420.01,21,1,1,1)="X ^DD(420.01,21,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="""" X ^DD(420.01,21,1,1,1.4)"
^DD(420.01,21,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(420.01,21,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)'=1"
^DD(420.01,21,1,1,1.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,21)=DIV,DIH=420.01,DIG=22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,21,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="""" X ^DD(420.01,21,1,1,2.4)"
^DD(420.01,21,1,1,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,21)=DIV,DIH=420.01,DIG=22 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,21,1,1,"CREATE CONDITION")="ROLLOVER OF EOQ BALANCE'=1"
^DD(420.01,21,1,1,"CREATE VALUE")="@"
^DD(420.01,21,1,1,"DELETE VALUE")="@"
^DD(420.01,21,1,1,"DT")="2940422"
^DD(420.01,21,1,1,"FIELD")="ROLLOVER CONTROL POINT"
^DD(420.01,21,3)="Enter control point from which funds will be spent."
^DD(420.01,21,21,0)="^^1^1^2940617^^^^"
^DD(420.01,21,21,1,0)="This is the rollover of the EOQ balance."
^DD(420.01,21,"DT")="2940617"
^DD(420.01,22,0)="ROLLOVER CONTROL POINT^FX^^0;21^S DIC=""^PRC(420,""_DA(1)_"",1,"",DIC(0)=""EMNQZ"",DIC(""S"")=""I Y-DA,Y-9999,$P(^(0),U,12)-2"" D ^DIC K:Y<0 X I $D(X) S X=$P($G(Y(0)),U,1),X=$P(X,"" "") K DIC"
^DD(420.01,22,3)="Enter a valid control point number.  INCLUDE LEADING ZERO'S"
^DD(420.01,22,4)="N D,DIC S X=""?"" Q:'$D(^PRC(420,DA(1),1,0))  S DIC=""^PRC(420,DA(1),1,"",DIC(0)=""QEM"",DIC(""S"")=""I Y-DA,Y-9999,$P(^(0),U,12)-2"" D ^DIC K DIC(""S"")"
^DD(420.01,22,5,1,0)="420.01^21^1"
^DD(420.01,22,21,0)="^^1^1^2940422^^^^"
^DD(420.01,22,21,1,0)="This is the rollover control point number."
^DD(420.01,22,"DT")="2940609"
^DD(420.01,23,0)="DEACTIVATED BY^P200'^VA(200,^0;23^Q"
^DD(420.01,23,21,0)="^^1^1^2921221^^"
^DD(420.01,23,21,1,0)="This is the person who deactivated the control point."
^DD(420.01,23,"DT")="2921221"
^DD(420.01,24,0)="DATE/TIME DEACTIVATED^D^^0;24^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(420.01,24,21,0)="^^1^1^2910515^"
^DD(420.01,24,21,1,0)="This is the date/time the control point was deactivated."
^DD(420.01,24,"DT")="2891110"
^DD(420.01,25,0)="FUND CODE TEXT^RFX^^5;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X I $D(X) K:'$O(^PRCD(420.14,""B"",X,"""")) X"
^DD(420.01,25,1,0)="^.1"
^DD(420.01,25,1,10,0)="420.01^REQ2^MUMPS"
^DD(420.01,25,1,10,1)="S PRCFUND=X D REQ^PRCB1A1"
^DD(420.01,25,1,10,2)="Q"
^DD(420.01,25,1,10,"%D",0)="^^1^1^2950302^"
^DD(420.01,25,1,10,"%D",1,0)="This is used for required field checking."
^DD(420.01,25,1,10,"DT")="2940616"
^DD(420.01,25,1,15,0)="^^TRIGGER^420.01^25.5"
^DD(420.01,25,1,15,1)="Q"
^DD(420.01,25,1,15,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(25.5)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(420.01,25,1,15,2.4)"
^DD(420.01,25,1,15,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,5)=DIV,DIH=420.01,DIG=25.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25,1,15,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25,1,15,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(25.5)"")"
^DD(420.01,25,1,15,"DELETE VALUE")="@"
^DD(420.01,25,1,15,"DT")="2940616"
^DD(420.01,25,1,15,"FIELD")="ADM"
^DD(420.01,25,1,16,0)="^^TRIGGER^420.01^26"
^DD(420.01,25,1,16,1)="Q"
^DD(420.01,25,1,16,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(26)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(420.01,25,1,16,2.4)"
^DD(420.01,25,1,16,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,2)=DIV,DIH=420.01,DIG=26 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25,1,16,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25,1,16,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(26)"")"
^DD(420.01,25,1,16,"DELETE VALUE")="@"
^DD(420.01,25,1,16,"DT")="2940616"
^DD(420.01,25,1,16,"FIELD")="PROGRAM"
^DD(420.01,25,1,17,0)="^^TRIGGER^420.01^27"
^DD(420.01,25,1,17,1)="Q"
^DD(420.01,25,1,17,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(27)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(420.01,25,1,17,2.4)"
^DD(420.01,25,1,17,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,3)=DIV,DIH=420.01,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25,1,17,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25,1,17,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(27)"")"
^DD(420.01,25,1,17,"DELETE VALUE")="@"
^DD(420.01,25,1,17,"DT")="2940616"
^DD(420.01,25,1,17,"FIELD")="FCP/P"
^DD(420.01,25,1,18,0)="^^TRIGGER^420.01^28"
^DD(420.01,25,1,18,1)="Q"
^DD(420.01,25,1,18,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(28)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(420.01,25,1,18,2.4)"
^DD(420.01,25,1,18,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,4)=DIV,DIH=420.01,DIG=28 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25,1,18,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25,1,18,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(28)"")"
^DD(420.01,25,1,18,"DELETE VALUE")="@"
^DD(420.01,25,1,18,"DT")="2940616"
^DD(420.01,25,1,18,"FIELD")="OB"
^DD(420.01,25,1,19,0)="^^TRIGGER^420.01^29"
^DD(420.01,25,1,19,1)="Q"
^DD(420.01,25,1,19,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(29)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(420.01,25,1,19,2.4)"
^DD(420.01,25,1,19,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,6)=DIV,DIH=420.01,DIG=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25,1,19,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25,1,19,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(29)"")"
^DD(420.01,25,1,19,"DELETE VALUE")="@"
^DD(420.01,25,1,19,"DT")="2940616"
^DD(420.01,25,1,19,"FIELD")="JOB"
^DD(420.01,25,3)="Enter a fund code defined in FUND file."
^DD(420.01,25,5,1,0)="420.01^1^3"
^DD(420.01,25,9)="^"
^DD(420.01,25,21,0)="^^1^1^2941201^^"
^DD(420.01,25,21,1,0)="This is used to store fund code text data."
^DD(420.01,25,"DT")="2940616"
^DD(420.01,25.2,0)="BEGINNING BUDGET FISCAL YEAR^RD^^5;8^S %DT=""E"" D ^%DT S X=Y K:8000101<X!(2000000>X) X"
^DD(420.01,25.2,1,0)="^.1"
^DD(420.01,25.2,1,1,0)="420.01^REQ1^MUMPS"
^DD(420.01,25.2,1,1,1)="S PRCBBFY=X D REQ^PRCB1A1"
^DD(420.01,25.2,1,1,2)="Q"
^DD(420.01,25.2,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.01,25.2,1,1,"%D",1,0)="This is used for required field checking."
^DD(420.01,25.2,1,1,"DT")="2940616"
^DD(420.01,25.2,1,15,0)="^^TRIGGER^420.01^25.5"
^DD(420.01,25.2,1,15,1)="Q"
^DD(420.01,25.2,1,15,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(25.5)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(420.01,25.2,1,15,2.4)"
^DD(420.01,25.2,1,15,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,5)=DIV,DIH=420.01,DIG=25.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25.2,1,15,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25.2,1,15,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(25.5)"")"
^DD(420.01,25.2,1,15,"DELETE VALUE")="@"
^DD(420.01,25.2,1,15,"DT")="2940616"
^DD(420.01,25.2,1,15,"FIELD")="ADM"
^DD(420.01,25.2,1,16,0)="^^TRIGGER^420.01^26"
^DD(420.01,25.2,1,16,1)="Q"
^DD(420.01,25.2,1,16,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(26)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(420.01,25.2,1,16,2.4)"
^DD(420.01,25.2,1,16,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,2)=DIV,DIH=420.01,DIG=26 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25.2,1,16,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25.2,1,16,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(26)"")"
^DD(420.01,25.2,1,16,"DELETE VALUE")="@"
^DD(420.01,25.2,1,16,"DT")="2940616"
^DD(420.01,25.2,1,16,"FIELD")="PROGRAM"
^DD(420.01,25.2,1,17,0)="^^TRIGGER^420.01^27"
^DD(420.01,25.2,1,17,1)="Q"
^DD(420.01,25.2,1,17,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(27)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(420.01,25.2,1,17,2.4)"
^DD(420.01,25.2,1,17,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,3)=DIV,DIH=420.01,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25.2,1,17,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25.2,1,17,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(27)"")"
^DD(420.01,25.2,1,17,"DELETE VALUE")="@"
^DD(420.01,25.2,1,17,"DT")="2940616"
^DD(420.01,25.2,1,17,"FIELD")="FCP"
^DD(420.01,25.2,1,18,0)="^^TRIGGER^420.01^28"
^DD(420.01,25.2,1,18,1)="Q"
^DD(420.01,25.2,1,18,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(28)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(420.01,25.2,1,18,2.4)"
^DD(420.01,25.2,1,18,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,4)=DIV,DIH=420.01,DIG=28 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25.2,1,18,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25.2,1,18,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(28)"")"
^DD(420.01,25.2,1,18,"DELETE VALUE")="@"
^DD(420.01,25.2,1,18,"DT")="2940616"
^DD(420.01,25.2,1,18,"FIELD")="OBJ"
^DD(420.01,25.2,1,19,0)="^^TRIGGER^420.01^29"
^DD(420.01,25.2,1,19,1)="Q"
^DD(420.01,25.2,1,19,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S X=""S X='PRCRQ(29)"" X X I X S X=DIV S Y(1)=$S($D(^PRC(420,D0,1,D1,5)):^(5),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(420.01,25.2,1,19,2.4)"
^DD(420.01,25.2,1,19,2.4)="S DIH=$S($D(^PRC(420,DIV(0),1,DIV(1),5)):^(5),1:""""),DIV=X S $P(^(5),U,6)=DIV,DIH=420.01,DIG=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.01,25.2,1,19,"CREATE VALUE")="NO EFFECT"
^DD(420.01,25.2,1,19,"DELETE CONDITION")="PRCMUMPS(""S X='PRCRQ(29)"")"
^DD(420.01,25.2,1,19,"DELETE VALUE")="@"
^DD(420.01,25.2,1,19,"DT")="2940616"
^DD(420.01,25.2,1,19,"FIELD")="JOB"
^DD(420.01,25.2,3)="Enter a year which is used to determine, from the required fields file, the necessary data to prompt suring the set-up of the FCP."
^DD(420.01,25.2,4)="D HE^PRCB0A(""BBFY"")"
^DD(420.01,25.2,5,1,0)="420.01^1^10"
^DD(420.01,25.2,21,0)="^^1^1^2941109^"
^DD(420.01,25.2,21,1,0)="This is used to store BEGINNING BUDGET FISCAL YEAR data."
^DD(420.01,25.2,"DT")="2940616"
^DD(420.01,25.5,0)="ADMINISTRATIVE OFFICE^*P420.15'X^PRCD(420.15,^5;5^S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1A,UNQCHK^PRCB1A(PRCK1,X,PRCK26,PRCK27,PRCK28,PRCK29)"
^DD(420.01,25.5,1,0)="^.1"
^DD(420.01,25.5,1,1,0)="420^UNQ25D5^MUMPS"
^DD(420.01,25.5,1,1,1)="D KEY^PRCB1A S PRCK25D5="" "" D UNQCRK^PRCB1A S PRCK25D5=X D UNQCRS^PRCB1A"
^DD(420.01,25.5,1,1,2)="D KEY^PRCB1A S PRCK25D5=X D UNQCRK^PRCB1A S PRCK25D5="" "" D UNQCRS^PRCB1A"
^DD(420.01,25.5,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.01,25.5,1,1,"%D",1,0)="This is used for unique entry checking."
^DD(420.01,25.5,1,1,"DT")="2941006"
^DD(420.01,25.5,5,1,0)="420.01^25.2^15"
^DD(420.01,25.5,5,2,0)="420.01^25^15"
^DD(420.01,25.5,12)="Entry with active status only."
^DD(420.01,25.5,12.1)="S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""""
^DD(420.01,25.5,21,0)="^^1^1^2941109^^"
^DD(420.01,25.5,21,1,0)="This is used to store ADMINISTRATIVE OFFICE data."
^DD(420.01,25.5,"DT")="2941006"
^DD(420.01,26,0)="PROGRAM^*P420.13'X^PRCD(420.13,^5;2^S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,X,PRCK27,PRCK28,PRCK29)"
^DD(420.01,26,1,0)="^.1"
^DD(420.01,26,1,1,0)="420^UNQ26^MUMPS"
^DD(420.01,26,1,1,1)="D KEY^PRCB1A S PRCK26="" "" D UNQCRK^PRCB1A S PRCK26=X D UNQCRS^PRCB1A"
^DD(420.01,26,1,1,2)="D KEY^PRCB1A S PRCK26=X D UNQCRK^PRCB1A S PRCK26="" "" D UNQCRS^PRCB1A"
^DD(420.01,26,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.01,26,1,1,"%D",1,0)="This is used for unique entry checking."
^DD(420.01,26,1,1,"DT")="2941006"
^DD(420.01,26,5,1,0)="420.01^25.2^16"
^DD(420.01,26,5,2,0)="420.01^25^16"
^DD(420.01,26,12)="Entry with active status only."
^DD(420.01,26,12.1)="S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""""
^DD(420.01,26,21,0)="^^1^1^2941109^"
^DD(420.01,26,21,1,0)="This is used to store PROGRAM data."
^DD(420.01,26,"DT")="2941006"
^DD(420.01,27,0)="FCP/PRJ^*P420.131'X^PRCD(420.131,^5;3^S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,PRCK26,X,PRCK28,PRCK29)"
^DD(420.01,27,1,0)="^.1"
^DD(420.01,27,1,1,0)="420^UNQ27^MUMPS"
^DD(420.01,27,1,1,1)="D KEY^PRCB1A S PRCK27="" "" D UNQCRK^PRCB1A S PRCK27=X D UNQCRS^PRCB1A"
^DD(420.01,27,1,1,2)="D KEY^PRCB1A S PRCK27=X D UNQCRK^PRCB1A S PRCK27="" "" D UNQCRS^PRCB1A"
^DD(420.01,27,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.01,27,1,1,"%D",1,0)="This is used for unique entry checking."
^DD(420.01,27,1,1,"DT")="2941006"
^DD(420.01,27,5,1,0)="420.01^25.2^17"
^DD(420.01,27,5,2,0)="420.01^25^17"
^DD(420.01,27,12)="Entry with active status only."
^DD(420.01,27,12.1)="S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""""
^DD(420.01,27,21,0)="^^1^1^2941109^"
^DD(420.01,27,21,1,0)="This is used to store FCP/PRJ data."
^DD(420.01,27,"DT")="2941006"
^DD(420.01,28,0)="OBJECT CLASS^*P420.132'X^PRCD(420.132,^5;4^S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,PRCK26,PRCK27,X,PRCK29)"
^DD(420.01,28,1,0)="^.1"
^DD(420.01,28,1,1,0)="420^UNQ28^MUMPS"
^DD(420.01,28,1,1,1)="D KEY^PRCB1A S PRCK28="" "" D UNQCRK^PRCB1A S PRCK28=X D UNQCRS^PRCB1A"
^DD(420.01,28,1,1,2)="D KEY^PRCB1A S PRCK28=X D UNQCRK^PRCB1A S PRCK28="" "" D UNQCRS^PRCB1A"
^DD(420.01,28,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.01,28,1,1,"%D",1,0)="This is used for unique entry checking."
^DD(420.01,28,1,1,"DT")="2941006"
^DD(420.01,28,3)=""
^DD(420.01,28,5,1,0)="420.01^25.2^18"
^DD(420.01,28,5,2,0)="420.01^25^18"
^DD(420.01,28,12)="Entry with active status only."
^DD(420.01,28,12.1)="S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""""
^DD(420.01,28,21,0)="^^1^1^2941109^"
^DD(420.01,28,21,1,0)="This is used to store OBJECT CLASS data."
^DD(420.01,28,"DT")="2941006"
^DD(420.01,29,0)="JOB^*P420.133'X^PRCD(420.133,^5;6^S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) KEY^PRCB1A,UNQCHK^PRCB1A(PRCK1,PRCK25D5,PRCK26,PRCK27,PRCK28,X)"
^DD(420.01,29,1,0)="^.1"
^DD(420.01,29,1,1,0)="420^UNQ29^MUMPS"
^DD(420.01,29,1,1,1)="D KEY^PRCB1A S PRCK29="" "" D UNQCRK^PRCB1A S PRCK29=X D UNQCRS^PRCB1A"
^DD(420.01,29,1,1,2)="D KEY^PRCB1A S PRCK29=X D UNQCRK^PRCB1A S PRCK29="" "" D UNQCRS^PRCB1A"
^DD(420.01,29,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.01,29,1,1,"%D",1,0)="This is used for unique entry checking."
^DD(420.01,29,1,1,"DT")="2941006"
^DD(420.01,29,3)="Enter a valid job in job file."
^DD(420.01,29,5,1,0)="420.01^25.2^19"
^DD(420.01,29,5,2,0)="420.01^25^19"
^DD(420.01,29,12)="Entry with active status only."
^DD(420.01,29,12.1)="S DIC(""S"")=""I $$STATUS^PRC0B=""""A"""""""
^DD(420.01,29,21,0)="^^1^1^2941109^"
^DD(420.01,29,21,1,0)="This is used to store JOB data."
^DD(420.01,29,"DT")="2941006"
^DD(420.01,30,0)="LAST ROLLOVER QUARTER DATE^D^^5;7^S %DT=""E"" D ^%DT S X=Y K:9991231<X!(2700000>X) X"
^DD(420.01,30,3)="TYPE A DATE BETWEEN 1970 AND 12/31/2699"
^DD(420.01,30,21,0)="^^1^1^2941109^"
^DD(420.01,30,21,1,0)="This is used to store LAST ROLLOVER QUARTER DATE data."
^DD(420.01,30,"DT")="2940424"
^DD(420.01,31,0)="EDI AUTO RELEASE^S^Y:YES;N:NO;^6;1^Q"
^DD(420.01,31,21,0)="^^2^2^2960520^"
^DD(420.01,31,21,1,0)="This is used to release EDI orders to vendors directly without fiscal"
^DD(420.01,31,21,2,0)="review if the data is 'Y' for yes."
^DD(420.01,31,"DT")="2960520"
^DD(420.01,32,0)="FCP ALL/DELIVERY ORDER SWITCH^S^A:ALL ORDERS;D:DELIVERY ORDERS ONLY;^6;2^Q"
^DD(420.01,32,21,0)="^^1^1^2960624^^^"
^DD(420.01,32,21,1,0)="This is used to release orders directly without fiscal review."
^DD(420.01,32,"DT")="2960624"
^DD(420.01,"B","** INVENTORY DISTRIBUTION POINT",17)=""
^DD(420.01,"B","ACTIVE/INACTIVE",20)=""
^DD(420.01,"B","ADMINISTRATIVE OFFICE",25.5)=""
^DD(420.01,"B","ALLOW ACCESS BY ALL REQUESTORS",12)=""
^DD(420.01,"B","APPROPRIATION SYMBOL",2)=""
^DD(420.01,"B","AUTOMATED",4)=""
^DD(420.01,"B","BEGINNING BUDGET FISCAL YEAR",25.2)=""
^DD(420.01,"B","COMMITTED/OBLIGATED BALANCES",15)=""
^DD(420.01,"B","CONTROL POINT",.01)=""
^DD(420.01,"B","CONTROL POINT USER",6)=""
^DD(420.01,"B","CONTROLLING SERVICE",.5)=""
^DD(420.01,"B","COST CENTER",7)=""
^DD(420.01,"B","CP OVERCOMMIT SWITCH",14)=""
^DD(420.01,"B","DATE/TIME DEACTIVATED",24)=""
^DD(420.01,"B","DEACTIVATED BY",23)=""
^DD(420.01,"B","DESCRIPTION",8)=""
^DD(420.01,"B","DIETETICS SUBS/SUPPLIES",18)=""
^DD(420.01,"B","EDI AUTO RELEASE",31)=""
^DD(420.01,"B","ESTIMATED BALANCE",11)=""
^DD(420.01,"B","FCP ALL/DELIVERY ORDER SWITCH",32)=""
^DD(420.01,"B","FCP/PRJ",27)=""
^DD(420.01,"B","FUND",1)=""
^DD(420.01,"B","FUND CODE TEXT",25)=""
^DD(420.01,"B","INVENTORY POINT",17.5)=""
^DD(420.01,"B","ITEM DELIVERY POINTS",9)=""
^DD(420.01,"B","JOB",29)=""
^DD(420.01,"B","LAST ROLLOVER QUARTER DATE",30)=""
^DD(420.01,"B","LOG DEPARTMENT",19)=""
^DD(420.01,"B","OBJECT CLASS",28)=""
^DD(420.01,"B","OVERCOMMIT 1358 PERMITTED",16)=""
^DD(420.01,"B","PROGRAM",26)=""
^DD(420.01,"B","PROGRAM.LIMITATION.ANALYSIS",3)=""
^DD(420.01,"B","ROLLOVER CONTROL POINT",22)=""
^DD(420.01,"B","ROLLOVER OF EOQ BALANCE",21)=""
^DD(420.01,"B","SPECIAL CONTROL POINT",13)=""
^DD(420.01,"B","STATUS OF FUNDS BALANCE",10)=""
^DD(420.01,"GL",0,1,.01)=""
^DD(420.01,"GL",0,2,1)=""
^DD(420.01,"GL",0,3,2)=""
^DD(420.01,"GL",0,6,3)=""
^DD(420.01,"GL",0,7,10)=""
^DD(420.01,"GL",0,8,11)=""
^DD(420.01,"GL",0,9,12)=""
^DD(420.01,"GL",0,10,.5)=""
^DD(420.01,"GL",0,11,4)=""
^DD(420.01,"GL",0,12,13)=""
^DD(420.01,"GL",0,13,14)=""
^DD(420.01,"GL",0,14,9)=""
^DD(420.01,"GL",0,15,16)=""
^DD(420.01,"GL",0,16,17)=""
^DD(420.01,"GL",0,17,18)=""
^DD(420.01,"GL",0,18,19)=""
^DD(420.01,"GL",0,19,20)=""
^DD(420.01,"GL",0,20,21)=""
^DD(420.01,"GL",0,21,22)=""
^DD(420.01,"GL",0,23,23)=""
^DD(420.01,"GL",0,24,24)=""
^DD(420.01,"GL",1,0,6)=""
^DD(420.01,"GL",2,0,7)=""
^DD(420.01,"GL",3,0,8)=""
^DD(420.01,"GL",4,0,15)=""
^DD(420.01,"GL",5,1,25)=""
^DD(420.01,"GL",5,2,26)=""
^DD(420.01,"GL",5,3,27)=""
^DD(420.01,"GL",5,4,28)=""
^DD(420.01,"GL",5,5,25.5)=""
^DD(420.01,"GL",5,6,29)=""
^DD(420.01,"GL",5,7,30)=""
^DD(420.01,"GL",5,8,25.2)=""
^DD(420.01,"GL",6,1,31)=""
^DD(420.01,"GL",6,2,32)=""
^DD(420.01,"GL",7,0,17.5)=""
^DD(420.01,"IX",.01)=""
^DD(420.01,"IX",.5)=""
^DD(420.01,"IX",1)=""
^DD(420.01,"IX",13)=""
^DD(420.01,"IX",21)=""
^DD(420.01,"IX",25)=""
^DD(420.01,"IX",25.2)=""
^DD(420.01,"IX",25.5)=""
^DD(420.01,"IX",26)=""
^DD(420.01,"IX",27)=""
^DD(420.01,"IX",28)=""
^DD(420.01,"IX",29)=""
^DD(420.01,"RQ",1)=""
^DD(420.01,"RQ",4)=""
^DD(420.01,"RQ",14)=""
^DD(420.01,"RQ",21)=""
^DD(420.01,"RQ",25)=""
^DD(420.01,"RQ",25.2)=""
^DD(420.01,"SB",420.02,6)=""
^DD(420.01,"SB",420.03,7)=""
^DD(420.01,"SB",420.04,8)=""
^DD(420.01,"SB",420.06,15)=""
^DD(420.01,"SB",420.07,17.5)=""
^DD(420.02,0)="CONTROL POINT USER SUB-FIELD^NL^3^4"
^DD(420.02,0,"DT")="2940323"
^DD(420.02,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(420.02,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(420.02,0,"NM","CONTROL POINT USER")=""
^DD(420.02,0,"UP")="420.01"
^DD(420.02,.01,0)="CONTROL POINT USER^MP200'X^VA(200,^0;1^S DINUM=+X"
^DD(420.02,.01,1,0)="^.1^^0"
^DD(420.02,.01,1,1,0)="420^C"
^DD(420.02,.01,1,1,1)="S ^PRC(420,""C"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(420.02,.01,1,1,2)="K ^PRC(420,""C"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(420.02,.01,1,1,"%D",0)="^^3^3^2930624^^"
^DD(420.02,.01,1,1,"%D",1,0)="This cross reference is set on the user, station number,"
^DD(420.02,.01,1,1,"%D",2,0)="and control point for every control point which the"
^DD(420.02,.01,1,1,"%D",3,0)="user has access to."
^DD(420.02,.01,3)="Select the name of the individual who will be allowed to access this control point."
^DD(420.02,.01,21,0)="^^2^2^2910514^"
^DD(420.02,.01,21,1,0)="This is the name of the person who will be allowed to access this"
^DD(420.02,.01,21,2,0)="Control Point."
^DD(420.02,.01,"DT")="2930114"
^DD(420.02,1,0)="LEVEL OF ACCESS^S^1:CONTROL POINT OFFICIAL;2:CONTROL POINT CLERK;3:REQUESTOR;^0;2^Q"
^DD(420.02,1,1,0)="^.1"
^DD(420.02,1,1,1,0)="420^A^MUMPS"
^DD(420.02,1,1,1,1)="S ^PRC(420,""A"",DA,DA(2),DA(1),X)="""""
^DD(420.02,1,1,1,2)="K ^PRC(420,""A"",DA,DA(2),DA(1),X)"
^DD(420.02,1,1,1,"%D",0)="^^3^3^2930624^^"
^DD(420.02,1,1,1,"%D",1,0)="This cross reference is set on the user, station number,"
^DD(420.02,1,1,1,"%D",2,0)="control point, and level of access for every control"
^DD(420.02,1,1,1,"%D",3,0)="point the user has access to."
^DD(420.02,1,3)="1--CONTROL POINT OFFICIAL (Has authority to approve requests)  2--CONTROL POINT CLERK (Can enter permanent transactions)   3--REQUESTOR (Can initiate temporary requests to Control Point Clerk)"
^DD(420.02,1,21,0)="1^^5^5^2911009^"
^DD(420.02,1,21,1,0)="This is the level of access for the Control Point users (i.e.,  1 ="
^DD(420.02,1,21,2,0)="Control Point Official, who has authority to approve requests; 2 ="
^DD(420.02,1,21,3,0)="Control Point Clerk,who can enter permanent transactions; and 3 ="
^DD(420.02,1,21,4,0)="Requestor, who can initiate temporary requests to the Control Point"
^DD(420.02,1,21,5,0)="Clerk)."
^DD(420.02,1,"DT")="2860606"
^DD(420.02,2,0)="RECEIVE FMS RECONCILIATION^S^Y:YES;N:NO;^2;1^Q"
^DD(420.02,2,3)="Enter yes if the user should receive the FMS Reconciliation Report."
^DD(420.02,2,21,0)="^^7^7^2941007^^^^"
^DD(420.02,2,21,1,0)="This field is used to indicate which control "
^DD(420.02,2,21,2,0)="point users will receive electronic mail"
^DD(420.02,2,21,3,0)="messages whenever transactions in FMS"
^DD(420.02,2,21,4,0)="affect the balance in their Fund Control Point."
^DD(420.02,2,21,5,0)="Users coded as ""y"" will be the only ones receiving"
^DD(420.02,2,21,6,0)="these messages.  However, if no users are coded ""Y"","
^DD(420.02,2,21,7,0)="all control point officials will receive messages."
^DD(420.02,2,"DT")="2940323"
^DD(420.02,3,0)="NOTIFICATION DESIGNEE^S^Y:YES;N:NO;^0;3^Q"
^DD(420.02,3,3)="Enter yes if this control point user should receive funding bulletins."
^DD(420.02,3,21,0)="^^5^5^2960919^^^^"
^DD(420.02,3,21,1,0)="This is an optional field used to indicate whether the"
^DD(420.02,3,21,2,0)="user will receive the control point funding notification"
^DD(420.02,3,21,3,0)="bulletins.  Only users with 'Y' entered here will receive the"
^DD(420.02,3,21,4,0)="bulletins.  If no users for this Fund Control Point have 'Y'"
^DD(420.02,3,21,5,0)="entered, all users for this FCP will receive the bulletins."
^DD(420.02,3,"DT")="2940323"
^DD(420.02,"B","CONTROL POINT USER",.01)=""
^DD(420.02,"B","LEVEL OF ACCESS",1)=""
^DD(420.02,"B","NOTIFICATION DESIGNEE",3)=""
^DD(420.02,"B","RECEIVE FMS RECONCILIATION",2)=""
^DD(420.02,"GL",0,1,.01)=""
^DD(420.02,"GL",0,2,1)=""
^DD(420.02,"GL",0,3,3)=""
^DD(420.02,"GL",2,1,2)=""
^DD(420.02,"IX",.01)=""
^DD(420.02,"IX",1)=""
^DD(420.03,0)="COST CENTER SUB-FIELD^NL^.01^1"
^DD(420.03,0,"IX","B",420.03,.01)=""
^DD(420.03,0,"NM","COST CENTER")=""
^DD(420.03,0,"UP")="420.01"
^DD(420.03,.01,0)="COST CENTER^MP420.1'X^PRCD(420.1,^0;1^S DINUM=+X"
^DD(420.03,.01,1,0)="^.1"
^DD(420.03,.01,1,1,0)="420.03^B"
^DD(420.03,.01,1,1,1)="S ^PRC(420,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(420.03,.01,1,1,2)="K ^PRC(420,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(420.03,.01,3)="Select each cost center applicable to this control point"
^DD(420.03,.01,21,0)="^^1^1^2910514^"
^DD(420.03,.01,21,1,0)="This is a cost center applicable to this control point."
^DD(420.03,.01,"DT")="2860727"
^DD(420.03,"B","COST CENTER",.01)=""
^DD(420.03,"GL",0,1,.01)=""
^DD(420.03,"IX",.01)=""
^DD(420.04,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(420.04,0,"NM","DESCRIPTION")=""
^DD(420.04,0,"UP")="420.01"
^DD(420.04,.01,0)="CONTROL POINT DESCRIPTION^W^^0;1^Q"
^DD(420.04,.01,3)="THIS IS A DESCRIPTION OF THE CONTROL POINT."
^DD(420.04,.01,21,0)="^^1^1^2930127^^^^"
^DD(420.04,.01,21,1,0)="THIS IS A DESCRIPTION OF THE CONTROL POINT."
^DD(420.04,.01,23,0)="^^1^1^2930127^^^^"
^DD(420.04,.01,23,1,0)="THIS IS A DESCRIPTION OF THE CONTROL POINT."
^DD(420.04,"B","CONTROL POINT DESCRIPTION",.01)=""
^DD(420.04,"GL",0,1,.01)=""
^DD(420.05,0)="FUND RELEASING OFFICIAL SUB-FIELD^NL^.01^1"
^DD(420.05,0,"DT")="2921222"
^DD(420.05,0,"NM","FUND RELEASING OFFICIAL")=""
^DD(420.05,0,"UP")="420"
^DD(420.05,.01,0)="FUND RELEASING OFFICIAL^MP200'X^VA(200,^0;1^S DINUM=+X"
^DD(420.05,.01,1,0)="^.1^^0"
^DD(420.05,.01,3)="ENTER NAME OF FISCAL EMPLOYEE AUTHORIZED TO APPROVE RELEASE OF FUNDING TRANSACTIONS TO CONTROL POINTS."
^DD(420.05,.01,21,0)="^^2^2^2930126^^^"
^DD(420.05,.01,21,1,0)="This is the fiscal employee authorized  to approve release of funding "
^DD(420.05,.01,21,2,0)="transactions to control points."
^DD(420.05,.01,"DT")="2930127"
^DD(420.05,"B","FUND RELEASING OFFICIAL",.01)=""
^DD(420.05,"GL",0,1,.01)=""
^DD(420.06,0)="COMMITTED/OBLIGATED BALANCES SUB-FIELD^^22^23"
^DD(420.06,0,"DT")="2940324"
^DD(420.06,0,"NM","COMMITTED/OBLIGATED BALANCES")=""
^DD(420.06,0,"UP")="420.01"
^DD(420.06,.01,0)="FISCAL YEAR^FX^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X) S DINUM=X"
^DD(420.06,.01,1,0)="^.1^^0"
^DD(420.06,.01,3)="Enter the two digit fiscal year (e.g., 86)"
^DD(420.06,.01,21,0)="^^1^1^2910514^"
^DD(420.06,.01,21,1,0)="This is the two digit fiscal year (e.g., 86)."
^DD(420.06,.01,"DT")="2870306"
^DD(420.06,1,0)="1QTR UNCOMMITTED BALANCE^NJ12,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,1,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,1,21,0)="^^1^1^2910514^"
^DD(420.06,1,21,1,0)="This is the first quarter fund balance."
^DD(420.06,1,"DT")="2880301"
^DD(420.06,2,0)="2QTR UNCOMMITTED BALANCE^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>999999999)!(X<-999999999) X"
^DD(420.06,2,3)="TYPE A NUMBER BETWEEN -999999999 AND 999999999"
^DD(420.06,2,21,0)="^^1^1^2910514^"
^DD(420.06,2,21,1,0)="This is the second quarter fund balance."
^DD(420.06,2,"DT")="2860625"
^DD(420.06,3,0)="3QTR UNCOMMITTED BALANCE^NJ12,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>999999999)!(X<-999999999) X"
^DD(420.06,3,3)="TYPE A NUMBER BETWEEN -999999999 AND 999999999"
^DD(420.06,3,21,0)="^^1^1^2910514^"
^DD(420.06,3,21,1,0)="This is the third quarter fund balance."
^DD(420.06,3,"DT")="2860625"
^DD(420.06,4,0)="4QTR UNCOMMITTED BALANCE^NJ12,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,4,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,4,21,0)="^^1^1^2910514^"
^DD(420.06,4,21,1,0)="This is the fourth quarter fund balance."
^DD(420.06,4,"DT")="2910514"
^DD(420.06,5,0)="1QTR UNOBLIGATED BALANCE^NJ12,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,5,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,5,21,0)="^^1^1^2910517^^"
^DD(420.06,5,21,1,0)="This is the first quarter unobligated balance."
^DD(420.06,5,"DT")="2880301"
^DD(420.06,6,0)="2QTR UNOBLIGATED BALANCE^NJ12,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,6,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,6,21,0)="^^1^1^2910517^^"
^DD(420.06,6,21,1,0)="This is the second quarter unobligated balance."
^DD(420.06,6,"DT")="2880301"
^DD(420.06,7,0)="3QTR UNOBLIGATED BALANCE^NJ12,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,7,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,7,21,0)="^^1^1^2910517^^"
^DD(420.06,7,21,1,0)="This is the third quarter unobligated balance."
^DD(420.06,7,"DT")="2880301"
^DD(420.06,8,0)="4QTR UNOBLIGATED BALANCE^NJ12,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,8,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,8,21,0)="^^1^1^2910517^^"
^DD(420.06,8,21,1,0)="This is the fourth quarter unobligated balance."
^DD(420.06,8,"DT")="2880301"
^DD(420.06,9,0)="1QTR SCP UNCOMMITTED BALANCE^NJ12,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,9,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,9,21,0)="^^1^1^2911009^^^"
^DD(420.06,9,21,1,0)="This is the first quarter sub-control point (SCP) uncommitted balance."
^DD(420.06,9,"DT")="2890425"
^DD(420.06,10,0)="2QTR SCP UNCOMMITTED BALANCE^NJ12,2^^1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,10,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,10,21,0)="^^1^1^2911009^^^"
^DD(420.06,10,21,1,0)="This is the second quarter sub-control point (SCP) uncommitted balance."
^DD(420.06,10,"DT")="2890425"
^DD(420.06,11,0)="3QTR SCP UNCOMMITTED BALANCE^NJ12,2^^1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,11,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,11,21,0)="^^1^1^2910515^"
^DD(420.06,11,21,1,0)="This is the third quarter SCP uncommitted balance."
^DD(420.06,11,"DT")="2890425"
^DD(420.06,12,0)="4QTR SCP UNCOMMITTED BALANCE^NJ12,2^^1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(420.06,12,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(420.06,12,21,0)="^^1^1^2910517^^"
^DD(420.06,12,21,1,0)="This is the fourth quarter uncommitted balance."
^DD(420.06,12,"DT")="2890425"
^DD(420.06,13,0)="FY FCP CODE^F^^2;1^K:$L(X)>10!($L(X)<1) X"
^DD(420.06,13,3)="Answer must be 1-10 characters in length."
^DD(420.06,13,21,0)="^^1^1^2941109^"
^DD(420.06,13,21,1,0)="This is used to store FY FCP CODE data."
^DD(420.06,13,"DT")="2940323"
^DD(420.06,14,0)="FY FCP NAME^F^^2;2^K:$L(X)>40!($L(X)<1) X"
^DD(420.06,14,3)="Answer must be 1-40 characters in length."
^DD(420.06,14,21,0)="^^1^1^2941109^"
^DD(420.06,14,21,1,0)="This is used to store FY FCP NAME data."
^DD(420.06,14,"DT")="2940323"
^DD(420.06,15,0)="FY ALD/FUND CODE^P420.3'^PRCD(420.3,^2;3^Q"
^DD(420.06,15,21,0)="^^1^1^2941109^"
^DD(420.06,15,21,1,0)="This is used to store FY ALD/FUND CODE data."
^DD(420.06,15,"DT")="2940323"
^DD(420.06,16,0)="FY A/O^P420.15'^PRCD(420.15,^2;4^Q"
^DD(420.06,16,21,0)="^^1^1^2941109^"
^DD(420.06,16,21,1,0)="This is used to store FY A/O data."
^DD(420.06,16,"DT")="2940323"
^DD(420.06,17,0)="FY PROGRAM^P420.13'^PRCD(420.13,^2;5^Q"
^DD(420.06,17,21,0)="^^1^1^2941109^"
^DD(420.06,17,21,1,0)="This is used to store FY PROGRAM data."
^DD(420.06,17,"DT")="2940323"
^DD(420.06,18,0)="FY FCP/PRJ^P420.131'^PRCD(420.131,^2;6^Q"
^DD(420.06,18,21,0)="^^1^1^2941109^"
^DD(420.06,18,21,1,0)="This is used to store FY FCP/PRJ data."
^DD(420.06,18,"DT")="2940323"
^DD(420.06,19,0)="FY OBJECT CLASS^P420.132'^PRCD(420.132,^2;7^Q"
^DD(420.06,19,21,0)="^^1^1^2941109^"
^DD(420.06,19,21,1,0)="This is used to store FY OBJECT CLASS data."
^DD(420.06,19,"DT")="2940323"
^DD(420.06,20,0)="FY JOB^P420.133'^PRCD(420.133,^2;8^Q"
^DD(420.06,20,21,0)="^^1^1^2941109^"
^DD(420.06,20,21,1,0)="This is used to store FY JOB data."
^DD(420.06,20,"DT")="2940323"
^DD(420.06,21,0)="FY APPROPRIATION SYMBOL^F^^2;9^K:$L(X)>20!($L(X)<1) X"
^DD(420.06,21,3)="Answer must be 1-20 characters in length."
^DD(420.06,21,21,0)="^^1^1^2941109^"
^DD(420.06,21,21,1,0)="This is used to store FY APPROPRIATION SYMBOL data."
^DD(420.06,21,"DT")="2940324"
^DD(420.06,22,0)="FY FUND CODE^F^^2;10^K:$L(X)>10!($L(X)<1) X"
^DD(420.06,22,3)="Answer must be 1-10 characters in length."
^DD(420.06,22,21,0)="^^1^1^2941109^"
^DD(420.06,22,21,1,0)="This is used to store FY FUND CODE data."
^DD(420.06,22,"DT")="2940324"
^DD(420.06,"B","1QTR SCP UNCOMMITTED BALANCE",9)=""
^DD(420.06,"B","1QTR UNCOMMITTED BALANCE",1)=""
^DD(420.06,"B","1QTR UNOBLIGATED BALANCE",5)=""
^DD(420.06,"B","2QTR SCP UNCOMMITTED BALANCE",10)=""
^DD(420.06,"B","2QTR UNCOMMITTED BALANCE",2)=""
^DD(420.06,"B","2QTR UNOBLIGATED BALANCE",6)=""
^DD(420.06,"B","3QTR SCP UNCOMMITTED BALANCE",11)=""
^DD(420.06,"B","3QTR UNCOMMITTED BALANCE",3)=""
^DD(420.06,"B","3QTR UNOBLIGATED BALANCE",7)=""
^DD(420.06,"B","4QTR SCP UNCOMMITTED BALANCE",12)=""
^DD(420.06,"B","4QTR UNCOMMITTED BALANCE",4)=""
^DD(420.06,"B","4QTR UNOBLIGATED BALANCE",8)=""
^DD(420.06,"B","FISCAL YEAR",.01)=""
^DD(420.06,"B","FY A/O",16)=""
^DD(420.06,"B","FY ALD/FUND CODE",15)=""
^DD(420.06,"B","FY APPROPRIATION SYMBOL",21)=""
^DD(420.06,"B","FY FCP CODE",13)=""
^DD(420.06,"B","FY FCP NAME",14)=""
^DD(420.06,"B","FY FCP/PRJ",18)=""
^DD(420.06,"B","FY FUND CODE",22)=""
^DD(420.06,"B","FY JOB",20)=""
^DD(420.06,"B","FY OBJECT CLASS",19)=""
^DD(420.06,"B","FY PROGRAM",17)=""
^DD(420.06,"GL",0,1,.01)=""
^DD(420.06,"GL",0,2,1)=""
^DD(420.06,"GL",0,3,2)=""
^DD(420.06,"GL",0,4,3)=""
^DD(420.06,"GL",0,5,4)=""
^DD(420.06,"GL",0,6,5)=""
^DD(420.06,"GL",0,7,6)=""
^DD(420.06,"GL",0,8,7)=""
^DD(420.06,"GL",0,9,8)=""
^DD(420.06,"GL",1,2,9)=""
^DD(420.06,"GL",1,3,10)=""
^DD(420.06,"GL",1,4,11)=""
^DD(420.06,"GL",1,5,12)=""
^DD(420.06,"GL",2,1,13)=""
^DD(420.06,"GL",2,2,14)=""
^DD(420.06,"GL",2,3,15)=""
^DD(420.06,"GL",2,4,16)=""
^DD(420.06,"GL",2,5,17)=""
^DD(420.06,"GL",2,6,18)=""
^DD(420.06,"GL",2,7,19)=""
^DD(420.06,"GL",2,8,20)=""
^DD(420.06,"GL",2,9,21)=""
^DD(420.06,"GL",2,10,22)=""
^DD(420.07,0)="INVENTORY POINT SUB-FIELD^^.01^1"
^DD(420.07,0,"DT")="2990503"
^DD(420.07,0,"IX","B",420.07,.01)=""
^DD(420.07,0,"NM","INVENTORY POINT")=""
^DD(420.07,0,"UP")="420.01"
^DD(420.07,.01,0)="INVENTORY POINT^M*P445'X^PRCP(445,^0;1^S DIC(""S"")=""I $P(^(0),U,3)'=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(420.07,.01,1,0)="^.1"
^DD(420.07,.01,1,1,0)="420.07^B"
^DD(420.07,.01,1,1,1)="S ^PRC(420,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(420.07,.01,1,1,2)="K ^PRC(420,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(420.07,.01,1,2,0)="420^AE^MUMPS"
^DD(420.07,.01,1,2,1)="S ^PRC(420,""AE"",DA(2),$E(X,1,30),DA(1))="""""
^DD(420.07,.01,1,2,2)="K ^PRC(420,""AE"",DA(2),$E(X,1,30),DA(1))"
^DD(420.07,.01,1,2,"%D",0)="^^2^2^2990719^"
^DD(420.07,.01,1,2,"%D",1,0)="This cross reference is set on the station number, inventory point, and"
^DD(420.07,.01,1,2,"%D",2,0)="control point."
^DD(420.07,.01,1,2,"DT")="2990719"
^DD(420.07,.01,1,3,0)="420^AF^MUMPS"
^DD(420.07,.01,1,3,1)="S ^PRC(420,""AF"",DA(2),DA(1),$E(X,1,30))="""""
^DD(420.07,.01,1,3,2)="K ^PRC(420,""AF"",DA(2),DA(1),$E(X,1,30))"
^DD(420.07,.01,1,3,"%D",0)="^^2^2^2990719^^"
^DD(420.07,.01,1,3,"%D",1,0)="This cross reference is set on the station number, control point and"
^DD(420.07,.01,1,3,"%D",2,0)="inventory point."
^DD(420.07,.01,1,3,"DT")="2990719"
^DD(420.07,.01,12)="May only select primary or warehouse."
^DD(420.07,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=""""S"""""""
^DD(420.07,.01,21,0)="^^1^1^2990812^^^"
^DD(420.07,.01,21,1,0)="The list of all Inventory Points that may be supplied via this FCP."
^DD(420.07,.01,"DT")="2990811"
^DD(420.07,"B","INVENTORY POINT",.01)=""
^DD(420.07,"GL",0,1,.01)=""
^DD(420.07,"IX",.01)=""
^DD(420.1,0)="FIELD^^2^6"
^DD(420.1,0,"DDA")="N"
^DD(420.1,0,"DT")="2921221"
^DD(420.1,0,"IX","AC",420.1,.5)=""
^DD(420.1,0,"IX","B",420.1,.01)=""
^DD(420.1,0,"IX","C",420.1,.01)=""
^DD(420.1,0,"IX","D",420.1,.01)=""
^DD(420.1,0,"NM","COST CENTER")=""
^DD(420.1,0,"PT",420.03,.01)=""
^DD(420.1,0,"PT",423,116)=""
^DD(420.1,0,"PT",423,116.4)=""
^DD(420.1,0,"PT",423,116.8)=""
^DD(420.1,0,"PT",423,117.3)=""
^DD(420.1,0,"PT",423.0117,.01)=""
^DD(420.1,0,"PT",423.15,1)=""
^DD(420.1,0,"PT",423.15,3)=""
^DD(420.1,0,"PT",440.701,5)=""
^DD(420.1,0,"PT",445,.9)=""
^DD(420.1,0,"PT",724,3)=""
^DD(420.1,0,"PT",6914,36)=""
^DD(420.1,0,"PT",6915.6,106)=""
^DD(420.1,0,"PT",6929,5)=""
^DD(420.1,0,"SCR")="X $S(('$D(PRCFA(""REACTIVATE""))&('$D(PRCFA(""ALL"")))):""I +$P(^(0),U,2)=0"",$D(PRCFA(""REACTIVATE"")):""I $P(^(0),U,2)=1"",1:""I 1"")"
^DD(420.1,0,"VR")="5.1"
^DD(420.1,0,"VRPK")="IFCAP"
^DD(420.1,.01,0)="NAME^FX^^0;1^K:X[""""""""!($A(X)=45)!($L(X)>79)!($L(X)<4)!'((X?4N1"" ""1AN.ANP)!(X?6N1"" ""1AN.ANP)) X I $D(X) S DINUM=+X"
^DD(420.1,.01,1,0)="^.1"
^DD(420.1,.01,1,1,0)="420.1^B"
^DD(420.1,.01,1,1,1)="S ^PRCD(420.1,""B"",$E(X,1,30),DA)="""""
^DD(420.1,.01,1,1,2)="K ^PRCD(420.1,""B"",$E(X,1,30),DA)"
^DD(420.1,.01,1,2,0)="420.1^C^MUMPS"
^DD(420.1,.01,1,2,1)="S:$E($P(X,"" "",2,99),1,30)]"""" ^PRCD(420.1,""C"",$E($P(X,"" "",2,99),1,30),DA)="""""
^DD(420.1,.01,1,2,2)="K:$E($P(X,"" "",2,99),1,30)]"""" ^PRCD(420.1,""C"",$E($P(X,"" "",2,99),1,30),DA)"
^DD(420.1,.01,1,2,"%D",0)="^^1^1^2940915^^"
^DD(420.1,.01,1,2,"%D",1,0)="This cross reference is set on the cost center."
^DD(420.1,.01,1,2,"DT")="2940915"
^DD(420.1,.01,1,3,0)="420.1^D^MUMPS"
^DD(420.1,.01,1,3,1)="S ^PRCD(420.1,""D"",X#1000,DA)="""""
^DD(420.1,.01,1,3,2)="K ^PRCD(420.1,""D"",X#1000,DA)"
^DD(420.1,.01,1,3,"%D",0)="^^2^2^2940915^^"
^DD(420.1,.01,1,3,"%D",1,0)="This cross reference is set on the modulus of"
^DD(420.1,.01,1,3,"%D",2,0)="the cost center number using 1000 as divisor."
^DD(420.1,.01,3)="Enter the 6 digit cost center number, a space and the cost center name.  Answer must be 4-79 characters in length (no decimal allowed)"
^DD(420.1,.01,21,0)="^^2^2^2940126^^^^"
^DD(420.1,.01,21,1,0)="This is the 6 digit cost center number, a space and"
^DD(420.1,.01,21,2,0)="the cost center name."
^DD(420.1,.01,"DEL",.01,0)="I 1"
^DD(420.1,.01,"DT")="2940915"
^DD(420.1,.5,0)="DEACTIVATED COST CENTER^S^0:NO;1:YES;^0;2^Q"
^DD(420.1,.5,1,0)="^.1"
^DD(420.1,.5,1,1,0)="420.1^AC^MUMPS"
^DD(420.1,.5,1,1,1)="I X=1 S $P(^PRCD(420.1,DA,0),""^"",3,4)=DUZ_""^""_DT"
^DD(420.1,.5,1,1,2)="S $P(^PRCD(420.1,DA,0),""^"",3,4)=""^"""
^DD(420.1,.5,1,1,"%D",0)="^^2^2^2930624^^"
^DD(420.1,.5,1,1,"%D",1,0)="This cross reference sets the deactivating user"
^DD(420.1,.5,1,1,"%D",2,0)="and the deactivation time on the cost center record."
^DD(420.1,.5,21,0)="^^1^1^2910515^"
^DD(420.1,.5,21,1,0)="YES indicates if this is a deactivated cost center."
^DD(420.1,.5,"DT")="2880826"
^DD(420.1,.6,0)="DEACTIVATED BY^P200'I^VA(200,^0;3^Q"
^DD(420.1,.6,21,0)="^^2^2^2921221^^"
^DD(420.1,.6,21,1,0)="This is the name of the person who deactivated the control"
^DD(420.1,.6,21,2,0)="point."
^DD(420.1,.6,"DT")="2921221"
^DD(420.1,.7,0)="DATE/TIME DEACTIVATED^DI^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(420.1,.7,21,0)="^^1^1^2910515^"
^DD(420.1,.7,21,1,0)="This is the date/time the cost center was deactivated."
^DD(420.1,.7,"DT")="2880826"
^DD(420.1,1,0)="BOC^420.11P^^1;0"
^DD(420.1,1,21,0)="^^1^1^2940506^^^^"
^DD(420.1,1,21,1,0)="This is the budget object code for this cost center."
^DD(420.1,1,"DT")="2940506"
^DD(420.1,2,0)="DESCRIPTION^420.12^^2;0"
^DD(420.1,2,21,0)="^^1^1^2911120^^^^"
^DD(420.1,2,21,1,0)="This is a description of the cost center (optional field)."
^DD(420.1,2,22)=" "
^DD(420.1,"B","BOC",1)=""
^DD(420.1,"B","DATE/TIME DEACTIVATED",.7)=""
^DD(420.1,"B","DEACTIVATED BY",.6)=""
^DD(420.1,"B","DEACTIVATED COST CENTER",.5)=""
^DD(420.1,"B","DESCRIPTION",2)=""
^DD(420.1,"B","NAME",.01)=""
^DD(420.1,"GL",0,1,.01)=""
^DD(420.1,"GL",0,2,.5)=""
^DD(420.1,"GL",0,3,.6)=""
^DD(420.1,"GL",0,4,.7)=""
^DD(420.1,"GL",1,0,1)=""
^DD(420.1,"GL",2,0,2)=""
^DD(420.1,"IX",.01)=""
^DD(420.1,"IX",.5)=""
^DD(420.1,"SB",420.11,1)=""
^DD(420.1,"SB",420.12,2)=""
^DD(420.11,0)="BOC SUB-FIELD^NL^.01^1"
^DD(420.11,0,"IX","B",420.11,.01)=""
^DD(420.11,0,"NM","BOC")=""
^DD(420.11,0,"UP")="420.1"
^DD(420.11,.01,0)="BOC^MP420.2'X^PRCD(420.2,^0;1^S DINUM=+X"
^DD(420.11,.01,1,0)="^.1^^-1"
^DD(420.11,.01,1,1,0)="420.11^B"
^DD(420.11,.01,1,1,1)="S ^PRCD(420.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(420.11,.01,1,1,2)="K ^PRCD(420.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(420.11,.01,3)="Select each BOC applicable to this cost center"
^DD(420.11,.01,21,0)="^^1^1^2940506^^^^"
^DD(420.11,.01,21,1,0)="This is the budget object code for this cost center."
^DD(420.11,.01,"DT")="2940506"
^DD(420.11,"B","BOC",.01)=""
^DD(420.11,"GL",0,1,.01)=""
^DD(420.11,"IX",.01)=""
^DD(420.12,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(420.12,0,"NM","DESCRIPTION")=""
^DD(420.12,0,"UP")="420.1"
^DD(420.12,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(420.12,.01,3)="ENTER A DESCRIPTION FOR THIS COST CENTER"
^DD(420.12,.01,21,0)="^^1^1^2911120^^"
^DD(420.12,.01,21,1,0)="This is a description of the cost center (optional field)."
^DD(420.12,"B","DESCRIPTION",.01)=""
^DD(420.12,"GL",0,1,.01)=""
^DD(420.13,0)="FIELD^^3^4"
^DD(420.13,0,"DDA")="N"
^DD(420.13,0,"DT")="2940217"
^DD(420.13,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.13,0,"IX","AC",420.13,3)=""
^DD(420.13,0,"IX","B",420.13,.01)=""
^DD(420.13,0,"IX","C",420.13,1)=""
^DD(420.13,0,"NM","PRCD SD PROGRAM")=""
^DD(420.13,0,"PT",420.01,26)=""
^DD(420.13,0,"PT",420.06,17)=""
^DD(420.13,0,"VR")="5.1"
^DD(420.13,0,"VRPK")="IFCAP"
^DD(420.13,.01,0)="CODE^RFX^^0;1^K:$L(X)>8!($L(X)<2)!'(X?2.5NA) X I $G(X)]"""" S %=$O(^PRCD(420.13,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.13,.01,1,0)="^.1"
^DD(420.13,.01,1,1,0)="420.13^B"
^DD(420.13,.01,1,1,1)="S ^PRCD(420.13,""B"",$E(X,1,30),DA)="""""
^DD(420.13,.01,1,1,2)="K ^PRCD(420.13,""B"",$E(X,1,30),DA)"
^DD(420.13,.01,3)="Enter free text up 8 characters and must be unique in file."
^DD(420.13,.01,21,0)="^^1^1^2940224^^^^"
^DD(420.13,.01,21,1,0)="This is code of a prof a program."
^DD(420.13,.01,23,0)="^^1^1^2940224^^^^"
^DD(420.13,.01,23,1,0)="This is the code of a program."
^DD(420.13,.01,"DT")="2940303"
^DD(420.13,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.13,1,1,0)="^.1"
^DD(420.13,1,1,1,0)="420.13^C"
^DD(420.13,1,1,1,1)="S ^PRCD(420.13,""C"",$E(X,1,30),DA)="""""
^DD(420.13,1,1,1,2)="K ^PRCD(420.13,""C"",$E(X,1,30),DA)"
^DD(420.13,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.13,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.13,1,1,1,"DT")="2931118"
^DD(420.13,1,3)="Answer must be 1-45 characters in length."
^DD(420.13,1,21,0)="^^1^1^2940224^^^^"
^DD(420.13,1,21,1,0)="This field is the desription of the code."
^DD(420.13,1,"DT")="2931124"
^DD(420.13,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.13,2,3)=""
^DD(420.13,2,21,0)="^^1^1^2931126^^^^"
^DD(420.13,2,21,1,0)="This field is the status of the entry in file."
^DD(420.13,2,"DT")="2931126"
^DD(420.13,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.13,3,1,0)="^.1"
^DD(420.13,3,1,1,0)="420.13^AC"
^DD(420.13,3,1,1,1)="S ^PRCD(420.13,""AC"",$E(X,1,30),DA)="""""
^DD(420.13,3,1,1,2)="K ^PRCD(420.13,""AC"",$E(X,1,30),DA)"
^DD(420.13,3,1,1,"%D",0)="^^1^1^2931119^^"
^DD(420.13,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.13,3,1,1,"DT")="2931119"
^DD(420.13,3,3)="Answer must be 1-15 characters in length."
^DD(420.13,3,21,0)="^^1^1^2931118^^^^"
^DD(420.13,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.13,3,23,0)="^^3^3^2931118^^^^"
^DD(420.13,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.13,3,23,2,0)="Always hardcode with fixed values. If this value is edited all"
^DD(420.13,3,23,3,0)="programs referring to this value need to edited."
^DD(420.13,3,"DT")="2931210"
^DD(420.13,"B","CODE",.01)=""
^DD(420.13,"B","DESCRIPTION",1)=""
^DD(420.13,"B","FIX VALUE",3)=""
^DD(420.13,"B","STATUS",2)=""
^DD(420.13,"GL",0,1,.01)=""
^DD(420.13,"GL",0,2,1)=""
^DD(420.13,"GL",0,3,2)=""
^DD(420.13,"GL",0,4,3)=""
^DD(420.13,"IX",.01)=""
^DD(420.13,"IX",1)=""
^DD(420.13,"IX",3)=""
^DD(420.13,"RQ",.01)=""
^DD(420.13,"RQ",1)=""
^DD(420.13,"RQ",2)=""
^DD(420.131,0)="FIELD^^3^4"
^DD(420.131,0,"DDA")="N"
^DD(420.131,0,"DT")="2940401"
^DD(420.131,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.131,0,"IX","AC",420.131,3)=""
^DD(420.131,0,"IX","B",420.131,.01)=""
^DD(420.131,0,"IX","C",420.131,1)=""
^DD(420.131,0,"NM","PRCD SD FCP/PRJ")=""
^DD(420.131,0,"PT",420.01,27)=""
^DD(420.131,0,"PT",420.06,18)=""
^DD(420.131,0,"VR")="5.1"
^DD(420.131,0,"VRPK")="IFCAP"
^DD(420.131,.01,0)="CODE^RF^^0;1^K:$L(X)>9!($L(X)<1)!'(X?1.9ANU) X I $G(X)]"""" S %=$O(^PRCD(420.131,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.131,.01,1,0)="^.1"
^DD(420.131,.01,1,1,0)="420.131^B"
^DD(420.131,.01,1,1,1)="S ^PRCD(420.131,""B"",$E(X,1,30),DA)="""""
^DD(420.131,.01,1,1,2)="K ^PRCD(420.131,""B"",$E(X,1,30),DA)"
^DD(420.131,.01,3)="Answer must be 1-9 characters in length."
^DD(420.131,.01,21,0)="^^1^1^2940401^^^^"
^DD(420.131,.01,21,1,0)="This field is the code of document data elemant."
^DD(420.131,.01,"DT")="2940401"
^DD(420.131,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.131,1,1,0)="^.1"
^DD(420.131,1,1,1,0)="420.131^C"
^DD(420.131,1,1,1,1)="S ^PRCD(420.131,""C"",$E(X,1,30),DA)="""""
^DD(420.131,1,1,1,2)="K ^PRCD(420.131,""C"",$E(X,1,30),DA)"
^DD(420.131,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.131,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.131,1,1,1,"DT")="2931118"
^DD(420.131,1,3)="Answer must be 1-45 characters in length."
^DD(420.131,1,21,0)="^^1^1^2931124^^^^"
^DD(420.131,1,21,1,0)="This field is the desription of the code."
^DD(420.131,1,"DT")="2931124"
^DD(420.131,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.131,2,3)=""
^DD(420.131,2,21,0)="^^1^1^2931126^^^^"
^DD(420.131,2,21,1,0)="This field is the status of the entry in file."
^DD(420.131,2,"DT")="2931126"
^DD(420.131,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.131,3,1,0)="^.1"
^DD(420.131,3,1,1,0)="420.131^AC"
^DD(420.131,3,1,1,1)="S ^PRCD(420.131,""AC"",$E(X,1,30),DA)="""""
^DD(420.131,3,1,1,2)="K ^PRCD(420.131,""AC"",$E(X,1,30),DA)"
^DD(420.131,3,1,1,"%D",0)="^^1^1^2931119^^"
^DD(420.131,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.131,3,1,1,"DT")="2931119"
^DD(420.131,3,3)="Answer must be 1-15 characters in length."
^DD(420.131,3,21,0)="^^1^1^2931118^^^^"
^DD(420.131,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.131,3,23,0)="^^3^3^2931118^^^^"
^DD(420.131,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.131,3,23,2,0)="Always hardcode with fixed values. If this value is edited all"
^DD(420.131,3,23,3,0)="programs referring to this value need to edited."
^DD(420.131,3,"DT")="2931210"
^DD(420.131,"B","CODE",.01)=""
^DD(420.131,"B","DESCRIPTION",1)=""
^DD(420.131,"B","FIX VALUE",3)=""
^DD(420.131,"B","STATUS",2)=""
^DD(420.131,"GL",0,1,.01)=""
^DD(420.131,"GL",0,2,1)=""
^DD(420.131,"GL",0,3,2)=""
^DD(420.131,"GL",0,4,3)=""
^DD(420.131,"IX",.01)=""
^DD(420.131,"IX",1)=""
^DD(420.131,"IX",3)=""
^DD(420.131,"RQ",.01)=""
^DD(420.131,"RQ",1)=""
^DD(420.131,"RQ",2)=""
^DD(420.132,0)="FIELD^^3^4"
^DD(420.132,0,"DDA")="N"
^DD(420.132,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.132,0,"IX","AC",420.132,3)=""
^DD(420.132,0,"IX","B",420.132,.01)=""
^DD(420.132,0,"IX","C",420.132,1)=""
^DD(420.132,0,"NM","PRCD SD OBJECT CLASS")=""
^DD(420.132,0,"PT",420.01,28)=""
^DD(420.132,0,"PT",420.06,19)=""
^DD(420.132,0,"VR")="5.1"
^DD(420.132,0,"VRPK")="IFCAP"
^DD(420.132,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.132,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.132,.01,1,0)="^.1"
^DD(420.132,.01,1,1,0)="420.132^B"
^DD(420.132,.01,1,1,1)="S ^PRCD(420.132,""B"",$E(X,1,30),DA)="""""
^DD(420.132,.01,1,1,2)="K ^PRCD(420.132,""B"",$E(X,1,30),DA)"
^DD(420.132,.01,3)="Answer must be 1-15 characters in length and code must be unique in file."
^DD(420.132,.01,21,0)="^^1^1^2931119^^^^"
^DD(420.132,.01,21,1,0)="This field is the code of administrative office."
^DD(420.132,.01,"DT")="2931119"
^DD(420.132,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.132,1,1,0)="^.1"
^DD(420.132,1,1,1,0)="420.132^C"
^DD(420.132,1,1,1,1)="S ^PRCD(420.132,""C"",$E(X,1,30),DA)="""""
^DD(420.132,1,1,1,2)="K ^PRCD(420.132,""C"",$E(X,1,30),DA)"
^DD(420.132,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.132,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.132,1,1,1,"DT")="2931118"
^DD(420.132,1,3)="Answer must be 1-45 characters in length."
^DD(420.132,1,21,0)="^^1^1^2931124^^^^"
^DD(420.132,1,21,1,0)="This field is the desription of the code."
^DD(420.132,1,"DT")="2931124"
^DD(420.132,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.132,2,3)=""
^DD(420.132,2,21,0)="^^1^1^2931126^^^"
^DD(420.132,2,21,1,0)="This field is the status of the entry in file."
^DD(420.132,2,"DT")="2931126"
^DD(420.132,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.132,3,1,0)="^.1"
^DD(420.132,3,1,1,0)="420.132^AC"
^DD(420.132,3,1,1,1)="S ^PRCD(420.132,""AC"",$E(X,1,30),DA)="""""
^DD(420.132,3,1,1,2)="K ^PRCD(420.132,""AC"",$E(X,1,30),DA)"
^DD(420.132,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.132,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.132,3,1,1,"DT")="2931119"
^DD(420.132,3,3)="Answer must be 1-15 characters in length."
^DD(420.132,3,21,0)="^^1^1^2931210^^^"
^DD(420.132,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.132,3,23,0)="^^3^3^2931210^^^"
^DD(420.132,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.132,3,23,2,0)="Always hardcode with fixed values. If this value is edited all"
^DD(420.132,3,23,3,0)="programs referring to this value need to edited."
^DD(420.132,3,"DT")="2931210"
^DD(420.132,"B","CODE",.01)=""
^DD(420.132,"B","DESCRIPTION",1)=""
^DD(420.132,"B","FIX VALUE",3)=""
^DD(420.132,"B","STATUS",2)=""
^DD(420.132,"GL",0,1,.01)=""
^DD(420.132,"GL",0,2,1)=""
^DD(420.132,"GL",0,3,2)=""
^DD(420.132,"GL",0,4,3)=""
^DD(420.132,"IX",.01)=""
^DD(420.132,"IX",1)=""
^DD(420.132,"IX",3)=""
^DD(420.132,"RQ",.01)=""
^DD(420.132,"RQ",1)=""
^DD(420.132,"RQ",2)=""
^DD(420.133,0)="FIELD^^3^4"
^DD(420.133,0,"DDA")="N"
^DD(420.133,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.133,0,"IX","AC",420.133,3)=""
^DD(420.133,0,"IX","B",420.133,.01)=""
^DD(420.133,0,"IX","C",420.133,1)=""
^DD(420.133,0,"NM","PRCD SD JOB")=""
^DD(420.133,0,"PT",420.01,29)=""
^DD(420.133,0,"PT",420.06,20)=""
^DD(420.133,0,"VR")="5.1"
^DD(420.133,0,"VRPK")="IFCAP"
^DD(420.133,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.133,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.133,.01,1,0)="^.1"
^DD(420.133,.01,1,1,0)="420.133^B"
^DD(420.133,.01,1,1,1)="S ^PRCD(420.133,""B"",$E(X,1,30),DA)="""""
^DD(420.133,.01,1,1,2)="K ^PRCD(420.133,""B"",$E(X,1,30),DA)"
^DD(420.133,.01,3)="Enter free text up to 15 characters and must be unique in file."
^DD(420.133,.01,21,0)="^^1^1^2940218^^^^"
^DD(420.133,.01,21,1,0)="This field is the code of administrative office."
^DD(420.133,.01,"DT")="2931119"
^DD(420.133,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.133,1,1,0)="^.1"
^DD(420.133,1,1,1,0)="420.133^C"
^DD(420.133,1,1,1,1)="S ^PRCD(420.133,""C"",$E(X,1,30),DA)="""""
^DD(420.133,1,1,1,2)="K ^PRCD(420.133,""C"",$E(X,1,30),DA)"
^DD(420.133,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.133,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.133,1,1,1,"DT")="2931118"
^DD(420.133,1,3)="Enter free text up to 45 characters."
^DD(420.133,1,21,0)="^^1^1^2940218^^^^"
^DD(420.133,1,21,1,0)="This field is the desription of the code."
^DD(420.133,1,"DT")="2931124"
^DD(420.133,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.133,2,3)=""
^DD(420.133,2,21,0)="^^1^1^2940218^^^^"
^DD(420.133,2,21,1,0)="This field is the status of the entry in file."
^DD(420.133,2,"DT")="2931126"
^DD(420.133,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.133,3,1,0)="^.1"
^DD(420.133,3,1,1,0)="420.133^AC"
^DD(420.133,3,1,1,1)="S ^PRCD(420.133,""AC"",$E(X,1,30),DA)="""""
^DD(420.133,3,1,1,2)="K ^PRCD(420.133,""AC"",$E(X,1,30),DA)"
^DD(420.133,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.133,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.133,3,1,1,"DT")="2931119"
^DD(420.133,3,3)="Enter free text up to 15 characters."
^DD(420.133,3,21,0)="^^1^1^2940223^^^^"
^DD(420.133,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.133,3,23,0)="^^3^3^2940223^^^^"
^DD(420.133,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.133,3,23,2,0)="Always hardcode with this fix values. If this value is edited all"
^DD(420.133,3,23,3,0)="programs referring to this value need to be edited."
^DD(420.133,3,"DT")="2931210"
^DD(420.133,"B","CODE",.01)=""
^DD(420.133,"B","DESCRIPTION",1)=""
^DD(420.133,"B","FIX VALUE",3)=""
^DD(420.133,"B","STATUS",2)=""
^DD(420.133,"GL",0,1,.01)=""
^DD(420.133,"GL",0,2,1)=""
^DD(420.133,"GL",0,3,2)=""
^DD(420.133,"GL",0,4,3)=""
^DD(420.133,"IX",.01)=""
^DD(420.133,"IX",1)=""
^DD(420.133,"IX",3)=""
^DD(420.133,"RQ",.01)=""
^DD(420.133,"RQ",1)=""
^DD(420.133,"RQ",2)=""
^DD(420.134,0)="FIELD^^3^4"
^DD(420.134,0,"DDA")="N"
^DD(420.134,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.134,0,"IX","AC",420.134,3)=""
^DD(420.134,0,"IX","B",420.134,.01)=""
^DD(420.134,0,"IX","C",420.134,1)=""
^DD(420.134,0,"NM","PRCD SD REPORTING CATEGORY")=""
^DD(420.134,0,"VR")="5.1"
^DD(420.134,0,"VRPK")="IFCAP"
^DD(420.134,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.134,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.134,.01,1,0)="^.1"
^DD(420.134,.01,1,1,0)="420.134^B"
^DD(420.134,.01,1,1,1)="S ^PRCD(420.134,""B"",$E(X,1,30),DA)="""""
^DD(420.134,.01,1,1,2)="K ^PRCD(420.134,""B"",$E(X,1,30),DA)"
^DD(420.134,.01,3)="Enter free text up to 15 characters and must be unique in file."
^DD(420.134,.01,21,0)="^^1^1^2940218^^^^"
^DD(420.134,.01,21,1,0)="This field is the code of administrative office."
^DD(420.134,.01,"DT")="2931119"
^DD(420.134,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.134,1,1,0)="^.1"
^DD(420.134,1,1,1,0)="420.134^C"
^DD(420.134,1,1,1,1)="S ^PRCD(420.134,""C"",$E(X,1,30),DA)="""""
^DD(420.134,1,1,1,2)="K ^PRCD(420.134,""C"",$E(X,1,30),DA)"
^DD(420.134,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.134,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.134,1,1,1,"DT")="2931118"
^DD(420.134,1,3)="Enter free text up to 45 characters."
^DD(420.134,1,21,0)="^^1^1^2940218^^^^"
^DD(420.134,1,21,1,0)="This field is the desription of the code."
^DD(420.134,1,"DT")="2931124"
^DD(420.134,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.134,2,3)=""
^DD(420.134,2,21,0)="^^1^1^2940218^^^^"
^DD(420.134,2,21,1,0)="This field is the status of the entry in file."
^DD(420.134,2,"DT")="2931126"
^DD(420.134,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.134,3,1,0)="^.1"
^DD(420.134,3,1,1,0)="420.134^AC"
^DD(420.134,3,1,1,1)="S ^PRCD(420.134,""AC"",$E(X,1,30),DA)="""""
^DD(420.134,3,1,1,2)="K ^PRCD(420.134,""AC"",$E(X,1,30),DA)"
^DD(420.134,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.134,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.134,3,1,1,"DT")="2931119"
^DD(420.134,3,3)="Enter free text up to 15 characters."
^DD(420.134,3,21,0)="^^1^1^2940218^^^^"
^DD(420.134,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.134,3,23,0)="^^3^3^2940218^^"
^DD(420.134,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.134,3,23,2,0)="Always hardcode with this fix values. If this value is edited all"
^DD(420.134,3,23,3,0)="programs referring to this value need to be edited."
^DD(420.134,3,"DT")="2931210"
^DD(420.134,"B","CODE",.01)=""
^DD(420.134,"B","DESCRIPTION",1)=""
^DD(420.134,"B","FIX VALUE",3)=""
^DD(420.134,"B","STATUS",2)=""
^DD(420.134,"GL",0,1,.01)=""
^DD(420.134,"GL",0,2,1)=""
^DD(420.134,"GL",0,3,2)=""
^DD(420.134,"GL",0,4,3)=""
^DD(420.134,"IX",.01)=""
^DD(420.134,"IX",1)=""
^DD(420.134,"IX",3)=""
^DD(420.134,"RQ",.01)=""
^DD(420.134,"RQ",1)=""
^DD(420.134,"RQ",2)=""
^DD(420.135,0)="FIELD^^3^4"
^DD(420.135,0,"DDA")="N"
^DD(420.135,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.135,0,"IX","AC",420.135,3)=""
^DD(420.135,0,"IX","B",420.135,.01)=""
^DD(420.135,0,"IX","C",420.135,1)=""
^DD(420.135,0,"NM","PRCD SD REVENUE SOURCE")=""
^DD(420.135,0,"VR")="5.1"
^DD(420.135,0,"VRPK")="IFCAP"
^DD(420.135,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.135,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.135,.01,1,0)="^.1"
^DD(420.135,.01,1,1,0)="420.135^B"
^DD(420.135,.01,1,1,1)="S ^PRCD(420.135,""B"",$E(X,1,30),DA)="""""
^DD(420.135,.01,1,1,2)="K ^PRCD(420.135,""B"",$E(X,1,30),DA)"
^DD(420.135,.01,3)="Enter free text up to 15 characters and must be unique in file."
^DD(420.135,.01,21,0)="^^1^1^2940218^^^^"
^DD(420.135,.01,21,1,0)="This field is the code of administrative office."
^DD(420.135,.01,"DT")="2931119"
^DD(420.135,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.135,1,1,0)="^.1"
^DD(420.135,1,1,1,0)="420.135^C"
^DD(420.135,1,1,1,1)="S ^PRCD(420.135,""C"",$E(X,1,30),DA)="""""
^DD(420.135,1,1,1,2)="K ^PRCD(420.135,""C"",$E(X,1,30),DA)"
^DD(420.135,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.135,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.135,1,1,1,"DT")="2931118"
^DD(420.135,1,3)="Enter free text up to 45 characters."
^DD(420.135,1,21,0)="^^1^1^2940218^^^^"
^DD(420.135,1,21,1,0)="This field is the desription of the code."
^DD(420.135,1,"DT")="2931124"
^DD(420.135,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.135,2,3)=""
^DD(420.135,2,21,0)="^^1^1^2940218^^^^"
^DD(420.135,2,21,1,0)="This field is the status of the entry in file."
^DD(420.135,2,"DT")="2931126"
^DD(420.135,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.135,3,1,0)="^.1"
^DD(420.135,3,1,1,0)="420.135^AC"
^DD(420.135,3,1,1,1)="S ^PRCD(420.135,""AC"",$E(X,1,30),DA)="""""
^DD(420.135,3,1,1,2)="K ^PRCD(420.135,""AC"",$E(X,1,30),DA)"
^DD(420.135,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.135,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.135,3,1,1,"DT")="2931119"
^DD(420.135,3,3)="Enter free text up to 15 characters."
^DD(420.135,3,21,0)="^^1^1^2940218^^^^"
^DD(420.135,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.135,3,23,0)="^^3^3^2940218^^"
^DD(420.135,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.135,3,23,2,0)="Always hardcode with this fix values. If this value is edited all"
^DD(420.135,3,23,3,0)="programs referring to this value need to be edited."
^DD(420.135,3,"DT")="2931210"
^DD(420.135,"B","CODE",.01)=""
^DD(420.135,"B","DESCRIPTION",1)=""
^DD(420.135,"B","FIX VALUE",3)=""
^DD(420.135,"B","STATUS",2)=""
^DD(420.135,"GL",0,1,.01)=""
^DD(420.135,"GL",0,2,1)=""
^DD(420.135,"GL",0,3,2)=""
^DD(420.135,"GL",0,4,3)=""
^DD(420.135,"IX",.01)=""
^DD(420.135,"IX",1)=""
^DD(420.135,"IX",3)=""
^DD(420.135,"RQ",.01)=""
^DD(420.135,"RQ",1)=""
^DD(420.135,"RQ",2)=""
^DD(420.136,0)="FIELD^^3^4"
^DD(420.136,0,"DDA")="N"
^DD(420.136,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.136,0,"IX","AC",420.136,3)=""
^DD(420.136,0,"IX","B",420.136,.01)=""
^DD(420.136,0,"IX","C",420.136,1)=""
^DD(420.136,0,"NM","PRCD SD SUB-REV SOURCE")=""
^DD(420.136,0,"VR")="5.1"
^DD(420.136,0,"VRPK")="IFCAP"
^DD(420.136,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.136,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.136,.01,1,0)="^.1"
^DD(420.136,.01,1,1,0)="420.136^B"
^DD(420.136,.01,1,1,1)="S ^PRCD(420.136,""B"",$E(X,1,30),DA)="""""
^DD(420.136,.01,1,1,2)="K ^PRCD(420.136,""B"",$E(X,1,30),DA)"
^DD(420.136,.01,3)="Enter free text up to 15 characters and must be unique in file."
^DD(420.136,.01,21,0)="^^1^1^2940218^^^^"
^DD(420.136,.01,21,1,0)="This field is the code of administrative office."
^DD(420.136,.01,"DT")="2931119"
^DD(420.136,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.136,1,1,0)="^.1"
^DD(420.136,1,1,1,0)="420.136^C"
^DD(420.136,1,1,1,1)="S ^PRCD(420.136,""C"",$E(X,1,30),DA)="""""
^DD(420.136,1,1,1,2)="K ^PRCD(420.136,""C"",$E(X,1,30),DA)"
^DD(420.136,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.136,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.136,1,1,1,"DT")="2931118"
^DD(420.136,1,3)="Enter free text up to 45 characters."
^DD(420.136,1,21,0)="^^1^1^2940218^^^^"
^DD(420.136,1,21,1,0)="This field is the desription of the code."
^DD(420.136,1,"DT")="2931124"
^DD(420.136,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.136,2,3)=""
^DD(420.136,2,21,0)="^^1^1^2940218^^^^"
^DD(420.136,2,21,1,0)="This field is the status of the entry in file."
^DD(420.136,2,"DT")="2931126"
^DD(420.136,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.136,3,1,0)="^.1"
^DD(420.136,3,1,1,0)="420.136^AC"
^DD(420.136,3,1,1,1)="S ^PRCD(420.136,""AC"",$E(X,1,30),DA)="""""
^DD(420.136,3,1,1,2)="K ^PRCD(420.136,""AC"",$E(X,1,30),DA)"
^DD(420.136,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.136,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.136,3,1,1,"DT")="2931119"
^DD(420.136,3,3)="Enter free text up to 15 characters."
^DD(420.136,3,21,0)="^^1^1^2940218^^^^"
^DD(420.136,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.136,3,23,0)="^^3^3^2940218^^"
^DD(420.136,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.136,3,23,2,0)="Always hardcode with this fix values. If this value is edited all"
^DD(420.136,3,23,3,0)="programs referring to this value need to be edited."
^DD(420.136,3,"DT")="2931210"
^DD(420.136,"B","CODE",.01)=""
^DD(420.136,"B","DESCRIPTION",1)=""
^DD(420.136,"B","FIX VALUE",3)=""
^DD(420.136,"B","STATUS",2)=""
^DD(420.136,"GL",0,1,.01)=""
^DD(420.136,"GL",0,2,1)=""
^DD(420.136,"GL",0,3,2)=""
^DD(420.136,"GL",0,4,3)=""
^DD(420.136,"IX",.01)=""
^DD(420.136,"IX",1)=""
^DD(420.136,"IX",3)=""
^DD(420.136,"RQ",.01)=""
^DD(420.136,"RQ",1)=""
^DD(420.136,"RQ",2)=""
^DD(420.137,0)="FIELD^^3^4"
^DD(420.137,0,"DDA")="N"
^DD(420.137,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.137,0,"IX","AC",420.137,3)=""
^DD(420.137,0,"IX","B",420.137,.01)=""
^DD(420.137,0,"IX","C",420.137,1)=""
^DD(420.137,0,"NM","PRCD SD SUB-OBJ")=""
^DD(420.137,0,"VR")="5.1"
^DD(420.137,0,"VRPK")="IFCAP"
^DD(420.137,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.137,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.137,.01,1,0)="^.1"
^DD(420.137,.01,1,1,0)="420.137^B"
^DD(420.137,.01,1,1,1)="S ^PRCD(420.137,""B"",$E(X,1,30),DA)="""""
^DD(420.137,.01,1,1,2)="K ^PRCD(420.137,""B"",$E(X,1,30),DA)"
^DD(420.137,.01,3)="Enter free text up to 15 characters and must be unique in file."
^DD(420.137,.01,21,0)="^^1^1^2940218^^^^"
^DD(420.137,.01,21,1,0)="This field is the code of administrative office."
^DD(420.137,.01,"DT")="2931119"
^DD(420.137,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.137,1,1,0)="^.1"
^DD(420.137,1,1,1,0)="420.137^C"
^DD(420.137,1,1,1,1)="S ^PRCD(420.137,""C"",$E(X,1,30),DA)="""""
^DD(420.137,1,1,1,2)="K ^PRCD(420.137,""C"",$E(X,1,30),DA)"
^DD(420.137,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.137,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.137,1,1,1,"DT")="2931118"
^DD(420.137,1,3)="Enter free text up to 45 characters."
^DD(420.137,1,21,0)="^^1^1^2940218^^^^"
^DD(420.137,1,21,1,0)="This field is the desription of the code."
^DD(420.137,1,"DT")="2931124"
^DD(420.137,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.137,2,3)=""
^DD(420.137,2,21,0)="^^1^1^2940218^^^^"
^DD(420.137,2,21,1,0)="This field is the status of the entry in file."
^DD(420.137,2,"DT")="2931126"
^DD(420.137,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.137,3,1,0)="^.1"
^DD(420.137,3,1,1,0)="420.137^AC"
^DD(420.137,3,1,1,1)="S ^PRCD(420.137,""AC"",$E(X,1,30),DA)="""""
^DD(420.137,3,1,1,2)="K ^PRCD(420.137,""AC"",$E(X,1,30),DA)"
^DD(420.137,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.137,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.137,3,1,1,"DT")="2931119"
^DD(420.137,3,3)="Enter free text up to 15 characters."
^DD(420.137,3,21,0)="^^1^1^2940218^^^^"
^DD(420.137,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.137,3,23,0)="^^3^3^2940218^^"
^DD(420.137,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.137,3,23,2,0)="Always hardcode with this fix values. If this value is edited all"
^DD(420.137,3,23,3,0)="programs referring to this value need to be edited."
^DD(420.137,3,"DT")="2931210"
^DD(420.137,"B","CODE",.01)=""
^DD(420.137,"B","DESCRIPTION",1)=""
^DD(420.137,"B","FIX VALUE",3)=""
^DD(420.137,"B","STATUS",2)=""
^DD(420.137,"GL",0,1,.01)=""
^DD(420.137,"GL",0,2,1)=""
^DD(420.137,"GL",0,3,2)=""
^DD(420.137,"GL",0,4,3)=""
^DD(420.137,"IX",.01)=""
^DD(420.137,"IX",1)=""
^DD(420.137,"IX",3)=""
^DD(420.137,"RQ",.01)=""
^DD(420.137,"RQ",1)=""
^DD(420.137,"RQ",2)=""
^DD(420.138,0)="FIELD^^3^4"
^DD(420.138,0,"DDA")="N"
^DD(420.138,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.138,0,"IX","AC",420.138,3)=""
^DD(420.138,0,"IX","B",420.138,.01)=""
^DD(420.138,0,"IX","C",420.138,1)=""
^DD(420.138,0,"NM","PRCD SD FMS SECURITY")=""
^DD(420.138,0,"PT",411,47)=""
^DD(420.138,0,"VR")="5.1"
^DD(420.138,0,"VRPK")="IFCAP"
^DD(420.138,.01,0)="CODE^RFX^^0;1^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.138,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.138,.01,1,0)="^.1"
^DD(420.138,.01,1,1,0)="420.138^B"
^DD(420.138,.01,1,1,1)="S ^PRCD(420.138,""B"",$E(X,1,30),DA)="""""
^DD(420.138,.01,1,1,2)="K ^PRCD(420.138,""B"",$E(X,1,30),DA)"
^DD(420.138,.01,3)="Enter free text up to 4 characters and must be unique in file."
^DD(420.138,.01,21,0)="^^1^1^2940420^^^^"
^DD(420.138,.01,21,1,0)="This field is the code of administrative office."
^DD(420.138,.01,"DT")="2931119"
^DD(420.138,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.138,1,1,0)="^.1"
^DD(420.138,1,1,1,0)="420.138^C"
^DD(420.138,1,1,1,1)="S ^PRCD(420.138,""C"",$E(X,1,30),DA)="""""
^DD(420.138,1,1,1,2)="K ^PRCD(420.138,""C"",$E(X,1,30),DA)"
^DD(420.138,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.138,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.138,1,1,1,"DT")="2931118"
^DD(420.138,1,3)="Enter free text up to 45 characters."
^DD(420.138,1,21,0)="^^1^1^2940218^^^^"
^DD(420.138,1,21,1,0)="This field is the desription of the code."
^DD(420.138,1,"DT")="2931124"
^DD(420.138,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.138,2,3)=""
^DD(420.138,2,21,0)="^^1^1^2940218^^^^"
^DD(420.138,2,21,1,0)="This field is the status of the entry in file."
^DD(420.138,2,"DT")="2931126"
^DD(420.138,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.138,3,1,0)="^.1"
^DD(420.138,3,1,1,0)="420.138^AC"
^DD(420.138,3,1,1,1)="S ^PRCD(420.138,""AC"",$E(X,1,30),DA)="""""
^DD(420.138,3,1,1,2)="K ^PRCD(420.138,""AC"",$E(X,1,30),DA)"
^DD(420.138,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.138,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.138,3,1,1,"DT")="2931119"
^DD(420.138,3,3)="Enter free text up to 15 characters."
^DD(420.138,3,21,0)="^^1^1^2940218^^^^"
^DD(420.138,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.138,3,23,0)="^^3^3^2940218^^"
^DD(420.138,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.138,3,23,2,0)="Always hardcode with this fix values. If this value is edited all"
^DD(420.138,3,23,3,0)="programs referring to this value need to be edited."
^DD(420.138,3,"DT")="2931210"
^DD(420.138,"B","CODE",.01)=""
^DD(420.138,"B","DESCRIPTION",1)=""
^DD(420.138,"B","FIX VALUE",3)=""
^DD(420.138,"B","STATUS",2)=""
^DD(420.138,"GL",0,1,.01)=""
^DD(420.138,"GL",0,2,1)=""
^DD(420.138,"GL",0,3,2)=""
^DD(420.138,"GL",0,4,3)=""
^DD(420.138,"IX",.01)=""
^DD(420.138,"IX",1)=""
^DD(420.138,"IX",3)=""
^DD(420.138,"RQ",.01)=""
^DD(420.138,"RQ",1)=""
^DD(420.138,"RQ",2)=""
^DD(420.14,0)="FIELD^^5^7"
^DD(420.14,0,"ACT")="S PRCLKUP="""""
^DD(420.14,0,"DDA")="N"
^DD(420.14,0,"DT")="2940407"
^DD(420.14,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(420.14,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(420.14,0,"IX","B",420.14,.01)=""
^DD(420.14,0,"NM","PRCD FUND")=""
^DD(420.14,0,"PT",420.18,.01)=""
^DD(420.14,0,"VR")="5.1"
^DD(420.14,0,"VRPK")="IFCAP"
^DD(420.14,.01,0)="FUND^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<3)!'(X'?1P.E) X"
^DD(420.14,.01,1,0)="^.1^^-1"
^DD(420.14,.01,1,1,0)="420.14^B"
^DD(420.14,.01,1,1,1)="S ^PRCD(420.14,""B"",$E(X,1,30),DA)="""""
^DD(420.14,.01,1,1,2)="K ^PRCD(420.14,""B"",$E(X,1,30),DA)"
^DD(420.14,.01,3)="Answer must be 3-6 characters in length."
^DD(420.14,.01,7.5)="S PRCLKUP=1"
^DD(420.14,.01,21,0)="^^1^1^2941109^^^^"
^DD(420.14,.01,21,1,0)="This is fund in this file."
^DD(420.14,.01,"DT")="3070910"
^DD(420.14,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>45!($L(X)<1)!'(X'?1P.E) X"
^DD(420.14,1,.1)=""
^DD(420.14,1,3)="Answer must be 1-45 characters in length."
^DD(420.14,1,21,0)="^^1^1^2931208^^^"
^DD(420.14,1,21,1,0)="This is a description of the fund."
^DD(420.14,1,"DT")="2931208"
^DD(420.14,2,0)="BUDGET FISCAL YEAR BEGIN^RNJ4,0X^^0;3^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(420.14,2,1,0)="^.1^^0"
^DD(420.14,2,3)="Type a Number between 1900 and 9999, 0 Decimal Digits"
^DD(420.14,2,21,0)="^^1^1^2941109^"
^DD(420.14,2,21,1,0)="This is used to store BUDGET FISCAL YEAR BEGIN data."
^DD(420.14,2,"DT")="3070910"
^DD(420.14,3,0)="BUDGET FISCAL YEAR END^RNJ4,0X^^0;4^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(420.14,3,1,0)="^.1^^0"
^DD(420.14,3,3)="Type a Number between 1900 and 9999, 0 Decimal Digits"
^DD(420.14,3,21,0)="^^1^1^2941109^"
^DD(420.14,3,21,1,0)="This is used to store BUDGET FISCAL YEAR END data."
^DD(420.14,3,"DT")="3070910"
^DD(420.14,4.5,0)="FUND PROGRAM TRANSFER ALLOWED^RS^Y:YES;N:NO;^0;7^Q"
^DD(420.14,4.5,3)=""
^DD(420.14,4.5,21,0)="^^1^1^2931217^"
^DD(420.14,4.5,21,1,0)="This will allow program/subprogram transfers within a fund if it is 'yes'."
^DD(420.14,4.5,23,0)="^^1^1^2931217^^^"
^DD(420.14,4.5,23,1,0)="This will allow program/subprogram transfers within a fund if it is 'yes'."
^DD(420.14,4.5,"DT")="2931217"
^DD(420.14,4.7,0)="GROSS/NET^RS^G:GROSS;N:NET;^0;5^Q"
^DD(420.14,4.7,21,0)="^^1^1^2941109^"
^DD(420.14,4.7,21,1,0)="This is used to store GROSS/NET data."
^DD(420.14,4.7,"DT")="2940407"
^DD(420.14,5,0)="STATUS^RP420.1999'X^PRCD(420.1999,^0;6^Q"
^DD(420.14,5,1,0)="^.1^^0"
^DD(420.14,5,3)="Enter a status"
^DD(420.14,5,21,0)="^^1^1^2941109^"
^DD(420.14,5,21,1,0)="This is used to store STATUS data."
^DD(420.14,5,"DT")="2931220"
^DD(420.14,"B","BUDGET FISCAL YEAR BEGIN",2)=""
^DD(420.14,"B","BUDGET FISCAL YEAR END",3)=""
^DD(420.14,"B","DESCRIPTION",1)=""
^DD(420.14,"B","FUND",.01)=""
^DD(420.14,"B","FUND PROGRAM TRANSFER ALLOWED",4.5)=""
^DD(420.14,"B","GROSS/NET",4.7)=""
^DD(420.14,"B","STATUS",5)=""
^DD(420.14,"GL",0,1,.01)=""
^DD(420.14,"GL",0,2,1)=""
^DD(420.14,"GL",0,3,2)=""
^DD(420.14,"GL",0,4,3)=""
^DD(420.14,"GL",0,5,4.7)=""
^DD(420.14,"GL",0,6,5)=""
^DD(420.14,"GL",0,7,4.5)=""
^DD(420.14,"IX",.01)=""
^DD(420.14,"RQ",.01)=""
^DD(420.14,"RQ",1)=""
^DD(420.14,"RQ",2)=""
^DD(420.14,"RQ",3)=""
^DD(420.14,"RQ",4.5)=""
^DD(420.14,"RQ",4.7)=""
^DD(420.14,"RQ",5)=""
^DD(420.141,0)="FIELD^^1^2"
^DD(420.141,0,"DDA")="N"
^DD(420.141,0,"DT")="2940414"
^DD(420.141,0,"IX","B",420.141,.01)=""
^DD(420.141,0,"NM","PRCD FMS SUB-ALLOWANCE ACCOUNT")=""
^DD(420.141,0,"VR")="5.1"
^DD(420.141,0,"VRPK")="IFCAP"
^DD(420.141,.01,0)="NAME^RFO^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(420.141,.01,1,0)="^.1"
^DD(420.141,.01,1,1,0)="420.141^B"
^DD(420.141,.01,1,1,1)="S ^PRCD(420.141,""B"",$E(X,1,60),DA)="""""
^DD(420.141,.01,1,1,2)="K ^PRCD(420.141,""B"",$E(X,1,60),DA)"
^DD(420.141,.01,2)="S Y(0)=Y S Y=$TR(Y,""~"","" "")"
^DD(420.141,.01,2.1)="S Y=$TR(Y,""~"","" "")"
^DD(420.141,.01,3)="Answer must be 3-60 characters in length."
^DD(420.141,.01,21,0)="^^1^1^2941109^"
^DD(420.141,.01,21,1,0)="This is to store FMS SUBALLOWANCE ACCOUNT data."
^DD(420.141,.01,"DT")="2940425"
^DD(420.141,1,0)="FUND CONTROL POINT NUMBER^RF^^0;2^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(420.141,1,3)="Answer must be 1-10 characters in length."
^DD(420.141,1,21,0)="^^1^1^2941109^"
^DD(420.141,1,21,1,0)="This is used to store FCP data."
^DD(420.141,1,"DT")="2940413"
^DD(420.141,"B","FUND CONTROL POINT NUMBER",1)=""
^DD(420.141,"B","NAME",.01)=""
^DD(420.141,"GL",0,1,.01)=""
^DD(420.141,"GL",0,2,1)=""
^DD(420.141,"IX",.01)=""
^DD(420.141,"RQ",.01)=""
^DD(420.141,"RQ",1)=""
^DD(420.15,0)="FIELD^^3^4"
^DD(420.15,0,"DDA")="N"
^DD(420.15,0,"DT")="2931126"
^DD(420.15,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(420.15,0,"IX","AC",420.15,3)=""
^DD(420.15,0,"IX","B",420.15,.01)=""
^DD(420.15,0,"IX","C",420.15,1)=""
^DD(420.15,0,"NM","PRCD SD ADMINISTRATIVE OFFICE")=""
^DD(420.15,0,"PT",420.01,25.5)=""
^DD(420.15,0,"PT",420.06,16)=""
^DD(420.15,0,"VR")="5.1"
^DD(420.15,0,"VRPK")="IFCAP"
^DD(420.15,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.15,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.15,.01,1,0)="^.1"
^DD(420.15,.01,1,1,0)="420.15^B"
^DD(420.15,.01,1,1,1)="S ^PRCD(420.15,""B"",$E(X,1,30),DA)="""""
^DD(420.15,.01,1,1,2)="K ^PRCD(420.15,""B"",$E(X,1,30),DA)"
^DD(420.15,.01,3)="Answer must be 1-15 characters in length and code must be unique in file."
^DD(420.15,.01,21,0)="^^1^1^2931119^^^^"
^DD(420.15,.01,21,1,0)="This field is the code of administrative office."
^DD(420.15,.01,"DT")="2931119"
^DD(420.15,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.15,1,1,0)="^.1"
^DD(420.15,1,1,1,0)="420.15^C"
^DD(420.15,1,1,1,1)="S ^PRCD(420.15,""C"",$E(X,1,30),DA)="""""
^DD(420.15,1,1,1,2)="K ^PRCD(420.15,""C"",$E(X,1,30),DA)"
^DD(420.15,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.15,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.15,1,1,1,"DT")="2931118"
^DD(420.15,1,3)="Answer must be 1-45 characters in length."
^DD(420.15,1,21,0)="^^1^1^2931124^^^^"
^DD(420.15,1,21,1,0)="This field is the desription of the code."
^DD(420.15,1,"DT")="2931124"
^DD(420.15,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.15,2,3)=""
^DD(420.15,2,21,0)="^^1^1^2931126^^^"
^DD(420.15,2,21,1,0)="This field is the status of the entry in file."
^DD(420.15,2,"DT")="2931126"
^DD(420.15,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.15,3,1,0)="^.1"
^DD(420.15,3,1,1,0)="420.15^AC"
^DD(420.15,3,1,1,1)="S ^PRCD(420.15,""AC"",$E(X,1,30),DA)="""""
^DD(420.15,3,1,1,2)="K ^PRCD(420.15,""AC"",$E(X,1,30),DA)"
^DD(420.15,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.15,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.15,3,1,1,"DT")="2931119"
^DD(420.15,3,3)="Answer must be 1-15 characters in length."
^DD(420.15,3,21,0)="^^1^1^2931210^^^"
^DD(420.15,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.15,3,23,0)="^^3^3^2931210^^^"
^DD(420.15,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.15,3,23,2,0)="Always hardcode with fixed values. If this value is edited all"
^DD(420.15,3,23,3,0)="programs referring to this value need to edited."
^DD(420.15,3,"DT")="2931210"
^DD(420.15,"B","CODE",.01)=""
^DD(420.15,"B","DESCRIPTION",1)=""
^DD(420.15,"B","FIX VALUE",3)=""
^DD(420.15,"B","STATUS",2)=""
^DD(420.15,"GL",0,1,.01)=""
^DD(420.15,"GL",0,2,1)=""
^DD(420.15,"GL",0,3,2)=""
^DD(420.15,"GL",0,4,3)=""
^DD(420.15,"IX",.01)=""
^DD(420.15,"IX",1)=""
^DD(420.15,"IX",3)=""
^DD(420.15,"RQ",.01)=""
^DD(420.15,"RQ",1)=""
^DD(420.15,"RQ",2)=""
^DD(420.16,0)="FIELD^^3^4"
^DD(420.16,0,"DDA")="N"
^DD(420.16,0,"DT")="2931126"
^DD(420.16,0,"IX","AC",420.16,3)=""
^DD(420.16,0,"IX","B",420.16,.01)=""
^DD(420.16,0,"IX","C",420.16,1)=""
^DD(420.16,0,"NM","PRCD SD DOCUMENT TYPE")=""
^DD(420.16,0,"PT",420.18,1)=""
^DD(420.16,0,"VR")="5.1"
^DD(420.16,0,"VRPK")="IFCAP"
^DD(420.16,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.16,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.16,.01,1,0)="^.1"
^DD(420.16,.01,1,1,0)="420.16^B"
^DD(420.16,.01,1,1,1)="S ^PRCD(420.16,""B"",$E(X,1,30),DA)="""""
^DD(420.16,.01,1,1,2)="K ^PRCD(420.16,""B"",$E(X,1,30),DA)"
^DD(420.16,.01,3)="Answer must be 1-15 characters in length and code must be unique in file."
^DD(420.16,.01,21,0)="^^1^1^2931118^^^^"
^DD(420.16,.01,21,1,0)="This field is the code of document data elemant."
^DD(420.16,.01,"DT")="2931119"
^DD(420.16,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.16,1,1,0)="^.1"
^DD(420.16,1,1,1,0)="420.16^C"
^DD(420.16,1,1,1,1)="S ^PRCD(420.16,""C"",$E(X,1,30),DA)="""""
^DD(420.16,1,1,1,2)="K ^PRCD(420.16,""C"",$E(X,1,30),DA)"
^DD(420.16,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.16,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.16,1,1,1,"DT")="2931118"
^DD(420.16,1,3)="Answer must be 1-45 characters in length."
^DD(420.16,1,21,0)="^^1^1^2931124^^^^"
^DD(420.16,1,21,1,0)="This field is the desription of the code."
^DD(420.16,1,"DT")="2931124"
^DD(420.16,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.16,2,3)=""
^DD(420.16,2,21,0)="^^1^1^2931126^^^^"
^DD(420.16,2,21,1,0)="This field is the status of the entry in file."
^DD(420.16,2,"DT")="2931126"
^DD(420.16,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.16,3,1,0)="^.1"
^DD(420.16,3,1,1,0)="420.16^AC"
^DD(420.16,3,1,1,1)="S ^PRCD(420.16,""AC"",$E(X,1,30),DA)="""""
^DD(420.16,3,1,1,2)="K ^PRCD(420.16,""AC"",$E(X,1,30),DA)"
^DD(420.16,3,1,1,"%D",0)="^^1^1^2931119^^"
^DD(420.16,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.16,3,1,1,"DT")="2931119"
^DD(420.16,3,3)="Answer must be 1-15 characters in length."
^DD(420.16,3,21,0)="^^1^1^2931118^^^^"
^DD(420.16,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.16,3,23,0)="^^3^3^2931118^^^^"
^DD(420.16,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.16,3,23,2,0)="Always hardcode with fixed values. If this value is edited all"
^DD(420.16,3,23,3,0)="programs referring to this value need to edited."
^DD(420.16,3,"DT")="2931210"
^DD(420.16,"B","CODE",.01)=""
^DD(420.16,"B","DESCRIPTION",1)=""
^DD(420.16,"B","FIX VALUE",3)=""
^DD(420.16,"B","STATUS",2)=""
^DD(420.16,"GL",0,1,.01)=""
^DD(420.16,"GL",0,2,1)=""
^DD(420.16,"GL",0,3,2)=""
^DD(420.16,"GL",0,4,3)=""
^DD(420.16,"IX",.01)=""
^DD(420.16,"IX",1)=""
^DD(420.16,"IX",3)=""
^DD(420.16,"RQ",.01)=""
^DD(420.16,"RQ",1)=""
^DD(420.16,"RQ",2)=""
^DD(420.17,0)="FIELD^^3^4"
^DD(420.17,0,"DDA")="N"
^DD(420.17,0,"DT")="2931126"
^DD(420.17,0,"IX","AC",420.17,3)=""
^DD(420.17,0,"IX","B",420.17,.01)=""
^DD(420.17,0,"IX","C",420.17,1)=""
^DD(420.17,0,"NM","PRCD SD DOCUMENT DATA ELEMENT")=""
^DD(420.17,0,"PT",420.18,2)=""
^DD(420.17,0,"VR")="5.1"
^DD(420.17,0,"VRPK")="IFCAP"
^DD(420.17,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.17,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.17,.01,1,0)="^.1"
^DD(420.17,.01,1,1,0)="420.17^B"
^DD(420.17,.01,1,1,1)="S ^PRCD(420.17,""B"",$E(X,1,30),DA)="""""
^DD(420.17,.01,1,1,2)="K ^PRCD(420.17,""B"",$E(X,1,30),DA)"
^DD(420.17,.01,3)="Answer must be 1-15 characters in length and code must be unique in file."
^DD(420.17,.01,21,0)="^^1^1^2931118^^^^"
^DD(420.17,.01,21,1,0)="This field is the code of document type."
^DD(420.17,.01,"DT")="2931119"
^DD(420.17,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.17,1,1,0)="^.1"
^DD(420.17,1,1,1,0)="420.17^C"
^DD(420.17,1,1,1,1)="S ^PRCD(420.17,""C"",$E(X,1,30),DA)="""""
^DD(420.17,1,1,1,2)="K ^PRCD(420.17,""C"",$E(X,1,30),DA)"
^DD(420.17,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.17,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.17,1,1,1,"DT")="2931118"
^DD(420.17,1,3)="Answer must be 1-45 characters in length."
^DD(420.17,1,21,0)="^^1^1^2931124^^^^"
^DD(420.17,1,21,1,0)="This field is the desription of the code."
^DD(420.17,1,"DT")="2931124"
^DD(420.17,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.17,2,3)=""
^DD(420.17,2,21,0)="^^1^1^2931126^^^^"
^DD(420.17,2,21,1,0)="This field is the status of the entry in file."
^DD(420.17,2,"DT")="2931126"
^DD(420.17,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.17,3,1,0)="^.1"
^DD(420.17,3,1,1,0)="420.17^AC"
^DD(420.17,3,1,1,1)="S ^PRCD(420.17,""AC"",$E(X,1,30),DA)="""""
^DD(420.17,3,1,1,2)="K ^PRCD(420.17,""AC"",$E(X,1,30),DA)"
^DD(420.17,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.17,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.17,3,1,1,"DT")="2931119"
^DD(420.17,3,3)="Answer must be 1-15 characters in length."
^DD(420.17,3,21,0)="^^1^1^2931118^^^"
^DD(420.17,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.17,3,23,0)="^^3^3^2931118^^^"
^DD(420.17,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.17,3,23,2,0)="Always hardcode with fixed values. If this value is edited all"
^DD(420.17,3,23,3,0)="programs referring to this value need to edited."
^DD(420.17,3,"DT")="2931210"
^DD(420.17,"B","CODE",.01)=""
^DD(420.17,"B","DESCRIPTION",1)=""
^DD(420.17,"B","FIX VALUE",3)=""
^DD(420.17,"B","STATUS",2)=""
^DD(420.17,"GL",0,1,.01)=""
^DD(420.17,"GL",0,2,1)=""
^DD(420.17,"GL",0,3,2)=""
^DD(420.17,"GL",0,4,3)=""
^DD(420.17,"IX",.01)=""
^DD(420.17,"IX",1)=""
^DD(420.17,"IX",3)=""
^DD(420.17,"RQ",.01)=""
^DD(420.17,"RQ",1)=""
^DD(420.17,"RQ",2)=""
^DD(420.18,0)="FIELD^^3^4"
^DD(420.18,0,"ACT")="S PRCLKUP="""""
^DD(420.18,0,"DDA")="N"
^DD(420.18,0,"DT")="2940715"
^DD(420.18,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCD(420.16,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(420.16,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(420.18,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCD(420.17,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(420.17,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(420.18,0,"IX","AC",420.18,1)=""
^DD(420.18,0,"IX","B",420.18,.01)=""
^DD(420.18,0,"IX","UNQ",420.18,.01)=""
^DD(420.18,0,"IX","UNQ2",420.18,2)=""
^DD(420.18,0,"NM","PRCD REQUIRED FIELDS")=""
^DD(420.18,0,"VR")="5.1"
^DD(420.18,0,"VRPK")="IFCAP"
^DD(420.18,.01,0)="FUND^RP420.14'^PRCD(420.14,^0;1^Q"
^DD(420.18,.01,1,0)="^.1"
^DD(420.18,.01,1,1,0)="420.18^B"
^DD(420.18,.01,1,1,1)="S ^PRCD(420.18,""B"",$E(X,1,30),DA)="""""
^DD(420.18,.01,1,1,2)="K ^PRCD(420.18,""B"",$E(X,1,30),DA)"
^DD(420.18,.01,1,2,0)="420.18^UNQ^MUMPS"
^DD(420.18,.01,1,2,1)="D KEY^PRCD1D S PRCK01=X D UNQCRS^PRCD1D"
^DD(420.18,.01,1,2,2)="D KEY^PRCD1D S PRCK01=X D UNQCRK^PRCD1D"
^DD(420.18,.01,1,2,"DT")="2941006"
^DD(420.18,.01,3)=""
^DD(420.18,.01,7.5)="S PRCLKUP=1"
^DD(420.18,.01,21,0)="^^1^1^2941109^"
^DD(420.18,.01,21,1,0)="This is used to store FUND data."
^DD(420.18,.01,"DT")="2941006"
^DD(420.18,1,0)="DOCUMENT TYPE^RP420.16'^PRCD(420.16,^0;2^Q"
^DD(420.18,1,1,0)="^.1"
^DD(420.18,1,1,1,0)="420.18^AC^MUMPS"
^DD(420.18,1,1,1,1)="D KEY^PRCD1D S PRCK1=X D UNQCRS^PRCD1D"
^DD(420.18,1,1,1,2)="D KEY^PRCD1D S PRCK1=X D UNQCRK^PRCD1D"
^DD(420.18,1,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.18,1,1,1,"%D",1,0)="This is used for unique entry checking."
^DD(420.18,1,1,1,"DT")="2941006"
^DD(420.18,1,3)="Enter a fund."
^DD(420.18,1,21,0)="^^1^1^2941109^"
^DD(420.18,1,21,1,0)="This is used to store DOCUMENT TYPE data."
^DD(420.18,1,"DT")="2941006"
^DD(420.18,2,0)="DATA ELEMENT^RP420.17'^PRCD(420.17,^0;3^Q"
^DD(420.18,2,1,0)="^.1"
^DD(420.18,2,1,1,0)="420.18^UNQ2^MUMPS"
^DD(420.18,2,1,1,1)="D KEY^PRCD1D S PRCK2=X D UNQCRS^PRCD1D"
^DD(420.18,2,1,1,2)="D KEY^PRCD1D S PRCK2=X D UNQCRK^PRCD1D"
^DD(420.18,2,1,1,"%D",0)="^^1^1^2950302^"
^DD(420.18,2,1,1,"%D",1,0)="This is used for unique entry checking."
^DD(420.18,2,1,1,"DT")="2941006"
^DD(420.18,2,21,0)="^^1^1^2941109^"
^DD(420.18,2,21,1,0)="This is used to store DATA ELEMENT data."
^DD(420.18,2,"DT")="2941006"
^DD(420.18,3,0)="DATA REQUIRED^S^Y:YES;N:NO;O:OPTIONAL;^0;4^Q"
^DD(420.18,3,21,0)="^^1^1^2941109^"
^DD(420.18,3,21,1,0)="This is used to store DATA REQUIRED data."
^DD(420.18,3,"DT")="2940715"
^DD(420.18,"B","DATA ELEMENT",2)=""
^DD(420.18,"B","DATA REQUIRED",3)=""
^DD(420.18,"B","DOCUMENT TYPE",1)=""
^DD(420.18,"B","FUND",.01)=""
^DD(420.18,"GL",0,1,.01)=""
^DD(420.18,"GL",0,2,1)=""
^DD(420.18,"GL",0,3,2)=""
^DD(420.18,"GL",0,4,3)=""
^DD(420.18,"IX",.01)=""
^DD(420.18,"IX",1)=""
^DD(420.18,"IX",2)=""
^DD(420.18,"RQ",.01)=""
^DD(420.18,"RQ",1)=""
^DD(420.18,"RQ",2)=""
^DD(420.19,0)="FIELD^^5^6"
^DD(420.19,0,"DDA")="N"
^DD(420.19,0,"DT")="2940216"
^DD(420.19,0,"ID","D1")="W ?16,$P(^(0),U,2)"
^DD(420.19,0,"IX","B",420.19,.01)=""
^DD(420.19,0,"IX","C",420.19,1)=""
^DD(420.19,0,"IX","D",420.19,3)=""
^DD(420.19,0,"NM","PRCD STANDARD DICTIONARY")=""
^DD(420.19,0,"VR")="5.1"
^DD(420.19,0,"VRPK")="IFCAP"
^DD(420.19,.01,0)="CODE^RF^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(420.19,.01,1,0)="^.1"
^DD(420.19,.01,1,1,0)="420.19^B"
^DD(420.19,.01,1,1,1)="S ^PRCD(420.19,""B"",$E(X,1,30),DA)="""""
^DD(420.19,.01,1,1,2)="K ^PRCD(420.19,""B"",$E(X,1,30),DA)"
^DD(420.19,.01,3)="Answer must be 1-15 characters in length."
^DD(420.19,.01,21,0)="^^1^1^2940216^^^^"
^DD(420.19,.01,21,1,0)="This is a standard dictionary code."
^DD(420.19,.01,"DT")="2940216"
^DD(420.19,1,0)="NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(420.19,1,1,0)="^.1"
^DD(420.19,1,1,1,0)="420.19^C"
^DD(420.19,1,1,1,1)="S ^PRCD(420.19,""C"",$E(X,1,30),DA)="""""
^DD(420.19,1,1,1,2)="K ^PRCD(420.19,""C"",$E(X,1,30),DA)"
^DD(420.19,1,1,1,"DT")="2940216"
^DD(420.19,1,3)="Answer must be 1-30 characters in length."
^DD(420.19,1,21,0)="^^1^1^2941201^^"
^DD(420.19,1,21,1,0)="This is used to store the entry's name."
^DD(420.19,1,"DT")="2940216"
^DD(420.19,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.19,2,21,0)="^^1^1^2931129^"
^DD(420.19,2,21,1,0)="This is the status of the entry."
^DD(420.19,2,"DT")="2931129"
^DD(420.19,3,0)="FILE NAME/NUMBER^R*P1'^DIC(^0;4^S DIC(""S"")=""I $P(^(0),U,1)?1""""PRCD SD"""".E S %=$O(^PRCD(420.19,""""D"""",+Y,"""""""")) I %=DA!'%"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(420.19,3,1,0)="^.1"
^DD(420.19,3,1,1,0)="420.19^D"
^DD(420.19,3,1,1,1)="S ^PRCD(420.19,""D"",$E(X,1,30),DA)="""""
^DD(420.19,3,1,1,2)="K ^PRCD(420.19,""D"",$E(X,1,30),DA)"
^DD(420.19,3,1,1,"%D",0)="^^1^1^2931126^^"
^DD(420.19,3,1,1,"%D",1,0)="This is used to look-up entries."
^DD(420.19,3,1,1,"DT")="2931126"
^DD(420.19,3,3)=""
^DD(420.19,3,12)="A selected entry must be a standard dictionary file and unique to this file."
^DD(420.19,3,12.1)="S DIC(""S"")=""I $P(^(0),U,1)?1""""PRCD SD"""".E S %=$O(^PRCD(420.19,""""D"""",+Y,"""""""")) I %=DA!'%"""
^DD(420.19,3,21,0)="^^1^1^2931129^^^^"
^DD(420.19,3,21,1,0)="This is the fileman file number."
^DD(420.19,3,"DT")="2931129"
^DD(420.19,4,0)="SITE EDIT ALLOWED^RS^Y:YES;N:NO;^0;5^Q"
^DD(420.19,4,21,0)="^^1^1^2941109^"
^DD(420.19,4,21,1,0)="This is used to store SITE EDIT ALLOWED data."
^DD(420.19,4,"DT")="2931126"
^DD(420.19,5,0)="FIX VALUE USED IN PROGRAMING^S^Y:YES;N:NO;^0;6^Q"
^DD(420.19,5,21,0)="^^1^1^2941109^"
^DD(420.19,5,21,1,0)="This is used to store FIX VALUE USED IN PROGRAMING data."
^DD(420.19,5,"DT")="2931210"
^DD(420.19,"B","CODE",.01)=""
^DD(420.19,"B","FILE NAME/NUMBER",3)=""
^DD(420.19,"B","FIX VALUE USED IN PROGRAMING",5)=""
^DD(420.19,"B","NAME",1)=""
^DD(420.19,"B","SITE EDIT ALLOWED",4)=""
^DD(420.19,"B","STATUS",2)=""
^DD(420.19,"GL",0,1,.01)=""
^DD(420.19,"GL",0,2,1)=""
^DD(420.19,"GL",0,3,2)=""
^DD(420.19,"GL",0,4,3)=""
^DD(420.19,"GL",0,5,4)=""
^DD(420.19,"GL",0,6,5)=""
^DD(420.19,"IX",.01)=""
^DD(420.19,"IX",1)=""
^DD(420.19,"IX",3)=""
^DD(420.19,"RQ",.01)=""
^DD(420.19,"RQ",1)=""
^DD(420.19,"RQ",2)=""
^DD(420.19,"RQ",3)=""
^DD(420.19,"RQ",4)=""
^DD(420.1999,0)="FIELD^^3^4"
^DD(420.1999,0,"DDA")="N"
^DD(420.1999,0,"DT")="2931126"
^DD(420.1999,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(420.1999,0,"IX","AC",420.1999,3)=""
^DD(420.1999,0,"IX","B",420.1999,.01)=""
^DD(420.1999,0,"IX","C",420.1999,1)=""
^DD(420.1999,0,"NM","PRCD SD STATUS")=""
^DD(420.1999,0,"PT",420.13,2)=""
^DD(420.1999,0,"PT",420.131,2)=""
^DD(420.1999,0,"PT",420.132,2)=""
^DD(420.1999,0,"PT",420.133,2)=""
^DD(420.1999,0,"PT",420.134,2)=""
^DD(420.1999,0,"PT",420.135,2)=""
^DD(420.1999,0,"PT",420.136,2)=""
^DD(420.1999,0,"PT",420.137,2)=""
^DD(420.1999,0,"PT",420.138,2)=""
^DD(420.1999,0,"PT",420.14,5)=""
^DD(420.1999,0,"PT",420.15,2)=""
^DD(420.1999,0,"PT",420.16,2)=""
^DD(420.1999,0,"PT",420.17,2)=""
^DD(420.1999,0,"PT",420.19,2)=""
^DD(420.1999,0,"PT",420.1999,2)=""
^DD(420.1999,0,"PT",420.9999,2)=""
^DD(420.1999,0,"VR")="5.1"
^DD(420.1999,0,"VRPK")="IFCAP"
^DD(420.1999,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X I $G(X)]"""" S %=$O(^PRCD(420.1999,""B"",X,"""")) K:%-$G(DA)&% X"
^DD(420.1999,.01,1,0)="^.1"
^DD(420.1999,.01,1,1,0)="420.1999^B"
^DD(420.1999,.01,1,1,1)="S ^PRCD(420.1999,""B"",$E(X,1,30),DA)="""""
^DD(420.1999,.01,1,1,2)="K ^PRCD(420.1999,""B"",$E(X,1,30),DA)"
^DD(420.1999,.01,3)="Answer must be 1-15 characters in length and code must be unique in file."
^DD(420.1999,.01,21,0)="^^1^1^2931118^^^^"
^DD(420.1999,.01,21,1,0)="This field is the code of document data elemant."
^DD(420.1999,.01,"DT")="2931119"
^DD(420.1999,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.1999,1,1,0)="^.1"
^DD(420.1999,1,1,1,0)="420.1999^C"
^DD(420.1999,1,1,1,1)="S ^PRCD(420.1999,""C"",$E(X,1,30),DA)="""""
^DD(420.1999,1,1,1,2)="K ^PRCD(420.1999,""C"",$E(X,1,30),DA)"
^DD(420.1999,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.1999,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.1999,1,1,1,"DT")="2931118"
^DD(420.1999,1,3)="Answer must be 1-45 characters in length."
^DD(420.1999,1,21,0)="^^1^1^2931124^^^^"
^DD(420.1999,1,21,1,0)="This field is the desription of the code."
^DD(420.1999,1,"DT")="2931124"
^DD(420.1999,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.1999,2,3)=""
^DD(420.1999,2,21,0)="^^1^1^2950109^^^^"
^DD(420.1999,2,21,1,0)="This field is the status of the entry in file."
^DD(420.1999,2,"DT")="2931126"
^DD(420.1999,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.1999,3,1,0)="^.1"
^DD(420.1999,3,1,1,0)="420.1999^AC"
^DD(420.1999,3,1,1,1)="S ^PRCD(420.1999,""AC"",$E(X,1,30),DA)="""""
^DD(420.1999,3,1,1,2)="K ^PRCD(420.1999,""AC"",$E(X,1,30),DA)"
^DD(420.1999,3,1,1,"%D",0)="^^1^1^2931119^^"
^DD(420.1999,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.1999,3,1,1,"DT")="2931119"
^DD(420.1999,3,3)="Answer must be 1-15 characters in length."
^DD(420.1999,3,21,0)="^^1^1^2931118^^^^"
^DD(420.1999,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.1999,3,23,0)="^^3^3^2931118^^^^"
^DD(420.1999,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.1999,3,23,2,0)="Always hardcode with fixed values. If this value is edited all"
^DD(420.1999,3,23,3,0)="programs referring to this value need to edited."
^DD(420.1999,3,"DT")="2931210"
^DD(420.1999,"B","CODE",.01)=""
^DD(420.1999,"B","DESCRIPTION",1)=""
^DD(420.1999,"B","FIX VALUE",3)=""
^DD(420.1999,"B","STATUS",2)=""
^DD(420.1999,"GL",0,1,.01)=""
^DD(420.1999,"GL",0,2,1)=""
^DD(420.1999,"GL",0,3,2)=""
^DD(420.1999,"GL",0,4,3)=""
^DD(420.1999,"IX",.01)=""
^DD(420.1999,"IX",1)=""
^DD(420.1999,"IX",3)=""
^DD(420.1999,"RQ",.01)=""
^DD(420.1999,"RQ",1)=""
^DD(420.1999,"RQ",2)=""
^DD(420.2,0)="FIELD^^1^5"
^DD(420.2,0,"DDA")="N"
^DD(420.2,0,"DT")="2921221"
^DD(420.2,0,"IX","AC",420.2,.5)=""
^DD(420.2,0,"IX","B",420.2,.01)=""
^DD(420.2,0,"IX","C",420.2,.01)=""
^DD(420.2,0,"NM","BUDGET OBJECT CODE")=""
^DD(420.2,0,"PT",420.11,.01)=""
^DD(420.2,0,"PT",421.5,15)=""
^DD(420.2,0,"PT",421.5,16)=""
^DD(420.2,0,"PT",421.541,.01)=""
^DD(420.2,0,"PT",423,99)=""
^DD(420.2,0,"PT",423.07,5)=""
^DD(420.2,0,"PT",423.08,2)=""
^DD(420.2,0,"PT",423.09,2)=""
^DD(420.2,0,"PT",423.11,5)=""
^DD(420.2,0,"PT",423.16,4)=""
^DD(420.2,0,"PT",440.701,6)=""
^DD(420.2,0,"PT",441,12)=""
^DD(420.2,0,"PT",441.03,2)=""
^DD(420.2,0,"PT",442,3)=""
^DD(420.2,0,"PT",442,4)=""
^DD(420.2,0,"PT",442.01,17)=""
^DD(420.2,0,"PT",442.11,1)=""
^DD(420.2,0,"PT",442.11,3)=""
^DD(420.2,0,"PT",443.6,3)=""
^DD(420.2,0,"PT",443.6,4)=""
^DD(420.2,0,"PT",443.61,17)=""
^DD(420.2,0,"PT",444.019,12.5)=""
^DD(420.2,0,"PT",6914,37)=""
^DD(420.2,0,"PT",6917,8)=""
^DD(420.2,0,"SCR")="X $S(('$D(PRCFA(""REACTIVATE""))&('$D(PRCFA(""ALL"")))):""I +$P(^(0),U,2)=0"",$D(PRCFA(""REACTIVATE"")):""I $P(^(0),U,2)=1"",1:""I 1"")"
^DD(420.2,0,"VR")="5.1"
^DD(420.2,0,"VRPK")="IFCAP"
^DD(420.2,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45)!($L(X)>79)!($L(X)<3)!(X'?4N1"" ""1AN.ANP)!($D(^PRCD(420.2,+X,0))) X I $D(X) S DINUM=+X"
^DD(420.2,.01,1,0)="^.1"
^DD(420.2,.01,1,1,0)="420.2^B"
^DD(420.2,.01,1,1,1)="S ^PRCD(420.2,""B"",$E(X,1,30),DA)="""""
^DD(420.2,.01,1,1,2)="K ^PRCD(420.2,""B"",$E(X,1,30),DA)"
^DD(420.2,.01,1,2,0)="420.2^C^MUMPS"
^DD(420.2,.01,1,2,1)="S ^PRCD(420.2,""C"",$E($P(X,"" "",2,99),1,30),DA)="""""
^DD(420.2,.01,1,2,2)="K ^PRCD(420.2,""C"",$E($P(X,"" "",2,99),1,30),DA)"
^DD(420.2,.01,1,2,"%D",0)="^^1^1^2940506^^"
^DD(420.2,.01,1,2,"%D",1,0)="This cross reference is set on the budget object code."
^DD(420.2,.01,3)="Enter the 4 digit BOC number, a space and the BOC name.  Answer must be 3-79 characters in length"
^DD(420.2,.01,21,0)="^^2^2^2941128^^^^"
^DD(420.2,.01,21,1,0)="This is the budget object code, a space and the"
^DD(420.2,.01,21,2,0)="budget object code name."
^DD(420.2,.01,"DT")="2920612"
^DD(420.2,.5,0)="DEACTIVATED BOC^S^0:NO;1:YES;^0;2^Q"
^DD(420.2,.5,1,0)="^.1"
^DD(420.2,.5,1,1,0)="420.2^AC^MUMPS"
^DD(420.2,.5,1,1,1)="I X=1 S $P(^PRCD(420.2,DA,0),""^"",3,4)=DUZ_""^""_DT"
^DD(420.2,.5,1,1,2)="S $P(^PRCD(420.2,DA,0),""^"",3,4)=""^"""
^DD(420.2,.5,1,1,"%D",0)="^^2^2^2930624^"
^DD(420.2,.5,1,1,"%D",1,0)="This cross reference sets on the deactivating user"
^DD(420.2,.5,1,1,"%D",2,0)="and deactivation time on the subaccount record."
^DD(420.2,.5,21,0)="^^1^1^2940712^^"
^DD(420.2,.5,21,1,0)="This is the deactivated sub-account."
^DD(420.2,.5,"DT")="2940712"
^DD(420.2,.6,0)="DEACTIVATED BY^P200'^VA(200,^0;3^Q"
^DD(420.2,.6,21,0)="^^2^2^2921221^^"
^DD(420.2,.6,21,1,0)="This is the name of the person deactivating"
^DD(420.2,.6,21,2,0)="this sub-account."
^DD(420.2,.6,"DT")="2921221"
^DD(420.2,.7,0)="DATE/TIME DEACTIVATED^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(420.2,.7,21,0)="^^1^1^2910515^"
^DD(420.2,.7,21,1,0)="This is the date/time this sub-account was deactivated."
^DD(420.2,.7,"DT")="2880829"
^DD(420.2,1,0)="DESCRIPTION^420.21^^1;0"
^DD(420.2,1,21,0)="^^1^1^2911120^^"
^DD(420.2,1,21,1,0)="This is the description of this sub-account."
^DD(420.2,"B","DATE/TIME DEACTIVATED",.7)=""
^DD(420.2,"B","DEACTIVATED BOC",.5)=""
^DD(420.2,"B","DEACTIVATED BY",.6)=""
^DD(420.2,"B","DESCRIPTION",1)=""
^DD(420.2,"B","NAME",.01)=""
^DD(420.2,"GL",0,1,.01)=""
^DD(420.2,"GL",0,2,.5)=""
^DD(420.2,"GL",0,3,.6)=""
^DD(420.2,"GL",0,4,.7)=""
^DD(420.2,"GL",1,0,1)=""
^DD(420.2,"IX",.01)=""
^DD(420.2,"IX",.5)=""
^DD(420.2,"RQ",.01)=""
^DD(420.2,"SB",420.21,1)=""
^DD(420.21,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(420.21,0,"NM","DESCRIPTION")=""
^DD(420.21,0,"UP")="420.2"
^DD(420.21,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(420.21,.01,3)="ENTER A DESCRIPTION FOR THIS SUBACCOUNT"
^DD(420.21,.01,21,0)="^^1^1^2911120^"
^DD(420.21,.01,21,1,0)="This is the description of this sub-account."
^DD(420.21,"B","DESCRIPTION",.01)=""
^DD(420.21,"GL",0,1,.01)=""
^DD(420.3,0)="FIELD^^7^8"
^DD(420.3,0,"DDA")="N"
^DD(420.3,0,"DT")="2951006"
^DD(420.3,0,"ID",3)="W """""
^DD(420.3,0,"ID","WRITE")="W:$D(PRCALD(""APPR"")) ""     "",$P(^(0),""^"") W:'$D(PRCALD(""APPR"")) ""     "",$P(^(0),""^"",3)"
^DD(420.3,0,"IX","AC",420.3,5)=""
^DD(420.3,0,"IX","B",420.3,.01)=""
^DD(420.3,0,"IX","C",420.3,4)=""
^DD(420.3,0,"IX","D",420.3,2)=""
^DD(420.3,0,"NM","PRCD FUND/APPROPRIATION CODE")=""
^DD(420.3,0,"PT",420.01,1)=""
^DD(420.3,0,"PT",420.06,15)=""
^DD(420.3,0,"PT",430.01,4)=""
^DD(420.3,0,"PT",430.2,4)=""
^DD(420.3,0,"VR")="5.1"
^DD(420.3,0,"VRPK")="IFCAP"
^DD(420.3,.01,0)="FUND^RFX^^0;1^K:$L(X)>6!($L(X)<1)!(X?1P.E) X I $D(X) K:'$O(^PRCD(420.14,""B"",X,"""")) X"
^DD(420.3,.01,.1)="APPROPRIATION DATA"
^DD(420.3,.01,1,0)="^.1"
^DD(420.3,.01,1,1,0)="420.3^B"
^DD(420.3,.01,1,1,1)="S ^PRCD(420.3,""B"",$E(X,1,30),DA)="""""
^DD(420.3,.01,1,1,2)="K ^PRCD(420.3,""B"",$E(X,1,30),DA)"
^DD(420.3,.01,1,2,0)="^^TRIGGER^420.3^6"
^DD(420.3,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(420.3,.01,1,2,1.4)"
^DD(420.3,.01,1,2,1.4)="S DIH=$S($D(^PRCD(420.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.3,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.3,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(420.3,.01,1,2,2.4)"
^DD(420.3,.01,1,2,2.4)="S DIH=$S($D(^PRCD(420.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.3,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.3,.01,1,2,"CREATE VALUE")="NAME"
^DD(420.3,.01,1,2,"DELETE VALUE")="@"
^DD(420.3,.01,1,2,"DT")="2940713"
^DD(420.3,.01,1,2,"FIELD")="FUND CODE"
^DD(420.3,.01,3)="Enter a fund code defined in FUND file."
^DD(420.3,.01,21,0)="^^1^1^2940713^^^"
^DD(420.3,.01,21,1,0)="This is fund code defined in fund file (420.14)."
^DD(420.3,.01,"DT")="2940713"
^DD(420.3,1,0)="PROGRAM.LIM.ANALYSIS ACCOUNT^FX^^0;2^K:$L(X)>11!($L(X)<3)!(X'?.NP) X"
^DD(420.3,1,3)="ENTER THE PROGRAM, LIMITATION AND ANALYSIS ACCOUNT NUMBERS APPLICABLE TO THIS APPROPRIATION AS A STRING (E.G., 870.001.01).  ANSWER MUST BE 3-11 CHARACTERS IN LENGTH"
^DD(420.3,1,21,0)="^^2^2^2940706^^"
^DD(420.3,1,21,1,0)="This is the program, limitation, and analysis"
^DD(420.3,1,21,2,0)="account numbers applicable to this appropriation."
^DD(420.3,1,"DT")="2860827"
^DD(420.3,2,0)="APPROPRIATION^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<6)!(X'?.ANP) X"
^DD(420.3,2,1,0)="^.1^^-1"
^DD(420.3,2,1,1,0)="420.3^D"
^DD(420.3,2,1,1,1)="S ^PRCD(420.3,""D"",$E(X,1,30),DA)="""""
^DD(420.3,2,1,1,2)="K ^PRCD(420.3,""D"",$E(X,1,30),DA)"
^DD(420.3,2,1,1,"%D",0)="^^1^1^2930624^"
^DD(420.3,2,1,1,"%D",1,0)="This cross reference is set on the appropriation."
^DD(420.3,2,3)="Enter the applicable appropriation data (e.g., 36_0160.001.01 or 36_/_0161.001(016) ).  Answer must be 6-24 characters."
^DD(420.3,2,21,0)="^^1^1^2910515^"
^DD(420.3,2,21,1,0)="This is the applicable appropriation code."
^DD(420.3,2,"DT")="2920925"
^DD(420.3,3,0)="FY PATTERN^F^^0;4^K:$L(X)>4!($L(X)<2) X"
^DD(420.3,3,3)="ENTER YALD CODE.  Replace Current FY with ""x"" and second FY with ""y""."
^DD(420.3,3,21,0)="^^3^3^2911010^^^"
^DD(420.3,3,21,1,0)="This is the fiscal year (FY) associated with the Appropriation"
^DD(420.3,3,21,2,0)="Limitation Department (YALD) code.  The current  FY is indicated with "
^DD(420.3,3,21,3,0)="an ""x"" and the second FY with a ""y""."
^DD(420.3,3,"DT")="2860826"
^DD(420.3,4,0)="APPROP. PATTERN FOR A/R SVC^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<4) X"
^DD(420.3,4,1,0)="^.1"
^DD(420.3,4,1,1,0)="420.3^C"
^DD(420.3,4,1,1,1)="S ^PRCD(420.3,""C"",$E(X,1,30),DA)="""""
^DD(420.3,4,1,1,2)="K ^PRCD(420.3,""C"",$E(X,1,30),DA)"
^DD(420.3,4,1,1,"%D",0)="^^2^2^2930624^"
^DD(420.3,4,1,1,"%D",1,0)="This cross reference is set on the appropriation"
^DD(420.3,4,1,1,"%D",2,0)="pattern for A/R Service."
^DD(420.3,4,3)="Enter the appropriation symbol, with a space for the Fiscal Year. (ie 36 2431)"
^DD(420.3,4,21,0)="^^2^2^2910515^"
^DD(420.3,4,21,1,0)="This is the appropriation pattern for the Accounts"
^DD(420.3,4,21,2,0)="Receivable Service."
^DD(420.3,4,"DT")="2880107"
^DD(420.3,5,0)="ALD CODE^FX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(420.3,5,1,0)="^.1"
^DD(420.3,5,1,1,0)="420.3^AC"
^DD(420.3,5,1,1,1)="S ^PRCD(420.3,""AC"",$E(X,1,30),DA)="""""
^DD(420.3,5,1,1,2)="K ^PRCD(420.3,""AC"",$E(X,1,30),DA)"
^DD(420.3,5,1,1,"DT")="2940706"
^DD(420.3,5,3)="Enter the ALD (appropriation, limitation, department) code in accordance with MP-4, Part V, Chapter 12.  Answer must be 2-3 characters."
^DD(420.3,5,21,0)="^^1^1^2941109^"
^DD(420.3,5,21,1,0)="This is used to store ALD CODE data."
^DD(420.3,5,"DT")="2940706"
^DD(420.3,6,0)="FUND CODE^FX^^0;7^K:$L(X)>6!($L(X)<1) X I $D(X) K:'$O(^PRCD(420.14,""B"",X,"""")) X"
^DD(420.3,6,3)="Enter a fund code defined in FUND file."
^DD(420.3,6,5,1,0)="420.3^.01^2"
^DD(420.3,6,9)="^"
^DD(420.3,6,21,0)="^^1^1^2941109^"
^DD(420.3,6,21,1,0)="This is used to store FUND CODE data."
^DD(420.3,6,"DT")="2940712"
^DD(420.3,7,0)="REVOLVING FUND^S^Y:YES;N:NO;^0;8^Q"
^DD(420.3,7,21,0)="^^1^1^2951006^"
^DD(420.3,7,21,1,0)="This is a revolving fund indicator."
^DD(420.3,7,"DT")="2951006"
^DD(420.3,"B","ALD CODE",5)=""
^DD(420.3,"B","APPROP. PATTERN FOR A/R SVC",4)=""
^DD(420.3,"B","APPROPRIATION",2)=""
^DD(420.3,"B","APPROPRIATION DATA",.01)="1"
^DD(420.3,"B","FUND",.01)=""
^DD(420.3,"B","FUND CODE",6)=""
^DD(420.3,"B","FY PATTERN",3)=""
^DD(420.3,"B","PROGRAM.LIM.ANALYSIS ACCOUNT",1)=""
^DD(420.3,"B","REVOLVING FUND",7)=""
^DD(420.3,"GL",0,1,.01)=""
^DD(420.3,"GL",0,2,1)=""
^DD(420.3,"GL",0,3,2)=""
^DD(420.3,"GL",0,4,3)=""
^DD(420.3,"GL",0,5,4)=""
^DD(420.3,"GL",0,6,5)=""
^DD(420.3,"GL",0,7,6)=""
^DD(420.3,"GL",0,8,7)=""
^DD(420.3,"IX",.01)=""
^DD(420.3,"IX",2)=""
^DD(420.3,"IX",4)=""
^DD(420.3,"IX",5)=""
^DD(420.3,"RQ",.01)=""
^DD(420.4,0)="FIELD^^5^9"
^DD(420.4,0,"DT")="2930127"
^DD(420.4,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(420.4,0,"IX","B",420.4,.01)=""
^DD(420.4,0,"NM","CALM/LOG TRANSACTIONS CODE LIST")=""
^DD(420.4,0,"PT",445.2,10.5)=""
^DD(420.4,0,"VR")="5.1"
^DD(420.4,0,"VRPK")="IFCAP"
^DD(420.4,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(420.4,.001,3)="Type a Whole Number between 100 and 999999, 0 Decimal Digits"
^DD(420.4,.001,21,0)="^^1^1^2920130^^"
^DD(420.4,.001,21,1,0)="This is the number of the transaction."
^DD(420.4,.001,"DT")="2910830"
^DD(420.4,.01,0)="TRANS.STATUS CODE^RFX^^0;1^K:$L(X)>6!($L(X)<3)!'(X?3N.1""."".2N!(X?2U1UN)) X I $D(X) S DINUM=$S(X[""."":X*100,X?2U1UN:$A(X,1)_$A(X,2)_$A(X,3),1:X)"
^DD(420.4,.01,1,0)="^.1"
^DD(420.4,.01,1,1,0)="420.4^B"
^DD(420.4,.01,1,1,1)="S ^PRCD(420.4,""B"",$E(X,1,30),DA)="""""
^DD(420.4,.01,1,1,2)="K ^PRCD(420.4,""B"",$E(X,1,30),DA)"
^DD(420.4,.01,3)="REPLY WITH NORMAL CALM OR LOG TRANSACTION CODE, INCLUDING DECIMAL FOR CALM."
^DD(420.4,.01,21,0)="^^1^1^2920130^^"
^DD(420.4,.01,21,1,0)="This is the transaction status code."
^DD(420.4,.01,"DT")="2920130"
^DD(420.4,.5,0)="EDIT TEMPLATE^F^^0;3^K:$L(X)>18!($L(X)<1) X"
^DD(420.4,.5,3)="ANSWER MUST BE 1-18 CHARACTERS IN LENGTH"
^DD(420.4,.5,21,0)="^^2^2^2911010^"
^DD(420.4,.5,21,1,0)="This field defines the edit template used to create the code sheet     "
^DD(420.4,.5,21,2,0)="(i.e., PRCFA TT921.00)."
^DD(420.4,.5,22)=" "
^DD(420.4,.5,"DT")="2870224"
^DD(420.4,.7,0)="BATCH PROMPT^RP423.9'^PRCF(423.9,^0;4^Q"
^DD(420.4,.7,21,0)="^^2^2^2911010^^"
^DD(420.4,.7,21,1,0)="This is a pointer to the CALM/LOG Batch Type File, #423.9, indicating"
^DD(420.4,.7,21,2,0)="the type of batch (i.e,..PAYMENT, CAPPS, DLA/DASS)."
^DD(420.4,.7,"DT")="2871001"
^DD(420.4,1,0)="ACTIVE CODE SHEET^RS^Y:YES;N:NO;^0;5^Q"
^DD(420.4,1,3)=""
^DD(420.4,1,21,0)="^^1^1^2910515^"
^DD(420.4,1,21,1,0)="This is the active code sheet."
^DD(420.4,1,"DT")="2870327"
^DD(420.4,2,0)="GENERAL PURPOSE^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(420.4,2,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(420.4,2,21,0)="^^2^2^2911010^^"
^DD(420.4,2,21,1,0)="This field defines the use of the code sheet (i.e., Established"
^DD(420.4,2,21,2,0)="undelivered, as described in MP4, Part 5)."
^DD(420.4,2,"DT")="2861023"
^DD(420.4,3,0)="SYSTEM IDENTIFIER^RS^CLM:CLM;LOG:LOG;FEE:FEE;FEN:FEN;DLA:DLA;CAP:CAPPS;IRS:IRS;ISM:ISMS;PHA:PHA;CLI:CALM;PRC:PRC;PHM:PHM;^0;6^Q"
^DD(420.4,3,3)=""
^DD(420.4,3,21,0)="^^1^1^2930127^^^^"
^DD(420.4,3,21,1,0)="This is the system identifier."
^DD(420.4,3,"DT")="2990217"
^DD(420.4,4,0)="A/R CODE SHEET^S^0:NO;1:YES;^0;7^Q"
^DD(420.4,4,21,0)="^^1^1^2910515^"
^DD(420.4,4,21,1,0)="This is the Accounts Receivable code sheet."
^DD(420.4,4,"DT")="2880328"
^DD(420.4,5,0)="CODE SHEET LENGTH^NJ3,0^^0;8^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.4,5,3)="Type a Number between 1 and 200, 0 Decimal Digits"
^DD(420.4,5,21,0)="^^1^1^2911010^^"
^DD(420.4,5,21,1,0)="This is the length of the code sheet."
^DD(420.4,5,"DT")="2890710"
^DD(420.4,"B","A/R CODE SHEET",4)=""
^DD(420.4,"B","ACTIVE CODE SHEET",1)=""
^DD(420.4,"B","BATCH PROMPT",.7)=""
^DD(420.4,"B","CODE SHEET LENGTH",5)=""
^DD(420.4,"B","EDIT TEMPLATE",.5)=""
^DD(420.4,"B","GENERAL PURPOSE",2)=""
^DD(420.4,"B","NUMBER",.001)=""
^DD(420.4,"B","SYSTEM IDENTIFIER",3)=""
^DD(420.4,"B","TRANS.STATUS CODE",.01)=""
^DD(420.4,"GL",0,1,.01)=""
^DD(420.4,"GL",0,2,2)=""
^DD(420.4,"GL",0,3,.5)=""
^DD(420.4,"GL",0,4,.7)=""
^DD(420.4,"GL",0,5,1)=""
^DD(420.4,"GL",0,6,3)=""
^DD(420.4,"GL",0,7,4)=""
^DD(420.4,"GL",0,8,5)=""
^DD(420.4,"IX",.01)=""
^DD(420.4,"RQ",.01)=""
^DD(420.4,"RQ",.7)=""
^DD(420.4,"RQ",1)=""
^DD(420.4,"RQ",3)=""
^DD(420.5,0)="FIELD^NL^2^3"
^DD(420.5,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(420.5,0,"IX","B",420.5,.01)=""
^DD(420.5,0,"IX","C",420.5,1)=""
^DD(420.5,0,"NM","UNIT OF ISSUE")=""
^DD(420.5,0,"PT",410.02,3)=""
^DD(420.5,0,"PT",423,303)=""
^DD(420.5,0,"PT",430.02,5)=""
^DD(420.5,0,"PT",433.061,5)=""
^DD(420.5,0,"PT",441,21)=""
^DD(420.5,0,"PT",441.01,1.5)=""
^DD(420.5,0,"PT",442.01,3)=""
^DD(420.5,0,"PT",442.01,9.4)=""
^DD(420.5,0,"PT",443.61,3)=""
^DD(420.5,0,"PT",443.61,9.4)=""
^DD(420.5,0,"PT",444.019,3)=""
^DD(420.5,0,"PT",444.019,14.2)=""
^DD(420.5,0,"PT",444.019,18)=""
^DD(420.5,0,"PT",444.026,3)=""
^DD(420.5,0,"PT",444.027,3)=""
^DD(420.5,0,"PT",445.01,4)=""
^DD(420.5,0,"PT",445.07,1)=""
^DD(420.5,0,"PT",445.09,2)=""
^DD(420.5,0,"PT",660,78)=""
^DD(420.5,0,"PT",661.11,5)=""
^DD(420.5,0,"PT",661.2,5)=""
^DD(420.5,0,"PT",661.312,24)=""
^DD(420.5,0,"PT",661.63,11)=""
^DD(420.5,0,"PT",661.7,8)=""
^DD(420.5,0,"PT",664.02,4)=""
^DD(420.5,0,"PT",664.16,3)=""
^DD(420.5,0,"PT",664.22,6)=""
^DD(420.5,0,"PT",665.194,4)=""
^DD(420.5,0,"PT",665.723191,14)=""
^DD(420.5,0,"PT",6917,5)=""
^DD(420.5,0,"VR")="5.1"
^DD(420.5,0,"VRPK")="IFCAP"
^DD(420.5,.01,0)="NAME^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(420.5,.01,1,0)="^.1"
^DD(420.5,.01,1,1,0)="420.5^B"
^DD(420.5,.01,1,1,1)="S ^PRCD(420.5,""B"",$E(X,1,30),DA)="""""
^DD(420.5,.01,1,1,2)="K ^PRCD(420.5,""B"",$E(X,1,30),DA)"
^DD(420.5,.01,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(420.5,.01,21,0)="^^1^1^2910515^"
^DD(420.5,.01,21,1,0)="This is the name of the unit of the item."
^DD(420.5,1,0)="FULL NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X?.ANP) X"
^DD(420.5,1,1,0)="^.1"
^DD(420.5,1,1,1,0)="420.5^C"
^DD(420.5,1,1,1,1)="S ^PRCD(420.5,""C"",$E(X,1,30),DA)="""""
^DD(420.5,1,1,1,2)="K ^PRCD(420.5,""C"",$E(X,1,30),DA)"
^DD(420.5,1,1,1,"%D",0)="^^2^2^2930624^"
^DD(420.5,1,1,1,"%D",1,0)="This cross reference is set on a valid unit of"
^DD(420.5,1,1,1,"%D",2,0)="issue (i.e. ""CASE"",""BOTTLE"")."
^DD(420.5,1,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(420.5,1,21,0)="^^1^1^2910515^"
^DD(420.5,1,21,1,0)="This is the full name of the unit of issue."
^DD(420.5,1,"DT")="2850605"
^DD(420.5,2,0)="DLA UNIT OF ISSUE CODE^F^^0;3^K:$L(X)>2!($L(X)<2) X"
^DD(420.5,2,3)="Enter DLA Unit of Issue code, associated with the IFCAP unit (for code sheets).  ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(420.5,2,21,0)="^^2^2^2911010^^"
^DD(420.5,2,21,1,0)="This is the Defense Logistics Agency (DLA) Unit of issue code,"
^DD(420.5,2,21,2,0)="associated with the IFCAP unit (for code sheets)."
^DD(420.5,2,"DT")="2890418"
^DD(420.5,"B","DLA UNIT OF ISSUE CODE",2)=""
^DD(420.5,"B","FULL NAME",1)=""
^DD(420.5,"B","NAME",.01)=""
^DD(420.5,"GL",0,1,.01)=""
^DD(420.5,"GL",0,2,1)=""
^DD(420.5,"GL",0,3,2)=""
^DD(420.5,"IX",.01)=""
^DD(420.5,"IX",1)=""
^DD(420.5,"RQ",.01)=""
^DD(420.51,0)="FIELD^^2^4"
^DD(420.51,0,"DDA")="N"
^DD(420.51,0,"DT")="3050126"
^DD(420.51,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(420.51,0,"IX","B",420.51,.01)=""
^DD(420.51,0,"NM","REASON NOT COMPETED")=""
^DD(420.51,0,"PT",442,117)=""
^DD(420.51,0,"VR")="5.1"
^DD(420.51,0,"VRPK")="PRC"
^DD(420.51,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.51,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(420.51,.001,21,0)="^.001^1^1^3050216^^^^"
^DD(420.51,.001,21,1,0)="This is the number that identifies the entry within the file."
^DD(420.51,.001,"DT")="3050110"
^DD(420.51,.01,0)="CODE^RFI^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(420.51,.01,1,0)="^.1"
^DD(420.51,.01,1,1,0)="420.51^B"
^DD(420.51,.01,1,1,1)="S ^PRCD(420.51,""B"",$E(X,1,30),DA)="""""
^DD(420.51,.01,1,1,2)="K ^PRCD(420.51,""B"",$E(X,1,30),DA)"
^DD(420.51,.01,3)="Answer must be 1-10 characters in length"
^DD(420.51,.01,21,0)="^.001^1^1^3050216^^"
^DD(420.51,.01,21,1,0)="This is the short name for a reason not competed code."
^DD(420.51,.01,"DT")="3050216"
^DD(420.51,1,0)="STATUS^S^I:INACTIVE;^0;2^Q"
^DD(420.51,1,21,0)="^.001^1^1^3041208^^"
^DD(420.51,1,21,1,0)="Inactive entries will be indicated by this code."
^DD(420.51,1,"DT")="3041208"
^DD(420.51,2,0)="DESCRIPTION^RF^^0;3^K:$L(X)>200!($L(X)<1) X"
^DD(420.51,2,3)="Answer must be 1-200 characters in length."
^DD(420.51,2,21,0)="^^1^1^3041103^"
^DD(420.51,2,21,1,0)="This is the description of the reason not competed code."
^DD(420.51,2,"DT")="3041103"
^DD(420.51,"B","CODE",.01)=""
^DD(420.51,"B","DESCRIPTION",2)=""
^DD(420.51,"B","NUMBER",.001)=""
^DD(420.51,"B","STATUS",1)=""
^DD(420.51,"GL",0,1,.01)=""
^DD(420.51,"GL",0,2,1)=""
^DD(420.51,"GL",0,3,2)=""
^DD(420.51,"IX",.01)=""
^DD(420.51,"RQ",.01)=""
^DD(420.51,"RQ",2)=""
^DD(420.52,0)="FIELD^^2^4"
^DD(420.52,0,"DDA")="N"
^DD(420.52,0,"DT")="3041208"
^DD(420.52,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(420.52,0,"IX","B",420.52,.01)=""
^DD(420.52,0,"NM","SOLICITATION PROCEDURE")=""
^DD(420.52,0,"PT",442,121)=""
^DD(420.52,0,"VR")="5.1"
^DD(420.52,0,"VRPK")="PRC"
^DD(420.52,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.52,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(420.52,.001,21,0)="^.001^1^1^3050216^^"
^DD(420.52,.001,21,1,0)="This is the number that identifies the entry within the file."
^DD(420.52,.001,"DT")="3050110"
^DD(420.52,.01,0)="CODE^RFI^^0;1^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(420.52,.01,1,0)="^.1"
^DD(420.52,.01,1,1,0)="420.52^B"
^DD(420.52,.01,1,1,1)="S ^PRCD(420.52,""B"",$E(X,1,30),DA)="""""
^DD(420.52,.01,1,1,2)="K ^PRCD(420.52,""B"",$E(X,1,30),DA)"
^DD(420.52,.01,3)="Answer must be 1-3 characters in length."
^DD(420.52,.01,21,0)="^^1^1^3041103^"
^DD(420.52,.01,21,1,0)="This is the short name for the solicitation procedure code."
^DD(420.52,.01,"DT")="3050110"
^DD(420.52,1,0)="STATUS^S^I:INACTIVE;^0;2^Q"
^DD(420.52,1,21,0)="^^1^1^3041208^"
^DD(420.52,1,21,1,0)="Inactive entries will be indicated by this code."
^DD(420.52,1,"DT")="3041208"
^DD(420.52,2,0)="DESCRIPTION^RF^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(420.52,2,3)="Answer must be 1-50 characters in length."
^DD(420.52,2,21,0)="^^1^1^3041103^"
^DD(420.52,2,21,1,0)="Short description of the code for solicitation procedure."
^DD(420.52,2,"DT")="3041103"
^DD(420.52,"B","CODE",.01)=""
^DD(420.52,"B","DESCRIPTION",2)=""
^DD(420.52,"B","NUMBER",.001)=""
^DD(420.52,"B","STATUS",1)=""
^DD(420.52,"GL",0,1,.01)=""
^DD(420.52,"GL",0,2,1)=""
^DD(420.52,"GL",0,3,2)=""
^DD(420.52,"IX",.01)=""
^DD(420.52,"RQ",.01)=""
^DD(420.52,"RQ",2)=""
^DD(420.53,0)="FIELD^^2^4"
^DD(420.53,0,"DDA")="N"
^DD(420.53,0,"DT")="3050105"
^DD(420.53,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(420.53,0,"IX","B",420.53,.01)=""
^DD(420.53,0,"NM","EXTENT COMPETED")=""
^DD(420.53,0,"PT",442,128)=""
^DD(420.53,0,"VR")="5.1"
^DD(420.53,0,"VRPK")="PRC"
^DD(420.53,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.53,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(420.53,.001,21,0)="^.001^1^1^3050105^^"
^DD(420.53,.001,21,1,0)="This is the number that identifies the entry within the file."
^DD(420.53,.001,"DT")="3050110"
^DD(420.53,.01,0)="CODE^RFI^^0;1^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(420.53,.01,1,0)="^.1"
^DD(420.53,.01,1,1,0)="420.53^B"
^DD(420.53,.01,1,1,1)="S ^PRCD(420.53,""B"",$E(X,1,30),DA)="""""
^DD(420.53,.01,1,1,2)="K ^PRCD(420.53,""B"",$E(X,1,30),DA)"
^DD(420.53,.01,3)="Answer must be 1-5 characters in length."
^DD(420.53,.01,21,0)="^.001^1^1^3050105^^^"
^DD(420.53,.01,21,1,0)="This is the code for the extent competed."
^DD(420.53,.01,"DT")="3050110"
^DD(420.53,1,0)="STATUS^S^I:INACTIVE;^0;2^Q"
^DD(420.53,1,21,0)="^.001^1^1^3050105^^"
^DD(420.53,1,21,1,0)="Inactive entries will be indicated by this code."
^DD(420.53,1,"DT")="3041208"
^DD(420.53,2,0)="DESCRIPTION^RF^^0;3^K:$L(X)>65!($L(X)<1) X"
^DD(420.53,2,3)="Answer must be 1-65 characters in length."
^DD(420.53,2,21,0)="^.001^1^1^3050105^^"
^DD(420.53,2,21,1,0)="This is a short description of the extent competed."
^DD(420.53,2,"DT")="3050105"
^DD(420.53,"B","CODE",.01)=""
^DD(420.53,"B","DESCRIPTION",2)=""
^DD(420.53,"B","NUMBER",.001)=""
^DD(420.53,"B","STATUS",1)=""
^DD(420.53,"GL",0,1,.01)=""
^DD(420.53,"GL",0,2,1)=""
^DD(420.53,"GL",0,3,2)=""
^DD(420.53,"IX",.01)=""
^DD(420.53,"RQ",.01)=""
^DD(420.53,"RQ",2)=""
^DD(420.54,0)="FIELD^^2^4"
^DD(420.54,0,"DDA")="N"
^DD(420.54,0,"DT")="3041208"
^DD(420.54,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(420.54,0,"IX","B",420.54,.01)=""
^DD(420.54,0,"NM","EVALUATED PREFERENCE")=""
^DD(420.54,0,"PT",442,122)=""
^DD(420.54,0,"VR")="5.1"
^DD(420.54,0,"VRPK")="PRC"
^DD(420.54,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.54,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(420.54,.001,21,0)="^^1^1^3041103^"
^DD(420.54,.001,21,1,0)="This is the number that identifies the entry within the file."
^DD(420.54,.001,"DT")="3050110"
^DD(420.54,.01,0)="CODE^RFI^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(420.54,.01,1,0)="^.1"
^DD(420.54,.01,1,1,0)="420.54^B"
^DD(420.54,.01,1,1,1)="S ^PRCD(420.54,""B"",$E(X,1,30),DA)="""""
^DD(420.54,.01,1,1,2)="K ^PRCD(420.54,""B"",$E(X,1,30),DA)"
^DD(420.54,.01,3)="Answer must be 1-15 characters in length."
^DD(420.54,.01,21,0)="^.001^1^1^3050211^^^"
^DD(420.54,.01,21,1,0)="This is the short name for the evaluated preference."
^DD(420.54,.01,"DT")="3050127"
^DD(420.54,1,0)="STATUS^S^I:INACTIVE;^0;2^Q"
^DD(420.54,1,21,0)="^^1^1^3041208^"
^DD(420.54,1,21,1,0)="Inactive entries will be indicated by this code."
^DD(420.54,1,"DT")="3041208"
^DD(420.54,2,0)="DESCRIPTION^RF^^0;3^K:$L(X)>100!($L(X)<1) X"
^DD(420.54,2,3)="Answer must be 1-100 characters in length."
^DD(420.54,2,21,0)="^^1^1^3041103^"
^DD(420.54,2,21,1,0)="This is the description of the evaluated preference code."
^DD(420.54,2,"DT")="3041103"
^DD(420.54,"B","CODE",.01)=""
^DD(420.54,"B","DESCRIPTION",2)=""
^DD(420.54,"B","NUMBER",.001)=""
^DD(420.54,"B","STATUS",1)=""
^DD(420.54,"GL",0,1,.01)=""
^DD(420.54,"GL",0,2,1)=""
^DD(420.54,"GL",0,3,2)=""
^DD(420.54,"IX",.01)=""
^DD(420.54,"RQ",.01)=""
^DD(420.54,"RQ",2)=""
^DD(420.55,0)="FIELD^^2^4"
^DD(420.55,0,"DDA")="N"
^DD(420.55,0,"DT")="3041208"
^DD(420.55,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(420.55,0,"IX","B",420.55,.01)=""
^DD(420.55,0,"NM","EPA DESIGNATED PRODUCT")=""
^DD(420.55,0,"PT",442,126)=""
^DD(420.55,0,"VR")="5.1"
^DD(420.55,0,"VRPK")="PRC"
^DD(420.55,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.55,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(420.55,.001,21,0)="^^1^1^3041104^"
^DD(420.55,.001,21,1,0)="This is the number that identifies the entry within the file."
^DD(420.55,.001,"DT")="3050110"
^DD(420.55,.01,0)="CODE^RFI^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(420.55,.01,1,0)="^.1"
^DD(420.55,.01,1,1,0)="420.55^B"
^DD(420.55,.01,1,1,1)="S ^PRCD(420.55,""B"",$E(X,1,30),DA)="""""
^DD(420.55,.01,1,1,2)="K ^PRCD(420.55,""B"",$E(X,1,30),DA)"
^DD(420.55,.01,3)="Answer must be 1-15 characters in length."
^DD(420.55,.01,21,0)="^^1^1^3041104^"
^DD(420.55,.01,21,1,0)="This is the short name used to indicate EPA Designated Products."
^DD(420.55,.01,"DT")="3050110"
^DD(420.55,1,0)="STATUS^S^I:INACTIVE;^0;2^Q"
^DD(420.55,1,21,0)="^^1^1^3041208^"
^DD(420.55,1,21,1,0)="Inactive entries will be indicated by this code."
^DD(420.55,1,"DT")="3041208"
^DD(420.55,2,0)="DESCRIPTION^RF^^0;3^K:$L(X)>200!($L(X)<1) X"
^DD(420.55,2,3)="Answer must be 1-200 characters in length."
^DD(420.55,2,21,0)="^^2^2^3041104^"
^DD(420.55,2,21,1,0)="This is the description of the code used to indicate an EPA Designated "
^DD(420.55,2,21,2,0)="Product."
^DD(420.55,2,"DT")="3041104"
^DD(420.55,"B","CODE",.01)=""
^DD(420.55,"B","DESCRIPTION",2)=""
^DD(420.55,"B","NUMBER",.001)=""
^DD(420.55,"B","STATUS",1)=""
^DD(420.55,"GL",0,1,.01)=""
^DD(420.55,"GL",0,2,1)=""
^DD(420.55,"GL",0,3,2)=""
^DD(420.55,"IX",.01)=""
^DD(420.55,"RQ",.01)=""
^DD(420.55,"RQ",2)=""
^DD(420.6,0)="FIELD^^5^7"
^DD(420.6,0,"DDA")="N"
^DD(420.6,0,"DT")="3041228"
^DD(420.6,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(420.6,0,"ID","Z1")="I $P(^(0),U,4)]"""" W !?13,$P(^(0),U,4)"
^DD(420.6,0,"IX","B",420.6,.01)=""
^DD(420.6,0,"NM","CODE INDEX")=""
^DD(420.6,0,"PT",161.225,.01)=""
^DD(420.6,0,"PT",440.01,.01)=""
^DD(420.6,0,"PT",440.05,.01)=""
^DD(420.6,0,"PT",440.31,.01)=""
^DD(420.6,0,"PT",440.35,.01)=""
^DD(420.6,0,"PT",442.1,1)=""
^DD(420.6,0,"PT",442.1,1.1)=""
^DD(420.6,0,"PT",442.1,1.2)=""
^DD(420.6,0,"PT",442.16,.01)=""
^DD(420.6,0,"PT",443.7,1)=""
^DD(420.6,0,"PT",443.7,1.1)=""
^DD(420.6,0,"PT",443.7,1.2)=""
^DD(420.6,0,"PT",444.11,.01)=""
^DD(420.6,0,"PT",444.19,.01)=""
^DD(420.6,0,"SCR")="X $S($G(PRCHCDIN)]"""":""I 1"",1:""I $P(^(0),U,5)'=""""N"""""")"
^DD(420.6,0,"VR")="5.1"
^DD(420.6,0,"VRPK")="PRC"
^DD(420.6,.001,0)="NUMBER^NJ12,0^^ ^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.6,.001,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(420.6,.001,21,0)="^^2^2^2911010^^"
^DD(420.6,.001,21,1,0)="This is the number that identifies the entry within the file.  The file"
^DD(420.6,.001,21,2,0)="contains Federal Procurement Data Systems (FPDS) index codes."
^DD(420.6,.001,"DT")="2890503"
^DD(420.6,.01,0)="NAME^RFI^^0;1^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(420.6,.01,1,0)="^.1"
^DD(420.6,.01,1,1,0)="420.6^B"
^DD(420.6,.01,1,1,1)="S ^PRCD(420.6,""B"",$E(X,1,30),DA)="""""
^DD(420.6,.01,1,1,2)="K ^PRCD(420.6,""B"",$E(X,1,30),DA)"
^DD(420.6,.01,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH & NOT BEGINNING WITH PUNCTUATION"
^DD(420.6,.01,21,0)="^^2^2^3050110^"
^DD(420.6,.01,21,1,0)="This is the name of the code index. Updated to accept up to four chars "
^DD(420.6,.01,21,2,0)="to support the new FPDS report."
^DD(420.6,.01,"DT")="3050211"
^DD(420.6,1,0)="CODE INDEX^RF^^0;2^K:$L(X)>75!($L(X)<10) X"
^DD(420.6,1,3)="ANSWER MUST BE 10-75 CHARACTERS IN LENGTH"
^DD(420.6,1,21,0)="^.001^1^1^3041228^^"
^DD(420.6,1,21,1,0)="This is the code for the index."
^DD(420.6,2,0)="EFFECTIVE DATE^RS^0:88;1:89;^0;3^Q"
^DD(420.6,2,3)="ENTER A '0' FOR 'FY88'  OR  '1' FOR 'FY89'"
^DD(420.6,2,21,0)="^^2^2^2911010^"
^DD(420.6,2,21,1,0)="This is the year that the Federal Procurement Data Systems (FPDS) index"
^DD(420.6,2,21,2,0)="code became effective."
^DD(420.6,2,"DT")="2880810"
^DD(420.6,3,0)="SHORT DESC.^F^^0;4^K:$L(X)>80!($L(X)<3) X"
^DD(420.6,3,3)="ANSWER MUST BE 3-80 CHARACTERS IN LENGTH"
^DD(420.6,3,21,0)="^^4^4^2911010^^"
^DD(420.6,3,21,1,0)="This is a short description of the category defined under the Federal"
^DD(420.6,3,21,2,0)="Procurement Data Systems (FPDS) index codes.  The codes are used to"
^DD(420.6,3,21,3,0)="track the types of business from which goods are being procured, in"
^DD(420.6,3,21,4,0)="order to do reporting to Central Office."
^DD(420.6,3,"DT")="2880819"
^DD(420.6,4,0)="DISPLAY^S^N:DO NOT DISPLAY;^0;5^Q"
^DD(420.6,4,23,0)="^^10^10^2970324^^"
^DD(420.6,4,23,1,0)="If this field (DISPLAY) is set and the variable PRCHCDIN is undefined "
^DD(420.6,4,23,2,0)="then the screen on this file will prevent any record with this field "
^DD(420.6,4,23,3,0)="set (with 'N') from being displayed."
^DD(420.6,4,23,4,0)="  "
^DD(420.6,4,23,5,0)="The following must be done in programmer mode."
^DD(420.6,4,23,6,0)="  "
^DD(420.6,4,23,7,0)="If you want to edit an entry in this file that has this field set"
^DD(420.6,4,23,8,0)="you must set the variable PRCHCDIN (S PRCHCDIN=1).  You must enter"
^DD(420.6,4,23,9,0)="FileMan via D Q^DI so that you do not kill the variable PRCHCDIN as "
^DD(420.6,4,23,10,0)="soon as you enter FileMan."
^DD(420.6,4,"DT")="2961108"
^DD(420.6,5,0)="APPLICABLE BUS. TYPE^FX^^0;6^D EN1^PRCHFPD3"
^DD(420.6,5,3)="1 = Small Business, 2 = Large Business, 3 = Outside U.S., 4 = Other Entities  (1-30 chars)"
^DD(420.6,5,21,0)="^^18^18^2970814^"
^DD(420.6,5,21,1,0)=" "
^DD(420.6,5,21,2,0)="This field will hold the Business Type that is applicable to the"
^DD(420.6,5,21,3,0)="Socioeconomic Group for the selected Vendor. "
^DD(420.6,5,21,4,0)=" "
^DD(420.6,5,21,5,0)="User may enter one or more Business Type.  It will display as"
^DD(420.6,5,21,6,0)="1,2 or 1,3,4 etc.."
^DD(420.6,5,21,7,0)=" "
^DD(420.6,5,21,8,0)="The user must enter a minimum of 1 character and a maximum of 30"
^DD(420.6,5,21,9,0)="characters.  The system will filter out all the duplicates and"
^DD(420.6,5,21,10,0)="any non-numeric characters greater than 4 that might have been used as"
^DD(420.6,5,21,11,0)="delimeter or anything else."
^DD(420.6,5,21,12,0)=" "
^DD(420.6,5,21,13,0)="The valid Business Types are as follows:"
^DD(420.6,5,21,14,0)=" "
^DD(420.6,5,21,15,0)="                      1 : Small Business"
^DD(420.6,5,21,16,0)="                      2 : Large Business"
^DD(420.6,5,21,17,0)="                      3 : Outside U.S."
^DD(420.6,5,21,18,0)="                      4 : Other Entities"
^DD(420.6,5,23,0)="^^6^6^2970814^^^^"
^DD(420.6,5,23,1,0)="The four Business Types that can be applied to a Vendor are as follows:"
^DD(420.6,5,23,2,0)=" "
^DD(420.6,5,23,3,0)="     1 : Small Business"
^DD(420.6,5,23,4,0)="     2 : Large Business"
^DD(420.6,5,23,5,0)="     3 : Outside U.S."
^DD(420.6,5,23,6,0)="     4 : Other Entities"
^DD(420.6,5,"DT")="2970814"
^DD(420.6,"B","APPLICABLE BUS. TYPE",5)=""
^DD(420.6,"B","CODE INDEX",1)=""
^DD(420.6,"B","DISPLAY",4)=""
^DD(420.6,"B","EFFECTIVE DATE",2)=""
^DD(420.6,"B","NAME",.01)=""
^DD(420.6,"B","NUMBER",.001)=""
^DD(420.6,"B","SHORT DESC.",3)=""
^DD(420.6,"GL",0,1,.01)=""
^DD(420.6,"GL",0,2,1)=""
^DD(420.6,"GL",0,3,2)=""
^DD(420.6,"GL",0,4,3)=""
^DD(420.6,"GL",0,5,4)=""
^DD(420.6,"GL",0,6,5)=""
^DD(420.6,"IX",.01)=""
^DD(420.6,"RQ",.01)=""
^DD(420.6,"RQ",1)=""
^DD(420.6,"RQ",2)=""
^DD(420.7,0)="FIELD^^2^4"
^DD(420.7,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(420.7,0,"IX","B",420.7,.01)=""
^DD(420.7,0,"IX","C",420.7,1)=""
^DD(420.7,0,"NM","BUDGET DISTRIBUTION CODES")=""
^DD(420.7,0,"PT",421,2)=""
^DD(420.7,0,"VR")="5.1"
^DD(420.7,0,"VRPK")="IFCAP"
^DD(420.7,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.7,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 100"
^DD(420.7,.001,21,0)="^^5^5^2911010^^^"
^DD(420.7,.001,21,1,0)="This is the distribution code number that is used when entering funding"
^DD(420.7,.001,21,2,0)="transactions under the Funds Distribution portion of IFCAP (e.g.,"
^DD(420.7,.001,21,3,0)="Number used while performing transactions when funds are distributed to"
^DD(420.7,.001,21,4,0)="a Medical Center with the explicit purpose of hiring people, classified"
^DD(420.7,.001,21,5,0)="as recurring or non-recurring personal services)."
^DD(420.7,.001,"DT")="2860108"
^DD(420.7,.01,0)="NAME^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(420.7,.01,1,0)="^.1"
^DD(420.7,.01,1,1,0)="420.7^B"
^DD(420.7,.01,1,1,1)="S ^PRCF(420.7,""B"",$E(X,1,30),DA)="""""
^DD(420.7,.01,1,1,2)="K ^PRCF(420.7,""B"",$E(X,1,30),DA)"
^DD(420.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(420.7,.01,21,0)="^^1^1^2910515^"
^DD(420.7,.01,21,1,0)="This is the distribution code number."
^DD(420.7,.01,"DT")="2860108"
^DD(420.7,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(420.7,1,1,0)="^.1"
^DD(420.7,1,1,1,0)="420.7^C"
^DD(420.7,1,1,1,1)="S ^PRCF(420.7,""C"",$E(X,1,30),DA)="""""
^DD(420.7,1,1,1,2)="K ^PRCF(420.7,""C"",$E(X,1,30),DA)"
^DD(420.7,1,1,1,"%D",0)="^^2^2^2930624^"
^DD(420.7,1,1,1,"%D",1,0)="This cross reference is set on one of the valid"
^DD(420.7,1,1,1,"%D",2,0)="budget distribution codes (i.e. ""TRNG"",""MCCR"")."
^DD(420.7,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(420.7,1,21,0)="^^1^1^2910515^"
^DD(420.7,1,21,1,0)="This is an abbreviation for the distribution code."
^DD(420.7,1,"DT")="2860108"
^DD(420.7,2,0)="SORT ORDER^NJ4,1^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""2N.N) X"
^DD(420.7,2,3)="TYPE A NUMBER BETWEEN 1 AND 99"
^DD(420.7,2,21,0)="^^1^1^2910515^"
^DD(420.7,2,21,1,0)="This is the sort order of the distribution code."
^DD(420.7,2,"DT")="2861216"
^DD(420.7,"B","ABBREVIATION",1)=""
^DD(420.7,"B","NAME",.01)=""
^DD(420.7,"B","NUMBER",.001)=""
^DD(420.7,"B","SORT ORDER",2)=""
^DD(420.7,"GL",0,1,.01)=""
^DD(420.7,"GL",0,2,1)=""
^DD(420.7,"GL",0,3,2)=""
^DD(420.7,"IX",.01)=""
^DD(420.7,"IX",1)=""
^DD(420.7,"RQ",.01)=""
^DD(420.8,0)="FIELD^^4^5"
^DD(420.8,0,"DT")="2930702"
^DD(420.8,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(420.8,0,"IX","B",420.8,.01)=""
^DD(420.8,0,"IX","C",420.8,3)=""
^DD(420.8,0,"NM","SOURCE CODE")=""
^DD(420.8,0,"PT",440,.06)=""
^DD(420.8,0,"PT",440.3,.06)=""
^DD(420.8,0,"PT",442,8)=""
^DD(420.8,0,"PT",443.6,8)=""
^DD(420.8,0,"PT",445.2,11)=""
^DD(420.8,0,"PT",6914,13.5)=""
^DD(420.8,0,"VR")="5.1"
^DD(420.8,0,"VRPK")="IFCAP"
^DD(420.8,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(420.8,.01,1,0)="^.1"
^DD(420.8,.01,1,1,0)="420.8^B"
^DD(420.8,.01,1,1,1)="S ^PRCD(420.8,""B"",$E(X,1,30),DA)="""""
^DD(420.8,.01,1,1,2)="K ^PRCD(420.8,""B"",$E(X,1,30),DA)"
^DD(420.8,.01,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(420.8,.01,21,0)="^^5^5^2911010^^"
^DD(420.8,.01,21,1,0)="This is the code identifying the procurement source for goods.  The"
^DD(420.8,.01,21,2,0)="code is used to update centralized reporting for procurement and define"
^DD(420.8,.01,21,3,0)="either specific government sources (i.e., Depot, GSA), or methods of"
^DD(420.8,.01,21,4,0)="procuring goods from external sources (i.e., goods procured via"
^DD(420.8,.01,21,5,0)="government contract)."
^DD(420.8,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>33!($L(X)<3) X"
^DD(420.8,1,3)="ANSWER MUST BE 3-33 CHARACTERS IN LENGTH"
^DD(420.8,1,21,0)="^^1^1^2910515^"
^DD(420.8,1,21,1,0)="This is the description of the source code."
^DD(420.8,2,0)="FISCAL EQUIV.^NJ1,0^^0;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.8,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(420.8,2,21,0)="^^1^1^2910515^"
^DD(420.8,2,21,1,0)="This is the fiscal equivalent for this code."
^DD(420.8,2,"DT")="2860321"
^DD(420.8,3,0)="ABBREVIATION^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(420.8,3,1,0)="^.1"
^DD(420.8,3,1,1,0)="420.8^C"
^DD(420.8,3,1,1,1)="S ^PRCD(420.8,""C"",$E(X,1,30),DA)="""""
^DD(420.8,3,1,1,2)="K ^PRCD(420.8,""C"",$E(X,1,30),DA)"
^DD(420.8,3,1,1,"%D",0)="^^2^2^2930624^"
^DD(420.8,3,1,1,"%D",1,0)="This cross reference is set on one of the valid"
^DD(420.8,3,1,1,"%D",2,0)="source codes (i.e. ""DLA"",""GSA"")."
^DD(420.8,3,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(420.8,3,21,0)="^^1^1^2910515^"
^DD(420.8,3,21,1,0)="This is the abbreviation for the code."
^DD(420.8,3,"DT")="2870904"
^DD(420.8,4,0)="AGENCY CODE^F^^0;5^K:$L(X)>3!($L(X)<3) X"
^DD(420.8,4,3)="Answer must be 3 characters in length."
^DD(420.8,4,21,0)="^^1^1^2930702^"
^DD(420.8,4,21,1,0)="This field is used for federal receiving reports."
^DD(420.8,4,"DT")="2930702"
^DD(420.8,"B","ABBREVIATION",3)=""
^DD(420.8,"B","AGENCY CODE",4)=""
^DD(420.8,"B","CODE",.01)=""
^DD(420.8,"B","DESCRIPTION",1)=""
^DD(420.8,"B","FISCAL EQUIV.",2)=""
^DD(420.8,"GL",0,1,.01)=""
^DD(420.8,"GL",0,2,1)=""
^DD(420.8,"GL",0,3,2)=""
^DD(420.8,"GL",0,4,3)=""
^DD(420.8,"GL",0,5,4)=""
^DD(420.8,"IX",.01)=""
^DD(420.8,"IX",3)=""
^DD(420.8,"RQ",.01)=""
^DD(420.8,"RQ",1)=""
^DD(420.9,0)="FIELD^^1^3"
^DD(420.9,0,"DT")="2930204"
^DD(420.9,0,"IX","B",420.9,.01)=""
^DD(420.9,0,"NM","INTERMEDIATE PRODUCT")=""
^DD(420.9,0,"PT",410.02,10)=""
^DD(420.9,0,"PT",442.01,3.6)=""
^DD(420.9,0,"PT",443.61,3.6)=""
^DD(420.9,0,"VR")="5.1"
^DD(420.9,0,"VRPK")="IFCAP"
^DD(420.9,.001,0)="INTERMEDIATE PRODUCT NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.9,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(420.9,.001,21,0)="^^1^1^2911010^^"
^DD(420.9,.001,21,1,0)="Currently Undefined (Not In Use)."
^DD(420.9,.001,"DT")="2860306"
^DD(420.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(420.9,.01,1,0)="^.1"
^DD(420.9,.01,1,1,0)="420.9^B"
^DD(420.9,.01,1,1,1)="S ^PRCD(420.9,""B"",$E(X,1,30),DA)="""""
^DD(420.9,.01,1,1,2)="K ^PRCD(420.9,""B"",$E(X,1,30),DA)"
^DD(420.9,.01,3)="Answer must be 3-30 characters in length."
^DD(420.9,.01,21,0)="^^1^1^2911016^^^"
^DD(420.9,.01,21,1,0)="This is the name of the intermediate product."
^DD(420.9,.01,"DT")="2930204"
^DD(420.9,1,0)="CDR COST CENTER^420.91^^1;0"
^DD(420.9,1,21,0)="^^1^1^2910515^^^^"
^DD(420.9,1,21,1,0)="For use in cost distribution reports; either the RCS10-0141 or other."
^DD(420.9,"B","CDR COST CENTER",1)=""
^DD(420.9,"B","INTERMEDIATE PRODUCT NUMBER",.001)=""
^DD(420.9,"B","NAME",.01)=""
^DD(420.9,"GL",0,1,.01)=""
^DD(420.9,"GL",1,0,1)=""
^DD(420.9,"IX",.01)=""
^DD(420.9,"RQ",.01)=""
^DD(420.9,"SB",420.91,1)=""
^DD(420.91,0)="CDR COST CENTER SUB-FIELD^^2^3"
^DD(420.91,0,"NM","CDR COST CENTER")=""
^DD(420.91,0,"UP")="420.9"
^DD(420.91,.01,0)="COST CENTER^MNJ9,2^^0;1^K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(420.91,.01,3)="Enter the RCS 10-0141 COST CENTER NUMBER; OR YOUR OWN REPORT COST DISTRIBUTION CODE FOR THE ACCOUNTS YOU WISH TO ESTABLISH AS COST DISTRIBUTION POINT."
^DD(420.91,.01,21,0)="^^1^1^2910515^"
^DD(420.91,.01,21,1,0)="This is the number of the cost center."
^DD(420.91,.01,"DT")="2890712"
^DD(420.91,1,0)="Service^420.911^^1;0"
^DD(420.91,1,21,0)="^^1^1^2910515^"
^DD(420.91,1,21,1,0)="This is the name of the service."
^DD(420.91,2,0)="MIS SECTION^F^^2;1^K:$L(X)>20!($L(X)<3) X"
^DD(420.91,2,3)="ENTER COSTING SECTION OF SERVICE YOU WISH TO DISTRIBUTE COSTS TO, ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(420.91,2,21,0)="^^1^1^2911011^^^"
^DD(420.91,2,21,1,0)="This is the name of the MIS (Management Information System) section."
^DD(420.91,2,"DT")="2890712"
^DD(420.91,"B","COST CENTER",.01)=""
^DD(420.91,"B","MIS SECTION",2)=""
^DD(420.91,"B","Service",1)=""
^DD(420.91,"GL",0,1,.01)=""
^DD(420.91,"GL",1,0,1)=""
^DD(420.91,"GL",2,1,2)=""
^DD(420.91,"SB",420.911,1)=""
^DD(420.911,0)="Service SUB-FIELD^^.01^1"
^DD(420.911,0,"IX","B",420.911,.01)=""
^DD(420.911,0,"NM","Service")=""
^DD(420.911,0,"UP")="420.91"
^DD(420.911,.01,0)="Service^MF^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(420.911,.01,1,0)="^.1"
^DD(420.911,.01,1,1,0)="420.911^B"
^DD(420.911,.01,1,1,1)="S ^PRCD(420.9,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(420.911,.01,1,1,2)="K ^PRCD(420.9,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(420.911,.01,3)="Service entries may correspond to organizational entities such as Medical, Bed Sections, Medicine or OPC clinics.   MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(420.911,.01,21,0)="^^1^1^2930204^^"
^DD(420.911,.01,21,1,0)="This is the name of the service."
^DD(420.911,.01,"DT")="2890712"
^DD(420.911,"B","Service",.01)=""
^DD(420.911,"GL",0,1,.01)=""
^DD(420.911,"IX",.01)=""
^DD(420.92,0)="FIELD^^5^9"
^DD(420.92,0,"DT")="2941005"
^DD(420.92,0,"IX","B",420.92,.01)=""
^DD(420.92,0,"IX","C",420.92,2)=""
^DD(420.92,0,"IX","D",420.92,2.5)=""
^DD(420.92,0,"IX","E",420.92,2.6)=""
^DD(420.92,0,"IX","F",420.92,2.7)=""
^DD(420.92,0,"NM","PRCU IFCAP/FMS CONVERSION")=""
^DD(420.92,0,"VR")="5.1"
^DD(420.92,0,"VRPK")="IFCAP"
^DD(420.92,.01,0)="FIX VALUE^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(420.92,.01,1,0)="^.1"
^DD(420.92,.01,1,1,0)="420.92^B"
^DD(420.92,.01,1,1,1)="S ^PRCU(420.92,""B"",$E(X,1,30),DA)="""""
^DD(420.92,.01,1,1,2)="K ^PRCU(420.92,""B"",$E(X,1,30),DA)"
^DD(420.92,.01,3)="Answer must be 1-30 characters in length."
^DD(420.92,.01,21,0)="^^1^1^2941109^"
^DD(420.92,.01,21,1,0)="This is used to store fixed doc-type data."
^DD(420.92,.01,"DT")="2940628"
^DD(420.92,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(420.92,1,3)="Answer must be 1-30 characters in length."
^DD(420.92,1,21,0)="^^1^1^2941109^"
^DD(420.92,1,21,1,0)="This is used to store DESCRIPTION data."
^DD(420.92,1,"DT")="2940628"
^DD(420.92,2,0)="COPY MESSAGE START TIME^RD^^0;3^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(420.92,2,1,0)="^.1"
^DD(420.92,2,1,1,0)="420.92^C"
^DD(420.92,2,1,1,1)="S ^PRCU(420.92,""C"",$E(X,1,30),DA)="""""
^DD(420.92,2,1,1,2)="K ^PRCU(420.92,""C"",$E(X,1,30),DA)"
^DD(420.92,2,1,1,"DT")="2940706"
^DD(420.92,2,21,0)="^^1^1^2941109^"
^DD(420.92,2,21,1,0)="This is used to store COPY MESSAGE START TIME data."
^DD(420.92,2,"DT")="2940706"
^DD(420.92,2.5,0)="COPY MESSAGE END TIME^D^^0;4^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(420.92,2.5,1,0)="^.1"
^DD(420.92,2.5,1,1,0)="420.92^D"
^DD(420.92,2.5,1,1,1)="S ^PRCU(420.92,""D"",$E(X,1,30),DA)="""""
^DD(420.92,2.5,1,1,2)="K ^PRCU(420.92,""D"",$E(X,1,30),DA)"
^DD(420.92,2.5,1,1,"DT")="2940706"
^DD(420.92,2.5,21,0)="^^1^1^2941109^"
^DD(420.92,2.5,21,1,0)="This is used to store COPY MESSAGE END TIME data."
^DD(420.92,2.5,"DT")="2940706"
^DD(420.92,2.6,0)="CONVERSION START TIME^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(420.92,2.6,1,0)="^.1"
^DD(420.92,2.6,1,1,0)="420.92^E"
^DD(420.92,2.6,1,1,1)="S ^PRCU(420.92,""E"",$E(X,1,30),DA)="""""
^DD(420.92,2.6,1,1,2)="K ^PRCU(420.92,""E"",$E(X,1,30),DA)"
^DD(420.92,2.6,1,1,"DT")="2940706"
^DD(420.92,2.6,21,0)="^^1^1^2941109^"
^DD(420.92,2.6,21,1,0)="This is used to store CONVERSION START TIME data."
^DD(420.92,2.6,"DT")="2940706"
^DD(420.92,2.7,0)="CONVERSION END TIME^D^^0;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(420.92,2.7,1,0)="^.1"
^DD(420.92,2.7,1,1,0)="420.92^F"
^DD(420.92,2.7,1,1,1)="S ^PRCU(420.92,""F"",$E(X,1,30),DA)="""""
^DD(420.92,2.7,1,1,2)="K ^PRCU(420.92,""F"",$E(X,1,30),DA)"
^DD(420.92,2.7,1,1,"DT")="2940706"
^DD(420.92,2.7,21,0)="^^1^1^2941109^"
^DD(420.92,2.7,21,1,0)="This is used to store CONVERSION END TIME data."
^DD(420.92,2.7,"DT")="2940706"
^DD(420.92,3,0)="CONTENTS^420.923A^^1;0"
^DD(420.92,3,21,0)="^^1^1^2941109^"
^DD(420.92,3,21,1,0)="This is to store documents CONTENTS."
^DD(420.92,4,0)="TEXTS^420.924^^2;0"
^DD(420.92,4,21,0)="^^1^1^2941109^"
^DD(420.92,4,21,1,0)="This is used to store comments."
^DD(420.92,5,0)="SEQUENCE^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(420.92,5,3)="Answer must be 1-10 characters in length."
^DD(420.92,5,21,0)="^^1^1^2941109^"
^DD(420.92,5,21,1,0)="This is used to store SEQUENCE data."
^DD(420.92,5,"DT")="2941005"
^DD(420.92,"B","CONTENTS",3)=""
^DD(420.92,"B","CONVERSION END TIME",2.7)=""
^DD(420.92,"B","CONVERSION START TIME",2.6)=""
^DD(420.92,"B","COPY MESSAGE END TIME",2.5)=""
^DD(420.92,"B","COPY MESSAGE START TIME",2)=""
^DD(420.92,"B","DESCRIPTION",1)=""
^DD(420.92,"B","FIX VALUE",.01)=""
^DD(420.92,"B","SEQUENCE",5)=""
^DD(420.92,"B","TEXTS",4)=""
^DD(420.92,"GL",0,1,.01)=""
^DD(420.92,"GL",0,2,1)=""
^DD(420.92,"GL",0,3,2)=""
^DD(420.92,"GL",0,4,2.5)=""
^DD(420.92,"GL",0,5,2.6)=""
^DD(420.92,"GL",0,6,2.7)=""
^DD(420.92,"GL",0,7,5)=""
^DD(420.92,"GL",1,0,3)=""
^DD(420.92,"GL",2,0,4)=""
^DD(420.92,"IX",.01)=""
^DD(420.92,"IX",2)=""
^DD(420.92,"IX",2.5)=""
^DD(420.92,"IX",2.6)=""
^DD(420.92,"IX",2.7)=""
^DD(420.92,"RQ",.01)=""
^DD(420.92,"RQ",1)=""
^DD(420.92,"RQ",2)=""
^DD(420.92,"SB",420.923,3)=""
^DD(420.92,"SB",420.924,4)=""
^DD(420.923,0)="CONTENTS SUB-FIELD^^3^4"
^DD(420.923,0,"DT")="2940629"
^DD(420.923,0,"IX","B",420.923,.01)=""
^DD(420.923,0,"NM","CONTENTS")=""
^DD(420.923,0,"UP")="420.92"
^DD(420.923,.01,0)="NUMBER^F^^0;1^K:$L(X)>5!($L(X)<1) X"
^DD(420.923,.01,1,0)="^.1"
^DD(420.923,.01,1,1,0)="420.923^B"
^DD(420.923,.01,1,1,1)="S ^PRCU(420.92,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(420.923,.01,1,1,2)="K ^PRCU(420.92,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(420.923,.01,3)="Answer must be 1-5 characters in length."
^DD(420.923,.01,21,0)="^^1^1^2941109^"
^DD(420.923,.01,21,1,0)="This is to store sequence NUMBER data."
^DD(420.923,.01,"DT")="2940628"
^DD(420.923,1,0)="DATA^F^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(420.923,1,3)="Answer must be 1-240 characters in length."
^DD(420.923,1,21,0)="^^1^1^2941109^"
^DD(420.923,1,21,1,0)="This is used ot store documents data."
^DD(420.923,1,"DT")="2940628"
^DD(420.923,2,0)="CONVERTED^S^Y:YES;N:NO;^0;2^Q"
^DD(420.923,2,21,0)="^^1^1^2941109^"
^DD(420.923,2,21,1,0)="This is used ot store CONVERTED data."
^DD(420.923,2,"DT")="2940629"
^DD(420.923,3,0)="ERROR^F^^2;1^K:$L(X)>180!($L(X)<1) X"
^DD(420.923,3,3)="Answer must be 1-180 characters in length."
^DD(420.923,3,21,0)="^^1^1^2941109^"
^DD(420.923,3,21,1,0)="This is used ot store ERROR data."
^DD(420.923,3,"DT")="2940629"
^DD(420.923,"B","CONVERTED",2)=""
^DD(420.923,"B","DATA",1)=""
^DD(420.923,"B","ERROR",3)=""
^DD(420.923,"B","NUMBER",.01)=""
^DD(420.923,"GL",0,1,.01)=""
^DD(420.923,"GL",0,2,2)=""
^DD(420.923,"GL",1,1,1)=""
^DD(420.923,"GL",2,1,3)=""
^DD(420.923,"IX",.01)=""
^DD(420.924,0)="TEXTS SUB-FIELD^^.01^1"
^DD(420.924,0,"DT")="2940628"
^DD(420.924,0,"NM","TEXTS")=""
^DD(420.924,0,"UP")="420.92"
^DD(420.924,.01,0)="TEXTS^W^^0;1^Q"
^DD(420.924,.01,21,0)="^^1^1^2941109^"
^DD(420.924,.01,21,1,0)="This is used to store comments."
^DD(420.924,.01,"DT")="2940628"
^DD(420.924,"B","TEXTS",.01)=""
^DD(420.924,"GL",0,1,.01)=""
^DD(420.96,0)="FIELD^^5^8"
^DD(420.96,0,"DT")="2941207"
^DD(420.96,0,"IX","AC",420.96,5)=""
^DD(420.96,0,"IX","AD",420.96,.5)=""
^DD(420.96,0,"IX","B",420.96,.01)=""
^DD(420.96,0,"NM","IFCAP/FMS OBLIGATION RECONCILIATION REPORT")=""
^DD(420.96,0,"VR")="5.1"
^DD(420.96,0,"VRPK")="IFCAP"
^DD(420.96,.01,0)="ID^RF^^0;1^K:$L(X)>15!($L(X)<5)!'(X'?1P.E) X"
^DD(420.96,.01,1,0)="^.1"
^DD(420.96,.01,1,1,0)="420.96^B"
^DD(420.96,.01,1,1,1)="S ^PRCU(420.96,""B"",$E(X,1,30),DA)="""""
^DD(420.96,.01,1,1,2)="K ^PRCU(420.96,""B"",$E(X,1,30),DA)"
^DD(420.96,.01,1,2,0)="^^TRIGGER^420.96^.5"
^DD(420.96,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(420.96,.01,1,2,1.1) X ^DD(420.96,.01,1,2,1.4)"
^DD(420.96,.01,1,2,1.1)="S X=DIV S X=DIV,Y(1)=X S X=""-"",Y(2)=X S X=1,X=$P(Y(1),Y(2),X)"
^DD(420.96,.01,1,2,1.4)="S DIH=$S($D(^PRCU(420.96,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=420.96,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.96,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.96,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(420.96,.01,1,2,2.4)"
^DD(420.96,.01,1,2,2.4)="S DIH=$S($D(^PRCU(420.96,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,8)=DIV,DIH=420.96,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.96,.01,1,2,"CREATE VALUE")="$P(ID,""-"",1)"
^DD(420.96,.01,1,2,"DELETE VALUE")="@"
^DD(420.96,.01,1,2,"DT")="2941207"
^DD(420.96,.01,1,2,"FIELD")="STATION"
^DD(420.96,.01,3)="Answer must be 5-15 characters in length."
^DD(420.96,.01,21,0)="^^1^1^2941205^"
^DD(420.96,.01,21,1,0)="This is the OOP document ID number from FMS."
^DD(420.96,.01,"DT")="2941207"
^DD(420.96,.5,0)="STATION NUMBER^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(420.96,.5,1,0)="^.1"
^DD(420.96,.5,1,1,0)="420.96^AD"
^DD(420.96,.5,1,1,1)="S ^PRCU(420.96,""AD"",$E(X,1,30),DA)="""""
^DD(420.96,.5,1,1,2)="K ^PRCU(420.96,""AD"",$E(X,1,30),DA)"
^DD(420.96,.5,1,1,"DT")="2941207"
^DD(420.96,.5,3)="Answer must be 1-4 characters in length."
^DD(420.96,.5,5,1,0)="420.96^.01^2"
^DD(420.96,.5,21,0)="^^1^1^2950111^"
^DD(420.96,.5,21,1,0)="This is the station number of the site receiving the 850 report."
^DD(420.96,.5,"DT")="2941207"
^DD(420.96,1,0)="CALM/FMS UDO AMT^F^^0;2^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(420.96,1,3)="Answer must be 3 characters in length."
^DD(420.96,1,21,0)="^^1^1^2941205^"
^DD(420.96,1,21,1,0)="This is the undelivered obligation dollar amount from CALM or FMS."
^DD(420.96,1,"DT")="2940609"
^DD(420.96,2,0)="FMS FUND CONTROL POINT^F^^0;3^K:$L(X)>9!($L(X)<9) X"
^DD(420.96,2,3)="Answer must be 9 characters in length."
^DD(420.96,2,21,0)="^^1^1^2941205^"
^DD(420.96,2,21,1,0)="This field contains the FMS fund control point."
^DD(420.96,2,"DT")="2940609"
^DD(420.96,2.5,0)="FMS LINE NUMBER^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.96,2.5,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(420.96,2.5,21,0)="^^1^1^2941205^"
^DD(420.96,2.5,21,1,0)="This field references the FMS line number on the document."
^DD(420.96,2.5,"DT")="2940609"
^DD(420.96,3,0)="IFCAP DOCUMENT NUMBER^P442'^PRC(442,^0;4^Q"
^DD(420.96,3,3)=""
^DD(420.96,3,21,0)="^^1^1^2941205^"
^DD(420.96,3,21,1,0)="This field contains the IFCAP document number."
^DD(420.96,3,"DT")="2940609"
^DD(420.96,4,0)="IFCAP UDO AMT^NJ11,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.96,4,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.96,4,21,0)="^^1^1^2941205^"
^DD(420.96,4,21,1,0)="This field contains the undelivered order amount from IFCAP."
^DD(420.96,4,"DT")="2940609"
^DD(420.96,5,0)="STATUS^S^1:IFCAP OPEN/NO FMS RECORD;2:IFCAP CLOSED/ FMS OPEN;3:UDO'S OUT OF BALANCE;0:VALID DOCUMENT;4:NO IFCAP RECORD/ FMS OPEN;^0;6^Q"
^DD(420.96,5,1,0)="^.1"
^DD(420.96,5,1,1,0)="420.96^AC"
^DD(420.96,5,1,1,1)="S ^PRCU(420.96,""AC"",$E(X,1,30),DA)="""""
^DD(420.96,5,1,1,2)="K ^PRCU(420.96,""AC"",$E(X,1,30),DA)"
^DD(420.96,5,1,1,"%D",0)="^^1^1^2940616^"
^DD(420.96,5,1,1,"%D",1,0)="This cross reference allows for fast printing of 850 report."
^DD(420.96,5,1,1,"DT")="2940616"
^DD(420.96,5,21,0)="^^1^1^2941205^"
^DD(420.96,5,21,1,0)="This field contains a status code for the type of obligation reconciliation."
^DD(420.96,5,"DT")="2940616"
^DD(420.96,"B","CALM/FMS UDO AMT",1)=""
^DD(420.96,"B","FMS FUND CONTROL POINT",2)=""
^DD(420.96,"B","FMS LINE NUMBER",2.5)=""
^DD(420.96,"B","ID",.01)=""
^DD(420.96,"B","IFCAP DOCUMENT NUMBER",3)=""
^DD(420.96,"B","IFCAP UDO AMT",4)=""
^DD(420.96,"B","STATION NUMBER",.5)=""
^DD(420.96,"B","STATUS",5)=""
^DD(420.96,"GL",0,1,.01)=""
^DD(420.96,"GL",0,2,1)=""
^DD(420.96,"GL",0,3,2)=""
^DD(420.96,"GL",0,4,3)=""
^DD(420.96,"GL",0,5,4)=""
^DD(420.96,"GL",0,6,5)=""
^DD(420.96,"GL",0,7,2.5)=""
^DD(420.96,"GL",0,8,.5)=""
^DD(420.96,"IX",.01)=""
^DD(420.96,"IX",.5)=""
^DD(420.96,"IX",5)=""
^DD(420.96,"RQ",.01)=""
^DD(420.97,0)="FIELD^^3^5"
^DD(420.97,0,"DT")="2940616"
^DD(420.97,0,"IX","B",420.97,.01)=""
^DD(420.97,0,"NM","IFCAP/FMS FCP RECONCILIATION MESSAGE")=""
^DD(420.97,0,"VR")="5.1"
^DD(420.97,0,"VRPK")="IFCAP"
^DD(420.97,.01,0)="ID^RF^^0;1^K:$L(X)>12!($L(X)<3)!'(X?3N1""-""1.4N.1""D"") X"
^DD(420.97,.01,1,0)="^.1"
^DD(420.97,.01,1,1,0)="420.97^B"
^DD(420.97,.01,1,1,1)="S ^PRCU(420.97,""B"",$E(X,1,30),DA)="""""
^DD(420.97,.01,1,1,2)="K ^PRCU(420.97,""B"",$E(X,1,30),DA)"
^DD(420.97,.01,3)="Answer must be 3-12 characters in length."
^DD(420.97,.01,21,0)="^^1^1^2941205^"
^DD(420.97,.01,21,1,0)="This is the reconciliation message ID number."
^DD(420.97,.01,"DT")="2940616"
^DD(420.97,1,0)="STATION NUMBER^F^^0;2^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(420.97,1,3)="Answer must be 1-3 characters in length."
^DD(420.97,1,21,0)="^^1^1^2941205^"
^DD(420.97,1,21,1,0)="This is the station number to which the reconciliation message is addressed."
^DD(420.97,1,"DT")="2940603"
^DD(420.97,2,0)="FMS ACCOUNTING STRIP^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(420.97,2,3)="Answer must be 1-30 characters in length."
^DD(420.97,2,21,0)="^^1^1^2941205^"
^DD(420.97,2,21,1,0)="This field contains the required accounting elements for the reconciliation."
^DD(420.97,2,"DT")="2940616"
^DD(420.97,2.5,0)="IFCAP CONTROL POINT NUMBER^F^^0;5^K:$L(X)>4!($L(X)<1) X"
^DD(420.97,2.5,3)="Answer must be 1-4 characters in length."
^DD(420.97,2.5,21,0)="^^1^1^2941205^^"
^DD(420.97,2.5,21,1,0)="This field contains the IFCAP fund control point number."
^DD(420.97,2.5,"DT")="2940616"
^DD(420.97,3,0)="FMS BALANCE^NJ11,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.97,3,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.97,3,21,0)="^^1^1^2941205^"
^DD(420.97,3,21,1,0)="This field contains the FMS balance from the message."
^DD(420.97,3,"DT")="2940603"
^DD(420.97,"B","FMS ACCOUNTING STRIP",2)=""
^DD(420.97,"B","FMS BALANCE",3)=""
^DD(420.97,"B","ID",.01)=""
^DD(420.97,"B","IFCAP CONTROL POINT NUMBER",2.5)=""
^DD(420.97,"B","STATION NUMBER",1)=""
^DD(420.97,"GL",0,1,.01)=""
^DD(420.97,"GL",0,2,1)=""
^DD(420.97,"GL",0,3,2)=""
^DD(420.97,"GL",0,4,3)=""
^DD(420.97,"GL",0,5,2.5)=""
^DD(420.97,"IX",.01)=""
^DD(420.97,"RQ",.01)=""
^DD(420.98,0)="FIELD^^3^4"
^DD(420.98,0,"DT")="2940603"
^DD(420.98,0,"IX","B",420.98,.01)=""
^DD(420.98,0,"NM","IFCAP/FMS FCP RECONCILIATION REPORT")=""
^DD(420.98,0,"VR")="5.1"
^DD(420.98,0,"VRPK")="IFCAP"
^DD(420.98,.01,0)="ID^RNJ7,0X^^0;1^D:X=""+"" NEXT^PRCFOOR2 K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(420.98,.01,1,0)="^.1"
^DD(420.98,.01,1,1,0)="420.98^B"
^DD(420.98,.01,1,1,1)="S ^PRCU(420.98,""B"",$E(X,1,30),DA)="""""
^DD(420.98,.01,1,1,2)="K ^PRCU(420.98,""B"",$E(X,1,30),DA)"
^DD(420.98,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(420.98,.01,21,0)="^^2^2^2941205^"
^DD(420.98,.01,21,1,0)="This field contains the message ID number for the fund control point"
^DD(420.98,.01,21,2,0)="reconciliation."
^DD(420.98,.01,"DT")="2940809"
^DD(420.98,1,0)="STATION NUMBER^NJ1,0^^0;2^K:+X'=X!(X>3)!(X<3)!(X?.E1"".""1N.N) X"
^DD(420.98,1,3)="Type a Number between 3 and 3, 0 Decimal Digits"
^DD(420.98,1,21,0)="^^2^2^2941205^^"
^DD(420.98,1,21,1,0)="This field contains the station number to which the reconciliation"
^DD(420.98,1,21,2,0)="message is addressed."
^DD(420.98,1,"DT")="2940603"
^DD(420.98,2,0)="ERROR TYPE^S^1:FMS FCP NOT IN IFCAP;2:FMS FCP NOT IN SNAPSHOT FILE;3:SNAPSHOT FCP NOT IN FMS;4:FCP ALREADY ADJUSTED;^0;3^Q"
^DD(420.98,2,21,0)="^^1^1^2941205^"
^DD(420.98,2,21,1,0)="This field contains the error type which generated the message."
^DD(420.98,2,"DT")="2940603"
^DD(420.98,3,0)="FCP^F^^0;4^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(420.98,3,3)="Answer must be 1-4 characters in length."
^DD(420.98,3,21,0)="^^2^2^2941205^"
^DD(420.98,3,21,1,0)="This field contains the fund control point for which the message was"
^DD(420.98,3,21,2,0)="generated."
^DD(420.98,3,"DT")="2940603"
^DD(420.98,"B","ERROR TYPE",2)=""
^DD(420.98,"B","FCP",3)=""
^DD(420.98,"B","ID",.01)=""
^DD(420.98,"B","STATION NUMBER",1)=""
^DD(420.98,"GL",0,1,.01)=""
^DD(420.98,"GL",0,2,1)=""
^DD(420.98,"GL",0,3,2)=""
^DD(420.98,"GL",0,4,3)=""
^DD(420.98,"IX",.01)=""
^DD(420.98,"RQ",.01)=""
^DD(420.99,0)="FIELD^^9^11"
^DD(420.99,0,"DT")="2940718"
^DD(420.99,0,"IX","AB",420.99,.01)=""
^DD(420.99,0,"IX","B",420.99,.01)=""
^DD(420.99,0,"NM","IFCAP TEMP FCP SNAPSHOT")=""
^DD(420.99,0,"VR")="5.1"
^DD(420.99,0,"VRPK")="IFCAP"
^DD(420.99,.01,0)="ID^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>13!($L(X)<10)!'(X?3N1""-""2N1""-""1N1""-""1.4N) X"
^DD(420.99,.01,1,0)="^.1"
^DD(420.99,.01,1,1,0)="420.99^B"
^DD(420.99,.01,1,1,1)="S ^PRCU(420.99,""B"",$E(X,1,30),DA)="""""
^DD(420.99,.01,1,1,2)="K ^PRCU(420.99,""B"",$E(X,1,30),DA)"
^DD(420.99,.01,1,2,0)="420.99^AB^MUMPS"
^DD(420.99,.01,1,2,1)="S ^PRCU(420.99,""AB"",$P(X,""-"",1)_""-""_+$P(X,""-"",4),DA)="""""
^DD(420.99,.01,1,2,2)="K ^PRCU(420.99,""AB"",$P(X,""-"",1)_""-""_+$P(X,""-"",4),DA)"
^DD(420.99,.01,1,2,"%D",0)="^^2^2^2940601^"
^DD(420.99,.01,1,2,"%D",1,0)="This cross reference is utilized to quickly select a station and control"
^DD(420.99,.01,1,2,"%D",2,0)="point."
^DD(420.99,.01,1,2,"DT")="2940601"
^DD(420.99,.01,1,3,0)="^^TRIGGER^420.99^2.5"
^DD(420.99,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.99,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(420.99,.01,1,3,1.1) X ^DD(420.99,.01,1,3,1.4)"
^DD(420.99,.01,1,3,1.1)="S X=DIV S X=DIV,Y(1)=X S X=""-"",Y(2)=X S X=3,X=$P(Y(1),Y(2),X)"
^DD(420.99,.01,1,3,1.4)="S DIH=$S($D(^PRCU(420.99,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.99,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.99,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCU(420.99,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(420.99,.01,1,3,2.4)"
^DD(420.99,.01,1,3,2.4)="S DIH=$S($D(^PRCU(420.99,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=420.99,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.99,.01,1,3,"%D",0)="^^2^2^2940603^"
^DD(420.99,.01,1,3,"%D",1,0)="This cross reference is used to quickly determine the quarter in which "
^DD(420.99,.01,1,3,"%D",2,0)="the snapshot is taken."
^DD(420.99,.01,1,3,"CREATE VALUE")="$P(ID,""-"",3)"
^DD(420.99,.01,1,3,"DELETE VALUE")="@"
^DD(420.99,.01,1,3,"DT")="2940603"
^DD(420.99,.01,1,3,"FIELD")="SNAPSHOT QTR"
^DD(420.99,.01,3)="Answer must be 10-13 characters in length.  Format = site-fy-qtr-cp"
^DD(420.99,.01,21,0)="^^1^1^2941202^"
^DD(420.99,.01,21,1,0)="This is the ID number for the snapshot."
^DD(420.99,.01,"DT")="2940603"
^DD(420.99,1,0)="SNAPSHOT DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(420.99,1,21,0)="^^1^1^2941202^"
^DD(420.99,1,21,1,0)="This is the date on which the snapshot was taken."
^DD(420.99,1,"DT")="2940525"
^DD(420.99,2,0)="SNAPSHOT AMOUNT^NJ11,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.99,2,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.99,2,21,0)="^^1^1^2941202^"
^DD(420.99,2,21,1,0)="This field contains the snapshot amount."
^DD(420.99,2,"DT")="2940526"
^DD(420.99,2.5,0)="SNAPSHOT QTR^NJ1,0^^0;7^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(420.99,2.5,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(420.99,2.5,5,1,0)="420.99^.01^3"
^DD(420.99,2.5,21,0)="^^1^1^2941202^"
^DD(420.99,2.5,21,1,0)="This field contains the snapshot quarter."
^DD(420.99,2.5,"DT")="2940603"
^DD(420.99,3,0)="1QTR AMT^NJ11,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.99,3,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.99,3,21,0)="^^1^1^2941202^"
^DD(420.99,3,21,1,0)="This field contains the dollar amount for the first quarter."
^DD(420.99,3,"DT")="2940526"
^DD(420.99,4,0)="2QTR AMT^NJ11,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.99,4,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.99,4,21,0)="^^1^1^2941202^"
^DD(420.99,4,21,1,0)="This field contains the dollar amount for the second quarter."
^DD(420.99,4,"DT")="2940526"
^DD(420.99,5,0)="3QTR AMT^NJ11,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.99,5,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.99,5,21,0)="^^1^1^2941202^"
^DD(420.99,5,21,1,0)="This field contains the dollar amount for the third quarter."
^DD(420.99,5,"DT")="2940526"
^DD(420.99,6,0)="FMS BALANCE^NJ11,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.99,6,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.99,6,21,0)="^^1^1^2941202^"
^DD(420.99,6,21,1,0)="This field contains the control point balance in FMS."
^DD(420.99,6,"DT")="2940603"
^DD(420.99,7,0)="FMS VARIANCE^NJ11,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(420.99,7,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(420.99,7,21,0)="^^1^1^2941202^"
^DD(420.99,7,21,1,0)="This field contains the variance between FMS and IFCAP control point balance."
^DD(420.99,7,"DT")="2940603"
^DD(420.99,8,0)="FMS ADJUSTMENT APPLIED^S^1:YES;^0;10^Q"
^DD(420.99,8,21,0)="^^2^2^2941202^^"
^DD(420.99,8,21,1,0)="This field indicates whether the FMS adjustment has been applied to the "
^DD(420.99,8,21,2,0)="control point balance."
^DD(420.99,8,"DT")="2940603"
^DD(420.99,9,0)="CP TYPE^S^0:STANDARD;1:GENERAL POST FUND;2:SUPPLY FUND;3:CASCA;4:CANTEEN;^0;11^Q"
^DD(420.99,9,21,0)="^^1^1^2941202^"
^DD(420.99,9,21,1,0)="This field contains a code indicating the type of control point."
^DD(420.99,9,"DT")="2940718"
^DD(420.99,"B","1QTR AMT",3)=""
^DD(420.99,"B","2QTR AMT",4)=""
^DD(420.99,"B","3QTR AMT",5)=""
^DD(420.99,"B","CP TYPE",9)=""
^DD(420.99,"B","FMS ADJUSTMENT APPLIED",8)=""
^DD(420.99,"B","FMS BALANCE",6)=""
^DD(420.99,"B","FMS VARIANCE",7)=""
^DD(420.99,"B","ID",.01)=""
^DD(420.99,"B","SNAPSHOT AMOUNT",2)=""
^DD(420.99,"B","SNAPSHOT DATE",1)=""
^DD(420.99,"B","SNAPSHOT QTR",2.5)=""
^DD(420.99,"GL",0,1,.01)=""
^DD(420.99,"GL",0,2,1)=""
^DD(420.99,"GL",0,3,2)=""
^DD(420.99,"GL",0,4,3)=""
^DD(420.99,"GL",0,5,4)=""
^DD(420.99,"GL",0,6,5)=""
^DD(420.99,"GL",0,7,2.5)=""
^DD(420.99,"GL",0,8,6)=""
^DD(420.99,"GL",0,9,7)=""
^DD(420.99,"GL",0,10,8)=""
^DD(420.99,"GL",0,11,9)=""
^DD(420.99,"IX",.01)=""
^DD(420.99,"RQ",.01)=""
^DD(420.9999,0)="FIELD^^5^6"
^DD(420.9999,0,"DDA")="N"
^DD(420.9999,0,"DT")="2941007"
^DD(420.9999,0,"ID","D1")="W ""   "",$P(^(0),U,2)"
^DD(420.9999,0,"IX","AC",420.9999,3)=""
^DD(420.9999,0,"IX","B",420.9999,.01)=""
^DD(420.9999,0,"IX","C",420.9999,1)=""
^DD(420.9999,0,"NM","PRCD SD STANDARD FOR COPYING")=""
^DD(420.9999,0,"VR")="5.1"
^DD(420.9999,0,"VRPK")="IFCAP"
^DD(420.9999,.01,0)="CODE^RFX^^0;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X K:$G(X)]""""&$O(^PRCD(420.9999,""B"",X,"""")) X"
^DD(420.9999,.01,1,0)="^.1"
^DD(420.9999,.01,1,1,0)="420.9999^B"
^DD(420.9999,.01,1,1,1)="S ^PRCD(420.9999,""B"",$E(X,1,30),DA)="""""
^DD(420.9999,.01,1,1,2)="K ^PRCD(420.9999,""B"",$E(X,1,30),DA)"
^DD(420.9999,.01,3)="Enter free text up to 15 characters and must be unique in file."
^DD(420.9999,.01,21,0)="^^1^1^2940218^^^^"
^DD(420.9999,.01,21,1,0)="This field is the code of administrative office."
^DD(420.9999,.01,"DT")="2941007"
^DD(420.9999,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.9999,1,1,0)="^.1"
^DD(420.9999,1,1,1,0)="420.9999^C"
^DD(420.9999,1,1,1,1)="S ^PRCD(420.9999,""C"",$E(X,1,30),DA)="""""
^DD(420.9999,1,1,1,2)="K ^PRCD(420.9999,""C"",$E(X,1,30),DA)"
^DD(420.9999,1,1,1,"%D",0)="^^1^1^2931118^"
^DD(420.9999,1,1,1,"%D",1,0)="This is used to look-up entries by description."
^DD(420.9999,1,1,1,"DT")="2931118"
^DD(420.9999,1,3)="Enter free text up to 45 characters."
^DD(420.9999,1,21,0)="^^1^1^2940218^^^^"
^DD(420.9999,1,21,1,0)="This field is the desription of the code."
^DD(420.9999,1,"DT")="2931124"
^DD(420.9999,2,0)="STATUS^RP420.1999'^PRCD(420.1999,^0;3^Q"
^DD(420.9999,2,1,0)="^.1"
^DD(420.9999,2,1,10,0)="^^TRIGGER^420.9999^4"
^DD(420.9999,2,1,10,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(420.9999,2,1,10,1.4)"
^DD(420.9999,2,1,10,1.4)="S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=420.9999,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.9999,2,1,10,2)="Q"
^DD(420.9999,2,1,10,"CREATE VALUE")="S X=DUZ"
^DD(420.9999,2,1,10,"DELETE VALUE")="NO EFFECT"
^DD(420.9999,2,1,10,"DT")="2941007"
^DD(420.9999,2,1,10,"FIELD")="STATUS EDIT USER"
^DD(420.9999,2,1,15,0)="^^TRIGGER^420.9999^5"
^DD(420.9999,2,1,15,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCD(420.9999,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(420.9999,2,1,15,1.1) X ^DD(420.9999,2,1,15,1.4)"
^DD(420.9999,2,1,15,1.1)="S X=DIV S X=$P($$DT^PRC0B2(""N"",""E""),""^"")"
^DD(420.9999,2,1,15,1.4)="S DIH=$S($D(^PRCD(420.9999,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=420.9999,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(420.9999,2,1,15,2)="Q"
^DD(420.9999,2,1,15,"CREATE VALUE")="S X=$P($$DT^PRC0B2(""N"",""E""),""^"")"
^DD(420.9999,2,1,15,"DELETE VALUE")="NO EFFECT"
^DD(420.9999,2,1,15,"DT")="2941007"
^DD(420.9999,2,1,15,"FIELD")="STATUS EDIT DA"
^DD(420.9999,2,3)=""
^DD(420.9999,2,21,0)="^^1^1^2940218^^^^"
^DD(420.9999,2,21,1,0)="This field is the status of the entry in file."
^DD(420.9999,2,"DT")="2941007"
^DD(420.9999,3,0)="FIX VALUE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!'(X'?1."" "".E) X"
^DD(420.9999,3,1,0)="^.1"
^DD(420.9999,3,1,1,0)="420.9999^AC"
^DD(420.9999,3,1,1,1)="S ^PRCD(420.9999,""AC"",$E(X,1,30),DA)="""""
^DD(420.9999,3,1,1,2)="K ^PRCD(420.9999,""AC"",$E(X,1,30),DA)"
^DD(420.9999,3,1,1,"%D",0)="^^1^1^2931119^"
^DD(420.9999,3,1,1,"%D",1,0)="This is used to search entries in this file."
^DD(420.9999,3,1,1,"DT")="2931119"
^DD(420.9999,3,3)="Enter free text up to 15 characters."
^DD(420.9999,3,21,0)="^^1^1^2940218^^^^"
^DD(420.9999,3,21,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.9999,3,23,0)="^^3^3^2940218^^"
^DD(420.9999,3,23,1,0)="This field's value is used by programer for hard coding in programs."
^DD(420.9999,3,23,2,0)="Always hardcode with this fix values. If this value is edited all"
^DD(420.9999,3,23,3,0)="programs referring to this value need to be edited."
^DD(420.9999,3,"DT")="2931210"
^DD(420.9999,4,0)="STATUS EDIT USER^P200'^VA(200,^0;5^Q"
^DD(420.9999,4,3)="Enter the user name."
^DD(420.9999,4,5,1,0)="420.9999^2^10"
^DD(420.9999,4,9)="^"
^DD(420.9999,4,21,0)="^^1^1^2941007^"
^DD(420.9999,4,21,1,0)="User who changed the status."
^DD(420.9999,4,"DT")="2941007"
^DD(420.9999,5,0)="STATUS EDIT DATE/TIME^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(420.9999,5,3)="Enter date/time"
^DD(420.9999,5,5,1,0)="420.9999^2^15"
^DD(420.9999,5,9)="^"
^DD(420.9999,5,21,0)="^^1^1^2941007^"
^DD(420.9999,5,21,1,0)="The Time at which the status is edited."
^DD(420.9999,5,"DT")="2941007"
^DD(420.9999,"B","CODE",.01)=""
^DD(420.9999,"B","DESCRIPTION",1)=""
^DD(420.9999,"B","FIX VALUE",3)=""
^DD(420.9999,"B","STATUS",2)=""
^DD(420.9999,"B","STATUS EDIT DATE/TIME",5)=""
^DD(420.9999,"B","STATUS EDIT USER",4)=""
^DD(420.9999,"GL",0,1,.01)=""
^DD(420.9999,"GL",0,2,1)=""
^DD(420.9999,"GL",0,3,2)=""
^DD(420.9999,"GL",0,4,3)=""
^DD(420.9999,"GL",0,5,4)=""
^DD(420.9999,"GL",0,6,5)=""
^DD(420.9999,"IX",.01)=""
^DD(420.9999,"IX",1)=""
^DD(420.9999,"IX",2)=""
^DD(420.9999,"IX",3)=""
^DD(420.9999,"RQ",.01)=""
^DD(420.9999,"RQ",1)=""
^DD(420.9999,"RQ",2)=""
^DD(421,0)="FIELD^^53^67"
^DD(421,0,"DT")="2940330"
^DD(421,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(421,0,"IX","AC",421,1)=""
^DD(421,0,"IX","AD",421,.01)=""
^DD(421,0,"IX","AE",421,2)=""
^DD(421,0,"IX","AF",421,3)=""
^DD(421,0,"IX","AG",421,1)=""
^DD(421,0,"IX","AG",421,1.6)=""
^DD(421,0,"IX","AH",421,.7)=""
^DD(421,0,"IX","AI",421,.8)=""
^DD(421,0,"IX","AJ",421,.5)=""
^DD(421,0,"IX","AK",421,.01)=""
^DD(421,0,"IX","AL",421,11.5)=""
^DD(421,0,"IX","AM",421,.9)=""
^DD(421,0,"IX","AN",421,.6)=""
^DD(421,0,"IX","AO",421,.01)=""
^DD(421,0,"IX","B",421,.01)=""
^DD(421,0,"IX","C",421,3)=""
^DD(421,0,"IX","D",421,.01)=""
^DD(421,0,"NM","FUND DISTRIBUTION")=""
^DD(421,0,"PT",421,1.7)=""
^DD(421,0,"VR")="5.1"
^DD(421,0,"VRPK")="IFCAP"
^DD(421,.01,0)="TRANSACTION NUMBER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(421,.01,1,0)="^.1"
^DD(421,.01,1,1,0)="421^B"
^DD(421,.01,1,1,1)="S ^PRCF(421,""B"",$E(X,1,30),DA)="""""
^DD(421,.01,1,1,2)="K ^PRCF(421,""B"",$E(X,1,30),DA)"
^DD(421,.01,1,2,0)="421^AD^MUMPS"
^DD(421,.01,1,2,1)="S ^PRCF(421,""AD"",$P(X,""-"",1,2),10000-$P(X,""-"",3))="""""
^DD(421,.01,1,2,2)="K ^PRCF(421,""AD"",$P(X,""-"",1,2),10000-$P(X,""-"",3))"
^DD(421,.01,1,2,"%D",0)="^^3^3^2930624^"
^DD(421,.01,1,2,"%D",1,0)="This cross reference is set on the station number-"
^DD(421,.01,1,2,"%D",2,0)="fiscal year and a sequence number (10000 - last 4"
^DD(421,.01,1,2,"%D",3,0)="digits of the transaction number)."
^DD(421,.01,1,3,0)="421^D^MUMPS"
^DD(421,.01,1,3,1)="S ^PRCF(421,""D"",$P(X,""-"",3),DA)="""""
^DD(421,.01,1,3,2)="K ^PRCF(421,""D"",$P(X,""-"",3),DA)"
^DD(421,.01,1,3,"%D",0)="^^2^2^2930624^"
^DD(421,.01,1,3,"%D",1,0)="This cross reference is set on the last 4"
^DD(421,.01,1,3,"%D",2,0)="digits of the transaction number."
^DD(421,.01,1,4,0)="421^AK^MUMPS"
^DD(421,.01,1,4,1)="S $P(^PRCF(421,DA,0),""^"",12)=$P(X,""-"",1,2),^PRCF(421,""AJ"",$P(X,""-"",1,2),DA)="""""
^DD(421,.01,1,4,2)="S $P(^PRCF(421,DA,0),""^"",12)="""" K ^PRCF(421,""AJ"",$P(X,""-"",1,2),DA)"
^DD(421,.01,1,4,"%D",0)="^^4^4^2930624^"
^DD(421,.01,1,4,"%D",1,0)="This cross reference sets the station number-"
^DD(421,.01,1,4,"%D",2,0)="fiscal year on the transaction record."
^DD(421,.01,1,4,"%D",3,0)="It also sets the ""AJ"" cross reference on the"
^DD(421,.01,1,4,"%D",4,0)="station number-fiscal year."
^DD(421,.01,1,4,"CREATE VALUE")="$P(TRANSACTION NUMBER,""-"",1,2)"
^DD(421,.01,1,4,"DELETE VALUE")="@"
^DD(421,.01,1,4,"FIELD")="SIFY"
^DD(421,.01,1,5,0)="421^AO^MUMPS"
^DD(421,.01,1,5,1)="I $P(^PRCF(421,DA,0),""^"",19)="""" S $P(^(0),""^"",19,20)=""1^0"",^PRCF(421,""AL"",$P(X,""-"",1,2),0,DA)="""""
^DD(421,.01,1,5,2)="Q"
^DD(421,.01,1,5,"%D",0)="^^2^2^2930624^"
^DD(421,.01,1,5,"%D",1,0)="This cross reference sets the indicator for whether"
^DD(421,.01,1,5,"%D",2,0)="the transaction is ready for code sheet creation."
^DD(421,.01,3)="ANSWER MUST BE 3-12 CHARACTERS IN LENGTH"
^DD(421,.01,21,0)="^^1^1^2910515^"
^DD(421,.01,21,1,0)="This is the transaction number."
^DD(421,.01,"DT")="2900709"
^DD(421,.5,0)="SIFY^F^^0;12^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<5) X"
^DD(421,.5,1,0)="^.1"
^DD(421,.5,1,1,0)="421^AJ"
^DD(421,.5,1,1,1)="S ^PRCF(421,""AJ"",$E(X,1,30),DA)="""""
^DD(421,.5,1,1,2)="K ^PRCF(421,""AJ"",$E(X,1,30),DA)"
^DD(421,.5,1,1,"%D",0)="^^2^2^2930624^"
^DD(421,.5,1,1,"%D",1,0)="This cross reference is set on the station number-fiscal"
^DD(421,.5,1,1,"%D",2,0)="year."
^DD(421,.5,3)="ANSWER MUST BE 5-6 CHARACTERS IN LENGTH"
^DD(421,.5,5,1,0)="421^.01^4"
^DD(421,.5,9)="^"
^DD(421,.5,21,0)="^^1^1^2881206^^"
^DD(421,.5,21,1,0)="This is an indicator for Station Number - Fiscal Year."
^DD(421,.5,"DT")="2881206"
^DD(421,.6,0)="ON CODE SHEET LIST^S^1:YES;^0;19^Q"
^DD(421,.6,1,0)="^.1"
^DD(421,.6,1,1,0)="421^AN"
^DD(421,.6,1,1,1)="S ^PRCF(421,""AN"",$E(X,1,30),DA)="""""
^DD(421,.6,1,1,2)="K ^PRCF(421,""AN"",$E(X,1,30),DA)"
^DD(421,.6,1,1,"%D",0)="^^1^1^2930624^^"
^DD(421,.6,1,1,"%D",1,0)="This cross reference is set on the transaction number."
^DD(421,.6,21,0)="^^2^2^2911114^"
^DD(421,.6,21,1,0)="This is used as an indicator to identify entries that are ready for"
^DD(421,.6,21,2,0)="code sheet creation."
^DD(421,.6,"DT")="2881212"
^DD(421,.7,0)="ON PRINT LIST #1^S^1:YES;^0;21^Q"
^DD(421,.7,1,0)="^.1"
^DD(421,.7,1,1,0)="421^AH"
^DD(421,.7,1,1,1)="S ^PRCF(421,""AH"",$E(X,1,30),DA)="""""
^DD(421,.7,1,1,2)="K ^PRCF(421,""AH"",$E(X,1,30),DA)"
^DD(421,.7,1,1,"%D",0)="^^2^2^2930624^^"
^DD(421,.7,1,1,"%D",1,0)="This cross reference is set on the first print list"
^DD(421,.7,1,1,"%D",2,0)="code, which is ""1"" for inclusion on the list."
^DD(421,.7,21,0)="^^3^3^2911114^^"
^DD(421,.7,21,1,0)="This is used as an indicator for printing purposes.  Represented are a"
^DD(421,.7,21,2,0)="set of codes to determine whether the funds transaction is on the Batch"
^DD(421,.7,21,3,0)="list."
^DD(421,.7,"DT")="2890416"
^DD(421,.8,0)="ON PRINT LIST #2^S^1:YES;^2;13^Q"
^DD(421,.8,1,0)="^.1"
^DD(421,.8,1,1,0)="421^AI"
^DD(421,.8,1,1,1)="S ^PRCF(421,""AI"",$E(X,1,30),DA)="""""
^DD(421,.8,1,1,2)="K ^PRCF(421,""AI"",$E(X,1,30),DA)"
^DD(421,.8,1,1,"%D",0)="^^2^2^2930624^^"
^DD(421,.8,1,1,"%D",1,0)="This cross reference is set on the second print list"
^DD(421,.8,1,1,"%D",2,0)="code, which is ""1"" for inclusion on the list."
^DD(421,.8,21,0)="^^3^3^2911114^"
^DD(421,.8,21,1,0)="This is used as an indicator for printing purposes.  Represented are a"
^DD(421,.8,21,2,0)="set of codes to determine whether the funds transaction is on the"
^DD(421,.8,21,3,0)="Transmission list."
^DD(421,.8,"DT")="2881207"
^DD(421,.9,0)="ON SEARCH LIST^S^1:YES;^2;14^Q"
^DD(421,.9,1,0)="^.1"
^DD(421,.9,1,1,0)="421^AM"
^DD(421,.9,1,1,1)="S ^PRCF(421,""AM"",$E(X,1,30),DA)="""""
^DD(421,.9,1,1,2)="K ^PRCF(421,""AM"",$E(X,1,30),DA)"
^DD(421,.9,1,1,"%D",0)="^^2^2^2930624^^"
^DD(421,.9,1,1,"%D",1,0)="This cross reference is set on the search list"
^DD(421,.9,1,1,"%D",2,0)="code, which is ""1"" for inclusion on the list."
^DD(421,.9,21,0)="^^3^3^2911114^"
^DD(421,.9,21,1,0)="This is used as an indicator for printing purposes.  Represented are a"
^DD(421,.9,21,2,0)="set of codes to determine whether the funds transaction is on the"
^DD(421,.9,21,3,0)="Search list."
^DD(421,.9,"DT")="2881207"
^DD(421,1,0)="CONTROL POINT^RFX^^0;2^S DIC=""^PRC(420,""_+^PRCF(421,DA,0)_"",1,"",DIC(0)=""EMNQZ"" D ^DIC K DIC K:Y'>0 X Q:'$D(X)  S X=$P(Y(0),U,1)"
^DD(421,1,1,0)="^.1"
^DD(421,1,1,1,0)="421^AC^MUMPS"
^DD(421,1,1,1,1)="S ^PRCF(421,""AC"",$P($P(^PRCF(421,DA,0),U,1),""-"",1,2)_""-""_+X,DA)="""""
^DD(421,1,1,1,2)="K ^PRCF(421,""AC"",$P($P(^PRCF(421,DA,0),U,1),""-"",1,2)_""-""_+X,DA)"
^DD(421,1,1,1,"%D",0)="^^2^2^2930624^"
^DD(421,1,1,1,"%D",1,0)="This cross reference is set on the station number-"
^DD(421,1,1,1,"%D",2,0)="fiscal year and the control point."
^DD(421,1,1,2,0)="421^AG^MUMPS"
^DD(421,1,1,2,1)="S ZX=$$APP421^PRC0F(DA) I ZX'="""" S ^PRCF(421,""AG"",ZX,DA)="""",$P(^PRCF(421,DA,0),""^"",16)=ZX K ZX"
^DD(421,1,1,2,2)="S ZX=$$APP421^PRC0F(DA) K:ZX'="""" ^PRCF(421,""AG"",ZX,DA) S $P(^PRCF(421,DA,0),""^"",16)="""" K ZX"
^DD(421,1,1,2,"%D",0)="^^4^4^2950719^^^^"
^DD(421,1,1,2,"%D",1,0)="This cross reference sets the appropriation for the"
^DD(421,1,1,2,"%D",2,0)="transaction into the transaction record."
^DD(421,1,1,2,"%D",3,0)="It also sets the ""AG"" cross reference on the"
^DD(421,1,1,2,"%D",4,0)="station number-fiscal year."
^DD(421,1,1,2,"DT")="2950719"
^DD(421,1,3)="ANSWER WITH CONTROL POINT NUMBER"
^DD(421,1,4)="S ZD=D,X=""?"",Z0=+(^PRCF(421,DA,0)) Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"",DIC(""S"")=""I +$P(^(0),U)<9999"" D ^DIC K DIC(""S"") S DIC=DIE,D=ZD K ZD,Z0"
^DD(421,1,21,0)="^^1^1^2941109^^^^"
^DD(421,1,21,1,0)="This is the Fund Control point for this transaction."
^DD(421,1,"DT")="2950719"
^DD(421,1.5,0)="CONTROL POINT NUMBER^CJ4^^ ; ^S Y(421,1.5,1)=$S($D(^PRCF(421,D0,0)):^(0),1:"""") S X=$P(Y(421,1.5,1),U,2),Y(421,1.5,2)=X S X="" "",Y(421,1.5,3)=X S X=1,X=$P(Y(421,1.5,2),Y(421,1.5,3),X)"
^DD(421,1.5,.1)="FCP#"
^DD(421,1.5,9)="^"
^DD(421,1.5,9.01)="421^1"
^DD(421,1.5,9.1)="$P(#1,"" "",1)"
^DD(421,1.5,21,0)="^^2^2^2940321^^"
^DD(421,1.5,21,1,0)="This is the first 3-4 numeric characters of the Fund Control Point"
^DD(421,1.5,21,2,0)="(FCP) name."
^DD(421,1.6,0)="BBFY^RDX^^0;23^S %DT=""E"" D ^%DT S X=Y,X=X-(X#10000) K:3990000<X!(2000000>X) X"
^DD(421,1.6,1,0)="^.1"
^DD(421,1.6,1,1,0)="421^AG^MUMPS"
^DD(421,1.6,1,1,1)="S ZX=$$APP421^PRC0F(DA) I ZX'="""" S ^PRCF(421,""AG"",ZX,DA)="""",$P(^PRCF(421,DA,0),""^"",16)=ZX K ZX"
^DD(421,1.6,1,1,2)="S ZX=$$APP421^PRC0F(DA) K:ZX'="""" ^PRCF(421,""AG"",ZX,DA) S $P(^PRCF(421,DA,0),""^"",16)="""" K ZX"
^DD(421,1.6,1,1,"%D",0)="^^3^3^2960723^"
^DD(421,1.6,1,1,"%D",1,0)="This cross reference sets the appropriation for the"
^DD(421,1.6,1,1,"%D",2,0)="transaction into the transaction record.  It also sets the ""AG"" "
^DD(421,1.6,1,1,"%D",3,0)="cross reference on the station number fiscal year."
^DD(421,1.6,1,1,"DT")="2960723"
^DD(421,1.6,3)="Enter a year between 1900 and 2099."
^DD(421,1.6,21,0)="^^1^1^2941109^"
^DD(421,1.6,21,1,0)="This is used to store BBFY DATA."
^DD(421,1.6,"DT")="2960723"
^DD(421,1.7,0)="TRANSFER/ROLLUP COUPLER^P421'^PRCF(421,^0;22^Q"
^DD(421,1.7,3)=""
^DD(421,1.7,21,0)="^^1^1^2941109^"
^DD(421,1.7,21,1,0)="This is used to store transfer/rollup FCP data."
^DD(421,1.7,"DT")="2940330"
^DD(421,2,0)="BUDGET SORT CATEGORY^P420.7'^PRCF(420.7,^0;3^Q"
^DD(421,2,1,0)="^.1"
^DD(421,2,1,1,0)="421^AE"
^DD(421,2,1,1,1)="S ^PRCF(421,""AE"",$E(X,1,30),DA)="""""
^DD(421,2,1,1,2)="K ^PRCF(421,""AE"",$E(X,1,30),DA)"
^DD(421,2,1,1,"%D",0)="^^2^2^2930624^^"
^DD(421,2,1,1,"%D",1,0)="This cross reference is set on the budget sort"
^DD(421,2,1,1,"%D",2,0)="category."
^DD(421,2,3)="ENTER CATEGORY FOR BUDGET REPORT FOR MEDICAL CARE APPROPRIATION ITEMS ONLY"
^DD(421,2,21,0)="^^2^2^2910515^"
^DD(421,2,21,1,0)="This is the category for RD285 report for medical"
^DD(421,2,21,2,0)="care appropriation items only."
^DD(421,2,"DT")="2881219"
^DD(421,2.5,0)="BUDGET SORT ORDER^CJ3,0^^ ; ^X ^DD(421,2.5,9.2) S Y(421,2.5,101)=$S($D(^PRCF(420.7,D0,0)):^(0),1:"""") S X=$P(Y(421,2.5,101),U,3) S D0=Y(421,2.5,80)"
^DD(421,2.5,9)="^"
^DD(421,2.5,9.01)="420.7^2;421^2"
^DD(421,2.5,9.1)="RD285 SORT CATEGORY:SORT ORDER"
^DD(421,2.5,9.2)="S Y(421,2.5,80)=$S($D(D0):D0,1:""""),Y(421,2.5,1)=$S($D(^PRCF(421,D0,0)):^(0),1:""""),D0=$P(Y(421,2.5,1),U,3) S:'$D(^PRCF(420.7,+D0,0)) D0=-1"
^DD(421,2.5,21,0)="^^1^1^2910515^"
^DD(421,2.5,21,1,0)="This is the budget sort order."
^DD(421,3,0)="TDA NUMBER^NJ3,0X^^0;4^K:+X'=X!(X<.001)!(X>9999) X"
^DD(421,3,.1)="TDA #"
^DD(421,3,1,0)="^.1"
^DD(421,3,1,1,0)="421^AF^MUMPS"
^DD(421,3,1,1,1)="S ^PRCF(421,""AF"",$P($P(^PRCF(421,DA,0),U,1),""-"",1,2)_""-""_+X,DA)="""""
^DD(421,3,1,1,2)="K ^PRCF(421,""AF"",$P($P(^PRCF(421,DA,0),U,1),""-"",1,2)_""-""_+X,DA)"
^DD(421,3,1,1,"%D",0)="^^3^3^2930624^^"
^DD(421,3,1,1,"%D",1,0)="This cross reference is set on the station number-"
^DD(421,3,1,1,"%D",2,0)="fiscal year and TDA (Transfer of Disbursing Authority)"
^DD(421,3,1,1,"%D",3,0)="number."
^DD(421,3,1,2,0)="421^C"
^DD(421,3,1,2,1)="S ^PRCF(421,""C"",$E(X,1,30),DA)="""""
^DD(421,3,1,2,2)="K ^PRCF(421,""C"",$E(X,1,30),DA)"
^DD(421,3,1,2,"%D",0)="^^2^2^2930624^^"
^DD(421,3,1,2,"%D",1,0)="This cross reference is set on the TDA (Transfer of"
^DD(421,3,1,2,"%D",2,0)="Disbursing Authority) number."
^DD(421,3,3)="ENTER A ONE TO FOUR DIGIT TDA NUMBER FROM ACCS REPORT"
^DD(421,3,21,0)="^^1^1^2911104^^^"
^DD(421,3,21,1,0)="This is the Transfer of Disbursing Authority (TDA) 1 to 3 digit number from the ACCS report."
^DD(421,3,"DT")="2881028"
^DD(421,5,0)="TDA DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421,5,21,0)="^^1^1^2911104^^^"
^DD(421,5,21,1,0)="This is the Transfer of Disbursing Authority (TDA) date."
^DD(421,6,0)="TRANSACTION DATE^RD^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421,6,21,0)="^^1^1^2910515^"
^DD(421,6,21,1,0)="This is the transaction date."
^DD(421,6,"DT")="2850430"
^DD(421,7,0)="1ST QTR^NJ11,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421,7,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421,7,21,0)="^^1^1^2910515^"
^DD(421,7,21,1,0)="This is the first quarter funding figure."
^DD(421,7,"DT")="2881214"
^DD(421,7.2,0)="1ST QTR CPA NUMBER^P410'^PRCS(410,^4;7^Q"
^DD(421,7.2,21,0)="^^3^3^2940328^^^^"
^DD(421,7.2,21,1,0)="This is a pointer to the Control Point Activity File, #410.  This field"
^DD(421,7.2,21,2,0)="indicates the corresponding entry created in the Control Point Activity"
^DD(421,7.2,21,3,0)="(CPA) file."
^DD(421,7.2,"DT")="2900525"
^DD(421,7.5,0)="1Q CODE SHEET RELEASED?^S^0:NO;1:YES;^4;1^Q"
^DD(421,7.5,21,0)="^^1^1^2910515^"
^DD(421,7.5,21,1,0)="Enter YES if the first quarter code sheet was released."
^DD(421,7.5,"DT")="2880420"
^DD(421,8,0)="2ND QTR^NJ11,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421,8,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421,8,21,0)="^^1^1^2910515^"
^DD(421,8,21,1,0)="This is the second quarter funding figure."
^DD(421,8,"DT")="2881214"
^DD(421,8.2,0)="2ND QTR CPA NUMBER^P410'^PRCS(410,^4;8^Q"
^DD(421,8.2,21,0)="^^3^3^2911115^^"
^DD(421,8.2,21,1,0)="This is a pointer to the Control Point Activity File, #410.  This field"
^DD(421,8.2,21,2,0)="indicates the corresponding entry created in the Control Point Activity"
^DD(421,8.2,21,3,0)="(CPA) file."
^DD(421,8.2,"DT")="2900525"
^DD(421,8.5,0)="2Q CODE SHEET RELEASED^S^0:NO;1:YES;^4;2^Q"
^DD(421,8.5,3)=""
^DD(421,8.5,21,0)="^^1^1^2940429^^"
^DD(421,8.5,21,1,0)="Enter YES if the second quarter code sheet was released."
^DD(421,9,0)="3RD QTR^NJ11,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421,9,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421,9,21,0)="^^1^1^2910515^"
^DD(421,9,21,1,0)="This is the third quarter funding figure."
^DD(421,9,"DT")="2881214"
^DD(421,9.2,0)="3RD QTR CPA NUMBER^P410'^PRCS(410,^4;9^Q"
^DD(421,9.2,3)=""
^DD(421,9.2,21,0)="^^3^3^2911115^^"
^DD(421,9.2,21,1,0)="This is a pointer to the Control Point Activity File, #410.  This field"
^DD(421,9.2,21,2,0)="indicates the corresponding entry created in the Control Point Activity"
^DD(421,9.2,21,3,0)="(CPA) file."
^DD(421,9.5,0)="3Q CODE SHEET RELEASED?^S^0:NO;1:YES;^4;3^Q"
^DD(421,9.5,21,0)="^^1^1^2910515^"
^DD(421,9.5,21,1,0)="Enter YES if the third quarter code sheet was released."
^DD(421,9.5,"DT")="2880420"
^DD(421,10,0)="4TH QTR^NJ11,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421,10,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421,10,21,0)="^^1^1^2910515^"
^DD(421,10,21,1,0)="This is the fourth quarter funding figure."
^DD(421,10,"DT")="2881214"
^DD(421,10.2,0)="4TH QTR CPA NUMBER^P410'^PRCS(410,^4;10^Q"
^DD(421,10.2,3)=""
^DD(421,10.2,21,0)="^^3^3^2911115^^^"
^DD(421,10.2,21,1,0)="This is a pointer to the Control Point Activity File, #410.  This field"
^DD(421,10.2,21,2,0)="indicates the corresponding entry created in the Control Point Activity"
^DD(421,10.2,21,3,0)="(CPA) file."
^DD(421,10.5,0)="4Q CODE SHEET RELEASED?^S^0:NO;1:YES;^4;4^Q"
^DD(421,10.5,3)=""
^DD(421,10.5,21,0)="^^1^1^2910515^"
^DD(421,10.5,21,1,0)="This is the total funds for the fourth quarter."
^DD(421,11,0)="TOTAL^CJ12,2^^ ; ^S Y(421,11,1)=$S($D(^PRCF(421,D0,0)):^(0),1:"""") S X=$P(Y(421,11,1),U,7)+$P(Y(421,11,1),U,8)+$P(Y(421,11,1),U,9)+$P(Y(421,11,1),U,10)"
^DD(421,11,9)="^"
^DD(421,11,9.01)="421^10;421^9;421^8;421^7"
^DD(421,11,9.1)="1ST QTR AMT+2ND QTR AMT+3RD QTR AMT+4TH QTR AMT"
^DD(421,11,21,0)="^^1^1^2911121^"
^DD(421,11,21,1,0)="This is the computed total of the funding figures for all four quarters."
^DD(421,11.5,0)="RELEASE STATUS^S^0:INCOMPLETE;1:SCHEDULED FOR RELEASE;2:RELEASED;3:COMPLETE;^0;20^Q"
^DD(421,11.5,1,0)="^.1"
^DD(421,11.5,1,1,0)="421^AL^MUMPS"
^DD(421,11.5,1,1,1)="S ZX=$P(^PRCF(421,DA,0),""^"",12) S:ZX]"""" ^PRCF(421,""AL"",ZX,$E(X,1,30),DA)="""" K ZX"
^DD(421,11.5,1,1,2)="S ZX=$P(^PRCF(421,DA,0),""^"",12) K:ZX]"""" ^PRCF(421,""AL"",ZX,$E(X,1,30),DA) K ZX"
^DD(421,11.5,1,1,"%D",0)="^^2^2^2930624^^"
^DD(421,11.5,1,1,"%D",1,0)="This cross reference is set on the station number-"
^DD(421,11.5,1,1,"%D",2,0)="fiscal year and the release status."
^DD(421,11.5,21,0)="^^1^1^2930303^^^"
^DD(421,11.5,21,1,0)="This is the set of codes for the release status."
^DD(421,11.5,"DT")="2911030"
^DD(421,12,0)="RELEASED BY^P200'^VA(200,^0;11^Q"
^DD(421,12,1,0)="^.1^^0"
^DD(421,12,3)=""
^DD(421,12,21,0)="^^1^1^2921116^^^^"
^DD(421,12,21,1,0)="This is the name of the official releasing the funds."
^DD(421,12,"DT")="2921116"
^DD(421,12.5,0)="VALIDATION CODE^FIO^^0;17^K:$L(X)>30!($L(X)<2) X"
^DD(421,12.5,2)="S Y(0)=Y S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCBES1(D0)"
^DD(421,12.5,2.1)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCBES1(D0)"
^DD(421,12.5,3)="Answer must be 2-30 characters in length."
^DD(421,12.5,8.5)="^"
^DD(421,12.5,9)="^"
^DD(421,12.5,21,0)="^^3^3^2921209^^^^"
^DD(421,12.5,21,1,0)="This is the electronic signature of the official releasing"
^DD(421,12.5,21,2,0)="the funds."
^DD(421,12.5,21,3,0)="------THIS FIELD USED TO BE CALLED ELECTRONIC SIGNATURE-------"
^DD(421,12.5,"DT")="2930127"
^DD(421,12.51,0)="DATE RELEASED^D^^0;18^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(421,12.51,21,0)="^^1^1^2910515^"
^DD(421,12.51,21,1,0)="This is the date the funds were released."
^DD(421,12.51,"DT")="2860624"
^DD(421,12.6,0)="VALIDATION VERSION^NJ11,5O^^4;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(421,12.6,2)="S Y(0)=Y S Y=""<HIDDEN>"" Q"
^DD(421,12.6,2.1)="S Y=""<HIDDEN>"" Q"
^DD(421,12.6,3)="Type a Number between 0 and 99999, 5 Decimal Digits"
^DD(421,12.6,21,0)="^^1^1^2930511^^^"
^DD(421,12.6,21,1,0)="RECORD VERSION NUMBER"
^DD(421,12.6,23,0)="^^1^1^2930127^^"
^DD(421,12.6,23,1,0)="RECORD VERSION NUMBER"
^DD(421,12.6,"DT")="2930125"
^DD(421,12.7,0)="ESIG CODE^F^^4;12^K:$L(X)>10!($L(X)<1) X"
^DD(421,12.7,3)="Answer must be 1-10 characters in length."
^DD(421,12.7,21,0)="^^1^1^2930414^^"
^DD(421,12.7,21,1,0)="Encoded value used by IFCAP security utilities when confirming the integrity of this record."
^DD(421,12.7,"DT")="2930410"
^DD(421,12.8,0)="VALIDATION DATE/TIME^D^^4;13^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421,12.8,3)="ENTER DATE DOCUMENT IS SIGNED."
^DD(421,12.8,21,0)="^^1^1^2930127^^"
^DD(421,12.8,21,1,0)="THIS IS DATE AND TIME DOCUMENT WAS SIGNED."
^DD(421,12.8,23,0)="^^1^1^2930127^^"
^DD(421,12.8,23,1,0)="THIS IS DATE AND TIME DOCUMENT WAS SIGNED."
^DD(421,12.8,"DT")="2930127"
^DD(421,13.5,0)="APPROPRIATION^FX^^0;16^K:$L(X)>30!($L(X)<4) X"
^DD(421,13.5,3)="ANSWER MUST BE 4-30 CHARACTERS IN LENGTH"
^DD(421,13.5,21,0)="^^1^1^2930405^^"
^DD(421,13.5,21,1,0)="This is the appropriation providing the funds."
^DD(421,13.5,"DT")="3070208"
^DD(421,14,0)="RECURRING FTEE^NJ6,1^^0;13^K:+X'=X!(X>5000)!(X<-5000)!(X?.E1"".""2N.N) X"
^DD(421,14,3)="TYPE A NUMBER BETWEEN -5000 AND 5000"
^DD(421,14,21,0)="^^1^1^2911106^^^"
^DD(421,14,21,1,0)="This is the number of recurring Full Time Employee Equivalent (FTEE)."
^DD(421,15,0)="NON RECUR FTEE^NJ6,1^^0;14^K:+X'=X!(X>5000)!(X<-5000)!(X?.E1"".""2N.N) X"
^DD(421,15,3)="TYPE A NUMBER BETWEEN -5000 AND 5000"
^DD(421,15,21,0)="^^1^1^2910515^"
^DD(421,15,21,1,0)="This is the number of non-recurring FTEE."
^DD(421,16,0)="TRNG FTEE^NJ6,1^^0;15^K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"".""2N.N) X"
^DD(421,16,3)="TYPE A NUMBER BETWEEN -1000 AND 1000"
^DD(421,16,21,0)="^^1^1^2910515^"
^DD(421,16,21,1,0)="This is the number of training FTEE."
^DD(421,16.5,0)="TOTAL FTEE^CJ8,1^^ ; ^S Y(421,16.5,1)=$S($D(^PRCF(421,D0,0)):^(0),1:"""") S X=$P(Y(421,16.5,1),U,13)+$P(Y(421,16.5,1),U,14)+$P(Y(421,16.5,1),U,15)"
^DD(421,16.5,9)="^"
^DD(421,16.5,9.01)="421^16;421^15;421^14"
^DD(421,16.5,9.1)="RECURRING FTEE+NON RECUR FTEE+TRNG FTEE"
^DD(421,16.5,21,0)="^^1^1^2910515^"
^DD(421,16.5,21,1,0)="This is the number of the total FTEE."
^DD(421,17,0)="DESCRIPTION^421.01^^1;0"
^DD(421,17,21,0)="^^1^1^2911120^^"
^DD(421,17,21,1,0)="This is a description of the transaction."
^DD(421,20,0)="OCT - CUM^NJ10,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,20,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,20,21,0)="^^1^1^2910515^"
^DD(421,20,21,1,0)="This is the cumulative FTEE for October."
^DD(421,20,"DT")="2850325"
^DD(421,21,0)="NOV - CUM^NJ10,2^^2;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,21,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,21,21,0)="^^1^1^2910515^"
^DD(421,21,21,1,0)="This is the cumulative FTEE for November."
^DD(421,21,"DT")="2850325"
^DD(421,22,0)="DEC - CUM^NJ10,2^^2;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,22,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,22,21,0)="^^1^1^2910515^"
^DD(421,22,21,1,0)="This is the cumulative FTEE for December."
^DD(421,22,"DT")="2850325"
^DD(421,23,0)="JAN - CUM^NJ10,2^^2;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,23,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,23,21,0)="^^1^1^2910515^"
^DD(421,23,21,1,0)="This is the cumulative FTEE for January."
^DD(421,23,"DT")="2850325"
^DD(421,24,0)="FEB - CUM^NJ11,2^^2;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>99999999)!(X<-9999999) X"
^DD(421,24,3)="TYPE A NUMBER BETWEEN -9999999 AND 99999999"
^DD(421,24,21,0)="^^1^1^2910515^"
^DD(421,24,21,1,0)="This is the cumulative FTEE for February."
^DD(421,24,"DT")="2850325"
^DD(421,25,0)="MAR - CUM^NJ10,2^^2;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,25,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,25,21,0)="^^1^1^2910515^"
^DD(421,25,21,1,0)="This is the cumulative FTEE for March."
^DD(421,25,"DT")="2850325"
^DD(421,26,0)="APR - CUM^NJ10,2^^2;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,26,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,26,21,0)="^^1^1^2910515^"
^DD(421,26,21,1,0)="This is the cumulative FTEE for April."
^DD(421,26,"DT")="2850325"
^DD(421,27,0)="MAY - CUM^NJ10,2^^2;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,27,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,27,21,0)="^^1^1^2910515^"
^DD(421,27,21,1,0)="This is the cumulative FTEE for May."
^DD(421,27,"DT")="2850325"
^DD(421,28,0)="JUN - CUM^NJ10,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,28,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,28,21,0)="^^1^1^2910515^"
^DD(421,28,21,1,0)="This is the cumulative FTEE for June."
^DD(421,28,"DT")="2850325"
^DD(421,29,0)="JUL - CUM^NJ10,2^^2;10^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,29,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,29,21,0)="^^1^1^2910515^"
^DD(421,29,21,1,0)="This is the cumulative FTEE for July."
^DD(421,29,"DT")="2850325"
^DD(421,30,0)="AUG - CUM^NJ10,2^^2;11^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,30,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,30,21,0)="^^1^1^2910515^"
^DD(421,30,21,1,0)="This is the cumulative FTEE for August."
^DD(421,30,"DT")="2850325"
^DD(421,31,0)="SEP - CUM^NJ10,2^^2;12^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,31,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,31,21,0)="^^1^1^2910515^"
^DD(421,31,21,1,0)="This is the cumulative FTEE for September."
^DD(421,31,"DT")="2850325"
^DD(421,40,0)="OCT - NON CUM^NJ10,2^^3;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,40,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,40,21,0)="^^1^1^2910515^"
^DD(421,40,21,1,0)="This is the non-cumulative FTEE for October."
^DD(421,40,"DT")="2850418"
^DD(421,41,0)="NOV - NON CUM^NJ10,2^^3;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,41,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,41,21,0)="^^1^1^2910515^"
^DD(421,41,21,1,0)="This is the non-cumulative FTEE for November."
^DD(421,41,"DT")="2850418"
^DD(421,42,0)="DEC - NON CUM^NJ10,2^^3;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,42,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,42,21,0)="^^1^1^2910515^"
^DD(421,42,21,1,0)="This is the non-cumulative FTEE for December."
^DD(421,42,"DT")="2850418"
^DD(421,43,0)="JAN - NON CUM^NJ10,2^^3;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,43,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,43,21,0)="^^1^1^2910515^"
^DD(421,43,21,1,0)="This is the non-cumulative FTEE for January."
^DD(421,43,"DT")="2850418"
^DD(421,44,0)="FEB - NON CUM^NJ10,2^^3;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,44,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,44,21,0)="^^1^1^2910515^"
^DD(421,44,21,1,0)="This is the non-cumulative FTEE for February."
^DD(421,44,"DT")="2850418"
^DD(421,45,0)="MAR - NON CUM^NJ10,2^^3;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,45,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,45,21,0)="^^1^1^2910515^"
^DD(421,45,21,1,0)="This is the non-cumulative FTEE for March."
^DD(421,45,"DT")="2850418"
^DD(421,46,0)="APR - NON CUM^NJ10,2^^3;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,46,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,46,21,0)="^^1^1^2910515^"
^DD(421,46,21,1,0)="This is the non-cumulative FTEE for April."
^DD(421,46,"DT")="2850418"
^DD(421,47,0)="MAY - NON CUM^NJ10,2^^3;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,47,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,47,21,0)="^^1^1^2910515^"
^DD(421,47,21,1,0)="This is the non-cumulative FTEE for May."
^DD(421,47,"DT")="2850418"
^DD(421,48,0)="JUN - NON CUM^NJ10,2^^3;9^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,48,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,48,21,0)="^^1^1^2910515^"
^DD(421,48,21,1,0)="This is the non-cumulative FTEE for June."
^DD(421,48,"DT")="2850418"
^DD(421,49,0)="JUL - NON CUM^NJ10,2^^3;10^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,49,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,49,21,0)="^^1^1^2910515^"
^DD(421,49,21,1,0)="This is the non-cumulative FTEE for July."
^DD(421,49,"DT")="2850418"
^DD(421,50,0)="AUG - NON CUM^NJ10,2^^3;11^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,50,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,50,21,0)="^^1^1^2910515^"
^DD(421,50,21,1,0)="This is the non-cumulative FTEE for August."
^DD(421,50,"DT")="2850418"
^DD(421,51,0)="SEP - NON CUM^NJ10,2^^3;12^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(421,51,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(421,51,21,0)="^^1^1^2910515^"
^DD(421,51,21,1,0)="This is the non-cumulative FTEE for September."
^DD(421,51,"DT")="2850418"
^DD(421,52,0)="RECURRING/NON-RECURRING^RS^NR:NON-RECURRING;R:RECURRING;^4;6^Q"
^DD(421,52,.1)="R/NR"
^DD(421,52,21,0)="^^2^2^2911115^^^^"
^DD(421,52,21,1,0)="This field identifies a ceiling transaction as a"
^DD(421,52,21,2,0)="recurring/non-recurring expenditure."
^DD(421,52,"DT")="2890415"
^DD(421,53,0)="ANNUALIZATION AMOUNT^NJ11,2^^4;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(421,53,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421,53,21,0)="^^6^6^2930204^^^^"
^DD(421,53,21,1,0)="This field indicates the amount to be received in full the following"
^DD(421,53,21,2,0)="fiscal year and is used only in conjunction with recurring funds. "
^DD(421,53,21,3,0)="For example, a station receives $20,000 funding for two (2) Full Time"
^DD(421,53,21,4,0)="Employee Equivalent (FTEE) authorizations for April through September. "
^DD(421,53,21,5,0)="The annualization amount indicates the amount that the station will"
^DD(421,53,21,6,0)="receive for the next fiscal year."
^DD(421,53,"DT")="2890416"
^DD(421,"B","1Q CODE SHEET RELEASED?",7.5)=""
^DD(421,"B","1ST QTR",7)=""
^DD(421,"B","1ST QTR CPA NUMBER",7.2)=""
^DD(421,"B","2ND QTR",8)=""
^DD(421,"B","2ND QTR CPA NUMBER",8.2)=""
^DD(421,"B","2Q CODE SHEET RELEASED",8.5)=""
^DD(421,"B","3Q CODE SHEET RELEASED?",9.5)=""
^DD(421,"B","3RD QTR",9)=""
^DD(421,"B","3RD QTR CPA NUMBER",9.2)=""
^DD(421,"B","4Q CODE SHEET RELEASED?",10.5)=""
^DD(421,"B","4TH QTR",10)=""
^DD(421,"B","4TH QTR CPA NUMBER",10.2)=""
^DD(421,"B","ANNUALIZATION AMOUNT",53)=""
^DD(421,"B","APPROPRIATION",13.5)=""
^DD(421,"B","APR - CUM",26)=""
^DD(421,"B","APR - NON CUM",46)=""
^DD(421,"B","AUG - CUM",30)=""
^DD(421,"B","AUG - NON CUM",50)=""
^DD(421,"B","BBFY",1.6)=""
^DD(421,"B","BUDGET SORT CATEGORY",2)=""
^DD(421,"B","BUDGET SORT ORDER",2.5)=""
^DD(421,"B","CONTROL POINT",1)=""
^DD(421,"B","CONTROL POINT NUMBER",1.5)=""
^DD(421,"B","DATE RELEASED",12.51)=""
^DD(421,"B","DEC - CUM",22)=""
^DD(421,"B","DEC - NON CUM",42)=""
^DD(421,"B","DESCRIPTION",17)=""
^DD(421,"B","ESIG CODE",12.7)=""
^DD(421,"B","FCP#",1.5)="1"
^DD(421,"B","FEB - CUM",24)=""
^DD(421,"B","FEB - NON CUM",44)=""
^DD(421,"B","JAN - CUM",23)=""
^DD(421,"B","JAN - NON CUM",43)=""
^DD(421,"B","JUL - CUM",29)=""
^DD(421,"B","JUL - NON CUM",49)=""
^DD(421,"B","JUN - CUM",28)=""
^DD(421,"B","JUN - NON CUM",48)=""
^DD(421,"B","MAR - CUM",25)=""
^DD(421,"B","MAR - NON CUM",45)=""
^DD(421,"B","MAY - CUM",27)=""
^DD(421,"B","MAY - NON CUM",47)=""
^DD(421,"B","NON RECUR FTEE",15)=""
^DD(421,"B","NOV - CUM",21)=""
^DD(421,"B","NOV - NON CUM",41)=""
^DD(421,"B","OCT - CUM",20)=""
^DD(421,"B","OCT - NON CUM",40)=""
^DD(421,"B","ON CODE SHEET LIST",.6)=""
^DD(421,"B","ON PRINT LIST #1",.7)=""
^DD(421,"B","ON PRINT LIST #2",.8)=""
^DD(421,"B","ON SEARCH LIST",.9)=""
^DD(421,"B","R/NR",52)="1"
^DD(421,"B","RECURRING FTEE",14)=""
^DD(421,"B","RECURRING/NON-RECURRING",52)=""
^DD(421,"B","RELEASE STATUS",11.5)=""
^DD(421,"B","RELEASED BY",12)=""
^DD(421,"B","SEP - CUM",31)=""
^DD(421,"B","SEP - NON CUM",51)=""
^DD(421,"B","SIFY",.5)=""
^DD(421,"B","TDA #",3)="1"
^DD(421,"B","TDA DATE",5)=""
^DD(421,"B","TDA NUMBER",3)=""
^DD(421,"B","TOTAL",11)=""
^DD(421,"B","TOTAL FTEE",16.5)=""
^DD(421,"B","TRANSACTION DATE",6)=""
^DD(421,"B","TRANSACTION NUMBER",.01)=""
^DD(421,"B","TRANSFER/ROLLUP COUPLER",1.7)=""
^DD(421,"B","TRNG FTEE",16)=""
^DD(421,"B","VALIDATION CODE",12.5)=""
^DD(421,"B","VALIDATION DATE/TIME",12.8)=""
^DD(421,"B","VALIDATION VERSION",12.6)=""
^DD(421,"GL",0,1,.01)=""
^DD(421,"GL",0,2,1)=""
^DD(421,"GL",0,3,2)=""
^DD(421,"GL",0,4,3)=""
^DD(421,"GL",0,5,5)=""
^DD(421,"GL",0,6,6)=""
^DD(421,"GL",0,7,7)=""
^DD(421,"GL",0,8,8)=""
^DD(421,"GL",0,9,9)=""
^DD(421,"GL",0,10,10)=""
^DD(421,"GL",0,11,12)=""
^DD(421,"GL",0,12,.5)=""
^DD(421,"GL",0,13,14)=""
^DD(421,"GL",0,14,15)=""
^DD(421,"GL",0,15,16)=""
^DD(421,"GL",0,16,13.5)=""
^DD(421,"GL",0,17,12.5)=""
^DD(421,"GL",0,18,12.51)=""
^DD(421,"GL",0,19,.6)=""
^DD(421,"GL",0,20,11.5)=""
^DD(421,"GL",0,21,.7)=""
^DD(421,"GL",0,22,1.7)=""
^DD(421,"GL",0,23,1.6)=""
^DD(421,"GL",1,0,17)=""
^DD(421,"GL",2,1,20)=""
^DD(421,"GL",2,2,21)=""
^DD(421,"GL",2,3,22)=""
^DD(421,"GL",2,4,23)=""
^DD(421,"GL",2,5,24)=""
^DD(421,"GL",2,6,25)=""
^DD(421,"GL",2,7,26)=""
^DD(421,"GL",2,8,27)=""
^DD(421,"GL",2,9,28)=""
^DD(421,"GL",2,10,29)=""
^DD(421,"GL",2,11,30)=""
^DD(421,"GL",2,12,31)=""
^DD(421,"GL",2,13,.8)=""
^DD(421,"GL",2,14,.9)=""
^DD(421,"GL",3,1,40)=""
^DD(421,"GL",3,2,41)=""
^DD(421,"GL",3,3,42)=""
^DD(421,"GL",3,4,43)=""
^DD(421,"GL",3,5,44)=""
^DD(421,"GL",3,6,45)=""
^DD(421,"GL",3,7,46)=""
^DD(421,"GL",3,8,47)=""
^DD(421,"GL",3,9,48)=""
^DD(421,"GL",3,10,49)=""
^DD(421,"GL",3,11,50)=""
^DD(421,"GL",3,12,51)=""
^DD(421,"GL",4,1,7.5)=""
^DD(421,"GL",4,2,8.5)=""
^DD(421,"GL",4,3,9.5)=""
^DD(421,"GL",4,4,10.5)=""
^DD(421,"GL",4,5,53)=""
^DD(421,"GL",4,6,52)=""
^DD(421,"GL",4,7,7.2)=""
^DD(421,"GL",4,8,8.2)=""
^DD(421,"GL",4,9,9.2)=""
^DD(421,"GL",4,10,10.2)=""
^DD(421,"GL",4,11,12.6)=""
^DD(421,"GL",4,12,12.7)=""
^DD(421,"GL",4,13,12.8)=""
^DD(421,"IX",.01)=""
^DD(421,"IX",.5)=""
^DD(421,"IX",.6)=""
^DD(421,"IX",.7)=""
^DD(421,"IX",.8)=""
^DD(421,"IX",.9)=""
^DD(421,"IX",1)=""
^DD(421,"IX",1.6)=""
^DD(421,"IX",2)=""
^DD(421,"IX",3)=""
^DD(421,"IX",11.5)=""
^DD(421,"RQ",.01)=""
^DD(421,"RQ",1)=""
^DD(421,"RQ",1.6)=""
^DD(421,"RQ",6)=""
^DD(421,"RQ",52)=""
^DD(421,"SB",421.01,17)=""
^DD(421.01,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(421.01,0,"NM","DESCRIPTION")=""
^DD(421.01,0,"UP")="421"
^DD(421.01,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(421.01,.01,21,0)="^^1^1^2911120^"
^DD(421.01,.01,21,1,0)="This is a description of the transaction."
^DD(421.01,"B","DESCRIPTION",.01)=""
^DD(421.01,"GL",0,1,.01)=""
^DD(421.1,0)="FIELD^^6^5"
^DD(421.1,0,"DT")="2940331"
^DD(421.1,0,"IX","B",421.1,.01)=""
^DD(421.1,0,"NM","MULTIPLE DISTRIBUTION")=""
^DD(421.1,0,"VR")="5.1"
^DD(421.1,0,"VRPK")="IFCAP"
^DD(421.1,.01,0)="TRANSACTION NUMBER^RF^^0;1^K:$L(X)>7!($L(X)<7)!'(X?1""T""1""-""5N)!(X'?.ANP) X"
^DD(421.1,.01,1,0)="^.1"
^DD(421.1,.01,1,1,0)="421.1^B"
^DD(421.1,.01,1,1,1)="S ^PRCF(421.1,""B"",$E(X,1,30),DA)="""""
^DD(421.1,.01,1,1,2)="K ^PRCF(421.1,""B"",$E(X,1,30),DA)"
^DD(421.1,.01,3)="ANSWER MUST BE 7 CHARACTERS IN LENGTH"
^DD(421.1,.01,21,0)="^^2^2^2911106^^^"
^DD(421.1,.01,21,1,0)="This is the transaction number used by the Funds Distribution module to"
^DD(421.1,.01,21,2,0)="distribute funds to multiple control points (multiple distribution)."
^DD(421.1,.01,"DT")="2890323"
^DD(421.1,1,0)="TRANSACTION DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.1,1,21,0)="^^1^1^2910515^"
^DD(421.1,1,21,1,0)="This is the transaction date."
^DD(421.1,1,"DT")="2891003"
^DD(421.1,4,0)="CONTROL POINT^421.14^^1;0"
^DD(421.1,4,21,0)="^^1^1^2941202^^^^"
^DD(421.1,4,21,1,0)="This is the control point."
^DD(421.1,5,0)="DESCRIPTION^421.15^^2;0"
^DD(421.1,5,21,0)="^^1^1^2910515^"
^DD(421.1,5,21,1,0)="This is the description of transaction."
^DD(421.1,6,0)="ENTERED BY^P200'^VA(200,^0;5^Q"
^DD(421.1,6,21,0)="^^1^1^2921221^^"
^DD(421.1,6,21,1,0)="This is the person who entered the transaction."
^DD(421.1,6,"DT")="2921221"
^DD(421.1,"B","CONTROL POINT",4)=""
^DD(421.1,"B","DESCRIPTION",5)=""
^DD(421.1,"B","ENTERED BY",6)=""
^DD(421.1,"B","TRANSACTION DATE",1)=""
^DD(421.1,"B","TRANSACTION NUMBER",.01)=""
^DD(421.1,"GL",0,1,.01)=""
^DD(421.1,"GL",0,2,1)=""
^DD(421.1,"GL",0,5,6)=""
^DD(421.1,"GL",1,0,4)=""
^DD(421.1,"GL",2,0,5)=""
^DD(421.1,"IX",.01)=""
^DD(421.1,"RQ",.01)=""
^DD(421.1,"RQ",1)=""
^DD(421.1,"SB",421.14,4)=""
^DD(421.1,"SB",421.15,5)=""
^DD(421.14,0)="CONTROL POINT SUB-FIELD^^6^8"
^DD(421.14,0,"DT")="2940331"
^DD(421.14,0,"IX","B",421.14,.01)=""
^DD(421.14,0,"NM","CONTROL POINT")=""
^DD(421.14,0,"UP")="421.1"
^DD(421.14,.01,0)="CONTROL POINT^MRFX^^0;1^D INPT^PRCBMT"
^DD(421.14,.01,.1)="FCP#"
^DD(421.14,.01,1,0)="^.1"
^DD(421.14,.01,1,1,0)="421.14^B"
^DD(421.14,.01,1,1,1)="S ^PRCF(421.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(421.14,.01,1,1,2)="K ^PRCF(421.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(421.14,.01,3)="ANSWER WITH CONTROL POINT"
^DD(421.14,.01,4)="N DO,D0 S ZD=D,X=""?"" Q:'$D(^PRC(420,PRC(""SITE""),1,0))  S DIC=""^PRC(420,PRC(""""SITE""""),1,"",DIC(0)=""QEM"",DIC(""S"")=""I +$P(^(0),U),9999"" D ^DIC K DIC(""S"") S DIC=DIE,D=ZD K ZD"
^DD(421.14,.01,21,0)="^^1^1^2910607^^^"
^DD(421.14,.01,21,1,0)="This is the name of the control point."
^DD(421.14,.01,"DT")="2890322"
^DD(421.14,.5,0)="BBFY^RD^^0;6^S %DT=""E"" D ^%DT S X=Y K:3990000<X!(2000000>X) X"
^DD(421.14,.5,3)="Enter a year between 1900 and 2099."
^DD(421.14,.5,21,0)="^^1^1^2941202^^"
^DD(421.14,.5,21,1,0)="This is used to store BBFY data."
^DD(421.14,.5,"DT")="2940401"
^DD(421.14,1,0)="1ST QTR^NJ11,2X^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421.14,1,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421.14,1,21,0)="^^1^1^2910515^"
^DD(421.14,1,21,1,0)="This is the first quarter amount."
^DD(421.14,1,"DT")="2890414"
^DD(421.14,2,0)="2ND QTR^NJ11,2X^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421.14,2,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421.14,2,21,0)="^^1^1^2910515^"
^DD(421.14,2,21,1,0)="This is the second quarter amount."
^DD(421.14,2,"DT")="2890414"
^DD(421.14,3,0)="3RD QTR^NJ11,2X^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421.14,3,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421.14,3,21,0)="^^1^1^2910515^"
^DD(421.14,3,21,1,0)="This is the third quarter amount."
^DD(421.14,3,"DT")="2890414"
^DD(421.14,4,0)="4TH QTR^NJ11,2X^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X I $D(X) D DOLLAR^PRCBE"
^DD(421.14,4,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421.14,4,21,0)="^^1^1^2910515^"
^DD(421.14,4,21,1,0)="This is the fourth quarter amount."
^DD(421.14,4,"DT")="2890414"
^DD(421.14,5,0)="RECURRING/NON-RECURRING^S^NR:NON-RECURRING;R:RECURRING;^4;6^Q"
^DD(421.14,5,21,0)="^^1^1^2941109^^"
^DD(421.14,5,21,1,0)="This is the set of codes for recurring/non-recurring FTEE."
^DD(421.14,5,"DT")="2890414"
^DD(421.14,6,0)="ANNUALIZATION AMOUNT^NJ11,2^^4;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(421.14,6,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421.14,6,21,0)="^^1^1^2910515^"
^DD(421.14,6,21,1,0)="This is the annualization amount."
^DD(421.14,6,"DT")="2890415"
^DD(421.14,"B","1ST QTR",1)=""
^DD(421.14,"B","2ND QTR",2)=""
^DD(421.14,"B","3RD QTR",3)=""
^DD(421.14,"B","4TH QTR",4)=""
^DD(421.14,"B","ANNUALIZATION AMOUNT",6)=""
^DD(421.14,"B","BBFY",.5)=""
^DD(421.14,"B","CONTROL POINT",.01)=""
^DD(421.14,"B","FCP#",.01)="1"
^DD(421.14,"B","RECURRING/NON-RECURRING",5)=""
^DD(421.14,"GL",0,1,.01)=""
^DD(421.14,"GL",0,2,1)=""
^DD(421.14,"GL",0,3,2)=""
^DD(421.14,"GL",0,4,3)=""
^DD(421.14,"GL",0,5,4)=""
^DD(421.14,"GL",0,6,.5)=""
^DD(421.14,"GL",4,5,6)=""
^DD(421.14,"GL",4,6,5)=""
^DD(421.14,"IX",.01)=""
^DD(421.14,"RQ",.01)=""
^DD(421.14,"RQ",.5)=""
^DD(421.15,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(421.15,0,"NM","DESCRIPTION")=""
^DD(421.15,0,"UP")="421.1"
^DD(421.15,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(421.15,.01,21,0)="^^1^1^2910515^"
^DD(421.15,.01,21,1,0)="This is a description of the transaction."
^DD(421.15,.01,"DT")="2890320"
^DD(421.15,"B","DESCRIPTION",.01)=""
^DD(421.15,"GL",0,1,.01)=""
^DD(421.2,0)="FIELD^^10^20"
^DD(421.2,0,"DT")="2930410"
^DD(421.2,0,"IX","AC",421.2,1)=""
^DD(421.2,0,"IX","AD",421.2,10)=""
^DD(421.2,0,"IX","B",421.2,.01)=""
^DD(421.2,0,"IX","C",421.2,.01)=""
^DD(421.2,0,"IX","D",421.2,4.5)=""
^DD(421.2,0,"IX","E",421.2,.01)=""
^DD(421.2,0,"NM","CALM/LOG TRANSMISSION RECORD")=""
^DD(421.2,0,"VR")="5.1"
^DD(421.2,0,"VRPK")="IFCAP"
^DD(421.2,.01,0)="BATCH/TRANSMISSION NUMBER^RFX^^0;1^K:X[""""""""!($A((X)=45)&(X'?3N1""-""3U1""-""2N1""-""4.6N.1U)&(X'?3N1""-RR-""6UN1""-""1.5N)) X"
^DD(421.2,.01,1,0)="^.1"
^DD(421.2,.01,1,1,0)="421.2^B"
^DD(421.2,.01,1,1,1)="S ^PRCF(421.2,""B"",$E(X,1,30),DA)="""""
^DD(421.2,.01,1,1,2)="K ^PRCF(421.2,""B"",$E(X,1,30),DA)"
^DD(421.2,.01,1,2,0)="421.2^C^MUMPS"
^DD(421.2,.01,1,2,1)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",4),1:$P(X,""-"",3)),^PRCF(421.2,""C"",X1,DA)="""" K X1"
^DD(421.2,.01,1,2,2)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",4),1:$P(X,""-"",3)) K ^PRCF(421.2,""C"",X1,DA),X1"
^DD(421.2,.01,1,2,"%D",0)="^^2^2^2930629^"
^DD(421.2,.01,1,2,"%D",1,0)="This cross-reference is formed from the sequence number piece of the batch"
^DD(421.2,.01,1,2,"%D",2,0)="transmission number."
^DD(421.2,.01,1,3,0)="421.2^E^MUMPS"
^DD(421.2,.01,1,3,1)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",3,4),1:$P(X,""-"",2,3)),^PRCF(421.2,""E"",X1,DA)="""" K X1"
^DD(421.2,.01,1,3,2)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",3,4),1:$P(X,""-"",2,3)) K ^PRCF(421.2,""E"",X1,DA),X1"
^DD(421.2,.01,1,3,"%D",0)="^^2^2^2930629^"
^DD(421.2,.01,1,3,"%D",1,0)="This cross reference is formed from the fiscal year and sequence number"
^DD(421.2,.01,1,3,"%D",2,0)="pieces of the batch transmission number."
^DD(421.2,.01,3)="Enter Batch Number,Transmission Number, or Station Mailman Message Number Format  503-CLM-88-1234C or 503-LOG-88-12345"
^DD(421.2,.01,21,0)="^^3^3^2911106^^^"
^DD(421.2,.01,21,1,0)="This is the batch/transaction number.  CALM/LOG Transmission Records"
^DD(421.2,.01,21,2,0)="are those records that have been transmitted to Austin.  Information is"
^DD(421.2,.01,21,3,0)="stored by batch number and transaction number."
^DD(421.2,.01,"DT")="2930218"
^DD(421.2,.1,0)="SYSTEM IDENTIFIER^S^CLM:CALM;LOG:LOG;FEE:FEE;^0;14^Q"
^DD(421.2,.1,21,0)="^^1^1^2910515^"
^DD(421.2,.1,21,1,0)="This is the system identifier."
^DD(421.2,.1,"DT")="2870709"
^DD(421.2,.5,0)="TYPE^S^B:BATCH;T:TRANSMISSION;R:RECEIVING REPORT;^0;3^Q"
^DD(421.2,.5,21,0)="^^1^1^2910515^"
^DD(421.2,.5,21,1,0)="This is the type of transmission."
^DD(421.2,.5,"DT")="2880621"
^DD(421.2,.7,0)="RELEASE VALIDATION DATE/TIME^D^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.2,.7,21,0)="^^2^2^2930127^^^^"
^DD(421.2,.7,21,1,0)="This is the date and time the transmission was initially validated"
^DD(421.2,.7,21,2,0)="and released."
^DD(421.2,.7,"DT")="2930126"
^DD(421.2,.8,0)="CREATED BY^P200'^VA(200,^0;11^Q"
^DD(421.2,.8,21,0)="^^1^1^2921221^^"
^DD(421.2,.8,21,1,0)="This is the name of the person creating the transmission."
^DD(421.2,.8,"DT")="2921221"
^DD(421.2,1,0)="TRANSMISSION NUMBER^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<11)!'(X?3N1""-""2N1""-""5N) X"
^DD(421.2,1,1,0)="^.1"
^DD(421.2,1,1,1,0)="421.2^AC"
^DD(421.2,1,1,1,1)="S ^PRCF(421.2,""AC"",$E(X,1,30),DA)="""""
^DD(421.2,1,1,1,2)="K ^PRCF(421.2,""AC"",$E(X,1,30),DA)"
^DD(421.2,1,1,1,"%D",0)="^^1^1^2930708^"
^DD(421.2,1,1,1,"%D",1,0)="This cross reference is used to hold transmission numbers."
^DD(421.2,1,3)="ANSWER MUST BE 11 CHARACTERS IN LENGTH"
^DD(421.2,1,21,0)="^^1^1^2910515^"
^DD(421.2,1,21,1,0)="This is the transmission number."
^DD(421.2,4,0)="D/T LAST GIVEN TO MAILMAN^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.2,4,21,0)="^^1^1^2930219^^^^"
^DD(421.2,4,21,1,0)="This is the date and time the transaction was last given to MailMan."
^DD(421.2,4,"DT")="2930115"
^DD(421.2,4.5,0)="MESSAGE NUMBER^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(421.2,4.5,1,0)="^.1"
^DD(421.2,4.5,1,1,0)="421.2^D"
^DD(421.2,4.5,1,1,1)="S ^PRCF(421.2,""D"",$E(X,1,30),DA)="""""
^DD(421.2,4.5,1,1,2)="K ^PRCF(421.2,""D"",$E(X,1,30),DA)"
^DD(421.2,4.5,1,1,"%D",0)="^^1^1^2930708^"
^DD(421.2,4.5,1,1,"%D",1,0)="This cross reference is used to hold the message number."
^DD(421.2,4.5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999999"
^DD(421.2,4.5,21,0)="^^1^1^2910515^"
^DD(421.2,4.5,21,1,0)="This is the number of the message."
^DD(421.2,4.5,"DT")="2870420"
^DD(421.2,4.6,0)="MSC CONFIRMATION^F^^0;13^K:$L(X)>15!($L(X)<1) X"
^DD(421.2,4.6,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(421.2,4.6,21,0)="^^1^1^2910515^"
^DD(421.2,4.6,21,1,0)="This is the message switching center confirmation."
^DD(421.2,4.6,"DT")="2870417"
^DD(421.2,5,0)="RELEASE BY^P200'^VA(200,^0;5^Q"
^DD(421.2,5,21,0)="^^1^1^2921218^^"
^DD(421.2,5,21,1,0)="This is the name of the person releasing the transmission."
^DD(421.2,5,"DT")="2921218"
^DD(421.2,5.5,0)="VALIDATION CODE^FIO^^0;6^K:$L(X)>30!($L(X)<2) X"
^DD(421.2,5.5,2)="S Y(0)=Y S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFAES1(D0)"
^DD(421.2,5.5,2.1)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFAES1(D0)"
^DD(421.2,5.5,3)="Answer must be 2-30 characters in length."
^DD(421.2,5.5,8.5)="^"
^DD(421.2,5.5,9)="^"
^DD(421.2,5.5,21,0)="^^2^2^2930127^^^^"
^DD(421.2,5.5,21,1,0)="This is the validation code created for the transmission record at the time"
^DD(421.2,5.5,21,2,0)="a valid electronic signature is entered authorizing the release of the batch."
^DD(421.2,5.5,"DT")="2930127"
^DD(421.2,5.7,0)="VALIDATION VERSION^NJ2,0O^^.5;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.2,5.7,2)="S Y(0)=Y S Y=""<HIDDEN>"" Q"
^DD(421.2,5.7,2.1)="S Y=""<HIDDEN>"" Q"
^DD(421.2,5.7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(421.2,5.7,21,0)="^^3^3^2930127^"
^DD(421.2,5.7,21,1,0)="This is the version number of the algorithms used to encode and decode the"
^DD(421.2,5.7,21,2,0)="validation code which was created for the transmission record at the time"
^DD(421.2,5.7,21,3,0)="it was initially released."
^DD(421.2,5.7,"DT")="2930125"
^DD(421.2,5.9,0)="ESIG CODE^F^^.5;2^K:$L(X)>10!($L(X)<1) X"
^DD(421.2,5.9,3)="Answer must be 1-10 characters in length."
^DD(421.2,5.9,21,0)="^^1^1^2930414^^^^"
^DD(421.2,5.9,21,1,0)="Encoded value used by IFCAP security utilities when confirming the integrity of this record."
^DD(421.2,5.9,22)=""
^DD(421.2,5.9,"DT")="2930410"
^DD(421.2,6,0)="BATCH NUMBER^421.21^^1;0"
^DD(421.2,6,21,0)="^^1^1^2910515^^"
^DD(421.2,6,21,1,0)="This is the number of the batch transmission."
^DD(421.2,7,0)="RERELEASE VALIDATION DATE/TIME^D^^0;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.2,7,21,0)="^^2^2^2930126^^^^"
^DD(421.2,7,21,1,0)="This is the date and time the batch transmission was validated for"
^DD(421.2,7,21,2,0)="the last rerelease."
^DD(421.2,7,"DT")="2930126"
^DD(421.2,8,0)="RE-RELEASED BY^P200'^VA(200,^0;8^Q"
^DD(421.2,8,21,0)="^^1^1^2921218^^"
^DD(421.2,8,21,1,0)="This is the name of the person releasing the batch transmission."
^DD(421.2,8,"DT")="2921218"
^DD(421.2,8.7,0)="RE-RELEASE VALIDATION VERSION^NJ2,0O^^.5;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.2,8.7,2)="S Y(0)=Y S Y=""<HIDDEN>"" Q"
^DD(421.2,8.7,2.1)="S Y=""<HIDDEN>"" Q"
^DD(421.2,8.7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(421.2,8.7,21,0)="^^3^3^2930127^"
^DD(421.2,8.7,21,1,0)="This is the version number of the algorithms used to encode and decode"
^DD(421.2,8.7,21,2,0)="the validation code created for the record at the time that an electronic"
^DD(421.2,8.7,21,3,0)="signature is entered authorizing retransmission."
^DD(421.2,8.7,"DT")="2930125"
^DD(421.2,8.9,0)="RE-RELEASE ESIG CODE^F^^.5;4^K:$L(X)>10!($L(X)<1) X"
^DD(421.2,8.9,3)="Answer must be 1-10 characters in length."
^DD(421.2,8.9,21,0)="^^1^1^2930414^^^"
^DD(421.2,8.9,21,1,0)="Encoded value used by IFCAP security utilities when confirming the integrity of this record."
^DD(421.2,8.9,"DT")="2930410"
^DD(421.2,9,0)="RE-RELEASE VALIDATION CODE^FIO^^0;9^K:$L(X)>30!($L(X)<2) X"
^DD(421.2,9,2)="S Y(0)=Y S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFAES2(D0)"
^DD(421.2,9,2.1)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFAES2(D0)"
^DD(421.2,9,3)="Answer must be 2-30 characters in length."
^DD(421.2,9,8.5)="^"
^DD(421.2,9,9)="^"
^DD(421.2,9,21,0)="^^2^2^2921218^^^^"
^DD(421.2,9,21,1,0)="This is the electronic signature of the person releasing the batch "
^DD(421.2,9,21,2,0)="transmission."
^DD(421.2,9,"DT")="2930127"
^DD(421.2,10,0)="TRANSMISSION KEY^F^^0;15^K:$L(X)>1!($L(X)<17) X"
^DD(421.2,10,1,0)="^.1"
^DD(421.2,10,1,1,0)="421.2^AD"
^DD(421.2,10,1,1,1)="S ^PRCF(421.2,""AD"",$E(X,1,30),DA)="""""
^DD(421.2,10,1,1,2)="K ^PRCF(421.2,""AD"",$E(X,1,30),DA)"
^DD(421.2,10,1,1,"%D",0)="^^2^2^2930708^"
^DD(421.2,10,1,1,"%D",1,0)="This cross reference is used to hold the transmission"
^DD(421.2,10,1,1,"%D",2,0)="key."
^DD(421.2,10,3)="Answer must be 1 to 17 characters in length."
^DD(421.2,10,21,0)="^^3^3^2930204^^^"
^DD(421.2,10,21,1,0)="This field is used to hold the transmission key.  This cross-referenced key"
^DD(421.2,10,21,2,0)="allows the system to find all code sheets assigned to a specific batch"
^DD(421.2,10,21,3,0)="or transmission number."
^DD(421.2,10,"DT")="2900607"
^DD(421.2,"B","BATCH NUMBER",6)=""
^DD(421.2,"B","BATCH/TRANSMISSION NUMBER",.01)=""
^DD(421.2,"B","CREATED BY",.8)=""
^DD(421.2,"B","D/T LAST GIVEN TO MAILMAN",4)=""
^DD(421.2,"B","ESIG CODE",5.9)=""
^DD(421.2,"B","MESSAGE NUMBER",4.5)=""
^DD(421.2,"B","MSC CONFIRMATION",4.6)=""
^DD(421.2,"B","RE-RELEASE ESIG CODE",8.9)=""
^DD(421.2,"B","RE-RELEASE VALIDATION CODE",9)=""
^DD(421.2,"B","RE-RELEASE VALIDATION VERSION",8.7)=""
^DD(421.2,"B","RE-RELEASED BY",8)=""
^DD(421.2,"B","RELEASE BY",5)=""
^DD(421.2,"B","RELEASE VALIDATION DATE/TIME",.7)=""
^DD(421.2,"B","RERELEASE VALIDATION DATE/TIME",7)=""
^DD(421.2,"B","SYSTEM IDENTIFIER",.1)=""
^DD(421.2,"B","TRANSMISSION KEY",10)=""
^DD(421.2,"B","TRANSMISSION NUMBER",1)=""
^DD(421.2,"B","TYPE",.5)=""
^DD(421.2,"B","VALIDATION CODE",5.5)=""
^DD(421.2,"B","VALIDATION VERSION",5.7)=""
^DD(421.2,"GL",0,1,.01)=""
^DD(421.2,"GL",0,2,1)=""
^DD(421.2,"GL",0,3,.5)=""
^DD(421.2,"GL",0,4,4)=""
^DD(421.2,"GL",0,5,5)=""
^DD(421.2,"GL",0,6,5.5)=""
^DD(421.2,"GL",0,7,7)=""
^DD(421.2,"GL",0,8,8)=""
^DD(421.2,"GL",0,9,9)=""
^DD(421.2,"GL",0,10,.7)=""
^DD(421.2,"GL",0,11,.8)=""
^DD(421.2,"GL",0,12,4.5)=""
^DD(421.2,"GL",0,13,4.6)=""
^DD(421.2,"GL",0,14,.1)=""
^DD(421.2,"GL",0,15,10)=""
^DD(421.2,"GL",.5,1,5.7)=""
^DD(421.2,"GL",.5,2,5.9)=""
^DD(421.2,"GL",.5,3,8.7)=""
^DD(421.2,"GL",.5,4,8.9)=""
^DD(421.2,"GL",1,0,6)=""
^DD(421.2,"IX",.01)=""
^DD(421.2,"IX",1)=""
^DD(421.2,"IX",4.5)=""
^DD(421.2,"IX",10)=""
^DD(421.2,"RQ",.01)=""
^DD(421.2,"SB",421.21,6)=""
^DD(421.21,0)="BATCH NUMBER SUB-FIELD^^.01^1"
^DD(421.21,0,"NM","BATCH NUMBER")=""
^DD(421.21,0,"UP")="421.2"
^DD(421.21,.01,0)="BATCH NUMBER^MF^^0;1^K:$L(X)>12!($L(X)<12)!'(X?3N1""-""2N1""-""4.5N.1U) X"
^DD(421.21,.01,1,0)="^.1^^0"
^DD(421.21,.01,3)="ANSWER MUST BE 12 CHARACTERS IN LENGTH"
^DD(421.21,.01,21,0)="^^1^1^2910515^"
^DD(421.21,.01,21,1,0)="This is the batch number of a transmission."
^DD(421.21,.01,"DT")="2891006"
^DD(421.21,"B","BATCH NUMBER",.01)=""
^DD(421.21,"GL",0,1,.01)=""
^DD(421.3,0)="FIELD^^1^3"
^DD(421.3,0,"IX","B",421.3,.01)=""
^DD(421.3,0,"NM","CALM ERROR MESSAGES")=""
^DD(421.3,0,"VR")="5.1"
^DD(421.3,0,"VRPK")="IFCAP"
^DD(421.3,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.3,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 1000"
^DD(421.3,.001,21,0)="^^1^1^2910515^"
^DD(421.3,.001,21,1,0)="This is the name of the error message."
^DD(421.3,.01,0)="CODE NUMBER^RFX^^0;1^K:$L(X)>5!($L(X)<3)!'(X?3.5N) X I $D(X) S DINUM=+X"
^DD(421.3,.01,1,0)="^.1"
^DD(421.3,.01,1,1,0)="421.3^B"
^DD(421.3,.01,1,1,1)="S ^PRCF(421.3,""B"",$E(X,1,30),DA)="""""
^DD(421.3,.01,1,1,2)="K ^PRCF(421.3,""B"",$E(X,1,30),DA)"
^DD(421.3,.01,3)="ANSWER MUST BE 3-5 CHARACTERS IN LENGTH"
^DD(421.3,.01,21,0)="^^1^1^2910515^"
^DD(421.3,.01,21,1,0)="This is the code number of the error message."
^DD(421.3,1,0)="MESSAGE^421.31^^1;0"
^DD(421.3,1,21,0)="^^1^1^2911120^^"
^DD(421.3,1,21,1,0)="This is the error message."
^DD(421.3,"B","CODE NUMBER",.01)=""
^DD(421.3,"B","MESSAGE",1)=""
^DD(421.3,"B","NUMBER",.001)=""
^DD(421.3,"GL",0,1,.01)=""
^DD(421.3,"GL",1,0,1)=""
^DD(421.3,"IX",.01)=""
^DD(421.3,"RQ",.01)=""
^DD(421.3,"SB",421.31,1)=""
^DD(421.31,0)="MESSAGE SUB-FIELD^^.01^1"
^DD(421.31,0,"NM","MESSAGE")=""
^DD(421.31,0,"UP")="421.3"
^DD(421.31,.01,0)="MESSAGE^W^^0;1^Q"
^DD(421.31,.01,21,0)="^^1^1^2911120^"
^DD(421.31,.01,21,1,0)="This is the error message."
^DD(421.31,"B","MESSAGE",.01)=""
^DD(421.31,"GL",0,1,.01)=""
^DD(421.4,0)="FIELD^^3^4"
^DD(421.4,0,"DDA")="N"
^DD(421.4,0,"DT")="2921221"
^DD(421.4,0,"IX","B",421.4,.01)=""
^DD(421.4,0,"NM","FISCAL LOCK")=""
^DD(421.4,0,"VR")="5.1"
^DD(421.4,0,"VRPK")="IFCAP"
^DD(421.4,.01,0)="TYPE^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(421.4,.01,1,0)="^.1"
^DD(421.4,.01,1,1,0)="421.4^B"
^DD(421.4,.01,1,1,1)="S ^PRCF(421.4,""B"",$E(X,1,30),DA)="""""
^DD(421.4,.01,1,1,2)="K ^PRCF(421.4,""B"",$E(X,1,30),DA)"
^DD(421.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(421.4,.01,21,0)="^^1^1^2910515^"
^DD(421.4,.01,21,1,0)="This is the type of Fiscal lock."
^DD(421.4,1,0)="LOCKED^S^0:NO;1:YES;^0;2^Q"
^DD(421.4,1,1,0)="^.1^^0"
^DD(421.4,1,21,0)="^^2^2^2910515^"
^DD(421.4,1,21,1,0)="This field indicates whether or not the lock is"
^DD(421.4,1,21,2,0)="in effect."
^DD(421.4,2,0)="LOCKED BY^P200'^VA(200,^0;3^Q"
^DD(421.4,2,21,0)="^^1^1^2921221^^"
^DD(421.4,2,21,1,0)="This is the name of the person who set the lock."
^DD(421.4,2,"DT")="2921221"
^DD(421.4,3,0)="DATE/TIME LOCKED^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.4,3,21,0)="^^1^1^2910515^"
^DD(421.4,3,21,1,0)="This is the date/time the lock was activated."
^DD(421.4,3,"DT")="2880226"
^DD(421.4,"B","DATE/TIME LOCKED",3)=""
^DD(421.4,"B","LOCKED",1)=""
^DD(421.4,"B","LOCKED BY",2)=""
^DD(421.4,"B","TYPE",.01)=""
^DD(421.4,"GL",0,1,.01)=""
^DD(421.4,"GL",0,2,1)=""
^DD(421.4,"GL",0,3,2)=""
^DD(421.4,"GL",0,4,3)=""
^DD(421.4,"IX",.01)=""
^DD(421.4,"RQ",.01)=""
^DD(421.5,0)="FIELD^^72^75"
^DD(421.5,0,"DT")="2950808"
^DD(421.5,0,"ID","ZA")="W ""   "",$P(^(0),U,3) W:$D(^(2)) ""   "",@(""$P($P($C(59)_$S($D(^DD(421.5,50,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(2),U,1)_"""":"""",2),$C(59),1)""),""   "",$P(^(2),U,3)"
^DD(421.5,0,"IX","AC",421.5,57)=""
^DD(421.5,0,"IX","AD",421.5,.01)=""
^DD(421.5,0,"IX","AE",421.5,50)=""
^DD(421.5,0,"IX","B",421.5,.01)=""
^DD(421.5,0,"IX","C",421.5,6)=""
^DD(421.5,0,"IX","D",421.5,52)=""
^DD(421.5,0,"IX","E",421.5,5)=""
^DD(421.5,0,"IX","F",421.5,27)=""
^DD(421.5,0,"NM","INVOICE TRACKING")=""
^DD(421.5,0,"VR")="5.1"
^DD(421.5,0,"VRPK")="IFCAP"
^DD(421.5,.01,0)="ID NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(421.5,.01,1,0)="^.1"
^DD(421.5,.01,1,1,0)="421.5^B"
^DD(421.5,.01,1,1,1)="S ^PRCF(421.5,""B"",$E(X,1,30),DA)="""""
^DD(421.5,.01,1,1,2)="K ^PRCF(421.5,""B"",$E(X,1,30),DA)"
^DD(421.5,.01,1,2,0)="421.5^AD^MUMPS"
^DD(421.5,.01,1,2,1)="S $P(^PRCF(421.5,DA,2),""^"",4)=""FISCAL"""
^DD(421.5,.01,1,2,2)="Q"
^DD(421.5,.01,1,2,"%D",0)="^^2^2^2930628^"
^DD(421.5,.01,1,2,"%D",1,0)="This MUMPS cross-reference to the Transaction Number sets the initial"
^DD(421.5,.01,1,2,"%D",2,0)="invoice location to Fiscal."
^DD(421.5,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(421.5,.01,21,0)="^^1^1^2910529^"
^DD(421.5,.01,21,1,0)="This is the ID number of certified invoices."
^DD(421.5,.01,"DT")="2890908"
^DD(421.5,.4,0)="STATION NUMBER^F^^1;2^K:$L(X)>4!($L(X)<3)!'(X?3.4N) X"
^DD(421.5,.4,3)="ANSWER MUST BE 3-4 CHARACTERS IN LENGTH"
^DD(421.5,.4,21,0)="^^2^2^2910529^"
^DD(421.5,.4,21,1,0)="This is the station number of the service generating "
^DD(421.5,.4,21,2,0)="the invoice."
^DD(421.5,.4,"DT")="2890706"
^DD(421.5,.5,0)="DOCUMENT LOCATOR NUMBER^RF^^0;2^K:$L(X)>11!($L(X)<11)!'(X?11N) X"
^DD(421.5,.5,3)=""
^DD(421.5,.5,4)="D DIS^PRCFDLN"
^DD(421.5,.5,21,0)="^^2^2^2910529^"
^DD(421.5,.5,21,1,0)="This is the system generated number for tracking purposes"
^DD(421.5,.5,21,2,0)="at Austin."
^DD(421.5,.5,"DT")="2890724"
^DD(421.5,.6,0)="CERTIFICATION REQUIRED?^RS^0:NO;1:YES;^0;27^Q"
^DD(421.5,.6,.1)="Certification Required?"
^DD(421.5,.6,21,0)="0^^2^2^2910529^"
^DD(421.5,.6,21,1,0)="This field indicates whether service certification is"
^DD(421.5,.6,21,2,0)="required for this invoice."
^DD(421.5,.6,"DT")="2890705"
^DD(421.5,1,0)="INVOICE/BILL NUMBER^RF^^0;3^K:$L(X)>16!($L(X)<1) X"
^DD(421.5,1,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(421.5,1,21,0)="^^1^1^2910529^"
^DD(421.5,1,21,1,0)="This is the invoice/bill number assigned by the vendor."
^DD(421.5,1,"DT")="2890724"
^DD(421.5,2,0)="DATE OF INVOICE^RDX^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $G(X)>DT D EN^DDIOL(""Future date is NOT allowed"") K X"
^DD(421.5,2,3)=""
^DD(421.5,2,21,0)="^^1^1^2940506^^"
^DD(421.5,2,21,1,0)="This is the date of the vendor invoice."
^DD(421.5,2,"DT")="2940721"
^DD(421.5,3,0)="DATE INVOICE RECEIVED^RDX^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $G(X)>DT D EN^DDIOL(""Future date is NOT allowed"") K X"
^DD(421.5,3,3)=""
^DD(421.5,3,21,0)="^^2^2^2940506^^"
^DD(421.5,3,21,1,0)="This is the date the invoice was received in Fiscal"
^DD(421.5,3,21,2,0)="Service."
^DD(421.5,3,"DT")="2940721"
^DD(421.5,4,0)="PROMPT PAY TYPE^RS^A:NORMAL;C:CONTRACT;D:DAIRY;E:EXEMPT;I:FEE WITH INTEREST;M:MEAT;N:FEE WITH NO INTEREST;O:OLDER PAYMENT;P:PRODUCE;R:RECURRING PAYMENTS;V:PRIME VENDORS;X:PAY IMMEDIATE IFCAP;Z:PRE PROMPT PAY ORDERS;^0;6^Q"
^DD(421.5,4,21,0)="^.001^1^1^3071106^^^^"
^DD(421.5,4,21,1,0)="This field indicates the prompt pay type of the invoice."
^DD(421.5,4,"DT")="3071106"
^DD(421.5,4.5,0)="PURCHASE ORDER NUMBER^RFX^^1;3^D PO^PRCFDE1"
^DD(421.5,4.5,1,0)="^.1"
^DD(421.5,4.5,1,1,0)="^^TRIGGER^421.5^52"
^DD(421.5,4.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(421.5,4.5,1,1,1.1) X ^DD(421.5,4.5,1,1,1.4)"
^DD(421.5,4.5,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,2)'="""",Y(2)=X S X=DIV_""-""_$P(Y(1),U,2),Y(3)=X S X=1,Y(4)=X S X=DIV,X=$S(Y(2):Y(3),Y(4):X)"
^DD(421.5,4.5,1,1,1.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(2)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=52 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.5,4.5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(421.5,4.5,1,1,2.4)"
^DD(421.5,4.5,1,1,2.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(2)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=52 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.5,4.5,1,1,"CREATE VALUE")="$S(PO SUFFIX'="""":PURCHASE ORDER NUMBER_""-""_PO SUFFIX,1:PURCHASE ORDER NUMBER)"
^DD(421.5,4.5,1,1,"DELETE VALUE")="@"
^DD(421.5,4.5,1,1,"FIELD")="EXPANDED"
^DD(421.5,4.5,3)="Enter PO number, Vendor, Fund Control Point, Method of Processing, Inventory/Distribution Point or Requisition Number."
^DD(421.5,4.5,4)="S X=""?"",DIC=442,DIC(""S"")=""I +^(0)=$G(PRC(""""SITE""""))"",DIC(0)=""QME"" D ^DIC K DIC Q"
^DD(421.5,4.5,5,1,0)="421.5^5^1"
^DD(421.5,4.5,21,0)="^^2^2^2940413^^^"
^DD(421.5,4.5,21,1,0)="This is the IFCAP PO number in expanded form,"
^DD(421.5,4.5,21,2,0)="i.e. 503-A10001."
^DD(421.5,4.5,"DT")="2890815"
^DD(421.5,5,0)="PURCHASE ORDER POINTER^*P442'^PRC(442,^0;7^S DIC(""S"")=""I +^(0)=$G(PRC(""""SITE""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(421.5,5,1,0)="^.1"
^DD(421.5,5,1,1,0)="^^TRIGGER^421.5^4.5"
^DD(421.5,5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCF(421.5,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(421.5,5,1,1,1.1) X ^DD(421.5,5,1,1,1.4)"
^DD(421.5,5,1,1,1.1)="S X=DIV S X=$S('$D(^PRC(442,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(421.5,5,1,1,1.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),1)):^(1),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(1)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=4.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.5,5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCF(421.5,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(421.5,5,1,1,2.4)"
^DD(421.5,5,1,1,2.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),1)):^(1),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(1)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=4.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.5,5,1,1,"%D",0)="^^1^1^2930628^"
^DD(421.5,5,1,1,"%D",1,0)="This cross reference is set on the trigger of the P.O. number field (#4.5)."
^DD(421.5,5,1,1,"CREATE VALUE")="PURCHASE ORDER POINTER"
^DD(421.5,5,1,1,"DELETE VALUE")="@"
^DD(421.5,5,1,1,"FIELD")="PURCHASE ORDER NUMBER"
^DD(421.5,5,1,2,0)="421.5^E"
^DD(421.5,5,1,2,1)="S ^PRCF(421.5,""E"",$E(X,1,30),DA)="""""
^DD(421.5,5,1,2,2)="K ^PRCF(421.5,""E"",$E(X,1,30),DA)"
^DD(421.5,5,1,2,"%D",0)="^^2^2^2930628^"
^DD(421.5,5,1,2,"%D",1,0)="This cross reference is set on the pointer to file 442, the Procurement"
^DD(421.5,5,1,2,"%D",2,0)="and accounting Transactions file."
^DD(421.5,5,12)="Allows selection of only PO's for a particular site"
^DD(421.5,5,12.1)="S DIC(""S"")=""I +^(0)=$G(PRC(""""SITE""""))"""
^DD(421.5,5,21,0)="^^2^2^2940511^^^^"
^DD(421.5,5,21,1,0)="This is the pointer to the Procurement and Accounting Transactions"
^DD(421.5,5,21,2,0)="file, #442."
^DD(421.5,5,"DT")="2940511"
^DD(421.5,6,0)="VENDOR^P440'^PRC(440,^0;8^Q"
^DD(421.5,6,1,0)="^.1"
^DD(421.5,6,1,1,0)="421.5^C"
^DD(421.5,6,1,1,1)="S ^PRCF(421.5,""C"",$E(X,1,30),DA)="""""
^DD(421.5,6,1,1,2)="K ^PRCF(421.5,""C"",$E(X,1,30),DA)"
^DD(421.5,6,1,1,"%D",0)="^^2^2^2930628^^^"
^DD(421.5,6,1,1,"%D",1,0)="This cross-reference is set on the pointer to the vendor name field"
^DD(421.5,6,1,1,"%D",2,0)="in the Vendor file, #440."
^DD(421.5,6,21,0)="^^1^1^2910529^"
^DD(421.5,6,21,1,0)="This is the name of the vendor generating the invoice."
^DD(421.5,6,"DT")="2910315"
^DD(421.5,7,0)="VENDOR STUB NAME^F^^0;9^K:$L(X)>3!($L(X)<3) X"
^DD(421.5,7,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(421.5,7,21,0)="^^1^1^2910529^"
^DD(421.5,7,21,1,0)="This is the CALM stub name."
^DD(421.5,8,0)="VENDOR ID NUMBER^F^^0;10^K:$L(X)>9!($L(X)<9)!'(X?9UN) X"
^DD(421.5,8,3)="Answer must be 9 characters in length."
^DD(421.5,8,21,0)="^^1^1^2910529^"
^DD(421.5,8,21,1,0)="This is the CALM ID number."
^DD(421.5,8,"DT")="2891006"
^DD(421.5,9,0)="DISCOUNT PERCENT^NJ6,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<.01) X"
^DD(421.5,9,3)="Type a between .01 and 100, 2 Decimal Digits, e.g 5 Percent is to be entered as 5, 2.05% as 2.05."
^DD(421.5,9,21,0)="^^2^2^2910529^"
^DD(421.5,9,21,1,0)="This is the percentage to be deducted from the "
^DD(421.5,9,21,2,0)="invoice when prompt payment is made."
^DD(421.5,10,0)="DISCOUNT DAYS^NJ2,0^^0;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(421.5,10,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(421.5,10,21,0)="^^2^2^2910529^"
^DD(421.5,10,21,1,0)="This is the number of days in which a discount"
^DD(421.5,10,21,2,0)="can be taken."
^DD(421.5,10,"DT")="2891006"
^DD(421.5,11,0)="DISCOUNT TERMS^S^E:EOM;P:PROX;X:STANDARD;^0;13^Q"
^DD(421.5,11,21,0)="^^2^2^2911106^^^^"
^DD(421.5,11,21,1,0)="These are the terms defining the discount amount/days"
^DD(421.5,11,21,2,0)="(i.e., net-30)."
^DD(421.5,11,"DT")="2890728"
^DD(421.5,11.3,0)="DISCOUNT AMOUNT^NJ9,0O^^0;26^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.5,11.3,2)="S Y(0)=Y S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y/100,"","",2)"
^DD(421.5,11.3,2.1)="S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y/100,"","",2)"
^DD(421.5,11.3,3)="Enter the amount of the Discount, without the decimal point."
^DD(421.5,11.3,21,0)="^^1^1^2910529^"
^DD(421.5,11.3,21,1,0)="This is the dollar amount of the discount."
^DD(421.5,11.3,"DT")="2940509"
^DD(421.5,11.5,0)="DATE GOODS/SERVICE RECEIVED^RDX^^0;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $G(X)>DT D EN^DDIOL(""Future date is NOT allowed"") K X"
^DD(421.5,11.5,21,0)="^^2^2^2940511^^"
^DD(421.5,11.5,21,1,0)="This is the date the items were received"
^DD(421.5,11.5,21,2,0)="at the station."
^DD(421.5,11.5,"DT")="2940721"
^DD(421.5,12,0)="APPROVED SHIPPING AMOUNT^NJ9,0OX^^0;14^K:(X>9999999.99)!(X<0)!(X?.E1"".""3N.E) X S:$D(X)#2 X=X*100"
^DD(421.5,12,2)="S Y(0)=Y S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,12,2.1)="S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,12,3)="Enter the approved shipping charges included in the Amount Certified for Payment.  The Decimal Point must be INCLUDED if cents are entered.  Type a Number between 0 and 9999999.99, 2 Decimal Digits"
^DD(421.5,12,21,0)="^^2^2^2940706^^"
^DD(421.5,12,21,1,0)="This is the amount authorized for shipping"
^DD(421.5,12,21,2,0)="charges."
^DD(421.5,12,"DT")="2940707"
^DD(421.5,13,0)="AMOUNT CERTIFIED FOR PAYMENT^RNJ9,0XO^^0;15^K:(X>9999999.99)!(X<0)!(X?.E1"".""3N.E) X S:$D(X)#2 X=X*100"
^DD(421.5,13,2)="S Y(0)=Y S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,13,2.1)="S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,13,3)="The decimal point must be used if cents are entered.  Enter the amount that has been certified for payment, INCLUDING shipping charges.  Enter $100.00 as either 100 or 100.00"
^DD(421.5,13,21,0)="^^1^1^2940706^^^"
^DD(421.5,13,21,1,0)="This is the amount certified for payment."
^DD(421.5,13,"DT")="2940706"
^DD(421.5,14,0)="LIQUIDATION CODE^S^P:PARTIAL;C:COMPLETE;^0;16^Q"
^DD(421.5,14,21,0)="^^2^2^2910529^"
^DD(421.5,14,21,1,0)="This field indicates the status of liquidation,"
^DD(421.5,14,21,2,0)="whether partial or complete."
^DD(421.5,15,0)="SUBACCOUNT 1^P420.2'^PRCD(420.2,^0;17^Q"
^DD(421.5,15,21,0)="^^1^1^2910529^"
^DD(421.5,15,21,1,0)="This is the subaccount being charged."
^DD(421.5,16,0)="SUBACCOUNT 2^P420.2'^PRCD(420.2,^0;18^Q"
^DD(421.5,16,3)=""
^DD(421.5,16,21,0)="^^1^1^2910529^"
^DD(421.5,16,21,1,0)="This is the second subaccount being charged."
^DD(421.5,17,0)="LIQUIDATION AMOUNT 1^NJ7,0O^^0;19^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.5,17,2)="S Y(0)=Y S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.5,17,2.1)="S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.5,17,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(421.5,17,21,0)="^^1^1^2910529^^"
^DD(421.5,17,21,1,0)="This is the amount liquidated for subaccount 1."
^DD(421.5,17,"DT")="2940509"
^DD(421.5,18,0)="LIQUIDATION AMOUNT 2^NJ10,2O^^0;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<.01) X"
^DD(421.5,18,2)="S Y(0)=Y S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.5,18,2.1)="S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.5,18,3)="Type a Dollar Amount between .01 and 9999999, 2 Decimal Digits"
^DD(421.5,18,21,0)="^^1^1^2910529^"
^DD(421.5,18,21,1,0)="This is the amount liquidated for subaccount 2."
^DD(421.5,18,"DT")="2940509"
^DD(421.5,19,0)="MONEY MANAGEMENT INDICATOR^RS^X:EXEMPT - PAY IMMEDIATELY;B:NOT EXEMPT - DELAY PAYMENT FOR MONEY MANAGEMENT;^0;22^Q"
^DD(421.5,19,21,0)="^^1^1^2910529^"
^DD(421.5,19,21,1,0)="This field indicates when payment is to be made."
^DD(421.5,19,"DT")="2890724"
^DD(421.5,20,0)="INTEREST INDICATOR^RS^X:INTEREST & PAYMENT;I:INTEREST ONLY;P:PAYMENT ONLY;^0;23^Q"
^DD(421.5,20,21,0)="^^1^1^2910529^"
^DD(421.5,20,21,1,0)="This field indicates the type of payment to be made."
^DD(421.5,20,"DT")="2890724"
^DD(421.5,21,0)="PAYMENT TO BE SENT TO: ^S^0:CAPPS;1:CALM;^0;24^Q"
^DD(421.5,21,21,0)="^^2^2^2910529^"
^DD(421.5,21,21,1,0)="This field indicates the system in Austin"
^DD(421.5,21,21,2,0)="to which payment is to be sent."
^DD(421.5,22,0)="DATE PAYMENT RELEASED^D^^0;25^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,22,21,0)="^^1^1^2910529^"
^DD(421.5,22,21,1,0)="This is the date payment is released from CALM."
^DD(421.5,23,0)="REASON FOR SUSPENSION^421.523^^4;0"
^DD(421.5,23,21,0)="^^1^1^2911120^^"
^DD(421.5,23,21,1,0)="This is the reason for suspending payment."
^DD(421.5,24,0)="DATE OF SUSPENSION LETTER^D^^1;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,24,21,0)="^^2^2^2910529^"
^DD(421.5,24,21,1,0)="This is the date when the suspense letter is sent"
^DD(421.5,24,21,2,0)="to the vendor."
^DD(421.5,24,"DT")="2890708"
^DD(421.5,25,0)="SUSPENSION LETTER REQUIRED?^S^0:NO;1:YES;^1;5^Q"
^DD(421.5,25,21,0)="^^1^1^2910529^"
^DD(421.5,25,21,1,0)="Indicates whether suspension of payment is required."
^DD(421.5,25,"DT")="2890708"
^DD(421.5,26,0)="PARTIAL NUMBER^FX^^1;6^K:'(X?1.2N!(X?1U1UN)) X"
^DD(421.5,26,3)="Answer must be 1-2 characters in length."
^DD(421.5,26,21,0)="^^5^5^2940627^"
^DD(421.5,26,21,1,0)="This is a two-character alphanumeric field which is appended to the"
^DD(421.5,26,21,2,0)="Purchase Order number before it is transmitted to FMS.  This expanded"
^DD(421.5,26,21,3,0)="number then becomes the Document ID Number for the Payment Voucher (PV)"
^DD(421.5,26,21,4,0)="as it is processed by FMS.  There are 974 valid alphanumeric codes for"
^DD(421.5,26,21,5,0)="the Partial Number."
^DD(421.5,26,"DT")="2940920"
^DD(421.5,27,0)="FMS PAYMENT VOUCHER #^F^^1;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<11) X"
^DD(421.5,27,1,0)="^.1"
^DD(421.5,27,1,1,0)="421.5^F"
^DD(421.5,27,1,1,1)="S ^PRCF(421.5,""F"",$E(X,1,30),DA)="""""
^DD(421.5,27,1,1,2)="K ^PRCF(421.5,""F"",$E(X,1,30),DA)"
^DD(421.5,27,1,1,"%D",0)="^^3^3^2940610^"
^DD(421.5,27,1,1,"%D",1,0)="This field should be identical to the portion of the .01 field which follows"
^DD(421.5,27,1,1,"%D",2,0)="the ""PV-"" created in the GENERIC CODE SHEET File when the invoice record"
^DD(421.5,27,1,1,"%D",3,0)="is sent to FMS."
^DD(421.5,27,1,1,"DT")="2940610"
^DD(421.5,27,3)="Answer must be 11 characters in length."
^DD(421.5,27,21,0)="^^10^10^2940627^"
^DD(421.5,27,21,1,0)="This is the 11-character Document ID Number given to the Payment Voucher"
^DD(421.5,27,21,2,0)="(PV) as it is being transmitted to FMS.  This number provides the primary"
^DD(421.5,27,21,3,0)="lookup for the local copy of the PV in the Generic Code Sheet Stack File."
^DD(421.5,27,21,4,0)="The normal format for the Payment Voucher # is SSSAFNNNNPP where"
^DD(421.5,27,21,5,0)=" "
^DD(421.5,27,21,6,0)="   SSS is the Station Number"
^DD(421.5,27,21,7,0)="     A is an alphabetic code identifying the Common Numbering Series"
^DD(421.5,27,21,8,0)="     F is the last digit of the Fiscal Year"
^DD(421.5,27,21,9,0)="  NNNN is the document sequence number within the series"
^DD(421.5,27,21,10,0)="    PP is the alphanumeric Partial Number assigned by IFCAP."
^DD(421.5,27,"DT")="2940610"
^DD(421.5,30,0)="ONE TIME PAYMENT?^S^0:NO;1:YES;^1;1^Q"
^DD(421.5,30,21,0)="^^1^1^2910529^"
^DD(421.5,30,21,1,0)="This field indicates a one time payment."
^DD(421.5,31,0)="PROMPT PAYMENT TERMS^421.531A^^6;0"
^DD(421.5,31,21,0)="^^1^1^2941123^^^^"
^DD(421.5,31,21,1,0)="This is a multiple field which contains the payment terms for this invoice."
^DD(421.5,31,"DT")="2940426"
^DD(421.5,37,0)="GROSS AMOUNT OF INVOICE^RNJ9,0OX^^1;8^K:(X>9999999.99)!(X<.01)!(X?.E1"".""3N.E) X S:$D(X)#2 X=X*100"
^DD(421.5,37,2)="S Y(0)=Y S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,37,2.1)="S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,37,3)="Enter the Gross Amount of Invoice, INCLUDING the shipping charges.  The decimal point must be used if cents are entered.  Type a Number between .01 and 9999999.99, 2 Decimal Digits"
^DD(421.5,37,21,0)="^^1^1^2940706^^"
^DD(421.5,37,21,1,0)="This is the total amount of the invoice."
^DD(421.5,37,"DT")="2940706"
^DD(421.5,38,0)="GROSS SHIPPING^NJ9,0OX^^1;9^K:(X>9999999.99)!(X<0)!(X?.E1"".""3N.E) X S:$D(X)#2 X=X*100"
^DD(421.5,38,2)="S Y(0)=Y S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,38,2.1)="S Y=$FN(Y/100,"","",2) S:$D(PRCF(""VIEW"")) Y=""$""_Y"
^DD(421.5,38,3)="Enter the amount of the shipping charges included in the Gross Amount of Invoice.  The Decimal Point must be used if cents are entered.  Type a Number between 0 and 9999999.99, 2 Decimal Digits"
^DD(421.5,38,21,0)="^^1^1^2940707^^^^"
^DD(421.5,38,21,1,0)="This is the gross amount of shipping charges."
^DD(421.5,38,"DT")="2940707"
^DD(421.5,39,0)="NET DAYS^NJ2,0^^1;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.5,39,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(421.5,39,21,0)="^^2^2^2910529^"
^DD(421.5,39,21,1,0)="This is the number of days when net payment"
^DD(421.5,39,21,2,0)="is due."
^DD(421.5,41,0)="FMS LINE^421.541PA^^5;0"
^DD(421.5,41,21,0)="^^2^2^2940627^^"
^DD(421.5,41,21,1,0)="This is a multiple field which contains a set of accounting data associated"
^DD(421.5,41,21,2,0)="with the FMS accounting line."
^DD(421.5,41,"DT")="2940510"
^DD(421.5,45,0)="MEMO 1^F^^1;16^K:$L(X)>3!($L(X)<1) X"
^DD(421.5,45,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(421.5,45,21,0)="^^1^1^2911114^^^"
^DD(421.5,45,21,1,0)="Reserved for use by Austin."
^DD(421.5,46,0)="MEMO 2^F^^1;17^K:$L(X)>3!($L(X)<1) X"
^DD(421.5,46,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(421.5,46,21,0)="^^1^1^2911114^"
^DD(421.5,46,21,1,0)="Reserved for use by Austin."
^DD(421.5,47,0)="MEMO 3^F^^1;18^K:$L(X)>3!($L(X)<1) X"
^DD(421.5,47,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(421.5,47,21,0)="^^1^1^2911114^^"
^DD(421.5,47,21,1,0)="Reserved for use by Austin."
^DD(421.5,50,0)="STATUS^S^0:Incomplete;3:Invoice Returned to Vendor;5:Pending Service Certification;10:Awaiting Voucher Audit Review;11:Vendor ID Incomplete;15:In Accounting;20:Transaction Complete;^2;1^Q"
^DD(421.5,50,1,0)="^.1"
^DD(421.5,50,1,1,0)="421.5^AE"
^DD(421.5,50,1,1,1)="S ^PRCF(421.5,""AE"",$E(X,1,30),DA)="""""
^DD(421.5,50,1,1,2)="K ^PRCF(421.5,""AE"",$E(X,1,30),DA)"
^DD(421.5,50,1,1,"%D",0)="^^1^1^2930628^"
^DD(421.5,50,1,1,"%D",1,0)="This cross reference is set on the Status field."
^DD(421.5,50,21,0)="^^2^2^2931130^^^"
^DD(421.5,50,21,1,0)="This is the status indicator of invoice for"
^DD(421.5,50,21,2,0)="processing."
^DD(421.5,50,"DT")="2931130"
^DD(421.5,51,0)="PO SUFFIX^F^^2;2^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(421.5,51,1,0)="^.1"
^DD(421.5,51,1,1,0)="^^TRIGGER^421.5^52"
^DD(421.5,51,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(421.5,51,1,1,1.1) X ^DD(421.5,51,1,1,1.4)"
^DD(421.5,51,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRCF(421.5,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3)'="""",Y(2)=X S X=$P(Y(1),U,3)_""-""_DIV,Y(3)=X S X=1,Y(4)=X S X="""",X=$S(Y(2):Y(3),Y(4):X)"
^DD(421.5,51,1,1,1.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(2)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=52 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.5,51,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(421.5,51,1,1,2.1) X ^DD(421.5,51,1,1,2.4)"
^DD(421.5,51,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRCF(421.5,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3)"
^DD(421.5,51,1,1,2.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(2)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=52 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.5,51,1,1,"CREATE VALUE")="$S(PURCHASE ORDER NUMBER'="""":PURCHASE ORDER NUMBER_""-""_PO SUFFIX,1:"""")"
^DD(421.5,51,1,1,"DELETE VALUE")="PURCHASE ORDER NUMBER"
^DD(421.5,51,1,1,"FIELD")="EXPANDED"
^DD(421.5,51,3)="ANSWER MUST BE 1-4 NUMBERS"
^DD(421.5,51,21,0)="^^2^2^2910529^^^^"
^DD(421.5,51,21,1,0)="This is the suffix number assigned by Fiscal for"
^DD(421.5,51,21,2,0)="tracking purposes."
^DD(421.5,51,"DT")="2890706"
^DD(421.5,52,0)="EXPANDED PO NUMBER^F^^2;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<10) X"
^DD(421.5,52,1,0)="^.1"
^DD(421.5,52,1,1,0)="421.5^D"
^DD(421.5,52,1,1,1)="S ^PRCF(421.5,""D"",$E(X,1,30),DA)="""""
^DD(421.5,52,1,1,2)="K ^PRCF(421.5,""D"",$E(X,1,30),DA)"
^DD(421.5,52,1,1,"%D",0)="^^1^1^2930628^"
^DD(421.5,52,1,1,"%D",1,0)="This cross reference is set on the expanded P.O. number in field #52."
^DD(421.5,52,3)="ANSWER MUST BE 10-16 CHARACTERS IN LENGTH"
^DD(421.5,52,5,1,0)="421.5^4.5^1"
^DD(421.5,52,5,2,0)="421.5^51^1"
^DD(421.5,52,9)="^"
^DD(421.5,52,21,0)="^^2^2^2910529^"
^DD(421.5,52,21,1,0)="IFCAP PO number to include suffix, i.e."
^DD(421.5,52,21,2,0)="503-A10001-0001."
^DD(421.5,52,"DT")="2890426"
^DD(421.5,53,0)="CURRENT INVOICE LOCATION^F^^2;4^K:$L(X)>30!($L(X)<1) X"
^DD(421.5,53,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(421.5,53,5,1,0)="421.51^.01^2"
^DD(421.5,53,9)="^"
^DD(421.5,53,21,0)="^^2^2^2910529^"
^DD(421.5,53,21,1,0)="Indicates service which currently has invoice"
^DD(421.5,53,21,2,0)="for certification."
^DD(421.5,53,"DT")="2890908"
^DD(421.5,54,0)="D/T CHARGED TO CURRENT LOC^D^^2;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,54,5,1,0)="421.51^1^1"
^DD(421.5,54,21,0)="^^2^2^2910529^"
^DD(421.5,54,21,1,0)="This is the date/time the invoice was sent to"
^DD(421.5,54,21,2,0)="the service."
^DD(421.5,54.5,0)="CHARGED TO CURRENT LOCATION BY^P200'^VA(200,^2;17^Q"
^DD(421.5,54.5,5,1,0)="421.51^2^1"
^DD(421.5,54.5,9)="^"
^DD(421.5,54.5,21,0)="^^2^2^2921221^^"
^DD(421.5,54.5,21,1,0)="This is the person charging the invoice to the"
^DD(421.5,54.5,21,2,0)="service."
^DD(421.5,54.5,"DT")="2921221"
^DD(421.5,55,0)="DISCOUNT PAYMENT DATE^D^^2;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,55,21,0)="^^2^2^2910529^"
^DD(421.5,55,21,1,0)="Date payment is to be made by in order to"
^DD(421.5,55,21,2,0)="receive payment."
^DD(421.5,56,0)="NET PAYMENT DATE^D^^2;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,56,3)=""
^DD(421.5,56,21,0)="^^2^2^2910529^"
^DD(421.5,56,21,1,0)="Date payment is to be made to avoid"
^DD(421.5,56,21,2,0)="penalties."
^DD(421.5,57,0)="DATE DUE IN FISCAL^D^^2;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,57,1,0)="^.1"
^DD(421.5,57,1,1,0)="421.5^AC"
^DD(421.5,57,1,1,1)="S ^PRCF(421.5,""AC"",$E(X,1,30),DA)="""""
^DD(421.5,57,1,1,2)="K ^PRCF(421.5,""AC"",$E(X,1,30),DA)"
^DD(421.5,57,1,1,"%D",0)="^^2^2^2930628^"
^DD(421.5,57,1,1,"%D",1,0)="This cross reference is set on the Date Due in Fiscal (#57) an is used"
^DD(421.5,57,1,1,"%D",2,0)="for tracking purposes by the bulletin generators."
^DD(421.5,57,3)=""
^DD(421.5,57,21,0)="^^1^1^2910529^"
^DD(421.5,57,21,1,0)="Date invoice is due in Fiscal."
^DD(421.5,57,"DT")="2890626"
^DD(421.5,58,0)="DATE RETURNED TO FISCAL^D^^2;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,58,3)=""
^DD(421.5,58,21,0)="^^1^1^2910529^"
^DD(421.5,58,21,1,0)="Date invoice was returned to Fiscal."
^DD(421.5,59,0)="CERTIFIED FOR PAYMENT BY^P200'^VA(200,^2;10^Q"
^DD(421.5,59,21,0)="^^2^2^2921218^^"
^DD(421.5,59,21,1,0)="Person certifying invoice is true and correct"
^DD(421.5,59,21,2,0)="for payment."
^DD(421.5,59,"DT")="2921218"
^DD(421.5,60,0)="COMPLETED IN ACCOUNTING BY^P200'^VA(200,^2;11^Q"
^DD(421.5,60,3)=""
^DD(421.5,60,21,0)="^^2^2^2921218^^"
^DD(421.5,60,21,1,0)="This is the Accounting technician completing"
^DD(421.5,60,21,2,0)="the invoice."
^DD(421.5,60,"DT")="2921218"
^DD(421.5,61,0)="CERTIFIED BY VALIDATION CODE^FOI^^2;12^K:$L(X)>30!($L(X)<2) X"
^DD(421.5,61,2)="S Y(0)=Y S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFDES1(D0)"
^DD(421.5,61,2.1)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFDES1(D0)"
^DD(421.5,61,3)="Answer must be 2-30 characters in length."
^DD(421.5,61,8.5)="^"
^DD(421.5,61,9)="^"
^DD(421.5,61,21,0)="^^1^1^2921218^^^^"
^DD(421.5,61,21,1,0)="Electronic signature of certifying official."
^DD(421.5,61,"DT")="2930317"
^DD(421.5,61.5,0)="CERTIFIED BY VALIDATION VER^NJ2,0^^2.1;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.5,61.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(421.5,61.5,21,0)="^^3^3^2930127^"
^DD(421.5,61.5,21,1,0)="This is the version number of the algorithms used for encoding and decoding"
^DD(421.5,61.5,21,2,0)="the Validation Code created for the Payment/Invoice Tracking record at the"
^DD(421.5,61.5,21,3,0)="time that the certification of the invoice is entered into the system."
^DD(421.5,61.5,"DT")="2930127"
^DD(421.5,61.7,0)="CERTIFIED BY ESIG CODE^F^^2.1;2^K:$L(X)>10!($L(X)<1) X"
^DD(421.5,61.7,3)="Answer must be 1-10 characters in length."
^DD(421.5,61.7,21,0)="^^1^1^2930414^^^"
^DD(421.5,61.7,21,1,0)="Encoded value used by IFCAP security utilities when confirming the integrity of this record."
^DD(421.5,61.7,"DT")="2930410"
^DD(421.5,61.9,0)="CERTIFIED BY SIG DATE/TIME^D^^2.1;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,61.9,21,0)="^^2^2^2930127^"
^DD(421.5,61.9,21,1,0)="This is the date and time that a valid electronic signature was entered"
^DD(421.5,61.9,21,2,0)="certifying an invoice for payment."
^DD(421.5,61.9,"DT")="2921229"
^DD(421.5,62,0)="COMPLETED BY VALIDATION CODE^FOI^^2;13^K:$L(X)>30!($L(X)<2) X"
^DD(421.5,62,2)="S Y(0)=Y S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFDES2(D0)"
^DD(421.5,62,2.1)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFDES2(D0)"
^DD(421.5,62,3)="Answer must be 2-30 characters in length."
^DD(421.5,62,8.5)="^"
^DD(421.5,62,9)="^"
^DD(421.5,62,21,0)="^^1^1^2921218^^^"
^DD(421.5,62,21,1,0)="Electronic signature of completing technician."
^DD(421.5,62,"DT")="2930317"
^DD(421.5,62.5,0)="COMPLETED BY VALIDATION VER^NJ8,5O^^2.1;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""6N.N) X"
^DD(421.5,62.5,2)="S Y(0)=Y S Y=""<HIDDEN>"" Q"
^DD(421.5,62.5,2.1)="S Y=""<HIDDEN>"" Q"
^DD(421.5,62.5,3)="Type a Number between 1 and 99, 5 Decimal Digits"
^DD(421.5,62.5,21,0)="^^4^4^2930204^^"
^DD(421.5,62.5,21,1,0)="This is the version number of the algorithms used to encode and decode"
^DD(421.5,62.5,21,2,0)="the Validation Code for the Payment/Invoice Tracking record at the time"
^DD(421.5,62.5,21,3,0)="that the technician who completes the record enters their valid"
^DD(421.5,62.5,21,4,0)="electronic signature into the system."
^DD(421.5,62.5,"DT")="2930125"
^DD(421.5,62.7,0)="COMPLETED BY ESIG CODE^F^^2.1;4^K:$L(X)>10!($L(X)<1) X"
^DD(421.5,62.7,3)="Answer must be 1-10 characters in length."
^DD(421.5,62.7,21,0)="^^1^1^2930414^^^"
^DD(421.5,62.7,21,1,0)="Encoded value used by IFCAP security utilities when confirming the integrity of this record."
^DD(421.5,62.7,"DT")="2930410"
^DD(421.5,62.9,0)="COMPLETED BY SIG DATE/TIME^D^^2.1;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,62.9,21,0)="^^2^2^2930127^"
^DD(421.5,62.9,21,1,0)="This is the date and time that the person completing the details of a"
^DD(421.5,62.9,21,2,0)="Payment/Invoice Tracking record entered a valid electronic signature."
^DD(421.5,62.9,"DT")="2921229"
^DD(421.5,63,0)="BULLETIN SENT TO SERVICE^S^0:NO;1:YES;^2;14^Q"
^DD(421.5,63,21,0)="^^2^2^2921203^^"
^DD(421.5,63,21,1,0)="Indicates if overdue bulletin sent to certifying"
^DD(421.5,63,21,2,0)="service."
^DD(421.5,63,"DT")="2921203"
^DD(421.5,64,0)="DATE BULLETIN SENT^D^^2;15^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,64,21,0)="^^1^1^2910529^"
^DD(421.5,64,21,1,0)="Date bulletin sent to certifying service."
^DD(421.5,65,0)="MESSAGE NUMBER^P3.9'^XMB(3.9,^2;16^Q"
^DD(421.5,65,21,0)="^^2^2^2910529^"
^DD(421.5,65,21,1,0)="This is the MailMan message number of"
^DD(421.5,65,21,2,0)="overdue bulletin."
^DD(421.5,65,"DT")="2890708"
^DD(421.5,66,0)="CONTROL POINT CERTIFIED BY^P200'^VA(200,^2;18^Q"
^DD(421.5,66,21,0)="^^2^2^2940714^"
^DD(421.5,66,21,1,0)="This field identifies the control point officer or clerk who certifies"
^DD(421.5,66,21,2,0)="that the invoice is true and correct for payment."
^DD(421.5,66,"DT")="2940714"
^DD(421.5,67,0)="CONTROL POINT VALIDATION CODE^F^^2;19^K:$L(X)>30!($L(X)<2) X"
^DD(421.5,67,3)="Answer must be 2-30 characters in length."
^DD(421.5,67,21,0)="^^1^1^2940714^"
^DD(421.5,67,21,1,0)="Electronic signature of certifying control point officer or clerk."
^DD(421.5,67,"DT")="2940714"
^DD(421.5,67.5,0)="CONTROL POINT VALIDATION VER^NJ2,0^^2.1;7^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.5,67.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(421.5,67.5,21,0)="^^4^4^2940714^^"
^DD(421.5,67.5,21,1,0)="This is the version number of the algorithms used to encode and decode"
^DD(421.5,67.5,21,2,0)="the Validation Code for the Payment/Invoice Tracking record at the time"
^DD(421.5,67.5,21,3,0)="that the control point officer or clerk who certifies the record enters"
^DD(421.5,67.5,21,4,0)="their valid electronic signature into the system."
^DD(421.5,67.5,"DT")="2940714"
^DD(421.5,67.7,0)="CONTROL POINT ESIG CODE^F^^2.1;8^K:$L(X)>10!($L(X)<1) X"
^DD(421.5,67.7,3)="Answer must be 1-10 characters in length."
^DD(421.5,67.7,21,0)="^^2^2^2940714^"
^DD(421.5,67.7,21,1,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(421.5,67.7,21,2,0)="integrity of this record."
^DD(421.5,67.7,"DT")="2940714"
^DD(421.5,67.9,0)="CONTROL POINT SIG DATE/TIME^D^^2.1;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.5,67.9,21,0)="^^2^2^2940714^"
^DD(421.5,67.9,21,1,0)="This is the date and time that a valid electronic signature was entered"
^DD(421.5,67.9,21,2,0)="by a control point officer or clerk certifying an invoice for payment."
^DD(421.5,67.9,"DT")="2940714"
^DD(421.5,68,0)="CERTIFYING CONTROL POINT^F^^1;11^K:$L(X)>10!($L(X)<1) X"
^DD(421.5,68,3)="Answer must be 1-10 characters in length."
^DD(421.5,68,21,0)="^^2^2^2940714^"
^DD(421.5,68,21,1,0)="This is the control point to which the invoice is referred for certification,"
^DD(421.5,68,21,2,0)="as indicated by the obligation document."
^DD(421.5,68,"DT")="2940714"
^DD(421.5,70,0)="CERTIFYING SERVICE^421.51PA^^3;0"
^DD(421.5,70,21,0)="^^2^2^2921221^^^"
^DD(421.5,70,21,1,0)="Services which are required to certify invoice"
^DD(421.5,70,21,2,0)="as true and correct."
^DD(421.5,71,0)="FMS TRANSACTION DATE^D^^1;19^S %DT=""EX"" D ^%DT S X=Y K:3201231<X!(2950101>X) X"
^DD(421.5,71,3)="Enter the date that Payment Voucher should be transmitted to FMS (1995-2020)"
^DD(421.5,71,21,0)="^^5^5^2950811^^"
^DD(421.5,71,21,1,0)="The value in the FMS Transaction Date field determines when the Payment"
^DD(421.5,71,21,2,0)="Voucher will be transmitted to FMS by the Generic Code Sheet module.  With"
^DD(421.5,71,21,3,0)="the new Hold Code Sheet functionality, Obligations may be entered to take"
^DD(421.5,71,21,4,0)="effect in the future.  This field will enable the user to ensure that the"
^DD(421.5,71,21,5,0)="Payment Voucher does not arrive at FMS before its Obligation documents."
^DD(421.5,71,"DT")="2950811"
^DD(421.5,72,0)="ACCOUNTING PERIOD MONTH/YEAR^DX^^1;20^S %DT=""E"" D ^%DT S X=Y K:3201200<X!(2940100>X) X I $D(X) K:$E(X,4,5)<1 X S:$D(X) X=$E(X,1,5)_""00"""
^DD(421.5,72,3)="Enter Calendar Month and Year of Accounting Period (i.e. 10/94 for Oct 1994)"
^DD(421.5,72,21,0)="10^^11^11^2950816^"
^DD(421.5,72,21,1,0)="Enter the calendar month and year of the accounting period you would like"
^DD(421.5,72,21,2,0)="this Payment Voucher (PV) transaction to affect in FMS.  Note:  For the PV"
^DD(421.5,72,21,3,0)="to be accepted by FMS, the value must be an Accounting Period, which is"
^DD(421.5,72,21,4,0)="open at the time of receipt."
^DD(421.5,72,21,5,0)=" "
^DD(421.5,72,21,6,0)="For ease of data entry, this field stores Calendar Month and Calendar Year."
^DD(421.5,72,21,7,0)="During transmission to FMS, this value is converted to Fiscal Year and the"
^DD(421.5,72,21,8,0)="Sequence number of that month within that Fiscal Year before being placed"
^DD(421.5,72,21,9,0)="in the transmission record.  (i.e. Oct 1994 is converted to fiscal year 95"
^DD(421.5,72,21,10,0)="and month 01.)"
^DD(421.5,72,21,11,0)=" "
^DD(421.5,72,"DT")="2950808"
^DD(421.5,"B","ACCOUNTING PERIOD MONTH/YEAR",72)=""
^DD(421.5,"B","AMOUNT CERTIFIED FOR PAYMENT",13)=""
^DD(421.5,"B","APPROVED SHIPPING AMOUNT",12)=""
^DD(421.5,"B","BULLETIN SENT TO SERVICE",63)=""
^DD(421.5,"B","CERTIFICATION REQUIRED?",.6)=""
^DD(421.5,"B","CERTIFIED BY ESIG CODE",61.7)=""
^DD(421.5,"B","CERTIFIED BY SIG DATE/TIME",61.9)=""
^DD(421.5,"B","CERTIFIED BY VALIDATION CODE",61)=""
^DD(421.5,"B","CERTIFIED BY VALIDATION VER",61.5)=""
^DD(421.5,"B","CERTIFIED FOR PAYMENT BY",59)=""
^DD(421.5,"B","CERTIFYING CONTROL POINT",68)=""
^DD(421.5,"B","CERTIFYING SERVICE",70)=""
^DD(421.5,"B","CHARGED TO CURRENT LOCATION BY",54.5)=""
^DD(421.5,"B","COMPLETED BY ESIG CODE",62.7)=""
^DD(421.5,"B","COMPLETED BY SIG DATE/TIME",62.9)=""
^DD(421.5,"B","COMPLETED BY VALIDATION CODE",62)=""
^DD(421.5,"B","COMPLETED BY VALIDATION VER",62.5)=""
^DD(421.5,"B","COMPLETED IN ACCOUNTING BY",60)=""
^DD(421.5,"B","CONTROL POINT CERTIFIED BY",66)=""
^DD(421.5,"B","CONTROL POINT ESIG CODE",67.7)=""
^DD(421.5,"B","CONTROL POINT SIG DATE/TIME",67.9)=""
^DD(421.5,"B","CONTROL POINT VALIDATION CODE",67)=""
^DD(421.5,"B","CONTROL POINT VALIDATION VER",67.5)=""
^DD(421.5,"B","CURRENT INVOICE LOCATION",53)=""
^DD(421.5,"B","Certification Required?",.6)="1"
^DD(421.5,"B","D/T CHARGED TO CURRENT LOC",54)=""
^DD(421.5,"B","DATE BULLETIN SENT",64)=""
^DD(421.5,"B","DATE DUE IN FISCAL",57)=""
^DD(421.5,"B","DATE GOODS/SERVICE RECEIVED",11.5)=""
^DD(421.5,"B","DATE INVOICE RECEIVED",3)=""
^DD(421.5,"B","DATE OF INVOICE",2)=""
^DD(421.5,"B","DATE OF SUSPENSION LETTER",24)=""
^DD(421.5,"B","DATE PAYMENT RELEASED",22)=""
^DD(421.5,"B","DATE RETURNED TO FISCAL",58)=""
^DD(421.5,"B","DISCOUNT AMOUNT",11.3)=""
^DD(421.5,"B","DISCOUNT DAYS",10)=""
^DD(421.5,"B","DISCOUNT PAYMENT DATE",55)=""
^DD(421.5,"B","DISCOUNT PERCENT",9)=""
^DD(421.5,"B","DISCOUNT TERMS",11)=""
^DD(421.5,"B","DOCUMENT LOCATOR NUMBER",.5)=""
^DD(421.5,"B","EXPANDED PO NUMBER",52)=""
^DD(421.5,"B","FMS LINE",41)=""
^DD(421.5,"B","FMS PAYMENT VOUCHER #",27)=""
^DD(421.5,"B","FMS TRANSACTION DATE",71)=""
^DD(421.5,"B","GROSS AMOUNT OF INVOICE",37)=""
^DD(421.5,"B","GROSS SHIPPING",38)=""
^DD(421.5,"B","ID NUMBER",.01)=""
^DD(421.5,"B","INTEREST INDICATOR",20)=""
^DD(421.5,"B","INVOICE/BILL NUMBER",1)=""
^DD(421.5,"B","LIQUIDATION AMOUNT 1",17)=""
^DD(421.5,"B","LIQUIDATION AMOUNT 2",18)=""
^DD(421.5,"B","LIQUIDATION CODE",14)=""
^DD(421.5,"B","MEMO 1",45)=""
^DD(421.5,"B","MEMO 2",46)=""
^DD(421.5,"B","MEMO 3",47)=""
^DD(421.5,"B","MESSAGE NUMBER",65)=""
^DD(421.5,"B","MONEY MANAGEMENT INDICATOR",19)=""
^DD(421.5,"B","NET DAYS",39)=""
^DD(421.5,"B","NET PAYMENT DATE",56)=""
^DD(421.5,"B","ONE TIME PAYMENT?",30)=""
^DD(421.5,"B","PARTIAL NUMBER",26)=""
^DD(421.5,"B","PAYMENT TO BE SENT TO: ",21)=""
^DD(421.5,"B","PO SUFFIX",51)=""
^DD(421.5,"B","PROMPT PAY TYPE",4)=""
^DD(421.5,"B","PROMPT PAYMENT TERMS",31)=""
^DD(421.5,"B","PURCHASE ORDER NUMBER",4.5)=""
^DD(421.5,"B","PURCHASE ORDER POINTER",5)=""
^DD(421.5,"B","REASON FOR SUSPENSION",23)=""
^DD(421.5,"B","STATION NUMBER",.4)=""
^DD(421.5,"B","STATUS",50)=""
^DD(421.5,"B","SUBACCOUNT 1",15)=""
^DD(421.5,"B","SUBACCOUNT 2",16)=""
^DD(421.5,"B","SUSPENSION LETTER REQUIRED?",25)=""
^DD(421.5,"B","VENDOR",6)=""
^DD(421.5,"B","VENDOR ID NUMBER",8)=""
^DD(421.5,"B","VENDOR STUB NAME",7)=""
^DD(421.5,"GL",0,1,.01)=""
^DD(421.5,"GL",0,2,.5)=""
^DD(421.5,"GL",0,3,1)=""
^DD(421.5,"GL",0,4,2)=""
^DD(421.5,"GL",0,5,3)=""
^DD(421.5,"GL",0,6,4)=""
^DD(421.5,"GL",0,7,5)=""
^DD(421.5,"GL",0,8,6)=""
^DD(421.5,"GL",0,9,7)=""
^DD(421.5,"GL",0,10,8)=""
^DD(421.5,"GL",0,11,9)=""
^DD(421.5,"GL",0,12,10)=""
^DD(421.5,"GL",0,13,11)=""
^DD(421.5,"GL",0,14,12)=""
^DD(421.5,"GL",0,15,13)=""
^DD(421.5,"GL",0,16,14)=""
^DD(421.5,"GL",0,17,15)=""
^DD(421.5,"GL",0,18,16)=""
^DD(421.5,"GL",0,19,17)=""
^DD(421.5,"GL",0,20,18)=""
^DD(421.5,"GL",0,21,11.5)=""
^DD(421.5,"GL",0,22,19)=""
^DD(421.5,"GL",0,23,20)=""
^DD(421.5,"GL",0,24,21)=""
^DD(421.5,"GL",0,25,22)=""
^DD(421.5,"GL",0,26,11.3)=""
^DD(421.5,"GL",0,27,.6)=""
^DD(421.5,"GL",1,1,30)=""
^DD(421.5,"GL",1,2,.4)=""
^DD(421.5,"GL",1,3,4.5)=""
^DD(421.5,"GL",1,4,24)=""
^DD(421.5,"GL",1,5,25)=""
^DD(421.5,"GL",1,6,26)=""
^DD(421.5,"GL",1,7,27)=""
^DD(421.5,"GL",1,8,37)=""
^DD(421.5,"GL",1,9,38)=""
^DD(421.5,"GL",1,10,39)=""
^DD(421.5,"GL",1,11,68)=""
^DD(421.5,"GL",1,16,45)=""
^DD(421.5,"GL",1,17,46)=""
^DD(421.5,"GL",1,18,47)=""
^DD(421.5,"GL",1,19,71)=""
^DD(421.5,"GL",1,20,72)=""
^DD(421.5,"GL",2,1,50)=""
^DD(421.5,"GL",2,2,51)=""
^DD(421.5,"GL",2,3,52)=""
^DD(421.5,"GL",2,4,53)=""
^DD(421.5,"GL",2,5,54)=""
^DD(421.5,"GL",2,6,55)=""
^DD(421.5,"GL",2,7,56)=""
^DD(421.5,"GL",2,8,57)=""
^DD(421.5,"GL",2,9,58)=""
^DD(421.5,"GL",2,10,59)=""
^DD(421.5,"GL",2,11,60)=""
^DD(421.5,"GL",2,12,61)=""
^DD(421.5,"GL",2,13,62)=""
^DD(421.5,"GL",2,14,63)=""
^DD(421.5,"GL",2,15,64)=""
^DD(421.5,"GL",2,16,65)=""
^DD(421.5,"GL",2,17,54.5)=""
^DD(421.5,"GL",2,18,66)=""
^DD(421.5,"GL",2,19,67)=""
^DD(421.5,"GL",2.1,1,61.5)=""
^DD(421.5,"GL",2.1,2,61.7)=""
^DD(421.5,"GL",2.1,3,62.5)=""
^DD(421.5,"GL",2.1,4,62.7)=""
^DD(421.5,"GL",2.1,5,61.9)=""
^DD(421.5,"GL",2.1,6,62.9)=""
^DD(421.5,"GL",2.1,7,67.5)=""
^DD(421.5,"GL",2.1,8,67.7)=""
^DD(421.5,"GL",2.1,9,67.9)=""
^DD(421.5,"GL",3,0,70)=""
^DD(421.5,"GL",4,0,23)=""
^DD(421.5,"GL",5,0,41)=""
^DD(421.5,"GL",6,0,31)=""
^DD(421.5,"IX",.01)=""
^DD(421.5,"IX",4.5)=""
^DD(421.5,"IX",5)=""
^DD(421.5,"IX",6)=""
^DD(421.5,"IX",27)=""
^DD(421.5,"IX",50)=""
^DD(421.5,"IX",51)=""
^DD(421.5,"IX",52)=""
^DD(421.5,"IX",57)=""
^DD(421.5,"RQ",.01)=""
^DD(421.5,"RQ",.5)=""
^DD(421.5,"RQ",.6)=""
^DD(421.5,"RQ",1)=""
^DD(421.5,"RQ",2)=""
^DD(421.5,"RQ",3)=""
^DD(421.5,"RQ",4)=""
^DD(421.5,"RQ",4.5)=""
^DD(421.5,"RQ",11.5)=""
^DD(421.5,"RQ",13)=""
^DD(421.5,"RQ",19)=""
^DD(421.5,"RQ",20)=""
^DD(421.5,"RQ",37)=""
^DD(421.5,"SB",421.51,70)=""
^DD(421.5,"SB",421.523,23)=""
^DD(421.5,"SB",421.531,31)=""
^DD(421.5,"SB",421.541,41)=""
^DD(421.51,0)="CERTIFYING SERVICE SUB-FIELD^^2^3"
^DD(421.51,0,"DT")="2921221"
^DD(421.51,0,"IX","B",421.51,.01)=""
^DD(421.51,0,"NM","CERTIFYING SERVICE")=""
^DD(421.51,0,"UP")="421.5"
^DD(421.51,.01,0)="CERTIFYING SERVICE^P49'^DIC(49,^0;1^Q"
^DD(421.51,.01,1,0)="^.1"
^DD(421.51,.01,1,1,0)="421.51^B"
^DD(421.51,.01,1,1,1)="S ^PRCF(421.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(421.51,.01,1,1,2)="K ^PRCF(421.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(421.51,.01,1,2,0)="^^TRIGGER^421.5^53"
^DD(421.51,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(421.51,.01,1,2,1.1) X ^DD(421.51,.01,1,2,1.4)"
^DD(421.51,.01,1,2,1.1)="S X=DIV S X=$S('$D(^DIC(49,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(421.51,.01,1,2,1.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(2)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=53 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.51,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(421.51,.01,1,2,2.1) X ^DD(421.51,.01,1,2,2.4)"
^DD(421.51,.01,1,2,2.1)="S X=DIV S Y(1)=$S($D(^PRCF(421.5,D0,3,D1,0)):^(0),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))"
^DD(421.51,.01,1,2,2.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(2)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=53 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.51,.01,1,2,"%D",0)="^^1^1^2930629^^"
^DD(421.51,.01,1,2,"%D",1,0)="This cross-reference is set from the Current Invoice Location field (#53)."
^DD(421.51,.01,1,2,"CREATE VALUE")="CERTIFYING SERVICE"
^DD(421.51,.01,1,2,"DELETE VALUE")="CERTIFYING SERVICE"
^DD(421.51,.01,1,2,"FIELD")="CURRENT INVOICE LOCATION"
^DD(421.51,.01,21,0)="^^1^1^2911106^^^"
^DD(421.51,.01,21,1,0)="This is a pointer to the Service/Section file, #49."
^DD(421.51,.01,"DT")="2890908"
^DD(421.51,1,0)="DATE/TIME CHARGED OUT^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(421.51,1,1,0)="^.1"
^DD(421.51,1,1,1,0)="^^TRIGGER^421.5^54"
^DD(421.51,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(421.51,1,1,1,1.4)"
^DD(421.51,1,1,1,1.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(2)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=54 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.51,1,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(421.51,1,1,1,2.1) X ^DD(421.51,1,1,1,2.4)"
^DD(421.51,1,1,1,2.1)="S X=DIV X ^DD(421.51,1,1,1,59.2) X ""F D1=0:0 S D1=$N(^PRCF(421.5,D0,3,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,2),1:"""""""") S:Y'?."""" """" Y(102)=Y"" S D(1)=D1 S X=Y(102) S D0=I(0,0) S D1=I(1,0)"
^DD(421.51,1,1,1,2.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(2)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=54 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.51,1,1,1,59.2)="S I(0,0)=$S($D(D0):D0,1:""""),I(1,0)=$S($D(D1):D1,1:""""),Y(102)="""""
^DD(421.51,1,1,1,"%D",0)="^^2^2^2930629^"
^DD(421.51,1,1,1,"%D",1,0)="This cross reference is set up from the Date/Time Charged to the current"
^DD(421.51,1,1,1,"%D",2,0)="location."
^DD(421.51,1,1,1,"CREATE VALUE")="DATE/TIME CHARGED OUT"
^DD(421.51,1,1,1,"DELETE VALUE")="LAST(BORROWER:DATE/TIME CHARGED OUT)"
^DD(421.51,1,1,1,"FIELD")="D/T CHARGED TO CURRENT LOC"
^DD(421.51,1,21,0)="^^2^2^2910529^"
^DD(421.51,1,21,1,0)="Used when multiple services are required"
^DD(421.51,1,21,2,0)="for certification.  Indicates date changed."
^DD(421.51,1,"DT")="2890426"
^DD(421.51,2,0)="CHARGED BY^P200'^VA(200,^0;3^Q"
^DD(421.51,2,1,0)="^.1"
^DD(421.51,2,1,1,0)="^^TRIGGER^421.5^54.5"
^DD(421.51,2,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(421.51,2,1,1,1.4)"
^DD(421.51,2,1,1,1.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,16,99))  S DIH=DIH_U"" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(2)=$P(DIH,U,1,16)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=54.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.51,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(421.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="""" X ^DD(421.51,2,1,1,2.4)"
^DD(421.51,2,1,1,2.4)="S DIH=$S($D(^PRCF(421.5,DIV(0),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,16,99))  S DIH=DIH_U"" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(2)=$P(DIH,U,1,16)_U_DIV_$S(%]"""":U_%,1:""""),DIH=421.5,DIG=54.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(421.51,2,1,1,"%D",0)="^^2^2^2930707^^"
^DD(421.51,2,1,1,"%D",1,0)="This cross reference is set up from the pointer to the New Person file"
^DD(421.51,2,1,1,"%D",2,0)="of the person who charged the invoice to its current location."
^DD(421.51,2,1,1,"CREATE VALUE")="INTERNAL(CHARGED BY)"
^DD(421.51,2,1,1,"DELETE VALUE")="@"
^DD(421.51,2,1,1,"FIELD")="CHARGED"
^DD(421.51,2,21,0)="^^1^1^2921221^^"
^DD(421.51,2,21,1,0)="For multiple services, indicates who charged the invoice out."
^DD(421.51,2,"DT")="2921221"
^DD(421.51,"B","CERTIFYING SERVICE",.01)=""
^DD(421.51,"B","CHARGED BY",2)=""
^DD(421.51,"B","DATE/TIME CHARGED OUT",1)=""
^DD(421.51,"GL",0,1,.01)=""
^DD(421.51,"GL",0,2,1)=""
^DD(421.51,"GL",0,3,2)=""
^DD(421.51,"IX",.01)=""
^DD(421.51,"IX",1)=""
^DD(421.51,"IX",2)=""
^DD(421.523,0)="REASON FOR SUSPENSION SUB-FIELD^^.01^1"
^DD(421.523,0,"NM","REASON FOR SUSPENSION")=""
^DD(421.523,0,"UP")="421.5"
^DD(421.523,.01,0)="REASON FOR SUSPENSION^W^^0;1^Q"
^DD(421.523,.01,21,0)="^^1^1^2911120^"
^DD(421.523,.01,21,1,0)="This is the reason for suspending payment."
^DD(421.523,.01,"DT")="2890708"
^DD(421.523,"B","REASON FOR SUSPENSION",.01)=""
^DD(421.523,"GL",0,1,.01)=""
^DD(421.531,0)="PROMPT PAYMENT TERMS SUB-FIELD^^4^5"
^DD(421.531,0,"DT")="2940701"
^DD(421.531,0,"IX","B",421.531,.01)=""
^DD(421.531,0,"NM","PROMPT PAYMENT TERMS")=""
^DD(421.531,0,"UP")="421.5"
^DD(421.531,.01,0)="PROMPT PAYMENT TERMS #^MNJ1,0^^0;1^K:+X'=X!(X>3)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.531,.01,1,0)="^.1"
^DD(421.531,.01,1,1,0)="421.531^B"
^DD(421.531,.01,1,1,1)="S ^PRCF(421.5,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(421.531,.01,1,1,2)="K ^PRCF(421.5,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(421.531,.01,3)=""
^DD(421.531,.01,4)="D PAY^PRCFDS"
^DD(421.531,.01,21,0)="^^2^2^2940627^"
^DD(421.531,.01,21,1,0)="This is the number used to identify and select sets of payment terms from"
^DD(421.531,.01,21,2,0)="those contained in the Payment/Invoice Tracking record."
^DD(421.531,.01,"DT")="2940426"
^DD(421.531,1,0)="TERMS TYPE CODE^S^X:STANDARD;P:PROXIMO;E:END OF MONTH (EOM);^0;2^Q"
^DD(421.531,1,21,0)="^^2^2^2940706^^^"
^DD(421.531,1,21,1,0)="This is a code which governs how the DISCOUNT DAYS field is interpreted"
^DD(421.531,1,21,2,0)="by the Payment/Invoice Tracking module."
^DD(421.531,1,"DT")="2940627"
^DD(421.531,2,0)="DISCOUNT PERCENT^FX^^0;3^K:+X'=X&(X'=""NET"") X I $D(X),+X=X K:X?.E1"".""4N.N!(X<.001)!(X>99.999) X"
^DD(421.531,2,3)="Enter 'NET' or a Number between .001 and 99.999, 3 Decimal Digits"
^DD(421.531,2,21,0)="^^2^2^2941123^^"
^DD(421.531,2,21,1,0)="This field contains the percentage discount associated with this set of"
^DD(421.531,2,21,2,0)="Prompt Payment Terms.  (i.e. Enter 5 % as 5 NOT .05)"
^DD(421.531,2,"DT")="2940426"
^DD(421.531,3,0)="DISCOUNT AMOUNT^NJ8,2O^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(421.531,3,2)="S Y(0)=Y S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.531,3,2.1)="S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.531,3,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(421.531,3,21,0)="^^3^3^2940627^"
^DD(421.531,3,21,1,0)="This field contains the dollar amount of the discount for this set of"
^DD(421.531,3,21,2,0)="payment terms.  The Discount Amount and Discount Percent should not both"
^DD(421.531,3,21,3,0)="be entered for a single set of Prompt Payment Terms."
^DD(421.531,3,"DT")="2940509"
^DD(421.531,4,0)="DISCOUNT DAYS^NJ2,0^^0;5^K:X>60!(X<1)!(X?.E1"".""1N.N) X I $D(X),+X'=X K:X'?.N2A X Q:'$D(X)  S Z0=$E(X,$L(X)-1,$L(X)),X=$E(X,1,$L(X)-2)_$S(""STst""[Z0:""st"",""NDnd""[Z0:""nd"",""RDrd""[Z0:""rd"",""THth""[Z0:""th"",1:""ZZZZZ"") K:$L(X)>4 X"
^DD(421.531,4,3)="Type a Number between 1 and 60, 0 Decimal Digits"
^DD(421.531,4,21,0)="^^3^3^2940627^"
^DD(421.531,4,21,1,0)="This field contains the number of days during which the discount may be"
^DD(421.531,4,21,2,0)="taken if the invoice is paid.  It is normally measured from the date the"
^DD(421.531,4,21,3,0)="invoice or goods/services were received, whichever is later."
^DD(421.531,4,"DT")="2940701"
^DD(421.531,"B","DISCOUNT AMOUNT",3)=""
^DD(421.531,"B","DISCOUNT DAYS",4)=""
^DD(421.531,"B","DISCOUNT PERCENT",2)=""
^DD(421.531,"B","PROMPT PAYMENT TERMS #",.01)=""
^DD(421.531,"B","TERMS TYPE CODE",1)=""
^DD(421.531,"GL",0,1,.01)=""
^DD(421.531,"GL",0,2,1)=""
^DD(421.531,"GL",0,3,2)=""
^DD(421.531,"GL",0,4,3)=""
^DD(421.531,"GL",0,5,4)=""
^DD(421.531,"IX",.01)=""
^DD(421.541,0)="FMS LINE SUB-FIELD^^4^5"
^DD(421.541,0,"DT")="2940418"
^DD(421.541,0,"IX","B",421.541,.01)=""
^DD(421.541,0,"NM","FMS LINE")=""
^DD(421.541,0,"UP")="421.5"
^DD(421.541,.01,0)="BOC^M*P420.2'^PRCD(420.2,^0;1^S DIC(""S"")=""D SCREEN^PRCFDT"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(421.541,.01,1,0)="^.1^^-1"
^DD(421.541,.01,1,1,0)="421.541^B"
^DD(421.541,.01,1,1,1)="S ^PRCF(421.5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(421.541,.01,1,1,2)="K ^PRCF(421.5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(421.541,.01,3)="Please select one of the BUDGET OBJECT CODEs listed."
^DD(421.541,.01,4)="D SUMM^PRCFDA"
^DD(421.541,.01,12)="Must be a BOC already in the obligation document."
^DD(421.541,.01,12.1)="S DIC(""S"")=""D SCREEN^PRCFDT"""
^DD(421.541,.01,21,0)="^^3^3^2940627^"
^DD(421.541,.01,21,1,0)="This is the Budget Object Code (BOC), formerly known as the Subaccount,"
^DD(421.541,.01,21,2,0)="for this FMS accounting line.  In this context, the selection of BOCs"
^DD(421.541,.01,21,3,0)="is restricted to those already identified on the obligation document."
^DD(421.541,.01,"DT")="2940426"
^DD(421.541,1,0)="ACCOUNTING LINE AMOUNT^NJ15,2O^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<.01) X"
^DD(421.541,1,2)="S Y(0)=Y S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.541,1,2.1)="S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.541,1,3)="Type a Dollar Amount between .01 and 999999999999.99, 2 Decimal Digits"
^DD(421.541,1,21,0)="^^2^2^2940627^"
^DD(421.541,1,21,1,0)="This is the dollar amount on the invoice which is being charged to the BOC"
^DD(421.541,1,21,2,0)="identifed on this FMS accounting line."
^DD(421.541,1,"DT")="2940509"
^DD(421.541,2,0)="LIQUIDATION AMOUNT^NJ15,2O^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(421.541,2,2)="S Y(0)=Y S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.541,2,2.1)="S:$D(PRCF(""VIEW"")) Y=""$""_$FN(Y,"","",2)"
^DD(421.541,2,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(421.541,2,21,0)="^^3^3^2940627^"
^DD(421.541,2,21,1,0)="This is the dollar amount of the liquidation that is being charged against"
^DD(421.541,2,21,2,0)="the obligation for this particular BOC and FMS accounting line as a result"
^DD(421.541,2,21,3,0)="of the invoice payment."
^DD(421.541,2,"DT")="2940509"
^DD(421.541,3,0)="LIQUIDATION CODE^S^P:PARTIAL;F:FINAL;^0;4^Q"
^DD(421.541,3,21,0)="^^3^3^2940627^"
^DD(421.541,3,21,1,0)="This is a single-character alphabetic code which indicates whether the"
^DD(421.541,3,21,2,0)="liquidation of the obligation for the FMS accounting line and BOC "
^DD(421.541,3,21,3,0)="associated with this payment is partial or final."
^DD(421.541,3,"DT")="2940407"
^DD(421.541,4,0)="FMS LINE #^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.541,4,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(421.541,4,21,0)="^^2^2^2940627^"
^DD(421.541,4,21,1,0)="This is a three-digit line number which associates the payment amount for"
^DD(421.541,4,21,2,0)="a BOC with the same line number and BOC on the obligation document."
^DD(421.541,4,"DT")="2940411"
^DD(421.541,"B","ACCOUNTING LINE AMOUNT",1)=""
^DD(421.541,"B","BOC",.01)=""
^DD(421.541,"B","FMS LINE #",4)=""
^DD(421.541,"B","LIQUIDATION AMOUNT",2)=""
^DD(421.541,"B","LIQUIDATION CODE",3)=""
^DD(421.541,"GL",0,1,.01)=""
^DD(421.541,"GL",0,2,1)=""
^DD(421.541,"GL",0,3,2)=""
^DD(421.541,"GL",0,4,3)=""
^DD(421.541,"GL",0,5,4)=""
^DD(421.541,"IX",.01)=""
^DD(421.6,0)="FIELD^^35^26"
^DD(421.6,0,"DDA")="N"
^DD(421.6,0,"DT")="2940420"
^DD(421.6,0,"IX","AC",421.6,1)=""
^DD(421.6,0,"IX","AD",421.6,2)=""
^DD(421.6,0,"IX","B",421.6,.01)=""
^DD(421.6,0,"NM","FUND DISTRIBUTION (TEMP TRANS)")=""
^DD(421.6,0,"VR")="5.1"
^DD(421.6,0,"VRPK")="IFCAP"
^DD(421.6,.01,0)="TRANSACTION NUMBER^RF^^0;1^K:$L(X)>17!($L(X)<3)!'(X'?1P.E) X"
^DD(421.6,.01,1,0)="^.1"
^DD(421.6,.01,1,1,0)="421.6^B"
^DD(421.6,.01,1,1,1)="S ^PRCF(421.6,""B"",$E(X,1,30),DA)="""""
^DD(421.6,.01,1,1,2)="K ^PRCF(421.6,""B"",$E(X,1,30),DA)"
^DD(421.6,.01,3)="ANSWER MUST BE 3-17 CHARACTERS IN LENGTH"
^DD(421.6,.01,21,0)="^^1^1^2910530^"
^DD(421.6,.01,21,1,0)="This is the temporary transaction number."
^DD(421.6,.01,"DT")="2890816"
^DD(421.6,1,0)="FROM CONTROL POINT^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:'$D(PRC(""SITE"")) X I $D(X) S DIC=""^PRC(420,""_PRC(""SITE"")_"",1,"",DIC(0)=""EMNQ"" K DIC(""S"") D ^DIC S X=$P(Y,""^"",2) K:Y<0 X K DIC"
^DD(421.6,1,1,0)="^.1"
^DD(421.6,1,1,1,0)="421.6^AC^MUMPS"
^DD(421.6,1,1,1,1)="I $D(PRCF(""SIFY"")) S Z=$P($$APP^PRC0C(PRC(""SITE""),$P(PRCF(""SIFY""),""-"",2),+X),U) I Z'="""" S $P(^PRCF(421.6,DA,0),U,7)=PRCF(""SIFY"")_""-""_Z K Z"
^DD(421.6,1,1,1,2)="S:$D(PRCF(""SIFY"")) $P(^PRCF(421.6,DA,0),U,7)="""""
^DD(421.6,1,1,1,"%D",0)="^^2^2^2940329^^"
^DD(421.6,1,1,1,"%D",1,0)="This cross reference is used to set the control point"
^DD(421.6,1,1,1,"%D",2,0)="from which funds are being transferred on the record."
^DD(421.6,1,1,1,"DT")="2940329"
^DD(421.6,1,3)="ANSWER WITH CONTROL POINT NUMBER"
^DD(421.6,1,4)="I $D(PRC(""SITE"")) S ZD=$G(D),X=""?"",Z0=+PRC(""SITE"") Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"",DIC(""S"")=""I +$P(^(0),U)<9999"" D ^DIC K DIC(""S"") S DIC=$G(DIE),D=ZD K ZD,Z0"
^DD(421.6,1,21,0)="^^2^2^2940428^^"
^DD(421.6,1,21,1,0)="This is the Fund Control Point (FCP) which funds"
^DD(421.6,1,21,2,0)="are being transferred from."
^DD(421.6,1,"DT")="2940428"
^DD(421.6,1.5,0)="BBFY^RDX^^0;9^S %DT=""E"" D ^%DT S X=Y,X=X-(X#10000) K:3990000<X!(2000000>X) X"
^DD(421.6,1.5,3)="Enter a year between 1900 and 2099."
^DD(421.6,1.5,21,0)="^^1^1^2941109^"
^DD(421.6,1.5,21,1,0)="This is used to store BBFY data."
^DD(421.6,1.5,"DT")="2940329"
^DD(421.6,2,0)="TO CONTROL POINT^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:'$D(PRC(""SITE""))!('$D(PRCB(""FRCP""))) X I $D(X) S DIC=""^PRC(420,""_PRC(""SITE"")_"",1,"",DIC(0)=""EMNQ"",DIC(""S"")=""I $P(^(0),U)'=PRCB(""""FRCP"""")"" D ^DIC S X=$P(Y,""^"",2) K:Y<0 X K DIC"
^DD(421.6,2,1,0)="^.1"
^DD(421.6,2,1,1,0)="421.6^AD^MUMPS"
^DD(421.6,2,1,1,1)="I $D(PRCF(""SIFY"")) S Z=$P($$APP^PRC0C(PRC(""SITE""),$P(PRCF(""SIFY""),""-"",2),+X),U) I Z'="""" S $P(^PRCF(421.6,DA,0),U,8)=PRCF(""SIFY"")_""-""_Z K Z"
^DD(421.6,2,1,1,2)="S:$D(PRCF(""SIFY"")) $P(^PRCF(421,DA,0),U,8)="""""
^DD(421.6,2,1,1,"%D",0)="^^2^2^2940329^^"
^DD(421.6,2,1,1,"%D",1,0)="This cross reference is used to set the control point"
^DD(421.6,2,1,1,"%D",2,0)="to which funds are being transferred on the record."
^DD(421.6,2,1,1,"DT")="2940329"
^DD(421.6,2,3)="ANSWER WITH CONTROL POINT NUMBER"
^DD(421.6,2,4)="I $D(PRC(""SITE"")) S ZD=D,X=""?"",Z0=+PRC(""SITE"") Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"" S:$D(PRCB(""FRCP"")) DIC(""S"")=""I $P(^(0),U)'=PRCB(""""FRCP"""")"" D ^DIC K DIC(""S"") S DIC=DIE,D=ZD K ZD,Z0"
^DD(421.6,2,21,0)="^^2^2^2910530^"
^DD(421.6,2,21,1,0)="This is the Fund Control Point (FCP) which funds"
^DD(421.6,2,21,2,0)="are being transferred to."
^DD(421.6,2,"DT")="2940329"
^DD(421.6,3,0)="AMOUNT TO TRANSFER^RNJ11,2X^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<.01) X D:$D(X) DOLLAR^PRCBE"
^DD(421.6,3,3)="Type a Dollar Amount between .01 and 99999999, 2 Decimal Digits"
^DD(421.6,3,21,0)="^^1^1^2940527^^^^"
^DD(421.6,3,21,1,0)="This is the amount of funds being transferred."
^DD(421.6,3,"DT")="2940527"
^DD(421.6,4,0)="TRANSACTION DATE^RD^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.6,4,21,0)="^^1^1^2910530^"
^DD(421.6,4,21,1,0)="This is the date of transfer."
^DD(421.6,4,"DT")="2891003"
^DD(421.6,4.5,0)="QUARTER^RF^^0;6^K:$L(X)>1!($L(X)<1)!'(X?1""1""!(X?1""2"")!(X?1""3"")!(X?1""4"")) X"
^DD(421.6,4.5,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(421.6,4.5,21,0)="^^2^2^2930204^^"
^DD(421.6,4.5,21,1,0)="This is the FY quarter in which transfer is to"
^DD(421.6,4.5,21,2,0)="take place."
^DD(421.6,4.5,"DT")="2890901"
^DD(421.6,5,0)="DESCRIPTION^421.65^^1;0"
^DD(421.6,5,21,0)="^^1^1^2911120^^"
^DD(421.6,5,21,1,0)="This is the transfer description."
^DD(421.6,6,0)="APPROPRIATION FROM FCP^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(421.6,6,3)="Answer must be 3-30 characters in length."
^DD(421.6,6,21,0)="^^2^2^2910530^"
^DD(421.6,6,21,1,0)="This is the appropriation symbol of the FCP"
^DD(421.6,6,21,2,0)="transferring funds."
^DD(421.6,6,"DT")="2940329"
^DD(421.6,7,0)="APPROPRIATION TO FCP^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(421.6,7,3)="Answer must be 3-30 characters in length."
^DD(421.6,7,21,0)="^^2^2^2940329^^"
^DD(421.6,7,21,1,0)="This is the appropriation symbol of the FCP"
^DD(421.6,7,21,2,0)="receiving funds."
^DD(421.6,7,"DT")="2940329"
^DD(421.6,8,0)="RECURRING/NON-RECURRING^RS^NR:NON-RECURRING;R:RECURRING;^2;1^Q"
^DD(421.6,8,21,0)="^^2^2^2910530^"
^DD(421.6,8,21,1,0)="This field is an indicator for receiving"
^DD(421.6,8,21,2,0)="transmissions."
^DD(421.6,8,"DT")="2890415"
^DD(421.6,9,0)="ANNUALIZATION AMOUNT^NJ11,2^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(421.6,9,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(421.6,9,21,0)="^^1^1^2910530^"
^DD(421.6,9,21,1,0)="This is the dollar amount of annual transmissions."
^DD(421.6,9,"DT")="2890415"
^DD(421.6,22,0)="PAYMENT CONTACT PERSON^F^^7;1^K:$L(X)>30!($L(X)<3) X"
^DD(421.6,22,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(421.6,22,21,0)="^^1^1^2910530^"
^DD(421.6,22,21,1,0)="This is the vendor contact person for payments."
^DD(421.6,22,"DT")="2890619"
^DD(421.6,23,0)="PAYMENT PHONE NO.^F^^7;2^K:$L(X)>18!($L(X)<3) X"
^DD(421.6,23,3)="ANSWER MUST BE 3-18 CHARACTERS IN LENGTH"
^DD(421.6,23,21,0)="^^1^1^2910530^"
^DD(421.6,23,21,1,0)="This is the vendor phone number for payments."
^DD(421.6,23,"DT")="2890619"
^DD(421.6,24,0)="PAYMENT ADDRESS1^F^^7;3^K:$L(X)>33!($L(X)<1) X"
^DD(421.6,24,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(421.6,24,21,0)="^^1^1^2910530^"
^DD(421.6,24,21,1,0)="This is the vendor payment address."
^DD(421.6,24,"DT")="2890619"
^DD(421.6,25,0)="PAYMENT ADDRESS2^F^^7;4^K:$L(X)>33!($L(X)<1) X"
^DD(421.6,25,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(421.6,25,21,0)="^^1^1^2910530^"
^DD(421.6,25,21,1,0)="This is the second vendor payment address."
^DD(421.6,25,"DT")="2890619"
^DD(421.6,26,0)="PAYMENT ADDRESS3^F^^7;5^K:$L(X)>25!($L(X)<1) X"
^DD(421.6,26,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(421.6,26,21,0)="^^1^1^2910530^"
^DD(421.6,26,21,1,0)="This is the third vendor payment address."
^DD(421.6,26,"DT")="2890619"
^DD(421.6,27,0)="PAYMENT ADDRESS4^F^^7;6^K:$L(X)>25!($L(X)<1) X"
^DD(421.6,27,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(421.6,27,21,0)="^^1^1^2910530^"
^DD(421.6,27,21,1,0)="This is the fourth vendor payment address."
^DD(421.6,27,"DT")="2890619"
^DD(421.6,28,0)="PAYMENT CITY^F^^7;7^K:$L(X)>20!($L(X)<3) X"
^DD(421.6,28,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(421.6,28,21,0)="^^1^1^2910530^"
^DD(421.6,28,21,1,0)="This is the city of the vendor address."
^DD(421.6,28,"DT")="2890619"
^DD(421.6,29,0)="PAYMENT STATE^P5'^DIC(5,^7;8^Q"
^DD(421.6,29,21,0)="^^1^1^2910530^"
^DD(421.6,29,21,1,0)="This is the state of the vendor address."
^DD(421.6,29,"DT")="2890619"
^DD(421.6,30,0)="PAYMENT ZIP CODE^F^^7;9^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(421.6,30,3)="ENTER 5 DIGIT OR 9 DIGIT ZIP CODE IN THE FOLLOWING FORMAT: 11111 OR 11111-1111"
^DD(421.6,30,21,0)="^^1^1^2910530^"
^DD(421.6,30,21,1,0)="This is the zip code of the vendor address."
^DD(421.6,30,"DT")="2890619"
^DD(421.6,31,0)="CALM ID NUMBER^F^^7;10^K:$L(X)>12!($L(X)<1) X"
^DD(421.6,31,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(421.6,31,21,0)="^^1^1^2910530^"
^DD(421.6,31,21,1,0)="This is the vendor CALM ID."
^DD(421.6,31,"DT")="2890619"
^DD(421.6,32,0)="CALM STUB NAME^F^^7;11^K:$L(X)>3!($L(X)<3) X"
^DD(421.6,32,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(421.6,32,21,0)="^^1^1^2910530^"
^DD(421.6,32,21,1,0)="This is the vendor stub name."
^DD(421.6,32,"DT")="2890619"
^DD(421.6,33,0)="VENDOR NAME^F^^8;1^K:$L(X)>30!($L(X)<3) X"
^DD(421.6,33,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(421.6,33,21,0)="^^1^1^2910530^"
^DD(421.6,33,21,1,0)="This is the name of the vendor receiving payments."
^DD(421.6,33,"DT")="2890720"
^DD(421.6,34,0)="FMS VENDOR CODE^F^^7;12^K:$L(X)>9!($L(X)<1) X"
^DD(421.6,34,3)="Answer must be 1-9 characters in length."
^DD(421.6,34,21,0)="^^1^1^2941109^"
^DD(421.6,34,21,1,0)="This is used to store FMS VENDOR CODE data."
^DD(421.6,34,"DT")="2940420"
^DD(421.6,35,0)="ALT-ADDR-IND^F^^7;13^K:$L(X)>2!($L(X)<1) X"
^DD(421.6,35,3)="Answer must be 1-2 characters in length."
^DD(421.6,35,21,0)="^^1^1^2941109^"
^DD(421.6,35,21,1,0)="This is used to store ALT-ADDR-IND data."
^DD(421.6,35,"DT")="2940420"
^DD(421.6,"B","ALT-ADDR-IND",35)=""
^DD(421.6,"B","AMOUNT TO TRANSFER",3)=""
^DD(421.6,"B","ANNUALIZATION AMOUNT",9)=""
^DD(421.6,"B","APPROPRIATION FROM FCP",6)=""
^DD(421.6,"B","APPROPRIATION TO FCP",7)=""
^DD(421.6,"B","BBFY",1.5)=""
^DD(421.6,"B","CALM ID NUMBER",31)=""
^DD(421.6,"B","CALM STUB NAME",32)=""
^DD(421.6,"B","DESCRIPTION",5)=""
^DD(421.6,"B","FMS VENDOR CODE",34)=""
^DD(421.6,"B","FROM CONTROL POINT",1)=""
^DD(421.6,"B","PAYMENT ADDRESS1",24)=""
^DD(421.6,"B","PAYMENT ADDRESS2",25)=""
^DD(421.6,"B","PAYMENT ADDRESS3",26)=""
^DD(421.6,"B","PAYMENT ADDRESS4",27)=""
^DD(421.6,"B","PAYMENT CITY",28)=""
^DD(421.6,"B","PAYMENT CONTACT PERSON",22)=""
^DD(421.6,"B","PAYMENT PHONE NO.",23)=""
^DD(421.6,"B","PAYMENT STATE",29)=""
^DD(421.6,"B","PAYMENT ZIP CODE",30)=""
^DD(421.6,"B","QUARTER",4.5)=""
^DD(421.6,"B","RECURRING/NON-RECURRING",8)=""
^DD(421.6,"B","TO CONTROL POINT",2)=""
^DD(421.6,"B","TRANSACTION DATE",4)=""
^DD(421.6,"B","TRANSACTION NUMBER",.01)=""
^DD(421.6,"B","VENDOR NAME",33)=""
^DD(421.6,"GL",0,1,.01)=""
^DD(421.6,"GL",0,2,1)=""
^DD(421.6,"GL",0,3,2)=""
^DD(421.6,"GL",0,4,3)=""
^DD(421.6,"GL",0,5,4)=""
^DD(421.6,"GL",0,6,4.5)=""
^DD(421.6,"GL",0,7,6)=""
^DD(421.6,"GL",0,8,7)=""
^DD(421.6,"GL",0,9,1.5)=""
^DD(421.6,"GL",1,0,5)=""
^DD(421.6,"GL",2,1,8)=""
^DD(421.6,"GL",2,2,9)=""
^DD(421.6,"GL",7,1,22)=""
^DD(421.6,"GL",7,2,23)=""
^DD(421.6,"GL",7,3,24)=""
^DD(421.6,"GL",7,4,25)=""
^DD(421.6,"GL",7,5,26)=""
^DD(421.6,"GL",7,6,27)=""
^DD(421.6,"GL",7,7,28)=""
^DD(421.6,"GL",7,8,29)=""
^DD(421.6,"GL",7,9,30)=""
^DD(421.6,"GL",7,10,31)=""
^DD(421.6,"GL",7,11,32)=""
^DD(421.6,"GL",7,12,34)=""
^DD(421.6,"GL",7,13,35)=""
^DD(421.6,"GL",8,1,33)=""
^DD(421.6,"IX",.01)=""
^DD(421.6,"IX",1)=""
^DD(421.6,"IX",2)=""
^DD(421.6,"RQ",.01)=""
^DD(421.6,"RQ",1)=""
^DD(421.6,"RQ",1.5)=""
^DD(421.6,"RQ",3)=""
^DD(421.6,"RQ",4)=""
^DD(421.6,"RQ",4.5)=""
^DD(421.6,"RQ",8)=""
^DD(421.6,"SB",421.65,5)=""
^DD(421.65,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(421.65,0,"NM","DESCRIPTION")=""
^DD(421.65,0,"UP")="421.6"
^DD(421.65,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(421.65,.01,21,0)="^^1^1^2911120^"
^DD(421.65,.01,21,1,0)="This is the transfer description."
^DD(421.65,.01,"DT")="2890215"
^DD(421.65,"B","DESCRIPTION",.01)=""
^DD(421.65,"GL",0,1,.01)=""
^DD(421.7,0)="FIELD^^2^3"
^DD(421.7,0,"IX","B",421.7,.01)=""
^DD(421.7,0,"NM","INVOICE DLN COUNTER")=""
^DD(421.7,0,"VR")="5.1"
^DD(421.7,0,"VRPK")="IFCAP"
^DD(421.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(421.7,.01,1,0)="^.1"
^DD(421.7,.01,1,1,0)="421.7^B"
^DD(421.7,.01,1,1,1)="S ^PRCF(421.7,""B"",$E(X,1,30),DA)="""""
^DD(421.7,.01,1,1,2)="K ^PRCF(421.7,""B"",$E(X,1,30),DA)"
^DD(421.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(421.7,.01,21,0)="^^2^2^2911114^"
^DD(421.7,.01,21,1,0)="This is the name assigned by the system to indicate the document"
^DD(421.7,.01,21,2,0)="locator number (DLN) to be used for a specific day."
^DD(421.7,1,0)="LAST NUMBER USED^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.7,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(421.7,1,21,0)="^^2^2^2911114^"
^DD(421.7,1,21,1,0)="This is the running counter to be incremented by the system as each"
^DD(421.7,1,21,2,0)="number is assigned."
^DD(421.7,2,0)="DATE OF LAST ENTRY^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(421.7,2,21,0)="^^1^1^2911114^"
^DD(421.7,2,21,1,0)="This is the document locator number (DLN) that was last accessed."
^DD(421.7,"B","DATE OF LAST ENTRY",2)=""
^DD(421.7,"B","LAST NUMBER USED",1)=""
^DD(421.7,"B","NAME",.01)=""
^DD(421.7,"GL",0,1,.01)=""
^DD(421.7,"GL",0,2,1)=""
^DD(421.7,"GL",0,3,2)=""
^DD(421.7,"IX",.01)=""
^DD(421.7,"RQ",.01)=""
^DD(421.8,0)="FIELD^^9^9"
^DD(421.8,0,"DT")="2920429"
^DD(421.8,0,"IX","AB",421.8,5)=""
^DD(421.8,0,"IX","AC",421.8,6)=""
^DD(421.8,0,"IX","AD",421.8,8)=""
^DD(421.8,0,"IX","B",421.8,.01)=""
^DD(421.8,0,"NM","FISCAL STACKED DOCUMENTS")=""
^DD(421.8,0,"VR")="5.1"
^DD(421.8,0,"VRPK")="IFCAP"
^DD(421.8,.01,0)="INTERNAL RECORD NO.^RNJ8,0I^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(421.8,.01,1,0)="^.1"
^DD(421.8,.01,1,1,0)="421.8^B"
^DD(421.8,.01,1,1,1)="S ^PRC(421.8,""B"",$E(X,1,30),DA)="""""
^DD(421.8,.01,1,1,2)="K ^PRC(421.8,""B"",$E(X,1,30),DA)"
^DD(421.8,.01,1,1,"DT")="2940131"
^DD(421.8,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(421.8,.01,21,0)="^^1^1^2920414^^"
^DD(421.8,.01,21,1,0)="     This field will hold the record number in external format."
^DD(421.8,.01,"DT")="2940131"
^DD(421.8,1,0)="TYPE^SI^1:PO;2:RR;3:MO;4:2237;^0;2^Q"
^DD(421.8,1,1,0)="^.1^^0"
^DD(421.8,1,3)=""
^DD(421.8,1,21,0)="^^2^2^2960416^^"
^DD(421.8,1,21,1,0)="    This field is used to store the type of document to print in"
^DD(421.8,1,21,2,0)="FISCAL. (Purchase Orders, Receiving Reports, 1358s and 2237s)"
^DD(421.8,1,"DT")="2960416"
^DD(421.8,2,0)="ROUTINE^FI^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(421.8,2,3)="Answer must be 1-20 characters in length."
^DD(421.8,2,21,0)="^^2^2^2920817^"
^DD(421.8,2,21,1,0)="    This field stores the routine that will be executed to print the"
^DD(421.8,2,21,2,0)="document in Fiscal."
^DD(421.8,2,"DT")="2920428"
^DD(421.8,4,0)="VARIABLE^421.84A^^1;0"
^DD(421.8,4,21,0)="^^2^2^2920817^"
^DD(421.8,4,21,1,0)="     This field is used to store the variables that will be used to print"
^DD(421.8,4,21,2,0)="the document."
^DD(421.8,4,"DT")="2920409"
^DD(421.8,5,0)="DATE PROCESSED^DI^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(421.8,5,1,0)="^.1"
^DD(421.8,5,1,1,0)="421.8^AB^MUMPS"
^DD(421.8,5,1,1,1)="S:$P(^PRC(421.8,DA,0),U)&$P(^(0),U,2) ^PRC(421.8,""AB"",$P(^PRC(421.8,DA,0),U,2),X+0,$P(^(0),U),DA)="""""
^DD(421.8,5,1,1,2)="K:$P(^PRC(421.8,DA,0),U)&$P(^PRC(421.8,DA,0),U,2) ^PRC(421.8,""AB"",$P(^PRC(421.8,DA,0),U,2),X+0,$P(^(0),U),DA)"
^DD(421.8,5,1,1,"%D",0)="^^1^1^2930219^^"
^DD(421.8,5,1,1,"%D",1,0)="    Cross-reference for type and date of report."
^DD(421.8,5,1,1,"DT")="2930219"
^DD(421.8,5,3)=""
^DD(421.8,5,21,0)="^^1^1^2920817^"
^DD(421.8,5,21,1,0)="     This field is used to store the date that the document was created."
^DD(421.8,5,"DT")="2930219"
^DD(421.8,6,0)="EXTERNAL RECORD NO.^FI^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(421.8,6,1,0)="^.1"
^DD(421.8,6,1,1,0)="421.8^AC^MUMPS"
^DD(421.8,6,1,1,1)="S:$P(^PRC(421.8,DA,0),U,2)&$P(^(0),U,4) ^PRC(421.8,""AC"",$P(^PRC(421.8,DA,0),U,2),$P(^(0),U,4)+0,X,DA)="""""
^DD(421.8,6,1,1,2)="K:$P(^PRC(421.8,DA,0),U,2)&$P(^(0),U,4) ^PRC(421.8,""AC"",$P(^PRC(421.8,DA,0),U,2),$P(^(0),U,4)+0,X,DA)"
^DD(421.8,6,1,1,"%D",0)="^^1^1^2930319^^^^"
^DD(421.8,6,1,1,"%D",1,0)="    This cross-reference is sorting by type and date to print."
^DD(421.8,6,1,1,"DT")="2930319"
^DD(421.8,6,3)="Answer must be 3-30 characters in length."
^DD(421.8,6,21,0)="^^2^2^2920817^"
^DD(421.8,6,21,1,0)="     This field is used to store the .01 field from either file 442 or 410"
^DD(421.8,6,21,2,0)="which is the record number for the document."
^DD(421.8,6,"DT")="2930319"
^DD(421.8,7,0)="DEVICE^FI^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(421.8,7,3)="Answer must be 3-30 characters in length."
^DD(421.8,7,21,0)="^^2^2^2920817^"
^DD(421.8,7,21,1,0)="     This field is used to store the output device from file 411 for"
^DD(421.8,7,21,2,0)="the corresponding site and type of document."
^DD(421.8,7,"DT")="2920428"
^DD(421.8,8,0)="PRINTED^D^^0;7^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(421.8,8,1,0)="^.1"
^DD(421.8,8,1,1,0)="421.8^AD"
^DD(421.8,8,1,1,1)="S ^PRC(421.8,""AD"",$E(X,1,30),DA)="""""
^DD(421.8,8,1,1,2)="K ^PRC(421.8,""AD"",$E(X,1,30),DA)"
^DD(421.8,8,1,1,"%D",0)="^^1^1^2930319^^^"
^DD(421.8,8,1,1,"%D",1,0)="    Date processed for purging file."
^DD(421.8,8,1,1,"DT")="2920424"
^DD(421.8,8,21,0)="^^1^1^2920817^"
^DD(421.8,8,21,1,0)="     This field stores the date that the document was last printed."
^DD(421.8,8,"DT")="2920507"
^DD(421.8,9,0)="SITE^F^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(421.8,9,3)="Answer must be 1-10 characters in length."
^DD(421.8,9,21,0)="^^2^2^2920817^"
^DD(421.8,9,21,1,0)="     This field stores the site number of the site that generated the"
^DD(421.8,9,21,2,0)="document."
^DD(421.8,9,"DT")="2920506"
^DD(421.8,"B","DATE PROCESSED",5)=""
^DD(421.8,"B","DEVICE",7)=""
^DD(421.8,"B","EXTERNAL RECORD NO.",6)=""
^DD(421.8,"B","INTERNAL RECORD NO.",.01)=""
^DD(421.8,"B","PRINTED",8)=""
^DD(421.8,"B","ROUTINE",2)=""
^DD(421.8,"B","SITE",9)=""
^DD(421.8,"B","TYPE",1)=""
^DD(421.8,"B","VARIABLE",4)=""
^DD(421.8,"GL",0,1,.01)=""
^DD(421.8,"GL",0,2,1)=""
^DD(421.8,"GL",0,3,2)=""
^DD(421.8,"GL",0,4,5)=""
^DD(421.8,"GL",0,5,6)=""
^DD(421.8,"GL",0,6,7)=""
^DD(421.8,"GL",0,7,8)=""
^DD(421.8,"GL",0,8,9)=""
^DD(421.8,"GL",1,0,4)=""
^DD(421.8,"IX",.01)=""
^DD(421.8,"IX",5)=""
^DD(421.8,"IX",6)=""
^DD(421.8,"IX",8)=""
^DD(421.8,"RQ",.01)=""
^DD(421.8,"SB",421.84,4)=""
^DD(421.84,0)="VARIABLE SUB-FIELD^^1^2"
^DD(421.84,0,"DT")="2920409"
^DD(421.84,0,"NM","VARIABLE")=""
^DD(421.84,0,"UP")="421.8"
^DD(421.84,.01,0)="VARIABLE^FI^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(421.84,.01,1,0)="^.1^^0"
^DD(421.84,.01,3)="Answer must be 1-30 characters in length."
^DD(421.84,.01,21,0)="^^2^2^2920817^"
^DD(421.84,.01,21,1,0)="   This field is used to store the variable name that will be used in"
^DD(421.84,.01,21,2,0)="printing the document."
^DD(421.84,.01,"DT")="2920428"
^DD(421.84,1,0)="VALUE^F^^0;2^K:$L(X)>99!($L(X)<1) X"
^DD(421.84,1,3)="Answer must be 1-99 characters in length."
^DD(421.84,1,21,0)="^^2^2^2920817^"
^DD(421.84,1,21,1,0)="   This field is used to store the value of the variable that will be used "
^DD(421.84,1,21,2,0)="to print the document.  "
^DD(421.84,1,"DT")="2920409"
^DD(421.84,"B","VALUE",1)=""
^DD(421.84,"B","VARIABLE",.01)=""
^DD(421.84,"GL",0,1,.01)=""
^DD(421.84,"GL",0,2,1)=""
^DD(421.9,0)="FIELD^^1^2"
^DD(421.9,0,"DT")="2940413"
^DD(421.9,0,"IX","B",421.9,.01)=""
^DD(421.9,0,"NM","INVOICE PARTIAL COUNTER")=""
^DD(421.9,0,"VR")="5.1"
^DD(421.9,0,"VRPK")="IFCAP"
^DD(421.9,.01,0)="TRANSACTION NUMBER^F^^0;1^K:$L(X)>9!($L(X)<9)!'(X?3N1""-""6AN) X"
^DD(421.9,.01,1,0)="^.1"
^DD(421.9,.01,1,1,0)="421.9^B"
^DD(421.9,.01,1,1,1)="S ^PRCF(421.9,""B"",$E(X,1,30),DA)="""""
^DD(421.9,.01,1,1,2)="K ^PRCF(421.9,""B"",$E(X,1,30),DA)"
^DD(421.9,.01,3)="Answer must be 9 characters in length."
^DD(421.9,.01,21,0)="^^1^1^2940719^"
^DD(421.9,.01,21,1,0)="This is the first nine characters of the FMS document number."
^DD(421.9,.01,"DT")="2940413"
^DD(421.9,1,0)="LAST PARTIAL # ASSIGNED^F^^0;2^K:$L(X)>2!($L(X)<2)!'(X?.UN1N) X"
^DD(421.9,1,3)="Answer must be 2 characters in length."
^DD(421.9,1,21,0)="^^1^1^2940719^"
^DD(421.9,1,21,1,0)="This is the last two characters of the FMS document number."
^DD(421.9,1,"DT")="2940413"
^DD(421.9,"B","LAST PARTIAL # ASSIGNED",1)=""
^DD(421.9,"B","TRANSACTION NUMBER",.01)=""
^DD(421.9,"GL",0,1,.01)=""
^DD(421.9,"GL",0,2,1)=""
^DD(421.9,"IX",.01)=""
^DD(422,0)="FIELD^^2^3"
^DD(422,0,"DDA")="N"
^DD(422,0,"DT")="2930411"
^DD(422,0,"IX","B",422,.01)=""
^DD(422,0,"NM","CALM/LOG TEMPLATE MAPS")=""
^DD(422,0,"VR")="5.1"
^DD(422,0,"VRPK")="IFCAP"
^DD(422,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(""PRCH\PRCF\PRCA""'[$E(X,1,4)) X"
^DD(422,.01,1,0)="^.1^^-1"
^DD(422,.01,1,1,0)="422^B"
^DD(422,.01,1,1,1)="S ^PRCD(422,""B"",$E(X,1,30),DA)="""""
^DD(422,.01,1,1,2)="K ^PRCD(422,""B"",$E(X,1,30),DA)"
^DD(422,.01,3)="Answer must be 3-30 characters in length."
^DD(422,.01,12)="SELECTS CALM LOG TEMPLATES ONLY"
^DD(422,.01,12.1)="S DIC(""S"")=""I """"PRCFPRCHPRCA""""[$E(^(0),1,4)"""
^DD(422,.01,21,0)="^^1^1^2930411^^^^"
^DD(422,.01,21,1,0)="This is the template map name."
^DD(422,.01,"DT")="2930411"
^DD(422,1,0)="MAP^422.01A^^1;0"
^DD(422,1,21,0)="^^1^1^2911106^^"
^DD(422,1,21,1,0)="This field contains template map information."
^DD(422,2,0)="TEMPLATE NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(422,2,1,0)="^.1^^0"
^DD(422,2,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(422,2,21,0)="^^1^1^2911106^^"
^DD(422,2,21,1,0)="This is the name of the template used to create the map."
^DD(422,2,"DT")="2890323"
^DD(422,"B","MAP",1)=""
^DD(422,"B","NAME",.01)=""
^DD(422,"B","TEMPLATE NAME",2)=""
^DD(422,"GL",0,1,.01)=""
^DD(422,"GL",0,2,2)=""
^DD(422,"GL",1,0,1)=""
^DD(422,"IX",.01)=""
^DD(422,"RQ",.01)=""
^DD(422,"SB",422.01,1)=""
^DD(422.01,0)="MAP SUB-FIELD^^.01^2"
^DD(422.01,0,"NM","MAP")=""
^DD(422.01,0,"UP")="422"
^DD(422.01,.001,0)="NUMBER^NJ12,0^^ ^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(422.01,.001,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(422.01,.001,21,0)="^^1^1^2911106^^"
^DD(422.01,.001,21,1,0)="This is the internal number of the template map."
^DD(422.01,.001,"DT")="2891109"
^DD(422.01,.01,0)="MAP^FX^^0;1^K:$L(X)>245!($L(X)<1)!'(X?.ANP) X"
^DD(422.01,.01,1,0)="^.1^^0"
^DD(422.01,.01,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(422.01,.01,21,0)="^^1^1^2911106^^"
^DD(422.01,.01,21,1,0)="This is the system generated ""DR"" string."
^DD(422.01,.01,"DT")="2891004"
^DD(422.01,"B","MAP",.01)=""
^DD(422.01,"B","NUMBER",.001)=""
^DD(422.01,"GL",0,1,.01)=""
^DD(422.2,0)="FIELD^^1^2"
^DD(422.2,0,"DDA")="N"
^DD(422.2,0,"DT")="2920529"
^DD(422.2,0,"IX","B",422.2,.01)=""
^DD(422.2,0,"NM","COUNTER")=""
^DD(422.2,0,"VR")="5.1"
^DD(422.2,0,"VRPK")="IFCAP"
^DD(422.2,.01,0)="NAME^RFX^^0;1^K:'((X?3.4N1""-""3U1""-""2.7N.1""-"".1U)!(X?3N1""-""1.2N1""-""1.2N)) X"
^DD(422.2,.01,1,0)="^.1"
^DD(422.2,.01,1,1,0)="422.2^B"
^DD(422.2,.01,1,1,1)="S ^PRCF(422.2,""B"",$E(X,1,30),DA)="""""
^DD(422.2,.01,1,1,2)="K ^PRCF(422.2,""B"",$E(X,1,30),DA)"
^DD(422.2,.01,3)="MUST MATCH THE PATTERN  3 NUMBERS '-CALM-' OR '-LOG-' FOLLOWED BY 2 NUMBERS"
^DD(422.2,.01,21,0)="^^2^2^2910530^"
^DD(422.2,.01,21,1,0)="This field identifies the type of counter as"
^DD(422.2,.01,21,2,0)="CALM or LOG."
^DD(422.2,.01,"DT")="2940207"
^DD(422.2,1,0)="COUNTER^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(422.2,1,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(422.2,1,21,0)="^^2^2^2910530^"
^DD(422.2,1,21,1,0)="This field is used to obtain the next batch/transmission"
^DD(422.2,1,21,2,0)="number to be used."
^DD(422.2,"B","COUNTER",1)=""
^DD(422.2,"B","NAME",.01)=""
^DD(422.2,"GL",0,1,.01)=""
^DD(422.2,"GL",0,2,1)=""
^DD(422.2,"IX",.01)=""
^DD(422.2,"RQ",.01)=""
^DD(423,0)="FIELD^^1006.02^360"
^DD(423,0,"DDA")="N"
^DD(423,0,"DT")="2941020"
^DD(423,0,"ID",.7)="W:$D(^(""TRANS"")) ""   "",$P(^(""TRANS""),U,5)"
^DD(423,0,"ID","Z3")="W:$D(^(0)) ""   "",$P(^(0),U,4)"
^DD(423,0,"ID","Z4")="W:$D(^(0)) ""   "",$P(^(0),U,5)"
^DD(423,0,"ID","Z5")="W:$D(^(0)) ""   "",$P(^(0),U,6)"
^DD(423,0,"IX","AC",423,.3)=""
^DD(423,0,"IX","AD",423,.7)=""
^DD(423,0,"IX","AE",423,.8)=""
^DD(423,0,"IX","AF",423,.01)=""
^DD(423,0,"IX","AG",423,.01)=""
^DD(423,0,"IX","AH",423,.5)=""
^DD(423,0,"IX","AI",423,5.1)=""
^DD(423,0,"IX","AJ",423,.21)=""
^DD(423,0,"IX","AK",423,.22)=""
^DD(423,0,"IX","AL",423,.23)=""
^DD(423,0,"IX","AM",423,.24)=""
^DD(423,0,"IX","AN",423,300.1)=""
^DD(423,0,"IX","AO",423,.25)=""
^DD(423,0,"IX","AP",423,.31)=""
^DD(423,0,"IX","AQ",423,.01)=""
^DD(423,0,"IX","B",423,.01)=""
^DD(423,0,"IX","C",423,5)=""
^DD(423,0,"NM","CALM/LOG CODE SHEET")=""
^DD(423,0,"PT",410.02,11)=""
^DD(423,0,"PT",442.01,37)=""
^DD(423,0,"PT",442.08,5)=""
^DD(423,0,"PT",442.11,19.6)=""
^DD(423,0,"PT",443.61,37)=""
^DD(423,0,"PT",443.64,5)=""
^DD(423,0,"VR")="5.1"
^DD(423,0,"VRPK")="IFCAP"
^DD(423,.01,0)="ID^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)<4!($L(X)>21) X"
^DD(423,.01,1,0)="^.1^^-1"
^DD(423,.01,1,1,0)="423^B"
^DD(423,.01,1,1,1)="S ^PRCF(423,""B"",$E(X,1,30),DA)="""""
^DD(423,.01,1,1,2)="K ^PRCF(423,""B"",$E(X,1,30),DA)"
^DD(423,.01,1,1,"DT")="2920724"
^DD(423,.01,1,2,0)="423^AG^MUMPS"
^DD(423,.01,1,2,1)="S $P(^PRCF(423,DA,""TRANS""),""^"",1)=""I"",^PRCF(423,""AC"",""I"",DA)="""" K ^PRCF(423,""AC"",""N"",DA)"
^DD(423,.01,1,2,2)="Q"
^DD(423,.01,1,2,"%D",0)="^^3^3^2930702^^^"
^DD(423,.01,1,2,"%D",1,0)="This cross-reference is used to set the BATCHED? field to ""I"","
^DD(423,.01,1,2,"%D",2,0)="to set the ""AC"",""I"" node and to kill the ""AC"",""N"" "
^DD(423,.01,1,2,"%D",3,0)="node for the record."
^DD(423,.01,1,2,"DT")="2930203"
^DD(423,.01,1,3,0)="423^AF^MUMPS"
^DD(423,.01,1,3,1)="I $D(DT),$D(DA),$P(^PRCF(423,DA,""TRANS""),""^"",9)="""" S $P(^PRCF(423,DA,""TRANS""),""^"",9)=DT"
^DD(423,.01,1,3,2)="Q"
^DD(423,.01,1,3,"%D",0)="^^2^2^2930702^"
^DD(423,.01,1,3,"%D",1,0)="This cross-reference contains the code that will set the DATE"
^DD(423,.01,1,3,"%D",2,0)="CREATED field."
^DD(423,.01,1,3,"DT")="2930421"
^DD(423,.01,1,4,0)="423^AQ^MUMPS"
^DD(423,.01,1,4,1)="Q"
^DD(423,.01,1,4,2)="K ^PRCF(423,""AC"",""I"",DA)"
^DD(423,.01,1,4,"%D",0)="^^2^2^2930702^^"
^DD(423,.01,1,4,"%D",1,0)="This cross-reference contains the code that will kill the "
^DD(423,.01,1,4,"%D",2,0)="""AC"",""I"" node for the record."
^DD(423,.01,1,4,"DT")="2920724"
^DD(423,.01,3)="ENTER CODE SHEET IDENTIFIER OR CALM REFERENCE NUMBER"
^DD(423,.01,21,0)="^^1^1^2910516^"
^DD(423,.01,21,1,0)="This is the code sheet identifier or CALM reference number."
^DD(423,.01,"DT")="2930421"
^DD(423,.05,0)="DATE CREATED^D^^TRANS;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,.05,21,0)="^^1^1^2910516^"
^DD(423,.05,21,1,0)="This is the date this code sheet was created."
^DD(423,.05,"DT")="2861209"
^DD(423,.1,0)="SYSTEM IDENTIFIER^S^LOG:LOG;CLM:CALM;FEE:FEE;FEN:FEN;CAP:CAPPS;IRS:IRS;ISM:ISMS;PHA:PHA;CLI:CALM;PRC:PRC;^0;10^Q"
^DD(423,.1,3)=""
^DD(423,.1,21,0)="^^1^1^2930127^^^"
^DD(423,.1,21,1,0)="This is the system identifier."
^DD(423,.1,"DT")="2930127"
^DD(423,.2,0)="CODE^423.06A^^CODE;0"
^DD(423,.2,21,0)="^^1^1^2921201^^^^"
^DD(423,.2,21,1,0)="This is the CALM code."
^DD(423,.21,0)="BATCH LIST KEY^F^^TRANS;10^K:$L(X)>17!($L(X)<1) X"
^DD(423,.21,1,0)="^.1"
^DD(423,.21,1,1,0)="423^AJ"
^DD(423,.21,1,1,1)="S:$D(PRC(""SITE"")) ^PRCF(423,""AJ"",$E(X,1,30),DA)="""""
^DD(423,.21,1,1,2)="K ^PRCF(423,""AJ"",$E(X,1,30),DA)"
^DD(423,.21,1,1,"%D",0)="^^4^4^2930714^"
^DD(423,.21,1,1,"%D",1,0)="This cross-reference contains the code sheets that have been batched"
^DD(423,.21,1,1,"%D",2,0)="and are ready for printing in the Batch and Print option.  In the"
^DD(423,.21,1,1,"%D",3,0)="automatic transmission of the code sheets, this cross-reference contains"
^DD(423,.21,1,1,"%D",4,0)="the code sheets that are ready for transmission."
^DD(423,.21,3)="Answer must be 1-17 characters in length."
^DD(423,.21,9)="^"
^DD(423,.21,"DT")="2900607"
^DD(423,.22,0)="TRANSMIT LIST KEY^F^^TRANS;11^K:$L(X)>21!($L(X)<1) X"
^DD(423,.22,1,0)="^.1"
^DD(423,.22,1,1,0)="423^AK"
^DD(423,.22,1,1,1)="S:$D(PRC(""SITE"")) ^PRCF(423,""AK"",$E(X,1,30),DA)="""""
^DD(423,.22,1,1,2)="K ^PRCF(423,""AK"",$E(X,1,30),DA)"
^DD(423,.22,1,1,"%D",0)="^^2^2^2930714^"
^DD(423,.22,1,1,"%D",1,0)="This cross-reference contains the code sheets that are being"
^DD(423,.22,1,1,"%D",2,0)="transmitted to Austin."
^DD(423,.22,3)="Answer must be 1-21 characters in length."
^DD(423,.22,9)="^"
^DD(423,.22,21,0)="^^2^2^2900607^"
^DD(423,.22,21,1,0)="This field contains the string identifying the time and user creating"
^DD(423,.22,21,2,0)="a list of code sheets to be transmitted to Austin."
^DD(423,.22,"DT")="2920103"
^DD(423,.23,0)="ERROR IN BATCHING KEY^F^^TRANS;12^K:$L(X)>17!($L(X)<1) X"
^DD(423,.23,1,0)="^.1"
^DD(423,.23,1,1,0)="423^AL"
^DD(423,.23,1,1,1)="S ^PRCF(423,""AL"",$E(X,1,30),DA)="""""
^DD(423,.23,1,1,2)="K ^PRCF(423,""AL"",$E(X,1,30),DA)"
^DD(423,.23,1,1,"%D",0)="^^3^3^2930714^"
^DD(423,.23,1,1,"%D",1,0)="This cross-reference contains any code sheets in which errors were"
^DD(423,.23,1,1,"%D",2,0)="found during the batch and print option.  These code sheets in error"
^DD(423,.23,1,1,"%D",3,0)="will print for the user at the end of the batch and print listing."
^DD(423,.23,3)="Answer must be 1-17 characters in length."
^DD(423,.23,9)="^"
^DD(423,.23,21,0)="^^2^2^2900607^"
^DD(423,.23,21,1,0)="This field contains the key number ($H_""-""_DUZ) used to differentiate"
^DD(423,.23,21,2,0)="code sheets errors found by the code sheet batch and print option."
^DD(423,.23,"DT")="2900607"
^DD(423,.231,0)="BATCHING ERROR^S^1:NO 'ZEROTH' NODE;2:NO 'TRANS' NODE;3:MISSING TRANSMISSION DATE;4:MISSING TECHNICIAN;5:INVALID OR MISSING STATION #;6:INVALID OR MISSING BATCH TYPE;^TRANS;14^Q"
^DD(423,.231,"DT")="2890329"
^DD(423,.24,0)="REPRINT LIST KEY^F^^TRANS;13^K:$L(X)>17!($L(X)<1) X"
^DD(423,.24,1,0)="^.1"
^DD(423,.24,1,1,0)="423^AM"
^DD(423,.24,1,1,1)="S:$D(PRC(""SITE"")) ^PRCF(423,""AM"",$E(X,1,30),DA)="""""
^DD(423,.24,1,1,2)="K ^PRCF(423,""AM"",$E(X,1,30),DA)"
^DD(423,.24,1,1,"%D",0)="^^3^3^2930714^"
^DD(423,.24,1,1,"%D",1,0)="This cross-reference contains the individual batches or all the "
^DD(423,.24,1,1,"%D",2,0)="batches within a transmission number that have been selected for"
^DD(423,.24,1,1,"%D",3,0)="reprint in the Reprint a Batch option."
^DD(423,.24,3)="Answer must be 1-17 characters in length."
^DD(423,.24,9)="^"
^DD(423,.24,21,0)="^^2^2^2900607^"
^DD(423,.24,21,1,0)="This field contains the string of time_user.  It is used for creating a "
^DD(423,.24,21,2,0)="list of code sheets to be retransmitted to Austin."
^DD(423,.24,"DT")="2900607"
^DD(423,.25,0)="ON BUDGET LIST^S^Y:YES;^TRANS;16^Q"
^DD(423,.25,1,0)="^.1"
^DD(423,.25,1,1,0)="423^AO"
^DD(423,.25,1,1,1)="S ^PRCF(423,""AO"",$E(X,1,30),DA)="""""
^DD(423,.25,1,1,2)="K ^PRCF(423,""AO"",$E(X,1,30),DA)"
^DD(423,.25,1,1,"%D",0)="^^3^3^2930715^"
^DD(423,.25,1,1,"%D",1,0)="This cross-reference contains the code sheets for released"
^DD(423,.25,1,1,"%D",2,0)="transactions for a given Fiscal Year and Quarter used in the"
^DD(423,.25,1,1,"%D",3,0)="Generate Budget Code Sheets option."
^DD(423,.25,"DT")="2900619"
^DD(423,.3,0)="BATCHED?^S^N:NO;I:BATCHFLAG;Y:YES;^TRANS;1^Q"
^DD(423,.3,1,0)="^.1"
^DD(423,.3,1,1,0)="423^AC"
^DD(423,.3,1,1,1)="I X=""N"",$D(PRC(""SITE"")) S ^PRCF(423,""AC"",$E(X,1,30),DA)="""""
^DD(423,.3,1,1,2)="K ^PRCF(423,""AC"",$E(X,1,30),DA)"
^DD(423,.3,1,1,"%D",0)="^^3^3^2930715^"
^DD(423,.3,1,1,"%D",1,0)="This cross-reference contains the code sheets that are ready for"
^DD(423,.3,1,1,"%D",2,0)="the Batch and Print.  These code sheets are in the ""N"" subscript"
^DD(423,.3,1,1,"%D",3,0)="level."
^DD(423,.3,5,1,0)="423^.5^1"
^DD(423,.3,9)="^"
^DD(423,.3,21,0)="^^1^1^2930825^^^^"
^DD(423,.3,21,1,0)="YES identifies if this code sheet is to be printed."
^DD(423,.3,"DT")="2930421"
^DD(423,.31,0)="BACKGROUND BATCH^S^1:YES;^21;6^Q"
^DD(423,.31,1,0)="^.1"
^DD(423,.31,1,1,0)="423^AP"
^DD(423,.31,1,1,1)="S ^PRCF(423,""AP"",$E(X,1,30),DA)="""""
^DD(423,.31,1,1,2)="K ^PRCF(423,""AP"",$E(X,1,30),DA)"
^DD(423,.31,1,1,"%D",0)="^^2^2^2930715^"
^DD(423,.31,1,1,"%D",1,0)="This cross-reference contains the code sheets that are batched and"
^DD(423,.31,1,1,"%D",2,0)="printed in the background."
^DD(423,.31,1,1,"DT")="2920110"
^DD(423,.31,21,0)="^^1^1^2920110^"
^DD(423,.31,21,1,0)="This field is used as a flag to process code sheets in a background job."
^DD(423,.31,"DT")="2920110"
^DD(423,.4,0)="DATE PRINTED^D^^TRANS;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(423,.4,21,0)="^^1^1^2910516^"
^DD(423,.4,21,1,0)="This is the date the code sheet was printed."
^DD(423,.4,"DT")="2851007"
^DD(423,.5,0)="TRANSMISSION DATE^D^^TRANS;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,.5,1,0)="^.1"
^DD(423,.5,1,1,0)="423^AH^MUMPS"
^DD(423,.5,1,1,1)="S $P(^PRCF(423,DA,""TRANS""),""^"",1)=""N"",^PRCF(423,""AC"",""N"",DA)="""""
^DD(423,.5,1,1,2)="S $P(^PRCF(423,DA,""TRANS""),""^"",1)="""" K ^PRCF(423,""AC"",""N"",DA)"
^DD(423,.5,1,1,"%D",0)="^^3^3^2930715^"
^DD(423,.5,1,1,"%D",1,0)="This cross-reference contains the code that sets the code sheets"
^DD(423,.5,1,1,"%D",2,0)="into the ""AC"",""N"" cross-reference.  The code sheets are now ready"
^DD(423,.5,1,1,"%D",3,0)="for the batch and print."
^DD(423,.5,21,0)="^^1^1^2930203^^"
^DD(423,.5,21,1,0)="This is the transmission date of this CALM code sheet."
^DD(423,.5,"DT")="2870901"
^DD(423,.6,0)="BATCH TYPE^RP423.9'^PRCF(423.9,^TRANS;4^Q"
^DD(423,.6,3)=""
^DD(423,.6,21,0)="^^1^1^2941007^^"
^DD(423,.6,21,1,0)="This is the batch type for this transmission."
^DD(423,.6,"DT")="2860804"
^DD(423,.7,0)="BATCH NUMBER^F^^TRANS;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<12)!'(X?3N1""-""3U1""-""2N1""-""5UN) X"
^DD(423,.7,1,0)="^.1"
^DD(423,.7,1,1,0)="423^AD"
^DD(423,.7,1,1,1)="S ^PRCF(423,""AD"",$E(X,1,30),DA)="""""
^DD(423,.7,1,1,2)="K ^PRCF(423,""AD"",$E(X,1,30),DA)"
^DD(423,.7,1,1,"%D",0)="^^1^1^2930715^"
^DD(423,.7,1,1,"%D",1,0)="This cross-reference contains the code sheet batch numbers."
^DD(423,.7,3)="ANSWER MUST BE 12-17 CHARACTERS IN LENGTH"
^DD(423,.7,21,0)="^^1^1^2910516^"
^DD(423,.7,21,1,0)="This is the batch number for this transmission."
^DD(423,.7,"DT")="2880125"
^DD(423,.8,0)="BATCH PRIORITY^NJ1,0^^TRANS;6^K:+X'=X!(X>4)!(X<2)!(X?.E1"".""1N.N) X"
^DD(423,.8,1,0)="^.1^^0"
^DD(423,.8,1,1,0)="423^AE"
^DD(423,.8,1,1,1)="S ^PRCF(423,""AE"",$E(X,1,30),DA)="""""
^DD(423,.8,1,1,2)="K ^PRCF(423,""AE"",$E(X,1,30),DA)"
^DD(423,.8,1,1,"%D",0)="^^2^2^2930715^"
^DD(423,.8,1,1,"%D",1,0)="This cross-reference contains the batch priority for the transmitted"
^DD(423,.8,1,1,"%D",2,0)="code sheets."
^DD(423,.8,3)="TYPE A WHOLE NUMBER BETWEEN 2 AND 4"
^DD(423,.8,21,0)="^^1^1^2910516^"
^DD(423,.8,21,1,0)="This is the batch priority for this transmission."
^DD(423,.8,"DT")="2880124"
^DD(423,.9,0)="TRANSMISSION NUMBER^F^^TRANS;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<15)!'(X?3N1""-""3U1""-""2N1""-""4N) X"
^DD(423,.9,1,0)="^.1^^0"
^DD(423,.9,3)="ANSWER MUST BE 15 CHARACTERS IN LENGTH"
^DD(423,.9,21,0)="^^1^1^2910516^"
^DD(423,.9,21,1,0)="This is the CALM batch transmission number."
^DD(423,.9,"DT")="2880122"
^DD(423,.95,0)="CODE SHEET LENGTH^NJ3,0^^TRANS;15^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,.95,3)="Enter length of code sheet if fixed.  Leave blank if length is variable."
^DD(423,.95,21,0)="^^1^1^2910516^"
^DD(423,.95,21,1,0)="This is the length of the code sheet."
^DD(423,.95,"DT")="2890630"
^DD(423,1,0)="STATION NUMBER^F^^0;2^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,1,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,1,21,0)="^^1^1^2910516^"
^DD(423,1,21,1,0)="This is the number of the station making the transmission."
^DD(423,1,"DT")="2850419"
^DD(423,2,0)="EDIT TEMPLATE^F^^0;3^K:$L(X)>18!($L(X)<6)!(X'?1""[""4.16ANP1""]"") X"
^DD(423,2,3)="ANSWER MUST BE 10 CHARACTERS IN LENGTH"
^DD(423,2,21,0)="^^1^1^2910516^"
^DD(423,2,21,1,0)="This is the edit template for this transmission."
^DD(423,3,0)="TRANSACTION TYPE^RFI^^0;4^K:$L(X)>6!($L(X)<3) X"
^DD(423,3,3)="ANSWER MUST BE 3-6 CHARACTERS IN LENGTH"
^DD(423,3,21,0)="^^1^1^2920903^^"
^DD(423,3,21,1,0)="This is the transaction status code."
^DD(423,3,"DT")="2871210"
^DD(423,4,0)="TRANSACTION DATE^RFX^^0;5^S %DT=""EX"" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<0 X"
^DD(423,4,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(423,4,21,0)="^^1^1^2920917^^"
^DD(423,4,21,1,0)="This is the transaction date."
^DD(423,4,"DT")="2850509"
^DD(423,4.5,0)="DOCUMENT DATE^DXO^^8;11^S %DT=""EX"" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X"
^DD(423,4.5,2)="S Y(0)=Y S Y=Y"
^DD(423,4.5,2.1)="S Y=Y"
^DD(423,4.5,21,0)="^^1^1^2910516^"
^DD(423,4.5,21,1,0)="This is the date of the transaction document."
^DD(423,4.5,"DT")="2910314"
^DD(423,5,0)="REFERENCE NUMBER^RFO^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1UN.UN) X"
^DD(423,5,1,0)="^.1"
^DD(423,5,1,1,0)="423^C"
^DD(423,5,1,1,1)="S ^PRCF(423,""C"",$E(X,1,30),DA)="""""
^DD(423,5,1,1,2)="K ^PRCF(423,""C"",$E(X,1,30),DA)"
^DD(423,5,1,1,"%D",0)="^^2^2^2930715^"
^DD(423,5,1,1,"%D",1,0)="This cross-reference contains the reference number for the code sheet, "
^DD(423,5,1,1,"%D",2,0)="but without the station number."
^DD(423,5,2)="S Y(0)=Y I $D(PRCHLOG) S Z0="""" S:Y="""" Y=""      "" Q:Y=""      ""  F I=1:1 Q:Z0=+Z0  S Z0=$E(Y,I) I Z0=+Z0 S Y=$E(Y,1,I-1)_$E(Y,I+1,6)"
^DD(423,5,2.1)="I $D(PRCHLOG) S Z0="""" S:Y="""" Y=""      "" Q:Y=""      ""  F I=1:1 Q:Z0=+Z0  S Z0=$E(Y,I) I Z0=+Z0 S Y=$E(Y,1,I-1)_$E(Y,I+1,6)"
^DD(423,5,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423,5,21,0)="^^1^1^2910516^"
^DD(423,5,21,1,0)="This is the reference number for this transaction."
^DD(423,5,"DT")="2880108"
^DD(423,5.1,0)="PAT NUMBER^P442'^PRC(442,^1;29^Q"
^DD(423,5.1,1,0)="^.1"
^DD(423,5.1,1,1,0)="423^AI"
^DD(423,5.1,1,1,1)="S ^PRCF(423,""AI"",$E(X,1,30),DA)="""""
^DD(423,5.1,1,1,2)="K ^PRCF(423,""AI"",$E(X,1,30),DA)"
^DD(423,5.1,1,1,"%D",0)="^^2^2^2930715^"
^DD(423,5.1,1,1,"%D",1,0)="This cross-reference contains the PAT NUMBER, which is a pointer to"
^DD(423,5.1,1,1,"%D",2,0)="the PROCUREMENT & ACCOUNTING TRANSACTIONS file (#442)."
^DD(423,5.1,21,0)="^^1^1^2910516^"
^DD(423,5.1,21,1,0)="This is the PAT number for this transaction."
^DD(423,5.1,"DT")="2871204"
^DD(423,5.2,0)="VOUCHER/TICKET NUMBER^FO^^1;30^K:$L(X)>5!($L(X)<5) X"
^DD(423,5.2,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU"
^DD(423,5.2,2.1)="I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU"
^DD(423,5.2,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,5.2,21,0)="^^1^1^2910516^"
^DD(423,5.2,21,1,0)="This is the voucher/ticket number."
^DD(423,5.2,"DT")="2901218"
^DD(423,6,0)="YALD CODE^FXO^^1;1^S:X="""" X="".."" Q:X?.2UN1""."".1UN1""."".1UN  K:$L(X)>4!(($L(X)<2)&(X'=""$"")) X I $D(X) Q:X=""..""  I $D(X),(X'=""$"") S X=$E(X,1,2)_"".""_$E(X,3)_"".""_$E(X,4)"
^DD(423,6,2)="S Y(0)=Y S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423,6,2.1)="S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423,6,3)="ENTER STANDARD YALD CODE (with or without the DOTS) OR A '$'"
^DD(423,6,21,0)="^^1^1^2910516^"
^DD(423,6,21,1,0)="This is the standard YALD code or a dollar amount."
^DD(423,6,"DT")="2891009"
^DD(423,7,0)="DELIVERY MONTH^FX^^1;2^K:$L(X)>2!($L(X)<2)!'(X?2NA) X"
^DD(423,7,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423,7,21,0)="^^1^1^2910516^"
^DD(423,7,21,1,0)="This is the delivery month."
^DD(423,7,"DT")="2850416"
^DD(423,8,0)="SOURCE CODE^S^1:VA SUPPLY FUND - DEPOT;2:VA SUPPLY FUND - STATION;3:NON-FEDERAL SOURCES;4:GSA;5:OTHER FED AGENCIES, A/C, OTHER VA;6:ACCRUED SVCS PAY - FEDERAL;7:ACCRUED SVCS PAY - NON FEDERAL;^1;3^Q"
^DD(423,8,3)=""
^DD(423,8,21,0)="^^1^1^2910516^"
^DD(423,8,21,1,0)="This is the source code."
^DD(423,8,"DT")="2880419"
^DD(423,9,0)="DATE^FX^^1;4^S %DT=""EX"" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X"
^DD(423,9,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(423,9,21,0)="^^1^1^2910516^"
^DD(423,9,21,1,0)="This is the date of the delivery."
^DD(423,9,"DT")="2881128"
^DD(423,10,0)="CONTROL POINT ($ ALLOWED)^FX^^1;5^I X'=""$"" S DIC=""^PRC(420,""_$P(^PRCF(423,DA,0),U,2)_"",1,"",DIC(0)=""EMNZ"" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1),"" "",1) K:Y<0 X K DIC"
^DD(423,10,3)="ENTER CONTROL POINT NUMBER OR A ""$"" TO TERMINATE"
^DD(423,10,4)="S ZD=D,X=""?"",Z0=+$P(^PRCF(423,DA,0),U,2) Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(423,10,21,0)="^^1^1^2910516^"
^DD(423,10,21,1,0)="This is the Fund Control Point number."
^DD(423,10,"DT")="2850423"
^DD(423,11,0)="COST CENTER^F^^1;6^K:$L(X)>6!($L(X)<1)!'(X?1""$""!(X?6N)) X"
^DD(423,11,3)="ENTER STANDARD 6 NUMBER COST CENTER"
^DD(423,11,21,0)="^^1^1^2910516^"
^DD(423,11,21,1,0)="This is the standard 6 digit cost center number."
^DD(423,11,"DT")="2861208"
^DD(423,12,0)="ANALYSIS ACCOUNT^F^^1;7^K:$L(X)>5!($L(X)<5) X"
^DD(423,12,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,12,21,0)="^^1^1^2910516^"
^DD(423,12,21,1,0)="This is the analysis of the account."
^DD(423,13,0)="SUBACCOUNT 1^FXO^^1;8^I X'=""$"" S DIC=420.2,DIC(0)=""MNZQE"" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC"
^DD(423,13,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=4 D RBF^PRCFU"
^DD(423,13,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=4 D RBF^PRCFU"
^DD(423,13,3)="ENTER STANDARD CALM 4 NUMBER SUB ACCOUNT"
^DD(423,13,4)="S ZD=D,X=""?"",DIC=420.2,DIC(0)=""EMN"" D ^DIC S D=ZD K ZD"
^DD(423,13,21,0)="^^1^1^2910516^"
^DD(423,13,21,1,0)="This is the CALM 4 standard number sub-account."
^DD(423,13,"DT")="2890602"
^DD(423,14,0)="AMOUNT^NJ11,0^^1;9^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,14,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423,14,21,0)="^^1^1^2910516^"
^DD(423,14,21,1,0)="This is the amount of the transaction for the first subaccount."
^DD(423,15,0)="SUBACCOUNT 2^FXO^^1;10^I X'=""$""&(X'=""TRDE"")&(X'=""DPST"") S DIC=420.2,DIC(0)=""MNQE"" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC"
^DD(423,15,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=4 D RBF^PRCFU"
^DD(423,15,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=4 D RBF^PRCFU"
^DD(423,15,3)="ENTER SUBACCOUNT NUMBER,'TRDE','DPST', OR '$' AS APPLICABLE"
^DD(423,15,4)="S ZD=D,X=""?"",DIC=420.2,DIC(0)=""EMN"" D ^DIC S D=ZD K ZD"
^DD(423,15,21,0)="^^1^1^2910516^"
^DD(423,15,21,1,0)="This is the sub-account number."
^DD(423,15,"DT")="2890602"
^DD(423,16,0)="AMOUNT 2^NJ11,0^^1;11^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,16,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423,16,21,0)="^^1^1^2910516^"
^DD(423,16,21,1,0)="This is the amount of the transaction for the second subaccount."
^DD(423,17,0)="LIQUIDATION CODE^S^C:C;P:P;F:F;$:$;^1;12^Q"
^DD(423,17,21,0)="^^1^1^2910516^"
^DD(423,17,21,1,0)="This is the liquidation code."
^DD(423,18,0)="LIQUIDATION AMOUNT 1^NJ11,0^^1;13^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,18,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999999"
^DD(423,18,21,0)="^^1^1^2910516^"
^DD(423,18,21,1,0)="This is the liquidation amount 1."
^DD(423,19,0)="LIQUIDATION AMOUNT 2^NJ11,0^^1;14^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,19,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423,19,21,0)="^^1^1^2910516^"
^DD(423,19,21,1,0)="This is the liquidation amount 2."
^DD(423,20,0)="RECEIVABLE CODE^S^0:CONTING ASSET T/C 932;1:FEDERAL G/L 3011;2:NON FEDERAL G/L 3012;3:REIMB - FED  G/L 1022;4:REIMB - NON FED G/L 1022;5:REIMB - Q&S G/L 1022;^1;15^Q"
^DD(423,20,3)=""
^DD(423,20,21,0)="^^1^1^2910516^"
^DD(423,20,21,1,0)="This is the receivable code."
^DD(423,20,"DT")="2880419"
^DD(423,21,0)="SUB ACCOUNT/PAYROLL ANALYSIS^423.01A^^2;0"
^DD(423,21,21,0)="^^1^1^2910516^^"
^DD(423,21,21,1,0)="This is the subaccount payroll analysis."
^DD(423,22,0)="SOC SEC NUMBER^F^^1;17^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(423,22,3)="ANSWER MUST BE 9 CHARACTERS IN LENGTH"
^DD(423,22,21,0)="^^2^2^2910516^"
^DD(423,22,21,1,0)="This is the social security number of the employee,"
^DD(423,22,21,2,0)="if appropriate."
^DD(423,22,"DT")="2850410"
^DD(423,23,0)="STUB NAME^FO^^1;18^K:$L(X)>3!($L(X)<1) X"
^DD(423,23,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,23,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,23,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(423,23,21,0)="^^1^1^2910516^"
^DD(423,23,21,1,0)="This is the stub name."
^DD(423,23,"DT")="2890720"
^DD(423,24,0)="LINE NUMBER (1-38)^423.02A^^3;0"
^DD(423,24,21,0)="^^1^1^2910516^"
^DD(423,24,21,1,0)="This is the line number of the transaction."
^DD(423,24,"DT")="2921216"
^DD(423,25,0)="PAT REFERENCE NUMBER^F^^1;19^K:$L(X)>6!($L(X)<6)!'(X?6AN) X"
^DD(423,25,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423,25,21,0)="^^1^1^2910516^"
^DD(423,25,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION reference number."
^DD(423,25,"DT")="2850419"
^DD(423,26,0)="SECOND STATION NUMBER^F^^1;20^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,26,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,26,21,0)="^^1^1^2910516^"
^DD(423,26,21,1,0)="This is the three character second station number."
^DD(423,26,"DT")="2850419"
^DD(423,27,0)="INVENTORY ACCOUNT CODE^F^^1;21^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423,27,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423,27,21,0)="^^1^1^2910516^"
^DD(423,27,21,1,0)="This is the 2 character inventory account code."
^DD(423,27,"DT")="2850419"
^DD(423,28,0)="TRANSFER FROM STATION NUMBER^F^^1;22^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,28,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,28,21,0)="^^1^1^2910516^"
^DD(423,28,21,1,0)="This is the station that is the source of the transferred funds."
^DD(423,28,"DT")="2850419"
^DD(423,29,0)="TRANSFER TO STATION NUMBER^F^^1;23^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,29,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,29,21,0)="^^1^1^2910516^"
^DD(423,29,21,1,0)="This is the station that receives the transferred funds."
^DD(423,29,"DT")="2850419"
^DD(423,30,0)="ACCRUAL COST CENTER LINE #^423.03A^^4;0"
^DD(423,30,21,0)="^^1^1^2910516^^"
^DD(423,30,21,1,0)="This is the accrual cost center line number."
^DD(423,31,0)="SECTION A^F^^1;24^K:$L(X)>1!($L(X)<1) X"
^DD(423,31,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,31,21,0)="^^2^2^2910516^"
^DD(423,31,21,1,0)="This field contains an 'A' if section A is to be used, or a '$' "
^DD(423,31,21,2,0)="to terminate the code sheet."
^DD(423,31,"DT")="2850422"
^DD(423,32,0)="SECTION B^F^^1;25^K:$L(X)>1!($L(X)<1) X"
^DD(423,32,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,32,21,0)="^^2^2^2910516^"
^DD(423,32,21,1,0)="This field contains a 'B' if section B is to be used,"
^DD(423,32,21,2,0)="or a '$' to terminate the code sheet."
^DD(423,32,"DT")="2850422"
^DD(423,33,0)="SECTION C^F^^1;26^K:$L(X)>1!($L(X)<1) X"
^DD(423,33,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,33,21,0)="^^2^2^2910516^"
^DD(423,33,21,1,0)="This field contains a 'C' if section C is to be used, or"
^DD(423,33,21,2,0)="a '$' to terminate the code sheet."
^DD(423,33,"DT")="2850422"
^DD(423,34,0)="SECTION D^F^^1;27^K:$L(X)>1!($L(X)<1) X"
^DD(423,34,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,34,21,0)="^^2^2^2910516^"
^DD(423,34,21,1,0)="This field contains a 'D' if section D is to be used, or a '$'"
^DD(423,34,21,2,0)="to terminate the code sheet."
^DD(423,34,"DT")="2850422"
^DD(423,35,0)="SECTION B LINE NUMBER^423.04A^^5;0"
^DD(423,35,21,0)="^^1^1^2910516^"
^DD(423,35,21,1,0)="This is the section B line number."
^DD(423,36,0)="Q & S AMOUNT^NJ8,0^^6;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,36,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(423,36,21,0)="^^1^1^2910516^"
^DD(423,36,21,1,0)="This is the quarter and subsistence amount."
^DD(423,36,"DT")="2850422"
^DD(423,37,0)="Q & S STATION NUMBER^F^^6;2^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,37,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,37,"DT")="2850422"
^DD(423,38,0)="TERMINAL LEAVE PAYMENTS^F^^6;3^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423,38,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423,38,21,0)="^^1^1^2910516^"
^DD(423,38,21,1,0)="Theses are terminal leave payments."
^DD(423,38,"DT")="2850422"
^DD(423,39,0)="ACCOUNTING MONTH^F^^6;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423,39,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423,39,21,0)="^^1^1^2910516^"
^DD(423,39,21,1,0)="This is the accounting month."
^DD(423,39,"DT")="2850422"
^DD(423,40,0)="REC STA OR FCP^423.05A^^7;0"
^DD(423,40,21,0)="^^2^2^2910516^"
^DD(423,40,21,1,0)="This is the receiving station or the fund"
^DD(423,40,21,2,0)="control point."
^DD(423,41,0)="LIQ CODE 1^RS^C:C;P:P;F:F;1:1;2:2;3:3;^6;5^Q"
^DD(423,41,3)="ENTER LIQUIDATION CODE, LETTERS FOR CURRENT YEAR, NUMBERS FOR PRIOR YEAR"
^DD(423,41,21,0)="^^2^2^2910516^"
^DD(423,41,21,1,0)="This is the liquidation code 1, letters for the current"
^DD(423,41,21,2,0)="year and numbers for the prior year."
^DD(423,41,"DT")="2850723"
^DD(423,42,0)="LIQ CODE 2^RS^F:F;C:C;P:P;^6;6^Q"
^DD(423,42,21,0)="^^1^1^2910516^"
^DD(423,42,21,1,0)="This is the liquidation code 2."
^DD(423,42,"DT")="2850723"
^DD(423,43,0)="VENDOR ID NUMBER^RFO^^6;7^K:$L(X)>9!($L(X)<9) X"
^DD(423,43,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S PRCFLN=9 D RBF^PRCFU"
^DD(423,43,2.1)="Q:'$D(PRCF(""OUT""))  S PRCFLN=9 D RBF^PRCFU"
^DD(423,43,3)="ENTER CALM VENDOR ID NUMBER"
^DD(423,43,21,0)="^^1^1^2910516^"
^DD(423,43,21,1,0)="This is the vendor identification number."
^DD(423,43,"DT")="2890705"
^DD(423,44,0)="CHECK ENCLOSURE CODE^RS^1:1;2:2;5:5;F:F;P:P;X:X;^6;8^Q"
^DD(423,44,3)="ENTER STANDARD CALM CHECK ENCLOSURE CODE NUMBER"
^DD(423,44,21,0)="^^1^1^2910516^"
^DD(423,44,21,1,0)="This is the standard CALM check enclosure code number."
^DD(423,44,"DT")="2930301"
^DD(423,45,0)="VENDOR NAME^F^^6;9^K:$L(X)>23!($L(X)<3)!'(X?1UPN.UPN) X"
^DD(423,45,3)="ANSWER MUST BE 3-23 CHARACTERS IN LENGTH"
^DD(423,45,21,0)="^^1^1^2910516^"
^DD(423,45,21,1,0)="This is the vendor name."
^DD(423,45,"DT")="2860312"
^DD(423,46,0)="FIRST ADDRESS LINE^F^^6;10^K:$L(X)>23!($L(X)<1) X"
^DD(423,46,3)="ENTER FIRST LINE OF VENDOR ADDRESS - NOT TO EXCEED 23 CHARACTERS IN LENGTH"
^DD(423,46,21,0)="^^1^1^2910516^"
^DD(423,46,21,1,0)="This is the first line of the vendor address."
^DD(423,46,"DT")="2850723"
^DD(423,47,0)="SECOND ADDRESS LINE^F^^6;11^K:$L(X)>23!($L(X)<1) X"
^DD(423,47,3)="ENTER SECOND LINE OF VENDOR ADDRESS - NOT TO EXCEED 23 CHARACTERS IN LENGTH"
^DD(423,47,21,0)="^^1^1^2910516^"
^DD(423,47,21,1,0)="This is the second line of the vendor address."
^DD(423,47,"DT")="2850723"
^DD(423,48,0)="CITY^F^^6;12^K:$L(X)>13!($L(X)<1) X"
^DD(423,48,3)="ENTER CITY OF VENDOR - DO NOT EXCEED 13 CHARACTERS IN LENGTH"
^DD(423,48,21,0)="^^1^1^2910516^"
^DD(423,48,21,1,0)="This is the city of the vendor address."
^DD(423,48,"DT")="2850723"
^DD(423,49,0)="STATE^F^^6;13^K:$L(X)>2!($L(X)<2) X"
^DD(423,49,3)="ENTER 2 CHARACTER ABBREVIATION OF STATE OF VENDOR"
^DD(423,49,21,0)="^^2^2^2910516^"
^DD(423,49,21,1,0)="This is the two character abbreviation of the state of"
^DD(423,49,21,2,0)="the vendor address."
^DD(423,49,"DT")="2850723"
^DD(423,50,0)="ZIP CODE^F^^6;14^K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(423,50,3)="ENTER 5 OR 9 DIGIT ZIP CODE"
^DD(423,50,21,0)="^^2^2^2910516^"
^DD(423,50,21,1,0)="This is the 5 or 9 digit zip code of the "
^DD(423,50,21,2,0)="vendor address."
^DD(423,50,"DT")="2850918"
^DD(423,51,0)="INVOICE/BILL NUMBER^F^^6;15^K:$L(X)>16!($L(X)<1) X"
^DD(423,51,3)="ENTER INVOICE OR BILL NUMBER TO IDENTIFY PAYMENT -16 CHARACTERS IN LENGTH"
^DD(423,51,21,0)="^^2^2^2910516^"
^DD(423,51,21,1,0)="This is the invoice or bill number to identify"
^DD(423,51,21,2,0)="the payment."
^DD(423,51,"DT")="2850723"
^DD(423,52,0)="COST CENTER 1^F^^8;1^K:$L(X)>6!($L(X)<1)!'(X?1""$""!(X?6N)) X"
^DD(423,52,3)="ENTER STANDARD 6 DIGIT COST CENTER OR ""$"" TO END CODE SHEET"
^DD(423,52,21,0)="^^1^1^2910516^"
^DD(423,52,21,1,0)="This is the 6 digit cost center 2 number."
^DD(423,52,"DT")="2850726"
^DD(423,53,0)="ANALYSIS ACCOUNT 2^F^^8;2^K:$L(X)>5!($L(X)<5) X"
^DD(423,53,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,53,21,0)="^^1^1^2910516^"
^DD(423,53,21,1,0)="This is the analysis account 2."
^DD(423,53,"DT")="2850726"
^DD(423,54,0)="COST CENTER 2^F^^8;3^K:$L(X)>6!($L(X)<1)!'(X?1""$""!(X?6N)) X"
^DD(423,54,3)="ENTER STANDARD CALM 6 DIGIT COST CENTER OR ""$"" TO END CODE SHEET"
^DD(423,54,21,0)="^^1^1^2910516^"
^DD(423,54,21,1,0)="This is the 6 digit cost center 2 number."
^DD(423,54,"DT")="2850726"
^DD(423,55,0)="VENDOR/AGENT CASHIER ID^F^^8;4^K:$L(X)>9!($L(X)<1) X"
^DD(423,55,3)="ENTER VENDOR/AGENT CASHIER ID  DO NOT EXCEED 9 CHARACTERS"
^DD(423,55,21,0)="^^1^1^2910516^"
^DD(423,55,21,1,0)="This is the vendor/agent cashier identification number."
^DD(423,55,"DT")="2850918"
^DD(423,56,0)="PAT ADVANCE REF #^F^^8;5^K:$L(X)>6!($L(X)<6) X"
^DD(423,56,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423,56,21,0)="^^2^2^2910516^"
^DD(423,56,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION (PAT) advance"
^DD(423,56,21,2,0)="reference number."
^DD(423,56,"DT")="2850918"
^DD(423,57,0)="ADVANCE AMT/APPLIED^NJ11,0^^8;6^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,57,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423,57,21,0)="^^1^1^2910516^"
^DD(423,57,21,1,0)="This is the advance applied amount."
^DD(423,57,"DT")="2850918"
^DD(423,58,0)="AMOUNT CLAIMED 1^NJ11,0^^8;7^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,58,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423,58,21,0)="^^1^1^2910516^"
^DD(423,58,21,1,0)="This is the amount claimed 1."
^DD(423,58,"DT")="2850918"
^DD(423,59,0)="AMOUNT CLAIMED 2^NJ11,0^^8;8^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,59,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423,59,21,0)="^^1^1^2910516^"
^DD(423,59,21,1,0)="This is the amount claimed 2."
^DD(423,59,"DT")="2850918"
^DD(423,60,0)="NAME^F^^8;9^K:$L(X)>23!($L(X)<1) X"
^DD(423,60,3)="ANSWER MUST BE 1-23 CHARACTERS IN LENGTH"
^DD(423,60,21,0)="^^2^2^2910516^"
^DD(423,60,21,1,0)="This is the name of the employee receiving a"
^DD(423,60,21,2,0)="travel advance."
^DD(423,60,"DT")="2850918"
^DD(423,61,0)="DELIVERY MONTH - 921.60^RFX^^0;9^S X1=$A($E(X)),X2=$A($E(X,2)) K:$L(X)>2!(X1<65)!(X2<65)!(X1>77)!(X2>77)!((X1+X2)>142)!(X[""I"") X K X1,X2"
^DD(423,61,3)=""
^DD(423,61,4)="D DDATE^PRCFALD"
^DD(423,61,21,0)="^^1^1^2910516^"
^DD(423,61,21,1,0)="This is the 2 letter delivery month."
^DD(423,61,"DT")="2860908"
^DD(423,62,0)="DELIVERY DATE - 920^F^^0;11^K:$L(X)>3!($L(X)<3) X"
^DD(423,62,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,62,21,0)="^^1^1^2910516^"
^DD(423,62,21,1,0)="This is the 3 character delivery date."
^DD(423,62,"DT")="2851101"
^DD(423,63,0)="RECEIVING STATION^F^^0;12^K:$L(X)>3!($L(X)<3)!'((X?3N)!(X?1""OGA"")) X"
^DD(423,63,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,63,21,0)="^^1^1^2910516^"
^DD(423,63,21,1,0)="This is the receiving station."
^DD(423,63,"DT")="2851101"
^DD(423,64,0)="CONTROL POINT ($ NOT ALLOWED)^FX^^0;13^S DIC=""^PRC(420,""_$P(^PRCF(423,DA,0),U,2)_"",1,"",DIC(0)=""EMNZ"" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1),"" "",1) K:Y<0 X K DIC"
^DD(423,64,3)="ENTER VALID CONTROL POINT NUMBER"
^DD(423,64,4)="S ZD=D,X=""?"",Z0=+$P(^PRCF(423,DA,0),U,2) Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(423,64,21,0)="^^1^1^2910516^"
^DD(423,64,21,1,0)="This is the fund control point number."
^DD(423,64,"DT")="2851101"
^DD(423,65,0)="DOCUMENT NUMBER^F^^0;14^K:$L(X)>6!($L(X)<6)!'(X?1UN.UN) X"
^DD(423,65,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423,65,21,0)="^^1^1^2930204^^"
^DD(423,65,21,1,0)="This is the document number."
^DD(423,65,"DT")="2860309"
^DD(423,66,0)="SF ACCT CODE LINE #^423.07A^^9;0"
^DD(423,66,21,0)="^^1^1^2910516^"
^DD(423,66,21,1,0)="This is the SF Accounting code line number."
^DD(423,67,0)="FROM SECTION^F^^0;17^K:$L(X)>1!($L(X)<1) X"
^DD(423,67,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,67,21,0)="^^2^2^2930204^^^"
^DD(423,67,21,1,0)="This is the lender to section A on a"
^DD(423,67,21,2,0)="CALM 973 code sheet."
^DD(423,67,"DT")="2851101"
^DD(423,68,0)="APPROPRIATION CODE 1^FXO^^0;15^S:X="""" X="".."" Q:X?.2UN1""."".1UN1""."".1UN  K:$L(X)>4!($L(X)<2) X Q:'$D(X)  Q:X=""..""  S X=$E(X,1,2)_"".""_$E(X,3)_"".""_$E(X,4)"
^DD(423,68,2)="S Y(0)=Y S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423,68,2.1)="S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423,68,3)="Enter Standard YALD code - with or without the DOTS."
^DD(423,68,21,0)="^^1^1^2930204^^"
^DD(423,68,21,1,0)="This is the appropriation code 1."
^DD(423,68,"DT")="2891009"
^DD(423,69,0)="ACCOUNT CODE^FX^^0;16^I X'=""09"",X'=14,X'=15,X'=16,X'=17,X'=24 K X"
^DD(423,69,3)="ENTER WITH ACCOUNT CODES '09',14,15,16,17 OR 24 AS APPLICABLE"
^DD(423,69,21,0)="^^1^1^2930218^^"
^DD(423,69,21,1,0)="This is the account code."
^DD(423,69,"DT")="2851101"
^DD(423,70,0)="COST CENTER 'A' LINE #^423.08A^^10;0"
^DD(423,70,21,0)="^^1^1^2910516^"
^DD(423,70,21,1,0)="This is the cost center line 'A' number."
^DD(423,71,0)="TO SECTION^F^^0;18^K:$L(X)>1!($L(X)<1) X"
^DD(423,71,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,71,21,0)="^^1^1^2910516^"
^DD(423,71,21,1,0)="This is the receiving section on a CALM 973 code sheet."
^DD(423,71,"DT")="2851101"
^DD(423,72,0)="APPROPRIATION CODE 2^FXO^^0;19^S:X="""" X="".."" Q:X?.2UN1""."".1UN1""."".1UN  K:$L(X)>4!($L(X)<2) X Q:'$D(X)  Q:X=""..""  S X=$E(X,1,2)_"".""_$E(X,3)_"".""_$E(X,4)"
^DD(423,72,2)="S Y(0)=Y S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423,72,2.1)="S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423,72,3)="Enter Standard YALD code - with or without the DOTS."
^DD(423,72,21,0)="^^1^1^2910516^"
^DD(423,72,21,1,0)="This is the appropriation code 2."
^DD(423,72,"DT")="2891009"
^DD(423,73,0)="FUND CONTROL POINT^FX^^0;20^S DIC=""^PRC(420,""_$P(^PRCF(423,DA,0),U,2)_"",1,"",DIC(0)=""EMNZ"" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1),"" "",1) K:Y<0 X K DIC"
^DD(423,73,3)="ENTER CONTROL POINT NUMBER"
^DD(423,73,4)="S ZD=D,X=""?"",Z0=+$P(^PRCF(423,DA,0),U,2) Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(423,73,21,0)="^^1^1^2910516^"
^DD(423,73,21,1,0)="This is the fund control point number."
^DD(423,73,"DT")="2851101"
^DD(423,74,0)="COST CENTER 'B' LINE #^423.09A^^11;0"
^DD(423,74,21,0)="^^1^1^2910516^"
^DD(423,74,21,1,0)="This is the cost center line 'B' number."
^DD(423,75,0)="TT974 LINE NUMBER^423.1A^^12;0"
^DD(423,75,21,0)="^^1^1^2910516^"
^DD(423,75,21,1,0)="This is the TT974 line number."
^DD(423,76,0)="LINE #^423.11A^^13;0"
^DD(423,76,21,0)="^^2^2^2910516^"
^DD(423,76,21,1,0)="This is the line number for various multiple fields"
^DD(423,76,21,2,0)="within CALM."
^DD(423,77,0)="ACTION CODE 1^S^1:ADDITIONS;2:SUBTRACTIONS;3:DATA OR POSITIVE AMT (OVERLAY);4:NEGATIVE AMOUNTS (OVERLAY);^0;21^Q"
^DD(423,77,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,77,21,0)="^^1^1^2910516^"
^DD(423,77,21,1,0)="This is the action code 1."
^DD(423,77,"DT")="2851103"
^DD(423,78,0)="ACTION CODE 2^S^1:ADDITIONS;2:SUBTRACTIONS;3:DATA OR POSITIVE AMT (OVERLAY);4:NEGATIVE AMOUNTS (OVERLAY);$:$;^0;22^Q"
^DD(423,78,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,78,21,0)="^^1^1^2910516^"
^DD(423,78,21,1,0)="This is the action code 2."
^DD(423,78,"DT")="2851103"
^DD(423,79,0)="AMOUNT 1^NJ9,0^^6;16^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,79,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(423,79,21,0)="^^1^1^2910516^"
^DD(423,79,21,1,0)="This is the amount 1."
^DD(423,79,"DT")="2851103"
^DD(423,80,0)="AMOUNT 2 (9)^NJ9,0^^6;17^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,80,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999"
^DD(423,80,21,0)="^^1^1^2910516^"
^DD(423,80,21,1,0)="This is the amount 2."
^DD(423,80,"DT")="2851103"
^DD(423,81,0)="LIQ. CODE^S^C:C;P:P;F:F;^6;18^Q"
^DD(423,81,21,0)="^^1^1^2910516^"
^DD(423,81,21,1,0)="This is the liquidation code."
^DD(423,81,"DT")="2860227"
^DD(423,82,0)="SUB ACCT/GL ACCT^F^^6;19^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(423,82,3)="ENTER STANDARD SUB ACCOUNT NUMBER OR GENERAL LEDGER ACCOUNT NUMBER"
^DD(423,82,21,0)="^^1^1^2910516^"
^DD(423,82,21,1,0)="This is the standard subaccount number or general ledger account number."
^DD(423,82,"DT")="2860227"
^DD(423,83,0)="GROSS PAYMENT AMOUNT^NJ11,0^^6;20^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,83,3)="ENTER GROSS PAYMENT AMOUNT, WITH NO DECIMAL POINT"
^DD(423,83,21,0)="^^1^1^2910516^"
^DD(423,83,21,1,0)="This is the gross payment amount."
^DD(423,83,"DT")="2860227"
^DD(423,84,0)="AMOUNT TO BE LIQUIDATED^NJ11,0^^6;21^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,84,3)="ENTER AMOUNT TO BE LIQUIDATED"
^DD(423,84,21,0)="^^1^1^2910516^"
^DD(423,84,21,1,0)="This is the amount to be liquidated."
^DD(423,84,"DT")="2860227"
^DD(423,85,0)="GENERAL LEDGER ACCOUNT^F^^6;22^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(423,85,3)="ENTER STANDARD 4 NUMBER GENERAL LEDGER ACCOUNT NUMBER"
^DD(423,85,21,0)="^^2^2^2910516^"
^DD(423,85,21,1,0)="This is the standard 4 number general ledger"
^DD(423,85,21,2,0)="account number."
^DD(423,85,"DT")="2860227"
^DD(423,86,0)="OFFSET AMOUNT^NJ11,0^^6;23^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,86,3)="ENTER AMOUNT TO BE OFFSET, NO DECIMAL POINT PLEASE"
^DD(423,86,21,0)="^^1^1^2930204^^"
^DD(423,86,21,1,0)="This is the amount to be offset."
^DD(423,86,"DT")="2860227"
^DD(423,87,0)="OFFSET REFERENCE NUMBER^F^^6;24^K:$L(X)>6!($L(X)<6) X"
^DD(423,87,3)="ENTER REFERENCE NUMBER OF OFFSET.  ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423,87,21,0)="^^1^1^2910516^"
^DD(423,87,21,1,0)="This is the reference number of the offset."
^DD(423,87,"DT")="2860227"
^DD(423,88,0)="OFFSET STATION NUMBER^F^^6;25^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,88,3)="ENTER STATION NUMBER OF OFFSET, ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,88,21,0)="^^1^1^2910516^"
^DD(423,88,21,1,0)="This is the station number of the offset."
^DD(423,88,"DT")="2860227"
^DD(423,89,0)="REF # (2ND LINE)^423.12A^^14;0"
^DD(423,89,21,0)="^^1^1^2910516^"
^DD(423,89,21,1,0)="This is the second line reference number."
^DD(423,90,0)="941 LINE NUMBER^423.13A^^15;0"
^DD(423,90,21,0)="^^1^1^2910516^"
^DD(423,90,21,1,0)="This is the 941 line number."
^DD(423,91,0)="CREDITOR SSN OR VENDOR ID^RF^^0;23^K:$L(X)>9!($L(X)<1)!'(X?1UN.UN) X"
^DD(423,91,3)="CREDITOR SSN OR VENDOR ID  1 TO 9 UPPER CASE OR NUMERIC CHARACTERS"
^DD(423,91,21,0)="^^2^2^2910516^"
^DD(423,91,21,1,0)="This is the creditor social security number or the"
^DD(423,91,21,2,0)="vendor identification number."
^DD(423,91,"DT")="2860307"
^DD(423,92,0)="VENDOR TYPE^NJ1,0^^0;24^K:+X'=X!(X>3)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,92,3)="ENTER VENDOR TYPE  1-2 FOR SC 31, 1-3 FOR SC 33  OR BLANK"
^DD(423,92,21,0)="^^1^1^2910516^"
^DD(423,92,21,1,0)="This is the vendor type."
^DD(423,92,"DT")="2860307"
^DD(423,93,0)="ORIGINAL TRANSACTION CODE^RF^^1;28^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,93,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,93,21,0)="^^1^1^2910516^"
^DD(423,93,21,1,0)="This is the original transaction code."
^DD(423,93,"DT")="2860309"
^DD(423,94,0)="ORIGINAL STATUS CODE^F^^6;26^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423,94,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423,94,21,0)="^^1^1^2910516^"
^DD(423,94,21,1,0)="This is the original status code."
^DD(423,94,"DT")="2860624"
^DD(423,95,0)="ORIGINAL TRANSACTION DATE^RDXO^^6;27^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,4,7)_$E(X,2,3)"
^DD(423,95,2)="S Y(0)=Y S Y=Y"
^DD(423,95,2.1)="S Y=Y"
^DD(423,95,21,0)="^^1^1^2910516^"
^DD(423,95,21,1,0)="This is the original transaction date."
^DD(423,95,"DT")="2910815"
^DD(423,96,0)="PAT TYPE CODE^S^B:B;C:C;J:J;L:L;S:S;T:T;W:W;^6;28^Q"
^DD(423,96,21,0)="^^2^2^2910516^"
^DD(423,96,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION (PAT)"
^DD(423,96,21,2,0)="type code."
^DD(423,96,"DT")="2860309"
^DD(423,97,0)="945 LINE NUMBER^423.14A^^16;0"
^DD(423,97,21,0)="^^1^1^2910516^"
^DD(423,97,21,1,0)="This is the 945 line number."
^DD(423,98,0)="946 LINE NUMBER^423.15A^^17;0"
^DD(423,98,21,0)="^^1^1^2910516^"
^DD(423,98,21,1,0)="This is the 946 line number."
^DD(423,99,0)="SUB ACCOUNT^P420.2'^PRCD(420.2,^8;10^Q"
^DD(423,99,21,0)="^^1^1^2910516^"
^DD(423,99,21,1,0)="This is the subaccount."
^DD(423,99,"DT")="2860309"
^DD(423,100,0)="LINE NUMBER (1-5)^423.16A^^18;0"
^DD(423,100,21,0)="^^2^2^2910516^"
^DD(423,100,21,1,0)="This is a line number which cannot"
^DD(423,100,21,2,0)="exceed 5 records."
^DD(423,101,0)="ACCOMPLISHED DATE^DXO^^8;12^S %DT=""EX"" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<1 X"
^DD(423,101,2)="S Y(0)=Y S Y=Y"
^DD(423,101,2.1)="S Y=Y"
^DD(423,101,21,0)="^^1^1^2910516^^"
^DD(423,101,21,1,0)="This is the accomplished date."
^DD(423,101,"DT")="2910314"
^DD(423,102,0)="PAT ACTION CODE^S^1:UPDATE EXISTING PAT RECORD;2:REESTABLISH RECEIVABLE PAT RECORD;^8;13^Q"
^DD(423,102,3)=""
^DD(423,102,21,0)="^^1^1^2910516^"
^DD(423,102,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION code."
^DD(423,102,"DT")="2880419"
^DD(423,103,0)="SERVICE CODE^S^01:01;02:02;03:03;04:04;05:05;06:06;07:07;08:08;09:09;10:10;11:11;12:12;13:13;14:14;15:15;16:16;17:17;18:18;19:19;20:20;21:21;22:22;40:40;41:41;42:42;43:43;44:44;45:45;46:46;^19;1^Q"
^DD(423,103,3)="ENTER ACCOUNT CODE  FULL REFERENCE IS CONTAINED IN MP4 PV PARA12D.06"
^DD(423,103,21,0)="^^1^1^2910516^"
^DD(423,103,21,1,0)="This is the service code."
^DD(423,103,"DT")="2930301"
^DD(423,104,0)="INVOICE OR BILL #^RFX^^8;14^K:$L(X)>16!($L(X)<1)!'((X?.UN1""/""6N)!(X?3N1""/""3N)!(X?6UN1""/""3N)) X"
^DD(423,104,3)="ENTER TYPE OF DOC., THEN A ""/"", 3 DIGIT STA NUM AND 3 DIGIT DOCUMENT NUMBER"
^DD(423,104,21,0)="^^1^1^2910516^"
^DD(423,104,21,1,0)="This is the invoice or bill number."
^DD(423,104,"DT")="2880418"
^DD(423,105,0)="DOCUMENT #^F^^8;15^K:$L(X)>23!($L(X)<1)!'(X?.UN1""/""6N) X"
^DD(423,105,3)="ENTER DOCUMENT NUMBER, A ""/"", 3 DIGIT STATION NUMBER AND 3 DIGIT SEQ. NUMBER"
^DD(423,105,21,0)="^^1^1^2910516^"
^DD(423,105,21,1,0)="This is the document number."
^DD(423,105,"DT")="2860309"
^DD(423,106,0)="929 ANALYSIS ACCOUNT^F^^19;2^K:$L(X)>5!($L(X)<4)!'(X?4.5N) X"
^DD(423,106,3)="ANSWER MUST BE 4-5 CHARACTERS IN LENGTH"
^DD(423,106,21,0)="^^1^1^2910516^"
^DD(423,106,21,1,0)="This is the 929 analysis account."
^DD(423,106,"DT")="2860815"
^DD(423,107,0)="929 ANALYSIS ACCOUNT 2^F^^19;3^K:$L(X)>5!($L(X)<4)!'(X?4.5N) X"
^DD(423,107,3)="ANSWER MUST BE 4-5 CHARACTERS IN LENGTH"
^DD(423,107,21,0)="^^1^1^2910516^"
^DD(423,107,21,1,0)="This is the 929 analysis account 2."
^DD(423,107,"DT")="2860815"
^DD(423,108,0)="BALANCE AMOUNT^NJ11,0^^8;17^K:+X'=X!(X>99999999999)!(X<-99999999999)!(X?.E1"".""1N.N) X"
^DD(423,108,3)="TYPE A WHOLE NUMBER BETWEEN -99999999999 AND 99999999999"
^DD(423,108,5,1,0)="423.02^13^1"
^DD(423,108,5,2,0)="423.02^4^1"
^DD(423,108,9)="^"
^DD(423,108,21,0)="^^1^1^2910516^"
^DD(423,108,21,1,0)="This is the balance amount."
^DD(423,108,"DT")="2860904"
^DD(423,109,0)="BALANCE AMOUNT 2^NJ13,0^^8;18^K:+X'=X!(X>9999999999999)!(X<-9999999999999)!(X?.E1"".""1N.N) X"
^DD(423,109,3)="TYPE A WHOLE NUMBER BETWEEN -9999999999999 AND 9999999999999"
^DD(423,109,21,0)="^^1^1^2910516^"
^DD(423,109,21,1,0)="This is the balance amount 2."
^DD(423,109,"DT")="2860908"
^DD(423,110,0)="CP/ALD CODE^F^^8;19^K:$L(X)>3!($L(X)<1) X"
^DD(423,110,3)="ENTER CP NUMBER OR ALD CODE AS APPLICABLE"
^DD(423,110,21,0)="^^2^2^2910516^"
^DD(423,110,21,1,0)="This is the fund control point number or"
^DD(423,110,21,2,0)="Appropriation Limitation Department (ALD) code."
^DD(423,110,"DT")="2860908"
^DD(423,111,0)="P/S ANALYSIS ACCOUNT^423.17A^^20;0"
^DD(423,111,21,0)="^^1^1^2910516^"
^DD(423,111,21,1,0)="This is the personal service analysis account."
^DD(423,112,0)="KEYPUNCH CODE^423.18^^KEY;0"
^DD(423,112,21,0)="^^1^1^2930408^^"
^DD(423,112,21,1,0)="This is the keypunch code."
^DD(423,113,0)="BLANK FIELD^F^^19;4^K:$L(X)>13!($L(X)<1) X"
^DD(423,113,3)="ANSWER MUST BE 1-13 CHARACTERS IN LENGTH"
^DD(423,113,21,0)="^^2^2^2910516^"
^DD(423,113,21,1,0)="This is a blank field used to hold a space and a CALM \"
^DD(423,113,21,2,0)="code sheet."
^DD(423,113,"DT")="2861222"
^DD(423,114,0)="RECEIVING STATION - 920.04^F^^6;29^K:$L(X)>3!($L(X)<3) X"
^DD(423,114,3)="ENTER 'OGA' ONLY"
^DD(423,114,21,0)="^^1^1^2910516^"
^DD(423,114,21,1,0)="This is the receiving station."
^DD(423,114,"DT")="2870814"
^DD(423,115,0)="939 YALD CODE^FX^^6;30^S:X="""" X="".."" Q:X?.2UN1""."".1UN1"".""  K:$L(X)>3!($L(X)<2)!(X'?2.3UN) X I $D(X) Q:X=""..""  I $D(X) S X=$E(X,1,2)_"".""_$E(X,3)_""."""
^DD(423,115,3)="Enter applicable YALD code.  The ""D"" portion of the field is always blank.     X53 not valid for 939"
^DD(423,115,21,0)="^^1^1^2910516^"
^DD(423,115,21,1,0)="This is the valid YALD code."
^DD(423,115,"DT")="2891009"
^DD(423,116,0)="COST CENTER #1^P420.1'^PRCD(420.1,^21;7^Q"
^DD(423,116,3)="Enter 1204 or 1302 as applicable"
^DD(423,116,21,0)="^^1^1^2920212^"
^DD(423,116,21,1,0)="This field contains the 921 analysis account for VACO."
^DD(423,116,"DT")="2920707"
^DD(423,116.1,0)="PERCENT 1^NJ2,0^^21;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,116.1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(423,116.1,"DT")="2920706"
^DD(423,116.2,0)="YALD 1^F^^21;9^K:$L(X)>4!($L(X)<2) X"
^DD(423,116.2,3)="Enter Valid YALD code"
^DD(423,116.2,"DT")="2920706"
^DD(423,116.3,0)="CP 1^F^^21;10^K:$L(X)>4!($L(X)<2)!'(X?3N) X"
^DD(423,116.3,3)="Enter 3 digit CP number"
^DD(423,116.3,"DT")="2920706"
^DD(423,116.4,0)="COST CENTER #2^P420.1'^PRCD(420.1,^21;11^Q"
^DD(423,116.4,"DT")="2920707"
^DD(423,116.5,0)="PERCENT 2^NJ2,0^^21;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,116.5,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(423,116.5,"DT")="2920706"
^DD(423,116.6,0)="YALD 2^F^^21;17^K:$L(X)>4!($L(X)<2) X"
^DD(423,116.6,3)="Enter valid YALD code"
^DD(423,116.6,"DT")="2920706"
^DD(423,116.7,0)="CP 2^F^^21;20^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,116.7,3)="Enter 3 digit CP number"
^DD(423,116.7,"DT")="2920706"
^DD(423,116.8,0)="COST CENTER 3^P420.1'^PRCD(420.1,^21;12^Q"
^DD(423,116.8,3)=""
^DD(423,116.9,0)="PERCENT 3^NJ2,0^^21;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,116.9,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(423,117,0)="P&R CC (1-7)^423.0117PA^^23;0"
^DD(423,117,3)="Supply Fund must be 000"
^DD(423,117,"DT")="2920212"
^DD(423,117.1,0)="YALD 3^F^^21;18^K:$L(X)>4!($L(X)<2) X"
^DD(423,117.1,3)="Enter valid YALD code"
^DD(423,117.2,0)="CP 3^F^^21;21^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,117.2,3)="Enter 3 digit CP number"
^DD(423,117.3,0)="COST CENTER 4^P420.1'^PRCD(420.1,^21;13^Q"
^DD(423,117.3,3)=""
^DD(423,117.4,0)="PERCENT 4^NJ2,0^^21;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,117.4,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(423,117.5,0)="YALD 4^F^^21;19^K:$L(X)>4!($L(X)<2) X"
^DD(423,117.5,3)="Enter valid YALD code"
^DD(423,117.6,0)="CP 4^F^^21;22^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423,117.6,3)="Enter 3 digit CP number"
^DD(423,118,0)="TRANSPORTATION AMOUNT^NJ11,0^^24;1^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,118,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(423,118,"DT")="2920618"
^DD(423,119,0)="MARK UP AMOUNT^NJ11,0^^24;2^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,119,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(423,119,"DT")="2920618"
^DD(423,120,0)="PAYABLE AMOUNT^NJ11,0^^24;3^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,120,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(423,120,"DT")="2920618"
^DD(423,150,0)="DOCUMENT TYPE^RS^C:CERTIFIED INVOICE;^100;1^Q"
^DD(423,150,21,0)="^^1^1^2910517^^"
^DD(423,150,21,1,0)="This is the document type."
^DD(423,150,"DT")="2890602"
^DD(423,151,0)="DOCUMENT LOCATOR NUMBER^F^^100;2^K:$L(X)>11!($L(X)<11)!'(X?11N) X"
^DD(423,151,3)="ANSWER MUST BE 11 CHARACTERS IN LENGTH"
^DD(423,151,21,0)="^^1^1^2910516^"
^DD(423,151,21,1,0)="This is the document locator number."
^DD(423,151,"DT")="2890602"
^DD(423,152,0)="DISCOUNT PERCENT^NJ5,2O^^100;11^K:+X'=X!(X>99.99)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(423,152,2)="S Y(0)=Y I '$D(PRCF(""OUT"")) S Y=Y*100,PRCFLN=4 D LZF^PRCFU"
^DD(423,152,2.1)="I '$D(PRCF(""OUT"")) S Y=Y*100,PRCFLN=4 D LZF^PRCFU"
^DD(423,152,3)="Type a Number between .01 and 99.99, 2 Decimal Digits"
^DD(423,152,21,0)="^^1^1^2910517^^"
^DD(423,152,21,1,0)="This is the discount percent amount."
^DD(423,152,"DT")="2920402"
^DD(423,153,0)="DISCOUNT DAYS^NJ2,0O^^100;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,153,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S PRCFLN=2 D LZF^PRCFU"
^DD(423,153,2.1)="Q:'$D(PRCF(""OUT""))  S PRCFLN=2 D LZF^PRCFU"
^DD(423,153,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(423,153,21,0)="^^1^1^2910516^"
^DD(423,153,21,1,0)="This is the number of discount days."
^DD(423,153,"DT")="2890602"
^DD(423,154,0)="DISCOUNT TERMS^RS^X:STANDARD;P:PROX;E:EOM;^100;13^Q"
^DD(423,154,21,0)="^^1^1^2910516^"
^DD(423,154,21,1,0)="This is the set of codes for discount terms."
^DD(423,154,"DT")="2890728"
^DD(423,155,0)="DISCOUNT AMOUNT^NJ9,0O^^100;27^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,155,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  D CAPSDOL^PRCFU"
^DD(423,155,2.1)="Q:'$D(PRCF(""OUT""))  D CAPSDOL^PRCFU"
^DD(423,155,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(423,155,21,0)="^^1^1^2910516^"
^DD(423,155,21,1,0)="This is the discount amount."
^DD(423,155,"DT")="2890705"
^DD(423,156,0)="INVOICE NUMBER^FO^^100;3^K:$L(X)>16!($L(X)<1) X"
^DD(423,156,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S PRCFLN=16 D RBF^PRCFU"
^DD(423,156,2.1)="Q:'$D(PRCF(""OUT""))  S PRCFLN=16 D RBF^PRCFU"
^DD(423,156,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(423,156,21,0)="^^1^1^2910516^"
^DD(423,156,21,1,0)="This is the invoice number."
^DD(423,156,"DT")="2890602"
^DD(423,157,0)="INVOICE DATE^RDO^^100;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,157,2)="S Y(0)=Y S Y(0)=Y I '$D(PRCF(""OUT"")) D CAPSDATE^PRCFU"
^DD(423,157,2.1)="S Y(0)=Y I '$D(PRCF(""OUT"")) D CAPSDATE^PRCFU"
^DD(423,157,21,0)="^^1^1^2910516^"
^DD(423,157,21,1,0)="This is the date of the invoice."
^DD(423,157,"DT")="2920228"
^DD(423,158,0)="INVOICE AMOUNT^NJ9,0O^^100;15^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,158,2)="S Y(0)=Y I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,158,2.1)="I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,158,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(423,158,21,0)="^^1^1^2910516^"
^DD(423,158,21,1,0)="This is the invoice amount."
^DD(423,158,"DT")="2890705"
^DD(423,159,0)="SHIPPING AMOUNT^NJ10,2O^^100;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01) X"
^DD(423,159,2)="S Y(0)=Y I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,159,2.1)="I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,159,3)="Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits"
^DD(423,159,21,0)="^^1^1^2910516^"
^DD(423,159,21,1,0)="This is the shipping amount."
^DD(423,159,"DT")="2890602"
^DD(423,160,0)="DATE INVOICE RECEIVED^RDO^^100;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,160,2)="S Y(0)=Y S Y(0)=Y I '$D(PRCF(""OUT"")) D CAPSDATE^PRCFU"
^DD(423,160,2.1)="S Y(0)=Y I '$D(PRCF(""OUT"")) D CAPSDATE^PRCFU"
^DD(423,160,21,0)="^^1^1^2910516^"
^DD(423,160,21,1,0)="This is the date the invoice was received."
^DD(423,160,"DT")="2920228"
^DD(423,161,0)="MEMO 1^FO^^100;28^K:$L(X)>3!($L(X)<1) X"
^DD(423,161,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,161,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,161,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(423,161,21,0)="^^1^1^2910517^^"
^DD(423,161,21,1,0)="This is the first memo."
^DD(423,161,"DT")="2890602"
^DD(423,162,0)="MEMO 2^FO^^100;29^K:$L(X)>3!($L(X)<1) X"
^DD(423,162,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,162,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,162,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(423,162,21,0)="^^1^1^2910516^"
^DD(423,162,21,1,0)="This is the second memo, if applicable."
^DD(423,162,"DT")="2890602"
^DD(423,163,0)="MEMO 3^FO^^100;30^K:$L(X)>3!($L(X)<1) X"
^DD(423,163,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,163,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=3 D RBF^PRCFU"
^DD(423,163,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(423,163,21,0)="^^1^1^2910516^"
^DD(423,163,21,1,0)="This is the third memo, if applicable."
^DD(423,163,"DT")="2890602"
^DD(423,164,0)="INTEREST INDICATOR^S^X:BLANK;I:INTEREST ONLY;P:PAYMENT ONLY;^100;23^Q"
^DD(423,164,21,0)="^^1^1^2910516^"
^DD(423,164,21,1,0)="This is the interest indicator."
^DD(423,164,"DT")="2890602"
^DD(423,165,0)="INVOICE SUFFIX^NJ4,0O^^100;26^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,165,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S PRCFLN=4 D LZF^PRCFU"
^DD(423,165,2.1)="Q:'$D(PRCF(""OUT""))  S PRCFLN=4 D LZF^PRCFU"
^DD(423,165,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(423,165,21,0)="^^1^1^2910516^"
^DD(423,165,21,1,0)="This is the invoice suffix."
^DD(423,165,22)="T"
^DD(423,165,"DT")="2890705"
^DD(423,166,0)="CAPPS LIQUIDATION CODE^S^C:COMPLETE;P:PARTIAL;^100;16^Q"
^DD(423,166,21,0)="^^1^1^2910516^"
^DD(423,166,21,1,0)="This is the CAPPS liquidation code."
^DD(423,166,"DT")="2890602"
^DD(423,167,0)="CAPPS LIQUIDATION AMT 1^NJ10,2O^^100;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01) X"
^DD(423,167,2)="S Y(0)=Y I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,167,2.1)="I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,167,3)="Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits"
^DD(423,167,21,0)="^^1^1^2910517^^"
^DD(423,167,21,1,0)="This is the CAPPS liquidation amount 1."
^DD(423,167,"DT")="2890602"
^DD(423,168,0)="CAPPS LIQUIDATION AMT 2^NJ10,2O^^100;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01) X"
^DD(423,168,2)="S Y(0)=Y I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,168,2.1)="I $D(PRCF(""OUT"")) D CAPSDOL^PRCFU"
^DD(423,168,3)="Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits"
^DD(423,168,21,0)="^^1^1^2910516^"
^DD(423,168,21,1,0)="This is the CAPPS liquidation amount 2."
^DD(423,168,"DT")="2890602"
^DD(423,169,0)="DATE SERVICE RECEIVED^DO^^100;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,169,2)="S Y(0)=Y S Y(0)=Y I '$D(PRCF(""OUT"")) D CAPSDATE^PRCFU"
^DD(423,169,2.1)="S Y(0)=Y I '$D(PRCF(""OUT"")) D CAPSDATE^PRCFU"
^DD(423,169,21,0)="^^1^1^2930415^^"
^DD(423,169,21,1,0)="This is the date that the services were performed or completed."
^DD(423,169,"DT")="2920228"
^DD(423,170,0)="MONEY MANAGEMENT EXEMPT^S^B:BLANK;X:EXEMPT;^100;22^Q"
^DD(423,170,21,0)="^^2^2^2910517^"
^DD(423,170,21,1,0)="This is the indicator for whether funds are money "
^DD(423,170,21,2,0)="management exempt."
^DD(423,170,"DT")="2890602"
^DD(423,171,0)="CAPPS PRODUCT TYPE^S^X:NORMAL;P:PRODUCE;M:MEAT;F:PROGRESS;D:DAIRY;C:CONTRACT;V:PRIME VENDOR;^100;6^Q"
^DD(423,171,21,0)="^^1^1^2910517^"
^DD(423,171,21,1,0)="This is the set of codes for the CAPPS product type."
^DD(423,171,"DT")="2931007"
^DD(423,172,0)="CAPPS SUBACCOUNT 1^FXO^^100;17^I ""DPST$""'[X S DIC=420.2,DIC(0)=""MNZQE"" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC"
^DD(423,172,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S PRCFLN=4 D RBF^PRCFU"
^DD(423,172,2.1)="Q:'$D(PRCF(""OUT""))  S PRCFLN=4 D RBF^PRCFU"
^DD(423,172,3)="Enter standard CALM Sub-Account, or DPST"
^DD(423,172,21,0)="^^1^1^2910517^"
^DD(423,172,21,1,0)="This is the CAPPS subaccount 1."
^DD(423,172,"DT")="2890705"
^DD(423,173,0)="CAPPS SUBACCOUNT 2^FXO^^100;18^I ""TRDE~DPST""'[X S DIC=420.2,DIC(0)=""MNQE"" D ^DIC S ZC=X,X=+Y D:Y<0 SA^PRCFAC01 K DIC,ZC"
^DD(423,173,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S PRCFLN=4 D RBF^PRCFU"
^DD(423,173,2.1)="Q:'$D(PRCF(""OUT""))  S PRCFLN=4 D RBF^PRCFU"
^DD(423,173,3)="ANSWER MUST BE 4 CHARACTERS IN LENGTH"
^DD(423,173,21,0)="^^1^1^2910517^"
^DD(423,173,21,1,0)="This is CAPPS subaccount 2."
^DD(423,173,"DT")="2890705"
^DD(423,300,0)="LINE ITEM NUMBER^NJ5,0^^300;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,300,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(423,300,21,0)="^^1^1^2910517^^"
^DD(423,300,21,1,0)="This is the line item number."
^DD(423,300,"DT")="2871217"
^DD(423,300.1,0)="LOG BATCH NO.^F^^300;25^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<9) X"
^DD(423,300.1,1,0)="^.1"
^DD(423,300.1,1,1,0)="423^AN"
^DD(423,300.1,1,1,1)="S ^PRCF(423,""AN"",$E(X,1,30),DA)="""""
^DD(423,300.1,1,1,2)="K ^PRCF(423,""AN"",$E(X,1,30),DA)"
^DD(423,300.1,1,1,"%D",0)="^^1^1^2930715^"
^DD(423,300.1,1,1,"%D",1,0)="This cross-reference contains the LOG BATCH NO."
^DD(423,300.1,3)="Created automatically when new LOG code sheets are created.  Made up of Station No._""-""_P.O.No._"".""_Partial No. (period & partial no. for receiving only)"
^DD(423,300.1,21,0)="^^4^4^2920114^"
^DD(423,300.1,21,1,0)="This is the number that is created automatically upon creation of new"
^DD(423,300.1,21,2,0)="log code sheets (i.e., Station Number, Purchase Order Number, (period"
^DD(423,300.1,21,3,0)="(.)), and Partial Number (period and partial number are used for"
^DD(423,300.1,21,4,0)="receiving only)."
^DD(423,300.1,"DT")="2890314"
^DD(423,301,0)="TOTAL VALUE^RNJ8,2O^^300;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(423,301,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""       "" I Y'=""       "" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,301,2.1)="I $D(PRCHLOG) S:Y="""" Y=""       "" I Y'=""       "" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,301,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(423,301,21,0)="^^1^1^2910517^"
^DD(423,301,21,1,0)="This is the total value."
^DD(423,301,"DT")="2890830"
^DD(423,302,0)="QUANTITY^RFO^^300;3^K:$L(X)>5!($L(X)<1)!'(X?.5N) X"
^DD(423,302,2)="S Y(0)=Y I $D(PRCHLOG) S Z=$S($D(PRCHCS(""CANC"")):PRCHCS(""CANC""),1:"""") S:Z=""C"" Y=""     "" I Z'=""C"" S PRCFLN=5 D LZF^PRCFU K Z"
^DD(423,302,2.1)="I $D(PRCHLOG) S Z=$S($D(PRCHCS(""CANC"")):PRCHCS(""CANC""),1:"""") S:Z=""C"" Y=""     "" I Z'=""C"" S PRCFLN=5 D LZF^PRCFU K Z"
^DD(423,302,3)="Enter Quantity (between 1 and 99999)."
^DD(423,302,21,0)="^^1^1^2910517^"
^DD(423,302,21,1,0)="This is the quantity of invoice items."
^DD(423,302,"DT")="2890411"
^DD(423,303,0)="UNIT OF ISSUE^RP420.5'O^PRCD(420.5,^300;4^Q"
^DD(423,303,2)="S Y(0)=Y S PRCHZ(2)=$S($D(^PRCF(423,DA,0)):$P(^(0),U,4),1:""""),PRCHZ(1)=$S($D(^PRCD(420.5,+Y,0)):^(0),1:"""") S:PRCHZ(1)]"""" Y=$S(PRCHZ(2)=100:$P(PRCHZ(1),U,3),1:$P(PRCHZ(1),U,1)) K PRCHZ I $D(PRCHLOG) S:Y="""" Y=""  """
^DD(423,303,2.1)="S PRCHZ(2)=$S($D(^PRCF(423,DA,0)):$P(^(0),U,4),1:""""),PRCHZ(1)=$S($D(^PRCD(420.5,+Y,0)):^(0),1:"""") S:PRCHZ(1)]"""" Y=$S(PRCHZ(2)=100:$P(PRCHZ(1),U,3),1:$P(PRCHZ(1),U,1)) K PRCHZ I $D(PRCHLOG) S:Y="""" Y=""  """
^DD(423,303,3)=""
^DD(423,303,4)=""
^DD(423,303,21,0)="^^1^1^2930127^^"
^DD(423,303,21,1,0)="This is the unit of issue for the invoice item(s)."
^DD(423,303,"DT")="2890510"
^DD(423,304,0)="FISCAL YEAR OF FUNDING^RNJ1,0O^^300;5^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,304,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,304,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,304,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(423,304,21,0)="^^1^1^2910517^"
^DD(423,304,21,1,0)="This is the fiscal year of funding."
^DD(423,304,"DT")="2890411"
^DD(423,305,0)="FISCAL MONTH^RSO^1:JANUARY;2:FEBRUARY;3:MARCH;4:APRIL;5:MAY;6:JUNE;7:JULY;8:AUGUST;9:SEPTEMBER;0:OCTOBER;J:NOVEMBER;K:DECEMBER;^300;6^Q"
^DD(423,305,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,305,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,305,21,0)="^^1^1^2910517^"
^DD(423,305,21,1,0)="This is the month of fiscal funding."
^DD(423,305,"DT")="2890523"
^DD(423,306,0)="DUE-IN DATE^RDO^^300;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(423,306,2)="S Y(0)=Y X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""    "" S:Y Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,3)"
^DD(423,306,2.1)="X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""    "" S:Y Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,3)"
^DD(423,306,3)=""
^DD(423,306,21,0)="^^1^1^2910517^"
^DD(423,306,21,1,0)="This is the due-in date for the invoice item(s)."
^DD(423,306,"DT")="2890510"
^DD(423,306.1,0)="DATE OF RECEIPT^DO^^300;22^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,306.1,2)="S Y(0)=Y X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y]"""" Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7) S:Y="""" Y=""   """
^DD(423,306.1,2.1)="X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y]"""" Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7) S:Y="""" Y=""   """
^DD(423,306.1,3)="Enter Partial Receipt Date."
^DD(423,306.1,21,0)="^^1^1^2910517^^"
^DD(423,306.1,21,1,0)="This is the partial receipt date."
^DD(423,306.1,"DT")="2890407"
^DD(423,306.2,0)="DATE^RDO^^300;23^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,306.2,2)="S Y(0)=Y D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="""" Y=""    "" I Y S PRCH0=$E(Y,3),X1=Y,X2=$E(Y,1,3)_""0101"" D ^%DTC S X=X+1,Y=PRCH0_$E(""000""_X,$L(X)+1,6) K PRCH0"
^DD(423,306.2,2.1)="D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="""" Y=""    "" I Y S PRCH0=$E(Y,3),X1=Y,X2=$E(Y,1,3)_""0101"" D ^%DTC S X=X+1,Y=PRCH0_$E(""000""_X,$L(X)+1,6) K PRCH0"
^DD(423,306.2,21,0)="^^1^1^2980226^^"
^DD(423,306.2,21,1,0)="This is the date of item receipt."
^DD(423,306.2,"DT")="2980226"
^DD(423,307,0)="STOCK NUMBER (NSN)^FO^^300;8^K:$L(X)>13!($L(X)<9) X"
^DD(423,307,2)="S Y(0)=Y I $D(Y),$D(PRCHLOG) S:$L(Y)=9 Y=Y_"" "" S PRCFLN=13 D LBF^PRCFU"
^DD(423,307,2.1)="I $D(Y),$D(PRCHLOG) S:$L(Y)=9 Y=Y_"" "" S PRCFLN=13 D LBF^PRCFU"
^DD(423,307,3)="Enter two question marks for help"
^DD(423,307,21,0)="^^11^11^2930204^^^^"
^DD(423,307,21,1,0)="   DLA ACQUISITIONS code sheets, enter 13 digit NSN."
^DD(423,307,21,2,0)="   UNPOSTED RECEIVING non-drug items, or drug items from Depot,"
^DD(423,307,21,3,0)=" enter 3 blanks followed by 9 or 10 digit N.I.I.N. code (National"
^DD(423,307,21,4,0)=" Stock number, without leading FSC code.)"
^DD(423,307,21,5,0)="   UNPOSTED RECEIVING  Drugs from any source other than Depot"
^DD(423,307,21,6,0)="   cc 1     'A' if narcotic, 'L' if controlled substance, or 'D' otherwise."
^DD(423,307,21,7,0)="   cc 2-13  NDC"
^DD(423,307,21,8,0)="            cc 2-7 labeler code.  If not 6 digits, put in 1 leading 0."
^DD(423,307,21,9,0)="            cc 8-11 product code."
^DD(423,307,21,10,0)="            cc 12-13 package code."
^DD(423,307,21,11,0)="        If NDC is not long enough, left justify it and fill end with blanks."
^DD(423,307,"DT")="2890523"
^DD(423,308,0)="N.I.I.N. (STOCK NO.)^RFXO^^300;9^K:$L(X)>10!($L(X)<9)!((X'?9N.A)&(X'?9N."" "")) X"
^DD(423,308,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=10 D RBF^PRCFU"
^DD(423,308,2.1)="I $D(PRCHLOG) S PRCFLN=10 D RBF^PRCFU"
^DD(423,308,3)="Enter the last 9 Digits of the NSN and the Suffix."
^DD(423,308,21,0)="^^2^2^2910517^"
^DD(423,308,21,1,0)="This is the last nine digits of the National Stock"
^DD(423,308,21,2,0)="Number and the Suffix."
^DD(423,308,"DT")="2890926"
^DD(423,309,0)="NOMENCLATURE (21)^FO^^300;10^K:$L(X)>21!($L(X)<1) X"
^DD(423,309,2)="S Y(0)=Y I $D(PRCHLOG) S Z0="""",$P(Z0,"" "",22-$L(Y))="""",Y=Y_Z0 K Z0"
^DD(423,309,2.1)="I $D(PRCHLOG) S Z0="""",$P(Z0,"" "",22-$L(Y))="""",Y=Y_Z0 K Z0"
^DD(423,309,3)="ANSWER MUST BE 1-21 CHARACTERS IN LENGTH"
^DD(423,309,21,0)="^^1^1^2910517^^"
^DD(423,309,21,1,0)="This is the 21 character nomenclature entry."
^DD(423,309,"DT")="2870818"
^DD(423,310,0)="NOMENCLATURE (15)^FO^^300;14^K:$L(X)>15!($L(X)<1) X"
^DD(423,310,2)="S Y(0)=Y I $D(PRCHLOG) S Z0="""",$P(Z0,"" "",16-$L(Y))="""",Y=Y_Z0 K Z0"
^DD(423,310,2.1)="I $D(PRCHLOG) S Z0="""",$P(Z0,"" "",16-$L(Y))="""",Y=Y_Z0 K Z0"
^DD(423,310,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(423,310,21,0)="^^1^1^2910517^^"
^DD(423,310,21,1,0)="This is the fifteen character nomenclature entry."
^DD(423,310,"DT")="2871204"
^DD(423,310.5,0)="NOMENCLATURE (20)^FO^^301;32^K:$L(X)>20!($L(X)<1) X"
^DD(423,310.5,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU"
^DD(423,310.5,2.1)="I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU"
^DD(423,310.5,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(423,310.5,21,0)="^^1^1^2910517^"
^DD(423,310.5,21,1,0)="This is the fifteen character nomenclature entry."
^DD(423,310.5,"DT")="2890405"
^DD(423,310.6,0)="SERIAL NO./NOMENCLATURE (GSA)^FO^^301;33^K:$L(X)>9!($L(X)<1) X"
^DD(423,310.6,2)="S Y(0)=Y I $D(PRCHLOG) S:Y?1""*""4N Y=""    ""_Y S PRCFLN=9 D RBF^PRCFU"
^DD(423,310.6,2.1)="I $D(PRCHLOG) S:Y?1""*""4N Y=""    ""_Y S PRCFLN=9 D RBF^PRCFU"
^DD(423,310.6,3)="To locally assign serial no., enter asterisk '*' followed by serial no. > 6000.  To have computer assign serial no., leave blank or enter nomenclature (up to 9 characters)."
^DD(423,310.6,21,0)="^^1^1^2910517^"
^DD(423,310.6,21,1,0)="This is the serial number/nomenclature for GSA."
^DD(423,310.6,"DT")="2890418"
^DD(423,311,0)="ACTIVITY ADDRESS CODE^RFOX^^300;15^K:$L(X)>6!($L(X)<6)!'(X?6N) X I $D(X),'$O(^PRC(411,+$P(^PRCF(423,DA,0),U,2),5,""B"",X,0)) K X"
^DD(423,311,2)="S Y(0)=Y I $D(PRCHLOG),Y="""" S Y=""      """
^DD(423,311,2.1)="I $D(PRCHLOG),Y="""" S Y=""      """
^DD(423,311,3)="Enter the 6 digit activity address for DLA."
^DD(423,311,4)="W !,""Select From: "",! F Z=0:0 S Z=$O(^PRC(411,+$P(^PRCF(423,DA,0),U,2),5,Z)) Q:'Z  W:$D(^(Z,0)) $P(^(0),U,1),!"
^DD(423,311,21,0)="^^1^1^2910517^"
^DD(423,311,21,1,0)="This is the Activity Address Code."
^DD(423,311,"DT")="2890502"
^DD(423,312,0)="ROUTING IDENTIFIER CODE^R*P441.4'O^PRCD(441.4,^300;16^S DIC(""S"")=""I $P(^(0),U,2)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423,312,2)="S Y(0)=Y S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=""DLA"""
^DD(423,312,2.1)="S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=""DLA"""
^DD(423,312,3)=""
^DD(423,312,12)="Enter appropriate DLA Routing Indicator."
^DD(423,312,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""R"""""""
^DD(423,312,21,0)="^^1^1^2910517^"
^DD(423,312,21,1,0)="This is the routing identifier code."
^DD(423,312,"DT")="2890510"
^DD(423,313,0)="DOCUMENT IDENTIFIER CODE^RFO^^300;17^K:$L(X)>3!($L(X)<3)!'(X?3UN) X"
^DD(423,313,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""A0A"""
^DD(423,313,2.1)="I $D(PRCHLOG) S:Y="""" Y=""A0A"""
^DD(423,313,3)="Enter the 3 character identifier code."
^DD(423,313,21,0)="^^1^1^2910517^"
^DD(423,313,21,1,0)="This is the document identifier code."
^DD(423,313,"DT")="2890428"
^DD(423,314,0)="FUND CONTROL POINT^RF^^300;18^K:$L(X)>3!($L(X)<3) X"
^DD(423,314,3)="Enter the three digit fund control point or 'OGA','CTN', or 'GPF'."
^DD(423,314,21,0)="^^1^1^2910517^"
^DD(423,314,21,1,0)="This is the Fund Control Point."
^DD(423,314,"DT")="2870819"
^DD(423,315,0)="COST CENTER NO.^RFO^^300;19^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423,315,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""      """
^DD(423,315,2.1)="I $D(PRCHLOG) S:Y="""" Y=""      """
^DD(423,315,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423,315,21,0)="^^1^1^2910517^"
^DD(423,315,21,1,0)="This is the cost center number."
^DD(423,315,"DT")="2910225"
^DD(423,325,0)="BLANK (1)^FO^^300;11^K:$L(X)>1!($L(X)<1)!'(X?1"" "") X"
^DD(423,325,2)="S Y(0)=Y I $D(PRCHLOG) S Y="" """
^DD(423,325,2.1)="I $D(PRCHLOG) S Y="" """
^DD(423,325,3)="Enter one blank space."
^DD(423,325,21,0)="^^1^1^2910517^"
^DD(423,325,21,1,0)="This field is for entry of a blank space."
^DD(423,325,"DT")="2870819"
^DD(423,326,0)="BLANK (3)^FO^^300;12^K:$L(X)>3!($L(X)<3)!'(X?3"" "") X"
^DD(423,326,2)="S Y(0)=Y I $D(PRCHLOG) S Y=""   """
^DD(423,326,2.1)="I $D(PRCHLOG) S Y=""   """
^DD(423,326,3)="Enter three blank spaces."
^DD(423,326,21,0)="^^1^1^2910517^"
^DD(423,326,21,1,0)="This field is for entry of three blank spaces."
^DD(423,326,"DT")="2870819"
^DD(423,327,0)="BLANK (5)^FO^^300;13^K:$L(X)>5!($L(X)<5)!'(X?5"" "") X"
^DD(423,327,2)="S Y(0)=Y I $D(PRCHLOG) S Y=""     """
^DD(423,327,2.1)="I $D(PRCHLOG) S Y=""     """
^DD(423,327,3)="Enter five blank spaces."
^DD(423,327,21,0)="^^1^1^2910517^"
^DD(423,327,21,1,0)="This field is for entry of five blank spaces."
^DD(423,327,"DT")="2870819"
^DD(423,330,0)="DEPARTMENT NUMBER^RFO^^301;1^K:$L(X)>3!($L(X)<2)!'(X?2N.UN) X"
^DD(423,330,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=3 D RBF^PRCFU"
^DD(423,330,2.1)="I $D(PRCHLOG) S PRCFLN=3 D RBF^PRCFU"
^DD(423,330,3)="ANSWER MUST BE 2-3 CHARACTERS IN LENGTH"
^DD(423,330,21,0)="^^1^1^2910517^"
^DD(423,330,21,1,0)="This is the department number."
^DD(423,330,"DT")="2890626"
^DD(423,331,0)="DO NOT SUB^SO^1:NO SUBSTITUTION;^301;2^Q"
^DD(423,331,.1)="Do Not Substitute"
^DD(423,331,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,331,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,331,21,0)="^^3^3^2910517^"
^DD(423,331,21,1,0)="This is the indicator for whether an item which"
^DD(423,331,21,2,0)="is not in stock may have a similar item substituted"
^DD(423,331,21,3,0)="for it."
^DD(423,331,"DT")="2870819"
^DD(423,332,0)="DO NOT B/O^SO^1:NO BACKORDER;^301;3^Q"
^DD(423,332,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,332,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,332,21,0)="^^2^2^2910517^"
^DD(423,332,21,1,0)="This is the indicator for whether an item which"
^DD(423,332,21,2,0)="is currently out of stock should be backordered."
^DD(423,332,"DT")="2901218"
^DD(423,333,0)="DIETETIC PERIOD^SO^1:FIRST REPORT (1ST-15TH);2:SECOND REPORT (16TH-31ST);N:NO REPORT-DIETETICS SUPPLIES;^301;4^Q"
^DD(423,333,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,333,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,333,21,0)="^^2^2^2910517^"
^DD(423,333,21,1,0)="This is the set of codes for first, second, or"
^DD(423,333,21,2,0)="no report for dietetics supplies."
^DD(423,333,"DT")="2890503"
^DD(423,334,0)="FOOD GROUP^SO^1:Meat, Fish, Poultry, Eggs & Convenience Entrees;2:Milk, Milk Products;3:Fruits, Vegetables;4:Bread, Flour, Cereal, etc.;5:Commercial Nutritional Products, Tube feedings & supplements;6:Miscellaneous, Foods;^301;5^Q"
^DD(423,334,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,334,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,334,3)="Needed only for use on creating LOG codesheets for subsistence items only."
^DD(423,334,21,0)="^^1^1^2910517^^"
^DD(423,334,21,1,0)="This is the set of codes for food groups."
^DD(423,334,"DT")="2891024"
^DD(423,335,0)="CONVERSION FACTOR^FO^^301;6^K:$L(X)>5!($L(X)<1) X"
^DD(423,335,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU"
^DD(423,335,2.1)="I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU"
^DD(423,335,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(423,335,21,0)="^^1^1^2910517^^"
^DD(423,335,21,1,0)="This is the conversion factor."
^DD(423,335,"DT")="2891024"
^DD(423,336,0)="COMMODITY CODE^SO^1:DRUGS;2:OTHER MEDICAL;3:GENERAL;6:FUEL;8:SUBSISTENCE;^301;7^Q"
^DD(423,336,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,336,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,336,21,0)="^^1^1^2910517^"
^DD(423,336,21,1,0)="This is the commodity code."
^DD(423,336,"DT")="2881212"
^DD(423,337,0)="GROUP SPLIT CIV^FO^^301;8^K:$L(X)>3!($L(X)<1) X"
^DD(423,337,2)="S Y(0)=Y I $D(PRCHLOG) S Z0="""",$P(Z0,"" "",4-$L(Y))="""",Y=Z0_Y K Z0"
^DD(423,337,2.1)="I $D(PRCHLOG) S Z0="""",$P(Z0,"" "",4-$L(Y))="""",Y=Z0_Y K Z0"
^DD(423,337,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(423,337,21,0)="^^2^2^2910517^"
^DD(423,337,21,1,0)="This is the three letter CIV code.  Items having"
^DD(423,337,21,2,0)="the same code will be grouped together on the CIV."
^DD(423,337,"DT")="2870819"
^DD(423,338,0)="CONSUMER LEVEL^FO^^301;9^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(423,338,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""    "" I Y S Z0="""",$P(Z0,0,5-$L(Y))="""",Y=Z0_Y K Z0"
^DD(423,338,2.1)="I $D(PRCHLOG) S:Y="""" Y=""    "" I Y S Z0="""",$P(Z0,0,5-$L(Y))="""",Y=Z0_Y K Z0"
^DD(423,338,3)="Enter the established consumer level, one to four digits."
^DD(423,338,21,0)="^^2^2^2910517^"
^DD(423,338,21,1,0)="This is the consumer level, the normal stock"
^DD(423,338,21,2,0)="level of an item at an inventory point."
^DD(423,338,"DT")="2890426"
^DD(423,339,0)="CONSUMER LEVEL OVERRIDE^SO^1:IGNORE CONSUMER LEVEL;A:IGNORE FIS ISSURE MULTIPLE AND CONSUMER LEVEL;^301;10^Q"
^DD(423,339,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,339,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,339,21,0)="^^2^2^2910517^"
^DD(423,339,21,1,0)="This is the indicator for whether the consumer"
^DD(423,339,21,2,0)="level for the item can be overriden."
^DD(423,339,"DT")="2870819"
^DD(423,340,0)="REASON CODE^R*SO^1:REGULAR;2:RESUBMISSION OF REJECTS;3:CALM BYPASS;G:ACQUISITIONS DIRECT TO GSA;^301;11^Q"
^DD(423,340,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,340,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,340,12)="Screen depends on which type of code sheet is being entered"
^DD(423,340,12.1)="S DIC(""S"")=""Q:'$D(PRCHTYP)  I $S(PRCHTYP=""""A"""":""""G""""[Y,1:""""123""""[Y)"""
^DD(423,340,21,0)="^^1^1^2910517^^"
^DD(423,340,21,1,0)="This is the reason code for the code sheet."
^DD(423,340,"DT")="2890411"
^DD(423,341,0)="SOURCE CODE (LOG)^RFXO^^301;12^K:$L(X)>1!($L(X)<1)!(""012345679AC""'[X) X"
^DD(423,341,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,341,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,341,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH (i.e. 2=Local Procurement)"
^DD(423,341,21,0)="^^1^1^2910722^^^"
^DD(423,341,21,1,0)="This is the LOG source code. (See MP-6, Part XIV, Supp 6.1, Para. 1201.04)"
^DD(423,341,"DT")="2890411"
^DD(423,342,0)="SOURCE DEVIATION^*P441.4'O^PRCD(441.4,^302;2^S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423,342,2)="S Y(0)=Y S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,342,2.1)="S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,342,12)="Enter appropriate source deviation code or leave blank."
^DD(423,342,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""""
^DD(423,342,21,0)="^^1^1^2910517^"
^DD(423,342,21,1,0)="This is the source deviation code."
^DD(423,342,"DT")="2890522"
^DD(423,343,0)="COMPLETE INDICATOR^SO^P:PARTIAL;^301;14^Q"
^DD(423,343,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,343,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,343,21,0)="^^1^1^2910517^"
^DD(423,343,21,1,0)="This is the complete indicator."
^DD(423,343,"DT")="2870819"
^DD(423,344,0)="DOCUMENT IDENTIFIER^RFO^^301;15^K:$L(X)>5!($L(X)<5) X"
^DD(423,344,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU"
^DD(423,344,2.1)="I $D(PRCHLOG) S PRCFLN=5 D LBF^PRCFU"
^DD(423,344,3)="Enter the document or common number used to identify this transaction (Requisition No., P.O.No., etc.) (5 CHARACTERS)"
^DD(423,344,21,0)="^^1^1^2910517^"
^DD(423,344,21,1,0)="This is the document identifier."
^DD(423,344,"DT")="2890407"
^DD(423,345,0)="DEPOT (OR RELEASING FACILITY)^FO^^301;16^K:$L(X)>3!($L(X)<3) X"
^DD(423,345,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,345,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,345,3)="If facility is involved, enter releasing number.  Cannot be blank if source code is 1 (DEPOT) or A (Another Facility's long supply)  Enter the three digit station number."
^DD(423,345,21,0)="^^1^1^2910517^^"
^DD(423,345,21,1,0)="This is the depot or releasing facility."
^DD(423,345,"DT")="2870820"
^DD(423,346,0)="PAYABLE CODE^SO^A:REGULAR POSTED;B:IMPREST FUND;J:DONATED;^301;17^Q"
^DD(423,346,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,346,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,346,3)="Enter appropriate LOG Payable Code if required for this code sheet."
^DD(423,346,21,0)="^^1^1^2910517^"
^DD(423,346,21,1,0)="This is the payable code."
^DD(423,346,"DT")="2890524"
^DD(423,347,0)="BACKORDER CONTROL^SO^-:ESTABLISH BACKORDER;^301;18^Q"
^DD(423,347,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,347,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,347,3)="Enter '-' to establish a backorder (source 1)."
^DD(423,347,21,0)="^^2^2^2910517^^"
^DD(423,347,21,1,0)="This is the backorder control indicator."
^DD(423,347,21,2,0)="Enter '-' to establish a backorder."
^DD(423,347,"DT")="2871207"
^DD(423,348,0)="SUBSTITUTE CONTROL^SO^-:NO SUBSTITUTION;^301;19^Q"
^DD(423,348,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,348,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,348,3)="Enter '-' if substitution is not authorized."
^DD(423,348,21,0)="^^1^1^2920114^"
^DD(423,348,21,1,0)="This indicates whether substitution of a supply item is authorized."
^DD(423,348,"DT")="2871207"
^DD(423,349,0)="MAXIMUM OVERRIDE^SO^1:OVERRIDE THE MAXIMUM ORDER QUANTITY;^301;20^Q"
^DD(423,349,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,349,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,349,3)="Enter '1' if you want to override the maximum order quantity."
^DD(423,349,21,0)="^^2^2^2920114^^"
^DD(423,349,21,1,0)="This permits the requisitioner to override the maximum order"
^DD(423,349,21,2,0)="quantity for a supply item. "
^DD(423,349,"DT")="2871207"
^DD(423,350,0)="MEDIA & STATUS CODE^R*P441.4'O^PRCD(441.4,^300;20^S DIC(""S"")=""I $P(^(0),U,2)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423,350,2)="S Y(0)=Y S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=""S"""
^DD(423,350,2.1)="S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=""S"""
^DD(423,350,3)=""
^DD(423,350,12)="Enter DLA Media & Status Code"
^DD(423,350,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""M"""""""
^DD(423,350,21,0)="^^2^2^2920114^"
^DD(423,350,21,1,0)="This is a pointer to the DLA/LOG Codes File, #441.4.  It contains the"
^DD(423,350,21,2,0)="Defense Logistics Agency (DLA) media and status code."
^DD(423,350,"DT")="2930519"
^DD(423,351,0)="DEPT.DESIGNATION (DEMAND CODE)^*P441.4'O^PRCD(441.4,^301;21^S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423,351,2)="S Y(0)=Y S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,351,2.1)="S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,351,3)=""
^DD(423,351,12)="Enter Demand Code for Troop Issue or Dietetic Sale, or leave blank."
^DD(423,351,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""""
^DD(423,351,21,0)="^^2^2^2920114^"
^DD(423,351,21,1,0)="This is a pointer to the DLA/LOG Codes File, #441.4.  It contains the"
^DD(423,351,21,2,0)="Demand Code for Troop Issue or Dietetic Sale."
^DD(423,351,"DT")="2890502"
^DD(423,352,0)="SIGNAL CODE^RSO^A:Ship to Requisitioner. Bill to Requisitioner (cc 30-35);^301;22^Q"
^DD(423,352,2)="S Y(0)=Y I $D(PRCHLOG),Y="""" S Y=""A"""
^DD(423,352,2.1)="I $D(PRCHLOG),Y="""" S Y=""A"""
^DD(423,352,3)="'A' is the only valid entry for this field."
^DD(423,352,21,0)="^^2^2^2920114^"
^DD(423,352,21,1,0)="This is the code indicating to send the shipment/billing to the"
^DD(423,352,21,2,0)="requisitioner."
^DD(423,352,"DT")="2891026"
^DD(423,353,0)="FUND CODE^RFO^^301;23^K:$L(X)>2!($L(X)<2)!'(X?.UN) X"
^DD(423,353,2)="S Y(0)=Y I $D(PRCHLOG),Y="""" S Y=""  """
^DD(423,353,2.1)="I $D(PRCHLOG),Y="""" S Y=""  """
^DD(423,353,3)="Facility Defined for DLA code sheets.  ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423,353,21,0)="^^2^2^2920114^"
^DD(423,353,21,1,0)="This code is defined by the facility for the Defense Logistics Agency"
^DD(423,353,21,2,0)="(DLA) code sheets."
^DD(423,353,"DT")="2890428"
^DD(423,354,0)="DISTRIBUTION CODE (OPTIONAL)^FO^^301;24^K:$L(X)>3!($L(X)<3) X"
^DD(423,354,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,354,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,354,3)="Facility Defined.  ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,354,21,0)="^^1^1^2920114^"
^DD(423,354,21,1,0)="This code is defined by the facility."
^DD(423,354,"DT")="2871207"
^DD(423,355,0)="PROJECT CODE^FO^^301;25^K:$L(X)>3!($L(X)<3) X"
^DD(423,355,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,355,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,355,3)="Enter Department Number or leave null.  ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423,355,21,0)="^^1^1^2920114^"
^DD(423,355,21,1,0)="This is the Department Number."
^DD(423,355,"DT")="2890425"
^DD(423,356,0)="PRIORITY CODE^R*P441.4'O^PRCD(441.4,^301;26^S DIC(""S"")=""I $P(^(0),U,2)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423,356,2)="S Y(0)=Y S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=15"
^DD(423,356,2.1)="S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=15"
^DD(423,356,3)=""
^DD(423,356,12)="Enter DLA Priority Code"
^DD(423,356,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""P"""""""
^DD(423,356,21,0)="^^2^2^2920114^"
^DD(423,356,21,1,0)="This is a pointer to the DLA/LOG Codes File, #441.4.  It contains the"
^DD(423,356,21,2,0)="Defense Logistics Agency (DLA) priority code."
^DD(423,356,"DT")="2890502"
^DD(423,357,0)="ADVICE CODE^R*P441.4'O^PRCD(441.4,^301;27^S DIC(""S"")=""I $P(^(0),U,2)=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423,357,2)="S Y(0)=Y S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=""2J"""
^DD(423,357,2.1)="S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y=""2J"""
^DD(423,357,3)=""
^DD(423,357,12)="Enter appropriate DLA Advice Code."
^DD(423,357,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""A"""""""
^DD(423,357,21,0)="^^2^2^2920114^"
^DD(423,357,21,1,0)="This is a pointer to the DLA/LOG Codes File, #441.4.  It contains the"
^DD(423,357,21,2,0)="Defense Logistics Agency (DLA) advice code."
^DD(423,357,"DT")="2890502"
^DD(423,358,0)="DELIVERY DATE^DO^^301;28^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,358,2)="S Y(0)=Y D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="""" Y=""    "" I Y S X1=Y,X2=$E(Y,1,3)_""0101"" D ^%DTC S X=X+1,Y=$E(""000""_X,$L(X)+1,6)"
^DD(423,358,2.1)="D:Y&'$D(PRCHLOG) DD^%DT I $D(PRCHLOG) S:Y="""" Y=""    "" I Y S X1=Y,X2=$E(Y,1,3)_""0101"" D ^%DTC S X=X+1,Y=$E(""000""_X,$L(X)+1,6)"
^DD(423,358,3)=""
^DD(423,358,"DT")="2980226"
^DD(423,359,0)="SOURCE DEVIATION/SERIAL NUMBER^FOX^^300;21^D EN1^PRCHLCS"
^DD(423,359,2)="S Y(0)=Y I $D(PRCHLOG),Y="""" S Y=""    """
^DD(423,359,2.1)="I $D(PRCHLOG),Y="""" S Y=""    """
^DD(423,359,3)=""
^DD(423,359,4)="D EN2^PRCHLCS"
^DD(423,359,"DT")="2890913"
^DD(423,360,0)="SPECIAL CODE^RSO^Y:MUST ENTER 'Y';^301;29^Q"
^DD(423,360,2)="S Y(0)=Y I $D(PRCHLOG),Y="""" S Y=""Y"""
^DD(423,360,2.1)="I $D(PRCHLOG),Y="""" S Y=""Y"""
^DD(423,360,3)="A 'Y' MUST be entered in this field!"
^DD(423,360,"DT")="2890425"
^DD(423,361,0)="CANCEL^*SO^C:CANCEL DUE-IN;A:ADJUST DUE-IN;*:GSA FOLLOW-UP;X:GSA CANCELLATION;^301;30^Q"
^DD(423,361,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,361,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,361,3)=""
^DD(423,361,12)="'C' used for cancellation of other than GSA, 'A' to adjust due-in, '*' or 'X' used for GSA follow-up or cancellation."
^DD(423,361,12.1)="S DIC(""S"")=""Q:'$D(PRCHCS(""""SC""""))  Q:'$D(PRCFA(""""TT""""))  Q:PRCHCS(""""SC"""")=""""""""  I $S(PRCFA(""""TT"""")=700:""""*C""""[Y,PRCHCS(""""SC"""")=3:""""*X""""[Y,1:""""AC""""[Y)"""
^DD(423,361,21,0)="^^2^2^2930204^^"
^DD(423,361,21,1,0)="This code indicates whether there should be cancellation or adjustment"
^DD(423,361,21,2,0)="of due-ins; or GSA cancellation or follow-up. "
^DD(423,361,"DT")="2890417"
^DD(423,362,0)="PUSH RELEASE^FX^^301;31^S X=""PUSH RELEASE"""
^DD(423,362,3)="Must contain the words 'PUSH RELEASE'"
^DD(423,362,"DT")="2881216"
^DD(423,364,0)="FEDERAL SUPPLY CLASSIFICATION^RP441.2'O^PRC(441.2,^301;35^Q"
^DD(423,364,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""    """
^DD(423,364,2.1)="I $D(PRCHLOG) S:Y="""" Y=""    """
^DD(423,364,21,0)="^^2^2^2920114^"
^DD(423,364,21,1,0)="This is a pointer to the Federal Supply Classification (FSC) file,"
^DD(423,364,21,2,0)="#441.2.  It is the FSC of the requisition."
^DD(423,364,"DT")="2890502"
^DD(423,365,0)="SERIAL NO.(FOLLOW-UP/CANCEL)^FOX^^301;36^K:$L(X)>5!($L(X)<5)!'(X?1""*""4N) X I $D(X) K:$E(X,2,5)'>5000 X"
^DD(423,365,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,365,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,365,3)="For follow-up or cancellation--enter an asterisk, followed by a 4 digit serial number greater than 5000."
^DD(423,365,21,0)="^^1^1^2930204^^"
^DD(423,365,21,1,0)="This is an indicator to follow-up or cancel a requisition."
^DD(423,365,"DT")="2930204"
^DD(423,366,0)="SERIAL NO.(DLA)^NJ4,0O^^301;34^K:+X'=X!(X>9999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(423,366,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""    """
^DD(423,366,2.1)="I $D(PRCHLOG) S:Y="""" Y=""    """
^DD(423,366,3)="Enter DLA Serial No., if Facility Assigned.  Type a Number between 1000 and 9999, 0 Decimal Digits"
^DD(423,366,21,0)="^^2^2^2920114^"
^DD(423,366,21,1,0)="This is the Defense Logistics Agency (DLA) serial number for the"
^DD(423,366,21,2,0)="requisition that is assigned by the facility ."
^DD(423,366,"DT")="2890425"
^DD(423,367,0)="DOCUMENT IDENTIFIER (DLA)^RF^^301;37^K:$L(X)>6!($L(X)<6) X"
^DD(423,367,3)="Enter entire assigned common number, including Fiscal Year (PAT number).  Answer must be 6 characters in length."
^DD(423,367,21,0)="^^2^2^2920114^"
^DD(423,367,21,1,0)="This is the assigned common number, including Fiscal Year (i.e., PAT -"
^DD(423,367,21,2,0)="Pending Accounting Transaction - number)."
^DD(423,367,"DT")="2891025"
^DD(423,368,0)="DEPOT VOUCHER^RFO^^301;38^K:$L(X)>5!($L(X)<5) X"
^DD(423,368,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,368,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,368,3)="Enter the depot voucher number from the shipping document.  5 characters, cannot be blank."
^DD(423,368,21,0)="^^1^1^2920115^"
^DD(423,368,21,1,0)="This is the depot voucher (number) found on the shipping document."
^DD(423,368,"DT")="2910212"
^DD(423,369,0)="REQUISITION NO.^RF^^301;39^K:$L(X)>5!($L(X)<5) X"
^DD(423,369,3)="Enter facility requisition number--3 character sequential number followed by Fiscal Year.  (5 characters, cannot be blank)."
^DD(423,369,21,0)="^^2^2^2920115^"
^DD(423,369,21,1,0)="This is the facility requisition number, a three (3) character"
^DD(423,369,21,2,0)="sequential number, followed by Fiscal Year (e.g.,12391)."
^DD(423,369,"DT")="2890501"
^DD(423,370,0)="CANCEL/ADJUST/RELEASE^R*S^C:CANCEL ALL TRANSACTIONS;R:RELEASE ALL/ADJUST SINGLE ITEM;P:RELEASE SINGLE ITEM;^301;40^Q"
^DD(423,370,3)="For processing entire requisition, use 'C' to cancel, 'R' to release all line/items.  For single line/item, use 'R' to adjust item, 'P' to release item."
^DD(423,370,12)="Use C or R for processing entire requisition, R or P for single line/item."
^DD(423,370,12.1)="S DIC(""S"")=""I $S($D(PRCHTYP):""""CR""""[Y,1:""""CRP""""[Y)"""
^DD(423,370,21,0)="^^3^3^2920116^^^"
^DD(423,370,21,1,0)="This code indicates, for processing requisitions, whether there should"
^DD(423,370,21,2,0)="be cancellation of all transactions (C); release of all or adjustment"
^DD(423,370,21,3,0)="of a single item (R); or release of a single item (P). "
^DD(423,370,"DT")="2890501"
^DD(423,371,0)="VALUE (OLD)^RNJ8,2O^^301;41^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(423,371,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""       "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,371,2.1)="I $D(PRCHLOG) S:Y="""" Y=""       "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,371,3)="Enter value from shipping document.  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(423,371,21,0)="^^1^1^2920116^"
^DD(423,371,21,1,0)="This is a dollar amount indicating the original value of the shipment. "
^DD(423,371,"DT")="2890523"
^DD(423,372,0)="VALUE (NEW)^NJ8,2O^^301;42^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(423,372,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""       "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2),PRCFLN=7 D LZF^PRCFU"
^DD(423,372,2.1)="I $D(PRCHLOG) S:Y="""" Y=""       "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2),PRCFLN=7 D LZF^PRCFU"
^DD(423,372,3)="Enter new value for change, leave blank for cancellation or for individual release of original value.  Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(423,372,21,0)="^^2^2^2920116^^^^"
^DD(423,372,21,1,0)="This is the dollar amount indicating a change from the original value"
^DD(423,372,21,2,0)="of the shipment."
^DD(423,372,"DT")="2890523"
^DD(423,373,0)="QUANTITY (OLD)^RNJ5,0O^^301;43^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,373,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     "" I Y S PRCFLN=5 D LZF^PRCFU"
^DD(423,373,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     "" I Y S PRCFLN=5 D LZF^PRCFU"
^DD(423,373,3)="Enter quantity from shipping document.  Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(423,373,21,0)="^^1^1^2920116^"
^DD(423,373,21,1,0)="This is the original quantity specified on the shipping document."
^DD(423,373,"DT")="2890523"
^DD(423,374,0)="QUANTITY (NEW)^NJ5,0O^^301;44^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,374,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     "" I Y S PRCFLN=5 D LZF^PRCFU"
^DD(423,374,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     "" I Y S PRCFLN=5 D LZF^PRCFU"
^DD(423,374,3)="Enter new quantity for change, leave blank for cancellation or for individual release of original quantity.  Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(423,374,21,0)="^^2^2^2920117^^"
^DD(423,374,21,1,0)="This is the new quantity, a change from the original quantity specified"
^DD(423,374,21,2,0)="on the shipping document."
^DD(423,374,"DT")="2890523"
^DD(423,375,0)="NONISSUABLE^SO^N:PICK UP INTO NONISSUABLE;^301;45^Q"
^DD(423,375,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,375,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,375,3)="Enter an 'N' to pick up into nonissuable stock, or leave empty for regular."
^DD(423,375,21,0)="^^1^1^2920117^^"
^DD(423,375,21,1,0)="This is the code indicating nonissuable stock(N)."
^DD(423,375,"DT")="2890522"
^DD(423,376,0)="ACCOUNT (NONISSUABLE)^FO^^301;46^K:$L(X)>1!($L(X)<1) X"
^DD(423,376,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,376,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,376,3)="Enter 1 character nonissuable account code if previous field set to 'N' (Nonissuable), or leave empty for regular."
^DD(423,376,21,0)="^^2^2^2920117^"
^DD(423,376,21,1,0)="This is the nonissuable account code specified if (N) is placed in the"
^DD(423,376,21,2,0)="field indicating nonissuable stock. "
^DD(423,376,"DT")="2890522"
^DD(423,377,0)="DOCUMENT NUMBER (LOG)^RF^^302;1^K:$L(X)>5!($L(X)<5) X"
^DD(423,377,3)="For Posted Receipts--Enter Requisition No. for Source 1 (DEPOT), Common Number otherwise.  ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,377,21,0)="^^2^2^2920117^"
^DD(423,377,21,1,0)="This is the requisition number for Source 1 (Depot), under Posted"
^DD(423,377,21,2,0)="Receipts.  Otherwise, it is the common number."
^DD(423,377,"DT")="2890511"
^DD(423,378,0)="DOCUMENT IDENTIFIER (DRUGS)^FO^^302;3^K:$L(X)>5!($L(X)<5) X"
^DD(423,378,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,378,2.1)="I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,378,3)="Enter DEPOT drug requisition number.  If blank, cc 40-44 (DOCUMENT IDENTIFIER) will be used.  ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,378,21,0)="^^1^1^2920117^"
^DD(423,378,21,1,0)="This is the Depot drug requisition number."
^DD(423,378,"DT")="2890608"
^DD(423,379,0)="DOCUMENT ID (SUBSISTENCE)^FO^^302;4^K:$L(X)>5!($L(X)<5) X"
^DD(423,379,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,379,2.1)="I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,379,3)="Enter DEPOT subsistence requisition number.  If blank, cc 40-44 (DOCUMENT IDENTIFIER) will be used.  ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,379,21,0)="^^1^1^2920117^"
^DD(423,379,21,1,0)="This is the Depot drug subsistence number."
^DD(423,379,"DT")="2890608"
^DD(423,380,0)="COMMON NUMBER (DRUGS)^FO^^302;5^K:$L(X)>5!($L(X)<5) X"
^DD(423,380,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,380,2.1)="I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,380,3)="Enter common number for DEPOT drugs, or leave blank.  If coded, cc 47-51 (DOCUMENT ID (DRUGS)) MUST be coded.  ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,380,21,0)="^^1^1^2920117^"
^DD(423,380,21,1,0)="This is the common number for Depot drugs."
^DD(423,380,"DT")="2890608"
^DD(423,381,0)="COMMON NUMBER (SUBSISTENCE)^FO^^302;6^K:$L(X)>5!($L(X)<5) X"
^DD(423,381,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,381,2.1)="I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,381,3)="Enter common number for DEPOT subsistence, or leave blank.  If coded, cc 54-58 (DOCUMENT ID (SUBSISTENCE)) MUST be coded.  ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,381,21,0)="^^1^1^2920117^"
^DD(423,381,21,1,0)="This is the common number for Depot subsistence."
^DD(423,381,"DT")="2890608"
^DD(423,382,0)="COMMON NUMBER (DEPOT REGULAR)^FO^^302;7^K:$L(X)>5!($L(X)<5) X"
^DD(423,382,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,382,2.1)="I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,382,3)="Enter common number for DEPOT regular, or leave blank.  If coded, CC 40-44 (DOCUMENT IDENTIFIER) must be coded.  ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423,382,21,0)="^^1^1^2920117^"
^DD(423,382,21,1,0)="This is the common number for Depot regular posted stock."
^DD(423,382,"DT")="2890608"
^DD(423,383,0)="EMERGENCY SOURCE 2 PROCUREMENT^SO^*:YES;^302;8^Q"
^DD(423,383,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,383,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,383,3)="If this code sheet is for Emergency Procurement from Source 2, for either Drugs (commodity code 1) or Other Medical (commodity code 2), enter an asterisk (*)."
^DD(423,383,21,0)="^^2^2^2920117^"
^DD(423,383,21,1,0)="This an emergency procurement for drugs (commodity code 1) or other"
^DD(423,383,21,2,0)="medical stock (commodity code 2)."
^DD(423,383,"DT")="2900118"
^DD(423,384,0)="AMENDMENT NUMBER^NJ3,0O^^302;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,384,2)="S Y(0)=Y I $D(PRCHLOG) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(423,384,2.1)="I $D(PRCHLOG) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(423,384,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(423,384,21,0)="^^1^1^2900306^"
^DD(423,384,21,1,0)="Purchase Order Amendment number"
^DD(423,384,"DT")="2900215"
^DD(423,385,0)="PURCHASE ORDER DATE^DO^^302;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,385,2)="S Y(0)=Y X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""      "" S:Y Y=$E(Y,4,7)_$E(Y,2,3)"
^DD(423,385,2.1)="X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""      "" S:Y Y=$E(Y,4,7)_$E(Y,2,3)"
^DD(423,385,10)="Purchase order file #442"
^DD(423,385,21,0)="^^1^1^2900306^"
^DD(423,385,21,1,0)="This is the date the purchase order was issued."
^DD(423,385,"DT")="2900215"
^DD(423,386,0)="PURCHASE AUTHORIZATION NUMBER^NJ5,0O^^303;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,386,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,386,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,386,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(423,386,"DT")="2900215"
^DD(423,387,0)="DELIVERY POINT^RSO^793:HINES;794:SOMMERVILLE;79A:BELL;^303;2^Q"
^DD(423,387,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,387,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,387,3)="Enter the number of the Depot where delivery is to be made."
^DD(423,387,21,0)="^^1^1^2920117^"
^DD(423,387,21,1,0)="This is the number of the Depot where delivery is to be made."
^DD(423,387,"DT")="2900215"
^DD(423,388,0)="UNIT COST (LOG)^NJ8,2O^^303;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(423,388,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""       "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,388,2.1)="I $D(PRCHLOG) S:Y="""" Y=""       "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,388,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(423,388,10)="Purchase Order file (442)"
^DD(423,388,21,0)="^^1^1^2920117^"
^DD(423,388,21,1,0)="This is the dollar amount of the unit."
^DD(423,388,"DT")="2900215"
^DD(423,389,0)="REASON CODE (LOG)^RSO^R:REGULAR;T:TEST;C:CORRECTION; :BLANK;^303;4^Q"
^DD(423,389,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,389,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,389,3)="Leave blank to establish a PO Due-in.  Enter R to delete a regular Due-in or T to delete a Held for Test Due-in.  Enter C to change quantity, unit cost, or scheduled delivery date on a PO Due-in."
^DD(423,389,21,0)="^^3^3^2920117^"
^DD(423,389,21,1,0)="This is a code indicating whether to establish a Purchase Order (PO)"
^DD(423,389,21,2,0)="due-in; delete a regular due-in or delete a Held for Test  due-in; or"
^DD(423,389,21,3,0)="change quantity, unit cost, or schedule the delivery on a PO Due-in. "
^DD(423,389,"DT")="2900228"
^DD(423,390,0)="CORRECTED QUANTITY^NJ5,0O^^303;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,390,2)="S Y(0)=Y I $D(PRCHLOG) S:Y=0 Y=""     "" I Y S PRCFLN=5 D LZF^PRCFU"
^DD(423,390,2.1)="I $D(PRCHLOG) S:Y=0 Y=""     "" I Y S PRCFLN=5 D LZF^PRCFU"
^DD(423,390,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(423,390,21,0)="^^1^1^2920117^"
^DD(423,390,21,1,0)="This is a correction to the quantity specified on the requisition."
^DD(423,390,"DT")="2900215"
^DD(423,391,0)="CORRECTED UNIT COST^NJ8,2O^^303;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(423,391,2)="S Y(0)=Y I $D(PRCHLOG) S:Y=0 Y=""     "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2),PRCFLN=5 D LZF^PRCFU"
^DD(423,391,2.1)="I $D(PRCHLOG) S:Y=0 Y=""     "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2),PRCFLN=5 D LZF^PRCFU"
^DD(423,391,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(423,391,21,0)="^^1^1^2920117^"
^DD(423,391,21,1,0)="This is a correction to the unit cost on the requisition."
^DD(423,391,"DT")="2900215"
^DD(423,392,0)="CORRECTED DELIVERY DATE^DO^^303;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,392,2)="S Y(0)=Y X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""00000"" S:Y Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,2,3)"
^DD(423,392,2.1)="X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""00000"" S:Y Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7)_$E(Y,2,3)"
^DD(423,392,21,0)="^^2^2^2920117^"
^DD(423,392,21,1,0)="This is a correction to the delivery date specified on"
^DD(423,392,21,2,0)="the requisition."
^DD(423,392,"DT")="2900215"
^DD(423,393,0)="LOG DATE^RDO^^304;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,393,2)="S Y(0)=Y X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y]"""" Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7) S:Y="""" Y=""   """
^DD(423,393,2.1)="X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y]"""" Y=$E(""1234567890JK"",+$E(Y,4,5))_$E(Y,6,7) S:Y="""" Y=""   """
^DD(423,393,3)="Enter the date that the receipt was processed or accepted."
^DD(423,393,21,0)="^^1^1^2900306^^^^"
^DD(423,393,21,1,0)="Date for LOG transactions on which the receipt was processed or accepted"
^DD(423,393,22)=""
^DD(423,393,"DT")="2900306"
^DD(423,394,0)="EXPIRATION/DATE OF PACK^DOX^^304;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(PRCHDEP) D EXP^PRCHREC7"
^DD(423,394,2)="S Y(0)=Y X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y]"""" Y=$E(Y,3)_$E(""1234567890JK"",+$E(Y,4,5)) S:Y="""" Y=""  """
^DD(423,394,2.1)="X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y]"""" Y=$E(Y,3)_$E(""1234567890JK"",+$E(Y,4,5)) S:Y="""" Y=""  """
^DD(423,394,3)="Food must have Date of Pack, drugs must have Expiration Date."
^DD(423,394,21,0)="^^2^2^2920117^"
^DD(423,394,21,1,0)="This is mandatory information on the stock, including the date of the"
^DD(423,394,21,2,0)="pack, or the expiration date of the drug."
^DD(423,394,"DT")="2900815"
^DD(423,395,0)="COMPLETION CODE (LOG)^RS^1:COMPLETE;2:COMP IN 2 LINES;3:COMP IN 3 LINES;4:COMP IN 4 LINES;5:COMP IN 5 LINES;6:COMP IN 6 LINES;7:COMP IN 7 LINES;8:COMP IN 8 LINES;9:COMP IN 9 LINES;0:PARTIAL;-:NO DUE-IN EST.;T:TEST;^304;3^Q"
^DD(423,395,3)="Enter ""0"" for a partial; ""1, 2, 3, through 9"" for a complete receipt, (This indicates the number of trans. submitted for this item). The same number must appear on all input for this receipt"
^DD(423,395,21,0)="^^3^3^2930204^^"
^DD(423,395,21,1,0)="This is a code indicating the number of transactions submitted for the"
^DD(423,395,21,2,0)="item, including 0 for a partial receipt or 1 through 9 for a complete"
^DD(423,395,21,3,0)="receipt; (-) for No Due-In Est.(estimate); or T for Test."
^DD(423,395,"DT")="2900406"
^DD(423,396,0)="CONDITION CODE (LOG)^RS^1:ISSUABLE;^304;4^Q"
^DD(423,396,21,0)="^^1^1^2920117^^"
^DD(423,396,21,1,0)="This is the code indicating whether the stock is ready for issue."
^DD(423,396,"DT")="2900208"
^DD(423,397,0)="PRIORITY CODE (LOG)^RS^N:NORMAL;P:PRIORITY;B:BROKEN;L:LOOSE;^304;5^Q"
^DD(423,397,3)="Enter ""N"" for normal stock, ""P"" for priority issue, ""L"" for loose issue or intermediate packs, or ""B"" for a broken pack on a mandatory issue package. (*IP or *OP)"
^DD(423,397,21,0)="^^3^3^2920117^"
^DD(423,397,21,1,0)="This a code indicating the condition of the stock, including N for"
^DD(423,397,21,2,0)="normal stock; P for priority issue; L for loose issue; or B for broken"
^DD(423,397,21,3,0)="pack on a mandatory issue package."
^DD(423,397,"DT")="2900208"
^DD(423,398,0)="WEIGHT^NJ4,0O^^304;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,398,2)="S Y(0)=Y I $D(PRCHLOG) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(423,398,2.1)="I $D(PRCHLOG) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(423,398,3)="Enter the weight of the original pack for broken or whole O/P's.                Enter zero for loose issue or broken I/P's."
^DD(423,398,21,0)="^^3^3^2920117^"
^DD(423,398,21,1,0)="This is the weight (of the original pack ) used to represent the broken"
^DD(423,398,21,2,0)="or whole original pack.  Loose issue or broken intermediate packs"
^DD(423,398,21,3,0)="require an entry of zero (0)."
^DD(423,398,"DT")="2900214"
^DD(423,399,0)="CUBE^NJ2,0OX^^304;7^K:X'?3N X S:$D(X) X=X/10"
^DD(423,399,2)="S Y(0)=Y I $D(PRCHLOG) S Y=Y+.05*100\10,Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(423,399,2.1)="I $D(PRCHLOG) S Y=Y+.05*100\10,Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(423,399,3)="Enter to the nearest tenth, the cubic feet of the original pack.               Do not include decimal point. i.e. 1.4 = 014"
^DD(423,399,21,0)="^^1^1^2920117^"
^DD(423,399,21,1,0)="This is the measurement (in cubic ft.) of the original pack."
^DD(423,399,"DT")="2900725"
^DD(423,400,0)="FCC SUFFIX^SO^  :DEFAULT;^304;8^Q"
^DD(423,400,2)="S Y(0)=Y I $D(PRCHLOG) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(423,400,2.1)="I $D(PRCHLOG) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(423,400,3)=""
^DD(423,400,"DT")="2900214"
^DD(423,401,0)="LOCATION^FOX^^304;9^K:'(X?1.2N1U3N!(X?1""R ""4N)) X"
^DD(423,401,2)="S Y(0)=Y I $D(PRCHLOG) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(423,401,2.1)="I $D(PRCHLOG) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(423,401,3)="Enter storage location of item received (Area, Bay, Row). i.e. 22A333           Enter R nnnn for bulk locations.  i.e. R 1234"
^DD(423,401,21,0)="^^3^3^2920117^"
^DD(423,401,21,1,0)="This is the identification for the storage location (area, bay, or row)"
^DD(423,401,21,2,0)=" of the item received (e.g., 22A333 - non-bulk location; R 1234 - bulk"
^DD(423,401,21,3,0)="location)."
^DD(423,401,"DT")="2900725"
^DD(423,402,0)="UNITS IN O/P^NJ4,0O^^304;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,402,2)="S Y(0)=Y I $D(PRCHLOG) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(423,402,2.1)="I $D(PRCHLOG) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(423,402,3)="Enter the number of units in the original pack. For loose issue, enter 1.  For broken O/P's or I/P's this field must be the same as the quantity field."
^DD(423,402,21,0)="^^3^3^2920117^"
^DD(423,402,21,1,0)="This is the number of units in the original pack.  Loose issue requires"
^DD(423,402,21,2,0)="an entry of 1; broken O/Ps or I/Ps (original packs or intermediate"
^DD(423,402,21,3,0)="packs) require an entry corresponding with that of the Quantity field."
^DD(423,402,"DT")="2900214"
^DD(423,403,0)="TRANSPORTATION COSTS^NJ6,2O^^304;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(423,403,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=5 D LZF^PRCFU K Z"
^DD(423,403,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     "" I Y S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=5 D LZF^PRCFU K Z"
^DD(423,403,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits                     Enter the transportation cost for this line item, if FOB origin."
^DD(423,403,21,0)="^^1^1^2920117^"
^DD(423,403,21,1,0)="This is the transportation cost for the line item (if origin is FOB)."
^DD(423,403,"DT")="2900214"
^DD(423,404,0)="VALUE (LOG)^NJ9,2O^^304;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(423,404,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""        "" I Y'=""        "" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=8 D LZF^PRCFU"
^DD(423,404,2.1)="I $D(PRCHLOG) S:Y="""" Y=""        "" I Y'=""        "" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=8 D LZF^PRCFU"
^DD(423,404,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(423,404,"DT")="2900214"
^DD(423,405,0)="QUANTITY (401)^NJ6,0O^^304;13^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,405,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""      "" I Y S PRCFLN=6 D LZF^PRCFU"
^DD(423,405,2.1)="I $D(PRCHLOG) S:Y="""" Y=""      "" I Y S PRCFLN=6 D LZF^PRCFU"
^DD(423,405,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(423,405,"DT")="2900215"
^DD(423,406,0)="DUE-IN (401)^DO^^304;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,406,2)="S Y(0)=Y X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""      "" S:Y Y=$E(Y,4,7)_$E(Y,2,3)"
^DD(423,406,2.1)="X:'$D(PRCHLOG) ^DD(""DD"") I $D(PRCHLOG) S:Y="""" Y=""      "" S:Y Y=$E(Y,4,7)_$E(Y,2,3)"
^DD(423,406,"DT")="2900215"
^DD(423,407,0)="DEPOT (HINES)^RS^793:HINES;794:SOMMERVILLE;79A:BELL;^304;15^Q"
^DD(423,407,3)="Enter the Depot if this is for Bell or Sommerville."
^DD(423,407,21,0)="^^2^2^2930204^^"
^DD(423,407,21,1,0)="This is the code indicating the Depot (i.e., Hines = 793; Sommerville ="
^DD(423,407,21,2,0)="794; and Bell = 79A)."
^DD(423,407,"DT")="2900223"
^DD(423,408,0)="DEPOT CODE^RS^7M1:MEDICAL SUPPLIES;7M4:SUBSISTENCE;7M5:DRUGS;^304;16^Q"
^DD(423,408,3)="Enter 7M1, 7M4 or 7M5 to indicate MEDICAL SUPPLIES, SUBSISTENCE OR DRUGS resp."
^DD(423,408,21,0)="^^2^2^2920117^"
^DD(423,408,21,1,0)="This is the depot code representing medical supplies, subsistence, or"
^DD(423,408,21,2,0)="drugs (i.e., 7M1, 7M4 , or 7M5, respectively)."
^DD(423,408,"DT")="2900312"
^DD(423,409,0)="CONTAINER TYPE^RS^CT:CARTON;SA:SACK;XX:OTHER;^304;17^Q"
^DD(423,409,3)="Enter Carton, Sack or Other for the type of container received."
^DD(423,409,21,0)="^^2^2^2920117^"
^DD(423,409,21,1,0)="This is the type of container received (i.e., CT = Carton; SA = Sack;"
^DD(423,409,21,2,0)="and XX = other)."
^DD(423,409,"DT")="2900730"
^DD(423,410,0)="SUFFIX (664)^FO^^200;1^K:$L(X)>1!($L(X)<1) X"
^DD(423,410,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,410,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,410,3)="Enter department suffix when separate issue book is desired for selected         items within a department."
^DD(423,410,"DT")="2910426"
^DD(423,411,0)="TYPE TRANS (664)^RS^A:ESTABLISH NEW DEPARTMENT;C:CHANGE;D:DELETE;A:ADD;L:LABELS;M:REPORT 039;P:ISSUE BOOKS AND WORKDECKS;X:EXPANDED NOMENCLATURE CATALOG;^200;2^Q"
^DD(423,411,3)="ENTER IDENTIFIER FOR THIS TRANSACTION TYPE."
^DD(423,411,"DT")="2910409"
^DD(423,412,0)="LEVEL (664)^FO^^200;3^K:$L(X)>5!($L(X)<5)!'((X?.N)!(X=""*****"")) X"
^DD(423,412,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,412,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     """
^DD(423,412,3)="Enter assigned consumer level or ***** to delete."
^DD(423,412,"DT")="2910426"
^DD(423,413,0)="SEQUENCE (664)^FO^^200;4^K:$L(X)>4!($L(X)<4)!'((X?.N)!(X=""STKN"")!(X=""INDX"")) X"
^DD(423,413,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""    """
^DD(423,413,2.1)="I $D(PRCHLOG) S:Y="""" Y=""    """
^DD(423,413,3)="Enter specific number if desired or leave blank for alpha sequence.  Enter  STKN for stock number sequence or INDX to remove previous designation."
^DD(423,413,"DT")="2910426"
^DD(423,414,0)="FREQUENCY (664)^SO^M:MONTHLY;Q:QUARTERLY;0:DEFAULT;^200;5^Q"
^DD(423,414,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,414,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,414,3)="Enter M to change to monthly print, Q if desired quarterly or 0 change to         same 6 month schedule as facility header."
^DD(423,414,"DT")="2910409"
^DD(423,415,0)="COPIES (664)^NJ3,0O^^200;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,415,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   "" I Y S PRCFLN=3 D LZF^PRCFU"
^DD(423,415,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   "" I Y S PRCFLN=3 D LZF^PRCFU"
^DD(423,415,3)="Enter new number of copies or leave blank."
^DD(423,415,"DT")="2910409"
^DD(423,416,0)="DECKS (664)^NJ2,0O^^200;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,416,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""  "" I Y S PRCFLN=2 D LZF^PRCFU"
^DD(423,416,2.1)="I $D(PRCHLOG) S:Y="""" Y=""  "" I Y S PRCFLN=2 D LZF^PRCFU"
^DD(423,416,3)="Enter new number of decks, or leave blank."
^DD(423,416,"DT")="2910411"
^DD(423,417,0)="SUPPL ID (664)^FO^^200;8^K:$L(X)>20!($L(X)<1) X"
^DD(423,417,.1)="Supplementary Identification"
^DD(423,417,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU"
^DD(423,417,2.1)="I $D(PRCHLOG) S PRCFLN=20 D RBF^PRCFU"
^DD(423,417,3)="Enter new identification to change, enter a minus (-) to delete."
^DD(423,417,"DT")="2910409"
^DD(423,418,0)="COST CENTER (664)^NJ6,0O^^200;9^K:+X'=X!(X>999999)!(X<100000)!(X?.E1"".""1N.N) X"
^DD(423,418,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""      """
^DD(423,418,2.1)="I $D(PRCHLOG) S:Y="""" Y=""      """
^DD(423,418,3)="Type a Number between 100000 and 999999, 0 Decimal Digits"
^DD(423,418,"DT")="2910411"
^DD(423,419,0)="CONTROL POINT (664)^FO^^200;11^K:$L(X)>3!($L(X)<3)!'((X=""OGA"")!(X=""CTN"")!(X>16)) X"
^DD(423,419,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,419,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,419,3)="Answer must be from 017 to 999 or OGA or CTN."
^DD(423,419,"DT")="2910426"
^DD(423,420,0)="DEPT NO. (664)^FO^^200;10^K:$L(X)>3!($L(X)<3)!'((X>-1)!(X=""OGA"")!(X=""CTN"")) X"
^DD(423,420,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,420,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,420,3)="Enter the department number as 3 digits (i.e. 003, 017, etc.) or OGA or CTN."
^DD(423,420,"DT")="2910426"
^DD(423,421,0)="NON ADJ REASON CODE^RSO^A:ISSUABLE TO NONISSUABLE;B:NONISSUABLE TO ISSUABLE;C:+ OR - NONISSUABLE;D:RECALL ISSUABLE TO NON;E:RELEASE NON TO ISSUABLE;F:RECALL, RETURNS, CREDITS;G:INVENTORY;H:DAMAGE;I:ERROR;J:SURVEY;^201;1^Q"
^DD(423,421,.1)="Nonissuable Adjustment Reason Code"
^DD(423,421,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,421,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,421,"DT")="2910416"
^DD(423,422,0)="GL ACCOUNT CODE^*P441.4'O^PRCD(441.4,^201;2^S DIC(""S"")=""I $P(^(0),U,2)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423,422,2)="S Y(0)=Y S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,422,2.1)="S:$D(^PRCD(441.4,+Y,0)) Y=$P(^(0),U,1) I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,422,12)="Enter applicable account code. (See MP-6 Part 14 Supp-6.1 Par. 1201.03)"
^DD(423,422,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""C"""""""
^DD(423,422,"DT")="2910416"
^DD(423,423,0)="+ OR -^SO^+:PLUS;-:MINUS;^201;3^Q"
^DD(423,423,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,423,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,423,3)="Enter ""+"" (Plus Sign) to increase or ""-"" (Minus Sign) to decrease."
^DD(423,423,"DT")="2910416"
^DD(423,424,0)="QUANTITY (605)^NJ5,0O^^201;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423,424,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""     "" I Y]"" "" S PRCFLN=5 D LZF^PRCFU"
^DD(423,424,2.1)="I $D(PRCHLOG) S:Y="""" Y=""     "" I Y]"" "" S PRCFLN=5 D LZF^PRCFU"
^DD(423,424,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(423,424,"DT")="2910619"
^DD(423,425,0)="VALUE (605)^NJ8,2O^^201;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(423,425,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""       "" I Y]"" "" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,425,2.1)="I $D(PRCHLOG) S:Y="""" Y=""       "" I Y]"" "" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,425,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(423,425,"DT")="2910619"
^DD(423,426,0)="QUAN/VAL ADJ REASON CODE^RSO^A:WAREHOUSE INVENTORY;B:REPORT OF SURVEY;C:DAMAGE;E:ERRONEOUS INPUT;F:RECALLS, RETURNS AND CREDITS;^201;6^Q"
^DD(423,426,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,426,2.1)="I $D(PRCHLOG) S:Y="""" Y="" """
^DD(423,426,3)="Enter the Reason Code for the Quantity and/or Value Adjustment."
^DD(423,426,"DT")="2910416"
^DD(423,427,0)="CHANGE ADJ REASON CODE^RS^A:CHANGE OF ISSUE;C:CHANGE OF ISSUE TO NONISSUABLE;D:CHANGE OF ISSUE-DROP;E:CHANGE OF ISSUE-DIETETIC ONLY;^201;7^Q"
^DD(423,427,3)="Enter the reason code for the change adjustment."
^DD(423,427,"DT")="2910424"
^DD(423,428,0)="COMMON NUMBER (607D)^FO^^201;8^K:$L(X)>5!($L(X)<5) X"
^DD(423,428,2)="S Y(0)=Y I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,428,2.1)="I $D(PRCHLOG) S PRCFLN=5 D RBF^PRCFU"
^DD(423,428,3)="Enter the common number the quantity is to be dropped on."
^DD(423,428,"DT")="2910419"
^DD(423,429,0)="SELLING COST^RNJ8,2O^^201;9^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(423,429,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""       "" I Y]"""" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,429,2.1)="I $D(PRCHLOG) S:Y="""" Y=""       "" I Y]"""" S Y=$J(Y,0,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S PRCFLN=7 D LZF^PRCFU"
^DD(423,429,3)="Type a Number between 0 and 99999.99, 2 Decimal Digits"
^DD(423,429,"DT")="2910619"
^DD(423,430,0)="ORIGINAL TRANS CODE^RFO^^201;10^K:$L(X)>3!($L(X)<3) X"
^DD(423,430,2)="S Y(0)=Y I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,430,2.1)="I $D(PRCHLOG) S:Y="""" Y=""   """
^DD(423,430,3)="Enter the transaction code of the original issue."
^DD(423,430,"DT")="2910419"
^DD(423,500,0)="ISMS IDENTIFIER^RS^ISM:ISMS;PSM:PRISM;^50;1^Q"
^DD(423,500,"DT")="2920124"
^DD(423,501,0)="ISMS TRANS DATE^RDO^^50;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,501,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S Z0=$E(Y,1,3),X=Y D JD^PRCFDLN S Y=Z0+1700_$E(Y,1,3) K Z0"
^DD(423,501,2.1)="I $D(PRCF(""OUT"")) S Z0=$E(Y,1,3),X=Y D JD^PRCFDLN S Y=Z0+1700_$E(Y,1,3) K Z0"
^DD(423,501,"DT")="2910904"
^DD(423,502,0)="ISMS TRANS TIME^RDO^^50;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(423,502,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S Y=$E(Y#1+.0000001,2,7)"
^DD(423,502,2.1)="I $D(PRCF(""OUT"")) S Y=$E(Y#1+.0000001,2,7)"
^DD(423,502,"DT")="2910911"
^DD(423,503,0)="ISMS REFERENCE NO.^RF^^50;4^K:$L(X)>11!($L(X)<3) X"
^DD(423,503,3)="Answer must be 3-11 characters in length."
^DD(423,503,"DT")="2910830"
^DD(423,503.1,0)="ISMS SEQUENCE NUMBER^NJ3,0^^50;17^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,503.1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(423,503.1,"DT")="2911122"
^DD(423,503.2,0)="ISMS TOTAL SEQUENCE^NJ3,0^^50;18^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,503.2,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(423,503.2,"DT")="2911122"
^DD(423,504,0)="ISMS TRANS INT VER^RNJ1,0^^50;5^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,504,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(423,504,"DT")="2910830"
^DD(423,505,0)="NATIONAL STOCK NUMBER^RFO^^50;6^K:$L(X)>16!($L(X)<16)!'(X?4N1""-""2N1""-""3N1""-""4N) X"
^DD(423,505,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S Y=$TR(Y,""-"")"
^DD(423,505,2.1)="I $D(PRCF(""OUT"")) S Y=$TR(Y,""-"")"
^DD(423,505,3)="Answer must be 16 characters in length.i.e. 6505-01-001-0001"
^DD(423,505,"DT")="2910906"
^DD(423,506,0)="ISMS SEGMENT TYPE^RF^^50;7^K:$L(X)>3!($L(X)<3) X"
^DD(423,506,3)="Answer must be 3 characters in length."
^DD(423,506,"DT")="2910831"
^DD(423,507,0)="ISMS TRANS TERMINATOR^F^^50;8^K:$L(X)>2!($L(X)<2) X"
^DD(423,507,3)="Answer must be 2 characters in length."
^DD(423,507,"DT")="2910903"
^DD(423,515.85,0)="ISMS VENDOR STATE^F^^56;22^K:$L(X)>2!($L(X)<2) X"
^DD(423,515.85,3)="Answer must be 2 characters in length."
^DD(423,515.85,"DT")="2911210"
^DD(423,516,0)="SEGMENT 6 TYPE^F^^50;13^K:$L(X)>3!($L(X)<3) X"
^DD(423,516,3)="Answer must be 3 characters in length."
^DD(423,516,"DT")="2910831"
^DD(423,520,0)="LINE COUNT^NJ3,0^^50;14^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,520,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(423,520,"DT")="2910901"
^DD(423,521,0)="L/C REFERENCE NO.^F^^50;15^K:$L(X)>11!($L(X)<3) X"
^DD(423,521,3)="Answer must be 3-11 characters in length."
^DD(423,521,"DT")="2910901"
^DD(423,530,0)="ISMS LINE ITEM^423.19A^^52;0"
^DD(423,530,"DT")="2911125"
^DD(423,550,0)="NX ITEMS^423.2^^57;0"
^DD(423,581,0)="ISMS COST CENTER^RNJ6,0^^56;5^K:+X'=X!(X>999999)!(X<100000)!(X?.E1"".""1N.N) X"
^DD(423,581,3)="Type a Number between 100000 and 999999, 0 Decimal Digits"
^DD(423,581,"DT")="2910910"
^DD(423,582,0)="ISMS FCP #^RNJ4,0^^56;6^K:+X'=X!(X>9999)!(X<10)!(X?.E1"".""1N.N) X"
^DD(423,582,3)="Type a Number between 10 and 9999, 0 Decimal Digits"
^DD(423,582,"DT")="2910910"
^DD(423,997,0)="APPROVED BY^F^^0;7^K:$L(X)>15!($L(X)<1) X"
^DD(423,997,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(423,997,21,0)="^^1^1^2930204^^"
^DD(423,997,21,1,0)="This is the person appropriation."
^DD(423,997,"DT")="2850410"
^DD(423,998,0)="AUTOMATIC TERMINATOR^F^^1;16^K:$L(X)>1!($L(X)<1) X"
^DD(423,998,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423,998,21,0)="^^2^2^2930204^^"
^DD(423,998,21,1,0)="This is the automatic terminator for this"
^DD(423,998,21,2,0)="code sheet."
^DD(423,998,"DT")="2850409"
^DD(423,999,0)="COMPLETED BY^RP200'^VA(200,^0;8^Q"
^DD(423,999,1,0)="^.1^^0"
^DD(423,999,3)=""
^DD(423,999,21,0)="^^1^1^2930406^^^^"
^DD(423,999,21,1,0)="This is the person completing the code sheet."
^DD(423,999,"DT")="2930127"
^DD(423,999.1,0)="COMPLETED BY INITIALS^CJ8^^ ; ^X ^DD(423,999.1,9.2) S Y(423,999.1,101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(423,999.1,101),U,2) S D0=Y(423,999.1,80)"
^DD(423,999.1,9)="^"
^DD(423,999.1,9.01)="200^1;423^999"
^DD(423,999.1,9.1)="COMPLETED BY:INITIAL"
^DD(423,999.1,9.2)="S Y(423,999.1,80)=$S($D(D0):D0,1:""""),Y(423,999.1,1)=$S($D(^PRCF(423,D0,0)):^(0),1:""""),D0=$P(Y(423,999.1,1),U,8) S:'$D(^VA(200,+D0,0)) D0=-1"
^DD(423,999.1,21,0)="^^2^2^2930405^^^^"
^DD(423,999.1,21,1,0)="These are the initials of the person who completes"
^DD(423,999.1,21,2,0)="the code sheet."
^DD(423,999.1,"DT")="2870420"
^DD(423,999.2,0)="USER LOGGED IN^P200'^VA(200,^TRANS;7^Q"
^DD(423,999.2,9)="^"
^DD(423,999.2,21,0)="^^2^2^2921221^^"
^DD(423,999.2,21,1,0)="This is the user who is logged in at the time the code sheet is "
^DD(423,999.2,21,2,0)="created."
^DD(423,999.2,"DT")="2921221"
^DD(423,999.3,0)="VALIDATION CODE^FOI^^8;16^K:$L(X)>30!($L(X)<2) X"
^DD(423,999.3,2)="S Y(0)=Y S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFES1(D0)"
^DD(423,999.3,2.1)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCFES1(D0)"
^DD(423,999.3,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(423,999.3,8.5)="^"
^DD(423,999.3,9)="^"
^DD(423,999.3,21,0)="^^3^3^2930127^^^^"
^DD(423,999.3,21,1,0)="This is the electronic signature of the person"
^DD(423,999.3,21,2,0)="releasing the code sheet."
^DD(423,999.3,21,3,0)="---------THIS FIELD USED TO BE CALLED ELECTRONIC SIGNATURE-------"
^DD(423,999.3,"DT")="2930127"
^DD(423,999.5,0)="VALIDATION VERSION^NJ11,5O^^8.1;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(423,999.5,2)="S Y(0)=Y S Y=""<HIDDEN>"" Q"
^DD(423,999.5,2.1)="S Y=""<HIDDEN>"" Q"
^DD(423,999.5,3)="Type a Number between 0 and 99999, 5 Decimal Digits"
^DD(423,999.5,21,0)="^^1^1^2930201^^"
^DD(423,999.5,21,1,0)="THIS IS THE VALIDATION VERSION OF A RECORD WITH A VALIDATION CODE ON IT."
^DD(423,999.5,23,0)="^^1^1^2930201^^"
^DD(423,999.5,23,1,0)="THIS IS THE VALIDATION VERSION OF A RECORD WITH A VALIDATION CODE ON IT."
^DD(423,999.5,"DT")="2930125"
^DD(423,999.7,0)="VALIDATION DATE/TIME^D^^8.1;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(423,999.7,21,0)="^^1^1^2930201^"
^DD(423,999.7,21,1,0)="THIS IS THE TIME THE VALIDATION CODE WAS ENTERED ON THE RECORD."
^DD(423,999.7,23,0)="^^1^1^2930201^"
^DD(423,999.7,23,1,0)="THIS IS THE TIME THE VALIDATION CODE WAS ENTERED ON THE RECORD."
^DD(423,999.7,"DT")="2930127"
^DD(423,999.8,0)="ESIG CODE^F^^8.1;3^K:$L(X)>10!($L(X)<1) X"
^DD(423,999.8,3)="Answer must be 1-10 characters in length."
^DD(423,999.8,21,0)="^^1^1^2930414^^^^"
^DD(423,999.8,21,1,0)="Encoded value used by IFCAP security utilities when confirming the integrity of this record."
^DD(423,999.8,"DT")="2930410"
^DD(423,1000,0)="PAYMENT TYPE^RS^0:CHECK REPLENISHMENT;1:CTP DIRECT DEPOSIT REPLENISHMENT;2:CCD+ DIRECT DEPOSIT REPLENISHMENT;^21;1^Q"
^DD(423,1000,21,0)="^^2^2^2920117^"
^DD(423,1000,21,1,0)="This is a code indicating the type of payment forms to be replenished"
^DD(423,1000,21,2,0)="(i.e., check or direct deposit)."
^DD(423,1000,"DT")="2910607"
^DD(423,1001,0)="ACCOUNT TYPE^RS^C:CHECKING;S:SAVINGS;^21;2^Q"
^DD(423,1001,21,0)="^^1^1^2920117^"
^DD(423,1001,21,1,0)="This is a code indicating the type of account (i.e.,checking or saving)."
^DD(423,1001,"DT")="2900711"
^DD(423,1002,0)="DEPOSITOR ACCOUNT NO.^RF^^21;3^K:$L(X)>17!($L(X)<3) X"
^DD(423,1002,3)="Answer must be 3-17 characters in length."
^DD(423,1002,21,0)="^^1^1^2920117^"
^DD(423,1002,21,1,0)="This is the depositor account number."
^DD(423,1002,"DT")="2900711"
^DD(423,1003,0)="ROUTING NO.^RF^^21;4^K:$L(X)>8!($L(X)<8)!'(X?8N) X"
^DD(423,1003,3)="Enter first 8 digits of bank routing number."
^DD(423,1003,21,0)="^^1^1^2920117^"
^DD(423,1003,21,1,0)="This is the first eight (8) digits of the bank routing number."
^DD(423,1003,"DT")="2900711"
^DD(423,1004,0)="CHECK DIGIT^RF^^21;5^K:$L(X)>1!($L(X)<1)!'(X?1N) X"
^DD(423,1004,3)="Enter 9th digit of bank routing number."
^DD(423,1004,21,0)="^^1^1^2920117^"
^DD(423,1004,21,1,0)="This is the ninth (9) digit of the bank routing number."
^DD(423,1004,"DT")="2900711"
^DD(423,1005.01,0)="AGENCY CODE^RF^^1005;1^K:$L(X)>2!($L(X)<2)!'(X=""04"") X"
^DD(423,1005.01,3)="Answer must be 04."
^DD(423,1005.01,21,0)="^^1^1^2920121^^"
^DD(423,1005.01,21,1,0)="This is the agency code to be entered as 04."
^DD(423,1005.01,"DT")="2900926"
^DD(423,1005.02,0)="SUBAGENCY CODE^RF^^1005;2^K:$L(X)>2!($L(X)<2)!'(X=81) X"
^DD(423,1005.02,3)="Answer must be 81."
^DD(423,1005.02,21,0)="^^1^1^2920121^^"
^DD(423,1005.02,21,1,0)="This is the subagency code to be entered as 81."
^DD(423,1005.02,"DT")="2900926"
^DD(423,1005.03,0)="NAME CONTROL^RFO^^1005;3^K:$L(X)>4!($L(X)<1) X"
^DD(423,1005.03,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y=Y_$E(""    "",1,4-$L(Y))"
^DD(423,1005.03,2.1)="Q:'$D(PRCF(""OUT""))  S Y=Y_$E(""    "",1,4-$L(Y))"
^DD(423,1005.03,3)="Answer must be 1-4 characters in length."
^DD(423,1005.03,"DT")="2900928"
^DD(423,1005.04,0)="SSN^RFO^^1005;4^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(423,1005.04,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y=0_Y"
^DD(423,1005.04,2.1)="Q:'$D(PRCF(""OUT""))  S Y=0_Y"
^DD(423,1005.04,3)="Answer must be 9 numerics in length."
^DD(423,1005.04,21,0)="^^1^1^2920121^"
^DD(423,1005.04,21,1,0)="This is the Social Security Number."
^DD(423,1005.04,"DT")="2900928"
^DD(423,1005.05,0)="TYPE INDICATOR^RS^0:DECREASE OR DELETION IN AMOUNT;^1005;5^Q"
^DD(423,1005.05,"DT")="2900926"
^DD(423,1005.06,0)="FILLER-14^RFO^^1005;6^K:$L(X)>1!($L(X)<1)!'(X="" "") X"
^DD(423,1005.06,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y="""",$P(Y,"" "",15)="""""
^DD(423,1005.06,2.1)="Q:'$D(PRCF(""OUT""))  S Y="""",$P(Y,"" "",15)="""""
^DD(423,1005.06,3)="Answer must be 1 character in length."
^DD(423,1005.06,21,0)="^^1^1^2941020^^^"
^DD(423,1005.06,21,1,0)="This field places 14 blanks on a code sheet."
^DD(423,1005.06,"DT")="2940929"
^DD(423,1005.07,0)="FILLER-2^RF^^1005;7^K:$L(X)>2!($L(X)<2)!'(X=""  "") X"
^DD(423,1005.07,3)="Answer must be 2 blanks."
^DD(423,1005.07,21,0)="^^1^1^2920121^"
^DD(423,1005.07,21,1,0)="This field is reserved for Filler."
^DD(423,1005.07,"DT")="2900926"
^DD(423,1005.08,0)="YEAR OF ORIGINAL OFFSET^RF^^1005;8^K:$L(X)>2!($L(X)<2)!'(X=""00"") X"
^DD(423,1005.08,3)="Answer must be 00."
^DD(423,1005.08,21,0)="^^2^2^2920121^"
^DD(423,1005.08,21,1,0)="This field that is reserved for the original offset year must contain"
^DD(423,1005.08,21,2,0)="two (2) zeros."
^DD(423,1005.08,"DT")="2900926"
^DD(423,1005.09,0)="DMF PROGRAM YEAR^RFXO^^1005;9^K:$L(X)>2!($L(X)<2)!'(X?2N) X I $D(X) S X=$E(DT,2,3)"
^DD(423,1005.09,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S Y=$S($D(PRC(""FY"")):PRC(""FY""),1:$E(DT,2,3))"
^DD(423,1005.09,2.1)="I $D(PRCF(""OUT"")) S Y=$S($D(PRC(""FY"")):PRC(""FY""),1:$E(DT,2,3))"
^DD(423,1005.09,3)="Answer must be 2 numerics in length."
^DD(423,1005.09,"DT")="2901002"
^DD(423,1005.11,0)="SUBAGENCY PRIORITY CODE^RF^^1005;11^K:$L(X)>1!($L(X)<1)!'(X=0) X"
^DD(423,1005.11,3)="Answer must be a zero."
^DD(423,1005.11,21,0)="^^1^1^2920121^"
^DD(423,1005.11,21,1,0)="This is the subagency priority code to be entered as zero (0)."
^DD(423,1005.11,"DT")="2900926"
^DD(423,1005.12,0)="LAST NAME^RFO^^1005;12^K:$L(X)>20!($L(X)<1) X"
^DD(423,1005.12,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y=Y_$E(""                    "",1,20-$L(Y))"
^DD(423,1005.12,2.1)="Q:'$D(PRCF(""OUT""))  S Y=Y_$E(""                    "",1,20-$L(Y))"
^DD(423,1005.12,3)="Answer must be 1-20 characters in length."
^DD(423,1005.12,21,0)="^^1^1^2920121^"
^DD(423,1005.12,21,1,0)="This is the individual's last name."
^DD(423,1005.12,"DT")="2900928"
^DD(423,1005.13,0)="FIRST NAME^RFO^^1005;13^K:$L(X)>15!($L(X)<1) X"
^DD(423,1005.13,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y=Y_$E(""               "",1,15-$L(Y))"
^DD(423,1005.13,2.1)="Q:'$D(PRCF(""OUT""))  S Y=Y_$E(""               "",1,15-$L(Y))"
^DD(423,1005.13,3)="Answer must be 1-15 characters in length."
^DD(423,1005.13,21,0)="^^1^1^2920121^"
^DD(423,1005.13,21,1,0)="This is the individual's first name."
^DD(423,1005.13,"DT")="2900928"
^DD(423,1005.14,0)="AMOUNT (IRS)^RNJ13,2XO^^1005;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(423,1005.14,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y=$P(Y,""."")_$P(Y,""."",2)_$E(""00"",1,2-$L($P(Y,""."",2))),Y=$E(""000000000000"",1,12-$L(Y))_Y"
^DD(423,1005.14,2.1)="Q:'$D(PRCF(""OUT""))  S Y=$P(Y,""."")_$P(Y,""."",2)_$E(""00"",1,2-$L($P(Y,""."",2))),Y=$E(""000000000000"",1,12-$L(Y))_Y"
^DD(423,1005.14,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(423,1005.14,21,0)="^^1^1^2920121^"
^DD(423,1005.14,21,1,0)="This is the dollar amount required by the Internal Revenue Service."
^DD(423,1005.14,"DT")="2921124"
^DD(423,1005.15,0)="AGENCY INFORMATION^RF^^1005;15^K:$L(X)>2!($L(X)<2)!'(X=""  "") X"
^DD(423,1005.15,3)="Answer must be 2 blanks."
^DD(423,1005.15,21,0)="^^2^2^2920121^"
^DD(423,1005.15,21,1,0)="This field that is reserved for agency information must contain two (2)"
^DD(423,1005.15,21,2,0)="blanks."
^DD(423,1005.15,"DT")="2900926"
^DD(423,1005.16,0)="LOCAL CODE^RF^^1005;16^K:$L(X)>3!($L(X)<3)!'(X=""000"") X"
^DD(423,1005.16,3)="Answer must be 3 zeros."
^DD(423,1005.16,21,0)="^^2^2^2920121^"
^DD(423,1005.16,21,1,0)="This field that is reserved for the local code must contain three (3)"
^DD(423,1005.16,21,2,0)="zeros."
^DD(423,1005.16,"DT")="2900926"
^DD(423,1005.17,0)="VA IDENT NO.^RP412'O^PRC(412,^1005;17^Q"
^DD(423,1005.17,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y=$E(""000000000"",1,9-$L(Y))_Y"
^DD(423,1005.17,2.1)="Q:'$D(PRCF(""OUT""))  S Y=$E(""000000000"",1,9-$L(Y))_Y"
^DD(423,1005.17,21,0)="^^1^1^2920121^"
^DD(423,1005.17,21,1,0)="This is a pointer to the AR (Accounts Receivable) Debtor File, #412."
^DD(423,1005.17,"DT")="2901029"
^DD(423,1005.18,0)="DELINQUENT DATE^RDO^^1005;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(423,1005.18,2)="S Y(0)=Y X:'$D(PRCF(""OUT"")) ^DD(""DD"") S:$D(PRCF(""OUT"")) Y=$E(Y,2,7)"
^DD(423,1005.18,2.1)="X:'$D(PRCF(""OUT"")) ^DD(""DD"") S:$D(PRCF(""OUT"")) Y=$E(Y,2,7)"
^DD(423,1005.18,21,0)="^^1^1^2920121^"
^DD(423,1005.18,21,1,0)="This is the date that payment is overdue."
^DD(423,1005.18,"DT")="2901009"
^DD(423,1005.19,0)="JUDGEMENT DEBT INDICATOR^RF^^1005;19^K:$L(X)>1!($L(X)<1)!'(X="" "") X"
^DD(423,1005.19,3)="Answer must be 1 character in length."
^DD(423,1005.19,21,0)="^^1^1^2920121^"
^DD(423,1005.19,21,1,0)="This indicates whether a judgement on the debt has been made."
^DD(423,1005.19,"DT")="2900926"
^DD(423,1005.2,0)="MASTER FILE CODE^RNJ1,0^^1005;20^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423,1005.2,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(423,1005.2,21,0)="^^2^2^2940929^"
^DD(423,1005.2,21,1,0)="This will contain a '1' and is used on both the Master and Update"
^DD(423,1005.2,21,2,0)="codesheets."
^DD(423,1005.2,"DT")="2941020"
^DD(423,1005.21,0)="FILLER-54^RFO^^1005;21^K:$L(X)>54!($L(X)<54) X"
^DD(423,1005.21,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=54 D RBF^PRCFU"
^DD(423,1005.21,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=54 D RBF^PRCFU"
^DD(423,1005.21,3)="Answer must be 54 characters in length."
^DD(423,1005.21,21,0)="^^1^1^2920121^"
^DD(423,1005.21,21,1,0)="This field is reserved for fifty-four (54) characters of filler."
^DD(423,1005.21,"DT")="2901002"
^DD(423,1005.22,0)="FILLER-12^RFO^^1005;22^K:$L(X)>1!($L(X)<1)!'(X="" "") X"
^DD(423,1005.22,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y="""",$P(Y,"" "",13)="""""
^DD(423,1005.22,2.1)="Q:'$D(PRCF(""OUT""))  S Y="""",$P(Y,"" "",13)="""""
^DD(423,1005.22,3)="Answer must be 1 character in length."
^DD(423,1005.22,21,0)="^^1^1^2920121^"
^DD(423,1005.22,21,1,0)="This field is reserved for twelve (12) characters of filler."
^DD(423,1005.22,"DT")="2901030"
^DD(423,1006.01,0)="FILLER-52^RFO^^1006;1^K:$L(X)>52!($L(X)<52) X"
^DD(423,1006.01,2)="S Y(0)=Y I $D(PRCF(""OUT"")) S PRCFLN=52 D RBF^PRCFU"
^DD(423,1006.01,2.1)="I $D(PRCF(""OUT"")) S PRCFLN=52 D RBF^PRCFU"
^DD(423,1006.01,3)="Answer must be 52 characters in length."
^DD(423,1006.01,21,0)="^^2^2^2920522^"
^DD(423,1006.01,21,1,0)="This field is used to place 52 blanks on a code sheet.  Used for"
^DD(423,1006.01,21,2,0)="the IRS Offset Master Record."
^DD(423,1006.01,"DT")="2920520"
^DD(423,1006.02,0)="FILLER-15^RFO^^1006;2^K:$L(X)>1!($L(X)<1)!'(X="" "") X"
^DD(423,1006.02,2)="S Y(0)=Y Q:'$D(PRCF(""OUT""))  S Y="""",$P(Y,"" "",16)="""""
^DD(423,1006.02,2.1)="Q:'$D(PRCF(""OUT""))  S Y="""",$P(Y,"" "",16)="""""
^DD(423,1006.02,3)="Answer must be 1 character in length."
^DD(423,1006.02,21,0)="^^2^2^2920522^"
^DD(423,1006.02,21,1,0)="This field is used to place 12 blanks on a code sheet.  Used for"
^DD(423,1006.02,21,2,0)="the IRS Offset Weekly Update."
^DD(423,1006.02,"DT")="2920520"
^DD(423,"B","+ OR -",423)=""
^DD(423,"B","929 ANALYSIS ACCOUNT",106)=""
^DD(423,"B","929 ANALYSIS ACCOUNT 2",107)=""
^DD(423,"B","939 YALD CODE",115)=""
^DD(423,"B","941 LINE NUMBER",90)=""
^DD(423,"B","945 LINE NUMBER",97)=""
^DD(423,"B","946 LINE NUMBER",98)=""
^DD(423,"B","ACCOMPLISHED DATE",101)=""
^DD(423,"B","ACCOUNT (NONISSUABLE)",376)=""
^DD(423,"B","ACCOUNT CODE",69)=""
^DD(423,"B","ACCOUNT TYPE",1001)=""
^DD(423,"B","ACCOUNTING MONTH",39)=""
^DD(423,"B","ACCRUAL COST CENTER LINE #",30)=""
^DD(423,"B","ACTION CODE 1",77)=""
^DD(423,"B","ACTION CODE 2",78)=""
^DD(423,"B","ACTIVITY ADDRESS CODE",311)=""
^DD(423,"B","ADVANCE AMT/APPLIED",57)=""
^DD(423,"B","ADVICE CODE",357)=""
^DD(423,"B","AGENCY CODE",1005.01)=""
^DD(423,"B","AGENCY INFORMATION",1005.15)=""
^DD(423,"B","AMENDMENT NUMBER",384)=""
^DD(423,"B","AMOUNT",14)=""
^DD(423,"B","AMOUNT (IRS)",1005.14)=""
^DD(423,"B","AMOUNT 1",79)=""
^DD(423,"B","AMOUNT 2",16)=""
^DD(423,"B","AMOUNT 2 (9)",80)=""
^DD(423,"B","AMOUNT CLAIMED 1",58)=""
^DD(423,"B","AMOUNT CLAIMED 2",59)=""
^DD(423,"B","AMOUNT TO BE LIQUIDATED",84)=""
^DD(423,"B","ANALYSIS ACCOUNT",12)=""
^DD(423,"B","ANALYSIS ACCOUNT 2",53)=""
^DD(423,"B","APPROPRIATION CODE 1",68)=""
^DD(423,"B","APPROPRIATION CODE 2",72)=""
^DD(423,"B","APPROVED BY",997)=""
^DD(423,"B","AUTOMATIC TERMINATOR",998)=""
^DD(423,"B","BACKGROUND BATCH",.31)=""
^DD(423,"B","BACKORDER CONTROL",347)=""
^DD(423,"B","BALANCE AMOUNT",108)=""
^DD(423,"B","BALANCE AMOUNT 2",109)=""
^DD(423,"B","BATCH LIST KEY",.21)=""
^DD(423,"B","BATCH NUMBER",.7)=""
^DD(423,"B","BATCH PRIORITY",.8)=""
^DD(423,"B","BATCH TYPE",.6)=""
^DD(423,"B","BATCHED?",.3)=""
^DD(423,"B","BATCHING ERROR",.231)=""
^DD(423,"B","BLANK (1)",325)=""
^DD(423,"B","BLANK (3)",326)=""
^DD(423,"B","BLANK (5)",327)=""
^DD(423,"B","BLANK FIELD",113)=""
^DD(423,"B","CANCEL",361)=""
^DD(423,"B","CANCEL/ADJUST/RELEASE",370)=""
^DD(423,"B","CAPPS LIQUIDATION AMT 1",167)=""
^DD(423,"B","CAPPS LIQUIDATION AMT 2",168)=""
^DD(423,"B","CAPPS LIQUIDATION CODE",166)=""
^DD(423,"B","CAPPS PRODUCT TYPE",171)=""
^DD(423,"B","CAPPS SUBACCOUNT 1",172)=""
^DD(423,"B","CAPPS SUBACCOUNT 2",173)=""
^DD(423,"B","CHANGE ADJ REASON CODE",427)=""
^DD(423,"B","CHECK DIGIT",1004)=""
^DD(423,"B","CHECK ENCLOSURE CODE",44)=""
^DD(423,"B","CITY",48)=""
^DD(423,"B","CODE",.2)=""
^DD(423,"B","CODE SHEET LENGTH",.95)=""
^DD(423,"B","COMMODITY CODE",336)=""
^DD(423,"B","COMMON NUMBER (607D)",428)=""
^DD(423,"B","COMMON NUMBER (DEPOT REGULAR)",382)=""
^DD(423,"B","COMMON NUMBER (DRUGS)",380)=""
^DD(423,"B","COMMON NUMBER (SUBSISTENCE)",381)=""
^DD(423,"B","COMPLETE INDICATOR",343)=""
^DD(423,"B","COMPLETED BY",999)=""
^DD(423,"B","COMPLETED BY INITIALS",999.1)=""
^DD(423,"B","COMPLETION CODE (LOG)",395)=""
^DD(423,"B","CONDITION CODE (LOG)",396)=""
^DD(423,"B","CONSUMER LEVEL",338)=""
^DD(423,"B","CONSUMER LEVEL OVERRIDE",339)=""
^DD(423,"B","CONTAINER TYPE",409)=""
^DD(423,"B","CONTROL POINT ($ ALLOWED)",10)=""
^DD(423,"B","CONTROL POINT ($ NOT ALLOWED)",64)=""
^DD(423,"B","CONTROL POINT (664)",419)=""
^DD(423,"B","CONVERSION FACTOR",335)=""
^DD(423,"B","COPIES (664)",415)=""
^DD(423,"B","CORRECTED DELIVERY DATE",392)=""
^DD(423,"B","CORRECTED QUANTITY",390)=""
^DD(423,"B","CORRECTED UNIT COST",391)=""
^DD(423,"B","COST CENTER",11)=""
^DD(423,"B","COST CENTER #1",116)=""
^DD(423,"B","COST CENTER #2",116.4)=""
^DD(423,"B","COST CENTER 'A' LINE #",70)=""
^DD(423,"B","COST CENTER 'B' LINE #",74)=""
^DD(423,"B","COST CENTER (664)",418)=""
^DD(423,"B","COST CENTER 1",52)=""
^DD(423,"B","COST CENTER 2",54)=""
^DD(423,"B","COST CENTER 3",116.8)=""
^DD(423,"B","COST CENTER 4",117.3)=""
^DD(423,"B","COST CENTER NO.",315)=""
^DD(423,"B","CP 1",116.3)=""
^DD(423,"B","CP 2",116.7)=""
^DD(423,"B","CP 3",117.2)=""
^DD(423,"B","CP 4",117.6)=""
^DD(423,"B","CP/ALD CODE",110)=""
^DD(423,"B","CREDITOR SSN OR VENDOR ID",91)=""
^DD(423,"B","CUBE",399)=""
^DD(423,"B","DATE",9)=""
^DD(423,"B","DATE",306.2)=""
^DD(423,"B","DATE CREATED",.05)=""
^DD(423,"B","DATE INVOICE RECEIVED",160)=""
^DD(423,"B","DATE OF RECEIPT",306.1)=""
^DD(423,"B","DATE PRINTED",.4)=""
^DD(423,"B","DATE SERVICE RECEIVED",169)=""
^DD(423,"B","DECKS (664)",416)=""
^DD(423,"B","DELINQUENT DATE",1005.18)=""
^DD(423,"B","DELIVERY DATE",358)=""
^DD(423,"B","DELIVERY DATE - 920",62)=""
^DD(423,"B","DELIVERY MONTH",7)=""
^DD(423,"B","DELIVERY MONTH - 921.60",61)=""
^DD(423,"B","DELIVERY POINT",387)=""
^DD(423,"B","DEPARTMENT NUMBER",330)=""
^DD(423,"B","DEPOSITOR ACCOUNT NO.",1002)=""
^DD(423,"B","DEPOT (HINES)",407)=""
^DD(423,"B","DEPOT (OR RELEASING FACILITY)",345)=""
^DD(423,"B","DEPOT CODE",408)=""
^DD(423,"B","DEPOT VOUCHER",368)=""
^DD(423,"B","DEPT NO. (664)",420)=""
^DD(423,"B","DEPT.DESIGNATION (DEMAND CODE)",351)=""
^DD(423,"B","DIETETIC PERIOD",333)=""
^DD(423,"B","DISCOUNT AMOUNT",155)=""
^DD(423,"B","DISCOUNT DAYS",153)=""
^DD(423,"B","DISCOUNT PERCENT",152)=""
^DD(423,"B","DISCOUNT TERMS",154)=""
^DD(423,"B","DISTRIBUTION CODE (OPTIONAL)",354)=""
^DD(423,"B","DMF PROGRAM YEAR",1005.09)=""
^DD(423,"B","DO NOT B/O",332)=""
^DD(423,"B","DO NOT SUB",331)=""
^DD(423,"B","DOCUMENT #",105)=""
^DD(423,"B","DOCUMENT DATE",4.5)=""
^DD(423,"B","DOCUMENT ID (SUBSISTENCE)",379)=""
^DD(423,"B","DOCUMENT IDENTIFIER",344)=""
^DD(423,"B","DOCUMENT IDENTIFIER (DLA)",367)=""
^DD(423,"B","DOCUMENT IDENTIFIER (DRUGS)",378)=""
^DD(423,"B","DOCUMENT IDENTIFIER CODE",313)=""
^DD(423,"B","DOCUMENT LOCATOR NUMBER",151)=""
^DD(423,"B","DOCUMENT NUMBER",65)=""
^DD(423,"B","DOCUMENT NUMBER (LOG)",377)=""
^DD(423,"B","DOCUMENT TYPE",150)=""
^DD(423,"B","DUE-IN (401)",406)=""
^DD(423,"B","DUE-IN DATE",306)=""
^DD(423,"B","Do Not Substitute",331)="1"
^DD(423,"B","EDIT TEMPLATE",2)=""
^DD(423,"B","EMERGENCY SOURCE 2 PROCUREMENT",383)=""
^DD(423,"B","ERROR IN BATCHING KEY",.23)=""
^DD(423,"B","ESIG CODE",999.8)=""
^DD(423,"B","EXPIRATION/DATE OF PACK",394)=""
^DD(423,"B","FCC SUFFIX",400)=""
^DD(423,"B","FEDERAL SUPPLY CLASSIFICATION",364)=""
^DD(423,"B","FILLER-12",1005.22)=""
^DD(423,"B","FILLER-14",1005.06)=""
^DD(423,"B","FILLER-15",1006.02)=""
^DD(423,"B","FILLER-2",1005.07)=""
^DD(423,"B","FILLER-52",1006.01)=""
^DD(423,"B","FILLER-54",1005.21)=""
^DD(423,"B","FIRST ADDRESS LINE",46)=""
^DD(423,"B","FIRST NAME",1005.13)=""
^DD(423,"B","FISCAL MONTH",305)=""
^DD(423,"B","FISCAL YEAR OF FUNDING",304)=""
^DD(423,"B","FOOD GROUP",334)=""
^DD(423,"B","FREQUENCY (664)",414)=""
^DD(423,"B","FROM SECTION",67)=""
^DD(423,"B","FUND CODE",353)=""
^DD(423,"B","FUND CONTROL POINT",73)=""
^DD(423,"B","FUND CONTROL POINT",314)=""
^DD(423,"B","GENERAL LEDGER ACCOUNT",85)=""
^DD(423,"B","GL ACCOUNT CODE",422)=""
^DD(423,"B","GROSS PAYMENT AMOUNT",83)=""
^DD(423,"B","GROUP SPLIT CIV",337)=""
^DD(423,"B","ID",.01)=""
^DD(423,"B","INTEREST INDICATOR",164)=""
^DD(423,"B","INVENTORY ACCOUNT CODE",27)=""
^DD(423,"B","INVOICE AMOUNT",158)=""
^DD(423,"B","INVOICE DATE",157)=""
^DD(423,"B","INVOICE NUMBER",156)=""
^DD(423,"B","INVOICE OR BILL #",104)=""
^DD(423,"B","INVOICE SUFFIX",165)=""
^DD(423,"B","INVOICE/BILL NUMBER",51)=""
^DD(423,"B","ISMS COST CENTER",581)=""
^DD(423,"B","ISMS FCP #",582)=""
^DD(423,"B","ISMS IDENTIFIER",500)=""
^DD(423,"B","ISMS LINE ITEM",530)=""
^DD(423,"B","ISMS REFERENCE NO.",503)=""
^DD(423,"B","ISMS SEGMENT TYPE",506)=""
^DD(423,"B","ISMS SEQUENCE NUMBER",503.1)=""
^DD(423,"B","ISMS TOTAL SEQUENCE",503.2)=""
^DD(423,"B","ISMS TRANS DATE",501)=""
^DD(423,"B","ISMS TRANS INT VER",504)=""
^DD(423,"B","ISMS TRANS TERMINATOR",507)=""
^DD(423,"B","ISMS TRANS TIME",502)=""
^DD(423,"B","ISMS VENDOR STATE",515.85)=""
^DD(423,"B","JUDGEMENT DEBT INDICATOR",1005.19)=""
^DD(423,"B","KEYPUNCH CODE",112)=""
^DD(423,"B","L/C REFERENCE NO.",521)=""
^DD(423,"B","LAST NAME",1005.12)=""
^DD(423,"B","LEVEL (664)",412)=""
^DD(423,"B","LINE #",76)=""
^DD(423,"B","LINE COUNT",520)=""
^DD(423,"B","LINE ITEM NUMBER",300)=""
^DD(423,"B","LINE NUMBER (1-38)",24)=""
^DD(423,"B","LINE NUMBER (1-5)",100)=""
^DD(423,"B","LIQ CODE 1",41)=""
^DD(423,"B","LIQ CODE 2",42)=""
^DD(423,"B","LIQ. CODE",81)=""
^DD(423,"B","LIQUIDATION AMOUNT 1",18)=""
^DD(423,"B","LIQUIDATION AMOUNT 2",19)=""
^DD(423,"B","LIQUIDATION CODE",17)=""
^DD(423,"B","LOCAL CODE",1005.16)=""
^DD(423,"B","LOCATION",401)=""
^DD(423,"B","LOG BATCH NO.",300.1)=""
^DD(423,"B","LOG DATE",393)=""
^DD(423,"B","MARK UP AMOUNT",119)=""
^DD(423,"B","MASTER FILE CODE",1005.2)=""
^DD(423,"B","MAXIMUM OVERRIDE",349)=""
^DD(423,"B","MEDIA & STATUS CODE",350)=""
^DD(423,"B","MEMO 1",161)=""
^DD(423,"B","MEMO 2",162)=""
^DD(423,"B","MEMO 3",163)=""
^DD(423,"B","MONEY MANAGEMENT EXEMPT",170)=""
^DD(423,"B","N.I.I.N. (STOCK NO.)",308)=""
^DD(423,"B","NAME",60)=""
^DD(423,"B","NAME CONTROL",1005.03)=""
^DD(423,"B","NATIONAL STOCK NUMBER",505)=""
^DD(423,"B","NOMENCLATURE (15)",310)=""
^DD(423,"B","NOMENCLATURE (20)",310.5)=""
^DD(423,"B","NOMENCLATURE (21)",309)=""
^DD(423,"B","NON ADJ REASON CODE",421)=""
^DD(423,"B","NONISSUABLE",375)=""
^DD(423,"B","NX ITEMS",550)=""
^DD(423,"B","OFFSET AMOUNT",86)=""
^DD(423,"B","OFFSET REFERENCE NUMBER",87)=""
^DD(423,"B","OFFSET STATION NUMBER",88)=""
^DD(423,"B","ON BUDGET LIST",.25)=""
^DD(423,"B","ORIGINAL STATUS CODE",94)=""
^DD(423,"B","ORIGINAL TRANS CODE",430)=""
^DD(423,"B","ORIGINAL TRANSACTION CODE",93)=""
^DD(423,"B","ORIGINAL TRANSACTION DATE",95)=""
^DD(423,"B","P&R CC (1-7)",117)=""
^DD(423,"B","P/S ANALYSIS ACCOUNT",111)=""
^DD(423,"B","PAT ACTION CODE",102)=""
^DD(423,"B","PAT ADVANCE REF #",56)=""
^DD(423,"B","PAT NUMBER",5.1)=""
^DD(423,"B","PAT REFERENCE NUMBER",25)=""
^DD(423,"B","PAT TYPE CODE",96)=""
^DD(423,"B","PAYABLE AMOUNT",120)=""
^DD(423,"B","PAYABLE CODE",346)=""
^DD(423,"B","PAYMENT TYPE",1000)=""
^DD(423,"B","PERCENT 1",116.1)=""
^DD(423,"B","PERCENT 2",116.5)=""
^DD(423,"B","PERCENT 3",116.9)=""
^DD(423,"B","PERCENT 4",117.4)=""
^DD(423,"B","PRIORITY CODE",356)=""
^DD(423,"B","PRIORITY CODE (LOG)",397)=""
^DD(423,"B","PROJECT CODE",355)=""
^DD(423,"B","PURCHASE AUTHORIZATION NUMBER",386)=""
^DD(423,"B","PURCHASE ORDER DATE",385)=""
^DD(423,"B","PUSH RELEASE",362)=""
^DD(423,"B","Q & S AMOUNT",36)=""
^DD(423,"B","Q & S STATION NUMBER",37)=""
^DD(423,"B","QUAN/VAL ADJ REASON CODE",426)=""
^DD(423,"B","QUANTITY",302)=""
^DD(423,"B","QUANTITY (401)",405)=""
^DD(423,"B","QUANTITY (605)",424)=""
^DD(423,"B","QUANTITY (NEW)",374)=""
^DD(423,"B","QUANTITY (OLD)",373)=""
^DD(423,"B","REASON CODE",340)=""
^DD(423,"B","REASON CODE (LOG)",389)=""
^DD(423,"B","REC STA OR FCP",40)=""
^DD(423,"B","RECEIVABLE CODE",20)=""
^DD(423,"B","RECEIVING STATION",63)=""
^DD(423,"B","RECEIVING STATION - 920.04",114)=""
^DD(423,"B","REF # (2ND LINE)",89)=""
^DD(423,"B","REFERENCE NUMBER",5)=""
^DD(423,"B","REPRINT LIST KEY",.24)=""
^DD(423,"B","REQUISITION NO.",369)=""
^DD(423,"B","ROUTING IDENTIFIER CODE",312)=""
^DD(423,"B","ROUTING NO.",1003)=""
^DD(423,"B","SECOND ADDRESS LINE",47)=""
^DD(423,"B","SECOND STATION NUMBER",26)=""
^DD(423,"B","SECTION A",31)=""
^DD(423,"B","SECTION B",32)=""
^DD(423,"B","SECTION B LINE NUMBER",35)=""
^DD(423,"B","SECTION C",33)=""
^DD(423,"B","SECTION D",34)=""
^DD(423,"B","SEGMENT 6 TYPE",516)=""
^DD(423,"B","SELLING COST",429)=""
^DD(423,"B","SEQUENCE (664)",413)=""
^DD(423,"B","SERIAL NO.(DLA)",366)=""
^DD(423,"B","SERIAL NO.(FOLLOW-UP/CANCEL)",365)=""
^DD(423,"B","SERIAL NO./NOMENCLATURE (GSA)",310.6)=""
^DD(423,"B","SERVICE CODE",103)=""
^DD(423,"B","SF ACCT CODE LINE #",66)=""
^DD(423,"B","SHIPPING AMOUNT",159)=""
^DD(423,"B","SIGNAL CODE",352)=""
^DD(423,"B","SOC SEC NUMBER",22)=""
^DD(423,"B","SOURCE CODE",8)=""
^DD(423,"B","SOURCE CODE (LOG)",341)=""
^DD(423,"B","SOURCE DEVIATION",342)=""
^DD(423,"B","SOURCE DEVIATION/SERIAL NUMBER",359)=""
^DD(423,"B","SPECIAL CODE",360)=""
^DD(423,"B","SSN",1005.04)=""
^DD(423,"B","STATE",49)=""
^DD(423,"B","STATION NUMBER",1)=""
^DD(423,"B","STOCK NUMBER (NSN)",307)=""
^DD(423,"B","STUB NAME",23)=""
^DD(423,"B","SUB ACCOUNT",99)=""
^DD(423,"B","SUB ACCOUNT/PAYROLL ANALYSIS",21)=""
^DD(423,"B","SUB ACCT/GL ACCT",82)=""
^DD(423,"B","SUBACCOUNT 1",13)=""
^DD(423,"B","SUBACCOUNT 2",15)=""
^DD(423,"B","SUBAGENCY CODE",1005.02)=""
^DD(423,"B","SUBAGENCY PRIORITY CODE",1005.11)=""
^DD(423,"B","SUBSTITUTE CONTROL",348)=""
^DD(423,"B","SUFFIX (664)",410)=""
^DD(423,"B","SUPPL ID (664)",417)=""
^DD(423,"B","SYSTEM IDENTIFIER",.1)=""
^DD(423,"B","Supplementary Identification",417)="1"
^DD(423,"B","TERMINAL LEAVE PAYMENTS",38)=""
^DD(423,"B","TO SECTION",71)=""
^DD(423,"B","TOTAL VALUE",301)=""
^DD(423,"B","TRANSACTION DATE",4)=""
^DD(423,"B","TRANSACTION TYPE",3)=""
^DD(423,"B","TRANSFER FROM STATION NUMBER",28)=""
^DD(423,"B","TRANSFER TO STATION NUMBER",29)=""
^DD(423,"B","TRANSMISSION DATE",.5)=""
^DD(423,"B","TRANSMISSION NUMBER",.9)=""
^DD(423,"B","TRANSMIT LIST KEY",.22)=""
^DD(423,"B","TRANSPORTATION AMOUNT",118)=""
^DD(423,"B","TRANSPORTATION COSTS",403)=""
^DD(423,"B","TT974 LINE NUMBER",75)=""
^DD(423,"B","TYPE INDICATOR",1005.05)=""
^DD(423,"B","TYPE TRANS (664)",411)=""
^DD(423,"B","UNIT COST (LOG)",388)=""
^DD(423,"B","UNIT OF ISSUE",303)=""
^DD(423,"B","UNITS IN O/P",402)=""
^DD(423,"B","USER LOGGED IN",999.2)=""
^DD(423,"B","VA IDENT NO.",1005.17)=""
^DD(423,"B","VALIDATION CODE",999.3)=""
^DD(423,"B","VALIDATION DATE/TIME",999.7)=""
^DD(423,"B","VALIDATION VERSION",999.5)=""
^DD(423,"B","VALUE (605)",425)=""
^DD(423,"B","VALUE (LOG)",404)=""
^DD(423,"B","VALUE (NEW)",372)=""
^DD(423,"B","VALUE (OLD)",371)=""
^DD(423,"B","VENDOR ID NUMBER",43)=""
^DD(423,"B","VENDOR NAME",45)=""
^DD(423,"B","VENDOR TYPE",92)=""
^DD(423,"B","VENDOR/AGENT CASHIER ID",55)=""
^DD(423,"B","VOUCHER/TICKET NUMBER",5.2)=""
^DD(423,"B","WEIGHT",398)=""
^DD(423,"B","YALD 1",116.2)=""
^DD(423,"B","YALD 2",116.6)=""
^DD(423,"B","YALD 3",117.1)=""
^DD(423,"B","YALD 4",117.5)=""
^DD(423,"B","YALD CODE",6)=""
^DD(423,"B","YEAR OF ORIGINAL OFFSET",1005.08)=""
^DD(423,"B","ZIP CODE",50)=""
^DD(423,"GL",0,1,.01)=""
^DD(423,"GL",0,2,1)=""
^DD(423,"GL",0,3,2)=""
^DD(423,"GL",0,4,3)=""
^DD(423,"GL",0,5,4)=""
^DD(423,"GL",0,6,5)=""
^DD(423,"GL",0,7,997)=""
^DD(423,"GL",0,8,999)=""
^DD(423,"GL",0,9,61)=""
^DD(423,"GL",0,10,.1)=""
^DD(423,"GL",0,11,62)=""
^DD(423,"GL",0,12,63)=""
^DD(423,"GL",0,13,64)=""
^DD(423,"GL",0,14,65)=""
^DD(423,"GL",0,15,68)=""
^DD(423,"GL",0,16,69)=""
^DD(423,"GL",0,17,67)=""
^DD(423,"GL",0,18,71)=""
^DD(423,"GL",0,19,72)=""
^DD(423,"GL",0,20,73)=""
^DD(423,"GL",0,21,77)=""
^DD(423,"GL",0,22,78)=""
^DD(423,"GL",0,23,91)=""
^DD(423,"GL",0,24,92)=""
^DD(423,"GL",1,1,6)=""
^DD(423,"GL",1,2,7)=""
^DD(423,"GL",1,3,8)=""
^DD(423,"GL",1,4,9)=""
^DD(423,"GL",1,5,10)=""
^DD(423,"GL",1,6,11)=""
^DD(423,"GL",1,7,12)=""
^DD(423,"GL",1,8,13)=""
^DD(423,"GL",1,9,14)=""
^DD(423,"GL",1,10,15)=""
^DD(423,"GL",1,11,16)=""
^DD(423,"GL",1,12,17)=""
^DD(423,"GL",1,13,18)=""
^DD(423,"GL",1,14,19)=""
^DD(423,"GL",1,15,20)=""
^DD(423,"GL",1,16,998)=""
^DD(423,"GL",1,17,22)=""
^DD(423,"GL",1,18,23)=""
^DD(423,"GL",1,19,25)=""
^DD(423,"GL",1,20,26)=""
^DD(423,"GL",1,21,27)=""
^DD(423,"GL",1,22,28)=""
^DD(423,"GL",1,23,29)=""
^DD(423,"GL",1,24,31)=""
^DD(423,"GL",1,25,32)=""
^DD(423,"GL",1,26,33)=""
^DD(423,"GL",1,27,34)=""
^DD(423,"GL",1,28,93)=""
^DD(423,"GL",1,29,5.1)=""
^DD(423,"GL",1,30,5.2)=""
^DD(423,"GL",2,0,21)=""
^DD(423,"GL",3,0,24)=""
^DD(423,"GL",4,0,30)=""
^DD(423,"GL",5,0,35)=""
^DD(423,"GL",6,1,36)=""
^DD(423,"GL",6,2,37)=""
^DD(423,"GL",6,3,38)=""
^DD(423,"GL",6,4,39)=""
^DD(423,"GL",6,5,41)=""
^DD(423,"GL",6,6,42)=""
^DD(423,"GL",6,7,43)=""
^DD(423,"GL",6,8,44)=""
^DD(423,"GL",6,9,45)=""
^DD(423,"GL",6,10,46)=""
^DD(423,"GL",6,11,47)=""
^DD(423,"GL",6,12,48)=""
^DD(423,"GL",6,13,49)=""
^DD(423,"GL",6,14,50)=""
^DD(423,"GL",6,15,51)=""
^DD(423,"GL",6,16,79)=""
^DD(423,"GL",6,17,80)=""
^DD(423,"GL",6,18,81)=""
^DD(423,"GL",6,19,82)=""
^DD(423,"GL",6,20,83)=""
^DD(423,"GL",6,21,84)=""
^DD(423,"GL",6,22,85)=""
^DD(423,"GL",6,23,86)=""
^DD(423,"GL",6,24,87)=""
^DD(423,"GL",6,25,88)=""
^DD(423,"GL",6,26,94)=""
^DD(423,"GL",6,27,95)=""
^DD(423,"GL",6,28,96)=""
^DD(423,"GL",6,29,114)=""
^DD(423,"GL",6,30,115)=""
^DD(423,"GL",7,0,40)=""
^DD(423,"GL",8,1,52)=""
^DD(423,"GL",8,2,53)=""
^DD(423,"GL",8,3,54)=""
^DD(423,"GL",8,4,55)=""
^DD(423,"GL",8,5,56)=""
^DD(423,"GL",8,6,57)=""
^DD(423,"GL",8,7,58)=""
^DD(423,"GL",8,8,59)=""
^DD(423,"GL",8,9,60)=""
^DD(423,"GL",8,10,99)=""
^DD(423,"GL",8,11,4.5)=""
^DD(423,"GL",8,12,101)=""
^DD(423,"GL",8,13,102)=""
^DD(423,"GL",8,14,104)=""
^DD(423,"GL",8,15,105)=""
^DD(423,"GL",8,16,999.3)=""
^DD(423,"GL",8,17,108)=""
^DD(423,"GL",8,18,109)=""
^DD(423,"GL",8,19,110)=""
^DD(423,"GL",8.1,1,999.5)=""
^DD(423,"GL",8.1,2,999.7)=""
^DD(423,"GL",8.1,3,999.8)=""
^DD(423,"GL",9,0,66)=""
^DD(423,"GL",10,0,70)=""
^DD(423,"GL",11,0,74)=""
^DD(423,"GL",12,0,75)=""
^DD(423,"GL",13,0,76)=""
^DD(423,"GL",14,0,89)=""
^DD(423,"GL",15,0,90)=""
^DD(423,"GL",16,0,97)=""
^DD(423,"GL",17,0,98)=""
^DD(423,"GL",18,0,100)=""
^DD(423,"GL",19,1,103)=""
^DD(423,"GL",19,2,106)=""
^DD(423,"GL",19,3,107)=""
^DD(423,"GL",19,4,113)=""
^DD(423,"GL",20,0,111)=""
^DD(423,"GL",21,1,1000)=""
^DD(423,"GL",21,2,1001)=""
^DD(423,"GL",21,3,1002)=""
^DD(423,"GL",21,4,1003)=""
^DD(423,"GL",21,5,1004)=""
^DD(423,"GL",21,6,.31)=""
^DD(423,"GL",21,7,116)=""
^DD(423,"GL",21,8,116.1)=""
^DD(423,"GL",21,9,116.2)=""
^DD(423,"GL",21,10,116.3)=""
^DD(423,"GL",21,11,116.4)=""
^DD(423,"GL",21,12,116.8)=""
^DD(423,"GL",21,13,117.3)=""
^DD(423,"GL",21,14,116.5)=""
^DD(423,"GL",21,15,116.9)=""
^DD(423,"GL",21,16,117.4)=""
^DD(423,"GL",21,17,116.6)=""
^DD(423,"GL",21,18,117.1)=""
^DD(423,"GL",21,19,117.5)=""
^DD(423,"GL",21,20,116.7)=""
^DD(423,"GL",21,21,117.2)=""
^DD(423,"GL",21,22,117.6)=""
^DD(423,"GL",23,0,117)=""
^DD(423,"GL",24,1,118)=""
^DD(423,"GL",24,2,119)=""
^DD(423,"GL",24,3,120)=""
^DD(423,"GL",50,1,500)=""
^DD(423,"GL",50,2,501)=""
^DD(423,"GL",50,3,502)=""
^DD(423,"GL",50,4,503)=""
^DD(423,"GL",50,5,504)=""
^DD(423,"GL",50,6,505)=""
^DD(423,"GL",50,7,506)=""
^DD(423,"GL",50,8,507)=""
^DD(423,"GL",50,13,516)=""
^DD(423,"GL",50,14,520)=""
^DD(423,"GL",50,15,521)=""
^DD(423,"GL",50,17,503.1)=""
^DD(423,"GL",50,18,503.2)=""
^DD(423,"GL",52,0,530)=""
^DD(423,"GL",56,5,581)=""
^DD(423,"GL",56,6,582)=""
^DD(423,"GL",56,22,515.85)=""
^DD(423,"GL",57,0,550)=""
^DD(423,"GL",100,1,150)=""
^DD(423,"GL",100,2,151)=""
^DD(423,"GL",100,3,156)=""
^DD(423,"GL",100,4,157)=""
^DD(423,"GL",100,5,160)=""
^DD(423,"GL",100,6,171)=""
^DD(423,"GL",100,11,152)=""
^DD(423,"GL",100,12,153)=""
^DD(423,"GL",100,13,154)=""
^DD(423,"GL",100,14,159)=""
^DD(423,"GL",100,15,158)=""
^DD(423,"GL",100,16,166)=""
^DD(423,"GL",100,17,172)=""
^DD(423,"GL",100,18,173)=""
^DD(423,"GL",100,19,167)=""
^DD(423,"GL",100,20,168)=""
^DD(423,"GL",100,21,169)=""
^DD(423,"GL",100,22,170)=""
^DD(423,"GL",100,23,164)=""
^DD(423,"GL",100,26,165)=""
^DD(423,"GL",100,27,155)=""
^DD(423,"GL",100,28,161)=""
^DD(423,"GL",100,29,162)=""
^DD(423,"GL",100,30,163)=""
^DD(423,"GL",200,1,410)=""
^DD(423,"GL",200,2,411)=""
^DD(423,"GL",200,3,412)=""
^DD(423,"GL",200,4,413)=""
^DD(423,"GL",200,5,414)=""
^DD(423,"GL",200,6,415)=""
^DD(423,"GL",200,7,416)=""
^DD(423,"GL",200,8,417)=""
^DD(423,"GL",200,9,418)=""
^DD(423,"GL",200,10,420)=""
^DD(423,"GL",200,11,419)=""
^DD(423,"GL",201,1,421)=""
^DD(423,"GL",201,2,422)=""
^DD(423,"GL",201,3,423)=""
^DD(423,"GL",201,4,424)=""
^DD(423,"GL",201,5,425)=""
^DD(423,"GL",201,6,426)=""
^DD(423,"GL",201,7,427)=""
^DD(423,"GL",201,8,428)=""
^DD(423,"GL",201,9,429)=""
^DD(423,"GL",201,10,430)=""
^DD(423,"GL",300,1,300)=""
^DD(423,"GL",300,2,301)=""
^DD(423,"GL",300,3,302)=""
^DD(423,"GL",300,4,303)=""
^DD(423,"GL",300,5,304)=""
^DD(423,"GL",300,6,305)=""
^DD(423,"GL",300,7,306)=""
^DD(423,"GL",300,8,307)=""
^DD(423,"GL",300,9,308)=""
^DD(423,"GL",300,10,309)=""
^DD(423,"GL",300,11,325)=""
^DD(423,"GL",300,12,326)=""
^DD(423,"GL",300,13,327)=""
^DD(423,"GL",300,14,310)=""
^DD(423,"GL",300,15,311)=""
^DD(423,"GL",300,16,312)=""
^DD(423,"GL",300,17,313)=""
^DD(423,"GL",300,18,314)=""
^DD(423,"GL",300,19,315)=""
^DD(423,"GL",300,20,350)=""
^DD(423,"GL",300,21,359)=""
^DD(423,"GL",300,22,306.1)=""
^DD(423,"GL",300,23,306.2)=""
^DD(423,"GL",300,25,300.1)=""
^DD(423,"GL",301,1,330)=""
^DD(423,"GL",301,2,331)=""
^DD(423,"GL",301,3,332)=""
^DD(423,"GL",301,4,333)=""
^DD(423,"GL",301,5,334)=""
^DD(423,"GL",301,6,335)=""
^DD(423,"GL",301,7,336)=""
^DD(423,"GL",301,8,337)=""
^DD(423,"GL",301,9,338)=""
^DD(423,"GL",301,10,339)=""
^DD(423,"GL",301,11,340)=""
^DD(423,"GL",301,12,341)=""
^DD(423,"GL",301,14,343)=""
^DD(423,"GL",301,15,344)=""
^DD(423,"GL",301,16,345)=""
^DD(423,"GL",301,17,346)=""
^DD(423,"GL",301,18,347)=""
^DD(423,"GL",301,19,348)=""
^DD(423,"GL",301,20,349)=""
^DD(423,"GL",301,21,351)=""
^DD(423,"GL",301,22,352)=""
^DD(423,"GL",301,23,353)=""
^DD(423,"GL",301,24,354)=""
^DD(423,"GL",301,25,355)=""
^DD(423,"GL",301,26,356)=""
^DD(423,"GL",301,27,357)=""
^DD(423,"GL",301,28,358)=""
^DD(423,"GL",301,29,360)=""
^DD(423,"GL",301,30,361)=""
^DD(423,"GL",301,31,362)=""
^DD(423,"GL",301,32,310.5)=""
^DD(423,"GL",301,33,310.6)=""
^DD(423,"GL",301,34,366)=""
^DD(423,"GL",301,35,364)=""
^DD(423,"GL",301,36,365)=""
^DD(423,"GL",301,37,367)=""
^DD(423,"GL",301,38,368)=""
^DD(423,"GL",301,39,369)=""
^DD(423,"GL",301,40,370)=""
^DD(423,"GL",301,41,371)=""
^DD(423,"GL",301,42,372)=""
^DD(423,"GL",301,43,373)=""
^DD(423,"GL",301,44,374)=""
^DD(423,"GL",301,45,375)=""
^DD(423,"GL",301,46,376)=""
^DD(423,"GL",302,1,377)=""
^DD(423,"GL",302,2,342)=""
^DD(423,"GL",302,3,378)=""
^DD(423,"GL",302,4,379)=""
^DD(423,"GL",302,5,380)=""
^DD(423,"GL",302,6,381)=""
^DD(423,"GL",302,7,382)=""
^DD(423,"GL",302,8,383)=""
^DD(423,"GL",302,9,384)=""
^DD(423,"GL",302,10,385)=""
^DD(423,"GL",303,1,386)=""
^DD(423,"GL",303,2,387)=""
^DD(423,"GL",303,3,388)=""
^DD(423,"GL",303,4,389)=""
^DD(423,"GL",303,5,390)=""
^DD(423,"GL",303,6,391)=""
^DD(423,"GL",303,7,392)=""
^DD(423,"GL",304,1,393)=""
^DD(423,"GL",304,2,394)=""
^DD(423,"GL",304,3,395)=""
^DD(423,"GL",304,4,396)=""
^DD(423,"GL",304,5,397)=""
^DD(423,"GL",304,6,398)=""
^DD(423,"GL",304,7,399)=""
^DD(423,"GL",304,8,400)=""
^DD(423,"GL",304,9,401)=""
^DD(423,"GL",304,10,402)=""
^DD(423,"GL",304,11,403)=""
^DD(423,"GL",304,12,404)=""
^DD(423,"GL",304,13,405)=""
^DD(423,"GL",304,14,406)=""
^DD(423,"GL",304,15,407)=""
^DD(423,"GL",304,16,408)=""
^DD(423,"GL",304,17,409)=""
^DD(423,"GL",1005,1,1005.01)=""
^DD(423,"GL",1005,2,1005.02)=""
^DD(423,"GL",1005,3,1005.03)=""
^DD(423,"GL",1005,4,1005.04)=""
^DD(423,"GL",1005,5,1005.05)=""
^DD(423,"GL",1005,6,1005.06)=""
^DD(423,"GL",1005,7,1005.07)=""
^DD(423,"GL",1005,8,1005.08)=""
^DD(423,"GL",1005,9,1005.09)=""
^DD(423,"GL",1005,11,1005.11)=""
^DD(423,"GL",1005,12,1005.12)=""
^DD(423,"GL",1005,13,1005.13)=""
^DD(423,"GL",1005,14,1005.14)=""
^DD(423,"GL",1005,15,1005.15)=""
^DD(423,"GL",1005,16,1005.16)=""
^DD(423,"GL",1005,17,1005.17)=""
^DD(423,"GL",1005,18,1005.18)=""
^DD(423,"GL",1005,19,1005.19)=""
^DD(423,"GL",1005,20,1005.2)=""
^DD(423,"GL",1005,21,1005.21)=""
^DD(423,"GL",1005,22,1005.22)=""
^DD(423,"GL",1006,1,1006.01)=""
^DD(423,"GL",1006,2,1006.02)=""
^DD(423,"GL","CODE",0,.2)=""
^DD(423,"GL","KEY",0,112)=""
^DD(423,"GL","TRANS",1,.3)=""
^DD(423,"GL","TRANS",2,.4)=""
^DD(423,"GL","TRANS",3,.5)=""
^DD(423,"GL","TRANS",4,.6)=""
^DD(423,"GL","TRANS",5,.7)=""
^DD(423,"GL","TRANS",6,.8)=""
^DD(423,"GL","TRANS",7,999.2)=""
^DD(423,"GL","TRANS",8,.9)=""
^DD(423,"GL","TRANS",9,.05)=""
^DD(423,"GL","TRANS",10,.21)=""
^DD(423,"GL","TRANS",11,.22)=""
^DD(423,"GL","TRANS",12,.23)=""
^DD(423,"GL","TRANS",13,.24)=""
^DD(423,"GL","TRANS",14,.231)=""
^DD(423,"GL","TRANS",15,.95)=""
^DD(423,"GL","TRANS",16,.25)=""
^DD(423,"IX",.01)=""
^DD(423,"IX",.21)=""
^DD(423,"IX",.22)=""
^DD(423,"IX",.23)=""
^DD(423,"IX",.24)=""
^DD(423,"IX",.25)=""
^DD(423,"IX",.3)=""
^DD(423,"IX",.31)=""
^DD(423,"IX",.5)=""
^DD(423,"IX",.7)=""
^DD(423,"IX",.8)=""
^DD(423,"IX",5)=""
^DD(423,"IX",5.1)=""
^DD(423,"IX",300.1)=""
^DD(423,"RQ",.01)=""
^DD(423,"RQ",.6)=""
^DD(423,"RQ",3)=""
^DD(423,"RQ",4)=""
^DD(423,"RQ",5)=""
^DD(423,"RQ",41)=""
^DD(423,"RQ",42)=""
^DD(423,"RQ",43)=""
^DD(423,"RQ",44)=""
^DD(423,"RQ",61)=""
^DD(423,"RQ",91)=""
^DD(423,"RQ",93)=""
^DD(423,"RQ",95)=""
^DD(423,"RQ",104)=""
^DD(423,"RQ",150)=""
^DD(423,"RQ",154)=""
^DD(423,"RQ",157)=""
^DD(423,"RQ",160)=""
^DD(423,"RQ",301)=""
^DD(423,"RQ",302)=""
^DD(423,"RQ",303)=""
^DD(423,"RQ",304)=""
^DD(423,"RQ",305)=""
^DD(423,"RQ",306)=""
^DD(423,"RQ",306.2)=""
^DD(423,"RQ",308)=""
^DD(423,"RQ",311)=""
^DD(423,"RQ",312)=""
^DD(423,"RQ",313)=""
^DD(423,"RQ",314)=""
^DD(423,"RQ",315)=""
^DD(423,"RQ",330)=""
^DD(423,"RQ",340)=""
^DD(423,"RQ",341)=""
^DD(423,"RQ",344)=""
^DD(423,"RQ",350)=""
^DD(423,"RQ",352)=""
^DD(423,"RQ",353)=""
^DD(423,"RQ",356)=""
^DD(423,"RQ",357)=""
^DD(423,"RQ",360)=""
^DD(423,"RQ",364)=""
^DD(423,"RQ",367)=""
^DD(423,"RQ",368)=""
^DD(423,"RQ",369)=""
^DD(423,"RQ",370)=""
^DD(423,"RQ",371)=""
^DD(423,"RQ",373)=""
^DD(423,"RQ",377)=""
^DD(423,"RQ",387)=""
^DD(423,"RQ",389)=""
^DD(423,"RQ",393)=""
^DD(423,"RQ",395)=""
^DD(423,"RQ",396)=""
^DD(423,"RQ",397)=""
^DD(423,"RQ",407)=""
^DD(423,"RQ",408)=""
^DD(423,"RQ",409)=""
^DD(423,"RQ",411)=""
^DD(423,"RQ",421)=""
^DD(423,"RQ",426)=""
^DD(423,"RQ",427)=""
^DD(423,"RQ",429)=""
^DD(423,"RQ",430)=""
^DD(423,"RQ",500)=""
^DD(423,"RQ",501)=""
^DD(423,"RQ",502)=""
^DD(423,"RQ",503)=""
^DD(423,"RQ",504)=""
^DD(423,"RQ",505)=""
^DD(423,"RQ",506)=""
^DD(423,"RQ",581)=""
^DD(423,"RQ",582)=""
^DD(423,"RQ",999)=""
^DD(423,"RQ",1000)=""
^DD(423,"RQ",1001)=""
^DD(423,"RQ",1002)=""
^DD(423,"RQ",1003)=""
^DD(423,"RQ",1004)=""
^DD(423,"RQ",1005.01)=""
^DD(423,"RQ",1005.02)=""
^DD(423,"RQ",1005.03)=""
^DD(423,"RQ",1005.04)=""
^DD(423,"RQ",1005.05)=""
^DD(423,"RQ",1005.06)=""
^DD(423,"RQ",1005.07)=""
^DD(423,"RQ",1005.08)=""
^DD(423,"RQ",1005.09)=""
^DD(423,"RQ",1005.11)=""
^DD(423,"RQ",1005.12)=""
^DD(423,"RQ",1005.13)=""
^DD(423,"RQ",1005.14)=""
^DD(423,"RQ",1005.15)=""
^DD(423,"RQ",1005.16)=""
^DD(423,"RQ",1005.17)=""
^DD(423,"RQ",1005.18)=""
^DD(423,"RQ",1005.19)=""
^DD(423,"RQ",1005.2)=""
^DD(423,"RQ",1005.21)=""
^DD(423,"RQ",1005.22)=""
^DD(423,"RQ",1006.01)=""
^DD(423,"RQ",1006.02)=""
^DD(423,"SB",423.01,21)=""
^DD(423,"SB",423.0117,117)=""
^DD(423,"SB",423.02,24)=""
^DD(423,"SB",423.03,30)=""
^DD(423,"SB",423.04,35)=""
^DD(423,"SB",423.05,40)=""
^DD(423,"SB",423.06,.2)=""
^DD(423,"SB",423.07,66)=""
^DD(423,"SB",423.08,70)=""
^DD(423,"SB",423.09,74)=""
^DD(423,"SB",423.1,75)=""
^DD(423,"SB",423.11,76)=""
^DD(423,"SB",423.12,89)=""
^DD(423,"SB",423.13,90)=""
^DD(423,"SB",423.14,97)=""
^DD(423,"SB",423.15,98)=""
^DD(423,"SB",423.16,100)=""
^DD(423,"SB",423.17,111)=""
^DD(423,"SB",423.18,112)=""
^DD(423,"SB",423.19,530)=""
^DD(423,"SB",423.2,550)=""
^DD(423.01,0)="SUB ACCOUNT/PAYROLL ANALYSIS SUB-FIELD^NL^2^3"
^DD(423.01,0,"NM","SUB ACCOUNT/PAYROLL ANALYSIS")=""
^DD(423.01,0,"UP")="423"
^DD(423.01,.01,0)="SUB ACCOUNT/PAYROLL ANALYSIS^RMFX^^0;1^I X'=""$"" K:X<1000&(X>4300)&(X'?4N) X"
^DD(423.01,.01,3)="Enter valid 4 number sub-account or payroll analysis account number"
^DD(423.01,.01,4)=""
^DD(423.01,.01,21,0)="^^2^2^2910516^"
^DD(423.01,.01,21,1,0)="This is the valid 4 number subaccount or payroll analysis account"
^DD(423.01,.01,21,2,0)="number."
^DD(423.01,.01,"DT")="2860815"
^DD(423.01,1,0)="AMOUNT^NJ11,0^^0;2^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.01,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.01,1,21,0)="^^1^1^2910516^"
^DD(423.01,1,21,1,0)="This is the amount of the transaction."
^DD(423.01,1,"DT")="2850410"
^DD(423.01,2,0)="LIQUIDATION AMOUNT^NJ11,0^^0;3^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.01,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999999"
^DD(423.01,2,21,0)="^^1^1^2910516^"
^DD(423.01,2,21,1,0)="This is the liquidation amount."
^DD(423.01,2,"DT")="2850410"
^DD(423.01,"B","AMOUNT",1)=""
^DD(423.01,"B","LIQUIDATION AMOUNT",2)=""
^DD(423.01,"B","SUB ACCOUNT/PAYROLL ANALYSIS",.01)=""
^DD(423.01,"GL",0,1,.01)=""
^DD(423.01,"GL",0,2,1)=""
^DD(423.01,"GL",0,3,2)=""
^DD(423.01,"RQ",.01)=""
^DD(423.0117,0)="P&R CC (1-7) SUB-FIELD^^2^2"
^DD(423.0117,0,"DT")="2920619"
^DD(423.0117,0,"IX","B",423.0117,.01)=""
^DD(423.0117,0,"NM","P&R CC (1-7)")=""
^DD(423.0117,0,"UP")="423"
^DD(423.0117,.01,0)="P&R COST CENTER^MP420.1'^PRCD(420.1,^0;1^Q"
^DD(423.0117,.01,1,0)="^.1"
^DD(423.0117,.01,1,1,0)="423.0117^B"
^DD(423.0117,.01,1,1,1)="S ^PRCF(423,DA(1),23,""B"",$E(X,1,30),DA)="""""
^DD(423.0117,.01,1,1,2)="K ^PRCF(423,DA(1),23,""B"",$E(X,1,30),DA)"
^DD(423.0117,.01,3)=""
^DD(423.0117,.01,"DT")="2920619"
^DD(423.0117,2,0)="MANUFACTURING COST^NJ11,0^^0;3^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.0117,2,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(423.0117,2,"DT")="2920618"
^DD(423.0117,"B","MANUFACTURING COST",2)=""
^DD(423.0117,"B","P&R COST CENTER",.01)=""
^DD(423.0117,"GL",0,1,.01)=""
^DD(423.0117,"GL",0,3,2)=""
^DD(423.0117,"IX",.01)=""
^DD(423.02,0)="LINE NUMBER (1-38) SUB-FIELD^NL^20^21"
^DD(423.02,0,"DT")="2930301"
^DD(423.02,0,"NM","LINE NUMBER (1-38)")=""
^DD(423.02,0,"UP")="423"
^DD(423.02,.01,0)="LINE NUMBER (1-38)^MNJ2,0X^^0;1^K:+X'=X!(X>38)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.02,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 38"
^DD(423.02,.01,21,0)="^^1^1^2910516^"
^DD(423.02,.01,21,1,0)="This is the line number."
^DD(423.02,.01,"DT")="2860815"
^DD(423.02,1,0)="PAT NUMBER^F^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6AN) X"
^DD(423.02,1,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.02,1,21,0)="^^1^1^2910516^"
^DD(423.02,1,21,1,0)="This is the PAT transaction number."
^DD(423.02,1,"DT")="2850411"
^DD(423.02,2,0)="YALD^FXO^^0;3^Q:X?.2UN1""."".1UN1""."".1UN  K:$L(X)>4!($L(X)<3) X I $D(X) S X=$E(X,1,2)_"".""_$E(X,3)_"".""_$E(X,4)"
^DD(423.02,2,2)="S Y(0)=Y S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.02,2,2.1)="S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.02,2,3)="Enter Standard YALD Code - With or without the DOTS."
^DD(423.02,2,21,0)="^^2^2^2910516^"
^DD(423.02,2,21,1,0)="This is the YALD code (year, appropriation,"
^DD(423.02,2,21,2,0)="limitation, department)."
^DD(423.02,2,"DT")="2891009"
^DD(423.02,3,0)="FUNCTIONAL STATUS CODE^F^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(423.02,3,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423.02,3,21,0)="^^1^1^2910516^"
^DD(423.02,3,21,1,0)="This is the two character functional status code."
^DD(423.02,3,"DT")="2850411"
^DD(423.02,4,0)="COLLECTION AMOUNT^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.02,4,1,0)="^.1"
^DD(423.02,4,1,1,0)="^^TRIGGER^423^108"
^DD(423.02,4,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(423.02,4,1,1,1.4)"
^DD(423.02,4,1,1,1.4)="S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,16,99))  S DIH=DIH_U"" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"""":U_%,1:""""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(423.02,4,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(423.02,4,1,1,2.4)"
^DD(423.02,4,1,1,2.4)="S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,16,99))  S DIH=DIH_U"" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"""":U_%,1:""""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(423.02,4,1,1,"CREATE VALUE")="BALANCE AMOUNT+COLLECTION AMOUNT"
^DD(423.02,4,1,1,"DELETE VALUE")="BALANCE AMOUNT-OLD COLLECTION AMOUNT"
^DD(423.02,4,1,1,"FIELD")="BAL"
^DD(423.02,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.02,4,21,0)="^^1^1^2910516^"
^DD(423.02,4,21,1,0)="This is the collection amount."
^DD(423.02,4,"DT")="2860904"
^DD(423.02,5,0)="ACTION CODE^S^1:ADDITIONS;2:SUBTRACTIONS;3:DATA OR POSITIVE AMT (OVERLAY);4:NEGATIVE AMOUNTS (OVERLAY);^0;6^Q"
^DD(423.02,5,3)=""
^DD(423.02,5,21,0)="^^1^1^2910516^"
^DD(423.02,5,21,1,0)="This is the 2 character (between 1 and 2) action code."
^DD(423.02,5,"DT")="2880419"
^DD(423.02,6,0)="ACCOUNT CODE^S^01:01;02:02;03:03;04:04;05:05;06:06;07:07;08:08;09:09;10:10;11:11;12:12;13:13;14:14;15:15;16:16;17:17;18:18;19:19;20:20;21:21;22:22;23:23;99:99;^0;7^Q"
^DD(423.02,6,3)="ENTER ACCOUNT CODE.  FOR FULL REFERENCE SEE MP 4 PT V  PARA 12D.06"
^DD(423.02,6,"DT")="2880419"
^DD(423.02,7,0)="SOURCE CODE^S^1:VA SUPPLY FUND - DEPOT;2:VA SUPPLY FUND - STATION;3:NON FEDERAL;4:GSA;5:OTHER FEDERAL, A/C, OTHER VA;6:ACCRUED SVCS PAY - FED;7:ACCRUED SVCS PAY - NON FED;^0;8^Q"
^DD(423.02,7,3)=""
^DD(423.02,7,21,0)="^^1^1^2910516^"
^DD(423.02,7,21,1,0)="This is the source code."
^DD(423.02,7,"DT")="2880419"
^DD(423.02,8,0)="INVENTORY AMOUNT^NJ11,0^^0;9^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.02,8,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.02,8,21,0)="^^1^1^2910516^"
^DD(423.02,8,21,1,0)="This is the inventory amount."
^DD(423.02,8,"DT")="2850419"
^DD(423.02,9,0)="PAYABLE AMOUNT^NJ11,0^^0;10^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.02,9,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.02,9,21,0)="^^1^1^2910516^"
^DD(423.02,9,21,1,0)="This is the payable amount."
^DD(423.02,9,"DT")="2850419"
^DD(423.02,10,0)="INTEROFFICE STATION NUMBER^F^^0;11^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423.02,10,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423.02,10,21,0)="^^1^1^2910516^"
^DD(423.02,10,21,1,0)="This is the interoffice station number."
^DD(423.02,10,"DT")="2850419"
^DD(423.02,11,0)="DEBIT G.L. ACCT #^F^^0;12^K:$L(X)>6!($L(X)<3)!'(X?3N!(X?6N)) X"
^DD(423.02,11,3)="ANSWER MUST BE 3 OR 6 CHARACTERS IN LENGTH"
^DD(423.02,11,21,0)="^^1^1^2910516^"
^DD(423.02,11,21,1,0)="This is the debit G.L. account number."
^DD(423.02,11,"DT")="2860815"
^DD(423.02,12,0)="CREDIT G.L. ACCT #^F^^0;13^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423.02,12,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.02,12,21,0)="^^1^1^2910516^"
^DD(423.02,12,21,1,0)="This is the credit G.L. account number."
^DD(423.02,12,"DT")="2850419"
^DD(423.02,13,0)="AMOUNT^NJ11,0^^0;14^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.02,13,1,0)="^.1"
^DD(423.02,13,1,1,0)="^^TRIGGER^423^108"
^DD(423.02,13,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $D(PRCFA(""TRACK"")) I X S X=DIV S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(423.02,13,1,1,1.4)"
^DD(423.02,13,1,1,1.4)="S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,16,99))  S DIH=DIH_U"" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"""":U_%,1:""""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(423.02,13,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(0)=X I $D(PRCFA(""TRACK"")) I X S X=DIV S Y(1)=$S($D(^PRCF(423,D0,8)):^(8),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(423.02,13,1,1,2.1) X ^DD(423.02,13,1,1,2.4)"
^DD(423.02,13,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRCF(423,D0,3,D1,0)):^(0),1:"""") S X=DIU-$P(Y(1),U,14)"
^DD(423.02,13,1,1,2.4)="S DIH=$S($D(^PRCF(423,DIV(0),8)):^(8),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,16,99))  S DIH=DIH_U"" S %=$P(DIH,U,18,999),DIU=$P(DIH,U,17),^(8)=$P(DIH,U,1,16)_U_DIV_$S(%]"""":U_%,1:""""),DIH=423,DIG=108 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(423.02,13,1,1,"CREATE CONDITION")="I $D(PRCFA(""TRACK""))"
^DD(423.02,13,1,1,"CREATE VALUE")="BALANCE AMOUNT+AMOUNT"
^DD(423.02,13,1,1,"DELETE CONDITION")="I $D(PRCFA(""TRACK""))"
^DD(423.02,13,1,1,"DELETE VALUE")="BALANCE AMOUNT-AMOUNT"
^DD(423.02,13,1,1,"DIC")=""
^DD(423.02,13,1,1,"FIELD")="BAL"
^DD(423.02,13,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.02,13,21,0)="^^1^1^2930204^^"
^DD(423.02,13,21,1,0)="This is the amount of the general ledger credit."
^DD(423.02,13,"DT")="2860904"
^DD(423.02,14,0)="RECEIVABLE CODE^S^0:CONTING ASSET ACCRU;1:DUE FROM FED  3011;2:DUE FROM NON FED  3012;3:REIMB - FED  1022;4:REIMB - NON FED  1022;5:REIMB - Q&L  1022;^0;15^Q"
^DD(423.02,14,3)=""
^DD(423.02,14,21,0)="^^1^1^2910703^^"
^DD(423.02,14,21,1,0)="This is the receivable code."
^DD(423.02,14,"DT")="2910815"
^DD(423.02,15,0)="SERVICE CODE^S^01:01;02:02;03:03;04:04;05:05;06:06;07:07;08:08;09:09;10:10;11:11;12:12;13:13;14:14;15:15;16:16;17:17;18:18;19:19;20:20;21:21;22:22;40:40;41:41;42:42;43:43;44:44;45:45;46:46;^0;16^Q"
^DD(423.02,15,3)="ENTER SERVICE CODE.  FULL REFERENCE FOUND IN MP 4  PT V  PARA 12D.06"
^DD(423.02,15,21,0)="^^1^1^2910516^"
^DD(423.02,15,21,1,0)="This is the service code."
^DD(423.02,15,"DT")="2930301"
^DD(423.02,16,0)="LIMITATION^F^^0;17^K:$L(X)>1!($L(X)<1)!'(X?1AN) X"
^DD(423.02,16,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423.02,16,21,0)="^^1^1^2910516^"
^DD(423.02,16,21,1,0)="This is the limitation code for this line number."
^DD(423.02,16,"DT")="2850422"
^DD(423.02,17,0)="QUARTER^NJ1,0^^0;18^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.02,17,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 4"
^DD(423.02,17,21,0)="^^1^1^2910516^"
^DD(423.02,17,21,1,0)="This is the FY quarter for this transaction."
^DD(423.02,17,"DT")="2850422"
^DD(423.02,18,0)="AMOUNT OF TRANSFER^NJ13,0^^0;19^K:+X'=X!(X>9999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.02,18,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999999"
^DD(423.02,18,21,0)="^^1^1^2910516^"
^DD(423.02,18,21,1,0)="This is the amount of the transfer."
^DD(423.02,18,"DT")="2850422"
^DD(423.02,19,0)="TO CONTROL POINT^F^^0;20^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423.02,19,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423.02,19,21,0)="^^1^1^2910516^"
^DD(423.02,19,21,1,0)="This is the Control Point that receives the transferred funds."
^DD(423.02,19,"DT")="2850422"
^DD(423.02,20,0)="FROM CONTROL POINT^F^^0;21^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423.02,20,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423.02,20,21,0)="^^2^2^2930204^^^"
^DD(423.02,20,21,1,0)="This is the control point that is the source of"
^DD(423.02,20,21,2,0)="the transferred funds."
^DD(423.02,20,"DT")="2850422"
^DD(423.02,"B","ACCOUNT CODE",6)=""
^DD(423.02,"B","ACTION CODE",5)=""
^DD(423.02,"B","AMOUNT",13)=""
^DD(423.02,"B","AMOUNT OF TRANSFER",18)=""
^DD(423.02,"B","COLLECTION AMOUNT",4)=""
^DD(423.02,"B","CREDIT G.L. ACCT #",12)=""
^DD(423.02,"B","DEBIT G.L. ACCT #",11)=""
^DD(423.02,"B","FROM CONTROL POINT",20)=""
^DD(423.02,"B","FUNCTIONAL STATUS CODE",3)=""
^DD(423.02,"B","INTEROFFICE STATION NUMBER",10)=""
^DD(423.02,"B","INVENTORY AMOUNT",8)=""
^DD(423.02,"B","LIMITATION",16)=""
^DD(423.02,"B","LINE NUMBER (1-38)",.01)=""
^DD(423.02,"B","PAT NUMBER",1)=""
^DD(423.02,"B","PAYABLE AMOUNT",9)=""
^DD(423.02,"B","QUARTER",17)=""
^DD(423.02,"B","RECEIVABLE CODE",14)=""
^DD(423.02,"B","SERVICE CODE",15)=""
^DD(423.02,"B","SOURCE CODE",7)=""
^DD(423.02,"B","TO CONTROL POINT",19)=""
^DD(423.02,"B","YALD",2)=""
^DD(423.02,"GL",0,1,.01)=""
^DD(423.02,"GL",0,2,1)=""
^DD(423.02,"GL",0,3,2)=""
^DD(423.02,"GL",0,4,3)=""
^DD(423.02,"GL",0,5,4)=""
^DD(423.02,"GL",0,6,5)=""
^DD(423.02,"GL",0,7,6)=""
^DD(423.02,"GL",0,8,7)=""
^DD(423.02,"GL",0,9,8)=""
^DD(423.02,"GL",0,10,9)=""
^DD(423.02,"GL",0,11,10)=""
^DD(423.02,"GL",0,12,11)=""
^DD(423.02,"GL",0,13,12)=""
^DD(423.02,"GL",0,14,13)=""
^DD(423.02,"GL",0,15,14)=""
^DD(423.02,"GL",0,16,15)=""
^DD(423.02,"GL",0,17,16)=""
^DD(423.02,"GL",0,18,17)=""
^DD(423.02,"GL",0,19,18)=""
^DD(423.02,"GL",0,20,19)=""
^DD(423.02,"GL",0,21,20)=""
^DD(423.02,"IX",4)=""
^DD(423.02,"IX",13)=""
^DD(423.03,0)="ACCRUAL COST CENTER LINE # SUB-FIELD^NL^3^5"
^DD(423.03,0,"NM","ACCRUAL COST CENTER LINE #")=""
^DD(423.03,0,"UP")="423"
^DD(423.03,.01,0)="ACCRUAL COST CENTER LINE #^MRNJ2,0X^^0;1^K:+X'=X!(X>14)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.03,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 14"
^DD(423.03,.01,21,0)="^^1^1^2910516^"
^DD(423.03,.01,21,1,0)="This is the accrual cost center line number."
^DD(423.03,.01,"DT")="2860815"
^DD(423.03,.05,0)="COST CENTER^F^^0;5^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423.03,.05,3)="ENTER 6 DIGIT COST CENTER"
^DD(423.03,.05,21,0)="^^1^1^2910516^"
^DD(423.03,.05,21,1,0)="This is the 6 digit cost center line number."
^DD(423.03,.05,"DT")="2860507"
^DD(423.03,1,0)="SUB ACCOUNT^F^^0;2^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423.03,1,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423.03,1,21,0)="^^1^1^2910516^"
^DD(423.03,1,21,1,0)="This is the subaccount for this accrual cost center line number."
^DD(423.03,1,"DT")="2850422"
^DD(423.03,2,0)="AMOUNT^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.03,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(423.03,2,21,0)="^^1^1^2910516^"
^DD(423.03,2,21,1,0)="This is the amount of this accrual cost center line number."
^DD(423.03,2,"DT")="2850422"
^DD(423.03,3,0)="HOURS^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.03,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(423.03,3,21,0)="^^2^2^2910516^"
^DD(423.03,3,21,1,0)="These are the hours covered in the transaction, if"
^DD(423.03,3,21,2,0)="applicable."
^DD(423.03,3,"DT")="2850422"
^DD(423.03,"B","ACCRUAL COST CENTER LINE #",.01)=""
^DD(423.03,"B","AMOUNT",2)=""
^DD(423.03,"B","COST CENTER",.05)=""
^DD(423.03,"B","HOURS",3)=""
^DD(423.03,"B","SUB ACCOUNT",1)=""
^DD(423.03,"GL",0,1,.01)=""
^DD(423.03,"GL",0,2,1)=""
^DD(423.03,"GL",0,3,2)=""
^DD(423.03,"GL",0,4,3)=""
^DD(423.03,"GL",0,5,.05)=""
^DD(423.03,"RQ",.01)=""
^DD(423.04,0)="SECTION B LINE NUMBER SUB-FIELD^NL^3^5"
^DD(423.04,0,"NM","SECTION B LINE NUMBER")=""
^DD(423.04,0,"UP")="423"
^DD(423.04,.01,0)="SECTION B LINE NUMBER^MNJ4,0X^^0;1^K:+X'=X!(X>5)!(X<1) X I $D(X) S DINUM=X"
^DD(423.04,.01,3)="ENTER AN INTEGER BETWEEN 1 AND 5"
^DD(423.04,.01,21,0)="^^1^1^2910516^"
^DD(423.04,.01,21,1,0)="This is the section B code sheet line number."
^DD(423.04,.01,"DT")="2870908"
^DD(423.04,.05,0)="ACCOUNT1^NJ4,0^^0;5^K:+X'=X!(X>1350)!(X<1100)!(X?.E1"".""1N.N) X"
^DD(423.04,.05,3)="TYPE A WHOLE NUMBER BETWEEN 1100 AND 1350"
^DD(423.04,.05,21,0)="^^1^1^2910516^"
^DD(423.04,.05,21,1,0)="This is the section B payroll analysis account number."
^DD(423.04,.05,"DT")="2870908"
^DD(423.04,1,0)="AMOUNT 1^NJ8,0^^0;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.04,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(423.04,1,21,0)="^^1^1^2910516^"
^DD(423.04,1,21,1,0)="This is the section B amount relating to payroll analysis account 1."
^DD(423.04,1,"DT")="2850422"
^DD(423.04,2,0)="ACCOUNT 2^NJ4,0^^0;3^K:+X'=X!(X>1350)!(X<1100)!(X?.E1"".""1N.N) X"
^DD(423.04,2,3)="TYPE A WHOLE NUMBER BETWEEN 1100 AND 1350"
^DD(423.04,2,21,0)="^^1^1^2910516^"
^DD(423.04,2,21,1,0)="This is the next section B payroll analysis account."
^DD(423.04,2,"DT")="2850422"
^DD(423.04,3,0)="AMOUNT 2^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.04,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(423.04,3,21,0)="^^1^1^2910516^"
^DD(423.04,3,21,1,0)="This is the section B amount relating to payroll analysis account 2."
^DD(423.04,3,"DT")="2850422"
^DD(423.04,"B","ACCOUNT 2",2)=""
^DD(423.04,"B","ACCOUNT1",.05)=""
^DD(423.04,"B","AMOUNT 1",1)=""
^DD(423.04,"B","AMOUNT 2",3)=""
^DD(423.04,"B","SECTION B LINE NUMBER",.01)=""
^DD(423.04,"GL",0,1,.01)=""
^DD(423.04,"GL",0,2,1)=""
^DD(423.04,"GL",0,3,2)=""
^DD(423.04,"GL",0,4,3)=""
^DD(423.04,"GL",0,5,.05)=""
^DD(423.05,0)="REC STA OR FCP SUB-FIELD^NL^4^5"
^DD(423.05,0,"NM","REC STA OR FCP")=""
^DD(423.05,0,"UP")="423"
^DD(423.05,.01,0)="REC STA OR FCP^MFX^^0;1^K:$L(X)>3!($L(X)<3)!'(X?3N) X Q:'$D(X)  I $D(D1),D1>9 W ""  ONLY 10 ENTRIES PER CODE SHEET ARE PERMITTED"",*7 K X"
^DD(423.05,.01,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423.05,.01,21,0)="^^2^2^2910516^"
^DD(423.05,.01,21,1,0)="This is the 3 character receiving station or"
^DD(423.05,.01,21,2,0)="fund control point."
^DD(423.05,.01,"DT")="2930607"
^DD(423.05,1,0)="1ST QTR AMOUNT^NJ11,0^^0;2^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.05,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.05,1,21,0)="^^1^1^2910516^"
^DD(423.05,1,21,1,0)="This is the first quarter amount."
^DD(423.05,1,"DT")="2850422"
^DD(423.05,2,0)="2ND QTR AMOUNT^NJ11,0^^0;3^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.05,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.05,2,21,0)="^^1^1^2910516^"
^DD(423.05,2,21,1,0)="This is the second quarter amount."
^DD(423.05,2,"DT")="2850422"
^DD(423.05,3,0)="3RD QTR AMOUNT^NJ11,0X^^0;4^Q:X=""$""  K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.05,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.05,3,21,0)="^^1^1^2910516^"
^DD(423.05,3,21,1,0)="This is the third quarter amount."
^DD(423.05,3,"DT")="2850422"
^DD(423.05,4,0)="4TH QTR AMOUNT^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.05,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.05,4,21,0)="^^1^1^2910516^"
^DD(423.05,4,21,1,0)="This is the fourth quarter amount."
^DD(423.05,4,"DT")="2850422"
^DD(423.05,"B","1ST QTR AMOUNT",1)=""
^DD(423.05,"B","2ND QTR AMOUNT",2)=""
^DD(423.05,"B","3RD QTR AMOUNT",3)=""
^DD(423.05,"B","4TH QTR AMOUNT",4)=""
^DD(423.05,"B","REC STA OR FCP",.01)=""
^DD(423.05,"GL",0,1,.01)=""
^DD(423.05,"GL",0,2,1)=""
^DD(423.05,"GL",0,3,2)=""
^DD(423.05,"GL",0,4,3)=""
^DD(423.05,"GL",0,5,4)=""
^DD(423.06,0)="CODE SUB-FIELD^^.01^1"
^DD(423.06,0,"DT")="2920228"
^DD(423.06,0,"NM","CODE")=""
^DD(423.06,0,"UP")="423"
^DD(423.06,.01,0)="CODE^F^^0;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(423.06,.01,1,0)="^.1^^0"
^DD(423.06,.01,3)="Answer must be 1-245 characters in length."
^DD(423.06,.01,21,0)="^^1^1^2910516^"
^DD(423.06,.01,21,1,0)="This is the CALM code sheet."
^DD(423.06,.01,"DT")="2920228"
^DD(423.06,"B","CODE",.01)=""
^DD(423.06,"GL",0,"E1,245",.01)=""
^DD(423.07,0)="SF ACCT CODE LINE # SUB-FIELD^NL^6^7"
^DD(423.07,0,"NM","SF ACCT CODE LINE #")=""
^DD(423.07,0,"UP")="423"
^DD(423.07,.01,0)="SF ACCT CODE LINE #^MRNJ2,0X^^0;1^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.07,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 10"
^DD(423.07,.01,21,0)="^^1^1^2910516^"
^DD(423.07,.01,21,1,0)="This is the SF account code line number."
^DD(423.07,.01,"DT")="2860815"
^DD(423.07,1,0)="SF INV ACCOUNT CODE^F^^0;2^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423.07,1,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423.07,1,21,0)="^^1^1^2910516^"
^DD(423.07,1,21,1,0)="This is the SF inventory account code."
^DD(423.07,1,"DT")="2851101"
^DD(423.07,2,0)="SALES AMOUNT^NJ11,0^^0;3^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.07,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.07,2,21,0)="^^1^1^2910516^"
^DD(423.07,2,21,1,0)="This is the sales amount."
^DD(423.07,2,"DT")="2851101"
^DD(423.07,3,0)="INVENTORY AMOUNT^NJ11,0^^0;4^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.07,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.07,3,21,0)="^^1^1^2910516^"
^DD(423.07,3,21,1,0)="This is the inventory amount."
^DD(423.07,3,"DT")="2851101"
^DD(423.07,4,0)="COST CENTER^F^^0;5^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423.07,4,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.07,4,21,0)="^^1^1^2910516^"
^DD(423.07,4,21,1,0)="This is the cost center."
^DD(423.07,4,"DT")="2851101"
^DD(423.07,5,0)="SUB ACCOUNT^P420.2'^PRCD(420.2,^0;6^Q"
^DD(423.07,5,21,0)="^^1^1^2910516^"
^DD(423.07,5,21,1,0)="This is the subaccount."
^DD(423.07,5,"DT")="2851101"
^DD(423.07,6,0)="DOT^F^^0;7^K:$L(X)>1!($L(X)<1) X"
^DD(423.07,6,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(423.07,6,21,0)="^^2^2^2910516^"
^DD(423.07,6,21,1,0)="This field forces the code sheet to enter an extra"
^DD(423.07,6,21,2,0)="'>' character."
^DD(423.07,6,"DT")="2851101"
^DD(423.07,"B","COST CENTER",4)=""
^DD(423.07,"B","DOT",6)=""
^DD(423.07,"B","INVENTORY AMOUNT",3)=""
^DD(423.07,"B","SALES AMOUNT",2)=""
^DD(423.07,"B","SF ACCT CODE LINE #",.01)=""
^DD(423.07,"B","SF INV ACCOUNT CODE",1)=""
^DD(423.07,"B","SUB ACCOUNT",5)=""
^DD(423.07,"GL",0,1,.01)=""
^DD(423.07,"GL",0,2,1)=""
^DD(423.07,"GL",0,3,2)=""
^DD(423.07,"GL",0,4,3)=""
^DD(423.07,"GL",0,5,4)=""
^DD(423.07,"GL",0,6,5)=""
^DD(423.07,"GL",0,7,6)=""
^DD(423.07,"RQ",.01)=""
^DD(423.08,0)="COST CENTER 'A' LINE # SUB-FIELD^NL^5^6"
^DD(423.08,0,"NM","COST CENTER 'A' LINE #")=""
^DD(423.08,0,"UP")="423"
^DD(423.08,.01,0)="COST CENTER 'A' LINE #^MNJ1,0X^^0;1^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.08,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 5"
^DD(423.08,.01,21,0)="^^1^1^2910516^"
^DD(423.08,.01,21,1,0)="This is the cost center 'A' line number."
^DD(423.08,.01,"DT")="2860815"
^DD(423.08,1,0)="COST CENTER OR ASSET ACQUIS^F^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423.08,1,3)="ENTER COST CENTER OR ASSET ACQUISITION NUMBER"
^DD(423.08,1,21,0)="^^1^1^2910516^"
^DD(423.08,1,21,1,0)="This is the cost center or asset acquisition number."
^DD(423.08,1,"DT")="2851101"
^DD(423.08,2,0)="SUB ACCOUNT^P420.2'^PRCD(420.2,^0;3^Q"
^DD(423.08,2,21,0)="^^1^1^2910516^"
^DD(423.08,2,21,1,0)="This is the subaccount."
^DD(423.08,2,"DT")="2851101"
^DD(423.08,3,0)="PERSONAL SERVICE ANALYSIS ACCT^F^^0;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(423.08,3,3)="ANSWER MUST BE 4 CHARACTERS IN LENGTH"
^DD(423.08,3,21,0)="^^1^1^2910516^"
^DD(423.08,3,21,1,0)="This is the personal service analysis account."
^DD(423.08,3,"DT")="2851101"
^DD(423.08,4,0)="AMOUNT^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.08,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.08,4,21,0)="^^2^2^2930204^^"
^DD(423.08,4,21,1,0)="This is the amount relating to the personal"
^DD(423.08,4,21,2,0)="service analysis account."
^DD(423.08,4,"DT")="2851101"
^DD(423.08,5,0)="HOURS^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.08,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(423.08,5,21,0)="^^2^2^2910516^"
^DD(423.08,5,21,1,0)="These are the hours relating to the personal service "
^DD(423.08,5,21,2,0)="analysis account."
^DD(423.08,5,"DT")="2851101"
^DD(423.08,"B","AMOUNT",4)=""
^DD(423.08,"B","COST CENTER 'A' LINE #",.01)=""
^DD(423.08,"B","COST CENTER OR ASSET ACQUIS",1)=""
^DD(423.08,"B","HOURS",5)=""
^DD(423.08,"B","PERSONAL SERVICE ANALYSIS ACCT",3)=""
^DD(423.08,"B","SUB ACCOUNT",2)=""
^DD(423.08,"GL",0,1,.01)=""
^DD(423.08,"GL",0,2,1)=""
^DD(423.08,"GL",0,3,2)=""
^DD(423.08,"GL",0,4,3)=""
^DD(423.08,"GL",0,5,4)=""
^DD(423.08,"GL",0,6,5)=""
^DD(423.09,0)="COST CENTER 'B' LINE # SUB-FIELD^NL^5^6"
^DD(423.09,0,"NM","COST CENTER 'B' LINE #")=""
^DD(423.09,0,"UP")="423"
^DD(423.09,.01,0)="COST CENTER 'B' LINE #^MNJ1,0X^^0;1^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.09,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 5"
^DD(423.09,.01,21,0)="^^1^1^2910516^"
^DD(423.09,.01,21,1,0)="This is the cost center 'B' line."
^DD(423.09,.01,"DT")="2860815"
^DD(423.09,1,0)="COST CENTER OR ASSET ACQUIS^F^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423.09,1,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.09,1,21,0)="^^1^1^2910516^^"
^DD(423.09,1,21,1,0)="This is the cost center or asset acquisition number."
^DD(423.09,1,"DT")="2851101"
^DD(423.09,2,0)="SUB ACCOUNT^P420.2^PRCD(420.2,^0;3^Q"
^DD(423.09,2,21,0)="^^1^1^2910516^"
^DD(423.09,2,21,1,0)="This is the subaccount."
^DD(423.09,2,"DT")="2851101"
^DD(423.09,3,0)="PERSONAL SERVICE ANALYSIS^F^^0;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(423.09,3,3)="ANSWER MUST BE 4 CHARACTERS IN LENGTH"
^DD(423.09,3,21,0)="^^1^1^2910516^"
^DD(423.09,3,21,1,0)="This is the personal service analysis."
^DD(423.09,3,"DT")="2851101"
^DD(423.09,4,0)="AMOUNT^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.09,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.09,4,"DT")="2851101"
^DD(423.09,5,0)="HOURS^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.09,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(423.09,5,"DT")="2851101"
^DD(423.09,"B","AMOUNT",4)=""
^DD(423.09,"B","COST CENTER 'B' LINE #",.01)=""
^DD(423.09,"B","COST CENTER OR ASSET ACQUIS",1)=""
^DD(423.09,"B","HOURS",5)=""
^DD(423.09,"B","PERSONAL SERVICE ANALYSIS",3)=""
^DD(423.09,"B","SUB ACCOUNT",2)=""
^DD(423.09,"GL",0,1,.01)=""
^DD(423.09,"GL",0,2,1)=""
^DD(423.09,"GL",0,3,2)=""
^DD(423.09,"GL",0,4,3)=""
^DD(423.09,"GL",0,5,4)=""
^DD(423.09,"GL",0,6,5)=""
^DD(423.1,0)="TT974 LINE NUMBER SUB-FIELD^NL^12^12"
^DD(423.1,0,"NM","TT974 LINE NUMBER")=""
^DD(423.1,0,"UP")="423"
^DD(423.1,.01,0)="TT974 LINE NUMBER^MNJ2,0X^^0;1^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.1,.01,1,0)="^.1^^0"
^DD(423.1,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 15"
^DD(423.1,.01,21,0)="^^1^1^2910516^"
^DD(423.1,.01,21,1,0)="This is the TT974 line number."
^DD(423.1,.01,"DT")="2861209"
^DD(423.1,1,0)="REFERENCE #^F^^0;2^K:$L(X)>6!($L(X)<6) X"
^DD(423.1,1,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.1,1,21,0)="^^1^1^2910516^"
^DD(423.1,1,21,1,0)="This is the reference #."
^DD(423.1,1,"DT")="2851102"
^DD(423.1,2,0)="APPROPRIATION CODE^RFXO^^0;3^K:$L(X)>4!($L(X)<2) X Q:'$D(X)  Q:X=""..""  S X=$E(X,1,2)_"".""_$E(X,3)_"".""_$E(X,4)"
^DD(423.1,2,1,0)="^.1^^0"
^DD(423.1,2,2)="S Y(0)=Y S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.1,2,2.1)="S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.1,2,3)="ENTER APPROPRIATION (YALD) CODE, WITHOUT ""."""
^DD(423.1,2,9)="^"
^DD(423.1,2,21,0)="^^1^1^2910516^"
^DD(423.1,2,21,1,0)="This is the appropriation code."
^DD(423.1,2,"DT")="2861209"
^DD(423.1,3,0)="LIQUIDATION CODE^S^C:COMPLETE;P:PARTIAL;F:FINAL;^0;4^Q"
^DD(423.1,3,3)=""
^DD(423.1,3,21,0)="^^1^1^2910516^"
^DD(423.1,3,21,1,0)="This is the liquidation code."
^DD(423.1,3,"DT")="2880419"
^DD(423.1,4,0)="FUNCTIONAL STATUS CODE^F^^0;5^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423.1,4,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(423.1,4,21,0)="^^1^1^2930204^^"
^DD(423.1,4,21,1,0)="This is the functional status code."
^DD(423.1,4,"DT")="2851102"
^DD(423.1,5,0)="AMOUNT^NJ11,0^^0;6^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.1,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.1,5,21,0)="^^1^1^2910516^"
^DD(423.1,5,21,1,0)="This is the amount."
^DD(423.1,5,"DT")="2851102"
^DD(423.1,6,0)="LIQUIDATION AMOUNT^NJ11,0^^0;7^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.1,6,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.1,6,21,0)="^^1^1^2910516^"
^DD(423.1,6,21,1,0)="This is the liquidation amount."
^DD(423.1,6,"DT")="2851102"
^DD(423.1,8,0)="CONTROL POINT^FX^^0;9^S DIC=""^PRC(420,""_$P(^PRCF(423.1,DA,0),U,8)_"",1,"",DIC(0)=""EMNZ"" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1),"" "",1) K:Y<0 X K DIC"
^DD(423.1,8,3)="ANSWER MUST BE 4 CHARACTERS IN LENGTH"
^DD(423.1,8,21,0)="^^1^1^2910516^"
^DD(423.1,8,21,1,0)="This is the control point."
^DD(423.1,8,"DT")="2850814"
^DD(423.1,9,0)="TIME OF UPDATE^RS^1:NOW;2:WHEN TRANSMITTED;^0;10^Q"
^DD(423.1,9,3)="ENTER 'WHEN TRANSMITTED' ONLY WHEN YOU WILL BE DELAYING TRANSMISSION OF THE CODE SHEET"
^DD(423.1,9,21,0)="^^1^1^2910516^"
^DD(423.1,9,21,1,0)="This is the time of the update."
^DD(423.1,9,"DT")="2850814"
^DD(423.1,10,0)="STATION NUMBER^F^^0;8^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423.1,10,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423.1,10,21,0)="^^1^1^2910516^"
^DD(423.1,10,21,1,0)="This is the 3 character station number."
^DD(423.1,10,"DT")="2850814"
^DD(423.1,11,0)="INCREASE OR DECREASE^S^I:INCREASE;D:DECREASE;^0;11^Q"
^DD(423.1,11,3)="ENTER AN 'I' TO INCREASE THE CONTROL POINT BALANCE OR A 'D' TO DECREASE THE BALANCE"
^DD(423.1,11,21,0)="^^1^1^2910516^"
^DD(423.1,11,21,1,0)="This is the increase or decrease of the Control Point balance."
^DD(423.1,11,"DT")="2850814"
^DD(423.1,12,0)="POST TO PAT FILE #^P442'^PRC(442,^0;12^Q"
^DD(423.1,12,3)=""
^DD(423.1,12,21,0)="^^1^1^2910516^"
^DD(423.1,12,21,1,0)="This is the pending accounting transaction number."
^DD(423.1,12,"DT")="2850815"
^DD(423.1,"B","AMOUNT",5)=""
^DD(423.1,"B","APPROPRIATION CODE",2)=""
^DD(423.1,"B","CONTROL POINT",8)=""
^DD(423.1,"B","FUNCTIONAL STATUS CODE",4)=""
^DD(423.1,"B","INCREASE OR DECREASE",11)=""
^DD(423.1,"B","LIQUIDATION AMOUNT",6)=""
^DD(423.1,"B","LIQUIDATION CODE",3)=""
^DD(423.1,"B","POST TO PAT FILE #",12)=""
^DD(423.1,"B","REFERENCE #",1)=""
^DD(423.1,"B","STATION NUMBER",10)=""
^DD(423.1,"B","TIME OF UPDATE",9)=""
^DD(423.1,"B","TT974 LINE NUMBER",.01)=""
^DD(423.1,"GL",0,1,.01)=""
^DD(423.1,"GL",0,2,1)=""
^DD(423.1,"GL",0,3,2)=""
^DD(423.1,"GL",0,4,3)=""
^DD(423.1,"GL",0,5,4)=""
^DD(423.1,"GL",0,6,5)=""
^DD(423.1,"GL",0,7,6)=""
^DD(423.1,"GL",0,8,10)=""
^DD(423.1,"GL",0,9,8)=""
^DD(423.1,"GL",0,10,9)=""
^DD(423.1,"GL",0,11,11)=""
^DD(423.1,"GL",0,12,12)=""
^DD(423.1,"RQ",2)=""
^DD(423.1,"RQ",9)=""
^DD(423.11,0)="LINE # SUB-FIELD^NL^13^14"
^DD(423.11,0,"NM","LINE #")=""
^DD(423.11,0,"UP")="423"
^DD(423.11,.01,0)="LINE #^RMNJ2,0X^^0;1^K:+X'=X!(X>11)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.11,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 11"
^DD(423.11,.01,21,0)="^^1^1^2910516^"
^DD(423.11,.01,21,1,0)="This is the line number."
^DD(423.11,.01,"DT")="2860309"
^DD(423.11,1,0)="REFERENCE NUMBER^F^^0;2^K:$L(X)>6!($L(X)<6)!'(X?1UN.NU) X"
^DD(423.11,1,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.11,1,21,0)="^^1^1^2910516^"
^DD(423.11,1,21,1,0)="This is the reference number."
^DD(423.11,1,"DT")="2860312"
^DD(423.11,2,0)="APPROPRIATION CODE (YALD)^FXO^^0;3^Q:X?.2UN1""."".1UN1""."".1UN  K:$L(X)>4!($L(X)<2) X Q:'$D(X)  Q:X=""..""  S X=$E(X,1,2)_"".""_$E(X,3)_"".""_$E(X,4)"
^DD(423.11,2,2)="S Y(0)=Y S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.11,2,2.1)="S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.11,2,3)="Enter Standard YALD code - with or without the DOTS."
^DD(423.11,2,21,0)="^^1^1^2910516^"
^DD(423.11,2,21,1,0)="This is the appropriation code."
^DD(423.11,2,"DT")="2891009"
^DD(423.11,3,0)="CONTROL POINT^A12345^63.8.8^0;4^S DIC=""^PRC(420,""_$P(^PRCF(423,DA(1),0),U,2)_"",1,"",DIC(0)=""EMNZ"" D ^DIC S:Y'<0 X=$P($P(Y(0),U,1),"" "",1) K:Y<0 X K DIC"
^DD(423.11,3,3)="ENTER APPROVED CONTROL POINT NUMBER"
^DD(423.11,3,4)="S ZD=D,X=""?"",Z0=+$P(^PRCF(423,DA(1),0),U,2) Q:'$D(^PRC(420,Z0,1,0))  S DIC=""^PRC(420,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(423.11,3,21,0)="^^1^1^2910516^"
^DD(423.11,3,21,1,0)="This is the control point number."
^DD(423.11,3,"DT")="2860402"
^DD(423.11,4,0)="COST CENTER^F^^0;5^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423.11,4,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.11,4,21,0)="^^1^1^2910516^"
^DD(423.11,4,21,1,0)="This is the cost center."
^DD(423.11,4,"DT")="2851102"
^DD(423.11,5,0)="SUB ACCOUNT^P420.2'^PRCD(420.2,^0;6^Q"
^DD(423.11,5,3)=""
^DD(423.11,5,21,0)="^^1^1^2910516^"
^DD(423.11,5,21,1,0)="This is the subaccount."
^DD(423.11,5,"DT")="2851102"
^DD(423.11,6,0)="ANALYSIS ACCOUNT^F^^0;7^K:$L(X)>5!($L(X)<5) X"
^DD(423.11,6,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(423.11,6,21,0)="^^1^1^2910516^"
^DD(423.11,6,21,1,0)="This is the analysis account."
^DD(423.11,6,"DT")="2851102"
^DD(423.11,7,0)="FUNCTIONAL STATUS CODE^F^^0;8^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(423.11,7,3)="ENTER CALM FUNCTIONAL STATUS CODE"
^DD(423.11,7,21,0)="^^1^1^2910516^"
^DD(423.11,7,21,1,0)="This is the CALM functional status code."
^DD(423.11,7,"DT")="2851102"
^DD(423.11,8,0)="AMOUNT^NJ11,0^^0;9^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.11,8,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.11,8,21,0)="^^1^1^2910516^"
^DD(423.11,8,21,1,0)="This is an 11 digit amount field."
^DD(423.11,8,"DT")="2851102"
^DD(423.11,9,0)="INTERFACE RECORD IDENT  #1^F^^0;10^K:$L(X)>10!($L(X)<10)!'(X?.UN) X"
^DD(423.11,9,3)="ENTER 4 CHARACTER PREFIX FOLLOWED BY 6 CHARACTER NUMBER.  FILL WITH ""X"" WHEN REQUIRED"
^DD(423.11,9,21,0)="^^2^2^2910516^"
^DD(423.11,9,21,1,0)="This is the 4 character prefix followed by a 6 digit number"
^DD(423.11,9,21,2,0)="of the interface record 2."
^DD(423.11,9,"DT")="2860309"
^DD(423.11,10,0)="INTERFACE RECORD IDENT  #2^F^^0;11^K:$L(X)>10!($L(X)<10)!'(X?.UN) X"
^DD(423.11,10,3)="ENTER 4 DIGIT PREFIX FOLLOWED BY 6 DIGIT NUMBER   USE ""X"" FOR FILL WHEN REQUIRED"
^DD(423.11,10,"DT")="2860309"
^DD(423.11,11,0)="GROUP IDENTIFICATION #1^RF^^0;12^K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X"
^DD(423.11,11,3)="ENTER 3 DIGIT STATION NUMBER THEN 4 DIGIT RECORD PREFIX"
^DD(423.11,11,21,0)="^^2^2^2910516^"
^DD(423.11,11,21,1,0)="This is the 3 digit station number, then a 4 digit"
^DD(423.11,11,21,2,0)="record prefix identification number 1."
^DD(423.11,11,"DT")="2860309"
^DD(423.11,12,0)="GROUP IDENTIFICATION #2^F^^0;13^K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X"
^DD(423.11,12,3)="ENTER 3 DIGIT STATION NUMBER THEN 4 DIGIT RECORD PREFIX"
^DD(423.11,12,21,0)="^^2^2^2910516^"
^DD(423.11,12,21,1,0)="This is the 3 digit station number, then a 4 digit"
^DD(423.11,12,21,2,0)="record prefix identification number 2."
^DD(423.11,12,"DT")="2860309"
^DD(423.11,13,0)="GROUP IDENTIFICATION #3^F^^0;14^K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X"
^DD(423.11,13,3)="ENTER 3 DIGIT STATION NUMBER THEN 4 DIGIT RECORD PREFIX"
^DD(423.11,13,21,0)="^^2^2^2910516^"
^DD(423.11,13,21,1,0)="This is the 3 digit station number, then a 4 digit"
^DD(423.11,13,21,2,0)="record prefix identification number 3."
^DD(423.11,13,"DT")="2860309"
^DD(423.11,"B","AMOUNT",8)=""
^DD(423.11,"B","ANALYSIS ACCOUNT",6)=""
^DD(423.11,"B","APPROPRIATION CODE (YALD)",2)=""
^DD(423.11,"B","CONTROL POINT",3)=""
^DD(423.11,"B","COST CENTER",4)=""
^DD(423.11,"B","FUNCTIONAL STATUS CODE",7)=""
^DD(423.11,"B","GROUP IDENTIFICATION #1",11)=""
^DD(423.11,"B","GROUP IDENTIFICATION #2",12)=""
^DD(423.11,"B","GROUP IDENTIFICATION #3",13)=""
^DD(423.11,"B","INTERFACE RECORD IDENT  #1",9)=""
^DD(423.11,"B","INTERFACE RECORD IDENT  #2",10)=""
^DD(423.11,"B","LINE #",.01)=""
^DD(423.11,"B","REFERENCE NUMBER",1)=""
^DD(423.11,"B","SUB ACCOUNT",5)=""
^DD(423.11,"GL",0,1,.01)=""
^DD(423.11,"GL",0,2,1)=""
^DD(423.11,"GL",0,3,2)=""
^DD(423.11,"GL",0,4,3)=""
^DD(423.11,"GL",0,5,4)=""
^DD(423.11,"GL",0,6,5)=""
^DD(423.11,"GL",0,7,6)=""
^DD(423.11,"GL",0,8,7)=""
^DD(423.11,"GL",0,9,8)=""
^DD(423.11,"GL",0,10,9)=""
^DD(423.11,"GL",0,11,10)=""
^DD(423.11,"GL",0,12,11)=""
^DD(423.11,"GL",0,13,12)=""
^DD(423.11,"GL",0,14,13)=""
^DD(423.11,"RQ",.01)=""
^DD(423.11,"RQ",11)=""
^DD(423.12,0)="REF # (2ND LINE) SUB-FIELD^NL^7^8"
^DD(423.12,0,"NM","REF # (2ND LINE)")=""
^DD(423.12,0,"UP")="423"
^DD(423.12,.01,0)="REF # (2ND LINE)^MRF^^0;1^K:$L(X)>6!($L(X)<6)!'(X?6UN) X"
^DD(423.12,.01,3)="ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(423.12,.01,21,0)="^^1^1^2910516^"
^DD(423.12,.01,21,1,0)="This is the second line reference number."
^DD(423.12,.01,"DT")="2870925"
^DD(423.12,1,0)="FUNCTIONAL STATUS CODE^RS^01:01;02:02;04:04;06:06;15:15;16:16;^0;2^Q"
^DD(423.12,1,21,0)="^^1^1^2910516^"
^DD(423.12,1,21,1,0)="This is the functional status code."
^DD(423.12,1,"DT")="2860304"
^DD(423.12,2,0)="ACCOUNT CODE^RS^01:01;02:02;03:03;04:04;05:05;06:06;07:07;08:08;09:09;10:10;11:11;12:12;13:13;14:14;15:15;16:16;17:17;18:18;19:19;20:20;21:21;22:22;23:23;99:99;^0;3^Q"
^DD(423.12,2,3)="ENTER ACCOUNT CODE.  FULL REFERENCE IS CONTAINED IN MP4 P5 PARA 12D.06"
^DD(423.12,2,21,0)="^^1^1^2910516^"
^DD(423.12,2,21,1,0)="This is the account code."
^DD(423.12,2,"DT")="2860304"
^DD(423.12,3,0)="SOURCE CODE^RS^1:VA SUPPLY FUND - DEPOT;2:VA SUPPLY FUND - STATION;3:NON-FEDERAL;4:GSA;5:OTHER FEDERAL, A/C, OTHER VA;6:ACCRUED SVCS PAY - FED;7:ACCRUED SVCS PAY - NON FED;^0;4^Q"
^DD(423.12,3,3)=""
^DD(423.12,3,21,0)="^^1^1^2910516^"
^DD(423.12,3,21,1,0)="This is the source code."
^DD(423.12,3,"DT")="2880419"
^DD(423.12,4,0)="INVENTORY AMOUNT^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.12,4,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(423.12,4,21,0)="^^1^1^2910516^"
^DD(423.12,4,21,1,0)="This is the inventory amount."
^DD(423.12,4,"DT")="2890729"
^DD(423.12,5,0)="PAYABLE AMOUNT^NJ11,0^^0;6^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.12,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999999"
^DD(423.12,5,21,0)="^^1^1^2910516^"
^DD(423.12,5,21,1,0)="This is the payable amount."
^DD(423.12,5,"DT")="2860304"
^DD(423.12,6,0)="INTER-OFFICE STATION NUMBER^F^^0;7^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423.12,6,3)="ENTER 3 DIGIT STATION NUMBER FROM WHICH INVENTORY WAS RECEIVED"
^DD(423.12,6,21,0)="^^1^1^2930204^^"
^DD(423.12,6,21,1,0)="This is the 3 digit station number from which inventory was received."
^DD(423.12,6,"DT")="2860304"
^DD(423.12,7,0)="ACTION CODE^RS^1:INCREASE;2:DECREASE;^0;8^Q"
^DD(423.12,7,3)=""
^DD(423.12,7,21,0)="^^1^1^2910516^"
^DD(423.12,7,21,1,0)="This is the action code."
^DD(423.12,7,"DT")="2860304"
^DD(423.12,"B","ACCOUNT CODE",2)=""
^DD(423.12,"B","ACTION CODE",7)=""
^DD(423.12,"B","FUNCTIONAL STATUS CODE",1)=""
^DD(423.12,"B","INTER-OFFICE STATION NUMBER",6)=""
^DD(423.12,"B","INVENTORY AMOUNT",4)=""
^DD(423.12,"B","PAYABLE AMOUNT",5)=""
^DD(423.12,"B","REF # (2ND LINE)",.01)=""
^DD(423.12,"B","SOURCE CODE",3)=""
^DD(423.12,"GL",0,1,.01)=""
^DD(423.12,"GL",0,2,1)=""
^DD(423.12,"GL",0,3,2)=""
^DD(423.12,"GL",0,4,3)=""
^DD(423.12,"GL",0,5,4)=""
^DD(423.12,"GL",0,6,5)=""
^DD(423.12,"GL",0,7,6)=""
^DD(423.12,"GL",0,8,7)=""
^DD(423.12,"RQ",.01)=""
^DD(423.12,"RQ",1)=""
^DD(423.12,"RQ",2)=""
^DD(423.12,"RQ",3)=""
^DD(423.12,"RQ",7)=""
^DD(423.13,0)="941 LINE NUMBER SUB-FIELD^NL^3^4"
^DD(423.13,0,"NM","941 LINE NUMBER")=""
^DD(423.13,0,"UP")="423"
^DD(423.13,.01,0)="941 LINE NUMBER^MNJ1,0X^^0;1^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.13,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 6"
^DD(423.13,.01,21,0)="^^1^1^2910516^"
^DD(423.13,.01,21,1,0)="This is the 941 line number."
^DD(423.13,.01,"DT")="2860815"
^DD(423.13,1,0)="CP^RF^^0;2^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423.13,1,3)="ENTER CONTROL POINT NUMBER"
^DD(423.13,1,21,0)="^^1^1^2910516^"
^DD(423.13,1,21,1,0)="This is the control point number."
^DD(423.13,1,"DT")="2860307"
^DD(423.13,2,0)="ALD CODE^RFX^^0;3^K:$L(X)>3!($L(X)<1)!'(X?1UN.UN) X"
^DD(423.13,2,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(423.13,2,21,0)="^^1^1^2910516^"
^DD(423.13,2,21,1,0)="This is the ALD code."
^DD(423.13,2,"DT")="2860610"
^DD(423.13,3,0)="CONTROL POINT NAME^FX^^0;4^K:$L(X)>17!($L(X)<1) X"
^DD(423.13,3,3)="ENTER CONTROL POINT NAME, ANSWER MUST BE 1-17 CHARACTERS IN LENGTH"
^DD(423.13,3,21,0)="^^1^1^2930204^^"
^DD(423.13,3,21,1,0)="This is the control point name."
^DD(423.13,3,"DT")="2860610"
^DD(423.13,"B","941 LINE NUMBER",.01)=""
^DD(423.13,"B","ALD CODE",2)=""
^DD(423.13,"B","CONTROL POINT NAME",3)=""
^DD(423.13,"B","CP",1)=""
^DD(423.13,"GL",0,1,.01)=""
^DD(423.13,"GL",0,2,1)=""
^DD(423.13,"GL",0,3,2)=""
^DD(423.13,"GL",0,4,3)=""
^DD(423.13,"RQ",1)=""
^DD(423.13,"RQ",2)=""
^DD(423.14,0)="945 LINE NUMBER SUB-FIELD^NL^2^3"
^DD(423.14,0,"NM","945 LINE NUMBER")=""
^DD(423.14,0,"UP")="423"
^DD(423.14,.01,0)="945 LINE NUMBER^MRNJ2,0X^^0;1^K:+X'=X!(X>14)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.14,.01,3)="ENTER A LINE NUMBER BETWEEN 1 AND 14"
^DD(423.14,.01,21,0)="^^1^1^2930204^^"
^DD(423.14,.01,21,1,0)="This is the 945 line number."
^DD(423.14,.01,"DT")="2860815"
^DD(423.14,1,0)="FIELD #/ACTION CODE/DATA #1^RF^^0;2^K:$L(X)>14!($L(X)<3)!'(X?3N.UN) X"
^DD(423.14,1,3)="ENTER 2 CHARACTER FIELD CODE, 1 CHARACTER ACTION CODE AND NOT MORE THAN 11 DATA CHARACTERS"
^DD(423.14,1,21,0)="^^2^2^2910516^"
^DD(423.14,1,21,1,0)="This is the field code, action code, and"
^DD(423.14,1,21,2,0)="the data #1."
^DD(423.14,1,"DT")="2860309"
^DD(423.14,2,0)="FIELD #/ACTION CODE/DATA #2^F^^0;3^K:$L(X)>14!($L(X)<3)!'(X?3N.UN) X"
^DD(423.14,2,3)="2 ENTRY FIELD #,1 CH ACTION CODE AND UP TO 11 DATA CHARACTERS."
^DD(423.14,2,21,0)="^^1^1^2910516^"
^DD(423.14,2,21,1,0)="This is the field code, action code, and the data #2."
^DD(423.14,2,"DT")="2860309"
^DD(423.14,"B","945 LINE NUMBER",.01)=""
^DD(423.14,"B","FIELD #/ACTION CODE/DATA #1",1)=""
^DD(423.14,"B","FIELD #/ACTION CODE/DATA #2",2)=""
^DD(423.14,"GL",0,1,.01)=""
^DD(423.14,"GL",0,2,1)=""
^DD(423.14,"GL",0,3,2)=""
^DD(423.14,"RQ",.01)=""
^DD(423.14,"RQ",1)=""
^DD(423.15,0)="946 LINE NUMBER SUB-FIELD^NL^4^5"
^DD(423.15,0,"NM","946 LINE NUMBER")=""
^DD(423.15,0,"UP")="423"
^DD(423.15,.01,0)="946 LINE NUMBER^MRNJ2,0X^^0;1^K:+X'=X!(X>17)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.15,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 17"
^DD(423.15,.01,21,0)="^^1^1^2910516^"
^DD(423.15,.01,21,1,0)="This is the 946 line number."
^DD(423.15,.01,"DT")="2860815"
^DD(423.15,1,0)="TO COST CENTER #1^RP420.1'^PRCD(420.1,^0;2^Q"
^DD(423.15,1,21,0)="^^1^1^2910516^"
^DD(423.15,1,21,1,0)="This is a valid cost center."
^DD(423.15,1,"DT")="2860309"
^DD(423.15,2,0)="PERCENT #1^RNJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.15,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 100"
^DD(423.15,2,21,0)="^^1^1^2910516^"
^DD(423.15,2,21,1,0)="This is a percentage relating to cost center #1."
^DD(423.15,2,"DT")="2860309"
^DD(423.15,3,0)="TO COST CENTER #2^P420.1'^PRCD(420.1,^0;4^Q"
^DD(423.15,3,21,0)="^^1^1^2910516^"
^DD(423.15,3,21,1,0)="This is any valid cost center."
^DD(423.15,3,"DT")="2860309"
^DD(423.15,4,0)="PERCENT #2^RNJ3,0^^0;5^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.15,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 100"
^DD(423.15,4,21,0)="^^2^2^2910516^"
^DD(423.15,4,21,1,0)="This is a percentage relating to cost"
^DD(423.15,4,21,2,0)="center #2."
^DD(423.15,4,"DT")="2860309"
^DD(423.15,"B","946 LINE NUMBER",.01)=""
^DD(423.15,"B","PERCENT #1",2)=""
^DD(423.15,"B","PERCENT #2",4)=""
^DD(423.15,"B","TO COST CENTER #1",1)=""
^DD(423.15,"B","TO COST CENTER #2",3)=""
^DD(423.15,"GL",0,1,.01)=""
^DD(423.15,"GL",0,2,1)=""
^DD(423.15,"GL",0,3,2)=""
^DD(423.15,"GL",0,4,3)=""
^DD(423.15,"GL",0,5,4)=""
^DD(423.15,"RQ",.01)=""
^DD(423.15,"RQ",1)=""
^DD(423.15,"RQ",2)=""
^DD(423.15,"RQ",4)=""
^DD(423.16,0)="LINE NUMBER (1-5) SUB-FIELD^NL^11^12"
^DD(423.16,0,"NM","LINE NUMBER (1-5)")=""
^DD(423.16,0,"UP")="423"
^DD(423.16,.01,0)="LINE NUMBER (1-5)^RMNJ1,0X^^0;1^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.16,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 5"
^DD(423.16,.01,21,0)="^^1^1^2910516^"
^DD(423.16,.01,21,1,0)="This is a line number field, which cannot exceed 5 records."
^DD(423.16,.01,"DT")="2860309"
^DD(423.16,1,0)="YALD CODE^RFXO^^0;2^Q:X?.2UN1""."".1UN1""."".1UN  K:$L(X)>4!($L(X)<2)!'(X?1NU.NU) X I $D(X) S X=$E(X,1,2)_"".""_$E(X,3)_"".""_$E(X,4)"
^DD(423.16,1,2)="S Y(0)=Y S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.16,1,2.1)="S Y=$E(Y,1,2)_$E(Y,4)_$E(Y,6)"
^DD(423.16,1,3)="Enter applicable YALD code - with or without the DOTS."
^DD(423.16,1,21,0)="^^1^1^2910516^"
^DD(423.16,1,21,1,0)="This is the YALD code."
^DD(423.16,1,"DT")="2891009"
^DD(423.16,2,0)="CONTROL POINT^F^^0;3^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(423.16,2,3)="ENTER CP NUMBER IF APPLICABLE"
^DD(423.16,2,21,0)="^^1^1^2910516^"
^DD(423.16,2,21,1,0)="This is the control point number, if applicable."
^DD(423.16,2,"DT")="2860309"
^DD(423.16,3,0)="COST CENTER^F^^0;4^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(423.16,3,3)="ENTER COST CENTER, IF APPLICABLE"
^DD(423.16,3,21,0)="^^1^1^2910516^"
^DD(423.16,3,21,1,0)="This is the cost center, if applicable."
^DD(423.16,3,"DT")="2860309"
^DD(423.16,4,0)="SUB ACCOUNT^P420.2'^PRCD(420.2,^0;5^Q"
^DD(423.16,4,3)="ENTER SUB ACCOUNT, IF APPLICABLE"
^DD(423.16,4,21,0)="^^1^1^2910516^"
^DD(423.16,4,21,1,0)="This is the subaccount, if applicable."
^DD(423.16,4,"DT")="2860309"
^DD(423.16,5,0)="PERSONAL SERV. ANALYSIS ACCT.^NJ4,0^^0;6^K:+X'=X!(X>1999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(423.16,5,3)="ENTER PERSONAL SERVICE ANALYSIS ACCOUNT, IF APPLICABLE"
^DD(423.16,5,21,0)="^^2^2^2910516^"
^DD(423.16,5,21,1,0)="This is the personal service analysis account,"
^DD(423.16,5,21,2,0)="if applicable."
^DD(423.16,5,"DT")="2860309"
^DD(423.16,6,0)="AMOUNT^NJ11,0^^0;7^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.16,6,3)="ENTER AMOUNT OF ADJUSTMENT, DO NOT EXCEED 11 NUMBERS"
^DD(423.16,6,21,0)="^^1^1^2910516^"
^DD(423.16,6,21,1,0)="This is the amount of adjustment."
^DD(423.16,6,"DT")="2860309"
^DD(423.16,7,0)="HOURS^NJ1,0^^0;8^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.16,7,3)="ENTER MAN-HOURS, IF APPLICABLE."
^DD(423.16,7,21,0)="^^2^2^2910516^"
^DD(423.16,7,21,1,0)="These are the man-hours, if applicable, relating"
^DD(423.16,7,21,2,0)="to the personal service account."
^DD(423.16,7,"DT")="2860309"
^DD(423.16,8,0)="PAT TYPE CODE #1^RS^B:B;C:C;J:J;L:L;S:S;T:T;W:W;^0;9^Q"
^DD(423.16,8,21,0)="^^2^2^2910516^"
^DD(423.16,8,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION type"
^DD(423.16,8,21,2,0)="code #1."
^DD(423.16,8,"DT")="2860309"
^DD(423.16,9,0)="PAT REF #1^RF^^0;10^K:$L(X)>6!($L(X)<6)!'(X?.UN) X"
^DD(423.16,9,3)="ENTER PAT NUMBER"
^DD(423.16,9,21,0)="^^2^2^2910516^"
^DD(423.16,9,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION "
^DD(423.16,9,21,2,0)="reference #1."
^DD(423.16,9,"DT")="2860309"
^DD(423.16,10,0)="PAT TYPE CODE #2^S^B:B;C:C;J:J;L:L;S:S;T:T;W:W;^0;11^Q"
^DD(423.16,10,21,0)="^^1^1^2910516^"
^DD(423.16,10,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION code #2."
^DD(423.16,10,"DT")="2860309"
^DD(423.16,11,0)="PAT REF #2^F^^0;12^K:$L(X)>6!($L(X)<6)!'(X?.UN) X"
^DD(423.16,11,3)="ENTER PAT REFERENCE NUMBER"
^DD(423.16,11,21,0)="^^1^1^2910516^"
^DD(423.16,11,21,1,0)="This is the PENDING ACCOUNTING TRANSACTION reference #2."
^DD(423.16,11,"DT")="2860309"
^DD(423.16,"B","AMOUNT",6)=""
^DD(423.16,"B","CONTROL POINT",2)=""
^DD(423.16,"B","COST CENTER",3)=""
^DD(423.16,"B","HOURS",7)=""
^DD(423.16,"B","LINE NUMBER (1-5)",.01)=""
^DD(423.16,"B","PAT REF #1",9)=""
^DD(423.16,"B","PAT REF #2",11)=""
^DD(423.16,"B","PAT TYPE CODE #1",8)=""
^DD(423.16,"B","PAT TYPE CODE #2",10)=""
^DD(423.16,"B","PERSONAL SERV. ANALYSIS ACCT.",5)=""
^DD(423.16,"B","SUB ACCOUNT",4)=""
^DD(423.16,"B","YALD CODE",1)=""
^DD(423.16,"GL",0,1,.01)=""
^DD(423.16,"GL",0,2,1)=""
^DD(423.16,"GL",0,3,2)=""
^DD(423.16,"GL",0,4,3)=""
^DD(423.16,"GL",0,5,4)=""
^DD(423.16,"GL",0,6,5)=""
^DD(423.16,"GL",0,7,6)=""
^DD(423.16,"GL",0,8,7)=""
^DD(423.16,"GL",0,9,8)=""
^DD(423.16,"GL",0,10,9)=""
^DD(423.16,"GL",0,11,10)=""
^DD(423.16,"GL",0,12,11)=""
^DD(423.16,"RQ",.01)=""
^DD(423.16,"RQ",1)=""
^DD(423.16,"RQ",8)=""
^DD(423.16,"RQ",9)=""
^DD(423.17,0)="P/S ANALYSIS ACCOUNT SUB-FIELD^^1^2"
^DD(423.17,0,"NM","P/S ANALYSIS ACCOUNT")=""
^DD(423.17,0,"UP")="423"
^DD(423.17,.01,0)="P/S ANALYSIS ACCOUNT^MRNJ4,0X^^0;1^Q:X=""$""  K:+X'=X!(X>1299)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(423.17,.01,3)="ENTER PERSONAL SERVICE ANALYSIS ACCOUNT"
^DD(423.17,.01,21,0)="^^1^1^2910516^"
^DD(423.17,.01,21,1,0)="This is the personal service analysis account."
^DD(423.17,.01,"DT")="2861205"
^DD(423.17,1,0)="AMOUNT^NJ11,0^^0;2^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.17,1,3)="ENTER AMOUNT RELATING TO INDICATED PERSONAL SERVICE ANALYSIS ACCOUNT"
^DD(423.17,1,21,0)="^^2^2^2910516^"
^DD(423.17,1,21,1,0)="This is the amount relating to the indicated personal"
^DD(423.17,1,21,2,0)="service analysis account."
^DD(423.17,1,"DT")="2861023"
^DD(423.17,"B","AMOUNT",1)=""
^DD(423.17,"B","P/S ANALYSIS ACCOUNT",.01)=""
^DD(423.17,"GL",0,1,.01)=""
^DD(423.17,"GL",0,2,1)=""
^DD(423.17,"RQ",.01)=""
^DD(423.18,0)="KEYPUNCH CODE SUB-FIELD^^.01^1"
^DD(423.18,0,"NM","KEYPUNCH CODE")=""
^DD(423.18,0,"UP")="423"
^DD(423.18,.01,0)="KEYPUNCH CODE^WL^^0;1^Q"
^DD(423.18,.01,"DT")="2861125"
^DD(423.18,"B","KEYPUNCH CODE",.01)=""
^DD(423.18,"GL",0,1,.01)=""
^DD(423.19,0)="ISMS LINE ITEM SUB-FIELD^^35^19"
^DD(423.19,0,"DT")="2920128"
^DD(423.19,0,"IX","B",423.19,.01)=""
^DD(423.19,0,"NM","ISMS LINE ITEM")=""
^DD(423.19,0,"UP")="423"
^DD(423.19,.01,0)="ISMS LINE ITEM^MNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(423.19,.01,1,0)="^.1"
^DD(423.19,.01,1,1,0)="423.19^B"
^DD(423.19,.01,1,1,1)="S ^PRCF(423,DA(1),52,""B"",$E(X,1,30),DA)="""""
^DD(423.19,.01,1,1,2)="K ^PRCF(423,DA(1),52,""B"",$E(X,1,30),DA)"
^DD(423.19,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(423.19,.01,"DT")="2910909"
^DD(423.19,1,0)="NSN^FO^^0;2^K:X'?13N.1U&(X'?4N1""-""2N1""-""3N1""-""4N.1U) X S:$D(X) X=$TR(X,""-"")"
^DD(423.19,1,2)="S Y(0)=Y S Y=$E(Y,1,4)_""-""_$E(Y,5,6)_""-""_$E(Y,7,9)_""-""_$E(Y,10,14)"
^DD(423.19,1,2.1)="S Y=$E(Y,1,4)_""-""_$E(Y,5,6)_""-""_$E(Y,7,9)_""-""_$E(Y,10,14)"
^DD(423.19,1,3)="Enter NSN code 16-17 characters in length.  Example: 6505-01-001-0001"
^DD(423.19,1,"DT")="2911024"
^DD(423.19,2.2,0)="SKU FACTOR^NJ4,0^^1;12^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.19,2.2,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(423.19,2.2,"DT")="2910913"
^DD(423.19,3,0)="QUANTITY^RNJ10,0OX^^0;4^K:+X'=X!(X>99999999.99)!(X<0)!(X?.E1"".""1N.N) X S:$D(X) X=X*100"
^DD(423.19,3,2)="S Y(0)=Y S Y=Y/100"
^DD(423.19,3,2.1)="S Y=Y/100"
^DD(423.19,3,3)="Type a Number between 0 and 99999999.99, 2 Decimal Digits"
^DD(423.19,3,"DT")="2910907"
^DD(423.19,4,0)="TOTAL VALUE^RNJ13,2OX^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999.99)!(X<0) X S:$D(X) X=X*10000"
^DD(423.19,4,2)="S Y(0)=Y S Y=Y/10000"
^DD(423.19,4,2.1)="S Y=Y/10000"
^DD(423.19,4,3)="Type a Dollar Amount between 0 and 99999999.99 2 Decimal Digits"
^DD(423.19,4,"DT")="2910907"
^DD(423.19,5,0)="CHANGE IN B/O QUANTITY^NJ9,0OX^^0;6^K:+X'=X!(X>9999999.99)!(X<0)!(X?.E1"".""1N.N) X S:$D(X) X=X*100"
^DD(423.19,5,2)="S Y(0)=Y S Y=Y/100"
^DD(423.19,5,2.1)="S Y=Y/100"
^DD(423.19,5,3)="Type a Number between 0 and 9999999.99 2 Decimal Digits"
^DD(423.19,5,"DT")="2910907"
^DD(423.19,6,0)="ITEM SALES PRICE^RNJ14,4OX^^0;7^K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"".""5N.N) X S:$D(X) X=X*10000"
^DD(423.19,6,2)="S Y(0)=Y S Y=Y/10000"
^DD(423.19,6,2.1)="S Y=Y/10000"
^DD(423.19,6,3)="Type a Number between 0 and 99999.9999, 4 Decimal Digits"
^DD(423.19,6,"DT")="2910907"
^DD(423.19,7,0)="QUANTITY RECEIVED^NJ11,2XO^^0;8^K:+X'=X!(X>99999999.99)!(X<0)!(X?.E1"".""3N.N) X S:$D(X) X=X*100"
^DD(423.19,7,2)="S Y(0)=Y S Y=Y/100"
^DD(423.19,7,2.1)="S Y=Y/100"
^DD(423.19,7,3)="Type a Number between 0 and 99999999.99, 2 Decimal Digits"
^DD(423.19,7,"DT")="2930204"
^DD(423.19,7.5,0)="DATE RECEIVED^D^^1;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(423.19,7.5,"DT")="2920128"
^DD(423.19,8,0)="TOTAL VALUE OF RECEIPT^NJ11,2XO^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999.99)!(X<0) X S:$D(X) X=X*100"
^DD(423.19,8,2)="S Y(0)=Y S Y=Y/100"
^DD(423.19,8,2.1)="S Y=Y/100"
^DD(423.19,8,3)="Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits"
^DD(423.19,8,"DT")="2910907"
^DD(423.19,10,0)="ITEM MOVING AVG COST^NJ10,4XO^^0;11^K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"".""5N.N) X S:$D(X) X=X*10000"
^DD(423.19,10,2)="S Y(0)=Y S Y=Y/10000"
^DD(423.19,10,2.1)="S Y=Y/10000"
^DD(423.19,10,3)="Type a Number between 0 and 99999.9999, 4 Decimal Digits"
^DD(423.19,10,"DT")="2910907"
^DD(423.19,11,0)="TO/PO/SO NUMBER^F^^0;12^K:$L(X)>6!($L(X)<3) X"
^DD(423.19,11,3)="Answer must be 3-6 characters in length."
^DD(423.19,11,"DT")="2910901"
^DD(423.19,12,0)="IFCAP LINE NUMBER^RNJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.19,12,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(423.19,12,"DT")="2910909"
^DD(423.19,13,0)="RECEIPT STATUS^S^P:PARTIAL;F:FINAL;^0;14^Q"
^DD(423.19,13,"DT")="2910901"
^DD(423.19,19,0)="SEGMENT TYPE^F^^0;20^K:$L(X)>3!($L(X)<3) X"
^DD(423.19,19,3)="Answer must be 3 characters in length."
^DD(423.19,19,"DT")="2910901"
^DD(423.19,23.1,0)="UNIT COST^F^^1;15^K:$L(X)>10!($L(X)<1) X"
^DD(423.19,23.1,3)="Answer must be 1-10 characters in length."
^DD(423.19,23.1,"DT")="2911125"
^DD(423.19,32,0)="NULL^F^^1;11^K:$L(X)>1!($L(X)<1) X"
^DD(423.19,32,3)="Answer must be 1 character in length."
^DD(423.19,32,"DT")="2910906"
^DD(423.19,33,0)="PRISM ITEM NO.^F^^1;17^K:$L(X)>20!($L(X)<3) X"
^DD(423.19,33,3)="Answer must be 3-20 characters in length."
^DD(423.19,33,"DT")="2920123"
^DD(423.19,35,0)="STATUS CODE^F^^1;20^K:$L(X)>1!($L(X)<1) X"
^DD(423.19,35,3)="Answer must be 1 character in length."
^DD(423.19,35,"DT")="2920128"
^DD(423.19,"B","CHANGE IN B/O QUANTITY",5)=""
^DD(423.19,"B","DATE RECEIVED",7.5)=""
^DD(423.19,"B","IFCAP LINE NUMBER",12)=""
^DD(423.19,"B","ISMS LINE ITEM",.01)=""
^DD(423.19,"B","ITEM MOVING AVG COST",10)=""
^DD(423.19,"B","ITEM SALES PRICE",6)=""
^DD(423.19,"B","NSN",1)=""
^DD(423.19,"B","NULL",32)=""
^DD(423.19,"B","PRISM ITEM NO.",33)=""
^DD(423.19,"B","QUANTITY",3)=""
^DD(423.19,"B","QUANTITY RECEIVED",7)=""
^DD(423.19,"B","RECEIPT STATUS",13)=""
^DD(423.19,"B","SEGMENT TYPE",19)=""
^DD(423.19,"B","SKU FACTOR",2.2)=""
^DD(423.19,"B","STATUS CODE",35)=""
^DD(423.19,"B","TO/PO/SO NUMBER",11)=""
^DD(423.19,"B","TOTAL VALUE",4)=""
^DD(423.19,"B","TOTAL VALUE OF RECEIPT",8)=""
^DD(423.19,"B","UNIT COST",23.1)=""
^DD(423.19,"GL",0,1,.01)=""
^DD(423.19,"GL",0,2,1)=""
^DD(423.19,"GL",0,4,3)=""
^DD(423.19,"GL",0,5,4)=""
^DD(423.19,"GL",0,6,5)=""
^DD(423.19,"GL",0,7,6)=""
^DD(423.19,"GL",0,8,7)=""
^DD(423.19,"GL",0,9,8)=""
^DD(423.19,"GL",0,11,10)=""
^DD(423.19,"GL",0,12,11)=""
^DD(423.19,"GL",0,13,12)=""
^DD(423.19,"GL",0,14,13)=""
^DD(423.19,"GL",0,20,19)=""
^DD(423.19,"GL",1,11,32)=""
^DD(423.19,"GL",1,12,2.2)=""
^DD(423.19,"GL",1,15,23.1)=""
^DD(423.19,"GL",1,17,33)=""
^DD(423.19,"GL",1,19,7.5)=""
^DD(423.19,"GL",1,20,35)=""
^DD(423.19,"IX",.01)=""
^DD(423.19,"RQ",3)=""
^DD(423.19,"RQ",4)=""
^DD(423.19,"RQ",6)=""
^DD(423.19,"RQ",12)=""
^DD(423.2,0)="NX ITEMS SUB-FIELD^^45^46"
^DD(423.2,0,"DT")="2920102"
^DD(423.2,0,"IX","B",423.2,.01)=""
^DD(423.2,0,"NM","NX ITEMS")=""
^DD(423.2,0,"UP")="423"
^DD(423.2,.01,0)="NX ITEMS^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.2,.01,1,0)="^.1"
^DD(423.2,.01,1,1,0)="423.2^B"
^DD(423.2,.01,1,1,1)="S ^PRCF(423,DA(1),57,""B"",$E(X,1,30),DA)="""""
^DD(423.2,.01,1,1,2)="K ^PRCF(423,DA(1),57,""B"",$E(X,1,30),DA)"
^DD(423.2,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(423.2,.01,"DT")="2910913"
^DD(423.2,1,0)="SEGMENT TYPE NA^F^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(423.2,1,3)="Answer must be 3 characters in length."
^DD(423.2,1,"DT")="2910913"
^DD(423.2,2,0)="CSN^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(423.2,2,3)="Answer must be 3-20 characters in length."
^DD(423.2,2,"DT")="2910913"
^DD(423.2,3,0)="MANUFACTURER^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(423.2,3,3)="Answer must be 3-30 characters in length."
^DD(423.2,3,"DT")="2910913"
^DD(423.2,4,0)="PROPERTY TYPE^RF^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(423.2,4,3)="Answer must be 1-15 characters in length."
^DD(423.2,4,"DT")="2910913"
^DD(423.2,5,0)="MODEL^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(423.2,5,3)="Answer must be 1-15 characters in length."
^DD(423.2,5,"DT")="2910913"
^DD(423.2,6,0)="SERIAL NUMBER^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(423.2,6,3)="Answer must be 1-20 characters in length."
^DD(423.2,6,"DT")="2910913"
^DD(423.2,7,0)="IFCAP PO NUMBER^F^^0;8^K:$L(X)>11!($L(X)<1) X"
^DD(423.2,7,3)="Answer must be 1-11 characters in length."
^DD(423.2,7,"DT")="2910913"
^DD(423.2,8,0)="VENDOR NAME^F^^0;9^K:$L(X)>25!($L(X)<3) X"
^DD(423.2,8,3)="Answer must be 3-25 characters in length."
^DD(423.2,8,"DT")="2910913"
^DD(423.2,9,0)="ACQUISITION VALUE^NJ10,2^^1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(423.2,9,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(423.2,9,"DT")="2910913"
^DD(423.2,10,0)="ACQUISITION DATE^D^^1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(423.2,10,"DT")="2910913"
^DD(423.2,11,0)="ACQUISITION CODE^NJ1,0^^1;3^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.2,11,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(423.2,11,"DT")="2910913"
^DD(423.2,12,0)="GEN LEDGER ACCT #^NJ4,0^^1;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.2,12,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(423.2,12,"DT")="2910913"
^DD(423.2,13,0)="YALD CODE^F^^1;5^K:$L(X)>4!($L(X)<1) X"
^DD(423.2,13,3)="Answer must be 1-4 characters in length."
^DD(423.2,13,"DT")="2910913"
^DD(423.2,14,0)="COST CENTER^F^^1;6^K:$L(X)>6!($L(X)<1) X"
^DD(423.2,14,3)="Answer must be 1-6 characters in length."
^DD(423.2,14,"DT")="2910913"
^DD(423.2,15,0)="CAPITALIZATION FLAG^S^Y:YES;N:NO;^1;7^Q"
^DD(423.2,15,"DT")="2910913"
^DD(423.2,16,0)="USE CODE^F^^1;8^K:$L(X)>1!($L(X)<1) X"
^DD(423.2,16,3)="Answer must be 1 character in length."
^DD(423.2,16,"DT")="2910913"
^DD(423.2,17,0)="OWNERSHIP CODE^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(423.2,17,3)="Answer must be 1 character in length."
^DD(423.2,17,"DT")="2910913"
^DD(423.2,18,0)="LEASE COST/MONTH^NJ10,2^^1;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(423.2,18,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(423.2,18,"DT")="2910913"
^DD(423.2,19,0)="LIFE EXPECTANCY^NJ2,0^^1;11^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.2,19,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(423.2,19,"DT")="2910913"
^DD(423.2,20,0)="FINAL DISPOSAL DATE^D^^1;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(423.2,20,"DT")="2910913"
^DD(423.2,21,0)="REPLACEMENT COST^NJ10,2^^1;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(423.2,21,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(423.2,21,"DT")="2910913"
^DD(423.2,22,0)="RETIREMENT DATE^D^^1;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(423.2,22,"DT")="2910913"
^DD(423.2,23,0)="DISPOSITION CODE^F^^1;15^K:$L(X)>1!($L(X)<1) X"
^DD(423.2,23,3)="Answer must be 1 character in length."
^DD(423.2,23,"DT")="2910913"
^DD(423.2,24,0)="DISPOSITION PROCEEDS^NJ10,2^^1;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(423.2,24,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(423.2,24,"DT")="2910913"
^DD(423.2,25,0)="LAST INVENTORY DATE^D^^1;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(423.2,25,"DT")="2910913"
^DD(423.2,26,0)="PM TOTAL COST^NJ10,2^^1;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(423.2,26,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(423.2,26,"DT")="2910913"
^DD(423.2,27,0)="CAT STK # DESC^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^DD(423.2,27,3)="Answer must be 1-30 characters in length."
^DD(423.2,27,"DT")="2910913"
^DD(423.2,28,0)="REPLACEMENT NUMBER^NJ8,0^^2;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.2,28,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(423.2,28,"DT")="2910913"
^DD(423.2,29,0)="CMR DEPARTMENT #^F^^2;3^K:$L(X)>5!($L(X)<1) X"
^DD(423.2,29,3)="Answer must be 1-5 characters in length."
^DD(423.2,29,"DT")="2910913"
^DD(423.2,30,0)="CONTROLLED ITEM^F^^2;4^K:$L(X)>1!($L(X)<1) X"
^DD(423.2,30,3)="Answer must be 1 character in length."
^DD(423.2,30,"DT")="2910913"
^DD(423.2,31,0)="REASON CODE^F^^2;5^K:$L(X)>4!($L(X)<1) X"
^DD(423.2,31,3)="Answer must be 1-4 characters in length."
^DD(423.2,31,"DT")="2910913"
^DD(423.2,32,0)="PARENT SYSTEM^F^^2;6^K:$L(X)>10!($L(X)<1) X"
^DD(423.2,32,3)="Answer must be 1-10 characters in length."
^DD(423.2,32,"DT")="2910913"
^DD(423.2,33,0)="COMMENTS^F^^2;7^K:$L(X)>25!($L(X)<1) X"
^DD(423.2,33,3)="Answer must be 1-25 characters in length."
^DD(423.2,33,"DT")="2910913"
^DD(423.2,34,0)="NSN^F^^2;8^K:$L(X)>20!($L(X)<1) X"
^DD(423.2,34,3)="Answer must be 1-20 characters in length."
^DD(423.2,34,"DT")="2910913"
^DD(423.2,35,0)="SPECIAL HANDLING CODE^F^^2;9^K:$L(X)>1!($L(X)<1) X"
^DD(423.2,35,3)="Answer must be 1 character in length."
^DD(423.2,35,"DT")="2910913"
^DD(423.2,36,0)="FIPS AGENCY CODE^F^^2;10^K:$L(X)>4!($L(X)<1) X"
^DD(423.2,36,3)="Answer must be 1-4 characters in length."
^DD(423.2,36,"DT")="2920102"
^DD(423.2,37,0)="ADP UNIT DESIGNATOR^F^^2;11^K:$L(X)>10!($L(X)<1) X"
^DD(423.2,37,3)="Answer must be 1-10 characters in length."
^DD(423.2,37,"DT")="2920102"
^DD(423.2,38,0)="ADP MFG CODE^F^^2;12^K:$L(X)>5!($L(X)<1) X"
^DD(423.2,38,3)="Answer must be 1-5 characters in length."
^DD(423.2,38,"DT")="2920102"
^DD(423.2,39,0)="ADP MODEL CODE^F^^2;13^K:$L(X)>5!($L(X)<1) X"
^DD(423.2,39,3)="Answer must be 1-5 characters in length."
^DD(423.2,39,"DT")="2920102"
^DD(423.2,40,0)="ADP COMPUTER QTY^NJ6,0^^2;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(423.2,40,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(423.2,40,"DT")="2920102"
^DD(423.2,41,0)="ADP DESCRIPTION^F^^2;15^K:$L(X)>25!($L(X)<1) X"
^DD(423.2,41,3)="Answer must be 1-25 characters in length."
^DD(423.2,41,"DT")="2920102"
^DD(423.2,42,0)="CITY^F^^2;16^K:$L(X)>25!($L(X)<1) X"
^DD(423.2,42,3)="Answer must be 1-25 characters in length."
^DD(423.2,42,"DT")="2920102"
^DD(423.2,43,0)="STATE^P5'^DIC(5,^2;17^Q"
^DD(423.2,43,"DT")="2920102"
^DD(423.2,44,0)="USCODE^F^^2;18^K:$L(X)>1!($L(X)<1) X"
^DD(423.2,44,3)="Answer must be 1 character in length."
^DD(423.2,44,"DT")="2920102"
^DD(423.2,45,0)="DS IND^F^^2;19^K:$L(X)>1!($L(X)<1) X"
^DD(423.2,45,3)="Answer must be 1 character in length."
^DD(423.2,45,"DT")="2920102"
^DD(423.2,"B","ACQUISITION CODE",11)=""
^DD(423.2,"B","ACQUISITION DATE",10)=""
^DD(423.2,"B","ACQUISITION VALUE",9)=""
^DD(423.2,"B","ADP COMPUTER QTY",40)=""
^DD(423.2,"B","ADP DESCRIPTION",41)=""
^DD(423.2,"B","ADP MFG CODE",38)=""
^DD(423.2,"B","ADP MODEL CODE",39)=""
^DD(423.2,"B","ADP UNIT DESIGNATOR",37)=""
^DD(423.2,"B","CAPITALIZATION FLAG",15)=""
^DD(423.2,"B","CAT STK # DESC",27)=""
^DD(423.2,"B","CITY",42)=""
^DD(423.2,"B","CMR DEPARTMENT #",29)=""
^DD(423.2,"B","COMMENTS",33)=""
^DD(423.2,"B","CONTROLLED ITEM",30)=""
^DD(423.2,"B","COST CENTER",14)=""
^DD(423.2,"B","CSN",2)=""
^DD(423.2,"B","DISPOSITION CODE",23)=""
^DD(423.2,"B","DISPOSITION PROCEEDS",24)=""
^DD(423.2,"B","DS IND",45)=""
^DD(423.2,"B","FINAL DISPOSAL DATE",20)=""
^DD(423.2,"B","FIPS AGENCY CODE",36)=""
^DD(423.2,"B","GEN LEDGER ACCT #",12)=""
^DD(423.2,"B","IFCAP PO NUMBER",7)=""
^DD(423.2,"B","LAST INVENTORY DATE",25)=""
^DD(423.2,"B","LEASE COST/MONTH",18)=""
^DD(423.2,"B","LIFE EXPECTANCY",19)=""
^DD(423.2,"B","MANUFACTURER",3)=""
^DD(423.2,"B","MODEL",5)=""
^DD(423.2,"B","NSN",34)=""
^DD(423.2,"B","NX ITEMS",.01)=""
^DD(423.2,"B","OWNERSHIP CODE",17)=""
^DD(423.2,"B","PARENT SYSTEM",32)=""
^DD(423.2,"B","PM TOTAL COST",26)=""
^DD(423.2,"B","PROPERTY TYPE",4)=""
^DD(423.2,"B","REASON CODE",31)=""
^DD(423.2,"B","REPLACEMENT COST",21)=""
^DD(423.2,"B","REPLACEMENT NUMBER",28)=""
^DD(423.2,"B","RETIREMENT DATE",22)=""
^DD(423.2,"B","SEGMENT TYPE NA",1)=""
^DD(423.2,"B","SERIAL NUMBER",6)=""
^DD(423.2,"B","SPECIAL HANDLING CODE",35)=""
^DD(423.2,"B","STATE",43)=""
^DD(423.2,"B","USCODE",44)=""
^DD(423.2,"B","USE CODE",16)=""
^DD(423.2,"B","VENDOR NAME",8)=""
^DD(423.2,"B","YALD CODE",13)=""
^DD(423.2,"GL",0,1,.01)=""
^DD(423.2,"GL",0,2,1)=""
^DD(423.2,"GL",0,3,2)=""
^DD(423.2,"GL",0,4,3)=""
^DD(423.2,"GL",0,5,4)=""
^DD(423.2,"GL",0,6,5)=""
^DD(423.2,"GL",0,7,6)=""
^DD(423.2,"GL",0,8,7)=""
^DD(423.2,"GL",0,9,8)=""
^DD(423.2,"GL",1,1,9)=""
^DD(423.2,"GL",1,2,10)=""
^DD(423.2,"GL",1,3,11)=""
^DD(423.2,"GL",1,4,12)=""
^DD(423.2,"GL",1,5,13)=""
^DD(423.2,"GL",1,6,14)=""
^DD(423.2,"GL",1,7,15)=""
^DD(423.2,"GL",1,8,16)=""
^DD(423.2,"GL",1,9,17)=""
^DD(423.2,"GL",1,10,18)=""
^DD(423.2,"GL",1,11,19)=""
^DD(423.2,"GL",1,12,20)=""
^DD(423.2,"GL",1,13,21)=""
^DD(423.2,"GL",1,14,22)=""
^DD(423.2,"GL",1,15,23)=""
^DD(423.2,"GL",1,16,24)=""
^DD(423.2,"GL",1,17,25)=""
^DD(423.2,"GL",1,18,26)=""
^DD(423.2,"GL",2,1,27)=""
^DD(423.2,"GL",2,2,28)=""
^DD(423.2,"GL",2,3,29)=""
^DD(423.2,"GL",2,4,30)=""
^DD(423.2,"GL",2,5,31)=""
^DD(423.2,"GL",2,6,32)=""
^DD(423.2,"GL",2,7,33)=""
^DD(423.2,"GL",2,8,34)=""
^DD(423.2,"GL",2,9,35)=""
^DD(423.2,"GL",2,10,36)=""
^DD(423.2,"GL",2,11,37)=""
^DD(423.2,"GL",2,12,38)=""
^DD(423.2,"GL",2,13,39)=""
^DD(423.2,"GL",2,14,40)=""
^DD(423.2,"GL",2,15,41)=""
^DD(423.2,"GL",2,16,42)=""
^DD(423.2,"GL",2,17,43)=""
^DD(423.2,"GL",2,18,44)=""
^DD(423.2,"GL",2,19,45)=""
^DD(423.2,"IX",.01)=""
^DD(423.2,"RQ",4)=""
^DD(423.4,0)="FIELD^^2^3"
^DD(423.4,0,"DDA")="N"
^DD(423.4,0,"DT")="2920722"
^DD(423.4,0,"ID","W")="W ?10,$P(^PRCF(423.4,+Y,0),U,2)"
^DD(423.4,0,"ID","W1")="W ?55,""STATUS = "",$P(^PRCF(423.4,+Y,0),U,3)"
^DD(423.4,0,"IX","B",423.4,.01)=""
^DD(423.4,0,"NM","ISMS REASON CODES")=""
^DD(423.4,0,"VR")="5.1"
^DD(423.4,0,"VRPK")="IFCAP"
^DD(423.4,.01,0)="CODE^RNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(423.4,.01,1,0)="^.1"
^DD(423.4,.01,1,1,0)="423.4^B"
^DD(423.4,.01,1,1,1)="S ^PRCF(423.4,""B"",$E(X,1,30),DA)="""""
^DD(423.4,.01,1,1,2)="K ^PRCF(423.4,""B"",$E(X,1,30),DA)"
^DD(423.4,.01,3)="Enter a Reason Code from 1 to 999, whole numbers only."
^DD(423.4,.01,8.5)="^"
^DD(423.4,.01,9)="^"
^DD(423.4,.01,21,0)="^^1^1^2941205^"
^DD(423.4,.01,21,1,0)="This is the numeric code identifying the ISMS reason message."
^DD(423.4,.01,"DT")="2920721"
^DD(423.4,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(423.4,1,3)="Enter a Reason Code (1-40 characters)."
^DD(423.4,1,8.5)="^"
^DD(423.4,1,9)="^"
^DD(423.4,1,21,0)="^^1^1^2941205^"
^DD(423.4,1,21,1,0)="This is the text of the ISMS message giving a reason for an action."
^DD(423.4,1,"DT")="2920722"
^DD(423.4,2,0)="STAT^S^A:AVAILABLE;^0;3^Q"
^DD(423.4,2,3)="Enter the status of this Reason Code."
^DD(423.4,2,8.5)="^"
^DD(423.4,2,9)="^"
^DD(423.4,2,21,0)="^^1^1^2941205^"
^DD(423.4,2,21,1,0)="This is a code indicating the status of an ISMS reason message."
^DD(423.4,2,"DT")="2920721"
^DD(423.4,"B","CODE",.01)=""
^DD(423.4,"B","DESCRIPTION",1)=""
^DD(423.4,"B","STAT",2)=""
^DD(423.4,"GL",0,1,.01)=""
^DD(423.4,"GL",0,2,1)=""
^DD(423.4,"GL",0,3,2)=""
^DD(423.4,"IX",.01)=""
^DD(423.4,"RQ",.01)=""
^DD(423.5,0)="FIELD^^3^4"
^DD(423.5,0,"DDA")="N"
^DD(423.5,0,"DT")="2931208"
^DD(423.5,0,"IX","B",423.5,.01)=""
^DD(423.5,0,"NM","PRC IFCAP MESSAGE ROUTER")=""
^DD(423.5,0,"VR")="5.1"
^DD(423.5,0,"VRPK")="IFCAP"
^DD(423.5,.01,0)="TRANSACTION CODE^RFX^^0;1^K:$L(X)>7!($L(X)<7)!'(X?3U1""-""3UN) X"
^DD(423.5,.01,1,0)="^.1"
^DD(423.5,.01,1,1,0)="423.5^B"
^DD(423.5,.01,1,1,1)="S ^PRCF(423.5,""B"",$E(X,1,30),DA)="""""
^DD(423.5,.01,1,1,2)="K ^PRCF(423.5,""B"",$E(X,1,30),DA)"
^DD(423.5,.01,3)="Answer must be 7 characters in length."
^DD(423.5,.01,21,0)="^^1^1^2931208^^^"
^DD(423.5,.01,21,1,0)="This entry is the transaction code."
^DD(423.5,.01,23,0)="^^7^7^2931208^^"
^DD(423.5,.01,23,1,0)="This code is made up in two parts.  The first part represents the"
^DD(423.5,.01,23,2,0)="source system.  The second part is the transaction to be"
^DD(423.5,.01,23,3,0)="serviced.  The two parts are seperated by a dash ( - )."
^DD(423.5,.01,23,4,0)="   "
^DD(423.5,.01,23,5,0)="The source system is ISMS when the first part is IFC or ISM."
^DD(423.5,.01,23,6,0)="It is EDI when the first part is EDI.  It is FMS when the first"
^DD(423.5,.01,23,7,0)="part is CTL."
^DD(423.5,.01,"DT")="2931208"
^DD(423.5,1,0)="MAILGROUP^P3.8'^XMB(3.8,^0;2^Q"
^DD(423.5,1,3)=""
^DD(423.5,1,21,0)="^^2^2^2930204^^"
^DD(423.5,1,21,1,0)="This is the mail group which will receive transaction processing"
^DD(423.5,1,21,2,0)="error messages (notices)."
^DD(423.5,1,"DT")="2911205"
^DD(423.5,2,0)="TAG^F^^0;3^K:$L(X)>8!($L(X)<1) X"
^DD(423.5,2,3)="Answer must be 1-8 characters in length."
^DD(423.5,2,21,0)="^^1^1^2920304^"
^DD(423.5,2,21,1,0)="This is the entry point for transaction processing."
^DD(423.5,2,"DT")="2911227"
^DD(423.5,3,0)="ROUTINE^F^^0;4^K:$L(X)>10!($L(X)<3) X"
^DD(423.5,3,3)="Answer must be 3-10 characters in length."
^DD(423.5,3,21,0)="^^1^1^2920304^"
^DD(423.5,3,21,1,0)="This is the routine for ISMS transaction processing."
^DD(423.5,3,"DT")="2911227"
^DD(423.5,"B","MAILGROUP",1)=""
^DD(423.5,"B","ROUTINE",3)=""
^DD(423.5,"B","TAG",2)=""
^DD(423.5,"B","TRANSACTION CODE",.01)=""
^DD(423.5,"GL",0,1,.01)=""
^DD(423.5,"GL",0,2,1)=""
^DD(423.5,"GL",0,3,2)=""
^DD(423.5,"GL",0,4,3)=""
^DD(423.5,"IX",.01)=""
^DD(423.5,"RQ",.01)=""
^DD(423.6,0)="FIELD^^4^5"
^DD(423.6,0,"DDA")="N"
^DD(423.6,0,"DT")="2920423"
^DD(423.6,0,"IX","AC",423.6,3)=""
^DD(423.6,0,"IX","AD",423.6,4)=""
^DD(423.6,0,"IX","B",423.6,.01)=""
^DD(423.6,0,"NM","ISMS/FMS TRANS")=""
^DD(423.6,0,"PT",411.3,3)=""
^DD(423.6,0,"VR")="5.1"
^DD(423.6,0,"VRPK")="IFCAP"
^DD(423.6,.01,0)="TRANSACTION ID^RFX^^0;1^K:$L(X)>28!($L(X)<20)!'(X?3AN1""-""8N1""-""6N1""-""3N.1""-"".3AN) X"
^DD(423.6,.01,1,0)="^.1"
^DD(423.6,.01,1,1,0)="423.6^B"
^DD(423.6,.01,1,1,1)="S ^PRCF(423.6,""B"",$E(X,1,30),DA)="""""
^DD(423.6,.01,1,1,2)="K ^PRCF(423.6,""B"",$E(X,1,30),DA)"
^DD(423.6,.01,3)="Answer must be 20-26 characters in length."
^DD(423.6,.01,21,0)="^^1^1^2940707^^"
^DD(423.6,.01,21,1,0)="This is the ISMS transaction ID."
^DD(423.6,.01,23,0)="^^15^15^2940707^^^^"
^DD(423.6,.01,23,1,0)="This field, TRANSACTION ID, gets its information from a TRANSACTION"
^DD(423.6,.01,23,2,0)="sent from Austin, Texas.  The TRANSACTION comes from the ISMS system."
^DD(423.6,.01,23,3,0)="This field is made up of four or five parts of the header segment from"
^DD(423.6,.01,23,4,0)="the TRANSACTION."
^DD(423.6,.01,23,5,0)=" "
^DD(423.6,.01,23,6,0)="    Field Part           IFCAP Field Name"
^DD(423.6,.01,23,7,0)="      1                  TRANS CODE"
^DD(423.6,.01,23,8,0)="      2                  TRANS DATE"
^DD(423.6,.01,23,9,0)="      3                  TRANS TIME"
^DD(423.6,.01,23,10,0)="      4                  TOTAL SEQUENCE"
^DD(423.6,.01,23,11,0)="      5                  STATION NUMBER"
^DD(423.6,.01,23,12,0)=" "
^DD(423.6,.01,23,13,0)="The Field Parts are seperated with a '-'.  A typical .01 field entry"
^DD(423.6,.01,23,14,0)="would look like this: 'SSO-19920602-112704-001' or"
^DD(423.6,.01,23,15,0)="'PAC-19940706-144527-002-688'."
^DD(423.6,.01,"DT")="2940707"
^DD(423.6,1,0)="TRANSACTION^423.61A^^1;0"
^DD(423.6,1,23,0)="^^1^1^2920415^"
^DD(423.6,1,23,1,0)="This multiple will hold the complete ISMS transaction."
^DD(423.6,2,0)="TASK^NJ11,0^^0;2^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.6,2,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(423.6,2,21,0)="^^1^1^2930414^"
^DD(423.6,2,21,1,0)="This field contains the last TASKMAN job that was entered for this ISMS transaction."
^DD(423.6,2,23,0)="^^2^2^2930414^^^"
^DD(423.6,2,23,1,0)="This field containes the last TaskMan job number that was entered for this"
^DD(423.6,2,23,2,0)="ISMS transaction."
^DD(423.6,2,"DT")="2911217"
^DD(423.6,3,0)="NSN STATUS^*P442.3'^PRCD(442.3,^2;1^K Z0 S Z0(65)="""",DIC(""S"")=""I $D(Z0(+$P(^(0),U,2)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423.6,3,1,0)="^.1"
^DD(423.6,3,1,1,0)="423.6^AC"
^DD(423.6,3,1,1,1)="S ^PRCF(423.6,""AC"",$E(X,1,30),DA)="""""
^DD(423.6,3,1,1,2)="K ^PRCF(423.6,""AC"",$E(X,1,30),DA)"
^DD(423.6,3,1,1,"%D",0)="^^5^5^2920423^^^"
^DD(423.6,3,1,1,"%D",1,0)="This x-ref is used to notify a PPM clerk that the SSO transaction needs to"
^DD(423.6,3,1,1,"%D",2,0)="have some entries added into the ITEM MASTER file, file 441.  This field"
^DD(423.6,3,1,1,"%D",3,0)="is set in the routine PRCOSSO.  The ENTRY ACTION of PRCHUSER PPM menu option"
^DD(423.6,3,1,1,"%D",4,0)="calls the routine PRCOSS1. The routine will notify the user that there are"
^DD(423.6,3,1,1,"%D",5,0)="new records to add into file 441."
^DD(423.6,3,1,1,"DT")="2920415"
^DD(423.6,3,12)="Only notify PPM clerk"
^DD(423.6,3,12.1)="K Z0 S Z0(65)="""",DIC(""S"")=""I $D(Z0(+$P(^(0),U,2)))"""
^DD(423.6,3,21,0)="^^1^1^2930414^"
^DD(423.6,3,21,1,0)="This field is used to notify a PPM clerk that there are incomming items to enter into file 441."
^DD(423.6,3,23,0)="^^2^2^2930414^^^"
^DD(423.6,3,23,1,0)="This field is used to notify a PPM clerk that there are incomming items to"
^DD(423.6,3,23,2,0)="enter into file 441."
^DD(423.6,3,"DT")="2920423"
^DD(423.6,4,0)="WAREHOUSE STATUS^*P442.3'^PRCD(442.3,^2;2^K Z0 S Z0(65)="""",DIC(""S"")=""I $D(Z0(+$P(^(0),U,2)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(423.6,4,1,0)="^.1"
^DD(423.6,4,1,1,0)="423.6^AD"
^DD(423.6,4,1,1,1)="S ^PRCF(423.6,""AD"",$E(X,1,30),DA)="""""
^DD(423.6,4,1,1,2)="K ^PRCF(423.6,""AD"",$E(X,1,30),DA)"
^DD(423.6,4,1,1,"%D",0)="^^4^4^2930204^^^"
^DD(423.6,4,1,1,"%D",1,0)="This x-ref is used to notify a PPM clerk that the SSO transaction has some"
^DD(423.6,4,1,1,"%D",2,0)="entries that were not found in the GENERIC INVENTORY file, file 445 for the"
^DD(423.6,4,1,1,"%D",3,0)="warehouse.  This field is set in the routine PRCOSSO.  The ENTRY ACTION of"
^DD(423.6,4,1,1,"%D",4,0)="PRCHUSER PPM option notifies the PPM clerk about the missing entries."
^DD(423.6,4,1,1,"DT")="2920423"
^DD(423.6,4,12)="Only notify PPM clerk"
^DD(423.6,4,12.1)="K Z0 S Z0(65)="""",DIC(""S"")=""I $D(Z0(+$P(^(0),U,2)))"""
^DD(423.6,4,21,0)="^^1^1^2930414^"
^DD(423.6,4,21,1,0)="This is the warehouse status."
^DD(423.6,4,"DT")="2920423"
^DD(423.6,"B","NSN STATUS",3)=""
^DD(423.6,"B","TASK",2)=""
^DD(423.6,"B","TRANSACTION",1)=""
^DD(423.6,"B","TRANSACTION ID",.01)=""
^DD(423.6,"B","WAREHOUSE STATUS",4)=""
^DD(423.6,"GL",0,1,.01)=""
^DD(423.6,"GL",0,2,2)=""
^DD(423.6,"GL",1,0,1)=""
^DD(423.6,"GL",2,1,3)=""
^DD(423.6,"GL",2,2,4)=""
^DD(423.6,"IX",.01)=""
^DD(423.6,"IX",3)=""
^DD(423.6,"IX",4)=""
^DD(423.6,"RQ",.01)=""
^DD(423.6,"SB",423.61,1)=""
^DD(423.61,0)="TRANSACTION SUB-FIELD^^.01^1"
^DD(423.61,0,"DT")="2920302"
^DD(423.61,0,"NM","TRANSACTION")=""
^DD(423.61,0,"UP")="423.6"
^DD(423.61,.01,0)="TRANSACTION^MF^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(423.61,.01,1,0)="^.1^^0"
^DD(423.61,.01,3)="Answer must be 1-240 characters in length."
^DD(423.61,.01,21,0)="^^1^1^2930414^"
^DD(423.61,.01,21,1,0)="This field holds one line of the ISMS transaction."
^DD(423.61,.01,23,0)="^^1^1^2930414^^^"
^DD(423.61,.01,23,1,0)="This field holds one line of the ISMS transaction."
^DD(423.61,.01,"DT")="2920303"
^DD(423.61,"B","TRANSACTION",.01)=""
^DD(423.61,"GL",0,1,.01)=""
^DD(423.9,0)="FIELD^^7^8"
^DD(423.9,0,"DT")="2921222"
^DD(423.9,0,"IX","AC",423.9,5)=""
^DD(423.9,0,"IX","B",423.9,.01)=""
^DD(423.9,0,"NM","CALM/LOG BATCH TYPE")=""
^DD(423.9,0,"PT",420.4,.7)=""
^DD(423.9,0,"PT",423,.6)=""
^DD(423.9,0,"PT",441.2,5)=""
^DD(423.9,0,"VR")="5.1"
^DD(423.9,0,"VRPK")="IFCAP"
^DD(423.9,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.9,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(423.9,.001,21,0)="^^1^1^2910516^"
^DD(423.9,.001,21,1,0)="This is the batch number."
^DD(423.9,.01,0)="NAME^RF^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X"
^DD(423.9,.01,1,0)="^.1"
^DD(423.9,.01,1,1,0)="423.9^B"
^DD(423.9,.01,1,1,1)="S ^PRCF(423.9,""B"",$E(X,1,30),DA)="""""
^DD(423.9,.01,1,1,2)="K ^PRCF(423.9,""B"",$E(X,1,30),DA)"
^DD(423.9,.01,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(423.9,.01,21,0)="^^1^1^2910516^"
^DD(423.9,.01,21,1,0)="This is the name of the batch type."
^DD(423.9,.01,"DT")="2890522"
^DD(423.9,1,0)="CODE SHEETS PER MESSAGE^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(423.9,1,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(423.9,1,21,0)="^^1^1^2910516^"
^DD(423.9,1,21,1,0)="This is the number of code sheets per message."
^DD(423.9,1,"DT")="2881221"
^DD(423.9,3,0)="ACTIVATED^RS^Y:YES;N:NO;^0;4^Q"
^DD(423.9,3,21,0)="^^1^1^2910516^"
^DD(423.9,3,21,1,0)="This indicates if the batch type has been restarted."
^DD(423.9,3,"DT")="2861028"
^DD(423.9,4,0)="SYSTEM IDENTIFIER^F^^0;5^K:$L(X)>3!($L(X)<3)!'(X?3U) X"
^DD(423.9,4,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(423.9,4,21,0)="^^1^1^2910516^"
^DD(423.9,4,21,1,0)="This is the system identifier."
^DD(423.9,4,"DT")="2861028"
^DD(423.9,5,0)="TRANSMISSION ORDER^RNJ2,0X^^0;6^K:+X'=X!(X>14)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$D(^PRCF(423.9,""AC"",X))>14,$O(^(X,0))'=DA W !,""  Transmission order "",X,"" is already assigned to "",$P(^PRCF(423.9,$O(^(0)),0),U),""."",*7 K X"
^DD(423.9,5,1,0)="^.1"
^DD(423.9,5,1,1,0)="423.9^AC"
^DD(423.9,5,1,1,1)="S ^PRCF(423.9,""AC"",$E(X,1,30),DA)="""""
^DD(423.9,5,1,1,2)="K ^PRCF(423.9,""AC"",$E(X,1,30),DA)"
^DD(423.9,5,1,1,"%D",0)="^^2^2^2930714^"
^DD(423.9,5,1,1,"%D",1,0)="This cross-reference is used to determine the order in which the"
^DD(423.9,5,1,1,"%D",2,0)="batch types are transmitted to Austin."
^DD(423.9,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 14.  DUPLICATES ARE NOT PERMITTED."
^DD(423.9,5,21,0)="^^2^2^2930204^^"
^DD(423.9,5,21,1,0)="This is the transmission order in which batches"
^DD(423.9,5,21,2,0)="are transmitted to Austin."
^DD(423.9,5,"DT")="2890522"
^DD(423.9,6,0)="LOCAL ADDRESSEE^423.9001P^^1;0"
^DD(423.9,6,21,0)="^^2^2^2910516^"
^DD(423.9,6,21,1,0)="This is the local addressee to whom the"
^DD(423.9,6,21,2,0)="code sheet messages are delivered."
^DD(423.9,7,0)="AUSTIN ADDRESSEE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(423.9,7,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(423.9,7,21,0)="^^1^1^2910516^"
^DD(423.9,7,21,1,0)="This is the address of the Austin addressee."
^DD(423.9,7,"DT")="2861124"
^DD(423.9,"B","ACTIVATED",3)=""
^DD(423.9,"B","AUSTIN ADDRESSEE",7)=""
^DD(423.9,"B","CODE SHEETS PER MESSAGE",1)=""
^DD(423.9,"B","LOCAL ADDRESSEE",6)=""
^DD(423.9,"B","NAME",.01)=""
^DD(423.9,"B","NUMBER",.001)=""
^DD(423.9,"B","SYSTEM IDENTIFIER",4)=""
^DD(423.9,"B","TRANSMISSION ORDER",5)=""
^DD(423.9,"GL",0,1,.01)=""
^DD(423.9,"GL",0,2,7)=""
^DD(423.9,"GL",0,3,1)=""
^DD(423.9,"GL",0,4,3)=""
^DD(423.9,"GL",0,5,4)=""
^DD(423.9,"GL",0,6,5)=""
^DD(423.9,"GL",1,0,6)=""
^DD(423.9,"IX",.01)=""
^DD(423.9,"IX",5)=""
^DD(423.9,"RQ",.01)=""
^DD(423.9,"RQ",3)=""
^DD(423.9,"RQ",5)=""
^DD(423.9,"SB",423.9001,6)=""
^DD(423.9001,0)="LOCAL ADDRESSEE SUB-FIELD^^.01^1"
^DD(423.9001,0,"DT")="2921222"
^DD(423.9001,0,"IX","B",423.9001,.01)=""
^DD(423.9001,0,"NM","LOCAL ADDRESSEE")=""
^DD(423.9001,0,"UP")="423.9"
^DD(423.9001,.01,0)="ADDRESSEE(S)^MP200'^VA(200,^0;1^Q"
^DD(423.9001,.01,1,0)="^.1"
^DD(423.9001,.01,1,1,0)="423.9001^B"
^DD(423.9001,.01,1,1,1)="S ^PRCF(423.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(423.9001,.01,1,1,2)="K ^PRCF(423.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(423.9001,.01,3)=""
^DD(423.9001,.01,21,0)="^^1^1^2910516^"
^DD(423.9001,.01,21,1,0)="These are the addresses of the local addressee(s)."
^DD(423.9001,.01,"DT")="2921222"
^DD(423.9001,"B","ADDRESSEE(S)",.01)=""
^DD(423.9001,"GL",0,1,.01)=""
^DD(423.9001,"IX",.01)=""
^DD(424,0)="FIELD^^4^19"
^DD(424,0,"DDA")="N"
^DD(424,0,"DT")="2940929"
^DD(424,0,"ID",.1)="W ""   "",$P(^(0),U,10)"
^DD(424,0,"IX","AC",424,.09)=""
^DD(424,0,"IX","ACONV",424,2)=""
^DD(424,0,"IX","AD",424,.01)=""
^DD(424,0,"IX","AE",424,.15)=""
^DD(424,0,"IX","AF",424,.03)=""
^DD(424,0,"IX","AG",424,.03)=""
^DD(424,0,"IX","AT",424,.03)=""
^DD(424,0,"IX","B",424,.01)=""
^DD(424,0,"IX","B1",424,.01)=""
^DD(424,0,"IX","C",424,.02)=""
^DD(424,0,"IX","D",424,.1)=""
^DD(424,0,"IX","E",424,4)=""
^DD(424,0,"NM","1358 DAILY RECORD")=""
^DD(424,0,"PT",424.1,.02)=""
^DD(424,0,"VR")="5.1"
^DD(424,0,"VRPK")="IFCAP"
^DD(424,.01,0)="AUTHORIZATION #^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<12)!'(X?3N1""-""6AN.1""-""1.4N) X"
^DD(424,.01,.1)=""
^DD(424,.01,1,0)="^.1"
^DD(424,.01,1,1,0)="424^B"
^DD(424,.01,1,1,1)="S ^PRC(424,""B"",$E(X,1,30),DA)="""""
^DD(424,.01,1,1,2)="K ^PRC(424,""B"",$E(X,1,30),DA)"
^DD(424,.01,1,1,"%D",0)="^^2^2^2930721^^^"
^DD(424,.01,1,1,"%D",1,0)="This cross-reference will allow look-up on  Station-Obligation-Sequence"
^DD(424,.01,1,1,"%D",2,0)="of each authorization number."
^DD(424,.01,1,2,0)="424^AD^MUMPS"
^DD(424,.01,1,2,1)="S ^PRC(424,""AD"",$P(X,""-"",1,2),DA)="""""
^DD(424,.01,1,2,2)="K ^PRC(424,""AD"",$P(X,""-"",1,2),DA)"
^DD(424,.01,1,2,"%D",0)="^^2^2^2930719^"
^DD(424,.01,1,2,"%D",1,0)="This cross-reference will allow look-up on  Station-Obligation of each"
^DD(424,.01,1,2,"%D",2,0)="authorization number."
^DD(424,.01,1,2,"DT")="2920211"
^DD(424,.01,1,3,0)="424^B1^MUMPS"
^DD(424,.01,1,3,1)="S ^PRC(424,""B1"",$P(X,""-"",3),DA)="""""
^DD(424,.01,1,3,2)="K ^PRC(424,""B1"",$P(X,""-"",3),DA)"
^DD(424,.01,1,3,"%D",0)="^^2^2^2930714^^^"
^DD(424,.01,1,3,"%D",1,0)="   This cross-reference will allow look-up on the sequence number of the"
^DD(424,.01,1,3,"%D",2,0)="authorization within the obligation."
^DD(424,.01,1,3,"DT")="2920304"
^DD(424,.01,3)="Enter sequential number of each authorization"
^DD(424,.01,21,0)="^^2^2^2930402^^^^"
^DD(424,.01,21,1,0)="This is the entry number of the 1358 daily record."
^DD(424,.01,21,2,0)="Format: sta-obligation-seq number.  e.g., 503-C10001-1"
^DD(424,.01,"DT")="2920304"
^DD(424,.02,0)="OBLIGATION #^P442'^PRC(442,^0;2^Q"
^DD(424,.02,.1)=""
^DD(424,.02,1,0)="^.1"
^DD(424,.02,1,1,0)="424^C"
^DD(424,.02,1,1,1)="S ^PRC(424,""C"",$E(X,1,30),DA)="""""
^DD(424,.02,1,1,2)="K ^PRC(424,""C"",$E(X,1,30),DA)"
^DD(424,.02,1,1,"%D",0)="^^3^3^2930719^"
^DD(424,.02,1,1,"%D",1,0)="This is cross-reference on the pointer to the obligation number in "
^DD(424,.02,1,1,"%D",2,0)="file 442. The pointer points to the corresponding obligation number"
^DD(424,.02,1,1,"%D",3,0)="in file 442."
^DD(424,.02,1,1,"DT")="2910909"
^DD(424,.02,21,0)="^^1^1^2910909^"
^DD(424,.02,21,1,0)="This is the pointer to the obligation number in file 442."
^DD(424,.02,"DT")="2920113"
^DD(424,.03,0)="TRANSACTION TYPE^S^O:OBLIGATION;L:LIQUIDATION;A:ADJUSTMENT;AU:AUTHORIZATION;^0;3^Q"
^DD(424,.03,1,0)="^.1"
^DD(424,.03,1,1,0)="424^AF^MUMPS"
^DD(424,.03,1,1,1)="S:""OA""[X ^PRC(424,""AF"",$P(^PRC(424,DA,0),""-"",1,2),DA)="""""
^DD(424,.03,1,1,2)="K:""OA""[X ^PRC(424,""AF"",$P(^PRC(424,DA,0),""-"",1,2),DA)"
^DD(424,.03,1,1,"%D",0)="^^2^2^2920213^"
^DD(424,.03,1,1,"%D",1,0)=" This cross-reference will only have obligations and adjustments set into"
^DD(424,.03,1,1,"%D",2,0)="it."
^DD(424,.03,1,1,"DT")="2920213"
^DD(424,.03,1,2,0)="424^AG^MUMPS"
^DD(424,.03,1,2,1)="S:X=""L"" ^PRC(424,""AG"",$P(^PRC(424,DA,0),""-"",1,2),DA)="""""
^DD(424,.03,1,2,2)="K:X=""L"" ^PRC(424,""AG"",$P(^PRC(424,DA,0),""-"",1,2),DA)"
^DD(424,.03,1,2,"%D",0)="^^1^1^2920226^^"
^DD(424,.03,1,2,"%D",1,0)="   This cross-reference is set for all liquidations of the obligation."
^DD(424,.03,1,2,"DT")="2920226"
^DD(424,.03,1,3,0)="424^AT"
^DD(424,.03,1,3,1)="S ^PRC(424,""AT"",$E(X,1,30),DA)="""""
^DD(424,.03,1,3,2)="K ^PRC(424,""AT"",$E(X,1,30),DA)"
^DD(424,.03,1,3,"%D",0)="^^1^1^2920605^"
^DD(424,.03,1,3,"%D",1,0)="     This cross-reference is used for finding a specific transaction type."
^DD(424,.03,1,3,"DT")="2920605"
^DD(424,.03,3)=""
^DD(424,.03,21,0)="^^1^1^2910909^"
^DD(424,.03,21,1,0)="Type of transaction."
^DD(424,.03,"DT")="2920605"
^DD(424,.04,0)="LIQUIDATION AMOUNT^NJ12,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(424,.04,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(424,.04,21,0)="^^3^3^2930402^^"
^DD(424,.04,21,1,0)="The amount liquidated by fiscal on this authorization.  You can have"
^DD(424,.04,21,2,0)="multiple liquidations against a single authorization.  A liquidation"
^DD(424,.04,21,3,0)="is the amount Fiscal pays on a bill."
^DD(424,.04,"DT")="2910909"
^DD(424,.05,0)="AUTHORIZATION BALANCE^NJ12,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(424,.05,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(424,.05,21,0)="^^3^3^2910909^"
^DD(424,.05,21,1,0)="This is the amount the service establishes for an authorization.  A detail"
^DD(424,.05,21,2,0)="of each bill received against this authorization is maintained in file"
^DD(424,.05,21,3,0)="424.1."
^DD(424,.05,"DT")="2910909"
^DD(424,.06,0)="OBLIGATION AMOUNT^NJ12,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(424,.06,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(424,.06,21,0)="^^3^3^2920128^^"
^DD(424,.06,21,1,0)="This is the amount obligated by fiscal.  each obligation is recorded here"
^DD(424,.06,21,2,0)="and balances maintained in file 442.  This field will also contain"
^DD(424,.06,21,3,0)=" corresponding adjustment data"
^DD(424,.06,"DT")="2920128"
^DD(424,.07,0)="DATE/TIME^D^^0;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(424,.07,21,0)="^^1^1^2930402^^^"
^DD(424,.07,21,1,0)="Date and time that the authorization is entered into the system."
^DD(424,.07,"DT")="2910909"
^DD(424,.08,0)="USER^P200'^VA(200,^0;8^Q"
^DD(424,.08,21,0)="^^1^1^2930402^^"
^DD(424,.08,21,1,0)="User entering authorization."
^DD(424,.08,"DT")="2910909"
^DD(424,.09,0)="COMPLETED FLAG^S^1:COMPLETED;^0;9^Q"
^DD(424,.09,1,0)="^.1"
^DD(424,.09,1,1,0)="424^AC"
^DD(424,.09,1,1,1)="S ^PRC(424,""AC"",$E(X,1,30),DA)="""""
^DD(424,.09,1,1,2)="K ^PRC(424,""AC"",$E(X,1,30),DA)"
^DD(424,.09,1,1,"%D",0)="^^1^1^2920605^^"
^DD(424,.09,1,1,"%D",1,0)="     This cross-reference is used for open 1358s."
^DD(424,.09,1,1,"DT")="2910913"
^DD(424,.09,5,1,0)="424.1^.07^1"
^DD(424,.09,21,0)="^^2^2^2930402^^^"
^DD(424,.09,21,1,0)="When set to one, additional posting of bills to this authorization will"
^DD(424,.09,21,2,0)="be prohibited.  This field is triggered by the final field in file 424.1."
^DD(424,.09,"DT")="2910913"
^DD(424,.1,0)="REFERENCE^F^^0;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X"
^DD(424,.1,1,0)="^.1"
^DD(424,.1,1,1,0)="424^D"
^DD(424,.1,1,1,1)="S ^PRC(424,""D"",$E(X,1,30),DA)="""""
^DD(424,.1,1,1,2)="K ^PRC(424,""D"",$E(X,1,30),DA)"
^DD(424,.1,1,1,"%D",0)="^^3^3^2930719^^"
^DD(424,.1,1,1,"%D",1,0)="This is the cross-reference on REFERENCE field of 1358 DAILY RECORD"
^DD(424,.1,1,1,"%D",2,0)="file."
^DD(424,.1,1,1,"%D",3,0)="The cross-reference based on a free-text."
^DD(424,.1,1,1,"DT")="2911016"
^DD(424,.1,3)="Answer must be 3-15 characters in length."
^DD(424,.1,21,0)="^^3^3^2911016^"
^DD(424,.1,21,1,0)="This optional field is a short description to cross-reference a liquidation"
^DD(424,.1,21,2,0)="with a patient, vendor or some other item to identify the liquidation"
^DD(424,.1,21,3,0)="against a bill."
^DD(424,.1,"DT")="2911016"
^DD(424,.11,0)="LAST SEQUENCE USED^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(424,.11,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(424,.11,21,0)="^^2^2^2920817^"
^DD(424,.11,21,1,0)="    This is the last sequence used for the authorizations for the"
^DD(424,.11,21,2,0)="obligation."
^DD(424,.11,"DT")="2911024"
^DD(424,.12,0)="AUTHORIZATION AMOUNT^RNJ12,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(424,.12,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(424,.12,21,0)="^^1^1^2920817^"
^DD(424,.12,21,1,0)="   This field is used to store the authorization amount with increases."
^DD(424,.12,"DT")="2920109"
^DD(424,.13,0)="ORIGINAL AUTHORIZATION AMOUNT^RNJ13,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999.99)!(X<0) X"
^DD(424,.13,3)="Type a Dollar Amount between 0 and 9999999999.99, 2 Decimal Digits"
^DD(424,.13,21,0)="^^1^1^2920817^"
^DD(424,.13,21,1,0)="    This field is used to store the original authorization amount."
^DD(424,.13,"DT")="2920130"
^DD(424,.14,0)="LAST EDITED BY^P200'^VA(200,^0;14^Q"
^DD(424,.14,21,0)="^^1^1^2930402^^^"
^DD(424,.14,21,1,0)="This field is used to store the user who last edited this authorization."
^DD(424,.14,"DT")="2920213"
^DD(424,.15,0)="CPA POINTER^P410'^PRCS(410,^0;15^Q"
^DD(424,.15,1,0)="^.1"
^DD(424,.15,1,1,0)="424^AE"
^DD(424,.15,1,1,1)="S ^PRC(424,""AE"",$E(X,1,30),DA)="""""
^DD(424,.15,1,1,2)="K ^PRC(424,""AE"",$E(X,1,30),DA)"
^DD(424,.15,1,1,"%D",0)="^^3^3^2930719^"
^DD(424,.15,1,1,"%D",1,0)="This is cross-reference on the CPA POINTER."
^DD(424,.15,1,1,"%D",2,0)="The pointer points to the corresponding entry in CONTROL POINT ACTIVITY"
^DD(424,.15,1,1,"%D",3,0)="file."
^DD(424,.15,1,1,"DT")="2920218"
^DD(424,.15,21,0)="^^2^2^2920218^"
^DD(424,.15,21,1,0)="This field contains the pointer value of the corresponding entry in file"
^DD(424,.15,21,2,0)="410.  This field will only be set on obligation, and adjustments."
^DD(424,.15,"DT")="2920218"
^DD(424,1.1,0)="COMMENTS^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(424,1.1,3)="Answer must be 1-245 characters in length."
^DD(424,1.1,21,0)="^^1^1^2920817^"
^DD(424,1.1,21,1,0)="     This field is used to store comments about this authorization."
^DD(424,1.1,"DT")="2920219"
^DD(424,2,0)="CONVERTED^SI^1:CONVERTED;^2;1^Q"
^DD(424,2,1,0)="^.1"
^DD(424,2,1,1,0)="424^ACONV^MUMPS"
^DD(424,2,1,1,1)="Q:'$D(PRCECONV)  S:(+$P(^PRC(424,DA,0),U,15)>1) ^PRC(424,""ACONV"",(99999999-$P(^PRC(424,DA,0),U,15)),DA)="""""
^DD(424,2,1,1,2)="K:(+$P(^PRC(424,DA,0),U,15)>1) ^PRC(424,""ACONV"",(99999999-$P(^PRC(424,DA,0),U,15)),DA)"
^DD(424,2,1,1,"%D",0)="^^2^2^2920806^^^^"
^DD(424,2,1,1,"%D",1,0)="    This cross-reference will mark the last entry that was converted. It will"
^DD(424,2,1,1,"%D",2,0)="be deleted in a version following v4 of IFCAP."
^DD(424,2,1,1,"DT")="2920806"
^DD(424,2,21,0)="^^2^2^2920817^^^"
^DD(424,2,21,1,0)="    This field is used to mark the entry as having been converted during"
^DD(424,2,21,2,0)="the installation of v4 of IFCAP."
^DD(424,2,"DT")="2920806"
^DD(424,3,0)="STOP^SI^1:STOP CONVERSION;^STOP;1^Q"
^DD(424,3,21,0)="^^2^2^2920817^^^^"
^DD(424,3,21,1,0)="     This field is used to flag the conversion of 1358's in the"
^DD(424,3,21,2,0)="installation of v4 of IFCAP as having been stopped."
^DD(424,3,"DT")="2920318"
^DD(424,4,0)="INTERFACE ID^F^^2;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(424,4,1,0)="^.1"
^DD(424,4,1,1,0)="424^E"
^DD(424,4,1,1,1)="S ^PRC(424,""E"",$E(X,1,30),DA)="""""
^DD(424,4,1,1,2)="K ^PRC(424,""E"",$E(X,1,30),DA)"
^DD(424,4,1,1,"%D",0)="^^3^3^2930115^"
^DD(424,4,1,1,"%D",1,0)="This cross-reference is used by other applications for interfacing"
^DD(424,4,1,1,"%D",2,0)="to IFCAP. Use this cross-reference to find the internal record id"
^DD(424,4,1,1,"%D",3,0)="of this file."
^DD(424,4,1,1,"DT")="2930115"
^DD(424,4,3)="Answer must be 1-30 characters in length."
^DD(424,4,21,0)="^^1^1^2930402^^^^"
^DD(424,4,21,1,0)="INTERFACE ID "
^DD(424,4,22)="INTERFACE ID "
^DD(424,4,23,0)="^^1^1^2930402^^^^"
^DD(424,4,23,1,0)="INTERFACE ID "
^DD(424,4,"DT")="2940929"
^DD(424,"B","AUTHORIZATION #",.01)=""
^DD(424,"B","AUTHORIZATION AMOUNT",.12)=""
^DD(424,"B","AUTHORIZATION BALANCE",.05)=""
^DD(424,"B","COMMENTS",1.1)=""
^DD(424,"B","COMPLETED FLAG",.09)=""
^DD(424,"B","CONVERTED",2)=""
^DD(424,"B","CPA POINTER",.15)=""
^DD(424,"B","DATE/TIME",.07)=""
^DD(424,"B","INTERFACE ID",4)=""
^DD(424,"B","LAST EDITED BY",.14)=""
^DD(424,"B","LAST SEQUENCE USED",.11)=""
^DD(424,"B","LIQUIDATION AMOUNT",.04)=""
^DD(424,"B","OBLIGATION #",.02)=""
^DD(424,"B","OBLIGATION AMOUNT",.06)=""
^DD(424,"B","ORIGINAL AUTHORIZATION AMOUNT",.13)=""
^DD(424,"B","REFERENCE",.1)=""
^DD(424,"B","STOP",3)=""
^DD(424,"B","TRANSACTION TYPE",.03)=""
^DD(424,"B","USER",.08)=""
^DD(424,"GL",0,1,.01)=""
^DD(424,"GL",0,2,.02)=""
^DD(424,"GL",0,3,.03)=""
^DD(424,"GL",0,4,.04)=""
^DD(424,"GL",0,5,.05)=""
^DD(424,"GL",0,6,.06)=""
^DD(424,"GL",0,7,.07)=""
^DD(424,"GL",0,8,.08)=""
^DD(424,"GL",0,9,.09)=""
^DD(424,"GL",0,10,.1)=""
^DD(424,"GL",0,11,.11)=""
^DD(424,"GL",0,12,.12)=""
^DD(424,"GL",0,13,.13)=""
^DD(424,"GL",0,14,.14)=""
^DD(424,"GL",0,15,.15)=""
^DD(424,"GL",1,1,1.1)=""
^DD(424,"GL",2,1,2)=""
^DD(424,"GL",2,2,4)=""
^DD(424,"GL","STOP",1,3)=""
^DD(424,"IX",.01)=""
^DD(424,"IX",.02)=""
^DD(424,"IX",.03)=""
^DD(424,"IX",.09)=""
^DD(424,"IX",.1)=""
^DD(424,"IX",.15)=""
^DD(424,"IX",2)=""
^DD(424,"IX",4)=""
^DD(424,"RQ",.01)=""
^DD(424,"RQ",.12)=""
^DD(424,"RQ",.13)=""
^DD(424.1,0)="FIELD^^1.1^12"
^DD(424.1,0,"DDA")="N"
^DD(424.1,0,"DT")="2920309"
^DD(424.1,0,"ID",.08)="W ""   "",$P(^(0),U,8)"
^DD(424.1,0,"IX","AC",424.1,.09)=""
^DD(424.1,0,"IX","AR",424.1,.011)=""
^DD(424.1,0,"IX","B",424.1,.01)=""
^DD(424.1,0,"IX","C",424.1,.02)=""
^DD(424.1,0,"IX","D",424.1,.08)=""
^DD(424.1,0,"NM","1358 AUTHORIZATION DETAIL")=""
^DD(424.1,0,"VR")="5.1"
^DD(424.1,0,"VRPK")="IFCAP"
^DD(424.1,.01,0)="BILL NUMBER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<14)!'(X?3N1""-""6AN.1""-""1.4N1""-""1.4N) X"
^DD(424.1,.01,1,0)="^.1^^-1"
^DD(424.1,.01,1,1,0)="424.1^B"
^DD(424.1,.01,1,1,1)="S ^PRC(424.1,""B"",$E(X,1,30),DA)="""""
^DD(424.1,.01,1,1,2)="K ^PRC(424.1,""B"",$E(X,1,30),DA)"
^DD(424.1,.01,1,1,"%D",0)="^^1^1^2930719^"
^DD(424.1,.01,1,1,"%D",1,0)="This is corss-reference on BILL number."
^DD(424.1,.01,3)="Answer must be 14-20 characters in length."
^DD(424.1,.01,21,0)="^^3^3^2930204^^^^"
^DD(424.1,.01,21,1,0)="This field contains the sequence number of each bill on a 1358."
^DD(424.1,.01,21,2,0)="the format is station PO number - 424 sequence number - sequence number."
^DD(424.1,.01,21,3,0)="ie 503-C10001-1-1."
^DD(424.1,.01,"DT")="2920227"
^DD(424.1,.011,0)="RECORD TYPE^RS^AU:AUTHORIZATION;A:ADJUSTMENT;P:PAYMENT TO AUTHORIZATION;^0;11^Q"
^DD(424.1,.011,1,0)="^.1"
^DD(424.1,.011,1,1,0)="424.1^AR^MUMPS"
^DD(424.1,.011,1,1,1)="S:$P(^PRC(424.1,DA,0),U,2)&(X=""P"") ^PRC(424.1,""AR"",$P(^(0),U,2),DA)="""""
^DD(424.1,.011,1,1,2)="K:$P(^PRC(424.1,DA,0),U,2)&(X=""P"") ^PRC(424.1,""AR"",$P(^(0),U,2),DA)"
^DD(424.1,.011,1,1,"%D",0)="^^1^1^2920310^^"
^DD(424.1,.011,1,1,"%D",1,0)="    This cross-reference is used to find payments against the authorization."
^DD(424.1,.011,1,1,"DT")="2920310"
^DD(424.1,.011,21,0)="^^2^2^2920817^"
^DD(424.1,.011,21,1,0)="   This field is used to store the type of transaction for recalculating"
^DD(424.1,.011,21,2,0)="the authorization."
^DD(424.1,.011,"DT")="2920310"
^DD(424.1,.02,0)="AUTHORIZATION POINTER^RP424'^PRC(424,^0;2^Q"
^DD(424.1,.02,1,0)="^.1^^-1"
^DD(424.1,.02,1,1,0)="424.1^C"
^DD(424.1,.02,1,1,1)="S ^PRC(424.1,""C"",$E(X,1,30),DA)="""""
^DD(424.1,.02,1,1,2)="K ^PRC(424.1,""C"",$E(X,1,30),DA)"
^DD(424.1,.02,1,1,"%D",0)="^^2^2^2930719^"
^DD(424.1,.02,1,1,"%D",1,0)="This is cross-reference on the POINTER which points to 1358 DAILY RECORD "
^DD(424.1,.02,1,1,"%D",2,0)="FILE.  (#424)"
^DD(424.1,.02,1,1,"DT")="2910909"
^DD(424.1,.02,3)=""
^DD(424.1,.02,21,0)="^^1^1^2920109^^^^"
^DD(424.1,.02,21,1,0)="pointer to file 424"
^DD(424.1,.02,"DT")="2920227"
^DD(424.1,.03,0)="AUTHORIZATION AMOUNT^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(424.1,.03,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(424.1,.03,21,0)="^^1^1^2920309^^"
^DD(424.1,.03,21,1,0)="Dollar amount of bill."
^DD(424.1,.03,"DT")="2920309"
^DD(424.1,.04,0)="DATE/TIME^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(424.1,.04,21,0)="^^1^1^2910909^"
^DD(424.1,.04,21,1,0)="Date/time bill entered."
^DD(424.1,.04,"DT")="2910909"
^DD(424.1,.05,0)="USER^P200'^VA(200,^0;5^Q"
^DD(424.1,.05,21,0)="^^1^1^2910909^"
^DD(424.1,.05,21,1,0)="User number of person entering bill."
^DD(424.1,.05,"DT")="2910909"
^DD(424.1,.06,0)="VENDOR INVOICE NUMBER^F^^0;6^K:$L(X)>15!($L(X)<3) X"
^DD(424.1,.06,3)="Answer must be 3-15 characters in length."
^DD(424.1,.06,21,0)="^^1^1^2930402^^"
^DD(424.1,.06,21,1,0)="Vendor invoice number found on bill."
^DD(424.1,.06,"DT")="2910909"
^DD(424.1,.07,0)="FINAL BILL^S^1:FINAL;^0;7^Q"
^DD(424.1,.07,1,0)="^.1"
^DD(424.1,.07,1,1,0)="^^TRIGGER^424^.09"
^DD(424.1,.07,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(424.1,.07,1,1,89.2) S Y(101)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,9)_"":"",2),$C(59),1) S D0=I(0,0) S DIU=X K Y S X=DIV S X=1 X ^DD(424.1,.07,1,1,1.4)"
^DD(424.1,.07,1,1,1.4)="S DIH=$S($D(^PRC(424,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,9)=DIV,DIH=424,DIG=.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(424.1,.07,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(424.1,.07,1,1,89.2) S Y(101)=$S($D(^PRC(424,D0,0)):^(0),1:"""") S X=$P($P(Y(102),$C(59)_$P(Y(101),U,9)_"":"",2),$C(59),1) S D0=I(0,0) S DIU=X K Y S X="""" X ^DD(424.1,.07,1,1,2.4)"
^DD(424.1,.07,1,1,2.4)="S DIH=$S($D(^PRC(424,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,9)=DIV,DIH=424,DIG=.09 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(424.1,.07,1,1,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRC(424.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^PRC(424,+D0,0)) D0=-1 S DIV(0)=D0 S Y(102)=$C(59)_$S($D(^DD(424,.09,0)):$P(^(0),U,3),1:"""")"
^DD(424.1,.07,1,1,"%D",0)="^^3^3^2920225^"
^DD(424.1,.07,1,1,"%D",1,0)="    This trigger will update the entry in file 424 - 1358 DAILY RECORD"
^DD(424.1,.07,1,1,"%D",2,0)="File. A final detailed daily record will cause the corresponding"
^DD(424.1,.07,1,1,"%D",3,0)="authorization to be marked as completed."
^DD(424.1,.07,1,1,"CREATE VALUE")="S X=1"
^DD(424.1,.07,1,1,"DELETE VALUE")="@"
^DD(424.1,.07,1,1,"DT")="2920225"
^DD(424.1,.07,1,1,"FIELD")=".02:.09"
^DD(424.1,.07,21,0)="^^2^2^2910909^"
^DD(424.1,.07,21,1,0)="When flagged as a final bill against an authorization, posting of additional"
^DD(424.1,.07,21,2,0)="bills will be prohibited."
^DD(424.1,.07,"DT")="2920225"
^DD(424.1,.08,0)="REFERENCE^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X"
^DD(424.1,.08,1,0)="^.1"
^DD(424.1,.08,1,1,0)="424.1^D"
^DD(424.1,.08,1,1,1)="S ^PRC(424.1,""D"",$E(X,1,30),DA)="""""
^DD(424.1,.08,1,1,2)="K ^PRC(424.1,""D"",$E(X,1,30),DA)"
^DD(424.1,.08,1,1,"%D",0)="^^1^1^2930719^"
^DD(424.1,.08,1,1,"%D",1,0)="This is cross-reference on the REFERENCE field which is a free text."
^DD(424.1,.08,1,1,"DT")="2911024"
^DD(424.1,.08,3)="Answer must be 3-15 characters in length."
^DD(424.1,.08,21,0)="^^3^3^2911024^"
^DD(424.1,.08,21,1,0)="An optional field to further identify why payment is authorized."
^DD(424.1,.08,21,2,0)="e.g.  If authorization is set for an ambulance, this field could be used"
^DD(424.1,.08,21,3,0)="to identify the patient transported."
^DD(424.1,.08,"DT")="2911024"
^DD(424.1,.09,0)="CERTIFY FOR LIQUIDATION^S^Y:YES;N:NO;^0;9^Q"
^DD(424.1,.09,1,0)="^.1"
^DD(424.1,.09,1,1,0)="424.1^AC"
^DD(424.1,.09,1,1,1)="S ^PRC(424.1,""AC"",$E(X,1,30),DA)="""""
^DD(424.1,.09,1,1,2)="K ^PRC(424.1,""AC"",$E(X,1,30),DA)"
^DD(424.1,.09,1,1,"%D",0)="^^2^2^2930719^"
^DD(424.1,.09,1,1,"%D",1,0)="This is cross-reference on CERTIFY FOR LIQUIDATION field."
^DD(424.1,.09,1,1,"%D",2,0)="The cross-reference based on a set of codes. ('Y' for YES. 'N' for NO.)"
^DD(424.1,.09,1,1,"DT")="2911024"
^DD(424.1,.09,3)="If you have received and certified a bill for this entry and Fiscal can pay this bill enter yes"
^DD(424.1,.09,21,0)="^^2^2^2911024^"
^DD(424.1,.09,21,1,0)="When set to YES this field will flag Fiscal that a bill is ready to be paid"
^DD(424.1,.09,21,2,0)="for this entry."
^DD(424.1,.09,"DT")="2911024"
^DD(424.1,.1,0)="LAST EDITED BY^P200'^VA(200,^0;10^Q"
^DD(424.1,.1,21,0)="^^1^1^2920817^"
^DD(424.1,.1,21,1,0)="     This field is used to store the last user who edited this record."
^DD(424.1,.1,"DT")="2920213"
^DD(424.1,1.1,0)="DESCRIPTION^F^^1;1^K:$L(X)>245!($L(X)<3) X"
^DD(424.1,1.1,3)="Answer must be 3-245 characters in length."
^DD(424.1,1.1,21,0)="^^1^1^2920110^^"
^DD(424.1,1.1,21,1,0)="Used for comments/remarks for each authorization"
^DD(424.1,1.1,"DT")="2910909"
^DD(424.1,"B","AUTHORIZATION AMOUNT",.03)=""
^DD(424.1,"B","AUTHORIZATION POINTER",.02)=""
^DD(424.1,"B","BILL NUMBER",.01)=""
^DD(424.1,"B","CERTIFY FOR LIQUIDATION",.09)=""
^DD(424.1,"B","DATE/TIME",.04)=""
^DD(424.1,"B","DESCRIPTION",1.1)=""
^DD(424.1,"B","FINAL BILL",.07)=""
^DD(424.1,"B","LAST EDITED BY",.1)=""
^DD(424.1,"B","RECORD TYPE",.011)=""
^DD(424.1,"B","REFERENCE",.08)=""
^DD(424.1,"B","USER",.05)=""
^DD(424.1,"B","VENDOR INVOICE NUMBER",.06)=""
^DD(424.1,"GL",0,1,.01)=""
^DD(424.1,"GL",0,2,.02)=""
^DD(424.1,"GL",0,3,.03)=""
^DD(424.1,"GL",0,4,.04)=""
^DD(424.1,"GL",0,5,.05)=""
^DD(424.1,"GL",0,6,.06)=""
^DD(424.1,"GL",0,7,.07)=""
^DD(424.1,"GL",0,8,.08)=""
^DD(424.1,"GL",0,9,.09)=""
^DD(424.1,"GL",0,10,.1)=""
^DD(424.1,"GL",0,11,.011)=""
^DD(424.1,"GL",1,1,1.1)=""
^DD(424.1,"IX",.01)=""
^DD(424.1,"IX",.011)=""
^DD(424.1,"IX",.02)=""
^DD(424.1,"IX",.07)=""
^DD(424.1,"IX",.08)=""
^DD(424.1,"IX",.09)=""
^DD(424.1,"RQ",.01)=""
^DD(424.1,"RQ",.011)=""
^DD(424.1,"RQ",.02)=""
^DD(430,0)="FIELD^^266^170"
^DD(430,0,"DDA")="N"
^DD(430,0,"DT")="2950713"
^DD(430,0,"ID","WR1")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCA(430.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(430.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(430,0,"ID","WR2")="W ""   "",$E($P(^(0),U,10),4,5)_""-""_$E($P(^(0),U,10),6,7)_""-""_$E($P(^(0),U,10),2,3)"
^DD(430,0,"ID","WR3")="S %=$P(^(0),U,9) W:%="""" ""NO DEBTOR NAME !  "" I %]"""",$D(^RCD(340,%,0)) S %=U_$P($P(^RCD(340,%,0),""^""),"";"",2)_+^(0)_"",0)"",%=$S($D(@%):$P(@%,U,1),1:"""") W ""  "",% K %"
^DD(430,0,"ID","WR4")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCA(430.3,+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(430.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(430,0,"ID","WR5")="Q:'$D(^(7))  S %=$P(^(7),U,1)+$P(^(7),U,2)+$P(^(7),U,3)+$P(^(7),U,4)+$P(^(7),U,5) W ""$"",$J(%,0,2) K %"
^DD(430,0,"IX","AC",430,8)=""
^DD(430,0,"IX","ACTDT",430,60)=""
^DD(430,0,"IX","AD",430,64)=""
^DD(430,0,"IX","AE",430,10)=""
^DD(430,0,"IX","AF",430,14)=""
^DD(430,0,"IX","AG",430,60)=""
^DD(430,0,"IX","AH",430,64)=""
^DD(430,0,"IX","AI",430,68.2)=""
^DD(430,0,"IX","AJ",430.01,3)=""
^DD(430,0,"IX","AJK1A",430,10)=""
^DD(430,0,"IX","AK",430,60)=""
^DD(430,0,"IX","AL",430,68.3)=""
^DD(430,0,"IX","AM",430,68.4)=""
^DD(430,0,"IX","AS1",430,9)=""
^DD(430,0,"IX","AS2",430,8)=""
^DD(430,0,"IX","ASDT1",430,8)=""
^DD(430,0,"IX","ASDT2",430,14)=""
^DD(430,0,"IX","ATD",430,9)=""
^DD(430,0,"IX","B",430,.01)=""
^DD(430,0,"IX","C",430,9)=""
^DD(430,0,"IX","D",430,.01)=""
^DD(430,0,"IX","E",430,7)=""
^DD(430,0,"IX","FMS",430,266)=""
^DD(430,0,"IX","TREF",430,142)=""
^DD(430,0,"NM","ACCOUNTS RECEIVABLE")=""
^DD(430,0,"PT",341,5.01)=""
^DD(430,0,"PT",344.01,.03)=""
^DD(430,0,"PT",344.491,.07)=""
^DD(430,0,"PT",347,.07)=""
^DD(430,0,"PT",348.41,.01)=""
^DD(430,0,"PT",433,.03)=""
^DD(430,0,"VR")="4.5"
^DD(430,.01,0)="BILL NO.^RFXI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$P(X,""-"",1)'?3N!'($P(X,""-"",2)?1UN1UN4.6UN) X"
^DD(430,.01,.1)="ACCOUNTS RECEIVABLE BILL NUMBER"
^DD(430,.01,1,0)="^.1"
^DD(430,.01,1,1,0)="430^B"
^DD(430,.01,1,1,1)="S ^PRCA(430,""B"",$E(X,1,30),DA)="""""
^DD(430,.01,1,1,2)="K ^PRCA(430,""B"",$E(X,1,30),DA)"
^DD(430,.01,1,1,3)="Needed for look-up of Site-Bill Number"
^DD(430,.01,1,1,"%D",0)="^^2^2^2931220^"
^DD(430,.01,1,1,"%D",1,0)="This cross-reference is used for file look-up and sorting"
^DD(430,.01,1,1,"%D",2,0)="by Accounts Receivable Bill No."
^DD(430,.01,1,2,0)="430^D^MUMPS"
^DD(430,.01,1,2,1)="S ^PRCA(430,""D"",$P(X,""-"",2),DA)="""""
^DD(430,.01,1,2,2)="K ^PRCA(430,""D"",$P(X,""-"",2),DA)"
^DD(430,.01,1,2,3)="Needed for look-up by bill number"
^DD(430,.01,1,2,"%D",0)="^^3^3^2931220^"
^DD(430,.01,1,2,"%D",1,0)="This cross reference is used for look-up and sorts on the"
^DD(430,.01,1,2,"%D",2,0)="Account Receivable 8 digit bill number. (without the"
^DD(430,.01,1,2,"%D",3,0)="station number.)"
^DD(430,.01,3)="Enter the 7-digit Bill Number, preceded by station number if multi-divisional (EX: 662-4K00001)."
^DD(430,.01,7.5)="D LOOKUP^RCBEUBI1"
^DD(430,.01,"AUDIT")=""
^DD(430,.01,"DT")="2970117"
^DD(430,.11,0)="LAST INTEREST CHARGE DATE^D^^.1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(430,.11,3)="This field is internally populated by AR.  This field contains the date the bill was last charged interest."
^DD(430,.11,21,0)="^^1^1^3000419^"
^DD(430,.11,21,1,0)="This field stores the last date interest was charged to this bill."
^DD(430,.11,"DT")="3000419"
^DD(430,.12,0)="LAST ADMIN CHARGE DATE^D^^.1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(430,.12,3)="This field is internally populated by AR.  This field contains the date the bill was last charged an administrative fee."
^DD(430,.12,21,0)="^.001^2^2^3000808^^"
^DD(430,.12,21,1,0)="This field stores the last date an administrative charge was applied"
^DD(430,.12,21,2,0)="to this bill."
^DD(430,.12,"DT")="3000419"
^DD(430,.13,0)="LAST PENALTY CHARGE DATE^D^^.1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(430,.13,3)="This field is internally populated by AR.  This field contains the date the bill was last charged a penalty fee."
^DD(430,.13,21,0)="^^1^1^3000419^"
^DD(430,.13,21,1,0)="This field stores the last date penalty charges were added to this bill."
^DD(430,.13,"DT")="3000419"
^DD(430,1,0)="FISCAL YEAR^430.01IA^^2;0"
^DD(430,1,21,0)="^^3^3^2930909^^^^"
^DD(430,1,21,1,0)="A single bill can have activity that spreads over more than one"
^DD(430,1,21,2,0)="fiscal year.  This multiple field holds a record of each year's"
^DD(430,1,21,3,0)="appropriation symbol, PAT reference number, original amount, etc."
^DD(430,1,"DT")="2930909"
^DD(430,2,0)="CATEGORY^R*P430.2'X^PRCA(430.2,^0;2^S DIC(""S"")=""I $P(^(0),U,7)'=33,$P(^(0),U,7)""_$S($D(PRCABT):$P("">14&($P(^(0),U,7)<17):=17:>4&($P(^(0),U,7)<15)"","":"",PRCABT),1:"">4"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(430,2,.1)=""
^DD(430,2,1,0)="^.1^^0"
^DD(430,2,3)="Enter the category for this bill."
^DD(430,2,12)="TYPE OF BILL"
^DD(430,2,12.1)="S DIC(""S"")=""I $P(^(0),U,7)'=33,$P(^(0),U,7)""_$S($D(PRCABT):$P("">14&($P(^(0),U,7)<17):=17:>4&($P(^(0),U,7)<15)"","":"",PRCABT),1:"">4"")"
^DD(430,2,21,0)="^.001^2^2^3040804^^^^"
^DD(430,2,21,1,0)="This is the bill's Category - a pointer to the Category File"
^DD(430,2,21,2,0)="(Means Test, Vendor, Employee, Tort, etc.)."
^DD(430,2,23,0)="^.001^1^1^3040804^^"
^DD(430,2,23,1,0)=" "
^DD(430,2,"DT")="3040708"
^DD(430,3,0)="ORIGINAL AMOUNT^RNJ9,2X^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(430,3,1,0)="^.1"
^DD(430,3,1,1,0)="^^TRIGGER^430^71"
^DD(430,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,7)):^(7),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(430,3,1,1,1.4)"
^DD(430,3,1,1,1.4)="S DIH=$S($D(^PRCA(430,DIV(0),7)):^(7),1:""""),DIV=X S $P(^(7),U,1)=DIV,DIH=430,DIG=71 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(430,3,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,7)):^(7),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIU-X X ^DD(430,3,1,1,2.4)"
^DD(430,3,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)"
^DD(430,3,1,1,2.4)="S DIH=$S($D(^PRCA(430,DIV(0),7)):^(7),1:""""),DIV=X S $P(^(7),U,1)=DIV,DIH=430,DIG=71 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(430,3,1,1,3)="Needed to set the Principal Balance of Bill"
^DD(430,3,1,1,"%D",0)="^^1^1^2930602^^^"
^DD(430,3,1,1,"%D",1,0)="This cross reference triggers the Principal Balance field #71."
^DD(430,3,1,1,"CREATE VALUE")="PRINCIPAL BALANCE+ORIGINAL AMOUNT"
^DD(430,3,1,1,"DELETE VALUE")="PRINCIPAL BALANCE-OLD ORIGINAL AMOUNT"
^DD(430,3,1,1,"DT")="2911007"
^DD(430,3,1,1,"FIELD")="PRINCIPAL BALANCE"
^DD(430,3,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits, Total original amount for this bill."
^DD(430,3,21,0)="^^1^1^2880929^^"
^DD(430,3,21,1,0)="This is the original dollar amount of the bill."
^DD(430,3,"DT")="2911007"
^DD(430,4,0)="GL NO.^RF^^0;4^K:$L(X)>4!($L(X)<4) X"
^DD(430,4,.1)="GENERAL LEDGER NO."
^DD(430,4,3)="Enter the General Ledger No. Must be 4 characters."
^DD(430,4,21,0)="^^1^1^2920430^^^^"
^DD(430,4,21,1,0)="This is the General Ledger Number for the ALD CODE assigned to this bill."
^DD(430,4,"DT")="2870603"
^DD(430,4.5,0)="BILL RESULTING FROM^R*P430.6'OX^PRCA(430.6,^0;5^S DIC(""S"")=""S Z0=$P(^PRCA(430,DA,0),U,2) Q:+Z0'>0  S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""""X"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(430,4.5,2)="S Y(0)=Y I $D(^PRCA(430.6,+Y,0)) S Y=$P(^PRCA(430.6,+Y,0),U,2)"
^DD(430,4.5,2.1)="I $D(^PRCA(430.6,+Y,0)) S Y=$P(^PRCA(430.6,+Y,0),U,2)"
^DD(430,4.5,3)="We'll put this data on the follow-up letters. Enter the reason for the bill. Notify Supervisor if correct choice is not available."
^DD(430,4.5,12)="CLASSIFY WITH TYPE"
^DD(430,4.5,12.1)="S DIC(""S"")=""S Z0=$P(^PRCA(430,DA,0),U,2) Q:+Z0'>0  S Z0=$P(^PRCA(430.2,Z0,0),U,6) I ($P(^PRCA(430.6,Y,0),U,4)[Z0)!($P(^(0),U,4)[""""X"""")"""
^DD(430,4.5,21,0)="^^6^6^2931014^^^^"
^DD(430,4.5,21,1,0)="The cause of the debt.  This field points to the AR Debt List File which"
^DD(430,4.5,21,2,0)="contains brief statements describing the source of the bills that are"
^DD(430,4.5,21,3,0)="used on the debt collection letters."
^DD(430,4.5,21,4,0)="  "
^DD(430,4.5,21,5,0)="The type of entry selected must be compatible with the bill's category"
^DD(430,4.5,21,6,0)="type."
^DD(430,4.5,22)=""
^DD(430,4.5,"DT")="2940113"
^DD(430,7,0)="PATIENT^RP2'^DPT(^0;7^Q"
^DD(430,7,1,0)="^.1^^-1"
^DD(430,7,1,1,0)="430^E"
^DD(430,7,1,1,1)="I $P(^PRCA(430,DA,0),""^"",2),$P(^PRCA(430.2,+$P(^(0),""^"",2),0),""^"",6)[""T"" S ^PRCA(430,""E"",X,DA)="""""
^DD(430,7,1,1,2)="K ^PRCA(430,""E"",X,DA)"
^DD(430,7,1,1,3)="Needed to look up third party bills by patient"
^DD(430,7,1,1,"%D",0)="^^2^2^2930602^^"
^DD(430,7,1,1,"%D",1,0)="This cross reference is set for the Third Party type "
^DD(430,7,1,1,"%D",2,0)="category of bills."
^DD(430,7,1,1,"DT")="2920312"
^DD(430,7,3)="Enter a Patient from the Patient File. Adding new patients is not allowed."
^DD(430,7,21,0)="^^2^2^2910516^^^"
^DD(430,7,21,1,0)="This is a pointer to the Patient File. Adding new patients is NOT"
^DD(430,7,21,2,0)="ALLOWED through this option."
^DD(430,7,"DT")="2930602"
^DD(430,8,0)="CURRENT STATUS^R*P430.3'X^PRCA(430.3,^0;8^D CKSTAT^PRCAUT3"
^DD(430,8,1,0)="^.1"
^DD(430,8,1,1,0)="430^AC"
^DD(430,8,1,1,1)="S ^PRCA(430,""AC"",$E(X,1,30),DA)="""""
^DD(430,8,1,1,2)="K ^PRCA(430,""AC"",$E(X,1,30),DA)"
^DD(430,8,1,1,3)="Needed to look-up bills by status"
^DD(430,8,1,1,"%D",0)="^^2^2^2930602^^"
^DD(430,8,1,1,"%D",1,0)="This cross-reference is needed to find bills by status.  This"
^DD(430,8,1,1,"%D",2,0)="cross-reference is used extensively by reports and options."
^DD(430,8,1,1,"DT")="2930511"
^DD(430,8,1,2,0)="430^AS2^MUMPS"
^DD(430,8,1,2,1)="I $P(^PRCA(430,DA,0),""^"",9) S ^PRCA(430,""AS"",$P(^PRCA(430,DA,0),""^"",9),X,DA)="""""
^DD(430,8,1,2,2)="I $P(^PRCA(430,DA,0),""^"",9) K ^PRCA(430,""AS"",$P(^PRCA(430,DA,0),""^"",9),X,DA)"
^DD(430,8,1,2,3)="Needed to look-up bills by status for a specific debtor"
^DD(430,8,1,2,"%D",0)="^^2^2^2930603^^"
^DD(430,8,1,2,"%D",1,0)="This cross-reference allows rapid look-up of bills by status for a"
^DD(430,8,1,2,"%D",2,0)="specific debtor."
^DD(430,8,1,2,"DT")="2930511"
^DD(430,8,1,3,0)="^^TRIGGER^430^60"
^DD(430,8,1,3,1)="X ^DD(430,8,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^PRCA(430,D0,6)):^(6),1:"""") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X=DIV D NOW^%DTC S X=% X ^DD(430,8,1,3,1.4)"
^DD(430,8,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=0 I "",112,102,""[("",""_$P($G(^PRCA(430.3,+$P(^PRCA(430,D0,0),""^"",8),0)),""^"",3)_"",""),$P($G(^PRCA(430,D0,6)),""^"",21)="""" S X=1"
^DD(430,8,1,3,1.4)="S DIH=$S($D(^PRCA(430,DIV(0),6)):^(6),1:""""),DIV=X S $P(^(6),U,21)=DIV,DIH=430,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(430,8,1,3,2)="Q"
^DD(430,8,1,3,3)="Needed to create a new 'activity' for a debtor"
^DD(430,8,1,3,69.2)="S Y(3)=$S($D(^PRCA(430,D0,6)):^(6),1:"""") S X=$S('$D(^PRCA(430.3,+Y(0),0)):"""",1:$P(^(0),U,1))=""OPEN"",Y(1)=X S X=$S('$D(^PRCA(430.3,+Y(0),0)):"""",1:$P(^(0),U,1))"
^DD(430,8,1,3,"%D",0)="^^3^3^2961112^^"
^DD(430,8,1,3,"%D",1,0)="This cross-reference triggers the Date Account Activated field.  When"
^DD(430,8,1,3,"%D",2,0)="a bill is made Active or Open for a patient, new activity needs to be"
^DD(430,8,1,3,"%D",3,0)="logged so that it may appear on the next patient statement."
^DD(430,8,1,3,"CREATE CONDITION")="S X=0 I "",112,102,""[("",""_$P($G(^PRCA(430.3,+$P(^PRCA(430,D0,0),""^"",8),0)),""^"",3)_"",""),$P($G(^PRCA(430,D0,6)),""^"",21)="""" S X=1"
^DD(430,8,1,3,"CREATE VALUE")="D NOW^%DTC S X=%"
^DD(430,8,1,3,"DELETE VALUE")="NO EFFECT"
^DD(430,8,1,3,"DT")="2931115"
^DD(430,8,1,3,"FIELD")="DATE ACCOUNT ACTIVATED"
^DD(430,8,1,4,0)="^^TRIGGER^430^14"
^DD(430,8,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRCA(430,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(430,8,1,4,1.4)"
^DD(430,8,1,4,1.4)="S DIH=$S($D(^PRCA(430,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=430,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(430,8,1,4,2)="Q"
^DD(430,8,1,4,"%D",0)="^^2^2^2961112^"
^DD(430,8,1,4,"%D",1,0)="This trigger will set the DATE STATUS UPDATED to todays date whenever"
^DD(430,8,1,4,"%D",2,0)="the STATUS of a bill changes."
^DD(430,8,1,4,"CREATE VALUE")="S X=DT"
^DD(430,8,1,4,"DELETE VALUE")="NO EFFECT"
^DD(430,8,1,4,"DT")="2961112"
^DD(430,8,1,4,"FIELD")="DATE STAT"
^DD(430,8,1,5,0)="430^ASDT1^MUMPS"
^DD(430,8,1,5,1)="I $P(^PRCA(430,DA,0),U,14) S ^PRCA(430,""ASDT"",X,$P($P(^PRCA(430,DA,0),U,14),"".""),DA)="""""
^DD(430,8,1,5,2)="I $P(^PRCA(430,DA,0),U,14) K ^PRCA(430,""ASDT"",X,$P($P(^PRCA(430,DA,0),U,14),"".""),DA)"
^DD(430,8,1,5,"%D",0)="^^2^2^2961112^"
^DD(430,8,1,5,"%D",1,0)="This cross reference is used to sort bills by the status and the date"
^DD(430,8,1,5,"%D",2,0)="the status was last updated."
^DD(430,8,1,5,"DT")="2961112"
^DD(430,8,3)="Enter the current status of this bill."
^DD(430,8,12)="CURRENT BILL STATUS"
^DD(430,8,12.1)="S Z1=100,Z2=199 S:$D(PRCASV(""STATUS"")) Z1=199,Z2=300 S DIC(""S"")=""I ($P(^PRCA(430.3,Y,0),U,3)>Z1)&($P(^(0),U,3)<Z2)"" S:$D(PRCAOLD) DIC(""S"")=""I $P(^(0),U,5)=1"""
^DD(430,8,"DT")="2961112"
^DD(430,9,0)="DEBTOR^R*P340X^RCD(340,^0;9^D EN6^PRCABIL D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(430,9,1,0)="^.1"
^DD(430,9,1,1,0)="430^C"
^DD(430,9,1,1,1)="S ^PRCA(430,""C"",$E(X,1,30),DA)="""""
^DD(430,9,1,1,2)="K ^PRCA(430,""C"",$E(X,1,30),DA)"
^DD(430,9,1,1,3)="Needed to look-up bills by Debtor"
^DD(430,9,1,1,"%D",0)="^^2^2^2930602^"
^DD(430,9,1,1,"%D",1,0)="This cross-reference allows user look-up of bills belonging to a"
^DD(430,9,1,1,"%D",2,0)="specific debtor."
^DD(430,9,1,1,"DT")="2930511"
^DD(430,9,1,2,0)="430^AS1^MUMPS"
^DD(430,9,1,2,1)="I $P(^PRCA(430,DA,0),""^"",8) S ^PRCA(430,""AS"",X,$P(^PRCA(430,DA,0),""^"",8),DA)="""""
^DD(430,9,1,2,2)="I $P(^PRCA(430,DA,0),""^"",8) K ^PRCA(430,""AS"",X,$P(^PRCA(430,DA,0),""^"",8),DA)"
^DD(430,9,1,2,3)="Needed to look-up bills by status for a specific debtor"
^DD(430,9,1,2,"%D",0)="^^2^2^2930602^"
^DD(430,9,1,2,"%D",1,0)="This cross-reference allows rapid look-up of bills by status for a"
^DD(430,9,1,2,"%D",2,0)="specific debtor."
^DD(430,9,1,2,"DT")="2930511"
^DD(430,9,1,3,0)="430^ATD^MUMPS"
^DD(430,9,1,3,1)="D UPATDS^PRCAUTL I $D(^RCD(340,X,0)),$P(^(0),""^"")["";DPT("",$D(^PRCA(430,DA,6)),$P(^(6),""^"",21) S ^PRCA(430,""ATD"",X,$P(^PRCA(430,DA,6),""^"",21),DA)="""""
^DD(430,9,1,3,2)="D UPATDS^PRCAUTL I $D(^RCD(340,X,0)),$P(^(0),""^"")["";DPT("",$D(^PRCA(430,DA,6)),$P(^(6),""^"",21) S ^PRCA(430,""ATD"",X,$P(^PRCA(430,DA,6),""^"",21),DA)="""""
^DD(430,9,1,3,3)="Needed to update activity cross-reference when debtor edited"
^DD(430,9,1,3,"%D",0)="^^3^3^2930602^"
^DD(430,9,1,3,"%D",1,0)="This cross-reference is not actively used and only exists to update the"
^DD(430,9,1,3,"%D",2,0)="activity for a debtor in the event the debtor field is ever changed,"
^DD(430,9,1,3,"%D",3,0)="which should never happen."
^DD(430,9,1,3,"DT")="2930511"
^DD(430,9,12)="DEBTOR"
^DD(430,9,12.1)="D EN6^PRCABIL"
^DD(430,9,21,0)="^^4^4^2930810^^^^"
^DD(430,9,21,1,0)="This field points to the Debtor File, which in turn is a variable"
^DD(430,9,21,2,0)="pointer to other files. This allows automatic look-up of debtors"
^DD(430,9,21,3,0)="based on the category of the bill.  Adding new entries to the other"
^DD(430,9,21,4,0)="files may not be allowed."
^DD(430,9,"DT")="2930511"
^DD(430,10,0)="DATE BILL PREPARED^RDX^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1!(X>DT) X"
^DD(430,10,1,0)="^.1"
^DD(430,10,1,1,0)="430^AE^MUMPS"
^DD(430,10,1,1,1)="D AR^RCXVDEQ"
^DD(430,10,1,1,2)="Q"
^DD(430,10,1,1,"%D",0)="^^2^2^3030812^"
^DD(430,10,1,1,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(430,10,1,1,"%D",2,0)="file for transmission to the ARC."
^DD(430,10,1,1,"DT")="3030812"
^DD(430,10,1,580000,0)="430^AJK1A^MUMPS"
^DD(430,10,1,580000,1)="I $P(^PRCA(430,+DA,0),""^"",8)=16 S ^PRCA(430,""AJK1"",X,DA)="""""
^DD(430,10,1,580000,2)="K ^PRCA(430,""AJK1"",X,DA)"
^DD(430,10,1,580000,"%D",0)="^.101^2^2^3030812^^"
^DD(430,10,1,580000,"%D",1,0)="Maintains cross reference set on CURRENT STATUS field of active bills"
^DD(430,10,1,580000,"%D",2,0)="referenced by date prepared."
^DD(430,10,1,580000,"DT")="2961220"
^DD(430,10,3)="Enter the date on which the bill was established."
^DD(430,10,21,0)="^^1^1^2880929^^^"
^DD(430,10,21,1,0)="The date the bill was prepared. Time is not allowed."
^DD(430,10,"DT")="3030812"
^DD(430,11,0)="CURRENT BALANCE^CJ10,2^^ ; ^S Y(430,11,1)=$S($D(^PRCA(430,D0,7)):^(7),1:"""") S X=$P(Y(430,11,1),U,1)+$P(Y(430,11,1),U,2)+$P(Y(430,11,1),U,3)+$P(Y(430,11,1),U,4)+$P(Y(430,11,1),U,5) S X=$J(X,0,2)"
^DD(430,11,9)="^"
^DD(430,11,9.01)="430^75;430^74;430^73;430^72;430^71"
^DD(430,11,9.1)="#71+#72+#73+#74+#75"
^DD(430,11,21,0)="^^1^1^2930608^^^^"
^DD(430,11,21,1,0)="This field computes the current balance of the account."
^DD(430,12,0)="SITE^P4'^DIC(4,^0;12^Q"
^DD(430,12,1,0)="^.1^^0"
^DD(430,12,3)="Enter Station Number."
^DD(430,12,21,0)="^^2^2^2880815^^"
^DD(430,12,21,1,0)="This is a pointer to the Admin. Activity Site Parameter File."
^DD(430,12,21,2,0)="Adding new entries is allowed."
^DD(430,12,"DT")="2930214"
^DD(430,13,0)="AGENT CASHIER^P342.1'^RC(342.1,^0;13^Q"
^DD(430,13,.1)="AGENT CASHIER ADDRESS"
^DD(430,13,3)=""
^DD(430,13,21,0)="^^2^2^2931014^^^^"
^DD(430,13,21,1,0)="This field is an inactive field and used to point to the AR SITE"
^DD(430,13,21,2,0)="PARAMETER file (430.5) in AR v3.7."
^DD(430,13,"DT")="2930222"
^DD(430,13.1,0)="ACCOUNT RECEIVABLE SECTION^*P342.1'^RC(342.1,^0;6^S DIC(""S"")=""I $P(^(0),""""^"""",2)=4"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(430,13.1,3)=""
^DD(430,13.1,12)="SELECT ONLY AR SECTION"
^DD(430,13.1,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=4"""
^DD(430,13.1,21,0)="^^2^2^2930214^^^^"
^DD(430,13.1,21,1,0)="This field is inactive and use to point to the AR SITE PARAMETER "
^DD(430,13.1,21,2,0)="file (430.5) in AR v3.7."
^DD(430,13.1,"DT")="2930222"
^DD(430,14,0)="DATE STATUS UPDATED^D^^0;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,14,1,0)="^.1"
^DD(430,14,1,1,0)="430^ASDT2^MUMPS"
^DD(430,14,1,1,1)="I $P(^PRCA(430,DA,0),U,8) S ^PRCA(430,""ASDT"",+$P(^PRCA(430,DA,0),U,8),X,DA)="""""
^DD(430,14,1,1,2)="I $P(^PRCA(430,DA,0),U,8) K ^PRCA(430,""ASDT"",+$P(^PRCA(430,DA,0),U,8),X,DA)"
^DD(430,14,1,1,"%D",0)="^^2^2^2961112^"
^DD(430,14,1,1,"%D",1,0)="This cross reference is used to sort bills by the status and the date"
^DD(430,14,1,1,"%D",2,0)="the status was last updated."
^DD(430,14,1,1,"DT")="2961112"
^DD(430,14,1,2,0)="430^AF^MUMPS"
^DD(430,14,1,2,1)="D AR^RCXVDEQ"
^DD(430,14,1,2,2)="Q"
^DD(430,14,1,2,"%D",0)="^^2^2^3030812^"
^DD(430,14,1,2,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(430,14,1,2,"%D",2,0)="file for transmission to the ARC."
^DD(430,14,1,2,"DT")="3030812"
^DD(430,14,3)="Enter the date the Status of this bill was updated. Time of day is not allowed."
^DD(430,14,5,1,0)="430^8^4"
^DD(430,14,"DT")="3030812"
^DD(430,15,0)="STATUS REMARK^F^^0;15^K:$L(X)>45!($L(X)<3) X"
^DD(430,15,.1)="STATUS CHANGE REMARKS"
^DD(430,15,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(430,15,21,0)="^^2^2^2881007^^^^"
^DD(430,15,21,1,0)="An optional field that holds a brief remark regarding the status, reason for"
^DD(430,15,21,2,0)="change in status, etc. 3-45 characters. "
^DD(430,15,"DT")="2881006"
^DD(430,15.1,0)="TYPE OF CARE^R*P430.2'^PRCA(430.2,^0;16^S DIC(""S"")=""I $P(^(0),U,7)<4"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(430,15.1,3)="Enter a 'Type of Care' from the AR category File."
^DD(430,15.1,12)="CHOOSE TYPE OF CARE"
^DD(430,15.1,12.1)="S DIC(""S"")=""I $P(^(0),U,7)<4"""
^DD(430,15.1,21,0)="^^3^3^2910516^^^^"
^DD(430,15.1,21,1,0)="This is a pointer to the AR category file. This entry should be"
^DD(430,15.1,21,2,0)=" 'NURSING HOME CARE', 'OUTPATIENT CARE' or 'HOSPITAL CARE'.  Adding"
^DD(430,15.1,21,3,0)="new entries is not allowed."
^DD(430,15.1,"DT")="2880615"
^DD(430,16,0)="DATE CALM DONE^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,16,1,0)="^.1^^0"
^DD(430,16,3)="Enter the date the PAT REF # was assigned and the CALM Code sheet was done."
^DD(430,16,21,0)="^^2^2^2880815^"
^DD(430,16,21,1,0)="The date the PAT reference number was assigned and the CALM code sheet"
^DD(430,16,21,2,0)="was done."
^DD(430,16,"DT")="2880617"
^DD(430,17,0)="STATUS UPDATED BY^P200'^VA(200,^0;17^Q"
^DD(430,17,3)="Enter the name of the person making a change in this bill's status."
^DD(430,17,21,0)="^^2^2^2920211^^^^"
^DD(430,17,21,1,0)="This is a pointer to the New Person File. It extracts the name of the person"
^DD(430,17,21,2,0)="making a change to the bill's status. Adding new entries is not allowed."
^DD(430,17,"DT")="2920211"
^DD(430,18,0)="APPROPRIATION SYMBOL^F^^0;18^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<7) X"
^DD(430,18,1,0)="^.1^^0"
^DD(430,18,3)="Enter the Appropriation Symbol, 7-10 characters."
^DD(430,18,21,0)="^^2^2^2880815^"
^DD(430,18,21,1,0)="This is a free-text field holding the appropriation symbol. 7-10"
^DD(430,18,21,2,0)="characters."
^DD(430,18,"DT")="2880331"
^DD(430,19,0)="SECONDARY INSURANCE CARRIER^P36'^DIC(36,^0;19^Q"
^DD(430,19,3)="Enter the insured's secondary insurance carrier."
^DD(430,19,21,0)="^^2^2^2880815^^"
^DD(430,19,21,1,0)="This is a pointer to the Insurance Company File. Adding new entries"
^DD(430,19,21,2,0)="is not allowed."
^DD(430,19,"DT")="2880531"
^DD(430,19.1,0)="TERTIARY INSURANCE CARRIER^P36'^DIC(36,^0;20^Q"
^DD(430,19.1,3)="Enter the insured's tertiary insurance carrier."
^DD(430,19.1,21,0)="^^2^2^2880815^"
^DD(430,19.1,21,1,0)="This is a pointer to the Insurance Company File. Adding new entries is"
^DD(430,19.1,21,2,0)="not allowed."
^DD(430,19.1,"DT")="2880531"
^DD(430,20.1,0)="SEGMENT^NJ3,0^^0;21^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(430,20.1,3)="Type a Number between 0 and 500, 0 Decimal Digits"
^DD(430,20.1,21,0)="^^1^1^2880825^^^"
^DD(430,20.1,21,1,0)="This is the number of the billing category's AMIS reporting segment."
^DD(430,20.1,"DT")="2880818"
^DD(430,21,0)="HOLD LETTER DATE^D^^1;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,21,1,0)="^.1^^0"
^DD(430,21,3)="Enter the date a hold was placed on follow-up letters for this account."
^DD(430,21,21,0)="^^1^1^2880825^^^"
^DD(430,21,21,1,0)="This is the date a hold is/was placed on follow-up letters for this account."
^DD(430,21,"DT")="2870720"
^DD(430,22,0)="HOLD LETTER REASON^S^L:PERSONAL LETTER;P:PHONE CALL;V:PERSONAL VISIT;O:OTHERS;^1;2^Q"
^DD(430,22,3)="Enter code. Type '??' for a listing."
^DD(430,22,21,0)="^^2^2^2920804^^^^"
^DD(430,22,21,1,0)="This is the reason a hold was placed on sending follow-up letters."
^DD(430,22,21,2,0)="Select from the list of choices."
^DD(430,22,"DT")="2870630"
^DD(430,23,0)="HOLD LETTER COMMENTS^F^^1;3^K:$L(X)>45!($L(X)<3) X"
^DD(430,23,3)="Enter a comment, 3-45 characters."
^DD(430,23,21,0)="^^2^2^2880825^"
^DD(430,23,21,1,0)="This field allows the user to enter expanded comments on the reason"
^DD(430,23,21,2,0)="for holding follow-up letters."
^DD(430,23,"DT")="2870630"
^DD(430,31,0)="DATE RETURNED TO SERVICE^D^^3;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,31,3)="Enter date, time not allowed."
^DD(430,31,21,0)="^^1^1^2880825^"
^DD(430,31,21,1,0)="This is the date a bill was returned to the originating service."
^DD(430,31,"DT")="2880714"
^DD(430,32,0)="RETURNED BY^P200'^VA(200,^3;2^Q"
^DD(430,32,3)="Enter your name: Last,First"
^DD(430,32,21,0)="^^2^2^2931014^^^^"
^DD(430,32,21,1,0)="This is the user from the New Person File who returned the bill to the"
^DD(430,32,21,2,0)="originating service. Adding a new Person is not allowed."
^DD(430,32,"DT")="2920211"
^DD(430,33,0)="AMENDED DATE^D^^3;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,33,3)="Enter date, time not allowed."
^DD(430,33,21,0)="^^1^1^2910516^^"
^DD(430,33,21,1,0)="This is the date this bill was amended."
^DD(430,33,"DT")="2880714"
^DD(430,34,0)="AMENDED BY^P200'^VA(200,^3;4^Q"
^DD(430,34,3)="Enter your name: Last,First."
^DD(430,34,21,0)="^^2^2^2920211^^^"
^DD(430,34,21,1,0)="This is the user from the New Person File who amended this bill."
^DD(430,34,21,2,0)="Adding a new Person is not allowed."
^DD(430,34,"DT")="2920211"
^DD(430,35,0)="AMENDED AMOUNT^NJ9,2^^3;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(430,35,3)="Enter a dollar amount by which the bill should be increased or decreased:  -999999.99 thru 999999.99.  This is the dollar amount by which the bill should be increased or decreased NOT THE  NEW AMOUNT."
^DD(430,35,21,0)="^^2^2^2880825^"
^DD(430,35,21,1,0)="This is the dollar value of the amendment. It can be a positive or"
^DD(430,35,21,2,0)="negative figure."
^DD(430,35,"DT")="2880714"
^DD(430,36,0)="FISCAL COMMENTS (RETURN)^F^^3;6^K:$L(X)>100!($L(X)<3) X"
^DD(430,36,3)="ANSWER MUST BE 3-100 CHARACTERS IN LENGTH"
^DD(430,36,21,0)="^^1^1^2930601^^^"
^DD(430,36,21,1,0)="This text field holds Fiscal service comments regarding the return of a bill."
^DD(430,36,"DT")="2881104"
^DD(430,37,0)="SERVICE COMMENTS (AMEND)^F^^3;7^K:$L(X)>100!($L(X)<3) X"
^DD(430,37,3)="ANSWER MUST BE 3-100 CHARACTERS IN LENGTH"
^DD(430,37,21,0)="^^2^2^2881104^^"
^DD(430,37,21,1,0)="This text field holds the Service's comments regarding the amendment"
^DD(430,37,21,2,0)="of a bill."
^DD(430,37,"DT")="2881104"
^DD(430,41,0)="REPAYMENT PLAN DATE^D^^4;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,41,3)="Enter the date a repayment plan was established."
^DD(430,41,21,0)="^^1^1^2880825^"
^DD(430,41,21,1,0)="This is the date a repayment plan was established."
^DD(430,41,"DT")="2870814"
^DD(430,42,0)="DAY OF MON. PAYMENT DUE^NJ2,0^^4;2^K:+X'=X!(X>28)!(X<1)!(X?.E1"".""1N.N) X"
^DD(430,42,3)="Type a Number between 1 and 28, 0 Decimal Digits"
^DD(430,42,21,0)="^^2^2^2910606^^^"
^DD(430,42,21,1,0)="This is the day of the month that payments are due according to the"
^DD(430,42,21,2,0)="repayment plan."
^DD(430,42,"DT")="2900525"
^DD(430,43,0)="REPAYMENT AMOUNT DUE^NJ9,2^^4;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(430,43,3)="Enter the monthly amount the debtor will pay in the repayment plan."
^DD(430,43,21,0)="^^2^2^2910516^^"
^DD(430,43,21,1,0)="This is the monthly payment amount agreed upon in the repayment"
^DD(430,43,21,2,0)="plan."
^DD(430,43,"DT")="2870814"
^DD(430,44,0)="NUMBER OF PAYMENTS^NJ2,0^^4;4^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(430,44,3)="Enter the number of payments in the repayment plan. Type a Number between 0 and 60."
^DD(430,44,21,0)="^^1^1^2880825^"
^DD(430,44,21,1,0)="This is the number of payments agreed upon in the repayment plan."
^DD(430,44,"DT")="2870814"
^DD(430,51,0)="REPAYMENT DUE DATES^430.051DA^^5;0"
^DD(430,51,21,0)="^^2^2^2920430^^^^"
^DD(430,51,21,1,0)="This multiple field holds information about each payment received"
^DD(430,51,21,2,0)="during the repayment plan."
^DD(430,60,0)="DATE ACCOUNT ACTIVATED^DX^^6;21^S %DT=""T"",X=""NOW"" D ^%DT S X=Y K:Y<1 X"
^DD(430,60,1,0)="^.1"
^DD(430,60,1,1,0)="430^AK^MUMPS"
^DD(430,60,1,1,1)="I $P($G(^RCD(340,+$P(^PRCA(430,DA,0),""^"",9),0)),""^"")[("";DPT("") S ^PRCA(430,""ATD"",$P(^PRCA(430,DA,0),""^"",9),$E(X,1,30),DA)="""""
^DD(430,60,1,1,2)="I $P(^PRCA(430,DA,0),""^"",9) K ^PRCA(430,""ATD"",$P(^PRCA(430,DA,0),""^"",9),$E(X,1,30),DA)"
^DD(430,60,1,1,3)="Needed to set cross-reference of patient activity"
^DD(430,60,1,1,"%D",0)="^^2^2^2931115^^^^"
^DD(430,60,1,1,"%D",1,0)="This cross-reference is used to track accounts that have been made ACTIVE."
^DD(430,60,1,1,"%D",2,0)="It is used by the patient statement procedures."
^DD(430,60,1,1,"DT")="2931115"
^DD(430,60,1,2,0)="430^ACTDT^MUMPS"
^DD(430,60,1,2,1)="S ^PRCA(430,""ACTDT"",$P(X,"".""),DA)="""""
^DD(430,60,1,2,2)="K ^PRCA(430,""ACTDT"",$P(X,"".""),DA)"
^DD(430,60,1,2,"%D",0)="^^1^1^2970205^"
^DD(430,60,1,2,"%D",1,0)="This cross reference is used to sort bills by the date they are activated."
^DD(430,60,1,2,"DT")="2970205"
^DD(430,60,1,3,0)="430^AG^MUMPS"
^DD(430,60,1,3,1)="D AR^RCXVDEQ"
^DD(430,60,1,3,2)="Q"
^DD(430,60,1,3,"%D",0)="^^2^2^3030812^"
^DD(430,60,1,3,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(430,60,1,3,"%D",2,0)="file for transmission to the ARC."
^DD(430,60,1,3,"DT")="3030812"
^DD(430,60,3)="This sets the original date that the account first became active."
^DD(430,60,5,1,0)="430^8^3"
^DD(430,60,9)="^"
^DD(430,60,"DT")="3030812"
^DD(430,61,0)="LETTER1^D^^6;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(430,61,3)="Enter the date the 1st follow-up letter was sent."
^DD(430,61,21,0)="^^2^2^2880929^"
^DD(430,61,21,1,0)="This is the date the first debt collection letter was"
^DD(430,61,21,2,0)="sent to the debtor."
^DD(430,61,"DT")="2870817"
^DD(430,62,0)="LETTER2^D^^6;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(430,62,3)="Enter the date the 2nd letter was sent."
^DD(430,62,21,0)="^^2^2^2910516^^"
^DD(430,62,21,1,0)="This is the date the second debt collection letter was sent"
^DD(430,62,21,2,0)="to the debtor."
^DD(430,62,"DT")="2870817"
^DD(430,63,0)="LETTER3^D^^6;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(430,63,3)="Enter the date the 3rd letter was sent."
^DD(430,63,21,0)="^^2^2^2930601^^^"
^DD(430,63,21,1,0)="This is the date the third debt collection letter was sent to the"
^DD(430,63,21,2,0)="debtor."
^DD(430,63,"DT")="2870817"
^DD(430,64,0)="REFERRAL DATE^D^^6;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,64,.1)="RC/DOJ REFERRAL DATE"
^DD(430,64,1,0)="^.1"
^DD(430,64,1,1,0)="430^AD"
^DD(430,64,1,1,1)="S ^PRCA(430,""AD"",$E(X,1,30),DA)="""""
^DD(430,64,1,1,2)="K ^PRCA(430,""AD"",$E(X,1,30),DA)"
^DD(430,64,1,1,3)="Needed to look-up bills by referral date"
^DD(430,64,1,1,"%D",0)="^^1^1^2931014^^^"
^DD(430,64,1,1,"%D",1,0)="This cross-reference is used to look-up bills by Referral Date."
^DD(430,64,1,2,0)="430^AH^MUMPS"
^DD(430,64,1,2,1)="D AR^RCXVDEQ"
^DD(430,64,1,2,2)="Q"
^DD(430,64,1,2,"%D",0)="^^2^2^3030812^"
^DD(430,64,1,2,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(430,64,1,2,"%D",2,0)="file for transmission to the ARC."
^DD(430,64,1,2,"DT")="3030812"
^DD(430,64,3)="Enter the date the account was referred to RC/DOJ."
^DD(430,64,21,0)="^^2^2^2980227^^^^"
^DD(430,64,21,1,0)="This is the date the account was referred to the Regional Counsel"
^DD(430,64,21,2,0)="or the Department of Justice for collection."
^DD(430,64,"DT")="3030812"
^DD(430,65,0)="REFERRAL CODE^S^RC:REGIONAL COUNSEL;DOJ:DEPT.OF JUSTICE;DC:REGIONAL COUNSEL;^6;5^Q"
^DD(430,65,.1)="RC/DOJ REFERRAL CODE"
^DD(430,65,3)="Enter 'RC' or 'DOJ'"
^DD(430,65,21,0)="^^1^1^2980227^^^^"
^DD(430,65,21,1,0)="This field indicates where an account was referred to."
^DD(430,65,"DT")="2970930"
^DD(430,66,0)="REFERRAL AMOUNT^NJ10,2^^6;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(430,66,.1)="RC/DOJ REFERRAL AMOUNT"
^DD(430,66,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(430,66,21,0)="^^1^1^2980227^^^^"
^DD(430,66,21,1,0)="This is the account balance that was referred."
^DD(430,66,"DT")="2980423"
^DD(430,67,0)="LAST INT/ADM CHARGE DATE^D^^6;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,67,3)="Enter the last date the monthly interest/administrative cost was charged."
^DD(430,67,21,0)="^^2^2^2930601^^^"
^DD(430,67,21,1,0)="This is the most recent date that Interest/Administrative costs were charged"
^DD(430,67,21,2,0)="to the account."
^DD(430,67,"DT")="2870923"
^DD(430,68,0)="LETTER4^D^^6;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,68,3)="Enter date the 4th letter was sent."
^DD(430,68,21,0)="^^2^2^2931014^^^"
^DD(430,68,21,1,0)="This is the date the fourth debt collection letter was sent to the"
^DD(430,68,21,2,0)="debtor."
^DD(430,68,"DT")="2871014"
^DD(430,68.1,0)="LAST LETTER DATE^D^^6;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,68.1,3)="Enter date of the letter."
^DD(430,68.1,21,0)="^^1^1^2880929^"
^DD(430,68.1,21,1,0)="This is the date of the most recent debt collection letter."
^DD(430,68.1,"DT")="2871202"
^DD(430,68.2,0)="RE-REFERRAL DATE^D^^6;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,68.2,1,0)="^.1"
^DD(430,68.2,1,1,0)="430^AI^MUMPS"
^DD(430,68.2,1,1,1)="D AR^RCXVDEQ"
^DD(430,68.2,1,1,2)="Q"
^DD(430,68.2,1,1,"%D",0)="^^2^2^3030812^"
^DD(430,68.2,1,1,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(430,68.2,1,1,"%D",2,0)="file for transmission to the ARC."
^DD(430,68.2,1,1,"DT")="3030812"
^DD(430,68.2,3)="Enter the date the account was re-referred to RC/DOJ"
^DD(430,68.2,21,0)="^^2^2^2970930^^"
^DD(430,68.2,21,1,0)="This is the date the account was re-referred to the Regional Counsel"
^DD(430,68.2,21,2,0)="or Department of Justice."
^DD(430,68.2,"DT")="3030812"
^DD(430,68.3,0)="RETURNED DATE BY RC/DOJ^D^^6;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,68.3,1,0)="^.1"
^DD(430,68.3,1,1,0)="430^AL^MUMPS"
^DD(430,68.3,1,1,1)="D AR^RCXVDEQ"
^DD(430,68.3,1,1,2)="Q"
^DD(430,68.3,1,1,"%D",0)="^^2^2^3030812^"
^DD(430,68.3,1,1,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(430,68.3,1,1,"%D",2,0)="file for transmission to the ARC."
^DD(430,68.3,1,1,"DT")="3030812"
^DD(430,68.3,3)="Enter the date the account was returned by RC/DOJ."
^DD(430,68.3,21,0)="^^2^2^2970930^^"
^DD(430,68.3,21,1,0)="This is the date a referred account was returned by the Regional Counsel"
^DD(430,68.3,21,2,0)="or Department of Justice."
^DD(430,68.3,"DT")="3030812"
^DD(430,68.4,0)="REFERRAL DATE TO COWC^D^^6;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,68.4,.1)=""
^DD(430,68.4,1,0)="^.1"
^DD(430,68.4,1,1,0)="430^AM^MUMPS"
^DD(430,68.4,1,1,1)="D AR^RCXVDEQ"
^DD(430,68.4,1,1,2)="Q"
^DD(430,68.4,1,1,"%D",0)="^^2^2^3030812^"
^DD(430,68.4,1,1,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(430,68.4,1,1,"%D",2,0)="file for transmission to the ARC."
^DD(430,68.4,1,1,"DT")="3030812"
^DD(430,68.4,3)="Enter the date the account was referred to COWC."
^DD(430,68.4,21,0)="^^2^2^2910516^^"
^DD(430,68.4,21,1,0)="This is the date the account was referred to the DVB Committee on"
^DD(430,68.4,21,2,0)="Waivers and Compromise."
^DD(430,68.4,"DT")="3030812"
^DD(430,68.5,0)="REFERRED AMOUNT TO COWC^NJ9,2^^6;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(430,68.5,3)="Enter the dollar amount of the account referred to COWC."
^DD(430,68.5,21,0)="^^2^2^2880929^"
^DD(430,68.5,21,1,0)="This is the balance of an account referred to the DVB Committee on"
^DD(430,68.5,21,2,0)="Waivers and Compromise."
^DD(430,68.5,"DT")="2880411"
^DD(430,68.6,0)="IRS OFFSET LETTER^D^^6;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(430,68.6,3)="Enter the date the last time an IRS OFFSET letter was sent for this bill."
^DD(430,68.6,21,0)="^^2^2^2930923^^"
^DD(430,68.6,21,1,0)="This field stores the last date an IRS Offset letter was printed that"
^DD(430,68.6,21,2,0)="contained the amount due from the bill."
^DD(430,68.6,"DT")="2901005"
^DD(430,68.7,0)="DATE FORWARDED TO IRS^D^^6;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(430,68.7,21,0)="^^1^1^2920430^"
^DD(430,68.7,21,1,0)="This is the date the receivable was forwarded to the IRS."
^DD(430,68.7,"DT")="2901005"
^DD(430,68.8,0)="IRS PRINCIPAL BALANCE^NJ10,2^^6;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(430,68.8,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(430,68.8,21,0)="^^2^2^2920430^"
^DD(430,68.8,21,1,0)="This is the principal balance of the receivable forwarded to "
^DD(430,68.8,21,2,0)="the IRS."
^DD(430,68.8,"DT")="2901005"
^DD(430,68.9,0)="IRS INTEREST BALANCE^NJ10,2^^6;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(430,68.9,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(430,68.9,21,0)="^^1^1^2920430^"
^DD(430,68.9,21,1,0)="This is the Interest Balance forwarded to the IRS."
^DD(430,68.9,"DT")="2901005"
^DD(430,68.91,0)="IRS ADMIN. BALANCE^NJ10,2^^6;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(430,68.91,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(430,68.91,21,0)="^^1^1^2920430^"
^DD(430,68.91,21,1,0)="This is the Administrative Balance forwarded to the IRS."
^DD(430,68.91,"DT")="2901022"
^DD(430,68.92,0)="ORIGINAL IRS LETTER AMOUNT^NJ10,2^^6;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(430,68.92,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(430,68.92,21,0)="^^1^1^2920430^"
^DD(430,68.92,21,1,0)="This is the Original Amount of the bill forwarded to the IRS."
^DD(430,68.92,"DT")="2901019"
^DD(430,68.93,0)="ORIGINAL IRS OFFSET AMOUNT^NJ10,2^^6;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(430,68.93,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(430,68.93,21,0)="^^1^1^2920430^"
^DD(430,68.93,21,1,0)="This is the Original IRS Offset Amount."
^DD(430,68.93,"DT")="2901019"
^DD(430,68.94,0)="REFERRAL REASON CODE^RS^1:LITIGATION ISSUES;2:VET NOT RESP FOR COST OF CARE;3:REFUSAL TO PAY GOV HOSPITAL;4:VETERAN PAID DIRECTLY;5:MCCR REF WITH RC CONSENT;^6;22^Q"
^DD(430,68.94,3)="Enter the Reason Code for referring this claim to Regional Counsel."
^DD(430,68.94,21,0)="^^2^2^3030109^"
^DD(430,68.94,21,1,0)="This is a code for the transmission to Regional Counsel to let them know"
^DD(430,68.94,21,2,0)="the reason for the referral.  This is required for the transmission."
^DD(430,68.94,"DT")="3030109"
^DD(430,68.95,0)="REFERRAL COMMENT^RF^^6;23^K:$L(X)>65!($L(X)<3) X"
^DD(430,68.95,3)="Enter detailed reason for referral and contact information at RC."
^DD(430,68.95,21,0)="^^3^3^3030109^"
^DD(430,68.95,21,1,0)="Enter specific information on the account pertaining to the reason for "
^DD(430,68.95,21,2,0)="referral; date, time of call and contact person the staff spoke with at "
^DD(430,68.95,21,3,0)="the Regional Counsel."
^DD(430,68.95,"DT")="3030109"
^DD(430,69,0)="OVER LETTER3^CJ8,0^^ ; ^S Y(430,69,1)=$S($D(^PRCA(430,D0,6)):^(6),1:""""),X=DT S X=X,X1=X,X2=$P(Y(430,69,1),U,3),X="""" D:X2 ^%DTC:X1"
^DD(430,69,9)="^"
^DD(430,69,9.01)="430^63"
^DD(430,69,9.1)="TODAY-LETTER3"
^DD(430,69,21,0)="^^2^2^2880929^"
^DD(430,69,21,1,0)="This field computes the length of time since the third debt collection"
^DD(430,69,21,2,0)="letter was mailed."
^DD(430,70,0)="DELINQUENT DAYS^CJ8,0^^ ; ^S Y(430,70,1)=$S($D(^PRCA(430,D0,6)):^(6),1:""""),X=DT S X=X,X1=X,X2=$P(Y(430,70,1),U,1),X="""" D:X2 ^%DTC:X1 S X=$J(X,0,0)"
^DD(430,70,9)="^"
^DD(430,70,9.01)="430^61"
^DD(430,70,9.1)="TODAY-LETTER1"
^DD(430,70,21,0)="^^3^3^2920610^^"
^DD(430,70,21,1,0)="This field computes the number of days an account is delinquent by"
^DD(430,70,21,2,0)="subtracting the date of the first debt collection letter from the"
^DD(430,70,21,3,0)="current date."
^DD(430,71,0)="PRINCIPAL BALANCE^RNJ10,2^^7;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-999999.99) X"
^DD(430,71,3)="Type a Dollar Amount between -999999.99 and 9999999.99, 2 Decimal Digits"
^DD(430,71,5,1,0)="430^3^1"
^DD(430,71,21,0)="^^1^1^2880929^"
^DD(430,71,21,1,0)="This field is set to the original amount when a new bill is established."
^DD(430,71,"DT")="2870828"
^DD(430,72,0)="INTEREST BALANCE^NJ8,2^^7;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,72,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,72,21,0)="^^1^1^2880929^"
^DD(430,72,21,1,0)="This is the balance due for interest charges on this bill."
^DD(430,72,"DT")="2870828"
^DD(430,73,0)="ADMINISTRATIVE COST BALANCE^NJ8,2^^7;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,73,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,73,21,0)="^^1^1^2910516^^"
^DD(430,73,21,1,0)="This is the balance due for administrative costs on this bill."
^DD(430,73,"DT")="2870828"
^DD(430,74,0)="MARSHAL FEE^NJ8,2^^7;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,74,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,74,21,0)="^^1^1^2880929^"
^DD(430,74,21,1,0)="This is the amount of the Marshal Fee included in this bill."
^DD(430,74,"DT")="2870828"
^DD(430,75,0)="COURT COST^NJ8,2^^7;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,75,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,75,21,0)="^^1^1^2880929^"
^DD(430,75,21,1,0)="This is the amount of court costs included in this bill."
^DD(430,75,"DT")="2870828"
^DD(430,77,0)="TOTAL PAID PRINCIPAL^NJ9,2^^7;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-99999.99) X"
^DD(430,77,3)="Type a Dollar Amount between -99999.99 and 999999.99, 2 Decimal Digits"
^DD(430,77,21,0)="^^1^1^2880929^"
^DD(430,77,21,1,0)="This is the total amount received toward this bill's principal balance."
^DD(430,77,"DT")="2870924"
^DD(430,78,0)="TOTAL PAID INTEREST^NJ8,2^^7;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-9999.99) X"
^DD(430,78,3)="Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits"
^DD(430,78,21,0)="^^1^1^2880929^"
^DD(430,78,21,1,0)="This is the total amount received toward this bill's interest charges."
^DD(430,78,"DT")="2870924"
^DD(430,79,0)="TOTAL PAID ADMINISTRATIVE COST^NJ8,2^^7;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-9999.99) X"
^DD(430,79,3)="Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits"
^DD(430,79,21,0)="^^2^2^2880929^"
^DD(430,79,21,1,0)="This is the total amount received toward this bill's administrative cost"
^DD(430,79,21,2,0)="charges."
^DD(430,79,"DT")="2870924"
^DD(430,79.1,0)="TOTAL PAID MARSHAL FEE^NJ8,2^^7;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,79.1,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,79.1,21,0)="^^1^1^2910516^^"
^DD(430,79.1,21,1,0)="This is the total amount received toward this bill's Marshal Fee."
^DD(430,79.1,"DT")="2871106"
^DD(430,79.12,0)="OUTSTANDING PB^NJ9,2^^7;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(430,79.12,.1)="OUTSTANDING PRINCIPAL BALANCE"
^DD(430,79.12,3)="Type outstanding principal balance for this debtor."
^DD(430,79.12,21,0)="^^1^1^2880929^"
^DD(430,79.12,21,1,0)="This is the total outstanding principal balance for this debtor's account."
^DD(430,79.12,"DT")="2880411"
^DD(430,79.13,0)="OUTSTANDING IB^NJ8,2^^7;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,79.13,.1)="OUTSTANDING INTEREST BALANCE"
^DD(430,79.13,3)="Enter the outstanding interest balance for this debtor."
^DD(430,79.13,21,0)="^^2^2^2880929^^"
^DD(430,79.13,21,1,0)="This is the total outstanding principal interest balance for this"
^DD(430,79.13,21,2,0)="debtor's account."
^DD(430,79.13,"DT")="2880411"
^DD(430,79.14,0)="OUTSTANDING AB^NJ8,2^^7;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,79.14,.1)="OUTSTANDING ADMINISTRATIVE COST BALANCE"
^DD(430,79.14,3)="Enter the outstanding admin. cost balance for this debtor."
^DD(430,79.14,21,0)="^^2^2^2880929^"
^DD(430,79.14,21,1,0)="This is the total outstanding administrative cost charges for this"
^DD(430,79.14,21,2,0)="debtor's account."
^DD(430,79.14,"DT")="2880411"
^DD(430,79.15,0)="OUTSTANDING MF^NJ8,2^^7;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,79.15,.1)="OUTSTANDING MARSHAL FEE"
^DD(430,79.15,3)="Enter the outstanding marshal fee for the debtor."
^DD(430,79.15,21,0)="^^1^1^2880929^"
^DD(430,79.15,21,1,0)="This is the total outstanding marshal's fee for this debtor's account."
^DD(430,79.15,"DT")="2880411"
^DD(430,79.16,0)="OUTSTANDING CC^NJ8,2^^7;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,79.16,.1)="OUTSTANDING COURT COST"
^DD(430,79.16,3)="Enter the outstanding court cost balance for the debtor."
^DD(430,79.16,21,0)="^^1^1^2880929^^"
^DD(430,79.16,21,1,0)="This is the total outstanding court cost for this debtor's account."
^DD(430,79.16,"DT")="2880411"
^DD(430,79.17,0)="EXCESS PAYMENT AMOUNT^NJ9,2^^7;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(430,79.17,3)="Enter the amount of the excess payment."
^DD(430,79.17,21,0)="^^1^1^2910516^^"
^DD(430,79.17,21,1,0)="This field stores the amount of a patient's excess payment."
^DD(430,79.17,"DT")="2890221"
^DD(430,79.18,0)="REFUNDED AMOUNT^NJ9,2^^7;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(430,79.18,3)="Enter the amount refunded to the patient."
^DD(430,79.18,21,0)="^^1^1^2890222^"
^DD(430,79.18,21,1,0)="This field stores the dollar amount that has been refunded to the patient."
^DD(430,79.18,"DT")="2890221"
^DD(430,79.19,0)="REFUNDED DATE^D^^7;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,79.19,3)="Enter the date the refund was made."
^DD(430,79.19,21,0)="^^1^1^2890222^"
^DD(430,79.19,21,1,0)="This field stores the date the refund was made."
^DD(430,79.19,"DT")="2890221"
^DD(430,79.2,0)="TOTAL PAID COURT COST^NJ8,2^^7;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,79.2,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,79.2,21,0)="^^1^1^2880929^"
^DD(430,79.2,21,1,0)="This is the total amount received toward this bill's court costs."
^DD(430,79.2,"DT")="2871106"
^DD(430,79.21,0)="REFUNDED BY^P200'^VA(200,^7;21^Q"
^DD(430,79.21,3)="Enter the name of the person who approved this refund, Last Name,First"
^DD(430,79.21,21,0)="^^2^2^2920430^^^^"
^DD(430,79.21,21,1,0)="This field stores the name of the person who approved the refund."
^DD(430,79.21,21,2,0)="It is a pointer to the New Person File."
^DD(430,79.21,"DT")="2920127"
^DD(430,81,0)="IRS LOCATION COST^NJ7,2^^8;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(430,81,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(430,81,21,0)="^^1^1^2880929^"
^DD(430,81,21,1,0)="This is the amount charged to the bill for an IRS locator search."
^DD(430,81,"DT")="2871014"
^DD(430,82,0)="CREDIT REP. COST^NJ7,2^^8;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(430,82,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(430,82,21,0)="^^1^1^2910516^^"
^DD(430,82,21,1,0)="This is the amount charged to the bill for a credit report locator check."
^DD(430,82,"DT")="2871014"
^DD(430,83,0)="DMV LOCATION COST^NJ7,2^^8;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(430,83,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(430,83,21,0)="^^2^2^2880929^"
^DD(430,83,21,1,0)="This is the amount charged to the bill for a state agency/department of"
^DD(430,83,21,2,0)="motor vehicles locator search."
^DD(430,83,"DT")="2871014"
^DD(430,83.1,0)="DMV LOCATION CHECK^S^Y:YES;N:NO;^8;18^Q"
^DD(430,83.1,3)="Enter 'Y' for Yes or 'N' for No."
^DD(430,83.1,21,0)="^^2^2^2880929^^"
^DD(430,83.1,21,1,0)="This flag indicates whether or not a state agency/department of motor"
^DD(430,83.1,21,2,0)="vehicles locator check was done."
^DD(430,83.1,"DT")="2880120"
^DD(430,84,0)="CONSUMER REP. AGENCY COST^NJ7,2^^8;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(430,84,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(430,84,21,0)="^^2^2^2880929^"
^DD(430,84,21,1,0)="This is the amount charged to the bill for a consumer rep. agency"
^DD(430,84,21,2,0)="locator search."
^DD(430,84,"DT")="2871014"
^DD(430,85,0)="POSTAL LOCATION COST^NJ7,2^^8;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(430,85,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(430,85,21,0)="^^2^2^2880929^"
^DD(430,85,21,1,0)="This is the amount charged to the bill for a US Postal Service"
^DD(430,85,21,2,0)="locator search."
^DD(430,85,"DT")="2871014"
^DD(430,86,0)="ABLE TO PAY^S^Y:YES;N:NO;^8;6^Q"
^DD(430,86,3)="Enter 'Y' for Yes or 'N' for No."
^DD(430,86,21,0)="^^1^1^2880929^"
^DD(430,86,21,1,0)="This flag indicates whether or not the debtor is able to pay this bill."
^DD(430,86,"DT")="2871014"
^DD(430,87,0)="ABLE TO LOCATE^S^Y:YES;N:NO;^8;7^Q"
^DD(430,87,3)="Enter 'Y' for Yes or 'N' for No."
^DD(430,87,21,0)="^^1^1^2910516^^"
^DD(430,87,21,1,0)="This flag indicates whether or not the debtor could be located."
^DD(430,87,"DT")="2871014"
^DD(430,88,0)="POSTAL LOC.DATE SENT^D^^8;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,88,3)="Enter date locator request was sent to the Postal Service."
^DD(430,88,21,0)="^^2^2^2880929^"
^DD(430,88,21,1,0)="This is the date a request to locate the debtor was sent to the US"
^DD(430,88,21,2,0)="Postal Service."
^DD(430,88,"DT")="2871014"
^DD(430,89,0)="POSTAL LOC.DATE RECEIVED^D^^8;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,89,3)="Enter date reply from Postal Service was received."
^DD(430,89,21,0)="^^1^1^2880929^"
^DD(430,89,21,1,0)="This is the date a reply was received to the Postal locator request."
^DD(430,89,"DT")="2871014"
^DD(430,89.1,0)="IRS ABLE TO LOCATE^S^Y:YES;N:NO;^8;10^Q"
^DD(430,89.1,3)="Is IRS able to locate the debtor ? Enter 'Y' or 'N'"
^DD(430,89.1,21,0)="^^1^1^2880929^"
^DD(430,89.1,21,1,0)="This flag indicates whether or not the IRS was able to locate the debtor."
^DD(430,89.1,"DT")="2880209"
^DD(430,89.2,0)="IRS LOC. DATE SENT^D^^8;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,89.2,3)="Enter date locator request was sent to IRS."
^DD(430,89.2,21,0)="^^1^1^2880929^"
^DD(430,89.2,21,1,0)="This is the date a request to locate the debtor was sent to the IRS."
^DD(430,89.2,"DT")="2871106"
^DD(430,89.3,0)="IRS LOC. DATE RECEIVED^D^^8;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,89.3,3)="Enter date reply received from IRS."
^DD(430,89.3,21,0)="^^1^1^2880929^"
^DD(430,89.3,21,1,0)="This is the date a reply was received to the IRS locator request."
^DD(430,89.3,"DT")="2871106"
^DD(430,89.4,0)="CREDIT REP. ABLE TO PAY^S^Y:YES;N:NO;^8;13^Q"
^DD(430,89.4,3)="Enter 'Y' for Yes or 'N' for No."
^DD(430,89.4,21,0)="^^2^2^2910516^^"
^DD(430,89.4,21,1,0)="This flag indicates whether or not the credit report says the"
^DD(430,89.4,21,2,0)="debtor is able to pay the bill."
^DD(430,89.4,"DT")="2880209"
^DD(430,89.5,0)="CREDIT REPT. DATE SENT^D^^8;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,89.5,3)="Enter date request for credit report was sent."
^DD(430,89.5,21,0)="^^1^1^2880929^"
^DD(430,89.5,21,1,0)="This is the date a request for a credit report was sent."
^DD(430,89.5,"DT")="2871106"
^DD(430,89.6,0)="CREDIT REP. DATE RECEIVED^D^^8;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,89.6,3)="Enter date credit report was received."
^DD(430,89.6,21,0)="^^1^1^2930601^^"
^DD(430,89.6,21,1,0)="This is the date the requested credit report was received."
^DD(430,89.6,"DT")="2871106"
^DD(430,89.7,0)="PATIENT FOLDER REVIEWED^S^Y:YES;N:NO;^8;16^Q"
^DD(430,89.7,3)="Did you review the patient folder ? Enter 'Y' or 'N'"
^DD(430,89.7,21,0)="^^2^2^2880929^"
^DD(430,89.7,21,1,0)="This flag indicates whether or not the debtor's Patient Folder was"
^DD(430,89.7,21,2,0)="reviewed for locator information."
^DD(430,89.7,"DT")="2880209"
^DD(430,89.8,0)="DATE FOLDER REVIEWED^D^^8;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,89.8,3)="Enter date Patient Folder was reviewed."
^DD(430,89.8,21,0)="^^1^1^2880929^"
^DD(430,89.8,21,1,0)="This is the date the debtor's Patient Folder was reviewed."
^DD(430,89.8,"DT")="2871106"
^DD(430,90,0)="APPROVED BY (FISCAL)^P200'^VA(200,^9;1^Q"
^DD(430,90,3)="Enter approving official's name."
^DD(430,90,21,0)="^^1^1^2930604^^^"
^DD(430,90,21,1,0)="This is the person in Fiscal who approved the bill."
^DD(430,90,"DT")="2920211"
^DD(430,91,0)="AR ELECTRONIC SIGNATURE^FO^^9;2^K:$L(X)>50!($L(X)<3) X"
^DD(430,91,2)="S Y(0)=Y S Y=""<HIDDEN>"""
^DD(430,91,2.1)="S Y=""<HIDDEN>"""
^DD(430,91,3)="Enter Electronic Signature code."
^DD(430,91,"DT")="2970207"
^DD(430,92,0)="AR DATE SIGNED^D^^9;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(430,92,3)="Enter date bill was signed."
^DD(430,92,21,0)="^^1^1^2880930^"
^DD(430,92,21,1,0)="This is the date the bill was signed in Fiscal."
^DD(430,92,"DT")="2871119"
^DD(430,93,0)="AR APPR.OFFICIAL'S TITLE^F^^9;4^K:$L(X)>27!($L(X)<3) X"
^DD(430,93,3)="Enter Approving Official's Title."
^DD(430,93,21,0)="^^1^1^2880930^"
^DD(430,93,21,1,0)="This is the approving official's title."
^DD(430,93,"DT")="2871119"
^DD(430,94,0)="APPROVED BY (BILLING)^P200'^VA(200,^9;5^Q"
^DD(430,94,3)="Enter person who approved bill in Service."
^DD(430,94,21,0)="^^1^1^2930604^^^^"
^DD(430,94,21,1,0)="This is the person who approved the bill in the Service or Section."
^DD(430,94,"DT")="2920127"
^DD(430,95,0)="PREVIOUS STATUS^P430.3'^PRCA(430.3,^9;6^Q"
^DD(430,95,3)="Enter bill's previous status."
^DD(430,95,21,0)="^^1^1^2880930^"
^DD(430,95,21,1,0)="This is the former status of the bill if it has been changed."
^DD(430,95,"DT")="2880718"
^DD(430,96,0)="APPROVED DATE (SERVICE)^D^^9;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,96,3)="Enter date the bill was approved."
^DD(430,96,21,0)="^^1^1^2880930^"
^DD(430,96,21,1,0)="This is the date the bill was approved in the Service or Section."
^DD(430,96,"DT")="2880718"
^DD(430,97,0)="PROCESSED BY (SERVICE)^P200'^VA(200,^9;8^Q"
^DD(430,97,3)="Enter the name of the person who processed the bill."
^DD(430,97,21,0)="^^1^1^2920219^^^^"
^DD(430,97,21,1,0)="This is the person in the Service or Section who processed the bill."
^DD(430,97,"DT")="2920219"
^DD(430,98,0)="COMMENTS^430.098^^10;0"
^DD(430,98,21,0)="^^2^2^2910516^^^"
^DD(430,98,21,1,0)="This word processing field allows the AR Clerk or Supervisor to"
^DD(430,98,21,2,0)="add optional comments at the time the bill is audited."
^DD(430,100,0)="FORM TYPE^RS^1:1081;2:1080;3:1114;^100;1^Q"
^DD(430,100,3)="Enter the code for the form to be used for the bill"
^DD(430,100,21,0)="^^2^2^2920804^^^^"
^DD(430,100,21,1,0)="This response indicates the type of form for the bill."
^DD(430,100,21,2,0)="(1080, 1081 or 1114)."
^DD(430,100,"DT")="2881025"
^DD(430,101,0)="SERVICE^RP49'^DIC(49,^100;2^Q"
^DD(430,101,3)="Enter billing Service or Section."
^DD(430,101,21,0)="^^1^1^2880930^"
^DD(430,101,21,1,0)="This is the Service or Section that originated the bill."
^DD(430,101,"DT")="2880921"
^DD(430,104,0)="VOUCHER NUMBER^F^^100;4^K:$L(X)>9!($L(X)<3) X"
^DD(430,104,3)="Enter optional voucher number, 3 - 9 characters."
^DD(430,104,21,0)="^^2^2^2910516^^"
^DD(430,104,21,1,0)="This is the billing Service/Section's voucher number. It is used"
^DD(430,104,21,2,0)="on the 1080, 1081 and 1114 bill forms."
^DD(430,104,"DT")="2871028"
^DD(430,106,0)="DESCRIPTION^430.02IDA^^101;0"
^DD(430,106,21,0)="^^1^1^2881024^^^^"
^DD(430,106,21,1,0)="This is a description of the bill."
^DD(430,107,0)="BILLING AGENCY^*P342.1'^RC(342.1,^100;7^S DIC(""S"")=""I $P(^(0),U,2)=6"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(430,107,3)=""
^DD(430,107,12)="TAKE THE BILLING AGENCY TYPE"
^DD(430,107,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=6"""
^DD(430,107,21,0)="^^1^1^2930301^^^^"
^DD(430,107,21,1,0)="This is the billing agency from the AR Site Parameter file."
^DD(430,107,"DT")="2930217"
^DD(430,108,0)="AGENCY LOCATION CODE (ALC)^F^^100;3^K:$L(X)>12!($L(X)<3) X"
^DD(430,108,3)="Enter ALC, 3 - 12 characters."
^DD(430,108,21,0)="^^1^1^2940705^^"
^DD(430,108,21,1,0)="This is the Agency Location Code."
^DD(430,108,"DT")="2871028"
^DD(430,110,0)="DOCUMENT NUMBER^NJ7,0^^100;8^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(430,110,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(430,110,21,0)="^^1^1^2880930^"
^DD(430,110,21,1,0)="This is the Document Number used on the 1081 bill form."
^DD(430,110,"DT")="2871007"
^DD(430,111,0)="APPROVING OFFICIAL (SERVICE)^P200'^VA(200,^104;1^Q"
^DD(430,111,3)="Enter the person's name who approved the bill in the Service."
^DD(430,111,21,0)="^^1^1^2920211^^^"
^DD(430,111,21,1,0)="This is the person in the Service or Section who approved the bill."
^DD(430,111,"DT")="2920211"
^DD(430,112,0)="ELECTRONIC SIGNATURE^FO^^104;2^K:$L(X)>50!($L(X)<3) X"
^DD(430,112,2)="S Y(0)=Y S Y=""<HIDDEN>"""
^DD(430,112,2.1)="S Y=""<HIDDEN>"""
^DD(430,112,3)="Enter Electronic Signature Code"
^DD(430,112,"DT")="2970207"
^DD(430,113,0)="DATE SIGNED (APPROVED)^D^^104;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(430,113,3)="Enter date the bill was approved in the Service."
^DD(430,113,21,0)="^^1^1^2930601^^^"
^DD(430,113,21,1,0)="This is the date the bill was approved in the Service or Section."
^DD(430,113,"DT")="2871007"
^DD(430,114,0)="APPR. OFFICIAL'S TITLE^F^^104;4^K:$L(X)>27!($L(X)<3) X"
^DD(430,114,3)="Enter Approving Official's Title, 3 - 27 characters."
^DD(430,114,21,0)="^^2^2^2880930^^"
^DD(430,114,21,1,0)="This is the title of the person who approved the bill in the"
^DD(430,114,21,2,0)="Service or Section."
^DD(430,114,"DT")="2871007"
^DD(430,121,0)="DATE SENT TO DMC^D^^12;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430,121,21,0)="^^2^2^2970319^"
^DD(430,121,21,1,0)="This is the date that the bill was first sent to the Debt Management"
^DD(430,121,21,2,0)="Center."
^DD(430,121,"DT")="2970319"
^DD(430,122,0)="DMC PRINCIPAL BALANCE^NJ10,2^^12;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(430,122,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(430,122,21,0)="^^2^2^2970319^"
^DD(430,122,21,1,0)="This is the current principal balance for the bill that is at the Debt"
^DD(430,122,21,2,0)="Management Center."
^DD(430,122,"DT")="2970319"
^DD(430,123,0)="DMC INTEREST BALANCE^NJ8,2^^12;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,123,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,123,21,0)="^^2^2^2970319^"
^DD(430,123,21,1,0)="This is the current interest balance for the bill that is at the Debt"
^DD(430,123,21,2,0)="Management Center."
^DD(430,123,"DT")="2970319"
^DD(430,124,0)="DMC ADMIN BALANCE^NJ8,2^^12;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(430,124,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(430,124,21,0)="^^2^2^2970319^"
^DD(430,124,21,1,0)="This is the current administrative cost balance for the bill that is at"
^DD(430,124,21,2,0)="the Debt Management Center."
^DD(430,124,"DT")="2970319"
^DD(430,131,0)="MEDICARE CONT. ADJUSTMENT^NJ11,2^^13;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999.99)!(X<0) X"
^DD(430,131,3)="Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits"
^DD(430,131,21,0)="^.001^1^1^3040324^^"
^DD(430,131,21,1,0)="This field will reflect the Medicare contractual adjustment for a bill."
^DD(430,131,"DT")="3040324"
^DD(430,132,0)="MEDICARE UNREIMBURSABLE^NJ11,2^^13;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999.99)!(X<0) X"
^DD(430,132,3)="Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits"
^DD(430,132,21,0)="^.001^1^1^3040324^^^"
^DD(430,132,21,1,0)="This field will reflect the Medicare Unreimbursable Expense for a bill."
^DD(430,132,"DT")="3040324"
^DD(430,141,0)="DATE BILL REFERRED TO TOP^D^^14;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(430,141,21,0)="^^1^1^2990615^"
^DD(430,141,21,1,0)="This field contains the date that the bill was originally referred to TOP."
^DD(430,141,23,0)="^^2^2^2990616^"
^DD(430,141,23,1,0)="If a bill has been referred to TOP, this date is set by the system.  It is"
^DD(430,141,23,2,0)="used to show that the bill has been referred to TOP on the bill profile."
^DD(430,141,"DT")="2991115"
^DD(430,142,0)="TOP REFUND STATUS^S^1:REFUND;2:REFUND TRANSMITTED;3:REVERSAL;4:REVERSAL TRANSMITTED;^14;2^Q"
^DD(430,142,1,0)="^.1"
^DD(430,142,1,1,0)="430^TREF"
^DD(430,142,1,1,1)="S ^PRCA(430,""TREF"",$E(X,1,30),DA)="""""
^DD(430,142,1,1,2)="K ^PRCA(430,""TREF"",$E(X,1,30),DA)"
^DD(430,142,1,1,"%D",0)="^^2^2^2990616^"
^DD(430,142,1,1,"%D",1,0)="This field is cross-referenced, so that the software can easily determine"
^DD(430,142,1,1,"%D",2,0)="when a type 1 refund or refund reversal document should be sent to TOP."
^DD(430,142,1,1,"DT")="2990616"
^DD(430,142,21,0)="^^1^1^2990615^"
^DD(430,142,21,1,0)="This field contains the current status of a TOP refund."
^DD(430,142,23,0)="^^8^8^2990616^"
^DD(430,142,23,1,0)="If a  prepayment bill is approved for refund and the user indicates that"
^DD(430,142,23,2,0)="it is a TOP refund, this field is set to 'Refund' status.  When the TOP"
^DD(430,142,23,3,0)="document is sent, the status is changed to 'Refund Transmitted' status."
^DD(430,142,23,4,0)="If the refund is subsequently reversed, this field is set to 'Reversal'"
^DD(430,142,23,5,0)="status and upon transmission of the TOP document, the field is sent to"
^DD(430,142,23,6,0)="'Reversal Transmitted' status.  This field is also cross-referenced, so"
^DD(430,142,23,7,0)="that the software can easily determine when a type 1 refund or refund"
^DD(430,142,23,8,0)="reversal document should be sent to TOP."
^DD(430,142,"DT")="2990616"
^DD(430,143,0)="TOP TRACE NUMBER^F^^14;3^K:$L(X)>10!($L(X)<10) X"
^DD(430,143,3)="Answer must be 10 characters in length."
^DD(430,143,21,0)="^^1^1^2990615^"
^DD(430,143,21,1,0)="This field contains the trace number attached to the refund."
^DD(430,143,23,0)="^^2^2^2990616^"
^DD(430,143,23,1,0)="This field is set  whenever a TOP refund is approved.  It will attach the"
^DD(430,143,23,2,0)="Current TOP Trace Number from file 340 to the refund."
^DD(430,143,"DT")="2990615"
^DD(430,144,0)="TOP REFUND YEAR^F^^14;4^K:$L(X)>4!($L(X)<4) X"
^DD(430,144,3)="Answer must be 4 characters in length."
^DD(430,144,21,0)="^^1^1^2990615^"
^DD(430,144,21,1,0)="This field contains the calendar year for which the refund is granted."
^DD(430,144,23,0)="^^2^2^2990616^"
^DD(430,144,23,1,0)="This field will be set by user entry at the time of the refund approval."
^DD(430,144,23,2,0)="It is necessary in case the refund must be reversed."
^DD(430,144,"DT")="2990615"
^DD(430,200,0)="RECEIVABLE CODE^CJ11^^ ; ^S X=$$REC^RCAMFN01($P(^PRCA(430,D0,0),""^"",6)) S X=$S(X=1:""FEDERAL"",X=2:""NON-FEDERAL"",1:""UNKNOWN"")"
^DD(430,200,9)="^"
^DD(430,200,9.01)=""
^DD(430,200,9.1)="S X=$$REC^RCAMFN01($P(^PRCA(430,D0,0),""^"",6)) S X=$S(X=1:""FEDERAL"",X=2:""NON-FEDERAL"",1:""UNKNOWN"")"
^DD(430,200,21,0)="^^1^1^2941019^"
^DD(430,200,21,1,0)="Identifies bill as Federal/Non-federal."
^DD(430,200.2,0)="TYPE OF BILL^F^^200;8^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(430,200.2,3)="Enter the 3 digit code for this type of bill."
^DD(430,200.2,21,0)="^^1^1^2920430^^"
^DD(430,200.2,21,1,0)="This is the type of bill code from the UB-82 bill form."
^DD(430,200.2,"DT")="2871029"
^DD(430,201,0)="BEGINNING BUDGET FY^F^^11;15^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(430,201,3)="Enter the last 2 digits of the beginning FISCAL YEAR.  ie. 94"
^DD(430,201,21,0)="^^1^1^2941019^"
^DD(430,201,21,1,0)="Beginning Fiscal Year of accounting FUND."
^DD(430,201,"DT")="2940414"
^DD(430,202,0)="ENDING BUDGET FY^F^^11;16^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(430,202,3)="Enter the last 2 digits of the ENDING budget fiscal year on a multi-year appropriation.  ie. 95"
^DD(430,202,21,0)="^^1^1^2941019^"
^DD(430,202,21,1,0)="Ending Fiscal Year of accounting FUND."
^DD(430,202,"DT")="2940414"
^DD(430,203,0)="FUND^RFX^^11;17^D FUND^PRCAFUT S X=$P($G(FUND),U,2) K:$L(X)>6!($L(X)<4) X"
^DD(430,203,3)="Enter the fund.  ie 5014."
^DD(430,203,4)="D FUND^PRCAFBDU"
^DD(430,203,21,0)="^^1^1^2941019^"
^DD(430,203,21,1,0)="FMS Accounting FUND."
^DD(430,203,"DT")="2940713"
^DD(430,204,0)="ADMIN OFFICE^S^10:VHA;20:VBA;30:NCS;^11;18^Q"
^DD(430,204,21,0)="^^1^1^2941019^"
^DD(430,204,21,1,0)="Administrative Office code used by FMS."
^DD(430,204,"DT")="2940410"
^DD(430,205,0)="ORGANIZATIONAL CTRL POINT^F^^11;19^K:$L(X)>11!($L(X)<3) X"
^DD(430,205,3)="Answer must be 3-11 characters in length."
^DD(430,205,21,0)="^^1^1^2941019^"
^DD(430,205,21,1,0)="FMS accounting field."
^DD(430,205,"DT")="2940412"
^DD(430,206,0)="FCP/PROJ^F^^11;20^K:$L(X)>9!($L(X)<9) X"
^DD(430,206,3)="Answer must be 9 characters in length."
^DD(430,206,21,0)="^^1^1^2941019^^"
^DD(430,206,21,1,0)="FMS accounting field."
^DD(430,206,"DT")="2940412"
^DD(430,239,0)="INSURED NAME^F^^202;1^K:$L(X)>30!($L(X)<2) X"
^DD(430,239,3)="Answer must be 2-30 characters in length."
^DD(430,239,21,0)="^^1^1^2920430^^^"
^DD(430,239,21,1,0)="This is the individual in whose name the insurance is carried."
^DD(430,239,"DT")="3000619"
^DD(430,240,0)="INSURED SEX^S^M:MALE;F:FEMALE;U:UNKNOWN;^202;2^Q"
^DD(430,240,3)="Enter code for insured's sex."
^DD(430,240,21,0)="^^1^1^2920430^^"
^DD(430,240,21,1,0)="This is the insured individual's sex."
^DD(430,240,"DT")="2871103"
^DD(430,241,0)="PT RELATIONSHIP^F^^202;3^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(430,241,3)="Enter the appropriate 2 digit code."
^DD(430,241,21,0)="^^2^2^2920430^^"
^DD(430,241,21,1,0)="This is the two-digit code for the relationship between the insured"
^DD(430,241,21,2,0)="individual and the patient.  It comes from the UB-82 bill form."
^DD(430,241,"DT")="2871103"
^DD(430,242,0)="CERT SSN HIC ID NO.^F^^202;4^K:$L(X)>20!($L(X)<3) X"
^DD(430,242,3)="Answer must be 3-20 characters in length."
^DD(430,242,21,0)="^^2^2^2920430^^^"
^DD(430,242,21,1,0)="This is the Certificate/Social Security Number/Health Insurance"
^DD(430,242,21,2,0)="Claim/Identification Number from the UB-82 bill form."
^DD(430,242,"DT")="2900525"
^DD(430,243,0)="GROUP NAME^F^^202;5^K:$L(X)>20!($L(X)<1) X"
^DD(430,243,3)="Answer must be 1-20 characters in length."
^DD(430,243,21,0)="^^1^1^2920430^^"
^DD(430,243,21,1,0)="This is the name of the group through which the insurance is provided."
^DD(430,243,"DT")="2900525"
^DD(430,244,0)="GROUP NUMBER^F^^202;6^K:$L(X)>17!($L(X)<1) X"
^DD(430,244,3)="Answer must be 1-17 characters in length."
^DD(430,244,21,0)="^^1^1^2920430^^"
^DD(430,244,21,1,0)="This is the identification number of the group providing insurance."
^DD(430,244,"DT")="3000619"
^DD(430,245,0)="EMPLOYEE INFORMATION DATA^F^^202;7^K:$L(X)>1!($L(X)<1)!'(X?1U) X"
^DD(430,245,3)="Enter the appropriate code, a single upper case alphabetic character."
^DD(430,245,21,0)="^^1^1^2931014^^^"
^DD(430,245,21,1,0)="This is the employee information data code from the UB-82 bill form."
^DD(430,245,"DT")="2871103"
^DD(430,246,0)="EMPLOYMENT STATUS CODE^F^^202;8^K:$L(X)>1!($L(X)<1)!'(X?1N) X"
^DD(430,246,3)="Enter the appropriate single digit code."
^DD(430,246,21,0)="^^1^1^2920430^^"
^DD(430,246,21,1,0)="This is the employment status code from the UB-82 bill form."
^DD(430,246,"DT")="2871103"
^DD(430,247,0)="EMPLOYER NAME^F^^202;9^K:$L(X)>30!($L(X)<3) X"
^DD(430,247,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(430,247,21,0)="^^1^1^2920430^^"
^DD(430,247,21,1,0)="This is the employer's name from the UB-82 bill form."
^DD(430,247,"DT")="2880211"
^DD(430,248,0)="EMPLOYEE ID NUMBER^F^^202;10^K:$L(X)>11!($L(X)<3) X"
^DD(430,248,3)="Enter the identification number for the employee, 3-11 characters in length."
^DD(430,248,21,0)="^^1^1^2910516^^"
^DD(430,248,21,1,0)="This is the employee's identification number from the UB-82 bill form."
^DD(430,248,"DT")="2871103"
^DD(430,249,0)="EMPLOYER LOCATION^F^^202;11^K:$L(X)>40!($L(X)<3) X"
^DD(430,249,3)="Enter Employer's location, 3 - 40 characters."
^DD(430,249,21,0)="^^1^1^2920430^^^"
^DD(430,249,21,1,0)="This is the employer's location from the UB-82 bill form."
^DD(430,249,"DT")="2880211"
^DD(430,250,0)="CONTROL POINT^FX^^11;1^S:$D(X) CP=X D:$D(CP) CP^PRCAFUT D:$D(CP) CPTBL^PRCAFUT S X=$G(CP) K:$L(X)>15!($L(X)<1) X"
^DD(430,250,3)="Answer must be 1-15 characters in length."
^DD(430,250,4)="D CPHLP^PRCAFUT"
^DD(430,250,21,0)="^^1^1^2941019^"
^DD(430,250,21,1,0)="IFCAP control point."
^DD(430,250,"DT")="2940906"
^DD(430,251,0)="COST CENTER^RFX^^11;2^D CC^PRCAFBDU S X=$G(CC) K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(430,251,3)="Answer must be 6 characters in length."
^DD(430,251,4)="D CCDISP^PRCAFBDU"
^DD(430,251,21,0)="^^2^2^2940203^"
^DD(430,251,21,1,0)="This field is required for spending transactions and is used to record"
^DD(430,251,21,2,0)="expenditure of funds by various organizations within DVA."
^DD(430,251,"DT")="2940520"
^DD(430,252,0)="SUB COST CENTER^F^^11;3^K:$L(X)>2!($L(X)<2) X"
^DD(430,252,3)="Answer must be 2 characters in length."
^DD(430,252,21,0)="^^1^1^2940203^"
^DD(430,252,21,1,0)="This code is a further breakdown of the Cost Center."
^DD(430,252,"DT")="2940519"
^DD(430,253,0)="BOC (SUB ACCOUNT)^RFX^^11;21^D BOC^PRCAFBDU S X=$G(BOC) K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(430,253,3)="Answer must be 4 characters in length."
^DD(430,253,4)="D BOCDISP^PRCAFBDU"
^DD(430,253,21,0)="^^3^3^2940203^"
^DD(430,253,21,1,0)="This code is equivalent to the CALM subaccount.  Required for spending"
^DD(430,253,21,2,0)="transactions and is used to determine the budget operating expense"
^DD(430,253,21,3,0)="account to effect."
^DD(430,253,"DT")="2940520"
^DD(430,254,0)="SUB BOC^F^^11;5^K:$L(X)>2!($L(X)<2) X"
^DD(430,254,3)="Enter sub boc on SALARY OVERPAYMENTS ONLY"
^DD(430,254,21,0)="^^1^1^2940203^"
^DD(430,254,21,1,0)="This code is a further breakdown of the Budget Object Code."
^DD(430,254,"DT")="2940520"
^DD(430,255,0)="REVENUE SOURCE^RP347.3'X^RC(347.3,^11;6^D RSC^RCXFMSUR"
^DD(430,255,3)="Enter the revenue source code to be sent to FMS for this bill.  Only active Revenue Source Codes can be selected."
^DD(430,255,21,0)="^.001^3^3^3050328^^"
^DD(430,255,21,1,0)="This code is required for revenue transactions.  It is used to group"
^DD(430,255,21,2,0)="collected revenue and to determine whether the revenue will credit"
^DD(430,255,21,3,0)="actual reimbursement receivables for the associated fund."
^DD(430,255,"DT")="3050831"
^DD(430,255.1,0)="RSC (CALC FOR ACCRUED BILLS)^F^^11;23^K:$L(X)>4!($L(X)<4) X"
^DD(430,255.1,3)="Answer must be 4 characters in length."
^DD(430,255.1,21,0)="^^5^5^2971001^"
^DD(430,255.1,21,1,0)="This field was added with patch PRCA*4.5*90."
^DD(430,255.1,21,2,0)=" "
^DD(430,255.1,21,3,0)="This field is used to store the calculated revenue source code for"
^DD(430,255.1,21,4,0)="bills which are accrued.  It is calculated and set in the field by"
^DD(430,255.1,21,5,0)="the routine RCXFMSUR."
^DD(430,255.1,"DT")="2971001"
^DD(430,256,0)="SUB-REV SOURCE^F^^11;7^K:$L(X)>2!($L(X)<2) X"
^DD(430,256,3)="Answer must be 2 characters in length."
^DD(430,256,21,0)="^^1^1^2940203^"
^DD(430,256,21,1,0)="This code is a further breakdown of the Revenue Source Code."
^DD(430,256,"DT")="2940404"
^DD(430,257,0)="STATION^F^^11;8^K:$L(X)>4!($L(X)<1) X"
^DD(430,257,3)="Answer must be 1-4 characters in length."
^DD(430,257,21,0)="^^1^1^2941019^"
^DD(430,257,21,1,0)="FMS accounting station number."
^DD(430,257,"DT")="2940519"
^DD(430,258,0)="FEDERAL/NON-FEDERAL/EMPLOYEE^S^0:FEDERAL;1:NON-FEDERAL;2:EMPLOYEE;^11;9^Q"
^DD(430,258,3)="This field will be used to identify the vendor as a Federal, Non-federal or employee vendor."
^DD(430,258,21,0)="^^1^1^2941019^"
^DD(430,258,21,1,0)="FMS accounting field to identify type of bill."
^DD(430,258,"DT")="2940401"
^DD(430,259,0)="REFUND/REIBURSMENT^S^01:REFUND;02:REIMBURSEMENT;3:SF REIBURSMENT;4:SF REFUND;24:INELIG. HEALTH;09:GENERAL FUND;20:EMPLOYEE;50:TORT FEASOR;^11;10^Q"
^DD(430,259,3)="This field will detmine if the refund or reibursment receivable will be established in FMS"
^DD(430,259,21,0)="^^1^1^2941104^^"
^DD(430,259,21,1,0)="Identifies bill category for FMS"
^DD(430,259,"DT")="2950302"
^DD(430,260,0)="SAT STATION^F^^11;11^K:$L(X)>2!($L(X)<2) X"
^DD(430,260,3)="Answer must be 2 characters in length."
^DD(430,260,21,0)="^^1^1^2940519^"
^DD(430,260,21,1,0)="This field is the Satellite station number"
^DD(430,260,"DT")="2940713"
^DD(430,261,0)="JOB NUMBER^F^^11;12^K:$L(X)>8!($L(X)<8) X"
^DD(430,261,3)="This field is used by FMS to record a job number on receivables"
^DD(430,261,21,0)="^^1^1^2941019^"
^DD(430,261,21,1,0)="FMS accounting element."
^DD(430,261,"DT")="2940404"
^DD(430,262,0)="XPROGAM^F^^11;13^K:$L(X)>9!($L(X)<9) X"
^DD(430,262,3)="used by FMS to indicate program within Organization Control Point"
^DD(430,262,21,0)="^^1^1^2941019^"
^DD(430,262,21,1,0)="FMS accounting element."
^DD(430,262,"DT")="2940404"
^DD(430,263,0)="REPORTING CATEGORY^F^^11;14^K:$L(X)>4!($L(X)<4) X"
^DD(430,263,3)="Answer must be 4 characters in length."
^DD(430,263,21,0)="^^2^2^2941019^"
^DD(430,263,21,1,0)=" "
^DD(430,263,21,2,0)="FMS accounting element."
^DD(430,263,"DT")="2940404"
^DD(430,264,0)="FMS LINE NUMBER^F^^11;4^K:$L(X)>3!($L(X)<1) X"
^DD(430,264,3)="Answer must be 1-3 characters in length."
^DD(430,264,21,0)="^^3^3^2971219^^"
^DD(430,264,21,1,0)="This field contains the line number assigned to an FMS billing document."
^DD(430,264,21,2,0)="This field will only be populated if the line number is different than"
^DD(430,264,21,3,0)="001.  Line number 001 is the default line number (for null entries)."
^DD(430,264,"DT")="2970909"
^DD(430,265,0)="VENDOR ID^F^^11;22^K:$L(X)>12!($L(X)<5) X"
^DD(430,265,3)="Answer must be 5-12 characters in length."
^DD(430,265,21,0)="^^1^1^2980916^"
^DD(430,265,21,1,0)="This field contains the vendor ID that was sent on the billing document."
^DD(430,265,"DT")="2980916"
^DD(430,266,0)="FMS TRANSMISSION DATE^DI^^203;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(430,266,1,0)="^.1"
^DD(430,266,1,1,0)="430^FMS"
^DD(430,266,1,1,1)="S ^PRCA(430,""FMS"",$E(X,1,30),DA)="""""
^DD(430,266,1,1,2)="K ^PRCA(430,""FMS"",$E(X,1,30),DA)"
^DD(430,266,1,1,"%D",0)="^^2^2^3030814^"
^DD(430,266,1,1,"%D",1,0)="This is a cross-reference on the FMS TRANSMISSION DATE field.  That field "
^DD(430,266,1,1,"%D",2,0)="stores the date that the document was transmitted to FMS."
^DD(430,266,1,1,"DT")="3030814"
^DD(430,266,21,0)="^.001^1^1^3030814^^"
^DD(430,266,21,1,0)="This field contains the date this document was transmitted to FMS."
^DD(430,266,23,0)="^^2^2^3030814^"
^DD(430,266,23,1,0)=" "
^DD(430,266,23,2,0)=" "
^DD(430,266,"DT")="3030819"
^DD(430,"B","ABLE TO LOCATE",87)=""
^DD(430,"B","ABLE TO PAY",86)=""
^DD(430,"B","ACCOUNT RECEIVABLE SECTION",13.1)=""
^DD(430,"B","ADMIN OFFICE",204)=""
^DD(430,"B","ADMINISTRATIVE COST BALANCE",73)=""
^DD(430,"B","AGENCY LOCATION CODE (ALC)",108)=""
^DD(430,"B","AGENT CASHIER",13)=""
^DD(430,"B","AGENT CASHIER ADDRESS",13)="1"
^DD(430,"B","AMENDED AMOUNT",35)=""
^DD(430,"B","AMENDED BY",34)=""
^DD(430,"B","AMENDED DATE",33)=""
^DD(430,"B","APPR. OFFICIAL'S TITLE",114)=""
^DD(430,"B","APPROPRIATION SYMBOL",18)=""
^DD(430,"B","APPROVED BY (BILLING)",94)=""
^DD(430,"B","APPROVED BY (FISCAL)",90)=""
^DD(430,"B","APPROVED DATE (SERVICE)",96)=""
^DD(430,"B","APPROVING OFFICIAL (SERVICE)",111)=""
^DD(430,"B","AR APPR.OFFICIAL'S TITLE",93)=""
^DD(430,"B","AR DATE SIGNED",92)=""
^DD(430,"B","AR ELECTRONIC SIGNATURE",91)=""
^DD(430,"B","BEGINNING BUDGET FY",201)=""
^DD(430,"B","BILL NO.",.01)=""
^DD(430,"B","BILL RESULTING FROM",4.5)=""
^DD(430,"B","BILLING AGENCY",107)=""
^DD(430,"B","BOC (SUB ACCOUNT)",253)=""
^DD(430,"B","CATEGORY",2)=""
^DD(430,"B","CERT SSN HIC ID NO.",242)=""
^DD(430,"B","COMMENTS",98)=""
^DD(430,"B","CONSUMER REP. AGENCY COST",84)=""
^DD(430,"B","CONTROL POINT",250)=""
^DD(430,"B","COST CENTER",251)=""
^DD(430,"B","COURT COST",75)=""
^DD(430,"B","CREDIT REP. ABLE TO PAY",89.4)=""
^DD(430,"B","CREDIT REP. COST",82)=""
^DD(430,"B","CREDIT REP. DATE RECEIVED",89.6)=""
^DD(430,"B","CREDIT REPT. DATE SENT",89.5)=""
^DD(430,"B","CURRENT BALANCE",11)=""
^DD(430,"B","CURRENT STATUS",8)=""
^DD(430,"B","DATE ACCOUNT ACTIVATED",60)=""
^DD(430,"B","DATE BILL PREPARED",10)=""
^DD(430,"B","DATE BILL REFERRED TO TOP",141)=""
^DD(430,"B","DATE CALM DONE",16)=""
^DD(430,"B","DATE FOLDER REVIEWED",89.8)=""
^DD(430,"B","DATE FORWARDED TO IRS",68.7)=""
^DD(430,"B","DATE RETURNED TO SERVICE",31)=""
^DD(430,"B","DATE SENT TO DMC",121)=""
^DD(430,"B","DATE SIGNED (APPROVED)",113)=""
^DD(430,"B","DATE STATUS UPDATED",14)=""
^DD(430,"B","DAY OF MON. PAYMENT DUE",42)=""
^DD(430,"B","DEBTOR",9)=""
^DD(430,"B","DELINQUENT DAYS",70)=""
^DD(430,"B","DESCRIPTION",106)=""
^DD(430,"B","DMC ADMIN BALANCE",124)=""
^DD(430,"B","DMC INTEREST BALANCE",123)=""
^DD(430,"B","DMC PRINCIPAL BALANCE",122)=""
^DD(430,"B","DMV LOCATION CHECK",83.1)=""
^DD(430,"B","DMV LOCATION COST",83)=""
^DD(430,"B","DOCUMENT NUMBER",110)=""
^DD(430,"B","ELECTRONIC SIGNATURE",112)=""
^DD(430,"B","EMPLOYEE ID NUMBER",248)=""
^DD(430,"B","EMPLOYEE INFORMATION DATA",245)=""
^DD(430,"B","EMPLOYER LOCATION",249)=""
^DD(430,"B","EMPLOYER NAME",247)=""
^DD(430,"B","EMPLOYMENT STATUS CODE",246)=""
^DD(430,"B","ENDING BUDGET FY",202)=""
^DD(430,"B","EXCESS PAYMENT AMOUNT",79.17)=""
^DD(430,"B","FCP/PROJ",206)=""
^DD(430,"B","FEDERAL/NON-FEDERAL/EMPLOYEE",258)=""
^DD(430,"B","FISCAL COMMENTS (RETURN)",36)=""
^DD(430,"B","FISCAL YEAR",1)=""
^DD(430,"B","FMS LINE NUMBER",264)=""
^DD(430,"B","FMS TRANSMISSION DATE",266)=""
^DD(430,"B","FORM TYPE",100)=""
^DD(430,"B","FUND",203)=""
^DD(430,"B","GENERAL LEDGER NO.",4)="1"
^DD(430,"B","GL NO.",4)=""
^DD(430,"B","GROUP NAME",243)=""
^DD(430,"B","GROUP NUMBER",244)=""
^DD(430,"B","HOLD LETTER COMMENTS",23)=""
^DD(430,"B","HOLD LETTER DATE",21)=""
^DD(430,"B","HOLD LETTER REASON",22)=""
^DD(430,"B","INSURED NAME",239)=""
^DD(430,"B","INSURED SEX",240)=""
^DD(430,"B","INTEREST BALANCE",72)=""
^DD(430,"B","IRS ABLE TO LOCATE",89.1)=""
^DD(430,"B","IRS ADMIN. BALANCE",68.91)=""
^DD(430,"B","IRS INTEREST BALANCE",68.9)=""
^DD(430,"B","IRS LOC. DATE RECEIVED",89.3)=""
^DD(430,"B","IRS LOC. DATE SENT",89.2)=""
^DD(430,"B","IRS LOCATION COST",81)=""
^DD(430,"B","IRS OFFSET LETTER",68.6)=""
^DD(430,"B","IRS PRINCIPAL BALANCE",68.8)=""
^DD(430,"B","JOB NUMBER",261)=""
^DD(430,"B","LAST ADMIN CHARGE DATE",.12)=""
^DD(430,"B","LAST INT/ADM CHARGE DATE",67)=""
^DD(430,"B","LAST INTEREST CHARGE DATE",.11)=""
^DD(430,"B","LAST LETTER DATE",68.1)=""
^DD(430,"B","LAST PENALTY CHARGE DATE",.13)=""
^DD(430,"B","LETTER1",61)=""
^DD(430,"B","LETTER2",62)=""
^DD(430,"B","LETTER3",63)=""
^DD(430,"B","LETTER4",68)=""
^DD(430,"B","MARSHAL FEE",74)=""
^DD(430,"B","MEDICARE CONT. ADJUSTMENT",131)=""
^DD(430,"B","MEDICARE UNREIMBURSABLE",132)=""
^DD(430,"B","NUMBER OF PAYMENTS",44)=""
^DD(430,"B","ORGANIZATIONAL CTRL POINT",205)=""
^DD(430,"B","ORIGINAL AMOUNT",3)=""
^DD(430,"B","ORIGINAL IRS LETTER AMOUNT",68.92)=""
^DD(430,"B","ORIGINAL IRS OFFSET AMOUNT",68.93)=""
^DD(430,"B","OUTSTANDING AB",79.14)=""
^DD(430,"B","OUTSTANDING CC",79.16)=""
^DD(430,"B","OUTSTANDING COURT COST",79.16)="1"
^DD(430,"B","OUTSTANDING IB",79.13)=""
^DD(430,"B","OUTSTANDING INTEREST BALANCE",79.13)="1"
^DD(430,"B","OUTSTANDING MARSHAL FEE",79.15)="1"
^DD(430,"B","OUTSTANDING MF",79.15)=""
^DD(430,"B","OUTSTANDING PB",79.12)=""
^DD(430,"B","OUTSTANDING PRINCIPAL BALANCE",79.12)="1"
^DD(430,"B","OVER LETTER3",69)=""
^DD(430,"B","PATIENT",7)=""
^DD(430,"B","PATIENT FOLDER REVIEWED",89.7)=""
^DD(430,"B","POSTAL LOC.DATE RECEIVED",89)=""
^DD(430,"B","POSTAL LOC.DATE SENT",88)=""
^DD(430,"B","POSTAL LOCATION COST",85)=""
^DD(430,"B","PREVIOUS STATUS",95)=""
^DD(430,"B","PRINCIPAL BALANCE",71)=""
^DD(430,"B","PROCESSED BY (SERVICE)",97)=""
^DD(430,"B","PT RELATIONSHIP",241)=""
^DD(430,"B","RC/DOJ REFERRAL AMOUNT",66)="1"
^DD(430,"B","RC/DOJ REFERRAL CODE",65)="1"
^DD(430,"B","RC/DOJ REFERRAL DATE",64)="1"
^DD(430,"B","RE-REFERRAL DATE",68.2)=""
^DD(430,"B","RECEIVABLE CODE",200)=""
^DD(430,"B","REFERRAL AMOUNT",66)=""
^DD(430,"B","REFERRAL CODE",65)=""
^DD(430,"B","REFERRAL COMMENT",68.95)=""
^DD(430,"B","REFERRAL DATE",64)=""
^DD(430,"B","REFERRAL DATE TO COWC",68.4)=""
^DD(430,"B","REFERRAL REASON CODE",68.94)=""
^DD(430,"B","REFERRED AMOUNT TO COWC",68.5)=""
^DD(430,"B","REFUND/REIBURSMENT",259)=""
^DD(430,"B","REFUNDED AMOUNT",79.18)=""
^DD(430,"B","REFUNDED BY",79.21)=""
^DD(430,"B","REFUNDED DATE",79.19)=""
^DD(430,"B","REPAYMENT AMOUNT DUE",43)=""
^DD(430,"B","REPAYMENT DUE DATES",51)=""
^DD(430,"B","REPAYMENT PLAN DATE",41)=""
^DD(430,"B","REPORTING CATEGORY",263)=""
^DD(430,"B","RETURNED BY",32)=""
^DD(430,"B","RETURNED DATE BY RC/DOJ",68.3)=""
^DD(430,"B","REVENUE SOURCE",255)=""
^DD(430,"B","RSC (CALC FOR ACCRUED BILLS)",255.1)=""
^DD(430,"B","SAT STATION",260)=""
^DD(430,"B","SECONDARY INSURANCE CARRIER",19)=""
^DD(430,"B","SEGMENT",20.1)=""
^DD(430,"B","SERVICE",101)=""
^DD(430,"B","SERVICE COMMENTS (AMEND)",37)=""
^DD(430,"B","SITE",12)=""
^DD(430,"B","STATION",257)=""
^DD(430,"B","STATUS CHANGE REMARKS",15)="1"
^DD(430,"B","STATUS REMARK",15)=""
^DD(430,"B","STATUS UPDATED BY",17)=""
^DD(430,"B","SUB BOC",254)=""
^DD(430,"B","SUB COST CENTER",252)=""
^DD(430,"B","SUB-REV SOURCE",256)=""
^DD(430,"B","TERTIARY INSURANCE CARRIER",19.1)=""
^DD(430,"B","TOP REFUND STATUS",142)=""
^DD(430,"B","TOP REFUND YEAR",144)=""
^DD(430,"B","TOP TRACE NUMBER",143)=""
^DD(430,"B","TOTAL PAID ADMINISTRATIVE COST",79)=""
^DD(430,"B","TOTAL PAID COURT COST",79.2)=""
^DD(430,"B","TOTAL PAID INTEREST",78)=""
^DD(430,"B","TOTAL PAID MARSHAL FEE",79.1)=""
^DD(430,"B","TOTAL PAID PRINCIPAL",77)=""
^DD(430,"B","TYPE OF BILL",200.2)=""
^DD(430,"B","TYPE OF CARE",15.1)=""
^DD(430,"B","VENDOR ID",265)=""
^DD(430,"B","VOUCHER NUMBER",104)=""
^DD(430,"B","XPROGAM",262)=""
^DD(430,"GL",0,1,.01)=""
^DD(430,"GL",0,2,2)=""
^DD(430,"GL",0,3,3)=""
^DD(430,"GL",0,4,4)=""
^DD(430,"GL",0,5,4.5)=""
^DD(430,"GL",0,6,13.1)=""
^DD(430,"GL",0,7,7)=""
^DD(430,"GL",0,8,8)=""
^DD(430,"GL",0,9,9)=""
^DD(430,"GL",0,10,10)=""
^DD(430,"GL",0,11,16)=""
^DD(430,"GL",0,12,12)=""
^DD(430,"GL",0,13,13)=""
^DD(430,"GL",0,14,14)=""
^DD(430,"GL",0,15,15)=""
^DD(430,"GL",0,16,15.1)=""
^DD(430,"GL",0,17,17)=""
^DD(430,"GL",0,18,18)=""
^DD(430,"GL",0,19,19)=""
^DD(430,"GL",0,20,19.1)=""
^DD(430,"GL",0,21,20.1)=""
^DD(430,"GL",.1,1,.11)=""
^DD(430,"GL",.1,2,.12)=""
^DD(430,"GL",.1,3,.13)=""
^DD(430,"GL",1,1,21)=""
^DD(430,"GL",1,2,22)=""
^DD(430,"GL",1,3,23)=""
^DD(430,"GL",2,0,1)=""
^DD(430,"GL",3,1,31)=""
^DD(430,"GL",3,2,32)=""
^DD(430,"GL",3,3,33)=""
^DD(430,"GL",3,4,34)=""
^DD(430,"GL",3,5,35)=""
^DD(430,"GL",3,6,36)=""
^DD(430,"GL",3,7,37)=""
^DD(430,"GL",4,1,41)=""
^DD(430,"GL",4,2,42)=""
^DD(430,"GL",4,3,43)=""
^DD(430,"GL",4,4,44)=""
^DD(430,"GL",5,0,51)=""
^DD(430,"GL",6,1,61)=""
^DD(430,"GL",6,2,62)=""
^DD(430,"GL",6,3,63)=""
^DD(430,"GL",6,4,64)=""
^DD(430,"GL",6,5,65)=""
^DD(430,"GL",6,6,66)=""
^DD(430,"GL",6,7,67)=""
^DD(430,"GL",6,8,68)=""
^DD(430,"GL",6,9,68.1)=""
^DD(430,"GL",6,10,68.2)=""
^DD(430,"GL",6,11,68.3)=""
^DD(430,"GL",6,12,68.4)=""
^DD(430,"GL",6,13,68.5)=""
^DD(430,"GL",6,14,68.6)=""
^DD(430,"GL",6,15,68.7)=""
^DD(430,"GL",6,16,68.8)=""
^DD(430,"GL",6,17,68.9)=""
^DD(430,"GL",6,18,68.91)=""
^DD(430,"GL",6,19,68.92)=""
^DD(430,"GL",6,20,68.93)=""
^DD(430,"GL",6,21,60)=""
^DD(430,"GL",6,22,68.94)=""
^DD(430,"GL",6,23,68.95)=""
^DD(430,"GL",7,1,71)=""
^DD(430,"GL",7,2,72)=""
^DD(430,"GL",7,3,73)=""
^DD(430,"GL",7,4,74)=""
^DD(430,"GL",7,5,75)=""
^DD(430,"GL",7,7,77)=""
^DD(430,"GL",7,8,78)=""
^DD(430,"GL",7,9,79)=""
^DD(430,"GL",7,10,79.1)=""
^DD(430,"GL",7,11,79.2)=""
^DD(430,"GL",7,12,79.12)=""
^DD(430,"GL",7,13,79.13)=""
^DD(430,"GL",7,14,79.14)=""
^DD(430,"GL",7,15,79.15)=""
^DD(430,"GL",7,16,79.16)=""
^DD(430,"GL",7,17,79.17)=""
^DD(430,"GL",7,18,79.18)=""
^DD(430,"GL",7,19,79.19)=""
^DD(430,"GL",7,21,79.21)=""
^DD(430,"GL",8,1,81)=""
^DD(430,"GL",8,2,82)=""
^DD(430,"GL",8,3,83)=""
^DD(430,"GL",8,4,84)=""
^DD(430,"GL",8,5,85)=""
^DD(430,"GL",8,6,86)=""
^DD(430,"GL",8,7,87)=""
^DD(430,"GL",8,8,88)=""
^DD(430,"GL",8,9,89)=""
^DD(430,"GL",8,10,89.1)=""
^DD(430,"GL",8,11,89.2)=""
^DD(430,"GL",8,12,89.3)=""
^DD(430,"GL",8,13,89.4)=""
^DD(430,"GL",8,14,89.5)=""
^DD(430,"GL",8,15,89.6)=""
^DD(430,"GL",8,16,89.7)=""
^DD(430,"GL",8,17,89.8)=""
^DD(430,"GL",8,18,83.1)=""
^DD(430,"GL",9,1,90)=""
^DD(430,"GL",9,2,91)=""
^DD(430,"GL",9,3,92)=""
^DD(430,"GL",9,4,93)=""
^DD(430,"GL",9,5,94)=""
^DD(430,"GL",9,6,95)=""
^DD(430,"GL",9,7,96)=""
^DD(430,"GL",9,8,97)=""
^DD(430,"GL",10,0,98)=""
^DD(430,"GL",11,1,250)=""
^DD(430,"GL",11,2,251)=""
^DD(430,"GL",11,3,252)=""
^DD(430,"GL",11,4,264)=""
^DD(430,"GL",11,5,254)=""
^DD(430,"GL",11,6,255)=""
^DD(430,"GL",11,7,256)=""
^DD(430,"GL",11,8,257)=""
^DD(430,"GL",11,9,258)=""
^DD(430,"GL",11,10,259)=""
^DD(430,"GL",11,11,260)=""
^DD(430,"GL",11,12,261)=""
^DD(430,"GL",11,13,262)=""
^DD(430,"GL",11,14,263)=""
^DD(430,"GL",11,15,201)=""
^DD(430,"GL",11,16,202)=""
^DD(430,"GL",11,17,203)=""
^DD(430,"GL",11,18,204)=""
^DD(430,"GL",11,19,205)=""
^DD(430,"GL",11,20,206)=""
^DD(430,"GL",11,21,253)=""
^DD(430,"GL",11,22,265)=""
^DD(430,"GL",11,23,255.1)=""
^DD(430,"GL",12,1,121)=""
^DD(430,"GL",12,2,122)=""
^DD(430,"GL",12,3,123)=""
^DD(430,"GL",12,4,124)=""
^DD(430,"GL",13,1,131)=""
^DD(430,"GL",13,2,132)=""
^DD(430,"GL",14,1,141)=""
^DD(430,"GL",14,2,142)=""
^DD(430,"GL",14,3,143)=""
^DD(430,"GL",14,4,144)=""
^DD(430,"GL",100,1,100)=""
^DD(430,"GL",100,2,101)=""
^DD(430,"GL",100,3,108)=""
^DD(430,"GL",100,4,104)=""
^DD(430,"GL",100,7,107)=""
^DD(430,"GL",100,8,110)=""
^DD(430,"GL",101,0,106)=""
^DD(430,"GL",104,1,111)=""
^DD(430,"GL",104,2,112)=""
^DD(430,"GL",104,3,113)=""
^DD(430,"GL",104,4,114)=""
^DD(430,"GL",200,8,200.2)=""
^DD(430,"GL",202,1,239)=""
^DD(430,"GL",202,2,240)=""
^DD(430,"GL",202,3,241)=""
^DD(430,"GL",202,4,242)=""
^DD(430,"GL",202,5,243)=""
^DD(430,"GL",202,6,244)=""
^DD(430,"GL",202,7,245)=""
^DD(430,"GL",202,8,246)=""
^DD(430,"GL",202,9,247)=""
^DD(430,"GL",202,10,248)=""
^DD(430,"GL",202,11,249)=""
^DD(430,"GL",203,1,266)=""
^DD(430,"IX",.01)=""
^DD(430,"IX",3)=""
^DD(430,"IX",7)=""
^DD(430,"IX",8)=""
^DD(430,"IX",9)=""
^DD(430,"IX",10)=""
^DD(430,"IX",14)=""
^DD(430,"IX",60)=""
^DD(430,"IX",64)=""
^DD(430,"IX",68.2)=""
^DD(430,"IX",68.3)=""
^DD(430,"IX",68.4)=""
^DD(430,"IX",142)=""
^DD(430,"IX",266)=""
^DD(430,"RQ",.01)=""
^DD(430,"RQ",2)=""
^DD(430,"RQ",3)=""
^DD(430,"RQ",4)=""
^DD(430,"RQ",4.5)=""
^DD(430,"RQ",7)=""
^DD(430,"RQ",8)=""
^DD(430,"RQ",9)=""
^DD(430,"RQ",10)=""
^DD(430,"RQ",15.1)=""
^DD(430,"RQ",68.94)=""
^DD(430,"RQ",68.95)=""
^DD(430,"RQ",71)=""
^DD(430,"RQ",100)=""
^DD(430,"RQ",101)=""
^DD(430,"RQ",203)=""
^DD(430,"RQ",251)=""
^DD(430,"RQ",253)=""
^DD(430,"RQ",255)=""
^DD(430,"SB",430.01,1)=""
^DD(430,"SB",430.02,106)=""
^DD(430,"SB",430.051,51)=""
^DD(430,"SB",430.098,98)=""
^DD(430.01,0)="FISCAL YEAR SUB-FIELD^^7^7"
^DD(430.01,0,"DT")="2920416"
^DD(430.01,0,"ID","Z1")="W ""   "" W:$P(^(0),U,2)]"""" ""$"",$P(^(0),U,2)"
^DD(430.01,0,"ID","Z2")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRC(442,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(442,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(430.01,0,"ID","Z3")="W ""   "",$P(^(0),U,4)"
^DD(430.01,0,"IX","B",430.01,.01)=""
^DD(430.01,0,"NM","FISCAL YEAR")=""
^DD(430.01,0,"UP")="430"
^DD(430.01,.01,0)="FISCAL YEAR^MRFX^^0;1^K:X'?2N X I $D(X) S DINUM=$S(+X<70:""3""_X,1:""2""_X)"
^DD(430.01,.01,.1)=""
^DD(430.01,.01,1,0)="^.1"
^DD(430.01,.01,1,1,0)="430.01^B"
^DD(430.01,.01,1,1,1)="S ^PRCA(430,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(430.01,.01,1,1,2)="K ^PRCA(430,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(430.01,.01,1,1,"%D",0)="^^2^2^2931014^^"
^DD(430.01,.01,1,1,"%D",1,0)="This cross-reference is used for look-up and sorts of the Fiscal"
^DD(430.01,.01,1,1,"%D",2,0)="Years for the bill."
^DD(430.01,.01,3)="Enter the two digit code for the Fiscal Year. For bills with more than one FY, complete the first entry, then enter the second at the next 'FISCAL YEAR //' prompt."
^DD(430.01,.01,4)=""
^DD(430.01,.01,21,0)="^^3^3^2920413^^^"
^DD(430.01,.01,21,1,0)="This is the 2-digit code representing the Fiscal Year, for instance,"
^DD(430.01,.01,21,2,0)="89 stands for Fiscal Year 1989.  Bills may have data for more than"
^DD(430.01,.01,21,3,0)="one Fiscal year."
^DD(430.01,.01,"DT")="2880815"
^DD(430.01,1,0)="CURR.PRIN.BAL.^RNJ9,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-9999.99) X"
^DD(430.01,1,3)="Type a Dollar Amount between -9999.99 and 999999.99, 2 Decimal Digits"
^DD(430.01,1,5,1,0)="430.01^7^1"
^DD(430.01,1,21,0)="^^1^1^2880808^"
^DD(430.01,1,21,1,0)="This is the current principal balance for the Fiscal Year."
^DD(430.01,1,"DT")="2871105"
^DD(430.01,2,0)="PAT REF NO.^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(430.01,2,1,0)="^.1^^0"
^DD(430.01,2,3)="Answer must be 1-10 characters in length."
^DD(430.01,2,12)="ONLY A RECEIVABLE PAT REF #"
^DD(430.01,2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=24"""
^DD(430.01,2,21,0)="^^2^2^2970815^^^^"
^DD(430.01,2,21,1,0)="***This field is obsolete with version 4.5 and will be deleted with an"
^DD(430.01,2,21,2,0)="upcoming cleanup patch."
^DD(430.01,2,"DT")="2970815"
^DD(430.01,3,0)="APPROPRIATION SYMBOL^FX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) D EN1^PRCHPAT"
^DD(430.01,3,1,0)="^.1"
^DD(430.01,3,1,1,0)="430^AJ^MUMPS"
^DD(430.01,3,1,1,1)="S Z0=$P(^PRCA(430,DA(1),2,DA,0),U,4) S:$E(Z0,3)?1N Z0=$E(Z0,1,2)_"" ""_$E(Z0,4,7) S $P(^PRCA(430,DA(1),0),U,18)=Z0 K Z0"
^DD(430.01,3,1,1,2)="Q"
^DD(430.01,3,1,1,"%D",0)="^^2^2^2920501^"
^DD(430.01,3,1,1,"%D",1,0)="This cross reference sets the Appropriation Symbol field 18 to the non"
^DD(430.01,3,1,1,"%D",2,0)="year appropriation symbol entered for this Fiscal Year."
^DD(430.01,3,3)="Enter the Appropriation with a space instead of the Fiscal Year (ie. 36 2431)"
^DD(430.01,3,4)="S PRCALD(""APPR"")="""",DIC=""^PRCD(420.3,"",DIC(0)=""QE"",D=""C"",Z0=$P(^PRCA(430,DA(1),2,DA,0),U,1),DIC(""S"")=""I $P(^(0),U,5)]"""""""""" D DQ^DICQ K PRCALD(""APPR""),DIC,Z0"
^DD(430.01,3,21,0)="^^2^2^2930909^^^^"
^DD(430.01,3,21,1,0)="This is the accounting symbol that represents the annual appropriation"
^DD(430.01,3,21,2,0)="for this bill."
^DD(430.01,3,"DT")="2880331"
^DD(430.01,4,0)="ALD CODE^P420.3'^PRCD(420.3,^0;5^Q"
^DD(430.01,4,1,0)="^.1^^0"
^DD(430.01,4,3)="Enter the first few characters of an ALD Code, then choose appropriate code from listing."
^DD(430.01,4,21,0)="^^2^2^2920430^^^^"
^DD(430.01,4,21,1,0)="This is a pointer to the ALD Code File (Appropriation/Limitation/Department)."
^DD(430.01,4,21,2,0)="New entries are not allowed."
^DD(430.01,4,"DT")="2871002"
^DD(430.01,5,0)="CALM CODE DONE^S^1:NOT DONE;2:DONE;^0;6^Q"
^DD(430.01,5,3)="Enter 2 for 'DONE' or 1 for 'NOT DONE'"
^DD(430.01,5,21,0)="^^2^2^2890112^^^"
^DD(430.01,5,21,1,0)="This is a set of codes, indicating whether or not a CALM code sheet"
^DD(430.01,5,21,2,0)="has been completed."
^DD(430.01,5,"DT")="2880901"
^DD(430.01,7,0)="FY ORIGINAL AMOUNT^RNJ9,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(430.01,7,1,0)="^.1"
^DD(430.01,7,1,1,0)="^^TRIGGER^430.01^1"
^DD(430.01,7,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCA(430,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(430.01,7,1,1,1.4)"
^DD(430.01,7,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRCA(430,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2)="""""
^DD(430.01,7,1,1,1.4)="S DIH=$S($D(^PRCA(430,DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=430.01,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(430.01,7,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRCA(430,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(430.01,7,1,1,2.1) X ^DD(430.01,7,1,1,2.4)"
^DD(430.01,7,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRCA(430,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2)-X"
^DD(430.01,7,1,1,2.4)="S DIH=$S($D(^PRCA(430,DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=430.01,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(430.01,7,1,1,"%D",0)="^^1^1^2920501^"
^DD(430.01,7,1,1,"%D",1,0)="This cross reference triggers the Curr.Prin.Bal field #1."
^DD(430.01,7,1,1,"CREATE CONDITION")="CURR.PRIN.BAL.="""""
^DD(430.01,7,1,1,"CREATE VALUE")="CURR.PRIN.BAL.+FY ORIGINAL AMOUNT"
^DD(430.01,7,1,1,"DELETE VALUE")="CURR.PRIN.BAL-OLD FY ORIGINAL AMOUNT"
^DD(430.01,7,1,1,"DT")="2911007"
^DD(430.01,7,1,1,"FIELD")="CURR.PRIN.BAL."
^DD(430.01,7,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(430.01,7,21,0)="^^1^1^2990127^^^^"
^DD(430.01,7,21,1,0)="This is the original amount of the charges for this Fiscal Year."
^DD(430.01,7,"DT")="2911007"
^DD(430.01,"B","ALD CODE",4)=""
^DD(430.01,"B","APPROPRIATION SYMBOL",3)=""
^DD(430.01,"B","CALM CODE DONE",5)=""
^DD(430.01,"B","CURR.PRIN.BAL.",1)=""
^DD(430.01,"B","FISCAL YEAR",.01)=""
^DD(430.01,"B","FY ORIGINAL AMOUNT",7)=""
^DD(430.01,"B","PAT REF NO.",2)=""
^DD(430.01,"GL",0,1,.01)=""
^DD(430.01,"GL",0,2,1)=""
^DD(430.01,"GL",0,3,2)=""
^DD(430.01,"GL",0,4,3)=""
^DD(430.01,"GL",0,5,4)=""
^DD(430.01,"GL",0,6,5)=""
^DD(430.01,"GL",0,8,7)=""
^DD(430.01,"IX",.01)=""
^DD(430.01,"IX",3)=""
^DD(430.01,"IX",7)=""
^DD(430.01,"RQ",.01)=""
^DD(430.01,"RQ",1)=""
^DD(430.01,"RQ",7)=""
^DD(430.02,0)="DESCRIPTION SUB-FIELD^^7^7"
^DD(430.02,0,"DT")="2930315"
^DD(430.02,0,"ID","Z1")="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(430.02,0,"ID","Z6")="W ""   "",$P(^(0),U,6)"
^DD(430.02,0,"IX","AC",430.02,3)=""
^DD(430.02,0,"IX","AD",430.02,4)=""
^DD(430.02,0,"IX","AE",430.02,6)=""
^DD(430.02,0,"IX","B",430.02,.01)=""
^DD(430.02,0,"NM","DESCRIPTION")=""
^DD(430.02,0,"UP")="430"
^DD(430.02,.01,0)="DATE OF CHARGES^MDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(430.02,.01,1,0)="^.1"
^DD(430.02,.01,1,1,0)="430.02^B"
^DD(430.02,.01,1,1,1)="S ^PRCA(430,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(430.02,.01,1,1,2)="K ^PRCA(430,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(430.02,.01,1,1,"%D",0)="^^1^1^2931014^^"
^DD(430.02,.01,1,1,"%D",1,0)="This cross-reference is used for look-up and sorts for the Date of Charges."
^DD(430.02,.01,3)="Enter date charges were incurred."
^DD(430.02,.01,21,0)="^^1^1^2930923^^^"
^DD(430.02,.01,21,1,0)="This is the date that the charges were incurred."
^DD(430.02,.01,"DT")="2880812"
^DD(430.02,2,0)="DESCRIPTION OF CHARGES^430.22^^1;0"
^DD(430.02,2,21,0)="^^1^1^2880930^^^^"
^DD(430.02,2,21,1,0)="This is a description of the individual charges on the bill."
^DD(430.02,3,0)="QUANTITY (UNITS)^RNJ8,2OX^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""3N.N)!'X X"
^DD(430.02,3,1,0)="^.1"
^DD(430.02,3,1,1,0)="430.02^AC^MUMPS"
^DD(430.02,3,1,1,1)="I $P(^PRCA(430,DA(1),101,DA,0),U,4)]"""" S Z0=($P(^(0),U,4)*X*100+.5\1/100),$P(^(0),U,6)=Z0 K Z0"
^DD(430.02,3,1,1,2)="Q"
^DD(430.02,3,1,1,"%D",0)="^^1^1^2920501^^"
^DD(430.02,3,1,1,"%D",1,0)="This cross reference calculates and sets the Total Amount field 6."
^DD(430.02,3,1,1,"DT")="2920501"
^DD(430.02,3,2)="S Y(0)=Y S:Y?1""."".N Y=""0""_Y"
^DD(430.02,3,2.1)="S:Y?1""."".N Y=""0""_Y"
^DD(430.02,3,3)="Type a Number greater than 0 and less than or equal to 99999, 2 Decimal Digits"
^DD(430.02,3,21,0)="^^2^2^2880930^"
^DD(430.02,3,21,1,0)="If the total amount of charges is computed using units of issue,"
^DD(430.02,3,21,2,0)="then this is the number of units that are being billed."
^DD(430.02,3,"DT")="2930315"
^DD(430.02,4,0)="UNIT COST^RNJ11,4^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(430.02,4,1,0)="^.1"
^DD(430.02,4,1,1,0)="430.02^AD^MUMPS"
^DD(430.02,4,1,1,1)="I $P(^PRCA(430,DA(1),101,DA,0),U,3)]"""" S Z0=($P(^(0),U,3)*X*100+.5\1/100),$P(^(0),U,6)=Z0 K Z0"
^DD(430.02,4,1,1,2)="Q"
^DD(430.02,4,1,1,"%D",0)="^^1^1^2920504^"
^DD(430.02,4,1,1,"%D",1,0)="This cross-reference calculates and sets the Total Amount field 6."
^DD(430.02,4,1,1,"DT")="2920504"
^DD(430.02,4,3)="Type a Number between 0 and 999999, 4 Decimal Digits"
^DD(430.02,4,21,0)="^^1^1^2880930^"
^DD(430.02,4,21,1,0)="This is the billing cost of a single unit of issue."
^DD(430.02,4,"DT")="2930315"
^DD(430.02,5,0)="UNIT^P420.5'^PRCD(420.5,^0;5^Q"
^DD(430.02,5,3)="Enter unit of issue, 'EA' for Each, 'BX' for Box, etc."
^DD(430.02,5,21,0)="^^1^1^2880930^^"
^DD(430.02,5,21,1,0)="This is the unit of issue -- EA, BX, DZ, etc."
^DD(430.02,5,"DT")="2870731"
^DD(430.02,6,0)="TOTAL AMOUNT^NJ11,2I^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(430.02,6,1,0)="^.1"
^DD(430.02,6,1,1,0)="430.02^AE^MUMPS"
^DD(430.02,6,1,1,1)="Q"
^DD(430.02,6,1,1,2)="Q"
^DD(430.02,6,1,1,"%D",0)="^^1^1^2920504^^"
^DD(430.02,6,1,1,"%D",1,0)="Obsolete version 3.7 cross-reference."
^DD(430.02,6,1,1,"DT")="2920501"
^DD(430.02,6,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(430.02,6,21,0)="^^2^2^2880930^"
^DD(430.02,6,21,1,0)="This total is computed by multiplying the number of units by the cost"
^DD(430.02,6,21,2,0)="per unit."
^DD(430.02,6,"DT")="2931007"
^DD(430.02,7,0)="ORDER NO.^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(430.02,7,3)="Enter optional Order No., 1 - 10 characters."
^DD(430.02,7,21,0)="^^2^2^2880930^"
^DD(430.02,7,21,1,0)="If the Service or Section has an order number associated with this bill"
^DD(430.02,7,21,2,0)="it is entered here."
^DD(430.02,7,"DT")="2870731"
^DD(430.02,"B","DATE OF CHARGES",.01)=""
^DD(430.02,"B","DESCRIPTION OF CHARGES",2)=""
^DD(430.02,"B","ORDER NO.",7)=""
^DD(430.02,"B","QUANTITY (UNITS)",3)=""
^DD(430.02,"B","TOTAL AMOUNT",6)=""
^DD(430.02,"B","UNIT",5)=""
^DD(430.02,"B","UNIT COST",4)=""
^DD(430.02,"GL",0,1,.01)=""
^DD(430.02,"GL",0,3,3)=""
^DD(430.02,"GL",0,4,4)=""
^DD(430.02,"GL",0,5,5)=""
^DD(430.02,"GL",0,6,6)=""
^DD(430.02,"GL",0,7,7)=""
^DD(430.02,"GL",1,0,2)=""
^DD(430.02,"IX",.01)=""
^DD(430.02,"IX",3)=""
^DD(430.02,"IX",4)=""
^DD(430.02,"IX",6)=""
^DD(430.02,"RQ",3)=""
^DD(430.02,"RQ",4)=""
^DD(430.02,"SB",430.22,2)=""
^DD(430.051,0)="REPAYMENT DUE DATES SUB-FIELD^^5^5"
^DD(430.051,0,"IX","B",430.051,.01)=""
^DD(430.051,0,"NM","REPAYMENT DUE DATES")=""
^DD(430.051,0,"UP")="430"
^DD(430.051,.01,0)="REPAYMENT DUE DATES^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430.051,.01,1,0)="^.1"
^DD(430.051,.01,1,1,0)="430.051^B"
^DD(430.051,.01,1,1,1)="S ^PRCA(430,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(430.051,.01,1,1,2)="K ^PRCA(430,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(430.051,.01,1,1,"%D",0)="^^1^1^2931014^^"
^DD(430.051,.01,1,1,"%D",1,0)="This cross-reference is used for look-up and sorts for Repayment Due Dates."
^DD(430.051,.01,3)="Enter a payment due date."
^DD(430.051,.01,21,0)="^^1^1^2880825^"
^DD(430.051,.01,21,1,0)="This is the date a payment is due."
^DD(430.051,.01,"DT")="2871216"
^DD(430.051,1,0)="PAYMENT RECEIVED^S^1:YES;0:NO;^0;2^Q"
^DD(430.051,1,3)="Enter '1' if payment was received, '0' if not."
^DD(430.051,1,21,0)="^^1^1^2880825^"
^DD(430.051,1,21,1,0)="This indicates whether or not a payment was received."
^DD(430.051,1,"DT")="2870814"
^DD(430.051,2,0)="SEND STATEMENT^S^1:YES;0:NO;^0;3^Q"
^DD(430.051,2,3)="Enter '1' if statement was mailed, '0' if not."
^DD(430.051,2,21,0)="^^1^1^2880825^"
^DD(430.051,2,21,1,0)="This indicates whether or not a statement of account was mailed."
^DD(430.051,2,"DT")="2871209"
^DD(430.051,4,0)="PAYMENT DATA^P433'^PRCA(433,^0;4^Q"
^DD(430.051,4,21,0)="^^1^1^2920430^"
^DD(430.051,4,21,1,0)="This is the AR transaction for this repayment date."
^DD(430.051,4,"DT")="2871106"
^DD(430.051,5,0)="DATE SENT PAYMENT STATEMENT^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(430.051,5,3)="Enter the date the payment statement is printed."
^DD(430.051,5,21,0)="^^1^1^2920430^^"
^DD(430.051,5,21,1,0)="This is the date the statement was sent to the debtor."
^DD(430.051,5,"DT")="2871216"
^DD(430.051,"B","DATE SENT PAYMENT STATEMENT",5)=""
^DD(430.051,"B","PAYMENT DATA",4)=""
^DD(430.051,"B","PAYMENT RECEIVED",1)=""
^DD(430.051,"B","REPAYMENT DUE DATES",.01)=""
^DD(430.051,"B","SEND STATEMENT",2)=""
^DD(430.051,"GL",0,1,.01)=""
^DD(430.051,"GL",0,2,1)=""
^DD(430.051,"GL",0,3,2)=""
^DD(430.051,"GL",0,4,4)=""
^DD(430.051,"GL",0,5,5)=""
^DD(430.051,"IX",.01)=""
^DD(430.098,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(430.098,0,"NM","COMMENTS")=""
^DD(430.098,0,"UP")="430"
^DD(430.098,.01,0)="COMMENTS^W^^0;1^Q"
^DD(430.098,.01,3)="Enter optional comment for this bill."
^DD(430.098,.01,21,0)="^^2^2^2881005^^"
^DD(430.098,.01,21,1,0)="This word processing field allows the AR Clerk or Supervisor to"
^DD(430.098,.01,21,2,0)="add a comment at the time the bill is audited."
^DD(430.098,.01,"DT")="2881004"
^DD(430.098,"B","COMMENTS",.01)=""
^DD(430.098,"GL",0,1,.01)=""
^DD(430.2,0)="FIELD^^14^14"
^DD(430.2,0,"DT")="2960524"
^DD(430.2,0,"ID",1)="W ?25,$P(^(0),U,2)"
^DD(430.2,0,"IX","AC",430.2,6)=""
^DD(430.2,0,"IX","B",430.2,.01)=""
^DD(430.2,0,"IX","C",430.2,1)=""
^DD(430.2,0,"NM","ACCOUNTS RECEIVABLE CATEGORY")=""
^DD(430.2,0,"PT",350.1,.03)=""
^DD(430.2,0,"PT",351.731,.02)=""
^DD(430.2,0,"PT",399.3,.06)=""
^DD(430.2,0,"PT",430,2)=""
^DD(430.2,0,"PT",430,15.1)=""
^DD(430.2,0,"PT",433.061,1)=""
^DD(430.2,0,"VR")="4.5"
^DD(430.2,0,"VRPK")="PRCA"
^DD(430.2,.01,0)="CATEGORY^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(430.2,.01,1,0)="^.1"
^DD(430.2,.01,1,1,0)="430.2^B"
^DD(430.2,.01,1,1,1)="S ^PRCA(430.2,""B"",$E(X,1,30),DA)="""""
^DD(430.2,.01,1,1,2)="K ^PRCA(430.2,""B"",$E(X,1,30),DA)"
^DD(430.2,.01,1,1,3)="Needed to look-up AR Categories by name"
^DD(430.2,.01,1,1,"%D",0)="^^2^2^2930602^^^"
^DD(430.2,.01,1,1,"%D",1,0)="This cross-reference is used for sorting and file look-up"
^DD(430.2,.01,1,1,"%D",2,0)="by AR Category."
^DD(430.2,.01,3)="Enter Category, 3-30 characters."
^DD(430.2,.01,21,0)="^^1^1^2880826^^^^"
^DD(430.2,.01,21,1,0)="These are the Categories for Accounts Receivable."
^DD(430.2,.01,"DT")="2930617"
^DD(430.2,1,0)="ABBREVIATION^FI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(430.2,1,1,0)="^.1"
^DD(430.2,1,1,1,0)="430.2^C"
^DD(430.2,1,1,1,1)="S ^PRCA(430.2,""C"",$E(X,1,30),DA)="""""
^DD(430.2,1,1,1,2)="K ^PRCA(430.2,""C"",$E(X,1,30),DA)"
^DD(430.2,1,1,1,3)="Needed to look-up AR Categories by abbreviation"
^DD(430.2,1,1,1,"%D",0)="^^2^2^2930602^^^"
^DD(430.2,1,1,1,"%D",1,0)="This cross-reference is used for sorting and file look-up"
^DD(430.2,1,1,1,"%D",2,0)="by the Abbreviation field."
^DD(430.2,1,3)="Enter abbreviation, 1-2 characters."
^DD(430.2,1,21,0)="^^1^1^2920415^^"
^DD(430.2,1,21,1,0)="This abbreviation can be used to enter or look-up the category."
^DD(430.2,1,"DT")="2930615"
^DD(430.2,2,0)="SEGMENT^NJ3,0^^0;3^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(430.2,2,.1)="AMIS SEGMENT NUMBER"
^DD(430.2,2,3)="Enter AMIS Segment, 1-3 characters."
^DD(430.2,2,21,0)="^^4^4^2920415^^"
^DD(430.2,2,21,1,0)="This is the category's segment for AMIS reporting purposes."
^DD(430.2,2,21,2,0)="When a bill is setup, the AMIS segment of the bill is determined"
^DD(430.2,2,21,3,0)="by the Category of bill and is stored with the bill under the AMIS"
^DD(430.2,2,21,4,0)="Segment field."
^DD(430.2,2,"DT")="2880818"
^DD(430.2,3,0)="GL #^RF^^0;4^K:$L(X)>4!($L(X)<4) X"
^DD(430.2,3,3)="Enter General Ledger Number, 4 characters."
^DD(430.2,3,21,0)="^^1^1^2880826^^^"
^DD(430.2,3,21,1,0)="This is the General Ledger Number."
^DD(430.2,3,"DT")="2870402"
^DD(430.2,4,0)="ALD CODE^P420.3'^PRCD(420.3,^0;5^Q"
^DD(430.2,4,.1)=""
^DD(430.2,4,3)="Enter ALD Code. Type '??' for listing."
^DD(430.2,4,21,0)="^^1^1^2880826^^^"
^DD(430.2,4,21,1,0)="This is the Appropriation/Limitation/Department code."
^DD(430.2,4,"DT")="2870615"
^DD(430.2,5,0)="TYPE^RS^P:PATIENT;O:OTHER-PERSON;T:THIRD PARTY;V:VENDOR;C:MEANS TEST PATIENT;N:INSTITUTION;^0;6^Q"
^DD(430.2,5,3)="Enter Type Code. Type '??' for listing."
^DD(430.2,5,21,0)="^^2^2^2920415^^^^"
^DD(430.2,5,21,1,0)="This code indicates the type of debtor that this category will"
^DD(430.2,5,21,2,0)="be used for."
^DD(430.2,5,"DT")="2881116"
^DD(430.2,6,0)="CATEGORY NUMBER^RNJ3,0IX^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$O(^PRCA(430.2,""AC"",X,0))>0,$O(^(0))'=DA K X"
^DD(430.2,6,1,0)="^.1"
^DD(430.2,6,1,1,0)="430.2^AC"
^DD(430.2,6,1,1,1)="S ^PRCA(430.2,""AC"",$E(X,1,30),DA)="""""
^DD(430.2,6,1,1,2)="K ^PRCA(430.2,""AC"",$E(X,1,30),DA)"
^DD(430.2,6,1,1,3)="Needed to find AR categories by category number"
^DD(430.2,6,1,1,"%D",0)="^^6^6^2930603^^^^"
^DD(430.2,6,1,1,"%D",1,0)="This cross-reference is used for look-ups by the Category"
^DD(430.2,6,1,1,"%D",2,0)="Number field."
^DD(430.2,6,1,1,"%D",3,0)=" "
^DD(430.2,6,1,1,"%D",4,0)="This cross-reference is used extensively throughout the AR package"
^DD(430.2,6,1,1,"%D",5,0)="and SHOULD NOT be edited.  By editing this field, it may cause"
^DD(430.2,6,1,1,"%D",6,0)="serious functional problems within the AR package."
^DD(430.2,6,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(430.2,6,21,0)="^^6^6^2920827^^^^"
^DD(430.2,6,21,1,0)="This field is assigned by the package and should not be edited.  This"
^DD(430.2,6,21,2,0)="field defines what type of AR category and is used throughout the"
^DD(430.2,6,21,3,0)="AR package.  Since this is a table file and the internal entry number"
^DD(430.2,6,21,4,0)="for categories may not be the same from site-to-site, this field"
^DD(430.2,6,21,5,0)="should remain the same regardless of the site where the file is located."
^DD(430.2,6,21,6,0)="This field is used for ""look-up"" purposes by the AR package."
^DD(430.2,6,"DT")="2890310"
^DD(430.2,7,0)="RECEIVABLE CODE^S^1:FEDERAL;2:NON-FEDERAL;^0;8^Q"
^DD(430.2,7,21,0)="^^4^4^2920804^^^"
^DD(430.2,7,21,1,0)="The receivable code defines if the category of bill is a Federal"
^DD(430.2,7,21,2,0)="Receivable or non-federal receivable.  This field is used to provide"
^DD(430.2,7,21,3,0)="a default when creating code sheets under the AR Accounting Technician"
^DD(430.2,7,21,4,0)="menu.  The code sheets require a ""federal receivable"" code."
^DD(430.2,7,"DT")="2910220"
^DD(430.2,9,0)="CHARGE INTEREST?^RS^0:NO;1:YES;^0;10^Q"
^DD(430.2,9,21,0)="^^4^4^2930602^"
^DD(430.2,9,21,1,0)="This field defines if this category of bill should be charged interest"
^DD(430.2,9,21,2,0)="based on the interest rate effective at the time the bill was created."
^DD(430.2,9,21,3,0)=" "
^DD(430.2,9,21,4,0)="Interest is calculated every night by the AR package for all bills."
^DD(430.2,9,"DT")="2930512"
^DD(430.2,10,0)="CHARGE ADMINISTRATIVE?^RS^0:NO;1:YES;^0;11^Q"
^DD(430.2,10,21,0)="^^6^6^2930603^^"
^DD(430.2,10,21,1,0)="This field defines if this category of bill should be charged"
^DD(430.2,10,21,2,0)="administrative charges based on the administrative amount effective"
^DD(430.2,10,21,3,0)="at the time the bill was created."
^DD(430.2,10,21,4,0)=" "
^DD(430.2,10,21,5,0)="Administrative charges are calculated for each account every night"
^DD(430.2,10,21,6,0)="by the AR package for all accounts."
^DD(430.2,10,"DT")="2930512"
^DD(430.2,11,0)="CHARGE PENALTY?^RS^0:NO;1:YES;^0;12^Q"
^DD(430.2,11,3)=""
^DD(430.2,11,21,0)="^^4^4^2930602^"
^DD(430.2,11,21,1,0)="This field defines if this category of bill should be charged penalty"
^DD(430.2,11,21,2,0)="based on the penalty rate effective at the time the bill was created."
^DD(430.2,11,21,3,0)=" "
^DD(430.2,11,21,4,0)="Interest is calculated every night by the AR package for all bills."
^DD(430.2,11,"DT")="2930512"
^DD(430.2,12,0)="ACCRUED?^SI^1:ACCRUED;0:NON-ACCRUED;2:EITHER;^0;9^Q"
^DD(430.2,12,3)="Enter a '1' in this field if the bills are accrued for this category; a '0' if the bills are not accrued; a '2' if the bill type could be either."
^DD(430.2,12,21,0)="^^1^1^2941019^"
^DD(430.2,12,21,1,0)="determines if bill is detail or summary."
^DD(430.2,12,"DT")="2941207"
^DD(430.2,13,0)="REFUND/REIMBURSEMENT^S^1:REFUND;2:REIMBURSEMENT;^0;13^Q"
^DD(430.2,13,21,0)="^^1^1^2941019^"
^DD(430.2,13,21,1,0)="Determines which type of FMS bill to be generated base on category."
^DD(430.2,13,"DT")="2940419"
^DD(430.2,14,0)="PARAGRAPH CODES^F^^0;14^K:$L(X)>90!($L(X)<1) X"
^DD(430.2,14,3)="Answer must be 1-90 characters in length."
^DD(430.2,14,21,0)="^^3^3^2960524^^"
^DD(430.2,14,21,1,0)="Based on the category of the bill, CCPC will print out paragraph on the"
^DD(430.2,14,21,2,0)="patient statement for the different rights and obligations.  This field"
^DD(430.2,14,21,3,0)="contains which paragraph/s goes with which type of bill."
^DD(430.2,14,"DT")="2960524"
^DD(430.2,"B","ABBREVIATION",1)=""
^DD(430.2,"B","ACCRUED?",12)=""
^DD(430.2,"B","ALD CODE",4)=""
^DD(430.2,"B","AMIS SEGMENT NUMBER",2)="1"
^DD(430.2,"B","CATEGORY",.01)=""
^DD(430.2,"B","CATEGORY NUMBER",6)=""
^DD(430.2,"B","CHARGE ADMINISTRATIVE?",10)=""
^DD(430.2,"B","CHARGE INTEREST?",9)=""
^DD(430.2,"B","CHARGE PENALTY?",11)=""
^DD(430.2,"B","GL #",3)=""
^DD(430.2,"B","PARAGRAPH CODES",14)=""
^DD(430.2,"B","RECEIVABLE CODE",7)=""
^DD(430.2,"B","REFUND/REIMBURSEMENT",13)=""
^DD(430.2,"B","SEGMENT",2)=""
^DD(430.2,"B","TYPE",5)=""
^DD(430.2,"GL",0,1,.01)=""
^DD(430.2,"GL",0,2,1)=""
^DD(430.2,"GL",0,3,2)=""
^DD(430.2,"GL",0,4,3)=""
^DD(430.2,"GL",0,5,4)=""
^DD(430.2,"GL",0,6,5)=""
^DD(430.2,"GL",0,7,6)=""
^DD(430.2,"GL",0,8,7)=""
^DD(430.2,"GL",0,9,12)=""
^DD(430.2,"GL",0,10,9)=""
^DD(430.2,"GL",0,11,10)=""
^DD(430.2,"GL",0,12,11)=""
^DD(430.2,"GL",0,13,13)=""
^DD(430.2,"GL",0,14,14)=""
^DD(430.2,"IX",.01)=""
^DD(430.2,"IX",1)=""
^DD(430.2,"IX",6)=""
^DD(430.2,"RQ",.01)=""
^DD(430.2,"RQ",3)=""
^DD(430.2,"RQ",5)=""
^DD(430.2,"RQ",6)=""
^DD(430.2,"RQ",9)=""
^DD(430.2,"RQ",10)=""
^DD(430.2,"RQ",11)=""
^DD(430.22,0)="DESCRIPTION OF CHARGES SUB-FIELD^^.01^1"
^DD(430.22,0,"NM","DESCRIPTION OF CHARGES")=""
^DD(430.22,0,"UP")="430.02"
^DD(430.22,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(430.22,.01,3)="Enter a description of these charges."
^DD(430.22,.01,21,0)="^^1^1^2880930^^^"
^DD(430.22,.01,21,1,0)="This is a description of the individual charges on the bill."
^DD(430.22,.01,"DT")="2870731"
^DD(430.22,"B","DESCRIPTION",.01)=""
^DD(430.22,"GL",0,1,.01)=""
^DD(430.3,0)="FIELD^^5^6"
^DD(430.3,0,"IX","AC",430.3,2)=""
^DD(430.3,0,"IX","B",430.3,.01)=""
^DD(430.3,0,"IX","C",430.3,1)=""
^DD(430.3,0,"NM","ACCOUNTS RECEIVABLE TRANS.TYPE")=""
^DD(430.3,0,"PT",349.4,2)=""
^DD(430.3,0,"PT",430,8)=""
^DD(430.3,0,"PT",430,95)=""
^DD(430.3,0,"PT",433,12)=""
^DD(430.3,0,"PT",433,18)=""
^DD(430.3,0,"VR")="4.5"
^DD(430.3,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(430.3,.01,.1)="TRANSACTION TYPE"
^DD(430.3,.01,1,0)="^.1"
^DD(430.3,.01,1,1,0)="430.3^B"
^DD(430.3,.01,1,1,1)="S ^PRCA(430.3,""B"",$E(X,1,30),DA)="""""
^DD(430.3,.01,1,1,2)="K ^PRCA(430.3,""B"",$E(X,1,30),DA)"
^DD(430.3,.01,1,1,3)="Needed to look-up AR Transactions by name"
^DD(430.3,.01,1,1,"%D",0)="^^2^2^2930602^^"
^DD(430.3,.01,1,1,"%D",1,0)="This cross-reference is used for sorting and file look-up"
^DD(430.3,.01,1,1,"%D",2,0)="by the AR Transaction Type."
^DD(430.3,.01,3)="Enter Transaction Type, 3-30 characters."
^DD(430.3,.01,21,0)="^^2^2^2881007^^"
^DD(430.3,.01,21,1,0)="This is the type used to identify transactions in the Transaction"
^DD(430.3,.01,21,2,0)="File (No. 433)."
^DD(430.3,.01,"DT")="2930615"
^DD(430.3,1,0)="ABBREVIATION^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(430.3,1,1,0)="^.1"
^DD(430.3,1,1,1,0)="430.3^C"
^DD(430.3,1,1,1,1)="S ^PRCA(430.3,""C"",$E(X,1,30),DA)="""""
^DD(430.3,1,1,1,2)="K ^PRCA(430.3,""C"",$E(X,1,30),DA)"
^DD(430.3,1,1,1,3)="Needed to look-up AR Transaction types by abbreviation"
^DD(430.3,1,1,1,"%D",0)="^^2^2^2930602^^"
^DD(430.3,1,1,1,"%D",1,0)="This cross-reference is used for look-up and sorting"
^DD(430.3,1,1,1,"%D",2,0)="transaction types by Abbreviation."
^DD(430.3,1,3)="Enter a unique abbreviation, 1-2 characters."
^DD(430.3,1,21,0)="^^2^2^2880826^^"
^DD(430.3,1,21,1,0)="This is an abbreviation that can be used to enter or look-up"
^DD(430.3,1,21,2,0)="the transaction."
^DD(430.3,1,"DT")="2930615"
^DD(430.3,2,0)="STATUS NUMBER^NJ3,0XI^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$O(^PRCA(430.3,""AC"",X,0))>0,$O(^(0))'=DA K X"
^DD(430.3,2,1,0)="^.1"
^DD(430.3,2,1,1,0)="430.3^AC^MUMPS"
^DD(430.3,2,1,1,1)="S ^PRCA(430.3,""AC"",X,DA)="""""
^DD(430.3,2,1,1,2)="K ^PRCA(430.3,""AC"",X,DA)"
^DD(430.3,2,1,1,3)="Needed to look-up AR Transactions by number"
^DD(430.3,2,1,1,"%D",0)="^^2^2^2930602^^^^"
^DD(430.3,2,1,1,"%D",1,0)="This cross-reference is used for look-up by Status Number."
^DD(430.3,2,1,1,"%D",2,0)=" "
^DD(430.3,2,3)="Enter a whole number between 0 and 999."
^DD(430.3,2,21,0)="^^2^2^2880826^"
^DD(430.3,2,21,1,0)="This is an internal number which the system uses to prevent"
^DD(430.3,2,21,2,0)="duplicate transaction types. The user will not see this number."
^DD(430.3,2,"DT")="2930615"
^DD(430.3,3,0)="CALM CODE TYPE^S^0:NO;1:YES;^0;4^Q"
^DD(430.3,3,3)="Enter 1 if the Transaction Type needs a CALM Code Sheet, or 0 if it doesn't."
^DD(430.3,3,21,0)="^^2^2^2880826^"
^DD(430.3,3,21,1,0)="This is a code used to indicate whether or not this transaction"
^DD(430.3,3,21,2,0)="type needs to generate a CALM code sheet."
^DD(430.3,3,"DT")="2880331"
^DD(430.3,4,0)="OLD BILL STATUS^S^0:NO;1:YES;^0;5^Q"
^DD(430.3,4,3)="ANSWER IF THIS TYPE CAN BE STATUS OF THE 'OLD BILL'"
^DD(430.3,4,21,0)="^^3^3^2880928^^^^"
^DD(430.3,4,21,1,0)="This field is set to a flag that will not allow the transaction"
^DD(430.3,4,21,2,0)="type to be used with old bills that are back-loaded into the"
^DD(430.3,4,21,3,0)="system."
^DD(430.3,4,"DT")="2880928"
^DD(430.3,5,0)="CBO EXTRACT FLAG^S^1:Include;0:Do not Include;^0;6^Q"
^DD(430.3,5,3)="Enter '1' to include records with this transaction type for the data extract."
^DD(430.3,5,21,0)="^^5^5^3030722^"
^DD(430.3,5,21,1,0)="This field will be used as a flag to determine if a record with"
^DD(430.3,5,21,2,0)="this transaction type should be included in the CBOC data extract."
^DD(430.3,5,21,3,0)="  "
^DD(430.3,5,21,4,0)="'1' will include this type and no entry or '0' will not include this"
^DD(430.3,5,21,5,0)="type."
^DD(430.3,5,"DT")="3031119"
^DD(430.3,"B","ABBREVIATION",1)=""
^DD(430.3,"B","CALM CODE TYPE",3)=""
^DD(430.3,"B","CBO EXTRACT FLAG",5)=""
^DD(430.3,"B","NAME",.01)=""
^DD(430.3,"B","OLD BILL STATUS",4)=""
^DD(430.3,"B","STATUS NUMBER",2)=""
^DD(430.3,"B","TRANSACTION TYPE",.01)="1"
^DD(430.3,"GL",0,1,.01)=""
^DD(430.3,"GL",0,2,1)=""
^DD(430.3,"GL",0,3,2)=""
^DD(430.3,"GL",0,4,3)=""
^DD(430.3,"GL",0,5,4)=""
^DD(430.3,"GL",0,6,5)=""
^DD(430.3,"IX",.01)=""
^DD(430.3,"IX",1)=""
^DD(430.3,"IX",2)=""
^DD(430.3,"RQ",.01)=""
^DD(430.3,"RQ",1)=""
^DD(430.6,0)="FIELD^^3^4"
^DD(430.6,0,"DDA")="N"
^DD(430.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(430.6,0,"IX","B",430.6,.01)=""
^DD(430.6,0,"IX","C",430.6,1)=""
^DD(430.6,0,"IX","D",430.6,3)=""
^DD(430.6,0,"NM","AR DEBT LIST")=""
^DD(430.6,0,"PT",399.3,.11)=""
^DD(430.6,0,"PT",430,4.5)=""
^DD(430.6,0,"VR")="4.5"
^DD(430.6,.01,0)="BRIEF NAME^RF^^0;1^K:$L(X)>5!($L(X)<2) X"
^DD(430.6,.01,.1)="AR DEBTS BRIEF NAME LIST"
^DD(430.6,.01,1,0)="^.1"
^DD(430.6,.01,1,1,0)="430.6^B"
^DD(430.6,.01,1,1,1)="S ^PRCA(430.6,""B"",$E(X,1,30),DA)="""""
^DD(430.6,.01,1,1,2)="K ^PRCA(430.6,""B"",$E(X,1,30),DA)"
^DD(430.6,.01,1,1,3)="This is the brief name cross-reference."
^DD(430.6,.01,1,1,"%D",0)="^^2^2^2930603^^^"
^DD(430.6,.01,1,1,"%D",1,0)="This cross-reference is used for sorting and file look-up"
^DD(430.6,.01,1,1,"%D",2,0)="by AR Debt List."
^DD(430.6,.01,3)="Enter the brief name for a bill, 2-5 characters."
^DD(430.6,.01,21,0)="^^1^1^2910516^^"
^DD(430.6,.01,21,1,0)="This is the brief name used to call up the cause of a bill."
^DD(430.6,.01,"DT")="2871207"
^DD(430.6,1,0)="FULL NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X"
^DD(430.6,1,1,0)="^.1"
^DD(430.6,1,1,1,0)="430.6^C"
^DD(430.6,1,1,1,1)="S ^PRCA(430.6,""C"",$E(X,1,30),DA)="""""
^DD(430.6,1,1,1,2)="K ^PRCA(430.6,""C"",$E(X,1,30),DA)"
^DD(430.6,1,1,1,3)="This is the full name cross-reference."
^DD(430.6,1,1,1,"%D",0)="^^2^2^2930603^^"
^DD(430.6,1,1,1,"%D",1,0)="This cross-reference is used for look-up and sorting by the"
^DD(430.6,1,1,1,"%D",2,0)="Full Name field."
^DD(430.6,1,3)="Enter the full name for the cause of a bill, 3-60 characters."
^DD(430.6,1,21,0)="^^2^2^2910516^^^"
^DD(430.6,1,21,1,0)="This is the full name for the cause of a bill."
^DD(430.6,1,21,2,0)="It is used in the form letters."
^DD(430.6,1,"DT")="2871207"
^DD(430.6,2,0)="CODE^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(430.6,2,3)=""
^DD(430.6,2,21,0)="^^2^2^2910516^^"
^DD(430.6,2,21,1,0)="This is an internal code number used for file maintenance. The user"
^DD(430.6,2,21,2,0)="will not see this number."
^DD(430.6,2,"DT")="2871207"
^DD(430.6,3,0)="TYPE^RS^CP:PATIENT;V:VENDOR;NT:THIRD PARTY/INSTITUTION;O:PERSON;X:ALL TYPE;NOPV:VENDOR/PERSON/PATIENT/INSTITUTION;IO:INSURANCE/PERSON;NV:INSTITUTION/VENDOR;VO:VENDOR/PERSON;VON:VENDOR/PERSON/INSTITUTION;^0;4^Q"
^DD(430.6,3,.1)=""
^DD(430.6,3,1,0)="^.1"
^DD(430.6,3,1,1,0)="430.6^D"
^DD(430.6,3,1,1,1)="S ^PRCA(430.6,""D"",$E(X,1,30),DA)="""""
^DD(430.6,3,1,1,2)="K ^PRCA(430.6,""D"",$E(X,1,30),DA)"
^DD(430.6,3,1,1,3)="This is the list type cross-reference."
^DD(430.6,3,1,1,"%D",0)="^^2^2^2930603^^"
^DD(430.6,3,1,1,"%D",1,0)="This cross-reference is used for look-up and sorting by the"
^DD(430.6,3,1,1,"%D",2,0)="AR Debt List Type field."
^DD(430.6,3,3)="Enter bill type. Enter '??' for current types."
^DD(430.6,3,21,0)="^^2^2^2910516^^^^"
^DD(430.6,3,21,1,0)="This is the type of the bill - Vendor, third party, patient, etc."
^DD(430.6,3,21,2,0)="Enter '??' for a listing of available types."
^DD(430.6,3,"DT")="2881123"
^DD(430.6,"B","AR DEBTS BRIEF NAME LIST",.01)="1"
^DD(430.6,"B","BRIEF NAME",.01)=""
^DD(430.6,"B","CODE",2)=""
^DD(430.6,"B","FULL NAME",1)=""
^DD(430.6,"B","TYPE",3)=""
^DD(430.6,"GL",0,1,.01)=""
^DD(430.6,"GL",0,2,1)=""
^DD(430.6,"GL",0,3,2)=""
^DD(430.6,"GL",0,4,3)=""
^DD(430.6,"IX",.01)=""
^DD(430.6,"IX",1)=""
^DD(430.6,"IX",3)=""
^DD(430.6,"RQ",.01)=""
^DD(430.6,"RQ",1)=""
^DD(430.6,"RQ",3)=""
^DD(430.8,0)="FIELD^^1^5"
^DD(430.8,0,"DDA")="N"
^DD(430.8,0,"DT")="2930505"
^DD(430.8,0,"IX","B",430.8,.01)=""
^DD(430.8,0,"NM","AR ARCHIVE")=""
^DD(430.8,0,"VR")="4.5"
^DD(430.8,.01,0)="IDENTIFIER^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(430.8,.01,1,0)="^.1"
^DD(430.8,.01,1,1,0)="430.8^B"
^DD(430.8,.01,1,1,1)="S ^PRCAK(430.8,""B"",$E(X,1,30),DA)="""""
^DD(430.8,.01,1,1,2)="K ^PRCAK(430.8,""B"",$E(X,1,30),DA)"
^DD(430.8,.01,1,1,"%D",0)="^^1^1^2930602^"
^DD(430.8,.01,1,1,"%D",1,0)="This cross-reference is used for look-up and sorting by Identifier."
^DD(430.8,.01,3)="Answer must be 3-30 characters in length."
^DD(430.8,.01,21,0)="^^5^5^2931014^^^"
^DD(430.8,.01,21,1,0)="This field is the record identifier. It is generated by the AR Archive"
^DD(430.8,.01,21,2,0)="module and should not be edited by FileMan.  It is the Bill Number of the"
^DD(430.8,.01,21,3,0)="AR archived record concatenated with a zero if the entry contains the bill "
^DD(430.8,.01,21,4,0)="record or concatenated with the bill's transaction sequence number if the  "
^DD(430.8,.01,21,5,0)="entry contains the bill's transaction data."
^DD(430.8,.01,"DT")="2930325"
^DD(430.8,.02,0)="DEBTOR^RF^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(430.8,.02,3)="Answer must be 3-45 characters in length."
^DD(430.8,.02,21,0)="^^1^1^2930602^"
^DD(430.8,.02,21,1,0)="The name of the Debtor to which the archived entry is for."
^DD(430.8,.02,"DT")="2930325"
^DD(430.8,.03,0)="SSN^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<100000000)!(X?.E1"".""1N.N) X"
^DD(430.8,.03,3)="Type a Number between 100000000 and 999999999, 0 Decimal Digits"
^DD(430.8,.03,21,0)="^^2^2^2930602^"
^DD(430.8,.03,21,1,0)="The Social Security Number of the Patient Debtor the archived record"
^DD(430.8,.03,21,2,0)="is for."
^DD(430.8,.03,"DT")="2930325"
^DD(430.8,.04,0)="TRANSACTION NO.^NJ15,0^^0;4^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(430.8,.04,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(430.8,.04,21,0)="^^1^1^2930602^"
^DD(430.8,.04,21,1,0)="The internal transaction number in AR Transaction File 433."
^DD(430.8,.04,"DT")="2930505"
^DD(430.8,1,0)="RECORD^430.81^^1;0"
^DD(430.8,1,21,0)="^^2^2^2930923^^^"
^DD(430.8,1,21,1,0)="The data record for the archived entry.  The data items are formatted"
^DD(430.8,1,21,2,0)="by Record Label:field value."
^DD(430.8,"B","DEBTOR",.02)=""
^DD(430.8,"B","IDENTIFIER",.01)=""
^DD(430.8,"B","RECORD",1)=""
^DD(430.8,"B","SSN",.03)=""
^DD(430.8,"B","TRANSACTION NO.",.04)=""
^DD(430.8,"GL",0,1,.01)=""
^DD(430.8,"GL",0,2,.02)=""
^DD(430.8,"GL",0,3,.03)=""
^DD(430.8,"GL",0,4,.04)=""
^DD(430.8,"GL",1,0,1)=""
^DD(430.8,"IX",.01)=""
^DD(430.8,"RQ",.01)=""
^DD(430.8,"RQ",.02)=""
^DD(430.8,"SB",430.81,1)=""
^DD(430.81,0)="RECORD SUB-FIELD^^.01^1"
^DD(430.81,0,"DT")="2930325"
^DD(430.81,0,"NM","RECORD")=""
^DD(430.81,0,"UP")="430.8"
^DD(430.81,.01,0)="RECORD^W^^0;1^Q"
^DD(430.81,.01,21,0)="^^2^2^2930923^"
^DD(430.81,.01,21,1,0)="The data record for the archived entry.  The data items are formatted"
^DD(430.81,.01,21,2,0)="by Record Label:field value."
^DD(430.81,.01,"DT")="2930325"
^DD(430.81,"B","RECORD",.01)=""
^DD(430.81,"GL",0,1,.01)=""
^DD(433,0)="FIELD^^93^53"
^DD(433,0,"DT")="2940225"
^DD(433,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCA(430,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(430,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(433,0,"ID",11)="W:$D(^(1)) ""   "",$E($P(^(1),U,1),4,5)_""-""_$E($P(^(1),U,1),6,7)_""-""_$E($P(^(1),U,1),2,3)"
^DD(433,0,"ID",12)="S %I=Y,Y=$S('$D(^(1)):"""",$D(^PRCA(430.3,+$P(^(1),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(430.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(433,0,"ID","WR1")="I +$P(^(0),U,4)<2 D EN^DDIOL(""  TRANSACTION STATUS: INCOMPLETE"","""",""?0"")"
^DD(433,0,"IX","AC",433,19)=""
^DD(433,0,"IX","ACE",433,89)=""
^DD(433,0,"IX","AD",433,11)=""
^DD(433,0,"IX","AE",433,3)=""
^DD(433,0,"IX","AEOB",433,54)=""
^DD(433,0,"IX","AEOB1",433,12)=""
^DD(433,0,"IX","AF",433,13)=""
^DD(433,0,"IX","AG",433,5.03)=""
^DD(433,0,"IX","AH",433,17)=""
^DD(433,0,"IX","AI",433,12)=""
^DD(433,0,"IX","AP",433,20)=""
^DD(433,0,"IX","AT1",433,19)=""
^DD(433,0,"IX","AT2",433,12)=""
^DD(433,0,"IX","ATD",433,19)=""
^DD(433,0,"IX","AW",433,12)=""
^DD(433,0,"IX","B",433,.01)=""
^DD(433,0,"IX","C",433,.03)=""
^DD(433,0,"IX","CA",433,88)=""
^DD(433,0,"NM","AR TRANSACTION")=""
^DD(433,0,"PT",347,.08)=""
^DD(433,0,"PT",430.051,4)=""
^DD(433,0,"PT",433,20)=""
^DD(433,0,"VR")="4.5"
^DD(433,.01,0)="TRANSACTION NUMBER^RNJ6,0XI^^0;1^K:+X'=X!(X>999999)!(X'>0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=+X"
^DD(433,.01,.1)="ACCOUNTS RECEIVABLE TRANSACTION NUMBER"
^DD(433,.01,1,0)="^.1^^-1"
^DD(433,.01,1,1,0)="433^B"
^DD(433,.01,1,1,1)="S ^PRCA(433,""B"",$E(X,1,30),DA)="""""
^DD(433,.01,1,1,2)="K ^PRCA(433,""B"",$E(X,1,30),DA)"
^DD(433,.01,1,1,3)="This is the transaction number cross-reference."
^DD(433,.01,1,1,"%D",0)="^^2^2^2930603^^"
^DD(433,.01,1,1,"%D",1,0)="This cross-reference is used for sorting and file look-up by"
^DD(433,.01,1,1,"%D",2,0)="Transaction Number."
^DD(433,.01,3)="Enter an existing Transaction Number, type '??' for a listing."
^DD(433,.01,"DT")="2970117"
^DD(433,.02,0)="FISCAL YEAR^433.01I^^4;0"
^DD(433,.03,0)="BILL NUMBER^RP430'X^PRCA(430,^0;2^Q"
^DD(433,.03,1,0)="^.1^^-1"
^DD(433,.03,1,1,0)="433^C"
^DD(433,.03,1,1,1)="S ^PRCA(433,""C"",$E(X,1,30),DA)="""""
^DD(433,.03,1,1,2)="K ^PRCA(433,""C"",$E(X,1,30),DA)"
^DD(433,.03,1,1,3)="This is the bill number cross-reference."
^DD(433,.03,1,1,"%D",0)="^^2^2^2931014^^^^"
^DD(433,.03,1,1,"%D",1,0)="This cross-reference is used to determine the transaction entries"
^DD(433,.03,1,1,"%D",2,0)="associated with each internal bill number (from file 430)."
^DD(433,.03,1,2,0)="^^TRIGGER^433^19"
^DD(433,.03,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PRCA(433,D0,1)):^(1),1:"""") S X=$P(Y(1),U,9)="""" I X S X=DIV S Y(1)=$S($D(^PRCA(433,D0,1)):^(1),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D NOW^%DTC S X=% X ^DD(433,.03,1,2,1.4)"
^DD(433,.03,1,2,1.4)="S DIH=$S($D(^PRCA(433,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,9)=DIV,DIH=433,DIG=19 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(433,.03,1,2,2)="Q"
^DD(433,.03,1,2,3)="This is the cross-reference for the debtor and date entered."
^DD(433,.03,1,2,"%D",0)="^^2^2^2930603^"
^DD(433,.03,1,2,"%D",1,0)="This cross-reference is needed to log an 'activity' to the patient"
^DD(433,.03,1,2,"%D",2,0)="account for printing patient statements and various reports."
^DD(433,.03,1,2,"CREATE CONDITION")="DATE ENTERED="""""
^DD(433,.03,1,2,"CREATE VALUE")="D NOW^%DTC S X=%"
^DD(433,.03,1,2,"DELETE VALUE")="NO EFFECT"
^DD(433,.03,1,2,"DT")="2930603"
^DD(433,.03,1,2,"FIELD")="DATE ENTERED"
^DD(433,.03,3)="Enter the bill number from the Accounts Receivable File (430)."
^DD(433,.03,21,0)="^^1^1^2931014^^^"
^DD(433,.03,21,1,0)="This is the bill number from File 430."
^DD(433,.03,"DT")="2930603"
^DD(433,3,0)="CALM CODE DONE^RS^1:NOT DONE;0:DONE;^0;3^Q"
^DD(433,3,1,0)="^.1"
^DD(433,3,1,1,0)="433^AE^MUMPS"
^DD(433,3,1,1,1)="I +X=1 S ^PRCA(433,""AE"",$E(X,1,30),DA)="""""
^DD(433,3,1,1,2)="K ^PRCA(433,""AE"",$E(X,1,30),DA)"
^DD(433,3,1,1,3)="This is the calm code done cross-reference."
^DD(433,3,1,1,"%D",0)="^^1^1^2930603^^"
^DD(433,3,1,1,"%D",1,0)="This cross-reference is used for sorting by Calm Code status."
^DD(433,3,21,0)="^^2^2^2881011^"
^DD(433,3,21,1,0)="This flag indicates whether or not a CALM code sheet has been"
^DD(433,3,21,2,0)="completed for this transaction."
^DD(433,3,"DT")="2880901"
^DD(433,4,0)="TRANSACTION STATUS^S^1:INCOMPLETE;2:COMPLETE;^0;4^Q"
^DD(433,4,21,0)="^^1^1^2910516^^"
^DD(433,4,21,1,0)="This flag indicates whether or not this transaction is complete."
^DD(433,4,"DT")="2871116"
^DD(433,5,0)="DATE CALM DONE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(433,5,1,0)="^.1^^0"
^DD(433,5,3)="Enter date the CALM Code sheet was done."
^DD(433,5,21,0)="^^1^1^2881011^^"
^DD(433,5,21,1,0)="This is the date that the CALM code sheet was completed."
^DD(433,5,"DT")="2880219"
^DD(433,5.02,0)="BRIEF COMMENT^RF^^5;2^K:$L(X)>30!($L(X)<3) X"
^DD(433,5.02,3)="Answer must be 3-30 characters in length."
^DD(433,5.02,21,0)="^^3^3^2931014^^"
^DD(433,5.02,21,1,0)="This field contains a brief description of the reason for the"
^DD(433,5.02,21,2,0)="transaction.  This description is displayed on the profile"
^DD(433,5.02,21,3,0)="option as a single line item."
^DD(433,5.02,"DT")="2930312"
^DD(433,5.03,0)="FOLLOW-UP DATE^D^^5;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(433,5.03,1,0)="^.1"
^DD(433,5.03,1,1,0)="433^AG"
^DD(433,5.03,1,1,1)="S ^PRCA(433,""AG"",$E(X,1,30),DA)="""""
^DD(433,5.03,1,1,2)="K ^PRCA(433,""AG"",$E(X,1,30),DA)"
^DD(433,5.03,1,1,3)="This is the follow-up date cross-reference."
^DD(433,5.03,1,1,"%D",0)="^^1^1^2930603^"
^DD(433,5.03,1,1,"%D",1,0)="    This cross-reference is used for the Follow-up List."
^DD(433,5.03,1,1,"DT")="2930312"
^DD(433,5.03,21,0)="^^7^7^2931014^^^"
^DD(433,5.03,21,1,0)="This date represents the date that an action or follow-up"
^DD(433,5.03,21,2,0)="should take place by MCCR.  For example, if an"
^DD(433,5.03,21,3,0)="insurance company estimates that a payment should be received"
^DD(433,5.03,21,4,0)="by the VA in two weeks, then the follow-up date should be"
^DD(433,5.03,21,5,0)="set to two weeks.  A report will be generated in two weeks"
^DD(433,5.03,21,6,0)="displaying this transaction as a reminder to follow-up on the"
^DD(433,5.03,21,7,0)="payment."
^DD(433,5.03,"DT")="2930312"
^DD(433,6,0)="SEGMENT^NJ3,0^^0;6^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(433,6,3)="Type a Number between 0 and 500, 0 Decimal Digits"
^DD(433,6,21,0)="^^1^1^2910516^^"
^DD(433,6,21,1,0)="This is the AMIS segment for this transaction."
^DD(433,6,"DT")="2880218"
^DD(433,7,0)="RC DOJ CODE^S^DC:REGIONAL COUNSEL;DOJ:DEPARTMENT OF JUSTICE;IRS:INTERNAL REVENUE SERVICE;RC:REGIONAL COUNSEL;TOP:TREASURY OFFSET PROGRAM;^0;7^Q"
^DD(433,7,3)="Enter the Referral Code that is in File 430 when this transaction was created."
^DD(433,7,21,0)="^^2^2^2980227^^^^"
^DD(433,7,21,1,0)="This indicates a referral to the Regional Counsel, IRS or the"
^DD(433,7,21,2,0)="Department of Justice."
^DD(433,7,"DT")="2991109"
^DD(433,8,0)="APPROPRIATION SYMBOL^F^^0;8^K:$L(X)>10!($L(X)<7) X"
^DD(433,8,3)="ANSWER MUST BE 7-10 CHARACTERS IN LENGTH"
^DD(433,8,21,0)="^^1^1^2910516^^"
^DD(433,8,21,1,0)="This is the appropriation symbol for this transaction."
^DD(433,8,"DT")="2880330"
^DD(433,10,0)="INCOMPLETE TRANSACTION FLAG^S^1:INCOMPLETE TRANSACTION;^0;10^Q"
^DD(433,10,21,0)="^^3^3^2920804^"
^DD(433,10,21,1,0)="This field marks a transaction as being ""invalid"" for printing"
^DD(433,10,21,2,0)="on the patient statement.  This will also exclude the transaction"
^DD(433,10,21,3,0)="from being counted on the balance discrepancy report."
^DD(433,10,"DT")="2920309"
^DD(433,11,0)="TRANSACTION DATE^RDX^^1;1^S %DT(0)=-DT,%DT=""E"" D ^%DT S X=Y K:Y<1 X K %DT"
^DD(433,11,1,0)="^.1"
^DD(433,11,1,1,0)="433^AD^MUMPS"
^DD(433,11,1,1,1)="D AT^RCXVDEQ"
^DD(433,11,1,1,2)="Q"
^DD(433,11,1,1,"%D",0)="^^2^2^3030812^"
^DD(433,11,1,1,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(433,11,1,1,"%D",2,0)="file for transmission to the ARC."
^DD(433,11,1,1,"DT")="3030812"
^DD(433,11,3)="Type the Date of Transaction.  Transaction date cannot be for future date."
^DD(433,11,21,0)="^^1^1^2930813^^^"
^DD(433,11,21,1,0)="This is the date of this transaction."
^DD(433,11,"DT")="3030812"
^DD(433,12,0)="TRANSACTION TYPE^RP430.3'X^PRCA(430.3,^1;2^K:$P(^PRCA(433,DA,0),U,2)="""" X Q"
^DD(433,12,1,0)="^.1"
^DD(433,12,1,1,0)="433^AW^MUMPS"
^DD(433,12,1,1,1)="I X>7,X<12 S ^PRCA(433,""AW"",X,DA)="""""
^DD(433,12,1,1,2)="K ^PRCA(433,""AW"",X,DA)"
^DD(433,12,1,1,"%D",0)="^^3^3^2950417^"
^DD(433,12,1,1,"%D",1,0)="This cross-reference is set if the transaction is a 'write-off'"
^DD(433,12,1,1,"%D",2,0)="transaction (i.e., waivers and compromises).  It is used to calculate the"
^DD(433,12,1,1,"%D",3,0)="summary write-off documents for FMS."
^DD(433,12,1,1,"DT")="2950417"
^DD(433,12,1,2,0)="433^AT2^MUMPS"
^DD(433,12,1,2,1)="I $P($G(^PRCA(433,DA,1)),U,9) S ^PRCA(433,""AT"",X,+$P($P(^PRCA(433,DA,1),U,9),"".""),DA)="""""
^DD(433,12,1,2,2)="I $P($G(^PRCA(433,DA,1)),U,9) K ^PRCA(433,""AT"",X,+$P($P(^PRCA(433,DA,1),U,9),"".""),DA)"
^DD(433,12,1,2,"%D",0)="^^3^3^2961126^^^^"
^DD(433,12,1,2,"%D",1,0)="This cross reference is used by the National Database collector and"
^DD(433,12,1,2,"%D",2,0)="by AR reports to look up transactions by transacation type and by date"
^DD(433,12,1,2,"%D",3,0)="entered (processed)."
^DD(433,12,1,2,"DT")="2961126"
^DD(433,12,1,3,0)="433^AEOB1^MUMPS"
^DD(433,12,1,3,1)="I X=2 D AEOB^RCRCUTL"
^DD(433,12,1,3,2)="I X'=2 K ^PRCA(433,""AEOB"",+$P(^PRCA(433,DA,0),""^"",2),DA)"
^DD(433,12,1,3,"%D",0)="^^3^3^2980227^^^^"
^DD(433,12,1,3,"%D",1,0)="The AEOB cross-ref will be set if the Transaction Type is Payment in Part,"
^DD(433,12,1,3,"%D",2,0)="for a TP bill referred to RC that does not have the EOB Code field"
^DD(433,12,1,3,"%D",3,0)="populated."
^DD(433,12,1,3,"DT")="2971016"
^DD(433,12,1,4,0)="433^AI^MUMPS"
^DD(433,12,1,4,1)="D AT^RCXVDEQ"
^DD(433,12,1,4,2)="Q"
^DD(433,12,1,4,"%D",0)="^.101^2^2^3050722^^"
^DD(433,12,1,4,"%D",1,0)="This cross-reference will file the entry into the AR Date Queue"
^DD(433,12,1,4,"%D",2,0)="file for transmission to the ARC."
^DD(433,12,1,4,"DT")="3050720"
^DD(433,12,3)="This field is internally populated by AR.  This field contains the transaction type for the entry."
^DD(433,12,21,0)="^.001^2^2^3000808^^^"
^DD(433,12,21,1,0)="This points to the AR transaction file (#430.3). The input would be accepted"
^DD(433,12,21,2,0)="only if the transaction has a bill number."
^DD(433,12,"DT")="3050720"
^DD(433,13,0)="RECEIPT #^FX^^1;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<7) X"
^DD(433,13,.1)="RECEIPT NUMBER"
^DD(433,13,1,0)="^.1"
^DD(433,13,1,1,0)="433^AF"
^DD(433,13,1,1,1)="S ^PRCA(433,""AF"",$E(X,1,30),DA)="""""
^DD(433,13,1,1,2)="K ^PRCA(433,""AF"",$E(X,1,30),DA)"
^DD(433,13,1,1,3)="This is the receipt number cross-reference."
^DD(433,13,1,1,"%D",0)="^^1^1^2930603^"
^DD(433,13,1,1,"%D",1,0)="     This cross-reference is used for sorting on receipt number."
^DD(433,13,1,1,"DT")="2930216"
^DD(433,13,3)="Answer must be 7-10 characters in length."
^DD(433,13,21,0)="^^2^2^2920302^^^"
^DD(433,13,21,1,0)="This is a number assigned to the receipt when the"
^DD(433,13,21,2,0)="payment was received."
^DD(433,13,"DT")="2940112"
^DD(433,14,0)="ADJUSTMENT NUMBER^F^^1;4^K:$L(X)>5!($L(X)<1) X"
^DD(433,14,3)="This number is ordered automatically and sequentially. The length of this number would be 1-5 numbers/characters."
^DD(433,14,21,0)="^^1^1^2910516^"
^DD(433,14,21,1,0)="This is a number assigned automatically and sequentially."
^DD(433,14,"DT")="2931015"
^DD(433,15,0)="TRANS. AMOUNT^RNJ9,2X^^1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(433,15,3)="Type a dollar amount for this transaction with 2 decimal digits. Ex. 9999.99 or -9999.99"
^DD(433,15,21,0)="^^1^1^2881011^"
^DD(433,15,21,1,0)="This is the amount of the transaction."
^DD(433,15,"DT")="2911022"
^DD(433,16,0)="SENT RECEIPT^S^Y:YES;N:NO;^1;6^Q"
^DD(433,16,3)="Enter 'Y' for Yes or 'N' for No."
^DD(433,16,21,0)="^^1^1^2910516^^"
^DD(433,16,21,1,0)="This flag indicates whether or not a receipt was sent to the debtor."
^DD(433,16,"DT")="2871022"
^DD(433,17,0)="TERMINATION REASON^S^1:DEBTOR'S DEATH;2:BANKRUPTCY;3:INABILITY TO LOCATE;4:WAIVED;5:COMPROMISED;6:A DEBT UNDER $25;7:INABILITY TO COLLECT;8:INCORRECT BILLING;9:OTHERS;^1;7^Q"
^DD(433,17,1,0)="^.1"
^DD(433,17,1,1,0)="433^AH^MUMPS"
^DD(433,17,1,1,1)="D AT^RCXVDEQ"
^DD(433,17,1,1,2)="Q"
^DD(433,17,1,1,"%D",0)="^^2^2^3030812^"
^DD(433,17,1,1,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(433,17,1,1,"%D",2,0)="file for transmission to the ARC."
^DD(433,17,1,1,"DT")="3030812"
^DD(433,17,3)="Enter code for termination reason."
^DD(433,17,21,0)="^^1^1^2930601^^^"
^DD(433,17,21,1,0)="This is the reason for terminating an account."
^DD(433,17,"DT")="3030812"
^DD(433,18,0)="AMENDMENT TYPE^P430.3^PRCA(430.3,^1;8^Q"
^DD(433,18,3)="ENTER THE AMENDMENT TYPE."
^DD(433,18,21,0)="^^1^1^2910516^^"
^DD(433,18,21,1,0)="This is the type of transaction from File 430.3 for an amendment."
^DD(433,18,"DT")="2880714"
^DD(433,19,0)="DATE ENTERED^DX^^1;9^S %DT=""T"",X=""NOW"" D ^%DT S X=Y K:Y<1 X"
^DD(433,19,1,0)="^.1"
^DD(433,19,1,1,0)="433^ATD^MUMPS"
^DD(433,19,1,1,1)="I $P($G(^RCD(340,+$P($G(^PRCA(430,+$P(^PRCA(433,DA,0),""^"",2),0)),""^"",9),0)),""^"")[("";DPT("") S ^PRCA(433,""ATD"",$P(^PRCA(430,+$P(^PRCA(433,DA,0),""^"",2),0),""^"",9),$E(X,1,30),DA)="""""
^DD(433,19,1,1,2)="I $P($G(^RCD(340,+$P($G(^PRCA(430,+$P(^PRCA(433,DA,0),""^"",2),0)),""^"",9),0)),""^"")[("";DPT("") K ^PRCA(433,""ATD"",$P(^PRCA(430,+$P(^PRCA(433,DA,0),""^"",2),0),""^"",9),$E(X,1,30),DA)"
^DD(433,19,1,1,3)="This is the debtor and date entered cross-reference."
^DD(433,19,1,1,"%D",0)="^^4^4^2930603^^^^"
^DD(433,19,1,1,"%D",1,0)="This cross-reference is used for the patient statement. It is sorted"
^DD(433,19,1,1,"%D",2,0)="by the DEBTOR (field 9, file 430) and DATE ENTERED (field 19, file 433)."
^DD(433,19,1,1,"%D",3,0)="We loop through the Debtors transactions (Date Entered) to display his"
^DD(433,19,1,1,"%D",4,0)="transactions for a specified time period."
^DD(433,19,1,1,"DT")="2920318"
^DD(433,19,1,2,0)="433^AT1^MUMPS"
^DD(433,19,1,2,1)="I $P($G(^PRCA(433,DA,1)),U,2) S ^PRCA(433,""AT"",+$P(^PRCA(433,DA,1),U,2),$P(X,"".""),DA)="""""
^DD(433,19,1,2,2)="I $P($G(^PRCA(433,DA,1)),U,2) K ^PRCA(433,""AT"",+$P(^PRCA(433,DA,1),U,2),$P(X,"".""),DA)"
^DD(433,19,1,2,"%D",0)="^^3^3^2961126^^"
^DD(433,19,1,2,"%D",1,0)="This cross reference is used by the National Database collector and"
^DD(433,19,1,2,"%D",2,0)="by AR reports to look up transactions by transacation type and by date"
^DD(433,19,1,2,"%D",3,0)="entered (processed)."
^DD(433,19,1,2,"DT")="2961126"
^DD(433,19,1,3,0)="433^AC^MUMPS"
^DD(433,19,1,3,1)="D AT^RCXVDEQ"
^DD(433,19,1,3,2)="Q"
^DD(433,19,1,3,"%D",0)="^^2^2^3030812^"
^DD(433,19,1,3,"%D",1,0)="This cross-reference will file the entry into the AR Data Queue"
^DD(433,19,1,3,"%D",2,0)="file for transmission to the ARC."
^DD(433,19,1,3,"DT")="3030812"
^DD(433,19,3)="This sets in the original date that the transaction was processed"
^DD(433,19,5,1,0)="433^.03^2"
^DD(433,19,9)="^"
^DD(433,19,"DT")="3030812"
^DD(433,20,0)="PREPAYMT TRANS.^P433'^PRCA(433,^5;1^Q"
^DD(433,20,1,0)="^.1"
^DD(433,20,1,1,0)="433^AP^MUMPS"
^DD(433,20,1,1,1)="S:$D(^PRCA(433,DA,1)) ^PRCA(433,""AP"",+^(1),X,DA)="""""
^DD(433,20,1,1,2)="K ^PRCA(433,""AP"",+^PRCA(433,DA,1),X,DA)"
^DD(433,20,1,1,3)="This is the prepayment transaction cross-reference."
^DD(433,20,1,1,"%D",0)="^^1^1^2930603^^"
^DD(433,20,1,1,"%D",1,0)="This cross-reference is used for sorting by the Prepayment Trans. Date."
^DD(433,20,1,1,"DT")="2920409"
^DD(433,20,21,0)="^^3^3^2920409^"
^DD(433,20,21,1,0)="This field holds the corresponding transaction that caused this"
^DD(433,20,21,2,0)="transaction to be set. This field should be set when a payment"
^DD(433,20,21,3,0)="is posted from a prepayment bill."
^DD(433,20,"DT")="2920409"
^DD(433,21,0)="IRS LOC.COST^NJ7,2X^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X"
^DD(433,21,1,0)="^.1^^0"
^DD(433,21,3)="Enter the cost paid to IRS for locating this debtor."
^DD(433,21,4)="W ""Enter a Dollar Amount between "",$S($D(PRCASUP):""-9999.99"",1:""0""),"" and 9999.99, 2 Decimal Digits."""
^DD(433,21,21,0)="^^1^1^2910516^^^"
^DD(433,21,21,1,0)="This is the cost charged to an account for an IRS locator search."
^DD(433,21,"DT")="2871127"
^DD(433,22,0)="CREDIT REP.COST^NJ7,2X^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X"
^DD(433,22,1,0)="^.1^^0"
^DD(433,22,3)="Enter the cost paid for the credit report requests."
^DD(433,22,4)="W ""Enter a dollar amount between "",$S($D(PRCASUP):""-9999.99"",1:""0""),"" and 9999.99,2 decimal digits."""
^DD(433,22,21,0)="^^1^1^2910516^^"
^DD(433,22,21,1,0)="This is the cost charged to an account for a Credit Rep. locator search."
^DD(433,22,"DT")="2871127"
^DD(433,23,0)="DMV LOC.COST^NJ7,2X^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X"
^DD(433,23,1,0)="^.1^^0"
^DD(433,23,3)="Enter the cost paid for the State Agency/DMV locator actions."
^DD(433,23,4)="W ""Enter a dollar amount between "",$S($D(PRCASUP):""-9999.99"",1:""0""),"" and 9999.99, 2 decimal digits"""
^DD(433,23,21,0)="^^2^2^2910516^^^"
^DD(433,23,21,1,0)="This is the cost charged to an account for a State Agency/Department"
^DD(433,23,21,2,0)="of Motor Vehicles locator search."
^DD(433,23,"DT")="2871127"
^DD(433,24,0)="CONSUMER REP.AGENCY COST^NJ7,2X^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<$S($D(PRCASUP):-9999.99,1:0)) X"
^DD(433,24,1,0)="^.1^^0"
^DD(433,24,3)="Enter the cost paid for the consumer reporting agency referrals."
^DD(433,24,4)="W ""Enter a dollar amount between "",$S($D(PRCASUP):""-9999.99"",1:""0""),"" and 9999.99, 2 decimal digits"""
^DD(433,24,21,0)="^^2^2^2910516^"
^DD(433,24,21,1,0)="This is the cost paid for the consumer reporting"
^DD(433,24,21,2,0)="agency referral."
^DD(433,24,"DT")="2871127"
^DD(433,25,0)="MARSHAL FEE^NJ8,2X^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999)!(X<$S($D(PRCASUP):-9999.99,1:0)) X"
^DD(433,25,3)="Enter the amount of the Marshal Fee."
^DD(433,25,4)="W ""Enter a dollar amount between "",$S($D(PRCASUP):""-9999.99"",1:""0""),"" and 9999.99, 2 decimal digits."""
^DD(433,25,21,0)="^^1^1^2910516^^"
^DD(433,25,21,1,0)="This is the cost of a Marshal's Fee charged to an account."
^DD(433,25,"DT")="2871127"
^DD(433,26,0)="COURT COST^NJ8,2X^^2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999)!(X<$S($D(PRCASUP):-9999.99,1:0)) X"
^DD(433,26,3)=""
^DD(433,26,4)="W ""Enter a dollar amount between "",$S($D(PRCASUP):""-9999.99"",1:""0""),"" and 9999.99, 2 decimal digits."""
^DD(433,26,21,0)="^^1^1^2910516^"
^DD(433,26,21,1,0)="This is the court cost charged to an account."
^DD(433,26,"DT")="2871127"
^DD(433,27,0)="INT.CHARGE^NJ8,2X^^2;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<$S($D(PRCASUP):-99999.99,1:0)) X"
^DD(433,27,3)="Enter the amount of interest to be charged."
^DD(433,27,4)="W ""Enter a dollar amount between 0 and 99999.99, 2 decimal digits."""
^DD(433,27,21,0)="^^1^1^2910516^^^^"
^DD(433,27,21,1,0)="This is an interest charge added to an account."
^DD(433,27,"DT")="2920722"
^DD(433,28,0)="ADM.CHARGE^NJ8,2X^^2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<$S($D(PRCASUP):-99999.99,1:0)) X"
^DD(433,28,3)="Enter amount of admin. charges to be made."
^DD(433,28,4)="W ""Enter a dollar amount between 0 and 99999.99, 2 decimal digits."""
^DD(433,28,21,0)="^^1^1^2920722^^^"
^DD(433,28,21,1,0)="This is the cost of administrative charges added to an account."
^DD(433,28,"DT")="2920722"
^DD(433,29,0)="PENALTY CHARGE^NJ8,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-9999.99) X"
^DD(433,29,3)="Type a Dollar Amount between -9999.99 and 99999.99, 2 Decimal Digits"
^DD(433,29,21,0)="^^2^2^3000517^"
^DD(433,29,21,1,0)="This field is used to track the penalty charge dollars added or"
^DD(433,29,21,2,0)="exempted from a bill."
^DD(433,29,"DT")="3000619"
^DD(433,31,0)="PRIN.COLLECTED^NJ9,2^^3;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(433,31,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(433,31,21,0)="^^1^1^2910516^^^^"
^DD(433,31,21,1,0)="This is the amount received that has been applied to the principal balance."
^DD(433,31,"DT")="2881011"
^DD(433,32,0)="INTEREST COLLECTED^NJ8,2^^3;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(433,32,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(433,32,21,0)="^^2^2^2910516^^"
^DD(433,32,21,1,0)="This is the amount received that has been applied to the interest"
^DD(433,32,21,2,0)="charges."
^DD(433,32,"DT")="2881011"
^DD(433,33,0)="ADMIN.COLLECTED^NJ8,2^^3;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(433,33,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(433,33,21,0)="^^2^2^2910516^^"
^DD(433,33,21,1,0)="This is the amount received that has been applied to the"
^DD(433,33,21,2,0)="administrative charges."
^DD(433,33,"DT")="2881011"
^DD(433,34,0)="MARSHAL FEE COLLECTED^NJ7,2^^3;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(433,34,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(433,34,21,0)="^^2^2^2910516^^^"
^DD(433,34,21,1,0)="This is the amount received that has been applied to"
^DD(433,34,21,2,0)="the Marshal's Fees."
^DD(433,34,"DT")="2871028"
^DD(433,35,0)="COURT COST COLLECTED^NJ7,2^^3;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(433,35,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(433,35,21,0)="^^2^2^2910516^^"
^DD(433,35,21,1,0)="This is the amount received that has been applied to the Court Cost"
^DD(433,35,21,2,0)="charges."
^DD(433,35,"DT")="2871028"
^DD(433,41,0)="COMMENTS^433.041^^7;0"
^DD(433,41,21,0)="^^1^1^2940908^^^^"
^DD(433,41,21,1,0)="This is an optional comments field for this transaction."
^DD(433,42,0)="PROCESSED BY^P200'^VA(200,^0;9^Q"
^DD(433,42,3)="Enter processing person's name."
^DD(433,42,21,0)="^^1^1^2920211^^^"
^DD(433,42,21,1,0)="This is the person who processed this transaction."
^DD(433,42,"DT")="2920211"
^DD(433,54,0)="EOB CODE^F^^5;4^K:$L(X)>30!($L(X)<1) X"
^DD(433,54,1,0)="^.1"
^DD(433,54,1,1,0)="433^AEOB^MUMPS"
^DD(433,54,1,1,1)="K ^PRCA(433,""AEOB"",+$P(^PRCA(433,DA,0),""^"",2),DA)"
^DD(433,54,1,1,2)="Q"
^DD(433,54,1,1,"%D",0)="^^4^4^2971004^^"
^DD(433,54,1,1,"%D",1,0)="This cross-ref is used to alert AR staff that EOB Processing should"
^DD(433,54,1,1,"%D",2,0)="be done for a payment transaction. These payments are from Insurance"
^DD(433,54,1,1,"%D",3,0)="Companies whose bill is referred to RC for collection action."
^DD(433,54,1,1,"%D",4,0)="Once the EOB Code is entered, this cross-ref can be deleted."
^DD(433,54,1,1,"DT")="2971004"
^DD(433,54,3)="Answer must be 1-30 characters in length."
^DD(433,54,21,0)="^^7^7^2980203^^"
^DD(433,54,21,1,0)="This is the EOB Code that is on the EOB from the Insurance"
^DD(433,54,21,2,0)="Company.  This field should be populated for all "
^DD(433,54,21,3,0)="payment transactions on TP bills that are Referred to RC."
^DD(433,54,21,4,0)="If a payment was posted to a bill and this field "
^DD(433,54,21,5,0)="is not populated, notification will be made. "
^DD(433,54,21,6,0)=" "
^DD(433,54,21,7,0)=" "
^DD(433,54,"DT")="2971004"
^DD(433,61,0)="DESCRIPTION^433.061DA^^6;0"
^DD(433,61,21,0)="^^1^1^2910516^^^"
^DD(433,61,21,1,0)="This is a description of the individual charges."
^DD(433,81,0)="PRINCIPAL BALANCE^NJ9,2^^8;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(433,81,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(433,81,21,0)="^^1^1^2910516^^"
^DD(433,81,21,1,0)="This is the principal balance after payment has been applied."
^DD(433,81,"DT")="2880331"
^DD(433,82,0)="INTEREST BALANCE^NJ8,2^^8;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(433,82,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(433,82,21,0)="^^1^1^2910516^^"
^DD(433,82,21,1,0)="This is the balance of interest charges after payment has been applied."
^DD(433,82,"DT")="2880331"
^DD(433,83,0)="ADMIN. BALANCE^NJ8,2^^8;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(433,83,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(433,83,21,0)="^^2^2^2910516^^"
^DD(433,83,21,1,0)="This is the balance of the administrative charges after payment"
^DD(433,83,21,2,0)="has been applied."
^DD(433,83,"DT")="2880331"
^DD(433,84,0)="MARSHAL FEE^NJ8,2^^8;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(433,84,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(433,84,21,0)="^^1^1^2910516^^"
^DD(433,84,21,1,0)="This is the balance of the Marshal Fee after payment has been applied."
^DD(433,84,"DT")="2880331"
^DD(433,85,0)="COURT COST^NJ8,2^^8;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(433,85,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(433,85,21,0)="^^1^1^2910516^"
^DD(433,85,21,1,0)="This is the court cost that has been applied."
^DD(433,85,"DT")="2880331"
^DD(433,86,0)="TRANS. COMMENTS^F^^8;6^K:$L(X)>75!($L(X)<3) X"
^DD(433,86,3)="ANSWER MUST BE 3-75 CHARACTERS IN LENGTH"
^DD(433,86,21,0)="^^1^1^2910516^^"
^DD(433,86,21,1,0)="This is an optional short comment for this transaction."
^DD(433,86,"DT")="2880718"
^DD(433,87,0)="EXCESS PAYMENT^NJ9,2^^8;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(433,87,3)="Enter the amount of the overpayment."
^DD(433,87,21,0)="^^1^1^2910516^^"
^DD(433,87,21,1,0)="This field stores the amount of an overpayment that needs to be liquidated."
^DD(433,87,"DT")="2890216"
^DD(433,88,0)="CONTRACTUAL ADJUSTMENT^S^1:YES;0:NO;^8;8^Q"
^DD(433,88,1,0)="^.1"
^DD(433,88,1,1,0)="433^CA^MUMPS"
^DD(433,88,1,1,1)="I X=1 S ^PRCA(433,""CA"",DA)="""""
^DD(433,88,1,1,2)="K ^PRCA(433,""CA"",DA)"
^DD(433,88,1,1,"%D",0)="^^2^2^2951013^"
^DD(433,88,1,1,"%D",1,0)="This x-ref identifies Contract Adjustment Transactions.  It is used by the"
^DD(433,88,1,1,"%D",2,0)="FMS data collector to compile the WR 06 document for transmission to FMS."
^DD(433,88,1,1,"DT")="2951013"
^DD(433,88,21,0)="^^1^1^2920422^^"
^DD(433,88,21,1,0)="Enter a 1 for Yes if this decrease is for a reimbursable bill."
^DD(433,88,"DT")="2951013"
^DD(433,89,0)="CO-PAY EXEMPTION TRANSACTION?^S^1:YES;0:NO;^1;10^Q"
^DD(433,89,1,0)="^.1"
^DD(433,89,1,1,0)="433^ACE^MUMPS"
^DD(433,89,1,1,1)="Q:'X  S ^PRCA(433,""ACE"",+$P($G(^PRCA(433,+DA,1)),U),+DA)="""""
^DD(433,89,1,1,2)="K ^PRCA(433,""ACE"",$P($G(^PRCA(433,+DA,1)),U),+DA)"
^DD(433,89,1,1,"%D",0)="^^5^5^2930603^"
^DD(433,89,1,1,"%D",1,0)="This cross-reference is set to aid in printing the medication co-pay"
^DD(433,89,1,1,"%D",2,0)="exemption report. It is set whenever the decrease transaction or interest"
^DD(433,89,1,1,"%D",3,0)="exemption transaction is applied as a result of an exemption from"
^DD(433,89,1,1,"%D",4,0)="medication co-pays. It is also set for the increase transaction if a"
^DD(433,89,1,1,"%D",5,0)="refund bill is set up as a result of medication co-pays."
^DD(433,89,1,1,"DT")="2930603"
^DD(433,89,21,0)="^^3^3^2930603^"
^DD(433,89,21,1,0)="This field is set to a '1' whenever a decrease adjustment or an interest"
^DD(433,89,21,2,0)="exemption is applied automatically due to exemption from medication co-pays."
^DD(433,89,21,3,0)="It is also set for increases to prepayment bills due to co-pay exemption."
^DD(433,89,23,0)="^^2^2^2930603^"
^DD(433,89,23,1,0)="This field is set to a '1' whenever routine PRCAX sets up an automatic "
^DD(433,89,23,2,0)="decrease or increase adjustment or an interest exemption."
^DD(433,89,"DT")="2930603"
^DD(433,90,0)="SUSPENSION TYPE^S^0:NON-COPAY SUSPENSION;1:INITIAL CO-PAY WAIVER;2:APPEAL CO-PAY WAIVER;^1;11^Q"
^DD(433,90,21,0)="^^4^4^2941116^^"
^DD(433,90,21,1,0)="This field documents the reason for the type of suspension for copay"
^DD(433,90,21,2,0)="waiver request by veterans.  Two types of waiver can be documented, one"
^DD(433,90,21,3,0)="for the initial copay waiver and the second is when the original copay"
^DD(433,90,21,4,0)="waiver was denied and the veteran is appealing the decision."
^DD(433,90,"DT")="2940225"
^DD(433,91,0)="AMOUNT PAID TO MCCF^NJ12,2^^9;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(433,91,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(433,91,21,0)="^^2^2^3010625^"
^DD(433,91,21,1,0)="For a payment transaction, this field stores the amount of the payment"
^DD(433,91,21,2,0)="that is paid to the MCCF fund."
^DD(433,91,"DT")="3010625"
^DD(433,92,0)="AMOUNT PAID TO HSIF^NJ12,2^^9;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(433,92,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(433,92,21,0)="^^2^2^3010625^"
^DD(433,92,21,1,0)="For a payment transaction, this field stores the amount of the payment"
^DD(433,92,21,2,0)="that is paid to the HSIF fund."
^DD(433,92,"DT")="3010625"
^DD(433,93,0)="HARTFORD/USAA SETTLEMENT^S^1:YES;^9;3^Q"
^DD(433,93,3)="Is this transaction related to the Hartford/USAA settlement."
^DD(433,93,21,0)="^^2^2^3020628^"
^DD(433,93,21,1,0)="This is a flag indicating that this transaction relates to the "
^DD(433,93,21,2,0)="Hartford/USAA settlement."
^DD(433,93,"DT")="3020628"
^DD(433,"B","ADJUSTMENT NUMBER",14)=""
^DD(433,"B","ADM.CHARGE",28)=""
^DD(433,"B","ADMIN. BALANCE",83)=""
^DD(433,"B","ADMIN.COLLECTED",33)=""
^DD(433,"B","AMENDMENT TYPE",18)=""
^DD(433,"B","AMOUNT PAID TO HSIF",92)=""
^DD(433,"B","AMOUNT PAID TO MCCF",91)=""
^DD(433,"B","APPROPRIATION SYMBOL",8)=""
^DD(433,"B","BILL NUMBER",.03)=""
^DD(433,"B","BRIEF COMMENT",5.02)=""
^DD(433,"B","CALM CODE DONE",3)=""
^DD(433,"B","CO-PAY EXEMPTION TRANSACTION?",89)=""
^DD(433,"B","COMMENTS",41)=""
^DD(433,"B","CONSUMER REP.AGENCY COST",24)=""
^DD(433,"B","CONTRACTUAL ADJUSTMENT",88)=""
^DD(433,"B","COURT COST",26)=""
^DD(433,"B","COURT COST",85)=""
^DD(433,"B","COURT COST COLLECTED",35)=""
^DD(433,"B","CREDIT REP.COST",22)=""
^DD(433,"B","DATE CALM DONE",5)=""
^DD(433,"B","DATE ENTERED",19)=""
^DD(433,"B","DESCRIPTION",61)=""
^DD(433,"B","DMV LOC.COST",23)=""
^DD(433,"B","EOB CODE",54)=""
^DD(433,"B","EXCESS PAYMENT",87)=""
^DD(433,"B","FISCAL YEAR",.02)=""
^DD(433,"B","FOLLOW-UP DATE",5.03)=""
^DD(433,"B","HARTFORD/USAA SETTLEMENT",93)=""
^DD(433,"B","INCOMPLETE TRANSACTION FLAG",10)=""
^DD(433,"B","INT.CHARGE",27)=""
^DD(433,"B","INTEREST BALANCE",82)=""
^DD(433,"B","INTEREST COLLECTED",32)=""
^DD(433,"B","IRS LOC.COST",21)=""
^DD(433,"B","MARSHAL FEE",25)=""
^DD(433,"B","MARSHAL FEE",84)=""
^DD(433,"B","MARSHAL FEE COLLECTED",34)=""
^DD(433,"B","PENALTY CHARGE",29)=""
^DD(433,"B","PREPAYMT TRANS.",20)=""
^DD(433,"B","PRIN.COLLECTED",31)=""
^DD(433,"B","PRINCIPAL BALANCE",81)=""
^DD(433,"B","PROCESSED BY",42)=""
^DD(433,"B","RC DOJ CODE",7)=""
^DD(433,"B","RECEIPT #",13)=""
^DD(433,"B","RECEIPT NUMBER",13)="1"
^DD(433,"B","SEGMENT",6)=""
^DD(433,"B","SENT RECEIPT",16)=""
^DD(433,"B","SUSPENSION TYPE",90)=""
^DD(433,"B","TERMINATION REASON",17)=""
^DD(433,"B","TRANS. AMOUNT",15)=""
^DD(433,"B","TRANS. COMMENTS",86)=""
^DD(433,"B","TRANSACTION DATE",11)=""
^DD(433,"B","TRANSACTION NUMBER",.01)=""
^DD(433,"B","TRANSACTION STATUS",4)=""
^DD(433,"B","TRANSACTION TYPE",12)=""
^DD(433,"GL",0,1,.01)=""
^DD(433,"GL",0,2,.03)=""
^DD(433,"GL",0,3,3)=""
^DD(433,"GL",0,4,4)=""
^DD(433,"GL",0,5,5)=""
^DD(433,"GL",0,6,6)=""
^DD(433,"GL",0,7,7)=""
^DD(433,"GL",0,8,8)=""
^DD(433,"GL",0,9,42)=""
^DD(433,"GL",0,10,10)=""
^DD(433,"GL",1,1,11)=""
^DD(433,"GL",1,2,12)=""
^DD(433,"GL",1,3,13)=""
^DD(433,"GL",1,4,14)=""
^DD(433,"GL",1,5,15)=""
^DD(433,"GL",1,6,16)=""
^DD(433,"GL",1,7,17)=""
^DD(433,"GL",1,8,18)=""
^DD(433,"GL",1,9,19)=""
^DD(433,"GL",1,10,89)=""
^DD(433,"GL",1,11,90)=""
^DD(433,"GL",2,1,21)=""
^DD(433,"GL",2,2,22)=""
^DD(433,"GL",2,3,23)=""
^DD(433,"GL",2,4,24)=""
^DD(433,"GL",2,5,25)=""
^DD(433,"GL",2,6,26)=""
^DD(433,"GL",2,7,27)=""
^DD(433,"GL",2,8,28)=""
^DD(433,"GL",2,9,29)=""
^DD(433,"GL",3,1,31)=""
^DD(433,"GL",3,2,32)=""
^DD(433,"GL",3,3,33)=""
^DD(433,"GL",3,4,34)=""
^DD(433,"GL",3,5,35)=""
^DD(433,"GL",4,0,.02)=""
^DD(433,"GL",5,1,20)=""
^DD(433,"GL",5,2,5.02)=""
^DD(433,"GL",5,3,5.03)=""
^DD(433,"GL",5,4,54)=""
^DD(433,"GL",6,0,61)=""
^DD(433,"GL",7,0,41)=""
^DD(433,"GL",8,1,81)=""
^DD(433,"GL",8,2,82)=""
^DD(433,"GL",8,3,83)=""
^DD(433,"GL",8,4,84)=""
^DD(433,"GL",8,5,85)=""
^DD(433,"GL",8,6,86)=""
^DD(433,"GL",8,7,87)=""
^DD(433,"GL",8,8,88)=""
^DD(433,"GL",9,1,91)=""
^DD(433,"GL",9,2,92)=""
^DD(433,"GL",9,3,93)=""
^DD(433,"IX",.01)=""
^DD(433,"IX",.03)=""
^DD(433,"IX",3)=""
^DD(433,"IX",5.03)=""
^DD(433,"IX",11)=""
^DD(433,"IX",12)=""
^DD(433,"IX",13)=""
^DD(433,"IX",17)=""
^DD(433,"IX",19)=""
^DD(433,"IX",20)=""
^DD(433,"IX",54)=""
^DD(433,"IX",88)=""
^DD(433,"IX",89)=""
^DD(433,"RQ",.01)=""
^DD(433,"RQ",.03)=""
^DD(433,"RQ",3)=""
^DD(433,"RQ",5.02)=""
^DD(433,"RQ",11)=""
^DD(433,"RQ",12)=""
^DD(433,"RQ",15)=""
^DD(433,"SB",433.01,.02)=""
^DD(433,"SB",433.041,41)=""
^DD(433,"SB",433.061,61)=""
^DD(433.01,0)="FISCAL YEAR SUB-FIELD^^4^5"
^DD(433.01,0,"DT")="2930708"
^DD(433.01,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRC(442,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(442,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(433.01,0,"IX","B",433.01,.01)=""
^DD(433.01,0,"NM","FISCAL YEAR")=""
^DD(433.01,0,"UP")="433"
^DD(433.01,.01,0)="FISCAL YEAR^RF^^0;1^K:X'?2N X I $D(X) S DINUM=$S(X<70:""3""_X,1:""2""_X) K:'$D(^PRCA(430,+$P(^PRCA(433,DA(1),0),U,2),2,DINUM,0)) DINUM,X"
^DD(433.01,.01,1,0)="^.1"
^DD(433.01,.01,1,1,0)="433.01^B"
^DD(433.01,.01,1,1,1)="S ^PRCA(433,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(433.01,.01,1,1,2)="K ^PRCA(433,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(433.01,.01,1,1,"%D",0)="^^1^1^2920427^"
^DD(433.01,.01,1,1,"%D",1,0)="This cross-reference is used for sorting by Fiscal Year."
^DD(433.01,.01,1,1,"DT")="2920312"
^DD(433.01,.01,3)="Enter two digits for the Fiscal Year."
^DD(433.01,.01,4)=""
^DD(433.01,.01,"DT")="2930708"
^DD(433.01,1,0)="PRIN.AMOUNT^NJ10,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-999999.99) X"
^DD(433.01,1,3)="Enter a Dollar Amount between -999999.99 and 9999999.99, 2 Decimal Digits"
^DD(433.01,1,21,0)="^^2^2^2880826^"
^DD(433.01,1,21,1,0)="This is the principal balance of the account after this transaction"
^DD(433.01,1,21,2,0)="has been applied."
^DD(433.01,1,"DT")="2870817"
^DD(433.01,2,0)="PAT REF #^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(433.01,2,1,0)="^.1^^0"
^DD(433.01,2,3)="Answer must be 1-10 characters in length."
^DD(433.01,2,21,0)="^^3^3^2970813^^^^"
^DD(433.01,2,21,1,0)="***This field is obsolete with version 4.5 and will be deleted with an"
^DD(433.01,2,21,2,0)="upcoming cleanup patch."
^DD(433.01,2,21,3,0)="This is the PAT Reference number used to track this transaction."
^DD(433.01,2,23,0)="^^2^2^2970813^^^^"
^DD(433.01,2,23,1,0)=" "
^DD(433.01,2,23,2,0)=" "
^DD(433.01,2,"DT")="2970815"
^DD(433.01,3,0)="CALM CODE^S^1:NOT DONE;2:DONE;^0;4^Q"
^DD(433.01,3,21,0)="^^2^2^2881011^"
^DD(433.01,3,21,1,0)="This flag indicates whether or not a CALM code sheet has been"
^DD(433.01,3,21,2,0)="completed for this PAT Reference Number."
^DD(433.01,3,"DT")="2880901"
^DD(433.01,4,0)="TRANS.AMOUNT^NJ9,2X^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-99999.99) X"
^DD(433.01,4,3)="Type a Dollar Amount between -99999.99 and 999999.99, 2 Decimal Digits"
^DD(433.01,4,21,0)="^^1^1^2881011^"
^DD(433.01,4,21,1,0)="This is the amount of the transaction."
^DD(433.01,4,"DT")="2911021"
^DD(433.01,"B","CALM CODE",3)=""
^DD(433.01,"B","FISCAL YEAR",.01)=""
^DD(433.01,"B","PAT REF #",2)=""
^DD(433.01,"B","PRIN.AMOUNT",1)=""
^DD(433.01,"B","TRANS.AMOUNT",4)=""
^DD(433.01,"GL",0,1,.01)=""
^DD(433.01,"GL",0,2,1)=""
^DD(433.01,"GL",0,3,2)=""
^DD(433.01,"GL",0,4,3)=""
^DD(433.01,"GL",0,5,4)=""
^DD(433.01,"IX",.01)=""
^DD(433.01,"RQ",.01)=""
^DD(433.041,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(433.041,0,"NM","COMMENTS")=""
^DD(433.041,0,"UP")="433"
^DD(433.041,.01,0)="COMMENTS^W^^0;1^Q"
^DD(433.041,.01,3)="Enter optional comment for this transaction."
^DD(433.041,.01,21,0)="^^1^1^2940908^^^"
^DD(433.041,.01,21,1,0)="This is an optional comments field for this transaction."
^DD(433.041,.01,"DT")="2871120"
^DD(433.041,"B","COMMENTS",.01)=""
^DD(433.041,"GL",0,1,.01)=""
^DD(433.061,0)="DESCRIPTION SUB-FIELD^^8^7"
^DD(433.061,0,"IX","B",433.061,.01)=""
^DD(433.061,0,"NM","DESCRIPTION")=""
^DD(433.061,0,"UP")="433"
^DD(433.061,.01,0)="DATE OF CHARGES^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(433.061,.01,1,0)="^.1"
^DD(433.061,.01,1,1,0)="433.061^B"
^DD(433.061,.01,1,1,1)="S ^PRCA(433,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(433.061,.01,1,1,2)="K ^PRCA(433,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(433.061,.01,1,1,"%D",0)="^^1^1^2920427^"
^DD(433.061,.01,1,1,"%D",1,0)="This cross-reference is used for sorting by Date of Charges."
^DD(433.061,.01,3)="Enter the date the charges were incurred."
^DD(433.061,.01,21,0)="^^1^1^2910516^^"
^DD(433.061,.01,21,1,0)="This is the date the charges were incurred."
^DD(433.061,.01,"DT")="2880818"
^DD(433.061,1,0)="TYPE OF CARE^P430.2'^PRCA(430.2,^0;2^Q"
^DD(433.061,1,3)="Enter Type of Care."
^DD(433.061,1,21,0)="^^2^2^2910516^^"
^DD(433.061,1,21,1,0)="This is the type of medical care provided, a pointer to"
^DD(433.061,1,21,2,0)="File 430.2."
^DD(433.061,1,"DT")="2880719"
^DD(433.061,3,0)="QUANTITY (UNITS)^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(433.061,3,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(433.061,3,21,0)="^^1^1^2910516^^"
^DD(433.061,3,21,1,0)="This is the number of units being billed."
^DD(433.061,3,"DT")="2880719"
^DD(433.061,4,0)="UNIT COST^NJ8,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(433.061,4,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(433.061,4,21,0)="^^1^1^2910516^^"
^DD(433.061,4,21,1,0)="This is the cost of a single unit."
^DD(433.061,4,"DT")="2880719"
^DD(433.061,5,0)="UNIT^P420.5'^PRCD(420.5,^0;5^Q"
^DD(433.061,5,3)="Enter Unit code."
^DD(433.061,5,21,0)="^^1^1^2910516^^"
^DD(433.061,5,21,1,0)="This is the unit used on the bill, a pointer to File 420.5"
^DD(433.061,5,"DT")="2880719"
^DD(433.061,6,0)="TOTAL AMOUNT^NJ9,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(433.061,6,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(433.061,6,21,0)="^^1^1^2910516^^"
^DD(433.061,6,21,1,0)="This is the total cost of the units billed."
^DD(433.061,6,"DT")="2880719"
^DD(433.061,8,0)="TRANS. AMOUNT^NJ9,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999)!(X<-999999) X"
^DD(433.061,8,3)="Type a Dollar Amount between -999999 and 999999, 2 Decimal Digits"
^DD(433.061,8,21,0)="^^1^1^2910516^^"
^DD(433.061,8,21,1,0)="This is the total amount of the transaction."
^DD(433.061,8,"DT")="2880719"
^DD(433.061,"B","DATE OF CHARGES",.01)=""
^DD(433.061,"B","QUANTITY (UNITS)",3)=""
^DD(433.061,"B","TOTAL AMOUNT",6)=""
^DD(433.061,"B","TRANS. AMOUNT",8)=""
^DD(433.061,"B","TYPE OF CARE",1)=""
^DD(433.061,"B","UNIT",5)=""
^DD(433.061,"B","UNIT COST",4)=""
^DD(433.061,"GL",0,1,.01)=""
^DD(433.061,"GL",0,2,1)=""
^DD(433.061,"GL",0,3,3)=""
^DD(433.061,"GL",0,4,4)=""
^DD(433.061,"GL",0,5,5)=""
^DD(433.061,"GL",0,6,6)=""
^DD(433.061,"GL",0,8,8)=""
^DD(433.061,"IX",.01)=""
^DD(440,0)="FIELD^NL^46^78"
^DD(440,0,"DDA")="N"
^DD(440,0,"DT")="2970130"
^DD(440,0,"ID","Z")="G START^PRCHID"
^DD(440,0,"IX","AC",440,.05)=""
^DD(440,0,"IX","AD",440,.01)=""
^DD(440,0,"IX","AE",440,31.5)=""
^DD(440,0,"IX","AF",440,18)=""
^DD(440,0,"IX","AG",440,.4)=""
^DD(440,0,"IX","B",440,.01)=""
^DD(440,0,"IX","C",440.02,.01)=""
^DD(440,0,"IX","D",440,34)=""
^DD(440,0,"IX","DB",440,18.3)=""
^DD(440,0,"NM","VENDOR")=""
^DD(440,0,"PT",340,.01)=""
^DD(440,0,"PT",340,.06)=""
^DD(440,0,"PT",373,23.01)=""
^DD(440,0,"PT",392,7)=""
^DD(440,0,"PT",393,10.04)=""
^DD(440,0,"PT",410,12)=""
^DD(440,0,"PT",410.31,4)=""
^DD(440,0,"PT",413,55.5)=""
^DD(440,0,"PT",413.015,2)=""
^DD(440,0,"PT",414.02,2)=""
^DD(440,0,"PT",421.5,6)=""
^DD(440,0,"PT",440,15)=""
^DD(440,0,"PT",441,9)=""
^DD(440,0,"PT",441,10)=""
^DD(440,0,"PT",441.01,.01)=""
^DD(440,0,"PT",441.03,3)=""
^DD(440,0,"PT",442,5)=""
^DD(440,0,"PT",442,53)=""
^DD(440,0,"PT",443.6,5)=""
^DD(440,0,"PT",443.6,53)=""
^DD(440,0,"PT",444,20)=""
^DD(440,0,"PT",444,24)=""
^DD(440,0,"PT",444.01,.01)=""
^DD(440,0,"PT",444.019,13)=""
^DD(440,0,"PT",444.019,17)=""
^DD(440,0,"PT",444.021,11)=""
^DD(440,0,"PT",444.022,.01)=""
^DD(440,0,"PT",444.024,.01)=""
^DD(440,0,"PT",444.1,60)=""
^DD(440,0,"PT",445.01,.4)=""
^DD(440,0,"PT",445.07,.01)=""
^DD(440,0,"PT",660,7)=""
^DD(440,0,"PT",661.312,25)=""
^DD(440,0,"PT",661.41,4)=""
^DD(440,0,"PT",661.6,12)=""
^DD(440,0,"PT",661.63,9)=""
^DD(440,0,"PT",661.8,3)=""
^DD(440,0,"PT",664,4)=""
^DD(440,0,"PT",664.16,15)=""
^DD(440,0,"PT",664.22,5)=""
^DD(440,0,"PT",665.1,1)=""
^DD(440,0,"PT",665.194,1)=""
^DD(440,0,"PT",665.4,7)=""
^DD(440,0,"PT",665.7231,.01)=""
^DD(440,0,"PT",665.7232,5)=""
^DD(440,0,"PT",669.962,.01)=""
^DD(440,0,"PT",731.02,4)=""
^DD(440,0,"PT",6914,10)=""
^DD(440,0,"PT",6917.016,.01)=""
^DD(440,0,"SCR")="X:$D(PRCHREAV) PRCHREAV"
^DD(440,0,"VR")="5.1"
^DD(440,0,"VRPK")="IFCAP"
^DD(440,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(440,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(440,.001,21,0)="^^1^1^2940616^^"
^DD(440,.001,21,1,0)="This is the vendor number."
^DD(440,.001,23,0)="^^1^1^2940616^"
^DD(440,.001,23,1,0)="This is the internal entry number for this vendor."
^DD(440,.001,"DT")="2850425"
^DD(440,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>36!($L(X)<1)!'(X'?1P.E) X I $D(X) S:$D(PRCHPO) DIC(""DR"")=""[PRCHVENDOR]"""
^DD(440,.01,.1)=""
^DD(440,.01,1,0)="^.1"
^DD(440,.01,1,1,0)="440^B^MUMPS"
^DD(440,.01,1,1,1)="I $D(X) S X=$$UP^XLFSTR(X),^PRC(440,""B"",$E(X,1,30),DA)="""""
^DD(440,.01,1,1,2)="I $D(X) S X=$$UP^XLFSTR(X) K ^PRC(440,""B"",$E(X,1,30),DA)"
^DD(440,.01,1,1,"%D",0)="^^1^1^2991018^^"
^DD(440,.01,1,1,"%D",1,0)="TESTING TO SEE IF MIXED OR LOWER CASE SHOWS UP AS UPPERCASE."
^DD(440,.01,1,1,"DT")="2990510"
^DD(440,.01,1,2,0)="440^AD^MUMPS"
^DD(440,.01,1,2,1)="I '$D(DIU(0)),$E(X,1,2)'=""**"" S:$D(DT) $P(^PRC(440,DA,10),U,1)=DT S:$D(DUZ) $P(^(10),U,2)=DUZ"
^DD(440,.01,1,2,2)="Q"
^DD(440,.01,1,2,"%D",0)="^^3^3^2930729^^"
^DD(440,.01,1,2,"%D",1,0)="This X-REF will SET both the DATE VENDOR CREATED and CREATED BY fields"
^DD(440,.01,1,2,"%D",2,0)="if the vendor is not INACTIVATED.  Inactivation is shown when the first"
^DD(440,.01,1,2,"%D",3,0)="two characters of the vendor's name are '**'."
^DD(440,.01,1,2,"DT")="2930729"
^DD(440,.01,3)="ANSWER MUST BE 1-36 CHARACTERS IN LENGTH"
^DD(440,.01,21,0)="^^1^1^2991018^^^^"
^DD(440,.01,21,1,0)="This is the vendor name."
^DD(440,.01,"DEL",1,0)="I 1 D EN^DDIOL(""  VENDOR CAN'T BE DELETED!! "","""",""?0"")"
^DD(440,.01,"DT")="2990510"
^DD(440,.05,0)="SUPPLY WHSE. INDICATOR^SX^S:SUPPLY WAREHOUSE;^0;11^I $D(^PRC(440,""AC"")) S Z0=+$O(^(""AC"",""S"",0)) I $D(^PRC(440,Z0,0)) W !,*7,$P(^(0),U,1)_"" is already designated as the SUPPLY WAREHOUSE "" K X"
^DD(440,.05,1,0)="^.1"
^DD(440,.05,1,1,0)="440^AC^MUMPS"
^DD(440,.05,1,1,1)="K ^PRC(440,""AC"") S ^PRC(440,""AC"",X,DA)="""""
^DD(440,.05,1,1,2)="K ^PRC(440,""AC"",X,DA)"
^DD(440,.05,1,1,"%D",0)="^^5^5^2930707^^^^"
^DD(440,.05,1,1,"%D",1,0)="This X-REF is used to allow only one 'VENDOR' to be the 'SUPPLY"
^DD(440,.05,1,1,"%D",2,0)="WAREHOUSE'."
^DD(440,.05,1,1,"%D",3,0)="The input transform for this field will allow only one vendor in"
^DD(440,.05,1,1,"%D",4,0)="this 'AC' X-REF to have a SUPPLY WHSE. INDICATOR, an 'S', in this"
^DD(440,.05,1,1,"%D",5,0)="field."
^DD(440,.05,3)="There can only be one source designated as the SUPPLY WAREHOUSE"
^DD(440,.05,21,0)="^^2^2^2940616^^^"
^DD(440,.05,21,1,0)="This is the set of codes for supply warehouse indicator."
^DD(440,.05,21,2,0)="Only one source can be designated as the supply warehouse."
^DD(440,.05,"DT")="2870605"
^DD(440,.06,0)="FEDERAL SOURCE^*P420.8'X^PRCD(420.8,^2;2^S DIC(""S"")=""I """"134590""""[$E(^(0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(440,.06,3)="Enter only if this is Federal Source vendor and will only be used on a requisition."
^DD(440,.06,12)="ENTER THE APPROPRIATE SOURCE CODE"
^DD(440,.06,12.1)="S DIC(""S"")=""I """"134590""""[$E(^(0))"""
^DD(440,.06,21,0)="^^1^1^2940616^^"
^DD(440,.06,21,1,0)="This is the federal source."
^DD(440,.06,"DT")="2940322"
^DD(440,.2,0)="EDI VENDOR?^S^Y:YES;^3;2^Q"
^DD(440,.2,.1)=""
^DD(440,.2,3)="Enter YES if this vendor can accept purchase orders electronically using EDI X12.  Do do only if directed from Austin."
^DD(440,.2,21,0)="^^4^4^2940616^^^"
^DD(440,.2,21,1,0)="This field identifies those vendors who are prepared to receive"
^DD(440,.2,21,2,0)="purchase orders electronically through the EDI system in AUSTIN."
^DD(440,.2,21,3,0)="Don't enter anything in this field unless directed to do so from"
^DD(440,.2,21,4,0)="the EDI group in Austin, Texas."
^DD(440,.2,"DT")="2910801"
^DD(440,.4,0)="VENDOR ID NUMBER^FX^^3;3^K:$L(X)>12!($L(X)<5) X I $D(X) K:X'?5.12UN X"
^DD(440,.4,1,0)="^.1"
^DD(440,.4,1,1,0)="440^AG"
^DD(440,.4,1,1,1)="S ^PRC(440,""AG"",$E(X,1,30),DA)="""""
^DD(440,.4,1,1,2)="K ^PRC(440,""AG"",$E(X,1,30),DA)"
^DD(440,.4,1,1,"%D",0)="^^2^2^2960618^"
^DD(440,.4,1,1,"%D",1,0)="This x-ref allows quick location of the vendor record with the vendor"
^DD(440,.4,1,1,"%D",2,0)="ID number selected."
^DD(440,.4,1,1,"DT")="2960618"
^DD(440,.4,3)="Enter the vendor's EDI identification number.  It should be 5-12 upper case           alpha/numeric characters."
^DD(440,.4,21,0)="^^3^3^2940616^^^"
^DD(440,.4,21,1,0)="This field uniquely identifies a vendor to the EDI system."
^DD(440,.4,21,2,0)="Don't enter anything in this field unless directed to do so from the"
^DD(440,.4,21,3,0)="EDI group in Austin, Texas."
^DD(440,.4,"DT")="2960618"
^DD(440,1,0)="ORDERING ADDRESS1^RF^^0;2^K:$L(X)>33!($L(X)<1) X"
^DD(440,1,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440,1,21,0)="^^1^1^2961008^^^^"
^DD(440,1,21,1,0)="This is the vendor ordering address line 1."
^DD(440,1,"DT")="2860220"
^DD(440,2,0)="ORDERING ADDRESS2^F^^0;3^K:$L(X)>33!($L(X)<1) X"
^DD(440,2,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440,2,21,0)="^^1^1^2940616^^"
^DD(440,2,21,1,0)="This is the vendor ordering address line 2."
^DD(440,2,"DT")="2860220"
^DD(440,3,0)="ORDERING ADDRESS3^F^^0;4^K:$L(X)>25!($L(X)<1) X"
^DD(440,3,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440,3,21,0)="^^1^1^2940616^^"
^DD(440,3,21,1,0)="This is the vendor ordering address line 3."
^DD(440,3,"DT")="2860220"
^DD(440,4,0)="ORDERING ADDRESS4^F^^0;5^K:$L(X)>25!($L(X)<1) X"
^DD(440,4,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440,4,21,0)="^^1^1^2940616^^"
^DD(440,4,21,1,0)="This is the vendor ordering address line 4."
^DD(440,4,"DT")="2860220"
^DD(440,4.2,0)="ORDERING CITY^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(440,4.2,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(440,4.2,21,0)="^^1^1^2940616^^"
^DD(440,4.2,21,1,0)="This is the city of the vendor ordering address."
^DD(440,4.2,"DT")="2860208"
^DD(440,4.4,0)="ORDERING STATE^P5'^DIC(5,^0;7^Q"
^DD(440,4.4,3)="enter the state that goes with this ORDERING ADDRESS."
^DD(440,4.4,21,0)="^^1^1^2940616^^"
^DD(440,4.4,21,1,0)="This is the state for the vendor ordering address."
^DD(440,4.4,"DT")="2860208"
^DD(440,4.6,0)="ORDERING ZIP CODE^FX^^0;8^K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(440,4.6,3)="5 DIGIT ZIP OR A 9 DIGIT ZIP IN THIS FORMAT 12345-6789"
^DD(440,4.6,21,0)="^^1^1^2950406^^^^"
^DD(440,4.6,21,1,0)="This is the zip code of the ordering address."
^DD(440,4.6,23,0)="^^4^4^2950406^"
^DD(440,4.6,23,1,0)="The input transform checks for a pattern of 5 numerics or"
^DD(440,4.6,23,2,0)="5 numerics followed by a dash (-) and 4 numerics.  It also"
^DD(440,4.6,23,3,0)="checks for a total length of 10, so fileman will print the"
^DD(440,4.6,23,4,0)="zip+4 in outputs."
^DD(440,4.6,"DT")="2950406"
^DD(440,4.7,0)="COUNTY^FXO^^2;4^S Z0=$S($P(^PRC(440,D0,0),U,7)]"""":$P(^(0),U,7),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(440,4.7,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($P(^PRC(440,D0,0),U,7)]"""":$P(^(0),U,7),1:0) Q:'Z0  S Y=$S($D(^DIC(5,Z0,1,Y,0)):$P(^(0),U,1),1:"""") K Z0"
^DD(440,4.7,2.1)="Q:Y']""""  S Z0=$S($P(^PRC(440,D0,0),U,7)]"""":$P(^(0),U,7),1:0) Q:'Z0  S Y=$S($D(^DIC(5,Z0,1,Y,0)):$P(^(0),U,1),1:"""") K Z0"
^DD(440,4.7,3)="Enter the appropriate county for the given state"
^DD(440,4.7,4)="S ZD=D,X=""?"",Z0=$S($P(^PRC(440,D0,0),U,7)]"""":$P(^(0),U,7),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(440,4.7,21,0)="^^2^2^2910516^"
^DD(440,4.7,21,1,0)="This is the appropriate county for the given state"
^DD(440,4.7,21,2,0)="of the vendor ordering address."
^DD(440,4.7,"DT")="2860514"
^DD(440,4.8,0)="PROCUREMENT CONTACT PERSON^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(440,4.8,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(440,4.8,21,0)="^^1^1^2940616^^^"
^DD(440,4.8,21,1,0)="This is the name of the procurement contact person."
^DD(440,4.8,"DT")="2850727"
^DD(440,5,0)="VENDOR PHONE NUMBER^F^^0;10^K:$L(X)>18!($L(X)<7) X"
^DD(440,5,3)="Answer must be 7-18 characters in length."
^DD(440,5,21,0)="^^1^1^2940707^^^^"
^DD(440,5,21,1,0)="This is the phone number of the vendor contact person."
^DD(440,5,"DT")="2940707"
^DD(440,5.1,0)="ACCOUNT NO.^F^^2;1^K:$L(X)>33!($L(X)<3) X"
^DD(440,5.1,3)="ANSWER MUST BE 3-33 CHARACTERS IN LENGTH"
^DD(440,5.1,21,0)="^^1^1^2940616^^"
^DD(440,5.1,21,1,0)="This is the vendor account number."
^DD(440,5.2,0)="GUARANTEED DELIVERY VENDOR?^S^Y:YES;N:NO;^2;11^Q"
^DD(440,5.2,3)="Enter 'Y' if an agreement has been set up with this vendor to guarantee delivery on direct deliveries to patients."
^DD(440,5.2,21,0)="^^1^1^2940616^^^^"
^DD(440,5.2,21,1,0)="Enter YES if there is a guaranteed delivery agreement for this vendor."
^DD(440,5.2,"DT")="2890120"
^DD(440,6,0)="CONTRACT/BOA NUMBER^440.03I^^4;0"
^DD(440,6,21,0)="^^1^1^2970304^^^^"
^DD(440,6,21,1,0)="This is the Vendor's Contract # or Basic Ordering Agreement(BOA) #."
^DD(440,6,"DT")="2970203"
^DD(440,8,0)="LABOR SURPLUS AREA?^S^Y:YES;N:NO;^2;5^Q"
^DD(440,8,3)="Enter 'YES' if this vendor is located in a labor surplus area."
^DD(440,8,21,0)="^^1^1^2940616^^^"
^DD(440,8,21,1,0)="This indicates whether or not the vendor is located in a labor surplus."
^DD(440,8,"DT")="2860219"
^DD(440,8.2,0)="BUSINESS TYPE (FPDS-88)^RSX^1:SMALL;2:LARGE;3:OTHER ENTITIES;4:OUTSIDE U.S.;5:FEDERAL GOVT. SOURCE;^2;6^Q"
^DD(440,8.2,3)="Select one entry from the choices."
^DD(440,8.2,21,0)="^^1^1^2960925^^^^"
^DD(440,8.2,21,1,0)="This is the type of business for FY88 FPDS reporting purposes."
^DD(440,8.2,"DT")="2880825"
^DD(440,8.3,0)="BUSINESS TYPE (FPDS)^RS^1:SMALL;2:LARGE;3:OUTSIDE U.S.;4:OTHER ENTITIES;^2;3^Q"
^DD(440,8.3,3)="Enter FPDS Business Type for FPDS reports for FY 1989 or later."
^DD(440,8.3,21,0)="^^1^1^2960925^^^^"
^DD(440,8.3,21,1,0)="This is the type of business for FY89 FPDS reporting purposes."
^DD(440,8.3,"DT")="2880825"
^DD(440,9,0)="TYPE OF OWNERSHIP (FY88)^440.01PA^^1;0"
^DD(440,9,21,0)="^^1^1^2940616^^"
^DD(440,9,21,1,0)="This is the type of ownership for FY88 FPDS reporting purposes."
^DD(440,10,0)="SOCIOECONOMIC GROUP (FPDS)^440.05P^^1.1;0"
^DD(440,10,21,0)="^^2^2^2961008^^^^"
^DD(440,10,21,1,0)="This is the socioeconomic group of the vendor for the"
^DD(440,10,21,2,0)="current year."
^DD(440,11,0)="SPECIAL FACTORS^F^^3;1^K:$L(X)>50!($L(X)<3) X"
^DD(440,11,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(440,11,21,0)="^^2^2^2910516^"
^DD(440,11,21,1,0)="These are the special factors to be considered when ordering"
^DD(440,11,21,2,0)="from this vendor."
^DD(440,12.4,0)="AUSTIN DELETED?^S^Y:YES;N:NO;^2;9^Q"
^DD(440,12.4,21,0)="^^3^3^2910516^"
^DD(440,12.4,21,1,0)="This indicates whether or not the vendor has"
^DD(440,12.4,21,2,0)="been deleted from the Austin DPC"
^DD(440,12.4,21,3,0)="vendor file."
^DD(440,12.4,"DT")="2860513"
^DD(440,12.5,0)="FEE VENDOR^S^Y:YES;N:NO;^2;10^Q"
^DD(440,12.5,21,0)="^^2^2^2910516^"
^DD(440,12.5,21,1,0)="This indicates whether or not this vendor is a "
^DD(440,12.5,21,2,0)="fee basis vendor."
^DD(440,12.5,"DT")="2860513"
^DD(440,13,0)="IS A SF129 ON FILE?^S^Y:YES;N:NO;NA:NOT APPLICABLE;^2;7^Q"
^DD(440,13,21,0)="^^1^1^2930204^^"
^DD(440,13,21,1,0)="This indicates whether or not a Standard Form 129 is on file."
^DD(440,13,"DT")="2860329"
^DD(440,14,0)="DATE OF SF129^RD^^2;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440,14,21,0)="^^1^1^2910516^"
^DD(440,14,21,1,0)="This is the date of the Standard Form 129."
^DD(440,14,"DT")="2860329"
^DD(440,15,0)="REPLACEMENT VENDOR^*P440'X^PRC(440,^9;1^S DIC(""S"")=""I $S('$D(^(10)):1,+$P(^(10),U,5)=0:1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0!(+Y=$G(DA))!(+Y=$G(D0)) X"
^DD(440,15,12)="The Replacement Vendor for a vendor cannot be inactive (or that vendor itself)."
^DD(440,15,12.1)="S DIC(""S"")=""I $S('$D(^(10)):1,+$P(^(10),U,5)=0:1,1:0)"""
^DD(440,15,21,0)="^^1^1^2910516^"
^DD(440,15,21,1,0)="This is the replacement vendor."
^DD(440,15,"DT")="2970505"
^DD(440,16,0)="SERVICE/RETURN ADDRESS1^F^^6;1^K:$L(X)>33!($L(X)<1) X"
^DD(440,16,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440,16,21,0)="^^1^1^2910516^"
^DD(440,16,21,1,0)="This is the service/return address 1."
^DD(440,16,"DT")="2861122"
^DD(440,16.1,0)="SERVICE/RETURN ADDRESS2^F^^6;2^K:$L(X)>33!($L(X)<1) X"
^DD(440,16.1,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440,16.1,21,0)="^^1^1^2910516^"
^DD(440,16.1,21,1,0)="This is the service/return address 2."
^DD(440,16.1,"DT")="2861122"
^DD(440,16.2,0)="SERVICE/RETURN ADDRESS3^F^^6;3^K:$L(X)>25!($L(X)<1) X"
^DD(440,16.2,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440,16.2,21,0)="^^1^1^2910516^"
^DD(440,16.2,21,1,0)="This is the service/return address 3."
^DD(440,16.2,"DT")="2861122"
^DD(440,16.3,0)="SERVICE/RETURN ADDRESS4^F^^6;4^K:$L(X)>25!($L(X)<1) X"
^DD(440,16.3,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440,16.3,21,0)="^^2^2^2930408^"
^DD(440,16.3,21,1,0)=" "
^DD(440,16.3,21,2,0)="This is the service/return address 4"
^DD(440,16.3,"DT")="2861122"
^DD(440,16.4,0)="SERVICE/RETURN CITY^F^^6;5^K:$L(X)>20!($L(X)<3) X"
^DD(440,16.4,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(440,16.4,21,0)="^^1^1^2910516^"
^DD(440,16.4,21,1,0)="This is the city of the service/return address."
^DD(440,16.4,"DT")="2861122"
^DD(440,16.5,0)="SERVICE/RETURN STATE^P5'^DIC(5,^6;6^Q"
^DD(440,16.5,21,0)="^^1^1^2910516^"
^DD(440,16.5,21,1,0)="This is the state of the service/return address."
^DD(440,16.5,"DT")="2861122"
^DD(440,16.6,0)="SERVICE/RETURN ZIP CODE^FX^^6;7^K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(440,16.6,3)="5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789"
^DD(440,16.6,21,0)="^^1^1^2950406^^"
^DD(440,16.6,21,1,0)="This is the zip code of the service/return address."
^DD(440,16.6,23,0)="^^4^4^2950406^"
^DD(440,16.6,23,1,0)="The input transform checks for a pattern of 5 numerics or"
^DD(440,16.6,23,2,0)="5 numerics followed by a dash (-) and 4 numerics.  It also"
^DD(440,16.6,23,3,0)="checks for a total length of 10, so fileman will print the"
^DD(440,16.6,23,4,0)="zip+4 in outputs."
^DD(440,16.6,"DT")="2950406"
^DD(440,16.7,0)="SERVICE CONTACT PERSON^F^^6;8^K:$L(X)>30!($L(X)<3) X"
^DD(440,16.7,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(440,16.7,21,0)="^^1^1^2910516^"
^DD(440,16.7,21,1,0)="This is the service contact person."
^DD(440,16.7,"DT")="2861122"
^DD(440,16.8,0)="SERVICE PHONE NO.^F^^6;9^K:$L(X)>18!($L(X)<3) X"
^DD(440,16.8,3)="ANSWER MUST BE 3-18 CHARACTERS IN LENGTH"
^DD(440,16.8,21,0)="^^2^2^2910516^"
^DD(440,16.8,21,1,0)="This is the phone number for the service/return"
^DD(440,16.8,21,2,0)="contact person."
^DD(440,16.8,"DT")="2861122"
^DD(440,17,0)="PAYMENT CONTACT PERSON^F^^7;1^K:$L(X)>30!($L(X)<3) X"
^DD(440,17,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(440,17,21,0)="^^1^1^2910516^"
^DD(440,17,21,1,0)="This is the payment contact person."
^DD(440,17,"DT")="2861122"
^DD(440,17.2,0)="PAYMENT PHONE NO.^F^^7;2^K:$L(X)>18!($L(X)<3) X"
^DD(440,17.2,3)="ANSWER MUST BE 3-18 CHARACTERS IN LENGTH"
^DD(440,17.2,21,0)="^^1^1^2910516^"
^DD(440,17.2,21,1,0)="This is the phone number for the payment contact person."
^DD(440,17.2,"DT")="2861122"
^DD(440,17.3,0)="PAYMENT ADDRESS1^RFX^^7;3^K:$L(X)>30!($L(X)<1) X"
^DD(440,17.3,3)="Answer must be 1-30 characters in length."
^DD(440,17.3,21,0)="^.001^1^1^3010711^^^^"
^DD(440,17.3,21,1,0)="This is the mailing address, where payment of bill will be sent to. "
^DD(440,17.3,23,0)="^.001^2^2^3010711^^^^"
^DD(440,17.3,23,1,0)="Changed from 33 characters maximum to 23 characters for FMS."
^DD(440,17.3,23,2,0)="Changed from 23 characters maximum to 30 characters by IFCAP patch PRC*5.1*30."
^DD(440,17.3,"DT")="3010711"
^DD(440,17.4,0)="PAYMENT ADDRESS2^F^^7;4^K:$L(X)>30!($L(X)<1) X"
^DD(440,17.4,3)="Answer must be 1-30 characters in length."
^DD(440,17.4,21,0)="1^.001^1^1^3010711^^^^"
^DD(440,17.4,21,1,0)="This is the mailing address, where payment of bill will be sent to."
^DD(440,17.4,23,0)="^.001^2^2^3010711^^"
^DD(440,17.4,23,1,0)="Changed from 33 characters maximum to 23 characters for FMS."
^DD(440,17.4,23,2,0)="Changed from 23 characters maximum to 30 characters by IFCAP patch PRC*5.1*30."
^DD(440,17.4,"DT")="3010711"
^DD(440,17.5,0)="PAYMENT ADDRESS3^F^^7;5^K:$L(X)>30!($L(X)<1) X"
^DD(440,17.5,3)="Answer must be 1-30 characters in length."
^DD(440,17.5,21,0)="^.001^1^1^3010711^^^^"
^DD(440,17.5,21,1,0)="This is the mailing address, where payment of bill will be sent to."
^DD(440,17.5,23,0)="^.001^4^4^3010711^^^"
^DD(440,17.5,23,1,0)="Changed from 25 characters maximum to 23 characters to be the same"
^DD(440,17.5,23,2,0)="as PAYMENT ADDRESS1 and PAYMENT ADDRESS 2."
^DD(440,17.5,23,3,0)="Changed from 23 characters maximum to 30 characters to be the same"
^DD(440,17.5,23,4,0)="as PAYMENT ADDRESS1 and PAYMENT ADDRESS2."
^DD(440,17.5,"DT")="3010711"
^DD(440,17.6,0)="PAYMENT ADDRESS4^F^^7;6^K:$L(X)>30!($L(X)<1) X"
^DD(440,17.6,3)="Answer must be 1-30 characters in length."
^DD(440,17.6,21,0)="^.001^1^1^3010711^^^^"
^DD(440,17.6,21,1,0)="This is the mailing address, where payment of bill will be sent to."
^DD(440,17.6,23,0)="^.001^4^4^3010711^^"
^DD(440,17.6,23,1,0)="Changed from 25 characters maximum to 23 characters to be the same as"
^DD(440,17.6,23,2,0)="PAYMENT ADDRESS1 and PAYMENT ADDRESS2."
^DD(440,17.6,23,3,0)="Changed from 23 characters maximum to 30 characters to be the same"
^DD(440,17.6,23,4,0)="as PAYMENT ADDRESS1 and PAYMENT ADDRESS2."
^DD(440,17.6,"DT")="3010711"
^DD(440,17.7,0)="PAYMENT CITY^RF^^7;7^K:$L(X)>20!($L(X)<3) X"
^DD(440,17.7,3)="Answer must be 3-20 characters in length."
^DD(440,17.7,21,0)="^^1^1^2910516^"
^DD(440,17.7,21,1,0)="This is the city of payment address."
^DD(440,17.7,"DT")="2940707"
^DD(440,17.8,0)="PAYMENT STATE^RP5'^DIC(5,^7;8^Q"
^DD(440,17.8,21,0)="^^1^1^2910516^"
^DD(440,17.8,21,1,0)="This is the state of the payment address."
^DD(440,17.8,"DT")="2940707"
^DD(440,17.9,0)="PAYMENT ZIP CODE^RFX^^7;9^K:$L(X)<5!(X'?5N.E)!($L(X)>10)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(440,17.9,3)="ENTER 5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789"
^DD(440,17.9,21,0)="^^1^1^2950406^^^"
^DD(440,17.9,21,1,0)="This is the zip code for the payment address."
^DD(440,17.9,23,0)="^^4^4^2950406^"
^DD(440,17.9,23,1,0)="The input transform checks for a pattern of 5 numerics or"
^DD(440,17.9,23,2,0)="5 numerics followed by a dash (-) and 4 numerics.  It also"
^DD(440,17.9,23,3,0)="checks for a total length of 10, so fileman will print the"
^DD(440,17.9,23,4,0)="zip+4 in outputs."
^DD(440,17.9,"DT")="2950406"
^DD(440,18,0)="CALM ID NUMBER^FX^^7;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!(X'?9UN) X"
^DD(440,18,1,0)="^.1"
^DD(440,18,1,1,0)="440^AF"
^DD(440,18,1,1,1)="S ^PRC(440,""AF"",$E(X,1,30),DA)="""""
^DD(440,18,1,1,2)="K ^PRC(440,""AF"",$E(X,1,30),DA)"
^DD(440,18,1,1,"%D",0)="^^2^2^2940615^"
^DD(440,18,1,1,"%D",1,0)="This x-ref is used during FMS-VENDOR conversion as one way to find the"
^DD(440,18,1,1,"%D",2,0)="vendor record entered in the FMS-CVU document."
^DD(440,18,1,1,"DT")="2940615"
^DD(440,18,3)="Answer must be 9 characters in length."
^DD(440,18,21,0)="^^1^1^2910516^"
^DD(440,18,21,1,0)="This is the CALM identification number."
^DD(440,18,"DT")="2940615"
^DD(440,18.2,0)="CALM STUB NAME^F^^7;11^K:$L(X)>3!($L(X)<3) X"
^DD(440,18.2,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(440,18.2,21,0)="^^1^1^2910516^"
^DD(440,18.2,21,1,0)="This is the CALM stub name."
^DD(440,18.2,"DT")="2870212"
^DD(440,18.3,0)="DUN & BRADSTREET #^FX^^7;12^S:$E(X,1,3)=""DUN"" X=$E(X,4,99) K:X'?9N&(X'?13N) X"
^DD(440,18.3,1,0)="^.1"
^DD(440,18.3,1,1,0)="440^DB^MUMPS"
^DD(440,18.3,1,1,1)="S ^PRC(440,""DB"",""DUN""_$E(X,1,30),DA)="""""
^DD(440,18.3,1,1,2)="K ^PRC(440,""DB"",""DUN""_$E(X,1,30),DA)"
^DD(440,18.3,1,1,"%D",0)="^^1^1^2960618^^"
^DD(440,18.3,1,1,"%D",1,0)="This cross reference enables lookup by Dun & Bradstreet #."
^DD(440,18.3,1,1,"DT")="2960307"
^DD(440,18.3,3)="ANSWER MUST BE EITHER 9 OR 13 DIGITS IN LENGTH"
^DD(440,18.3,21,0)="^^2^2^2940218^^"
^DD(440,18.3,21,1,0)="This is the vendor's Dun & Bradstreet number,"
^DD(440,18.3,21,2,0)="if applicable."
^DD(440,18.3,"DT")="3070313"
^DD(440,20,0)="SYNONYM^440.02^^5;0"
^DD(440,20,21,0)="^^1^1^2910516^"
^DD(440,20,21,1,0)="This is a synonym for the vendor."
^DD(440,21,0)="REMARKS^440.04^^8;0"
^DD(440,21,21,0)="^^1^1^2910516^"
^DD(440,21,21,1,0)="These are remarks about the vendor."
^DD(440,22.1,0)="BILLING ADDRESS1^F^^.11;1^K:$L(X)>50!($L(X)<1) X"
^DD(440,22.1,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(440,22.1,21,0)="^^1^1^2910516^"
^DD(440,22.1,21,1,0)="This is the billing address 1."
^DD(440,22.1,"DT")="2870518"
^DD(440,22.2,0)="BILLING ADDRESS2^F^^.11;2^K:$L(X)>50!($L(X)<1) X"
^DD(440,22.2,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(440,22.2,21,0)="^^1^1^2910516^"
^DD(440,22.2,21,1,0)="This is the billing address 2."
^DD(440,22.2,"DT")="2870518"
^DD(440,22.3,0)="BILLING ADDRESS3^F^^.11;3^K:$L(X)>30!($L(X)<2) X"
^DD(440,22.3,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(440,22.3,21,0)="^^1^1^2910516^"
^DD(440,22.3,21,1,0)="This is the billing address 3."
^DD(440,22.3,"DT")="2870518"
^DD(440,22.4,0)="BILLING CITY^F^^.11;4^K:$L(X)>30!($L(X)<2) X"
^DD(440,22.4,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(440,22.4,21,0)="^^1^1^2910516^"
^DD(440,22.4,21,1,0)="This is the city of the billing address."
^DD(440,22.4,"DT")="2870518"
^DD(440,22.5,0)="BILLING STATE^P5'^DIC(5,^.11;5^Q"
^DD(440,22.5,21,0)="^^1^1^2910516^"
^DD(440,22.5,21,1,0)="This is the state of the billing address."
^DD(440,22.5,"DT")="2871125"
^DD(440,22.6,0)="BILLING ZIP CODE^F^^.11;6^K:$L(X)>9!($L(X)<5) X"
^DD(440,22.6,3)="ANSWER MUST BE 5-9 CHARACTERS IN LENGTH"
^DD(440,22.6,21,0)="^^1^1^2910516^"
^DD(440,22.6,21,1,0)="This is the zip code of the billing address."
^DD(440,22.6,"DT")="2870518"
^DD(440,22.7,0)="BILLING PHONE NUMBER^F^^.11;7^K:$L(X)>20!($L(X)<3) X"
^DD(440,22.7,3)="Answer must be 3-20 characters in length."
^DD(440,22.7,21,0)="^^2^2^2930408^"
^DD(440,22.7,21,1,0)=" "
^DD(440,22.7,21,2,0)="This is the phone number of the billing address."
^DD(440,22.7,"DT")="2910301"
^DD(440,30,0)="DATE VENDOR CREATED^D^^10;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440,30,3)="Date Vendor was originally created, or Vendor Name was changed."
^DD(440,30,21,0)="^^2^2^2910516^^"
^DD(440,30,21,1,0)="This is the date the vendor was created, or the date the vendor"
^DD(440,30,21,2,0)="name changed."
^DD(440,30,"DT")="2890207"
^DD(440,31,0)="CREATED BY^P200'^VA(200,^10;2^Q"
^DD(440,31,3)="Name of person who added vendor to this file."
^DD(440,31,21,0)="^^1^1^2910516^"
^DD(440,31,21,1,0)="This is the person who created the vendor."
^DD(440,31,"DT")="2921221"
^DD(440,31.5,0)="INACTIVATED VENDOR^S^1:INACTIVATED;^10;5^Q"
^DD(440,31.5,1,0)="^.1"
^DD(440,31.5,1,1,0)="440^AE^MUMPS"
^DD(440,31.5,1,1,1)="I '$D(DIU(0)) S:$D(DT) $P(^PRC(440,DA,10),U,3)=DT S:$D(DUZ) $P(^(10),U,4)=DUZ"
^DD(440,31.5,1,1,2)="I '$D(DIU(0)) S $P(^PRC(440,DA,10),U,3,4)=""^"""
^DD(440,31.5,1,1,"%D",0)="^^4^4^2930729^^^"
^DD(440,31.5,1,1,"%D",1,0)="This X-REF will SET the DATE INACTIVATED and the INACTIVATED BY fields"
^DD(440,31.5,1,1,"%D",2,0)="when a vendor is inactivated."
^DD(440,31.5,1,1,"%D",3,0)="If a vendor is reactivated both fields will be set to null in the KILL"
^DD(440,31.5,1,1,"%D",4,0)="statement."
^DD(440,31.5,1,1,"DT")="2930729"
^DD(440,31.5,3)="Set to '1' automatically by the option used to inactivate a vendor."
^DD(440,31.5,21,0)="^^2^2^2910516^^"
^DD(440,31.5,21,1,0)="This field is set automatically by the option"
^DD(440,31.5,21,2,0)="used to inactivate a vendor."
^DD(440,31.5,"DT")="2930729"
^DD(440,32,0)="DATE INACTIVATED^D^^10;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440,32,21,0)="^^1^1^2910516^"
^DD(440,32,21,1,0)="This is the date the vendor was made inactive."
^DD(440,32,"DT")="2890207"
^DD(440,33,0)="INACTIVATED BY^P200'^VA(200,^10;4^Q"
^DD(440,33,21,0)="^^1^1^2910516^"
^DD(440,33,21,1,0)="This is the person who made the vendor inactive."
^DD(440,33,"DT")="2921221"
^DD(440,34,0)="FMS VENDOR CODE^F^^3;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9) X"
^DD(440,34,1,0)="^.1"
^DD(440,34,1,1,0)="440^D"
^DD(440,34,1,1,1)="S ^PRC(440,""D"",$E(X,1,30),DA)="""""
^DD(440,34,1,1,2)="K ^PRC(440,""D"",$E(X,1,30),DA)"
^DD(440,34,1,1,"DT")="2940304"
^DD(440,34,3)="Answer must be 9 characters in length."
^DD(440,34,21,0)="^^2^2^2950223^^"
^DD(440,34,21,1,0)="This is the code that FMS uses to identify a vendor.  It comes from the"
^DD(440,34,21,2,0)="SSN/TAX ID NUMBER field in this file."
^DD(440,34,"DT")="2950223"
^DD(440,34.5,0)="FMS VENDOR NAME^FI^^3;7^K:$L(X)>30!($L(X)<1) X"
^DD(440,34.5,3)="Answer must be 1-30 characters in length."
^DD(440,34.5,21,0)="^^1^1^2940808^^"
^DD(440,34.5,21,1,0)="This is the FMS Vendor Name which is entered in the FMS system."
^DD(440,34.5,"DT")="2940808"
^DD(440,35,0)="ALT-ADDR-IND^F^^3;5^K:$L(X)>2!($L(X)<1) X"
^DD(440,35,3)=""
^DD(440,35,21,0)="^^1^1^2940627^"
^DD(440,35,21,1,0)="This field allows one VENDOR to have many payment addresses."
^DD(440,35,"DT")="2940127"
^DD(440,36,0)="NON-RECURRING/RECURRING VENDOR^S^N:NON-RECURRING VENDOR;R:RECURRING;^3;6^Q"
^DD(440,36,21,0)="^^2^2^2940919^^^^"
^DD(440,36,21,1,0)="This field having a 'N' will represent that this vendor will be used"
^DD(440,36,21,2,0)="only one time."
^DD(440,36,"DT")="2940919"
^DD(440,38,0)="TAX ID/SSN^FX^^3;8^S X=$TR(X,""-"") K:$L(X)>9!($L(X)<9)!(X'?9N) X"
^DD(440,38,3)="Enter 9 digits with 0 Decimal Digits."
^DD(440,38,21,0)="^^3^3^2940627^"
^DD(440,38,21,1,0)="This field will send FMS information that will be used as the FMS"
^DD(440,38,21,2,0)="VENDOR CODE.  FMS might use a different FMS VENDOR CODE but that is"
^DD(440,38,21,3,0)="normally not done."
^DD(440,38,"DT")="2940712"
^DD(440,39,0)="SSN/TAX ID INDICATOR^S^S:SOCIAL SECURITY NUMBER;T:TAX IDENTIFICATION NUMBER;^3;9^Q"
^DD(440,39,21,0)="^^1^1^2940627^"
^DD(440,39,21,1,0)="This field identifies what the TAX ID/SSN field is."
^DD(440,39,"DT")="2940707"
^DD(440,40,0)="PAYMENT HOLD INDICATOR^S^N:NO;Y:YES;C:CORRESPONDENCE;^3;10^Q"
^DD(440,40,21,0)="^^2^2^2940627^"
^DD(440,40,21,1,0)="Is payment for this vendor placed on hold?  Do we pay this vendor or"
^DD(440,40,21,2,0)="don't we."
^DD(440,40,"DT")="2940204"
^DD(440,41,0)="1099 VENDOR INDICATOR^RS^N:NO;Y:YES;^3;11^Q"
^DD(440,41,21,0)="^^1^1^2940627^"
^DD(440,41,21,1,0)="Is a 1099 form filled out for this vendor?"
^DD(440,41,"DT")="2940707"
^DD(440,42,0)="PENDING FLAG^S^P:PENDING APPROVAL;C:CONFIRMATION OF APPROVAL;^3;12^Q"
^DD(440,42,21,0)="^^4^4^2940627^"
^DD(440,42,21,1,0)="Internal IFCAP flag used to state what is being done with this vendor"
^DD(440,42,21,2,0)="and FMS.  When a vendor request is sent to FMS other requests should"
^DD(440,42,21,3,0)="wait until there is a FMS VENDOR UPDATE.  Actually no other requests"
^DD(440,42,21,4,0)="can be created until the update comes back."
^DD(440,42,"DT")="2940204"
^DD(440,43,0)="CENTRAL REMIT^S^Y:YES;N:NO;^3;13^Q"
^DD(440,43,21,0)="^^1^1^2940804^^"
^DD(440,43,21,1,0)="Should all payments for this vendor be sent to one place?"
^DD(440,43,"DT")="2940711"
^DD(440,44,0)="VENDOR TYPE^RS^A:AGENT CASHIER;C:COMMERCIAL;E:EMPLOYEE;F:FEDERAL GOVERNMENT;G:GSA;I:INDIVIDUALS-OTHER;O:OTHER COUNTRIES;R:COMMERCIAL-RECURRING PMTS;U:UTILITY COMPANIES;V:VETERANS;K:CANTEEN;^3;14^Q"
^DD(440,44,4)="I X=""??"" S XQH=""PRCH VENDOR TYPE HELP"" D EN^XQH"
^DD(440,44,"DT")="2950424"
^DD(440,45,0)="MTI ACTION^S^A:ADD;F:ADD IFCAP ONLY;C:CHANGE;D:DELETE;^3;15^Q"
^DD(440,45,21,0)="^^2^2^2940627^"
^DD(440,45,21,1,0)="This is a set of conditions telling IFCAP what to do with the FMS VENDOR"
^DD(440,45,21,2,0)="UPDATE.  This field is never changed by IFCAP users."
^DD(440,45,"DT")="2940217"
^DD(440,46,0)="FAX #^F^^10;6^K:$L(X)>18!($L(X)<7) X"
^DD(440,46,3)="Answer must be 7-18 characters in length."
^DD(440,46,21,0)="^^1^1^2940627^^"
^DD(440,46,21,1,0)="This is the vendor's FAX phone number."
^DD(440,46,"DT")="2940707"
^DD(440,"B","1099 VENDOR INDICATOR",41)=""
^DD(440,"B","ACCOUNT NO.",5.1)=""
^DD(440,"B","ALT-ADDR-IND",35)=""
^DD(440,"B","AUSTIN DELETED?",12.4)=""
^DD(440,"B","BILLING ADDRESS1",22.1)=""
^DD(440,"B","BILLING ADDRESS2",22.2)=""
^DD(440,"B","BILLING ADDRESS3",22.3)=""
^DD(440,"B","BILLING CITY",22.4)=""
^DD(440,"B","BILLING PHONE NUMBER",22.7)=""
^DD(440,"B","BILLING STATE",22.5)=""
^DD(440,"B","BILLING ZIP CODE",22.6)=""
^DD(440,"B","BUSINESS TYPE (FPDS)",8.3)=""
^DD(440,"B","BUSINESS TYPE (FPDS-88)",8.2)=""
^DD(440,"B","CALM ID NUMBER",18)=""
^DD(440,"B","CALM STUB NAME",18.2)=""
^DD(440,"B","CENTRAL REMIT",43)=""
^DD(440,"B","CONTRACT/BOA NUMBER",6)=""
^DD(440,"B","COUNTY",4.7)=""
^DD(440,"B","CREATED BY",31)=""
^DD(440,"B","DATE INACTIVATED",32)=""
^DD(440,"B","DATE OF SF129",14)=""
^DD(440,"B","DATE VENDOR CREATED",30)=""
^DD(440,"B","DUN & BRADSTREET #",18.3)=""
^DD(440,"B","EDI VENDOR?",.2)=""
^DD(440,"B","FAX #",46)=""
^DD(440,"B","FEDERAL SOURCE",.06)=""
^DD(440,"B","FEE VENDOR",12.5)=""
^DD(440,"B","FMS VENDOR CODE",34)=""
^DD(440,"B","FMS VENDOR NAME",34.5)=""
^DD(440,"B","GUARANTEED DELIVERY VENDOR?",5.2)=""
^DD(440,"B","INACTIVATED BY",33)=""
^DD(440,"B","INACTIVATED VENDOR",31.5)=""
^DD(440,"B","IS A SF129 ON FILE?",13)=""
^DD(440,"B","LABOR SURPLUS AREA?",8)=""
^DD(440,"B","MTI ACTION",45)=""
^DD(440,"B","NAME",.01)=""
^DD(440,"B","NON-RECURRING/RECURRING VENDOR",36)=""
^DD(440,"B","NUMBER",.001)=""
^DD(440,"B","ORDERING ADDRESS1",1)=""
^DD(440,"B","ORDERING ADDRESS2",2)=""
^DD(440,"B","ORDERING ADDRESS3",3)=""
^DD(440,"B","ORDERING ADDRESS4",4)=""
^DD(440,"B","ORDERING CITY",4.2)=""
^DD(440,"B","ORDERING STATE",4.4)=""
^DD(440,"B","ORDERING ZIP CODE",4.6)=""
^DD(440,"B","PAYMENT ADDRESS1",17.3)=""
^DD(440,"B","PAYMENT ADDRESS2",17.4)=""
^DD(440,"B","PAYMENT ADDRESS3",17.5)=""
^DD(440,"B","PAYMENT ADDRESS4",17.6)=""
^DD(440,"B","PAYMENT CITY",17.7)=""
^DD(440,"B","PAYMENT CONTACT PERSON",17)=""
^DD(440,"B","PAYMENT HOLD INDICATOR",40)=""
^DD(440,"B","PAYMENT PHONE NO.",17.2)=""
^DD(440,"B","PAYMENT STATE",17.8)=""
^DD(440,"B","PAYMENT ZIP CODE",17.9)=""
^DD(440,"B","PENDING FLAG",42)=""
^DD(440,"B","PROCUREMENT CONTACT PERSON",4.8)=""
^DD(440,"B","REMARKS",21)=""
^DD(440,"B","REPLACEMENT VENDOR",15)=""
^DD(440,"B","SERVICE CONTACT PERSON",16.7)=""
^DD(440,"B","SERVICE PHONE NO.",16.8)=""
^DD(440,"B","SERVICE/RETURN ADDRESS1",16)=""
^DD(440,"B","SERVICE/RETURN ADDRESS2",16.1)=""
^DD(440,"B","SERVICE/RETURN ADDRESS3",16.2)=""
^DD(440,"B","SERVICE/RETURN ADDRESS4",16.3)=""
^DD(440,"B","SERVICE/RETURN CITY",16.4)=""
^DD(440,"B","SERVICE/RETURN STATE",16.5)=""
^DD(440,"B","SERVICE/RETURN ZIP CODE",16.6)=""
^DD(440,"B","SOCIOECONOMIC GROUP (FPDS)",10)=""
^DD(440,"B","SPECIAL FACTORS",11)=""
^DD(440,"B","SSN/TAX ID INDICATOR",39)=""
^DD(440,"B","SUPPLY WHSE. INDICATOR",.05)=""
^DD(440,"B","SYNONYM",20)=""
^DD(440,"B","TAX ID/SSN",38)=""
^DD(440,"B","TYPE OF OWNERSHIP (FY88)",9)=""
^DD(440,"B","VENDOR ID NUMBER",.4)=""
^DD(440,"B","VENDOR PHONE NUMBER",5)=""
^DD(440,"B","VENDOR TYPE",44)=""
^DD(440,"GL",0,1,.01)=""
^DD(440,"GL",0,2,1)=""
^DD(440,"GL",0,3,2)=""
^DD(440,"GL",0,4,3)=""
^DD(440,"GL",0,5,4)=""
^DD(440,"GL",0,6,4.2)=""
^DD(440,"GL",0,7,4.4)=""
^DD(440,"GL",0,8,4.6)=""
^DD(440,"GL",0,9,4.8)=""
^DD(440,"GL",0,10,5)=""
^DD(440,"GL",0,11,.05)=""
^DD(440,"GL",.11,1,22.1)=""
^DD(440,"GL",.11,2,22.2)=""
^DD(440,"GL",.11,3,22.3)=""
^DD(440,"GL",.11,4,22.4)=""
^DD(440,"GL",.11,5,22.5)=""
^DD(440,"GL",.11,6,22.6)=""
^DD(440,"GL",.11,7,22.7)=""
^DD(440,"GL",1,0,9)=""
^DD(440,"GL",1.1,0,10)=""
^DD(440,"GL",2,1,5.1)=""
^DD(440,"GL",2,2,.06)=""
^DD(440,"GL",2,3,8.3)=""
^DD(440,"GL",2,4,4.7)=""
^DD(440,"GL",2,5,8)=""
^DD(440,"GL",2,6,8.2)=""
^DD(440,"GL",2,7,13)=""
^DD(440,"GL",2,8,14)=""
^DD(440,"GL",2,9,12.4)=""
^DD(440,"GL",2,10,12.5)=""
^DD(440,"GL",2,11,5.2)=""
^DD(440,"GL",3,1,11)=""
^DD(440,"GL",3,2,.2)=""
^DD(440,"GL",3,3,.4)=""
^DD(440,"GL",3,4,34)=""
^DD(440,"GL",3,5,35)=""
^DD(440,"GL",3,6,36)=""
^DD(440,"GL",3,7,34.5)=""
^DD(440,"GL",3,8,38)=""
^DD(440,"GL",3,9,39)=""
^DD(440,"GL",3,10,40)=""
^DD(440,"GL",3,11,41)=""
^DD(440,"GL",3,12,42)=""
^DD(440,"GL",3,13,43)=""
^DD(440,"GL",3,14,44)=""
^DD(440,"GL",3,15,45)=""
^DD(440,"GL",4,0,6)=""
^DD(440,"GL",5,0,20)=""
^DD(440,"GL",6,1,16)=""
^DD(440,"GL",6,2,16.1)=""
^DD(440,"GL",6,3,16.2)=""
^DD(440,"GL",6,4,16.3)=""
^DD(440,"GL",6,5,16.4)=""
^DD(440,"GL",6,6,16.5)=""
^DD(440,"GL",6,7,16.6)=""
^DD(440,"GL",6,8,16.7)=""
^DD(440,"GL",6,9,16.8)=""
^DD(440,"GL",7,1,17)=""
^DD(440,"GL",7,2,17.2)=""
^DD(440,"GL",7,3,17.3)=""
^DD(440,"GL",7,4,17.4)=""
^DD(440,"GL",7,5,17.5)=""
^DD(440,"GL",7,6,17.6)=""
^DD(440,"GL",7,7,17.7)=""
^DD(440,"GL",7,8,17.8)=""
^DD(440,"GL",7,9,17.9)=""
^DD(440,"GL",7,10,18)=""
^DD(440,"GL",7,11,18.2)=""
^DD(440,"GL",7,12,18.3)=""
^DD(440,"GL",8,0,21)=""
^DD(440,"GL",9,1,15)=""
^DD(440,"GL",10,1,30)=""
^DD(440,"GL",10,2,31)=""
^DD(440,"GL",10,3,32)=""
^DD(440,"GL",10,4,33)=""
^DD(440,"GL",10,5,31.5)=""
^DD(440,"GL",10,6,46)=""
^DD(440,"IX",.01)=""
^DD(440,"IX",.05)=""
^DD(440,"IX",.4)=""
^DD(440,"IX",18)=""
^DD(440,"IX",18.3)=""
^DD(440,"IX",31.5)=""
^DD(440,"IX",34)=""
^DD(440,"RQ",.01)=""
^DD(440,"RQ",1)=""
^DD(440,"RQ",8.2)=""
^DD(440,"RQ",8.3)=""
^DD(440,"RQ",14)=""
^DD(440,"RQ",17.3)=""
^DD(440,"RQ",17.7)=""
^DD(440,"RQ",17.8)=""
^DD(440,"RQ",17.9)=""
^DD(440,"RQ",41)=""
^DD(440,"RQ",44)=""
^DD(440,"SB",440.01,9)=""
^DD(440,"SB",440.02,20)=""
^DD(440,"SB",440.03,6)=""
^DD(440,"SB",440.04,21)=""
^DD(440,"SB",440.05,10)=""
^DD(440.01,0)="TYPE OF OWNERSHIP (FY88) SUB-FIELD^NL^.01^1"
^DD(440.01,0,"NM","TYPE OF OWNERSHIP (FY88)")=""
^DD(440.01,0,"UP")="440"
^DD(440.01,.01,0)="TYPE OF OWNERSHIP (FY88)^M*P420.6'OX^PRCD(420.6,^0;1^S DIC(""S"")=""I """"MWVY""""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(440.01,.01,2)="S Y(0)=Y Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""   ""_$P(Y,U,2)"
^DD(440.01,.01,2.1)="Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""   ""_$P(Y,U,2)"
^DD(440.01,.01,12)="CAN ONLY BE AN M,W,Y OR V"
^DD(440.01,.01,12.1)="S DIC(""S"")=""I """"MWVY""""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"""
^DD(440.01,.01,21,0)="^^1^1^2910516^"
^DD(440.01,.01,21,1,0)="This is the type of ownership."
^DD(440.01,.01,"DT")="2880921"
^DD(440.01,"B","TYPE OF OWNERSHIP (FY88)",.01)=""
^DD(440.01,"GL",0,1,.01)=""
^DD(440.02,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(440.02,0,"NM","SYNONYM")=""
^DD(440.02,0,"UP")="440"
^DD(440.02,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>36!($L(X)<3) X"
^DD(440.02,.01,1,0)="^.1"
^DD(440.02,.01,1,1,0)="440^C"
^DD(440.02,.01,1,1,1)="S ^PRC(440,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(440.02,.01,1,1,2)="K ^PRC(440,""C"",$E(X,1,30),DA(1),DA)"
^DD(440.02,.01,1,1,"%D",0)="^^3^3^2930624^"
^DD(440.02,.01,1,1,"%D",1,0)="This X-REF contains the SYNONYM for each vendor.  There can be"
^DD(440.02,.01,1,1,"%D",2,0)="multiple SYNONYMS for each vendor.  There can be the same SYNONYM"
^DD(440.02,.01,1,1,"%D",3,0)="for different vendors."
^DD(440.02,.01,3)="ANSWER MUST BE 3-36 CHARACTERS IN LENGTH"
^DD(440.02,.01,21,0)="^^1^1^2910516^"
^DD(440.02,.01,21,1,0)="This is the synonym for the vendor."
^DD(440.02,.01,"DT")="2850727"
^DD(440.02,"B","SYNONYM",.01)=""
^DD(440.02,"GL",0,1,.01)=""
^DD(440.02,"IX",.01)=""
^DD(440.03,0)="CONTRACT/BOA NUMBER SUB-FIELD^NL^5^7"
^DD(440.03,0,"DT")="2970130"
^DD(440.03,0,"ID",.5)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(440.03,0,"ID",1)="W ""   EXP. DATE: "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(440.03,0,"ID",2)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(440.03,0,"ID",5)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(440.03,5,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,6)_"""":"""",2),$C(59),1)"")"
^DD(440.03,0,"IX","B",440.03,.01)=""
^DD(440.03,0,"NM","CONTRACT/BOA NUMBER")=""
^DD(440.03,0,"UP")="440"
^DD(440.03,.01,0)="CONTRACT/BOA NUMBER^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>19!($L(X)<7) X"
^DD(440.03,.01,1,0)="^.1^^-1"
^DD(440.03,.01,1,1,0)="440.03^B"
^DD(440.03,.01,1,1,1)="S ^PRC(440,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(440.03,.01,1,1,2)="K ^PRC(440,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(440.03,.01,3)="ANSWER MUST BE 7-19 CHARACTERS IN LENGTH"
^DD(440.03,.01,21,0)="^^2^2^2970304^^"
^DD(440.03,.01,21,1,0)="This is the Contract/BOA number.  This field will have values for Contract"
^DD(440.03,.01,21,2,0)="# or BOA # as appropriate."
^DD(440.03,.01,"DT")="2970304"
^DD(440.03,.5,0)="BEGINING DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.03,.5,3)="Enter the starting date for this contract."
^DD(440.03,.5,21,0)="^^1^1^2940616^"
^DD(440.03,.5,21,1,0)="This is the starting date for this contract."
^DD(440.03,.5,"DT")="2940307"
^DD(440.03,1,0)="EXPIRATION DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.03,1,3)="Enter the ending date for this vendor contract."
^DD(440.03,1,21,0)="^^1^1^2940616^^"
^DD(440.03,1,21,1,0)="This is the expiration date of this vendor contract."
^DD(440.03,1,"DT")="2861122"
^DD(440.03,2,0)="CONTRACT TERMS^F^^1;1^K:$L(X)>50!($L(X)<3) X"
^DD(440.03,2,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(440.03,2,21,0)="^^1^1^2940616^^"
^DD(440.03,2,21,1,0)="These are the contract terms."
^DD(440.03,2,"DT")="2860405"
^DD(440.03,3,0)="PROMPT PAYMENT TERMS %^F^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(440.03,3,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(440.03,3,21,0)="^^1^1^2940616^^"
^DD(440.03,3,21,1,0)="These are the prompt payment terms."
^DD(440.03,3,"DT")="2860304"
^DD(440.03,4,0)="PROMPT PAYMENT TERMS DAYS^NJ2,0^^0;5^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(440.03,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 60"
^DD(440.03,4,21,0)="^^1^1^2940616^^^"
^DD(440.03,4,21,1,0)="These are the prompt payment terms number of days."
^DD(440.03,4,"DT")="2860304"
^DD(440.03,5,0)="CONTRACT FLAG^RSX^C:CONTRACT;B:BASIC ORDERING AGREEMENT;^0;6^D EN14^PRCHNPO5"
^DD(440.03,5,3)=""
^DD(440.03,5,4)="I X=""??"" S XQH=""PRCH CONTRACT FLAG HELP"" D EN^XQH"
^DD(440.03,5,21,0)="^^2^2^2970221^^"
^DD(440.03,5,21,1,0)="This field will indicate whether the CONTRACT NUMBER field contains"
^DD(440.03,5,21,2,0)="a Contract # or a Basic Ordering Agreement(BOA) #."
^DD(440.03,5,"DT")="2970220"
^DD(440.03,"B","BEGINING DATE",.5)=""
^DD(440.03,"B","CONTRACT FLAG",5)=""
^DD(440.03,"B","CONTRACT TERMS",2)=""
^DD(440.03,"B","CONTRACT/BOA NUMBER",.01)=""
^DD(440.03,"B","EXPIRATION DATE",1)=""
^DD(440.03,"B","PROMPT PAYMENT TERMS %",3)=""
^DD(440.03,"B","PROMPT PAYMENT TERMS DAYS",4)=""
^DD(440.03,"GL",0,1,.01)=""
^DD(440.03,"GL",0,2,1)=""
^DD(440.03,"GL",0,3,.5)=""
^DD(440.03,"GL",0,4,3)=""
^DD(440.03,"GL",0,5,4)=""
^DD(440.03,"GL",0,6,5)=""
^DD(440.03,"GL",1,1,2)=""
^DD(440.03,"IX",.01)=""
^DD(440.03,"RQ",1)=""
^DD(440.03,"RQ",5)=""
^DD(440.04,0)="REMARKS SUB-FIELD^^.01^1"
^DD(440.04,0,"NM","REMARKS")=""
^DD(440.04,0,"UP")="440"
^DD(440.04,.01,0)="REMARKS^W^^0;1^Q"
^DD(440.04,.01,21,0)="^^2^2^2930413^"
^DD(440.04,.01,21,1,0)=" "
^DD(440.04,.01,21,2,0)="Remarks about the vendor"
^DD(440.04,.01,"DT")="2861122"
^DD(440.04,"B","REMARKS",.01)=""
^DD(440.04,"GL",0,1,.01)=""
^DD(440.05,0)="SOCIOECONOMIC GROUP (FPDS) SUB-FIELD^^.01^1"
^DD(440.05,0,"NM","SOCIOECONOMIC GROUP (FY89)")=""
^DD(440.05,0,"UP")="440"
^DD(440.05,.01,0)="SOCIOECONOMIC GROUP (FPDS)^MR*P420.6'OX^PRCD(420.6,^0;1^S DIC(""S"")=""I Y>155,$P(^(0),U,3)=1"",DIC(""S"")=DIC(""S"")_$S($P(^PRC(440,DA,2),U,3)'=4:"",Y<169"",1:"",Y<169"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(440.05,.01,1,0)="^.1^^0"
^DD(440.05,.01,2)="S Y(0)=Y Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""  ""_$P(Y,U,2)"
^DD(440.05,.01,2.1)="Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""  ""_$P(Y,U,2)"
^DD(440.05,.01,3)="Enter FPDS Socioeconomic Group for use in FPDS reporting for FY 1989 or later."
^DD(440.05,.01,12)="Select HZ,N,P,RV,W,S,U,LW,LV, or OO"
^DD(440.05,.01,12.1)="S DIC(""S"")=""I Y>155,$P(^(0),U,3)=1"",DIC(""S"")=DIC(""S"")_$S($P(^PRC(440,DA,2),U,3)'=4:"",Y<169"",1:"",Y<169"")"
^DD(440.05,.01,21,0)="^^1^1^2961008^^^^"
^DD(440.05,.01,21,1,0)="This is the socioeconomic group."
^DD(440.05,.01,"DT")="3010109"
^DD(440.05,"B","SOCIOECONOMIC GROUP (FPDS)",.01)=""
^DD(440.05,"GL",0,1,.01)=""
^DD(440.05,"RQ",.01)=""
^DD(440.2,0)="FIELD^^99^8"
^DD(440.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(440.2,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(440.2,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(440.2,0,"ID",4)="W ""   "",$P(^(0),U,5)"
^DD(440.2,0,"ID",5)="W ""   "",$S($D(^DIC(5,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(440.2,0,"ID",6)="W ""   "",$P(^(0),U,7)"
^DD(440.2,0,"IX","B",440.2,.01)=""
^DD(440.2,0,"NM","DIRECT DELIVERY PATIENTS")=""
^DD(440.2,0,"PT",442,5.3)=""
^DD(440.2,0,"PT",443.6,5.3)=""
^DD(440.2,0,"VR")="5.1"
^DD(440.2,0,"VRPK")="IFCAP"
^DD(440.2,.01,0)="NAME^RP2X'^DPT(^0;1^S DINUM=X I $D(PRCH(""PO"")) S DIC(""DR"")=""[PRCHPT]"""
^DD(440.2,.01,1,0)="^.1"
^DD(440.2,.01,1,1,0)="440.2^B"
^DD(440.2,.01,1,1,1)="S ^PRC(440.2,""B"",$E(X,1,30),DA)="""""
^DD(440.2,.01,1,1,2)="K ^PRC(440.2,""B"",$E(X,1,30),DA)"
^DD(440.2,.01,3)=""
^DD(440.2,.01,21,0)="^^1^1^2910516^"
^DD(440.2,.01,21,1,0)="This is the name of the patient."
^DD(440.2,.01,"DT")="2851211"
^DD(440.2,1,0)="STREET ADDR.1^RF^^0;2^K:$L(X)>24!($L(X)<3) X"
^DD(440.2,1,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(440.2,1,21,0)="^^1^1^2910516^"
^DD(440.2,1,21,1,0)="This is the patient street address 1."
^DD(440.2,1,"DT")="2851015"
^DD(440.2,2,0)="STREET ADDR.2^F^^0;3^K:$L(X)>24!($L(X)<3) X"
^DD(440.2,2,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(440.2,2,21,0)="^^1^1^2910516^"
^DD(440.2,2,21,1,0)="This is the patient address 2."
^DD(440.2,2,"DT")="2851015"
^DD(440.2,3,0)="STREET ADDR.3^F^^0;4^K:$L(X)>24!($L(X)<3) X"
^DD(440.2,3,3)="ANSWER MUST BE 3-24 CHARACTERS IN LENGTH"
^DD(440.2,3,21,0)="^^1^1^2910516^"
^DD(440.2,3,21,1,0)="This is the patient street address 3."
^DD(440.2,3,"DT")="2851015"
^DD(440.2,4,0)="CITY^RF^^0;5^K:$L(X)>15!($L(X)<3) X"
^DD(440.2,4,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(440.2,4,21,0)="^^1^1^2910516^"
^DD(440.2,4,21,1,0)="This is the city of the patient address."
^DD(440.2,4,"DT")="2851015"
^DD(440.2,5,0)="STATE^RP5'^DIC(5,^0;6^Q"
^DD(440.2,5,21,0)="^^2^2^2930408^"
^DD(440.2,5,21,1,0)=" "
^DD(440.2,5,21,2,0)="This is the state of the patient address."
^DD(440.2,5,"DT")="2851015"
^DD(440.2,6,0)="ZIP CODE^RF^^0;7^K:$L(X)>10!($L(X)<5) X"
^DD(440.2,6,3)="ANSWER MUST BE 5-10 CHARACTERS IN LENGTH"
^DD(440.2,6,21,0)="^^1^1^2910516^"
^DD(440.2,6,21,1,0)="This is the zip code of the patient address."
^DD(440.2,6,"DT")="2851015"
^DD(440.2,99,0)="DFN#^NJ8,0^^99;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(440.2,99,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999999"
^DD(440.2,99,21,0)="^^1^1^2910516^"
^DD(440.2,99,21,1,0)="This is the DFN# number."
^DD(440.2,99,"DT")="2851203"
^DD(440.2,"B","CITY",4)=""
^DD(440.2,"B","DFN#",99)=""
^DD(440.2,"B","NAME",.01)=""
^DD(440.2,"B","STATE",5)=""
^DD(440.2,"B","STREET ADDR.1",1)=""
^DD(440.2,"B","STREET ADDR.2",2)=""
^DD(440.2,"B","STREET ADDR.3",3)=""
^DD(440.2,"B","ZIP CODE",6)=""
^DD(440.2,"GL",0,1,.01)=""
^DD(440.2,"GL",0,2,1)=""
^DD(440.2,"GL",0,3,2)=""
^DD(440.2,"GL",0,4,3)=""
^DD(440.2,"GL",0,5,4)=""
^DD(440.2,"GL",0,6,5)=""
^DD(440.2,"GL",0,7,6)=""
^DD(440.2,"GL",99,1,99)=""
^DD(440.2,"IX",.01)=""
^DD(440.2,"RQ",.01)=""
^DD(440.2,"RQ",1)=""
^DD(440.2,"RQ",4)=""
^DD(440.2,"RQ",5)=""
^DD(440.2,"RQ",6)=""
^DD(440.3,0)="FIELD^NL^54^85"
^DD(440.3,0,"DT")="2940526"
^DD(440.3,0,"ID","Z0")="I $D(^(3)),$P(^(3),U,2)=""Y"" W ""   EDI VENDOR"""
^DD(440.3,0,"ID","Z1")="S Z9=$S('$D(^(10)):1,'$P(^(10),U,5):1,1:0) I 'Z9 W *7,""   **** THIS VENDOR IS INACTIVE, USE VENDOR NUMBER ""_$S($D(^(9)):+^(9),1:"""")_"" ****"""
^DD(440.3,0,"ID","Z2")="I '$D(PRCFD(""PAY"")),Z9 W:$D(^(0)) ""   "",$P(^(0),U,10)"
^DD(440.3,0,"ID","Z3")="I Z9 W:$D(Y) ""NO. "",Y W:$D(^(3))&('$D(PRCFD(""PAY""))) !?10,""SPECIAL FACTORS: "",$P(^(3),U,1)"
^DD(440.3,0,"ID","Z4")="I '$D(PRCFD(""PAY"")),Z9 S Z8=$S($D(^(0)):^(0),1:"""") W !?10,""ORDERING ADDRESS: "",$P(Z8,U,2),!?26,""  "",$P(Z8,U,6),"", "",$S($D(^DIC(5,+$P(Z8,U,7),0)):$P(^(0),U,2),1:""""),"" "",$P(^PRC(440.3,Y,0),U,8)"
^DD(440.3,0,"ID","Z5")="I '$D(PRCFD(""PAY"")),Z9 W !,$S($P(^(0),U,11)]"""":"""",'$D(^(2)):""Business Type is undefined"",$P(^(2),U,2):"""",$P(^(2),U,3)']"""":""Business Type is undefined"",1:"""")"
^DD(440.3,0,"ID","Z7")="I $D(PRCFD(""PAY"")),Z9 S Z8=$S($D(^(7)):^(7),1:"""") I Z8]"""" D ADD^PRCFDADD"
^DD(440.3,0,"ID","Z8")="K Z8,Z9 W $E(^PRC(440.3,Y,0),0)"
^DD(440.3,0,"IX","AC",440.3,49)=""
^DD(440.3,0,"IX","AD",440.3,48)=""
^DD(440.3,0,"IX","AE",440.3,51)=""
^DD(440.3,0,"IX","AF",440.3,52)=""
^DD(440.3,0,"IX","B",440.3,.01)=""
^DD(440.3,0,"NM","VENDOR EDIT")=""
^DD(440.3,0,"PT",440.3,15)=""
^DD(440.3,0,"PT",440.3,48)=""
^DD(440.3,0,"PT",440.3,51)=""
^DD(440.3,0,"VR")="5.1"
^DD(440.3,0,"VRPK")="IFCAP"
^DD(440.3,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(440.3,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(440.3,.001,21,0)="^^1^1^2910516^"
^DD(440.3,.001,21,1,0)="This is the vendor number."
^DD(440.3,.001,"DT")="2850425"
^DD(440.3,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>36!($L(X)<1)!'(X'?1P.E) X I $D(X) S:$D(PRCHPO) DIC(""DR"")=""[PRCHVENDOR]"""
^DD(440.3,.01,.1)=""
^DD(440.3,.01,1,0)="^.1^^-1"
^DD(440.3,.01,1,1,0)="440.3^B"
^DD(440.3,.01,1,1,1)="S ^PRC(440.3,""B"",X,DA)="""""
^DD(440.3,.01,1,1,2)="K ^PRC(440.3,""B"",X,DA)"
^DD(440.3,.01,3)="ANSWER MUST BE 1-36 CHARACTERS IN LENGTH"
^DD(440.3,.01,21,0)="^^1^1^2910516^"
^DD(440.3,.01,21,1,0)="This is the vendor name."
^DD(440.3,.01,"DT")="2940222"
^DD(440.3,.05,0)="SUPPLY WHSE. INDICATOR^SX^S:SUPPLY WAREHOUSE;^0;11^I $D(^PRC(440.3,""AC"")) S Z0=+$O(^(""AC"",""S"",0)) I $D(^PRC(440.3,Z0,0)) W !,*7,$P(^(0),U,1)_"" is already designated as the SUPPLY WAREHOUSE "" K X"
^DD(440.3,.05,1,0)="^.1^^0"
^DD(440.3,.05,3)="There can only be one source designated as the SUPPLY WAREHOUSE"
^DD(440.3,.05,21,0)="^^2^2^2910516^^"
^DD(440.3,.05,21,1,0)="This is the set of codes for supply warehouse indicator."
^DD(440.3,.05,21,2,0)="Only one source can be designated as the supply warehouse."
^DD(440.3,.05,"DT")="2940222"
^DD(440.3,.06,0)="FEDERAL SOURCE^*P420.8'^PRCD(420.8,^2;2^S DIC(""S"")=""I """"1390""""[$E(^(0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(440.3,.06,3)="Enter only if this is Federal Source vendor and will only be used on a requisition."
^DD(440.3,.06,12)="ENTER THE APPROPRIATE SOURCE CODE"
^DD(440.3,.06,12.1)="S DIC(""S"")=""I """"1390""""[$E(^(0))"""
^DD(440.3,.06,21,0)="^^1^1^2910516^"
^DD(440.3,.06,21,1,0)="This is the federal source."
^DD(440.3,.06,"DT")="2870904"
^DD(440.3,.2,0)="EDI VENDOR?^S^Y:YES;^3;2^Q"
^DD(440.3,.2,.1)=""
^DD(440.3,.2,3)="Enter YES if this vendor can accept purchase orders electronically using EDI X12."
^DD(440.3,.2,21,0)="^^2^2^2910801^^"
^DD(440.3,.2,21,1,0)="     This field identifies those vendors who are prepared to receive"
^DD(440.3,.2,21,2,0)="purchase orders electronically through the EDI system in AUSTIN."
^DD(440.3,.2,"DT")="2910801"
^DD(440.3,.4,0)="VENDOR ID NUMBER^FX^^3;3^K:$L(X)>12!($L(X)<5) X I $D(X) K:X'?5.12UN X"
^DD(440.3,.4,3)="Enter the vendor's EDI identification number.  It should be 5-12 upper case           alpha/numeric characters."
^DD(440.3,.4,21,0)="^^1^1^2910801^^"
^DD(440.3,.4,21,1,0)="     This field uniquely identifies a vendor to the EDI system."
^DD(440.3,.4,"DT")="2910726"
^DD(440.3,1,0)="ORDERING ADDRESS1^RF^^0;2^K:$L(X)>33!($L(X)<1) X"
^DD(440.3,1,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440.3,1,21,0)="^^1^1^2910911^^"
^DD(440.3,1,21,1,0)="This is the vendor ordering address 1."
^DD(440.3,1,"DT")="2860220"
^DD(440.3,2,0)="ORDERING ADDRESS2^F^^0;3^K:$L(X)>33!($L(X)<1) X"
^DD(440.3,2,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440.3,2,21,0)="^^1^1^2910516^"
^DD(440.3,2,21,1,0)="This is the vendor ordering address 2."
^DD(440.3,2,"DT")="2860220"
^DD(440.3,3,0)="ORDERING ADDRESS3^F^^0;4^K:$L(X)>25!($L(X)<1) X"
^DD(440.3,3,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440.3,3,21,0)="^^1^1^2910516^"
^DD(440.3,3,21,1,0)="This is the vendor ordering address 3."
^DD(440.3,3,"DT")="2860220"
^DD(440.3,4,0)="ORDERING ADDRESS4^F^^0;5^K:$L(X)>25!($L(X)<1) X"
^DD(440.3,4,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440.3,4,21,0)="^^1^1^2910516^"
^DD(440.3,4,21,1,0)="This is the vendor ordering address 4."
^DD(440.3,4,"DT")="2860220"
^DD(440.3,4.2,0)="ORDERING CITY^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(440.3,4.2,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(440.3,4.2,21,0)="^^1^1^2910516^"
^DD(440.3,4.2,21,1,0)="This is the city of the vendor ordering address."
^DD(440.3,4.2,"DT")="2860208"
^DD(440.3,4.4,0)="ORDERING STATE^P5'^DIC(5,^0;7^Q"
^DD(440.3,4.4,21,0)="^^1^1^2910516^"
^DD(440.3,4.4,21,1,0)="This is the state of the vendor ordering address."
^DD(440.3,4.4,"DT")="2860208"
^DD(440.3,4.6,0)="ORDERING ZIP CODE^FX^^0;8^K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(440.3,4.6,3)="5 DIGIT ZIP OR A 9 DIGIT ZIP IN THIS FORMAT 12345-6789"
^DD(440.3,4.6,21,0)="^^1^1^2910516^"
^DD(440.3,4.6,21,1,0)="This is the zip code of the ordering address."
^DD(440.3,4.6,"DT")="2860208"
^DD(440.3,4.7,0)="COUNTY^FXO^^2;4^S Z0=$S($P(^PRC(440.3,D0,0),U,7)]"""":$P(^(0),U,7),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(440.3,4.7,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($P(^PRC(440.3,D0,0),U,7)]"""":$P(^(0),U,7),1:0) Q:'Z0  S Y=$S($D(^DIC(5,Z0,1,Y,0)):$P(^(0),U,1),1:"""") K Z0"
^DD(440.3,4.7,2.1)="Q:Y']""""  S Z0=$S($P(^PRC(440.3,D0,0),U,7)]"""":$P(^(0),U,7),1:0) Q:'Z0  S Y=$S($D(^DIC(5,Z0,1,Y,0)):$P(^(0),U,1),1:"""") K Z0"
^DD(440.3,4.7,3)="Enter the appropriate county for the given state"
^DD(440.3,4.7,4)="S ZD=D,X=""?"",Z0=$S($P(^PRC(440.3,D0,0),U,7)]"""":$P(^(0),U,7),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(440.3,4.7,21,0)="^^2^2^2910516^"
^DD(440.3,4.7,21,1,0)="This is the appropriate county for the given state"
^DD(440.3,4.7,21,2,0)="of the vendor ordering address."
^DD(440.3,4.7,"DT")="2860514"
^DD(440.3,4.8,0)="PROCUREMENT CONTACT PERSON^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(440.3,4.8,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(440.3,4.8,21,0)="^^1^1^2910516^"
^DD(440.3,4.8,21,1,0)="This is the name of the procurement contact person."
^DD(440.3,4.8,"DT")="2850727"
^DD(440.3,5,0)="VA P&C contact phone number^F^^0;10^K:$L(X)>18!($L(X)<3) X"
^DD(440.3,5,3)="ANSWER MUST BE 3-18 CHARACTERS IN LENGTH"
^DD(440.3,5,21,0)="^^2^2^2940527^^"
^DD(440.3,5,21,1,0)="This is the phone number of the procurement contact"
^DD(440.3,5,21,2,0)="person."
^DD(440.3,5,"DT")="2940527"
^DD(440.3,5.1,0)="ACCOUNT NO.^F^^2;1^K:$L(X)>33!($L(X)<3) X"
^DD(440.3,5.1,3)="ANSWER MUST BE 3-33 CHARACTERS IN LENGTH"
^DD(440.3,5.1,21,0)="^^1^1^2910516^"
^DD(440.3,5.1,21,1,0)="This is the vendor account number."
^DD(440.3,5.2,0)="GUARANTEED DELIVERY VENDOR?^S^Y:YES;N:NO;^2;11^Q"
^DD(440.3,5.2,3)="Enter 'Y' if an agreement has been set up with this vendor to guarantee delivery on direct deliveries to patients."
^DD(440.3,5.2,21,0)="^^1^1^2930204^^^"
^DD(440.3,5.2,21,1,0)="Enter YES if there is a guaranteed delivery agreement for this vendor."
^DD(440.3,5.2,"DT")="2890120"
^DD(440.3,6,0)="CONTRACT NUMBER^440.33I^^4;0"
^DD(440.3,6,21,0)="^^1^1^2910516^"
^DD(440.3,6,21,1,0)="This is the vendor contract number."
^DD(440.3,8,0)="LABOR SURPLUS AREA?^S^Y:YES;N:NO;^2;5^Q"
^DD(440.3,8,21,0)="^^2^2^2910516^^"
^DD(440.3,8,21,1,0)="This indicates whether or not the vendor is located in"
^DD(440.3,8,21,2,0)="a labor surplus."
^DD(440.3,8,"DT")="2860219"
^DD(440.3,8.2,0)="BUSINESS TYPE (FPDS-88)^RSX^1:SMALL;2:LARGE;3:STATE/LOCAL/ED./NON-PROFIT;4:OUTSIDE U.S.;5:FEDERAL GOVT. SOURCE;^2;6^Q"
^DD(440.3,8.2,21,0)="^^2^2^2930408^^^^"
^DD(440.3,8.2,21,1,0)="This is the type of business for FY88 FPDS reporting"
^DD(440.3,8.2,21,2,0)="purposes."
^DD(440.3,8.2,"DT")="2880825"
^DD(440.3,8.3,0)="BUSINESS TYPE (FPDS)^RS^1:SMALL;2:LARGE;3:OUTSIDE U.S.;4:STATE/LOC/ED/NPF;^2;3^Q"
^DD(440.3,8.3,3)="Enter FPDS Business Type for FPDS reports for FY 1989 or later."
^DD(440.3,8.3,21,0)="^^2^2^2910516^^"
^DD(440.3,8.3,21,1,0)="This is the type of business for FY89 FPDS reporting"
^DD(440.3,8.3,21,2,0)="purposes."
^DD(440.3,8.3,"DT")="2880825"
^DD(440.3,9,0)="TYPE OF OWNERSHIP (FY88)^440.31PA^^1;0"
^DD(440.3,9,21,0)="^^1^1^2910516^"
^DD(440.3,9,21,1,0)="This is the type of ownership for FY88 FPDS reporting purposes."
^DD(440.3,10,0)="SOCIOECONOMIC GROUP (FPDS)^440.35P^^1.1;0"
^DD(440.3,10,21,0)="^^2^2^2940204^^"
^DD(440.3,10,21,1,0)="This is the socioeconomic group of the vendor for the"
^DD(440.3,10,21,2,0)="current year."
^DD(440.3,11,0)="SPECIAL FACTORS^F^^3;1^K:$L(X)>50!($L(X)<3) X"
^DD(440.3,11,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(440.3,11,21,0)="^^2^2^2910516^"
^DD(440.3,11,21,1,0)="These are the special factors to be considered when ordering"
^DD(440.3,11,21,2,0)="from this vendor."
^DD(440.3,12.4,0)="AUSTIN DELETED?^S^Y:YES;N:NO;^2;9^Q"
^DD(440.3,12.4,21,0)="^^3^3^2910516^"
^DD(440.3,12.4,21,1,0)="This indicates whether or not the vendor has"
^DD(440.3,12.4,21,2,0)="been deleted from the Austin DPC"
^DD(440.3,12.4,21,3,0)="vendor file."
^DD(440.3,12.4,"DT")="2860513"
^DD(440.3,12.5,0)="FEE VENDOR^S^Y:YES;N:NO;^2;10^Q"
^DD(440.3,12.5,21,0)="^^2^2^2910516^"
^DD(440.3,12.5,21,1,0)="This indicates whether or not this vendor is a "
^DD(440.3,12.5,21,2,0)="fee basis vendor."
^DD(440.3,12.5,"DT")="2860513"
^DD(440.3,13,0)="IS A SF129 ON FILE?^S^Y:YES;N:NO;NA:NOT APPLICABLE;^2;7^Q"
^DD(440.3,13,21,0)="^^1^1^2930204^^"
^DD(440.3,13,21,1,0)="This indicates whether or not a Standard Form 129 is on file."
^DD(440.3,13,"DT")="2860329"
^DD(440.3,14,0)="DATE OF SF129^RD^^2;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.3,14,21,0)="^^1^1^2910516^"
^DD(440.3,14,21,1,0)="This is the date of the Standard Form 129."
^DD(440.3,14,"DT")="2860329"
^DD(440.3,15,0)="REPLACEMENT VENDOR^*P440.3'^PRC(440.3,^9;1^S DIC(""S"")=""I $S('$D(^(9)):1,+^(9)=0:1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(440.3,15,12)="CANNOT CHOOSE AN INACTIVE VENDOR"
^DD(440.3,15,12.1)="S DIC(""S"")=""I $S('$D(^(9)):1,+^(9)=0:1,1:0)"""
^DD(440.3,15,21,0)="^^1^1^2910516^"
^DD(440.3,15,21,1,0)="This is the replacement vendor."
^DD(440.3,15,"DT")="2870225"
^DD(440.3,16,0)="SERVICE/RETURN ADDRESS1^F^^6;1^K:$L(X)>33!($L(X)<1) X"
^DD(440.3,16,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440.3,16,21,0)="^^1^1^2910516^"
^DD(440.3,16,21,1,0)="This is the service/return address 1."
^DD(440.3,16,"DT")="2861122"
^DD(440.3,16.1,0)="SERVICE/RETURN ADDRESS2^F^^6;2^K:$L(X)>33!($L(X)<1) X"
^DD(440.3,16.1,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440.3,16.1,21,0)="^^1^1^2910516^"
^DD(440.3,16.1,21,1,0)="This is the service/return address 2."
^DD(440.3,16.1,"DT")="2861122"
^DD(440.3,16.2,0)="SERVICE/RETURN ADDRESS3^F^^6;3^K:$L(X)>25!($L(X)<1) X"
^DD(440.3,16.2,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440.3,16.2,21,0)="^^1^1^2910516^"
^DD(440.3,16.2,21,1,0)="This is the service/return address 3."
^DD(440.3,16.2,"DT")="2861122"
^DD(440.3,16.3,0)="SERVICE/RETURN ADDRESS4^F^^6;4^K:$L(X)>25!($L(X)<1) X"
^DD(440.3,16.3,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440.3,16.3,21,0)="^^2^2^2930408^"
^DD(440.3,16.3,21,1,0)=" "
^DD(440.3,16.3,21,2,0)="This is the service/return address 4"
^DD(440.3,16.3,"DT")="2861122"
^DD(440.3,16.4,0)="SERVICE/RETURN CITY^F^^6;5^K:$L(X)>20!($L(X)<3) X"
^DD(440.3,16.4,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(440.3,16.4,21,0)="^^1^1^2910516^"
^DD(440.3,16.4,21,1,0)="This is the city of the service/return address."
^DD(440.3,16.4,"DT")="2861122"
^DD(440.3,16.5,0)="SERVICE/RETURN STATE^P5'^DIC(5,^6;6^Q"
^DD(440.3,16.5,21,0)="^^1^1^2910516^"
^DD(440.3,16.5,21,1,0)="This is the state of the service/return address."
^DD(440.3,16.5,"DT")="2861122"
^DD(440.3,16.6,0)="SERVICE/RETURN ZIP CODE^FX^^6;7^K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(440.3,16.6,3)="5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789"
^DD(440.3,16.6,21,0)="^^1^1^2910516^"
^DD(440.3,16.6,21,1,0)="This is the zip code of the service/return address."
^DD(440.3,16.6,"DT")="2861122"
^DD(440.3,16.7,0)="SERVICE CONTACT PERSON^F^^6;8^K:$L(X)>30!($L(X)<3) X"
^DD(440.3,16.7,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(440.3,16.7,21,0)="^^1^1^2910516^"
^DD(440.3,16.7,21,1,0)="This is the service contact person."
^DD(440.3,16.7,"DT")="2861122"
^DD(440.3,16.8,0)="SERVICE PHONE NO.^F^^6;9^K:$L(X)>18!($L(X)<3) X"
^DD(440.3,16.8,3)="ANSWER MUST BE 3-18 CHARACTERS IN LENGTH"
^DD(440.3,16.8,21,0)="^^2^2^2910516^"
^DD(440.3,16.8,21,1,0)="This is the phone number for the service/return"
^DD(440.3,16.8,21,2,0)="contact person."
^DD(440.3,16.8,"DT")="2861122"
^DD(440.3,17,0)="PAYMENT CONTACT PERSON^F^^7;1^K:$L(X)>30!($L(X)<3) X"
^DD(440.3,17,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(440.3,17,21,0)="^^1^1^2910516^"
^DD(440.3,17,21,1,0)="This is the payment contact person."
^DD(440.3,17,"DT")="2861122"
^DD(440.3,17.2,0)="PAYMENT PHONE NO.^F^^7;2^K:$L(X)>18!($L(X)<3) X"
^DD(440.3,17.2,3)="ANSWER MUST BE 3-18 CHARACTERS IN LENGTH"
^DD(440.3,17.2,21,0)="^^1^1^2910516^"
^DD(440.3,17.2,21,1,0)="This is the phone number for the payment contact person."
^DD(440.3,17.2,"DT")="2861122"
^DD(440.3,17.3,0)="PAYMENT ADDRESS1^F^^7;3^K:$L(X)>33!($L(X)<1) X"
^DD(440.3,17.3,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440.3,17.3,21,0)="^^1^1^2910516^"
^DD(440.3,17.3,21,1,0)="This is the payment address 1."
^DD(440.3,17.3,"DT")="2870209"
^DD(440.3,17.4,0)="PAYMENT ADDRESS2^F^^7;4^K:$L(X)>33!($L(X)<1) X"
^DD(440.3,17.4,3)="ANSWER MUST BE 1-33 CHARACTERS IN LENGTH"
^DD(440.3,17.4,21,0)="^^1^1^2910516^"
^DD(440.3,17.4,21,1,0)="This is the payment address 2."
^DD(440.3,17.4,"DT")="2870209"
^DD(440.3,17.5,0)="PAYMENT ADDRESS3^F^^7;5^K:$L(X)>25!($L(X)<1) X"
^DD(440.3,17.5,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440.3,17.5,21,0)="^^1^1^2910516^"
^DD(440.3,17.5,21,1,0)="This is the payment address 3."
^DD(440.3,17.5,"DT")="2870209"
^DD(440.3,17.6,0)="PAYMENT ADDRESS4^F^^7;6^K:$L(X)>25!($L(X)<1) X"
^DD(440.3,17.6,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(440.3,17.6,21,0)="^^1^1^2910516^"
^DD(440.3,17.6,21,1,0)="This is the payment address 4."
^DD(440.3,17.6,"DT")="2870209"
^DD(440.3,17.7,0)="PAYMENT CITY^F^^7;7^K:$L(X)>20!($L(X)<3) X"
^DD(440.3,17.7,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(440.3,17.7,21,0)="^^1^1^2910516^"
^DD(440.3,17.7,21,1,0)="This is the city of payment address."
^DD(440.3,17.7,"DT")="2870209"
^DD(440.3,17.8,0)="PAYMENT STATE^P5'^DIC(5,^7;8^Q"
^DD(440.3,17.8,21,0)="^^1^1^2910516^"
^DD(440.3,17.8,21,1,0)="This is the state of the payment address."
^DD(440.3,17.8,"DT")="2870209"
^DD(440.3,17.9,0)="PAYMENT ZIP CODE^FX^^7;9^K:$L(X)<5!(X'?5N.E)!($L(X)>5&(X'?5N1""-""4N)) X"
^DD(440.3,17.9,3)="ENTER 5 DIGIT ZIP CODE OR 9 DIGIT ZIP CODE IN THIS FORMAT 12345-6789"
^DD(440.3,17.9,21,0)="^^1^1^2910516^"
^DD(440.3,17.9,21,1,0)="This is the zip code for the payment address."
^DD(440.3,17.9,"DT")="2870209"
^DD(440.3,18,0)="CALM ID NUMBER^FX^^7;10^K:$L(X)>9!($L(X)<9)!(X'?9UN) X"
^DD(440.3,18,3)="Answer must be 9 characters in length."
^DD(440.3,18,21,0)="^^1^1^2910516^"
^DD(440.3,18,21,1,0)="This is the CALM identification number."
^DD(440.3,18,"DT")="2891006"
^DD(440.3,18.2,0)="CALM STUB NAME^F^^7;11^K:$L(X)>3!($L(X)<3) X"
^DD(440.3,18.2,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(440.3,18.2,21,0)="^^1^1^2910516^"
^DD(440.3,18.2,21,1,0)="This is the CALM stub name."
^DD(440.3,18.2,"DT")="2870212"
^DD(440.3,18.3,0)="DUN & BRADSTREET #^FX^^7;12^S:$E(X,1,3)=""DUN"" X=$E(X,4,99) K:X'?9N&(X'?13N) X"
^DD(440.3,18.3,3)="ANSWER MUST BE EITHER 9 OR 13 DIGITS IN LENGTH"
^DD(440.3,18.3,21,0)="^^2^2^2940218^^"
^DD(440.3,18.3,21,1,0)="This is the vendor's Dun & Bradstreet number,"
^DD(440.3,18.3,21,2,0)="if applicable."
^DD(440.3,18.3,"DT")="3070313"
^DD(440.3,20,0)="SYNONYM^440.32^^5;0"
^DD(440.3,20,21,0)="^^1^1^2910516^"
^DD(440.3,20,21,1,0)="This is a synonym for the vendor."
^DD(440.3,21,0)="REMARKS^440.34^^8;0"
^DD(440.3,21,21,0)="^^1^1^2910516^"
^DD(440.3,21,21,1,0)="These are remarks about the vendor."
^DD(440.3,22.1,0)="BILLING ADDRESS1^F^^.11;1^K:$L(X)>50!($L(X)<1) X"
^DD(440.3,22.1,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(440.3,22.1,21,0)="^^1^1^2910516^"
^DD(440.3,22.1,21,1,0)="This is the billing address 1."
^DD(440.3,22.1,"DT")="2870518"
^DD(440.3,22.2,0)="BILLING ADDRESS2^F^^.11;2^K:$L(X)>50!($L(X)<1) X"
^DD(440.3,22.2,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(440.3,22.2,21,0)="^^1^1^2910516^"
^DD(440.3,22.2,21,1,0)="This is the billing address 2."
^DD(440.3,22.2,"DT")="2870518"
^DD(440.3,22.3,0)="BILLING ADDRESS3^F^^.11;3^K:$L(X)>30!($L(X)<2) X"
^DD(440.3,22.3,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(440.3,22.3,21,0)="^^1^1^2910516^"
^DD(440.3,22.3,21,1,0)="This is the billing address 3."
^DD(440.3,22.3,"DT")="2870518"
^DD(440.3,22.4,0)="BILLING CITY^F^^.11;4^K:$L(X)>30!($L(X)<2) X"
^DD(440.3,22.4,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(440.3,22.4,21,0)="^^1^1^2910516^"
^DD(440.3,22.4,21,1,0)="This is the city of the billing address."
^DD(440.3,22.4,"DT")="2870518"
^DD(440.3,22.5,0)="BILLING STATE^P5'^DIC(5,^.11;5^Q"
^DD(440.3,22.5,21,0)="^^1^1^2910516^"
^DD(440.3,22.5,21,1,0)="This is the state of the billing address."
^DD(440.3,22.5,"DT")="2871125"
^DD(440.3,22.6,0)="BILLING ZIP CODE^F^^.11;6^K:$L(X)>9!($L(X)<5) X"
^DD(440.3,22.6,3)="ANSWER MUST BE 5-9 CHARACTERS IN LENGTH"
^DD(440.3,22.6,21,0)="^^1^1^2910516^"
^DD(440.3,22.6,21,1,0)="This is the zip code of the billing address."
^DD(440.3,22.6,"DT")="2870518"
^DD(440.3,22.7,0)="BILLING PHONE NUMBER^F^^.11;7^K:$L(X)>20!($L(X)<3) X"
^DD(440.3,22.7,3)="Answer must be 3-20 characters in length."
^DD(440.3,22.7,21,0)="^^2^2^2930408^"
^DD(440.3,22.7,21,1,0)=" "
^DD(440.3,22.7,21,2,0)="This is the phone number of the billing address."
^DD(440.3,22.7,"DT")="2910301"
^DD(440.3,30,0)="DATE VENDOR CREATED^D^^10;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.3,30,3)="Date Vendor was originally created, or Vendor Name was changed."
^DD(440.3,30,21,0)="^^2^2^2910516^^"
^DD(440.3,30,21,1,0)="This is the date the vendor was created, or the date the vendor"
^DD(440.3,30,21,2,0)="name changed."
^DD(440.3,30,"DT")="2890207"
^DD(440.3,31,0)="CREATED BY^P200'^VA(200,^10;2^Q"
^DD(440.3,31,3)="Name of person who added vendor to this file."
^DD(440.3,31,21,0)="^^1^1^2910516^"
^DD(440.3,31,21,1,0)="This is the person who created the vendor."
^DD(440.3,31,"DT")="2921221"
^DD(440.3,31.5,0)="INACTIVATED VENDOR^S^1:INACTIVATED;^10;5^Q"
^DD(440.3,31.5,1,0)="^.1^^0"
^DD(440.3,31.5,3)="Set to '1' automatically by the option used to inactivate a vendor."
^DD(440.3,31.5,21,0)="^^2^2^2910516^^"
^DD(440.3,31.5,21,1,0)="This field is set automatically by the option"
^DD(440.3,31.5,21,2,0)="used to inactivate a vendor."
^DD(440.3,31.5,"DT")="2940222"
^DD(440.3,32,0)="DATE INACTIVATED^D^^10;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.3,32,21,0)="^^1^1^2910516^"
^DD(440.3,32,21,1,0)="This is the date the vendor was made inactive."
^DD(440.3,32,"DT")="2890207"
^DD(440.3,33,0)="INACTIVATED BY^P200'^VA(200,^10;4^Q"
^DD(440.3,33,21,0)="^^1^1^2910516^"
^DD(440.3,33,21,1,0)="This is the person who made the vendor inactive."
^DD(440.3,33,"DT")="2921221"
^DD(440.3,34,0)="FMS VENDOR CODE^F^^3;4^K:$L(X)>9!($L(X)<1) X"
^DD(440.3,34,3)=""
^DD(440.3,34,21,0)="^^2^2^2941110^"
^DD(440.3,34,21,1,0)=" This is the code that FMS uses to identify a vendor.  It comes from the"
^DD(440.3,34,21,2,0)="SSN/TAX ID NUMBER field in this file."
^DD(440.3,34,"DT")="2940127"
^DD(440.3,35,0)="ALT-ADDR-IND^F^^3;5^K:$L(X)>2!($L(X)<1) X"
^DD(440.3,35,3)=""
^DD(440.3,35,21,0)="^^1^1^2941110^"
^DD(440.3,35,21,1,0)="This field allows one VENDOR to have many payment addresses."
^DD(440.3,35,"DT")="2940127"
^DD(440.3,36,0)="NON-RECURRING VENDOR^S^N:NON-RECURRING VENDOR;^3;6^Q"
^DD(440.3,36,21,0)="^^2^2^2940202^^"
^DD(440.3,36,21,1,0)="This field having a 'N' will represent that this vendor will be used"
^DD(440.3,36,21,2,0)="only one time."
^DD(440.3,36,"DT")="2940127"
^DD(440.3,38,0)="TAX ID/SSN^F^^3;8^K:$L(X)>11!($L(X)<9) X"
^DD(440.3,38,3)="Answer must be 9-11 characters in length."
^DD(440.3,38,21,0)="^^3^3^2941110^^^"
^DD(440.3,38,21,1,0)="This field will send FMS information that will be used as the FMS"
^DD(440.3,38,21,2,0)="VENDOR CODE.  FMS might use a different FMS VENDOR CODE but"
^DD(440.3,38,21,3,0)="that is normally not done."
^DD(440.3,38,22)=""
^DD(440.3,38,"DT")="2940523"
^DD(440.3,39,0)="SSN/TAX ID INDICATOR^S^S:SOCIAL SECURITY NUMBER;T:TAX IDENTIFICATION NUMBER;^3;9^Q"
^DD(440.3,39,21,0)="^^1^1^2941110^"
^DD(440.3,39,21,1,0)="This field identifies what the TAX ID/SSN field is."
^DD(440.3,39,"DT")="2940204"
^DD(440.3,40,0)="PAYMENT HOLD INDICATOR^S^N:NO;Y:YES;C:CORRESPONDENCE;^3;10^Q"
^DD(440.3,40,21,0)="^^2^2^2941206^^"
^DD(440.3,40,21,1,0)="Is payment for this vendor placed on hold?  Do we pay this vendor or "
^DD(440.3,40,21,2,0)="don't we?"
^DD(440.3,40,"DT")="2940204"
^DD(440.3,41,0)="1099 VENDOR INDICATOR^S^N:NO;Y:YES;^3;11^Q"
^DD(440.3,41,21,0)="^^1^1^2941110^"
^DD(440.3,41,21,1,0)="Is a 1099 form filled out for this vendor?"
^DD(440.3,41,"DT")="2940209"
^DD(440.3,42,0)="PENDING FLAG^S^P:PENDING APPROVAL;C:CONFIRMATION OF APPROVAL;^3;12^Q"
^DD(440.3,42,21,0)="^^4^4^2941110^"
^DD(440.3,42,21,1,0)="Internal IFCAP flag used to state what is being done with this vendor"
^DD(440.3,42,21,2,0)="and FMS.  When a vendor request is sent to FMS other requests should"
^DD(440.3,42,21,3,0)="wait until there is a FMS VENDOR UPDATE.  Actually no other requests"
^DD(440.3,42,21,4,0)="can be created until the update comes back."
^DD(440.3,42,"DT")="2940204"
^DD(440.3,43,0)="CENTRAL REMIT^S^Y:YES;N:NO;^3;13^Q"
^DD(440.3,43,21,0)="^^1^1^2941110^"
^DD(440.3,43,21,1,0)="Should all payments for this vendor be sent to one place?"
^DD(440.3,43,"DT")="2940209"
^DD(440.3,44,0)="VENDOR TYPE^S^A:AGENT CASHIER;C:COMMERCIAL;E:EMPLOYEE;F:FEDERAL GOVERNMENT;G:GSA;I:INDIVIDUALS-OTHER;O:OTHER COUNTRIES;R:COMMERCIAL-RECURRING PMTS;U:UTILITY COMPANIES;^3;14^Q"
^DD(440.3,44,21,0)="^^1^1^2941110^"
^DD(440.3,44,21,1,0)="This is a list of different kinds of vendors."
^DD(440.3,44,"DT")="2940204"
^DD(440.3,45,0)="MTI ACTION^S^A:ADD;F:ADD IFCAP ONLY;C:CHANGE;D:DELETE;^3;15^Q"
^DD(440.3,45,21,0)="^^2^2^2941110^"
^DD(440.3,45,21,1,0)="This is a set of conditions telling IFCAP what to do with the FMS VENDOR"
^DD(440.3,45,21,2,0)="UPDATE.  This field is never changed by IFCAP users."
^DD(440.3,45,"DT")="2940217"
^DD(440.3,46,0)="FAX #^F^^10;6^K:$L(X)>18!($L(X)<3) X"
^DD(440.3,46,3)=""
^DD(440.3,46,21,0)="^^1^1^2940526^"
^DD(440.3,46,21,1,0)="This is the vendor's FAX phone number."
^DD(440.3,46,"DT")="2940526"
^DD(440.3,47,0)="FLAG^S^1:ADD;2:CHANGE;^VRQ;1^Q"
^DD(440.3,47,3)="ENTER 'FLAG' VALUE"
^DD(440.3,47,21,0)="^^5^5^2960129^"
^DD(440.3,47,21,1,0)="This field is the parameter from PRCHE1 that decides whether to create"
^DD(440.3,47,21,2,0)="a NEW or UPDATE a VENDOR REQUEST."
^DD(440.3,47,21,3,0)="     "
^DD(440.3,47,21,4,0)="In addition the TRIGGER will add one (1) to the VRQ COUNT field when this"
^DD(440.3,47,21,5,0)="field is entered."
^DD(440.3,47,"DT")="2960129"
^DD(440.3,48,0)="VENDOR RECORD^P440.3'^PRC(440.3,^VRQ;2^Q"
^DD(440.3,48,1,0)="^.1"
^DD(440.3,48,1,1,0)="440.3^AD^MUMPS"
^DD(440.3,48,1,1,1)="S NAME=$S($P($G(^PRC(440.3,DA,0)),U)]"""":$P($G(^PRC(440.3,DA,0)),U),1:$P($G(^PRC(440,DA,0)),U)) S:NAME]"""" ^PRC(440.3,""AD"",NAME,$E(X,1,30),DA)="""" K NAME"
^DD(440.3,48,1,1,2)="S NAME=$S($P($G(^PRC(440.3,DA,0)),U)]"""":$P($G(^PRC(440.3,DA,0)),U),1:$P($G(^PRC(440,DA,0)),U)) K:NAME]"""" ^PRC(440.3,""AD"",NAME,$E(X,1,30),DA) K NAME"
^DD(440.3,48,1,1,"%D",0)="^^1^1^2960304^"
^DD(440.3,48,1,1,"%D",1,0)="This Is a list of VENDOR file entries that need VRQs created or reviewed."
^DD(440.3,48,1,1,"DT")="2960304"
^DD(440.3,48,3)="Enter the vendor record selected."
^DD(440.3,48,21,0)="^^3^3^2960129^"
^DD(440.3,48,21,1,0)="This field has the internal entry number for the VENDOR file entry that"
^DD(440.3,48,21,2,0)="may be used to create a VRQ to Austin.  Actually the field should be the"
^DD(440.3,48,21,3,0)="same as the IEN of the entry being edited."
^DD(440.3,48,"DT")="2980923"
^DD(440.3,49,0)="SITE^F^^VRQ;3^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(440.3,49,1,0)="^.1"
^DD(440.3,49,1,1,0)="440.3^AC^MUMPS"
^DD(440.3,49,1,1,1)="D AC^PRCFQ1"
^DD(440.3,49,1,1,2)="Q"
^DD(440.3,49,1,1,"%D",0)="^^2^2^2960222^^^^"
^DD(440.3,49,1,1,"%D",1,0)="This M cross-reference will add one (1) to the entry in the COUNTER file"
^DD(440.3,49,1,1,"%D",2,0)="(file 422.2).  The entry is 123-VRQ-01."
^DD(440.3,49,1,1,"DT")="2960222"
^DD(440.3,49,1,1,"VRQ")="^^688"
^DD(440.3,49,3)="Enter the SITE number."
^DD(440.3,49,21,0)="^^1^1^2960129^"
^DD(440.3,49,21,1,0)="This field will be used to create the VRQ to Austin."
^DD(440.3,49,"DT")="2960222"
^DD(440.3,50,0)="FLAG AR^S^1:ADD;2:CHANGE;^AR;1^Q"
^DD(440.3,50,21,0)="^^3^3^2980929^^^^"
^DD(440.3,50,21,1,0)="This field will be filled in when Accounts Receivable chooses a vendor"
^DD(440.3,50,21,2,0)="that is not vendorized. This vendor needs to be edited before the VRQ"
^DD(440.3,50,21,3,0)="can be sent."
^DD(440.3,50,"DT")="2980903"
^DD(440.3,51,0)="VENDOR RECORD - AR^P440.3'^PRC(440.3,^AR;2^Q"
^DD(440.3,51,1,0)="^.1"
^DD(440.3,51,1,1,0)="440.3^AE^MUMPS"
^DD(440.3,51,1,1,1)="S NAME=$P($G(^PRC(440.3,DA,0)),U) S:NAME]"""" ^PRC(440.3,""AE"",NAME,$E(X,1,30),DA)="""" K NAME"
^DD(440.3,51,1,1,2)="S NAME=$P($G(^PRC(440.3,DA,0)),U) K:NAME]"""" ^PRC(440.3,""AE"",NAME,$E(X,1,30),DA) K NAME"
^DD(440.3,51,1,1,"%D",0)="^^2^2^2980929^^"
^DD(440.3,51,1,1,"%D",1,0)="This is a list of VENDOR file entries that AR has selected.  These entries"
^DD(440.3,51,1,1,"%D",2,0)="need to be vendorized but first need to be edited to supply missing data."
^DD(440.3,51,1,1,"DT")="2980903"
^DD(440.3,51,3)="Enter the vendor record selected."
^DD(440.3,51,21,0)="^^7^7^2980929^^^"
^DD(440.3,51,21,1,0)="This field has the internal entry number for the VENDOR file entry that"
^DD(440.3,51,21,2,0)="needs to be edited.  This record needs to be edited because Accounts"
^DD(440.3,51,21,3,0)="Receivable is having a record in the DEBTOR file pointing to this record."
^DD(440.3,51,21,4,0)="Presently this record is not vendorized and is missing some data to be"
^DD(440.3,51,21,5,0)="able to become a VRQ.  This record needs to be edited by SUPPLY and"
^DD(440.3,51,21,6,0)="maybe FISCAL before it is able to create a VRQ.  This field's data should"
^DD(440.3,51,21,7,0)="equal the IEN for this record."
^DD(440.3,51,"DT")="2980923"
^DD(440.3,52,0)="SITE AR^F^^AR;3^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(440.3,52,1,0)="^.1"
^DD(440.3,52,1,1,0)="440.3^AF^MUMPS"
^DD(440.3,52,1,1,1)="D AF^PRCHUTL"
^DD(440.3,52,1,1,2)="Q"
^DD(440.3,52,1,1,"%D",0)="^^2^2^2980914^^^"
^DD(440.3,52,1,1,"%D",1,0)="This M cross-reference will add one (1) to the AR EDIT entry in the "
^DD(440.3,52,1,1,"%D",2,0)="COUNTER file."
^DD(440.3,52,1,1,"DT")="2980914"
^DD(440.3,52,3)=""
^DD(440.3,52,21,0)="^^2^2^2980929^^^"
^DD(440.3,52,21,1,0)="This field will be used to edit this record in preparation to entering"
^DD(440.3,52,21,2,0)="a VRQ for this record."
^DD(440.3,52,"DT")="2980914"
^DD(440.3,53,0)="OK^S^OK:OK;GOOD:GOOD;^AR;4^Q"
^DD(440.3,53,21,0)="^^4^4^2980929^^^^"
^DD(440.3,53,21,1,0)="This field, when filled in, will signify that this record has all the"
^DD(440.3,53,21,2,0)="required fields to create a VRQ."
^DD(440.3,53,21,3,0)="   "
^DD(440.3,53,21,4,0)="This field is entered in EDIT^PRCOVL."
^DD(440.3,53,"DT")="2981019"
^DD(440.3,54,0)="SENT^S^SENT:SENT;^AR;5^Q"
^DD(440.3,54,21,0)="^^2^2^2980929^^^"
^DD(440.3,54,21,1,0)="When SENT is set the record will have sent a VRQ to Austin or to FISCAL"
^DD(440.3,54,21,2,0)="for review.  This will be set by programming in VRQ^PRCOVL1."
^DD(440.3,54,"DT")="2980924"
^DD(440.3,"B","1099 VENDOR INDICATOR",41)=""
^DD(440.3,"B","ACCOUNT NO.",5.1)=""
^DD(440.3,"B","ALT-ADDR-IND",35)=""
^DD(440.3,"B","AUSTIN DELETED?",12.4)=""
^DD(440.3,"B","BILLING ADDRESS1",22.1)=""
^DD(440.3,"B","BILLING ADDRESS2",22.2)=""
^DD(440.3,"B","BILLING ADDRESS3",22.3)=""
^DD(440.3,"B","BILLING CITY",22.4)=""
^DD(440.3,"B","BILLING PHONE NUMBER",22.7)=""
^DD(440.3,"B","BILLING STATE",22.5)=""
^DD(440.3,"B","BILLING ZIP CODE",22.6)=""
^DD(440.3,"B","BUSINESS TYPE (FPDS)",8.3)=""
^DD(440.3,"B","BUSINESS TYPE (FPDS-88)",8.2)=""
^DD(440.3,"B","CALM ID NUMBER",18)=""
^DD(440.3,"B","CALM STUB NAME",18.2)=""
^DD(440.3,"B","CENTRAL REMIT",43)=""
^DD(440.3,"B","CONTRACT NUMBER",6)=""
^DD(440.3,"B","COUNTY",4.7)=""
^DD(440.3,"B","CREATED BY",31)=""
^DD(440.3,"B","DATE INACTIVATED",32)=""
^DD(440.3,"B","DATE OF SF129",14)=""
^DD(440.3,"B","DATE VENDOR CREATED",30)=""
^DD(440.3,"B","DUN & BRADSTREET #",18.3)=""
^DD(440.3,"B","EDI VENDOR?",.2)=""
^DD(440.3,"B","FAX #",46)=""
^DD(440.3,"B","FEDERAL SOURCE",.06)=""
^DD(440.3,"B","FEE VENDOR",12.5)=""
^DD(440.3,"B","FLAG",47)=""
^DD(440.3,"B","FLAG AR",50)=""
^DD(440.3,"B","FMS VENDOR CODE",34)=""
^DD(440.3,"B","GUARANTEED DELIVERY VENDOR?",5.2)=""
^DD(440.3,"B","INACTIVATED BY",33)=""
^DD(440.3,"B","INACTIVATED VENDOR",31.5)=""
^DD(440.3,"B","IS A SF129 ON FILE?",13)=""
^DD(440.3,"B","LABOR SURPLUS AREA?",8)=""
^DD(440.3,"B","MTI ACTION",45)=""
^DD(440.3,"B","NAME",.01)=""
^DD(440.3,"B","NON-RECURRING VENDOR",36)=""
^DD(440.3,"B","NUMBER",.001)=""
^DD(440.3,"B","OK",53)=""
^DD(440.3,"B","ORDERING ADDRESS1",1)=""
^DD(440.3,"B","ORDERING ADDRESS2",2)=""
^DD(440.3,"B","ORDERING ADDRESS3",3)=""
^DD(440.3,"B","ORDERING ADDRESS4",4)=""
^DD(440.3,"B","ORDERING CITY",4.2)=""
^DD(440.3,"B","ORDERING STATE",4.4)=""
^DD(440.3,"B","ORDERING ZIP CODE",4.6)=""
^DD(440.3,"B","PAYMENT ADDRESS1",17.3)=""
^DD(440.3,"B","PAYMENT ADDRESS2",17.4)=""
^DD(440.3,"B","PAYMENT ADDRESS3",17.5)=""
^DD(440.3,"B","PAYMENT ADDRESS4",17.6)=""
^DD(440.3,"B","PAYMENT CITY",17.7)=""
^DD(440.3,"B","PAYMENT CONTACT PERSON",17)=""
^DD(440.3,"B","PAYMENT HOLD INDICATOR",40)=""
^DD(440.3,"B","PAYMENT PHONE NO.",17.2)=""
^DD(440.3,"B","PAYMENT STATE",17.8)=""
^DD(440.3,"B","PAYMENT ZIP CODE",17.9)=""
^DD(440.3,"B","PENDING FLAG",42)=""
^DD(440.3,"B","PROCUREMENT CONTACT PERSON",4.8)=""
^DD(440.3,"B","REMARKS",21)=""
^DD(440.3,"B","REPLACEMENT VENDOR",15)=""
^DD(440.3,"B","SENT",54)=""
^DD(440.3,"B","SERVICE CONTACT PERSON",16.7)=""
^DD(440.3,"B","SERVICE PHONE NO.",16.8)=""
^DD(440.3,"B","SERVICE/RETURN ADDRESS1",16)=""
^DD(440.3,"B","SERVICE/RETURN ADDRESS2",16.1)=""
^DD(440.3,"B","SERVICE/RETURN ADDRESS3",16.2)=""
^DD(440.3,"B","SERVICE/RETURN ADDRESS4",16.3)=""
^DD(440.3,"B","SERVICE/RETURN CITY",16.4)=""
^DD(440.3,"B","SERVICE/RETURN STATE",16.5)=""
^DD(440.3,"B","SERVICE/RETURN ZIP CODE",16.6)=""
^DD(440.3,"B","SITE",49)=""
^DD(440.3,"B","SITE AR",52)=""
^DD(440.3,"B","SOCIOECONOMIC GROUP (FPDS)",10)=""
^DD(440.3,"B","SPECIAL FACTORS",11)=""
^DD(440.3,"B","SSN/TAX ID INDICATOR",39)=""
^DD(440.3,"B","SUPPLY WHSE. INDICATOR",.05)=""
^DD(440.3,"B","SYNONYM",20)=""
^DD(440.3,"B","TAX ID/SSN",38)=""
^DD(440.3,"B","TYPE OF OWNERSHIP (FY88)",9)=""
^DD(440.3,"B","VA P&C contact phone number",5)=""
^DD(440.3,"B","VENDOR ID NUMBER",.4)=""
^DD(440.3,"B","VENDOR RECORD",48)=""
^DD(440.3,"B","VENDOR RECORD - AR",51)=""
^DD(440.3,"B","VENDOR TYPE",44)=""
^DD(440.3,"GL",0,1,.01)=""
^DD(440.3,"GL",0,2,1)=""
^DD(440.3,"GL",0,3,2)=""
^DD(440.3,"GL",0,4,3)=""
^DD(440.3,"GL",0,5,4)=""
^DD(440.3,"GL",0,6,4.2)=""
^DD(440.3,"GL",0,7,4.4)=""
^DD(440.3,"GL",0,8,4.6)=""
^DD(440.3,"GL",0,9,4.8)=""
^DD(440.3,"GL",0,10,5)=""
^DD(440.3,"GL",0,11,.05)=""
^DD(440.3,"GL",.11,1,22.1)=""
^DD(440.3,"GL",.11,2,22.2)=""
^DD(440.3,"GL",.11,3,22.3)=""
^DD(440.3,"GL",.11,4,22.4)=""
^DD(440.3,"GL",.11,5,22.5)=""
^DD(440.3,"GL",.11,6,22.6)=""
^DD(440.3,"GL",.11,7,22.7)=""
^DD(440.3,"GL",1,0,9)=""
^DD(440.3,"GL",1.1,0,10)=""
^DD(440.3,"GL",2,1,5.1)=""
^DD(440.3,"GL",2,2,.06)=""
^DD(440.3,"GL",2,3,8.3)=""
^DD(440.3,"GL",2,4,4.7)=""
^DD(440.3,"GL",2,5,8)=""
^DD(440.3,"GL",2,6,8.2)=""
^DD(440.3,"GL",2,7,13)=""
^DD(440.3,"GL",2,8,14)=""
^DD(440.3,"GL",2,9,12.4)=""
^DD(440.3,"GL",2,10,12.5)=""
^DD(440.3,"GL",2,11,5.2)=""
^DD(440.3,"GL",3,1,11)=""
^DD(440.3,"GL",3,2,.2)=""
^DD(440.3,"GL",3,3,.4)=""
^DD(440.3,"GL",3,4,34)=""
^DD(440.3,"GL",3,5,35)=""
^DD(440.3,"GL",3,6,36)=""
^DD(440.3,"GL",3,8,38)=""
^DD(440.3,"GL",3,9,39)=""
^DD(440.3,"GL",3,10,40)=""
^DD(440.3,"GL",3,11,41)=""
^DD(440.3,"GL",3,12,42)=""
^DD(440.3,"GL",3,13,43)=""
^DD(440.3,"GL",3,14,44)=""
^DD(440.3,"GL",3,15,45)=""
^DD(440.3,"GL",4,0,6)=""
^DD(440.3,"GL",5,0,20)=""
^DD(440.3,"GL",6,1,16)=""
^DD(440.3,"GL",6,2,16.1)=""
^DD(440.3,"GL",6,3,16.2)=""
^DD(440.3,"GL",6,4,16.3)=""
^DD(440.3,"GL",6,5,16.4)=""
^DD(440.3,"GL",6,6,16.5)=""
^DD(440.3,"GL",6,7,16.6)=""
^DD(440.3,"GL",6,8,16.7)=""
^DD(440.3,"GL",6,9,16.8)=""
^DD(440.3,"GL",7,1,17)=""
^DD(440.3,"GL",7,2,17.2)=""
^DD(440.3,"GL",7,3,17.3)=""
^DD(440.3,"GL",7,4,17.4)=""
^DD(440.3,"GL",7,5,17.5)=""
^DD(440.3,"GL",7,6,17.6)=""
^DD(440.3,"GL",7,7,17.7)=""
^DD(440.3,"GL",7,8,17.8)=""
^DD(440.3,"GL",7,9,17.9)=""
^DD(440.3,"GL",7,10,18)=""
^DD(440.3,"GL",7,11,18.2)=""
^DD(440.3,"GL",7,12,18.3)=""
^DD(440.3,"GL",8,0,21)=""
^DD(440.3,"GL",9,1,15)=""
^DD(440.3,"GL",10,1,30)=""
^DD(440.3,"GL",10,2,31)=""
^DD(440.3,"GL",10,3,32)=""
^DD(440.3,"GL",10,4,33)=""
^DD(440.3,"GL",10,5,31.5)=""
^DD(440.3,"GL",10,6,46)=""
^DD(440.3,"GL","AR",1,50)=""
^DD(440.3,"GL","AR",2,51)=""
^DD(440.3,"GL","AR",3,52)=""
^DD(440.3,"GL","AR",4,53)=""
^DD(440.3,"GL","AR",5,54)=""
^DD(440.3,"GL","VRQ",1,47)=""
^DD(440.3,"GL","VRQ",2,48)=""
^DD(440.3,"GL","VRQ",3,49)=""
^DD(440.3,"IX",.01)=""
^DD(440.3,"IX",48)=""
^DD(440.3,"IX",49)=""
^DD(440.3,"IX",51)=""
^DD(440.3,"IX",52)=""
^DD(440.3,"RQ",.01)=""
^DD(440.3,"RQ",1)=""
^DD(440.3,"RQ",8.2)=""
^DD(440.3,"RQ",8.3)=""
^DD(440.3,"RQ",14)=""
^DD(440.3,"SB",440.31,9)=""
^DD(440.3,"SB",440.32,20)=""
^DD(440.3,"SB",440.33,6)=""
^DD(440.3,"SB",440.34,21)=""
^DD(440.3,"SB",440.35,10)=""
^DD(440.31,0)="TYPE OF OWNERSHIP (FY88) SUB-FIELD^NL^.01^1"
^DD(440.31,0,"NM","TYPE OF OWNERSHIP (FY88)")=""
^DD(440.31,0,"UP")="440.3"
^DD(440.31,.01,0)="TYPE OF OWNERSHIP (FY88)^M*P420.6'OX^PRCD(420.6,^0;1^S DIC(""S"")=""I """"MWVY""""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(440.31,.01,2)="S Y(0)=Y Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""   ""_$P(Y,U,2)"
^DD(440.31,.01,2.1)="Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""   ""_$P(Y,U,2)"
^DD(440.31,.01,12)="CAN ONLY BE AN M,W,Y OR V"
^DD(440.31,.01,12.1)="S DIC(""S"")=""I """"MWVY""""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"""
^DD(440.31,.01,21,0)="^^1^1^2910516^"
^DD(440.31,.01,21,1,0)="This is the type of ownership."
^DD(440.31,.01,"DT")="2880921"
^DD(440.31,"B","TYPE OF OWNERSHIP (FY88)",.01)=""
^DD(440.31,"GL",0,1,.01)=""
^DD(440.32,0)="SYNONYM SUB-FIELD^NL^.01^1"
^DD(440.32,0,"NM","SYNONYM")=""
^DD(440.32,0,"UP")="440.3"
^DD(440.32,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>36!($L(X)<3) X"
^DD(440.32,.01,1,0)="^.1^^0"
^DD(440.32,.01,3)="ANSWER MUST BE 3-36 CHARACTERS IN LENGTH"
^DD(440.32,.01,21,0)="^^1^1^2910516^"
^DD(440.32,.01,21,1,0)="This is the synonym for the vendor."
^DD(440.32,.01,"DT")="2940222"
^DD(440.32,"B","SYNONYM",.01)=""
^DD(440.32,"GL",0,1,.01)=""
^DD(440.33,0)="CONTRACT NUMBER SUB-FIELD^NL^4^5"
^DD(440.33,0,"ID",1)="W ""   EXP. DATE: "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(440.33,0,"ID",2)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(440.33,0,"IX","B",440.33,.01)=""
^DD(440.33,0,"NM","CONTRACT NUMBER")=""
^DD(440.33,0,"UP")="440.3"
^DD(440.33,.01,0)="CONTRACT NUMBER^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>19!($L(X)<7) X"
^DD(440.33,.01,1,0)="^.1^^-1"
^DD(440.33,.01,1,1,0)="440.33^B"
^DD(440.33,.01,1,1,1)="S ^PRC(440.3,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(440.33,.01,1,1,2)="K ^PRC(440.3,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(440.33,.01,3)="ANSWER MUST BE 7-19 CHARACTERS IN LENGTH"
^DD(440.33,.01,21,0)="^^1^1^2910516^"
^DD(440.33,.01,21,1,0)="This is the contract number."
^DD(440.33,.01,"DT")="2860712"
^DD(440.33,1,0)="EXPIRATION DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.33,1,21,0)="^^2^2^2910516^"
^DD(440.33,1,21,1,0)="This is the expiration date of the"
^DD(440.33,1,21,2,0)="vendor contract."
^DD(440.33,1,"DT")="2861122"
^DD(440.33,2,0)="CONTRACT TERMS^F^^1;1^K:$L(X)>50!($L(X)<3) X"
^DD(440.33,2,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(440.33,2,21,0)="^^1^1^2910516^"
^DD(440.33,2,21,1,0)="These are the contract terms."
^DD(440.33,2,"DT")="2860405"
^DD(440.33,3,0)="PROMPT PAYMENT TERMS %^F^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(440.33,3,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(440.33,3,21,0)="^^1^1^2910516^"
^DD(440.33,3,21,1,0)="These are the prompt payment terms."
^DD(440.33,3,"DT")="2860304"
^DD(440.33,4,0)="PROMPT PAYMENT TERMS DAYS^NJ2,0^^0;5^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(440.33,4,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 60"
^DD(440.33,4,21,0)="^^1^1^2930204^^"
^DD(440.33,4,21,1,0)="These are the prompt payment terms number of days."
^DD(440.33,4,"DT")="2860304"
^DD(440.33,"B","CONTRACT NUMBER",.01)=""
^DD(440.33,"B","CONTRACT TERMS",2)=""
^DD(440.33,"B","EXPIRATION DATE",1)=""
^DD(440.33,"B","PROMPT PAYMENT TERMS %",3)=""
^DD(440.33,"B","PROMPT PAYMENT TERMS DAYS",4)=""
^DD(440.33,"GL",0,1,.01)=""
^DD(440.33,"GL",0,2,1)=""
^DD(440.33,"GL",0,4,3)=""
^DD(440.33,"GL",0,5,4)=""
^DD(440.33,"GL",1,1,2)=""
^DD(440.33,"IX",.01)=""
^DD(440.33,"RQ",1)=""
^DD(440.34,0)="REMARKS SUB-FIELD^^.01^1"
^DD(440.34,0,"NM","REMARKS")=""
^DD(440.34,0,"UP")="440.3"
^DD(440.34,.01,0)="REMARKS^W^^0;1^Q"
^DD(440.34,.01,21,0)="^^2^2^2930413^"
^DD(440.34,.01,21,1,0)=" "
^DD(440.34,.01,21,2,0)="Remarks about the vendor"
^DD(440.34,.01,"DT")="2861122"
^DD(440.34,"B","REMARKS",.01)=""
^DD(440.34,"GL",0,1,.01)=""
^DD(440.35,0)="SOCIOECONOMIC GROUP (FPDS) SUB-FIELD^^.01^1"
^DD(440.35,0,"NM","SOCIOECONOMIC GROUP (FY89)")=""
^DD(440.35,0,"UP")="440.3"
^DD(440.35,.01,0)="SOCIOECONOMIC GROUP (FPDS)^MR*P420.6'OX^PRCD(420.6,^0;1^S DIC(""S"")=""I Y>155,$P(^(0),U,3)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(440.35,.01,1,0)="^.1^^0"
^DD(440.35,.01,2)="S Y(0)=Y Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""  ""_$P(Y,U,2)"
^DD(440.35,.01,2.1)="Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U,1)_""  ""_$P(Y,U,2)"
^DD(440.35,.01,3)="Enter FPDS Socioeconomic Group for use in FPDS reporting for FY 1989 or later."
^DD(440.35,.01,12)="Select N,P,Q,R,W or OO"
^DD(440.35,.01,12.1)="S DIC(""S"")=""I Y>155,$P(^(0),U,3)=1"""
^DD(440.35,.01,21,0)="^^1^1^2940204^^"
^DD(440.35,.01,21,1,0)="This is the socioeconomic group."
^DD(440.35,.01,"DT")="2880921"
^DD(440.35,"B","SOCIOECONOMIC GROUP (FPDS)",.01)=""
^DD(440.35,"GL",0,1,.01)=""
^DD(440.35,"RQ",.01)=""
^DD(440.5,0)="FIELD^^71^31"
^DD(440.5,0,"DDA")="N"
^DD(440.5,0,"DT")="2981002"
^DD(440.5,0,"ID",7)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(440.5,0,"ID",10)="W ""   "",$P(^(0),U,11)"
^DD(440.5,0,"IX","AI",440.5,14)=""
^DD(440.5,0,"IX","ARPC",440.5,51)=""
^DD(440.5,0,"IX","B",440.5,.01)=""
^DD(440.5,0,"IX","C",440.512,.01)=""
^DD(440.5,0,"IX","D",440.5,.01)=""
^DD(440.5,0,"IX","E",440.5,8)=""
^DD(440.5,0,"IX","F",440.5,9)=""
^DD(440.5,0,"IX","G",440.5,10)=""
^DD(440.5,0,"IX","H",440.5,7)=""
^DD(440.5,0,"IX","M1",440.5,.01)=""
^DD(440.5,0,"IX","MAA",440.5,8)=""
^DD(440.5,0,"IX","MAA1",440.5,9)=""
^DD(440.5,0,"IX","MAAH",440.5,7)=""
^DD(440.5,0,"IX","MAAH1",440.5,8)=""
^DD(440.5,0,"IX","MAAH2",440.5,9)=""
^DD(440.5,0,"IX","ST",440.5,70)=""
^DD(440.5,0,"NM","PURCHASE CARD INFORMATION")=""
^DD(440.5,0,"PT",410,451)=""
^DD(440.5,0,"PT",442,46)=""
^DD(440.5,0,"PT",443.6,46)=""
^DD(440.5,0,"VR")="5.1"
^DD(440.5,0,"VRPK")="IFCAP"
^DD(440.5,.01,0)="PURCHASE CARD NUMBER^RFXI^^0;1^K:X'?16N!($$LUHN^PRCH0A(X)<1)&($G(PRCSYS)-1) X I $D(X) K:$O(^PRC(440.5,""B"",X,0))>0 X"
^DD(440.5,.01,1,0)="^.1"
^DD(440.5,.01,1,1,0)="440.5^B"
^DD(440.5,.01,1,1,1)="S ^PRC(440.5,""B"",$E(X,1,30),DA)="""""
^DD(440.5,.01,1,1,2)="K ^PRC(440.5,""B"",$E(X,1,30),DA)"
^DD(440.5,.01,1,2,0)="440.5^D^MUMPS"
^DD(440.5,.01,1,2,1)="S ^PRC(440.5,""D"",X_"" "",DA)="""""
^DD(440.5,.01,1,2,2)="K ^PRC(440.5,""D"",X_"" "",DA)"
^DD(440.5,.01,1,2,"DT")="2990304"
^DD(440.5,.01,1,3,0)="440.5^M1^MUMPS"
^DD(440.5,.01,1,3,1)="S ^PRC(440.5,""M1"",$E(X,9,999)_"" "",DA)="""""
^DD(440.5,.01,1,3,2)="K ^PRC(440.5,""M1"",$E(X,9,999)_"" "",DA)"
^DD(440.5,.01,1,3,"DT")="2960701"
^DD(440.5,.01,3)="Enter a valid purchase card number (16-digit)."
^DD(440.5,.01,21,0)="^^3^3^2990309^"
^DD(440.5,.01,21,1,0)="Please enter the purchase card number that you want to assign to a user."
^DD(440.5,.01,21,2,0)="The number can not be an existing number assigned to and used by another"
^DD(440.5,.01,21,3,0)="user."
^DD(440.5,.01,"DEL",1,0)="I 1 D EN^DDIOL(""  CARD CAN'T BE DELETED!! "","""",""?0"")"
^DD(440.5,.01,"DT")="2990308"
^DD(440.5,1,0)="FUND CONTROL POINT^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:'$D(PRC(""SITE"")) X Q:'$D(X)  D INPUT1^PRCHUSER"
^DD(440.5,1,3)="Please input a valid control point."
^DD(440.5,1,4)="Q:'$D(PRC(""SITE""))  S X=""?"",DIC=""^PRC(420,""_PRC(""SITE"")_"",1,"",DIC(0)=""QEM"" S DIC(""S"")=""I $D(^PRC(420,""""C"""",PRCHHLDR,PRC(""""SITE""""),+Y))"" D ^DIC"
^DD(440.5,1,21,0)="^^2^2^2960625^^"
^DD(440.5,1,21,1,0)="Please input a Fund Control Point that you want all the purchases"
^DD(440.5,1,21,2,0)="for this purchase card to be expensed to."
^DD(440.5,1,"DT")="3000912"
^DD(440.5,2,0)="COST CENTER^RFX^^0;3^S Z0=+$P(^PRC(440.5,DA,0),U,2) K:'$D(PRC(""SITE""))!'Z0 X I $D(X) K:'$D(^PRC(420,PRC(""SITE""),1,Z0,2,0)) X I $D(X) D EN2^PRCHNPO5"
^DD(440.5,2,3)="Please enter a valid cost center for the FCP."
^DD(440.5,2,4)="S X=""?"",ZD=D,Z0=+$P(^PRC(440.5,DA,0),U,2) Q:'$D(PRC(""SITE""))!'Z0  Q:'$D(^PRC(420,PRC(""SITE""),1,Z0,2,0))  S DIC=""^PRC(420,PRC(""""SITE""""),1,Z0,2,"",DIC(0)=""QEM"" D ^DIC K Z0"
^DD(440.5,2,21,0)="^^1^1^2960509^^^^"
^DD(440.5,2,21,1,0)="Please input a valid Cost Center for the Fund Control POint."
^DD(440.5,2,"DT")="2960508"
^DD(440.5,3,0)="BUDGET OBJECT CODE^RFX^^0;4^S Z0=+$P(^PRC(440.5,DA,0),U,3) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) S DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""QEMZ"" D ^DIC K:Y<0 X K DIC,Z0 I $D(X) S X=$P(Y(0,0),""^"")"
^DD(440.5,3,3)="Please enter a valid BOC for the Cost Center."
^DD(440.5,3,4)="S Z0=+$P(^PRC(440.5,DA,0),U,3) K:'Z0 X,Z0 I $D(X) S X=""?"",DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""E"" D ^DIC K DIC,Z0"
^DD(440.5,3,21,0)="^^1^1^2960509^"
^DD(440.5,3,21,1,0)="Please input a valid Budget Object Code for the Cost Center."
^DD(440.5,3,"DT")="2960508"
^DD(440.5,4,0)="PC USER SINGLE PURCHASE LIMIT^NJ11,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999.99)!(X<0) X"
^DD(440.5,4,3)="Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits"
^DD(440.5,4,21,0)="^^2^2^2980715^^^^"
^DD(440.5,4,21,1,0)="This is the maximum amount that can be charged to this Purchase"
^DD(440.5,4,21,2,0)="Card by the purchase card user for any one purchase."
^DD(440.5,4,"DT")="2980715"
^DD(440.5,5,0)="MONTHLY PURCHASE LIMIT^NJ12,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(440.5,5,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(440.5,5,21,0)="^^2^2^2980713^^^"
^DD(440.5,5,21,1,0)="This is the maximum amount that can be charged to this Purchase "
^DD(440.5,5,21,2,0)="Card within any one month."
^DD(440.5,5,"DT")="2980710"
^DD(440.5,6,0)="DELIVERY LOCATION^F^^0;7^K:$L(X)>20!($L(X)<3) X"
^DD(440.5,6,3)="Answer must be 3-20 characters in length."
^DD(440.5,6,21,0)="^^2^2^2960509^"
^DD(440.5,6,21,1,0)="This is the location that you want the ordered items to be"
^DD(440.5,6,21,2,0)="delivered to most of the time."
^DD(440.5,6,"DT")="2960508"
^DD(440.5,7,0)="CARD HOLDER^RP200'^VA(200,^0;8^Q"
^DD(440.5,7,1,0)="^.1"
^DD(440.5,7,1,1,0)="440.5^H"
^DD(440.5,7,1,1,1)="S ^PRC(440.5,""H"",$E(X,1,30),DA)="""""
^DD(440.5,7,1,1,2)="K ^PRC(440.5,""H"",$E(X,1,30),DA)"
^DD(440.5,7,1,1,"%D",0)="^^1^1^2960627^^"
^DD(440.5,7,1,1,"%D",1,0)="This is an index for card holder."
^DD(440.5,7,1,1,"DT")="2960625"
^DD(440.5,7,1,60,0)="440.5^MAAH^MUMPS"
^DD(440.5,7,1,60,1)="N A,B S A=^PRC(440.5,DA,0) F B=9,10 S:$P(A,U,B) ^PRC(440.5,""MAAH"",$P(A,U,B),X,DA)="""""
^DD(440.5,7,1,60,2)="N A,B S A=^PRC(440.5,DA,0) F B=9,10 K:$P(A,U,B) ^PRC(440.5,""MAAH"",$P(A,U,B),X,DA)"
^DD(440.5,7,1,60,"%D",0)="^^1^1^2960701^^"
^DD(440.5,7,1,60,"%D",1,0)="This is an index used to approve reconciled orders."
^DD(440.5,7,1,60,"DT")="2960701"
^DD(440.5,7,3)="Please input a purchase card user to whom this card is issued to."
^DD(440.5,7,21,0)="^^1^1^2960625^^^^"
^DD(440.5,7,21,1,0)="This is the purchase card user this card is issued to."
^DD(440.5,7,"DT")="2960701"
^DD(440.5,8,0)="APPROVING OFFICIAL^RP200'^VA(200,^0;9^Q"
^DD(440.5,8,1,0)="^.1"
^DD(440.5,8,1,1,0)="440.5^E"
^DD(440.5,8,1,1,1)="S ^PRC(440.5,""E"",$E(X,1,30),DA)="""""
^DD(440.5,8,1,1,2)="K ^PRC(440.5,""E"",$E(X,1,30),DA)"
^DD(440.5,8,1,1,"%D",0)="^^1^1^2960618^"
^DD(440.5,8,1,1,"%D",1,0)="This is the cross-reference for the Approving Official."
^DD(440.5,8,1,1,"DT")="2960618"
^DD(440.5,8,1,2,0)="440.5^MAA^MUMPS"
^DD(440.5,8,1,2,1)="S ^PRC(440.5,""MAA"",X,DA)="""""
^DD(440.5,8,1,2,2)="K ^PRC(440.5,""MAA"",X,DA)"
^DD(440.5,8,1,2,"%D",0)="^^1^1^2960625^"
^DD(440.5,8,1,2,"%D",1,0)="This is an index for approval officials and alternate approval officials."
^DD(440.5,8,1,2,"DT")="2960625"
^DD(440.5,8,1,60,0)="440.5^MAAH1^MUMPS"
^DD(440.5,8,1,60,1)="N A S A=^PRC(440.5,DA,0) S:$P(A,U,8) ^PRC(440.5,""MAAH"",X,$P(A,U,8),DA)="""""
^DD(440.5,8,1,60,2)="N A S A=^PRC(440.5,DA,0) K:$P(A,U,8) ^PRC(440.5,""MAAH"",X,$P(A,U,8),DA)"
^DD(440.5,8,1,60,"%D",0)="^^1^1^2960701^^"
^DD(440.5,8,1,60,"%D",1,0)="This is an index used to approve reconciled orders."
^DD(440.5,8,1,60,"DT")="2960701"
^DD(440.5,8,3)="Please input a user who can approve purchase card charges for this purchase card."
^DD(440.5,8,21,0)="^^2^2^2960509^^^"
^DD(440.5,8,21,1,0)="Please input a user who can approve purchase card charges for this"
^DD(440.5,8,21,2,0)="purchase card."
^DD(440.5,8,"DT")="3001214"
^DD(440.5,9,0)="ALTERNATE APPROVING OFFICIAL^P200'^VA(200,^0;10^Q"
^DD(440.5,9,1,0)="^.1"
^DD(440.5,9,1,1,0)="440.5^MAA1^MUMPS"
^DD(440.5,9,1,1,1)="S ^PRC(440.5,""MAA"",X,DA)="""""
^DD(440.5,9,1,1,2)="K ^PRC(440.5,""MAA"",X,DA)"
^DD(440.5,9,1,1,"%D",0)="^^1^1^2960625^"
^DD(440.5,9,1,1,"%D",1,0)="This is an index for approval officials and alternate approval officials."
^DD(440.5,9,1,1,"DT")="2960625"
^DD(440.5,9,1,60,0)="440.5^MAAH2^MUMPS"
^DD(440.5,9,1,60,1)="N A S A=^PRC(440.5,DA,0) S:$P(A,U,8) ^PRC(440.5,""MAAH"",X,$P(A,U,8),DA)="""""
^DD(440.5,9,1,60,2)="N A S A=^PRC(440.5,DA,0) K:$P(A,U,8) ^PRC(440.5,""MAAH"",X,$P(A,U,8),DA)"
^DD(440.5,9,1,60,"%D",0)="^^1^1^2960701^"
^DD(440.5,9,1,60,"%D",1,0)="This is an index used to approve reconciled orders."
^DD(440.5,9,1,60,"DT")="2960701"
^DD(440.5,9,1,99,0)="440.5^F"
^DD(440.5,9,1,99,1)="S ^PRC(440.5,""F"",$E(X,1,30),DA)="""""
^DD(440.5,9,1,99,2)="K ^PRC(440.5,""F"",$E(X,1,30),DA)"
^DD(440.5,9,1,99,"%D",0)="^^1^1^2960620^"
^DD(440.5,9,1,99,"%D",1,0)="This is a cross-reference for ALTERNATE APPROVING OFFICIAL ."
^DD(440.5,9,1,99,"DT")="2960620"
^DD(440.5,9,3)="Please input a user who can also approve purchase card charges for this card in case the Approving Official is not available."
^DD(440.5,9,21,0)="^^2^2^2960509^^^"
^DD(440.5,9,21,1,0)="This is the user who can also approve purchase card charges for this"
^DD(440.5,9,21,2,0)="card in case the Approving Official is not available."
^DD(440.5,9,"DT")="3001214"
^DD(440.5,10,0)="PURCHASE CARD NAME^RF^^0;11^K:$L(X)>30!($L(X)<3) X"
^DD(440.5,10,1,0)="^.1"
^DD(440.5,10,1,1,0)="440.5^G"
^DD(440.5,10,1,1,1)="S ^PRC(440.5,""G"",$E(X,1,30),DA)="""""
^DD(440.5,10,1,1,2)="K ^PRC(440.5,""G"",$E(X,1,30),DA)"
^DD(440.5,10,1,1,"%D",0)="^^1^1^2960625^"
^DD(440.5,10,1,1,"%D",1,0)="This is an index for card name."
^DD(440.5,10,1,1,"DT")="2960625"
^DD(440.5,10,3)="Answer must be 3-30 characters in length."
^DD(440.5,10,21,0)="^^2^2^2960624^^"
^DD(440.5,10,21,1,0)="This is the name by which the user will be able to recognize this purchase"
^DD(440.5,10,21,2,0)="card."
^DD(440.5,10,"DT")="2960625"
^DD(440.5,12,0)="SURROGATE USER^440.512P^^1;0"
^DD(440.5,12,21,0)="^^1^1^2960628^^^^"
^DD(440.5,12,21,1,0)="This is the user who can also use this purchase card to order items."
^DD(440.5,13,0)="MONTHLY PURCHASES^NJ12,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(440.5,13,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(440.5,13,21,0)="^^1^1^2980713^"
^DD(440.5,13,21,1,0)="This is a monthly purchase dollar amount."
^DD(440.5,13,"DT")="2980713"
^DD(440.5,14,0)="INACTIVATE CARD?^S^Y:YES;N:NO;^2;2^Q"
^DD(440.5,14,1,0)="^.1"
^DD(440.5,14,1,1,0)="440.5^AI"
^DD(440.5,14,1,1,1)="S ^PRC(440.5,""AI"",$E(X,1,30),DA)="""""
^DD(440.5,14,1,1,2)="K ^PRC(440.5,""AI"",$E(X,1,30),DA)"
^DD(440.5,14,1,1,"%D",0)="^^1^1^2980804^"
^DD(440.5,14,1,1,"%D",1,0)="This index is used by the inactivate expired charge cards option."
^DD(440.5,14,1,1,"DT")="2980804"
^DD(440.5,14,21,0)="^^1^1^2960625^^"
^DD(440.5,14,21,1,0)="This indicates if this purchase card is an inactive card."
^DD(440.5,14,"DT")="2980804"
^DD(440.5,15,0)="STATION NUMBER^RP411'^PRC(411,^2;3^Q"
^DD(440.5,15,1,0)="^.1^^0"
^DD(440.5,15,21,0)="^^1^1^2960625^"
^DD(440.5,15,21,1,0)="This is the station number of the purchase card."
^DD(440.5,15,"DT")="3001214"
^DD(440.5,16,0)="EXPIRATION DATE^DX^^2;4^S %DT=""E"" D ^%DT S X=Y K:3501231<X!(2951231>X) X I $D(X) K:$E(X,4,5)'>0 X"
^DD(440.5,16,3)="Enter a date between 12/31/1995 and 12/31/2050 as it shows on the credit card."
^DD(440.5,16,21,0)="^^3^3^2970421^"
^DD(440.5,16,21,1,0)="This date expressed either as a month-year or month-date-year value"
^DD(440.5,16,21,2,0)="is the last date that this card is active.  The month-year syntax"
^DD(440.5,16,21,3,0)="assumes the last day of the specified month."
^DD(440.5,16,"DT")="2970421"
^DD(440.5,51,0)="E REPLACED CARD NUMBER^F^^50;1^K:$L(X)>18!($L(X)<1)!'(X?16N) X"
^DD(440.5,51,1,0)="^.1"
^DD(440.5,51,1,1,0)="440.5^ARPC"
^DD(440.5,51,1,1,1)="S ^PRC(440.5,""ARPC"",$E(X,1,30),DA)="""""
^DD(440.5,51,1,1,2)="K ^PRC(440.5,""ARPC"",$E(X,1,30),DA)"
^DD(440.5,51,1,1,"%D",0)="^^1^1^2980828^"
^DD(440.5,51,1,1,"%D",1,0)="This is an index by replaced card number."
^DD(440.5,51,1,1,"DT")="2980828"
^DD(440.5,51,3)="Answer must be 1-18 characters in length."
^DD(440.5,51,21,0)="^^2^2^2981005^^^^"
^DD(440.5,51,21,1,0)="This is the existing purchase card number which will be replaced by a"
^DD(440.5,51,21,2,0)=" new purchase card number. "
^DD(440.5,51,"DT")="2981002"
^DD(440.5,52,0)="E CARD HOLDER NAME^F^^50;2^K:$L(X)>35!($L(X)<1) X"
^DD(440.5,52,3)="Answer must be 1-35 characters in length."
^DD(440.5,52,21,0)="^^2^2^2981005^^"
^DD(440.5,52,21,1,0)="This is the  purchase card holder name that is passed from the charge"
^DD(440.5,52,21,2,0)=" card vendor."
^DD(440.5,52,"DT")="2980619"
^DD(440.5,53,0)="E STATION NUMBER^F^^50;3^K:$L(X)>10!($L(X)<1) X"
^DD(440.5,53,3)="Answer must be 1-10 characters in length."
^DD(440.5,53,21,0)="^^1^1^2981005^^^"
^DD(440.5,53,21,1,0)="This is the station number passed from the charge card vendor."
^DD(440.5,53,"DT")="2980710"
^DD(440.5,54,0)="E VALID DATE^F^^50;4^K:$L(X)>12!($L(X)<1) X"
^DD(440.5,54,3)="Answer must be 1-12 characters in length."
^DD(440.5,54,21,0)="^^1^1^2981005^^^^"
^DD(440.5,54,21,1,0)="This is the date card was embossed."
^DD(440.5,54,"DT")="2980921"
^DD(440.5,55,0)="E FUND CODE^F^^50;5^K:$L(X)>10!($L(X)<1) X"
^DD(440.5,55,3)="Answer must be 1-10 characters in length."
^DD(440.5,55,21,0)="^^1^1^2981005^^^"
^DD(440.5,55,21,1,0)="This is the FMS Fund code passed from the charge card vendor."
^DD(440.5,55,"DT")="2980710"
^DD(440.5,56,0)="E ACC CODE^F^^50;6^K:$L(X)>12!($L(X)<1) X"
^DD(440.5,56,3)="Answer must be 1-12 characters in length."
^DD(440.5,56,21,0)="^^1^1^2981005^^^"
^DD(440.5,56,21,1,0)="This is the FMS ACC code passed from the charge card vendor."
^DD(440.5,56,"DT")="2980710"
^DD(440.5,57,0)="E COST CENTER^F^^50;7^K:$L(X)>10!($L(X)<1) X"
^DD(440.5,57,3)="Answer must be 1-10 characters in length."
^DD(440.5,57,21,0)="^^1^1^2981005^^^"
^DD(440.5,57,21,1,0)="This is the cost center passed from the charge card vendor."
^DD(440.5,57,"DT")="2980710"
^DD(440.5,58,0)="E BOC^F^^50;8^K:$L(X)>10!($L(X)<1) X"
^DD(440.5,58,3)="Answer must be 1-10 characters in length."
^DD(440.5,58,21,0)="^^1^1^2981005^^^"
^DD(440.5,58,21,1,0)="This is the FMS BOC passed from the charge card vendor. "
^DD(440.5,58,"DT")="2980710"
^DD(440.5,59,0)="E EXPIRATION DATE^F^^50;9^K:$L(X)>12!($L(X)<1) X"
^DD(440.5,59,3)="Answer must be 1-12 characters in length."
^DD(440.5,59,21,0)="^^2^2^2981005^^^^"
^DD(440.5,59,21,1,0)="This is the charge card expiration date passed from the charge"
^DD(440.5,59,21,2,0)="card vendor. "
^DD(440.5,59,"DT")="2980921"
^DD(440.5,60,0)="E CHARGE CARD NUMBER^F^^50;10^K:$L(X)>20!($L(X)<1) X"
^DD(440.5,60,3)="Answer must be 1-20 characters in length."
^DD(440.5,60,21,0)="^^1^1^2981005^^"
^DD(440.5,60,21,1,0)="This is the new charge card number passed from the charge card vendor. "
^DD(440.5,60,"DT")="2980921"
^DD(440.5,61,0)="E SINGLE PURCHASE LIMIT^F^^50;11^K:$L(X)>15!($L(X)<1) X"
^DD(440.5,61,3)="Answer must be 1-15 characters in length."
^DD(440.5,61,21,0)="^^2^2^2981005^^^"
^DD(440.5,61,21,1,0)="This is the charge card single purchase limit passed from the charge"
^DD(440.5,61,21,2,0)="card vendor."
^DD(440.5,61,"DT")="2980921"
^DD(440.5,62,0)="E MONTHLY PURCHASE LIMIT^F^^50;12^K:$L(X)>15!($L(X)<1) X"
^DD(440.5,62,3)="Answer must be 1-15 characters in length."
^DD(440.5,62,21,0)="^^2^2^2981006^^^"
^DD(440.5,62,21,1,0)="This is the charge card monthly purchase limit passed from the "
^DD(440.5,62,21,2,0)="charge card vendor."
^DD(440.5,62,"DT")="2980921"
^DD(440.5,63,0)="R FUND CONTROL POINT^F^^50;13^K:$L(X)>10!($L(X)<1) X"
^DD(440.5,63,3)="Answer must be 1-10 characters in length."
^DD(440.5,63,21,0)="^^1^1^2981006^^^"
^DD(440.5,63,21,1,0)="This is a replaced fund control point."
^DD(440.5,63,"DT")="2980921"
^DD(440.5,70,0)="STATUS^S^E:EXCEPTION;P:POSTED;^70;1^Q"
^DD(440.5,70,1,0)="^.1"
^DD(440.5,70,1,1,0)="440.5^ST"
^DD(440.5,70,1,1,1)="S ^PRC(440.5,""ST"",$E(X,1,30),DA)="""""
^DD(440.5,70,1,1,2)="K ^PRC(440.5,""ST"",$E(X,1,30),DA)"
^DD(440.5,70,1,1,"%D",0)="^^1^1^2980730^"
^DD(440.5,70,1,1,"%D",1,0)="This is an index to drive reports."
^DD(440.5,70,1,1,"DT")="2980730"
^DD(440.5,70,21,0)="^^2^2^2981005^^"
^DD(440.5,70,21,1,0)="This field is the status of the entry. If the entry appears on the "
^DD(440.5,70,21,2,0)="Charge Card Exception Report this field will contain a value of E. "
^DD(440.5,70,"DT")="2980730"
^DD(440.5,71,0)="STATUS DATE^D^^70;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.5,71,21,0)="^^1^1^2981005^^"
^DD(440.5,71,21,1,0)="This is the date the status field is set or updated."
^DD(440.5,71,"DT")="2980619"
^DD(440.5,"B","ALTERNATE APPROVING OFFICIAL",9)=""
^DD(440.5,"B","APPROVING OFFICIAL",8)=""
^DD(440.5,"B","BUDGET OBJECT CODE",3)=""
^DD(440.5,"B","CARD HOLDER",7)=""
^DD(440.5,"B","COST CENTER",2)=""
^DD(440.5,"B","DELIVERY LOCATION",6)=""
^DD(440.5,"B","E ACC CODE",56)=""
^DD(440.5,"B","E BOC",58)=""
^DD(440.5,"B","E CARD HOLDER NAME",52)=""
^DD(440.5,"B","E CHARGE CARD NUMBER",60)=""
^DD(440.5,"B","E COST CENTER",57)=""
^DD(440.5,"B","E EXPIRATION DATE",59)=""
^DD(440.5,"B","E FUND CODE",55)=""
^DD(440.5,"B","E MONTHLY PURCHASE LIMIT",62)=""
^DD(440.5,"B","E REPLACED CARD NUMBER",51)=""
^DD(440.5,"B","E SINGLE PURCHASE LIMIT",61)=""
^DD(440.5,"B","E STATION NUMBER",53)=""
^DD(440.5,"B","E VALID DATE",54)=""
^DD(440.5,"B","EXPIRATION DATE",16)=""
^DD(440.5,"B","FUND CONTROL POINT",1)=""
^DD(440.5,"B","INACTIVATE CARD?",14)=""
^DD(440.5,"B","MONTHLY PURCHASE LIMIT",5)=""
^DD(440.5,"B","MONTHLY PURCHASES",13)=""
^DD(440.5,"B","PC USER SINGLE PURCHASE LIMIT",4)=""
^DD(440.5,"B","PURCHASE CARD NAME",10)=""
^DD(440.5,"B","PURCHASE CARD NUMBER",.01)=""
^DD(440.5,"B","R FUND CONTROL POINT",63)=""
^DD(440.5,"B","STATION NUMBER",15)=""
^DD(440.5,"B","STATUS",70)=""
^DD(440.5,"B","STATUS DATE",71)=""
^DD(440.5,"B","SURROGATE USER",12)=""
^DD(440.5,"GL",0,1,.01)=""
^DD(440.5,"GL",0,2,1)=""
^DD(440.5,"GL",0,3,2)=""
^DD(440.5,"GL",0,4,3)=""
^DD(440.5,"GL",0,5,4)=""
^DD(440.5,"GL",0,6,5)=""
^DD(440.5,"GL",0,7,6)=""
^DD(440.5,"GL",0,8,7)=""
^DD(440.5,"GL",0,9,8)=""
^DD(440.5,"GL",0,10,9)=""
^DD(440.5,"GL",0,11,10)=""
^DD(440.5,"GL",1,0,12)=""
^DD(440.5,"GL",2,1,13)=""
^DD(440.5,"GL",2,2,14)=""
^DD(440.5,"GL",2,3,15)=""
^DD(440.5,"GL",2,4,16)=""
^DD(440.5,"GL",50,1,51)=""
^DD(440.5,"GL",50,2,52)=""
^DD(440.5,"GL",50,3,53)=""
^DD(440.5,"GL",50,4,54)=""
^DD(440.5,"GL",50,5,55)=""
^DD(440.5,"GL",50,6,56)=""
^DD(440.5,"GL",50,7,57)=""
^DD(440.5,"GL",50,8,58)=""
^DD(440.5,"GL",50,9,59)=""
^DD(440.5,"GL",50,10,60)=""
^DD(440.5,"GL",50,11,61)=""
^DD(440.5,"GL",50,12,62)=""
^DD(440.5,"GL",50,13,63)=""
^DD(440.5,"GL",70,1,70)=""
^DD(440.5,"GL",70,2,71)=""
^DD(440.5,"IX",.01)=""
^DD(440.5,"IX",7)=""
^DD(440.5,"IX",8)=""
^DD(440.5,"IX",9)=""
^DD(440.5,"IX",10)=""
^DD(440.5,"IX",14)=""
^DD(440.5,"IX",51)=""
^DD(440.5,"IX",70)=""
^DD(440.5,"RQ",.01)=""
^DD(440.5,"RQ",1)=""
^DD(440.5,"RQ",2)=""
^DD(440.5,"RQ",3)=""
^DD(440.5,"RQ",7)=""
^DD(440.5,"RQ",8)=""
^DD(440.5,"RQ",10)=""
^DD(440.5,"RQ",15)=""
^DD(440.5,"SB",440.512,12)=""
^DD(440.512,0)="SURROGATE USER SUB-FIELD^^.01^1"
^DD(440.512,0,"DT")="2960627"
^DD(440.512,0,"IX","B",440.512,.01)=""
^DD(440.512,0,"NM","SURROGATE USER")=""
^DD(440.512,0,"UP")="440.5"
^DD(440.512,.01,0)="SURROGATE USER^MP200'X^VA(200,^0;1^S DINUM=X"
^DD(440.512,.01,1,0)="^.1"
^DD(440.512,.01,1,1,0)="440.512^B"
^DD(440.512,.01,1,1,1)="S ^PRC(440.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(440.512,.01,1,1,2)="K ^PRC(440.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(440.512,.01,1,2,0)="440.5^C"
^DD(440.512,.01,1,2,1)="S ^PRC(440.5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(440.512,.01,1,2,2)="K ^PRC(440.5,""C"",$E(X,1,30),DA(1),DA)"
^DD(440.512,.01,1,2,"DT")="2960509"
^DD(440.512,.01,3)="Please enter an alternate purchase card user"
^DD(440.512,.01,21,0)="^^1^1^2960628^^^^"
^DD(440.512,.01,21,1,0)="This is the user who can also use this purchase card to order items."
^DD(440.512,.01,"DT")="2960628"
^DD(440.512,"B","SURROGATE USER",.01)=""
^DD(440.512,"GL",0,1,.01)=""
^DD(440.512,"IX",.01)=""
^DD(440.6,0)="FIELD^^47^41"
^DD(440.6,0,"DDA")="N"
^DD(440.6,0,"DT")="2960718"
^DD(440.6,0,"ID","H1")="W ""   "",$E($P(^(0),U,9),4,5)_""-""_$E($P(^(0),U,9),6,7)_""-""_$E($P(^(0),U,9),2,3)"
^DD(440.6,0,"ID","H2")="W ""  $"",$J($P(^(0),U,14),0,2)"
^DD(440.6,0,"ID","H3")="W:$D(^(6)) ""   "",$P(^(6),U,1)"
^DD(440.6,0,"IX","B",440.6,.01)=""
^DD(440.6,0,"IX","C",440.6,20)=""
^DD(440.6,0,"IX","D",440.6,5)=""
^DD(440.6,0,"IX","PO",440.6,41)=""
^DD(440.6,0,"IX","ST",440.6,15)=""
^DD(440.6,0,"IX","ST1",440.6,16)=""
^DD(440.6,0,"NM","PURCHASE CARD ORDER RECONCILE")=""
^DD(440.6,0,"PT",664,30)=""
^DD(440.6,0,"VR")="5.1"
^DD(440.6,0,"VRPK")="IFCAP"
^DD(440.6,.01,0)="ORACLE DOCUMENT ID^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(440.6,.01,1,0)="^.1"
^DD(440.6,.01,1,1,0)="440.6^B"
^DD(440.6,.01,1,1,1)="S ^PRCH(440.6,""B"",$E(X,1,30),DA)="""""
^DD(440.6,.01,1,1,2)="K ^PRCH(440.6,""B"",$E(X,1,30),DA)"
^DD(440.6,.01,1,2,0)="^^TRIGGER^440.6^47"
^DD(440.6,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(Y(1),U,7)="""" I X S X=DIV S Y(1)=$S($D(^PRCH(440.6,D0,1)):^(1),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(440.6,.01,1,2,1.1) X ^DD(440.6,.01,1,2,1.4)"
^DD(440.6,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(440.6,.01,1,2,1.4)="S DIH=$S($D(^PRCH(440.6,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,7)=DIV,DIH=440.6,DIG=47 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(440.6,.01,1,2,2)="Q"
^DD(440.6,.01,1,2,"%D",0)="^^2^2^2991220^"
^DD(440.6,.01,1,2,"%D",1,0)="This trigger will be used to populate the field CHARGE RECEIVING DATE with"
^DD(440.6,.01,1,2,"%D",2,0)="the date/time of arrival of ORACLE charges into this file."
^DD(440.6,.01,1,2,"CREATE CONDITION")="CHARGE RECEIVING DATE="""""
^DD(440.6,.01,1,2,"CREATE VALUE")="NOW"
^DD(440.6,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(440.6,.01,1,2,"DT")="2991220"
^DD(440.6,.01,1,2,"FIELD")="CHARGE RECEIVING DATE"
^DD(440.6,.01,3)="Answer must be 1-20 characters in length."
^DD(440.6,.01,21,0)="^^1^1^2960618^^^"
^DD(440.6,.01,21,1,0)="This is document number send by the ORACLE system."
^DD(440.6,.01,"DT")="2991220"
^DD(440.6,1,0)="BATCH NUMBER^F^^0;2^K:$L(X)>6!($L(X)<1) X"
^DD(440.6,1,3)="Answer must be 1-6 characters in length."
^DD(440.6,1,21,0)="^^1^1^2960528^"
^DD(440.6,1,21,1,0)="This is a batch number."
^DD(440.6,1,"DT")="2960528"
^DD(440.6,2,0)="LINE NUMBER^F^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(440.6,2,3)="Answer must be 1-3 characters in length."
^DD(440.6,2,21,0)="^^1^1^2960528^"
^DD(440.6,2,21,1,0)="This is a line number."
^DD(440.6,2,"DT")="2960528"
^DD(440.6,3,0)="CREDIT CARD NUMBER^F^^0;4^K:$L(X)>16!($L(X)<16)!'(X?16N) X"
^DD(440.6,3,3)="Answer must be 16 characters in length."
^DD(440.6,3,21,0)="^^1^1^2960528^"
^DD(440.6,3,21,1,0)="This is a credit card number."
^DD(440.6,3,"DT")="2960528"
^DD(440.6,4,0)="BANK'S VENDOR ID^F^^0;5^K:$L(X)>9!($L(X)<1) X"
^DD(440.6,4,3)="Answer must be 1-9 characters in length."
^DD(440.6,4,21,0)="^^1^1^2960528^"
^DD(440.6,4,21,1,0)="This is a vendor id of Rocky Mountain Bank."
^DD(440.6,4,"DT")="2960917"
^DD(440.6,5,0)="STATEMENT DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,5,1,0)="^.1"
^DD(440.6,5,1,1,0)="440.6^D"
^DD(440.6,5,1,1,1)="S ^PRCH(440.6,""D"",$E(X,1,30),DA)="""""
^DD(440.6,5,1,1,2)="K ^PRCH(440.6,""D"",$E(X,1,30),DA)"
^DD(440.6,5,1,1,"%D",0)="^^1^1^2971124^"
^DD(440.6,5,1,1,"%D",1,0)="This is an index by the statement date."
^DD(440.6,5,1,1,"DT")="2971124"
^DD(440.6,5,21,0)="^^1^1^2960528^"
^DD(440.6,5,21,1,0)="This is a statement date."
^DD(440.6,5,"DT")="2971124"
^DD(440.6,6,0)="TRANSACTION DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,6,21,0)="^^1^1^2960528^"
^DD(440.6,6,21,1,0)="This is the transaction date."
^DD(440.6,6,"DT")="2960528"
^DD(440.6,7,0)="STATION NUMBER^F^^0;8^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(440.6,7,3)="Answer must be 1-5 characters in length."
^DD(440.6,7,21,0)="^^1^1^2960528^"
^DD(440.6,7,21,1,0)="This is the station #."
^DD(440.6,7,"DT")="2960528"
^DD(440.6,8,0)="PURCHASE DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,8,21,0)="^^1^1^2960614^^^"
^DD(440.6,8,21,1,0)="This is the purchase date."
^DD(440.6,8,"DT")="2960614"
^DD(440.6,9,0)="TXN REFERENCE #^F^^0;10^K:$L(X)>23!($L(X)<1) X"
^DD(440.6,9,3)="Answer must be 1-23 characters in length."
^DD(440.6,9,21,0)="^^1^1^2960528^"
^DD(440.6,9,21,1,0)="This is the transaction reference number."
^DD(440.6,9,"DT")="2960528"
^DD(440.6,10,0)="BBFY^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,10,21,0)="^^1^1^2960528^"
^DD(440.6,10,21,1,0)="This is the beginning budget fiscal year date."
^DD(440.6,10,"DT")="2960528"
^DD(440.6,11,0)="EBFY^D^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,11,21,0)="^^1^1^2960528^"
^DD(440.6,11,21,1,0)="This is the ending budget fiscal year."
^DD(440.6,11,"DT")="2960528"
^DD(440.6,12,0)="ACCOUNTING PERIOD^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<9000)!(X?.E1"".""1N.N) X"
^DD(440.6,12,3)="Type a Number between 9000 and 9999, 0 Decimal Digits"
^DD(440.6,12,21,0)="^^1^1^2960528^"
^DD(440.6,12,21,1,0)="This is the accounting period."
^DD(440.6,12,"DT")="2960528"
^DD(440.6,13,0)="AMOUNT^NJ12,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-99999999) X"
^DD(440.6,13,3)="Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits"
^DD(440.6,13,21,0)="^^1^1^2960528^"
^DD(440.6,13,21,1,0)="This is the transaction amount."
^DD(440.6,13,"DT")="2960528"
^DD(440.6,14,0)="FISCAL YEAR^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(440.6,14,3)="Type a Number between 1900 and 9999, 0 Decimal Digits"
^DD(440.6,14,21,0)="^^1^1^2960529^"
^DD(440.6,14,21,1,0)="This is a fiscal year."
^DD(440.6,14,"DT")="2960529"
^DD(440.6,15,0)="STATUS^S^R:RECONCILED;N:NONE;D:DISPUTED;^0;16^Q"
^DD(440.6,15,1,0)="^.1"
^DD(440.6,15,1,1,0)="440.6^ST^MUMPS"
^DD(440.6,15,1,1,1)="S ^PRCH(440.6,""ST"",X_$P(^PRCH(440.6,DA,0),U,17)_""~"",DA)="""""
^DD(440.6,15,1,1,2)="K ^PRCH(440.6,""ST"",X_$P(^PRCH(440.6,DA,0),U,17)_""~"",DA)"
^DD(440.6,15,1,1,"%D",0)="^^1^1^2960626^^^^"
^DD(440.6,15,1,1,"%D",1,0)="This is an index for status field."
^DD(440.6,15,1,1,"DT")="2960626"
^DD(440.6,15,21,0)="^^1^1^2970822^^^^"
^DD(440.6,15,21,1,0)="This is the status of a entry."
^DD(440.6,15,"DT")="2970822"
^DD(440.6,16,0)="CARD HOLDER^P200'^VA(200,^0;17^Q"
^DD(440.6,16,1,0)="^.1"
^DD(440.6,16,1,1,0)="440.6^ST1^MUMPS"
^DD(440.6,16,1,1,1)="I $P(^PRCH(440.6,DA,0),U,16)]"""" S ^PRCH(440.6,""ST"",$P(^PRCH(440.6,DA,0),U,16)_X_""~"",DA)="""" K:X ^PRCH(440.6,""ST"",$P(^PRCH(440.6,DA,0),U,16)_""~"",DA)"
^DD(440.6,16,1,1,2)="I $P(^PRCH(440.6,DA,0),U,16)]"""" K ^PRCH(440.6,""ST"",$P(^PRCH(440.6,DA,0),U,16)_X_""~"",DA) S ^PRCH(440.6,""ST"",$P(^PRCH(440.6,DA,0),U,16)_""~"",DA)="""""
^DD(440.6,16,1,1,"%D",0)="^^1^1^2971009^^^^"
^DD(440.6,16,1,1,"%D",1,0)="This is an index of status and card holder pointer."
^DD(440.6,16,1,1,"DT")="2971009"
^DD(440.6,16,21,0)="^^1^1^2960626^"
^DD(440.6,16,21,1,0)="This is a card holder."
^DD(440.6,16,"DT")="2971009"
^DD(440.6,17,0)="ET CODE SHEET RI^F^^0;18^K:$L(X)>15!($L(X)<1) X"
^DD(440.6,17,3)="Answer must be 1-15 characters in length."
^DD(440.6,17,21,0)="^^1^1^2960716^"
^DD(440.6,17,21,1,0)="This an is ET-code sheet ri of file 2100.1 in free text format."
^DD(440.6,17,"DT")="2960716"
^DD(440.6,18,0)="COMMITTED AMOUNT^NJ11,2^^0;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(440.6,18,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(440.6,18,21,0)="^^1^1^2960716^"
^DD(440.6,18,21,1,0)="This is a committed amount copied from 410 if the final payment is reconciled."
^DD(440.6,18,"DT")="2960716"
^DD(440.6,19,0)="OLD PO STATUS CODE^F^^0;20^K:$L(X)>5!($L(X)<1) X"
^DD(440.6,19,3)="Answer must be 1-5 characters in length."
^DD(440.6,19,21,0)="^^1^1^2960717^"
^DD(440.6,19,21,1,0)="This is the old status code of p.o."
^DD(440.6,19,"DT")="2960717"
^DD(440.6,20,0)="VENDOR PURCHASE ORDER^F^^0;21^K:$L(X)>16!($L(X)<1) X"
^DD(440.6,20,1,0)="^.1"
^DD(440.6,20,1,1,0)="440.6^C"
^DD(440.6,20,1,1,1)="S ^PRCH(440.6,""C"",$E(X,1,30),DA)="""""
^DD(440.6,20,1,1,2)="K ^PRCH(440.6,""C"",$E(X,1,30),DA)"
^DD(440.6,20,1,1,"%D",0)="^^1^1^2970421^"
^DD(440.6,20,1,1,"%D",1,0)="This is an index by the vendor purchase order."
^DD(440.6,20,1,1,"DT")="2970421"
^DD(440.6,20,3)="Answer must be 1-16 characters in length."
^DD(440.6,20,21,0)="^^1^1^2970421^"
^DD(440.6,20,21,1,0)="This is the purchase order id provided by the vendor."
^DD(440.6,20,"DT")="2970421"
^DD(440.6,21,0)="FUND CODE^F^^5;1^K:$L(X)>6!($L(X)<1) X"
^DD(440.6,21,3)="Answer must be 1-6 characters in length."
^DD(440.6,21,21,0)="^^1^1^2960529^"
^DD(440.6,21,21,1,0)="This is a fund code."
^DD(440.6,21,"DT")="2960529"
^DD(440.6,22,0)="ACC CODE^F^^5;2^K:$L(X)>9!($L(X)<1) X"
^DD(440.6,22,3)="Answer must be 1-9 characters in length."
^DD(440.6,22,21,0)="^^1^1^2960529^"
^DD(440.6,22,21,1,0)="This is a acc code."
^DD(440.6,22,"DT")="2960529"
^DD(440.6,23,0)="COST CENTER^F^^5;3^K:$L(X)>7!($L(X)<1) X"
^DD(440.6,23,3)="Answer must be 1-7 characters in length."
^DD(440.6,23,21,0)="^^1^1^2960529^"
^DD(440.6,23,21,1,0)="This is a cost center."
^DD(440.6,23,"DT")="2960529"
^DD(440.6,24,0)="BOC^F^^5;4^K:$L(X)>4!($L(X)<1) X"
^DD(440.6,24,3)="Answer must be 1-4 characters in length."
^DD(440.6,24,21,0)="^^1^1^2960529^"
^DD(440.6,24,21,1,0)="This is a BOC."
^DD(440.6,24,"DT")="2960529"
^DD(440.6,25,0)="APPROVING OFFICE^F^^5;5^K:$L(X)>4!($L(X)<1) X"
^DD(440.6,25,3)="Answer must be 1-4 characters in length."
^DD(440.6,25,21,0)="^^1^1^2960529^"
^DD(440.6,25,21,1,0)="This is a approving office code."
^DD(440.6,25,"DT")="2960529"
^DD(440.6,26,0)="APPROVAL DATE^D^^5;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,26,21,0)="^^3^3^2971117^^"
^DD(440.6,26,21,1,0)="This field is used to store the date when the approving"
^DD(440.6,26,21,2,0)="official signed off on the PO corresponding to the"
^DD(440.6,26,21,3,0)="reconciled Oracle transaction."
^DD(440.6,26,"DT")="2970602"
^DD(440.6,27,0)="APPROVING OFFICIAL^P200'^VA(200,^5;7^Q"
^DD(440.6,27,21,0)="^^1^1^2970611^"
^DD(440.6,27,21,1,0)="This field is used to store the approving official."
^DD(440.6,27,"DT")="2970611"
^DD(440.6,31,0)="MERCHANT NAME^F^^6;1^K:$L(X)>25!($L(X)<1) X"
^DD(440.6,31,3)="Answer must be 1-25 characters in length."
^DD(440.6,31,21,0)="^^1^1^2960529^"
^DD(440.6,31,21,1,0)="This is a merchant name."
^DD(440.6,31,"DT")="2960529"
^DD(440.6,32,0)="MERCHANT ADDRESS 1^F^^6;2^K:$L(X)>23!($L(X)<1) X"
^DD(440.6,32,3)="Answer must be 1-23 characters in length."
^DD(440.6,32,21,0)="^^1^1^2960529^"
^DD(440.6,32,21,1,0)="This is mechant address 1."
^DD(440.6,32,"DT")="2960529"
^DD(440.6,33,0)="MERCHANT ADDRESS 2^F^^6;3^K:$L(X)>23!($L(X)<1) X"
^DD(440.6,33,3)="Answer must be 1-23 characters in length."
^DD(440.6,33,21,0)="^^1^1^2960529^"
^DD(440.6,33,21,1,0)="This is the merchant address 2."
^DD(440.6,33,"DT")="2960529"
^DD(440.6,34,0)="MERCHANT CITY^F^^6;4^K:$L(X)>13!($L(X)<1) X"
^DD(440.6,34,3)="Answer must be 1-13 characters in length."
^DD(440.6,34,21,0)="^^1^1^2960529^"
^DD(440.6,34,21,1,0)="This is the merchant city."
^DD(440.6,34,"DT")="2960529"
^DD(440.6,35,0)="MERCHANT STATE^F^^6;5^K:$L(X)>2!($L(X)<1) X"
^DD(440.6,35,3)="Answer must be 1-2 characters in length."
^DD(440.6,35,21,0)="^^1^1^2960529^"
^DD(440.6,35,21,1,0)="This is the merchant state."
^DD(440.6,35,"DT")="2960529"
^DD(440.6,36,0)="MERCHANT ZIP^F^^6;6^K:$L(X)>12!($L(X)<1) X"
^DD(440.6,36,3)="Answer must be 1-12 characters in length."
^DD(440.6,36,21,0)="^^1^1^2960529^"
^DD(440.6,36,21,1,0)="This is the merchant zip."
^DD(440.6,36,"DT")="2960529"
^DD(440.6,41,0)="PURCHASE ORDER^P442'^PRC(442,^1;1^Q"
^DD(440.6,41,1,0)="^.1"
^DD(440.6,41,1,50,0)="440.6^PO"
^DD(440.6,41,1,50,1)="S ^PRCH(440.6,""PO"",$E(X,1,30),DA)="""""
^DD(440.6,41,1,50,2)="K ^PRCH(440.6,""PO"",$E(X,1,30),DA)"
^DD(440.6,41,1,50,"%D",0)="^^1^1^2960610^"
^DD(440.6,41,1,50,"%D",1,0)="This is an index by purchase order internal order."
^DD(440.6,41,1,50,"DT")="2960610"
^DD(440.6,41,21,0)="^^1^1^2960606^"
^DD(440.6,41,21,1,0)="This is a purchase order field."
^DD(440.6,41,"DT")="2960610"
^DD(440.6,42,0)="RECEIVING REQUIRED^S^Y:YES;N:NO;^1;2^Q"
^DD(440.6,42,21,0)="^^1^1^2960607^^^^"
^DD(440.6,42,21,1,0)="This is a RECEIVING REQUIRED data field."
^DD(440.6,42,"DT")="2960607"
^DD(440.6,43,0)="COMPLETE ORDER RECEIVED^RS^Y:YES;N:NO;^1;3^Q"
^DD(440.6,43,21,0)="^^1^1^2960718^^^^"
^DD(440.6,43,21,1,0)="This is the MERCHANT RECEIVED data."
^DD(440.6,43,"DT")="2960718"
^DD(440.6,44,0)="FINAL CHARGE^RSX^Y:YES;N:NO;^1;4^I X=""Y"" D START^PRCIREC"
^DD(440.6,44,21,0)="^.001^1^1^3060201^^^^"
^DD(440.6,44,21,1,0)="This is the FINAL CHARGE data field."
^DD(440.6,44,"DT")="3070502"
^DD(440.6,45,0)="RECONCILE USER^P200'^VA(200,^1;5^Q"
^DD(440.6,45,21,0)="^^1^1^2960607^"
^DD(440.6,45,21,1,0)="This is the reconcile user data."
^DD(440.6,45,"DT")="2960607"
^DD(440.6,46,0)="RECONCILE DATE^D^^1;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,46,21,0)="^^1^1^2960614^"
^DD(440.6,46,21,1,0)="This is a reconcile date."
^DD(440.6,46,"DT")="2960614"
^DD(440.6,47,0)="CHARGE RECEIVING DATE^D^^1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.6,47,3)="THIS FIELD IS TRIGGERED BY THE .01 FIELD"
^DD(440.6,47,5,1,0)="440.6^.01^2"
^DD(440.6,47,9)="^"
^DD(440.6,47,21,0)="^^3^3^2990715^"
^DD(440.6,47,21,1,0)="This field is filled in whenever the field .01 is populated and will hold"
^DD(440.6,47,21,2,0)="the arrival date/time of the ORACLE charge data in the file. Users should"
^DD(440.6,47,21,3,0)="not try to edit this field directly."
^DD(440.6,47,"DT")="2990714"
^DD(440.6,"B","ACC CODE",22)=""
^DD(440.6,"B","ACCOUNTING PERIOD",12)=""
^DD(440.6,"B","AMOUNT",13)=""
^DD(440.6,"B","APPROVAL DATE",26)=""
^DD(440.6,"B","APPROVING OFFICE",25)=""
^DD(440.6,"B","APPROVING OFFICIAL",27)=""
^DD(440.6,"B","BANK'S VENDOR ID",4)=""
^DD(440.6,"B","BATCH NUMBER",1)=""
^DD(440.6,"B","BBFY",10)=""
^DD(440.6,"B","BOC",24)=""
^DD(440.6,"B","CARD HOLDER",16)=""
^DD(440.6,"B","CHARGE RECEIVING DATE",47)=""
^DD(440.6,"B","COMMITTED AMOUNT",18)=""
^DD(440.6,"B","COMPLETE ORDER RECEIVED",43)=""
^DD(440.6,"B","COST CENTER",23)=""
^DD(440.6,"B","CREDIT CARD NUMBER",3)=""
^DD(440.6,"B","EBFY",11)=""
^DD(440.6,"B","ET CODE SHEET RI",17)=""
^DD(440.6,"B","FINAL CHARGE",44)=""
^DD(440.6,"B","FISCAL YEAR",14)=""
^DD(440.6,"B","FUND CODE",21)=""
^DD(440.6,"B","LINE NUMBER",2)=""
^DD(440.6,"B","MERCHANT ADDRESS 1",32)=""
^DD(440.6,"B","MERCHANT ADDRESS 2",33)=""
^DD(440.6,"B","MERCHANT CITY",34)=""
^DD(440.6,"B","MERCHANT NAME",31)=""
^DD(440.6,"B","MERCHANT STATE",35)=""
^DD(440.6,"B","MERCHANT ZIP",36)=""
^DD(440.6,"B","OLD PO STATUS CODE",19)=""
^DD(440.6,"B","ORACLE DOCUMENT ID",.01)=""
^DD(440.6,"B","PURCHASE DATE",8)=""
^DD(440.6,"B","PURCHASE ORDER",41)=""
^DD(440.6,"B","RECEIVING REQUIRED",42)=""
^DD(440.6,"B","RECONCILE DATE",46)=""
^DD(440.6,"B","RECONCILE USER",45)=""
^DD(440.6,"B","STATEMENT DATE",5)=""
^DD(440.6,"B","STATION NUMBER",7)=""
^DD(440.6,"B","STATUS",15)=""
^DD(440.6,"B","TRANSACTION DATE",6)=""
^DD(440.6,"B","TXN REFERENCE #",9)=""
^DD(440.6,"B","VENDOR PURCHASE ORDER",20)=""
^DD(440.6,"GL",0,1,.01)=""
^DD(440.6,"GL",0,2,1)=""
^DD(440.6,"GL",0,3,2)=""
^DD(440.6,"GL",0,4,3)=""
^DD(440.6,"GL",0,5,4)=""
^DD(440.6,"GL",0,6,5)=""
^DD(440.6,"GL",0,7,6)=""
^DD(440.6,"GL",0,8,7)=""
^DD(440.6,"GL",0,9,8)=""
^DD(440.6,"GL",0,10,9)=""
^DD(440.6,"GL",0,11,10)=""
^DD(440.6,"GL",0,12,11)=""
^DD(440.6,"GL",0,13,12)=""
^DD(440.6,"GL",0,14,13)=""
^DD(440.6,"GL",0,15,14)=""
^DD(440.6,"GL",0,16,15)=""
^DD(440.6,"GL",0,17,16)=""
^DD(440.6,"GL",0,18,17)=""
^DD(440.6,"GL",0,19,18)=""
^DD(440.6,"GL",0,20,19)=""
^DD(440.6,"GL",0,21,20)=""
^DD(440.6,"GL",1,1,41)=""
^DD(440.6,"GL",1,2,42)=""
^DD(440.6,"GL",1,3,43)=""
^DD(440.6,"GL",1,4,44)=""
^DD(440.6,"GL",1,5,45)=""
^DD(440.6,"GL",1,6,46)=""
^DD(440.6,"GL",1,7,47)=""
^DD(440.6,"GL",5,1,21)=""
^DD(440.6,"GL",5,2,22)=""
^DD(440.6,"GL",5,3,23)=""
^DD(440.6,"GL",5,4,24)=""
^DD(440.6,"GL",5,5,25)=""
^DD(440.6,"GL",5,6,26)=""
^DD(440.6,"GL",5,7,27)=""
^DD(440.6,"GL",6,1,31)=""
^DD(440.6,"GL",6,2,32)=""
^DD(440.6,"GL",6,3,33)=""
^DD(440.6,"GL",6,4,34)=""
^DD(440.6,"GL",6,5,35)=""
^DD(440.6,"GL",6,6,36)=""
^DD(440.6,"IX",.01)=""
^DD(440.6,"IX",5)=""
^DD(440.6,"IX",15)=""
^DD(440.6,"IX",16)=""
^DD(440.6,"IX",20)=""
^DD(440.6,"IX",41)=""
^DD(440.6,"RQ",.01)=""
^DD(440.6,"RQ",43)=""
^DD(440.6,"RQ",44)=""
^DD(440.7,0)="FIELD^^50^8"
^DD(440.7,0,"DDA")="N"
^DD(440.7,0,"DT")="2970110"
^DD(440.7,0,"IX","B",440.7,.01)=""
^DD(440.7,0,"NM","MONTHLY ACCRUAL")=""
^DD(440.7,0,"VR")="5.1"
^DD(440.7,0,"VRPK")="IFCAP"
^DD(440.7,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<1)!'(X'?1P.E) X"
^DD(440.7,.01,1,0)="^.1^^-1"
^DD(440.7,.01,1,1,0)="440.7^B"
^DD(440.7,.01,1,1,1)="S ^PRCH(440.7,""B"",X,DA)="""""
^DD(440.7,.01,1,1,2)="K ^PRCH(440.7,""B"",X,DA)"
^DD(440.7,.01,3)="Answer must be 1-45 characters in length."
^DD(440.7,.01,"DT")="2970110"
^DD(440.7,1,0)="COMPILING DATE^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(440.7,1,21,0)="^^1^1^2960913^^"
^DD(440.7,1,21,1,0)="This is the date/time the accrual is compiled."
^DD(440.7,1,"DT")="2960913"
^DD(440.7,2,0)="FMS DOCUMENT COMPILE DATE^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(440.7,2,21,0)="^^1^1^2961216^^^"
^DD(440.7,2,21,1,0)="this is the date/time the SV-doc is sent to FMS."
^DD(440.7,2,"DT")="2961216"
^DD(440.7,3,0)="DOCUMENT AMOUNT^NJ11,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-999999999) X"
^DD(440.7,3,3)="Type a Dollar Amount between -999999999 and 99999999, 2 Decimal Digits"
^DD(440.7,3,21,0)="^^1^1^2960913^"
^DD(440.7,3,21,1,0)="This is the document total amount."
^DD(440.7,3,"DT")="2960913"
^DD(440.7,4,0)="DOCUMENT COUNTER^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(440.7,4,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(440.7,4,21,0)="^^1^1^2960913^"
^DD(440.7,4,21,1,0)="This is the counter used to generate doc's id."
^DD(440.7,4,"DT")="2960913"
^DD(440.7,5,0)="EDIT DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(440.7,5,21,0)="^^1^1^2961105^"
^DD(440.7,5,21,1,0)="This is the date of editing."
^DD(440.7,5,"DT")="2961105"
^DD(440.7,6,0)="FMS DOCUMENT ID^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(440.7,6,3)="Answer must be 1-40 characters in length."
^DD(440.7,6,21,0)="^^1^1^2961108^^"
^DD(440.7,6,21,1,0)="This is used for FMS documents data."
^DD(440.7,6,"DT")="2961108"
^DD(440.7,50,0)="DOCUMENT LINE^440.701A^^50;0"
^DD(440.7,50,21,0)="^^1^1^2970110^^^^"
^DD(440.7,50,21,1,0)="This is the doc line multiple."
^DD(440.7,"B","COMPILING DATE",1)=""
^DD(440.7,"B","DOCUMENT AMOUNT",3)=""
^DD(440.7,"B","DOCUMENT COUNTER",4)=""
^DD(440.7,"B","DOCUMENT LINE",50)=""
^DD(440.7,"B","EDIT DATE",5)=""
^DD(440.7,"B","FMS DOCUMENT COMPILE DATE",2)=""
^DD(440.7,"B","FMS DOCUMENT ID",6)=""
^DD(440.7,"B","NAME",.01)=""
^DD(440.7,"GL",0,1,.01)=""
^DD(440.7,"GL",0,2,1)=""
^DD(440.7,"GL",0,3,2)=""
^DD(440.7,"GL",0,4,3)=""
^DD(440.7,"GL",0,5,4)=""
^DD(440.7,"GL",0,6,5)=""
^DD(440.7,"GL",0,7,6)=""
^DD(440.7,"GL",50,0,50)=""
^DD(440.7,"IX",.01)=""
^DD(440.7,"RQ",.01)=""
^DD(440.7,"SB",440.701,50)=""
^DD(440.701,0)="DOCUMENT LINE SUB-FIELD^^6^7"
^DD(440.701,0,"DT")="2970110"
^DD(440.701,0,"IX","B",440.701,.01)=""
^DD(440.701,0,"IX","MACC",440.701,.01)=""
^DD(440.701,0,"NM","DOCUMENT LINE")=""
^DD(440.701,0,"UP")="440.7"
^DD(440.701,.01,0)="LINE ID^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(440.701,.01,1,0)="^.1"
^DD(440.701,.01,1,1,0)="440.701^B"
^DD(440.701,.01,1,1,1)="S ^PRCH(440.7,DA(1),50,""B"",X,DA)="""""
^DD(440.701,.01,1,1,2)="K ^PRCH(440.7,DA(1),50,""B"",X,DA)"
^DD(440.701,.01,1,2,0)="440.701^MACC^MUMPS"
^DD(440.701,.01,1,2,1)="S:$P(X,""/"",4)]"""" ^PRCH(440.7,DA(1),50,""MACC"",$P(X,""/"",4),DA)="""""
^DD(440.701,.01,1,2,2)="K:$P(X,""/"",4)]"""" ^PRCH(440.7,DA(1),50,""MACC"",$P(X,""/"",4),DA)"
^DD(440.701,.01,1,2,"%D",0)="^^1^1^2970703^^"
^DD(440.701,.01,1,2,"%D",1,0)="This is an index by ACC code."
^DD(440.701,.01,1,2,"DT")="2970703"
^DD(440.701,.01,3)="Answer must be 1-45 characters in length."
^DD(440.701,.01,5,1,0)="440.701^5^1"
^DD(440.701,.01,5,2,0)="440.701^6^1"
^DD(440.701,.01,9)="^"
^DD(440.701,.01,21,0)="^^1^1^2960913^^"
^DD(440.701,.01,21,1,0)="This is the document line id."
^DD(440.701,.01,"DT")="2970703"
^DD(440.701,1,0)="UNPAID AMOUNT^NJ12,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-99999999) X"
^DD(440.701,1,3)="Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits"
^DD(440.701,1,21,0)="^^1^1^2960913^"
^DD(440.701,1,21,1,0)="This is the unpaid amount for purchase card orders."
^DD(440.701,1,"DT")="2960913"
^DD(440.701,2,0)="UNRECONCILED AMOUNT^NJ12,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-99999999) X"
^DD(440.701,2,3)="Type a Dollar Amount between -99999999 and 999999999, 2 Decimal Digits"
^DD(440.701,2,21,0)="^^1^1^2960913^"
^DD(440.701,2,21,1,0)="This is the unreconciled total amount of a specific month in file 440.6."
^DD(440.701,2,"DT")="2960913"
^DD(440.701,3,0)="FCP NUMBER^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(440.701,3,3)="Answer must be 1-10 characters in length."
^DD(440.701,3,21,0)="^^1^1^2960916^"
^DD(440.701,3,21,1,0)="This is the fund control point number."
^DD(440.701,3,"DT")="2960916"
^DD(440.701,4,0)="EDITED ACCRUAL AMOUNT^NJ11,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(440.701,4,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(440.701,4,21,0)="^^1^1^2961105^"
^DD(440.701,4,21,1,0)="This is the accrual amount edited by user."
^DD(440.701,4,"DT")="2961105"
^DD(440.701,5,0)="COST CENTER^P420.1'^PRCD(420.1,^0;6^Q"
^DD(440.701,5,1,0)="^.1"
^DD(440.701,5,1,1,0)="^^TRIGGER^440.701^.01"
^DD(440.701,5,1,1,1)="X ^DD(440.701,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,5,1,1,1.1) X ^DD(440.701,5,1,1,1.4)"
^DD(440.701,5,1,1,1.1)="S X=DIV X ^DD(440.701,5,1,1,49.3) S X=$P(Y(8),Y(9),Y(10),X) S Y=X,X=Y(7),X=X_Y"
^DD(440.701,5,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(440.701,5,1,1,69.2) S X=$S('$D(^PRCD(420.1,+Y(0),0)):"""",1:$P(^(0),U,1)),Y(5)=X S X="" "",Y(6)=X S X=1,X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X'=Y"
^DD(440.701,5,1,1,1.4)="S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(440.701,5,1,1,2)="X ^DD(440.701,5,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,5,1,1,2.1) X ^DD(440.701,5,1,1,2.4)"
^DD(440.701,5,1,1,2.1)="S X=DIV X ^DD(440.701,5,1,1,59.2) S X=$P(Y(5),Y(6),Y(7),X) S Y=X,X=Y(4),X=X_Y"
^DD(440.701,5,1,1,2.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""/"",Y(3)=X S X=5,X=$P(Y(2),Y(3),X)]"""""
^DD(440.701,5,1,1,2.4)="S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(440.701,5,1,1,49.2)="S X=DIU,Y(1)=X S X=""/"",Y(2)=X S X=1,Y(3)=X S X=4,X=$P(Y(1),Y(2),Y(3),X)_""/"",Y(4)=X S X=$S('$D(^PRCD(420.1,+DIV,0)):"""",1:$P(^(0),U,1)),Y(5)=X S X="" "",Y(6)=X S X=1"
^DD(440.701,5,1,1,49.3)="X ^DD(440.701,5,1,1,49.2) S X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y_""/"",Y(7)=X S X=DIU,Y(8)=X S X=""/"",Y(9)=X S X=6,Y(10)=X S X=999"
^DD(440.701,5,1,1,59.2)="S X=DIU,Y(1)=X S X=""/"",Y(2)=X S X=1,Y(3)=X S X=4,X=$P(Y(1),Y(2),Y(3),X)_""//"",Y(4)=X S X=DIU,Y(5)=X S X=""/"",Y(6)=X S X=6,Y(7)=X S X=999"
^DD(440.701,5,1,1,69.2)="S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""/"",Y(3)=X S X=5,X=$P(Y(2),Y(3),X),Y(4)=X"
^DD(440.701,5,1,1,"%D",0)="^^1^1^2970110^"
^DD(440.701,5,1,1,"%D",1,0)="This is a trigger cross-reference."
^DD(440.701,5,1,1,"CREATE CONDITION")="$P(LINE ID,""/"",5)'=$P(COST CENTER,"" "",1)"
^DD(440.701,5,1,1,"CREATE VALUE")="$P(LINE ID,""/"",1,4)_""/""_$P(COST CENTER,"" "",1)_""/""_$P(LINE ID,""/"",6,999)"
^DD(440.701,5,1,1,"DELETE CONDITION")="$P(LINE ID,""/"",5)]"""""
^DD(440.701,5,1,1,"DELETE VALUE")="$P(LINE ID,""/"",1,4)_""//""_$P(LINE ID,""/"",6,999)"
^DD(440.701,5,1,1,"DT")="2970110"
^DD(440.701,5,1,1,"FIELD")="LINE ID"
^DD(440.701,5,21,0)="^^1^1^2970110^"
^DD(440.701,5,21,1,0)="This is a cost center data"
^DD(440.701,5,"DT")="2970110"
^DD(440.701,6,0)="BOC^P420.2'^PRCD(420.2,^0;7^Q"
^DD(440.701,6,1,0)="^.1"
^DD(440.701,6,1,1,0)="^^TRIGGER^440.701^.01"
^DD(440.701,6,1,1,1)="X ^DD(440.701,6,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,6,1,1,1.1) X ^DD(440.701,6,1,1,1.4)"
^DD(440.701,6,1,1,1.1)="S X=DIV X ^DD(440.701,6,1,1,49.2) S X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X_Y"
^DD(440.701,6,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X X ^DD(440.701,6,1,1,69.2) S X=$S('$D(^PRCD(420.2,+Y(0),0)):"""",1:$P(^(0),U,1)),Y(5)=X S X="" "",Y(6)=X S X=1,X=$P(Y(5),Y(6),X) S Y=X,X=Y(4),X=X'=Y"
^DD(440.701,6,1,1,1.4)="S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(440.701,6,1,1,2)="X ^DD(440.701,6,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(440.701,6,1,1,2.1) X ^DD(440.701,6,1,1,2.4)"
^DD(440.701,6,1,1,2.1)="S X=DIV S X=DIU,Y(1)=X S X=""/"",Y(2)=X S X=1,Y(3)=X S X=5,X=$P(Y(1),Y(2),Y(3),X)_""/"""
^DD(440.701,6,1,1,2.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""/"",Y(3)=X S X=6,X=$P(Y(2),Y(3),X)]"""""
^DD(440.701,6,1,1,2.4)="S DIH=$S($D(^PRCH(440.7,DIV(0),50,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,1)=DIV,DIH=440.701,DIG=.01 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(440.701,6,1,1,49.2)="S X=DIU,Y(1)=X S X=""/"",Y(2)=X S X=1,Y(3)=X S X=5,X=$P(Y(1),Y(2),Y(3),X)_""/"",Y(4)=X S X=$S('$D(^PRCD(420.2,+DIV,0)):"""",1:$P(^(0),U,1)),Y(5)=X S X="" "",Y(6)=X S X=1"
^DD(440.701,6,1,1,69.2)="S Y(1)=$S($D(^PRCH(440.7,D0,50,D1,0)):^(0),1:"""") S X=$P(Y(1),U,1),Y(2)=X S X=""/"",Y(3)=X S X=6,X=$P(Y(2),Y(3),X),Y(4)=X"
^DD(440.701,6,1,1,"%D",0)="^^1^1^2970110^"
^DD(440.701,6,1,1,"%D",1,0)="This is a trigger cross-reference."
^DD(440.701,6,1,1,"CREATE CONDITION")="$P(LINE ID,""/"",6)'=$P(BOC,"" "",1)"
^DD(440.701,6,1,1,"CREATE VALUE")="$P(LINE ID,""/"",1,5)_""/""_$P(BOC,"" "",1)"
^DD(440.701,6,1,1,"DELETE CONDITION")="$P(LINE ID,""/"",6)]"""""
^DD(440.701,6,1,1,"DELETE VALUE")="$P(LINE ID,""/"",1,5)_""/"""
^DD(440.701,6,1,1,"DT")="2970110"
^DD(440.701,6,1,1,"FIELD")="LINE ID"
^DD(440.701,6,21,0)="^^1^1^2970110^"
^DD(440.701,6,21,1,0)="This is a BOC data."
^DD(440.701,6,"DT")="2970110"
^DD(440.701,"B","BOC",6)=""
^DD(440.701,"B","COST CENTER",5)=""
^DD(440.701,"B","EDITED ACCRUAL AMOUNT",4)=""
^DD(440.701,"B","FCP NUMBER",3)=""
^DD(440.701,"B","LINE ID",.01)=""
^DD(440.701,"B","UNPAID AMOUNT",1)=""
^DD(440.701,"B","UNRECONCILED AMOUNT",2)=""
^DD(440.701,"GL",0,1,.01)=""
^DD(440.701,"GL",0,2,1)=""
^DD(440.701,"GL",0,3,2)=""
^DD(440.701,"GL",0,4,3)=""
^DD(440.701,"GL",0,5,4)=""
^DD(440.701,"GL",0,6,5)=""
^DD(440.701,"GL",0,7,6)=""
^DD(440.701,"IX",.01)=""
^DD(440.701,"IX",5)=""
^DD(440.701,"IX",6)=""
^DD(440.8,0)="FIELD^^6^7"
^DD(440.8,0,"DDA")="N"
^DD(440.8,0,"DT")="2971119"
^DD(440.8,0,"IX","B",440.8,.01)=""
^DD(440.8,0,"IX","C",440.8,1)=""
^DD(440.8,0,"IX","D",440.8,6)=""
^DD(440.8,0,"NM","PRCH AFC CHARGE TRANSMISSION LOG")=""
^DD(440.8,0,"VR")="5.1"
^DD(440.8,0,"VRPK")="IFCAP"
^DD(440.8,.01,0)="AFC TRANSMISSION FILE ID^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(440.8,.01,1,0)="^.1"
^DD(440.8,.01,1,1,0)="440.8^B"
^DD(440.8,.01,1,1,1)="S ^PRCH(440.8,""B"",$E(X,1,30),DA)="""""
^DD(440.8,.01,1,1,2)="K ^PRCH(440.8,""B"",$E(X,1,30),DA)"
^DD(440.8,.01,3)="Answer must be 3-30 characters in length."
^DD(440.8,.01,21,0)="^^1^1^2971117^^"
^DD(440.8,.01,21,1,0)="This is the AFC transmission file id."
^DD(440.8,.01,"DT")="2971114"
^DD(440.8,1,0)="RECEIVED TIME^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:3990101<X!(2970101>X) X"
^DD(440.8,1,1,0)="^.1"
^DD(440.8,1,1,1,0)="440.8^C"
^DD(440.8,1,1,1,1)="S ^PRCH(440.8,""C"",$E(X,1,30),DA)="""""
^DD(440.8,1,1,1,2)="K ^PRCH(440.8,""C"",$E(X,1,30),DA)"
^DD(440.8,1,1,1,"%D",0)="^^1^1^2971117^"
^DD(440.8,1,1,1,"%D",1,0)="This is the cross-reference for the received time."
^DD(440.8,1,1,1,"DT")="2971117"
^DD(440.8,1,3)="TYPE A DATE BETWEEN 1/1/1997 AND 1/1/2099"
^DD(440.8,1,21,0)="^^1^1^2971117^^"
^DD(440.8,1,21,1,0)="This is the received time of charges from AFC."
^DD(440.8,1,"DT")="2971117"
^DD(440.8,2,0)="POSTING START TIME^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.8,2,21,0)="^^1^1^2971114^"
^DD(440.8,2,21,1,0)="This is the IFCAP posting start time."
^DD(440.8,2,"DT")="2971114"
^DD(440.8,3,0)="POSTING END TIME^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.8,3,21,0)="^^1^1^2971120^^"
^DD(440.8,3,21,1,0)="This the IFCAP posting end time."
^DD(440.8,3,"DT")="2971120"
^DD(440.8,4,0)="AFC CHARGE COUNT^NJ11,0^^0;5^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(440.8,4,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(440.8,4,21,0)="^^1^1^2971114^"
^DD(440.8,4,21,1,0)="This is the AFC charge count."
^DD(440.8,4,"DT")="2971114"
^DD(440.8,5,0)="IFCAP CHARGE COUNT^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(440.8,5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(440.8,5,21,0)="^^1^1^2971114^"
^DD(440.8,5,21,1,0)="This is the IFCAP charge count."
^DD(440.8,5,"DT")="2971114"
^DD(440.8,6,0)="LOG DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(440.8,6,1,0)="^.1"
^DD(440.8,6,1,1,0)="440.8^D"
^DD(440.8,6,1,1,1)="S ^PRCH(440.8,""D"",$E(X,1,30),DA)="""""
^DD(440.8,6,1,1,2)="K ^PRCH(440.8,""D"",$E(X,1,30),DA)"
^DD(440.8,6,1,1,"%D",0)="^^1^1^2971119^"
^DD(440.8,6,1,1,"%D",1,0)="This is a cross-reference by log date."
^DD(440.8,6,1,1,"DT")="2971119"
^DD(440.8,6,21,0)="^^1^1^2971119^"
^DD(440.8,6,21,1,0)="The is a log date."
^DD(440.8,6,"DT")="2971119"
^DD(440.8,"B","AFC CHARGE COUNT",4)=""
^DD(440.8,"B","AFC TRANSMISSION FILE ID",.01)=""
^DD(440.8,"B","IFCAP CHARGE COUNT",5)=""
^DD(440.8,"B","LOG DATE",6)=""
^DD(440.8,"B","POSTING END TIME",3)=""
^DD(440.8,"B","POSTING START TIME",2)=""
^DD(440.8,"B","RECEIVED TIME",1)=""
^DD(440.8,"GL",0,1,.01)=""
^DD(440.8,"GL",0,2,1)=""
^DD(440.8,"GL",0,3,2)=""
^DD(440.8,"GL",0,4,3)=""
^DD(440.8,"GL",0,5,4)=""
^DD(440.8,"GL",0,6,5)=""
^DD(440.8,"GL",0,7,6)=""
^DD(440.8,"IX",.01)=""
^DD(440.8,"IX",1)=""
^DD(440.8,"IX",6)=""
^DD(440.8,"RQ",.01)=""
^DD(441,0)="FIELD^^52^31"
^DD(441,0,"DDA")="N"
^DD(441,0,"DT")="2940209"
^DD(441,0,"ID",.05)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(441,0,"ID","Z")="W:$P($G(^(0)),U,15)>0 ""   NIF#""_$P($G(^(0)),U,15)"
^DD(441,0,"ID","Z0")="S Z9=$S('$D(^(3)):1,'^(3):1,1:0) I 'Z9 W *7,""   **** THIS ITEM IS INACTIVE"" W:$P($G(^(3)),U,4)>0 "", USE ITEM NUMBER ""_$P($G(^(3)),U,4) W "" ****"""
^DD(441,0,"ID","Z1")="I $D(PRCSV),Z9,$D(^(2,+PRCSV,0)) W ""   "" S Z=""U/P: ""_$S($P(^(0),U,8):$P(^(0),U,8)_""/"",1:"""")_$S($D(^PRCD(420.5,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:"""") W:Z'=""U/P: "" Z K Z"
^DD(441,0,"ID","Z2")="W:Z9 @(""$E(""_DIC_""Y,0),0)"") K Z9"
^DD(441,0,"IX","AC",441,.05)=""
^DD(441,0,"IX","AD",441,16)=""
^DD(441,0,"IX","B",441,.01)=""
^DD(441,0,"IX","BA",441,5)=""
^DD(441,0,"IX","BB",441,5)=""
^DD(441,0,"IX","C",441,.05)=""
^DD(441,0,"IX","D",441.01,3)=""
^DD(441,0,"IX","E",441.05,.01)=""
^DD(441,0,"IX","F",441.01,4)=""
^DD(441,0,"IX","G",441,5)=""
^DD(441,0,"IX","I",441,51)=""
^DD(441,0,"NM","ITEM MASTER")=""
^DD(441,0,"PT",50.0441,.01)=""
^DD(441,0,"PT",113,31)=""
^DD(441,0,"PT",410.31,.01)=""
^DD(441,0,"PT",414.02,1)=""
^DD(441,0,"PT",441,16.5)=""
^DD(441,0,"PT",442.01,1.5)=""
^DD(441,0,"PT",443.61,1.5)=""
^DD(441,0,"PT",444.019,1)=""
^DD(441,0,"PT",445.01,.01)=""
^DD(441,0,"PT",445.11,.01)=""
^DD(441,0,"PT",445.121,.01)=""
^DD(441,0,"PT",445.122,.01)=""
^DD(441,0,"PT",445.2,4)=""
^DD(441,0,"PT",445.37,.01)=""
^DD(441,0,"PT",445.7,.01)=""
^DD(441,0,"PT",445.71,.01)=""
^DD(441,0,"PT",445.8,.01)=""
^DD(441,0,"PT",445.81,.01)=""
^DD(441,0,"PT",446.11,.01)=""
^DD(441,0,"PT",447.17,.01)=""
^DD(441,0,"PT",661,.01)=""
^DD(441,0,"SCR")="X $S('$D(PRCPSET):""I """"P""""[$P(^(0),U,6)"",1:PRCPSET) X:$D(PRCHREAV) PRCHREAV"
^DD(441,0,"VR")="5.1"
^DD(441,0,"VRPK")="IFCAP"
^DD(441,.01,0)="NUMBER^RNJ6,0X^^0;1^D TRANS^PRCVITMU I $D(X) S DINUM=X"
^DD(441,.01,1,0)="^.1^^-1"
^DD(441,.01,1,1,0)="441^B"
^DD(441,.01,1,1,1)="S ^PRC(441,""B"",$E(X,1,30),DA)="""""
^DD(441,.01,1,1,2)="K ^PRC(441,""B"",$E(X,1,30),DA)"
^DD(441,.01,3)="Enter 'NEW' if you want the next available number"
^DD(441,.01,21,0)="^.001^1^1^3041130^^"
^DD(441,.01,21,1,0)="This is the item number."
^DD(441,.01,"DT")="3050419"
^DD(441,.05,0)="SHORT DESCRIPTION^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X?.UNP)!($E(X,1,3)=""NEW"") X"
^DD(441,.05,1,0)="^.1"
^DD(441,.05,1,1,0)="441^C"
^DD(441,.05,1,1,1)="S ^PRC(441,""C"",$E(X,1,60),DA)="""""
^DD(441,.05,1,1,2)="K ^PRC(441,""C"",$E(X,1,60),DA)"
^DD(441,.05,1,1,"%D",0)="^^2^2^2930624^"
^DD(441,.05,1,1,"%D",1,0)="This X-REF contains the name of the ITEM MASTER file entry in the"
^DD(441,.05,1,1,"%D",2,0)="SHORT DESCRIPTION field."
^DD(441,.05,1,2,0)="441^AC^MUMPS"
^DD(441,.05,1,2,1)="I '$D(DIU(0)),$E(X,1,2)'=""**"" S:$D(DT) $P(^PRC(441,DA,0),U,9)=DT S:$D(DUZ) $P(^(0),U,11)=DUZ"
^DD(441,.05,1,2,2)="Q"
^DD(441,.05,1,2,"%D",0)="^^2^2^2930729^^"
^DD(441,.05,1,2,"%D",1,0)="This X-REF will SET the DATE INACTIVATED and the INACTIVATED BY fields"
^DD(441,.05,1,2,"%D",2,0)="when the first two characters of the SHORT DECSRIPTION field are '**'."
^DD(441,.05,1,2,"DT")="2930729"
^DD(441,.05,3)="ANSWER MUST BE 3-60 UPPER CASE CHARACTERS OR NUMERICS IN LENGTH, CANNOT BEGIN WITH THE LETTERS 'NEW'"
^DD(441,.05,21,0)="^^1^1^2910516^"
^DD(441,.05,21,1,0)="This is the short description of the item."
^DD(441,.05,"DT")="2930729"
^DD(441,.06,0)="CASE CART/TRAY/INSTRUMENT KIT^S^P:PURCHASEABLE;S:CASE CART/TRAY/INSTRUMENT KIT;^0;6^Q"
^DD(441,.06,1,0)="^.1^^0"
^DD(441,.06,3)="This field indicates whether an item is a case cart or instrument kit.  Case carts and instrument kits should only be purchased from outside the hospital."
^DD(441,.06,21,0)="^^7^7^2940209^^^"
^DD(441,.06,21,1,0)="This field indicates whether an item is a case cart or instrument kit."
^DD(441,.06,21,2,0)="Case cart and instrument kits should not be purchased from outside of"
^DD(441,.06,21,3,0)="the hospital."
^DD(441,.06,21,4,0)="This is the purchaseable item indicator."
^DD(441,.06,21,5,0)="'P' stands for items purchased outside the hospital."
^DD(441,.06,21,6,0)="'S' stands for a set/pack assembled in hospital"
^DD(441,.06,21,7,0)="from purchased items."
^DD(441,.06,"DT")="2940209"
^DD(441,.08,0)="SYNONYM^441.05^^5;0"
^DD(441,.1,0)="DESCRIPTION^441.02^^1;0"
^DD(441,.1,21,0)="^^1^1^2910516^"
^DD(441,.1,21,1,0)="This is the description of the item."
^DD(441,1,0)="FCP^441.03A^^4;0"
^DD(441,1,21,0)="^^1^1^2931221^^^^"
^DD(441,1,21,1,0)="This is the fund control point."
^DD(441,1,23,0)="^^12^12^2931221^^^"
^DD(441,1,23,1,0)="This field is set up within CHK^PRCHCRD, which is called from EN3^"
^DD(441,1,23,2,0)="PRCHCRD.  EN3^PRCHCRD is called from the REPETITIVE (PR CARD) NO."
^DD(441,1,23,3,0)="'AD' x-ref SET statement in the ITEM multiple in file 442."
^DD(441,1,23,4,0)="   "
^DD(441,1,23,5,0)="When an amendment is obligated the FCP should already be established."
^DD(441,1,23,6,0)="If that is so then the action done within CHK^PRCHCRD shouldn't be"
^DD(441,1,23,7,0)="needed then."
^DD(441,1,23,8,0)="   "
^DD(441,1,23,9,0)="CHK^PRCHCRD sees if the 4 node is set up.  If it isn't the subroutine"
^DD(441,1,23,10,0)="sets it up.  The .01 field, FCP, is entered, The 'B' x-ref is entered"
^DD(441,1,23,11,0)="and the 0 node of the subfile is updated.  Maby FILE^DICN could do all"
^DD(441,1,23,12,0)="this work without the programmer having to play FileMan?"
^DD(441,2,0)="FSC^RP441.2'X^PRC(441.2,^0;3^K:$L(X)>4!('X?4N) X"
^DD(441,2,.1)="Federal Supply Classification"
^DD(441,2,3)="Enter only a 4-digit Federal Supply Classification code."
^DD(441,2,21,0)="^^1^1^2910516^"
^DD(441,2,21,1,0)="This is the federal supply classification."
^DD(441,2,"DT")="3050809"
^DD(441,3,0)="INC^FX^^0;12^K:$L(X)>6!($L(X)<1) X"
^DD(441,3,3)="Enter the Item Name Code (INC).  Answer must be 1-6 characters in length."
^DD(441,3,21,0)="^^1^1^2911016^^"
^DD(441,3,21,1,0)="This field lists the Item Name Code for this item."
^DD(441,3,"DT")="2910805"
^DD(441,5,0)="NSN^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>17!(X'?4N1""-""2UN1""-""3UN1""-""4N.A) X I $D(X) D EN1^PRCHNPT"
^DD(441,5,.1)="NATIONAL STOCK NUMBER"
^DD(441,5,1,0)="^.1"
^DD(441,5,1,1,0)="441^BB"
^DD(441,5,1,1,1)="S ^PRC(441,""BB"",$E(X,1,30),DA)="""""
^DD(441,5,1,1,2)="K ^PRC(441,""BB"",$E(X,1,30),DA)"
^DD(441,5,1,1,"%D",0)="^^1^1^2930624^"
^DD(441,5,1,1,"%D",1,0)="This X-REF lists all NATIONAL STOCK NUMBERS in this ITEM MASTER file."
^DD(441,5,1,2,0)="441^BA^MUMPS"
^DD(441,5,1,2,1)="S ^PRC(441,""BA"",$P(X,""-"",3,4),DA)="""""
^DD(441,5,1,2,2)="K ^PRC(441,""BA"",$P(X,""-"",3,4),DA)"
^DD(441,5,1,2,"%D",0)="^^2^2^2930625^"
^DD(441,5,1,2,"%D",1,0)="This X-REF is used to create a speedy lookup on the NSN using only the"
^DD(441,5,1,2,"%D",2,0)="last 7 numbers."
^DD(441,5,1,3,0)="441^G^MUMPS"
^DD(441,5,1,3,1)="S ^PRC(441,""G"",$E(X,4)_$P(X,""-"",2)_$P(X,""-"",3)_$P(X,""-"",4),DA)="""""
^DD(441,5,1,3,2)="K ^PRC(441,""G"",$E(X,4)_$P(X,""-"",2)_$P(X,""-"",3)_$P(X,""-"",4),DA)"
^DD(441,5,1,3,"%D",0)="^^2^2^2930625^"
^DD(441,5,1,3,"%D",1,0)="This X-REF is used as a speedy lookup using the last 10 characters, without"
^DD(441,5,1,3,"%D",2,0)="any '-' being entered in the number."
^DD(441,5,3)="ENTER THE NSN IN THE FOLLOWING FORMAT: 6505-01-A23-1234A.  The 2nd & 3rd segment of NSN can accept alpha or numeric characters. ex 6505-AB-11G-1234  "
^DD(441,5,21,0)="^^1^1^2970129^^^^"
^DD(441,5,21,1,0)="This is the National Stock Number for the item."
^DD(441,5,"DT")="2961018"
^DD(441,5.5,0)="NSN VERIFIED^D^^3;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(441,5.5,3)="Enter the date that the National Stock Number was verified."
^DD(441,5.5,21,0)="^^2^2^2930408^"
^DD(441,5.5,21,1,0)=" "
^DD(441,5.5,21,2,0)="The date that the National Stock Number was verified."
^DD(441,5.5,"DT")="2910801"
^DD(441,6,0)="VENDOR^441.01IP^^2;0"
^DD(441,6,21,0)="^^1^1^2930125^^^"
^DD(441,6,21,1,0)="This is the vendor for the item."
^DD(441,7,0)="HAZARDOUS MATERIAL^S^HM:HAZARDOUS MATERIAL;^0;14^Q"
^DD(441,7,3)="Select HM if this material is hazardous."
^DD(441,7,21,0)="^^1^1^2960426^^"
^DD(441,7,21,1,0)="This is a flag to state if this ITEM is hazardous."
^DD(441,7,23,0)="^^4^4^2960426^"
^DD(441,7,23,1,0)="This field will be coppied into file 442, ITEM multiple, whenever"
^DD(441,7,23,2,0)="the pointer to this file is set within the ITEM multiple.  If the user"
^DD(441,7,23,3,0)="enters a value into the field in file 442, within the ITEM multiple, the"
^DD(441,7,23,4,0)="value will be coppied into this field."
^DD(441,7,"DT")="2960426"
^DD(441,9,0)="LAST VENDOR ORDERED^P440'^PRC(440,^0;4^Q"
^DD(441,9,21,0)="^^1^1^2910516^"
^DD(441,9,21,1,0)="This is the last vendor ordered."
^DD(441,9,"DT")="2860414"
^DD(441,10,0)="MANDATORY SOURCE^*P440'^PRC(440,^0;8^S DIC(""S"")=""I $D(^PRC(441,DA,2,Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(441,10,12)="Vendor must exist in the list of possible vendors within this item."
^DD(441,10,12.1)="S DIC(""S"")=""I $D(^PRC(441,DA,2,Y,0))"""
^DD(441,10,21,0)="^^1^1^2910516^"
^DD(441,10,21,1,0)="This is the mandatory source for an item."
^DD(441,10,"DT")="2860414"
^DD(441,12,0)="BOC^P420.2'^PRCD(420.2,^0;10^Q"
^DD(441,12,3)="Choose the appropriate BOC for this item."
^DD(441,12,21,0)="^^1^1^2940728^^^^"
^DD(441,12,21,1,0)="This is the BOC for this item."
^DD(441,12,"DT")="2940616"
^DD(441,13,0)="SET/PACK ASSEMBLED BY^P445'^PRCP(445,^0;7^Q"
^DD(441,13,3)="If this item is a set/pack, enter the name of the inventory point that assembles this set/pack."
^DD(441,13,21,0)="^^4^4^2910516^^"
^DD(441,13,21,1,0)="When a Set/Pack type item is added to this file (by the Generic Inventory"
^DD(441,13,21,2,0)="Package), the Inventory point that added the item is stuffed into this"
^DD(441,13,21,3,0)="field by the program.  It is then used as a screen to keep other"
^DD(441,13,21,4,0)="inventory points from changing the data associated with the item."
^DD(441,13,"DT")="2880105"
^DD(441,14,0)="DATE ITEM CREATED^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(441,14,3)="Date the Item 'SHORT DESCRIPTION' field was either first created, or changed."
^DD(441,14,21,0)="^^1^1^2910516^"
^DD(441,14,21,1,0)="This is the date the item was created."
^DD(441,14,"DT")="2890309"
^DD(441,15,0)="CREATED BY^P200'^VA(200,^0;11^Q"
^DD(441,15,3)="Name of person who added item to the file."
^DD(441,15,21,0)="^^1^1^2910516^"
^DD(441,15,21,1,0)="This is the person who created the item."
^DD(441,15,"DT")="2921221"
^DD(441,16,0)="INACTIVATED ITEM?^S^1:INACTIVATED;^3;1^Q"
^DD(441,16,1,0)="^.1"
^DD(441,16,1,1,0)="441^AD^MUMPS"
^DD(441,16,1,1,1)="I '$D(DIU(0)) S:$D(DT) $P(^PRC(441,DA,3),U,2)=DT S:$D(DUZ) $P(^PRC(441,DA,3),U,3)=DUZ"
^DD(441,16,1,1,2)="I '$D(DIU(0)) S $P(^PRC(441,DA,3),U,2,3)=""^"""
^DD(441,16,1,1,"%D",0)="^^3^3^2930729^^^"
^DD(441,16,1,1,"%D",1,0)="This X-REF will SET the DATE INACTIVATED and the INACTIVATED BY fields"
^DD(441,16,1,1,"%D",2,0)="when an ITEM MASTER file entry is chosen to be inactivated.  Both fields"
^DD(441,16,1,1,"%D",3,0)="will be cleared when the X-REF is KILLED."
^DD(441,16,1,1,"DT")="2930729"
^DD(441,16,3)="Set to '1' by option to inactivate an item."
^DD(441,16,21,0)="^^2^2^2910516^^"
^DD(441,16,21,1,0)="This is the set of codes for an inactivated item."
^DD(441,16,21,2,0)="This field is set to '1' by option to inactivate an item."
^DD(441,16,"DT")="2930729"
^DD(441,16.5,0)="REPLACEMENT ITEM^P441'^PRC(441,^3;4^Q"
^DD(441,16.5,3)="Item to be used in place of the inactivated item."
^DD(441,16.5,21,0)="^^1^1^2910516^"
^DD(441,16.5,21,1,0)="This is the replacement item for an inactivated item."
^DD(441,16.5,"DT")="2890309"
^DD(441,17,0)="DATE INACTIVATED^D^^3;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(441,17,21,0)="^^1^1^2910516^"
^DD(441,17,21,1,0)="This is the date the item was inactivated."
^DD(441,17,"DT")="2890309"
^DD(441,18,0)="INACTIVATED BY^P200'^VA(200,^3;3^Q"
^DD(441,18,21,0)="^^1^1^2920318^^"
^DD(441,18,21,1,0)="This is the person who inactivated the item."
^DD(441,18,"DT")="2921221"
^DD(441,19,0)="MFG PART NO.^F^^3;5^K:$L(X)>30!($L(X)<3) X"
^DD(441,19,3)="Enter the Manufacturer's Part #. Answer must be 3-30 characters in length."
^DD(441,19,21,0)="^^1^1^2920318^"
^DD(441,19,21,1,0)="This is the Manufacturer's Part Number (#)."
^DD(441,19,"DT")="2910801"
^DD(441,20,0)="FOOD GROUP^RS^1:Meat, Fish, Poultry, Eggs & Convenience Entrees;2:Milk, Milk Products;3:Fruits, Vegetables;4:Bread, Flour, Cereal, etc.;5:Commercial Nutritional Products, Tube feedings & supplements;6:Miscellaneous, Foods;^3;7^Q"
^DD(441,20,3)="This is the catalog food group returned from ISMS by a catalog request."
^DD(441,20,21,0)="^^1^1^2920819^^^"
^DD(441,20,21,1,0)="     This is the catalog food group returned from ISMS by a catalog request."
^DD(441,20,"DT")="2920819"
^DD(441,21,0)="SKU^P420.5'^PRCD(420.5,^3;8^Q"
^DD(441,21,3)="Enter the Stock Keeping Unit of Measure."
^DD(441,21,21,0)="^^1^1^2920318^"
^DD(441,21,21,1,0)="This is the Stock Keeping Unit of Measure."
^DD(441,21,"DT")="2910801"
^DD(441,22,0)="DRUG TYPE CODE^RS^A:NARCOTIC;L:CONTROLLED SUBSTANCE;D:OTHER DRUGS;^3;9^Q"
^DD(441,22,21,0)="^^2^2^2920403^^^^"
^DD(441,22,21,1,0)="This is the set of drug type codes (Narcotic, Controlled substance, or"
^DD(441,22,21,2,0)="Other) which will appear on the LOG code sheet."
^DD(441,22,"DT")="2920227"
^DD(441,23,0)="REUSABLE ITEM^S^y:YES;^0;13^Q"
^DD(441,23,21,0)="^^8^8^2930830^"
^DD(441,23,21,1,0)="This field is used for case carts/instrument kits.  If an item is"
^DD(441,23,21,2,0)="a reusable item (field set to YES), the item will not be charged"
^DD(441,23,21,3,0)="to the inventory point during the ordering and posting process."
^DD(441,23,21,4,0)="Also, reusable items will not increment/decrement the quantity on-hand"
^DD(441,23,21,5,0)="when assembling or disassembling case carts or instrument kits."
^DD(441,23,21,6,0)=" "
^DD(441,23,21,7,0)="If the field is not set to YES, the item is treated as a disposable"
^DD(441,23,21,8,0)="item."
^DD(441,23,23,0)="^^1^1^2930830^"
^DD(441,23,23,1,0)="This field is referenced by the case cart/instrument inventory system."
^DD(441,23,"DT")="2930917"
^DD(441,24,0)="SIC CODE^P444.2'^PRC(444.2,^3;10^Q"
^DD(441,24,3)="Enter the 4-6 digits Standard Industrial Classification Code"
^DD(441,24,21,0)="^^4^4^2960131^"
^DD(441,24,21,1,0)="The Standard Industrial Classification coding system categorizes"
^DD(441,24,21,2,0)="organizations by type of economic activity.  The SIC code is used"
^DD(441,24,21,3,0)="in the Request for Quotation (RFQ) module to direct requests to"
^DD(441,24,21,4,0)="the appropriate group of potential vendors."
^DD(441,24,"DT")="2960131"
^DD(441,50,0)="PRE_NIF LONG DESCRIPTION^441.06^^8;0"
^DD(441,50,21,0)="^^4^4^3041008^"
^DD(441,50,21,1,0)="This field stores the value of the DESCRIPTION field (#.1) prior to the"
^DD(441,50,21,2,0)="overwriting of that field's value with the value from the National Item"
^DD(441,50,21,3,0)="File (NIF) database.  This field MUST NOT be edited.  It is for historical"
^DD(441,50,21,4,0)="record only.  "
^DD(441,51,0)="NIF ITEM NUMBER^NJ8,0^^0;15^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(441,51,1,0)="^.1"
^DD(441,51,1,1,0)="441^I"
^DD(441,51,1,1,1)="S ^PRC(441,""I"",$E(X,1,30),DA)="""""
^DD(441,51,1,1,2)="K ^PRC(441,""I"",$E(X,1,30),DA)"
^DD(441,51,1,1,"%D",0)="^^1^1^3040908^"
^DD(441,51,1,1,"%D",1,0)="This cross reference enables lookup by the National Item File's Item Number."
^DD(441,51,1,1,"DT")="3040908"
^DD(441,51,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(441,51,21,0)="^.001^2^2^3021223^^"
^DD(441,51,21,1,0)="This is the Item Number assigned to this item in the National Item File (NIF)."
^DD(441,51,21,2,0)="This field is populated by a feed from the NIF and must not be user edited."
^DD(441,51,"DT")="3040908"
^DD(441,52,0)="PRE_NIF SHORT DESCRIPTION^F^^9;1^K:$L(X)>60!($L(X)<3) X"
^DD(441,52,3)="Do not edit this field.  It is populated by the NIF/IFCAP interface."
^DD(441,52,21,0)="^.001^5^5^3050103^^^^"
^DD(441,52,21,1,0)="This field  stores the value of the SHORT DESCRIPTION field"
^DD(441,52,21,2,0)="(#.05) prior to that field's overwrite with the value of"
^DD(441,52,21,3,0)="the Brief Item Description from the National Item File"
^DD(441,52,21,4,0)="(NIF). This field must not be edited.  It is for historical"
^DD(441,52,21,5,0)="record only."
^DD(441,52,"DT")="3040908"
^DD(441,"B","BOC",12)=""
^DD(441,"B","CASE CART/TRAY/INSTRUMENT KIT",.06)=""
^DD(441,"B","CREATED BY",15)=""
^DD(441,"B","DATE INACTIVATED",17)=""
^DD(441,"B","DATE ITEM CREATED",14)=""
^DD(441,"B","DESCRIPTION",.1)=""
^DD(441,"B","DRUG TYPE CODE",22)=""
^DD(441,"B","FCP",1)=""
^DD(441,"B","FOOD GROUP",20)=""
^DD(441,"B","FSC",2)=""
^DD(441,"B","Federal Supply Classification",2)="1"
^DD(441,"B","HAZARDOUS MATERIAL",7)=""
^DD(441,"B","INACTIVATED BY",18)=""
^DD(441,"B","INACTIVATED ITEM?",16)=""
^DD(441,"B","INC",3)=""
^DD(441,"B","LAST VENDOR ORDERED",9)=""
^DD(441,"B","MANDATORY SOURCE",10)=""
^DD(441,"B","MFG PART NO.",19)=""
^DD(441,"B","NATIONAL STOCK NUMBER",5)="1"
^DD(441,"B","NIF ITEM NUMBER",51)=""
^DD(441,"B","NSN",5)=""
^DD(441,"B","NSN VERIFIED",5.5)=""
^DD(441,"B","NUMBER",.01)=""
^DD(441,"B","PRE_NIF LONG DESCRIPTION",50)=""
^DD(441,"B","PRE_NIF SHORT DESCRIPTION",52)=""
^DD(441,"B","REPLACEMENT ITEM",16.5)=""
^DD(441,"B","REUSABLE ITEM",23)=""
^DD(441,"B","SET/PACK ASSEMBLED BY",13)=""
^DD(441,"B","SHORT DESCRIPTION",.05)=""
^DD(441,"B","SIC CODE",24)=""
^DD(441,"B","SKU",21)=""
^DD(441,"B","SYNONYM",.08)=""
^DD(441,"B","VENDOR",6)=""
^DD(441,"GL",0,1,.01)=""
^DD(441,"GL",0,2,.05)=""
^DD(441,"GL",0,3,2)=""
^DD(441,"GL",0,4,9)=""
^DD(441,"GL",0,5,5)=""
^DD(441,"GL",0,6,.06)=""
^DD(441,"GL",0,7,13)=""
^DD(441,"GL",0,8,10)=""
^DD(441,"GL",0,9,14)=""
^DD(441,"GL",0,10,12)=""
^DD(441,"GL",0,11,15)=""
^DD(441,"GL",0,12,3)=""
^DD(441,"GL",0,13,23)=""
^DD(441,"GL",0,14,7)=""
^DD(441,"GL",0,15,51)=""
^DD(441,"GL",1,0,.1)=""
^DD(441,"GL",2,0,6)=""
^DD(441,"GL",3,1,16)=""
^DD(441,"GL",3,2,17)=""
^DD(441,"GL",3,3,18)=""
^DD(441,"GL",3,4,16.5)=""
^DD(441,"GL",3,5,19)=""
^DD(441,"GL",3,6,5.5)=""
^DD(441,"GL",3,7,20)=""
^DD(441,"GL",3,8,21)=""
^DD(441,"GL",3,9,22)=""
^DD(441,"GL",3,10,24)=""
^DD(441,"GL",4,0,1)=""
^DD(441,"GL",5,0,.08)=""
^DD(441,"GL",8,0,50)=""
^DD(441,"GL",9,1,52)=""
^DD(441,"IX",.01)=""
^DD(441,"IX",.05)=""
^DD(441,"IX",5)=""
^DD(441,"IX",16)=""
^DD(441,"IX",51)=""
^DD(441,"RQ",.01)=""
^DD(441,"RQ",.05)=""
^DD(441,"RQ",2)=""
^DD(441,"RQ",20)=""
^DD(441,"RQ",22)=""
^DD(441,"SB",441.01,6)=""
^DD(441,"SB",441.02,.1)=""
^DD(441,"SB",441.03,1)=""
^DD(441,"SB",441.05,.08)=""
^DD(441,"SB",441.06,50)=""
^DD(441.01,0)="VENDOR SUB-FIELD^NL^10^13"
^DD(441.01,0,"DT")="2931203"
^DD(441.01,0,"ID",1.5)="W ""   "",$S($D(^PRCD(420.5,+$P(^(0),U,7),0))#2:""U/P: ""_$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(441.01,0,"IX","AC",441.01,.01)=""
^DD(441.01,0,"IX","B",441.01,.01)=""
^DD(441.01,0,"NM","VENDOR")=""
^DD(441.01,0,"UP")="441"
^DD(441.01,.01,0)="VENDOR^MP440X^PRC(440,^0;1^S DINUM=X"
^DD(441.01,.01,1,0)="^.1"
^DD(441.01,.01,1,1,0)="441.01^B"
^DD(441.01,.01,1,1,1)="S ^PRC(441,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(441.01,.01,1,1,2)="K ^PRC(441,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(441.01,.01,1,2,0)="441.01^AC^MUMPS"
^DD(441.01,.01,1,2,1)="I $D(^PRC(440,""AC"",""S"",X)) S $P(^PRC(441,DA(1),0),""^"",8)=X"
^DD(441.01,.01,1,2,2)="I $D(^PRC(440,""AC"",""S"",X)) S $P(^PRC(441,DA(1),0),""^"",8)="""""
^DD(441.01,.01,1,2,"%D",0)="^^2^2^2930707^^^"
^DD(441.01,.01,1,2,"%D",1,0)="If this 'VENDOR' is the SUPPLY WAREHOUSE set the MANDATORY SOURCE field"
^DD(441.01,.01,1,2,"%D",2,0)="to point to this 'VENDOR'."
^DD(441.01,.01,21,0)="^^1^1^2910516^"
^DD(441.01,.01,21,1,0)="This is the name of the vendor."
^DD(441.01,.01,"DT")="2890315"
^DD(441.01,1,0)="UNIT COST^RNJ12,4^^0;2^K:+X'=X!(X>9999999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(441.01,1,1,0)="^.1"
^DD(441.01,1,1,1,0)="^^TRIGGER^441.01^2.5"
^DD(441.01,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(441.01,1,1,1,1.4)"
^DD(441.01,1,1,1,1.4)="S DIH=$S($D(^PRC(441,DIV(0),2,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=441.01,DIG=2.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(441.01,1,1,1,2)="Q"
^DD(441.01,1,1,1,"CREATE VALUE")="TODAY"
^DD(441.01,1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(441.01,1,1,1,"FIELD")="DATE OF UNIT PRICE"
^DD(441.01,1,3)="Type a Number between 0 and 9999999.9999, 4 Decimal Digits"
^DD(441.01,1,21,0)="^^1^1^2910516^"
^DD(441.01,1,21,1,0)="This is the unit cost of this item."
^DD(441.01,1,"DT")="2931203"
^DD(441.01,1.5,0)="UNIT OF PURCHASE^RP420.5'^PRCD(420.5,^0;7^Q"
^DD(441.01,1.5,21,0)="^^1^1^2910516^"
^DD(441.01,1.5,21,1,0)="This is the unit of purchase for this item."
^DD(441.01,1.5,"DT")="2860408"
^DD(441.01,1.6,0)="PACKAGING MULTIPLE^RNJ6,0^^0;8^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(441.01,1.6,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(441.01,1.6,21,0)="^^1^1^2930503^^^"
^DD(441.01,1.6,21,1,0)="These are the package multiples for the item."
^DD(441.01,1.6,"DT")="2910923"
^DD(441.01,2,0)="CONTRACT^NJ6,0XO^^0;3^S Z0=$S($D(^PRC(441,D0,2,D1,0)):+^(0),1:"""") K:'Z0 X Q:'Z0  D EN11^PRCHNPO5"
^DD(441.01,2,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^PRC(441,D0,2,D1,0)):+^(0),1:"""") Q:'Z0  S Y=$P($S($D(^PRC(440,Z0,4,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(441.01,2,2.1)="Q:Y']""""  S Z0=$S($D(^PRC(441,D0,2,D1,0)):+^(0),1:"""") Q:'Z0  S Y=$P($S($D(^PRC(440,Z0,4,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(441.01,2,3)="ENTER A CONTRACT NUMBER WITH VALID EXPIRATION DATE"
^DD(441.01,2,4)="S ZD=D,X=""?"",D=""B"",Z0=$S($D(^PRC(441,D0,2,D1,0)):+^(0),1:"""") Q:'Z0  D EN10^PRCHNPO5 S DIC=""^PRC(440,Z0,4,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(441.01,2,21,0)="^^1^1^2910516^"
^DD(441.01,2,21,1,0)="This is the contract number with the valid expiration date."
^DD(441.01,2,"DT")="2850417"
^DD(441.01,2.2,0)="CONTRACT EXP. DATE^CJ8^^ ; ^S Z0=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:""""),Z1=+$P(Z0,U,3),X=$S($D(^PRC(440,+Z0,4,Z1,0)):$P(^(0),U,2),1:"""") K Z0,Z1 S:X]"""" X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DD(441.01,2.2,9)="^"
^DD(441.01,2.2,9.01)=""
^DD(441.01,2.2,9.1)="S Z0=$S($D(^PRC(441,D0,2,D1,0)):^(0),1:""""),Z1=+$P(Z0,U,3),X=$S($D(^PRC(440,+Z0,4,Z1,0)):$P(^(0),U,2),1:"""") K Z0,Z1 S:X]"""" X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DD(441.01,2.2,21,0)="^^1^1^2910516^"
^DD(441.01,2.2,21,1,0)="This is the contract expiration date."
^DD(441.01,2.2,"DT")="2861212"
^DD(441.01,2.5,0)="DATE OF UNIT PRICE^RD^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(441.01,2.5,5,1,0)="441.01^1^1"
^DD(441.01,2.5,21,0)="^^1^1^2910516^"
^DD(441.01,2.5,21,1,0)="This is the date of the unit price for this item."
^DD(441.01,2.5,"DT")="2850320"
^DD(441.01,3,0)="VENDOR STOCK #^FX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!($E(X,1,3)=""NEW"") X"
^DD(441.01,3,1,0)="^.1"
^DD(441.01,3,1,1,0)="441^D"
^DD(441.01,3,1,1,1)="S ^PRC(441,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(441.01,3,1,1,2)="K ^PRC(441,""D"",$E(X,1,30),DA(1),DA)"
^DD(441.01,3,1,1,"%D",0)="^^1^1^2930624^"
^DD(441.01,3,1,1,"%D",1,0)="This X-REF contains all VENDOR STOCK #s for all ITEM MASTER entries."
^DD(441.01,3,3)="Enter the Vendor Stock No., Catalog No., or other number used by the Vendor to identify this number (1-30 characters)"
^DD(441.01,3,21,0)="^^1^1^2910516^"
^DD(441.01,3,21,1,0)="This is the vendor stock number for this item."
^DD(441.01,3,"DT")="2900703"
^DD(441.01,4,0)="NDC^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<11)!'(X?1.6N1""-""1.4N1""-""1.2N) X I $D(X) S Z=$O(^PRC(441,""F"",X,0)) S:Z=DA(1) Z=$O(^(DA(1))) K:'Z Z I $D(Z) W *7,!,""This NDC has already been assigned to Item # ""_Z K Z,X"
^DD(441.01,4,.1)="NATIONAL DRUG CODE"
^DD(441.01,4,1,0)="^.1"
^DD(441.01,4,1,1,0)="441^F"
^DD(441.01,4,1,1,1)="S ^PRC(441,""F"",$E(X,1,30),DA(1),DA)="""""
^DD(441.01,4,1,1,2)="K ^PRC(441,""F"",$E(X,1,30),DA(1),DA)"
^DD(441.01,4,1,1,"%D",0)="^^2^2^2930625^"
^DD(441.01,4,1,1,"%D",1,0)="This X-REF contains the NATIONAL DRUG CODE identification number for"
^DD(441.01,4,1,1,"%D",2,0)="each drug within the ITEM MATER file."
^DD(441.01,4,3)="Must be 1 to 6 numbers, a dash, 1 to 4 numbers, a dash, then 1 to 2 numbers (ex. 12345-123-12).  ANSWER MUST BE 11-14 CHARACTERS IN LENGTH"
^DD(441.01,4,21,0)="^^2^2^2910516^"
^DD(441.01,4,21,1,0)="This is the National Drug Code for this item,"
^DD(441.01,4,21,2,0)="if applicable."
^DD(441.01,4,"DT")="2890901"
^DD(441.01,8,0)="MINIMUM ORDER QTY^NJ9,2^^0;12^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3.N) X"
^DD(441.01,8,3)="Type a number between .01 and 999999, 2 Decimal Digits or leave blank"
^DD(441.01,8,21,0)="^^1^1^2991012^^^^"
^DD(441.01,8,21,1,0)="This is the minimum order quantity for this item."
^DD(441.01,8,"DT")="2991014"
^DD(441.01,8.5,0)="MAXIMUM ORDER QTY^NJ9,2^^0;9^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(441.01,8.5,3)="Type a Number between .01 and 999999, 2 Decimal Digits or leave blank"
^DD(441.01,8.5,21,0)="^^1^1^2991014^^^"
^DD(441.01,8.5,21,1,0)="This is the maximum order quantity for this item."
^DD(441.01,8.5,"DT")="2991014"
^DD(441.01,9,0)="REQUIRED ORDER MULTIPLE^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(441.01,9,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(441.01,9,21,0)="^^1^1^2910516^"
^DD(441.01,9,21,1,0)="This is the required order multiple for this item."
^DD(441.01,9,"DT")="2860414"
^DD(441.01,10,0)="UNIT CONVERSION FACTOR^RNJ6,0^^0;10^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(441.01,10,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999.  This number is used to convert quantities purchased from Unit of Purchase to Unit of Issue."
^DD(441.01,10,21,0)="^^2^2^2920827^"
^DD(441.01,10,21,1,0)="This is the unit of conversion factor, used to convert a unit of purchase"
^DD(441.01,10,21,2,0)="into a unit of issue."
^DD(441.01,10,23,0)="^^2^2^2920827^"
^DD(441.01,10,23,1,0)="THIS FIELD SHOULD AGREE WITH THE SAME NAMED FIELD IN FILE 445 FOR THIS"
^DD(441.01,10,23,2,0)="ITEM UNDER THIS VENDOR."
^DD(441.01,10,"DT")="2920827"
^DD(441.01,"B","CONTRACT",2)=""
^DD(441.01,"B","CONTRACT EXP. DATE",2.2)=""
^DD(441.01,"B","DATE OF UNIT PRICE",2.5)=""
^DD(441.01,"B","MAXIMUM ORDER QTY",8.5)=""
^DD(441.01,"B","MINIMUM ORDER QTY",8)=""
^DD(441.01,"B","NATIONAL DRUG CODE",4)="1"
^DD(441.01,"B","NDC",4)=""
^DD(441.01,"B","PACKAGING MULTIPLE",1.6)=""
^DD(441.01,"B","REQUIRED ORDER MULTIPLE",9)=""
^DD(441.01,"B","UNIT CONVERSION FACTOR",10)=""
^DD(441.01,"B","UNIT COST",1)=""
^DD(441.01,"B","UNIT OF PURCHASE",1.5)=""
^DD(441.01,"B","VENDOR",.01)=""
^DD(441.01,"B","VENDOR STOCK #",3)=""
^DD(441.01,"GL",0,1,.01)=""
^DD(441.01,"GL",0,2,1)=""
^DD(441.01,"GL",0,3,2)=""
^DD(441.01,"GL",0,4,3)=""
^DD(441.01,"GL",0,5,4)=""
^DD(441.01,"GL",0,6,2.5)=""
^DD(441.01,"GL",0,7,1.5)=""
^DD(441.01,"GL",0,8,1.6)=""
^DD(441.01,"GL",0,9,8.5)=""
^DD(441.01,"GL",0,10,10)=""
^DD(441.01,"GL",0,11,9)=""
^DD(441.01,"GL",0,12,8)=""
^DD(441.01,"IX",.01)=""
^DD(441.01,"IX",1)=""
^DD(441.01,"IX",3)=""
^DD(441.01,"IX",4)=""
^DD(441.01,"RQ",1)=""
^DD(441.01,"RQ",1.5)=""
^DD(441.01,"RQ",1.6)=""
^DD(441.01,"RQ",2.5)=""
^DD(441.01,"RQ",10)=""
^DD(441.02,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(441.02,0,"NM","DESCRIPTION")=""
^DD(441.02,0,"UP")="441"
^DD(441.02,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(441.02,.01,21,0)="^^2^2^2930413^"
^DD(441.02,.01,21,1,0)=" "
^DD(441.02,.01,21,2,0)="Description of Item"
^DD(441.02,.01,"DT")="2850315"
^DD(441.02,"B","DESCRIPTION",.01)=""
^DD(441.02,"GL",0,1,.01)=""
^DD(441.03,0)="FCP SUB-FIELD^NL^3^5"
^DD(441.03,0,"IX","B",441.03,.01)=""
^DD(441.03,0,"NM","FCP")=""
^DD(441.03,0,"UP")="441"
^DD(441.03,.01,0)="FCP^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4) X I $D(X) K:'X X I $D(X) S DINUM=+X"
^DD(441.03,.01,1,0)="^.1^^-1"
^DD(441.03,.01,1,1,0)="441.03^B"
^DD(441.03,.01,1,1,1)="S ^PRC(441,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(441.03,.01,1,1,2)="K ^PRC(441,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(441.03,.01,3)="ENTER THE STATION NUMBER FOLLOWED BY THE CONTROL POINT NUMBER EG 531012"
^DD(441.03,.01,21,0)="^^1^1^2910516^"
^DD(441.03,.01,21,1,0)="This is the fund control point number."
^DD(441.03,.01,"DT")="2881122"
^DD(441.03,.5,0)="LONG NAME^CJ47^^ ; ^I $D(D1) S X=""SITE: ""_$E(D1,1,3)_""   FCP: "" I $D(^PRC(420,+$E(D1,1,3),1,+$E(D1,4,999),0)) S X=X_$P(^(0),U,1)"
^DD(441.03,.5,9)="^"
^DD(441.03,.5,9.01)=""
^DD(441.03,.5,9.1)="I $D(D1) S X=""SITE: ""_$E(D1,1,3)_""   FCP: "" I $D(^PRC(420,+$E(D1,1,3),1,+$E(D1,4,999),0)) S X=X_$P(^(0),U,1)"
^DD(441.03,.5,9.2)="S Y(441.03,.5,81)=$S($D(D1):D1,1:""""),Y(441.03,.5,80)=$S($D(D0):D0,1:""""),Y(441.03,.5,1)=$S($D(^PRC(441,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(441.03,.5,1),U,1)"
^DD(441.03,.5,9.3)="X ^DD(441.03,.5,9.2) S Y(441.03,.5,2)=X S X=1,Y(441.03,.5,3)=X S X=3,X=$E(Y(441.03,.5,2),Y(441.03,.5,3),X) K DIC S DIC=""^PRC(420,"",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y"
^DD(441.03,.5,9.4)="X ^DD(441.03,.5,9.3) S Y(441.03,.5,180)=$S($D(D0):D0,1:""""),Y(441.03,.5,181)=$S($D(D1):D1,1:""""),Y(441.03,.5,101)=X S X=$P(Y(441.03,.5,1),U,1)"
^DD(441.03,.5,9.5)="X ^DD(441.03,.5,9.4) S Y(441.03,.5,102)=X S X=4,Y(441.03,.5,103)=X S X=99,X=$E(Y(441.03,.5,102),Y(441.03,.5,103),X)"
^DD(441.03,.5,9.6)="X ^DD(441.03,.5,9.5) K DIC S Y=-1,DIC=""^PRC(420,D0,1,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y S Y(441.03,.5,202)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"""")"
^DD(441.03,.5,21,0)="^^1^1^2910516^"
^DD(441.03,.5,21,1,0)="This is the long name of the fund control point."
^DD(441.03,.5,"DT")="2881122"
^DD(441.03,1,0)="PURCHASE ORDER^441.04PA^^1;0"
^DD(441.03,1,21,0)="^^1^1^2931221^^^^"
^DD(441.03,1,21,1,0)="This is a purchase order that uses this item."
^DD(441.03,1,23,0)="^^24^24^2931221^^^"
^DD(441.03,1,23,1,0)="This field, the PURCHASE ORDER multiple, is entered from EN3^PRCHCRD."
^DD(441.03,1,23,2,0)="EN3^PRCHCRD is called from the REPETITIVE (PR CARD) NO. field in the"
^DD(441.03,1,23,3,0)="ITEM multiple in file 442.  The 'AD' x-ref within the REPETITIVE (PR"
^DD(441.03,1,23,4,0)="CARD) NO. field actually has the call.  The SET part of the x-ref"
^DD(441.03,1,23,5,0)="checks that the PURCHASE ORDER multiple is set up and, if required,"
^DD(441.03,1,23,6,0)="sets it up.  Then the purchase order from file 442 that is using"
^DD(441.03,1,23,7,0)="this ITEM is entered in the multiple along with entering the 'AC'"
^DD(441.03,1,23,8,0)="x-ref for the entry.  Finally the subfile's 0 node is updated to show"
^DD(441.03,1,23,9,0)="that a new entry was added. After all that a jump is made to LST^PRCHCRD1"
^DD(441.03,1,23,10,0)="which copies fields from file 441 into file 442."
^DD(441.03,1,23,11,0)="   "
^DD(441.03,1,23,12,0)="This field has its data deleted within EN4^PRCHCRD.  EN4^PRCHCRD is"
^DD(441.03,1,23,13,0)="called from the KILL part of the 'AC' x-ref mentioned above. The"
^DD(441.03,1,23,14,0)="KILL part of the x-ref just removes the entry from the multiple, kills"
^DD(441.03,1,23,15,0)="the 'AC' x-ref entry and reduces the record count in the subfile's 0"
^DD(441.03,1,23,16,0)="node by 1."
^DD(441.03,1,23,17,0)="   "
^DD(441.03,1,23,18,0)="Maby the action EN3^PRCHCRD does could be done by FILE^DICN?"
^DD(441.03,1,23,19,0)="The action EN4^PRCHCRD handles might be done with DIK?"
^DD(441.03,1,23,20,0)="   "
^DD(441.03,1,23,21,0)="The amemdment action required, when the amendment is entered into"
^DD(441.03,1,23,22,0)="file 442, would be what EN3^PRCHCRD already does without the jump to LST"
^DD(441.03,1,23,23,0)="^PRCHCRD1.  If the amendment action removes this ITEM from the purchase"
^DD(441.03,1,23,24,0)="order then do what EN4^ PRCHCRD does instead."
^DD(441.03,2,0)="SUBACCOUNT^P420.2'^PRCD(420.2,^0;2^Q"
^DD(441.03,2,21,0)="^^1^1^2920318^^"
^DD(441.03,2,21,1,0)="This is the subaccount for the item."
^DD(441.03,2,"DT")="2860703"
^DD(441.03,3,0)="PREFERRED VENDOR^*P440'^PRC(440,^0;3^S DIC(""S"")=""I $D(^PRC(441,DA(1),2,Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(441.03,3,3)="Enter the Vendor from which this Funds Control Point normally purchases this item.  It must be included in the list of possible vendors for this item."
^DD(441.03,3,12)="Vendor must exist in the list of possible vendors within this item."
^DD(441.03,3,12.1)="S DIC(""S"")=""I $D(^PRC(441,DA(1),2,Y,0))"""
^DD(441.03,3,21,0)="^^2^2^2910516^"
^DD(441.03,3,21,1,0)="This is the vendor from which this fund control"
^DD(441.03,3,21,2,0)="point normally purchases the item."
^DD(441.03,3,"DT")="2860221"
^DD(441.03,"B","FCP",.01)=""
^DD(441.03,"B","LONG NAME",.5)=""
^DD(441.03,"B","PREFERRED VENDOR",3)=""
^DD(441.03,"B","PURCHASE ORDER",1)=""
^DD(441.03,"B","SUBACCOUNT",2)=""
^DD(441.03,"GL",0,1,.01)=""
^DD(441.03,"GL",0,2,2)=""
^DD(441.03,"GL",0,3,3)=""
^DD(441.03,"GL",1,0,1)=""
^DD(441.03,"IX",.01)=""
^DD(441.03,"RQ",.01)=""
^DD(441.03,"SB",441.04,1)=""
^DD(441.04,0)="PURCHASE ORDER SUB-FIELD^NL^.01^1"
^DD(441.04,0,"IX","AC",441.04,.01)=""
^DD(441.04,0,"NM","PURCHASE ORDER")=""
^DD(441.04,0,"UP")="441.03"
^DD(441.04,.01,0)="PURCHASE ORDER^P442'X^PRC(442,^0;1^I $D(X) S DINUM=+X"
^DD(441.04,.01,1,0)="^.1"
^DD(441.04,.01,1,1,0)="441.04^AC^MUMPS"
^DD(441.04,.01,1,1,1)="S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),""^"",15),1:0),^PRC(441,DA(2),4,DA(1),1,""AC"",9999999-Z,DA)="""" K Z"
^DD(441.04,.01,1,1,2)="S Z=$S($D(^PRC(442,DA,1)):+$P(^(1),""^"",15),1:0) K ^PRC(441,DA(2),4,DA(1),1,""AC"",9999999-Z,DA),Z"
^DD(441.04,.01,1,1,"%D",0)="^^3^3^2930624^"
^DD(441.04,.01,1,1,"%D",1,0)="This X-REF lists all PURCHASE ORDER entries in the reverse P.O. DATE"
^DD(441.04,.01,1,1,"%D",2,0)="order.  This allows the most recently ordered POs for each vendor to"
^DD(441.04,.01,1,1,"%D",3,0)="be found first."
^DD(441.04,.01,21,0)="^^1^1^2931221^^"
^DD(441.04,.01,21,1,0)="This is the purchase order number."
^DD(441.04,.01,"DT")="2881013"
^DD(441.04,"B","PURCHASE ORDER",.01)=""
^DD(441.04,"GL",0,1,.01)=""
^DD(441.04,"IX",.01)=""
^DD(441.05,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(441.05,0,"DT")="2980123"
^DD(441.05,0,"IX","B",441.05,.01)=""
^DD(441.05,0,"NM","SYNONYM")=""
^DD(441.05,0,"UP")="441"
^DD(441.05,.01,0)="SYNONYM^MFX^^0;1^K:$L(X)>36!($L(X)<3)!'(X?1AN.E) X I $D(X) S LO=""abcdefghijklmnopqrstuvwxyz"",HI=""ABCDEFGHIJKLMNOPQRSTUVWXYZ"",X=$TR(X,LO,HI) K LO,HI"
^DD(441.05,.01,1,0)="^.1"
^DD(441.05,.01,1,1,0)="441.05^B"
^DD(441.05,.01,1,1,1)="S ^PRC(441,DA(1),5,""B"",$E(X,1,36),DA)="""""
^DD(441.05,.01,1,1,2)="K ^PRC(441,DA(1),5,""B"",$E(X,1,36),DA)"
^DD(441.05,.01,1,2,0)="441^E"
^DD(441.05,.01,1,2,1)="S ^PRC(441,""E"",$E(X,1,36),DA(1),DA)="""""
^DD(441.05,.01,1,2,2)="K ^PRC(441,""E"",$E(X,1,36),DA(1),DA)"
^DD(441.05,.01,1,2,3)="Do not delete"
^DD(441.05,.01,1,2,"DT")="2980123"
^DD(441.05,.01,3)="Answer must be 3-36 characters in length and begin with an alpha-numeric character.  All lowercase alpha characters will be automatically converted to uppercase."
^DD(441.05,.01,"DT")="2980123"
^DD(441.05,"B","SYNONYM",.01)=""
^DD(441.05,"GL",0,1,.01)=""
^DD(441.05,"IX",.01)=""
^DD(441.06,0)="PRE_NIF LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(441.06,0,"DT")="3040908"
^DD(441.06,0,"NM","PRE_NIF LONG DESCRIPTION")=""
^DD(441.06,0,"UP")="441"
^DD(441.06,.01,0)="PRE_NIF LONG DESCRIPTION^W^^0;1^Q"
^DD(441.06,.01,3)="Do not edit this field. It is populated by the NIF/IFCAP interface."
^DD(441.06,.01,21,0)="^.001^4^4^3041008^^"
^DD(441.06,.01,21,1,0)="This field stores the value of the DESCRIPTION field (#.1) prior to the"
^DD(441.06,.01,21,2,0)="overwriting of that field's value with the value from the National Item"
^DD(441.06,.01,21,3,0)="File (NIF) database.  This field MUST NOT be edited.  It is for historical"
^DD(441.06,.01,21,4,0)="record only."
^DD(441.06,.01,"DT")="3040908"
^DD(441.06,"B","PRE_NIF LONG DESCRIPTION",.01)=""
^DD(441.06,"GL",0,1,.01)=""
^DD(441.2,0)="FIELD^^5^6"
^DD(441.2,0,"DDA")="N"
^DD(441.2,0,"DT")="2930823"
^DD(441.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(441.2,0,"IX","B",441.2,.01)=""
^DD(441.2,0,"IX","C",441.2,3)=""
^DD(441.2,0,"IX","D",441.2,1)=""
^DD(441.2,0,"NM","FEDERAL SUPPLY CLASSIFICATION")=""
^DD(441.2,0,"PT",423,364)=""
^DD(441.2,0,"PT",441,2)=""
^DD(441.2,0,"PT",442.01,8)=""
^DD(441.2,0,"PT",443.61,8)=""
^DD(441.2,0,"PT",444.019,4)=""
^DD(441.2,0,"PT",444.026,4)=""
^DD(441.2,0,"PT",6914,8)=""
^DD(441.2,0,"PT",6917,6)=""
^DD(441.2,0,"VR")="5.1"
^DD(441.2,0,"VRPK")="PRC"
^DD(441.2,.01,0)="NUMBER^RFX^^0;1^K:$L(X)>4!($L(X)<4)!'((X?4N)&(+X=X)!(X?1A3N)!(X?2A2N)) X S:$D(X) DINUM=$S(X?4N:X,X?1A3N:$A(X)_$E(X,2,4),1:$A(X)_$A(X,2)_$E(X,3,4))"
^DD(441.2,.01,1,0)="^.1"
^DD(441.2,.01,1,1,0)="441.2^B"
^DD(441.2,.01,1,1,1)="S ^PRC(441.2,""B"",$E(X,1,30),DA)="""""
^DD(441.2,.01,1,1,2)="K ^PRC(441.2,""B"",$E(X,1,30),DA)"
^DD(441.2,.01,3)="ENTER THE APPLICABLE FSC/PSC CODE."
^DD(441.2,.01,21,0)="^^2^2^3050722^"
^DD(441.2,.01,21,1,0)="This is the 4-character long Federal Supply Classification (FSC) code or "
^DD(441.2,.01,21,2,0)="Product Service Code (PSC)."
^DD(441.2,.01,"DT")="3050722"
^DD(441.2,1,0)="ABBREVIATED DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<1) X"
^DD(441.2,1,1,0)="^.1"
^DD(441.2,1,1,1,0)="441.2^D"
^DD(441.2,1,1,1,1)="S ^PRC(441.2,""D"",$E(X,1,30),DA)="""""
^DD(441.2,1,1,1,2)="K ^PRC(441.2,""D"",$E(X,1,30),DA)"
^DD(441.2,1,1,1,"%D",0)="^^2^2^2930625^^"
^DD(441.2,1,1,1,"%D",1,0)="This X-REF contains the DESCRIPTION for each FEDERAL SUPPLY CLASSIFICATION"
^DD(441.2,1,1,1,"%D",2,0)="number.  This is the 'name' for each FSC number."
^DD(441.2,1,3)="ANSWER MUST BE 1-35 CHARACTERS IN LENGTH"
^DD(441.2,1,21,0)="^^1^1^2930204^^"
^DD(441.2,1,21,1,0)="This is an abbreviated Federal Supply Classification description."
^DD(441.2,1,"DT")="2890912"
^DD(441.2,2,0)="DESCRIPTION^441.21^^1;0"
^DD(441.2,2,21,0)="^^1^1^2910516^"
^DD(441.2,2,21,1,0)="This is a description of the classification."
^DD(441.2,3,0)="GROUP^P441.3'^PRC(441.3,^0;3^Q"
^DD(441.2,3,1,0)="^.1"
^DD(441.2,3,1,1,0)="441.2^C"
^DD(441.2,3,1,1,1)="S ^PRC(441.2,""C"",$E(X,1,30),DA)="""""
^DD(441.2,3,1,1,2)="K ^PRC(441.2,""C"",$E(X,1,30),DA)"
^DD(441.2,3,1,1,"%D",0)="^^2^2^2930625^"
^DD(441.2,3,1,1,"%D",1,0)="This X-REF is a pointer to the group that the FSC number belongs.  The"
^DD(441.2,3,1,1,"%D",2,0)="group name is found in file 441.3."
^DD(441.2,3,21,0)="^^2^2^2910516^"
^DD(441.2,3,21,1,0)="This is a pointer to the file of FSC"
^DD(441.2,3,21,2,0)="group categories."
^DD(441.2,4,0)="COMMODITY CODE^S^1:Drugs;2:Other Medical;3:General;6:Fuel;8:Subsistence;9:Unposted Building Supplies;^0;4^Q"
^DD(441.2,4,3)="Enter Commodity Code associated with this FSC."
^DD(441.2,4,21,0)="^^1^1^2910516^"
^DD(441.2,4,21,1,0)="This is the FSC commodity code."
^DD(441.2,4,"DT")="2890322"
^DD(441.2,5,0)="DLA ADDRESS^R*P423.9'^PRCF(423.9,^0;5^S DIC(""S"")=""I """"67""""[Y"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(441.2,5,12)="Allows selection of DLA addresses only."
^DD(441.2,5,12.1)="S DIC(""S"")=""I """"67""""[Y"""
^DD(441.2,5,21,0)="^^1^1^2941110^"
^DD(441.2,5,21,1,0)="This field restricts the selection to DLA addresses only."
^DD(441.2,5,"DT")="2930823"
^DD(441.2,"B","ABBREVIATED DESCRIPTION",1)=""
^DD(441.2,"B","COMMODITY CODE",4)=""
^DD(441.2,"B","DESCRIPTION",2)=""
^DD(441.2,"B","DLA ADDRESS",5)=""
^DD(441.2,"B","GROUP",3)=""
^DD(441.2,"B","NUMBER",.01)=""
^DD(441.2,"GL",0,1,.01)=""
^DD(441.2,"GL",0,2,1)=""
^DD(441.2,"GL",0,3,3)=""
^DD(441.2,"GL",0,4,4)=""
^DD(441.2,"GL",0,5,5)=""
^DD(441.2,"GL",1,0,2)=""
^DD(441.2,"IX",.01)=""
^DD(441.2,"IX",1)=""
^DD(441.2,"IX",3)=""
^DD(441.2,"RQ",.01)=""
^DD(441.2,"RQ",1)=""
^DD(441.2,"RQ",5)=""
^DD(441.2,"SB",441.21,2)=""
^DD(441.21,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(441.21,0,"NM","DESCRIPTION")=""
^DD(441.21,0,"UP")="441.2"
^DD(441.21,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(441.21,.01,21,0)="^^2^2^2930413^"
^DD(441.21,.01,21,1,0)=" "
^DD(441.21,.01,21,2,0)="Description of Federal Supply Classification"
^DD(441.21,"B","DESCRIPTION",.01)=""
^DD(441.21,"GL",0,1,.01)=""
^DD(441.3,0)="FIELD^^1^2"
^DD(441.3,0,"DDA")="N"
^DD(441.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(441.3,0,"IX","B",441.3,.01)=""
^DD(441.3,0,"NM","FSC GROUP TITLES")=""
^DD(441.3,0,"PT",441.2,3)=""
^DD(441.3,0,"VR")="5.1"
^DD(441.3,0,"VRPK")="PRC"
^DD(441.3,.01,0)="NUMBER^RFX^^0;1^K:$L(X)>2!($L(X)<1)!'(X?1.2AN) X"
^DD(441.3,.01,1,0)="^.1"
^DD(441.3,.01,1,1,0)="441.3^B"
^DD(441.3,.01,1,1,1)="S ^PRC(441.3,""B"",$E(X,1,30),DA)="""""
^DD(441.3,.01,1,1,2)="K ^PRC(441.3,""B"",$E(X,1,30),DA)"
^DD(441.3,.01,3)="ENTER THE 2 DIGIT FSC GROUP NUMBER, OR ALPHANUMERIC CODE."
^DD(441.3,.01,21,0)="^^2^2^3050517^"
^DD(441.3,.01,21,1,0)="This is the 2 digit or alphanumeric Federal Supply Classification group "
^DD(441.3,.01,21,2,0)="code for this category."
^DD(441.3,.01,"DT")="3050517"
^DD(441.3,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(441.3,1,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(441.3,1,21,0)="^^1^1^2910516^"
^DD(441.3,1,21,1,0)="This is a description of the group category."
^DD(441.3,"B","DESCRIPTION",1)=""
^DD(441.3,"B","NUMBER",.01)=""
^DD(441.3,"GL",0,1,.01)=""
^DD(441.3,"GL",0,2,1)=""
^DD(441.3,"IX",.01)=""
^DD(441.3,"RQ",.01)=""
^DD(441.3,"RQ",1)=""
^DD(441.4,0)="FIELD^^3^4"
^DD(441.4,0,"DDA")="N"
^DD(441.4,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(441.4,0,"IX","B",441.4,.01)=""
^DD(441.4,0,"NM","DLA/LOG CODES")=""
^DD(441.4,0,"PT",423,312)=""
^DD(441.4,0,"PT",423,342)=""
^DD(441.4,0,"PT",423,350)=""
^DD(441.4,0,"PT",423,351)=""
^DD(441.4,0,"PT",423,356)=""
^DD(441.4,0,"PT",423,357)=""
^DD(441.4,0,"PT",423,422)=""
^DD(441.4,0,"PT",442,72)=""
^DD(441.4,0,"PT",442,73)=""
^DD(441.4,0,"PT",442,78)=""
^DD(441.4,0,"PT",442,79)=""
^DD(441.4,0,"PT",442,80)=""
^DD(441.4,0,"PT",442.01,39.5)=""
^DD(441.4,0,"PT",443.61,39.5)=""
^DD(441.4,0,"VR")="5.1"
^DD(441.4,0,"VRPK")="IFCAP"
^DD(441.4,.01,0)="CODE^RF^^0;1^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(441.4,.01,1,0)="^.1"
^DD(441.4,.01,1,1,0)="441.4^B"
^DD(441.4,.01,1,1,1)="S ^PRCD(441.4,""B"",$E(X,1,30),DA)="""""
^DD(441.4,.01,1,1,2)="K ^PRCD(441.4,""B"",$E(X,1,30),DA)"
^DD(441.4,.01,3)="Enter DLA code, as it appears on the transmission to DLA.  ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(441.4,.01,21,0)="^^1^1^2910516^^"
^DD(441.4,.01,21,1,0)="This is the DLA/LOG code from the transmission to DLA."
^DD(441.4,1,0)="SCREENING CODE^RS^M:MEDIA & STATUS CODE;D:DEMAND CODE;P:PRIORITY CODE;A:ADVICE CODE;R:ROUTING IDENTIFIER CODE;S:SOURCE DEVIATION CODE;^0;2^Q"
^DD(441.4,1,3)="This field will be used to screen entries according to the type of code that is being filled in for the transmission.  This allows the file to be used for multiple kinds of DLA/LOG codes."
^DD(441.4,1,21,0)="^^1^1^2910516^"
^DD(441.4,1,21,1,0)="This is the DLA screening code from the transmission to DLA."
^DD(441.4,1,"DT")="2890511"
^DD(441.4,2,0)="DESCRIPTION^RF^^0;3^K:$L(X)>70!($L(X)<1) X"
^DD(441.4,2,3)="Enter description of each DLA code, for online help.  ANSWER MUST BE 1-70 CHARACTERS IN LENGTH"
^DD(441.4,2,21,0)="^^1^1^2910516^^"
^DD(441.4,2,21,1,0)="This is the description of the DLA from the transmission. "
^DD(441.4,3,0)="LONG DESCRIPTION^441.43^^1;0"
^DD(441.4,3,21,0)="^^2^2^2910516^^"
^DD(441.4,3,21,1,0)="This is the long description of the DLA code from"
^DD(441.4,3,21,2,0)="the transmission.  It should describe the use of the code."
^DD(441.4,"B","CODE",.01)=""
^DD(441.4,"B","DESCRIPTION",2)=""
^DD(441.4,"B","LONG DESCRIPTION",3)=""
^DD(441.4,"B","SCREENING CODE",1)=""
^DD(441.4,"GL",0,1,.01)=""
^DD(441.4,"GL",0,2,1)=""
^DD(441.4,"GL",0,3,2)=""
^DD(441.4,"GL",1,0,3)=""
^DD(441.4,"IX",.01)=""
^DD(441.4,"RQ",.01)=""
^DD(441.4,"RQ",1)=""
^DD(441.4,"RQ",2)=""
^DD(441.4,"SB",441.43,3)=""
^DD(441.43,0)="LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(441.43,0,"NM","LONG DESCRIPTION")=""
^DD(441.43,0,"UP")="441.4"
^DD(441.43,.01,0)="LONG DESCRIPTION^W^^0;1^Q"
^DD(441.43,.01,3)="Enter further information to describe the use of each code."
^DD(441.43,.01,21,0)="^^2^2^2930413^"
^DD(441.43,.01,21,1,0)=" "
^DD(441.43,.01,21,2,0)="Full length description of DLA/LOG CODES"
^DD(441.43,"B","LONG DESCRIPTION",.01)=""
^DD(441.43,"GL",0,1,.01)=""
^DD(441.6,0)="FIELD^^4^5"
^DD(441.6,0,"DDA")="N"
^DD(441.6,0,"DT")="2940224"
^DD(441.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(441.6,0,"IX","B",441.6,.01)=""
^DD(441.6,0,"IX","C",441.6,1)=""
^DD(441.6,0,"NM","TYPE OF REQUISITION AMENDMENT")=""
^DD(441.6,0,"VR")="5.1"
^DD(441.6,0,"VRPK")="IFCAP"
^DD(441.6,.01,0)="NUMBER^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(441.6,.01,1,0)="^.1"
^DD(441.6,.01,1,1,0)="441.6^B"
^DD(441.6,.01,1,1,1)="S ^PRCD(441.6,""B"",$E(X,1,30),DA)="""""
^DD(441.6,.01,1,1,2)="K ^PRCD(441.6,""B"",$E(X,1,30),DA)"
^DD(441.6,.01,3)="Answer must be 1-2 characters in length."
^DD(441.6,.01,21,0)="^^1^1^2940218^^^"
^DD(441.6,.01,21,1,0)="This is the number of the requisition amendment type."
^DD(441.6,.01,"DT")="2940218"
^DD(441.6,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>212!($L(X)<1) X"
^DD(441.6,1,1,0)="^.1"
^DD(441.6,1,1,1,0)="441.6^C"
^DD(441.6,1,1,1,1)="S ^PRCD(441.6,""C"",$E(X,1,30),DA)="""""
^DD(441.6,1,1,1,2)="K ^PRCD(441.6,""C"",$E(X,1,30),DA)"
^DD(441.6,1,1,1,"%D",0)="^^1^1^2940322^"
^DD(441.6,1,1,1,"%D",1,0)="   To do look up on the type of amendments file at the description field."
^DD(441.6,1,1,1,"DT")="2940322"
^DD(441.6,1,3)="Answer must be 1-212 characters in length."
^DD(441.6,1,21,0)="^^1^1^2940218^^^^"
^DD(441.6,1,21,1,0)="This is a description of the requisition amendment type."
^DD(441.6,1,"DT")="2940322"
^DD(441.6,2,0)="ROUTINE LINE^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(441.6,2,3)="Answer must be 1-15 characters in length."
^DD(441.6,2,21,0)="^^2^2^2940218^"
^DD(441.6,2,21,1,0)="This is the routine line entry point for processing this type of requisition"
^DD(441.6,2,21,2,0)="amendment."
^DD(441.6,2,"DT")="2940218"
^DD(441.6,3,0)="AMEND. LINE1^F^^1;1^K:$L(X)>45!($L(X)<1) X"
^DD(441.6,3,3)="Answer must be 1-45 characters in length."
^DD(441.6,3,21,0)="^^1^1^2940218^"
^DD(441.6,3,21,1,0)="This is the amendment line 1."
^DD(441.6,3,"DT")="2940218"
^DD(441.6,4,0)="AMEND. LINE2^F^^1;2^K:$L(X)>45!($L(X)<1) X"
^DD(441.6,4,3)="Answer must be 1-45 characters in length."
^DD(441.6,4,21,0)="^^1^1^2940218^"
^DD(441.6,4,21,1,0)="This is the amendment line 2."
^DD(441.6,4,"DT")="2940218"
^DD(441.6,"B","AMEND. LINE1",3)=""
^DD(441.6,"B","AMEND. LINE2",4)=""
^DD(441.6,"B","DESCRIPTION",1)=""
^DD(441.6,"B","NUMBER",.01)=""
^DD(441.6,"B","ROUTINE LINE",2)=""
^DD(441.6,"GL",0,1,.01)=""
^DD(441.6,"GL",0,2,1)=""
^DD(441.6,"GL",0,3,2)=""
^DD(441.6,"GL",1,1,3)=""
^DD(441.6,"GL",1,2,4)=""
^DD(441.6,"IX",.01)=""
^DD(441.6,"IX",1)=""
^DD(441.6,"RQ",.01)=""
^DD(441.7,0)="FIELD^^6^7"
^DD(441.7,0,"DT")="2940401"
^DD(441.7,0,"ID","Z1")="W ?5,$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(441.7,0,"ID","Z2")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCS(410.8,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(410.8,.01,0),U,2) D Y^DIQ:Y]"""" W ?14,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(441.7,0,"ID","Z3")="W ?55,$P(^(0),U,2)"
^DD(441.7,0,"ID","Z4")="W ?62,""DELV.QTY:"",$J($P(^(0),U,5),6)"
^DD(441.7,0,"IX","AC",441.7,2)=""
^DD(441.7,0,"IX","AD",441.7,3)=""
^DD(441.7,0,"IX","AE",441.7,4)=""
^DD(441.7,0,"IX","AG",441.7,.01)=""
^DD(441.7,0,"IX","AH",441.7,1)=""
^DD(441.7,0,"IX","B",441.7,.01)=""
^DD(441.7,0,"NM","AMENDMENTS TO DELIVERY SCHEDULES")=""
^DD(441.7,0,"SCR")="X $S('$D(PRCHPONO):""I 1"",'$D(PRCHLINO):""I $P(^(0),U,1)=PRCHPONO"",1:""I $P(^(0),U,1)=PRCHPONO,$P(^(0),U,2)=PRCHDA"")"
^DD(441.7,0,"VR")="5.1"
^DD(441.7,0,"VRPK")="IFCAP"
^DD(441.7,.01,0)="ORDER NUMBER (PAT)^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:X[""""""""!($A(X)=45) X"
^DD(441.7,.01,1,0)="^.1"
^DD(441.7,.01,1,1,0)="441.7^AG^MUMPS"
^DD(441.7,.01,1,1,1)="I $P(^PRC(441.7,DA,0),U,2) S ^PRC(441.7,""AG"",$E(X,1,30),$P(^(0),U,2),DA)="""""
^DD(441.7,.01,1,1,2)="I $P(^PRC(441.7,DA,0),U,2) K ^PRC(441.7,""AG"",$E(X,1,30),$P(^(0),U,2),DA)"
^DD(441.7,.01,1,1,"%D",0)="^^4^4^2940401^^"
^DD(441.7,.01,1,1,"%D",1,0)="This x-ref and the ""AH"" x-ref  in the ITEM field work together to control "
^DD(441.7,.01,1,1,"%D",2,0)="the ""AG"" x-ref, a list of ORDER NUMBER (PAT) and ITEM.  Both fields"
^DD(441.7,.01,1,1,"%D",3,0)="must have a value for the ""AG"" x-ref to be created.  The ITEM field"
^DD(441.7,.01,1,1,"%D",4,0)="must have a value to remove the ""AG"" x-ref."
^DD(441.7,.01,1,1,"DT")="2940401"
^DD(441.7,.01,1,2,0)="441.7^B"
^DD(441.7,.01,1,2,1)="S ^PRC(441.7,""B"",$E(X,1,30),DA)="""""
^DD(441.7,.01,1,2,2)="K ^PRC(441.7,""B"",$E(X,1,30),DA)"
^DD(441.7,.01,1,2,"DT")="2940411"
^DD(441.7,.01,3)="Enter entire PAT number"
^DD(441.7,.01,21,0)="3^^2^2^2970408^^^"
^DD(441.7,.01,21,1,0)="This is the entire PAT (Pending Accounting Transaction) number"
^DD(441.7,.01,21,2,0)="that must be a Purchase Order or Requisition."
^DD(441.7,.01,"DT")="2940411"
^DD(441.7,1,0)="ITEM^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1)!'(X?1N.N) X I $D(X) S Z=$O(^PRC(443.6,""B"",$P(^PRC(441.7,DA,0),U,1),0)) K:'$D(^PRC(443.6,+Z,2,X,0)) X K Z"
^DD(441.7,1,1,0)="^.1^^-1"
^DD(441.7,1,1,2,0)="441.7^AH^MUMPS"
^DD(441.7,1,1,2,1)="I $P(^PRC(441.7,DA,0),U,1)]"""" S ^PRC(441.7,""AG"",$P(^(0),U,1),X,DA)="""""
^DD(441.7,1,1,2,2)="I $P(^PRC(441.7,DA,0),U,1)]"""" K ^PRC(441.7,""AG"",$P(^(0),U,1),X,DA)"
^DD(441.7,1,1,2,"%D",0)="^^4^4^2940401^"
^DD(441.7,1,1,2,"%D",1,0)="This x-ref and the ""AG"" x-ref in the ORDER NUMBER (PAT) field work together"
^DD(441.7,1,1,2,"%D",2,0)="to control the ""AG"" x-ref, a list of ORDER NUMBER (PAT) and ITEM.  Both"
^DD(441.7,1,1,2,"%D",3,0)="fields must contain data for the ""AG"" x-ref to be created.  The ORDER"
^DD(441.7,1,1,2,"%D",4,0)="NUMBER (PAT) field must have data to remove the ""AG"" x-ref."
^DD(441.7,1,1,2,"DT")="2940401"
^DD(441.7,1,3)="Enter line-item number from the order (Must be an item on a Purchase Order or Requisition).  Type a number between 1 and 99999."
^DD(441.7,1,4)="S:$D(D) PRCHD=D S X=""?"",DIC=""^PRC(443.6,""_PRCHPO_"",2,"",DIC(0)=""QEM"" D ^DIC S:$D(DIE) DIC=DIE S:$D(PRCHD) D=PRCHD K PRCHD,Z"
^DD(441.7,1,21,0)="^^1^1^2970408^^^^"
^DD(441.7,1,21,1,0)="This is the Line-item number for a Purchase Order or Requisition."
^DD(441.7,1,"DT")="2970408"
^DD(441.7,2,0)="DELIVERY DATE^RDX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(441.7,2,1,0)="^.1"
^DD(441.7,2,1,1,0)="441.7^AC^MUMPS"
^DD(441.7,2,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXE Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I ""22,23""[PRCHAMDA S PRCHX=X,X=0 D EN2^PRCHAMXE S X=PRCHX K PRCHX"
^DD(441.7,2,1,1,2)="I $G(PRCHNORE)=1,""22,23""[PRCHAMDA S FLAG=1 D EN2^PRCHAMXE"
^DD(441.7,2,1,1,"%D",0)="^^7^7^2970415^^^^"
^DD(441.7,2,1,1,"%D",1,0)="This x-ref will set the old value in the CHANGES multiple.  If there was"
^DD(441.7,2,1,1,"%D",2,0)="no previous value for this field or this is a new field the old value is"
^DD(441.7,2,1,1,"%D",3,0)="set to '0'.  If there was a previous value for this field that becomes the"
^DD(441.7,2,1,1,"%D",4,0)="old value."
^DD(441.7,2,1,1,"%D",5,0)="                                           "
^DD(441.7,2,1,1,"%D",6,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(441.7,2,1,1,"%D",7,0)="incidence of undefined DIK variable errors."
^DD(441.7,2,1,1,"DT")="2970220"
^DD(441.7,2,3)="Enter date on which delivery is to be made."
^DD(441.7,2,21,0)="^^1^1^2940304^^"
^DD(441.7,2,21,1,0)="This is the date on which delivery of the item (s) is to be made."
^DD(441.7,2,"DT")="2970221"
^DD(441.7,3,0)="LOCATION FOR DELIVERY^RP410.8X^PRCS(410.8,^0;4^Q"
^DD(441.7,3,1,0)="^.1"
^DD(441.7,3,1,1,0)="441.7^AD^MUMPS"
^DD(441.7,3,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXE Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I ""22,23""[PRCHAMDA S PRCHX=X,X=0 D EN3^PRCHAMXE S X=PRCHX K PRCHX"
^DD(441.7,3,1,1,2)="I $G(PRCHNORE)=1,""22,23""[PRCHAMDA S FLAG=1 D EN3^PRCHAMXE"
^DD(441.7,3,1,1,"%D",0)="^^7^7^2970415^^^^"
^DD(441.7,3,1,1,"%D",1,0)="This x-ref will set the old value in the CHANGES multiple.  If there was"
^DD(441.7,3,1,1,"%D",2,0)="no previous value for this field or this is a new field the old value is"
^DD(441.7,3,1,1,"%D",3,0)="set to '0'.  If there was a previous value for this field that becomes the"
^DD(441.7,3,1,1,"%D",4,0)="old value."
^DD(441.7,3,1,1,"%D",5,0)="                                  "
^DD(441.7,3,1,1,"%D",6,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(441.7,3,1,1,"%D",7,0)="incidence of undefined DIK variable errors."
^DD(441.7,3,1,1,"DT")="2970220"
^DD(441.7,3,3)="Enter location to which the item should be delivered."
^DD(441.7,3,21,0)="^^1^1^2940304^^"
^DD(441.7,3,21,1,0)="This is the location to which the item should be delivered."
^DD(441.7,3,"DT")="2970221"
^DD(441.7,4,0)="QTY TO BE DELIVERED^RNJ9,2X^^0;5^K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"".""3N.N)!($D(PRCHQTY)&$D(PRCHTOT)&($G(PRCHTOT)+X-$P($G(^PRC(441.7,DA,0)),U,5)>$G(PRCHQTY)&(X'=0))) X"
^DD(441.7,4,1,0)="^.1"
^DD(441.7,4,1,1,0)="441.7^AE^MUMPS"
^DD(441.7,4,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN8^PRCHAMXE Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I ""22,23""[PRCHAMDA S PRCHX=X,X=0 D EN4^PRCHAMXE S X=PRCHX K PRCHX"
^DD(441.7,4,1,1,2)="I $G(PRCHNORE)=1,""22,23""[PRCHAMDA S FLAG=1 D EN4^PRCHAMXE"
^DD(441.7,4,1,1,"%D",0)="^^7^7^2970416^^^^"
^DD(441.7,4,1,1,"%D",1,0)="This x-ref will set the old value in the CHANGES multiple.  If there was"
^DD(441.7,4,1,1,"%D",2,0)="no previous value for this field or this is a new field the old value is"
^DD(441.7,4,1,1,"%D",3,0)="set to '0'.  If there was a previous value for this field that becomes the"
^DD(441.7,4,1,1,"%D",4,0)="old value."
^DD(441.7,4,1,1,"%D",5,0)="               "
^DD(441.7,4,1,1,"%D",6,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(441.7,4,1,1,"%D",7,0)="incidence of undefined DIK variable errors."
^DD(441.7,4,1,1,"DT")="2970220"
^DD(441.7,4,3)="How many units should be delivered on this date? (Enter zero to exit option and delete this schedule.)"
^DD(441.7,4,4)="I $D(PRCHTOT) S PRCHSUM=$G(PRCHQTY)-PRCHTOT+$P($G(^PRC(441.7,DA,0)),U,5) W !,""The largest valid quantity here is "",$S($G(PRCHSUM)>0:PRCHSUM,1:""0""),""."",!"
^DD(441.7,4,21,0)="^^2^2^2970209^^^^"
^DD(441.7,4,21,1,0)="This is the quantity to be delivered to the specified location"
^DD(441.7,4,21,2,0)="on the specified date."
^DD(441.7,4,"DT")="2970221"
^DD(441.7,5,0)="DELETE FLAG^S^D:DELETE;^0;6^Q"
^DD(441.7,5,21,0)="^^1^1^2941123^^"
^DD(441.7,5,21,1,0)="It is a flag to delete the amendments to delivery schedules."
^DD(441.7,5,"DT")="2940307"
^DD(441.7,6,0)="PERMANENT ENTRY^P442.8'^PRC(442.8,^0;7^Q"
^DD(441.7,6,21,0)="^^1^1^2941110^"
^DD(441.7,6,21,1,0)="It is a permanent corresponding entry in File 442.8"
^DD(441.7,6,"DT")="2940401"
^DD(441.7,"B","DELETE FLAG",5)=""
^DD(441.7,"B","DELIVERY DATE",2)=""
^DD(441.7,"B","ITEM",1)=""
^DD(441.7,"B","LOCATION FOR DELIVERY",3)=""
^DD(441.7,"B","ORDER NUMBER (PAT)",.01)=""
^DD(441.7,"B","PERMANENT ENTRY",6)=""
^DD(441.7,"B","QTY TO BE DELIVERED",4)=""
^DD(441.7,"GL",0,1,.01)=""
^DD(441.7,"GL",0,2,1)=""
^DD(441.7,"GL",0,3,2)=""
^DD(441.7,"GL",0,4,3)=""
^DD(441.7,"GL",0,5,4)=""
^DD(441.7,"GL",0,6,5)=""
^DD(441.7,"GL",0,7,6)=""
^DD(441.7,"IX",.01)=""
^DD(441.7,"IX",1)=""
^DD(441.7,"IX",2)=""
^DD(441.7,"IX",3)=""
^DD(441.7,"IX",4)=""
^DD(441.7,"RQ",.01)=""
^DD(441.7,"RQ",1)=""
^DD(441.7,"RQ",2)=""
^DD(441.7,"RQ",3)=""
^DD(441.7,"RQ",4)=""
^DD(442,0)="FIELD^NL^501^168"
^DD(442,0,"DDA")="N"
^DD(442,0,"DT")="2951018"
^DD(442,0,"ID","Z.01")="W:$D(^(1)) $E($P(^(1),U,15),4,5)_""-""_$E($P(^(1),U,15),6,7)_""-""_$E($P(^(1),U,15),2,3)"
^DD(442,0,"ID","Z.02")="W $S($D(^PRCD(442.5,+$P(^(0),U,2),0))#2:$P(^(0),U,2),1:"""") I @(""$D(""_DIC_""Y,7))""),$D(^PRCD(442.3,+^(7),0)) W ""   "",$E($P(^(0),U,1),1,34)"
^DD(442,0,"ID","Z.03")="W:$D(^(0)) !,?13,""FCP: "",$P($P(^(0),U,3),"" "",1),""     $ "",$J($P(^(0),U,15),0,2)"
^DD(442,0,"IX","AB",442,.1)=""
^DD(442,0,"IX","AC",442,1)=""
^DD(442,0,"IX","AD",442,102.5)=""
^DD(442,0,"IX","AE",442,103.5)=""
^DD(442,0,"IX","AF",442.11,19.2)=""
^DD(442,0,"IX","AG",442,.5)=""
^DD(442,0,"IX","AH",442,.7)=""
^DD(442,0,"IX","AI",442,.8)=""
^DD(442,0,"IX","AJ",442.09,3)=""
^DD(442,0,"IX","AM",442,46)=""
^DD(442,0,"IX","AM1",442,.5)=""
^DD(442,0,"IX","APC",442,48)=""
^DD(442,0,"IX","B",442,.01)=""
^DD(442,0,"IX","C",442,.01)=""
^DD(442,0,"IX","D",442,5)=""
^DD(442,0,"IX","E",442,1)=""
^DD(442,0,"IX","F",442,.02)=""
^DD(442,0,"IX","G",442.14,11)=""
^DD(442,0,"IX","H",442,.09)=""
^DD(442,0,"IX","I",442,102.5)=""
^DD(442,0,"IX","J",442,102.6)=""
^DD(442,0,"IX","K",442,102.4)=""
^DD(442,0,"IX","L",442.17,.01)=""
^DD(442,0,"IX","MAPP",442,.7)=""
^DD(442,0,"IX","MCH",442,61)=""
^DD(442,0,"IX","ST",442,.5)=""
^DD(442,0,"NM","PROCUREMENT & ACCOUNTING TRANSACTIONS")=""
^DD(442,0,"PT",58.8,13)=""
^DD(442,0,"PT",58.81,8)=""
^DD(442,0,"PT",410,52)=""
^DD(442,0,"PT",410.02,9)=""
^DD(442,0,"PT",411.3,12)=""
^DD(442,0,"PT",420.96,3)=""
^DD(442,0,"PT",421.5,5)=""
^DD(442,0,"PT",423,5.1)=""
^DD(442,0,"PT",423.1,12)=""
^DD(442,0,"PT",424,.02)=""
^DD(442,0,"PT",440.6,41)=""
^DD(442,0,"PT",441.04,.01)=""
^DD(442,0,"PT",442,27)=""
^DD(442,0,"PT",442,28)=""
^DD(442,0,"PT",442.9,1)=""
^DD(442,0,"PT",443.75,7)=""
^DD(442,0,"PT",443.9,.01)=""
^DD(442,0,"PT",664,7.1)=""
^DD(442,0,"PT",665.7232,2)=""
^DD(442,0,"VR")="5.1"
^DD(442,0,"VRPK")="IFCAP"
^DD(442,.01,0)="PURCHASE ORDER NUMBER^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) S Z=$P(X,""-"",2) K:'$D(^PRC(411,$P(X,""-"",1)))!'($S($D(PRCAREF):Z?3UN2N1UN,$D(PRCFA(1358)):Z?3UN2N1UN,1:(Z?3UN3N))) X D:$D(X) EN8^PRCHNPO6"
^DD(442,.01,.1)="PO"
^DD(442,.01,1,0)="^.1"
^DD(442,.01,1,1,0)="442^B"
^DD(442,.01,1,1,1)="S ^PRC(442,""B"",X,DA)="""""
^DD(442,.01,1,1,2)="K ^PRC(442,""B"",X,DA)"
^DD(442,.01,1,2,0)="442^C^MUMPS"
^DD(442,.01,1,2,1)="S ^PRC(442,""C"",$P(X,""-"",2),DA)="""""
^DD(442,.01,1,2,2)="K ^PRC(442,""C"",$P(X,""-"",2),DA)"
^DD(442,.01,1,2,"%D",0)="^^2^2^2930625^"
^DD(442,.01,1,2,"%D",1,0)="This X-REF contains the Common Numbering System part of the complete"
^DD(442,.01,1,2,"%D",2,0)="Purchase Order, the part of the PO after the SITE number."
^DD(442,.01,3)="ENTER PURCHASE ORDER (PAT) NUMBER (ie A61234,6A1234, or X7G123)"
^DD(442,.01,4)="I $D(PRCAREF) W !,""Enter the PAT REF number (i.e. 8K1234,K8123A)"""
^DD(442,.01,20,0)="^.3LA^1^1"
^DD(442,.01,20,1,0)="AR"
^DD(442,.01,21,0)="^^1^1^2960705^^^^"
^DD(442,.01,21,1,0)="This is the purchase order number."
^DD(442,.01,"DT")="2960912"
^DD(442,.02,0)="METHOD OF PROCESSING^R*P442.5'X^PRCD(442.5,^0;2^S DIC(""S"")=""I $P(^(0),U,5)=1,""_$S($D(PRCHNRQ):""Y=8!(Y=25)"",1:""Y'=8"") S:$D(PRCHDELV) DIC(""S"")=""I Y=1!(Y=26)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,.02,1,0)="^.1^^-1"
^DD(442,.02,1,1,0)="442^F"
^DD(442,.02,1,1,1)="S ^PRC(442,""F"",$E(X,1,30),DA)="""""
^DD(442,.02,1,1,2)="K ^PRC(442,""F"",$E(X,1,30),DA)"
^DD(442,.02,1,1,"%D",0)="^^2^2^2930625^"
^DD(442,.02,1,1,"%D",1,0)="This X-REF contains the pointer to the METHOD OF PROCESSING file"
^DD(442,.02,1,1,"%D",2,0)="for each PO."
^DD(442,.02,3)=""
^DD(442,.02,12)="Enter the number or abbreviation."
^DD(442,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=1,""_$S($D(PRCHNRQ):""Y=8!(Y=25)"",1:""Y'=8"") S:$D(PRCHDELV) DIC(""S"")=""I Y=1!(Y=26)"""
^DD(442,.02,21,0)="^^1^1^2951128^^^"
^DD(442,.02,21,1,0)="This is the method of payment."
^DD(442,.02,"DT")="2960522"
^DD(442,.03,0)="SPECIAL FUND CONTROL POINT^S^1:GENERAL POST FUNDS;2:SUPPLY FUND;3:CASCA;4:CANTEEN;^0;19^Q"
^DD(442,.03,3)="Controls the way a procurement document is routed through IFCAP, as well as whether Cost Centers and BOC(s) are required."
^DD(442,.03,21,0)="^^4^4^2940708^^^"
^DD(442,.03,21,1,0)="This is the special fund control point."
^DD(442,.03,21,2,0)="It controls the way in which a procurement"
^DD(442,.03,21,3,0)="document is routed through IFCAP, as well as"
^DD(442,.03,21,4,0)="whether Cost Centers and BOC(s) are required."
^DD(442,.03,"DT")="2940510"
^DD(442,.04,0)="INVOICE ADDRESS^FXO^^12;6^S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,D0,0)) K:'Z0 X Q:'Z0  S DIC=""^PRC(411,Z0,4,"",DIC(0)=""QEMO"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(442,.04,2)="S Y(0)=Y Q:Y=""""  S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,D0,0)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(442,.04,2.1)="Q:Y=""""  S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,D0,0)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(442,.04,3)="ENTER THE CORRECT INVOICE LOCATION"
^DD(442,.04,4)="S ZD=D,X=""?"",Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:+^PRC(442,D0,0)) Q:'Z0  S DIC=""^PRC(411,Z0,4,"",DIC(0)=""QEMO"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(442,.04,21,0)="^^1^1^2951013^^^"
^DD(442,.04,21,1,0)="This is the invoice address."
^DD(442,.04,22)=".05"
^DD(442,.04,"DT")="2951013"
^DD(442,.05,0)="2237 REFERENCE NUMBER^442.14PA^^13;0"
^DD(442,.05,3)="Enter the station number"
^DD(442,.05,21,0)="^^1^1^2941125^^^^"
^DD(442,.05,21,1,0)="This is the reference number for this request for this station."
^DD(442,.05,"DT")="2850430"
^DD(442,.06,0)="PRIORITY OF 2237^S^EM:EMERGENCY;SP:SPECIAL;ST:STANDARD;^1;9^Q"
^DD(442,.06,21,0)="^^1^1^2941125^^"
^DD(442,.06,21,1,0)="This is the priority of this purchase order."
^DD(442,.06,"DT")="2860426"
^DD(442,.07,0)="PRIMARY 2237^*P410'I^PRCS(410,^0;12^S DIC(""S"")=""I $D(^PRC(442,DA,13,Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,.07,12)="MUST EXIST IN MULTIPLE"
^DD(442,.07,12.1)="S DIC(""S"")=""I $D(^PRC(442,DA,13,Y,0))"""
^DD(442,.07,21,0)="^^1^1^2910517^"
^DD(442,.07,21,1,0)="This is the primary purchase order."
^DD(442,.07,"DT")="2861016"
^DD(442,.08,0)="ESTIMATED ORDER?^S^Y:YES;N:NO;^7;3^Q"
^DD(442,.08,21,0)="^^1^1^2910517^"
^DD(442,.08,21,1,0)="Enter YES if this is an estimated order."
^DD(442,.08,"DT")="2870521"
^DD(442,.09,0)="DEPOT VOUCHER NO.^F^^1;13^K:$L(X)>5!($L(X)<5) X"
^DD(442,.09,1,0)="^.1"
^DD(442,.09,1,1,0)="442^H"
^DD(442,.09,1,1,1)="S ^PRC(442,""H"",$E(X,1,30),DA)="""""
^DD(442,.09,1,1,2)="K ^PRC(442,""H"",$E(X,1,30),DA)"
^DD(442,.09,1,1,"%D",0)="^^1^1^2930625^"
^DD(442,.09,1,1,"%D",1,0)="This X-REF lists the DEPOT VOUCHER NO. for each PO."
^DD(442,.09,3)="Enter DEPOT Voucher Number for Receiving (5 characters)."
^DD(442,.09,21,0)="^^1^1^2910517^"
^DD(442,.09,21,1,0)="This is the depot voucher number."
^DD(442,.09,"DT")="2890522"
^DD(442,.1,0)="P.O. DATE^RDX^^1;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) D EN1^PRCHNPO6"
^DD(442,.1,1,0)="^.1"
^DD(442,.1,1,1,0)="442^AB"
^DD(442,.1,1,1,1)="S ^PRC(442,""AB"",$E(X,1,30),DA)="""""
^DD(442,.1,1,1,2)="K ^PRC(442,""AB"",$E(X,1,30),DA)"
^DD(442,.1,1,1,"%D",0)="^^1^1^2930625^"
^DD(442,.1,1,1,"%D",1,0)="This X-REF has the date the PO was created."
^DD(442,.1,3)="Changing P.O. date to a different FY will re-calculate the appropriation."
^DD(442,.1,21,0)="^^1^1^2930408^"
^DD(442,.1,21,1,0)="This is the purchase order date."
^DD(442,.1,"DT")="2881207"
^DD(442,.2,0)="EMERGENCY ORDER?^S^Y:YES;N:NO;^1;17^Q"
^DD(442,.2,3)="Enter 'Y' to indicate this is an emergency procurement."
^DD(442,.2,5,1,0)="442^.25^1"
^DD(442,.2,9)="^"
^DD(442,.2,21,0)="^^1^1^2910517^"
^DD(442,.2,21,1,0)="Enter YES if this is an emergency order."
^DD(442,.2,"DT")="2890413"
^DD(442,.25,0)="LOCAL PROCUREMENT REASON CODE^RP443.8'^PRC(443.8,^1;19^Q"
^DD(442,.25,1,0)="^.1"
^DD(442,.25,1,1,0)="^^TRIGGER^442^.2"
^DD(442,.25,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y X ^DD(442,.25,1,1,1.1) X ^DD(442,.25,1,1,1.4)"
^DD(442,.25,1,1,1.1)="S X=DIV S X=$S('$D(^PRC(443.8,+DIV,0)):"""",1:$P(^(0),U,1))=1,Y(1)=X S X=""Y"",Y(2)=X S X=1,Y(3)=X S X=""N"",X=$S(Y(1):Y(2),Y(3):X)"
^DD(442,.25,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,17)=DIV,DIH=442,DIG=.2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442,.25,1,1,2)="Q"
^DD(442,.25,1,1,"CREATE VALUE")="$S(LOCAL PROCUREMENT REASON CODE=1:""Y"",1:""N"")"
^DD(442,.25,1,1,"DELETE VALUE")="NO EFFECT"
^DD(442,.25,1,1,"FIELD")="EMERGENCY"
^DD(442,.25,21,0)="^^3^3^2910412^^"
^DD(442,.25,21,1,0)="This is a pointer to the Local Procurement Reason Code"
^DD(442,.25,21,2,0)="File (#443.8).  This code describes why the items are being"
^DD(442,.25,21,3,0)="purchased ""open market""."
^DD(442,.25,"DT")="2910412"
^DD(442,.3,0)="EXPENDABLE/NONEXPENDABLE^RS^E:EXPENDABLE;N:NON-EXPENDABLE;^1;18^Q"
^DD(442,.3,3)="Indicate whether this is a procurement for Expendable, or for Non-expendable goods."
^DD(442,.3,21,0)="^^2^2^2910517^^"
^DD(442,.3,21,1,0)="This is the indicator for procurement of expendable or"
^DD(442,.3,21,2,0)="nonexpendable items."
^DD(442,.3,"DT")="2890511"
^DD(442,.5,0)="SUPPLY STATUS^*P442.3'X^PRCD(442.3,^7;1^S DIC(""S"")=""I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,.5,1,0)="^.1"
^DD(442,.5,1,1,0)="442^AG^MUMPS"
^DD(442,.5,1,1,1)="D ENXS^PRCHSTAT"
^DD(442,.5,1,1,2)="D ENXK^PRCHSTAT"
^DD(442,.5,1,1,"%D",0)="^^9^9^2970613^^^^"
^DD(442,.5,1,1,"%D",1,0)="During SET this X-REF gets the SUPPLY STATUS ORDER number and the FISCAL"
^DD(442,.5,1,1,"%D",2,0)="STATUS ORDER number from the PURCHASE ORDER STATUS file.  The SUPPLY"
^DD(442,.5,1,1,"%D",3,0)="STATUS ORDER number in put into the SUPPLY STATUS ORDER field of this"
^DD(442,.5,1,1,"%D",4,0)="file and the ""AH"" X-REF is created for that field.  The FISCAL STATUS"
^DD(442,.5,1,1,"%D",5,0)="ORDER number is entered into the FISCAL STATUS ORDER field, also in"
^DD(442,.5,1,1,"%D",6,0)="this file, and the ""AI"" X-REF entry is created for that field."
^DD(442,.5,1,1,"%D",7,0)=" "
^DD(442,.5,1,1,"%D",8,0)="During KILL both the SUPPLY STATUS ORDER and the FISCAL STATUS ORDER"
^DD(442,.5,1,1,"%D",9,0)="fields in this file are set to null."
^DD(442,.5,1,51,0)="442^ST^MUMPS"
^DD(442,.5,1,51,1)="N A S A=$P($G(^PRCD(442.3,+X,0)),U,2) S:A=50!(A=51)&($P($G(^PRC(442,DA,23)),U,22)]"""") ^PRC(442,""MAPP"",$P(^PRC(442,DA,23),U,22)_""~"",DA)="""""
^DD(442,.5,1,51,2)="K:$P($G(^PRC(442,DA,23)),U,22)]"""" ^PRC(442,""MAPP"",$P(^PRC(442,DA,23),U,22)_""~"",DA)"
^DD(442,.5,1,51,"%D",0)="^^1^1^2970613^^^^"
^DD(442,.5,1,51,"%D",1,0)="This is a conditional index by purchase card order user for status change."
^DD(442,.5,1,51,"DT")="2960702"
^DD(442,.5,1,55,0)="442^AM1^MUMPS"
^DD(442,.5,1,55,1)="I $P($G(^PRC(442,DA,23)),U,8) N A S A=$P($G(^PRCD(442.3,+X,0)),U,2) I A-45,A-41,A-40 S ^PRC(442,""AM"",$P(^PRC(442,DA,23),U,8),DA)="""""
^DD(442,.5,1,55,2)="K:$P($G(^PRC(442,DA,23)),U,8) ^PRC(442,""AM"",$P($G(^PRC(442,DA,23)),U,8),DA)"
^DD(442,.5,1,55,"%D",0)="^^2^2^2970613^^^^"
^DD(442,.5,1,55,"%D",1,0)="This will set the index 'AM' for purchase card order if the status"
^DD(442,.5,1,55,"%D",2,0)="is not transaction complete (amendment) or cancelled."
^DD(442,.5,1,55,"DT")="2970613"
^DD(442,.5,3)=""
^DD(442,.5,12)="STATUS OF PURCHASE ORDER"
^DD(442,.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"""
^DD(442,.5,21,0)="^^1^1^2941117^^"
^DD(442,.5,21,1,0)="This is the Supply status."
^DD(442,.5,"DT")="2970613"
^DD(442,.6,0)="PARTIAL^442.11ID^^11;0"
^DD(442,.6,21,0)="^^1^1^2950201^^^^"
^DD(442,.6,21,1,0)="This is the information used for a partial order."
^DD(442,.7,0)="SUPPLY STATUS ORDER^NJ3,0^^7;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442,.7,1,0)="^.1"
^DD(442,.7,1,1,0)="442^AH"
^DD(442,.7,1,1,1)="S ^PRC(442,""AH"",$E(X,1,30),DA)="""""
^DD(442,.7,1,1,2)="K ^PRC(442,""AH"",$E(X,1,30),DA)"
^DD(442,.7,1,1,"%D",0)="^^3^3^2960628^^"
^DD(442,.7,1,1,"%D",1,0)="This X-REF lists the SUPPLY STATUS ORDER number.  This X-REF is"
^DD(442,.7,1,1,"%D",2,0)="actually created and killed when the SUPPLY STATUS field ""AG"""
^DD(442,.7,1,1,"%D",3,0)="X-REF is SET or KILLed."
^DD(442,.7,1,10,0)="442^MAPP^MUMPS"
^DD(442,.7,1,10,1)="I X=50!(X=51),$P(^PRC(442,DA,23),U,22) S ^PRC(442,""MAPP"",$P(^PRC(442,DA,23),U,22)_""~"",DA)="""""
^DD(442,.7,1,10,2)="I X=50!(X=51),$P(^PRC(442,DA,23),U,22) K ^PRC(442,""MAPP"",$P(^PRC(442,DA,23),U,22)_""~"",DA)"
^DD(442,.7,1,10,"%D",0)="^^2^2^2960628^"
^DD(442,.7,1,10,"%D",1,0)="This cross-reference is used to display total reconciled orders per user,"
^DD(442,.7,1,10,"%D",2,0)="and to approve reconciled orders."
^DD(442,.7,1,10,"DT")="2960628"
^DD(442,.7,3)="NOT EDITABLE--Updated automatically when SUPPLY STATUS (.5) changes (number between 1 and 999)"
^DD(442,.7,21,0)="^^2^2^2910517^"
^DD(442,.7,21,1,0)="This field is automatically updated when supply"
^DD(442,.7,21,2,0)="status changes."
^DD(442,.7,"DT")="2960628"
^DD(442,.8,0)="FISCAL STATUS ORDER^NJ3,0^^7;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442,.8,1,0)="^.1"
^DD(442,.8,1,1,0)="442^AI"
^DD(442,.8,1,1,1)="S ^PRC(442,""AI"",$E(X,1,30),DA)="""""
^DD(442,.8,1,1,2)="K ^PRC(442,""AI"",$E(X,1,30),DA)"
^DD(442,.8,1,1,"%D",0)="^^3^3^2930625^"
^DD(442,.8,1,1,"%D",1,0)="This X-REF keeps track of the FISCAL STATUS ORDER number.  This"
^DD(442,.8,1,1,"%D",2,0)="X-REF is SET and KILLed through the ""AG"" X-REF in the SUPPLY"
^DD(442,.8,1,1,"%D",3,0)="STATUS field in this file."
^DD(442,.8,3)="NOT EDITABLE--Updated automatically when SUPPLY STATUS (.5) changes. (number between 1 and 999)"
^DD(442,.8,21,0)="^^2^2^2910517^"
^DD(442,.8,21,1,0)="This field is automatically updated when supply status"
^DD(442,.8,21,2,0)="changes."
^DD(442,.8,"DT")="2890601"
^DD(442,1,0)="FCP^RFX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:'$D(PRC(""SITE""))!('$D(^PRC(442,DA,1))) X Q:'$D(X)  S:$P(^(1),U,15)]"""" PRC(""FY"")=$P(^(1),U,15) D EN1^PRCHNPO5 Q:'$D(X)  S $P(^PRC(442,DA,0),U,4)=PRC(""APP"")"
^DD(442,1,.1)="Fund Control Point"
^DD(442,1,1)="^^^^^^^^^^2850326"
^DD(442,1,1,0)="^.1"
^DD(442,1,1,1,0)="442^E^MUMPS"
^DD(442,1,1,1,1)="S ^PRC(442,""E"",$P(X,"" "",1),DA)="""""
^DD(442,1,1,1,2)="K ^PRC(442,""E"",$P(X,"" "",1),DA)"
^DD(442,1,1,1,"%D",0)="^^1^1^2930625^"
^DD(442,1,1,1,"%D",1,0)="This X-REF contains just the CONTROL POINT number, not the name."
^DD(442,1,1,2,0)="442^AC^MUMPS"
^DD(442,1,1,2,1)="I $D(^PRC(420,+^PRC(442,DA,0),1,+X,0)) S Z=^(0) S:$P(Z,U,12) $P(^PRC(442,DA,0),U,19)=$P(Z,U,12) S:$P(Z,U,18) $P(^PRC(442,DA,17),U,1)=$E($P(Z,U,18),1,3) K Z"
^DD(442,1,1,2,2)="S $P(^PRC(442,DA,0),U,19)="""",$P(^(17),U,1)="""""
^DD(442,1,1,2,"%D",0)="^^9^9^2930625^"
^DD(442,1,1,2,"%D",1,0)="The SET for this X-REF checks the FUND CONTROL POINT file to see if there"
^DD(442,1,1,2,"%D",2,0)="is any data in the SPECIAL CONTROL POINT field.  If there is data it is"
^DD(442,1,1,2,"%D",3,0)="entered into the SPECIAL FUND CONTROL POINT in this file.  Also, the LOG"
^DD(442,1,1,2,"%D",4,0)="DEPARTMENT field in the FUND CONTROL POINT file is checked for data.  If"
^DD(442,1,1,2,"%D",5,0)="any data is found it is entered into the DEPARTMENT NUMBER field in this"
^DD(442,1,1,2,"%D",6,0)="file."
^DD(442,1,1,2,"%D",7,0)=" "
^DD(442,1,1,2,"%D",8,0)="The KILL for this X-REF just sets the SPECIAL FUND CONTROL POINT and the"
^DD(442,1,1,2,"%D",9,0)="DEPARTMENT NUMBER fields to null."
^DD(442,1,3)="ENTER A VALID FUND CONTROL POINT"
^DD(442,1,4)="Q:'$D(PRC(""SITE""))  S:$D(D) ZD=D S Z0=$E($P(^PRC(442,DA,0),""-"",2),1,2),X=""?"",DIC=""^PRC(420,""_PRC(""SITE"")_"",1,"",DIC(0)=""QEM"",DIC(""S"")=""D EN5^PRCHNPO6"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K Z0,Z1,ZD"
^DD(442,1,21,0)="^^1^1^2910517^^"
^DD(442,1,21,1,0)="This is the valid Fund Control Point."
^DD(442,1,"DT")="2890120"
^DD(442,1.4,0)="APPROPRIATION^RF^^0;4^K:$L(X)>20!($L(X)<4) X"
^DD(442,1.4,3)="ANSWER MUST BE 4-20 CHARACTERS IN LENGTH"
^DD(442,1.4,21,0)="^^2^2^2930408^"
^DD(442,1.4,21,1,0)=" "
^DD(442,1.4,21,2,0)="P.O. Appropriation"
^DD(442,1.4,"DT")="2850419"
^DD(442,2,0)="COST CENTER^RFX^^0;5^S Z0=+$P(^PRC(442,DA,0),""^"",3) K:'$D(PRC(""SITE""))!'Z0 X,Z0 I $D(X) K:'$D(^PRC(420,PRC(""SITE""),1,Z0,2,0)) X I $D(X) D EN2^PRCHNPO5"
^DD(442,2,3)="Enter the Cost Center for this Purchase Order"
^DD(442,2,4)="S ZD=D,X=""?"",Z0=+$P(^PRC(442,DA,0),""^"",3) Q:'$D(PRC(""SITE""))!'Z0  Q:'$D(^PRC(420,PRC(""SITE""),1,Z0,2,0))  S DIC=""^PRC(420,PRC(""""SITE""""),1,Z0,2,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(442,2,21,0)="^^1^1^2940708^^^"
^DD(442,2,21,1,0)="This is the cost center for this purchase order."
^DD(442,2,"DT")="2940708"
^DD(442,2.4,0)="OBLIGATION DATA^442.09A^^10;0"
^DD(442,2.4,10)=""
^DD(442,2.4,11,0)="^.2LAP"
^DD(442,2.4,21,0)="^^1^1^2950807^^^^"
^DD(442,2.4,21,1,0)="This is the funds obligation data."
^DD(442,3,0)="SUBACCOUNT1^P420.2'^PRCD(420.2,^0;6^Q"
^DD(442,3,3)=""
^DD(442,3,21,0)="^^2^2^2910517^"
^DD(442,3,21,1,0)="This is the first subaccount of the transaction,"
^DD(442,3,21,2,0)="if applicable."
^DD(442,3,"DT")="2850502"
^DD(442,3.4,0)="SUBAMOUNT1^NJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(442,3.4,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(442,3.4,21,0)="^^1^1^2910517^"
^DD(442,3.4,21,1,0)="This is the amount charged to the first subaccount."
^DD(442,4,0)="SUBACCOUNT2^P420.2'^PRCD(420.2,^0;8^Q"
^DD(442,4,3)=""
^DD(442,4,21,0)="^^2^2^2910517^"
^DD(442,4,21,1,0)="This is the second subaccount on this transaction,"
^DD(442,4,21,2,0)="if applicable."
^DD(442,4,"DT")="2850502"
^DD(442,4.4,0)="SUBAMOUNT2^NJ9,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(442,4.4,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(442,4.4,21,0)="^^1^1^2910517^"
^DD(442,4.4,21,1,0)="This is the amount charged to the second subaccount."
^DD(442,5,0)="VENDOR^R*P440X^PRC(440,^1;1^D EN3^PRCHNPO5"
^DD(442,5,1,0)="^.1"
^DD(442,5,1,1,0)="442^D"
^DD(442,5,1,1,1)="S ^PRC(442,""D"",$E(X,1,30),DA)="""""
^DD(442,5,1,1,2)="K ^PRC(442,""D"",$E(X,1,30),DA)"
^DD(442,5,1,1,"%D",0)="^^1^1^2930625^"
^DD(442,5,1,1,"%D",1,0)="The X-REF just lists the vendor for this file entry."
^DD(442,5,4)="I $D(DA),$D(^PRC(442,DA,2,""AE"")) W !?5,""Vendor cannot be edited if Purchase Order contains line items with PR card numbers."""
^DD(442,5,10)=""
^DD(442,5,21,0)="^^1^1^2910517^"
^DD(442,5,21,1,0)="This is the name of the vendor."
^DD(442,5,"DT")="2871006"
^DD(442,5.1,0)="DEBTOR^P412'^PRC(412,^1;16^Q"
^DD(442,5.1,21,0)="^^1^1^2930408^^"
^DD(442,5.1,21,1,0)="This is the name of the debtor."
^DD(442,5.1,"DT")="2870907"
^DD(442,5.2,0)="REQUESTING SERVICE^RP49'^DIC(49,^1;2^Q"
^DD(442,5.2,21,0)="^^1^1^2910517^"
^DD(442,5.2,21,1,0)="This is the requesting Service."
^DD(442,5.2,"DT")="2850319"
^DD(442,5.3,0)="DIRECT DELIVERY PATIENT^P440.2^PRC(440.2,^1;12^Q"
^DD(442,5.3,21,0)="^^2^2^2910517^"
^DD(442,5.3,21,1,0)="This indicates if this is a direct delivery to a"
^DD(442,5.3,21,2,0)="patient."
^DD(442,5.3,"DT")="2851012"
^DD(442,5.4,0)="SHIP TO^NJ5,0XO^^1;3^S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,D0,0)),1,3)) K:'Z0 X Q:'Z0  S DIC=""^PRC(411,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(442,5.4,1)="^1"
^DD(442,5.4,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,D0,0)),1,3)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(442,5.4,2.1)="Q:Y']""""  S Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,D0,0)),1,3)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(442,5.4,3)="ENTER A RECEIVING LOCATION"
^DD(442,5.4,4)="S ZD=D,X=""?"",Z0=$S($P($G(^PRC(442,D0,23)),U,7)]"""":$P($G(^PRC(442,D0,23)),U,7),1:$E($G(^PRC(442,D0,0)),1,3)) Q:'Z0  S DIC=""^PRC(411,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(442,5.4,21,0)="^^1^1^2950831^^^^"
^DD(442,5.4,21,1,0)="This is the address for the delivery."
^DD(442,5.4,"DT")="2950815"
^DD(442,5.6,0)="DELIVERY LOCATION^F^^1;11^K:$L(X)>20!($L(X)<3) X"
^DD(442,5.6,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(442,5.6,21,0)="^^1^1^2910517^"
^DD(442,5.6,21,1,0)="This is the delivery location."
^DD(442,5.6,"DT")="2851010"
^DD(442,5.7,0)="DELIVERY LOCATIONS/DATES^442.02^^19;0"
^DD(442,5.7,21,0)="^^1^1^2910517^"
^DD(442,5.7,21,1,0)="These are the dates for delivery for delivery locations."
^DD(442,6,0)="VERBAL PURCHASE ORDER (Y/N)^RS^Y:YES;N:NO;^1;4^Q"
^DD(442,6,21,0)="^^1^1^2910517^"
^DD(442,6,21,1,0)="YES indicates that this is a verbal purchase order."
^DD(442,6,"DT")="2850416"
^DD(442,6.2,0)="CONFIRMATION COPY (Y/N)^RS^Y:YES;N:NO;^1;5^Q"
^DD(442,6.2,21,0)="^^1^1^2910517^"
^DD(442,6.2,21,1,0)="YES indicates that this is a confirmation copy."
^DD(442,6.4,0)="F.O.B. POINT^S^D:DESTINATION;O:ORIGIN;^1;6^Q"
^DD(442,6.4,.1)=""
^DD(442,6.4,3)=""
^DD(442,6.4,21,0)="^^1^1^2910517^"
^DD(442,6.4,21,1,0)="This is the F.O.B. point."
^DD(442,6.4,"DT")="2941121"
^DD(442,6.9,0)="ORIGINAL DELIVERY DATE^D^^0;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(442,6.9,3)="This field is updated automatically if the Delivery Date is changed AFTER obligation."
^DD(442,6.9,21,0)="^^1^1^2910517^"
^DD(442,6.9,21,1,0)="This is the original delivery date."
^DD(442,6.9,"DT")="2890303"
^DD(442,7,0)="DELIVERY DATE^RDX^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S Z1=$S($D(^PRC(442,DA,1)):$P(^(1),U,15),1:""""),Z2=$S('Z1:""Missing P.O. DATE"",X<Z1:""DELIVERY DATE before P.O. DATE"",1:"""") W:Z2'="""" *7,""   * "",Z2 K:Z2'="""" X K Z1,Z2"
^DD(442,7,21,0)="^^1^1^2910517^"
^DD(442,7,21,1,0)="This is the delivery date for this purchase order."
^DD(442,7,"DT")="2880225"
^DD(442,7.2,0)="ESTIMATED COST^NJ10,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(442,7.2,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(442,7.2,21,0)="^^1^1^2940510^^"
^DD(442,7.2,21,1,0)="This is the estimated cost."
^DD(442,7.2,"DT")="2940510"
^DD(442,8,0)="SOURCE CODE^R*P420.8'X^PRCD(420.8,^1;7^S DIC(""S"")=""I ""_$S($G(PRCHPC)=2:""""""0236B""""[$E(^(0))"",$D(PRCHPUSH):""""""13""""[$E(^(0))"",$D(PRCHNRQ):""""""1390""""[$E(^(0))"",1:""""""2456789B""""[$E(^(0))"") D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(442,8,3)=""
^DD(442,8,12)="SOURCE CODE"
^DD(442,8,12.1)="S DIC(""S"")=""I ""_$S($G(PRCHPC)=2:""""""0236B""""[$E(^(0))"",$D(PRCHPUSH):""""""13""""[$E(^(0))"",$D(PRCHNRQ):""""""1390""""[$E(^(0))"",1:""""""2456789B""""[$E(^(0))"")"
^DD(442,8,21,0)="^.001^1^1^3050408^^"
^DD(442,8,21,1,0)="This is the source code for this order."
^DD(442,8,"DT")="3051025"
^DD(442,8.1,0)="ASTR. FOR SOURCE CODE^F^^1;14^K:$L(X)>3!($L(X)<1)!'(""X?.""""*"""""") X"
^DD(442,8.1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(442,8.1,21,0)="^^2^2^2910517^"
^DD(442,8.1,21,1,0)="This field contains internal program code that controls "
^DD(442,8.1,21,2,0)="printed output."
^DD(442,8.1,"DT")="2850329"
^DD(442,8.2,0)="PROPOSAL^F^^1;8^K:$L(X)>45!($L(X)<3) X"
^DD(442,8.2,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(442,8.2,21,0)="^^2^2^2910517^"
^DD(442,8.2,21,1,0)="This is the proposal information that prints on the"
^DD(442,8.2,21,2,0)="purchase order, if applicable."
^DD(442,8.3,0)="PURCHASE METHOD^442.12PA^^14;0"
^DD(442,8.3,21,0)="^^1^1^2941125^^"
^DD(442,8.3,21,1,0)="This is the purchase method."
^DD(442,9.2,0)="PROMPT PAYMENT TERMS^442.06AI^^5;0"
^DD(442,9.2,21,0)="^^1^1^2941128^^^^"
^DD(442,9.2,21,1,0)="Theses are the prompt payment terms."
^DD(442,13,0)="EST. SHIPPING AND/OR HANDLING^NJ7,2XO^^0;13^S:X[""$"" X=$P(X,""$"",2) K:(X?.N1"".""3N.N)!(X>9999.99)!(X<0) X I $D(X),$D(^PRC(442,DA,1)),$P(^(1),U,6)=""D"" D EN4^PRCHNPO5 I $D(X) W "" $"",$J(X,0,2)"
^DD(442,13,1,0)="^.1"
^DD(442,13,1,1,0)="^^TRIGGER^442^15"
^DD(442,13,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442,13,1,1,1.1) X ^DD(442,13,1,1,1.4)"
^DD(442,13,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14)+1"
^DD(442,13,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442,13,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442,13,1,1,2.1) X ^DD(442,13,1,1,2.4)"
^DD(442,13,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14)-1"
^DD(442,13,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442,13,1,1,"CREATE VALUE")="LineItem+1"
^DD(442,13,1,1,"DELETE VALUE")="LineItem-1"
^DD(442,13,1,1,"FIELD")="LineItem Count"
^DD(442,13,2)="S Y(0)=Y S Y="" $""_$J(Y,0,2)"
^DD(442,13,2.1)="S Y="" $""_$J(Y,0,2)"
^DD(442,13,3)="ENTER A DOLLAR AMOUNT BETWEEN 0 AND 9999.99"
^DD(442,13,21,0)="^^1^1^2941115^^^^"
^DD(442,13,21,1,0)="This is the estimate of shipping and handling costs."
^DD(442,13,"DT")="2940829"
^DD(442,13.05,0)="EST. SHIPPING BOC^RFX^^23;1^S Z0=$P(^PRC(442,D0,0),""^"",5) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) D EN88^PRCHNPO7"
^DD(442,13.05,3)="Enter the BOC for the EST. SHIPPING AND/OR HANDLING field entry.  Choose the appropriate BOC from this cost center."
^DD(442,13.05,4)="S ZD=D,Z0=$P(^PRC(442,D0,0),""^"",5) K:'Z0 X,Z0 I $D(X) S X=""?"",DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""E"" D ^DIC K DIC S D=ZD K ZD,Z0"
^DD(442,13.05,21,0)="^^1^1^2940628^"
^DD(442,13.05,21,1,0)="The shipping charges are accounted in this field."
^DD(442,13.05,"DT")="2940701"
^DD(442,13.1,0)="EST. SHIPPING LINE ITEM NO.^NJ3,0^^0;18^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442,13.1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(442,13.1,21,0)="^^2^2^2910517^"
^DD(442,13.1,21,1,0)="This is the line item number for shipping and"
^DD(442,13.1,21,2,0)="handling costs."
^DD(442,13.1,"DT")="2880606"
^DD(442,13.2,0)="GOV'T B/L NO.^F^^12;7^K:$L(X)>21!($L(X)<1) X"
^DD(442,13.2,3)="ANSWER MUST BE 1-21 CHARACTERS IN LENGTH.  If FOB point=ORIGIN and Shipping Charges > $250, shipping charges are put on Gov't Bill of Lading. Enter number here."
^DD(442,13.2,21,0)="^^1^1^2941115^^^^"
^DD(442,13.2,21,1,0)="This is the Government Bill of Lading number."
^DD(442,13.2,"DT")="2861007"
^DD(442,13.3,0)="SHIP VIA^F^^12;8^K:$L(X)>23!($L(X)<1) X"
^DD(442,13.3,3)="ANSWER MUST BE 1-23 CHARACTERS IN LENGTH.  If Gov't Bill of Lading was required, enter the shipping method information in this field."
^DD(442,13.3,21,0)="^^2^2^2910517^"
^DD(442,13.3,21,1,0)="This is the shipping method if this is a Government"
^DD(442,13.3,21,2,0)="Bill of Lading."
^DD(442,13.3,"DT")="2861007"
^DD(442,13.4,0)="GBL P.O.NUMBER^F^^12;9^K:$L(X)>6!($L(X)<1) X"
^DD(442,13.4,3)="Enter the P.O.number assigned to the Government Bill of Lading.  ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(442,13.4,21,0)="^^2^2^2910517^"
^DD(442,13.4,21,1,0)="This is the Government Bill of Lading purchase order"
^DD(442,13.4,21,2,0)="number."
^DD(442,13.4,"DT")="2890120"
^DD(442,14,0)="DISCOUNT^442.03A^^3;0"
^DD(442,14,21,0)="^^1^1^2941125^^"
^DD(442,14,21,1,0)="This is the discount for this order."
^DD(442,15,0)="LINE ITEM COUNT^RNJ3,0^^0;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442,15,1,0)="^.1^^0"
^DD(442,15,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(442,15,5,1,0)="442.01^.01^1"
^DD(442,15,5,2,0)="442.03^.01^1"
^DD(442,15,5,3,0)="442^13^1"
^DD(442,15,21,0)="^^1^1^2910517^"
^DD(442,15,21,1,0)="This is the line item count."
^DD(442,15,"DT")="2890921"
^DD(442,16,0)="PA/PPM/AUTHORIZED BUYER^R*P200'^VA(200,^1;10^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ)  I $P(^(400),U,1)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,16,12)="Must be a PPM Clerk, Authorized Buyer or Manager for Requisitions, a Purchasing Agent, Authorized Buyer or Manager for P.O.'s."
^DD(442,16,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ)  I $P(^(400),U,1)>2"""
^DD(442,16,21,0)="^^1^1^2960523^^^"
^DD(442,16,21,1,0)="This is the purchasing agent responsible for this request."
^DD(442,16,"DT")="2960523"
^DD(442,16.5,0)="VALIDATION CODE^RFXIO^^12;2^K:$L(X)>30!($L(X)<2) X"
^DD(442,16.5,1,0)="^.1"
^DD(442,16.5,1,1,0)="^^TRIGGER^442^17"
^DD(442,16.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,12)):^(12),1:"""") S X=$P(Y(1),U,3) S DIU=X K Y X ^DD(442,16.5,1,1,1.1) X ^DD(442,16.5,1,1,1.4)"
^DD(442,16.5,1,1,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X"
^DD(442,16.5,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),12)):^(12),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(12)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442,16.5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(442,D0,12)):^(12),1:"""") S X=$P(Y(1),U,3) S DIU=X K Y S X=DIV S X="""" X ^DD(442,16.5,1,1,2.4)"
^DD(442,16.5,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),12)):^(12),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(12)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=17 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442,16.5,1,1,"CREATE VALUE")="NOW"
^DD(442,16.5,1,1,"DELETE VALUE")="@"
^DD(442,16.5,1,1,"FIELD")="ES CODE DATE/TIME"
^DD(442,16.5,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES5(D0)"
^DD(442,16.5,2.1)="S Y=""/ES/""_$$DECODE^PRCHES5(D0)"
^DD(442,16.5,3)="Answer must be 2-30 characters in length."
^DD(442,16.5,21,0)="^^2^2^2930511^^^^"
^DD(442,16.5,21,1,0)="This is the electronic signature for this"
^DD(442,16.5,21,2,0)="purchasing agent."
^DD(442,16.5,"DT")="2921221"
^DD(442,16.7,0)="VALIDATION VERSION^NJ2,0^^12;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442,16.7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442,16.7,21,0)="^^2^2^2930408^"
^DD(442,16.7,21,1,0)=" "
^DD(442,16.7,21,2,0)="This is the version of the validation."
^DD(442,16.7,"DT")="2921209"
^DD(442,16.8,0)="ESIG CODE^F^^12;12^K:$L(X)>10!($L(X)<2) X"
^DD(442,16.8,3)="Answer must be 2-10 characters in length."
^DD(442,16.8,21,0)="^^2^2^2930408^"
^DD(442,16.8,21,1,0)=" "
^DD(442,16.8,21,2,0)="The signature block name."
^DD(442,16.8,"DT")="2930412"
^DD(442,17,0)="VALIDATION DATE/TIME^D^^12;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(442,17,5,1,0)="442^16.5^1"
^DD(442,17,9)="^"
^DD(442,17,21,0)="^^2^2^2910517^"
^DD(442,17,21,1,0)="This is the electronic signature code for the"
^DD(442,17,21,2,0)="date/time."
^DD(442,17,"DT")="2921209"
^DD(442,18,0)="PO PRINTED TIME^D^^12;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(442,18,21,0)="^^1^1^2910517^"
^DD(442,18,21,1,0)="This is the printed time for this purchase order."
^DD(442,18,"DT")="2850502"
^DD(442,18.5,0)="EDI MESSAGE NO.^NJ9,0^^12;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442,18.5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(442,18.5,21,0)="^^2^2^2930408^"
^DD(442,18.5,21,1,0)=" "
^DD(442,18.5,21,2,0)="The EDI message number that is returned from Austin."
^DD(442,18.5,"DT")="2910823"
^DD(442,18.6,0)="NEED SPECIAL HANDLING?^S^Y:YES;N:NO;^12;13^Q"
^DD(442,18.6,21,0)="^^2^2^2931015^"
^DD(442,18.6,21,1,0)="   This field is just a question to see if the special handling instructions"
^DD(442,18.6,21,2,0)="are needed for the purchase order."
^DD(442,18.6,"DT")="2930930"
^DD(442,18.7,0)="TYPE OF SPECIAL HANDLING^P443.4'^PRC(443.4,^12;14^Q"
^DD(442,18.7,21,0)="^^4^4^2931015^^"
^DD(442,18.7,21,1,0)="    This is a pointer field to file 443.4. The file contains special"
^DD(442,18.7,21,2,0)="handling instructions which are displayed/printed on purchase orders."
^DD(442,18.7,21,3,0)="The special handling instructions are also sent in the CO segment of the "
^DD(442,18.7,21,4,0)="PHA transaction."
^DD(442,18.7,"DT")="2930930"
^DD(442,19,0)="AGENT ASSIGNED P.O.^P200'I^VA(200,^12;4^Q"
^DD(442,19,21,0)="^^1^1^2910517^"
^DD(442,19,21,1,0)="This is the agent assigned to this purchase order."
^DD(442,19,"DT")="2921221"
^DD(442,19.2,0)="DATE P.O. ASSIGNED^D^^12;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(442,19.2,21,0)="^^2^2^2910517^"
^DD(442,19.2,21,1,0)="This is the date this purchase order was assigned"
^DD(442,19.2,21,2,0)="to this purchasing agent."
^DD(442,19.2,"DT")="2851026"
^DD(442,20,0)="COMMENTS^442.04^^4;0"
^DD(442,20,21,0)="^^1^1^2910517^"
^DD(442,20,21,1,0)="These are comments about this purchase order."
^DD(442,21,0)="MONTH^CJ2^^ ; ^S Y(442,21,1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(Y(442,21,1),U,15),Y(442,21,2)=X S X=4,Y(442,21,3)=X S X=5,X=$E(Y(442,21,2),Y(442,21,3),X)"
^DD(442,21,9)="^"
^DD(442,21,9.01)="442^.1"
^DD(442,21,9.1)="$E(P.O. Date,4,5)"
^DD(442,21,21,0)="^^1^1^2910517^"
^DD(442,21,21,1,0)="This is the month for this purchase order."
^DD(442,22,0)="QUARTER^CJ1,0^^ ; ^S Y(442,22,1)=$S($D(^PRC(442,D0,1)):^(1),1:"""") S X=$P(Y(442,22,1),U,15),X=$P(""2^2^2^3^3^3^4^4^4^1^1^1"",""^"",$E(X,4,5))"
^DD(442,22,9)="^"
^DD(442,22,9.01)="442^.1"
^DD(442,22,9.1)="QUARTER(P.O. DATE)"
^DD(442,22,21,0)="^^1^1^2910517^"
^DD(442,22,21,1,0)="This is the quarter for this purchase order."
^DD(442,22,"DT")="2851018"
^DD(442,23,0)="LAST DIGIT OF FISCAL YEAR^CJ1^^ ; ^S X="""" F I=1:1 Q:+X=X  S X=$E($P(^PRC(442,D0,0),""-"",2),I) I +X=X"
^DD(442,23,9)="^"
^DD(442,23,9.01)=""
^DD(442,23,9.1)="S X="""" F I=1:1 Q:+X=X  S X=$E($P(^PRC(442,D0,0),""-"",2),I) I +X=X"
^DD(442,23,21,0)="^^1^1^2910517^"
^DD(442,23,21,1,0)="This is the last digit of the current fiscal year."
^DD(442,23,"DT")="2871204"
^DD(442,24,0)="ADMINISTRATIVE CERTIFICATIONS^442.15IP^^15;0"
^DD(442,24,21,0)="^^2^2^2941125^^"
^DD(442,24,21,1,0)="Theses are the administrative certifications for this"
^DD(442,24,21,2,0)="purchase order."
^DD(442,25,0)="REMARKS^442.025^^16;0"
^DD(442,25,21,0)="^^1^1^2910517^"
^DD(442,25,21,1,0)="This is the remarks field."
^DD(442,26,0)="BBFY^D^^23;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(442,26,21,0)="^^3^3^2940418^^"
^DD(442,26,21,1,0)="This field is the FMS 'BEGINING BUGDET FISCAL YEAR'.  This is set from"
^DD(442,26,21,2,0)="'PRC(""BBFY"")' variable.  This variable is created through the 'FCP',"
^DD(442,26,21,3,0)="'FUND CONTROL POINT' field."
^DD(442,26,23,0)="^^1^1^2940418^^"
^DD(442,26,23,1,0)="To retrieve 'PRC(""BBFY"")' use the extrinsic function '$$BBFY^PRCSUT'."
^DD(442,26,"DT")="2940329"
^DD(442,27,0)="OLD PO RECORD^P442'^PRC(442,^23;3^Q"
^DD(442,27,21,0)="^^1^1^2941110^^^^"
^DD(442,27,21,1,0)="It is a pointer to an old purchase order record number."
^DD(442,27,"DT")="2940330"
^DD(442,28,0)="NEW PO RECORD^P442'^PRC(442,^23;4^Q"
^DD(442,28,21,0)="^^1^1^2941123^^"
^DD(442,28,21,1,0)="It is a pointer to a new purchase order record number."
^DD(442,28,"DT")="2940330"
^DD(442,29,0)="END DATE FOR SERVICE ORDER^D^^23;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(442,29,3)="Enter the ending date for this P.O. or 1358 Service Order."
^DD(442,29,21,0)="^^5^5^2941109^^^^"
^DD(442,29,21,1,0)="This field is the ending date for the Purchase Order or 1358 for a"
^DD(442,29,21,2,0)="service order, used when the length of the service contract extends "
^DD(442,29,21,3,0)="over a period greater than one month.  It is used by Fiscal service at"
^DD(442,29,21,4,0)="the time of obligation.  When used in conjunction with the Auto"
^DD(442,29,21,5,0)="Accrue flag, the ending date will determine the monthly accrual."
^DD(442,29,"DT")="2941109"
^DD(442,30,0)="AUTO ACCRUE^S^1:YES;0:NO;^23;6^Q"
^DD(442,30,3)="Enter YES for Auto Accrual; enter NO for no Auto Accrual."
^DD(442,30,21,0)="^^2^2^2941109^^^^"
^DD(442,30,21,1,0)="This field is used by Fiscal service to indicate whether a Purchase"
^DD(442,30,21,2,0)="Order or 1358 for a service order should be accrued in FMS."
^DD(442,30,"DT")="2941028"
^DD(442,31,0)="SUBSTATION^*P411'X^PRC(411,^23;7^S DIC(""S"")=""I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""""SITE"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,31,12)="Select Substations only. This field identifies the facility that will be charged for this order."
^DD(442,31,12.1)="S DIC(""S"")=""I $E($G(^PRC(411,+Y,0)),1,3)=PRC(""""SITE"""")"""
^DD(442,31,"DT")="2950830"
^DD(442,35,0)="AMOUNT^442.1A^^9;0"
^DD(442,35,21,0)="^^1^1^2941125^^^"
^DD(442,35,21,1,0)="This is the amount of the purchase order/partial."
^DD(442,40,0)="ITEM^442.01IA^^2;0"
^DD(442,40,21,0)="^.001^1^1^3050209^^^^"
^DD(442,40,21,1,0)="This is the name of the item on this purchase request."
^DD(442,40,"DT")="2961114"
^DD(442,41,0)="BOC^442.041IA^^22;0"
^DD(442,41,21,0)="^^7^7^2941125^^^^"
^DD(442,41,21,1,0)="This multiple will hold the  dollar amount for each BOC"
^DD(442,41,21,2,0)="within this file 442 record."
^DD(442,41,21,3,0)="   "
^DD(442,41,21,4,0)="Longer explanation.  The BOC field in this multiple allows the"
^DD(442,41,21,5,0)="selection of one of the ITEM multiple BOC.  Only the BOC"
^DD(442,41,21,6,0)="listed in the ""D"" x-ref found within the ITEM multiple in this"
^DD(442,41,21,7,0)="record, are allowable choices for the BOC multiple."
^DD(442,41,23,0)="^^20^20^2941125^^^^"
^DD(442,41,23,1,0)="This multiple, along with the BOC field in the ITEM multiple,"
^DD(442,41,23,2,0)="handles the task of keeping track of which items belong to each FMS LINE"
^DD(442,41,23,3,0)="entry."
^DD(442,41,23,4,0)="   "
^DD(442,41,23,5,0)="The ""D"" x-ref on the BOC field, field 3.5, in the ITEM multiple"
^DD(442,41,23,6,0)="is used with the BOC field, field .01, in this multiple to"
^DD(442,41,23,7,0)="limit the selection only to entries in this record."
^DD(442,41,23,8,0)="   "
^DD(442,41,23,9,0)="The ""AH"" x-ref on the same field in the ITEM multiple allows for the"
^DD(442,41,23,10,0)="lookup of all items using the same BOC."
^DD(442,41,23,11,0)="   "
^DD(442,41,23,12,0)="The SUBAMOUNT field in this multiple just keeps the total dollar amount"
^DD(442,41,23,13,0)="for each BOC, as reported to FMS."
^DD(442,41,23,14,0)="   "
^DD(442,41,23,15,0)="The FMS LINE field just keeps track of the number sent to FMS when the"
^DD(442,41,23,16,0)="subamount was sent down to FMS."
^DD(442,41,23,17,0)="   "
^DD(442,41,23,18,0)="To find all the ITEM entries used to gather the SUBAMOUNT value for"
^DD(442,41,23,19,0)="any BOC in this multiple just look through the ""AH"" x-ref in"
^DD(442,41,23,20,0)="the ITEM multiple."
^DD(442,41,"DT")="2940627"
^DD(442,42,0)="RFQ NBR^F^^21;8^K:X'?3N1""-""2N1""-RFQ-""5N X"
^DD(442,42,3)="Entered when RFQ is awarded and PURCHASE ORDER is created."
^DD(442,42,21,0)="^^11^11^2960507^^^"
^DD(442,42,21,1,0)="This is a unique reference number for the Request for Quotation.  It is "
^DD(442,42,21,2,0)="derived from the following:"
^DD(442,42,21,3,0)="    3 digit station number, i.e. 688"
^DD(442,42,21,4,0)="    hyphen"
^DD(442,42,21,5,0)="    2 digit FISCAL year, i.e. 96"
^DD(442,42,21,6,0)="    hyphen"
^DD(442,42,21,7,0)="    string constant 'RFQ'"
^DD(442,42,21,8,0)="    hyphen"
^DD(442,42,21,9,0)="    5 digit sequence counter padded on the left with zeros"
^DD(442,42,21,10,0)="    "
^DD(442,42,21,11,0)="    For example 688-96-RFQ-00001."
^DD(442,42,"DT")="2960507"
^DD(442,44,0)="DISPUTED^S^Y:YES;N:NO;^23;9^Q"
^DD(442,44,21,0)="^^2^2^2960710^^"
^DD(442,44,21,1,0)="This field is to indicate whether a purchase card charge is being"
^DD(442,44,21,2,0)="disputed."
^DD(442,44,"DT")="2960502"
^DD(442,46,0)="PURCHASE CARD NUMBER^R*P440.5'X^PRC(440.5,^23;8^S DIC(""S"")=""I $D(^PRC(440.5,""""C"""",DUZ,Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,46,1,0)="^.1^^-1"
^DD(442,46,1,2,0)="442^AM"
^DD(442,46,1,2,1)="S ^PRC(442,""AM"",$E(X,1,30),DA)="""""
^DD(442,46,1,2,2)="K ^PRC(442,""AM"",$E(X,1,30),DA)"
^DD(442,46,1,2,"%D",0)="^^1^1^2970306^"
^DD(442,46,1,2,"%D",1,0)="Cross reference for purchase card numbers."
^DD(442,46,1,2,"DT")="2970306"
^DD(442,46,12)="Enter ""?"" to see your own purchase card number(s)."
^DD(442,46,12.1)="S DIC(""S"")=""I $D(^PRC(440.5,""""C"""",DUZ,Y))"""
^DD(442,46,21,0)="^^1^1^2960616^"
^DD(442,46,21,1,0)="This is the purchase card number being used for the purchase card order."
^DD(442,46,"DT")="2970306"
^DD(442,47,0)="DELIVERY ORDER^S^Y:YES;^23;10^Q"
^DD(442,47,21,0)="^^1^1^2960616^"
^DD(442,47,21,1,0)="This field indicates whether this order is a delivery order."
^DD(442,47,"DT")="2960514"
^DD(442,48,0)="TYPE OF ORDER^S^D:DELIVERY ORDER;P:DETAILED PURCHASE CARD ORDER;S:SIMPLIFED PURCHASE CARD ORDER;^23;11^Q"
^DD(442,48,1,0)="^.1"
^DD(442,48,1,1,0)="442^APC^MUMPS"
^DD(442,48,1,1,1)="S ^PRC(442,""APC""_$P($G(^PRC(442,DA,23)),U,11),$P(^(0),U),DA)="""""
^DD(442,48,1,1,2)="K ^PRC(442,""APC""_$P($G(^PRC(442,DA,23)),U,11),$P(^(0),U),DA)"
^DD(442,48,1,1,"%D",0)="^^2^2^2960703^"
^DD(442,48,1,1,"%D",1,0)="This cross reference creates generates 3 lists - one for each codes that"
^DD(442,48,1,1,"%D",2,0)="this field can have."
^DD(442,48,1,1,"DT")="2960703"
^DD(442,48,21,0)="^^2^2^2960909^^^^"
^DD(442,48,21,1,0)="This field determines if a purchase order is a 'Detailed Purchase Card"
^DD(442,48,21,2,0)="Order','Simplified Purchase Card Order' or a 'Delivery Order'."
^DD(442,48,"DT")="2960703"
^DD(442,50,0)="AMENDMENT^442.07AI^^6;0"
^DD(442,50,21,0)="^^1^1^2941125^^^^"
^DD(442,50,21,1,0)="This is an amendment to the purchase order."
^DD(442,51,0)="SORT GROUP^V^^23;13^Q"
^DD(442,51,21,0)="^^3^3^2970311^^^^"
^DD(442,51,21,1,0)="This is the sort group for the IFCAP 410.7"
^DD(442,51,21,2,0)="SORT GROUP file or the Engineering 6920"
^DD(442,51,21,3,0)="WORK ORDER file."
^DD(442,51,"DT")="2970115"
^DD(442,51,"V",0)="^.12P^2^2"
^DD(442,51,"V",1,0)="410.7^SORT GROUP^1^PRCS^n^y"
^DD(442,51,"V",1,1)="S DIC(""S"")=""I $D(PRC(""""CP"""")),$D(^PRCS(410.7,+Y,0)),$P(^(0),U,2)=+PRC(""""CP"""")"""
^DD(442,51,"V",2,0)="6920^WORK ORDER#^2^ENG^n^y"
^DD(442,51,"V","B",410.7,1)=""
^DD(442,51,"V","B",6920,2)=""
^DD(442,51,"V","M","SORT GROUP",1)=""
^DD(442,51,"V","M","WORK ORDER#",2)=""
^DD(442,51,"V","O",1,1)=""
^DD(442,51,"V","O",2,2)=""
^DD(442,51,"V","P","ENG",2)=""
^DD(442,51,"V","P","PRCS",1)=""
^DD(442,52,0)="CLASSIFICATION OF REQUEST^P410.2^PRCS(410.2,^23;12^Q"
^DD(442,52,21,0)="^^1^1^2960616^"
^DD(442,52,21,1,0)="This is the Classification of Request for this order."
^DD(442,52,"DT")="2960521"
^DD(442,53,0)="PCDO VENDOR^P440'X^PRC(440,^23;14^D EN3^PRCHNPO5"
^DD(442,53,4)="I '$D(PRCKAREN),$D(DA),$D(^PRC(442,DA,2,""AE"")) W !?5,""Vendor cannot be edited if Purchase Order contains line items with PR card numbers."""
^DD(442,53,21,0)="^^1^1^2960618^^"
^DD(442,53,21,1,0)="This vendor is for purchase card and delivery order."
^DD(442,53,"DT")="2960612"
^DD(442,54,0)="RECEIVING REQUIRED?^RS^Y:YES;N:NO;^23;15^Q"
^DD(442,54,21,0)="^^1^1^2960616^^"
^DD(442,54,21,1,0)="This field indicates if a purchase card purchase requires receiving."
^DD(442,54,"DT")="2960522"
^DD(442,55,0)="PURCHASE CARD EXT. NO.^F^^23;16^K:$L(X)>16!($L(X)<16) X"
^DD(442,55,3)="Answer must be 16 characters in length."
^DD(442,55,21,0)="^^1^1^2960910^^^"
^DD(442,55,21,1,0)="This is the purchase card number assigned to the purchase card order."
^DD(442,55,"DT")="2960606"
^DD(442,56,0)="PURCHASE CARD USER^P200'^VA(200,^23;17^Q"
^DD(442,56,1,0)="^.1^^0"
^DD(442,56,3)="This is the user who entered the purchase card order"
^DD(442,56,21,0)="^^1^1^2960716^^^"
^DD(442,56,21,1,0)="This is the user who entered the purchase card order."
^DD(442,56,"DT")="2960610"
^DD(442,57,0)="APPROVE RECONCILIATION USER^P200'^VA(200,^23;18^Q"
^DD(442,57,21,0)="^^1^1^2960611^"
^DD(442,57,21,1,0)="This is the user who approves the reconciliation of a purchase card order."
^DD(442,57,"DT")="2960611"
^DD(442,58,0)="DATE RECONCILED^D^^23;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(442,58,3)="This is the reconcilliation date for this purchase order."
^DD(442,58,21,0)="^^1^1^2960616^^"
^DD(442,58,21,1,0)="This is the reconcilliation date for this purchase order."
^DD(442,58,"DT")="2960614"
^DD(442,60,0)="PURCHASE COST^RNJ12,2^^23;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(442,60,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(442,60,21,0)="^^1^1^2960722^^"
^DD(442,60,21,1,0)="This is the total dollar amount for a Simplified Purchase Card Order."
^DD(442,60,"DT")="2960624"
^DD(442,61,0)="PURCHASE CARD HOLDER^P200'^VA(200,^23;22^Q"
^DD(442,61,1,0)="^.1"
^DD(442,61,1,5,0)="442^MCH^MUMPS"
^DD(442,61,1,5,1)="S ^PRC(442,""MCH"",X_""~"",DA)="""""
^DD(442,61,1,5,2)="K ^PRC(442,""MCH"",X_""~"",DA)"
^DD(442,61,1,5,"%D",0)="^^1^1^2960628^^"
^DD(442,61,1,5,"%D",1,0)="This cross-reference is used by the reconciliation of purchase card orders."
^DD(442,61,1,5,"DT")="2960628"
^DD(442,61,21,0)="^^1^1^2960730^^"
^DD(442,61,21,1,0)="This is the Purchase Card Holder for the Purchase Card Order."
^DD(442,61,"DT")="2960730"
^DD(442,62,0)="PCDO 2237^P410'^PRCS(410,^23;23^Q"
^DD(442,62,21,0)="^^1^1^2960702^"
^DD(442,62,21,1,0)="This is the 2237 attached to the purchase card/delivery order."
^DD(442,62,"DT")="2960702"
^DD(442,63,0)="PROCESSING REQUIRED IN FISCAL^S^1:NO;^24;1^Q"
^DD(442,63,.1)="Record Processing in Fiscal"
^DD(442,63,3)="This field indicates if fiscal needs to process receiving report."
^DD(442,63,21,0)="^^1^1^2960718^^^"
^DD(442,63,21,1,0)="This field indicates if fiscal needs to process receiving report."
^DD(442,63,"DT")="2960718"
^DD(442,64,0)="FREE TEXT VENDOR^F^^24;2^K:$L(X)>36!($L(X)<1) X"
^DD(442,64,3)="Answer must be 1-36 characters in length."
^DD(442,64,21,0)="^^1^1^2960902^^"
^DD(442,64,21,1,0)="This is free text vendor for the Simplified Purchase Card Orders."
^DD(442,64,"DT")="2960902"
^DD(442,65,0)="INTERFACE PACKAGE PREFIX^F^^24;3^K:$L(X)>15!($L(X)<1) X"
^DD(442,65,3)="Answer must be 1-15 characters in length."
^DD(442,65,21,0)="^^3^3^2970616^"
^DD(442,65,21,1,0)="The is the interface package prefix indicator. It is set up by the"
^DD(442,65,21,2,0)="package interface routine. The prefix free text should match the"
^DD(442,65,21,3,0)="prefix of package file."
^DD(442,65,"DT")="2970616"
^DD(442,70,0)="DEPARTMENT NUMBER^RF^^17;1^K:$L(X)>3!($L(X)<3)!'(X?2N1E) X"
^DD(442,70,3)="Enter the LOG Department Number.  ANSWER MUST BE 3 CHARACTERS IN LENGTH, the first 2 characters must be numeric."
^DD(442,70,21,0)="^^1^1^2910517^"
^DD(442,70,21,1,0)="This is the three character LOG Department number."
^DD(442,70,"DT")="2890327"
^DD(442,71,0)="DOCUMENT IDENTIFIER CODE^RF^^17;2^K:$L(X)>3!($L(X)<3)!'(X?.UN) X"
^DD(442,71,3)="Enter the 3 digit code for GSA/DLA code sheets"
^DD(442,71,21,0)="^^1^1^2910517^"
^DD(442,71,21,1,0)="This is the three digit code for GSA/DLA code sheets."
^DD(442,71,"DT")="2890327"
^DD(442,72,0)="ROUTING INDENTIFIER CODE^R*P441.4'^PRCD(441.4,^17;3^S DIC(""S"")=""I $P(^(0),U,2)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,72,3)=""
^DD(442,72,12)="Select appropriate DLA Routing Indicator Code."
^DD(442,72,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""R"""""""
^DD(442,72,21,0)="^^1^1^2910517^"
^DD(442,72,21,1,0)="This is the routing identifier code."
^DD(442,72,"DT")="2890503"
^DD(442,72.4,0)="ACTIVITY ADDRESS CODE^FX^^17;16^K:$L(X)>6!($L(X)<6) X I $D(X),'$O(^PRC(411,+^PRC(442,DA,0),5,""B"",X,0)) K X"
^DD(442,72.4,3)="Select the Activity Address Code from the Site Parameter File.  ANSWER MUST BE 6 CHARACTERS IN LENGTH."
^DD(442,72.4,4)="W !,""Select From: "",! F Z=0:0 S Z=$O(^PRC(411,+^PRC(442,DA,0),5,Z)) Q:'Z  W:$D(^(Z,0)) $P(^(0),U,1),!"
^DD(442,72.4,21,0)="^^2^2^2910517^"
^DD(442,72.4,21,1,0)="This is the six character Activity Address Code from the"
^DD(442,72.4,21,2,0)="Site Parameters File."
^DD(442,72.4,"DT")="2890425"
^DD(442,73,0)="DEPT.DESIGNATION (DEMAND CODE)^*P441.4'^PRCD(441.4,^17;4^S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,73,3)=""
^DD(442,73,12)="Enter Demand Code for Troop Issue or Dietetic Sale, or leave blank."
^DD(442,73,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""D"""""""
^DD(442,73,21,0)="^^1^1^2910517^"
^DD(442,73,21,1,0)="This is the Demand Code for Troop Issue or Dietetic Sale."
^DD(442,73,"DT")="2890425"
^DD(442,73.4,0)="SPECIAL CODE^F^^17;17^K:$L(X)>1!($L(X)<1)!'(X?1""Y"") X"
^DD(442,73.4,3)="Must be set to 'Y'."
^DD(442,73.4,21,0)="^^1^1^2910517^"
^DD(442,73.4,21,1,0)="This is the Special Code."
^DD(442,73.4,"DT")="2890425"
^DD(442,74,0)="SIGNAL CODE^F^^17;5^K:$L(X)>1!($L(X)<1)!'(""ABCDJKLM""[X) X"
^DD(442,74,3)="Enter A, B, C, D, J, K, L, or M (Enter ?? to see further explanation).  ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(442,74,21,0)="^^8^8^2910517^^"
^DD(442,74,21,1,0)="A = Ship to Requisitioner, Bill to Requisitioner"
^DD(442,74,21,2,0)="B = Ship to Requisitioner, Bill to Supplementary Address (cc 30-35)"
^DD(442,74,21,3,0)="C = Ship to Requisitioner, Bill to Address designated by Fund Code (cc 52-53)"
^DD(442,74,21,4,0)="D = Ship to Requisitioner, NO Billing Required"
^DD(442,74,21,5,0)="J = Ship to Supplementary Address, Bill to Requisitioner (cc 30-35)"
^DD(442,74,21,6,0)="K = Ship to Supplementary Address, Bill to Supplementary Address (cc 45-50)"
^DD(442,74,21,7,0)="L = Ship to Supplementary Address, Bill to address designated by Fund Code (cc 52-53)"
^DD(442,74,21,8,0)="M = Ship to Supplementary Address, NO Billing Required."
^DD(442,74,"DT")="2890424"
^DD(442,75,0)="FUND CODE^RF^^17;6^K:$L(X)>2!($L(X)<2) X"
^DD(442,75,3)="Facility Defined for DLA Codesheets (prints on DLA reports)  ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(442,75,21,0)="^^1^1^2910517^"
^DD(442,75,21,1,0)="This is the facility defined for DLA code sheets."
^DD(442,75,"DT")="2890428"
^DD(442,76,0)="DISTRIBUTION CODE (OPTIONAL)^F^^17;7^K:$L(X)>3!($L(X)<3) X"
^DD(442,76,3)="Optional field, user defined, can contain any 3 characters, may make DLA report more readable."
^DD(442,76,21,0)="^^2^2^2910517^"
^DD(442,76,21,1,0)="This is an optional, user defined, three character code"
^DD(442,76,21,2,0)="which is used to make the DLA report more readable."
^DD(442,76,"DT")="2871210"
^DD(442,77,0)="PROJECT CODE^F^^17;8^K:$L(X)>3!($L(X)<3) X"
^DD(442,77,3)="Must enter 110 for Dietetic Service or 060 for Canteen Service.  Otherwise, enter 3 digit Department no., or can be left blank."
^DD(442,77,21,0)="^^3^3^2910517^"
^DD(442,77,21,1,0)="This is the three digit department number, the 060 code"
^DD(442,77,21,2,0)="for canteen service, or the 110 code for dietetic service."
^DD(442,77,21,3,0)="This field may be left blank."
^DD(442,78,0)="PRIORITY CODE^R*P441.4'^PRCD(441.4,^17;9^S DIC(""S"")=""I $P(^(0),U,2)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,78,3)=""
^DD(442,78,12)="Enter Required Priority Code"
^DD(442,78,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""P"""""""
^DD(442,78,21,0)="^^1^1^2910517^"
^DD(442,78,21,1,0)="This is the priority code."
^DD(442,78,"DT")="2890425"
^DD(442,79,0)="ADVICE CODE^R*P441.4'^PRCD(441.4,^17;10^S DIC(""S"")=""I $P(^(0),U,2)=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,79,3)=""
^DD(442,79,4)=""
^DD(442,79,12)="Enter applicable advice code."
^DD(442,79,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""A"""""""
^DD(442,79,21,0)="^^1^1^2910517^"
^DD(442,79,21,1,0)="This is the advice code."
^DD(442,79,"DT")="2890425"
^DD(442,80,0)="MEDIA & STATUS CODE^R*P441.4'^PRCD(441.4,^17;11^S DIC(""S"")=""I $P(^(0),U,2)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,80,3)=""
^DD(442,80,12)="Select Media & Status Code"
^DD(442,80,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""M"""""""
^DD(442,80,21,0)="^^1^1^2910517^"
^DD(442,80,21,1,0)="This is the media & status code."
^DD(442,80,"DT")="2890425"
^DD(442,81,0)="*SUPPLEMENTARY ADDRESS^RF^^17;12^K:$L(X)>6!($L(X)<6)!'(X?6UN) X"
^DD(442,81,3)="Enter the 6 character supplementary address or the requisition number for GSA/DLA code sheets."
^DD(442,81,21,0)="^^2^2^2910517^"
^DD(442,81,21,1,0)="This is the six character supplementary address or"
^DD(442,81,21,2,0)="the requisition number for GSA/DLA code sheets."
^DD(442,81,"DT")="2880112"
^DD(442,82,0)="*SOURCE DEVIATION CODE^S^1:NOT AVAILABLE FROM MANDATORY SOURCE;2:OUT OF STOCK-GSA/DEPOT;3:EMERGENCY ORDER;4:CANNOT MEET MINIMUM QTY;5:QIR PENDING;6:SHARED PROCUREMENT;7:NONCONTRACT SOURCE,LOWER PRICE;^17;13^Q"
^DD(442,82,3)="Enter the appropriate code for LOG code sheets."
^DD(442,82,21,0)="^^3^3^2910517^"
^DD(442,82,21,1,0)="This is the source deviation code, used when another"
^DD(442,82,21,2,0)="vendor other than the designated item vendor is used"
^DD(442,82,21,3,0)="to procure an item."
^DD(442,82,"DT")="2880113"
^DD(442,83,0)="REASON CODE^RS^1:REGULAR;2:RESUBMISSION OF REJECTS;3:CALM BYPASS;^17;14^Q"
^DD(442,83,3)="Enter the appropriate code for LOG code sheets."
^DD(442,83,21,0)="^^1^1^2910517^"
^DD(442,83,21,1,0)="This is the reason code."
^DD(442,83,"DT")="2880113"
^DD(442,84,0)="*PAYABLE CODE^RS^A:REGULAR POSTED;B:IMPREST FUND;J:DONATED;^17;15^Q"
^DD(442,84,3)="Enter the appropriate code for LOG code sheets."
^DD(442,84,21,0)="^^1^1^2910517^"
^DD(442,84,21,1,0)="This is the payable code."
^DD(442,84,"DT")="2880113"
^DD(442,91,0)="TOTAL AMOUNT^RNJ10,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(442,91,3)=" (On P.O.=Total Amt.-Discounts+Ship/Handling  On 1358=Amt.not liquidated).  Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(442,91,5,1,0)="442.1^.01^1"
^DD(442,91,9)="^"
^DD(442,91,21,0)="^^1^1^2910517^"
^DD(442,91,21,1,0)="This is the total amount of the purchase order."
^DD(442,91,"DT")="2890921"
^DD(442,92,0)="NET AMOUNT^NJ10,2^^0;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(442,92,3)="(on P.O.=Total Amount-discounts-prompt payment+ship/handling.  1358's=Total Obligated Amount)  Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(442,92,21,0)="^^1^1^2910517^"
^DD(442,92,21,1,0)="This is the net amount of the purchase order."
^DD(442,92,"DT")="2890921"
^DD(442,93,0)="LIQUIDATED AMOUNT^NJ10,2^^0;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(442,93,3)="(On P.O.=Amount Received.  On 1358=Amount of Liquidation made against the 1358).  Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(442,93,21,0)="^^1^1^2910517^"
^DD(442,93,21,1,0)="This is the liquidated amount."
^DD(442,93,"DT")="2890921"
^DD(442,94,0)="ACTUAL 1358 BALANCE^NJ12,2^^8;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(442,94,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(442,94,21,0)="^^1^1^2930408^"
^DD(442,94,21,1,0)="This is the actual 1358 balance."
^DD(442,94,"DT")="2911023"
^DD(442,95,0)="FISCAL 1358 BALANCE^NJ12,2^^8;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(442,95,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(442,95,21,0)="^^1^1^2930408^"
^DD(442,95,21,1,0)="This is the fiscal 1358 balance."
^DD(442,95,"DT")="2911023"
^DD(442,96,0)="ESTIMATED 1358 BALANCE^NJ12,2^^8;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999.99)!(X<-999999999.99) X"
^DD(442,96,3)="Type a Dollar Amount between -999999999.99 and 999999999.99, 2 Decimal Digits"
^DD(442,96,21,0)="^^1^1^2930408^"
^DD(442,96,21,1,0)="This is the estimated 1358 balance."
^DD(442,96,"DT")="2911023"
^DD(442,96.5,0)="CONVERTED 1358^S^1:YES;0:NO;^8;5^Q"
^DD(442,96.5,21,0)="^^2^2^2920304^"
^DD(442,96.5,21,1,0)="This field flags all entries in file 442 which corresponds to a"
^DD(442,96.5,21,2,0)="new format entry in file 424."
^DD(442,96.5,"DT")="2920304"
^DD(442,96.6,0)="AUTH. AMOUNT REMAINING^NJ12,2^^8;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(442,96.6,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(442,96.6,21,0)="^^2^2^2911023^"
^DD(442,96.6,21,1,0)="This field contains the total amount of monies left on this obligation"
^DD(442,96.6,21,2,0)="for authorizations."
^DD(442,96.6,"DT")="2911023"
^DD(442,96.7,0)="BULLETIN SENT^S^1:SENT;0:CLEAR SENT;^8;6^Q"
^DD(442,96.7,21,0)="^^1^1^2941206^^^"
^DD(442,96.7,21,1,0)="It is a bulletin sent to an Inventory user."
^DD(442,96.7,"DT")="2940519"
^DD(442,97,0)="PROMPT PAY TYPE^RS^A:NORMAL;C:CONTRACT;D:DAIRY;E:EXEMPT;F:PROGRESS;M:MEAT;P:PRODUCE;V:PRIME VENDOR;X:MONEY MANAGEMENT EXEMPT - NORMAL;^12;15^Q"
^DD(442,97,21,0)="^^1^1^2941110^"
^DD(442,97,21,1,0)="It is a type for Prompt Payment Term."
^DD(442,97,"DT")="2961017"
^DD(442,101,0)="PAYABLE CODE^S^A:REGULAR POSTED;B:IMPREST FUNDS;J:DONATED;^18;2^Q"
^DD(442,101,3)="Enter the appropriate code for generating LOG code sheets"
^DD(442,101,21,0)="^^1^1^2910517^"
^DD(442,101,21,1,0)="This is the payable code."
^DD(442,101,"DT")="2890328"
^DD(442,102,0)="DOCUMENT IDENTIFIER/COMMON NO.^RF^^18;3^K:$L(X)>5!($L(X)<5) X"
^DD(442,102,3)="Enter the Document Identifier for LOG (Usually either the PAT number, or Requisition No., without the Fiscal Year.  ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(442,102,21,0)="^^1^1^2910517^"
^DD(442,102,21,1,0)="This is the document identifier/common number."
^DD(442,102,"DT")="2890509"
^DD(442,102.4,0)="REQUISITION NO.(SUPPLY)^RFX^^18;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'((X?3N1""-""3N1""-""2N)!(X?3N1""-""5UN)) X I $D(X) K:+X'=+^PRC(442,DA,0) X"
^DD(442,102.4,1,0)="^.1^^-1"
^DD(442,102.4,1,1,0)="442^K"
^DD(442,102.4,1,1,1)="S ^PRC(442,""K"",$E(X,1,30),DA)="""""
^DD(442,102.4,1,1,2)="K ^PRC(442,""K"",$E(X,1,30),DA)"
^DD(442,102.4,1,1,"%D",0)="^^2^2^2930628^"
^DD(442,102.4,1,1,"%D",1,0)="This X-REF is a lookup of all REQUISITION NO.(SUPPLY) entries within"
^DD(442,102.4,1,1,"%D",2,0)="the PROCUREMENT & ACCOUNTING TRANSACTION file (this file)."
^DD(442,102.4,3)="Enter Station Number, dash, sequential Requisition Number, dash, then Fiscal Year.  (EX. 662-123-89) or Modified PAT # i.e.(688-A123B)"
^DD(442,102.4,21,0)="^^2^2^2920828^^"
^DD(442,102.4,21,1,0)="This is the station number, dash, sequential Requisition Number,"
^DD(442,102.4,21,2,0)="dash, Fiscal Year, as in 661-123-90."
^DD(442,102.4,"DT")="2911112"
^DD(442,102.5,0)="ISSUE VOUCHER NO.(SUPPLY)^FX^^18;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1UN1""-""4N) X I $D(X),""0123456789JK""'[$P(X,""-"",1) K X"
^DD(442,102.5,1,0)="^.1"
^DD(442,102.5,1,1,0)="442^AD^MUMPS"
^DD(442,102.5,1,1,1)="S Z=$F(""0123456789JK"",+X) S:Z Z=""P""_$E(""ABCDEFGHJKLM"",(Z-1),(Z-1))_$P(X,""-"",2),$P(^PRC(442,DA,18),""^"",9)=Z,^PRC(442,""J"",Z,DA)="""" K Z"
^DD(442,102.5,1,1,2)="Q"
^DD(442,102.5,1,1,"%D",0)="^^3^3^2930628^"
^DD(442,102.5,1,1,"%D",1,0)="This X-REF converts the ISSUE VOUCHER NO.(SUPPLY) value into the ISSUE"
^DD(442,102.5,1,1,"%D",2,0)="VOUCHER NO.(FISCAL), enters the converted value into the ISSUE VOUCHER"
^DD(442,102.5,1,1,"%D",3,0)="NO.(FISCAL) field and sets the ""J"" X-REF for that field."
^DD(442,102.5,1,2,0)="442^I"
^DD(442,102.5,1,2,1)="S ^PRC(442,""I"",$E(X,1,30),DA)="""""
^DD(442,102.5,1,2,2)="K ^PRC(442,""I"",$E(X,1,30),DA)"
^DD(442,102.5,1,2,"%D",0)="^^1^1^2930628^"
^DD(442,102.5,1,2,"%D",1,0)="This X-REF is just a lookup for the ISSUE VOUCHER NO.(SUPPLY) field."
^DD(442,102.5,3)="Enter Issues Voucher Number in Supply Format (i.e., Month (1-9, 0=Oct.,J=Nov.,K=Dec.), dash, sequential number.  ex. 3-0001).  ANSWER MUST BE 6 CHARACTERS IN LENGTH"
^DD(442,102.5,21,0)="^^1^1^2910517^"
^DD(442,102.5,21,1,0)="This is the issue voucher number for supply."
^DD(442,102.5,"DT")="2890414"
^DD(442,102.6,0)="ISSUE VOUCHER NO.(FISCAL)^FX^^18;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?1""P""1U4N) X I $D(X),""ABCDEFGHJKLM""'[$E(X,2,2) K X"
^DD(442,102.6,1,0)="^.1"
^DD(442,102.6,1,1,0)="442^J"
^DD(442,102.6,1,1,1)="S ^PRC(442,""J"",$E(X,1,30),DA)="""""
^DD(442,102.6,1,1,2)="K ^PRC(442,""J"",$E(X,1,30),DA)"
^DD(442,102.6,1,1,"%D",0)="^^1^1^2930628^"
^DD(442,102.6,1,1,"%D",1,0)="This X-REF is just a lookup for the ISSUE VOUCHER NO.(FISCAL) field."
^DD(442,102.6,3)="Enter Issues Voucher No.in Fiscal Format.  (Letter 'P', followed by letter for month A through M = Oct. through Sep. (note: skips 'I'), followed by 4 digit sequential number."
^DD(442,102.6,21,0)="^^1^1^2920318^^"
^DD(442,102.6,21,1,0)="This is the Fiscal Issue Voucher Number (#)."
^DD(442,102.6,"DT")="2890414"
^DD(442,103,0)="LOG BATCH NO.(ACQUISITIONS)^F^^18;4^K:$L(X)>11!($L(X)<9) X"
^DD(442,103,3)="Station No., dash (-), P.O.No.  Same as .01 field.  Created automatically when LOG acquisitions code sheets are created.  ANSWER MUST BE 9-11 CHARACTERS IN LENGTH"
^DD(442,103,21,0)="^^3^3^2920318^^"
^DD(442,103,21,1,0)="This is the Station Number, dash (-), and Purchase Order Number"
^DD(442,103,21,2,0)="(e.g., 688-A61234) which is generated automatically when LOG"
^DD(442,103,21,3,0)="acquisitions code sheets are created."
^DD(442,103,"DT")="2890404"
^DD(442,103.5,0)="LOG ACQ.CODE SHEETS DONE?^S^Y:YES;N:NO;^18;11^Q"
^DD(442,103.5,1,0)="^.1"
^DD(442,103.5,1,1,0)="442^AE^MUMPS"
^DD(442,103.5,1,1,1)="K:X'=""N"" ^PRC(442,""AE"",""N"",DA) I X=""N"" S ^PRC(442,""AE"",""N"",DA)="""""
^DD(442,103.5,1,1,2)="K ^PRC(442,""AE"",""N"",DA)"
^DD(442,103.5,1,1,"%D",0)="^^3^3^2930628^"
^DD(442,103.5,1,1,"%D",1,0)="This X-REF will be set when an order is signed off.  This X-REF will"
^DD(442,103.5,1,1,"%D",2,0)="indicate that the LOG code sheets need to be created for this signed"
^DD(442,103.5,1,1,"%D",3,0)="off order."
^DD(442,103.5,3)="Created automatically when Orders for Posted Stock, or from Government Sources are signed by Purchasing/PPM Agent."
^DD(442,103.5,21,0)="^^4^4^2920320^^"
^DD(442,103.5,21,1,0)="This code indicates whether the LOG Aquisition Code Sheets"
^DD(442,103.5,21,2,0)="are completed.  It is automatically generated when Orders for"
^DD(442,103.5,21,3,0)="Posted Stock or from Government Sources are signed by the"
^DD(442,103.5,21,4,0)="Purchasing/PPM Agent."
^DD(442,103.5,"DT")="2890530"
^DD(442,104,0)="LOG CODE SHEETS SENT BY^*P200'^VA(200,^18;5^S DIC(""S"")=""I $D(^(400)),""""24""""[($P(^(400),U,1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442,104,3)="Name of PPM clerk who created and signed the LOG Acquisitions code sheets."
^DD(442,104,12)="Only PPM Clerks or Manager can create LOG code sheets."
^DD(442,104,12.1)="S DIC(""S"")=""I $D(^(400)),""""24""""[($P(^(400),U,1))"""
^DD(442,104,21,0)="^^2^2^2920318^"
^DD(442,104,21,1,0)="This is the PPM Clerk who created and signed the LOG Acquisitions"
^DD(442,104,21,2,0)="code sheets."
^DD(442,104,"DT")="2921218"
^DD(442,105,0)="LOG CODE SH. VALIDATION CODE^FOI^^18;6^K:$L(X)>30!($L(X)<2) X"
^DD(442,105,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES8(D0)"
^DD(442,105,2.1)="S Y=""/ES/""_$$DECODE^PRCHES8(D0)"
^DD(442,105,3)="Electronic Signature of PPM Clerk who created and signed the LOG Acquisitions Code sheets.  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH."
^DD(442,105,21,0)="^^2^2^2921117^^"
^DD(442,105,21,1,0)="This is the Electronic Signature of the PPM Clerk who created and signed"
^DD(442,105,21,2,0)=" the LOG Acquisitions code sheets."
^DD(442,105,"DT")="2930125"
^DD(442,105.5,0)="LOG CS VALIDATION VERSION^NJ2,0^^18;15^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442,105.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442,105.5,21,0)="^^2^2^2930408^"
^DD(442,105.5,21,1,0)=" "
^DD(442,105.5,21,2,0)="The version of the validation."
^DD(442,105.5,"DT")="2921218"
^DD(442,105.7,0)="LOG CS ESIG CODE^F^^18;16^K:$L(X)>10!($L(X)<2) X"
^DD(442,105.7,3)="Answer must be 2-10 characters in length."
^DD(442,105.7,21,0)="^^2^2^2930408^"
^DD(442,105.7,21,1,0)=" "
^DD(442,105.7,21,2,0)="The LOG code sheet Signature Block name."
^DD(442,105.7,"DT")="2930412"
^DD(442,106,0)="DATE SIGNED^D^^18;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(442,106,3)="Date/time LOG Acquisitions Code sheets were signed by PPM Clerk (thus marking them for transmission)."
^DD(442,106,21,0)="^^2^2^2910517^^"
^DD(442,106,21,1,0)="This is the date/time LOG Acquisitions Code sheets were"
^DD(442,106,21,2,0)="signed by PPM clerk."
^DD(442,106,"DT")="2921116"
^DD(442,106.4,0)="SUPPLY FUND ORDER OBLIGATED?^S^1:YES;^18;12^Q"
^DD(442,106.4,3)="Set automatically when PPM processes Supply Fund Orders to update the Control Point Balance (and optionally create Due-In code sheets for LOG)."
^DD(442,106.4,21,0)="^^2^2^2910517^"
^DD(442,106.4,21,1,0)="This field is automatically set when PPM processes Supply Fund "
^DD(442,106.4,21,2,0)="Orders to update the Control Point Balance."
^DD(442,106.4,"DT")="2890719"
^DD(442,107,0)="RELEASING FACILITY NUMBER^F^^18;1^K:$L(X)>3!($L(X)<3) X"
^DD(442,107,3)="Enter only if another facility is involved.  Must be filled in for source code 1 (DEPOT).  ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(442,107,4)="W !,""DEPOT NUMBERS: """
^DD(442,107,21,0)="^^2^2^2910517^"
^DD(442,107,21,1,0)="This field is entered only if another facility is"
^DD(442,107,21,2,0)="involved.  Enter the 3 digit facility number."
^DD(442,107,"DT")="2890505"
^DD(442,108,0)="CASCA PROJECT NO.^F^^18;13^K:$L(X)>12!($L(X)<3) X"
^DD(442,108,3)="Answer must be 3-12 characters in length."
^DD(442,108,21,0)="^^2^2^2930408^"
^DD(442,108,21,1,0)=" "
^DD(442,108,21,2,0)="The number of the CASCA Project."
^DD(442,108,"DT")="2910805"
^DD(442,109,0)="CASCA TRANS TYPE^F^^18;14^K:$L(X)>6!($L(X)<1) X"
^DD(442,109,3)="Answer must be 1-6 characters in length."
^DD(442,109,21,0)="^^2^2^2930408^"
^DD(442,109,21,1,0)=" "
^DD(442,109,21,2,0)="The type of CASCA Transaction."
^DD(442,109,"DT")="2910805"
^DD(442,110,0)="ISMS ORDER NO.^442.17I^^20;0"
^DD(442,110,21,0)="^^2^2^2930408^"
^DD(442,110,21,1,0)=" "
^DD(442,110,21,2,0)="The number of the ISMS order."
^DD(442,111,0)="ISMS BATCH NO.^F^^21;1^K:$L(X)>11!($L(X)<9) X"
^DD(442,111,3)="Answer must be 9-11 characters in length."
^DD(442,111,21,0)="^^2^2^2930408^"
^DD(442,111,21,1,0)=" "
^DD(442,111,21,2,0)="The batch number for the ISMS order."
^DD(442,111,"DT")="2920109"
^DD(442,112,0)="ISMS CODE SHEETS DONE?^S^Y:YES;N:NO;^21;2^Q"
^DD(442,112,21,0)="^^2^2^2930408^"
^DD(442,112,21,1,0)=" "
^DD(442,112,21,2,0)="Is the ISMS code sheet done question."
^DD(442,112,"DT")="2920109"
^DD(442,113,0)="ISMS CODE SHEETS SENT BY^P200'^VA(200,^21;3^Q"
^DD(442,113,21,0)="^^2^2^2930408^"
^DD(442,113,21,1,0)=" "
^DD(442,113,21,2,0)="The user number of the person who sent the ISMS code sheet."
^DD(442,113,"DT")="2920109"
^DD(442,114,0)="ISMS CODE SH. VALIDATION CODE^FOI^^21;4^K:$L(X)>30!($L(X)<2) X"
^DD(442,114,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES9(D0)"
^DD(442,114,2.1)="S Y=""/ES/""_$$DECODE^PRCHES9(D0)"
^DD(442,114,3)="Answer must be 2-30 characters in length."
^DD(442,114,21,0)="^^2^2^2930408^"
^DD(442,114,21,1,0)=" "
^DD(442,114,21,2,0)="The code that validates the ISMS code sheet."
^DD(442,114,"DT")="2930125"
^DD(442,114.5,0)="ISMS VALIDATION VERSION^NJ2,0^^21;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442,114.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442,114.5,21,0)="^^2^2^2930408^"
^DD(442,114.5,21,1,0)=" "
^DD(442,114.5,21,2,0)="The version of the validation code."
^DD(442,114.5,"DT")="2921218"
^DD(442,114.7,0)="ISMS ESIG CODE^F^^21;7^K:$L(X)>10!($L(X)<2) X"
^DD(442,114.7,3)="Answer must be 2-10 characters in length."
^DD(442,114.7,21,0)="^^2^2^2930408^"
^DD(442,114.7,21,1,0)=" "
^DD(442,114.7,21,2,0)="The signature block name of the ISMS code sheet."
^DD(442,114.7,"DT")="2930412"
^DD(442,115,0)="ISMS DATE SIGNED^D^^21;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(442,115,21,0)="^^2^2^2930408^^"
^DD(442,115,21,1,0)=" "
^DD(442,115,21,2,0)="The date the ISMS code sheet was signed."
^DD(442,115,"DT")="2921116"
^DD(442,116,0)="DO YOU WANT TO SEND THIS EDI?^S^y:YES;n:NO;^12;16^Q"
^DD(442,116,3)="If you don't want this order transmitted, enter 'NO'"
^DD(442,116,21,0)="^^3^3^2970821^^"
^DD(442,116,21,1,0)="This field enables the user to prevent an EDI Order being generated, as"
^DD(442,116,21,2,0)="would be appropriate if the order has already been verbally placed with an"
^DD(442,116,21,3,0)="EDI vendor."
^DD(442,116,"DT")="2970811"
^DD(442,117,0)="REASON NOT COMPETED^P420.51'^PRCD(420.51,^25;1^Q"
^DD(442,117,3)=""
^DD(442,117,21,0)="^^1^1^3050809^"
^DD(442,117,21,1,0)="This is the reason why the order was not competed."
^DD(442,117,"DT")="3050809"
^DD(442,118,0)="NUMBER OF OFFERS^NJ3,0^^25;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442,118,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(442,118,21,0)="^.001^1^1^3050106^^"
^DD(442,118,21,1,0)="This is the number of vendors submitting a bid."
^DD(442,118,"DT")="3050106"
^DD(442,119,0)="PRE AWARD SYNOPSIS^S^Y:ORDER SUBMITTED TO FED. BUS. OPS.;N:ORDER NOT SUBMITTED TO FED. BUS. OPS.;^25;3^Q"
^DD(442,119,3)=""
^DD(442,119,21,0)="^.001^1^1^3050106^^^^"
^DD(442,119,21,1,0)="This relates to the Federal Business Opportunities program."
^DD(442,119,"DT")="3050106"
^DD(442,120,0)="ALTERNATIVE ADVERTISING^S^Y:ALTERNATIVE ADVERTISING USED;N:NO ATERNATIVE ADVERTISING USED;^25;4^Q"
^DD(442,120,3)="Answer whether or not advertising methods were used."
^DD(442,120,21,0)="^.001^3^3^3050106^^^^"
^DD(442,120,21,1,0)="Enter YES if the contracting officer used methods in addition to"
^DD(442,120,21,2,0)="or in place of those required by FAR 5.201 (FED BIZ OPS) to"
^DD(442,120,21,3,0)="advertise the requirement. Otherwise, enter NO."
^DD(442,120,"DT")="3050106"
^DD(442,121,0)="SOLICITATION PROCEDURE^P420.52'^PRCD(420.52,^25;5^Q"
^DD(442,121,3)=""
^DD(442,121,21,0)="^.001^1^1^3050110^^^^"
^DD(442,121,21,1,0)="Solicitation procedures to be used for under and over $25K orders."
^DD(442,121,"DT")="3050110"
^DD(442,122,0)="EVALUATED PREFERENCE^P420.54'^PRCD(420.54,^25;6^Q"
^DD(442,122,3)=""
^DD(442,122,21,0)="^^1^1^3050211^"
^DD(442,122,21,1,0)="This is the short name for the evaluated preference."
^DD(442,122,"DT")="3050106"
^DD(442,123,0)="FUNDING AGENCY CODE^F^^25;7^K:$L(X)>4!($L(X)<4) X"
^DD(442,123,3)="Enter a 4-character code from FIPS Publication 95, if applicable."
^DD(442,123,21,0)="^^2^2^3050106^"
^DD(442,123,21,1,0)="A 4-character code from FIPS Pub. 95 to indicate the funding agency."
^DD(442,123,21,2,0)="Leave blank if funding was not provided by another agency."
^DD(442,123,"DT")="3050106"
^DD(442,124,0)="FUNDING AGENCY OFFICE CODE^F^^25;8^K:$L(X)>6!($L(X)<6) X"
^DD(442,124,3)="Enter a 6-character code from FIPS Publication 95, if applicable."
^DD(442,124,21,0)="^^2^2^3050106^"
^DD(442,124,21,1,0)="Agency that provided funding for the transaction, if different from"
^DD(442,124,21,2,0)="VHA; otherwise leave blank."
^DD(442,124,"DT")="3050518"
^DD(442,125,0)="MULTIYEAR^S^Y:YES;N:NO;^25;9^Q"
^DD(442,125,3)="Enter Y or N only."
^DD(442,125,21,0)="^.001^1^1^3050110^^^"
^DD(442,125,21,1,0)="Enter Y for a multiyear contract, otherwise enter N."
^DD(442,125,"DT")="3050110"
^DD(442,126,0)="EPA DESIGNATED PRODUCT^P420.55'^PRCD(420.55,^25;10^Q"
^DD(442,126,3)=""
^DD(442,126,21,0)="^^1^1^3050211^"
^DD(442,126,21,1,0)="This is the short name used to indicate EPA Designated Products."
^DD(442,126,"DT")="3050106"
^DD(442,127,0)="CONTRACT BUNDLING^S^A:BUNDLING WAS MISSION CRITICAL;B:BUNDLING BASED ON A-76;C:REQS. BUNDLED BY OTHER REASONS;D:NOT BUNDLED;^25;11^Q"
^DD(442,127,3)="Select a type of bundling."
^DD(442,127,21,0)="^^1^1^3050211^"
^DD(442,127,21,1,0)="This indicates the type bundling used for the procurement action."
^DD(442,127,"DT")="3050127"
^DD(442,128,0)="EXTENT COMPETED^P420.53'^PRCD(420.53,^25;12^Q"
^DD(442,128,3)=""
^DD(442,128,21,0)="^.001^1^1^3050106^^"
^DD(442,128,21,1,0)="This is the description of the acquisition method, if any."
^DD(442,128,"DT")="3050106"
^DD(442,129,0)="PERF. BASED SERVICE CONTRACT^S^NA:THIS IS NOT A SERVICE CONTRACT;Y:FOR THIS CONTRACT 50% OR MORE IS PERF. BASED;N:FOR THIS CONTRACT 50% OR LESS IS PERF. BASED;^25;13^Q"
^DD(442,129,3)="Select an applicable code."
^DD(442,129,"DT")="3050106"
^DD(442,130,0)="CLINGER COHEN^S^Y:YES;N:NO;^25;14^Q"
^DD(442,130,3)="Enter Y or N only."
^DD(442,130,21,0)="^^1^1^3050106^"
^DD(442,130,21,1,0)="Available only when the funding agency is the Dept. of Defense."
^DD(442,130,"DT")="3050106"
^DD(442,131,0)="PLACE OF PERF. THIS STATION?^S^Y:YES;N:NO;^25;15^Q"
^DD(442,131,3)="Answer Yes or No if this station is the place of performance for this acquisition."
^DD(442,131,21,0)="^^2^2^3050214^"
^DD(442,131,21,1,0)="This field allows he user to indicate whether or not the station is the "
^DD(442,131,21,2,0)="place where an acquisition has been performed."
^DD(442,131,"DT")="3050131"
^DD(442,132,0)="PLACE OF PERFORMANCE^F^^25;16^K:$L(X)>7!($L(X)<2) X"
^DD(442,132,3)="Answer must be 2-7 characters in length."
^DD(442,132,21,0)="^.001^4^4^3050214^^^"
^DD(442,132,21,1,0)="This field will not be filled in by the user. It will be populated based "
^DD(442,132,21,2,0)="on the answer to field #131 (Place of perf. this station?): if 'Yes', use "
^DD(442,132,21,3,0)="the station's state and zip code. If 'No', use the vendor's ordering state"
^DD(442,132,21,4,0)="and the zip code, for example: MD20910."
^DD(442,132,"DT")="3050131"
^DD(442,133,0)="SEND TO FPDS?^S^1:YES;0:NO;^25;17^Q"
^DD(442,133,3)="This field is not edited directly by the user."
^DD(442,133,9)="^"
^DD(442,133,21,0)="^.001^8^8^3050214^^"
^DD(442,133,21,1,0)="This field will be triggered by the population of one of the following "
^DD(442,133,21,2,0)="fields: TOTAL AMOUNT or CONTRACT/BOA #. If the total amount of the "
^DD(442,133,21,3,0)="is over $2500.00, or if the PO is against a contract, then the field "
^DD(442,133,21,4,0)="will be populated without direct user intervention."
^DD(442,133,21,5,0)=" "
^DD(442,133,21,6,0)="The value stored in this field will be used to determine if an order "
^DD(442,133,21,7,0)="is to be sent to the Austin Automation Center after it has been "
^DD(442,133,21,8,0)="created or amended."
^DD(442,133,"DT")="3050208"
^DD(442,500.01,0)="BILL #^RF^^AR;1^K:$L(X)>30!($L(X)<3) X"
^DD(442,500.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(442,500.01,20,0)="^.3LA^1^1"
^DD(442,500.01,20,1,0)="AR"
^DD(442,500.01,21,0)="^^1^1^2910517^"
^DD(442,500.01,21,1,0)="This is the bill number."
^DD(442,500.01,"DT")="2870513"
^DD(442,501,0)="CERTIFIED P.O.^S^Y:YES;N:NO;^1;20^Q"
^DD(442,501,3)="Enter YES if this is a Certified IFCAP Purchase Order"
^DD(442,501,21,0)="^^2^2^2940414^^^"
^DD(442,501,21,1,0)="If the IFCAP Common Numbering System for this purchase order"
^DD(442,501,21,2,0)="is a Certified entry answer YES."
^DD(442,501,"DT")="2920909"
^DD(442,"B","*PAYABLE CODE",84)=""
^DD(442,"B","*SOURCE DEVIATION CODE",82)=""
^DD(442,"B","*SUPPLEMENTARY ADDRESS",81)=""
^DD(442,"B","2237 REFERENCE NUMBER",.05)=""
^DD(442,"B","ACTIVITY ADDRESS CODE",72.4)=""
^DD(442,"B","ACTUAL 1358 BALANCE",94)=""
^DD(442,"B","ADMINISTRATIVE CERTIFICATIONS",24)=""
^DD(442,"B","ADVICE CODE",79)=""
^DD(442,"B","AGENT ASSIGNED P.O.",19)=""
^DD(442,"B","ALTERNATIVE ADVERTISING",120)=""
^DD(442,"B","AMENDMENT",50)=""
^DD(442,"B","AMOUNT",35)=""
^DD(442,"B","APPROPRIATION",1.4)=""
^DD(442,"B","APPROVE RECONCILIATION USER",57)=""
^DD(442,"B","ASTR. FOR SOURCE CODE",8.1)=""
^DD(442,"B","AUTH. AMOUNT REMAINING",96.6)=""
^DD(442,"B","AUTO ACCRUE",30)=""
^DD(442,"B","BBFY",26)=""
^DD(442,"B","BILL #",500.01)=""
^DD(442,"B","BOC",41)=""
^DD(442,"B","BULLETIN SENT",96.7)=""
^DD(442,"B","CASCA PROJECT NO.",108)=""
^DD(442,"B","CASCA TRANS TYPE",109)=""
^DD(442,"B","CERTIFIED P.O.",501)=""
^DD(442,"B","CLASSIFICATION OF REQUEST",52)=""
^DD(442,"B","CLINGER COHEN",130)=""
^DD(442,"B","COMMENTS",20)=""
^DD(442,"B","CONFIRMATION COPY (Y/N)",6.2)=""
^DD(442,"B","CONTRACT BUNDLING",127)=""
^DD(442,"B","CONVERTED 1358",96.5)=""
^DD(442,"B","COST CENTER",2)=""
^DD(442,"B","DATE P.O. ASSIGNED",19.2)=""
^DD(442,"B","DATE RECONCILED",58)=""
^DD(442,"B","DATE SIGNED",106)=""
^DD(442,"B","DEBTOR",5.1)=""
^DD(442,"B","DELIVERY DATE",7)=""
^DD(442,"B","DELIVERY LOCATION",5.6)=""
^DD(442,"B","DELIVERY LOCATIONS/DATES",5.7)=""
^DD(442,"B","DELIVERY ORDER",47)=""
^DD(442,"B","DEPARTMENT NUMBER",70)=""
^DD(442,"B","DEPOT VOUCHER NO.",.09)=""
^DD(442,"B","DEPT.DESIGNATION (DEMAND CODE)",73)=""
^DD(442,"B","DIRECT DELIVERY PATIENT",5.3)=""
^DD(442,"B","DISCOUNT",14)=""
^DD(442,"B","DISPUTED",44)=""
^DD(442,"B","DISTRIBUTION CODE (OPTIONAL)",76)=""
^DD(442,"B","DO YOU WANT TO SEND THIS EDI?",116)=""
^DD(442,"B","DOCUMENT IDENTIFIER CODE",71)=""
^DD(442,"B","DOCUMENT IDENTIFIER/COMMON NO.",102)=""
^DD(442,"B","EDI MESSAGE NO.",18.5)=""
^DD(442,"B","EMERGENCY ORDER?",.2)=""
^DD(442,"B","END DATE FOR SERVICE ORDER",29)=""
^DD(442,"B","EPA DESIGNATED PRODUCT",126)=""
^DD(442,"B","ESIG CODE",16.8)=""
^DD(442,"B","EST. SHIPPING AND/OR HANDLING",13)=""
^DD(442,"B","EST. SHIPPING BOC",13.05)=""
^DD(442,"B","EST. SHIPPING LINE ITEM NO.",13.1)=""
^DD(442,"B","ESTIMATED 1358 BALANCE",96)=""
^DD(442,"B","ESTIMATED COST",7.2)=""
^DD(442,"B","ESTIMATED ORDER?",.08)=""
^DD(442,"B","EVALUATED PREFERENCE",122)=""
^DD(442,"B","EXPENDABLE/NONEXPENDABLE",.3)=""
^DD(442,"B","EXTENT COMPETED",128)=""
^DD(442,"B","F.O.B. POINT",6.4)=""
^DD(442,"B","FCP",1)=""
^DD(442,"B","FISCAL 1358 BALANCE",95)=""
^DD(442,"B","FISCAL STATUS ORDER",.8)=""
^DD(442,"B","FREE TEXT VENDOR",64)=""
^DD(442,"B","FUND CODE",75)=""
^DD(442,"B","FUNDING AGENCY CODE",123)=""
^DD(442,"B","FUNDING AGENCY OFFICE CODE",124)=""
^DD(442,"B","Fund Control Point",1)="1"
^DD(442,"B","GBL P.O.NUMBER",13.4)=""
^DD(442,"B","GOV'T B/L NO.",13.2)=""
^DD(442,"B","INTERFACE PACKAGE PREFIX",65)=""
^DD(442,"B","INVOICE ADDRESS",.04)=""
^DD(442,"B","ISMS BATCH NO.",111)=""
^DD(442,"B","ISMS CODE SH. VALIDATION CODE",114)=""
^DD(442,"B","ISMS CODE SHEETS DONE?",112)=""
^DD(442,"B","ISMS CODE SHEETS SENT BY",113)=""
^DD(442,"B","ISMS DATE SIGNED",115)=""
^DD(442,"B","ISMS ESIG CODE",114.7)=""
^DD(442,"B","ISMS ORDER NO.",110)=""
^DD(442,"B","ISMS VALIDATION VERSION",114.5)=""
^DD(442,"B","ISSUE VOUCHER NO.(FISCAL)",102.6)=""
^DD(442,"B","ISSUE VOUCHER NO.(SUPPLY)",102.5)=""
^DD(442,"B","ITEM",40)=""
^DD(442,"B","LAST DIGIT OF FISCAL YEAR",23)=""
^DD(442,"B","LINE ITEM COUNT",15)=""
^DD(442,"B","LIQUIDATED AMOUNT",93)=""
^DD(442,"B","LOCAL PROCUREMENT REASON CODE",.25)=""
^DD(442,"B","LOG ACQ.CODE SHEETS DONE?",103.5)=""
^DD(442,"B","LOG BATCH NO.(ACQUISITIONS)",103)=""
^DD(442,"B","LOG CODE SH. VALIDATION CODE",105)=""
^DD(442,"B","LOG CODE SHEETS SENT BY",104)=""
^DD(442,"B","LOG CS ESIG CODE",105.7)=""
^DD(442,"B","LOG CS VALIDATION VERSION",105.5)=""
^DD(442,"B","MEDIA & STATUS CODE",80)=""
^DD(442,"B","METHOD OF PROCESSING",.02)=""
^DD(442,"B","MONTH",21)=""
^DD(442,"B","MULTIYEAR",125)=""
^DD(442,"B","NEED SPECIAL HANDLING?",18.6)=""
^DD(442,"B","NET AMOUNT",92)=""
^DD(442,"B","NEW PO RECORD",28)=""
^DD(442,"B","NUMBER OF OFFERS",118)=""
^DD(442,"B","OBLIGATION DATA",2.4)=""
^DD(442,"B","OLD PO RECORD",27)=""
^DD(442,"B","ORIGINAL DELIVERY DATE",6.9)=""
^DD(442,"B","P.O. DATE",.1)=""
^DD(442,"B","PA/PPM/AUTHORIZED BUYER",16)=""
^DD(442,"B","PARTIAL",.6)=""
^DD(442,"B","PAYABLE CODE",101)=""
^DD(442,"B","PCDO 2237",62)=""
^DD(442,"B","PCDO VENDOR",53)=""
^DD(442,"B","PERF. BASED SERVICE CONTRACT",129)=""
^DD(442,"B","PLACE OF PERF. THIS STATION?",131)=""
^DD(442,"B","PLACE OF PERFORMANCE",132)=""
^DD(442,"B","PO",.01)="1"
^DD(442,"B","PO PRINTED TIME",18)=""
^DD(442,"B","PRE AWARD SYNOPSIS",119)=""
^DD(442,"B","PRIMARY 2237",.07)=""
^DD(442,"B","PRIORITY CODE",78)=""
^DD(442,"B","PRIORITY OF 2237",.06)=""
^DD(442,"B","PROCESSING REQUIRED IN FISCAL",63)=""
^DD(442,"B","PROJECT CODE",77)=""
^DD(442,"B","PROMPT PAY TYPE",97)=""
^DD(442,"B","PROMPT PAYMENT TERMS",9.2)=""
^DD(442,"B","PROPOSAL",8.2)=""
^DD(442,"B","PURCHASE CARD EXT. NO.",55)=""
^DD(442,"B","PURCHASE CARD HOLDER",61)=""
^DD(442,"B","PURCHASE CARD NUMBER",46)=""
^DD(442,"B","PURCHASE CARD USER",56)=""
^DD(442,"B","PURCHASE COST",60)=""
^DD(442,"B","PURCHASE METHOD",8.3)=""
^DD(442,"B","PURCHASE ORDER NUMBER",.01)=""
^DD(442,"B","QUARTER",22)=""
^DD(442,"B","REASON CODE",83)=""
^DD(442,"B","REASON NOT COMPETED",117)=""
^DD(442,"B","RECEIVING REQUIRED?",54)=""
^DD(442,"B","RELEASING FACILITY NUMBER",107)=""
^DD(442,"B","REMARKS",25)=""
^DD(442,"B","REQUESTING SERVICE",5.2)=""
^DD(442,"B","REQUISITION NO.(SUPPLY)",102.4)=""
^DD(442,"B","RFQ NBR",42)=""
^DD(442,"B","ROUTING INDENTIFIER CODE",72)=""
^DD(442,"B","Record Processing in Fiscal",63)="1"
^DD(442,"B","SEND TO FPDS?",133)=""
^DD(442,"B","SHIP TO",5.4)=""
^DD(442,"B","SHIP VIA",13.3)=""
^DD(442,"B","SIGNAL CODE",74)=""
^DD(442,"B","SOLICITATION PROCEDURE",121)=""
^DD(442,"B","SORT GROUP",51)=""
^DD(442,"B","SOURCE CODE",8)=""
^DD(442,"B","SPECIAL CODE",73.4)=""
^DD(442,"B","SPECIAL FUND CONTROL POINT",.03)=""
^DD(442,"B","SUBACCOUNT1",3)=""
^DD(442,"B","SUBACCOUNT2",4)=""
^DD(442,"B","SUBAMOUNT1",3.4)=""
^DD(442,"B","SUBAMOUNT2",4.4)=""
^DD(442,"B","SUBSTATION",31)=""
^DD(442,"B","SUPPLY FUND ORDER OBLIGATED?",106.4)=""
^DD(442,"B","SUPPLY STATUS",.5)=""
^DD(442,"B","SUPPLY STATUS ORDER",.7)=""
^DD(442,"B","TOTAL AMOUNT",91)=""
^DD(442,"B","TYPE OF ORDER",48)=""
^DD(442,"B","TYPE OF SPECIAL HANDLING",18.7)=""
^DD(442,"B","VALIDATION CODE",16.5)=""
^DD(442,"B","VALIDATION DATE/TIME",17)=""
^DD(442,"B","VALIDATION VERSION",16.7)=""
^DD(442,"B","VENDOR",5)=""
^DD(442,"B","VERBAL PURCHASE ORDER (Y/N)",6)=""
^DD(442,"GL",0,1,.01)=""
^DD(442,"GL",0,2,.02)=""
^DD(442,"GL",0,3,1)=""
^DD(442,"GL",0,4,1.4)=""
^DD(442,"GL",0,5,2)=""
^DD(442,"GL",0,6,3)=""
^DD(442,"GL",0,7,3.4)=""
^DD(442,"GL",0,8,4)=""
^DD(442,"GL",0,9,4.4)=""
^DD(442,"GL",0,10,7)=""
^DD(442,"GL",0,11,7.2)=""
^DD(442,"GL",0,12,.07)=""
^DD(442,"GL",0,13,13)=""
^DD(442,"GL",0,14,15)=""
^DD(442,"GL",0,15,91)=""
^DD(442,"GL",0,16,92)=""
^DD(442,"GL",0,17,93)=""
^DD(442,"GL",0,18,13.1)=""
^DD(442,"GL",0,19,.03)=""
^DD(442,"GL",0,20,6.9)=""
^DD(442,"GL",1,1,5)=""
^DD(442,"GL",1,2,5.2)=""
^DD(442,"GL",1,3,5.4)=""
^DD(442,"GL",1,4,6)=""
^DD(442,"GL",1,5,6.2)=""
^DD(442,"GL",1,6,6.4)=""
^DD(442,"GL",1,7,8)=""
^DD(442,"GL",1,8,8.2)=""
^DD(442,"GL",1,9,.06)=""
^DD(442,"GL",1,10,16)=""
^DD(442,"GL",1,11,5.6)=""
^DD(442,"GL",1,12,5.3)=""
^DD(442,"GL",1,13,.09)=""
^DD(442,"GL",1,14,8.1)=""
^DD(442,"GL",1,15,.1)=""
^DD(442,"GL",1,16,5.1)=""
^DD(442,"GL",1,17,.2)=""
^DD(442,"GL",1,18,.3)=""
^DD(442,"GL",1,19,.25)=""
^DD(442,"GL",1,20,501)=""
^DD(442,"GL",2,0,40)=""
^DD(442,"GL",3,0,14)=""
^DD(442,"GL",4,0,20)=""
^DD(442,"GL",5,0,9.2)=""
^DD(442,"GL",6,0,50)=""
^DD(442,"GL",7,1,.5)=""
^DD(442,"GL",7,2,.7)=""
^DD(442,"GL",7,3,.08)=""
^DD(442,"GL",7,4,.8)=""
^DD(442,"GL",8,1,94)=""
^DD(442,"GL",8,2,95)=""
^DD(442,"GL",8,3,96)=""
^DD(442,"GL",8,4,96.6)=""
^DD(442,"GL",8,5,96.5)=""
^DD(442,"GL",8,6,96.7)=""
^DD(442,"GL",9,0,35)=""
^DD(442,"GL",10,0,2.4)=""
^DD(442,"GL",11,0,.6)=""
^DD(442,"GL",12,1,18)=""
^DD(442,"GL",12,2,16.5)=""
^DD(442,"GL",12,3,17)=""
^DD(442,"GL",12,4,19)=""
^DD(442,"GL",12,5,19.2)=""
^DD(442,"GL",12,6,.04)=""
^DD(442,"GL",12,7,13.2)=""
^DD(442,"GL",12,8,13.3)=""
^DD(442,"GL",12,9,13.4)=""
^DD(442,"GL",12,10,18.5)=""
^DD(442,"GL",12,11,16.7)=""
^DD(442,"GL",12,12,16.8)=""
^DD(442,"GL",12,13,18.6)=""
^DD(442,"GL",12,14,18.7)=""
^DD(442,"GL",12,15,97)=""
^DD(442,"GL",12,16,116)=""
^DD(442,"GL",13,0,.05)=""
^DD(442,"GL",14,0,8.3)=""
^DD(442,"GL",15,0,24)=""
^DD(442,"GL",16,0,25)=""
^DD(442,"GL",17,1,70)=""
^DD(442,"GL",17,2,71)=""
^DD(442,"GL",17,3,72)=""
^DD(442,"GL",17,4,73)=""
^DD(442,"GL",17,5,74)=""
^DD(442,"GL",17,6,75)=""
^DD(442,"GL",17,7,76)=""
^DD(442,"GL",17,8,77)=""
^DD(442,"GL",17,9,78)=""
^DD(442,"GL",17,10,79)=""
^DD(442,"GL",17,11,80)=""
^DD(442,"GL",17,12,81)=""
^DD(442,"GL",17,13,82)=""
^DD(442,"GL",17,14,83)=""
^DD(442,"GL",17,15,84)=""
^DD(442,"GL",17,16,72.4)=""
^DD(442,"GL",17,17,73.4)=""
^DD(442,"GL",18,1,107)=""
^DD(442,"GL",18,2,101)=""
^DD(442,"GL",18,3,102)=""
^DD(442,"GL",18,4,103)=""
^DD(442,"GL",18,5,104)=""
^DD(442,"GL",18,6,105)=""
^DD(442,"GL",18,7,106)=""
^DD(442,"GL",18,8,102.5)=""
^DD(442,"GL",18,9,102.6)=""
^DD(442,"GL",18,10,102.4)=""
^DD(442,"GL",18,11,103.5)=""
^DD(442,"GL",18,12,106.4)=""
^DD(442,"GL",18,13,108)=""
^DD(442,"GL",18,14,109)=""
^DD(442,"GL",18,15,105.5)=""
^DD(442,"GL",18,16,105.7)=""
^DD(442,"GL",19,0,5.7)=""
^DD(442,"GL",20,0,110)=""
^DD(442,"GL",21,1,111)=""
^DD(442,"GL",21,2,112)=""
^DD(442,"GL",21,3,113)=""
^DD(442,"GL",21,4,114)=""
^DD(442,"GL",21,5,115)=""
^DD(442,"GL",21,6,114.5)=""
^DD(442,"GL",21,7,114.7)=""
^DD(442,"GL",21,8,42)=""
^DD(442,"GL",22,0,41)=""
^DD(442,"GL",23,1,13.05)=""
^DD(442,"GL",23,2,26)=""
^DD(442,"GL",23,3,27)=""
^DD(442,"GL",23,4,28)=""
^DD(442,"GL",23,5,29)=""
^DD(442,"GL",23,6,30)=""
^DD(442,"GL",23,7,31)=""
^DD(442,"GL",23,8,46)=""
^DD(442,"GL",23,9,44)=""
^DD(442,"GL",23,10,47)=""
^DD(442,"GL",23,11,48)=""
^DD(442,"GL",23,12,52)=""
^DD(442,"GL",23,13,51)=""
^DD(442,"GL",23,14,53)=""
^DD(442,"GL",23,15,54)=""
^DD(442,"GL",23,16,55)=""
^DD(442,"GL",23,17,56)=""
^DD(442,"GL",23,18,57)=""
^DD(442,"GL",23,19,58)=""
^DD(442,"GL",23,21,60)=""
^DD(442,"GL",23,22,61)=""
^DD(442,"GL",23,23,62)=""
^DD(442,"GL",24,1,63)=""
^DD(442,"GL",24,2,64)=""
^DD(442,"GL",24,3,65)=""
^DD(442,"GL",25,1,117)=""
^DD(442,"GL",25,2,118)=""
^DD(442,"GL",25,3,119)=""
^DD(442,"GL",25,4,120)=""
^DD(442,"GL",25,5,121)=""
^DD(442,"GL",25,6,122)=""
^DD(442,"GL",25,7,123)=""
^DD(442,"GL",25,8,124)=""
^DD(442,"GL",25,9,125)=""
^DD(442,"GL",25,10,126)=""
^DD(442,"GL",25,11,127)=""
^DD(442,"GL",25,12,128)=""
^DD(442,"GL",25,13,129)=""
^DD(442,"GL",25,14,130)=""
^DD(442,"GL",25,15,131)=""
^DD(442,"GL",25,16,132)=""
^DD(442,"GL",25,17,133)=""
^DD(442,"GL","AR",1,500.01)=""
^DD(442,"GR","AR",.01,1)=""
^DD(442,"GR","AR",500.01,1)=""
^DD(442,"IX",.01)=""
^DD(442,"IX",.02)=""
^DD(442,"IX",.09)=""
^DD(442,"IX",.1)=""
^DD(442,"IX",.25)=""
^DD(442,"IX",.5)=""
^DD(442,"IX",.7)=""
^DD(442,"IX",.8)=""
^DD(442,"IX",1)=""
^DD(442,"IX",5)=""
^DD(442,"IX",13)=""
^DD(442,"IX",16.5)=""
^DD(442,"IX",46)=""
^DD(442,"IX",48)=""
^DD(442,"IX",61)=""
^DD(442,"IX",102.4)=""
^DD(442,"IX",102.5)=""
^DD(442,"IX",102.6)=""
^DD(442,"IX",103.5)=""
^DD(442,"RQ",.01)=""
^DD(442,"RQ",.02)=""
^DD(442,"RQ",.1)=""
^DD(442,"RQ",.25)=""
^DD(442,"RQ",.3)=""
^DD(442,"RQ",1)=""
^DD(442,"RQ",1.4)=""
^DD(442,"RQ",2)=""
^DD(442,"RQ",5)=""
^DD(442,"RQ",5.2)=""
^DD(442,"RQ",6)=""
^DD(442,"RQ",6.2)=""
^DD(442,"RQ",7)=""
^DD(442,"RQ",8)=""
^DD(442,"RQ",13.05)=""
^DD(442,"RQ",15)=""
^DD(442,"RQ",16)=""
^DD(442,"RQ",16.5)=""
^DD(442,"RQ",46)=""
^DD(442,"RQ",54)=""
^DD(442,"RQ",60)=""
^DD(442,"RQ",70)=""
^DD(442,"RQ",71)=""
^DD(442,"RQ",72)=""
^DD(442,"RQ",75)=""
^DD(442,"RQ",78)=""
^DD(442,"RQ",79)=""
^DD(442,"RQ",80)=""
^DD(442,"RQ",81)=""
^DD(442,"RQ",83)=""
^DD(442,"RQ",84)=""
^DD(442,"RQ",91)=""
^DD(442,"RQ",97)=""
^DD(442,"RQ",102)=""
^DD(442,"RQ",102.4)=""
^DD(442,"RQ",500.01)=""
^DD(442,"SB",442.01,40)=""
^DD(442,"SB",442.02,5.7)=""
^DD(442,"SB",442.025,25)=""
^DD(442,"SB",442.03,14)=""
^DD(442,"SB",442.04,20)=""
^DD(442,"SB",442.041,41)=""
^DD(442,"SB",442.06,9.2)=""
^DD(442,"SB",442.07,50)=""
^DD(442,"SB",442.09,2.4)=""
^DD(442,"SB",442.1,35)=""
^DD(442,"SB",442.11,.6)=""
^DD(442,"SB",442.12,8.3)=""
^DD(442,"SB",442.14,.05)=""
^DD(442,"SB",442.15,24)=""
^DD(442,"SB",442.17,110)=""
^DD(442.01,0)="ITEM SUB-FIELD^NL^48^53"
^DD(442.01,0,"DT")="2940818"
^DD(442.01,0,"ID","Z1")="W:$D(^(1,1,0)) $E(^(0),1,60) W:$D(^PRC(442,D0,2,+Y,0)) !,?9,""STK#: "",$P(^(0),""^"",6),?35,""NSN: "",$P(^(0),""^"",13)"
^DD(442.01,0,"ID","Z2")="I $P($G(^(4)),U)]"""" W !,?9,""SERIAL NO.(GSA/DLA): ""_$P(^(4),U)"
^DD(442.01,0,"ID","Z3")="I $P(^(0),U,2)=0!($P(^(0),U,9)=0) W ?50,""**DELETED**"""
^DD(442.01,0,"IX","AB",442.08,.01)=""
^DD(442.01,0,"IX","AC",442.01,4)=""
^DD(442.01,0,"IX","AD",442.01,1.5)=""
^DD(442.01,0,"IX","AE",442.01,1.5)=""
^DD(442.01,0,"IX","AF",442.01,11)=""
^DD(442.01,0,"IX","AG",442.01,44)=""
^DD(442.01,0,"IX","AH",442.01,3.5)=""
^DD(442.01,0,"IX","AZAPSCH",442.01,.01)=""
^DD(442.01,0,"IX","B",442.01,.01)=""
^DD(442.01,0,"IX","C",442.01,.01)=""
^DD(442.01,0,"IX","D",442.01,3.5)=""
^DD(442.01,0,"NM","ITEM")=""
^DD(442.01,0,"UP")="442"
^DD(442.01,.01,0)="LINE ITEM NUMBER^MRNJ2,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.01,.01,.1)=""
^DD(442.01,.01,1,0)="^.1^^-1"
^DD(442.01,.01,1,1,0)="^^TRIGGER^442^15"
^DD(442.01,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.01,.01,1,1,1.1) X ^DD(442.01,.01,1,1,1.4)"
^DD(442.01,.01,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14)+1"
^DD(442.01,.01,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.01,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.01,.01,1,1,2.1) X ^DD(442.01,.01,1,1,2.4)"
^DD(442.01,.01,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14)-1"
^DD(442.01,.01,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.01,.01,1,1,"CREATE VALUE")="lineItem+1"
^DD(442.01,.01,1,1,"DELETE VALUE")="lineItem-1"
^DD(442.01,.01,1,1,"FIELD")="lineItem Count"
^DD(442.01,.01,1,2,0)="442.01^B"
^DD(442.01,.01,1,2,1)="S ^PRC(442,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(442.01,.01,1,2,2)="K ^PRC(442,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(442.01,.01,1,3,0)="442.01^C^MUMPS"
^DD(442.01,.01,1,3,1)="I ('$D(^PRC(442,DA(1),2,DA,2)))!($P(^(0),""^"",2)>$S($D(^(2)):$P(^(2),""^"",8),1:0)) S ^PRC(442,DA(1),2,""C"",X,DA)="""""
^DD(442.01,.01,1,3,2)="K ^PRC(442,DA(1),2,""C"",X,DA)"
^DD(442.01,.01,1,3,"%D",0)="^.101^6^6^3050120^^^^"
^DD(442.01,.01,1,3,"%D",1,0)="This X-REF is used to control receipt of items by setting this ""C"" X-REF"
^DD(442.01,.01,1,3,"%D",2,0)="when the QUANTITY field value is more than the QUANTITY PREVIOUSLY"
^DD(442.01,.01,1,3,"%D",3,0)="RECEIVED field value.  When this X-REF is used, only those LINE ITEM"
^DD(442.01,.01,1,3,"%D",4,0)="NUMBERs that have outstanding due-ins will be able to be selected."
^DD(442.01,.01,1,3,"%D",5,0)=" "
^DD(442.01,.01,1,3,"%D",6,0)="The KILL section will just remove this X-REF."
^DD(442.01,.01,1,3,"DT")="3050120"
^DD(442.01,.01,1,4,0)="442.01^AZAPSCH^MUMPS"
^DD(442.01,.01,1,4,1)="Q"
^DD(442.01,.01,1,4,2)="N DAA,DS,DIK,PR S DAA=DA N DA S PR=$G(PRCHPONO,$P(^PRC(442,D0,0),U)),DS="""",DIK=""^PRC(442.8,"" F  S DS=$O(^PRC(442.8,""AC"",PR,DAA,DS)) Q:DS=""""  S DA=DS D ^DIK"
^DD(442.01,.01,1,4,"%D",0)="^^2^2^2970207^^^^"
^DD(442.01,.01,1,4,"%D",1,0)="To delete entries in file 442.8 that correspond to an item in field #40"
^DD(442.01,.01,1,4,"%D",2,0)="in file #442 that is being deleted."
^DD(442.01,.01,1,4,"DT")="2960306"
^DD(442.01,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(442.01,.01,21,0)="^^1^1^2971203^^^^"
^DD(442.01,.01,21,1,0)="This is the number of the line item."
^DD(442.01,.01,"DT")="3050304"
^DD(442.01,1,0)="DESCRIPTION^442.05^^1;0"
^DD(442.01,1,21,0)="^^1^1^2910517^"
^DD(442.01,1,21,1,0)="This is a description of the item."
^DD(442.01,1.5,0)="ITEM MASTER FILE NO.^*P441'X^PRC(441,^0;5^S DIC(""S"")=""I 1"",DIC(0)=DIC(0)_""O"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) D EN5^PRCHNPO5"
^DD(442.01,1.5,1,0)="^.1"
^DD(442.01,1.5,1,1,0)="442.01^AD^MUMPS"
^DD(442.01,1.5,1,1,1)="Q:'$D(PRC(""SITE""))!($P(^PRC(442,DA(1),0),U,3)="""")!($P(^(1),U,1)="""")  S PRCHCCP=$P($P(^(0),U,3),"" "",1),PRCHCV=$P(^(1),U,1),PRCHCPD=+$P(^(1),U,15),PRCHCI=X,PRCHCPO=DA(1) D EN3^PRCHCRD"
^DD(442.01,1.5,1,1,2)="Q:'$D(PRC(""SITE""))!($P(^PRC(442,DA(1),0),U,3)="""")!($P(^(1),U,1)="""")  S PRCHCCP=$P($P(^(0),U,3),"" "",1),PRCHCPD=+$P(^(1),U,15),PRCHCI=X,PRCHCPO=DA(1) D EN4^PRCHCRD"
^DD(442.01,1.5,1,1,"%D",0)="^^33^33^2950418^^^^"
^DD(442.01,1.5,1,1,"%D",1,0)="This X-REF does a lot.  It copies the item information from the ITEM"
^DD(442.01,1.5,1,1,"%D",2,0)="MASTER file to the PROCUREMENT & ACCOUNTING TRANSACTION file into the"
^DD(442.01,1.5,1,1,"%D",3,0)="item multiple.  Also the internal PO record number is stored into the"
^DD(442.01,1.5,1,1,"%D",4,0)="ITEM MASTER file under the SITE joined to the FCP number."
^DD(442.01,1.5,1,1,"%D",5,0)=" "
^DD(442.01,1.5,1,1,"%D",6,0)="Here is a list of the fields in the ITEM MASTER file and the fields in"
^DD(442.01,1.5,1,1,"%D",7,0)="the PROCUREMENT & ACCOUNTING TRANSACTION file that the data is copied"
^DD(442.01,1.5,1,1,"%D",8,0)="into.                                     "
^DD(442.01,1.5,1,1,"%D",9,0)="                                               "
^DD(442.01,1.5,1,1,"%D",10,0)="          "
^DD(442.01,1.5,1,1,"%D",11,0)="     File 441                  File 442"
^DD(442.01,1.5,1,1,"%D",12,0)="    VENDOR STOCK #             VENDOR STOCK NUMBER"
^DD(442.01,1.5,1,1,"%D",13,0)="    NDC                        NATIONAL DRUG CODE"
^DD(442.01,1.5,1,1,"%D",14,0)="    UNIT COST                  ACTUAL UNIT COST"
^DD(442.01,1.5,1,1,"%D",15,0)="    UNIT OF PURCHASE           UNIT OF PURCHASE"
^DD(442.01,1.5,1,1,"%D",16,0)="    PACKAGING MULTIPLE         PACKAGING MULTIPLE"
^DD(442.01,1.5,1,1,"%D",17,0)="    MAXIMUM ORDER              MAXIMUM ORDER     "
^DD(442.01,1.5,1,1,"%D",18,0)="    UNIT CONVERSION FACTOR     UNIT CONVERSION FACTOR"
^DD(442.01,1.5,1,1,"%D",19,0)="    SKU                        SKU              "
^DD(442.01,1.5,1,1,"%D",20,0)="    NSN                        NSN                "
^DD(442.01,1.5,1,1,"%D",21,0)="    FSC                        FEDERAL SUPPLY CLASSIFICATION"
^DD(442.01,1.5,1,1,"%D",22,0)="    BOC                        BOC        "
^DD(442.01,1.5,1,1,"%D",23,0)="    CONTRACT NUMBER            CONTRACT #         "
^DD(442.01,1.5,1,1,"%D",24,0)="    QUANTITY(442)*UNIT COST    TOTAL COST       "
^DD(442.01,1.5,1,1,"%D",25,0)="    DESCRIPTION MULTIPLE       DESCRIPTION MULTIPLE"
^DD(442.01,1.5,1,1,"%D",26,0)="If NDC has a value the last line is: NDC:_NDC"
^DD(442.01,1.5,1,1,"%D",27,0)="If the CONTRACT # field in file 442 was set the ""AC"" X-REF in the ITEM"
^DD(442.01,1.5,1,1,"%D",28,0)="multiple is created for the CONTRACT #.  Also the file 441 ""AC"" X-REF"
^DD(442.01,1.5,1,1,"%D",29,0)="for this PO is set."
^DD(442.01,1.5,1,1,"%D",30,0)="                                            "
^DD(442.01,1.5,1,1,"%D",31,0)="                         "
^DD(442.01,1.5,1,1,"%D",32,0)="KILL will remove from the SITE_+FCP multiple the PO internal entry number"
^DD(442.01,1.5,1,1,"%D",33,0)="from file 442.  Also the file 441 ""AC"" X-REF for this PO is killed."
^DD(442.01,1.5,1,2,0)="442.01^AE"
^DD(442.01,1.5,1,2,1)="S ^PRC(442,DA(1),2,""AE"",$E(X,1,30),DA)="""""
^DD(442.01,1.5,1,2,2)="K ^PRC(442,DA(1),2,""AE"",$E(X,1,30),DA)"
^DD(442.01,1.5,1,2,"%D",0)="^^3^3^2930628^"
^DD(442.01,1.5,1,2,"%D",1,0)="This X-REF is just a non-lookup list of each ITEM MASTER file entry"
^DD(442.01,1.5,1,2,"%D",2,0)="within all ITEM multiples.  This X-REF only extends over one PO file"
^DD(442.01,1.5,1,2,"%D",3,0)="entry."
^DD(442.01,1.5,12)="Enter Item Number"
^DD(442.01,1.5,12.1)="S DIC(""S"")=""I 1"",DIC(0)=DIC(0)_""O"""
^DD(442.01,1.5,21,0)="^^2^2^2950418^^^^"
^DD(442.01,1.5,21,1,0)="This is the Item Master number for the items on the"
^DD(442.01,1.5,21,2,0)="purchase order/requisition."
^DD(442.01,1.5,"DT")="2940615"
^DD(442.01,2,0)="QUANTITY^RNJ9,2^^0;2^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(442.01,2,1,0)="^.1"
^DD(442.01,2,1,1,0)="^^TRIGGER^442.01^15"
^DD(442.01,2,1,1,1)="X ^DD(442.01,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(442.01,2,1,1,1.1) X ^DD(442.01,2,1,1,1.4)"
^DD(442.01,2,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9)*DIV"
^DD(442.01,2,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9)]"""""
^DD(442.01,2,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.01,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="""" X ^DD(442.01,2,1,1,2.4)"
^DD(442.01,2,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.01,2,1,1,"CREATE CONDITION")="ACTUAL UNIT COST]"""""
^DD(442.01,2,1,1,"CREATE VALUE")="ACTUAL UNIT COST*QUANTITY"
^DD(442.01,2,1,1,"DELETE VALUE")="@"
^DD(442.01,2,1,1,"FIELD")="AMOUNT"
^DD(442.01,2,3)="Enter the quantity (a number from .01 to 999,999 with up to two decimal places)"
^DD(442.01,2,21,0)="^^1^1^2910517^"
^DD(442.01,2,21,1,0)="This is the quantity of the item ordered."
^DD(442.01,2,"DT")="2860205"
^DD(442.01,3,0)="UNIT OF PURCHASE^RP420.5'X^PRCD(420.5,^0;3^D EN6^PRCHNPO5"
^DD(442.01,3,21,0)="^^1^1^2940513^^"
^DD(442.01,3,21,1,0)="This is the unit of purchase for this item."
^DD(442.01,3,"DT")="2860301"
^DD(442.01,3.1,0)="PACKAGING MULTIPLE^NJ6,0X^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X D:$D(X) EN7^PRCHNPO6"
^DD(442.01,3.1,3)="Enter a number between 1 and 999999.  Used to indicate the quantity contained in one unit of purchase. (Ex. Item comes 10 per box, packaging multiple=10)."
^DD(442.01,3.1,21,0)="^^1^1^2930503^^"
^DD(442.01,3.1,21,1,0)="This is the packaging multiple for this item."
^DD(442.01,3.1,"DT")="2930505"
^DD(442.01,3.2,0)="ITEM DELIVERY POINTS^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(442.01,3.2,3)="If this item is to be delivered to multiple rooms/persons/sections upon receipt, enter delivery point and the quantity each should receive."
^DD(442.01,3.2,21,0)="^^1^1^2930408^"
^DD(442.01,3.2,21,1,0)="This is the cost center for this purchase request."
^DD(442.01,3.2,"DT")="2860306"
^DD(442.01,3.5,0)="BOC^RFX^^0;4^N Z0 S Z0=$P(^PRC(442,DA(1),0),""^"",5) K:'Z0 X I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X I $D(X) S X=$$SUPBOC^PRCHNPO7 D EN8^PRCHNPO7"
^DD(442.01,3.5,1,0)="^.1"
^DD(442.01,3.5,1,1,0)="442.01^D^MUMPS"
^DD(442.01,3.5,1,1,1)="S ^PRC(442,DA(1),2,""D"",+$P(X,"" "",1),DA)="""""
^DD(442.01,3.5,1,1,2)="K ^PRC(442,DA(1),2,""D"",+$P(X,"" "",1),DA)"
^DD(442.01,3.5,1,1,"DT")="2931228"
^DD(442.01,3.5,1,2,0)="442.01^AH^MUMPS"
^DD(442.01,3.5,1,2,1)="S ALN=$P(^PRC(442,DA(1),2,DA,0),""^"") S:ALN>0 ^PRC(442,DA(1),2,""AH"",+X,ALN,DA)="""" K ALN"
^DD(442.01,3.5,1,2,2)="S ALN=$P(^PRC(442,DA(1),2,DA,0),""^"") K:ALN>0 ^PRC(442,DA(1),2,""AH"",+X,ALN,DA) K ALN"
^DD(442.01,3.5,1,2,"%D",0)="^^2^2^2940110^^"
^DD(442.01,3.5,1,2,"%D",1,0)="This x-ref will list all ITEMs with the same BOC together."
^DD(442.01,3.5,1,2,"%D",2,0)="This will allow for locating all ITEMs with the same BOC easly."
^DD(442.01,3.5,1,2,"DT")="2940110"
^DD(442.01,3.5,3)="Please enter the appropriate BOC for this item."
^DD(442.01,3.5,4)="N D,Z0,Z1,DIC S Z0=$P(^PRC(442,DA(1),0),""^"",5),Z1=$P(^(0),""^"",19) K:'Z0 X I $D(X) S X=""??"",DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""E"" D:Z1'=2 ^DIC S:Z1=2 X=$$SUPBOC^PRCHNPO7 D:0 EN8^PRCHNPO7"
^DD(442.01,3.5,21,0)="^^1^1^2960701^^^^"
^DD(442.01,3.5,21,1,0)="This is the BOC for this cost center."
^DD(442.01,3.5,"DT")="2960701"
^DD(442.01,3.6,0)="INTERMEDIATE PRODUCT CODE^P420.9'^PRCD(420.9,^0;11^Q"
^DD(442.01,3.6,21,0)="^^1^1^2910517^"
^DD(442.01,3.6,21,1,0)="This is the intermediate product."
^DD(442.01,3.6,"DT")="2860307"
^DD(442.01,4,0)="CONTRACT/BOA #^FX^^2;2^D EN8^PRCHNPO5"
^DD(442.01,4,1,0)="^.1"
^DD(442.01,4,1,1,0)="442.01^AC"
^DD(442.01,4,1,1,1)="S ^PRC(442,DA(1),2,""AC"",$E(X,1,30),DA)="""""
^DD(442.01,4,1,1,2)="K ^PRC(442,DA(1),2,""AC"",$E(X,1,30),DA)"
^DD(442.01,4,1,1,"%D",0)="^^2^2^2930628^"
^DD(442.01,4,1,1,"%D",1,0)="This X-REF lists all CONTRACT #s within this PO.  The X-REF is used"
^DD(442.01,4,1,1,"%D",2,0)="only for non-lookup."
^DD(442.01,4,3)="Enter a Contract/BOA # (min. 7 chars.) with valid expiration date."
^DD(442.01,4,4)="S ZD=D,X=""?"",Z0=$S($D(^PRC(442,D0,1)):+^(1),1:"""") Q:'Z0  D EN10^PRCHNPO5,EN13^PRCHNPO5 S DIC=""^PRC(440,Z0,4,"",DIC(0)=""QEM"" D ^DIC K DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(442.01,4,21,0)="^^1^1^2970221^^^^"
^DD(442.01,4,21,1,0)="This is the contract number for this item."
^DD(442.01,4,"DT")="2970221"
^DD(442.01,5,0)="ACTUAL UNIT COST^RNJ12,4XO^^0;9^S:X[""$"" X=$P(X,""$"",2) S X=$TR(X,""nc"",""NC"") K:(X'?1.N)&(X'?.N1""."".4N)&(X'?1""N/C"")!(X?.E1"".""5N.N)!(X>9999999.9999)!(X<0) X D EN9^PRCHNPO5 I $D(X) W $S(X=""N/C"":""     N/C"",1:""     $""_$J(X,0,4))"
^DD(442.01,5,1,0)="^.1"
^DD(442.01,5,1,1,0)="^^TRIGGER^442.01^15"
^DD(442.01,5,1,1,1)="X ^DD(442.01,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(442.01,5,1,1,1.1) X ^DD(442.01,5,1,1,1.4)"
^DD(442.01,5,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"""") S X=DIV*$P(Y(1),U,2)"
^DD(442.01,5,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(442,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2)>0"
^DD(442.01,5,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.01,5,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="""" X ^DD(442.01,5,1,1,2.4)"
^DD(442.01,5,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=442.01,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.01,5,1,1,"CREATE CONDITION")="QUANTITY>0"
^DD(442.01,5,1,1,"CREATE VALUE")="ACTUAL UNIT COST*QUANTITY"
^DD(442.01,5,1,1,"DELETE VALUE")="@"
^DD(442.01,5,1,1,"FIELD")="AMOUNT"
^DD(442.01,5,2)="S Y(0)=Y S Y=$S(Y=""N/C"":""N/C"",1:""$""_$J(Y,0,4))"
^DD(442.01,5,2.1)="S Y=$S(Y=""N/C"":""N/C"",1:""$""_$J(Y,0,4))"
^DD(442.01,5,3)="Type a Dollar Amount between 0 and 9999999.9999, 4 Decimal Digits or N/C for no charge."
^DD(442.01,5,21,0)="^^1^1^2940705^^^^"
^DD(442.01,5,21,1,0)="This is the actual unit cost of this item."
^DD(442.01,5,"DT")="2940705"
^DD(442.01,5.5,0)="EST. UNIT COST^NJ10,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(442.01,5.5,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(442.01,5.5,21,0)="^^1^1^2940510^^"
^DD(442.01,5.5,21,1,0)="This is the estimated unit cost for the item."
^DD(442.01,5.5,"DT")="2940510"
^DD(442.01,6,0)="DESCRIPTION LINE COUNT^NJ3,0^^2;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.01,6,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(442.01,6,21,0)="^^1^1^2910517^^"
^DD(442.01,6,21,1,0)="This is the description line count."
^DD(442.01,6,"DT")="2860421"
^DD(442.01,7,0)="DESCRIPT. ASTR.^F^^2;5^K:$L(X)>3!($L(X)<1) X"
^DD(442.01,7,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(442.01,7,21,0)="^^2^2^2910517^"
^DD(442.01,7,21,1,0)="This field contains internal program code that"
^DD(442.01,7,21,2,0)="controls printed output."
^DD(442.01,7,"DT")="2850419"
^DD(442.01,8,0)="FEDERAL SUPPLY CLASSIFICATION^RP441.2'X^PRC(441.2,^2;3^D EN10^PRCHNPO7"
^DD(442.01,8,.1)="FSC/PSC"
^DD(442.01,8,21,0)="^^2^2^3050809^"
^DD(442.01,8,21,1,0)="This is the Federal Supply Classification for an item, or the Product "
^DD(442.01,8,21,2,0)="Service Code for a service."
^DD(442.01,8,"DT")="3050809"
^DD(442.01,9,0)="VENDOR STOCK NUMBER^FX^^0;6^K:$L(X)>30!($L(X)<1) X I $D(X) D EN12^PRCHNPO5"
^DD(442.01,9,.1)=""
^DD(442.01,9,1,0)="^.1^^0"
^DD(442.01,9,3)="Enter the Vendor Stock No. or Catalog no., or other number used by the Vendor to identify this item (1-30 characters)."
^DD(442.01,9,21,0)="^^1^1^2910517^"
^DD(442.01,9,21,1,0)="This is the stock number for this item."
^DD(442.01,9,"DT")="2890313"
^DD(442.01,9.3,0)="NATIONAL DRUG CODE^FX^^0;15^K:$L(X)>14!($L(X)<11)!'(X?1.6N1""-""1.4N1""-""1.2N) X I $D(X) D EN12^PRCHNPO7"
^DD(442.01,9.3,3)="Enter in following format: 1-6 numeric, 1 dash, 1-4 numeric 1 dash, 1-2 numeric (ex. 123456-1234-12).  ANSWER MUST BE 11-14 CHARACTERS IN LENGTH"
^DD(442.01,9.3,21,0)="^^2^2^2940314^^^^"
^DD(442.01,9.3,21,1,0)="This is the National Drug Code for the item,"
^DD(442.01,9.3,21,2,0)="if applicable."
^DD(442.01,9.3,"DT")="2961021"
^DD(442.01,9.4,0)="SKU^P420.5'X^PRCD(420.5,^0;16^D EN6^PRCHNPO7"
^DD(442.01,9.4,3)="Enter the Stock Keeping Unit for this item."
^DD(442.01,9.4,21,0)="^^1^1^2931208^^^"
^DD(442.01,9.4,21,1,0)="SKU number of ITEM"
^DD(442.01,9.4,23,0)="^^2^2^2931208^^"
^DD(442.01,9.4,23,1,0)="This field, when entered, is coppied into file 441 at the SKU field."
^DD(442.01,9.4,23,2,0)="EN6^PRCHNPO7 coppies the field."
^DD(442.01,9.4,"DT")="2931208"
^DD(442.01,9.5,0)="NSN^FX^^0;13^K:$L(X)>17!($L(X)<16)!'(X?4N1""-""2UN1""-""3UN1""-""4N.UN) X I $D(X) D EN1^PRCHNPO7"
^DD(442.01,9.5,3)="Enter the NSN (National Stock Number) in the following format: 6505-56-A89-1234A (last character is optional). The 2nd & 3rd segment of NSN can accept alpha or numeric characters. ex 6505-CD-9M1-1234 "
^DD(442.01,9.5,21,0)="^^1^1^2970129^^^^"
^DD(442.01,9.5,21,1,0)="This is the National Stock Number for the item."
^DD(442.01,9.5,"DT")="2961018"
^DD(442.01,9.6,0)="MAXIMUM ORDER QTY^NJ6,0X^^0;14^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X I $D(X) D EN9^PRCHNPO6"
^DD(442.01,9.6,3)="Type a Number between .01 and 999999, 2 Decimal Digits or leave blank"
^DD(442.01,9.6,21,0)="^^1^1^2991012^^"
^DD(442.01,9.6,21,1,0)="This is the maximum order quantity for the item."
^DD(442.01,9.6,"DT")="2991014"
^DD(442.01,9.7,0)="UNIT CONVERSION FACTOR^RNJ6,0X^^0;17^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X D:$D(X) EN7^PRCHNPO7"
^DD(442.01,9.7,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999.  This number is used to convert quantities purchased from Unit of Purchase to Unit of Issue."
^DD(442.01,9.7,21,0)="^^2^2^2931208^^"
^DD(442.01,9.7,21,1,0)="This is the unit of conversion factor, used to convert a unit of purchase"
^DD(442.01,9.7,21,2,0)="into a unit of issue."
^DD(442.01,9.7,23,0)="^^9^9^2931208^^"
^DD(442.01,9.7,23,1,0)="This field is used in the PHA transaction as the SKU FACTOR field in"
^DD(442.01,9.7,23,2,0)="the IT segment.  If both the SKU field and the UNIT CONVERSION FACTOR field"
^DD(442.01,9.7,23,3,0)="are missing, the SKU field in the IT segment will use the UNIT OF PURCHASE"
^DD(442.01,9.7,23,4,0)="field, the SKU FACTOR field will get set to one (1) and the UNOT CONVERSION"
^DD(442.01,9.7,23,5,0)="FACTOR field will not be asked.  If the SKU field is entered through the"
^DD(442.01,9.7,23,6,0)="PRCH2138 or PRCHNREQ input templates and the SKU field has a value in it,"
^DD(442.01,9.7,23,7,0)="the UNIT CONVERSION FACTOR will be required."
^DD(442.01,9.7,23,8,0)="   "
^DD(442.01,9.7,23,9,0)="This field is copied into file 441 by EN7^PRCHNPO7."
^DD(442.01,9.7,"DT")="2931208"
^DD(442.01,10,0)="2237 REFERENCE #^P410'^PRCS(410,^0;10^Q"
^DD(442.01,10,3)=""
^DD(442.01,10,21,0)="^^1^1^2910517^"
^DD(442.01,10,21,1,0)="This is the purchase request reference number."
^DD(442.01,10,"DT")="2850514"
^DD(442.01,11,0)="QUANTITY PREVIOUSLY RECEIVED^NJ9,2^^2;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(442.01,11,1,0)="^.1"
^DD(442.01,11,1,1,0)="442.01^AF^MUMPS"
^DD(442.01,11,1,1,1)="I $P(^PRC(442,DA(1),2,DA,0),""^"",2)'>X K ^PRC(442,DA(1),2,""C"",+^(0),DA)"
^DD(442.01,11,1,1,2)="S ^PRC(442,DA(1),2,""C"",+^PRC(442,DA(1),2,DA,0),DA)="""""
^DD(442.01,11,1,1,"%D",0)="^^11^11^2930628^"
^DD(442.01,11,1,1,"%D",1,0)="The SET X-REF checks to see if the QUANTITY ordered is not greater"
^DD(442.01,11,1,1,"%D",2,0)="than the this field (QUANTITY PREVIOUSLY RECEIVED).  If this is true"
^DD(442.01,11,1,1,"%D",3,0)="the ""C"" X-REF is removed."
^DD(442.01,11,1,1,"%D",4,0)="  "
^DD(442.01,11,1,1,"%D",5,0)="The KILL X-REF sets the ""C"" X-REF with the ^PRC(442,DA(2),2,""C"",LINE ITEM"
^DD(442.01,11,1,1,"%D",6,0)="NUMBER,DA)"
^DD(442.01,11,1,1,"%D",7,0)=" "
^DD(442.01,11,1,1,"%D",8,0)="Actually this X-REF is SET and KILLed by the ""C"" X-REF in the LINE"
^DD(442.01,11,1,1,"%D",9,0)="ITEM NUMBER field, field .01 in the ITEM multiple.  The SET and KILL"
^DD(442.01,11,1,1,"%D",10,0)="of the ""C"" X-REF perform the complementary operations that the"
^DD(442.01,11,1,1,"%D",11,0)="SET and KILL parts of this X-REF do."
^DD(442.01,11,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(442.01,11,5,1,0)="442.08^1^1"
^DD(442.01,11,9)="^"
^DD(442.01,11,21,0)="^^1^1^2910517^"
^DD(442.01,11,21,1,0)="This is the quantity of the item previously received."
^DD(442.01,11,"DT")="2860303"
^DD(442.01,12,0)="EDI STATUS CODE 1^S^AC:ITEM ACCEPTED AND SHIPPED;AR:ITEM ACCEPTED AND RELEASED FOR SHIPMENT;BP:ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;IB:ITEM BACKORDERED;IH:ITEM ON HOLD;IR:ITEM REJECTED;^2;9^Q"
^DD(442.01,12,21,0)="^^2^2^2930413^"
^DD(442.01,12,21,1,0)=" "
^DD(442.01,12,21,2,0)="First EDI status code for ITEM"
^DD(442.01,12,"DT")="2910813"
^DD(442.01,12.5,0)="EDI STATUS QTY 1^NJ9,0^^2;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.01,12.5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(442.01,12.5,21,0)="^^2^2^2930413^"
^DD(442.01,12.5,21,1,0)=" "
^DD(442.01,12.5,21,2,0)="First EDI status quantity of ITEM"
^DD(442.01,12.5,"DT")="2920626"
^DD(442.01,13,0)="EDI STATUS CODE 2^S^AC:ITEM ACCEPTED AND SHIPPED;AR:ITEM ACCEPTED AND RELEASED FOR SHIPMENT;BP:ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;IB:ITEM BACKORDERED;IH:ITEM ON HOLD;IR:ITEM REJECTED;^2;11^Q"
^DD(442.01,13,21,0)="^^2^2^2930413^"
^DD(442.01,13,21,1,0)=" "
^DD(442.01,13,21,2,0)="Second EDI status code of ITEM"
^DD(442.01,13,"DT")="2910813"
^DD(442.01,13.5,0)="EDI STATUS QTY 2^NJ9,0^^2;12^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.01,13.5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(442.01,13.5,21,0)="^^2^2^2930413^"
^DD(442.01,13.5,21,1,0)=" "
^DD(442.01,13.5,21,2,0)="Second EDI status quantity of ITEM"
^DD(442.01,13.5,"DT")="2920626"
^DD(442.01,15,0)="TOTAL COST^RNJ9,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(442.01,15,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(442.01,15,5,1,0)="442.01^2^1"
^DD(442.01,15,5,2,0)="442.01^5^1"
^DD(442.01,15,9)="^"
^DD(442.01,15,21,0)="^^1^1^2910517^"
^DD(442.01,15,21,1,0)="This is the total cost of this item."
^DD(442.01,15,"DT")="2850419"
^DD(442.01,16,0)="DISCOUNTED AMOUNT^NJ8,2^^2;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(442.01,16,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(442.01,16,21,0)="^^1^1^2930204^^"
^DD(442.01,16,21,1,0)="This is the discounted amount of this item."
^DD(442.01,16,"DT")="2850419"
^DD(442.01,17,0)="OBLIGATED SUBACCOUNT^P420.2'^PRCD(420.2,^2;7^Q"
^DD(442.01,17,3)=""
^DD(442.01,17,21,0)="^^1^1^2910517^"
^DD(442.01,17,21,1,0)="This is the obligated sub-account."
^DD(442.01,17,"DT")="2850502"
^DD(442.01,20,0)="DATE RECEIVED^442.08DA^^3;0"
^DD(442.01,20,21,0)="^^1^1^2941125^^^^"
^DD(442.01,20,21,1,0)="This is the date the item was received."
^DD(442.01,30,0)="SERIAL NO.(GSA/DLA)^NJ4,0^^4;1^K:+X'=X!(X>9999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(442.01,30,3)="Type a Number between 1000 and 9999, 0 Decimal Digits"
^DD(442.01,30,21,0)="^^1^1^2910517^"
^DD(442.01,30,21,1,0)="This is the serial number (GSA/DLA)."
^DD(442.01,30,"DT")="2890424"
^DD(442.01,31,0)="CONSUMER LEVEL^NJ4,0^^4;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.01,31,3)="Type a Number between 0 and 9999, 0 Decimal Digits.  Used in LOG system.  The normal stock level of this item that the service placing the order normally maintains in their inventory."
^DD(442.01,31,21,0)="^^3^3^2910517^^"
^DD(442.01,31,21,1,0)="This is the normal stock level of this item that"
^DD(442.01,31,21,2,0)="the service placing the order normally maintains in"
^DD(442.01,31,21,3,0)="their inventory."
^DD(442.01,31,"DT")="2871210"
^DD(442.01,32,0)="CONSUMER LEVEL OVERRIDE^S^1:OVERRIDE LEVEL;A:OVERRIDE LEVEL AND ISSUE MULT.;^4;3^Q"
^DD(442.01,32,3)="Used in LOG system.  Enter '1' if the consumer level (cc 55-58) is to be ignored, 'A' if both the level and the FIS issue multiple are to be ignored."
^DD(442.01,32,21,0)="^^2^2^2910517^^"
^DD(442.01,32,21,1,0)="Enter '1' to override the normal stock level for the item."
^DD(442.01,32,21,2,0)="Enter 'A' to override both the level and the FIS issue multiple."
^DD(442.01,32,"DT")="2871210"
^DD(442.01,33,0)="DO NOT SUB^S^1:DO NOT SUB;^4;4^Q"
^DD(442.01,33,3)="Used by LOG system.  Enter '1' if substitution for this item is NOT authorized.  If this is punched, or if the item is marked 'kill when zero', this item will NOT back-order."
^DD(442.01,33,21,0)="^^3^3^2910517^"
^DD(442.01,33,21,1,0)="This is the field to set the do not substitute indicator."
^DD(442.01,33,21,2,0)="If set, no similar item will be substituted if the item is "
^DD(442.01,33,21,3,0)="not in stock."
^DD(442.01,33,"DT")="2871210"
^DD(442.01,34,0)="DO NOT B/O^S^1:DO NOT B/O;^4;5^Q"
^DD(442.01,34,3)="Used by LOG system.  Enter '1' if backorder is NOT authorized."
^DD(442.01,34,21,0)="^^3^3^2910517^^"
^DD(442.01,34,21,1,0)="This is the field to set the do not backorder"
^DD(442.01,34,21,2,0)="indicator.  If set, an item will not be backordered"
^DD(442.01,34,21,3,0)="if it is currently not in stock."
^DD(442.01,34,"DT")="2871210"
^DD(442.01,35,0)="BACKORDER CONTROL^S^-:ESTABLISH BACKORDER;^4;6^Q"
^DD(442.01,35,3)="Enter '-' to establish a backorder (source 1) for LOG code sheets."
^DD(442.01,35,21,0)="^^1^1^2910517^"
^DD(442.01,35,21,1,0)="Enter '-' to set a backorder source for LOG code sheets."
^DD(442.01,35,"DT")="2871214"
^DD(442.01,36,0)="SUBSTITUTE CONTROL^S^-:NO SUBSTITUTE;^4;7^Q"
^DD(442.01,36,3)="Enter '-' if substitution is not authorized for LOG code sheets."
^DD(442.01,36,21,0)="^^2^2^2910517^"
^DD(442.01,36,21,1,0)="Enter '-' if substitution is not authorized for LOG code"
^DD(442.01,36,21,2,0)="sheets."
^DD(442.01,36,"DT")="2871214"
^DD(442.01,36.3,0)="BACKORDER (EDI)^S^Y:YES;N:NO;^4;15^Q"
^DD(442.01,36.3,3)="If the vendor can backorder then answer YES"
^DD(442.01,36.3,21,0)="^^2^2^2930413^"
^DD(442.01,36.3,21,1,0)=" "
^DD(442.01,36.3,21,2,0)="Backorder flag set by EDI for ITEM"
^DD(442.01,36.3,"DT")="2910823"
^DD(442.01,36.6,0)="SUBSTITUTE (EDI)^S^Y:YES;N:NO;^4;16^Q"
^DD(442.01,36.6,3)="If the vendor is allowed to substitute then answer YES."
^DD(442.01,36.6,21,0)="^^3^3^2930413^"
^DD(442.01,36.6,21,1,0)=" "
^DD(442.01,36.6,21,2,0)="User-entered flag to control whether or not vendor is allowed to"
^DD(442.01,36.6,21,3,0)="substitute ITEM"
^DD(442.01,36.6,"DT")="2910823"
^DD(442.01,37,0)="ACQUISITIONS CODE SHEET NO.^P423'^PRCF(423,^4;8^Q"
^DD(442.01,37,3)="Pointer to the CALM/LOG code sheet file (#423) for the LOG Acquisition code sheet created for this line/item."
^DD(442.01,37,21,0)="^^2^2^2930408^"
^DD(442.01,37,21,1,0)="This is the LOG Acquisition code sheet created for this"
^DD(442.01,37,21,2,0)="line/item."
^DD(442.01,37,"DT")="2871214"
^DD(442.01,38,0)="GROUP SPLIT CIV^F^^4;9^K:$L(X)>3!($L(X)<1) X"
^DD(442.01,38,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH. (For delivery to more than one location) All items with the same data in this field will print together on a separate CIV, even though sent in the same batch."
^DD(442.01,38,21,0)="^^2^2^2910517^"
^DD(442.01,38,21,1,0)="This is a three character code.  All items which share the same"
^DD(442.01,38,21,2,0)="code will print together on a separate CIV."
^DD(442.01,38,"DT")="2871215"
^DD(442.01,39,0)="SOURCE CODE^F^^4;10^K:$L(X)>1!($L(X)<1) X"
^DD(442.01,39,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(442.01,39,21,0)="^^1^1^2910517^"
^DD(442.01,39,21,1,0)="This is the one character source code."
^DD(442.01,39,"DT")="2880114"
^DD(442.01,39.5,0)="SOURCE DEVIATION^*P441.4'^PRCD(441.4,^4;14^S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.01,39.5,12)="Select appropriate source deviation code or leave blank."
^DD(442.01,39.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""""
^DD(442.01,39.5,21,0)="^^1^1^2910517^"
^DD(442.01,39.5,21,1,0)="This is the source deviation code."
^DD(442.01,39.5,"DT")="2890511"
^DD(442.01,40,0)="DRUG TYPE CODE^RS^A:NARCOTIC;L:CONTROLLED SUBSTANCE;D:OTHER DRUGS;^4;11^Q"
^DD(442.01,40,3)="Enter Drug Type code to be used on LOG code sheet"
^DD(442.01,40,21,0)="^^3^3^2910517^"
^DD(442.01,40,21,1,0)="This is the set of drug type codes (narcotic, controlled"
^DD(442.01,40,21,2,0)="substance, or other) which will appear on the LOG code"
^DD(442.01,40,21,3,0)="sheet."
^DD(442.01,40,"DT")="2890328"
^DD(442.01,41,0)="FOOD GROUP^RS^1:Meat, Fish, Poultry, Eggs & Convenience Entrees;2:Milk, Milk Products;3:Fruits, Vegetables;4:Bread, Flour, Cereal, etc.;5:Commercial Nutritional Products, Tube feedings & supplements;6:Miscellaneous, Foods;^4;12^Q"
^DD(442.01,41,3)="Enter Dietetics Food group used on LOG code sheets for Subsistance Items ONLY"
^DD(442.01,41,21,0)="^^4^4^2970129^^^^"
^DD(442.01,41,21,1,0)="This is the food group which will appear on the LOG code sheet."
^DD(442.01,41,21,2,0)="This FCP has been set up for subsistence items.  If this is not correct,"
^DD(442.01,41,21,3,0)="use an '^' to exit option and contact your Accountable Officer."
^DD(442.01,41,21,4,0)=" "
^DD(442.01,41,"DT")="2891024"
^DD(442.01,42,0)="DIETETIC CONVERSION FACTOR^F^^4;13^K:$L(X)>5!($L(X)<1) X"
^DD(442.01,42,3)="Used for Subsistence Items only--needed for LOG code sheets.  ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(442.01,42,21,0)="^^2^2^2930408^"
^DD(442.01,42,21,1,0)="This is the dietetic conversion factor for subsistence"
^DD(442.01,42,21,2,0)="items to be used on the LOG code sheet."
^DD(442.01,42,"DT")="2890407"
^DD(442.01,43,0)="410 ITEM NUMBER^NJ3,0^^2;13^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.01,43,3)=""
^DD(442.01,43,21,0)="^^1^1^2941123^"
^DD(442.01,43,21,1,0)="It is a corresponding Line Item's number in File 410."
^DD(442.01,43,"DT")="2940315"
^DD(442.01,44,0)="HAZARDOUS MATERIAL^S^HM:HAZARDOUS MATERIAL;^2;14^Q"
^DD(442.01,44,1,0)="^.1"
^DD(442.01,44,1,1,0)="442.01^AG^MUMPS"
^DD(442.01,44,1,1,1)="S ZZ=$P($G(^PRC(442,DA(1),2,DA,0)),U,5) Q:ZZ=""""  S $P(^PRC(441,ZZ,0),U,14)=X K ZZ"
^DD(442.01,44,1,1,2)="S ZZ=$P($G(^PRC(442,DA(1),2,DA,0)),U,5) Q:ZZ=""""  S $P(^PRC(441,ZZ,0),U,14)="""" K ZZ"
^DD(442.01,44,1,1,"DT")="2960430"
^DD(442.01,44,3)="Select HM if this material is hazardous."
^DD(442.01,44,21,0)="^^1^1^2960429^^^"
^DD(442.01,44,21,1,0)="This is a flag to state if this ITEM is hazardous."
^DD(442.01,44,23,0)="^^4^4^2960429^^"
^DD(442.01,44,23,1,0)="This field will be filled in if there is a pointer to file 441 entered"
^DD(442.01,44,23,2,0)="for this ITEM and if there is an entry is the same field in file 441."
^DD(442.01,44,23,3,0)="If the user edits this field the entry in file 441 will also be changed"
^DD(442.01,44,23,4,0)="to agree with this field."
^DD(442.01,44,"DT")="2960430"
^DD(442.01,45,0)="LOT NUMBER^F^^4;17^K:$L(X)>30!($L(X)<1)!'(X?1.30AN) X"
^DD(442.01,45,3)="Enter the lot number for this item.  Normaly entered if there will be multiple deliveries scheduled for this item."
^DD(442.01,45,21,0)="^^2^2^2960923^^"
^DD(442.01,45,21,1,0)="The manufacturers lot number used to request multiple deliveries of an ITEM"
^DD(442.01,45,21,2,0)="from the same batch."
^DD(442.01,45,"DT")="2960426"
^DD(442.01,46,0)="SERIAL NUMBER^F^^4;18^K:$L(X)>30!($L(X)<1) X"
^DD(442.01,46,3)="Enter the SERIAL NUMBER on the piece of equipment listed in this ITEM."
^DD(442.01,46,21,0)="^^1^1^2960426^"
^DD(442.01,46,21,1,0)="This is the SERIAL NUMBER for the piece of equipment listed in this ITEM."
^DD(442.01,46,"DT")="2960426"
^DD(442.01,47,0)="LINE INVENTORY POINT^442.147P^^5;0"
^DD(442.01,47,12)="It is not permissible for secondary inventory points to incur fiscal obligations."
^DD(442.01,47,12.1)="I $P(^(0),U,3)'=""S"""
^DD(442.01,48,0)="DM DOC ID^FI^^2;15^K:$L(X)>16!($L(X)<9) X"
^DD(442.01,48,3)="Answer must be 9-16 characters in length."
^DD(442.01,48,10)="DynaMed - Information Control"
^DD(442.01,48,21,0)="^^7^7^3050606^"
^DD(442.01,48,21,1,0)="This is a unique number associated with each item ordered by DynaMed.  It"
^DD(442.01,48,21,2,0)="is formatted as YDDD-NNNN-CCCCCC where:"
^DD(442.01,48,21,3,0)=" "
^DD(442.01,48,21,4,0)="             Y is the single digit for year,  "
^DD(442.01,48,21,5,0)="           DDD is the 3 digit Julian date, a dash,"
^DD(442.01,48,21,6,0)="          NNNN is the 4 digit sequential number and a dash "
^DD(442.01,48,21,7,0)="        CCCCCC represents up to 6 characters for the stockroom."
^DD(442.01,48,23,0)="^.001^4^4^3050606^^^"
^DD(442.01,48,23,1,0)="The DM DOC ID is associated with an order request from DynaMed for "
^DD(442.01,48,23,2,0)="replenishing a stockroom with of an item defined in the ITEM MASTER FILE"
^DD(442.01,48,23,3,0)="(#440).  The DM DOC ID must be included in all messages updating DynaMed "
^DD(442.01,48,23,4,0)="on the progress of their order request."
^DD(442.01,48,"DT")="3050304"
^DD(442.01,"B","2237 REFERENCE #",10)=""
^DD(442.01,"B","410 ITEM NUMBER",43)=""
^DD(442.01,"B","ACQUISITIONS CODE SHEET NO.",37)=""
^DD(442.01,"B","ACTUAL UNIT COST",5)=""
^DD(442.01,"B","BACKORDER (EDI)",36.3)=""
^DD(442.01,"B","BACKORDER CONTROL",35)=""
^DD(442.01,"B","BOC",3.5)=""
^DD(442.01,"B","CONSUMER LEVEL",31)=""
^DD(442.01,"B","CONSUMER LEVEL OVERRIDE",32)=""
^DD(442.01,"B","CONTRACT/BOA #",4)=""
^DD(442.01,"B","DATE RECEIVED",20)=""
^DD(442.01,"B","DESCRIPT. ASTR.",7)=""
^DD(442.01,"B","DESCRIPTION",1)=""
^DD(442.01,"B","DESCRIPTION LINE COUNT",6)=""
^DD(442.01,"B","DIETETIC CONVERSION FACTOR",42)=""
^DD(442.01,"B","DISCOUNTED AMOUNT",16)=""
^DD(442.01,"B","DM DOC ID",48)=""
^DD(442.01,"B","DO NOT B/O",34)=""
^DD(442.01,"B","DO NOT SUB",33)=""
^DD(442.01,"B","DRUG TYPE CODE",40)=""
^DD(442.01,"B","EDI STATUS CODE 1",12)=""
^DD(442.01,"B","EDI STATUS CODE 2",13)=""
^DD(442.01,"B","EDI STATUS QTY 1",12.5)=""
^DD(442.01,"B","EDI STATUS QTY 2",13.5)=""
^DD(442.01,"B","EST. UNIT COST",5.5)=""
^DD(442.01,"B","FEDERAL SUPPLY CLASSIFICATION",8)=""
^DD(442.01,"B","FOOD GROUP",41)=""
^DD(442.01,"B","FSC/PSC",8)="1"
^DD(442.01,"B","GROUP SPLIT CIV",38)=""
^DD(442.01,"B","HAZARDOUS MATERIAL",44)=""
^DD(442.01,"B","INTERMEDIATE PRODUCT CODE",3.6)=""
^DD(442.01,"B","ITEM DELIVERY POINTS",3.2)=""
^DD(442.01,"B","ITEM MASTER FILE NO.",1.5)=""
^DD(442.01,"B","LINE INVENTORY POINT",47)=""
^DD(442.01,"B","LINE ITEM NUMBER",.01)=""
^DD(442.01,"B","LOT NUMBER",45)=""
^DD(442.01,"B","MAXIMUM ORDER QTY",9.6)=""
^DD(442.01,"B","NATIONAL DRUG CODE",9.3)=""
^DD(442.01,"B","NSN",9.5)=""
^DD(442.01,"B","OBLIGATED SUBACCOUNT",17)=""
^DD(442.01,"B","PACKAGING MULTIPLE",3.1)=""
^DD(442.01,"B","QUANTITY",2)=""
^DD(442.01,"B","QUANTITY PREVIOUSLY RECEIVED",11)=""
^DD(442.01,"B","SERIAL NO.(GSA/DLA)",30)=""
^DD(442.01,"B","SERIAL NUMBER",46)=""
^DD(442.01,"B","SKU",9.4)=""
^DD(442.01,"B","SOURCE CODE",39)=""
^DD(442.01,"B","SOURCE DEVIATION",39.5)=""
^DD(442.01,"B","SUBSTITUTE (EDI)",36.6)=""
^DD(442.01,"B","SUBSTITUTE CONTROL",36)=""
^DD(442.01,"B","TOTAL COST",15)=""
^DD(442.01,"B","UNIT CONVERSION FACTOR",9.7)=""
^DD(442.01,"B","UNIT OF PURCHASE",3)=""
^DD(442.01,"B","VENDOR STOCK NUMBER",9)=""
^DD(442.01,"GL",0,1,.01)=""
^DD(442.01,"GL",0,2,2)=""
^DD(442.01,"GL",0,3,3)=""
^DD(442.01,"GL",0,4,3.5)=""
^DD(442.01,"GL",0,5,1.5)=""
^DD(442.01,"GL",0,6,9)=""
^DD(442.01,"GL",0,7,5.5)=""
^DD(442.01,"GL",0,8,3.2)=""
^DD(442.01,"GL",0,9,5)=""
^DD(442.01,"GL",0,10,10)=""
^DD(442.01,"GL",0,11,3.6)=""
^DD(442.01,"GL",0,12,3.1)=""
^DD(442.01,"GL",0,13,9.5)=""
^DD(442.01,"GL",0,14,9.6)=""
^DD(442.01,"GL",0,15,9.3)=""
^DD(442.01,"GL",0,16,9.4)=""
^DD(442.01,"GL",0,17,9.7)=""
^DD(442.01,"GL",1,0,1)=""
^DD(442.01,"GL",2,1,15)=""
^DD(442.01,"GL",2,2,4)=""
^DD(442.01,"GL",2,3,8)=""
^DD(442.01,"GL",2,4,6)=""
^DD(442.01,"GL",2,5,7)=""
^DD(442.01,"GL",2,6,16)=""
^DD(442.01,"GL",2,7,17)=""
^DD(442.01,"GL",2,8,11)=""
^DD(442.01,"GL",2,9,12)=""
^DD(442.01,"GL",2,10,12.5)=""
^DD(442.01,"GL",2,11,13)=""
^DD(442.01,"GL",2,12,13.5)=""
^DD(442.01,"GL",2,13,43)=""
^DD(442.01,"GL",2,14,44)=""
^DD(442.01,"GL",2,15,48)=""
^DD(442.01,"GL",3,0,20)=""
^DD(442.01,"GL",4,1,30)=""
^DD(442.01,"GL",4,2,31)=""
^DD(442.01,"GL",4,3,32)=""
^DD(442.01,"GL",4,4,33)=""
^DD(442.01,"GL",4,5,34)=""
^DD(442.01,"GL",4,6,35)=""
^DD(442.01,"GL",4,7,36)=""
^DD(442.01,"GL",4,8,37)=""
^DD(442.01,"GL",4,9,38)=""
^DD(442.01,"GL",4,10,39)=""
^DD(442.01,"GL",4,11,40)=""
^DD(442.01,"GL",4,12,41)=""
^DD(442.01,"GL",4,13,42)=""
^DD(442.01,"GL",4,14,39.5)=""
^DD(442.01,"GL",4,15,36.3)=""
^DD(442.01,"GL",4,16,36.6)=""
^DD(442.01,"GL",4,17,45)=""
^DD(442.01,"GL",4,18,46)=""
^DD(442.01,"GL",5,0,47)=""
^DD(442.01,"IX",.01)=""
^DD(442.01,"IX",1.5)=""
^DD(442.01,"IX",2)=""
^DD(442.01,"IX",3.5)=""
^DD(442.01,"IX",4)=""
^DD(442.01,"IX",5)=""
^DD(442.01,"IX",11)=""
^DD(442.01,"IX",44)=""
^DD(442.01,"RQ",.01)=""
^DD(442.01,"RQ",2)=""
^DD(442.01,"RQ",3)=""
^DD(442.01,"RQ",3.5)=""
^DD(442.01,"RQ",5)=""
^DD(442.01,"RQ",8)=""
^DD(442.01,"RQ",9.7)=""
^DD(442.01,"RQ",15)=""
^DD(442.01,"RQ",40)=""
^DD(442.01,"RQ",41)=""
^DD(442.01,"SB",442.05,1)=""
^DD(442.01,"SB",442.08,20)=""
^DD(442.01,"SB",442.147,47)=""
^DD(442.02,0)="DELIVERY LOCATIONS/DATES SUB-FIELD^^.01^1"
^DD(442.02,0,"NM","DELIVERY LOCATIONS/DATES")=""
^DD(442.02,0,"UP")="442"
^DD(442.02,.01,0)="DELIVERY LOCATIONS/DATES^W^^0;1^Q"
^DD(442.02,.01,3)="If there are multiple delivery locations and/or dates on the original request, the information is brought over into this field during P.O.entry/edit, from the request."
^DD(442.02,.01,21,0)="^^2^2^2930413^"
^DD(442.02,.01,21,1,0)=" "
^DD(442.02,.01,21,2,0)="Delivery locations and dates for P.O./Req."
^DD(442.02,.01,"DT")="2890601"
^DD(442.02,"B","DELIVERY LOCATIONS/DATES",.01)=""
^DD(442.02,"GL",0,1,.01)=""
^DD(442.025,0)="REMARKS SUB-FIELD^^.01^1"
^DD(442.025,0,"NM","REMARKS")=""
^DD(442.025,0,"UP")="442"
^DD(442.025,.01,0)="REMARKS^WL^^0;1^Q"
^DD(442.025,.01,21,0)="^^2^2^2930413^"
^DD(442.025,.01,21,1,0)=" "
^DD(442.025,.01,21,2,0)="Remarks about P.O./Req."
^DD(442.025,.01,"DT")="2870921"
^DD(442.025,"B","REMARKS",.01)=""
^DD(442.025,"GL",0,1,.01)=""
^DD(442.03,0)="DISCOUNT SUB-FIELD^NL^5^6"
^DD(442.03,0,"NM","DISCOUNT")=""
^DD(442.03,0,"UP")="442"
^DD(442.03,.01,0)="DISCOUNT ITEM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<1) X I $D(X) D ^PRCHDIS"
^DD(442.03,.01,1,0)="^.1^^-1"
^DD(442.03,.01,1,1,0)="^^TRIGGER^442^15"
^DD(442.03,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.03,.01,1,1,1.1) X ^DD(442.03,.01,1,1,1.4)"
^DD(442.03,.01,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14)+1"
^DD(442.03,.01,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.03,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14) S DIU=X K Y X ^DD(442.03,.01,1,1,2.1) X ^DD(442.03,.01,1,1,2.4)"
^DD(442.03,.01,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14)-1"
^DD(442.03,.01,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,13,99))  S DIH=DIH_U"" S %=$P(DIH,U,15,999),DIU=$P(DIH,U,14),^(0)=$P(DIH,U,1,13)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.03,.01,1,1,"CREATE VALUE")="lineItem+1"
^DD(442.03,.01,1,1,"DELETE VALUE")="lineItem-1"
^DD(442.03,.01,1,1,"FIELD")="lineItem Count"
^DD(442.03,.01,3)="Enter the line item numbers as: 1,2,3,4 or 1:4 or enter a 'Q' for a quantity discount"
^DD(442.03,.01,21,0)="^^1^1^2940707^^^"
^DD(442.03,.01,21,1,0)="This is the number of the discount item."
^DD(442.03,.01,"DT")="2940707"
^DD(442.03,1,0)="PERCENT/DOLLAR AMOUNT^RNJ5,2X^^0;2^S X=$TR(X,"","","""") K:$E(X,1)=""$""&(X?.E1"".""3N.N)!($E(X,1)=""$""&(($P(X,""$"",2)<.01)!($P(X,""$"",2)>999999.99))) X Q:'$D(X)  Q:$E(X,1)=""$""  S X=+X K:X>99.99!(X<.10)!(X?.E1"".""3N.N) X"
^DD(442.03,1,3)="Enter a number between .1 and 99.99 for a percent discount or enter '$' and a number from .01 to 999999.99 for a dollar discount."
^DD(442.03,1,21,0)="^^1^1^2970128^^^^"
^DD(442.03,1,21,1,0)="This is the percent/dollar amount of the discount item."
^DD(442.03,1,"DT")="2880718"
^DD(442.03,2,0)="DISCOUNT AMOUNT^NJ7,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(442.03,2,3)="Calculated by routine for entering/editing a P.O.  Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(442.03,2,21,0)="^^2^2^2930413^"
^DD(442.03,2,21,1,0)=" "
^DD(442.03,2,21,2,0)="Amount of discount for ITEM"
^DD(442.03,2,"DT")="2890926"
^DD(442.03,3,0)="ITEM COUNT^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.03,3,1,0)="^.1^^0"
^DD(442.03,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(442.03,3,21,0)="^^1^1^2910517^"
^DD(442.03,3,21,1,0)="This is the item count for this discount."
^DD(442.03,3,"DT")="2850613"
^DD(442.03,4,0)="CONTRACT #^F^^0;5^K:$L(X)>19!($L(X)<7) X"
^DD(442.03,4,3)="ANSWER MUST BE 7-15 CHARACTERS IN LENGTH"
^DD(442.03,4,21,0)="^^1^1^2910517^"
^DD(442.03,4,21,1,0)="This is the contract number for this discount."
^DD(442.03,5,0)="LINE ITEM^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.03,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(442.03,5,21,0)="^^1^1^2910517^"
^DD(442.03,5,21,1,0)="This is the line item number for this discount."
^DD(442.03,5,"DT")="2860205"
^DD(442.03,"B","CONTRACT #",4)=""
^DD(442.03,"B","DISCOUNT AMOUNT",2)=""
^DD(442.03,"B","DISCOUNT ITEM",.01)=""
^DD(442.03,"B","ITEM COUNT",3)=""
^DD(442.03,"B","LINE ITEM",5)=""
^DD(442.03,"B","PERCENT/DOLLAR AMOUNT",1)=""
^DD(442.03,"GL",0,1,.01)=""
^DD(442.03,"GL",0,2,1)=""
^DD(442.03,"GL",0,3,2)=""
^DD(442.03,"GL",0,4,3)=""
^DD(442.03,"GL",0,5,4)=""
^DD(442.03,"GL",0,6,5)=""
^DD(442.03,"IX",.01)=""
^DD(442.03,"RQ",1)=""
^DD(442.04,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(442.04,0,"NM","COMMENTS")=""
^DD(442.04,0,"UP")="442"
^DD(442.04,.01,0)="COMMENTS^W^^0;1^Q"
^DD(442.04,.01,21,0)="^^2^2^2930413^"
^DD(442.04,.01,21,1,0)=" "
^DD(442.04,.01,21,2,0)="General comments about P.O./Req."
^DD(442.04,"B","COMMENTS",.01)=""
^DD(442.04,"GL",0,1,.01)=""
^DD(442.041,0)="BOC SUB-FIELD^^2^3"
^DD(442.041,0,"DT")="2931229"
^DD(442.041,0,"IX","B",442.041,.01)=""
^DD(442.041,0,"NM","BOC")=""
^DD(442.041,0,"UP")="442"
^DD(442.041,.01,0)="SUBACCOUNT^AFX^^0;1^D EN1^PRCHCRD2"
^DD(442.041,.01,1,0)="^.1"
^DD(442.041,.01,1,1,0)="442.041^B"
^DD(442.041,.01,1,1,1)="S ^PRC(442,DA(1),22,""B"",$E(X,1,30),DA)="""""
^DD(442.041,.01,1,1,2)="K ^PRC(442,DA(1),22,""B"",$E(X,1,30),DA)"
^DD(442.041,.01,3)="Please select one of the BOCs listed."
^DD(442.041,.01,4)="D EN2^PRCHCRD2"
^DD(442.041,.01,21,0)="^^2^2^2941123^^^^"
^DD(442.041,.01,21,1,0)="This is the BOC for one or more LINE ITEM NUMBERs within this"
^DD(442.041,.01,21,2,0)="record."
^DD(442.041,.01,23,0)="^^3^3^2941123^^^^"
^DD(442.041,.01,23,1,0)="The user will be restricted to selecting one of the BOCs"
^DD(442.041,.01,23,2,0)="within this record.  If the user's selection isn't found within the"
^DD(442.041,.01,23,3,0)="'D' x-ref, found under the ITEM multiple, the entry will be killed."
^DD(442.041,.01,"DT")="2931229"
^DD(442.041,1,0)="SUBAMOUNT^NJ10,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<.01) X"
^DD(442.041,1,3)="Type a Dollar Amount between .01 and 9999999.99, 2 Decimal Digits"
^DD(442.041,1,21,0)="^^2^2^2941123^^^^"
^DD(442.041,1,21,1,0)="This will be the dollar amount reported to FMS for this BOC"
^DD(442.041,1,21,2,0)="within this record (purchase order)."
^DD(442.041,1,23,0)="^^2^2^2941123^^^^"
^DD(442.041,1,23,1,0)="This amount may come from the amounts of several ITEMs within this"
^DD(442.041,1,23,2,0)="record."
^DD(442.041,1,"DT")="2931228"
^DD(442.041,2,0)="FMS LINE^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.041,2,3)="Enter the FMS LINE number for this BOC, 1 to 999."
^DD(442.041,2,21,0)="^^1^1^2941123^^"
^DD(442.041,2,21,1,0)="It is the FMS Line Number for this BOC on this purchase order entry."
^DD(442.041,2,"DT")="2931228"
^DD(442.041,"B","FMS LINE",2)=""
^DD(442.041,"B","SUBACCOUNT",.01)=""
^DD(442.041,"B","SUBAMOUNT",1)=""
^DD(442.041,"GL",0,1,.01)=""
^DD(442.041,"GL",0,2,1)=""
^DD(442.041,"GL",0,3,2)=""
^DD(442.041,"IX",.01)=""
^DD(442.05,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(442.05,0,"DT")="2920225"
^DD(442.05,0,"NM","DESCRIPTION")=""
^DD(442.05,0,"UP")="442.01"
^DD(442.05,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(442.05,.01,21,0)="^^2^2^2930413^"
^DD(442.05,.01,21,1,0)=" "
^DD(442.05,.01,21,2,0)="Description of ITEM"
^DD(442.05,.01,"DT")="2920225"
^DD(442.05,"B","DESCRIPTION",.01)=""
^DD(442.05,"GL",0,1,.01)=""
^DD(442.06,0)="PROMPT PAYMENT TERMS SUB-FIELD^NL^3^4"
^DD(442.06,0,"DT")="2940526"
^DD(442.06,0,"ID","Z1")="S PRCDAY=$P(^(0),U,2) W ?30,$S(PRCDAY=+PRCDAY:""DAYS: ""_PRCDAY,1:""BY THE ""_PRCDAY)"
^DD(442.06,0,"NM","PROMPT PAYMENT TERMS")=""
^DD(442.06,0,"UP")="442"
^DD(442.06,.01,0)="PROMPT PAYMENT PERCENT^RFX^^0;1^K:+X'=X&(X'=""NET"") X I $D(X),+X=X K:X?.E1"".""3N.N!(X<.01)!(X>99) X"
^DD(442.06,.01,3)="Enter 'NET' or a number from .01 to 99 with up to two decimal places (ie 2 for two percent)."
^DD(442.06,.01,21,0)="^^1^1^2910517^"
^DD(442.06,.01,21,1,0)="This is the prompt payment percent."
^DD(442.06,.01,"DT")="2920513"
^DD(442.06,1,0)="DAYS (TERM)^NJ2,0X^^0;2^K:X>60!(X<1)!(X?.E1"".""1N.N) X I $D(X),+X'=X K:X'?.N2A X Q:'$D(X)  S Z0=$E(X,$L(X)-1,$L(X)),X=$E(X,1,$L(X)-2)_$S(""STst""[Z0:""st"",""NDnd""[Z0:""nd"",""RDrd""[Z0:""rd"",""THth""[Z0:""th"",1:""ZZZZZ"") K:$L(X)>4 X"
^DD(442.06,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 60, YOU MAY FOLLOW THE NUMBER BY ""st"",""nd"",""rd"", OR ""th"" TO INDICATE A DATE"
^DD(442.06,1,21,0)="^^1^1^2910517^"
^DD(442.06,1,21,1,0)="This is the term in days for prompt payment."
^DD(442.06,2,0)="CONTRACT #^FX^^0;3^Q:X=""ALL""  K:$L(X)>19!($L(X)<3)!('$D(^PRC(442,DA(1),2,""AC"",X))) X I $D(X) D TERM^PRCHDIS"
^DD(442.06,2,3)="ENTER AN EXISTING CONTRACT"
^DD(442.06,2,4)="W ""CHOOSE FROM: "" S Z0=0 F I=0:0 S Z0=$O(^PRC(442,D0,2,""AC"",Z0)) Q:Z0<0!(Z0="""")  W !,""        "",Z0"
^DD(442.06,2,21,0)="^^1^1^2941128^^^^"
^DD(442.06,2,21,1,0)="This is the contract for the prompt payment terms."
^DD(442.06,2,"DT")="2850430"
^DD(442.06,3,0)="ASTR.^F^^0;4^K:$L(X)>3!($L(X)<1) X"
^DD(442.06,3,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(442.06,3,21,0)="^^2^2^2910517^"
^DD(442.06,3,21,1,0)="This field contains internal program code that"
^DD(442.06,3,21,2,0)="controls printed output."
^DD(442.06,"B","ASTR.",3)=""
^DD(442.06,"B","CONTRACT #",2)=""
^DD(442.06,"B","DAYS (TERM)",1)=""
^DD(442.06,"B","PROMPT PAYMENT PERCENT",.01)=""
^DD(442.06,"GL",0,1,.01)=""
^DD(442.06,"GL",0,2,1)=""
^DD(442.06,"GL",0,3,2)=""
^DD(442.06,"GL",0,4,3)=""
^DD(442.06,"RQ",.01)=""
^DD(442.07,0)="AMENDMENT SUB-FIELD^NL^16^22"
^DD(442.07,0,"DT")="2940428"
^DD(442.07,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(442.07,0,"IX","B",442.07,.01)=""
^DD(442.07,0,"NM","AMENDMENT")=""
^DD(442.07,0,"UP")="442"
^DD(442.07,.01,0)="AMENDMENT^NJ2,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(442.07,.01,1,0)="^.1"
^DD(442.07,.01,1,1,0)="442.07^B"
^DD(442.07,.01,1,1,1)="S ^PRC(442,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(442.07,.01,1,1,2)="K ^PRC(442,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(442.07,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(442.07,.01,21,0)="^^1^1^2930127^^"
^DD(442.07,.01,21,1,0)="This is the amendment to the purchase order."
^DD(442.07,.01,"DT")="2860214"
^DD(442.07,1,0)="EFFECTIVE DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.07,1,21,0)="^^1^1^2910517^"
^DD(442.07,1,21,1,0)="This is the effective date of the amendment."
^DD(442.07,2,0)="AMOUNT CHANGED^NJ10,2^^0;3^K:+X'=X!(X>99999999)!(X<-99999999)!(X?.E1"".""3N.N) X"
^DD(442.07,2,3)="TYPE A NUMBER BETWEEN -99999999 AND 99999999"
^DD(442.07,2,21,0)="^^1^1^2910517^"
^DD(442.07,2,21,1,0)="This is the amount changed in the amendment."
^DD(442.07,2,"DT")="2850502"
^DD(442.07,3,0)="AUTHORITY^R*P442.2'X^PRCD(442.2,^0;4^S DIC(""S"")=$S('$D(PRCHREQ):""I Y<10"",1:""I Y>10,Y<20"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.07,3,3)=""
^DD(442.07,3,12)="CHOOSE A,B,C,D OR E"
^DD(442.07,3,12.1)="S DIC(""S"")=$S('$D(PRCHREQ):""I Y<10"",1:""I Y>10,Y<20"")"
^DD(442.07,3,21,0)="^^1^1^2940429^^"
^DD(442.07,3,21,1,0)="This is the type of amendment."
^DD(442.07,3,"DT")="2940429"
^DD(442.07,4,0)="TYPE COMMENTS^F^^0;7^K:$L(X)>150!($L(X)<3) X"
^DD(442.07,4,3)="ANSWER MUST BE 3-150 CHARACTERS IN LENGTH"
^DD(442.07,4,21,0)="^^1^1^2910517^^"
^DD(442.07,4,21,1,0)="These are comments regarding the type of amendment."
^DD(442.07,4,"DT")="2860109"
^DD(442.07,5,0)="CONTRACTOR REQUIRED TO SIGN?^S^Y:YES;N:NO;^0;5^Q"
^DD(442.07,5,21,0)="^^2^2^2930413^"
^DD(442.07,5,21,1,0)=" "
^DD(442.07,5,21,2,0)="User-entered flag for whether or not Contractor needs to sign P.O./Req."
^DD(442.07,5,"DT")="2860102"
^DD(442.07,5.2,0)="NUMBER OF COPIES^NJ1,0^^0;6^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.07,5.2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(442.07,5.2,21,0)="^^1^1^2910517^"
^DD(442.07,5.2,21,1,0)="This is the number of copies of the amendment needed."
^DD(442.07,5.2,"DT")="2850502"
^DD(442.07,6,0)="PA/PPM/AUTHORIZED BUYER^R*P200'^VA(200,^1;1^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ)  I $P(^(400),U,1)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.07,6,12)="Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s."
^DD(442.07,6,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ)  I $P(^(400),U,1)>2"""
^DD(442.07,6,21,0)="^^1^1^2930204^^"
^DD(442.07,6,21,1,0)="This is the purchasing agent making the amendment."
^DD(442.07,6,"DT")="2960611"
^DD(442.07,7,0)="VALIDATION CODE^FIO^^1;2^K:$L(X)>30!($L(X)<2) X"
^DD(442.07,7,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES6(D0,D1)"
^DD(442.07,7,2.1)="S Y=""/ES/""_$$DECODE^PRCHES6(D0,D1)"
^DD(442.07,7,3)="Answer must be 2-30 characters in length."
^DD(442.07,7,21,0)="^^2^2^2921116^^"
^DD(442.07,7,21,1,0)="This is the electronic signature of the purchasing agent "
^DD(442.07,7,21,2,0)="making the agreement."
^DD(442.07,7,"DT")="2921209"
^DD(442.07,7.5,0)="VALIDATION VERSION^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.07,7.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442.07,7.5,21,0)="^^2^2^2930413^"
^DD(442.07,7.5,21,1,0)=" "
^DD(442.07,7.5,21,2,0)="Version of validation code"
^DD(442.07,7.5,"DT")="2921209"
^DD(442.07,7.7,0)="ESIG CODE^F^^0;10^K:$L(X)>10!($L(X)<2) X"
^DD(442.07,7.7,3)="Answer must be 2-10 characters in length."
^DD(442.07,7.7,21,0)="^^2^2^2930413^"
^DD(442.07,7.7,21,1,0)=" "
^DD(442.07,7.7,21,2,0)="Esig code"
^DD(442.07,7.7,"DT")="2930412"
^DD(442.07,8,0)="DATE SIGNED^D^^1;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.07,8,.1)="VALIDATION DATE"
^DD(442.07,8,21,0)="^^1^1^2921116^^"
^DD(442.07,8,21,1,0)="This is the date the purchasing agent signed the amendment."
^DD(442.07,8,"DT")="2921209"
^DD(442.07,9,0)="AMENDMENT/ADJUSTMENT STATUS^P442.3'^PRCD(442.3,^1;4^Q"
^DD(442.07,9,21,0)="^^1^1^2940712^^^"
^DD(442.07,9,21,1,0)="This is the status of the amendment/adjustment."
^DD(442.07,9,"DT")="2940712"
^DD(442.07,10,0)="FISCAL APPROVED BY^P200'^VA(200,^1;5^Q"
^DD(442.07,10,21,0)="^^2^2^2910517^"
^DD(442.07,10,21,1,0)="This is the Fiscal Service person approving the "
^DD(442.07,10,21,2,0)="amendment."
^DD(442.07,10,"DT")="2921116"
^DD(442.07,11,0)="FISCAL VALIDATION CODE^FIO^^1;6^K:$L(X)>30!($L(X)<2) X"
^DD(442.07,11,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES7(D0,D1)"
^DD(442.07,11,2.1)="S Y=""/ES/""_$$DECODE^PRCHES7(D0,D1)"
^DD(442.07,11,3)="Answer must be 2-30 characters in length."
^DD(442.07,11,21,0)="^^2^2^2910517^"
^DD(442.07,11,21,1,0)="This is the electronic signature code of the person"
^DD(442.07,11,21,2,0)="approving the amendment."
^DD(442.07,11,"DT")="2921209"
^DD(442.07,11.5,0)="FISCAL VALIDATION VERSION^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.07,11.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442.07,11.5,21,0)="^^2^2^2930413^"
^DD(442.07,11.5,21,1,0)=" "
^DD(442.07,11.5,21,2,0)="Version of validation code"
^DD(442.07,11.5,"DT")="2921209"
^DD(442.07,11.7,0)="FISCAL ESIG CODE^F^^1;7^K:$L(X)>30!($L(X)<2) X"
^DD(442.07,11.7,3)="Answer must be 2-30 characters in length."
^DD(442.07,11.7,21,0)="^^3^3^2930414^"
^DD(442.07,11.7,21,1,0)=" "
^DD(442.07,11.7,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(442.07,11.7,21,3,0)="integrity of this record."
^DD(442.07,11.7,"DT")="2930414"
^DD(442.07,11.8,0)="FISCAL VALIDATION DATE^D^^1;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(442.07,11.8,21,0)="^^2^2^2930414^"
^DD(442.07,11.8,21,1,0)=" "
^DD(442.07,11.8,21,2,0)="Date/time of validation of ESIG"
^DD(442.07,11.8,"DT")="2921209"
^DD(442.07,12,0)="DESCRIPTION^442.13^^2;0"
^DD(442.07,12,21,0)="^^1^1^2910517^"
^DD(442.07,12,21,1,0)="This is a description of the amendment."
^DD(442.07,13,0)="ADJUSTMENT VOUCHER^S^Y:YES;^0;8^Q"
^DD(442.07,13,21,0)="^^1^1^2910517^"
^DD(442.07,13,21,1,0)="This is the adjustment voucher."
^DD(442.07,13,"DT")="2861205"
^DD(442.07,14,0)="CHANGES^442.714A^^3;0"
^DD(442.07,14,21,0)="^^1^1^2941125^^^^"
^DD(442.07,14,21,1,0)="This multiple stores all the changes belonging to this amendment."
^DD(442.07,14,23,0)="^^2^2^2941125^^^^"
^DD(442.07,14,23,1,0)="The information within this multiple comes from file 443.6 after"
^DD(442.07,14,23,2,0)="the amendment is obligated."
^DD(442.07,16,0)="JUSTIFICATION^RF^^4;1^K:$L(X)>240!($L(X)<1) X"
^DD(442.07,16,3)="Answer must be 1-240 characters in length."
^DD(442.07,16,21,0)="^^2^2^2941123^^^"
^DD(442.07,16,21,1,0)="The reason for amendment of the purchase order."
^DD(442.07,16,21,2,0)="Answer must be 1-240 characters in length."
^DD(442.07,16,"DT")="2940428"
^DD(442.07,"B","ADJUSTMENT VOUCHER",13)=""
^DD(442.07,"B","AMENDMENT",.01)=""
^DD(442.07,"B","AMENDMENT/ADJUSTMENT STATUS",9)=""
^DD(442.07,"B","AMOUNT CHANGED",2)=""
^DD(442.07,"B","AUTHORITY",3)=""
^DD(442.07,"B","CHANGES",14)=""
^DD(442.07,"B","CONTRACTOR REQUIRED TO SIGN?",5)=""
^DD(442.07,"B","DATE SIGNED",8)=""
^DD(442.07,"B","DESCRIPTION",12)=""
^DD(442.07,"B","EFFECTIVE DATE",1)=""
^DD(442.07,"B","ESIG CODE",7.7)=""
^DD(442.07,"B","FISCAL APPROVED BY",10)=""
^DD(442.07,"B","FISCAL ESIG CODE",11.7)=""
^DD(442.07,"B","FISCAL VALIDATION CODE",11)=""
^DD(442.07,"B","FISCAL VALIDATION DATE",11.8)=""
^DD(442.07,"B","FISCAL VALIDATION VERSION",11.5)=""
^DD(442.07,"B","JUSTIFICATION",16)=""
^DD(442.07,"B","NUMBER OF COPIES",5.2)=""
^DD(442.07,"B","PA/PPM/AUTHORIZED BUYER",6)=""
^DD(442.07,"B","TYPE COMMENTS",4)=""
^DD(442.07,"B","VALIDATION CODE",7)=""
^DD(442.07,"B","VALIDATION DATE",8)="1"
^DD(442.07,"B","VALIDATION VERSION",7.5)=""
^DD(442.07,"GL",0,1,.01)=""
^DD(442.07,"GL",0,2,1)=""
^DD(442.07,"GL",0,3,2)=""
^DD(442.07,"GL",0,4,3)=""
^DD(442.07,"GL",0,5,5)=""
^DD(442.07,"GL",0,6,5.2)=""
^DD(442.07,"GL",0,7,4)=""
^DD(442.07,"GL",0,8,13)=""
^DD(442.07,"GL",0,9,7.5)=""
^DD(442.07,"GL",0,10,7.7)=""
^DD(442.07,"GL",0,11,11.5)=""
^DD(442.07,"GL",1,1,6)=""
^DD(442.07,"GL",1,2,7)=""
^DD(442.07,"GL",1,3,8)=""
^DD(442.07,"GL",1,4,9)=""
^DD(442.07,"GL",1,5,10)=""
^DD(442.07,"GL",1,6,11)=""
^DD(442.07,"GL",1,7,11.7)=""
^DD(442.07,"GL",1,8,11.8)=""
^DD(442.07,"GL",2,0,12)=""
^DD(442.07,"GL",3,0,14)=""
^DD(442.07,"GL",4,1,16)=""
^DD(442.07,"IX",.01)=""
^DD(442.07,"RQ",3)=""
^DD(442.07,"RQ",6)=""
^DD(442.07,"RQ",16)=""
^DD(442.07,"SB",442.13,12)=""
^DD(442.07,"SB",442.714,14)=""
^DD(442.08,0)="DATE RECEIVED SUB-FIELD^NL^7^8"
^DD(442.08,0,"DT")="2940818"
^DD(442.08,0,"IX","AC",442.08,3)=""
^DD(442.08,0,"NM","DATE RECEIVED")=""
^DD(442.08,0,"UP")="442.01"
^DD(442.08,.01,0)="DATE RECEIVED^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.08,.01,1,0)="^.1^^-1"
^DD(442.08,.01,1,1,0)="442.01^AB"
^DD(442.08,.01,1,1,1)="S ^PRC(442,DA(2),2,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(442.08,.01,1,1,2)="K ^PRC(442,DA(2),2,""AB"",$E(X,1,30),DA(1),DA)"
^DD(442.08,.01,1,1,"%D",0)="^^2^2^2930628^"
^DD(442.08,.01,1,1,"%D",1,0)="This X-REF keeps a non-lookup list of all the DATE RECEIVED for"
^DD(442.08,.01,1,1,"%D",2,0)="each partial receipt of an item within a PO."
^DD(442.08,.01,21,0)="^^1^1^2910517^"
^DD(442.08,.01,21,1,0)="This is the date the item was received."
^DD(442.08,.01,"DT")="2860430"
^DD(442.08,1,0)="QTY BEING RECEIVED^RNJ9,2^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(442.08,1,1,0)="^.1"
^DD(442.08,1,1,1,0)="^^TRIGGER^442.01^11"
^DD(442.08,1,1,1,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(442.08,1,1,1,1.1) X ^DD(442.08,1,1,1,1.4)"
^DD(442.08,1,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,8)+DIV"
^DD(442.08,1,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U"" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(2)=$P(DIH,U,1,7)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442.01,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.08,1,1,1,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,8) S DIU=X K Y X ^DD(442.08,1,1,1,2.1) X ^DD(442.08,1,1,1,2.4)"
^DD(442.08,1,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRC(442,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,8)-DIV"
^DD(442.08,1,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,7,99))  S DIH=DIH_U"" S %=$P(DIH,U,9,999),DIU=$P(DIH,U,8),^(2)=$P(DIH,U,1,7)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442.01,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.08,1,1,1,"CREATE VALUE")="QUANTITY PREVIOUSLY+QUANTITY"
^DD(442.08,1,1,1,"DELETE VALUE")="QUANTITY PREVIOUSLY-QUANTITY"
^DD(442.08,1,1,1,"FIELD")="QUANTITY PREVIOUSLY RECEIVED"
^DD(442.08,1,3)="Enter the quantity (a number between .01 and 999,999 with up to two decimal places)"
^DD(442.08,1,21,0)="^^1^1^2910517^"
^DD(442.08,1,21,1,0)="This is the quantity of the item being received."
^DD(442.08,1,"DT")="2860205"
^DD(442.08,2,0)="AMOUNT^NJ9,2^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(442.08,2,3)="TYPE A NUMBER BETWEEN 0 AND 99999999"
^DD(442.08,2,21,0)="^^1^1^2910517^"
^DD(442.08,2,21,1,0)="This is the amount for the quantity being received."
^DD(442.08,2,"DT")="2850502"
^DD(442.08,3,0)="PARTIAL NUMBER^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.08,3,1,0)="^.1^^-1"
^DD(442.08,3,1,2,0)="442.08^AC"
^DD(442.08,3,1,2,1)="S ^PRC(442,DA(2),2,DA(1),3,""AC"",$E(X,1,30),DA)="""""
^DD(442.08,3,1,2,2)="K ^PRC(442,DA(2),2,DA(1),3,""AC"",$E(X,1,30),DA)"
^DD(442.08,3,1,2,"%D",0)="^^2^2^2930628^"
^DD(442.08,3,1,2,"%D",1,0)="This X-REF is a non-lookup list of all PARTIAL NUMBERs"
^DD(442.08,3,1,2,"%D",2,0)="for all receipts within each ITEM for this PO."
^DD(442.08,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(442.08,3,21,0)="^^1^1^2910517^"
^DD(442.08,3,21,1,0)="This is the partial shipment number."
^DD(442.08,3,"DT")="2860301"
^DD(442.08,4,0)="DISCOUNTED AMOUNT^NJ11,3^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(442.08,4,3)="TYPE A NUMBER BETWEEN 0 AND 99999999"
^DD(442.08,4,21,0)="^^1^1^2910517^"
^DD(442.08,4,21,1,0)="This is the discounted amount."
^DD(442.08,4,"DT")="2860301"
^DD(442.08,5,0)="RECEIVING CODE SHEET NO.^P423'^PRCF(423,^0;6^Q"
^DD(442.08,5,3)="Pointer to CALM/LOG Code Sheet file (423) for the LOG Receipts code sheet created for the receipt of this line/item."
^DD(442.08,5,21,0)="^^1^1^2910517^"
^DD(442.08,5,21,1,0)="This is the receiving code sheet number."
^DD(442.08,5,"DT")="2890329"
^DD(442.08,6,0)="ADJUSTED QUANTITY RECEIVED^NJ9,2^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(442.08,6,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(442.08,6,21,0)="1^^2^2^2941125^"
^DD(442.08,6,21,1,0)="This is the QUANTITY RECEIVED after an adjustment voucher is done on the "
^DD(442.08,6,21,2,0)="purchase order."
^DD(442.08,6,"DT")="2941125"
^DD(442.08,7,0)="ADJUSTED AMOUNT^NJ8,0^^0;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.08,7,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(442.08,7,21,0)="^^2^2^2941125^"
^DD(442.08,7,21,1,0)="The dollar amount adjusted after doing an adjustment voucher on the purchase"
^DD(442.08,7,21,2,0)="order."
^DD(442.08,7,"DT")="2940818"
^DD(442.08,"B","ADJUSTED AMOUNT",7)=""
^DD(442.08,"B","ADJUSTED QUANTITY RECEIVED",6)=""
^DD(442.08,"B","AMOUNT",2)=""
^DD(442.08,"B","DATE RECEIVED",.01)=""
^DD(442.08,"B","DISCOUNTED AMOUNT",4)=""
^DD(442.08,"B","PARTIAL NUMBER",3)=""
^DD(442.08,"B","QTY BEING RECEIVED",1)=""
^DD(442.08,"B","RECEIVING CODE SHEET NO.",5)=""
^DD(442.08,"GL",0,1,.01)=""
^DD(442.08,"GL",0,2,1)=""
^DD(442.08,"GL",0,3,2)=""
^DD(442.08,"GL",0,4,3)=""
^DD(442.08,"GL",0,5,4)=""
^DD(442.08,"GL",0,6,5)=""
^DD(442.08,"GL",0,7,6)=""
^DD(442.08,"GL",0,8,7)=""
^DD(442.08,"IX",.01)=""
^DD(442.08,"IX",1)=""
^DD(442.08,"IX",3)=""
^DD(442.08,"RQ",1)=""
^DD(442.09,0)="OBLIGATION DATA SUB-FIELD^NL^10^13"
^DD(442.09,0,"DT")="2950816"
^DD(442.09,0,"NM","OBLIGATION DATA")=""
^DD(442.09,0,"UP")="442"
^DD(442.09,.01,0)="TT/DATE/REF^MF^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(442.09,.01,3)="Contains CALM trx.status code_"".""_CALM date_"".""_6 char.ref.no._"".""_external date/time (EX.: 921.00.063089.A90065.JUN 30,1989@10:08:05)  Answer must be 1-45 characters in length."
^DD(442.09,.01,21,0)="^^2^2^2940406^^^"
^DD(442.09,.01,21,1,0)="This is the transaction status code, date and time,"
^DD(442.09,.01,21,2,0)="and reference number for this transaction."
^DD(442.09,.01,"DT")="2891016"
^DD(442.09,1,0)="OBLIGATED BY^P200'^VA(200,^0;2^Q"
^DD(442.09,1,21,0)="^^2^2^2921116^^"
^DD(442.09,1,21,1,0)="This is the name of the person obligating the"
^DD(442.09,1,21,2,0)="funds."
^DD(442.09,1,"DT")="2921116"
^DD(442.09,2,0)="TRANSACTION AMOUNT^NJ13,2^^0;3^K:+X'=X!(X>9999999999)!(X<-99999999999)!(X?.E1"".""3N.N) X"
^DD(442.09,2,3)="TYPE A NUMBER BETWEEN -99999999999 AND 9999999999"
^DD(442.09,2,21,0)="^^1^1^2910517^"
^DD(442.09,2,21,1,0)="This is the transaction amount."
^DD(442.09,2,"DT")="2850502"
^DD(442.09,3,0)="CODE SHEET NUMBER^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(442.09,3,1,0)="^.1"
^DD(442.09,3,1,1,0)="442^AJ"
^DD(442.09,3,1,1,1)="S ^PRC(442,""AJ"",$E(X,1,30),DA(1),DA)="""""
^DD(442.09,3,1,1,2)="K ^PRC(442,""AJ"",$E(X,1,30),DA(1),DA)"
^DD(442.09,3,1,1,"DT")="2940602"
^DD(442.09,3,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(442.09,3,21,0)="^^1^1^2910517^"
^DD(442.09,3,21,1,0)="This is the code sheet number."
^DD(442.09,3,"DT")="2940602"
^DD(442.09,4,0)="VALIDATION CODE^FOI^^0;5^K:$L(X)>50!($L(X)<3) X"
^DD(442.09,4,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES4(D0,D1)"
^DD(442.09,4,2.1)="S Y=""/ES/""_$$DECODE^PRCHES4(D0,D1)"
^DD(442.09,4,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(442.09,4,21,0)="^^1^1^2910517^"
^DD(442.09,4,21,1,0)="This is the electronic signature of the person approving the obligation."
^DD(442.09,4,"DT")="2921209"
^DD(442.09,4.5,0)="VALIDATION VERSION^NJ2,0^^0;7^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.09,4.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442.09,4.5,21,0)="^^2^2^2930414^"
^DD(442.09,4.5,21,1,0)=" "
^DD(442.09,4.5,21,2,0)="Version of validation of ESIG"
^DD(442.09,4.5,"DT")="2921209"
^DD(442.09,4.7,0)="ESIG CODE^F^^0;8^K:$L(X)>10!($L(X)<2) X"
^DD(442.09,4.7,3)="Answer must be 2-10 characters in length."
^DD(442.09,4.7,21,0)="^^3^3^2930414^"
^DD(442.09,4.7,21,1,0)=" "
^DD(442.09,4.7,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(442.09,4.7,21,3,0)="integrity of this record."
^DD(442.09,4.7,"DT")="2930412"
^DD(442.09,5,0)="DATE SIGNED^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(442.09,5,.1)="VALIDATION DATE"
^DD(442.09,5,21,0)="^^1^1^2940406^^^"
^DD(442.09,5,21,1,0)="This is the date this obligation was signed."
^DD(442.09,5,"DT")="2921209"
^DD(442.09,6,0)="GECS IEN^NJ9,0^^0;9^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.09,6,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(442.09,6,21,0)="^^1^1^2941123^"
^DD(442.09,6,21,1,0)="This is the Generic Code Sheet's internal entry number."
^DD(442.09,6,"DT")="2940721"
^DD(442.09,7,0)="AMENDMENT NUMBER^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.09,7,3)="Enter the AMENDMENT NUMBER that created this OBLIGATION multiple."
^DD(442.09,7,21,0)="^^2^2^2940907^"
^DD(442.09,7,21,1,0)="This field preserves the relationship between the AMENDMENT and the"
^DD(442.09,7,21,2,0)="OBLIGATION DATA entry."
^DD(442.09,7,23,0)="^^2^2^2940907^"
^DD(442.09,7,23,1,0)="This field is the internal number of the AMENDMENT that caused this"
^DD(442.09,7,23,2,0)="OBLIGATION DATA multiple to be created."
^DD(442.09,7,"DT")="2940907"
^DD(442.09,8,0)="1358 ADJUSTMENT^P410'^PRCS(410,^0;11^Q"
^DD(442.09,8,21,0)="^^2^2^2940909^"
^DD(442.09,8,21,1,0)="This field points to the entry in file 410 that caused this obligation"
^DD(442.09,8,21,2,0)="data record to be created."
^DD(442.09,8,23,0)="^^2^2^2940909^"
^DD(442.09,8,23,1,0)="This field contains the link back to the 1358 adjustment record in file"
^DD(442.09,8,23,2,0)="410."
^DD(442.09,8,"DT")="2940909"
^DD(442.09,9,0)="OBLIGATION PROCESSING DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.09,9,21,0)="^^4^4^2950811^^^"
^DD(442.09,9,21,1,0)="The Obligation Processing Date is the transaction date that is sent to FMS"
^DD(442.09,9,21,2,0)="on obligated documents.  It is the date that is entered by the user at"
^DD(442.09,9,21,3,0)="obligation and will be used by FMS to determine which accounting period "
^DD(442.09,9,21,4,0)="will be affected."
^DD(442.09,9,"DT")="2950807"
^DD(442.09,10,0)="ACCOUNTING PERIOD^DX^^0;13^S %DT=""E"" D ^%DT S X=Y K:3201200<X!(2940100>X) X I $D(X) K:$E(X,4,5)<1 X S:$D(X) X=$E(X,1,5)_""00"""
^DD(442.09,10,3)="Enter calendar month and year of Accounting Period (i.e. 10/94 for Oct 1994)"
^DD(442.09,10,21,0)="^^4^4^2950816^^^^"
^DD(442.09,10,21,1,0)="Enter the calendar month and year of the accounting period you would like"
^DD(442.09,10,21,2,0)="this obligation document transaction to affect in FMS."
^DD(442.09,10,21,3,0)="Note:  For the obligation document to be accepted by FMS, the value must"
^DD(442.09,10,21,4,0)="be an Accounting Period which is open at the time of receipt."
^DD(442.09,10,23,0)="^^5^5^2950816^"
^DD(442.09,10,23,1,0)="For ease of data entry, this field stores calendar month and calendar year"
^DD(442.09,10,23,2,0)=".  During transmission to FMS, this value is converted to Fiscal Year and"
^DD(442.09,10,23,3,0)="the Sequence number of that month within that Fiscal Year before being"
^DD(442.09,10,23,4,0)="placed in the transmission record.  (i.e. Oct 1994 is converted to fiscal"
^DD(442.09,10,23,5,0)="year 95 and month 01.)"
^DD(442.09,10,"DT")="2950816"
^DD(442.09,"B","1358 ADJUSTMENT",8)=""
^DD(442.09,"B","ACCOUNTING PERIOD",10)=""
^DD(442.09,"B","AMENDMENT NUMBER",7)=""
^DD(442.09,"B","CODE SHEET NUMBER",3)=""
^DD(442.09,"B","DATE SIGNED",5)=""
^DD(442.09,"B","ESIG CODE",4.7)=""
^DD(442.09,"B","GECS IEN",6)=""
^DD(442.09,"B","OBLIGATED BY",1)=""
^DD(442.09,"B","OBLIGATION PROCESSING DATE",9)=""
^DD(442.09,"B","TRANSACTION AMOUNT",2)=""
^DD(442.09,"B","TT/DATE/REF",.01)=""
^DD(442.09,"B","VALIDATION CODE",4)=""
^DD(442.09,"B","VALIDATION DATE",5)="1"
^DD(442.09,"B","VALIDATION VERSION",4.5)=""
^DD(442.09,"GL",0,1,.01)=""
^DD(442.09,"GL",0,2,1)=""
^DD(442.09,"GL",0,3,2)=""
^DD(442.09,"GL",0,4,3)=""
^DD(442.09,"GL",0,5,4)=""
^DD(442.09,"GL",0,6,5)=""
^DD(442.09,"GL",0,7,4.5)=""
^DD(442.09,"GL",0,8,4.7)=""
^DD(442.09,"GL",0,9,6)=""
^DD(442.09,"GL",0,10,7)=""
^DD(442.09,"GL",0,11,8)=""
^DD(442.09,"GL",0,12,9)=""
^DD(442.09,"GL",0,13,10)=""
^DD(442.09,"IX",3)=""
^DD(442.1,0)="AMOUNT SUB-FIELD^NL^3^6"
^DD(442.1,0,"NM","AMOUNT")=""
^DD(442.1,0,"UP")="442"
^DD(442.1,.01,0)="AMOUNT^NJ10,2^^0;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999999)!(X<0) X"
^DD(442.1,.01,1,0)="^.1"
^DD(442.1,.01,1,1,0)="^^TRIGGER^442^91"
^DD(442.1,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(442.1,.01,1,1,1.4)"
^DD(442.1,.01,1,1,1.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,14,99))  S DIH=DIH_U"" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=91 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.1,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(442,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15) S DIU=X K Y S X=DIV S X=DIU-DIV X ^DD(442.1,.01,1,1,2.4)"
^DD(442.1,.01,1,1,2.4)="S DIH=$S($D(^PRC(442,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,14,99))  S DIH=DIH_U"" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"""":U_%,1:""""),DIH=442,DIG=91 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(442.1,.01,1,1,"CREATE VALUE")="TOTAL AMOUNT+AMOUNT"
^DD(442.1,.01,1,1,"DELETE VALUE")="TOTAL AMOUNT-AMOUNT"
^DD(442.1,.01,1,1,"FIELD")="TOTAL AMOUNT"
^DD(442.1,.01,3)="TYPE A NUMBER BETWEEN 0 AND 9999999.99"
^DD(442.1,.01,21,0)="^^1^1^2910517^"
^DD(442.1,.01,21,1,0)="This is the amount of the purchase order/partial."
^DD(442.1,.01,"DT")="2851130"
^DD(442.1,1,0)="TYPE CODE^R*P420.6'I^PRCD(420.6,^0;2^S DIC(""S"")=""I $D(PRCHDT),$D(PRCHN(""""MB"""")),$D(PRCH) D EN7^PRCHNPO2:'PRCHDT,PROC^PRCHFPDS:PRCHDT"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.1,1,12)="MUST BE A TYPE CODE"
^DD(442.1,1,12.1)="S DIC(""S"")=""I $D(PRCHDT),$D(PRCHN(""""MB"""")),$D(PRCH) D EN7^PRCHNPO2:'PRCHDT,PROC^PRCHFPDS:PRCHDT"""
^DD(442.1,1,21,0)="^^2^2^2930407^^"
^DD(442.1,1,21,1,0)="This is the procurement method/type of business"
^DD(442.1,1,21,2,0)="for FY89."
^DD(442.1,1,"DT")="2930407"
^DD(442.1,1.1,0)="COMP. STATUS/BUSINESS^R*P420.6'^PRCD(420.6,^0;4^S DIC(""S"")=""I $D(PRCHDT),$D(PRCHN(""""MB"""")) D COMP2^PRCHFPDS"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.1,1.1,12)="Enter Competitive Status only"
^DD(442.1,1.1,12.1)="S DIC(""S"")=""I $D(PRCHDT),$D(PRCHN(""""MB"""")) D COMP2^PRCHFPDS"""
^DD(442.1,1.1,21,0)="^^1^1^2910517^"
^DD(442.1,1.1,21,1,0)="This is the competitive status."
^DD(442.1,1.1,"DT")="2880815"
^DD(442.1,1.2,0)="PREF. PROGRAM^R*P420.6'^PRCD(420.6,^0;5^S DIC(""S"")=""I $D(PRCHN(""""MB"""")),$D(PRCHDT) D PREF2^PRCHFPDS"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.1,1.2,12)="Only the listed codes are allowed"
^DD(442.1,1.2,12.1)="S DIC(""S"")=""I $D(PRCHN(""""MB"""")),$D(PRCHDT) D PREF2^PRCHFPDS"""
^DD(442.1,1.2,21,0)="^^2^2^2910517^"
^DD(442.1,1.2,21,1,0)="This is the preference program of the vendor"
^DD(442.1,1.2,21,2,0)="for FPDS reporting."
^DD(442.1,1.2,"DT")="2880811"
^DD(442.1,2,0)="CONTRACT #^F^^0;3^K:$L(X)>19!($L(X)<3) X"
^DD(442.1,2,3)="ANSWER MUST BE 3-17 CHARACTERS IN LENGTH"
^DD(442.1,2,21,0)="^^1^1^2910517^"
^DD(442.1,2,21,1,0)="This is the contract number for this purchase order."
^DD(442.1,2,"DT")="2851011"
^DD(442.1,3,0)="BREAKOUT CODE^442.16PA^^1;0"
^DD(442.1,3,21,0)="^^1^1^2910517^^"
^DD(442.1,3,21,1,0)="This is the breakout code for FPDS reporting."
^DD(442.1,"B","AMOUNT",.01)=""
^DD(442.1,"B","BREAKOUT CODE",3)=""
^DD(442.1,"B","COMP. STATUS/BUSINESS",1.1)=""
^DD(442.1,"B","CONTRACT #",2)=""
^DD(442.1,"B","PREF. PROGRAM",1.2)=""
^DD(442.1,"B","TYPE CODE",1)=""
^DD(442.1,"GL",0,1,.01)=""
^DD(442.1,"GL",0,2,1)=""
^DD(442.1,"GL",0,3,2)=""
^DD(442.1,"GL",0,4,1.1)=""
^DD(442.1,"GL",0,5,1.2)=""
^DD(442.1,"GL",1,0,3)=""
^DD(442.1,"IX",.01)=""
^DD(442.1,"RQ",1)=""
^DD(442.1,"RQ",1.1)=""
^DD(442.1,"RQ",1.2)=""
^DD(442.1,"SB",442.16,3)=""
^DD(442.11,0)="PARTIAL SUB-FIELD^NL^24^39"
^DD(442.11,0,"DT")="2950130"
^DD(442.11,0,"ID",8)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(442.11,8,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,9)_"""":"""",2),$C(59),1)"")"
^DD(442.11,0,"NM","PARTIAL")=""
^DD(442.11,0,"UP")="442"
^DD(442.11,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.11,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(442.11,.001,21,0)="^^1^1^2910517^"
^DD(442.11,.001,21,1,0)="This is the number of this partial."
^DD(442.11,.001,"DT")="2851004"
^DD(442.11,.01,0)="DATE^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.11,.01,3)=""
^DD(442.11,.01,21,0)="^^1^1^2910517^"
^DD(442.11,.01,21,1,0)="This is the date of this partial."
^DD(442.11,.01,"DT")="2860920"
^DD(442.11,.05,0)="SCHEDULED DELIVERY DATE^DX^^1;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X),$P(^PRC(442,DA(1),0),U,1)]"""" K:'$O(^PRC(442.8,""AF"",$P(^(0),U,1),X,0)) X"
^DD(442.11,.05,3)="If this order has been set up with a multiple delivery date/location schedule, enter the SCHEDULED (not the actual) delivery date for this partial."
^DD(442.11,.05,4)="D DSPD^PRCHREC4"
^DD(442.11,.05,21,0)="^^1^1^2920318^"
^DD(442.11,.05,21,1,0)="This is the date scheduled for delivery of the partial order."
^DD(442.11,.05,"DT")="2900125"
^DD(442.11,1,0)="SUBACCOUNT1^P420.2'^PRCD(420.2,^0;2^Q"
^DD(442.11,1,3)=""
^DD(442.11,1,21,0)="^^2^2^2910517^"
^DD(442.11,1,21,1,0)="This is the first sub-account on this partial,"
^DD(442.11,1,21,2,0)="if applicable."
^DD(442.11,1,"DT")="2850502"
^DD(442.11,2,0)="SUBAMOUNT1^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(442.11,2,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(442.11,2,21,0)="^^1^1^2910517^"
^DD(442.11,2,21,1,0)="This is the amount charged to the first sub-account."
^DD(442.11,2,"DT")="2850502"
^DD(442.11,3,0)="SUBACCOUNT2^P420.2'^PRCD(420.2,^0;4^Q"
^DD(442.11,3,3)=""
^DD(442.11,3,21,0)="^^2^2^2930408^^^"
^DD(442.11,3,21,1,0)="This is the second sub-account on this partial,"
^DD(442.11,3,21,2,0)="if applicable."
^DD(442.11,3,"DT")="2850502"
^DD(442.11,4,0)="SUBAMOUNT2^NJ9,2^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(442.11,4,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(442.11,4,21,0)="^^1^1^2910517^"
^DD(442.11,4,21,1,0)="This is the amount charged to the second sub-account."
^DD(442.11,4,"DT")="2850502"
^DD(442.11,5,0)="PROCESSED BY FISCAL?^S^Y:YES;^0;6^Q"
^DD(442.11,5,21,0)="^^2^2^2910517^"
^DD(442.11,5,21,1,0)="This indicates whether or not the transaction has been"
^DD(442.11,5,21,2,0)="processed by Fiscal."
^DD(442.11,5,"DT")="2851126"
^DD(442.11,6,0)="WAREHOUSE APPROVED BY^R*P200'^VA(200,^0;7^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)=1!($P(^(400),U,1)=4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.11,6,12)="Must be a Warehouse Person or Manager"
^DD(442.11,6,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)=1!($P(^(400),U,1)=4)"""
^DD(442.11,6,21,0)="^^2^2^2921113^^"
^DD(442.11,6,21,1,0)="This is the warehouse employee who approved the"
^DD(442.11,6,21,2,0)="transaction."
^DD(442.11,6,"DT")="2921218"
^DD(442.11,7,0)="VALIDATION CODE^FOI^^0;8^K:$L(X)>30!($L(X)<2) X"
^DD(442.11,7,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES1(D0,D1)"
^DD(442.11,7,2.1)="S Y=""/ES/""_$$DECODE^PRCHES1(D0,D1)"
^DD(442.11,7,3)="Answer must be 2-30 characters in length."
^DD(442.11,7,8.5)="^"
^DD(442.11,7,9)="^"
^DD(442.11,7,21,0)="^^2^2^2921113^^"
^DD(442.11,7,21,1,0)="This is the electronic signature of the approving"
^DD(442.11,7,21,2,0)="official."
^DD(442.11,7,"DT")="2921209"
^DD(442.11,7.5,0)="VALIDATION VERSION^NJ2,0^^1;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.11,7.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442.11,7.5,21,0)="^^2^2^2930414^"
^DD(442.11,7.5,21,1,0)=" "
^DD(442.11,7.5,21,2,0)="Version of validation of ESIG"
^DD(442.11,7.5,"DT")="2921209"
^DD(442.11,7.7,0)="ESIG CODE^F^^1;10^K:$L(X)>10!($L(X)<2) X"
^DD(442.11,7.7,3)="Answer must be 2-10 characters in length."
^DD(442.11,7.7,21,0)="^^3^3^2930414^"
^DD(442.11,7.7,21,1,0)=" "
^DD(442.11,7.7,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(442.11,7.7,21,3,0)="integrity of this record."
^DD(442.11,7.7,"DT")="2930412"
^DD(442.11,8,0)="FINAL^S^F:FINAL;^0;9^Q"
^DD(442.11,8,21,0)="^^2^2^2910517^"
^DD(442.11,8,21,1,0)="This indicates that the final delivery has been"
^DD(442.11,8,21,2,0)="made."
^DD(442.11,8,"DT")="2860906"
^DD(442.11,9,0)="OVERAGE^S^Y:YES;^0;10^Q"
^DD(442.11,9,21,0)="^^1^1^2910517^"
^DD(442.11,9,21,1,0)="This indicates that there was a delivery overage."
^DD(442.11,9,"DT")="2861124"
^DD(442.11,10,0)="WAREHOUSE DATE/TIME SIGNED^D^^0;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.11,10,.1)="VALIDATION DATE/TIME"
^DD(442.11,10,21,0)="^^2^2^2921113^^"
^DD(442.11,10,21,1,0)="This is the date/time the warehouse signed off on"
^DD(442.11,10,21,2,0)="the order."
^DD(442.11,10,"DT")="2921209"
^DD(442.11,11,0)="TOTAL AMOUNT^NJ10,2^^0;12^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999999)!(X<0) X"
^DD(442.11,11,3)="TYPE A NUMBER BETWEEN 0 AND 99999999"
^DD(442.11,11,21,0)="^^1^1^2910517^"
^DD(442.11,11,21,1,0)="This is the total amount of the partial delivery."
^DD(442.11,11,"DT")="2870211"
^DD(442.11,12,0)="DISCOUNT PERCENT/DAYS^F^^0;13^K:$L(X)>10!($L(X)<3)!'(X?.N.""."".N1""%"".N.L) X"
^DD(442.11,12,3)="Enter the Prompt Payment in the following format: 2.24%30"
^DD(442.11,12,21,0)="^^1^1^2910517^"
^DD(442.11,12,21,1,0)="This is the discount percent/days."
^DD(442.11,12,"DT")="2870214"
^DD(442.11,13,0)="LINECOUNT^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.11,13,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(442.11,13,21,0)="^^1^1^2910517^"
^DD(442.11,13,21,1,0)="This is the line item count of the partial."
^DD(442.11,13,"DT")="2870226"
^DD(442.11,14,0)="RECEIVED BY (PPM OR DELV.PT.)^P200'^VA(200,^0;15^Q"
^DD(442.11,14,3)="Name of the person who signed for the delivery either at the delivery point if it is automated, or the P.A. who verifies the signed delivery document."
^DD(442.11,14,21,0)="^^3^3^2921113^^"
^DD(442.11,14,21,1,0)="This is the name of the person who signed for"
^DD(442.11,14,21,2,0)="the delivery or the purchasing agent who verifies"
^DD(442.11,14,21,3,0)="the signed delivery document."
^DD(442.11,14,"DT")="2921113"
^DD(442.11,15,0)="RECEIVED BY VALIDATION CODE^FIO^^0;16^K:$L(X)>30!($L(X)<2) X"
^DD(442.11,15,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES2(D0,D1)"
^DD(442.11,15,2.1)="S Y=""/ES/""_$$DECODE^PRCHES2(D0,D1)"
^DD(442.11,15,3)="Electronic signature of the person who received the supplies, at the delivery point."
^DD(442.11,15,8.5)="^"
^DD(442.11,15,9)="^"
^DD(442.11,15,21,0)="^^2^2^2930204^^^^"
^DD(442.11,15,21,1,0)="This is the electronic signature of the person who receives"
^DD(442.11,15,21,2,0)="the supplies at the delivery point."
^DD(442.11,15,"DT")="2921209"
^DD(442.11,15.5,0)="RCVD BY VALIDATION VERSION^NJ2,0^^1;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.11,15.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442.11,15.5,21,0)="^^2^2^2930414^"
^DD(442.11,15.5,21,1,0)=" "
^DD(442.11,15.5,21,2,0)="Version of validation of ESIG"
^DD(442.11,15.5,"DT")="2921209"
^DD(442.11,15.7,0)="RCVD BY ESIG CODE^F^^1;12^K:$L(X)>10!($L(X)<2) X"
^DD(442.11,15.7,3)="Answer must be 2-10 characters in length."
^DD(442.11,15.7,21,0)="^^3^3^2930414^"
^DD(442.11,15.7,21,1,0)=" "
^DD(442.11,15.7,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(442.11,15.7,21,3,0)="integrity of this record."
^DD(442.11,15.7,"DT")="2930412"
^DD(442.11,15.8,0)="RCVD BY VALIDATION DATE/TIME^RD^^1;15^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.11,15.8,21,0)="^^2^2^2930414^"
^DD(442.11,15.8,21,1,0)=" "
^DD(442.11,15.8,21,2,0)="Date/time record was validated"
^DD(442.11,15.8,"DT")="2921209"
^DD(442.11,16,0)="DATE RECEIVED (AT DELV.PT.)^D^^0;17^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(442.11,16,3)="Date/Time that supplies were received at the delivery point."
^DD(442.11,16,21,0)="^^2^2^2910517^"
^DD(442.11,16,21,1,0)="This is the date/time that supplies were received at"
^DD(442.11,16,21,2,0)="the delivery point."
^DD(442.11,16,"DT")="2870702"
^DD(442.11,17,0)="RECEIVED BY (AT DELIVERY PT.)^P200'^VA(200,^0;18^Q"
^DD(442.11,17,3)="For delivery points with automated receiving, the name of the person who signed for a delivery."
^DD(442.11,17,21,0)="^^2^2^2921113^^"
^DD(442.11,17,21,1,0)="This is the name of the person who signed for"
^DD(442.11,17,21,2,0)="the delivery at the delivery point."
^DD(442.11,17,"DT")="2921113"
^DD(442.11,18,0)="RECV.REPORT TRANS.TO AUSTIN^FX^^0;19^S DIC=""^PRCF(421.2,"",DIC(0)=""QEM"",DIC(""S"")=""I $P(^(0),""""-"""",2)=""""RR"""""" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y=-1 X"
^DD(442.11,18,3)="Enter Station Mailman Message Number Format:  Station no.-""RR""-P.O.No.-Partial No.  ex: 662-RR-C85003-2"
^DD(442.11,18,21,0)="^^1^1^2910517^^"
^DD(442.11,18,21,1,0)="This is the Station MailMan Message Number format."
^DD(442.11,18,"DT")="2880621"
^DD(442.11,19,0)="LOG BATCH NO.(RECEIVING)^F^^1;1^K:$L(X)>20!($L(X)<9) X"
^DD(442.11,19,3)="Created automatically when new LOG code sheets for receiving are generated.  Made up of PURCHASE ORDER NUMBER concatenated with partial as follows: Station No._""-""_P.O.No._"".""_Partial No."
^DD(442.11,19,21,0)="^^4^4^2910517^^"
^DD(442.11,19,21,1,0)="This is the LOG batch number for receiving.  The"
^DD(442.11,19,21,2,0)="field is set automatically when receiving is"
^DD(442.11,19,21,3,0)="entered, and turned off after Personal Property"
^DD(442.11,19,21,4,0)="Management generates code sheets."
^DD(442.11,19,"DT")="2890314"
^DD(442.11,19.2,0)="LOG RR CODE SHEETS DONE?^S^Y:YES;N:NO;^1;6^Q"
^DD(442.11,19.2,1,0)="^.1"
^DD(442.11,19.2,1,1,0)="442^AF^MUMPS"
^DD(442.11,19.2,1,1,1)="K:X'=""N"" ^PRC(442,""AF"",""N"",DA(1),DA) I X=""N"" S ^PRC(442,""AF"",""N"",DA(1),DA)="""""
^DD(442.11,19.2,1,1,2)="K ^PRC(442,""AF"",""N"",DA(1),DA)"
^DD(442.11,19.2,1,1,"%D",0)="^^7^7^2930625^"
^DD(442.11,19.2,1,1,"%D",1,0)="This X-REF keeps track of all PARTIAL receipts that have not had any"
^DD(442.11,19.2,1,1,"%D",2,0)="LOG code sheet created for them."
^DD(442.11,19.2,1,1,"%D",3,0)=" "
^DD(442.11,19.2,1,1,"%D",4,0)="SET will remove this X-REF when this field's data value is not ""N"".  SET"
^DD(442.11,19.2,1,1,"%D",5,0)="will only create the X-REF when this field's data value is ""N""."
^DD(442.11,19.2,1,1,"%D",6,0)=" "
^DD(442.11,19.2,1,1,"%D",7,0)="KILL will just remove the ""N"" valued X-REF for the entry."
^DD(442.11,19.2,3)="Set automatically when receiving is entered, turned off after PPM generates receiving code sheets (LOG/GSA/DLA)."
^DD(442.11,19.2,21,0)="^^3^3^2910517^"
^DD(442.11,19.2,21,1,0)="Set automatically when receiving is entered, and turned"
^DD(442.11,19.2,21,2,0)="off after Personal Property Management generates receiving"
^DD(442.11,19.2,21,3,0)="code sheets (LOG/GSA/DLA)."
^DD(442.11,19.2,"DT")="2910517"
^DD(442.11,19.3,0)="LOG CODE SHEETS SENT BY^*P200'^VA(200,^1;3^S DIC(""S"")=""I $D(^(400)),""""24""""[($P(^(400),U,1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.11,19.3,3)="Name of PPM clerk who marked the LOG Receiving code sheets for transmission (signed them)."
^DD(442.11,19.3,12)="Only a PPM Clerk or Manager may sign LOG code sheets"
^DD(442.11,19.3,12.1)="S DIC(""S"")=""I $D(^(400)),""""24""""[($P(^(400),U,1))"""
^DD(442.11,19.3,21,0)="^^1^1^2921113^^^"
^DD(442.11,19.3,21,1,0)="This is the person who sent the code sheet."
^DD(442.11,19.3,"DT")="2921218"
^DD(442.11,19.4,0)="LOG CODE SH. VALIDATION CODE^FO^^1;4^K:$L(X)>30!($L(X)<2) X"
^DD(442.11,19.4,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES3(D0,D1)"
^DD(442.11,19.4,2.1)="S Y=""/ES/""_$$DECODE^PRCHES3(D0,D1)"
^DD(442.11,19.4,3)="Electronic Signature of PPM Clerk who created and signed LOG code sheets for Receiving.  ANSWER MUST 2-30 CHARACTERS IN LENGTH."
^DD(442.11,19.4,21,0)="^^2^2^2930204^^^^"
^DD(442.11,19.4,21,1,0)="This is the electronic signature of the person who"
^DD(442.11,19.4,21,2,0)="sent the code sheet."
^DD(442.11,19.4,"DT")="2921209"
^DD(442.11,19.5,0)="DATE SIGNED^D^^1;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(442.11,19.5,.1)="VALIDATION DATE"
^DD(442.11,19.5,3)="Date/Time LOG Receiving code sheets were signed by PPM clerk (marked for transmission)."
^DD(442.11,19.5,21,0)="^^1^1^2921113^^^"
^DD(442.11,19.5,21,1,0)="This is the date the code sheet was signed."
^DD(442.11,19.5,"DT")="2921209"
^DD(442.11,19.6,0)="RECV.CODE SHEET NO.(DEPOT)^P423'^PRCF(423,^1;7^Q"
^DD(442.11,19.6,3)="Pointer to CALM/LOG code sheet file, to indicate that LOG code sheet has been sent for release of DEPOT receiving (which requires only 1 code sheet for entire receipt)"
^DD(442.11,19.6,21,0)="^^3^3^2910517^"
^DD(442.11,19.6,21,1,0)="This is the pointer to the CALM/LOG code sheet file,"
^DD(442.11,19.6,21,2,0)="to indicate that a LOG code sheet has been sent for"
^DD(442.11,19.6,21,3,0)="release of DEPOT receiving."
^DD(442.11,19.6,"DT")="2890522"
^DD(442.11,19.7,0)="LCS VALIDATION VERSION^NJ2,0^^1;13^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.11,19.7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442.11,19.7,21,0)="^^2^2^2930414^"
^DD(442.11,19.7,21,1,0)=" "
^DD(442.11,19.7,21,2,0)="Version of validation of ESIG"
^DD(442.11,19.7,"DT")="2921209"
^DD(442.11,19.8,0)="LCS ESIG CODE^F^^1;14^K:$L(X)>10!($L(X)<2) X"
^DD(442.11,19.8,3)="Answer must be 2-10 characters in length."
^DD(442.11,19.8,21,0)="^^3^3^2930414^"
^DD(442.11,19.8,21,1,0)=" "
^DD(442.11,19.8,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(442.11,19.8,21,3,0)="integrity of this record."
^DD(442.11,19.8,"DT")="2930412"
^DD(442.11,20,0)="DIETETIC COST PERIOD^S^1:First Report;2:Second Report;N:No Report;^1;2^Q"
^DD(442.11,20,3)="Enter Dietetics Cost Period for Reporting.  Should be 1 for items received between the 1st and 15th of the month, 2 for items received after the 15th."
^DD(442.11,20,21,0)="^^3^3^2910517^"
^DD(442.11,20,21,1,0)="This is the Dietetic Cost Period for reporting, which"
^DD(442.11,20,21,2,0)="is 1 for items received between the 1st and 15th of the "
^DD(442.11,20,21,3,0)="month, and 2 for items received after the 15th."
^DD(442.11,20,"DT")="2890403"
^DD(442.11,21,0)="ORIGINAL PARTIAL^NJ2,0^^1;16^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.11,21,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(442.11,21,21,0)="^^2^2^2941123^^"
^DD(442.11,21,21,1,0)="This is the original partial value entered before doing the adjustment "
^DD(442.11,21,21,2,0)="voucher."
^DD(442.11,21,"DT")="2940817"
^DD(442.11,22,0)="FMS BATCH SEQUENCE NUMBER^NJ3,0^^0;20^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.11,22,3)="For modification partials, enter a number between 1 and 999"
^DD(442.11,22,21,0)="^^7^7^2941116^"
^DD(442.11,22,21,1,0)="This field contains the sequential number portion of the batch number"
^DD(442.11,22,21,2,0)="which appears in Segment #1 of Receiving Report records if the Partial"
^DD(442.11,22,21,3,0)="is an Modification document.  The batch number consists of the following: "
^DD(442.11,22,21,4,0)="3-digit station # plus 3-digit (padded if necessary) sequential number."
^DD(442.11,22,21,5,0)="This sequential number rolls around from 999 back to 1, if necessary."
^DD(442.11,22,21,6,0)="This batch number is used by FMS during processing to screen out duplicate"
^DD(442.11,22,21,7,0)="submissions."
^DD(442.11,22,"DT")="2941116"
^DD(442.11,23,0)="ACCOUNTING PERIOD MONTH/YEAR^DX^^1;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:$E(X,4,5)<1 X S:$D(X) X=$E(X,1,5)_""00"""
^DD(442.11,23,3)="Enter Calendar Month and Year of the Accounting Period (i.e. 10/94 for Oct 1994)"
^DD(442.11,23,21,0)="^^7^7^2950130^^"
^DD(442.11,23,21,1,0)="For ease of data entry, this field stores the Calendar Month and Year in"
^DD(442.11,23,21,2,0)="which this receiver should be processed.  During transmission to IFRR/INRR"
^DD(442.11,23,21,3,0)="and FMS, this value is converted to the Fiscal Year and Sequence Number of"
^DD(442.11,23,21,4,0)="that month within that Fiscal Year before being placed in the transmission"
^DD(442.11,23,21,5,0)="record.  (i.e. Oct 1994 is converted to 011995)"
^DD(442.11,23,21,6,0)="Note:  To be properly processed, when this receiver is sent, the value of"
^DD(442.11,23,21,7,0)="this field must be an open accounting period."
^DD(442.11,23,"DT")="2950130"
^DD(442.11,24,0)="ADJUSTMENT/AMENDMENT NUMBER^NJ3,0^^0;21^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.11,24,3)="This field is populated when an adjustment/amendment is done via a VISTA option.  Please do not manually enter."
^DD(442.11,24,21,0)="^.001^1^1^3020508^^^^"
^DD(442.11,24,21,1,0)="Adjustment or Amendment number of PO."
^DD(442.11,24,"DT")="3011003"
^DD(442.11,"B","ACCOUNTING PERIOD MONTH/YEAR",23)=""
^DD(442.11,"B","ADJUSTMENT/AMENDMENT NUMBER",24)=""
^DD(442.11,"B","DATE",.01)=""
^DD(442.11,"B","DATE RECEIVED (AT DELV.PT.)",16)=""
^DD(442.11,"B","DATE SIGNED",19.5)=""
^DD(442.11,"B","DIETETIC COST PERIOD",20)=""
^DD(442.11,"B","DISCOUNT PERCENT/DAYS",12)=""
^DD(442.11,"B","ESIG CODE",7.7)=""
^DD(442.11,"B","FINAL",8)=""
^DD(442.11,"B","FMS BATCH SEQUENCE NUMBER",22)=""
^DD(442.11,"B","LCS ESIG CODE",19.8)=""
^DD(442.11,"B","LCS VALIDATION VERSION",19.7)=""
^DD(442.11,"B","LINECOUNT",13)=""
^DD(442.11,"B","LOG BATCH NO.(RECEIVING)",19)=""
^DD(442.11,"B","LOG CODE SH. VALIDATION CODE",19.4)=""
^DD(442.11,"B","LOG CODE SHEETS SENT BY",19.3)=""
^DD(442.11,"B","LOG RR CODE SHEETS DONE?",19.2)=""
^DD(442.11,"B","NUMBER",.001)=""
^DD(442.11,"B","ORIGINAL PARTIAL",21)=""
^DD(442.11,"B","OVERAGE",9)=""
^DD(442.11,"B","PROCESSED BY FISCAL?",5)=""
^DD(442.11,"B","RCVD BY ESIG CODE",15.7)=""
^DD(442.11,"B","RCVD BY VALIDATION DATE/TIME",15.8)=""
^DD(442.11,"B","RCVD BY VALIDATION VERSION",15.5)=""
^DD(442.11,"B","RECEIVED BY (AT DELIVERY PT.)",17)=""
^DD(442.11,"B","RECEIVED BY (PPM OR DELV.PT.)",14)=""
^DD(442.11,"B","RECEIVED BY VALIDATION CODE",15)=""
^DD(442.11,"B","RECV.CODE SHEET NO.(DEPOT)",19.6)=""
^DD(442.11,"B","RECV.REPORT TRANS.TO AUSTIN",18)=""
^DD(442.11,"B","SCHEDULED DELIVERY DATE",.05)=""
^DD(442.11,"B","SUBACCOUNT1",1)=""
^DD(442.11,"B","SUBACCOUNT2",3)=""
^DD(442.11,"B","SUBAMOUNT1",2)=""
^DD(442.11,"B","SUBAMOUNT2",4)=""
^DD(442.11,"B","TOTAL AMOUNT",11)=""
^DD(442.11,"B","VALIDATION CODE",7)=""
^DD(442.11,"B","VALIDATION DATE",19.5)="1"
^DD(442.11,"B","VALIDATION DATE/TIME",10)="1"
^DD(442.11,"B","VALIDATION VERSION",7.5)=""
^DD(442.11,"B","WAREHOUSE APPROVED BY",6)=""
^DD(442.11,"B","WAREHOUSE DATE/TIME SIGNED",10)=""
^DD(442.11,"GL",0,1,.01)=""
^DD(442.11,"GL",0,2,1)=""
^DD(442.11,"GL",0,3,2)=""
^DD(442.11,"GL",0,4,3)=""
^DD(442.11,"GL",0,5,4)=""
^DD(442.11,"GL",0,6,5)=""
^DD(442.11,"GL",0,7,6)=""
^DD(442.11,"GL",0,8,7)=""
^DD(442.11,"GL",0,9,8)=""
^DD(442.11,"GL",0,10,9)=""
^DD(442.11,"GL",0,11,10)=""
^DD(442.11,"GL",0,12,11)=""
^DD(442.11,"GL",0,13,12)=""
^DD(442.11,"GL",0,14,13)=""
^DD(442.11,"GL",0,15,14)=""
^DD(442.11,"GL",0,16,15)=""
^DD(442.11,"GL",0,17,16)=""
^DD(442.11,"GL",0,18,17)=""
^DD(442.11,"GL",0,19,18)=""
^DD(442.11,"GL",0,20,22)=""
^DD(442.11,"GL",0,21,24)=""
^DD(442.11,"GL",1,1,19)=""
^DD(442.11,"GL",1,2,20)=""
^DD(442.11,"GL",1,3,19.3)=""
^DD(442.11,"GL",1,4,19.4)=""
^DD(442.11,"GL",1,5,19.5)=""
^DD(442.11,"GL",1,6,19.2)=""
^DD(442.11,"GL",1,7,19.6)=""
^DD(442.11,"GL",1,8,.05)=""
^DD(442.11,"GL",1,9,7.5)=""
^DD(442.11,"GL",1,10,7.7)=""
^DD(442.11,"GL",1,11,15.5)=""
^DD(442.11,"GL",1,12,15.7)=""
^DD(442.11,"GL",1,13,19.7)=""
^DD(442.11,"GL",1,14,19.8)=""
^DD(442.11,"GL",1,15,15.8)=""
^DD(442.11,"GL",1,16,21)=""
^DD(442.11,"GL",1,17,23)=""
^DD(442.11,"IX",19.2)=""
^DD(442.11,"RQ",6)=""
^DD(442.11,"RQ",15.8)=""
^DD(442.12,0)="PURCHASE METHOD SUB-FIELD^^.01^1"
^DD(442.12,0,"IX","B",442.12,.01)=""
^DD(442.12,0,"NM","PURCHASE METHOD")=""
^DD(442.12,0,"UP")="442"
^DD(442.12,.01,0)="PURCHASE METHOD^MRP442.4'^PRC(442.4,^0;1^Q"
^DD(442.12,.01,1,0)="^.1"
^DD(442.12,.01,1,1,0)="442.12^B"
^DD(442.12,.01,1,1,1)="S ^PRC(442,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(442.12,.01,1,1,2)="K ^PRC(442,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(442.12,.01,21,0)="^^1^1^2910517^"
^DD(442.12,.01,21,1,0)="This is the purchase method."
^DD(442.12,.01,"DT")="2860711"
^DD(442.12,"B","PURCHASE METHOD",.01)=""
^DD(442.12,"GL",0,1,.01)=""
^DD(442.12,"IX",.01)=""
^DD(442.12,"RQ",.01)=""
^DD(442.13,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(442.13,0,"NM","DESCRIPTION")=""
^DD(442.13,0,"UP")="442.07"
^DD(442.13,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(442.13,.01,21,0)="^^2^2^2930414^"
^DD(442.13,.01,21,1,0)=" "
^DD(442.13,.01,21,2,0)="Description of AMENDMENT"
^DD(442.13,.01,"DT")="2851218"
^DD(442.13,"B","DESCRIPTION",.01)=""
^DD(442.13,"GL",0,1,.01)=""
^DD(442.14,0)="2237 REFERENCE NUMBER SUB-FIELD^NL^11^13"
^DD(442.14,0,"DT")="2930412"
^DD(442.14,0,"NM","2237 REFERENCE NUMBER")=""
^DD(442.14,0,"UP")="442"
^DD(442.14,.01,0)="2237 REFERENCE NUMBER^MP410'IX^PRCS(410,^0;1^S DINUM=X"
^DD(442.14,.01,1,0)="^.1^^0"
^DD(442.14,.01,21,0)="^^1^1^2910517^"
^DD(442.14,.01,21,1,0)="This is the purchase order reference number."
^DD(442.14,.01,"DT")="2870810"
^DD(442.14,1.5,0)="CURRENT STATUS^R*P442.3'^PRCD(442.3,^0;7^S DIC(""S"")=""I $P(^(0),U,2)>59"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.14,1.5,3)=""
^DD(442.14,1.5,12)="REQUIRED"
^DD(442.14,1.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)>59"""
^DD(442.14,1.5,21,0)="^^1^1^2910517^"
^DD(442.14,1.5,21,1,0)="This is the current status of the purchase order."
^DD(442.14,1.5,"DT")="2861203"
^DD(442.14,2,0)="ACCOUNTABLE OFFICER^*P200'^VA(200,^0;2^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.14,2,12)="Must be Accountable Officer or Manager"
^DD(442.14,2,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)"""
^DD(442.14,2,21,0)="^^1^1^2921113^^^^"
^DD(442.14,2,21,1,0)="This is the name of the accountable officer."
^DD(442.14,2,"DT")="2921218"
^DD(442.14,3,0)="VALIDATION CODE^FIO^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(442.14,3,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES0(D0,D1)"
^DD(442.14,3,2.1)="S Y=""/ES/""_$$DECODE^PRCHES0(D0,D1)"
^DD(442.14,3,3)="Answer must be 2-30 characters in length."
^DD(442.14,3,8.5)="^"
^DD(442.14,3,9)="^"
^DD(442.14,3,21,0)="^^2^2^2930204^^^^"
^DD(442.14,3,21,1,0)="This is the electronic signature of the accountable "
^DD(442.14,3,21,2,0)="officer."
^DD(442.14,3,"DT")="2921209"
^DD(442.14,3.5,0)="VALIDATION VERSION^F^^0;14^K:$L(X)>35!($L(X)<1) X"
^DD(442.14,3.5,3)="Answer must be 1-35 characters in length."
^DD(442.14,3.5,21,0)="^^2^2^2930414^"
^DD(442.14,3.5,21,1,0)=" "
^DD(442.14,3.5,21,2,0)="Version of validation code for ESIG"
^DD(442.14,3.5,"DT")="2921209"
^DD(442.14,3.7,0)="ESIG CODE^F^^0;13^K:$L(X)>10!($L(X)<2) X"
^DD(442.14,3.7,3)="Answer must be 2-10 characters in length."
^DD(442.14,3.7,21,0)="^^3^3^2930414^"
^DD(442.14,3.7,21,1,0)=" "
^DD(442.14,3.7,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(442.14,3.7,21,3,0)="integrity of this record."
^DD(442.14,3.7,"DT")="2930412"
^DD(442.14,4,0)="DATE SIGNED^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.14,4,.1)="VALIDATION DATE/TIME"
^DD(442.14,4,21,0)="^^1^1^2921113^^"
^DD(442.14,4,21,1,0)="This is the date the purchase order was signed."
^DD(442.14,4,"DT")="2921209"
^DD(442.14,6,0)="PURCHASING AGENT^*P200'^VA(200,^0;5^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.14,6,12)="Must be a Purchase Agent or Manager"
^DD(442.14,6,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>2"""
^DD(442.14,6,21,0)="^^1^1^2921113^^"
^DD(442.14,6,21,1,0)="This is the purchasing agent for this purchase order."
^DD(442.14,6,"DT")="2921218"
^DD(442.14,7,0)="DATE ASSIGNED TO PA^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.14,7,21,0)="^^2^2^2910517^"
^DD(442.14,7,21,1,0)="This is the date this purchase order was assigned to the "
^DD(442.14,7,21,2,0)="purchasing agent."
^DD(442.14,7,"DT")="2861018"
^DD(442.14,8,0)="CP FUND STATUS^S^1:INSUFFICIENT FUNDS;^0;8^Q"
^DD(442.14,8,21,0)="^^1^1^2910517^"
^DD(442.14,8,21,1,0)="This is the Control Point Fund status."
^DD(442.14,8,"DT")="2861018"
^DD(442.14,9,0)="TYPE OF REQUEST^S^1:UNPOSTED;2:POSTED;3:SERVICE;4:BULK SALE;5:NX POSTED;^0;9^Q"
^DD(442.14,9,21,0)="^^1^1^2910517^"
^DD(442.14,9,21,1,0)="This is the type of request."
^DD(442.14,9,"DT")="2870324"
^DD(442.14,10,0)="SOURCE OF REQUEST^S^1:VA STOCK;2:GSA STOCK;3:EXCESS;4:NOT AVAILABLE FROM ANY OF THESE SOURCES;^0;10^Q"
^DD(442.14,10,21,0)="^^1^1^2910517^"
^DD(442.14,10,21,1,0)="This is the source of this purchase order."
^DD(442.14,10,"DT")="2870324"
^DD(442.14,11,0)="INVENTORY/DISTRIBUTION POINT^P445'^PRCP(445,^0;11^Q"
^DD(442.14,11,1,0)="^.1"
^DD(442.14,11,1,1,0)="442^G"
^DD(442.14,11,1,1,1)="S ^PRC(442,""G"",$E(X,1,30),DA(1),DA)="""""
^DD(442.14,11,1,1,2)="K ^PRC(442,""G"",$E(X,1,30),DA(1),DA)"
^DD(442.14,11,3)="If the request was made for a service using the Generic Inventory/Distribution package, the name of the Inventory point that made the request should be entered here."
^DD(442.14,11,21,0)="^^2^2^2910517^"
^DD(442.14,11,21,1,0)="This is the inventory/distribution point for this"
^DD(442.14,11,21,2,0)="purchase order."
^DD(442.14,11,"DT")="2870811"
^DD(442.14,"B","2237 REFERENCE NUMBER",.01)=""
^DD(442.14,"B","ACCOUNTABLE OFFICER",2)=""
^DD(442.14,"B","CP FUND STATUS",8)=""
^DD(442.14,"B","CURRENT STATUS",1.5)=""
^DD(442.14,"B","DATE ASSIGNED TO PA",7)=""
^DD(442.14,"B","DATE SIGNED",4)=""
^DD(442.14,"B","ESIG CODE",3.7)=""
^DD(442.14,"B","INVENTORY/DISTRIBUTION POINT",11)=""
^DD(442.14,"B","PURCHASING AGENT",6)=""
^DD(442.14,"B","SOURCE OF REQUEST",10)=""
^DD(442.14,"B","TYPE OF REQUEST",9)=""
^DD(442.14,"B","VALIDATION CODE",3)=""
^DD(442.14,"B","VALIDATION DATE/TIME",4)="1"
^DD(442.14,"B","VALIDATION VERSION",3.5)=""
^DD(442.14,"GL",0,1,.01)=""
^DD(442.14,"GL",0,2,2)=""
^DD(442.14,"GL",0,3,3)=""
^DD(442.14,"GL",0,4,4)=""
^DD(442.14,"GL",0,5,6)=""
^DD(442.14,"GL",0,6,7)=""
^DD(442.14,"GL",0,7,1.5)=""
^DD(442.14,"GL",0,8,8)=""
^DD(442.14,"GL",0,9,9)=""
^DD(442.14,"GL",0,10,10)=""
^DD(442.14,"GL",0,11,11)=""
^DD(442.14,"GL",0,13,3.7)=""
^DD(442.14,"GL",0,14,3.5)=""
^DD(442.14,"IX",11)=""
^DD(442.14,"RQ",1.5)=""
^DD(442.147,0)="LINE INVENTORY POINT SUB-FIELD^^3^4"
^DD(442.147,0,"DT")="2990602"
^DD(442.147,0,"IX","B",442.147,.01)=""
^DD(442.147,0,"NM","LINE INVENTORY POINT")=""
^DD(442.147,0,"UP")="442.01"
^DD(442.147,.01,0)="LINE INVENTORY POINT^M*P445'^PRCP(445,^0;1^S DIC(""S"")=""I $D(^(0)),$P(^(0),U,3)'=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.147,.01,1,0)="^.1^^-1"
^DD(442.147,.01,1,1,0)="442.147^B"
^DD(442.147,.01,1,1,1)="S ^PRC(442,DA(2),2,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(442.147,.01,1,1,2)="K ^PRC(442,DA(2),2,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(442.147,.01,12)="Secondaries not allowed to incur fiscal obligation."
^DD(442.147,.01,12.1)="S DIC(""S"")=""I $D(^(0)),$P(^(0),U,3)'=""""S"""""""
^DD(442.147,.01,21,0)="^^23^23^2990528^"
^DD(442.147,.01,21,1,0)="This order request is on behalf of an entity that wants to maintain a "
^DD(442.147,.01,21,2,0)="perpetual inventory, automate their item distribution function, and "
^DD(442.147,.01,21,3,0)="automatically generate stock replenishment orders based on inventory "
^DD(442.147,.01,21,4,0)="needs.  "
^DD(442.147,.01,21,5,0)=" "
^DD(442.147,.01,21,6,0)="The LINE INVENTORY POINT is the entry (if there is one) in the Generic"
^DD(442.147,.01,21,7,0)="Inventory (file #445) for which the items on this line are being ordered. "
^DD(442.147,.01,21,8,0)=" "
^DD(442.147,.01,21,9,0)="If certain quantities of this line item are needed for different inventory"
^DD(442.147,.01,21,10,0)="points, then multiple entries of LINE INVENTORY POINT should be present"
^DD(442.147,.01,21,11,0)="and the LINE QUANTITY and LINE DELIVERY fields of each entry should be"
^DD(442.147,.01,21,12,0)="populated.  "
^DD(442.147,.01,21,13,0)=" "
^DD(442.147,.01,21,14,0)="If there is no entry in the LINE INVENTORY POINT field but there is an"
^DD(442.147,.01,21,15,0)="entry in the PRINCIPAL INVENTORY POINT field (#4 of file #410) then all"
^DD(442.147,.01,21,16,0)="line items on this request will be associated with the PRINCIPAL INVENTORY"
^DD(442.147,.01,21,17,0)="POINT.  "
^DD(442.147,.01,21,18,0)=" "
^DD(442.147,.01,21,19,0)="That is, LINE INVENTORY POINT (where it exists) will take precedence over"
^DD(442.147,.01,21,20,0)="PRINCIPAL INVENTORY POINT.  "
^DD(442.147,.01,21,21,0)=" "
^DD(442.147,.01,21,22,0)="Secondary inventory points may not be selected as either PRINCIPAL or LINE"
^DD(442.147,.01,21,23,0)="INVENTORY POINTS.  "
^DD(442.147,.01,"DT")="2990603"
^DD(442.147,1,0)="LINE QUANTITY^NJ12,0^^0;2^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.147,1,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(442.147,1,21,0)="^^3^3^2990528^"
^DD(442.147,1,21,1,0)="The quantity of subject line item that is required in order to replenish"
^DD(442.147,1,21,2,0)="subject inventory point. The sum of the LINE ITEM QUANTITIES must equal"
^DD(442.147,1,21,3,0)="the QUANTITY of the ITEM or the transaction will not be accepted."
^DD(442.147,1,"DT")="2990528"
^DD(442.147,2,0)="LINE DELIVERY^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(442.147,2,3)="Answer must be 3-30 characters in length."
^DD(442.147,2,21,0)="^^3^3^2990528^"
^DD(442.147,2,21,1,0)="Physical location where these items will be stocked in inventory."
^DD(442.147,2,21,2,0)="Receiving personnel will rely on this field to get material where it needs"
^DD(442.147,2,21,3,0)="to be."
^DD(442.147,2,"DT")="2990528"
^DD(442.147,3,0)="QUANTITY RECEIVED TO DATE^NJ7,0I^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.147,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(442.147,3,21,0)="^^2^2^2990602^"
^DD(442.147,3,21,1,0)="The quantity thus far received. Should not exceed LINE QUANTITY."
^DD(442.147,3,21,2,0)="Automatically maintained by DATE RECEIVED sub-file (#442.08)."
^DD(442.147,3,"DT")="2990606"
^DD(442.147,"B","LINE DELIVERY",2)=""
^DD(442.147,"B","LINE INVENTORY POINT",.01)=""
^DD(442.147,"B","LINE QUANTITY",1)=""
^DD(442.147,"B","QUANTITY RECEIVED TO DATE",3)=""
^DD(442.147,"GL",0,1,.01)=""
^DD(442.147,"GL",0,2,1)=""
^DD(442.147,"GL",0,3,2)=""
^DD(442.147,"GL",0,4,3)=""
^DD(442.147,"IX",.01)=""
^DD(442.15,0)="ADMINISTRATIVE CERTIFICATIONS SUB-FIELD^^1^2"
^DD(442.15,0,"ID","Z1")="W "" """
^DD(442.15,0,"IX","B",442.15,.01)=""
^DD(442.15,0,"NM","ADMINISTRATIVE CERTIFICATIONS")=""
^DD(442.15,0,"UP")="442"
^DD(442.15,.01,0)="ADMINISTRATIVE CERTIFICATIONS^M*P442.7'^PRC(442.7,^0;1^S DIC(""S"")=""I $P(^(0),U,1)<9999"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(442.15,.01,1,0)="^.1"
^DD(442.15,.01,1,1,0)="442.15^B"
^DD(442.15,.01,1,1,1)="S ^PRC(442,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(442.15,.01,1,1,2)="K ^PRC(442,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(442.15,.01,12)="NUMBER MUST BE LESS THAN 9999"
^DD(442.15,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,1)<9999"""
^DD(442.15,.01,21,0)="^^2^2^2910517^"
^DD(442.15,.01,21,1,0)="These are the administrative certifications for this"
^DD(442.15,.01,21,2,0)="purchase order."
^DD(442.15,.01,"DT")="2870731"
^DD(442.15,1,0)="DESCRIPTION LINE COUNT^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.15,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(442.15,1,21,0)="^^1^1^2910517^"
^DD(442.15,1,21,1,0)="This is the number of lines in the description."
^DD(442.15,1,"DT")="2860421"
^DD(442.15,"B","ADMINISTRATIVE CERTIFICATIONS",.01)=""
^DD(442.15,"B","DESCRIPTION LINE COUNT",1)=""
^DD(442.15,"GL",0,1,.01)=""
^DD(442.15,"GL",0,2,1)=""
^DD(442.15,"IX",.01)=""
^DD(442.16,0)="BREAKOUT CODE SUB-FIELD^^.01^1"
^DD(442.16,0,"IX","B",442.16,.01)=""
^DD(442.16,0,"NM","BREAKOUT CODE")=""
^DD(442.16,0,"UP")="442.1"
^DD(442.16,.01,0)="BREAKOUT CODE^MR*P420.6'X^PRCD(420.6,^0;1^S DIC(""S"")=""I $D(PRCHDT),$D(PRCHN(""""MB"""")),$D(PRCHN(""""LSA"""")),$D(PRCHN(""""TC"""")),""""GHJKMNOWVY""""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(442.16,.01,1,0)="^.1"
^DD(442.16,.01,1,1,0)="442.16^B"
^DD(442.16,.01,1,1,1)="S ^PRC(442,DA(2),9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(442.16,.01,1,1,2)="K ^PRC(442,DA(2),9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(442.16,.01,12)="MUST BE A BREAKOUT CODE"
^DD(442.16,.01,12.1)="S DIC(""S"")=""I $D(PRCHDT),$D(PRCHN(""""MB"""")),$D(PRCHN(""""LSA"""")),$D(PRCHN(""""TC"""")),""""GHJKMNOWVY""""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2"""
^DD(442.16,.01,21,0)="^^2^2^2910517^"
^DD(442.16,.01,21,1,0)="This is the breakout code from FY88 and the"
^DD(442.16,.01,21,2,0)="socioeconomic group code for FY89."
^DD(442.16,.01,"DT")="2880915"
^DD(442.16,"B","BREAKOUT CODE",.01)=""
^DD(442.16,"GL",0,1,.01)=""
^DD(442.16,"IX",.01)=""
^DD(442.16,"RQ",.01)=""
^DD(442.17,0)="ISMS ORDER NO. SUB-FIELD^^1^2"
^DD(442.17,0,"DT")="2911125"
^DD(442.17,0,"NM","ISMS ORDER NO.")=""
^DD(442.17,0,"UP")="442"
^DD(442.17,.01,0)="ISMS ORDER NO.^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<3) X"
^DD(442.17,.01,1,0)="^.1"
^DD(442.17,.01,1,1,0)="442^L"
^DD(442.17,.01,1,1,1)="S ^PRC(442,""L"",$E(X,1,30),DA(1),DA)="""""
^DD(442.17,.01,1,1,2)="K ^PRC(442,""L"",$E(X,1,30),DA(1),DA)"
^DD(442.17,.01,1,1,"%D",0)="^^1^1^2930628^"
^DD(442.17,.01,1,1,"%D",1,0)="This X-REF is just a lookup for the ISMS ORDER NO. field."
^DD(442.17,.01,1,1,"DT")="2920403"
^DD(442.17,.01,3)="Answer must be 3-11 characters in length."
^DD(442.17,.01,21,0)="^^2^2^2930408^"
^DD(442.17,.01,21,1,0)=" "
^DD(442.17,.01,21,2,0)="The number of the ISMS order."
^DD(442.17,.01,"DT")="2920403"
^DD(442.17,1,0)="ORDER HEADER^S^S:STATUS;C:CANCELLED;G:CHANGED;^0;2^Q"
^DD(442.17,1,1,0)="^.1^^0"
^DD(442.17,1,21,0)="^^2^2^2930408^"
^DD(442.17,1,21,1,0)=" "
^DD(442.17,1,21,2,0)="The type of ISMS order."
^DD(442.17,1,"DT")="2911126"
^DD(442.17,"B","ISMS ORDER NO.",.01)=""
^DD(442.17,"B","ORDER HEADER",1)=""
^DD(442.17,"GL",0,1,.01)=""
^DD(442.17,"GL",0,2,1)=""
^DD(442.17,"IX",.01)=""
^DD(442.2,0)="FIELD^^4^5"
^DD(442.2,0,"DT")="2940224"
^DD(442.2,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(442.2,0,"IX","B",442.2,.01)=""
^DD(442.2,0,"IX","C",442.2,1)=""
^DD(442.2,0,"NM","TYPE OF AMENDMENT")=""
^DD(442.2,0,"PT",442.07,3)=""
^DD(442.2,0,"PT",443.67,3)=""
^DD(442.2,0,"VR")="5.1"
^DD(442.2,0,"VRPK")="IFCAP"
^DD(442.2,.01,0)="NUMBER^RF^^0;1^K:$L(X)>2!($L(X)<1) X"
^DD(442.2,.01,1,0)="^.1"
^DD(442.2,.01,1,1,0)="442.2^B"
^DD(442.2,.01,1,1,1)="S ^PRCD(442.2,""B"",$E(X,1,30),DA)="""""
^DD(442.2,.01,1,1,2)="K ^PRCD(442.2,""B"",$E(X,1,30),DA)"
^DD(442.2,.01,3)="Answer must be 1-2 characters in length."
^DD(442.2,.01,21,0)="^^1^1^2940114^^^^"
^DD(442.2,.01,21,1,0)="This is the number of the amendment type."
^DD(442.2,.01,"DT")="2940114"
^DD(442.2,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>212!($L(X)<1) X"
^DD(442.2,1,1,0)="^.1"
^DD(442.2,1,1,1,0)="442.2^C"
^DD(442.2,1,1,1,1)="S ^PRCD(442.2,""C"",$E(X,1,30),DA)="""""
^DD(442.2,1,1,1,2)="K ^PRCD(442.2,""C"",$E(X,1,30),DA)"
^DD(442.2,1,1,1,"%D",0)="^^1^1^2940322^"
^DD(442.2,1,1,1,"%D",1,0)="   To do look up on the type of amendments file at the description field."
^DD(442.2,1,1,1,"DT")="2940322"
^DD(442.2,1,3)="ANSWER MUST BE 1-212 CHARACTERS IN LENGTH"
^DD(442.2,1,21,0)="^^1^1^2940113^^"
^DD(442.2,1,21,1,0)="This is a description of the amendment type."
^DD(442.2,1,"DT")="2940322"
^DD(442.2,2,0)="ROUTINE LINE^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(442.2,2,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(442.2,2,21,0)="^^2^2^2930408^"
^DD(442.2,2,21,1,0)="This is the routine line entry point for"
^DD(442.2,2,21,2,0)="processing this type of amendment."
^DD(442.2,2,"DT")="2851219"
^DD(442.2,3,0)="AMEND. LINE1^F^^1;1^K:$L(X)>45!($L(X)<1) X"
^DD(442.2,3,3)="ANSWER MUST BE 1-45 CHARACTERS IN LENGTH"
^DD(442.2,3,21,0)="^^1^1^2910516^"
^DD(442.2,3,21,1,0)="This is the amendment line 1."
^DD(442.2,3,"DT")="2860102"
^DD(442.2,4,0)="AMEND. LINE2^F^^1;2^K:$L(X)>45!($L(X)<1) X"
^DD(442.2,4,3)="ANSWER MUST BE 1-45 CHARACTERS IN LENGTH"
^DD(442.2,4,21,0)="^^1^1^2910516^"
^DD(442.2,4,21,1,0)="This is the amendment line 2."
^DD(442.2,4,"DT")="2860102"
^DD(442.2,"B","AMEND. LINE1",3)=""
^DD(442.2,"B","AMEND. LINE2",4)=""
^DD(442.2,"B","DESCRIPTION",1)=""
^DD(442.2,"B","NUMBER",.01)=""
^DD(442.2,"B","ROUTINE LINE",2)=""
^DD(442.2,"GL",0,1,.01)=""
^DD(442.2,"GL",0,2,1)=""
^DD(442.2,"GL",0,3,2)=""
^DD(442.2,"GL",1,1,3)=""
^DD(442.2,"GL",1,2,4)=""
^DD(442.2,"IX",.01)=""
^DD(442.2,"IX",1)=""
^DD(442.2,"RQ",.01)=""
^DD(442.3,0)="FIELD^^.03^3"
^DD(442.3,0,"DDA")="N"
^DD(442.3,0,"DT")="2940714"
^DD(442.3,0,"ID",.02)="W ?46,""   "",$P(^(0),U,2)"
^DD(442.3,0,"IX","AC",442.3,.03)=""
^DD(442.3,0,"IX","B",442.3,.01)=""
^DD(442.3,0,"IX","C",442.3,.02)=""
^DD(442.3,0,"NM","PURCHASE ORDER STATUS")=""
^DD(442.3,0,"PT",410,56)=""
^DD(442.3,0,"PT",410.3,7)=""
^DD(442.3,0,"PT",423.6,3)=""
^DD(442.3,0,"PT",423.6,4)=""
^DD(442.3,0,"PT",442,.5)=""
^DD(442.3,0,"PT",442.07,9)=""
^DD(442.3,0,"PT",442.14,1.5)=""
^DD(442.3,0,"PT",443,1.5)=""
^DD(442.3,0,"PT",443.6,.5)=""
^DD(442.3,0,"PT",443.67,9)=""
^DD(442.3,0,"VR")="5.1"
^DD(442.3,0,"VRPK")="IFCAP"
^DD(442.3,.01,0)="NAME^RFX^^0;1^K:'$G(PRCD4423) X I $G(X) K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(442.3,.01,1,0)="^.1"
^DD(442.3,.01,1,1,0)="442.3^B"
^DD(442.3,.01,1,1,1)="S ^PRCD(442.3,""B"",X,DA)="""""
^DD(442.3,.01,1,1,2)="K ^PRCD(442.3,""B"",X,DA)"
^DD(442.3,.01,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH (Edits and additions not allowed)"
^DD(442.3,.01,21,0)="^^1^1^2991123^^^^"
^DD(442.3,.01,21,1,0)="This is the name of the status code."
^DD(442.3,.01,23,0)="^^1^1^2991123^^"
^DD(442.3,.01,23,1,0)="In order to edit this field, the variable 'PRCD4223' must be defined."
^DD(442.3,.01,"DT")="2991123"
^DD(442.3,.02,0)="SUPPLY STATUS ORDER^NJ3,0X^^0;2^K:'$G(PRCD4423) X I $G(X) K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.3,.02,1,0)="^.1"
^DD(442.3,.02,1,1,0)="442.3^C"
^DD(442.3,.02,1,1,1)="S ^PRCD(442.3,""C"",X,DA)="""""
^DD(442.3,.02,1,1,2)="K ^PRCD(442.3,""C"",X,DA)"
^DD(442.3,.02,1,1,"%D",0)="^^1^1^2940729^^^"
^DD(442.3,.02,1,1,"%D",1,0)="This X-REF is used for lookup for the SUPPLY STATUS ORDER number field."
^DD(442.3,.02,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999 (Edits are not allowed)"
^DD(442.3,.02,21,0)="^^1^1^2991123^^^"
^DD(442.3,.02,21,1,0)="This is the supply status order."
^DD(442.3,.02,23,0)="^^1^1^2991123^"
^DD(442.3,.02,23,1,0)="In order to edit this field, the variable 'PRCD4223' must be defined."
^DD(442.3,.02,"DT")="2991123"
^DD(442.3,.03,0)="FISCAL STATUS ORDER^NJ3,0X^^0;3^K:'$D(PRCD4423) X I $G(X) K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.3,.03,1,0)="^.1"
^DD(442.3,.03,1,1,0)="442.3^AC"
^DD(442.3,.03,1,1,1)="S ^PRCD(442.3,""AC"",$E(X,1,30),DA)="""""
^DD(442.3,.03,1,1,2)="K ^PRCD(442.3,""AC"",$E(X,1,30),DA)"
^DD(442.3,.03,1,1,"%D",0)="^^1^1^2930628^"
^DD(442.3,.03,1,1,"%D",1,0)="This X-REF is used for lookup for the FISCAL STATUS ORDER number field."
^DD(442.3,.03,3)="Type a Number between 0 and 999, 0 Decimal Digits (Edits are not allowed)"
^DD(442.3,.03,21,0)="^^1^1^2991123^^"
^DD(442.3,.03,21,1,0)="This is the Fiscal status order."
^DD(442.3,.03,23,0)="^^1^1^2991123^"
^DD(442.3,.03,23,1,0)="In order to edit this field, the variable 'PRCD4223' must be defined."
^DD(442.3,.03,"DT")="2991123"
^DD(442.3,"B","FISCAL STATUS ORDER",.03)=""
^DD(442.3,"B","NAME",.01)=""
^DD(442.3,"B","SUPPLY STATUS ORDER",.02)=""
^DD(442.3,"GL",0,1,.01)=""
^DD(442.3,"GL",0,2,.02)=""
^DD(442.3,"GL",0,3,.03)=""
^DD(442.3,"IX",.01)=""
^DD(442.3,"IX",.02)=""
^DD(442.3,"IX",.03)=""
^DD(442.3,"RQ",.01)=""
^DD(442.4,0)="FIELD^^2^3"
^DD(442.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(442.4,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(442.4,0,"IX","B",442.4,.01)=""
^DD(442.4,0,"IX","C",442.4,1)=""
^DD(442.4,0,"NM","PURCHASE AUTHORITY")=""
^DD(442.4,0,"PT",442.12,.01)=""
^DD(442.4,0,"VR")="5.1"
^DD(442.4,0,"VRPK")="IFCAP"
^DD(442.4,.01,0)="NUMBER^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.4,.01,1,0)="^.1"
^DD(442.4,.01,1,1,0)="442.4^B"
^DD(442.4,.01,1,1,1)="S ^PRC(442.4,""B"",$E(X,1,30),DA)="""""
^DD(442.4,.01,1,1,2)="K ^PRC(442.4,""B"",$E(X,1,30),DA)"
^DD(442.4,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(442.4,.01,21,0)="^^1^1^2910516^"
^DD(442.4,.01,21,1,0)="This is the number of the purchase order authority."
^DD(442.4,.01,"DT")="2860605"
^DD(442.4,1,0)="ABBREVIATION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(442.4,1,1,0)="^.1"
^DD(442.4,1,1,1,0)="442.4^C"
^DD(442.4,1,1,1,1)="S ^PRC(442.4,""C"",$E(X,1,30),DA)="""""
^DD(442.4,1,1,1,2)="K ^PRC(442.4,""C"",$E(X,1,30),DA)"
^DD(442.4,1,1,1,"%D",0)="^^2^2^2930628^"
^DD(442.4,1,1,1,"%D",1,0)="This X-REF is used as a lookup of the ABBREVIATION field in the"
^DD(442.4,1,1,1,"%D",2,0)="PURCHASE AUTHORITY file."
^DD(442.4,1,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(442.4,1,21,0)="^^1^1^2910516^"
^DD(442.4,1,21,1,0)="This is an abbreviation for the purchase authority."
^DD(442.4,1,"DT")="2860605"
^DD(442.4,2,0)="DESCRIPTION^RF^^0;3^K:$L(X)>100!($L(X)<3) X"
^DD(442.4,2,3)="ANSWER MUST BE 3-100 CHARACTERS IN LENGTH"
^DD(442.4,2,21,0)="^^1^1^2910516^"
^DD(442.4,2,21,1,0)="This is a description of the purchase authority."
^DD(442.4,2,"DT")="2850830"
^DD(442.4,"B","ABBREVIATION",1)=""
^DD(442.4,"B","DESCRIPTION",2)=""
^DD(442.4,"B","NUMBER",.01)=""
^DD(442.4,"GL",0,1,.01)=""
^DD(442.4,"GL",0,2,1)=""
^DD(442.4,"GL",0,3,2)=""
^DD(442.4,"IX",.01)=""
^DD(442.4,"IX",1)=""
^DD(442.4,"RQ",.01)=""
^DD(442.4,"RQ",1)=""
^DD(442.4,"RQ",2)=""
^DD(442.5,0)="FIELD^^4^7"
^DD(442.5,0,"ID",1)="W ?35,""   "",$P(^(0),U,2)"
^DD(442.5,0,"IX","B",442.5,.01)=""
^DD(442.5,0,"IX","C",442.5,1)=""
^DD(442.5,0,"NM","PAT TYPE")=""
^DD(442.5,0,"PT",442,.02)=""
^DD(442.5,0,"PT",443.6,.02)=""
^DD(442.5,0,"VR")="5.1"
^DD(442.5,0,"VRPK")="IFCAP"
^DD(442.5,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.5,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(442.5,.001,21,0)="^^1^1^2910516^"
^DD(442.5,.001,21,1,0)="This is the number of the method of processing."
^DD(442.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(442.5,.01,1,0)="^.1"
^DD(442.5,.01,1,1,0)="442.5^B"
^DD(442.5,.01,1,1,1)="S ^PRCD(442.5,""B"",$E(X,1,30),DA)="""""
^DD(442.5,.01,1,1,2)="K ^PRCD(442.5,""B"",$E(X,1,30),DA)"
^DD(442.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(442.5,.01,21,0)="^^1^1^2910516^^"
^DD(442.5,.01,21,1,0)="This is the name of the method of processing."
^DD(442.5,.01,"DT")="2870922"
^DD(442.5,.05,0)="PROCESSING CONTROL^S^1:PAYMENT PROCESSING;2:DOCUMENT PROCESSING;^0;5^Q"
^DD(442.5,.05,3)="This field defines whether the Pat Type controls how the payment of the PAT is processed, or how the PAT document is routed through IFCAP."
^DD(442.5,.05,21,0)="^^2^2^2910516^^"
^DD(442.5,.05,21,1,0)="This field defines whether the PAT type controls how the"
^DD(442.5,.05,21,2,0)="payment of the PAT is processed, or how the PAT is routed through IFCAP."
^DD(442.5,.05,"DT")="2890111"
^DD(442.5,1,0)="ABBREVIATION^RF^^0;2^K:$L(X)>4!($L(X)<2) X"
^DD(442.5,1,1,0)="^.1"
^DD(442.5,1,1,1,0)="442.5^C"
^DD(442.5,1,1,1,1)="S ^PRCD(442.5,""C"",$E(X,1,30),DA)="""""
^DD(442.5,1,1,1,2)="K ^PRCD(442.5,""C"",$E(X,1,30),DA)"
^DD(442.5,1,1,1,"%D",0)="^^2^2^2930628^"
^DD(442.5,1,1,1,"%D",1,0)="This X-REF is used for lookup on the ABBREVIATION field in the PAT TYPE"
^DD(442.5,1,1,1,"%D",2,0)="file."
^DD(442.5,1,3)="Answer must be 2-4 characters in length."
^DD(442.5,1,21,0)="^^1^1^2910516^"
^DD(442.5,1,21,1,0)="This is an abbreviation for the method of processing."
^DD(442.5,1,"DT")="2890816"
^DD(442.5,2,0)="ORDER^RNJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.5,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(442.5,2,21,0)="^^1^1^2910516^"
^DD(442.5,2,21,1,0)="This field contains internal program code for screen display."
^DD(442.5,2,"DT")="2860920"
^DD(442.5,3,0)="REC RPT REQUIRED^RS^Y:YES;N:NO;^0;4^Q"
^DD(442.5,3,21,0)="^^1^1^2910516^"
^DD(442.5,3,21,1,0)="This indicates whether a receiving report is required for this method of processing."
^DD(442.5,3,"DT")="2861003"
^DD(442.5,4,0)="DESCRIPTION^442.54^^1;0"
^DD(442.5,4,21,0)="^^1^1^2910516^^"
^DD(442.5,4,21,1,0)="This is a description of the processing used for this PAT type."
^DD(442.5,"B","ABBREVIATION",1)=""
^DD(442.5,"B","DESCRIPTION",4)=""
^DD(442.5,"B","NAME",.01)=""
^DD(442.5,"B","NUMBER",.001)=""
^DD(442.5,"B","ORDER",2)=""
^DD(442.5,"B","PROCESSING CONTROL",.05)=""
^DD(442.5,"B","REC RPT REQUIRED",3)=""
^DD(442.5,"GL",0,1,.01)=""
^DD(442.5,"GL",0,2,1)=""
^DD(442.5,"GL",0,3,2)=""
^DD(442.5,"GL",0,4,3)=""
^DD(442.5,"GL",0,5,.05)=""
^DD(442.5,"GL",1,0,4)=""
^DD(442.5,"IX",.01)=""
^DD(442.5,"IX",1)=""
^DD(442.5,"RQ",.01)=""
^DD(442.5,"RQ",1)=""
^DD(442.5,"RQ",2)=""
^DD(442.5,"RQ",3)=""
^DD(442.5,"SB",442.54,4)=""
^DD(442.54,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(442.54,0,"NM","DESCRIPTION")=""
^DD(442.54,0,"UP")="442.5"
^DD(442.54,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(442.54,.01,3)="Describe what actions/processing takes place in the IFCAP system based on this PAT Type."
^DD(442.54,.01,21,0)="^^2^2^2930414^"
^DD(442.54,.01,21,1,0)=" "
^DD(442.54,.01,21,2,0)="Description of PAT TYPE"
^DD(442.54,.01,"DT")="2890111"
^DD(442.54,"B","DESCRIPTION",.01)=""
^DD(442.54,"GL",0,1,.01)=""
^DD(442.6,0)="FIELD^^5^6"
^DD(442.6,0,"DT")="2910626"
^DD(442.6,0,"ID","WRITE")="W ""   "",@(""$P($P($C(59)_$S($D(^DD(442.6,4,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(442.6,0,"IX","B",442.6,.01)=""
^DD(442.6,0,"IX","C",442.6,.01)=""
^DD(442.6,0,"NM","PAT NUMBER")=""
^DD(442.6,0,"PT",669.9,10)=""
^DD(442.6,0,"VR")="5.1"
^DD(442.6,0,"VRPK")="IFCAP"
^DD(442.6,.01,0)="COMMON NUMBERING SERIES^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<6)!'(X?3N1""-""2UN.UN) X I $D(X),$D(^PRC(442.6,""B"",X)) K X"
^DD(442.6,.01,1,0)="^.1"
^DD(442.6,.01,1,1,0)="442.6^B"
^DD(442.6,.01,1,1,1)="S ^PRC(442.6,""B"",$E(X,1,30),DA)="""""
^DD(442.6,.01,1,1,2)="K ^PRC(442.6,""B"",$E(X,1,30),DA)"
^DD(442.6,.01,1,2,0)="442.6^C^MUMPS"
^DD(442.6,.01,1,2,1)="S ^PRC(442.6,""C"",$P(X,""-"",2),DA)="""""
^DD(442.6,.01,1,2,2)="K ^PRC(442.6,""C"",$P(X,""-"",2),DA)"
^DD(442.6,.01,1,2,"%D",0)="^^2^2^2930628^"
^DD(442.6,.01,1,2,"%D",1,0)="This X-REF is used for lookup.  Just the COMMON NUMBERING SERIES"
^DD(442.6,.01,1,2,"%D",2,0)="without the site number is used in this X-REF."
^DD(442.6,.01,3)="Enter the station number and the common numbering series separated by '-'. (e.g. 531-A6 or 531-A61)"
^DD(442.6,.01,21,0)="^^1^1^2930204^^"
^DD(442.6,.01,21,1,0)="This is the station number and the common numbering series."
^DD(442.6,.01,"DT")="2880819"
^DD(442.6,1,0)="LOWER BOUND^RNJ4,0X^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),""-"",2),2)'=""P"" K:$L($P(^(0),U))=7&(X>999) X"
^DD(442.6,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(442.6,1,21,0)="^^1^1^2910516^"
^DD(442.6,1,21,1,0)="This is the lower bound of the numbering series."
^DD(442.6,1,"DT")="2880505"
^DD(442.6,2,0)="UPPER BOUND^RNJ4,0X^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),""-"",2),2)'=""P"" K:$L($P(^(0),U))=7&(X>999) X"
^DD(442.6,2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(442.6,2,21,0)="^^1^1^2910516^"
^DD(442.6,2,21,1,0)="This is the upper bound of the numbering series."
^DD(442.6,2,"DT")="2880505"
^DD(442.6,3,0)="NEXT NUMBER^NJ4,0X^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),$E($P($P(^PRC(442.6,D0,0),U),""-"",2),2)'=""P"" K:$L($P(^(0),U))=7&(X>999) X"
^DD(442.6,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(442.6,3,21,0)="^^2^2^2910516^"
^DD(442.6,3,21,1,0)="This is the first number of the series that will"
^DD(442.6,3,21,2,0)="be used."
^DD(442.6,3,"DT")="2880505"
^DD(442.6,4,0)="USING SECTION^S^1:PERSONAL PROPERTY;2:PURCHASING & CONTRACTING;3:IMPREST FUNDS CLERK;4:ACCOUNTING TECHNICIAN;5:ACCOUNTS RECEIVABLE;6:PC AUTHORIZED BUYER;7:DO AUTHORIZED BUYER;^0;5^Q"
^DD(442.6,4,3)="This field limits access to certain blocks of P.O.numbers.  Note that if the field is left empty, it can be used ONLY by P&C."
^DD(442.6,4,21,0)="^^1^1^2960625^^"
^DD(442.6,4,21,1,0)="This is the using Section."
^DD(442.6,4,"DT")="2960625"
^DD(442.6,5,0)="FISCAL YEAR^F^^0;6^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(442.6,5,3)="Answer must be 2 characters in length."
^DD(442.6,5,21,0)="^^2^2^2930408^"
^DD(442.6,5,21,1,0)=" "
^DD(442.6,5,21,2,0)="The fiscal year."
^DD(442.6,5,"DT")="2910626"
^DD(442.6,"B","COMMON NUMBERING SERIES",.01)=""
^DD(442.6,"B","FISCAL YEAR",5)=""
^DD(442.6,"B","LOWER BOUND",1)=""
^DD(442.6,"B","NEXT NUMBER",3)=""
^DD(442.6,"B","UPPER BOUND",2)=""
^DD(442.6,"B","USING SECTION",4)=""
^DD(442.6,"GL",0,1,.01)=""
^DD(442.6,"GL",0,2,1)=""
^DD(442.6,"GL",0,3,2)=""
^DD(442.6,"GL",0,4,3)=""
^DD(442.6,"GL",0,5,4)=""
^DD(442.6,"GL",0,6,5)=""
^DD(442.6,"IX",.01)=""
^DD(442.6,"RQ",.01)=""
^DD(442.6,"RQ",1)=""
^DD(442.6,"RQ",2)=""
^DD(442.7,0)="FIELD^^2^3"
^DD(442.7,0,"DDA")="N"
^DD(442.7,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(442.7,0,"IX","B",442.7,.01)=""
^DD(442.7,0,"IX","C",442.7,1)=""
^DD(442.7,0,"NM","ADMINISTRATIVE CERTIFICATIONS")=""
^DD(442.7,0,"PT",442.15,.01)=""
^DD(442.7,0,"PT",443.624,.01)=""
^DD(442.7,0,"VR")="5.1"
^DD(442.7,0,"VRPK")="IFCAP"
^DD(442.7,.01,0)="NUMBER^RNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=+X"
^DD(442.7,.01,1,0)="^.1"
^DD(442.7,.01,1,1,0)="442.7^B"
^DD(442.7,.01,1,1,1)="S ^PRC(442.7,""B"",$E(X,1,30),DA)="""""
^DD(442.7,.01,1,1,2)="K ^PRC(442.7,""B"",$E(X,1,30),DA)"
^DD(442.7,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(442.7,.01,21,0)="^^1^1^2910516^"
^DD(442.7,.01,21,1,0)="This is the number of the administrative certification."
^DD(442.7,.01,"DT")="2870407"
^DD(442.7,1,0)="TYPE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3) X"
^DD(442.7,1,1,0)="^.1"
^DD(442.7,1,1,1,0)="442.7^C"
^DD(442.7,1,1,1,1)="S ^PRC(442.7,""C"",$E(X,1,30),DA)="""""
^DD(442.7,1,1,1,2)="K ^PRC(442.7,""C"",$E(X,1,30),DA)"
^DD(442.7,1,1,1,"%D",0)="^^2^2^2930628^"
^DD(442.7,1,1,1,"%D",1,0)="This X-REF is used for lookup of the ADMINISTRATIVE CERTIFICATIONS"
^DD(442.7,1,1,1,"%D",2,0)="file TYPE."
^DD(442.7,1,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(442.7,1,21,0)="^^1^1^2910516^"
^DD(442.7,1,21,1,0)="This is the type of the administrative certification."
^DD(442.7,2,0)="TEXT^442.701^^1;0"
^DD(442.7,2,21,0)="^^1^1^2910516^"
^DD(442.7,2,21,1,0)="This is the text of the administrative certification."
^DD(442.7,"B","NUMBER",.01)=""
^DD(442.7,"B","TEXT",2)=""
^DD(442.7,"B","TYPE",1)=""
^DD(442.7,"GL",0,1,.01)=""
^DD(442.7,"GL",0,2,1)=""
^DD(442.7,"GL",1,0,2)=""
^DD(442.7,"IX",.01)=""
^DD(442.7,"IX",1)=""
^DD(442.7,"RQ",.01)=""
^DD(442.7,"SB",442.701,2)=""
^DD(442.701,0)="TEXT SUB-FIELD^^.01^1"
^DD(442.701,0,"NM","TEXT")=""
^DD(442.701,0,"UP")="442.7"
^DD(442.701,.01,0)="TEXT^W^^0;1^Q"
^DD(442.701,.01,21,0)="^^2^2^2930414^"
^DD(442.701,.01,21,1,0)=" "
^DD(442.701,.01,21,2,0)="Text for the ADMINISTRATIVE CERTIFICATION"
^DD(442.701,"B","TEXT",.01)=""
^DD(442.701,"GL",0,1,.01)=""
^DD(442.714,0)="CHANGES SUB-FIELD^^7^8"
^DD(442.714,0,"DT")="2940423"
^DD(442.714,0,"IX","AC",442.714,1)=""
^DD(442.714,0,"IX","AD",442.714,7)=""
^DD(442.714,0,"IX","B",442.714,.01)=""
^DD(442.714,0,"NM","CHANGES")=""
^DD(442.714,0,"UP")="442.07"
^DD(442.714,.01,0)="CHANGES^NJ8,0^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.714,.01,1,0)="^.1"
^DD(442.714,.01,1,1,0)="442.714^B"
^DD(442.714,.01,1,1,1)="S ^PRC(442,DA(2),6,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(442.714,.01,1,1,2)="K ^PRC(442,DA(2),6,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(442.714,.01,1,2,0)="^^TRIGGER^442.714^5"
^DD(442.714,.01,1,2,1)="X ^DD(442.714,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(442,D0,6,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(442.714,.01,1,2,1.1) X ^DD(442.714,.01,1,2,1.4)"
^DD(442.714,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(442.714,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^PRC(442,D0,6,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""""
^DD(442.714,.01,1,2,1.4)="S DIH=$S($D(^PRC(442,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=442.714,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(442.714,.01,1,2,2)="Q"
^DD(442.714,.01,1,2,"CREATE CONDITION")="DATE & TIME ENTERED="""""
^DD(442.714,.01,1,2,"CREATE VALUE")="NOW"
^DD(442.714,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(442.714,.01,1,2,"DT")="2940405"
^DD(442.714,.01,1,2,"FIELD")="DATE & TIME"
^DD(442.714,.01,1,3,0)="^^TRIGGER^442.714^6"
^DD(442.714,.01,1,3,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^PRC(442,D0,6,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(442.714,.01,1,3,1.4)"
^DD(442.714,.01,1,3,1.4)="S DIH=$S($D(^PRC(442,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=442.714,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(442.714,.01,1,3,2)="Q"
^DD(442.714,.01,1,3,"CREATE VALUE")="S X=DUZ"
^DD(442.714,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(442.714,.01,1,3,"DT")="2940405"
^DD(442.714,.01,1,3,"FIELD")="USER"
^DD(442.714,.01,3)="Enter the next sequential number."
^DD(442.714,.01,21,0)="^^2^2^2940113^^"
^DD(442.714,.01,21,1,0)="This number represents the order that each field within this amendment"
^DD(442.714,.01,21,2,0)="was changed."
^DD(442.714,.01,"DT")="2940405"
^DD(442.714,1,0)="AMENDMENT TYPE^NJ2,0^^0;2^K:+X'=X!(X>19)!(X<1)!(X?.E1"".""1N.N) X"
^DD(442.714,1,1,0)="^.1"
^DD(442.714,1,1,1,0)="442.714^AC^MUMPS"
^DD(442.714,1,1,1,1)="S PRCHAA=$G(^PRC(442,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)=""""  S ^PRC(442,DA(2),6,DA(1),3,""AC"",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),"";""),DA)="""" K PRCHAA"
^DD(442.714,1,1,1,2)="S PRCHAA=$G(^PRC(442,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)=""""  K ^PRC(442,DA(2),6,DA(1),3,""AC"",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),"";""),DA),PRCHAA"
^DD(442.714,1,1,1,"DT")="2940509"
^DD(442.714,1,3)="Enter the number for the amendment edit choosen."
^DD(442.714,1,21,0)="^^1^1^2940113^"
^DD(442.714,1,21,1,0)="This is the numeric value for the amendment edit choosen."
^DD(442.714,1,"DT")="2940509"
^DD(442.714,2,0)="FIELD & FILE^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(442.714,2,3)="Enter the FIELD;FILE values for the field that was edited."
^DD(442.714,2,21,0)="^^3^3^2940113^"
^DD(442.714,2,21,1,0)="In this field will be the field number followed by a ';' then by the file"
^DD(442.714,2,21,2,0)="number of the changed entry.  If the field is located in a subfile"
^DD(442.714,2,21,3,0)="then the file number will become the subfile number."
^DD(442.714,2,"DT")="2940113"
^DD(442.714,3,0)="OLD DATA VALUE^442.7143^^1;0"
^DD(442.714,3,21,0)="^^1^1^2941123^"
^DD(442.714,3,21,1,0)="It is an old data value."
^DD(442.714,4,0)="SUBRECORD ENTRY^F^^0;4^K:$L(X)>100!($L(X)<1) X"
^DD(442.714,4,3)="Enter the subrecord entry value seperated by ';'.  The subrecord value will be D1 or D2 etc."
^DD(442.714,4,21,0)="^^3^3^2940113^"
^DD(442.714,4,21,1,0)="Even though an entry is made into the FIELD & FILE field, to find the"
^DD(442.714,4,21,2,0)="correct entry in any subfiles the subdile internal entry numbers need"
^DD(442.714,4,21,3,0)="to be recorded in this field."
^DD(442.714,4,"DT")="2940113"
^DD(442.714,5,0)="DATE & TIME ENTERED^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.714,5,5,1,0)="442.714^.01^2"
^DD(442.714,5,21,0)="^^2^2^2940113^"
^DD(442.714,5,21,1,0)="This is the date and time the user changed the entry listed in the"
^DD(442.714,5,21,2,0)="FIELD & FILE and SUBRECORD ENTRY fields."
^DD(442.714,5,"DT")="2940113"
^DD(442.714,6,0)="USER^P200'^VA(200,^0;6^Q"
^DD(442.714,6,3)="Enter the person who edited the field added in this CHANGES record."
^DD(442.714,6,5,1,0)="442.714^.01^3"
^DD(442.714,6,21,0)="^^1^1^2940113^"
^DD(442.714,6,21,1,0)="This field will point to VA(200, showing the user who made this change."
^DD(442.714,6,"DT")="2940113"
^DD(442.714,7,0)="OTHER FILE NUMBER^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.714,7,1,0)="^.1"
^DD(442.714,7,1,1,0)="442.714^AD^MUMPS"
^DD(442.714,7,1,1,1)="I X>0 S ^PRC(442,DA(2),6,DA(1),3,""AD"",X,DA)="""""
^DD(442.714,7,1,1,2)="I X>0 K ^PRC(442,DA(2),6,DA(1),3,""AD"",X,DA)"
^DD(442.714,7,1,1,"DT")="2940423"
^DD(442.714,7,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(442.714,7,21,0)="^^2^2^2940423^"
^DD(442.714,7,21,1,0)="This field contains the Internal Record Number for file 442.8, the DELIVERY"
^DD(442.714,7,21,2,0)="SCHEDULE (ORDER) file."
^DD(442.714,7,"DT")="2940423"
^DD(442.714,"B","AMENDMENT TYPE",1)=""
^DD(442.714,"B","CHANGES",.01)=""
^DD(442.714,"B","DATE & TIME ENTERED",5)=""
^DD(442.714,"B","FIELD & FILE",2)=""
^DD(442.714,"B","OLD DATA VALUE",3)=""
^DD(442.714,"B","OTHER FILE NUMBER",7)=""
^DD(442.714,"B","SUBRECORD ENTRY",4)=""
^DD(442.714,"B","USER",6)=""
^DD(442.714,"GL",0,1,.01)=""
^DD(442.714,"GL",0,2,1)=""
^DD(442.714,"GL",0,3,2)=""
^DD(442.714,"GL",0,4,4)=""
^DD(442.714,"GL",0,5,5)=""
^DD(442.714,"GL",0,6,6)=""
^DD(442.714,"GL",0,7,7)=""
^DD(442.714,"GL",1,0,3)=""
^DD(442.714,"IX",.01)=""
^DD(442.714,"IX",1)=""
^DD(442.714,"IX",7)=""
^DD(442.714,"SB",442.7143,3)=""
^DD(442.7143,0)="OLD DATA VALUE SUB-FIELD^^.01^1"
^DD(442.7143,0,"DT")="2940406"
^DD(442.7143,0,"NM","OLD DATA VALUE")=""
^DD(442.7143,0,"UP")="442.714"
^DD(442.7143,.01,0)="OLD DATA VALUE^WL^^0;1^Q"
^DD(442.7143,.01,21,0)="^^1^1^2941123^"
^DD(442.7143,.01,21,1,0)="It is a value(s) before the amendment."
^DD(442.7143,.01,"DT")="2940406"
^DD(442.7143,"B","OLD DATA VALUE",.01)=""
^DD(442.7143,"GL",0,1,.01)=""
^DD(442.8,0)="FIELD^^5^6"
^DD(442.8,0,"DDA")="N"
^DD(442.8,0,"DT")="2961114"
^DD(442.8,0,"ID",2)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(442.8,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCS(410.8,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(410.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(442.8,0,"ID","A1")="W ""   "",$P(^(0),U,2)"
^DD(442.8,0,"ID","Z1")="W ?60,""DELV.QTY:"",$J($P(^(0),U,5),6)"
^DD(442.8,0,"IX","AC",442.8,.01)=""
^DD(442.8,0,"IX","AD",442.8,1)=""
^DD(442.8,0,"IX","AF",442.8,.01)=""
^DD(442.8,0,"IX","AG",442.8,2)=""
^DD(442.8,0,"IX","B",442.8,.01)=""
^DD(442.8,0,"NM","DELIVERY SCHEDULE (ORDER)")=""
^DD(442.8,0,"PT",441.7,6)=""
^DD(442.8,0,"SCR")="X $S('$D(PRCHPONO):""I 1"",'$D(PRCHDA):""I $P(^(0),U,1)=PRCHPONO"",1:""I $P(^(0),U,1)=PRCHPONO,$P(^(0),U,2)=PRCHDA"")"
^DD(442.8,0,"VR")="5.1"
^DD(442.8,0,"VRPK")="IFCAP"
^DD(442.8,.01,0)="ORDER NUMBER (PAT)^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X),'$O(^PRC(442,""B"",X,0)) K X"
^DD(442.8,.01,1,0)="^.1"
^DD(442.8,.01,1,1,0)="442.8^B"
^DD(442.8,.01,1,1,1)="S ^PRC(442.8,""B"",$E(X,1,30),DA)="""""
^DD(442.8,.01,1,1,2)="K ^PRC(442.8,""B"",$E(X,1,30),DA)"
^DD(442.8,.01,1,2,0)="442.8^AC^MUMPS"
^DD(442.8,.01,1,2,1)="I $P(^PRC(442.8,DA,0),U,2) S ^PRC(442.8,""AC"",$E(X,1,30),$P(^(0),U,2),DA)="""""
^DD(442.8,.01,1,2,2)="I $P(^PRC(442.8,DA,0),U,2) K ^PRC(442.8,""AC"",$E(X,1,30),$P(^(0),U,2),DA)"
^DD(442.8,.01,1,2,"%D",0)="1^^9^9^2960503^^^"
^DD(442.8,.01,1,2,"%D",1,0)="This X-REF and the ""AD"" X-REF in the ITEM field work together"
^DD(442.8,.01,1,2,"%D",2,0)="to control the ""AC"" X-REF, a list of ORDER NUMBER (PAT) and ITEM."
^DD(442.8,.01,1,2,"%D",3,0)="Both fields must have a value for the ""AC"" X-REF to be created."
^DD(442.8,.01,1,2,"%D",4,0)=" "
^DD(442.8,.01,1,2,"%D",5,0)="For the KILL part of this X-REF to remove the ""AC"" X-REF the ITEM"
^DD(442.8,.01,1,2,"%D",6,0)="field must have some entry."
^DD(442.8,.01,1,2,"%D",7,0)="   "
^DD(442.8,.01,1,2,"%D",8,0)="The field at NODE 0 PIECE 2, ITEM, is the INTERNAL ENTRY NUMBER of the"
^DD(442.8,.01,1,2,"%D",9,0)="ITEM multiple entry within the order that this PAT number references."
^DD(442.8,.01,1,3,0)="442.8^AF^MUMPS"
^DD(442.8,.01,1,3,1)="I $P(^PRC(442.8,DA,0),U,3) S ^PRC(442.8,""AF"",$E(X,1,30),$P(^(0),U,3),DA)="""""
^DD(442.8,.01,1,3,2)="I $P(^PRC(442.8,DA,0),U,3) K ^PRC(442.8,""AF"",$E(X,1,30),$P(^(0),U,3),DA)"
^DD(442.8,.01,1,3,"%D",0)="^^5^5^2930628^^"
^DD(442.8,.01,1,3,"%D",1,0)="This X-REF and the ""AG"" X-REF in the DELIVERY DATE field work together"
^DD(442.8,.01,1,3,"%D",2,0)="to control the ""AF"" X-REF, a list of ORDER NUMBER (PAT) and DELIVERY DATE"
^DD(442.8,.01,1,3,"%D",3,0)="values.  To SET the ""AF"" X-REF both fields must have data."
^DD(442.8,.01,1,3,"%D",4,0)=" "
^DD(442.8,.01,1,3,"%D",5,0)="To KILL the ""AF"" X-REF the DELIVERY DATE field must have data in it."
^DD(442.8,.01,3)="Enter entire PAT number (must be a P.O. or Requisition on the Procurement & Accounting Transactions File)"
^DD(442.8,.01,21,0)="^^3^3^2930204^^"
^DD(442.8,.01,21,1,0)="This is the entire PAT (Pending Accounting Transaction) number"
^DD(442.8,.01,21,2,0)="that must be a Purchase Order or Requisition on the Procurement"
^DD(442.8,.01,21,3,0)="& Accounting Transactions File."
^DD(442.8,.01,"DT")="2970512"
^DD(442.8,1,0)="ITEM^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1)!'(X?1N.N) X I $D(X) S Z=$O(^PRC(442,""B"",$P(^PRC(442.8,DA,0),U,1),0)) K:'$D(^PRC(442,+Z,2,X,0)) X K Z"
^DD(442.8,1,1,0)="^.1"
^DD(442.8,1,1,1,0)="442.8^AD^MUMPS"
^DD(442.8,1,1,1,1)="I $P(^PRC(442.8,DA,0),U,1)]"""" S ^PRC(442.8,""AC"",$P(^(0),U,1),X,DA)="""""
^DD(442.8,1,1,1,2)="I $P(^PRC(442.8,DA,0),U,1)]"""" K ^PRC(442.8,""AC"",$P(^(0),U,1),X,DA)"
^DD(442.8,1,1,1,"%D",0)="^^8^8^2960503^^"
^DD(442.8,1,1,1,"%D",1,0)="This X-REF and the ""AC"" X-REF in the ORDER NUMBER (PAT) field work"
^DD(442.8,1,1,1,"%D",2,0)="together to control the ""AC"" X-REF, a list of ORDER NUMBER (PAT) and"
^DD(442.8,1,1,1,"%D",3,0)="ITEM.  Both fields must contain data for the ""AC"" X-REF to be created."
^DD(442.8,1,1,1,"%D",4,0)="                                "
^DD(442.8,1,1,1,"%D",5,0)="For the KILL part of this X-REF to remove the ""AC"" X-REF the ORDER"
^DD(442.8,1,1,1,"%D",6,0)="NUMBER (PAT) field must have an entry."
^DD(442.8,1,1,1,"%D",7,0)="   "
^DD(442.8,1,1,1,"%D",8,0)="This field is the INTERNAL ENTRY NUMBER of an ITEM in this order."
^DD(442.8,1,3)="Enter line-item number from the order (Must be an item on a Purchase Order or Requisition).  Type a number between 1 and 99999."
^DD(442.8,1,4)="S Z=$O(^PRC(442,""B"",$P(^PRC(442.8,DA,0),U,1),0)) Q:'Z  S:$D(D) PRCHD=D S X=""?"",DIC=""^PRC(442,""_Z_"",2,"",DIC(0)=""QEM"" D ^DIC S:$D(DIE) DIC=DIE S:$D(PRCHD) D=PRCHD K PRCHD,Z"
^DD(442.8,1,21,0)="^^1^1^2960503^^^^"
^DD(442.8,1,21,1,0)="This is the Line-item number for a Purchase Order or Requisition."
^DD(442.8,1,23,0)="^^5^5^2960503^"
^DD(442.8,1,23,1,0)="This field contains the INTERNAL ENTRY NUMBER of the ITEM multiple"
^DD(442.8,1,23,2,0)="entry for which this DELIVERY SCHEDULE (ORDER) belongs."
^DD(442.8,1,23,3,0)="  "
^DD(442.8,1,23,4,0)="The INPUT TRANSFORM for this field, the part checking out the ITEM"
^DD(442.8,1,23,5,0)="record, is correctly referencing the IEN of the ITEM multiple."
^DD(442.8,1,"DT")="2960319"
^DD(442.8,2,0)="DELIVERY DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.8,2,1,0)="^.1"
^DD(442.8,2,1,1,0)="442.8^AG^MUMPS"
^DD(442.8,2,1,1,1)="I $P(^PRC(442.8,DA,0),U,1)]"""" S ^PRC(442.8,""AF"",$E($P(^(0),U,1),1,30),X,DA)="""""
^DD(442.8,2,1,1,2)="I $P(^PRC(442.8,DA,0),U,1)]"""" K ^PRC(442.8,""AF"",$E($P(^(0),U,1),1,30),X,DA)"
^DD(442.8,2,1,1,"%D",0)="^^7^7^2930629^"
^DD(442.8,2,1,1,"%D",1,0)="This X-REF and the ""AF"" X-REF in the ORDER NUMBER (PAT) field work"
^DD(442.8,2,1,1,"%D",2,0)="together to control the ""AF"" X-REF, a list of ORDER NUMBER (PAT)"
^DD(442.8,2,1,1,"%D",3,0)="and DELIVERY DATE values.  To SET the ""AF"" X-REF both fields must"
^DD(442.8,2,1,1,"%D",4,0)="have data."
^DD(442.8,2,1,1,"%D",5,0)="                                     "
^DD(442.8,2,1,1,"%D",6,0)="To KILL the ""AF"" X-REF the ORDER NUMBER (PAT) field must have data"
^DD(442.8,2,1,1,"%D",7,0)="in it."
^DD(442.8,2,3)="Enter date on which delivery is to be made."
^DD(442.8,2,21,0)="^^1^1^2920318^"
^DD(442.8,2,21,1,0)="This is the date on which delivery of the item (s) is to be made."
^DD(442.8,2,"DT")="2900123"
^DD(442.8,3,0)="LOCATION FOR DELIVERY^RP410.8^PRCS(410.8,^0;4^Q"
^DD(442.8,3,1,0)="^.1^^0"
^DD(442.8,3,3)="Enter location to which the item should be delivered."
^DD(442.8,3,21,0)="^^1^1^2920318^"
^DD(442.8,3,21,1,0)="This is the location to which the item should be delivered."
^DD(442.8,3,"DT")="2900105"
^DD(442.8,4,0)="QUANTITY TO BE DELIVERED^RNJ9,0X^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""3N.N)!($D(PRCHQTY)&$D(PRCHTOT)&($G(PRCHTOT)+X-$P($G(^PRC(442.8,DA,0)),U,5)>$G(PRCHQTY)&(X'=0))) X"
^DD(442.8,4,3)="How many units should be delivered on this date? (Enter zero to exit option and delete this schedule)"
^DD(442.8,4,4)="I $D(PRCHTOT) S PRCHSUM=$G(PRCHQTY)-PRCHTOT+$P($G(^PRC(442.8,DA,0)),U,5) W ?5,""The largest valid quantity here is "",$S($G(PRCHSUM)>0:PRCHSUM,1:""0""),""."",!"
^DD(442.8,4,21,0)="^^2^2^2970209^^^^"
^DD(442.8,4,21,1,0)="This is the quantity to be delivered to the specified location"
^DD(442.8,4,21,2,0)="on the specified date."
^DD(442.8,4,"DT")="2961120"
^DD(442.8,5,0)="DELETE FLAG^S^D:DELETE;^0;6^Q"
^DD(442.8,5,21,0)="^^2^2^2941128^^"
^DD(442.8,5,21,1,0)="It is a flag to delete the Delivery Schedule, that is being displayed on the"
^DD(442.8,5,21,2,0)="purchase order."
^DD(442.8,5,"DT")="2940330"
^DD(442.8,"B","DELETE FLAG",5)=""
^DD(442.8,"B","DELIVERY DATE",2)=""
^DD(442.8,"B","ITEM",1)=""
^DD(442.8,"B","LOCATION FOR DELIVERY",3)=""
^DD(442.8,"B","ORDER NUMBER (PAT)",.01)=""
^DD(442.8,"B","QUANTITY TO BE DELIVERED",4)=""
^DD(442.8,"GL",0,1,.01)=""
^DD(442.8,"GL",0,2,1)=""
^DD(442.8,"GL",0,3,2)=""
^DD(442.8,"GL",0,4,3)=""
^DD(442.8,"GL",0,5,4)=""
^DD(442.8,"GL",0,6,5)=""
^DD(442.8,"IX",.01)=""
^DD(442.8,"IX",1)=""
^DD(442.8,"IX",2)=""
^DD(442.8,"RQ",.01)=""
^DD(442.8,"RQ",1)=""
^DD(442.8,"RQ",2)=""
^DD(442.8,"RQ",3)=""
^DD(442.8,"RQ",4)=""
^DD(442.9,0)="FIELD^^8^9"
^DD(442.9,0,"DT")="2930511"
^DD(442.9,0,"IX","AC",442.9,6)=""
^DD(442.9,0,"IX","B",442.9,.01)=""
^DD(442.9,0,"IX","C",442.9,.01)=""
^DD(442.9,0,"NM","ELEC RECEIVING REPORT BATCH")=""
^DD(442.9,0,"VR")="5.1"
^DD(442.9,0,"VRPK")="IFCAP"
^DD(442.9,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<12)!'(X?3N1""-""6UN1"".""1.5N) X"
^DD(442.9,.01,1,0)="^.1"
^DD(442.9,.01,1,1,0)="442.9^B"
^DD(442.9,.01,1,1,1)="S ^PRC(442.9,""B"",$E(X,1,30),DA)="""""
^DD(442.9,.01,1,1,2)="K ^PRC(442.9,""B"",$E(X,1,30),DA)"
^DD(442.9,.01,1,2,0)="442.9^C^MUMPS"
^DD(442.9,.01,1,2,1)="S ^PRC(442.9,""C"",$P(X,""-"",2),DA)="""""
^DD(442.9,.01,1,2,2)="K ^PRC(442.9,""C"",$P(X,""-"",2),DA)"
^DD(442.9,.01,1,2,"%D",0)="^^2^2^2930630^"
^DD(442.9,.01,1,2,"%D",1,0)="This X-REF will allow lookup of the partial Purchase Order to"
^DD(442.9,.01,1,2,"%D",2,0)="be made into an ELEC RECEIVING REPORT BATCH to be sent to Austin."
^DD(442.9,.01,3)="ENTER FULL PO NUMBER, A PERIOD, THEN THE PARTIAL NUMBER EG 503-A80001.2"
^DD(442.9,.01,21,0)="^^2^2^2910516^"
^DD(442.9,.01,21,1,0)="This is the full purchase order/partial number for the receiving"
^DD(442.9,.01,21,2,0)="record."
^DD(442.9,.01,"DT")="2880624"
^DD(442.9,1,0)="PURCHASE ORDER NUMBER^RP442'^PRC(442,^0;2^Q"
^DD(442.9,1,21,0)="^^1^1^2910516^"
^DD(442.9,1,21,1,0)="This is the purchase order number for this receiving report."
^DD(442.9,1,"DT")="2880623"
^DD(442.9,2,0)="PLACED ON LIST BY^P200'^VA(200,^0;3^Q"
^DD(442.9,2,21,0)="^^1^1^2991025^^^^"
^DD(442.9,2,21,1,0)="This is the person who placed the receiving report."
^DD(442.9,2,"DT")="2990922"
^DD(442.9,3,0)="TRANSMISSION DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(442.9,3,21,0)="^^1^1^2910516^"
^DD(442.9,3,21,1,0)="This is the date of the transmission."
^DD(442.9,3,"DT")="2880624"
^DD(442.9,4,0)="IS THIS A RETRANSMISSION^S^1:YES;^0;5^Q"
^DD(442.9,4,21,0)="^^1^1^2910516^"
^DD(442.9,4,21,1,0)="This indicates if this is a retransmission."
^DD(442.9,4,"DT")="2880624"
^DD(442.9,5,0)="LOCAL MAILMAN MESSAGE #^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(442.9,5,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(442.9,5,21,0)="^^2^2^2910516^"
^DD(442.9,5,21,1,0)="This is the local MailMan message number"
^DD(442.9,5,21,2,0)="indicating that transmission has been made."
^DD(442.9,5,"DT")="2880802"
^DD(442.9,6,0)="MESSAGE CREATED^S^0:NO;1:YES;^0;7^Q"
^DD(442.9,6,1,0)="^.1"
^DD(442.9,6,1,1,0)="442.9^AC"
^DD(442.9,6,1,1,1)="S ^PRC(442.9,""AC"",$E(X,1,30),DA)="""""
^DD(442.9,6,1,1,2)="K ^PRC(442.9,""AC"",$E(X,1,30),DA)"
^DD(442.9,6,1,1,"%D",0)="^^2^2^2930630^"
^DD(442.9,6,1,1,"%D",1,0)="This X-REF is used to keep track of which records have been"
^DD(442.9,6,1,1,"%D",2,0)="transmitted to Austin.  This X-REF is not used for lookup."
^DD(442.9,6,21,0)="^^2^2^2910516^^"
^DD(442.9,6,21,1,0)="This fields sets a temporary cross reference during the transmission of"
^DD(442.9,6,21,2,0)="electronic receiving reports to indicate which records have transmitted."
^DD(442.9,6,"DT")="2880819"
^DD(442.9,7,0)="VALIDATION VERSION^NJ2,0^^0;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(442.9,7,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(442.9,7,21,0)="^^5^5^2930511^"
^DD(442.9,7,21,1,0)="This is the version number of the algorithms used to encode and decode"
^DD(442.9,7,21,2,0)="the Validation Code created at the time that the official approving"
^DD(442.9,7,21,3,0)="the transaction entered their electronic signature."
^DD(442.9,7,21,4,0)="The version number of this file is used to check the validation"
^DD(442.9,7,21,5,0)="conversion is necessary."
^DD(442.9,7,23,0)="^^2^2^2930511^"
^DD(442.9,7,23,1,0)="This validation version number is used in the install routine"
^DD(442.9,7,23,2,0)="to check the validation conversion is necessary."
^DD(442.9,7,"DT")="2930511"
^DD(442.9,8,0)="ACCOUNTING PERIOD^CJ8^^ ; ^S X=$$AP^PRCFARRA(D0)"
^DD(442.9,8,9)="^"
^DD(442.9,8,9.01)=""
^DD(442.9,8,9.1)="S X=$$AP^PRCFARRA(D0)"
^DD(442.9,8,21,0)="^^2^2^2950131^^^"
^DD(442.9,8,21,1,0)="This computed field returns the Accounting Period that the user chose"
^DD(442.9,8,21,2,0)="for processing this receiver."
^DD(442.9,"B","ACCOUNTING PERIOD",8)=""
^DD(442.9,"B","IS THIS A RETRANSMISSION",4)=""
^DD(442.9,"B","LOCAL MAILMAN MESSAGE #",5)=""
^DD(442.9,"B","MESSAGE CREATED",6)=""
^DD(442.9,"B","NAME",.01)=""
^DD(442.9,"B","PLACED ON LIST BY",2)=""
^DD(442.9,"B","PURCHASE ORDER NUMBER",1)=""
^DD(442.9,"B","TRANSMISSION DATE",3)=""
^DD(442.9,"B","VALIDATION VERSION",7)=""
^DD(442.9,"GL",0,1,.01)=""
^DD(442.9,"GL",0,2,1)=""
^DD(442.9,"GL",0,3,2)=""
^DD(442.9,"GL",0,4,3)=""
^DD(442.9,"GL",0,5,4)=""
^DD(442.9,"GL",0,6,5)=""
^DD(442.9,"GL",0,7,6)=""
^DD(442.9,"GL",0,8,7)=""
^DD(442.9,"IX",.01)=""
^DD(442.9,"IX",6)=""
^DD(442.9,"RQ",.01)=""
^DD(442.9,"RQ",1)=""
^DD(443,0)="FIELD^^13^17"
^DD(443,0,"DDA")="N"
^DD(443,0,"DT")="2930412"
^DD(443,0,"ID",1.5)="W ""   "",$S($D(^PRCD(442.3,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(443,0,"ID",8)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(443,8,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,8)_"""":"""",2),$C(59),1)"")"
^DD(443,0,"ID","Z1")="W:Y]""""&($P($G(^PRCS(410,+Y,0)),U,10)]"""") ""    "",$P($G(^PRC(411,$P($G(^PRCS(410,+Y,0)),U,10),0)),U)"
^DD(443,0,"IX","AC",443,1.5)=""
^DD(443,0,"IX","B",443,.01)=""
^DD(443,0,"IX","C",443,.01)=""
^DD(443,0,"NM","REQUEST WORKSHEET")=""
^DD(443,0,"VR")="5.1"
^DD(443,0,"VRPK")="IFCAP"
^DD(443,.01,0)="2237 TRANSACTION NUMBER^RP410'X^PRCS(410,^0;1^S DINUM=X"
^DD(443,.01,1,0)="^.1"
^DD(443,.01,1,1,0)="443^B"
^DD(443,.01,1,1,1)="S ^PRC(443,""B"",$E(X,1,30),DA)="""""
^DD(443,.01,1,1,2)="K ^PRC(443,""B"",$E(X,1,30),DA)"
^DD(443,.01,1,2,0)="443^C^MUMPS"
^DD(443,.01,1,2,1)="N ZX S ZX=$P($P($G(^PRCS(410,DA,0)),U,1),""-"",4,5) S:ZX]"""" ^PRC(443,""C"",ZX,DA)="""""
^DD(443,.01,1,2,2)="N ZX S ZX=$P($P($G(^PRCS(410,DA,0)),U,1),""-"",4,5) I ZX]"""" K ^PRC(443,""C"",ZX,DA)"
^DD(443,.01,1,2,"%D",0)="^^4^4^2961017^^^^"
^DD(443,.01,1,2,"%D",1,0)="This X-REF keeps track of the FUND CONTROL POINT and SEQUENCE"
^DD(443,.01,1,2,"%D",2,0)="NUMBER part of a 2237 TRANSACTION NUMBER that is waiting in A&MM"
^DD(443,.01,1,2,"%D",3,0)="to be entered into a P.O. or a Requisition.  This X-REF is used"
^DD(443,.01,1,2,"%D",4,0)="to lookup the 2237 transaction."
^DD(443,.01,1,2,"DT")="2961017"
^DD(443,.01,3)=""
^DD(443,.01,4)=""
^DD(443,.01,21,0)="^^1^1^2930412^^^"
^DD(443,.01,21,1,0)="This is the purchase request transaction number."
^DD(443,.01,"DT")="2961017"
^DD(443,1.5,0)="CURRENT STATUS^R*P442.3'^PRCD(442.3,^0;7^D STAT^PRCHG D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443,1.5,1,0)="^.1"
^DD(443,1.5,1,1,0)="443^AC"
^DD(443,1.5,1,1,1)="S ^PRC(443,""AC"",$E(X,1,30),DA)="""""
^DD(443,1.5,1,1,2)="K ^PRC(443,""AC"",$E(X,1,30),DA)"
^DD(443,1.5,1,1,"%D",0)="^^2^2^2930630^"
^DD(443,1.5,1,1,"%D",1,0)="This X-REF is a list of CURRENT STATUS for each 2237 TRANSACTION"
^DD(443,1.5,1,1,"%D",2,0)="NUMBER in this file.  This X-REF is not used for lookup."
^DD(443,1.5,3)=""
^DD(443,1.5,12)="Status depends on processing step being accomplished, as well as TYPE and SOURCE of request."
^DD(443,1.5,12.1)="D STAT^PRCHG"
^DD(443,1.5,21,0)="^^1^1^2921124^^"
^DD(443,1.5,21,1,0)="This is the current status of the 2237 request."
^DD(443,1.5,"DT")="2900817"
^DD(443,2,0)="ACCOUNTABLE OFFICER^*P200'^VA(200,^0;2^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443,2,12)="Must be an Accountable Officer of Manager"
^DD(443,2,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)=2!($P(^(400),U,1)=4)"""
^DD(443,2,21,0)="^^1^1^2910516^"
^DD(443,2,21,1,0)="This is the accountable officer."
^DD(443,2,"DT")="2921217"
^DD(443,3,0)="VALIDATION CODE^FIO^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(443,3,2)="S Y(0)=Y S Y=""/ES/ ""_$$DECODE^PRCHES11(D0)"
^DD(443,3,2.1)="S Y=""/ES/ ""_$$DECODE^PRCHES11(D0)"
^DD(443,3,3)="Answer must be 2-30 characters in length."
^DD(443,3,21,0)="^^2^2^2921124^^"
^DD(443,3,21,1,0)="This is the electronic signature of the accountable"
^DD(443,3,21,2,0)="officer."
^DD(443,3,"DT")="2921209"
^DD(443,3.5,0)="VALIDATION VERSION^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443,3.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(443,3.5,21,0)="^^2^2^2930511^^^"
^DD(443,3.5,21,1,0)=" "
^DD(443,3.5,21,2,0)="The version of the validation code."
^DD(443,3.5,"DT")="2921217"
^DD(443,3.7,0)="ESIG CODE^F^^0;13^K:$L(X)>10!($L(X)<2) X"
^DD(443,3.7,3)="Answer must be 2-10 characters in length."
^DD(443,3.7,21,0)="^^2^2^2930511^^"
^DD(443,3.7,21,1,0)=" "
^DD(443,3.7,21,2,0)="The signature block name."
^DD(443,3.7,"DT")="2930412"
^DD(443,4,0)="ESIG DATE/TIME^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(443,4,21,0)="^^1^1^2910516^"
^DD(443,4,21,1,0)="This is the date the officer signed the request."
^DD(443,4,"DT")="2921229"
^DD(443,5,0)="DATE SIGNED BY SERVICE^DC^^ ; ^X ^DD(443,5,9.2) S X=$P(Y(443,5,101),U,7) S D0=I(0,0)"
^DD(443,5,9)="^"
^DD(443,5,9.01)="410^44.6;443^.01"
^DD(443,5,9.1)="2237:ES CODE DATE/TIME"
^DD(443,5,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(443,5,1)=$S($D(^PRC(443,D0,0)):^(0),1:""""),D0=$P(Y(443,5,1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(443,5,101)=$S($D(^PRCS(410,D0,7)):^(7),1:"""")"
^DD(443,5,21,0)="^^1^1^2910516^"
^DD(443,5,21,1,0)="This is the date the request was signed by the Service."
^DD(443,5.2,0)="DATE REQUIRED BY SVC^DC^^ ; ^X ^DD(443,5.2,9.2) S X=$P(Y(443,5.2,101),U,4) S D0=I(0,0)"
^DD(443,5.2,9)="^"
^DD(443,5.2,9.01)="410^7;443^.01"
^DD(443,5.2,9.1)="2237 TRANSACTION NUMBER:DATE REQUIRED"
^DD(443,5.2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(443,5.2,1)=$S($D(^PRC(443,D0,0)):^(0),1:""""),D0=$P(Y(443,5.2,1),U,1) S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(443,5.2,101)=$S($D(^PRCS(410,D0,1)):^(1),1:"""")"
^DD(443,5.2,21,0)="^^1^1^2910516^"
^DD(443,5.2,21,1,0)="This is the date this request is required by the service."
^DD(443,6,0)="PURCHASING AGENT^R*P200'^VA(200,^0;5^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443,6,1,0)="^.1"
^DD(443,6,1,1,0)="^^TRIGGER^443^7"
^DD(443,6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(443,6,1,1,1.1) X ^DD(443,6,1,1,1.4)"
^DD(443,6,1,1,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(443,6,1,1,1.4)="S DIH=$S($D(^PRC(443,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=443,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443,6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y S X=DIV S X="""" X ^DD(443,6,1,1,2.4)"
^DD(443,6,1,1,2.4)="S DIH=$S($D(^PRC(443,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=443,DIG=7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443,6,1,1,"CREATE VALUE")="NOW"
^DD(443,6,1,1,"DELETE VALUE")="@"
^DD(443,6,1,1,"FIELD")="DATE ASSIGNED TO PA"
^DD(443,6,12)="Must be a Purchasing Agent of Manager"
^DD(443,6,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>2"""
^DD(443,6,21,0)="^^1^1^2910516^"
^DD(443,6,21,1,0)="This is the purchasing agent responsible for this request."
^DD(443,6,"DT")="2921217"
^DD(443,7,0)="DATE ASSIGNED TO PA^D^^0;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(443,7,5,1,0)="443^6^1"
^DD(443,7,9)="^"
^DD(443,7,21,0)="^^1^1^2910516^"
^DD(443,7,21,1,0)="This is the date this request was assigned to the purchasing agent."
^DD(443,7,"DT")="2860401"
^DD(443,8,0)="CP FUND STATUS^S^1:INSUFFICIENT FUNDS;^0;8^Q"
^DD(443,8,21,0)="^^1^1^2910516^"
^DD(443,8,21,1,0)="This is the Control Point Fund status."
^DD(443,8,"DT")="2860927"
^DD(443,9,0)="TYPE OF REQUEST^RS^1:UNPOSTED;2:POSTED;3:SERVICE;4:BULK SALE;5:NX POSTED;^0;9^Q"
^DD(443,9,21,0)="^^1^1^2910516^"
^DD(443,9,21,1,0)="This is the type of request."
^DD(443,9,"DT")="2870324"
^DD(443,10,0)="SOURCE OF REQUEST^RS^1:VA STOCK;2:GSA/DLA STOCK;3:EXCESS;4:NOT AVAILABLE FROM ANY OF THESE SOURCES;^0;10^Q"
^DD(443,10,21,0)="^^1^1^2910516^"
^DD(443,10,21,1,0)="This is the source of the request."
^DD(443,10,"DT")="2880413"
^DD(443,11,0)="INVENTORY/DISTRIBUTION POINT^P445'^PRCP(445,^0;11^Q"
^DD(443,11,3)="If the request was made for a service using the Generic Inventory/Distribution system, the name of the Inventory Point that made the request should be entered here."
^DD(443,11,21,0)="^^1^1^2910516^"
^DD(443,11,21,1,0)="This is the inventory/distribution point of the request."
^DD(443,11,"DT")="2870810"
^DD(443,12,0)="REMARK^443.012^^1;0"
^DD(443,12,21,0)="^^1^1^2910516^"
^DD(443,12,21,1,0)="This is the remarks field."
^DD(443,13,0)="EXPENDABLE/NONEXPENDABLE^RS^E:EXPENDABLE;N:NON-EXPENDABLE;^0;12^Q"
^DD(443,13,3)="Indicate whether this procurement is for Expendable or for Non-expendable goods (required for new Public Law 100-322)"
^DD(443,13,21,0)="^^3^3^2910516^^"
^DD(443,13,21,1,0)="This field indicates if the procurement is for "
^DD(443,13,21,2,0)="expendable or non-expendable goods, as required"
^DD(443,13,21,3,0)="by Public Law 100-322."
^DD(443,13,"DT")="2890808"
^DD(443,"B","2237 TRANSACTION NUMBER",.01)=""
^DD(443,"B","ACCOUNTABLE OFFICER",2)=""
^DD(443,"B","CP FUND STATUS",8)=""
^DD(443,"B","CURRENT STATUS",1.5)=""
^DD(443,"B","DATE ASSIGNED TO PA",7)=""
^DD(443,"B","DATE REQUIRED BY SVC",5.2)=""
^DD(443,"B","DATE SIGNED BY SERVICE",5)=""
^DD(443,"B","ESIG CODE",3.7)=""
^DD(443,"B","ESIG DATE/TIME",4)=""
^DD(443,"B","EXPENDABLE/NONEXPENDABLE",13)=""
^DD(443,"B","INVENTORY/DISTRIBUTION POINT",11)=""
^DD(443,"B","PURCHASING AGENT",6)=""
^DD(443,"B","REMARK",12)=""
^DD(443,"B","SOURCE OF REQUEST",10)=""
^DD(443,"B","TYPE OF REQUEST",9)=""
^DD(443,"B","VALIDATION CODE",3)=""
^DD(443,"B","VALIDATION VERSION",3.5)=""
^DD(443,"GL",0,1,.01)=""
^DD(443,"GL",0,2,2)=""
^DD(443,"GL",0,3,3)=""
^DD(443,"GL",0,4,4)=""
^DD(443,"GL",0,5,6)=""
^DD(443,"GL",0,6,7)=""
^DD(443,"GL",0,7,1.5)=""
^DD(443,"GL",0,8,8)=""
^DD(443,"GL",0,9,9)=""
^DD(443,"GL",0,10,10)=""
^DD(443,"GL",0,11,11)=""
^DD(443,"GL",0,12,13)=""
^DD(443,"GL",0,13,3.7)=""
^DD(443,"GL",0,14,3.5)=""
^DD(443,"GL",1,0,12)=""
^DD(443,"IX",.01)=""
^DD(443,"IX",1.5)=""
^DD(443,"IX",6)=""
^DD(443,"RQ",.01)=""
^DD(443,"RQ",1.5)=""
^DD(443,"RQ",6)=""
^DD(443,"RQ",9)=""
^DD(443,"RQ",10)=""
^DD(443,"RQ",13)=""
^DD(443,"SB",443.012,12)=""
^DD(443.012,0)="REMARK SUB-FIELD^^.01^1"
^DD(443.012,0,"NM","REMARK")=""
^DD(443.012,0,"UP")="443"
^DD(443.012,.01,0)="REMARK^WL^^0;1^Q"
^DD(443.012,.01,21,0)="^^2^2^2930414^"
^DD(443.012,.01,21,1,0)=" "
^DD(443.012,.01,21,2,0)="Remarks about WORKSHEET"
^DD(443.012,.01,"DT")="2870921"
^DD(443.012,"B","REMARK",.01)=""
^DD(443.012,"GL",0,1,.01)=""
^DD(443.1,0)="FIELD^^3^4"
^DD(443.1,0,"DDA")="N"
^DD(443.1,0,"DT")="2921229"
^DD(443.1,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(443.1,0,"NM","IFCAP PURGEMASTER WORKLIST")=""
^DD(443.1,0,"VR")="5.1"
^DD(443.1,0,"VRPK")="IFCAP"
^DD(443.1,.01,0)="RECORD NUMBER^RNJ12,0X^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(443.1,.01,1,0)="^.1^^0"
^DD(443.1,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(443.1,.01,"DT")="2921228"
^DD(443.1,1,0)="ROUTINE ENTRY POINT^F^^0;2^K:$L(X)>8!($L(X)<1)!'(X?1U1.7UN) X"
^DD(443.1,1,3)="Enter Routine Entry Point Line Tag name"
^DD(443.1,1,"DT")="2920221"
^DD(443.1,2,0)="ROUTINE NAME^RF^^0;3^K:$L(X)>8!($L(X)<1) X"
^DD(443.1,2,3)="Answer must be 1-8 characters in length."
^DD(443.1,2,"DT")="2921229"
^DD(443.1,3,0)="VARIABLE STRING^F^^0;4^K:$L(X)>150!($L(X)<1) X"
^DD(443.1,3,3)="Enter string containing specific values to be passed from the sub-manager to your purging routine.  Delimiter can be any character you choose EXCEPT the '^'."
^DD(443.1,3,"DT")="2921228"
^DD(443.1,"B","RECORD NUMBER",.01)=""
^DD(443.1,"B","ROUTINE ENTRY POINT",1)=""
^DD(443.1,"B","ROUTINE NAME",2)=""
^DD(443.1,"B","VARIABLE STRING",3)=""
^DD(443.1,"GL",0,1,.01)=""
^DD(443.1,"GL",0,2,1)=""
^DD(443.1,"GL",0,3,2)=""
^DD(443.1,"GL",0,4,3)=""
^DD(443.1,"RQ",.01)=""
^DD(443.1,"RQ",2)=""
^DD(443.2,0)="FIELD^^6^6"
^DD(443.2,0,"DT")="2960319"
^DD(443.2,0,"IX","B",443.2,.01)=""
^DD(443.2,0,"NM","IFCAP PURGE PARAMETERS")=""
^DD(443.2,0,"VR")="5.1"
^DD(443.2,0,"VRPK")="IFCAP"
^DD(443.2,.01,0)="ID NUMBER^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.2,.01,1,0)="^.1"
^DD(443.2,.01,1,1,0)="443.2^B"
^DD(443.2,.01,1,1,1)="S ^PRC(443.2,""B"",$E(X,1,30),DA)="""""
^DD(443.2,.01,1,1,2)="K ^PRC(443.2,""B"",$E(X,1,30),DA)"
^DD(443.2,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(443.2,.01,"DT")="2931008"
^DD(443.2,2,0)="DAILY STOP TIME^RF^^0;3^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(443.2,2,3)="Enter time of day in 24 hr time that the Purge Master sub-managers must stop each day.  This time also affects Sat, Sun and Holidays unless you specify differently."
^DD(443.2,2,"DT")="2920211"
^DD(443.2,3,0)="RUN ALL DAY SATURDAY?^S^0:NO;1:YES;^0;4^Q"
^DD(443.2,3,3)="If you select 'YES' the Purge Master will allow its sub-manager to run all day on Saturdays, if required.  If you select 'NO', the sub-managers will terminate at the DAILY STOP TIME on Saturdays."
^DD(443.2,3,"DT")="2921229"
^DD(443.2,4,0)="RUN ALL DAY SUNDAY?^S^0:NO;1:YES;^0;5^Q"
^DD(443.2,4,3)="If you select 'YES', Purge Master will allow its sub-managers to run all day on Sundays.  If you select 'NO', the sub managers will terminate at the DAILY STOP TIME on Sundays."
^DD(443.2,4,"DT")="2921229"
^DD(443.2,5,0)="RUN ALL DAY ON HOLIDAYS?^S^0:NO;1:YES;^0;6^Q"
^DD(443.2,5,3)="If you select 'YES', Purge Master will allow its sub-managers to run all day on Holidays.  If you select 'NO', the sub-managers will terminate at the DAILY STOP TIME on Holidays."
^DD(443.2,5,"DT")="2921229"
^DD(443.2,6,0)="VOLUME SET:CPU^443.26^^1;0"
^DD(443.2,"B","DAILY STOP TIME",2)=""
^DD(443.2,"B","ID NUMBER",.01)=""
^DD(443.2,"B","RUN ALL DAY ON HOLIDAYS?",5)=""
^DD(443.2,"B","RUN ALL DAY SATURDAY?",3)=""
^DD(443.2,"B","RUN ALL DAY SUNDAY?",4)=""
^DD(443.2,"B","VOLUME SET:CPU",6)=""
^DD(443.2,"GL",0,1,.01)=""
^DD(443.2,"GL",0,3,2)=""
^DD(443.2,"GL",0,4,3)=""
^DD(443.2,"GL",0,5,4)=""
^DD(443.2,"GL",0,6,5)=""
^DD(443.2,"GL",1,0,6)=""
^DD(443.2,"IX",.01)=""
^DD(443.2,"RQ",.01)=""
^DD(443.2,"RQ",2)=""
^DD(443.2,"SB",443.26,6)=""
^DD(443.26,0)="VOLUME SET:CPU SUB-FIELD^^1^2"
^DD(443.26,0,"DT")="2960319"
^DD(443.26,0,"IX","B",443.26,.01)=""
^DD(443.26,0,"NM","VOLUME SET:CPU")=""
^DD(443.26,0,"UP")="443.2"
^DD(443.26,.01,0)="VOLUME SET:CPU^MFX^^0;1^K:$L(X)>10!($L(X)<3)!'(X?3.6AN!(X?1"":""3.6AN)!(X?3.6U1"":""3.6AN)) X"
^DD(443.26,.01,1,0)="^.1"
^DD(443.26,.01,1,1,0)="443.26^B"
^DD(443.26,.01,1,1,1)="S ^PRC(443.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(443.26,.01,1,1,2)="K ^PRC(443.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(443.26,.01,3)="Answer must be 3-10 characters in length."
^DD(443.26,.01,"DT")="2970224"
^DD(443.26,1,0)="# OF SUB-MANAGER JOBS^RNJ2,0^^0;2^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.26,1,3)="Enter the number of sub-manager jobs to be spawned by PurgeMaster to this Volume Set/CPU.  A number between 1 and 20 is required."
^DD(443.26,1,21,0)="^^2^2^2960528^"
^DD(443.26,1,21,1,0)="This field contains the number of sub-manager jobs to be started by the"
^DD(443.26,1,21,2,0)="Purgemaster (Taskmanager) job on this system."
^DD(443.26,1,"DT")="2931008"
^DD(443.26,"B","# OF SUB-MANAGER JOBS",1)=""
^DD(443.26,"B","VOLUME SET:CPU",.01)=""
^DD(443.26,"GL",0,1,.01)=""
^DD(443.26,"GL",0,2,1)=""
^DD(443.26,"IX",.01)=""
^DD(443.26,"RQ",1)=""
^DD(443.3,0)="FIELD^^4^5"
^DD(443.3,0,"DT")="2921229"
^DD(443.3,0,"NM","IFCAP PURGE INPROCESS")=""
^DD(443.3,0,"VR")="5.1"
^DD(443.3,0,"VRPK")="IFCAP"
^DD(443.3,.01,0)="RECORD NUMBER^RNJ12,0X^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(443.3,.01,1,0)="^.1^^0"
^DD(443.3,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(443.3,.01,"DT")="2920221"
^DD(443.3,1,0)="ROUTINE ENTRY POINT^F^^0;2^K:$L(X)>8!($L(X)<1)!'(X?1U1.7UN) X"
^DD(443.3,1,3)="Enter Routine Entry Point Tag name"
^DD(443.3,1,"DT")="2920221"
^DD(443.3,2,0)="ROUTINE NAME^RF^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(443.3,2,3)="Enter Routine Name - It may include a paramater string. e.g. PRPFKILL(A,B)"
^DD(443.3,2,"DT")="2920221"
^DD(443.3,3,0)="VARIABLE STRING^F^^0;4^K:$L(X)>150!($L(X)<1) X"
^DD(443.3,3,3)="Enter string containing specific values to be passed from the 'killer' routine your purging routine.  Delimiter can be any character you choose EXCEPT the '^'."
^DD(443.3,3,"DT")="2920221"
^DD(443.3,4,0)="PROCESS START TIME ($H)^RF^^0;5^K:$L(X)>11!($L(X)<6)!'(X?5N1"","".5N) X"
^DD(443.3,4,2)="S Y(0)=Y Q:Y=""""  S %H=Y D YX^%DTC K %H,X,%"
^DD(443.3,4,2.1)="Q:Y=""""  S %H=Y D YX^%DTC K %H,X,%"
^DD(443.3,4,3)="Answer must be 6-11 characters in length."
^DD(443.3,4,"DT")="2921229"
^DD(443.3,"B","PROCESS START TIME ($H)",4)=""
^DD(443.3,"B","RECORD NUMBER",.01)=""
^DD(443.3,"B","ROUTINE ENTRY POINT",1)=""
^DD(443.3,"B","ROUTINE NAME",2)=""
^DD(443.3,"B","VARIABLE STRING",3)=""
^DD(443.3,"GL",0,1,.01)=""
^DD(443.3,"GL",0,2,1)=""
^DD(443.3,"GL",0,3,2)=""
^DD(443.3,"GL",0,4,3)=""
^DD(443.3,"GL",0,5,4)=""
^DD(443.3,"RQ",.01)=""
^DD(443.3,"RQ",2)=""
^DD(443.3,"RQ",4)=""
^DD(443.4,0)="FIELD^^2^3"
^DD(443.4,0,"DDA")="N"
^DD(443.4,0,"DT")="2931005"
^DD(443.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(443.4,0,"IX","B",443.4,.01)=""
^DD(443.4,0,"IX","C",443.4,1)=""
^DD(443.4,0,"NM","TYPE OF SPECIAL HANDLING")=""
^DD(443.4,0,"PT",442,18.7)=""
^DD(443.4,0,"PT",443.6,18.7)=""
^DD(443.4,0,"VR")="5.1"
^DD(443.4,0,"VRPK")="IFCAP"
^DD(443.4,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(443.4,.01,1,0)="^.1"
^DD(443.4,.01,1,1,0)="443.4^B"
^DD(443.4,.01,1,1,1)="S ^PRC(443.4,""B"",$E(X,1,30),DA)="""""
^DD(443.4,.01,1,1,2)="K ^PRC(443.4,""B"",$E(X,1,30),DA)"
^DD(443.4,.01,3)="Answer must be 3-20 characters in length."
^DD(443.4,.01,21,0)="^^2^2^2931015^"
^DD(443.4,.01,21,1,0)="    This field contains special handling instructions that are displayed"
^DD(443.4,.01,21,2,0)="or printed on the purchase orders."
^DD(443.4,.01,"DT")="2931005"
^DD(443.4,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(443.4,1,1,0)="^.1"
^DD(443.4,1,1,1,0)="443.4^C"
^DD(443.4,1,1,1,1)="S ^PRC(443.4,""C"",$E(X,1,30),DA)="""""
^DD(443.4,1,1,1,2)="K ^PRC(443.4,""C"",$E(X,1,30),DA)"
^DD(443.4,1,1,1,"%D",0)="^^1^1^2931005^"
^DD(443.4,1,1,1,"%D",1,0)="ABBREVIATION XREF"
^DD(443.4,1,1,1,"DT")="2931005"
^DD(443.4,1,3)="Answer must be 1-3 characters in length."
^DD(443.4,1,21,0)="^^2^2^2931015^^"
^DD(443.4,1,21,1,0)="    This field contains abbreviation of the special handling instructions."
^DD(443.4,1,21,2,0)="This field used for look-up."
^DD(443.4,1,"DT")="2931005"
^DD(443.4,2,0)="CO TEXT^F^^0;3^K:$L(X)>59!($L(X)<1) X"
^DD(443.4,2,3)="Answer must be 1-59 characters in length."
^DD(443.4,2,21,0)="^^2^2^2931015^"
^DD(443.4,2,21,1,0)="     This field contains special handling instructions that are sent on the"
^DD(443.4,2,21,2,0)="CO segment of the PHA transactions."
^DD(443.4,2,"DT")="2931005"
^DD(443.4,"B","ABBREVIATION",1)=""
^DD(443.4,"B","CO TEXT",2)=""
^DD(443.4,"B","NAME",.01)=""
^DD(443.4,"GL",0,1,.01)=""
^DD(443.4,"GL",0,2,1)=""
^DD(443.4,"GL",0,3,2)=""
^DD(443.4,"IX",.01)=""
^DD(443.4,"IX",1)=""
^DD(443.4,"RQ",.01)=""
^DD(443.5,0)="FIELD^^4^5"
^DD(443.5,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(443.5,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(443.5,0,"ID","Z0")="S:$D(Y) Z=Y S Y=$P(^(0),U,3) X ^DD(""DD"") W ""FROM "",Y S:$D(Z) Y=Z"
^DD(443.5,0,"ID","Z1")="S:$D(Y) Z=Y S Y=$P(^(0),U,4) X ^DD(""DD"") W ""TO "",Y S:$D(Z) Y=Z"
^DD(443.5,0,"IX","B",443.5,.01)=""
^DD(443.5,0,"NM","P.O./REQUEST/R.R. PRINT LOG")=""
^DD(443.5,0,"VR")="5.1"
^DD(443.5,0,"VRPK")="IFCAP"
^DD(443.5,.01,0)="NUMBER^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.5,.01,1,0)="^.1"
^DD(443.5,.01,1,1,0)="443.5^B"
^DD(443.5,.01,1,1,1)="S ^PRC(443.5,""B"",$E(X,1,30),DA)="""""
^DD(443.5,.01,1,1,2)="K ^PRC(443.5,""B"",$E(X,1,30),DA)"
^DD(443.5,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999999999"
^DD(443.5,.01,21,0)="^^1^1^2910517^"
^DD(443.5,.01,21,1,0)="This is the number of the print log."
^DD(443.5,1,0)="TYPE OF PRINTOUT^RS^R1:REQUESTS TO A&MM;R2:REQUESTS TO FISCAL (1358);P1:P.O.'S TO FISCAL;P2:P.O.'S TO A&MM;^0;2^Q"
^DD(443.5,1,3)="Type of printout that was logged within the dates/times specified."
^DD(443.5,1,21,0)="^^2^2^2910517^"
^DD(443.5,1,21,1,0)="This is the type of printout logged within the"
^DD(443.5,1,21,2,0)="date/time specified."
^DD(443.5,1,"DT")="2890609"
^DD(443.5,2,0)="PRINT START DATE/TIME^RD^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(443.5,2,3)="Starting date and time for which the print log is to be kept.  (ex. Log all requests printed in supply starting with this date/time.)"
^DD(443.5,2,21,0)="^^2^2^2910517^"
^DD(443.5,2,21,1,0)="This is the starting date/time for which the print log is"
^DD(443.5,2,21,2,0)="to be kept."
^DD(443.5,3,0)="PRINT END DATE/TIME^RD^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(443.5,3,3)="Ending date and time for which the print log is to be kept.  (ex. Log all request printed in supply ending with this date/time.)"
^DD(443.5,3,21,0)="^^2^2^2910517^"
^DD(443.5,3,21,1,0)="This is the ending date/time for which the print log"
^DD(443.5,3,21,2,0)="is to be kept."
^DD(443.5,4,0)="P.O. OR REQUEST NO.^443.51A^^1;0"
^DD(443.5,4,21,0)="^^1^1^2910517^^"
^DD(443.5,4,21,1,0)="This is the purchase request number."
^DD(443.5,"B","NUMBER",.01)=""
^DD(443.5,"B","P.O. OR REQUEST NO.",4)=""
^DD(443.5,"B","PRINT END DATE/TIME",3)=""
^DD(443.5,"B","PRINT START DATE/TIME",2)=""
^DD(443.5,"B","TYPE OF PRINTOUT",1)=""
^DD(443.5,"GL",0,1,.01)=""
^DD(443.5,"GL",0,2,1)=""
^DD(443.5,"GL",0,3,2)=""
^DD(443.5,"GL",0,4,3)=""
^DD(443.5,"GL",1,0,4)=""
^DD(443.5,"IX",.01)=""
^DD(443.5,"RQ",.01)=""
^DD(443.5,"RQ",1)=""
^DD(443.5,"RQ",2)=""
^DD(443.5,"RQ",3)=""
^DD(443.5,"SB",443.51,4)=""
^DD(443.51,0)="P.O. OR REQUEST NO. SUB-FIELD^^2^3"
^DD(443.51,0,"IX","B",443.51,.01)=""
^DD(443.51,0,"NM","P.O. OR REQUEST NO.")=""
^DD(443.51,0,"UP")="443.5"
^DD(443.51,.01,0)="P.O. OR REQUEST NO.^F^^0;1^K:$L(X)>18!($L(X)<1) X"
^DD(443.51,.01,1,0)="^.1"
^DD(443.51,.01,1,1,0)="443.51^B"
^DD(443.51,.01,1,1,1)="S ^PRC(443.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(443.51,.01,1,1,2)="K ^PRC(443.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(443.51,.01,3)="ANSWER MUST BE 1-18 CHARACTERS IN LENGTH"
^DD(443.51,.01,21,0)="^^1^1^2910517^"
^DD(443.51,.01,21,1,0)="This is the purchase order number."
^DD(443.51,1,0)="RECORD NO.^RNJ12,0^^0;2^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.51,1,3)="Enter the record number pointing either to the Procurement & Accounting File (442) for purchase orders, or to the Control Point Activity File (410) for requests."
^DD(443.51,1,21,0)="^^4^4^2910517^^"
^DD(443.51,1,21,1,0)="This is the record number pointing to Procurement"
^DD(443.51,1,21,2,0)="and Account Transaction File #442 for purchase"
^DD(443.51,1,21,3,0)="orders, or to the Control Point Activity File #410"
^DD(443.51,1,21,4,0)="for requests."
^DD(443.51,2,0)="DATE/TIME PREVIOUSLY PRINTED^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(443.51,2,3)="For Requests, this is the ES CODE DATE/TIME from file 410.  For P.O.'s printed in Fiscal, use the ES CODE DATE/TIME from file 442.  For P.O.'s printed in Supply, use the PO PRINTED TIME from file 442."
^DD(443.51,2,21,0)="^^2^2^2910517^"
^DD(443.51,2,21,1,0)="This is the date and time the requested output was previously "
^DD(443.51,2,21,2,0)="printed."
^DD(443.51,"B","DATE/TIME PREVIOUSLY PRINTED",2)=""
^DD(443.51,"B","P.O. OR REQUEST NO.",.01)=""
^DD(443.51,"B","RECORD NO.",1)=""
^DD(443.51,"GL",0,1,.01)=""
^DD(443.51,"GL",0,2,1)=""
^DD(443.51,"GL",0,3,2)=""
^DD(443.51,"IX",.01)=""
^DD(443.51,"RQ",1)=""
^DD(443.6,0)="FIELD^NL^501^90"
^DD(443.6,0,"DDA")="N"
^DD(443.6,0,"DT")="2951019"
^DD(443.6,0,"ID","Z.02")="W ""   "",$S($D(^PRCD(442.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(443.6,0,"ID","Z.5")="I $D(^(""7"")),$D(^PRCD(442.3,+^(7),0)) W $P(^(0),U,1)"
^DD(443.6,0,"IX","AC",443.6,5.4)=""
^DD(443.6,0,"IX","AD",443.6,8)=""
^DD(443.6,0,"IX","AE",443.6,7)=""
^DD(443.6,0,"IX","AF",443.6,.04)=""
^DD(443.6,0,"IX","AG",443.6,.02)=""
^DD(443.6,0,"IX","AH",443.6,5.3)=""
^DD(443.6,0,"IX","AJ",443.6,1)=""
^DD(443.6,0,"IX","AK",443.6,2)=""
^DD(443.6,0,"IX","AL",443.6,5.2)=""
^DD(443.6,0,"IX","AM",443.6,6.4)=""
^DD(443.6,0,"IX","AO",443.6,5)=""
^DD(443.6,0,"IX","AZAPSCH",443.61,.01)=""
^DD(443.6,0,"IX","B",443.6,.01)=""
^DD(443.6,0,"IX","C",443.6714,7)=""
^DD(443.6,0,"IX","D",443.67,9)=""
^DD(443.6,0,"IX","E",443.6,.01)=""
^DD(443.6,0,"NM","AMENDMENTS")=""
^DD(443.6,0,"PT",443.6,27)=""
^DD(443.6,0,"PT",443.6,28)=""
^DD(443.6,0,"VR")="5.1"
^DD(443.6,0,"VRPK")="IFCAP"
^DD(443.6,.01,0)="PURCHASE ORDER NUMBER^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:'$D(^PRC(411,$P(X,""-"",1)))!'($P(X,""-"",2)?3UN3N) X"
^DD(443.6,.01,.1)="PO"
^DD(443.6,.01,1,0)="^.1"
^DD(443.6,.01,1,1,0)="443.6^B"
^DD(443.6,.01,1,1,1)="S ^PRC(443.6,""B"",$E(X,1,30),DA)="""""
^DD(443.6,.01,1,1,2)="K ^PRC(443.6,""B"",$E(X,1,30),DA)"
^DD(443.6,.01,1,1,"DT")="2940330"
^DD(443.6,.01,1,2,0)="443.6^E^MUMPS"
^DD(443.6,.01,1,2,1)="S ^PRC(443.6,""E"",$P(X,""-"",2),DA)="""""
^DD(443.6,.01,1,2,2)="K ^PRC(443.6,""E"",$P(X,""-"",2),DA)"
^DD(443.6,.01,1,2,"%D",0)="^^3^3^2950303^"
^DD(443.6,.01,1,2,"%D",1,0)="This x-ref allows one to select an amendment using only the common"
^DD(443.6,.01,1,2,"%D",2,0)="numbering part of the p.o. number, the same as can be done in 442"
^DD(443.6,.01,1,2,"%D",3,0)="using the ""C"" x-ref on the .01 field there."
^DD(443.6,.01,1,2,"DT")="2940330"
^DD(443.6,.01,3)="ENTER PURCHASE ORDER NUMBER (I.E. A12345)"
^DD(443.6,.01,21,0)="^^1^1^2910517^"
^DD(443.6,.01,21,1,0)="This is the purchase order number."
^DD(443.6,.01,"DT")="2960705"
^DD(443.6,.02,0)="METHOD OF PAYMENT^R*P442.5'X^PRCD(442.5,^0;2^S DIC(""S"")=""I Y<20!(Y=25)!(Y=26)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.6,.02,1,0)="^.1^^0"
^DD(443.6,.02,1,1,0)="443.6^AG^MUMPS"
^DD(443.6,.02,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN10^PRCHAMXB S X=PRCHX K PRCHX"
^DD(443.6,.02,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN10^PRCHAMXB"
^DD(443.6,.02,1,1,"%D",0)="^^7^7^2980311^"
^DD(443.6,.02,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever an 'Edit Method"
^DD(443.6,.02,1,1,"%D",2,0)="of Payment' amendment changes this field."
^DD(443.6,.02,1,1,"%D",3,0)="                     "
^DD(443.6,.02,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE."
^DD(443.6,.02,1,1,"%D",5,0)=" "
^DD(443.6,.02,1,1,"%D",6,0)="This cross-reference gets executed when user tries to edit or delete this"
^DD(443.6,.02,1,1,"%D",7,0)="field only through IFCAP.  PRCHNORE gets set and removed within IFCAP."
^DD(443.6,.02,1,1,"DT")="2980311"
^DD(443.6,.02,3)=""
^DD(443.6,.02,12)="ENTER A NUMBER OR TYPE"
^DD(443.6,.02,12.1)="S DIC(""S"")=""I Y<20!(Y=25)!(Y=26)"""
^DD(443.6,.02,21,0)="^^1^1^2951019^^"
^DD(443.6,.02,21,1,0)="This is the method of payment for this purchase order."
^DD(443.6,.02,"DT")="2980311"
^DD(443.6,.04,0)="INVOICE ADDRESS^FXO^^12;6^S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) K:'Z0 X Q:'Z0  S DIC=""^PRC(411,Z0,4,"",DIC(0)=""QEMO"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(443.6,.04,1,0)="^.1"
^DD(443.6,.04,1,1,0)="443.6^AF^MUMPS"
^DD(443.6,.04,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN9^PRCHAMXB S X=PRCHX K PRCHX"
^DD(443.6,.04,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN9^PRCHAMXB"
^DD(443.6,.04,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.6,.04,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever an 'Edit Mail"
^DD(443.6,.04,1,1,"%D",2,0)="Invoices to' amendment changes this field."
^DD(443.6,.04,1,1,"%D",3,0)="                     "
^DD(443.6,.04,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,.04,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,.04,1,1,"DT")="2950321"
^DD(443.6,.04,2)="S Y(0)=Y Q:Y=""""  S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(443.6,.04,2.1)="S Y(0)=Y Q:Y=""""  S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,4,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(443.6,.04,3)="This is the invoice address."
^DD(443.6,.04,4)="S ZD=D,X=""?"",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:+^PRC(443.6,D0,0)) Q:'Z0  S DIC=""^PRC(411,Z0,4,"",DIC(0)=""QEMO"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(443.6,.04,21,0)="^^2^2^2951013^^^"
^DD(443.6,.04,21,1,0)=" "
^DD(443.6,.04,21,2,0)="The invoice address."
^DD(443.6,.04,"DT")="2951013"
^DD(443.6,.06,0)="PRIORITY OF 2237^S^EM:EMERGENCY;SP:SPECIAL;ST:STANDARD;^1;9^Q"
^DD(443.6,.06,21,0)="^^1^1^2941206^"
^DD(443.6,.06,21,1,0)="This field contains a code which indicates the priority of this order."
^DD(443.6,.06,"DT")="2940428"
^DD(443.6,.07,0)="PRIMARY 2237^P410'^PRCS(410,^0;12^Q"
^DD(443.6,.07,21,0)="^^2^2^2941206^"
^DD(443.6,.07,21,1,0)="This field contains a pointer to the primary 2237 record for this"
^DD(443.6,.07,21,2,0)="amendment."
^DD(443.6,.07,"DT")="2940428"
^DD(443.6,.08,0)="ESTIMATED ORDER?^S^Y:YES;N:NO;^7;3^Q"
^DD(443.6,.08,21,0)="^^1^1^2941206^"
^DD(443.6,.08,21,1,0)="This field indicates whether or not this is an estimated order."
^DD(443.6,.08,"DT")="2940428"
^DD(443.6,.09,0)="DEPOT VOUCHER NO.^F^^1;13^K:$L(X)>5!($L(X)<5) X"
^DD(443.6,.09,3)="Answer must be 5 characters in length."
^DD(443.6,.09,21,0)="^^1^1^2941031^"
^DD(443.6,.09,21,1,0)="This is the depot voucher number."
^DD(443.6,.09,"DT")="2940428"
^DD(443.6,.1,0)="P.O. DATE^D^^1;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,.1,21,0)="^^1^1^2941031^"
^DD(443.6,.1,21,1,0)="This is the purchase order date."
^DD(443.6,.1,"DT")="2940428"
^DD(443.6,.2,0)="EMERGENCY ORDER?^S^Y:YES;N:NO;^1;17^Q"
^DD(443.6,.2,21,0)="^^1^1^2941031^"
^DD(443.6,.2,21,1,0)="Enter YES if this is an emergency order."
^DD(443.6,.2,"DT")="2940428"
^DD(443.6,.25,0)="LOCAL PROCUREMENT REASON CODE^P443.8'^PRC(443.8,^1;19^Q"
^DD(443.6,.25,21,0)="^^2^2^2941031^"
^DD(443.6,.25,21,1,0)="This is a pointer to the Local Procurement Reason Code File (#443.8).  This"
^DD(443.6,.25,21,2,0)="code describes why the items are being purchased ""open market""."
^DD(443.6,.25,"DT")="2940428"
^DD(443.6,.3,0)="EXPENDABLE/NONEXPENDABLE^RS^E:EXPENDABLE;N:NON-EXPENDABLE;^1;18^Q"
^DD(443.6,.3,21,0)="^^1^1^2941031^"
^DD(443.6,.3,21,1,0)="This is the indicator for procurement of expendable or nonexpendable items."
^DD(443.6,.3,"DT")="2940428"
^DD(443.6,.5,0)="SUPPLY STATUS^P442.3'IX^PRCD(442.3,^7;1^S DIC(""S"")=""I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.6,.5,3)="This is the Supply status."
^DD(443.6,.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'>51,$P(^(0),U,2)'<1,$P(^(0),U,2)'=4,$P(^(0),U,2)'=5"""
^DD(443.6,.5,21,0)="^^1^1^2940428^^"
^DD(443.6,.5,21,1,0)="This is the Supply status of the order."
^DD(443.6,.5,"DT")="2960612"
^DD(443.6,.7,0)="SUPPLY STATUS ORDER^NJ3,0^^7;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.6,.7,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(443.6,.7,21,0)="^^1^1^2941031^^"
^DD(443.6,.7,21,1,0)="This field is automatically updated when supply status changes."
^DD(443.6,.7,"DT")="2940428"
^DD(443.6,.8,0)="FISCAL STATUS ORDER^NJ3,0^^7;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.6,.8,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(443.6,.8,21,0)="^^1^1^2941031^"
^DD(443.6,.8,21,1,0)="This field is automatically updated when supply status changes."
^DD(443.6,.8,"DT")="2940428"
^DD(443.6,1,0)="FCP^RFX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:'$D(PRC(""SITE""))!('$D(^PRC(443.6,DA,1))) X Q:'$D(X)  S:$P(^(1),U,15)]"""" PRC(""FY"")=$P(^(1),U,15) D EN1^PRCHNPO8 Q:'$D(X)  S $P(^PRC(443.6,DA,0),U,4)=PRC(""APP"")"
^DD(443.6,1,.1)="Fund Control Point"
^DD(443.6,1,1)="^^^^^^^^^^2850326"
^DD(443.6,1,1,0)="^.1"
^DD(443.6,1,1,1,0)="443.6^AJ^MUMPS"
^DD(443.6,1,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN5^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.6,1,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN5^PRCHAMXC"
^DD(443.6,1,1,1,"%D",0)="^^5^5^2970415^^^^"
^DD(443.6,1,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit'"
^DD(443.6,1,1,1,"%D",2,0)="amendment changes this field."
^DD(443.6,1,1,1,"%D",3,0)="                            "
^DD(443.6,1,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,1,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,1,1,1,"DT")="2950321"
^DD(443.6,1,3)="ENTER A VALID FUND CONTROL POINT"
^DD(443.6,1,4)="Q:'$D(PRC(""SITE""))  S:$D(D) ZD=D S Z0=$E($P(^PRC(443.6,DA,0),""-"",2),1,2),X=""?"",DIC=""^PRC(420,""_PRC(""SITE"")_"",1,"",DIC(0)=""QEM"",DIC(""S"")=""D EN5^PRCHNPO6"" D ^DIC S DIC=DIE S:$D(ZD) D=ZD K Z0,Z1,ZD"
^DD(443.6,1,21,0)="^^1^1^2910517^"
^DD(443.6,1,21,1,0)="This is the Fund Control Point."
^DD(443.6,1,"DT")="2950321"
^DD(443.6,1.4,0)="APPROPRIATION^RF^^0;4^K:$L(X)>20!($L(X)<4) X"
^DD(443.6,1.4,3)="Answer must be 4-20 characters in length."
^DD(443.6,1.4,21,0)="^^1^1^2910517^"
^DD(443.6,1.4,21,1,0)="This is the appropriation for this order."
^DD(443.6,1.4,"DT")="2940328"
^DD(443.6,2,0)="COST CENTER^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) S Z0=+$P(^PRC(443.6,DA,0),""^"",3) K:'$D(PRC(""SITE""))!'Z0 X,Z0 I $D(X),$D(^PRC(420,PRC(""SITE""),1,Z0,2,0)) D EN2^PRCHNPO5"
^DD(443.6,2,1,0)="^.1"
^DD(443.6,2,1,1,0)="443.6^AK^MUMPS"
^DD(443.6,2,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN6^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.6,2,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXC"
^DD(443.6,2,1,1,"%D",0)="^^5^5^2970415^^^^"
^DD(443.6,2,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit'"
^DD(443.6,2,1,1,"%D",2,0)="amendment changes this field."
^DD(443.6,2,1,1,"%D",3,0)="                            "
^DD(443.6,2,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,2,1,1,"%D",5,0)="incidence of undefined DIK variable errors. "
^DD(443.6,2,1,1,"DT")="2950321"
^DD(443.6,2,3)="You must enter a valid Cost Center for this Fund Control Point."
^DD(443.6,2,4)="Q:'$D(PRC(""SITE""))  S ZD=D,X=""?"",Z0=+$P(^PRC(443.6,DA,0),U,3),Z1=PRC(""SITE"") Q:'$D(^PRC(420,Z1,1,Z0,2))  S DIC=""^PRC(420,Z1,1,Z0,2,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0,Z1"
^DD(443.6,2,21,0)="^^1^1^2910517^"
^DD(443.6,2,21,1,0)="This is the cost center for this order."
^DD(443.6,2,"DT")="2950321"
^DD(443.6,3,0)="SUBACCOUNT1^P420.2'^PRCD(420.2,^0;6^Q"
^DD(443.6,3,1,0)="^.1^^0"
^DD(443.6,3,3)=""
^DD(443.6,3,21,0)="^^1^1^2910517^"
^DD(443.6,3,21,1,0)="This is the subaccount 1."
^DD(443.6,3,"DT")="2940418"
^DD(443.6,3.4,0)="SUBAMOUNT1^NJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999.99)!(X<0) X"
^DD(443.6,3.4,3)="TYPE A NUMBER BETWEEN 0 AND 999999.99"
^DD(443.6,3.4,21,0)="^^1^1^2910517^^"
^DD(443.6,3.4,21,1,0)="This is the subamount 1."
^DD(443.6,4,0)="SUBACCOUNT2^P420.2'^PRCD(420.2,^0;8^Q"
^DD(443.6,4,3)=""
^DD(443.6,4,21,0)="^^1^1^2930204^^"
^DD(443.6,4,21,1,0)="This is the subaccount 2."
^DD(443.6,4.4,0)="SUBAMOUNT2^NJ9,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999.99)!(X<0) X"
^DD(443.6,4.4,3)="TYPE A NUMBER BETWEEN 0 AND 999999.99"
^DD(443.6,4.4,21,0)="^^1^1^2910517^^"
^DD(443.6,4.4,21,1,0)="This is the subamount 2."
^DD(443.6,5,0)="VENDOR^RP440X^PRC(440,^1;1^Q"
^DD(443.6,5,1,0)="^.1"
^DD(443.6,5,1,1,0)="443.6^AO^MUMPS"
^DD(443.6,5,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN8^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.6,5,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXD"
^DD(443.6,5,1,1,"%D",0)="^^5^5^2970415^^^^"
^DD(443.6,5,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Change VENDOR'"
^DD(443.6,5,1,1,"%D",2,0)="amendment changes this field."
^DD(443.6,5,1,1,"%D",3,0)="                           "
^DD(443.6,5,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,5,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,5,1,1,"DT")="2950321"
^DD(443.6,5,21,0)="^^1^1^2910517^"
^DD(443.6,5,21,1,0)="This is the name of the vendor for this purchase order."
^DD(443.6,5,"DT")="2950321"
^DD(443.6,5.2,0)="REQUESTING SERVICE^RP49'^DIC(49,^1;2^Q"
^DD(443.6,5.2,1,0)="^.1"
^DD(443.6,5.2,1,1,0)="443.6^AL^MUMPS"
^DD(443.6,5.2,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN7^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.6,5.2,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXC"
^DD(443.6,5.2,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.6,5.2,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'F.C.P. Edit'"
^DD(443.6,5.2,1,1,"%D",2,0)="amendment changes this field."
^DD(443.6,5.2,1,1,"%D",3,0)="                            "
^DD(443.6,5.2,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,5.2,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,5.2,1,1,"DT")="2950321"
^DD(443.6,5.2,21,0)="^^1^1^2910517^"
^DD(443.6,5.2,21,1,0)="This is the requesting service for this order."
^DD(443.6,5.2,"DT")="2950321"
^DD(443.6,5.3,0)="DIRECT DELIVERY PATIENT^P440.2^PRC(440.2,^1;12^Q"
^DD(443.6,5.3,1,0)="^.1"
^DD(443.6,5.3,1,1,0)="443.6^AH^MUMPS"
^DD(443.6,5.3,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN3^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.6,5.3,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXC"
^DD(443.6,5.3,1,1,"%D",0)="^^5^5^2970415^^^^"
^DD(443.6,5.3,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit'"
^DD(443.6,5.3,1,1,"%D",2,0)="amendment changes this field."
^DD(443.6,5.3,1,1,"%D",3,0)="                           "
^DD(443.6,5.3,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,5.3,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,5.3,1,1,"DT")="2950321"
^DD(443.6,5.3,21,0)="^^2^2^2910517^"
^DD(443.6,5.3,21,1,0)="This is the direct delivery patient, if"
^DD(443.6,5.3,21,2,0)="applicable."
^DD(443.6,5.3,"DT")="2950321"
^DD(443.6,5.4,0)="SHIP TO^NJ5,0XO^^1;3^S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) K:'Z0 X Q:'Z0  S DIC=""^PRC(411,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(443.6,5.4,1)="^1"
^DD(443.6,5.4,1,0)="^.1"
^DD(443.6,5.4,1,1,0)="443.6^AC^MUMPS"
^DD(443.6,5.4,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN6^PRCHAMXB S X=PRCHX K PRCHX"
^DD(443.6,5.4,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN6^PRCHAMXB"
^DD(443.6,5.4,1,1,"%D",0)="^^5^5^2970415^^^^"
^DD(443.6,5.4,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Ship-To-Edit'"
^DD(443.6,5.4,1,1,"%D",2,0)="amendment changes this field."
^DD(443.6,5.4,1,1,"%D",3,0)="                           "
^DD(443.6,5.4,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,5.4,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,5.4,1,1,"DT")="2950321"
^DD(443.6,5.4,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(443.6,5.4,2.1)="Q:Y']""""  S Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) Q:'Z0  S Y=$P($S($D(^PRC(411,Z0,1,Y,0)):^(0),1:""""),U,1) K Z0"
^DD(443.6,5.4,3)="ENTER A RECEIVING LOCATION"
^DD(443.6,5.4,4)="S ZD=D,X=""?"",Z0=$S($P($G(^PRC(443.6,D0,23)),U,7)]"""":$P($G(^PRC(443.6,D0,23)),U,7),1:$E($G(^PRC(443.6,D0,0)),1,3)) Q:'Z0  S DIC=""^PRC(411,Z0,1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD,Z0"
^DD(443.6,5.4,21,0)="^^1^1^2910517^"
^DD(443.6,5.4,21,1,0)="This is the receiving location."
^DD(443.6,5.4,"DT")="2950831"
^DD(443.6,5.6,0)="DELIVERY LOCATION^F^^1;11^K:$L(X)>20!($L(X)<3) X"
^DD(443.6,5.6,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(443.6,5.6,21,0)="^^1^1^2910517^"
^DD(443.6,5.6,21,1,0)="This is the delivery location."
^DD(443.6,6,0)="VERBAL PURCHASE ORDER (Y/N)^S^Y:YES;N:NO;^1;4^Q"
^DD(443.6,6,21,0)="^^1^1^2941031^"
^DD(443.6,6,21,1,0)="YES indicates that this is a verbal purchase order."
^DD(443.6,6,"DT")="2940428"
^DD(443.6,6.2,0)="CONFIRMATION COPY (Y/N)^S^Y:YES;N:NO;^1;5^Q"
^DD(443.6,6.2,21,0)="^^1^1^2941031^"
^DD(443.6,6.2,21,1,0)="YES indicates that this is a confirmation copy."
^DD(443.6,6.2,"DT")="2940428"
^DD(443.6,6.4,0)="F.O.B. POINT^S^D:DESTINATION;O:ORIGIN;^1;6^Q"
^DD(443.6,6.4,.1)="Freight on Board"
^DD(443.6,6.4,1,0)="^.1"
^DD(443.6,6.4,1,1,0)="443.6^AM^MUMPS"
^DD(443.6,6.4,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN8^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.6,6.4,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN8^PRCHAMXC"
^DD(443.6,6.4,1,1,"%D",0)="^^5^5^2970415^^^^"
^DD(443.6,6.4,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'F.O.B. Edit'"
^DD(443.6,6.4,1,1,"%D",2,0)="amendment changes this field."
^DD(443.6,6.4,1,1,"%D",3,0)="                           "
^DD(443.6,6.4,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,6.4,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,6.4,1,1,"DT")="2950321"
^DD(443.6,6.4,3)=""
^DD(443.6,6.4,21,0)="^^1^1^2910517^"
^DD(443.6,6.4,21,1,0)="This is the F.O.B. point."
^DD(443.6,6.4,"DT")="2950321"
^DD(443.6,6.9,0)="ORIGINAL DELIVERY DATE^D^^0;20^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,6.9,3)="This field is updated automatically if the Delivery Date field is changed by amendment."
^DD(443.6,6.9,21,0)="^^1^1^2910517^"
^DD(443.6,6.9,21,1,0)="This is the original delivery date."
^DD(443.6,6.9,"DT")="2890530"
^DD(443.6,7,0)="DELIVERY DATE^RD^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,7,1,0)="^.1"
^DD(443.6,7,1,1,0)="443.6^AE^MUMPS"
^DD(443.6,7,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN3^PRCHAMXB S X=PRCHX K PRCHX"
^DD(443.6,7,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN3^PRCHAMXB"
^DD(443.6,7,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.6,7,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever this field is changed."
^DD(443.6,7,1,1,"%D",2,0)="There is no FORMAL amendment change to perform this change."
^DD(443.6,7,1,1,"%D",3,0)="        "
^DD(443.6,7,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,7,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,7,1,1,"DT")="2950321"
^DD(443.6,7,21,0)="^^1^1^2910517^"
^DD(443.6,7,21,1,0)="This is the delivery date."
^DD(443.6,7,"DT")="2950321"
^DD(443.6,7.2,0)="ESTIMATED COST^NJ9,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999.99)!(X<0) X"
^DD(443.6,7.2,3)="TYPE A NUMBER BETWEEN 0 AND 999999.99"
^DD(443.6,7.2,21,0)="^^1^1^2920318^^"
^DD(443.6,7.2,21,1,0)="This is the estimated cost for this purchase order."
^DD(443.6,8,0)="SOURCE CODE^RP420.8'X^PRCD(420.8,^1;7^S DIC(""S"")=""I ""_$S($D(PRCHPUSH):""""""13""""[$E(^(0))"",$D(PRCHREQ):""""""134590""""[$E(^(0))"",1:""""""2456789B""""[$E(^(0))"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.6,8,1,0)="^.1"
^DD(443.6,8,1,1,0)="443.6^AD^MUMPS"
^DD(443.6,8,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN7^PRCHAMXB S X=PRCHX K PRCHX"
^DD(443.6,8,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN7^PRCHAMXB"
^DD(443.6,8,1,1,"%D",0)="^^5^5^2970415^^^^"
^DD(443.6,8,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Source Code Edit'"
^DD(443.6,8,1,1,"%D",2,0)="amemdment changes this field."
^DD(443.6,8,1,1,"%D",3,0)="                           "
^DD(443.6,8,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.6,8,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.6,8,1,1,"DT")="2950321"
^DD(443.6,8,3)=""
^DD(443.6,8,12.1)="S DIC(""S"")=""I ""_$S($D(PRCHPUSH):""""""13""""[$E(^(0))"",$D(PRCHREQ):""""""134590""""[$E(^(0))"",1:""""""2456789B""""[$E(^(0))"")"
^DD(443.6,8,21,0)="^^1^1^2970416^^^^"
^DD(443.6,8,21,1,0)="This is the source code for this purchase order."
^DD(443.6,8,"DT")="2970221"
^DD(443.6,8.1,0)="ASTR. FOR SOURCE CODE^F^^1;14^K:$L(X)>3!($L(X)<1) X"
^DD(443.6,8.1,3)="Answer must be 1-3 characters in length."
^DD(443.6,8.1,21,0)="^^1^1^2941031^^"
^DD(443.6,8.1,21,1,0)="This field contains internal program code that controls printed output."
^DD(443.6,8.1,"DT")="2940428"
^DD(443.6,8.2,0)="PROPOSAL^F^^1;8^K:$L(X)>45!($L(X)<3) X"
^DD(443.6,8.2,3)="Answer must be 3-45 characters in length."
^DD(443.6,8.2,21,0)="^^2^2^2941031^"
^DD(443.6,8.2,21,1,0)="This is the proposal information that prints on the purchase order, if"
^DD(443.6,8.2,21,2,0)="applicable."
^DD(443.6,8.2,"DT")="2940428"
^DD(443.6,9.2,0)="PROMPT PAYMENT TERMS^443.66AI^^5;0"
^DD(443.6,9.2,21,0)="^^1^1^2950115^^^^"
^DD(443.6,9.2,21,1,0)="These are the prompt payment terms for this order."
^DD(443.6,13,0)="EST. SHIPPING AND/OR HANDLING^NJ7,2XO^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(443.6,13,1,0)="^.1^^0"
^DD(443.6,13,2)="S Y(0)=Y S Y="" $""_$J(Y,0,2)"
^DD(443.6,13,2.1)="S Y="" $""_$J(Y,0,2)"
^DD(443.6,13,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(443.6,13,21,0)="^^1^1^2940324^^^"
^DD(443.6,13,21,1,0)="This is the estimated shipping and/or handling charge."
^DD(443.6,13,"DT")="2941028"
^DD(443.6,13.05,0)="EST. SHIPPING BOC^RFX^^23;1^K:X[""""""""!($A(X)=45) X I $D(X) S Z0=$P(^PRC(443.6,D0,0),""^"",5) K:'Z0 X,Z0 I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X,Z0 I $D(X) D EN133^PRCHNPO7"
^DD(443.6,13.05,1,0)="^.1^^0"
^DD(443.6,13.05,3)="Enter the BOC for the EST. SHIPPING AND/OR HANDLING field entry.  Choose the appropriate BOC from this cost enter."
^DD(443.6,13.05,4)="S ZD=D,Z0=$P(^PRC(443.6,D0,0),""^"",5) K:'Z0 X,Z0 I $D(X) S X=""?"",DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""E"" D ^DIC K DIC S D=ZD K ZD,Z0"
^DD(443.6,13.05,21,0)="^^1^1^2941031^^"
^DD(443.6,13.05,21,1,0)="Please enter BOC for EST. SHIPPING AND/OR HANDLING charges."
^DD(443.6,13.05,"DT")="2940701"
^DD(443.6,13.1,0)="EST. SHIPPING LINE ITEM NO.^NJ3,0^^0;18^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.6,13.1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(443.6,13.1,21,0)="^^2^2^2910517^"
^DD(443.6,13.1,21,1,0)="This is the line item number of the estimated"
^DD(443.6,13.1,21,2,0)="shipping date."
^DD(443.6,13.1,"DT")="2880622"
^DD(443.6,13.2,0)="GOV'T B/L NO.^F^^12;7^K:$L(X)>21!($L(X)<1) X"
^DD(443.6,13.2,3)="ANSWER MUST BE 1-21 CHARACTERS IN LENGTH.  If FOB point=ORIGIN and Shipping charges > $150, excess shipping charges are put on Gov't Bill of Lading.  Enter number here."
^DD(443.6,13.2,21,0)="^^2^2^2930408^"
^DD(443.6,13.2,21,1,0)=" "
^DD(443.6,13.2,21,2,0)="The Government Bill of Lading."
^DD(443.6,13.2,"DT")="2930121"
^DD(443.6,13.3,0)="SHIP VIA^F^^12;8^K:$L(X)>23!($L(X)<1) X"
^DD(443.6,13.3,3)="Answer must be 1-23 characters in length."
^DD(443.6,13.3,21,0)="^^2^2^2930408^"
^DD(443.6,13.3,21,1,0)=" "
^DD(443.6,13.3,21,2,0)="The type of shipper (Air, Land, Sea)."
^DD(443.6,13.3,"DT")="2930121"
^DD(443.6,13.4,0)="GBL P.O.NUMBER^F^^12;9^K:$L(X)>6!($L(X)<1) X"
^DD(443.6,13.4,3)="Enter the P.O.number assigned to the Government Bill of Lading.  ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(443.6,13.4,21,0)="^^2^2^2930408^"
^DD(443.6,13.4,21,1,0)=" "
^DD(443.6,13.4,21,2,0)="The P.O. number for the Gov. Bill of Lading."
^DD(443.6,13.4,"DT")="2930121"
^DD(443.6,14,0)="DISCOUNT^443.63IA^^3;0"
^DD(443.6,14,21,0)="^^1^1^2940622^^^^"
^DD(443.6,14,21,1,0)="This is the amount of the discount."
^DD(443.6,15,0)="LINE ITEM COUNT^RNJ3,0^^0;14^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.6,15,1,0)="^.1^^0"
^DD(443.6,15,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(443.6,15,21,0)="^^1^1^2910517^"
^DD(443.6,15,21,1,0)="This is the line item count."
^DD(443.6,16,0)="PA/PPM/AUTHORIZED BUYER^R*P200'X^VA(200,^1;10^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ)  I $P(^(400),U,1)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.6,16,12)="Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s."
^DD(443.6,16,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHNRQ)  I $P(^(400),U,1)>2"""
^DD(443.6,16,21,0)="^^1^1^2941212^^"
^DD(443.6,16,21,1,0)="This is the purchasing agent for this order."
^DD(443.6,16,"DT")="2960611"
^DD(443.6,16.5,0)="VALIDATION CODE^F^^12;2^K:$L(X)>30!($L(X)<2) X"
^DD(443.6,16.5,3)="Answer must be 2-30 characters in length."
^DD(443.6,16.5,21,0)="^^2^2^2930408^"
^DD(443.6,16.5,21,1,0)=" "
^DD(443.6,16.5,21,2,0)="The code for the validation."
^DD(443.6,16.5,"DT")="2930121"
^DD(443.6,16.7,0)="VALIDATION VERSION^NJ2,0^^12;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.6,16.7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(443.6,16.7,21,0)="^^2^2^2930408^"
^DD(443.6,16.7,21,1,0)=" "
^DD(443.6,16.7,21,2,0)="The version of the validation code."
^DD(443.6,16.7,"DT")="2930121"
^DD(443.6,16.8,0)="ESIG CODE^F^^12;12^K:$L(X)>10!($L(X)<2) X"
^DD(443.6,16.8,3)="Answer must be 2-10 characters in length."
^DD(443.6,16.8,21,0)="^^2^2^2930408^"
^DD(443.6,16.8,21,1,0)=" "
^DD(443.6,16.8,21,2,0)="The signature block name."
^DD(443.6,16.8,"DT")="2930412"
^DD(443.6,17,0)="VALIDATION DATE/TIME^D^^12;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,17,21,0)="^^2^2^2930408^"
^DD(443.6,17,21,1,0)=" "
^DD(443.6,17,21,2,0)="The date of the validation."
^DD(443.6,17,"DT")="2930121"
^DD(443.6,18,0)="PO PRINTED TIME^D^^12;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,18,21,0)="^^2^2^2930408^"
^DD(443.6,18,21,1,0)=" "
^DD(443.6,18,21,2,0)="The time the P.O. was printed."
^DD(443.6,18,"DT")="2930121"
^DD(443.6,18.5,0)="EDI MESSAGE NO.^NJ9,0^^12;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(443.6,18.5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(443.6,18.5,21,0)="^^2^2^2930408^"
^DD(443.6,18.5,21,1,0)=" "
^DD(443.6,18.5,21,2,0)="The EDI message number received."
^DD(443.6,18.5,"DT")="2930121"
^DD(443.6,18.6,0)="NEED SPECIAL HANDLING?^S^Y:YES;N:NO;^12;13^Q"
^DD(443.6,18.6,21,0)="^^2^2^2941031^"
^DD(443.6,18.6,21,1,0)="This field is just a question to see if the special handling instructions"
^DD(443.6,18.6,21,2,0)="are needed for the purchase order."
^DD(443.6,18.6,"DT")="2940429"
^DD(443.6,18.7,0)="TYPE OF SPECIAL HANDLING^P443.4'^PRC(443.4,^12;14^Q"
^DD(443.6,18.7,21,0)="^^4^4^2941031^"
^DD(443.6,18.7,21,1,0)="This is a pointer field to file 443.4. The file contains special"
^DD(443.6,18.7,21,2,0)="handling instructions which are displayed/printed on purchase orders."
^DD(443.6,18.7,21,3,0)="The special handling instructions are also sent in the CO segment of the    "
^DD(443.6,18.7,21,4,0)="PHA transaction."
^DD(443.6,18.7,"DT")="2940429"
^DD(443.6,19,0)="AGENT ASSIGNED P.O.^P200'^VA(200,^12;4^Q"
^DD(443.6,19,21,0)="^^2^2^2930408^"
^DD(443.6,19,21,1,0)=" "
^DD(443.6,19,21,2,0)="The Purchasing Agent assigned to the P.O."
^DD(443.6,19,"DT")="2930121"
^DD(443.6,19.2,0)="DATE P.O. ASSIGNED^D^^12;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,19.2,21,0)="^^2^2^2930408^"
^DD(443.6,19.2,21,1,0)=" "
^DD(443.6,19.2,21,2,0)="The date the P.O. was assigned the Purchase Agent."
^DD(443.6,19.2,"DT")="2930121"
^DD(443.6,24,0)="ADMINISTRATIVE CERTIFICATIONS^443.624IPA^^15;0"
^DD(443.6,24,12)="NUMBER MUST BE LESS THAN 9999"
^DD(443.6,24,12.1)="I $P(^(0),U,1)<9999"
^DD(443.6,24,21,0)="^^1^1^2940217^^^^"
^DD(443.6,24,21,1,0)="These are the administrative certifications for this purchase order."
^DD(443.6,26,0)="BBFY^D^^23;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,26,21,0)="^^3^3^2941206^^"
^DD(443.6,26,21,1,0)="This field is the FMS 'BEGINNING BUGDET FISCAL YEAR'.  This is set from "
^DD(443.6,26,21,2,0)="'PRC(""BBFY"")' variable.  This variable is created through the 'FCP',"
^DD(443.6,26,21,3,0)="'FUND CONTROL POINT' field."
^DD(443.6,26,"DT")="2940330"
^DD(443.6,27,0)="OLD PO RECORD^P443.6'^PRC(443.6,^23;3^Q"
^DD(443.6,27,21,0)="^^1^1^2941101^"
^DD(443.6,27,21,1,0)="This is the internal record number for the original purchase order."
^DD(443.6,27,"DT")="2940330"
^DD(443.6,28,0)="NEW PO RECORD^P443.6'^PRC(443.6,^23;4^Q"
^DD(443.6,28,21,0)="^^1^1^2941101^"
^DD(443.6,28,21,1,0)="This is the internal record number for the new purchase order."
^DD(443.6,28,"DT")="2940330"
^DD(443.6,29,0)="END DATE FOR SERVICE ORDER^D^^23;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,29,3)="Enter the ending date for this Service Order."
^DD(443.6,29,21,0)="^^5^5^2941110^^^"
^DD(443.6,29,21,1,0)="This field is the ending date for the Purchase order or 1358 for a service"
^DD(443.6,29,21,2,0)="order used when the length of the service contract extends over a period "
^DD(443.6,29,21,3,0)="greater than one month.  It is used by Fiscal service at the time of   "
^DD(443.6,29,21,4,0)="obligation. When used in conjunction with the Auto Accrue flag, the ending "
^DD(443.6,29,21,5,0)="date will determine the monthly accrual."
^DD(443.6,29,"DT")="2941110"
^DD(443.6,30,0)="AUTO ACCRUE^S^1:YES;0:NO;^23;6^Q"
^DD(443.6,30,3)="Enter YES for Auto Accrual; enter NO for no Auto Accrual."
^DD(443.6,30,21,0)="^^2^2^2941110^^"
^DD(443.6,30,21,1,0)="This field is used by Fiscal service to indicate whether a Purchase Order"
^DD(443.6,30,21,2,0)="or 1358 for a service order should be accrued in FMS."
^DD(443.6,30,"DT")="2941024"
^DD(443.6,31,0)="SATELLITE STATION^P411'^PRC(411,^23;7^Q"
^DD(443.6,31,3)="Please enter the satellite station to which this purchase order belongs to."
^DD(443.6,31,21,0)="^^1^1^2950728^"
^DD(443.6,31,21,1,0)="Please enter the satellite station to which this purchase order belongs to."
^DD(443.6,31,"DT")="2950728"
^DD(443.6,35,0)="AMOUNT^443.7A^^9;0"
^DD(443.6,35,21,0)="^^1^1^2941031^^^"
^DD(443.6,35,21,1,0)="This is the amount of the contract."
^DD(443.6,40,0)="ITEM^443.61IA^^2;0"
^DD(443.6,40,21,0)="^^1^1^2970221^^^^"
^DD(443.6,40,21,1,0)="This is the item for which the amendment is being processed."
^DD(443.6,40,"DT")="2931220"
^DD(443.6,44,0)="DISPUTED^S^Y:YES;N:NO;^23;9^Q"
^DD(443.6,44,21,0)="^^1^1^2960830^"
^DD(443.6,44,21,1,0)="This field is to indicate whether a purchase card charge is being disputed."
^DD(443.6,44,"DT")="2960830"
^DD(443.6,46,0)="PURCHASE CARD NUMBER^RP440.5'^PRC(440.5,^23;8^Q"
^DD(443.6,46,21,0)="^^1^1^2960830^"
^DD(443.6,46,21,1,0)="This is the purchase card number being used for the purchase card order."
^DD(443.6,46,"DT")="2960830"
^DD(443.6,47,0)="DELIVERY ORDER^S^Y:YES;^23;10^Q"
^DD(443.6,47,21,0)="^^1^1^2960830^"
^DD(443.6,47,21,1,0)="This field indicates whether this order is a delivery order."
^DD(443.6,47,"DT")="2960830"
^DD(443.6,48,0)="TYPE OF ORDER^S^D:DELIVERY ORDER;P:DETAILED PURCHASE CARD ORDER;S:SIMPLIFED PURCHASE CARD ORDER;^23;11^Q"
^DD(443.6,48,21,0)="^^2^2^2960830^"
^DD(443.6,48,21,1,0)="This field determines if a purchase order is a 'Detailed Purchase Card"
^DD(443.6,48,21,2,0)="Order', 'Simplified Purchase Card Order' or a 'Delivery Order'."
^DD(443.6,48,"DT")="2960830"
^DD(443.6,50,0)="AMENDMENT^443.67^^6;0"
^DD(443.6,50,21,0)="^^2^2^2941128^^^^"
^DD(443.6,50,21,1,0)="This multiple contains information about all amendments to"
^DD(443.6,50,21,2,0)="a purchase order."
^DD(443.6,50,"DT")="2940314"
^DD(443.6,51,0)="SORT GROUP^P410.7'^PRCS(410.7,^23;13^Q"
^DD(443.6,51,21,0)="^^1^1^2960830^"
^DD(443.6,51,21,1,0)="This is the sort group for this order."
^DD(443.6,51,"DT")="2960830"
^DD(443.6,52,0)="CLASSIFICATION OF REQUEST^P410.2'^PRCS(410.2,^23;12^Q"
^DD(443.6,52,21,0)="^^1^1^2960830^"
^DD(443.6,52,21,1,0)="This is the Classification of Request for this order."
^DD(443.6,52,"DT")="2960830"
^DD(443.6,53,0)="PCDO VENDOR^P440'^PRC(440,^23;14^Q"
^DD(443.6,53,21,0)="^^1^1^2960830^"
^DD(443.6,53,21,1,0)="This vendor is for purchase card and delivery order."
^DD(443.6,53,"DT")="2960830"
^DD(443.6,54,0)="RECEIVING REQUIRED?^RS^Y:YES;N:NO;^23;15^Q"
^DD(443.6,54,21,0)="^^1^1^2960830^"
^DD(443.6,54,21,1,0)="This field indicates if a purchase card purchase requires receiving."
^DD(443.6,54,"DT")="2960830"
^DD(443.6,55,0)="PURCHASE CARD EXT. NO.^F^^23;16^K:$L(X)>16!($L(X)<16) X"
^DD(443.6,55,3)="Answer must be 16 characters in length."
^DD(443.6,55,21,0)="^^1^1^2960830^"
^DD(443.6,55,21,1,0)="This is the purchase card number assigned to the purchase card order."
^DD(443.6,55,"DT")="2960830"
^DD(443.6,56,0)="PURCHASE CARD USER^P200'^VA(200,^23;17^Q"
^DD(443.6,56,21,0)="^^1^1^2960830^"
^DD(443.6,56,21,1,0)="This is the user who entered the purchase card order."
^DD(443.6,56,"DT")="2960830"
^DD(443.6,57,0)="APPROVE RECONCILIATION USER^P200'^VA(200,^23;18^Q"
^DD(443.6,57,21,0)="^^1^1^2960830^"
^DD(443.6,57,21,1,0)="This is the user who approves the reconciliation of a purchase card order."
^DD(443.6,57,"DT")="2960830"
^DD(443.6,58,0)="DATE RECONCILED^D^^23;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6,58,21,0)="^^1^1^2960830^"
^DD(443.6,58,21,1,0)="This is the reconcilliation date for this purchase order."
^DD(443.6,58,"DT")="2960830"
^DD(443.6,60,0)="PURCHASE COST^RNJ12,2^^23;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(443.6,60,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(443.6,60,21,0)="^^1^1^2960830^"
^DD(443.6,60,21,1,0)="This is the total dollar amount for a Simplified Purchase Card Order."
^DD(443.6,60,"DT")="2960830"
^DD(443.6,61,0)="PURCHASE CARD HOLDER^P200'^VA(200,^23;22^Q"
^DD(443.6,61,21,0)="^^1^1^2960830^"
^DD(443.6,61,21,1,0)="This is the Purchase Card Holder for the Purchase Card order."
^DD(443.6,61,"DT")="2960830"
^DD(443.6,62,0)="PCDO 2237^P410'^PRCS(410,^23;23^Q"
^DD(443.6,62,21,0)="^^1^1^2960830^"
^DD(443.6,62,21,1,0)="This is the 2237 attached to the purchase card/delivery order."
^DD(443.6,62,"DT")="2960830"
^DD(443.6,63,0)="PROCESSING REQUIRED IN FISCAL^S^N:NO;^24;1^Q"
^DD(443.6,63,21,0)="^^1^1^2960830^"
^DD(443.6,63,21,1,0)="This field indicates if fiscal needs to process receiving report."
^DD(443.6,63,"DT")="2960830"
^DD(443.6,64,0)="FREE TEXT VENDOR^F^^24;2^K:$L(X)>36!($L(X)<1) X"
^DD(443.6,64,3)="Answer must be 1-36 characters in length."
^DD(443.6,64,21,0)="^^1^1^2960902^"
^DD(443.6,64,21,1,0)="This is free text vendor for the Simplified Purchase Card Orders."
^DD(443.6,64,"DT")="2960902"
^DD(443.6,91,0)="TOTAL AMOUNT^RNJ10,2^^0;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<1) X"
^DD(443.6,91,3)="Type a Dollar Amount between 1 and 9999999.99, 2 Decimal Digits"
^DD(443.6,91,5,1,0)="443.7^.01^1"
^DD(443.6,91,9)="^"
^DD(443.6,91,21,0)="^^1^1^2910517^"
^DD(443.6,91,21,1,0)="This is the total amount of the order."
^DD(443.6,91,"DT")="2910517"
^DD(443.6,92,0)="NET AMOUNT^NJ10,2^^0;16^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999.99)!(X<0) X"
^DD(443.6,92,3)="TYPE A NUMBER BETWEEN 0 AND 9999999.99"
^DD(443.6,92,21,0)="^^1^1^2910517^"
^DD(443.6,92,21,1,0)="This is the net amount."
^DD(443.6,93,0)="LIQUIDATED AMOUNT^NJ11,2^^0;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(443.6,93,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(443.6,93,21,0)="^^1^1^2941031^"
^DD(443.6,93,21,1,0)="This is the liquidated amount."
^DD(443.6,93,"DT")="2940428"
^DD(443.6,97,0)="PROMPT PAY TYPE^RS^A:NORMAL;C:CONTRACT;D:DAIRY;E:EXEMPT;F:PROGRESS;M:MEAT;P:PRODUCE;V:PRIME VENDOR;X:MONEY MANAGEMENT EXEMPT - NORMAL;^12;15^Q"
^DD(443.6,97,21,0)="^^1^1^2941110^^^"
^DD(443.6,97,21,1,0)="This is the type of the PROMPT PAYMENT TERMS."
^DD(443.6,97,"DT")="2961021"
^DD(443.6,101,0)="PAYABLE CODE^S^A:REGULAR POSTED;B:IMPREST FUNDS;J:DONATED;^18;2^Q"
^DD(443.6,101,21,0)="^^1^1^2941031^"
^DD(443.6,101,21,1,0)="This is the payable code."
^DD(443.6,101,"DT")="2940429"
^DD(443.6,102,0)="DOCUMENT IDENTIFIER/COMMON NO.^RF^^18;3^K:$L(X)>5!($L(X)<5) X"
^DD(443.6,102,3)="Enter the Document Identifier for LOG (Usually either the PAT number, or Requisition No., without the Fiscal ear.  ANSWER MUST BE 5 CHARACTERS IN LENGTH."
^DD(443.6,102,21,0)="^^1^1^2940331^"
^DD(443.6,102,21,1,0)="This is the document identifier/common number."
^DD(443.6,102,"DT")="2940331"
^DD(443.6,107,0)="RELEASING FACILITY NUMBER^F^^18;1^K:$L(X)>3!($L(X)<3) X"
^DD(443.6,107,3)="Answer must be 3 characters in length."
^DD(443.6,107,21,0)="^^2^2^2941031^"
^DD(443.6,107,21,1,0)="This field is entered only if another facility is"
^DD(443.6,107,21,2,0)="involved.  Enter the 3 digit facility number."
^DD(443.6,107,"DT")="2940429"
^DD(443.6,501,0)="CERTIFIED P.O.^S^Y:YES;N:NO;^1;20^Q"
^DD(443.6,501,21,0)="^^2^2^2941031^"
^DD(443.6,501,21,1,0)="If the IFCAP Common Numbering System for this purchase order is a "
^DD(443.6,501,21,2,0)="Certified entry answer YES."
^DD(443.6,501,"DT")="2940428"
^DD(443.6,"B","ADMINISTRATIVE CERTIFICATIONS",24)=""
^DD(443.6,"B","AGENT ASSIGNED P.O.",19)=""
^DD(443.6,"B","AMENDMENT",50)=""
^DD(443.6,"B","AMOUNT",35)=""
^DD(443.6,"B","APPROPRIATION",1.4)=""
^DD(443.6,"B","APPROVE RECONCILIATION USER",57)=""
^DD(443.6,"B","ASTR. FOR SOURCE CODE",8.1)=""
^DD(443.6,"B","AUTO ACCRUE",30)=""
^DD(443.6,"B","BBFY",26)=""
^DD(443.6,"B","CERTIFIED P.O.",501)=""
^DD(443.6,"B","CLASSIFICATION OF REQUEST",52)=""
^DD(443.6,"B","CONFIRMATION COPY (Y/N)",6.2)=""
^DD(443.6,"B","COST CENTER",2)=""
^DD(443.6,"B","DATE P.O. ASSIGNED",19.2)=""
^DD(443.6,"B","DATE RECONCILED",58)=""
^DD(443.6,"B","DELIVERY DATE",7)=""
^DD(443.6,"B","DELIVERY LOCATION",5.6)=""
^DD(443.6,"B","DELIVERY ORDER",47)=""
^DD(443.6,"B","DEPOT VOUCHER NO.",.09)=""
^DD(443.6,"B","DIRECT DELIVERY PATIENT",5.3)=""
^DD(443.6,"B","DISCOUNT",14)=""
^DD(443.6,"B","DISPUTED",44)=""
^DD(443.6,"B","DOCUMENT IDENTIFIER/COMMON NO.",102)=""
^DD(443.6,"B","EDI MESSAGE NO.",18.5)=""
^DD(443.6,"B","EMERGENCY ORDER?",.2)=""
^DD(443.6,"B","END DATE FOR SERVICE ORDER",29)=""
^DD(443.6,"B","ESIG CODE",16.8)=""
^DD(443.6,"B","EST. SHIPPING AND/OR HANDLING",13)=""
^DD(443.6,"B","EST. SHIPPING BOC",13.05)=""
^DD(443.6,"B","EST. SHIPPING LINE ITEM NO.",13.1)=""
^DD(443.6,"B","ESTIMATED COST",7.2)=""
^DD(443.6,"B","ESTIMATED ORDER?",.08)=""
^DD(443.6,"B","EXPENDABLE/NONEXPENDABLE",.3)=""
^DD(443.6,"B","F.O.B. POINT",6.4)=""
^DD(443.6,"B","FCP",1)=""
^DD(443.6,"B","FISCAL STATUS ORDER",.8)=""
^DD(443.6,"B","FREE TEXT VENDOR",64)=""
^DD(443.6,"B","Freight on Board",6.4)="1"
^DD(443.6,"B","Fund Control Point",1)="1"
^DD(443.6,"B","GBL P.O.NUMBER",13.4)=""
^DD(443.6,"B","GOV'T B/L NO.",13.2)=""
^DD(443.6,"B","INVOICE ADDRESS",.04)=""
^DD(443.6,"B","ITEM",40)=""
^DD(443.6,"B","LINE ITEM COUNT",15)=""
^DD(443.6,"B","LIQUIDATED AMOUNT",93)=""
^DD(443.6,"B","LOCAL PROCUREMENT REASON CODE",.25)=""
^DD(443.6,"B","METHOD OF PAYMENT",.02)=""
^DD(443.6,"B","NEED SPECIAL HANDLING?",18.6)=""
^DD(443.6,"B","NET AMOUNT",92)=""
^DD(443.6,"B","NEW PO RECORD",28)=""
^DD(443.6,"B","OLD PO RECORD",27)=""
^DD(443.6,"B","ORIGINAL DELIVERY DATE",6.9)=""
^DD(443.6,"B","P.O. DATE",.1)=""
^DD(443.6,"B","PA/PPM/AUTHORIZED BUYER",16)=""
^DD(443.6,"B","PAYABLE CODE",101)=""
^DD(443.6,"B","PCDO 2237",62)=""
^DD(443.6,"B","PCDO VENDOR",53)=""
^DD(443.6,"B","PO",.01)="1"
^DD(443.6,"B","PO PRINTED TIME",18)=""
^DD(443.6,"B","PRIMARY 2237",.07)=""
^DD(443.6,"B","PRIORITY OF 2237",.06)=""
^DD(443.6,"B","PROCESSING REQUIRED IN FISCAL",63)=""
^DD(443.6,"B","PROMPT PAY TYPE",97)=""
^DD(443.6,"B","PROMPT PAYMENT TERMS",9.2)=""
^DD(443.6,"B","PROPOSAL",8.2)=""
^DD(443.6,"B","PURCHASE CARD EXT. NO.",55)=""
^DD(443.6,"B","PURCHASE CARD HOLDER",61)=""
^DD(443.6,"B","PURCHASE CARD NUMBER",46)=""
^DD(443.6,"B","PURCHASE CARD USER",56)=""
^DD(443.6,"B","PURCHASE COST",60)=""
^DD(443.6,"B","PURCHASE ORDER NUMBER",.01)=""
^DD(443.6,"B","RECEIVING REQUIRED?",54)=""
^DD(443.6,"B","RELEASING FACILITY NUMBER",107)=""
^DD(443.6,"B","REQUESTING SERVICE",5.2)=""
^DD(443.6,"B","SATELLITE STATION",31)=""
^DD(443.6,"B","SHIP TO",5.4)=""
^DD(443.6,"B","SHIP VIA",13.3)=""
^DD(443.6,"B","SORT GROUP",51)=""
^DD(443.6,"B","SOURCE CODE",8)=""
^DD(443.6,"B","SUBACCOUNT1",3)=""
^DD(443.6,"B","SUBACCOUNT2",4)=""
^DD(443.6,"B","SUBAMOUNT1",3.4)=""
^DD(443.6,"B","SUBAMOUNT2",4.4)=""
^DD(443.6,"B","SUPPLY STATUS",.5)=""
^DD(443.6,"B","SUPPLY STATUS ORDER",.7)=""
^DD(443.6,"B","TOTAL AMOUNT",91)=""
^DD(443.6,"B","TYPE OF ORDER",48)=""
^DD(443.6,"B","TYPE OF SPECIAL HANDLING",18.7)=""
^DD(443.6,"B","VALIDATION CODE",16.5)=""
^DD(443.6,"B","VALIDATION DATE/TIME",17)=""
^DD(443.6,"B","VALIDATION VERSION",16.7)=""
^DD(443.6,"B","VENDOR",5)=""
^DD(443.6,"B","VERBAL PURCHASE ORDER (Y/N)",6)=""
^DD(443.6,"GL",0,1,.01)=""
^DD(443.6,"GL",0,2,.02)=""
^DD(443.6,"GL",0,3,1)=""
^DD(443.6,"GL",0,4,1.4)=""
^DD(443.6,"GL",0,5,2)=""
^DD(443.6,"GL",0,6,3)=""
^DD(443.6,"GL",0,7,3.4)=""
^DD(443.6,"GL",0,8,4)=""
^DD(443.6,"GL",0,9,4.4)=""
^DD(443.6,"GL",0,10,7)=""
^DD(443.6,"GL",0,11,7.2)=""
^DD(443.6,"GL",0,12,.07)=""
^DD(443.6,"GL",0,13,13)=""
^DD(443.6,"GL",0,14,15)=""
^DD(443.6,"GL",0,15,91)=""
^DD(443.6,"GL",0,16,92)=""
^DD(443.6,"GL",0,17,93)=""
^DD(443.6,"GL",0,18,13.1)=""
^DD(443.6,"GL",0,20,6.9)=""
^DD(443.6,"GL",1,1,5)=""
^DD(443.6,"GL",1,2,5.2)=""
^DD(443.6,"GL",1,3,5.4)=""
^DD(443.6,"GL",1,4,6)=""
^DD(443.6,"GL",1,5,6.2)=""
^DD(443.6,"GL",1,6,6.4)=""
^DD(443.6,"GL",1,7,8)=""
^DD(443.6,"GL",1,8,8.2)=""
^DD(443.6,"GL",1,9,.06)=""
^DD(443.6,"GL",1,10,16)=""
^DD(443.6,"GL",1,11,5.6)=""
^DD(443.6,"GL",1,12,5.3)=""
^DD(443.6,"GL",1,13,.09)=""
^DD(443.6,"GL",1,14,8.1)=""
^DD(443.6,"GL",1,15,.1)=""
^DD(443.6,"GL",1,17,.2)=""
^DD(443.6,"GL",1,18,.3)=""
^DD(443.6,"GL",1,19,.25)=""
^DD(443.6,"GL",1,20,501)=""
^DD(443.6,"GL",2,0,40)=""
^DD(443.6,"GL",3,0,14)=""
^DD(443.6,"GL",5,0,9.2)=""
^DD(443.6,"GL",6,0,50)=""
^DD(443.6,"GL",7,1,.5)=""
^DD(443.6,"GL",7,2,.7)=""
^DD(443.6,"GL",7,3,.08)=""
^DD(443.6,"GL",7,4,.8)=""
^DD(443.6,"GL",9,0,35)=""
^DD(443.6,"GL",12,1,18)=""
^DD(443.6,"GL",12,2,16.5)=""
^DD(443.6,"GL",12,3,17)=""
^DD(443.6,"GL",12,4,19)=""
^DD(443.6,"GL",12,5,19.2)=""
^DD(443.6,"GL",12,6,.04)=""
^DD(443.6,"GL",12,7,13.2)=""
^DD(443.6,"GL",12,8,13.3)=""
^DD(443.6,"GL",12,9,13.4)=""
^DD(443.6,"GL",12,10,18.5)=""
^DD(443.6,"GL",12,11,16.7)=""
^DD(443.6,"GL",12,12,16.8)=""
^DD(443.6,"GL",12,13,18.6)=""
^DD(443.6,"GL",12,14,18.7)=""
^DD(443.6,"GL",12,15,97)=""
^DD(443.6,"GL",15,0,24)=""
^DD(443.6,"GL",18,1,107)=""
^DD(443.6,"GL",18,2,101)=""
^DD(443.6,"GL",18,3,102)=""
^DD(443.6,"GL",23,1,13.05)=""
^DD(443.6,"GL",23,2,26)=""
^DD(443.6,"GL",23,3,27)=""
^DD(443.6,"GL",23,4,28)=""
^DD(443.6,"GL",23,5,29)=""
^DD(443.6,"GL",23,6,30)=""
^DD(443.6,"GL",23,7,31)=""
^DD(443.6,"GL",23,8,46)=""
^DD(443.6,"GL",23,9,44)=""
^DD(443.6,"GL",23,10,47)=""
^DD(443.6,"GL",23,11,48)=""
^DD(443.6,"GL",23,12,52)=""
^DD(443.6,"GL",23,13,51)=""
^DD(443.6,"GL",23,14,53)=""
^DD(443.6,"GL",23,15,54)=""
^DD(443.6,"GL",23,16,55)=""
^DD(443.6,"GL",23,17,56)=""
^DD(443.6,"GL",23,18,57)=""
^DD(443.6,"GL",23,19,58)=""
^DD(443.6,"GL",23,21,60)=""
^DD(443.6,"GL",23,22,61)=""
^DD(443.6,"GL",23,23,62)=""
^DD(443.6,"GL",24,1,63)=""
^DD(443.6,"GL",24,2,64)=""
^DD(443.6,"IX",.01)=""
^DD(443.6,"IX",.02)=""
^DD(443.6,"IX",.04)=""
^DD(443.6,"IX",1)=""
^DD(443.6,"IX",2)=""
^DD(443.6,"IX",5)=""
^DD(443.6,"IX",5.2)=""
^DD(443.6,"IX",5.3)=""
^DD(443.6,"IX",5.4)=""
^DD(443.6,"IX",6.4)=""
^DD(443.6,"IX",7)=""
^DD(443.6,"IX",8)=""
^DD(443.6,"RQ",.01)=""
^DD(443.6,"RQ",.02)=""
^DD(443.6,"RQ",.3)=""
^DD(443.6,"RQ",1)=""
^DD(443.6,"RQ",1.4)=""
^DD(443.6,"RQ",5)=""
^DD(443.6,"RQ",5.2)=""
^DD(443.6,"RQ",7)=""
^DD(443.6,"RQ",8)=""
^DD(443.6,"RQ",13.05)=""
^DD(443.6,"RQ",15)=""
^DD(443.6,"RQ",16)=""
^DD(443.6,"RQ",46)=""
^DD(443.6,"RQ",54)=""
^DD(443.6,"RQ",60)=""
^DD(443.6,"RQ",91)=""
^DD(443.6,"RQ",97)=""
^DD(443.6,"RQ",102)=""
^DD(443.6,"SB",443.61,40)=""
^DD(443.6,"SB",443.624,24)=""
^DD(443.6,"SB",443.63,14)=""
^DD(443.6,"SB",443.66,9.2)=""
^DD(443.6,"SB",443.67,50)=""
^DD(443.6,"SB",443.7,35)=""
^DD(443.61,0)="ITEM SUB-FIELD^NL^43^48"
^DD(443.61,0,"DT")="2940701"
^DD(443.61,0,"ID","Z1")="W:$D(^(1,1,0)) $E(^(0),1,60)"
^DD(443.61,0,"ID","Z3")="I $P(^PRC(443.6,DA(1),2,+Y,0),U,2)=0!($P(^(0),U,9)=0) W ?50,""**DELETED**"""
^DD(443.61,0,"IX","AAA",443.61,36.6)=""
^DD(443.61,0,"IX","AC",443.61,4)=""
^DD(443.61,0,"IX","AD",443.61,1.5)=""
^DD(443.61,0,"IX","AE",443.61,1.5)=""
^DD(443.61,0,"IX","AF",443.61,2)=""
^DD(443.61,0,"IX","AG",443.61,3)=""
^DD(443.61,0,"IX","AH",443.61,3.5)=""
^DD(443.61,0,"IX","AI",443.61,9)=""
^DD(443.61,0,"IX","AJ",443.61,5.5)=""
^DD(443.61,0,"IX","AK",443.61,3.2)=""
^DD(443.61,0,"IX","AL",443.61,1.5)=""
^DD(443.61,0,"IX","AM",443.61,5)=""
^DD(443.61,0,"IX","AN",443.61,3.1)=""
^DD(443.61,0,"IX","AO",443.61,9.5)=""
^DD(443.61,0,"IX","AP",443.61,9.6)=""
^DD(443.61,0,"IX","AQ",443.61,9.3)=""
^DD(443.61,0,"IX","AR",443.61,9.4)=""
^DD(443.61,0,"IX","AS",443.61,9.7)=""
^DD(443.61,0,"IX","AT",443.61,.01)=""
^DD(443.61,0,"IX","AU",443.61,8)=""
^DD(443.61,0,"IX","AV",443.61,40)=""
^DD(443.61,0,"IX","AW",443.61,41)=""
^DD(443.61,0,"IX","AX",443.61,42)=""
^DD(443.61,0,"IX","AY",443.61,4)=""
^DD(443.61,0,"IX","AZ",443.61,36.3)=""
^DD(443.61,0,"IX","B",443.61,.01)=""
^DD(443.61,0,"IX","C",443.61,.01)=""
^DD(443.61,0,"NM","ITEM")=""
^DD(443.61,0,"UP")="443.6"
^DD(443.61,.01,0)="LINE ITEM NUMBER^RMNJ2,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.61,.01,.1)=""
^DD(443.61,.01,1,0)="^.1"
^DD(443.61,.01,1,1,0)="443.61^AT^MUMPS"
^DD(443.61,.01,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN0^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN0^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,.01,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN0^PRCHAMXA"
^DD(443.61,.01,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,.01,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or"
^DD(443.61,.01,1,1,"%D",2,0)="a 'Line Item Edit' amendment changes this field."
^DD(443.61,.01,1,1,"%D",3,0)="                 "
^DD(443.61,.01,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,.01,1,1,"%D",5,0)="incidence of undefined DIK errors."
^DD(443.61,.01,1,1,"DT")="2950321"
^DD(443.61,.01,1,2,0)="443.61^B"
^DD(443.61,.01,1,2,1)="S ^PRC(443.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(443.61,.01,1,2,2)="K ^PRC(443.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(443.61,.01,1,3,0)="443.61^C"
^DD(443.61,.01,1,3,1)="S ^PRC(443.6,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(443.61,.01,1,3,2)="K ^PRC(443.6,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(443.61,.01,1,3,"%D",0)="^^1^1^2930701^"
^DD(443.61,.01,1,3,"%D",1,0)="This X-REF lists all the LINE ITEM NUMBER entries within one P.O."
^DD(443.61,.01,1,4,0)="443.6^AZAPSCH^MUMPS"
^DD(443.61,.01,1,4,1)="Q"
^DD(443.61,.01,1,4,2)="N DAA,DS,DIK,PR S DAA=DA N DA S PR=$G(PRCHPO,$P(^PRC(443.6,D0,0),U)),DS="""",DIK=""^PRC(441.7,"" F  S DS=$O(^PRC(441.7,""AG"",PR,DAA,DS)) Q:DS=""""  S DA=DS D ^DIK"
^DD(443.61,.01,1,4,"%D",0)="^^2^2^2970207^"
^DD(443.61,.01,1,4,"%D",1,0)="To delete entries in file 441.7 that correspond to an item in field #40"
^DD(443.61,.01,1,4,"%D",2,0)="in file #443.6 that is being deleted."
^DD(443.61,.01,1,4,"DT")="2970207"
^DD(443.61,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(443.61,.01,21,0)="^^1^1^2910517^"
^DD(443.61,.01,21,1,0)="This is the line item number."
^DD(443.61,.01,"DEL",.01,0)="I 1"
^DD(443.61,.01,"DT")="2970207"
^DD(443.61,1,0)="DESCRIPTION^443.65^^1;0"
^DD(443.61,1,21,0)="^^1^1^2910517^"
^DD(443.61,1,21,1,0)="This is a description of the item."
^DD(443.61,1.5,0)="ITEM MASTER FILE NO.^*P441'X^PRC(441,^0;5^S DIC(""S"")=""I 1"",DIC(0)=DIC(0)_""O"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D EN5^PRCHCRD2"
^DD(443.61,1.5,1,0)="^.1"
^DD(443.61,1.5,1,1,0)="443.61^AD^MUMPS"
^DD(443.61,1.5,1,1,1)="Q:'$D(PRC(""SITE""))!'($P(^PRC(443.6,DA(1),1),U,1)]"""")  S PRCHCI=X,PRCHCPO=DA(1),PRCHCIT=DA,PRCHCV=$P(^PRC(443.6,DA(1),1),U,1) D LST^PRCHCRD2"
^DD(443.61,1.5,1,1,2)="Q"
^DD(443.61,1.5,1,1,"%D",0)="^^20^20^2970417^^^^"
^DD(443.61,1.5,1,1,"%D",1,0)="This X-REF will copy information from the ITEM MASTER file into the"
^DD(443.61,1.5,1,1,"%D",2,0)="AMENDMENTS file."
^DD(443.61,1.5,1,1,"%D",3,0)="Here is a list of the fields in the ITEM MASTER file and the fields in"
^DD(443.61,1.5,1,1,"%D",4,0)="the AMENDMENTS file that the data is copied into.                                     "
^DD(443.61,1.5,1,1,"%D",5,0)="                                          "
^DD(443.61,1.5,1,1,"%D",6,0)="     File 441                  File 443.6"
^DD(443.61,1.5,1,1,"%D",7,0)=" VENDOR STOCK #             VENDOR STOCK NUMBER"
^DD(443.61,1.5,1,1,"%D",8,0)=" NDC                        NATIONAL DRUG CODE"
^DD(443.61,1.5,1,1,"%D",9,0)=" UNIT COST                  ACTUAL UNIT COST"
^DD(443.61,1.5,1,1,"%D",10,0)=" UNIT OF PURCHASE           UNIT OF PURCHASE"
^DD(443.61,1.5,1,1,"%D",11,0)=" PACKAGING MULTIPLE         PACKAGING MULTIPLE"
^DD(443.61,1.5,1,1,"%D",12,0)=" MAXIMUM ORDER              MAXIMUM ORDER     "
^DD(443.61,1.5,1,1,"%D",13,0)=" UNIT CONVERSION FACTOR     UNIT CONVERSION FACTOR"
^DD(443.61,1.5,1,1,"%D",14,0)=" SKU                        SKU              "
^DD(443.61,1.5,1,1,"%D",15,0)=" NSN                        NSN                "
^DD(443.61,1.5,1,1,"%D",16,0)=" FSC                        FEDERAL SUPPLY CLASSIFICATION"
^DD(443.61,1.5,1,1,"%D",17,0)=" SUBACCOUNT                 SUBACCOUNT        "
^DD(443.61,1.5,1,1,"%D",18,0)=" CONTRACT NUMBER            CONTRACT #         "
^DD(443.61,1.5,1,1,"%D",19,0)=" QUANTITY(442)*UNIT COST    TOTAL COST       "
^DD(443.61,1.5,1,1,"%D",20,0)=" DESCRIPTION MULTIPLE       DESCRIPTION MULTIPLE"
^DD(443.61,1.5,1,1,"DT")="2931222"
^DD(443.61,1.5,1,2,0)="443.61^AE"
^DD(443.61,1.5,1,2,1)="S ^PRC(443.6,DA(1),2,""AE"",$E(X,1,30),DA)="""""
^DD(443.61,1.5,1,2,2)="K ^PRC(443.6,DA(1),2,""AE"",$E(X,1,30),DA)"
^DD(443.61,1.5,1,2,"%D",0)="^^2^2^2930701^"
^DD(443.61,1.5,1,2,"%D",1,0)="This X-REF lists the REPETITIVE (PR CARD) NO. for all LINE ITEM"
^DD(443.61,1.5,1,2,"%D",2,0)="NUMBER entries within one P.O."
^DD(443.61,1.5,1,3,0)="443.61^AL^MUMPS"
^DD(443.61,1.5,1,3,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN4^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN4^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,1.5,1,3,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN4^PRCHAMXA"
^DD(443.61,1.5,1,3,"%D",0)="^^5^5^2970415^^^^"
^DD(443.61,1.5,1,3,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add'"
^DD(443.61,1.5,1,3,"%D",2,0)="or a 'Line Item Edit' amendment changes this field."
^DD(443.61,1.5,1,3,"%D",3,0)="                       "
^DD(443.61,1.5,1,3,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,1.5,1,3,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,1.5,1,3,"DT")="2950321"
^DD(443.61,1.5,3)=""
^DD(443.61,1.5,4)="I X=""?"" S XQH=""PRCHITEM HELP"" D EN^XQH"
^DD(443.61,1.5,12.1)="S DIC(""S"")=""I 1"",DIC(0)=DIC(0)_""O"""
^DD(443.61,1.5,21,0)="^^1^1^2940706^^^^"
^DD(443.61,1.5,21,1,0)="This is the Item Master number."
^DD(443.61,1.5,23,0)="^^3^3^2940706^^^^"
^DD(443.61,1.5,23,1,0)="The file 442 internal record number needs to be copied into file"
^DD(443.61,1.5,23,2,0)="441 as another purchase order using this ITEM when the amendment"
^DD(443.61,1.5,23,3,0)="is moved back into file 442."
^DD(443.61,1.5,"DT")="2950321"
^DD(443.61,2,0)="QUANTITY^RNJ9,2^^0;2^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(443.61,2,1,0)="^.1"
^DD(443.61,2,1,1,0)="^^TRIGGER^443.61^15"
^DD(443.61,2,1,1,1)="X ^DD(443.61,2,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(443.61,2,1,1,1.1) X ^DD(443.61,2,1,1,1.4)"
^DD(443.61,2,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9)*DIV"
^DD(443.61,2,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9)]"""""
^DD(443.61,2,1,1,1.4)="S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.61,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="""" X ^DD(443.61,2,1,1,2.4)"
^DD(443.61,2,1,1,2.4)="S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.61,2,1,1,"CREATE CONDITION")="ACTUAL UNIT COST]"""""
^DD(443.61,2,1,1,"CREATE VALUE")="ACTUAL UNIT COST*QUANTITY"
^DD(443.61,2,1,1,"DELETE VALUE")="@"
^DD(443.61,2,1,1,"FIELD")="AMOUNT"
^DD(443.61,2,1,2,0)="443.61^AF^MUMPS"
^DD(443.61,2,1,2,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN1^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I ""22,23""[PRCHAMDA S PRCHX=X,X=0 D EN1^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,2,1,2,2)="I $G(PRCHNORE)=1,""22,23""[PRCHAMDA S FLAG=1 D EN1^PRCHAMXA"
^DD(443.61,2,1,2,"%D",0)="^^5^5^2970415^^^^"
^DD(443.61,2,1,2,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or"
^DD(443.61,2,1,2,"%D",2,0)="a 'Line Item Delete' or a 'Line Item Edit' amendment changes this field."
^DD(443.61,2,1,2,"%D",3,0)="                         "
^DD(443.61,2,1,2,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,2,1,2,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,2,1,2,"DT")="2950321"
^DD(443.61,2,3)="TYPE A NUMBER BETWEEN .01 AND 999999"
^DD(443.61,2,21,0)="^^1^1^2930204^^"
^DD(443.61,2,21,1,0)="This is the quantity of the item on the order."
^DD(443.61,2,"DT")="2950321"
^DD(443.61,3,0)="UNIT OF PURCHASE^RP420.5'X^PRCD(420.5,^0;3^Q"
^DD(443.61,3,1,0)="^.1"
^DD(443.61,3,1,1,0)="443.61^AG^MUMPS"
^DD(443.61,3,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN2^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN2^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,3,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN2^PRCHAMXA"
^DD(443.61,3,1,1,"%D",0)="2^^5^5^2970416^^"
^DD(443.61,3,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,3,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,3,1,1,"%D",3,0)="              "
^DD(443.61,3,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,3,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,3,1,1,"DT")="2950321"
^DD(443.61,3,21,0)="^^1^1^2931220^^^"
^DD(443.61,3,21,1,0)="This is the unit of purchase of the item."
^DD(443.61,3,23,0)="^^2^2^2931220^^"
^DD(443.61,3,23,1,0)="This field needs to be coppied into file 441 (see EN6^PRCHNPO5) when"
^DD(443.61,3,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,3,"DT")="2950321"
^DD(443.61,3.1,0)="PACKAGING MULTIPLE^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.61,3.1,1,0)="^.1"
^DD(443.61,3.1,1,1,0)="443.61^AN^MUMPS"
^DD(443.61,3.1,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN9^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN9^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,3.1,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN9^PRCHAMXA"
^DD(443.61,3.1,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,3.1,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,3.1,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,3.1,1,1,"%D",3,0)="                 "
^DD(443.61,3.1,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and "
^DD(443.61,3.1,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,3.1,1,1,"DT")="2950321"
^DD(443.61,3.1,3)="Enter a number between 1 and 999999.  Used to indicate quantity contained in one unit of purchase. (Ex. Item comes 10 per box, packaging multiple=10)."
^DD(443.61,3.1,21,0)="^^1^1^2931220^^"
^DD(443.61,3.1,21,1,0)="This is the packaging multiple of the item."
^DD(443.61,3.1,23,0)="^^2^2^2931220^"
^DD(443.61,3.1,23,1,0)="This field needs to be cpooied into file 441 (see EN7^PRCHNPO6) when"
^DD(443.61,3.1,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,3.1,"DT")="2950321"
^DD(443.61,3.2,0)="COST CENTER^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<3) X"
^DD(443.61,3.2,1,0)="^.1"
^DD(443.61,3.2,1,1,0)="443.61^AK^MUMPS"
^DD(443.61,3.2,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN7^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,3.2,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN7^PRCHAMXA"
^DD(443.61,3.2,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,3.2,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Edit'"
^DD(443.61,3.2,1,1,"%D",2,0)="amendment changes this field."
^DD(443.61,3.2,1,1,"%D",3,0)="                     "
^DD(443.61,3.2,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,3.2,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,3.2,1,1,"DT")="2950321"
^DD(443.61,3.2,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(443.61,3.2,21,0)="^^1^1^2910517^"
^DD(443.61,3.2,21,1,0)="This is the cost center for this purchase order."
^DD(443.61,3.2,"DT")="2950321"
^DD(443.61,3.5,0)="BOC^RFX^^0;4^N Z0 S Z0=$P(^PRC(443.6,DA(1),0),""^"",5) K:'Z0 X I $D(X) K:'$D(^PRCD(420.1,Z0,0)) X I $D(X) S X=$$SUPBOC^PRCHMA0 D EN13^PRCHNPO7"
^DD(443.61,3.5,1,0)="^.1"
^DD(443.61,3.5,1,1,0)="443.61^AH^MUMPS"
^DD(443.61,3.5,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN3^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN3^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,3.5,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN3^PRCHAMXA"
^DD(443.61,3.5,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,3.5,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,3.5,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,3.5,1,1,"%D",3,0)="                 "
^DD(443.61,3.5,1,1,"%D",4,0)="****NOTE-See routine PRCHMAXA for information on variable PRCHNORE and"
^DD(443.61,3.5,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,3.5,1,1,"DT")="2950321"
^DD(443.61,3.5,3)="Please enter the appropriate BOC for this item."
^DD(443.61,3.5,4)="N D,Z0,Z1,DIC S Z0=$P(^PRC(443.6,DA(1),0),""^"",5),Z1=$P(^(0),""^"",19) K:'Z0 X I $D(X) S X=""??"",DIC=""^PRCD(420.1,Z0,1,"",DIC(0)=""E"" D:Z1'=2 ^DIC S:Z1=2 X=$$SUPBOC^PRCHMA0"
^DD(443.61,3.5,21,0)="^^1^1^2970210^^^^"
^DD(443.61,3.5,21,1,0)="This is one of the BOC on this purchase order."
^DD(443.61,3.5,"DT")="2970210"
^DD(443.61,3.6,0)="INTERMEDIATE PRODUCT CODE^P420.9'^PRCD(420.9,^0;11^Q"
^DD(443.61,3.6,21,0)="^^1^1^2941031^"
^DD(443.61,3.6,21,1,0)="This is the intermediate product."
^DD(443.61,3.6,"DT")="2940428"
^DD(443.61,4,0)="CONTRACT/BOA #^FX^^2;2^K:X[""""""""!($A(X)=45) X I $D(X) S Y=$$CONTRACT^PRCHNPT(DA(1),X) S X=$P(Y,U,2) K:Y'>0 X"
^DD(443.61,4,1,0)="^.1"
^DD(443.61,4,1,1,0)="443.61^AC^MUMPS"
^DD(443.61,4,1,1,1)="S ^PRC(443.6,DA(1),2,""AC"",$E(X,1,30),DA)="""""
^DD(443.61,4,1,1,2)="K ^PRC(443.6,DA(1),2,""AC"",$E(X,1,30),DA)"
^DD(443.61,4,1,1,"%D",0)="^^1^1^2970416^^^^"
^DD(443.61,4,1,1,"%D",1,0)="This X-REF is a list of all CONTRACT #s within one P.O."
^DD(443.61,4,1,2,0)="443.61^AY^MUMPS"
^DD(443.61,4,1,2,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN5^PRCHAMXG Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN5^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.61,4,1,2,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN5^PRCHAMXD"
^DD(443.61,4,1,2,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,4,1,2,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,4,1,2,"%D",2,0)="'Line item Edit' amendment changes this field."
^DD(443.61,4,1,2,"%D",3,0)="                 "
^DD(443.61,4,1,2,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,4,1,2,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,4,1,2,"DT")="2950321"
^DD(443.61,4,3)="Enter a Contract/BOA # (min. 7 chars.) with valid expiration date."
^DD(443.61,4,4)="D HLPCON^PRCHNPT(DA(1),X)"
^DD(443.61,4,21,0)="^^2^2^2970221^^^^"
^DD(443.61,4,21,1,0)="This is the contract number with valid expiration"
^DD(443.61,4,21,2,0)="date."
^DD(443.61,4,"DT")="2970221"
^DD(443.61,5,0)="ACTUAL UNIT COST^RNJ12,4XO^^0;9^S:X[""$"" X=$P(X,""$"",2) S X=$TR(X,""nc"",""NC"") K:X'?1.N&(X'?.N1""."".4N)&(X'?1""N/C"")!(X?.E1"".""5N.N)!(X>9999999.9999)!(X<0) X"
^DD(443.61,5,1,0)="^.1"
^DD(443.61,5,1,1,0)="^^TRIGGER^443.61^15"
^DD(443.61,5,1,1,1)="X ^DD(443.61,5,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y X ^DD(443.61,5,1,1,1.1) X ^DD(443.61,5,1,1,1.4)"
^DD(443.61,5,1,1,1.1)="S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"""") S X=DIV*$P(Y(1),U,2)"
^DD(443.61,5,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(443.6,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(1),U,2)>0"
^DD(443.61,5,1,1,1.4)="S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.61,5,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^PRC(443.6,D0,2,D1,2)):^(2),1:"""") S X=$P(Y(1),U,1) S DIU=X K Y S X=DIV S X="""" X ^DD(443.61,5,1,1,2.4)"
^DD(443.61,5,1,1,2.4)="S DIH=$S($D(^PRC(443.6,DIV(0),2,DIV(1),2)):^(2),1:""""),DIV=X S %=$P(DIH,U,2,999),DIU=$P(DIH,U,1),^(2)=DIV_$S(%]"""":U_%,1:""""),DIH=443.61,DIG=15 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.61,5,1,1,"CREATE CONDITION")="QUANTITY>0"
^DD(443.61,5,1,1,"CREATE VALUE")="ACTUAL UNIT COST*QUANTITY"
^DD(443.61,5,1,1,"DELETE VALUE")="@"
^DD(443.61,5,1,1,"FIELD")="AMOUNT"
^DD(443.61,5,1,2,0)="443.61^AM^MUMPS"
^DD(443.61,5,1,2,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN8^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I ""22,23""[PRCHAMDA S PRCHX=X,X=0 D EN8^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,5,1,2,2)="I $G(PRCHNORE)=1,""22,23""[PRCHAMDA S FLAG=1 D EN8^PRCHAMXA"
^DD(443.61,5,1,2,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,5,1,2,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or"
^DD(443.61,5,1,2,"%D",2,0)="a 'Line Item Edit' or a 'Line Item Delete' amendment changes this field."
^DD(443.61,5,1,2,"%D",3,0)="                      "
^DD(443.61,5,1,2,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,5,1,2,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,5,1,2,"DT")="2950321"
^DD(443.61,5,2)="S Y(0)=Y S Y="" $""_$J(Y,0,4)"
^DD(443.61,5,2.1)="S Y="" $""_$J(Y,0,4)"
^DD(443.61,5,3)="Enter a dollar amount between 0 and 9999999.9999 or N/C for no charge"
^DD(443.61,5,21,0)="^^1^1^2931220^^"
^DD(443.61,5,21,1,0)="This is the actual unit cost for this item."
^DD(443.61,5,23,0)="^^2^2^2931220^"
^DD(443.61,5,23,1,0)="This field needs to be coppied into file 441 (see EN9^PRCHNPO5) when"
^DD(443.61,5,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,5,"DT")="2950321"
^DD(443.61,5.5,0)="EST. UNIT COST^NJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999.99)!(X<0) X"
^DD(443.61,5.5,1,0)="^.1"
^DD(443.61,5.5,1,1,0)="443.61^AJ^MUMPS"
^DD(443.61,5.5,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN6^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,5.5,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN6^PRCHAMXA"
^DD(443.61,5.5,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,5.5,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Edit'"
^DD(443.61,5.5,1,1,"%D",2,0)="amendment changes this field."
^DD(443.61,5.5,1,1,"%D",3,0)="                     "
^DD(443.61,5.5,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,5.5,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,5.5,1,1,"DT")="2950321"
^DD(443.61,5.5,3)="TYPE A NUMBER BETWEEN 0 AND 999999.99"
^DD(443.61,5.5,21,0)="^^1^1^2910517^"
^DD(443.61,5.5,21,1,0)="This is the estimated unit cost for this item."
^DD(443.61,5.5,"DT")="2950321"
^DD(443.61,6,0)="DESCRIPTION LINE COUNT^NJ2,0^^2;4^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.61,6,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 15"
^DD(443.61,6,21,0)="^^2^2^2910517^"
^DD(443.61,6,21,1,0)="This is the number of lines in the item"
^DD(443.61,6,21,2,0)="description (internal program use)."
^DD(443.61,7,0)="DESCRIPT. ASTR.^F^^2;5^K:$L(X)>3!($L(X)<1) X"
^DD(443.61,7,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(443.61,7,21,0)="^^2^2^2910517^"
^DD(443.61,7,21,1,0)="This field contains internal program code that"
^DD(443.61,7,21,2,0)="controls printed output."
^DD(443.61,8,0)="FEDERAL SUPPLY CLASSIFICATION^RP441.2'X^PRC(441.2,^2;3^D EN100^PRCHNPO7"
^DD(443.61,8,.1)="FSC/PSC"
^DD(443.61,8,1,0)="^.1"
^DD(443.61,8,1,1,0)="443.61^AU^MUMPS"
^DD(443.61,8,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN1^PRCHAMXG Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN1^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.61,8,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN1^PRCHAMXD"
^DD(443.61,8,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,8,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,8,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,8,1,1,"%D",3,0)="                 "
^DD(443.61,8,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,8,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,8,1,1,"DT")="2950321"
^DD(443.61,8,3)=""
^DD(443.61,8,21,0)="^.001^2^2^3050909^^^^"
^DD(443.61,8,21,1,0)="This is the Federal Supply Classification for an item, or the Product"
^DD(443.61,8,21,2,0)="Service Code for a service."
^DD(443.61,8,"DT")="3050909"
^DD(443.61,9,0)="VENDOR STOCK NUMBER^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>24!($L(X)<1) X"
^DD(443.61,9,1,0)="^.1"
^DD(443.61,9,1,1,0)="443.61^AI^MUMPS"
^DD(443.61,9,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN5^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN5^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,9,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN5^PRCHAMXA"
^DD(443.61,9,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,9,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,9,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,9,1,1,"%D",3,0)="                 "
^DD(443.61,9,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and "
^DD(443.61,9,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,9,1,1,"DT")="2950321"
^DD(443.61,9,3)="Enter the Vendor Stock No. or Catalog no., or other number used by the Vendor to identify this item (1-24 characters)"
^DD(443.61,9,21,0)="^^1^1^2931220^^"
^DD(443.61,9,21,1,0)="This is the stock number for this item."
^DD(443.61,9,23,0)="^^2^2^2931220^"
^DD(443.61,9,23,1,0)="This field needs to be coppied into file 441 (see EN12^PRCHNPO5) when"
^DD(443.61,9,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,9,"DT")="2950321"
^DD(443.61,9.3,0)="NATIONAL DRUG CODE^F^^0;15^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<11)!'(X?1.6N1""-""1.4N1""-""1.2N) X"
^DD(443.61,9.3,1,0)="^.1"
^DD(443.61,9.3,1,1,0)="443.61^AQ^MUMPS"
^DD(443.61,9.3,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN12^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN12^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,9.3,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN12^PRCHAMXA"
^DD(443.61,9.3,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,9.3,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,9.3,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,9.3,1,1,"%D",3,0)="                 "
^DD(443.61,9.3,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,9.3,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,9.3,1,1,"DT")="2950321"
^DD(443.61,9.3,3)="Enter in following format: 1-6 numeric, 1 dash, 1-4 numeric, 1 dash, 1-2 numeric (ex. 123456-1234-12).  ANSWER MUST BE 11-14 CHARACTERS IN LENGTH."
^DD(443.61,9.3,21,0)="^^1^1^2931220^"
^DD(443.61,9.3,21,1,0)="This is the National Drug Code for the item, if applicable."
^DD(443.61,9.3,"DT")="2950321"
^DD(443.61,9.4,0)="SKU^P420.5'^PRCD(420.5,^0;16^Q"
^DD(443.61,9.4,1,0)="^.1"
^DD(443.61,9.4,1,1,0)="443.61^AR^MUMPS"
^DD(443.61,9.4,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN13^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN13^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,9.4,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN13^PRCHAMXA"
^DD(443.61,9.4,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,9.4,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,9.4,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,9.4,1,1,"%D",3,0)="                 "
^DD(443.61,9.4,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,9.4,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,9.4,1,1,"DT")="2950321"
^DD(443.61,9.4,3)="Enter the Stock Keeping Unit for this item."
^DD(443.61,9.4,21,0)="^^1^1^2931220^^^"
^DD(443.61,9.4,21,1,0)="SKU pointer of ITEM."
^DD(443.61,9.4,23,0)="^^2^2^2931220^^"
^DD(443.61,9.4,23,1,0)="This field needs to be cpooied into file 441 (see EN6^PRCHNPO7) when"
^DD(443.61,9.4,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,9.4,"DT")="2950321"
^DD(443.61,9.5,0)="NSN^FX^^0;13^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<16)!'(X?4N1""-""2UN1""-""3UN1""-""4N.UN) X"
^DD(443.61,9.5,1,0)="^.1"
^DD(443.61,9.5,1,1,0)="443.61^AO^MUMPS"
^DD(443.61,9.5,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN10^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN10^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,9.5,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN10^PRCHAMXA"
^DD(443.61,9.5,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,9.5,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,9.5,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,9.5,1,1,"%D",3,0)="                 "
^DD(443.61,9.5,1,1,"%D",4,0)="****NOTE-See routine PRCHMAXA for information on variable PRCHNORE and"
^DD(443.61,9.5,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,9.5,1,1,"DT")="2950321"
^DD(443.61,9.5,3)="Enter the NSN (National Stock Number) in the following format: 1234-56-A89-1234A (last character is optional). The 2nd & 3rd segment of NSN can accept alpha or numeric characters. ex 6505-CD-9M1-1234 "
^DD(443.61,9.5,21,0)="^^1^1^2970129^^^^"
^DD(443.61,9.5,21,1,0)="This is the National Stock Number for this item."
^DD(443.61,9.5,23,0)="^^2^2^2970129^^^^"
^DD(443.61,9.5,23,1,0)="This field needs to be copied into file 441 (see EN1^PRCHNPO7) when"
^DD(443.61,9.5,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,9.5,"DT")="2961212"
^DD(443.61,9.6,0)="MAXIMUM ORDER QTY^NJ9,2^^0;14^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(443.61,9.6,1,0)="^.1"
^DD(443.61,9.6,1,1,0)="443.61^AP^MUMPS"
^DD(443.61,9.6,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN11^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN11^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,9.6,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN11^PRCHAMXA"
^DD(443.61,9.6,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,9.6,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Edit'"
^DD(443.61,9.6,1,1,"%D",2,0)="amendment changes this field."
^DD(443.61,9.6,1,1,"%D",3,0)="                     "
^DD(443.61,9.6,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,9.6,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,9.6,1,1,"DT")="2950321"
^DD(443.61,9.6,3)="Type a Number between .01 and 999999, 2 Decimal Digits or leave blank"
^DD(443.61,9.6,21,0)="^^1^1^2931220^^"
^DD(443.61,9.6,21,1,0)="This is the maximum order quantity for the ITEM."
^DD(443.61,9.6,23,0)="^^2^2^2931220^"
^DD(443.61,9.6,23,1,0)="This field needs to be cpooied into file 441 (see EN9^PRCHNPO6) when"
^DD(443.61,9.6,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,9.6,"DT")="2991015"
^DD(443.61,9.7,0)="UNIT CONVERSION FACTOR^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.61,9.7,1,0)="^.1"
^DD(443.61,9.7,1,1,0)="443.61^AS^MUMPS"
^DD(443.61,9.7,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN14^PRCHAMXF Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN14^PRCHAMXA S X=PRCHX K PRCHX"
^DD(443.61,9.7,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN14^PRCHAMXA"
^DD(443.61,9.7,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,9.7,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,9.7,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,9.7,1,1,"%D",3,0)="                    "
^DD(443.61,9.7,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,9.7,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,9.7,1,1,"DT")="2950321"
^DD(443.61,9.7,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999.  This number is used to convert quantities purchased from Unit of Purchase to Unit of Issue."
^DD(443.61,9.7,21,0)="^^1^1^2931220^^^"
^DD(443.61,9.7,21,1,0)="This is the unit of conversion factor, used to convert a unit of purchase into a unit of issue."
^DD(443.61,9.7,23,0)="^^2^2^2931220^^"
^DD(443.61,9.7,23,1,0)="This field needs to be cpooied into file 441 (see EN7^PRCHNPO7) when"
^DD(443.61,9.7,23,2,0)="the amendment is moved back into file 442."
^DD(443.61,9.7,"DT")="2950321"
^DD(443.61,10,0)="2237 REFERENCE #^P410'^PRCS(410,^0;10^Q"
^DD(443.61,10,3)=""
^DD(443.61,10,21,0)="^^1^1^2910517^"
^DD(443.61,10,21,1,0)="This is the purchase request reference number."
^DD(443.61,11,0)="QUANTITY PREVIOUSLY RECEIVED^NJ6,0^^2;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(443.61,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(443.61,11,5,1,0)="442.08^1^1"
^DD(443.61,11,21,0)="^^1^1^2910517^"
^DD(443.61,11,21,1,0)="This is the quantity previously received."
^DD(443.61,12,0)="EDI STATUS CODE 1^S^AC:ITEM ACCEPTED AND SHIPPED;AR:ITEM ACCEPTED AND RELEASED FOR SHIPMENT;BP:ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;IB:ITEM BACKORDERED;IH:ITEM ON HOLD;IR:ITEM REJECTED;^2;9^Q"
^DD(443.61,12,21,0)="^^1^1^2941031^"
^DD(443.61,12,21,1,0)="First EDI status code for ITEM"
^DD(443.61,12,"DT")="2940429"
^DD(443.61,12.5,0)="EDI STATUS QTY 1^NJ9,0^^2;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(443.61,12.5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(443.61,12.5,21,0)="^^1^1^2941031^"
^DD(443.61,12.5,21,1,0)="First EDI status quantity of ITEM"
^DD(443.61,12.5,"DT")="2940429"
^DD(443.61,13,0)="EDI STATUS CODE 2^S^AC:ITEM ACCEPTED AND SHIPPED;AR:ITEM ACCEPTED AND RELEASED FOR SHIPMENT;BP:ITEM ACCEPTED, PARTIAL SHIPMENT, BALANCE BACKORDERED;IB:ITEM BACKORDERED;IH:ITEM ON HOLD;IR:ITEM REJECTED;^2;11^Q"
^DD(443.61,13,21,0)="^^1^1^2941031^"
^DD(443.61,13,21,1,0)="Second EDI status code of ITEM"
^DD(443.61,13,"DT")="2940429"
^DD(443.61,13.5,0)="EDI STATUS QTY 2^NJ9,0^^2;12^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(443.61,13.5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(443.61,13.5,21,0)="^^1^1^2941031^"
^DD(443.61,13.5,21,1,0)="Second EDI status quantity of ITEM"
^DD(443.61,13.5,"DT")="2940429"
^DD(443.61,15,0)="TOTAL COST^RNJ9,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999.99)!(X<0) X"
^DD(443.61,15,3)="TYPE A NUMBER BETWEEN 0 AND 999999.99"
^DD(443.61,15,5,1,0)="442.01^2^1"
^DD(443.61,15,5,2,0)="443.61^2^1"
^DD(443.61,15,5,3,0)="443.61^5^1"
^DD(443.61,15,9)="^"
^DD(443.61,15,21,0)="^^1^1^2910517^"
^DD(443.61,15,21,1,0)="This is the total cost of the item requested."
^DD(443.61,16,0)="DISCOUNTED AMOUNT^NJ8,2^^2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(443.61,16,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(443.61,16,21,0)="^^1^1^2910517^"
^DD(443.61,16,21,1,0)="This is the discounted amount for this order."
^DD(443.61,16,"DT")="2910517"
^DD(443.61,17,0)="OBLIGATED SUBACCOUNT^P420.2'^PRCD(420.2,^2;7^Q"
^DD(443.61,17,3)=""
^DD(443.61,17,21,0)="^^1^1^2930204^^"
^DD(443.61,17,21,1,0)="This is the obligated sub-amount."
^DD(443.61,20,0)="DATE RECEIVED^443.64DA^^3;0"
^DD(443.61,20,21,0)="^^1^1^2940426^^"
^DD(443.61,20,21,1,0)="This is the date the item was received."
^DD(443.61,30,0)="SERIAL NO.(GSA/DLA)^NJ4,0^^4;1^K:+X'=X!(X>9999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(443.61,30,3)="Type a Number between 1000 and 9999, 0 Decimal Digits"
^DD(443.61,30,21,0)="^^1^1^2941031^"
^DD(443.61,30,21,1,0)="This is the serial number (GSA/DLA)."
^DD(443.61,30,"DT")="2940228"
^DD(443.61,31,0)="CONSUMER LEVEL^NJ4,0^^4;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(443.61,31,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(443.61,31,21,0)="^^3^3^2941031^"
^DD(443.61,31,21,1,0)="This is the normal stock level of this item that"
^DD(443.61,31,21,2,0)="the service placing the order normally maintains in"
^DD(443.61,31,21,3,0)="their inventory."
^DD(443.61,31,"DT")="2940228"
^DD(443.61,32,0)="CONSUMER LEVEL OVERRIDE^S^1:OVERRIDE LEVEL;A:OVERRIDE LEVEL AND ISSUE MULT.;^4;3^Q"
^DD(443.61,32,21,0)="^^2^2^2941031^"
^DD(443.61,32,21,1,0)="Enter '1' to override the normal stock level for the item."
^DD(443.61,32,21,2,0)="Enter 'A"" to override both the level and the FIS issue multiple."
^DD(443.61,32,"DT")="2940228"
^DD(443.61,33,0)="DO NOT SUB^S^1:DO NOT SUB;^4;4^Q"
^DD(443.61,33,21,0)="^^2^2^2941031^"
^DD(443.61,33,21,1,0)="This is the field to set the do not substitute indicator."
^DD(443.61,33,21,2,0)="If set, no similar item will be substituted if the item is not in stock. "
^DD(443.61,33,"DT")="2940228"
^DD(443.61,34,0)="DO NOT B/O^S^1:DO NOT B/O;^4;5^Q"
^DD(443.61,34,21,0)="^^3^3^2941031^"
^DD(443.61,34,21,1,0)="This is the field to set the do not backorder"
^DD(443.61,34,21,2,0)="indicator.  If set, an item will not be backordered"
^DD(443.61,34,21,3,0)="if it is currently not in stock."
^DD(443.61,34,"DT")="2940228"
^DD(443.61,35,0)="BACKORDER CONTROL^S^-:FOR ESTABLISH BACKORDER;^4;6^Q"
^DD(443.61,35,21,0)="^^1^1^2941031^"
^DD(443.61,35,21,1,0)="Enter '-' to set a backorder source for LOG code sheets."
^DD(443.61,35,"DT")="2940228"
^DD(443.61,36,0)="SUBSTITUTE CONTROL^S^-:NO SUBSTITUTE;^4;7^Q"
^DD(443.61,36,21,0)="^^1^1^2941031^"
^DD(443.61,36,21,1,0)="Enter '-' if substitution is not authorized for LOG code sheets."
^DD(443.61,36,"DT")="2940228"
^DD(443.61,36.3,0)="BACKORDER (EDI)^S^Y:YES;N:NO;^4;15^Q"
^DD(443.61,36.3,1,0)="^.1"
^DD(443.61,36.3,1,1,0)="443.61^AZ^MUMPS"
^DD(443.61,36.3,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXG Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN6^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.61,36.3,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN6^PRCHAMXD"
^DD(443.61,36.3,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,36.3,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,36.3,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,36.3,1,1,"%D",3,0)="                        "
^DD(443.61,36.3,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,36.3,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,36.3,1,1,"DT")="2950321"
^DD(443.61,36.3,21,0)="^^1^1^2941031^"
^DD(443.61,36.3,21,1,0)="Backorder flag set by EDI for ITEM"
^DD(443.61,36.3,"DT")="2950321"
^DD(443.61,36.6,0)="SUBSTITUTE (EDI)^S^Y:YES;N:NO;^4;16^Q"
^DD(443.61,36.6,1,0)="^.1"
^DD(443.61,36.6,1,1,0)="443.61^AAA^MUMPS"
^DD(443.61,36.6,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXG Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN7^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.61,36.6,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN7^PRCHAMXD"
^DD(443.61,36.6,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,36.6,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,36.6,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,36.6,1,1,"%D",3,0)="                 "
^DD(443.61,36.6,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,36.6,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,36.6,1,1,"DT")="2950321"
^DD(443.61,36.6,21,0)="^^2^2^2941031^^"
^DD(443.61,36.6,21,1,0)="User-entered flag to control whether or not vendor is allowed to substitute"
^DD(443.61,36.6,21,2,0)="ITEM."
^DD(443.61,36.6,"DT")="2950321"
^DD(443.61,37,0)="ACQUISITIONS CODE SHEET NO.^P423'^PRCF(423,^4;8^Q"
^DD(443.61,37,21,0)="^^1^1^2941031^"
^DD(443.61,37,21,1,0)="This is the LOG Acquisition code sheet created for this line/item."
^DD(443.61,37,"DT")="2940228"
^DD(443.61,38,0)="GROUP SPLIT CIV^F^^4;9^K:$L(X)>3!($L(X)<1) X"
^DD(443.61,38,3)="Answer must be 1-3 characters in length."
^DD(443.61,38,21,0)="^^2^2^2941031^^"
^DD(443.61,38,21,1,0)="This is a three character code.  All items which share the same code will"
^DD(443.61,38,21,2,0)="print together on a separate CIV."
^DD(443.61,38,"DT")="2940228"
^DD(443.61,39,0)="SOURCE CODE^F^^4;10^K:$L(X)>1!($L(X)<1) X"
^DD(443.61,39,3)="Answer must be 1 character in length."
^DD(443.61,39,21,0)="^^1^1^2941031^"
^DD(443.61,39,21,1,0)="This is the one character source code."
^DD(443.61,39,"DT")="2940228"
^DD(443.61,39.5,0)="SOURCE DEVIATION^*P441.4'^PRCD(441.4,^4;14^S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.61,39.5,12)="Select appropriate source deviation code or leave blank."
^DD(443.61,39.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""""
^DD(443.61,39.5,21,0)="^^1^1^2941031^"
^DD(443.61,39.5,21,1,0)="This is the source deviation code."
^DD(443.61,39.5,"DT")="2940228"
^DD(443.61,40,0)="DRUG TYPE CODE^S^A:NARCOTIC;L:CONTROLLED SUBSTANCE;D:OTHER DRUGS;^4;11^Q"
^DD(443.61,40,1,0)="^.1"
^DD(443.61,40,1,1,0)="443.61^AV^MUMPS"
^DD(443.61,40,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN2^PRCHAMXG Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN2^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.61,40,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN2^PRCHAMXD"
^DD(443.61,40,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,40,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,40,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,40,1,1,"%D",3,0)="                 "
^DD(443.61,40,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,40,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,40,1,1,"DT")="2950321"
^DD(443.61,40,21,0)="^^2^2^2941031^"
^DD(443.61,40,21,1,0)="This is the set of drug type codes (narcotic, controlled substance, or"
^DD(443.61,40,21,2,0)="other) which will appear on the LOG code sheet."
^DD(443.61,40,"DT")="2950321"
^DD(443.61,41,0)="FOOD GROUP^RS^1:Meat, Fish, Poultry, Eggs & Convenience;2:Milk, Milk Products;3:Fruits, Vegetables;4:Bread, Flour, Cereal, etc.;5:Commercial Nutritional Products, Tube feedings & supplements;6:Miscellaneous, Foods;^4;12^Q"
^DD(443.61,41,1,0)="^.1"
^DD(443.61,41,1,1,0)="443.61^AW^MUMPS"
^DD(443.61,41,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN3^PRCHAMXG Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN3^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.61,41,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN3^PRCHAMXD"
^DD(443.61,41,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,41,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,41,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,41,1,1,"%D",3,0)="                 "
^DD(443.61,41,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,41,1,1,"%D",5,0)="incidence of undefined DIK variable errors. "
^DD(443.61,41,1,1,"DT")="2951207"
^DD(443.61,41,21,0)="^^1^1^2941031^"
^DD(443.61,41,21,1,0)="This is the food group which will appear on the LOG code sheet."
^DD(443.61,41,"DT")="2951207"
^DD(443.61,42,0)="DIETETIC CONVERSION FACTOR^F^^4;13^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(443.61,42,1,0)="^.1"
^DD(443.61,42,1,1,0)="443.61^AX^MUMPS"
^DD(443.61,42,1,1,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN4^PRCHAMXG Q:PRCHAMDA=21  D FLAG^PRCHMA Q:$T  I PRCHAMDA=23 S PRCHX=X,X=0 D EN4^PRCHAMXD S X=PRCHX K PRCHX"
^DD(443.61,42,1,1,2)="I $G(PRCHNORE)=1,PRCHAMDA=23 S FLAG=1 D EN4^PRCHAMXD"
^DD(443.61,42,1,1,"%D",0)="^^5^5^2970416^^^^"
^DD(443.61,42,1,1,"%D",1,0)="This x-ref will update the CHANGES multiple whenever a 'Line Item Add' or a"
^DD(443.61,42,1,1,"%D",2,0)="'Line Item Edit' amendment changes this field."
^DD(443.61,42,1,1,"%D",3,0)="                 "
^DD(443.61,42,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.61,42,1,1,"%D",5,0)="incidence of undefined DIK variable errors."
^DD(443.61,42,1,1,"DT")="2950417"
^DD(443.61,42,3)="Answer must be 1-5 characters in length."
^DD(443.61,42,21,0)="^^2^2^2941031^"
^DD(443.61,42,21,1,0)="This is the dietetic conversion factor for subsistence items to be used on"
^DD(443.61,42,21,2,0)="the LOG code sheet."
^DD(443.61,42,"DT")="2950417"
^DD(443.61,43,0)="410 ITEM NUMBER^NJ3,0^^2;13^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.61,43,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(443.61,43,21,0)="^^1^1^2941031^"
^DD(443.61,43,21,1,0)="This is the line item number on the attached 2237."
^DD(443.61,43,"DT")="2940429"
^DD(443.61,"B","2237 REFERENCE #",10)=""
^DD(443.61,"B","410 ITEM NUMBER",43)=""
^DD(443.61,"B","ACQUISITIONS CODE SHEET NO.",37)=""
^DD(443.61,"B","ACTUAL UNIT COST",5)=""
^DD(443.61,"B","BACKORDER (EDI)",36.3)=""
^DD(443.61,"B","BACKORDER CONTROL",35)=""
^DD(443.61,"B","BOC",3.5)=""
^DD(443.61,"B","CONSUMER LEVEL",31)=""
^DD(443.61,"B","CONSUMER LEVEL OVERRIDE",32)=""
^DD(443.61,"B","CONTRACT/BOA #",4)=""
^DD(443.61,"B","COST CENTER",3.2)=""
^DD(443.61,"B","DATE RECEIVED",20)=""
^DD(443.61,"B","DESCRIPT. ASTR.",7)=""
^DD(443.61,"B","DESCRIPTION",1)=""
^DD(443.61,"B","DESCRIPTION LINE COUNT",6)=""
^DD(443.61,"B","DIETETIC CONVERSION FACTOR",42)=""
^DD(443.61,"B","DISCOUNTED AMOUNT",16)=""
^DD(443.61,"B","DO NOT B/O",34)=""
^DD(443.61,"B","DO NOT SUB",33)=""
^DD(443.61,"B","DRUG TYPE CODE",40)=""
^DD(443.61,"B","EDI STATUS CODE 1",12)=""
^DD(443.61,"B","EDI STATUS CODE 2",13)=""
^DD(443.61,"B","EDI STATUS QTY 1",12.5)=""
^DD(443.61,"B","EDI STATUS QTY 2",13.5)=""
^DD(443.61,"B","EST. UNIT COST",5.5)=""
^DD(443.61,"B","FEDERAL SUPPLY CLASSIFICATION",8)=""
^DD(443.61,"B","FOOD GROUP",41)=""
^DD(443.61,"B","FSC/PSC",8)="1"
^DD(443.61,"B","GROUP SPLIT CIV",38)=""
^DD(443.61,"B","INTERMEDIATE PRODUCT CODE",3.6)=""
^DD(443.61,"B","ITEM MASTER FILE NO.",1.5)=""
^DD(443.61,"B","LINE ITEM NUMBER",.01)=""
^DD(443.61,"B","MAXIMUM ORDER QTY",9.6)=""
^DD(443.61,"B","NATIONAL DRUG CODE",9.3)=""
^DD(443.61,"B","NSN",9.5)=""
^DD(443.61,"B","OBLIGATED SUBACCOUNT",17)=""
^DD(443.61,"B","PACKAGING MULTIPLE",3.1)=""
^DD(443.61,"B","QUANTITY",2)=""
^DD(443.61,"B","QUANTITY PREVIOUSLY RECEIVED",11)=""
^DD(443.61,"B","SERIAL NO.(GSA/DLA)",30)=""
^DD(443.61,"B","SKU",9.4)=""
^DD(443.61,"B","SOURCE CODE",39)=""
^DD(443.61,"B","SOURCE DEVIATION",39.5)=""
^DD(443.61,"B","SUBSTITUTE (EDI)",36.6)=""
^DD(443.61,"B","SUBSTITUTE CONTROL",36)=""
^DD(443.61,"B","TOTAL COST",15)=""
^DD(443.61,"B","UNIT CONVERSION FACTOR",9.7)=""
^DD(443.61,"B","UNIT OF PURCHASE",3)=""
^DD(443.61,"B","VENDOR STOCK NUMBER",9)=""
^DD(443.61,"GL",0,1,.01)=""
^DD(443.61,"GL",0,2,2)=""
^DD(443.61,"GL",0,3,3)=""
^DD(443.61,"GL",0,4,3.5)=""
^DD(443.61,"GL",0,5,1.5)=""
^DD(443.61,"GL",0,6,9)=""
^DD(443.61,"GL",0,7,5.5)=""
^DD(443.61,"GL",0,8,3.2)=""
^DD(443.61,"GL",0,9,5)=""
^DD(443.61,"GL",0,10,10)=""
^DD(443.61,"GL",0,11,3.6)=""
^DD(443.61,"GL",0,12,3.1)=""
^DD(443.61,"GL",0,13,9.5)=""
^DD(443.61,"GL",0,14,9.6)=""
^DD(443.61,"GL",0,15,9.3)=""
^DD(443.61,"GL",0,16,9.4)=""
^DD(443.61,"GL",0,17,9.7)=""
^DD(443.61,"GL",1,0,1)=""
^DD(443.61,"GL",2,1,15)=""
^DD(443.61,"GL",2,2,4)=""
^DD(443.61,"GL",2,3,8)=""
^DD(443.61,"GL",2,4,6)=""
^DD(443.61,"GL",2,5,7)=""
^DD(443.61,"GL",2,6,16)=""
^DD(443.61,"GL",2,7,17)=""
^DD(443.61,"GL",2,8,11)=""
^DD(443.61,"GL",2,9,12)=""
^DD(443.61,"GL",2,10,12.5)=""
^DD(443.61,"GL",2,11,13)=""
^DD(443.61,"GL",2,12,13.5)=""
^DD(443.61,"GL",2,13,43)=""
^DD(443.61,"GL",3,0,20)=""
^DD(443.61,"GL",4,1,30)=""
^DD(443.61,"GL",4,2,31)=""
^DD(443.61,"GL",4,3,32)=""
^DD(443.61,"GL",4,4,33)=""
^DD(443.61,"GL",4,5,34)=""
^DD(443.61,"GL",4,6,35)=""
^DD(443.61,"GL",4,7,36)=""
^DD(443.61,"GL",4,8,37)=""
^DD(443.61,"GL",4,9,38)=""
^DD(443.61,"GL",4,10,39)=""
^DD(443.61,"GL",4,11,40)=""
^DD(443.61,"GL",4,12,41)=""
^DD(443.61,"GL",4,13,42)=""
^DD(443.61,"GL",4,14,39.5)=""
^DD(443.61,"GL",4,15,36.3)=""
^DD(443.61,"GL",4,16,36.6)=""
^DD(443.61,"IX",.01)=""
^DD(443.61,"IX",1.5)=""
^DD(443.61,"IX",2)=""
^DD(443.61,"IX",3)=""
^DD(443.61,"IX",3.1)=""
^DD(443.61,"IX",3.2)=""
^DD(443.61,"IX",3.5)=""
^DD(443.61,"IX",4)=""
^DD(443.61,"IX",5)=""
^DD(443.61,"IX",5.5)=""
^DD(443.61,"IX",8)=""
^DD(443.61,"IX",9)=""
^DD(443.61,"IX",9.3)=""
^DD(443.61,"IX",9.4)=""
^DD(443.61,"IX",9.5)=""
^DD(443.61,"IX",9.6)=""
^DD(443.61,"IX",9.7)=""
^DD(443.61,"IX",36.3)=""
^DD(443.61,"IX",36.6)=""
^DD(443.61,"IX",40)=""
^DD(443.61,"IX",41)=""
^DD(443.61,"IX",42)=""
^DD(443.61,"RQ",.01)=""
^DD(443.61,"RQ",2)=""
^DD(443.61,"RQ",3)=""
^DD(443.61,"RQ",3.5)=""
^DD(443.61,"RQ",5)=""
^DD(443.61,"RQ",8)=""
^DD(443.61,"RQ",15)=""
^DD(443.61,"RQ",41)=""
^DD(443.61,"SB",443.64,20)=""
^DD(443.61,"SB",443.65,1)=""
^DD(443.624,0)="ADMINISTRATIVE CERTIFICATIONS SUB-FIELD^^1^2"
^DD(443.624,0,"DT")="2940217"
^DD(443.624,0,"ID","Z1")="W "" """
^DD(443.624,0,"IX","AC",443.624,.01)=""
^DD(443.624,0,"IX","B",443.624,.01)=""
^DD(443.624,0,"NM","ADMINISTRATIVE CERTIFICATIONS")=""
^DD(443.624,0,"UP")="443.6"
^DD(443.624,.01,0)="ADMINISTRATIVE CERTIFICATIONS^M*P442.7^PRC(442.7,^0;1^S DIC(""S"")=""I $P(^(0),U,1)<9999"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.624,.01,1,0)="^.1"
^DD(443.624,.01,1,1,0)="443.624^B"
^DD(443.624,.01,1,1,1)="S ^PRC(443.6,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(443.624,.01,1,1,2)="K ^PRC(443.6,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(443.624,.01,1,2,0)="443.624^AC^MUMPS"
^DD(443.624,.01,1,2,1)="I $G(PRCHNORE)=1 D:PRCHAMDA=27 EN11^PRCHAMXG Q:PRCHAMDA=27  D FLAG^PRCHMA Q:$T  I PRCHAMDA=28 S PRCHX=X,X=0 D EN1^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.624,.01,1,2,2)="I $G(PRCHNORE)=1,PRCHAMDA=28 S FLAG=1 D EN1^PRCHAMXC"
^DD(443.624,.01,1,2,"%D",0)="^^6^6^2970416^^^^"
^DD(443.624,.01,1,2,"%D",1,0)="This x-ref will update the CHANGES multiple whenever an 'ADMINISTRATIVE"
^DD(443.624,.01,1,2,"%D",2,0)="CERTIFICATION Add' or an 'ADMINISTRATIVE CERTIFICATION Delete'"
^DD(443.624,.01,1,2,"%D",3,0)="amendment changes this field."
^DD(443.624,.01,1,2,"%D",4,0)="                      "
^DD(443.624,.01,1,2,"%D",5,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.624,.01,1,2,"%D",6,0)="incidence of undefined DIK variable errors."
^DD(443.624,.01,1,2,"DT")="2950321"
^DD(443.624,.01,4)=""
^DD(443.624,.01,12)="ANSWER MUST BE LESS THAN 9999."
^DD(443.624,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,1)<9999"""
^DD(443.624,.01,21,0)="^^1^1^2940325^^^"
^DD(443.624,.01,21,1,0)="These are the administrative certifications for this purchase order."
^DD(443.624,.01,"DT")="2950321"
^DD(443.624,1,0)="DESCRIPTION LINE COUNT^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.624,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(443.624,1,21,0)="^^1^1^2940217^"
^DD(443.624,1,21,1,0)="This is the number of lines in the description."
^DD(443.624,1,"DT")="2940217"
^DD(443.624,"B","ADMINISTRATIVE CERTIFICATIONS",.01)=""
^DD(443.624,"B","DESCRIPTION LINE COUNT",1)=""
^DD(443.624,"GL",0,1,.01)=""
^DD(443.624,"GL",0,2,1)=""
^DD(443.624,"IX",.01)=""
^DD(443.63,0)="DISCOUNT SUB-FIELD^NL^5^6"
^DD(443.63,0,"ID","Z1")="W ?25,$P(^(0),U,2)"
^DD(443.63,0,"ID","Z2")="W ?35,""LINE ITEM NO.: "",$P(^(0),U,4)"
^DD(443.63,0,"ID","Z3")="W:$P(^(0),U,2)=0 ?60,""**DELETED**"""
^DD(443.63,0,"IX","AC",443.63,.01)=""
^DD(443.63,0,"IX","AD",443.63,1)=""
^DD(443.63,0,"NM","DISCOUNT")=""
^DD(443.63,0,"UP")="443.6"
^DD(443.63,.01,0)="ITEM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<1) X I $D(X) D ^PRCHDIS1"
^DD(443.63,.01,1,0)="^.1"
^DD(443.63,.01,1,1,0)="443.63^AC^MUMPS"
^DD(443.63,.01,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN9^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.63,.01,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN9^PRCHAMXC"
^DD(443.63,.01,1,1,"%D",0)="^^5^5^2980311^^"
^DD(443.63,.01,1,1,"%D",1,0)="This x-ref will update the changes multiple when ITEM DISCOUNT Add/Edit"
^DD(443.63,.01,1,1,"%D",2,0)="amendment changes this field."
^DD(443.63,.01,1,1,"%D",3,0)=" "
^DD(443.63,.01,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.63,.01,1,1,"%D",5,0)="incidence of undefined DIK errors."
^DD(443.63,.01,1,1,"DT")="2970905"
^DD(443.63,.01,3)="Enter the line item numbers as: 1,2,3,4 or 1:4 or enter a 'Q' for a quantity discount"
^DD(443.63,.01,8.5)="^"
^DD(443.63,.01,21,0)="^^1^1^2940622^^^^"
^DD(443.63,.01,21,1,0)="This is the item discount is applied to."
^DD(443.63,.01,"DT")="2970905"
^DD(443.63,1,0)="PERCENT/DOLLAR AMOUNT^RNJ5,2X^^0;2^S X=$TR(X,"","","""") K:$E(X,1)=""$""&(X?.E1"".""3N.N)!($E(X,1)=""$""&(($P(X,""$"",2)<.01)!($P(X,""$"",2)>999999.99))) X Q:'$D(X)  Q:$E(X,1)=""$""  S X=+X K:X>99.99!(X<.10)!(X?.E1"".""3N.N) X"
^DD(443.63,1,1,0)="^.1"
^DD(443.63,1,1,1,0)="443.63^AD^MUMPS"
^DD(443.63,1,1,1,1)="I $G(PRCHNORE)=1 D FLAG^PRCHMA Q:$T  S PRCHX=X,X=0 D EN10^PRCHAMXC S X=PRCHX K PRCHX"
^DD(443.63,1,1,1,2)="I $G(PRCHNORE)=1 S FLAG=1 D EN10^PRCHAMXC"
^DD(443.63,1,1,1,"%D",0)="^^5^5^2970905^"
^DD(443.63,1,1,1,"%D",1,0)="This x-ref will update the changes multiple when ITEM DISCOUNT Add/Edit"
^DD(443.63,1,1,1,"%D",2,0)="amendment changes this field."
^DD(443.63,1,1,1,"%D",3,0)=" "
^DD(443.63,1,1,1,"%D",4,0)="****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and"
^DD(443.63,1,1,1,"%D",5,0)="incidence of undefined DIK errors."
^DD(443.63,1,1,1,"DT")="2970905"
^DD(443.63,1,3)="For percentage, enter a number between .01 and 99.99. For dollar amount, enter a number between $.01 and $999999.99."
^DD(443.63,1,21,0)="^^2^2^2940520^^^^"
^DD(443.63,1,21,1,0)="This is the percent/dollar amount for"
^DD(443.63,1,21,2,0)="this discount."
^DD(443.63,1,"DT")="2970905"
^DD(443.63,2,0)="DISCOUNT AMOUNT^NJ7,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999.99)!(X<1) X"
^DD(443.63,2,1,0)="^.1^^0"
^DD(443.63,2,3)="TYPE A NUMBER BETWEEN 1 AND 9999.99"
^DD(443.63,2,21,0)="^^1^1^2910517^"
^DD(443.63,2,21,1,0)="This is the discount amount."
^DD(443.63,2,"DT")="2931217"
^DD(443.63,3,0)="ITEM COUNT^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.63,3,1,0)="^.1^^0"
^DD(443.63,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(443.63,3,21,0)="^^1^1^2910517^"
^DD(443.63,3,21,1,0)="This is the item count for this discount."
^DD(443.63,3,"DT")="2931217"
^DD(443.63,4,0)="CONTRACT #^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7) X"
^DD(443.63,4,1,0)="^.1^^0"
^DD(443.63,4,3)="ANSWER MUST BE 7-15 CHARACTERS IN LENGTH"
^DD(443.63,4,21,0)="^^2^2^2910517^"
^DD(443.63,4,21,1,0)="This is the contract number for this discount"
^DD(443.63,4,21,2,0)="amount."
^DD(443.63,4,"DT")="2931217"
^DD(443.63,5,0)="LINE ITEM^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.63,5,1,0)="^.1^^0"
^DD(443.63,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(443.63,5,21,0)="^^1^1^2910517^"
^DD(443.63,5,21,1,0)="This is the line item for this discount amount."
^DD(443.63,5,"DT")="2931217"
^DD(443.63,"B","CONTRACT #",4)=""
^DD(443.63,"B","DISCOUNT AMOUNT",2)=""
^DD(443.63,"B","ITEM",.01)=""
^DD(443.63,"B","ITEM COUNT",3)=""
^DD(443.63,"B","LINE ITEM",5)=""
^DD(443.63,"B","PERCENT/DOLLAR AMOUNT",1)=""
^DD(443.63,"GL",0,1,.01)=""
^DD(443.63,"GL",0,2,1)=""
^DD(443.63,"GL",0,3,2)=""
^DD(443.63,"GL",0,4,3)=""
^DD(443.63,"GL",0,5,4)=""
^DD(443.63,"GL",0,6,5)=""
^DD(443.63,"IX",.01)=""
^DD(443.63,"IX",1)=""
^DD(443.63,"RQ",1)=""
^DD(443.64,0)="DATE RECEIVED SUB-FIELD^^6^7"
^DD(443.64,0,"DT")="2940426"
^DD(443.64,0,"NM","DATE RECEIVED")=""
^DD(443.64,0,"UP")="443.61"
^DD(443.64,.01,0)="DATE RECEIVED^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.64,.01,21,0)="^^1^1^2920318^^"
^DD(443.64,.01,21,1,0)="This is the date the item(s) was received."
^DD(443.64,.01,"DT")="2861204"
^DD(443.64,1,0)="QTY BEING RECEIVED^RNJ9,2X^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(443.64,1,3)="Enter the quantity (a number between .01 and 999,999 with up to two decimal places)"
^DD(443.64,1,21,0)="^^1^1^2910517^"
^DD(443.64,1,21,1,0)="This is the quantity of the item being received."
^DD(443.64,1,"DT")="2941007"
^DD(443.64,2,0)="AMOUNT^NJ9,2^^0;3^K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(443.64,2,3)="TYPE A NUMBER BETWEEN 0 AND 999999.99"
^DD(443.64,2,21,0)="^^1^1^2910517^"
^DD(443.64,2,21,1,0)="This is the dollar amount for the item being received."
^DD(443.64,2,"DT")="2861204"
^DD(443.64,3,0)="PARTIAL NUMBER^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.64,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(443.64,3,21,0)="^^1^1^2910517^"
^DD(443.64,3,21,1,0)="This is the number of the partial."
^DD(443.64,3,"DT")="2861204"
^DD(443.64,4,0)="DISCOUNTED AMOUNT^NJ11,3^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(443.64,4,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(443.64,4,21,0)="^^1^1^2910517^"
^DD(443.64,4,21,1,0)="This is the discounted amount."
^DD(443.64,4,"DT")="2861204"
^DD(443.64,5,0)="RECEIVING CODE SHEET NO.^P423'^PRCF(423,^0;6^Q"
^DD(443.64,5,21,0)="^^1^1^2910517^"
^DD(443.64,5,21,1,0)="This is the receiving code sheet number."
^DD(443.64,5,"DT")="2940426"
^DD(443.64,6,0)="ADJUSTED QUANTITY RECIEVED^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(443.64,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(443.64,6,21,0)="^^1^1^2940424^"
^DD(443.64,6,21,1,0)="This is the QUANTITY RECIEVED after adjustment."
^DD(443.64,6,"DT")="2940426"
^DD(443.64,"B","ADJUSTED QUANTITY RECIEVED",6)=""
^DD(443.64,"B","AMOUNT",2)=""
^DD(443.64,"B","DATE RECEIVED",.01)=""
^DD(443.64,"B","DISCOUNTED AMOUNT",4)=""
^DD(443.64,"B","PARTIAL NUMBER",3)=""
^DD(443.64,"B","QTY BEING RECEIVED",1)=""
^DD(443.64,"B","RECEIVING CODE SHEET NO.",5)=""
^DD(443.64,"GL",0,1,.01)=""
^DD(443.64,"GL",0,2,1)=""
^DD(443.64,"GL",0,3,2)=""
^DD(443.64,"GL",0,4,3)=""
^DD(443.64,"GL",0,5,4)=""
^DD(443.64,"GL",0,6,5)=""
^DD(443.64,"GL",0,7,6)=""
^DD(443.64,"RQ",1)=""
^DD(443.65,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(443.65,0,"NM","DESCRIPTION")=""
^DD(443.65,0,"UP")="443.61"
^DD(443.65,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(443.65,.01,21,0)="^^2^2^2930414^"
^DD(443.65,.01,21,1,0)=" "
^DD(443.65,.01,21,2,0)="Description of ITEM in AMENDMENT"
^DD(443.65,"B","DESCRIPTION",.01)=""
^DD(443.65,"GL",0,1,.01)=""
^DD(443.66,0)="PROMPT PAYMENT TERMS SUB-FIELD^NL^3^4"
^DD(443.66,0,"DT")="2940429"
^DD(443.66,0,"ID","Z1")="S PRCDAY=$P(^(0),U,2) W ?30,$S(PRCDAY=+PRCDAY:""DAYS: ""_PRCDAY,1:""BY THE ""_PRCDAY)"
^DD(443.66,0,"NM","PROMPT PAYMENT TERMS")=""
^DD(443.66,0,"UP")="443.6"
^DD(443.66,.01,0)="PROMPT PAYMENT PERCENT^RFX^^0;1^K:+X'=X&(X'=""NET"") X I $D(X),+X=X K:X?.E1"".""3N.N!(X<.01)!(X>99) X"
^DD(443.66,.01,1,0)="^.1^^0"
^DD(443.66,.01,3)="Enter 'NET' or a number from .01 to 99 with up to two decimal places (ie 2 for two percent)"
^DD(443.66,.01,21,0)="^^1^1^2910517^"
^DD(443.66,.01,21,1,0)="This is the prompt payment percent."
^DD(443.66,.01,"DT")="2940428"
^DD(443.66,1,0)="DAYS (TERM)^NJ2,0X^^0;2^K:X>60!(X<1)!(X?.E1"".""1N.N) X I $D(X),+X'=X K:X'?.N2A X Q:'$D(X)  S Z0=$E(X,$L(X)-1,$L(X)),X=$E(X,1,$L(X)-2)_$S(""STst""[Z0:""st"",""NDnd""[Z0:""nd"",""RDrd""[Z0:""rd"",""THth""[Z0:""th"",1:""ZZZZZ"") K:$L(X)>4 X"
^DD(443.66,1,1,0)="^.1^^0"
^DD(443.66,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 60, YOU MAY FOLLOW THE NUMBER BY ""st"",""nd"",""rd"", OR ""th"" TO INDICATE A DATE"
^DD(443.66,1,21,0)="^^1^1^2910517^"
^DD(443.66,1,21,1,0)="This is the number of days for prompt payment."
^DD(443.66,1,"DT")="2940428"
^DD(443.66,2,0)="CONTRACT #^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) Q:X=""ALL""  K:$L(X)>15!($L(X)<3)!('$D(^PRC(443.6,DA(1),2,""AC"",X))) X I $D(X) D TERM^PRCHDIS"
^DD(443.66,2,1,0)="^.1^^0"
^DD(443.66,2,3)="ENTER AN EXISTING CONTRACT"
^DD(443.66,2,4)="W ""CHOOSE FROM: "" S Z0=0 F I=0:0 S Z0=$O(^PRC(443.6,D0,2,""AC"",Z0)) Q:Z0<0!(Z0="""")  W !,""        "",Z0"
^DD(443.66,2,21,0)="^^2^2^2950115^^"
^DD(443.66,2,21,1,0)="This is the contract number for this prompt payment"
^DD(443.66,2,21,2,0)="terms agreement."
^DD(443.66,2,"DT")="2940329"
^DD(443.66,3,0)="ASTR.^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(443.66,3,1,0)="^.1^^0"
^DD(443.66,3,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(443.66,3,21,0)="^^2^2^2910517^"
^DD(443.66,3,21,1,0)="This field contains internal program code that controls"
^DD(443.66,3,21,2,0)="printed output."
^DD(443.66,3,"DT")="2940329"
^DD(443.66,"B","ASTR.",3)=""
^DD(443.66,"B","CONTRACT #",2)=""
^DD(443.66,"B","DAYS (TERM)",1)=""
^DD(443.66,"B","PROMPT PAYMENT PERCENT",.01)=""
^DD(443.66,"GL",0,1,.01)=""
^DD(443.66,"GL",0,2,1)=""
^DD(443.66,"GL",0,3,2)=""
^DD(443.66,"GL",0,4,3)=""
^DD(443.66,"RQ",.01)=""
^DD(443.67,0)="AMENDMENT SUB-FIELD^NL^16^23"
^DD(443.67,0,"DT")="2940706"
^DD(443.67,0,"IX","B",443.67,.01)=""
^DD(443.67,0,"NM","AMENDMENT")=""
^DD(443.67,0,"UP")="443.6"
^DD(443.67,.01,0)="AMENDMENT^NJ2,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(443.67,.01,1,0)="^.1"
^DD(443.67,.01,1,1,0)="443.67^B"
^DD(443.67,.01,1,1,1)="S ^PRC(443.6,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(443.67,.01,1,1,2)="K ^PRC(443.6,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(443.67,.01,1,2,0)="^^TRIGGER^443.67^15"
^DD(443.67,.01,1,2,1)="X ^DD(443.67,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,6,D1,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(443.67,.01,1,2,1.1) X ^DD(443.67,.01,1,2,1.4)"
^DD(443.67,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) S X=X,X1=X,X2=+7,X="""" D C^%DTC:X1"
^DD(443.67,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^PRC(443.6,D0,6,D1,0)):^(0),1:"""") S X=$P(Y(1),U,12)="""""
^DD(443.67,.01,1,2,1.4)="S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=443.67,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.67,.01,1,2,2)="Q"
^DD(443.67,.01,1,2,"%D",0)="^^5^5^2940329^"
^DD(443.67,.01,1,2,"%D",1,0)="This TRIGGERED x-ref will enter the date and time that this amendment"
^DD(443.67,.01,1,2,"%D",2,0)="should disappear.  The person entering this amendment has 7 days to"
^DD(443.67,.01,1,2,"%D",3,0)="finish and sign off this amendment.  If this amendment is not signed"
^DD(443.67,.01,1,2,"%D",4,0)="off within 7 days this 'potential' amendment will be removed as though"
^DD(443.67,.01,1,2,"%D",5,0)="it was never entered."
^DD(443.67,.01,1,2,"CREATE CONDITION")="DELETION DATE="""""
^DD(443.67,.01,1,2,"CREATE VALUE")="NOW+7"
^DD(443.67,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(443.67,.01,1,2,"DT")="2940329"
^DD(443.67,.01,1,2,"FIELD")="DELETION DATE"
^DD(443.67,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(443.67,.01,21,0)="^^1^1^2910517^"
^DD(443.67,.01,21,1,0)="This is the amendment number."
^DD(443.67,.01,"DT")="2940329"
^DD(443.67,1,0)="EFFECTIVE DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.67,1,21,0)="^^1^1^2920318^^"
^DD(443.67,1,21,1,0)="This is the effective date of the amendment."
^DD(443.67,2,0)="AMOUNT CHANGED^NJ10,2^^0;3^K:+X'=X!(X>9999999.99)!(X<-9999999.99)!(X?.E1"".""3N.N) X"
^DD(443.67,2,3)="TYPE A NUMBER BETWEEN -9999999.99 AND 9999999.99"
^DD(443.67,2,21,0)="^^1^1^2931230^^"
^DD(443.67,2,21,1,0)="This is the amount changed."
^DD(443.67,3,0)="AUTHORITY^R*P442.2'X^PRCD(442.2,^0;4^S DIC(""S"")=$S('$D(PRCHREQ):""I Y<10"",1:""I Y>10,Y<20"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.67,3,3)="This is the AUTHORITY type."
^DD(443.67,3,12)="CHOOSE A,B,C,D OR E"
^DD(443.67,3,12.1)="S DIC(""S"")=$S('$D(PRCHREQ):""I Y<10"",1:""I Y>10,Y<20"")"
^DD(443.67,3,21,0)="^^1^1^2960926^^^^"
^DD(443.67,3,21,1,0)="This is the AUTHORITY type."
^DD(443.67,3,"DT")="2940706"
^DD(443.67,4,0)="TYPE COMMENTS^F^^0;7^K:$L(X)>150!($L(X)<3) X"
^DD(443.67,4,3)="ANSWER MUST BE 3-150 CHARACTERS IN LENGTH"
^DD(443.67,4,21,0)="^^1^1^2910517^"
^DD(443.67,4,21,1,0)="These are comments about the type amendment."
^DD(443.67,4,"DT")="2860109"
^DD(443.67,5,0)="CONTRACTOR REQUIRED TO SIGN?^S^Y:YES;N:NO;^0;5^Q"
^DD(443.67,5,21,0)="^^1^1^2910517^"
^DD(443.67,5,21,1,0)="YES indicates if the contractor is required to sign."
^DD(443.67,5,"DT")="2860102"
^DD(443.67,5.2,0)="NUMBER OF COPIES^NJ1,0^^0;6^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.67,5.2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(443.67,5.2,21,0)="^^1^1^2910517^"
^DD(443.67,5.2,21,1,0)="This indicates the number of copies required."
^DD(443.67,6,0)="PA/PPM/AUTHORIZED BUYER^R*P200'X^VA(200,^1;1^S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHREQ)  I $P(^(400),U,1)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.67,6,12)="Must be a PPM Official or Manager for Requisitions, a Purchasing Agent or Manager for P.O.s."
^DD(443.67,6,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U,1)>1 Q:$D(PRCHREQ)  I $P(^(400),U,1)>2"""
^DD(443.67,6,21,0)="^^1^1^2910517^"
^DD(443.67,6,21,1,0)="This is the purchasing agent for this amendment."
^DD(443.67,6,"DT")="2960611"
^DD(443.67,7,0)="VALIDATION CODE^RFIO^^1;2^K:$L(X)>30!($L(X)<2) X"
^DD(443.67,7,2)="S Y(0)=Y S Y=""/ES/""_$$DECODE^PRCHES10(D0,D1)"
^DD(443.67,7,2.1)="S Y=""/ES/""_$$DECODE^PRCHES10(D0,D1)"
^DD(443.67,7,3)="Answer must be 2-30 characters in length."
^DD(443.67,7,21,0)="^^2^2^2910517^"
^DD(443.67,7,21,1,0)="This is the electronic signature of the purchasing"
^DD(443.67,7,21,2,0)="agent."
^DD(443.67,7,"DT")="2930119"
^DD(443.67,7.5,0)="VALIDATION VERSION^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.67,7.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(443.67,7.5,21,0)="^^2^2^2930414^"
^DD(443.67,7.5,21,1,0)=" "
^DD(443.67,7.5,21,2,0)="Version of validation of ESIG"
^DD(443.67,7.5,"DT")="2921218"
^DD(443.67,7.7,0)="ESIG CODE^F^^0;10^K:$L(X)>10!($L(X)<2) X"
^DD(443.67,7.7,3)="Answer must be 2-10 characters in length."
^DD(443.67,7.7,21,0)="^^3^3^2930414^"
^DD(443.67,7.7,21,1,0)=" "
^DD(443.67,7.7,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(443.67,7.7,21,3,0)="integrity of this record."
^DD(443.67,7.7,"DT")="2930412"
^DD(443.67,8,0)="DATE SIGNED^D^^1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.67,8,21,0)="^^1^1^2910517^"
^DD(443.67,8,21,1,0)="This is the date the amendment was signed."
^DD(443.67,8,"DT")="2860109"
^DD(443.67,9,0)="AMENDMENT/ADJUSTMENT STATUS^*P442.3'X^PRCD(442.3,^1;4^D STAT^PRCHINQ"
^DD(443.67,9,1,0)="^.1"
^DD(443.67,9,1,1,0)="443.6^D^MUMPS"
^DD(443.67,9,1,1,1)="S ^PRC(443.6,""D"",DA(1),X,DA)="""""
^DD(443.67,9,1,1,2)="K ^PRC(443.6,""D"",DA(1),X,DA)"
^DD(443.67,9,1,1,"%D",0)="^^1^1^2950303^"
^DD(443.67,9,1,1,"%D",1,0)="Thjis x-ref allows looking up on the AMENDMENT/ADJUSTMENT STATUS."
^DD(443.67,9,1,1,"DT")="2940330"
^DD(443.67,9,12)="Enter the status the purchase will have after it is amended."
^DD(443.67,9,12.1)="S DIC(""S"")=""D STAT1^PRCHINQ"""
^DD(443.67,9,21,0)="^^2^2^2960611^^^^"
^DD(443.67,9,21,1,0)="This is a pointer to the Purchase Order Status File (442.3)."
^DD(443.67,9,21,2,0)="It indicates the status of the amendment/adjustment."
^DD(443.67,9,"DT")="2960602"
^DD(443.67,10,0)="FISCAL APPROVED BY^P200'^VA(200,^1;5^Q"
^DD(443.67,10,21,0)="^^1^1^2920318^^"
^DD(443.67,10,21,1,0)="This is the official giving fiscal approval."
^DD(443.67,10,"DT")="2930121"
^DD(443.67,11,0)="FISCAL VALIDATION CODE^F^^1;6^K:$L(X)>30!($L(X)<3) X"
^DD(443.67,11,3)="Answer must be 3-30 characters in length."
^DD(443.67,11,21,0)="^^2^2^2930414^"
^DD(443.67,11,21,1,0)=" "
^DD(443.67,11,21,2,0)="The code for validating the ESIG"
^DD(443.67,11,"DT")="2930112"
^DD(443.67,11.5,0)="FISCAL VALIDATION VERSION^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.67,11.5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(443.67,11.5,21,0)="^^2^2^2930414^"
^DD(443.67,11.5,21,1,0)=" "
^DD(443.67,11.5,21,2,0)="Version of validation of ESIG"
^DD(443.67,11.5,"DT")="2930112"
^DD(443.67,11.7,0)="FISCAL ESIG CODE^F^^1;7^K:$L(X)>10!($L(X)<3) X"
^DD(443.67,11.7,3)="Answer must be 3-10 characters in length."
^DD(443.67,11.7,21,0)="^^3^3^2930414^"
^DD(443.67,11.7,21,1,0)=" "
^DD(443.67,11.7,21,2,0)="Encoded value used by IFCAP security utilities when confirming the"
^DD(443.67,11.7,21,3,0)="integrity of this record."
^DD(443.67,11.7,"DT")="2930412"
^DD(443.67,11.8,0)="FISCAL VALIDATION DATE^D^^1;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.67,11.8,21,0)="^^2^2^2930414^"
^DD(443.67,11.8,21,1,0)=" "
^DD(443.67,11.8,21,2,0)="Date/time of validation of ESIG"
^DD(443.67,11.8,"DT")="2930112"
^DD(443.67,12,0)="DESCRIPTION^443.701^^2;0"
^DD(443.67,12,21,0)="^^1^1^2910517^"
^DD(443.67,12,21,1,0)="This is the description of the amendment."
^DD(443.67,13,0)="ADJUSTMENT VOUCHER^S^Y:YES;^0;8^Q"
^DD(443.67,13,21,0)="^^1^1^2910517^"
^DD(443.67,13,21,1,0)="This is the adjustment voucher."
^DD(443.67,13,"DT")="2861205"
^DD(443.67,14,0)="CHANGES^443.6714A^^3;0"
^DD(443.67,14,21,0)="^^2^2^2940329^^^^"
^DD(443.67,14,21,1,0)="Each entry in this multiple will contain all the information about one"
^DD(443.67,14,21,2,0)="field that the user is amending."
^DD(443.67,14,23,0)="^^11^11^2940701^^^^"
^DD(443.67,14,23,1,0)="Each change entered from an amendment edit will create an entry in this"
^DD(443.67,14,23,2,0)="multiple."
^DD(443.67,14,23,3,0)="  "
^DD(443.67,14,23,4,0)="The way an entry is captured may be by using the 'KILL' part of a"
^DD(443.67,14,23,5,0)="cross-reference or by having the routine that does the amendment also"
^DD(443.67,14,23,6,0)="enter the proper value into the changes multiple."
^DD(443.67,14,23,7,0)="  "
^DD(443.67,14,23,8,0)="This changes multiple will store the value of the field being changed"
^DD(443.67,14,23,9,0)="only if this is the first entry for this field within this amendment."
^DD(443.67,14,23,10,0)="If this field hasn't been used before, its value is 'null', the value"
^DD(443.67,14,23,11,0)="stored in the changes record will be '0'."
^DD(443.67,14,"DT")="2931216"
^DD(443.67,15,0)="DELETION DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.67,15,5,1,0)="443.67^.01^2"
^DD(443.67,15,9)="^"
^DD(443.67,15,21,0)="^^5^5^2960610^^^^"
^DD(443.67,15,21,1,0)="This is the time when the amendment will be deleted if there is no action"
^DD(443.67,15,21,2,0)="for 4 days. The PA assigned to this amendment has 4 days from this time to"
^DD(443.67,15,21,3,0)="complete and sign off this amendment.  If this amendment isn't signed off"
^DD(443.67,15,21,4,0)="within the 4 day window, this record of the user's amendment will be"
^DD(443.67,15,21,5,0)="deleted from file 443.6 and no changes will be made into file 442."
^DD(443.67,15,"DT")="2960610"
^DD(443.67,16,0)="JUSTIFICATION^RF^^4;1^K:$L(X)>240!($L(X)<1) X"
^DD(443.67,16,3)="Answer must be 1-240 characters in length."
^DD(443.67,16,21,0)="^^2^2^2941128^^^"
^DD(443.67,16,21,1,0)="The reason for amending the purchase order."
^DD(443.67,16,21,2,0)="Answer must be 1-240 characters in length."
^DD(443.67,16,"DT")="2940308"
^DD(443.67,"B","ADJUSTMENT VOUCHER",13)=""
^DD(443.67,"B","AMENDMENT",.01)=""
^DD(443.67,"B","AMENDMENT/ADJUSTMENT STATUS",9)=""
^DD(443.67,"B","AMOUNT CHANGED",2)=""
^DD(443.67,"B","AUTHORITY",3)=""
^DD(443.67,"B","CHANGES",14)=""
^DD(443.67,"B","CONTRACTOR REQUIRED TO SIGN?",5)=""
^DD(443.67,"B","DATE SIGNED",8)=""
^DD(443.67,"B","DELETION DATE",15)=""
^DD(443.67,"B","DESCRIPTION",12)=""
^DD(443.67,"B","EFFECTIVE DATE",1)=""
^DD(443.67,"B","ESIG CODE",7.7)=""
^DD(443.67,"B","FISCAL APPROVED BY",10)=""
^DD(443.67,"B","FISCAL ESIG CODE",11.7)=""
^DD(443.67,"B","FISCAL VALIDATION CODE",11)=""
^DD(443.67,"B","FISCAL VALIDATION DATE",11.8)=""
^DD(443.67,"B","FISCAL VALIDATION VERSION",11.5)=""
^DD(443.67,"B","JUSTIFICATION",16)=""
^DD(443.67,"B","NUMBER OF COPIES",5.2)=""
^DD(443.67,"B","PA/PPM/AUTHORIZED BUYER",6)=""
^DD(443.67,"B","TYPE COMMENTS",4)=""
^DD(443.67,"B","VALIDATION CODE",7)=""
^DD(443.67,"B","VALIDATION VERSION",7.5)=""
^DD(443.67,"GL",0,1,.01)=""
^DD(443.67,"GL",0,2,1)=""
^DD(443.67,"GL",0,3,2)=""
^DD(443.67,"GL",0,4,3)=""
^DD(443.67,"GL",0,5,5)=""
^DD(443.67,"GL",0,6,5.2)=""
^DD(443.67,"GL",0,7,4)=""
^DD(443.67,"GL",0,8,13)=""
^DD(443.67,"GL",0,9,7.5)=""
^DD(443.67,"GL",0,10,7.7)=""
^DD(443.67,"GL",0,11,11.5)=""
^DD(443.67,"GL",0,12,15)=""
^DD(443.67,"GL",1,1,6)=""
^DD(443.67,"GL",1,2,7)=""
^DD(443.67,"GL",1,3,8)=""
^DD(443.67,"GL",1,4,9)=""
^DD(443.67,"GL",1,5,10)=""
^DD(443.67,"GL",1,6,11)=""
^DD(443.67,"GL",1,7,11.7)=""
^DD(443.67,"GL",1,8,11.8)=""
^DD(443.67,"GL",2,0,12)=""
^DD(443.67,"GL",3,0,14)=""
^DD(443.67,"GL",4,1,16)=""
^DD(443.67,"IX",.01)=""
^DD(443.67,"IX",9)=""
^DD(443.67,"RQ",3)=""
^DD(443.67,"RQ",6)=""
^DD(443.67,"RQ",7)=""
^DD(443.67,"RQ",16)=""
^DD(443.67,"SB",443.6714,14)=""
^DD(443.67,"SB",443.701,12)=""
^DD(443.6714,0)="CHANGES SUB-FIELD^^7^8"
^DD(443.6714,0,"DT")="2940330"
^DD(443.6714,0,"IX","AC",443.6714,1)=""
^DD(443.6714,0,"IX","AD",443.6714,7)=""
^DD(443.6714,0,"IX","AE",443.6714,2)=""
^DD(443.6714,0,"IX","B",443.6714,.01)=""
^DD(443.6714,0,"NM","CHANGES")=""
^DD(443.6714,0,"UP")="443.67"
^DD(443.6714,.01,0)="CHANGE NUMBER^NJ8,0^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.6714,.01,1,0)="^.1"
^DD(443.6714,.01,1,1,0)="443.6714^B"
^DD(443.6714,.01,1,1,1)="S ^PRC(443.6,DA(2),6,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(443.6714,.01,1,1,2)="K ^PRC(443.6,DA(2),6,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(443.6714,.01,1,2,0)="^^TRIGGER^443.6714^5"
^DD(443.6714,.01,1,2,1)="X ^DD(443.6714,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRC(443.6,D0,6,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(443.6714,.01,1,2,1.1) X ^DD(443.6714,.01,1,2,1.4)"
^DD(443.6714,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(443.6714,.01,1,2,1.3)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(0)=X S Y(1)=$S($D(^PRC(443.6,D0,6,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""""
^DD(443.6714,.01,1,2,1.4)="S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=443.6714,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.6714,.01,1,2,2)="Q"
^DD(443.6714,.01,1,2,"%D",0)="^^2^2^2931230^^"
^DD(443.6714,.01,1,2,"%D",1,0)="This TRIGGER x-ref will enter when this CHANGE was added to this"
^DD(443.6714,.01,1,2,"%D",2,0)="amendment."
^DD(443.6714,.01,1,2,"CREATE CONDITION")="DATE & TIME ENTERED="""""
^DD(443.6714,.01,1,2,"CREATE VALUE")="NOW"
^DD(443.6714,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(443.6714,.01,1,2,"DT")="2931216"
^DD(443.6714,.01,1,2,"FIELD")="DATE & TIME ENTERED"
^DD(443.6714,.01,1,3,0)="^^TRIGGER^443.6714^6"
^DD(443.6714,.01,1,3,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^PRC(443.6,D0,6,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(443.6714,.01,1,3,1.4)"
^DD(443.6714,.01,1,3,1.4)="S DIH=$S($D(^PRC(443.6,DIV(0),6,DIV(1),3,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=443.6714,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.6714,.01,1,3,2)="Q"
^DD(443.6714,.01,1,3,"%D",0)="^^2^2^2931230^^"
^DD(443.6714,.01,1,3,"%D",1,0)="The person editing the field listed in this CHANGES record will be recorded"
^DD(443.6714,.01,1,3,"%D",2,0)="in the USER field."
^DD(443.6714,.01,1,3,"CREATE VALUE")="DUZ"
^DD(443.6714,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(443.6714,.01,1,3,"DT")="2931216"
^DD(443.6714,.01,1,3,"FIELD")="USER"
^DD(443.6714,.01,3)="Enter the next sequential number."
^DD(443.6714,.01,21,0)="^^2^2^2931216^^"
^DD(443.6714,.01,21,1,0)="This number represents the order that each field within this amendment"
^DD(443.6714,.01,21,2,0)="was changed."
^DD(443.6714,.01,23,0)="^^7^7^2940701^^^"
^DD(443.6714,.01,23,1,0)="This number is just the next value from the third '^' piece of the"
^DD(443.6714,.01,23,2,0)="zero node of this subfile (443.6714)."
^DD(443.6714,.01,23,3,0)="Once a new record is added the user won't be able to change it or"
^DD(443.6714,.01,23,4,0)="delete it.  If this field has been entered already for this amendment"
^DD(443.6714,.01,23,5,0)="it will not be added again.  Only the original value of the field,"
^DD(443.6714,.01,23,6,0)="the value just before this amendment was entered, is needed.  All"
^DD(443.6714,.01,23,7,0)="additional changes to the field's value are immaterial."
^DD(443.6714,.01,"DT")="2931216"
^DD(443.6714,1,0)="AMENDMENT TYPE^NJ2,0^^0;2^K:+X'=X!(X>19)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.6714,1,1,0)="^.1"
^DD(443.6714,1,1,1,0)="443.6714^AC^MUMPS"
^DD(443.6714,1,1,1,1)="S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)=""""  S ^PRC(443.6,DA(2),6,DA(1),3,""AC"",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),"";""),DA)="""" K PRCHAA"
^DD(443.6714,1,1,1,2)="S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)=""""  K ^PRC(443.6,DA(2),6,DA(1),3,""AC"",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),"";""),DA),PRCHAA"
^DD(443.6714,1,1,1,"%D",0)="^^5^5^2950303^"
^DD(443.6714,1,1,1,"%D",1,0)="This x-ref will prevent multiple copies of an AMENDMENT TYPE from being"
^DD(443.6714,1,1,1,"%D",2,0)="entered into the 'CHANGES' multiple for the same amendment.  The FIELD"
^DD(443.6714,1,1,1,"%D",3,0)="& FILE field is included to allow conditions like different ITEM entries"
^DD(443.6714,1,1,1,"%D",4,0)="from being excluded or from different fields within the same AMENDMENT"
^DD(443.6714,1,1,1,"%D",5,0)="TYPE, allowing various fields to be entered/edited, from being left out."
^DD(443.6714,1,1,1,"DT")="2940502"
^DD(443.6714,1,3)="Enter the number for the amendment edit choosen."
^DD(443.6714,1,21,0)="^^1^1^2940103^^^^"
^DD(443.6714,1,21,1,0)="This is the numeric value for the kind of amendment the user requested."
^DD(443.6714,1,23,0)="^^3^3^2940701^^^^"
^DD(443.6714,1,23,1,0)="This number is a pointer to file 442.2 or file 441.6. This number is"
^DD(443.6714,1,23,2,0)="found in the variable PRCHAMDA and is the internal entry number for the"
^DD(443.6714,1,23,3,0)="amendment action the user is performing."
^DD(443.6714,1,"DT")="2940502"
^DD(443.6714,2,0)="FIELD & FILE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1)!'(X?.E1"";"".N) X"
^DD(443.6714,2,1,0)="^.1"
^DD(443.6714,2,1,1,0)="443.6714^AE^MUMPS"
^DD(443.6714,2,1,1,1)="S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)=""""  S ^PRC(443.6,DA(2),6,DA(1),3,""AC"",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),"";""),DA)="""" K PRCHAA"
^DD(443.6714,2,1,1,2)="S PRCHAA=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) Q:$P(PRCHAA,U,3)=""""  K ^PRC(443.6,DA(2),6,DA(1),3,""AC"",$P(PRCHAA,U,2),$P($P(PRCHAA,U,3),"";""),DA),PRCHAA"
^DD(443.6714,2,1,1,"%D",0)="^^5^5^2950303^"
^DD(443.6714,2,1,1,"%D",1,0)="This x-ref will prevent multiple copies of an AMENDMENT TYPE from being"
^DD(443.6714,2,1,1,"%D",2,0)="entered into the 'CHANGES' multiple for the same amendment.  The FIELD"
^DD(443.6714,2,1,1,"%D",3,0)="& FILE field is included to allow conditions like different ITEM entries"
^DD(443.6714,2,1,1,"%D",4,0)="from being excluded or from different fields within the same AMENDMENT"
^DD(443.6714,2,1,1,"%D",5,0)="TYPE, allowing various fields to be entered/edited, from being left out."
^DD(443.6714,2,1,1,"DT")="2940502"
^DD(443.6714,2,3)="Enter the FIELD;FILE:UPPER FIELD values for the field being edited."
^DD(443.6714,2,21,0)="^^7^7^2940329^^^^"
^DD(443.6714,2,21,1,0)="In this field will be the field number follwed by a ';' then by the"
^DD(443.6714,2,21,2,0)="file number of the changed entry then separated with a : is the"
^DD(443.6714,2,21,3,0)="field number of the next level up that created this multiple."
^DD(443.6714,2,21,4,0)="If the field is located in a subfile then the file number will become"
^DD(443.6714,2,21,5,0)="the subfile number.  For example, if the BOC field in the ITEM"
^DD(443.6714,2,21,6,0)="multiple in the AMENDMENTS file - this file - is changed the data entered"
^DD(443.6714,2,21,7,0)="in this field will be '3.5;443.61:40'."
^DD(443.6714,2,23,0)="^^2^2^2940701^^^^"
^DD(443.6714,2,23,1,0)="The information found here will allow DIQ1 to get the new value of the"
^DD(443.6714,2,23,2,0)="changed field."
^DD(443.6714,2,"DT")="2940502"
^DD(443.6714,3,0)="OLD DATA VALUE^443.67143^^1;0"
^DD(443.6714,3,21,0)="^^2^2^2940314^^^"
^DD(443.6714,3,21,1,0)="This is the orginal value of the field found in the FIELD & FILE entry"
^DD(443.6714,3,21,2,0)="within this CHANGES subrecord."
^DD(443.6714,4,0)="SUBRECORD ENTRY^F^^0;4^K:$L(X)>100!($L(X)<1) X"
^DD(443.6714,4,3)="Enter each subrecord entry value seperated by ';'.  The subrecord value will be D1 or D2 etc."
^DD(443.6714,4,21,0)="^^8^8^2931230^"
^DD(443.6714,4,21,1,0)="Even though an entry is made into the FIELD & FILE field, to find the"
^DD(443.6714,4,21,2,0)="correct entry in any subfiles any subfile internal entry numbers needs"
^DD(443.6714,4,21,3,0)="to be entered in this field.  Since all CHANGES refer to this record"
^DD(443.6714,4,21,4,0)="there is no need to enter D0.  For the example listed in the FIELD &"
^DD(443.6714,4,21,5,0)="FILE field only the internal number of the LINE ITEM NUMBER that the"
^DD(443.6714,4,21,6,0)="SUBACCOUNT belongs to needs to be entered here.  The SUBACCOUNT field"
^DD(443.6714,4,21,7,0)="is only one level deep so there will be only one internal subrecord"
^DD(443.6714,4,21,8,0)="number needed."
^DD(443.6714,4,"DT")="2931216"
^DD(443.6714,5,0)="DATE & TIME ENTERED^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.6714,5,5,1,0)="443.6714^.01^2"
^DD(443.6714,5,21,0)="^^2^2^2931230^"
^DD(443.6714,5,21,1,0)="This will be the date and time the user changed the entry listed"
^DD(443.6714,5,21,2,0)="in the FIELD & FILE and SUBRECORD ENTRY fields."
^DD(443.6714,5,23,0)="^^2^2^2940701^^"
^DD(443.6714,5,23,1,0)="This field is triggered when the CHANGE NUMBER field is entered."
^DD(443.6714,5,23,2,0)="This field will have the current date and time entered."
^DD(443.6714,5,"DT")="2931216"
^DD(443.6714,6,0)="USER^P200'^VA(200,^0;6^Q"
^DD(443.6714,6,3)="Enter the person who is editing the field being added to this CHANGES record."
^DD(443.6714,6,5,1,0)="443.6714^.01^3"
^DD(443.6714,6,21,0)="^^1^1^2931230^"
^DD(443.6714,6,21,1,0)="This field will point to VA(200, showing the user who made this change."
^DD(443.6714,6,23,0)="^^2^2^2940701^"
^DD(443.6714,6,23,1,0)="This field is triggered when the CHANGE NUMBER field is entered."
^DD(443.6714,6,23,2,0)="The value entered for this field comes from DUZ."
^DD(443.6714,6,"DT")="2931216"
^DD(443.6714,7,0)="OTHER FILE NUMBER^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(443.6714,7,1,0)="^.1"
^DD(443.6714,7,1,1,0)="443.6^C^MUMPS"
^DD(443.6714,7,1,1,1)="S CHNO=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)),^PRC(443.6,""C"",DA(2),DA(1),$P(CHNO,U,3),$P(CHNO,U,4),$P(CHNO,U,7),DA)="""" K CHNO"
^DD(443.6714,7,1,1,2)="S CHNO=$G(^PRC(443.6,DA(2),6,DA(1),3,DA,0)) K ^PRC(443.6,""C"",DA(2),DA(1),$P(CHNO,U,3),$P(CHNO,U,4),$P(CHNO,U,7),DA),CHNO"
^DD(443.6714,7,1,1,"%D",0)="^^5^5^2950303^"
^DD(443.6714,7,1,1,"%D",1,0)="This x-ref allows rapid look-up of the OTHER FILE NUMBER (file 441.7)"
^DD(443.6714,7,1,1,"%D",2,0)="that belongs to a specific FILE & FIELD multiple for a SUBRECORD ENTRY."
^DD(443.6714,7,1,1,"%D",3,0)="For example, in the ITEM multiple entry 3 has some DELIVERY SCHEDULEs"
^DD(443.6714,7,1,1,"%D",4,0)="associated with it.  This x-ref will point to each entry in file 441.7"
^DD(443.6714,7,1,1,"%D",5,0)="that holds that DELIVERY SCHEDULE information."
^DD(443.6714,7,1,1,"DT")="2940321"
^DD(443.6714,7,1,2,0)="443.6714^AD^MUMPS"
^DD(443.6714,7,1,2,1)="I X>0 S ^PRC(443.6,DA(2),6,DA(1),3,""AD"",X,DA)="""""
^DD(443.6714,7,1,2,2)="I X>0 K ^PRC(443.6,DA(2),6,DA(1),3,""AD"",X,DA)"
^DD(443.6714,7,1,2,"DT")="2940423"
^DD(443.6714,7,3)=""
^DD(443.6714,7,21,0)="^^2^2^2940412^^"
^DD(443.6714,7,21,1,0)="This field contains the internal record number for file 441.7, the copy"
^DD(443.6714,7,21,2,0)="of the DELIVERY SCHEDULE (ORDER) file."
^DD(443.6714,7,"DT")="2940423"
^DD(443.6714,"B","AMENDMENT TYPE",1)=""
^DD(443.6714,"B","CHANGE NUMBER",.01)=""
^DD(443.6714,"B","DATE & TIME ENTERED",5)=""
^DD(443.6714,"B","FIELD & FILE",2)=""
^DD(443.6714,"B","OLD DATA VALUE",3)=""
^DD(443.6714,"B","OTHER FILE NUMBER",7)=""
^DD(443.6714,"B","SUBRECORD ENTRY",4)=""
^DD(443.6714,"B","USER",6)=""
^DD(443.6714,"GL",0,1,.01)=""
^DD(443.6714,"GL",0,2,1)=""
^DD(443.6714,"GL",0,3,2)=""
^DD(443.6714,"GL",0,4,4)=""
^DD(443.6714,"GL",0,5,5)=""
^DD(443.6714,"GL",0,6,6)=""
^DD(443.6714,"GL",0,7,7)=""
^DD(443.6714,"GL",1,0,3)=""
^DD(443.6714,"IX",.01)=""
^DD(443.6714,"IX",1)=""
^DD(443.6714,"IX",2)=""
^DD(443.6714,"IX",7)=""
^DD(443.6714,"SB",443.67143,3)=""
^DD(443.67143,0)="OLD DATA VALUE SUB-FIELD^^.01^1"
^DD(443.67143,0,"DT")="2940314"
^DD(443.67143,0,"NM","OLD DATA VALUE")=""
^DD(443.67143,0,"UP")="443.6714"
^DD(443.67143,.01,0)="OLD DATA VALUE^WL^^0;1^Q"
^DD(443.67143,.01,21,0)="^^2^2^2940314^"
^DD(443.67143,.01,21,1,0)="This is the old data value (see field 50, sub-field 14, sub-field 3 for"
^DD(443.67143,.01,21,2,0)="a complete description of this field)."
^DD(443.67143,.01,23,0)="^^1^1^2940314^"
^DD(443.67143,.01,23,1,0)="See DESCRIPTION for this field."
^DD(443.67143,.01,"DT")="2940314"
^DD(443.67143,"B","OLD DATA VALUE",.01)=""
^DD(443.67143,"GL",0,1,.01)=""
^DD(443.7,0)="AMOUNT SUB-FIELD^NL^2^5"
^DD(443.7,0,"DT")="2940429"
^DD(443.7,0,"NM","AMOUNT")=""
^DD(443.7,0,"UP")="443.6"
^DD(443.7,.01,0)="AMOUNT^NJ10,2^^0;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999.99)!(X<0) X"
^DD(443.7,.01,1,0)="^.1"
^DD(443.7,.01,1,1,0)="^^TRIGGER^443.6^91"
^DD(443.7,.01,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(443.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(443.7,.01,1,1,1.4)"
^DD(443.7,.01,1,1,1.4)="S DIH=$S($D(^PRC(443.6,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,14,99))  S DIH=DIH_U"" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"""":U_%,1:""""),DIH=443.6,DIG=91 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.7,.01,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^PRC(443.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15) S DIU=X K Y S X=DIV S X=DIU-DIV X ^DD(443.7,.01,1,1,2.4)"
^DD(443.7,.01,1,1,2.4)="S DIH=$S($D(^PRC(443.6,DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,14,99))  S DIH=DIH_U"" S %=$P(DIH,U,16,999),DIU=$P(DIH,U,15),^(0)=$P(DIH,U,1,14)_U_DIV_$S(%]"""":U_%,1:""""),DIH=443.6,DIG=91 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.7,.01,1,1,"CREATE VALUE")="TOTAL AMOUNT+AMOUNT"
^DD(443.7,.01,1,1,"DELETE VALUE")="TOTAL AMOUNT-AMOUNT"
^DD(443.7,.01,1,1,"FIELD")="TOTAL AMOUNT"
^DD(443.7,.01,3)="TYPE A NUMBER BETWEEN 0 AND 9999999.99"
^DD(443.7,.01,21,0)="^^1^1^2910517^"
^DD(443.7,.01,21,1,0)="This is the amount of the contract."
^DD(443.7,1,0)="TYPE CODE^R*P420.6'^PRCD(420.6,^0;2^S DIC(""S"")=""I Y<50"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(443.7,1,12)="MUST BE A TYPE CODE"
^DD(443.7,1,12.1)="S DIC(""S"")=""I Y<50"""
^DD(443.7,1,21,0)="^^2^2^2910517^"
^DD(443.7,1,21,1,0)="This is the type of amendment being processed"
^DD(443.7,1,21,2,0)="for FPDP reporting."
^DD(443.7,1.1,0)="COMP. STATUS/BUSINESS^P420.6'^PRCD(420.6,^0;4^Q"
^DD(443.7,1.1,21,0)="^^1^1^2941031^"
^DD(443.7,1.1,21,1,0)="This is the competitive status."
^DD(443.7,1.1,"DT")="2940429"
^DD(443.7,1.2,0)="PREF. PROGRAM^P420.6'^PRCD(420.6,^0;5^Q"
^DD(443.7,1.2,21,0)="^^1^1^2941031^"
^DD(443.7,1.2,21,1,0)="This is the preference program of the vendor"
^DD(443.7,1.2,"DT")="2940429"
^DD(443.7,2,0)="CONTRACT #^F^^0;3^K:$L(X)>17!($L(X)<3) X"
^DD(443.7,2,3)="ANSWER MUST BE 3-17 CHARACTERS IN LENGTH"
^DD(443.7,2,21,0)="^^2^2^2920318^^"
^DD(443.7,2,21,1,0)="This is the contract number for the amendment,"
^DD(443.7,2,21,2,0)="if applicable."
^DD(443.7,"B","AMOUNT",.01)=""
^DD(443.7,"B","COMP. STATUS/BUSINESS",1.1)=""
^DD(443.7,"B","CONTRACT #",2)=""
^DD(443.7,"B","PREF. PROGRAM",1.2)=""
^DD(443.7,"B","TYPE CODE",1)=""
^DD(443.7,"GL",0,1,.01)=""
^DD(443.7,"GL",0,2,1)=""
^DD(443.7,"GL",0,3,2)=""
^DD(443.7,"GL",0,4,1.1)=""
^DD(443.7,"GL",0,5,1.2)=""
^DD(443.7,"IX",.01)=""
^DD(443.7,"RQ",1)=""
^DD(443.701,0)="DESCRIPTION SUB-FIELD^NL^.01^1"
^DD(443.701,0,"NM","DESCRIPTION")=""
^DD(443.701,0,"UP")="443.67"
^DD(443.701,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(443.701,.01,21,0)="^^2^2^2930414^"
^DD(443.701,.01,21,1,0)=" "
^DD(443.701,.01,21,2,0)="DESCRIPTION OF AMENDMENT"
^DD(443.701,.01,"DT")="2851219"
^DD(443.701,"B","DESCRIPTION",.01)=""
^DD(443.701,"GL",0,1,.01)=""
^DD(443.75,0)="FIELD^^26^29"
^DD(443.75,0,"DDA")="N"
^DD(443.75,0,"DT")="2961230"
^DD(443.75,0,"IX","AC",443.75,1)=""
^DD(443.75,0,"IX","AD",443.75,3)=""
^DD(443.75,0,"IX","AE",443.75,5)=""
^DD(443.75,0,"IX","AF",443.75,1)=""
^DD(443.75,0,"IX","AG",443.75,2)=""
^DD(443.75,0,"IX","AH",443.75,3)=""
^DD(443.75,0,"IX","AI",443.75,5)=""
^DD(443.75,0,"IX","AJ",443.75,6)=""
^DD(443.75,0,"IX","AJ1",443.75,6)=""
^DD(443.75,0,"IX","AJ1X25",443.75,25)=""
^DD(443.75,0,"IX","AJ1X3",443.75,3)=""
^DD(443.75,0,"IX","AJ1X55",443.75,5.5)=""
^DD(443.75,0,"IX","AJX25",443.75,25)=""
^DD(443.75,0,"IX","AJX3",443.75,3)=""
^DD(443.75,0,"IX","AK",443.75,25)=""
^DD(443.75,0,"IX","AL",443.75,10)=""
^DD(443.75,0,"IX","AL1",443.75,10)=""
^DD(443.75,0,"IX","AL1X25",443.75,25)=""
^DD(443.75,0,"IX","AL1X55",443.75,5.5)=""
^DD(443.75,0,"IX","AL1X9",443.75,9)=""
^DD(443.75,0,"IX","ALX25",443.75,25)=""
^DD(443.75,0,"IX","ALX9",443.75,9)=""
^DD(443.75,0,"IX","AM",443.75,24)=""
^DD(443.75,0,"IX","AM1",443.75,24)=""
^DD(443.75,0,"IX","AM1X23",443.75,23)=""
^DD(443.75,0,"IX","AM1X25",443.75,25)=""
^DD(443.75,0,"IX","AM1X55",443.75,5.5)=""
^DD(443.75,0,"IX","AMX23",443.75,23)=""
^DD(443.75,0,"IX","AMX25",443.75,25)=""
^DD(443.75,0,"IX","AN",443.75,6.5)=""
^DD(443.75,0,"IX","AO",443.75,1)=""
^DD(443.75,0,"IX","AP",443.75,3)=""
^DD(443.75,0,"IX","AQ",443.75,5)=""
^DD(443.75,0,"IX","AR",443.75,1)=""
^DD(443.75,0,"IX","B",443.75,.01)=""
^DD(443.75,0,"IX","C",443.75,5.5)=""
^DD(443.75,0,"IX","D",443.75,6)=""
^DD(443.75,0,"NM","EDI SENDER")=""
^DD(443.75,0,"VR")="5.1"
^DD(443.75,0,"VRPK")="IFCAP"
^DD(443.75,.01,0)="SEQUENTIAL ENTRY NUMBER^RNJ10,0^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,.01,1,0)="^.1"
^DD(443.75,.01,1,1,0)="443.75^B"
^DD(443.75,.01,1,1,1)="S ^PRC(443.75,""B"",$E(X,1,30),DA)="""""
^DD(443.75,.01,1,1,2)="K ^PRC(443.75,""B"",$E(X,1,30),DA)"
^DD(443.75,.01,3)="Enter the next number after the highest number enteredin any other record.  Use each number only once."
^DD(443.75,.01,21,0)="^^2^2^2960603^^^^"
^DD(443.75,.01,21,1,0)="This field contains a sequential number.  This number is not linked"
^DD(443.75,.01,21,2,0)="to the file's IEN."
^DD(443.75,.01,23,0)="^^5^5^2960603^^^^"
^DD(443.75,.01,23,1,0)="This field has a number that is one more than the last record entered."
^DD(443.75,.01,23,2,0)="This number has no connection with the internal entry number."
^DD(443.75,.01,23,3,0)="   "
^DD(443.75,.01,23,4,0)="All entries within one record will pertain to an ACT, POA or a PRJ"
^DD(443.75,.01,23,5,0)="transaction sent from the EDI package in Austin."
^DD(443.75,.01,"DT")="2960516"
^DD(443.75,1,0)="PO/RFQ NUMBER^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(443.75,1,1,0)="^.1^^-1"
^DD(443.75,1,1,1,0)="443.75^AC^MUMPS"
^DD(443.75,1,1,1,1)="D S1^PRCOEDIS"
^DD(443.75,1,1,1,2)="D K1^PRCOEDIS"
^DD(443.75,1,1,1,"%D",0)="^^15^15^2981027^^"
^DD(443.75,1,1,1,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,1,1,1,"%D",2,0)=" matches the entry coming from Austin in the ACT or PRJ transactions"
^DD(443.75,1,1,1,"%D",3,0)=" with the RFQ transaction sent from IFCAP."
^DD(443.75,1,1,1,"%D",4,0)="   "
^DD(443.75,1,1,1,"%D",5,0)=" This cross-reference will be changed if fields 1, 3, 5 or 6.5 are"
^DD(443.75,1,1,1,"%D",6,0)=" changed."
^DD(443.75,1,1,1,"%D",7,0)="  "
^DD(443.75,1,1,1,"%D",8,0)=" This cross-reference will be set only if fields 3, 5 and 6.5 are set."
^DD(443.75,1,1,1,"%D",9,0)="  "
^DD(443.75,1,1,1,"%D",10,0)=" This cross-reference will be killed if fields 3, 5 or 6.5 are deleted."
^DD(443.75,1,1,1,"%D",11,0)=" "
^DD(443.75,1,1,1,"%D",12,0)=" This cross-reference will look like:"
^DD(443.75,1,1,1,"%D",13,0)=" "
^DD(443.75,1,1,1,"%D",14,0)=" ^PRC(443.75,""AC"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,1,1,1,"%D",15,0)="  RFQ,DA)="""""
^DD(443.75,1,1,1,"DT")="2960613"
^DD(443.75,1,1,2,0)="443.75^AF^MUMPS"
^DD(443.75,1,1,2,1)="D S4^PRCOEDIS"
^DD(443.75,1,1,2,2)="D K4^PRCOEDIS"
^DD(443.75,1,1,2,"%D",0)="^^13^13^2981027^"
^DD(443.75,1,1,2,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,1,1,2,"%D",2,0)=" matches the entry coming from Austin in the TXT transaction."
^DD(443.75,1,1,2,"%D",3,0)="    "
^DD(443.75,1,1,2,"%D",4,0)=" This cross-reference will be changed if fields 1, 2, 3 or 5 are changed."
^DD(443.75,1,1,2,"%D",5,0)="   "
^DD(443.75,1,1,2,"%D",6,0)=" This cross-reference will be set only if fields 2, 3 and 5 are set."
^DD(443.75,1,1,2,"%D",7,0)="   "
^DD(443.75,1,1,2,"%D",8,0)=" This cross-reference will be killed if fields 2, 3 or 5 are deleted."
^DD(443.75,1,1,2,"%D",9,0)=" "
^DD(443.75,1,1,2,"%D",10,0)=" This cross-reference will look like:"
^DD(443.75,1,1,2,"%D",11,0)=" "
^DD(443.75,1,1,2,"%D",12,0)=" ^PRC(443.75,""AF"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,1,1,2,"%D",13,0)="  TXT MESSAGE NUMBER,DA)="""""
^DD(443.75,1,1,2,"DT")="2960613"
^DD(443.75,1,1,3,0)="443.75^AO^MUMPS"
^DD(443.75,1,1,3,1)="D S9^PRCOEDIS"
^DD(443.75,1,1,3,2)="D K9^PRCOEDIS"
^DD(443.75,1,1,3,"%D",0)="^^14^14^2981027^"
^DD(443.75,1,1,3,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,1,1,3,"%D",2,0)=" matches the entry coming from Austin in the ACT or PRJ transactions"
^DD(443.75,1,1,3,"%D",3,0)=" with the PHA transaction sent from IFCAP."
^DD(443.75,1,1,3,"%D",4,0)="  "
^DD(443.75,1,1,3,"%D",5,0)=" This cross-reference will be changed if fields 1, 3 or 5 are changed."
^DD(443.75,1,1,3,"%D",6,0)="  "
^DD(443.75,1,1,3,"%D",7,0)=" This cross-reference will be set only if fields 3 and 5 are set."
^DD(443.75,1,1,3,"%D",8,0)="  "
^DD(443.75,1,1,3,"%D",9,0)=" This cross-reference will be killed if fields 3 or 5 are deleted."
^DD(443.75,1,1,3,"%D",10,0)=" "
^DD(443.75,1,1,3,"%D",11,0)=" This cross-reference will look like:"
^DD(443.75,1,1,3,"%D",12,0)=" "
^DD(443.75,1,1,3,"%D",13,0)=" ^PRC(443.75,""AO"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,1,1,3,"%D",14,0)="  DA)="""""
^DD(443.75,1,1,3,"DT")="2960627"
^DD(443.75,1,1,4,0)="443.75^AR"
^DD(443.75,1,1,4,1)="S ^PRC(443.75,""AR"",$E(X,1,30),DA)="""""
^DD(443.75,1,1,4,2)="K ^PRC(443.75,""AR"",$E(X,1,30),DA)"
^DD(443.75,1,1,4,"%D",0)="^^2^2^2981027^^"
^DD(443.75,1,1,4,"%D",1,0)="This cross-reference is used to locate an entry in this file when all that"
^DD(443.75,1,1,4,"%D",2,0)="you have is the PO/Reference number."
^DD(443.75,1,1,4,"DT")="2960802"
^DD(443.75,1,3)="Enter the PO/RFQ number."
^DD(443.75,1,21,0)="^^2^2^2960611^"
^DD(443.75,1,21,1,0)="Enter the reference number for the Purchase Order, Requesition,"
^DD(443.75,1,21,2,0)="Request for Quotation or Text supplement to a RFQ."
^DD(443.75,1,"DT")="2970103"
^DD(443.75,2,0)="TXT MESSAGE NUMBER^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,2,1,0)="^.1^^-1"
^DD(443.75,2,1,1,0)="443.75^AG^MUMPS"
^DD(443.75,2,1,1,1)="D S5^PRCOEDIS"
^DD(443.75,2,1,1,2)="D K5^PRCOEDIS"
^DD(443.75,2,1,1,"%D",0)="^^13^13^2981027^"
^DD(443.75,2,1,1,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,2,1,1,"%D",2,0)=" matches the entry coming from Austin in the TXT transaction."
^DD(443.75,2,1,1,"%D",3,0)="    "
^DD(443.75,2,1,1,"%D",4,0)=" This cross-reference will be changed if fields 1, 2, 3 or 5 are changed."
^DD(443.75,2,1,1,"%D",5,0)="   "
^DD(443.75,2,1,1,"%D",6,0)=" This cross-reference will be set only if fields 1, 3 and 5 are set."
^DD(443.75,2,1,1,"%D",7,0)="   "
^DD(443.75,2,1,1,"%D",8,0)=" This cross-reference will be killed if fields 1, 3 or 5 are deleted."
^DD(443.75,2,1,1,"%D",9,0)=" "
^DD(443.75,2,1,1,"%D",10,0)=" This cross-reference will look like:"
^DD(443.75,2,1,1,"%D",11,0)=" "
^DD(443.75,2,1,1,"%D",12,0)=" ^PRC(443.75,""AF"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,2,1,1,"%D",13,0)="  TXT MESSAGE NUMBER,DA)="""""
^DD(443.75,2,1,1,"DT")="2960613"
^DD(443.75,2,3)="Enter the TXT record number."
^DD(443.75,2,21,0)="^^2^2^2960611^"
^DD(443.75,2,21,1,0)="This TXT number is a sequential number entered for each text record"
^DD(443.75,2,21,2,0)="sent out about a RFQ document."
^DD(443.75,2,"DT")="2970103"
^DD(443.75,3,0)="TYPE OF TRANSACTION^S^PHA:PHA;RFQ:RFQ;TXT:TXT;^0;4^Q"
^DD(443.75,3,1,0)="^.1"
^DD(443.75,3,1,1,0)="443.75^AD^MUMPS"
^DD(443.75,3,1,1,1)="D S2^PRCOEDIS"
^DD(443.75,3,1,1,2)="D K2^PRCOEDIS"
^DD(443.75,3,1,1,"%D",0)="^^14^14^2981027^"
^DD(443.75,3,1,1,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,3,1,1,"%D",2,0)=" matches the entry coming from Austin in the ACT or PRJ transactions"
^DD(443.75,3,1,1,"%D",3,0)=" with the RFQ transaction sent from IFCAP."
^DD(443.75,3,1,1,"%D",4,0)="    "
^DD(443.75,3,1,1,"%D",5,0)=" This cross-reference will be changed if fields 1, 3, 5 or 6.5 are changed."
^DD(443.75,3,1,1,"%D",6,0)="   "
^DD(443.75,3,1,1,"%D",7,0)=" This cross-reference will be set only if fields 1, 5 and 6.5 are set."
^DD(443.75,3,1,1,"%D",8,0)="   "
^DD(443.75,3,1,1,"%D",9,0)=" This cross-reference will be killed if fields 1, 5 or 6.5 are deleted."
^DD(443.75,3,1,1,"%D",10,0)=" "
^DD(443.75,3,1,1,"%D",11,0)=" This cross-reference will look like:"
^DD(443.75,3,1,1,"%D",12,0)=" "
^DD(443.75,3,1,1,"%D",13,0)=" ^PRC(443.75,""AC"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,3,1,1,"%D",14,0)="  RFQ,DA)="""""
^DD(443.75,3,1,1,"DT")="2960613"
^DD(443.75,3,1,2,0)="443.75^AH^MUMPS"
^DD(443.75,3,1,2,1)="D S6^PRCOEDIS"
^DD(443.75,3,1,2,2)="D K6^PRCOEDIS"
^DD(443.75,3,1,2,"%D",0)="^^13^13^2981027^"
^DD(443.75,3,1,2,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,3,1,2,"%D",2,0)=" matches the entry coming from Austin in the TXT transaction."
^DD(443.75,3,1,2,"%D",3,0)="    "
^DD(443.75,3,1,2,"%D",4,0)=" This cross-reference will be changed if fields 1, 2, 3 or 5 are changed."
^DD(443.75,3,1,2,"%D",5,0)="   "
^DD(443.75,3,1,2,"%D",6,0)=" This cross-reference will be set only if fields 1, 2 and 5 are set."
^DD(443.75,3,1,2,"%D",7,0)="   "
^DD(443.75,3,1,2,"%D",8,0)=" This cross-reference will be killed if fields 1, 2 or 5 are deleted."
^DD(443.75,3,1,2,"%D",9,0)=" "
^DD(443.75,3,1,2,"%D",10,0)=" This cross-reference will look like:"
^DD(443.75,3,1,2,"%D",11,0)=" "
^DD(443.75,3,1,2,"%D",12,0)=" ^PRC(443.75,""AF"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,3,1,2,"%D",13,0)="  TXT MESSAGE NUMBER,DA)="""""
^DD(443.75,3,1,2,"DT")="2960613"
^DD(443.75,3,1,3,0)="^^TRIGGER^443.75^25"
^DD(443.75,3,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(443.75,3,1,3,69.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(443.75,3,1,3,1.4)"
^DD(443.75,3,1,3,1.4)="S DIH=$S($D(^PRC(443.75,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,17)=DIV,DIH=443.75,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.75,3,1,3,2)="Q"
^DD(443.75,3,1,3,69.2)="S Y(2)=$C(59)_$S($D(^DD(443.75,25,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,17)_"":"",2),$C(59),1)"
^DD(443.75,3,1,3,"%D",0)="^^2^2^2960621^"
^DD(443.75,3,1,3,"%D",1,0)="This cross-reference sets the PROGRESS LEVEL when a transaction is sent"
^DD(443.75,3,1,3,"%D",2,0)="to Austin."
^DD(443.75,3,1,3,"CREATE CONDITION")="PROGRESS LEVEL="""""
^DD(443.75,3,1,3,"CREATE VALUE")="S X=1"
^DD(443.75,3,1,3,"DELETE VALUE")="NO EFFECT"
^DD(443.75,3,1,3,"DT")="2960620"
^DD(443.75,3,1,3,"FIELD")="PROGRESS LEVEL"
^DD(443.75,3,1,4,0)="443.75^AP^MUMPS"
^DD(443.75,3,1,4,1)="D S10^PRCOEDIS"
^DD(443.75,3,1,4,2)="D K10^PRCOEDIS"
^DD(443.75,3,1,4,"%D",0)="^^14^14^2981027^"
^DD(443.75,3,1,4,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,3,1,4,"%D",2,0)=" matches the entry coming from Austin in the ACT or PRJ transactions"
^DD(443.75,3,1,4,"%D",3,0)=" with the PHA transaction sent from IFCAP."
^DD(443.75,3,1,4,"%D",4,0)="  "
^DD(443.75,3,1,4,"%D",5,0)=" This cross-reference will be changed if fields 1, 3 or 5 are changed."
^DD(443.75,3,1,4,"%D",6,0)="  "
^DD(443.75,3,1,4,"%D",7,0)=" This cross-reference will be set only if fields 1 and 5 are set."
^DD(443.75,3,1,4,"%D",8,0)="  "
^DD(443.75,3,1,4,"%D",9,0)=" This cross-reference will be killed if fields 1 or 5 are deleted."
^DD(443.75,3,1,4,"%D",10,0)=" "
^DD(443.75,3,1,4,"%D",11,0)=" This cross-reference will look like:"
^DD(443.75,3,1,4,"%D",12,0)=" "
^DD(443.75,3,1,4,"%D",13,0)=" ^PRC(443.75,""AO"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,3,1,4,"%D",14,0)="  DA)="""""
^DD(443.75,3,1,4,"DT")="2960627"
^DD(443.75,3,1,5,0)="443.75^AJX3^MUMPS"
^DD(443.75,3,1,5,1)="D S1^PRCOEDI1"
^DD(443.75,3,1,5,2)="D K1^PRCOEDI1"
^DD(443.75,3,1,5,"%D",0)="^^9^9^2981027^"
^DD(443.75,3,1,5,"%D",1,0)=" This x-ref will set or kill the 'AJ' x-ref along with the 'AJ' x-ref in"
^DD(443.75,3,1,5,"%D",2,0)=" field 6, and the 'AJX25' x-ref in field 25."
^DD(443.75,3,1,5,"%D",3,0)=" "
^DD(443.75,3,1,5,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,3,1,5,"%D",5,0)=" "
^DD(443.75,3,1,5,"%D",6,0)=" ^PRC(443.75,""AJ"",PROGRESS LEVEL,TYPE OF TRANSACTION,DATE/TIME CREATED,"
^DD(443.75,3,1,5,"%D",7,0)="  DA)="""""
^DD(443.75,3,1,5,"%D",8,0)=" "
^DD(443.75,3,1,5,"%D",9,0)=" where PROGRESS LEVEL will equal 1"
^DD(443.75,3,1,5,"DT")="2970122"
^DD(443.75,3,1,6,0)="443.75^AJ1X3^MUMPS"
^DD(443.75,3,1,6,1)="D S2^PRCOEDI1"
^DD(443.75,3,1,6,2)="D K2^PRCOEDI1"
^DD(443.75,3,1,6,"%D",0)="^^9^9^2981030^^"
^DD(443.75,3,1,6,"%D",1,0)=" This x-ref will set or kill 'AJ1' x-ref along with 'AJ1' x-ref in field"
^DD(443.75,3,1,6,"%D",2,0)=" 6, 'AJ1X55' x-ref in field 5.5 and 'AJ1X25' x-ref in field 25."
^DD(443.75,3,1,6,"%D",3,0)=" "
^DD(443.75,3,1,6,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,3,1,6,"%D",5,0)=" "
^DD(443.75,3,1,6,"%D",6,0)=" ^PRC(443.75,""AJ1"",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION,DATE/TIME"
^DD(443.75,3,1,6,"%D",7,0)="  CREATED,DA)="""""
^DD(443.75,3,1,6,"%D",8,0)=" "
^DD(443.75,3,1,6,"%D",9,0)=" Where PROGRESS LEVEL will equal 1"
^DD(443.75,3,1,6,"DT")="2970122"
^DD(443.75,3,21,0)="^^1^1^2960611^"
^DD(443.75,3,21,1,0)="Enter the type of transaction created."
^DD(443.75,3,"DT")="2970122"
^DD(443.75,4,0)="MAIL MESSAGE NUMBER^NJ12,0^^0;5^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,4,1,0)="^.1^^0"
^DD(443.75,4,3)="Enter the MailMan message number of the transaction created for this PO/RFQ number."
^DD(443.75,4,21,0)="^^2^2^2960611^"
^DD(443.75,4,21,1,0)="This field has the MailMan message number that the PHA, or RFQ or TXT"
^DD(443.75,4,21,2,0)="transaction is using as an envelope to go to Austin."
^DD(443.75,4,"DT")="2960613"
^DD(443.75,5,0)="VENDOR ID NUMBER^F^^0;6^K:$L(X)>12!($L(X)<5) X"
^DD(443.75,5,1,0)="^.1^^-1"
^DD(443.75,5,1,1,0)="443.75^AE^MUMPS"
^DD(443.75,5,1,1,1)="D S3^PRCOEDIS"
^DD(443.75,5,1,1,2)="D K3^PRCOEDIS"
^DD(443.75,5,1,1,"%D",0)="^^14^14^2981030^"
^DD(443.75,5,1,1,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,5,1,1,"%D",2,0)=" matches the entry coming from Austin in the ACT or PRJ transactions"
^DD(443.75,5,1,1,"%D",3,0)=" with the RFQ transaction sent from IFCAP."
^DD(443.75,5,1,1,"%D",4,0)=" "
^DD(443.75,5,1,1,"%D",5,0)=" This cross-reference will be changed if fields 1, 3, 5 or 6.5 are changed."
^DD(443.75,5,1,1,"%D",6,0)=" "
^DD(443.75,5,1,1,"%D",7,0)=" This cross-reference will be set only if fields 1, 3 and 6.5 are set."
^DD(443.75,5,1,1,"%D",8,0)=" "
^DD(443.75,5,1,1,"%D",9,0)=" This cross-reference will be killed if fields 1, 3 or 6.5 are deleted."
^DD(443.75,5,1,1,"%D",10,0)=" "
^DD(443.75,5,1,1,"%D",11,0)=" This cross-reference will look like:"
^DD(443.75,5,1,1,"%D",12,0)=" "
^DD(443.75,5,1,1,"%D",13,0)=" ^PRC(443.75,""AC"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,5,1,1,"%D",14,0)="  RFQ,DA)="""""
^DD(443.75,5,1,1,"DT")="2960613"
^DD(443.75,5,1,2,0)="443.75^AI^MUMPS"
^DD(443.75,5,1,2,1)="D S7^PRCOEDIS"
^DD(443.75,5,1,2,2)="D K7^PRCOEDIS"
^DD(443.75,5,1,2,"%D",0)="^^13^13^2981030^"
^DD(443.75,5,1,2,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,5,1,2,"%D",2,0)=" matches the entry coming from Austin in the TXT transaction."
^DD(443.75,5,1,2,"%D",3,0)=" "
^DD(443.75,5,1,2,"%D",4,0)=" This cross-reference will be changed if fields 1, 2, 3 or 5 are changed."
^DD(443.75,5,1,2,"%D",5,0)=" "
^DD(443.75,5,1,2,"%D",6,0)=" This cross-reference will be set only if fields 1, 2 and 3 are set."
^DD(443.75,5,1,2,"%D",7,0)=" "
^DD(443.75,5,1,2,"%D",8,0)=" This cross-reference will be killed if fields 1, 2 or 3 are deleted."
^DD(443.75,5,1,2,"%D",9,0)=" "
^DD(443.75,5,1,2,"%D",10,0)=" This cross-reference will look like:"
^DD(443.75,5,1,2,"%D",11,0)=" "
^DD(443.75,5,1,2,"%D",12,0)=" ^PRC(443.75,""AF"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,5,1,2,"%D",13,0)="  TXT MESSAGE NUMBER,DA)="""""
^DD(443.75,5,1,2,"DT")="2960613"
^DD(443.75,5,1,3,0)="443.75^AQ^MUMPS"
^DD(443.75,5,1,3,1)="D S11^PRCOEDIS"
^DD(443.75,5,1,3,2)="D K11^PRCOEDIS"
^DD(443.75,5,1,3,"%D",0)="^^14^14^2981030^"
^DD(443.75,5,1,3,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,5,1,3,"%D",2,0)=" matches the entry coming from Austin in the ACT or PRJ transactions"
^DD(443.75,5,1,3,"%D",3,0)=" with the PHA transaction sent from IFCAP."
^DD(443.75,5,1,3,"%D",4,0)="  "
^DD(443.75,5,1,3,"%D",5,0)=" This cross-reference will be changed if fields 1, 3 or 5 are changed."
^DD(443.75,5,1,3,"%D",6,0)="  "
^DD(443.75,5,1,3,"%D",7,0)=" This cross-reference will be set only if fields 1 and 3 are set."
^DD(443.75,5,1,3,"%D",8,0)="  "
^DD(443.75,5,1,3,"%D",9,0)=" This cross-reference will be killed if fields 1 or 3 are deleted."
^DD(443.75,5,1,3,"%D",10,0)=" "
^DD(443.75,5,1,3,"%D",11,0)=" This cross-reference will look like:"
^DD(443.75,5,1,3,"%D",12,0)=" "
^DD(443.75,5,1,3,"%D",13,0)=" ^PRC(443.75,""AO"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,5,1,3,"%D",14,0)="  DA)="""""
^DD(443.75,5,1,3,"DT")="2960627"
^DD(443.75,5,3)="Enter the Vendor Identification Number for the vendor listed in this PO/RFQ number."
^DD(443.75,5,21,0)="^^4^4^2960611^"
^DD(443.75,5,21,1,0)="The VENDOR ID NUMBER is the identifer for the vendor or vendors listed"
^DD(443.75,5,21,2,0)="in the outgoing PHA, or RFQ or TXT transaction.  Each vendor will be"
^DD(443.75,5,21,3,0)="listed under a different record within this file for all vendors entered"
^DD(443.75,5,21,4,0)="within a RFQ."
^DD(443.75,5,"DT")="2970103"
^DD(443.75,5.5,0)="SENDER^P200'^VA(200,^0;11^Q"
^DD(443.75,5.5,1,0)="^.1"
^DD(443.75,5.5,1,1,0)="443.75^C^"
^DD(443.75,5.5,1,1,1)="Q:$O(^PRC(443.75,""C"",X,0))>0  S ^PRC(443.75,""C"",X,DA)="""""
^DD(443.75,5.5,1,1,2)="K ^PRC(443.75,""C"",X,DA)"
^DD(443.75,5.5,1,1,"%D",0)="^^1^1^2970106^^^^"
^DD(443.75,5.5,1,1,"%D",1,0)="This x-ref is used to find out if a person is already in this file."
^DD(443.75,5.5,1,1,"DT")="2970106"
^DD(443.75,5.5,1,2,0)="443.75^AJ1X55^MUMPS"
^DD(443.75,5.5,1,2,1)="D S3^PRCOEDI1"
^DD(443.75,5.5,1,2,2)="D K3^PRCOEDI1"
^DD(443.75,5.5,1,2,"%D",0)="^^9^9^3000103^^^^"
^DD(443.75,5.5,1,2,"%D",1,0)=" This will set or kill the 'AJ1' x-ref along with 'AJ1' x-ref in field 6,"
^DD(443.75,5.5,1,2,"%D",2,0)=" 'AJ1X3'in field 3 and 'AJ1X25' in field 25."
^DD(443.75,5.5,1,2,"%D",3,0)=" "
^DD(443.75,5.5,1,2,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,5.5,1,2,"%D",5,0)=" "
^DD(443.75,5.5,1,2,"%D",6,0)=" ^PRC(443.75,""AJ1"",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION,DATE/TIME"
^DD(443.75,5.5,1,2,"%D",7,0)="  CREATED,DA)="""""
^DD(443.75,5.5,1,2,"%D",8,0)=" "
^DD(443.75,5.5,1,2,"%D",9,0)=" Where PROGRESS LEVEL will equal 1"
^DD(443.75,5.5,1,2,"DT")="2970122"
^DD(443.75,5.5,1,3,0)="443.75^AL1X55^MUMPS"
^DD(443.75,5.5,1,3,1)="D S4^PRCOEDI1"
^DD(443.75,5.5,1,3,2)="D K4^PRCOEDI1"
^DD(443.75,5.5,1,3,"%D",0)="^^12^12^2981030^"
^DD(443.75,5.5,1,3,"%D",1,0)=" This x-ref will set or kill the 'AL1' x-ref along with 'AL1' x-ref in"
^DD(443.75,5.5,1,3,"%D",2,0)=" field 10, 'AL1X9' x-ref in field 9 and 'AL1X25' x-ref in field 25."
^DD(443.75,5.5,1,3,"%D",3,0)=" "
^DD(443.75,5.5,1,3,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,5.5,1,3,"%D",5,0)=" "
^DD(443.75,5.5,1,3,"%D",6,0)=" ^PRC(443.75,""AL1"",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,"
^DD(443.75,5.5,1,3,"%D",7,0)="  DATE/TIME PROCESSED,DA)="""""
^DD(443.75,5.5,1,3,"%D",8,0)=" "
^DD(443.75,5.5,1,3,"%D",9,0)=" Where PROGRESS LEVEL will equal 2"
^DD(443.75,5.5,1,3,"%D",10,0)=" "
^DD(443.75,5.5,1,3,"%D",11,0)=" This cross-reference will remove the ""AJ1"" cross-reference for record"
^DD(443.75,5.5,1,3,"%D",12,0)=" DA when PROGRESS LEVEL is equal to 1 in ""AJ1""."
^DD(443.75,5.5,1,3,"DT")="2970122"
^DD(443.75,5.5,1,4,0)="443.75^AM1X55^MUMPS"
^DD(443.75,5.5,1,4,1)="D S5^PRCOEDI1"
^DD(443.75,5.5,1,4,2)="D K5^PRCOEDI1"
^DD(443.75,5.5,1,4,"%D",0)="^^12^12^2981030^"
^DD(443.75,5.5,1,4,"%D",1,0)=" This x-ref will set or kill the 'AM1' x-ref along with 'AM1X23' x-ref"
^DD(443.75,5.5,1,4,"%D",2,0)=" in field 23, 'AM1X24' x-ref in field 24 and 'AM1X25' x-ref in field 25."
^DD(443.75,5.5,1,4,"%D",3,0)=" "
^DD(443.75,5.5,1,4,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,5.5,1,4,"%D",5,0)=" "
^DD(443.75,5.5,1,4,"%D",6,0)=" ^PRC(443.75,""AM1"",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME"
^DD(443.75,5.5,1,4,"%D",7,0)="  SENT,DA)="""""
^DD(443.75,5.5,1,4,"%D",8,0)=" "
^DD(443.75,5.5,1,4,"%D",9,0)=" Where PROGRESS LEVEL  will equal 2"
^DD(443.75,5.5,1,4,"%D",10,0)=" "
^DD(443.75,5.5,1,4,"%D",11,0)=" This cross-reference will remove the ""AL1"" cross-reference for record"
^DD(443.75,5.5,1,4,"%D",12,0)=" DA when PROGRESS LEVEL is equal to 2 in ""AL1""."
^DD(443.75,5.5,1,4,"DT")="2970122"
^DD(443.75,5.5,3)="Enter the person who entered this transaction."
^DD(443.75,5.5,23,0)="^^7^7^2961230^^"
^DD(443.75,5.5,23,1,0)="This piece of data will be used to screen entries in this file (443.75)"
^DD(443.75,5.5,23,2,0)="to only display one person's entries.  When the user enters the option"
^DD(443.75,5.5,23,3,0)="(EDI/RFQ REPORTS) a choice will be given.  If the user is not a SUPPLY"
^DD(443.75,5.5,23,4,0)="MANAGER the person must choose one of the SENDERs with entries in this"
^DD(443.75,5.5,23,5,0)="file.  To select another SENDER one must leave this option then return."
^DD(443.75,5.5,23,6,0)="The SUPPLY MANAGER can choose one of the SENDERs or all the SENDERs in"
^DD(443.75,5.5,23,7,0)="this file -- one name or all names, nothing in between."
^DD(443.75,5.5,"DT")="2970122"
^DD(443.75,6,0)="DATE/TIME CREATED^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.75,6,1,0)="^.1"
^DD(443.75,6,1,1,0)="443.75^AJ^MUMPS"
^DD(443.75,6,1,1,1)="S Z0=$P($G(^PRC(443.75,DA,0)),U,4),Z1=$P($G(^PRC(443.75,DA,1)),U,17) S:Z1=1&(Z0]"""") ^PRC(443.75,""AJ"",Z1,Z0,$E(X,1,30),DA)="""" K Z0,Z1"
^DD(443.75,6,1,1,2)="S Z0=$P($G(^PRC(443.75,DA,0)),U,4),Z1=$P($G(^PRC(443.75,DA,1)),U,17) K:Z1=1&(Z0]"""") ^PRC(443.75,""AJ"",Z1,Z0,$E(X,1,30),DA) K Z0,Z1"
^DD(443.75,6,1,1,"%D",0)="^^9^9^2981030^^"
^DD(443.75,6,1,1,"%D",1,0)=" This cross-reference lists all records that have no response from Austin"
^DD(443.75,6,1,1,"%D",2,0)=" in date/time order."
^DD(443.75,6,1,1,"%D",3,0)=" "
^DD(443.75,6,1,1,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,6,1,1,"%D",5,0)=" "
^DD(443.75,6,1,1,"%D",6,0)=" ^PRC(443.75,""AJ"",PROGRESS LEVEL,TYPE OF TRANSACTION,DATE/TIME CREATED,"
^DD(443.75,6,1,1,"%D",7,0)="  DA)="""""
^DD(443.75,6,1,1,"%D",8,0)=" "
^DD(443.75,6,1,1,"%D",9,0)=" Where PROGRESS LEVEL will equal 1"
^DD(443.75,6,1,1,"DT")="2960621"
^DD(443.75,6,1,2,0)="443.75^AJ1^MUMPS"
^DD(443.75,6,1,2,1)="D S3^PRCOEDI2"
^DD(443.75,6,1,2,2)="D K3^PRCOEDI2"
^DD(443.75,6,1,2,"%D",0)="^^9^9^2981030^^"
^DD(443.75,6,1,2,"%D",1,0)=" This cross reference lists all records that have no response from Austin."
^DD(443.75,6,1,2,"%D",2,0)=" in date/time order.  All records are also sorted by SENDER."
^DD(443.75,6,1,2,"%D",3,0)=" "
^DD(443.75,6,1,2,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,6,1,2,"%D",5,0)=" "
^DD(443.75,6,1,2,"%D",6,0)=" ^PRC(443.75,""AJ1"",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION,DATE/"
^DD(443.75,6,1,2,"%D",7,0)="  TIME CREATED,DA)="""""
^DD(443.75,6,1,2,"%D",8,0)=" "
^DD(443.75,6,1,2,"%D",9,0)=" Where PROGRESS LEVEL will equal 1"
^DD(443.75,6,1,2,"DT")="2970103"
^DD(443.75,6,1,3,0)="443.75^D"
^DD(443.75,6,1,3,1)="S ^PRC(443.75,""D"",$E(X,1,30),DA)="""""
^DD(443.75,6,1,3,2)="K ^PRC(443.75,""D"",$E(X,1,30),DA)"
^DD(443.75,6,1,3,"%D",0)="^^3^3^2970821^"
^DD(443.75,6,1,3,"%D",1,0)="Use this x-ref to find out what entries to delete after a number of days."
^DD(443.75,6,1,3,"%D",2,0)="Use the DAYS TO RETAIN field in file 411 to set the number of days.  If"
^DD(443.75,6,1,3,"%D",3,0)="no DAYS TO RETAIN value was entered 60 days will be used as the default."
^DD(443.75,6,1,3,"DT")="2970821"
^DD(443.75,6,3)="Enter the date and time the transaction was created or mailed."
^DD(443.75,6,21,0)="^^3^3^2960611^"
^DD(443.75,6,21,1,0)="This field will contain the date and time that the MailMan message was"
^DD(443.75,6,21,2,0)="created.  This will be within 15 minuts of when the transaction was"
^DD(443.75,6,21,3,0)="created."
^DD(443.75,6,"DT")="2970821"
^DD(443.75,6.5,0)="RFQ^S^00:NEW RFQ;01:CANCELLED RFQ;^0;10^Q"
^DD(443.75,6.5,1,0)="^.1^^-1"
^DD(443.75,6.5,1,1,0)="443.75^AN^MUMPS"
^DD(443.75,6.5,1,1,1)="D S8^PRCOEDIS"
^DD(443.75,6.5,1,1,2)="D K8^PRCOEDIS"
^DD(443.75,6.5,1,1,"%D",0)="^^14^14^2981030^"
^DD(443.75,6.5,1,1,"%D",1,0)=" This cross reference is used to locate the entry in file 443.75 that"
^DD(443.75,6.5,1,1,"%D",2,0)=" matches the entry coming from Austin in the ACT or PRJ transactions"
^DD(443.75,6.5,1,1,"%D",3,0)=" with the RFQ transaction sent from IFCAP."
^DD(443.75,6.5,1,1,"%D",4,0)="  "
^DD(443.75,6.5,1,1,"%D",5,0)=" This cross-reference will be changed if fields 1, 3, 5 or 6.5 are changed."
^DD(443.75,6.5,1,1,"%D",6,0)="  "
^DD(443.75,6.5,1,1,"%D",7,0)=" This cross-reference will be set only if fields 1, 3 and 5 are set."
^DD(443.75,6.5,1,1,"%D",8,0)="   "
^DD(443.75,6.5,1,1,"%D",9,0)=" This cross-reference will be killed if fields 1, 3 or 5 are deleted."
^DD(443.75,6.5,1,1,"%D",10,0)=" "
^DD(443.75,6.5,1,1,"%D",11,0)=" This cross-reference will look like:"
^DD(443.75,6.5,1,1,"%D",12,0)=" "
^DD(443.75,6.5,1,1,"%D",13,0)=" ^PRC(443.75,""AC"",TYPE OF TRANSACTION,PO/RFQ NUMBER,VENDOR ID NUMBER,"
^DD(443.75,6.5,1,1,"%D",14,0)="  RFQ,DA)="""""
^DD(443.75,6.5,1,1,"DT")="2960627"
^DD(443.75,6.5,21,0)="^^2^2^2960923^"
^DD(443.75,6.5,21,1,0)="The code '00' means that an initial RFQ transaction is being sent.  '01'"
^DD(443.75,6.5,21,2,0)="means that this RFQ transaction is cancelling the request."
^DD(443.75,6.5,23,0)="^^3^3^2960923^^^"
^DD(443.75,6.5,23,1,0)="This field is entered only for 'RFQ' transactions.  If the 'RFQ' is"
^DD(443.75,6.5,23,2,0)="a new transaction the code '00' is entered.  If the 'RFQ' is to tell"
^DD(443.75,6.5,23,3,0)="the vendors that this 'RFQ' is cancelled the code '01' is entered."
^DD(443.75,6.5,"DT")="2970103"
^DD(443.75,7,0)="PO POINTER^P442'^PRC(442,^0;8^Q"
^DD(443.75,7,3)="Enter the IEN of the record in file 442 that this record belongs to."
^DD(443.75,7,21,0)="^^3^3^2960611^"
^DD(443.75,7,21,1,0)="Enter here the internal entry number for the record in file 442 that"
^DD(443.75,7,21,2,0)="the PO/RFQ NUMBER field identifies.  This pointer will only represent"
^DD(443.75,7,21,3,0)="records that create PHA transactions."
^DD(443.75,7,"DT")="2960611"
^DD(443.75,8,0)="RFQ/TXT POINTER^P444'^PRC(444,^0;9^Q"
^DD(443.75,8,3)="Enter the IEN for the record in file 444 that this entry represents."
^DD(443.75,8,21,0)="^^2^2^2960611^"
^DD(443.75,8,21,1,0)="This field points to the record in file 444 that the PO/RFQ NUMBER field"
^DD(443.75,8,21,2,0)="lists."
^DD(443.75,8,"DT")="2960611"
^DD(443.75,9,0)="INCOMMING TYPE OF TRANSACTION^S^ACT:ACT;PRJ:PRJ;^1;1^Q"
^DD(443.75,9,1,0)="^.1"
^DD(443.75,9,1,1,0)="^^TRIGGER^443.75^25"
^DD(443.75,9,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=2 X ^DD(443.75,9,1,1,1.4)"
^DD(443.75,9,1,1,1.4)="S DIH=$S($D(^PRC(443.75,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,17)=DIV,DIH=443.75,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.75,9,1,1,2)="Q"
^DD(443.75,9,1,1,"%D",0)="^^2^2^2960628^"
^DD(443.75,9,1,1,"%D",1,0)="This cross-reference updates the PROGRESS LEVEL when an accepted or rejected"
^DD(443.75,9,1,1,"%D",2,0)="transaction arrives from Austin."
^DD(443.75,9,1,1,"CREATE VALUE")="S X=2"
^DD(443.75,9,1,1,"DELETE VALUE")="NO EFFECT"
^DD(443.75,9,1,1,"DT")="2960628"
^DD(443.75,9,1,1,"FIELD")="PROGRESS LEVEL"
^DD(443.75,9,1,2,0)="443.75^ALX9^MUMPS"
^DD(443.75,9,1,2,1)="D S10^PRCOEDI1"
^DD(443.75,9,1,2,2)="D K10^PRCOEDI1"
^DD(443.75,9,1,2,"%D",0)="^^17^17^2981030^"
^DD(443.75,9,1,2,"%D",1,0)=" This x-ref will set or kill the 'AL' x-ref along with 'AL' x-ref in field"
^DD(443.75,9,1,2,"%D",2,0)=" 10 and 'ALX25' x-ref in field 25."
^DD(443.75,9,1,2,"%D",3,0)=" "
^DD(443.75,9,1,2,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,9,1,2,"%D",5,0)=" "
^DD(443.75,9,1,2,"%D",6,0)=" ^PRC(443.75,""AL"",PROGRESS LEVEL,INCOMMING TYPE OF TRANSACTION,DATE/"
^DD(443.75,9,1,2,"%D",7,0)="  TIME PROCESSED,DA)="""""
^DD(443.75,9,1,2,"%D",8,0)=" "
^DD(443.75,9,1,2,"%D",9,0)=" Where PROGRESS LEVEL will equal 2"
^DD(443.75,9,1,2,"%D",10,0)=" "
^DD(443.75,9,1,2,"%D",11,0)=" This cross-reference will remove the ""AJ"" cross-reference for record"
^DD(443.75,9,1,2,"%D",12,0)=" DA during the SET of ""ALX9, when PROGRESS LEVEL is equal to 1 in the"
^DD(443.75,9,1,2,"%D",13,0)=" ""AJ"" cross-reference."
^DD(443.75,9,1,2,"%D",14,0)=" "
^DD(443.75,9,1,2,"%D",15,0)=" This cross-reference will restore the ""AJ"" cross-reference for record"
^DD(443.75,9,1,2,"%D",16,0)=" DA during the KILL of ""ALX9"", setting PROGRESS LEVEL to 1 in the ""AJ"""
^DD(443.75,9,1,2,"%D",17,0)=" cross-reference."
^DD(443.75,9,1,2,"DT")="2970122"
^DD(443.75,9,1,3,0)="443.75^AL1X9^MUMPS"
^DD(443.75,9,1,3,1)="D S4^PRCOEDI2"
^DD(443.75,9,1,3,2)="D K4^PRCOEDI2"
^DD(443.75,9,1,3,"%D",0)="^^17^17^2981030^^"
^DD(443.75,9,1,3,"%D",1,0)=" This x-ref will set or kill the 'AL1' x-ref along with 'AL1X55' x-ref in"
^DD(443.75,9,1,3,"%D",2,0)=" field 5.5, 'AL1X10' x-ref in field 10 and 'AL1X25' x-ref in field 25."
^DD(443.75,9,1,3,"%D",3,0)=" "
^DD(443.75,9,1,3,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,9,1,3,"%D",5,0)=" "
^DD(443.75,9,1,3,"%D",6,0)=" ^PRC(443.75,""AL1"",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,"
^DD(443.75,9,1,3,"%D",7,0)="  DATE/TIME PROCESSED,DA)="""""
^DD(443.75,9,1,3,"%D",8,0)=" "
^DD(443.75,9,1,3,"%D",9,0)=" Where PROGRESS LEVEL will equal 2"
^DD(443.75,9,1,3,"%D",10,0)=" "
^DD(443.75,9,1,3,"%D",11,0)=" This cross-reference will remove the ""AJ1"" cross-reference for record"
^DD(443.75,9,1,3,"%D",12,0)=" DA during the SET of ""AL1X9"", when PROGRESS LEVEL is equal to 1 in the"
^DD(443.75,9,1,3,"%D",13,0)=" ""AJ1"" cross-reference."
^DD(443.75,9,1,3,"%D",14,0)=" "
^DD(443.75,9,1,3,"%D",15,0)=" This cross-reference will restore the ""AJ1"" cross-reference for record"
^DD(443.75,9,1,3,"%D",16,0)=" DA during the KILL of ""AL1X9"", setting PROGRESS LEVEL to 1 in the ""AJ1"""
^DD(443.75,9,1,3,"%D",17,0)=" cross-reference."
^DD(443.75,9,1,3,"DT")="2970122"
^DD(443.75,9,21,0)="^^4^4^2960923^"
^DD(443.75,9,21,1,0)="'ACT' means the transaction is reporting on 'PHA', 'RFQ' or 'TXT'"
^DD(443.75,9,21,2,0)="which were accepted in Austin following transmission from the site."
^DD(443.75,9,21,3,0)="'PRJ' means the transaction is reporting on transactions rejected"
^DD(443.75,9,21,4,0)="in Austin."
^DD(443.75,9,23,0)="^^3^3^2960923^^^^"
^DD(443.75,9,23,1,0)="The data in this field comes from incomming transactions sent from Austin."
^DD(443.75,9,23,2,0)="   "
^DD(443.75,9,23,3,0)="All transactions listed come from the EDI system in Austin."
^DD(443.75,9,"DT")="2970122"
^DD(443.75,10,0)="DATE/TIME PROCESSED^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.75,10,1,0)="^.1"
^DD(443.75,10,1,1,0)="443.75^AL^MUMPS"
^DD(443.75,10,1,1,1)="D S12^PRCOEDIS"
^DD(443.75,10,1,1,2)="D K12^PRCOEDIS"
^DD(443.75,10,1,1,"%D",0)="^^17^17^2981030^"
^DD(443.75,10,1,1,"%D",1,0)=" This cross-reference lists all records that habe been accepted or"
^DD(443.75,10,1,1,"%D",2,0)=" rejected by Austin in date/time order."
^DD(443.75,10,1,1,"%D",3,0)=" "
^DD(443.75,10,1,1,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,10,1,1,"%D",5,0)=" "
^DD(443.75,10,1,1,"%D",6,0)=" ^PRC(443.75,""AL"",PROGRESS LEVEL,INCOMMING TYPE OF TRANSACTION,"
^DD(443.75,10,1,1,"%D",7,0)=" DATE/TIME PROCESSED,DA)="""""
^DD(443.75,10,1,1,"%D",8,0)=" "
^DD(443.75,10,1,1,"%D",9,0)=" Where PROGRESS LEVEL will equal 2"
^DD(443.75,10,1,1,"%D",10,0)=" "
^DD(443.75,10,1,1,"%D",11,0)=" This cross-reference will remove the ""AJ"" cross-reference for record"
^DD(443.75,10,1,1,"%D",12,0)=" DA during the SET of ""AL"", when PROGRESS LEVEL is equal to 1 in the"
^DD(443.75,10,1,1,"%D",13,0)=" ""AJ"" cross-reference."
^DD(443.75,10,1,1,"%D",14,0)=" "
^DD(443.75,10,1,1,"%D",15,0)=" This cross-reference will restore the ""AJ"" cross-reference for record"
^DD(443.75,10,1,1,"%D",16,0)=" DA during the KILL of ""AL"", setting PROGRESS LEVEL to 1 in the ""AJ"""
^DD(443.75,10,1,1,"%D",17,0)=" cross-reference."
^DD(443.75,10,1,1,"DT")="2960628"
^DD(443.75,10,1,2,0)="443.75^AL1^MUMPS"
^DD(443.75,10,1,2,1)="D S1^PRCOEDI2"
^DD(443.75,10,1,2,2)="D K1^PRCOEDI2"
^DD(443.75,10,1,2,"%D",0)="^^17^17^2981030^"
^DD(443.75,10,1,2,"%D",1,0)=" This cross reference list all records that have been accepted or rejected"
^DD(443.75,10,1,2,"%D",2,0)=" by Austin.  All records are sorted by SENDER."
^DD(443.75,10,1,2,"%D",3,0)=" "
^DD(443.75,10,1,2,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,10,1,2,"%D",5,0)=" "
^DD(443.75,10,1,2,"%D",6,0)=" ^PRC(443.75,""AL1"",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,"
^DD(443.75,10,1,2,"%D",7,0)="  DATE/TIME PROCESSED,DA)="""""
^DD(443.75,10,1,2,"%D",8,0)=" "
^DD(443.75,10,1,2,"%D",9,0)=" Where PROGRESS LEVEL will equal 2"
^DD(443.75,10,1,2,"%D",10,0)=" "
^DD(443.75,10,1,2,"%D",11,0)=" This cross-reference will remove the ""AJ1"" cross-reference for record"
^DD(443.75,10,1,2,"%D",12,0)=" DA during the SET of ""AL1"", when PROGRESS LEVEL is equal to 1 in the"
^DD(443.75,10,1,2,"%D",13,0)=" ""AJ1"" cross-reference."
^DD(443.75,10,1,2,"%D",14,0)=" "
^DD(443.75,10,1,2,"%D",15,0)=" This cross-reference will restore the ""AJ1"" cross-reference for record"
^DD(443.75,10,1,2,"%D",16,0)=" DA during the KILL of ""AL1"", setting PROGRESS LEVEL to 1 in the ""AJ1"""
^DD(443.75,10,1,2,"%D",17,0)=" cross-reference."
^DD(443.75,10,1,2,"DT")="2970103"
^DD(443.75,10,3)="Enter the date and time that the transaction was processed in Austin."
^DD(443.75,10,23,0)="^^8^8^2960611^"
^DD(443.75,10,23,1,0)="This is the date and time that Austin evaluated the PHA, or RFQ or TXT"
^DD(443.75,10,23,2,0)="transactions sent to them."
^DD(443.75,10,23,3,0)="   "
^DD(443.75,10,23,4,0)="If the transaction was accepted this data is returned in the ACT"
^DD(443.75,10,23,5,0)="transaction."
^DD(443.75,10,23,6,0)="   "
^DD(443.75,10,23,7,0)="Any problems with any of the three transactions will be reported back in"
^DD(443.75,10,23,8,0)="the PRJ transaction."
^DD(443.75,10,"DT")="2970103"
^DD(443.75,11,0)="INCORRECT SEGMENT^F^^1;3^K:$L(X)>3!($L(X)<2) X"
^DD(443.75,11,3)="Enter the INCORRECT SEGMENT field in the RJ segment of the PRJ transaction."
^DD(443.75,11,21,0)="^^3^3^2960611^"
^DD(443.75,11,21,1,0)="The data for this field comes from the INCORRECT SEGMENT field in the"
^DD(443.75,11,21,2,0)="RJ segment within the PRJ transaction.  This transaction reports"
^DD(443.75,11,21,3,0)="problems within the PHA, RFQ or TXT transactions sent to Austin."
^DD(443.75,11,"DT")="2960611"
^DD(443.75,12,0)="INCORRECT FIELD NAME^F^^1;4^K:$L(X)>30!($L(X)<1) X"
^DD(443.75,12,3)="Enter the name of the field in the outgoing transaction with the error."
^DD(443.75,12,21,0)="^^2^2^2960611^"
^DD(443.75,12,21,1,0)="Enter the name of the field within a segment in the PHA, RFQ or TXT"
^DD(443.75,12,21,2,0)="transaction that Austin considers to be in error."
^DD(443.75,12,"DT")="2960611"
^DD(443.75,13,0)="FIELD CONTAINES^F^^1;5^K:$L(X)>72!($L(X)<1) X"
^DD(443.75,13,3)="This is the data from the field Austin considers in error."
^DD(443.75,13,21,0)="^^1^1^2960611^"
^DD(443.75,13,21,1,0)="This is the data that Austin received in the INCORRECT FIELD NAME entry."
^DD(443.75,13,"DT")="2960611"
^DD(443.75,14,0)="ITEM LINE NUMBER^NJ4,0^^1;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,14,3)="Enter the LINE ITEM NUMBER with the error."
^DD(443.75,14,21,0)="^^2^2^2960611^"
^DD(443.75,14,21,1,0)="This is the LINE ITEM NUMBER from the IT segment of the PHA or RFQ"
^DD(443.75,14,21,2,0)="transaction with the error."
^DD(443.75,14,"DT")="2960611"
^DD(443.75,15,0)="REJECT REASON CODE^P443.76'^PRC(443.76,^1;7^Q"
^DD(443.75,15,3)="Enter the REJECT REASON from the PRJ transaction."
^DD(443.75,15,21,0)="^^3^3^2960619^^"
^DD(443.75,15,21,1,0)="Enter the REJECT REASON value from the RJ segment within the PRJ"
^DD(443.75,15,21,2,0)="transaction.  This is the explination about the error within the PHA,"
^DD(443.75,15,21,3,0)="RFQ or TXT transaction sent to Austin."
^DD(443.75,15,"DT")="2960611"
^DD(443.75,16,0)="DESCRIPTION LINE NUMBER^NJ4,0^^1;8^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,16,3)="Enter the DESCRIPTION LINE NUMBER of the DE segment with the error."
^DD(443.75,16,21,0)="^^2^2^2960611^"
^DD(443.75,16,21,1,0)="Enter the line number of the DE segment with the problem reported from"
^DD(443.75,16,21,2,0)="Austin."
^DD(443.75,16,"DT")="2960611"
^DD(443.75,17,0)="DE SEQUENCE NUMBER^NJ3,0^^1;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,17,3)="Enter the DE SEQUENCE NUMBER that has the error."
^DD(443.75,17,21,0)="^^2^2^2960611^^^"
^DD(443.75,17,21,1,0)="Enter the number from the DE SEQUENCE NUMBER in the RJ segment within the"
^DD(443.75,17,21,2,0)="PRJ transaction from Austin."
^DD(443.75,17,"DT")="2960611"
^DD(443.75,18,0)="CO SEQUENCE NUMBER^NJ3,0^^1;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,18,3)="Enter the CO SEQUENCE NUMBER for the comment line with the error."
^DD(443.75,18,21,0)="^^2^2^2960611^"
^DD(443.75,18,21,1,0)="Enter the CO SEQUENCE NO. field from the RJ segment within the PRJ"
^DD(443.75,18,21,2,0)="transaction comming from Austin."
^DD(443.75,18,"DT")="2960611"
^DD(443.75,19,0)="TRANSACTION ERROR^S^E:ERROR IN TRANSACTION;R:REPAIRED TRANSACTION;^1;11^Q"
^DD(443.75,19,21,0)="^^3^3^2960612^^"
^DD(443.75,19,21,1,0)="This field is set if there is a problem with the incomming transaction."
^DD(443.75,19,21,2,0)="Once the problem with the record is corrected this field should be"
^DD(443.75,19,21,3,0)="changed to REPAIRED TRANSACTION."
^DD(443.75,19,23,0)="^^3^3^2960612^"
^DD(443.75,19,23,1,0)="This field will be set to E if a mailman message is sent out because there"
^DD(443.75,19,23,2,0)="is some problem with the outgoing transaction that the incomming transaction"
^DD(443.75,19,23,3,0)="is reporting."
^DD(443.75,19,"DT")="2960612"
^DD(443.75,20,0)="ERROR REASON^F^^1;12^K:$L(X)>30!($L(X)<1) X"
^DD(443.75,20,3)="Enter the reason code reference."
^DD(443.75,20,23,0)="^^9^9^2960612^"
^DD(443.75,20,23,1,0)="This field will have the reference number belonging to the reason"
^DD(443.75,20,23,2,0)="appearing on the mailman message informing the users about a problem"
^DD(443.75,20,23,3,0)="with this incomming transaction."
^DD(443.75,20,23,4,0)="   "
^DD(443.75,20,23,5,0)="If this field contains 'A(NUMBER)', the (NUMBER) is the position in the"
^DD(443.75,20,23,6,0)="list of ERROR messages in PRCOACT."
^DD(443.75,20,23,7,0)="   "
^DD(443.75,20,23,8,0)="If this field contains '^' separated '*'s extract the error text from"
^DD(443.75,20,23,9,0)="PRCOESE1.  Use the TEXT entry in PRCOESE1 to fetch the error text."
^DD(443.75,20,"DT")="2960612"
^DD(443.75,21,0)="TOTAL NUMBER^NJ3,0^^1;13^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,21,3)="Enter the Total Number of TR or RJ segments for ACT or PRJ transactions.  Enter the Line Count value in the HE segment for POA transactions."
^DD(443.75,21,23,0)="^^6^6^2960614^^"
^DD(443.75,21,23,1,0)="The data for this field comes from the TOTAL OF PHA/RFQ/TXT"
^DD(443.75,21,23,2,0)="ACCEPTED/REJECTED field in the AT segment within the ACT or PRJ"
^DD(443.75,21,23,3,0)="transactions."
^DD(443.75,21,23,4,0)="   "
^DD(443.75,21,23,5,0)="The data for this field comes from the LINE COUNT field in the HE segment"
^DD(443.75,21,23,6,0)="within the POA transaction."
^DD(443.75,21,"DT")="2960614"
^DD(443.75,22,0)="SEQUENCE NUMBER^NJ3,0^^1;14^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(443.75,22,3)="Enter the SEQUENCE NUMBER of this PO/RFQ."
^DD(443.75,22,23,0)="^^5^5^2960614^"
^DD(443.75,22,23,1,0)="The data for this field comes from the SEQUENCE NUMBER field of the TR or"
^DD(443.75,22,23,2,0)="RJ segment in the ACT or PRJ transactions."
^DD(443.75,22,23,3,0)="   "
^DD(443.75,22,23,4,0)="The POA transaction has no sequential number field to use.  The data for"
^DD(443.75,22,23,5,0)="this field will be a count of al IT segments within a POA transaction."
^DD(443.75,22,"DT")="2960614"
^DD(443.75,23,0)="POA TRANSACTION^S^POA:POA;^1;15^Q"
^DD(443.75,23,1,0)="^.1"
^DD(443.75,23,1,1,0)="^^TRIGGER^443.75^25"
^DD(443.75,23,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.75,D0,1)):^(1),1:"""") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV S X=3 X ^DD(443.75,23,1,1,1.4)"
^DD(443.75,23,1,1,1.4)="S DIH=$S($D(^PRC(443.75,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,17)=DIV,DIH=443.75,DIG=25 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.75,23,1,1,2)="Q"
^DD(443.75,23,1,1,"%D",0)="^^2^2^2960628^"
^DD(443.75,23,1,1,"%D",1,0)="This cross-reference updates the PROGRESS LEVEL when a vendor acknowledges"
^DD(443.75,23,1,1,"%D",2,0)="an EDI order."
^DD(443.75,23,1,1,"CREATE VALUE")="S X=3"
^DD(443.75,23,1,1,"DELETE VALUE")="NO EFFECT"
^DD(443.75,23,1,1,"DT")="2960628"
^DD(443.75,23,1,1,"FIELD")="PROGRESS LEVEL"
^DD(443.75,23,1,2,0)="443.75^AMX23^MUMPS"
^DD(443.75,23,1,2,1)="D S5^PRCOEDI2"
^DD(443.75,23,1,2,2)="D K5^PRCOEDI2"
^DD(443.75,23,1,2,"%D",0)="^^16^16^2981030^"
^DD(443.75,23,1,2,"%D",1,0)=" This x-ref will set or kill the 'AM' x-ref along with 'AM' x-ref in field"
^DD(443.75,23,1,2,"%D",2,0)=" 24 and 'AMX25' x-ref in field 25."
^DD(443.75,23,1,2,"%D",3,0)=" "
^DD(443.75,23,1,2,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,23,1,2,"%D",5,0)=" "
^DD(443.75,23,1,2,"%D",6,0)=" ^PRC(443.75,""AM"",PROGRESS LEVEL,POA TRANSACTION,DATE/TIME SENT,DA)="""""
^DD(443.75,23,1,2,"%D",7,0)=" "
^DD(443.75,23,1,2,"%D",8,0)=" Where PROGRESS LEVEL will equal 3"
^DD(443.75,23,1,2,"%D",9,0)=" "
^DD(443.75,23,1,2,"%D",10,0)=" This cross-reference will remove the ""AL"" cross-reference for record"
^DD(443.75,23,1,2,"%D",11,0)=" DA during the SET of ""AMX23"", when PROGRESS LEVEL is equal to 2 in the"
^DD(443.75,23,1,2,"%D",12,0)=" ""AL"" cross-reference."
^DD(443.75,23,1,2,"%D",13,0)=" "
^DD(443.75,23,1,2,"%D",14,0)=" This cross-reference will restore the ""AL"" cross-reference for record"
^DD(443.75,23,1,2,"%D",15,0)=" DA during the KILL of ""AMX23"", setting PROGRESS LEVEL to 2 in the ""AL"""
^DD(443.75,23,1,2,"%D",16,0)=" cross-reference."
^DD(443.75,23,1,2,"DT")="2970122"
^DD(443.75,23,1,3,0)="443.75^AM1X23^MUMPS"
^DD(443.75,23,1,3,1)="D S6^PRCOEDI2"
^DD(443.75,23,1,3,2)="D K6^PRCOEDI2"
^DD(443.75,23,1,3,"%D",0)="^^17^17^2981030^"
^DD(443.75,23,1,3,"%D",1,0)=" This x-ref will set or kill the 'AM1' x-ref along with 'AM1X55' x-ref in"
^DD(443.75,23,1,3,"%D",2,0)=" field 5.5, 'AM1' x-ref in field 24 and 'AM1X25' x-ref in field 25."
^DD(443.75,23,1,3,"%D",3,0)=" "
^DD(443.75,23,1,3,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,23,1,3,"%D",5,0)=" "
^DD(443.75,23,1,3,"%D",6,0)=" ^PRC(443.75,""AM1"",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME"
^DD(443.75,23,1,3,"%D",7,0)="  SENT,DA)="""""
^DD(443.75,23,1,3,"%D",8,0)=" "
^DD(443.75,23,1,3,"%D",9,0)=" Where PROGRESS LEVEL will equal 3"
^DD(443.75,23,1,3,"%D",10,0)=" "
^DD(443.75,23,1,3,"%D",11,0)=" This cross-reference will remove the ""AL1"" cross-reference for record"
^DD(443.75,23,1,3,"%D",12,0)=" DA during the SET of ""AM1X23"", when PROGRESS LEVEL is equal to 2 in the"
^DD(443.75,23,1,3,"%D",13,0)=" ""AL1"" cross-reference."
^DD(443.75,23,1,3,"%D",14,0)=" "
^DD(443.75,23,1,3,"%D",15,0)=" This cross-reference will restore the ""AL1"" cross-reference for record"
^DD(443.75,23,1,3,"%D",16,0)=" DA during the KILL of ""AM1X23"", setting PROGRESS LEVEL to 2 in the ""AL1"""
^DD(443.75,23,1,3,"%D",17,0)=" cross-reference."
^DD(443.75,23,1,3,"DT")="2970122"
^DD(443.75,23,21,0)="^^2^2^2960923^"
^DD(443.75,23,21,1,0)="Indicates entry is associated with a Purchase Order Acknowledgement (POA)"
^DD(443.75,23,21,2,0)="transaction from the vendor."
^DD(443.75,23,23,0)="^^1^1^2960923^^"
^DD(443.75,23,23,1,0)="The POA type comes from the POA transaction from the vendor through Austin."
^DD(443.75,23,"DT")="2970122"
^DD(443.75,24,0)="DATE/TIME SENT^D^^1;16^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.75,24,1,0)="^.1"
^DD(443.75,24,1,1,0)="443.75^AM^MUMPS"
^DD(443.75,24,1,1,1)="D S13^PRCOEDIS"
^DD(443.75,24,1,1,2)="D K13^PRCOEDIS"
^DD(443.75,24,1,1,"%D",0)="^^16^16^2981030^"
^DD(443.75,24,1,1,"%D",1,0)=" This cross-reference lists all orders that have been acknowledged by the"
^DD(443.75,24,1,1,"%D",2,0)=" vendor in date/time sequence."
^DD(443.75,24,1,1,"%D",3,0)=" "
^DD(443.75,24,1,1,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,24,1,1,"%D",5,0)=" "
^DD(443.75,24,1,1,"%D",6,0)=" ^PRC(443.75,""AM"",PROGRESS LEVEL,POA TRANSACTION,DATE/TIME SENT,DA)="""""
^DD(443.75,24,1,1,"%D",7,0)=" "
^DD(443.75,24,1,1,"%D",8,0)=" Where PROGRESS LEVEL will equal 3"
^DD(443.75,24,1,1,"%D",9,0)=" "
^DD(443.75,24,1,1,"%D",10,0)=" This cross-reference will remove the ""AL"" cross-reference for record"
^DD(443.75,24,1,1,"%D",11,0)=" DA during the SET of ""AM"", when PROGRESS LEVEL is equal to 2 in the"
^DD(443.75,24,1,1,"%D",12,0)=" ""AL"" cross-reference."
^DD(443.75,24,1,1,"%D",13,0)="     "
^DD(443.75,24,1,1,"%D",14,0)=" This cross-reference will restore the ""AL"" cross-reference for record"
^DD(443.75,24,1,1,"%D",15,0)=" DA during the KILL of ""AM"", setting PROGRESS LEVEL to 2 in the ""AL"""
^DD(443.75,24,1,1,"%D",16,0)=" cross-reference."
^DD(443.75,24,1,1,"DT")="2960628"
^DD(443.75,24,1,2,0)="443.75^AM1^MUMPS"
^DD(443.75,24,1,2,1)="D S2^PRCOEDI2"
^DD(443.75,24,1,2,2)="D K2^PRCOEDI2"
^DD(443.75,24,1,2,"%D",0)="^^17^17^2981030^^"
^DD(443.75,24,1,2,"%D",1,0)=" This cross reference lists all orders that have been acknowledged by the"
^DD(443.75,24,1,2,"%D",2,0)=" vendor in date time sequence.  All entries are sorted by SENDER."
^DD(443.75,24,1,2,"%D",3,0)=" "
^DD(443.75,24,1,2,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,24,1,2,"%D",5,0)=" "
^DD(443.75,24,1,2,"%D",6,0)=" ^PRC(443.75,""AM1"",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME"
^DD(443.75,24,1,2,"%D",7,0)="  SENT,DA)="""""
^DD(443.75,24,1,2,"%D",8,0)=" "
^DD(443.75,24,1,2,"%D",9,0)=" Where PROGRESS LEVEL will equal 3"
^DD(443.75,24,1,2,"%D",10,0)=" "
^DD(443.75,24,1,2,"%D",11,0)=" This cross-reference will remove the ""AL1"" cross-reference for record"
^DD(443.75,24,1,2,"%D",12,0)=" DA during the SET of ""AM1"", when PROGRESS LEVEL is equal to 2 in the"
^DD(443.75,24,1,2,"%D",13,0)=" ""AL1"" cross-reference."
^DD(443.75,24,1,2,"%D",14,0)=" "
^DD(443.75,24,1,2,"%D",15,0)=" This cross-reference will restore the ""AL1"" cross-reference for record"
^DD(443.75,24,1,2,"%D",16,0)=" DA during the KILL of ""AM1"", setting PROGRESS LEVEL to 2 in the ""AL1"""
^DD(443.75,24,1,2,"%D",17,0)=" cross-reference."
^DD(443.75,24,1,2,"DT")="2970103"
^DD(443.75,24,23,0)="^^3^3^2960617^"
^DD(443.75,24,23,1,0)="This is the date and time that the POA transaction was created in Austin."
^DD(443.75,24,23,2,0)="This date and time will be after the vendor sent the PHA acknowledgement"
^DD(443.75,24,23,3,0)="to Austin."
^DD(443.75,24,"DT")="2970103"
^DD(443.75,25,0)="PROGRESS LEVEL^S^1:SENT FROM IFCAP;2:RECEIVED FROM IFCAP (ACCEPTED OR REJECTED);3:STATUS FROM VENDOR;^1;17^Q"
^DD(443.75,25,1,0)="^.1"
^DD(443.75,25,1,1,0)="443.75^AK"
^DD(443.75,25,1,1,1)="S ^PRC(443.75,""AK"",$E(X,1,30),DA)="""""
^DD(443.75,25,1,1,2)="K ^PRC(443.75,""AK"",$E(X,1,30),DA)"
^DD(443.75,25,1,1,"%D",0)="^^3^3^2981102^^^^"
^DD(443.75,25,1,1,"%D",1,0)="This cross-reference keeps track of the progress of the transaction"
^DD(443.75,25,1,1,"%D",2,0)="from creation by IFCAP to acceptance or rejection by Austin through"
^DD(443.75,25,1,1,"%D",3,0)="acknowledgement by the vendor."
^DD(443.75,25,1,1,"DT")="2960620"
^DD(443.75,25,1,2,0)="443.75^AJ1X25^MUMPS"
^DD(443.75,25,1,2,1)="D S7^PRCOEDI1"
^DD(443.75,25,1,2,2)="D K7^PRCOEDI1"
^DD(443.75,25,1,2,"%D",0)="^^11^11^2981105^^^"
^DD(443.75,25,1,2,"%D",1,0)=" "
^DD(443.75,25,1,2,"%D",2,0)=" "
^DD(443.75,25,1,2,"%D",3,0)="   This x-ref will set or kill the 'AJ1' x-ref along with 'AJ1X3' x-ref in"
^DD(443.75,25,1,2,"%D",4,0)="   field 3, 'AJ1X55' x-ref in field 5.5 and 'AJ1' x-ref in field 6."
^DD(443.75,25,1,2,"%D",5,0)="     "
^DD(443.75,25,1,2,"%D",6,0)="   This cross-reference will look like:"
^DD(443.75,25,1,2,"%D",7,0)="     "
^DD(443.75,25,1,2,"%D",8,0)="   ^PRC(443.75,""AJ1"",PROGRESS LEVEL,SENDER,TYPE OF TRANSACTION, DATE/TIME"
^DD(443.75,25,1,2,"%D",9,0)="   CREATED,DA)="""""
^DD(443.75,25,1,2,"%D",10,0)="     "
^DD(443.75,25,1,2,"%D",11,0)="   Where PROGRESS LEVEL will equal 1"
^DD(443.75,25,1,2,"DT")="2970122"
^DD(443.75,25,1,3,0)="443.75^ALX25^MUMPS"
^DD(443.75,25,1,3,1)="D S8^PRCOEDI1"
^DD(443.75,25,1,3,2)="D K8^PRCOEDI1"
^DD(443.75,25,1,3,"%D",0)="^^17^17^2981102^^^^"
^DD(443.75,25,1,3,"%D",1,0)=" This x-ref will set or kill the 'AL' x-ref along with 'ALX9' x-ref in"
^DD(443.75,25,1,3,"%D",2,0)=" field 9 and 'AL' x-ref in field 10."
^DD(443.75,25,1,3,"%D",3,0)="     "
^DD(443.75,25,1,3,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,25,1,3,"%D",5,0)="     "
^DD(443.75,25,1,3,"%D",6,0)=" ^PRC(443.75,""AL"",PROGRESS LEVEL,INCOMMING TYPE OF TRANSACTION,"
^DD(443.75,25,1,3,"%D",7,0)="  DATE/TIME PROCESSED,DA)="""""
^DD(443.75,25,1,3,"%D",8,0)="     "
^DD(443.75,25,1,3,"%D",9,0)=" Where PROGRESS LEVEL will equal 2"
^DD(443.75,25,1,3,"%D",10,0)="     "
^DD(443.75,25,1,3,"%D",11,0)=" This cross-reference will remove the ""AJ"" cross-reference for record"
^DD(443.75,25,1,3,"%D",12,0)=" DA during the SET of ""ALX25"", when PROGRESS LEVEL is equal to 1 in the"
^DD(443.75,25,1,3,"%D",13,0)=" ""AJ"" cross-reference."
^DD(443.75,25,1,3,"%D",14,0)="     "
^DD(443.75,25,1,3,"%D",15,0)=" This cross-reference will restore the ""AJ"" cross-reference for record"
^DD(443.75,25,1,3,"%D",16,0)=" DA during the KILL of ""ALX25"", setting PROGRESS LEVEL to 1 in the ""AJ"""
^DD(443.75,25,1,3,"%D",17,0)=" cross-reference."
^DD(443.75,25,1,3,"DT")="2970122"
^DD(443.75,25,1,4,0)="443.75^AL1X25^MUMPS"
^DD(443.75,25,1,4,1)="D S9^PRCOEDI1"
^DD(443.75,25,1,4,2)="D K9^PRCOEDI1"
^DD(443.75,25,1,4,"%D",0)="^^17^17^2981102^^"
^DD(443.75,25,1,4,"%D",1,0)=" This x-ref will set or kill the 'AL1' x-ref along with 'AL1X55' x-ref in"
^DD(443.75,25,1,4,"%D",2,0)=" field 5.5, 'AL1X9' x-ref in field 9 and 'AL1' x-ref in field 10."
^DD(443.75,25,1,4,"%D",3,0)="     "
^DD(443.75,25,1,4,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,25,1,4,"%D",5,0)="     "
^DD(443.75,25,1,4,"%D",6,0)=" ^PRC(443.75,""AL1"",PROGRESS LEVEL,SENDER,INCOMMING TYPE OF TRANSACTION,"
^DD(443.75,25,1,4,"%D",7,0)="  DATE/TIME PROCESSED,DA)="""""
^DD(443.75,25,1,4,"%D",8,0)="     "
^DD(443.75,25,1,4,"%D",9,0)=" Where PROGRESS LEVEL will equal 2"
^DD(443.75,25,1,4,"%D",10,0)="     "
^DD(443.75,25,1,4,"%D",11,0)=" This cross-reference will remove the ""AJ1"" cross-reference for record"
^DD(443.75,25,1,4,"%D",12,0)=" DA during the SET of ""AL1X25"", when PROGRESS LEVEL is equal to 1 in"
^DD(443.75,25,1,4,"%D",13,0)=" the ""AJ1"" cross-reference."
^DD(443.75,25,1,4,"%D",14,0)="     "
^DD(443.75,25,1,4,"%D",15,0)=" This cross-reference will restore the ""AJ1"" cross-reference for record"
^DD(443.75,25,1,4,"%D",16,0)=" DA during the KILL of ""AL1X25"", setting PROGRESS LEVEL to 1 in the"
^DD(443.75,25,1,4,"%D",17,0)=" ""AJ1"" cross-reference."
^DD(443.75,25,1,4,"DT")="2970122"
^DD(443.75,25,1,5,0)="443.75^AMX25^MUMPS"
^DD(443.75,25,1,5,1)="D S7^PRCOEDI2"
^DD(443.75,25,1,5,2)="D K7^PRCOEDI2"
^DD(443.75,25,1,5,"%D",0)="^^16^16^2981102^^"
^DD(443.75,25,1,5,"%D",1,0)=" This x-ref will set or kill the 'AM' x-ref along with 'AMX23' x-ref in"
^DD(443.75,25,1,5,"%D",2,0)=" field 23 and 'AM' x-ref in field 24."
^DD(443.75,25,1,5,"%D",3,0)="     "
^DD(443.75,25,1,5,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,25,1,5,"%D",5,0)="     "
^DD(443.75,25,1,5,"%D",6,0)=" ^PRC(443.75,""AM"",PROGRESS LEVEL,POA TRANSACTION,DATE/TIME SENT,DA)="""""
^DD(443.75,25,1,5,"%D",7,0)="     "
^DD(443.75,25,1,5,"%D",8,0)=" Where PROGRESS LEVEL will equal 3"
^DD(443.75,25,1,5,"%D",9,0)="     "
^DD(443.75,25,1,5,"%D",10,0)=" This cross-reference will remove the ""AL"" cross-reference for record"
^DD(443.75,25,1,5,"%D",11,0)=" DA during the SET of ""AMX25"", when PROGRESS LEVEL is equal to 2 in"
^DD(443.75,25,1,5,"%D",12,0)=" the ""AL"" cross-reference."
^DD(443.75,25,1,5,"%D",13,0)="     "
^DD(443.75,25,1,5,"%D",14,0)=" This cross-reference will restore the ""AL"" cross-reference for record"
^DD(443.75,25,1,5,"%D",15,0)=" DA during the KILL of ""AMX25"", setting PROGRESS LEVEL to 2 in the ""AL"""
^DD(443.75,25,1,5,"%D",16,0)=" cross-reference."
^DD(443.75,25,1,5,"DT")="2970122"
^DD(443.75,25,1,6,0)="443.75^AJX25^MUMPS"
^DD(443.75,25,1,6,1)="D S6^PRCOEDI1"
^DD(443.75,25,1,6,2)="D K6^PRCOEDI1"
^DD(443.75,25,1,6,"%D",0)="^^9^9^2981102^^"
^DD(443.75,25,1,6,"%D",1,0)=" This x-ref will set or kill the 'AJ' x-ref along with 'AJX3' x-ref in "
^DD(443.75,25,1,6,"%D",2,0)=" field 3 and 'AJX25' in field 25."
^DD(443.75,25,1,6,"%D",3,0)="     "
^DD(443.75,25,1,6,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,25,1,6,"%D",5,0)="     "
^DD(443.75,25,1,6,"%D",6,0)=" ^PRC(443.75,""AJ"",PROGRESS LEVEL,TYPE OF TRANSACTION,DATE/TIME CREATED,"
^DD(443.75,25,1,6,"%D",7,0)="  DA)="""""
^DD(443.75,25,1,6,"%D",8,0)="     "
^DD(443.75,25,1,6,"%D",9,0)=" Where PROGRESS LEVEL will equal 1"
^DD(443.75,25,1,6,"DT")="2970122"
^DD(443.75,25,1,7,0)="443.75^AM1X25^MUMPS"
^DD(443.75,25,1,7,1)="D S8^PRCOEDI2"
^DD(443.75,25,1,7,2)="D K8^PRCOEDI2"
^DD(443.75,25,1,7,"%D",0)="^^17^17^2981102^^^"
^DD(443.75,25,1,7,"%D",1,0)=" This x-ref will set or kill the 'AM1' x-ref along with 'AM1X55' x-ref in"
^DD(443.75,25,1,7,"%D",2,0)=" field 5.5, 'AM1X23' x-ref in field 23 and 'AM1' x-ref in field 24."
^DD(443.75,25,1,7,"%D",3,0)="     "
^DD(443.75,25,1,7,"%D",4,0)=" This cross-reference will look like:"
^DD(443.75,25,1,7,"%D",5,0)="     "
^DD(443.75,25,1,7,"%D",6,0)=" ^PRC(443.75,""AM1"",PROGRESS LEVEL,SENDER,POA TRANSACTION,DATE/TIME"
^DD(443.75,25,1,7,"%D",7,0)="  SENT,DA)="""""
^DD(443.75,25,1,7,"%D",8,0)="     "
^DD(443.75,25,1,7,"%D",9,0)=" Where PROGRESS LEVEL will equal 3"
^DD(443.75,25,1,7,"%D",10,0)="     "
^DD(443.75,25,1,7,"%D",11,0)=" This cross-reference will remove the ""AL1"" cross-reference for record"
^DD(443.75,25,1,7,"%D",12,0)=" DA during the SET of ""AM1X25"", when PROGRESS LEVEL is equal to 2 in"
^DD(443.75,25,1,7,"%D",13,0)=" the ""AL1"" cross-reference."
^DD(443.75,25,1,7,"%D",14,0)="     "
^DD(443.75,25,1,7,"%D",15,0)=" This cross-reference will restore the ""AL1"" cross-reference for record"
^DD(443.75,25,1,7,"%D",16,0)=" DA during the KILL of ""AM1X25"", setting PROGRESS LEVEL to 2 in the ""AL1"""
^DD(443.75,25,1,7,"%D",17,0)=" cross-reference."
^DD(443.75,25,1,7,"DT")="2970122"
^DD(443.75,25,5,1,0)="443.75^23^1"
^DD(443.75,25,5,2,0)="443.75^3^3"
^DD(443.75,25,5,3,0)="443.75^9^1"
^DD(443.75,25,9)="^"
^DD(443.75,25,23,0)="^^10^10^2960620^"
^DD(443.75,25,23,1,0)="This field will keep track of the progress of the transaction from IFCAP"
^DD(443.75,25,23,2,0)="through Austin and on to the vendor."
^DD(443.75,25,23,3,0)="   "
^DD(443.75,25,23,4,0)="Level 1 means that the transaction has been sent from the local site."
^DD(443.75,25,23,5,0)="   "
^DD(443.75,25,23,6,0)="Level 2 states that the transaction from level 1 has been received in"
^DD(443.75,25,23,7,0)="Austin and accepted or rejected."
^DD(443.75,25,23,8,0)="   "
^DD(443.75,25,23,9,0)="Level 3 informs that the accepted transaction from level 2 has gone to"
^DD(443.75,25,23,10,0)="the vendor and the vendor is sending back the order status."
^DD(443.75,25,"DT")="2970122"
^DD(443.75,26,0)="POA ERROR^443.7526A^^ERR;0"
^DD(443.75,"B","CO SEQUENCE NUMBER",18)=""
^DD(443.75,"B","DATE/TIME CREATED",6)=""
^DD(443.75,"B","DATE/TIME PROCESSED",10)=""
^DD(443.75,"B","DATE/TIME SENT",24)=""
^DD(443.75,"B","DE SEQUENCE NUMBER",17)=""
^DD(443.75,"B","DESCRIPTION LINE NUMBER",16)=""
^DD(443.75,"B","ERROR REASON",20)=""
^DD(443.75,"B","FIELD CONTAINES",13)=""
^DD(443.75,"B","INCOMMING TYPE OF TRANSACTION",9)=""
^DD(443.75,"B","INCORRECT FIELD NAME",12)=""
^DD(443.75,"B","INCORRECT SEGMENT",11)=""
^DD(443.75,"B","ITEM LINE NUMBER",14)=""
^DD(443.75,"B","MAIL MESSAGE NUMBER",4)=""
^DD(443.75,"B","PO POINTER",7)=""
^DD(443.75,"B","PO/RFQ NUMBER",1)=""
^DD(443.75,"B","POA ERROR",26)=""
^DD(443.75,"B","POA TRANSACTION",23)=""
^DD(443.75,"B","PROGRESS LEVEL",25)=""
^DD(443.75,"B","REJECT REASON CODE",15)=""
^DD(443.75,"B","RFQ",6.5)=""
^DD(443.75,"B","RFQ/TXT POINTER",8)=""
^DD(443.75,"B","SENDER",5.5)=""
^DD(443.75,"B","SEQUENCE NUMBER",22)=""
^DD(443.75,"B","SEQUENTIAL ENTRY NUMBER",.01)=""
^DD(443.75,"B","TOTAL NUMBER",21)=""
^DD(443.75,"B","TRANSACTION ERROR",19)=""
^DD(443.75,"B","TXT MESSAGE NUMBER",2)=""
^DD(443.75,"B","TYPE OF TRANSACTION",3)=""
^DD(443.75,"B","VENDOR ID NUMBER",5)=""
^DD(443.75,"GL",0,1,.01)=""
^DD(443.75,"GL",0,2,1)=""
^DD(443.75,"GL",0,3,2)=""
^DD(443.75,"GL",0,4,3)=""
^DD(443.75,"GL",0,5,4)=""
^DD(443.75,"GL",0,6,5)=""
^DD(443.75,"GL",0,7,6)=""
^DD(443.75,"GL",0,8,7)=""
^DD(443.75,"GL",0,9,8)=""
^DD(443.75,"GL",0,10,6.5)=""
^DD(443.75,"GL",0,11,5.5)=""
^DD(443.75,"GL",1,1,9)=""
^DD(443.75,"GL",1,2,10)=""
^DD(443.75,"GL",1,3,11)=""
^DD(443.75,"GL",1,4,12)=""
^DD(443.75,"GL",1,5,13)=""
^DD(443.75,"GL",1,6,14)=""
^DD(443.75,"GL",1,7,15)=""
^DD(443.75,"GL",1,8,16)=""
^DD(443.75,"GL",1,9,17)=""
^DD(443.75,"GL",1,10,18)=""
^DD(443.75,"GL",1,11,19)=""
^DD(443.75,"GL",1,12,20)=""
^DD(443.75,"GL",1,13,21)=""
^DD(443.75,"GL",1,14,22)=""
^DD(443.75,"GL",1,15,23)=""
^DD(443.75,"GL",1,16,24)=""
^DD(443.75,"GL",1,17,25)=""
^DD(443.75,"GL","ERR",0,26)=""
^DD(443.75,"IX",.01)=""
^DD(443.75,"IX",1)=""
^DD(443.75,"IX",2)=""
^DD(443.75,"IX",3)=""
^DD(443.75,"IX",5)=""
^DD(443.75,"IX",5.5)=""
^DD(443.75,"IX",6)=""
^DD(443.75,"IX",6.5)=""
^DD(443.75,"IX",9)=""
^DD(443.75,"IX",10)=""
^DD(443.75,"IX",23)=""
^DD(443.75,"IX",24)=""
^DD(443.75,"IX",25)=""
^DD(443.75,"RQ",.01)=""
^DD(443.75,"SB",443.7526,26)=""
^DD(443.7526,0)="POA ERROR SUB-FIELD^^.01^1"
^DD(443.7526,0,"DT")="2960827"
^DD(443.7526,0,"NM","POA ERROR")=""
^DD(443.7526,0,"UP")="443.75"
^DD(443.7526,.01,0)="POA ERROR^F^^0;1^K:$L(X)>80!($L(X)<2) X"
^DD(443.7526,.01,1,0)="^.1^^0"
^DD(443.7526,.01,3)="Answer must be 2-80 characters in length."
^DD(443.7526,.01,21,0)="^^2^2^2960827^"
^DD(443.7526,.01,21,1,0)="This field is populated in routine PRCOESE1 based on data returned"
^DD(443.7526,.01,21,2,0)="by the vendor through EDI."
^DD(443.7526,.01,"DT")="2960827"
^DD(443.7526,"B","POA ERROR",.01)=""
^DD(443.7526,"GL",0,1,.01)=""
^DD(443.76,0)="FIELD^^3^4"
^DD(443.76,0,"DDA")="N"
^DD(443.76,0,"DT")="2960603"
^DD(443.76,0,"IX","B",443.76,.01)=""
^DD(443.76,0,"NM","EDI ERROR CODES")=""
^DD(443.76,0,"PT",443.75,15)=""
^DD(443.76,0,"VR")="5.1"
^DD(443.76,0,"VRPK")="IFCAP"
^DD(443.76,.01,0)="ERROR CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(443.76,.01,1,0)="^.1"
^DD(443.76,.01,1,1,0)="443.76^B"
^DD(443.76,.01,1,1,1)="S ^PRC(443.76,""B"",$E(X,1,30),DA)="""""
^DD(443.76,.01,1,1,2)="K ^PRC(443.76,""B"",$E(X,1,30),DA)"
^DD(443.76,.01,1,2,0)="^^TRIGGER^443.76^2"
^DD(443.76,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.76,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(443.76,.01,1,2,1.4)"
^DD(443.76,.01,1,2,1.4)="S DIH=$S($D(^PRC(443.76,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=443.76,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.76,.01,1,2,2)="Q"
^DD(443.76,.01,1,2,"%D",0)="^^2^2^2960520^"
^DD(443.76,.01,1,2,"%D",1,0)="This will automatically set the PERSON ENTERING CODE field whenever"
^DD(443.76,.01,1,2,"%D",2,0)="someone enters an ERROR CODE."
^DD(443.76,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(443.76,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(443.76,.01,1,2,"DT")="2960520"
^DD(443.76,.01,1,2,"FIELD")="PERSON ENTERING CODE"
^DD(443.76,.01,1,3,0)="^^TRIGGER^443.76^3"
^DD(443.76,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.76,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(443.76,.01,1,3,1.1) X ^DD(443.76,.01,1,3,1.4)"
^DD(443.76,.01,1,3,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(443.76,.01,1,3,1.4)="S DIH=$S($D(^PRC(443.76,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.76,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(443.76,.01,1,3,2)="Q"
^DD(443.76,.01,1,3,"%D",0)="^^2^2^2960520^"
^DD(443.76,.01,1,3,"%D",1,0)="This will automatically set the DATE AND TIME ENTERED field whenever"
^DD(443.76,.01,1,3,"%D",2,0)="the ERROR CODE field is set."
^DD(443.76,.01,1,3,"CREATE VALUE")="NOW"
^DD(443.76,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(443.76,.01,1,3,"DT")="2960520"
^DD(443.76,.01,1,3,"FIELD")="DATE AND TIME ENTERED"
^DD(443.76,.01,3)="Enter Reject Reason Code (1-2 characters)."
^DD(443.76,.01,21,0)="^^2^2^2960610^^"
^DD(443.76,.01,21,1,0)="This field holds error codes for ""ACT"", ""PHA"" or ""PRJ"" transactions from"
^DD(443.76,.01,21,2,0)="Austin."
^DD(443.76,.01,23,0)="^^3^3^2960610^^"
^DD(443.76,.01,23,1,0)="It is 2 character alphanumeric field.  This field is being pointed to"
^DD(443.76,.01,23,2,0)="from the EDI STATUS FILE (#443.75) by the REJECT REASON CODE (#9 in"
^DD(443.76,.01,23,3,0)="sub-file  #443.755) field."
^DD(443.76,.01,"DT")="2960603"
^DD(443.76,1,0)="REJECT REASON^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(443.76,1,3)="Enter English phrase for the ERROR CODE."
^DD(443.76,1,21,0)="^^1^1^2960517^"
^DD(443.76,1,21,1,0)="This is a phrase in English that describes the ERROR CODE in the .01 field."
^DD(443.76,1,"DT")="2960603"
^DD(443.76,2,0)="PERSON ENTERING CODE^P200'^VA(200,^0;3^Q"
^DD(443.76,2,3)="Please enter the name of the person who entered this ERROR CODE."
^DD(443.76,2,5,1,0)="443.76^.01^2"
^DD(443.76,2,9)="^"
^DD(443.76,2,"DT")="2960517"
^DD(443.76,3,0)="DATE AND TIME ENTERED^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(443.76,3,3)="Please enter the date and time this ERROR CODE was entered/modified."
^DD(443.76,3,5,1,0)="443.76^.01^3"
^DD(443.76,3,9)="^"
^DD(443.76,3,"DT")="2960517"
^DD(443.76,"B","DATE AND TIME ENTERED",3)=""
^DD(443.76,"B","ERROR CODE",.01)=""
^DD(443.76,"B","PERSON ENTERING CODE",2)=""
^DD(443.76,"B","REJECT REASON",1)=""
^DD(443.76,"GL",0,1,.01)=""
^DD(443.76,"GL",0,2,1)=""
^DD(443.76,"GL",0,3,2)=""
^DD(443.76,"GL",0,4,3)=""
^DD(443.76,"IX",.01)=""
^DD(443.76,"RQ",.01)=""
^DD(443.8,0)="FIELD^^2^3"
^DD(443.8,0,"DDA")="N"
^DD(443.8,0,"DT")="2900809"
^DD(443.8,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(443.8,0,"IX","B",443.8,.01)=""
^DD(443.8,0,"NM","LOCAL PROCUREMENT REASON CODES")=""
^DD(443.8,0,"PT",442,.25)=""
^DD(443.8,0,"PT",443.6,.25)=""
^DD(443.8,0,"VR")="5.1"
^DD(443.8,0,"VRPK")="IFCAP"
^DD(443.8,.01,0)="CODE^RNJ2,0XI^^0;1^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(443.8,.01,1,0)="^.1"
^DD(443.8,.01,1,1,0)="443.8^B"
^DD(443.8,.01,1,1,1)="S ^PRC(443.8,""B"",$E(X,1,30),DA)="""""
^DD(443.8,.01,1,1,2)="K ^PRC(443.8,""B"",$E(X,1,30),DA)"
^DD(443.8,.01,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(443.8,.01,21,0)="^^2^2^2930408^"
^DD(443.8,.01,21,1,0)=" "
^DD(443.8,.01,21,2,0)="The code for the reason for local procurement."
^DD(443.8,.01,"DT")="2900809"
^DD(443.8,1,0)="CODE EXPANSION^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(443.8,1,3)="Answer must be 3-40 characters in length."
^DD(443.8,1,21,0)="^^2^2^2930408^"
^DD(443.8,1,21,1,0)=" "
^DD(443.8,1,21,2,0)="The brief explaination of what code means."
^DD(443.8,1,"DT")="2900809"
^DD(443.8,2,0)="DESCRIPTION^443.82^^1;0"
^DD(443.8,2,21,0)="^^2^2^2930408^"
^DD(443.8,2,21,1,0)=" "
^DD(443.8,2,21,2,0)="The description of the local procurement code."
^DD(443.8,"B","CODE",.01)=""
^DD(443.8,"B","CODE EXPANSION",1)=""
^DD(443.8,"B","DESCRIPTION",2)=""
^DD(443.8,"GL",0,1,.01)=""
^DD(443.8,"GL",0,2,1)=""
^DD(443.8,"GL",1,0,2)=""
^DD(443.8,"IX",.01)=""
^DD(443.8,"RQ",.01)=""
^DD(443.8,"SB",443.82,2)=""
^DD(443.82,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(443.82,0,"DT")="2900809"
^DD(443.82,0,"NM","DESCRIPTION")=""
^DD(443.82,0,"UP")="443.8"
^DD(443.82,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(443.82,.01,21,0)="^^2^2^2930408^"
^DD(443.82,.01,21,1,0)=" "
^DD(443.82,.01,21,2,0)="The description of the local procurement code."
^DD(443.82,.01,"DT")="2900809"
^DD(443.82,"B","DESCRIPTION",.01)=""
^DD(443.82,"GL",0,1,.01)=""
^DD(443.9,0)="FIELD^^2^4"
^DD(443.9,0,"DDA")="N"
^DD(443.9,0,"DT")="2931008"
^DD(443.9,0,"IX","AC",443.9,.5)=""
^DD(443.9,0,"IX","AD",443.9,.01)=""
^DD(443.9,0,"IX","B",443.9,.01)=""
^DD(443.9,0,"NM","IFCAP PENDING ARCHIVE")=""
^DD(443.9,0,"VR")="5.1"
^DD(443.9,0,"VRPK")="IFCAP"
^DD(443.9,.01,0)="PO NUMBER^P442'X^PRC(442,^0;1^I $D(X) S DINUM=X"
^DD(443.9,.01,1,0)="^.1"
^DD(443.9,.01,1,1,0)="443.9^B"
^DD(443.9,.01,1,1,1)="S ^PRC(443.9,""B"",$E(X,1,30),DA)="""""
^DD(443.9,.01,1,1,2)="K ^PRC(443.9,""B"",$E(X,1,30),DA)"
^DD(443.9,.01,1,2,0)="^^TRIGGER^443.9^.5"
^DD(443.9,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(443.9,.01,1,2,1.1) X ^DD(443.9,.01,1,2,1.4)"
^DD(443.9,.01,1,2,1.1)="S X=DIV S X=$S('$D(^PRC(442,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(443.9,.01,1,2,1.4)="S DIH=$S($D(^PRC(443.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.9,DIG=.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.9,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(443.9,.01,1,2,2.4)"
^DD(443.9,.01,1,2,2.4)="S DIH=$S($D(^PRC(443.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.9,DIG=.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(443.9,.01,1,2,"CREATE VALUE")="PO NUMBER"
^DD(443.9,.01,1,2,"DELETE VALUE")="@"
^DD(443.9,.01,1,2,"DT")="2930825"
^DD(443.9,.01,1,2,"FIELD")="PO NAME"
^DD(443.9,.01,1,3,0)="443.9^AD^MUMPS"
^DD(443.9,.01,1,3,1)="S ZX=$P(^PRC(442,DA,0),""^"",2),ZX=$P($G(^PRCD(442.5,+ZX,0)),""^"",2) S:ZX]"""" $P(^PRC(443.9,DA,0),""^"",3)=ZX K ZX"
^DD(443.9,.01,1,3,2)="Q"
^DD(443.9,.01,1,3,"%D",0)="^^3^3^2931008^"
^DD(443.9,.01,1,3,"%D",1,0)="This cross reference is a MUMPS trigger to place the Method of Processing"
^DD(443.9,.01,1,3,"%D",2,0)="abbreviation from file 442.5 into each record on this file.  It will be "
^DD(443.9,.01,1,3,"%D",3,0)="used to increase the speed of the lookup when purging records."
^DD(443.9,.01,1,3,"DT")="2931008"
^DD(443.9,.01,3)=""
^DD(443.9,.01,"DT")="2931008"
^DD(443.9,.5,0)="PO NAME^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(443.9,.5,1,0)="^.1"
^DD(443.9,.5,1,1,0)="443.9^AC"
^DD(443.9,.5,1,1,1)="S ^PRC(443.9,""AC"",$E(X,1,30),DA)="""""
^DD(443.9,.5,1,1,2)="K ^PRC(443.9,""AC"",$E(X,1,30),DA)"
^DD(443.9,.5,1,1,"DT")="2930825"
^DD(443.9,.5,3)="Answer must be 3-20 characters in length."
^DD(443.9,.5,5,1,0)="443.9^.01^2"
^DD(443.9,.5,"DT")="2930825"
^DD(443.9,1,0)="PURGE STATUS^S^1:ARCHIVE ONLY;2:PURGE ONLY;3:ARCHIVE & PURGE;^0;2^Q"
^DD(443.9,1,"DT")="2930923"
^DD(443.9,2,0)="MOP ABBREVIATION^F^^0;3^K:$L(X)>4!($L(X)<2) X"
^DD(443.9,2,3)="Answer must be 2-4 characters in length."
^DD(443.9,2,"DT")="2931008"
^DD(443.9,"B","MOP ABBREVIATION",2)=""
^DD(443.9,"B","PO NAME",.5)=""
^DD(443.9,"B","PO NUMBER",.01)=""
^DD(443.9,"B","PURGE STATUS",1)=""
^DD(443.9,"GL",0,1,.01)=""
^DD(443.9,"GL",0,2,1)=""
^DD(443.9,"GL",0,3,2)=""
^DD(443.9,"GL",0,4,.5)=""
^DD(443.9,"IX",.01)=""
^DD(443.9,"IX",.5)=""
^DD(444,0)="FIELD^^27^40"
^DD(444,0,"DDA")="N"
^DD(444,0,"DT")="2960828"
^DD(444,0,"ID",3.1)="W ""   "",$P(^(0),U,7)"
^DD(444,0,"ID",7)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(444,7,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,8)_"""":"""",2),$C(59),1)"")"
^DD(444,0,"ID",8)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCS(410,+$P(^(0),U,9),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(410,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(444,0,"IX","AE",444.019,21)=""
^DD(444,0,"IX","AF",444,7)=""
^DD(444,0,"IX","AH",444,7)=""
^DD(444,0,"IX","AI",444,7)=""
^DD(444,0,"IX","B",444,.01)=""
^DD(444,0,"IX","C",444.019,15)=""
^DD(444,0,"IX","D",444,.01)=""
^DD(444,0,"IX","F",444,.01)=""
^DD(444,0,"IX","QD",444,2)=""
^DD(444,0,"NM","REQUEST FOR QUOTATION")=""
^DD(444,0,"PT",443.75,8)=""
^DD(444,0,"VR")="5.1"
^DD(444,0,"VRPK")="IFCAP"
^DD(444,.01,0)="RFQ NBR^RFX^^0;1^K:X'?3N1""-""2N1""-RFQ-""5N X"
^DD(444,.01,1,0)="^.1"
^DD(444,.01,1,1,0)="444^B"
^DD(444,.01,1,1,1)="S ^PRC(444,""B"",$E(X,1,30),DA)="""""
^DD(444,.01,1,1,2)="K ^PRC(444,""B"",$E(X,1,30),DA)"
^DD(444,.01,1,2,0)="444^D^MUMPS"
^DD(444,.01,1,2,1)="S ^PRC(444,""D"",(+$P(X,""-"",4))_""-""_$P(X,""-"",2),DA)="""""
^DD(444,.01,1,2,2)="K ^PRC(444,""D"",(+$P(X,""-"",4))_""-""_$P(X,""-"",2),DA)"
^DD(444,.01,1,2,"%D",0)="^^1^1^2960513^^^^"
^DD(444,.01,1,2,"%D",1,0)="This cross reference permits lookup by Sequence Number plus Fiscal Year."
^DD(444,.01,1,2,"DT")="2960513"
^DD(444,.01,1,3,0)="444^F^MUMPS"
^DD(444,.01,1,3,1)="S:$P($G(^PRC(444,DA,0)),U,8)=1 ^PRC(444,""F"",$E(X,1,30),DA)="""""
^DD(444,.01,1,3,2)="K ^PRC(444,""F"",$E(X,1,30),DA)"
^DD(444,.01,1,3,"%D",0)="^^2^2^2960509^"
^DD(444,.01,1,3,"%D",1,0)="This cross reference is maintained by both the #.01 field and the #7"
^DD(444,.01,1,3,"%D",2,0)="(Status) field, so that it only contains INCOMPLETE RFQs."
^DD(444,.01,1,3,"DT")="2960509"
^DD(444,.01,3)="RFQ # consists of 3 digit Station #, hyphen, FY, hyphen, 'RFQ', hyphen, Seq #"
^DD(444,.01,21,0)="^^10^10^2960430^^^^"
^DD(444,.01,21,1,0)="This is the unique reference number for the Request for Quotation entry."
^DD(444,.01,21,2,0)="It is derived from the following:"
^DD(444,.01,21,3,0)="    3 digits station number, i.e. 688"
^DD(444,.01,21,4,0)="    hyphen"
^DD(444,.01,21,5,0)="    2 digits Fiscal Year, i.e. 96"
^DD(444,.01,21,6,0)="    hyphen"
^DD(444,.01,21,7,0)="    string constant 'RFQ'"
^DD(444,.01,21,8,0)="    hyphen"
^DD(444,.01,21,9,0)="    5 digits sequence counter padded on the left with zeros."
^DD(444,.01,21,10,0)="For example 688-96-RFQ-00001."
^DD(444,.01,"DT")="2960513"
^DD(444,1,0)="REFERENCE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:3941231<X!(2950101>X) X"
^DD(444,1,3)="Enter effective date for RFQ between 1 Jan 1995 and 31 Dec 2094."
^DD(444,1,21,0)="^^1^1^2960126^^"
^DD(444,1,21,1,0)="This is the effective date for the RFQ."
^DD(444,1,"DT")="2951113"
^DD(444,2,0)="QUOTE DUE DATE/TIME^RDX^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:3941231<X!(2950101>X) X I $D(X) S:$P(X,""."",2)="""" X=X_"".""_1630"
^DD(444,2,1,0)="^.1"
^DD(444,2,1,1,0)="444^QD^MUMPS"
^DD(444,2,1,1,1)="S ^PRC(444,""QD"",$P(X,"".""),DA)="""""
^DD(444,2,1,1,2)="K ^PRC(444,""QD"",$P(X,"".""),DA)"
^DD(444,2,1,1,"%D",0)="^^1^1^2960326^"
^DD(444,2,1,1,"%D",1,0)="This cross reference sorts RFQs by Quote Due Date."
^DD(444,2,1,1,"DT")="2960326"
^DD(444,2,3)="Enter a Date between 1 Jan 1995 and 31 Dec 2094 and time if not 4:30 PM."
^DD(444,2,21,0)="^^3^3^2960411^^^^"
^DD(444,2,21,1,0)="This is the date by which the vendor must submit his quote in order for"
^DD(444,2,21,2,0)="it to be considered.  The time should be entered if other than 4:30 PM"
^DD(444,2,21,3,0)="local time of that date."
^DD(444,2,"DT")="2960411"
^DD(444,3,0)="CONTRACTING OFFICER^R*P200'^VA(200,^0;4^S DIC(""S"")=""I $D(^(400)),$P(^(400),U)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(444,3,1,0)="^.1"
^DD(444,3,1,1,0)="^^TRIGGER^444^3.1"
^DD(444,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(444,3,1,1,1.1) X ^DD(444,3,1,1,1.4)"
^DD(444,3,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^VA(200,+D0,0)) D0=-1 S Y(101)=$S($D(^VA(200,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(444,3,1,1,1.4)="S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=444,DIG=3.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(444,3,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=444,DIG=3.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(444,3,1,1,"CREATE VALUE")="#3:#1"
^DD(444,3,1,1,"DELETE VALUE")="@"
^DD(444,3,1,1,"FIELD")="#3.1"
^DD(444,3,3)="Enter the name of Purchasing Agent processing this RFQ."
^DD(444,3,12)="Must be Purchasing Agent or Manager in Supply"
^DD(444,3,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U)>2"""
^DD(444,3,21,0)="^^2^2^2960411^^^"
^DD(444,3,21,1,0)="This is the person who should be contacted by the vendor if there are"
^DD(444,3,21,2,0)="questions concerning the requirements on this RFQ."
^DD(444,3,"DT")="2960820"
^DD(444,3.1,0)="INITIALS OF ADMIN CONTACT^FX^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:X'?.ANP!(X<0) X I $D(X) K:$L(X)>5!($L(X)<2)!'(X'?.N) X"
^DD(444,3.1,3)="Answer must be 2-5 characters in length."
^DD(444,3.1,5,1,0)="444^3^1"
^DD(444,3.1,21,0)="^^2^2^2960628^"
^DD(444,3.1,21,1,0)="These are the initials of the Administrative Contact/Contracting Officer/"
^DD(444,3.1,21,2,0)="Purchasing Agent assigned to this RFQ."
^DD(444,3.1,"DT")="2960628"
^DD(444,4,0)="ADMINISTRATIVE CONTACT FAX^F^^0;5^K:$L(X)>12!($L(X)<12)!'(X?3N1""-""3N1""-""4N) X"
^DD(444,4,3)="Enter the FAX number including Area Code as 3N-3N-4N."
^DD(444,4,21,0)="^^2^2^2951113^^^"
^DD(444,4,21,1,0)="This is the FAX number to which non-EDI vendors may submit quotes or"
^DD(444,4,21,2,0)="requests for additional information."
^DD(444,4,"DT")="2951113"
^DD(444,5,0)="PRIORITY OF REQUEST^S^EM:EMERGENCY;SP:SPECIAL;ST:STANDARD;^0;6^Q"
^DD(444,5,21,0)="^^2^2^2951114^^^^"
^DD(444,5,21,1,0)="Enter URGENCY best describing this RFQ; it is probably derived from the"
^DD(444,5,21,2,0)="2237's PRIORITY."
^DD(444,5,"DT")="2951114"
^DD(444,7,0)="STATUS^RS^0:CANCELLED;1:INCOMPLETE;2:PENDING QUOTES;3:CLOSED;4:EVALUATION COMPLETE;5:AWARDED;^0;8^Q"
^DD(444,7,1,0)="^.1"
^DD(444,7,1,1,0)="444^AF^MUMPS"
^DD(444,7,1,1,1)="D STATUSDT^PRCHQ1B"
^DD(444,7,1,1,2)="Q"
^DD(444,7,1,1,"%D",0)="^^1^1^2960322^"
^DD(444,7,1,1,"%D",1,0)="This cross reference triggers the status date in the appropriate field."
^DD(444,7,1,1,"DT")="2960322"
^DD(444,7,1,2,0)="444^AH"
^DD(444,7,1,2,1)="S ^PRC(444,""AH"",$E(X,1,30),DA)="""""
^DD(444,7,1,2,2)="K ^PRC(444,""AH"",$E(X,1,30),DA)"
^DD(444,7,1,2,"%D",0)="^^2^2^2960418^"
^DD(444,7,1,2,"%D",1,0)="This cross reference enables selection of RFQs by status for processing"
^DD(444,7,1,2,"%D",2,0)="i.e. closing RFQ by background process."
^DD(444,7,1,2,"DT")="2960418"
^DD(444,7,1,3,0)="444^AI^MUMPS"
^DD(444,7,1,3,1)="S:X=1 ^PRC(444,""F"",$P(^PRC(444,DA,0),U),DA)="""""
^DD(444,7,1,3,2)="K ^PRC(444,""F"",$P(^PRC(444,DA,0),U),DA)"
^DD(444,7,1,3,"%D",0)="^^2^2^2960508^"
^DD(444,7,1,3,"%D",1,0)="This ""F"" node cross reference is jointly maintained by the Status field and"
^DD(444,7,1,3,"%D",2,0)="the #.01 field so that it only contains INCOMPLETE RFQs."
^DD(444,7,1,3,"DT")="2960508"
^DD(444,7,3)="Enter the status reflecting the state of the RFQ"
^DD(444,7,21,0)="^^2^2^2960429^^^^"
^DD(444,7,21,1,0)="This field indicates where the RFQ is in the process from submission through"
^DD(444,7,21,2,0)="award."
^DD(444,7,"DT")="2960508"
^DD(444,7.5,0)="CLOSED DATE/TIME^D^^1;12^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444,7.5,3)="This is the date and time that RFQ was CLOSED."
^DD(444,7.5,21,0)="^^1^1^2960322^^"
^DD(444,7.5,21,1,0)="This field indicates when the RFQ was closed to further quotes."
^DD(444,7.5,"DT")="2960322"
^DD(444,7.6,0)="EVALUATION COMPLETE DATE/TIME^D^^1;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444,7.6,3)="This is the date and time that Evaluation of the Quotes was completed."
^DD(444,7.6,21,0)="^^1^1^2960322^"
^DD(444,7.6,21,1,0)="This field records when evaluation of the RFQ was completed."
^DD(444,7.6,"DT")="2960322"
^DD(444,7.7,0)="AWARDED DATE/TIME^D^^1;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(444,7.7,3)="This is the date and time that the winning quotes were awarded."
^DD(444,7.7,21,0)="^^1^1^2960322^"
^DD(444,7.7,21,1,0)="This records when the wining quotes were awarded."
^DD(444,7.7,"DT")="2960322"
^DD(444,7.8,0)="PENDING QUOTES DATE/TIME^D^^1;15^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444,7.8,3)="Enter Date and Time that the Status was changed to Pending Quotes."
^DD(444,7.8,21,0)="^^1^1^2960322^"
^DD(444,7.8,21,1,0)="This field indicates when the RFQ was submitted to vendor(s) for quote(s)."
^DD(444,7.8,"DT")="2960322"
^DD(444,7.9,0)="CANCEL DATE/TIME^D^^1;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444,7.9,3)="Enter Date/Time when this RFQ is cancelled."
^DD(444,7.9,21,0)="^^1^1^2960327^"
^DD(444,7.9,21,1,0)="This field records when an RFQ has been cancelled."
^DD(444,7.9,"DT")="2960327"
^DD(444,8,0)="PRIMARY 2237^RP410'^PRCS(410,^0;9^Q"
^DD(444,8,1,0)="^.1"
^DD(444,8,1,1,0)="^^TRIGGER^444^8.1"
^DD(444,8,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(444,8,1,1,1.1) X ^DD(444,8,1,1,1.4)"
^DD(444,8,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCS(410,D0,0)):^(0),1:"""") S X=$P(Y(101),U,10),X=X S X=X S D0=I(0,0)"
^DD(444,8,1,1,1.4)="S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=444,DIG=8.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(444,8,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=444,DIG=8.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(444,8,1,1,"%D",0)="^^2^2^2960503^"
^DD(444,8,1,1,"%D",1,0)="This cross reference transfers the 2237's substation to the SUBSTATION"
^DD(444,8,1,1,"%D",2,0)="field of the RFQ entry."
^DD(444,8,1,1,"CREATE VALUE")="INTERNAL(#8:#448)"
^DD(444,8,1,1,"DELETE VALUE")="@"
^DD(444,8,1,1,"DT")="2960503"
^DD(444,8,1,1,"FIELD")="#8.1"
^DD(444,8,1,2,0)="^^TRIGGER^444^8.2"
^DD(444,8,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(444,8,1,2,1.1) X ^DD(444,8,1,2,1.4)"
^DD(444,8,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^PRCS(410,+D0,0)) D0=-1 S Y(101)=$S($D(^PRCS(410,D0,3)):^(3),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(444,8,1,2,1.4)="S DIH=$S($D(^PRC(444,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=444,DIG=8.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(444,8,1,2,2)="Q"
^DD(444,8,1,2,"%D",0)="^^2^2^2960426^"
^DD(444,8,1,2,"%D",1,0)="This cross reference triggers the Primary 2237's Fund Control Point"
^DD(444,8,1,2,"%D",2,0)="into the FCP field of the RFQ entry."
^DD(444,8,1,2,"CREATE VALUE")="#8:#15"
^DD(444,8,1,2,"DELETE VALUE")="NO EFFECT"
^DD(444,8,1,2,"DT")="2960426"
^DD(444,8,1,2,"FIELD")="#8.2"
^DD(444,8,21,0)="^^2^2^2951113^"
^DD(444,8,21,1,0)="This is the initially added 2237, the one which is the basis for the RFQ"
^DD(444,8,21,2,0)="number.  This 2237 will provide the defaults for the RFQ's header information."
^DD(444,8,"DT")="2960503"
^DD(444,8.1,0)="SUBSTATION^P411'^PRC(411,^0;10^Q"
^DD(444,8.1,1,0)="^.1"
^DD(444,8.1,1,1,0)="^^TRIGGER^444^14"
^DD(444,8.1,1,1,1)="Q"
^DD(444,8.1,1,1,2)="X ^DD(444,8.1,1,1,2.3) I X S X=DIV S Y(1)=$S($D(^PRC(444,D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(444,8.1,1,1,2.4)"
^DD(444,8.1,1,1,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PRC(444,D0,0)):^(0),1:"""") S X=$S('$D(^PRC(411,+X,0)):"""",1:$P(^(0),U,1))'=$S('$D(^PRC(411,+$P(Y(1),U,10),0)):"""",1:$P(^(0),U,1))"
^DD(444,8.1,1,1,2.4)="S DIH=$S($D(^PRC(444,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=444,DIG=14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(444,8.1,1,1,"%D",0)="^^2^2^2960506^"
^DD(444,8.1,1,1,"%D",1,0)="This trigger cross reference clears the SHIP TO field (#14) whenever the"
^DD(444,8.1,1,1,"%D",2,0)="existing value in the SUBSTATION field is changed."
^DD(444,8.1,1,1,"CREATE VALUE")="NO EFFECT"
^DD(444,8.1,1,1,"DELETE CONDITION")="OLD SUBSTATION'=SUBSTATION"
^DD(444,8.1,1,1,"DELETE VALUE")="@"
^DD(444,8.1,1,1,"DT")="2960506"
^DD(444,8.1,1,1,"FIELD")="#14"
^DD(444,8.1,5,1,0)="444^8^1"
^DD(444,8.1,21,0)="^^2^2^2951113^"
^DD(444,8.1,21,1,0)="When the Primary 2237 field #8 is populated, the substation field is triggered"
^DD(444,8.1,21,2,0)="into this field if the 2237 has a substation entered in field #448."
^DD(444,8.1,"DT")="2960506"
^DD(444,8.2,0)="FCP^RFX^^0;14^K:X[""""""""!($A(X)=45) X D:$D(X) FCP^PRCHQ1B"
^DD(444,8.2,3)="Answer with Fund Control Point from Primary 2237 imported into this RFQ"
^DD(444,8.2,4)="D FCPHLP^PRCHQ1B"
^DD(444,8.2,5,1,0)="444^8^2"
^DD(444,8.2,21,0)="^^2^2^2960426^^"
^DD(444,8.2,21,1,0)="This is the Fund Control Point for this RFQ.  It is imported into this RFQ"
^DD(444,8.2,21,2,0)="entry at the time the Primary 2237 is selected."
^DD(444,8.2,"DT")="2960426"
^DD(444,9,0)="REQUESTING SERVICE^RP49'^DIC(49,^0;11^Q"
^DD(444,9,21,0)="^^1^1^2951113^^"
^DD(444,9,21,1,0)="This is the Service/Section of the Requester."
^DD(444,9,"DT")="2951113"
^DD(444,10,0)="POINT OF CONTACT^RP200'^VA(200,^0;12^Q"
^DD(444,10,21,0)="^^1^1^2951113^"
^DD(444,10,21,1,0)="This is the Requester of the goods or services."
^DD(444,10,"DT")="2951113"
^DD(444,11,0)="POINT OF CONTACT PHONE^F^^0;13^K:$L(X)>21!($L(X)<4) X"
^DD(444,11,3)="Answer must be 4-21 characters in length."
^DD(444,11,21,0)="^^1^1^2960111^^"
^DD(444,11,21,1,0)="This is the Requester's phone number plus any applicable extension."
^DD(444,11,"DT")="2960111"
^DD(444,12,0)="FOB^RS^D:DESTINATION;O:ORIGIN;^1;1^Q"
^DD(444,12,21,0)="^^4^4^2951130^^^^"
^DD(444,12,21,1,0)="This field indicates whether prices include shipping. If FOB (Freight on"
^DD(444,12,21,2,0)="Board) is Destination, there will be no additional shipping fees.  If, in"
^DD(444,12,21,3,0)="contrast, FOB is Origin, the price assumes the buyer will pick up the"
^DD(444,12,21,4,0)="item(s) at the vendor's location, and shipping incurs additional charges."
^DD(444,12,"DT")="2951130"
^DD(444,13,0)="REQD DELIVERY DATE^RD^^1;2^S %DT=""EX"" D ^%DT S X=Y K:3941231<X!(2950101>X) X"
^DD(444,13,3)="TYPE A DATE BETWEEN 1/1/1995 AND 12/31/2094"
^DD(444,13,21,0)="^^1^1^2960111^^^"
^DD(444,13,21,1,0)="This is the date by which the vendor must supply the goods or services."
^DD(444,13,"DT")="2960111"
^DD(444,14,0)="SHIP TO^NJ4,0XO^^1;3^D IT1^PRCHQ1"
^DD(444,14,2)="S Y(0)=Y D OT1^PRCHQ1"
^DD(444,14,2.1)="D OT1^PRCHQ1"
^DD(444,14,3)="Enter a Receiving Location."
^DD(444,14,4)="D EH1^PRCHQ1"
^DD(444,14,5,1,0)="444^8.1^1"
^DD(444,14,21,0)="^^1^1^2951113^^^^"
^DD(444,14,21,1,0)="This is the address for the delivery."
^DD(444,14,"DT")="2951113"
^DD(444,15,0)="DELIVER TO^F^^1;4^K:$L(X)>30!($L(X)<3) X"
^DD(444,15,3)="Enter individual's name and/or the room number receiving delivery. 3-30 chars"
^DD(444,15,21,0)="^^1^1^2951113^"
^DD(444,15,21,1,0)="This is the individual or location to which delivery should be made."
^DD(444,15,"DT")="2951113"
^DD(444,16,0)="SPECIAL REMARKS^444.016^^3;0"
^DD(444,16,21,0)="^^2^2^2951228^"
^DD(444,16,21,1,0)="These are Special Remarks for the Request, originally brought over"
^DD(444,16,21,2,0)="from the Primary 2237, but subject to subsequent editing."
^DD(444,17,0)="ADMINISTRATIVE CERTIFICATIONS^444.017^^4;0"
^DD(444,17,21,0)="^^4^4^2951228^"
^DD(444,17,21,1,0)="These are the Administrative Certifications pertaining to the RFQ.  This"
^DD(444,17,21,2,0)="field is originally populated with canned phrases selected from the"
^DD(444,17,21,3,0)="Adminstrative Certifications file (#442.7), and then subject to further"
^DD(444,17,21,4,0)="local editing."
^DD(444,17.5,0)="SET ASIDE?^S^1:YES;0:NO;^1;7^Q"
^DD(444,17.5,3)="Answer 'YES' if award influenced by set aside program (i.e. race or gender)"
^DD(444,17.5,21,0)="^^2^2^2960820^^"
^DD(444,17.5,21,1,0)="This field flags those RFQ's whose award should consider set aside programs"
^DD(444,17.5,21,2,0)="for targeted groups."
^DD(444,17.5,"DT")="2960820"
^DD(444,18,0)="JUSTIFICATION^444.018^^6;0"
^DD(444,18,21,0)="^^2^2^2951228^"
^DD(444,18,21,1,0)="This field is populated upon the completion of the evaluation of Vendors'"
^DD(444,18,21,2,0)="quotes and explains the basis of the decisions for award."
^DD(444,19,0)="ITEM^444.019^^2;0"
^DD(444,19,21,0)="^^1^1^2960705^^^^"
^DD(444,19,21,1,0)="This is the list of items submitted for the vendor's quote."
^DD(444,20,0)="SOLICITED VENDOR^444.01V^^5;0"
^DD(444,20.5,0)="TRANSMIT TO 'PUBLIC'^S^y:YES;n:NO;^1;8^Q"
^DD(444,20.5,3)=" Answer 'YES' if this RFQ is to be broadcast to all possible vendors."
^DD(444,20.5,21,0)="^^3^3^2960226^"
^DD(444,20.5,21,1,0)="A 'YES' in this field indicates that the Request for Quotation is to get"
^DD(444,20.5,21,2,0)="the widest possible exposure rather than being limited to only those"
^DD(444,20.5,21,3,0)="vendors entered into the Solicited Vendors list."
^DD(444,20.5,"DT")="2960226"
^DD(444,20.7,0)="REQUEST'S LAST EDITOR^P200'^VA(200,^1;9^Q"
^DD(444,20.7,3)="Enter the name of the last editor of the Request for Quotation data."
^DD(444,20.7,21,0)="^^2^2^2960227^"
^DD(444,20.7,21,1,0)="This is the Purchasing Agent who last edited the information on the Request"
^DD(444,20.7,21,2,0)="that will go to the vendors, soliciting their quotes."
^DD(444,20.7,"DT")="2960227"
^DD(444,20.8,0)="LAST EDIT DATE/TIME^D^^1;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444,20.8,3)="Enter the Date and Time of the last edit of Request data."
^DD(444,20.8,21,0)="^^1^1^2960227^"
^DD(444,20.8,21,1,0)="This field contains the date/time of the last edit of Request information."
^DD(444,20.8,"DT")="2960227"
^DD(444,20.9,0)="RFQ'S MAILMAN MSG #^NJ9,0^^1;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(444,20.9,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(444,20.9,21,0)="^^3^3^2960306^"
^DD(444,20.9,21,1,0)="This field contains the ID number of the MailMan message which is"
^DD(444,20.9,21,2,0)="generated in transmitting an RFQ to Austin for distribution to"
^DD(444,20.9,21,3,0)="vendors."
^DD(444,20.9,"DT")="2960306"
^DD(444,21,0)="864 MESSAGES^444.021^^7;0"
^DD(444,21,21,0)="^^1^1^2960613^^^^"
^DD(444,21,21,1,0)="This multiple contains the history of 864 transactions concerning this RFQ."
^DD(444,22,0)="MSG COUNTER^NJ3,0^^1;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444,22,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(444,22,21,0)="^^2^2^2951121^"
^DD(444,22,21,1,0)="This field is updated each time a message is added to the 864 MESSAGES"
^DD(444,22,21,2,0)="multiple.  The updated counter value is placed in the .01 field."
^DD(444,22,"DT")="2951121"
^DD(444,23,0)="OUTBOUND MSG COUNTER^NJ3,0^^1;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444,23,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(444,23,21,0)="^^2^2^2951121^"
^DD(444,23,21,1,0)="This is the counter for messages generated on this computer and going to the"
^DD(444,23,21,2,0)="vendor."
^DD(444,23,"DT")="2951121"
^DD(444,24,0)="QUOTES^444.024V^^8;0"
^DD(444,24,21,0)="^^1^1^2960607^^^^"
^DD(444,24,21,1,0)="This multiple contains the quotes submitted by the responding vendors."
^DD(444,25,0)="EVALUATOR OF QUOTES^*P200'^VA(200,^1;17^S DIC(""S"")=""I $D(^(400)),$P(^(400),U)>2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(444,25,3)="Enter the name of the Supply person evaluating the quotes for award."
^DD(444,25,12)="Must be Purchasing Agent or Manager in Supply"
^DD(444,25,12.1)="S DIC(""S"")=""I $D(^(400)),$P(^(400),U)>2"""
^DD(444,25,21,0)="^^2^2^2960417^^"
^DD(444,25,21,1,0)="This field references the Supply person who assigned vendors to the RFQ"
^DD(444,25,21,2,0)="items in preparation for making the award."
^DD(444,25,"DT")="2960417"
^DD(444,26,0)="TRANSMIT DATE/TIME^D^^1;18^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444,26,3)="Enter Date/Time that MailMan message set up with 840 data"
^DD(444,26,21,0)="^^2^2^2960419^^"
^DD(444,26,21,1,0)="This field records the last time that 840 Transaction data was loaded"
^DD(444,26,21,2,0)="into a MailMan message for transmission to Austin."
^DD(444,26,"DT")="2960419"
^DD(444,27,0)="MANUAL RFQ PRINT DATE/TIME^D^^9;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444,27,3)="Enter the Date and Time when the manual RFQ form was printed"
^DD(444,27,21,0)="^^2^2^2960828^"
^DD(444,27,21,1,0)="This field records when the Manual Request for Quotation form was printed"
^DD(444,27,21,2,0)="for distribution to potential vendors."
^DD(444,27,"DT")="2960828"
^DD(444,"B","864 MESSAGES",21)=""
^DD(444,"B","ADMINISTRATIVE CERTIFICATIONS",17)=""
^DD(444,"B","ADMINISTRATIVE CONTACT FAX",4)=""
^DD(444,"B","AWARDED DATE/TIME",7.7)=""
^DD(444,"B","CANCEL DATE/TIME",7.9)=""
^DD(444,"B","CLOSED DATE/TIME",7.5)=""
^DD(444,"B","CONTRACTING OFFICER",3)=""
^DD(444,"B","DELIVER TO",15)=""
^DD(444,"B","EVALUATION COMPLETE DATE/TIME",7.6)=""
^DD(444,"B","EVALUATOR OF QUOTES",25)=""
^DD(444,"B","FCP",8.2)=""
^DD(444,"B","FOB",12)=""
^DD(444,"B","INITIALS OF ADMIN CONTACT",3.1)=""
^DD(444,"B","ITEM",19)=""
^DD(444,"B","JUSTIFICATION",18)=""
^DD(444,"B","LAST EDIT DATE/TIME",20.8)=""
^DD(444,"B","MANUAL RFQ PRINT DATE/TIME",27)=""
^DD(444,"B","MSG COUNTER",22)=""
^DD(444,"B","OUTBOUND MSG COUNTER",23)=""
^DD(444,"B","PENDING QUOTES DATE/TIME",7.8)=""
^DD(444,"B","POINT OF CONTACT",10)=""
^DD(444,"B","POINT OF CONTACT PHONE",11)=""
^DD(444,"B","PRIMARY 2237",8)=""
^DD(444,"B","PRIORITY OF REQUEST",5)=""
^DD(444,"B","QUOTE DUE DATE/TIME",2)=""
^DD(444,"B","QUOTES",24)=""
^DD(444,"B","REFERENCE DATE",1)=""
^DD(444,"B","REQD DELIVERY DATE",13)=""
^DD(444,"B","REQUEST'S LAST EDITOR",20.7)=""
^DD(444,"B","REQUESTING SERVICE",9)=""
^DD(444,"B","RFQ NBR",.01)=""
^DD(444,"B","RFQ'S MAILMAN MSG #",20.9)=""
^DD(444,"B","SET ASIDE?",17.5)=""
^DD(444,"B","SHIP TO",14)=""
^DD(444,"B","SOLICITED VENDOR",20)=""
^DD(444,"B","SPECIAL REMARKS",16)=""
^DD(444,"B","STATUS",7)=""
^DD(444,"B","SUBSTATION",8.1)=""
^DD(444,"B","TRANSMIT DATE/TIME",26)=""
^DD(444,"B","TRANSMIT TO 'PUBLIC'",20.5)=""
^DD(444,"GL",0,1,.01)=""
^DD(444,"GL",0,2,1)=""
^DD(444,"GL",0,3,2)=""
^DD(444,"GL",0,4,3)=""
^DD(444,"GL",0,5,4)=""
^DD(444,"GL",0,6,5)=""
^DD(444,"GL",0,7,3.1)=""
^DD(444,"GL",0,8,7)=""
^DD(444,"GL",0,9,8)=""
^DD(444,"GL",0,10,8.1)=""
^DD(444,"GL",0,11,9)=""
^DD(444,"GL",0,12,10)=""
^DD(444,"GL",0,13,11)=""
^DD(444,"GL",0,14,8.2)=""
^DD(444,"GL",1,1,12)=""
^DD(444,"GL",1,2,13)=""
^DD(444,"GL",1,3,14)=""
^DD(444,"GL",1,4,15)=""
^DD(444,"GL",1,5,22)=""
^DD(444,"GL",1,6,23)=""
^DD(444,"GL",1,7,17.5)=""
^DD(444,"GL",1,8,20.5)=""
^DD(444,"GL",1,9,20.7)=""
^DD(444,"GL",1,10,20.8)=""
^DD(444,"GL",1,11,20.9)=""
^DD(444,"GL",1,12,7.5)=""
^DD(444,"GL",1,13,7.6)=""
^DD(444,"GL",1,14,7.7)=""
^DD(444,"GL",1,15,7.8)=""
^DD(444,"GL",1,16,7.9)=""
^DD(444,"GL",1,17,25)=""
^DD(444,"GL",1,18,26)=""
^DD(444,"GL",2,0,19)=""
^DD(444,"GL",3,0,16)=""
^DD(444,"GL",4,0,17)=""
^DD(444,"GL",5,0,20)=""
^DD(444,"GL",6,0,18)=""
^DD(444,"GL",7,0,21)=""
^DD(444,"GL",8,0,24)=""
^DD(444,"GL",9,1,27)=""
^DD(444,"IX",.01)=""
^DD(444,"IX",2)=""
^DD(444,"IX",3)=""
^DD(444,"IX",7)=""
^DD(444,"IX",8)=""
^DD(444,"IX",8.1)=""
^DD(444,"RQ",.01)=""
^DD(444,"RQ",1)=""
^DD(444,"RQ",2)=""
^DD(444,"RQ",3)=""
^DD(444,"RQ",7)=""
^DD(444,"RQ",8)=""
^DD(444,"RQ",8.2)=""
^DD(444,"RQ",9)=""
^DD(444,"RQ",10)=""
^DD(444,"RQ",12)=""
^DD(444,"RQ",13)=""
^DD(444,"SB",444.01,20)=""
^DD(444,"SB",444.016,16)=""
^DD(444,"SB",444.017,17)=""
^DD(444,"SB",444.018,18)=""
^DD(444,"SB",444.019,19)=""
^DD(444,"SB",444.021,21)=""
^DD(444,"SB",444.024,24)=""
^DD(444.01,0)="SOLICITED VENDOR SUB-FIELD^^2^3"
^DD(444.01,0,"DT")="2960628"
^DD(444.01,0,"IX","B",444.01,.01)=""
^DD(444.01,0,"NM","SOLICITED VENDOR")=""
^DD(444.01,0,"UP")="444"
^DD(444.01,.01,0)="SOLICITED VENDOR^MV^^0;1^Q"
^DD(444.01,.01,1,0)="^.1"
^DD(444.01,.01,1,1,0)="444.01^B"
^DD(444.01,.01,1,1,1)="S ^PRC(444,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(444.01,.01,1,1,2)="K ^PRC(444,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(444.01,.01,1,1,3)="Required Index for Variable Pointer"
^DD(444.01,.01,21,0)="^^2^2^2960610^^^"
^DD(444.01,.01,21,1,0)="This field contains vendor's to whom the Request for Quotation should be"
^DD(444.01,.01,21,2,0)="sent."
^DD(444.01,.01,"DT")="2951120"
^DD(444.01,.01,"V",0)="^.12P^2^2"
^DD(444.01,.01,"V",1,0)="440^Site's Main Vendor File^1^XXX^y^n"
^DD(444.01,.01,"V",1,1)="S DIC(""S"")=""I '$P($G(^(10)),U,5)"""
^DD(444.01,.01,"V",1,2)="Prevent selection of Inactive Vendor"
^DD(444.01,.01,"V",2,0)="444.1^RFQ Temporary Vendor File^2^YYY^n^y"
^DD(444.01,.01,"V","B",440,1)=""
^DD(444.01,.01,"V","B",444.1,2)=""
^DD(444.01,.01,"V","M","RFQ Temporary Vendor File",2)=""
^DD(444.01,.01,"V","M","Site's Main Vendor File",1)=""
^DD(444.01,.01,"V","O",1,1)=""
^DD(444.01,.01,"V","O",2,2)=""
^DD(444.01,.01,"V","P","XXX",1)=""
^DD(444.01,.01,"V","P","YYY",2)=""
^DD(444.01,1,0)="METHOD^RS^e:ELECTRONIC DATA INTERCHANGE;m:MANUAL;^0;2^Q"
^DD(444.01,1,3)="Enter the code to indicate how you wish the vendor to be contacted."
^DD(444.01,1,21,0)="^^2^2^2960628^^^"
^DD(444.01,1,21,1,0)="This field indicates whether an electronic message or a hard copy"
^DD(444.01,1,21,2,0)="Request for Quotation should be sent to the vendor."
^DD(444.01,1,"DT")="2960628"
^DD(444.01,2,0)="DUN #^CJ12^^ ; ^S X=$$DUN^PRCHQ1B(5)"
^DD(444.01,2,9)="^"
^DD(444.01,2,9.01)=""
^DD(444.01,2,9.1)="S X=$$DUN^PRCHQ1B(5)"
^DD(444.01,2,21,0)="^^2^2^2960325^"
^DD(444.01,2,21,1,0)="This computed field extracts the Dun and Bradstreet number from"
^DD(444.01,2,21,2,0)="the vendor referenced in this multiple entry."
^DD(444.01,"B","DUN #",2)=""
^DD(444.01,"B","METHOD",1)=""
^DD(444.01,"B","SOLICITED VENDOR",.01)=""
^DD(444.01,"GL",0,1,.01)=""
^DD(444.01,"GL",0,2,1)=""
^DD(444.01,"IX",.01)=""
^DD(444.01,"RQ",1)=""
^DD(444.016,0)="SPECIAL REMARKS SUB-FIELD^^.01^1"
^DD(444.016,0,"DT")="2951114"
^DD(444.016,0,"NM","SPECIAL REMARKS")=""
^DD(444.016,0,"UP")="444"
^DD(444.016,.01,0)="SPECIAL REMARKS^W^^0;1^Q"
^DD(444.016,.01,21,0)="^^2^2^2951114^"
^DD(444.016,.01,21,1,0)="These are special remarks regarding this request.  It is initially"
^DD(444.016,.01,21,2,0)="populated from the Special Remarks field of the Primary 2237."
^DD(444.016,.01,"DT")="2951114"
^DD(444.016,"B","SPECIAL REMARKS",.01)=""
^DD(444.016,"GL",0,1,.01)=""
^DD(444.017,0)="ADMINISTRATIVE CERTIFICATIONS SUB-FIELD^^.01^1"
^DD(444.017,0,"DT")="2951114"
^DD(444.017,0,"NM","ADMINISTRATIVE CERTIFICATIONS")=""
^DD(444.017,0,"UP")="444"
^DD(444.017,.01,0)="ADMINISTRATIVE CERTIFICATIONS^W^^0;1^Q"
^DD(444.017,.01,21,0)="^^1^1^2951114^"
^DD(444.017,.01,21,1,0)="These are the administrative certifications for this RFQ."
^DD(444.017,.01,"DT")="2951114"
^DD(444.017,"B","ADMINISTRATIVE CERTIFICATIONS",.01)=""
^DD(444.017,"GL",0,1,.01)=""
^DD(444.018,0)="JUSTIFICATION SUB-FIELD^^.01^1"
^DD(444.018,0,"DT")="2951114"
^DD(444.018,0,"NM","JUSTIFICATION")=""
^DD(444.018,0,"UP")="444"
^DD(444.018,.01,0)="JUSTIFICATION^W^^0;1^Q"
^DD(444.018,.01,21,0)="^^1^1^2951114^"
^DD(444.018,.01,21,1,0)="This field stores the justification/basis of the award decisions."
^DD(444.018,.01,"DT")="2951114"
^DD(444.018,"B","JUSTIFICATION",.01)=""
^DD(444.018,"GL",0,1,.01)=""
^DD(444.019,0)="ITEM SUB-FIELD^^23.5^32"
^DD(444.019,0,"DT")="2960705"
^DD(444.019,0,"IX","AG",444.019,17)=""
^DD(444.019,0,"IX","AJ",444.019,23)=""
^DD(444.019,0,"IX","B",444.019,.01)=""
^DD(444.019,0,"NM","ITEM")=""
^DD(444.019,0,"UP")="444"
^DD(444.019,.01,0)="LINE ITEM NBR^MRNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.019,.01,1,0)="^.1"
^DD(444.019,.01,1,1,0)="444.019^B"
^DD(444.019,.01,1,1,1)="S ^PRC(444,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(444.019,.01,1,1,2)="K ^PRC(444,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(444.019,.01,3)="Type a Whole Number between 1 and 999"
^DD(444.019,.01,21,0)="^^1^1^2951120^^^^"
^DD(444.019,.01,21,1,0)="This is the Line Item # for this item on the RFQ"
^DD(444.019,.01,"DT")="2951120"
^DD(444.019,1,0)="ITEM MASTER FILE NBR^P441'^PRC(441,^0;4^Q"
^DD(444.019,1,3)="Select the procurement (UIR) card number that you wish to order"
^DD(444.019,1,21,0)="^^4^4^2951130^^"
^DD(444.019,1,21,1,0)="This is a number used to identify an item in the Item File when entering"
^DD(444.019,1,21,2,0)="a repetitive form type (associated with the Item Master Number)."
^DD(444.019,1,21,3,0)=" "
^DD(444.019,1,21,4,0)=" i.e.  322  Widget-3/4 IN"
^DD(444.019,1,"DT")="2951130"
^DD(444.019,1.5,0)="DESCRIPTION^444.029^^2;0"
^DD(444.019,1.5,21,0)="^^1^1^2951127^"
^DD(444.019,1.5,21,1,0)="This is the description of the desired item."
^DD(444.019,1.6,0)="DESCRIPTION (SHORT)^RF^^5;1^K:$L(X)>60!($L(X)<3) X"
^DD(444.019,1.6,3)="Answer must be 3-60 characters in length."
^DD(444.019,1.6,21,0)="^^2^2^2960125^"
^DD(444.019,1.6,21,1,0)="This field contains a short description of the desired item.  It will"
^DD(444.019,1.6,21,2,0)="appear in reports and editing sessions."
^DD(444.019,1.6,"DT")="2960125"
^DD(444.019,1.8,0)="SOLICITED VENDOR'S PRODUCT #^F^^5;2^K:$L(X)>30!($L(X)<1) X"
^DD(444.019,1.8,3)="For solicitation going only to a single vendor, enter 1-30 chars product #."
^DD(444.019,1.8,21,0)="^^2^2^2960304^"
^DD(444.019,1.8,21,1,0)="This field enables entering the vendor's product number, if known, for"
^DD(444.019,1.8,21,2,0)="solicitations going only to a single vendor."
^DD(444.019,1.8,"DT")="2960304"
^DD(444.019,2,0)="QUANTITY^RNJ9,2^^0;2^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(444.019,2,3)="Enter number of units desired, from .01 to 999999 (2 decimals max)"
^DD(444.019,2,21,0)="^^1^1^2951114^"
^DD(444.019,2,21,1,0)="This is the quantity of the item requested."
^DD(444.019,2,"DT")="2951114"
^DD(444.019,3,0)="UNIT OF PURCHASE^RP420.5'^PRCD(420.5,^0;3^Q"
^DD(444.019,3,3)="Select the appropriate unit for this item"
^DD(444.019,3,21,0)="^^3^3^2951114^"
^DD(444.019,3,21,1,0)="This is the unit of measurement for items being procured."
^DD(444.019,3,21,2,0)=" "
^DD(444.019,3,21,3,0)=" i.e. each, dozen, box, bottle, case, pound, square foot, etc."
^DD(444.019,3,"DT")="2951114"
^DD(444.019,4,0)="FEDERAL SUPPLY CLASSIFICATION^P441.2'X^PRC(441.2,^0;5^D EN101^PRCHNPO7"
^DD(444.019,4,.1)="FSC/PSC"
^DD(444.019,4,21,0)="^^2^2^3050809^"
^DD(444.019,4,21,1,0)="This is the Federal Supply Classification for an item, or the Product"
^DD(444.019,4,21,2,0)="Service Code for a service."
^DD(444.019,4,"DT")="3050809"
^DD(444.019,5,0)="NSN^F^^0;6^K:$L(X)>17!($L(X)<16)!'(X?4N1""-""2UN1""-""3N1""-""4N.UN) X"
^DD(444.019,5,3)="Enter National Stock Number in format: 6505-56-789-1234A (last char optional)"
^DD(444.019,5,21,0)="^^1^1^2951120^"
^DD(444.019,5,21,1,0)="This is the National Stock Number for this item."
^DD(444.019,5,"DT")="2951120"
^DD(444.019,6,0)="SIC CODE^P444.2'^PRC(444.2,^0;7^Q"
^DD(444.019,6,3)="Enter the 4-6 digits code"
^DD(444.019,6,21,0)="^^2^2^2951130^^^"
^DD(444.019,6,21,1,0)="The Standard Industrial Classification coding system categorizes"
^DD(444.019,6,21,2,0)="organizations by type of economic activity."
^DD(444.019,6,"DT")="2951130"
^DD(444.019,7,0)="NATIONAL DRUG CODE^F^^0;8^K:$L(X)>14!($L(X)<11)!'(X?1.6N1""-""1.4N1""-""1.2N) X"
^DD(444.019,7,3)="Enter in format 1-6 digits, hyphen, 1-4 digits, hyphen, 1-2 digits i.e. 123456-1234-12"
^DD(444.019,7,21,0)="^^1^1^2951120^"
^DD(444.019,7,21,1,0)="This is the National Drug Code for the item, if applicable."
^DD(444.019,7,"DT")="2951120"
^DD(444.019,8,0)="MFG PART NO.^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(444.019,8,3)="Enter the Manufacturer's Part # (3-30 chars)"
^DD(444.019,8,21,0)="^^1^1^2951120^"
^DD(444.019,8,21,1,0)="This is the Manufacturer's Part Number."
^DD(444.019,8,"DT")="2951120"
^DD(444.019,9,0)="LOT NBR^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(444.019,9,3)="Answer must be 1-30 characters in length."
^DD(444.019,9,21,0)="^^1^1^2951120^"
^DD(444.019,9,21,1,0)="This is the Lot # for the product desired."
^DD(444.019,9,"DT")="2951120"
^DD(444.019,10,0)="SERIAL NBR^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(444.019,10,3)="Answer must be 1-30 characters in length."
^DD(444.019,10,21,0)="^^2^2^2951120^"
^DD(444.019,10,21,1,0)="This is the serial number of an equipment item.  This might be entered if"
^DD(444.019,10,21,2,0)="the quote was for service on an item of equipment."
^DD(444.019,10,"DT")="2951120"
^DD(444.019,12,0)="HAZARDOUS MATERIAL^S^HM:HAZARDOUS MATERIAL;^0;11^Q"
^DD(444.019,12,21,0)="^^2^2^2960429^^"
^DD(444.019,12,21,1,0)="If the item is marked as hazardous material, there may be special"
^DD(444.019,12,21,2,0)="requirements for shipping and storage of this item."
^DD(444.019,12,"DT")="2960429"
^DD(444.019,12.5,0)="BOC^RP420.2'X^PRCD(420.2,^1;8^D:$D(X) BOCINP^PRCHQ1B"
^DD(444.019,12.5,3)="Select the appropriate budget object code for this item"
^DD(444.019,12.5,4)="D BOCHLP^PRCHQ1B"
^DD(444.019,12.5,21,0)="^^2^2^2960215^^"
^DD(444.019,12.5,21,1,0)="This is a fiscal code which describes the type of item/service being"
^DD(444.019,12.5,21,2,0)="procured (associated with Control Points and Cost Centers)."
^DD(444.019,12.5,"DT")="2960215"
^DD(444.019,13,0)="PRIOR VENDOR^P440'^PRC(440,^1;3^Q"
^DD(444.019,13,3)="Vendor from which this item was last ordered (from Item Master File)"
^DD(444.019,13,21,0)="^^1^1^2960109^^^"
^DD(444.019,13,21,1,0)="This is the vendor associated with the Vendor Product # field."
^DD(444.019,13,"DT")="2960117"
^DD(444.019,14,0)="PRIOR PRODUCT NBR^F^^1;4^K:$L(X)>30!($L(X)<1) X"
^DD(444.019,14,3)="Answer must be 1-30 characters in length."
^DD(444.019,14,21,0)="^^1^1^2960117^^"
^DD(444.019,14,21,1,0)="This is the stock number of the item from the prior vendor."
^DD(444.019,14,"DT")="2960117"
^DD(444.019,14.1,0)="PRIOR UNIT COST^NJ12,4^^1;5^K:+X'=X!(X>9999999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(444.019,14.1,3)="Type a Number between 0 and 9999999.9999, 4 Decimal Digits"
^DD(444.019,14.1,21,0)="^^1^1^2960117^^^"
^DD(444.019,14.1,21,1,0)="This is the unit cost from the prior vendor."
^DD(444.019,14.1,"DT")="2960117"
^DD(444.019,14.2,0)="PRIOR UNIT OF PURCHASE^P420.5'^PRCD(420.5,^1;6^Q"
^DD(444.019,14.2,3)="Enter the most recent unit of purchase."
^DD(444.019,14.2,21,0)="^^1^1^2960117^^"
^DD(444.019,14.2,21,1,0)="This is the unit in the purchase from the prior vendor."
^DD(444.019,14.2,"DT")="2960117"
^DD(444.019,14.3,0)="PRIOR PURCHASE DATE^D^^1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(444.019,14.3,3)="Enter the date of most recent purchase."
^DD(444.019,14.3,21,0)="^^1^1^2960117^^^"
^DD(444.019,14.3,21,1,0)="This is the date of purchase from the prior vendor."
^DD(444.019,14.3,"DT")="2960117"
^DD(444.019,15,0)="ORIGINATING 2237^P410'^PRCS(410,^3;1^Q"
^DD(444.019,15,1,0)="^.1"
^DD(444.019,15,1,1,0)="444^C"
^DD(444.019,15,1,1,1)="S ^PRC(444,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(444.019,15,1,1,2)="K ^PRC(444,""C"",$E(X,1,30),DA(1),DA)"
^DD(444.019,15,1,1,"%D",0)="^^2^2^2960229^"
^DD(444.019,15,1,1,"%D",1,0)="This index will enable the locating of an RFQ upon input of the 2237"
^DD(444.019,15,1,1,"%D",2,0)="reference number."
^DD(444.019,15,1,1,"DT")="2960229"
^DD(444.019,15,21,0)="^^1^1^2951120^"
^DD(444.019,15,21,1,0)="This is the 2237 which is the source document for this item on the RFQ."
^DD(444.019,15,"DT")="2960229"
^DD(444.019,16,0)="ORIGINAL 2237 LINE NBR^NJ3,0^^3;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.019,16,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(444.019,16,21,0)="^^2^2^2951120^"
^DD(444.019,16,21,1,0)="This field contains the value of the .01 field for the Item from the"
^DD(444.019,16,21,2,0)="originating 2237 in file 410."
^DD(444.019,16,"DT")="2951120"
^DD(444.019,16.5,0)="EST. ITEM (UNIT) COST^NJ10,2X^^3;10^S:X[""$"" X=$P(X,""$"",2) Q:X?1""N/C""  K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X I $D(X) S:X=0 X=""N/C"""
^DD(444.019,16.5,3)="Enter the unit cost for this item (a dollar amount between 0 and 9999999) or N/C for no charge.  Commas are not allowed."
^DD(444.019,16.5,21,0)="^^4^4^2960705^"
^DD(444.019,16.5,21,1,0)="This is the individual unit cost of the item(s) in a dollar amount or"
^DD(444.019,16.5,21,2,0)="N/C for no charge.  This field is populated during import from field"
^DD(444.019,16.5,21,3,0)="#7 of subfile 410.02 of the CONTROL POINT ACTIVITY file (#410).  It"
^DD(444.019,16.5,21,4,0)="is used for reference in evaluating quotes."
^DD(444.019,16.5,"DT")="2960705"
^DD(444.019,17,0)="VENDOR SELECTED^V^^3;3^Q"
^DD(444.019,17,1,0)="^.1"
^DD(444.019,17,1,1,0)="444.019^AG"
^DD(444.019,17,1,1,1)="S ^PRC(444,DA(1),2,""AG"",$E(X,1,30),DA)="""""
^DD(444.019,17,1,1,2)="K ^PRC(444,DA(1),2,""AG"",$E(X,1,30),DA)"
^DD(444.019,17,1,1,"%D",0)="^^1^1^2960416^"
^DD(444.019,17,1,1,"%D",1,0)="This cross reference lumps together items for an RFQ by award vendor."
^DD(444.019,17,1,1,"DT")="2960416"
^DD(444.019,17,21,0)="^^1^1^2951120^"
^DD(444.019,17,21,1,0)="Enter the Name of the Vendor selected for the purchase of this item."
^DD(444.019,17,"DT")="2960416"
^DD(444.019,17,"V",0)="^.12P^2^2"
^DD(444.019,17,"V",1,0)="440^Site's Main Vendor File^1^A^^n"
^DD(444.019,17,"V",2,0)="444.1^RFQ Temporary Vendor File^2^B^^n"
^DD(444.019,17,"V","B",440,1)=""
^DD(444.019,17,"V","B",444.1,2)=""
^DD(444.019,17,"V","M","RFQ Temporary Vendor File",2)=""
^DD(444.019,17,"V","M","Site's Main Vendor File",1)=""
^DD(444.019,17,"V","O",1,1)=""
^DD(444.019,17,"V","O",2,2)=""
^DD(444.019,17,"V","P","A",1)=""
^DD(444.019,17,"V","P","B",2)=""
^DD(444.019,18,0)="VENDOR'S UNIT OF PURCHASE^P420.5'^PRCD(420.5,^3;4^Q"
^DD(444.019,18,21,0)="^^1^1^2951120^"
^DD(444.019,18,21,1,0)="This is the unit of issue for the winning quote."
^DD(444.019,18,"DT")="2951120"
^DD(444.019,19,0)="VENDOR'S UNIT PRICE^NJ12,4^^3;5^K:+X'=X!(X>9999999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(444.019,19,3)="Type a Number between 0 and 9999999.9999, 4 Decimal Digits"
^DD(444.019,19,21,0)="^^1^1^2951120^"
^DD(444.019,19,21,1,0)="This is the unit price of the item from the winning quote."
^DD(444.019,19,"DT")="2951120"
^DD(444.019,20,0)="DELIVERY SCHEDULE^444.039^^4;0"
^DD(444.019,20,21,0)="^^1^1^2960116^^^^"
^DD(444.019,20,21,1,0)="This is the Delivery Schedule Sequence Number for this Item."
^DD(444.019,21,0)="DESTINATION 2237^P410'^PRCS(410,^3;6^Q"
^DD(444.019,21,1,0)="^.1"
^DD(444.019,21,1,1,0)="444^AE"
^DD(444.019,21,1,1,1)="S ^PRC(444,""AE"",$E(X,1,30),DA(1),DA)="""""
^DD(444.019,21,1,1,2)="K ^PRC(444,""AE"",$E(X,1,30),DA(1),DA)"
^DD(444.019,21,1,1,"%D",0)="^^1^1^2960227^"
^DD(444.019,21,1,1,"%D",1,0)="This cross reference will be used to link destination 2237 with an RFQ."
^DD(444.019,21,1,1,"DT")="2960227"
^DD(444.019,21,3)="Enter the 2237 to which this item is attached at Award."
^DD(444.019,21,21,0)="^^2^2^2960227^"
^DD(444.019,21,21,1,0)="This field provides a link between a line item on the RFQ and its"
^DD(444.019,21,21,2,0)="new 2237."
^DD(444.019,21,"DT")="2960227"
^DD(444.019,22,0)="DESTINATION 2237 LINE NBR^NJ3,0^^3;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.019,22,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(444.019,22,21,0)="^^1^1^2960227^"
^DD(444.019,22,21,1,0)="This field indicates the line number of this item on its destination 2237."
^DD(444.019,22,"DT")="2960227"
^DD(444.019,23,0)="QUOTE SELECTED^NJ5,0X^^3;8^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X D:$D(X) QUOTECHK^PRCHQ13"
^DD(444.019,23,1,0)="^.1"
^DD(444.019,23,1,1,0)="444.019^AJ"
^DD(444.019,23,1,1,1)="S ^PRC(444,DA(1),2,""AJ"",$E(X,1,30),DA)="""""
^DD(444.019,23,1,1,2)="K ^PRC(444,DA(1),2,""AJ"",$E(X,1,30),DA)"
^DD(444.019,23,1,1,"%D",0)="^^2^2^2960513^"
^DD(444.019,23,1,1,"%D",1,0)="This cross-reference groups items by quote following the evaluation"
^DD(444.019,23,1,1,"%D",2,0)="of quotes.  It is used during the award process."
^DD(444.019,23,1,1,"DT")="2960513"
^DD(444.019,23,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(444.019,23,4)="D EXHLP^PRCHQ13"
^DD(444.019,23,21,0)="^^1^1^2960416^^"
^DD(444.019,23,21,1,0)="This is the internal entry number of the selected Quote."
^DD(444.019,23,"DT")="2960513"
^DD(444.019,23.5,0)="QUOTE LINE^NJ5,0^^3;9^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.019,23.5,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(444.019,23.5,21,0)="^^1^1^2960416^"
^DD(444.019,23.5,21,1,0)="This is the internal entry number of the item in the vendor's Quote."
^DD(444.019,23.5,"DT")="2960416"
^DD(444.019,"B","BOC",12.5)=""
^DD(444.019,"B","DELIVERY SCHEDULE",20)=""
^DD(444.019,"B","DESCRIPTION",1.5)=""
^DD(444.019,"B","DESCRIPTION (SHORT)",1.6)=""
^DD(444.019,"B","DESTINATION 2237",21)=""
^DD(444.019,"B","DESTINATION 2237 LINE NBR",22)=""
^DD(444.019,"B","EST. ITEM (UNIT) COST",16.5)=""
^DD(444.019,"B","FEDERAL SUPPLY CLASSIFICATION",4)=""
^DD(444.019,"B","FSC/PSC",4)="1"
^DD(444.019,"B","HAZARDOUS MATERIAL",12)=""
^DD(444.019,"B","ITEM MASTER FILE NBR",1)=""
^DD(444.019,"B","LINE ITEM NBR",.01)=""
^DD(444.019,"B","LOT NBR",9)=""
^DD(444.019,"B","MFG PART NO.",8)=""
^DD(444.019,"B","NATIONAL DRUG CODE",7)=""
^DD(444.019,"B","NSN",5)=""
^DD(444.019,"B","ORIGINAL 2237 LINE NBR",16)=""
^DD(444.019,"B","ORIGINATING 2237",15)=""
^DD(444.019,"B","PRIOR PRODUCT NBR",14)=""
^DD(444.019,"B","PRIOR PURCHASE DATE",14.3)=""
^DD(444.019,"B","PRIOR UNIT COST",14.1)=""
^DD(444.019,"B","PRIOR UNIT OF PURCHASE",14.2)=""
^DD(444.019,"B","PRIOR VENDOR",13)=""
^DD(444.019,"B","QUANTITY",2)=""
^DD(444.019,"B","QUOTE LINE",23.5)=""
^DD(444.019,"B","QUOTE SELECTED",23)=""
^DD(444.019,"B","SERIAL NBR",10)=""
^DD(444.019,"B","SIC CODE",6)=""
^DD(444.019,"B","SOLICITED VENDOR'S PRODUCT #",1.8)=""
^DD(444.019,"B","UNIT OF PURCHASE",3)=""
^DD(444.019,"B","VENDOR SELECTED",17)=""
^DD(444.019,"B","VENDOR'S UNIT OF PURCHASE",18)=""
^DD(444.019,"B","VENDOR'S UNIT PRICE",19)=""
^DD(444.019,"GL",0,1,.01)=""
^DD(444.019,"GL",0,2,2)=""
^DD(444.019,"GL",0,3,3)=""
^DD(444.019,"GL",0,4,1)=""
^DD(444.019,"GL",0,5,4)=""
^DD(444.019,"GL",0,6,5)=""
^DD(444.019,"GL",0,7,6)=""
^DD(444.019,"GL",0,8,7)=""
^DD(444.019,"GL",0,9,8)=""
^DD(444.019,"GL",0,11,12)=""
^DD(444.019,"GL",1,1,9)=""
^DD(444.019,"GL",1,2,10)=""
^DD(444.019,"GL",1,3,13)=""
^DD(444.019,"GL",1,4,14)=""
^DD(444.019,"GL",1,5,14.1)=""
^DD(444.019,"GL",1,6,14.2)=""
^DD(444.019,"GL",1,7,14.3)=""
^DD(444.019,"GL",1,8,12.5)=""
^DD(444.019,"GL",2,0,1.5)=""
^DD(444.019,"GL",3,1,15)=""
^DD(444.019,"GL",3,2,16)=""
^DD(444.019,"GL",3,3,17)=""
^DD(444.019,"GL",3,4,18)=""
^DD(444.019,"GL",3,5,19)=""
^DD(444.019,"GL",3,6,21)=""
^DD(444.019,"GL",3,7,22)=""
^DD(444.019,"GL",3,8,23)=""
^DD(444.019,"GL",3,9,23.5)=""
^DD(444.019,"GL",3,10,16.5)=""
^DD(444.019,"GL",4,0,20)=""
^DD(444.019,"GL",5,1,1.6)=""
^DD(444.019,"GL",5,2,1.8)=""
^DD(444.019,"IX",.01)=""
^DD(444.019,"IX",15)=""
^DD(444.019,"IX",17)=""
^DD(444.019,"IX",21)=""
^DD(444.019,"IX",23)=""
^DD(444.019,"RQ",.01)=""
^DD(444.019,"RQ",1.6)=""
^DD(444.019,"RQ",2)=""
^DD(444.019,"RQ",3)=""
^DD(444.019,"RQ",12.5)=""
^DD(444.019,"SB",444.029,1.5)=""
^DD(444.019,"SB",444.039,20)=""
^DD(444.021,0)="864 MESSAGES SUB-FIELD^^15^18"
^DD(444.021,0,"DT")="2960613"
^DD(444.021,0,"IX","B",444.021,.01)=""
^DD(444.021,0,"NM","864 MESSAGES")=""
^DD(444.021,0,"UP")="444"
^DD(444.021,.01,0)="MESSAGE SEQUENCE NBR^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.021,.01,1,0)="^.1"
^DD(444.021,.01,1,1,0)="444.021^B"
^DD(444.021,.01,1,1,1)="S ^PRC(444,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(444.021,.01,1,1,2)="K ^PRC(444,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(444.021,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(444.021,.01,21,0)="^^1^1^2951120^^^^"
^DD(444.021,.01,21,1,0)="This entry contains the sequential number of an 864 transaction message."
^DD(444.021,.01,"DT")="2951120"
^DD(444.021,1,0)="DIRECTION^S^I:INBOUND;O:OUTBOUND;^0;2^Q"
^DD(444.021,1,3)="Enter 'I' if received from vendor or 'O' if sent to vendor"
^DD(444.021,1,21,0)="^^2^2^2951120^"
^DD(444.021,1,21,1,0)="This field indicates whether the message was sent to a vendor or received"
^DD(444.021,1,21,2,0)="from a vendor."
^DD(444.021,1,"DT")="2951120"
^DD(444.021,2,0)="VENDOR ID^FX^^0;3^K:$L(X)>12!($L(X)<5) X"
^DD(444.021,2,3)="Enter vendor's Dun & Bradstreet #  (5-12 characters)."
^DD(444.021,2,21,0)="^^1^1^2960308^^^"
^DD(444.021,2,21,1,0)="This is the vendor's Dun & Bradstreet #."
^DD(444.021,2,"DT")="2960311"
^DD(444.021,2.5,0)="VENDOR NAME^F^^0;12^K:$L(X)>36!($L(X)<3)!'(X'?1P.E) X"
^DD(444.021,2.5,3)="Answer must be 3-36 characters in length."
^DD(444.021,2.5,21,0)="^^1^1^2960613^"
^DD(444.021,2.5,21,1,0)="This is the name of the vendor sending the inbound 864 Text Message."
^DD(444.021,2.5,"DT")="2960613"
^DD(444.021,3,0)="VENDOR REFERENCE NBR^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(444.021,3,3)="Answer must be 1-30 characters in length."
^DD(444.021,3,21,0)="^^1^1^2951120^^"
^DD(444.021,3,21,1,0)="This is the vendor's reference number for this RFQ."
^DD(444.021,3,"DT")="2951120"
^DD(444.021,4,0)="SENDER MESSAGE NBR^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(444.021,4,3)="Answer must be 1-30 characters in length."
^DD(444.021,4,21,0)="^^1^1^2960429^^"
^DD(444.021,4,21,1,0)="This is the sequence counter for this RFQ on the originating system."
^DD(444.021,4,"DT")="2960429"
^DD(444.021,5,0)="DATE/TIME CREATED^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(444.021,5,3)="Enter Date/Time message was created on the origin system."
^DD(444.021,5,21,0)="^^1^1^2951120^^^"
^DD(444.021,5,21,1,0)="This is the date/time that the message was created on the origin system."
^DD(444.021,5,"DT")="2951120"
^DD(444.021,6,0)="DATE/TIME STORED^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(444.021,6,3)="Enter Date/Time this message is stored in this entry"
^DD(444.021,6,21,0)="^^1^1^2951120^"
^DD(444.021,6,21,1,0)="This field stores the date/time that the message is stored in this file."
^DD(444.021,6,"DT")="2951120"
^DD(444.021,7,0)="OFFICIAL'S NAME^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(444.021,7,3)="Answer must be 1-30 characters in length."
^DD(444.021,7,21,0)="^^1^1^2951120^"
^DD(444.021,7,21,1,0)="The name of the originator of this message."
^DD(444.021,7,"DT")="2951120"
^DD(444.021,8,0)="OFFICIAL'S PHONE^F^^0;9^K:$L(X)>21!($L(X)<10) X"
^DD(444.021,8,3)="Enter the phone # of the individual initiating message."
^DD(444.021,8,21,0)="^^1^1^2951120^"
^DD(444.021,8,21,1,0)="This is the phone number of the contact about this message."
^DD(444.021,8,"DT")="2951120"
^DD(444.021,9,0)="MSG DESCRIPTION^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(444.021,9,3)="Answer must be 1-80 characters in length."
^DD(444.021,9,21,0)="^^1^1^2951120^"
^DD(444.021,9,21,1,0)="This is a descriptive caption for this message."
^DD(444.021,9,"DT")="2951120"
^DD(444.021,10,0)="TEXT^444.031^^2;0"
^DD(444.021,11,0)="RECIPIENT^444.022V^^3;0"
^DD(444.021,11,21,0)="^^1^1^2960607^^^^"
^DD(444.021,11,21,1,0)="This is a recipient of the 864 transaction Text Message."
^DD(444.021,12,0)="PUBLIC TRANSMISSION^S^y:YES;n:NO;^1;2^Q"
^DD(444.021,12,3)="Enter 'YES' if this should be broadcast to all vendors."
^DD(444.021,12,21,0)="^^2^2^2960304^"
^DD(444.021,12,21,1,0)="This flag indicates whether the message should only go to specified vendors"
^DD(444.021,12,21,2,0)="or should be broadcast to the widest possible group."
^DD(444.021,12,"DT")="2960304"
^DD(444.021,13,0)="MSG LAST EDITOR^P200'^VA(200,^0;10^Q"
^DD(444.021,13,3)="Enter the name of the last editor of the message."
^DD(444.021,13,21,0)="^^1^1^2960306^"
^DD(444.021,13,21,1,0)="This field stores the DUZ of the last editor."
^DD(444.021,13,"DT")="2960306"
^DD(444.021,13.1,0)="LAST EDIT DATE/TIME^D^^0;11^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444.021,13.1,3)="Enter the Date and Time of last edit."
^DD(444.021,13.1,21,0)="^^1^1^2960306^"
^DD(444.021,13.1,21,1,0)="This field stores the Date/Time stamp after the last edit."
^DD(444.021,13.1,"DT")="2960306"
^DD(444.021,14,0)="MAILMAN MSG #^NJ9,0^^1;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(444.021,14,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(444.021,14,21,0)="^^2^2^2960306^"
^DD(444.021,14,21,1,0)="This field stores the ID number of the MailMan message sending the 864"
^DD(444.021,14,21,2,0)="Transaction."
^DD(444.021,14,"DT")="2960306"
^DD(444.021,15,0)="FILE 423.6 ENTRY^NJ9,0^^1;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.021,15,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(444.021,15,21,0)="^^5^5^2960310^"
^DD(444.021,15,21,1,0)="This is the internal number of the file 423.6 entry which is the"
^DD(444.021,15,21,2,0)="holding file for a message sent from the vendor and imported into"
^DD(444.021,15,21,3,0)="this message in file 444.  Note: this value is useful only for"
^DD(444.021,15,21,4,0)="checking the import soon after completion as the internal entry number"
^DD(444.021,15,21,5,0)="could be reused after this entry is purged."
^DD(444.021,15,"DT")="2960310"
^DD(444.021,"B","DATE/TIME CREATED",5)=""
^DD(444.021,"B","DATE/TIME STORED",6)=""
^DD(444.021,"B","DIRECTION",1)=""
^DD(444.021,"B","FILE 423.6 ENTRY",15)=""
^DD(444.021,"B","LAST EDIT DATE/TIME",13.1)=""
^DD(444.021,"B","MAILMAN MSG #",14)=""
^DD(444.021,"B","MESSAGE SEQUENCE NBR",.01)=""
^DD(444.021,"B","MSG DESCRIPTION",9)=""
^DD(444.021,"B","MSG LAST EDITOR",13)=""
^DD(444.021,"B","OFFICIAL'S NAME",7)=""
^DD(444.021,"B","OFFICIAL'S PHONE",8)=""
^DD(444.021,"B","PUBLIC TRANSMISSION",12)=""
^DD(444.021,"B","RECIPIENT",11)=""
^DD(444.021,"B","SENDER MESSAGE NBR",4)=""
^DD(444.021,"B","TEXT",10)=""
^DD(444.021,"B","VENDOR ID",2)=""
^DD(444.021,"B","VENDOR NAME",2.5)=""
^DD(444.021,"B","VENDOR REFERENCE NBR",3)=""
^DD(444.021,"GL",0,1,.01)=""
^DD(444.021,"GL",0,2,1)=""
^DD(444.021,"GL",0,3,2)=""
^DD(444.021,"GL",0,4,3)=""
^DD(444.021,"GL",0,5,4)=""
^DD(444.021,"GL",0,6,5)=""
^DD(444.021,"GL",0,7,6)=""
^DD(444.021,"GL",0,8,7)=""
^DD(444.021,"GL",0,9,8)=""
^DD(444.021,"GL",0,10,13)=""
^DD(444.021,"GL",0,11,13.1)=""
^DD(444.021,"GL",0,12,2.5)=""
^DD(444.021,"GL",1,1,9)=""
^DD(444.021,"GL",1,2,12)=""
^DD(444.021,"GL",1,3,14)=""
^DD(444.021,"GL",1,4,15)=""
^DD(444.021,"GL",2,0,10)=""
^DD(444.021,"GL",3,0,11)=""
^DD(444.021,"IX",.01)=""
^DD(444.021,"SB",444.022,11)=""
^DD(444.021,"SB",444.031,10)=""
^DD(444.022,0)="RECIPIENT SUB-FIELD^^.01^1"
^DD(444.022,0,"DT")="2960304"
^DD(444.022,0,"IX","B",444.022,.01)=""
^DD(444.022,0,"NM","RECIPIENT")=""
^DD(444.022,0,"UP")="444.021"
^DD(444.022,.01,0)="RECIPIENT^MV^^0;1^Q"
^DD(444.022,.01,1,0)="^.1"
^DD(444.022,.01,1,1,0)="444.022^B"
^DD(444.022,.01,1,1,1)="S ^PRC(444,DA(2),7,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(444.022,.01,1,1,2)="K ^PRC(444,DA(2),7,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(444.022,.01,1,1,3)="Required Index for Variable Pointer"
^DD(444.022,.01,3)="Enter Vendor who should receive this (864) Text Message"
^DD(444.022,.01,4)="D RHLP^PRCHQ5"
^DD(444.022,.01,21,0)="^^1^1^2960607^^^^"
^DD(444.022,.01,21,1,0)="This field is a Vendor recipient list for the message."
^DD(444.022,.01,"DT")="2960304"
^DD(444.022,.01,"V",0)="^.12P^2^2"
^DD(444.022,.01,"V",1,0)="440^Site's Main Vendor File^1^XXX^y^n"
^DD(444.022,.01,"V",1,1)="S DIC(""S"")=""I $$SC^PRCHQ5"""
^DD(444.022,.01,"V",1,2)="Restrict choices to Solicited Vendors unless Transmission PUBLIC"
^DD(444.022,.01,"V",2,0)="444.1^RFQ Temporary Vendor File^2^YYY^y^n"
^DD(444.022,.01,"V",2,1)="S DIC(""S"")=""I $$SC^PRCHQ5"""
^DD(444.022,.01,"V",2,2)="Restrict choices to Solicited Vendors unless Transmission PUBLIC"
^DD(444.022,.01,"V","B",440,1)=""
^DD(444.022,.01,"V","B",444.1,2)=""
^DD(444.022,.01,"V","M","RFQ Temporary Vendor File",2)=""
^DD(444.022,.01,"V","M","Site's Main Vendor File",1)=""
^DD(444.022,.01,"V","O",1,1)=""
^DD(444.022,.01,"V","O",2,2)=""
^DD(444.022,.01,"V","P","XXX",1)=""
^DD(444.022,.01,"V","P","YYY",2)=""
^DD(444.022,"B","RECIPIENT",.01)=""
^DD(444.022,"GL",0,1,.01)=""
^DD(444.022,"IX",.01)=""
^DD(444.024,0)="QUOTES SUB-FIELD^^16^18"
^DD(444.024,0,"DT")="2960317"
^DD(444.024,0,"IX","B",444.024,.01)=""
^DD(444.024,0,"NM","QUOTES")=""
^DD(444.024,0,"UP")="444"
^DD(444.024,.01,0)="QUOTE VENDOR^MV^^0;1^Q"
^DD(444.024,.01,1,0)="^.1"
^DD(444.024,.01,1,1,0)="444.024^B"
^DD(444.024,.01,1,1,1)="S ^PRC(444,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(444.024,.01,1,1,2)="K ^PRC(444,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(444.024,.01,1,1,3)="Required Index for Variable Pointer"
^DD(444.024,.01,3)="Enter the Vendor submitting the Quote"
^DD(444.024,.01,21,0)="^^1^1^2960607^^^"
^DD(444.024,.01,21,1,0)="This is the vendor for this quote."
^DD(444.024,.01,"DT")="2951122"
^DD(444.024,.01,"V",0)="^.12P^2^2"
^DD(444.024,.01,"V",1,0)="440^Site's Main Vendor File^1^XXX^^n"
^DD(444.024,.01,"V",2,0)="444.1^RFQ Temporary Vendor File^2^YYY^n^y"
^DD(444.024,.01,"V","B",440,1)=""
^DD(444.024,.01,"V","B",444.1,2)=""
^DD(444.024,.01,"V","M","RFQ Temporary Vendor File",2)=""
^DD(444.024,.01,"V","M","Site's Main Vendor File",1)=""
^DD(444.024,.01,"V","O",1,1)=""
^DD(444.024,.01,"V","O",2,2)=""
^DD(444.024,.01,"V","P","XXX",1)=""
^DD(444.024,.01,"V","P","YYY",2)=""
^DD(444.024,1,0)="SELLER REFERENCE NBR^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(444.024,1,3)="Answer must be 1-30 characters in length."
^DD(444.024,1,21,0)="^^1^1^2951121^"
^DD(444.024,1,21,1,0)="This is the seller's reference number."
^DD(444.024,1,"DT")="2951121"
^DD(444.024,2,0)="EFFECTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(444.024,2,3)="Enter the Date that the Quote was offered."
^DD(444.024,2,21,0)="^^2^2^2951121^^^^"
^DD(444.024,2,21,1,0)="This is the date that the Quote was submitted, as contrast to the date"
^DD(444.024,2,21,2,0)="received."
^DD(444.024,2,"DT")="2951121"
^DD(444.024,3,0)="RECEIPT DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444.024,3,3)="Enter the time that the Quote was Filed in the database."
^DD(444.024,3,21,0)="^^2^2^2951121^"
^DD(444.024,3,21,1,0)="This is the date/time that the quote was filed in the database, as contrast"
^DD(444.024,3,21,2,0)="to sent by the vendor."
^DD(444.024,3,"DT")="2951121"
^DD(444.024,3.5,0)="FILE 423.6 ENTRY^NJ9,0^^1;7^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.024,3.5,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(444.024,3.5,21,0)="^^5^5^2960315^"
^DD(444.024,3.5,21,1,0)="This is the internal number of the file 423.6 entry which is the holding"
^DD(444.024,3.5,21,2,0)="file for a message sent from the vendor and imported into this quote in"
^DD(444.024,3.5,21,3,0)="file 444.  Note: this value is useful only for checking the import soon"
^DD(444.024,3.5,21,4,0)="after completion, as the internal entry number could be reused after this"
^DD(444.024,3.5,21,5,0)="entry is purged."
^DD(444.024,3.5,"DT")="2960315"
^DD(444.024,4,0)="VENDOR CONTACT^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(444.024,4,3)="Enter the name of the contact name (1-30 chars)"
^DD(444.024,4,21,0)="^^1^1^2951121^"
^DD(444.024,4,21,1,0)="This is the name of the Vendor's Contact associated with this Quote."
^DD(444.024,4,"DT")="2951121"
^DD(444.024,5,0)="CONTACT PHONE^F^^0;6^K:$L(X)>21!($L(X)<10) X"
^DD(444.024,5,3)="Enter the voice Telephone Number for the vendor's contact"
^DD(444.024,5,21,0)="^^1^1^2951121^"
^DD(444.024,5,21,1,0)="This is the telephone number to direct questions concerning this quote."
^DD(444.024,5,"DT")="2951121"
^DD(444.024,6,0)="FOB^S^D:DESTINATION;O:ORIGIN;^1;1^Q"
^DD(444.024,6,3)="Enter 'D' if the price includes any applicable shipping, else 'O'"
^DD(444.024,6,21,0)="^^5^5^2951122^"
^DD(444.024,6,21,1,0)="This field indicates whether prices include shipping.  If Freight on Board"
^DD(444.024,6,21,2,0)="(FOB) is Destination, there will be no additional shipping fees.  If, in"
^DD(444.024,6,21,3,0)="contrast, FOB is Origin, then price assumes that the buyer will pick up"
^DD(444.024,6,21,4,0)="the items at the vendor's location, and shipping incurs additional"
^DD(444.024,6,21,5,0)="charges."
^DD(444.024,6,"DT")="2951122"
^DD(444.024,7,0)="EST. SHIPPING AND/OR HANDLING^NJ7,2O^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(444.024,7,2)="S Y(0)=Y S Y=$FN(Y,"""",2)"
^DD(444.024,7,2.1)="S Y=$FN(Y,"""",2)"
^DD(444.024,7,3)="Enter a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(444.024,7,21,0)="^^1^1^2951122^"
^DD(444.024,7,21,1,0)="This is the estimate of shipping and handling costs."
^DD(444.024,7,"DT")="2960321"
^DD(444.024,8,0)="TOTAL AMOUNT^NJ10,2^^1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(444.024,8,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(444.024,8,21,0)="^^1^1^2951124^"
^DD(444.024,8,21,1,0)="This is the total cost from vendor's quote."
^DD(444.024,8,"DT")="2951124"
^DD(444.024,9,0)="PROMPT PAYMENT TERMS^444.025^^2;0"
^DD(444.024,9,21,0)="^^1^1^2951124^^"
^DD(444.024,9,21,1,0)="These are the prompt payment terms."
^DD(444.024,10,0)="GOVT CONTRACT NBR^FX^^0;7^K:$L(X)>30!($L(X)<1) X D:$L($G(X))>19 EN^DDIOL(""Warning - Contract # will have to be trimmed to 19 characters for PO"")"
^DD(444.024,10,3)="Enter government contract # applicable to entire quote (1-30 chars)"
^DD(444.024,10,21,0)="^^3^3^2951124^"
^DD(444.024,10,21,1,0)="This is the vendor's contract # which is applicable to all items on the"
^DD(444.024,10,21,2,0)="quote.  If individual line items fall under different contract numbers,"
^DD(444.024,10,21,3,0)="then the contract number should be entered at the item level."
^DD(444.024,10,"DT")="2960215"
^DD(444.024,11,0)="ITEM^444.026^^3;0"
^DD(444.024,11,21,0)="^^1^1^2960429^^^^"
^DD(444.024,11,21,1,0)="This is the list of items for which the vendor has submitted quotes."
^DD(444.024,12,0)="MANUALLY EDITED^S^1:YES;0:NO;^1;4^Q"
^DD(444.024,12,3)="""Enter 'YES' if the last edit for this record was manual"""
^DD(444.024,12,21,0)="^^2^2^2960216^"
^DD(444.024,12,21,1,0)="This flags a record as having been manually edited, either exclusively or"
^DD(444.024,12,21,2,0)="after any electronic transmission."
^DD(444.024,12,"DT")="2960216"
^DD(444.024,13,0)="LAST EDITOR^P200'^VA(200,^1;5^Q"
^DD(444.024,13,3)="Enter the name of the person doing the most recent edit."
^DD(444.024,13,21,0)="^^1^1^2960216^"
^DD(444.024,13,21,1,0)="This field identifies the last editor of this quote."
^DD(444.024,13,"DT")="2960216"
^DD(444.024,14,0)="DATE/TIME LAST EDITED^D^^1;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(444.024,14,3)="Enter the date and time that this quote was last edited."
^DD(444.024,14,21,0)="^^1^1^2960227^"
^DD(444.024,14,21,1,0)="This field records the date and time that this quote was last edited."
^DD(444.024,14,"DT")="2960227"
^DD(444.024,15,0)="CALCULATED LINE TOTAL^CJ10,2^^ ; ^X ^DD(444.024,15,9.3) S X=Y(444.024,15,103) S D0=Y(444.024,15,80) S D1=Y(444.024,15,81) S D2=Y(444.024,15,82)"
^DD(444.024,15,9)="^"
^DD(444.024,15,9.01)="444.026^18"
^DD(444.024,15,9.1)="TOTAL(#11:#18)"
^DD(444.024,15,9.2)="S Y(444.024,15,80)=$S($D(D0):D0,1:""""),Y(444.024,15,81)=$S($D(D1):D1,1:""""),Y(444.024,15,82)=$S($D(D2):D2,1:""""),Y(444.024,15,103)="""""
^DD(444.024,15,9.3)="X ^DD(444.024,15,9.2) X ""F D2=0:0 S D2=$O(^PRC(444,D0,8,D1,3,D2)) Q:D2'>0  S Y(444.024,15,103)=Y(444.024,15,103)+$S($D(^(D2,1)):$P(^(1),U,7),1:"""""""")"" S D(2)=D2"
^DD(444.024,15,21,0)="^^1^1^2960227^"
^DD(444.024,15,21,1,0)="This field sums the net line amounts."
^DD(444.024,16,0)="DUN #^CJ12^^ ; ^S X=$$DUN^PRCHQ1B(8)"
^DD(444.024,16,9)="^"
^DD(444.024,16,9.01)=""
^DD(444.024,16,9.1)="S X=$$DUN^PRCHQ1B(8)"
^DD(444.024,"B","CALCULATED LINE TOTAL",15)=""
^DD(444.024,"B","CONTACT PHONE",5)=""
^DD(444.024,"B","DATE/TIME LAST EDITED",14)=""
^DD(444.024,"B","DUN #",16)=""
^DD(444.024,"B","EFFECTIVE DATE",2)=""
^DD(444.024,"B","EST. SHIPPING AND/OR HANDLING",7)=""
^DD(444.024,"B","FILE 423.6 ENTRY",3.5)=""
^DD(444.024,"B","FOB",6)=""
^DD(444.024,"B","GOVT CONTRACT NBR",10)=""
^DD(444.024,"B","ITEM",11)=""
^DD(444.024,"B","LAST EDITOR",13)=""
^DD(444.024,"B","MANUALLY EDITED",12)=""
^DD(444.024,"B","PROMPT PAYMENT TERMS",9)=""
^DD(444.024,"B","QUOTE VENDOR",.01)=""
^DD(444.024,"B","RECEIPT DATE/TIME",3)=""
^DD(444.024,"B","SELLER REFERENCE NBR",1)=""
^DD(444.024,"B","TOTAL AMOUNT",8)=""
^DD(444.024,"B","VENDOR CONTACT",4)=""
^DD(444.024,"GL",0,1,.01)=""
^DD(444.024,"GL",0,2,1)=""
^DD(444.024,"GL",0,3,2)=""
^DD(444.024,"GL",0,4,3)=""
^DD(444.024,"GL",0,5,4)=""
^DD(444.024,"GL",0,6,5)=""
^DD(444.024,"GL",0,7,10)=""
^DD(444.024,"GL",1,1,6)=""
^DD(444.024,"GL",1,2,7)=""
^DD(444.024,"GL",1,3,8)=""
^DD(444.024,"GL",1,4,12)=""
^DD(444.024,"GL",1,5,13)=""
^DD(444.024,"GL",1,6,14)=""
^DD(444.024,"GL",1,7,3.5)=""
^DD(444.024,"GL",2,0,9)=""
^DD(444.024,"GL",3,0,11)=""
^DD(444.024,"IX",.01)=""
^DD(444.024,"SB",444.025,9)=""
^DD(444.024,"SB",444.026,11)=""
^DD(444.025,0)="PROMPT PAYMENT TERMS SUB-FIELD^^1^2"
^DD(444.025,0,"DT")="2951124"
^DD(444.025,0,"IX","B",444.025,.01)=""
^DD(444.025,0,"NM","PROMPT PAYMENT TERMS")=""
^DD(444.025,0,"UP")="444.024"
^DD(444.025,.01,0)="PROMPT PAYMENT TERMS^MFX^^0;1^K:+X'=X&(X'=""NET"") X I $D(X),+X=X K:X?.E1"".""3N.N!(X<.01)!(X>99) X"
^DD(444.025,.01,1,0)="^.1"
^DD(444.025,.01,1,1,0)="444.025^B"
^DD(444.025,.01,1,1,1)="S ^PRC(444,DA(2),8,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(444.025,.01,1,1,2)="K ^PRC(444,DA(2),8,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(444.025,.01,3)="Enter 'NET' or a number from .01 to 99 with up to two decimal places (i.e. 2 for two percent)"
^DD(444.025,.01,21,0)="^^1^1^2951124^^"
^DD(444.025,.01,21,1,0)="This is the prompt payment percent."
^DD(444.025,.01,"DT")="2951124"
^DD(444.025,1,0)="DAYS (TERM)^NJ2,0X^^0;2^K:X>60!(X<1)!(X?.E1"".""1N.N) X I $D(X),+X'=X K:X'?.N2A X Q:'$D(X)  S Z0=$E(X,$L(X)-1,$L(X)),X=$E(X,1,$L(X)-2)_$S(""STst""[Z0:""st"",""NDnd""[Z0:""nd"",""RDrd""[Z0:""rd"",""THth""[Z0:""th"",1:""ZZZZZ"") K:$L(X)>4 X"
^DD(444.025,1,3)="Enter a whole number between 1 and 60. You may append the number with ""st"", ""nd"", ""rd"", or ""th"" to indicate a date."
^DD(444.025,1,21,0)="^^1^1^2951124^^^"
^DD(444.025,1,21,1,0)="This is the term in days for prompt payment."
^DD(444.025,1,"DT")="2951124"
^DD(444.025,"B","DAYS (TERM)",1)=""
^DD(444.025,"B","PROMPT PAYMENT TERMS",.01)=""
^DD(444.025,"GL",0,1,.01)=""
^DD(444.025,"GL",0,2,1)=""
^DD(444.025,"IX",.01)=""
^DD(444.026,0)="ITEM SUB-FIELD^^18^20"
^DD(444.026,0,"DT")="2960317"
^DD(444.026,0,"IX","B",444.026,.01)=""
^DD(444.026,0,"NM","ITEM")=""
^DD(444.026,0,"UP")="444.024"
^DD(444.026,.01,0)="RFQ LINE ITEM^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.026,.01,1,0)="^.1"
^DD(444.026,.01,1,1,0)="444.026^B"
^DD(444.026,.01,1,1,1)="S ^PRC(444,DA(2),8,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(444.026,.01,1,1,2)="K ^PRC(444,DA(2),8,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(444.026,.01,3)="Enter a Whole Number between 1 and 999"
^DD(444.026,.01,21,0)="^^1^1^2951124^^"
^DD(444.026,.01,21,1,0)="This is the Line Item # for this item on the RFQ"
^DD(444.026,.01,"DT")="2951228"
^DD(444.026,1,0)="VENDOR PRODUCT NBR^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(444.026,1,3)="Answer must be 1-30 characters in length."
^DD(444.026,1,21,0)="^^1^1^2960317^^"
^DD(444.026,1,21,1,0)="This is the Product # which the vendor supplied with his quote."
^DD(444.026,1,"DT")="2960317"
^DD(444.026,1.5,0)="DESCRIPTION^444.036^^2;0"
^DD(444.026,1.5,21,0)="^^1^1^2951127^"
^DD(444.026,1.5,21,1,0)="This is the vendor's description of the item."
^DD(444.026,2,0)="QUANTITY^RNJ9,2O^^0;2^K:+X'=X!(X>999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(444.026,2,2)="S Y(0)=Y S Y=$FN(Y,"""",2)"
^DD(444.026,2,2.1)="S Y=$FN(Y,"""",2)"
^DD(444.026,2,3)="Enter number of units, from .01 to 999999 (2 decimals max)"
^DD(444.026,2,21,0)="^^1^1^2951124^"
^DD(444.026,2,21,1,0)="This is the quantity of the item quoted."
^DD(444.026,2,"DT")="2960321"
^DD(444.026,3,0)="UNIT OF PURCHASE^RP420.5'^PRCD(420.5,^0;3^Q"
^DD(444.026,3,3)="Select the vendor's quoted unit for this item"
^DD(444.026,3,21,0)="^^2^2^2951124^"
^DD(444.026,3,21,1,0)="This is the unit of measurement for items being supplied. (i.e. each,"
^DD(444.026,3,21,2,0)="dozen, box, bottle, case, pound, square foot, etc.)"
^DD(444.026,3,"DT")="2951124"
^DD(444.026,4,0)="FEDERAL SUPPLY CLASSIFICATION^P441.2'^PRC(441.2,^0;5^Q"
^DD(444.026,4,21,0)="^^1^1^2951124^"
^DD(444.026,4,21,1,0)="This is the Federal Supply Classification for this item."
^DD(444.026,4,"DT")="2951124"
^DD(444.026,5,0)="NSN^F^^0;6^K:$L(X)>17!($L(X)<16)!'(X?4N1""-""2UN1""-""3N1""-""4N.UN) X"
^DD(444.026,5,3)="Enter National Stock Number in format: 6505-56-789-1234A (last char optional)"
^DD(444.026,5,21,0)="^^1^1^2951124^"
^DD(444.026,5,21,1,0)="This is the National Stock Number for this item."
^DD(444.026,5,"DT")="2951124"
^DD(444.026,6,0)="SIC CODE^P444.2'^PRC(444.2,^0;7^Q"
^DD(444.026,6,3)="Enter the 4-6 digits code"
^DD(444.026,6,21,0)="^^2^2^2951130^^"
^DD(444.026,6,21,1,0)="The Standard Industrial Classification coding system categorizes"
^DD(444.026,6,21,2,0)="organizations by type of economic activity."
^DD(444.026,6,"DT")="2951130"
^DD(444.026,7,0)="NATIONAL DRUG CODE^F^^0;8^K:$L(X)>14!($L(X)<11)!'(X?1.6N1""-""1.4N1""-""1.2N) X"
^DD(444.026,7,3)="Enter in format 1-6 digits, hyphen, 1-4 digits, hyphen, 1-2 digits i.e. 123456-1234-12"
^DD(444.026,7,21,0)="^^1^1^2951124^"
^DD(444.026,7,21,1,0)="This is the National Drug Code for the item, if applicable."
^DD(444.026,7,"DT")="2951124"
^DD(444.026,8,0)="MFG PART NO.^F^^0;9^K:$L(X)>30!($L(X)<3) X"
^DD(444.026,8,3)="Enter the Manufacturer's Part # (3-30 chars)"
^DD(444.026,8,21,0)="^^1^1^2951124^"
^DD(444.026,8,21,1,0)="This is the Manufacturer's Part Number."
^DD(444.026,8,"DT")="2951124"
^DD(444.026,9,0)="LOT NBR^F^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(444.026,9,3)="Answer must be 1-30 characters in length."
^DD(444.026,9,21,0)="^^1^1^2951127^"
^DD(444.026,9,21,1,0)="This is the Lot # of the item in the vendor's quote."
^DD(444.026,9,"DT")="2951127"
^DD(444.026,10,0)="SERIAL NBR^F^^1;2^K:$L(X)>30!($L(X)<1) X"
^DD(444.026,10,3)="Answer must be 1-30 characters in length."
^DD(444.026,10,21,0)="^^1^1^2951127^"
^DD(444.026,10,21,1,0)="This is the serial number of the item of equipment for this quote."
^DD(444.026,10,"DT")="2951127"
^DD(444.026,11,0)="FOB^S^D:DESTINATION;O:ORIGIN;^0;10^Q"
^DD(444.026,11,3)="Enter 'D' if this is the delivered price or 'O' if there are shipping/handling charges"
^DD(444.026,11,21,0)="^^4^4^2951127^^"
^DD(444.026,11,21,1,0)="This field indicates whether price includes shipping.  If FOB is Destination,"
^DD(444.026,11,21,2,0)="there will be no additional shipping fees.  If, in contrast, FOB is Origin,"
^DD(444.026,11,21,3,0)="the price assumes ath the buyer will pick up the item at the vendor's"
^DD(444.026,11,21,4,0)="location, and shipping incurs additional charges."
^DD(444.026,11,"DT")="2951127"
^DD(444.026,12,0)="HAZARDOUS MATERIAL^S^HM:HAZARDOUS MATERIAL;^0;11^Q"
^DD(444.026,12,21,0)="^^2^2^2951127^^"
^DD(444.026,12,21,1,0)="If the item is marked as hazardous material, there may be special"
^DD(444.026,12,21,2,0)="requirements for shipping and storage of this item."
^DD(444.026,12,"DT")="2951127"
^DD(444.026,13,0)="UNIT COST^NJ11,4O^^1;3^K:+X'=X!(X>999999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(444.026,13,2)="S Y(0)=Y S Y=$FN(Y,"""",4)"
^DD(444.026,13,2.1)="S Y=$FN(Y,"""",4)"
^DD(444.026,13,3)="Enter the Cost between 0 and 999999.9999, up to 4 Decimal Digits"
^DD(444.026,13,21,0)="^^1^1^2951127^"
^DD(444.026,13,21,1,0)="This is the pre-discount cost."
^DD(444.026,13,"DT")="2960321"
^DD(444.026,14,0)="VOLUME DISCOUNT PERCENT^NJ5,2^^1;4^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(444.026,14,3)="Enter a percent between 0 and 99.99 (max 2 decimal places)"
^DD(444.026,14,21,0)="^^1^1^2951127^"
^DD(444.026,14,21,1,0)="This is the discount % given on the basis of proposed purchase amount."
^DD(444.026,14,"DT")="2951127"
^DD(444.026,15,0)="VOLUME DISCOUNT AMOUNT^NJ10,2O^^1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(444.026,15,2)="S Y(0)=Y S Y=$FN(Y,"""",2)"
^DD(444.026,15,2.1)="S Y=$FN(Y,"""",2)"
^DD(444.026,15,3)="Enter a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(444.026,15,21,0)="^^1^1^2951127^"
^DD(444.026,15,21,1,0)="This is a dollar discount based on the size of the proposed purchase."
^DD(444.026,15,"DT")="2960321"
^DD(444.026,16,0)="GOVT CONTRACT NBR^FX^^1;6^K:$L(X)>30!($L(X)<1) X D:$L($G(X))>19 EN^DDIOL(""Warning - Contract # will have to be trimmed to 19 characters for PO"")"
^DD(444.026,16,3)="Enter active government contract # applicable to this item (1-30 chars)"
^DD(444.026,16,21,0)="^^2^2^2951127^"
^DD(444.026,16,21,1,0)="This is the vendor's governmental contract which is applicable to this"
^DD(444.026,16,21,2,0)="item and which will be active at the proposed time of purchase."
^DD(444.026,16,"DT")="2960215"
^DD(444.026,17,0)="DELIVERY SCHEDULE^444.027^^3;0"
^DD(444.026,17,21,0)="^^1^1^2951128^"
^DD(444.026,17,21,1,0)="This is one of the Vendor's proposed deliveries for this item."
^DD(444.026,18,0)="NET LINE AMT^NJ9,2^^1;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(444.026,18,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(444.026,18,21,0)="^^3^3^2960227^"
^DD(444.026,18,21,1,0)="This field contains the net line amount calculated as the Gross Amount"
^DD(444.026,18,21,2,0)="(Unit Price x Quantity) minus Volume Discount.  Note that it does not"
^DD(444.026,18,21,3,0)="reflect any prompt pay discount."
^DD(444.026,18,"DT")="2960227"
^DD(444.026,"B","DELIVERY SCHEDULE",17)=""
^DD(444.026,"B","DESCRIPTION",1.5)=""
^DD(444.026,"B","FEDERAL SUPPLY CLASSIFICATION",4)=""
^DD(444.026,"B","FOB",11)=""
^DD(444.026,"B","GOVT CONTRACT NBR",16)=""
^DD(444.026,"B","HAZARDOUS MATERIAL",12)=""
^DD(444.026,"B","LOT NBR",9)=""
^DD(444.026,"B","MFG PART NO.",8)=""
^DD(444.026,"B","NATIONAL DRUG CODE",7)=""
^DD(444.026,"B","NET LINE AMT",18)=""
^DD(444.026,"B","NSN",5)=""
^DD(444.026,"B","QUANTITY",2)=""
^DD(444.026,"B","RFQ LINE ITEM",.01)=""
^DD(444.026,"B","SERIAL NBR",10)=""
^DD(444.026,"B","SIC CODE",6)=""
^DD(444.026,"B","UNIT COST",13)=""
^DD(444.026,"B","UNIT OF PURCHASE",3)=""
^DD(444.026,"B","VENDOR PRODUCT NBR",1)=""
^DD(444.026,"B","VOLUME DISCOUNT AMOUNT",15)=""
^DD(444.026,"B","VOLUME DISCOUNT PERCENT",14)=""
^DD(444.026,"GL",0,1,.01)=""
^DD(444.026,"GL",0,2,2)=""
^DD(444.026,"GL",0,3,3)=""
^DD(444.026,"GL",0,4,1)=""
^DD(444.026,"GL",0,5,4)=""
^DD(444.026,"GL",0,6,5)=""
^DD(444.026,"GL",0,7,6)=""
^DD(444.026,"GL",0,8,7)=""
^DD(444.026,"GL",0,9,8)=""
^DD(444.026,"GL",0,10,11)=""
^DD(444.026,"GL",0,11,12)=""
^DD(444.026,"GL",1,1,9)=""
^DD(444.026,"GL",1,2,10)=""
^DD(444.026,"GL",1,3,13)=""
^DD(444.026,"GL",1,4,14)=""
^DD(444.026,"GL",1,5,15)=""
^DD(444.026,"GL",1,6,16)=""
^DD(444.026,"GL",1,7,18)=""
^DD(444.026,"GL",2,0,1.5)=""
^DD(444.026,"GL",3,0,17)=""
^DD(444.026,"IX",.01)=""
^DD(444.026,"RQ",2)=""
^DD(444.026,"RQ",3)=""
^DD(444.026,"SB",444.027,17)=""
^DD(444.026,"SB",444.036,1.5)=""
^DD(444.027,0)="DELIVERY SCHEDULE SUB-FIELD^^3^4"
^DD(444.027,0,"DT")="2951128"
^DD(444.027,0,"IX","B",444.027,.01)=""
^DD(444.027,0,"NM","DELIVERY SCHEDULE")=""
^DD(444.027,0,"UP")="444.026"
^DD(444.027,.01,0)="DELIVERY SCHEDULE^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.027,.01,1,0)="^.1"
^DD(444.027,.01,1,1,0)="444.027^B"
^DD(444.027,.01,1,1,1)="S ^PRC(444,DA(3),8,DA(2),3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(444.027,.01,1,1,2)="K ^PRC(444,DA(3),8,DA(2),3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(444.027,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(444.027,.01,21,0)="^^1^1^2951128^"
^DD(444.027,.01,21,1,0)="This is the Vendor's proposed Delivery Schedule for this item."
^DD(444.027,.01,"DT")="2951128"
^DD(444.027,1,0)="DELIVERY DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:3941231<X!(2950101>X) X"
^DD(444.027,1,3)="Enter the date for delivery between 1 Jan 95 and 31 Dec 2094"
^DD(444.027,1,21,0)="^^1^1^2951128^"
^DD(444.027,1,21,1,0)="This is the date for this delivery."
^DD(444.027,1,"DT")="2951128"
^DD(444.027,2,0)="QUANTITY^RNJ9,2O^^0;3^K:+X'=X!(X>999999.99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(444.027,2,2)="S Y(0)=Y S Y=$FN(Y,"""",2)"
^DD(444.027,2,2.1)="S Y=$FN(Y,"""",2)"
^DD(444.027,2,3)="Enter the Quantity to be delivered on this Date (1-999999.99)"
^DD(444.027,2,21,0)="^^1^1^2951128^"
^DD(444.027,2,21,1,0)="This is the quantity to be delivered."
^DD(444.027,2,"DT")="2960321"
^DD(444.027,3,0)="UNIT OF PURCHASE^RP420.5'^PRCD(420.5,^0;4^Q"
^DD(444.027,3,3)="Select the unit being delivered"
^DD(444.027,3,21,0)="^^3^3^2951128^"
^DD(444.027,3,21,1,0)="This is the unit of measurement for items being procured."
^DD(444.027,3,21,2,0)=" "
^DD(444.027,3,21,3,0)=" i.e. each, dozen, box, bottle, case, pound, square foot, etc."
^DD(444.027,3,"DT")="2951128"
^DD(444.027,"B","DELIVERY DATE",1)=""
^DD(444.027,"B","DELIVERY SCHEDULE",.01)=""
^DD(444.027,"B","QUANTITY",2)=""
^DD(444.027,"B","UNIT OF PURCHASE",3)=""
^DD(444.027,"GL",0,1,.01)=""
^DD(444.027,"GL",0,2,1)=""
^DD(444.027,"GL",0,3,2)=""
^DD(444.027,"GL",0,4,3)=""
^DD(444.027,"IX",.01)=""
^DD(444.027,"RQ",1)=""
^DD(444.027,"RQ",2)=""
^DD(444.027,"RQ",3)=""
^DD(444.029,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(444.029,0,"DT")="2951120"
^DD(444.029,0,"NM","DESCRIPTION")=""
^DD(444.029,0,"UP")="444.019"
^DD(444.029,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(444.029,.01,21,0)="^^1^1^2951127^^"
^DD(444.029,.01,21,1,0)="This is the extended, free form description of this item."
^DD(444.029,.01,"DT")="2951120"
^DD(444.029,"B","DESCRIPTION",.01)=""
^DD(444.029,"GL",0,1,.01)=""
^DD(444.031,0)="TEXT SUB-FIELD^^.01^1"
^DD(444.031,0,"DT")="2951120"
^DD(444.031,0,"NM","TEXT")=""
^DD(444.031,0,"UP")="444.021"
^DD(444.031,.01,0)="TEXT^W^^0;1^Q"
^DD(444.031,.01,21,0)="^^1^1^2951120^"
^DD(444.031,.01,21,1,0)="This is the contents of the 864 transaction's free format field."
^DD(444.031,.01,"DT")="2951120"
^DD(444.031,"B","TEXT",.01)=""
^DD(444.031,"GL",0,1,.01)=""
^DD(444.036,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(444.036,0,"DT")="2951127"
^DD(444.036,0,"NM","DESCRIPTION")=""
^DD(444.036,0,"UP")="444.026"
^DD(444.036,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(444.036,.01,21,0)="^^1^1^2951127^^"
^DD(444.036,.01,21,1,0)="This is the vendor's description of the product in his quote."
^DD(444.036,.01,"DT")="2951127"
^DD(444.036,"B","DESCRIPTION",.01)=""
^DD(444.036,"GL",0,1,.01)=""
^DD(444.039,0)="DELIVERY SCHEDULE SUB-FIELD^^5^6"
^DD(444.039,0,"DT")="2960116"
^DD(444.039,0,"IX","B",444.039,.01)=""
^DD(444.039,0,"NM","DELIVERY SCHEDULE")=""
^DD(444.039,0,"UP")="444.019"
^DD(444.039,.01,0)="DELIVERY SCHEDULE^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.039,.01,1,0)="^.1"
^DD(444.039,.01,1,1,0)="444.039^B"
^DD(444.039,.01,1,1,1)="S ^PRC(444,DA(2),2,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(444.039,.01,1,1,2)="K ^PRC(444,DA(2),2,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(444.039,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(444.039,.01,21,0)="^^1^1^2951120^^"
^DD(444.039,.01,21,1,0)="This field is the Delivery Schedule for this Item."
^DD(444.039,.01,"DT")="2951120"
^DD(444.039,1,0)="DELIVERY DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:3941231<X!(2950101>X) X"
^DD(444.039,1,3)="Enter the date for delivery between 1 Jan 95 and 31 Dec 2094."
^DD(444.039,1,21,0)="^^1^1^2951120^"
^DD(444.039,1,21,1,0)="This is the date for this delivery."
^DD(444.039,1,"DT")="2951120"
^DD(444.039,2,0)="QUANTITY^RNJ9,2^^0;3^K:+X'=X!(X>999999.99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(444.039,2,3)="Enter the Quantity to be delivered on this Date (1-999999.99)"
^DD(444.039,2,21,0)="^^1^1^2951128^^"
^DD(444.039,2,21,1,0)="This is the quantity to be delivered."
^DD(444.039,2,"DT")="2951128"
^DD(444.039,3,0)="LOCATION^P410.8^PRCS(410.8,^0;4^Q"
^DD(444.039,3,3)="Enter a delivery location."
^DD(444.039,3,21,0)="^^1^1^2960116^"
^DD(444.039,3,21,1,0)="This is a delivery location."
^DD(444.039,3,"DT")="2960116"
^DD(444.039,4,0)="SUB-CONTROL POINT^P410.4'^PRCS(410.4,^0;5^Q"
^DD(444.039,4,3)="Enter sub-control point purchasing the item."
^DD(444.039,4,21,0)="^^1^1^2960116^"
^DD(444.039,4,21,1,0)="This is the sub-control point which will be purchasing the item."
^DD(444.039,4,"DT")="2960116"
^DD(444.039,5,0)="DELIVERY REFERENCE NUMBER^P410.6'^PRCS(410.6,^0;6^Q"
^DD(444.039,5,3)="Pointer to File 410.6"
^DD(444.039,5,21,0)="^^2^2^2960116^"
^DD(444.039,5,21,1,0)="This is the reference number for the delivery schedule used by the Control"
^DD(444.039,5,21,2,0)="Point Clerk."
^DD(444.039,5,"DT")="2960116"
^DD(444.039,"B","DELIVERY DATE",1)=""
^DD(444.039,"B","DELIVERY REFERENCE NUMBER",5)=""
^DD(444.039,"B","DELIVERY SCHEDULE",.01)=""
^DD(444.039,"B","LOCATION",3)=""
^DD(444.039,"B","QUANTITY",2)=""
^DD(444.039,"B","SUB-CONTROL POINT",4)=""
^DD(444.039,"GL",0,1,.01)=""
^DD(444.039,"GL",0,2,1)=""
^DD(444.039,"GL",0,3,2)=""
^DD(444.039,"GL",0,4,3)=""
^DD(444.039,"GL",0,5,4)=""
^DD(444.039,"GL",0,6,5)=""
^DD(444.039,"IX",.01)=""
^DD(444.039,"RQ",1)=""
^DD(444.039,"RQ",2)=""
^DD(444.1,0)="FIELD^^60^26"
^DD(444.1,0,"DDA")="N"
^DD(444.1,0,"DT")="2960612"
^DD(444.1,0,"ID",18.3)="W ""   "",$P(^(0),U,2)"
^DD(444.1,0,"IX","B",444.1,.01)=""
^DD(444.1,0,"IX","DB",444.1,18.3)=""
^DD(444.1,0,"NM","RFQ VENDOR")=""
^DD(444.1,0,"PT",444,20)=""
^DD(444.1,0,"PT",444,24)=""
^DD(444.1,0,"PT",444.01,.01)=""
^DD(444.1,0,"PT",444.019,17)=""
^DD(444.1,0,"PT",444.021,11)=""
^DD(444.1,0,"PT",444.022,.01)=""
^DD(444.1,0,"PT",444.024,.01)=""
^DD(444.1,0,"VR")="5.1"
^DD(444.1,0,"VRPK")="IFCAP"
^DD(444.1,.01,0)="VENDOR NAME^RF^^0;1^K:$L(X)>36!($L(X)<3)!'(X'?1P.E) X"
^DD(444.1,.01,1,0)="^.1"
^DD(444.1,.01,1,1,0)="444.1^B"
^DD(444.1,.01,1,1,1)="S ^PRC(444.1,""B"",$E(X,1,30),DA)="""""
^DD(444.1,.01,1,1,2)="K ^PRC(444.1,""B"",$E(X,1,30),DA)"
^DD(444.1,.01,3)="Answer must be 3-36 characters in length."
^DD(444.1,.01,21,0)="^^1^1^2951120^^^"
^DD(444.1,.01,21,1,0)="This is the Vendor's Name."
^DD(444.1,.01,"DT")="2951120"
^DD(444.1,1,0)="ORDER ADDR LINE 1^F^^1;1^K:$L(X)>33!($L(X)<1) X"
^DD(444.1,1,3)="Answer must be 1-33 characters in length."
^DD(444.1,1,21,0)="^^1^1^2960118^"
^DD(444.1,1,21,1,0)="This is the first line of the Ordering Address."
^DD(444.1,1,"DT")="2960118"
^DD(444.1,2,0)="ORDER ADDR LINE 2^F^^1;2^K:$L(X)>33!($L(X)<1) X"
^DD(444.1,2,3)="Answer must be 1-33 characters in length."
^DD(444.1,2,21,0)="^^1^1^2960118^"
^DD(444.1,2,21,1,0)="This is the second line of the Ordering Address."
^DD(444.1,2,"DT")="2960118"
^DD(444.1,3,0)="ORDER ADDR LINE 3^F^^1;3^K:$L(X)>25!($L(X)<1) X"
^DD(444.1,3,3)="Answer must be 1-25 characters in length."
^DD(444.1,3,21,0)="^^1^1^2960118^"
^DD(444.1,3,21,1,0)="This is the third line of the Ordering Address."
^DD(444.1,3,"DT")="2960118"
^DD(444.1,4,0)="ORDER ADDR LINE 4^F^^1;4^K:$L(X)>25!($L(X)<1) X"
^DD(444.1,4,3)="Answer must be 1-25 characters in length."
^DD(444.1,4,21,0)="^^1^1^2960118^"
^DD(444.1,4,21,1,0)="This is the fourth line of the Ordering Address."
^DD(444.1,4,"DT")="2960118"
^DD(444.1,4.2,0)="ORDER ADDR CITY^F^^1;5^K:$L(X)>20!($L(X)<3) X"
^DD(444.1,4.2,3)="Answer must be 3-20 characters in length."
^DD(444.1,4.2,21,0)="^^1^1^2960118^^^"
^DD(444.1,4.2,21,1,0)="This is the City field of the Ordering Address."
^DD(444.1,4.2,"DT")="2960118"
^DD(444.1,4.4,0)="ORDER ADDR STATE^P5'^DIC(5,^1;6^Q"
^DD(444.1,4.4,3)="Enter State's name or abbreviation"
^DD(444.1,4.4,21,0)="^^1^1^2960118^^"
^DD(444.1,4.4,21,1,0)="This is the State of the Ordering Address."
^DD(444.1,4.4,"DT")="2960118"
^DD(444.1,4.6,0)="ORDER ADDR ZIP CODE^F^^1;7^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(444.1,4.6,3)="Enter Zip Code as 5 digits or as 5 plus 4 digits."
^DD(444.1,4.6,21,0)="^^1^1^2960118^"
^DD(444.1,4.6,21,1,0)="This is the Zip Code of the Ordering Address."
^DD(444.1,4.6,"DT")="2960118"
^DD(444.1,4.8,0)="CONTACT^F^^0;3^K:$L(X)>30!($L(X)<3)!'(X?.ANP) X"
^DD(444.1,4.8,3)="Enter the name of the contact person for product information (3-30 chars)."
^DD(444.1,4.8,21,0)="^^1^1^2960118^"
^DD(444.1,4.8,21,1,0)="This is the name of the contact person for information from this vendor."
^DD(444.1,4.8,"DT")="2960118"
^DD(444.1,5,0)="VOICE PHONE^F^^0;6^K:$L(X)>21!($L(X)<10) X"
^DD(444.1,5,3)="Answer must be 10-21 characters in length."
^DD(444.1,5,21,0)="^^1^1^2960118^"
^DD(444.1,5,21,1,0)="This is the voice phone number for product and ordering information."
^DD(444.1,5,"DT")="2960118"
^DD(444.1,8.3,0)="BUSINESS TYPE^S^1:SMALL;2:LARGE;3:OUTSIDE U.S.;4:STATE/LOC/ED/NPF;^0;5^Q"
^DD(444.1,8.3,3)="Enter FPDS Business Type for FPDS reports for FY 1989 or later."
^DD(444.1,8.3,21,0)="^^1^1^2960118^"
^DD(444.1,8.3,21,1,0)="This is the type of business for FY89 FPDS reporting purposes."
^DD(444.1,8.3,"DT")="2960118"
^DD(444.1,9,0)="TYPE OF OWNERSHIP^444.19P^^3;0"
^DD(444.1,9,12)="Can only be an M, W, Y, or V"
^DD(444.1,9,12.1)="S DIC(""S"")=""I """"MWVY""""[$P(^PRCD(420.6,Y,0),U),$P(^(0),U,3)=0"""
^DD(444.1,9,21,0)="^^1^1^2960118^"
^DD(444.1,9,21,1,0)="This is the type of ownership."
^DD(444.1,10,0)="SOCIOECONOMIC GROUP^444.11P^^4;0"
^DD(444.1,10,12)="Select N, P, Q, R, W, or OO"
^DD(444.1,10,12.1)="S DIC(""S"")=""I Y>155,$P(^(0),U,3)=1"""
^DD(444.1,10,21,0)="^^1^1^2960118^"
^DD(444.1,10,21,1,0)="This is the socioeconomic group."
^DD(444.1,17.1,0)="PAYMENT ADDR NAME^F^^2;1^K:$L(X)>35!($L(X)<1) X"
^DD(444.1,17.1,3)="Answer must be 1-35 characters in length."
^DD(444.1,17.1,21,0)="^^1^1^2960119^"
^DD(444.1,17.1,21,1,0)="This is the first line of the Payment Address' Name."
^DD(444.1,17.1,"DT")="2960119"
^DD(444.1,17.15,0)="PAYMENT ADDR NAME 2^F^^2;2^K:$L(X)>35!($L(X)<1) X"
^DD(444.1,17.15,3)="Answer must be 1-35 characters in length."
^DD(444.1,17.15,21,0)="^^1^1^2960119^"
^DD(444.1,17.15,21,1,0)="This is the second line of the Payment Address' Name."
^DD(444.1,17.15,"DT")="2960119"
^DD(444.1,17.3,0)="PAYMENT ADDR LINE 1^F^^2;3^K:$L(X)>35!($L(X)<1) X"
^DD(444.1,17.3,3)="Answer must be 1-35 characters in length."
^DD(444.1,17.3,21,0)="^^1^1^2960119^"
^DD(444.1,17.3,21,1,0)="This is the first line of the Payment Address."
^DD(444.1,17.3,"DT")="2960119"
^DD(444.1,17.4,0)="PAYMENT ADDR LINE 2^F^^2;4^K:$L(X)>35!($L(X)<1) X"
^DD(444.1,17.4,3)="Answer must be 1-35 characters in length."
^DD(444.1,17.4,21,0)="^^1^1^2960119^"
^DD(444.1,17.4,21,1,0)="This is the second line of the Payment Address."
^DD(444.1,17.4,"DT")="2960119"
^DD(444.1,17.5,0)="PAYMENT ADDR LINE 3^F^^2;5^K:$L(X)>35!($L(X)<1) X"
^DD(444.1,17.5,3)="Answer must be 1-35 characters in length."
^DD(444.1,17.5,21,0)="^^1^1^2960119^"
^DD(444.1,17.5,21,1,0)="This is the third line of the Payment Address."
^DD(444.1,17.5,"DT")="2960119"
^DD(444.1,17.7,0)="PAYMENT CITY^F^^2;6^K:$L(X)>30!($L(X)<1) X"
^DD(444.1,17.7,3)="Answer must be 1-30 characters in length."
^DD(444.1,17.7,21,0)="^^1^1^2960119^"
^DD(444.1,17.7,21,1,0)="This is the City of the Payment Address."
^DD(444.1,17.7,"DT")="2960119"
^DD(444.1,17.8,0)="PAYMENT STATE^P5'^DIC(5,^2;7^Q"
^DD(444.1,17.8,3)="Enter the State's name or abbreviation."
^DD(444.1,17.8,21,0)="^^1^1^2960119^"
^DD(444.1,17.8,21,1,0)="This is the State of the Payment Address."
^DD(444.1,17.8,"DT")="2960119"
^DD(444.1,17.9,0)="PAYMENT ZIP CODE^F^^2;8^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(444.1,17.9,3)="Enter the Zip Code as 5 digits or as 5 plus 4 digits."
^DD(444.1,17.9,21,0)="^^1^1^2960119^"
^DD(444.1,17.9,21,1,0)="This is the Zip Code of the Payment Address."
^DD(444.1,17.9,"DT")="2960119"
^DD(444.1,18.3,0)="DUN & BRADSTREET #^FX^^0;2^S:$E(X,1,3)=""DUN"" X=$E(X,4,99) K:$L(X)>12!($L(X)<5) X I $D(X)#10,'$$DBCHK^PRCHQ1B(X) D EN^DDIOL(""Failed D&B Checksum"") K X"
^DD(444.1,18.3,1,0)="^.1"
^DD(444.1,18.3,1,1,0)="444.1^DB^MUMPS"
^DD(444.1,18.3,1,1,1)="S ^PRC(444.1,""DB"",""DUN""_$E(X,1,30),DA)="""""
^DD(444.1,18.3,1,1,2)="K ^PRC(444.1,""DB"",""DUN""_$E(X,1,30),DA)"
^DD(444.1,18.3,1,1,"%D",0)="^^1^1^2960306^^"
^DD(444.1,18.3,1,1,"%D",1,0)="This cross reference enables lookup by Dun & Bradstreet #."
^DD(444.1,18.3,1,1,"DT")="2960306"
^DD(444.1,18.3,3)="Enter the vendor's 5-12 characters code."
^DD(444.1,18.3,21,0)="^^2^2^2960613^^^"
^DD(444.1,18.3,21,1,0)="This field contains the Dun & Bradstreet # for the Vendor.  This is"
^DD(444.1,18.3,21,2,0)="the unique key for the vendor."
^DD(444.1,18.3,"DT")="2960613"
^DD(444.1,38,0)="TAX ID^FX^^0;4^S X=$TR(X,""-"") K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(444.1,38,3)="Enter 9 digits code without hyphens."
^DD(444.1,38,21,0)="^^1^1^2960118^"
^DD(444.1,38,21,1,0)="This is the Tax ID or Social Security Number for the vendor."
^DD(444.1,38,"DT")="2960118"
^DD(444.1,46,0)="FAX #^F^^0;7^K:$L(X)>21!($L(X)<10) X"
^DD(444.1,46,3)="Answer must be 10-21 characters in length."
^DD(444.1,46,21,0)="^^1^1^2960118^"
^DD(444.1,46,21,1,0)="This is the fax phone number."
^DD(444.1,46,"DT")="2960118"
^DD(444.1,50,0)="SECTION 8(a) PARTICIPANT^S^y:YES;n:NO;^0;8^Q"
^DD(444.1,50,3)="Enter 'YES' if vendor is a Section 8(a) Program participant."
^DD(444.1,50,21,0)="^^1^1^2960314^^"
^DD(444.1,50,21,1,0)="This field indicates whether the vendor is a Section 8(a) program participant."
^DD(444.1,50,"DT")="2960314"
^DD(444.1,60,0)="LINK TO FILE 440 VENDOR^*P440'X^PRC(440,^0;9^S DIC(""S"")=""I $P($G(^(7)),U,12)=$P($G(^PRC(444.1,D0,0)),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(444.1,60,3)="Enter File #440 entry which is the same vendor"
^DD(444.1,60,12)="Only allow linkage to vendor with same Dun & Bradstreet #"
^DD(444.1,60,12.1)="S DIC(""S"")=""I $P($G(^(7)),U,12)=$P($G(^PRC(444.1,D0,0)),U,2)"""
^DD(444.1,60,21,0)="^^4^4^2960706^^^"
^DD(444.1,60,21,1,0)="This field enables mapping of an entry  from RFQ Vendor file (a temporary"
^DD(444.1,60,21,2,0)="file) to an entry in the VENDOR file so that 2237s and POs will be built"
^DD(444.1,60,21,3,0)="with information from the VENDOR file if the equivalent entry has been"
^DD(444.1,60,21,4,0)="added."
^DD(444.1,60,"DT")="2960706"
^DD(444.1,"B","BUSINESS TYPE",8.3)=""
^DD(444.1,"B","CONTACT",4.8)=""
^DD(444.1,"B","DUN & BRADSTREET #",18.3)=""
^DD(444.1,"B","FAX #",46)=""
^DD(444.1,"B","LINK TO FILE 440 VENDOR",60)=""
^DD(444.1,"B","ORDER ADDR CITY",4.2)=""
^DD(444.1,"B","ORDER ADDR LINE 1",1)=""
^DD(444.1,"B","ORDER ADDR LINE 2",2)=""
^DD(444.1,"B","ORDER ADDR LINE 3",3)=""
^DD(444.1,"B","ORDER ADDR LINE 4",4)=""
^DD(444.1,"B","ORDER ADDR STATE",4.4)=""
^DD(444.1,"B","ORDER ADDR ZIP CODE",4.6)=""
^DD(444.1,"B","PAYMENT ADDR LINE 1",17.3)=""
^DD(444.1,"B","PAYMENT ADDR LINE 2",17.4)=""
^DD(444.1,"B","PAYMENT ADDR LINE 3",17.5)=""
^DD(444.1,"B","PAYMENT ADDR NAME",17.1)=""
^DD(444.1,"B","PAYMENT ADDR NAME 2",17.15)=""
^DD(444.1,"B","PAYMENT CITY",17.7)=""
^DD(444.1,"B","PAYMENT STATE",17.8)=""
^DD(444.1,"B","PAYMENT ZIP CODE",17.9)=""
^DD(444.1,"B","SECTION 8(a) PARTICIPANT",50)=""
^DD(444.1,"B","SOCIOECONOMIC GROUP",10)=""
^DD(444.1,"B","TAX ID",38)=""
^DD(444.1,"B","TYPE OF OWNERSHIP",9)=""
^DD(444.1,"B","VENDOR NAME",.01)=""
^DD(444.1,"B","VOICE PHONE",5)=""
^DD(444.1,"GL",0,1,.01)=""
^DD(444.1,"GL",0,2,18.3)=""
^DD(444.1,"GL",0,3,4.8)=""
^DD(444.1,"GL",0,4,38)=""
^DD(444.1,"GL",0,5,8.3)=""
^DD(444.1,"GL",0,6,5)=""
^DD(444.1,"GL",0,7,46)=""
^DD(444.1,"GL",0,8,50)=""
^DD(444.1,"GL",0,9,60)=""
^DD(444.1,"GL",1,1,1)=""
^DD(444.1,"GL",1,2,2)=""
^DD(444.1,"GL",1,3,3)=""
^DD(444.1,"GL",1,4,4)=""
^DD(444.1,"GL",1,5,4.2)=""
^DD(444.1,"GL",1,6,4.4)=""
^DD(444.1,"GL",1,7,4.6)=""
^DD(444.1,"GL",2,1,17.1)=""
^DD(444.1,"GL",2,2,17.15)=""
^DD(444.1,"GL",2,3,17.3)=""
^DD(444.1,"GL",2,4,17.4)=""
^DD(444.1,"GL",2,5,17.5)=""
^DD(444.1,"GL",2,6,17.7)=""
^DD(444.1,"GL",2,7,17.8)=""
^DD(444.1,"GL",2,8,17.9)=""
^DD(444.1,"GL",3,0,9)=""
^DD(444.1,"GL",4,0,10)=""
^DD(444.1,"IX",.01)=""
^DD(444.1,"IX",18.3)=""
^DD(444.1,"RQ",.01)=""
^DD(444.1,"SB",444.11,10)=""
^DD(444.1,"SB",444.19,9)=""
^DD(444.11,0)="SOCIOECONOMIC GROUP SUB-FIELD^^.01^1"
^DD(444.11,0,"DT")="2960118"
^DD(444.11,0,"IX","B",444.11,.01)=""
^DD(444.11,0,"NM","SOCIOECONOMIC GROUP")=""
^DD(444.11,0,"UP")="444.1"
^DD(444.11,.01,0)="SOCIOECONOMIC GROUP^M*P420.6'XO^PRCD(420.6,^0;1^S DIC(""S"")=""I Y>155,$P(^(0),U,3)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(444.11,.01,1,0)="^.1"
^DD(444.11,.01,1,1,0)="444.11^B"
^DD(444.11,.01,1,1,1)="S ^PRC(444.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(444.11,.01,1,1,2)="K ^PRC(444.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(444.11,.01,2)="S Y(0)=Y Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U)_""  ""_$P(Y,U,2)"
^DD(444.11,.01,2.1)="Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U)_""  ""_$P(Y,U,2)"
^DD(444.11,.01,3)="Enter FPDS Socioeconomic Group for use in FPDS reporting for FY 1989 or later."
^DD(444.11,.01,12)="Select N, P, Q, R, W, or OO"
^DD(444.11,.01,12.1)="S DIC(""S"")=""I Y>155,$P(^(0),U,3)=1"""
^DD(444.11,.01,21,0)="^^1^1^2960118^^"
^DD(444.11,.01,21,1,0)="This is the socioeconomic group."
^DD(444.11,.01,"DT")="2960119"
^DD(444.11,"B","SOCIOECONOMIC GROUP",.01)=""
^DD(444.11,"GL",0,1,.01)=""
^DD(444.11,"IX",.01)=""
^DD(444.19,0)="TYPE OF OWNERSHIP SUB-FIELD^^.01^1"
^DD(444.19,0,"DT")="2960118"
^DD(444.19,0,"IX","B",444.19,.01)=""
^DD(444.19,0,"NM","TYPE OF OWNERSHIP")=""
^DD(444.19,0,"UP")="444.1"
^DD(444.19,.01,0)="TYPE OF OWNERSHIP^M*P420.6'XO^PRCD(420.6,^0;1^S DIC(""S"")=""I """"MWVY""""[$P(^PRCD(420.6,Y,0),U),$P(^(0),U,3)=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(444.19,.01,1,0)="^.1"
^DD(444.19,.01,1,1,0)="444.19^B"
^DD(444.19,.01,1,1,1)="S ^PRC(444.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(444.19,.01,1,1,2)="K ^PRC(444.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(444.19,.01,2)="S Y(0)=Y Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U)_""   ""_$P(Y,U,2)"
^DD(444.19,.01,2.1)="Q:Y=""""  S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""""),Y=$P(Y,U)_""   ""_$P(Y,U,2)"
^DD(444.19,.01,12)="Can only be an M, W, Y, or V"
^DD(444.19,.01,12.1)="S DIC(""S"")=""I """"MWVY""""[$P(^PRCD(420.6,Y,0),U),$P(^(0),U,3)=0"""
^DD(444.19,.01,21,0)="^^1^1^2960118^^"
^DD(444.19,.01,21,1,0)="This is the type of ownership."
^DD(444.19,.01,"DT")="2960118"
^DD(444.19,"B","TYPE OF OWNERSHIP",.01)=""
^DD(444.19,"GL",0,1,.01)=""
^DD(444.19,"IX",.01)=""
^DD(444.2,0)="FIELD^^1^2"
^DD(444.2,0,"DT")="2960119"
^DD(444.2,0,"IX","B",444.2,.01)=""
^DD(444.2,0,"IX","C",444.2,1)=""
^DD(444.2,0,"IX","D",444.2,.01)=""
^DD(444.2,0,"NM","SIC CODE")=""
^DD(444.2,0,"PT",441,24)=""
^DD(444.2,0,"PT",444.019,6)=""
^DD(444.2,0,"PT",444.026,6)=""
^DD(444.2,0,"VR")="5.1"
^DD(444.2,0,"VRPK")="IFCAP"
^DD(444.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>79!($L(X)<5)!'(X?4.6N1"" ""1AN.ANP) X S:$D(X) DINUM=+X"
^DD(444.2,.01,1,0)="^.1"
^DD(444.2,.01,1,1,0)="444.2^B"
^DD(444.2,.01,1,1,1)="S ^PRC(444.2,""B"",$E(X,1,30),DA)="""""
^DD(444.2,.01,1,1,2)="K ^PRC(444.2,""B"",$E(X,1,30),DA)"
^DD(444.2,.01,1,1,"DT")="2951201"
^DD(444.2,.01,1,2,0)="444.2^D^MUMPS"
^DD(444.2,.01,1,2,1)="S ^PRC(444.2,""D"",$E($P(X,"" "",2),1,30),DA)="""""
^DD(444.2,.01,1,2,2)="K ^PRC(444.2,""D"",$E($P(X,"" "",2),1,30),DA)"
^DD(444.2,.01,1,2,"%D",0)="^^2^2^2960515^"
^DD(444.2,.01,1,2,"%D",1,0)="This cross reference enables lookup by the text name portion of the SIC"
^DD(444.2,.01,1,2,"%D",2,0)="Code."
^DD(444.2,.01,1,2,"DT")="2960515"
^DD(444.2,.01,3)="Answer must be 5-79 characters in length."
^DD(444.2,.01,21,0)="^^2^2^2960122^^^^"
^DD(444.2,.01,21,1,0)="This is the Standard Industrial Classification Code and Name, which are used"
^DD(444.2,.01,21,2,0)="to classify organizations by economic activity."
^DD(444.2,.01,"DT")="2960515"
^DD(444.2,1,0)="GROUP^P444.21'^PRC(444.21,^0;2^Q"
^DD(444.2,1,1,0)="^.1"
^DD(444.2,1,1,1,0)="444.2^C"
^DD(444.2,1,1,1,1)="S ^PRC(444.2,""C"",$E(X,1,30),DA)="""""
^DD(444.2,1,1,1,2)="K ^PRC(444.2,""C"",$E(X,1,30),DA)"
^DD(444.2,1,1,1,"%D",0)="^^1^1^2960119^"
^DD(444.2,1,1,1,"%D",1,0)="This cross reference enables lookup by Major SIC group."
^DD(444.2,1,1,1,"DT")="2960119"
^DD(444.2,1,3)="Enter the name of the Major Group to which this SIC Code belongs."
^DD(444.2,1,21,0)="^^1^1^2960119^^^^"
^DD(444.2,1,21,1,0)="This is the free-text short description."
^DD(444.2,1,"DT")="2960119"
^DD(444.2,"B","GROUP",1)=""
^DD(444.2,"B","NAME",.01)=""
^DD(444.2,"GL",0,1,.01)=""
^DD(444.2,"GL",0,2,1)=""
^DD(444.2,"IX",.01)=""
^DD(444.2,"IX",1)=""
^DD(444.2,"RQ",.01)=""
^DD(444.21,0)="FIELD^^1^3"
^DD(444.21,0,"DDA")="N"
^DD(444.21,0,"DT")="2960126"
^DD(444.21,0,"IX","B",444.21,.01)=""
^DD(444.21,0,"NM","SIC CODE GROUPS")=""
^DD(444.21,0,"PT",444.2,1)=""
^DD(444.21,0,"VR")="5.1"
^DD(444.21,0,"VRPK")="IFCAP"
^DD(444.21,.001,0)="GROUP NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(444.21,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(444.21,.001,21,0)="^^1^1^2960119^"
^DD(444.21,.001,21,1,0)="This is the Number for the Group."
^DD(444.21,.001,"DT")="2960119"
^DD(444.21,.01,0)="NAME^RF^^0;1^K:$L(X)>75!($L(X)<3)!'(X'?1P.E) X"
^DD(444.21,.01,1,0)="^.1"
^DD(444.21,.01,1,1,0)="444.21^B"
^DD(444.21,.01,1,1,1)="S ^PRC(444.21,""B"",$E(X,1,30),DA)="""""
^DD(444.21,.01,1,1,2)="K ^PRC(444.21,""B"",$E(X,1,30),DA)"
^DD(444.21,.01,3)="Answer must be 3-75 characters in length."
^DD(444.21,.01,21,0)="^^1^1^2960119^^^"
^DD(444.21,.01,21,1,0)="This is the name of a Major SIC Group."
^DD(444.21,.01,"DT")="2960119"
^DD(444.21,1,0)="DIVISION^RF^^0;2^K:$L(X)>30!($L(X)<3)!'(X?1U1"" ""1.ANP) X"
^DD(444.21,1,3)="Enter Division as Division Letter Space Division Name"
^DD(444.21,1,21,0)="^^1^1^2960126^"
^DD(444.21,1,21,1,0)="This is the Division of the Standard Industry Classification."
^DD(444.21,1,"DT")="2960126"
^DD(444.21,"B","DIVISION",1)=""
^DD(444.21,"B","GROUP NUMBER",.001)=""
^DD(444.21,"B","NAME",.01)=""
^DD(444.21,"GL",0,1,.01)=""
^DD(444.21,"GL",0,2,1)=""
^DD(444.21,"IX",.01)=""
^DD(444.21,"RQ",.01)=""
^DD(444.21,"RQ",1)=""
^DD(444.3,0)="FIELD^^1^2"
^DD(444.3,0,"DDA")="N"
^DD(444.3,0,"DT")="2960429"
^DD(444.3,0,"IX","B",444.3,.01)=""
^DD(444.3,0,"NM","RFQ COUNTER")=""
^DD(444.3,0,"VR")="5.1"
^DD(444.3,0,"VRPK")="IFCAP"
^DD(444.3,.01,0)="STATION PLUS FISCAL YEAR^RF^^0;1^K:$L(X)>6!($L(X)<6)!'(X?3N1""-""2N) X"
^DD(444.3,.01,1,0)="^.1"
^DD(444.3,.01,1,1,0)="444.3^B"
^DD(444.3,.01,1,1,1)="S ^PRC(444.3,""B"",$E(X,1,30),DA)="""""
^DD(444.3,.01,1,1,2)="K ^PRC(444.3,""B"",$E(X,1,30),DA)"
^DD(444.3,.01,3)="Enter 3 digits station number, hyphen, and 2 digits Fiscal Year, i.e. 688-96"
^DD(444.3,.01,21,0)="^^1^1^2960429^"
^DD(444.3,.01,21,1,0)="This field identifies the counter."
^DD(444.3,.01,"DT")="2960429"
^DD(444.3,1,0)="VALUE^RNJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(444.3,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(444.3,1,21,0)="^^1^1^2960429^^"
^DD(444.3,1,21,1,0)="This field stores the last assigned value of the counter."
^DD(444.3,1,"DT")="2960429"
^DD(444.3,"B","STATION PLUS FISCAL YEAR",.01)=""
^DD(444.3,"B","VALUE",1)=""
^DD(444.3,"GL",0,1,.01)=""
^DD(444.3,"GL",0,2,1)=""
^DD(444.3,"IX",.01)=""
^DD(444.3,"RQ",.01)=""
^DD(444.3,"RQ",1)=""
^DD(444.4,0)="FIELD^^1^2"
^DD(444.4,0,"DDA")="N"
^DD(444.4,0,"DT")="2960831"
^DD(444.4,0,"IX","B",444.4,.01)=""
^DD(444.4,0,"NM","RFQ EDITING PREFERENCE")=""
^DD(444.4,0,"VR")="5.1"
^DD(444.4,0,"VRPK")="IFCAP"
^DD(444.4,.01,0)="USER^RP200'X^VA(200,^0;1^S:$D(X) DINUM=X"
^DD(444.4,.01,1,0)="^.1"
^DD(444.4,.01,1,1,0)="444.4^B"
^DD(444.4,.01,1,1,1)="S ^PRC(444.4,""B"",$E(X,1,30),DA)="""""
^DD(444.4,.01,1,1,2)="K ^PRC(444.4,""B"",$E(X,1,30),DA)"
^DD(444.4,.01,3)="Enter the name of the user."
^DD(444.4,.01,21,0)="^^1^1^2960831^^"
^DD(444.4,.01,21,1,0)="This is the IFCAP user who will be doing the editing."
^DD(444.4,.01,"DT")="2960831"
^DD(444.4,1,0)="EDITOR^RS^a:ASK ALWAYS;i:INPUT TEMPLATE ALWAYS;s:SCREENMAN ALWAYS;^0;2^Q"
^DD(444.4,1,3)="Enter your preferred editing mode or ASK ALWAYS if you wish to be prompted."
^DD(444.4,1,21,0)="^^5^5^2960831^"
^DD(444.4,1,21,1,0)="This field will determine if the user when in edit options is asked if"
^DD(444.4,1,21,2,0)="they wish to edit via ScreenMan Form or FileMan Input Template.  If the"
^DD(444.4,1,21,3,0)="user picks INPUT TEMPLATE ALWAYS or SCREENMAN ALWAYS, the appropriate"
^DD(444.4,1,21,4,0)="editing mode will be invoked without the user having to answer the"
^DD(444.4,1,21,5,0)="additional question within each editing option."
^DD(444.4,1,"DT")="2960831"
^DD(444.4,"B","EDITOR",1)=""
^DD(444.4,"B","USER",.01)=""
^DD(444.4,"GL",0,1,.01)=""
^DD(444.4,"GL",0,2,1)=""
^DD(444.4,"IX",.01)=""
^DD(444.4,"RQ",.01)=""
^DD(444.4,"RQ",1)=""
^DD(445,0)="FIELD^^26^39"
^DD(445,0,"DDA")="N"
^DD(445,0,"DT")="2950725"
^DD(445,0,"ID","WRITE")="W ?35,@(""$P($P($C(59)_$S($D(^DD(445,.7,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(445,0,"IX","AB",445.03,.01)=""
^DD(445,0,"IX","AC",445,.7)=""
^DD(445,0,"IX","AD",445.04,.01)=""
^DD(445,0,"IX","AE",445.01,.01)=""
^DD(445,0,"IX","AF",445,.8)=""
^DD(445,0,"IX","AG",445,.5)=""
^DD(445,0,"IX","AH",445,.7)=""
^DD(445,0,"IX","AH",445,22)=""
^DD(445,0,"IX","AH",445.01,.01)=""
^DD(445,0,"IX","AH",445.01,9)=""
^DD(445,0,"IX","AI",445,22)=""
^DD(445,0,"IX","ASPEC",445,15)=""
^DD(445,0,"IX","B",445,.01)=""
^DD(445,0,"IX","C",445,.01)=""
^DD(445,0,"NM","GENERIC INVENTORY")=""
^DD(445,0,"PT",58.8,11)=""
^DD(445,0,"PT",58.8445,.01)=""
^DD(445,0,"PT",410,4)=""
^DD(445,0,"PT",410.3,3)=""
^DD(445,0,"PT",420.01,17)=""
^DD(445,0,"PT",420.07,.01)=""
^DD(445,0,"PT",441,13)=""
^DD(445,0,"PT",442.14,11)=""
^DD(445,0,"PT",442.147,.01)=""
^DD(445,0,"PT",443,11)=""
^DD(445,0,"PT",445,13)=""
^DD(445,0,"PT",445,19.7)=""
^DD(445,0,"PT",445.01,.4)=""
^DD(445,0,"PT",445.03,.01)=""
^DD(445,0,"PT",445.07,.01)=""
^DD(445,0,"PT",445.1,.01)=""
^DD(445,0,"PT",445.2,.01)=""
^DD(445,0,"PT",445.2,14)=""
^DD(445,0,"PT",445.3,1)=""
^DD(445,0,"PT",445.3,2)=""
^DD(445,0,"PT",445.4,1)=""
^DD(445,0,"PT",445.6,1)=""
^DD(445,0,"PT",445.7,2)=""
^DD(445,0,"PT",445.8,2)=""
^DD(445,0,"PT",446,.01)=""
^DD(445,0,"PT",446,2)=""
^DD(445,0,"PT",446.1,4)=""
^DD(445,0,"PT",660,29)=""
^DD(445,0,"PT",660.1,11)=""
^DD(445,0,"PT",660.2,11)=""
^DD(445,0,"PT",664.16,18)=""
^DD(445,0,"PT",664.22,4)=""
^DD(445,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445,0,"VR")="5.1"
^DD(445,0,"VRPK")="IFCAP"
^DD(445,.01,0)="INVENTORY POINT^RFX^^0;1^D START^PRCIREC1"
^DD(445,.01,1,0)="^.1^^-1"
^DD(445,.01,1,1,0)="445^B"
^DD(445,.01,1,1,1)="S ^PRCP(445,""B"",$E(X,1,30),DA)="""""
^DD(445,.01,1,1,2)="K ^PRCP(445,""B"",$E(X,1,30),DA)"
^DD(445,.01,1,2,0)="445^C^MUMPS"
^DD(445,.01,1,2,1)="S ^PRCP(445,""C"",$P(X,""-"",2,99),DA)="""""
^DD(445,.01,1,2,2)="K ^PRCP(445,""C"",$P(X,""-"",2,99),DA)"
^DD(445,.01,1,2,"%D",0)="^^2^2^2940715^^"
^DD(445,.01,1,2,"%D",1,0)="This cross reference is used to store the name of the inventory point"
^DD(445,.01,1,2,"%D",2,0)="without including the station number (from the first piece of ""-"")."
^DD(445,.01,1,2,"DT")="2920107"
^DD(445,.01,3)="Name of any Inventory/Distribution Point (30 char.max.) Can be the Warehouse, a Primary (can order from supply), or a Secondary (stocked by a Primary). (Preceded by Site No. and a dash [-] internally)"
^DD(445,.01,21,0)="^.001^3^3^3080214^^^"
^DD(445,.01,21,1,0)="This is the name of a warehouse, primary, or secondary inventory point."
^DD(445,.01,21,2,0)="The name of the inventory point must be preceded with the station number"
^DD(445,.01,21,3,0)="and must be an unique name not already used."
^DD(445,.01,"DEL",1,0)="D DELETE^PRCIREC1"
^DD(445,.01,"DEL",2,0)="D KILL^PRCPUINV(DA) I 1"
^DD(445,.01,"DT")="3080214"
^DD(445,.5,0)="KEEP PERPETUAL INVENTORY?^RS^Y:YES;N:NO;^0;2^Q"
^DD(445,.5,1,0)="^.1"
^DD(445,.5,1,1,0)="445^AG^MUMPS"
^DD(445,.5,1,1,1)="S:X=""N"" $P(^PRCP(445,DA,0),U,6)=""N"""
^DD(445,.5,1,1,2)="Q"
^DD(445,.5,1,1,"%D",0)="^^2^2^2930503^"
^DD(445,.5,1,1,"%D",1,0)="This cross reference is used to set the field KEEP DETAILED TRX. HISTORY?"
^DD(445,.5,1,1,"%D",2,0)="(#.6) to NO if the field KEEP PERPETUAL INVENTORY? (#.5) is set to NO."
^DD(445,.5,3)="Answer 'N' (NO) if this entity does NOT wish to use the Generic Inventory System.  This file can be used just as a list of items repetitively used by the entity, for generating an item catalog."
^DD(445,.5,21,0)="^^3^3^2940715^^^"
^DD(445,.5,21,1,0)="If KEEP PERPETUAL INVENTORY? is set to yes, the inventory point will track"
^DD(445,.5,21,2,0)="item quantities, usage, and receipts."
^DD(445,.5,21,3,0)=""
^DD(445,.5,22)=""
^DD(445,.5,"DT")="2891010"
^DD(445,.6,0)="KEEP DETAILED TRX. HISTORY?^S^Y:YES;N:NO;^0;6^Q"
^DD(445,.6,3)="If set to 'Y', a detailed transaction history will be kept for any transaction that affects the inventory quantity on hand for this inventory point."
^DD(445,.6,21,0)="^^3^3^2940715^^"
^DD(445,.6,21,1,0)="This field indicates whether the inventory will keep a detailed tracking"
^DD(445,.6,21,2,0)="history of its stocked items.  If the field is set to yes, the item history"
^DD(445,.6,21,3,0)="will be tracked in the TRANSACTION REGISTER file 445.2."
^DD(445,.6,"DT")="2861212"
^DD(445,.7,0)="TYPE OF INVENTORY POINT^R*SX^W:SUPPLY WAREHOUSE;P:PRIMARY;S:SECONDARY;^0;3^I X=""W"" D TYPE^PRCPUINV"
^DD(445,.7,1,0)="^.1"
^DD(445,.7,1,1,0)="445^AC"
^DD(445,.7,1,1,1)="S ^PRCP(445,""AC"",$E(X,1,30),DA)="""""
^DD(445,.7,1,1,2)="K ^PRCP(445,""AC"",$E(X,1,30),DA)"
^DD(445,.7,1,1,"%D",0)="^^2^2^2930628^"
^DD(445,.7,1,1,"%D",1,0)="This cross reference sorts the inventory points by type.  The node"
^DD(445,.7,1,1,"%D",2,0)="prcp(445,""ac"",TYPE,da) is set."
^DD(445,.7,1,2,0)="445^AH^MUMPS"
^DD(445,.7,1,2,1)="N ITEM,SS Q:X'=""S""  S SS=$P($G(^PRCP(445,DA,5)),""^"",1) Q:SS']""""  S ITEM=0 F  S ITEM=$O(^PRCP(445,DA,1,ITEM)) Q:'+ITEM  I $P($G(^PRCP(445,DA,1,ITEM,0)),""^"",9)>0 S ^PRCP(445,""AH"",ITEM,SS,DA)="""""
^DD(445,.7,1,2,2)="N SS,ITEM S SS=$P($G(^PRCP(445,DA,5)),""^"",1) Q:'SS  S ITEM=0 F  S ITEM=$O(^PRCP(445,DA,1,ITEM)) Q:'+ITEM  K ^PRCP(445,""AH"",ITEM,SS,DA)"
^DD(445,.7,1,2,"%D",0)="^^3^3^3000503^"
^DD(445,.7,1,2,"%D",1,0)="This cross reference lists all supply station items by supply station,"
^DD(445,.7,1,2,"%D",2,0)="allowing GIP to quickly access where items are kept and how many places"
^DD(445,.7,1,2,"%D",3,0)="the item is stored."
^DD(445,.7,1,2,"DT")="3000503"
^DD(445,.7,3)="Warehouse-Main storage and distribution point for site.  Primary Dist.Point-can order directly from Supply.  Secondary Dist.Point-cannot order from supply, but is stocked by a Primary Dist.Point"
^DD(445,.7,12)="Supply Service can only enter Warehouses or Primary Inventory/Distribution Points."
^DD(445,.7,12.1)="S DIC(""S"")=""Q:$D(PRCP(""""I""""))  I Y=""""W""""!(Y=""""P"""")"""
^DD(445,.7,21,0)="^^3^3^2940715^^"
^DD(445,.7,21,1,0)="This field indicates whether the inventory point is a warehouse, a primary, or"
^DD(445,.7,21,2,0)="a secondary type inventory point.  For each station number, there can only be"
^DD(445,.7,21,3,0)="one warehouse type inventory point."
^DD(445,.7,"DT")="3000503"
^DD(445,.8,0)="ABBREVIATED NAME^RFX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1)!'(X?1U.E) X I $D(X) K:$O(^PRCP(445,""AF"",+^PRCP(445,DA,0),X,0)) X"
^DD(445,.8,1,0)="^.1"
^DD(445,.8,1,1,0)="445^AF^MUMPS"
^DD(445,.8,1,1,1)="S ^PRCP(445,""AF"",+^PRCP(445,DA,0),$E(X,1,30),DA)="""""
^DD(445,.8,1,1,2)="K ^PRCP(445,""AF"",+^PRCP(445,DA,0),$E(X,1,30),DA)"
^DD(445,.8,1,1,"%D",0)="^^2^2^2930503^"
^DD(445,.8,1,1,"%D",1,0)="This cross reference is used to store the abbreviated name (in X) by"
^DD(445,.8,1,1,"%D",2,0)="the station number (+^PRCP(445,DA,0))."
^DD(445,.8,3)="*MUST BE UNIQUE*  ANSWER MUST BE 1-6 CHARACTERS IN LENGTH.  (First character must be an upper-case alphabetic).  This field is used to Identify the Requesting Location for Nonrecurring Item Requests."
^DD(445,.8,21,0)="^^3^3^2940715^^"
^DD(445,.8,21,1,0)="This is the abbreviated name of the inventory point.  The abbreviated name can"
^DD(445,.8,21,2,0)="be used when selecting an inventory point.  The name must be unique for the"
^DD(445,.8,21,3,0)="inventory point (two inventory points cannot have the same abbreviated name)."
^DD(445,.8,"DT")="2861205"
^DD(445,.9,0)="COST CENTER^P420.1'^PRCD(420.1,^0;7^Q"
^DD(445,.9,3)="This field is required on Primary Inventory/Distribution Points for doing Stock Replenishment.  It is also used to create the Distribution Report by Cost Center for Accounting."
^DD(445,.9,21,0)="^^1^1^2910517^"
^DD(445,.9,21,1,0)="This is the cost center for the inventory point."
^DD(445,.9,"DT")="2861027"
^DD(445,1,0)="INVENTORY ITEM^445.01IP^^1;0"
^DD(445,1,21,0)="^.001^5^5^3001227^^^^"
^DD(445,1,21,1,0)="This multiple field stores the items which are stored in the inventory point."
^DD(445,1,21,2,0)="The fields under the item multiple store the quantity on-hand, quantity"
^DD(445,1,21,3,0)="due-out, quantity due-in, reorder points and levels, receipt and usage"
^DD(445,1,21,4,0)="history, etc."
^DD(445,1,21,5,0)=""
^DD(445,1,"DT")="2910809"
^DD(445,4,0)="DISTRIBUTION POINT^445.03PA^^2;0"
^DD(445,4,21,0)="^^5^5^2940715^^"
^DD(445,4,21,1,0)="This field is used to store inventory distribution points to which it can"
^DD(445,4,21,2,0)="distribute expendable supplies.  The warehouse can only distribute to primary"
^DD(445,4,21,3,0)="type inventory points and the primary can only distribute to secondary type"
^DD(445,4,21,4,0)="inventory points.  Secondaries cannot have distribution points."
^DD(445,4,21,5,0)=""
^DD(445,5,0)="DEPARTMENT NUMBER^FX^^0;8^K:$L(X)>3!($L(X)<3)!'(X?3UN) X"
^DD(445,5,3)="ANSWER MUST BE 3 DIGIT ALPHANUMERICS. (EX. A12)  This is used to identify this Inventory/Distribution point to the LOG Inventory system."
^DD(445,5,21,0)="^^2^2^2940715^^"
^DD(445,5,21,1,0)="This is the three digit number which identifies the inventory/distribution"
^DD(445,5,21,2,0)="point to Austin."
^DD(445,5,"DT")="2920527"
^DD(445,5.5,0)="ISSUE BOOK SORT^S^A:ALPHA SORT;N:NSN SORT;S:SEQUENCE (NOT USED);^0;10^Q"
^DD(445,5.5,3)="A=Issue books will be sorted alphabetically by group category, then item description. N=Issue books will be sorted by NSN number. S=Issue books will be sorted by LOG sequence number."
^DD(445,5.5,21,0)="^^5^5^2940715^^^"
^DD(445,5.5,21,1,0)="This information corresponds to the sort sequence for issue books used"
^DD(445,5.5,21,2,0)="by the LOG I warehouse inventory system.  This optional flag need only"
^DD(445,5.5,21,3,0)="be set for those inventory points that need to receive issue books for"
^DD(445,5.5,21,4,0)="Posted stock.  Such inventory/distribution points should also have a"
^DD(445,5.5,21,5,0)="department number entered in this file."
^DD(445,5.5,"DT")="2921222"
^DD(445,6,0)="INVENTORY USER^445.04P^^4;0"
^DD(445,6,21,0)="^^4^4^2940715^^"
^DD(445,6,21,1,0)="The first user for an inventory point must be entered by the user"
^DD(445,6,21,2,0)="that establishes the inventory point.  This user may then add other users."
^DD(445,6,21,3,0)="A user must be entered here before s/he can access the inventory point."
^DD(445,6,21,4,0)=""
^DD(445,7,0)="PRINT STOCK AT CRITICAL LEVEL?^S^Y:YES;N:NO;^0;9^Q"
^DD(445,7,3)="(Set by background job PRCPEMS).  If this flag is set to ""Y"", sign-on program will notify the user of the inventory point that s/he needs to run the Safety Stock Report."
^DD(445,7,21,0)="^^9^9^2940715^^^"
^DD(445,7,21,1,0)="The program PRCPUEMS should be set up by the Site Manager to run at some"
^DD(445,7,21,2,0)="interval defined by the Site Manager.  It should run during non-peak times."
^DD(445,7,21,3,0)="This program searches the inventory file for EVERY inventory point.  If"
^DD(445,7,21,4,0)="it finds one item with a quantity at or below the Safety Stock Level, the"
^DD(445,7,21,5,0)="inventory point is flagged.  Then, the next time any user for that"
^DD(445,7,21,6,0)="inventory point signs on, s/he will be notified that s/he needs to run"
^DD(445,7,21,7,0)="the report of items at or below Safety Stock level.  The message will"
^DD(445,7,21,8,0)="keep coming up for each person that signs on, until the report has been"
^DD(445,7,21,9,0)="run."
^DD(445,7,"DT")="2860423"
^DD(445,7.4,0)="LAST OPEN BALANCES SET^D^^0;22^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445,7.4,21,0)="^^4^4^2950725^"
^DD(445,7.4,21,1,0)="This field is used to store the date the opening monthly balances are"
^DD(445,7.4,21,2,0)="set.  If the date the last opening balances set does not equal the"
^DD(445,7.4,21,3,0)="current month and year, a message will be displayed to the users as"
^DD(445,7.4,21,4,0)="they sign into the inventory point menus."
^DD(445,7.4,"DT")="2950725"
^DD(445,7.5,0)="LAST PURGE USAGE^D^^0;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445,7.5,3)="Set automatically by system when the purge of monthly usage/distribution totals by item is run.  Set to the month-end on which the purge was run.  Used to notify the user when the next purge is due."
^DD(445,7.5,21,0)="^^6^6^2940715^^^"
^DD(445,7.5,21,1,0)="This date is automatically entered when the purge of monthly usage/"
^DD(445,7.5,21,2,0)="distribution totals by item is run.  It is set to the last day of the month"
^DD(445,7.5,21,3,0)="when the purge was run.  The purge options should be run monthly in order to"
^DD(445,7.5,21,4,0)="free up disk space.  Failure to run the purge option for the current month"
^DD(445,7.5,21,5,0)="will result in a message which is displayed at the top of the screen to all"
^DD(445,7.5,21,6,0)="users."
^DD(445,7.5,"DT")="2920212"
^DD(445,7.6,0)="LAST PURGE RECEIPTS^D^^0;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445,7.6,21,0)="^^5^5^2940715^^"
^DD(445,7.6,21,1,0)="This date is automatically entered when the purge of monthly receipts history"
^DD(445,7.6,21,2,0)="by item is run.  It is set to the last day of the month when the purge was"
^DD(445,7.6,21,3,0)="run.  The purge options should be run monthly in order to free up disk space. "
^DD(445,7.6,21,4,0)="Failure to run the purge option for the current month will result in a message"
^DD(445,7.6,21,5,0)="which is displayed at the top of the screen to all users."
^DD(445,7.6,"DT")="2920212"
^DD(445,7.7,0)="LAST PURGE TRANS REGISTER^D^^0;18^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445,7.7,21,0)="^^6^6^2940715^^"
^DD(445,7.7,21,1,0)="This date is automatically entered when the purge of monthly transaction"
^DD(445,7.7,21,2,0)="register purge is run.  It is set to the last day of the month when the purge"
^DD(445,7.7,21,3,0)="was run.  The purge options should be run monthly in order to free up disk"
^DD(445,7.7,21,4,0)="space.  Failure to run the purge option for the current month will result in a"
^DD(445,7.7,21,5,0)="message which is displayed at the top of the screen to all users."
^DD(445,7.7,21,6,0)=""
^DD(445,7.7,"DT")="2920210"
^DD(445,7.8,0)="LAST PURGE DISTRIBUTION^D^^0;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445,7.8,21,0)="^^6^6^2940715^^"
^DD(445,7.8,21,1,0)="This date is automatically entered when the purge of monthly history by"
^DD(445,7.8,21,2,0)="cost center purge is run.  It is set to the last day of the month when the"
^DD(445,7.8,21,3,0)="purge was run.  The purge options should be run monthly in order to free up"
^DD(445,7.8,21,4,0)="disk space.  Failure to run the purge option for the current month will result"
^DD(445,7.8,21,5,0)="in a message which is displayed at the top of the screen to all users."
^DD(445,7.8,21,6,0)=""
^DD(445,7.8,"DT")="2920212"
^DD(445,7.9,0)="AUTOMATIC PURGE^S^Y:YES;N:NO;^0;21^Q"
^DD(445,7.9,21,0)="^^4^4^2921016^"
^DD(445,7.9,21,1,0)="If this field is set to YES, the taskmanager automatic purge option"
^DD(445,7.9,21,2,0)="will purge inventory point data back 13 months.  If the field is set"
^DD(445,7.9,21,3,0)="to NO (or null), the manager of the inventory point will be responsible"
^DD(445,7.9,21,4,0)="for purging the inventory point data."
^DD(445,7.9,"DT")="2921016"
^DD(445,8,0)="*ENTER ITEM DESCRIPTIONS^S^Y:YES;N:NO;^0;11^Q"
^DD(445,8,3)="Answer 'Y' (YES) to this prompt if you wish to use your own descriptions for items, rather than those assigned by Supply Service in the Item Master File."
^DD(445,8,21,0)="^^2^2^2940715^^"
^DD(445,8,21,1,0)="This field is no longer used."
^DD(445,8,21,1,2)="R;"
^DD(445,8,21,2,0)=""
^DD(445,8,"DT")="2920210"
^DD(445,9,0)="REGULAR WHSE. ISSUES SCHEDULE^S^W:WEEKLY;2:EVERY 2 WEEKS;M:MONTHLY;O:OTHER;^0;4^Q"
^DD(445,9,3)="This field is entered by PPM when entering/editing Primary Inventory/Distribution points.  It indicates the normal schedule for requesting Warehouse Issues."
^DD(445,9,21,0)="^^3^3^2910517^"
^DD(445,9,21,1,0)="This field is entered by Personal Property Management, and"
^DD(445,9,21,2,0)="holds the codes for weekly, biweekly, monthly, or other type"
^DD(445,9,21,3,0)="distribution of warehouse issues."
^DD(445,9,"DT")="2870902"
^DD(445,10,0)="REGULAR WHSE. ISSUES DUE DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(445,10,.1)=""
^DD(445,10,3)="Entered by PPM for Primary Inventory/Distribution Points only, to notify them that their regularly scheduled whse.issues request is due in Supply."
^DD(445,10,21,0)="^^5^5^2930729^^^"
^DD(445,10,21,1,0)="The date is set into this field in PPM, when they wish to notify Inventory/"
^DD(445,10,21,2,0)="Distribution points that their regularly scheduled whse.issues request is"
^DD(445,10,21,3,0)="due.  When the date is set, the user of the Inventory/Distribution point is"
^DD(445,10,21,4,0)="notified that his/her whse. issues request is due.  The date is cleared the"
^DD(445,10,21,5,0)="next time the user generates an automatic request for posted stock."
^DD(445,10,"DT")="2870902"
^DD(445,11,0)="MIS COSTING SECTION^445.011P^^3;0"
^DD(445,11,21,0)="^^1^1^2910517^^^^"
^DD(445,11,21,1,0)="For use in tracking costs of distributed supplies."
^DD(445,12,0)="MOS INACTIVE BEFORE ITEM DEL.^NJ2,0^^0;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445,12,3)="Enter the number of months (between 0 and 99) that an ITEM must have NO activity, before the 'delete item when inventory 0' flag will cause the item to actually be deleted from your inventory file."
^DD(445,12,21,0)="^^10^10^2910517^^^"
^DD(445,12,21,1,0)="The only way to delete an item from your inventory file, is to set the"
^DD(445,12,21,2,0)="'DELETE ITEM WHEN INVENTORY 0' flag to 'Y'.  During the automatic"
^DD(445,12,21,3,0)="generation of a suggested order, if the program encounters an item with"
^DD(445,12,21,4,0)="the flag set, it first makes sure that the inventory quantity on hand,"
^DD(445,12,21,5,0)="the DUE-IN, and the DUE-OUT are all 0, and that the item does not exist"
^DD(445,12,21,6,0)="on any of your secondary distribution points.  If it meets the criteria,"
^DD(445,12,21,7,0)="then the program checks this field, and if it contains a number, the"
^DD(445,12,21,8,0)="program makes sure that there has been no activity for the item (i.e.,"
^DD(445,12,21,9,0)="usage, distribution or receiving) for at least the number of months"
^DD(445,12,21,10,0)="specified in this field, before deleting the item from the inventory file."
^DD(445,12,"DT")="2870929"
^DD(445,13,0)="*PARAMETERS CAN BE EDITED BY^*P445'^PRCP(445,^0;15^S DIC(""S"")=""I $P(^(0),U,3)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445,13,3)="For Secondary Inventory/Distr.points only, enter the name of the Primary Inventory/Distr.point that first added this Secondary to the Inventory File."
^DD(445,13,12)="Only a Primary can edit parameters for a Secondary"
^DD(445,13,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""P"""""""
^DD(445,13,21,0)="^^1^1^2940715^^"
^DD(445,13,21,1,0)="This field is no longer used."
^DD(445,13,"DT")="2940106"
^DD(445,14,0)="PRIMARY UPDATED BY WAREHOUSE^S^Y:YES;N:NO;^0;16^Q"
^DD(445,14,21,0)="^^3^3^2920923^^^"
^DD(445,14,21,1,0)="This is a switch controlled by the primary inventory point.  If set to"
^DD(445,14,21,2,0)="NO, the primary inventory point quantity on-hand will not be updated"
^DD(445,14,21,3,0)="by the warehouse.  The default is YES or null."
^DD(445,14,"DT")="2920923"
^DD(445,15,0)="SPECIAL INVENTORY POINT TYPE^SX^D:DRUG ACCOUNTABILITY;S:SPD;^0;20^I X=""S"",$D(^PRCP(445,""ASPEC"",""S"")) W !,""  ONLY ONE INVENTORY POINT CAN BE DEFINED AS AN 'SPD' TYPE INVENTORY POINT."" K X"
^DD(445,15,1,0)="^.1"
^DD(445,15,1,1,0)="445^ASPEC"
^DD(445,15,1,1,1)="S ^PRCP(445,""ASPEC"",$E(X,1,30),DA)="""""
^DD(445,15,1,1,2)="K ^PRCP(445,""ASPEC"",$E(X,1,30),DA)"
^DD(445,15,1,1,"%D",0)="^^3^3^2930915^"
^DD(445,15,1,1,"%D",1,0)="This cross reference is used to screen out more than one inventory"
^DD(445,15,1,1,"%D",2,0)="point for spd.  Only one inventory point can be specified as an spd"
^DD(445,15,1,1,"%D",3,0)="inventory point."
^DD(445,15,1,1,"DT")="2930915"
^DD(445,15,21,0)="^^3^3^2920923^"
^DD(445,15,21,1,0)="This field is a switch controlled by the primary inventory point."
^DD(445,15,21,2,0)="If this field is set to 'D', it will update the pharmacy drug"
^DD(445,15,21,3,0)="accountability file when the primary quantity on-hand is changed."
^DD(445,15,"DT")="2940829"
^DD(445,16,0)="PICKING TICKET PRINTER^FX^^DEV;1^S DIC=""^%ZIS(1,"",DIC(0)=""EMQZ"" D ^DIC K:Y'>0 X S:$D(X) X=$P(Y(0),""^"") K DIC"
^DD(445,16,3)="Enter the printer device used to print the SPD or Warehouse picking tickets."
^DD(445,16,21,0)="^^6^6^2940809^^^"
^DD(445,16,21,1,0)="This field stores the device which is used to automatically print"
^DD(445,16,21,2,0)="the picking ticket in SPD for case cart/instrument kit distribution"
^DD(445,16,21,3,0)="orders placed by Surgery."
^DD(445,16,21,4,0)=" "
^DD(445,16,21,5,0)="This field also stores the device used to automatically print the"
^DD(445,16,21,6,0)="picking ticket for Warehouse issue books."
^DD(445,16,"DT")="2940809"
^DD(445,19,0)="PRE-CONVERSION HEADER (NO EDITS)^FXI^^SEC;1^D EN^DDIOL(""THESE DATA MAY NOT BE TAMPERED WITH. FOR POSSIBLE USE IN UN-DOING A CONVERSION"") K X"
^DD(445,19,3)="This field in non-editable."
^DD(445,19,4)="D EN^DDIOL(""Data may not be added, changed, or deleted."")"
^DD(445,19,21,0)="^^10^10^2990908^^^"
^DD(445,19,21,1,0)="This field is automatically populated when the option to 'Convert"
^DD(445,19,21,2,0)="Secondary to Primary' [PRCP CONVERT SECONDARY] is run."
^DD(445,19,21,3,0)=" "
^DD(445,19,21,4,0)="It is simply the content of the zero node of the inventory point as it"
^DD(445,19,21,5,0)="existed before conversion. The only time it would ever be referenced is in"
^DD(445,19,21,6,0)="cases where users mistakenly convert an inventory point and need to 'undo'"
^DD(445,19,21,7,0)="the conversion."
^DD(445,19,21,8,0)=" "
^DD(445,19,21,9,0)="DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION"
^DD(445,19,21,10,0)="APPLICATION."
^DD(445,19,"DEL",1,0)="D EN^DDIOL(""DELETION IS NOT ALLOWED."") I 1"
^DD(445,19,"DT")="2990629"
^DD(445,19.5,0)="CONVERTED BY^P200'XI^VA(200,^SEC;2^D EN^DDIOL(""THIS DATA MAY NOT BE TAMPERED WITH. MAY BE NEEDED FOR REFERENCE."") K X"
^DD(445,19.5,3)="Field is uneditable."
^DD(445,19.5,4)="D EN^DDIOL(""Data may not be added, changed, or deleted."")"
^DD(445,19.5,21,0)="^^8^8^2990908^^"
^DD(445,19.5,21,1,0)="This field is automatically populated when the option to 'Convert"
^DD(445,19.5,21,2,0)="Secondary to Primary' [PRCP CONVERT SECONDARY] is run."
^DD(445,19.5,21,3,0)=" "
^DD(445,19.5,21,4,0)="It indicates who actually converted this inventory from a secondary to a"
^DD(445,19.5,21,5,0)="primary. It is included solely for documentation."
^DD(445,19.5,21,6,0)=" "
^DD(445,19.5,21,7,0)="DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION"
^DD(445,19.5,21,8,0)="APPLICATION."
^DD(445,19.5,"DEL",1,0)="D EN^DDIOL(""DELETION IS NOT ALLOWED."") I 1"
^DD(445,19.5,"DT")="2990903"
^DD(445,19.6,0)="CONVERSION DATE^DXI^^SEC;3^D EN^DDIOL(""THIS DATA MAY NOT BE TAMPERED WITH. IT MAY BE NEEDED FOR REFERENCE."") K X"
^DD(445,19.6,3)="Field is uneditable."
^DD(445,19.6,4)="D EN^DDIOL(""Data may not be added, changed, or deleted."")"
^DD(445,19.6,"DEL",1,0)="D EN^DDIOL(""DELETION IS NOT ALLOWED."") I 1"
^DD(445,19.6,"DT")="2990903"
^DD(445,19.7,0)="PRE-CONVERSION STOCKED BY^P445'^PRCP(445,^SEC;4^Q"
^DD(445,19.7,21,0)="^^2^2^2990908^^"
^DD(445,19.7,21,1,0)="The subject inventory (.01 field) needs to be a DISTRIBUTION POINT of this"
^DD(445,19.7,21,2,0)="entry if the conversion is ever undone."
^DD(445,19.7,"DT")="2990708"
^DD(445,20,0)="PRE-CONVERSION ITEM (NO EDITS)^445.08A^^SECITM;0"
^DD(445,21,0)="PRE-CONVERSION MIS (NO EDITS)^445.021A^^SECMIS;0"
^DD(445,22,0)="SS PROVIDER^P445.5'^PRCP(445.5,^5;1^Q"
^DD(445,22,1,0)="^.1"
^DD(445,22,1,1,0)="445^AH^MUMPS"
^DD(445,22,1,1,1)="N ITEM Q:'X  I $P(^PRCP(445,DA,0),""^"",3)=""S"" S ITEM=0 F  S ITEM=$O(^PRCP(445,DA,1,ITEM)) Q:'+ITEM  I $P($G(^PRCP(445,DA,1,ITEM,0)),""^"",9)>0 S ^PRCP(445,""AH"",ITEM,$E(X,1,30),DA)="""""
^DD(445,22,1,1,2)="N ITEM S ITEM=0 F  S ITEM=$O(^PRCP(445,DA,1,ITEM)) Q:'+ITEM  K ^PRCP(445,""AH"",ITEM,$E(X,1,30),DA)"
^DD(445,22,1,1,"%D",0)="^.101^3^3^3000503^^"
^DD(445,22,1,1,"%D",1,0)="This cross reference lists all supply station items by supply station,"
^DD(445,22,1,1,"%D",2,0)="allowing GIP to quickly access where items are kept and how many places"
^DD(445,22,1,1,"%D",3,0)="the item is stored."
^DD(445,22,1,1,"DT")="3000503"
^DD(445,22,1,2,0)="445^AI"
^DD(445,22,1,2,1)="S ^PRCP(445,""AI"",$E(X,1,30),DA)="""""
^DD(445,22,1,2,2)="K ^PRCP(445,""AI"",$E(X,1,30),DA)"
^DD(445,22,1,2,"%D",0)="^^2^2^3000510^"
^DD(445,22,1,2,"%D",1,0)="This cross reference easily identifies all inventory points linked to a"
^DD(445,22,1,2,"%D",2,0)="supply station."
^DD(445,22,1,2,"DT")="3000510"
^DD(445,22,3)="If this inventory point will be linked to an automated supply cabinet, please indicate the type of machine used."
^DD(445,22,21,0)="^.001^4^4^3000821^^^"
^DD(445,22,21,1,0)="When an automated supply station stocks items within an inventory point,"
^DD(445,22,21,2,0)="this field contains a pointer to the machine used, allowing GIP to"
^DD(445,22,21,3,0)="correctly build and transmit information to the automated supply station"
^DD(445,22,21,4,0)="by referencing file 445.5. "
^DD(445,22,"DT")="3000510"
^DD(445,23,0)="SS QUANTITY LAST TRANSMITTED^D^^6;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(445,23,3)="This field holds the date and time at which GIP last received a quantity  on hand transaction for all items in the supply station."
^DD(445,23,21,0)="^^4^4^3000821^"
^DD(445,23,21,1,0)="This field will be updated by the receipt of a 'quantity on hand' message"
^DD(445,23,21,2,0)="from the automated supply station.  It will be referenced when users wish"
^DD(445,23,21,3,0)="to print an exception report comparing the quantity of an item in GIP and"
^DD(445,23,21,4,0)="in the automated supply station."
^DD(445,23,"DT")="3000601"
^DD(445,24,0)="QUANTITY REPLACEMENT REQUESTOR^P200'^VA(200,^7;1^Q"
^DD(445,24,21,0)="^^3^3^3010417^"
^DD(445,24,21,1,0)="The name of the authorized person requesting that the on hand quantities"
^DD(445,24,21,2,0)="in GIP be adjusted to the values reported in the next supply station"
^DD(445,24,21,3,0)="transaction."
^DD(445,24,"DT")="3010416"
^DD(445,25,0)="QUANTITY REPLACEMENT REQUESTED^D^^7;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(445,25,21,0)="^^3^3^3010601^"
^DD(445,25,21,1,0)="This is the Date/Time that an authorized person requested the on hand"
^DD(445,25,21,2,0)="quantities in GIP be adjusted to the values reported in the next supply"
^DD(445,25,21,3,0)="station transaction."
^DD(445,25,"DT")="3010601"
^DD(445,26,0)="QUANTITY REPLACEMENT USER^445.026P^^8;0"
^DD(445,26,21,0)="^.001^3^3^3010503^^^^"
^DD(445,26,21,1,0)="Users in this section are authorized to request on hand quantity"
^DD(445,26,21,2,0)="replacement updates from the values stored in the associated supply"
^DD(445,26,21,3,0)="stations."
^DD(445,26,"DT")="3010425"
^DD(445,27,0)="ON-DEMAND USERS^445.027P^^9;0"
^DD(445,27,21,0)="^.001^5^5^3060714^^^"
^DD(445,27,21,1,0)="This file will store the users designated by the application coordinator"
^DD(445,27,21,2,0)="with the ability to modify an On-Demand Setting for any item in this"
^DD(445,27,21,3,0)="inventory point.  Because the On-Demand Setting applies only to items in "
^DD(445,27,21,4,0)="the Primary and Secondary Inventory Points, this multiple will never be "
^DD(445,27,21,5,0)="populated in the Warehouse."
^DD(445,"B","*ENTER ITEM DESCRIPTIONS",8)=""
^DD(445,"B","*PARAMETERS CAN BE EDITED BY",13)=""
^DD(445,"B","ABBREVIATED NAME",.8)=""
^DD(445,"B","AUTOMATIC PURGE",7.9)=""
^DD(445,"B","CONVERSION DATE",19.6)=""
^DD(445,"B","CONVERTED BY",19.5)=""
^DD(445,"B","COST CENTER",.9)=""
^DD(445,"B","DEPARTMENT NUMBER",5)=""
^DD(445,"B","DISTRIBUTION POINT",4)=""
^DD(445,"B","INVENTORY ITEM",1)=""
^DD(445,"B","INVENTORY POINT",.01)=""
^DD(445,"B","INVENTORY USER",6)=""
^DD(445,"B","ISSUE BOOK SORT",5.5)=""
^DD(445,"B","KEEP DETAILED TRX. HISTORY?",.6)=""
^DD(445,"B","KEEP PERPETUAL INVENTORY?",.5)=""
^DD(445,"B","LAST OPEN BALANCES SET",7.4)=""
^DD(445,"B","LAST PURGE DISTRIBUTION",7.8)=""
^DD(445,"B","LAST PURGE RECEIPTS",7.6)=""
^DD(445,"B","LAST PURGE TRANS REGISTER",7.7)=""
^DD(445,"B","LAST PURGE USAGE",7.5)=""
^DD(445,"B","MIS COSTING SECTION",11)=""
^DD(445,"B","MOS INACTIVE BEFORE ITEM DEL.",12)=""
^DD(445,"B","ON-DEMAND USERS",27)=""
^DD(445,"B","PICKING TICKET PRINTER",16)=""
^DD(445,"B","PRE-CONVERSION HEADER (NO EDITS)",19)=""
^DD(445,"B","PRE-CONVERSION ITEM (NO EDITS)",20)=""
^DD(445,"B","PRE-CONVERSION MIS (NO EDITS)",21)=""
^DD(445,"B","PRE-CONVERSION STOCKED BY",19.7)=""
^DD(445,"B","PRIMARY UPDATED BY WAREHOUSE",14)=""
^DD(445,"B","PRINT STOCK AT CRITICAL LEVEL?",7)=""
^DD(445,"B","QUANTITY REPLACEMENT REQUESTED",25)=""
^DD(445,"B","QUANTITY REPLACEMENT REQUESTOR",24)=""
^DD(445,"B","QUANTITY REPLACEMENT USER",26)=""
^DD(445,"B","REGULAR WHSE. ISSUES DUE DATE",10)=""
^DD(445,"B","REGULAR WHSE. ISSUES SCHEDULE",9)=""
^DD(445,"B","SPECIAL INVENTORY POINT TYPE",15)=""
^DD(445,"B","SS PROVIDER",22)=""
^DD(445,"B","SS QUANTITY LAST TRANSMITTED",23)=""
^DD(445,"B","TYPE OF INVENTORY POINT",.7)=""
^DD(445,"GL",0,1,.01)=""
^DD(445,"GL",0,2,.5)=""
^DD(445,"GL",0,3,.7)=""
^DD(445,"GL",0,4,9)=""
^DD(445,"GL",0,5,.8)=""
^DD(445,"GL",0,6,.6)=""
^DD(445,"GL",0,7,.9)=""
^DD(445,"GL",0,8,5)=""
^DD(445,"GL",0,9,7)=""
^DD(445,"GL",0,10,5.5)=""
^DD(445,"GL",0,11,8)=""
^DD(445,"GL",0,12,10)=""
^DD(445,"GL",0,13,12)=""
^DD(445,"GL",0,14,7.5)=""
^DD(445,"GL",0,15,13)=""
^DD(445,"GL",0,16,14)=""
^DD(445,"GL",0,17,7.6)=""
^DD(445,"GL",0,18,7.7)=""
^DD(445,"GL",0,19,7.8)=""
^DD(445,"GL",0,20,15)=""
^DD(445,"GL",0,21,7.9)=""
^DD(445,"GL",0,22,7.4)=""
^DD(445,"GL",1,0,1)=""
^DD(445,"GL",2,0,4)=""
^DD(445,"GL",3,0,11)=""
^DD(445,"GL",4,0,6)=""
^DD(445,"GL",5,1,22)=""
^DD(445,"GL",6,1,23)=""
^DD(445,"GL",7,1,24)=""
^DD(445,"GL",7,2,25)=""
^DD(445,"GL",8,0,26)=""
^DD(445,"GL",9,0,27)=""
^DD(445,"GL","DEV",1,16)=""
^DD(445,"GL","SEC",1,19)=""
^DD(445,"GL","SEC",2,19.5)=""
^DD(445,"GL","SEC",3,19.6)=""
^DD(445,"GL","SEC",4,19.7)=""
^DD(445,"GL","SECITM",0,20)=""
^DD(445,"GL","SECMIS",0,21)=""
^DD(445,"IX",.01)=""
^DD(445,"IX",.5)=""
^DD(445,"IX",.7)=""
^DD(445,"IX",.8)=""
^DD(445,"IX",15)=""
^DD(445,"IX",22)=""
^DD(445,"RQ",.01)=""
^DD(445,"RQ",.5)=""
^DD(445,"RQ",.7)=""
^DD(445,"RQ",.8)=""
^DD(445,"SB",445.01,1)=""
^DD(445,"SB",445.011,11)=""
^DD(445,"SB",445.021,21)=""
^DD(445,"SB",445.026,26)=""
^DD(445,"SB",445.027,27)=""
^DD(445,"SB",445.03,4)=""
^DD(445,"SB",445.04,6)=""
^DD(445,"SB",445.08,20)=""
^DD(445.01,0)="INVENTORY ITEM SUB-FIELD^NL^51^43"
^DD(445.01,0,"DT")="2940131"
^DD(445.01,0,"IX","AC",445.01,.4)=""
^DD(445.01,0,"IX","B",445.01,.01)=""
^DD(445.01,0,"NM","INVENTORY ITEM")=""
^DD(445.01,0,"UP")="445"
^DD(445.01,.01,0)="ITEM NO.^MP441'X^PRC(441,^0;1^S DINUM=X"
^DD(445.01,.01,1,0)="^.1"
^DD(445.01,.01,1,1,0)="445.01^B"
^DD(445.01,.01,1,1,1)="S ^PRCP(445,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(445.01,.01,1,1,2)="K ^PRCP(445,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(445.01,.01,1,2,0)="445^AH^MUMPS"
^DD(445.01,.01,1,2,1)="N SS Q:$P(^PRCP(445,DA(1),0),""^"",3)'=""S""  S SS=$P($G(^PRCP(445,DA(1),5)),""^"",1) Q:'SS  I $P($G(^PRCP(DA(1),1,DA,0)),""^"",9)>0 S ^PRCP(445,""AH"",DA,SS,DA(1))="""""
^DD(445.01,.01,1,2,2)="N SS S SS=$P($G(^PRCP(445,DA(1),5)),""^"",1) Q:'SS  K ^PRCP(445,""AH"",DA,SS,DA(1))"
^DD(445.01,.01,1,2,"%D",0)="^^3^3^3000503^"
^DD(445.01,.01,1,2,"%D",1,0)="This cross reference lists all supply station items by supply station,"
^DD(445.01,.01,1,2,"%D",2,0)="allowing GIP to quickly access where items are kept and how many places"
^DD(445.01,.01,1,2,"%D",3,0)="the item is stored."
^DD(445.01,.01,1,2,"DT")="3000503"
^DD(445.01,.01,1,3,0)="445^AE"
^DD(445.01,.01,1,3,1)="S ^PRCP(445,""AE"",$E(X,1,30),DA(1),DA)="""""
^DD(445.01,.01,1,3,2)="K ^PRCP(445,""AE"",$E(X,1,30),DA(1),DA)"
^DD(445.01,.01,1,3,"%D",0)="^^4^4^2930628^"
^DD(445.01,.01,1,3,"%D",1,0)="This cross reference sorts all inventory items by inventory point."
^DD(445.01,.01,1,3,"%D",2,0)="The node prcp(445,""ae"",ITEMDA,INVPT,ITEMDA) is set where ITEMDA"
^DD(445.01,.01,1,3,"%D",3,0)="is the item master number and INVPT is the internal inventory point"
^DD(445.01,.01,1,3,"%D",4,0)="number."
^DD(445.01,.01,3)="Item must be on the Supply Item Master File.  Enter either Item Number, Short Description, National Stock No., National Drug Code or Vendor Stock No."
^DD(445.01,.01,4)=""
^DD(445.01,.01,21,0)="^^3^3^2940715^^"
^DD(445.01,.01,21,1,0)="This field stores the item master number of the item stored in the inventory"
^DD(445.01,.01,21,2,0)="point."
^DD(445.01,.01,21,3,0)=""
^DD(445.01,.01,"DEL",.01,0)="W !!,""  YOU CANNOT DELETE AN ITEM FROM FILEMAN."" I 1"
^DD(445.01,.01,"DT")="3000503"
^DD(445.01,.4,0)="MANDATORY OR REQUESTED SOURCE^VX^^0;12^S Z=$P(^PRCP(445,DA(1),0),U,3),DIC(""V"")=$S(Z=""S"":""I $P(Y(0),U,1)=445"",1:""I $P(Y(0),U,1)=440"") K Z D SCREEN^PRCPUMAN(DA(1),DA,1)"
^DD(445.01,.4,1,0)="^.1"
^DD(445.01,.4,1,1,0)="445.01^AC"
^DD(445.01,.4,1,1,1)="S ^PRCP(445,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(445.01,.4,1,1,2)="K ^PRCP(445,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(445.01,.4,1,1,"%D",0)="^^5^5^2930628^"
^DD(445.01,.4,1,1,"%D",1,0)="This cross reference sorts the mandatory or requested source by"
^DD(445.01,.4,1,1,"%D",2,0)="inventory point.  The node prcp(445,INVPT,1,""ac"",MANSRCE,ITEMDA)"
^DD(445.01,.4,1,1,"%D",3,0)="is set where INVPT is the internal inventory point number,"
^DD(445.01,.4,1,1,"%D",4,0)="MANSRCE is the mandatory or requested source, and ITEMDA is the"
^DD(445.01,.4,1,1,"%D",5,0)="item master number."
^DD(445.01,.4,3)="For a Primary Inventory Point, select either the Warehouse (posted stock) or an outside Vendor that supplies this item.  For Secondary, select the Primary that replenishes your stock."
^DD(445.01,.4,4)="D HELP^PRCPUMAN(DA(1),DA,1)"
^DD(445.01,.4,21,0)="^^3^3^2940715^^"
^DD(445.01,.4,21,1,0)="This is the mandatory or requested source for ordering the item.  This source"
^DD(445.01,.4,21,2,0)="must be used, if entered.  If the source is not entered, the inventory point"
^DD(445.01,.4,21,3,0)="is free to select all available procurement sources."
^DD(445.01,.4,"DT")="2890313"
^DD(445.01,.4,"V",0)="^.12P^2^2"
^DD(445.01,.4,"V",1,0)="445^IN-HOUSE SOURCE^3^I^y^n"
^DD(445.01,.4,"V",1,1)="S DIC(""S"")=""D SCREEN^PRCPUMAN(DA(1),DA,1)"",PRCPPRIV=1"
^DD(445.01,.4,"V",1,2)="Must be a source entered on your file as one of the Procurement Sources for this item."
^DD(445.01,.4,"V",2,0)="440^SUPPLY WHSE.OR OUTSIDE VENDOR^1^V^y^n"
^DD(445.01,.4,"V",2,1)="S DIC(""S"")=""D SCREEN^PRCPUMAN(DA(1),DA,1)"""
^DD(445.01,.4,"V",2,2)="Must be a source entered on your file as one of the Procurement Sources for this item."
^DD(445.01,.4,"V","B",440,2)=""
^DD(445.01,.4,"V","B",445,1)=""
^DD(445.01,.4,"V","M","IN-HOUSE SOURCE",1)=""
^DD(445.01,.4,"V","M","SUPPLY WHSE.OR OUTSIDE VENDOR",2)=""
^DD(445.01,.4,"V","O",1,2)=""
^DD(445.01,.4,"V","O",3,1)=""
^DD(445.01,.4,"V","P","I",1)=""
^DD(445.01,.4,"V","P","V",2)=""
^DD(445.01,.5,0)="GROUP CATEGORY CODE^*P445.6^PRCP(445.6,^0;21^S PRCPPRIV=1,DIC(""S"")=""I $P(^(0),U,2)=$S($G(DA(1)):DA(1),1:$G(PRCP(""""I"""")))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445.01,.5,3)="Enter a 4-digit group category code.  New Group Categories can be added.  If a new one is added, the description must also be entered."
^DD(445.01,.5,4)=""
^DD(445.01,.5,12)="User can only see entries entered for the Inventory Point."
^DD(445.01,.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$S($G(DA(1)):DA(1),1:$G(PRCP(""""I"""")))"""
^DD(445.01,.5,21,0)="^^1^1^2940715^^"
^DD(445.01,.5,21,1,0)="This is the group category code for the item, if applicable."
^DD(445.01,.5,"DT")="2870323"
^DD(445.01,.6,0)="PROCUREMENT SOURCE^445.07IV^^5;0"
^DD(445.01,.6,21,0)="^^2^2^2940715^^"
^DD(445.01,.6,21,1,0)="This is the available procurement sources for the inventory item when"
^DD(445.01,.6,21,2,0)="ordering."
^DD(445.01,.61,0)="SUPPLY STATION QUANTITY^NJ6,0^^9;1^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.01,.61,3)="Type a Number between -999999 and 999999, 0 Decimal Digits"
^DD(445.01,.61,21,0)="^.001^1^1^3000821^^"
^DD(445.01,.61,21,1,0)="The quantity last report as on hand by the supply station is stored here."
^DD(445.01,.61,"DT")="3000515"
^DD(445.01,.62,0)="QTY FROM SS LAST UPDATED^D^^9;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(445.01,.62,21,0)="^^2^2^3000821^"
^DD(445.01,.62,21,1,0)="This field store the time that the supply station last reported its"
^DD(445.01,.62,21,2,0)="quantity on hand for this item."
^DD(445.01,.62,"DT")="3000515"
^DD(445.01,.7,0)="ITEM DESCRIPTION^FX^^6;1^K % S:X=""*"" X=$P(^PRC(441,DA,0),""^"",2),%=1 W:$D(%) ""  "",X K:$L(X)>60!($L(X)<1) X"
^DD(445.01,.7,3)="Enter the item description from 1 to 60 characters or enter '*' to load the short description from the item master file."
^DD(445.01,.7,21,0)="^^2^2^2940715^^"
^DD(445.01,.7,21,1,0)="This is the description of the item.  If the description is entered in this"
^DD(445.01,.7,21,2,0)="field, it will override the description in the item master file."
^DD(445.01,.7,"DT")="2911211"
^DD(445.01,.8,0)="ON-DEMAND^S^Y:YES;N:NO;^0;30^Q"
^DD(445.01,.8,3)="Enter 'YES' if the inventory item is On-Demand"
^DD(445.01,.8,21,0)="^^6^6^3060501^"
^DD(445.01,.8,21,1,0)="This setting is applicable to items in the Primary and Secondary "
^DD(445.01,.8,21,2,0)="Inventory Points.  Items in the Warehouse can never be considered to be "
^DD(445.01,.8,21,3,0)="On-Demand.  An item is flagged as On-Demand if it must be stocked but is"
^DD(445.01,.8,21,4,0)="rarely used.  These items must be tracked differently by GIP in order to"
^DD(445.01,.8,21,5,0)="accurately reflect the turnover of the standard items, i.e. those that are"
^DD(445.01,.8,21,6,0)="not On-Demand."
^DD(445.01,.8,"DT")="3060428"
^DD(445.01,.81,0)="ON-DEMAND AUDIT^445.13DA^^10;0"
^DD(445.01,.81,21,0)="^.001^2^2^3060501^^^^"
^DD(445.01,.81,21,1,0)="This file will store information each time the ON-DEMAND Setting for "
^DD(445.01,.81,21,2,0)="the inventory item is changed."
^DD(445.01,4,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;5^Q"
^DD(445.01,4,3)="Enter the packaging unit in which you issue this item. (ex. EA for EACH)"
^DD(445.01,4,21,0)="^^2^2^2910517^^"
^DD(445.01,4,21,1,0)="This is the packaging unit used at the inventory point to"
^DD(445.01,4,21,2,0)="distribute the item."
^DD(445.01,4,"DT")="2861028"
^DD(445.01,4.5,0)="UNIT OF ISSUE PACKAGE MULT.^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(445.01,4.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999.  Used to print on reports only.  (Usually the number of 'each' contained in one unit of issue.)"
^DD(445.01,4.5,21,0)="^^2^2^2910517^"
^DD(445.01,4.5,21,1,0)="The unit of issue packaging multiple is the number for"
^DD(445.01,4.5,21,2,0)="converting the unit of issue into individual items."
^DD(445.01,4.5,"DT")="2860425"
^DD(445.01,4.6,0)="DATE LAST RECEIVED^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445.01,4.6,3)="Enter the Date this item was last received into your inventory."
^DD(445.01,4.6,21,0)="^^2^2^2920318^"
^DD(445.01,4.6,21,1,0)="This is the date the item was last received into your station's"
^DD(445.01,4.6,21,2,0)="inventory."
^DD(445.01,4.6,"DT")="2870312"
^DD(445.01,4.7,0)="LAST COST (UNIT OF ISSUE)^NJ15,3^^0;15^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.01,4.7,3)="TYPE A NUMBER BETWEEN 0 AND 99999999999. Actual unit cost for this item the last time it was received (in unit of issue.)"
^DD(445.01,4.7,21,0)="^^2^2^2940715^^"
^DD(445.01,4.7,21,1,0)="This is the actual unit cost, in unit of issue, which was paid the last time"
^DD(445.01,4.7,21,2,0)="the item was received."
^DD(445.01,4.7,"DT")="2870209"
^DD(445.01,4.8,0)="AVERAGE COST (UNIT OF ISSUE)^NJ15,3^^0;22^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.01,4.8,3)="Recalculated automatically during receiving. (((qty.on hand*last avg.cost)+(qty.received*receiving cost))/(qty.on hand+qty.received))"
^DD(445.01,4.8,21,0)="^^4^4^2940715^^"
^DD(445.01,4.8,21,1,0)="This is the average unit cost, in unit of issue, which was paid for the"
^DD(445.01,4.8,21,2,0)="item.  It is automatically updated by the software each time a receipt or"
^DD(445.01,4.8,21,3,0)="adjustment is made to the inventory point.  It is calculated by dividing the"
^DD(445.01,4.8,21,4,0)="total inventory value by the current quantity on hand."
^DD(445.01,4.8,"DT")="2860204"
^DD(445.01,4.81,0)="TOTAL INVENTORY VALUE^NJ10,2^^0;27^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(445.01,4.81,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(445.01,4.81,21,0)="^^1^1^2920710^^"
^DD(445.01,4.81,21,1,0)="This field contains the total dollar item value for the inventory point."
^DD(445.01,4.81,"DT")="2920723"
^DD(445.01,5,0)="MAIN STORAGE LOCATION^*P445.4^PRCP(445.4,^0;6^S PRCPPRIV=1,DIC(""S"")=""I $P(^(0),U,2)=DA(1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445.01,5,3)="1-13 characters in length.  Enter the section, row, bin, shelf, etc.in which this item is stored, from largest to smallest division, separate by dashes, 0 fill numerics to length of longest entry."
^DD(445.01,5,12)="Users can only reference storage locations within their own inventory."
^DD(445.01,5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=DA(1)"""
^DD(445.01,5,21,0)="^^11^11^2940715^^"
^DD(445.01,5,21,1,0)="In order to sort the items correctly on picking tickets or reports  by storage"
^DD(445.01,5,21,2,0)="location, the storage location must be formatted as follows:"
^DD(445.01,5,21,3,0)=""
^DD(445.01,5,21,4,0)="Enter first, the largest division within your storage area, followed with a"
^DD(445.01,5,21,5,0)="dash, then the next smallest division, another dash and so on to the smallest"
^DD(445.01,5,21,6,0)="division.  Fill each entry with leading zeros to make it as long as the"
^DD(445.01,5,21,7,0)="longest entry."
^DD(445.01,5,21,8,0)=""
^DD(445.01,5,21,9,0)="Example:  For a storage location with sections 1 to 50, bins 1 to 100, and"
^DD(445.01,5,21,10,0)="shelves 1 to 6, an example storage location for section 5, bin 2, shelf 3"
^DD(445.01,5,21,11,0)="would be 05-002-3."
^DD(445.01,5,"DT")="2871124"
^DD(445.01,6,0)="ADDITIONAL STORAGE LOCATION^445.02P^^1;0"
^DD(445.01,6,21,0)="4"
^DD(445.01,6,21,1,0)="This is an additional storage location for the item in the inventory point. "
^DD(445.01,6,21,2,0)="This field should be entered in the same format as the MAIN STORAGE LOCATION"
^DD(445.01,6,21,3,0)="field."
^DD(445.01,6,21,3,2)="R;"
^DD(445.01,6,21,4,0)=""
^DD(445.01,7,0)="QTY.ON HAND (UNIT OF ISSUE)^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.01,7,3)="TYPE A WHOLE NUMBER BETWEEN -999999 AND 999999.  Current quantity in your inventory."
^DD(445.01,7,21,0)="^^3^3^2940715^^"
^DD(445.01,7,21,1,0)="This field stores the current on-hand quantity (in unit of issue) of this item"
^DD(445.01,7,21,2,0)="in the inventory point."
^DD(445.01,7,21,2,2)="R;"
^DD(445.01,7,21,3,0)=""
^DD(445.01,7,"AUDIT")="n"
^DD(445.01,7.5,0)="QTY NON-ISSUABLE (U/I)^NJ6,0^^0;19^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.01,7.5,3)="Type a Number between -999999 and 999999, 0 Decimal Digits"
^DD(445.01,7.5,21,0)="^^6^6^2920420^^"
^DD(445.01,7.5,21,1,0)="This field is used to store the quantity (in unit of issue) of an item"
^DD(445.01,7.5,21,2,0)="which is non-issuable.  When an item is non-issuable, the quantity is"
^DD(445.01,7.5,21,3,0)="subtracted from the quantity on hand and added to the quantity"
^DD(445.01,7.5,21,4,0)="non-issuable.  When an item is return from non-issuable, the quantity"
^DD(445.01,7.5,21,5,0)="is added to the quantity on hand and subtracted from the quantity"
^DD(445.01,7.5,21,6,0)="non-issuable."
^DD(445.01,7.5,"DT")="2920710"
^DD(445.01,8,0)="*DUE-IN (UNIT OF ISSUE)^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.01,8,3)="This field is no longer used."
^DD(445.01,8,21,0)="^^1^1^2940715^^"
^DD(445.01,8,21,1,0)="This field is no longer used.  It has been moved to field number 8.1."
^DD(445.01,8,"DT")="2940131"
^DD(445.01,8.1,0)="DUE-IN (IN U/I)^NJ7,0^^DUE;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,8.1,3)="Enter the quantity in unit of issue for oustanding orders which have not been received into the inventory point.  From 0 to 9999999."
^DD(445.01,8.1,21,0)="^^2^2^2940131^"
^DD(445.01,8.1,21,1,0)="This field stores the quantity in unit of issue for outstanding orders"
^DD(445.01,8.1,21,2,0)="which have not been received into the inventory point."
^DD(445.01,8.1,"DT")="2940131"
^DD(445.01,8.5,0)="*DUE-OUT (UNIT OF ISSUE)^NJ6,0^^0;20^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.01,8.5,3)="This field is no longer used."
^DD(445.01,8.5,21,0)="^^2^2^2940715^^"
^DD(445.01,8.5,21,1,0)="This field is no longer used.  It has been moved to field 8.6."
^DD(445.01,8.5,21,2,0)=""
^DD(445.01,8.5,"DT")="2940131"
^DD(445.01,8.6,0)="DUE-OUT (IN U/I)^NJ7,0^^DUE;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,8.6,3)="Enter the quantity in unit of issue for oustanding orders which have not been posted to the distribution point.  From 0 to 9999999."
^DD(445.01,8.6,21,0)="^^3^3^2940131^"
^DD(445.01,8.6,21,1,0)="This field stores the quantity in unit of issue for outstanding orders"
^DD(445.01,8.6,21,2,0)="which have been placed by a distribution point but have not been posted"
^DD(445.01,8.6,21,3,0)="to the distribution point."
^DD(445.01,8.6,"DT")="2940131"
^DD(445.01,9,0)="NORMAL STOCK LEVEL (U OF I)^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,9,1,0)="^.1"
^DD(445.01,9,1,1,0)="445^AH^MUMPS"
^DD(445.01,9,1,1,1)="N SS Q:$P(^PRCP(445,DA(1),0),""^"",3)'=""S""  S SS=$P($G(^PRCP(445,DA(1),5)),""^"",1) Q:'SS  I X>0 S ^PRCP(445,""AH"",DA,SS,DA(1))="""""
^DD(445.01,9,1,1,2)="N SS S SS=$P($G(^PRCP(445,DA(1),5)),""^"",1) Q:'SS  K ^PRCP(445,""AH"",DA,SS,DA(1))"
^DD(445.01,9,1,1,"%D",0)="^^3^3^3000503^"
^DD(445.01,9,1,1,"%D",1,0)="This cross reference lists all supply station items by supply station,"
^DD(445.01,9,1,1,"%D",2,0)="allowing GIP to quickly access where items are kept and how many places"
^DD(445.01,9,1,1,"%D",3,0)="the item is stored."
^DD(445.01,9,1,1,"DT")="3000503"
^DD(445.01,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(445.01,9,21,0)="^^1^1^2910517^"
^DD(445.01,9,21,1,0)="This is the normal stock level, in unit of issue, for an item."
^DD(445.01,9,"DT")="3000503"
^DD(445.01,9.5,0)="TEMPORARY STOCK LEVEL^NJ6,0^^0;23^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,9.5,1,0)="^.1"
^DD(445.01,9.5,1,1,0)="^^TRIGGER^445.01^9.6"
^DD(445.01,9.5,1,1,1)="Q"
^DD(445.01,9.5,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1,Y(0)=X,Y(1)=$G(^PRCP(445,D0,1,D1,0)),X='$P(Y(1),U,23) I X S X=DIV,Y1=$G(^PRCP(445,D0,1,D1,0)),X=$P(Y(1),U,24),X=X S DIU=X K Y S X="""" X ^DD(445.01,9.5,1,1,2.4)"
^DD(445.01,9.5,1,1,2.4)="S DIH=$S($D(^PRCP(445,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,24)=DIV,DIH=445.01,DIG=9.6 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(445.01,9.5,1,1,"%D",0)="^^2^2^2940721^"
^DD(445.01,9.5,1,1,"%D",1,0)="This cross reference is a trigger to remove the date to delete temporary"
^DD(445.01,9.5,1,1,"%D",2,0)="level field when the temporary stock level is deleted."
^DD(445.01,9.5,1,1,"CREATE VALUE")="NO EFFECT"
^DD(445.01,9.5,1,1,"DELETE CONDITION")="'TEMPORARY STOCK LEVEL"
^DD(445.01,9.5,1,1,"DELETE VALUE")="@"
^DD(445.01,9.5,1,1,"FIELD")="DATE TO DELETE TEMPORARY LEVEL"
^DD(445.01,9.5,3)="(USED IN AUTOMATIC ORDERING) TYPE A WHOLE NUMBER BETWEEN 0 AND 999999.  Used in place of the Normal stock level, until the DATE TO DELETE TEMPORARY LEVEL is past."
^DD(445.01,9.5,21,0)="^^2^2^2910517^"
^DD(445.01,9.5,21,1,0)="This is the temporary stock level, in unit of issue, for"
^DD(445.01,9.5,21,2,0)="an item."
^DD(445.01,9.5,"DT")="2911220"
^DD(445.01,9.6,0)="DATE TO DELETE TEMPORARY LEVEL^D^^0;24^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445.01,9.6,3)="(USED IN AUTOMATIC ORDERING)  This date and the temporary level are checked first.  If this date has passed, the temporary level is deleted.  Otherwise, the temporary level overrides the normal stock level."
^DD(445.01,9.6,5,1,0)="445.01^9.5^1"
^DD(445.01,9.6,21,0)="^^1^1^2910517^"
^DD(445.01,9.6,21,1,0)="This is the date to delete the temporary stock level."
^DD(445.01,9.6,"DT")="2860204"
^DD(445.01,10,0)="STANDARD REORDER POINT^NJ6,0X^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,10,3)="(USED IN AUTOMATIC ORDERING) TYPE A WHOLE NUMBER BETWEEN 0 AND 999999.  If qty.on hand + qty.on order - qty.committed falls below the reorder point, item will appear on suggested order list."
^DD(445.01,10,21,0)="^.001^1^1^3001227^^"
^DD(445.01,10,21,1,0)="This is the reorder point, in unit of issue, for the item."
^DD(445.01,10,"DT")="3001227"
^DD(445.01,10.3,0)="OPTIONAL REORDER POINT^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,10.3,3)="(USED DURING AUTOMATIC ORDERING) If at least one item from a source is at reorder level, a second pass is made through inventory.  Items from same source, at or below this level will also be ordered."
^DD(445.01,10.3,21,0)="^^1^1^2910517^"
^DD(445.01,10.3,21,1,0)="This is the interval order point for the item."
^DD(445.01,10.3,"DT")="2910723"
^DD(445.01,11,0)="EMERGENCY STOCK LEVEL^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999.  If qty.on hand falls below this point, item will be flagged for emergency handling, even if it is already on order."
^DD(445.01,11,21,0)="^^3^3^2910517^^"
^DD(445.01,11,21,1,0)="This is the emergency stock level for the item."
^DD(445.01,11,21,2,0)="The item will be flagged for emergency handling if"
^DD(445.01,11,21,3,0)="its level falls below the emergency stock level."
^DD(445.01,14,0)="CANCEL/BACKORDER^S^C:CANCEL IF OUT-OF-STOCK;B:BACKORDER IF OUT-OF-STOCK;^0;2^Q"
^DD(445.01,14,3)="Warehouse Inventory Items only.  Indicates the action to be taken if a request is made for this item and the warehouse is out of stock."
^DD(445.01,14,21,0)="^^6^6^2930729^^^^"
^DD(445.01,14,21,1,0)="This field will be used for the Warehouse Inventory items only.  It will"
^DD(445.01,14,21,2,0)="indicate the action to be taken when an item normally stocked by the "
^DD(445.01,14,21,3,0)="warehouse is ordered by a service, and the item  is out of stock.  The "
^DD(445.01,14,21,4,0)="item can either be cancelled from the request, or it can be back-ordered, "
^DD(445.01,14,21,5,0)="in which case the warehouse will fill the order after they have replenished "
^DD(445.01,14,21,6,0)="their own stock."
^DD(445.01,14,"DT")="2860403"
^DD(445.01,14.3,0)="DO NOT BACK-ORDER INDICATOR^S^1:DO NOT BACKORDER;^0;13^Q"
^DD(445.01,14.3,3)="ENTER '1' if you DO NOT wish to have the warehouse back-order this item, when out of stock."
^DD(445.01,14.3,21,0)="^^6^6^2910517^^"
^DD(445.01,14.3,21,1,0)="This field will be used on Primary Inventory point items only, and only for"
^DD(445.01,14.3,21,2,0)="those items that are ordered from the Supply Warehouse (posted stock)."
^DD(445.01,14.3,21,3,0)="If the flag is set to '1', and the Primary orders this item, this flag"
^DD(445.01,14.3,21,4,0)="will prevent the warehouse from putting the item on back-order status,"
^DD(445.01,14.3,21,5,0)="regardless of the normal cancel/backorder status for the item that has"
^DD(445.01,14.3,21,6,0)="been established by the warehouse."
^DD(445.01,14.3,"DT")="2870819"
^DD(445.01,14.4,0)="DO NOT SUBSTITUTE INDICATOR^S^1:DO NOT SUBSTITUTE;^0;18^Q"
^DD(445.01,14.4,3)="ENTER a '1' if you DO NOT wish the warehouse to substitute another item for this item."
^DD(445.01,14.4,21,0)="^^5^5^2910517^^"
^DD(445.01,14.4,21,1,0)="This field will be used on Primary Inventory point items only, and only for"
^DD(445.01,14.4,21,2,0)="those items that are ordered from the Supply Warehouse (posted stock)."
^DD(445.01,14.4,21,3,0)="If the flag is set to '1', and the Primary orders this item, this flag"
^DD(445.01,14.4,21,4,0)="will prevent the warehouse from substituting another item for this one,"
^DD(445.01,14.4,21,5,0)="regardless of whether the item can normally be substituted."
^DD(445.01,14.4,"DT")="2870819"
^DD(445.01,14.5,0)="*ISSUE BOOK SEQUENCE NUMBER^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,14.5,3)="Type a Number between 0 and 999999, 0 Decimal Digits.  Optional field used for those inventory points that wish to have their Posted Stock issue books printed by sequence number."
^DD(445.01,14.5,21,0)="^^1^1^2940715^^"
^DD(445.01,14.5,21,1,0)="This field is no longer used."
^DD(445.01,14.5,"DT")="2921221"
^DD(445.01,16,0)="ISSUE MULTIPLE (UNIT OF ISSUE)^NJ6,0^^0;25^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,16,3)="Enter a number here if you wish to issue this item always in the same multiples.  (Ex., if unit of issue is EACH and you wish to issue always in dozens, enter 12)."
^DD(445.01,16,21,0)="^^12^12^2940715^^"
^DD(445.01,16,21,1,0)="This field is used to indicate the multiple for the item to order.  For"
^DD(445.01,16,21,2,0)="example, if the order multiple was 5, this item would have to be ordered in"
^DD(445.01,16,21,3,0)="quantities of 5 such as 5, 10, 15, etc."
^DD(445.01,16,21,3,2)="R;"
^DD(445.01,16,21,4,0)=""
^DD(445.01,16,21,4,2)="R;"
^DD(445.01,16,21,5,0)="If a number is entered in this field, and another inventory/distribution"
^DD(445.01,16,21,6,0)="point orders this item, their automatic ordering function will adjust"
^DD(445.01,16,21,7,0)="the suggested order quantity up to the next highest whole multiple."
^DD(445.01,16,21,8,0)="For example, if the computer calculated that they needed 8 cases, and the"
^DD(445.01,16,21,9,0)="issue multiple was 5, the quantity to order would be bumped up to 10 cases. "
^DD(445.01,16,21,10,0)="Also, whenever another inventory point orders this item manually, the issue"
^DD(445.01,16,21,11,0)="multiple will be displayed to them."
^DD(445.01,16,21,11,2)="R;"
^DD(445.01,16,21,12,0)=""
^DD(445.01,16,"DT")="2860403"
^DD(445.01,16.5,0)="MINIMUM ISSUE QTY.^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.01,16.5,3)="Enter a quantity here (in unit of issue), if you wish to always issue AT LEAST this minimum quantity."
^DD(445.01,16.5,4)=""
^DD(445.01,16.5,21,0)="^^8^8^2940715^^"
^DD(445.01,16.5,21,1,0)="If a number is entered in this field, and another inventory/distribution point"
^DD(445.01,16.5,21,2,0)="orders this item, their automatic ordering function will adjust the suggested"
^DD(445.01,16.5,21,3,0)="order quantity up to at least this level.  For example, if the computer"
^DD(445.01,16.5,21,4,0)="calculated that they needed 8 cases and the minimum issue quantity was 10"
^DD(445.01,16.5,21,5,0)="cases, it would bump up their quantity to order to 10.  Also, whenever another"
^DD(445.01,16.5,21,6,0)="inventory point orders this item manually, the minimum issue quantity will be"
^DD(445.01,16.5,21,7,0)="displayed to them."
^DD(445.01,16.5,21,7,2)="R;"
^DD(445.01,16.5,21,8,0)=""
^DD(445.01,16.5,"DT")="2861222"
^DD(445.01,17,0)="DELETE ITEM WHEN INVENTORY 0^S^Y:YES;N:NO;^0;26^Q"
^DD(445.01,17,3)="If this flag is set to 'Y' (YES), the item will be deleted from the inventory file during the next Automatic Stock Replenishment after the quantity on hand reaches 0."
^DD(445.01,17,21,0)="^^11^11^2940715^^"
^DD(445.01,17,21,1,0)="This field will mark items for deletion when the quantity on-hand for an item"
^DD(445.01,17,21,2,0)="falls to zero.  To mark an item for deleteion set this field to yes."
^DD(445.01,17,21,2,2)="R;"
^DD(445.01,17,21,3,0)=""
^DD(445.01,17,21,3,2)="R;"
^DD(445.01,17,21,4,0)="When autogeneration runs, it will check each item for this field set to yes. "
^DD(445.01,17,21,5,0)="If it is set to yes, the current quantity on-hand (including non-issuable),"
^DD(445.01,17,21,6,0)="and the total inventory value is checked and must equal zero.  Lastly, it will"
^DD(445.01,17,21,7,0)="check the MOS INACTIVE BEORE ITEM DEL. field for receipts and usage.  If"
^DD(445.01,17,21,8,0)="there are no receipts or usage after the date, the item will be removed from"
^DD(445.01,17,21,9,0)="the inventory point.  It will show up on the autogeneration report as being"
^DD(445.01,17,21,10,0)="deleted."
^DD(445.01,17,21,10,2)="R;"
^DD(445.01,17,21,11,0)=""
^DD(445.01,17,"DT")="2860416"
^DD(445.01,18,0)="USAGE/ISSUES HISTORY BY ITEM^445.05A^^2;0"
^DD(445.01,18,21,0)="^^3^3^2940715^^"
^DD(445.01,18,21,1,0)="This multiple keeps track of when an item is used and the quantity used.  The"
^DD(445.01,18,21,2,0)="usage is used to calculate averages of items used in specified time frames. "
^DD(445.01,18,21,3,0)="The averages can then be used to set stock levels and reorder points."
^DD(445.01,19,0)="RECEIPTS HISTORY BY ITEM^445.06DA^^3;0"
^DD(445.01,19,21,0)="^^2^2^2940715^^"
^DD(445.01,19,21,1,0)="This data is updated automatically each time receiving is processed.  The"
^DD(445.01,19,21,2,0)="system records the date and the quantity received."
^DD(445.01,20,0)="OUTSTANDING REQUEST^445.09P^^7;0"
^DD(445.01,20,21,0)="^^5^5^2910517^^^"
^DD(445.01,20,21,1,0)="This data is updated automatically whenever a request is approved by"
^DD(445.01,20,21,2,0)="the control point official, when a request is returned to service,"
^DD(445.01,20,21,3,0)="or during the receiving function.  This data allows the operator to"
^DD(445.01,20,21,4,0)="see what outstanding orders exist for each item.  The data should not"
^DD(445.01,20,21,5,0)="normally be edited by the user."
^DD(445.01,21,0)="CASE CART/INSTRUMENT KIT ITEM^445.121IP^^8;0"
^DD(445.01,21,21,0)="^^5^5^2930831^^^"
^DD(445.01,21,21,1,0)="This field stores the items which were used in assembling a case cart"
^DD(445.01,21,21,2,0)="or instrument kit.  When a case cart or instrument kit is assembled,"
^DD(445.01,21,21,3,0)="this field stores the disposable items and quantities used during"
^DD(445.01,21,21,4,0)="assembly.  When a case cart or instrument kit is disassembled, the"
^DD(445.01,21,21,5,0)="items and quantities stored in this field are used for disassembly."
^DD(445.01,21,23,0)="^^2^2^2930831^"
^DD(445.01,21,23,1,0)="This field is internally set by the assembly of a case cart or instrument"
^DD(445.01,21,23,2,0)="kit routines."
^DD(445.01,21,"DT")="2930831"
^DD(445.01,22,0)="SUBSTITUTE ITEM(S)^445.122PI^^4;0"
^DD(445.01,22,21,0)="^^3^3^2930402^^^^"
^DD(445.01,22,21,1,0)="This multiple field is used to store the items from within the"
^DD(445.01,22,21,2,0)="warehouse inventory point which can be used to substitute for"
^DD(445.01,22,21,3,0)="out of stock items when posting issue book requests."
^DD(445.01,50,0)="DISPENSING UNIT^F^^0;28^K:$L(X)>10!($L(X)<1) X"
^DD(445.01,50,3)="Answer must be 1-10 characters in length."
^DD(445.01,50,21,0)="^^3^3^2930324^^"
^DD(445.01,50,21,1,0)="This field is used to indicate the pharmacy dispensing units when"
^DD(445.01,50,21,2,0)="converting the unit per issue to the drug accountability pharmacy"
^DD(445.01,50,21,3,0)="dispensing units.  This field is for informational purposes only."
^DD(445.01,50,"DT")="2930324"
^DD(445.01,51,0)="DISPENSING UNIT CONV FACTOR^NJ5,0^^0;29^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(445.01,51,3)="Enter the pharmacy dispensing unit conversion factor which will be used to convert the quantity in unit per issue to the quantity in dispensing units (from 1 to 99999)."
^DD(445.01,51,21,0)="^^3^3^2920923^"
^DD(445.01,51,21,1,0)="This field is multiplied by the quantity on hand in unit per issue"
^DD(445.01,51,21,2,0)="to generate the drug accountability quantity in pharmacy dispensing"
^DD(445.01,51,21,3,0)="units."
^DD(445.01,51,"DT")="2921019"
^DD(445.01,"B","*DUE-IN (UNIT OF ISSUE)",8)=""
^DD(445.01,"B","*DUE-OUT (UNIT OF ISSUE)",8.5)=""
^DD(445.01,"B","*ISSUE BOOK SEQUENCE NUMBER",14.5)=""
^DD(445.01,"B","ADDITIONAL STORAGE LOCATION",6)=""
^DD(445.01,"B","AVERAGE COST (UNIT OF ISSUE)",4.8)=""
^DD(445.01,"B","CANCEL/BACKORDER",14)=""
^DD(445.01,"B","CASE CART/INSTRUMENT KIT ITEM",21)=""
^DD(445.01,"B","DATE LAST RECEIVED",4.6)=""
^DD(445.01,"B","DATE TO DELETE TEMPORARY LEVEL",9.6)=""
^DD(445.01,"B","DELETE ITEM WHEN INVENTORY 0",17)=""
^DD(445.01,"B","DISPENSING UNIT",50)=""
^DD(445.01,"B","DISPENSING UNIT CONV FACTOR",51)=""
^DD(445.01,"B","DO NOT BACK-ORDER INDICATOR",14.3)=""
^DD(445.01,"B","DO NOT SUBSTITUTE INDICATOR",14.4)=""
^DD(445.01,"B","DUE-IN (IN U/I)",8.1)=""
^DD(445.01,"B","DUE-OUT (IN U/I)",8.6)=""
^DD(445.01,"B","EMERGENCY STOCK LEVEL",11)=""
^DD(445.01,"B","GROUP CATEGORY CODE",.5)=""
^DD(445.01,"B","ISSUE MULTIPLE (UNIT OF ISSUE)",16)=""
^DD(445.01,"B","ITEM DESCRIPTION",.7)=""
^DD(445.01,"B","ITEM NO.",.01)=""
^DD(445.01,"B","LAST COST (UNIT OF ISSUE)",4.7)=""
^DD(445.01,"B","MAIN STORAGE LOCATION",5)=""
^DD(445.01,"B","MANDATORY OR REQUESTED SOURCE",.4)=""
^DD(445.01,"B","MINIMUM ISSUE QTY.",16.5)=""
^DD(445.01,"B","NORMAL STOCK LEVEL (U OF I)",9)=""
^DD(445.01,"B","ON-DEMAND",.8)=""
^DD(445.01,"B","ON-DEMAND AUDIT",.81)=""
^DD(445.01,"B","OPTIONAL REORDER POINT",10.3)=""
^DD(445.01,"B","OUTSTANDING REQUEST",20)=""
^DD(445.01,"B","PROCUREMENT SOURCE",.6)=""
^DD(445.01,"B","QTY FROM SS LAST UPDATED",.62)=""
^DD(445.01,"B","QTY NON-ISSUABLE (U/I)",7.5)=""
^DD(445.01,"B","QTY.ON HAND (UNIT OF ISSUE)",7)=""
^DD(445.01,"B","RECEIPTS HISTORY BY ITEM",19)=""
^DD(445.01,"B","STANDARD REORDER POINT",10)=""
^DD(445.01,"B","SUBSTITUTE ITEM(S)",22)=""
^DD(445.01,"B","SUPPLY STATION QUANTITY",.61)=""
^DD(445.01,"B","TEMPORARY STOCK LEVEL",9.5)=""
^DD(445.01,"B","TOTAL INVENTORY VALUE",4.81)=""
^DD(445.01,"B","UNIT OF ISSUE",4)=""
^DD(445.01,"B","UNIT OF ISSUE PACKAGE MULT.",4.5)=""
^DD(445.01,"B","USAGE/ISSUES HISTORY BY ITEM",18)=""
^DD(445.01,"GL",0,1,.01)=""
^DD(445.01,"GL",0,2,14)=""
^DD(445.01,"GL",0,3,4.6)=""
^DD(445.01,"GL",0,4,10.3)=""
^DD(445.01,"GL",0,5,4)=""
^DD(445.01,"GL",0,6,5)=""
^DD(445.01,"GL",0,7,7)=""
^DD(445.01,"GL",0,8,8)=""
^DD(445.01,"GL",0,9,9)=""
^DD(445.01,"GL",0,10,10)=""
^DD(445.01,"GL",0,11,11)=""
^DD(445.01,"GL",0,12,.4)=""
^DD(445.01,"GL",0,13,14.3)=""
^DD(445.01,"GL",0,14,4.5)=""
^DD(445.01,"GL",0,15,4.7)=""
^DD(445.01,"GL",0,16,14.5)=""
^DD(445.01,"GL",0,17,16.5)=""
^DD(445.01,"GL",0,18,14.4)=""
^DD(445.01,"GL",0,19,7.5)=""
^DD(445.01,"GL",0,20,8.5)=""
^DD(445.01,"GL",0,21,.5)=""
^DD(445.01,"GL",0,22,4.8)=""
^DD(445.01,"GL",0,23,9.5)=""
^DD(445.01,"GL",0,24,9.6)=""
^DD(445.01,"GL",0,25,16)=""
^DD(445.01,"GL",0,26,17)=""
^DD(445.01,"GL",0,27,4.81)=""
^DD(445.01,"GL",0,28,50)=""
^DD(445.01,"GL",0,29,51)=""
^DD(445.01,"GL",0,30,.8)=""
^DD(445.01,"GL",1,0,6)=""
^DD(445.01,"GL",2,0,18)=""
^DD(445.01,"GL",3,0,19)=""
^DD(445.01,"GL",4,0,22)=""
^DD(445.01,"GL",5,0,.6)=""
^DD(445.01,"GL",6,1,.7)=""
^DD(445.01,"GL",7,0,20)=""
^DD(445.01,"GL",8,0,21)=""
^DD(445.01,"GL",9,1,.61)=""
^DD(445.01,"GL",9,2,.62)=""
^DD(445.01,"GL",10,0,.81)=""
^DD(445.01,"GL","DUE",1,8.1)=""
^DD(445.01,"GL","DUE",2,8.6)=""
^DD(445.01,"IX",.01)=""
^DD(445.01,"IX",.4)=""
^DD(445.01,"IX",9)=""
^DD(445.01,"IX",9.5)=""
^DD(445.01,"SB",445.02,6)=""
^DD(445.01,"SB",445.05,18)=""
^DD(445.01,"SB",445.06,19)=""
^DD(445.01,"SB",445.07,.6)=""
^DD(445.01,"SB",445.09,20)=""
^DD(445.01,"SB",445.121,21)=""
^DD(445.01,"SB",445.122,22)=""
^DD(445.01,"SB",445.13,.81)=""
^DD(445.011,0)="MIS COSTING SECTION SUB-FIELD^^1^2"
^DD(445.011,0,"IX","B",445.011,.01)=""
^DD(445.011,0,"NM","MIS COSTING SECTION")=""
^DD(445.011,0,"UP")="445"
^DD(445.011,.01,0)="MIS COSTING SECTION^M*P49'^DIC(49,^0;1^S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)'="""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445.011,.01,1,0)="^.1"
^DD(445.011,.01,1,1,0)="445.011^B"
^DD(445.011,.01,1,1,1)="S ^PRCP(445,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(445.011,.01,1,1,2)="K ^PRCP(445,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(445.011,.01,3)="Enter the MIS Costing Sections for apportioning out the costs of expendable supplies distributed TO your inventory point,  they must be listed in file 49 (Service/Section File)."
^DD(445.011,.01,12)="Only MIS COSTING SECTIONS can be entered!"
^DD(445.011,.01,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)'="""""""""""
^DD(445.011,.01,21,0)="^^10^10^2930729^^^^"
^DD(445.011,.01,21,1,0)="This field is used to generate a cost accounting report for"
^DD(445.011,.01,21,2,0)="expendable supplies distribution.  The Usage/Distribution History"
^DD(445.011,.01,21,3,0)="file (446) keeps total dollars by Cost Center, whenever items are "
^DD(445.011,.01,21,4,0)="distributed from a Cost Center, to a location that will in turn distribute"
^DD(445.011,.01,21,5,0)="the supplies to an MIS Service/Section.  The Cost Accounting Report "
^DD(445.011,.01,21,6,0)="allocates the total dollar amount by MIS costing section within cost center."
^DD(445.011,.01,21,7,0)="The user enters MIS costing sections to each such location, along with"
^DD(445.011,.01,21,8,0)="the % of the dollar total to be apportioned to each section.  The"
^DD(445.011,.01,21,9,0)="percentages should not total more than 100%.  The MIS costing sections must"
^DD(445.011,.01,21,10,0)="be set up in the service/section file by your site manager (file 49)."
^DD(445.011,.01,"DT")="2870910"
^DD(445.011,1,0)="% OF COSTS TO BE APPLIED^NJ7,3^^0;2^K:+X'=X!(X>999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.011,1,3)="Type a Number between 0 and 999.999, 3 Decimal Digits.  Enter the Percentage of the total distribution cost to be applied to this MIS service/section, for cost accounting."
^DD(445.011,1,21,0)="^^2^2^2910517^"
^DD(445.011,1,21,1,0)="This is the percentage of costs allocated to a MIS costing "
^DD(445.011,1,21,2,0)="section."
^DD(445.011,1,"DT")="2871015"
^DD(445.011,"B","% OF COSTS TO BE APPLIED",1)=""
^DD(445.011,"B","MIS COSTING SECTION",.01)=""
^DD(445.011,"GL",0,1,.01)=""
^DD(445.011,"GL",0,2,1)=""
^DD(445.011,"IX",.01)=""
^DD(445.02,0)="ADDITIONAL STORAGE LOCATION SUB-FIELD^NL^.01^1"
^DD(445.02,0,"NM","ADDITIONAL STORAGE LOCATION")=""
^DD(445.02,0,"UP")="445.01"
^DD(445.02,.01,0)="ADDITIONAL STORAGE LOCATION^M*P445.4X^PRCP(445.4,^0;1^S PRCPPRIV=1,PRCPINDA=$S($D(DA(2)):DA(2),1:DA(1)),DIC(""S"")=""I $P(^(0),U,2)=PRCPINDA"" D ^DIC K DIC,PRCPINDA S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(445.02,.01,3)="(Supplementary information only) Answer must be 1-13 characters in length, formatted the same as the Main Storage Location."
^DD(445.02,.01,12)="User can only reference storage locations in their own inventory."
^DD(445.02,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=DA(1)"""
^DD(445.02,.01,21,0)="^^4^4^2940715^^"
^DD(445.02,.01,21,1,0)="This is an additional storage location for the item in the inventory point. "
^DD(445.02,.01,21,2,0)="This field should be entered in the same format as the MAIN STORAGE LOCATION"
^DD(445.02,.01,21,3,0)="field."
^DD(445.02,.01,21,3,2)="R;"
^DD(445.02,.01,21,4,0)=""
^DD(445.02,.01,"DT")="2871124"
^DD(445.02,"B","ADDITIONAL STORAGE LOCATION",.01)=""
^DD(445.02,"GL",0,1,.01)=""
^DD(445.021,0)="PRE-CONVERSION MIS (NO EDITS) SUB-FIELD^^.01^1"
^DD(445.021,0,"DT")="2990628"
^DD(445.021,0,"IX","B",445.021,.01)=""
^DD(445.021,0,"NM","PRE-CONVERSION MIS (NO EDITS)")=""
^DD(445.021,0,"UP")="445"
^DD(445.021,.01,0)="PRE-CONVERSION MIS (NO EDITS)^FXI^^0;1^D EN^DDIOL(""THESE DATA MAY NOT BE TAMPERED WITH. FOR POSSIBLE USE IN UN-DOING A CONVERSION."") K X"
^DD(445.021,.01,1,0)="^.1"
^DD(445.021,.01,1,1,0)="445.021^B"
^DD(445.021,.01,1,1,1)="S ^PRCP(445,DA(1),""SECMIS"",""B"",$E(X,1,30),DA)="""""
^DD(445.021,.01,1,1,2)="K ^PRCP(445,DA(1),""SECMIS"",""B"",$E(X,1,30),DA)"
^DD(445.021,.01,3)="Field is non-editable."
^DD(445.021,.01,4)="D EN^DDIOL(""Data may not be added, changed, or deleted."")"
^DD(445.021,.01,21,0)="^^10^10^2990908^^"
^DD(445.021,.01,21,1,0)="This field is automatically populated when the option to 'Convert"
^DD(445.021,.01,21,2,0)="Secondary to Primary' [PRCP CONVERT SECONDARY] is run."
^DD(445.021,.01,21,3,0)=" "
^DD(445.021,.01,21,4,0)="It contains the MIS COSTING SECTIONS in the inventory point as it existed"
^DD(445.021,.01,21,5,0)="before conversion. The only time it would ever be referenced is in cases"
^DD(445.021,.01,21,6,0)="where users mistakenly convert an inventory point and need to 'undo' the"
^DD(445.021,.01,21,7,0)="conversion."
^DD(445.021,.01,21,8,0)=" "
^DD(445.021,.01,21,9,0)="DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION"
^DD(445.021,.01,21,10,0)="APPLICATION."
^DD(445.021,.01,"DEL",1,0)="D EN^DDIOL(""DELETION IS NOT ALLOWED."") I 1"
^DD(445.021,.01,"DT")="2990629"
^DD(445.021,"B","PRE-CONVERSION MIS (NO EDITS)",.01)=""
^DD(445.021,"GL",0,1,.01)=""
^DD(445.021,"IX",.01)=""
^DD(445.026,0)="QUANTITY REPLACEMENT USER SUB-FIELD^^.01^1"
^DD(445.026,0,"DT")="3010417"
^DD(445.026,0,"IX","B",445.026,.01)=""
^DD(445.026,0,"NM","QUANTITY REPLACEMENT USER")=""
^DD(445.026,0,"UP")="445"
^DD(445.026,.01,0)="QUANTITY REPLACEMENT USER^MP200'X^VA(200,^0;1^S DINUM=X D CHK^PRCPSSQA(D0,.X) K:X="""" X"
^DD(445.026,.01,.1)="AUTHORIZED REQUESTOR"
^DD(445.026,.01,1,0)="^.1"
^DD(445.026,.01,1,1,0)="445.026^B"
^DD(445.026,.01,1,1,1)="S ^PRCP(445,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(445.026,.01,1,1,2)="K ^PRCP(445,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(445.026,.01,21,0)="^.001^2^2^3010503^^^^"
^DD(445.026,.01,21,1,0)="Users in this field will be allowed to request GIP quantities to be"
^DD(445.026,.01,21,2,0)="replaced by a quantity transaction from the associated supply station."
^DD(445.026,.01,"DT")="3010425"
^DD(445.026,"B","AUTHORIZED REQUESTOR",.01)="1"
^DD(445.026,"B","QUANTITY REPLACEMENT USER",.01)=""
^DD(445.026,"GL",0,1,.01)=""
^DD(445.026,"IX",.01)=""
^DD(445.027,0)="ON-DEMAND USERS SUB-FIELD^^.01^1"
^DD(445.027,0,"DT")="3060501"
^DD(445.027,0,"IX","B",445.027,.01)=""
^DD(445.027,0,"NM","ON-DEMAND USERS")=""
^DD(445.027,0,"UP")="445"
^DD(445.027,.01,0)="ON-DEMAND USER^P200'X^VA(200,^0;1^S DINUM=X"
^DD(445.027,.01,1,0)="^.1"
^DD(445.027,.01,1,1,0)="445.027^B"
^DD(445.027,.01,1,1,1)="S ^PRCP(445,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(445.027,.01,1,1,2)="K ^PRCP(445,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(445.027,.01,3)="Enter the user who will be allowed to change the ON-DEMAND setting of inventory items."
^DD(445.027,.01,21,0)="^.001^2^2^3060714^^^^"
^DD(445.027,.01,21,1,0)="This field will store the users who are able to change the On-Demand"
^DD(445.027,.01,21,2,0)="Setting for items in this inventory point."
^DD(445.027,.01,"DT")="3060714"
^DD(445.027,"B","ON-DEMAND USER",.01)=""
^DD(445.027,"GL",0,1,.01)=""
^DD(445.027,"IX",.01)=""
^DD(445.03,0)="DISTRIBUTION POINT SUB-FIELD^NL^.01^1"
^DD(445.03,0,"NM","DISTRIBUTION POINT")=""
^DD(445.03,0,"UP")="445"
^DD(445.03,.01,0)="DISTRIBUTION POINT^MP445'X^PRCP(445,^0;1^S Z1=$P($G(^PRCP(445,DA,0)),U,3),Z2=$P($G(^PRCP(445,X,0)),U,3),Z1=+$TR(Z1,""WPS"",""123""),Z2=+$TR(Z2,""WPS"",""123"") K:'Z1!('Z2)!(Z2-Z1'=1) X K Z1,Z2 S:$D(X) DINUM=X"
^DD(445.03,.01,1,0)="^.1^^-1"
^DD(445.03,.01,1,1,0)="445^AB"
^DD(445.03,.01,1,1,1)="S ^PRCP(445,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(445.03,.01,1,1,2)="K ^PRCP(445,""AB"",$E(X,1,30),DA(1),DA)"
^DD(445.03,.01,1,1,"%D",0)="^^4^4^2930707^^"
^DD(445.03,.01,1,1,"%D",1,0)="This cross reference will sort the distribution point by inventory"
^DD(445.03,.01,1,1,"%D",2,0)="points.  The node prcp(445,""ab"",DISTRPT,INVPT,DISTRPT) is set where"
^DD(445.03,.01,1,1,"%D",3,0)="DISTRPT is the internal distribution point number and INVPT is the"
^DD(445.03,.01,1,1,"%D",4,0)="internal inventory point number."
^DD(445.03,.01,3)="Enter name of an Inventory/Distribution Point stocked by this one."
^DD(445.03,.01,21,0)="^^1^1^2910517^"
^DD(445.03,.01,21,1,0)="This is the name of a distribution point receiving supplies."
^DD(445.03,.01,"DT")="2920601"
^DD(445.03,"B","DISTRIBUTION POINT",.01)=""
^DD(445.03,"GL",0,1,.01)=""
^DD(445.03,"IX",.01)=""
^DD(445.04,0)="INVENTORY USER SUB-FIELD^NL^.01^1"
^DD(445.04,0,"DT")="2910925"
^DD(445.04,0,"NM","INVENTORY USER")=""
^DD(445.04,0,"UP")="445"
^DD(445.04,.01,0)="INVENTORY USER^MRP200'X^VA(200,^0;1^S DINUM=X"
^DD(445.04,.01,1,0)="^.1"
^DD(445.04,.01,1,1,0)="445^AD"
^DD(445.04,.01,1,1,1)="S ^PRCP(445,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(445.04,.01,1,1,2)="K ^PRCP(445,""AD"",$E(X,1,30),DA(1),DA)"
^DD(445.04,.01,1,1,"%D",0)="^^3^3^2930628^"
^DD(445.04,.01,1,1,"%D",1,0)="This cross reference sorts the inventory user by the inventory points."
^DD(445.04,.01,1,1,"%D",2,0)="The node prcp(445,""ad"",DUZ,INVPT,DUZ) is set where DUZ is the internal"
^DD(445.04,.01,1,1,"%D",3,0)="user number and INVPT is the internal inventory point number."
^DD(445.04,.01,3)="Enter the operators with access to the Inventory/Distribution for this Inventory Point. (Note: additional entry on Fund Control Point file is required for requisitioning to Supply)."
^DD(445.04,.01,21,0)="^^1^1^2940715^^"
^DD(445.04,.01,21,1,0)="This is the name of an inventory/distribution point user."
^DD(445.04,.01,"DT")="2910925"
^DD(445.04,"B","INVENTORY USER",.01)=""
^DD(445.04,"GL",0,1,.01)=""
^DD(445.04,"IX",.01)=""
^DD(445.04,"RQ",.01)=""
^DD(445.05,0)="USAGE/ISSUES HISTORY BY ITEM SUB-FIELD^^2^3"
^DD(445.05,0,"NM","USAGE/ISSUES HISTORY BY ITEM")=""
^DD(445.05,0,"UP")="445.01"
^DD(445.05,.01,0)="MONTH/YEAR USED/ISSUED^NJ5,0X^^0;1^S X=+X_""01"",%DT=""EX"" D ^%DT S X=$E(Y,1,5) K:Y<1 X S:$D(X) DINUM=X"
^DD(445.05,.01,3)="Enter year and month (not day) in internal storage format. (EX. 28601 for Jan., 1986)."
^DD(445.05,.01,21,0)="^^1^1^2940715^^"
^DD(445.05,.01,21,1,0)="This is the month and year when the item was used or issued."
^DD(445.05,.01,"DT")="2860519"
^DD(445.05,1,0)="QTY.USED/ISSUED (U OF ISSUE)^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.05,1,3)="TYPE A WHOLE NUMBER BETWEEN -999999 AND 999999"
^DD(445.05,1,21,0)="^^1^1^2910517^"
^DD(445.05,1,21,1,0)="This is the quantity, in unit of issue, of the item used or issued."
^DD(445.05,1,"DT")="2860519"
^DD(445.05,2,0)="TOTAL COST USED/ISSUED^NJ12,3^^0;3^K:+X'=X!(X>99999999.999)!(X<-99999999.999)!(X?.E1"".""4N.N) X"
^DD(445.05,2,3)="TYPE A NUMBER BETWEEN -99999999.999 AND 99999999.999 (UP TO 3 DECIMAL PLACES)"
^DD(445.05,2,21,0)="^^2^2^2910517^"
^DD(445.05,2,21,1,0)="This is the total cost of all stock of this item which was"
^DD(445.05,2,21,2,0)="used or issued."
^DD(445.05,2,"DT")="2860520"
^DD(445.05,"B","MONTH/YEAR USED/ISSUED",.01)=""
^DD(445.05,"B","QTY.USED/ISSUED (U OF ISSUE)",1)=""
^DD(445.05,"B","TOTAL COST USED/ISSUED",2)=""
^DD(445.05,"GL",0,1,.01)=""
^DD(445.05,"GL",0,2,1)=""
^DD(445.05,"GL",0,3,2)=""
^DD(445.06,0)="RECEIPTS HISTORY BY ITEM SUB-FIELD^^2^3"
^DD(445.06,0,"NM","RECEIPTS HISTORY BY ITEM")=""
^DD(445.06,0,"UP")="445.01"
^DD(445.06,.01,0)="DATE RECEIVED^DX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(445.06,.01,21,0)="^^1^1^2910517^"
^DD(445.06,.01,21,1,0)="This is the date the item was received."
^DD(445.06,.01,"DT")="2860519"
^DD(445.06,1,0)="QTY.RECEIVED (UNIT OF ISSUE)^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.06,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(445.06,1,21,0)="^^1^1^2910517^"
^DD(445.06,1,21,1,0)="This is the quantity of the item received, in unit of issue."
^DD(445.06,1,"DT")="2860519"
^DD(445.06,2,0)="*%STOCK ON HAND BEFORE RECEIPT^NJ9,3^^0;3^K:+X'=X!(X>99999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.06,2,3)="TYPE A NUMBER BETWEEN 0 AND 99999.999.  Each time the item is received, the % of normal stock on hand before the receipt is calculated and entered here. (During receipts posting)."
^DD(445.06,2,21,0)="^^2^2^2940715^^"
^DD(445.06,2,21,1,0)="This field is no longer used."
^DD(445.06,2,21,1,2)="R;"
^DD(445.06,2,21,2,0)=""
^DD(445.06,2,23,0)="0"
^DD(445.06,2,23,1,0)=""
^DD(445.06,2,"DT")="2930913"
^DD(445.06,"B","*%STOCK ON HAND BEFORE RECEIPT",2)=""
^DD(445.06,"B","DATE RECEIVED",.01)=""
^DD(445.06,"B","QTY.RECEIVED (UNIT OF ISSUE)",1)=""
^DD(445.06,"GL",0,1,.01)=""
^DD(445.06,"GL",0,2,1)=""
^DD(445.06,"GL",0,3,2)=""
^DD(445.07,0)="PROCUREMENT SOURCE SUB-FIELD^^3^4"
^DD(445.07,0,"ID","WRITE")="W ""  "" N PRCPPVNO S PRCPPVNO=$P(^(0),U) W:(PRCPPVNO[""PRC(440"")&($D(^PRC(440,+PRCPPVNO,0))) $P(^(0),U) W:PRCPPVNO[""PRCP(445""&($D(^PRCP(445,+PRCPPVNO,0))) $P($P(^(0),U),""-"",2) Q"
^DD(445.07,0,"IX","B",445.07,.01)=""
^DD(445.07,0,"NM","PROCUREMENT SOURCE")=""
^DD(445.07,0,"SCR")="S DIC(""V"")=""I $P(^(0),U,1)=440"""
^DD(445.07,0,"UP")="445.01"
^DD(445.07,.01,0)="PROCUREMENT SOURCE^MVX^^0;1^S Z=$P(^PRCP(445,DA(2),0),U,3),DIC(""V"")=$S(Z=""S"":""I $P(Y(0),U,1)=445"",1:""I $P(Y(0),U,1)=440"")"
^DD(445.07,.01,1,0)="^.1"
^DD(445.07,.01,1,1,0)="445.07^B"
^DD(445.07,.01,1,1,1)="S ^PRCP(445,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(445.07,.01,1,1,2)="K ^PRCP(445,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(445.07,.01,3)="For a Primary Inventory Point, select either the Warehouse (posted stock) or an outside Vendor that supplies this item.  For Secondary, select the Primary that replenishes your stock."
^DD(445.07,.01,4)="N PRCPINPT,PRCPITEM S PRCPINPT=$S($G(DA(2)):DA(2),1:DA(1)),PRCPITEM=$S($G(DA(2)):DA(1),1:DA),Z=$P(^PRCP(445,PRCPINPT,0),U,3),DIC(""V"")=$S(Z=""S"":""I $P(Y(0),U,1)=445"",1:""I $P(Y(0),U,1)=440"") K Z D HELP^PRCPUMAN(PRCPINPT,PRCPITEM,0)"
^DD(445.07,.01,21,0)="^^1^1^2940715^^"
^DD(445.07,.01,21,1,0)="This is the procurement source for the item."
^DD(445.07,.01,"DT")="2870526"
^DD(445.07,.01,"V",0)="^.12P^2^2"
^DD(445.07,.01,"V",1,0)="440^SUPPLY WHSE.OR OUTSIDE VENDOR^1^V^y^n"
^DD(445.07,.01,"V",1,1)="S DIC(""S"")=""D SCREEN^PRCPUMAN(DA(2),DA(1),0)"""
^DD(445.07,.01,"V",1,2)="Must be a vendor listed for this item on the Item Master File."
^DD(445.07,.01,"V",2,0)="445^IN-HOUSE SOURCE^3^I^y^n"
^DD(445.07,.01,"V",2,1)="S DIC(""S"")=""D SCREEN^PRCPUMAN(DA(2),DA(1),0)"",PRCPPRIV=1"
^DD(445.07,.01,"V",2,2)="Item must be stocked by this Inventory Location (In-House Source)"
^DD(445.07,.01,"V","B",440,1)=""
^DD(445.07,.01,"V","B",445,2)=""
^DD(445.07,.01,"V","M","IN-HOUSE SOURCE",2)=""
^DD(445.07,.01,"V","M","SUPPLY WHSE.OR OUTSIDE VENDOR",1)=""
^DD(445.07,.01,"V","O",1,1)=""
^DD(445.07,.01,"V","O",3,2)=""
^DD(445.07,.01,"V","P","I",2)=""
^DD(445.07,.01,"V","P","V",1)=""
^DD(445.07,1,0)="UNIT OF RECEIPT^P420.5'^PRCD(420.5,^0;2^Q"
^DD(445.07,1,3)="Enter the packaging unit in which you receive this item (ex. 'BX' for BOX)."
^DD(445.07,1,21,0)="^^2^2^2910517^"
^DD(445.07,1,21,1,0)="This is the unit of receipt, how it is received from the "
^DD(445.07,1,21,2,0)="vendor source."
^DD(445.07,1,"DT")="2870130"
^DD(445.07,2,0)="UNIT OF RECEIPT PACKAGE MULT.^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(445.07,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999.  Used to print on reports only.  This should be the number of units of issue contained in one unit of purchase."
^DD(445.07,2,21,0)="^^3^3^2940715^^^^"
^DD(445.07,2,21,1,0)="This is the unit of receipt package multiple for how"
^DD(445.07,2,21,2,0)="many units of issue are included in a vendor packaging"
^DD(445.07,2,21,3,0)="unit."
^DD(445.07,2,"DT")="2870130"
^DD(445.07,3,0)="UNIT CONVERSION FACTOR^RNJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.07,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999.  This number is used to convert quantities received from Unit of Receipt (procurement) to Unit of Issue."
^DD(445.07,3,21,0)="^^2^2^2910517^"
^DD(445.07,3,21,1,0)="This is the unit of conversion factor, used to convert"
^DD(445.07,3,21,2,0)="a unit of receipt into a unit of issue."
^DD(445.07,3,"DT")="2870806"
^DD(445.07,"B","PROCUREMENT SOURCE",.01)=""
^DD(445.07,"B","UNIT CONVERSION FACTOR",3)=""
^DD(445.07,"B","UNIT OF RECEIPT",1)=""
^DD(445.07,"B","UNIT OF RECEIPT PACKAGE MULT.",2)=""
^DD(445.07,"GL",0,1,.01)=""
^DD(445.07,"GL",0,2,1)=""
^DD(445.07,"GL",0,3,2)=""
^DD(445.07,"GL",0,4,3)=""
^DD(445.07,"IX",.01)=""
^DD(445.07,"RQ",3)=""
^DD(445.08,0)="PRE-CONVERSION ITEM (NO EDITS) SUB-FIELD^^.6^2"
^DD(445.08,0,"DT")="2990628"
^DD(445.08,0,"IX","B",445.08,.01)=""
^DD(445.08,0,"NM","PRE-CONVERSION ITEM (NO EDITS)")=""
^DD(445.08,0,"UP")="445"
^DD(445.08,.01,0)="PRE-CONVERSION ITEM (NO EDITS)^FXI^^0;1^D EN^DDIOL(""THESE DATA MAY NOT BE TAMPERED WITH. FOR POSSIBLE USE IN UN-DOING A CONVERSION."") K X"
^DD(445.08,.01,1,0)="^.1"
^DD(445.08,.01,1,1,0)="445.08^B"
^DD(445.08,.01,1,1,1)="S ^PRCP(445,DA(1),""SECITM"",""B"",$E(X,1,30),DA)="""""
^DD(445.08,.01,1,1,2)="K ^PRCP(445,DA(1),""SECITM"",""B"",$E(X,1,30),DA)"
^DD(445.08,.01,3)="This entire sub-file in non-editable."
^DD(445.08,.01,4)="D EN^DDIOL(""Data may not be added, changed, or deleted."")"
^DD(445.08,.01,21,0)="^^10^10^2990908^^"
^DD(445.08,.01,21,1,0)="This field is automatically populated when the option to 'Convert"
^DD(445.08,.01,21,2,0)="Secondary to Primary' [PRCP CONVERT SECONDARY] is run."
^DD(445.08,.01,21,3,0)=" "
^DD(445.08,.01,21,4,0)="It is the content of the zero node of the ITEM sub-file in the inventory"
^DD(445.08,.01,21,5,0)="point as it existed before conversion. The only time it would ever be"
^DD(445.08,.01,21,6,0)="referenced is in cases where users mistakenly convert an inventory point"
^DD(445.08,.01,21,7,0)="and need to 'undo' the conversion."
^DD(445.08,.01,21,8,0)=" "
^DD(445.08,.01,21,9,0)="DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION"
^DD(445.08,.01,21,10,0)="APPLICATION."
^DD(445.08,.01,"DEL",1,0)="D EN^DDIOL(""DELETION IS NOT ALLOWED."") I 1"
^DD(445.08,.01,"DT")="2990903"
^DD(445.08,.6,0)="PRE-CONVERSION SOURCES (NO EDITS)^445.12A^^5;0"
^DD(445.08,.6,"DEL",1,0)="D EN^DDIOL(""DELETION IS NOT ALLOWED."") I 1"
^DD(445.08,.6,"DT")="2990628"
^DD(445.08,"B","PRE-CONVERSION ITEM (NO EDITS)",.01)=""
^DD(445.08,"B","PRE-CONVERSION SOURCES (NO EDITS)",.6)=""
^DD(445.08,"GL",0,1,.01)=""
^DD(445.08,"GL",5,0,.6)=""
^DD(445.08,"IX",.01)=""
^DD(445.08,"SB",445.12,.6)=""
^DD(445.09,0)="OUTSTANDING REQUEST SUB-FIELD^^4^5"
^DD(445.09,0,"IX","B",445.09,.01)=""
^DD(445.09,0,"NM","OUTSTANDING REQUEST")=""
^DD(445.09,0,"UP")="445.01"
^DD(445.09,.01,0)="TRANSACTION NO.^P410'X^PRCS(410,^0;1^S DINUM=X"
^DD(445.09,.01,1,0)="^.1"
^DD(445.09,.01,1,1,0)="445.09^B"
^DD(445.09,.01,1,1,1)="S ^PRCP(445,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(445.09,.01,1,1,2)="K ^PRCP(445,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(445.09,.01,3)="Outstanding request number (on file 410, Control Point Activity File) is added automatically when request if approved, deleted if request is returned to service or received."
^DD(445.09,.01,21,0)="^^1^1^2910517^"
^DD(445.09,.01,21,1,0)="This is the transaction number for the request."
^DD(445.09,.01,"DT")="2870624"
^DD(445.09,1,0)="QTY.ORDERED UNIT OF ISSUE^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.09,1,3)="Quantity ordered from supply, converted to unit of issue.  Updated automatically when request is approved, returned to service or received."
^DD(445.09,1,21,0)="^^1^1^2910517^"
^DD(445.09,1,21,1,0)="This is the quantity of an item ordered, in unit of issue."
^DD(445.09,1,"DT")="2870624"
^DD(445.09,2,0)="UNIT OF RECEIPT^P420.5'^PRCD(420.5,^0;3^Q"
^DD(445.09,2,3)="System automatically enters the unit of receipt for this item from this source, when a transaction is signed (approved) by the control point official"
^DD(445.09,2,21,0)="^^3^3^2910517^^"
^DD(445.09,2,21,1,0)="This is the packaging unit used by the vendor to ship"
^DD(445.09,2,21,2,0)="the item.  It is automatically entered when a transaction"
^DD(445.09,2,21,3,0)="is signed (approved) by a control point official."
^DD(445.09,2,"DT")="2870923"
^DD(445.09,3,0)="UNIT OF RECEIPT PACKAGE MULT.^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.09,3,3)="Type a Number between 0 and 999999, 0 Decimal Digits. System automatically puts current pkg.multiple for this item, from this source, when a request (trx.)to supply is signed (approved)."
^DD(445.09,3,21,0)="^^2^2^2910517^^"
^DD(445.09,3,21,1,0)="This is the number of units of issue per unit of receipt."
^DD(445.09,3,21,2,0)="This number is automatically entered when a request is approved."
^DD(445.09,3,"DT")="2870923"
^DD(445.09,4,0)="UNIT CONVERSION FACTOR^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.09,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits.  System automatically enters current unit conversion factor for this item from this source, when a request (trx.) is signed (approved). "
^DD(445.09,4,21,0)="^^3^3^2910517^^"
^DD(445.09,4,21,1,0)="This is the value used to convert a unit of receipt into"
^DD(445.09,4,21,2,0)="unit of issue.  This number is automatically entered"
^DD(445.09,4,21,3,0)="when a request is approved."
^DD(445.09,4,"DT")="2870923"
^DD(445.09,"B","QTY.ORDERED UNIT OF ISSUE",1)=""
^DD(445.09,"B","TRANSACTION NO.",.01)=""
^DD(445.09,"B","UNIT CONVERSION FACTOR",4)=""
^DD(445.09,"B","UNIT OF RECEIPT",2)=""
^DD(445.09,"B","UNIT OF RECEIPT PACKAGE MULT.",3)=""
^DD(445.09,"GL",0,1,.01)=""
^DD(445.09,"GL",0,2,1)=""
^DD(445.09,"GL",0,3,2)=""
^DD(445.09,"GL",0,4,3)=""
^DD(445.09,"GL",0,5,4)=""
^DD(445.09,"IX",.01)=""
^DD(445.1,0)="FIELD^^1^2"
^DD(445.1,0,"DDA")="N"
^DD(445.1,0,"DT")="2920723"
^DD(445.1,0,"IX","B",445.1,.01)=""
^DD(445.1,0,"NM","INVENTORY BALANCES")=""
^DD(445.1,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445.1,0,"VR")="5.1"
^DD(445.1,0,"VRPK")="IFCAP"
^DD(445.1,.01,0)="INVENTORY POINT^RP445'X^PRCP(445,^0;1^K:'$G(PRCPPRIV) X S:$G(X) DINUM=X"
^DD(445.1,.01,1,0)="^.1"
^DD(445.1,.01,1,1,0)="445.1^B"
^DD(445.1,.01,1,1,1)="S ^PRCP(445.1,""B"",$E(X,1,30),DA)="""""
^DD(445.1,.01,1,1,2)="K ^PRCP(445.1,""B"",$E(X,1,30),DA)"
^DD(445.1,.01,3)=""
^DD(445.1,.01,21,0)="^^1^1^2920723^"
^DD(445.1,.01,21,1,0)="This field stores the name of the inventory point from file 445."
^DD(445.1,.01,"DT")="2920723"
^DD(445.1,1,0)="INVENTORY ITEM^445.11P^^1;0"
^DD(445.1,1,21,0)="^^1^1^2921015^^^"
^DD(445.1,1,21,1,0)="This field is the item stored within the inventory point."
^DD(445.1,"B","INVENTORY ITEM",1)=""
^DD(445.1,"B","INVENTORY POINT",.01)=""
^DD(445.1,"GL",0,1,.01)=""
^DD(445.1,"GL",1,0,1)=""
^DD(445.1,"IX",.01)=""
^DD(445.1,"RQ",.01)=""
^DD(445.1,"SB",445.11,1)=""
^DD(445.11,0)="INVENTORY ITEM SUB-FIELD^^1^2"
^DD(445.11,0,"DT")="2920723"
^DD(445.11,0,"IX","B",445.11,.01)=""
^DD(445.11,0,"NM","INVENTORY ITEM")=""
^DD(445.11,0,"UP")="445.1"
^DD(445.11,.01,0)="INVENTORY ITEM^MP441'X^PRC(441,^0;1^S DINUM=X"
^DD(445.11,.01,1,0)="^.1"
^DD(445.11,.01,1,1,0)="445.11^B"
^DD(445.11,.01,1,1,1)="S ^PRCP(445.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(445.11,.01,1,1,2)="K ^PRCP(445.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(445.11,.01,21,0)="^^1^1^2921015^"
^DD(445.11,.01,21,1,0)="This field is the item stored within the inventory point."
^DD(445.11,.01,"DT")="2920723"
^DD(445.11,1,0)="BEGINNING MONTH-YEAR BALANCE^445.111D^^1;0"
^DD(445.11,1,21,0)="^^2^2^2920723^^^^"
^DD(445.11,1,21,1,0)="This field will store the month and year for the beginning item"
^DD(445.11,1,21,2,0)="balance."
^DD(445.11,"B","BEGINNING MONTH-YEAR BALANCE",1)=""
^DD(445.11,"B","INVENTORY ITEM",.01)=""
^DD(445.11,"GL",0,1,.01)=""
^DD(445.11,"GL",1,0,1)=""
^DD(445.11,"IX",.01)=""
^DD(445.11,"SB",445.111,1)=""
^DD(445.111,0)="BEGINNING MONTH-YEAR BALANCE SUB-FIELD^^7^8"
^DD(445.111,0,"DT")="2920723"
^DD(445.111,0,"IX","B",445.111,.01)=""
^DD(445.111,0,"NM","BEGINNING MONTH-YEAR BALANCE")=""
^DD(445.111,0,"UP")="445.11"
^DD(445.111,.01,0)="BEGINNING MONTH-YEAR BALANCE^MDX^^0;1^S %DT=""EX"" D ^%DT S X=$E(Y,1,5) K:Y<1 X S:$G(X) DINUM=X"
^DD(445.111,.01,1,0)="^.1"
^DD(445.111,.01,1,1,0)="445.111^B"
^DD(445.111,.01,1,1,1)="S ^PRCP(445.1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(445.111,.01,1,1,2)="K ^PRCP(445.1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(445.111,.01,21,0)="^^2^2^2930729^^^"
^DD(445.111,.01,21,1,0)="This field will store the month and year for the beginning item"
^DD(445.111,.01,21,2,0)="balance."
^DD(445.111,.01,"DT")="2920723"
^DD(445.111,1,0)="QUANTITY ON-HAND^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(445.111,1,3)="Enter the beginning monthly quantity on hand in unit per issue (from -9999999 to 9999999)"
^DD(445.111,1,21,0)="^^2^2^2920723^^"
^DD(445.111,1,21,1,0)="This field stores the beginning monthly quantity on-hand balance in the"
^DD(445.111,1,21,2,0)="unit per issue."
^DD(445.111,1,"DT")="2920723"
^DD(445.111,2,0)="QUANTITY NON-ISSUABLE^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(445.111,2,3)="Enter the beginning monthly quantity non-issuable in unit per issue (from -9999999 to 9999999)"
^DD(445.111,2,21,0)="^^2^2^2920723^"
^DD(445.111,2,21,1,0)="This field stores the beginning monthly quantity in non-issuable balance"
^DD(445.111,2,21,2,0)="in the unit per issue."
^DD(445.111,3,0)="QUANTITY DUE-IN^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(445.111,3,3)="Enter the beginning monthly quantity due-in in unit per issue (from -9999999 to 9999999)"
^DD(445.111,3,21,0)="^^2^2^2920723^^"
^DD(445.111,3,21,1,0)="This field stores the beginning monthly quantity due-in balance in the"
^DD(445.111,3,21,2,0)="unit per issue."
^DD(445.111,4,0)="QUANTITY DUE-OUT^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(445.111,4,3)="Enter the beginning monthly quantity due-out in unit per issue (from -9999999 to 9999999)"
^DD(445.111,4,21,0)="^^2^2^2920723^"
^DD(445.111,4,21,1,0)="This field stores the beginning monthly quantity due-out balance in the"
^DD(445.111,4,21,2,0)="unit per issue."
^DD(445.111,5,0)="AVERAGE UNIT COST^NJ11,3^^0;6^K:+X'=X!(X>9999999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.111,5,3)="Enter the beginning monthly average unit cost for the item (from 0 to 9999999.999, 3 decimal digits)."
^DD(445.111,5,21,0)="^^2^2^2920723^^"
^DD(445.111,5,21,1,0)="This field stores the beginning monthly average unit cost of the item"
^DD(445.111,5,21,2,0)="in the unit per issue."
^DD(445.111,5,"DT")="2920723"
^DD(445.111,6,0)="LAST RECEIPT UNIT COST^NJ11,3^^0;7^K:+X'=X!(X>9999999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.111,6,3)="Enter the beginning monthly last receipt unit cost for the item (from 0 to 9999999.999, 3 decimal digits)."
^DD(445.111,6,21,0)="^^2^2^2920723^"
^DD(445.111,6,21,1,0)="This field stores the beginning monthly last receipt cost of the item"
^DD(445.111,6,21,2,0)="in the unit per issue."
^DD(445.111,7,0)="TOTAL INVENTORY VALUE^NJ10,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(445.111,7,3)="Enter the total inventory value of this item at the beginning of the month (from -9999999.99 to 9999999.99, 2 decimal digits)."
^DD(445.111,7,21,0)="^^2^2^2920723^"
^DD(445.111,7,21,1,0)="This field stores the beginning monthly balance for the total value"
^DD(445.111,7,21,2,0)="of the item in the unit per issue."
^DD(445.111,7,"DT")="2920723"
^DD(445.111,"B","AVERAGE UNIT COST",5)=""
^DD(445.111,"B","BEGINNING MONTH-YEAR BALANCE",.01)=""
^DD(445.111,"B","LAST RECEIPT UNIT COST",6)=""
^DD(445.111,"B","QUANTITY DUE-IN",3)=""
^DD(445.111,"B","QUANTITY DUE-OUT",4)=""
^DD(445.111,"B","QUANTITY NON-ISSUABLE",2)=""
^DD(445.111,"B","QUANTITY ON-HAND",1)=""
^DD(445.111,"B","TOTAL INVENTORY VALUE",7)=""
^DD(445.111,"GL",0,1,.01)=""
^DD(445.111,"GL",0,2,1)=""
^DD(445.111,"GL",0,3,2)=""
^DD(445.111,"GL",0,4,3)=""
^DD(445.111,"GL",0,5,4)=""
^DD(445.111,"GL",0,6,5)=""
^DD(445.111,"GL",0,7,6)=""
^DD(445.111,"GL",0,8,7)=""
^DD(445.111,"IX",.01)=""
^DD(445.12,0)="PRE-CONVERSION SOURCES (NO EDITS) SUB-FIELD^^.01^1"
^DD(445.12,0,"DT")="2990628"
^DD(445.12,0,"IX","B",445.12,.01)=""
^DD(445.12,0,"NM","PRE-CONVERSION SOURCES (NO EDITS)")=""
^DD(445.12,0,"UP")="445.08"
^DD(445.12,.01,0)="PRE-CONVERSION SOURCES (NO EDITS)^FXI^^0;1^D EN^DDIOL(""THESE DATA MAY NOT BE TAMPERED WITH. FOR POSSIBLE USE IN UN-DOING A CONVERSION."") K X"
^DD(445.12,.01,1,0)="^.1"
^DD(445.12,.01,1,1,0)="445.12^B"
^DD(445.12,.01,1,1,1)="S ^PRCP(445,DA(2),""SECITM"",DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(445.12,.01,1,1,2)="K ^PRCP(445,DA(2),""SECITM"",DA(1),5,""B"",$E(X,1,30),DA)"
^DD(445.12,.01,3)="This field is non-editable."
^DD(445.12,.01,4)="D EN^DDIOL(""Data may not be added, changed, or deleted."")"
^DD(445.12,.01,21,0)="^^10^10^2990908^^^"
^DD(445.12,.01,21,1,0)="This field is automatically populated when the option to 'Convert"
^DD(445.12,.01,21,2,0)="Secondary to Primary' [PRCP CONVERT SECONDARY] is run."
^DD(445.12,.01,21,3,0)=" "
^DD(445.12,.01,21,4,0)="It contains the PROCUREMENT SOURCES in the ITEM sub-file in the inventory"
^DD(445.12,.01,21,5,0)="point as it existed before conversion. The only time it would ever be"
^DD(445.12,.01,21,6,0)="referenced is in cases where users mistakenly convert an inventory point"
^DD(445.12,.01,21,7,0)="and need to 'undo' the conversion."
^DD(445.12,.01,21,8,0)=" "
^DD(445.12,.01,21,9,0)="DATA CONTAINED IN THIS FIELD ARE NEVER USED IN ANY TYPE OF PRODUCTION"
^DD(445.12,.01,21,10,0)="APPLICATION."
^DD(445.12,.01,"DEL",1,0)="D EN^DDIOL(""DELETION IS NOT ALLOWED."") I 1"
^DD(445.12,.01,"DT")="2990629"
^DD(445.12,"B","PRE-CONVERSION SOURCES (NO EDITS)",.01)=""
^DD(445.12,"GL",0,1,.01)=""
^DD(445.12,"IX",.01)=""
^DD(445.121,0)="CASE CART/INSTRUMENT KIT ITEM SUB-FIELD^^1^2"
^DD(445.121,0,"IX","B",445.121,.01)=""
^DD(445.121,0,"NM","CASE CART/INSTRUMENT KIT ITEM")=""
^DD(445.121,0,"UP")="445.01"
^DD(445.121,.01,0)="CASE CART/INSTRUMENT KIT ITEM^M*P441'X^PRC(441,^0;1^S DINUM=X"
^DD(445.121,.01,1,0)="^.1"
^DD(445.121,.01,1,1,0)="445.121^B"
^DD(445.121,.01,1,1,1)="S ^PRCP(445,DA(2),1,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(445.121,.01,1,1,2)="K ^PRCP(445,DA(2),1,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(445.121,.01,3)="Enter items which make up this case cart or instrument kit."
^DD(445.121,.01,4)=""
^DD(445.121,.01,12)="Item must be a purchaseable item that is in your inventory file."
^DD(445.121,.01,12.1)="S DIC(""S"")=""I $D(^PRCP(445,D0,1,+Y,0)),$D(^PRC(441,+Y,0))"",PRCPSET=""I 1"""
^DD(445.121,.01,21,0)="^^2^2^2930831^^"
^DD(445.121,.01,21,1,0)="This is the disposable item which makes up the case cart or instrument"
^DD(445.121,.01,21,2,0)="kit."
^DD(445.121,.01,23,0)="^^2^2^2930831^"
^DD(445.121,.01,23,1,0)="This field is internally set by the assembly of a case cart or instrument"
^DD(445.121,.01,23,2,0)="kit routines."
^DD(445.121,.01,"DT")="2930831"
^DD(445.121,1,0)="QTY NEEDED FOR ONE CC/IK^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.121,1,3)="Enter the quantity needed to assemble one case cart or instrument kit."
^DD(445.121,1,21,0)="^^2^2^2930831^^"
^DD(445.121,1,21,1,0)="This is the quantity of the disposable item used to assemble the case"
^DD(445.121,1,21,2,0)="cart or instrument kit."
^DD(445.121,1,23,0)="^^2^2^2930831^"
^DD(445.121,1,23,1,0)="This field is internally set by the assembly of a case cart or instrument"
^DD(445.121,1,23,2,0)="kit routines."
^DD(445.121,1,"DT")="2930831"
^DD(445.121,"B","CASE CART/INSTRUMENT KIT ITEM",.01)=""
^DD(445.121,"B","QTY NEEDED FOR ONE CC/IK",1)=""
^DD(445.121,"GL",0,1,.01)=""
^DD(445.121,"GL",0,2,1)=""
^DD(445.121,"IX",.01)=""
^DD(445.122,0)="SUBSTITUTE ITEM(S) SUB-FIELD^^.01^1"
^DD(445.122,0,"DT")="2930401"
^DD(445.122,0,"ID","WRITE")="W ?10,""NSN: "",$$NSN^PRCPUX1(+Y)"
^DD(445.122,0,"IX","B",445.122,.01)=""
^DD(445.122,0,"NM","SUBSTITUTE ITEM(S)")=""
^DD(445.122,0,"UP")="445.01"
^DD(445.122,.01,0)="SUBSTITUTE ITEM(S)^MP441'X^PRC(441,^0;1^S DINUM=X I DA(1)=X!('$D(^PRCP(445,DA(2),1,X,0))) K DINUM,X"
^DD(445.122,.01,1,0)="^.1"
^DD(445.122,.01,1,1,0)="445.122^B"
^DD(445.122,.01,1,1,1)="S ^PRCP(445,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(445.122,.01,1,1,2)="K ^PRCP(445,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(445.122,.01,21,0)="^^3^3^2930402^^^"
^DD(445.122,.01,21,1,0)="This multiple field is used to store the items from within the"
^DD(445.122,.01,21,2,0)="warehouse inventory point which can be used to substitute for"
^DD(445.122,.01,21,3,0)="out of stock items when posting issue book requests."
^DD(445.122,.01,"DT")="2930401"
^DD(445.122,"B","SUBSTITUTE ITEM(S)",.01)=""
^DD(445.122,"GL",0,1,.01)=""
^DD(445.122,"IX",.01)=""
^DD(445.13,0)="ON-DEMAND AUDIT SUB-FIELD^^3^4"
^DD(445.13,0,"DT")="3060501"
^DD(445.13,0,"IX","B",445.13,.01)=""
^DD(445.13,0,"NM","ON-DEMAND AUDIT")=""
^DD(445.13,0,"UP")="445.01"
^DD(445.13,.01,0)="DATE/TIME OF CHANGE^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(445.13,.01,1,0)="^.1"
^DD(445.13,.01,1,1,0)="445.13^B"
^DD(445.13,.01,1,1,1)="S ^PRCP(445,DA(2),1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(445.13,.01,1,1,2)="K ^PRCP(445,DA(2),1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(445.13,.01,3)="(No range limit on date)"
^DD(445.13,.01,21,0)="^^4^4^3060501^"
^DD(445.13,.01,21,1,0)="This field stores the date/time that a user changed the On-Demand Setting "
^DD(445.13,.01,21,2,0)="of an item in the inventory.  Only settings from or to 'Yes' will be"
^DD(445.13,.01,21,3,0)="captured as changes from null to NO or No to null do not move an item into"
^DD(445.13,.01,21,4,0)="or out of an On-Demand status."
^DD(445.13,.01,"DT")="3060501"
^DD(445.13,1,0)="ON-DEMAND CHANGED BY^P200'^VA(200,^0;2^Q"
^DD(445.13,1,3)="This field stores the user who changed the On-Demand Setting for the item."
^DD(445.13,1,21,0)="^^2^2^3060501^"
^DD(445.13,1,21,1,0)="This field stores the user who changed the On-Demand Setting for this "
^DD(445.13,1,21,2,0)="item at the date/time specified."
^DD(445.13,1,"DT")="3060428"
^DD(445.13,2,0)="REASON FOR CHANGE^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(445.13,2,3)="Answer must be 3-30 characters in length"
^DD(445.13,2,21,0)="^^2^2^3060501^"
^DD(445.13,2,21,1,0)="Anytime the On-Demand status of an item is changed, the user must specify "
^DD(445.13,2,21,2,0)="why the change was made.  This field will store that reason."
^DD(445.13,2,"DT")="3060428"
^DD(445.13,3,0)="NEW ON-DEMAND SETTING^S^Y:YES;N:NO;^0;4^Q"
^DD(445.13,3,3)="Enter 'YES' if the item was set to be On-Demand"
^DD(445.13,3,21,0)="^^2^2^3060501^"
^DD(445.13,3,21,1,0)="This field will show what the user changed the On-Demand Setting for that "
^DD(445.13,3,21,2,0)="item to be."
^DD(445.13,3,"DT")="3060428"
^DD(445.13,"B","DATE/TIME OF CHANGE",.01)=""
^DD(445.13,"B","NEW ON-DEMAND SETTING",3)=""
^DD(445.13,"B","ON-DEMAND CHANGED BY",1)=""
^DD(445.13,"B","REASON FOR CHANGE",2)=""
^DD(445.13,"GL",0,1,.01)=""
^DD(445.13,"GL",0,2,1)=""
^DD(445.13,"GL",0,3,2)=""
^DD(445.13,"GL",0,4,3)=""
^DD(445.13,"IX",.01)=""
^DD(445.2,0)="FIELD^^411^27"
^DD(445.2,0,"DDA")="N"
^DD(445.2,0,"DT")="2940304"
^DD(445.2,0,"IX","AD",445.2,.01)=""
^DD(445.2,0,"IX","AE",445.2,4)=""
^DD(445.2,0,"IX","ANXT",445.2,.01)=""
^DD(445.2,0,"IX","AX1",445.2,.01)=""
^DD(445.2,0,"IX","AX2",445.2,3)=""
^DD(445.2,0,"IX","B",445.2,.01)=""
^DD(445.2,0,"IX","C",445.2,410)=""
^DD(445.2,0,"IX","T",445.2,1)=""
^DD(445.2,0,"IX","V",445.2,13)=""
^DD(445.2,0,"NM","INVENTORY TRANSACTION")=""
^DD(445.2,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445.2,0,"VR")="5.1"
^DD(445.2,0,"VRPK")="IFCAP"
^DD(445.2,.01,0)="INVENTORY POINT^RP445'X^PRCP(445,^0;1^K:'$G(PRCPPRIV) X"
^DD(445.2,.01,1,0)="^.1"
^DD(445.2,.01,1,1,0)="445.2^B"
^DD(445.2,.01,1,1,1)="S ^PRCP(445.2,""B"",$E(X,1,30),DA)="""""
^DD(445.2,.01,1,1,2)="K ^PRCP(445.2,""B"",$E(X,1,30),DA)"
^DD(445.2,.01,1,2,0)="445.2^ANXT^MUMPS"
^DD(445.2,.01,1,2,1)="S:'$D(^PRCP(445.2,""ANXT"",X)) ^(X)=0 S:^(X)>9999999 ^(X)=0"
^DD(445.2,.01,1,2,2)="Q"
^DD(445.2,.01,1,2,"%D",0)="^^2^2^2930503^"
^DD(445.2,.01,1,2,"%D",1,0)="This cross reference is used to reset the transaction register counter"
^DD(445.2,.01,1,2,"%D",2,0)="for an inventory point."
^DD(445.2,.01,1,2,"DT")="2910926"
^DD(445.2,.01,1,3,0)="445.2^AD^MUMPS"
^DD(445.2,.01,1,3,1)="I $P(^PRCP(445.2,DA,0),U,5) S Z=+$P(^(0),U,5),^PRCP(445.2,""AD"",X,Z,DA)="""" K Z"
^DD(445.2,.01,1,3,2)="I $P(^PRCP(445.2,DA,0),U,5) S Z=+$P(^(0),U,5) K ^PRCP(445.2,""AD"",X,Z,DA),Z"
^DD(445.2,.01,1,3,"%D",0)="^^3^3^2930503^"
^DD(445.2,.01,1,3,"%D",1,0)="This cross reference is used to set the ""AD"" cross reference for the"
^DD(445.2,.01,1,3,"%D",2,0)="ITEM NO. field (#4) (stored in the variable Z) to the inventory point"
^DD(445.2,.01,1,3,"%D",3,0)="(stored in the variable X)."
^DD(445.2,.01,1,4,0)="445.2^AX1^MUMPS"
^DD(445.2,.01,1,4,1)="D XREFAX^PRCPUXRE(DA,X,.01,""SET"")"
^DD(445.2,.01,1,4,2)="D XREFAX^PRCPUXRE(DA,X,.01,""KILL"")"
^DD(445.2,.01,1,4,"%D",0)="^^18^18^2930523^^"
^DD(445.2,.01,1,4,"%D",1,0)="This mumps cross reference builds the node:"
^DD(445.2,.01,1,4,"%D",1,2)="R;"
^DD(445.2,.01,1,4,"%D",2,0)="        ^PRCP(445.2,""AX"",invpt,transdate transtype,da)="""""
^DD(445.2,.01,1,4,"%D",2,2)="R;SSSSSSST"
^DD(445.2,.01,1,4,"%D",3,0)="where:"
^DD(445.2,.01,1,4,"%D",3,2)="R;"
^DD(445.2,.01,1,4,"%D",4,0)="        invpt      =    internal inventory point number"
^DD(445.2,.01,1,4,"%D",4,2)="R;SSSSSSST            SSST"
^DD(445.2,.01,1,4,"%D",5,0)="                        from field .01;"
^DD(445.2,.01,1,4,"%D",5,2)="R;SSSSSSSTSSSSSSSTSSSSSSST"
^DD(445.2,.01,1,4,"%D",6,0)="        transdate  =    date of the transaction (no time)"
^DD(445.2,.01,1,4,"%D",6,2)="R;SSSSSSST            SSST"
^DD(445.2,.01,1,4,"%D",7,0)="                        from field 2.5;"
^DD(445.2,.01,1,4,"%D",7,2)="R;SSSSSSSTSSSSSSSTSSSSSSST"
^DD(445.2,.01,1,4,"%D",8,0)="        transtype  =    type of transaction (R:receipts, etc)"
^DD(445.2,.01,1,4,"%D",8,2)="R;SSSSSSST             SST"
^DD(445.2,.01,1,4,"%D",9,0)="                        from field 3;"
^DD(445.2,.01,1,4,"%D",9,2)="R;SSSSSSSTSSSSSSSTSSSSSSST"
^DD(445.2,.01,1,4,"%D",10,0)="        da         =    internal entry number of the record."
^DD(445.2,.01,1,4,"%D",10,2)="R;SSSSSSST  SSSSST    SSST"
^DD(445.2,.01,1,4,"%D",11,0)=""
^DD(445.2,.01,1,4,"%D",11,2)="R;"
^DD(445.2,.01,1,4,"%D",12,0)="The call to set or kill the cross reference:"
^DD(445.2,.01,1,4,"%D",12,2)="R;"
^DD(445.2,.01,1,4,"%D",13,0)="        D XREFAX^PRCPUXRE(DA,X,field,setkill)"
^DD(445.2,.01,1,4,"%D",13,2)="R;SSSSSSST"
^DD(445.2,.01,1,4,"%D",14,0)="passes the following variables:"
^DD(445.2,.01,1,4,"%D",14,2)="R;"
^DD(445.2,.01,1,4,"%D",15,0)="        DA         =    internal entry number of the record;"
^DD(445.2,.01,1,4,"%D",15,2)="R;SSSSSSST            SSST"
^DD(445.2,.01,1,4,"%D",16,0)="        X          =    field value to set or kill;"
^DD(445.2,.01,1,4,"%D",16,2)="R;SSSSSSST            SSST"
^DD(445.2,.01,1,4,"%D",17,0)="        field      =    field number, either .01, 2.5, or 3;"
^DD(445.2,.01,1,4,"%D",17,2)="R;SSSSSSST            SSST"
^DD(445.2,.01,1,4,"%D",18,0)="        setkill    =    pass ""SET"" to set xref, ""KILL"" to kill xref."
^DD(445.2,.01,1,4,"%D",18,2)="R;SSSSSSST            SSST"
^DD(445.2,.01,1,4,"DT")="2930523"
^DD(445.2,.01,3)="The Inventory point affected by the transaction."
^DD(445.2,.01,21,0)="^^3^3^2940715^^"
^DD(445.2,.01,21,1,0)="This is the inventory point affected by the transaction.  Each time an item"
^DD(445.2,.01,21,2,0)="has activity against it, the inventory point will be added as a new entry to"
^DD(445.2,.01,21,3,0)="this file."
^DD(445.2,.01,"DT")="3000503"
^DD(445.2,1,0)="TRANSACTION ID^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(445.2,1,1,0)="^.1"
^DD(445.2,1,1,1,0)="445.2^T^MUMPS"
^DD(445.2,1,1,1,1)="S ^PRCP(445.2,""T"",+^PRCP(445.2,DA,0),X,DA)="""""
^DD(445.2,1,1,1,2)="K ^PRCP(445.2,""T"",+^PRCP(445.2,DA,0),X,DA)"
^DD(445.2,1,1,1,"%D",0)="^^2^2^2930503^^"
^DD(445.2,1,1,1,"%D",1,0)="This cross reference is used to sort the transaction identifier by the"
^DD(445.2,1,1,1,"%D",2,0)="inventory point."
^DD(445.2,1,1,1,"DT")="2920417"
^DD(445.2,1,3)="A transaction is any event that affects the inventory level (receiving, distribution, etc.)  The ID uniquely identifies the transaction (ex. Distribution Order No., P.O.No.)"
^DD(445.2,1,21,0)="^^5^5^2920331^^"
^DD(445.2,1,21,1,0)="This is the Transaction ID defined in two parts:"
^DD(445.2,1,21,2,0)="A Transaction is any event that affects the inventory level"
^DD(445.2,1,21,3,0)="(e.g., receiving, distribution, etc.).  The ID uniquely "
^DD(445.2,1,21,4,0)="identifies the transaction (e.g., Distribution Order No.,"
^DD(445.2,1,21,5,0)="P.O. No.)."
^DD(445.2,1,"DT")="2920417"
^DD(445.2,2,0)="DATE OF TRANSACTION^RD^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(445.2,2,1,0)="^.1^^0"
^DD(445.2,2,3)="Date of original transaction (ex., P.O.date for receiving, date Distribution Order was entered)"
^DD(445.2,2,21,0)="^^2^2^2920331^"
^DD(445.2,2,21,1,0)="This is the date of the original transaction (e.g., P.O."
^DD(445.2,2,21,2,0)="date for receiving; date Distribution Order was entered)."
^DD(445.2,2,"DT")="2870811"
^DD(445.2,2.5,0)="DATE POSTED^D^^0;17^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(445.2,2.5,3)="Date this transaction affected the inventory."
^DD(445.2,2.5,21,0)="^^1^1^2920331^"
^DD(445.2,2.5,21,1,0)="This is the date the transaction affected the inventory."
^DD(445.2,2.5,"DT")="2930503"
^DD(445.2,3,0)="TYPE OF TRANSACTION^RS^RC:RECEIVING;R:DISTR.(REGULAR);U:USAGE;A:MANUAL ADJ.;C:DISTR.(CALL-IN);S:SET/PACKS;P:PHYSICAL COUNT;E:DISTR.(EMERGENCY);Q:QTY ON SUPPLY STATION;^0;4^Q"
^DD(445.2,3,1,0)="^.1"
^DD(445.2,3,1,1,0)="445.2^AX2^MUMPS"
^DD(445.2,3,1,1,1)="D XREFAX^PRCPUXRE(DA,X,3,""SET"")"
^DD(445.2,3,1,1,2)="D XREFAX^PRCPUXRE(DA,X,3,""KILL"")"
^DD(445.2,3,1,1,"%D",0)="^^19^19^2930523^^"
^DD(445.2,3,1,1,"%D",1,0)="This mumps cross reference builds the node:"
^DD(445.2,3,1,1,"%D",1,2)="R;"
^DD(445.2,3,1,1,"%D",2,0)="        ^PRCP(445.2,""AX"",invpt,transdate transtype,da)="""""
^DD(445.2,3,1,1,"%D",2,2)="R;SSSSSSST"
^DD(445.2,3,1,1,"%D",3,0)="where:"
^DD(445.2,3,1,1,"%D",3,2)="R;"
^DD(445.2,3,1,1,"%D",4,0)="        invpt      =    internal inventory point number"
^DD(445.2,3,1,1,"%D",4,2)="R;SSSSSSST            SSST"
^DD(445.2,3,1,1,"%D",5,0)="                        from field .01;"
^DD(445.2,3,1,1,"%D",5,2)="R;SSSSSSSTSSSSSSSTSSSSSSST"
^DD(445.2,3,1,1,"%D",6,0)="        transdate  =    date of the transaction (no time)"
^DD(445.2,3,1,1,"%D",6,2)="R;SSSSSSST            SSST"
^DD(445.2,3,1,1,"%D",7,0)="                        from field 2.5;"
^DD(445.2,3,1,1,"%D",7,2)="R;SSSSSSSTSSSSSSSTSSSSSSST"
^DD(445.2,3,1,1,"%D",8,0)="        transtype  =    type of transaction (R:receipts, etc)"
^DD(445.2,3,1,1,"%D",8,2)="R;SSSSSSST             SST"
^DD(445.2,3,1,1,"%D",9,0)="                        from field 3;"
^DD(445.2,3,1,1,"%D",9,2)="R;SSSSSSSTSSSSSSSTSSSSSSST"
^DD(445.2,3,1,1,"%D",10,0)="        da         =    internal entry number of the record."
^DD(445.2,3,1,1,"%D",10,2)="R;SSSSSSST  SSSSST    SSST"
^DD(445.2,3,1,1,"%D",11,0)=""
^DD(445.2,3,1,1,"%D",11,2)="R;"
^DD(445.2,3,1,1,"%D",12,0)="The call to set or kill the cross reference:"
^DD(445.2,3,1,1,"%D",12,2)="R;"
^DD(445.2,3,1,1,"%D",13,0)="        D XREFAX^PRCPUXRE(DA,X,field,setkill)"
^DD(445.2,3,1,1,"%D",13,2)="R;SSSSSSST"
^DD(445.2,3,1,1,"%D",14,0)="passes the following variables:"
^DD(445.2,3,1,1,"%D",14,2)="R;"
^DD(445.2,3,1,1,"%D",15,0)="        DA         =    internal entry number of the record;"
^DD(445.2,3,1,1,"%D",15,2)="R;SSSSSSST            SSST"
^DD(445.2,3,1,1,"%D",16,0)="        X          =    field value to set or kill;"
^DD(445.2,3,1,1,"%D",16,2)="R;SSSSSSST            SSST"
^DD(445.2,3,1,1,"%D",17,0)="        field      =    field number, either .01, 2.5, or 3;"
^DD(445.2,3,1,1,"%D",17,2)="R;SSSSSSST            SSST"
^DD(445.2,3,1,1,"%D",18,0)="        setkill    =    pass ""SET"" to set xref, ""KILL"" to kill xref."
^DD(445.2,3,1,1,"%D",18,2)="R;SSSSSSST            SSST"
^DD(445.2,3,1,1,"%D",19,0)=""
^DD(445.2,3,1,1,"DT")="2930523"
^DD(445.2,3,3)="RC=Receive inventory, (R or C or E)=Distribute to an Inventory Point, U=Usage (ex.,patient, in-house), A=Manual adjustment, S=Sets/Packs, P=Physical Count, Q=adj to supply station qty"
^DD(445.2,3,21,0)="^.001^5^5^3010416^^^"
^DD(445.2,3,21,1,0)="This code indicates the type of transaction (i.e., RC="
^DD(445.2,3,21,2,0)="receiving supplies into inventory; R or C or E= Distribution to another"
^DD(445.2,3,21,3,0)="Inventory Point; U= Usage (e.g., patient, in-house); A= Manual"
^DD(445.2,3,21,4,0)="adjustment to inventory; S=Assemble Sets/Packs; P= Physical"
^DD(445.2,3,21,5,0)="Count; Q= Quantity adjusted to supply station value."
^DD(445.2,3,"DT")="3010416"
^DD(445.2,4,0)="ITEM NO.^R*P441'^PRC(441,^0;5^S DIC(""S"")=""I $D(^PRCP(445,+^PRCP(445.2,DA,0),1,+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445.2,4,1,0)="^.1^^-1"
^DD(445.2,4,1,2,0)="445.2^AE^MUMPS"
^DD(445.2,4,1,2,1)="I $P(^PRCP(445.2,DA,0),U) S Z=+$P(^(0),U),^PRCP(445.2,""AD"",Z,X,DA)="""" K Z"
^DD(445.2,4,1,2,2)="I $P(^PRCP(445.2,DA,0),U) S Z=+$P(^(0),U) K ^PRCP(445.2,""AD"",Z,X,DA),Z"
^DD(445.2,4,1,2,"%D",0)="^^2^2^2930503^"
^DD(445.2,4,1,2,"%D",1,0)="This cross reference sets the ""AD"" cross reference on the ITEM NO.? (field"
^DD(445.2,4,1,2,"%D",2,0)="4) to the inventory point (stored in the variable Z)."
^DD(445.2,4,12)="Item must be in the Inventory file for this Inventory Point."
^DD(445.2,4,12.1)="S DIC(""S"")=""I $D(^PRCP(445,+^PRCP(445.2,DA,0),1,+Y,0))"""
^DD(445.2,4,21,0)="^^2^2^2920331^"
^DD(445.2,4,21,1,0)="This is a pointer the Item Master File, #441 (Note: The item"
^DD(445.2,4,21,2,0)="must be in the Inventory file for this Inventory Point)."
^DD(445.2,4,"DT")="2930503"
^DD(445.2,5,0)="PACKAGING UNIT^F^^0;6^K:$L(X)>9!($L(X)<1) X"
^DD(445.2,5,3)="Unit of Issue from this Inventory Point.  ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(445.2,5,21,0)="^^1^1^2920401^^"
^DD(445.2,5,21,1,0)="This is the unit of issue from this Inventory Point."
^DD(445.2,6,0)="QUANTITY^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.2,6,3)="TYPE A WHOLE NUMBER BETWEEN -999999 AND 999999.  A plus indicates inventory was incremented by the quantity, a minus indicates inventory was decremented."
^DD(445.2,6,21,0)="1^^3^3^2920401^"
^DD(445.2,6,21,1,0)="This is the number indicating whether the inventory was"
^DD(445.2,6,21,2,0)="incremented by the quantity, or whether the inventory"
^DD(445.2,6,21,3,0)="was decremented."
^DD(445.2,6.1,0)="INVENTORY VALUE^NJ9,2^^0;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(445.2,6.1,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(445.2,6.1,21,0)="^^2^2^2920707^^"
^DD(445.2,6.1,21,1,0)="This field is used to store the total dollar inventory value of the "
^DD(445.2,6.1,21,2,0)="transaction."
^DD(445.2,6.1,23,0)="^^1^1^2920707^"
^DD(445.2,6.1,23,1,0)="This field gets set in the routine PRCPUTR."
^DD(445.2,6.1,"DT")="2920707"
^DD(445.2,6.2,0)="SELL VALUE^NJ9,2^^0;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99) X"
^DD(445.2,6.2,3)="Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(445.2,6.2,21,0)="^^2^2^2920707^"
^DD(445.2,6.2,21,1,0)="This field is used to store the total dollar sales value of the"
^DD(445.2,6.2,21,2,0)="transaction."
^DD(445.2,6.2,23,0)="^^1^1^2920707^"
^DD(445.2,6.2,23,1,0)="This field gets set in the routine PRCPUTR."
^DD(445.2,7,0)="AVG.UNIT COST^NJ11,3^^0;8^K:+X'=X!(X>9999999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.2,7,3)="Used to value the net affect to the Inventory of this transaction.  TYPE A NUMBER BETWEEN 0 AND 9999999.999"
^DD(445.2,7,21,0)="^^2^2^2920401^"
^DD(445.2,7,21,1,0)="This is the average unit cost which is used to value the"
^DD(445.2,7,21,2,0)="net effect to the Inventory of this transaction."
^DD(445.2,8,0)="SELLING UNIT PRICE^NJ11,3^^0;9^K:+X'=X!(X>9999999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.2,8,3)="Used for cost accounting=the higher of the actual cost or the average at the time the transaction occurred.  TYPE A NUMBER BETWEEN 0 AND 9999999.999"
^DD(445.2,8,21,0)="2^^2^2^2920401^^"
^DD(445.2,8,21,1,0)="This is used for cost accounting (i.e., the higher of the actual"
^DD(445.2,8,21,2,0)="cost or the average at the time the transaction occurred)."
^DD(445.2,8.5,0)="POSTED BY^RP200'^VA(200,^0;16^Q"
^DD(445.2,8.5,3)="Enter the name of the User that initiated the Posting Process for this Transaction."
^DD(445.2,8.5,21,0)="^^2^2^2940715^^"
^DD(445.2,8.5,21,1,0)="This field stores the user which created the activity against this item in"
^DD(445.2,8.5,21,2,0)="the inventory point."
^DD(445.2,8.5,"DT")="2920601"
^DD(445.2,9,0)="REASON CODE^F^^0;10^K:$L(X)>3!($L(X)<1) X"
^DD(445.2,9,3)="(WILL LATER BE A POINTER TO A FILE USED BY THE INTERFACE TO LOG I) USED PRIMARILY TO EXPLAIN REASON FOR MANUAL ADJUSTMENTS.  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(445.2,9,21,0)="^^1^1^2940715^^"
^DD(445.2,9,21,1,0)="This field is no longer used."
^DD(445.2,9,22)=""
^DD(445.2,9.5,0)="ADDITIONAL REASON TEXT^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(445.2,9.5,3)="Used for Manual Adjustments and Usage Function to allow operator to describe why the transaction occurred.  ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(445.2,9.5,21,0)="^^3^3^2940715^^"
^DD(445.2,9.5,21,1,0)="This field is used to explain the reason for the activity against this item"
^DD(445.2,9.5,21,2,0)="in the inventory point.  It allows the user to enter a reason for making"
^DD(445.2,9.5,21,3,0)="adjustments to items."
^DD(445.2,10,0)="ISSUABLE/NONISSUABLE^S^I:ISSUABLE;N:NON-ISSUABLE;^0;11^Q"
^DD(445.2,10,1,0)="^.1^^0"
^DD(445.2,10,3)="Used to denote transfers between Issuable and Non-Issuable Inventory.  (Used in manual transactions only)."
^DD(445.2,10,21,0)="^^2^2^2940715^^"
^DD(445.2,10,21,1,0)="This code is used to denote transfers between Issuable and Non-Issuable"
^DD(445.2,10,21,2,0)="Inventory adjustments."
^DD(445.2,10,"DT")="2920420"
^DD(445.2,10.5,0)="LOG TRANSACTION CODE^*P420.4'^PRCD(420.4,^0;13^S DIC(""S"")=""I $P(^PRCD(420.4,+Y,0),U,6)=""""LOG"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445.2,10.5,12)="Only LOG transactions can be selected"
^DD(445.2,10.5,12.1)="S DIC(""S"")=""I $P(^PRCD(420.4,+Y,0),U,6)=""""LOG"""""""
^DD(445.2,10.5,21,0)="^^1^1^2940630^^^"
^DD(445.2,10.5,21,1,0)="This field is no longer used."
^DD(445.2,10.5,"DT")="2890711"
^DD(445.2,11,0)="SOURCE CODE^P420.8'^PRCD(420.8,^0;12^Q"
^DD(445.2,11,3)="Used on Receiving Transactions only.  The source from which the item was procured."
^DD(445.2,11,21,0)="^^1^1^2940715^^"
^DD(445.2,11,21,1,0)="This field is no longer used."
^DD(445.2,12,0)="ACCOUNT CODE^F^^0;14^K:$L(X)>1!($L(X)<1) X"
^DD(445.2,12,3)="(May be made a pointer to a file in the future) Used in LOG transactions only, the code indicates a 4-digit GL code."
^DD(445.2,12,21,0)="^^1^1^2940715^^"
^DD(445.2,12,21,1,0)="This field is no longer used."
^DD(445.2,12,23,0)="0"
^DD(445.2,12,23,1,0)=""
^DD(445.2,13,0)="VOUCHER NUMBER^F^^0;15^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(445.2,13,1,0)="^.1"
^DD(445.2,13,1,1,0)="445.2^V"
^DD(445.2,13,1,1,1)="S ^PRCP(445.2,""V"",$E(X,1,30),DA)="""""
^DD(445.2,13,1,1,2)="K ^PRCP(445.2,""V"",$E(X,1,30),DA)"
^DD(445.2,13,1,1,"%D",0)="^^2^2^2940812^^"
^DD(445.2,13,1,1,"%D",1,0)="This cross reference is used to lookup transaction register entries by the"
^DD(445.2,13,1,1,"%D",2,0)="voucher number."
^DD(445.2,13,1,1,"DT")="2940812"
^DD(445.2,13,3)="Used for receipts from DEPOT only, this is the number that LOG used to identify a DEPOT transaction.  ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(445.2,13,21,0)="^^2^2^2940715^^"
^DD(445.2,13,21,1,0)="This field stores the voucher number which appears on the voucher summary"
^DD(445.2,13,21,2,0)="report and is used for reconciliation."
^DD(445.2,13,"DT")="2940812"
^DD(445.2,14,0)="OTHER INVENTORY POINT AFFECTED^P445'^PRCP(445,^0;18^Q"
^DD(445.2,14,3)="For any transaction that affects two inventory points (ex.distribution), the name of the other inventory point affected should be entered here."
^DD(445.2,14,21,0)="^^3^3^2920414^"
^DD(445.2,14,21,1,0)="This is designated for the name of the other inventory"
^DD(445.2,14,21,2,0)="point affected (i.e., in the case where there is a transaction"
^DD(445.2,14,21,3,0)="that affects two inventory points)."
^DD(445.2,14,"DT")="2870622"
^DD(445.2,20,0)="ADJUSTMENT APPROVED DATE@TIME^D^^0;20^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(445.2,20,21,0)="^^4^4^2920417^"
^DD(445.2,20,21,1,0)="This field is used for adjustment transactions.  When an adjustment"
^DD(445.2,20,21,2,0)="is made in the warehouse inventory point, this field is used to indicate"
^DD(445.2,20,21,3,0)="the date and time the adjustment was approved by the accountable and"
^DD(445.2,20,21,4,0)="approving officials."
^DD(445.2,20,"DT")="2920417"
^DD(445.2,21,0)="ADJUSTMENT APPROVED BY^P200'^VA(200,^0;21^Q"
^DD(445.2,21,21,0)="^^3^3^2920417^"
^DD(445.2,21,21,1,0)="This field is used for adjustment transactions.  When an adjustment"
^DD(445.2,21,21,2,0)="is made in the warehouse inventory point, this field is used to indicate"
^DD(445.2,21,21,3,0)="the user who entered the adjustment as approved."
^DD(445.2,21,"DT")="2920417"
^DD(445.2,22,0)="SUPPLY STATION USER^F^^2;1^K:$L(X)>50!($L(X)<1) X"
^DD(445.2,22,3)="Answer must be 1-50 characters in length."
^DD(445.2,22,21,0)="^^2^2^3000413^"
^DD(445.2,22,21,1,0)="The name of the person who took the supplies from the automated supply"
^DD(445.2,22,21,2,0)="station."
^DD(445.2,22,"DT")="3000413"
^DD(445.2,23,0)="RECIPIENT^F^^2;2^K:$L(X)>60!($L(X)<1) X"
^DD(445.2,23,3)="This field contains the information of who or what received supplies obtained from the automated supply station.  The response must be between 1 and 60 characters"
^DD(445.2,23,21,0)="^^2^2^3000821^"
^DD(445.2,23,21,1,0)="This field holds the name of patient or area receiving supplies from an"
^DD(445.2,23,21,2,0)="automated supply station.  For example, floor stock, trashed, etc."
^DD(445.2,23,"DT")="3000821"
^DD(445.2,410,0)="TRANSACTION/P.O. NUMBER^F^^0;19^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<10) X"
^DD(445.2,410,1,0)="^.1^^-1"
^DD(445.2,410,1,1,0)="445.2^C"
^DD(445.2,410,1,1,1)="S ^PRCP(445.2,""C"",$E(X,1,30),DA)="""""
^DD(445.2,410,1,1,2)="K ^PRCP(445.2,""C"",$E(X,1,30),DA)"
^DD(445.2,410,1,1,"%D",0)="^^2^2^2911209^"
^DD(445.2,410,1,1,"%D",1,0)="This cross reference is used for lookups on the transaction number"
^DD(445.2,410,1,1,"%D",2,0)="for reprinting the picking ticket."
^DD(445.2,410,1,1,"DT")="2911209"
^DD(445.2,410,3)="Answer must be 10-18 characters in length."
^DD(445.2,410,21,0)="^^4^4^2911209^"
^DD(445.2,410,21,1,0)="This field is used to store the transaction number from file 410.  The"
^DD(445.2,410,21,2,0)="field is set to the transaction number when the warehouse posts an"
^DD(445.2,410,21,3,0)="issue book to a primary.  This field is used for lookups during the"
^DD(445.2,410,21,4,0)="'Reprint a Picking Ticket' option."
^DD(445.2,410,"DT")="2920115"
^DD(445.2,411,0)="ISSUE BOOK LINE NUMBER^NJ7,0I^^0;24^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(445.2,411,3)="Enter the Issue Book Line Number from 1 to 9999999."
^DD(445.2,411,21,0)="^^3^3^2940304^"
^DD(445.2,411,21,1,0)="This field is used to store the issue book line number.  The issue book"
^DD(445.2,411,21,2,0)="line number is used to look up on the issue book line to determine"
^DD(445.2,411,21,3,0)="the subacct for fms."
^DD(445.2,411,"DT")="2940314"
^DD(445.2,"B","ACCOUNT CODE",12)=""
^DD(445.2,"B","ADDITIONAL REASON TEXT",9.5)=""
^DD(445.2,"B","ADJUSTMENT APPROVED BY",21)=""
^DD(445.2,"B","ADJUSTMENT APPROVED DATE@TIME",20)=""
^DD(445.2,"B","AVG.UNIT COST",7)=""
^DD(445.2,"B","DATE OF TRANSACTION",2)=""
^DD(445.2,"B","DATE POSTED",2.5)=""
^DD(445.2,"B","INVENTORY POINT",.01)=""
^DD(445.2,"B","INVENTORY VALUE",6.1)=""
^DD(445.2,"B","ISSUABLE/NONISSUABLE",10)=""
^DD(445.2,"B","ISSUE BOOK LINE NUMBER",411)=""
^DD(445.2,"B","ITEM NO.",4)=""
^DD(445.2,"B","LOG TRANSACTION CODE",10.5)=""
^DD(445.2,"B","OTHER INVENTORY POINT AFFECTED",14)=""
^DD(445.2,"B","PACKAGING UNIT",5)=""
^DD(445.2,"B","POSTED BY",8.5)=""
^DD(445.2,"B","QUANTITY",6)=""
^DD(445.2,"B","REASON CODE",9)=""
^DD(445.2,"B","RECIPIENT",23)=""
^DD(445.2,"B","SELL VALUE",6.2)=""
^DD(445.2,"B","SELLING UNIT PRICE",8)=""
^DD(445.2,"B","SOURCE CODE",11)=""
^DD(445.2,"B","SUPPLY STATION USER",22)=""
^DD(445.2,"B","TRANSACTION ID",1)=""
^DD(445.2,"B","TRANSACTION/P.O. NUMBER",410)=""
^DD(445.2,"B","TYPE OF TRANSACTION",3)=""
^DD(445.2,"B","VOUCHER NUMBER",13)=""
^DD(445.2,"GL",0,1,.01)=""
^DD(445.2,"GL",0,2,1)=""
^DD(445.2,"GL",0,3,2)=""
^DD(445.2,"GL",0,4,3)=""
^DD(445.2,"GL",0,5,4)=""
^DD(445.2,"GL",0,6,5)=""
^DD(445.2,"GL",0,7,6)=""
^DD(445.2,"GL",0,8,7)=""
^DD(445.2,"GL",0,9,8)=""
^DD(445.2,"GL",0,10,9)=""
^DD(445.2,"GL",0,11,10)=""
^DD(445.2,"GL",0,12,11)=""
^DD(445.2,"GL",0,13,10.5)=""
^DD(445.2,"GL",0,14,12)=""
^DD(445.2,"GL",0,15,13)=""
^DD(445.2,"GL",0,16,8.5)=""
^DD(445.2,"GL",0,17,2.5)=""
^DD(445.2,"GL",0,18,14)=""
^DD(445.2,"GL",0,19,410)=""
^DD(445.2,"GL",0,20,20)=""
^DD(445.2,"GL",0,21,21)=""
^DD(445.2,"GL",0,22,6.1)=""
^DD(445.2,"GL",0,23,6.2)=""
^DD(445.2,"GL",0,24,411)=""
^DD(445.2,"GL",1,1,9.5)=""
^DD(445.2,"GL",2,1,22)=""
^DD(445.2,"GL",2,2,23)=""
^DD(445.2,"IX",.01)=""
^DD(445.2,"IX",1)=""
^DD(445.2,"IX",3)=""
^DD(445.2,"IX",4)=""
^DD(445.2,"IX",13)=""
^DD(445.2,"IX",410)=""
^DD(445.2,"RQ",.01)=""
^DD(445.2,"RQ",1)=""
^DD(445.2,"RQ",2)=""
^DD(445.2,"RQ",3)=""
^DD(445.2,"RQ",4)=""
^DD(445.2,"RQ",8.5)=""
^DD(445.3,0)="FIELD^^131^15"
^DD(445.3,0,"DDA")="N"
^DD(445.3,0,"DT")="2940727"
^DD(445.3,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRCP(445,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(445,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(445.3,0,"ID",3)="W ""   "",$E($P(^(0),U,4),4,5)_""-""_$E($P(^(0),U,4),6,7)_""-""_$E($P(^(0),U,4),2,3)"
^DD(445.3,0,"ID",3.5)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(445.3,3.5,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,8)_"""":"""",2),$C(59),1)"")"
^DD(445.3,0,"ID",5)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(445.3,5,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,6)_"""":"""",2),$C(59),1)"")"
^DD(445.3,0,"IX","AC",445.3,1)=""
^DD(445.3,0,"IX","AD",445.3,2)=""
^DD(445.3,0,"IX","ANXT",445.3,1)=""
^DD(445.3,0,"IX","ASR1",445.3,129)=""
^DD(445.3,0,"IX","ASR2",445.3,130)=""
^DD(445.3,0,"IX","B",445.3,.01)=""
^DD(445.3,0,"NM","INTERNAL DISTRIBUTION ORDER/ADJ.")=""
^DD(445.3,0,"PT",447.1,6)=""
^DD(445.3,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445.3,0,"VR")="5.1"
^DD(445.3,0,"VRPK")="IFCAP"
^DD(445.3,.01,0)="NUMBER^RNJ6,0X^^0;1^K:X&('$D(^PRCP(445.3,X,0))) X K:'$G(PRCPPRIV) X I $D(X) D:X=""NEW"" NEWORDER^PRCPOPUS(+$G(PRCPPRIM)) I $D(X) K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.3,.01,1,0)="^.1^^-1"
^DD(445.3,.01,1,1,0)="445.3^B"
^DD(445.3,.01,1,1,1)="S ^PRCP(445.3,""B"",$E(X,1,30),DA)="""""
^DD(445.3,.01,1,1,2)="K ^PRCP(445.3,""B"",$E(X,1,30),DA)"
^DD(445.3,.01,3)="Enter 'NEW' to add a new order to the file, or enter the number identifying this order."
^DD(445.3,.01,21,0)="^^3^3^2940715^^"
^DD(445.3,.01,21,1,0)="Enter 'NEW' to add a new order to the file, or enter the number identifying"
^DD(445.3,.01,21,2,0)="the order.  This sequential number is updated automatically by the system when"
^DD(445.3,.01,21,3,0)="a new order is added.  Each inventory point will use their own set of numbers."
^DD(445.3,.01,"DT")="2930915"
^DD(445.3,1,0)="PRIMARY INVENTORY POINT^R*P445'I^PRCP(445,^0;2^S DIC(""S"")=""I $P(^(0),U,3)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445.3,1,1,0)="^.1"
^DD(445.3,1,1,1,0)="445.3^ANXT^MUMPS"
^DD(445.3,1,1,1,1)="S:'$D(^PRCP(445.3,""ANXT"",+X)) ^(+X)="""" S:^(+X)=999999 ^(+X)="""""
^DD(445.3,1,1,1,2)="Q"
^DD(445.3,1,1,1,"%D",0)="^^2^2^2930503^^"
^DD(445.3,1,1,1,"%D",1,0)="This cross reference is used to reset the distribution order number for"
^DD(445.3,1,1,1,"%D",2,0)="the primary inventory point (stored in the variable X)."
^DD(445.3,1,1,2,0)="445.3^AC"
^DD(445.3,1,1,2,1)="S ^PRCP(445.3,""AC"",$E(X,1,30),DA)="""""
^DD(445.3,1,1,2,2)="K ^PRCP(445.3,""AC"",$E(X,1,30),DA)"
^DD(445.3,1,1,2,"%D",0)="^^4^4^2930628^"
^DD(445.3,1,1,2,"%D",1,0)="This cross reference sorts the distribution orders by the primary"
^DD(445.3,1,1,2,"%D",2,0)="inventory point.  The node prcp(445.3,""ac"",INVPT,DISTR) is set where"
^DD(445.3,1,1,2,"%D",3,0)="INVPT is the internal primary inventory point number and DISTR is"
^DD(445.3,1,1,2,"%D",4,0)="the internal distribution order number."
^DD(445.3,1,3)="Primary Inventory point from which the Order originated."
^DD(445.3,1,12)="Must be a Primary Inventory Point."
^DD(445.3,1,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""P"""""""
^DD(445.3,1,21,0)="^^2^2^2920415^"
^DD(445.3,1,21,1,0)="This is the Primary Inventory point from which the"
^DD(445.3,1,21,2,0)="Order originated."
^DD(445.3,1,"DT")="2870603"
^DD(445.3,2,0)="SECONDARY INVENTORY POINT^R*P445'XI^PRCP(445,^0;3^S DIC(""S"")=""I $P(^PRCP(445,DA,0),U,3)=""""S"""",$D(^PRCP(445,+$P(^PRCP(445.3,DA,0),U,2),2,+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(445.3,2,1,0)="^.1"
^DD(445.3,2,1,1,0)="445.3^AD"
^DD(445.3,2,1,1,1)="S ^PRCP(445.3,""AD"",$E(X,1,30),DA)="""""
^DD(445.3,2,1,1,2)="K ^PRCP(445.3,""AD"",$E(X,1,30),DA)"
^DD(445.3,2,1,1,"%D",0)="^^4^4^2930628^"
^DD(445.3,2,1,1,"%D",1,0)="This cross reference sorts the distribution orders by the secondary"
^DD(445.3,2,1,1,"%D",2,0)="inventory point.  The node prcp(445.3,""ad"",INVPT,DISTR) is set where"
^DD(445.3,2,1,1,"%D",3,0)="INVPT is the internal secondary inventory point number and DISTR is"
^DD(445.3,2,1,1,"%D",4,0)="the internal distribution order number."
^DD(445.3,2,3)="The Secondary Inventory/Distribution point to which the Order is made."
^DD(445.3,2,12)="Must be a Secondary Inventory Point."
^DD(445.3,2,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""S"""",$D(^PRCP(445,+$P(^PRCP(445.3,DA,0),U,2),2,+Y,0))"""
^DD(445.3,2,21,0)="^^3^3^2920420^"
^DD(445.3,2,21,1,0)="This is a pointer to the Generic Inventory File, #445."
^DD(445.3,2,21,2,0)="This field contains the Secondary Inventory/Distribution"
^DD(445.3,2,21,3,0)="point to which the Order/Adjustment is made."
^DD(445.3,2,"DT")="2870708"
^DD(445.3,3,0)="DATE^RD^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445.3,3,3)="Date Order was entered"
^DD(445.3,3,21,0)="1^^1^1^2920420^"
^DD(445.3,3,21,1,0)="This is the date the Order was entered."
^DD(445.3,3,"DT")="2870521"
^DD(445.3,3.5,0)="TYPE^S^R:REGULAR ORDER;C:CALL-IN ORDER;E:EMERGENCY;^0;8^Q"
^DD(445.3,3.5,21,0)="^^2^2^2920420^"
^DD(445.3,3.5,21,1,0)="This is a code indicating the type of order (i.e.,"
^DD(445.3,3.5,21,2,0)="r=regular order; c=call-in order; e=emergency)."
^DD(445.3,3.5,"DT")="2921022"
^DD(445.3,4,0)="ENTERED BY^P200'^VA(200,^0;5^Q"
^DD(445.3,4,3)="Name of person who entered the Order"
^DD(445.3,4,21,0)="^^2^2^2920420^"
^DD(445.3,4,21,1,0)="This is the name of the person who entered the"
^DD(445.3,4,21,2,0)="Order."
^DD(445.3,4,"DT")="2920601"
^DD(445.3,5,0)="ORDER STATUS^S^R:RELEASED TO FILL;P:POSTED;B:BACKORDERED;F:BACK-ORDER FILLED;^0;6^Q"
^DD(445.3,5,3)="BLANK-Order entered by Secondary, not released to Primary. 'R'-Order ready to be filled. 'P'-Order  posted. 'B'-Order has been posted and is back-ordered."
^DD(445.3,5,21,0)="^^4^4^2990324^^"
^DD(445.3,5,21,1,0)="This is a code indicating the status of the order (i.e.,"
^DD(445.3,5,21,2,0)="R=order ready to be filled; P=order has been posted;"
^DD(445.3,5,21,3,0)="B=order has been posted and is back-ordered; Blank=order"
^DD(445.3,5,21,4,0)="entered by Secondary, not released to Primary)."
^DD(445.3,5,23,0)="0^^1^1^2990324^^"
^DD(445.3,5,23,1,0)=""
^DD(445.3,5,"DT")="2990308"
^DD(445.3,6,0)="PICKING TICKET PRINTED^S^Y:YES;^0;7^Q"
^DD(445.3,6,3)="Set to 'Y' automatically when picking ticket is printed, then causes 'REPRINT' to show on any subsequent printing of the same picking ticket.  Helps prevent filling orders twice."
^DD(445.3,6,21,0)="^^4^4^2920420^"
^DD(445.3,6,21,1,0)="This code (i.e.,Y=Yes) is intended to help prevent filling"
^DD(445.3,6,21,2,0)="orders twice.  Entering Y, when picking ticket is printed,"
^DD(445.3,6,21,3,0)="causes the flag REPRINT to be displayed on any subsequent"
^DD(445.3,6,21,4,0)="printings of the same picking ticket."
^DD(445.3,7,0)="ITEM NO.^445.37PIA^^1;0"
^DD(445.3,7,21,0)="^^1^1^2920421^"
^DD(445.3,7,21,1,0)="This is a pointer to the multiple, #445.37."
^DD(445.3,8,0)="REMARKS^F^^8;1^K:$L(X)>200!($L(X)<1) X"
^DD(445.3,8,3)="Answer must be 1-200 characters in length."
^DD(445.3,8,21,0)="^^1^1^2940727^"
^DD(445.3,8,21,1,0)="This field is used to store any remarks for the distribution order."
^DD(445.3,8,"DT")="2940727"
^DD(445.3,9,0)="DATE POSTED^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(445.3,9,21,0)="^^4^4^2990308^"
^DD(445.3,9,21,1,0)="This is the date the distribution order was posted. It is automatically"
^DD(445.3,9,21,2,0)="populated and is used to determine if the order is ready to be purged."
^DD(445.3,9,21,3,0)="Purging occurs when an order was posted more than 2 days ago.  See"
^DD(445.3,9,21,4,0)="POST^PRCPOPP for purging logic. (PRC*5*204)"
^DD(445.3,9,"DT")="2990308"
^DD(445.3,10,0)="TRANSMISSION DATE/TIME^D^^0;10^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(445.3,10,21,0)="^^4^4^3000821^"
^DD(445.3,10,21,1,0)="The Release Date/Time field will be used as a flag to indicate an order"
^DD(445.3,10,21,2,0)="was transmitted to a supply station.  The value stored in this field will"
^DD(445.3,10,21,3,0)="be the actual date and time that the order was transmitted to the supply"
^DD(445.3,10,21,4,0)="station."
^DD(445.3,10,"DT")="3000821"
^DD(445.3,129,0)="PATIENT NAME^P2'^DPT(^2;1^Q"
^DD(445.3,129,1,0)="^.1"
^DD(445.3,129,1,1,0)="445.3^ASR1^MUMPS"
^DD(445.3,129,1,1,1)="D XREFASR^PRCPUXRE(DA,X,129,""SET"")"
^DD(445.3,129,1,1,2)="D XREFASR^PRCPUXRE(DA,X,129,""KILL"")"
^DD(445.3,129,1,1,"%D",0)="^^7^7^2940721^^"
^DD(445.3,129,1,1,"%D",1,0)="This cross reference sets ^PRCP(445.3,""ASR"",patda,surgda,da) where"
^DD(445.3,129,1,1,"%D",2,0)="patda is the patient internal entry number;"
^DD(445.3,129,1,1,"%D",3,0)="surgda is the scheduled operation (file 130) internal entry number;"
^DD(445.3,129,1,1,"%D",4,0)="da is the internal entry number for file 445.3."
^DD(445.3,129,1,1,"%D",5,0)=" "
^DD(445.3,129,1,1,"%D",6,0)="This cross reference is used to lookup patients and scheduled operations"
^DD(445.3,129,1,1,"%D",7,0)="for the ordering of surgical supplies (case carts and instrument kits)."
^DD(445.3,129,1,1,"DT")="2930914"
^DD(445.3,129,21,0)="^^2^2^2940616^"
^DD(445.3,129,21,1,0)="This field is used to store the patient name for distribution orders"
^DD(445.3,129,21,2,0)="placed by Surgery for scheduled operations/procedures."
^DD(445.3,129,"DT")="2930914"
^DD(445.3,130,0)="SCHEDULED OPERATION^P130'^SRF(^2;2^Q"
^DD(445.3,130,1,0)="^.1"
^DD(445.3,130,1,1,0)="445.3^ASR2^MUMPS"
^DD(445.3,130,1,1,1)="D XREFASR^PRCPUXRE(DA,X,130,""SET"")"
^DD(445.3,130,1,1,2)="D XREFASR^PRCPUXRE(DA,X,130,""KILL"")"
^DD(445.3,130,1,1,"%D",0)="^^8^8^2940721^^"
^DD(445.3,130,1,1,"%D",1,0)="This cross reference sets ^PRCP(445.3,""ASR"",patda,surgda,da) where"
^DD(445.3,130,1,1,"%D",2,0)="patda is the patient internal entry number;"
^DD(445.3,130,1,1,"%D",3,0)="surgda is the scheduled operation (file 130) internal entry number;"
^DD(445.3,130,1,1,"%D",4,0)="da is the internal entry number for file 445.3."
^DD(445.3,130,1,1,"%D",5,0)=" "
^DD(445.3,130,1,1,"%D",6,0)="This cross reference is used to lookup patients and scheduled operations"
^DD(445.3,130,1,1,"%D",7,0)="for the ordering of surgical supplies (case carts and instrument kits)."
^DD(445.3,130,1,1,"DT")="2930914"
^DD(445.3,130,21,0)="^^2^2^2940616^"
^DD(445.3,130,21,1,0)="This field is used to store the scheduled surgical operations for"
^DD(445.3,130,21,2,0)="distribution orders."
^DD(445.3,130,"DT")="2930914"
^DD(445.3,131,0)="INVENTORY PATIENT LINK^P446.1'^PRCP(446.1,^2;3^Q"
^DD(445.3,131,21,0)="^^2^2^2940309^"
^DD(445.3,131,21,1,0)="This field is used internally by the program to determine which entry"
^DD(445.3,131,21,2,0)="in file 446.1 (INVENTORY PATIENT ITEMS) is used to track patient costs."
^DD(445.3,131,"DT")="2940309"
^DD(445.3,"B","DATE",3)=""
^DD(445.3,"B","DATE POSTED",9)=""
^DD(445.3,"B","ENTERED BY",4)=""
^DD(445.3,"B","INVENTORY PATIENT LINK",131)=""
^DD(445.3,"B","ITEM NO.",7)=""
^DD(445.3,"B","NUMBER",.01)=""
^DD(445.3,"B","ORDER STATUS",5)=""
^DD(445.3,"B","PATIENT NAME",129)=""
^DD(445.3,"B","PICKING TICKET PRINTED",6)=""
^DD(445.3,"B","PRIMARY INVENTORY POINT",1)=""
^DD(445.3,"B","REMARKS",8)=""
^DD(445.3,"B","SCHEDULED OPERATION",130)=""
^DD(445.3,"B","SECONDARY INVENTORY POINT",2)=""
^DD(445.3,"B","TRANSMISSION DATE/TIME",10)=""
^DD(445.3,"B","TYPE",3.5)=""
^DD(445.3,"GL",0,1,.01)=""
^DD(445.3,"GL",0,2,1)=""
^DD(445.3,"GL",0,3,2)=""
^DD(445.3,"GL",0,4,3)=""
^DD(445.3,"GL",0,5,4)=""
^DD(445.3,"GL",0,6,5)=""
^DD(445.3,"GL",0,7,6)=""
^DD(445.3,"GL",0,8,3.5)=""
^DD(445.3,"GL",0,9,9)=""
^DD(445.3,"GL",0,10,10)=""
^DD(445.3,"GL",1,0,7)=""
^DD(445.3,"GL",2,1,129)=""
^DD(445.3,"GL",2,2,130)=""
^DD(445.3,"GL",2,3,131)=""
^DD(445.3,"GL",8,1,8)=""
^DD(445.3,"IX",.01)=""
^DD(445.3,"IX",1)=""
^DD(445.3,"IX",2)=""
^DD(445.3,"IX",129)=""
^DD(445.3,"IX",130)=""
^DD(445.3,"RQ",.01)=""
^DD(445.3,"RQ",1)=""
^DD(445.3,"RQ",2)=""
^DD(445.3,"RQ",3)=""
^DD(445.3,"SB",445.37,7)=""
^DD(445.37,0)="ITEM NO. SUB-FIELD^^6^7"
^DD(445.37,0,"ID","WRITE")="W ?10,"" "",$$DESCR^PRCPUX1(+$P(^PRCP(445.3,DA(1),0),U,2),+Y)"
^DD(445.37,0,"IX","B",445.37,.01)=""
^DD(445.37,0,"NM","ITEM NO.")=""
^DD(445.37,0,"UP")="445.3"
^DD(445.37,.01,0)="ITEM NO.^MP441'X^PRC(441,^0;1^S DINUM=X I '$D(^PRCP(445,+$P(^PRCP(445.3,DA(1),0),U,2),1,X,0)) K DINUM,X"
^DD(445.37,.01,1,0)="^.1"
^DD(445.37,.01,1,1,0)="445.37^B"
^DD(445.37,.01,1,1,1)="S ^PRCP(445.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(445.37,.01,1,1,2)="K ^PRCP(445.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(445.37,.01,3)="Item must be on the Primary's Inventory File."
^DD(445.37,.01,4)=""
^DD(445.37,.01,21,0)="^^1^1^2920212^"
^DD(445.37,.01,21,1,0)="This field stores the item master number of the item ordered."
^DD(445.37,.01,"DT")="2890913"
^DD(445.37,1,0)="QTY.(PRIMARY UNIT OF ISSUE)^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.37,1,3)="TYPE A WHOLE NUMBER BETWEEN  -999999 AND 999999. Quantity ordered/adjusted.  plus (+) indicates distribution to Secondary, minus (-) indicates return from Secondary. Must be in Primary Inventory unit of issue"
^DD(445.37,1,21,0)="^^2^2^2920212^"
^DD(445.37,1,21,1,0)="This field stores the quantity in the primary inventory point unit per"
^DD(445.37,1,21,2,0)="issue of the item ordered."
^DD(445.37,1,"DT")="2921021"
^DD(445.37,2,0)="UNIT PRICE (PRI.UNIT OF ISSUE)^NJ12,3^^0;3^K:+X'=X!(X>99999999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(445.37,2,3)="Selling price from Primary to Secondary Inventory Point.  Numeric with up to 3 decimal places.  This must be the price for a single Unit of Issue from the Primary."
^DD(445.37,2,21,0)="^^2^2^2920212^"
^DD(445.37,2,21,1,0)="This field stores the unit price in the primary unit per issue of"
^DD(445.37,2,21,2,0)="the item ordered."
^DD(445.37,3,0)="QTY.BACK-ORDERED(PRI.UNIT)^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(445.37,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999. (Used for Distribution Orders only, not Adjustments.  Qty.Back-ordered, in Primary Inventory point Unit of Issue.)"
^DD(445.37,3,21,0)="^^2^2^2920212^"
^DD(445.37,3,21,1,0)="This field stores the quantity in the primary unit per issue of the"
^DD(445.37,3,21,2,0)="item which has been back ordered."
^DD(445.37,4,0)="ADJUST PRIMARY INVENTORY?^S^Y:YES;^0;5^Q"
^DD(445.37,4,3)="Always set to 'Y'(yes) for Distribution Orders.  For adjustments, indicates whether the inventory level in the Primary Inventory point is to be affected by the adjustment."
^DD(445.37,4,21,0)="^^1^1^2920212^"
^DD(445.37,4,21,1,0)="This field stores whether the primary inventory has been adjusted."
^DD(445.37,5,0)="ADJUST SECONDARY INVENTORY?^S^Y:YES;^0;6^Q"
^DD(445.37,5,3)="Always set to 'Y'(yes) for distribution orders.  For adjustments, indicates whether the inventory level in the Secondary Inventory point is to be affected by the adjustment."
^DD(445.37,5,21,0)="^^1^1^2920212^"
^DD(445.37,5,21,1,0)="This field stores whether the secondary inventory has been adjusted."
^DD(445.37,6,0)="QTY POSTED^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(445.37,6,3)="Type a Number between -999999 and 999999, 0 Decimal Digits"
^DD(445.37,6,21,0)="^^4^4^3001005^"
^DD(445.37,6,21,1,0)="This field indicates the actual quantity posted which may or may not be"
^DD(445.37,6,21,2,0)="equal to the quantity ordered. If the order is filled at a supply station,"
^DD(445.37,6,21,3,0)="the amount here will be populated by the refill transaction received from"
^DD(445.37,6,21,4,0)="the supply station."
^DD(445.37,6,"DT")="3000915"
^DD(445.37,"B","ADJUST PRIMARY INVENTORY?",4)=""
^DD(445.37,"B","ADJUST SECONDARY INVENTORY?",5)=""
^DD(445.37,"B","ITEM NO.",.01)=""
^DD(445.37,"B","QTY POSTED",6)=""
^DD(445.37,"B","QTY.(PRIMARY UNIT OF ISSUE)",1)=""
^DD(445.37,"B","QTY.BACK-ORDERED(PRI.UNIT)",3)=""
^DD(445.37,"B","UNIT PRICE (PRI.UNIT OF ISSUE)",2)=""
^DD(445.37,"GL",0,1,.01)=""
^DD(445.37,"GL",0,2,1)=""
^DD(445.37,"GL",0,3,2)=""
^DD(445.37,"GL",0,4,3)=""
^DD(445.37,"GL",0,5,4)=""
^DD(445.37,"GL",0,6,5)=""
^DD(445.37,"GL",0,7,6)=""
^DD(445.37,"IX",.01)=""
^DD(445.4,0)="FIELD^^2^3"
^DD(445.4,0,"DDA")="N"
^DD(445.4,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(445.4,0,"IX","AC",445.4,.01)=""
^DD(445.4,0,"IX","B",445.4,.01)=""
^DD(445.4,0,"NM","STORAGE LOCATION")=""
^DD(445.4,0,"PT",445.01,5)=""
^DD(445.4,0,"PT",445.02,.01)=""
^DD(445.4,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445.4,0,"VR")="5.1"
^DD(445.4,0,"VRPK")="IFCAP"
^DD(445.4,.01,0)="STORAGE LOCATION^RFX^^0;1^K:X[""""""""!($A(X)=45)!('$G(PRCPPRIV)) X I $D(X) K:$L(X)>13!($L(X)<1)!'(X'?1P.E) X"
^DD(445.4,.01,1,0)="^.1"
^DD(445.4,.01,1,1,0)="445.4^B"
^DD(445.4,.01,1,1,1)="S ^PRCP(445.4,""B"",$E(X,1,30),DA)="""""
^DD(445.4,.01,1,1,2)="K ^PRCP(445.4,""B"",$E(X,1,30),DA)"
^DD(445.4,.01,1,2,0)="445.4^AC^MUMPS"
^DD(445.4,.01,1,2,1)="I $D(PRCPINPT),'$P(^PRCP(445.4,DA,0),U,2) S $P(^(0),U,2)=PRCPINPT"
^DD(445.4,.01,1,2,2)="Q"
^DD(445.4,.01,1,2,"%D",0)="^^4^4^2930503^^"
^DD(445.4,.01,1,2,"%D",1,0)="This cross reference sets the INVENTORY/DISTRIBUTION POINT field (#1) to"
^DD(445.4,.01,1,2,"%D",2,0)="the inventory point creating the storage location.  The variable PRCPINPT"
^DD(445.4,.01,1,2,"%D",3,0)="must be set to the internal inventory point number prior to adding a"
^DD(445.4,.01,1,2,"%D",4,0)="new entry."
^DD(445.4,.01,3)="Enter the section, row, bin, shelf, etc. by which you store items, from largest to smallest division.  ANSWER MUST BE 1-13 CHARACTERS IN LENGTH"
^DD(445.4,.01,21,0)="^^9^9^2871124^^"
^DD(445.4,.01,21,1,0)="This file is used by the Generic Inventory Package.  Storage locations"
^DD(445.4,.01,21,2,0)="can be defined by each Inventory Point for their own use.  An example"
^DD(445.4,.01,21,3,0)="of a storage location could be a Room no., Bin location, Shelf, etc."
^DD(445.4,.01,21,4,0)="NOTE: Several reports (picking document, issue books, etc.) use the"
^DD(445.4,.01,21,5,0)="storage location as a sort field.  In order to sort correctly, make"
^DD(445.4,.01,21,6,0)="sure that numeric fields are zero filled to the number of characters"
^DD(445.4,.01,21,7,0)="in the largest value for the field.  Ex. for a storage location with"
^DD(445.4,.01,21,8,0)="section 1 to 50, bins 1 to 100, shelves 1 to 6, a storage location"
^DD(445.4,.01,21,9,0)="of section 5, bin 2, shelf 3 would be 05-002-3."
^DD(445.4,.01,"DT")="2920206"
^DD(445.4,1,0)="INVENTORY/DISTRIBUTION POINT^P445'^PRCP(445,^0;2^Q"
^DD(445.4,1,3)="Enter the name of the Inventory point that entered this storage location.  The field is used to 'screen' so that each inventory point can use their own discreet set of storage locations."
^DD(445.4,1,21,0)="4^^5^5^2920422^^"
^DD(445.4,1,21,1,0)="This is a pointer to the Generic Inventory File, #445."
^DD(445.4,1,21,2,0)="This field contains the name of the Inventory point that"
^DD(445.4,1,21,3,0)="entered the storage location.  It also is used for screening"
^DD(445.4,1,21,4,0)="purposes (i.e., each inventory point can use their own discrete"
^DD(445.4,1,21,5,0)="set of storage locations)."
^DD(445.4,2,0)="EXPANDED DESCRIPTION^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(445.4,2,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH.  This is used to further describe a storage location code."
^DD(445.4,2,21,0)="^^1^1^2920423^^"
^DD(445.4,2,21,1,0)="This is a description of the storage location code."
^DD(445.4,"B","EXPANDED DESCRIPTION",2)=""
^DD(445.4,"B","INVENTORY/DISTRIBUTION POINT",1)=""
^DD(445.4,"B","STORAGE LOCATION",.01)=""
^DD(445.4,"GL",0,1,.01)=""
^DD(445.4,"GL",0,2,1)=""
^DD(445.4,"GL",0,3,2)=""
^DD(445.4,"IX",.01)=""
^DD(445.4,"RQ",.01)=""
^DD(445.5,0)="FIELD^^2^3"
^DD(445.5,0,"DDA")="N"
^DD(445.5,0,"DT")="3000609"
^DD(445.5,0,"IX","B",445.5,.01)=""
^DD(445.5,0,"NM","AUTOMATED SUPPLY STATIONS")=""
^DD(445.5,0,"PT",445,22)=""
^DD(445.5,0,"VR")="5.1"
^DD(445.5,0,"VRPK")="PRC"
^DD(445.5,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(445.5,.01,.1)="SYSTEM NAME"
^DD(445.5,.01,1,0)="^.1"
^DD(445.5,.01,1,1,0)="445.5^B"
^DD(445.5,.01,1,1,1)="S ^PRCP(445.5,""B"",$E(X,1,30),DA)="""""
^DD(445.5,.01,1,1,2)="K ^PRCP(445.5,""B"",$E(X,1,30),DA)"
^DD(445.5,.01,3)="Answer must be 3-50 characters in length."
^DD(445.5,.01,21,0)="^^2^2^3000417^"
^DD(445.5,.01,21,1,0)="This field uniquely identifies a system or group of linked machines"
^DD(445.5,.01,21,2,0)="supported by a single vendor and sharing the same system requirements."
^DD(445.5,.01,"DT")="3000417"
^DD(445.5,1,0)="INVENTORY UPDATES^RS^O:ONE NAME PER ITEM;S:STATION SPECIFIC ALLOWED;^0;2^Q"
^DD(445.5,1,3)="indicate whether this system supports site specific data such as different names for each supply station and normal levels or if there is only one item name allowed per system."
^DD(445.5,1,21,0)="^.001^2^2^3000417^^^^"
^DD(445.5,1,21,1,0)="This field will be used to assist GIP in determining what information"
^DD(445.5,1,21,2,0)="related to an item should be passed to the supply station and when."
^DD(445.5,1,"DT")="3000417"
^DD(445.5,2,0)="Link Name^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(445.5,2,3)="Answer must be 2-30 characters in length."
^DD(445.5,2,21,0)="^^2^2^3000821^"
^DD(445.5,2,21,1,0)="This field will store the VA HL7 logical link for this supply station"
^DD(445.5,2,21,2,0)="vendor."
^DD(445.5,2,"DT")="3000821"
^DD(445.5,"B","INVENTORY UPDATES",1)=""
^DD(445.5,"B","Link Name",2)=""
^DD(445.5,"B","NAME",.01)=""
^DD(445.5,"B","SYSTEM NAME",.01)="1"
^DD(445.5,"GL",0,1,.01)=""
^DD(445.5,"GL",0,2,1)=""
^DD(445.5,"GL",0,3,2)=""
^DD(445.5,"IX",.01)=""
^DD(445.5,"RQ",.01)=""
^DD(445.5,"RQ",1)=""
^DD(445.6,0)="FIELD^^2^3"
^DD(445.6,0,"DDA")="N"
^DD(445.6,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(445.6,0,"IX","AC",445.6,.01)=""
^DD(445.6,0,"IX","B",445.6,.01)=""
^DD(445.6,0,"NM","GROUP CATEGORY")=""
^DD(445.6,0,"PT",445.01,.5)=""
^DD(445.6,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445.6,0,"VR")="5.1"
^DD(445.6,0,"VRPK")="IFCAP"
^DD(445.6,.01,0)="GROUP CATEGORY CODE^RFX^^0;1^K:X[""""""""!($A(X)=45)!('$G(PRCPPRIV)) X I $D(X) K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(445.6,.01,1,0)="^.1"
^DD(445.6,.01,1,1,0)="445.6^B"
^DD(445.6,.01,1,1,1)="S ^PRCP(445.6,""B"",$E(X,1,30),DA)="""""
^DD(445.6,.01,1,1,2)="K ^PRCP(445.6,""B"",$E(X,1,30),DA)"
^DD(445.6,.01,1,2,0)="445.6^AC^MUMPS"
^DD(445.6,.01,1,2,1)="I $D(PRCPINPT),'$P(^PRCP(445.6,DA,0),U,2) S $P(^(0),U,2)=PRCPINPT"
^DD(445.6,.01,1,2,2)="Q"
^DD(445.6,.01,1,2,"%D",0)="^^4^4^2930503^"
^DD(445.6,.01,1,2,"%D",1,0)="This cross reference sets the INVENTORY/DISTRIBUTION POINT field (#1) to"
^DD(445.6,.01,1,2,"%D",2,0)="the inventory point creating the group category.  The variable PRCPINPT"
^DD(445.6,.01,1,2,"%D",3,0)="must be set to the internal inventory point number prior to adding a "
^DD(445.6,.01,1,2,"%D",4,0)="new entry."
^DD(445.6,.01,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH.  The group category is defined by each Inventory Point to group like items for printing the catalogs and for other reporting."
^DD(445.6,.01,21,0)="^^3^3^2920423^^"
^DD(445.6,.01,21,1,0)="This is a code indicating the group category defined by each"
^DD(445.6,.01,21,2,0)="Inventory Point (i.e., grouping like items for printing of"
^DD(445.6,.01,21,3,0)="catalogs and other reports)."
^DD(445.6,.01,"DT")="2920206"
^DD(445.6,1,0)="INVENTORY/DISTRIBUTION POINT^P445'^PRCP(445,^0;2^Q"
^DD(445.6,1,3)="This field is used to 'Screen' the group categories, so that each Inventory Point can use only their own set of group category codes."
^DD(445.6,1,21,0)="^^4^4^2920423^^"
^DD(445.6,1,21,1,0)="This is a pointer to the Generic Inventory file, #445."
^DD(445.6,1,21,2,0)="This field is used to 'screen' the group categories,"
^DD(445.6,1,21,3,0)="enabling each Inventory Point to use only their"
^DD(445.6,1,21,4,0)="own set of group category codes."
^DD(445.6,2,0)="DESCRIPTION^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(445.6,2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH.  This is the description of the group category to be printed on reports."
^DD(445.6,2,21,0)="^^2^2^2920423^"
^DD(445.6,2,21,1,0)="This is the description of the group category to be printed"
^DD(445.6,2,21,2,0)="on reports."
^DD(445.6,"B","DESCRIPTION",2)=""
^DD(445.6,"B","GROUP CATEGORY CODE",.01)=""
^DD(445.6,"B","INVENTORY/DISTRIBUTION POINT",1)=""
^DD(445.6,"GL",0,1,.01)=""
^DD(445.6,"GL",0,2,1)=""
^DD(445.6,"GL",0,3,2)=""
^DD(445.6,"IX",.01)=""
^DD(445.6,"RQ",.01)=""
^DD(445.7,0)="FIELD^^81^10"
^DD(445.7,0,"DDA")="N"
^DD(445.7,0,"DT")="2940722"
^DD(445.7,0,"IX","AI",445.71,.01)=""
^DD(445.7,0,"IX","AOP",445.781,.01)=""
^DD(445.7,0,"IX","B",445.7,.01)=""
^DD(445.7,0,"NM","CASE CARTS")=""
^DD(445.7,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445.7,0,"VR")="5.1"
^DD(445.7,0,"VRPK")="IFCAP"
^DD(445.7,.01,0)="CASE CART ITEM^RP441'X^PRC(441,^0;1^S DINUM=X,Z=$$CHECK^PRCPCUDI(445.7,.01) W:Z'="""" !?5,Z K Z"
^DD(445.7,.01,1,0)="^.1"
^DD(445.7,.01,1,1,0)="445.7^B"
^DD(445.7,.01,1,1,1)="S ^PRCP(445.7,""B"",$E(X,1,30),DA)="""""
^DD(445.7,.01,1,1,2)="K ^PRCP(445.7,""B"",$E(X,1,30),DA)"
^DD(445.7,.01,3)=""
^DD(445.7,.01,21,0)="^^2^2^2940616^^"
^DD(445.7,.01,21,1,0)="This field is used to store the item master number defined as"
^DD(445.7,.01,21,2,0)="the case cart item for this entry."
^DD(445.7,.01,"DT")="2930909"
^DD(445.7,1,0)="ITEMS^445.71P^^1;0"
^DD(445.7,1,21,0)="^^2^2^2940616^"
^DD(445.7,1,21,1,0)="This field stores the list of items which are used to assemble"
^DD(445.7,1,21,2,0)="the case cart."
^DD(445.7,2,0)="INVENTORY POINT^RP445'^PRCP(445,^0;2^Q"
^DD(445.7,2,21,0)="^^2^2^2930831^"
^DD(445.7,2,21,1,0)="This field stores the name of the inventory point responsible for"
^DD(445.7,2,21,2,0)="setting up the case cart definition."
^DD(445.7,2,23,0)="^^2^2^2930831^"
^DD(445.7,2,23,1,0)="This field is used under the enter/edit case cart option for screening"
^DD(445.7,2,23,2,0)="out inventory points."
^DD(445.7,2,"DT")="2930831"
^DD(445.7,3,0)="USER CREATING CASE CART^P200'^VA(200,^0;3^Q"
^DD(445.7,3,21,0)="^^1^1^2940616^"
^DD(445.7,3,21,1,0)="This field stores the user which created the case cart item entry."
^DD(445.7,3,"DT")="2930831"
^DD(445.7,4,0)="DATE CREATED^D^^0;4^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(445.7,4,21,0)="^^1^1^2940616^"
^DD(445.7,4,21,1,0)="This field stores the date the case cart item was created."
^DD(445.7,4,"DT")="2930831"
^DD(445.7,5,0)="USER LAST EDIT^P200'^VA(200,^0;5^Q"
^DD(445.7,5,21,0)="^^2^2^2940616^^"
^DD(445.7,5,21,1,0)="This field stores the user which last changed the case cart item"
^DD(445.7,5,21,2,0)="definition."
^DD(445.7,5,"DT")="2930831"
^DD(445.7,6,0)="DATE LAST EDIT^D^^0;6^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(445.7,6,21,0)="^^1^1^2940616^"
^DD(445.7,6,21,1,0)="This field stores the date the case cart definition was last changed."
^DD(445.7,6,"DT")="2930831"
^DD(445.7,7,0)="TOTAL ASSEMBLY CHARGE^NJ10,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(445.7,7,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(445.7,7,21,0)="^^3^3^2940722^^"
^DD(445.7,7,21,1,0)="This field is used to store the total charge for assembling the case cart."
^DD(445.7,7,21,2,0)="The total assembly charge will be costed to the receiving secondary"
^DD(445.7,7,21,3,0)="inventory location and patient during distribution order posting."
^DD(445.7,7,"DT")="2940722"
^DD(445.7,10,0)="SPECIAL INSTRUCTIONS/REMARKS^445.701^^2;0"
^DD(445.7,10,21,0)="^^2^2^2940616^"
^DD(445.7,10,21,1,0)="This field stores any special instructions or remarks relative"
^DD(445.7,10,21,2,0)="to the assembly or distribution of this case cart."
^DD(445.7,81,0)="OPERATION CODES^445.781P^^3;0"
^DD(445.7,81,21,0)="^^4^4^2940616^"
^DD(445.7,81,21,1,0)="This field is used to store the operation codes which this"
^DD(445.7,81,21,2,0)="case cart should be ordered for.  By populating this field,"
^DD(445.7,81,21,3,0)="the Operating Room Nurse can quickly place orders for scheduled"
^DD(445.7,81,21,4,0)="operations/procedures."
^DD(445.7,"B","CASE CART ITEM",.01)=""
^DD(445.7,"B","DATE CREATED",4)=""
^DD(445.7,"B","DATE LAST EDIT",6)=""
^DD(445.7,"B","INVENTORY POINT",2)=""
^DD(445.7,"B","ITEMS",1)=""
^DD(445.7,"B","OPERATION CODES",81)=""
^DD(445.7,"B","SPECIAL INSTRUCTIONS/REMARKS",10)=""
^DD(445.7,"B","TOTAL ASSEMBLY CHARGE",7)=""
^DD(445.7,"B","USER CREATING CASE CART",3)=""
^DD(445.7,"B","USER LAST EDIT",5)=""
^DD(445.7,"GL",0,1,.01)=""
^DD(445.7,"GL",0,2,2)=""
^DD(445.7,"GL",0,3,3)=""
^DD(445.7,"GL",0,4,4)=""
^DD(445.7,"GL",0,5,5)=""
^DD(445.7,"GL",0,6,6)=""
^DD(445.7,"GL",0,7,7)=""
^DD(445.7,"GL",1,0,1)=""
^DD(445.7,"GL",2,0,10)=""
^DD(445.7,"GL",3,0,81)=""
^DD(445.7,"IX",.01)=""
^DD(445.7,"RQ",.01)=""
^DD(445.7,"RQ",2)=""
^DD(445.7,"SB",445.701,10)=""
^DD(445.7,"SB",445.71,1)=""
^DD(445.7,"SB",445.781,81)=""
^DD(445.701,0)="SPECIAL INSTRUCTIONS/REMARKS SUB-FIELD^^.01^1"
^DD(445.701,0,"DT")="2930831"
^DD(445.701,0,"NM","SPECIAL INSTRUCTIONS/REMARKS")=""
^DD(445.701,0,"UP")="445.7"
^DD(445.701,.01,0)="SPECIAL INSTRUCTIONS/REMARKS^W^^0;1^Q"
^DD(445.701,.01,21,0)="^^2^2^2940616^"
^DD(445.701,.01,21,1,0)="This field stores any special instructions or remarks relative"
^DD(445.701,.01,21,2,0)="to the assembly or distribution of this case cart."
^DD(445.701,.01,"DT")="2930831"
^DD(445.701,"B","SPECIAL INSTRUCTIONS/REMARKS",.01)=""
^DD(445.701,"GL",0,1,.01)=""
^DD(445.71,0)="ITEMS SUB-FIELD^^1^2"
^DD(445.71,0,"DT")="2930825"
^DD(445.71,0,"IX","B",445.71,.01)=""
^DD(445.71,0,"NM","ITEMS")=""
^DD(445.71,0,"UP")="445.7"
^DD(445.71,.01,0)="ITEMS^MP441'X^PRC(441,^0;1^S DINUM=X,Z=$$CHECK^PRCPCUDI(445.7,1) W:Z'="""" !?5,Z K Z"
^DD(445.71,.01,1,0)="^.1"
^DD(445.71,.01,1,1,0)="445.71^B"
^DD(445.71,.01,1,1,1)="S ^PRCP(445.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(445.71,.01,1,1,2)="K ^PRCP(445.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(445.71,.01,1,2,0)="445.7^AI"
^DD(445.71,.01,1,2,1)="S ^PRCP(445.7,""AI"",$E(X,1,30),DA(1),DA)="""""
^DD(445.71,.01,1,2,2)="K ^PRCP(445.7,""AI"",$E(X,1,30),DA(1),DA)"
^DD(445.71,.01,1,2,"%D",0)="^^2^2^2940721^"
^DD(445.71,.01,1,2,"%D",1,0)="This cross reference is used to lookup the items which are stored in"
^DD(445.71,.01,1,2,"%D",2,0)="the case cart."
^DD(445.71,.01,1,2,"DT")="2930907"
^DD(445.71,.01,21,0)="^^2^2^2940616^"
^DD(445.71,.01,21,1,0)="This field stores the list of items which are used to assemble"
^DD(445.71,.01,21,2,0)="the case cart."
^DD(445.71,.01,"DT")="2930909"
^DD(445.71,1,0)="QUANTITY NEEDED^RNJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(445.71,1,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(445.71,1,21,0)="^^2^2^2940616^"
^DD(445.71,1,21,1,0)="This field stores the quantity of the item used to assemble one"
^DD(445.71,1,21,2,0)="case cart."
^DD(445.71,1,"DT")="2930825"
^DD(445.71,"B","ITEMS",.01)=""
^DD(445.71,"B","QUANTITY NEEDED",1)=""
^DD(445.71,"GL",0,1,.01)=""
^DD(445.71,"GL",0,2,1)=""
^DD(445.71,"IX",.01)=""
^DD(445.71,"RQ",1)=""
^DD(445.781,0)="OPERATION CODES SUB-FIELD^^.01^1"
^DD(445.781,0,"DT")="2930914"
^DD(445.781,0,"IX","B",445.781,.01)=""
^DD(445.781,0,"NM","OPERATION CODES")=""
^DD(445.781,0,"UP")="445.7"
^DD(445.781,.01,0)="OPERATION CODES^MP81'X^ICPT(^0;1^S DINUM=X"
^DD(445.781,.01,1,0)="^.1"
^DD(445.781,.01,1,1,0)="445.781^B"
^DD(445.781,.01,1,1,1)="S ^PRCP(445.7,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(445.781,.01,1,1,2)="K ^PRCP(445.7,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(445.781,.01,1,2,0)="445.7^AOP"
^DD(445.781,.01,1,2,1)="S ^PRCP(445.7,""AOP"",$E(X,1,30),DA(1),DA)="""""
^DD(445.781,.01,1,2,2)="K ^PRCP(445.7,""AOP"",$E(X,1,30),DA(1),DA)"
^DD(445.781,.01,1,2,"%D",0)="^^1^1^2940721^^"
^DD(445.781,.01,1,2,"%D",1,0)="This cross reference is used to look up operations for case carts."
^DD(445.781,.01,1,2,"DT")="2930914"
^DD(445.781,.01,21,0)="^^4^4^2940616^"
^DD(445.781,.01,21,1,0)="This field is used to store the operation codes which this"
^DD(445.781,.01,21,2,0)="case cart should be ordered for.  By populating this field,"
^DD(445.781,.01,21,3,0)="the Operating Room Nurse can quickly place orders for scheduled"
^DD(445.781,.01,21,4,0)="operations/procedures."
^DD(445.781,.01,"DT")="2930914"
^DD(445.781,"B","OPERATION CODES",.01)=""
^DD(445.781,"GL",0,1,.01)=""
^DD(445.781,"IX",.01)=""
^DD(445.8,0)="FIELD^^12^11"
^DD(445.8,0,"DDA")="N"
^DD(445.8,0,"DT")="2940727"
^DD(445.8,0,"IX","AI",445.81,.01)=""
^DD(445.8,0,"IX","B",445.8,.01)=""
^DD(445.8,0,"NM","INSTRUMENT KITS")=""
^DD(445.8,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(445.8,0,"VR")="5.1"
^DD(445.8,0,"VRPK")="IFCAP"
^DD(445.8,.01,0)="INSTRUMENT KIT ITEM^RP441'X^PRC(441,^0;1^S DINUM=X,Z=$$CHECK^PRCPCUDI(445.8,.01) W:Z'="""" !?5,Z K Z"
^DD(445.8,.01,1,0)="^.1"
^DD(445.8,.01,1,1,0)="445.8^B"
^DD(445.8,.01,1,1,1)="S ^PRCP(445.8,""B"",$E(X,1,30),DA)="""""
^DD(445.8,.01,1,1,2)="K ^PRCP(445.8,""B"",$E(X,1,30),DA)"
^DD(445.8,.01,3)=""
^DD(445.8,.01,21,0)="^^2^2^2940616^"
^DD(445.8,.01,21,1,0)="This field is used to store the item master number defined as"
^DD(445.8,.01,21,2,0)="the instrument kit item."
^DD(445.8,.01,"DT")="2930909"
^DD(445.8,1,0)="ITEMS^445.81P^^1;0"
^DD(445.8,1,21,0)="^^2^2^2940616^"
^DD(445.8,1,21,1,0)="This field stores the list of items which are used to assemble"
^DD(445.8,1,21,2,0)="the instrument kit."
^DD(445.8,2,0)="INVENTORY POINT^RP445'^PRCP(445,^0;2^Q"
^DD(445.8,2,21,0)="^^2^2^2930907^^"
^DD(445.8,2,21,1,0)="This field stores the name of the inventory point responsible for"
^DD(445.8,2,21,2,0)="setting up the instrument kit definition."
^DD(445.8,2,23,0)="^^2^2^2930831^"
^DD(445.8,2,23,1,0)="This field is used under the enter/edit instrument kit option for screening"
^DD(445.8,2,23,2,0)="out inventory points."
^DD(445.8,2,"DT")="2930831"
^DD(445.8,3,0)="USER CREATING INSTRUMENT KIT^P200'^VA(200,^0;3^Q"
^DD(445.8,3,21,0)="^^1^1^2940616^"
^DD(445.8,3,21,1,0)="This field stores the user which created the instrument kit item entry."
^DD(445.8,3,"DT")="2930907"
^DD(445.8,4,0)="DATE CREATED^D^^0;4^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(445.8,4,21,0)="^^1^1^2940616^"
^DD(445.8,4,21,1,0)="This field stores the date the instrument kit item was created."
^DD(445.8,4,"DT")="2930831"
^DD(445.8,5,0)="USER LAST EDIT^P200'^VA(200,^0;5^Q"
^DD(445.8,5,21,0)="^^2^2^2940616^"
^DD(445.8,5,21,1,0)="This field stores the user which last changed the instrument kit item"
^DD(445.8,5,21,2,0)="definition."
^DD(445.8,5,"DT")="2930831"
^DD(445.8,6,0)="DATE LAST EDIT^D^^0;6^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(445.8,6,21,0)="^^1^1^2940616^"
^DD(445.8,6,21,1,0)="This field stores the date the instrument kit definition was last changed."
^DD(445.8,6,"DT")="2930831"
^DD(445.8,7,0)="TOTAL ASSEMBLY CHARGE^NJ10,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(445.8,7,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(445.8,7,21,0)="^^4^4^2940722^^"
^DD(445.8,7,21,1,0)="This field is used to store the total charge for assembling the"
^DD(445.8,7,21,2,0)="instrument kit.  The total assembly charge will be costed to the"
^DD(445.8,7,21,3,0)="receiving secondary inventory location and patient during"
^DD(445.8,7,21,4,0)="distribution order posting. "
^DD(445.8,7,"DT")="2940722"
^DD(445.8,10,0)="SPECIAL INSTRUCTIONS/REMARKS^445.801^^2;0"
^DD(445.8,10,21,0)="^^2^2^2940616^"
^DD(445.8,10,21,1,0)="This field stores any special instructions or remarks relative"
^DD(445.8,10,21,2,0)="to the assembly or distribution of this instrument kit."
^DD(445.8,11,0)="METHOD OF STERILIZATION^S^S:STEAM;G:GAS;CG:COLD GAS;PA:PERACETIC ACID;^0;7^Q"
^DD(445.8,11,21,0)="^^2^2^2940616^^"
^DD(445.8,11,21,1,0)="This field is used to indicate the method of sterilization for the"
^DD(445.8,11,21,2,0)="instrument kit."
^DD(445.8,11,"DT")="2930908"
^DD(445.8,12,0)="METHOD OF WRAPPING/PACKAGING^S^PP:PEEL DOWN POUCH;C:CONTAINER;M:MUSLIN/CLOTH;NW:NON-WOVEN WRAP;^0;8^Q"
^DD(445.8,12,21,0)="^^2^2^2940616^"
^DD(445.8,12,21,1,0)="This field is used to indicate the method of wrapping/packaging for"
^DD(445.8,12,21,2,0)="the instrument kit."
^DD(445.8,12,"DT")="2930908"
^DD(445.8,"B","DATE CREATED",4)=""
^DD(445.8,"B","DATE LAST EDIT",6)=""
^DD(445.8,"B","INSTRUMENT KIT ITEM",.01)=""
^DD(445.8,"B","INVENTORY POINT",2)=""
^DD(445.8,"B","ITEMS",1)=""
^DD(445.8,"B","METHOD OF STERILIZATION",11)=""
^DD(445.8,"B","METHOD OF WRAPPING/PACKAGING",12)=""
^DD(445.8,"B","SPECIAL INSTRUCTIONS/REMARKS",10)=""
^DD(445.8,"B","TOTAL ASSEMBLY CHARGE",7)=""
^DD(445.8,"B","USER CREATING INSTRUMENT KIT",3)=""
^DD(445.8,"B","USER LAST EDIT",5)=""
^DD(445.8,"GL",0,1,.01)=""
^DD(445.8,"GL",0,2,2)=""
^DD(445.8,"GL",0,3,3)=""
^DD(445.8,"GL",0,4,4)=""
^DD(445.8,"GL",0,5,5)=""
^DD(445.8,"GL",0,6,6)=""
^DD(445.8,"GL",0,7,11)=""
^DD(445.8,"GL",0,8,12)=""
^DD(445.8,"GL",0,9,7)=""
^DD(445.8,"GL",1,0,1)=""
^DD(445.8,"GL",2,0,10)=""
^DD(445.8,"IX",.01)=""
^DD(445.8,"RQ",.01)=""
^DD(445.8,"RQ",2)=""
^DD(445.8,"SB",445.801,10)=""
^DD(445.8,"SB",445.81,1)=""
^DD(445.801,0)="SPECIAL INSTRUCTIONS/REMARKS SUB-FIELD^^.01^1"
^DD(445.801,0,"DT")="2930831"
^DD(445.801,0,"NM","SPECIAL INSTRUCTIONS/REMARKS")=""
^DD(445.801,0,"UP")="445.8"
^DD(445.801,.01,0)="SPECIAL INSTRUCTIONS/REMARKS^W^^0;1^Q"
^DD(445.801,.01,21,0)="^^2^2^2940616^"
^DD(445.801,.01,21,1,0)="This field stores any special instructions or remarks relative"
^DD(445.801,.01,21,2,0)="to the assembly or distribution of this instrument kit."
^DD(445.801,.01,"DT")="2930831"
^DD(445.801,"B","SPECIAL INSTRUCTIONS/REMARKS",.01)=""
^DD(445.801,"GL",0,1,.01)=""
^DD(445.81,0)="ITEMS SUB-FIELD^^2^3"
^DD(445.81,0,"DT")="2940727"
^DD(445.81,0,"IX","B",445.81,.01)=""
^DD(445.81,0,"NM","ITEMS")=""
^DD(445.81,0,"UP")="445.8"
^DD(445.81,.01,0)="ITEMS^MP441'X^PRC(441,^0;1^S DINUM=X,Z=$$CHECK^PRCPCUDI(445.8,1) W:Z'="""" !?5,Z K Z"
^DD(445.81,.01,1,0)="^.1"
^DD(445.81,.01,1,1,0)="445.81^B"
^DD(445.81,.01,1,1,1)="S ^PRCP(445.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(445.81,.01,1,1,2)="K ^PRCP(445.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(445.81,.01,1,2,0)="445.8^AI"
^DD(445.81,.01,1,2,1)="S ^PRCP(445.8,""AI"",$E(X,1,30),DA(1),DA)="""""
^DD(445.81,.01,1,2,2)="K ^PRCP(445.8,""AI"",$E(X,1,30),DA(1),DA)"
^DD(445.81,.01,1,2,"%D",0)="^^2^2^2940721^"
^DD(445.81,.01,1,2,"%D",1,0)="This cross reference is used to lookup the items which are stored"
^DD(445.81,.01,1,2,"%D",2,0)="in the instrument kit."
^DD(445.81,.01,1,2,"DT")="2930826"
^DD(445.81,.01,21,0)="^^2^2^2940616^"
^DD(445.81,.01,21,1,0)="This field stores the list of items which are used to assemble"
^DD(445.81,.01,21,2,0)="the instrument kit."
^DD(445.81,.01,"DT")="2930909"
^DD(445.81,1,0)="QUANTITY NEEDED^RNJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(445.81,1,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(445.81,1,21,0)="^^2^2^2940616^"
^DD(445.81,1,21,1,0)="This field stores the quantity of the item used to assemble one"
^DD(445.81,1,21,2,0)="instrument kit."
^DD(445.81,1,"DT")="2930825"
^DD(445.81,2,0)="PRINT SEQUENCE^NJ5,2^^0;3^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(445.81,2,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(445.81,2,21,0)="^^2^2^2940727^^"
^DD(445.81,2,21,1,0)="This field stores the print sequence number from 0 to 99.99 which is used to"
^DD(445.81,2,21,2,0)="sort the items contained in an instrument kit."
^DD(445.81,2,"DT")="2940727"
^DD(445.81,"B","ITEMS",.01)=""
^DD(445.81,"B","PRINT SEQUENCE",2)=""
^DD(445.81,"B","QUANTITY NEEDED",1)=""
^DD(445.81,"GL",0,1,.01)=""
^DD(445.81,"GL",0,2,1)=""
^DD(445.81,"GL",0,3,2)=""
^DD(445.81,"IX",.01)=""
^DD(445.81,"RQ",1)=""
^DD(446,0)="FIELD^^6^5"
^DD(446,0,"DDA")="N"
^DD(446,0,"ID",1)="N % S %=$P(^(0),U,2) W ""    "",$E(%,4,5),""/"",$E(%)+17,$E(%,2,3) Q"
^DD(446,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(446,0,"IX","AC",446,1)=""
^DD(446,0,"IX","AD",446,2)=""
^DD(446,0,"IX","B",446,.01)=""
^DD(446,0,"NM","DISTRIBUTION/USAGE HISTORY")=""
^DD(446,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(446,0,"VR")="5.1"
^DD(446,0,"VRPK")="IFCAP"
^DD(446,.01,0)="DISTRIBUTED TO^RP445'X^PRCP(445,^0;1^K:'$G(PRCPPRIV) X"
^DD(446,.01,1,0)="^.1"
^DD(446,.01,1,1,0)="446^B"
^DD(446,.01,1,1,1)="S ^PRCP(446,""B"",$E(X,1,30),DA)="""""
^DD(446,.01,1,1,2)="K ^PRCP(446,""B"",$E(X,1,30),DA)"
^DD(446,.01,3)="Enter the Inventory/Distribution point TO which supplies were distributed, or WITHIN which the supplies were used."
^DD(446,.01,21,0)="^^2^2^2910517^"
^DD(446,.01,21,1,0)="This is the inventory/distribution point to which the"
^DD(446,.01,21,2,0)="item(s) was distributed."
^DD(446,.01,"DT")="2920206"
^DD(446,1,0)="MONTH/YEAR DISTRIBUTED^RFXO^^0;2^S %DT=""E"" D ^%DT S X=$E(Y,1,5) K:Y<1 X"
^DD(446,1,1,0)="^.1"
^DD(446,1,1,1,0)="446^AC"
^DD(446,1,1,1,1)="S ^PRCP(446,""AC"",$E(X,1,30),DA)="""""
^DD(446,1,1,1,2)="K ^PRCP(446,""AC"",$E(X,1,30),DA)"
^DD(446,1,1,1,"%D",0)="^^3^3^2930628^"
^DD(446,1,1,1,"%D",1,0)="This cross reference is used to sort the distribution history by the"
^DD(446,1,1,1,"%D",2,0)="month/year an item is distributed.  The node prcp(446,""ac"",MOYR,da)"
^DD(446,1,1,1,"%D",3,0)="is set where the MOYR is the month/year distributed."
^DD(446,1,2)="S Y(0)=Y D DD^%DT"
^DD(446,1,2.1)="D DD^%DT"
^DD(446,1,3)="Enter the month and year in which the supplies were distributed/used."
^DD(446,1,21,0)="^^2^2^2910517^"
^DD(446,1,21,1,0)="This is the month and year in which the item was"
^DD(446,1,21,2,0)="distributed or used."
^DD(446,2,0)="DISTRIBUTED FROM^RP445'^PRCP(445,^0;3^Q"
^DD(446,2,1,0)="^.1"
^DD(446,2,1,1,0)="446^AD"
^DD(446,2,1,1,1)="S ^PRCP(446,""AD"",$E(X,1,30),DA)="""""
^DD(446,2,1,1,2)="K ^PRCP(446,""AD"",$E(X,1,30),DA)"
^DD(446,2,1,1,"%D",0)="^^4^4^2930628^"
^DD(446,2,1,1,"%D",1,0)="This cross reference is used to sort the distribution history by the"
^DD(446,2,1,1,"%D",2,0)="inventory point distributing the items.  The node prcp(446,""ad"",INVPT,da)"
^DD(446,2,1,1,"%D",3,0)="is set where INVPT is the internal inventory point number from which"
^DD(446,2,1,1,"%D",4,0)="items are distributed from."
^DD(446,2,3)="Enter the Inventory Point FROM which the supplies were distributed or used."
^DD(446,2,21,0)="^^2^2^2910517^"
^DD(446,2,21,1,0)="This is the inventory/distribution point from which"
^DD(446,2,21,2,0)="the item(s) was distributed."
^DD(446,2,"DT")="2870605"
^DD(446,3,0)="COST CENTER^FX^^0;4^K:'$D(^PRCD(420.1,+X,0)) X I $D(X) S X=$P(^(0),U,1)"
^DD(446,3,3)="Enter the Cost Center FROM which the supplies were distributed/used."
^DD(446,3,4)="S ZD=D,X=""?"",DIC=""^PRCD(420.1,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=ZD K ZD"
^DD(446,3,21,0)="^^1^1^2910517^^"
^DD(446,3,21,1,0)="This is the cost center from which the item(s) was distributed."
^DD(446,6,0)="TOTAL COST^NJ12,3^^0;7^K:+X'=X!(X>99999999.999)!(X<-99999999.999)!(X?.E1"".""4N.N) X"
^DD(446,6,3)="Total cost (based on selling cost, the higher of the actual and the average cost).  Could be negative if only returns were processed.  TYPE A NUMBER BETWEEN -99999999.999 AND 99999999.999"
^DD(446,6,21,0)="^^2^2^2910517^^"
^DD(446,6,21,1,0)="This is the total cost of the item(s) used or distributed."
^DD(446,6,21,2,0)="It is based on the selling cost."
^DD(446,"B","COST CENTER",3)=""
^DD(446,"B","DISTRIBUTED FROM",2)=""
^DD(446,"B","DISTRIBUTED TO",.01)=""
^DD(446,"B","MONTH/YEAR DISTRIBUTED",1)=""
^DD(446,"B","TOTAL COST",6)=""
^DD(446,"GL",0,1,.01)=""
^DD(446,"GL",0,2,1)=""
^DD(446,"GL",0,3,2)=""
^DD(446,"GL",0,4,3)=""
^DD(446,"GL",0,7,6)=""
^DD(446,"IX",.01)=""
^DD(446,"IX",1)=""
^DD(446,"IX",2)=""
^DD(446,"RQ",.01)=""
^DD(446,"RQ",1)=""
^DD(446,"RQ",2)=""
^DD(446.1,0)="FIELD^^445.02^11"
^DD(446.1,0,"DDA")="N"
^DD(446.1,0,"DT")="2940314"
^DD(446.1,0,"IX","B",446.1,.01)=""
^DD(446.1,0,"NM","INVENTORY DISTRIBUTED PATIENT SUPPLIES")=""
^DD(446.1,0,"PT",445.3,131)=""
^DD(446.1,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(446.1,0,"VR")="5.1"
^DD(446.1,0,"VRPK")="IFCAP"
^DD(446.1,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1!('$G(PRCPPRIV)) X S:$D(X) DINUM=X"
^DD(446.1,.01,1,0)="^.1"
^DD(446.1,.01,1,1,0)="446.1^B"
^DD(446.1,.01,1,1,1)="S ^PRCP(446.1,""B"",$E(X,1,30),DA)="""""
^DD(446.1,.01,1,1,2)="K ^PRCP(446.1,""B"",$E(X,1,30),DA)"
^DD(446.1,.01,3)=""
^DD(446.1,.01,21,0)="^^2^2^2940309^^"
^DD(446.1,.01,21,1,0)="This field stores the date and time the items were distributed to"
^DD(446.1,.01,21,2,0)="the patient."
^DD(446.1,.01,"DT")="2940309"
^DD(446.1,1,0)="TYPE OF ENTRY^S^S:SURGERY CC/IK;^0;2^Q"
^DD(446.1,1,21,0)="^^3^3^2940309^^"
^DD(446.1,1,21,1,0)="This field stores the type of entry for populating the file."
^DD(446.1,1,21,2,0)="S = SURGERY CC/IK -> entry to file was from the distribution of"
^DD(446.1,1,21,3,0)="case carts or instrument kits from the patients surgery."
^DD(446.1,1,"DT")="2940309"
^DD(446.1,2,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(446.1,2,21,0)="^^1^1^2940309^^"
^DD(446.1,2,21,1,0)="This field stores the patient which the supplies were distributed to."
^DD(446.1,2,"DT")="2940309"
^DD(446.1,3,0)="IN/OUT-PATIENT STATUS^S^I:INPATIENT;O:OUTPATIENT;^0;4^Q"
^DD(446.1,3,21,0)="^^2^2^2940309^"
^DD(446.1,3,21,1,0)="This field is used to identify if the patient is an inpatient or"
^DD(446.1,3,21,2,0)="outpatient during the distribution of supplies."
^DD(446.1,3,"DT")="2940309"
^DD(446.1,4,0)="FROM INVENTORY POINT^P445'^PRCP(445,^0;6^Q"
^DD(446.1,4,21,0)="^^2^2^2940309^"
^DD(446.1,4,21,1,0)="This field is used to track the inventory point which distributed the"
^DD(446.1,4,21,2,0)="supplies to the patient."
^DD(446.1,4,"DT")="2940309"
^DD(446.1,130.01,0)="PRINCIPAL PROCEDURE CODE^P81'^ICPT(^130;1^Q"
^DD(446.1,130.01,21,0)="^^2^2^2940309^^"
^DD(446.1,130.01,21,1,0)="This field stores the principal procedure for which the supplies were"
^DD(446.1,130.01,21,2,0)="distributed to the patient."
^DD(446.1,130.01,"DT")="2940309"
^DD(446.1,130.02,0)="OPERATING ROOM^P131.7'^SRS(^130;2^Q"
^DD(446.1,130.02,21,0)="^.001^1^1^3010425^^"
^DD(446.1,130.02,21,1,0)="This field stores the operating room used during the operation/procedure."
^DD(446.1,130.02,"DT")="3010425"
^DD(446.1,130.03,0)="SURGICAL SPECIALTY^P137.45'^SRO(137.45,^130;3^Q"
^DD(446.1,130.03,21,0)="^^1^1^2940309^"
^DD(446.1,130.03,21,1,0)="This field stores the surgical specialty for the operation/procedure."
^DD(446.1,130.03,"DT")="2940314"
^DD(446.1,130.04,0)="SURGEON^P200'^VA(200,^130;4^Q"
^DD(446.1,130.04,21,0)="^^1^1^2940309^"
^DD(446.1,130.04,21,1,0)="This field stores the surgeon for the operation/procedure."
^DD(446.1,130.04,"DT")="2940309"
^DD(446.1,445.01,0)="ITEM^446.11P^^445;0"
^DD(446.1,445.01,21,0)="^^1^1^2940309^"
^DD(446.1,445.01,21,1,0)="This field stores all the supplies (items) distributed to the patient."
^DD(446.1,445.02,0)="TOTAL COST^NJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(446.1,445.02,3)="Enter the total cost of supplies distributed to the patient for this entry, from 0 to 9999999.99"
^DD(446.1,445.02,21,0)="^^2^2^2940309^"
^DD(446.1,445.02,21,1,0)="This field stores the total cost of supplies distributed to the patient"
^DD(446.1,445.02,21,2,0)="for this entry."
^DD(446.1,445.02,"DT")="2940309"
^DD(446.1,"B","DATE/TIME",.01)=""
^DD(446.1,"B","FROM INVENTORY POINT",4)=""
^DD(446.1,"B","IN/OUT-PATIENT STATUS",3)=""
^DD(446.1,"B","ITEM",445.01)=""
^DD(446.1,"B","OPERATING ROOM",130.02)=""
^DD(446.1,"B","PATIENT",2)=""
^DD(446.1,"B","PRINCIPAL PROCEDURE CODE",130.01)=""
^DD(446.1,"B","SURGEON",130.04)=""
^DD(446.1,"B","SURGICAL SPECIALTY",130.03)=""
^DD(446.1,"B","TOTAL COST",445.02)=""
^DD(446.1,"B","TYPE OF ENTRY",1)=""
^DD(446.1,"GL",0,1,.01)=""
^DD(446.1,"GL",0,2,1)=""
^DD(446.1,"GL",0,3,2)=""
^DD(446.1,"GL",0,4,3)=""
^DD(446.1,"GL",0,5,445.02)=""
^DD(446.1,"GL",0,6,4)=""
^DD(446.1,"GL",130,1,130.01)=""
^DD(446.1,"GL",130,2,130.02)=""
^DD(446.1,"GL",130,3,130.03)=""
^DD(446.1,"GL",130,4,130.04)=""
^DD(446.1,"GL",445,0,445.01)=""
^DD(446.1,"IX",.01)=""
^DD(446.1,"RQ",.01)=""
^DD(446.1,"SB",446.11,445.01)=""
^DD(446.11,0)="ITEM SUB-FIELD^^2^3"
^DD(446.11,0,"DT")="2940309"
^DD(446.11,0,"IX","B",446.11,.01)=""
^DD(446.11,0,"NM","ITEM")=""
^DD(446.11,0,"UP")="446.1"
^DD(446.11,.01,0)="ITEM^MP441'^PRC(441,^0;1^Q"
^DD(446.11,.01,1,0)="^.1"
^DD(446.11,.01,1,1,0)="446.11^B"
^DD(446.11,.01,1,1,1)="S ^PRCP(446.1,DA(1),445,""B"",$E(X,1,30),DA)="""""
^DD(446.11,.01,1,1,2)="K ^PRCP(446.1,DA(1),445,""B"",$E(X,1,30),DA)"
^DD(446.11,.01,21,0)="^^1^1^2940309^"
^DD(446.11,.01,21,1,0)="This field stores the item distributed to the patient."
^DD(446.11,.01,"DT")="2940309"
^DD(446.11,1,0)="QUANTITY^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(446.11,1,3)="Enter the quantity of this item which was distributed to the patient, from 0 to 9999999."
^DD(446.11,1,21,0)="^^1^1^2940309^"
^DD(446.11,1,21,1,0)="This field stores the total quantity of the item distributed to the patient."
^DD(446.11,1,"DT")="2940309"
^DD(446.11,2,0)="TOTAL COST^NJ10,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(446.11,2,3)="Enter the total cost of this item which was distributed to the patient, from 0 to 9999999.99."
^DD(446.11,2,21,0)="^^1^1^2940309^"
^DD(446.11,2,21,1,0)="This field stores the total cost of the item distributed to the patient."
^DD(446.11,2,"DT")="2940309"
^DD(446.11,"B","ITEM",.01)=""
^DD(446.11,"B","QUANTITY",1)=""
^DD(446.11,"B","TOTAL COST",2)=""
^DD(446.11,"GL",0,1,.01)=""
^DD(446.11,"GL",0,2,1)=""
^DD(446.11,"GL",0,3,2)=""
^DD(446.11,"IX",.01)=""
^DD(446.4,0)="FIELD^^2^14"
^DD(446.4,0,"DDA")="N"
^DD(446.4,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(446.4,0,"IX","B",446.4,.01)=""
^DD(446.4,0,"IX","C",446.4,.02)=""
^DD(446.4,0,"NM","BARCODE PROGRAM")=""
^DD(446.4,0,"VR")="5.1"
^DD(446.4,0,"VRPK")="IFCAP"
^DD(446.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(446.4,.01,1,0)="^.1"
^DD(446.4,.01,1,1,0)="446.4^B"
^DD(446.4,.01,1,1,1)="S ^PRCT(446.4,""B"",$E(X,1,30),DA)="""""
^DD(446.4,.01,1,1,2)="K ^PRCT(446.4,""B"",$E(X,1,30),DA)"
^DD(446.4,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(446.4,.01,21,0)="^^3^3^2891102^^^"
^DD(446.4,.01,21,1,0)="This field should be a short description of the data that will be"
^DD(446.4,.01,21,2,0)="collected and stored using the barcode program (field #1) that is"
^DD(446.4,.01,21,3,0)="contained in this file."
^DD(446.4,.02,0)="IDENTIFIER^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<3) X D:$D(X) IDENT^PRCTUTL"
^DD(446.4,.02,1,0)="^.1"
^DD(446.4,.02,1,1,0)="446.4^C"
^DD(446.4,.02,1,1,1)="S ^PRCT(446.4,""C"",$E(X,1,30),DA)="""""
^DD(446.4,.02,1,1,2)="K ^PRCT(446.4,""C"",$E(X,1,30),DA)"
^DD(446.4,.02,1,1,"%D",0)="^^3^3^2930628^"
^DD(446.4,.02,1,1,"%D",1,0)="This cross reference sorts the barcode program by the identifier for"
^DD(446.4,.02,1,1,"%D",2,0)="lookups.  The node prct(446.4,""c"",IDENT,da) is set where IDENT is"
^DD(446.4,.02,1,1,"%D",3,0)="the identifier."
^DD(446.4,.02,3)="ANSWER MUST BE 3-8 CHARACTERS IN LENGTH"
^DD(446.4,.02,21,0)="^^15^15^2910506^^^^"
^DD(446.4,.02,21,1,0)="This field is a unique IDENTIFIER of the data that will be stored in this"
^DD(446.4,.02,21,2,0)="file.  When data is downloaded from a barcode program, the first record"
^DD(446.4,.02,21,3,0)="received should be the IDENTIFIER of the data being downloaded."
^DD(446.4,.02,21,4,0)=" "
^DD(446.4,.02,21,5,0)="Once the IDENTIFIER is known, then the data will stored in the"
^DD(446.4,.02,21,6,0)="BARCODE DATA multiple (446.42,1) for the appropriate entry.  After"
^DD(446.4,.02,21,7,0)="the data has successfully been uploaded, then the proper LINE"
^DD(446.4,.02,21,8,0)="TAG (field #.03) and ROUTINE (field #.04) can be tasked to process"
^DD(446.4,.02,21,9,0)="the data."
^DD(446.4,.02,21,10,0)=" "
^DD(446.4,.02,21,11,0)="NOTE: The Identifier must be a package namespace followed by two"
^DD(446.4,.02,21,12,0)="characters.  For example: If the program handles inventory of formulary"
^DD(446.4,.02,21,13,0)="drugs for outpatient, the identifier might be 'PSOFM'.  The 'PSO' is the"
^DD(446.4,.02,21,14,0)="outpatient namespace and 'FM' is two characters that further describe"
^DD(446.4,.02,21,15,0)="the type of program."
^DD(446.4,.02,"DT")="2900420"
^DD(446.4,.03,0)="POST UPLOAD ROUTINE^FX^^0;3^K:$L(X)>17!($L(X)<1)!($L(X)>8&(X'[""-"")) X D:$D(X) RTN^PRCTUTL"
^DD(446.4,.03,3)="ANSWER MUST BE 1-17 CHARACTERS IN LENGTH"
^DD(446.4,.03,21,0)="^^7^7^2910506^^^^"
^DD(446.4,.03,21,1,0)="This field contains the ANSI-MUMPS routine that will be called"
^DD(446.4,.03,21,2,0)="directly after a successful upload of data has taken place."
^DD(446.4,.03,21,3,0)=" "
^DD(446.4,.03,21,4,0)="This field can also contain a line tag.  The dash (-) is used, instead"
^DD(446.4,.03,21,5,0)="of the up-arrow (^) to separate the line tag from the routine.  For example,"
^DD(446.4,.03,21,6,0)="if the routine that should be called is EN^ENG you would enter EN-ENG"
^DD(446.4,.03,21,7,0)="in this field."
^DD(446.4,.03,"DT")="2891117"
^DD(446.4,.04,0)="DATA PROCESSOR ROUTINE^FX^^0;4^K:$L(X)>17!($L(X)<1)!($L(X)>8&(X'[""-"")) X D:$D(X) RTN^PRCTUTL"
^DD(446.4,.04,3)="ANSWER MUST BE 1-17 CHARACTERS IN LENGTH"
^DD(446.4,.04,21,0)="^^9^9^2910506^^^^"
^DD(446.4,.04,21,1,0)="This field is the ANSI-MUMPS routine that will be tasked to taskmanager"
^DD(446.4,.04,21,2,0)="after data is uploaded from the barcode reader.  This routine will"
^DD(446.4,.04,21,3,0)="be responsible for the processing of data in the BARCODE DATA multiple"
^DD(446.4,.04,21,4,0)="(data upload from the barcode reader)."
^DD(446.4,.04,21,5,0)=" "
^DD(446.4,.04,21,6,0)="This field can also contain a line tag.  The dash (-) is used, instead"
^DD(446.4,.04,21,7,0)="of the up-arrow (^) to separate the line tag from routine.  For example,"
^DD(446.4,.04,21,8,0)="if the routine that should be called is EN^ENG you would enter EN-ENG"
^DD(446.4,.04,21,9,0)="in this field."
^DD(446.4,.04,"DT")="2891117"
^DD(446.4,.05,0)="TIME TO QUEUE ROUTINE^FX^^0;5^S X=""T@""_X,%DT=""TXR"" D ^%DT S X=$P(Y,""."",2),X=X_$E(""000"",1,4-$L(X)) K:Y<0 X"
^DD(446.4,.05,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(446.4,.05,21,0)="^^12^12^2891206^^"
^DD(446.4,.05,21,1,0)="This field contains the time of day that processing of data for this"
^DD(446.4,.05,21,2,0)="entry should take place.  For example, if 1AM is entered into this field,"
^DD(446.4,.05,21,3,0)="then any data that needs to be processed for this entry will not take place"
^DD(446.4,.05,21,4,0)="until 1AM.  This means that users could be allowed to upload data"
^DD(446.4,.05,21,5,0)="from a barcode reader during anytime of the day, but allows the local"
^DD(446.4,.05,21,6,0)="site to use this field to specify what time of the day the data should"
^DD(446.4,.05,21,7,0)="be processed."
^DD(446.4,.05,21,8,0)=" "
^DD(446.4,.05,21,9,0)="If this field is blank, then the processing of data will be immediate."
^DD(446.4,.05,21,10,0)=" "
^DD(446.4,.05,21,11,0)="NOTE: This field contains military time only.  If, for example, 3pm is "
^DD(446.4,.05,21,12,0)="      entered, this will be converted to 1500."
^DD(446.4,.05,"DT")="2891102"
^DD(446.4,.06,0)="IS DEVICE REQUIRED ?^S^0:NO;1:YES;^0;6^Q"
^DD(446.4,.06,21,0)="^^8^8^2891114^^"
^DD(446.4,.06,21,1,0)="This field controls whether or not the user, after uploaded data to"
^DD(446.4,.06,21,2,0)="this file entry, is prompted for a device to task the processing."
^DD(446.4,.06,21,3,0)=" "
^DD(446.4,.06,21,4,0)="For example, some programs that process barcode data from this file"
^DD(446.4,.06,21,5,0)="will require a printer.  If this field is set to 1 (YES), then the user"
^DD(446.4,.06,21,6,0)="will be prompted for a device.  If this field is set to 0 (NO), then the"
^DD(446.4,.06,21,7,0)="user will not be prompted for a device and the job will run as a"
^DD(446.4,.06,21,8,0)="background job with no device associated with it."
^DD(446.4,.06,"DT")="2891102"
^DD(446.4,.07,0)="PURGE DAYS^NJ2,0^^0;7^K:+X'=X!(X>30)!(X<3)!(X?.E1"".""1N.N) X"
^DD(446.4,.07,3)="Type a Number between 3 and 30, 0 Decimal Digits"
^DD(446.4,.07,21,0)="^^11^11^2891114^^^"
^DD(446.4,.07,21,1,0)="This field is the maximum number of days that the DATE/TIME OF DATA"
^DD(446.4,.07,21,2,0)="UPLOAD data should exist on the computer system."
^DD(446.4,.07,21,3,0)=" "
^DD(446.4,.07,21,4,0)="For example: If this field is 20, any data that may have been uploaded"
^DD(446.4,.07,21,5,0)="over 20 days ago for this entry will be automatically deleted.  Since"
^DD(446.4,.07,21,6,0)="barcode data is usually 'processed' within a day or two, it is not"
^DD(446.4,.07,21,7,0)="necessary to keep this information for a long period of time.  It is"
^DD(446.4,.07,21,8,0)="recommended to keep this data for at least 7 days incase trouble-shooting"
^DD(446.4,.07,21,9,0)="is necessary."
^DD(446.4,.07,21,10,0)=" "
^DD(446.4,.07,21,11,0)="If no data is entered for this field, the default is 7 days."
^DD(446.4,.07,"DT")="2891113"
^DD(446.4,.08,0)="LAST DATA PURGE FLAG^DI^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(446.4,.08,21,0)="^^4^4^2891114^^"
^DD(446.4,.08,21,1,0)="This field is a flag set by the computer.  It is updated by the"
^DD(446.4,.08,21,2,0)="computer as a means to keep track of when the next purge is scheduled"
^DD(446.4,.08,21,3,0)="to run or was last run.  The purging of data is handled automatically"
^DD(446.4,.08,21,4,0)="and does not need to be run or queued to run by a user."
^DD(446.4,.08,"DT")="2891113"
^DD(446.4,.09,0)="SPECIALTY COMMANDS^P446.6'^PRCT(446.6,^0;9^Q"
^DD(446.4,.09,21,0)="^^1^1^2920212^"
^DD(446.4,.09,21,1,0)="This field identifies the specialty commands for the barcode program."
^DD(446.4,.09,"DT")="2930301"
^DD(446.4,.1,0)="CREATED BY^P200'^VA(200,^0;10^Q"
^DD(446.4,.1,21,0)="^^1^1^2920212^"
^DD(446.4,.1,21,1,0)="This field stores the user creating the barcode program."
^DD(446.4,.1,"DT")="2930106"
^DD(446.4,.11,0)="SITE^F^^0;11^K:$L(X)>10!($L(X)<3) X"
^DD(446.4,.11,3)="Answer must be 3-10 characters in length."
^DD(446.4,.11,21,0)="^^1^1^2920212^"
^DD(446.4,.11,21,1,0)="This field stores the site creating the barcode program."
^DD(446.4,.11,"DT")="2900419"
^DD(446.4,.12,0)="GENERIC DOWNLOADING?^S^1:YES;^0;12^Q"
^DD(446.4,.12,21,0)="^^5^5^2900822^^^^"
^DD(446.4,.12,21,1,0)="   This field determines whether or not a bar code program may be downloaded"
^DD(446.4,.12,21,2,0)="generally (via option PRCT DOWNLOAD BARCODE PROGRAM)."
^DD(446.4,.12,21,3,0)="   If a bar code program expects that certain parameters will be passed to"
^DD(446.4,.12,21,4,0)="it from the host system, this field should be blank. Otherwise it may be set"
^DD(446.4,.12,21,5,0)="to '1'."
^DD(446.4,.12,"DT")="2900814"
^DD(446.4,1,0)="BARCODE PROGRAM^446.41^^1;0"
^DD(446.4,1,21,0)="^^17^17^2920818^^^^"
^DD(446.4,1,21,1,0)="This word-processing field is used for the storage of the barcode program"
^DD(446.4,1,21,2,0)="for the barcode reader.  The program can be downloaded from this field"
^DD(446.4,1,21,3,0)="into the barcode reader directly."
^DD(446.4,1,21,4,0)=" "
^DD(446.4,1,21,5,0)="Comments should be included in the barcode program starting with two"
^DD(446.4,1,21,6,0)="colons.  During downloading of program from this file to the reader,"
^DD(446.4,1,21,7,0)="all comments that use two colons will be striped off and not sent to"
^DD(446.4,1,21,8,0)="the barcode reader.  Comments do not need to be resident on the barcode"
^DD(446.4,1,21,9,0)="reader itself and it is not recommended since it requires additional memory"
^DD(446.4,1,21,10,0)="to store comments."
^DD(446.4,1,21,11,0)=" "
^DD(446.4,1,21,12,0)="It is recommended that comments be included at the end of every line of"
^DD(446.4,1,21,13,0)="barcode program for debugging purposes.  Also, utilities exist to aid you"
^DD(446.4,1,21,14,0)="with comment alignment.  For example, if a 200 line barcode program has"
^DD(446.4,1,21,15,0)="comments at different columns, it makes read-ability of the barcode program"
^DD(446.4,1,21,16,0)="very difficult.  A utility exists to align all comments at a specific"
^DD(446.4,1,21,17,0)="(e.g., 30, 35, 40, etc.) column of the barcode program."
^DD(446.4,2,0)="DATE/TIME OF DATA UPLOAD^446.42DI^^2;0"
^DD(446.4,2,21,0)="^^2^2^2920819^^"
^DD(446.4,2,21,1,0)="This multiple field stores the date and time of when the data was uploaded"
^DD(446.4,2,21,2,0)="from a barcode reader and stored in this file."
^DD(446.4,"B","BARCODE PROGRAM",1)=""
^DD(446.4,"B","CREATED BY",.1)=""
^DD(446.4,"B","DATA PROCESSOR ROUTINE",.04)=""
^DD(446.4,"B","DATE/TIME OF DATA UPLOAD",2)=""
^DD(446.4,"B","GENERIC DOWNLOADING?",.12)=""
^DD(446.4,"B","IDENTIFIER",.02)=""
^DD(446.4,"B","IS DEVICE REQUIRED ?",.06)=""
^DD(446.4,"B","LAST DATA PURGE FLAG",.08)=""
^DD(446.4,"B","NAME",.01)=""
^DD(446.4,"B","POST UPLOAD ROUTINE",.03)=""
^DD(446.4,"B","PURGE DAYS",.07)=""
^DD(446.4,"B","SITE",.11)=""
^DD(446.4,"B","SPECIALTY COMMANDS",.09)=""
^DD(446.4,"B","TIME TO QUEUE ROUTINE",.05)=""
^DD(446.4,"GL",0,1,.01)=""
^DD(446.4,"GL",0,2,.02)=""
^DD(446.4,"GL",0,3,.03)=""
^DD(446.4,"GL",0,4,.04)=""
^DD(446.4,"GL",0,5,.05)=""
^DD(446.4,"GL",0,6,.06)=""
^DD(446.4,"GL",0,7,.07)=""
^DD(446.4,"GL",0,8,.08)=""
^DD(446.4,"GL",0,9,.09)=""
^DD(446.4,"GL",0,10,.1)=""
^DD(446.4,"GL",0,11,.11)=""
^DD(446.4,"GL",0,12,.12)=""
^DD(446.4,"GL",1,0,1)=""
^DD(446.4,"GL",2,0,2)=""
^DD(446.4,"IX",.01)=""
^DD(446.4,"IX",.02)=""
^DD(446.4,"RQ",.01)=""
^DD(446.4,"SB",446.41,1)=""
^DD(446.4,"SB",446.42,2)=""
^DD(446.41,0)="BARCODE PROGRAM SUB-FIELD^^.01^1"
^DD(446.41,0,"NM","BARCODE PROGRAM")=""
^DD(446.41,0,"UP")="446.4"
^DD(446.41,.01,0)="BARCODE PROGRAM^WL^^0;1^Q"
^DD(446.41,.01,21,0)="^^2^2^2920818^^"
^DD(446.41,.01,21,1,0)="This word-processing field is used for the storage of the barcode program"
^DD(446.41,.01,21,2,0)="for the barcode reader."
^DD(446.41,"B","BARCODE PROGRAM",.01)=""
^DD(446.41,"GL",0,1,.01)=""
^DD(446.42,0)="DATE/TIME OF DATA UPLOAD SUB-FIELD^^1^4"
^DD(446.42,0,"ID","WRITE")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(446.42,0,"IX","B",446.42,.01)=""
^DD(446.42,0,"NM","DATE/TIME OF DATA UPLOAD")=""
^DD(446.42,0,"UP")="446.4"
^DD(446.42,.01,0)="DATE/TIME OF DATA UPLOAD^MDI^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(446.42,.01,1,0)="^.1"
^DD(446.42,.01,1,1,0)="446.42^B"
^DD(446.42,.01,1,1,1)="S ^PRCT(446.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(446.42,.01,1,1,2)="K ^PRCT(446.4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(446.42,.01,21,0)="^^2^2^2891114^^"
^DD(446.42,.01,21,1,0)="This field is the DATE/TIME of when data was uploaded from a barcode"
^DD(446.42,.01,21,2,0)="reader and stored in this file."
^DD(446.42,.01,"DT")="2891109"
^DD(446.42,.02,0)="UPLOAD USER^P200'I^VA(200,^0;2^Q"
^DD(446.42,.02,21,0)="^^2^2^2891102^^"
^DD(446.42,.02,21,1,0)="This field contains the name of the user who uploaded the data from"
^DD(446.42,.02,21,2,0)="the barcode reader to this file."
^DD(446.42,.02,"DT")="2891109"
^DD(446.42,.03,0)="STATUS^FI^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(446.42,.03,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(446.42,.03,21,0)="^^26^26^2891114^"
^DD(446.42,.03,21,1,0)="Status is a comment field updated by the computer that contains the"
^DD(446.42,.03,21,2,0)="status of the data stored in this multiple.  The status of the data"
^DD(446.42,.03,21,3,0)="will include what 'step' or 'error' the data has encountered during"
^DD(446.42,.03,21,4,0)="procedure of initial upload to actual processing."
^DD(446.42,.03,21,5,0)=" "
^DD(446.42,.03,21,6,0)="This field could contain such comments as:"
^DD(446.42,.03,21,7,0)=" "
^DD(446.42,.03,21,8,0)="     ATTEMPTING DATA UPLOAD - (Data is currently being uploaded)"
^DD(446.42,.03,21,9,0)="     DATA UPLOAD SUCCESSFUL - (Data has just been uploaded with no errors)"
^DD(446.42,.03,21,10,0)="  or DATA UPLOAD FAILURE    - (Data upload has failed due to missing records)"
^DD(446.42,.03,21,11,0)="     DEVICE NOT SELECTED    - (Data was uploaded sucessfully, but the user"
^DD(446.42,.03,21,12,0)="                               has not specified the device to which the"
^DD(446.42,.03,21,13,0)="                               data should process)"
^DD(446.42,.03,21,14,0)="     TASKED FOR [date/time] - (Data was uploaded successfully and will be"
^DD(446.42,.03,21,15,0)="                               processed on the date/time specified)"
^DD(446.42,.03,21,16,0)="     RTN FLD IS MISSING     - (Data attempted to process but could not"
^DD(446.42,.03,21,17,0)="                               because the process routine is not"
^DD(446.42,.03,21,18,0)="                               defined (field 446.4,.04 and 446.4,.03)"
^DD(446.42,.03,21,19,0)="     RTN IS MISSING         - (Data attempted to process but could not"
^DD(446.42,.03,21,20,0)="                               because the routine specified does not"
^DD(446.42,.03,21,21,0)="                               exist on computer system (field 446.4,.04 and"
^DD(446.42,.03,21,22,0)="                               446.4,.03)."
^DD(446.42,.03,21,23,0)="     STARTED ON [date/time] - (Data has started to process on the data/time"
^DD(446.42,.03,21,24,0)="                               specified)"
^DD(446.42,.03,21,25,0)="     FINISHED ON [date/time]- (Data has finished processing on the date/time"
^DD(446.42,.03,21,26,0)="                               specified)"
^DD(446.42,.03,"AUDIT")=""
^DD(446.42,.03,"DT")="2891113"
^DD(446.42,1,0)="BARCODE DATA^446.421^^1;0"
^DD(446.42,1,21,0)="^^4^4^2920819^^^^"
^DD(446.42,1,21,1,0)="This word-processing field contains the data uploaded from the barcode"
^DD(446.42,1,21,2,0)="reader.  Data is stored directly into this field with no modifications."
^DD(446.42,1,21,3,0)="The only data that is not stored in this file during uploading of data"
^DD(446.42,1,21,4,0)="is the first record (Identifier)."
^DD(446.42,"B","BARCODE DATA",1)=""
^DD(446.42,"B","DATE/TIME OF DATA UPLOAD",.01)=""
^DD(446.42,"B","STATUS",.03)=""
^DD(446.42,"B","UPLOAD USER",.02)=""
^DD(446.42,"GL",0,1,.01)=""
^DD(446.42,"GL",0,2,.02)=""
^DD(446.42,"GL",0,3,.03)=""
^DD(446.42,"GL",1,0,1)=""
^DD(446.42,"IX",.01)=""
^DD(446.42,"SB",446.421,1)=""
^DD(446.421,0)="BARCODE DATA SUB-FIELD^^.01^1"
^DD(446.421,0,"NM","BARCODE DATA")=""
^DD(446.421,0,"UP")="446.42"
^DD(446.421,.01,0)="BARCODE DATA^WL^^0;1^Q"
^DD(446.421,.01,21,0)="^^2^2^2920819^"
^DD(446.421,.01,21,1,0)="This word-processing field contains the data uploaded from the barcode"
^DD(446.421,.01,21,2,0)="reader."
^DD(446.421,"B","BARCODE DATA",.01)=""
^DD(446.421,"GL",0,1,.01)=""
^DD(446.5,0)="FIELD^^4^8"
^DD(446.5,0,"DDA")="N"
^DD(446.5,0,"IX","B",446.5,.01)=""
^DD(446.5,0,"NM","CUSTOM LABEL")=""
^DD(446.5,0,"VR")="5.1"
^DD(446.5,0,"VRPK")="IFCAP"
^DD(446.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(446.5,.01,1,0)="^.1"
^DD(446.5,.01,1,1,0)="446.5^B"
^DD(446.5,.01,1,1,1)="S ^PRCT(446.5,""B"",$E(X,1,30),DA)="""""
^DD(446.5,.01,1,1,2)="K ^PRCT(446.5,""B"",$E(X,1,30),DA)"
^DD(446.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(446.5,.01,21,0)="^^1^1^2891205^"
^DD(446.5,.01,21,1,0)="This is a general description for the label that is designed for this entry."
^DD(446.5,.02,0)="FILE^P1'X^DIC(^0;2^I $P(^PRCT(446.5,D0,0),""^"",2),$P(^(0),""^"",2)'=X W *7,!!,""Since you have change the file, be sure to review all 'FIELD' type parameters"",!"
^DD(446.5,.02,8.5)="@"
^DD(446.5,.02,9)="@"
^DD(446.5,.02,21,0)="5^^5^5^2910506^^"
^DD(446.5,.02,21,1,0)="This is the file that the label will print from during a search and sort"
^DD(446.5,.02,21,2,0)="functions.  For example: If you want to print a label for all drugs in "
^DD(446.5,.02,21,3,0)="the drug file, you would enter 50 or DRUG for this field and labels will"
^DD(446.5,.02,21,4,0)="print from this file.  If this field is not defined, then the label will"
^DD(446.5,.02,21,5,0)="be considered to be just free text and not associated with a file."
^DD(446.5,.02,"DT")="2891207"
^DD(446.5,.03,0)="LABEL ROUTINE^FX^^0;3^K:$L(X)>15!($L(X)<1)!($L(X)>8&(X'[""-"")) X D:$D(X) RTN^PRCTUTL"
^DD(446.5,.03,3)="ANSWER MUST BE FROM 1-15 CHARACTERS"
^DD(446.5,.03,21,0)="^^2^2^2910506^^^^"
^DD(446.5,.03,21,1,0)="If this field has a routine entered, this routine will be called to"
^DD(446.5,.03,21,2,0)="print the labels rather than the generic label routine."
^DD(446.5,.03,"DT")="2910506"
^DD(446.5,.06,0)="SPECIALTY COMMANDS^P446.6'^PRCT(446.6,^0;6^Q"
^DD(446.5,.06,21,0)="^^1^1^2920212^"
^DD(446.5,.06,21,1,0)="This field stores the specialty command for the label."
^DD(446.5,.06,"DT")="2930301"
^DD(446.5,1,0)="TEXT^446.51^^1;0"
^DD(446.5,1,21,0)="^^2^2^2920819^^"
^DD(446.5,1,21,1,0)="This is the user defined description of the report.  The report can"
^DD(446.5,1,21,2,0)="contain parameters (|1|, |2|, etc...)."
^DD(446.5,2,0)="PARAMETER^446.52I^^2;0"
^DD(446.5,2,21,0)="^^1^1^2920212^"
^DD(446.5,2,21,1,0)="This field stores the definition of the parameter used on the label."
^DD(446.5,3,0)="FILEMAN CODE^446.53^^3;0"
^DD(446.5,3,21,0)="^^2^2^2920819^^^"
^DD(446.5,3,21,1,0)="This word-processing field contains the compiled FILEMAN code"
^DD(446.5,3,21,2,0)="necessary to run the report."
^DD(446.5,4,0)="MUMPS CODE^446.54^^4;0"
^DD(446.5,4,21,0)="^^2^2^2920819^^^^"
^DD(446.5,4,21,1,0)="This word-processing field contains the compiled MUMPS code"
^DD(446.5,4,21,2,0)="necessary to run the report."
^DD(446.5,"B","FILE",.02)=""
^DD(446.5,"B","FILEMAN CODE",3)=""
^DD(446.5,"B","LABEL ROUTINE",.03)=""
^DD(446.5,"B","MUMPS CODE",4)=""
^DD(446.5,"B","NAME",.01)=""
^DD(446.5,"B","PARAMETER",2)=""
^DD(446.5,"B","SPECIALTY COMMANDS",.06)=""
^DD(446.5,"B","TEXT",1)=""
^DD(446.5,"GL",0,1,.01)=""
^DD(446.5,"GL",0,2,.02)=""
^DD(446.5,"GL",0,3,.03)=""
^DD(446.5,"GL",0,6,.06)=""
^DD(446.5,"GL",1,0,1)=""
^DD(446.5,"GL",2,0,2)=""
^DD(446.5,"GL",3,0,3)=""
^DD(446.5,"GL",4,0,4)=""
^DD(446.5,"IX",.01)=""
^DD(446.5,"RQ",.01)=""
^DD(446.5,"SB",446.51,1)=""
^DD(446.5,"SB",446.52,2)=""
^DD(446.5,"SB",446.53,3)=""
^DD(446.5,"SB",446.54,4)=""
^DD(446.51,0)="TEXT SUB-FIELD^^.01^1"
^DD(446.51,0,"NM","TEXT")=""
^DD(446.51,0,"UP")="446.5"
^DD(446.51,.01,0)="TEXT^WL^^0;1^Q"
^DD(446.51,.01,21,0)="^^1^1^2920819^"
^DD(446.51,.01,21,1,0)="This is the user defined description of the report."
^DD(446.51,"B","TEXT",.01)=""
^DD(446.51,"GL",0,1,.01)=""
^DD(446.52,0)="PARAMETER SUB-FIELD^^1^13"
^DD(446.52,0,"ID",.09)="W ""   "",$P(^(0),U,9)"
^DD(446.52,0,"NM","PARAMETER")=""
^DD(446.52,0,"UP")="446.5"
^DD(446.52,.01,0)="PARAMETER^MNJ2,0X^^0;1^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(446.52,.01,3)="Type a Number between 1 and 15, 0 Decimal Digits"
^DD(446.52,.01,21,0)="^^1^1^2920212^"
^DD(446.52,.01,21,1,0)="This field stores the parameter number on the label."
^DD(446.52,.01,"DT")="2891130"
^DD(446.52,.02,0)="TYPE^RS^0:COUNTER;1:FIELD;2:XECUTABLE CODE;3:FORM FEED;^0;2^Q"
^DD(446.52,.02,21,0)="^^1^1^2920212^"
^DD(446.52,.02,21,1,0)="This field stores the type of the parameter."
^DD(446.52,.02,"DT")="2891130"
^DD(446.52,.03,0)="BARCODE TYPE^S^0:NO BARCODE;1:SMALL BARCODE;2:MEDIUM BARCODE;3:LARGE BARCODE;^0;3^Q"
^DD(446.52,.03,3)=""
^DD(446.52,.03,21,0)="^^1^1^2920212^"
^DD(446.52,.03,21,1,0)="This field stores the barcode type of the parameter."
^DD(446.52,.03,"DT")="2891201"
^DD(446.52,.04,0)="FIELD^FX'I^^0;4^K:$L(X)>20!($L(X)<1) X D:$D(X) ^PRCTFLD"
^DD(446.52,.04,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(446.52,.04,21,0)="^^1^1^2920212^"
^DD(446.52,.04,21,1,0)="This field stores the name of the field for the parameter."
^DD(446.52,.04,"DT")="2891129"
^DD(446.52,.05,0)="PRE-TEXT^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(446.52,.05,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(446.52,.05,21,0)="^^1^1^2920212^"
^DD(446.52,.05,21,1,0)="This field stores the pre-text printed before the parameter."
^DD(446.52,.06,0)="POST-TEXT^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(446.52,.06,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(446.52,.06,21,0)="^^1^1^2920212^"
^DD(446.52,.06,21,1,0)="This field stores the post-text printed after the parameter."
^DD(446.52,.07,0)="START AT NUMBER^NJ10,2^^0;7^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""3N.N) X"
^DD(446.52,.07,3)="Type a Number between -9999999 and 9999999, 2 Decimal Digits"
^DD(446.52,.07,21,0)="^^1^1^2920212^"
^DD(446.52,.07,21,1,0)="This field stores the start at number."
^DD(446.52,.07,"DT")="2891129"
^DD(446.52,.08,0)="INCREMENT BY^NJ7,2^^0;8^K:+X'=X!(X>1000)!(X<-1000)!(X?.E1"".""3N.N) X"
^DD(446.52,.08,3)="Type a Number between -1000 and 1000, 2 Decimal Digits"
^DD(446.52,.08,21,0)="^^1^1^2920212^"
^DD(446.52,.08,21,1,0)="This field stores the increment by value."
^DD(446.52,.08,"DT")="2891129"
^DD(446.52,.09,0)="DESCRIPTION^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(446.52,.09,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(446.52,.09,21,0)="^^1^1^2920212^"
^DD(446.52,.09,21,1,0)="This field stores the description of the parameter."
^DD(446.52,.09,"DT")="2891130"
^DD(446.52,.1,0)="TAB^NJ3,0^^0;10^K:+X'=X!(X>250)!(X<1)!(X?.E1"".""1N.N) X"
^DD(446.52,.1,3)="Type a Number between 1 and 250, 0 Decimal Digits"
^DD(446.52,.1,21,0)="^^1^1^2920212^"
^DD(446.52,.1,21,1,0)="This field is the number of tabs."
^DD(446.52,.1,"DT")="2891204"
^DD(446.52,.11,0)="LEFT JUSTIFY^NJ3,0^^0;11^K:+X'=X!(X>250)!(X<1)!(X?.E1"".""1N.N) X"
^DD(446.52,.11,3)="Type a Number between 1 and 250, 0 Decimal Digits"
^DD(446.52,.11,21,0)="^^1^1^2920212^"
^DD(446.52,.11,21,1,0)="This field stores the left justification for the parameter."
^DD(446.52,.11,"DT")="2930301"
^DD(446.52,.12,0)="RIGHT JUSTIFY^NJ3,0^^0;12^K:+X'=X!(X>250)!(X<1)!(X?.E1"".""1N.N) X"
^DD(446.52,.12,3)="Type a Number between 1 and 250, 0 Decimal Digits"
^DD(446.52,.12,21,0)="^^1^1^2920212^"
^DD(446.52,.12,21,1,0)="This field stores the right justification of the parameter."
^DD(446.52,1,0)="XECUTABLE CODE^FX^^1;E1,250^D PROG^PRCTUTL"
^DD(446.52,1,3)="ANSWER MUST BE 1-250 CHARACTERS IN LENGTH"
^DD(446.52,1,8.5)="@"
^DD(446.52,1,9)="@"
^DD(446.52,1,21,0)="^^1^1^2920212^"
^DD(446.52,1,21,1,0)="This field stores the executable mumps code for the parameter."
^DD(446.52,1,"DT")="2891205"
^DD(446.52,"B","BARCODE TYPE",.03)=""
^DD(446.52,"B","DESCRIPTION",.09)=""
^DD(446.52,"B","FIELD",.04)=""
^DD(446.52,"B","INCREMENT BY",.08)=""
^DD(446.52,"B","LEFT JUSTIFY",.11)=""
^DD(446.52,"B","PARAMETER",.01)=""
^DD(446.52,"B","POST-TEXT",.06)=""
^DD(446.52,"B","PRE-TEXT",.05)=""
^DD(446.52,"B","RIGHT JUSTIFY",.12)=""
^DD(446.52,"B","START AT NUMBER",.07)=""
^DD(446.52,"B","TAB",.1)=""
^DD(446.52,"B","TYPE",.02)=""
^DD(446.52,"B","XECUTABLE CODE",1)=""
^DD(446.52,"GL",0,1,.01)=""
^DD(446.52,"GL",0,2,.02)=""
^DD(446.52,"GL",0,3,.03)=""
^DD(446.52,"GL",0,4,.04)=""
^DD(446.52,"GL",0,5,.05)=""
^DD(446.52,"GL",0,6,.06)=""
^DD(446.52,"GL",0,7,.07)=""
^DD(446.52,"GL",0,8,.08)=""
^DD(446.52,"GL",0,9,.09)=""
^DD(446.52,"GL",0,10,.1)=""
^DD(446.52,"GL",0,11,.11)=""
^DD(446.52,"GL",0,12,.12)=""
^DD(446.52,"GL",1,"E1,250",1)=""
^DD(446.52,"RQ",.02)=""
^DD(446.53,0)="FILEMAN CODE SUB-FIELD^^.01^1"
^DD(446.53,0,"NM","FILEMAN CODE")=""
^DD(446.53,0,"UP")="446.5"
^DD(446.53,.01,0)="FILEMAN CODE^WL^^0;1^Q"
^DD(446.53,.01,8.5)="@"
^DD(446.53,.01,9)="@"
^DD(446.53,.01,21,0)="^^2^2^2920819^"
^DD(446.53,.01,21,1,0)="This word-processing field contains the compiled FILEMAN code necessary to"
^DD(446.53,.01,21,2,0)="run the report."
^DD(446.53,.01,"DT")="2891130"
^DD(446.53,"B","FILEMAN CODE",.01)=""
^DD(446.53,"GL",0,1,.01)=""
^DD(446.54,0)="MUMPS CODE SUB-FIELD^^.01^1"
^DD(446.54,0,"NM","MUMPS CODE")=""
^DD(446.54,0,"UP")="446.5"
^DD(446.54,.01,0)="MUMPS CODE^WL^^0;1^Q"
^DD(446.54,.01,8.5)="@"
^DD(446.54,.01,9)="@"
^DD(446.54,.01,21,0)="^^2^2^2920819^"
^DD(446.54,.01,21,1,0)="This word-processing field contains the compiled MUMPS code necessary to run"
^DD(446.54,.01,21,2,0)="the report."
^DD(446.54,.01,"DT")="2891204"
^DD(446.54,"B","MUMPS CODE",.01)=""
^DD(446.54,"GL",0,1,.01)=""
^DD(446.6,0)="FIELD^^3^4"
^DD(446.6,0,"DDA")="N"
^DD(446.6,0,"IX","B",446.6,.01)=""
^DD(446.6,0,"NM","SPECIALTY COMMANDS")=""
^DD(446.6,0,"PT",446.4,.09)=""
^DD(446.6,0,"PT",446.5,.06)=""
^DD(446.6,0,"VR")="5.1"
^DD(446.6,0,"VRPK")="IFCAP"
^DD(446.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(446.6,.01,1,0)="^.1"
^DD(446.6,.01,1,1,0)="446.6^B"
^DD(446.6,.01,1,1,1)="S ^PRCT(446.6,""B"",$E(X,1,30),DA)="""""
^DD(446.6,.01,1,1,2)="K ^PRCT(446.6,""B"",$E(X,1,30),DA)"
^DD(446.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(446.6,.01,21,0)="^^1^1^2920212^"
^DD(446.6,.01,21,1,0)="This field stores the description of the type of specialty command."
^DD(446.6,1,0)="AFTER OPEN^446.61^^1;0"
^DD(446.6,1,21,0)="^^2^2^2920819^^"
^DD(446.6,1,21,1,0)="This field stores the codes which should be sent to the device after"
^DD(446.6,1,21,2,0)="opening it for use."
^DD(446.6,2,0)="BEFORE EACH LABEL^446.62^^2;0"
^DD(446.6,2,21,0)="^^2^2^2920819^^"
^DD(446.6,2,21,1,0)="This field stores the codes which should be printed before each label"
^DD(446.6,2,21,2,0)="prints."
^DD(446.6,3,0)="AFTER EACH LABEL^446.63^^3;0"
^DD(446.6,3,21,0)="^^2^2^2920819^^"
^DD(446.6,3,21,1,0)="This field stores the codes which should be printed after each label"
^DD(446.6,3,21,2,0)="prints."
^DD(446.6,"B","AFTER EACH LABEL",3)=""
^DD(446.6,"B","AFTER OPEN",1)=""
^DD(446.6,"B","BEFORE EACH LABEL",2)=""
^DD(446.6,"B","NAME",.01)=""
^DD(446.6,"GL",0,1,.01)=""
^DD(446.6,"GL",1,0,1)=""
^DD(446.6,"GL",2,0,2)=""
^DD(446.6,"GL",3,0,3)=""
^DD(446.6,"IX",.01)=""
^DD(446.6,"RQ",.01)=""
^DD(446.6,"SB",446.61,1)=""
^DD(446.6,"SB",446.62,2)=""
^DD(446.6,"SB",446.63,3)=""
^DD(446.61,0)="AFTER OPEN SUB-FIELD^^.01^1"
^DD(446.61,0,"NM","AFTER OPEN")=""
^DD(446.61,0,"UP")="446.6"
^DD(446.61,.01,0)="AFTER OPEN^WL^^0;1^Q"
^DD(446.61,.01,21,0)="^^2^2^2920819^"
^DD(446.61,.01,21,1,0)="This field stores the codes which should be sent to the device after"
^DD(446.61,.01,21,2,0)="opening it for use."
^DD(446.61,"B","AFTER OPEN",.01)=""
^DD(446.61,"GL",0,1,.01)=""
^DD(446.62,0)="BEFORE EACH LABEL SUB-FIELD^^.01^1"
^DD(446.62,0,"NM","BEFORE EACH LABEL")=""
^DD(446.62,0,"UP")="446.6"
^DD(446.62,.01,0)="BEFORE EACH LABEL^WL^^0;1^Q"
^DD(446.62,.01,21,0)="^^2^2^2920819^"
^DD(446.62,.01,21,1,0)="This field stores the codes which should be printed before each label"
^DD(446.62,.01,21,2,0)="prints."
^DD(446.62,"B","BEFORE EACH LABEL",.01)=""
^DD(446.62,"GL",0,1,.01)=""
^DD(446.63,0)="AFTER EACH LABEL SUB-FIELD^^.01^1"
^DD(446.63,0,"NM","AFTER EACH LABEL")=""
^DD(446.63,0,"UP")="446.6"
^DD(446.63,.01,0)="AFTER EACH LABEL^WL^^0;1^Q"
^DD(446.63,.01,21,0)="^^2^2^2920819^"
^DD(446.63,.01,21,1,0)="This field stores the codes which should be printed after each label"
^DD(446.63,.01,21,2,0)="prints."
^DD(446.63,.01,"DT")="2891214"
^DD(446.63,"B","AFTER EACH LABEL",.01)=""
^DD(446.63,"GL",0,1,.01)=""
^DD(446.7,0)="FIELD^^7^8"
^DD(446.7,0,"DDA")="N"
^DD(446.7,0,"DT")="3060606"
^DD(446.7,0,"IX","B",446.7,.01)=""
^DD(446.7,0,"NM","CLRS REPORT STORAGE")=""
^DD(446.7,0,"VR")="5.1"
^DD(446.7,0,"VRPK")="PRC"
^DD(446.7,.01,0)="STATION/INVENTORY POINT^NJ8,0^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(446.7,.01,.1)=""
^DD(446.7,.01,1,0)="^.1"
^DD(446.7,.01,1,1,0)="446.7^B"
^DD(446.7,.01,1,1,1)="S ^PRCP(446.7,""B"",$E(X,1,30),DA)="""""
^DD(446.7,.01,1,1,2)="K ^PRCP(446.7,""B"",$E(X,1,30),DA)"
^DD(446.7,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(446.7,.01,21,0)="^.001^2^2^3061220^^"
^DD(446.7,.01,21,1,0)="This is a number representing a combination of the station number "
^DD(446.7,.01,21,2,0)="concatenated with the inventory point for the CLRS report being stored."
^DD(446.7,.01,"DT")="3060608"
^DD(446.7,1,0)="SOH REPORT DATA^F^^1;1^K:$L(X)>200!($L(X)<1) X"
^DD(446.7,1,3)="Answer must be 1-200 characters in length."
^DD(446.7,1,21,0)="^^5^5^3061219^"
^DD(446.7,1,21,1,0)="This field will house the first part of the CLRS report data for the Stock"
^DD(446.7,1,21,2,0)="on Hand report.  The data presents as follows, with  each field in"
^DD(446.7,1,21,3,0)="brackets: <Station#>*<Date Range>*<Inventory Point ID>*<Inventory Point"
^DD(446.7,1,21,4,0)="Name>*<Inventory Point Type>*<Total Dollars>*<# Inventory Point Items>"
^DD(446.7,1,21,5,0)="*<Current Line Item #>*<Cost Center>"
^DD(446.7,1,"DT")="3061219"
^DD(446.7,2,0)="SOH REPORT DATA PT2^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(446.7,2,3)="Answer must be 1-200 characters in length."
^DD(446.7,2,21,0)="^^5^5^3060607^"
^DD(446.7,2,21,1,0)="This field will house the second part of the CLRS report data for the"
^DD(446.7,2,21,2,0)="Stock on Hand report.  The data presents as follows, with  each field in"
^DD(446.7,2,21,3,0)="brackets: <Std Total $ Value>*<ODI  Total $ Value>*<All Total $"
^DD(446.7,2,21,4,0)="Value>*<Std # SOH Items>*<ODI # SOH Items>*<All # SOH Items>*<Std # Inv"
^DD(446.7,2,21,5,0)="Items>*<ODI # Inv Items>*<All # Inv Items>"
^DD(446.7,2,"DT")="3060606"
^DD(446.7,3,0)="SSR REPORT DATA^F^^3;1^K:$L(X)>200!($L(X)<1) X"
^DD(446.7,3,3)="Answer must be 1-200 characters in length."
^DD(446.7,3,21,0)="^^4^4^3060607^"
^DD(446.7,3,21,1,0)="This field will house the first part of the CLRS report data for the Stock"
^DD(446.7,3,21,2,0)="Status Report.  The data reports as follows, with each field in"
^DD(446.7,3,21,3,0)="brackets:  <Station #>*<Date Range>*<Inactivity Range>*<Inventory Point"
^DD(446.7,3,21,4,0)="ID>*<Inventory Point>*<Inventory Point Type>"
^DD(446.7,3,"DT")="3060606"
^DD(446.7,4,0)="SSR REPORT DATA PT2^F^^4;1^K:$L(X)>200!($L(X)<1) X"
^DD(446.7,4,3)="Answer must be 1-200 characters in length."
^DD(446.7,4,21,0)="^^6^6^3061219^"
^DD(446.7,4,21,1,0)="This field will house the second part of the CLRS report data for the"
^DD(446.7,4,21,2,0)="Stock Status Report.  The data reports as follows, with each field in"
^DD(446.7,4,21,3,0)="brackets: <Std Opening Balance Total>*<ODI Opening Balance Total>*<All"
^DD(446.7,4,21,4,0)="Opening Balance Total>*<Std Receipts Total>*<ODI Receipts Total>*<All"
^DD(446.7,4,21,5,0)="Receipts Total>*<Std Usage Total>*<ODI Usage Total>*<All Usage Total>*<Std"
^DD(446.7,4,21,6,0)="Adjustments Total>*<ODI  Adjustments Total>*<All Adjustments Total>"
^DD(446.7,4,"DT")="3061219"
^DD(446.7,5,0)="SSR REPORT DATA PT3^F^^5;1^K:$L(X)>200!($L(X)<1) X"
^DD(446.7,5,3)="Answer must be 1-200 characters in length."
^DD(446.7,5,21,0)="^^6^6^3061219^"
^DD(446.7,5,21,1,0)="This field will house the third part of the CLRS report data for the"
^DD(446.7,5,21,2,0)="Stock Status Report.  The data reports as follows, with each field in"
^DD(446.7,5,21,3,0)="brackets: <Std Closing Balance Total>*<ODI Closing Balance Total>*<All"
^DD(446.7,5,21,4,0)="Closing Balance Total>*<# Std Receipts>*<# ODI Receipts>*<# All "
^DD(446.7,5,21,5,0)="Receipts>*<# Std Usage>*<# ODI Usage>*<# All Usage>*<# Std Adjustments>*<#"
^DD(446.7,5,21,6,0)="ODI Adjustments>*<# All Adjustments>"
^DD(446.7,5,"DT")="3061219"
^DD(446.7,6,0)="SSR REPORT DATA PT4^F^^6;1^K:$L(X)>200!($L(X)<1) X"
^DD(446.7,6,3)="Answer must be 1-200 characters in length."
^DD(446.7,6,21,0)="^^6^6^3060607^"
^DD(446.7,6,21,1,0)="This field will house the fourth part of the CLRS report data for the "
^DD(446.7,6,21,2,0)="Stock Status Report.  The data reports as follows, with each field in"
^DD(446.7,6,21,3,0)="brackets: <Std Turnover Total>*<ODI Turnover Total>*<All Turnover"
^DD(446.7,6,21,4,0)="Total>*<Std # Inactive Items>*<ODI # Inactive Items>*<All # Inactive"
^DD(446.7,6,21,5,0)="Items>*<Std Inactive Total $>*<ODI Inactive Total $>*<All Inactive Total"
^DD(446.7,6,21,6,0)="$>*<Std Inactive %>*<ODI Inactive %>*<All Inactive %>"
^DD(446.7,6,"DT")="3060606"
^DD(446.7,7,0)="SSR REPORT DATA PT5^F^^7;1^K:$L(X)>200!($L(X)<1) X"
^DD(446.7,7,3)="Answer must be 1-200 characters in length."
^DD(446.7,7,21,0)="^^7^7^3060607^"
^DD(446.7,7,21,1,0)="This field will house the fifth part of the CLRS report data for the "
^DD(446.7,7,21,2,0)="Stock Status Report.  The data reports as follows, with each field in"
^DD(446.7,7,21,3,0)="brackets: <Std # Long Supply>*<ODI # Long Supply>*<All # Long Supply>*<Std"
^DD(446.7,7,21,4,0)="Long Supply Total $>*<ODI Long Supply Total $>*<All Long Supply Total"
^DD(446.7,7,21,5,0)="$>*<Std Long Supply %>*<ODI Long Supply %>*<All Long Supply %>*<Std #"
^DD(446.7,7,21,6,0)="Inventory Line Items>*<ODI # Inventory Line Items>*<All # Inventory Line"
^DD(446.7,7,21,7,0)="Items>"
^DD(446.7,7,"DT")="3060606"
^DD(446.7,"B","SOH REPORT DATA",1)=""
^DD(446.7,"B","SOH REPORT DATA PT2",2)=""
^DD(446.7,"B","SSR REPORT DATA",3)=""
^DD(446.7,"B","SSR REPORT DATA PT2",4)=""
^DD(446.7,"B","SSR REPORT DATA PT3",5)=""
^DD(446.7,"B","SSR REPORT DATA PT4",6)=""
^DD(446.7,"B","SSR REPORT DATA PT5",7)=""
^DD(446.7,"B","STATION/INVENTORY POINT",.01)=""
^DD(446.7,"GL",0,1,.01)=""
^DD(446.7,"GL",1,1,1)=""
^DD(446.7,"GL",2,1,2)=""
^DD(446.7,"GL",3,1,3)=""
^DD(446.7,"GL",4,1,4)=""
^DD(446.7,"GL",5,1,5)=""
^DD(446.7,"GL",6,1,6)=""
^DD(446.7,"GL",7,1,7)=""
^DD(446.7,"IX",.01)=""
^DD(447,0)="FIELD^^3^4"
^DD(447,0,"DDA")="N"
^DD(447,0,"DT")="2940127"
^DD(447,0,"IX","B",447,.01)=""
^DD(447,0,"NM","INVENTORY LOCK MANAGEMENT")=""
^DD(447,0,"SCR")="I $D(DIS(0))!($G(PRCPPRIV))"
^DD(447,0,"VR")="5.1"
^DD(447,0,"VRPK")="IFCAP"
^DD(447,.01,0)="FILE-ENTRY-SUBENTRY^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!('$G(PRCPPRIV)) X"
^DD(447,.01,1,0)="^.1"
^DD(447,.01,1,1,0)="447^B"
^DD(447,.01,1,1,1)="S ^PRCP(447,""B"",$E(X,1,30),DA)="""""
^DD(447,.01,1,1,2)="K ^PRCP(447,""B"",$E(X,1,30),DA)"
^DD(447,.01,3)="Enter the filenumber-entrynumber-subentrynumber, etc."
^DD(447,.01,21,0)="^^1^1^2940127^"
^DD(447,.01,21,1,0)="This field stores the number of the file being locked."
^DD(447,.01,"DT")="2940309"
^DD(447,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(447,1,3)=""
^DD(447,1,21,0)="^^2^2^2940616^"
^DD(447,1,21,1,0)="This field is used to store the user which has locked this file"
^DD(447,1,21,2,0)="or process in inventory."
^DD(447,1,"DT")="2940127"
^DD(447,2,0)="DATE@TIME LOCKED^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(447,2,3)=""
^DD(447,2,21,0)="^^2^2^2940616^"
^DD(447,2,21,1,0)="This fielf is used to store the date and time this file or process"
^DD(447,2,21,2,0)="was locked."
^DD(447,2,"DT")="2940127"
^DD(447,3,0)="PROCESS^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(447,3,3)="Enter the process which applied the lock (1-30 characters)."
^DD(447,3,21,0)="^^2^2^2940616^"
^DD(447,3,21,1,0)="This field is used to store the inventory process/option which was"
^DD(447,3,21,2,0)="locked."
^DD(447,3,"DT")="2940127"
^DD(447,"B","DATE@TIME LOCKED",2)=""
^DD(447,"B","FILE-ENTRY-SUBENTRY",.01)=""
^DD(447,"B","PROCESS",3)=""
^DD(447,"B","USER",1)=""
^DD(447,"GL",0,1,.01)=""
^DD(447,"GL",0,2,1)=""
^DD(447,"GL",0,3,2)=""
^DD(447,"GL",0,4,3)=""
^DD(447,"IX",.01)=""
^DD(447,"RQ",.01)=""
^DD(447.1,0)="FIELD^^11^12"
^DD(447.1,0,"DDA")="N"
^DD(447.1,0,"DT")="3000818"
^DD(447.1,0,"IX","B",447.1,.01)=""
^DD(447.1,0,"NM","AUTOMATED SUPPLY STATION PROCESSING QUEUE")=""
^DD(447.1,0,"VR")="5.1"
^DD(447.1,0,"VRPK")="PRC"
^DD(447.1,.01,0)="NAME^RNJ18,8X^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""9N.N) X"
^DD(447.1,.01,.1)="TRANSACTION NUMBER"
^DD(447.1,.01,1,0)="^.1"
^DD(447.1,.01,1,1,0)="447.1^B"
^DD(447.1,.01,1,1,1)="S ^PRCP(447.1,""B"",$E(X,1,30),DA)="""""
^DD(447.1,.01,1,1,2)="K ^PRCP(447.1,""B"",$E(X,1,30),DA)"
^DD(447.1,.01,3)="Type a Number between 0 and 999999999, 8 Decimal Digits"
^DD(447.1,.01,21,0)="^.001^2^2^3000818^^^"
^DD(447.1,.01,21,1,0)="The transaction number uniquely identifies a transaction record and is"
^DD(447.1,.01,21,2,0)="generated by the HL7 package (.01 FIELD TO FILE 772)."
^DD(447.1,.01,"DT")="3000818"
^DD(447.1,1,0)="STATION NUMBER^F^^0;2^K:$L(X)>10!($L(X)<3) X"
^DD(447.1,1,3)="Answer must be 3-10 characters in length."
^DD(447.1,1,"DT")="3000207"
^DD(447.1,2,0)="SECONDARY INVENTORY POINT^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(447.1,2,3)="Answer must be 1-30 characters in length."
^DD(447.1,2,21,0)="^^3^3^3000207^"
^DD(447.1,2,21,1,0)="Transactions received from an automated supply station will affect one"
^DD(447.1,2,21,2,0)="secondary inventory point.  That point affected by the transaction is"
^DD(447.1,2,21,3,0)="stored in this field."
^DD(447.1,2,"DT")="3000207"
^DD(447.1,3,0)="TRANSACTION RECEIVED^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(447.1,3,21,0)="^^1^1^3000207^"
^DD(447.1,3,21,1,0)="This is the time that the record was added to this file."
^DD(447.1,3,"DT")="3000204"
^DD(447.1,4,0)="MESSAGE/EVENT^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(447.1,4,3)="Answer must be 1-10 characters in length."
^DD(447.1,4,21,0)="^^2^2^3000207^"
^DD(447.1,4,21,1,0)="This field contains the HL& message/event for the transaction record"
^DD(447.1,4,21,2,0)="entry."
^DD(447.1,4,"DT")="3000204"
^DD(447.1,5,0)="HL7 TRANSACTION NUMBERS^FX^^0;6^K:X'?1.10N1"".""1.10N X"
^DD(447.1,5,3)="The IEN from #773 concatenated with a period concatenated with the IEN from #772."
^DD(447.1,5,21,0)="^^2^2^3000818^"
^DD(447.1,5,21,1,0)="This field will contain the iens of the transaction records in file 773"
^DD(447.1,5,21,2,0)="(^HLMA) and 772 (^HL(772)), separated by a decimal point."
^DD(447.1,5,"DT")="3050919"
^DD(447.1,6,0)="ORDER NUMBER^P445.3'^PRCP(445.3,^0;7^Q"
^DD(447.1,6,3)=""
^DD(447.1,6,21,0)="^.001^2^2^3000518^^"
^DD(447.1,6,21,1,0)="If the HL7 transaction has an associated order number, it will be stored"
^DD(447.1,6,21,2,0)="here."
^DD(447.1,6,"DT")="3000518"
^DD(447.1,7,0)="ITEM SPECIFIC INFORMATION^447.17PA^^1;0"
^DD(447.1,7,21,0)="^.001^2^2^3000509^^"
^DD(447.1,7,21,1,0)="This field will contain the item detail associated with the HL7"
^DD(447.1,7,21,2,0)="transactions needing to be processed by GIP."
^DD(447.1,7,"DT")="3000508"
^DD(447.1,8,0)="ACTIVITY DATE/TIME^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(447.1,8,21,0)="^^2^2^3000509^"
^DD(447.1,8,21,1,0)="The date/time sent as part of the transaction record will be kept in this"
^DD(447.1,8,21,2,0)="field."
^DD(447.1,8,"DT")="3000509"
^DD(447.1,9,0)="RECIPIENT^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(447.1,9,3)="Answer must be 1-30 characters in length."
^DD(447.1,9,21,0)="^^2^2^3000509^"
^DD(447.1,9,21,1,0)="This field will contain the person or entity, when supplied, who received"
^DD(447.1,9,21,2,0)="supplies withdrawn from the supply station."
^DD(447.1,9,"DT")="3000509"
^DD(447.1,10,0)="USER^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(447.1,10,3)="Answer must be 1-30 characters in length."
^DD(447.1,10,21,0)="^^2^2^3000509^"
^DD(447.1,10,21,1,0)="This field holds the anme of the person responsible for performing the"
^DD(447.1,10,21,2,0)="supply station activity that generated this transaction."
^DD(447.1,10,"DT")="3000509"
^DD(447.1,11,0)="REASON^F^^0;11^K:$L(X)>60!($L(X)<1) X"
^DD(447.1,11,3)="Answer must be 1-60 characters in length."
^DD(447.1,11,21,0)="^^2^2^3000509^"
^DD(447.1,11,21,1,0)="This field contains additional information about the activity responsible"
^DD(447.1,11,21,2,0)="for the transaction."
^DD(447.1,11,"DT")="3000509"
^DD(447.1,"B","ACTIVITY DATE/TIME",8)=""
^DD(447.1,"B","HL7 TRANSACTION NUMBERS",5)=""
^DD(447.1,"B","ITEM SPECIFIC INFORMATION",7)=""
^DD(447.1,"B","MESSAGE/EVENT",4)=""
^DD(447.1,"B","NAME",.01)=""
^DD(447.1,"B","ORDER NUMBER",6)=""
^DD(447.1,"B","REASON",11)=""
^DD(447.1,"B","RECIPIENT",9)=""
^DD(447.1,"B","SECONDARY INVENTORY POINT",2)=""
^DD(447.1,"B","STATION NUMBER",1)=""
^DD(447.1,"B","TRANSACTION NUMBER",.01)="1"
^DD(447.1,"B","TRANSACTION RECEIVED",3)=""
^DD(447.1,"B","USER",10)=""
^DD(447.1,"GL",0,1,.01)=""
^DD(447.1,"GL",0,2,1)=""
^DD(447.1,"GL",0,3,2)=""
^DD(447.1,"GL",0,4,3)=""
^DD(447.1,"GL",0,5,4)=""
^DD(447.1,"GL",0,6,5)=""
^DD(447.1,"GL",0,7,6)=""
^DD(447.1,"GL",0,8,8)=""
^DD(447.1,"GL",0,9,9)=""
^DD(447.1,"GL",0,10,10)=""
^DD(447.1,"GL",0,11,11)=""
^DD(447.1,"GL",1,0,7)=""
^DD(447.1,"IX",.01)=""
^DD(447.1,"RQ",.01)=""
^DD(447.1,"SB",447.17,7)=""
^DD(447.17,0)="ITEM SPECIFIC INFORMATION SUB-FIELD^^3^4"
^DD(447.17,0,"DT")="3000509"
^DD(447.17,0,"IX","B",447.17,.01)=""
^DD(447.17,0,"NM","ITEM SPECIFIC INFORMATION")=""
^DD(447.17,0,"UP")="447.1"
^DD(447.17,.01,0)="ITEM NUMBER^P441'^PRC(441,^0;1^Q"
^DD(447.17,.01,.1)="ITEM"
^DD(447.17,.01,1,0)="^.1"
^DD(447.17,.01,1,1,0)="447.17^B"
^DD(447.17,.01,1,1,1)="S ^PRCP(447.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(447.17,.01,1,1,2)="K ^PRCP(447.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(447.17,.01,3)=""
^DD(447.17,.01,21,0)="^^1^1^3000508^"
^DD(447.17,.01,21,1,0)="This field contains the item associated that needs to be updated in GIP."
^DD(447.17,.01,"DT")="3000508"
^DD(447.17,1,0)="AMOUNT LEFT^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(447.17,1,3)="Type a Number between -999999 and 999999, 0 Decimal Digits"
^DD(447.17,1,21,0)="^^2^2^3000508^"
^DD(447.17,1,21,1,0)="this field signifies the quantity of item that remained in the supply"
^DD(447.17,1,21,2,0)="station after the action generating the transaction was completed."
^DD(447.17,1,"DT")="3000508"
^DD(447.17,2,0)="QUANTITY AFFECTED^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(447.17,2,3)="Type a Number between -999999 and 999999, 0 Decimal Digits"
^DD(447.17,2,21,0)="^^2^2^3000508^"
^DD(447.17,2,21,1,0)="This is the quantity that was part of the transation.  For example, 5 used"
^DD(447.17,2,21,2,0)="or adjusted count by 7."
^DD(447.17,2,"DT")="3000508"
^DD(447.17,3,0)="ITEM NAME (DESCRIPTION)^F^^0;4^K:$L(X)>60!($L(X)<1) X"
^DD(447.17,3,3)="Answer must be 1-60 characters in length."
^DD(447.17,3,21,0)="^^1^1^3000509^"
^DD(447.17,3,21,1,0)="this is the supply station name for the item"
^DD(447.17,3,"DT")="3000509"
^DD(447.17,"B","AMOUNT LEFT",1)=""
^DD(447.17,"B","ITEM",.01)="1"
^DD(447.17,"B","ITEM NAME (DESCRIPTION)",3)=""
^DD(447.17,"B","ITEM NUMBER",.01)=""
^DD(447.17,"B","QUANTITY AFFECTED",2)=""
^DD(447.17,"GL",0,1,.01)=""
^DD(447.17,"GL",0,2,1)=""
^DD(447.17,"GL",0,3,2)=""
^DD(447.17,"GL",0,4,3)=""
^DD(447.17,"IX",.01)=""
^DD(450,0)="FIELD^^765^764"
^DD(450,0,"DDA")="N"
^DD(450,0,"DT")="2950911"
^DD(450,0,"ID",8)="W ?30,$E($P(^(0),U,9),1,3)_""-""_$E($P(^(0),U,9),4,5)_""-""_$E($P(^(0),U,9),6,9)"
^DD(450,0,"IX","AC",450,8)=""
^DD(450,0,"IX","ACC",450,458)=""
^DD(450,0,"IX","AMC",450.0633,.01)=""
^DD(450,0,"IX","ARG",450.0632,.01)=""
^DD(450,0,"IX","ATL",450,7)=""
^DD(450,0,"IX","ATL1",450,.01)=""
^DD(450,0,"IX","B",450,.01)=""
^DD(450,0,"IX","BS",450,8)=""
^DD(450,0,"IX","BS1",450,.01)=""
^DD(450,0,"IX","SSN",450,8)=""
^DD(450,0,"NM","PAID EMPLOYEE")=""
^DD(450,0,"PT",200,450)=""
^DD(450,0,"PT",458.01,.01)=""
^DD(450,0,"PT",458.1,1)=""
^DD(450,0,"PT",458.2,1)=""
^DD(450,0,"PT",458.3,1)=""
^DD(450,0,"PT",458.4,2)=""
^DD(450,0,"PT",458.5,1)=""
^DD(450,0,"PT",458.6,1)=""
^DD(450,0,"PT",458.7,.01)=""
^DD(450,0,"PT",458.8,.01)=""
^DD(450,0,"PT",459.01,.01)=""
^DD(450,0,"VR")="4.0"
^DD(450,.01,0)="EMPLOYEE NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>27!($L(X)<3)!(X[""."")!(X["", "")!(X["",-"")!(X[""-,"")!(X'?.U.1"" "".1""-"".U.1"" "".U1"","".U.1""-"".U."" "".U."" "".U&(X'?1U.U1"",,"")) X"
^DD(450,.01,1,0)="^.1"
^DD(450,.01,1,1,0)="450^B"
^DD(450,.01,1,1,1)="S ^PRSPC(""B"",$E(X,1,30),DA)="""""
^DD(450,.01,1,1,2)="K ^PRSPC(""B"",$E(X,1,30),DA)"
^DD(450,.01,1,2,0)="450^BS1^MUMPS"
^DD(450,.01,1,2,1)="Q:$P(^PRSPC(DA,0),U,9)']""""  S ^PRSPC(""BS"",$E(X,1)_$E($P(^(0),U,9),6,9),DA)="""""
^DD(450,.01,1,2,2)="Q:$P(^PRSPC(DA,0),U,9)']""""  K ^PRSPC(""BS"",$E(X,1)_$E($P(^(0),U,9),6,9),DA)"
^DD(450,.01,1,2,"%D",0)="^^1^1^2921009^^"
^DD(450,.01,1,2,"%D",1,0)="First letter of NAME field concatinated with last four digits of SSN field."
^DD(450,.01,1,2,"DT")="2920116"
^DD(450,.01,1,3,0)="450^ATL1^MUMPS"
^DD(450,.01,1,3,1)="S X1=$P(^PRSPC(DA,0),""^"",8) I X1'="""" S ^PRSPC(""ATL""_X1,X,DA)="""""
^DD(450,.01,1,3,2)="S X1=$P(^PRSPC(DA,0),""^"",8) I X1'="""" K ^PRSPC(""ATL""_X1,X,DA)"
^DD(450,.01,1,3,"%D",0)="^^1^1^2930119^^"
^DD(450,.01,1,3,"%D",1,0)="Cross reference by T&L UNIT and by NAME within T&L UNIT."
^DD(450,.01,1,3,"DT")="2921013"
^DD(450,.01,3)="Enter the EMPLOYEE NAME in the format LAST,FIRST MIDDLE. Be sure to include the comma between the last and first names. The maximum length is 27 characters."
^DD(450,.01,8)="FP"
^DD(450,.01,21,0)="^^5^5^2930222^^^^"
^DD(450,.01,21,1,0)="An employee name has the following order and meaning: LAST NAME,"
^DD(450,.01,21,2,0)="followed by a comma; FIRST NAME or INITIAL; a blank space; MIDDLE"
^DD(450,.01,21,3,0)="NAME or INITIAL; and if applicable, a blank space, JR, SR or INITIAL."
^DD(450,.01,21,4,0)="For example, DOE,JOHN T JR. No periods are placed after either initials"
^DD(450,.01,21,5,0)="or titles."
^DD(450,.01,"DT")="2930107"
^DD(450,1,0)="ADDNL LIFE INSURANCE^F^^0;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,1,3)="Answer must be 1 character in length."
^DD(450,1,8)="FP"
^DD(450,1,21,0)="^^4^4^2930222^^^^"
^DD(450,1,21,1,0)="Code indicates the amount of additional basic life insurance"
^DD(450,1,21,2,0)="applicable to projectable rotating or permanent tours of duty at"
^DD(450,1,21,3,0)="night rates for shift 2 or 3. Applies to hourly rate Wage or Veteran"
^DD(450,1,21,4,0)="Canteen Service employees."
^DD(450,1,"DT")="2910603"
^DD(450,2,0)="STATION EOD^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,2,3)=""
^DD(450,2,8)="FP"
^DD(450,2,21,0)="^^5^5^2930409^^^^"
^DD(450,2,21,1,0)="Station entered-on-duty date."
^DD(450,2,21,2,0)=" "
^DD(450,2,21,3,0)=" "
^DD(450,2,21,4,0)=" "
^DD(450,2,21,5,0)=" "
^DD(450,2,"DT")="2930130"
^DD(450,3,0)="ASSIGNMENT^FO^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(450,3,2)="S Y(0)=Y D:'$D(DIS(0)) AC^PRSDUTIL"
^DD(450,3,2.1)="D:'$D(DIS(0)) AC^PRSDUTIL"
^DD(450,3,3)="Answer must be 2 characters in length."
^DD(450,3,8)="FP"
^DD(450,3,21,0)="^^4^4^2921020^^^^"
^DD(450,3,21,1,0)="Identifies the specialty assignment of physicians, dentists and nurses; the"
^DD(450,3,21,2,0)="religious denomination of chaplains; summer employees, trainees and other"
^DD(450,3,21,3,0)="special programs.  Must be used with both the occupation series code and the"
^DD(450,3,21,4,0)="occupation series title."
^DD(450,3,"DT")="2921019"
^DD(450,4,0)="CITIZENSHIP^FO^^0;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,4,2)="S Y(0)=Y S SUB454=""CIT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,4,2.1)="S SUB454=""CIT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,4,3)="Answer must be 1 character in length."
^DD(450,4,8)="FP"
^DD(450,4,21,0)="^^1^1^2930219^^^^"
^DD(450,4,21,1,0)="Field indicates an employee's United States citizenship status."
^DD(450,4,"DT")="2921016"
^DD(450,5,0)="INSTRUCTIONAL PROGRAM^FO^^0;6^K:$L(X)>6!($L(X)<4) X"
^DD(450,5,2)="S Y(0)=Y S SUB454=""MAJ"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,5,2.1)="S SUB454=""MAJ"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,5,3)="Answer must be 4 to 6 characters in length."
^DD(450,5,8)="P"
^DD(450,5,21,0)="1^^1^1^2930524^^^^"
^DD(450,5,21,1,0)="An employee's major field of study."
^DD(450,5,"DT")="2930514"
^DD(450,6,0)="STATION NUMBER^F^^0;7^K:$L(X)>3!($L(X)<3) X"
^DD(450,6,1,0)="^.1^^0"
^DD(450,6,3)="Answer must be 3 characters in length."
^DD(450,6,8)="FP"
^DD(450,6,21,0)="^^2^2^2930223^^^^"
^DD(450,6,21,1,0)="The number assigned to a Department of Veterans Affairs (VA) Installation"
^DD(450,6,21,2,0)="for identification and control purposes."
^DD(450,6,"DT")="2921021"
^DD(450,7,0)="T & L UNIT^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X"
^DD(450,7,1,0)="^.1"
^DD(450,7,1,1,0)="450^ATL^MUMPS"
^DD(450,7,1,1,1)="S X1=$P(^PRSPC(DA,0),""^"",1),^PRSPC(""ATL""_X,X1,DA)="""""
^DD(450,7,1,1,2)="S X1=$P(^PRSPC(DA,0),""^"",1) K ^PRSPC(""ATL""_X,X1,DA)"
^DD(450,7,1,1,"%D",0)="^^1^1^2910925^"
^DD(450,7,1,1,"%D",1,0)="Cross reference by T&L UNIT and by NAME within T&L UNIT."
^DD(450,7,1,1,"DT")="2910925"
^DD(450,7,3)="Answer must be 3 characters in length."
^DD(450,7,8)="FP"
^DD(450,7,21,0)="^^2^2^2930519^^^^"
^DD(450,7,21,1,0)="The number identifies a specific group of employees for time and leave"
^DD(450,7,21,2,0)="tracking purposes."
^DD(450,7,"DT")="2930519"
^DD(450,8,0)="SSN^RFOX^^0;9^K:X'?9N X I $D(X) S X(1)=$O(^PRSPC(""SSN"",X,0)) I $D(DA)#2,(X(1)>0),(X(1)'=DA) W *7,""  Already used by "",$P(^PRSPC(X(1),0),U,1) K X Q"
^DD(450,8,1,0)="^.1"
^DD(450,8,1,1,0)="450^SSN"
^DD(450,8,1,1,1)="S ^PRSPC(""SSN"",$E(X,1,30),DA)="""""
^DD(450,8,1,1,2)="K ^PRSPC(""SSN"",$E(X,1,30),DA)"
^DD(450,8,1,1,"DT")="2910610"
^DD(450,8,1,2,0)="450^BS^MUMPS"
^DD(450,8,1,2,1)="S ^PRSPC(""BS"",$E(^PRSPC(DA,0),1)_$E(X,6,9),DA)="""""
^DD(450,8,1,2,2)="K ^PRSPC(""BS"",$E(^PRSPC(DA,0),1)_$E(X,6,9),DA)"
^DD(450,8,1,2,"%D",0)="^^3^3^2940524^"
^DD(450,8,1,2,"%D",1,0)="This cross-reference is based upon the first letter of the last name"
^DD(450,8,1,2,"%D",2,0)="and the last four digits of the SSN.  It is analagous to a similar"
^DD(450,8,1,2,"%D",3,0)="cross-reference of the patient file and allows for quick selections."
^DD(450,8,1,2,"DT")="2920116"
^DD(450,8,1,3,0)="450^AC^MUMPS"
^DD(450,8,1,3,1)="D SET200^PRSD450"
^DD(450,8,1,3,2)="D KILL200^PRSD450"
^DD(450,8,1,3,"%D",0)="^^3^3^2950428^^^^"
^DD(450,8,1,3,"%D",1,0)="This cross-reference will set or kill the NEW PERSON pointer in the PAID"
^DD(450,8,1,3,"%D",2,0)="EMPLOYEE file and the PAID EMPLOYEE pointer in the NEW PERSON file whenever"
^DD(450,8,1,3,"%D",3,0)="the SSN value is changed or deleted."
^DD(450,8,1,3,"DT")="2950426"
^DD(450,8,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(450,8,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(450,8,3)="Answer must be 9 characters in length."
^DD(450,8,8)="FP"
^DD(450,8,21,0)="^^3^3^2930223^^^^"
^DD(450,8,21,1,0)="The number used for identification and control purposes to refer to an"
^DD(450,8,21,2,0)="employee."
^DD(450,8,21,3,0)=" "
^DD(450,8,"DT")="2950426"
^DD(450,9,0)="DUTY BASIS^FO^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(450,9,2)="S Y(0)=Y S SUB454=""DB"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,9,2.1)="S SUB454=""DB"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,9,3)="Answer must be 1 character in length."
^DD(450,9,8)="FP"
^DD(450,9,21,0)="^^3^3^2930813^^^^"
^DD(450,9,21,1,0)="Code identifies the time basis that an employee is scheduled to work.  An"
^DD(450,9,21,2,0)="employee may have a full-time, part-time or intermittent basis work"
^DD(450,9,21,3,0)="schedule."
^DD(450,9,"DT")="2911211"
^DD(450,10,0)="EDUCATION^FO^^0;11^K:$L(X)>1!($L(X)<1) X"
^DD(450,10,2)="S Y(0)=Y S SUB454=""EDU"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,10,2.1)="S SUB454=""EDU"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,10,3)="Answer must be 1 character in length."
^DD(450,10,8)="P"
^DD(450,10,21,0)="^^2^2^2930813^^^^"
^DD(450,10,21,1,0)="Field identifies an employee's educational attainment. Code is based"
^DD(450,10,21,2,0)="on years of schooling and academic degrees conferred."
^DD(450,10,"DT")="2930813"
^DD(450,11,0)="FLSA^FO^^0;12^K:$L(X)>1!($L(X)<1) X"
^DD(450,11,2)="S Y(0)=Y S SUB454=""FLS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,11,2.1)="S SUB454=""FLS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,11,3)="Answer must be 1 character in length."
^DD(450,11,8)="FP"
^DD(450,11,21,0)="^^2^2^2930222^^^^"
^DD(450,11,21,1,0)="Code identifies whether an employee is covered under the Fair Labor"
^DD(450,11,21,2,0)="Standards Act (FLSA) minimum wage and overtime provisions."
^DD(450,11,"DT")="2930222"
^DD(450,12,0)="FUNCTIONAL CODE^FO^^0;13^K:$L(X)>2!($L(X)<2) X"
^DD(450,12,2)="S Y(0)=Y S SUB454=""FUN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,12,2.1)="S SUB454=""FUN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,12,3)="Answer must be 2 characters in length."
^DD(450,12,8)="P"
^DD(450,12,21,0)="^^2^2^2930222^^^^"
^DD(450,12,21,1,0)="Code identifies the primary work function of the position.  Applies to"
^DD(450,12,21,2,0)="scientist and engineering positions."
^DD(450,12,"DT")="2911211"
^DD(450,13,0)="GRADE^FX^^0;14^K:$L(X)>2!($L(X)<1)!(X'?1.2N) X I $D(X) K:+X>18!(+X<1) X"
^DD(450,13,3)="Type a number between 1 and 18, 0 Decimal Digits"
^DD(450,13,8)="FP"
^DD(450,13,21,0)="^^2^2^2930222^^^^"
^DD(450,13,21,1,0)="An indicator of hierarchal relationships among positions covered by the"
^DD(450,13,21,2,0)="same pay plan or system."
^DD(450,13,"DT")="2910628"
^DD(450,14,0)="LEAVE GROUP^FO^^0;15^K:$L(X)>1!($L(X)<1) X"
^DD(450,14,2)="S Y(0)=Y S SUB454=""LVG"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,14,2.1)="S SUB454=""LVG"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,14,3)="Answer must be 1 character in length."
^DD(450,14,8)="FP"
^DD(450,14,21,0)="^^3^3^2930223^^^^"
^DD(450,14,21,1,0)="Indicates an employee's eligibility for leave.  Also indicates"
^DD(450,14,21,2,0)="the basis under a leave system for determining the rate of leave"
^DD(450,14,21,3,0)="accrual."
^DD(450,14,"DT")="2911211"
^DD(450,15,0)="8B NORMAL HOURS^NJ3,0^^0;16^K:+X'=X!(X>169)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,15,3)="Type a Number between 0 and 169, 0 Decimal Digits"
^DD(450,15,8)="FP"
^DD(450,15,21,0)="^^2^2^2911107^^^"
^DD(450,15,21,1,0)="The number of hours an employee is hired to work each pay period. Hours"
^DD(450,15,21,2,0)="are established or changed by an official personnel action."
^DD(450,15,"DT")="2910924"
^DD(450,15.5,0)="OCCUPATION SERIES CODE^CJ4^^ ; ^X ^DD(450,15.5,9.2) S X=$E(Y(450,15.5,2),Y(450,15.5,3),X)"
^DD(450,15.5,8)="FP"
^DD(450,15.5,9)="^"
^DD(450,15.5,9.01)="450^16"
^DD(450,15.5,9.1)="$E(INTERNAL(#16),1,4)"
^DD(450,15.5,9.2)="S Y(450,15.5,1)=$S($D(^PRSPC(D0,0)):^(0),1:"""") S X=$P(Y(450,15.5,1),U,17),X=X S X=X,Y(450,15.5,2)=X S X=1,Y(450,15.5,3)=X S X=4"
^DD(450,15.5,21,0)="^^2^2^2930222^^^^"
^DD(450,15.5,21,1,0)="Code that identifies the subdivision of an occupational family or group"
^DD(450,15.5,21,2,0)="under which an employee's position is classified."
^DD(450,15.5,"DT")="2930224"
^DD(450,16,0)="OCCUPATION SERIES & TITLE^FOX^^0;17^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6) X"
^DD(450,16,1,0)="^.1^^0"
^DD(450,16,2)="S Y(0)=Y D OST^PRSDUTIL"
^DD(450,16,2.1)="D OST^PRSDUTIL"
^DD(450,16,3)="Answer must be 6 characters in length."
^DD(450,16,8)="FP"
^DD(450,16,21,0)="^^3^3^2940414^^^^"
^DD(450,16,21,1,0)="Code that identifies the subdivision of an occupational family or group"
^DD(450,16,21,2,0)="under which an employee's position is classified."
^DD(450,16,21,3,0)=" "
^DD(450,16,"DT")="2950822"
^DD(450,17,0)="LABOR DIST CODE-1 COST CENTER^FO^^0;18^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X"
^DD(450,17,1,0)="^.1^^0"
^DD(450,17,2)="S Y(0)=Y S SUB454=""CC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,17,2.1)="S SUB454=""CC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,17,3)="Answer must be 4 characters in length."
^DD(450,17,8)="FP"
^DD(450,17,21,0)="^^3^3^3030626^^^^"
^DD(450,17,21,1,0)="Identifies the Cost Center for fund appropriation accounting.  This is related"
^DD(450,17,21,2,0)="to the first of four possible Labor Distribution codes."
^DD(450,17,21,3,0)=" "
^DD(450,17,"DT")="3030626"
^DD(450,18,0)="SUBACCT CODE^F^^0;19^K:$L(X)>2!($L(X)<2) X"
^DD(450,18,3)="Answer must be 2 characters in length."
^DD(450,18,8)="FP"
^DD(450,18,21,0)="^^3^3^2921215^^^"
^DD(450,18,21,1,0)="Identifies a type of cost expenditure such as one of the personal"
^DD(450,18,21,2,0)="service codes, one of the travel and transportation codes, etc., used"
^DD(450,18,21,3,0)="for cost accounting purposes."
^DD(450,18,"DT")="2921016"
^DD(450,19,0)="PAY BASIS^FO^^0;20^K:$L(X)>1!($L(X)<1) X"
^DD(450,19,2)="S Y(0)=Y S SUB454=""PB"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,19,2.1)="S SUB454=""PB"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,19,3)="Answer must be 1 character in length."
^DD(450,19,8)="FP"
^DD(450,19,21,0)="^^2^2^2930223^^^^"
^DD(450,19,21,1,0)="Code identifies the principal condition in terms of time, production"
^DD(450,19,21,2,0)="or other criteria that serve as a basis for computing pay."
^DD(450,19,"DT")="2911211"
^DD(450,20,0)="PAY PLAN^FO^^0;21^K:$L(X)>1!($L(X)<1) X"
^DD(450,20,2)="S Y(0)=Y S SUB454=""PP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,20,2.1)="S SUB454=""PP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,20,3)="Answer must be 1 character in length."
^DD(450,20,8)="FP"
^DD(450,20,21,0)="^^2^2^2930409^^^^"
^DD(450,20,21,1,0)="Code identifies the pay system under which the employee's compensation"
^DD(450,20,21,2,0)="is determined."
^DD(450,20,"DT")="2930729"
^DD(450,21,0)="PAY RATE DETERMINANT^FO^^0;22^K:$L(X)>1!($L(X)<1) X"
^DD(450,21,2)="S Y(0)=Y S SUB454=""PRD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,21,2.1)="S SUB454=""PRD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,21,3)="Answer must be 1 character in length."
^DD(450,21,8)="P"
^DD(450,21,21,0)="^^2^2^2930223^^^"
^DD(450,21,21,1,0)="Identifies special factors that were considered in determining an employee's"
^DD(450,21,21,2,0)="salary."
^DD(450,21,"DT")="2911211"
^DD(450,22,0)="PERF/PROFCY RATING CODE^FO^^0;23^K:$L(X)>1!($L(X)<1) X"
^DD(450,22,2)="S Y(0)=Y S SUB454=""PPR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,22,2.1)="S SUB454=""PPR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,22,3)="Answer must be 1 character in length."
^DD(450,22,8)="P"
^DD(450,22,21,0)="^^2^2^2930223^^^"
^DD(450,22,21,1,0)="The code used to identify an employee's level of performance/proficiency."
^DD(450,22,21,2,0)=" "
^DD(450,22,"DT")="2930223"
^DD(450,23,0)="POSITION NUMBER^F^^0;24^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1)!'(X?.AN) X"
^DD(450,23,1,0)="^.1^^0"
^DD(450,23,3)="Answer must be 1-6 characters in length."
^DD(450,23,8)="FP"
^DD(450,23,21,0)="^^5^5^2950419^^^^"
^DD(450,23,21,1,0)="The number assigned to an employee's position under a pay system which"
^DD(450,23,21,2,0)="requires a position number.  The last character in the number indicates"
^DD(450,23,21,3,0)="if the position can be filled by more than one employee and if it is a"
^DD(450,23,21,4,0)="permanent or temporary position."
^DD(450,23,21,5,0)=" "
^DD(450,23,"DT")="2911101"
^DD(450,24,0)="PRIOR PERFORMANCE 1^FO^^0;25^K:$L(X)>1!($L(X)<1) X"
^DD(450,24,2)="S Y(0)=Y S SUB454=""PPR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,24,2.1)="S SUB454=""PPR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,24,3)="Answer must be 1 character in length."
^DD(450,24,8)="P"
^DD(450,24,21,0)="^^2^2^2911107^"
^DD(450,24,21,1,0)="Code identifies an assigned level of achievement for an employee's"
^DD(450,24,21,2,0)="accomplishment of assigned tasks for the past rating period."
^DD(450,24,"DT")="2930223"
^DD(450,25,0)="PRIOR PERFORMANCE 2^FO^^0;26^K:$L(X)>1!($L(X)<1) X"
^DD(450,25,2)="S Y(0)=Y S SUB454=""PPR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,25,2.1)="S SUB454=""PPR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,25,3)="Answer must be 1 character in length."
^DD(450,25,8)="P"
^DD(450,25,21,0)="^^2^2^2911107^"
^DD(450,25,21,1,0)="Code identifies an assigned level of achievement for an employee's"
^DD(450,25,21,2,0)="accomplishment of assigned tasks for the second past rating period."
^DD(450,25,"DT")="2930223"
^DD(450,26,0)="RETIREMENT CODE^FO^^0;27^K:$L(X)>1!($L(X)<1) X"
^DD(450,26,2)="S Y(0)=Y S SUB454=""RET"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,26,2.1)="S SUB454=""RET"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,26,3)="Answer must be 1 character in length."
^DD(450,26,8)="FP"
^DD(450,26,21,0)="^^2^2^2930223^^^"
^DD(450,26,21,1,0)="Identifies the retirement system and type of retirement that covers an"
^DD(450,26,21,2,0)="employee."
^DD(450,26,"DT")="2911211"
^DD(450,27,0)="SALARY DATE^D^^0;28^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,27,3)=""
^DD(450,27,8)="FP"
^DD(450,27,21,0)="^^2^2^2930223^^^"
^DD(450,27,21,1,0)="The salary date indicates the beginning of the employee's waiting period for"
^DD(450,27,21,2,0)="the next within-grade increase."
^DD(450,27,"DT")="2910604"
^DD(450,28,0)="SALARY^NJ10,2^^0;29^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,28,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,28,8)="FP"
^DD(450,28,21,0)="^^3^3^2930223^^"
^DD(450,28,21,1,0)="Rate of compensation which is payable to an employee. The rate is"
^DD(450,28,21,2,0)="used in computing salary payments. The rate does not include night"
^DD(450,28,21,3,0)="differential or other premium pay."
^DD(450,28,"DT")="2930223"
^DD(450,29,0)="SCHEDULED SALARY RATE^NJ10,2^^0;30^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,29,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,29,8)="FP"
^DD(450,29,21,0)="^^3^3^2930223^^^^"
^DD(450,29,21,1,0)="The rate of compensation shown on the salary schedule for an employee's"
^DD(450,29,21,2,0)="grade which the employee would receive if there was no legislative cap"
^DD(450,29,21,3,0)="on the amount which can be paid."
^DD(450,29,"DT")="2930223"
^DD(450,30,0)="SERVICE COMPUTATION DATE^D^^0;31^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,30,3)=""
^DD(450,30,8)="FP"
^DD(450,30,21,0)="^^4^4^2930223^^^"
^DD(450,30,21,1,0)="Service Computation Date (SCD) is the date computed based on the employee's"
^DD(450,30,21,2,0)="prior Federal civilian and military service which is used to determine "
^DD(450,30,21,3,0)="benefits which are based on how long the person has been in the Federal"
^DD(450,30,21,4,0)="service."
^DD(450,30,"DT")="2910604"
^DD(450,31,0)="SEX^FO^^0;32^K:$L(X)>1!($L(X)<1) X"
^DD(450,31,2)="S Y(0)=Y S SUB454=""SEX"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,31,2.1)="S SUB454=""SEX"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,31,3)="Answer must be 1 character in length."
^DD(450,31,8)="FP"
^DD(450,31,21,0)="^^1^1^2930223^^^^"
^DD(450,31,21,1,0)="Indicates whether an individual is male or female."
^DD(450,31,"DT")="2911211"
^DD(450,32,0)="DATE OF BIRTH^D^^0;33^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,32,3)=""
^DD(450,32,8)="FP"
^DD(450,32,21,0)="1^^1^1^2930219^^"
^DD(450,32,21,1,0)="The month, day and year an employee was born."
^DD(450,32,"DT")="2910605"
^DD(450,33,0)="ACTUAL SSN^F^^0;34^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,33,3)="Answer must be 9 numerics in length."
^DD(450,33,8)="FP"
^DD(450,33,21,0)="^^3^3^2911121^^"
^DD(450,33,21,1,0)="Indicates the employee's actual social security number when a dummy"
^DD(450,33,21,2,0)="number was assigned for the social security number because the employee"
^DD(450,33,21,3,0)="has two appointments at the same facility."
^DD(450,33,"DT")="2910924"
^DD(450,34,0)="NEW SSN^F^^0;35^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,34,3)="Answer must be 9 characters in length."
^DD(450,34,8)="FP"
^DD(450,34,21,0)="3"
^DD(450,34,21,1,0)="This is the social security number that replaces the previous number."
^DD(450,34,21,2,0)="The previous number may have been invalid or a temporarily assigned"
^DD(450,34,21,3,0)="number while the employee applied for a social security number."
^DD(450,34,"DT")="2910924"
^DD(450,35,0)="SSN SUFFIX^F^^0;36^K:$L(X)>1!($L(X)<1) X"
^DD(450,35,3)="Answer must be 1 character in length."
^DD(450,35,8)="F"
^DD(450,35,21,0)="^^4^4^2911106^"
^DD(450,35,21,1,0)="Is used to identify an employee fitting one of the following conditions:"
^DD(450,35,21,2,0)="dual appointment (2 master records); dual appropriation (1 master record,"
^DD(450,35,21,3,0)="two different jobs); corporate employer identification number (EIN). This"
^DD(450,35,21,4,0)="field is currently inactive."
^DD(450,35,"DT")="2910603"
^DD(450,36,0)="STATION MAINTAINING OPF^F^^0;37^K:$L(X)>3!($L(X)<3) X"
^DD(450,36,3)="Answer must be 3 characters in length."
^DD(450,36,8)="FP"
^DD(450,36,21,0)="^^2^2^2930223^^^"
^DD(450,36,21,1,0)="Identifies the station number where an employee's official personnel"
^DD(450,36,21,2,0)="folder is maintained."
^DD(450,36,"DT")="2930108"
^DD(450,37,0)="COMPETITIVE LEVEL^F^^0;38^K:$L(X)>3!($L(X)<3) X"
^DD(450,37,2)="S Y(0)=Y S SUB454=""CL"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,37,2.1)="S SUB454=""CL"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,37,3)="Answer must be 3 characters in length."
^DD(450,37,8)="P"
^DD(450,37,21,0)="^^4^4^2930128^^^^"
^DD(450,37,21,1,0)="Identifies positions in a competitive area that are the same grade or"
^DD(450,37,21,2,0)="occupational level and which are so similar that employees may be assigned"
^DD(450,37,21,3,0)="from one position to another during a reduction in force (RIF)."
^DD(450,37,21,4,0)=" "
^DD(450,37,"DT")="2921021"
^DD(450,38,0)="STEP^F^^0;39^K:$L(X)>2!($L(X)<1)!'(X=""N""!(X?1.2N)) X"
^DD(450,38,3)="Answer must be 1-2 characters in length."
^DD(450,38,8)="FP"
^DD(450,38,21,0)="^^2^2^2930223^^^^"
^DD(450,38,21,1,0)="An indicator of a specific salary within a specific grade or level pay band."
^DD(450,38,21,2,0)=" "
^DD(450,38,"DT")="2910628"
^DD(450,39,0)="SUPERVISORY LEVEL^F^^0;40^K:$L(X)>1!($L(X)<1) X"
^DD(450,39,3)="Answer must be 1 character in length."
^DD(450,39,8)="FP"
^DD(450,39,21,0)="^^2^2^2930223^^^"
^DD(450,39,21,1,0)="Indicates if an employee holds a supervisory position and, if so, the level"
^DD(450,39,21,2,0)="of supervision."
^DD(450,39,"DT")="2930115"
^DD(450,40,0)="TEMPORARY HEALTH INSURANCE IND^FO^^0;41^K:$L(X)>1!($L(X)<1) X"
^DD(450,40,2)="S Y(0)=Y S:'$D(DIS(0)) Y=$S(Y=""N"":""NA"",Y=""T"":""TEMPORARY WITH HEALTH INSURANCE"",1:Y)"
^DD(450,40,2.1)="S:'$D(DIS(0)) Y=$S(Y=""N"":""NA"",Y=""T"":""TEMPORARY WITH HEALTH INSURANCE"",1:Y)"
^DD(450,40,3)="Answer must be 1 character in length."
^DD(450,40,8)="FP"
^DD(450,40,21,0)="^^3^3^2930223^^^"
^DD(450,40,21,1,0)="Code indicates that a temporary employee has elected health insurance"
^DD(450,40,21,2,0)="and that deductions are to be taken for both the employee's share and"
^DD(450,40,21,3,0)="the government's share of the premium."
^DD(450,40,"DT")="2930205"
^DD(450,41,0)="SUPERVISOR/LEAD IND^F^^0;42^K:$L(X)>1!($L(X)<1) X"
^DD(450,41,3)="Answer must be 1 character in length."
^DD(450,41,8)="FP"
^DD(450,41,21,0)="^^2^2^2920910^^^"
^DD(450,41,21,1,0)="Code identifies the employee as a supervisor, work leader, general foreman,"
^DD(450,41,21,2,0)="foreman or helper."
^DD(450,41,"DT")="2930205"
^DD(450,42,0)="TYPE OF APPOINTMENT^FO^^0;43^K:$L(X)>1!($L(X)<1) X"
^DD(450,42,2)="S Y(0)=Y S SUB454=""TA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,42,2.1)="S SUB454=""TA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,42,3)="Answer must be 1 character in length."
^DD(450,42,8)="FP"
^DD(450,42,21,0)="^^5^5^2911121^^^"
^DD(450,42,21,1,0)="Code identifies the type of appointment (Career Conditional, Career, etc.)"
^DD(450,42,21,2,0)="under which an employee is serving and indicates whether the appointment"
^DD(450,42,21,3,0)="is in the competitive service, excepted service, or Senior Executive"
^DD(450,42,21,4,0)="Service (SES). The code also indicates whether the appointment is"
^DD(450,42,21,5,0)="permanent or temporary, and what tenure group applies."
^DD(450,42,"DT")="2911211"
^DD(450,43,0)="VETERANS PREFERENCE^FO^^0;44^K:$L(X)>1!($L(X)<1) X"
^DD(450,43,2)="S Y(0)=Y S SUB454=""VET"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,43,2.1)="S SUB454=""VET"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,43,3)="Answer must be 1 character in length."
^DD(450,43,8)="P"
^DD(450,43,21,0)="^^2^2^2911107^^^"
^DD(450,43,21,1,0)="Code identifies categories of entitlement to preference in the federal"
^DD(450,43,21,2,0)="service based on active military service that terminated honorably."
^DD(450,43,"DT")="2930115"
^DD(450,44,0)="WGI ELIGIBILITY^F^^0;45^K:$L(X)>1!($L(X)<1) X"
^DD(450,44,3)="Answer must be 1 character in length."
^DD(450,44,8)="FP"
^DD(450,44,21,0)="^^2^2^2911121^^^"
^DD(450,44,21,1,0)="Indicates whether an employee is eligible for a Within Grade Increase (WGI)"
^DD(450,44,21,2,0)="or whether the WGI is withheld."
^DD(450,44,"DT")="2930115"
^DD(450,45,0)="WGI SF50 ISSUED^FO^^0;46^K:$L(X)>1!($L(X)<1) X"
^DD(450,45,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,45,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,45,3)="Answer must be 1 character in length."
^DD(450,45,8)="P"
^DD(450,45,21,0)="^^2^2^2930128^^^"
^DD(450,45,21,1,0)="Indicates that the Within Grade Increase's SF50 has been issued three"
^DD(450,45,21,2,0)="pay periods in advance of the proposed due date."
^DD(450,45,"DT")="2911212"
^DD(450,46,0)="WGI VA FORM 5-97 ISSUED^FO^^0;47^K:$L(X)>1!($L(X)<1) X"
^DD(450,46,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,46,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,46,3)="Answer must be 1 character in length."
^DD(450,46,8)="P"
^DD(450,46,21,0)="^^1^1^2911121^^"
^DD(450,46,21,1,0)="Indicates that VA 5-97, Within Grade Increase Notice, has been issued."
^DD(450,46,"DT")="2911212"
^DD(450,47,0)="YEAR OF DEGREE^F^^0;48^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(450,47,3)="Answer must be 4 numerics in length."
^DD(450,47,8)="P"
^DD(450,47,21,0)="^^2^2^2911107^^"
^DD(450,47,21,1,0)="The calendar year when an employee received his/her most recent"
^DD(450,47,21,2,0)="academic degree at the bachelor's level or higher."
^DD(450,47,"DT")="2910628"
^DD(450,48,0)="ACCESSION/SEPARATION CODE^F^^1;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,48,3)="Answer must be 1 character in length."
^DD(450,48,8)="FP"
^DD(450,48,21,0)="^^2^2^2950519^^^^"
^DD(450,48,21,1,0)="This code identifies the kind of HRM action (accession or separation) last"
^DD(450,48,21,2,0)="used for an employee."
^DD(450,48,"DT")="2910603"
^DD(450,49,0)="ACCESSION/SEPARATION EFF DATE^D^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,49,3)=""
^DD(450,49,8)="FP"
^DD(450,49,21,0)="^^1^1^2950519^^^^"
^DD(450,49,21,1,0)="The date an accession or separation action for an employee was processed."
^DD(450,49,"DT")="2910604"
^DD(450,50,0)="ACCESSION/SEPARATION NOA CODE^FO^^1;3^K:$L(X)>4!($L(X)<3) X"
^DD(450,50,2)="S Y(0)=Y S SUB454=""NOA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,50,2.1)="S SUB454=""NOA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,50,3)="Answer must be 3-4 characters in length."
^DD(450,50,8)="FP"
^DD(450,50,21,0)="^^1^1^2950519^^"
^DD(450,50,21,1,0)="Identifies the nature of action used to either access or separate an employee."
^DD(450,50,"DT")="2920211"
^DD(450,51,0)="AGENCY TRANSFERRED TO^F^^1;4^K:$L(X)>2!($L(X)<2) X"
^DD(450,51,3)="Answer must be 2 characters in length."
^DD(450,51,8)="FP"
^DD(450,51,21,0)="^^1^1^2911119^"
^DD(450,51,21,1,0)="Code identifies the federal agency to which a VA employee is transferring."
^DD(450,51,"DT")="2910603"
^DD(450,52,0)="BUS CODE^FO^^1;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X"
^DD(450,52,1,0)="^.1^^0"
^DD(450,52,2)="S Y(0)=Y S SUB454=""BUS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,52,2.1)="S SUB454=""BUS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,52,3)="Answer must be 4 characters in length."
^DD(450,52,8)="FP"
^DD(450,52,21,0)="^^2^2^2921020^^^"
^DD(450,52,21,1,0)="The status of the employee's position regarding Federal employee bargaining"
^DD(450,52,21,2,0)="unit representation."
^DD(450,52,"DT")="2921020"
^DD(450,53,0)="CENTRALIZED POSITION IND^FO^^1;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,53,2)="S Y(0)=Y S SUB454=""CEN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,53,2.1)="S SUB454=""CEN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,53,3)="Answer must be 1 character in length."
^DD(450,53,8)="P"
^DD(450,53,21,0)="^^3^3^2930219^^^^"
^DD(450,53,21,1,0)="Indicates that the position occupied by the employee is centralized to the"
^DD(450,53,21,2,0)="Secretary of the Department of Veterans Affairs or other VA Central Office"
^DD(450,53,21,3,0)="official."
^DD(450,53,"DT")="2930205"
^DD(450,54,0)="COMPRESSED/FLEXITIME CODE^FO^^1;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,54,2)="S Y(0)=Y S SUB454=""COM"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,54,2.1)="S SUB454=""COM"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,54,3)="Answer must be 1 character in length."
^DD(450,54,8)="FP"
^DD(450,54,21,0)="^^3^3^2920106^^^^"
^DD(450,54,21,1,0)="Indicates an employee is working a tour that is approved as a compressed"
^DD(450,54,21,2,0)="or flextime schedule. The field can be blank or coded with a ""C"" for"
^DD(450,54,21,3,0)="Compressed or ""F"" for flextime."
^DD(450,54,"DT")="2911211"
^DD(450,55,0)="CREDITABLE MILITARY SERVICE^FO^^1;8^K:$L(X)>4!($L(X)<4) X"
^DD(450,55,2)="S Y(0)=Y Q:(Y="""")!(Y=""NONE"")  S YRS=$E(Y,1,2),MON=$E(Y,3,4),YY=$S(+YRS=1:"" YEAR "",1:"" YEARS ""),MM=$S(+MON=1:"" MONTH"",1:"" MONTHS""),Y=+YRS_YY_+MON_MM K MM,MON,YRS,YY"
^DD(450,55,2.1)="Q:(Y="""")!(Y=""NONE"")  S YRS=$E(Y,1,2),MON=$E(Y,3,4),YY=$S(+YRS=1:"" YEAR "",1:"" YEARS ""),MM=$S(+MON=1:"" MONTH"",1:"" MONTHS""),Y=+YRS_YY_+MON_MM K MM,MON,YRS,YY"
^DD(450,55,3)="Answer must be 4 characters in length."
^DD(450,55,8)="P"
^DD(450,55,21,0)="^^2^2^2930219^^^^"
^DD(450,55,21,1,0)="The amount of military service (years and months) which has been used to"
^DD(450,55,21,2,0)="compute the employee's service computation date (SCD) for leave."
^DD(450,55,"DT")="2930813"
^DD(450,56,0)="CURRENT APPT AUTH 1^FO^^1;9^K:$L(X)>3!($L(X)<3) X"
^DD(450,56,2)="S Y(0)=Y S SUB454=""CSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,56,2.1)="S SUB454=""CSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,56,3)="Answer must be 3 characters in length."
^DD(450,56,8)="P"
^DD(450,56,21,0)="^^4^4^2921102^^"
^DD(450,56,21,1,0)="The legal authority assigned by law, executive order, rule, regulation or"
^DD(450,56,21,2,0)="other basis that authorizes the appointment of the employee to his/her"
^DD(450,56,21,3,0)="current position.  At times two current appointment authority codes may be"
^DD(450,56,21,4,0)="authorized: CURRENT APPT AUTH 1 and CURRENT APPT AUTH 2."
^DD(450,56,"DT")="2921102"
^DD(450,57,0)="CURRENT APPT AUTH 2^FO^^1;10^K:$L(X)>3!($L(X)<3) X"
^DD(450,57,2)="S Y(0)=Y S SUB454=""CSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,57,2.1)="S SUB454=""CSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,57,3)="Answer must be 3 characters in length."
^DD(450,57,8)="P"
^DD(450,57,21,0)="^^4^4^2921102^^"
^DD(450,57,21,1,0)="The legal authority assigned by law, executive order, rule, regulation or"
^DD(450,57,21,2,0)="other basis that authorizes the appointment of the employee to his/her"
^DD(450,57,21,3,0)="current position.  At times two current appointment authority codes may be"
^DD(450,57,21,4,0)="authorized: CURRENT APPT AUTH 1 and CURRENT APPT AUTH 2."
^DD(450,57,"DT")="2921102"
^DD(450,58,0)="DISABILITY RETIREMENT^FO^^1;11^K:$L(X)>1!($L(X)<1) X"
^DD(450,58,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,58,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,58,3)="Answer must be 1 character in length."
^DD(450,58,8)="FP"
^DD(450,58,21,0)="^^2^2^2930222^^"
^DD(450,58,21,1,0)="Indicates that the retirement annuity estimate which is being requested is"
^DD(450,58,21,2,0)="for a disability retirement."
^DD(450,58,"DT")="2930222"
^DD(450,59,0)="FIRE FIGHTER^FO^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(450,59,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,59,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,59,3)="Answer must be 1 character in length."
^DD(450,59,8)="FP"
^DD(450,59,21,0)="^^3^3^2911121^^"
^DD(450,59,21,1,0)="Indicates the employee is subject to a 7.5% Civil Service Retirement"
^DD(450,59,21,2,0)="System (CSRS) and 1.3% (currently) for Federal Employee Retirement"
^DD(450,59,21,3,0)="System (FERS) and Offset Retirement System, retirement deduction."
^DD(450,59,"DT")="2911212"
^DD(450,60,0)="FROZEN SERVICE^NJ8,2^^1;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,60,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,60,8)="FP"
^DD(450,60,21,0)="^^4^4^2930222^^^^"
^DD(450,60,21,1,0)="The total years and months of civilian and military service creditable for"
^DD(450,60,21,2,0)="calculation of Service Computation Date (Leave) at the time the employee"
^DD(450,60,21,3,0)="first becomes covered by the CSRS Offset or Federal Employees Retirement"
^DD(450,60,21,4,0)="System (FERS)."
^DD(450,60,"DT")="2910628"
^DD(450,61,0)="MONTHLY NON-WORK IND^FO^^1;14^K:$L(X)>1!($L(X)<1) X"
^DD(450,61,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,61,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,61,3)="Answer must be 1 character in length."
^DD(450,61,8)="FP"
^DD(450,61,21,0)="3^^3^3^2930908^"
^DD(450,61,21,1,0)="Indicates that an employee was not paid in a particular month and should"
^DD(450,61,21,2,0)="not be included in certain employment reports."
^DD(450,61,21,3,0)="Value: N - Include; Y - Exclude."
^DD(450,61,"DT")="2911212"
^DD(450,62,0)="LEADERSHIP VA^F^^1;15^K:$L(X)>1!($L(X)<1) X"
^DD(450,62,3)="Answer must be 1 character in length."
^DD(450,62,8)="P"
^DD(450,62,21,0)="^^3^3^2930223^^^"
^DD(450,62,21,1,0)="Code which identifies an employee who currently participates in or has"
^DD(450,62,21,2,0)="participated in the LVA Program.  Used for tracking purposes."
^DD(450,62,21,3,0)=" "
^DD(450,62,"DT")="2930223"
^DD(450,63,0)="MEDICAL MOS^FO^^1;16^K:$L(X)>1!($L(X)<1) X"
^DD(450,63,2)="S Y(0)=Y S SUB454=""MOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,63,2.1)="S SUB454=""MOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,63,3)="Answer must be 1 character in length."
^DD(450,63,8)="P"
^DD(450,63,21,0)="^^2^2^2930223^^^^"
^DD(450,63,21,1,0)="An employee's medical specialty occupation while serving in the"
^DD(450,63,21,2,0)="military."
^DD(450,63,"DT")="2930223"
^DD(450,64,0)="RETIRED MILITARY^F^^1;17^K:$L(X)>1!($L(X)<1) X"
^DD(450,64,3)="Answer must be 1 character in length."
^DD(450,64,8)="FP"
^DD(450,64,21,0)="^^2^2^2930223^^^"
^DD(450,64,21,1,0)="Identifies an employee who is a retired member of a military service.  Also"
^DD(450,64,21,2,0)="indicates whether the employee's retirement pay is subject to reduction."
^DD(450,64,"DT")="2930205"
^DD(450,66,0)="NONPAY HOURS/DAYS CPPD^NJ6,2^^1;19^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,66,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,66,8)="FP"
^DD(450,66,21,0)="^^2^2^2911120^"
^DD(450,66,21,1,0)="The number of hours or days an employee is not being paid because he/she"
^DD(450,66,21,2,0)="was not an employee in the last pay period processed."
^DD(450,66,"DT")="2911120"
^DD(450,67,0)="NONPAY IND^F^^1;20^K:$L(X)>1!($L(X)<1) X"
^DD(450,67,3)="Answer must be 1 character in length."
^DD(450,67,8)="FP"
^DD(450,67,21,0)="^^2^2^2930205^^^"
^DD(450,67,21,1,0)="Indicates that an employee's net pay is not paid through the Central"
^DD(450,67,21,2,0)="PAID System."
^DD(450,67,"DT")="2930212"
^DD(450,68,0)="OWCP BENEFICIARY IND^FO^^1;21^K:$L(X)>1!($L(X)<1) X"
^DD(450,68,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,68,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,68,3)="Answer must be 1 character in length."
^DD(450,68,8)="FP"
^DD(450,68,21,0)="^^4^4^2920910^^"
^DD(450,68,21,1,0)="Indicates employee is an Office of Workman's Compensation Program"
^DD(450,68,21,2,0)="beneficiary. Leave without pay charged will not be used for determining"
^DD(450,68,21,3,0)="within grade increase eligibility or adjustment of service computation"
^DD(450,68,21,4,0)="date."
^DD(450,68,"DT")="2911212"
^DD(450,69,0)="PART TIME VHA IND^F^^1;22^K:$L(X)>1!($L(X)<1) X"
^DD(450,69,3)="Answer must be 1 character in length."
^DD(450,69,8)="FP"
^DD(450,69,21,0)="^^4^4^2930130^^"
^DD(450,69,21,1,0)="Code indicates that an employee's actual hours worked must be accumulated."
^DD(450,69,21,2,0)="""C"" is placed here if Retirement/FICA = 1 or 4 and not reemployed"
^DD(450,69,21,3,0)="annuitant and Pay Plan = L,M,N or Q and Duty Basis = 2 or 3 and Pay Basis"
^DD(450,69,21,4,0)="is not ""S""."
^DD(450,69,"DT")="2930130"
^DD(450,70,0)="PART TIME/INTERMIT HRS TOTAL^NJ8,2^^1;23^K:+X'=X!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3N.N) X"
^DD(450,70,3)="Type a Number between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,70,8)="FP"
^DD(450,70,21,0)="^^3^3^2980625^^^^"
^DD(450,70,21,1,0)="Total number of hours worked by a part-time or intermittent"
^DD(450,70,21,2,0)="employee that count towards retirement.  This field is only"
^DD(450,70,21,3,0)="updated after an SF-50 is processed for the employee."
^DD(450,70,"DT")="2980625"
^DD(450,71,0)="PMRS IDENTIFIER^F^^1;24^K:$L(X)>4!($L(X)<4) X"
^DD(450,71,3)="Answer must be 4 characters in length."
^DD(450,71,8)="P"
^DD(450,71,21,0)="^^2^2^2911119^"
^DD(450,71,21,1,0)="Code identifies the unit a Performance Management Rating System employee"
^DD(450,71,21,2,0)="is assigned to."
^DD(450,71,"DT")="2910710"
^DD(450,72,0)="PROBATIONARY APPOINTMENT IND^FO^^1;25^K:$L(X)>1!($L(X)<1) X"
^DD(450,72,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,72,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,72,3)="Answer must be 1 character in length."
^DD(450,72,8)="P"
^DD(450,72,21,0)="^^2^2^2911107^"
^DD(450,72,21,1,0)="Indicates employee's appointment is subject to completion of a"
^DD(450,72,21,2,0)="probationary or trail period before it is considered permanent."
^DD(450,72,"DT")="2911212"
^DD(450,73,0)="PROPER GRADE^FX^^1;26^K:$L(X)>2!($L(X)<1)!(X'?1.2N) X I $D(X) K:+X>18!(+X<1) X"
^DD(450,73,3)="Type a number between 1 and 18, 0 Decimal Digits"
^DD(450,73,8)="FP"
^DD(450,73,21,0)="^^4^4^2911107^"
^DD(450,73,21,1,0)="Code identifies the grade of the actual, lower grade position that the"
^DD(450,73,21,2,0)="employee is assigned to during the two year grade retention period. This"
^DD(450,73,21,3,0)="grade does not determine the employee's salary during the two-year grade"
^DD(450,73,21,4,0)="retention period."
^DD(450,73,"DT")="2910628"
^DD(450,74,0)="PROPER PAY PLAN^FO^^1;27^K:$L(X)>1!($L(X)<1) X"
^DD(450,74,2)="S Y(0)=Y S SUB454=""PP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,74,2.1)="S SUB454=""PP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,74,3)="Answer must be 1 character in length."
^DD(450,74,8)="FP"
^DD(450,74,21,0)="^^1^1^2911107^"
^DD(450,74,21,1,0)="Identifies the actual pay plan under retained grade."
^DD(450,74,"DT")="2911211"
^DD(450,75,0)="RETIREMENT ANN SURV ELIG CODE^FO^^1;28^K:$L(X)>1!($L(X)<1) X"
^DD(450,75,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,75,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,75,3)="Answer must be 1 character in length."
^DD(450,75,8)="FP"
^DD(450,75,21,0)="^^2^2^2920910^^"
^DD(450,75,21,1,0)="Code indicates that a deceased employee has survivors eligible to"
^DD(450,75,21,2,0)="receive retirement annuity payments."
^DD(450,75,"DT")="2911212"
^DD(450,76,0)="LIMITATION CODE^FO^^1;29^K:$L(X)>1!($L(X)<1) X"
^DD(450,76,2)="S Y(0)=Y S SUB454=""LIM"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,76,2.1)="S SUB454=""LIM"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,76,3)="Answer must be 1 character in length."
^DD(450,76,8)="FP"
^DD(450,76,21,0)="^^3^3^2930223^^^"
^DD(450,76,21,1,0)="Indicates that the employee's appointment carries a restriction on either"
^DD(450,76,21,2,0)="the number of hours of work which may be performed for pay purposes or on"
^DD(450,76,21,3,0)="total salary dollars which may be earned."
^DD(450,76,"DT")="2930223"
^DD(450,77,0)="LIMITATION EXP DATE^D^^1;30^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,77,3)=""
^DD(450,77,8)="FP"
^DD(450,77,21,0)="^^1^1^2930223^^"
^DD(450,77,21,1,0)="This is the beginning date of a salary limitation appointment."
^DD(450,77,"DT")="2930223"
^DD(450,78,0)="HOURS/SALARY LIMITATION^NJ7,0^^1;31^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,78,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(450,78,8)="FP"
^DD(450,78,21,0)="2^^3^3^2930223^^"
^DD(450,78,21,1,0)="Maximum number of hours or maximum salary dollars a part-time or"
^DD(450,78,21,2,0)="intermittent employee is authorized to work in a year.  Limitation is"
^DD(450,78,21,3,0)="based on the anniversary date of appointment."
^DD(450,78,"DT")="2930223"
^DD(450,79,0)="LIMITATION HOURS TO DATE^NJ7,0^^1;32^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(450,79,3)="Type a Number between -9999999 and 9999999, 0 Decimal Digits"
^DD(450,79,8)="FP"
^DD(450,79,21,0)="^^6^6^2911108^"
^DD(450,79,21,1,0)="The accumulated number of hours worked by an employee from the date"
^DD(450,79,21,2,0)="of appointment through the last pay period processed. This total is"
^DD(450,79,21,3,0)="applied against the pay status hours limit established for a part-time"
^DD(450,79,21,4,0)="or intermittent employee. On the anniversary date of the appointment"
^DD(450,79,21,5,0)="this field is initialized in preparation for accumulating hours for the"
^DD(450,79,21,6,0)="next year."
^DD(450,79,"DT")="2930223"
^DD(450,80,0)="SEPARATION IND^F^^1;33^K:$L(X)>1!($L(X)<1) X"
^DD(450,80,3)="Answer must be 1 character in length."
^DD(450,80,8)="FP"
^DD(450,80,21,0)="^^2^2^2930219^^"
^DD(450,80,21,1,0)="Identifies a separated employee.  Separated employees have a value of"
^DD(450,80,21,2,0)="Y.  Current employees have a value of N."
^DD(450,80,"DT")="2940622"
^DD(450,81,0)="SES APPT PROBATION PERIOD IND^FO^^1;34^K:$L(X)>1!($L(X)<1) X"
^DD(450,81,2)="S Y(0)=Y S SUB454=""SES"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,81,2.1)="S SUB454=""SES"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,81,3)="Answer must be 1 character in length."
^DD(450,81,8)="P"
^DD(450,81,21,0)="^^2^2^2911108^"
^DD(450,81,21,1,0)="Code indicates that an appointment is subject to a probationary period"
^DD(450,81,21,2,0)="under Senior Executive Service before it is considered permanent."
^DD(450,81,"DT")="2911211"
^DD(450,82,0)="SPECIAL PAY RATE DIFFERENCE^NJ8,2^^1;35^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,82,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,82,8)="FP"
^DD(450,82,21,0)="^^1^1^2920910^^^"
^DD(450,82,21,1,0)="The dollar and cents amount the employee receives as special pay."
^DD(450,82,"DT")="2910909"
^DD(450,83,0)="GAP/LOCALITY PAY AMT^NJ8,2^^1;36^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,83,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,83,8)="FP"
^DD(450,83,21,0)="^^1^1^2931213^^"
^DD(450,83,21,1,0)="The annual Geographic Adjustment Pay (GAP) or Locality Pay amount."
^DD(450,83,"DT")="2931101"
^DD(450,83.1,0)="GAP AMT CPPD^NJ8,2^^MISC;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,83.1,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,83.1,8)="F"
^DD(450,83.1,21,0)="^^1^1^2931213^^^^"
^DD(450,83.1,21,1,0)="Geographic Adjustment Pay amount for the most recently processed pay period."
^DD(450,83.1,"DT")="2931210"
^DD(450,83.2,0)="LOCALITY PAY CPPD^NJ8,2^^MISC;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,83.2,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,83.2,21,0)="^^1^1^2931210^"
^DD(450,83.2,21,1,0)="Locality Pay amount for the most recently processed pay period."
^DD(450,83.2,"DT")="2931210"
^DD(450,84,0)="SUPV APPT PROBATION PERIOD IND^FO^^1;37^K:$L(X)>1!($L(X)<1) X"
^DD(450,84,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,84,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,84,3)="Answer must be 1 character in length."
^DD(450,84,8)="P"
^DD(450,84,21,0)="^^2^2^2911108^"
^DD(450,84,21,1,0)="Code indicates that an appointment is subject to a probationary period"
^DD(450,84,21,2,0)="for first time supervisors or managers before it is considered permanent."
^DD(450,84,"DT")="2911212"
^DD(450,85,0)="UPWARD MOBILITY^FO^^1;38^K:$L(X)>1!($L(X)<1) X"
^DD(450,85,2)="S Y(0)=Y S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,85,2.1)="S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,85,3)="Answer must be 1 character in length."
^DD(450,85,8)="P"
^DD(450,85,21,0)="^^2^2^2911107^^"
^DD(450,85,21,1,0)="Code indicates that an employee has been selected for an upward mobility"
^DD(450,85,21,2,0)="program position."
^DD(450,85,"DT")="2930205"
^DD(450,86,0)="UPWARD MOBILITY DATE^D^^1;39^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,86,3)=""
^DD(450,86,8)="P"
^DD(450,86,21,0)="^^1^1^2911107^"
^DD(450,86,21,1,0)="The date upward mobility status became effective."
^DD(450,86,"DT")="2910604"
^DD(450,87,0)="VA STATION TRANSFERRED FROM^F^^1;40^K:$L(X)>3!($L(X)<3) X"
^DD(450,87,3)="Answer must be 3 characters in length."
^DD(450,87,8)="FP"
^DD(450,87,21,0)="^^1^1^2940928^^^"
^DD(450,87,21,1,0)="The number of the station from which an employee has been transferred."
^DD(450,87,"DT")="2930108"
^DD(450,88,0)="VHA REGION NUMBER^FX^^1;41^K:$L(X)>1!($L(X)<1) X"
^DD(450,88,3)="Answer must be 1 character in length."
^DD(450,88,8)="FP"
^DD(450,88,21,0)="^^2^2^2930130^^^"
^DD(450,88,21,1,0)="Code identifies which of the seven regions a Veterans Health Administration"
^DD(450,88,21,2,0)="site is located."
^DD(450,88,"DT")="2930130"
^DD(450,89,0)="ANNUAL LEAVE ACCRUAL RATE^F^^2;1^K:$L(X)>2!($L(X)<2) X"
^DD(450,89,3)="Answer must be 2 characters in length."
^DD(450,89,8)="P"
^DD(450,89,21,0)="^^1^1^2911230^^^"
^DD(450,89,21,1,0)="Annual Leave Accrual Rate."
^DD(450,89,"DT")="2930923"
^DD(450,90,0)="EXPIRATION OF LICENSURE^D^^2;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,90,1,0)="^.1^^0"
^DD(450,90,3)=""
^DD(450,90,8)="P"
^DD(450,90,21,0)="^^1^1^2930812^^^^"
^DD(450,90,21,1,0)="Expiration of Licensure, Registration, or Bar Membership date."
^DD(450,90,"DT")="2930923"
^DD(450,91,0)="PLACEMENT FOLLOWUP^D^^2;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,91,3)=""
^DD(450,91,8)="P"
^DD(450,91,21,0)="^^1^1^2911230^^^^"
^DD(450,91,21,1,0)="Placement Followup date."
^DD(450,91,"DT")="2930216"
^DD(450,92,0)="ANNUAL LEAVE RESTRICTION^D^^2;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,92,3)=""
^DD(450,92,8)="P"
^DD(450,92,21,0)="^^1^1^2911230^^^"
^DD(450,92,21,1,0)="Annual Leave Restriction date."
^DD(450,92,"DT")="2930216"
^DD(450,93,0)="CONVERSION TO CAREER TENURE^D^^2;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,93,3)=""
^DD(450,93,8)="P"
^DD(450,93,21,0)="^^1^1^2911230^^^"
^DD(450,93,21,1,0)="Conversion to Career Tenure date."
^DD(450,93,"DT")="2930216"
^DD(450,94,0)="2-YEAR PROB PERIOD INCEPTION^D^^2;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,94,3)="This data is received from Austin.  Employee probation begin date."
^DD(450,94,8)="P"
^DD(450,94,21,0)="^^2^2^2960723^^"
^DD(450,94,21,1,0)="2-Year Probationary Period inception date.  This field is received"
^DD(450,94,21,2,0)="from the Austin Automation Center."
^DD(450,94,"DT")="2960723"
^DD(450,95,0)="EXPIRATION OF LIMITED APPT^D^^2;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,95,3)=""
^DD(450,95,8)="P"
^DD(450,95,21,0)="^^1^1^2911230^^^^"
^DD(450,95,21,1,0)="Expiration of Time-Limited Appointment date."
^DD(450,95,"DT")="2930216"
^DD(450,96,0)="EXPIRATION OF FORMAL DETAIL^D^^2;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,96,3)=""
^DD(450,96,8)="P"
^DD(450,96,21,0)="^^1^1^2911230^^^"
^DD(450,96,21,1,0)="Expiration of Formal Detail date."
^DD(450,96,"DT")="2930216"
^DD(450,97,0)="REDETERMINATION OF WGI^D^^2;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,97,3)=""
^DD(450,97,8)="P"
^DD(450,97,21,0)="^^1^1^2911230^^^"
^DD(450,97,21,1,0)="Redetermination on Withheld Within-Grade Increase date."
^DD(450,97,"DT")="2930216"
^DD(450,97.1,0)="FOLLOWUP CODE 08^D^^2;27^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,97.1,8)="P"
^DD(450,97.1,21,0)="^^1^1^2930216^^"
^DD(450,97.1,21,1,0)="Reserved for future use."
^DD(450,97.1,"DT")="2930216"
^DD(450,98,0)="ELIG FOR CONV TO COMP SERVICE^D^^2;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,98,3)=""
^DD(450,98,8)="P"
^DD(450,98,21,0)="^^1^1^2911230^^^"
^DD(450,98,21,1,0)="Eligibility for Conversion to the Competitive Service date."
^DD(450,98,"DT")="2930216"
^DD(450,98.1,0)="FOLLOWUP CODE 10^D^^2;28^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,98.1,8)="P"
^DD(450,98.1,21,0)="^^1^1^2920103^"
^DD(450,98.1,21,1,0)="Reserved for future use."
^DD(450,98.1,"DT")="2930216"
^DD(450,98.2,0)="FOLLOWUP CODE 11^D^^2;29^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,98.2,8)="P"
^DD(450,98.2,21,0)="^^1^1^2920103^"
^DD(450,98.2,21,1,0)="Reserved for future use."
^DD(450,98.2,"DT")="2930216"
^DD(450,98.3,0)="FOLLOWUP CODE 12^D^^2;30^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,98.3,8)="P"
^DD(450,98.3,21,0)="^^1^1^2920103^"
^DD(450,98.3,21,1,0)="Reserved for future use."
^DD(450,98.3,"DT")="2930216"
^DD(450,98.4,0)="FOLLOWUP CODE 13^D^^2;31^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,98.4,8)="P"
^DD(450,98.4,21,0)="^^1^1^2920103^"
^DD(450,98.4,21,1,0)="Reserved for future use."
^DD(450,98.4,"DT")="2930216"
^DD(450,99,0)="OBLIGATED SERVICE^D^^2;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,99,3)=""
^DD(450,99,8)="P"
^DD(450,99,21,0)="^^1^1^2911230^^^"
^DD(450,99,21,1,0)="Obligated Service date."
^DD(450,99,"DT")="2930216"
^DD(450,99.1,0)="FOLLOWUP CODE 15^D^^2;32^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,99.1,8)="P"
^DD(450,99.1,21,0)="^^1^1^2920103^"
^DD(450,99.1,21,1,0)="Reserved for future use."
^DD(450,99.1,"DT")="2930216"
^DD(450,100,0)="EXPIRATION OF GRADE RETENTION^D^^2;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,100,3)=""
^DD(450,100,8)="P"
^DD(450,100,21,0)="^^1^1^2911230^"
^DD(450,100,21,1,0)="Expiration of Grade Retention date."
^DD(450,100,"DT")="2930216"
^DD(450,101,0)="SES PROBATIONARY PERIOD^D^^2;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,101,3)=""
^DD(450,101,8)="P"
^DD(450,101,21,0)="^^1^1^2911230^"
^DD(450,101,21,1,0)="SES Probationary Period date."
^DD(450,101,"DT")="2930216"
^DD(450,102,0)="SUPERVISOR/MGR PROB PERIOD^D^^2;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,102,3)=""
^DD(450,102,8)="P"
^DD(450,102,21,0)="^^1^1^2930216^^^^"
^DD(450,102,21,1,0)="Supervisor/Manager Probationary Period date."
^DD(450,102,"DT")="2930216"
^DD(450,103,0)="BEGINNING OF NONPAY STATUS^D^^2;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,103,3)=""
^DD(450,103,8)="P"
^DD(450,103,21,0)="^^1^1^2911230^^^"
^DD(450,103,21,1,0)="Beginning Date of Employee's Nonpay Status."
^DD(450,103,"DT")="2930216"
^DD(450,104,0)="1-YEAR PROB PERIOD INCEPTION^D^^2;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,104,3)="This data is received from Austin.  Employee probation begin date."
^DD(450,104,8)="P"
^DD(450,104,21,0)="^^3^3^2960723^^^^"
^DD(450,104,21,1,0)="1-year Probationary Period inception date.  This field is received"
^DD(450,104,21,2,0)="from the Austin Automation Center."
^DD(450,104,21,3,0)=""
^DD(450,104,"DT")="2960723"
^DD(450,105,0)="DATE OF GRADE FOR T38 EMP^D^^2;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,105,3)=""
^DD(450,105,8)="P"
^DD(450,105,21,0)="^^1^1^2911227^^^^"
^DD(450,105,21,1,0)="Date of Grade for Title 38 Employees."
^DD(450,105,"DT")="2930216"
^DD(450,106,0)="DATE OF ENTRY TO T38 POSITION^D^^2;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,106,3)=""
^DD(450,106,8)="P"
^DD(450,106,21,0)="^^1^1^2911227^^^"
^DD(450,106,21,1,0)="Date of Entry into Title 38 position."
^DD(450,106,"DT")="2930216"
^DD(450,107,0)="DATE GRADUATED FROM PROF SCHL^D^^2;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,107,3)=""
^DD(450,107,8)="P"
^DD(450,107,21,0)="^^1^1^2911227^^"
^DD(450,107,21,1,0)="Date Graduated From Professional School"
^DD(450,107,"DT")="2930216"
^DD(450,108,0)="EXPIRATION OF SPEC PAY AGREE^D^^2;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,108,3)=""
^DD(450,108,8)="P"
^DD(450,108,21,0)="^^1^1^2911227^^^^"
^DD(450,108,21,1,0)="Expiration of Special Pay Agreement date."
^DD(450,108,"DT")="2930216"
^DD(450,109,0)="STEP RATE REVIEW^D^^2;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,109,3)=""
^DD(450,109,8)="P"
^DD(450,109,21,0)="^^1^1^2911227^^^"
^DD(450,109,21,1,0)="Step Rate Review date."
^DD(450,109,"DT")="2930216"
^DD(450,110,0)="FEDERAL SERVICE DATE^D^^2;22^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,110,3)=""
^DD(450,110,8)="P"
^DD(450,110,21,0)="^^2^2^2911227^^^^"
^DD(450,110,21,1,0)="Service Pin ""Federal Service Date"" for Retired Members of the Uniformed"
^DD(450,110,21,2,0)="Services."
^DD(450,110,"DT")="2930216"
^DD(450,111,0)="CAREER PROMOTION DETERMINATION^D^^2;23^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,111,3)=""
^DD(450,111,8)="P"
^DD(450,111,21,0)="^^1^1^2930503^^^^"
^DD(450,111,21,1,0)="Career Promotion Determination date."
^DD(450,111,"DT")="2930216"
^DD(450,112,0)="PROFICIENCY DATE^D^^2;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,112,3)=""
^DD(450,112,8)="P"
^DD(450,112,21,0)="^^1^1^2930216^^^^"
^DD(450,112,21,1,0)="Proficiency Date."
^DD(450,112,"DT")="2930216"
^DD(450,113,0)="EXPIRATION OF FERS PERIOD^D^^2;25^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,113,3)=""
^DD(450,113,8)="P"
^DD(450,113,21,0)="^^1^1^2911227^^^"
^DD(450,113,21,1,0)="Expiration of FERS Election Period date."
^DD(450,113,"DT")="2930216"
^DD(450,114,0)="TEMPORARY HEALTH BENEFITS ELIG^D^^2;26^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,114,3)=""
^DD(450,114,8)="P"
^DD(450,114,21,0)="^^1^1^2930812^^^^"
^DD(450,114,21,1,0)="Temporary Employee Health Benefits Eligibility date."
^DD(450,114,"DT")="2930223"
^DD(450,114.1,0)="EXPIRATION OF GEO LOCATION PAY^D^^3;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,114.1,8)="P"
^DD(450,114.1,21,0)="^^1^1^2950911^^"
^DD(450,114.1,21,1,0)="Expiration of Geographic Location Pay date."
^DD(450,114.1,"DT")="2930812"
^DD(450,114.2,0)="EXPIRATION OF RETENTION ALLOW^D^^3;23^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,114.2,8)="P"
^DD(450,114.2,21,0)="^^1^1^2950911^"
^DD(450,114.2,21,1,0)="Expiration of Retention Allowance date."
^DD(450,114.2,"DT")="2950911"
^DD(450,115.01,0)="EXPIRATION OF AI BOARD CERT^D^^3;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.01,8)="P"
^DD(450,115.01,21,0)="^^1^1^2950911^^^"
^DD(450,115.01,21,1,0)="Allergy and Immunology Board Certification Expiration date."
^DD(450,115.01,"DT")="2930216"
^DD(450,115.02,0)="EXPIRATION OF DE BOARD CERT^D^^3;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.02,1,0)="^.1^^0"
^DD(450,115.02,8)="P"
^DD(450,115.02,21,0)="^^1^1^2911231^"
^DD(450,115.02,21,1,0)="Dermatology Board Certification Expiration date."
^DD(450,115.02,"DT")="2931006"
^DD(450,115.03,0)="EXPIRATION OF EM BOARD CERT^D^^3;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.03,8)="P"
^DD(450,115.03,21,0)="^^1^1^2911231^"
^DD(450,115.03,21,1,0)="Emergency Medicine Board Certification Expiration date."
^DD(450,115.03,"DT")="2930216"
^DD(450,115.04,0)="EXPIRATION OF FP BOARD CERT^D^^3;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.04,8)="P"
^DD(450,115.04,21,0)="^^1^1^2911231^"
^DD(450,115.04,21,1,0)="Family Practice Board Certification Expiration date."
^DD(450,115.04,"DT")="2930216"
^DD(450,115.05,0)="EXPIRATION OF NM BOARD CERT^D^^3;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.05,8)="P"
^DD(450,115.05,21,0)="^^1^1^2911231^"
^DD(450,115.05,21,1,0)="Nuclear Medicine Board Certification Expiration date."
^DD(450,115.05,"DT")="2930216"
^DD(450,115.06,0)="EXPIRATION OF OG BOARD CERT^D^^3;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.06,8)="P"
^DD(450,115.06,21,0)="^^1^1^2911231^"
^DD(450,115.06,21,1,0)="Obstetrics and Gynecology Board Certification Expiration date."
^DD(450,115.06,"DT")="2930216"
^DD(450,115.07,0)="EXPIRATION OF OP BOARD CERT^D^^3;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.07,8)="P"
^DD(450,115.07,21,0)="^^1^1^2911231^^"
^DD(450,115.07,21,1,0)="Ophthalmology Board Certification Expiration date."
^DD(450,115.07,22)=""
^DD(450,115.07,"DT")="2930216"
^DD(450,115.08,0)="EXPIRATION OF OS BOARD CERT^D^^3;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.08,8)="P"
^DD(450,115.08,21,0)="^^1^1^2911231^^"
^DD(450,115.08,21,1,0)="Orthopedic Surgery Board Certification Expiration date."
^DD(450,115.08,"DT")="2930216"
^DD(450,115.09,0)="EXPIRATION OF PM BOARD CERT^D^^3;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.09,8)="P"
^DD(450,115.09,21,0)="^^1^1^2930128^^^"
^DD(450,115.09,21,1,0)="Physical Medicine and Rehabilitation Board Certification Expiration date."
^DD(450,115.09,"DT")="2930216"
^DD(450,115.1,0)="EXPIRATION OF PS BOARD CERT^D^^3;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.1,8)="P"
^DD(450,115.1,21,0)="^^1^1^2911231^"
^DD(450,115.1,21,1,0)="Plastic Surgery Board Certification Expiration date."
^DD(450,115.1,"DT")="2930216"
^DD(450,115.11,0)="EXPIRATION OF SU BOARD CERT^D^^3;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.11,8)="P"
^DD(450,115.11,21,0)="^^1^1^2911231^"
^DD(450,115.11,21,1,0)="Surgery Board Certification Expiration date."
^DD(450,115.11,"DT")="2930216"
^DD(450,115.12,0)="EXPIRATION OF TS BOARD CERT^D^^3;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.12,8)="P"
^DD(450,115.12,21,0)="^^1^1^2911231^"
^DD(450,115.12,21,1,0)="Thoracic Surgery Board Certification Expiration date."
^DD(450,115.12,"DT")="2930216"
^DD(450,115.13,0)="EXPIRATION OF UR BOARD CERT^D^^3;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.13,8)="P"
^DD(450,115.13,21,0)="^^1^1^2911231^"
^DD(450,115.13,21,1,0)="Urology Board Certification Expiration date."
^DD(450,115.13,"DT")="2930216"
^DD(450,115.14,0)="EXPIRATION OF CS BOARD CERT^D^^3;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.14,8)="P"
^DD(450,115.14,21,0)="^^1^1^2911231^"
^DD(450,115.14,21,1,0)="Certified Subspecialty Board Certification Expiration date."
^DD(450,115.14,"DT")="2930216"
^DD(450,115.15,0)="RETIREMENT/FICA CODE CHANGE^D^^3;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.15,8)="P"
^DD(450,115.15,21,0)="^^1^1^2920131^"
^DD(450,115.15,21,1,0)="Followup Code RR date."
^DD(450,115.15,"DT")="2930216"
^DD(450,115.16,0)="FOLLOWUP CODE S*^D^^3;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.16,8)="P"
^DD(450,115.16,21,0)="^^1^1^2920910^^"
^DD(450,115.16,21,1,0)="Followup Codes S2 and S3 dates."
^DD(450,115.16,"DT")="2930216"
^DD(450,115.17,0)="ELIGIBLE FOR DRUG TESTING^F^^3;17^K:$L(X)>2!($L(X)<2) X"
^DD(450,115.17,1,0)="^.1^^0"
^DD(450,115.17,3)="Answer must be 2 characters in length."
^DD(450,115.17,8)="P"
^DD(450,115.17,21,0)="^^2^2^2920604^^"
^DD(450,115.17,21,1,0)="Followup code DT (indicates key management employees who are subject"
^DD(450,115.17,21,2,0)="to random drug testing)."
^DD(450,115.17,"DT")="2930216"
^DD(450,115.18,0)="EXPIRATION OF CR BOARD CERT^D^^3;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.18,8)="P"
^DD(450,115.18,21,0)="^^1^1^2950911^"
^DD(450,115.18,21,1,0)="Colon and Rectal Surgery Board Certification Expiration date."
^DD(450,115.18,"DT")="2950911"
^DD(450,115.19,0)="EXPIRATION OF IM BOARD CERT^D^^3;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.19,8)="P"
^DD(450,115.19,21,0)="^^1^1^2950911^^"
^DD(450,115.19,21,1,0)="Internal Medicine Board Certification Expiration date."
^DD(450,115.19,"DT")="2950911"
^DD(450,115.2,0)="EXPIRATION OF MG BOARD CERT^D^^3;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.2,8)="P"
^DD(450,115.2,21,0)="^^1^1^2950911^"
^DD(450,115.2,21,1,0)="Medical Genetics Board Certification Expiration date."
^DD(450,115.2,"DT")="2950911"
^DD(450,115.21,0)="EXPIRATION OF PN BOARD CERT^D^^3;22^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,115.21,8)="P"
^DD(450,115.21,21,0)="^^1^1^2950911^"
^DD(450,115.21,21,1,0)="Psychiatry and Neurology Board Certification Expiration date."
^DD(450,115.21,"DT")="2950911"
^DD(450,116.01,0)="FOLLOWUP CODE 30^D^^4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.01,8)="P"
^DD(450,116.01,21,0)="^^1^1^2911231^"
^DD(450,116.01,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.01,"DT")="2930216"
^DD(450,116.02,0)="FOLLOWUP CODE 31^D^^4;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.02,8)="P"
^DD(450,116.02,21,0)="^^1^1^2911231^"
^DD(450,116.02,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.02,"DT")="2930216"
^DD(450,116.03,0)="FOLLOWUP CODE 32^D^^4;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.03,8)="P"
^DD(450,116.03,21,0)="^^1^1^2911231^"
^DD(450,116.03,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.03,"DT")="2930216"
^DD(450,116.04,0)="FOLLOWUP CODE 33^D^^4;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.04,8)="P"
^DD(450,116.04,21,0)="^^1^1^2911231^"
^DD(450,116.04,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.04,"DT")="2930216"
^DD(450,116.05,0)="FOLLOWUP CODE 34^D^^4;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.05,8)="P"
^DD(450,116.05,21,0)="^^1^1^2911231^"
^DD(450,116.05,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.05,"DT")="2930216"
^DD(450,116.06,0)="FOLLOWUP CODE 35^D^^4;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.06,8)="P"
^DD(450,116.06,21,0)="^^1^1^2911231^"
^DD(450,116.06,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.06,"DT")="2930216"
^DD(450,116.07,0)="FOLLOWUP CODE 36^D^^4;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.07,8)="P"
^DD(450,116.07,21,0)="^^1^1^2911231^"
^DD(450,116.07,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.07,"DT")="2930216"
^DD(450,116.08,0)="FOLLOWUP CODE 37^D^^4;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.08,8)="P"
^DD(450,116.08,21,0)="^^1^1^2911231^"
^DD(450,116.08,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.08,"DT")="2930216"
^DD(450,116.09,0)="FOLLOWUP CODE 38^D^^4;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.09,8)="P"
^DD(450,116.09,21,0)="^^1^1^2911231^"
^DD(450,116.09,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.09,"DT")="2930216"
^DD(450,116.1,0)="FOLLOWUP CODE 39^D^^4;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.1,8)="P"
^DD(450,116.1,21,0)="^^1^1^2911231^"
^DD(450,116.1,21,1,0)="Temporary Station Use Followup Code date."
^DD(450,116.1,"DT")="2930216"
^DD(450,116.11,0)="FOLLOWUP CODE 40^D^^4;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.11,8)="P"
^DD(450,116.11,21,0)="^^1^1^2911231^"
^DD(450,116.11,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.11,"DT")="2930216"
^DD(450,116.12,0)="FOLLOWUP CODE 41^D^^4;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.12,8)="P"
^DD(450,116.12,21,0)="^^1^1^2911231^"
^DD(450,116.12,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.12,"DT")="2930216"
^DD(450,116.13,0)="FOLLOWUP CODE 42^D^^4;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.13,8)="P"
^DD(450,116.13,21,0)="^^1^1^2911231^"
^DD(450,116.13,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.13,"DT")="2930216"
^DD(450,116.14,0)="FOLLOWUP CODE 43^D^^4;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.14,8)="P"
^DD(450,116.14,21,0)="^^1^1^2911231^"
^DD(450,116.14,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.14,"DT")="2930216"
^DD(450,116.15,0)="FOLLOWUP CODE 44^D^^4;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.15,8)="P"
^DD(450,116.15,21,0)="^^1^1^2911231^"
^DD(450,116.15,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.15,"DT")="2930216"
^DD(450,116.16,0)="FOLLOWUP CODE 45^D^^4;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.16,8)="P"
^DD(450,116.16,21,0)="^^1^1^2911231^"
^DD(450,116.16,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.16,"DT")="2930216"
^DD(450,116.17,0)="FOLLOWUP CODE 46^D^^4;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.17,8)="P"
^DD(450,116.17,21,0)="^^1^1^2911231^"
^DD(450,116.17,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.17,"DT")="2930216"
^DD(450,116.18,0)="FOLLOWUP CODE 47^D^^4;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.18,8)="P"
^DD(450,116.18,21,0)="^^1^1^2911231^"
^DD(450,116.18,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.18,"DT")="2930216"
^DD(450,116.19,0)="FOLLOWUP CODE 48^D^^4;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.19,8)="P"
^DD(450,116.19,21,0)="^^1^1^2911231^"
^DD(450,116.19,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.19,"DT")="2930216"
^DD(450,116.2,0)="FOLLOWUP CODE 49^D^^4;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,116.2,8)="P"
^DD(450,116.2,21,0)="^^1^1^2911231^"
^DD(450,116.2,21,1,0)="Permanent Station Use Followup Code date."
^DD(450,116.2,"DT")="2930216"
^DD(450,119,0)="ACADEMIC TITLE^FO^^T38;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,119,2)="S Y(0)=Y S SUB454=""ACA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,119,2.1)="S SUB454=""ACA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,119,3)="Answer must be 1 character in length."
^DD(450,119,8)="P"
^DD(450,119,21,0)="^^2^2^2921021^^^"
^DD(450,119,21,1,0)="Identifies the academic title of a title 38 physician or dentist who holds a"
^DD(450,119,21,2,0)="teaching position at a university or medical school."
^DD(450,119,"DT")="2921021"
^DD(450,120,0)="ADDL DIPLOMATE SPECIALTY A^FO^^T38;2^K:$L(X)>2!($L(X)<2) X"
^DD(450,120,2)="S Y(0)=Y S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,120,2.1)="S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,120,3)="Answer must be 2 characters in length."
^DD(450,120,8)="P"
^DD(450,120,21,0)="3^^4^4^2921016^"
^DD(450,120,21,1,0)="Identifies the specialty or area of specialization for which a title 38"
^DD(450,120,21,2,0)="physician or dentist has been certified by the American Board of Specialists"
^DD(450,120,21,3,0)="(ABS).  An employee may have three of these codes on record.  This field"
^DD(450,120,21,4,0)="refers to specialty #2."
^DD(450,120,"DT")="2911211"
^DD(450,121,0)="ANNUAL TENURE CHANGE^FO^^T38;3^K:$L(X)>1!($L(X)<1) X"
^DD(450,121,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,121,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,121,3)="Answer must be 1 character in length."
^DD(450,121,8)="P"
^DD(450,121,21,0)="^^2^2^2911108^"
^DD(450,121,21,1,0)="This is an internal control field which notifies the station of a tenure"
^DD(450,121,21,2,0)="change for physicians and dentists."
^DD(450,121,"DT")="2930115"
^DD(450,122,0)="ANNUAL REVIEW IND^FO^^T38;4^K:$L(X)>1!($L(X)<1) X"
^DD(450,122,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,122,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,122,3)="Answer must be 1 character in length."
^DD(450,122,8)="P"
^DD(450,122,21,0)="^^2^2^2911108^"
^DD(450,122,21,1,0)="Code indicates that the annual verification of a physician or dentist"
^DD(450,122,21,2,0)="is completed."
^DD(450,122,"DT")="2930115"
^DD(450,123,0)="BOARD ELIGIBLE SPECIALTY A^FO^^T38;5^K:$L(X)>2!($L(X)<2) X"
^DD(450,123,2)="S Y(0)=Y S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,123,2.1)="S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,123,3)="Answer must be 2 characters in length."
^DD(450,123,8)="P"
^DD(450,123,21,0)="^^4^4^2921020^^^"
^DD(450,123,21,1,0)="Identifies the medical specialty that a Title 38 physician or dentist has"
^DD(450,123,21,2,0)="prepared for but for which certification has not been granted by the"
^DD(450,123,21,3,0)="American Board of Specialties (ABS).  An employee may have two eligibility"
^DD(450,123,21,4,0)="codes on record."
^DD(450,123,"DT")="2921020"
^DD(450,124,0)="BOARD ELIGIBLE SPECIALTY B^FO^^T38;6^K:$L(X)>2!($L(X)<2) X"
^DD(450,124,2)="S Y(0)=Y S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,124,2.1)="S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,124,3)="Answer must be 2 characters in length."
^DD(450,124,8)="P"
^DD(450,124,21,0)="^^4^4^2921020^^^"
^DD(450,124,21,1,0)="Identifies the medical specialty that a Title 38 physician or dentist has"
^DD(450,124,21,2,0)="prepared for but for which certification has not been granted by the"
^DD(450,124,21,3,0)="American Board of Specialties (ABS).  An employee may have two eligibility"
^DD(450,124,21,4,0)="codes on record."
^DD(450,124,"DT")="2921020"
^DD(450,125,0)="CONTINUING EDUC CODE (AT APPT)^F^^T38;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,125,3)="Answer must be 1 character in length."
^DD(450,125,8)="P"
^DD(450,125,21,0)="^^2^2^2911108^"
^DD(450,125,21,1,0)="The continuing education code at the time of appointment for Title 38"
^DD(450,125,21,2,0)="employees."
^DD(450,125,"DT")="2930115"
^DD(450,126,0)="CONTINUING EDUC CODE (CURRENT)^F^^T38;8^K:$L(X)>1!($L(X)<1) X"
^DD(450,126,3)="Answer must be 1 character in length."
^DD(450,126,8)="P"
^DD(450,126,21,0)="^^1^1^2911108^"
^DD(450,126,21,1,0)="The current continuing education code for Title 38 employees."
^DD(450,126,"DT")="2930115"
^DD(450,127,0)="COUNTRY OF BIRTH^FO^^T38;9^K:$L(X)>2!($L(X)<2) X"
^DD(450,127,2)="S Y(0)=Y S SUB454=""CTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,127,2.1)="S SUB454=""CTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,127,3)="Answer must be 2 characters in length."
^DD(450,127,8)="P"
^DD(450,127,21,0)="^^2^2^2930219^^^^"
^DD(450,127,21,1,0)="Identifies the country where a title 38 physician or dentist was born."
^DD(450,127,21,2,0)=" "
^DD(450,127,"DT")="2921021"
^DD(450,128,0)="COUNTRY OF MEDICAL SCHOOL^FO^^T38;10^K:$L(X)>2!($L(X)<2) X"
^DD(450,128,2)="S Y(0)=Y S SUB454=""CTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,128,2.1)="S SUB454=""CTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,128,3)="Answer must be 2 characters in length."
^DD(450,128,8)="P"
^DD(450,128,21,0)="^^2^2^2921021^^^"
^DD(450,128,21,1,0)="Identifies the country where a title 38 physician or dentist received"
^DD(450,128,21,2,0)="his/her medical or dental degree."
^DD(450,128,"DT")="2921021"
^DD(450,129,0)="COUNTRY OF POST GR TRAINING^FO^^T38;11^K:$L(X)>2!($L(X)<2) X"
^DD(450,129,2)="S Y(0)=Y S SUB454=""CTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,129,2.1)="S SUB454=""CTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,129,3)="Answer must be 2 characters in length."
^DD(450,129,8)="P"
^DD(450,129,21,0)="^^2^2^2921021^^^"
^DD(450,129,21,1,0)="Identifies the country where a title 38 physician or dentist received the"
^DD(450,129,21,2,0)="greatest amount of his/her postgraduate training."
^DD(450,129,"DT")="2921021"
^DD(450,130,0)="LWOP FOR EDUCATION IND^FO^^T38;12^K:$L(X)>1!($L(X)<1) X"
^DD(450,130,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,130,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,130,3)="Answer must be 1 character in length."
^DD(450,130,8)="FP"
^DD(450,130,21,0)="^^4^4^2911107^"
^DD(450,130,21,1,0)="Leave Without Pay (LWOP) for educational purposes by a physician,"
^DD(450,130,21,2,0)="dentist, or nurse is creditable time for promotion and within grade"
^DD(450,130,21,3,0)="increase purposes. Values: N - LWOP is not creditable; Y - LWOP is"
^DD(450,130,21,4,0)="creditable."
^DD(450,130,"DT")="2930115"
^DD(450,131,0)="FOREIGN MEDICAL GRADUATE IND^FO^^T38;13^K:$L(X)>1!($L(X)<1) X"
^DD(450,131,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,131,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,131,3)="Answer must be 1 character in length."
^DD(450,131,8)="P"
^DD(450,131,21,0)="^^2^2^2911107^"
^DD(450,131,21,1,0)="Code identifies a physician or dentist whose medical schooling was"
^DD(450,131,21,2,0)="obtained in a foreign country."
^DD(450,131,"DT")="2930115"
^DD(450,132,0)="ADDL DIPLOMATE SPECIALTY B^FO^^T38;14^K:$L(X)>2!($L(X)<2) X"
^DD(450,132,2)="S Y(0)=Y S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,132,2.1)="S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,132,3)="Answer must be 2 characters in length."
^DD(450,132,8)="P"
^DD(450,132,21,0)="3^^4^4^2921016^^"
^DD(450,132,21,1,0)="Identifies the specialty or area of specialization for which a title 38"
^DD(450,132,21,2,0)="physician or dentist has been certified by the American Board of Specialists"
^DD(450,132,21,3,0)="(ABS).  An employee may have three of these codes on record.  This field"
^DD(450,132,21,4,0)="refers to specialty #3."
^DD(450,132,"DT")="2921016"
^DD(450,133,0)="INTERNSHIP CODE^F^^T38;15^K:$L(X)>1!($L(X)<1) X"
^DD(450,133,3)="Answer must be 1 character in length."
^DD(450,133,8)="FP"
^DD(450,133,21,0)="^^2^2^2930223^^^"
^DD(450,133,21,1,0)="Code identifies the status of non-career medical or dental residents,"
^DD(450,133,21,2,0)="for pay and salary edit purposes."
^DD(450,133,"DT")="2930115"
^DD(450,134,0)="NO AGREEMENT REASON (AT APPT)^FO^^T38;16^K:$L(X)>1!($L(X)<1) X"
^DD(450,134,2)="S Y(0)=Y S SUB454=""SPN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,134,2.1)="S SUB454=""SPN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,134,3)="Answer must be 1 character in length."
^DD(450,134,8)="P"
^DD(450,134,21,0)="^^3^3^2930223^^^"
^DD(450,134,21,1,0)="Code indicates the reason a Title 38 physician or dentist did not"
^DD(450,134,21,2,0)="qualify for, or elected not to receive, special pay at the time of"
^DD(450,134,21,3,0)="the appointment."
^DD(450,134,"DT")="2930115"
^DD(450,135,0)="NO AGREEMENT REASON (CURRENT)^FO^^T38;17^K:$L(X)>1!($L(X)<1) X"
^DD(450,135,2)="S Y(0)=Y S SUB454=""SPN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,135,2.1)="S SUB454=""SPN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,135,3)="Answer must be 1 character in length."
^DD(450,135,8)="P"
^DD(450,135,21,0)="^^2^2^2911108^^"
^DD(450,135,21,1,0)="Code indicates the reason a Title 38 physician or dentist is not"
^DD(450,135,21,2,0)="currently qualified for, or elected not to receive, special pay."
^DD(450,135,"DT")="2930115"
^DD(450,136,0)="NON-PAYABLE ANNUAL LEAVE^NJ3,0^^T38;18^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(450,136,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(450,136,8)="FP"
^DD(450,136,21,0)="^^4^4^2930503^^^"
^DD(450,136,21,1,0)="Total days of non-payable annual leave a resident has available to use."
^DD(450,136,21,2,0)="The balance is as of the last pay period processed. This annual leave may"
^DD(450,136,21,3,0)="be used as long as the resident is in this program with the VA. If he/she"
^DD(450,136,21,4,0)="resigns or is terminated the leave is forfeited."
^DD(450,136,"DT")="2930115"
^DD(450,137,0)="PAYABLE ANNUAL LEAVE^NJ3,0^^T38;19^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(450,137,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(450,137,8)="FP"
^DD(450,137,21,0)="^^4^4^2911118^"
^DD(450,137,21,1,0)="Total days payable to a resident for annual leave. This leave may be used"
^DD(450,137,21,2,0)="or carried over to the next year. If the resident in this program resigns"
^DD(450,137,21,3,0)="or is terminated the balance of this annual leave must be paid in a lump"
^DD(450,137,21,4,0)="sum payment."
^DD(450,137,"DT")="2930115"
^DD(450,138,0)="PREAPPOINTMENT EXPERIENCE^FO^^T38;20^K:$L(X)>1!($L(X)<1) X"
^DD(450,138,2)="S Y(0)=Y S SUB454=""PEX"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,138,2.1)="S SUB454=""PEX"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,138,3)="Answer must be 1 character in length."
^DD(450,138,8)="P"
^DD(450,138,21,0)="^^2^2^2930223^^^^"
^DD(450,138,21,1,0)="Identifies the nature of the most recent employment experience of a title"
^DD(450,138,21,2,0)="38 Physician or Dentist prior to coming on VA rolls."
^DD(450,138,"DT")="2930115"
^DD(450,139,0)="DIPLOMATE^FO^^T38;21^K:$L(X)>2!($L(X)<2) X"
^DD(450,139,2)="S Y(0)=Y S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,139,2.1)="S SUB454=""DIP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,139,3)="Answer must be 2 characters in length."
^DD(450,139,8)="P"
^DD(450,139,21,0)="^^4^4^2930222^^^^"
^DD(450,139,21,1,0)="Identifies the specialty or area of specialization for which a title 38"
^DD(450,139,21,2,0)="physician or dentist has been certified by the American Board of Specialists"
^DD(450,139,21,3,0)="(ABS).  An employee may have three of these codes on record.  This refers to"
^DD(450,139,21,4,0)="specialty #1."
^DD(450,139,"DT")="2921016"
^DD(450,140,0)="PROMOTION ELIGIBILITY IND^FO^^T38;22^K:$L(X)>1!($L(X)<1) X"
^DD(450,140,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,140,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,140,3)="Answer must be 1 character in length."
^DD(450,140,8)="P"
^DD(450,140,21,0)="^^2^2^2911121^^"
^DD(450,140,21,1,0)="Notice of eligibility for promotion has been produced for a physician,"
^DD(450,140,21,2,0)="dentist or nurse."
^DD(450,140,"DT")="2930115"
^DD(450,141,0)="RET MIL/DUAL COMP WAIVER^F^^T38;23^K:$L(X)>1!($L(X)<1) X"
^DD(450,141,3)="Answer must be 1 character in length."
^DD(450,141,8)="FP"
^DD(450,141,21,0)="^^4^4^2930223^^^"
^DD(450,141,21,1,0)="Indicates whether or not a physician or dentist who is a retired"
^DD(450,141,21,2,0)="member of the uniformed service has obtained a waiver of the dual"
^DD(450,141,21,3,0)="compensation provisions as stated in the Federal Personnel Manual,"
^DD(450,141,21,4,0)="CH 550."
^DD(450,141,"DT")="2930115"
^DD(450,142,0)="SPECIAL PAY ANNUAL AMT^NJ8,2^^T38;24^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,142,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,142,8)="FP"
^DD(450,142,21,0)="^^1^1^2911107^"
^DD(450,142,21,1,0)="The amount of additional compensation for physicians and dentists."
^DD(450,142,"DT")="2930115"
^DD(450,143,0)="SPECIAL PAY AGREEMENT DATE^D^^T38;25^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,143,3)=""
^DD(450,143,8)="FP"
^DD(450,143,21,0)="^^3^3^2930223^^^^"
^DD(450,143,21,1,0)="Date that a title 38 physician or dentist signed an agreement for special"
^DD(450,143,21,2,0)="pay.  The date is also the effective date of employee's special pay."
^DD(450,143,21,3,0)=" "
^DD(450,143,"DT")="2930223"
^DD(450,144,0)="SPECIAL PAY AGREEMENT LENGTH^F^^T38;26^K:$L(X)>1!($L(X)<1) X"
^DD(450,144,3)="Answer must be 1 character in length."
^DD(450,144,8)="FP"
^DD(450,144,21,0)="^^2^2^2930223^^"
^DD(450,144,21,1,0)="Indicates the number of years that a title 38 physician or dentist will"
^DD(450,144,21,2,0)="receive special pay under a special pay agreement."
^DD(450,144,"DT")="2930223"
^DD(450,145,0)="SPECIAL PAY AGREEMENT QUAL APT^FO^^T38;27^K:$L(X)>1!($L(X)<1) X"
^DD(450,145,2)="S Y(0)=Y S SUB454=""SPQ"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,145,2.1)="S SUB454=""SPQ"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,145,3)="Answer must be 1 character in length."
^DD(450,145,8)="P"
^DD(450,145,21,0)="^^3^3^2930223^^^^"
^DD(450,145,21,1,0)="Identifies the qualification factor which was used in determining the amount"
^DD(450,145,21,2,0)="of special pay."
^DD(450,145,21,3,0)=" "
^DD(450,145,"DT")="2930223"
^DD(450,146,0)="SPECIAL PAY AGREEMENT QUAL CUR^FO^^T38;28^K:$L(X)>1!($L(X)<1) X"
^DD(450,146,2)="S Y(0)=Y S SUB454=""SPQ"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,146,2.1)="S SUB454=""SPQ"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,146,3)="Answer must be 1 character in length."
^DD(450,146,8)="P"
^DD(450,146,21,0)="^^2^2^2930223^^^"
^DD(450,146,21,1,0)="Identifies the qualification factor which was used in determining the amount"
^DD(450,146,21,2,0)="of special pay."
^DD(450,146,21,3,0)="who receives special pay."
^DD(450,146,"DT")="2930223"
^DD(450,147,0)="SPECIAL PAY RET DED^FO^^T38;29^K:$L(X)>1!($L(X)<1) X"
^DD(450,147,2)="S Y(0)=Y S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,147,2.1)="S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,147,3)="Answer must be 1 character in length."
^DD(450,147,8)="FP"
^DD(450,147,21,0)="^^2^2^2930223^^^"
^DD(450,147,21,1,0)="Indicates whether or not title 38 physicians and dentists special pay is"
^DD(450,147,21,2,0)="base pay for retirement and TSP deductions."
^DD(450,147,"DT")="2930205"
^DD(450,148,0)="SPEC ADVANCEMENT FOR PERF IND^FO^^T38;30^K:$L(X)>1!($L(X)<1) X"
^DD(450,148,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,148,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,148,3)="Answer must be 1 character in length."
^DD(450,148,8)="P"
^DD(450,148,21,0)="^^3^3^2911107^"
^DD(450,148,21,1,0)="Code indicates that advance notice has been produced for a Title 38"
^DD(450,148,21,2,0)="physician or dentist eligible to be considered for special advancement"
^DD(450,148,21,3,0)="for performance."
^DD(450,148,"DT")="2930115"
^DD(450,149,0)="SPECIAL CALC INDICATOR^FO^^T38;31^K:$L(X)>1!($L(X)<1) X"
^DD(450,149,2)="S Y(0)=Y S SUB454=""SPC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,149,2.1)="S SUB454=""SPC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,149,3)="Answer must be 1 character in length."
^DD(450,149,8)="P"
^DD(450,149,21,0)="^^2^2^2930223^^"
^DD(450,149,21,1,0)="Indicates that the station Personnel Office is responsible for manual"
^DD(450,149,21,2,0)="special pay calculation and maintenance of changes in special pay."
^DD(450,149,"DT")="2930223"
^DD(450,150,0)="SPECIAL SALARY ADJUSTMENT^NJ8,2^^T38;32^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,150,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,150,8)="F"
^DD(450,150,21,0)="^^2^2^2930223^^^"
^DD(450,150,21,1,0)="The actual amount to be added to an employee's salary when he/she is in a"
^DD(450,150,21,2,0)="position which receives additional compensation."
^DD(450,150,"DT")="2930115"
^DD(450,151,0)="SPECIALTY TRAINED^FO^^T38;33^K:$L(X)>1!($L(X)<1) X"
^DD(450,151,2)="S Y(0)=Y S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,151,2.1)="S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,151,3)="Answer must be 1 character in length."
^DD(450,151,8)="P"
^DD(450,151,21,0)="^^3^3^2930223^^^"
^DD(450,151,21,1,0)="Indicates that a physician or dentist is considered specialty trained in one"
^DD(450,151,21,2,0)="of the scarce medical or dental specialties for which incentive special pay"
^DD(450,151,21,3,0)="is applicable."
^DD(450,151,"DT")="2930205"
^DD(450,152,0)="STATE OF LICENSURE^F^^T38;34^K:$L(X)>2!($L(X)<2) X"
^DD(450,152,3)="Answer must be 2 characters in length."
^DD(450,152,8)="P"
^DD(450,152,21,0)="^^2^2^2930223^^^"
^DD(450,152,21,1,0)="Identifies the state or territory where a title 38 physician or dentist is"
^DD(450,152,21,2,0)="licensed to practice."
^DD(450,152,"DT")="2930115"
^DD(450,153,0)="STATE OF EMPLOYMENT PREAPPT^F^^T38;35^K:$L(X)>2!($L(X)<2) X"
^DD(450,153,3)="Answer must be 2 characters in length."
^DD(450,153,8)="P"
^DD(450,153,21,0)="^^2^2^2930223^^^"
^DD(450,153,21,1,0)="Identifies the state or territory where a title 38 physician or"
^DD(450,153,21,2,0)="dentist was employed immediately prior to coming on VA rolls."
^DD(450,153,"DT")="2930223"
^DD(450,154,0)="VA SERVICE DATE^D^^T38;36^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,154,3)=""
^DD(450,154,8)="P"
^DD(450,154,21,0)="^^3^3^2911108^^"
^DD(450,154,21,1,0)="Reflects the time certain Title 38 employees have worked in VA medical"
^DD(450,154,21,2,0)="service. Applies to physicians, dentists, podiatrists, optometrists,"
^DD(450,154,21,3,0)="nurses, physician assistants, and expanded function dental auxiliaries."
^DD(450,154,"DT")="2930115"
^DD(450,155,0)="PRIOR VA EXPERIENCE (S/I/R) 1^FO^^PVAE;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,155,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,155,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,155,3)="Answer must be 1 character in length."
^DD(450,155,8)="P"
^DD(450,155,21,0)="^^4^4^2930223^^^"
^DD(450,155,21,1,0)="Identifies the type of training experience (student, resident, intern)"
^DD(450,155,21,2,0)="a title 38 physician or dentist received in a VA facility prior to the"
^DD(450,155,21,3,0)="current period of service.  An employee record may contain five of these"
^DD(450,155,21,4,0)="codes."
^DD(450,155,"DT")="2930223"
^DD(450,156,0)="PRIOR VA EXPERIENCE (S/I/R) 2^FO^^PVAE;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,156,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,156,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,156,3)="Answer must be 1 character in length."
^DD(450,156,8)="P"
^DD(450,156,21,0)="^^4^4^2930223^^^"
^DD(450,156,21,1,0)="Identifies the type of training experience (student, resident, intern)"
^DD(450,156,21,2,0)="a title 38 physician or dentist received in a VA facility prior to the"
^DD(450,156,21,3,0)="current period of service.  An employee record may contain five of these"
^DD(450,156,21,4,0)="codes."
^DD(450,156,"DT")="2930223"
^DD(450,157,0)="PRIOR VA EXPERIENCE (S/I/R) 3^FO^^PVAE;3^K:$L(X)>1!($L(X)<1) X"
^DD(450,157,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,157,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,157,3)="Answer must be 1 character in length."
^DD(450,157,8)="P"
^DD(450,157,21,0)="^^4^4^2930223^^^"
^DD(450,157,21,1,0)="Identifies the type of training experience (student, resident, intern)"
^DD(450,157,21,2,0)="a title 38 physician or dentist received in a VA facility prior to the"
^DD(450,157,21,3,0)="current period of service.  An employee record may contain five of these"
^DD(450,157,21,4,0)="codes."
^DD(450,157,"DT")="2930223"
^DD(450,158,0)="PRIOR VA EXPERIENCE (S/I/R) 4^FO^^PVAE;4^K:$L(X)>1!($L(X)<1) X"
^DD(450,158,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,158,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,158,3)="Answer must be 1 character in length."
^DD(450,158,8)="P"
^DD(450,158,21,0)="^^4^4^2930223^^^"
^DD(450,158,21,1,0)="Identifies the type of training experience (student, resident, intern)"
^DD(450,158,21,2,0)="a title 38 physician or dentist received in a VA facility prior to the"
^DD(450,158,21,3,0)="current period of service.  An employee record may contain five of these"
^DD(450,158,21,4,0)="codes."
^DD(450,158,"DT")="2930223"
^DD(450,159,0)="PRIOR VA EXPERIENCE (S/I/R) 5^FO^^PVAE;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,159,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,159,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,159,3)="Answer must be 1 character in length."
^DD(450,159,8)="P"
^DD(450,159,21,0)="^^4^4^2930223^^^"
^DD(450,159,21,1,0)="Identifies the type of training experience (student, resident, intern)"
^DD(450,159,21,2,0)="a title 38 physician or dentist received in a VA facility prior to the"
^DD(450,159,21,3,0)="current period of service.  An employee record may contain five of these"
^DD(450,159,21,4,0)="codes."
^DD(450,159,"DT")="2930223"
^DD(450,160,0)="PRIOR VA EXPERIENCE (OTHER) 1^FO^^PVAE;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,160,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,160,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,160,3)="Answer must be 1 character in length."
^DD(450,160,8)="P"
^DD(450,160,21,0)="^^4^4^2930223^^^^"
^DD(450,160,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,160,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,160,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,160,21,4,0)="codes."
^DD(450,160,"DT")="2930223"
^DD(450,161,0)="PRIOR VA EXPERIENCE (OTHER) 2^FO^^PVAE;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,161,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,161,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,161,3)="Answer must be 1 character in length."
^DD(450,161,8)="P"
^DD(450,161,21,0)="^^4^4^2930223^^^"
^DD(450,161,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,161,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,161,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,161,21,4,0)="codes."
^DD(450,161,"DT")="2930223"
^DD(450,162,0)="PRIOR VA EXPERIENCE (OTHER) 3^FO^^PVAE;8^K:$L(X)>1!($L(X)<1) X"
^DD(450,162,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,162,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,162,3)="Answer must be 1 character in length."
^DD(450,162,8)="P"
^DD(450,162,21,0)="^^4^4^2930223^^^"
^DD(450,162,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,162,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,162,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,162,21,4,0)="codes."
^DD(450,162,"DT")="2930223"
^DD(450,163,0)="PRIOR VA EXPERIENCE (OTHER) 4^FO^^PVAE;9^K:$L(X)>1!($L(X)<1) X"
^DD(450,163,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,163,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,163,3)="Answer must be 1 character in length."
^DD(450,163,8)="P"
^DD(450,163,21,0)="^^4^4^2930223^^^"
^DD(450,163,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,163,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,163,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,163,21,4,0)="codes."
^DD(450,163,"DT")="2930223"
^DD(450,164,0)="PRIOR VA EXPERIENCE (OTHER) 5^FO^^PVAE;10^K:$L(X)>1!($L(X)<1) X"
^DD(450,164,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,164,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,164,3)="Answer must be 1 character in length."
^DD(450,164,8)="P"
^DD(450,164,21,0)="^^4^4^2930223^^^"
^DD(450,164,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,164,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,164,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,164,21,4,0)="codes."
^DD(450,164,"DT")="2930223"
^DD(450,165,0)="PRIOR VA EXPERIENCE (OTHER) 6^FO^^PVAE;11^K:$L(X)>1!($L(X)<1) X"
^DD(450,165,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,165,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,165,3)="Answer must be 1 character in length."
^DD(450,165,8)="P"
^DD(450,165,21,0)="^^4^4^2930223^^^"
^DD(450,165,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,165,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,165,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,165,21,4,0)="codes."
^DD(450,165,"DT")="2930223"
^DD(450,166,0)="PRIOR VA EXPERIENCE (OTHER) 7^FO^^PVAE;12^K:$L(X)>1!($L(X)<1) X"
^DD(450,166,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,166,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,166,3)="Answer must be 1 character in length."
^DD(450,166,8)="P"
^DD(450,166,21,0)="^^4^4^2930223^^^"
^DD(450,166,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,166,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,166,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,166,21,4,0)="codes."
^DD(450,166,"DT")="2930223"
^DD(450,167,0)="PRIOR VA EXPERIENCE (OTHER) 8^FO^^PVAE;13^K:$L(X)>1!($L(X)<1) X"
^DD(450,167,2)="S Y(0)=Y S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,167,2.1)="S SUB454=""PVA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,167,3)="Answer must be 1 character in length."
^DD(450,167,8)="P"
^DD(450,167,21,0)="^^4^4^2930223^^^"
^DD(450,167,21,1,0)="Identifies the type of training experience above the trainee level a title"
^DD(450,167,21,2,0)="38 physician or dentist had while working in a VA facility prior to the"
^DD(450,167,21,3,0)="current period of service.  An employee record may contain eight of these"
^DD(450,167,21,4,0)="codes."
^DD(450,167,"DT")="2930223"
^DD(450,168,0)="CLINICAL EXPERIENCE 1^FO^^PCD;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,168,2)="S Y(0)=Y S SUB454=""ACE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,168,2.1)="S SUB454=""ACE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,168,3)="Answer must be 1 character in length."
^DD(450,168,8)="P"
^DD(450,168,21,0)="^^2^2^2930222^^^^"
^DD(450,168,21,1,0)="The type of clinical nursing experience (at least one year in duration)"
^DD(450,168,21,2,0)="which the employee has had."
^DD(450,168,"DT")="2930222"
^DD(450,169,0)="CLINICAL EXPERIENCE 2^FO^^PCD;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,169,2)="S Y(0)=Y S SUB454=""ACE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,169,2.1)="S SUB454=""ACE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,169,3)="Answer must be 1 character in length."
^DD(450,169,8)="P"
^DD(450,169,21,0)="^^2^2^2930222^^^^"
^DD(450,169,21,1,0)="The type of clinical nursing experience (at least one year in duration)"
^DD(450,169,21,2,0)="which the employee has had."
^DD(450,169,"DT")="2930222"
^DD(450,170,0)="DATE ASSIGNED PRESENT POSITION^D^^PCD;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,170,3)=""
^DD(450,170,8)="P"
^DD(450,170,21,0)="^^1^1^2930503^^^^"
^DD(450,170,21,1,0)="The date an individual was assigned to his/her present position."
^DD(450,170,21,2,0)="assigned to his/her present position."
^DD(450,170,"DT")="2921116"
^DD(450,171,0)="DATE AVAILABLE^D^^PCD;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,171,3)=""
^DD(450,171,8)="P"
^DD(450,171,21,0)="^^3^3^2930219^^^^"
^DD(450,171,21,1,0)="The date that a candidate or incumbent of a centralized title 38 position"
^DD(450,171,21,2,0)="will be available for relocation or re-assignment.  Used for Professional"
^DD(450,171,21,3,0)="Career Development (PCD)."
^DD(450,171,"DT")="2921116"
^DD(450,172,0)="FUNCTIONAL EXPERIENCE 1^FO^^PCD;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,172,2)="S Y(0)=Y S SUB454=""FE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,172,2.1)="S SUB454=""FE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,172,3)="Answer must be 1 character in length."
^DD(450,172,8)="P"
^DD(450,172,21,0)="^^3^3^2930222^^^^"
^DD(450,172,21,1,0)="The type of functional nursing experience the employee has.  This data"
^DD(450,172,21,2,0)="element consists of two categories: FUNCTIONAL EXPERIENCE 1 and FUNCTIONAL"
^DD(450,172,21,3,0)="EXPERIENCE 2."
^DD(450,172,"DT")="2930222"
^DD(450,173,0)="FUNCTIONAL EXPERIENCE 2^FO^^PCD;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,173,2)="S Y(0)=Y S SUB454=""FE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,173,2.1)="S SUB454=""FE"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,173,3)="Answer must be 1 character in length."
^DD(450,173,8)="P"
^DD(450,173,21,0)="^^3^3^2930222^^^^"
^DD(450,173,21,1,0)="The type of functional nursing experience the employee has.  This data"
^DD(450,173,21,2,0)="element consists of two categories: FUNCTIONAL EXPERIENCE 1 and FUNCTIONAL"
^DD(450,173,21,3,0)="EXPERIENCE 2."
^DD(450,173,"DT")="2930222"
^DD(450,174,0)="GEOGRAPHIC PREFERENCE 1^FO^^PCD;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,174,2)="S Y(0)=Y S SUB454=""GEP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,174,2.1)="S SUB454=""GEP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,174,3)="Answer must be 1 character in length."
^DD(450,174,8)="P"
^DD(450,174,21,0)="^^4^4^2930222^^^"
^DD(450,174,21,1,0)="The geographic preference of incumbents of or candidates for centralized"
^DD(450,174,21,2,0)="title 38 physician or dentist positions.  A total of two locations may be"
^DD(450,174,21,3,0)="selected.  This data element consists of two categories: GEOGRAPHIC "
^DD(450,174,21,4,0)="PREFERENCE 1 and GEOGRAPHIC PREFERENCE 2."
^DD(450,174,"DT")="2930222"
^DD(450,175,0)="GEOGRAPHIC PREFERENCE 2^FO^^PCD;8^K:$L(X)>1!($L(X)<1) X"
^DD(450,175,2)="S Y(0)=Y S SUB454=""GEP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,175,2.1)="S SUB454=""GEP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,175,3)="Answer must be 1 character in length."
^DD(450,175,8)="P"
^DD(450,175,21,0)="^^3^3^2911108^^^"
^DD(450,175,21,1,0)="Code identifies the second geographic preference for mobility assignment"
^DD(450,175,21,2,0)="purposes of incumbents or candidates for centralized Title 38 physician,"
^DD(450,175,21,3,0)="dentist, or nurse positions."
^DD(450,175,"DT")="2930222"
^DD(450,176,0)="POSITION PREFERENCE^FO^^PCD;9^K:$L(X)>2!($L(X)<2) X"
^DD(450,176,2)="S Y(0)=Y S SUB454=""POP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,176,2.1)="S SUB454=""POP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,176,3)="Answer must be 2 characters in length."
^DD(450,176,8)="P"
^DD(450,176,21,0)="^^2^2^2930223^^^"
^DD(450,176,21,1,0)="Position for which a candidate or incumbent wishes to be considered when a"
^DD(450,176,21,2,0)="vacancy occurs."
^DD(450,176,"DT")="2930223"
^DD(450,177,0)="SPECIAL PROGRAM^FO^^PCD;10^K:$L(X)>1!($L(X)<1) X"
^DD(450,177,2)="S Y(0)=Y S SUB454=""SP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,177,2.1)="S SUB454=""SP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,177,3)="Answer must be 1 character in length."
^DD(450,177,8)="P"
^DD(450,177,21,0)="^^3^3^2930223^^^"
^DD(450,177,21,1,0)="This element is a code which indicates when an employee has completed either"
^DD(450,177,21,2,0)="the VA Health Professional Scholarship Program or the VA Masters Education"
^DD(450,177,21,3,0)="in Nursing Administration Program."
^DD(450,177,"DT")="2930223"
^DD(450,178,0)="YEAR COMPLETED^F^^PCD;11^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(450,178,3)="Answer must be 4 numerics in length."
^DD(450,178,8)="P"
^DD(450,178,21,0)="^^3^3^2930223^^"
^DD(450,178,21,1,0)="The calendar year the nurse completed either the VA Health Professional"
^DD(450,178,21,2,0)="Scholarship Program or the VA Masters Education in Nursing Administration"
^DD(450,178,21,3,0)="Program."
^DD(450,178,"DT")="2930223"
^DD(450,179,0)="STATUS CODE^F^^PCD;12^K:$L(X)>1!($L(X)<1) X"
^DD(450,179,3)="Answer must be 1 character in length."
^DD(450,179,8)="FP"
^DD(450,179,21,0)="^^5^5^2930409^^^^"
^DD(450,179,21,1,0)="A centralized physician or dentist's interest/noninterest in reassignment."
^DD(450,179,21,2,0)=" "
^DD(450,179,21,3,0)=" "
^DD(450,179,21,4,0)=" "
^DD(450,179,21,5,0)=" "
^DD(450,179,"DT")="2930223"
^DD(450,180,0)="TRAINING PROGRAM^FO^^PCD;13^K:$L(X)>1!($L(X)<1) X"
^DD(450,180,2)="S Y(0)=Y S SUB454=""TP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,180,2.1)="S SUB454=""TP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,180,3)="Answer must be 1 character in length."
^DD(450,180,8)="P"
^DD(450,180,21,0)="^^2^2^2911108^^"
^DD(450,180,21,1,0)="Code identifies the training program for which a nurse is interested"
^DD(450,180,21,2,0)="in being considered within the next year."
^DD(450,180,"DT")="2930223"
^DD(450,181,0)="CHECK MAILING ADDRESS LINE 1^F^^ADD;1^K:$L(X)>23!($L(X)<1) X"
^DD(450,181,3)="Answer must be 1-23 characters in length."
^DD(450,181,8)="F"
^DD(450,181,21,0)="^^2^2^2911118^^"
^DD(450,181,21,1,0)="The first line of the address, selected by the employee, to which his/her"
^DD(450,181,21,2,0)="biweekly salary checks are to be mailed."
^DD(450,181,"DT")="2930223"
^DD(450,182,0)="CHECK MAILING ADDRESS LINE 2^F^^ADD;2^K:$L(X)>23!($L(X)<1) X"
^DD(450,182,3)="Answer must be 1-23 characters in length."
^DD(450,182,8)="F"
^DD(450,182,21,0)="^^2^2^2911118^^"
^DD(450,182,21,1,0)="The second line of the address, selected by the employee, to which"
^DD(450,182,21,2,0)="his/her biweekly salary checks are to be mailed."
^DD(450,182,"DT")="2930223"
^DD(450,183,0)="CHECK MAILING ADDRESS LINE 3^F^^ADD;3^K:$L(X)>16!($L(X)<1) X"
^DD(450,183,3)="Answer must be 1-16 characters in length."
^DD(450,183,8)="F"
^DD(450,183,21,0)="^^2^2^2911118^^"
^DD(450,183,21,1,0)="The third line of the address, selected by the employee, to which his/her"
^DD(450,183,21,2,0)="biweekly salary checks are to be mailed."
^DD(450,183,"DT")="2930223"
^DD(450,184,0)="CHECK MAILING ADDRESS ZIP CODE^F^^ADD;4^K:$L(X)>9!($L(X)<5) X"
^DD(450,184,3)="Answer must be 5-9 characters in length."
^DD(450,184,8)="F"
^DD(450,184,21,0)="^^2^2^2911118^^"
^DD(450,184,21,1,0)="The zip code of the address to which an employee designates his/her"
^DD(450,184,21,2,0)="check mailed to."
^DD(450,184,"DT")="2910603"
^DD(450,185,0)="EARNINGS & LEAVE OPTION^FO^^ADD;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,185,2)="S Y(0)=Y S SUB454=""EAR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,185,2.1)="S SUB454=""EAR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,185,3)="Answer must be 1 character in length."
^DD(450,185,8)="F"
^DD(450,185,21,0)="^^2^2^2911118^^^"
^DD(450,185,21,1,0)="Indicates that the employee wants his/her earnings and leave statement"
^DD(450,185,21,2,0)="to be mailed to an address other than their residence."
^DD(450,185,"DT")="2911211"
^DD(450,186,0)="RESIDENCE STATE^FO^^ADD;6^K:$L(X)>2!($L(X)<2) X"
^DD(450,186,2)="S Y(0)=Y S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,186,2.1)="S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,186,3)="Answer must be 2 characters in length."
^DD(450,186,8)="F"
^DD(450,186,21,0)="^^2^2^2911107^^"
^DD(450,186,21,1,0)="This is a two-digit code, assigned by GSA, which identifies the state"
^DD(450,186,21,2,0)="in which an employee resides."
^DD(450,186,"DT")="2911211"
^DD(450,186.1,0)="RESIDENCE ADDRESS LINE 1^F^^ADD;7^K:$L(X)>23!($L(X)<1) X"
^DD(450,186.1,3)="Answer must be 1-23 characters in length."
^DD(450,186.1,8)="FP"
^DD(450,186.1,21,0)="^^1^1^2930217^"
^DD(450,186.1,21,1,0)="Contains address information on the employee's residence."
^DD(450,186.1,"DT")="2930223"
^DD(450,186.2,0)="RESIDENCE ADDRESS LINE 2^F^^ADD;8^K:$L(X)>23!($L(X)<1) X"
^DD(450,186.2,3)="Answer must be 1-23 characters in length."
^DD(450,186.2,8)="FP"
^DD(450,186.2,21,0)="^^1^1^2930217^"
^DD(450,186.2,21,1,0)="Contains address information on the employee's residence."
^DD(450,186.2,"DT")="2930223"
^DD(450,186.3,0)="RESIDENCE ADDRESS LINE 3^F^^ADD;9^K:$L(X)>16!($L(X)<1) X"
^DD(450,186.3,3)="Answer must be 1-16 characters in length."
^DD(450,186.3,8)="FP"
^DD(450,186.3,21,0)="^^1^1^2930217^"
^DD(450,186.3,21,1,0)="Contains address information on the employee's residence."
^DD(450,186.3,"DT")="2930223"
^DD(450,186.4,0)="RESIDENCE ADDRESS ZIP CODE^F^^ADD;10^K:$L(X)>9!($L(X)<5) X"
^DD(450,186.4,3)="Answer must be 5-9 characters in length."
^DD(450,186.4,8)="FP"
^DD(450,186.4,21,0)="^^1^1^2930217^"
^DD(450,186.4,21,1,0)="Contains address information on the employee's residence."
^DD(450,186.4,"DT")="2930217"
^DD(450,187,0)="CITY TAX-1 ADDNL AMT WITHHELD^NJ5,0^^CITY;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,187,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(450,187,8)="F"
^DD(450,187,21,0)="^^2^2^2911107^"
^DD(450,187,21,1,0)="The amount of additional primary city income tax that an employee"
^DD(450,187,21,2,0)="has authorized to be withheld from earnings each pay period."
^DD(450,187,"DT")="2910628"
^DD(450,188,0)="CITY TAX-1 AMT WITHHELD CPPD^NJ7,2^^CITY;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(450,188,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(450,188,8)="F"
^DD(450,188,21,0)="^^2^2^2911120^"
^DD(450,188,21,1,0)="The amount of primary city income tax withheld from an employee's gross"
^DD(450,188,21,2,0)="earnings in the last pay period processed."
^DD(450,188,"DT")="2910909"
^DD(450,189,0)="CITY TAX-1 AMT WITHHELD CTPTD^NJ10,2^^CITY;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,189,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,189,8)="F"
^DD(450,189,21,0)="^^5^5^2911121^^"
^DD(450,189,21,1,0)="The accumulated amount withheld from an employee's earnings for the"
^DD(450,189,21,2,0)="primary city income tax in the current tax period to date. Tax periods"
^DD(450,189,21,3,0)="are determined by the employee's city as biweekly, monthly or quarterly."
^DD(450,189,21,4,0)="This amount includes any additional withholding amount and the"
^DD(450,189,21,5,0)="withholding based on claimed allowances"
^DD(450,189,"DT")="2910628"
^DD(450,190,0)="CITY TAX-1 AMT WITHHELD YTD^NJ10,2^^CITY;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,190,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,190,8)="F"
^DD(450,190,21,0)="^^4^4^2911121^^"
^DD(450,190,21,1,0)="The accumulated amount of primary city income tax withheld from an"
^DD(450,190,21,2,0)="employee's earnings for the current tax year to date. This amount"
^DD(450,190,21,3,0)="includes any additional withholding amount and the withholding based"
^DD(450,190,21,4,0)="on claimed allowances."
^DD(450,190,"DT")="2910628"
^DD(450,191,0)="CITY TAX-1 EXEMPTION CODE-1^NJ4,1^^CITY;5^K:+X'=X!(X>99.9)!(X<-99.9)!(X?.E1"".""2N.N) X"
^DD(450,191,3)="Type a Number between -99.9 and 99.9, 1 Decimal Digit"
^DD(450,191,8)="F"
^DD(450,191,21,0)="^^4^4^2911107^"
^DD(450,191,21,1,0)="The code represents the number of exemptions; and/or any special factors"
^DD(450,191,21,2,0)="that affect the computation of tax withholding from an employee's"
^DD(450,191,21,3,0)="taxable earnings. The precise meaning of the code is determined by"
^DD(450,191,21,4,0)="income tax regulations of an employee's primary city."
^DD(450,191,"DT")="2910603"
^DD(450,192,0)="CITY TAX-1 EXEMPTION CODE-2^NJ3,0^^CITY;6^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(450,192,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(450,192,8)="F"
^DD(450,192,21,0)="^^4^4^2911121^^"
^DD(450,192,21,1,0)="The code represents the number of exemptions; and/or any special factors"
^DD(450,192,21,2,0)="that affect the computation of tax withholdings from an employee's"
^DD(450,192,21,3,0)="taxable earnings. The precise meaning of the code is determined by"
^DD(450,192,21,4,0)="income tax regulations of an employee's primary city."
^DD(450,192,"DT")="2910603"
^DD(450,193,0)="CITY TAX-1 GROSS PAY CPPD^NJ10,2^^CITY;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,193,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,193,8)="F"
^DD(450,193,21,0)="^^4^4^2911107^"
^DD(450,193,21,1,0)="The accumulated amount of an employee's gross earnings that are"
^DD(450,193,21,2,0)="subject to primary city tax in the current tax year to date. Tax"
^DD(450,193,21,3,0)="periods are determined by the employee's primary city as biweekly,"
^DD(450,193,21,4,0)="monthly or quarterly."
^DD(450,193,"DT")="2910628"
^DD(450,194,0)="CITY TAX-1 GROSS PAY YTD^NJ10,2^^CITY;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,194,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,194,8)="F"
^DD(450,194,21,0)="^^3^3^2911107^"
^DD(450,194,21,1,0)="The accumulated amount of an employee's gross earnings that are"
^DD(450,194,21,2,0)="subject to income tax in the primary city for the current tax year"
^DD(450,194,21,3,0)="to date."
^DD(450,194,"DT")="2910628"
^DD(450,195,0)="CITY TAX-1 GSA CODE^F^^CITY;9^K:$L(X)>6!($L(X)<6) X"
^DD(450,195,3)="Answer must be 6 characters in length."
^DD(450,195,8)="F"
^DD(450,195,21,0)="^^3^3^2911107^"
^DD(450,195,21,1,0)="Code identifies the assigned primary city tax withholding GSA code"
^DD(450,195,21,2,0)="which indicates where payment or information will be reported to the"
^DD(450,195,21,3,0)="taxing authority."
^DD(450,195,"DT")="2910603"
^DD(450,196,0)="CITY TAX-1 MARITAL STATUS^F^^CITY;10^K:$L(X)>2!($L(X)<1) X"
^DD(450,196,3)="Answer must be 1-2 characters in length."
^DD(450,196,8)="F"
^DD(450,196,21,0)="^^3^3^2911121^^"
^DD(450,196,21,1,0)="This code is used to indicate an employee's marital status, married or"
^DD(450,196,21,2,0)="single, for the purpose of computing primary city tax. Marital status"
^DD(450,196,21,3,0)="is not a factor for every city tax."
^DD(450,196,"DT")="2910603"
^DD(450,197,0)="CITY TAX-1 RESIDENCE STATE^FO^^CITY;11^K:$L(X)>2!($L(X)<2) X"
^DD(450,197,2)="S Y(0)=Y D:'$D(DIS(0)) SOT^PRSDUTIL"
^DD(450,197,2.1)="D:'$D(DIS(0)) SOT^PRSDUTIL"
^DD(450,197,3)="Answer must be 2 characters in length."
^DD(450,197,8)="F"
^DD(450,197,21,0)="^^2^2^2911107^"
^DD(450,197,21,1,0)="Code indicates whether an employee is a resident of the primary city"
^DD(450,197,21,2,0)="in which taxes are being withheld."
^DD(450,197,"DT")="2911211"
^DD(450,198,0)="CITY TAX-2 ADDNL AMT WITHHELD^NJ8,2^^CITY;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(450,198,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(450,198,8)="F"
^DD(450,198,21,0)="^^2^2^2920206^^"
^DD(450,198,21,1,0)="The amount of additional secondary city income tax that an employee"
^DD(450,198,21,2,0)="has authorized to be withheld from earnings each pay period."
^DD(450,198,"DT")="2920206"
^DD(450,199,0)="CITY TAX-2 AMT WITHHELD CTPTD^NJ10,2^^CITY;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,199,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,199,8)="F"
^DD(450,199,21,0)="^^5^5^2911108^"
^DD(450,199,21,1,0)="The accumulated amount withheld from an employee's earnings for the"
^DD(450,199,21,2,0)="secondary city income tax in the current tax period to date. Tax periods"
^DD(450,199,21,3,0)="are determined by the employee's city as biweekly, monthly or quarterly."
^DD(450,199,21,4,0)="This amount includes any additional withholding amount and the"
^DD(450,199,21,5,0)="withholding based on claimed allowances."
^DD(450,199,"DT")="2910628"
^DD(450,200,0)="CITY TAX-2 AMT WITHHELD YTD^NJ10,2^^CITY;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,200,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,200,8)="F"
^DD(450,200,21,0)="^^4^4^2911108^"
^DD(450,200,21,1,0)="The accumulated amount of secondary city income tax withheld from an"
^DD(450,200,21,2,0)="employee's earnings for the current tax year to date. This amount"
^DD(450,200,21,3,0)="includes any additional withholding amount and the withholding based"
^DD(450,200,21,4,0)="on claimed allowances."
^DD(450,200,"DT")="2910628"
^DD(450,201,0)="CITY TAX-2 AMT WITHHELD CPPD^NJ8,2^^CITY;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,201,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,201,8)="F"
^DD(450,201,21,0)="^^2^2^2911120^"
^DD(450,201,21,1,0)="The amount of secondary city income tax withheld from an employee's"
^DD(450,201,21,2,0)="gross earnings in the current pay period."
^DD(450,201,"DT")="2910909"
^DD(450,202,0)="CITY TAX-2 EXEMPTION CODE-1^NJ4,1^^CITY;16^K:+X'=X!(X>99.9)!(X<-99.9)!(X?.E1"".""2N.N) X"
^DD(450,202,3)="Type a Number between -99.9 and 99.9, 1 Decimal Digit"
^DD(450,202,8)="F"
^DD(450,202,21,0)="^^4^4^2911108^"
^DD(450,202,21,1,0)="Code represents the number of exemptions; and/or any special factors"
^DD(450,202,21,2,0)="that affect the computation of tax withholdings from an employee's"
^DD(450,202,21,3,0)="taxable earnings. The precise meaning of the code is determined by"
^DD(450,202,21,4,0)="income tax regulations of an employee's secondary city."
^DD(450,202,"DT")="2910603"
^DD(450,203,0)="CITY TAX-2 EXEMPTION CODE-2^NJ3,0^^CITY;17^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(450,203,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(450,203,8)="F"
^DD(450,203,21,0)="^^4^4^2911108^"
^DD(450,203,21,1,0)="Code represents the number of exemptions; and/or any special factors"
^DD(450,203,21,2,0)="that affect the computation of tax withholdings from an employee's"
^DD(450,203,21,3,0)="taxable earnings. The precise meaning of the code is determined by"
^DD(450,203,21,4,0)="income tax regulations of an employee's secondary city."
^DD(450,203,"DT")="2910603"
^DD(450,204,0)="CITY TAX-2 GROSS PAY CPPD^NJ10,2^^CITY;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,204,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,204,8)="F"
^DD(450,204,21,0)="^^4^4^2911108^"
^DD(450,204,21,1,0)="The accumulated amount of an employee's gross earnings that are"
^DD(450,204,21,2,0)="subject to primary city tax in the current tax period to date. Tax"
^DD(450,204,21,3,0)="periods are determined by the employee's secondary city as biweekly,"
^DD(450,204,21,4,0)="monthly or quarterly."
^DD(450,204,"DT")="2910628"
^DD(450,205,0)="CITY TAX-2 GROSS PAY YTD^NJ10,2^^CITY;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,205,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,205,8)="F"
^DD(450,205,21,0)="^^3^3^2911108^"
^DD(450,205,21,1,0)="The accumulated amount of an employee's gross earnings that are"
^DD(450,205,21,2,0)="subject to income tax in the secondary city for the current year"
^DD(450,205,21,3,0)="to date."
^DD(450,205,"DT")="2910628"
^DD(450,206,0)="CITY TAX-2 GSA CODE^F^^CITY;20^K:$L(X)>6!($L(X)<6) X"
^DD(450,206,3)="Answer must be 6 characters in length."
^DD(450,206,8)="F"
^DD(450,206,21,0)="^^3^3^2911108^"
^DD(450,206,21,1,0)="Code identifies the assigned secondary city tax withholding GSA code"
^DD(450,206,21,2,0)="which indicates where payment or information will be reported to the"
^DD(450,206,21,3,0)="taxing authority."
^DD(450,206,"DT")="2910603"
^DD(450,207,0)="CITY TAX-2 MARITAL STATUS^F^^CITY;21^K:$L(X)>2!($L(X)<1) X"
^DD(450,207,3)="Answer must be 1-2 characters in length."
^DD(450,207,8)="F"
^DD(450,207,21,0)="^^3^3^2911108^"
^DD(450,207,21,1,0)="Code indicates an employee's marital status for the purpose of"
^DD(450,207,21,2,0)="computing secondary city tax. Marital status is not a factor for"
^DD(450,207,21,3,0)="every city tax."
^DD(450,207,"DT")="2910603"
^DD(450,208,0)="CITY TAX-2 RESIDENCE STATE^FO^^CITY;22^K:$L(X)>2!($L(X)<2) X"
^DD(450,208,2)="S Y(0)=Y D:'$D(DIS(0)) SOT^PRSDUTIL"
^DD(450,208,2.1)="D:'$D(DIS(0)) SOT^PRSDUTIL"
^DD(450,208,3)="Answer must be 2 characters in length."
^DD(450,208,8)="F"
^DD(450,208,21,0)="^^2^2^2911108^"
^DD(450,208,21,1,0)="Code indicates whether an employee is a resident of the secondary"
^DD(450,208,21,2,0)="city in which taxes are being withheld."
^DD(450,208,"DT")="2911211"
^DD(450,209,0)="CFC BIWEEKLY DEDUCTION^NJ6,2^^CFC;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,209,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,209,8)="F"
^DD(450,209,21,0)="^^2^2^2911107^"
^DD(450,209,21,1,0)="The actual amount of voluntary contributions being collected from"
^DD(450,209,21,2,0)="an employee's biweekly pay for the Combined Federal Campaign."
^DD(450,209,"DT")="2910603"
^DD(450,210,0)="CFC CODE^F^^CFC;2^K:$L(X)>3!($L(X)<3) X"
^DD(450,210,3)="Answer must be 3 characters in length."
^DD(450,210,8)="F"
^DD(450,210,21,0)="^^2^2^2911107^"
^DD(450,210,21,1,0)="Code identifies the specific location of the campaign's area"
^DD(450,210,21,2,0)="headquarters that receives and disburses the employee's contribution."
^DD(450,210,"DT")="2910603"
^DD(450,211,0)="CFC DEDUCTION CPPD^NJ6,2^^CFC;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,211,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,211,8)="F"
^DD(450,211,21,0)="^^3^3^2911120^"
^DD(450,211,21,1,0)="The amount deducted from an employee's earnings as a voluntary"
^DD(450,211,21,2,0)="charitable contribution. This is the actual deduction made for the"
^DD(450,211,21,3,0)="last pay period processed."
^DD(450,211,"DT")="2910909"
^DD(450,212,0)="FEDERAL NONTAXABLE WAGES YTD^NJ10,2^^FED;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,212,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,212,8)="F"
^DD(450,212,21,0)="^^3^3^2911107^"
^DD(450,212,21,1,0)="The accumulated amount of gross pay that is not subject to federal"
^DD(450,212,21,2,0)="income tax. The total is for the current year through the last pay"
^DD(450,212,21,3,0)="period processed."
^DD(450,212,"DT")="2910628"
^DD(450,213,0)="FEDERAL TAX ADDNL AMT WITHHELD^NJ5,0^^FED;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,213,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(450,213,8)="F"
^DD(450,213,21,0)="^^3^3^2911107^"
^DD(450,213,21,1,0)="The additional fixed dollar amount authorized by an employee to be"
^DD(450,213,21,2,0)="withheld each pay period. Claimed on Form W-4. This additional amount"
^DD(450,213,21,3,0)="is over and above the withholding based on claimed allowances."
^DD(450,213,"DT")="2910628"
^DD(450,214,0)="FEDERAL TAX AMT WITHHELD QTD^NJ10,2^^FED;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,214,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,214,8)="F"
^DD(450,214,21,0)="^^2^2^2911107^"
^DD(450,214,21,1,0)="The amount of federal income tax withheld from the earnings of an"
^DD(450,214,21,2,0)="employee applicable to the current calendar quarter."
^DD(450,214,"DT")="2910628"
^DD(450,215,0)="FEDERAL TAX AMT WITHHELD YTD^NJ10,2^^FED;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,215,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,215,8)="F"
^DD(450,215,21,0)="^^3^3^2911107^"
^DD(450,215,21,1,0)="The accumulated amount withheld from an employee's earnings for the"
^DD(450,215,21,2,0)="current year to date. This amount includes any additional amount withheld"
^DD(450,215,21,3,0)="and withholding is based on claimed allowances."
^DD(450,215,"DT")="2910628"
^DD(450,216,0)="FEDERAL TAX AMT WITHHELD CPPD^NJ8,2^^FED;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,216,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,216,8)="F"
^DD(450,216,21,0)="^^2^2^2911120^^"
^DD(450,216,21,1,0)="The amount of federal income tax withheld from an employee's earnings"
^DD(450,216,21,2,0)="this pay period."
^DD(450,216,"DT")="2910909"
^DD(450,217,0)="FEDERAL TAX EXEMPTIONS^NJ3,0^^FED;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,217,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(450,217,8)="F"
^DD(450,217,21,0)="^^2^2^2911107^"
^DD(450,217,21,1,0)="Code indicates the number of personal and dependent exemptions claimed"
^DD(450,217,21,2,0)="by the employee on Form W-4."
^DD(450,217,"DT")="2910628"
^DD(450,218,0)="FEDERAL TAX GROSS PAY QTD^NJ10,2^^FED;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,218,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,218,8)="F"
^DD(450,218,21,0)="^^2^2^2911107^"
^DD(450,218,21,1,0)="The gross earnings of an employee which are subject to federal income"
^DD(450,218,21,2,0)="taxes applicable to the current calendar quarter."
^DD(450,218,"DT")="2910628"
^DD(450,219,0)="FEDERAL TAX GROSS PAY YTD^NJ10,2^^FED;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,219,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,219,8)="F"
^DD(450,219,21,0)="^^2^2^2911121^^"
^DD(450,219,21,1,0)="The gross earnings of an employee which are subject to federal income"
^DD(450,219,21,2,0)="taxes applicable to the current calendar year."
^DD(450,219,"DT")="2910628"
^DD(450,220,0)="FTL DEBT BALANCE^NJ8,2^^FED;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,220,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,220,8)="F"
^DD(450,220,21,0)="^^3^3^2911108^"
^DD(450,220,21,1,0)="The initial amount of outstanding debt when the tax levy is received"
^DD(450,220,21,2,0)="in the payroll office from the Internal Revenue Service. This balance"
^DD(450,220,21,3,0)="is reduced each pay period by payroll deduction until the balance is zero."
^DD(450,220,"DT")="2910628"
^DD(450,221,0)="FTL EXEMPTED AMT EPPD^NJ6,2^^FED;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(450,221,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(450,221,8)="F"
^DD(450,221,21,0)="^^3^3^2911108^"
^DD(450,221,21,1,0)="The amount of an employee's gross earnings that are exempt from"
^DD(450,221,21,2,0)="withholding each pay period while the rest of the earnings are being"
^DD(450,221,21,3,0)="sent to the Internal Revenue Service to liquidate a tax debt."
^DD(450,221,"DT")="2910628"
^DD(450,222,0)="MARITAL STATUS^FO^^FED;11^K:$L(X)>1!($L(X)<1) X"
^DD(450,222,2)="S Y(0)=Y S SUB454=""MAR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,222,2.1)="S SUB454=""MAR"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,222,3)="Answer must be 1 character in length."
^DD(450,222,8)="F"
^DD(450,222,21,0)="^^1^1^2911107^^"
^DD(450,222,21,1,0)="Code indicates the marital status claimed by the employee on Form W-4."
^DD(450,222,"DT")="2911211"
^DD(450,223,0)="FEGLI ADDNL DEDUCTION CPPD^NJ6,2^^FEGLI;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,223,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,223,8)="F"
^DD(450,223,21,0)="^^2^2^2911120^"
^DD(450,223,21,1,0)="The actual amount of additional optional life insurance premium"
^DD(450,223,21,2,0)="deducted in the last pay period processed."
^DD(450,223,"DT")="2910909"
^DD(450,224,0)="FEGLI AGE CODE CPPD^NJ2,0^^FEGLI;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,224,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(450,224,8)="F"
^DD(450,224,21,0)="^^5^5^2930503^^^^"
^DD(450,224,21,1,0)="Code identifies an employee's age group bracket which then determines"
^DD(450,224,21,2,0)="the Federal Employee Group Life Insurance (FEGLI) premium withholding"
^DD(450,224,21,3,0)="rate for a specific type of optional FEGLI coverage. Also used to report"
^DD(450,224,21,4,0)="optional life insurance deductions, in the current pay period, to the"
^DD(450,224,21,5,0)="Office of Personnel Management."
^DD(450,224,"DT")="2910909"
^DD(450,225,0)="FEGLI BASIC DEDUCTION CPPD^NJ6,2^^FEGLI;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,225,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,225,8)="F"
^DD(450,225,21,0)="^^3^3^2911120^"
^DD(450,225,21,1,0)="The amount deducted from an employee's earnings in the current pay"
^DD(450,225,21,2,0)="period for basic life insurance premiums. This amount is the employee's"
^DD(450,225,21,3,0)="share of the premium."
^DD(450,225,"DT")="2910909"
^DD(450,226,0)="FEGLI CODE^FO^^FEGLI;4^K:$L(X)>2!($L(X)<2) X"
^DD(450,226,2)="S Y(0)=Y S SUB454=""FEG"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,226,2.1)="S SUB454=""FEG"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,226,3)="Answer must be 2 characters in length."
^DD(450,226,8)="FP"
^DD(450,226,21,0)="^^2^2^2990326^^^^"
^DD(450,226,21,1,0)="Employee's coverage and type of insurance or noncoverage under the FEGLI"
^DD(450,226,21,2,0)="program."
^DD(450,226,"DT")="2990326"
^DD(450,227,0)="FEGLI FAMILY DEDUCTION CPPD^NJ6,2^^FEGLI;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,227,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,227,8)="F"
^DD(450,227,21,0)="^^2^2^2911120^"
^DD(450,227,21,1,0)="The amount of premium for optional family life insurance deducted from"
^DD(450,227,21,2,0)="an employee's gross earnings in the current pay period processed."
^DD(450,227,"DT")="2910909"
^DD(450,228,0)="FEGLI STANDARD DEDUCTION CPPD^NJ6,2^^FEGLI;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,228,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,228,8)="F"
^DD(450,228,21,0)="^^6^6^2930223^^^"
^DD(450,228,21,1,0)="The amount deducted from an employee's earnings in the current pay"
^DD(450,228,21,2,0)="period for the standard optional life insurance premium. This amount"
^DD(450,228,21,3,0)="is in addition to the basic premium and only applies to the employee"
^DD(450,228,21,4,0)="who has selected standard optional coverage under the Federal Employee"
^DD(450,228,21,5,0)="Group Life Insurance plan. There is no government contribution for this"
^DD(450,228,21,6,0)="option."
^DD(450,228,"DT")="2910909"
^DD(450,229,0)="FEGLI VA SHARE CPPD^NJ6,2^^FEGLI;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,229,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,229,8)="F"
^DD(450,229,21,0)="^^3^3^2911120^"
^DD(450,229,21,1,0)="The government portion of basic life insurance paid in the current pay"
^DD(450,229,21,2,0)="period. The employee pays two-thirds of the premium and the government"
^DD(450,229,21,3,0)="pays one-third."
^DD(450,229,"DT")="2910909"
^DD(450,230,0)="HEALTH BENEFITS DEDUCTION CPPD^NJ8,2^^FEHB;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,230,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,230,8)="F"
^DD(450,230,21,0)="^^2^2^2911120^"
^DD(450,230,21,1,0)="The amount of health insurance deducted from an employee's gross earnings"
^DD(450,230,21,2,0)="in the last pay period processed."
^DD(450,230,"DT")="2930222"
^DD(450,231,0)="HEALTH INSURANCE^FO^^FEHB;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X"
^DD(450,231,1,0)="^.1^^0"
^DD(450,231,2)="S Y(0)=Y S SUB454=""IIC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,231,2.1)="S SUB454=""IIC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,231,3)="Answer must be 3 characters in length."
^DD(450,231,8)="FP"
^DD(450,231,21,0)="^^4^4^2930222^^^"
^DD(450,231,21,1,0)="Designates the plan and option selected by a newly hired employee or the"
^DD(450,231,21,2,0)="reason for nonenrollement."
^DD(450,231,21,3,0)=" "
^DD(450,231,21,4,0)=" "
^DD(450,231,"DT")="2930222"
^DD(450,232,0)="HEALTH BENEFITS NEXT PPD IND^FO^^FEHB;3^K:$L(X)>1!($L(X)<1) X"
^DD(450,232,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,232,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,232,3)="Answer must be 1 character in length."
^DD(450,232,8)="FP"
^DD(450,232,21,0)="^^2^2^2911107^"
^DD(450,232,21,1,0)="Code indicates that the health insurance deductions of a new employee are"
^DD(450,232,21,2,0)="not effective during the pay period he/she was hired."
^DD(450,232,"DT")="2930222"
^DD(450,233,0)="HEALTH BENEFITS PRORATION IND^F^^FEHB;4^K:$L(X)>1!($L(X)<1) X"
^DD(450,233,3)="Answer must be 1 character in length."
^DD(450,233,8)="FP"
^DD(450,233,21,0)="^^4^4^2930222^^^"
^DD(450,233,21,1,0)="Indicates whether a part-time employee under a permanent appointment is"
^DD(450,233,21,2,0)="subject to prorated health insurance deductions."
^DD(450,233,21,3,0)=" "
^DD(450,233,21,4,0)=" "
^DD(450,233,"DT")="2930222"
^DD(450,234,0)="HEALTH BENEFITS ELIGIBILITY^FO^^FEHB;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,234,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,234,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,234,3)="Answer must be 1 character in length."
^DD(450,234,8)="FP"
^DD(450,234,21,0)="^^4^4^2930222^^^"
^DD(450,234,21,1,0)="Code identifying the entitlement to continue Federal employee health"
^DD(450,234,21,2,0)="benefits of either (1) an employee who has separated due to retirement or"
^DD(450,234,21,3,0)="(2) the survivor of an employee who died during employment."
^DD(450,234,21,4,0)=" "
^DD(450,234,"DT")="2930222"
^DD(450,235,0)="HEALTH BENEFITS VA SHARE CPPD^NJ8,2^^FEHB;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,235,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,235,8)="F"
^DD(450,235,21,0)="^^2^2^2911120^"
^DD(450,235,21,1,0)="The government portion of health insurance premium paid in the last pay"
^DD(450,235,21,2,0)="period processed."
^DD(450,235,"DT")="2930222"
^DD(450,236,0)="ACSB ACS AMT CPPD^NJ8,2^^ACSB;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,236,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,236,8)="F"
^DD(450,236,21,0)="^^2^2^2911120^"
^DD(450,236,21,1,0)="The amount withheld from an employee's earnings for alimony or child"
^DD(450,236,21,2,0)="support in the current pay period processed."
^DD(450,236,"DT")="2910909"
^DD(450,237,0)="ACSB BACK PAY BALANCE-1^NJ8,2^^ACSB;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,237,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,237,8)="F"
^DD(450,237,21,0)="^^5^5^2911121^^"
^DD(450,237,21,1,0)="The arrears balance due on Alimony/Child Support/Bankruptcy. This amount"
^DD(450,237,21,2,0)="is stated in the court order and is in addition to the current allotment"
^DD(450,237,21,3,0)="for Alimony/Child Support. The balance will be adjusted each pay period"
^DD(450,237,21,4,0)="to reflect the arrears deduction made. This field pertains to the first"
^DD(450,237,21,5,0)="instance of Alimony/Child Support/Bankruptcy deductions."
^DD(450,237,"DT")="2910604"
^DD(450,238,0)="ACSB BACK PAY BALANCE-2^NJ8,2^^ACSB;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,238,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,238,8)="F"
^DD(450,238,21,0)="^^5^5^2911121^^"
^DD(450,238,21,1,0)="The balance due on Alimony/Child Support/Bankruptcy. This amount is"
^DD(450,238,21,2,0)="stated in the court order and is in addition to the current allotment"
^DD(450,238,21,3,0)="for Alimony/Child Support. The balance will be adjusted each pay period"
^DD(450,238,21,4,0)="to reflect the arrears deduction made. This field pertains to the second"
^DD(450,238,21,5,0)="instance of Alimony/Child Support/Bankruptcy deductions for the employee."
^DD(450,238,"DT")="2910604"
^DD(450,239,0)="ACSB BACK PAY DEDUCTION-1^NJ6,2^^ACSB;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,239,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,239,8)="F"
^DD(450,239,21,0)="^^5^5^2950508^^^"
^DD(450,239,21,1,0)="The amount to be deducted each pay period and applied to the Alimony/"
^DD(450,239,21,2,0)="Child Support/Bankruptcy back pay balance. This amount is included in"
^DD(450,239,21,3,0)="the comparison to the maximum amount of disposable pay that may be"
^DD(450,239,21,4,0)="garnished. This field pertains to the second instance of Alimony/Child"
^DD(450,239,21,5,0)="Support/Bankruptcy deductions for the employee."
^DD(450,239,"DT")="2910604"
^DD(450,240,0)="ACSB BACK PAY DEDUCTION-2^NJ6,2^^ACSB;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,240,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,240,8)="F"
^DD(450,240,21,0)="^^5^5^2911119^"
^DD(450,240,21,1,0)="The amount to be deducted each pay period and applied to the Alimony/"
^DD(450,240,21,2,0)="Child Support/Bankruptcy back pay balance. This amount is included in"
^DD(450,240,21,3,0)="the comparison to the maximum amount of disposable pay that may be"
^DD(450,240,21,4,0)="garnished. This field pertains to the second instance of Alimony/Child"
^DD(450,240,21,5,0)="Support/Bankruptcy deductions for the employee."
^DD(450,240,"DT")="2910604"
^DD(450,241,0)="ACSB BANKRUPTCY AMT CPPD^NJ8,2^^ACSB;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,241,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,241,8)="F"
^DD(450,241,21,0)="^^2^2^2911120^"
^DD(450,241,21,1,0)="The amount withheld from an employee's earnings for bankruptcy payment"
^DD(450,241,21,2,0)="in the current pay period processed."
^DD(450,241,"DT")="2910909"
^DD(450,242,0)="ACSB CODE-1^F^^ACSB;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,242,3)="Answer must be 1 character in length."
^DD(450,242,8)="F"
^DD(450,242,21,0)="^^4^4^2911121^^"
^DD(450,242,21,1,0)="This will be a pre-filled field with a ""NO"" response. When an employee"
^DD(450,242,21,2,0)="has ACSB (Alimony, Child Support, Bankruptcy) and a Federal Tax Levy this"
^DD(450,242,21,3,0)="field will have to be changed to ""YES"". A ""YES"" response means child"
^DD(450,242,21,4,0)="support will precede the Federal Tax Levy in priority of deductions."
^DD(450,242,"DT")="2910604"
^DD(450,243,0)="ACSB CODE-2^F^^ACSB;8^K:$L(X)>1!($L(X)<1) X"
^DD(450,243,3)="Answer must be 1 character in length."
^DD(450,243,8)="F"
^DD(450,243,21,0)="^^5^5^2911118^"
^DD(450,243,21,1,0)="This field will be pre-filled with a ""NO"" response. When an employee"
^DD(450,243,21,2,0)="has ACSB (Alimony, Child Support, Bankruptcy) and a Federal Tax Levy"
^DD(450,243,21,3,0)="this field will have to be changed to ""YES"". A ""YES"" response will"
^DD(450,243,21,4,0)="mean Child Support will precede the Federal Tax Levy in the priority"
^DD(450,243,21,5,0)="of deductions."
^DD(450,243,"DT")="2910604"
^DD(450,244,0)="ACSB CONTROL NUMBER-1^F^^ACSB;9^K:$L(X)>5!($L(X)<1) X"
^DD(450,244,3)="Answer must be 1-5 characters in length."
^DD(450,244,8)="F"
^DD(450,244,21,0)="^^8^8^2911121^^^^"
^DD(450,244,21,1,0)="This is a five digit alphanumeric code which is assigned by the station."
^DD(450,244,21,2,0)="When the code begins with ""A"", it is Alimony/Child Support; ""B"" it is"
^DD(450,244,21,3,0)="Bankruptcy. The following four digits are to be assigned sequentially"
^DD(450,244,21,4,0)="beginning with 0001. The ""A"" or ""B"" is used to denote the position of the"
^DD(450,244,21,5,0)="deduction in the priority of deductions. The control number is also used"
^DD(450,244,21,6,0)="to identify the name and address to which the deduction is to be sent."
^DD(450,244,21,7,0)="An employee may have two instances of Alimony/Child Support/Bankruptcy"
^DD(450,244,21,8,0)="deductions. This is the first."
^DD(450,244,"DT")="2910807"
^DD(450,245,0)="ACSB CONTROL NUMBER-2^F^^ACSB;10^K:$L(X)>5!($L(X)<1) X"
^DD(450,245,3)="Answer must be 1-5 characters in length."
^DD(450,245,8)="F"
^DD(450,245,21,0)="^^8^8^2911121^^^^"
^DD(450,245,21,1,0)="This is a five digit alphanumeric code which is assigned by the station."
^DD(450,245,21,2,0)="When the code begins with ""A"", it is Alimony/Child Support; when the code"
^DD(450,245,21,3,0)="begins with ""B"" it is Bankruptcy. The following four digits are to be"
^DD(450,245,21,4,0)="assigned sequentially beginning with 0001. The ""A"" or ""B"" is used to"
^DD(450,245,21,5,0)="denote the position of the deduction in the priority of deductions. The"
^DD(450,245,21,6,0)="control number is also used to identify the name and address to which"
^DD(450,245,21,7,0)="the deduction is to be sent. This is the second instance of an Alimony/"
^DD(450,245,21,8,0)="Child Support/Bankruptcy deduction the employee may have."
^DD(450,245,"DT")="2910604"
^DD(450,246,0)="ACSB CURRENT ALLOTMENT-1^NJ8,2^^ACSB;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,246,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,246,8)="F"
^DD(450,246,21,0)="^^8^8^2911121^^^^"
^DD(450,246,21,1,0)="The amount designated by the court order to be deducted each pay period"
^DD(450,246,21,2,0)="for alimony or child support. This amount is compared to the maximum amount"
^DD(450,246,21,3,0)="of disposable pay that may be garnished. If the allotment is less than"
^DD(450,246,21,4,0)="the maximum amount of disposable pay then the whole allotment will be"
^DD(450,246,21,5,0)="deducted. If the ACSB allotment is more than the maximum amount of"
^DD(450,246,21,6,0)="disposable pay then only the maximum amount of disposable pay may be"
^DD(450,246,21,7,0)="deducted. This field pertains to the first instance of Alimony/Child"
^DD(450,246,21,8,0)="Support/Bankruptcy deductions."
^DD(450,246,"DT")="2910604"
^DD(450,247,0)="ACSB CURRENT ALLOTMENT-2^NJ8,2^^ACSB;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,247,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,247,8)="F"
^DD(450,247,21,0)="^^3^3^2911119^^^"
^DD(450,247,21,1,0)="The amount designated by the court order to be deducted each pay period"
^DD(450,247,21,2,0)="for alimony or child support. This field pertains to the second instance"
^DD(450,247,21,3,0)="of Alimony/Child Support/Bankruptcy deductions from an employee's pay."
^DD(450,247,"DT")="2910604"
^DD(450,248,0)="ACSB FED/STATE PCT FACTOR-1^NJ6,4O^^ACSB;13^K:+X'=X!(X>9.9999)!(X<-9.9999)!(X?.E1"".""5N.N) X"
^DD(450,248,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,248,2.1)="S Y=(Y*100)_""%"""
^DD(450,248,3)="Type a Number between -9.9999 and 9.9999, 4 Decimal Digits"
^DD(450,248,8)="F"
^DD(450,248,21,0)="^^6^6^2911121^^^^"
^DD(450,248,21,1,0)="Federal/state percentage factor denotes the percentage rate that applies"
^DD(450,248,21,2,0)="to the maximum amount of disposable pay that may be garnished each pay"
^DD(450,248,21,3,0)="period. State and federal wage garnishment limitations set the percentage"
^DD(450,248,21,4,0)="rate. If the state limitation is higher than the federal, the federal"
^DD(450,248,21,5,0)="limitation will be used. An employee may have more than one instance of"
^DD(450,248,21,6,0)="Alimony/Child Support/Bankruptcy deductions. This field refers to the first."
^DD(450,248,"DT")="2910918"
^DD(450,249,0)="ACSB FED/STATE PCT FACTOR-2^NJ6,4O^^ACSB;14^K:+X'=X!(X>9.9999)!(X<-9.9999)!(X?.E1"".""5N.N) X"
^DD(450,249,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,249,2.1)="S Y=(Y*100)_""%"""
^DD(450,249,3)="Type a Number between -9.9999 and 9.9999, 4 Decimal Digits"
^DD(450,249,8)="F"
^DD(450,249,21,0)="^^6^6^2930503^^"
^DD(450,249,21,1,0)="Federal/State percentage factor denotes the percentage rate that applies "
^DD(450,249,21,2,0)="to the maximum amount of disposable pay that may be garnished each pay"
^DD(450,249,21,3,0)="period. State and federal wage garnishment limitations set the percentage"
^DD(450,249,21,4,0)="rate. If the state limitation is higher than the federal, the federal"
^DD(450,249,21,5,0)="limitation will be used. This field pertains to the second instance"
^DD(450,249,21,6,0)="of an Alimony/Child Support/Bankruptcy deduction for the employee."
^DD(450,249,"DT")="2910918"
^DD(450,250,0)="MEDICARE AMT WITHHELD CPPD^NJ8,2^^MEDICARE;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,250,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,250,8)="F"
^DD(450,250,21,0)="^^2^2^2911120^"
^DD(450,250,21,1,0)="The amount of tax for Medicare withheld from an employee's gross earnings"
^DD(450,250,21,2,0)="in the last pay period processed."
^DD(450,250,"DT")="2910909"
^DD(450,251,0)="MEDICARE AMT WITHHELD QTD^NJ10,2^^MEDICARE;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,251,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,251,8)="F"
^DD(450,251,21,0)="^^2^2^2941025^^^"
^DD(450,251,21,1,0)="Represents the amount of Medicare taxes deducted from an employee"
^DD(450,251,21,2,0)="this quarter at this station."
^DD(450,251,"DT")="2941025"
^DD(450,252,0)="MEDICARE AMT WITHHELD YTD^NJ10,2^^MEDICARE;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,252,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,252,8)="F"
^DD(450,252,21,0)="^^2^2^2941025^^"
^DD(450,252,21,1,0)="Represents the amount of Medicare taxes deducted from an employee"
^DD(450,252,21,2,0)="at this station this year to date."
^DD(450,252,"DT")="2941025"
^DD(450,253,0)="MEDICARE GROSS PAY CPPD^NJ8,2^^MEDICARE;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,253,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,253,8)="F"
^DD(450,253,21,0)="^^2^2^2911120^"
^DD(450,253,21,1,0)="The amount of an employee's gross earnings that are subject to Medicare"
^DD(450,253,21,2,0)="tax withholding in the last pay period processed."
^DD(450,253,"DT")="2910909"
^DD(450,254,0)="GROSS PAY QTD^NJ10,2^^MEDICARE;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,254,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,254,8)="F"
^DD(450,254,21,0)="^^2^2^2941025^^^"
^DD(450,254,21,1,0)="The gross amount earned by an employee this quarter."
^DD(450,254,21,2,0)=" "
^DD(450,254,"DT")="2941025"
^DD(450,255,0)="GROSS PAY YTD^NJ10,2^^MEDICARE;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,255,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,255,8)="F"
^DD(450,255,21,0)="^^2^2^2941025^^^^"
^DD(450,255,21,1,0)="The gross amount earned by an employee this year to date."
^DD(450,255,21,2,0)=" "
^DD(450,255,"DT")="2941025"
^DD(450,256,0)="MEDICARE STATUS CODE^FO^^MEDICARE;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,256,2)="S Y(0)=Y S SUB454=""MED"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,256,2.1)="S SUB454=""MED"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,256,3)="Answer must be 1 character in length."
^DD(450,256,8)="F"
^DD(450,256,21,0)="^^2^2^2911107^^"
^DD(450,256,21,1,0)="Indicates if an employee's gross earnings are subject to Medicare tax"
^DD(450,256,21,2,0)="withholding."
^DD(450,256,"DT")="2911211"
^DD(450,257,0)="MEDICARE WAGES PRIOR AGCY YTD^NJ8,2^^MEDICARE;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,257,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,257,8)="F"
^DD(450,257,21,0)="^^5^5^2911107^"
^DD(450,257,21,1,0)="Represents an employee's taxable earnings while employed at another"
^DD(450,257,21,2,0)="station or by another federal agency in the current tax year. Used"
^DD(450,257,21,3,0)="to determine when an affected employee will reach the annual Medicare"
^DD(450,257,21,4,0)="wage and tax limitations in order to prevent overwithholding of"
^DD(450,257,21,5,0)="Medicare taxes in the current tax year."
^DD(450,257,"DT")="2910604"
^DD(450,258,0)="MSD ACTION CODE-1^F^^MSD1;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,258,3)="Answer must be 1 character in length."
^DD(450,258,8)="F"
^DD(450,258,21,0)="^^3^3^2930128^^"
^DD(450,258,21,1,0)="This code identifies to which period of service a military service"
^DD(450,258,21,2,0)="deposit applies. An employee may make deposits on three periods of service"
^DD(450,258,21,3,0)="concurrently. This represents period 1."
^DD(450,258,"DT")="2910604"
^DD(450,259,0)="MSD ACTION CODE-2^F^^MSD1;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,259,3)="Answer must be 1 character in length."
^DD(450,259,8)="F"
^DD(450,259,21,0)="^^3^3^2911118^"
^DD(450,259,21,1,0)="This code identifies to which period of service a military service"
^DD(450,259,21,2,0)="deposit applies. An employee may make deposits on three periods of"
^DD(450,259,21,3,0)="service concurrently. This represents period 2."
^DD(450,259,"DT")="2910606"
^DD(450,260,0)="MSD ACTION CODE-3^F^^MSD1;3^K:$L(X)>1!($L(X)<1) X"
^DD(450,260,3)="Answer must be 1 character in length."
^DD(450,260,8)="F"
^DD(450,260,21,0)="^^3^3^2911118^"
^DD(450,260,21,1,0)="This code identifies to which period of service a military service"
^DD(450,260,21,2,0)="deposit applies. An employee may make deposits on three periods of service"
^DD(450,260,21,3,0)="concurrently. This represents period 3."
^DD(450,260,"DT")="2910604"
^DD(450,261,0)="MSD AMT DUE THIS PERIOD-1^NJ8,2^^MSD1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,261,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,261,8)="F"
^DD(450,261,21,0)="^^3^3^2911118^"
^DD(450,261,21,1,0)="The amount of retirement deposit due for a specific period of post-1956"
^DD(450,261,21,2,0)="military service. This field pertains to period 1 of the employee's"
^DD(450,261,21,3,0)="military service deposits."
^DD(450,261,"DT")="2910604"
^DD(450,262,0)="MSD AMT DUE THIS PERIOD-2^NJ8,2^^MSD1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,262,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,262,8)="F"
^DD(450,262,21,0)="^^3^3^2911118^"
^DD(450,262,21,1,0)="The amount of retirement deposit due for a specific period of post-1956"
^DD(450,262,21,2,0)="military service. This field pertains to period 2 of the employee's"
^DD(450,262,21,3,0)="military service deposits."
^DD(450,262,"DT")="2910604"
^DD(450,263,0)="MSD AMT DUE THIS PERIOD-3^NJ8,2^^MSD1;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,263,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,263,8)="F"
^DD(450,263,21,0)="^^3^3^2911118^"
^DD(450,263,21,1,0)="The amount of retirement deposit due for a specific period of post-1956"
^DD(450,263,21,2,0)="military service. This field pertains to period 3 of the employee's"
^DD(450,263,21,3,0)="military service deposits."
^DD(450,263,"DT")="2910604"
^DD(450,264,0)="MSD BRANCH OF SERVICE-1^FO^^MSD1;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,264,2)="S Y(0)=Y S SUB454=""BOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,264,2.1)="S SUB454=""BOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,264,3)="Answer must be 1 character in length."
^DD(450,264,8)="F"
^DD(450,264,21,0)="^^3^3^2911118^^"
^DD(450,264,21,1,0)="Code identifies the branch of the military service in which an employee"
^DD(450,264,21,2,0)="served, for a specific period of time after 1956. This field pertains to"
^DD(450,264,21,3,0)="period 1 of the employee's military service deposits."
^DD(450,264,"DT")="2911211"
^DD(450,265,0)="MSD BRANCH OF SERVICE-2^FO^^MSD1;8^K:$L(X)>1!($L(X)<1) X"
^DD(450,265,2)="S Y(0)=Y S SUB454=""BOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,265,2.1)="S SUB454=""BOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,265,3)="Answer must be 1 character in length."
^DD(450,265,8)="F"
^DD(450,265,21,0)="^^3^3^2911118^^"
^DD(450,265,21,1,0)="Code identifies the branch of the military service in which an employee"
^DD(450,265,21,2,0)="served, for a specific period of time after 1956. This field pertains to"
^DD(450,265,21,3,0)="period 2 of the employee's military service deposits."
^DD(450,265,"DT")="2911211"
^DD(450,266,0)="MSD BRANCH OF SERVICE-3^FO^^MSD1;9^K:$L(X)>1!($L(X)<1) X"
^DD(450,266,2)="S Y(0)=Y S SUB454=""BOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,266,2.1)="S SUB454=""BOS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,266,3)="Answer must be 1 character in length."
^DD(450,266,8)="F"
^DD(450,266,21,0)="^^3^3^2911118^^"
^DD(450,266,21,1,0)="Code identifies the branch of the military service in which an employee"
^DD(450,266,21,2,0)="served, for a specific period of time after 1956. This field pertains"
^DD(450,266,21,3,0)="to period 3 of the employee's military service deposits."
^DD(450,266,"DT")="2911211"
^DD(450,267,0)="MSD DATE ENTERED MIL SVC-1^D^^MSD1;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,267,3)=""
^DD(450,267,8)="F"
^DD(450,267,21,0)="^^4^4^2911121^^^^"
^DD(450,267,21,1,0)="The date an employee entered on duty for a specific period of post-1956"
^DD(450,267,21,2,0)="military service. This period can apply toward Civil Service Retirement"
^DD(450,267,21,3,0)="or Federal Employee Retirement as applicable. This field pertains to"
^DD(450,267,21,4,0)="period 1 of the employee's military service deposits."
^DD(450,267,"DT")="2910604"
^DD(450,268,0)="MSD DATE ENTERED MIL SVC-2^D^^MSD1;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,268,3)=""
^DD(450,268,8)="F"
^DD(450,268,21,0)="^^4^4^2911121^^^"
^DD(450,268,21,1,0)="The date an employee entered on duty for a specific period of post-1956"
^DD(450,268,21,2,0)="military service. This period can apply toward Civil Service Retirement"
^DD(450,268,21,3,0)="or Federal Employee Retirement as applicable. This field pertains to"
^DD(450,268,21,4,0)="period 2 of the employee's military service deposits."
^DD(450,268,"DT")="2910604"
^DD(450,269,0)="MSD DATE ENTERED MIL SVC-3^D^^MSD1;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,269,3)=""
^DD(450,269,8)="F"
^DD(450,269,21,0)="^^4^4^2911121^^^"
^DD(450,269,21,1,0)="The date an employee entered on duty for a specific period of post-1956"
^DD(450,269,21,2,0)="military service. This period can apply toward Civil Service Retirement"
^DD(450,269,21,3,0)="or Federal Employee Retirement as applicable. This field pertains to"
^DD(450,269,21,4,0)="period 3 of the employee's military service deposits."
^DD(450,269,"DT")="2910604"
^DD(450,270,0)="MSD DATE SEPARATED MIL SVC-1^D^^MSD1;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,270,3)=""
^DD(450,270,8)="F"
^DD(450,270,21,0)="^^3^3^2911118^^"
^DD(450,270,21,1,0)="The date an employee was separated from a specific period of post-1956"
^DD(450,270,21,2,0)="military service. This field pertains to period 1 of the employee's"
^DD(450,270,21,3,0)="military service deposits."
^DD(450,270,"DT")="2910604"
^DD(450,271,0)="MSD DATE SEPARATED MIL SVC-2^D^^MSD1;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,271,3)=""
^DD(450,271,8)="F"
^DD(450,271,21,0)="^^3^3^2911118^^"
^DD(450,271,21,1,0)="The date an employee was separated from a specific period of post-1956"
^DD(450,271,21,2,0)="military service. This field pertains to period 2 of the employee's"
^DD(450,271,21,3,0)="military service deposits."
^DD(450,271,"DT")="2910604"
^DD(450,272,0)="MSD DATE SEPARATED MIL SVC-3^D^^MSD1;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,272,3)=""
^DD(450,272,8)="F"
^DD(450,272,21,0)="^^3^3^2911118^^"
^DD(450,272,21,1,0)="The date an employee was separated from a specific period of post-1956"
^DD(450,272,21,2,0)="military service. This field pertains to period 3 of the employee's"
^DD(450,272,21,3,0)="military service deposits."
^DD(450,272,"DT")="2910604"
^DD(450,273,0)="MSD LOST TIME-1^NJ5,0^^MSD1;16^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,273,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,273,8)="F"
^DD(450,273,21,0)="^^5^5^2911118^^"
^DD(450,273,21,1,0)="The number of days lost time in a specific post-1956 period of military"
^DD(450,273,21,2,0)="service. An example of lost time is days an employee was absent without"
^DD(450,273,21,3,0)="leave during this period of military service. Lost time may count for"
^DD(450,273,21,4,0)="Civil Service Retirement. This field pertains to period 1 of the"
^DD(450,273,21,5,0)="employee's military service deposits."
^DD(450,273,"DT")="2910604"
^DD(450,274,0)="MSD LOST TIME-2^NJ5,0^^MSD1;17^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,274,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,274,8)="F"
^DD(450,274,21,0)="^^5^5^2940616^"
^DD(450,274,21,1,0)="The number of days lost time in a specific post-1956 period. An example"
^DD(450,274,21,2,0)="of lost time is days an employee was absent without leave during this"
^DD(450,274,21,3,0)="period of military service. Lost time may count for Civil Service"
^DD(450,274,21,4,0)="Retirement. This field pertains to period 2 of the employee's military"
^DD(450,274,21,5,0)="service deposit."
^DD(450,274,"DT")="2910604"
^DD(450,275,0)="MSD LOST TIME-3^NJ5,0^^MSD1;18^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,275,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,275,8)="F"
^DD(450,275,21,0)="^^5^5^2911118^^"
^DD(450,275,21,1,0)="The number of days lost in a specific post-1956 period of service. An"
^DD(450,275,21,2,0)="example of lost time is days an employee was absent without leave during"
^DD(450,275,21,3,0)="this period of military service. Lost time may count for Civil Service"
^DD(450,275,21,4,0)="Retirement. This field pertains to period 3 of the employee's military"
^DD(450,275,21,5,0)="service deposits."
^DD(450,275,"DT")="2910604"
^DD(450,276,0)="MSD AMT FOR INTEREST COMP^NJ8,2^^MSD2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,276,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,276,8)="F"
^DD(450,276,21,0)="^^3^3^2911118^"
^DD(450,276,21,1,0)="The balance of military service deposit that has not been paid at the"
^DD(450,276,21,2,0)="closing of business on the day before the interest accrual date. The amount"
^DD(450,276,21,3,0)="on which the interest is charged."
^DD(450,276,"DT")="2910604"
^DD(450,277,0)="MSD AMT PAID YTD^NJ8,2^^MSD2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,277,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,277,8)="F"
^DD(450,277,21,0)="^^4^4^2911118^"
^DD(450,277,21,1,0)="The accumulated amounts paid into Civil Service Retirement for all deposits"
^DD(450,277,21,2,0)="due for military service after 1956. The total includes all cash deposits"
^DD(450,277,21,3,0)="and/or payroll deductions paid by an employee for the current tax year to"
^DD(450,277,21,4,0)="date, through the last pay period processed."
^DD(450,277,"DT")="2910604"
^DD(450,278,0)="MSD CASH PAYMENT DATE^D^^MSD2;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,278,3)=""
^DD(450,278,8)="F"
^DD(450,278,21,0)="^^3^3^2911118^^"
^DD(450,278,21,1,0)="The date that a cash payment for military service deposit was made. The"
^DD(450,278,21,2,0)="date is used for reference when determining the amount on which interest"
^DD(450,278,21,3,0)="is to be charged."
^DD(450,278,"DT")="2910604"
^DD(450,279,0)="MSD DEDUCTION CPPD^NJ8,2^^MSD2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,279,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,279,8)="F"
^DD(450,279,21,0)="^^3^3^2911120^"
^DD(450,279,21,1,0)="The amount of military service deposit deduction authorized by an"
^DD(450,279,21,2,0)="employee and deducted from his/her earnings in the current pay period"
^DD(450,279,21,3,0)="processed. This is for retirement money on post-1956 military service."
^DD(450,279,"DT")="2910909"
^DD(450,280,0)="MSD DEDUCTION EPPD^NJ5,0^^MSD2;5^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,280,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,280,8)="F"
^DD(450,280,21,0)="^^4^4^2911121^^"
^DD(450,280,21,1,0)="The amount authorized to be deducted from an employee's pay each pay"
^DD(450,280,21,2,0)="period for Civil Service Retirement deposit. The employee elects to"
^DD(450,280,21,3,0)="pay this deposit to cover time served in the military after 1956. This"
^DD(450,280,21,4,0)="deposit deduction is in addition to the regular deduction for CSR."
^DD(450,280,"DT")="2910604"
^DD(450,281,0)="MSD IND^F^^MSD2;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,281,3)="Answer must be 1 character in length."
^DD(450,281,8)="F"
^DD(450,281,21,0)="^^2^2^2911121^^"
^DD(450,281,21,1,0)="Code indicates that an employee has elected to make a retirement"
^DD(450,281,21,2,0)="deposit on his/her post-1956 military service time."
^DD(450,281,"DT")="2910604"
^DD(450,282,0)="MSD INTEREST AMT CCY^NJ8,2^^MSD2;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,282,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,282,8)="F"
^DD(450,282,21,0)="^^3^3^2930503^^^"
^DD(450,282,21,1,0)="The amount of interest computed on the balance of military service"
^DD(450,282,21,2,0)="deposit due at the end of the interest free grace period (and annually"
^DD(450,282,21,3,0)="thereafter) using the current year interest rate."
^DD(450,282,"DT")="2910604"
^DD(450,283,0)="MSD INTEREST AMT PCY^NJ8,2^^MSD2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,283,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,283,8)="F"
^DD(450,283,21,0)="^^3^3^2911118^"
^DD(450,283,21,1,0)="The amount of interest computed on the balance of military service"
^DD(450,283,21,2,0)="deposit due at the end of the interest free grace period (and annually"
^DD(450,283,21,3,0)="thereafter) using the prior year interest rate."
^DD(450,283,"DT")="2910604"
^DD(450,284,0)="MSD INTEREST COMP DATE^D^^MSD2;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,284,8)="F"
^DD(450,284,21,0)="^^3^3^2911118^^"
^DD(450,284,21,1,0)="The date that the two year grace period begins, during which no interest"
^DD(450,284,21,2,0)="is charged to the employee for the retirement deposit due for periods of"
^DD(450,284,21,3,0)="military service after 1956."
^DD(450,284,"DT")="2910604"
^DD(450,285,0)="MSD INTEREST RATE CCY^NJ7,5^^MSD2;10^K:+X'=X!(X>.99999)!(X<-.99999)!(X?.E1"".""6N.N) X"
^DD(450,285,3)="Type a Number between -.99999 and .99999, 5 Decimal Digits"
^DD(450,285,8)="F"
^DD(450,285,21,0)="^^3^3^2911118^"
^DD(450,285,21,1,0)="This is the rate of interest for the current calendar year. Military"
^DD(450,285,21,2,0)="service deposit interest is computed on the interest accrual date"
^DD(450,285,21,3,0)="balances using the calendar year interest rate."
^DD(450,285,"DT")="2910604"
^DD(450,286,0)="MSD INTEREST RATE PCY^NJ7,5^^MSD2;11^K:+X'=X!(X>.99999)!(X<-.99999)!(X?.E1"".""6N.N) X"
^DD(450,286,3)="Type a Number between -.99999 and .99999, 5 Decimal Digits"
^DD(450,286,8)="F"
^DD(450,286,21,0)="^^1^1^2911118^"
^DD(450,286,21,1,0)="This is the rate of interest for the prior calendar year."
^DD(450,286,"DT")="2910604"
^DD(450,287,0)="MSD TOTAL AMT COLLECTED^NJ8,2^^MSD2;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,287,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,287,8)="F"
^DD(450,287,21,0)="^^5^5^2911118^"
^DD(450,287,21,1,0)="The accumulated amount paid into Civil Service Retirement for all"
^DD(450,287,21,2,0)="deposits due for military service after 1956. Total includes all cash"
^DD(450,287,21,3,0)="deposits and/or payroll deductions paid by an employee since the"
^DD(450,287,21,4,0)="employee's military data has been recorded in the record. The total is"
^DD(450,287,21,5,0)="through the last pay period processed."
^DD(450,287,"DT")="2910604"
^DD(450,288,0)="MSD TOTAL AMT DUE^NJ8,2^^MSD2;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,288,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,288,8)="F"
^DD(450,288,21,0)="^^4^4^2911121^^"
^DD(450,288,21,1,0)="The sum of all retirement deposits due for all periods of military"
^DD(450,288,21,2,0)="service after 1956. The sum can include up to three periods of military"
^DD(450,288,21,3,0)="service. These deposits are in addition to biweekly deductions for"
^DD(450,288,21,4,0)="Civil Service Retirement or Federal Employee Retirement."
^DD(450,288,"DT")="2910604"
^DD(450,289,0)="MSD TOTAL INTEREST AMT^NJ8,2^^MSD2;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,289,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,289,8)="F"
^DD(450,289,21,0)="^^3^3^2911118^"
^DD(450,289,21,1,0)="The total amount of interest charged for the fiscal year to an employee"
^DD(450,289,21,2,0)="when making a military service deposit. This is the total interest charge"
^DD(450,289,21,3,0)="to date."
^DD(450,289,"DT")="2910604"
^DD(450,290,0)="OASDI TAX AMT WITHHELD CPPD^NJ8,2^^OASDI;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,290,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,290,8)="F"
^DD(450,290,21,0)="^^3^3^2911121^^^"
^DD(450,290,21,1,0)="The amount withheld from an employee not covered by the Civil Service"
^DD(450,290,21,2,0)="Retirement System for a portion of the Old Age, Survivors and Disability"
^DD(450,290,21,3,0)="Insurance tax in the last pay period processed."
^DD(450,290,"DT")="2910909"
^DD(450,291,0)="OASDI TAX AMT WITHHELD QTD^NJ10,2^^OASDI;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,291,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,291,8)="F"
^DD(450,291,21,0)="^^2^2^2911121^^"
^DD(450,291,21,1,0)="Represents the gross amount of Old Age, Survivors and Disability Insurance"
^DD(450,291,21,2,0)="taxes deducted from an employee this quarter at this station."
^DD(450,291,"DT")="2910604"
^DD(450,292,0)="OASDI TAX AMT WITHHELD YTD^NJ10,2^^OASDI;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,292,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,292,8)="F"
^DD(450,292,21,0)="^^4^4^2911121^^"
^DD(450,292,21,1,0)="The accumulated amount of Old Age, Survivors and Disability Insurance"
^DD(450,292,21,2,0)="(OASDI) tax withheld from an employee's earnings. The total is for the"
^DD(450,292,21,3,0)="current calendar year through the last pay period processed. The total"
^DD(450,292,21,4,0)="cannot exceed the annual OASDI tax ceiling."
^DD(450,292,"DT")="2910604"
^DD(450,293,0)="OASDI TAX GROSS PAY CPPD^NJ8,2^^OASDI;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,293,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,293,8)="F"
^DD(450,293,21,0)="^^3^3^2911121^^"
^DD(450,293,21,1,0)="The amount of an employee's gross earnings that were subject to Old"
^DD(450,293,21,2,0)="Age, Survivors and Disability Insurance tax for the last pay period"
^DD(450,293,21,3,0)="processed."
^DD(450,293,"DT")="2910909"
^DD(450,294,0)="OASDI TAX GROSS PAY QTD^NJ10,2^^OASDI;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,294,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,294,8)="F"
^DD(450,294,21,0)="^^4^4^2911121^^"
^DD(450,294,21,1,0)="The accumulated amount of an employee's earnings subject to Old Age,"
^DD(450,294,21,2,0)="Survivors and Disability Insurance (OASDI) tax. The total is for the"
^DD(450,294,21,3,0)="calendar quarter to date through the last pay period processed. The total"
^DD(450,294,21,4,0)="cannot exceed the annual OASDI wage ceiling."
^DD(450,294,"DT")="2910604"
^DD(450,295,0)="OASDI TAX GROSS PAY YTD^NJ10,2^^OASDI;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,295,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,295,8)="F"
^DD(450,295,21,0)="^^4^4^2911121^^"
^DD(450,295,21,1,0)="The accumulated amount of an employee's earnings subject to Old Age,"
^DD(450,295,21,2,0)="Survivors and Disability Insurance (OASDI) tax. The total is for the"
^DD(450,295,21,3,0)="calendar year to date through the last pay period processed. The total"
^DD(450,295,21,4,0)="cannot exceed the annual OASDI wage ceiling."
^DD(450,295,"DT")="2910604"
^DD(450,296,0)="OASDI TAX VA SHARE CPPD^NJ10,2^^OASDI;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,296,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,296,8)="F"
^DD(450,296,21,0)="^^2^2^2911121^^^"
^DD(450,296,21,1,0)="The government's contribution to the Old Age, Survivors and Disability"
^DD(450,296,21,2,0)="Insurance for the last pay period processed."
^DD(450,296,"DT")="2910909"
^DD(450,297,0)="OASDI TAX VA SHARE QTD^NJ8,2^^OASDI;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,297,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,297,8)="F"
^DD(450,297,21,0)="^^2^2^2911121^^"
^DD(450,297,21,1,0)="The quarterly amount of government share of Old Age, Survivors and"
^DD(450,297,21,2,0)="Disability Insurance."
^DD(450,297,"DT")="2910604"
^DD(450,298,0)="OASDI TAX VA SHARE YTD^NJ8,2^^OASDI;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,298,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,298,8)="F"
^DD(450,298,21,0)="^^2^2^2911121^^^"
^DD(450,298,21,1,0)="The year-to-date amount of the government share of Old Age, Survivors"
^DD(450,298,21,2,0)="and Disability Insurance."
^DD(450,298,"DT")="2910604"
^DD(450,299,0)="OASDI WAGES PRIOR AGCY YTD^NJ10,2^^OASDI;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,299,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,299,8)="F"
^DD(450,299,21,0)="^^5^5^2911121^^"
^DD(450,299,21,1,0)="Represents an employee's taxable earnings while employed at another"
^DD(450,299,21,2,0)="VA station or by another federal agency in the current tax year. Used"
^DD(450,299,21,3,0)="to determine when an affected employee will reach the annual Old Age,"
^DD(450,299,21,4,0)="Survivors and Disability Insurance (OASDI) wage and tax limitations in"
^DD(450,299,21,5,0)="order to prevent overwithholding of OASDI taxes in the current year."
^DD(450,299,"DT")="2910604"
^DD(450,300,0)="DEBT DEPOSIT ACCT 36F3875 CPPD^NJ8,2^^OTHER;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,300,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,300,8)="F"
^DD(450,300,21,0)="^^3^3^2911121^^"
^DD(450,300,21,1,0)="The amount deducted from an employee's earnings in the current pay"
^DD(450,300,21,2,0)="period for recovery of debt due the U.S. government; deposited to the"
^DD(450,300,21,3,0)="station's suspense account 36F3875 for subsequent disbursement or credit."
^DD(450,300,"DT")="2910909"
^DD(450,301,0)="DEBT DEPOSIT ACCT 36X6875 CPPD^NJ8,2^^OTHER;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,301,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,301,8)="F"
^DD(450,301,21,0)="^^4^4^2911120^"
^DD(450,301,21,1,0)="The amount deducted from an employee's earnings in the last pay period"
^DD(450,301,21,2,0)="processed for credit of debt due the U.S. government; deposited to the"
^DD(450,301,21,3,0)="station's suspense account 36X6875 to be disbursed to a non-federal"
^DD(450,301,21,4,0)="payee. SA36X6875 is for bankruptcy, child support, etc."
^DD(450,301,"DT")="2910909"
^DD(450,302,0)="DEBT REFUND ACCT 36F3875 CPPD^NJ8,2^^OTHER;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,302,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,302,8)="F"
^DD(450,302,21,0)="^^5^5^2911121^^"
^DD(450,302,21,1,0)="The amount of a payment that was disbursed to an employee from the"
^DD(450,302,21,2,0)="station suspense account 36F3875, in this pay period or in a prior one."
^DD(450,302,21,3,0)="The disbursement is recorded in the current pay period processed. The"
^DD(450,302,21,4,0)="payment was paid to the employee as an out-of-system payment, and may"
^DD(450,302,21,5,0)="have occurred after the employee separated."
^DD(450,302,"DT")="2910909"
^DD(450,303,0)="DEBT REFUND ACCT 36X6875 CPPD^NJ8,2^^OTHER;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,303,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,303,8)="F"
^DD(450,303,21,0)="^^5^5^2911121^^"
^DD(450,303,21,1,0)="The amount of a payment that was disbursed from the station suspense"
^DD(450,303,21,2,0)="account 36X6875, in this pay period or a prior one. The amount is"
^DD(450,303,21,3,0)="recorded in the last pay period processed. The payment was paid to an"
^DD(450,303,21,4,0)="employee as an out-of-system payment or a cash payment, and may have"
^DD(450,303,21,5,0)="occurred after the employee separated."
^DD(450,303,"DT")="2910909"
^DD(450,304,0)="EMPLOYEE PROVIDED VEHICLE VAL^NJ8,2^^OTHER;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,304,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,304,8)="F"
^DD(450,304,21,0)="^^5^5^2911108^"
^DD(450,304,21,1,0)="Employees who have the use of a government owned or leased vehicle"
^DD(450,304,21,2,0)="that is used to commute from home to work or work to home, must have"
^DD(450,304,21,3,0)="the dollar value of the commuter usage reported to the Internal Revenue"
^DD(450,304,21,4,0)="Service as income. This field is used to record the dollar amount of"
^DD(450,304,21,5,0)="the usage. The income is reported on a fiscal year basis."
^DD(450,304,"DT")="2910604"
^DD(450,305,0)="OCC PRIV TAX DEDUCTION IND^FO^^OTHER;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,305,2)="S Y(0)=Y S SUB454=""OPT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,305,2.1)="S SUB454=""OPT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,305,3)="Answer must be 1 character in length."
^DD(450,305,8)="F"
^DD(450,305,21,0)="^^2^2^2911108^"
^DD(450,305,21,1,0)="Code identifies if an employee is subject to occupational privilege"
^DD(450,305,21,2,0)="tax. Also denotes if this tax has been withheld in the current tax year."
^DD(450,305,"DT")="2911211"
^DD(450,306,0)="OTHER DEDUCTION BALANCE-1^NJ8,2^^OTHER;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,306,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,306,8)="F"
^DD(450,306,21,0)="^^4^4^2911121^^"
^DD(450,306,21,1,0)="Denotes the outstanding balance of the employee's debt being collected"
^DD(450,306,21,2,0)="by payroll deductions. Since an employee may have more than one separate"
^DD(450,306,21,3,0)="recurring deductions, this balance can represent the first, second or the"
^DD(450,306,21,4,0)="sum of both."
^DD(450,306,"DT")="2910604"
^DD(450,307,0)="OTHER DEDUCTION BALANCE-2^NJ8,2^^OTHER;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,307,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,307,8)="F"
^DD(450,307,21,0)="^^3^3^2911118^"
^DD(450,307,21,1,0)="Denotes the outstanding balance of the employee's debt being collected"
^DD(450,307,21,2,0)="by payroll deductions. This field pertains to the second instance of the"
^DD(450,307,21,3,0)="recurring deductions."
^DD(450,307,"DT")="2910604"
^DD(450,308,0)="OTHER DEDUCTION BIWEEKLY AMT-1^NJ6,2^^OTHER;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,308,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,308,8)="F"
^DD(450,308,21,0)="^^3^3^2911121^^"
^DD(450,308,21,1,0)="The biweekly amount authorized by an employee to liquidate an indebtedness"
^DD(450,308,21,2,0)="through payroll deductions. This field pertains to the first instance of"
^DD(450,308,21,3,0)="recurring deductions."
^DD(450,308,"DT")="2910604"
^DD(450,309,0)="OTHER DEDUCTION BIWEEKLY AMT-2^NJ6,2^^OTHER;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,309,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,309,8)="F"
^DD(450,309,21,0)="^^3^3^2911118^"
^DD(450,309,21,1,0)="The biweekly amount authorized by an employee to liquidate an indebtedness"
^DD(450,309,21,2,0)="through payroll deductions. This field pertains to the second instance of"
^DD(450,309,21,3,0)="recurring deductions."
^DD(450,309,"DT")="2910604"
^DD(450,310,0)="OTHER DEDUCTION CODE-1^F^^OTHER;11^K:$L(X)>3!($L(X)<3) X"
^DD(450,310,3)="Answer must be 3 characters in length."
^DD(450,310,8)="F"
^DD(450,310,21,0)="^^3^3^2911121^^"
^DD(450,310,21,1,0)="The station assigned code to identify an employee's specific indebtedness"
^DD(450,310,21,2,0)="that is being recovered by regular biweekly payroll deductions. This"
^DD(450,310,21,3,0)="field pertains to the first instance of recurring deductions."
^DD(450,310,"DT")="2910604"
^DD(450,311,0)="OTHER DEDUCTION CODE-2^F^^OTHER;12^K:$L(X)>3!($L(X)<3) X"
^DD(450,311,3)="Answer must be 3 characters in length."
^DD(450,311,8)="F"
^DD(450,311,21,0)="^^4^4^2911118^"
^DD(450,311,21,1,0)="The station assigned code to identify an employee's specific indebtedness"
^DD(450,311,21,2,0)="that is being recovered by regular biweekly payroll deductions. An"
^DD(450,311,21,3,0)="employee may have more than one recurring deduction. This field identifies"
^DD(450,311,21,4,0)="the second."
^DD(450,311,"DT")="2910604"
^DD(450,312,0)="OTHER TAX FROZEN CODE-1^FO^^OTHER;13^K:$L(X)>1!($L(X)<1) X"
^DD(450,312,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,312,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,312,3)="Answer must be 1 character in length."
^DD(450,312,8)="F"
^DD(450,312,21,0)="^^2^2^2911108^"
^DD(450,312,21,1,0)="Code indicates the income reporting to a particular taxing authority"
^DD(450,312,21,2,0)="has been frozen."
^DD(450,312,"DT")="2911212"
^DD(450,313,0)="OTHER TAX FROZEN CODE-2^FO^^OTHER;14^K:$L(X)>1!($L(X)<1) X"
^DD(450,313,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,313,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,313,3)="Answer must be 1 character in length."
^DD(450,313,8)="F"
^DD(450,313,21,0)="^^2^2^2911108^"
^DD(450,313,21,1,0)="Code indicates the income reporting to a particular state taxing"
^DD(450,313,21,2,0)="authority has been frozen."
^DD(450,313,"DT")="2911212"
^DD(450,314,0)="OTHER TAX GROSS PAY YTD-1^NJ10,2^^OTHER;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,314,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,314,8)="F"
^DD(450,314,21,0)="^^3^3^2911108^"
^DD(450,314,21,1,0)="The accumulated amount of an employee's gross earnings in the current"
^DD(450,314,21,2,0)="tax year to date. This total is reported to a state or city taxing"
^DD(450,314,21,3,0)="authority."
^DD(450,314,"DT")="2910604"
^DD(450,315,0)="OTHER TAX GROSS PAY YTD-2^NJ10,2^^OTHER;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,315,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,315,8)="F"
^DD(450,315,21,0)="^^3^3^2911108^"
^DD(450,315,21,1,0)="The accumulated amount of an employee's gross earnings in the current"
^DD(450,315,21,2,0)="tax year to date. This total is reported to a state or city taxing"
^DD(450,315,21,3,0)="authority."
^DD(450,315,"DT")="2910604"
^DD(450,316,0)="OTHER TAX GSA CODE-1^F^^OTHER;17^K:$L(X)>6!($L(X)<6) X"
^DD(450,316,3)="Answer must be 6 characters in length."
^DD(450,316,8)="F"
^DD(450,316,21,0)="^^3^3^2911108^"
^DD(450,316,21,1,0)="Code identifies the state or city that receives a report of an"
^DD(450,316,21,2,0)="employee's gross pay for the current tax year. Codes are assigned"
^DD(450,316,21,3,0)="by the GSA."
^DD(450,316,"DT")="2910604"
^DD(450,317,0)="OTHER TAX GSA CODE-2^F^^OTHER;18^K:$L(X)>6!($L(X)<6) X"
^DD(450,317,3)="Answer must be 6 characters in length."
^DD(450,317,8)="F"
^DD(450,317,21,0)="^^2^2^2911108^"
^DD(450,317,21,1,0)="Code identifies the state or city that receives a report of an employee's"
^DD(450,317,21,2,0)="gross pay for the current tax year."
^DD(450,317,"DT")="2910604"
^DD(450,318,0)="GARAGE DEDUCTION CPPD^NJ6,2^^QSGP;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,318,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,318,8)="F"
^DD(450,318,21,0)="^^2^2^2911120^"
^DD(450,318,21,1,0)="The amount of garage rental fee deducted from an employee's earnings"
^DD(450,318,21,2,0)="in the last pay period processed."
^DD(450,318,"DT")="2930309"
^DD(450,319,0)="GARAGE DEDUCTION EPPD^NJ6,2^^QSGP;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,319,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,319,8)="F"
^DD(450,319,21,0)="^^2^2^2911108^"
^DD(450,319,21,1,0)="The amount authorized to be deducted from an employee's pay each pay"
^DD(450,319,21,2,0)="period for garage rental furnished by the station."
^DD(450,319,"DT")="2930309"
^DD(450,320,0)="QUARTERS NON-HSKP DED CPPD^NJ6,2^^QSGP;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,320,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,320,8)="F"
^DD(450,320,21,0)="^^2^2^2911120^"
^DD(450,320,21,1,0)="The amount deducted from an employee's earnings for non-housekeeping"
^DD(450,320,21,2,0)="quarters in the last pay period processed."
^DD(450,320,"DT")="2930309"
^DD(450,321,0)="PARKING DEDUCTION CPPD^NJ6,2^^QSGP;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,321,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,321,8)="F"
^DD(450,321,21,0)="^^3^3^2911120^"
^DD(450,321,21,1,0)="The amount deducted from an employee's pay for parking furnished by"
^DD(450,321,21,2,0)="the station. This is the actual amount deducted in the last pay period"
^DD(450,321,21,3,0)="processed."
^DD(450,321,"DT")="2930309"
^DD(450,322,0)="PARKING DEDUCTION EPPD^NJ6,2^^QSGP;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,322,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,322,8)="F"
^DD(450,322,21,0)="^^2^2^2911108^"
^DD(450,322,21,1,0)="The amount to be deducted each pay period from an employee's pay for"
^DD(450,322,21,2,0)="parking furnished by the station."
^DD(450,322,"DT")="2930309"
^DD(450,323,0)="QUARTERS CODE^F^^QSGP;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,323,3)="Answer must be 1 character in length."
^DD(450,323,8)="F"
^DD(450,323,21,0)="^^2^2^2911108^"
^DD(450,323,21,1,0)="Code indicates whether or not the deduction for housekeeping quarters"
^DD(450,323,21,2,0)="is taxable income."
^DD(450,323,"DT")="2930309"
^DD(450,324,0)="QUARTERS DEDUCTION EPPD^NJ6,2^^QSGP;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,324,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,324,8)="F"
^DD(450,324,21,0)="^^2^2^2911108^"
^DD(450,324,21,1,0)="The amount that has been authorized to be deducted from an employee's"
^DD(450,324,21,2,0)="pay each pay period for station housekeeping quarters (housing)."
^DD(450,324,"DT")="2930309"
^DD(450,325,0)="QUARTERS DEDUCTION CPPD^NJ6,2^^QSGP;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,325,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,325,8)="F"
^DD(450,325,21,0)="^^2^2^2911120^"
^DD(450,325,21,1,0)="The amount deducted from an employee's earnings for housekeeping"
^DD(450,325,21,2,0)="quarters in the last pay period processed."
^DD(450,325,"DT")="2930309"
^DD(450,326,0)="QUARTERS STATION^F^^QSGP;9^K:$L(X)>3!($L(X)<3) X"
^DD(450,326,3)="Answer must be 3 characters in length."
^DD(450,326,8)="FP"
^DD(450,326,21,0)="^^3^3^2911108^^"
^DD(450,326,21,1,0)="Identifies the station furnishing the quarters (housing) and/or"
^DD(450,326,21,2,0)="subsistence (meals) to an employee. The employee is located at the"
^DD(450,326,21,3,0)="furnishing station, but is employed by another station."
^DD(450,326,"DT")="2930309"
^DD(450,327,0)="SUBSISTANCE DEDUCTION CPPD^NJ6,2^^QSGP;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,327,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,327,8)="F"
^DD(450,327,21,0)="^^2^2^2911120^"
^DD(450,327,21,1,0)="The amount authorized and collected this pay period from an employee's"
^DD(450,327,21,2,0)="earnings for subsistance (meals) furnished by the station."
^DD(450,327,"DT")="2930309"
^DD(450,328,0)="SUBSISTANCE DEDUCTION EPPD^NJ6,2^^QSGP;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,328,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,328,8)="F"
^DD(450,328,21,0)="^^2^2^2911108^"
^DD(450,328,21,1,0)="The amount authorized to be deducted from an employee's earnings each"
^DD(450,328,21,2,0)="pay period for subsistence (meals) furnished by the station."
^DD(450,328,"DT")="2930309"
^DD(450,329,0)="CSRS DEDUCTION EOPY^NJ10,2^^RETIRE;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,329,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,329,8)="F"
^DD(450,329,21,0)="^^2^2^2911121^^"
^DD(450,329,21,1,0)="The balance of Civil Service Retirement deductions for an employee at"
^DD(450,329,21,2,0)="the end of the prior tax year."
^DD(450,329,"DT")="2910604"
^DD(450,330,0)="CSRS DEDUCTION YTD^NJ8,2^^RETIRE;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,330,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,330,8)="F"
^DD(450,330,21,0)="^^2^2^2911121^^"
^DD(450,330,21,1,0)="The accumulated total of Civil Service Retirement deducted from an"
^DD(450,330,21,2,0)="employee this year through the last pay period processed."
^DD(450,330,"DT")="2910604"
^DD(450,331,0)="REEMP ANNUITANT DED EOPY^NJ10,2^^RETIRE;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,331,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,331,8)="F"
^DD(450,331,21,0)="^^4^4^2911121^^"
^DD(450,331,21,1,0)="The accumulated amount deducted for Civil Service Retirement from the"
^DD(450,331,21,2,0)="pay of a reemployed annuitant at the end of the prior tax year. This"
^DD(450,331,21,3,0)="amount is not matched by the agency and is identified separately for"
^DD(450,331,21,4,0)="the Office of Personnel Management."
^DD(450,331,"DT")="2930223"
^DD(450,332,0)="REEMP ANNUITANT DED YTD^NJ8,2^^RETIRE;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,332,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,332,8)="F"
^DD(450,332,21,0)="^^4^4^2911121^^"
^DD(450,332,21,1,0)="The accumulated amount deducted for Civil Service Retirement from the"
^DD(450,332,21,2,0)="pay of a reemployed annuitant to date this tax year. This amount is not"
^DD(450,332,21,3,0)="matched by the agency and is identified separately for the Office of"
^DD(450,332,21,4,0)="Personnel Management."
^DD(450,332,"DT")="2930223"
^DD(450,333,0)="FERS DEDUCTION EOPY^NJ10,2^^RETIRE;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,333,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,333,8)="F"
^DD(450,333,21,0)="^^3^3^2911121^^"
^DD(450,333,21,1,0)="The accumulated total Federal Employee Retirement System (FERS)"
^DD(450,333,21,2,0)="deductions collected from an employee at the end of the prior tax"
^DD(450,333,21,3,0)="year."
^DD(450,333,"DT")="2910604"
^DD(450,334,0)="FERS DEDUCTION YTD^NJ8,2^^RETIRE;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,334,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,334,8)="F"
^DD(450,334,21,0)="^^2^2^2911121^^"
^DD(450,334,21,1,0)="The amount of Federal Employee Retirement System (FERS) deductions"
^DD(450,334,21,2,0)="collected from an employee this tax year."
^DD(450,334,"DT")="2910604"
^DD(450,335,0)="FERS REDESIGNATED CSRS AMT^NJ10,2^^RETIRE;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,335,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,335,8)="F"
^DD(450,335,21,0)="^^3^3^2911121^^"
^DD(450,335,21,1,0)="The portion of an employee's Civil Service Retirement fund which was"
^DD(450,335,21,2,0)="frozen when the employee converted to the Federal Employee Retirement"
^DD(450,335,21,3,0)="System (FERS)."
^DD(450,335,"DT")="2910604"
^DD(450,336,0)="CSRS REEMP ANNUITANT DED CPPD^NJ8,2^^RETIRE;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,336,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,336,8)="F"
^DD(450,336,21,0)="^^2^2^2930223^^^^"
^DD(450,336,21,1,0)="The actual amount collected this pay period for Civil Service Retirement"
^DD(450,336,21,2,0)="System from a reemployed annuitant."
^DD(450,336,"DT")="2930223"
^DD(450,337,0)="RETIREMENT DED CPPD^NJ8,2^^RETIRE;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,337,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,337,8)="F"
^DD(450,337,21,0)="^^4^4^2930223^^^^"
^DD(450,337,21,1,0)="The amount deducted from an employee's earnings for retirement in the last"
^DD(450,337,21,2,0)="pay period processed."
^DD(450,337,21,3,0)=" "
^DD(450,337,21,4,0)=" "
^DD(450,337,"DT")="2930223"
^DD(450,338,0)="RETIREMENT VA SHARE CPPD^NJ8,2^^RETIRE;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,338,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,338,8)="F"
^DD(450,338,21,0)="^^2^2^2930503^^^^"
^DD(450,338,21,1,0)="The amount the goverment contributed for retirement in the last pay period"
^DD(450,338,21,2,0)="processed."
^DD(450,338,"DT")="2930223"
^DD(450,339,0)="SAVINGS ALLOTMENT-1 AMT EPPD^NJ5,0^^SALLOT;1^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,339,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,339,8)="F"
^DD(450,339,21,0)="^^3^3^2911107^"
^DD(450,339,21,1,0)="The amount deducted from earnings that an employee has authorized"
^DD(450,339,21,2,0)="for deposit to a checking or savings account at a financial"
^DD(450,339,21,3,0)="organization."
^DD(450,339,"DT")="2910604"
^DD(450,340,0)="SAVINGS ALLOTMENT-1 AMT CPPD^NJ7,2^^SALLOT;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(450,340,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(450,340,8)="F"
^DD(450,340,21,0)="^^4^4^2911120^"
^DD(450,340,21,1,0)="The amount deducted from earnings that an employee has authorized"
^DD(450,340,21,2,0)="for deposit to a checking or savings account at a financial"
^DD(450,340,21,3,0)="institution in the last pay period processed. This field pertains"
^DD(450,340,21,4,0)="to the first savings allotment deduction."
^DD(450,340,"DT")="2910909"
^DD(450,341,0)="SAVINGS ALLOTMENT-2 AMT EPPD^NJ5,0^^SALLOT;3^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,341,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,341,8)="F"
^DD(450,341,21,0)="^^5^5^2911118^"
^DD(450,341,21,1,0)="The amount deducted from earnings that an employee has authorized for"
^DD(450,341,21,2,0)="deposit to a checking or savings account at a financial institution."
^DD(450,341,21,3,0)="An employee may have other savings allotments with the same or other"
^DD(450,341,21,4,0)="financial institution. This field is used when an employee has more than"
^DD(450,341,21,5,0)="one allotment."
^DD(450,341,"DT")="2910604"
^DD(450,342,0)="SAVINGS ALLOTMENT-2 AMT CPPD^NJ7,2^^SALLOT;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(450,342,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(450,342,8)="F"
^DD(450,342,21,0)="^^4^4^2911120^"
^DD(450,342,21,1,0)="The amount deducted from earnings that an employee has authorized"
^DD(450,342,21,2,0)="for deposit to a checking or savings account at a financial"
^DD(450,342,21,3,0)="institution in the last pay period processed. This field pertains"
^DD(450,342,21,4,0)="to the second savings allotment deduction."
^DD(450,342,"DT")="2910909"
^DD(450,343,0)="SAVINGS BOND DED SUM CPPD^NJ10,2^^BOND1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,343,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,343,8)="F"
^DD(450,343,21,0)="^^3^3^2911120^"
^DD(450,343,21,1,0)="The total of amounts deducted from an employee's earnings in the current"
^DD(450,343,21,2,0)="pay period for purchases of U.S. Savings Bonds. The amount may include"
^DD(450,343,21,3,0)="deductions for one or both bonds."
^DD(450,343,"DT")="2910909"
^DD(450,344,0)="SAVINGS BOND-1 ADD LINE-1^F^^BOND1;2^K:$L(X)>23!($L(X)<1) X"
^DD(450,344,3)="Answer must be 1-23 characters in length."
^DD(450,344,8)="F"
^DD(450,344,21,0)="^^2^2^2911119^^^"
^DD(450,344,21,1,0)="The first line of the address, selected by the employee, to which the"
^DD(450,344,21,2,0)="first bond is mailed."
^DD(450,344,"DT")="2910604"
^DD(450,345,0)="SAVINGS BOND-1 ADD LINE-2^F^^BOND1;3^K:$L(X)>23!($L(X)<1) X"
^DD(450,345,3)="Answer must be 1-23 characters in length."
^DD(450,345,8)="F"
^DD(450,345,21,0)="^^2^2^2911119^^^"
^DD(450,345,21,1,0)="The second line of the address, selected by the employee, to which the"
^DD(450,345,21,2,0)="first bond is mailed."
^DD(450,345,"DT")="2910604"
^DD(450,346,0)="SAVINGS BOND-1 ADD LINE-3^F^^BOND1;4^K:$L(X)>16!($L(X)<1) X"
^DD(450,346,3)="Answer must be 1-16 characters in length."
^DD(450,346,8)="F"
^DD(450,346,21,0)="^^2^2^2911119^^^^"
^DD(450,346,21,1,0)="The third line of the address, selected by the employee, to which the"
^DD(450,346,21,2,0)="first bond is mailed."
^DD(450,346,"DT")="2910604"
^DD(450,347,0)="SAVINGS BOND-1 BALANCE^NJ10,2^^BOND1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,347,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,347,8)="F"
^DD(450,347,21,0)="^^5^5^2911120^"
^DD(450,347,21,1,0)="The accumulated amount deducted toward the purchase price of the first"
^DD(450,347,21,2,0)="bond, as of the current pay period. Each time the purchase price is"
^DD(450,347,21,3,0)="reached, a bond is issued and the balance adjusted. Remaining balances"
^DD(450,347,21,4,0)="are incorporated in future bond purchases. The balance is refunded if"
^DD(450,347,21,5,0)="the bond is canceled or the employee separates from the agency."
^DD(450,347,"DT")="2910909"
^DD(450,348,0)="SAVINGS BOND-1 BENE CODE^FO^^BOND1;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,348,2)="S Y(0)=Y S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,348,2.1)="S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,348,3)="Answer must be 1 character in length."
^DD(450,348,8)="F"
^DD(450,348,21,0)="^^3^3^2911119^^"
^DD(450,348,21,1,0)="Code indicates whether or not an employee has selected a beneficiary"
^DD(450,348,21,2,0)="or co-owner for a bond purchased through the payroll deduction plan."
^DD(450,348,21,3,0)="This field pertains to the first bond allotment."
^DD(450,348,"DT")="2911211"
^DD(450,349,0)="SAVINGS BOND-1 CO-OWNER^F^^BOND1;7^K:$L(X)>28!($L(X)<1) X"
^DD(450,349,3)="Answer must be 1-28 characters in length."
^DD(450,349,8)="F"
^DD(450,349,21,0)="^^2^2^2911119^^"
^DD(450,349,21,1,0)="The name of the designated beneficiary/co-owner of the first bond. A"
^DD(450,349,21,2,0)="beneficiary or co-owner must be a person."
^DD(450,349,"DT")="2910604"
^DD(450,350,0)="SAVINGS BOND-1 CO-OWNER SSN^F^^BOND1;8^K:$L(X)>9!($L(X)<9) X"
^DD(450,350,3)="Answer must be 9 characters in length."
^DD(450,350,8)="F"
^DD(450,350,21,0)="^^2^2^2911119^^"
^DD(450,350,21,1,0)="The social security number of the beneficiary or co-owner designated by"
^DD(450,350,21,2,0)="the employee. This field pertains to the first bond allotment."
^DD(450,350,"DT")="2910604"
^DD(450,351,0)="SAVINGS BOND-1 DED BALANCE^NJ8,2^^BOND1;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,351,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,351,21,0)="^^6^6^2911119^^"
^DD(450,351,21,1,0)="The balance is the accumulated amount deducted toward the purchase"
^DD(450,351,21,2,0)="price of the bond, as of the current pay period. Each time the purchase"
^DD(450,351,21,3,0)="price is reached, a bond is issued and the balance adjusted. Remaining"
^DD(450,351,21,4,0)="balances are incorporated into future bond purchases. The balance is"
^DD(450,351,21,5,0)="refunded if the bond is canceled or the employee separates from the"
^DD(450,351,21,6,0)="agency. This field pertains to the first bond allotment."
^DD(450,351,"DT")="2910604"
^DD(450,352,0)="SAVINGS BOND-1 DED EPPD^NJ8,2^^BOND1;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,352,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,352,8)="F"
^DD(450,352,21,0)="^^3^3^2911119^^"
^DD(450,352,21,1,0)="The amount the employee has authorized to be deducted each pay period"
^DD(450,352,21,2,0)="for the purchase of a U.S. savings bond. This field pertains to the"
^DD(450,352,21,3,0)="first savings bond allotment."
^DD(450,352,"DT")="2910604"
^DD(450,353,0)="SAVINGS BOND-1 DENOMINATION^FO^^BOND1;11^K:$L(X)>1!($L(X)<1) X"
^DD(450,353,2)="S Y(0)=Y S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,353,2.1)="S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,353,3)="Answer must be 1 character in length."
^DD(450,353,8)="F"
^DD(450,353,21,0)="^^3^3^2911121^^^"
^DD(450,353,21,1,0)="Code indicates the face value of the U.S. savings bond being purchased"
^DD(450,353,21,2,0)="through the payroll deduction plan. An employee may purchase more"
^DD(450,353,21,3,0)="than one bond at a time. This field represents the first bond."
^DD(450,353,"DT")="2911211"
^DD(450,354,0)="SAVINGS BOND-1 EFFECTIVE DATE^D^^BOND1;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,354,8)="F"
^DD(450,354,21,0)="^^3^3^2911119^^"
^DD(450,354,21,1,0)="Denotes the date when the first bond allotment deductions have"
^DD(450,354,21,2,0)="reached one-half of the purchase price of the bond. The effective"
^DD(450,354,21,3,0)="date determines the bond's maturity and when interest begins to accrue."
^DD(450,354,"DT")="2910604"
^DD(450,355,0)="SAVINGS BOND-1 OWNER^F^^BOND1;13^K:$L(X)>32!($L(X)<1) X"
^DD(450,355,3)="Answer must be 1-32 characters in length."
^DD(450,355,8)="F"
^DD(450,355,21,0)="^^4^4^2911119^^"
^DD(450,355,21,1,0)="The name of the designated owner of the U.S. savings bond purchased"
^DD(450,355,21,2,0)="by an employee through the payroll deduction plan. The owner may be"
^DD(450,355,21,3,0)="the employee, another individual, a public or private organization or"
^DD(450,355,21,4,0)="a fiduciary. This field pertains to the first bond."
^DD(450,355,"DT")="2910604"
^DD(450,356,0)="SAVINGS BOND-1 OWNER SSN^F^^BOND1;14^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,356,3)="Answer must be 9 characters in length."
^DD(450,356,8)="F"
^DD(450,356,21,0)="^^5^5^2911119^^"
^DD(450,356,21,1,0)="The social security number of the designated owner of a U.S. savings"
^DD(450,356,21,2,0)="bond purchased by an employee through the payroll deduction plan. If"
^DD(450,356,21,3,0)="the owner is not a person, an employer identification number must be"
^DD(450,356,21,4,0)="shown. This field reflects the owner's social security number for the"
^DD(450,356,21,5,0)="first bond."
^DD(450,356,"DT")="2910604"
^DD(450,357,0)="SAVINGS BOND-1 ZIP CODE^F^^BOND1;15^K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(450,357,3)="Answer must be 5-9 characters in length."
^DD(450,357,8)="F"
^DD(450,357,21,0)="^^2^2^2911119^^"
^DD(450,357,21,1,0)="The zip code of the address, selected by the employee, to which the"
^DD(450,357,21,2,0)="first bond is mailed."
^DD(450,357,"DT")="2910604"
^DD(450,358,0)="SAVINGS BOND-2 ADD LINE-1^F^^BOND2;1^K:$L(X)>23!($L(X)<1) X"
^DD(450,358,3)="Answer must be 1-23 characters in length."
^DD(450,358,8)="F"
^DD(450,358,21,0)="^^2^2^2911119^^^"
^DD(450,358,21,1,0)="The first line of the address, selected by the employee, to which the"
^DD(450,358,21,2,0)="second bond is mailed."
^DD(450,358,"DT")="2910604"
^DD(450,359,0)="SAVINGS BOND-2 ADD LINE-2^F^^BOND2;2^K:$L(X)>23!($L(X)<1) X"
^DD(450,359,3)="Answer must be 1-23 characters in length."
^DD(450,359,8)="F"
^DD(450,359,21,0)="^^2^2^2911119^^^"
^DD(450,359,21,1,0)="The second line of the address, selected by the employee, to which the"
^DD(450,359,21,2,0)="second bond is mailed."
^DD(450,359,"DT")="2910604"
^DD(450,360,0)="SAVINGS BOND-2 ADD LINE-3^F^^BOND2;3^K:$L(X)>16!($L(X)<1) X"
^DD(450,360,3)="Answer must be 1-16 characters in length."
^DD(450,360,8)="F"
^DD(450,360,21,0)="^^2^2^2911119^^"
^DD(450,360,21,1,0)="The third line of the address, selected by the employee, to which the"
^DD(450,360,21,2,0)="second bond is mailed."
^DD(450,360,"DT")="2910604"
^DD(450,361,0)="SAVINGS BOND-2 BALANCE^NJ10,2^^BOND2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,361,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,361,8)="F"
^DD(450,361,21,0)="^^5^5^2911120^"
^DD(450,361,21,1,0)="The accumulated amount deducted toward the purchase price of the second"
^DD(450,361,21,2,0)="bond, as of the current pay period. Each time the purchase price is"
^DD(450,361,21,3,0)="reached, a bond is issued and the balance adjusted. Remaining balances"
^DD(450,361,21,4,0)="are incorporated in future bond purchases. The balance is refunded if"
^DD(450,361,21,5,0)="the bond is canceled or the employee separates from the agency."
^DD(450,361,"DT")="2910909"
^DD(450,362,0)="SAVINGS BOND-2 BENE CODE^FO^^BOND2;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,362,2)="S Y(0)=Y S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,362,2.1)="S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,362,3)="Answer must be 1 character in length."
^DD(450,362,8)="F"
^DD(450,362,21,0)="^^3^3^2911119^^"
^DD(450,362,21,1,0)="Code indicates whether or not an employee has selected a beneficiary"
^DD(450,362,21,2,0)="or co-owner for a bond purchased through the payroll deduction plan."
^DD(450,362,21,3,0)="This field pertains to the second bond allotment."
^DD(450,362,"DT")="2911211"
^DD(450,363,0)="SAVINGS BOND-2 CO-OWNER^F^^BOND2;6^K:$L(X)>28!($L(X)<1) X"
^DD(450,363,3)="Answer must be 1-28 characters in length."
^DD(450,363,8)="F"
^DD(450,363,21,0)="^^2^2^2911119^^"
^DD(450,363,21,1,0)="The name of the designated beneficiary/co-owner of the second bond. A"
^DD(450,363,21,2,0)="beneficiary or co-owner must be a person."
^DD(450,363,"DT")="2910604"
^DD(450,364,0)="SAVINGS BOND-2 CO-OWNER SSN^F^^BOND2;7^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,364,3)="Answer must be 9 characters in length."
^DD(450,364,8)="F"
^DD(450,364,21,0)="^^2^2^2911119^^"
^DD(450,364,21,1,0)="The social security number of the beneficiary or co-owner designated by"
^DD(450,364,21,2,0)="the employee. This field pertains to the second bond allotment."
^DD(450,364,"DT")="2910604"
^DD(450,365,0)="SAVINGS BOND-2 DED BALANCE^NJ8,2^^BOND2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,365,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,365,21,0)="^^6^6^2911121^^"
^DD(450,365,21,1,0)="The balance is the accumulated amount deducted toward the purchase"
^DD(450,365,21,2,0)="price of the bond, as of the current pay period. Each time the purchase"
^DD(450,365,21,3,0)="price is reached, a bond is issued and the balance adjusted. Remaining"
^DD(450,365,21,4,0)="balances are incorporated into future bond purchases. The balance is"
^DD(450,365,21,5,0)="refunded if the bond is canceled or the employee separates from the"
^DD(450,365,21,6,0)="agency. This field pertains to the second bond allotment."
^DD(450,365,"DT")="2910604"
^DD(450,366,0)="SAVINGS BOND-2 DED EPPD^NJ8,2^^BOND2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,366,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,366,8)="F"
^DD(450,366,21,0)="^^3^3^2911119^^"
^DD(450,366,21,1,0)="The amount the employee has authorized to be deducted each pay period"
^DD(450,366,21,2,0)="for the purchase of a U.S. savings bond. This field pertains to the"
^DD(450,366,21,3,0)="second savings bond allotment."
^DD(450,366,"DT")="2910604"
^DD(450,367,0)="SAVINGS BOND-2 DENOMINATION^FO^^BOND2;10^K:$L(X)>1!($L(X)<1) X"
^DD(450,367,2)="S Y(0)=Y S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,367,2.1)="S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,367,3)="Answer must be 1 character in length."
^DD(450,367,8)="F"
^DD(450,367,21,0)="^^3^3^2911119^^"
^DD(450,367,21,1,0)="Code indicates the face value of the U.S. savings bond being purchased"
^DD(450,367,21,2,0)="through the payroll deduction plan. An employee may purchase more than"
^DD(450,367,21,3,0)="one bond at a time. This field represents the second bond."
^DD(450,367,"DT")="2911211"
^DD(450,368,0)="SAVINGS BOND-2 EFFECTIVE DATE^D^^BOND2;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,368,8)="F"
^DD(450,368,21,0)="^^3^3^2911119^^"
^DD(450,368,21,1,0)="Denotes the date when the second bond allotment deductions have reached"
^DD(450,368,21,2,0)="one-half of the purchase price of the bond. The effective date determines"
^DD(450,368,21,3,0)="the bond's maturity and when interest begins to accrue."
^DD(450,368,"DT")="2910604"
^DD(450,369,0)="SAVINGS BOND-2 OWNER^F^^BOND2;12^K:$L(X)>32!($L(X)<1) X"
^DD(450,369,3)="Answer must be 1-32 characters in length."
^DD(450,369,8)="F"
^DD(450,369,21,0)="^^4^4^2911119^^"
^DD(450,369,21,1,0)="The name of the designated owner of a U.S. savings bond purchased by"
^DD(450,369,21,2,0)="an employee through the payroll deduction plan. The owner may be the"
^DD(450,369,21,3,0)="employee, another individual, a public or private organization, or a"
^DD(450,369,21,4,0)="fiduciary. This field pertains to the second bond."
^DD(450,369,"DT")="2910604"
^DD(450,370,0)="SAVINGS BOND-2 OWNER SSN^F^^BOND2;13^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,370,3)="Answer must be 9 characters in length."
^DD(450,370,8)="F"
^DD(450,370,21,0)="^^5^5^2911119^^"
^DD(450,370,21,1,0)="The social security number of the designated owner of a U.S. savings"
^DD(450,370,21,2,0)="bond purchased by an employee through the payroll deduction plan. If"
^DD(450,370,21,3,0)="the owner is not a person, an employer identification number must be"
^DD(450,370,21,4,0)="shown. This field reflects the owner's social security number for the"
^DD(450,370,21,5,0)="second bond."
^DD(450,370,"DT")="2910604"
^DD(450,371,0)="SAVINGS BOND-2 ZIP CODE^F^^BOND2;14^K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(450,371,3)="Answer must be 5-9 characters in length."
^DD(450,371,8)="F"
^DD(450,371,21,0)="^^2^2^2911119^"
^DD(450,371,21,1,0)="The zip code of the address, selected by the employee, to which the"
^DD(450,371,21,2,0)="second bond is mailed."
^DD(450,371,"DT")="2910604"
^DD(450,372,0)="PUERTO RICO STATE TAX EXEMPT^NJ5,0^^STATE;1^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,372,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,372,8)="F"
^DD(450,372,21,0)="^^4^4^2911121^^"
^DD(450,372,21,1,0)="A married employee of Puerto Rico may elect all or half of an"
^DD(450,372,21,2,0)="exemption for himself/herself. This field will be coded with the"
^DD(450,372,21,3,0)="percentage of the personal exemption elected by an employee for"
^DD(450,372,21,4,0)="primary city tax withholding."
^DD(450,372,"DT")="2910604"
^DD(450,373,0)="STATE TAX-1 ADDNL AMT WITHHELD^NJ5,0^^STATE;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,373,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,373,8)="F"
^DD(450,373,21,0)="^^2^2^2911107^"
^DD(450,373,21,1,0)="The amount of additional primary state income tax that an employee"
^DD(450,373,21,2,0)="has authorized to be withheld from earnings each pay period."
^DD(450,373,"DT")="2910604"
^DD(450,374,0)="STATE TAX-1 AMT WITHHELD CTPTD^NJ10,2^^STATE;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,374,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,374,8)="F"
^DD(450,374,21,0)="^^4^4^2911107^"
^DD(450,374,21,1,0)="The accumulated amount withheld from an employee's earnings for"
^DD(450,374,21,2,0)="primary state income tax in the current tax period to date. Tax periods"
^DD(450,374,21,3,0)="are determined by the employee's primary state as biweekly, monthly or"
^DD(450,374,21,4,0)="quarterly."
^DD(450,374,"DT")="2910604"
^DD(450,375,0)="STATE TAX-1 AMT WITHHELD YTD^NJ10,2^^STATE;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,375,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,375,8)="F"
^DD(450,375,21,0)="^^4^4^2911107^"
^DD(450,375,21,1,0)="The accumulated amount of primary state income tax withheld from an"
^DD(450,375,21,2,0)="employee's earnings for the current tax year to date. This amount"
^DD(450,375,21,3,0)="includes any additional withholding and the withholding based on claimed"
^DD(450,375,21,4,0)="allowances."
^DD(450,375,"DT")="2910604"
^DD(450,376,0)="STATE TAX-1 AMT WITHHELD CPPD^NJ7,2^^STATE;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(450,376,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(450,376,8)="F"
^DD(450,376,21,0)="^^3^3^2911120^"
^DD(450,376,21,1,0)="The amount of primary state income tax withheld from an employee's gross"
^DD(450,376,21,2,0)="earnings in the current pay period. This amount may include any additional"
^DD(450,376,21,3,0)="primary state income tax withholding that is authorized by the employee."
^DD(450,376,"DT")="2910909"
^DD(450,377,0)="STATE TAX-1 EXEMPTION CODE-1^NJ4,1^^STATE;6^K:+X'=X!(X>99.9)!(X<-99.9)!(X?.E1"".""2N.N) X"
^DD(450,377,3)="Type a Number between -99.9 and 99.9, 1 Decimal Digit"
^DD(450,377,8)="F"
^DD(450,377,21,0)="^^4^4^2911107^"
^DD(450,377,21,1,0)="The code can represent the number of exemptions; and/or any special"
^DD(450,377,21,2,0)="factors that affect the computation of tax withholdings from an"
^DD(450,377,21,3,0)="employee's taxable earnings. The precise meaning of the code is"
^DD(450,377,21,4,0)="determined by income tax regulations of an employee's primary state."
^DD(450,377,"DT")="2910604"
^DD(450,378,0)="STATE TAX-1 EXEMPTION CODE-2^NJ3,0^^STATE;7^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(450,378,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(450,378,8)="F"
^DD(450,378,21,0)="^^4^4^2911107^"
^DD(450,378,21,1,0)="The code can represent the number of exemptions; and/or any special"
^DD(450,378,21,2,0)="factors that affect the computation of tax withholdings from an"
^DD(450,378,21,3,0)="employee's taxable earnings. The precise meaning of the code is"
^DD(450,378,21,4,0)="determined by income tax regulations of an employee's primary state."
^DD(450,378,"DT")="2910604"
^DD(450,379,0)="STATE TAX-1 GROSS PAY CTPTD^NJ10,2^^STATE;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,379,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,379,8)="F"
^DD(450,379,21,0)="^^4^4^2911107^"
^DD(450,379,21,1,0)="The accumulated amount of an employee's gross earnings that are subject"
^DD(450,379,21,2,0)="to primary state income tax in the current tax period to date. Periods"
^DD(450,379,21,3,0)="are determined by the employee's primary state as biweekly, monthly or"
^DD(450,379,21,4,0)="quarterly."
^DD(450,379,"DT")="2910604"
^DD(450,380,0)="STATE TAX-1 GROSS PAY YTD^NJ10,2^^STATE;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,380,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,380,8)="F"
^DD(450,380,21,0)="^^2^2^2911107^"
^DD(450,380,21,1,0)="The accumulated amount of an employee's gross earnings that are subject"
^DD(450,380,21,2,0)="to income tax in the primary state for the current tax year to date."
^DD(450,380,"DT")="2910604"
^DD(450,381,0)="STATE TAX-1 GSA CODE^FO^^STATE;10^K:$L(X)>2!($L(X)<2) X"
^DD(450,381,2)="S Y(0)=Y S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,381,2.1)="S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,381,3)="Answer must be 2 characters in length."
^DD(450,381,8)="F"
^DD(450,381,21,0)="^^2^2^2911107^"
^DD(450,381,21,1,0)="Code identifies the primary state that an employee has authorized for"
^DD(450,381,21,2,0)="income tax withholding. State codes are assigned by the GSA."
^DD(450,381,"DT")="2911211"
^DD(450,382,0)="STATE TAX-1 MARITAL STATUS^F^^STATE;11^K:$L(X)>2!($L(X)<1) X"
^DD(450,382,3)="Answer must be 1-2 characters in length."
^DD(450,382,8)="F"
^DD(450,382,21,0)="^^3^3^2911107^"
^DD(450,382,21,1,0)="The code represents an employee's marital status for those primary"
^DD(450,382,21,2,0)="states which compute income taxes based on whether the employee is"
^DD(450,382,21,3,0)="married or single."
^DD(450,382,"DT")="2910604"
^DD(450,383,0)="STATE TAX-1 RESIDENCE STATE^FO^^STATE;12^K:$L(X)>2!($L(X)<2) X"
^DD(450,383,2)="S Y(0)=Y S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,383,2.1)="S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,383,3)="Answer must be 2 characters in length."
^DD(450,383,8)="F"
^DD(450,383,21,0)="^^3^3^2911107^"
^DD(450,383,21,1,0)="Code identifies where an employee lives to the primary state taxing"
^DD(450,383,21,2,0)="authority. The primary state taxing authority is the state in which"
^DD(450,383,21,3,0)="the employee works."
^DD(450,383,"DT")="2911211"
^DD(450,384,0)="STATE TAX-2 ADDNL AMT WITHHELD^NJ5,0^^STATE;13^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,384,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,384,8)="F"
^DD(450,384,21,0)="^^2^2^2911108^"
^DD(450,384,21,1,0)="The amount of additional secondary state income tax that an employee"
^DD(450,384,21,2,0)="has authorized to be withheld from earnings each pay period."
^DD(450,384,"DT")="2910604"
^DD(450,385,0)="STATE TAX-2 AMT WITHHELD CTPTD^NJ10,2^^STATE;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,385,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,385,8)="F"
^DD(450,385,21,0)="^^4^4^2911108^"
^DD(450,385,21,1,0)="The accumulated amount withheld from an employee's earnings for"
^DD(450,385,21,2,0)="secondary state income tax in the current tax period to date. Tax"
^DD(450,385,21,3,0)="periods are determined by the employee's secondary state as biweekly,"
^DD(450,385,21,4,0)="monthly or quarterly."
^DD(450,385,"DT")="2910604"
^DD(450,386,0)="STATE TAX-2 AMT WITHHELD YTD^NJ10,2^^STATE;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,386,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,386,8)="F"
^DD(450,386,21,0)="^^4^4^2911108^"
^DD(450,386,21,1,0)="The accumulated amount of secondary state income tax withheld from an"
^DD(450,386,21,2,0)="employee's earnings for the current tax year to date. This amount"
^DD(450,386,21,3,0)="includes any additional withholding and the withholding based on"
^DD(450,386,21,4,0)="claimed allowances."
^DD(450,386,"DT")="2910604"
^DD(450,387,0)="STATE TAX-2 AMT WITHHELD CPPD^NJ6,2^^STATE;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,387,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,387,8)="F"
^DD(450,387,21,0)="^^4^4^2911120^"
^DD(450,387,21,1,0)="The amount of secondary state income tax withheld from an employee's"
^DD(450,387,21,2,0)="gross earnings in the last pay period processed. This applies when an"
^DD(450,387,21,3,0)="employee works in one state and resides in another, and the two states"
^DD(450,387,21,4,0)="have not agreed to reciprocity."
^DD(450,387,"DT")="2910909"
^DD(450,388,0)="STATE TAX-2 EXEMPTION CODE-1^NJ4,1^^STATE;17^K:+X'=X!(X>99.9)!(X<-99.9)!(X?.E1"".""2N.N) X"
^DD(450,388,3)="Type a Number between -99.9 and 99.9, 1 Decimal Digit"
^DD(450,388,8)="F"
^DD(450,388,21,0)="^^4^4^2911108^"
^DD(450,388,21,1,0)="Code can represent the number of exemptions; and/or any special factors"
^DD(450,388,21,2,0)="that affect the computation of tax withholdings from an employee's"
^DD(450,388,21,3,0)="taxable earnings. The precise meaning of the code is determined by"
^DD(450,388,21,4,0)="income tax regulations of an employee's secondary state."
^DD(450,388,"DT")="2910604"
^DD(450,389,0)="STATE TAX-2 EXEMPTION CODE-2^NJ3,0^^STATE;18^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(450,389,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(450,389,8)="F"
^DD(450,389,21,0)="^^4^4^2911108^"
^DD(450,389,21,1,0)="Code represents the number of exemptions; and/or any special factors"
^DD(450,389,21,2,0)="that affect the computation of tax withholdings from an employee's"
^DD(450,389,21,3,0)="taxable earnings. The precise meaning of the code is determined by"
^DD(450,389,21,4,0)="income tax regulations of an employee's secondary state."
^DD(450,389,"DT")="2910604"
^DD(450,390,0)="STATE TAX-2 GROSS PAY CTPTD^NJ10,2^^STATE;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,390,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,390,8)="F"
^DD(450,390,21,0)="^^4^4^2911108^"
^DD(450,390,21,1,0)="The accumulated amount of an employee's gross earnings that are subject"
^DD(450,390,21,2,0)="to secondary state income tax in the current tax period to date. Tax"
^DD(450,390,21,3,0)="periods are determined by the employee's secondary state as biweekly,"
^DD(450,390,21,4,0)="monthly or quarterly."
^DD(450,390,"DT")="2910604"
^DD(450,391,0)="STATE TAX-2 GROSS PAY YTD^NJ10,2^^STATE;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,391,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,391,8)="F"
^DD(450,391,21,0)="^^2^2^2911108^"
^DD(450,391,21,1,0)="The accumulated amount of an employee's gross earnings that are subject"
^DD(450,391,21,2,0)="to income tax in the secondary state for the current tax year to date."
^DD(450,391,"DT")="2910604"
^DD(450,392,0)="STATE TAX-2 GSA CODE^FO^^STATE;21^K:$L(X)>2!($L(X)<2) X"
^DD(450,392,2)="S Y(0)=Y S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,392,2.1)="S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,392,3)="Answer must be 2 characters in length."
^DD(450,392,8)="F"
^DD(450,392,21,0)="^^2^2^2911108^"
^DD(450,392,21,1,0)="Code identifies the secondary state that an employee has authorized"
^DD(450,392,21,2,0)="for income tax withholding. State codes are assigned by the GSA."
^DD(450,392,"DT")="2911211"
^DD(450,393,0)="STATE TAX-2 MARITAL STATUS^F^^STATE;22^K:$L(X)>2!($L(X)<1) X"
^DD(450,393,3)="Answer must be 1-2 characters in length."
^DD(450,393,8)="F"
^DD(450,393,21,0)="^^3^3^2911108^"
^DD(450,393,21,1,0)="Code represents an employee's marital status for those secondary states"
^DD(450,393,21,2,0)="which compute income taxes based on whether the employee is married or"
^DD(450,393,21,3,0)="single."
^DD(450,393,"DT")="2910604"
^DD(450,394,0)="STATE TAX-2 RESIDENCE STATE^FO^^STATE;23^K:$L(X)>2!($L(X)<2) X"
^DD(450,394,2)="S Y(0)=Y S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,394,2.1)="S SUB454=""GSA"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,394,3)="Answer must be 2 characters in length."
^DD(450,394,8)="F"
^DD(450,394,21,0)="^^3^3^2911108^"
^DD(450,394,21,1,0)="Code identifies where an employee lives to the secondary state taxing"
^DD(450,394,21,2,0)="authority. The primary state taxing authority is the state in which"
^DD(450,394,21,3,0)="the employee works."
^DD(450,394,"DT")="2911211"
^DD(450,395,0)="TSP 1-PCT GOV CONTRIB YTD^NJ8,2^^TSP1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,395,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,395,8)="F"
^DD(450,395,21,0)="^^5^5^2940104^^^"
^DD(450,395,21,1,0)="Eligible Federal Employee Retirement Systems employees automatically"
^DD(450,395,21,2,0)="receive a Thrift Savings Plan basic government contribution of 1% of"
^DD(450,395,21,3,0)="their base pay. They receive the contribution even if they do not make"
^DD(450,395,21,4,0)="employee contributions to the Thrift Savings Plan. This is the actual"
^DD(450,395,21,5,0)="amount contributed this tax year to date."
^DD(450,395,"DT")="2940104"
^DD(450,396,0)="TSP AMT EPPD^NJ5,0^^TSP1;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,396,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,396,8)="F"
^DD(450,396,21,0)="^^4^4^2911119^"
^DD(450,396,21,1,0)="The exact dollar amount designated by an employee to be deducted from"
^DD(450,396,21,2,0)="pay for the Thrift Savings Plan. The dollar amount cannot exceed 10%"
^DD(450,396,21,3,0)="of basic pay for Federal Employee Retirement System employees and 5%"
^DD(450,396,21,4,0)="for Civil Service Retirement System employees."
^DD(450,396,"DT")="2910604"
^DD(450,397,0)="TSP BASE PAY AMT YTD^NJ8,2^^TSP1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,397,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,397,8)="F"
^DD(450,397,21,0)="^^2^2^2911120^"
^DD(450,397,21,1,0)="The accumulated total of base pay this tax year to date that Thrift"
^DD(450,397,21,2,0)="Savings Plan contributions were computed on."
^DD(450,397,"DT")="2910604"
^DD(450,398,0)="TSP DED PRIOR APPT YTD^NJ8,2^^TSP1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,398,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,398,8)="F"
^DD(450,398,21,0)="^^3^3^2911120^"
^DD(450,398,21,1,0)="The accumulated Thrift Savings Plan deductions this tax year from a prior"
^DD(450,398,21,2,0)="appointment. This field is used to assure that an over deduction for the"
^DD(450,398,21,3,0)="Thrift Savings Plan in the current tax year does not occur."
^DD(450,398,"DT")="2910604"
^DD(450,399,0)="TSP ELIG^D^^TSP1;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,399,8)="FP"
^DD(450,399,21,0)="^^2^2^2911120^^"
^DD(450,399,21,1,0)="The open season date that an employee will be eligible to participate"
^DD(450,399,21,2,0)="in the Thrift Savings Plan."
^DD(450,399,"DT")="2930223"
^DD(450,400,0)="TSP LOAN ACCOUNT NUMBER^F^^TSP1;6^K:$L(X)>17!($L(X)<1) X"
^DD(450,400,3)="Answer must be 1-17 characters in length."
^DD(450,400,8)="F"
^DD(450,400,21,0)="^^2^2^2911120^^"
^DD(450,400,21,1,0)="The number assigned to a Thrift Savings Plan loan repayment agreement."
^DD(450,400,21,2,0)="This number is assigned by the Thrift Savings Board."
^DD(450,400,"DT")="2910604"
^DD(450,401,0)="TSP LOAN DED CPPD^NJ8,2^^TSP1;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,401,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,401,8)="F"
^DD(450,401,21,0)="^^2^2^2911120^"
^DD(450,401,21,1,0)="The amount withheld from an employee's earnings, at his/her request,"
^DD(450,401,21,2,0)="to repay a Thrift Savings Plan loan."
^DD(450,401,"DT")="2910909"
^DD(450,402,0)="TSP LOAN DED EPPD^NJ8,2^^TSP1;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,402,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,402,8)="F"
^DD(450,402,21,0)="^^3^3^2911121^^"
^DD(450,402,21,1,0)="The actual amount to be withheld from an employee's pay to repay the"
^DD(450,402,21,2,0)="amount borrowed from the Thrift Savings account. This amount will be"
^DD(450,402,21,3,0)="predetermined by the Thrift Savings Board and withheld each pay period."
^DD(450,402,"DT")="2910604"
^DD(450,403,0)="TSP MASTER RECORD IND^FO^^TSP1;9^K:$L(X)>1!($L(X)<1) X"
^DD(450,403,2)="S Y(0)=Y S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NO"",1:Y)"
^DD(450,403,2.1)="S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NO"",1:Y)"
^DD(450,403,3)="Answer must be 1 character in length."
^DD(450,403,8)="F"
^DD(450,403,21,0)="^^2^2^2911107^"
^DD(450,403,21,1,0)="Code indicates an employee has elected to participate in the Thrift"
^DD(450,403,21,2,0)="Savings Program and is eligible for payroll deductions."
^DD(450,403,"DT")="2930108"
^DD(450,404,0)="TSP PCT RATE^NJ5,3O^^TSP1;10^K:+X'=X!(X>.999)!(X<-.999)!(X?.E1"".""4N.N) X"
^DD(450,404,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,404,2.1)="S Y=(Y*100)_""%"""
^DD(450,404,3)="Type a Number between -.999 and .999, 3 Decimal Digits"
^DD(450,404,8)="F"
^DD(450,404,21,0)="^^4^4^2911119^^"
^DD(450,404,21,1,0)="The percentage rate an employee has elected to be deducted from basic"
^DD(450,404,21,2,0)="pay for the Thrift Savings Plan. Federal Employee Retirement Systems"
^DD(450,404,21,3,0)="employees can have up to 10% of basic pay deducted. Civil Service"
^DD(450,404,21,4,0)="Retirement System employees can have up to 5% of basic pay deducted."
^DD(450,404,"DT")="2910918"
^DD(450,405,0)="TSP PRIOR TAX YEAR ADJ CODE^F^^TSP1;11^K:$L(X)>1!($L(X)<1) X"
^DD(450,405,3)="Answer must be 1 character in length."
^DD(450,405,8)="F"
^DD(450,405,21,0)="^^3^3^2911120^"
^DD(450,405,21,1,0)="Code identifies those deductions/adjustments to the Thrift Savings"
^DD(450,405,21,2,0)="Plan which are being processed this pay period, but which are applicable"
^DD(450,405,21,3,0)="to a prior tax year."
^DD(450,405,"DT")="2910909"
^DD(450,406,0)="TSP SERVICE COMPU DATE^D^^TSP1;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,406,8)="F"
^DD(450,406,21,0)="^^2^2^2911119^^"
^DD(450,406,21,1,0)="The Thrift Savings Plan Service Computation Date will determine when"
^DD(450,406,21,2,0)="vesting occurs for the basic 1% government contribution."
^DD(450,406,"DT")="2930223"
^DD(450,407,0)="TSP SEPARATION CODE^FO^^TSP1;13^K:$L(X)>1!($L(X)<1) X"
^DD(450,407,2)="S Y(0)=Y S SUB454=""TSC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,407,2.1)="S SUB454=""TSC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,407,3)="Answer must be 1 character in length."
^DD(450,407,8)="FP"
^DD(450,407,21,0)="^^4^4^2911122^^"
^DD(450,407,21,1,0)="The code will be ""Y"", employee will separate this pay period or ""N"","
^DD(450,407,21,2,0)="employee not separating this pay period. This code is for Thrift Savings"
^DD(450,407,21,3,0)="Plan only and not to be used to determine an employment status. Other"
^DD(450,407,21,4,0)="Values: ""D"" - Death; ""R"" - Retirement; ""S"" - Separation; ""T"" - Termination"
^DD(450,407,"DT")="2911211"
^DD(450,408,0)="TSP SEPARATION DATE^D^^TSP1;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,408,8)="FP"
^DD(450,408,21,0)="^^2^2^2911121^^"
^DD(450,408,21,1,0)="This is the date that pay will cease for an employee that is retiring,"
^DD(450,408,21,2,0)="applying for disability retirement or has died."
^DD(450,408,"DT")="2910604"
^DD(450,409,0)="TSP STATUS^FO^^TSP1;15^K:$L(X)>1!($L(X)<1) X"
^DD(450,409,2)="S Y(0)=Y S SUB454=""TSS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,409,2.1)="S SUB454=""TSS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,409,3)="Answer must be 1 character in length."
^DD(450,409,8)="FP"
^DD(450,409,21,0)="^^2^2^2911119^^"
^DD(450,409,21,1,0)="Identifies the employee's eligibility and/or election to participate"
^DD(450,409,21,2,0)="in the Thrift Savings Plan."
^DD(450,409,"DT")="2930115"
^DD(450,410,0)="TSP STATUS DATE^D^^TSP1;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,410,8)="FP"
^DD(450,410,21,0)="^^3^3^2911119^^"
^DD(450,410,21,1,0)="The effective date of an employee's change in status in the Thrift"
^DD(450,410,21,2,0)="Savings Plan. If the employee is a new hire or a rehire eligible for"
^DD(450,410,21,3,0)="immediate participation, the date is the date of accession."
^DD(450,410,"DT")="2910604"
^DD(450,411,0)="TSP VA DEPARTMENT CODE^F^^TSP1;17^K:$L(X)>2!($L(X)<2) X"
^DD(450,411,3)="Answer must be 2 characters in length."
^DD(450,411,8)="FP"
^DD(450,411,21,0)="^^2^2^2911119^"
^DD(450,411,21,1,0)="The code is to designate the department within the agency that an"
^DD(450,411,21,2,0)="employee works. No longer used."
^DD(450,411,"DT")="2910604"
^DD(450,412,0)="TSP VESTING^F^^TSP1;18^K:$L(X)>1!($L(X)<1) X"
^DD(450,412,3)="Answer must be 1 character in length."
^DD(450,412,8)="FP"
^DD(450,412,21,0)="^^3^3^2911119^"
^DD(450,412,21,1,0)="The number of years required for an employee to be vested with the"
^DD(450,412,21,2,0)="basic 1% government contribution. This applies only to Federal Employee"
^DD(450,412,21,3,0)="Retirement Systems employees."
^DD(450,412,"DT")="2930115"
^DD(450,413,0)="TSP CSF EMP DED CPPD^NJ8,2^^TSP2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,413,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,413,8)="F"
^DD(450,413,21,0)="^^2^2^2911120^"
^DD(450,413,21,1,0)="The amount deducted from an employee's earnings and contributed to the"
^DD(450,413,21,2,0)="Thrift Savings Plan Common Stock Fund in the last pay period processed."
^DD(450,413,"DT")="2910909"
^DD(450,414,0)="TSP CSF DIST PCT^NJ4,2O^^TSP2;2^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,414,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,414,2.1)="S Y=(Y*100)_""%"""
^DD(450,414,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,414,8)="F"
^DD(450,414,21,0)="^^2^2^2950531^^^^"
^DD(450,414,21,1,0)="The percentage of the Thrift Savings Plan deductions that an employee has"
^DD(450,414,21,2,0)="designated to go into the Common Stock Fund."
^DD(450,414,"DT")="2950531"
^DD(450,415,0)="TSP CSF GOV BASIC CONTRIB^NJ8,2^^TSP2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,415,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,415,8)="F"
^DD(450,415,21,0)="^^3^3^2941212^^"
^DD(450,415,21,1,0)="The dollar amount of the percentage of the agency basic contribution"
^DD(450,415,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(450,415,21,3,0)="the Common Stock Fund."
^DD(450,415,"DT")="2910909"
^DD(450,416,0)="TSP CSF GOV CONTRIB DIST PCT^NJ4,2O^^TSP2;4^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,416,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,416,2.1)="S Y=(Y*100)_""%"""
^DD(450,416,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,416,21,0)="^^2^2^2950531^^^^"
^DD(450,416,21,1,0)="The percentage of the agency contribution a Federal Employee Retirement"
^DD(450,416,21,2,0)="System employee has elected to have invested in the Common Stock Fund."
^DD(450,416,"DT")="2910918"
^DD(450,417,0)="TSP CSF GOV MATCH CONTRIB^NJ8,2^^TSP2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,417,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,417,8)="F"
^DD(450,417,21,0)="^^3^3^2941212^^"
^DD(450,417,21,1,0)="The dollar amount of the percentage of the agency matching contribution"
^DD(450,417,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(450,417,21,3,0)="the Common Stock Fund."
^DD(450,417,"DT")="2910909"
^DD(450,418,0)="TSP FIF EMP DED CPPD^NJ8,2^^TSP2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,418,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,418,8)="F"
^DD(450,418,21,0)="^^2^2^2911120^"
^DD(450,418,21,1,0)="The amount deducted from an employee's earnings and contributed to the"
^DD(450,418,21,2,0)="Thrift Savings Plan Fixed Income Fund in the last pay period processed."
^DD(450,418,"DT")="2910909"
^DD(450,419,0)="TSP FIF DIST PCT^NJ4,2O^^TSP2;7^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,419,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,419,2.1)="S Y=(Y*100)_""%"""
^DD(450,419,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,419,8)="F"
^DD(450,419,21,0)="^^2^2^2950531^^^^"
^DD(450,419,21,1,0)="The percentage of the Thrift Savings Plan deductions that an employee has"
^DD(450,419,21,2,0)="designated to go into the Fixed Income Fund."
^DD(450,419,"DT")="2950531"
^DD(450,420,0)="TSP FIF GOV BASIC CONTRIB^NJ8,2^^TSP2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,420,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,420,8)="F"
^DD(450,420,21,0)="^^3^3^2941212^^"
^DD(450,420,21,1,0)="The dollar amount of the percentage of the agency basic contribution"
^DD(450,420,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(450,420,21,3,0)="the Fixed Income Fund."
^DD(450,420,"DT")="2910909"
^DD(450,421,0)="TSP FIF GOV CONTRIB DIST PCT^NJ4,2O^^TSP2;9^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,421,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,421,2.1)="S Y=(Y*100)_""%"""
^DD(450,421,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,421,21,0)="^^2^2^2950531^^^^"
^DD(450,421,21,1,0)="The percentage of the agency contribution a Federal Employee Retirement"
^DD(450,421,21,2,0)="System employee has elected to have invested in the Fixed Income Fund."
^DD(450,421,"DT")="2910918"
^DD(450,422,0)="TSP FIF GOV MATCH CONTRIB^NJ8,2^^TSP2;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,422,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,422,8)="F"
^DD(450,422,21,0)="^^3^3^2941212^^"
^DD(450,422,21,1,0)="The dollar amount of the percentage of the agency matching contribution"
^DD(450,422,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(450,422,21,3,0)="the Fixed Income Fund."
^DD(450,422,"DT")="2910909"
^DD(450,423,0)="TSP GSF EMP DED CPPD^NJ8,2^^TSP2;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,423,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,423,8)="F"
^DD(450,423,21,0)="^^3^3^2911120^"
^DD(450,423,21,1,0)="The amount deducted from an employee's earnings and contributed to"
^DD(450,423,21,2,0)="the Thrift Savings Plan Government Securities Fund in the last pay"
^DD(450,423,21,3,0)="period processed."
^DD(450,423,"DT")="2910909"
^DD(450,424,0)="TSP GSF DIST PCT^NJ4,2O^^TSP2;12^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,424,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,424,2.1)="S Y=(Y*100)_""%"""
^DD(450,424,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,424,8)="F"
^DD(450,424,21,0)="^^2^2^2950531^^^"
^DD(450,424,21,1,0)="The percentage of the Thrift Savings Plan deductions that an employee has"
^DD(450,424,21,2,0)="designated to go into the Government Securities Fund."
^DD(450,424,"DT")="2950531"
^DD(450,425,0)="TSP GSF GOV BASIC CONTRIB^NJ8,2^^TSP2;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,425,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,425,8)="F"
^DD(450,425,21,0)="^^3^3^2941212^^"
^DD(450,425,21,1,0)="The dollar amount of the percentage of the agency basic contribution"
^DD(450,425,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(450,425,21,3,0)="the Government Securities Fund."
^DD(450,425,"DT")="2910909"
^DD(450,426,0)="TSP GSF GOV CONTRIB DIST PCT^NJ4,2O^^TSP2;14^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,426,2)="S Y(0)=Y S Y=(Y*100)_""%"""
^DD(450,426,2.1)="S Y=(Y*100)_""%"""
^DD(450,426,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,426,21,0)="^^3^3^2950531^^^^"
^DD(450,426,21,1,0)="The percentage of the agency contribution a Federal Employee Retirement"
^DD(450,426,21,2,0)="System employee has elected to have invested in the Government Securities"
^DD(450,426,21,3,0)="Fund."
^DD(450,426,"DT")="2910918"
^DD(450,427,0)="TSP GSF GOV MATCH CONTRIB^NJ8,2^^TSP2;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,427,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,427,8)="F"
^DD(450,427,21,0)="^^3^3^2941212^^"
^DD(450,427,21,1,0)="The dollar amount of the percentage of the agency matching contribution"
^DD(450,427,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(450,427,21,3,0)="the Government Securities Fund."
^DD(450,427,"DT")="2910909"
^DD(450,428,0)="UNION CODE-1^FO^^UNION;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X"
^DD(450,428,1,0)="^.1^^0"
^DD(450,428,2)="S Y(0)=Y S SUB454=""BUS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,428,2.1)="S SUB454=""BUS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,428,3)="Answer must be 4 characters in length."
^DD(450,428,8)="FP"
^DD(450,428,21,0)="^^2^2^2911107^^"
^DD(450,428,21,1,0)="Code identifies a national or local union. The employee has authorized"
^DD(450,428,21,2,0)="that a dues payment to this union be deducted from earnings."
^DD(450,428,"DT")="2930115"
^DD(450,429,0)="UNION CODE-2^FO^^UNION;2^K:$L(X)>4!($L(X)<4) X"
^DD(450,429,2)="S Y(0)=Y S SUB454=""BUS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,429,2.1)="S SUB454=""BUS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,429,3)="Answer must be 4 characters in length."
^DD(450,429,8)="FP"
^DD(450,429,21,0)="^^3^3^2911108^^"
^DD(450,429,21,1,0)="Code identifies a national or local union. The employee has authorized"
^DD(450,429,21,2,0)="that a dues payment to this union be deducted from earnings. This is"
^DD(450,429,21,3,0)="the second of two unions the employee belongs to."
^DD(450,429,"DT")="2930115"
^DD(450,430,0)="UNION DUES ANNIVERSARY DATE^D^^UNION;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,430,8)="F"
^DD(450,430,21,0)="^^1^1^2911107^"
^DD(450,430,21,1,0)="The effective date that deduction for union dues is begun."
^DD(450,430,"DT")="2910607"
^DD(450,431,0)="UNION DUES-1 DEDUCTION CPPD^NJ5,2^^UNION;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99.99)!(X<-99.99) X"
^DD(450,431,3)="Type a Dollar Amount between -99.99 and 99.99, 2 Decimal Digits"
^DD(450,431,8)="F"
^DD(450,431,21,0)="^^2^2^2911120^"
^DD(450,431,21,1,0)="The actual amount of union dues withheld this pay period for the first"
^DD(450,431,21,2,0)="union the employee belongs to."
^DD(450,431,"DT")="2910909"
^DD(450,432,0)="UNION DUES-1 DEDUCTION EPPD^NJ6,2^^UNION;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,432,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,432,8)="F"
^DD(450,432,21,0)="^^2^2^2911121^^"
^DD(450,432,21,1,0)="The employee authorized union dues amount deducted from earnings each"
^DD(450,432,21,2,0)="pay period for the first union the employee belongs to."
^DD(450,432,"DT")="2910604"
^DD(450,433,0)="UNION DUES-2 DEDUCTION CPPD^NJ5,2^^UNION;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99.99)!(X<-99.99) X"
^DD(450,433,3)="Type a Dollar Amount between -99.99 and 99.99, 2 Decimal Digits"
^DD(450,433,8)="F"
^DD(450,433,21,0)="^^2^2^2911120^"
^DD(450,433,21,1,0)="The actual amount of union dues withheld this pay period for the second"
^DD(450,433,21,2,0)="union the employee belongs to."
^DD(450,433,"DT")="2910910"
^DD(450,434,0)="UNION DUES-2 DEDUCTION EPPD^NJ6,2^^UNION;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,434,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,434,8)="F"
^DD(450,434,21,0)="^^2^2^2911108^"
^DD(450,434,21,1,0)="The amount of employee authorized dues deducted from earnings each pay"
^DD(450,434,21,2,0)="period for the second union the employee belongs to."
^DD(450,434,"DT")="2910604"
^DD(450,435,0)="VOLUNTARY ALLOTMENT-1 AMT^NJ5,0^^VALLOT;1^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,435,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,435,8)="F"
^DD(450,435,21,0)="^^2^2^2911107^"
^DD(450,435,21,1,0)="This field is the whole dollar amount the employee has elected to"
^DD(450,435,21,2,0)="have deducted from pay each pay period as a voluntary allotment."
^DD(450,435,"DT")="2910604"
^DD(450,436,0)="VOLUNTARY ALLOTMENT AMT CPPD^NJ7,0^^VALLOT;2^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(450,436,3)="Type a Number between -9999999 and 9999999, 0 Decimal Digits"
^DD(450,436,8)="F"
^DD(450,436,21,0)="^^2^2^2911121^^"
^DD(450,436,21,1,0)="The actual amount of voluntary allotment withheld in the last pay"
^DD(450,436,21,2,0)="period processed. This amount was authorized by the employee."
^DD(450,436,"DT")="2910910"
^DD(450,437,0)="VOLUNTARY ALLOTMENT-1 CTRL NO^F^^VALLOT;3^K:$L(X)>4!($L(X)<4) X"
^DD(450,437,3)="Answer must be 4 characters in length."
^DD(450,437,8)="F"
^DD(450,437,21,0)="^^5^5^2911107^^"
^DD(450,437,21,1,0)="A four digit numeric code assigned by the station. A voluntary"
^DD(450,437,21,2,0)="allotment may be made for voluntary child support, mutual funds,"
^DD(450,437,21,3,0)="union dues for supervisors, etc. This control number is used to"
^DD(450,437,21,4,0)="identify the name and address to which the voluntary allotment is"
^DD(450,437,21,5,0)="to be sent."
^DD(450,437,"DT")="2910604"
^DD(450,438,0)="VOLUNTARY ALLOTMENT-2 AMT^NJ5,0^^VALLOT;4^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,438,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,438,8)="F"
^DD(450,438,21,0)="^^3^3^2911118^"
^DD(450,438,21,1,0)="The amount the employee has elected to have deducted each pay period as"
^DD(450,438,21,2,0)="a voluntary allotment. This field pertains to the second instance of"
^DD(450,438,21,3,0)="voluntary allotments."
^DD(450,438,"DT")="2910604"
^DD(450,439,0)="VOLUNTARY ALLOTMENT-2 CTRL NO^F^^VALLOT;5^K:$L(X)>4!($L(X)<4) X"
^DD(450,439,3)="Answer must be 4 characters in length."
^DD(450,439,8)="F"
^DD(450,439,21,0)="^^5^5^2911118^"
^DD(450,439,21,1,0)="A station assigned four digit numeric code. A voluntary allotment may be"
^DD(450,439,21,2,0)="made for voluntary child support, mutual funds, union dues for supervisors,"
^DD(450,439,21,3,0)="etc. This control number is used to identify the name and address to"
^DD(450,439,21,4,0)="which the voluntary allotment is to be sent. This is the second of the two"
^DD(450,439,21,5,0)="possible voluntary allotments."
^DD(450,439,"DT")="2910604"
^DD(450,439.1,0)="VOLUNTARY ALLOTMENT-3 AMT^NJ5,0^^VALLOT;6^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1.N) X"
^DD(450,439.1,3)="Type a number between -99999 and 99999, 0 Decimal Digits."
^DD(450,439.1,21,0)="^^2^2^3030716^^"
^DD(450,439.1,21,1,0)="This field is the whole dollar amount the employee has elected to have"
^DD(450,439.1,21,2,0)="deducted from pay each pay period as a voluntary allotment."
^DD(450,439.1,"DT")="3030716"
^DD(450,439.2,0)="VOLUNTARY ALLOTMENT-3 CTRL NO^F^^VALLOT;7^K:$L(X)>4!($L(X)<4) X"
^DD(450,439.2,3)="Answer must be 4 characters in length."
^DD(450,439.2,21,0)="^^4^4^3030716^^"
^DD(450,439.2,21,1,0)="A four digit numeric code assigned by the station. A voluntary allotment may"
^DD(450,439.2,21,2,0)="be made for voluntary child support, mutual funds, union dues for supervisors,"
^DD(450,439.2,21,3,0)="etc. This control number is used to identify the name and address to which the"
^DD(450,439.2,21,4,0)="voluntary allotment is to be sent."
^DD(450,439.2,"DT")="3030716"
^DD(450,439.3,0)="VOLUNTARY ALLOTMENT-4 AMT^NJ5,0^^VALLOT;8^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1.N) X"
^DD(450,439.3,3)="Type a number between -99999 and 99999, 0 Decimal Digits."
^DD(450,439.3,21,0)="^^2^2^3030716^^"
^DD(450,439.3,21,1,0)="This field is the whole dollar amount the employee has elected to have"
^DD(450,439.3,21,2,0)="deducted from pay each pay period as a voluntary allotment."
^DD(450,439.3,"DT")="3030716"
^DD(450,439.4,0)="VOLUNTARY ALLOTMENT-4 CTRL NO^F^^VALLOT;9^K:$L(X)>4!($L(X)<4) X"
^DD(450,439.4,3)="Answer must be 4 characters in length."
^DD(450,439.4,21,0)="^^4^4^3030716^^^"
^DD(450,439.4,21,1,0)="A four digit numeric code assigned by the station. A voluntary allotment may"
^DD(450,439.4,21,2,0)="be made for voluntary child support, mutual funds, union dues for supervisors,"
^DD(450,439.4,21,3,0)="etc. This control number is used to identify the name and address to which the"
^DD(450,439.4,21,4,0)="voluntary allotment is to be sent."
^DD(450,439.4,"DT")="3030716"
^DD(450,440,0)="BANK ACCOUNT NUMBER^F^^MISC4;1^K:$L(X)>17!($L(X)<1) X"
^DD(450,440,3)="Answer must be 1-17 characters in length."
^DD(450,440,8)="F"
^DD(450,440,21,0)="^^3^3^2911220^^^^"
^DD(450,440,21,1,0)="Identifies the account at a financial institution where an employee's"
^DD(450,440,21,2,0)="net pay or savings allotment is to be deposited under the Direct Deposit/"
^DD(450,440,21,3,0)="Electronic Funds Transfer program."
^DD(450,440,"DT")="2910604"
^DD(450,441,0)="BANK ACCOUNT TYPE^FO^^MISC4;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,441,2)="S Y(0)=Y S SUB454=""BAT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,441,2.1)="S SUB454=""BAT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,441,3)="Answer must be 1 character in length."
^DD(450,441,8)="F"
^DD(450,441,21,0)="^^2^2^2911107^^"
^DD(450,441,21,1,0)="Code indicates the type of account at an employee's bank, checking or"
^DD(450,441,21,2,0)="savings."
^DD(450,441,"DT")="2911211"
^DD(450,442,0)="BANK EFT ROUTING NUMBER^F^^MISC4;3^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,442,3)="Answer must be 9 characters in length."
^DD(450,442,8)="F"
^DD(450,442,21,0)="^^6^6^2911107^^"
^DD(450,442,21,1,0)="A number that has been assigned to a specific financial organization"
^DD(450,442,21,2,0)="for identification purposes, used to facilitate automatic distribution"
^DD(450,442,21,3,0)="of employee salary payments and savings allotment data through the Direct"
^DD(450,442,21,4,0)="Deposit/Electronic Funds Transfer (DD/EFT) program. Also used for Union"
^DD(450,442,21,5,0)="Dues, discretionary (Voluntary) Allotments, Alimony/Child Support/"
^DD(450,442,21,6,0)="Bankruptcy (ACSB), Combined Federal Campaign (CFC) and other DD/EFT items."
^DD(450,442,"DT")="2910604"
^DD(450,443,0)="BULK CHECK OPTION^FO^^MISC4;4^K:$L(X)>1!($L(X)<1) X"
^DD(450,443,2)="S Y(0)=Y S SUB454=""BCO"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,443,2.1)="S SUB454=""BCO"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,443,3)="Answer must be 1 character in length."
^DD(450,443,8)="F"
^DD(450,443,21,0)="^^2^2^2911107^^"
^DD(450,443,21,1,0)="This code identifies those employees entitled to receive their salary"
^DD(450,443,21,2,0)="via the Designated Agent System (DAS)."
^DD(450,443,"DT")="2911211"
^DD(450,444,0)="CHECK DISTRIBUTION CODE^FO^^MISC4;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,444,2)="S Y(0)=Y S SUB454=""CDC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,444,2.1)="S SUB454=""CDC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,444,3)="Answer must be 1 character in length."
^DD(450,444,8)="F"
^DD(450,444,21,0)="^^2^2^2911121^^"
^DD(450,444,21,1,0)="Indicates that an employee has elected Direct Deposit/Electronic Funds"
^DD(450,444,21,2,0)="Transfer (DD/EFT) of net pay each pay period."
^DD(450,444,"DT")="2911211"
^DD(450,445,0)="EARNED INCOME CREDIT AMT CPPD^NJ6,2^^MISC4;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,445,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,445,8)="F"
^DD(450,445,21,0)="^^4^4^2911120^"
^DD(450,445,21,1,0)="The amount of earned income credit advanced to an employee in the last"
^DD(450,445,21,2,0)="pay period processed. This is a tax credit against year end federal"
^DD(450,445,21,3,0)="income tax liability. An employee qualifies for this credit based on"
^DD(450,445,21,4,0)="income level."
^DD(450,445,"DT")="2910910"
^DD(450,446,0)="EARNED INCOME CREDIT AMT EPPD^NJ6,2^^MISC4;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,446,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,446,8)="F"
^DD(450,446,21,0)="^^3^3^2911108^"
^DD(450,446,21,1,0)="The amount of federal income tax refunded every pay period due to the"
^DD(450,446,21,2,0)="employee's filing of TD Form W-5, Earned Income Credit Advance Payment"
^DD(450,446,21,3,0)="Certificate, with their payroll office."
^DD(450,446,"DT")="2910604"
^DD(450,447,0)="EARNED INCOME CREDIT AMT YTD^NJ8,2^^MISC4;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,447,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,447,8)="F"
^DD(450,447,21,0)="^^2^2^2911108^"
^DD(450,447,21,1,0)="The accumulated total of advance income credit payments to date this"
^DD(450,447,21,2,0)="tax year."
^DD(450,447,"DT")="2910604"
^DD(450,448,0)="EARNED INCOME CREDIT CODE^FO^^MISC4;9^K:$L(X)>1!($L(X)<1) X"
^DD(450,448,2)="S Y(0)=Y S SUB454=""EIT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,448,2.1)="S SUB454=""EIT"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,448,3)="Answer must be 1 character in length."
^DD(450,448,8)="F"
^DD(450,448,21,0)="^^6^6^2911107^"
^DD(450,448,21,1,0)="The Revenue Act of 1978 provides that eligible employees may elect to"
^DD(450,448,21,2,0)="receive advance payment of the earned income credit in their biweekly"
^DD(450,448,21,3,0)="salary checks. This field will be coded when an employee submits a"
^DD(450,448,21,4,0)="TD Form W-5, Earned Income Credit Advance Payment Certificate. This"
^DD(450,448,21,5,0)="indicator will be Yes or No. Yes will indicate spouse and employee"
^DD(450,448,21,6,0)="filing certificate and No will indicate spouse not filing certificate."
^DD(450,448,"DT")="2911211"
^DD(450,449,0)="FINAL PAY IND^FO^^MISC4;10^K:$L(X)>1!($L(X)<1) X"
^DD(450,449,2)="S Y(0)=Y S:Y=""N"" Y=""NA"""
^DD(450,449,2.1)="S:Y=""N"" Y=""NA"""
^DD(450,449,3)="Answer must be 1 character in length."
^DD(450,449,8)="F"
^DD(450,449,21,0)="^^1^1^2911108^"
^DD(450,449,21,1,0)="Code indicates that a separating employee's final pay has been processed."
^DD(450,449,"DT")="2910816"
^DD(450,450,0)="FTE EQUIVALENT^NJ4,2^^MISC4;11^K:+X'=X!(X>9.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,450,3)="Type a Number between 0 and 9.99, 2 Decimal Digits"
^DD(450,450,8)="FP"
^DD(450,450,21,0)="^^4^4^2921216^^"
^DD(450,450,21,1,0)="Full-time Employee Equivalent factor."
^DD(450,450,21,2,0)=" "
^DD(450,450,21,3,0)=" "
^DD(450,450,21,4,0)=" "
^DD(450,450,"DT")="2921216"
^DD(450,451,0)="LABOR DIST CODE-1 FUND CTRL PT^F^^MISC4;12^K:$L(X)>3!($L(X)<3) X"
^DD(450,451,3)="Answer must be 3 characters in length."
^DD(450,451,8)="F"
^DD(450,451,21,0)="^^3^3^3030626^^^^"
^DD(450,451,21,1,0)="A three digit code used in the analysis and control of salary costs."
^DD(450,451,21,2,0)="Code is computer generated, but may be changed by station input.  This is"
^DD(450,451,21,3,0)="related to the first of four possible Labor Distribution codes."
^DD(450,451,"DT")="3030626"
^DD(450,452,0)="INTMT EMP DAYS WORKED PROB PD^NJ5,1^^MISC4;13^K:+X'=X!(X>999.9)!(X<-999.9)!(X?.E1"".""2N.N) X"
^DD(450,452,3)="Type a Number between -999.9 and 999.9, 1 Decimal Digit"
^DD(450,452,8)="FP"
^DD(450,452,21,0)="^^2^2^2911118^"
^DD(450,452,21,1,0)="Data accumulated to determine the date the intermittent employee will"
^DD(450,452,21,2,0)="complete his/her probationary period."
^DD(450,452,"DT")="2920603"
^DD(450,453,0)="INTMT EMP DAYS WORKED STEP^NJ5,1^^MISC4;14^K:+X'=X!(X>999.9)!(X<-999.9)!(X?.E1"".""2N.N) X"
^DD(450,453,3)="Type a Number between -999.9 and 999.9, 1 Decimal Digit"
^DD(450,453,8)="FP"
^DD(450,453,21,0)="^^2^2^2911108^"
^DD(450,453,21,1,0)="Accumulated amount used to determine the due date of the next step"
^DD(450,453,21,2,0)="increase for intermittent employees."
^DD(450,453,"DT")="2920603"
^DD(450,454,0)="INTMT EMP DAYS WORKED YTD^NJ5,1^^MISC4;15^K:+X'=X!(X>999.9)!(X<-999.9)!(X?.E1"".""2N.N) X"
^DD(450,454,3)="Type a Number between -999.9 and 999.9, 1 Decimal Digit"
^DD(450,454,8)="FP"
^DD(450,454,21,0)="^^2^2^2911108^^"
^DD(450,454,21,1,0)="Accumulated amount used to determine creditable service for retirement"
^DD(450,454,21,2,0)="purposes for intermittent employees."
^DD(450,454,"DT")="2920603"
^DD(450,455,0)="LAST PPD PROCESSED^F^^MISC4;16^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(450,455,1,0)="^.1^^0"
^DD(450,455,3)="Answer must be 1-2 characters in length."
^DD(450,455,8)="F"
^DD(450,455,21,0)="^^2^2^2911107^"
^DD(450,455,21,1,0)="This is the number of the last payroll period for which the computer has"
^DD(450,455,21,2,0)="updated the employee's master record."
^DD(450,455,"DT")="2910927"
^DD(450,456,0)="MONTHLY ANNUITY^NJ8,2^^MISC4;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,456,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,456,8)="FP"
^DD(450,456,21,0)="^^3^3^2911108^"
^DD(450,456,21,1,0)="The monthly amount that reduces the base pay of a reemployed annuitant."
^DD(450,456,21,2,0)="These employees receive a monthly pension payment under Civil Service"
^DD(450,456,21,3,0)="Retirement (CSR), and are subsequently reemployed in federal service."
^DD(450,456,"DT")="2910604"
^DD(450,457,0)="SEVERANCE PAY AMT CPPD^NJ8,2^^MISC4;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,457,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,457,8)="F"
^DD(450,457,21,0)="^^4^4^2911120^"
^DD(450,457,21,1,0)="The amount of severance pay for an employee whose separation from"
^DD(450,457,21,2,0)="federal employment is due to certain involuntary conditions. This amount"
^DD(450,457,21,3,0)="is recorded in the last pay period processed after the employee's"
^DD(450,457,21,4,0)="separation."
^DD(450,457,"DT")="2911009"
^DD(450,458,0)="LABOR DIST CODE-1 COST CTR/ORG^FO^^0;49^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<8) X"
^DD(450,458,1,0)="^.1"
^DD(450,458,1,1,0)="450^ACC^MUMPS"
^DD(450,458,1,1,1)="I $D(^PRSPC(DA,1)),$P(^PRSPC(DA,1),""^"",33)=""N"" S ^PRSPC(""ACC"",X,DA)="""""
^DD(450,458,1,1,2)="K ^PRSPC(""ACC"",X,DA)"
^DD(450,458,1,1,"%D",0)="^.101^2^2^3030530^^^"
^DD(450,458,1,1,"%D",1,0)="This field is a cross-reference of all active employees by cost center/"
^DD(450,458,1,1,"%D",2,0)="organizational code."
^DD(450,458,1,1,"DT")="2930203"
^DD(450,458,2)="S Y(0)=Y S Y=$E(Y,1,4)_"":""_$E(Y,5,8),SUB454=""ORG"" D OT^PRSDUTIL K SUB454"
^DD(450,458,2.1)="S Y=$E(Y,1,4)_"":""_$E(Y,5,8),SUB454=""ORG"" D OT^PRSDUTIL K SUB454"
^DD(450,458,3)="Answer must be 8 characters in length."
^DD(450,458,8)="FP"
^DD(450,458,21,0)="^.001^2^2^3030603^^^^"
^DD(450,458,21,1,0)="Identifies the organization unit where an employee is assigned.  Also"
^DD(450,458,21,2,0)="identifies the cost center for fund appropriation accounting."
^DD(450,458,"DT")="3030612"
^DD(450,459,0)="VERIFIED FICA/MED WAGE DIFF^NJ8,2^^MISC4;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,459,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,459,8)="F"
^DD(450,459,21,0)="^^2^2^2911121^^^"
^DD(450,459,21,1,0)="This field is used to delete an employee from the Federal Insurance"
^DD(450,459,21,2,0)="Contributions Act and Medicare wage and tax listing report."
^DD(450,459,"DT")="2910604"
^DD(450,460,0)="AL NON-ACCRUAL IND^FO^^ANNUAL;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,460,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,460,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,460,3)="Answer must be 1 character in length."
^DD(450,460,8)="F"
^DD(450,460,21,0)="^^4^4^2911121^^"
^DD(450,460,21,1,0)="Indicates an employee is not earning annual leave because the employee"
^DD(450,460,21,2,0)="is serving under an appointment of less than 90 days. Applies to"
^DD(450,460,21,3,0)="employees covered by the Civil Service Leave System. Values: N - "
^DD(450,460,21,4,0)="employee can earn leave; Y - employee cannot earn leave."
^DD(450,460,"DT")="2911212"
^DD(450,461,0)="ANNUAL LEAVE CREDIT HOURS^NJ6,3^^ANNUAL;2^K:+X'=X!(X>99.999)!(X<-99.999)!(X?.E1"".""4N.N) X"
^DD(450,461,3)="Type a Number between -99.999 and 99.999, 3 Decimal Digits"
^DD(450,461,8)="FP"
^DD(450,461,21,0)="^^3^3^2911107^"
^DD(450,461,21,1,0)="The amount of annual leave credit hours a part-time employee was in a"
^DD(450,461,21,2,0)="pay status and which have not been applied in the computation of"
^DD(450,461,21,3,0)="accrued leave."
^DD(450,461,"DT")="2910604"
^DD(450,462,0)="ANNUAL LEAVE CURRENT BALANCE^NJ8,3^^ANNUAL;3^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,462,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,462,8)="FP"
^DD(450,462,21,0)="^^1^1^2920210^^^"
^DD(450,462,21,1,0)="The annual leave balance this leave year to date."
^DD(450,462,"DT")="2910604"
^DD(450,463,0)="ANNUAL LEAVE EARNED LYTD^NJ8,3^^ANNUAL;4^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,463,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,463,8)="FP"
^DD(450,463,21,0)="^^2^2^2911107^^"
^DD(450,463,21,1,0)="The total number of annual leave days (to 3 decimal places) or hours"
^DD(450,463,21,2,0)="which were earned by an employee during the current leave year."
^DD(450,463,"DT")="2910604"
^DD(450,464,0)="ANNUAL LEAVE EOPY BALANCE^NJ8,3^^ANNUAL;5^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,464,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,464,8)="FP"
^DD(450,464,21,0)="^^2^2^2911107^^"
^DD(450,464,21,1,0)="The number of hours or days of unused annual leave an employee had to"
^DD(450,464,21,2,0)="his/her credit at the end of the prior leave year."
^DD(450,464,"DT")="2910604"
^DD(450,465,0)="ANNUAL LEAVE USED CPPD^NJ6,2^^ANNUAL;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,465,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,465,8)="FP"
^DD(450,465,21,0)="^^2^2^2911120^"
^DD(450,465,21,1,0)="The number of hours or days used by an employee for annual leave in"
^DD(450,465,21,2,0)="the last pay period processed."
^DD(450,465,"DT")="2910910"
^DD(450,466,0)="ANNUAL LEAVE USED LYTD^NJ8,3^^ANNUAL;7^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,466,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,466,8)="FP"
^DD(450,466,21,0)="^^2^2^2911107^^"
^DD(450,466,21,1,0)="the total number of hours or days of annual leave used by an employee"
^DD(450,466,21,2,0)="during the current leave year."
^DD(450,466,"DT")="2910604"
^DD(450,467,0)="LEAVE ACCRUAL ELIG IND NPPD^FO^^ANNUAL;8^K:$L(X)>1!($L(X)<1) X"
^DD(450,467,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,467,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,467,3)="Answer must be 1 character in length."
^DD(450,467,8)="F"
^DD(450,467,21,0)="^^3^3^2911107^"
^DD(450,467,21,1,0)="Indicates eligibility of leave for employees whose time limited"
^DD(450,467,21,2,0)="appointments of less than 90 days have been extended beyond 90 days."
^DD(450,467,21,3,0)="Values: N - not eligible; Y - eligible."
^DD(450,467,"DT")="2911212"
^DD(450,468,0)="NONPAY ANNUAL LEAVE USED CPPD^NJ2,0^^ANNUAL;9^K:+X'=X!(X>99)!(X<-99)!(X?.E1"".""1N.N) X"
^DD(450,468,3)="Type a Number between -99 and 99, 0 Decimal Digits"
^DD(450,468,8)="F"
^DD(450,468,21,0)="^^2^2^2911120^"
^DD(450,468,21,1,0)="The number of non-available annual leave days used by an eligible"
^DD(450,468,21,2,0)="employee in the last pay period processed."
^DD(450,468,"DT")="2911009"
^DD(450,469,0)="RESTORED ANNUAL LEAVE BAL-1^NJ6,2^^ANNUAL;10^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,469,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,469,8)="F"
^DD(450,469,21,0)="^^3^3^2930503^^^^"
^DD(450,469,21,1,0)="This balance represents the number of unused hours or days of restored"
^DD(450,469,21,2,0)="annual leave as of the last pay period processed.  Restored annual leave may"
^DD(450,469,21,3,0)="be recorded for two separate occurences. This field identifies the first."
^DD(450,469,"DT")="2910604"
^DD(450,470,0)="RESTORED ANNUAL LEAVE BAL-2^NJ6,2^^ANNUAL;11^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,470,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,470,8)="F"
^DD(450,470,21,0)="^^3^3^2930427^^^^"
^DD(450,470,21,1,0)="This balance represents the number of unused hours or days of restored"
^DD(450,470,21,2,0)="annual leave as of the last pay period processed.  Restored annual leave may"
^DD(450,470,21,3,0)="be recorded for two separate occurences.  This field identifies the second."
^DD(450,470,"DT")="2910604"
^DD(450,471,0)="RESTORED ANNUAL LEAVE YEAR-1^F^^ANNUAL;12^K:$L(X)>1!($L(X)<1)!'(X?1N) X"
^DD(450,471,3)="Answer must be 1 character in length."
^DD(450,471,8)="F"
^DD(450,471,21,0)="^^4^4^2930427^^^"
^DD(450,471,21,1,0)="This code is the last digit of the leave year when an employee's restored"
^DD(450,471,21,2,0)="annual leave must be used or it will be forfeited.  Restored annual leave"
^DD(450,471,21,3,0)="may be recorded for two separate occurences and this field identifies the"
^DD(450,471,21,4,0)="first."
^DD(450,471,"DT")="2910604"
^DD(450,472,0)="RESTORED ANNUAL LEAVE YEAR-2^F^^ANNUAL;13^K:$L(X)>1!($L(X)<1)!'(X?1N) X"
^DD(450,472,3)="Answer must be 1 character in length."
^DD(450,472,8)="F"
^DD(450,472,21,0)="^^4^4^2930503^^^^"
^DD(450,472,21,1,0)="This code is the last digit of the leave year when an employee's restored"
^DD(450,472,21,2,0)="annual leave must be used or it will be forfeited.  Restored annual leave"
^DD(450,472,21,3,0)="may be recorded for two separate occurences and this field identifies the"
^DD(450,472,21,4,0)="second."
^DD(450,472,"DT")="2910604"
^DD(450,473,0)="BAYLOR PLAN AL CURRENT BAL^NJ8,3^^BAYLOR;1^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,473,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,473,8)="F"
^DD(450,473,21,0)="^^6^6^2911121^^^^"
^DD(450,473,21,1,0)="The current annual leave balance in hours (to 3 decimal places) for"
^DD(450,473,21,2,0)="employees under the Baylor Plan. Baylor Plan employees work two twelve"
^DD(450,473,21,3,0)="hour shifts between the hours of midnight Friday and midnight Sunday."
^DD(450,473,21,4,0)="For this tour of duty they are paid as if they had worked 80 hours."
^DD(450,473,21,5,0)="Leave accrual is the same as an 80 hour employee but leave charges are"
^DD(450,473,21,6,0)="converted to 1.667 hours for each hour taken."
^DD(450,473,"DT")="2910604"
^DD(450,474,0)="BAYLOR PLAN AL EOPY BAL^NJ8,3^^BAYLOR;2^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,474,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,474,8)="F"
^DD(450,474,21,0)="^^2^2^2911118^^"
^DD(450,474,21,1,0)="The number of hours (to 3 decimal places) of annual leave a Baylor Plan"
^DD(450,474,21,2,0)="employee has at the end of the prior leave year."
^DD(450,474,"DT")="2910604"
^DD(450,475,0)="BAYLOR PLAN AL USED LYTD^NJ8,3^^BAYLOR;3^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,475,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,475,8)="F"
^DD(450,475,21,0)="^^3^3^2911118^^"
^DD(450,475,21,1,0)="The number of hours (to 3 decimal places) of annual leave used by the"
^DD(450,475,21,2,0)="Baylor Plan employee since the beginning of the current leave year, as"
^DD(450,475,21,3,0)="of the end of the most current pay period processed."
^DD(450,475,"DT")="2910604"
^DD(450,476,0)="BAYLOR PLAN LWOP CCY^NJ8,3^^BAYLOR;4^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,476,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,476,8)="F"
^DD(450,476,21,0)="^^4^4^2911118^"
^DD(450,476,21,1,0)="The accumulated number of hours (to 3 decimal places) of leave without"
^DD(450,476,21,2,0)="pay that an employee under the Baylor Plan has used in the current"
^DD(450,476,21,3,0)="calendar year. Leave without pay charges are converted to 1.667 for each"
^DD(450,476,21,4,0)="hour used."
^DD(450,476,"DT")="2910604"
^DD(450,477,0)="BAYLOR PLAN LWOP LYTD^NJ8,3^^BAYLOR;5^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,477,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,477,8)="F"
^DD(450,477,21,0)="^^3^3^2911118^^"
^DD(450,477,21,1,0)="The accumulated number of hours (to 3 decimal places) of leave without"
^DD(450,477,21,2,0)="pay that an employee under the Baylor Plan has used in the current leave"
^DD(450,477,21,3,0)="year. Leave without pay charges are converted to 1.667 for each hour used."
^DD(450,477,"DT")="2910604"
^DD(450,478,0)="BAYLOR PLAN LWOP PROB PD^NJ8,3^^BAYLOR;6^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,478,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,478,8)="F"
^DD(450,478,21,0)="^^3^3^2911118^"
^DD(450,478,21,1,0)="The total number of leave without pay hours taken by a Baylor Plan"
^DD(450,478,21,2,0)="employee during the probationary period of employment. Leave without"
^DD(450,478,21,3,0)="pay charges are converted to 1.667 for each hour used."
^DD(450,478,"DT")="2910604"
^DD(450,479,0)="BAYLOR PLAN LWOP SINCE PROM^NJ8,3^^BAYLOR;7^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,479,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,479,8)="F"
^DD(450,479,21,0)="^^3^3^2911118^"
^DD(450,479,21,1,0)="The total number of leave without pay hours used by an employee since"
^DD(450,479,21,2,0)="the effective date of the last promotion. Leave without pay charges"
^DD(450,479,21,3,0)="are converted to 1.667 for each hour used."
^DD(450,479,"DT")="2910605"
^DD(450,480,0)="BAYLOR PLAN LWOP THIS STEP^NJ8,3^^BAYLOR;8^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,480,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,480,8)="F"
^DD(450,480,21,0)="^^3^3^2911118^"
^DD(450,480,21,1,0)="The total number of leave without pay hours used by an employee since"
^DD(450,480,21,2,0)="the last within grade increase. Leave without pay charges are converted"
^DD(450,480,21,3,0)="to 1.667 for each hour used."
^DD(450,480,"DT")="2910604"
^DD(450,481,0)="BAYLOR PLAN RESTORED AL BAL-1^NJ8,3^^BAYLOR;9^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,481,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,481,8)="F"
^DD(450,481,21,0)="^^4^4^2911118^^^"
^DD(450,481,21,1,0)="The balance represents the number of unused hours of restored annual"
^DD(450,481,21,2,0)="leave. The balance is as of the last pay period processed. This field"
^DD(450,481,21,3,0)="pertains to the first instance of restored annual leave for the Baylor"
^DD(450,481,21,4,0)="Plan employee."
^DD(450,481,"DT")="2910604"
^DD(450,482,0)="BAYLOR PLAN RESTORED AL BAL-2^NJ8,3^^BAYLOR;10^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,482,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,482,8)="F"
^DD(450,482,21,0)="^^4^4^2911118^^^"
^DD(450,482,21,1,0)="The balance represents the number of unused hours of restored annual"
^DD(450,482,21,2,0)="leave. The balance is as of the last pay period processed. This field"
^DD(450,482,21,3,0)="pertains to the second instance of restored annual leave for the Baylor"
^DD(450,482,21,4,0)="Plan employee."
^DD(450,482,"DT")="2910604"
^DD(450,483,0)="BAYLOR PLAN RESTORED AL YEAR-1^F^^BAYLOR;11^K:$L(X)>1!($L(X)<1)!'(X?1N) X"
^DD(450,483,3)="Answer must be 1 character in length."
^DD(450,483,8)="F"
^DD(450,483,21,0)="^^4^4^2930503^^^^"
^DD(450,483,21,1,0)="The last digit of the leave year in which the restored annual leave must"
^DD(450,483,21,2,0)="be used or forfeited (generally current leave year plus two). This field"
^DD(450,483,21,3,0)="pertains to the first instance of restored annual leave for the Baylor Plan"
^DD(450,483,21,4,0)="employee."
^DD(450,483,"DT")="2910604"
^DD(450,484,0)="BAYLOR PLAN RESTORED AL YEAR-2^F^^BAYLOR;12^K:$L(X)>1!($L(X)<1)!'(X?1N) X"
^DD(450,484,3)="Answer must be 1 character in length."
^DD(450,484,8)="F"
^DD(450,484,21,0)="^^4^4^2911118^^"
^DD(450,484,21,1,0)="The last digit of the leave year in which the restored annual leave must be"
^DD(450,484,21,2,0)="used or forfeited (generally current leave year plus two). This field"
^DD(450,484,21,3,0)="pertains to the second instance of restored annual leave for the Baylor"
^DD(450,484,21,4,0)="Plan employee."
^DD(450,484,"DT")="2910604"
^DD(450,485,0)="BAYLOR PLAN SL CURRENT BAL^NJ8,3^^BAYLOR;13^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,485,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,485,8)="F"
^DD(450,485,21,0)="^^2^2^2911121^^^^"
^DD(450,485,21,1,0)="The current sick leave balance in hours (to 3 decimal places) for"
^DD(450,485,21,2,0)="employees under the Baylor Plan."
^DD(450,485,"DT")="2910604"
^DD(450,486,0)="BAYLOR PLAN SL EOPY BAL^NJ8,3^^BAYLOR;14^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,486,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,486,8)="F"
^DD(450,486,21,0)="^^2^2^2911118^^"
^DD(450,486,21,1,0)="The number of hours (to 3 decimal places) of sick leave a Baylor Plan"
^DD(450,486,21,2,0)="employee has at the end of the prior leave year."
^DD(450,486,"DT")="2910604"
^DD(450,487,0)="BAYLOR PLAN SL USED LYTD^NJ8,3^^BAYLOR;15^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,487,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,487,8)="F"
^DD(450,487,21,0)="^^3^3^2911118^^"
^DD(450,487,21,1,0)="The number of hours (to 3 decimal places) of sick leave used by the"
^DD(450,487,21,2,0)="Baylor Plan employee since the beginning of the current leave year, as"
^DD(450,487,21,3,0)="of the end of the most current pay period processed."
^DD(450,487,"DT")="2910604"
^DD(450,488,0)="COMPTIME/CREDIT HRS BAL PPD1^NJ6,2^^COMP;1^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,488,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,488,8)="F"
^DD(450,488,21,0)="3^^8^8^2980804^^^^"
^DD(450,488,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,488,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and "
^DD(450,488,21,3,0)="compensatory time.  It is the balance of comp/credit earned in a pay "
^DD(450,488,21,4,0)="period furthest into the past but not more than 7 pay periods ago. If a "
^DD(450,488,21,5,0)="portion of the balance is credit hours then that portion can be "
^DD(450,488,21,6,0)="re-entered in OLDE for an additional 7 pay periods.  Each of the other "
^DD(450,488,21,7,0)="pay periods in which comp/credit balances may have been earned are "
^DD(450,488,21,8,0)="stored in separate fields."
^DD(450,488,"DT")="2980618"
^DD(450,489,0)="COMPTIME/CREDIT HRS BAL PPD2^NJ6,2^^COMP;2^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,489,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,489,8)="F"
^DD(450,489,21,0)="^^7^7^2980804^^^^"
^DD(450,489,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,489,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and"
^DD(450,489,21,3,0)="compensatory time. It is the balance of comp/credit earned in a pay"
^DD(450,489,21,4,0)="period 2nd to the furthest pay period into the past but not more than 7"
^DD(450,489,21,5,0)="pay periods ago.  A portion of the balance may be credit hours from a"
^DD(450,489,21,6,0)="recent pay period or credit hours that has been re-entered through OLDE"
^DD(450,489,21,7,0)="for an additional 7 pay periods. "
^DD(450,489,"DT")="2980618"
^DD(450,490,0)="COMPTIME/CREDIT HRS BAL PPD3^NJ6,2^^COMP;3^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,490,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,490,8)="F"
^DD(450,490,21,0)="^^8^8^2980803^^^^"
^DD(450,490,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,490,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and"
^DD(450,490,21,3,0)="compensatory time. It is the balance of comp/credit earned in a pay"
^DD(450,490,21,4,0)="period third from the furthest pay period into the past but not more than 7"
^DD(450,490,21,5,0)="pay periods ago.  A portion of the balance may be credit hours from a"
^DD(450,490,21,6,0)="recent pay period or credit hours that has been re-entered through OLDE"
^DD(450,490,21,7,0)="for an additional 7 pay periods--or both."
^DD(450,490,21,8,0)=""
^DD(450,490,"DT")="2980618"
^DD(450,491,0)="COMPTIME/CREDIT HRS BAL PPD4^NJ6,2^^COMP;4^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,491,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,491,8)="F"
^DD(450,491,21,0)="^^7^7^2980803^^^"
^DD(450,491,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,491,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and"
^DD(450,491,21,3,0)="compensatory time. It is the balance of comp/credit earned in a pay"
^DD(450,491,21,4,0)="period fourth from the furthest pay period into the past but not more than 7"
^DD(450,491,21,5,0)="pay periods ago.  A portion of the balance may be credit hours from a"
^DD(450,491,21,6,0)="recent pay period or credit hours that has been re-entered through OLDE"
^DD(450,491,21,7,0)="for an additional 7 pay periods--or both."
^DD(450,491,"DT")="2980618"
^DD(450,492,0)="COMPTIME/CREDIT HRS BAL PPD5^NJ6,2^^COMP;5^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,492,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,492,8)="F"
^DD(450,492,21,0)="^^7^7^2980803^^^"
^DD(450,492,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,492,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and"
^DD(450,492,21,3,0)="compensatory time. It is the balance of comp/credit earned in a pay"
^DD(450,492,21,4,0)="period fifth from the furthest pay period into the past but not more"
^DD(450,492,21,5,0)="than 7 pay periods ago.  A portion of the balance may be credit hours"
^DD(450,492,21,6,0)="from a recent pay period or credit hours that has been re-entered"
^DD(450,492,21,7,0)="through OLDE for an additional 7 pay periods--or both. "
^DD(450,492,"DT")="2980618"
^DD(450,493,0)="COMPTIME/CREDIT HRS BAL PPD6^NJ6,2^^COMP;6^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,493,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,493,8)="F"
^DD(450,493,21,0)="^^7^7^2980803^^^"
^DD(450,493,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,493,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and"
^DD(450,493,21,3,0)="compensatory time. It is the balance of comp/credit earned in a pay"
^DD(450,493,21,4,0)="period sixth from the furthest pay period into the past but not more"
^DD(450,493,21,5,0)="than 7 pay periods ago (a recent pay period).  A portion of the balance"
^DD(450,493,21,6,0)="may be credit hours from a recent pay period or credit hours that has"
^DD(450,493,21,7,0)="been re-entered through OLDE for an additional 7 pay periods--or both. "
^DD(450,493,"DT")="2980618"
^DD(450,494,0)="COMPTIME/CREDIT HRS BAL PPD7^NJ6,2^^COMP;7^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,494,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,494,8)="F"
^DD(450,494,21,0)="^^9^9^2980803^^^^"
^DD(450,494,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,494,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and"
^DD(450,494,21,3,0)="compensatory time. It is the balance of comp/credit earned in a pay"
^DD(450,494,21,4,0)="period seventh from the furthest pay period into the past but not more"
^DD(450,494,21,5,0)="than 7 pay periods ago (a very recent pay period).  A portion of the"
^DD(450,494,21,6,0)="balance may be credit hours from a recent pay period or credit hours"
^DD(450,494,21,7,0)="that has been re-entered through OLDE for an additional 7 pay"
^DD(450,494,21,8,0)="periods--or both. "
^DD(450,494,21,9,0)=""
^DD(450,494,"DT")="2980618"
^DD(450,495,0)="COMPTIME/CREDIT HRS BAL PPD8^NJ6,2^^COMP;8^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,495,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,495,8)="F"
^DD(450,495,21,0)="^^8^8^2980803^^^"
^DD(450,495,21,1,0)="The balance of unused hours of compensatory time/credit hours.  This"
^DD(450,495,21,2,0)="balance, sent by the AAC, may be a combination of credit hours and"
^DD(450,495,21,3,0)="compensatory time. It is the balance of comp/credit earned in a pay"
^DD(450,495,21,4,0)="period eighth from the furthest pay period into the past but not more"
^DD(450,495,21,5,0)="than 7 pay periods ago (a very recent pay period).  A portion of the"
^DD(450,495,21,6,0)="balance may be credit hours from a recent pay period or credit hours"
^DD(450,495,21,7,0)="that has been re-entered through OLDE for an additional 7 pay"
^DD(450,495,21,8,0)="periods--or both."
^DD(450,495,"DT")="2980618"
^DD(450,496,0)="COMPTIME/CREDIT HRS BALANCE^NJ6,2^^COMP;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,496,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,496,8)="F"
^DD(450,496,21,0)="^^8^8^2980804^^"
^DD(450,496,21,1,0)="The balance of compensatory time/credit hours an employee has at the end"
^DD(450,496,21,2,0)="of the last pay period processed.  This balance, sent by the AAC, may be"
^DD(450,496,21,3,0)="a combination of credit hours and compensatory time and should be the"
^DD(450,496,21,4,0)="total balance of compensatory earned in the last 7 pay periods plus the"
^DD(450,496,21,5,0)="credit hours earned in the last 14 pay periods.  Portions of the balance"
^DD(450,496,21,6,0)="that are credit hours from over 7 pay periods past must be manually "
^DD(450,496,21,7,0)="re-entered through OLDE for an additional 7 pay periods. "
^DD(450,496,21,8,0)=""
^DD(450,496,"DT")="2980604"
^DD(450,497,0)="COMPTIME/CREDIT HRS PPD1 NAME^F^^COMP;10^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,497,3)="Answer must be 1-2 characters in length."
^DD(450,497,8)="F"
^DD(450,497,21,0)="^^3^3^2980804^^^"
^DD(450,497,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,497,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,497,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD1 (488). "
^DD(450,497,"DT")="2980618"
^DD(450,498,0)="COMPTIME/CREDIT HRS PPD2 NAME^F^^COMP;11^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,498,3)="Answer must be 1-2 characters in length."
^DD(450,498,8)="F"
^DD(450,498,21,0)="^^3^3^2980804^^^^"
^DD(450,498,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,498,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,498,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD2 (489)."
^DD(450,498,"DT")="2980618"
^DD(450,499,0)="COMPTIME/CREDIT HRS PPD3 NAME^F^^COMP;12^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,499,3)="Answer must be 1-2 characters in length."
^DD(450,499,8)="F"
^DD(450,499,21,0)="^^3^3^2980804^^^^"
^DD(450,499,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,499,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,499,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD3 (490)."
^DD(450,499,"DT")="2980618"
^DD(450,500,0)="COMPTIME/CREDIT HRS PPD4 NAME^F^^COMP;13^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,500,3)="Answer must be 1-2 characters in length."
^DD(450,500,8)="F"
^DD(450,500,21,0)="^^3^3^2980804^^^"
^DD(450,500,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,500,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,500,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD4 (491)."
^DD(450,500,"DT")="2980618"
^DD(450,501,0)="COMPTIME/CREDIT HRS PPD5 NAME^F^^COMP;14^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,501,3)="Answer must be 1-2 characters in length."
^DD(450,501,8)="F"
^DD(450,501,21,0)="^^3^3^2980804^^^"
^DD(450,501,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,501,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,501,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD5 (492)."
^DD(450,501,"DT")="2980618"
^DD(450,502,0)="COMPTIME/CREDIT HRS PPD6 NAME^F^^COMP;15^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,502,3)="Answer must be 1-2 characters in length."
^DD(450,502,8)="F"
^DD(450,502,21,0)="^^3^3^2980804^^^"
^DD(450,502,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,502,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,502,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD6 (493)."
^DD(450,502,"DT")="2980618"
^DD(450,503,0)="COMPTIME/CREDIT HRS PPD7 NAME^F^^COMP;16^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,503,3)="Answer must be 1-2 characters in length."
^DD(450,503,8)="F"
^DD(450,503,21,0)="^^3^3^2980804^^^"
^DD(450,503,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,503,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,503,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD7 (494)."
^DD(450,503,"DT")="2980618"
^DD(450,504,0)="COMPTIME/CREDIT HRS PPD8 NAME^F^^COMP;17^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,504,3)="Answer must be 1-2 characters in length."
^DD(450,504,8)="F"
^DD(450,504,21,0)="^^3^3^2980804^^^^"
^DD(450,504,21,1,0)="The pay period in which compensatory time/credit hours was earned by the"
^DD(450,504,21,2,0)="employee.  The amount earned is stored in the corresponding "
^DD(450,504,21,3,0)="field--COMPTIME/CREDIT HRS BAL PPD8 (495)."
^DD(450,504,"DT")="2980618"
^DD(450,505,0)="COMPTIME/CREDIT HRS USED CPPD^NJ6,2^^COMP;18^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,505,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,505,8)="F"
^DD(450,505,21,0)="^^3^3^2980804^^^^"
^DD(450,505,21,1,0)="Amount of compensatory time/credit hours used for the last pay period"
^DD(450,505,21,2,0)="processed.  Amount of each, comp or credit, must be tracked manually, as"
^DD(450,505,21,3,0)="the system does not distinguish between the two types of time."
^DD(450,505,"DT")="2980608"
^DD(450,506,0)="MILITARY LEAVE BALANCE^NJ6,2^^MILITARY;1^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,506,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,506,8)="FP"
^DD(450,506,21,0)="^.001^4^4^3010925^^^^"
^DD(450,506,21,1,0)="The unused balance of military leave an employee has to use this fiscal"
^DD(450,506,21,2,0)="year to date. Any balance remaining at the end of the fiscal year, up"
^DD(450,506,21,3,0)="to 15 days for full-time employees, will carry over into the next fiscal"
^DD(450,506,21,4,0)="year."
^DD(450,506,"DT")="3010925"
^DD(450,507,0)="MILITARY LEAVE ELIGIBILITY IND^F^^MILITARY;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,507,3)="Answer must be 1 character in length."
^DD(450,507,8)="FP"
^DD(450,507,21,0)="^^2^2^2911118^"
^DD(450,507,21,1,0)="Indicates if an employee is eligible to accrue and use military leave"
^DD(450,507,21,2,0)="during the fiscal year."
^DD(450,507,"DT")="2910604"
^DD(450,507.1,0)="MILITARY LEAVE TYPE^NJ1,0^^MILITARY;3^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,507.1,3)="Type a Number between 0 and 2, 0 Decimal Digits"
^DD(450,507.1,21,0)="^^5^5^3010905^"
^DD(450,507.1,21,1,0)="The MILITARY LEAVE TYPE field indicates how the employee is charged"
^DD(450,507.1,21,2,0)="Military Leave (ML).  The possible values are:"
^DD(450,507.1,21,3,0)="       0 - employee is not eligible to take Military Leave."
^DD(450,507.1,21,4,0)="       1 - employee is charged Military Leave in hours."
^DD(450,507.1,21,5,0)="       2 - employee is charged Military Leave in days."
^DD(450,507.1,"DT")="3010905"
^DD(450,507.2,0)="MILITARY LEAVE USED CPPD^NJ6,2^^MILITARY;4^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,507.2,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,507.2,21,0)="^.001^2^2^3011003^^^^"
^DD(450,507.2,21,1,0)="The number of hours or days used by an employee for Military Leave in the last"
^DD(450,507.2,21,2,0)="pay period processed."
^DD(450,507.2,"DT")="3011003"
^DD(450,508,0)="FROZEN SICK LEAVE^NJ8,3^^SICK;1^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,508,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,508,8)="FP"
^DD(450,508,21,0)="^^3^3^2911121^^"
^DD(450,508,21,1,0)="The balance of sick leave accumulated under the Civil Service"
^DD(450,508,21,2,0)="Retirement System and frozen when an employee changed to the Federal"
^DD(450,508,21,3,0)="Employee Retirement System."
^DD(450,508,"DT")="2910604"
^DD(450,509,0)="TOTAL SICK LEAVE CREDIT HOURS^NJ6,3^^SICK;2^K:+X'=X!(X>99.999)!(X<-99.999)!(X?.E1"".""4N.N) X"
^DD(450,509,3)="Type a Number between -99.999 and 99.999, 3 Decimal Digits"
^DD(450,509,8)="FP"
^DD(450,509,21,0)="^^3^3^2950505^^^"
^DD(450,509,21,1,0)="The amount of sick leave credit hours this leave year to date. These"
^DD(450,509,21,2,0)="are the number of hours a part-time employee was in a pay status and"
^DD(450,509,21,3,0)="which have not been applied in the computation of accrued leave."
^DD(450,509,"DT")="2950505"
^DD(450,510,0)="TOTAL SICK LEAVE BALANCE^NJ8,3^^SICK;3^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,510,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,510,8)="FP"
^DD(450,510,21,0)="^^2^2^2950505^^^^"
^DD(450,510,21,1,0)="The number of hours or days of sick leave balance the employee has"
^DD(450,510,21,2,0)="this leave year to date."
^DD(450,510,"DT")="2950505"
^DD(450,511,0)="TOTAL SICK LEAVE EARNED^NJ8,3^^SICK;4^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,511,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,511,8)="FP"
^DD(450,511,21,0)="^^2^2^2950505^^^^"
^DD(450,511,21,1,0)="The total number of sick leave days (to 2 decimal places) or hours which"
^DD(450,511,21,2,0)="were earned by an employee during the current leave year."
^DD(450,511,"DT")="2950505"
^DD(450,512,0)="TOTAL SICK LEAVE EOPY BALANCE^NJ8,3^^SICK;5^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,512,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,512,8)="FP"
^DD(450,512,21,0)="^^2^2^2950505^^^"
^DD(450,512,21,1,0)="The number of hours or days of sick leave that an employee has to"
^DD(450,512,21,2,0)="his/her credit at the end of the prior leave year."
^DD(450,512,"DT")="2950505"
^DD(450,513,0)="TOTAL SICK LEAVE USED CPPD^NJ6,2^^SICK;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,513,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,513,8)="FP"
^DD(450,513,21,0)="^^2^2^2950508^^^"
^DD(450,513,21,1,0)="The number of hours or days used by an employee for sick leave in the last"
^DD(450,513,21,2,0)="pay period processed."
^DD(450,513,"DT")="2950505"
^DD(450,514,0)="TOTAL SICK LEAVE USED LYTD^NJ8,3^^SICK;7^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,514,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,514,8)="FP"
^DD(450,514,21,0)="^^2^2^2950508^^^^"
^DD(450,514,21,1,0)="The total number of hours or days of sick leave used by an employee"
^DD(450,514,21,2,0)="during the leave year to date."
^DD(450,514,"DT")="2950505"
^DD(450,515,0)="EXTENDED LWOP IND^F^^LWOP;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,515,3)="Answer must be 1 character in length."
^DD(450,515,8)="FP"
^DD(450,515,21,0)="^^2^2^2920221^^^^"
^DD(450,515,21,1,0)="Indicates that an employee will be in a non-pay status for 31 days or"
^DD(450,515,21,2,0)="more either due to an adverse action, leave without pay or furlough."
^DD(450,515,"DT")="2930315"
^DD(450,516,0)="INTER-AGENCY LWOP IND^F^^LWOP;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,516,3)="Answer must be 1 character in length."
^DD(450,516,8)="FP"
^DD(450,516,21,0)="^^3^3^2911121^^"
^DD(450,516,21,1,0)="Indicates leave without pay is creditable for within grade increase"
^DD(450,516,21,2,0)="purposes for an employee on loan to another agency, state, local or"
^DD(450,516,21,3,0)="business organization."
^DD(450,516,"DT")="2910604"
^DD(450,517,0)="LWOP CCY^NJ8,2^^LWOP;3^K:+X'=X!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3N.N) X"
^DD(450,517,3)="Type a Number between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,517,8)="FP"
^DD(450,517,21,0)="^^3^3^2911108^"
^DD(450,517,21,1,0)="This is a dual purpose field to record or adjust without pay in hours"
^DD(450,517,21,2,0)="or days for the calendar year as applicable and to record or adjust"
^DD(450,517,21,3,0)="retirement credit days for intermittent employees."
^DD(450,517,"DT")="2910604"
^DD(450,518,0)="LWOP CONTROL UNITS LYTD^NJ3,0^^LWOP;4^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(450,518,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(450,518,8)="F"
^DD(450,518,21,0)="^^5^5^2911108^"
^DD(450,518,21,1,0)="Units are the equivalent number of full pay periods when sick and annual"
^DD(450,518,21,2,0)="leave accruals have been reduced to excess without pay (WOP) time. Accruals"
^DD(450,518,21,3,0)="are reduced in the pay period when WOP equals 80 hours or 14 days, as"
^DD(450,518,21,4,0)="determined by the appointment. This is the accumulated number of pay"
^DD(450,518,21,5,0)="periods in which accruals were reduced in the current leave year to date."
^DD(450,518,"DT")="2910604"
^DD(450,519,0)="LWOP HOURS/DAYS CPPD^NJ6,2^^LWOP;5^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,519,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,519,8)="F"
^DD(450,519,21,0)="^^2^2^2911120^^"
^DD(450,519,21,1,0)="The accumulated number of hours or days leave without pay was taken"
^DD(450,519,21,2,0)="by an employee in the last pay period processed."
^DD(450,519,"DT")="2911120"
^DD(450,520,0)="LWOP LYTD^NJ8,2^^LWOP;6^K:+X'=X!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3N.N) X"
^DD(450,520,3)="Type a Number between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,520,8)="F"
^DD(450,520,21,0)="^^4^4^2911108^"
^DD(450,520,21,1,0)="The accumulated number of hours or days of leave without pay used in the"
^DD(450,520,21,2,0)="current leave year by a full-time employee. Data is accumulated for the"
^DD(450,520,21,3,0)="purposes of reducing leave credits when an employee has used excess"
^DD(450,520,21,4,0)="leave without pay in the year."
^DD(450,520,"DT")="2910604"
^DD(450,521,0)="LWOP PROB PD^NJ8,2^^LWOP;7^K:+X'=X!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3N.N) X"
^DD(450,521,3)="Type a Number between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,521,8)="FP"
^DD(450,521,21,0)="^^4^4^2911108^"
^DD(450,521,21,1,0)="The accumulated number of hours or days taken as leave without pay."
^DD(450,521,21,2,0)="This total includes absence without leave, and covers the period from"
^DD(450,521,21,3,0)="the beginning of the probationary period through the last pay period"
^DD(450,521,21,4,0)="processed. Applies to a full-time or a part-time employee."
^DD(450,521,"DT")="2910604"
^DD(450,522,0)="LWOP SINCE PROM^NJ8,2^^LWOP;8^K:+X'=X!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3N.N) X"
^DD(450,522,3)="Type a Number between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,522,8)="FP"
^DD(450,522,21,0)="^^2^2^2911121^^"
^DD(450,522,21,1,0)="The number of days/hours of leave without pay since the last promotion for"
^DD(450,522,21,2,0)="a Title 38 employee."
^DD(450,522,"DT")="2910604"
^DD(450,523,0)="LWOP THIS STEP^NJ8,2^^LWOP;9^K:+X'=X!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3N.N) X"
^DD(450,523,3)="Type a Number between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,523,8)="FP"
^DD(450,523,21,0)="^^4^4^2911121^^"
^DD(450,523,21,1,0)="The accumulated number of hours or days taken as leave without pay."
^DD(450,523,21,2,0)="This total includes absence without leave and covers the period from"
^DD(450,523,21,3,0)="the effective date of the employee's last equivalent pay increase"
^DD(450,523,21,4,0)="through the last pay period processed. Applies to a full-time employee."
^DD(450,523,"DT")="2910604"
^DD(450,524,0)="LWOP WG/PW PYTD^NJ5,0^^LWOP;10^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,524,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,524,8)="FP"
^DD(450,524,21,0)="^^4^4^2911108^"
^DD(450,524,21,1,0)="The accumulated number of hours of leave without pay taken by a wage"
^DD(450,524,21,2,0)="administration employee or Veteran Canteen Service pieceworker. Total"
^DD(450,524,21,3,0)="includes absence without leave and is for the current pay year to date,"
^DD(450,524,21,4,0)="through the last pay period processed."
^DD(450,524,"DT")="2910604"
^DD(450,525,0)="ANNUAL LEAVE LUMP SUM AMT^NJ8,2^^LUMPSUM;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,525,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,525,8)="F"
^DD(450,525,21,0)="^^5^5^2911121^^"
^DD(450,525,21,1,0)="The amount of lump sum annual leave paid an employee in the last pay"
^DD(450,525,21,2,0)="period processed. This number also includes any hours of restored annual"
^DD(450,525,21,3,0)="leave. A lump sum is paid at the time of separation from federal service"
^DD(450,525,21,4,0)="or when an employee moves to a position that is not covered by an annual"
^DD(450,525,21,5,0)="leave system."
^DD(450,525,"DT")="2910910"
^DD(450,526,0)="ANNUAL LEAVE LUMP SUM HRS/DAYS^NJ6,2^^LUMPSUM;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,526,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,526,8)="F"
^DD(450,526,21,0)="^^5^5^2911120^"
^DD(450,526,21,1,0)="The number of hours or days of annual leave for which an employee is"
^DD(450,526,21,2,0)="paid a lump sum. This number also includes any hours or days of"
^DD(450,526,21,3,0)="restored annual leave. A lump sum is paid at the time of separation"
^DD(450,526,21,4,0)="from federal service or when an employee moves to a position that is not"
^DD(450,526,21,5,0)="covered by an annual leave system."
^DD(450,526,"DT")="2910910"
^DD(450,527,0)="COLA AMT CPPD^NJ8,2^^COLA;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,527,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,527,8)="F"
^DD(450,527,21,0)="^^5^5^2930503^^^^"
^DD(450,527,21,1,0)="The amount of the Cost Of Living Allowance (COLA) paid to an employee"
^DD(450,527,21,2,0)="in the current pay period.  Employees in specific geographic areas with"
^DD(450,527,21,3,0)="higher cost of living receive a COLA in addition to base pay.  The Office"
^DD(450,527,21,4,0)="of Personnel Management designates COLA areas within the U.S. and its"
^DD(450,527,21,5,0)="territories. "
^DD(450,527,"DT")="2910910"
^DD(450,528,0)="COLA AMT YTD^NJ10,2^^COLA;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,528,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,528,8)="F"
^DD(450,528,21,0)="^^3^3^2911121^^"
^DD(450,528,21,1,0)="Accumulated amount of Cost Of Living Allowance (COLA) paid to an employee."
^DD(450,528,21,2,0)="The total is for the current calendar year to date, through the last pay"
^DD(450,528,21,3,0)="period processed."
^DD(450,528,"DT")="2910604"
^DD(450,529,0)="COLA^NJ5,3^^COLA;3^K:+X'=X!(X>9.999)!(X<-9.999)!(X?.E1"".""4N.N) X"
^DD(450,529,3)="Type a Number between -9.999 and 9.999, 3 Decimal Digits"
^DD(450,529,8)="FP"
^DD(450,529,21,0)="^^4^4^2930219^^^^"
^DD(450,529,21,1,0)="Indicates the percent used to calculate the amount of COLA paid to an"
^DD(450,529,21,2,0)="employee each pay period.  COLA is a percentage of base pay determined by"
^DD(450,529,21,3,0)="OPM."
^DD(450,529,21,4,0)=" "
^DD(450,529,"DT")="2921020"
^DD(450,530,0)="UNSCHEDULED HOURS^NJ6,2^^MISC;1^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,530,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,530,8)="FP"
^DD(450,530,21,0)="^^2^2^2911120^"
^DD(450,530,21,1,0)="The number of hours or days base pay for which an employee was paid in"
^DD(450,530,21,2,0)="the last pay period processed."
^DD(450,530,"DT")="2911227"
^DD(450,531,0)="FLSA OVERTIME WEEK CODE CPPD^F^^MISC;2^K:$L(X)>1!($L(X)<1) X"
^DD(450,531,3)="Answer must be 1 character in length."
^DD(450,531,8)="F"
^DD(450,531,21,0)="^^5^5^2911120^"
^DD(450,531,21,1,0)="Code identifies those workweeks in which overtime was paid under the"
^DD(450,531,21,2,0)="Federal Labor Standards Act (FLSA) regulations for either or both weeks"
^DD(450,531,21,3,0)="of the pay period. This applies only to Title 5 employees and indicates"
^DD(450,531,21,4,0)="that FLSA overtime pay was greater than Title 5 overtime pay. Codes are"
^DD(450,531,21,5,0)="applicable to the last pay period processed."
^DD(450,531,"DT")="2910910"
^DD(450,532,0)="MOVING EXPENSES CPPD^NJ8,2^^MISC;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,532,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,532,8)="F"
^DD(450,532,21,0)="^^2^2^2920922^^^^"
^DD(450,532,21,1,0)="The moving expenses amount for the current pay period."
^DD(450,532,21,2,0)=" "
^DD(450,532,"DT")="2920922"
^DD(450,533,0)="PURCHASE AND HIRE CASH PAYMENT^NJ8,2^^MISC;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,533,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,533,8)="F"
^DD(450,533,21,0)="^^1^1^2911107^"
^DD(450,533,21,1,0)="The hourly fringe benefit payment for purchase and hire employees."
^DD(450,533,"DT")="2910604"
^DD(450,534,0)="BASE PAY AMT PRIOR TO RET COV^NJ10,2^^PAY;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,534,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,534,8)="F"
^DD(450,534,21,0)="^^2^2^2911121^^"
^DD(450,534,21,1,0)="The amount of basic compensation paid for a period of service rendered"
^DD(450,534,21,2,0)="prior to the date of acquiring coverage under a retirement system."
^DD(450,534,"DT")="2910604"
^DD(450,535,0)="BASE PAY CHANGE PPD^F^^PAY;2^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(450,535,3)="Answer must be 1-2 characters in length."
^DD(450,535,8)="F"
^DD(450,535,21,0)="^^2^2^2911107^"
^DD(450,535,21,1,0)="This field contains the pay period number of the last salary rate"
^DD(450,535,21,2,0)="change for an employee."
^DD(450,535,"DT")="2910604"
^DD(450,536,0)="BASE PAY CHANGE YEAR^F^^PAY;3^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(450,536,3)="Answer must be 4 characters in length."
^DD(450,536,8)="F"
^DD(450,536,21,0)="^^2^2^2911107^"
^DD(450,536,21,1,0)="This field contains the year of the last salary rate change for an"
^DD(450,536,21,2,0)="employee."
^DD(450,536,"DT")="2910604"
^DD(450,537,0)="BASE PAY CPPD^NJ8,2^^PAY;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,537,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,537,8)="F"
^DD(450,537,21,0)="^^2^2^2911120^"
^DD(450,537,21,1,0)="The amount of base pay an employee was paid for the last pay period"
^DD(450,537,21,2,0)="processed."
^DD(450,537,"DT")="2910910"
^DD(450,538,0)="REEMP ANNUITANT BASE PAY REDUC^NJ7,2^^PAY;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(450,538,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(450,538,8)="F"
^DD(450,538,21,0)="2^^2^2^2930223^^^^"
^DD(450,538,21,1,0)="The actual amount of money a reemployed annuitant's base pay was"
^DD(450,538,21,2,0)="reduced in the last pay period processed."
^DD(450,538,"DT")="2930223"
^DD(450,539,0)="BASE PAY SUBJECT TO CSRS^NJ8,2^^PAY;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,539,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,539,8)="F"
^DD(450,539,21,0)="^^2^2^2911108^"
^DD(450,539,21,1,0)="Identifies that portion of the employee's base pay that is subject to"
^DD(450,539,21,2,0)="Civil Service Retirement (CSR)."
^DD(450,539,"DT")="2910604"
^DD(450,540,0)="GROSS PAY CPPD^NJ10,2^^PAY;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(450,540,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(450,540,8)="F"
^DD(450,540,21,0)="^^2^2^2911120^"
^DD(450,540,21,1,0)="The amount of gross pay an employee was paid for the last pay period"
^DD(450,540,21,2,0)="processed."
^DD(450,540,"DT")="2910910"
^DD(450,541,0)="NET PAY CPPD^NJ8,2^^PAY;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,541,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,541,8)="F"
^DD(450,541,21,0)="^^1^1^2911121^^"
^DD(450,541,21,1,0)="The amount of net pay an employee received for the last pay period processed."
^DD(450,541,"DT")="2910910"
^DD(450,542,0)="NET PAY OUT-OF-SYSTEM AMT CPPD^NJ8,2^^PAY;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,542,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,542,8)="F"
^DD(450,542,21,0)="^^3^3^2911120^"
^DD(450,542,21,1,0)="The net pay amount of an out-of-system payment that is being recovered"
^DD(450,542,21,2,0)="in the affected employee's master record for income tax and wage"
^DD(450,542,21,3,0)="reporting purposes."
^DD(450,542,"DT")="2910910"
^DD(450,543,0)="AUO AMT CPPD^NJ8,2^^PREMIUM;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,543,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,543,8)="F"
^DD(450,543,21,0)="^^4^4^2911120^"
^DD(450,543,21,1,0)="The amount of administratively uncontrollable overtime received by an"
^DD(450,543,21,2,0)="employee this pay period. This pay is limited to criminal investigators,"
^DD(450,543,21,3,0)="grades GS-9 through GS-14, of the Office of the Inspector General"
^DD(450,543,21,4,0)="assigned to Central Office."
^DD(450,543,"DT")="2910910"
^DD(450,544,0)="AUO PERCENT^NJ4,2^^PREMIUM;2^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,544,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,544,8)="FP"
^DD(450,544,21,0)="^^3^3^2930428^^^^"
^DD(450,544,21,1,0)="Indicates the percentage to be paid to an employee whose position is"
^DD(450,544,21,2,0)="classified in the criminal investigator series, GS/GM-1811, grades 9-14,"
^DD(450,544,21,3,0)="and the exemption from the overtime provision of the FLSA."
^DD(450,544,"DT")="2921016"
^DD(450,545,0)="ENVIRONMENTAL HAZARD HRS CPPD^NJ5,2^^PREMIUM;3^K:+X'=X!(X>99.75)!(X<-99.75)!(X?.E1"".""3N.N) X"
^DD(450,545,3)="Type a Number between -99.75 and 99.75, 2 Decimal Digits"
^DD(450,545,8)="F"
^DD(450,545,21,0)="^^2^2^2930727^^"
^DD(450,545,21,1,0)="The number of hours paid to an employee for environmental differential"
^DD(450,545,21,2,0)="pay in the last pay period processed."
^DD(450,545,"DT")="2930727"
^DD(450,546,0)="HOLIDAY AMT^NJ6,2^^PREMIUM;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,546,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,546,8)="F"
^DD(450,546,21,0)="^^2^2^2930312^^"
^DD(450,546,21,1,0)="The amount paid to an employee as premium pay for work performed on a"
^DD(450,546,21,2,0)="holiday. This amount is for the last pay period processed."
^DD(450,546,"DT")="2930312"
^DD(450,547,0)="HOLIDAY HOURS^NJ6,2^^PREMIUM;5^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,547,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,547,8)="F"
^DD(450,547,21,0)="^^2^2^2930312^^"
^DD(450,547,21,1,0)="The number of hours an employee was paid holiday premium pay in the"
^DD(450,547,21,2,0)="last pay period processed."
^DD(450,547,"DT")="2930312"
^DD(450,548,0)="PREMIUM PAY IND^F^^PREMIUM;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,548,3)="Answer must be 1 character in length."
^DD(450,548,8)="FP"
^DD(450,548,21,0)="^^4^4^2911121^^^"
^DD(450,548,21,1,0)="Upon receipt of written notification from the Personnel Officer that an"
^DD(450,548,21,2,0)="eligible employee has been authorized to receive premium pay under the"
^DD(450,548,21,3,0)="provisions of Public Law 98-160, the appropriate premium pay code must be"
^DD(450,548,21,4,0)="entered into each affected employee's master record."
^DD(450,548,"DT")="2930114"
^DD(450,549,0)="NIGHT DIFF AMT CPPD^NJ6,2^^PREMIUM;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,549,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,549,8)="F"
^DD(450,549,21,0)="^^3^3^2911120^"
^DD(450,549,21,1,0)="The amount paid to an eligible employee performing duty on a tour of"
^DD(450,549,21,2,0)="duty, part or all of which qualifies for payment of a night shift"
^DD(450,549,21,3,0)="differential."
^DD(450,549,"DT")="2920916"
^DD(450,550,0)="NIGHT DIFF HRS CPPD^NJ6,2^^PREMIUM;8^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,550,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,550,8)="F"
^DD(450,550,21,0)="^^3^3^2911120^"
^DD(450,550,21,1,0)="The number of hours an employee was paid night differential, shift"
^DD(450,550,21,2,0)="differential, or tour differential premium pay in the last pay period"
^DD(450,550,21,3,0)="processed."
^DD(450,550,"DT")="2920916"
^DD(450,551,0)="NIGHT DIFF IND^FO^^PREMIUM;9^K:$L(X)>1!($L(X)<1) X"
^DD(450,551,2)="S Y(0)=Y S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,551,2.1)="S:Y=""N""&('$D(DIS(0))) Y=""NA"""
^DD(450,551,3)="Answer must be 1 character in length."
^DD(450,551,8)="F"
^DD(450,551,21,0)="^^4^4^2911107^"
^DD(450,551,21,1,0)="This field is used when current year deductions for a wage employee"
^DD(450,551,21,2,0)="includes an amount which was deducted from shift differential payments."
^DD(450,551,21,3,0)="It is used to make appropriate remarks on the employee's retirement"
^DD(450,551,21,4,0)="record."
^DD(450,551,"DT")="2920916"
^DD(450,552,0)="ON CALL AMT CPPD^NJ8,2^^PREMIUM;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(450,552,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,552,8)="F"
^DD(450,552,21,0)="^^3^3^2911120^"
^DD(450,552,21,1,0)="The amount paid for hours an employee spent in an on-call status in"
^DD(450,552,21,2,0)="the last pay period processed. This applies only to certain Title 38"
^DD(450,552,21,3,0)="medical personnel."
^DD(450,552,"DT")="3040427"
^DD(450,553,0)="ON CALL HRS CPPD^NJ7,2^^PREMIUM;11^K:+X'=X!(X>9999.99)!(X<-9999.99)!(X?.E1"".""3N.N) X"
^DD(450,553,3)="Type number of hours of On Call Pay, between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(450,553,8)="F"
^DD(450,553,21,0)="^^2^2^2960808^^"
^DD(450,553,21,1,0)="The number of on-call hours an employee was paid for the last pay period"
^DD(450,553,21,2,0)="processed. This applies only to certain Title 38 medical personnel."
^DD(450,553,23,0)="^^3^3^2960808^"
^DD(450,553,23,1,0)="The size of this field conforms with the size of the field sent by Austin"
^DD(450,553,23,2,0)="in download messages.  Decimal digits should be only in increments of .25,"
^DD(450,553,23,3,0)="representing quarter hours."
^DD(450,553,"DT")="2960808"
^DD(450,554,0)="OVERTIME AMT CPPD^NJ8,2^^PREMIUM;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,554,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,554,8)="F"
^DD(450,554,21,0)="^^2^2^2911121^^"
^DD(450,554,21,1,0)="The amount of overtime premium pay received by an employee for overtime"
^DD(450,554,21,2,0)="hours worked in the current pay period processed."
^DD(450,554,"DT")="2911125"
^DD(450,555,0)="OVERTIME HOURS CPPD^NJ6,2^^PREMIUM;13^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,555,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,555,8)="F"
^DD(450,555,21,0)="^^2^2^2911120^"
^DD(450,555,21,1,0)="The number of hours for which an employee was paid overtime premium pay"
^DD(450,555,21,2,0)="in the last pay period processed."
^DD(450,555,"DT")="2930312"
^DD(450,556,0)="PREMIUM PAY PCT^NJ5,3^^PREMIUM;14^K:+X'=X!(X>9.999)!(X<-9.999)!(X?.E1"".""4N.N) X"
^DD(450,556,3)="Type a Number between -9.999 and 9.999, 3 Decimal Digits"
^DD(450,556,8)="FP"
^DD(450,556,21,0)="^^2^2^2930223^^"
^DD(450,556,21,1,0)="Represents the percent of salary payable for regularly scheduled standby"
^DD(450,556,21,2,0)="duty."
^DD(450,556,"DT")="2930223"
^DD(450,557,0)="POST DIFF AMT CPPD^NJ6,2^^PREMIUM;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,557,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,557,8)="F"
^DD(450,557,21,0)="^^4^4^2911121^^"
^DD(450,557,21,1,0)="The amount of differential paid to an employee assigned to a post in"
^DD(450,557,21,2,0)="Manila in the last pay period processed. Differential is computed as a"
^DD(450,557,21,3,0)="percentage of base pay, and applies to employees whose parent station"
^DD(450,557,21,4,0)="is not within the U.S. or its territories."
^DD(450,557,"DT")="2920916"
^DD(450,558,0)="SATURDAY AMT CPPD^NJ6,2^^PREMIUM;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,558,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,558,8)="F"
^DD(450,558,21,0)="^^3^3^2911120^"
^DD(450,558,21,1,0)="The amount paid for Saturday premium work hours, paid to a nurse or a"
^DD(450,558,21,2,0)="physician assistant or extended function dental auxiliary. This amount"
^DD(450,558,21,3,0)="is for the last pay period processed."
^DD(450,558,"DT")="2911125"
^DD(450,559,0)="STANDBY AMT CPPD^NJ6,2^^PREMIUM;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,559,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,559,8)="F"
^DD(450,559,21,0)="^^4^4^2911120^"
^DD(450,559,21,1,0)="The amount paid to an employee for hours spent in a standby status"
^DD(450,559,21,2,0)="in the current pay period processed. This applies only to a General"
^DD(450,559,21,3,0)="Schedule employee whose occupation requires standby duty, such as a"
^DD(450,559,21,4,0)="fire fighter."
^DD(450,559,"DT")="2911125"
^DD(450,560,0)="SUNDAY AMT CPPD^NJ6,2^^PREMIUM;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,560,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,560,8)="F"
^DD(450,560,21,0)="^^2^2^2911120^"
^DD(450,560,21,1,0)="The amount paid for Sunday premium work hours to an employee in the"
^DD(450,560,21,2,0)="last pay period processed."
^DD(450,560,"DT")="2911125"
^DD(450,561,0)="SUNDAY HRS CPPD^NJ6,2^^PREMIUM;19^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,561,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,561,8)="F"
^DD(450,561,21,0)="^^2^2^2911120^"
^DD(450,561,21,1,0)="The number of hours an employee was paid for Sunday premium pay in the"
^DD(450,561,21,2,0)="last pay period processed."
^DD(450,561,"DT")="2911125"
^DD(450,562,0)="REG HOURS AT OT RATE^NJ6,2^^PREMIUM;20^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,562,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,562,8)="F"
^DD(450,562,21,0)="^^3^3^2930503^^^"
^DD(450,562,21,1,0)="The number of hours an employee was paid regular hours at the overtime"
^DD(450,562,21,2,0)="rate, because they are in excess of 8 hours in a day rather than 40 in"
^DD(450,562,21,3,0)="a week, in the last pay period processed."
^DD(450,562,"DT")="2930312"
^DD(450,563,0)="UNIFORM ALLOWANCE AMT CPPD^NJ6,2^^UNIFORM;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,563,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,563,8)="F"
^DD(450,563,21,0)="^^3^3^2911120^"
^DD(450,563,21,1,0)="The amount paid as uniform allowance to an employee who is required to"
^DD(450,563,21,2,0)="purchase and wear a uniform at work. The amount paid is for the last"
^DD(450,563,21,3,0)="pay period processed."
^DD(450,563,"DT")="2910910"
^DD(450,564,0)="UNIFORM ALLOWANCE EFF DATE^D^^UNIFORM;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,564,8)="F"
^DD(450,564,21,0)="^^6^6^2911121^^^"
^DD(450,564,21,1,0)="The effective date that the uniform allowance is begun. The first year"
^DD(450,564,21,2,0)="an eligible employee receives a one-time lump sum payment, and on the"
^DD(450,564,21,3,0)="first anniversary of the eligibility date, biweekly payments of the"
^DD(450,564,21,4,0)="uniform allowance will begin. The allowance is added to net pay and"
^DD(450,564,21,5,0)="reimburses an employee for purchasing uniforms that must be worn while"
^DD(450,564,21,6,0)="at work."
^DD(450,564,"DT")="2910604"
^DD(450,565,0)="UNIFORM ALLOWANCE HOURLY RATE^NJ6,4^^UNIFORM;3^K:+X'=X!(X>9.9999)!(X<-9.9999)!(X?.E1"".""5N.N) X"
^DD(450,565,3)="Type a Number between -9.9999 and 9.9999, 4 Decimal Digits"
^DD(450,565,8)="F"
^DD(450,565,21,0)="^^2^2^2911107^^"
^DD(450,565,21,1,0)="The rate used to compute the amount to compensate an employee for"
^DD(450,565,21,2,0)="purchasing uniforms that must be worn on the job."
^DD(450,565,"DT")="2910604"
^DD(450,566,0)="VCS 301 COST ACCOUNT^NJ4,2^^VCS;1^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,566,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,566,8)="F"
^DD(450,566,21,0)="^^2^2^2911118^^"
^DD(450,566,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,566,21,2,0)="charged to the Veterans Canteen Service cost account 301, Retail Dept."
^DD(450,566,"DT")="2910604"
^DD(450,567,0)="VCS 302 COST ACCOUNT^NJ4,2^^VCS;2^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,567,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,567,8)="F"
^DD(450,567,21,0)="^^3^3^2911118^^"
^DD(450,567,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,567,21,2,0)="charged to the Veterans Canteen Service cost account 302, Manual Food"
^DD(450,567,21,3,0)="Operation."
^DD(450,567,"DT")="2910604"
^DD(450,568,0)="VCS 303 COST ACCOUNT^NJ4,2^^VCS;3^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,568,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,568,8)="F"
^DD(450,568,21,0)="^^3^3^2911118^^"
^DD(450,568,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,568,21,2,0)="charged to the Veterans Canteen Service cost account 303, Automatic Food"
^DD(450,568,21,3,0)="Operation."
^DD(450,568,"DT")="2910604"
^DD(450,569,0)="VCS 304 COST ACCOUNT^NJ4,2^^VCS;4^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,569,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,569,8)="F"
^DD(450,569,21,0)="^^3^3^2911118^^^"
^DD(450,569,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,569,21,2,0)="charged to the Veterans Canteen Service cost account 304, Automatic"
^DD(450,569,21,3,0)="Beverage Operation."
^DD(450,569,"DT")="2910604"
^DD(450,570,0)="VCS 601 COST ACCOUNT^NJ4,2^^VCS;5^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,570,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,570,8)="F"
^DD(450,570,21,0)="^^2^2^2911118^^"
^DD(450,570,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,570,21,2,0)="charged to the Veterans Canteen Service cost account 601."
^DD(450,570,"DT")="2910604"
^DD(450,571,0)="VCS 601 COST ACCOUNT SUBCODE^FO^^VCS;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,571,2)="S Y(0)=Y S SUB454=""CAS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,571,2.1)="S SUB454=""CAS"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,571,3)="Answer must be 1 character in length."
^DD(450,571,8)="F"
^DD(450,571,21,0)="^^4^4^2911118^^"
^DD(450,571,21,1,0)="Subcode denotes a Veterans Canteen Service employee's organizational"
^DD(450,571,21,2,0)="unit or it denotes that an employee is on sick leave pending disability"
^DD(450,571,21,3,0)="retirement. This field is used only when charges for an employee's"
^DD(450,571,21,4,0)="services are made to cost account 601."
^DD(450,571,"DT")="2911211"
^DD(450,572,0)="VCS 701 COST ACCOUNT^NJ4,2^^VCS;7^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,572,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,572,8)="F"
^DD(450,572,21,0)="^^2^2^2911118^^"
^DD(450,572,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,572,21,2,0)="charged to the Veterans Canteen Service cost account 701, Barber Shop."
^DD(450,572,"DT")="2910604"
^DD(450,573,0)="VCS 702 COST ACCOUNT^NJ4,2^^VCS;8^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,573,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,573,8)="F"
^DD(450,573,21,0)="^^2^2^2911118^^^"
^DD(450,573,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,573,21,2,0)="charged to the Veterans Canteen Service cost account 702, Beauty Shop."
^DD(450,573,"DT")="2910604"
^DD(450,574,0)="VCS 703 COST ACCOUNT^NJ4,2^^VCS;9^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,574,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,574,8)="F"
^DD(450,574,21,0)="^^3^3^2911118^^"
^DD(450,574,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,574,21,2,0)="charged to the Veterans Canteen Service cost account 703, Tailor or Dry"
^DD(450,574,21,3,0)="Cleaner."
^DD(450,574,"DT")="2910604"
^DD(450,575,0)="VCS 704 COST ACCOUNT^NJ4,2^^VCS;10^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,575,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,575,8)="F"
^DD(450,575,21,0)="^^2^2^2911118^^"
^DD(450,575,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,575,21,2,0)="charged to the Veterans Canteen Service cost account 704, Repair Service."
^DD(450,575,"DT")="2910604"
^DD(450,576,0)="VCS 706 COST ACCOUNT^NJ4,2^^VCS;11^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,576,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,576,8)="F"
^DD(450,576,21,0)="^^2^2^2911118^^"
^DD(450,576,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,576,21,2,0)="charged to Veterans Canteen Service cost account 706, Photo Service."
^DD(450,576,"DT")="2910604"
^DD(450,577,0)="VCS 709 COST ACCOUNT^NJ4,2^^VCS;12^K:+X'=X!(X>9.99)!(X<-9.99)!(X?.E1"".""3N.N) X"
^DD(450,577,3)="Type a Number between -9.99 and 9.99, 2 Decimal Digits"
^DD(450,577,8)="F"
^DD(450,577,21,0)="^^3^3^2911118^^"
^DD(450,577,21,1,0)="Denotes the percentage of an employee's gross pay each pay period, to be"
^DD(450,577,21,2,0)="charged to the Veterans Canteen Service cost account 709, Vending Machine"
^DD(450,577,21,3,0)="(Other)."
^DD(450,577,"DT")="2910604"
^DD(450,578,0)="VCS ADDNL OPTIONAL LIFE INS^NJ5,0^^VCS;13^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(450,578,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(450,578,8)="FP"
^DD(450,578,21,0)="^^4^4^2911118^^^"
^DD(450,578,21,1,0)="The number of units of additional optional life insurance elected by"
^DD(450,578,21,2,0)="the employee. An employee may elect one to five times his/her basic"
^DD(450,578,21,3,0)="life insurance eligibility rate, not to be less than $10,000. Each unit"
^DD(450,578,21,4,0)="represents one thousand dollars in coverage."
^DD(450,578,"DT")="2910604"
^DD(450,579,0)="VCS AREA^F^^VCS;14^K:$L(X)>1!($L(X)<1) X"
^DD(450,579,3)="Answer must be 1 character in length."
^DD(450,579,8)="FP"
^DD(450,579,21,0)="2^^2^2^2920129^^^"
^DD(450,579,21,1,0)="A code to identify the geographic area the Veteran Canteen Service"
^DD(450,579,21,2,0)="employee works in."
^DD(450,579,"DT")="2910604"
^DD(450,580,0)="VCS BASIC LIFE INS UNITS^NJ3,0^^VCS;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450,580,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(450,580,8)="FP"
^DD(450,580,21,0)="^^5^5^2911118^^^"
^DD(450,580,21,1,0)="The number of units of Federal Employee Group Life Insurance (FEGLI)"
^DD(450,580,21,2,0)="basic coverage. Each unit represents one thousand dollars of life"
^DD(450,580,21,3,0)="insurance. A minimum of 10 units will be entered for those employees"
^DD(450,580,21,4,0)="who are eligible for and waived their FEGLI coverage. This applies"
^DD(450,580,21,5,0)="only to Veterans Canteen Service employees."
^DD(450,580,"DT")="2910604"
^DD(450,581,0)="VCS COMMISSION PERCENT^NJ5,3^^VCS;16^K:+X'=X!(X>9.999)!(X<-9.999)!(X?.E1"".""4N.N) X"
^DD(450,581,3)="Type a Number between -9.999 and 9.999, 3 Decimal Digits"
^DD(450,581,8)="F"
^DD(450,581,21,0)="^^2^2^2911118^"
^DD(450,581,21,1,0)="The percent of sales a Veterans Canteen Service pieceworker is entitled"
^DD(450,581,21,2,0)="to receive as a commission."
^DD(450,581,"DT")="2910604"
^DD(450,582,0)="VCS HRLY RATE FOR LEAVE/HOL^NJ6,2^^VCS;17^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,582,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,582,8)="FP"
^DD(450,582,21,0)="^^3^3^2911118^^"
^DD(450,582,21,1,0)="The hourly rate of pay a Veterans Canteen Service pieceworker is entitled"
^DD(450,582,21,2,0)="to receive while on annual leave, sick leave, authorized absence, or"
^DD(450,582,21,3,0)="holiday excused."
^DD(450,582,"DT")="2910604"
^DD(450,583,0)="VCS LEAVE COST ADJUSTMENT AMT^NJ7,2^^VCS;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(450,583,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(450,583,8)="F"
^DD(450,583,21,0)="^^2^2^2911120^"
^DD(450,583,21,1,0)="The amount of salary a pieceworker of the Veteran Canteen Service was"
^DD(450,583,21,2,0)="paid in the last pay period processed for paid leave."
^DD(450,583,"DT")="2910910"
^DD(450,584,0)="VCS LEAVE LIABILITY^NJ8,2^^VCS;19^K:+X'=X!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3N.N) X"
^DD(450,584,3)="Type a Number between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,584,8)="F"
^DD(450,584,21,0)="^^3^3^2911118^"
^DD(450,584,21,1,0)="The current dollar value of a Veterans Canteen Service employee's unused"
^DD(450,584,21,2,0)="annual leave balance. Automatically updated each pay period based on the"
^DD(450,584,21,3,0)="employee's current rate of pay and annual leave balance."
^DD(450,584,"DT")="2910604"
^DD(450,585,0)="VCS MINWAGE CD PW CPPD^NJ8,2^^VCS;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,585,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,585,8)="F"
^DD(450,585,21,0)="^^3^3^2911120^"
^DD(450,585,21,1,0)="Code indicates that a pieceworker of the Veterans Canteen Service"
^DD(450,585,21,2,0)="received payment at the minimum wage rate in the last pay period"
^DD(450,585,21,3,0)="processed."
^DD(450,585,"DT")="2910910"
^DD(450,586,0)="VCS SALE SUM PW CPPD^NJ6,2^^VCS;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(450,586,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,586,8)="F"
^DD(450,586,21,0)="^^2^2^2911120^"
^DD(450,586,21,1,0)="The actual sum of all sales by pieceworkers in the Veterans Canteen"
^DD(450,586,21,2,0)="Service in the last pay period processed."
^DD(450,586,"DT")="2910910"
^DD(450,586.1,0)="VCS ALLOTMENT AMT^NJ6,2^^VCS;22^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3.N) X"
^DD(450,586.1,3)="Type a number between -999.99 and 999.99, 2 Decimal Digits."
^DD(450,586.1,21,0)="^^2^2^3030722^^"
^DD(450,586.1,21,1,0)="The amount deducted from earnings that an employee has authorized for"
^DD(450,586.1,21,2,0)="re-payment to the Veteran's Canteen Service (VCS)."
^DD(450,586.1,"DT")="3030722"
^DD(450,587,0)="INCENTIVE AWARD^NJ8,2^^AWARDS;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,587,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,587,8)="F"
^DD(450,587,21,0)="^^2^2^2930219^^^"
^DD(450,587,21,1,0)="The amount of an award paid to an employee in the last pay period"
^DD(450,587,21,2,0)="processed. This award is granted under the Incentive Award Program."
^DD(450,587,"DT")="2930219"
^DD(450,587.1,0)="PERFORMANCE AWARD^NJ8,2^^AWARDS;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,587.1,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,587.1,8)="F"
^DD(450,587.1,21,0)="^^2^2^2930219^^"
^DD(450,587.1,21,1,0)="The amount of a performance award paid to an employee in the last pay"
^DD(450,587.1,21,2,0)="period."
^DD(450,587.1,"DT")="2930219"
^DD(450,587.2,0)="TRAVEL SAVINGS AWARD^NJ8,2^^AWARDS;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(450,587.2,3)="Type a Dollar amount between 0 and 99999.99, 2 Decimal Digits."
^DD(450,587.2,21,0)="^^2^2^3030714^"
^DD(450,587.2,21,1,0)="The amount of the Travel Savings Award paid to an employee in the last pay"
^DD(450,587.2,21,2,0)="period processed.  This award is granted under the Incentive Award Program."
^DD(450,587.2,"DT")="3030714"
^DD(450,588,0)="PMRS PERFORMANCE AWARD AMT^NJ8,2^^AWARDS;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,588,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,588,8)="FP"
^DD(450,588,21,0)="^^2^2^2911121^^"
^DD(450,588,21,1,0)="The amount of additional compensation paid to an employee under the"
^DD(450,588,21,2,0)="Performance Management Rating System, based upon his/her evaluation."
^DD(450,588,"DT")="2910604"
^DD(450,589,0)="SES PERFORMANCE AWARD AMT CPPD^NJ8,2^^AWARDS;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,589,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,589,8)="F"
^DD(450,589,21,0)="^^2^2^2911120^"
^DD(450,589,21,1,0)="The amount of an award granted to a Senior Executive Service employee"
^DD(450,589,21,2,0)="for work performance, paid in the current pay period processed."
^DD(450,589,"DT")="2910910"
^DD(450,590,0)="DUTY STATION^FO^^1;42^K:$L(X)>2!($L(X)<1) X"
^DD(450,590,2)="S Y(0)=Y S SUB454=""DTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,590,2.1)="S SUB454=""DTY"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,590,3)="Answer must be 1-2 characters in length."
^DD(450,590,8)="FP"
^DD(450,590,21,0)="^^2^2^2930222^^^^"
^DD(450,590,21,1,0)="Employee's work site when assigned at a location other than the parent"
^DD(450,590,21,2,0)="station."
^DD(450,590,"DT")="2930219"
^DD(450,591,0)="NORMAL HOURS^F^^0;50^K:$L(X)>3!($L(X)<1) X"
^DD(450,591,3)="Answer must be 1-3 characters in length."
^DD(450,591,8)="FP"
^DD(450,591,21,0)="^^4^4^2930503^^^^"
^DD(450,591,21,1,0)="This field contains the number of normal hours an employee is scheduled"
^DD(450,591,21,2,0)="to work in a pay period. For full-time physicians, dentists, career medical"
^DD(450,591,21,3,0)="and dental staff (subaccounts 71,81 or pay plan Y) full-time hour"
^DD(450,591,21,4,0)="equivalents are calculated."
^DD(450,591,"DT")="2910924"
^DD(450,592,0)="ANNUAL LEAVE USED CPPD (HOURS)^NJ6,2^^ANNUAL;14^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,592,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,592,8)="F"
^DD(450,592,21,0)="^^2^2^2930503^^^^"
^DD(450,592,21,1,0)="The amount of annual leave used, converted to hours, for the last pay"
^DD(450,592,21,2,0)="period processed."
^DD(450,592,"DT")="2910924"
^DD(450,593,0)="TOTAL SICK LEAVE HRS USED CPPD^NJ6,2^^SICK;8^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,593,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,593,8)="F"
^DD(450,593,21,0)="^^2^2^2950505^^^^"
^DD(450,593,21,1,0)="The amount of sick leave used, converted to hours, for the last pay period"
^DD(450,593,21,2,0)="processed."
^DD(450,593,"DT")="2950505"
^DD(450,594,0)="GROSS PAY PLUS BENEFITS CPPD^NJ8,2^^PAY;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,594,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,594,8)="F"
^DD(450,594,21,0)="^^3^3^2911121^^"
^DD(450,594,21,1,0)="The total value of the employee's gross pay, uniform allowance, annuity"
^DD(450,594,21,2,0)="and agency contributions for Medicare, life insurance, health benefits, "
^DD(450,594,21,3,0)="retirement and Thrift Savings Plan."
^DD(450,594,"DT")="2911009"
^DD(450,595,0)="RELOCATION BONUS^NJ10,2^^MISC;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(450,595,3)="Type a Dollar Amount between 0 and 9999999"
^DD(450,595,8)="F"
^DD(450,595,21,0)="^^1^1^2920904^"
^DD(450,595,21,1,0)="Relocation Bonus amount."
^DD(450,595,"DT")="2920904"
^DD(450,596,0)="RECRUITMENT BONUS^NJ10,2^^MISC;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(450,596,3)="Type a Dollar Amount between 0 and 9999999"
^DD(450,596,8)="F"
^DD(450,596,21,0)="^^1^1^2920917^^"
^DD(450,596,21,1,0)="Recruitment Bonus amount."
^DD(450,596,"DT")="2920904"
^DD(450,597,0)="HAZARD PAY DIFFERENTIAL^NJ8,2^^MISC;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,597,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,597,8)="F"
^DD(450,597,21,0)="^^1^1^2920904^"
^DD(450,597,21,1,0)="Hazard Pay Differential amount."
^DD(450,597,"DT")="2921016"
^DD(450,598,0)="NONPAY HOURS CPPD^NJ6,2^^1;43^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,598,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,598,8)="F"
^DD(450,598,21,0)="^^4^4^2911120^^"
^DD(450,598,21,1,0)="This is the number of hours the employee was in a nonpay status in the"
^DD(450,598,21,2,0)="last pay period processed. If the employee has his/her nonpay status"
^DD(450,598,21,3,0)="measured in days, then that value is converted to the nearest whole hour"
^DD(450,598,21,4,0)="value."
^DD(450,598,"DT")="2911120"
^DD(450,599,0)="LWOP HOURS CPPD^NJ6,2^^LWOP;11^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,599,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,599,8)="F"
^DD(450,599,21,0)="^^4^4^2911120^^"
^DD(450,599,21,1,0)="This is the number of hours the employee was in a leave without pay status"
^DD(450,599,21,2,0)="in the last pay period processed. If the employee has his/her leave without"
^DD(450,599,21,3,0)="pay amount measured in days, then that value is converted to the nearest"
^DD(450,599,21,4,0)="whole hour value."
^DD(450,599,"DT")="2911120"
^DD(450,600,0)="WGI DUE DATE^D^^0;51^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(450,600,8)="P"
^DD(450,600,21,0)="^^2^2^2911213^"
^DD(450,600,21,1,0)="This is the date which the employee is eligible to receive a within-"
^DD(450,600,21,2,0)="grade increase."
^DD(450,600,"DT")="2911213"
^DD(450,601,0)="SPECIALIZED SKILLS IND^FO^^MISC;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,601,2)="S Y(0)=Y S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,601,2.1)="S:'$D(DIS(0)) Y=$S(Y=""Y"":""YES"",Y=""N"":""NA"",1:Y)"
^DD(450,601,3)="Answer must be 1 character in length."
^DD(450,601,8)="FP"
^DD(450,601,21,0)="^^3^3^2930223^^"
^DD(450,601,21,1,0)="Indicator which identifies employees appointed at or advanced to a higher"
^DD(450,601,21,2,0)="step based on appointment or assignment to a position requiring specialized"
^DD(450,601,21,3,0)="skills."
^DD(450,601,"DT")="2930205"
^DD(450,602,0)="ANNUITANT IND^FO^^MISC;6^K:$L(X)>1!($L(X)<1) X"
^DD(450,602,2)="S Y(0)=Y S SUB454=""ANN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,602,2.1)="S SUB454=""ANN"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,602,3)="Answer must be 1 character in length."
^DD(450,602,8)="FP"
^DD(450,602,21,0)="^^2^2^2921019^^^"
^DD(450,602,21,1,0)="The status of an annuitant appointed to a position in the Federal civilian"
^DD(450,602,21,2,0)="service."
^DD(450,602,"DT")="2930205"
^DD(450,603,0)="VET STATUS^FO^^MISC;7^K:$L(X)>1!($L(X)<1) X"
^DD(450,603,2)="S Y(0)=Y S SUB454=""VSI"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,603,2.1)="S SUB454=""VSI"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,603,3)="Answer must be 1 character in length."
^DD(450,603,8)="FP"
^DD(450,603,21,0)="^^3^3^2921127^^^"
^DD(450,603,21,1,0)="The indicator of whether an employee is a veteran as defined by 38 U.S.C."
^DD(450,603,21,2,0)="101 and, if so, whether he/she served before, during or after the Vietnam"
^DD(450,603,21,3,0)="era."
^DD(450,603,"DT")="2921127"
^DD(450,604,0)="LEVEL^F^^MISC;8^K:$L(X)>1!($L(X)<1) X"
^DD(450,604,3)="Answer must be 1 character in length."
^DD(450,604,8)="FP"
^DD(450,604,21,0)="^^2^2^2930222^^^"
^DD(450,604,21,1,0)="Identifies title 38 nurses and nurse anesthetists that have enhanced"
^DD(450,604,21,2,0)="qualifications or assignments."
^DD(450,604,"DT")="2930707"
^DD(450,605,0)="SCHEDULE NUMBER^F^^MISC;9^K:$L(X)>4!($L(X)<1) X"
^DD(450,605,3)="Answer must be 1-4 characters in length."
^DD(450,605,8)="FP"
^DD(450,605,21,0)="^^2^2^2930427^^^"
^DD(450,605,21,1,0)="Identifies the locality pay system (LPS) schedule for title 38 nurses at a"
^DD(450,605,21,2,0)="station."
^DD(450,605,"DT")="2920608"
^DD(450,606,0)="STAFFING DIFFERENTIAL PCT^NJ6,4^^MISC;10^K:+X'=X!(X>9.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(450,606,3)="Type a Number between 0 and 9.9999, 4 Decimal Digits"
^DD(450,606,8)="FP"
^DD(450,606,21,0)="^^2^2^2930222^^^"
^DD(450,606,21,1,0)="The percentage of salary paid to an employee as premium pay for a staff"
^DD(450,606,21,2,0)="position that is difficult to fill."
^DD(450,606,"DT")="2930223"
^DD(450,606.1,0)="STAFFING DIFFERENTIAL^NJ10,2^^MISC;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,606.1,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,606.1,8)="F"
^DD(450,606.1,21,0)="^^1^1^2930222^^"
^DD(450,606.1,21,1,0)="The annual total dollar amount paid over and above the basic salary."
^DD(450,606.1,"DT")="2930223"
^DD(450,607,0)="SUPERVISORY DIFFERENTIAL^NJ8,2^^MISC;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(450,607,3)="Type a Dollar Amount between 0 and 99999"
^DD(450,607,8)="FP"
^DD(450,607,21,0)="^^3^3^2930222^^^^"
^DD(450,607,21,1,0)="The annual total dollar amount paid to a supervisor who supervises employees"
^DD(450,607,21,2,0)="in other pay plans who receive a higher rate of total pay than does the"
^DD(450,607,21,3,0)="supervisor."
^DD(450,607,"DT")="2930223"
^DD(450,607.1,0)="SUPERVISORY DIFFERENTIAL CPPD^NJ10,2^^MISC;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,607.1,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,607.1,8)="F"
^DD(450,607.1,21,0)="^^1^1^2930222^^"
^DD(450,607.1,21,1,0)="Supervisory Differential amount."
^DD(450,607.1,"DT")="2930223"
^DD(450,608,0)="RETENTION ALLOWANCE PCT^NJ6,4^^MISC;12^K:+X'=X!(X>9.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(450,608,3)="Type a Number between 0 and 9.9999, 4 Decimal Digits"
^DD(450,608,8)="FP"
^DD(450,608,21,0)="^^3^3^2920902^^^"
^DD(450,608,21,1,0)="The percentage of salary paid to an employee with unusually high"
^DD(450,608,21,2,0)="qualifications or skills in those cases where an employee would be likely"
^DD(450,608,21,3,0)="to leave if no allowance were paid."
^DD(450,608,"DT")="2921016"
^DD(450,608.1,0)="RETENTION ALLOWANCE^NJ10,2^^MISC;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(450,608.1,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(450,608.1,8)="F"
^DD(450,608.1,21,0)="^^3^3^2930223^^"
^DD(450,608.1,21,1,0)="The dollar amount paid to an employee with unusually high qualifications or"
^DD(450,608.1,21,2,0)="special skills in those cases where an employee would be likely to leave if"
^DD(450,608.1,21,3,0)="no allowance were paid."
^DD(450,608.1,"DT")="2920904"
^DD(450,609,0)="JOB SHARE^F^^MISC;13^K:$L(X)>1!($L(X)<1) X"
^DD(450,609,3)="Answer must be 1 character in length."
^DD(450,609,8)="FP"
^DD(450,609,21,0)="^^2^2^2930223^^"
^DD(450,609,21,1,0)="Indicator which identifies a part-time employee who shares a position with"
^DD(450,609,21,2,0)="another part-time employee."
^DD(450,609,"DT")="2921016"
^DD(450,610,0)="OVERTIME HOURS WK 1^NJ6,2^^PREMIUM1;1^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,610,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,610,8)="F"
^DD(450,610,21,0)="^^1^1^2920928^"
^DD(450,610,21,1,0)="Overtime hours for week-1."
^DD(450,610,"DT")="2930312"
^DD(450,611,0)="OVERTIME HOURS WK 2^NJ6,2^^PREMIUM1;2^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,611,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,611,8)="F"
^DD(450,611,21,0)="^^1^1^2920928^"
^DD(450,611,21,1,0)="Overtime hours for week-2."
^DD(450,611,"DT")="2930312"
^DD(450,612,0)="OVERTIME AMT WK 1^NJ8,2^^PREMIUM1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,612,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,612,8)="F"
^DD(450,612,21,0)="^^1^1^2920928^"
^DD(450,612,21,1,0)="Overtime amount for week-1."
^DD(450,612,"DT")="2930312"
^DD(450,613,0)="OVERTIME AMT WK 2^NJ8,2^^PREMIUM1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(450,613,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(450,613,8)="F"
^DD(450,613,21,0)="^^1^1^2920928^"
^DD(450,613,21,1,0)="Overtime amount for week-2."
^DD(450,613,"DT")="2930312"
^DD(450,614,0)="HRS EXCESS 8 DAY WK 1^NJ6,2^^PREMIUM1;5^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,614,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,614,8)="F"
^DD(450,614,21,0)="^^1^1^2920928^"
^DD(450,614,21,1,0)="Hours in excess of 8 in a day for week-1."
^DD(450,614,"DT")="2930312"
^DD(450,615,0)="HRS EXCESS 8 DAY WK 2^NJ6,2^^PREMIUM1;6^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,615,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,615,8)="F"
^DD(450,615,21,0)="^^1^1^2920928^"
^DD(450,615,21,1,0)="Hours in excess of 8 in a day for week-2."
^DD(450,615,"DT")="2930312"
^DD(450,616,0)="HRS EXCESS 8 DAY AMT WK 1^NJ6,2^^PREMIUM1;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(450,616,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(450,616,8)="F"
^DD(450,616,21,0)="^^1^1^2920928^^"
^DD(450,616,21,1,0)="Hours in excess of 8 in a day amount for week-1."
^DD(450,616,"DT")="2930312"
^DD(450,617,0)="HRS EXCESS 8 DAY AMT WK 2^NJ6,2^^PREMIUM1;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(450,617,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(450,617,8)="F"
^DD(450,617,21,0)="^^1^1^2920929^^"
^DD(450,617,21,1,0)="Hours in excess of 8 in a day amount for week-2."
^DD(450,617,"DT")="2930312"
^DD(450,618,0)="REG HOURS AT OT RATE WK 1^NJ6,2^^PREMIUM1;9^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,618,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,618,8)="F"
^DD(450,618,21,0)="^^1^1^2920928^"
^DD(450,618,21,1,0)="Regular hours at the overtime rate for week-1."
^DD(450,618,"DT")="2930312"
^DD(450,619,0)="REG HOURS AT OT RATE WK 2^NJ6,2^^PREMIUM1;10^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,619,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,619,8)="F"
^DD(450,619,21,0)="^^1^1^2920928^"
^DD(450,619,21,1,0)="Regular hours at the overtime rate for week-2."
^DD(450,619,"DT")="2930312"
^DD(450,620,0)="REG HOURS AT OT RATE AMT WK 1^NJ6,2^^PREMIUM1;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(450,620,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(450,620,8)="F"
^DD(450,620,21,0)="^^1^1^2920928^"
^DD(450,620,21,1,0)="Regular hours at the overtime rate amount for week-1."
^DD(450,620,"DT")="2930312"
^DD(450,621,0)="REG HOURS AT OT RATE AMT WK 2^NJ6,2^^PREMIUM1;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(450,621,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(450,621,8)="F"
^DD(450,621,21,0)="^^1^1^2920928^"
^DD(450,621,21,1,0)="Regular hours at the overtime rate amount for week-2."
^DD(450,621,"DT")="2930312"
^DD(450,622,0)="NON-OVERTIME HOURS^NJ6,2^^PREMIUM1;13^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,622,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,622,8)="F"
^DD(450,622,21,0)="^^1^1^2920928^"
^DD(450,622,21,1,0)="Non-overtime hours."
^DD(450,622,"DT")="2930312"
^DD(450,623,0)="NON-OVERTIME AMT^NJ6,2^^PREMIUM1;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(450,623,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(450,623,8)="F"
^DD(450,623,21,0)="^^1^1^2920928^"
^DD(450,623,21,1,0)="Non-overtime amount."
^DD(450,623,"DT")="2930312"
^DD(450,624,0)="OT ON HOL HOURS^NJ6,2^^PREMIUM1;15^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,624,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,624,8)="F"
^DD(450,624,21,0)="^^1^1^2920928^"
^DD(450,624,21,1,0)="Overtime hours on a holiday."
^DD(450,624,"DT")="2930312"
^DD(450,625,0)="OT ON HOL AMT^NJ6,2^^PREMIUM1;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(450,625,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(450,625,8)="F"
^DD(450,625,21,0)="^^1^1^2930312^^"
^DD(450,625,21,1,0)="Overtime amount on a holiday."
^DD(450,625,"DT")="2930312"
^DD(450,626,0)="TRAINING WK 1^NJ6,2^^PREMIUM1;17^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,626,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,626,8)="F"
^DD(450,626,21,0)="^^1^1^2920928^"
^DD(450,626,21,1,0)="Training hours for week-1."
^DD(450,626,"DT")="2930312"
^DD(450,627,0)="TRAINING WK 2^NJ6,2^^PREMIUM1;18^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,627,.1)=""
^DD(450,627,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,627,8)="F"
^DD(450,627,21,0)="^^1^1^2920928^"
^DD(450,627,21,1,0)="Training hours for week-2."
^DD(450,627,"DT")="2930408"
^DD(450,628,0)="TRAVEL HOURS WK 1^NJ6,2^^PREMIUM1;19^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,628,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,628,8)="F"
^DD(450,628,21,0)="^^1^1^2920928^"
^DD(450,628,21,1,0)="Travel hours for week-1."
^DD(450,628,"DT")="2930312"
^DD(450,629,0)="TRAVEL HOURS WK 2^NJ6,2^^PREMIUM1;20^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,629,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,629,8)="F"
^DD(450,629,21,0)="^^1^1^2920928^"
^DD(450,629,21,1,0)="Travel hours for week-2."
^DD(450,629,"DT")="2930312"
^DD(450,630,0)="TRAVEL OVERTIME WK 1^NJ6,2^^PREMIUM1;21^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,630,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,630,8)="F"
^DD(450,630,21,0)="^^1^1^2920928^"
^DD(450,630,21,1,0)="Travel overtime hours for week-1."
^DD(450,630,"DT")="2930312"
^DD(450,631,0)="TRAVEL OVERTIME WK 2^NJ6,2^^PREMIUM1;22^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(450,631,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(450,631,8)="F"
^DD(450,631,21,0)="^^1^1^2920928^^"
^DD(450,631,21,1,0)="Travel overtime hours for week-2."
^DD(450,631,"DT")="2930312"
^DD(450,632,0)="MI REVIEW GROUP^450.0632PA^^5;0"
^DD(450,632,8)="P"
^DD(450,632,21,0)="^^1^1^2940225^^^"
^DD(450,632,21,1,0)="MI Review Group for education tracking."
^DD(450,633,0)="MANDATORY CLASS^450.0633PA^^6;0"
^DD(450,633,21,0)="^^1^1^2940225^^"
^DD(450,633,21,1,0)="This multiple field contains all the mandatory classes for an individual."
^DD(450,700,0)="NEW PERSON^P200'^VA(200,^200;1^Q"
^DD(450,700,9)="^"
^DD(450,700,21,0)="^^1^1^2950428^^^^"
^DD(450,700,21,1,0)="This field is a pointer to the NEW PERSON (#200) file."
^DD(450,700,"DT")="2950426"
^DD(450,701,0)="GEOGRAPHIC LOCATION PAY^NJ8,2^^T38;37^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(450,701,3)="Type a Dollar Amount between 0 and 99999."
^DD(450,701,8)="FP"
^DD(450,701,21,0)="^^3^3^2940607^"
^DD(450,701,21,1,0)="A discretionary component of Title 38 special pay authorized for service in"
^DD(450,701,21,2,0)="a Geographic Location that has extraordinary problems in recruiting or"
^DD(450,701,21,3,0)="retaining physicians or dentists in certain specialties."
^DD(450,701,"DT")="2940607"
^DD(450,702,0)="EXCEPTIONAL QUALIFICATIONS^NJ8,2^^T38;38^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(450,702,3)="Type a Dollar Amount between 0 and 99999."
^DD(450,702,8)="FP"
^DD(450,702,21,0)="^^3^3^2940607^^"
^DD(450,702,21,1,0)="A discretionary component of Title 38 special pay that may be authorized"
^DD(450,702,21,2,0)="for a physician or dentist with special or distinguishing qualifications"
^DD(450,702,21,3,0)="within a specialty or category of positions."
^DD(450,702,"DT")="2940607"
^DD(450,703,0)="POSITION RESPONSIBILITY^NJ8,2^^T38;39^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(450,703,3)="Type a Dollar Amount between 0 and 99999."
^DD(450,703,8)="FP"
^DD(450,703,21,0)="^^3^3^2940607^"
^DD(450,703,21,1,0)="A discretionary component of Title 38 special pay that is authorized for"
^DD(450,703,21,2,0)="physicians and dentists in certain positions.  This component is also known"
^DD(450,703,21,3,0)="as Executive Position Pay."
^DD(450,703,"DT")="2940607"
^DD(450,704,0)="SCARCE SPECIALTY PAY^NJ8,2^^T38;40^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(450,704,3)="Type a Dollar Amount between 0 and 99999."
^DD(450,704,8)="FP"
^DD(450,704,21,0)="^^2^2^2940607^^"
^DD(450,704,21,1,0)="A discretionary component of Title 38 special pay that may by authorized"
^DD(450,704,21,2,0)="for a physician or dentist with a scarce medical or dental specialty."
^DD(450,704,"DT")="2940607"
^DD(450,705,0)="PHYSICIAN AND DENTIST PAY CAP^NJ10,2^^T38;41^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(450,705,3)="Type a Dollar Amount between 0 and 9999999."
^DD(450,705,8)="FP"
^DD(450,705,21,0)="^^2^2^2940607^"
^DD(450,705,21,1,0)="A VA approved maximum amount of total salary (base pay, GAP if applicable,"
^DD(450,705,21,2,0)="and special pay) a physician or dentist may receive above the EL I pay cap."
^DD(450,705,"DT")="2940607"
^DD(450,706,0)="TAX GARNISHMENT-1^NJ8,2^^ACSB;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,706,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,706,8)="F"
^DD(450,706,21,0)="^^1^1^2950508^^"
^DD(450,706,21,1,0)="The first amount deducted for purposes of tax garnishment."
^DD(450,706,"DT")="2950508"
^DD(450,707,0)="TAX GARNISHMENT-2^NJ8,2^^ACSB;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,707,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,707,8)="F"
^DD(450,707,21,0)="^^1^1^2950508^^"
^DD(450,707,21,1,0)="The second amount deducted for purposes of tax garnishment."
^DD(450,707,"DT")="2950508"
^DD(450,708,0)="COMMERCIAL GARNISHMENT-1^NJ8,2^^ACSB;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,708,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,708,8)="F"
^DD(450,708,21,0)="^^1^1^2950508^^"
^DD(450,708,21,1,0)="The first amount deducted for purposes of commerical garnishment."
^DD(450,708,"DT")="2950508"
^DD(450,709,0)="COMMERCIAL GARNISHMENT-2^NJ8,2^^ACSB;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,709,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,709,8)="F"
^DD(450,709,21,0)="^^1^1^2950508^^"
^DD(450,709,21,1,0)="The second amount deducted for purposes of commercial garnishment."
^DD(450,709,"DT")="2950508"
^DD(450,710,0)="CARE/BEREAVE LEAVE USED CPPD^NJ6,2^^SICK;9^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,710,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,710,8)="FP"
^DD(450,710,21,0)="^^2^2^2950509^^"
^DD(450,710,21,1,0)="The number of hours or days used by an employye for care and bereavement leave"
^DD(450,710,21,2,0)="in the last pay period processed."
^DD(450,710,"DT")="2950509"
^DD(450,711,0)="CARE/BEREAVE LEAVE USED LYTD^NJ8,3^^SICK;10^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,711,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,711,8)="FP"
^DD(450,711,21,0)="^^2^2^2950508^"
^DD(450,711,21,1,0)="The total number of hours or days of care and bereavement leave used by an"
^DD(450,711,21,2,0)="employee during the leave year to date."
^DD(450,711,"DT")="2950508"
^DD(450,712,0)="ADOPTION LEAVE USED CPPD^NJ6,2^^SICK;11^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,712,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,712,8)="FP"
^DD(450,712,21,0)="^^2^2^2950509^^^"
^DD(450,712,21,1,0)="The number of hours or days used by an employee for adoption leave in the last"
^DD(450,712,21,2,0)="pay period processed."
^DD(450,712,"DT")="2950509"
^DD(450,713,0)="ADOPTION LEAVE USED LYTD^NJ8,3^^SICK;12^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,713,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,713,8)="FP"
^DD(450,713,21,0)="^^2^2^2950508^^"
^DD(450,713,21,1,0)="The total number of hours or days of adoption leave used by an employee during"
^DD(450,713,21,2,0)="the leave year to date."
^DD(450,713,"DT")="2950508"
^DD(450,714,0)="OTHER SICK LEAVE USED CPPD^NJ6,2^^SICK;13^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,714,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,714,8)="FP"
^DD(450,714,21,0)="^^2^2^2950509^^"
^DD(450,714,21,1,0)="The number of hours or days used by an employee for other sick leave in the"
^DD(450,714,21,2,0)="last pay period processed."
^DD(450,714,"DT")="2950509"
^DD(450,715,0)="OTHER SICK LEAVE USED LYTD^NJ8,3^^SICK;14^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,715,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,715,8)="FP"
^DD(450,715,21,0)="^^2^2^2950508^"
^DD(450,715,21,1,0)="The total number of hours or days of other sick leave used by an employee"
^DD(450,715,21,2,0)="during the leave year to date."
^DD(450,715,"DT")="2950508"
^DD(450,716,0)="DONOR LEAVE USED CPPD^NJ6,2^^SICK;15^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(450,716,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(450,716,8)="FP"
^DD(450,716,21,0)="^^2^2^2950509^^"
^DD(450,716,21,1,0)="The number of hours or days used by an employee for donor leave in the last"
^DD(450,716,21,2,0)="pay period processed."
^DD(450,716,"DT")="2950509"
^DD(450,717,0)="DONOR LEAVE USED LYTD^NJ8,3^^SICK;16^K:+X'=X!(X>9999.999)!(X<-9999.999)!(X?.E1"".""4N.N) X"
^DD(450,717,3)="Type a Number between -9999.999 and 9999.999, 3 Decimal Digits"
^DD(450,717,8)="FP"
^DD(450,717,21,0)="^^2^2^2950508^"
^DD(450,717,21,1,0)="The total number of hours or days of donor leave used by an employee during"
^DD(450,717,21,2,0)="the leave year to date."
^DD(450,717,"DT")="2950508"
^DD(450,718,0)="SAVINGS BOND-1 TYPE^FX^^BOND1;16^K:$L(X)>1!($L(X)<1) X"
^DD(450,718,3)="Answer must be 1 character in length."
^DD(450,718,21,0)="^^1^1^3030220^"
^DD(450,718,21,1,0)="The one character string that identifies the type of the first bond."
^DD(450,718,"DT")="3030220"
^DD(450,719,0)="SAVINGS BOND-2 TYPE^FX^^BOND2;15^K:$L(X)>1!($L(X)<1) X"
^DD(450,719,3)="Answer must be 1 character in length."
^DD(450,719,21,0)="^^1^1^3030220^"
^DD(450,719,21,1,0)="The one character string that identifies the type of the second bond."
^DD(450,719,"DT")="3030220"
^DD(450,720,0)="SAVINGS BOND-3 ADD LINE-1^F^^BOND3;1^K:$L(X)>23!($L(X)<1) X"
^DD(450,720,3)="Answer must be 1-23 characters in length."
^DD(450,720,21,0)="^^3^3^3020618^^"
^DD(450,720,21,1,0)="The first line of the address, selected by the employee, to"
^DD(450,720,21,2,0)="which the third bond is mailed."
^DD(450,720,21,3,0)=""
^DD(450,720,"DT")="3020701"
^DD(450,721,0)="SAVINGS BOND-3 ADD LINE-2^F^^BOND3;2^K:$L(X)>23!($L(X)<1) X"
^DD(450,721,3)="Answer must be 1-23 characters in length."
^DD(450,721,21,0)="^^3^3^3020618^"
^DD(450,721,21,1,0)="The second line of the address, selected by the employee, to"
^DD(450,721,21,2,0)="which the third bond is mailed."
^DD(450,721,21,3,0)=""
^DD(450,721,"DT")="3020701"
^DD(450,722,0)="SAVINGS BOND-3 ADD LINE-3^F^^BOND3;3^K:$L(X)>16!($L(X)<1) X"
^DD(450,722,3)="Answer must be 1-16 characters in length."
^DD(450,722,21,0)="^^3^3^3020618^"
^DD(450,722,21,1,0)="The third line of the address, selected by the employee, to"
^DD(450,722,21,2,0)="which the third bond is mailed."
^DD(450,722,21,3,0)=""
^DD(450,722,"DT")="3020701"
^DD(450,723,0)="SAVINGS BOND-3 BALANCE^NJ10,2^^BOND3;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99)!(X?.E1"".""3.N) X"
^DD(450,723,3)="Type a Dollar amount between -9999999.99 and 9999999.99, 2 Decimal Digits."
^DD(450,723,21,0)="^^6^6^3020619^"
^DD(450,723,21,1,0)="The accumulated amount deducted toward the purchase price"
^DD(450,723,21,2,0)="of the third bond, as of the current pay period. Each time"
^DD(450,723,21,3,0)="the purchase price is reached, a bond is issued and the balance"
^DD(450,723,21,4,0)="adjusted.  Remaining balances are incorporated in future bond"
^DD(450,723,21,5,0)="purchases. The balance is refunded if the bond is canceled or"
^DD(450,723,21,6,0)="the employee separates from the agency."
^DD(450,723,"DT")="3020701"
^DD(450,724,0)="SAVINGS BOND-3 BENE CODE^FO^^BOND3;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,724,2)="S Y(0)=Y S Y(0)=Y S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,724,2.1)="S Y(0)=Y S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,724,3)="Answer must be 1 character in length."
^DD(450,724,21,0)="^^3^3^3020619^"
^DD(450,724,21,1,0)="Code indicates whether or not an employee has selected a"
^DD(450,724,21,2,0)="beneficiary or co-owner for a bond purchased through the payroll"
^DD(450,724,21,3,0)="deduction plan.  This field pertains to the third bond allotment."
^DD(450,724,"DT")="3030314"
^DD(450,725,0)="SAVINGS BOND-3 CO-OWNER^F^^BOND3;6^K:$L(X)>28!($L(X)<1) X"
^DD(450,725,3)="Answer must be 1-28 characters in length."
^DD(450,725,21,0)="^^2^2^3020619^"
^DD(450,725,21,1,0)="The name of the designated beneficiary/co-owner of the"
^DD(450,725,21,2,0)="third bond. A beneficiary or co-owner must be a person."
^DD(450,725,"DT")="3020701"
^DD(450,726,0)="SAVINGS BOND-3 CO-OWNER SSN^F^^BOND3;7^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,726,3)="Answer must be 9 characters in length."
^DD(450,726,21,0)="^^3^3^3020619^"
^DD(450,726,21,1,0)="The social security number of the beneficiary or co-owner"
^DD(450,726,21,2,0)="designated by the employee. This field pertains to the third bond"
^DD(450,726,21,3,0)="allotment."
^DD(450,726,"DT")="3020708"
^DD(450,727,0)="SAVINGS BOND-3 DED BALANCE^NJ8,2^^BOND3;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(450,727,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits."
^DD(450,727,21,0)="^^6^6^3020619^"
^DD(450,727,21,1,0)="The balance is the accumulated amount deducted toward the"
^DD(450,727,21,2,0)="purchase price of the bond, as of the current pay period. Each time"
^DD(450,727,21,3,0)="the purchase price is reached, a bond is issued and the balance"
^DD(450,727,21,4,0)="adjusted. Remaining balances are incorporated into future bond purchases."
^DD(450,727,21,5,0)="The balance is refunded if the bond is canceled or the employee separates"
^DD(450,727,21,6,0)="from the agency. This field pertains to the third bond allotment."
^DD(450,727,"DT")="3020701"
^DD(450,728,0)="SAVINGS BOND-3 DED EPPD^NJ8,2^^BOND3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(450,728,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits."
^DD(450,728,21,0)="^^3^3^3020621^"
^DD(450,728,21,1,0)="The amount the employee has authorized to be deducted each"
^DD(450,728,21,2,0)="pay period for the purchase of a U.S. savings bond. This field"
^DD(450,728,21,3,0)="pertains to the third savings bond allotment."
^DD(450,728,"DT")="3020701"
^DD(450,729,0)="SAVINGS BOND-3 DENOMINATION^FO^^BOND3;10^K:$L(X)>1!($L(X)<1) X"
^DD(450,729,2)="S Y(0)=Y S Y(0)=Y S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,729,2.1)="S Y(0)=Y S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,729,3)="Answer must be 1 character in length."
^DD(450,729,21,0)="^^4^4^3020621^"
^DD(450,729,21,1,0)="Code indicates the face value of the U.S. savings bond"
^DD(450,729,21,2,0)="being purchased through the payroll deduction plan. An employee may"
^DD(450,729,21,3,0)="purchase more than one bond at a time. This field represents the third"
^DD(450,729,21,4,0)="bond."
^DD(450,729,"DT")="3030314"
^DD(450,730,0)="SAVINGS BOND-3 EFFECTIVE DATE^D^^BOND3;11^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(450,730,3)=""
^DD(450,730,21,0)="^^3^3^3020621^"
^DD(450,730,21,1,0)="Denotes the date when the third bond allotment deductions"
^DD(450,730,21,2,0)="have reached one-half of the purchase price of the bond. The effective"
^DD(450,730,21,3,0)="date determines the bond's maturity and when interest begins to accrue."
^DD(450,730,"DT")="3020701"
^DD(450,731,0)="SAVINGS BOND-3 OWNER^F^^BOND3;12^K:$L(X)>32!($L(X)<1) X"
^DD(450,731,3)="Answer must be 1-32 characters in length."
^DD(450,731,21,0)="^^4^4^3020621^"
^DD(450,731,21,1,0)="The name of the designated owner of a U.S. savings bond"
^DD(450,731,21,2,0)="purchased by an employee through the payroll deduction plan. The owner"
^DD(450,731,21,3,0)="may be the employee, another individual, a public or private"
^DD(450,731,21,4,0)="organization, or a fiduciary. This field pertains to the third bond."
^DD(450,731,"DT")="3020701"
^DD(450,732,0)="SAVINGS BOND-3 OWNER SSN^F^^BOND3;13^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,732,3)="Answer must be 9 characters in length."
^DD(450,732,21,0)="^^5^5^3020621^"
^DD(450,732,21,1,0)="The social security number of the designated owner of a"
^DD(450,732,21,2,0)="U.S. savings bond purchased by an employee through the payroll deduction"
^DD(450,732,21,3,0)="plan. If the owner is not a person, an employer identification"
^DD(450,732,21,4,0)="number must be shown. This field reflects the owner's social security"
^DD(450,732,21,5,0)="number for the third bond."
^DD(450,732,"DT")="3020708"
^DD(450,733,0)="SAVINGS BOND-3 ZIP CODE^F^^BOND3;14^K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(450,733,3)="Answer must be 5-9 characters in length."
^DD(450,733,21,0)="^^2^2^3020621^"
^DD(450,733,21,1,0)="The zip code of the address, selected by the employee, to"
^DD(450,733,21,2,0)="which the third bond is mailed."
^DD(450,733,"DT")="3020708"
^DD(450,734,0)="SAVINGS BOND-3 TYPE^FX^^BOND3;15^K:$L(X)>1!($L(X)<1) X"
^DD(450,734,3)="Answer must be 1 character in length."
^DD(450,734,21,0)="^^1^1^3030220^"
^DD(450,734,21,1,0)="The one character string that identifies the type of the third bond."
^DD(450,734,"DT")="3030220"
^DD(450,735,0)="SAVINGS BOND-4 ADD LINE-1^F^^BOND4;1^K:$L(X)>23!($L(X)<1) X"
^DD(450,735,3)="Answer must be 1-23 characters in length."
^DD(450,735,21,0)="^^2^2^3020701^"
^DD(450,735,21,1,0)="The first line of the address, selected by the employee, to"
^DD(450,735,21,2,0)="which the fourth bond is mailed."
^DD(450,735,"DT")="3020701"
^DD(450,736,0)="SAVINGS BOND-4 ADD LINE-2^F^^BOND4;2^K:$L(X)>23!($L(X)<1) X"
^DD(450,736,3)="Answer must be 1-23 characters in length."
^DD(450,736,21,0)="^^2^2^3020701^"
^DD(450,736,21,1,0)="The second line of the address, selected by the employee,"
^DD(450,736,21,2,0)="to which the fourth bond is mailed."
^DD(450,736,"DT")="3020701"
^DD(450,737,0)="SAVINGS BOND-4 ADD LINE-3^F^^BOND4;3^K:$L(X)>16!($L(X)<1) X"
^DD(450,737,3)="Answer must be 1-16 characters in length."
^DD(450,737,21,0)="^^2^2^3020701^"
^DD(450,737,21,1,0)="The third line of the address, selected by the employee, to"
^DD(450,737,21,2,0)="which the fourth bond is mailed."
^DD(450,737,"AX")="F"
^DD(450,737,"DT")="3020701"
^DD(450,738,0)="SAVINGS BOND-4 BALANCE^NJ10,2^^BOND4;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99)!(X?.E1"".""3.N) X"
^DD(450,738,3)="Type a Dollar amount between -9999999.99 and 9999999.99, 2 Decimal Digits."
^DD(450,738,21,0)="^^6^6^3020701^"
^DD(450,738,21,1,0)="The accumulated amount deducted toward the purchase price"
^DD(450,738,21,2,0)="of the fourth bond, as of the current pay period. Each"
^DD(450,738,21,3,0)="time the purchase price is reached, a bond is issued and the"
^DD(450,738,21,4,0)="balance adjusted.  Remaining balances are incorporated in"
^DD(450,738,21,5,0)="future bond purchases. The balance is refunded if the bond"
^DD(450,738,21,6,0)="is canceled or the employee separates from the agency."
^DD(450,738,"DT")="3020701"
^DD(450,739,0)="SAVINGS BOND-4 BENE CODE^FO^^BOND4;5^K:$L(X)>1!($L(X)<1) X"
^DD(450,739,2)="S Y(0)=Y S Y(0)=Y S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,739,2.1)="S Y(0)=Y S SUB454=""BOC"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,739,3)="Answer must be 1 character in length."
^DD(450,739,21,0)="^^4^4^3020701^"
^DD(450,739,21,1,0)="Code indicates whether or not an employee has selected a"
^DD(450,739,21,2,0)="beneficiary or co-owner for a bond purchased through the"
^DD(450,739,21,3,0)="payroll deduction plan.  This field pertains to the fourth"
^DD(450,739,21,4,0)="bond allotment."
^DD(450,739,"DT")="3030314"
^DD(450,740,0)="SAVINGS BOND-4 CO-OWNER^F^^BOND4;6^K:$L(X)>28!($L(X)<1) X"
^DD(450,740,3)="Answer must be 1-28 characters in length."
^DD(450,740,21,0)="^^2^2^3020701^"
^DD(450,740,21,1,0)="The name of the designated beneficiary/co-owner of the"
^DD(450,740,21,2,0)="fourth bond. A beneficiary or co-owner must be a person."
^DD(450,740,"DT")="3020701"
^DD(450,741,0)="SAVINGS BOND-4 CO-OWNER SSN^F^^BOND4;7^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,741,3)="Answer must be 9 characters in length."
^DD(450,741,21,0)="^^3^3^3020701^"
^DD(450,741,21,1,0)="The social security number of the beneficiary or co-owner"
^DD(450,741,21,2,0)="designated by the employee. This field pertains to the"
^DD(450,741,21,3,0)="fourth bond allotment."
^DD(450,741,"DT")="3020708"
^DD(450,742,0)="SAVINGS BOND-4 DED BALANCE^NJ8,2^^BOND4;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.22)!(X<-99999.22)!(X?.E1"".""3.N) X"
^DD(450,742,3)="Type a Dollar amount between -99999.22 and 99999.22, 2 Decimal Digits."
^DD(450,742,21,0)="^^7^7^3020701^"
^DD(450,742,21,1,0)="The balance is the accumulated amount deducted toward the"
^DD(450,742,21,2,0)="purchase price of the bond, as of the current pay period."
^DD(450,742,21,3,0)="Each time the purchase price is reached, a bond is issued and"
^DD(450,742,21,4,0)="the balance adjusted. Remaining balances are incorporated into"
^DD(450,742,21,5,0)="future bond purchases. The balance is refunded if the bond is"
^DD(450,742,21,6,0)="canceled or the employee separates from the agency. This field"
^DD(450,742,21,7,0)="pertains to the fourth bond allotment."
^DD(450,742,"DT")="3020701"
^DD(450,743,0)="SAVINGS BOND-4 DED EPPD^NJ8,2^^BOND4;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(450,743,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,743,21,0)="^.001^3^3^3030218^^"
^DD(450,743,21,1,0)="The amount the employee has authorized to be deducted each"
^DD(450,743,21,2,0)="pay period for the purchase of a U.S. savings bond. This"
^DD(450,743,21,3,0)="field pertains to the fourth savings bond allotment."
^DD(450,743,"DT")="3030218"
^DD(450,744,0)="SAVINGS BOND-4 DENOMINATION^FO^^BOND4;10^K:$L(X)>1!($L(X)<1) X"
^DD(450,744,2)="S Y(0)=Y S Y(0)=Y S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,744,2.1)="S Y(0)=Y S SUB454=""BOD"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,744,3)="Answer must be 1 character in length."
^DD(450,744,21,0)="^^4^4^3020701^"
^DD(450,744,21,1,0)="Code indicates the face value of the U.S. savings bond"
^DD(450,744,21,2,0)="being purchased through the payroll deduction plan. An"
^DD(450,744,21,3,0)="employee may purchase more than one bond at a time. This"
^DD(450,744,21,4,0)="field represents the fourth bond."
^DD(450,744,"DT")="3030314"
^DD(450,745,0)="SAVINGS BOND-4 EFFECTIVE DATE^D^^BOND4;11^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(450,745,3)=""
^DD(450,745,21,0)="^^5^5^3020701^"
^DD(450,745,21,1,0)="Denotes the date when the fourth bond allotment deductions"
^DD(450,745,21,2,0)="have reached one-half of the purchase price of the bond. The"
^DD(450,745,21,3,0)="effective date determines the bond's maturity and when interest"
^DD(450,745,21,4,0)="begins to accrue."
^DD(450,745,21,5,0)=""
^DD(450,745,"DT")="3020701"
^DD(450,746,0)="SAVINGS BOND-4 OWNER^F^^BOND4;12^K:$L(X)>32!($L(X)<1) X"
^DD(450,746,3)="Answer must be 1-32 characters in length."
^DD(450,746,21,0)="^^5^5^3020701^"
^DD(450,746,21,1,0)="The name of the designated owner of a U.S. savings bond"
^DD(450,746,21,2,0)="purchased by an employee through the payroll deduction"
^DD(450,746,21,3,0)="plan. The owner may be the employee, another individual,"
^DD(450,746,21,4,0)="a public or private organization, or a fiduciary. This"
^DD(450,746,21,5,0)="field pertains to the fourth bond."
^DD(450,746,"DT")="3020701"
^DD(450,747,0)="SAVINGS BOND-4 OWNER SSN^F^^BOND4;13^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(450,747,3)="Answer must be 9 characters in length."
^DD(450,747,21,0)="^^7^7^3020701^"
^DD(450,747,21,1,0)="The social security number of the designated owner of a"
^DD(450,747,21,2,0)="U.S. savings bond purchased by an employee through the"
^DD(450,747,21,3,0)="payroll deduction plan. If the owner is not a person, an"
^DD(450,747,21,4,0)="employer identification number must be shown. This field"
^DD(450,747,21,5,0)="reflects the owner's social security number for the fourth"
^DD(450,747,21,6,0)="bond."
^DD(450,747,21,7,0)=""
^DD(450,747,"DT")="3020708"
^DD(450,748,0)="SAVINGS BOND-4 ZIP CODE^F^^BOND4;14^K:$L(X)>9!($L(X)<5)!'((X?5N!(X?9N))) X"
^DD(450,748,3)="Answer must be 5-9 characters in length."
^DD(450,748,21,0)="^^2^2^3020701^^"
^DD(450,748,21,1,0)="The zip code of the address, selected by the employee, to"
^DD(450,748,21,2,0)="which the fourth bond is mailed."
^DD(450,748,"DT")="3020709"
^DD(450,749,0)="SAVINGS BOND-4 TYPE^FX^^BOND4;15^K:$L(X)>1!($L(X)<1) X"
^DD(450,749,3)="Answer must be 1 character in length."
^DD(450,749,21,0)="^^1^1^3030220^"
^DD(450,749,21,1,0)="The one character string that identifies the type of the fourth bond."
^DD(450,749,"DT")="3030220"
^DD(450,750,0)="FLTCIP INDICATOR^F^^FLTCIP;1^K:$L(X)>1!($L(X)<1) X"
^DD(450,750,3)="Answer must be 1 character in length."
^DD(450,750,21,0)="^^2^2^3030819^^"
^DD(450,750,21,1,0)="Indicates whether the employee is eligible to participate in the Federal Long"
^DD(450,750,21,2,0)="Term Care Insurance Program (FLTCIP).  Possible values are Y or N."
^DD(450,750,"DT")="3030819"
^DD(450,751,0)="FLTCIP CPPD^NJ8,2^^FLTCIP;2^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(450,751,3)="Type a number between 0 and 99999.99, 2 Decimal Digits."
^DD(450,751,21,0)="^^2^2^3030722^^"
^DD(450,751,21,1,0)="The amount to be deducted each pay period from an employee's pay for Federal"
^DD(450,751,21,2,0)="Long Term Care Insurance Program."
^DD(450,751,"DT")="3030722"
^DD(450,752,0)="FED EMP HLTH BENE CRT ORD IND^F^^FED;12^K:$L(X)>1!($L(X)<1) X"
^DD(450,752,3)="Answer must be 1 character in length."
^DD(450,752,21,0)="^^4^4^3031215^^^^"
^DD(450,752,21,1,0)="The Federal Employee Health Benefit Court Order Indicator identifies"
^DD(450,752,21,2,0)="employees who are under court order to pay for Alimony, Child Support"
^DD(450,752,21,3,0)="or Bankruptcy.  Possible values are C (under court order) or blank"
^DD(450,752,21,4,0)="(not under court order)."
^DD(450,752,"DT")="3031215"
^DD(450,753,0)="EARNINGS & LEAVE PRT SELECTION^F^^ADD;11^K:$L(X)>1!($L(X)<1) X"
^DD(450,753,3)="Answer must be 1 character in length."
^DD(450,753,21,0)="^^4^4^3031215^^^^"
^DD(450,753,21,1,0)="The Earnings and Leave Print Indicator determines whether or not"
^DD(450,753,21,2,0)="to print a hardcopy of the employee's Earnings and Leave statement."
^DD(450,753,21,3,0)="Possible values are X (print a hardcopy) or blank (don't print a"
^DD(450,753,21,4,0)="hardcopy)."
^DD(450,753,"DT")="3031215"
^DD(450,754,0)="FEDERAL TAX LOCK-IN INDICATOR^F^^FED;13^K:$L(X)>1!($L(X)<1) X"
^DD(450,754,3)="Answer must be 1 character in length"
^DD(450,754,21,0)="^^2^2^3040427^^^"
^DD(450,754,21,1,0)="When set to Y this field will prevent the employee from making changes via"
^DD(450,754,21,2,0)="EEX to their federal tax withholding amount.  (Possible Values: Y or N)"
^DD(450,754,"DT")="3040427"
^DD(450,755,0)="LABOR DIST CODE CHANGED BY^P200'^VA(200,^LDAUDIT;1^Q"
^DD(450,755,3)="The person or interface who last changed the employee's Labor Distribution codes."
^DD(450,755,21,0)="^^4^4^3030721^"
^DD(450,755,21,1,0)="The type of interface or the internal entry number of the last person who"
^DD(450,755,21,2,0)="changed any of the fields related to the Labor Distribution codes assigned to"
^DD(450,755,21,3,0)="the employee."
^DD(450,755,21,4,0)=""
^DD(450,755,"DT")="3030721"
^DD(450,755.1,0)="TYPE OF INTERFACE^FO^^LDAUDIT;3^K:$L(X)>1!($L(X)<1) X"
^DD(450,755.1,2)="S Y(0)=Y S Y(0)=Y S SUB454=""TOI"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,755.1,2.1)="S Y(0)=Y S SUB454=""TOI"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(450,755.1,3)="Answer must be 1 character in length."
^DD(450,755.1,21,0)="^^7^7^3030724^^"
^DD(450,755.1,21,1,0)="The type of interface from Central PAID that changed the employee's Labor"
^DD(450,755.1,21,2,0)="Distribution codes.  Possible values:"
^DD(450,755.1,21,3,0)=" "
^DD(450,755.1,21,4,0)="1 - INITIAL"
^DD(450,755.1,21,5,0)="2 - EDIT & UPDATE"
^DD(450,755.1,21,6,0)="3 - TRANSFER"
^DD(450,755.1,21,7,0)="4 - PAYRUN"
^DD(450,755.1,"DT")="3030724"
^DD(450,756,0)="LABOR DIST CODE EDIT DATE^D^^LDAUDIT;2^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(450,756,3)="(No range limit on date)"
^DD(450,756,21,0)="^^2^2^3030721^^"
^DD(450,756,21,1,0)="The date and time when the employee's Labor Distribution codes were last changed."
^DD(450,756,21,2,0)=""
^DD(450,756,"DT")="3030721"
^DD(450,757,0)="LABOR DISTRIBUTION^450.0757A^^LD;0"
^DD(450,758,0)="HLTH CARE FLEX SPEND ACCT YTD^NJ7,2^^FSA;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>3000)!(X<0)!(X?.E1"".""3.N) X"
^DD(450,758,3)="Type a Dollar amount between 0 and 3000, 2 Decimal Digits."
^DD(450,758,8)="FP"
^DD(450,758,21,0)="^^2^2^3031007^^^^"
^DD(450,758,21,1,0)="The accumulated total of Health Care Flexible Spending Accounts deducted"
^DD(450,758,21,2,0)="from an employee this year through the last pay period processed."
^DD(450,758,"DT")="3061227"
^DD(450,759,0)="HLTH CARE FLEX SPEND ACCT CPPD^NJ7,2^^FSA;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>3000)!(X<0)!(X?.E1"".""3.N) X"
^DD(450,759,3)="Type a Dollar amount between 0 and 3000, 2 Decimal Digits."
^DD(450,759,8)="FP"
^DD(450,759,21,0)="^^2^2^3031215^^^^"
^DD(450,759,21,1,0)="The current pay period deduction from an employee's pay for the Health"
^DD(450,759,21,2,0)="Care Flexible Spending Account (HCFSA)."
^DD(450,759,"DT")="3061227"
^DD(450,760,0)="DPNT CARE FLEX SPEND ACCT YTD^NJ7,2^^FSA;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>5000)!(X<0)!(X?.E1"".""3.N) X"
^DD(450,760,3)="Type a Dollar amount between 0 and 5000, 2 Decimal Digits."
^DD(450,760,8)="FP"
^DD(450,760,21,0)="^^3^3^3031215^^^^"
^DD(450,760,21,1,0)="The accumulated total of Dependent Care Flexible Spending Accounts"
^DD(450,760,21,2,0)="deducted from an employee this year through the last pay period"
^DD(450,760,21,3,0)="processed."
^DD(450,760,"DT")="3061227"
^DD(450,761,0)="DPNT CARE FLEX SPEND ACCT CPPD^NJ7,2^^FSA;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>5000)!(X<0)!(X?.E1"".""3.N) X"
^DD(450,761,3)="Type a Dollar amount between 0 and 5000, 2 Decimal Digits."
^DD(450,761,8)="FP"
^DD(450,761,21,0)="^^2^2^3031215^^^^"
^DD(450,761,21,1,0)="The current pay period deduction from an employee's pay for the"
^DD(450,761,21,2,0)="Dependent Care Flexible Spending Account (DCFSA)."
^DD(450,761,"DT")="3061227"
^DD(450,762,0)="TAX GARNISHMENT-3^NJ8,2^^ACSB;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(450,762,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,762,21,0)="^^1^1^3040426^"
^DD(450,762,21,1,0)="The third amount deducted for purposes of tax garnishment."
^DD(450,762,"DT")="3040426"
^DD(450,763,0)="TAX GARNISHMENT-4^NJ8,2^^ACSB;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(450,763,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,763,21,0)="^^1^1^3040426^"
^DD(450,763,21,1,0)="The fourth amount deducted for purposes of tax garnishment."
^DD(450,763,"DT")="3040426"
^DD(450,764,0)="COMMERCIAL GARNISHMENT-3^NJ8,2^^ACSB;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(450,764,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,764,21,0)="^^1^1^3040426^"
^DD(450,764,21,1,0)="The third amount deducted for purposes of commercial garnishment."
^DD(450,764,"DT")="3040427"
^DD(450,765,0)="COMMERCIAL GARNISHMENT-4^NJ8,2^^ACSB;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(450,765,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(450,765,21,0)="^^1^1^3040426^"
^DD(450,765,21,1,0)="The fourth amount deducted for purposes of commercial garnishment."
^DD(450,765,"DT")="3040426"
^DD(450,"B","1-YEAR PROB PERIOD INCEPTION",104)=""
^DD(450,"B","2-YEAR PROB PERIOD INCEPTION",94)=""
^DD(450,"B","8B NORMAL HOURS",15)=""
^DD(450,"B","ACADEMIC TITLE",119)=""
^DD(450,"B","ACCESSION/SEPARATION CODE",48)=""
^DD(450,"B","ACCESSION/SEPARATION EFF DATE",49)=""
^DD(450,"B","ACCESSION/SEPARATION NOA CODE",50)=""
^DD(450,"B","ACSB ACS AMT CPPD",236)=""
^DD(450,"B","ACSB BACK PAY BALANCE-1",237)=""
^DD(450,"B","ACSB BACK PAY BALANCE-2",238)=""
^DD(450,"B","ACSB BACK PAY DEDUCTION-1",239)=""
^DD(450,"B","ACSB BACK PAY DEDUCTION-2",240)=""
^DD(450,"B","ACSB BANKRUPTCY AMT CPPD",241)=""
^DD(450,"B","ACSB CODE-1",242)=""
^DD(450,"B","ACSB CODE-2",243)=""
^DD(450,"B","ACSB CONTROL NUMBER-1",244)=""
^DD(450,"B","ACSB CONTROL NUMBER-2",245)=""
^DD(450,"B","ACSB CURRENT ALLOTMENT-1",246)=""
^DD(450,"B","ACSB CURRENT ALLOTMENT-2",247)=""
^DD(450,"B","ACSB FED/STATE PCT FACTOR-1",248)=""
^DD(450,"B","ACSB FED/STATE PCT FACTOR-2",249)=""
^DD(450,"B","ACTUAL SSN",33)=""
^DD(450,"B","ADDL DIPLOMATE SPECIALTY A",120)=""
^DD(450,"B","ADDL DIPLOMATE SPECIALTY B",132)=""
^DD(450,"B","ADDNL LIFE INSURANCE",1)=""
^DD(450,"B","ADOPTION LEAVE USED CPPD",712)=""
^DD(450,"B","ADOPTION LEAVE USED LYTD",713)=""
^DD(450,"B","AGENCY TRANSFERRED TO",51)=""
^DD(450,"B","AL NON-ACCRUAL IND",460)=""
^DD(450,"B","ANNUAL LEAVE ACCRUAL RATE",89)=""
^DD(450,"B","ANNUAL LEAVE CREDIT HOURS",461)=""
^DD(450,"B","ANNUAL LEAVE CURRENT BALANCE",462)=""
^DD(450,"B","ANNUAL LEAVE EARNED LYTD",463)=""
^DD(450,"B","ANNUAL LEAVE EOPY BALANCE",464)=""
^DD(450,"B","ANNUAL LEAVE LUMP SUM AMT",525)=""
^DD(450,"B","ANNUAL LEAVE LUMP SUM HRS/DAYS",526)=""
^DD(450,"B","ANNUAL LEAVE RESTRICTION",92)=""
^DD(450,"B","ANNUAL LEAVE USED CPPD",465)=""
^DD(450,"B","ANNUAL LEAVE USED CPPD (HOURS)",592)=""
^DD(450,"B","ANNUAL LEAVE USED LYTD",466)=""
^DD(450,"B","ANNUAL REVIEW IND",122)=""
^DD(450,"B","ANNUAL TENURE CHANGE",121)=""
^DD(450,"B","ANNUITANT IND",602)=""
^DD(450,"B","ASSIGNMENT",3)=""
^DD(450,"B","AUO AMT CPPD",543)=""
^DD(450,"B","AUO PERCENT",544)=""
^DD(450,"B","BANK ACCOUNT NUMBER",440)=""
^DD(450,"B","BANK ACCOUNT TYPE",441)=""
^DD(450,"B","BANK EFT ROUTING NUMBER",442)=""
^DD(450,"B","BASE PAY AMT PRIOR TO RET COV",534)=""
^DD(450,"B","BASE PAY CHANGE PPD",535)=""
^DD(450,"B","BASE PAY CHANGE YEAR",536)=""
^DD(450,"B","BASE PAY CPPD",537)=""
^DD(450,"B","BASE PAY SUBJECT TO CSRS",539)=""
^DD(450,"B","BAYLOR PLAN AL CURRENT BAL",473)=""
^DD(450,"B","BAYLOR PLAN AL EOPY BAL",474)=""
^DD(450,"B","BAYLOR PLAN AL USED LYTD",475)=""
^DD(450,"B","BAYLOR PLAN LWOP CCY",476)=""
^DD(450,"B","BAYLOR PLAN LWOP LYTD",477)=""
^DD(450,"B","BAYLOR PLAN LWOP PROB PD",478)=""
^DD(450,"B","BAYLOR PLAN LWOP SINCE PROM",479)=""
^DD(450,"B","BAYLOR PLAN LWOP THIS STEP",480)=""
^DD(450,"B","BAYLOR PLAN RESTORED AL BAL-1",481)=""
^DD(450,"B","BAYLOR PLAN RESTORED AL BAL-2",482)=""
^DD(450,"B","BAYLOR PLAN RESTORED AL YEAR-1",483)=""
^DD(450,"B","BAYLOR PLAN RESTORED AL YEAR-2",484)=""
^DD(450,"B","BAYLOR PLAN SL CURRENT BAL",485)=""
^DD(450,"B","BAYLOR PLAN SL EOPY BAL",486)=""
^DD(450,"B","BAYLOR PLAN SL USED LYTD",487)=""
^DD(450,"B","BEGINNING OF NONPAY STATUS",103)=""
^DD(450,"B","BOARD ELIGIBLE SPECIALTY A",123)=""
^DD(450,"B","BOARD ELIGIBLE SPECIALTY B",124)=""
^DD(450,"B","BULK CHECK OPTION",443)=""
^DD(450,"B","BUS CODE",52)=""
^DD(450,"B","CARE/BEREAVE LEAVE USED CPPD",710)=""
^DD(450,"B","CARE/BEREAVE LEAVE USED LYTD",711)=""
^DD(450,"B","CAREER PROMOTION DETERMINATION",111)=""
^DD(450,"B","CENTRALIZED POSITION IND",53)=""
^DD(450,"B","CFC BIWEEKLY DEDUCTION",209)=""
^DD(450,"B","CFC CODE",210)=""
^DD(450,"B","CFC DEDUCTION CPPD",211)=""
^DD(450,"B","CHECK DISTRIBUTION CODE",444)=""
^DD(450,"B","CHECK MAILING ADDRESS LINE 1",181)=""
^DD(450,"B","CHECK MAILING ADDRESS LINE 2",182)=""
^DD(450,"B","CHECK MAILING ADDRESS LINE 3",183)=""
^DD(450,"B","CHECK MAILING ADDRESS ZIP CODE",184)=""
^DD(450,"B","CITIZENSHIP",4)=""
^DD(450,"B","CITY TAX-1 ADDNL AMT WITHHELD",187)=""
^DD(450,"B","CITY TAX-1 AMT WITHHELD CPPD",188)=""
^DD(450,"B","CITY TAX-1 AMT WITHHELD CTPTD",189)=""
^DD(450,"B","CITY TAX-1 AMT WITHHELD YTD",190)=""
^DD(450,"B","CITY TAX-1 EXEMPTION CODE-1",191)=""
^DD(450,"B","CITY TAX-1 EXEMPTION CODE-2",192)=""
^DD(450,"B","CITY TAX-1 GROSS PAY CPPD",193)=""
^DD(450,"B","CITY TAX-1 GROSS PAY YTD",194)=""
^DD(450,"B","CITY TAX-1 GSA CODE",195)=""
^DD(450,"B","CITY TAX-1 MARITAL STATUS",196)=""
^DD(450,"B","CITY TAX-1 RESIDENCE STATE",197)=""
^DD(450,"B","CITY TAX-2 ADDNL AMT WITHHELD",198)=""
^DD(450,"B","CITY TAX-2 AMT WITHHELD CPPD",201)=""
^DD(450,"B","CITY TAX-2 AMT WITHHELD CTPTD",199)=""
^DD(450,"B","CITY TAX-2 AMT WITHHELD YTD",200)=""
^DD(450,"B","CITY TAX-2 EXEMPTION CODE-1",202)=""
^DD(450,"B","CITY TAX-2 EXEMPTION CODE-2",203)=""
^DD(450,"B","CITY TAX-2 GROSS PAY CPPD",204)=""
^DD(450,"B","CITY TAX-2 GROSS PAY YTD",205)=""
^DD(450,"B","CITY TAX-2 GSA CODE",206)=""
^DD(450,"B","CITY TAX-2 MARITAL STATUS",207)=""
^DD(450,"B","CITY TAX-2 RESIDENCE STATE",208)=""
^DD(450,"B","CLINICAL EXPERIENCE 1",168)=""
^DD(450,"B","CLINICAL EXPERIENCE 2",169)=""
^DD(450,"B","COLA",529)=""
^DD(450,"B","COLA AMT CPPD",527)=""
^DD(450,"B","COLA AMT YTD",528)=""
^DD(450,"B","COMMERCIAL GARNISHMENT-1",708)=""
^DD(450,"B","COMMERCIAL GARNISHMENT-2",709)=""
^DD(450,"B","COMMERCIAL GARNISHMENT-3",764)=""
^DD(450,"B","COMMERCIAL GARNISHMENT-4",765)=""
^DD(450,"B","COMPETITIVE LEVEL",37)=""
^DD(450,"B","COMPRESSED/FLEXITIME CODE",54)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD1",488)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD2",489)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD3",490)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD4",491)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD5",492)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD6",493)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD7",494)=""
^DD(450,"B","COMPTIME/CREDIT HRS BAL PPD8",495)=""
^DD(450,"B","COMPTIME/CREDIT HRS BALANCE",496)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD1 NAME",497)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD2 NAME",498)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD3 NAME",499)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD4 NAME",500)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD5 NAME",501)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD6 NAME",502)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD7 NAME",503)=""
^DD(450,"B","COMPTIME/CREDIT HRS PPD8 NAME",504)=""
^DD(450,"B","COMPTIME/CREDIT HRS USED CPPD",505)=""
^DD(450,"B","CONTINUING EDUC CODE (AT APPT)",125)=""
^DD(450,"B","CONTINUING EDUC CODE (CURRENT)",126)=""
^DD(450,"B","CONVERSION TO CAREER TENURE",93)=""
^DD(450,"B","COUNTRY OF BIRTH",127)=""
^DD(450,"B","COUNTRY OF MEDICAL SCHOOL",128)=""
^DD(450,"B","COUNTRY OF POST GR TRAINING",129)=""
^DD(450,"B","CREDITABLE MILITARY SERVICE",55)=""
^DD(450,"B","CSRS DEDUCTION EOPY",329)=""
^DD(450,"B","CSRS DEDUCTION YTD",330)=""
^DD(450,"B","CSRS REEMP ANNUITANT DED CPPD",336)=""
^DD(450,"B","CURRENT APPT AUTH 1",56)=""
^DD(450,"B","CURRENT APPT AUTH 2",57)=""
^DD(450,"B","DATE ASSIGNED PRESENT POSITION",170)=""
^DD(450,"B","DATE AVAILABLE",171)=""
^DD(450,"B","DATE GRADUATED FROM PROF SCHL",107)=""
^DD(450,"B","DATE OF BIRTH",32)=""
^DD(450,"B","DATE OF ENTRY TO T38 POSITION",106)=""
^DD(450,"B","DATE OF GRADE FOR T38 EMP",105)=""
^DD(450,"B","DEBT DEPOSIT ACCT 36F3875 CPPD",300)=""
^DD(450,"B","DEBT DEPOSIT ACCT 36X6875 CPPD",301)=""
^DD(450,"B","DEBT REFUND ACCT 36F3875 CPPD",302)=""
^DD(450,"B","DEBT REFUND ACCT 36X6875 CPPD",303)=""
^DD(450,"B","DIPLOMATE",139)=""
^DD(450,"B","DISABILITY RETIREMENT",58)=""
^DD(450,"B","DONOR LEAVE USED CPPD",716)=""
^DD(450,"B","DONOR LEAVE USED LYTD",717)=""
^DD(450,"B","DPNT CARE FLEX SPEND ACCT CPPD",761)=""
^DD(450,"B","DPNT CARE FLEX SPEND ACCT YTD",760)=""
^DD(450,"B","DUTY BASIS",9)=""
^DD(450,"B","DUTY STATION",590)=""
^DD(450,"B","EARNED INCOME CREDIT AMT CPPD",445)=""
^DD(450,"B","EARNED INCOME CREDIT AMT EPPD",446)=""
^DD(450,"B","EARNED INCOME CREDIT AMT YTD",447)=""
^DD(450,"B","EARNED INCOME CREDIT CODE",448)=""
^DD(450,"B","EARNINGS & LEAVE OPTION",185)=""
^DD(450,"B","EARNINGS & LEAVE PRT SELECTION",753)=""
^DD(450,"B","EDUCATION",10)=""
^DD(450,"B","ELIG FOR CONV TO COMP SERVICE",98)=""
^DD(450,"B","ELIGIBLE FOR DRUG TESTING",115.17)=""
^DD(450,"B","EMPLOYEE NAME",.01)=""
^DD(450,"B","EMPLOYEE PROVIDED VEHICLE VAL",304)=""
^DD(450,"B","ENVIRONMENTAL HAZARD HRS CPPD",545)=""
^DD(450,"B","EXCEPTIONAL QUALIFICATIONS",702)=""
^DD(450,"B","EXPIRATION OF AI BOARD CERT",115.01)=""
^DD(450,"B","EXPIRATION OF CR BOARD CERT",115.18)=""
^DD(450,"B","EXPIRATION OF CS BOARD CERT",115.14)=""
^DD(450,"B","EXPIRATION OF DE BOARD CERT",115.02)=""
^DD(450,"B","EXPIRATION OF EM BOARD CERT",115.03)=""
^DD(450,"B","EXPIRATION OF FERS PERIOD",113)=""
^DD(450,"B","EXPIRATION OF FORMAL DETAIL",96)=""
^DD(450,"B","EXPIRATION OF FP BOARD CERT",115.04)=""
^DD(450,"B","EXPIRATION OF GEO LOCATION PAY",114.1)=""
^DD(450,"B","EXPIRATION OF GRADE RETENTION",100)=""
^DD(450,"B","EXPIRATION OF IM BOARD CERT",115.19)=""
^DD(450,"B","EXPIRATION OF LICENSURE",90)=""
^DD(450,"B","EXPIRATION OF LIMITED APPT",95)=""
^DD(450,"B","EXPIRATION OF MG BOARD CERT",115.2)=""
^DD(450,"B","EXPIRATION OF NM BOARD CERT",115.05)=""
^DD(450,"B","EXPIRATION OF OG BOARD CERT",115.06)=""
^DD(450,"B","EXPIRATION OF OP BOARD CERT",115.07)=""
^DD(450,"B","EXPIRATION OF OS BOARD CERT",115.08)=""
^DD(450,"B","EXPIRATION OF PM BOARD CERT",115.09)=""
^DD(450,"B","EXPIRATION OF PN BOARD CERT",115.21)=""
^DD(450,"B","EXPIRATION OF PS BOARD CERT",115.1)=""
^DD(450,"B","EXPIRATION OF RETENTION ALLOW",114.2)=""
^DD(450,"B","EXPIRATION OF SPEC PAY AGREE",108)=""
^DD(450,"B","EXPIRATION OF SU BOARD CERT",115.11)=""
^DD(450,"B","EXPIRATION OF TS BOARD CERT",115.12)=""
^DD(450,"B","EXPIRATION OF UR BOARD CERT",115.13)=""
^DD(450,"B","EXTENDED LWOP IND",515)=""
^DD(450,"B","FED EMP HLTH BENE CRT ORD IND",752)=""
^DD(450,"B","FEDERAL NONTAXABLE WAGES YTD",212)=""
^DD(450,"B","FEDERAL SERVICE DATE",110)=""
^DD(450,"B","FEDERAL TAX ADDNL AMT WITHHELD",213)=""
^DD(450,"B","FEDERAL TAX AMT WITHHELD CPPD",216)=""
^DD(450,"B","FEDERAL TAX AMT WITHHELD QTD",214)=""
^DD(450,"B","FEDERAL TAX AMT WITHHELD YTD",215)=""
^DD(450,"B","FEDERAL TAX EXEMPTIONS",217)=""
^DD(450,"B","FEDERAL TAX GROSS PAY QTD",218)=""
^DD(450,"B","FEDERAL TAX GROSS PAY YTD",219)=""
^DD(450,"B","FEDERAL TAX LOCK-IN INDICATOR",754)=""
^DD(450,"B","FEGLI ADDNL DEDUCTION CPPD",223)=""
^DD(450,"B","FEGLI AGE CODE CPPD",224)=""
^DD(450,"B","FEGLI BASIC DEDUCTION CPPD",225)=""
^DD(450,"B","FEGLI CODE",226)=""
^DD(450,"B","FEGLI FAMILY DEDUCTION CPPD",227)=""
^DD(450,"B","FEGLI STANDARD DEDUCTION CPPD",228)=""
^DD(450,"B","FEGLI VA SHARE CPPD",229)=""
^DD(450,"B","FERS DEDUCTION EOPY",333)=""
^DD(450,"B","FERS DEDUCTION YTD",334)=""
^DD(450,"B","FERS REDESIGNATED CSRS AMT",335)=""
^DD(450,"B","FINAL PAY IND",449)=""
^DD(450,"B","FIRE FIGHTER",59)=""
^DD(450,"B","FLSA",11)=""
^DD(450,"B","FLSA OVERTIME WEEK CODE CPPD",531)=""
^DD(450,"B","FLTCIP CPPD",751)=""
^DD(450,"B","FLTCIP INDICATOR",750)=""
^DD(450,"B","FOLLOWUP CODE 08",97.1)=""
^DD(450,"B","FOLLOWUP CODE 10",98.1)=""
^DD(450,"B","FOLLOWUP CODE 11",98.2)=""
^DD(450,"B","FOLLOWUP CODE 12",98.3)=""
^DD(450,"B","FOLLOWUP CODE 13",98.4)=""
^DD(450,"B","FOLLOWUP CODE 15",99.1)=""
^DD(450,"B","FOLLOWUP CODE 30",116.01)=""
^DD(450,"B","FOLLOWUP CODE 31",116.02)=""
^DD(450,"B","FOLLOWUP CODE 32",116.03)=""
^DD(450,"B","FOLLOWUP CODE 33",116.04)=""
^DD(450,"B","FOLLOWUP CODE 34",116.05)=""
^DD(450,"B","FOLLOWUP CODE 35",116.06)=""
^DD(450,"B","FOLLOWUP CODE 36",116.07)=""
^DD(450,"B","FOLLOWUP CODE 37",116.08)=""
^DD(450,"B","FOLLOWUP CODE 38",116.09)=""
^DD(450,"B","FOLLOWUP CODE 39",116.1)=""
^DD(450,"B","FOLLOWUP CODE 40",116.11)=""
^DD(450,"B","FOLLOWUP CODE 41",116.12)=""
^DD(450,"B","FOLLOWUP CODE 42",116.13)=""
^DD(450,"B","FOLLOWUP CODE 43",116.14)=""
^DD(450,"B","FOLLOWUP CODE 44",116.15)=""
^DD(450,"B","FOLLOWUP CODE 45",116.16)=""
^DD(450,"B","FOLLOWUP CODE 46",116.17)=""
^DD(450,"B","FOLLOWUP CODE 47",116.18)=""
^DD(450,"B","FOLLOWUP CODE 48",116.19)=""
^DD(450,"B","FOLLOWUP CODE 49",116.2)=""
^DD(450,"B","FOLLOWUP CODE S*",115.16)=""
^DD(450,"B","FOREIGN MEDICAL GRADUATE IND",131)=""
^DD(450,"B","FROZEN SERVICE",60)=""
^DD(450,"B","FROZEN SICK LEAVE",508)=""
^DD(450,"B","FTE EQUIVALENT",450)=""
^DD(450,"B","FTL DEBT BALANCE",220)=""
^DD(450,"B","FTL EXEMPTED AMT EPPD",221)=""
^DD(450,"B","FUNCTIONAL CODE",12)=""
^DD(450,"B","FUNCTIONAL EXPERIENCE 1",172)=""
^DD(450,"B","FUNCTIONAL EXPERIENCE 2",173)=""
^DD(450,"B","GAP AMT CPPD",83.1)=""
^DD(450,"B","GAP/LOCALITY PAY AMT",83)=""
^DD(450,"B","GARAGE DEDUCTION CPPD",318)=""
^DD(450,"B","GARAGE DEDUCTION EPPD",319)=""
^DD(450,"B","GEOGRAPHIC LOCATION PAY",701)=""
^DD(450,"B","GEOGRAPHIC PREFERENCE 1",174)=""
^DD(450,"B","GEOGRAPHIC PREFERENCE 2",175)=""
^DD(450,"B","GRADE",13)=""
^DD(450,"B","GROSS PAY CPPD",540)=""
^DD(450,"B","GROSS PAY PLUS BENEFITS CPPD",594)=""
^DD(450,"B","GROSS PAY QTD",254)=""
^DD(450,"B","GROSS PAY YTD",255)=""
^DD(450,"B","HAZARD PAY DIFFERENTIAL",597)=""
^DD(450,"B","HEALTH BENEFITS DEDUCTION CPPD",230)=""
^DD(450,"B","HEALTH BENEFITS ELIGIBILITY",234)=""
^DD(450,"B","HEALTH BENEFITS NEXT PPD IND",232)=""
^DD(450,"B","HEALTH BENEFITS PRORATION IND",233)=""
^DD(450,"B","HEALTH BENEFITS VA SHARE CPPD",235)=""
^DD(450,"B","HEALTH INSURANCE",231)=""
^DD(450,"B","HLTH CARE FLEX SPEND ACCT CPPD",759)=""
^DD(450,"B","HLTH CARE FLEX SPEND ACCT YTD",758)=""
^DD(450,"B","HOLIDAY AMT",546)=""
^DD(450,"B","HOLIDAY HOURS",547)=""
^DD(450,"B","HOURS/SALARY LIMITATION",78)=""
^DD(450,"B","HRS EXCESS 8 DAY AMT WK 1",616)=""
^DD(450,"B","HRS EXCESS 8 DAY AMT WK 2",617)=""
^DD(450,"B","HRS EXCESS 8 DAY WK 1",614)=""
^DD(450,"B","HRS EXCESS 8 DAY WK 2",615)=""
^DD(450,"B","INCENTIVE AWARD",587)=""
^DD(450,"B","INSTRUCTIONAL PROGRAM",5)=""
^DD(450,"B","INTER-AGENCY LWOP IND",516)=""
^DD(450,"B","INTERNSHIP CODE",133)=""
^DD(450,"B","INTMT EMP DAYS WORKED PROB PD",452)=""
^DD(450,"B","INTMT EMP DAYS WORKED STEP",453)=""
^DD(450,"B","INTMT EMP DAYS WORKED YTD",454)=""
^DD(450,"B","JOB SHARE",609)=""
^DD(450,"B","LABOR DIST CODE CHANGED BY",755)=""
^DD(450,"B","LABOR DIST CODE EDIT DATE",756)=""
^DD(450,"B","LABOR DIST CODE-1 COST CENTER",17)=""
^DD(450,"B","LABOR DIST CODE-1 COST CTR/ORG",458)=""
^DD(450,"B","LABOR DIST CODE-1 FUND CTRL PT",451)=""
^DD(450,"B","LABOR DISTRIBUTION",757)=""
^DD(450,"B","LAST PPD PROCESSED",455)=""
^DD(450,"B","LEADERSHIP VA",62)=""
^DD(450,"B","LEAVE ACCRUAL ELIG IND NPPD",467)=""
^DD(450,"B","LEAVE GROUP",14)=""
^DD(450,"B","LEVEL",604)=""
^DD(450,"B","LIMITATION CODE",76)=""
^DD(450,"B","LIMITATION EXP DATE",77)=""
^DD(450,"B","LIMITATION HOURS TO DATE",79)=""
^DD(450,"B","LOCALITY PAY CPPD",83.2)=""
^DD(450,"B","LWOP CCY",517)=""
^DD(450,"B","LWOP CONTROL UNITS LYTD",518)=""
^DD(450,"B","LWOP FOR EDUCATION IND",130)=""
^DD(450,"B","LWOP HOURS CPPD",599)=""
^DD(450,"B","LWOP HOURS/DAYS CPPD",519)=""
^DD(450,"B","LWOP LYTD",520)=""
^DD(450,"B","LWOP PROB PD",521)=""
^DD(450,"B","LWOP SINCE PROM",522)=""
^DD(450,"B","LWOP THIS STEP",523)=""
^DD(450,"B","LWOP WG/PW PYTD",524)=""
^DD(450,"B","MANDATORY CLASS",633)=""
^DD(450,"B","MARITAL STATUS",222)=""
^DD(450,"B","MEDICAL MOS",63)=""
^DD(450,"B","MEDICARE AMT WITHHELD CPPD",250)=""
^DD(450,"B","MEDICARE AMT WITHHELD QTD",251)=""
^DD(450,"B","MEDICARE AMT WITHHELD YTD",252)=""
^DD(450,"B","MEDICARE GROSS PAY CPPD",253)=""
^DD(450,"B","MEDICARE STATUS CODE",256)=""
^DD(450,"B","MEDICARE WAGES PRIOR AGCY YTD",257)=""
^DD(450,"B","MI REVIEW GROUP",632)=""
^DD(450,"B","MILITARY LEAVE BALANCE",506)=""
^DD(450,"B","MILITARY LEAVE ELIGIBILITY IND",507)=""
^DD(450,"B","MILITARY LEAVE TYPE",507.1)=""
^DD(450,"B","MILITARY LEAVE USED CPPD",507.2)=""
^DD(450,"B","MONTHLY ANNUITY",456)=""
^DD(450,"B","MONTHLY NON-WORK IND",61)=""
^DD(450,"B","MOVING EXPENSES CPPD",532)=""
^DD(450,"B","MSD ACTION CODE-1",258)=""
^DD(450,"B","MSD ACTION CODE-2",259)=""
^DD(450,"B","MSD ACTION CODE-3",260)=""
^DD(450,"B","MSD AMT DUE THIS PERIOD-1",261)=""
^DD(450,"B","MSD AMT DUE THIS PERIOD-2",262)=""
^DD(450,"B","MSD AMT DUE THIS PERIOD-3",263)=""
^DD(450,"B","MSD AMT FOR INTEREST COMP",276)=""
^DD(450,"B","MSD AMT PAID YTD",277)=""
^DD(450,"B","MSD BRANCH OF SERVICE-1",264)=""
^DD(450,"B","MSD BRANCH OF SERVICE-2",265)=""
^DD(450,"B","MSD BRANCH OF SERVICE-3",266)=""
^DD(450,"B","MSD CASH PAYMENT DATE",278)=""
^DD(450,"B","MSD DATE ENTERED MIL SVC-1",267)=""
^DD(450,"B","MSD DATE ENTERED MIL SVC-2",268)=""
^DD(450,"B","MSD DATE ENTERED MIL SVC-3",269)=""
^DD(450,"B","MSD DATE SEPARATED MIL SVC-1",270)=""
^DD(450,"B","MSD DATE SEPARATED MIL SVC-2",271)=""
^DD(450,"B","MSD DATE SEPARATED MIL SVC-3",272)=""
^DD(450,"B","MSD DEDUCTION CPPD",279)=""
^DD(450,"B","MSD DEDUCTION EPPD",280)=""
^DD(450,"B","MSD IND",281)=""
^DD(450,"B","MSD INTEREST AMT CCY",282)=""
^DD(450,"B","MSD INTEREST AMT PCY",283)=""
^DD(450,"B","MSD INTEREST COMP DATE",284)=""
^DD(450,"B","MSD INTEREST RATE CCY",285)=""
^DD(450,"B","MSD INTEREST RATE PCY",286)=""
^DD(450,"B","MSD LOST TIME-1",273)=""
^DD(450,"B","MSD LOST TIME-2",274)=""
^DD(450,"B","MSD LOST TIME-3",275)=""
^DD(450,"B","MSD TOTAL AMT COLLECTED",287)=""
^DD(450,"B","MSD TOTAL AMT DUE",288)=""
^DD(450,"B","MSD TOTAL INTEREST AMT",289)=""
^DD(450,"B","NET PAY CPPD",541)=""
^DD(450,"B","NET PAY OUT-OF-SYSTEM AMT CPPD",542)=""
^DD(450,"B","NEW PERSON",700)=""
^DD(450,"B","NEW SSN",34)=""
^DD(450,"B","NIGHT DIFF AMT CPPD",549)=""
^DD(450,"B","NIGHT DIFF HRS CPPD",550)=""
^DD(450,"B","NIGHT DIFF IND",551)=""
^DD(450,"B","NO AGREEMENT REASON (AT APPT)",134)=""
^DD(450,"B","NO AGREEMENT REASON (CURRENT)",135)=""
^DD(450,"B","NON-OVERTIME AMT",623)=""
^DD(450,"B","NON-OVERTIME HOURS",622)=""
^DD(450,"B","NON-PAYABLE ANNUAL LEAVE",136)=""
^DD(450,"B","NONPAY ANNUAL LEAVE USED CPPD",468)=""
^DD(450,"B","NONPAY HOURS CPPD",598)=""
^DD(450,"B","NONPAY HOURS/DAYS CPPD",66)=""
^DD(450,"B","NONPAY IND",67)=""
^DD(450,"B","NORMAL HOURS",591)=""
^DD(450,"B","OASDI TAX AMT WITHHELD CPPD",290)=""
^DD(450,"B","OASDI TAX AMT WITHHELD QTD",291)=""
^DD(450,"B","OASDI TAX AMT WITHHELD YTD",292)=""
^DD(450,"B","OASDI TAX GROSS PAY CPPD",293)=""
^DD(450,"B","OASDI TAX GROSS PAY QTD",294)=""
^DD(450,"B","OASDI TAX GROSS PAY YTD",295)=""
^DD(450,"B","OASDI TAX VA SHARE CPPD",296)=""
^DD(450,"B","OASDI TAX VA SHARE QTD",297)=""
^DD(450,"B","OASDI TAX VA SHARE YTD",298)=""
^DD(450,"B","OASDI WAGES PRIOR AGCY YTD",299)=""
^DD(450,"B","OBLIGATED SERVICE",99)=""
^DD(450,"B","OCC PRIV TAX DEDUCTION IND",305)=""
^DD(450,"B","OCCUPATION SERIES & TITLE",16)=""
^DD(450,"B","OCCUPATION SERIES CODE",15.5)=""
^DD(450,"B","ON CALL AMT CPPD",552)=""
^DD(450,"B","ON CALL HRS CPPD",553)=""
^DD(450,"B","OT ON HOL AMT",625)=""
^DD(450,"B","OT ON HOL HOURS",624)=""
^DD(450,"B","OTHER DEDUCTION BALANCE-1",306)=""
^DD(450,"B","OTHER DEDUCTION BALANCE-2",307)=""
^DD(450,"B","OTHER DEDUCTION BIWEEKLY AMT-1",308)=""
^DD(450,"B","OTHER DEDUCTION BIWEEKLY AMT-2",309)=""
^DD(450,"B","OTHER DEDUCTION CODE-1",310)=""
^DD(450,"B","OTHER DEDUCTION CODE-2",311)=""
^DD(450,"B","OTHER SICK LEAVE USED CPPD",714)=""
^DD(450,"B","OTHER SICK LEAVE USED LYTD",715)=""
^DD(450,"B","OTHER TAX FROZEN CODE-1",312)=""
^DD(450,"B","OTHER TAX FROZEN CODE-2",313)=""
^DD(450,"B","OTHER TAX GROSS PAY YTD-1",314)=""
^DD(450,"B","OTHER TAX GROSS PAY YTD-2",315)=""
^DD(450,"B","OTHER TAX GSA CODE-1",316)=""
^DD(450,"B","OTHER TAX GSA CODE-2",317)=""
^DD(450,"B","OVERTIME AMT CPPD",554)=""
^DD(450,"B","OVERTIME AMT WK 1",612)=""
^DD(450,"B","OVERTIME AMT WK 2",613)=""
^DD(450,"B","OVERTIME HOURS CPPD",555)=""
^DD(450,"B","OVERTIME HOURS WK 1",610)=""
^DD(450,"B","OVERTIME HOURS WK 2",611)=""
^DD(450,"B","OWCP BENEFICIARY IND",68)=""
^DD(450,"B","PARKING DEDUCTION CPPD",321)=""
^DD(450,"B","PARKING DEDUCTION EPPD",322)=""
^DD(450,"B","PART TIME VHA IND",69)=""
^DD(450,"B","PART TIME/INTERMIT HRS TOTAL",70)=""
^DD(450,"B","PAY BASIS",19)=""
^DD(450,"B","PAY PLAN",20)=""
^DD(450,"B","PAY RATE DETERMINANT",21)=""
^DD(450,"B","PAYABLE ANNUAL LEAVE",137)=""
^DD(450,"B","PERF/PROFCY RATING CODE",22)=""
^DD(450,"B","PERFORMANCE AWARD",587.1)=""
^DD(450,"B","PHYSICIAN AND DENTIST PAY CAP",705)=""
^DD(450,"B","PLACEMENT FOLLOWUP",91)=""
^DD(450,"B","PMRS IDENTIFIER",71)=""
^DD(450,"B","PMRS PERFORMANCE AWARD AMT",588)=""
^DD(450,"B","POSITION NUMBER",23)=""
^DD(450,"B","POSITION PREFERENCE",176)=""
^DD(450,"B","POSITION RESPONSIBILITY",703)=""
^DD(450,"B","POST DIFF AMT CPPD",557)=""
^DD(450,"B","PREAPPOINTMENT EXPERIENCE",138)=""
^DD(450,"B","PREMIUM PAY IND",548)=""
^DD(450,"B","PREMIUM PAY PCT",556)=""
^DD(450,"B","PRIOR PERFORMANCE 1",24)=""
^DD(450,"B","PRIOR PERFORMANCE 2",25)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 1",160)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 2",161)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 3",162)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 4",163)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 5",164)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 6",165)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 7",166)=""
^DD(450,"B","PRIOR VA EXPERIENCE (OTHER) 8",167)=""
^DD(450,"B","PRIOR VA EXPERIENCE (S/I/R) 1",155)=""
^DD(450,"B","PRIOR VA EXPERIENCE (S/I/R) 2",156)=""
^DD(450,"B","PRIOR VA EXPERIENCE (S/I/R) 3",157)=""
^DD(450,"B","PRIOR VA EXPERIENCE (S/I/R) 4",158)=""
^DD(450,"B","PRIOR VA EXPERIENCE (S/I/R) 5",159)=""
^DD(450,"B","PROBATIONARY APPOINTMENT IND",72)=""
^DD(450,"B","PROFICIENCY DATE",112)=""
^DD(450,"B","PROMOTION ELIGIBILITY IND",140)=""
^DD(450,"B","PROPER GRADE",73)=""
^DD(450,"B","PROPER PAY PLAN",74)=""
^DD(450,"B","PUERTO RICO STATE TAX EXEMPT",372)=""
^DD(450,"B","PURCHASE AND HIRE CASH PAYMENT",533)=""
^DD(450,"B","QUARTERS CODE",323)=""
^DD(450,"B","QUARTERS DEDUCTION CPPD",325)=""
^DD(450,"B","QUARTERS DEDUCTION EPPD",324)=""
^DD(450,"B","QUARTERS NON-HSKP DED CPPD",320)=""
^DD(450,"B","QUARTERS STATION",326)=""
^DD(450,"B","RECRUITMENT BONUS",596)=""
^DD(450,"B","REDETERMINATION OF WGI",97)=""
^DD(450,"B","REEMP ANNUITANT BASE PAY REDUC",538)=""
^DD(450,"B","REEMP ANNUITANT DED EOPY",331)=""
^DD(450,"B","REEMP ANNUITANT DED YTD",332)=""
^DD(450,"B","REG HOURS AT OT RATE",562)=""
^DD(450,"B","REG HOURS AT OT RATE AMT WK 1",620)=""
^DD(450,"B","REG HOURS AT OT RATE AMT WK 2",621)=""
^DD(450,"B","REG HOURS AT OT RATE WK 1",618)=""
^DD(450,"B","REG HOURS AT OT RATE WK 2",619)=""
^DD(450,"B","RELOCATION BONUS",595)=""
^DD(450,"B","RESIDENCE ADDRESS LINE 1",186.1)=""
^DD(450,"B","RESIDENCE ADDRESS LINE 2",186.2)=""
^DD(450,"B","RESIDENCE ADDRESS LINE 3",186.3)=""
^DD(450,"B","RESIDENCE ADDRESS ZIP CODE",186.4)=""
^DD(450,"B","RESIDENCE STATE",186)=""
^DD(450,"B","RESTORED ANNUAL LEAVE BAL-1",469)=""
^DD(450,"B","RESTORED ANNUAL LEAVE BAL-2",470)=""
^DD(450,"B","RESTORED ANNUAL LEAVE YEAR-1",471)=""
^DD(450,"B","RESTORED ANNUAL LEAVE YEAR-2",472)=""
^DD(450,"B","RET MIL/DUAL COMP WAIVER",141)=""
^DD(450,"B","RETENTION ALLOWANCE",608.1)=""
^DD(450,"B","RETENTION ALLOWANCE PCT",608)=""
^DD(450,"B","RETIRED MILITARY",64)=""
^DD(450,"B","RETIREMENT ANN SURV ELIG CODE",75)=""
^DD(450,"B","RETIREMENT CODE",26)=""
^DD(450,"B","RETIREMENT DED CPPD",337)=""
^DD(450,"B","RETIREMENT VA SHARE CPPD",338)=""
^DD(450,"B","RETIREMENT/FICA CODE CHANGE",115.15)=""
^DD(450,"B","SALARY",28)=""
^DD(450,"B","SALARY DATE",27)=""
^DD(450,"B","SATURDAY AMT CPPD",558)=""
^DD(450,"B","SAVINGS ALLOTMENT-1 AMT CPPD",340)=""
^DD(450,"B","SAVINGS ALLOTMENT-1 AMT EPPD",339)=""
^DD(450,"B","SAVINGS ALLOTMENT-2 AMT CPPD",342)=""
^DD(450,"B","SAVINGS ALLOTMENT-2 AMT EPPD",341)=""
^DD(450,"B","SAVINGS BOND DED SUM CPPD",343)=""
^DD(450,"B","SAVINGS BOND-1 ADD LINE-1",344)=""
^DD(450,"B","SAVINGS BOND-1 ADD LINE-2",345)=""
^DD(450,"B","SAVINGS BOND-1 ADD LINE-3",346)=""
^DD(450,"B","SAVINGS BOND-1 BALANCE",347)=""
^DD(450,"B","SAVINGS BOND-1 BENE CODE",348)=""
^DD(450,"B","SAVINGS BOND-1 CO-OWNER",349)=""
^DD(450,"B","SAVINGS BOND-1 CO-OWNER SSN",350)=""
^DD(450,"B","SAVINGS BOND-1 DED BALANCE",351)=""
^DD(450,"B","SAVINGS BOND-1 DED EPPD",352)=""
^DD(450,"B","SAVINGS BOND-1 DENOMINATION",353)=""
^DD(450,"B","SAVINGS BOND-1 EFFECTIVE DATE",354)=""
^DD(450,"B","SAVINGS BOND-1 OWNER",355)=""
^DD(450,"B","SAVINGS BOND-1 OWNER SSN",356)=""
^DD(450,"B","SAVINGS BOND-1 TYPE",718)=""
^DD(450,"B","SAVINGS BOND-1 ZIP CODE",357)=""
^DD(450,"B","SAVINGS BOND-2 ADD LINE-1",358)=""
^DD(450,"B","SAVINGS BOND-2 ADD LINE-2",359)=""
^DD(450,"B","SAVINGS BOND-2 ADD LINE-3",360)=""
^DD(450,"B","SAVINGS BOND-2 BALANCE",361)=""
^DD(450,"B","SAVINGS BOND-2 BENE CODE",362)=""
^DD(450,"B","SAVINGS BOND-2 CO-OWNER",363)=""
^DD(450,"B","SAVINGS BOND-2 CO-OWNER SSN",364)=""
^DD(450,"B","SAVINGS BOND-2 DED BALANCE",365)=""
^DD(450,"B","SAVINGS BOND-2 DED EPPD",366)=""
^DD(450,"B","SAVINGS BOND-2 DENOMINATION",367)=""
^DD(450,"B","SAVINGS BOND-2 EFFECTIVE DATE",368)=""
^DD(450,"B","SAVINGS BOND-2 OWNER",369)=""
^DD(450,"B","SAVINGS BOND-2 OWNER SSN",370)=""
^DD(450,"B","SAVINGS BOND-2 TYPE",719)=""
^DD(450,"B","SAVINGS BOND-2 ZIP CODE",371)=""
^DD(450,"B","SAVINGS BOND-3 ADD LINE-1",720)=""
^DD(450,"B","SAVINGS BOND-3 ADD LINE-2",721)=""
^DD(450,"B","SAVINGS BOND-3 ADD LINE-3",722)=""
^DD(450,"B","SAVINGS BOND-3 BALANCE",723)=""
^DD(450,"B","SAVINGS BOND-3 BENE CODE",724)=""
^DD(450,"B","SAVINGS BOND-3 CO-OWNER",725)=""
^DD(450,"B","SAVINGS BOND-3 CO-OWNER SSN",726)=""
^DD(450,"B","SAVINGS BOND-3 DED BALANCE",727)=""
^DD(450,"B","SAVINGS BOND-3 DED EPPD",728)=""
^DD(450,"B","SAVINGS BOND-3 DENOMINATION",729)=""
^DD(450,"B","SAVINGS BOND-3 EFFECTIVE DATE",730)=""
^DD(450,"B","SAVINGS BOND-3 OWNER",731)=""
^DD(450,"B","SAVINGS BOND-3 OWNER SSN",732)=""
^DD(450,"B","SAVINGS BOND-3 TYPE",734)=""
^DD(450,"B","SAVINGS BOND-3 ZIP CODE",733)=""
^DD(450,"B","SAVINGS BOND-4 ADD LINE-1",735)=""
^DD(450,"B","SAVINGS BOND-4 ADD LINE-2",736)=""
^DD(450,"B","SAVINGS BOND-4 ADD LINE-3",737)=""
^DD(450,"B","SAVINGS BOND-4 BALANCE",738)=""
^DD(450,"B","SAVINGS BOND-4 BENE CODE",739)=""
^DD(450,"B","SAVINGS BOND-4 CO-OWNER",740)=""
^DD(450,"B","SAVINGS BOND-4 CO-OWNER SSN",741)=""
^DD(450,"B","SAVINGS BOND-4 DED BALANCE",742)=""
^DD(450,"B","SAVINGS BOND-4 DED EPPD",743)=""
^DD(450,"B","SAVINGS BOND-4 DENOMINATION",744)=""
^DD(450,"B","SAVINGS BOND-4 EFFECTIVE DATE",745)=""
^DD(450,"B","SAVINGS BOND-4 OWNER",746)=""
^DD(450,"B","SAVINGS BOND-4 OWNER SSN",747)=""
^DD(450,"B","SAVINGS BOND-4 TYPE",749)=""
^DD(450,"B","SAVINGS BOND-4 ZIP CODE",748)=""
^DD(450,"B","SCARCE SPECIALTY PAY",704)=""
^DD(450,"B","SCHEDULE NUMBER",605)=""
^DD(450,"B","SCHEDULED SALARY RATE",29)=""
^DD(450,"B","SEPARATION IND",80)=""
^DD(450,"B","SERVICE COMPUTATION DATE",30)=""
^DD(450,"B","SES APPT PROBATION PERIOD IND",81)=""
^DD(450,"B","SES PERFORMANCE AWARD AMT CPPD",589)=""
^DD(450,"B","SES PROBATIONARY PERIOD",101)=""
^DD(450,"B","SEVERANCE PAY AMT CPPD",457)=""
^DD(450,"B","SEX",31)=""
^DD(450,"B","SPEC ADVANCEMENT FOR PERF IND",148)=""
^DD(450,"B","SPECIAL CALC INDICATOR",149)=""
^DD(450,"B","SPECIAL PAY AGREEMENT DATE",143)=""
^DD(450,"B","SPECIAL PAY AGREEMENT LENGTH",144)=""
^DD(450,"B","SPECIAL PAY AGREEMENT QUAL APT",145)=""
^DD(450,"B","SPECIAL PAY AGREEMENT QUAL CUR",146)=""
^DD(450,"B","SPECIAL PAY ANNUAL AMT",142)=""
^DD(450,"B","SPECIAL PAY RATE DIFFERENCE",82)=""
^DD(450,"B","SPECIAL PAY RET DED",147)=""
^DD(450,"B","SPECIAL PROGRAM",177)=""
^DD(450,"B","SPECIAL SALARY ADJUSTMENT",150)=""
^DD(450,"B","SPECIALIZED SKILLS IND",601)=""
^DD(450,"B","SPECIALTY TRAINED",151)=""
^DD(450,"B","SSN",8)=""
^DD(450,"B","SSN SUFFIX",35)=""
^DD(450,"B","STAFFING DIFFERENTIAL",606.1)=""
^DD(450,"B","STAFFING DIFFERENTIAL PCT",606)=""
^DD(450,"B","STANDBY AMT CPPD",559)=""
^DD(450,"B","STATE OF EMPLOYMENT PREAPPT",153)=""
^DD(450,"B","STATE OF LICENSURE",152)=""
^DD(450,"B","STATE TAX-1 ADDNL AMT WITHHELD",373)=""
^DD(450,"B","STATE TAX-1 AMT WITHHELD CPPD",376)=""
^DD(450,"B","STATE TAX-1 AMT WITHHELD CTPTD",374)=""
^DD(450,"B","STATE TAX-1 AMT WITHHELD YTD",375)=""
^DD(450,"B","STATE TAX-1 EXEMPTION CODE-1",377)=""
^DD(450,"B","STATE TAX-1 EXEMPTION CODE-2",378)=""
^DD(450,"B","STATE TAX-1 GROSS PAY CTPTD",379)=""
^DD(450,"B","STATE TAX-1 GROSS PAY YTD",380)=""
^DD(450,"B","STATE TAX-1 GSA CODE",381)=""
^DD(450,"B","STATE TAX-1 MARITAL STATUS",382)=""
^DD(450,"B","STATE TAX-1 RESIDENCE STATE",383)=""
^DD(450,"B","STATE TAX-2 ADDNL AMT WITHHELD",384)=""
^DD(450,"B","STATE TAX-2 AMT WITHHELD CPPD",387)=""
^DD(450,"B","STATE TAX-2 AMT WITHHELD CTPTD",385)=""
^DD(450,"B","STATE TAX-2 AMT WITHHELD YTD",386)=""
^DD(450,"B","STATE TAX-2 EXEMPTION CODE-1",388)=""
^DD(450,"B","STATE TAX-2 EXEMPTION CODE-2",389)=""
^DD(450,"B","STATE TAX-2 GROSS PAY CTPTD",390)=""
^DD(450,"B","STATE TAX-2 GROSS PAY YTD",391)=""
^DD(450,"B","STATE TAX-2 GSA CODE",392)=""
^DD(450,"B","STATE TAX-2 MARITAL STATUS",393)=""
^DD(450,"B","STATE TAX-2 RESIDENCE STATE",394)=""
^DD(450,"B","STATION EOD",2)=""
^DD(450,"B","STATION MAINTAINING OPF",36)=""
^DD(450,"B","STATION NUMBER",6)=""
^DD(450,"B","STATUS CODE",179)=""
^DD(450,"B","STEP",38)=""
^DD(450,"B","STEP RATE REVIEW",109)=""
^DD(450,"B","SUBACCT CODE",18)=""
^DD(450,"B","SUBSISTANCE DEDUCTION CPPD",327)=""
^DD(450,"B","SUBSISTANCE DEDUCTION EPPD",328)=""
^DD(450,"B","SUNDAY AMT CPPD",560)=""
^DD(450,"B","SUNDAY HRS CPPD",561)=""
^DD(450,"B","SUPERVISOR/LEAD IND",41)=""
^DD(450,"B","SUPERVISOR/MGR PROB PERIOD",102)=""
^DD(450,"B","SUPERVISORY DIFFERENTIAL",607)=""
^DD(450,"B","SUPERVISORY DIFFERENTIAL CPPD",607.1)=""
^DD(450,"B","SUPERVISORY LEVEL",39)=""
^DD(450,"B","SUPV APPT PROBATION PERIOD IND",84)=""
^DD(450,"B","T & L UNIT",7)=""
^DD(450,"B","TAX GARNISHMENT-1",706)=""
^DD(450,"B","TAX GARNISHMENT-2",707)=""
^DD(450,"B","TAX GARNISHMENT-3",762)=""
^DD(450,"B","TAX GARNISHMENT-4",763)=""
^DD(450,"B","TEMPORARY HEALTH BENEFITS ELIG",114)=""
^DD(450,"B","TEMPORARY HEALTH INSURANCE IND",40)=""
^DD(450,"B","TOTAL SICK LEAVE BALANCE",510)=""
^DD(450,"B","TOTAL SICK LEAVE CREDIT HOURS",509)=""
^DD(450,"B","TOTAL SICK LEAVE EARNED",511)=""
^DD(450,"B","TOTAL SICK LEAVE EOPY BALANCE",512)=""
^DD(450,"B","TOTAL SICK LEAVE HRS USED CPPD",593)=""
^DD(450,"B","TOTAL SICK LEAVE USED CPPD",513)=""
^DD(450,"B","TOTAL SICK LEAVE USED LYTD",514)=""
^DD(450,"B","TRAINING PROGRAM",180)=""
^DD(450,"B","TRAINING WK 1",626)=""
^DD(450,"B","TRAINING WK 2",627)=""
^DD(450,"B","TRAVEL HOURS WK 1",628)=""
^DD(450,"B","TRAVEL HOURS WK 2",629)=""
^DD(450,"B","TRAVEL OVERTIME WK 1",630)=""
^DD(450,"B","TRAVEL OVERTIME WK 2",631)=""
^DD(450,"B","TRAVEL SAVINGS AWARD",587.2)=""
^DD(450,"B","TSP 1-PCT GOV CONTRIB YTD",395)=""
^DD(450,"B","TSP AMT EPPD",396)=""
^DD(450,"B","TSP BASE PAY AMT YTD",397)=""
^DD(450,"B","TSP CSF DIST PCT",414)=""
^DD(450,"B","TSP CSF EMP DED CPPD",413)=""
^DD(450,"B","TSP CSF GOV BASIC CONTRIB",415)=""
^DD(450,"B","TSP CSF GOV CONTRIB DIST PCT",416)=""
^DD(450,"B","TSP CSF GOV MATCH CONTRIB",417)=""
^DD(450,"B","TSP DED PRIOR APPT YTD",398)=""
^DD(450,"B","TSP ELIG",399)=""
^DD(450,"B","TSP FIF DIST PCT",419)=""
^DD(450,"B","TSP FIF EMP DED CPPD",418)=""
^DD(450,"B","TSP FIF GOV BASIC CONTRIB",420)=""
^DD(450,"B","TSP FIF GOV CONTRIB DIST PCT",421)=""
^DD(450,"B","TSP FIF GOV MATCH CONTRIB",422)=""
^DD(450,"B","TSP GSF DIST PCT",424)=""
^DD(450,"B","TSP GSF EMP DED CPPD",423)=""
^DD(450,"B","TSP GSF GOV BASIC CONTRIB",425)=""
^DD(450,"B","TSP GSF GOV CONTRIB DIST PCT",426)=""
^DD(450,"B","TSP GSF GOV MATCH CONTRIB",427)=""
^DD(450,"B","TSP LOAN ACCOUNT NUMBER",400)=""
^DD(450,"B","TSP LOAN DED CPPD",401)=""
^DD(450,"B","TSP LOAN DED EPPD",402)=""
^DD(450,"B","TSP MASTER RECORD IND",403)=""
^DD(450,"B","TSP PCT RATE",404)=""
^DD(450,"B","TSP PRIOR TAX YEAR ADJ CODE",405)=""
^DD(450,"B","TSP SEPARATION CODE",407)=""
^DD(450,"B","TSP SEPARATION DATE",408)=""
^DD(450,"B","TSP SERVICE COMPU DATE",406)=""
^DD(450,"B","TSP STATUS",409)=""
^DD(450,"B","TSP STATUS DATE",410)=""
^DD(450,"B","TSP VA DEPARTMENT CODE",411)=""
^DD(450,"B","TSP VESTING",412)=""
^DD(450,"B","TYPE OF APPOINTMENT",42)=""
^DD(450,"B","TYPE OF INTERFACE",755.1)=""
^DD(450,"B","UNIFORM ALLOWANCE AMT CPPD",563)=""
^DD(450,"B","UNIFORM ALLOWANCE EFF DATE",564)=""
^DD(450,"B","UNIFORM ALLOWANCE HOURLY RATE",565)=""
^DD(450,"B","UNION CODE-1",428)=""
^DD(450,"B","UNION CODE-2",429)=""
^DD(450,"B","UNION DUES ANNIVERSARY DATE",430)=""
^DD(450,"B","UNION DUES-1 DEDUCTION CPPD",431)=""
^DD(450,"B","UNION DUES-1 DEDUCTION EPPD",432)=""
^DD(450,"B","UNION DUES-2 DEDUCTION CPPD",433)=""
^DD(450,"B","UNION DUES-2 DEDUCTION EPPD",434)=""
^DD(450,"B","UNSCHEDULED HOURS",530)=""
^DD(450,"B","UPWARD MOBILITY",85)=""
^DD(450,"B","UPWARD MOBILITY DATE",86)=""
^DD(450,"B","VA SERVICE DATE",154)=""
^DD(450,"B","VA STATION TRANSFERRED FROM",87)=""
^DD(450,"B","VCS 301 COST ACCOUNT",566)=""
^DD(450,"B","VCS 302 COST ACCOUNT",567)=""
^DD(450,"B","VCS 303 COST ACCOUNT",568)=""
^DD(450,"B","VCS 304 COST ACCOUNT",569)=""
^DD(450,"B","VCS 601 COST ACCOUNT",570)=""
^DD(450,"B","VCS 601 COST ACCOUNT SUBCODE",571)=""
^DD(450,"B","VCS 701 COST ACCOUNT",572)=""
^DD(450,"B","VCS 702 COST ACCOUNT",573)=""
^DD(450,"B","VCS 703 COST ACCOUNT",574)=""
^DD(450,"B","VCS 704 COST ACCOUNT",575)=""
^DD(450,"B","VCS 706 COST ACCOUNT",576)=""
^DD(450,"B","VCS 709 COST ACCOUNT",577)=""
^DD(450,"B","VCS ADDNL OPTIONAL LIFE INS",578)=""
^DD(450,"B","VCS ALLOTMENT AMT",586.1)=""
^DD(450,"B","VCS AREA",579)=""
^DD(450,"B","VCS BASIC LIFE INS UNITS",580)=""
^DD(450,"B","VCS COMMISSION PERCENT",581)=""
^DD(450,"B","VCS HRLY RATE FOR LEAVE/HOL",582)=""
^DD(450,"B","VCS LEAVE COST ADJUSTMENT AMT",583)=""
^DD(450,"B","VCS LEAVE LIABILITY",584)=""
^DD(450,"B","VCS MINWAGE CD PW CPPD",585)=""
^DD(450,"B","VCS SALE SUM PW CPPD",586)=""
^DD(450,"B","VERIFIED FICA/MED WAGE DIFF",459)=""
^DD(450,"B","VET STATUS",603)=""
^DD(450,"B","VETERANS PREFERENCE",43)=""
^DD(450,"B","VHA REGION NUMBER",88)=""
^DD(450,"B","VOLUNTARY ALLOTMENT AMT CPPD",436)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-1 AMT",435)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-1 CTRL NO",437)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-2 AMT",438)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-2 CTRL NO",439)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-3 AMT",439.1)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-3 CTRL NO",439.2)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-4 AMT",439.3)=""
^DD(450,"B","VOLUNTARY ALLOTMENT-4 CTRL NO",439.4)=""
^DD(450,"B","WGI DUE DATE",600)=""
^DD(450,"B","WGI ELIGIBILITY",44)=""
^DD(450,"B","WGI SF50 ISSUED",45)=""
^DD(450,"B","WGI VA FORM 5-97 ISSUED",46)=""
^DD(450,"B","YEAR COMPLETED",178)=""
^DD(450,"B","YEAR OF DEGREE",47)=""
^DD(450,"GL",0,1,.01)=""
^DD(450,"GL",0,2,1)=""
^DD(450,"GL",0,3,2)=""
^DD(450,"GL",0,4,3)=""
^DD(450,"GL",0,5,4)=""
^DD(450,"GL",0,6,5)=""
^DD(450,"GL",0,7,6)=""
^DD(450,"GL",0,8,7)=""
^DD(450,"GL",0,9,8)=""
^DD(450,"GL",0,10,9)=""
^DD(450,"GL",0,11,10)=""
^DD(450,"GL",0,12,11)=""
^DD(450,"GL",0,13,12)=""
^DD(450,"GL",0,14,13)=""
^DD(450,"GL",0,15,14)=""
^DD(450,"GL",0,16,15)=""
^DD(450,"GL",0,17,16)=""
^DD(450,"GL",0,18,17)=""
^DD(450,"GL",0,19,18)=""
^DD(450,"GL",0,20,19)=""
^DD(450,"GL",0,21,20)=""
^DD(450,"GL",0,22,21)=""
^DD(450,"GL",0,23,22)=""
^DD(450,"GL",0,24,23)=""
^DD(450,"GL",0,25,24)=""
^DD(450,"GL",0,26,25)=""
^DD(450,"GL",0,27,26)=""
^DD(450,"GL",0,28,27)=""
^DD(450,"GL",0,29,28)=""
^DD(450,"GL",0,30,29)=""
^DD(450,"GL",0,31,30)=""
^DD(450,"GL",0,32,31)=""
^DD(450,"GL",0,33,32)=""
^DD(450,"GL",0,34,33)=""
^DD(450,"GL",0,35,34)=""
^DD(450,"GL",0,36,35)=""
^DD(450,"GL",0,37,36)=""
^DD(450,"GL",0,38,37)=""
^DD(450,"GL",0,39,38)=""
^DD(450,"GL",0,40,39)=""
^DD(450,"GL",0,41,40)=""
^DD(450,"GL",0,42,41)=""
^DD(450,"GL",0,43,42)=""
^DD(450,"GL",0,44,43)=""
^DD(450,"GL",0,45,44)=""
^DD(450,"GL",0,46,45)=""
^DD(450,"GL",0,47,46)=""
^DD(450,"GL",0,48,47)=""
^DD(450,"GL",0,49,458)=""
^DD(450,"GL",0,50,591)=""
^DD(450,"GL",0,51,600)=""
^DD(450,"GL",1,1,48)=""
^DD(450,"GL",1,2,49)=""
^DD(450,"GL",1,3,50)=""
^DD(450,"GL",1,4,51)=""
^DD(450,"GL",1,5,52)=""
^DD(450,"GL",1,6,53)=""
^DD(450,"GL",1,7,54)=""
^DD(450,"GL",1,8,55)=""
^DD(450,"GL",1,9,56)=""
^DD(450,"GL",1,10,57)=""
^DD(450,"GL",1,11,58)=""
^DD(450,"GL",1,12,59)=""
^DD(450,"GL",1,13,60)=""
^DD(450,"GL",1,14,61)=""
^DD(450,"GL",1,15,62)=""
^DD(450,"GL",1,16,63)=""
^DD(450,"GL",1,17,64)=""
^DD(450,"GL",1,19,66)=""
^DD(450,"GL",1,20,67)=""
^DD(450,"GL",1,21,68)=""
^DD(450,"GL",1,22,69)=""
^DD(450,"GL",1,23,70)=""
^DD(450,"GL",1,24,71)=""
^DD(450,"GL",1,25,72)=""
^DD(450,"GL",1,26,73)=""
^DD(450,"GL",1,27,74)=""
^DD(450,"GL",1,28,75)=""
^DD(450,"GL",1,29,76)=""
^DD(450,"GL",1,30,77)=""
^DD(450,"GL",1,31,78)=""
^DD(450,"GL",1,32,79)=""
^DD(450,"GL",1,33,80)=""
^DD(450,"GL",1,34,81)=""
^DD(450,"GL",1,35,82)=""
^DD(450,"GL",1,36,83)=""
^DD(450,"GL",1,37,84)=""
^DD(450,"GL",1,38,85)=""
^DD(450,"GL",1,39,86)=""
^DD(450,"GL",1,40,87)=""
^DD(450,"GL",1,41,88)=""
^DD(450,"GL",1,42,590)=""
^DD(450,"GL",1,43,598)=""
^DD(450,"GL",2,1,89)=""
^DD(450,"GL",2,2,90)=""
^DD(450,"GL",2,3,91)=""
^DD(450,"GL",2,4,92)=""
^DD(450,"GL",2,5,93)=""
^DD(450,"GL",2,6,94)=""
^DD(450,"GL",2,7,95)=""
^DD(450,"GL",2,8,96)=""
^DD(450,"GL",2,9,97)=""
^DD(450,"GL",2,10,98)=""
^DD(450,"GL",2,11,99)=""
^DD(450,"GL",2,12,100)=""
^DD(450,"GL",2,13,101)=""
^DD(450,"GL",2,14,102)=""
^DD(450,"GL",2,15,103)=""
^DD(450,"GL",2,16,104)=""
^DD(450,"GL",2,17,105)=""
^DD(450,"GL",2,18,106)=""
^DD(450,"GL",2,19,107)=""
^DD(450,"GL",2,20,108)=""
^DD(450,"GL",2,21,109)=""
^DD(450,"GL",2,22,110)=""
^DD(450,"GL",2,23,111)=""
^DD(450,"GL",2,24,112)=""
^DD(450,"GL",2,25,113)=""
^DD(450,"GL",2,26,114)=""
^DD(450,"GL",2,27,97.1)=""
^DD(450,"GL",2,28,98.1)=""
^DD(450,"GL",2,29,98.2)=""
^DD(450,"GL",2,30,98.3)=""
^DD(450,"GL",2,31,98.4)=""
^DD(450,"GL",2,32,99.1)=""
^DD(450,"GL",3,1,115.01)=""
^DD(450,"GL",3,2,115.02)=""
^DD(450,"GL",3,3,115.03)=""
^DD(450,"GL",3,4,115.04)=""
^DD(450,"GL",3,5,115.05)=""
^DD(450,"GL",3,6,115.06)=""
^DD(450,"GL",3,7,115.07)=""
^DD(450,"GL",3,8,115.08)=""
^DD(450,"GL",3,9,115.09)=""
^DD(450,"GL",3,10,115.1)=""
^DD(450,"GL",3,11,115.11)=""
^DD(450,"GL",3,12,115.12)=""
^DD(450,"GL",3,13,115.13)=""
^DD(450,"GL",3,14,115.14)=""
^DD(450,"GL",3,15,115.15)=""
^DD(450,"GL",3,16,115.16)=""
^DD(450,"GL",3,17,115.17)=""
^DD(450,"GL",3,18,114.1)=""
^DD(450,"GL",3,19,115.18)=""
^DD(450,"GL",3,20,115.19)=""
^DD(450,"GL",3,21,115.2)=""
^DD(450,"GL",3,22,115.21)=""
^DD(450,"GL",3,23,114.2)=""
^DD(450,"GL",4,1,116.01)=""
^DD(450,"GL",4,2,116.02)=""
^DD(450,"GL",4,3,116.03)=""
^DD(450,"GL",4,4,116.04)=""
^DD(450,"GL",4,5,116.05)=""
^DD(450,"GL",4,6,116.06)=""
^DD(450,"GL",4,7,116.07)=""
^DD(450,"GL",4,8,116.08)=""
^DD(450,"GL",4,9,116.09)=""
^DD(450,"GL",4,10,116.1)=""
^DD(450,"GL",4,11,116.11)=""
^DD(450,"GL",4,12,116.12)=""
^DD(450,"GL",4,13,116.13)=""
^DD(450,"GL",4,14,116.14)=""
^DD(450,"GL",4,15,116.15)=""
^DD(450,"GL",4,16,116.16)=""
^DD(450,"GL",4,17,116.17)=""
^DD(450,"GL",4,18,116.18)=""
^DD(450,"GL",4,19,116.19)=""
^DD(450,"GL",4,20,116.2)=""
^DD(450,"GL",5,0,632)=""
^DD(450,"GL",6,0,633)=""
^DD(450,"GL",200,1,700)=""
^DD(450,"GL","ACSB",1,236)=""
^DD(450,"GL","ACSB",2,237)=""
^DD(450,"GL","ACSB",3,238)=""
^DD(450,"GL","ACSB",4,239)=""
^DD(450,"GL","ACSB",5,240)=""
^DD(450,"GL","ACSB",6,241)=""
^DD(450,"GL","ACSB",7,242)=""
^DD(450,"GL","ACSB",8,243)=""
^DD(450,"GL","ACSB",9,244)=""
^DD(450,"GL","ACSB",10,245)=""
^DD(450,"GL","ACSB",11,246)=""
^DD(450,"GL","ACSB",12,247)=""
^DD(450,"GL","ACSB",13,248)=""
^DD(450,"GL","ACSB",14,249)=""
^DD(450,"GL","ACSB",15,706)=""
^DD(450,"GL","ACSB",16,707)=""
^DD(450,"GL","ACSB",17,708)=""
^DD(450,"GL","ACSB",18,709)=""
^DD(450,"GL","ACSB",19,762)=""
^DD(450,"GL","ACSB",20,763)=""
^DD(450,"GL","ACSB",21,764)=""
^DD(450,"GL","ACSB",22,765)=""
^DD(450,"GL","ADD",1,181)=""
^DD(450,"GL","ADD",2,182)=""
^DD(450,"GL","ADD",3,183)=""
^DD(450,"GL","ADD",4,184)=""
^DD(450,"GL","ADD",5,185)=""
^DD(450,"GL","ADD",6,186)=""
^DD(450,"GL","ADD",7,186.1)=""
^DD(450,"GL","ADD",8,186.2)=""
^DD(450,"GL","ADD",9,186.3)=""
^DD(450,"GL","ADD",10,186.4)=""
^DD(450,"GL","ADD",11,753)=""
^DD(450,"GL","ANNUAL",1,460)=""
^DD(450,"GL","ANNUAL",2,461)=""
^DD(450,"GL","ANNUAL",3,462)=""
^DD(450,"GL","ANNUAL",4,463)=""
^DD(450,"GL","ANNUAL",5,464)=""
^DD(450,"GL","ANNUAL",6,465)=""
^DD(450,"GL","ANNUAL",7,466)=""
^DD(450,"GL","ANNUAL",8,467)=""
^DD(450,"GL","ANNUAL",9,468)=""
^DD(450,"GL","ANNUAL",10,469)=""
^DD(450,"GL","ANNUAL",11,470)=""
^DD(450,"GL","ANNUAL",12,471)=""
^DD(450,"GL","ANNUAL",13,472)=""
^DD(450,"GL","ANNUAL",14,592)=""
^DD(450,"GL","AWARDS",1,587)=""
^DD(450,"GL","AWARDS",2,588)=""
^DD(450,"GL","AWARDS",3,589)=""
^DD(450,"GL","AWARDS",4,587.1)=""
^DD(450,"GL","AWARDS",5,587.2)=""
^DD(450,"GL","BAYLOR",1,473)=""
^DD(450,"GL","BAYLOR",2,474)=""
^DD(450,"GL","BAYLOR",3,475)=""
^DD(450,"GL","BAYLOR",4,476)=""
^DD(450,"GL","BAYLOR",5,477)=""
^DD(450,"GL","BAYLOR",6,478)=""
^DD(450,"GL","BAYLOR",7,479)=""
^DD(450,"GL","BAYLOR",8,480)=""
^DD(450,"GL","BAYLOR",9,481)=""
^DD(450,"GL","BAYLOR",10,482)=""
^DD(450,"GL","BAYLOR",11,483)=""
^DD(450,"GL","BAYLOR",12,484)=""
^DD(450,"GL","BAYLOR",13,485)=""
^DD(450,"GL","BAYLOR",14,486)=""
^DD(450,"GL","BAYLOR",15,487)=""
^DD(450,"GL","BOND1",1,343)=""
^DD(450,"GL","BOND1",2,344)=""
^DD(450,"GL","BOND1",3,345)=""
^DD(450,"GL","BOND1",4,346)=""
^DD(450,"GL","BOND1",5,347)=""
^DD(450,"GL","BOND1",6,348)=""
^DD(450,"GL","BOND1",7,349)=""
^DD(450,"GL","BOND1",8,350)=""
^DD(450,"GL","BOND1",9,351)=""
^DD(450,"GL","BOND1",10,352)=""
^DD(450,"GL","BOND1",11,353)=""
^DD(450,"GL","BOND1",12,354)=""
^DD(450,"GL","BOND1",13,355)=""
^DD(450,"GL","BOND1",14,356)=""
^DD(450,"GL","BOND1",15,357)=""
^DD(450,"GL","BOND1",16,718)=""
^DD(450,"GL","BOND2",1,358)=""
^DD(450,"GL","BOND2",2,359)=""
^DD(450,"GL","BOND2",3,360)=""
^DD(450,"GL","BOND2",4,361)=""
^DD(450,"GL","BOND2",5,362)=""
^DD(450,"GL","BOND2",6,363)=""
^DD(450,"GL","BOND2",7,364)=""
^DD(450,"GL","BOND2",8,365)=""
^DD(450,"GL","BOND2",9,366)=""
^DD(450,"GL","BOND2",10,367)=""
^DD(450,"GL","BOND2",11,368)=""
^DD(450,"GL","BOND2",12,369)=""
^DD(450,"GL","BOND2",13,370)=""
^DD(450,"GL","BOND2",14,371)=""
^DD(450,"GL","BOND2",15,719)=""
^DD(450,"GL","BOND3",1,720)=""
^DD(450,"GL","BOND3",2,721)=""
^DD(450,"GL","BOND3",3,722)=""
^DD(450,"GL","BOND3",4,723)=""
^DD(450,"GL","BOND3",5,724)=""
^DD(450,"GL","BOND3",6,725)=""
^DD(450,"GL","BOND3",7,726)=""
^DD(450,"GL","BOND3",8,727)=""
^DD(450,"GL","BOND3",9,728)=""
^DD(450,"GL","BOND3",10,729)=""
^DD(450,"GL","BOND3",11,730)=""
^DD(450,"GL","BOND3",12,731)=""
^DD(450,"GL","BOND3",13,732)=""
^DD(450,"GL","BOND3",14,733)=""
^DD(450,"GL","BOND3",15,734)=""
^DD(450,"GL","BOND4",1,735)=""
^DD(450,"GL","BOND4",2,736)=""
^DD(450,"GL","BOND4",3,737)=""
^DD(450,"GL","BOND4",4,738)=""
^DD(450,"GL","BOND4",5,739)=""
^DD(450,"GL","BOND4",6,740)=""
^DD(450,"GL","BOND4",7,741)=""
^DD(450,"GL","BOND4",8,742)=""
^DD(450,"GL","BOND4",9,743)=""
^DD(450,"GL","BOND4",10,744)=""
^DD(450,"GL","BOND4",11,745)=""
^DD(450,"GL","BOND4",12,746)=""
^DD(450,"GL","BOND4",13,747)=""
^DD(450,"GL","BOND4",14,748)=""
^DD(450,"GL","BOND4",15,749)=""
^DD(450,"GL","CFC",1,209)=""
^DD(450,"GL","CFC",2,210)=""
^DD(450,"GL","CFC",3,211)=""
^DD(450,"GL","CITY",1,187)=""
^DD(450,"GL","CITY",2,188)=""
^DD(450,"GL","CITY",3,189)=""
^DD(450,"GL","CITY",4,190)=""
^DD(450,"GL","CITY",5,191)=""
^DD(450,"GL","CITY",6,192)=""
^DD(450,"GL","CITY",7,193)=""
^DD(450,"GL","CITY",8,194)=""
^DD(450,"GL","CITY",9,195)=""
^DD(450,"GL","CITY",10,196)=""
^DD(450,"GL","CITY",11,197)=""
^DD(450,"GL","CITY",12,198)=""
^DD(450,"GL","CITY",13,199)=""
^DD(450,"GL","CITY",14,200)=""
^DD(450,"GL","CITY",15,201)=""
^DD(450,"GL","CITY",16,202)=""
^DD(450,"GL","CITY",17,203)=""
^DD(450,"GL","CITY",18,204)=""
^DD(450,"GL","CITY",19,205)=""
^DD(450,"GL","CITY",20,206)=""
^DD(450,"GL","CITY",21,207)=""
^DD(450,"GL","CITY",22,208)=""
^DD(450,"GL","COLA",1,527)=""
^DD(450,"GL","COLA",2,528)=""
^DD(450,"GL","COLA",3,529)=""
^DD(450,"GL","COMP",1,488)=""
^DD(450,"GL","COMP",2,489)=""
^DD(450,"GL","COMP",3,490)=""
^DD(450,"GL","COMP",4,491)=""
^DD(450,"GL","COMP",5,492)=""
^DD(450,"GL","COMP",6,493)=""
^DD(450,"GL","COMP",7,494)=""
^DD(450,"GL","COMP",8,495)=""
^DD(450,"GL","COMP",9,496)=""
^DD(450,"GL","COMP",10,497)=""
^DD(450,"GL","COMP",11,498)=""
^DD(450,"GL","COMP",12,499)=""
^DD(450,"GL","COMP",13,500)=""
^DD(450,"GL","COMP",14,501)=""
^DD(450,"GL","COMP",15,502)=""
^DD(450,"GL","COMP",16,503)=""
^DD(450,"GL","COMP",17,504)=""
^DD(450,"GL","COMP",18,505)=""
^DD(450,"GL","FED",1,212)=""
^DD(450,"GL","FED",2,213)=""
^DD(450,"GL","FED",3,214)=""
^DD(450,"GL","FED",4,215)=""
^DD(450,"GL","FED",5,216)=""
^DD(450,"GL","FED",6,217)=""
^DD(450,"GL","FED",7,218)=""
^DD(450,"GL","FED",8,219)=""
^DD(450,"GL","FED",9,220)=""
^DD(450,"GL","FED",10,221)=""
^DD(450,"GL","FED",11,222)=""
^DD(450,"GL","FED",12,752)=""
^DD(450,"GL","FED",13,754)=""
^DD(450,"GL","FEGLI",1,223)=""
^DD(450,"GL","FEGLI",2,224)=""
^DD(450,"GL","FEGLI",3,225)=""
^DD(450,"GL","FEGLI",4,226)=""
^DD(450,"GL","FEGLI",5,227)=""
^DD(450,"GL","FEGLI",6,228)=""
^DD(450,"GL","FEGLI",7,229)=""
^DD(450,"GL","FEHB",1,230)=""
^DD(450,"GL","FEHB",2,231)=""
^DD(450,"GL","FEHB",3,232)=""
^DD(450,"GL","FEHB",4,233)=""
^DD(450,"GL","FEHB",5,234)=""
^DD(450,"GL","FEHB",6,235)=""
^DD(450,"GL","FLTCIP",1,750)=""
^DD(450,"GL","FLTCIP",2,751)=""
^DD(450,"GL","FSA",1,758)=""
^DD(450,"GL","FSA",2,759)=""
^DD(450,"GL","FSA",3,760)=""
^DD(450,"GL","FSA",4,761)=""
^DD(450,"GL","LD",0,757)=""
^DD(450,"GL","LDAUDIT",1,755)=""
^DD(450,"GL","LDAUDIT",2,756)=""
^DD(450,"GL","LDAUDIT",3,755.1)=""
^DD(450,"GL","LUMPSUM",1,525)=""
^DD(450,"GL","LUMPSUM",2,526)=""
^DD(450,"GL","LWOP",1,515)=""
^DD(450,"GL","LWOP",2,516)=""
^DD(450,"GL","LWOP",3,517)=""
^DD(450,"GL","LWOP",4,518)=""
^DD(450,"GL","LWOP",5,519)=""
^DD(450,"GL","LWOP",6,520)=""
^DD(450,"GL","LWOP",7,521)=""
^DD(450,"GL","LWOP",8,522)=""
^DD(450,"GL","LWOP",9,523)=""
^DD(450,"GL","LWOP",10,524)=""
^DD(450,"GL","LWOP",11,599)=""
^DD(450,"GL","MEDICARE",1,250)=""
^DD(450,"GL","MEDICARE",2,251)=""
^DD(450,"GL","MEDICARE",3,252)=""
^DD(450,"GL","MEDICARE",4,253)=""
^DD(450,"GL","MEDICARE",5,254)=""
^DD(450,"GL","MEDICARE",6,255)=""
^DD(450,"GL","MEDICARE",7,256)=""
^DD(450,"GL","MEDICARE",8,257)=""
^DD(450,"GL","MILITARY",1,506)=""
^DD(450,"GL","MILITARY",2,507)=""
^DD(450,"GL","MILITARY",3,507.1)=""
^DD(450,"GL","MILITARY",4,507.2)=""
^DD(450,"GL","MISC",1,530)=""
^DD(450,"GL","MISC",2,531)=""
^DD(450,"GL","MISC",3,532)=""
^DD(450,"GL","MISC",4,533)=""
^DD(450,"GL","MISC",5,601)=""
^DD(450,"GL","MISC",6,602)=""
^DD(450,"GL","MISC",7,603)=""
^DD(450,"GL","MISC",8,604)=""
^DD(450,"GL","MISC",9,605)=""
^DD(450,"GL","MISC",10,606)=""
^DD(450,"GL","MISC",11,607)=""
^DD(450,"GL","MISC",12,608)=""
^DD(450,"GL","MISC",13,609)=""
^DD(450,"GL","MISC",14,606.1)=""
^DD(450,"GL","MISC",15,607.1)=""
^DD(450,"GL","MISC",16,608.1)=""
^DD(450,"GL","MISC",17,595)=""
^DD(450,"GL","MISC",18,596)=""
^DD(450,"GL","MISC",19,597)=""
^DD(450,"GL","MISC",20,83.1)=""
^DD(450,"GL","MISC",21,83.2)=""
^DD(450,"GL","MISC4",1,440)=""
^DD(450,"GL","MISC4",2,441)=""
^DD(450,"GL","MISC4",3,442)=""
^DD(450,"GL","MISC4",4,443)=""
^DD(450,"GL","MISC4",5,444)=""
^DD(450,"GL","MISC4",6,445)=""
^DD(450,"GL","MISC4",7,446)=""
^DD(450,"GL","MISC4",8,447)=""
^DD(450,"GL","MISC4",9,448)=""
^DD(450,"GL","MISC4",10,449)=""
^DD(450,"GL","MISC4",11,450)=""
^DD(450,"GL","MISC4",12,451)=""
^DD(450,"GL","MISC4",13,452)=""
^DD(450,"GL","MISC4",14,453)=""
^DD(450,"GL","MISC4",15,454)=""
^DD(450,"GL","MISC4",16,455)=""
^DD(450,"GL","MISC4",17,456)=""
^DD(450,"GL","MISC4",18,457)=""
^DD(450,"GL","MISC4",20,459)=""
^DD(450,"GL","MSD1",1,258)=""
^DD(450,"GL","MSD1",2,259)=""
^DD(450,"GL","MSD1",3,260)=""
^DD(450,"GL","MSD1",4,261)=""
^DD(450,"GL","MSD1",5,262)=""
^DD(450,"GL","MSD1",6,263)=""
^DD(450,"GL","MSD1",7,264)=""
^DD(450,"GL","MSD1",8,265)=""
^DD(450,"GL","MSD1",9,266)=""
^DD(450,"GL","MSD1",10,267)=""
^DD(450,"GL","MSD1",11,268)=""
^DD(450,"GL","MSD1",12,269)=""
^DD(450,"GL","MSD1",13,270)=""
^DD(450,"GL","MSD1",14,271)=""
^DD(450,"GL","MSD1",15,272)=""
^DD(450,"GL","MSD1",16,273)=""
^DD(450,"GL","MSD1",17,274)=""
^DD(450,"GL","MSD1",18,275)=""
^DD(450,"GL","MSD2",1,276)=""
^DD(450,"GL","MSD2",2,277)=""
^DD(450,"GL","MSD2",3,278)=""
^DD(450,"GL","MSD2",4,279)=""
^DD(450,"GL","MSD2",5,280)=""
^DD(450,"GL","MSD2",6,281)=""
^DD(450,"GL","MSD2",7,282)=""
^DD(450,"GL","MSD2",8,283)=""
^DD(450,"GL","MSD2",9,284)=""
^DD(450,"GL","MSD2",10,285)=""
^DD(450,"GL","MSD2",11,286)=""
^DD(450,"GL","MSD2",12,287)=""
^DD(450,"GL","MSD2",13,288)=""
^DD(450,"GL","MSD2",14,289)=""
^DD(450,"GL","OASDI",1,290)=""
^DD(450,"GL","OASDI",2,291)=""
^DD(450,"GL","OASDI",3,292)=""
^DD(450,"GL","OASDI",4,293)=""
^DD(450,"GL","OASDI",5,294)=""
^DD(450,"GL","OASDI",6,295)=""
^DD(450,"GL","OASDI",7,296)=""
^DD(450,"GL","OASDI",8,297)=""
^DD(450,"GL","OASDI",9,298)=""
^DD(450,"GL","OASDI",10,299)=""
^DD(450,"GL","OTHER",1,300)=""
^DD(450,"GL","OTHER",2,301)=""
^DD(450,"GL","OTHER",3,302)=""
^DD(450,"GL","OTHER",4,303)=""
^DD(450,"GL","OTHER",5,304)=""
^DD(450,"GL","OTHER",6,305)=""
^DD(450,"GL","OTHER",7,306)=""
^DD(450,"GL","OTHER",8,307)=""
^DD(450,"GL","OTHER",9,308)=""
^DD(450,"GL","OTHER",10,309)=""
^DD(450,"GL","OTHER",11,310)=""
^DD(450,"GL","OTHER",12,311)=""
^DD(450,"GL","OTHER",13,312)=""
^DD(450,"GL","OTHER",14,313)=""
^DD(450,"GL","OTHER",15,314)=""
^DD(450,"GL","OTHER",16,315)=""
^DD(450,"GL","OTHER",17,316)=""
^DD(450,"GL","OTHER",18,317)=""
^DD(450,"GL","PAY",1,534)=""
^DD(450,"GL","PAY",2,535)=""
^DD(450,"GL","PAY",3,536)=""
^DD(450,"GL","PAY",4,537)=""
^DD(450,"GL","PAY",5,538)=""
^DD(450,"GL","PAY",6,539)=""
^DD(450,"GL","PAY",7,540)=""
^DD(450,"GL","PAY",8,541)=""
^DD(450,"GL","PAY",9,542)=""
^DD(450,"GL","PAY",10,594)=""
^DD(450,"GL","PCD",1,168)=""
^DD(450,"GL","PCD",2,169)=""
^DD(450,"GL","PCD",3,170)=""
^DD(450,"GL","PCD",4,171)=""
^DD(450,"GL","PCD",5,172)=""
^DD(450,"GL","PCD",6,173)=""
^DD(450,"GL","PCD",7,174)=""
^DD(450,"GL","PCD",8,175)=""
^DD(450,"GL","PCD",9,176)=""
^DD(450,"GL","PCD",10,177)=""
^DD(450,"GL","PCD",11,178)=""
^DD(450,"GL","PCD",12,179)=""
^DD(450,"GL","PCD",13,180)=""
^DD(450,"GL","PREMIUM",1,543)=""
^DD(450,"GL","PREMIUM",2,544)=""
^DD(450,"GL","PREMIUM",3,545)=""
^DD(450,"GL","PREMIUM",4,546)=""
^DD(450,"GL","PREMIUM",5,547)=""
^DD(450,"GL","PREMIUM",6,548)=""
^DD(450,"GL","PREMIUM",7,549)=""
^DD(450,"GL","PREMIUM",8,550)=""
^DD(450,"GL","PREMIUM",9,551)=""
^DD(450,"GL","PREMIUM",10,552)=""
^DD(450,"GL","PREMIUM",11,553)=""
^DD(450,"GL","PREMIUM",12,554)=""
^DD(450,"GL","PREMIUM",13,555)=""
^DD(450,"GL","PREMIUM",14,556)=""
^DD(450,"GL","PREMIUM",15,557)=""
^DD(450,"GL","PREMIUM",16,558)=""
^DD(450,"GL","PREMIUM",17,559)=""
^DD(450,"GL","PREMIUM",18,560)=""
^DD(450,"GL","PREMIUM",19,561)=""
^DD(450,"GL","PREMIUM",20,562)=""
^DD(450,"GL","PREMIUM1",1,610)=""
^DD(450,"GL","PREMIUM1",2,611)=""
^DD(450,"GL","PREMIUM1",3,612)=""
^DD(450,"GL","PREMIUM1",4,613)=""
^DD(450,"GL","PREMIUM1",5,614)=""
^DD(450,"GL","PREMIUM1",6,615)=""
^DD(450,"GL","PREMIUM1",7,616)=""
^DD(450,"GL","PREMIUM1",8,617)=""
^DD(450,"GL","PREMIUM1",9,618)=""
^DD(450,"GL","PREMIUM1",10,619)=""
^DD(450,"GL","PREMIUM1",11,620)=""
^DD(450,"GL","PREMIUM1",12,621)=""
^DD(450,"GL","PREMIUM1",13,622)=""
^DD(450,"GL","PREMIUM1",14,623)=""
^DD(450,"GL","PREMIUM1",15,624)=""
^DD(450,"GL","PREMIUM1",16,625)=""
^DD(450,"GL","PREMIUM1",17,626)=""
^DD(450,"GL","PREMIUM1",18,627)=""
^DD(450,"GL","PREMIUM1",19,628)=""
^DD(450,"GL","PREMIUM1",20,629)=""
^DD(450,"GL","PREMIUM1",21,630)=""
^DD(450,"GL","PREMIUM1",22,631)=""
^DD(450,"GL","PVAE",1,155)=""
^DD(450,"GL","PVAE",2,156)=""
^DD(450,"GL","PVAE",3,157)=""
^DD(450,"GL","PVAE",4,158)=""
^DD(450,"GL","PVAE",5,159)=""
^DD(450,"GL","PVAE",6,160)=""
^DD(450,"GL","PVAE",7,161)=""
^DD(450,"GL","PVAE",8,162)=""
^DD(450,"GL","PVAE",9,163)=""
^DD(450,"GL","PVAE",10,164)=""
^DD(450,"GL","PVAE",11,165)=""
^DD(450,"GL","PVAE",12,166)=""
^DD(450,"GL","PVAE",13,167)=""
^DD(450,"GL","QSGP",1,318)=""
^DD(450,"GL","QSGP",2,319)=""
^DD(450,"GL","QSGP",3,320)=""
^DD(450,"GL","QSGP",4,321)=""
^DD(450,"GL","QSGP",5,322)=""
^DD(450,"GL","QSGP",6,323)=""
^DD(450,"GL","QSGP",7,324)=""
^DD(450,"GL","QSGP",8,325)=""
^DD(450,"GL","QSGP",9,326)=""
^DD(450,"GL","QSGP",10,327)=""
^DD(450,"GL","QSGP",11,328)=""
^DD(450,"GL","RETIRE",1,329)=""
^DD(450,"GL","RETIRE",2,330)=""
^DD(450,"GL","RETIRE",3,331)=""
^DD(450,"GL","RETIRE",4,332)=""
^DD(450,"GL","RETIRE",5,333)=""
^DD(450,"GL","RETIRE",6,334)=""
^DD(450,"GL","RETIRE",7,335)=""
^DD(450,"GL","RETIRE",8,336)=""
^DD(450,"GL","RETIRE",9,337)=""
^DD(450,"GL","RETIRE",10,338)=""
^DD(450,"GL","SALLOT",1,339)=""
^DD(450,"GL","SALLOT",2,340)=""
^DD(450,"GL","SALLOT",3,341)=""
^DD(450,"GL","SALLOT",4,342)=""
^DD(450,"GL","SICK",1,508)=""
^DD(450,"GL","SICK",2,509)=""
^DD(450,"GL","SICK",3,510)=""
^DD(450,"GL","SICK",4,511)=""
^DD(450,"GL","SICK",5,512)=""
^DD(450,"GL","SICK",6,513)=""
^DD(450,"GL","SICK",7,514)=""
^DD(450,"GL","SICK",8,593)=""
^DD(450,"GL","SICK",9,710)=""
^DD(450,"GL","SICK",10,711)=""
^DD(450,"GL","SICK",11,712)=""
^DD(450,"GL","SICK",12,713)=""
^DD(450,"GL","SICK",13,714)=""
^DD(450,"GL","SICK",14,715)=""
^DD(450,"GL","SICK",15,716)=""
^DD(450,"GL","SICK",16,717)=""
^DD(450,"GL","STATE",1,372)=""
^DD(450,"GL","STATE",2,373)=""
^DD(450,"GL","STATE",3,374)=""
^DD(450,"GL","STATE",4,375)=""
^DD(450,"GL","STATE",5,376)=""
^DD(450,"GL","STATE",6,377)=""
^DD(450,"GL","STATE",7,378)=""
^DD(450,"GL","STATE",8,379)=""
^DD(450,"GL","STATE",9,380)=""
^DD(450,"GL","STATE",10,381)=""
^DD(450,"GL","STATE",11,382)=""
^DD(450,"GL","STATE",12,383)=""
^DD(450,"GL","STATE",13,384)=""
^DD(450,"GL","STATE",14,385)=""
^DD(450,"GL","STATE",15,386)=""
^DD(450,"GL","STATE",16,387)=""
^DD(450,"GL","STATE",17,388)=""
^DD(450,"GL","STATE",18,389)=""
^DD(450,"GL","STATE",19,390)=""
^DD(450,"GL","STATE",20,391)=""
^DD(450,"GL","STATE",21,392)=""
^DD(450,"GL","STATE",22,393)=""
^DD(450,"GL","STATE",23,394)=""
^DD(450,"GL","T38",1,119)=""
^DD(450,"GL","T38",2,120)=""
^DD(450,"GL","T38",3,121)=""
^DD(450,"GL","T38",4,122)=""
^DD(450,"GL","T38",5,123)=""
^DD(450,"GL","T38",6,124)=""
^DD(450,"GL","T38",7,125)=""
^DD(450,"GL","T38",8,126)=""
^DD(450,"GL","T38",9,127)=""
^DD(450,"GL","T38",10,128)=""
^DD(450,"GL","T38",11,129)=""
^DD(450,"GL","T38",12,130)=""
^DD(450,"GL","T38",13,131)=""
^DD(450,"GL","T38",14,132)=""
^DD(450,"GL","T38",15,133)=""
^DD(450,"GL","T38",16,134)=""
^DD(450,"GL","T38",17,135)=""
^DD(450,"GL","T38",18,136)=""
^DD(450,"GL","T38",19,137)=""
^DD(450,"GL","T38",20,138)=""
^DD(450,"GL","T38",21,139)=""
^DD(450,"GL","T38",22,140)=""
^DD(450,"GL","T38",23,141)=""
^DD(450,"GL","T38",24,142)=""
^DD(450,"GL","T38",25,143)=""
^DD(450,"GL","T38",26,144)=""
^DD(450,"GL","T38",27,145)=""
^DD(450,"GL","T38",28,146)=""
^DD(450,"GL","T38",29,147)=""
^DD(450,"GL","T38",30,148)=""
^DD(450,"GL","T38",31,149)=""
^DD(450,"GL","T38",32,150)=""
^DD(450,"GL","T38",33,151)=""
^DD(450,"GL","T38",34,152)=""
^DD(450,"GL","T38",35,153)=""
^DD(450,"GL","T38",36,154)=""
^DD(450,"GL","T38",37,701)=""
^DD(450,"GL","T38",38,702)=""
^DD(450,"GL","T38",39,703)=""
^DD(450,"GL","T38",40,704)=""
^DD(450,"GL","T38",41,705)=""
^DD(450,"GL","TSP1",1,395)=""
^DD(450,"GL","TSP1",2,396)=""
^DD(450,"GL","TSP1",3,397)=""
^DD(450,"GL","TSP1",4,398)=""
^DD(450,"GL","TSP1",5,399)=""
^DD(450,"GL","TSP1",6,400)=""
^DD(450,"GL","TSP1",7,401)=""
^DD(450,"GL","TSP1",8,402)=""
^DD(450,"GL","TSP1",9,403)=""
^DD(450,"GL","TSP1",10,404)=""
^DD(450,"GL","TSP1",11,405)=""
^DD(450,"GL","TSP1",12,406)=""
^DD(450,"GL","TSP1",13,407)=""
^DD(450,"GL","TSP1",14,408)=""
^DD(450,"GL","TSP1",15,409)=""
^DD(450,"GL","TSP1",16,410)=""
^DD(450,"GL","TSP1",17,411)=""
^DD(450,"GL","TSP1",18,412)=""
^DD(450,"GL","TSP2",1,413)=""
^DD(450,"GL","TSP2",2,414)=""
^DD(450,"GL","TSP2",3,415)=""
^DD(450,"GL","TSP2",4,416)=""
^DD(450,"GL","TSP2",5,417)=""
^DD(450,"GL","TSP2",6,418)=""
^DD(450,"GL","TSP2",7,419)=""
^DD(450,"GL","TSP2",8,420)=""
^DD(450,"GL","TSP2",9,421)=""
^DD(450,"GL","TSP2",10,422)=""
^DD(450,"GL","TSP2",11,423)=""
^DD(450,"GL","TSP2",12,424)=""
^DD(450,"GL","TSP2",13,425)=""
^DD(450,"GL","TSP2",14,426)=""
^DD(450,"GL","TSP2",15,427)=""
^DD(450,"GL","UNIFORM",1,563)=""
^DD(450,"GL","UNIFORM",2,564)=""
^DD(450,"GL","UNIFORM",3,565)=""
^DD(450,"GL","UNION",1,428)=""
^DD(450,"GL","UNION",2,429)=""
^DD(450,"GL","UNION",3,430)=""
^DD(450,"GL","UNION",4,431)=""
^DD(450,"GL","UNION",5,432)=""
^DD(450,"GL","UNION",6,433)=""
^DD(450,"GL","UNION",7,434)=""
^DD(450,"GL","VALLOT",1,435)=""
^DD(450,"GL","VALLOT",2,436)=""
^DD(450,"GL","VALLOT",3,437)=""
^DD(450,"GL","VALLOT",4,438)=""
^DD(450,"GL","VALLOT",5,439)=""
^DD(450,"GL","VALLOT",6,439.1)=""
^DD(450,"GL","VALLOT",7,439.2)=""
^DD(450,"GL","VALLOT",8,439.3)=""
^DD(450,"GL","VALLOT",9,439.4)=""
^DD(450,"GL","VCS",1,566)=""
^DD(450,"GL","VCS",2,567)=""
^DD(450,"GL","VCS",3,568)=""
^DD(450,"GL","VCS",4,569)=""
^DD(450,"GL","VCS",5,570)=""
^DD(450,"GL","VCS",6,571)=""
^DD(450,"GL","VCS",7,572)=""
^DD(450,"GL","VCS",8,573)=""
^DD(450,"GL","VCS",9,574)=""
^DD(450,"GL","VCS",10,575)=""
^DD(450,"GL","VCS",11,576)=""
^DD(450,"GL","VCS",12,577)=""
^DD(450,"GL","VCS",13,578)=""
^DD(450,"GL","VCS",14,579)=""
^DD(450,"GL","VCS",15,580)=""
^DD(450,"GL","VCS",16,581)=""
^DD(450,"GL","VCS",17,582)=""
^DD(450,"GL","VCS",18,583)=""
^DD(450,"GL","VCS",19,584)=""
^DD(450,"GL","VCS",20,585)=""
^DD(450,"GL","VCS",21,586)=""
^DD(450,"GL","VCS",22,586.1)=""
^DD(450,"IX",.01)=""
^DD(450,"IX",7)=""
^DD(450,"IX",8)=""
^DD(450,"IX",458)=""
^DD(450,"RQ",.01)=""
^DD(450,"RQ",8)=""
^DD(450,"SB",450.0632,632)=""
^DD(450,"SB",450.0633,633)=""
^DD(450,"SB",450.0757,757)=""
^DD(450.0632,0)="MI REVIEW GROUP SUB-FIELD^^.02^2"
^DD(450.0632,0,"DT")="2941114"
^DD(450.0632,0,"IX","B",450.0632,.01)=""
^DD(450.0632,0,"NM","MI REVIEW GROUP")=""
^DD(450.0632,0,"UP")="450"
^DD(450.0632,.01,0)="MI REVIEW GROUP^MP452.3'^PRSE(452.3,^0;1^Q"
^DD(450.0632,.01,1,0)="^.1"
^DD(450.0632,.01,1,1,0)="450.0632^B"
^DD(450.0632,.01,1,1,1)="S ^PRSPC(DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(450.0632,.01,1,1,2)="K ^PRSPC(DA(1),5,""B"",$E(X,1,30),DA)"
^DD(450.0632,.01,1,2,0)="450^ARG"
^DD(450.0632,.01,1,2,1)="S ^PRSPC(""ARG"",$E(X,1,30),DA(1),DA)="""""
^DD(450.0632,.01,1,2,2)="K ^PRSPC(""ARG"",$E(X,1,30),DA(1),DA)"
^DD(450.0632,.01,1,2,"%D",0)="^^2^2^2940225^"
^DD(450.0632,.01,1,2,"%D",1,0)="This cross-reference is used by the Education Tracking package to find all"
^DD(450.0632,.01,1,2,"%D",2,0)="individuals with a given MI REVIEW GROUP."
^DD(450.0632,.01,1,2,"DT")="2940225"
^DD(450.0632,.01,8.5)="""@"""
^DD(450.0632,.01,21,0)="^^1^1^2941117^^^^"
^DD(450.0632,.01,21,1,0)="MI Review Group for education tracking."
^DD(450.0632,.01,"DT")="2940225"
^DD(450.0632,.02,0)="DATE ASSIGNED^RD^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(450.0632,.02,21,0)="^^1^1^2941117^"
^DD(450.0632,.02,21,1,0)="This field contains the date a review group was assigned to an employee."
^DD(450.0632,.02,"DT")="2941114"
^DD(450.0632,"B","DATE ASSIGNED",.02)=""
^DD(450.0632,"B","MI REVIEW GROUP",.01)=""
^DD(450.0632,"GL",0,1,.01)=""
^DD(450.0632,"GL",0,2,.02)=""
^DD(450.0632,"IX",.01)=""
^DD(450.0632,"RQ",.02)=""
^DD(450.0633,0)="MANDATORY CLASS SUB-FIELD^^.03^3"
^DD(450.0633,0,"DT")="2941114"
^DD(450.0633,0,"IX","B",450.0633,.01)=""
^DD(450.0633,0,"NM","MANDATORY CLASS")=""
^DD(450.0633,0,"UP")="450"
^DD(450.0633,.01,0)="MANDATORY CLASS^M*P452.1'^PRSE(452.1,^0;1^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(450.0633,.01,1,0)="^.1"
^DD(450.0633,.01,1,1,0)="450.0633^B"
^DD(450.0633,.01,1,1,1)="S ^PRSPC(DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(450.0633,.01,1,1,2)="K ^PRSPC(DA(1),6,""B"",$E(X,1,30),DA)"
^DD(450.0633,.01,1,2,0)="450^AMC"
^DD(450.0633,.01,1,2,1)="S ^PRSPC(""AMC"",$E(X,1,30),DA(1),DA)="""""
^DD(450.0633,.01,1,2,2)="K ^PRSPC(""AMC"",$E(X,1,30),DA(1),DA)"
^DD(450.0633,.01,1,2,"%D",0)="^^2^2^2940304^"
^DD(450.0633,.01,1,2,"%D",1,0)="This cross-reference is used by the Education Tracking package to find all"
^DD(450.0633,.01,1,2,"%D",2,0)="individuals with a given MANDATORY CLASS."
^DD(450.0633,.01,1,2,"DT")="2940304"
^DD(450.0633,.01,3)="Enter the mandatory classes for this individual."
^DD(450.0633,.01,12)="Only mandatory classes are selectable."
^DD(450.0633,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""""""
^DD(450.0633,.01,21,0)="^^1^1^2941115^^^"
^DD(450.0633,.01,21,1,0)="This multiple field contains all the mandatory classes for an individual."
^DD(450.0633,.01,23,0)="^^5^5^2941115^^^"
^DD(450.0633,.01,23,1,0)="This field should only be edited through the appropriate Education"
^DD(450.0633,.01,23,2,0)="Tracking enter/edit options.  The MANDATORY CLASS multiple is"
^DD(450.0633,.01,23,3,0)="automatically populated/depopulated based on the MI REVIEW GROUP entries"
^DD(450.0633,.01,23,4,0)="for this individual.  Individual classes may also be entered/deleted"
^DD(450.0633,.01,23,5,0)="through the appropriate Education Tracking enter/edit options."
^DD(450.0633,.01,"DEL",1,0)="I $P(^PRSPC(DA(1),6,DA,0),U,2) D EN^DDIOL(""This class belongs to a mandatory review group and may not be deleted"") I 1"
^DD(450.0633,.01,"DT")="2940304"
^DD(450.0633,.02,0)="CLASS COUNT^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(450.0633,.02,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(450.0633,.02,21,0)="^^2^2^2941115^^"
^DD(450.0633,.02,21,1,0)="This field contains the number of times this class appears in an"
^DD(450.0633,.02,21,2,0)="individual's MI REVIEW GROUPS or zero (0) if it is an individual class."
^DD(450.0633,.02,23,0)="^^7^7^2941115^^"
^DD(450.0633,.02,23,1,0)="This field should only be edited through the appropriate Education"
^DD(450.0633,.02,23,2,0)="Tracking enter/edit options.  This field is automatically updated when an"
^DD(450.0633,.02,23,3,0)="MI REVIEW GROUP or an individual MANDATORY CLASS is added to or taken away"
^DD(450.0633,.02,23,4,0)="from an individual.  A zero (0) signifies that this is an individual"
^DD(450.0633,.02,23,5,0)="MANDATORY CLASS and does not belong to any of the individual's MI REVIEW"
^DD(450.0633,.02,23,6,0)="GROUPS.  A one (1) means the class appears in one MI REVIEW GROUP.  A two"
^DD(450.0633,.02,23,7,0)="(2) means the class appears in two MI REVIEW GROUPS.  And so on..."
^DD(450.0633,.02,"DT")="2940225"
^DD(450.0633,.03,0)="DATE ASSIGNED^RD^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(450.0633,.03,21,0)="^^2^2^2941117^"
^DD(450.0633,.03,21,1,0)="This field contains the date a mandatory training class was assigned to an"
^DD(450.0633,.03,21,2,0)="employee."
^DD(450.0633,.03,"DT")="2941114"
^DD(450.0633,"B","CLASS COUNT",.02)=""
^DD(450.0633,"B","DATE ASSIGNED",.03)=""
^DD(450.0633,"B","MANDATORY CLASS",.01)=""
^DD(450.0633,"GL",0,1,.01)=""
^DD(450.0633,"GL",0,2,.02)=""
^DD(450.0633,"GL",0,3,.03)=""
^DD(450.0633,"IX",.01)=""
^DD(450.0633,"RQ",.03)=""
^DD(450.0757,0)="LABOR DISTRIBUTION SUB-FIELD^^4^5"
^DD(450.0757,0,"DT")="3030721"
^DD(450.0757,0,"IX","B",450.0757,.01)=""
^DD(450.0757,0,"NM","LABOR DISTRIBUTION")=""
^DD(450.0757,0,"UP")="450"
^DD(450.0757,.01,0)="LABOR DISTRIBUTION^NJ1,0^^0;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(450.0757,.01,1,0)="^.1"
^DD(450.0757,.01,1,1,0)="450.0757^B"
^DD(450.0757,.01,1,1,1)="S ^PRSPC(DA(1),""LD"",""B"",$E(X,1,30),DA)="""""
^DD(450.0757,.01,1,1,2)="K ^PRSPC(DA(1),""LD"",""B"",$E(X,1,30),DA)"
^DD(450.0757,.01,3)="Type a Number between 1 and 4, 0 Decimal Digits."
^DD(450.0757,.01,21,0)="^^1^1^3030722^^"
^DD(450.0757,.01,21,1,0)="The number representing Labor Distributions 1 through 4."
^DD(450.0757,.01,"DT")="3030722"
^DD(450.0757,1,0)="CODE^F^^0;2^K:$L(X)>4!($L(X)<4) X"
^DD(450.0757,1,3)="Answer must be 4 characters in length."
^DD(450.0757,1,21,0)="^^1^1^3030721^"
^DD(450.0757,1,21,1,0)=" One of four possible Labor Distribution codes assigned to the employee."
^DD(450.0757,1,"DT")="3030721"
^DD(450.0757,2,0)="PERCENT^NJ4,2^^0;3^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3.N) X"
^DD(450.0757,2,3)="Type a number between 0 and 1, 2 Decimal Digits."
^DD(450.0757,2,21,0)="^^1^1^3030721^"
^DD(450.0757,2,21,1,0)="The percentage assigned to the Labor Distribution code."
^DD(450.0757,2,"DT")="3030909"
^DD(450.0757,3,0)="COST CENTER^F^^0;4^K:$L(X)>4!($L(X)<4) X"
^DD(450.0757,3,3)="Answer must be 4 characters in length."
^DD(450.0757,3,21,0)="^^1^1^3030722^^^"
^DD(450.0757,3,21,1,0)="The Cost Center assigned to the Labor Distribution code."
^DD(450.0757,3,"DT")="3030829"
^DD(450.0757,4,0)="FUND CTRL PT^F^^0;5^K:$L(X)>3!($L(X)<3) X"
^DD(450.0757,4,3)="Answer must be 3 characters in length."
^DD(450.0757,4,21,0)="^^1^1^3030721^"
^DD(450.0757,4,21,1,0)="The Fund Control Point assigned to the Labor Distribution code."
^DD(450.0757,4,"DT")="3030721"
^DD(450.0757,"B","CODE",1)=""
^DD(450.0757,"B","COST CENTER",3)=""
^DD(450.0757,"B","FUND CTRL PT",4)=""
^DD(450.0757,"B","LABOR DISTRIBUTION",.01)=""
^DD(450.0757,"B","PERCENT",2)=""
^DD(450.0757,"GL",0,1,.01)=""
^DD(450.0757,"GL",0,2,1)=""
^DD(450.0757,"GL",0,3,2)=""
^DD(450.0757,"GL",0,4,3)=""
^DD(450.0757,"GL",0,5,4)=""
^DD(450.0757,"IX",.01)=""
^DD(450.11,0)="FIELD^^2^3"
^DD(450.11,0,"DDA")="N"
^DD(450.11,0,"DT")="2910703"
^DD(450.11,0,"IX","B",450.11,.01)=""
^DD(450.11,0,"NM","PAID DOWNLOAD MESSAGE ERROR")=""
^DD(450.11,0,"VR")="4.0"
^DD(450.11,.01,0)="ID^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(450.11,.01,1,0)="^.1"
^DD(450.11,.01,1,1,0)="450.11^B"
^DD(450.11,.01,1,1,1)="S ^PRSD(450.11,""B"",$E(X,1,30),DA)="""""
^DD(450.11,.01,1,1,2)="K ^PRSD(450.11,""B"",$E(X,1,30),DA)"
^DD(450.11,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(450.11,.01,21,0)="^^3^3^2911122^"
^DD(450.11,.01,21,1,0)="This field contains the code for the type of download; the month, day"
^DD(450.11,.01,21,2,0)="and year (MMDDYY) it was created; and the station number the message"
^DD(450.11,.01,21,3,0)="pertains to. For example: TYPE-DATE-STATION NUMBER."
^DD(450.11,1,0)="DATE^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(450.11,1,21,0)="^^1^1^2911122^^"
^DD(450.11,1,21,1,0)=" This field is the date and time the error message was created."
^DD(450.11,1,"DT")="2910703"
^DD(450.11,2,0)="DESCRIPTION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(450.11,2,1,0)="^.1^^0"
^DD(450.11,2,3)="Answer must be 1-60 characters in length."
^DD(450.11,2,21,0)="^^1^1^2911122^"
^DD(450.11,2,21,1,0)="This field is the text of the error message."
^DD(450.11,2,"DT")="2911219"
^DD(450.11,"B","DATE",1)=""
^DD(450.11,"B","DESCRIPTION",2)=""
^DD(450.11,"B","ID",.01)=""
^DD(450.11,"GL",0,1,.01)=""
^DD(450.11,"GL",0,2,1)=""
^DD(450.11,"GL",0,3,2)=""
^DD(450.11,"IX",.01)=""
^DD(450.11,"RQ",.01)=""
^DD(450.12,0)="FIELD^^3^4"
^DD(450.12,0,"DDA")="N"
^DD(450.12,0,"DT")="2911023"
^DD(450.12,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(450.12,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(450.12,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(450.12,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(450.12,0,"IX","B",450.12,.01)=""
^DD(450.12,0,"IX","C",450.12,1)=""
^DD(450.12,0,"NM","PAID DOWNLOAD MESSAGE")=""
^DD(450.12,0,"VR")="4.0"
^DD(450.12,.01,0)="ID^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(450.12,.01,1,0)="^.1"
^DD(450.12,.01,1,1,0)="450.12^B"
^DD(450.12,.01,1,1,1)="S ^PRSD(450.12,""B"",$E(X,1,30),DA)="""""
^DD(450.12,.01,1,1,2)="K ^PRSD(450.12,""B"",$E(X,1,30),DA)"
^DD(450.12,.01,3)="Answer must be 1-30 characters in length."
^DD(450.12,.01,21,0)="^^1^1^2911122^"
^DD(450.12,.01,21,1,0)="This field contains the internal entry number of the download message."
^DD(450.12,.01,"DT")="2911023"
^DD(450.12,1,0)="TYPE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(450.12,1,1,0)="^.1"
^DD(450.12,1,1,1,0)="450.12^C"
^DD(450.12,1,1,1,1)="S ^PRSD(450.12,""C"",$E(X,1,30),DA)="""""
^DD(450.12,1,1,1,2)="K ^PRSD(450.12,""C"",$E(X,1,30),DA)"
^DD(450.12,1,1,1,"DT")="2910701"
^DD(450.12,1,3)="Answer must be 1-30 characters in length."
^DD(450.12,1,21,0)="^^4^4^2911122^"
^DD(450.12,1,21,1,0)="This field contains the code for the type of download; the month, day"
^DD(450.12,1,21,2,0)="and year (MMDDYY) it was created; the station number it pertains to; and"
^DD(450.12,1,21,3,0)="the sequence number of the message within the total download message count."
^DD(450.12,1,21,4,0)="For example: TYPE-MMDDYY-STATION NUMBER-SEQUENCE NUMBER"
^DD(450.12,1,"DT")="2911023"
^DD(450.12,2,0)="STATUS^S^R:RECEIVED;S:SERVED;^0;3^Q"
^DD(450.12,2,3)=""
^DD(450.12,2,21,0)="^^3^3^2911122^"
^DD(450.12,2,21,1,0)="This field identifies the status of the download message. When the message"
^DD(450.12,2,21,2,0)="arrives it is marked as RECEIVED. After the message has been processed it"
^DD(450.12,2,21,3,0)="is marked as SERVED."
^DD(450.12,2,"DT")="2911023"
^DD(450.12,3,0)="DATE RECEIVED^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(450.12,3,3)=""
^DD(450.12,3,21,0)="^^1^1^2911122^"
^DD(450.12,3,21,1,0)="This field contains the date and time the download message was received."
^DD(450.12,3,"DT")="2910701"
^DD(450.12,"B","DATE RECEIVED",3)=""
^DD(450.12,"B","ID",.01)=""
^DD(450.12,"B","STATUS",2)=""
^DD(450.12,"B","TYPE",1)=""
^DD(450.12,"GL",0,1,.01)=""
^DD(450.12,"GL",0,2,1)=""
^DD(450.12,"GL",0,3,2)=""
^DD(450.12,"GL",0,4,3)=""
^DD(450.12,"IX",.01)=""
^DD(450.12,"IX",1)=""
^DD(450.12,"RQ",.01)=""
^DD(452,0)="FIELD^^77^31"
^DD(452,0,"DDA")="N"
^DD(452,0,"DT")="2950112"
^DD(452,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(452,0,"ID",2)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(452,0,"IX","AB",452,.01)=""
^DD(452,0,"IX","AC",452,1)=""
^DD(452,0,"IX","AD",452,2)=""
^DD(452,0,"IX","AE",452,.01)=""
^DD(452,0,"IX","AF",452,1)=""
^DD(452,0,"IX","AK",452,1)=""
^DD(452,0,"IX","AL",452,2)=""
^DD(452,0,"IX","B",452,.01)=""
^DD(452,0,"IX","CLS",452,1)=""
^DD(452,0,"IX","D",452,2)=""
^DD(452,0,"IX","D1",452,1)=""
^DD(452,0,"IX","E",452,1)=""
^DD(452,0,"IX","F",452,5)=""
^DD(452,0,"IX","H",452,2)=""
^DD(452,0,"IX","LOC1",452,14)=""
^DD(452,0,"IX","LOC2",452,5)=""
^DD(452,0,"IX","SER",452,12)=""
^DD(452,0,"NM","PRSE STUDENT EDUCATION TRACKING")=""
^DD(452,0,"VR")="4.0"
^DD(452,.01,0)="STUDENT NAME^RP200'^VA(200,^0;1^Q"
^DD(452,.01,.1)="NAME OF STUDENT"
^DD(452,.01,1,0)="^.1"
^DD(452,.01,1,1,0)="452^B"
^DD(452,.01,1,1,1)="S ^PRSE(452,""B"",$E(X,1,30),DA)="""""
^DD(452,.01,1,1,2)="K ^PRSE(452,""B"",$E(X,1,30),DA)"
^DD(452,.01,1,1,"%D",0)="2^^2^2^2941031^"
^DD(452,.01,1,1,"%D",1,0)="This X-Ref is the main index on student tracking file which indexes file by student name"
^DD(452,.01,1,1,"%D",2,0)="which is a pointer to the New Person (#200) file."
^DD(452,.01,1,2,0)="452^AB^MUMPS"
^DD(452,.01,1,2,1)="S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3),XX=$P(PDATA,U,21) S:'(YY="""")&'(XX="""")&(+ZZ>0) ^PRSE(452,""AA"",XX,$E(X,1,30),YY,(9999999-ZZ),DA)="""" K PDATA,YY,ZZ,XX"
^DD(452,.01,1,2,2)="S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3),XX=$P(PDATA,U,21) K:'(YY="""")&'(XX="""")&(+ZZ>0) ^PRSE(452,""AA"",XX,$E(X,1,30),YY,(9999999-ZZ),DA) K PDATA,YY,ZZ,XX"
^DD(452,.01,1,2,"%D",0)="^^4^4^2950728^^^^"
^DD(452,.01,1,2,"%D",1,0)="This MUMPS Cross reference indicates the latest time/date a particular type"
^DD(452,.01,1,2,"%D",2,0)="of inservice class was taken. It includes the class type, the class, the"
^DD(452,.01,1,2,"%D",3,0)="#200 File pointer for the employee, and the inverse start date for the"
^DD(452,.01,1,2,"%D",4,0)="class."
^DD(452,.01,1,2,"DT")="2930403"
^DD(452,.01,1,3,0)="452^AE^MUMPS"
^DD(452,.01,1,3,1)="S DATA=$G(^PRSE(452,DA,0)),DATA(1)=$S('($P($G(^PRSE(452,DA,6)),U)=""""):$P(^(6),U),1:""L"") I $P(DATA,U,21)'="""",'(DATA(1)="""") S ^PRSE(452,""G"",$P(DATA,U,21),DATA(1),X,DA)="""" K DATA"
^DD(452,.01,1,3,2)="S DATA=$G(^PRSE(452,DA,0)),DATA(1)=$S('($P($G(^PRSE(452,DA,6)),U)=""""):$P(^(6),U),1:""L"") I $P(DATA,U,21)'="""",'(DATA(1)="""") K ^PRSE(452,""G"",$P(DATA,U,21),DATA(1),X,DA) K DATA"
^DD(452,.01,1,3,"%D",0)="^^1^1^2941031^"
^DD(452,.01,1,3,"%D",1,0)="Indexes continuing education classes by type (local/non-local)."
^DD(452,.01,1,3,"DT")="2930618"
^DD(452,.01,3)=""
^DD(452,.01,21,0)="^^1^1^2940110^^^^"
^DD(452,.01,21,1,0)="This is the name of the employee who attended this program/class."
^DD(452,.01,23,0)="^^1^1^2940110^^^^"
^DD(452,.01,23,1,0)="POINTER TO NEW PERSON FILE"
^DD(452,.01,"DT")="2930618"
^DD(452,1,0)="PROGRAM/CLASS TITLE^RFX^^0;2^S X=$$UP^XLFSTR(X) K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>53!($L(X)<2) X"
^DD(452,1,.1)="NAME OF PROGRAM OR CLASS"
^DD(452,1,1,0)="^.1"
^DD(452,1,1,1,0)="452^E^MUMPS"
^DD(452,1,1,1,1)="S ^PRSE(452,""CLAS"",$P(^PRSE(452,DA,0),U),$E(X,1,53),DA)="""""
^DD(452,1,1,1,2)="K ^PRSE(452,""CLAS"",$P(^PRSE(452,DA,0),U),$E(X,1,53),DA)"
^DD(452,1,1,1,"%D",0)="^^3^3^2950728^"
^DD(452,1,1,1,"%D",1,0)="Indicates the latest date/time a particular class was taken. It"
^DD(452,1,1,1,"%D",2,0)="includes the File 200 pointer for the employee and the inverse start"
^DD(452,1,1,1,"%D",3,0)="date of the class."
^DD(452,1,1,1,"DT")="2920605"
^DD(452,1,1,2,0)="452^CLS"
^DD(452,1,1,2,1)="S ^PRSE(452,""CLS"",$E(X,1,53),DA)="""""
^DD(452,1,1,2,2)="K ^PRSE(452,""CLS"",$E(X,1,53),DA)"
^DD(452,1,1,2,"DT")="2920702"
^DD(452,1,1,3,0)="452^AC^MUMPS"
^DD(452,1,1,3,1)="S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,3),ZZ=$P(PDATA,U,21) S:(+PDATA>0)&(+YY>0)&'(ZZ="""") ^PRSE(452,""AA"",ZZ,+PDATA,$E(X,1,53),(9999999-YY),DA)="""" K PDATA,YY,ZZ"
^DD(452,1,1,3,2)="S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,3),ZZ=$P(PDATA,U,21) K:(+PDATA>0)&(+YY>0)&'(ZZ="""") ^PRSE(452,""AA"",ZZ,+PDATA,$E(X,1,53),(9999999-YY),DA) K PDATA,YY,ZZ"
^DD(452,1,1,3,"%D",0)="^^1^1^2950728^^^^"
^DD(452,1,1,3,"%D",1,0)="See description on AB MUMPS cross reference."
^DD(452,1,1,3,"DT")="2930403"
^DD(452,1,1,4,0)="452^AK^MUMPS"
^DD(452,1,1,4,1)="S VA200DA=+$G(^PRSE(452,DA,0)) S:'$D(^PRSE(452,""AK"",X)) ^PRSE(452,""AK"",X,DA)=$$EN7^PRSEUTL3(X,VA200DA,DA)"
^DD(452,1,1,4,2)="I $D(^PRSE(452,""AK"",X,DA)) X ""S PRSENM=0,VA200DA=+$G(^(0)) F  S PRSENM=$O(^PRSE(452,""""CLS"""",X,PRSENM)) Q:PRSENM'>0!(PRSENM'=DA)"" S:PRSENM>0 ^PRSE(452,""AK"",X,PRSENM)=$$EN7^PRSEUTL3(X,VA200DA,DA) K ^PRSE(452,""AK"",X,DA),PRSENM"
^DD(452,1,1,4,"%D",0)="^^2^2^2941117^^^^"
^DD(452,1,1,4,"%D",1,0)="This cross reference is used to look up each class which has been entered"
^DD(452,1,1,4,"%D",2,0)="in the Education Tracking File."
^DD(452,1,1,4,"DT")="2941117"
^DD(452,1,1,5,0)="452^AF^MUMPS"
^DD(452,1,1,5,1)="D SALCLS1^PRSEUTL3"
^DD(452,1,1,5,2)="D DALCLS1^PRSEUTL3"
^DD(452,1,1,5,"%D",0)="^^1^1^2941101^^"
^DD(452,1,1,5,"%D",1,0)="Indexes file by each class/date occurrence."
^DD(452,1,1,5,"DT")="2930618"
^DD(452,1,1,6,0)="452^D1^MUMPS"
^DD(452,1,1,6,1)="S PRSE=$G(^PRSE(452,DA,0)) I +$P(PRSE,U,3)=$P(PRSE,U,3),'($P(PRSE,U,2)="""") S ^PRSE(452,""DAT"",$P(PRSE,U,2),(9999999-+$P(PRSE,U,3)),DA)="""""
^DD(452,1,1,6,2)="S PRSE=$G(^PRSE(452,DA,0)) I +$P(PRSE,U,3)=$P(PRSE,U,3),'($P(PRSE,U,2)="""") K ^PRSE(452,""DAT"",$P(PRSE,U,2),(9999999-+$P(PRSE,U,3)),DA)"
^DD(452,1,1,6,"%D",0)="^^1^1^2931015^^"
^DD(452,1,1,6,"%D",1,0)=" See description for D X-Ref of file 452."
^DD(452,1,1,6,"DT")="2930825"
^DD(452,1,3)="Answer must be 2-53 characters in length"
^DD(452,1,4)="S DIC=""^PRSE(452.1,"",DIC(0)=""EQ"",D=""B"" D DQ^DICQ"
^DD(452,1,21,0)="^^1^1^2941005^^^^"
^DD(452,1,21,1,0)="This is the name of the program/class attended."
^DD(452,1,23,0)="^^1^1^2941005^^^^"
^DD(452,1,23,1,0)="FREE TEXT NAME OF EDUCATION PROGRAM/CLASS TITLE FILE ^PRSE(452.1, ENTRY."
^DD(452,1,"DT")="2970515"
^DD(452,2,0)="BEGINNING DATE^RDXO^^0;3^S PRSE=""S"" D EN10^PRSEUTL2"
^DD(452,2,.1)="DATE PROGRAM/CLASS BEGAN"
^DD(452,2,1,0)="^.1^^-1"
^DD(452,2,1,1,0)="452^D^MUMPS"
^DD(452,2,1,1,1)="S PRSE=$G(^PRSE(452,DA,0)) I +X=X,'($P(PRSE,U,2)="""") S ^PRSE(452,""DAT"",$P(PRSE,U,2),(9999999-X),DA)="""""
^DD(452,2,1,1,2)="S PRSE=$G(^PRSE(452,DA,0)) I +X=X,'($P(PRSE,U,2)="""") K ^PRSE(452,""DAT"",$P(PRSE,U,2),(9999999-X),DA)"
^DD(452,2,1,1,"%D",0)="^^1^1^2940106^^^^"
^DD(452,2,1,1,"%D",1,0)="This an inverted date mumps X-Ref by Class/Date for File 452."
^DD(452,2,1,1,"DT")="2931012"
^DD(452,2,1,2,0)="452^AD^MUMPS"
^DD(452,2,1,2,1)="S PDATA=^PRSE(452,DA,0),ZZ=$P(PDATA,U,2),YY=$P(PDATA,U,21) S:(+PDATA>0)&'(ZZ="""")&'(YY="""") ^PRSE(452,""AA"",YY,+PDATA,ZZ,(9999999-+X),DA)="""" K PDATA,ZZ,YY"
^DD(452,2,1,2,2)="S PDATA=^PRSE(452,DA,0),ZZ=$P(PDATA,U,2),YY=$P(PDATA,U,21) K:(+PDATA>0)&'(ZZ="""")&'(YY="""") ^PRSE(452,""AA"",YY,+PDATA,ZZ,(9999999-+X),DA) K PDATA,ZZ,YY"
^DD(452,2,1,2,"%D",0)="^^1^1^2950728^^^"
^DD(452,2,1,2,"%D",1,0)="See description for the AB MUMPS cross reference."
^DD(452,2,1,2,"DT")="2930403"
^DD(452,2,1,3,0)="452^H"
^DD(452,2,1,3,1)="S ^PRSE(452,""H"",$E(X,1,30),DA)="""""
^DD(452,2,1,3,2)="K ^PRSE(452,""H"",$E(X,1,30),DA)"
^DD(452,2,1,3,"%D",0)="^^1^1^2941031^"
^DD(452,2,1,3,"%D",1,0)="Indexes student tracking record entries by start date."
^DD(452,2,1,3,"DT")="2930507"
^DD(452,2,1,5,0)="452^AL^MUMPS"
^DD(452,2,1,5,1)="D SALCLS^PRSEUTL3"
^DD(452,2,1,5,2)="D DALCLS^PRSEUTL3"
^DD(452,2,1,5,"%D",0)="^^1^1^2941101^^^"
^DD(452,2,1,5,"%D",1,0)="Indexes file by each class/date occurence."
^DD(452,2,1,5,"DT")="2930603"
^DD(452,2,2)="S Y(0)=Y S X=Y D D^DIQ"
^DD(452,2,2.1)="S X=Y D D^DIQ"
^DD(452,2,3)="Enter the date/time (time is optional)"
^DD(452,2,21,0)="^^1^1^2930927^^^^"
^DD(452,2,21,1,0)="This is the scheduled start date/time for the program or class."
^DD(452,2,23,0)="^^1^1^2930927^^^^"
^DD(452,2,23,1,0)="BEGINNING DATE/TIME"
^DD(452,2,"DT")="2940215"
^DD(452,2.1,0)="PRSE PROGRAM/CLASS LENGTH HRS^NJ7,2X^^0;16^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(452,2.1,3)="Indicate class hours by typing a Number between 0 and 9999.99, 2 Decimal Digits."
^DD(452,2.1,21,0)="^^1^1^2950206^^^^"
^DD(452,2.1,21,1,0)="The length of the class in hours."
^DD(452,2.1,"DT")="2941209"
^DD(452,2.2,0)="CLASS HRS DURING ON-DUTY TIME^NJ4,0^^0;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(452,2.2,3)="Indicate on duty hours by entering a Number between 0 and 9999, 0 Decimal Digits."
^DD(452,2.2,21,0)="^^1^1^2941222^^^^"
^DD(452,2.2,21,1,0)="The number of class room hours during the student's on-duty time."
^DD(452,2.2,"DT")="2930524"
^DD(452,2.3,0)="CLASS HRS DURING OFF-DUTY TIME^NJ4,0^^0;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(452,2.3,3)="Indicate off duty hours by entering a Number between 0 and 9999, 0 Decimal Digits."
^DD(452,2.3,21,0)="^^1^1^2941222^^^^"
^DD(452,2.3,21,1,0)="The number of class room hours during the student's off-duty time."
^DD(452,2.3,"DT")="2930524"
^DD(452,2.4,0)="PROGRAM/CLASS SUPPLIER^FX^^6;2^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452,2.4,3)="Answer must be 3-30 characters in length."
^DD(452,2.4,8.5)="^"
^DD(452,2.4,9)="^"
^DD(452,2.4,21,0)="^^2^2^2941102^^^^"
^DD(452,2.4,21,1,0)="This field contains the company or organization who supplied the materials"
^DD(452,2.4,21,2,0)="for this class."
^DD(452,2.4,"DT")="2940920"
^DD(452,4,0)="PROGRAM/CLASS CATEGORY^RP452.4'X^PRSE(452.4,^0;5^Q"
^DD(452,4,.1)="CLASS CATEGORY"
^DD(452,4,1,0)="^.1^^0"
^DD(452,4,3)=""
^DD(452,4,21,0)="^^2^2^2941213^^^^"
^DD(452,4,21,1,0)="This is a group of related subjects as categorized on VA Form 5-4691"
^DD(452,4,21,2,0)="(Report of Employee Training) under #14."
^DD(452,4,23,0)="^^1^1^2941213^^^^"
^DD(452,4,23,1,0)="POINTER TO EDUCATION PROGRAM/CLASS CATEGORY FILE ^PRSE(452.4,"
^DD(452,4,"DT")="2941031"
^DD(452,4.1,0)="PURPOSE OF TRAINING^P452.51'^PRSE(452.51,^2;1^Q"
^DD(452,4.1,3)=""
^DD(452,4.1,21,0)="^^1^1^2940615^^^^"
^DD(452,4.1,21,1,0)="This field indicates the reason for the student's training."
^DD(452,4.1,"DT")="2940613"
^DD(452,5,0)="TYPE OF EDUCATION^SX^M:MANDATORY INSERVICE;O:OTHER TRAINING;C:CONTINUING EDUCATION;W:WARD INSERVICE;^0;21^Q"
^DD(452,5,1,0)="^.1"
^DD(452,5,1,1,0)="452^F^MUMPS"
^DD(452,5,1,1,1)="S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3) S:YY'=""""&(+ZZ>0) ^PRSE(452,""AA"",$E(X,1,30),+PDATA,YY,(9999999-ZZ),DA)="""" K PDATA,YY,ZZ"
^DD(452,5,1,1,2)="S PDATA=^PRSE(452,DA,0),YY=$P(PDATA,U,2),ZZ=$P(PDATA,U,3) K:YY'=""""&(+ZZ>0) ^PRSE(452,""AA"",$E(X,1,30),+PDATA,YY,(9999999-ZZ),DA) K PDATA,YY,ZZ"
^DD(452,5,1,1,"%D",0)="^^1^1^2941123^^"
^DD(452,5,1,1,"%D",1,0)="See description of AB MUMPS XREF."
^DD(452,5,1,1,"DT")="2941031"
^DD(452,5,1,2,0)="452^LOC2^MUMPS"
^DD(452,5,1,2,1)="S DATA=$P($G(^PRSE(452,DA,6)),U) I DATA'="""" S ^PRSE(452,""G"",X,DATA,DA)="""""
^DD(452,5,1,2,2)="S DATA=$P($G(^PRSE(452,DA,6)),U) I DATA'="""" K ^PRSE(452,""G"",X,DATA,DA)"
^DD(452,5,1,2,"%D",0)="^^1^1^2930624^"
^DD(452,5,1,2,"%D",1,0)="See description for LOC1 XREF."
^DD(452,5,1,2,"DT")="2930624"
^DD(452,5,21,0)="^^2^2^2941027^^^^"
^DD(452,5,21,1,0)="This field categorizes the class as mandatory inservice, continuing"
^DD(452,5,21,2,0)="education, ward inservice, or other."
^DD(452,5,"DT")="2941031"
^DD(452,6,0)="SOURCE OF TRAINING^SX^1:VA;2:INTERAGENCY;3:NON-GOVERNMENT (Designed for VA);4:NON-GOVERNMENT (e.g. Institution, Company or University);5:STATE OR LOCAL GOVERNMENT;^0;7^S X=$$UP^XLFSTR(X) Q"
^DD(452,6,.1)="COST TO GOVERNMENT"
^DD(452,6,1,0)="^.1^^0"
^DD(452,6,3)=""
^DD(452,6,21,0)="^^1^1^2941125^^^^"
^DD(452,6,21,1,0)="This field identifies the source of funding for the program."
^DD(452,6,23,0)="^^1^1^2941125^^^^"
^DD(452,6,23,1,0)="SET OF CODES PERTAINING TO GOVERNMENT COST"
^DD(452,6,"DT")="2941123"
^DD(452,7,0)="STUDENT EXPENSE^NJ7,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>2000)!(X<0) X"
^DD(452,7,.1)="COST TO THE STUDENT"
^DD(452,7,3)="Type a Dollar Amount between 0 and 2000, 2 Decimal Digits."
^DD(452,7,21,0)="^^2^2^2941209^^^^"
^DD(452,7,21,1,0)="This is the amount, if any, incurred by this employee for a government"
^DD(452,7,21,2,0)="sponsored program or class."
^DD(452,7,23,0)="^^1^1^2941209^^^^"
^DD(452,7,23,1,0)="THIS IS A DOLLAR AMOUNT FIELD"
^DD(452,7,"DT")="2930521"
^DD(452,8,0)="ACCREDITING ORGANIZATION^P452.9'^PRSE(452.9,^0;9^Q"
^DD(452,8,.1)=""
^DD(452,8,3)=""
^DD(452,8,21,0)="^^1^1^2930430^^^^"
^DD(452,8,21,1,0)="This field contains the name of the organization accrediting the program."
^DD(452,8,23,0)="^^1^1^2930430^^^^"
^DD(452,8,23,1,0)="POINTER TO EDUCATION ACCREDITATION ORGANINZATION FILE ^PRSE(452.9,"
^DD(452,8,"DT")="2930204"
^DD(452,9,0)="CONTACT HOURS^NJ7,2^^0;10^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(452,9,.1)=""
^DD(452,9,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits."
^DD(452,9,21,0)="^^1^1^2941222^^^^"
^DD(452,9,21,1,0)="This field contains the number of contact hours associated with this program."
^DD(452,9,23,0)="^^1^1^2941222^^^^"
^DD(452,9,23,1,0)="NUMERIC FIELD WITH 2 DECIMALS"
^DD(452,9,"DT")="2930706"
^DD(452,9.1,0)="C.E.U.s^NJ7,2^^0;6^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(452,9.1,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(452,9.1,21,0)="^^1^1^2970529^^^^"
^DD(452,9.1,21,1,0)="This is the number of continuing education units associated with this class."
^DD(452,9.1,"DT")="2970529"
^DD(452,10,0)="S.S.N.^RNJ9,0X^^0;11^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(452,10,3)="Type a Number between 1 and 999999999, 0 Decimal Digits."
^DD(452,10,4)="W !!,""Social Security is a required field."""
^DD(452,10,21,0)="^^1^1^2950112^^^^"
^DD(452,10,21,1,0)="This is the social security number of the student."
^DD(452,10,23,0)="^^1^1^2950112^^^^"
^DD(452,10,23,1,0)="NUMERIC FIELD"
^DD(452,10,"DT")="2940826"
^DD(452,11,0)="CODE FOR OLDE^SX^Y:CODED;N:NOT CODED;^0;12^S X=$$UP^XLFSTR(X)"
^DD(452,11,3)="Please enter the status of this program or class"
^DD(452,11,21,0)="^^2^2^2941209^^^^"
^DD(452,11,21,1,0)="This field indicates whether or not this record should be transmitted"
^DD(452,11,21,2,0)="to Austin, Texas."
^DD(452,11,"DT")="2940923"
^DD(452,12,0)="SPONSORING SERVICE^FX^^0;13^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452,12,.1)=""
^DD(452,12,1,0)="^.1"
^DD(452,12,1,1,0)="452^SER"
^DD(452,12,1,1,1)="S ^PRSE(452,""SER"",$E(X,1,30),DA)="""""
^DD(452,12,1,1,2)="K ^PRSE(452,""SER"",$E(X,1,30),DA)"
^DD(452,12,1,1,"%D",0)="^^1^1^2941031^"
^DD(452,12,1,1,"%D",1,0)="Indexes student tracking entries by student's service."
^DD(452,12,1,1,"DT")="2920212"
^DD(452,12,3)="Answer must be 3-30 characters in length."
^DD(452,12,4)="W !,""Enter the employees service/section or students location."""
^DD(452,12,21,0)="^^1^1^2950803^^^^"
^DD(452,12,21,1,0)="This is the name of the student's service."
^DD(452,12,23,0)="^^1^1^2950803^^^^"
^DD(452,12,23,1,0)="EMPLOYEE SERVICE/SECTION OR STUDENT LOCATION"
^DD(452,12,"DT")="2950803"
^DD(452,13,0)="ENDING DATE^DX^^0;14^S PRSE=""E"" D EN10^PRSEUTL2"
^DD(452,13,.1)="DATE PROGRAM/CLASS ENDED"
^DD(452,13,3)="Enter the data/time (time is optional)"
^DD(452,13,21,0)="^^1^1^2950111^^^^"
^DD(452,13,21,1,0)="This is the date/time the program is scheduled to end."
^DD(452,13,23,0)="^^1^1^2950111^^^^"
^DD(452,13,23,1,0)="ENDING DATE/TIME"
^DD(452,13,"DT")="2930421"
^DD(452,13.5,0)="PROGRAM/CLASS LOCATION^FX^^0;15^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452,13.5,.1)="PLACE WHERE PROGRAM/CLASS GIVEN"
^DD(452,13.5,3)="Answer must be 3-30 characters in length"
^DD(452,13.5,21,0)="^^2^2^2950112^^^^"
^DD(452,13.5,21,1,0)="This field contains a general location for the class, e.g., Nursing"
^DD(452,13.5,21,2,0)="Education, Training Room # ..."
^DD(452,13.5,23,0)="^^1^1^2950112^^^^"
^DD(452,13.5,23,1,0)="FREE TEXT FIELD"
^DD(452,13.5,"DT")="2940822"
^DD(452,14,0)="LOCAL NON-LOCAL^RSX^L:LOCAL;N:NON-LOCAL;^6;1^Q"
^DD(452,14,1,0)="^.1"
^DD(452,14,1,1,0)="452^LOC1^MUMPS"
^DD(452,14,1,1,1)="I X'="""" S DATA=$G(^PRSE(452,DA,0)) I +$G(DATA)>0,$P(DATA,U,21)=""C"" S ^PRSE(452,""G"",""C"",X,+DATA,DA)="""""
^DD(452,14,1,1,2)="I 'X="""" S DATA=$G(^PRSE(452,DA,0)) I +$G(DATA)>0,$P(DATA,U,21)=""C"" K ^PRSE(452,""G"",""C"",X,+DATA,DA)"
^DD(452,14,1,1,"%D",0)="^^2^2^2931202^^^^"
^DD(452,14,1,1,"%D",1,0)="This cross reference indexes continuing education classes by type"
^DD(452,14,1,1,"%D",2,0)="(local-non/local)employee, and internal entry number."
^DD(452,14,1,1,"DT")="2931202"
^DD(452,14,21,0)="^^2^2^2940106^"
^DD(452,14,21,1,0)="This field indicates when the class was presented at the VA facility"
^DD(452,14,21,2,0)="(local) or at another location (non-local)."
^DD(452,14,"DT")="2941027"
^DD(452,15,0)="GOVERNMENT FUNDED^SX^G:GOVERNMENT FUNDED;E:EMPLOYEE FUNDED;^0;22^Q"
^DD(452,15,21,0)="^^2^2^2941222^^^"
^DD(452,15,21,1,0)="This field indicates that the program was paid for by the gov't or"
^DD(452,15,21,2,0)="by the employee."
^DD(452,15,"DT")="2941027"
^DD(452,16,0)="HOURS A/A REQUESTED^NJ3,0^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(452,16,.1)="ANUAL LEAVE REQUESTED"
^DD(452,16,3)="Type a Number between 0 and 999, 0 Decimal Digits."
^DD(452,16,21,0)="^^2^2^2941209^^^^"
^DD(452,16,21,1,0)="This field contains the hours of authorized absence requested by employee"
^DD(452,16,21,2,0)="to attend a program."
^DD(452,16,"DT")="2921109"
^DD(452,17,0)="HOURS A/A GRANTED^NJ3,0^^0;18^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(452,17,.1)="ANUAL LEAVE GRANTED"
^DD(452,17,3)="Type a Number between 0 and 999, 0 Decimal Digits."
^DD(452,17,21,0)="^^2^2^2941209^^^^"
^DD(452,17,21,1,0)="This field contains the total hours of authorized absence granted to"
^DD(452,17,21,2,0)="attend a program."
^DD(452,17,"DT")="2921109"
^DD(452,18,0)="DIRECT COST^NJ7,2^^0;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(452,18,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits."
^DD(452,18,21,0)="^^2^2^2941209^^^^"
^DD(452,18,21,1,0)="This field contains the direct government cost (tuition, books, etc.) of"
^DD(452,18,21,2,0)="the program.  Refer to VA Form 5-4691, field 13."
^DD(452,18,"DT")="2930521"
^DD(452,19,0)="INDIRECT COST^NJ7,2^^0;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(452,19,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits."
^DD(452,19,21,0)="^^2^2^2941209^^^^"
^DD(452,19,21,1,0)="This field contains the indirect government cost (travel, per diem) of the"
^DD(452,19,21,2,0)="program.  Refer to VA Form 5-4691, field 13."
^DD(452,19,"DT")="2930521"
^DD(452,20,0)="ROUTINE/NON-ROUTINE^S^R:ROUTINE;N:NON-ROUTINE;^0;4^Q"
^DD(452,20,3)="Enter (R)outine if class does not enhance employee's job qualifications, or (N)on-Routine if the opposite is true."
^DD(452,20,21,0)="^^2^2^2950208^^^^"
^DD(452,20,21,1,0)=" This field indicates whether or not the class enhances or does not enhance"
^DD(452,20,21,2,0)="the employee's job qualifications."
^DD(452,20,23,0)="^^1^1^2950208^^^^"
^DD(452,20,23,1,0)="set of codes"
^DD(452,20,"DT")="2941101"
^DD(452,33,0)="SVC REASON^452.033PA^^1;0"
^DD(452,33,21,0)="^^2^2^2941209^^^^"
^DD(452,33,21,1,0)="This field contains the service's reason or purpose for emloyees attending"
^DD(452,33,21,2,0)="the class.  This field uses data contained in File 452.6."
^DD(452,33,23,0)="^^1^1^2941209^^^^"
^DD(452,33,23,1,0)="POINTER TO SVC REASON FOR TRAINING File 452.6"
^DD(452,55,0)="FUNDS REQUESTED^452.055SA^^3;0"
^DD(452,55,21,0)="^^2^2^2941209^^^^"
^DD(452,55,21,1,0)="This field indicates intended use of requested funds, e.g., hotel,"
^DD(452,55,21,2,0)="registration, etc."
^DD(452,66,0)="FUNDS AUTHORIZED^452.066SA^^4;0"
^DD(452,66,21,0)="^^2^2^2941209^^^^"
^DD(452,66,21,1,0)="This field indicates intended use of authorized funds, e.g., hotel,"
^DD(452,66,21,2,0)="airfare."
^DD(452,77,0)="C.E.U. COMMENTS^452.077^^5;0"
^DD(452,77,21,0)="^^1^1^2940106^^^^"
^DD(452,77,21,1,0)="This field contains additional comments regarding program/funding."
^DD(452,"B","ACCREDITING ORGANIZATION",8)=""
^DD(452,"B","ANUAL LEAVE GRANTED",17)="1"
^DD(452,"B","ANUAL LEAVE REQUESTED",16)="1"
^DD(452,"B","BEGINNING DATE",2)=""
^DD(452,"B","C.E.U. COMMENTS",77)=""
^DD(452,"B","C.E.U.s",9.1)=""
^DD(452,"B","CLASS CATEGORY",4)="1"
^DD(452,"B","CLASS HRS DURING OFF-DUTY TIME",2.3)=""
^DD(452,"B","CLASS HRS DURING ON-DUTY TIME",2.2)=""
^DD(452,"B","CODE FOR OLDE",11)=""
^DD(452,"B","CONTACT HOURS",9)=""
^DD(452,"B","COST TO GOVERNMENT",6)="1"
^DD(452,"B","COST TO THE STUDENT",7)="1"
^DD(452,"B","DATE PROGRAM/CLASS BEGAN",2)="1"
^DD(452,"B","DATE PROGRAM/CLASS ENDED",13)="1"
^DD(452,"B","DIRECT COST",18)=""
^DD(452,"B","ENDING DATE",13)=""
^DD(452,"B","FUNDS AUTHORIZED",66)=""
^DD(452,"B","FUNDS REQUESTED",55)=""
^DD(452,"B","GOVERNMENT FUNDED",15)=""
^DD(452,"B","HOURS A/A GRANTED",17)=""
^DD(452,"B","HOURS A/A REQUESTED",16)=""
^DD(452,"B","INDIRECT COST",19)=""
^DD(452,"B","LOCAL NON-LOCAL",14)=""
^DD(452,"B","NAME OF PROGRAM OR CLASS",1)="1"
^DD(452,"B","NAME OF STUDENT",.01)="1"
^DD(452,"B","PROGRAM/CLASS CATEGORY",4)=""
^DD(452,"B","PROGRAM/CLASS LOCATION",13.5)=""
^DD(452,"B","PROGRAM/CLASS SUPPLIER",2.4)=""
^DD(452,"B","PROGRAM/CLASS TITLE",1)=""
^DD(452,"B","PRSE PROGRAM/CLASS LENGTH HRS",2.1)=""
^DD(452,"B","PURPOSE OF TRAINING",4.1)=""
^DD(452,"B","ROUTINE/NON-ROUTINE",20)=""
^DD(452,"B","S.S.N.",10)=""
^DD(452,"B","SOURCE OF TRAINING",6)=""
^DD(452,"B","SPONSORING SERVICE",12)=""
^DD(452,"B","STUDENT EXPENSE",7)=""
^DD(452,"B","STUDENT NAME",.01)=""
^DD(452,"B","SVC REASON",33)=""
^DD(452,"B","TYPE OF EDUCATION",5)=""
^DD(452,"GL",0,1,.01)=""
^DD(452,"GL",0,2,1)=""
^DD(452,"GL",0,3,2)=""
^DD(452,"GL",0,4,20)=""
^DD(452,"GL",0,5,4)=""
^DD(452,"GL",0,6,9.1)=""
^DD(452,"GL",0,7,6)=""
^DD(452,"GL",0,8,7)=""
^DD(452,"GL",0,9,8)=""
^DD(452,"GL",0,10,9)=""
^DD(452,"GL",0,11,10)=""
^DD(452,"GL",0,12,11)=""
^DD(452,"GL",0,13,12)=""
^DD(452,"GL",0,14,13)=""
^DD(452,"GL",0,15,13.5)=""
^DD(452,"GL",0,16,2.1)=""
^DD(452,"GL",0,17,16)=""
^DD(452,"GL",0,18,17)=""
^DD(452,"GL",0,19,18)=""
^DD(452,"GL",0,20,19)=""
^DD(452,"GL",0,21,5)=""
^DD(452,"GL",0,22,15)=""
^DD(452,"GL",0,23,2.2)=""
^DD(452,"GL",0,24,2.3)=""
^DD(452,"GL",1,0,33)=""
^DD(452,"GL",2,1,4.1)=""
^DD(452,"GL",3,0,55)=""
^DD(452,"GL",4,0,66)=""
^DD(452,"GL",5,0,77)=""
^DD(452,"GL",6,1,14)=""
^DD(452,"GL",6,2,2.4)=""
^DD(452,"IX",.01)=""
^DD(452,"IX",1)=""
^DD(452,"IX",2)=""
^DD(452,"IX",5)=""
^DD(452,"IX",12)=""
^DD(452,"IX",14)=""
^DD(452,"RQ",.01)=""
^DD(452,"RQ",1)=""
^DD(452,"RQ",2)=""
^DD(452,"RQ",4)=""
^DD(452,"RQ",10)=""
^DD(452,"RQ",14)=""
^DD(452,"SB",452.033,33)=""
^DD(452,"SB",452.055,55)=""
^DD(452,"SB",452.066,66)=""
^DD(452,"SB",452.077,77)=""
^DD(452.033,0)="SVC REASON SUB-FIELD^^.01^1"
^DD(452.033,0,"DT")="2930521"
^DD(452.033,0,"IX","B",452.033,.01)=""
^DD(452.033,0,"NM","SVC REASON")=""
^DD(452.033,0,"UP")="452"
^DD(452.033,.01,0)="SVC REASON^MP452.6'^PRSE(452.6,^0;1^Q"
^DD(452.033,.01,.1)="SVC REASON FOR CLASS"
^DD(452.033,.01,1,0)="^.1"
^DD(452.033,.01,1,1,0)="452.033^B"
^DD(452.033,.01,1,1,1)="S ^PRSE(452,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(452.033,.01,1,1,2)="K ^PRSE(452,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(452.033,.01,1,1,"%D",0)="^^2^2^2941123^"
^DD(452.033,.01,1,1,"%D",1,0)="Main index of service reason entries that point to the PRSE SVC REASONS"
^DD(452.033,.01,1,1,"%D",2,0)="FOR TRAINING (#452.6) File."
^DD(452.033,.01,3)=""
^DD(452.033,.01,21,0)="^^2^2^2940506^^^^"
^DD(452.033,.01,21,1,0)="This field contains the service's reason or purpose for employees attending"
^DD(452.033,.01,21,2,0)="the class.  This field uses data contained in File 452.6."
^DD(452.033,.01,23,0)="^^1^1^2940506^^^^"
^DD(452.033,.01,23,1,0)="POINTER TO SVC REASON FOR TRAINING File 452.6"
^DD(452.033,.01,"DT")="2930521"
^DD(452.033,"B","SVC REASON",.01)=""
^DD(452.033,"B","SVC REASON FOR CLASS",.01)="1"
^DD(452.033,"GL",0,1,.01)=""
^DD(452.033,"IX",.01)=""
^DD(452.055,0)="FUNDS REQUESTED SUB-FIELD^^1^2"
^DD(452.055,0,"DT")="2931006"
^DD(452.055,0,"IX","B",452.055,.01)=""
^DD(452.055,0,"NM","FUNDS REQUESTED")=""
^DD(452.055,0,"UP")="452"
^DD(452.055,.01,0)="FUNDS REQUESTED^MSX^A:AIRFARE;P:PER DIEM;R:REGISTRATION;H:HOTEL;T:TRAVEL;N:NONE REQUESTED;U:TUITION;B:BOOKS/MATERIALS;D:DIRECT OTHER;I:INDIRECT OTHER;^0;1^S X=$$UP^XLFSTR(X) Q"
^DD(452.055,.01,1,0)="^.1"
^DD(452.055,.01,1,1,0)="452.055^B"
^DD(452.055,.01,1,1,1)="S ^PRSE(452,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(452.055,.01,1,1,2)="K ^PRSE(452,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(452.055,.01,1,1,"%D",0)="^^1^1^2941123^"
^DD(452.055,.01,1,1,"%D",1,0)="Main index of Funds Requested entries from the defined code set."
^DD(452.055,.01,21,0)="^^2^2^2941209^^^^"
^DD(452.055,.01,21,1,0)="This field indicates intended use of requested funds, e.g., hotel,"
^DD(452.055,.01,21,2,0)="registration, etc."
^DD(452.055,.01,"DT")="2940822"
^DD(452.055,1,0)="AMOUNT REQUESTED^NJ8,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(452.055,1,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits."
^DD(452.055,1,21,0)="^^1^1^2941209^^^^"
^DD(452.055,1,21,1,0)="This field stores the total funding (dollar amount) requested by employee."
^DD(452.055,1,"DT")="2930521"
^DD(452.055,"B","AMOUNT REQUESTED",1)=""
^DD(452.055,"B","FUNDS REQUESTED",.01)=""
^DD(452.055,"GL",0,1,.01)=""
^DD(452.055,"GL",0,2,1)=""
^DD(452.055,"IX",.01)=""
^DD(452.066,0)="FUNDS AUTHORIZED SUB-FIELD^^1^2"
^DD(452.066,0,"DT")="2930525"
^DD(452.066,0,"IX","B",452.066,.01)=""
^DD(452.066,0,"NM","FUNDS AUTHORIZED")=""
^DD(452.066,0,"UP")="452"
^DD(452.066,.01,0)="FUNDS AUTHORIZED^MSX^A:AIRFARE;P:PER DIEM;R:REGISTRATION;H:HOTEL;T:TRAVEL;N:NONE REQUESTED;U:TUITION;B:BOOKS/MATERIALS;D:DIRECT OTHER;I:INDIRECT OTHER;^0;1^S X=$$UP^XLFSTR(X) Q"
^DD(452.066,.01,1,0)="^.1"
^DD(452.066,.01,1,1,0)="452.066^B"
^DD(452.066,.01,1,1,1)="S ^PRSE(452,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(452.066,.01,1,1,2)="K ^PRSE(452,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(452.066,.01,1,1,"%D",0)="^^1^1^2941123^"
^DD(452.066,.01,1,1,"%D",1,0)="Main index of the Funds Authorized entries from the defined code set."
^DD(452.066,.01,21,0)="^^2^2^2941209^^^^"
^DD(452.066,.01,21,1,0)="This field indicates intended use of authorized funds, e.g., hotel,"
^DD(452.066,.01,21,2,0)="airfare."
^DD(452.066,.01,"DT")="2940822"
^DD(452.066,1,0)="AMOUNT AUTHORIZED^NJ8,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(452.066,1,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits."
^DD(452.066,1,21,0)="^^1^1^2941209^^^^"
^DD(452.066,1,21,1,0)="This field stores the dollar amount authorized by a service to an employee."
^DD(452.066,1,"DT")="2930521"
^DD(452.066,"B","AMOUNT AUTHORIZED",1)=""
^DD(452.066,"B","FUNDS AUTHORIZED",.01)=""
^DD(452.066,"GL",0,1,.01)=""
^DD(452.066,"GL",0,2,1)=""
^DD(452.066,"IX",.01)=""
^DD(452.077,0)="C.E.U. COMMENTS SUB-FIELD^^.01^1"
^DD(452.077,0,"DT")="2921207"
^DD(452.077,0,"NM","C.E.U. COMMENTS")=""
^DD(452.077,0,"UP")="452"
^DD(452.077,.01,0)="C.E.U. COMMENTS^W^^0;1^Q"
^DD(452.077,.01,3)="This is a word-processing field."
^DD(452.077,.01,21,0)="^^1^1^2930202^"
^DD(452.077,.01,21,1,0)="Enter additional comments regarding program/funding."
^DD(452.077,.01,"DT")="2921207"
^DD(452.077,"B","C.E.U. COMMENTS",.01)=""
^DD(452.077,"GL",0,1,.01)=""
^DD(452.1,0)="FIELD^^8^8"
^DD(452.1,0,"DDA")="N"
^DD(452.1,0,"DT")="2940613"
^DD(452.1,0,"ID",4)="W ""   "",$P(^(0),U,6)"
^DD(452.1,0,"ID",5)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(452.1,5,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,7)_"""":"""",2),$C(59),1)"")"
^DD(452.1,0,"ID",7)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(452.1,7,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,9)_"""":"""",2),$C(59),1)"")"
^DD(452.1,0,"IX","B",452.1,.01)=""
^DD(452.1,0,"IX","C",452.1,5)=""
^DD(452.1,0,"NM","PRSE PROGRAM/CLASS")=""
^DD(452.1,0,"PT",450.0633,.01)=""
^DD(452.1,0,"PT",452.25,.01)=""
^DD(452.1,0,"PT",452.31,.01)=""
^DD(452.1,0,"PT",452.42,.01)=""
^DD(452.1,0,"PT",452.8,.01)=""
^DD(452.1,0,"VR")="4.0"
^DD(452.1,.01,0)="PROGRAM/CLASS TITLE^RFaX^^0;1^S X=$$UP^XLFSTR(X) K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>53!($L(X)<2)!'(X'?1P.E)!(X["";"") X I $D(X)#2,$$EN11^PRSEUTL3(X,+$G(D0)) D EN^DDIOL(.PRSEDUPL) K X,PRSEDUPL"
^DD(452.1,.01,.1)="NAME OF PROGRAM OR CLASS"
^DD(452.1,.01,1,0)="^.1^^-1"
^DD(452.1,.01,1,1,0)="452.1^B"
^DD(452.1,.01,1,1,1)="S ^PRSE(452.1,""B"",$E(X,1,53),DA)="""""
^DD(452.1,.01,1,1,2)="K ^PRSE(452.1,""B"",$E(X,1,53),DA)"
^DD(452.1,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.1,.01,1,1,"%D",1,0)="Main index of program/class entries by program/class title."
^DD(452.1,.01,1,1,"DT")="2930603"
^DD(452.1,.01,3)="Answer must be 2-53 characters in length"
^DD(452.1,.01,4)=""
^DD(452.1,.01,10)=""
^DD(452.1,.01,21,0)="^.001^1^1^3001017^^^^"
^DD(452.1,.01,21,1,0)="This is the name of the program or class."
^DD(452.1,.01,23,0)="^.001^1^1^3001017^^^^"
^DD(452.1,.01,23,1,0)="FREE TEXT FIELD"
^DD(452.1,.01,23,2,0)="Continuing Education."
^DD(452.1,.01,"AUDIT")="e"
^DD(452.1,.01,"DT")="3001017"
^DD(452.1,1,0)="DESCRIPTION^FX^^0;2^S X=$$UP^XLFSTR(X) K:$L(X)>72!($L(X)<3) X"
^DD(452.1,1,.1)="DESCRIPTION OF PROGRAM OR CLASS"
^DD(452.1,1,3)="Enter a short description (3-72 chars.)."
^DD(452.1,1,4)=""
^DD(452.1,1,21,0)="^^1^1^2930609^^^^"
^DD(452.1,1,21,1,0)="This is a short description for reporting purposes."
^DD(452.1,1,23,0)="^^1^1^2930609^^"
^DD(452.1,1,23,1,0)="FREE TEXT FIELD"
^DD(452.1,1,"DT")="2940822"
^DD(452.1,2,0)="PRSE PROGRAM/CLASS LENGTH HRS^RNJ7,2^^0;3^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(452.1,2,.1)="LENGTH HRS"
^DD(452.1,2,3)="Indicate the number of hours by typing a number between 0 and 9999.99, 2 Decimal Digits."
^DD(452.1,2,4)=""
^DD(452.1,2,21,0)="^^1^1^2941214^^^^"
^DD(452.1,2,21,1,0)="This field indicates the class duration in hours."
^DD(452.1,2,21,2,0)="reported to Austin."
^DD(452.1,2,"DT")="2941214"
^DD(452.1,4,0)="REQUIRED FREQUENCY^SXO^1M:MONTHLY;3M:QUARTERLY;6M:TWICE YEARLY;1Y:ONCE YEARLY;2Y:EVERY TWO YEARS;3Y:EVERY THREE YEARS;1T:ONE TIME ONLY;^0;6^S X=$$UP^XLFSTR(X) D EN2^PRSEUTL"
^DD(452.1,4,2)="S Y(0)=Y D EN3^PRSEUTL"
^DD(452.1,4,2.1)="D EN3^PRSEUTL"
^DD(452.1,4,3)=""
^DD(452.1,4,21,0)="^^2^2^2941014^^^^"
^DD(452.1,4,21,1,0)="This field indicates the mandatory frequency or interval for attending the"
^DD(452.1,4,21,2,0)="class."
^DD(452.1,4,"DT")="2950613"
^DD(452.1,5,0)="TYPE OF EDUCATION^RSX^M:Mandatory Inservice;C:Continuing Education;O:Other Training;W:Ward Inservice;^0;7^S X=$$UP^XLFSTR(X)"
^DD(452.1,5,1,0)="^.1"
^DD(452.1,5,1,1,0)="452.1^C"
^DD(452.1,5,1,1,1)="S ^PRSE(452.1,""C"",$E(X,1,30),DA)="""""
^DD(452.1,5,1,1,2)="K ^PRSE(452.1,""C"",$E(X,1,30),DA)"
^DD(452.1,5,1,1,"%D",0)="^^1^1^2930105^"
^DD(452.1,5,1,1,"%D",1,0)="This cross reference is used to sort/lookup inservice class types."
^DD(452.1,5,1,1,"DT")="2930105"
^DD(452.1,5,21,0)="^^2^2^2940106^^^^"
^DD(452.1,5,21,1,0)="This field categorizes the class as mandatory inservice, continuing"
^DD(452.1,5,21,2,0)="education, ward inservice, or other."
^DD(452.1,5,23,0)="^^1^1^2940106^^^^"
^DD(452.1,5,23,1,0)="Set of codes to indicate the inservice class type."
^DD(452.1,5,"DT")="2940923"
^DD(452.1,6,0)="SERVICE^R*P454.1'X^PRSP(454.1,^0;8^S DIC(""S"")=""I $P($G(^(0)),U)'=""""MISCELLANEOUS"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(452.1,6,1,0)="^.1"
^DD(452.1,6,1,1,0)="^^TRIGGER^452.8^2.7"
^DD(452.1,6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(452.1,6,1,1,89.2) S Y(101)=$S($D(^PRSE(452.8,D0,0)):^(0),1:"""") S X=$S('$D(^PRSP(454.1,+$P(Y(101),U,21),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(452.1,6,1,1,1.4)"
^DD(452.1,6,1,1,1.4)="S DIH=$S($D(^PRSE(452.8,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,21)=DIV,DIH=452.8,DIG=2.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(452.1,6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(452.1,6,1,1,89.2) S Y(101)=$S($D(^PRSE(452.8,D0,0)):^(0),1:"""") S X=$S('$D(^PRSP(454.1,+$P(Y(101),U,21),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0) S DIU=X K Y X ^DD(452.1,6,1,1,2.1) X ^DD(452.1,6,1,1,2.4)"
^DD(452.1,6,1,1,2.1)="S X=DIV S Y(1)=$S($D(^PRSE(452.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X"
^DD(452.1,6,1,1,2.4)="S DIH=$S($D(^PRSE(452.8,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,21)=DIV,DIH=452.8,DIG=2.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(452.1,6,1,1,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^PRSE(452.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=X S X=X K DIC S DIC=""^PRSE(452.8,"",DIC(0)=""NMF"" D ^DIC S (D,D0,DIV(0))=+Y"
^DD(452.1,6,1,1,"%D",0)="^^2^2^2941123^"
^DD(452.1,6,1,1,"%D",1,0)="This trigger updates the sponsoring service field in the"
^DD(452.1,6,1,1,"%D",2,0)="PRSE Education registration file (#452.8)."
^DD(452.1,6,1,1,"CREATE VALUE")="INTERNAL(#6)"
^DD(452.1,6,1,1,"DELETE VALUE")="INTERNAL(#6)"
^DD(452.1,6,1,1,"DIC")="LOOKUP"
^DD(452.1,6,1,1,"DT")="2940426"
^DD(452.1,6,1,1,"FIELD")="#.01:452.8:#2.7"
^DD(452.1,6,4)=""
^DD(452.1,6,12)="Select Cost Center/Organization Code entry other than 'MISCELLANEOUS'"
^DD(452.1,6,12.1)="S DIC(""S"")=""I $P($G(^(0)),U)'=""""MISCELLANEOUS"""""""
^DD(452.1,6,21,0)="^^1^1^2940714^^^^"
^DD(452.1,6,21,1,0)="This field associates the class with a specific service."
^DD(452.1,6,"DT")="2940822"
^DD(452.1,7,0)="OPEN/CLOSED^RS^1:CLOSED;0:OPEN;^0;9^Q"
^DD(452.1,7,21,0)="^^3^3^2940822^^^^"
^DD(452.1,7,21,1,0)="This field indicates if the class is opened to individuals outside of the"
^DD(452.1,7,21,2,0)="service.  Closed programs will not be displayed to potential registrants"
^DD(452.1,7,21,3,0)="from other services."
^DD(452.1,7,"DT")="2930121"
^DD(452.1,8,0)="OBJECTIVE(S)^452.18^^1;0"
^DD(452.1,8,21,0)="^^1^1^2940106^^"
^DD(452.1,8,21,1,0)="This field is used to indicate the class/program objectives."
^DD(452.1,8,23,0)="^^1^1^2940106^^"
^DD(452.1,8,23,1,0)=" Word processing field used to define the class objectives."
^DD(452.1,"AUDIT",.01)=""
^DD(452.1,"B","DESCRIPTION",1)=""
^DD(452.1,"B","LENGTH HRS",2)="1"
^DD(452.1,"B","NAME OF PROGRAM OR CLASS",.01)="1"
^DD(452.1,"B","OBJECTIVE(S)",8)=""
^DD(452.1,"B","OPEN/CLOSED",7)=""
^DD(452.1,"B","PROGRAM/CLASS TITLE",.01)=""
^DD(452.1,"B","PRSE PROGRAM/CLASS LENGTH HRS",2)=""
^DD(452.1,"B","REQUIRED FREQUENCY",4)=""
^DD(452.1,"B","SERVICE",6)=""
^DD(452.1,"B","TYPE OF EDUCATION",5)=""
^DD(452.1,"GL",0,1,.01)=""
^DD(452.1,"GL",0,2,1)=""
^DD(452.1,"GL",0,3,2)=""
^DD(452.1,"GL",0,6,4)=""
^DD(452.1,"GL",0,7,5)=""
^DD(452.1,"GL",0,8,6)=""
^DD(452.1,"GL",0,9,7)=""
^DD(452.1,"GL",1,0,8)=""
^DD(452.1,"IX",.01)=""
^DD(452.1,"IX",5)=""
^DD(452.1,"IX",6)=""
^DD(452.1,"RQ",.01)=""
^DD(452.1,"RQ",2)=""
^DD(452.1,"RQ",5)=""
^DD(452.1,"RQ",6)=""
^DD(452.1,"RQ",7)=""
^DD(452.1,"SB",452.18,8)=""
^DD(452.18,0)="OBJECTIVE(S) SUB-FIELD^^.01^1"
^DD(452.18,0,"DT")="2931018"
^DD(452.18,0,"NM","OBJECTIVE(S)")=""
^DD(452.18,0,"UP")="452.1"
^DD(452.18,.01,0)="OBJECTIVE(S)^W^^0;1^Q"
^DD(452.18,.01,3)="Define the Program/Class objectives (word-processing)."
^DD(452.18,.01,21,0)="^^1^1^2931018^^"
^DD(452.18,.01,21,1,0)="This field is used to defined the Program/Class objectives."
^DD(452.18,.01,"DT")="2931018"
^DD(452.18,"B","OBJECTIVE(S)",.01)=""
^DD(452.18,"GL",0,1,.01)=""
^DD(452.2,0)="FIELD^^5^8"
^DD(452.2,0,"DDA")="N"
^DD(452.2,0,"DT")="2930630"
^DD(452.2,0,"IX","B",452.2,.01)=""
^DD(452.2,0,"IX","C",452.25,.01)=""
^DD(452.2,0,"NM","PRSE EDUCATION PROGRAM/CLASS SUPPLIER")=""
^DD(452.2,0,"VR")="4.0"
^DD(452.2,.01,0)="PRESENTER/SUPPLIER^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X["";"") X"
^DD(452.2,.01,.1)="NAME OF COMPANY OR ORGANIZATION"
^DD(452.2,.01,1,0)="^.1"
^DD(452.2,.01,1,1,0)="452.2^B"
^DD(452.2,.01,1,1,1)="S ^PRSE(452.2,""B"",$E(X,1,30),DA)="""""
^DD(452.2,.01,1,1,2)="K ^PRSE(452.2,""B"",$E(X,1,30),DA)"
^DD(452.2,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.2,.01,1,1,"%D",1,0)="Main index of program/class supplier entries by supplier name."
^DD(452.2,.01,3)="Answer must be 3-30 characters in length and not contain a semi-colon (;)."
^DD(452.2,.01,4)="W !,""Enter the name of the vendor or supplier of this program (class)."""
^DD(452.2,.01,21,0)="^^2^2^2940504^^^^"
^DD(452.2,.01,21,1,0)="This field contains the name of the company or organization who supplied"
^DD(452.2,.01,21,2,0)="the program or class."
^DD(452.2,.01,23,0)="^^1^1^2940504^^^^"
^DD(452.2,.01,23,1,0)="SUPPLIER"
^DD(452.2,.01,"DT")="2961031"
^DD(452.2,1,0)="ADDRESS^FX^^0;2^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452.2,1,3)="Answer must be 3-30 characters in length"
^DD(452.2,1,4)="W !,""Enter the address of the person or vendor presenting the program."""
^DD(452.2,1,21,0)="^^1^1^2940106^^^^"
^DD(452.2,1,21,1,0)="This field contains the supplier's address (e.g., street number and name)."
^DD(452.2,1,"DT")="2940822"
^DD(452.2,1.5,0)="ADDRESS2^FX^^0;7^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452.2,1.5,3)="Answer must be 3-30 characters in length."
^DD(452.2,1.5,21,0)="^^1^1^2940106^^"
^DD(452.2,1.5,21,1,0)="This field contains additional mailing address information."
^DD(452.2,1.5,"DT")="2940822"
^DD(452.2,2,0)="CITY^FX^^0;3^S X=$$UP^XLFSTR(X) K:$L(X)>20!($L(X)<3) X"
^DD(452.2,2,.1)="CITY WHERE SUPPLIER RESIDES"
^DD(452.2,2,3)="Answer must be 3-20 characters in length"
^DD(452.2,2,4)="W !,""Enter the name of the city where the supplier/vendor is located."",!"
^DD(452.2,2,21,0)="^^1^1^2930430^^^^"
^DD(452.2,2,21,1,0)="This field contains the city where the supplier resides."
^DD(452.2,2,"DT")="2940822"
^DD(452.2,3,0)="STATE^P5'^DIC(5,^0;4^Q"
^DD(452.2,3,.1)="LOCATION OF SUPPLIER/VENDOR"
^DD(452.2,3,3)=""
^DD(452.2,3,4)=""
^DD(452.2,3,21,0)="^^1^1^2930301^^^^"
^DD(452.2,3,21,1,0)="This field contains the state where the supplier is located."
^DD(452.2,3,23,0)="^^1^1^2930301^^^^"
^DD(452.2,3,23,1,0)="POINTER TO STATE FILE (^DIC(5, )."
^DD(452.2,3,"DT")="2930630"
^DD(452.2,3.5,0)="ZIP CODE^FX^^0;6^S X=$$UP^XLFSTR(X) K:$L(X)>11!($L(X)<5) X"
^DD(452.2,3.5,3)="Answer must be 5-11 characters in length."
^DD(452.2,3.5,21,0)="^^1^1^2950112^^^"
^DD(452.2,3.5,21,1,0)="This field contains the zip code of the supplier."
^DD(452.2,3.5,"DT")="2940822"
^DD(452.2,4,0)="TELEPHONE^FX^^0;5^S X=$$UP^XLFSTR(X) K:$L(X)>15!($L(X)<4) X"
^DD(452.2,4,3)="Answer must be 4-15 characters in length"
^DD(452.2,4,4)="W !,""Enter the supplier/vendor's telephone number."",!"
^DD(452.2,4,21,0)="^^1^1^2930430^^^^"
^DD(452.2,4,21,1,0)="This field contains the phone number of the supplier."
^DD(452.2,4,"DT")="2940822"
^DD(452.2,5,0)="PROGRAM/CLASS^452.25PA^^1;0"
^DD(452.2,5,21,0)="^^1^1^2930903^^^^"
^DD(452.2,5,21,1,0)="This field contains the name of a program or class."
^DD(452.2,5,"DT")="2920914"
^DD(452.2,"B","ADDRESS",1)=""
^DD(452.2,"B","ADDRESS2",1.5)=""
^DD(452.2,"B","CITY",2)=""
^DD(452.2,"B","CITY WHERE SUPPLIER RESIDES",2)="1"
^DD(452.2,"B","LOCATION OF SUPPLIER/VENDOR",3)="1"
^DD(452.2,"B","PRESENTER/SUPPLIER",.01)=""
^DD(452.2,"B","PROGRAM/CLASS",5)=""
^DD(452.2,"B","STATE",3)=""
^DD(452.2,"B","TELEPHONE",4)=""
^DD(452.2,"B","ZIP CODE",3.5)=""
^DD(452.2,"GL",0,1,.01)=""
^DD(452.2,"GL",0,2,1)=""
^DD(452.2,"GL",0,3,2)=""
^DD(452.2,"GL",0,4,3)=""
^DD(452.2,"GL",0,5,4)=""
^DD(452.2,"GL",0,6,3.5)=""
^DD(452.2,"GL",0,7,1.5)=""
^DD(452.2,"GL",1,0,5)=""
^DD(452.2,"IX",.01)=""
^DD(452.2,"RQ",.01)=""
^DD(452.2,"SB",452.25,5)=""
^DD(452.25,0)="PROGRAM/CLASS SUB-FIELD^^.01^1"
^DD(452.25,0,"DT")="2920914"
^DD(452.25,0,"IX","B",452.25,.01)=""
^DD(452.25,0,"NM","PROGRAM/CLASS")=""
^DD(452.25,0,"UP")="452.2"
^DD(452.25,.01,0)="PROGRAM/CLASS^P452.1'^PRSE(452.1,^0;1^Q"
^DD(452.25,.01,1,0)="^.1"
^DD(452.25,.01,1,1,0)="452.25^B"
^DD(452.25,.01,1,1,1)="S ^PRSE(452.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(452.25,.01,1,1,2)="K ^PRSE(452.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(452.25,.01,1,2,0)="452.2^C"
^DD(452.25,.01,1,2,1)="S ^PRSE(452.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(452.25,.01,1,2,2)="K ^PRSE(452.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(452.25,.01,1,2,"DT")="2920914"
^DD(452.25,.01,21,0)="^^1^1^2930202^^"
^DD(452.25,.01,21,1,0)="This field contains the name of a program or class."
^DD(452.25,.01,"DT")="2920914"
^DD(452.25,"B","PROGRAM/CLASS",.01)=""
^DD(452.25,"GL",0,1,.01)=""
^DD(452.25,"IX",.01)=""
^DD(452.3,0)="FIELD^^1^3"
^DD(452.3,0,"DDA")="N"
^DD(452.3,0,"DT")="2940325"
^DD(452.3,0,"IX","B",452.3,.01)=""
^DD(452.3,0,"IX","C",452.31,.01)=""
^DD(452.3,0,"IX","D",452.3,.02)=""
^DD(452.3,0,"NM","PRSE MANDATORY TRAINING (MI) CLASS GROUP")=""
^DD(452.3,0,"PT",450.0632,.01)=""
^DD(452.3,0,"VR")="4.0"
^DD(452.3,.01,0)="NAME^FX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>22!($L(X)<2) X"
^DD(452.3,.01,.1)="NAME OF REVIEW GROUP"
^DD(452.3,.01,1,0)="^.1"
^DD(452.3,.01,1,1,0)="452.3^B"
^DD(452.3,.01,1,1,1)="S ^PRSE(452.3,""B"",$E(X,1,30),DA)="""""
^DD(452.3,.01,1,1,2)="K ^PRSE(452.3,""B"",$E(X,1,30),DA)"
^DD(452.3,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.3,.01,1,1,"%D",1,0)="Main index of Mandatory Training Group entries by training group name."
^DD(452.3,.01,3)="Answer must be 2-22 characters in length."
^DD(452.3,.01,4)=""
^DD(452.3,.01,21,0)="^^2^2^2941018^^^^"
^DD(452.3,.01,21,1,0)="This is the name of a mandatory or required class group (review group or"
^DD(452.3,.01,21,2,0)="service)."
^DD(452.3,.01,23,0)="^^1^1^2941018^^^^"
^DD(452.3,.01,23,1,0)="FREE TEXT FIELD"
^DD(452.3,.01,"DEL",1,0)="I $$EN3^PRSEUTL5(D0)"
^DD(452.3,.01,"DT")="2940325"
^DD(452.3,.02,0)="SERVICE^P454.1'^PRSP(454.1,^0;2^Q"
^DD(452.3,.02,1,0)="^.1"
^DD(452.3,.02,1,1,0)="452.3^D"
^DD(452.3,.02,1,1,1)="S ^PRSE(452.3,""D"",$E(X,1,30),DA)="""""
^DD(452.3,.02,1,1,2)="K ^PRSE(452.3,""D"",$E(X,1,30),DA)"
^DD(452.3,.02,1,1,"%D",0)="^^1^1^2940118^^^^"
^DD(452.3,.02,1,1,"%D",1,0)="This cross reference is by service contains a pointer value for File 454.1."
^DD(452.3,.02,1,1,"DT")="2930119"
^DD(452.3,.02,4)="W !,?2,""Enter 'MISCELLANEOUS' if you want to designate this"",!,?2,""MI Review Group to be assigned as hospital wide."",!"
^DD(452.3,.02,21,0)="^^2^2^2940118^^^^"
^DD(452.3,.02,21,1,0)="This field associates a service/section with a mandatory inservice review"
^DD(452.3,.02,21,2,0)="group or identifies this MI review group as assigned to the entire hospital."
^DD(452.3,.02,"DT")="2940110"
^DD(452.3,1,0)="MANDATORY CLASSES^452.31PA^^1;0"
^DD(452.3,1,3)="Enter name of inservice group."
^DD(452.3,1,21,0)="^^2^2^2941018^^^^"
^DD(452.3,1,21,1,0)="This multiple contains mandatory training classes that may be assigned for"
^DD(452.3,1,21,2,0)="this group."
^DD(452.3,1,23,0)="^^1^1^2941018^^^^"
^DD(452.3,1,23,1,0)="Pointer to mandatory classes in file 452.1."
^DD(452.3,1,"DT")="2920214"
^DD(452.3,"B","MANDATORY CLASSES",1)=""
^DD(452.3,"B","NAME",.01)=""
^DD(452.3,"B","NAME OF REVIEW GROUP",.01)="1"
^DD(452.3,"B","SERVICE",.02)=""
^DD(452.3,"GL",0,1,.01)=""
^DD(452.3,"GL",0,2,.02)=""
^DD(452.3,"GL",1,0,1)=""
^DD(452.3,"IX",.01)=""
^DD(452.3,"IX",.02)=""
^DD(452.3,"SB",452.31,1)=""
^DD(452.31,0)="MANDATORY CLASSES SUB-FIELD^^.01^1"
^DD(452.31,0,"DT")="2940118"
^DD(452.31,0,"IX","B",452.31,.01)=""
^DD(452.31,0,"NM","MANDATORY CLASSES")=""
^DD(452.31,0,"UP")="452.3"
^DD(452.31,.01,0)="MANDATORY CLASSES^M*P452.1'^PRSE(452.1,^0;1^S DIC(""S"")=""I $P(^(0),U,7)=""""M"""",$S('$D(PRSESER(1)):1,1:$P(^(0),U,8)=PRSESER(1)!($P(^(0),U,9)=0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(452.31,.01,.1)="MANDATED PROGRAM/CLASS"
^DD(452.31,.01,1,0)="^.1"
^DD(452.31,.01,1,1,0)="452.31^B"
^DD(452.31,.01,1,1,1)="S ^PRSE(452.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(452.31,.01,1,1,2)="K ^PRSE(452.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(452.31,.01,1,1,"%D",0)="^^1^1^2941123^^"
^DD(452.31,.01,1,1,"%D",1,0)="Main index of mandatory classes by class name."
^DD(452.31,.01,1,2,0)="452.3^C^MUMPS"
^DD(452.31,.01,1,2,1)="S ^PRSE(452.3,""C"",DA(1),$E(X,1,30),DA)="""""
^DD(452.31,.01,1,2,2)="K ^PRSE(452.3,""C"",DA(1),$E(X,1,30),DA)"
^DD(452.31,.01,1,2,"%D",0)="^^1^1^2941123^^"
^DD(452.31,.01,1,2,"%D",1,0)="Indexes mandatory training group entries by group/class name."
^DD(452.31,.01,1,2,"DT")="2940216"
^DD(452.31,.01,3)="Enter program or class that is mandated by this group."
^DD(452.31,.01,12)="Select only MI entries."
^DD(452.31,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""M"""",$S('$D(PRSESER(1)):1,1:$P(^(0),U,8)=PRSESER(1)!($P(^(0),U,9)=0))"""
^DD(452.31,.01,21,0)="^^1^1^2941018^^^^"
^DD(452.31,.01,21,1,0)=" This field indicates mandatory classes for this group."
^DD(452.31,.01,23,0)="^^1^1^2941018^^^^"
^DD(452.31,.01,23,1,0)="Pointer to file 452.1 Program Class File."
^DD(452.31,.01,"DT")="2940216"
^DD(452.31,"B","MANDATED PROGRAM/CLASS",.01)="1"
^DD(452.31,"B","MANDATORY CLASSES",.01)=""
^DD(452.31,"GL",0,1,.01)=""
^DD(452.31,"IX",.01)=""
^DD(452.4,0)="FIELD^^3^5"
^DD(452.4,0,"DDA")="N"
^DD(452.4,0,"DT")="2921105"
^DD(452.4,0,"ID",.05)="W ""   "",$P(^(0),U,2)"
^DD(452.4,0,"IX","B",452.4,.01)=""
^DD(452.4,0,"IX","CODE",452.4,.05)=""
^DD(452.4,0,"IX","SER",452.4,2)=""
^DD(452.4,0,"NM","PRSE EDUCATION PROGRAM/CLASS CATEGORY")=""
^DD(452.4,0,"PT",452,4)=""
^DD(452.4,0,"PT",452.8,9)=""
^DD(452.4,0,"VR")="4.0"
^DD(452.4,.01,0)="PROGRAM CATEGORY^RFX^^0;1^S X=$$UP^XLFSTR(X) K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(452.4,.01,.1)="PROGRAM/CATEGORY"
^DD(452.4,.01,1,0)="^.1^^-1"
^DD(452.4,.01,1,1,0)="452.4^B"
^DD(452.4,.01,1,1,1)="S ^PRSE(452.4,""B"",$E(X,1,50),DA)="""""
^DD(452.4,.01,1,1,2)="K ^PRSE(452.4,""B"",$E(X,1,50),DA)"
^DD(452.4,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.4,.01,1,1,"%D",1,0)="Main index of file entries by program category name."
^DD(452.4,.01,3)="Answer must be 3-50 characters in length"
^DD(452.4,.01,4)=""
^DD(452.4,.01,21,0)="^^2^2^2940106^^^^"
^DD(452.4,.01,21,1,0)="This field contains a name which is used to categorize or group related"
^DD(452.4,.01,21,2,0)="programs or classes."
^DD(452.4,.01,23,0)="^^1^1^2940106^^^^"
^DD(452.4,.01,23,1,0)="FREE TEXT FIELD"
^DD(452.4,.01,"DT")="2940216"
^DD(452.4,.05,0)="PAID CODE^FX^^0;2^S X=$$UP^XLFSTR(X) K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(452.4,.05,.1)="CODE USED BY PAID"
^DD(452.4,.05,1,0)="^.1"
^DD(452.4,.05,1,1,0)="452.4^CODE"
^DD(452.4,.05,1,1,1)="S ^PRSE(452.4,""CODE"",$E(X,1,30),DA)="""""
^DD(452.4,.05,1,1,2)="K ^PRSE(452.4,""CODE"",$E(X,1,30),DA)"
^DD(452.4,.05,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.4,.05,1,1,"%D",1,0)="Index of program category file entries by PAID code."
^DD(452.4,.05,1,1,"DT")="2921113"
^DD(452.4,.05,3)="Answer must be 1-3 characters in length."
^DD(452.4,.05,21,0)="^^1^1^2950112^^^^"
^DD(452.4,.05,21,1,0)="This is a code that PAID associates with a program or class category."
^DD(452.4,.05,23,0)="^^1^1^2950112^^^^"
^DD(452.4,.05,23,1,0)="FREE TEXT FIELD"
^DD(452.4,.05,"DT")="2940822"
^DD(452.4,1,0)="PROGRAM/CLASS^452.42PA^^1;0"
^DD(452.4,1,3)="Enter the name of the program or class that you want to include in this category."
^DD(452.4,1,21,0)="^^1^1^2950728^"
^DD(452.4,1,21,1,0)="This field contains the names of classes associated with this category"
^DD(452.4,1,"DT")="2920214"
^DD(452.4,2,0)="SERVICE^P49'^DIC(49,^0;3^Q"
^DD(452.4,2,1,0)="^.1"
^DD(452.4,2,1,1,0)="452.4^SER"
^DD(452.4,2,1,1,1)="S ^PRSE(452.4,""SER"",$E(X,1,30),DA)="""""
^DD(452.4,2,1,1,2)="K ^PRSE(452.4,""SER"",$E(X,1,30),DA)"
^DD(452.4,2,1,1,"DT")="2921113"
^DD(452.4,2,21,0)="^^1^1^2950728^"
^DD(452.4,2,21,1,0)="This field indicates the service associated with this category."
^DD(452.4,2,"DT")="2921113"
^DD(452.4,3,0)="USER^P200'^VA(200,^0;4^Q"
^DD(452.4,3,21,0)="^^1^1^2950728^"
^DD(452.4,3,21,1,0)="This field indicates the user who entered this category."
^DD(452.4,3,"DT")="2921105"
^DD(452.4,"B","CODE USED BY PAID",.05)="1"
^DD(452.4,"B","PAID CODE",.05)=""
^DD(452.4,"B","PROGRAM CATEGORY",.01)=""
^DD(452.4,"B","PROGRAM/CATEGORY",.01)="1"
^DD(452.4,"B","PROGRAM/CLASS",1)=""
^DD(452.4,"B","SERVICE",2)=""
^DD(452.4,"B","USER",3)=""
^DD(452.4,"GL",0,1,.01)=""
^DD(452.4,"GL",0,2,.05)=""
^DD(452.4,"GL",0,3,2)=""
^DD(452.4,"GL",0,4,3)=""
^DD(452.4,"GL",1,0,1)=""
^DD(452.4,"IX",.01)=""
^DD(452.4,"IX",.05)=""
^DD(452.4,"IX",2)=""
^DD(452.4,"RQ",.01)=""
^DD(452.4,"SB",452.42,1)=""
^DD(452.42,0)="PROGRAM/CLASS SUB-FIELD^^.01^1"
^DD(452.42,0,"DT")="2920626"
^DD(452.42,0,"IX","B",452.42,.01)=""
^DD(452.42,0,"NM","PROGRAM/CLASS")=""
^DD(452.42,0,"UP")="452.4"
^DD(452.42,.01,0)="PROGRAM/CLASS^MP452.1'^PRSE(452.1,^0;1^Q"
^DD(452.42,.01,.1)="PROGRAM/CLASS TITLE"
^DD(452.42,.01,1,0)="^.1"
^DD(452.42,.01,1,1,0)="452.42^B"
^DD(452.42,.01,1,1,1)="S ^PRSE(452.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(452.42,.01,1,1,2)="K ^PRSE(452.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(452.42,.01,3)="Enter name of Program or Class that you want under this Category."
^DD(452.42,.01,21,0)="^^1^1^2920624^^"
^DD(452.42,.01,21,1,0)="This is the program or class that will come under this category."
^DD(452.42,.01,23,0)="^^1^1^2920624^^"
^DD(452.42,.01,23,1,0)="POINTER TO EDUCATION PROGRAM/CLASS TITLE FILE ^PRSE(452.1,"
^DD(452.42,.01,"DT")="2920626"
^DD(452.42,"B","PROGRAM/CLASS",.01)=""
^DD(452.42,"B","PROGRAM/CLASS TITLE",.01)="1"
^DD(452.42,"GL",0,1,.01)=""
^DD(452.42,"IX",.01)=""
^DD(452.5,0)="FIELD^^.01^1"
^DD(452.5,0,"DDA")="N"
^DD(452.5,0,"DT")="2920910"
^DD(452.5,0,"IX","B",452.5,.01)=""
^DD(452.5,0,"NM","PRSE EDUCATION PRESENTATION MEDIA")=""
^DD(452.5,0,"PT",452.8,2)=""
^DD(452.5,0,"VR")="4.0"
^DD(452.5,.01,0)="MEDIA SOURCE^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(452.5,.01,.1)="SOURCE OF PROGRAMMING"
^DD(452.5,.01,1,0)="^.1"
^DD(452.5,.01,1,1,0)="452.5^B"
^DD(452.5,.01,1,1,1)="S ^PRSE(452.5,""B"",$E(X,1,30),DA)="""""
^DD(452.5,.01,1,1,2)="K ^PRSE(452.5,""B"",$E(X,1,30),DA)"
^DD(452.5,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.5,.01,1,1,"%D",1,0)="Main index of file entries by media source name."
^DD(452.5,.01,3)="Answer must be 3-20 characters in length"
^DD(452.5,.01,4)=""
^DD(452.5,.01,21,0)="^^2^2^2930430^^^^"
^DD(452.5,.01,21,1,0)="This field contains the method of media presentation, e.g., video, class"
^DD(452.5,.01,21,2,0)="room."
^DD(452.5,.01,23,0)="^^1^1^2930430^^^^"
^DD(452.5,.01,23,1,0)="FREE TEXT FIELD"
^DD(452.5,.01,"DT")="2940216"
^DD(452.5,"B","MEDIA SOURCE",.01)=""
^DD(452.5,"B","SOURCE OF PROGRAMMING",.01)="1"
^DD(452.5,"GL",0,1,.01)=""
^DD(452.5,"IX",.01)=""
^DD(452.5,"RQ",.01)=""
^DD(452.51,0)="FIELD^^1^2"
^DD(452.51,0,"DDA")="N"
^DD(452.51,0,"DT")="2930513"
^DD(452.51,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(452.51,0,"IX","B",452.51,.01)=""
^DD(452.51,0,"IX","CODE",452.51,1)=""
^DD(452.51,0,"NM","PRSE EMPLOYEE PURPOSE OF TRAINING")=""
^DD(452.51,0,"PT",452,4.1)=""
^DD(452.51,0,"PT",452.8,10)=""
^DD(452.51,0,"VR")="4.0"
^DD(452.51,.01,0)="PURPOSE OF TRAINING^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(452.51,.01,.1)="REASON FOR TAKING PROGRAM/CLASS"
^DD(452.51,.01,1,0)="^.1"
^DD(452.51,.01,1,1,0)="452.51^B"
^DD(452.51,.01,1,1,1)="S ^PRSE(452.51,""B"",$E(X,1,30),DA)="""""
^DD(452.51,.01,1,1,2)="K ^PRSE(452.51,""B"",$E(X,1,30),DA)"
^DD(452.51,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.51,.01,1,1,"%D",1,0)="Main index of file entries by purpose of training name."
^DD(452.51,.01,3)="Answer must be 3-30 characters in length"
^DD(452.51,.01,21,0)="^^2^2^2930430^^^^"
^DD(452.51,.01,21,1,0)="This field contains a reason for attending a program or class.  Refer to"
^DD(452.51,.01,21,2,0)="VA Form 5-4691, field 9."
^DD(452.51,.01,23,0)="^^1^1^2930430^^^^"
^DD(452.51,.01,23,1,0)="FREE TEXT FIELD"
^DD(452.51,.01,"DT")="2940216"
^DD(452.51,1,0)="PAID CODE^FX^^0;2^S X=$$UP^XLFSTR(X) K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(452.51,1,.1)="CODE USED FOR PAID SYSTEM"
^DD(452.51,1,1,0)="^.1"
^DD(452.51,1,1,1,0)="452.51^CODE"
^DD(452.51,1,1,1,1)="S ^PRSE(452.51,""CODE"",$E(X,1,30),DA)="""""
^DD(452.51,1,1,1,2)="K ^PRSE(452.51,""CODE"",$E(X,1,30),DA)"
^DD(452.51,1,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.51,1,1,1,"%D",1,0)="Indexes file entries by PAID code."
^DD(452.51,1,1,1,"DT")="2921113"
^DD(452.51,1,3)="Answer must be 1-3 characters in length."
^DD(452.51,1,21,0)="^^2^2^2950112^^^^"
^DD(452.51,1,21,1,0)="This is a code associated with this reason for training to be used by the"
^DD(452.51,1,21,2,0)="PAID system."
^DD(452.51,1,23,0)="^^1^1^2950112^^^^"
^DD(452.51,1,23,1,0)="FREE TEXT FIELD"
^DD(452.51,1,"DT")="2940822"
^DD(452.51,"B","CODE USED FOR PAID SYSTEM",1)="1"
^DD(452.51,"B","PAID CODE",1)=""
^DD(452.51,"B","PURPOSE OF TRAINING",.01)=""
^DD(452.51,"GL",0,1,.01)=""
^DD(452.51,"GL",0,2,1)=""
^DD(452.51,"IX",.01)=""
^DD(452.51,"IX",1)=""
^DD(452.51,"RQ",.01)=""
^DD(452.6,0)="FIELD^^.01^1"
^DD(452.6,0,"DDA")="N"
^DD(452.6,0,"DT")="2940912"
^DD(452.6,0,"IX","B",452.6,.01)=""
^DD(452.6,0,"NM","PRSE SVC REASONS FOR TRAINING")=""
^DD(452.6,0,"PT",452.033,.01)=""
^DD(452.6,0,"PT",452.877,.01)=""
^DD(452.6,0,"VR")="4.0"
^DD(452.6,.01,0)="REASON FOR EMPLOYEE TRAINING^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>72!($L(X)<2)!'(X'?1P.E) X"
^DD(452.6,.01,.1)="REASON FOR EMPLOYEE TRAINING"
^DD(452.6,.01,1,0)="^.1"
^DD(452.6,.01,1,1,0)="452.6^B"
^DD(452.6,.01,1,1,1)="S ^PRSE(452.6,""B"",$E(X,1,72),DA)="""""
^DD(452.6,.01,1,1,2)="K ^PRSE(452.6,""B"",$E(X,1,72),DA)"
^DD(452.6,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.6,.01,1,1,"%D",1,0)="Main index of file entries by reason for training name."
^DD(452.6,.01,3)="Answer must be 2-72 characters in length."
^DD(452.6,.01,4)="W !,""You may enter a reason for giving this class."",!"
^DD(452.6,.01,21,0)="^^1^1^2940912^^"
^DD(452.6,.01,21,1,0)="This field contains the service's reason for attending this program/class."
^DD(452.6,.01,23,0)="^^1^1^2940912^^"
^DD(452.6,.01,23,1,0)="FREE TEXT (2-72)"
^DD(452.6,.01,"DEL",1,0)="I 1 D EN^DDIOL(""FILE IS POINTED TO - NO DELETION ALLOWED"")"
^DD(452.6,.01,"DT")="2940912"
^DD(452.6,"B","REASON FOR EMPLOYEE TRAINING",.01)=""
^DD(452.6,"GL",0,1,.01)=""
^DD(452.6,"IX",.01)=""
^DD(452.6,"RQ",.01)=""
^DD(452.7,0)="FIELD^^5^6"
^DD(452.7,0,"DDA")="N"
^DD(452.7,0,"DT")="2940811"
^DD(452.7,0,"IX","B",452.7,.01)=""
^DD(452.7,0,"NM","PRSE PARAMETERS")=""
^DD(452.7,0,"VR")="4.0"
^DD(452.7,.01,0)="NAME^RFIX^^0;1^S X=$$UP^XLFSTR(X) K:'$D(DA)#2 X I $D(X)#2 K:DA'=1 X I $D(X)#2 K:$L(X)>3!($L(X)<3)!'(X=""ONE"") X"
^DD(452.7,.01,1,0)="^.1"
^DD(452.7,.01,1,1,0)="452.7^B"
^DD(452.7,.01,1,1,1)="S ^PRSE(452.7,""B"",$E(X,1,30),DA)="""""
^DD(452.7,.01,1,1,2)="K ^PRSE(452.7,""B"",$E(X,1,30),DA)"
^DD(452.7,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.7,.01,1,1,"%D",1,0)="Main index of file entry by file name ""ONE""."
^DD(452.7,.01,3)="Answer must be 3 characters in length."
^DD(452.7,.01,21,0)="^^2^2^2940811^^"
^DD(452.7,.01,21,1,0)="This field contains the word ONE, and can only contain this word.  Also"
^DD(452.7,.01,21,2,0)="there can only be one entry in this file."
^DD(452.7,.01,"DT")="2940822"
^DD(452.7,1,0)="PRSE OFFLINE/ON-LINE^S^1:OFF-LINE;0:ON-LINE;^OFF;1^Q"
^DD(452.7,1,21,0)="^^2^2^2940811^^"
^DD(452.7,1,21,1,0)="this switch will allow the Education Tracking Appliocation to be taken off-"
^DD(452.7,1,21,2,0)="line without bringing the entire system down."
^DD(452.7,1,"DT")="2940811"
^DD(452.7,2,0)="PRSE INITIALIZATION SWITCH^NJ7,3^^INIT;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(452.7,2,3)="Type a Number between 0 and 100, 3 Decimal Digits"
^DD(452.7,2,8.5)="^"
^DD(452.7,2,9)="^"
^DD(452.7,2,21,0)="^^1^1^2940822^"
^DD(452.7,2,21,1,0)="This switch is used by the developer only.  NO EDITING ALLOWED."
^DD(452.7,2,"DT")="2940811"
^DD(452.7,3,0)="SUPPLIER/PRESENTER LAYGO^S^1:LAYGO ACCESS;0:NO LAYGO ACCESS;^0;4^Q"
^DD(452.7,3,3)=""
^DD(452.7,3,8.5)="^"
^DD(452.7,3,9)="^"
^DD(452.7,3,21,0)="^^2^2^2940811^"
^DD(452.7,3,21,1,0)="This field allows IRM to turn on/off laygo access to the Supplier/Presenter"
^DD(452.7,3,21,2,0)="File in the Education Tracking Application."
^DD(452.7,3,"DT")="2940811"
^DD(452.7,4,0)="STATION NAME^FX^^0;2^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452.7,4,3)="Answer must be 3-30 characters in length."
^DD(452.7,4,21,0)="^^2^2^2941006^^"
^DD(452.7,4,21,1,0)="This field should contain the station name or the desired default location"
^DD(452.7,4,21,2,0)="for all locally presented training (e.g., VAMC HINES)."
^DD(452.7,4,23,0)="^^1^1^2941006^^^^"
^DD(452.7,4,23,1,0)="Free text value 3-30 characters."
^DD(452.7,4,"DT")="2940822"
^DD(452.7,5,0)="NEW PERSON FILE ACCESS^S^1:ACCESS TO NEW PERSON FILE;0:NO ACCESS TO NEW PERSON FILE;^0;3^Q"
^DD(452.7,5,21,0)="^^2^2^2940811^"
^DD(452.7,5,21,1,0)="This field allows IRM to turn on/off access to the New Person File from"
^DD(452.7,5,21,2,0)="the Education Tracking Application."
^DD(452.7,5,"DT")="2940811"
^DD(452.7,"B","NAME",.01)=""
^DD(452.7,"B","NEW PERSON FILE ACCESS",5)=""
^DD(452.7,"B","PRSE INITIALIZATION SWITCH",2)=""
^DD(452.7,"B","PRSE OFFLINE/ON-LINE",1)=""
^DD(452.7,"B","STATION NAME",4)=""
^DD(452.7,"B","SUPPLIER/PRESENTER LAYGO",3)=""
^DD(452.7,"GL",0,1,.01)=""
^DD(452.7,"GL",0,2,4)=""
^DD(452.7,"GL",0,3,5)=""
^DD(452.7,"GL",0,4,3)=""
^DD(452.7,"GL","INIT",1,2)=""
^DD(452.7,"GL","OFF",1,1)=""
^DD(452.7,"IX",.01)=""
^DD(452.7,"RQ",.01)=""
^DD(452.8,0)="FIELD^^89^19"
^DD(452.8,0,"DDA")="N"
^DD(452.8,0,"DT")="2941101"
^DD(452.8,0,"IX","AA01",452.8,.01)=""
^DD(452.8,0,"IX","AA27",452.8,2.7)=""
^DD(452.8,0,"IX","B",452.8,.01)=""
^DD(452.8,0,"NM","PRSE EDUCATION REGISTRATION")=""
^DD(452.8,0,"VR")="4.0"
^DD(452.8,.01,0)="CLASS NAME^P452.1X^PRSE(452.1,^0;1^Q"
^DD(452.8,.01,.1)="PROGRAM OR CLASS TO BE PRESENTED"
^DD(452.8,.01,1,0)="^.1^^-1"
^DD(452.8,.01,1,1,0)="452.8^B"
^DD(452.8,.01,1,1,1)="S ^PRSE(452.8,""B"",$E(X,1,30),DA)="""""
^DD(452.8,.01,1,1,2)="K ^PRSE(452.8,""B"",$E(X,1,30),DA)"
^DD(452.8,.01,1,1,"%D",0)="^^2^2^2941031^"
^DD(452.8,.01,1,1,"%D",1,0)="Main index of file entries by class name which is a pointer to the"
^DD(452.8,.01,1,1,"%D",2,0)="Program/Class (#452.1) File."
^DD(452.8,.01,1,2,0)="452.8^AA01^MUMPS"
^DD(452.8,.01,1,2,1)="S PRSE=$G(^PRSE(452.8,DA,0)) S:$P(PRSE,U,21)]"""" ^PRSE(452.8,""AA"",$P(PRSE,U,21),X,DA)="""" K PRSE"
^DD(452.8,.01,1,2,2)="S PRSE=$G(^PRSE(452.8,DA,0)) K:$P(PRSE,U,21)]"""" ^PRSE(452.8,""AA"",$P(PRSE,U,21),X,DA) K PRSE"
^DD(452.8,.01,1,2,"%D",0)="^^1^1^2941031^^"
^DD(452.8,.01,1,2,"%D",1,0)="Indexes file entries by service/class. "
^DD(452.8,.01,1,2,"DT")="2930201"
^DD(452.8,.01,3)=""
^DD(452.8,.01,4)="W !,""You may enter a new program or class if you like."""
^DD(452.8,.01,21,0)="^^1^1^2941026^^^^"
^DD(452.8,.01,21,1,0)="This field contains the name of a specific program or class."
^DD(452.8,.01,23,0)="^^1^1^2941026^^^^"
^DD(452.8,.01,23,1,0)="POINTER TO EDUCATION PROGRAM/CLASS TITLE FILE ^PRSE(452.1,"
^DD(452.8,.01,"DT")="2931209"
^DD(452.8,.01,"LAYGO",1,0)="I $$LAYGO^PRSEUTL($G(PRSESER))"
^DD(452.8,1,0)="LOCAL/NON-LOCAL CLASS^RSX^L:LOCAL CLASS;N:NON-LOCAL CLASS;^0;2^Q"
^DD(452.8,1,21,0)="^^2^2^2930506^^^^"
^DD(452.8,1,21,1,0)="This field indicates whether the class is being presented locally or"
^DD(452.8,1,21,2,0)="outside the facility."
^DD(452.8,1,"DT")="2941027"
^DD(452.8,2,0)="TYPE OF MEDIA^P452.5'^PRSE(452.5,^0;3^Q"
^DD(452.8,2,.1)="SOURCE OF MEDIA USED"
^DD(452.8,2,3)=""
^DD(452.8,2,21,0)="^^1^1^2930506^^^^"
^DD(452.8,2,21,1,0)="This is the type of media used to present this program or class."
^DD(452.8,2,23,0)="^^1^1^2930506^^^^"
^DD(452.8,2,23,1,0)="POINTER TO EDUCATION PRESENTATION MEDIA FILE ^PRSE(452.5,"
^DD(452.8,2,"DT")="2930503"
^DD(452.8,2.7,0)="SPONSORING SERVICE/SECTION^RP454.1'^PRSP(454.1,^0;21^Q"
^DD(452.8,2.7,.1)=""
^DD(452.8,2.7,1,0)="^.1"
^DD(452.8,2.7,1,1,0)="452.8^AA27^MUMPS"
^DD(452.8,2.7,1,1,1)="S PRSE=$G(^PRSE(452.8,DA,0)) S:$P(PRSE,U)]"""" ^PRSE(452.8,""AA"",X,$P(PRSE,U),DA)="""" K PRSE"
^DD(452.8,2.7,1,1,2)="S PRSE=$G(^PRSE(452.8,DA,0)) K:$P(PRSE,U)]"""" ^PRSE(452.8,""AA"",X,$P(PRSE,U),DA) K PRSE"
^DD(452.8,2.7,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.8,2.7,1,1,"%D",1,0)="Indexes file entries by service/class."
^DD(452.8,2.7,1,1,"DT")="2930201"
^DD(452.8,2.7,5,1,0)="452.1^6^1"
^DD(452.8,2.7,21,0)="^^1^1^2930903^^^^"
^DD(452.8,2.7,21,1,0)="This field contains the service/section that is sponsoring this class."
^DD(452.8,2.7,"DT")="2930511"
^DD(452.8,3,0)="GOVERNMENT FUNDED^RSX^G:GOVERNMENT FUNDED;E:EMPLOYEE FUNDED;^0;4^Q"
^DD(452.8,3,.1)=""
^DD(452.8,3,3)=""
^DD(452.8,3,21,0)="^^1^1^2940425^^^^"
^DD(452.8,3,21,1,0)="This field indicates whether this class is government funded or not."
^DD(452.8,3,23,0)="^^1^1^2940425^^^^"
^DD(452.8,3,23,1,0)="SET OF CODES"
^DD(452.8,3,"DT")="2941027"
^DD(452.8,4,0)="TYPE OF CLASS^RSX^M:MANDATORY;C:CONTINUING EDUCATION;O:OTHER TRAINING;W:WARD INSERVICE;^0;5^Q"
^DD(452.8,4,.1)="TYPE TRAINING"
^DD(452.8,4,3)=""
^DD(452.8,4,21,0)="^^2^2^2930524^^^^"
^DD(452.8,4,21,1,0)="This field categorizes the class as mandatory inservice, continuing"
^DD(452.8,4,21,2,0)="education, ward inservice, or other."
^DD(452.8,4,23,0)="^^1^1^2930524^^^^"
^DD(452.8,4,23,1,0)="SET OF CODES"
^DD(452.8,4,"DT")="2941027"
^DD(452.8,5,0)="ROUTINE/NON-ROUTINE^S^R:ROUTINE;N:NON-ROUTINE;^0;6^Q"
^DD(452.8,5,3)="Enter (R)outine if the class does not enhance the employee's job qualifications, or (N)on-Routine if the opposite is true."
^DD(452.8,5,21,0)="^^2^2^2950111^^^^"
^DD(452.8,5,21,1,0)=" This field indicates whether or not the class enhances or does not enhance"
^DD(452.8,5,21,2,0)="the employee's job qualifications."
^DD(452.8,5,23,0)="^^1^1^2950111^^^^"
^DD(452.8,5,23,1,0)="set of codes"
^DD(452.8,5,"DT")="2941101"
^DD(452.8,6,0)="SOURCE OF TRAINING^RS^1:V.A.;2:INTERAGENCY (e.g. Courses given by (OPM);3:NON-GOVERNMENT (Designed for V.A.);4:N0N-GOVERNMENT (e.g. Institution, Company or Unversity);5:STATE OR LOCAL GOVERNMENT;^0;7^Q"
^DD(452.8,6,.1)=""
^DD(452.8,6,3)=""
^DD(452.8,6,4)="W !,""This entry must be entered for PAID."",!"
^DD(452.8,6,21,0)="^^1^1^2940803^^^^"
^DD(452.8,6,21,1,0)="This field contains the agency who is financing this course."
^DD(452.8,6,23,0)="^^1^1^2940803^^^^"
^DD(452.8,6,23,1,0)="POINTER TO EDUCATION PROGRAM/CLASS COST FILE ^PRSE(452.7,"
^DD(452.8,6,"DT")="2930126"
^DD(452.8,7,0)="ACCREDITING ORGANIZATION^P452.9'^PRSE(452.9,^0;8^Q"
^DD(452.8,7,.1)=""
^DD(452.8,7,3)=""
^DD(452.8,7,21,0)="^^1^1^2930430^^^^"
^DD(452.8,7,21,1,0)="This field contains the name of the organization accrediting the program."
^DD(452.8,7,23,0)="^^1^1^2930430^^^^"
^DD(452.8,7,23,1,0)="POINTER TO EDUCATION ACCREDITATION BOARDS FILE ^PRSE(452.9,"
^DD(452.8,7,"DT")="2930319"
^DD(452.8,7.1,0)="CLASS HRS DURING ON-DUTY TIME^NJ7,2X^^0;11^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(452.8,7.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits."
^DD(452.8,7.1,21,0)="^^2^2^2941209^^^^"
^DD(452.8,7.1,21,1,0)="This field indicates the number of classroom hours used to attend a"
^DD(452.8,7.1,21,2,0)="program during the student's tour of duty."
^DD(452.8,7.1,"DT")="2930525"
^DD(452.8,7.2,0)="CLASS HRS DURING OFF-DUTY TIME^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(452.8,7.2,3)="Type a Number between 0 and 9999, 0 Decimal Digits."
^DD(452.8,7.2,21,0)="^^2^2^2941209^^^^"
^DD(452.8,7.2,21,1,0)="This field indicates the number of classroom hours used to attend a"
^DD(452.8,7.2,21,2,0)="program during a student's off-duty time."
^DD(452.8,7.2,"DT")="2930525"
^DD(452.8,7.5,0)="CEUs^NJ6,2^^0;13^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(452.8,7.5,.1)="C.E Units allowed for Program/Class"
^DD(452.8,7.5,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(452.8,7.5,21,0)="^^1^1^2970304^^^^"
^DD(452.8,7.5,21,1,0)="This is the number of continuing education units associated with the class."
^DD(452.8,7.5,23,0)="^^1^1^2970304^^^^"
^DD(452.8,7.5,23,1,0)="NUMERIC FIELD WITH 1-DECIMAL PLACE"
^DD(452.8,7.5,"DT")="2970529"
^DD(452.8,7.6,0)="CONTACT HOURS^NJ7,2^^0;9^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(452.8,7.6,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits."
^DD(452.8,7.6,21,0)="^^2^2^2941222^^^^"
^DD(452.8,7.6,21,1,0)="This field contains the number of contact hours associated with this "
^DD(452.8,7.6,21,2,0)="program."
^DD(452.8,7.6,"DT")="2931207"
^DD(452.8,9,0)="CLASS CATEGORY^RP452.4'^PRSE(452.4,^0;10^Q"
^DD(452.8,9,.1)=""
^DD(452.8,9,1,0)="^.1^^0"
^DD(452.8,9,3)=""
^DD(452.8,9,21,0)="^^1^1^2940106^^^^"
^DD(452.8,9,21,1,0)="This field categorizes a specific class or program."
^DD(452.8,9,23,0)="^^1^1^2940106^^^^"
^DD(452.8,9,23,1,0)="POINTER TO EDUCATION PROGRAM/CLASS CATEGORY FILE ^PRSE(452.4,"
^DD(452.8,9,"DT")="2941123"
^DD(452.8,10,0)="PURPOSE OF CLASS^RP452.51'^PRSE(452.51,^0;12^Q"
^DD(452.8,10,.1)=""
^DD(452.8,10,3)=""
^DD(452.8,10,21,0)="^^1^1^2940613^^^^"
^DD(452.8,10,21,1,0)="This field contains the reason this program/class is given."
^DD(452.8,10,23,0)="^^1^1^2940613^^^^"
^DD(452.8,10,23,1,0)="POINTER TO EMPLOYEE PURPOSE OF TRAINING FILE ^PRSE(452.51,"
^DD(452.8,10,"DT")="2930202"
^DD(452.8,11,0)="CODE FOR OLDE^RSX^Y:YES;N:NO;^0;17^Q"
^DD(452.8,11,21,0)="^^2^2^2941209^^"
^DD(452.8,11,21,1,0)="This field indicates whether or not this record should be transmitted"
^DD(452.8,11,21,2,0)="to Austin, Texas."
^DD(452.8,11,"DT")="2941027"
^DD(452.8,15,0)="PRSE PROGRAM/CLASS LENGTH HRS^RNJ7,2^^0;18^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(452.8,15,.1)=""
^DD(452.8,15,3)="Indicate number of hours by typing a Number between 0 and 9999.99, 2 Decimal Digits."
^DD(452.8,15,4)=""
^DD(452.8,15,21,0)="^^1^1^2941209^^^^"
^DD(452.8,15,21,1,0)="This field indicates the class duration in hours."
^DD(452.8,15,"DT")="2941209"
^DD(452.8,77,0)="SERVICE REASON FOR CLASS^452.877PA^^2;0"
^DD(452.8,77,21,0)="^^1^1^2941209^^^^"
^DD(452.8,77,21,1,0)="This field contains the service's reason for having an individual attend this program/class."
^DD(452.8,77,"DT")="2930128"
^DD(452.8,89,0)="START DATE/TIME OF CLASS^452.889ID^^3;0"
^DD(452.8,89,21,0)="^^2^2^2950112^^^^"
^DD(452.8,89,21,1,0)="This multiple contains the scheduled start dates/times for this"
^DD(452.8,89,21,2,0)="program/class."
^DD(452.8,89,23,0)="^^1^1^2950112^^^^"
^DD(452.8,89,23,1,0)="DATE AND TIME"
^DD(452.8,89,"DT")="2930202"
^DD(452.8,"B","ACCREDITING ORGANIZATION",7)=""
^DD(452.8,"B","CEUs",7.5)=""
^DD(452.8,"B","CLASS CATEGORY",9)=""
^DD(452.8,"B","CLASS HRS DURING OFF-DUTY TIME",7.2)=""
^DD(452.8,"B","CLASS HRS DURING ON-DUTY TIME",7.1)=""
^DD(452.8,"B","CLASS NAME",.01)=""
^DD(452.8,"B","CODE FOR OLDE",11)=""
^DD(452.8,"B","CONTACT HOURS",7.6)=""
^DD(452.8,"B","GOVERNMENT FUNDED",3)=""
^DD(452.8,"B","LOCAL/NON-LOCAL CLASS",1)=""
^DD(452.8,"B","PRSE PROGRAM/CLASS LENGTH HRS",15)=""
^DD(452.8,"B","PURPOSE OF CLASS",10)=""
^DD(452.8,"B","ROUTINE/NON-ROUTINE",5)=""
^DD(452.8,"B","SERVICE REASON FOR CLASS",77)=""
^DD(452.8,"B","SOURCE OF MEDIA USED",2)="1"
^DD(452.8,"B","SOURCE OF TRAINING",6)=""
^DD(452.8,"B","SPONSORING SERVICE/SECTION",2.7)=""
^DD(452.8,"B","START DATE/TIME OF CLASS",89)=""
^DD(452.8,"B","TYPE OF CLASS",4)=""
^DD(452.8,"B","TYPE OF MEDIA",2)=""
^DD(452.8,"B","TYPE TRAINING",4)="1"
^DD(452.8,"GL",0,1,.01)=""
^DD(452.8,"GL",0,2,1)=""
^DD(452.8,"GL",0,3,2)=""
^DD(452.8,"GL",0,4,3)=""
^DD(452.8,"GL",0,5,4)=""
^DD(452.8,"GL",0,6,5)=""
^DD(452.8,"GL",0,7,6)=""
^DD(452.8,"GL",0,8,7)=""
^DD(452.8,"GL",0,9,7.6)=""
^DD(452.8,"GL",0,10,9)=""
^DD(452.8,"GL",0,11,7.1)=""
^DD(452.8,"GL",0,12,10)=""
^DD(452.8,"GL",0,13,7.5)=""
^DD(452.8,"GL",0,14,7.2)=""
^DD(452.8,"GL",0,17,11)=""
^DD(452.8,"GL",0,18,15)=""
^DD(452.8,"GL",0,21,2.7)=""
^DD(452.8,"GL",2,0,77)=""
^DD(452.8,"GL",3,0,89)=""
^DD(452.8,"IX",.01)=""
^DD(452.8,"IX",2.7)=""
^DD(452.8,"RQ",1)=""
^DD(452.8,"RQ",2.7)=""
^DD(452.8,"RQ",3)=""
^DD(452.8,"RQ",4)=""
^DD(452.8,"RQ",6)=""
^DD(452.8,"RQ",9)=""
^DD(452.8,"RQ",10)=""
^DD(452.8,"RQ",11)=""
^DD(452.8,"RQ",15)=""
^DD(452.8,"SB",452.877,77)=""
^DD(452.8,"SB",452.889,89)=""
^DD(452.877,0)="SERVICE REASON FOR CLASS SUB-FIELD^^.01^1"
^DD(452.877,0,"DT")="2930222"
^DD(452.877,0,"IX","B",452.877,.01)=""
^DD(452.877,0,"NM","SERVICE REASON FOR CLASS")=""
^DD(452.877,0,"UP")="452.8"
^DD(452.877,.01,0)="SERVICE REASON FOR CLASS^MP452.6'^PRSE(452.6,^0;1^Q"
^DD(452.877,.01,.1)=""
^DD(452.877,.01,1,0)="^.1"
^DD(452.877,.01,1,1,0)="452.877^B"
^DD(452.877,.01,1,1,1)="S ^PRSE(452.8,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(452.877,.01,1,1,2)="K ^PRSE(452.8,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(452.877,.01,1,1,"%D",0)="^^2^2^2941123^"
^DD(452.877,.01,1,1,"%D",1,0)="Main index of service reason for class entries which point to PRSE SVC"
^DD(452.877,.01,1,1,"%D",2,0)="REASONS FOR TRAINING (#452.6) File."
^DD(452.877,.01,3)=""
^DD(452.877,.01,21,0)="^^2^2^2940106^^^^"
^DD(452.877,.01,21,1,0)="This field contains the service's reason for having an individual attend"
^DD(452.877,.01,21,2,0)="this program/class."
^DD(452.877,.01,23,0)="^^1^1^2940106^^^^"
^DD(452.877,.01,23,1,0)="POINTER TO SVC REASON FOR TRAINING File 452.6"
^DD(452.877,.01,"DT")="2930222"
^DD(452.877,"B","SERVICE REASON FOR CLASS",.01)=""
^DD(452.877,"GL",0,1,.01)=""
^DD(452.877,"IX",.01)=""
^DD(452.889,0)="START DATE/TIME OF CLASS SUB-FIELD^^4^6"
^DD(452.889,0,"DT")="2930422"
^DD(452.889,0,"IX","B",452.889,.01)=""
^DD(452.889,0,"IX","C",452.889,.01)=""
^DD(452.889,0,"NM","START DATE/TIME OF CLASS")=""
^DD(452.889,0,"UP")="452.8"
^DD(452.889,.01,0)="START DATE/TIME OF CLASS^MRD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(452.889,.01,.1)=""
^DD(452.889,.01,1,0)="^.1"
^DD(452.889,.01,1,1,0)="452.889^B"
^DD(452.889,.01,1,1,1)="S ^PRSE(452.8,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(452.889,.01,1,1,2)="K ^PRSE(452.8,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(452.889,.01,1,1,"%D",0)="^^1^1^2941123^"
^DD(452.889,.01,1,1,"%D",1,0)="Main index of program start date/time entries."
^DD(452.889,.01,1,2,0)="452.889^C^MUMPS"
^DD(452.889,.01,1,2,1)="S ^PRSE(452.8,DA(1),3,""C"",9999999-$E(X,1,30),DA)="""""
^DD(452.889,.01,1,2,2)="K ^PRSE(452.8,DA(1),3,""C"",9999999-$E(X,1,30),DA)"
^DD(452.889,.01,1,2,"%D",0)="^^1^1^2941123^^^^"
^DD(452.889,.01,1,2,"%D",1,0)="MUMPS inverted time/date X-Ref placing latest date first."
^DD(452.889,.01,1,2,"DT")="2930122"
^DD(452.889,.01,3)="Enter the date of this program or class, time is required if the class is to be tracked by personnel"
^DD(452.889,.01,4)=""
^DD(452.889,.01,21,0)="^^1^1^2930430^^^^"
^DD(452.889,.01,21,1,0)="This is the scheduled start date/time for this program/class."
^DD(452.889,.01,23,0)="^^1^1^2930430^^^^"
^DD(452.889,.01,23,1,0)="DATE AND TIME"
^DD(452.889,.01,"DT")="2930422"
^DD(452.889,1,0)="LOCATION OF PRESENTATION^FX^^0;2^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<2) X"
^DD(452.889,1,.1)=""
^DD(452.889,1,3)="Answer must be 2-30 characters in length"
^DD(452.889,1,21,0)="^^1^1^2930430^^^^"
^DD(452.889,1,21,1,0)="This field contains the location where this program/class is to be held."
^DD(452.889,1,"DT")="2940822"
^DD(452.889,2,0)="ENDING DATE/TIME OF CLASS^DX^^0;3^S PRSE=""E"" D EN9^PRSEUTL2"
^DD(452.889,2,.1)=""
^DD(452.889,2,3)="Enter the scheduled end date of this class (time is optional)"
^DD(452.889,2,21,0)="^^1^1^2930430^^^^"
^DD(452.889,2,21,1,0)="This field contains the scheduled end date/time of this program/class."
^DD(452.889,2,23,0)="^^1^1^2930430^^^^"
^DD(452.889,2,23,1,0)="DATE/TIME"
^DD(452.889,2,"DT")="2930421"
^DD(452.889,3,0)="PRESENTER/SUPPLIER^FX^^0;4^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452.889,3,.1)=""
^DD(452.889,3,3)="Answer must be 3-30 characters in length"
^DD(452.889,3,21,0)="^^2^2^2931116^^^^"
^DD(452.889,3,21,1,0)="This field contains the company or organization who supplied the materials"
^DD(452.889,3,21,2,0)="for this class."
^DD(452.889,3,23,0)="^^1^1^2931116^^^^"
^DD(452.889,3,23,1,0)="Free text name for New Person or Programm/Class Supplier File ^PRSE(452.2."
^DD(452.889,3,"DT")="2940822"
^DD(452.889,3.1,0)="CLASS LIMIT^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(452.889,3.1,3)=""
^DD(452.889,3.1,4)="W !,""CHOOSE FROM:"",!,?3,""    0   REGISTRATION CLOSED"",!,?3,""1-999   REGISTRATION RESTRICTED TO NUMBER INDICATED (0 decimal digits)"",!,?3,""BLANK   REGISTRATION UNLIMITED"",!"
^DD(452.889,3.1,21,0)="^^2^2^2931109^^^^"
^DD(452.889,3.1,21,1,0)="This field indicates the maximum number of students that may register for"
^DD(452.889,3.1,21,2,0)="this class session."
^DD(452.889,3.1,22)=""
^DD(452.889,3.1,23,0)="^^1^1^2931109^^^^"
^DD(452.889,3.1,23,1,0)="Numeric valued field."
^DD(452.889,3.1,"DT")="2930225"
^DD(452.889,4,0)="STUDENT NAME^452.8894IPA^^1;0"
^DD(452.889,4,21,0)="^^1^1^2950112^^^^"
^DD(452.889,4,21,1,0)="This multiple contains the names of the employees attending this class."
^DD(452.889,4,"DT")="2930520"
^DD(452.889,"B","CLASS LIMIT",3.1)=""
^DD(452.889,"B","ENDING DATE/TIME OF CLASS",2)=""
^DD(452.889,"B","LOCATION OF PRESENTATION",1)=""
^DD(452.889,"B","PRESENTER/SUPPLIER",3)=""
^DD(452.889,"B","START DATE/TIME OF CLASS",.01)=""
^DD(452.889,"B","STUDENT NAME",4)=""
^DD(452.889,"GL",0,1,.01)=""
^DD(452.889,"GL",0,2,1)=""
^DD(452.889,"GL",0,3,2)=""
^DD(452.889,"GL",0,4,3)=""
^DD(452.889,"GL",0,5,3.1)=""
^DD(452.889,"GL",1,0,4)=""
^DD(452.889,"IX",.01)=""
^DD(452.889,"RQ",.01)=""
^DD(452.889,"SB",452.8894,4)=""
^DD(452.8894,0)="STUDENT NAME SUB-FIELD^^4^4"
^DD(452.8894,0,"DT")="2930125"
^DD(452.8894,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(452.8894,0,"IX","B",452.8894,.01)=""
^DD(452.8894,0,"NM","STUDENT NAME")=""
^DD(452.8894,0,"UP")="452.889"
^DD(452.8894,.01,0)="STUDENT NAME^MRP200'^VA(200,^0;1^Q"
^DD(452.8894,.01,1,0)="^.1"
^DD(452.8894,.01,1,1,0)="452.8894^B"
^DD(452.8894,.01,1,1,1)="S ^PRSE(452.8,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(452.8894,.01,1,1,2)="K ^PRSE(452.8,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(452.8894,.01,1,1,"%D",0)="^^2^2^2941123^"
^DD(452.8894,.01,1,1,"%D",1,0)="Main index on Student Sub-file containing entries that point to the New"
^DD(452.8894,.01,1,1,"%D",2,0)="Person (#200) File."
^DD(452.8894,.01,21,0)="^^1^1^2930520^^^"
^DD(452.8894,.01,21,1,0)="This field contains the name of the employee attending this class."
^DD(452.8894,.01,"DT")="2930520"
^DD(452.8894,1,0)="SERVICE^RFX^^0;2^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452.8894,1,3)="Answer must be 3-30 characters in length"
^DD(452.8894,1,21,0)="^^1^1^2940106^^^^"
^DD(452.8894,1,21,1,0)="This field associates a service with an employee."
^DD(452.8894,1,"DT")="2940822"
^DD(452.8894,3,0)="S.S.N.^RNJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(452.8894,3,3)="Type a Number between 1 and 999999999, 0 Decimal Digits."
^DD(452.8894,3,21,0)="^^1^1^2950112^^^^"
^DD(452.8894,3,21,1,0)="This field contains the employee's social security number."
^DD(452.8894,3,"DT")="2940602"
^DD(452.8894,4,0)="EMPLOYEE/NON-EMPLOYEE^SX^N:NON-EMPLOYEE;E:EMPLOYEE;^0;3^S X=$$UP^XLFSTR(X)"
^DD(452.8894,4,21,0)="^^1^1^2940518^^^^"
^DD(452.8894,4,21,1,0)="This field indicates whether the student is an employee or non-employee."
^DD(452.8894,4,"DT")="2940923"
^DD(452.8894,"B","EMPLOYEE/NON-EMPLOYEE",4)=""
^DD(452.8894,"B","S.S.N.",3)=""
^DD(452.8894,"B","SERVICE",1)=""
^DD(452.8894,"B","STUDENT NAME",.01)=""
^DD(452.8894,"GL",0,1,.01)=""
^DD(452.8894,"GL",0,2,1)=""
^DD(452.8894,"GL",0,3,4)=""
^DD(452.8894,"GL",0,4,3)=""
^DD(452.8894,"IX",.01)=""
^DD(452.8894,"RQ",.01)=""
^DD(452.8894,"RQ",1)=""
^DD(452.8894,"RQ",3)=""
^DD(452.9,0)="FIELD^^4^7"
^DD(452.9,0,"DDA")="N"
^DD(452.9,0,"DT")="2931004"
^DD(452.9,0,"IX","B",452.9,.01)=""
^DD(452.9,0,"NM","PRSE EDUCATION ACCREDITATION ORGANIZATIONS")=""
^DD(452.9,0,"PT",452,8)=""
^DD(452.9,0,"PT",452.8,7)=""
^DD(452.9,0,"VR")="4.0"
^DD(452.9,.01,0)="ACCREDITATION BOARD^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(452.9,.01,.1)="THE BOARD OF ACCREDITATION"
^DD(452.9,.01,1,0)="^.1"
^DD(452.9,.01,1,1,0)="452.9^B"
^DD(452.9,.01,1,1,1)="S ^PRSE(452.9,""B"",$E(X,1,50),DA)="""""
^DD(452.9,.01,1,1,2)="K ^PRSE(452.9,""B"",$E(X,1,50),DA)"
^DD(452.9,.01,1,1,"%D",0)="^^1^1^2941031^"
^DD(452.9,.01,1,1,"%D",1,0)="Main index of file entries by Accreditation Organization Name."
^DD(452.9,.01,3)="Answer must be 3-50 characters in length"
^DD(452.9,.01,4)=""
^DD(452.9,.01,21,0)="^^1^1^2940602^"
^DD(452.9,.01,21,1,0)="This field contains the name of the organization accrediting the program."
^DD(452.9,.01,21,2,0)=" CEUs and contact hours) for a program."
^DD(452.9,.01,23,0)="^^1^1^2940602^^^^"
^DD(452.9,.01,23,1,0)="FREE TEXT FIELD"
^DD(452.9,.01,"DT")="2940216"
^DD(452.9,1,0)="ADDRESS^FX^^0;2^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452.9,1,.1)="THE ADDRESS OF THE ACCREDITATION BOARD"
^DD(452.9,1,3)="Answer must be 3-30 characters in length"
^DD(452.9,1,4)="W !,""Enter the address of the accrediting board (3-30 chars)."""
^DD(452.9,1,21,0)="^^1^1^2931004^^^^"
^DD(452.9,1,21,1,0)="This field contains the street address for this accreditation board."
^DD(452.9,1,23,0)="^^1^1^2931004^^^^"
^DD(452.9,1,23,1,0)="FREE TEXT FIELD"
^DD(452.9,1,"DT")="2940923"
^DD(452.9,1.1,0)="ADDRESS2^FX^^0;7^S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X"
^DD(452.9,1.1,3)="Answer must be 3-30 characters in length."
^DD(452.9,1.1,21,0)="^^2^2^2940106^^^"
^DD(452.9,1.1,21,1,0)="This field contains the additional address information for the accrediting"
^DD(452.9,1.1,21,2,0)="organization."
^DD(452.9,1.1,"DT")="2940923"
^DD(452.9,2,0)="CITY^FX^^0;3^S X=$$UP^XLFSTR(X) K:$L(X)>20!($L(X)<3) X"
^DD(452.9,2,.1)="ACCREDITTING BOARDS CITY"
^DD(452.9,2,3)="Answer must be 3-20 characters in length"
^DD(452.9,2,4)="W !,""Enter the name of the city where the accreditation board is located."",!"
^DD(452.9,2,21,0)="^^1^1^2940106^^^^"
^DD(452.9,2,21,1,0)="This field contains the city where the accrediting organization resides."
^DD(452.9,2,23,0)="^^1^1^2940106^^^^"
^DD(452.9,2,23,1,0)="FREE TEXT FIELD"
^DD(452.9,2,"DT")="2940923"
^DD(452.9,3,0)="STATE^P5'^DIC(5,^0;4^Q"
^DD(452.9,3,.1)="LOCATION OF BOARD"
^DD(452.9,3,3)=""
^DD(452.9,3,4)=""
^DD(452.9,3,21,0)="^^1^1^2940106^^^^"
^DD(452.9,3,21,1,0)="This field contains the state where the accrediting organization resides."
^DD(452.9,3,23,0)="^^1^1^2940106^^^^"
^DD(452.9,3,23,1,0)="POINTER TO STATE FILE ^DIC(5,"
^DD(452.9,3,"DT")="2931004"
^DD(452.9,3.5,0)="ZIP CODE^FX^^0;6^S X=$$UP^XLFSTR(X) K:$L(X)>11!($L(X)<5) X"
^DD(452.9,3.5,3)="Answer must be 5-11 characters in length."
^DD(452.9,3.5,21,0)="^^1^1^2950112^^^^"
^DD(452.9,3.5,21,1,0)="This field contains the zip code of the accrediting organization."
^DD(452.9,3.5,23,0)="^^1^1^2950112^^^^"
^DD(452.9,3.5,23,1,0)="FREE TEXT FIELD"
^DD(452.9,3.5,"DT")="2940923"
^DD(452.9,4,0)="TELEPHONE^FX^^0;5^S X=$$UP^XLFSTR(X) K:$L(X)>15!($L(X)<4) X"
^DD(452.9,4,.1)="ACCREDITING BOARD PHONE NUMBER"
^DD(452.9,4,3)="Answer must be 4-15 characters in length"
^DD(452.9,4,4)="W !,""Enter the telephone number of the accrediting board."",!"
^DD(452.9,4,21,0)="^^1^1^2940106^^^^"
^DD(452.9,4,21,1,0)="This field contains the phone number for this accrediting organization."
^DD(452.9,4,23,0)="^^1^1^2940106^^^^"
^DD(452.9,4,23,1,0)="FREE TEXT FIELD"
^DD(452.9,4,"DT")="2940923"
^DD(452.9,"B","ACCREDITATION BOARD",.01)=""
^DD(452.9,"B","ACCREDITING BOARD PHONE NUMBER",4)="1"
^DD(452.9,"B","ACCREDITTING BOARDS CITY",2)="1"
^DD(452.9,"B","ADDRESS",1)=""
^DD(452.9,"B","ADDRESS2",1.1)=""
^DD(452.9,"B","CITY",2)=""
^DD(452.9,"B","LOCATION OF BOARD",3)="1"
^DD(452.9,"B","STATE",3)=""
^DD(452.9,"B","TELEPHONE",4)=""
^DD(452.9,"B","THE BOARD OF ACCREDITATION",.01)="1"
^DD(452.9,"B","ZIP CODE",3.5)=""
^DD(452.9,"GL",0,1,.01)=""
^DD(452.9,"GL",0,2,1)=""
^DD(452.9,"GL",0,3,2)=""
^DD(452.9,"GL",0,4,3)=""
^DD(452.9,"GL",0,5,4)=""
^DD(452.9,"GL",0,6,3.5)=""
^DD(452.9,"GL",0,7,1.1)=""
^DD(452.9,"IX",.01)=""
^DD(452.9,"RQ",.01)=""
^DD(453,0)="FIELD^^747.67^81"
^DD(453,0,"DDA")="N"
^DD(453,0,"DT")="2930409"
^DD(453,0,"IX","AEDLEVEL",453.68,.01)=""
^DD(453,0,"IX","AFSMB",453,747.34)=""
^DD(453,0,"IX","B",453,.01)=""
^DD(453,0,"IX","DEA",453,747.36)=""
^DD(453,0,"IX","SSN",453,1)=""
^DD(453,0,"NM","APPLICANT")=""
^DD(453,0,"VR")="2.0"
^DD(453,.01,0)="APPLICANT NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1.UP1"",""1U.UP) X"
^DD(453,.01,1,0)="^.1"
^DD(453,.01,1,1,0)="453^B"
^DD(453,.01,1,1,1)="S ^PRSP(453,""B"",$E(X,1,30),DA)="""""
^DD(453,.01,1,1,2)="K ^PRSP(453,""B"",$E(X,1,30),DA)"
^DD(453,.01,1,2,0)="^^TRIGGER^453^747.34"
^DD(453,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(453,.01,1,2,69.2) S X=X="""" I X S X=DIV S Y(1)=$S($D(^PRSP(453,D0,""QAR2"")):^(""QAR2""),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""0"" X ^DD(453,.01,1,2,1.4)"
^DD(453,.01,1,2,1.4)="S DIH=$S($D(^PRSP(453,DIV(0),""QAR2"")):^(""QAR2""),1:""""),DIV=X S $P(^(""QAR2""),U,7)=DIV,DIH=453,DIG=747.34 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(453,.01,1,2,2)="Q"
^DD(453,.01,1,2,69.2)="S Y(2)=$C(59)_$S($D(^DD(453,747.34,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PRSP(453,D0,""QAR2"")):^(""QAR2""),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,7)_"":"",2),$C(59),1)"
^DD(453,.01,1,2,"CREATE CONDITION")="FSMB MSG. SENT="""""
^DD(453,.01,1,2,"CREATE VALUE")="""0"""
^DD(453,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(453,.01,1,2,"DT")="2910306"
^DD(453,.01,1,2,"FIELD")="FSMB M"
^DD(453,.01,3)="Answer with APPLICANT NAME in format LAST,FIRST.  Be sure to include the comma."
^DD(453,.01,21,0)="^^1^1^2930208^"
^DD(453,.01,21,1,0)="This is the applicant's name in the format LASTNAME,FIRSTNAME."
^DD(453,.01,"DT")="2890605"
^DD(453,1,0)="SOCIAL SECURITY NUMBER^FOX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?9N) X I $D(X) D SSN^QARVAL"
^DD(453,1,1,0)="^.1"
^DD(453,1,1,1,0)="453^SSN"
^DD(453,1,1,1,1)="S ^PRSP(453,""SSN"",$E(X,1,30),DA)="""""
^DD(453,1,1,1,2)="K ^PRSP(453,""SSN"",$E(X,1,30),DA)"
^DD(453,1,1,1,3)="Important validation data do not delete!"
^DD(453,1,1,1,"%D",0)="^^1^1^2910402^"
^DD(453,1,1,1,"%D",1,0)="Helps to identify an individual.  Ensures uniqueness."
^DD(453,1,1,1,"DT")="2910402"
^DD(453,1,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(453,1,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(453,1,3)="Enter the 9-digit SOCIAL SECURITY NUMBER (no dashes)."
^DD(453,1,21,0)="^^1^1^2930208^"
^DD(453,1,21,1,0)="This is the applicant's Social Security Number."
^DD(453,1,"DT")="2910402"
^DD(453,1.5,0)="DATE OF BIRTH^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(453,1.5,21,0)="^^1^1^2930208^"
^DD(453,1.5,21,1,0)="This is the applicant's date of birth."
^DD(453,1.5,"DT")="2890512"
^DD(453,2,0)="STREET ADDRESS^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(453,2,3)="Answer must be 1-30 characters in length."
^DD(453,2,21,0)="^^1^1^2930208^"
^DD(453,2,21,1,0)="This is the applicant's street address."
^DD(453,3,0)="CITY^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(453,3,3)="Answer must be 1-15 characters in length."
^DD(453,3,21,0)="^^1^1^2930208^"
^DD(453,3,21,1,0)="This is the applicant's city of residence."
^DD(453,3,"DT")="2890522"
^DD(453,4,0)="STATE^P5'O^DIC(5,^0;5^Q"
^DD(453,4,.1)=" "
^DD(453,4,2)="S Y(0)=Y S Y=$S(Y="""":Y,$D(^DIC(5,Y,0))#2:$P(^(0),U,2),1:Y)"
^DD(453,4,2.1)="S Y=$S(Y="""":Y,$D(^DIC(5,Y,0))#2:$P(^(0),U,2),1:Y)"
^DD(453,4,21,0)="^^1^1^2930208^"
^DD(453,4,21,1,0)="This is the applicnant's state of residence."
^DD(453,4,"DT")="2890623"
^DD(453,5,0)="ZIP CODE^F^^0;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(453,5,3)="Answer with 5-digit or 9-digit ZIP CODE.  9-digit ZIP CODES should be in the format NNNNN-NNNN."
^DD(453,5,21,0)="^^1^1^2930208^^"
^DD(453,5,21,1,0)="This is the applicant's zip code in the format NNNNN or NNNNN-NNNN."
^DD(453,5,"DT")="2890522"
^DD(453,6,0)="HOME TELEPHONE NUMBER^F^^0;7^K:$L(X)>13!($L(X)<13)!'(X?1""(""3N1"")""3N1""-""4N) X"
^DD(453,6,3)="Enter HOME TELEPHONE NUMBER (including Area Code) in format (XXX)XXX-XXXX. e.g. (312)123-4567"
^DD(453,6,21,0)="^^1^1^2930208^"
^DD(453,6,21,1,0)="This is the applicant's home telephone number."
^DD(453,6,"DT")="2890623"
^DD(453,7,0)="DAYTIME TELEPHONE NUMBER^F^^0;8^K:$L(X)>19!($L(X)<13)!'(X?1""(""3N1"")""3N1""-""4N.E) X"
^DD(453,7,3)="Use the format:(312)123-4567 X1234"
^DD(453,7,21,0)="^^3^3^2930208^^^"
^DD(453,7,21,1,0)="Enter the daytime telephone number where you can contact the applicant."
^DD(453,7,21,2,0)="the number must be entered in the format:(NNN)NNN-NNNN XNNNN  After "
^DD(453,7,21,3,0)="space X enter the four digit extension number."
^DD(453,7,"DT")="2910930"
^DD(453,8,0)="CITIZENSHIP^S^1:U.S. CITIZEN;2:NON-U.S. CITIZEN;^0;9^Q"
^DD(453,8,21,0)="^^1^1^2930208^"
^DD(453,8,21,1,0)="This is the applicant's citizenship."
^DD(453,747.01,0)="APPOINTMENT DESIRED^S^1:FULL-TIME;2:PART-TIME;3:CONSULTING;4:CONTRACT, ON STATION;5:RESIDENT;6:FEE BASIS,ON STATION;7:SPECIALTY FELLOW;8:WOC;9:SHARING, ON STATION;10:INTERMITTENT;11:OTHER;^QAR;1^Q"
^DD(453,747.01,3)="Enter the type of Appointment Desired for this practitioner."
^DD(453,747.01,21,0)="^^3^3^2910731^^^^"
^DD(453,747.01,21,1,0)="Indicates the Appointment Desired for this practitioner."
^DD(453,747.01,21,2,0)=" "
^DD(453,747.01,21,3,0)=" "
^DD(453,747.01,"DT")="2910731"
^DD(453,747.02,0)="REFERENCE A^F^^QAR;2^K:$L(X)>30!($L(X)<3) X"
^DD(453,747.02,3)="Answer must be 3-30 characters in length."
^DD(453,747.02,21,0)="^^3^3^2910410^^"
^DD(453,747.02,21,1,0)="Indicates the name of Reference A."
^DD(453,747.02,21,2,0)=" "
^DD(453,747.02,21,3,0)=" "
^DD(453,747.02,"DT")="2900516"
^DD(453,747.03,0)="A ADDRESS1^F^^QAR;3^K:$L(X)>45!($L(X)<2) X"
^DD(453,747.03,3)="Answer must be 2-45 characters in length."
^DD(453,747.03,21,0)="^^2^2^2920819^^^^"
^DD(453,747.03,21,1,0)="Indicates the Address of Reference A."
^DD(453,747.03,21,2,0)=" "
^DD(453,747.03,"DT")="2920819"
^DD(453,747.04,0)="A ADDRESS2^F^^QAR;4^K:$L(X)>45!($L(X)<2) X"
^DD(453,747.04,3)="Answer must be 2-45 characters in length."
^DD(453,747.04,21,0)="^^2^2^2920819^^^"
^DD(453,747.04,21,1,0)="Indicates the Address of Reference A."
^DD(453,747.04,21,2,0)=" "
^DD(453,747.04,"DT")="2920819"
^DD(453,747.05,0)="A CITY^F^^QAR;5^K:$L(X)>30!($L(X)<2) X"
^DD(453,747.05,3)="Answer must be 2-30 characters in length."
^DD(453,747.05,21,0)="^^3^3^2920819^^^"
^DD(453,747.05,21,1,0)="Indicates the City Reference A resides."
^DD(453,747.05,21,2,0)=" "
^DD(453,747.05,21,3,0)=" "
^DD(453,747.05,"DT")="2920819"
^DD(453,747.06,0)="A STATE^P5'^DIC(5,^QAR;6^Q"
^DD(453,747.06,3)="Enter the State where Reference A resides."
^DD(453,747.06,21,0)="^^3^3^2910410^^"
^DD(453,747.06,21,1,0)="Indicates the State where Reference A resides."
^DD(453,747.06,21,2,0)=" "
^DD(453,747.06,21,3,0)=" "
^DD(453,747.06,"DT")="2900516"
^DD(453,747.07,0)="A ZIP^F^^QAR;7^K:$L(X)>10!($L(X)<5) X"
^DD(453,747.07,3)="Answer must be 5-10 characters in length."
^DD(453,747.07,21,0)="^^3^3^2910410^^"
^DD(453,747.07,21,1,0)="Indicates the Zip Code for Reference A."
^DD(453,747.07,21,2,0)=" "
^DD(453,747.07,21,3,0)=" "
^DD(453,747.07,"DT")="2900516"
^DD(453,747.08,0)="REFERENCE B^F^^QAR21;1^K:$L(X)>30!($L(X)<3) X"
^DD(453,747.08,3)="Answer must be 3-30 characters in length."
^DD(453,747.08,21,0)="^^1^1^2920819^"
^DD(453,747.08,21,1,0)="Enter the name of Reference B."
^DD(453,747.08,"DT")="2920819"
^DD(453,747.09,0)="B ADDRESS1^F^^QAR21;2^K:$L(X)>45!($L(X)<2) X"
^DD(453,747.09,3)="Answer must be 2-45 characters in length."
^DD(453,747.09,21,0)="^^1^1^2920819^"
^DD(453,747.09,21,1,0)="Indicate the Address of Reference B."
^DD(453,747.09,"DT")="2920819"
^DD(453,747.1,0)="B ADDRESS2^F^^QAR21;3^K:$L(X)>45!($L(X)<2) X"
^DD(453,747.1,3)="Answer must be 2-45 characters in length."
^DD(453,747.1,21,0)="^^1^1^2920819^"
^DD(453,747.1,21,1,0)="Indicate the Address of Reference B."
^DD(453,747.1,"DT")="2920819"
^DD(453,747.11,0)="B CITY^F^^QAR21;4^K:$L(X)>30!($L(X)<3) X"
^DD(453,747.11,3)="Answer must be 3-30 characters in length."
^DD(453,747.11,21,0)="^^1^1^2920819^"
^DD(453,747.11,21,1,0)="Indicate the City where Reference B resides."
^DD(453,747.11,"DT")="2920819"
^DD(453,747.12,0)="B STATE^P5'^DIC(5,^QAR21;5^Q"
^DD(453,747.12,3)="Enter the State where Reference B resides."
^DD(453,747.12,21,0)="^^1^1^2920819^"
^DD(453,747.12,21,1,0)="Enter the State where Reference B resides."
^DD(453,747.12,"DT")="2920819"
^DD(453,747.13,0)="B ZIP^F^^QAR21;6^K:$L(X)>10!($L(X)<5) X"
^DD(453,747.13,3)="Answer must be 5-10 characters in length."
^DD(453,747.13,21,0)="^^1^1^2920819^"
^DD(453,747.13,21,1,0)="Enter the Zip Code for Reference B."
^DD(453,747.13,"DT")="2920819"
^DD(453,747.14,0)="REFERENCE C^F^^QAR1;1^K:$L(X)>30!($L(X)<3) X"
^DD(453,747.14,3)="Answer must be 3-30 characters in length."
^DD(453,747.14,21,0)="^^3^3^2910410^^"
^DD(453,747.14,21,1,0)="Indicates the name of Reference C."
^DD(453,747.14,21,2,0)=" "
^DD(453,747.14,21,3,0)=" "
^DD(453,747.14,"DT")="2900516"
^DD(453,747.15,0)="C ADDRESS1^F^^QAR1;2^K:$L(X)>45!($L(X)<2) X"
^DD(453,747.15,3)="Answer must be 2-45 characters in length."
^DD(453,747.15,21,0)="^^3^3^2920819^^^"
^DD(453,747.15,21,1,0)="Indicates the Address of Reference C."
^DD(453,747.15,21,2,0)=" "
^DD(453,747.15,21,3,0)=" "
^DD(453,747.15,"DT")="2920819"
^DD(453,747.16,0)="C ADDRESS2^F^^QAR1;3^K:$L(X)>45!($L(X)<2) X"
^DD(453,747.16,3)="Answer must be 2-45 characters in length."
^DD(453,747.16,21,0)="^^3^3^2920819^^^"
^DD(453,747.16,21,1,0)="Indicates the Address of Reference C."
^DD(453,747.16,21,2,0)=" "
^DD(453,747.16,21,3,0)=" "
^DD(453,747.16,"DT")="2920819"
^DD(453,747.17,0)="C CITY^F^^QAR1;4^K:$L(X)>30!($L(X)<2) X"
^DD(453,747.17,3)="Answer must be 2-30 characters in length."
^DD(453,747.17,21,0)="^^3^3^2920819^^^^"
^DD(453,747.17,21,1,0)="Indicates the City where Reference C resides."
^DD(453,747.17,21,2,0)=" "
^DD(453,747.17,21,3,0)=" "
^DD(453,747.17,"DT")="2920819"
^DD(453,747.18,0)="C STATE^P5'^DIC(5,^QAR1;5^Q"
^DD(453,747.18,3)="Enter the State where Reference C resides."
^DD(453,747.18,21,0)="^^3^3^2910410^^"
^DD(453,747.18,21,1,0)="Indicates the State where Reference C resides."
^DD(453,747.18,21,2,0)=" "
^DD(453,747.18,21,3,0)=" "
^DD(453,747.18,"DT")="2900516"
^DD(453,747.19,0)="C ZIP^F^^QAR1;6^K:$L(X)>10!($L(X)<5) X"
^DD(453,747.19,3)="Answer must be 5-10 characters in length."
^DD(453,747.19,21,0)="^^3^3^2910410^^"
^DD(453,747.19,21,1,0)="Indicates the Zip Code for Reference C."
^DD(453,747.19,21,2,0)=" "
^DD(453,747.19,21,3,0)=" "
^DD(453,747.19,"DT")="2900516"
^DD(453,747.2,0)="APP DATE^D^^QAR1;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.2,3)="Enter the date of Appointment for this practitioner."
^DD(453,747.2,21,0)="^^3^3^2910410^^^^"
^DD(453,747.2,21,1,0)="Contains the Appointment Date for this practitioner."
^DD(453,747.2,21,2,0)=" "
^DD(453,747.2,21,3,0)=" "
^DD(453,747.2,"DT")="2900516"
^DD(453,747.21,0)="INSURANCE CO^P36'^DIC(36,^QAR1;8^Q"
^DD(453,747.21,3)="Enter the Insurance Company that provides liability coverage for this practitioner."
^DD(453,747.21,21,0)="^^3^3^2910801^^^^"
^DD(453,747.21,21,1,0)="Indicates the Insurance Company for our practitioner."
^DD(453,747.21,21,2,0)="NOTE:  All CONTRACT Providers MUST Carry Malpractice Insurance"
^DD(453,747.21,21,3,0)=" "
^DD(453,747.21,"DT")="2900521"
^DD(453,747.22,0)="SPECIALTY^453.17P^^QAR17;0"
^DD(453,747.22,12)="SCREEN SPECIAL PROCEDURES"
^DD(453,747.22,12.1)="S DIC(""S"")=""D ^QARCS"""
^DD(453,747.22,21,0)="^^3^3^2910417^^^^"
^DD(453,747.22,21,1,0)="Enter the Specialty associated with this practitioner."
^DD(453,747.22,21,2,0)=" "
^DD(453,747.22,21,3,0)=" "
^DD(453,747.23,0)="SERVICE^P730'^ECC(730,^QAR2;1^Q"
^DD(453,747.23,3)="Enter a National Service File name."
^DD(453,747.23,21,0)="^^3^3^2910410^^^^"
^DD(453,747.23,21,1,0)="Indicates the Service for this practitioner."
^DD(453,747.23,21,2,0)=" "
^DD(453,747.23,21,3,0)=" "
^DD(453,747.23,"DT")="2910212"
^DD(453,747.24,0)="MANDATORY TRAINING^453.01^^QAR3;0"
^DD(453,747.24,21,0)="^^3^3^2910410^^^^"
^DD(453,747.24,21,1,0)="Indicates the Mandatory Training for this practitioner."
^DD(453,747.24,21,2,0)=" "
^DD(453,747.24,21,3,0)=" "
^DD(453,747.25,0)="TYPE OF APPOINTMENT^S^1:APPOINTMENT (INITIAL/15-DAY BREAK);2:REAPPRAISAL;^QAR2;2^Q"
^DD(453,747.25,3)="Enter the appropriate Type of Appointment for this practitioner."
^DD(453,747.25,21,0)="^^3^3^2910410^^^"
^DD(453,747.25,21,1,0)="Indicates the Type of Appointment for this practitioner."
^DD(453,747.25,21,2,0)=" "
^DD(453,747.25,21,3,0)=" "
^DD(453,747.25,"DT")="2900816"
^DD(453,747.26,0)="APPLICATION DATE^D^^QAR2;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.26,3)="Enter the date of our Application."
^DD(453,747.26,21,0)="^^1^1^2910402^"
^DD(453,747.26,21,1,0)="Contains the Date of the Application for our Applicant."
^DD(453,747.26,"DT")="2900911"
^DD(453,747.27,0)="CERTIFICATION^453.02P^^QAR4;0"
^DD(453,747.27,21,0)="^^2^2^2920819^^^^"
^DD(453,747.27,21,1,0)="This field allows you to enter specialties in which the practitioner"
^DD(453,747.27,21,2,0)="is Board Certified."
^DD(453,747.28,0)="PROFESSIONAL ORGANIZATION^453.03A^^QAR5;0"
^DD(453,747.28,21,0)="^^3^3^2910807^^^^"
^DD(453,747.28,21,1,0)="Indicates the Professional Organization to which the practitioner belongs."
^DD(453,747.28,21,2,0)=" "
^DD(453,747.28,21,3,0)=" "
^DD(453,747.29,0)="HONORS/OFFICES HELD^453.04A^^QAR6;0"
^DD(453,747.29,21,0)="^^4^4^2920731^^^^"
^DD(453,747.29,21,1,0)="Indicates Honors received and Offices held in medical and/or scientific"
^DD(453,747.29,21,2,0)="societies."
^DD(453,747.29,21,3,0)=" "
^DD(453,747.29,21,4,0)=" "
^DD(453,747.3,0)="VAF 10-2850 COMPLETE (Y/N)^S^1:YES;2:NO;^QAR2;4^Q"
^DD(453,747.3,3)="Enter whether the VAF 10-2850 has been completed by the practitioner."
^DD(453,747.3,21,0)="^^3^3^2920127^^^^"
^DD(453,747.3,21,1,0)="Indicate whether the VAF 10-2850 has been completed by the practitioner."
^DD(453,747.3,21,2,0)=" "
^DD(453,747.3,21,3,0)=" "
^DD(453,747.3,"DT")="2911211"
^DD(453,747.31,0)="VAF 10-2850 SIGNED/COS (Y/N)^S^1:YES;2:NO;^QAR2;5^Q"
^DD(453,747.31,3)="Enter whether the Chief of Staff signed the VAF 10-2850."
^DD(453,747.31,21,0)="^^3^3^2910410^^^"
^DD(453,747.31,21,1,0)="Indicates whether the Chief of Staff signed the VAF 10-2850."
^DD(453,747.31,21,2,0)=" "
^DD(453,747.31,21,3,0)=" "
^DD(453,747.31,"DT")="2910402"
^DD(453,747.32,0)="VAF 10-2850 LICENSE DATA (Y/N)^S^1:YES;2:NO;^QAR2;6^Q"
^DD(453,747.32,3)="Enter whether all license information is listed on the VAF 10-2850."
^DD(453,747.32,21,0)="^^2^2^2911202^^^^"
^DD(453,747.32,21,1,0)="Indicate whether the License data for the practitioner is accurate,"
^DD(453,747.32,21,2,0)="current, and complete."
^DD(453,747.32,"DT")="2910402"
^DD(453,747.33,0)="BOARD ELIGIBLE^453.16PA^^QAR16;0"
^DD(453,747.33,21,0)="^^4^4^2911212^^^^"
^DD(453,747.33,21,1,0)="If this practitioner is eligible to complete specialty board exams, enter"
^DD(453,747.33,21,2,0)="the area of specialty."
^DD(453,747.33,21,3,0)=" "
^DD(453,747.33,21,4,0)=" "
^DD(453,747.34,0)="FSMB MSG. SENT^S^1:YES;0:NO;^QAR2;7^Q"
^DD(453,747.34,1,0)="^.1"
^DD(453,747.34,1,1,0)="453^AFSMB"
^DD(453,747.34,1,1,1)="S ^PRSP(453,""AFSMB"",$E(X,1,30),DA)="""""
^DD(453,747.34,1,1,2)="K ^PRSP(453,""AFSMB"",$E(X,1,30),DA)"
^DD(453,747.34,1,1,"DT")="2910304"
^DD(453,747.34,3)="Respond to whether the FSMB message has been sent."
^DD(453,747.34,5,1,0)="453^.01^2"
^DD(453,747.34,21,0)="^^1^1^2910402^"
^DD(453,747.34,21,1,0)="Confirmation of the FSMB message being sent."
^DD(453,747.34,"DT")="2910304"
^DD(453,747.35,0)="LICENSES^453.05A^^QAR7;0"
^DD(453,747.35,21,0)="^^1^1^2930409^^^^"
^DD(453,747.35,21,1,0)="Enter Your Professional Licenses."
^DD(453,747.36,0)="DEA #^FX^^QAR2;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9)!'(X?2U7N) X I $D(X) D DEA^QARVAL"
^DD(453,747.36,1,0)="^.1"
^DD(453,747.36,1,1,0)="453^DEA"
^DD(453,747.36,1,1,1)="S ^PRSP(453,""DEA"",$E(X,1,30),DA)="""""
^DD(453,747.36,1,1,2)="K ^PRSP(453,""DEA"",$E(X,1,30),DA)"
^DD(453,747.36,1,1,3)="Important validation data do not delete!"
^DD(453,747.36,1,1,"DT")="2910402"
^DD(453,747.36,3)="Answer must be 9 characters in length."
^DD(453,747.36,4)="W:$X>5 ! W ?5,""Enter the DEA number as two uppercase letters followed by 7 digits"",!,?5,""e.g. AA1234567.  Each provider must have a unique number."",!"
^DD(453,747.36,21,0)="^^3^3^2920731^^^^"
^DD(453,747.36,21,1,0)="This field holds a number which uniquely identifies a practitioner. "
^DD(453,747.36,21,2,0)=" "
^DD(453,747.36,21,3,0)=" "
^DD(453,747.36,"DT")="2910402"
^DD(453,747.361,0)="DEA EXPIRATION DATE^D^^QAR2;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.361,21,0)="^^1^1^2920731^"
^DD(453,747.361,21,1,0)="This field contain the expiration date of the DEA #."
^DD(453,747.361,"DT")="2910718"
^DD(453,747.362,0)="STATE ISSUING DEA NUMBER^P5'^DIC(5,^QAR2;16^Q"
^DD(453,747.362,3)="Enter State issuing DEA Number."
^DD(453,747.362,21,0)="^^1^1^2920731^"
^DD(453,747.362,21,1,0)="This field contains the name of the state issuing the DEA #."
^DD(453,747.362,"DT")="2910808"
^DD(453,747.363,0)="DEA VERIFICATION^S^1:COPY OF CURRENT CERTIFICATE;2:WRITTEN VERIFICATION FROM DEA;3:OTHER METHOD USED TO VERIFY;^QAR2;17^Q"
^DD(453,747.363,3)="Enter method used to Verify DEA registration."
^DD(453,747.363,21,0)="^^1^1^2911212^^"
^DD(453,747.363,21,1,0)="Enter the method used to verify DEA registration."
^DD(453,747.363,"DT")="2910913"
^DD(453,747.364,0)="DEA CHALLENGES (Y/N)^S^1:YES;2:NO;^QAR2;26^Q"
^DD(453,747.364,3)="Enter YES or NO"
^DD(453,747.364,21,0)="^^1^1^2920731^"
^DD(453,747.364,21,1,0)="Has there been any DEA challenges?"
^DD(453,747.364,"DT")="2920127"
^DD(453,747.38,0)="V.A. EMPLOYMENT START DATE^D^^QAR2;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.38,3)="Enter the date employment started at the VA."
^DD(453,747.38,21,0)="^^1^1^2910403^^"
^DD(453,747.38,21,1,0)="Contains the date employment started at the VA."
^DD(453,747.38,"DT")="2900816"
^DD(453,747.39,0)="SERVICE COMPUTATION DATE^D^^QAR2;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.39,3)="Enter the Length of Service for this practitioner."
^DD(453,747.39,21,0)="^^3^3^2910410^^"
^DD(453,747.39,21,1,0)="Indicates the Length of Service for this practitioner."
^DD(453,747.39,21,2,0)=" "
^DD(453,747.39,21,3,0)=" "
^DD(453,747.39,"DT")="2900816"
^DD(453,747.4,0)="END OF PROBATIONARY PERIOD^D^^QAR2;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.4,3)="Enter the ending date for the Probationary Period."
^DD(453,747.4,21,0)="^^3^3^2910410^^"
^DD(453,747.4,21,1,0)="Indicates the ending date for the Probationary Period."
^DD(453,747.4,21,2,0)=" "
^DD(453,747.4,21,3,0)=" "
^DD(453,747.4,"DT")="2900910"
^DD(453,747.41,0)="PRIMARY DEGREE^P747.7'^QA(747.7,^QAR2;14^Q"
^DD(453,747.41,3)="Enter the Primary Degree for this practitioner."
^DD(453,747.41,21,0)="^^3^3^2910410^^"
^DD(453,747.41,21,1,0)="Indicate the Primary Degree used for this practitioner."
^DD(453,747.41,21,2,0)=" "
^DD(453,747.41,21,3,0)=" "
^DD(453,747.41,"DT")="2900816"
^DD(453,747.42,0)="SCHOOL ATTENDED^453.06^^QAR8;0"
^DD(453,747.42,21,0)="^^3^3^2920917^^^^"
^DD(453,747.42,21,1,0)="Indicates the School(s) attended."
^DD(453,747.42,21,2,0)=" "
^DD(453,747.42,21,3,0)=" "
^DD(453,747.42,22)=" "
^DD(453,747.43,0)="DATE REAPPRAISAL IS DUE^D^^QAR2;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.43,3)="Enter the Date Reappraisal is due."
^DD(453,747.43,21,0)="^^3^3^2920731^^^"
^DD(453,747.43,21,1,0)="Indicates the Date Reappraisal is due."
^DD(453,747.43,21,2,0)=" "
^DD(453,747.43,21,3,0)=" "
^DD(453,747.43,"DT")="2900910"
^DD(453,747.45,0)="CONTINUING EDUCATION PROGRAM^453.07^^QAR9;0"
^DD(453,747.45,21,0)="^^3^3^2910410^^^"
^DD(453,747.45,21,1,0)="Name of the Continuing Education Program you have attended."
^DD(453,747.45,21,2,0)=" "
^DD(453,747.45,21,3,0)=" "
^DD(453,747.47,0)="ALIEN VISA^S^1:YES;2:NO;3:N/A;^QAR2;18^Q"
^DD(453,747.47,3)="Enter if the Alien Visa has/has not been sighted."
^DD(453,747.47,21,0)="^^2^2^2910415^^^^"
^DD(453,747.47,21,1,0)="Contains whether the Chief of Staff sighted the Alien Visa for the "
^DD(453,747.47,21,2,0)="Applicant who is not a citizen."
^DD(453,747.47,21,3,0)=" "
^DD(453,747.47,21,4,0)=" "
^DD(453,747.47,"DT")="2900816"
^DD(453,747.48,0)="FINAL STATUS OF FILE^S^A:ACTIVE;I:INACTIVE;P:PENDING;^QAR2;19^Q"
^DD(453,747.48,3)="Enter the Status of the File for the Applicant."
^DD(453,747.48,21,0)="^^1^1^2910403^^"
^DD(453,747.48,21,1,0)="Contains the Status of the File for the Applicant."
^DD(453,747.48,"DT")="2900816"
^DD(453,747.49,0)="FINAL STATUS COMMENTS^453.08^^1;0"
^DD(453,747.49,21,0)="^^1^1^2910403^"
^DD(453,747.49,21,1,0)="Contains any comments on the Final Status of the File."
^DD(453,747.5,0)="CLINICAL BACKGROUND^453.09PA^^QAR10;0"
^DD(453,747.5,21,0)="^^3^3^2910410^^^^"
^DD(453,747.5,21,1,0)="Indicates the Clinical Background of this practitioner."
^DD(453,747.5,21,2,0)=" "
^DD(453,747.5,21,3,0)=" "
^DD(453,747.51,0)="ECFMG CERT. ISSUED^D^^QAR2;20^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.51,3)="Enter the date the ECFMG certificate was issued."
^DD(453,747.51,21,0)="^^2^2^2920127^^^^"
^DD(453,747.51,21,1,0)="This field refers To the Date the Education Commission for Foreign "
^DD(453,747.51,21,2,0)="Medical Graduate issued certificate"
^DD(453,747.51,"DT")="2920127"
^DD(453,747.511,0)="ECFMG VERIFICATION^S^1:LETTER FROM ECFMG;2:ROC WITH ECFMG;3:NO RESPONSE TO INQUIRY;^QAR2;10^Q"
^DD(453,747.511,3)="Enter the method of verification."
^DD(453,747.511,21,0)="^^1^1^2920128^^^^"
^DD(453,747.511,21,1,0)="Indicates the method used for verification."
^DD(453,747.511,"DT")="2911212"
^DD(453,747.512,0)="ECFMG CERTIFICATE #^FO^^QAR2;25^K:$L(X)>7!($L(X)<7) X"
^DD(453,747.512,2)="S Y(0)=Y S QARECN=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,6)_""-""_$E(Y,7)"
^DD(453,747.512,2.1)="S QARECN=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,6)_""-""_$E(Y,7)"
^DD(453,747.512,3)="Answer must be 7 characters in length."
^DD(453,747.512,21,0)="^^1^1^2910917^"
^DD(453,747.512,21,1,0)="Enter the seven digit ECFMG Certificate number without dashes."
^DD(453,747.512,"DT")="2910926"
^DD(453,747.52,0)="FSMB SCREENING REQUEST DATE^453.1DA^^QAR11;0"
^DD(453,747.52,21,0)="^^2^2^2910930^^^^"
^DD(453,747.52,21,1,0)="This Field Refers To The Date The Request Was Sent To The Federation Of "
^DD(453,747.52,21,2,0)="State Medical Boards For Screening."
^DD(453,747.53,0)="HEALTH STATEMENT,APPLICANT^D^^QAR2;21^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.53,3)="Enter the date the Health Statement is received from the practitioner."
^DD(453,747.53,21,0)="^^4^4^2910410^^^"
^DD(453,747.53,21,1,0)="This field contains the date the Health Statement is received from"
^DD(453,747.53,21,2,0)="the practitioner."
^DD(453,747.53,21,3,0)=" "
^DD(453,747.53,21,4,0)=" "
^DD(453,747.53,"DT")="2900817"
^DD(453,747.54,0)="HEALTH STATEMENT,COLLEAGUE^453.12D^^QAR12;0"
^DD(453,747.54,21,0)="4^^6^6^2910410^^^"
^DD(453,747.54,21,1,0)="This field allows you to enter the date on which the statement of health"
^DD(453,747.54,21,2,0)="Status was received from a colleague of the practitioner.  Individuals from"
^DD(453,747.54,21,3,0)="which this could be received include the Chief of Staff, Chief of Service,"
^DD(453,747.54,21,4,0)="Training Program Director, or a peer."
^DD(453,747.54,21,5,0)=" "
^DD(453,747.54,21,6,0)=" "
^DD(453,747.55,0)="DATE REFERENCE RECEIVED^453.13S^^QAR13;0"
^DD(453,747.55,21,0)="^^1^1^2910808^^^^"
^DD(453,747.55,21,1,0)="Contains the date the three (3) References are received."
^DD(453,747.55,"DT")="2910402"
^DD(453,747.56,0)="BYLAWS AGREEMENT^D^^QAR2;22^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.56,3)="Enter the date the Bylaws agreement was signed."
^DD(453,747.56,21,0)="3^^5^5^2920106^^^"
^DD(453,747.56,21,1,0)="Enter the date of the signature of the practitioner indicating agreement"
^DD(453,747.56,21,2,0)="to abide by the bylaws of the medical staff.  This signature is contained"
^DD(453,747.56,21,3,0)="on the form titled ""Applicant Memo to Director""."
^DD(453,747.56,21,4,0)=" "
^DD(453,747.56,21,5,0)=" "
^DD(453,747.56,"DT")="2900817"
^DD(453,747.57,0)="RECOMMENDATION SIGNATURES^453.14S^^QAR14;0"
^DD(453,747.57,21,0)="^^3^3^2910410^^^^"
^DD(453,747.57,21,1,0)="Contains the signature date for the approving committee/official."
^DD(453,747.57,21,2,0)=" "
^DD(453,747.57,21,3,0)=" "
^DD(453,747.58,0)="LICENSURE CHALLENGES ?^S^1:YES;2:NO;^QAR2;23^Q"
^DD(453,747.58,3)="Enter whether there has been a License Challenge to the practitioner."
^DD(453,747.58,21,0)="^^3^3^2910410^^^^"
^DD(453,747.58,21,1,0)="Indicates if the practitioner has been issued a License Challenge."
^DD(453,747.58,21,2,0)=" "
^DD(453,747.58,21,3,0)=" "
^DD(453,747.58,21,4,0)=" "
^DD(453,747.58,"DT")="2900817"
^DD(453,747.59,0)="PERTINENT CLINICAL INFORMATION^453.15^^QAR15;0"
^DD(453,747.59,21,0)="^^2^2^2920731^^^^"
^DD(453,747.59,21,1,0)="Enter any Pertinent Clinical Information such as: other hospitals the "
^DD(453,747.59,21,2,0)="practitioner practices, experience, and academic appointments."
^DD(453,747.6,0)="CLIN PRIVILEGES CHALLENGES ?^S^1:YES;2:NO;^QAR2;24^Q"
^DD(453,747.6,3)="Enter whether the practitioner's Clinical Privileges have been challenged."
^DD(453,747.6,21,0)="^^4^4^2910410^^^"
^DD(453,747.6,21,1,0)="Indicates whether the practitioner's Clinical Privileges have been"
^DD(453,747.6,21,2,0)="challenged."
^DD(453,747.6,21,3,0)=" "
^DD(453,747.6,21,4,0)=" "
^DD(453,747.6,"DT")="2900829"
^DD(453,747.61,0)="NPDB QUERIED ?^S^1:YES;2:NO;^QAR18;1^Q"
^DD(453,747.61,3)="Enter whether the NPDB has been Queried."
^DD(453,747.61,21,0)="1^^3^3^2910410^^^"
^DD(453,747.61,21,1,0)="Indicates whether the National Practitioner Data Bank has been queried.  "
^DD(453,747.61,21,2,0)=" "
^DD(453,747.61,21,3,0)=" "
^DD(453,747.61,"DT")="2910222"
^DD(453,747.62,0)="DATE SENT TO NPDB ?^D^^QAR18;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.62,3)="Enter the Date the NPDB was queried."
^DD(453,747.62,21,0)="^^3^3^2910410^^"
^DD(453,747.62,21,1,0)="Indicates the date when the National Practitioner's Data Base was queried."
^DD(453,747.62,21,2,0)=" "
^DD(453,747.62,21,3,0)=" "
^DD(453,747.62,"DT")="2910222"
^DD(453,747.621,0)="DATE REC'D FROM NPDB^D^^QAR18;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453,747.621,3)="Enter date response is received from NPDB"
^DD(453,747.621,21,0)="^^1^1^2920819^"
^DD(453,747.621,21,1,0)="This field contains the date a response is received from NPDB. "
^DD(453,747.621,"DT")="2920819"
^DD(453,747.63,0)="RESULTS OF QUERY ?^S^1:RESULTS UNREMARKABLE;2:RESULTS NEED FURTHER EXPLANATION (PLEASE REFER TO DOCUMENTATION IN FILE);3:NO RESPONSE TO INQUIRY;^QAR18;3^Q"
^DD(453,747.63,3)="Enter the Results of the Query for this practitioner."
^DD(453,747.63,21,0)="^^1^1^2911212^^^^"
^DD(453,747.63,21,1,0)="Indicates the results of the Query for this practitioner."
^DD(453,747.63,"DT")="2911212"
^DD(453,747.64,0)="PLACE OF BIRTH^F^^QAR1;9^K:$L(X)>35!($L(X)<3) X"
^DD(453,747.64,3)="Answer must be 3-35 characters in length."
^DD(453,747.64,21,0)="^^3^3^2910411^^"
^DD(453,747.64,21,1,0)="Indicates the Place of Birth for this practitioner."
^DD(453,747.64,21,2,0)=" "
^DD(453,747.64,21,3,0)=" "
^DD(453,747.64,"DT")="2910402"
^DD(453,747.65,0)="VA CAUTIONARY LIST CHECKED?^S^1:YES;2:NO;3:N/A;^QAR18;4^Q"
^DD(453,747.65,3)="Enter whether the VA Cautionary List has been checked."
^DD(453,747.65,21,0)="^^3^3^2910411^^^^"
^DD(453,747.65,21,1,0)="Indicate whether the VA Cautionary List issued by VACO has been checked."
^DD(453,747.65,21,2,0)=" "
^DD(453,747.65,21,3,0)=" "
^DD(453,747.65,"DT")="2910402"
^DD(453,747.66,0)="INTERNSHIP/RESIDENCY^453.11^^QAR19;0"
^DD(453,747.66,21,0)="^^2^2^2920819^^^^"
^DD(453,747.66,21,1,0)="This field contains information relevant to the practitioner's Internship,"
^DD(453,747.66,21,2,0)="Residency and Fellowship training."
^DD(453,747.67,0)="CONTROL/SUBSTANCE CERT (Y/N)^453.074767SA^^QAR20;0"
^DD(453,747.67,21,0)="^^1^1^2920731^^^"
^DD(453,747.67,21,1,0)="Does this Physican have a Controlled Substance Certificate ? "
^DD(453,"B"," ",4)="1"
^DD(453,"B","A ADDRESS1",747.03)=""
^DD(453,"B","A ADDRESS2",747.04)=""
^DD(453,"B","A CITY",747.05)=""
^DD(453,"B","A STATE",747.06)=""
^DD(453,"B","A ZIP",747.07)=""
^DD(453,"B","ALIEN VISA",747.47)=""
^DD(453,"B","APP DATE",747.2)=""
^DD(453,"B","APPLICANT NAME",.01)=""
^DD(453,"B","APPLICATION DATE",747.26)=""
^DD(453,"B","APPOINTMENT DESIRED",747.01)=""
^DD(453,"B","B ADDRESS1",747.09)=""
^DD(453,"B","B ADDRESS2",747.1)=""
^DD(453,"B","B CITY",747.11)=""
^DD(453,"B","B STATE",747.12)=""
^DD(453,"B","B ZIP",747.13)=""
^DD(453,"B","BOARD ELIGIBLE",747.33)=""
^DD(453,"B","BYLAWS AGREEMENT",747.56)=""
^DD(453,"B","C ADDRESS1",747.15)=""
^DD(453,"B","C ADDRESS2",747.16)=""
^DD(453,"B","C CITY",747.17)=""
^DD(453,"B","C STATE",747.18)=""
^DD(453,"B","C ZIP",747.19)=""
^DD(453,"B","CERTIFICATION",747.27)=""
^DD(453,"B","CITIZENSHIP",8)=""
^DD(453,"B","CITY",3)=""
^DD(453,"B","CLIN PRIVILEGES CHALLENGES ?",747.6)=""
^DD(453,"B","CLINICAL BACKGROUND",747.5)=""
^DD(453,"B","CONTINUING EDUCATION PROGRAM",747.45)=""
^DD(453,"B","CONTROL/SUBSTANCE CERT (Y/N)",747.67)=""
^DD(453,"B","DATE OF BIRTH",1.5)=""
^DD(453,"B","DATE REAPPRAISAL IS DUE",747.43)=""
^DD(453,"B","DATE REC'D FROM NPDB",747.621)=""
^DD(453,"B","DATE REFERENCE RECEIVED",747.55)=""
^DD(453,"B","DATE SENT TO NPDB ?",747.62)=""
^DD(453,"B","DAYTIME TELEPHONE NUMBER",7)=""
^DD(453,"B","DEA #",747.36)=""
^DD(453,"B","DEA CHALLENGES (Y/N)",747.364)=""
^DD(453,"B","DEA EXPIRATION DATE",747.361)=""
^DD(453,"B","DEA VERIFICATION",747.363)=""
^DD(453,"B","ECFMG CERT. ISSUED",747.51)=""
^DD(453,"B","ECFMG CERTIFICATE #",747.512)=""
^DD(453,"B","ECFMG VERIFICATION",747.511)=""
^DD(453,"B","END OF PROBATIONARY PERIOD",747.4)=""
^DD(453,"B","FINAL STATUS COMMENTS",747.49)=""
^DD(453,"B","FINAL STATUS OF FILE",747.48)=""
^DD(453,"B","FSMB MSG. SENT",747.34)=""
^DD(453,"B","FSMB SCREENING REQUEST DATE",747.52)=""
^DD(453,"B","HEALTH STATEMENT,APPLICANT",747.53)=""
^DD(453,"B","HEALTH STATEMENT,COLLEAGUE",747.54)=""
^DD(453,"B","HOME TELEPHONE NUMBER",6)=""
^DD(453,"B","HONORS/OFFICES HELD",747.29)=""
^DD(453,"B","INSURANCE CO",747.21)=""
^DD(453,"B","INTERNSHIP/RESIDENCY",747.66)=""
^DD(453,"B","LICENSES",747.35)=""
^DD(453,"B","LICENSURE CHALLENGES ?",747.58)=""
^DD(453,"B","MANDATORY TRAINING",747.24)=""
^DD(453,"B","NPDB QUERIED ?",747.61)=""
^DD(453,"B","PERTINENT CLINICAL INFORMATION",747.59)=""
^DD(453,"B","PLACE OF BIRTH",747.64)=""
^DD(453,"B","PRIMARY DEGREE",747.41)=""
^DD(453,"B","PROFESSIONAL ORGANIZATION",747.28)=""
^DD(453,"B","RECOMMENDATION SIGNATURES",747.57)=""
^DD(453,"B","REFERENCE A",747.02)=""
^DD(453,"B","REFERENCE B",747.08)=""
^DD(453,"B","REFERENCE C",747.14)=""
^DD(453,"B","RESULTS OF QUERY ?",747.63)=""
^DD(453,"B","SCHOOL ATTENDED",747.42)=""
^DD(453,"B","SERVICE",747.23)=""
^DD(453,"B","SERVICE COMPUTATION DATE",747.39)=""
^DD(453,"B","SOCIAL SECURITY NUMBER",1)=""
^DD(453,"B","SPECIALTY",747.22)=""
^DD(453,"B","STATE",4)=""
^DD(453,"B","STATE ISSUING DEA NUMBER",747.362)=""
^DD(453,"B","STREET ADDRESS",2)=""
^DD(453,"B","TYPE OF APPOINTMENT",747.25)=""
^DD(453,"B","V.A. EMPLOYMENT START DATE",747.38)=""
^DD(453,"B","VA CAUTIONARY LIST CHECKED?",747.65)=""
^DD(453,"B","VAF 10-2850 COMPLETE (Y/N)",747.3)=""
^DD(453,"B","VAF 10-2850 LICENSE DATA (Y/N)",747.32)=""
^DD(453,"B","VAF 10-2850 SIGNED/COS (Y/N)",747.31)=""
^DD(453,"B","ZIP CODE",5)=""
^DD(453,"GL",0,1,.01)=""
^DD(453,"GL",0,2,1)=""
^DD(453,"GL",0,3,2)=""
^DD(453,"GL",0,4,3)=""
^DD(453,"GL",0,5,4)=""
^DD(453,"GL",0,6,5)=""
^DD(453,"GL",0,7,6)=""
^DD(453,"GL",0,8,7)=""
^DD(453,"GL",0,9,8)=""
^DD(453,"GL",0,12,1.5)=""
^DD(453,"GL",1,0,747.49)=""
^DD(453,"GL","QAR",1,747.01)=""
^DD(453,"GL","QAR",2,747.02)=""
^DD(453,"GL","QAR",3,747.03)=""
^DD(453,"GL","QAR",4,747.04)=""
^DD(453,"GL","QAR",5,747.05)=""
^DD(453,"GL","QAR",6,747.06)=""
^DD(453,"GL","QAR",7,747.07)=""
^DD(453,"GL","QAR1",1,747.14)=""
^DD(453,"GL","QAR1",2,747.15)=""
^DD(453,"GL","QAR1",3,747.16)=""
^DD(453,"GL","QAR1",4,747.17)=""
^DD(453,"GL","QAR1",5,747.18)=""
^DD(453,"GL","QAR1",6,747.19)=""
^DD(453,"GL","QAR1",7,747.2)=""
^DD(453,"GL","QAR1",8,747.21)=""
^DD(453,"GL","QAR1",9,747.64)=""
^DD(453,"GL","QAR10",0,747.5)=""
^DD(453,"GL","QAR11",0,747.52)=""
^DD(453,"GL","QAR12",0,747.54)=""
^DD(453,"GL","QAR13",0,747.55)=""
^DD(453,"GL","QAR14",0,747.57)=""
^DD(453,"GL","QAR15",0,747.59)=""
^DD(453,"GL","QAR16",0,747.33)=""
^DD(453,"GL","QAR17",0,747.22)=""
^DD(453,"GL","QAR18",1,747.61)=""
^DD(453,"GL","QAR18",2,747.62)=""
^DD(453,"GL","QAR18",3,747.63)=""
^DD(453,"GL","QAR18",4,747.65)=""
^DD(453,"GL","QAR18",5,747.621)=""
^DD(453,"GL","QAR19",0,747.66)=""
^DD(453,"GL","QAR2",1,747.23)=""
^DD(453,"GL","QAR2",2,747.25)=""
^DD(453,"GL","QAR2",3,747.26)=""
^DD(453,"GL","QAR2",4,747.3)=""
^DD(453,"GL","QAR2",5,747.31)=""
^DD(453,"GL","QAR2",6,747.32)=""
^DD(453,"GL","QAR2",7,747.34)=""
^DD(453,"GL","QAR2",8,747.361)=""
^DD(453,"GL","QAR2",9,747.36)=""
^DD(453,"GL","QAR2",10,747.511)=""
^DD(453,"GL","QAR2",11,747.38)=""
^DD(453,"GL","QAR2",12,747.39)=""
^DD(453,"GL","QAR2",13,747.4)=""
^DD(453,"GL","QAR2",14,747.41)=""
^DD(453,"GL","QAR2",15,747.43)=""
^DD(453,"GL","QAR2",16,747.362)=""
^DD(453,"GL","QAR2",17,747.363)=""
^DD(453,"GL","QAR2",18,747.47)=""
^DD(453,"GL","QAR2",19,747.48)=""
^DD(453,"GL","QAR2",20,747.51)=""
^DD(453,"GL","QAR2",21,747.53)=""
^DD(453,"GL","QAR2",22,747.56)=""
^DD(453,"GL","QAR2",23,747.58)=""
^DD(453,"GL","QAR2",24,747.6)=""
^DD(453,"GL","QAR2",25,747.512)=""
^DD(453,"GL","QAR2",26,747.364)=""
^DD(453,"GL","QAR20",0,747.67)=""
^DD(453,"GL","QAR21",1,747.08)=""
^DD(453,"GL","QAR21",2,747.09)=""
^DD(453,"GL","QAR21",3,747.1)=""
^DD(453,"GL","QAR21",4,747.11)=""
^DD(453,"GL","QAR21",5,747.12)=""
^DD(453,"GL","QAR21",6,747.13)=""
^DD(453,"GL","QAR3",0,747.24)=""
^DD(453,"GL","QAR4",0,747.27)=""
^DD(453,"GL","QAR5",0,747.28)=""
^DD(453,"GL","QAR6",0,747.29)=""
^DD(453,"GL","QAR7",0,747.35)=""
^DD(453,"GL","QAR8",0,747.42)=""
^DD(453,"GL","QAR9",0,747.45)=""
^DD(453,"IX",.01)=""
^DD(453,"IX",1)=""
^DD(453,"IX",747.34)=""
^DD(453,"IX",747.36)=""
^DD(453,"RQ",.01)=""
^DD(453,"SB",453.01,747.24)=""
^DD(453,"SB",453.02,747.27)=""
^DD(453,"SB",453.03,747.28)=""
^DD(453,"SB",453.04,747.29)=""
^DD(453,"SB",453.05,747.35)=""
^DD(453,"SB",453.06,747.42)=""
^DD(453,"SB",453.07,747.45)=""
^DD(453,"SB",453.074767,747.67)=""
^DD(453,"SB",453.08,747.49)=""
^DD(453,"SB",453.09,747.5)=""
^DD(453,"SB",453.1,747.52)=""
^DD(453,"SB",453.11,747.66)=""
^DD(453,"SB",453.12,747.54)=""
^DD(453,"SB",453.13,747.55)=""
^DD(453,"SB",453.14,747.57)=""
^DD(453,"SB",453.15,747.59)=""
^DD(453,"SB",453.16,747.33)=""
^DD(453,"SB",453.17,747.22)=""
^DD(453.01,0)="MANDATORY TRAINING SUB-FIELD^^3^4"
^DD(453.01,0,"DT")="2910401"
^DD(453.01,0,"IX","B",453.01,.01)=""
^DD(453.01,0,"NM","MANDATORY TRAINING")=""
^DD(453.01,0,"UP")="453"
^DD(453.01,.01,0)="MANDATORY TRAINING^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(453.01,.01,1,0)="^.1"
^DD(453.01,.01,1,1,0)="453.01^B"
^DD(453.01,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR3"",""B"",$E(X,1,30),DA)="""""
^DD(453.01,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR3"",""B"",$E(X,1,30),DA)"
^DD(453.01,.01,3)="Answer must be 3-30 characters in length."
^DD(453.01,.01,21,0)="^^3^3^2910410^^^^"
^DD(453.01,.01,21,1,0)="Indicates the Mandatory Training for this practitioner."
^DD(453.01,.01,21,2,0)=" "
^DD(453.01,.01,21,3,0)=" "
^DD(453.01,.01,"DT")="2910401"
^DD(453.01,1,0)="DATE ATTENDED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(453.01,1,3)="Enter the date Mandatory Training was started."
^DD(453.01,1,21,0)="^^3^3^2910410^^^^"
^DD(453.01,1,21,1,0)="Indicates the date Mandatory Training was started."
^DD(453.01,1,21,2,0)=" "
^DD(453.01,1,21,3,0)=" "
^DD(453.01,1,"DT")="2910401"
^DD(453.01,2,0)="DATE COMPLETED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(453.01,2,3)="Enter the date Mandatory Training was completed."
^DD(453.01,2,21,0)="^^3^3^2910410^^"
^DD(453.01,2,21,1,0)="Indicates the date Mandatory Training was completed."
^DD(453.01,2,21,2,0)=" "
^DD(453.01,2,21,3,0)=" "
^DD(453.01,2,"DT")="2910401"
^DD(453.01,3,0)="RENEWAL DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(453.01,3,3)="Enter the date Mandatory Training must resume."
^DD(453.01,3,21,0)="^^3^3^2910410^^^"
^DD(453.01,3,21,1,0)="Indicates the date when Mandatory Training must resume."
^DD(453.01,3,21,2,0)=" "
^DD(453.01,3,21,3,0)=" "
^DD(453.01,3,"DT")="2910401"
^DD(453.01,"B","DATE ATTENDED",1)=""
^DD(453.01,"B","DATE COMPLETED",2)=""
^DD(453.01,"B","MANDATORY TRAINING",.01)=""
^DD(453.01,"B","RENEWAL DATE",3)=""
^DD(453.01,"GL",0,1,.01)=""
^DD(453.01,"GL",0,2,1)=""
^DD(453.01,"GL",0,3,2)=""
^DD(453.01,"GL",0,4,3)=""
^DD(453.01,"IX",.01)=""
^DD(453.02,0)="CERTIFICATION SUB-FIELD^^2^4"
^DD(453.02,0,"DT")="2920819"
^DD(453.02,0,"IX","B",453.02,.01)=""
^DD(453.02,0,"NM","CERTIFICATION")=""
^DD(453.02,0,"UP")="453"
^DD(453.02,.01,0)="CERTIFICATION^MP747.9'^QA(747.9,^0;1^Q"
^DD(453.02,.01,1,0)="^.1"
^DD(453.02,.01,1,1,0)="453.02^B"
^DD(453.02,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR4"",""B"",$E(X,1,30),DA)="""""
^DD(453.02,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR4"",""B"",$E(X,1,30),DA)"
^DD(453.02,.01,3)="Enter the specialties in which the practitioner is Board Certified."
^DD(453.02,.01,21,0)="^^2^2^2911205^^^^"
^DD(453.02,.01,21,1,0)="This field allows you to enter specialties in which the practitioner"
^DD(453.02,.01,21,2,0)="is Board Certified."
^DD(453.02,.01,"DT")="2900816"
^DD(453.02,1,0)="DATE^DX^^0;2^S %DT=""E"" D IN^QARVER,^%DT S X=Y K:Y<1 X"
^DD(453.02,1,3)="Enter the date of Certification."
^DD(453.02,1,4)="D XHELP^QARVER"
^DD(453.02,1,21,0)="^^1^1^2910613^"
^DD(453.02,1,21,1,0)="Indicates the date of Certification"
^DD(453.02,1,"DT")="2910618"
^DD(453.02,1.1,0)="EXPIRATION DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.02,1.1,3)="Enter the Expiration date of this Certification."
^DD(453.02,1.1,21,0)="^^1^1^2920819^"
^DD(453.02,1.1,21,1,0)="This field should contain the expiration date for this certification."
^DD(453.02,1.1,"DT")="2920819"
^DD(453.02,2,0)="VERIFICATION^S^1:COMPENDIUM/DIRECTORY LISTING;2:LETTER FROM BOARD;3:AMERICAN DENTAL DIRECTORY;4:DIRECTORY OSTEOPATHIC LISTING;5:ROC (BOARD);^0;3^Q"
^DD(453.02,2,3)="Enter the type of Verification."
^DD(453.02,2,21,0)="11^^10^10^2920130^^"
^DD(453.02,2,21,1,0)="This field refers to the method of verification used.  ""1"" indicates"
^DD(453.02,2,21,2,0)="that the compendium of certified medical specialists was used to verify"
^DD(453.02,2,21,3,0)="specialty and that a xeroxed page signed by the Chief of Staff is"
^DD(453.02,2,21,4,0)="filed in the credentials folder.  ""2"" indicates that a letter from "
^DD(453.02,2,21,5,0)="the specialty board is filed in the credentials folder.  ""3"" indicates "
^DD(453.02,2,21,6,0)="that verification was made with the American Dental Directory and a "
^DD(453.02,2,21,7,0)="xeroxed page is filed in the credential folder.  ""4"" indicates that the"
^DD(453.02,2,21,8,0)="Osteopathic directory listing was used to verify and a xeroxed page is"
^DD(453.02,2,21,9,0)="filed in the credentials folder.  ""5"" indicates that a ROC was made "
^DD(453.02,2,21,10,0)="with the Board of Specialty."
^DD(453.02,2,"DT")="2920128"
^DD(453.02,"B","CERTIFICATION",.01)=""
^DD(453.02,"B","DATE",1)=""
^DD(453.02,"B","EXPIRATION DATE",1.1)=""
^DD(453.02,"B","VERIFICATION",2)=""
^DD(453.02,"GL",0,1,.01)=""
^DD(453.02,"GL",0,2,1)=""
^DD(453.02,"GL",0,3,2)=""
^DD(453.02,"GL",0,4,1.1)=""
^DD(453.02,"IX",.01)=""
^DD(453.03,0)="PROFESSIONAL ORGANIZATION SUB-FIELD^^.01^1"
^DD(453.03,0,"DT")="2900816"
^DD(453.03,0,"IX","B",453.03,.01)=""
^DD(453.03,0,"NM","PROFESSIONAL ORGANIZATION")=""
^DD(453.03,0,"UP")="453"
^DD(453.03,.01,0)="PROFESSIONAL ORGANIZATION^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(453.03,.01,1,0)="^.1"
^DD(453.03,.01,1,1,0)="453.03^B"
^DD(453.03,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR5"",""B"",$E(X,1,30),DA)="""""
^DD(453.03,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR5"",""B"",$E(X,1,30),DA)"
^DD(453.03,.01,3)="Answer must be 2-30 characters in length."
^DD(453.03,.01,21,0)="^^3^3^2910410^^^^"
^DD(453.03,.01,21,1,0)="Indicates the Professional Organization to which the practitioner belongs."
^DD(453.03,.01,21,2,0)=" "
^DD(453.03,.01,21,3,0)=" "
^DD(453.03,.01,"DT")="2900816"
^DD(453.03,"B","PROFESSIONAL ORGANIZATION",.01)=""
^DD(453.03,"GL",0,1,.01)=""
^DD(453.03,"IX",.01)=""
^DD(453.04,0)="HONORS/OFFICES HELD SUB-FIELD^^1^2"
^DD(453.04,0,"DT")="2900816"
^DD(453.04,0,"IX","B",453.04,.01)=""
^DD(453.04,0,"NM","HONORS/OFFICES HELD")=""
^DD(453.04,0,"UP")="453"
^DD(453.04,.01,0)="HONORS/OFFICES HELD^MF^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(453.04,.01,1,0)="^.1"
^DD(453.04,.01,1,1,0)="453.04^B"
^DD(453.04,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR6"",""B"",$E(X,1,30),DA)="""""
^DD(453.04,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR6"",""B"",$E(X,1,30),DA)"
^DD(453.04,.01,3)="Answer must be 3-80 characters in length."
^DD(453.04,.01,21,0)="^^4^4^2910410^^^^"
^DD(453.04,.01,21,1,0)="Indicates Honors received and Offices held in medical and/or scientific"
^DD(453.04,.01,21,2,0)="societies."
^DD(453.04,.01,21,3,0)=" "
^DD(453.04,.01,21,4,0)=" "
^DD(453.04,.01,"DT")="2900816"
^DD(453.04,1,0)="SOCIETY^453.41A^^1;0"
^DD(453.04,1,21,0)="^^1^1^2920731^^"
^DD(453.04,1,21,1,0)="SOCIETY NAME (MEDICAL AND/OR SCIENTIFIC SOCIETIES)"
^DD(453.04,"B","HONORS/OFFICES HELD",.01)=""
^DD(453.04,"B","SOCIETY",1)=""
^DD(453.04,"GL",0,1,.01)=""
^DD(453.04,"GL",1,0,1)=""
^DD(453.04,"IX",.01)=""
^DD(453.04,"SB",453.41,1)=""
^DD(453.05,0)="LICENSES SUB-FIELD^^3^4"
^DD(453.05,0,"DT")="2930409"
^DD(453.05,0,"IX","B",453.05,.01)=""
^DD(453.05,0,"NM","LICENSES")=""
^DD(453.05,0,"UP")="453"
^DD(453.05,.01,0)="LICENSES^MF^^0;1^K:$L(X)>12!($L(X)<2) X"
^DD(453.05,.01,1,0)="^.1"
^DD(453.05,.01,1,1,0)="453.05^B"
^DD(453.05,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR7"",""B"",$E(X,1,30),DA)="""""
^DD(453.05,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR7"",""B"",$E(X,1,30),DA)"
^DD(453.05,.01,3)="Answer must be 2-12 characters in length."
^DD(453.05,.01,21,0)="^^1^1^2930409^^^^"
^DD(453.05,.01,21,1,0)="Enter the practitioner's license(s) number."
^DD(453.05,.01,"DT")="2900816"
^DD(453.05,1,0)="STATE^P5'^DIC(5,^0;2^Q"
^DD(453.05,1,3)="Enter the State issuing the License."
^DD(453.05,1,21,0)="^^1^1^2910402^"
^DD(453.05,1,21,1,0)="Contains the State issuing the License."
^DD(453.05,1,"DT")="2900816"
^DD(453.05,2,0)="EXPIRATION DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.05,2,3)="Enter the date of expiration for the license."
^DD(453.05,2,21,0)="^^1^1^2930409^"
^DD(453.05,2,21,1,0)="Contains the Expiration date of the license."
^DD(453.05,2,"DT")="2930409"
^DD(453.05,3,0)="LICENSE CHECK^S^1:LETTER FROM STATE BOARD;2:ROC WITH STATE BOARD;3:NO RESPONSE TO INQUIRY;^0;4^Q"
^DD(453.05,3,3)="Enter the method of verification for the License."
^DD(453.05,3,21,0)="^^1^1^2911212^^^^"
^DD(453.05,3,21,1,0)="Contains the method of verification for the License."
^DD(453.05,3,"DT")="2911212"
^DD(453.05,"B","EXPIRATION DATE",2)=""
^DD(453.05,"B","LICENSE CHECK",3)=""
^DD(453.05,"B","LICENSES",.01)=""
^DD(453.05,"B","STATE",1)=""
^DD(453.05,"GL",0,1,.01)=""
^DD(453.05,"GL",0,2,1)=""
^DD(453.05,"GL",0,3,2)=""
^DD(453.05,"GL",0,4,3)=""
^DD(453.05,"IX",.01)=""
^DD(453.06,0)="SCHOOL ATTENDED SUB-FIELD^^9^11"
^DD(453.06,0,"DT")="2920917"
^DD(453.06,0,"IX","B",453.06,.01)=""
^DD(453.06,0,"NM","SCHOOL ATTENDED")=""
^DD(453.06,0,"UP")="453"
^DD(453.06,.01,0)="SCHOOL ATTENDED^MF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(453.06,.01,1,0)="^.1"
^DD(453.06,.01,1,1,0)="453.06^B"
^DD(453.06,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR8"",""B"",$E(X,1,30),DA)="""""
^DD(453.06,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR8"",""B"",$E(X,1,30),DA)"
^DD(453.06,.01,3)="Answer must be 3-40 characters in length."
^DD(453.06,.01,21,0)="^^2^2^2910410^^^^"
^DD(453.06,.01,21,1,0)="Enter the school attended to complete/renew requirements for your field"
^DD(453.06,.01,21,2,0)="of study."
^DD(453.06,.01,"DT")="2900816"
^DD(453.06,1,0)="ADDRESS^F^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(453.06,1,3)="Answer must be 3-45 characters in length."
^DD(453.06,1,21,0)="^^3^3^2920819^^^"
^DD(453.06,1,21,1,0)="Indicates the Address of the school."
^DD(453.06,1,21,2,0)=" "
^DD(453.06,1,21,3,0)=" "
^DD(453.06,1,"DT")="2920819"
^DD(453.06,2,0)="ADDRESS 2^F^^0;3^K:$L(X)>45!($L(X)<3) X"
^DD(453.06,2,3)="Answer must be 3-45 characters in length."
^DD(453.06,2,21,0)="^^3^3^2920819^^^^"
^DD(453.06,2,21,1,0)="Indicates the Address of the school."
^DD(453.06,2,21,2,0)=" "
^DD(453.06,2,21,3,0)=" "
^DD(453.06,2,"DT")="2920819"
^DD(453.06,3,0)="CITY^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(453.06,3,3)="Answer must be 3-30 characters in length."
^DD(453.06,3,21,0)="^^3^3^2920819^^^"
^DD(453.06,3,21,1,0)="Indicates the City where the school is located."
^DD(453.06,3,21,2,0)=" "
^DD(453.06,3,21,3,0)=" "
^DD(453.06,3,"DT")="2920819"
^DD(453.06,4,0)="STATE^P5'^DIC(5,^0;5^Q"
^DD(453.06,4,3)="Enter the State where the school is located."
^DD(453.06,4,21,0)="^^3^3^2910410^^"
^DD(453.06,4,21,1,0)="Indicates the State where the school is located."
^DD(453.06,4,21,2,0)=" "
^DD(453.06,4,21,3,0)=" "
^DD(453.06,4,"DT")="2900816"
^DD(453.06,4.5,0)="COUNTRY^P747.5'^QA(747.5,^0;9^Q"
^DD(453.06,4.5,21,0)="^^2^2^2920731^"
^DD(453.06,4.5,21,1,0)="This field contains the name of the foreign country in which the school"
^DD(453.06,4.5,21,2,0)="is located."
^DD(453.06,4.5,"DT")="2910612"
^DD(453.06,5,0)="ZIP CODE^F^^0;6^K:$L(X)>10!($L(X)<5) X"
^DD(453.06,5,3)="Answer must be 5-10 characters in length."
^DD(453.06,5,21,0)="^^1^1^2920731^^^"
^DD(453.06,5,21,1,0)="Indicates the Zip Code for this school."
^DD(453.06,5,"DT")="2901001"
^DD(453.06,6,0)="DATE COMPLETED^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.06,6,3)="Enter the Date school was completed."
^DD(453.06,6,21,0)="^^3^3^2910410^^^^"
^DD(453.06,6,21,1,0)="Indicates the Date school is completed."
^DD(453.06,6,21,2,0)=" "
^DD(453.06,6,21,3,0)=" "
^DD(453.06,6,"DT")="2900816"
^DD(453.06,7,0)="VERIFICATION^S^1:LETTER FROM SCHOOL;2:ROC SCHOOL/PROGRAM;3:NO RESPONSE TO INQUIRY;^0;8^Q"
^DD(453.06,7,3)="Enter the type of Verification for the degree."
^DD(453.06,7,21,0)="^^1^1^2920731^^^^"
^DD(453.06,7,21,1,0)="Indicates the type of Verification for schooling."
^DD(453.06,7,"DT")="2920731"
^DD(453.06,8,0)="EDUCATION LEVEL^453.68P^^1;0"
^DD(453.06,8,21,0)="^^1^1^2910403^"
^DD(453.06,8,21,1,0)="Contains the Education Level for the Applicant."
^DD(453.06,9,0)="FSMB SCHOOL CODE^P747.11'^QA(747.11,^0;10^Q"
^DD(453.06,9,3)="Enter a KEYWORD from School Name."
^DD(453.06,9,21,0)="^^3^3^2920917^"
^DD(453.06,9,21,1,0)="This field contains the School Code designated by the Federation of State"
^DD(453.06,9,21,2,0)="Medical Boards.  Enter a KEYWORD from the School Name, and select the"
^DD(453.06,9,21,3,0)="appropriate school in the display."
^DD(453.06,9,"DT")="2920917"
^DD(453.06,"B","ADDRESS",1)=""
^DD(453.06,"B","ADDRESS 2",2)=""
^DD(453.06,"B","CITY",3)=""
^DD(453.06,"B","COUNTRY",4.5)=""
^DD(453.06,"B","DATE COMPLETED",6)=""
^DD(453.06,"B","EDUCATION LEVEL",8)=""
^DD(453.06,"B","FSMB SCHOOL CODE",9)=""
^DD(453.06,"B","SCHOOL ATTENDED",.01)=""
^DD(453.06,"B","STATE",4)=""
^DD(453.06,"B","VERIFICATION",7)=""
^DD(453.06,"B","ZIP CODE",5)=""
^DD(453.06,"GL",0,1,.01)=""
^DD(453.06,"GL",0,2,1)=""
^DD(453.06,"GL",0,3,2)=""
^DD(453.06,"GL",0,4,3)=""
^DD(453.06,"GL",0,5,4)=""
^DD(453.06,"GL",0,6,5)=""
^DD(453.06,"GL",0,7,6)=""
^DD(453.06,"GL",0,8,7)=""
^DD(453.06,"GL",0,9,4.5)=""
^DD(453.06,"GL",0,10,9)=""
^DD(453.06,"GL",1,0,8)=""
^DD(453.06,"IX",.01)=""
^DD(453.06,"SB",453.68,8)=""
^DD(453.07,0)="CONTINUING EDUCATION PROGRAM SUB-FIELD^^5^6"
^DD(453.07,0,"DT")="2900817"
^DD(453.07,0,"IX","B",453.07,.01)=""
^DD(453.07,0,"NM","CONTINUING EDUCATION PROGRAM")=""
^DD(453.07,0,"UP")="453"
^DD(453.07,.01,0)="CONTINUING EDUCATION PROGRAM^MF^^0;1^K:$L(X)>45!($L(X)<3) X"
^DD(453.07,.01,1,0)="^.1"
^DD(453.07,.01,1,1,0)="453.07^B"
^DD(453.07,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR9"",""B"",$E(X,1,30),DA)="""""
^DD(453.07,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR9"",""B"",$E(X,1,30),DA)"
^DD(453.07,.01,3)="Answer must be 3-45 characters in length."
^DD(453.07,.01,21,0)="^^3^3^2910410^^^"
^DD(453.07,.01,21,1,0)="Name of a Continuing Education Program you have attended."
^DD(453.07,.01,21,2,0)=" "
^DD(453.07,.01,21,3,0)=" "
^DD(453.07,.01,"DT")="2900817"
^DD(453.07,1,0)="DESCRIPTION^453.71^^1;0"
^DD(453.07,1,21,0)="^^3^3^2910410^^"
^DD(453.07,1,21,1,0)="Contains a Description of the education level."
^DD(453.07,1,21,2,0)=" "
^DD(453.07,1,21,3,0)=" "
^DD(453.07,2,0)="DATES ATTENDED^F^^2;1^K:$L(X)>30!($L(X)<3) X"
^DD(453.07,2,3)="Use the format: FROM DATE/TO DATE"
^DD(453.07,2,21,0)="^^3^3^2910410^^"
^DD(453.07,2,21,1,0)="Indicates the starting date for Continuing Education."
^DD(453.07,2,21,2,0)=" "
^DD(453.07,2,21,3,0)=" "
^DD(453.07,2,"DT")="2900817"
^DD(453.07,3,0)="NUMBER OF C.M.E HOURS^NJ6,2^^2;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(453.07,3,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(453.07,3,21,0)="^^3^3^2910410^^"
^DD(453.07,3,21,1,0)="Indicates the number of Continuing Medical Education hours."
^DD(453.07,3,21,2,0)=" "
^DD(453.07,3,21,3,0)=" "
^DD(453.07,3,"DT")="2900817"
^DD(453.07,4,0)="LOCATION OF PROGRAM^F^^2;3^K:$L(X)>40!($L(X)<3) X"
^DD(453.07,4,3)="Answer must be 3-40 characters in length."
^DD(453.07,4,21,0)="^^3^3^2910410^^"
^DD(453.07,4,21,1,0)="Indicates the Location of the program."
^DD(453.07,4,21,2,0)=" "
^DD(453.07,4,21,3,0)=" "
^DD(453.07,4,"DT")="2900817"
^DD(453.07,5,0)="C.M.E COMMENTS^453.75^^3;0"
^DD(453.07,5,21,0)="^^3^3^2910410^^^^"
^DD(453.07,5,21,1,0)="Contains any Continuing Medical Education comments."
^DD(453.07,5,21,2,0)=" "
^DD(453.07,5,21,3,0)=" "
^DD(453.07,"B","C.M.E COMMENTS",5)=""
^DD(453.07,"B","CONTINUING EDUCATION PROGRAM",.01)=""
^DD(453.07,"B","DATES ATTENDED",2)=""
^DD(453.07,"B","DESCRIPTION",1)=""
^DD(453.07,"B","LOCATION OF PROGRAM",4)=""
^DD(453.07,"B","NUMBER OF C.M.E HOURS",3)=""
^DD(453.07,"GL",0,1,.01)=""
^DD(453.07,"GL",1,0,1)=""
^DD(453.07,"GL",2,1,2)=""
^DD(453.07,"GL",2,2,3)=""
^DD(453.07,"GL",2,3,4)=""
^DD(453.07,"GL",3,0,5)=""
^DD(453.07,"IX",.01)=""
^DD(453.07,"SB",453.71,1)=""
^DD(453.07,"SB",453.75,5)=""
^DD(453.074767,0)="CONTROL/SUBSTANCE CERT (Y/N) SUB-FIELD^^2^3"
^DD(453.074767,0,"DT")="2910826"
^DD(453.074767,0,"IX","B",453.074767,.01)=""
^DD(453.074767,0,"NM","CONTROL/SUBSTANCE CERT (Y/N)")=""
^DD(453.074767,0,"UP")="453"
^DD(453.074767,.01,0)="CONTROL/SUBSTANCE CERT (Y/N)^S^1:YES;2:NO;^0;1^Q"
^DD(453.074767,.01,1,0)="^.1"
^DD(453.074767,.01,1,1,0)="453.074767^B"
^DD(453.074767,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR20"",""B"",$E(X,1,30),DA)="""""
^DD(453.074767,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR20"",""B"",$E(X,1,30),DA)"
^DD(453.074767,.01,3)="Enter whether this Physician has a Controlled Substance Certificate."
^DD(453.074767,.01,21,0)="^^1^1^2920731^"
^DD(453.074767,.01,21,1,0)="Does this Physician have a Controlled Substance Certificate ?"
^DD(453.074767,.01,"DT")="2910826"
^DD(453.074767,1,0)="STATE^P5'^DIC(5,^0;2^Q"
^DD(453.074767,1,21,0)="^^1^1^2910826^"
^DD(453.074767,1,21,1,0)="Enter the Issuing State of the Controlled Substance Certificate."
^DD(453.074767,1,"DT")="2910826"
^DD(453.074767,2,0)="EXPIRATION DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.074767,2,3)="Enter the Expiration Date of the Controlled Substance Certificate"
^DD(453.074767,2,21,0)="^^2^2^2920731^"
^DD(453.074767,2,21,1,0)="This field contains the expiration date for the Controlled Substance "
^DD(453.074767,2,21,2,0)="Certificate."
^DD(453.074767,2,"DT")="2910826"
^DD(453.074767,"B","CONTROL/SUBSTANCE CERT (Y/N)",.01)=""
^DD(453.074767,"B","EXPIRATION DATE",2)=""
^DD(453.074767,"B","STATE",1)=""
^DD(453.074767,"GL",0,1,.01)=""
^DD(453.074767,"GL",0,2,1)=""
^DD(453.074767,"GL",0,3,2)=""
^DD(453.074767,"IX",.01)=""
^DD(453.08,0)="FINAL STATUS COMMENTS SUB-FIELD^^.01^1"
^DD(453.08,0,"DT")="2900816"
^DD(453.08,0,"NM","FINAL STATUS COMMENTS")=""
^DD(453.08,0,"UP")="453"
^DD(453.08,.01,0)="FINAL STATUS COMMENTS^W^^0;1^Q"
^DD(453.08,.01,3)="Enter any comments on the Final Status of the File."
^DD(453.08,.01,21,0)="^^1^1^2910403^"
^DD(453.08,.01,21,1,0)="Contains any comments on the Final Status of the File."
^DD(453.08,.01,"DT")="2900816"
^DD(453.08,"B","FINAL STATUS COMMENTS",.01)=""
^DD(453.08,"GL",0,1,.01)=""
^DD(453.09,0)="CLINICAL BACKGROUND SUB-FIELD^^1^2"
^DD(453.09,0,"DT")="2900817"
^DD(453.09,0,"IX","B",453.09,.01)=""
^DD(453.09,0,"NM","CLINICAL BACKGROUND")=""
^DD(453.09,0,"UP")="453"
^DD(453.09,.01,0)="CLINICAL BACKGROUND^MP747.8'^QA(747.8,^0;1^Q"
^DD(453.09,.01,1,0)="^.1"
^DD(453.09,.01,1,1,0)="453.09^B"
^DD(453.09,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR10"",""B"",$E(X,1,30),DA)="""""
^DD(453.09,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR10"",""B"",$E(X,1,30),DA)"
^DD(453.09,.01,3)="Enter the appropriate Clinical Background."
^DD(453.09,.01,21,0)="^^3^3^2910410^^"
^DD(453.09,.01,21,1,0)="Indicates the Clinical Background of this practitioner."
^DD(453.09,.01,21,2,0)=" "
^DD(453.09,.01,21,3,0)=" "
^DD(453.09,.01,"DT")="2900817"
^DD(453.09,1,0)="YRS. OF EXPERIENCE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(453.09,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(453.09,1,21,0)="^^4^4^2910410^^"
^DD(453.09,1,21,1,0)="Indicates the Years of Experience in a Clinical Background for this"
^DD(453.09,1,21,2,0)="practitioner."
^DD(453.09,1,21,3,0)=" "
^DD(453.09,1,21,4,0)=" "
^DD(453.09,1,"DT")="2900817"
^DD(453.09,"B","CLINICAL BACKGROUND",.01)=""
^DD(453.09,"B","YRS. OF EXPERIENCE",1)=""
^DD(453.09,"GL",0,1,.01)=""
^DD(453.09,"GL",0,2,1)=""
^DD(453.09,"IX",.01)=""
^DD(453.1,0)="FSMB SCREENING REQUEST DATE SUB-FIELD^^2^3"
^DD(453.1,0,"DT")="2900817"
^DD(453.1,0,"IX","B",453.1,.01)=""
^DD(453.1,0,"NM","FSMB SCREENING REQUEST DATE")=""
^DD(453.1,0,"UP")="453"
^DD(453.1,.01,0)="FSMB SCREENING REQUEST DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.1,.01,1,0)="^.1"
^DD(453.1,.01,1,1,0)="453.1^B"
^DD(453.1,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR11"",""B"",$E(X,1,30),DA)="""""
^DD(453.1,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR11"",""B"",$E(X,1,30),DA)"
^DD(453.1,.01,3)="Enter the date the request was sent."
^DD(453.1,.01,21,0)="^^2^2^2910403^"
^DD(453.1,.01,21,1,0)="Contains the date the request was sent to the Federation of State Medical"
^DD(453.1,.01,21,2,0)="Boards for screening."
^DD(453.1,.01,"DT")="2900817"
^DD(453.1,1,0)="DATE REC'D^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.1,1,3)="Enter the date the Screening message was received."
^DD(453.1,1,21,0)="^^1^1^2910403^"
^DD(453.1,1,21,1,0)="Contains the date the Screening message was received."
^DD(453.1,1,"DT")="2900817"
^DD(453.1,2,0)="REPORT OF SCREENING^S^1:UNREMARKABLE;2:FURTHER EXPLORATION NEEDED;3:VACO CLEARANCE NEEDED;^0;3^Q"
^DD(453.1,2,3)="Enter the type of response to the Screening message."
^DD(453.1,2,21,0)="^^3^3^2910930^^^^"
^DD(453.1,2,21,1,0)="This Field Allows You To Summarize The Findings Of The FSMB Screening"
^DD(453.1,2,21,2,0)="Process.  1 Indicates The Report Is Unremarkable. 2 Indicates Further"
^DD(453.1,2,21,3,0)="Exploration Is Needed.  3 Indicates Vaco Clearance Is Needed."
^DD(453.1,2,"DT")="2900817"
^DD(453.1,"B","DATE REC'D",1)=""
^DD(453.1,"B","FSMB SCREENING REQUEST DATE",.01)=""
^DD(453.1,"B","REPORT OF SCREENING",2)=""
^DD(453.1,"GL",0,1,.01)=""
^DD(453.1,"GL",0,2,1)=""
^DD(453.1,"GL",0,3,2)=""
^DD(453.1,"IX",.01)=""
^DD(453.11,0)="INTERNSHIP/RESIDENCY SUB-FIELD^^5^10"
^DD(453.11,0,"DT")="2920819"
^DD(453.11,0,"IX","B",453.11,.01)=""
^DD(453.11,0,"NM","INTERNSHIP/RESIDENCY")=""
^DD(453.11,0,"UP")="453"
^DD(453.11,.01,0)="INSTITUTION^MF^^0;1^K:$L(X)>35!($L(X)<2) X"
^DD(453.11,.01,1,0)="^.1"
^DD(453.11,.01,1,1,0)="453.11^B"
^DD(453.11,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR19"",""B"",$E(X,1,30),DA)="""""
^DD(453.11,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR19"",""B"",$E(X,1,30),DA)"
^DD(453.11,.01,3)="Answer must be 2-35 characters in length."
^DD(453.11,.01,21,0)="^^4^4^2910411^^^"
^DD(453.11,.01,21,1,0)="This field contains the Institution where the Internship or Residency was"
^DD(453.11,.01,21,2,0)="conducted."
^DD(453.11,.01,21,3,0)=" "
^DD(453.11,.01,21,4,0)=" "
^DD(453.11,.01,"DT")="2910402"
^DD(453.11,1,0)="ADDRESS^F^^0;2^K:$L(X)>45!($L(X)<2) X"
^DD(453.11,1,3)="Answer must be 2-45 characters in length."
^DD(453.11,1,21,0)="^^3^3^2920819^^^^"
^DD(453.11,1,21,1,0)="Indicates the Address of the institution."
^DD(453.11,1,21,2,0)=" "
^DD(453.11,1,21,3,0)=" "
^DD(453.11,1,"DT")="2920819"
^DD(453.11,1.1,0)="ADDRESS 2^F^^0;7^K:$L(X)>45!($L(X)<3) X"
^DD(453.11,1.1,3)="Answer must be 3-45 characters in length."
^DD(453.11,1.1,21,0)="^^1^1^2920819^"
^DD(453.11,1.1,21,1,0)="Indicates the address of the institution."
^DD(453.11,1.1,"DT")="2920819"
^DD(453.11,1.2,0)="CITY^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(453.11,1.2,3)="Answer must be 3-30 characters in length."
^DD(453.11,1.2,21,0)="^^1^1^2920819^"
^DD(453.11,1.2,21,1,0)="Indicate the city of the institution."
^DD(453.11,1.2,"DT")="2920819"
^DD(453.11,1.3,0)="STATE^P5'^DIC(5,^0;9^Q"
^DD(453.11,1.3,21,0)="^^1^1^2920819^"
^DD(453.11,1.3,21,1,0)="Indicate the state where the institution is located."
^DD(453.11,1.3,"DT")="2920819"
^DD(453.11,1.4,0)="ZIP^F^^0;10^K:$L(X)>10!($L(X)<5) X"
^DD(453.11,1.4,3)="Answer must be 5-10 characters in length."
^DD(453.11,1.4,21,0)="^^1^1^2920819^"
^DD(453.11,1.4,21,1,0)="Enter the zip code for the institution."
^DD(453.11,1.4,"DT")="2920819"
^DD(453.11,2,0)="SPECIALTY^P747.9'^QA(747.9,^0;3^Q"
^DD(453.11,2,3)=""
^DD(453.11,2,21,0)="^^3^3^2910617^^^^"
^DD(453.11,2,21,1,0)="Indicates the Specialties covered in Internship/Residency."
^DD(453.11,2,21,2,0)=" "
^DD(453.11,2,21,3,0)=" "
^DD(453.11,2,"DT")="2910617"
^DD(453.11,3,0)="COMPLETION DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.11,3,3)="Enter the Completion Date for training."
^DD(453.11,3,21,0)="^^3^3^2910411^^"
^DD(453.11,3,21,1,0)="Indicates the Completion Date for training."
^DD(453.11,3,21,2,0)=" "
^DD(453.11,3,21,3,0)=" "
^DD(453.11,3,"DT")="2910402"
^DD(453.11,4,0)="# OF MONTHS^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(453.11,4,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(453.11,4,21,0)="^^3^3^2910411^^"
^DD(453.11,4,21,1,0)="Number of Months of doing internship or residency at this institution."
^DD(453.11,4,21,2,0)=" "
^DD(453.11,4,21,3,0)=" "
^DD(453.11,4,"DT")="2910402"
^DD(453.11,5,0)="VERIFICATION^S^1:LETTER FROM TRAINING INSTITUTE;2:ROC;3:AMA PHYSICIAN VERIF. SVC.;^0;6^Q"
^DD(453.11,5,3)="Enter Method of Verification"
^DD(453.11,5,21,0)="^^2^2^2911212^^"
^DD(453.11,5,21,1,0)="#3 AMA Physician Verification Service should only be used if Primary"
^DD(453.11,5,21,2,0)="Source Institution has been CLOSED and no longer in operation."
^DD(453.11,5,"DT")="2910913"
^DD(453.11,"B","# OF MONTHS",4)=""
^DD(453.11,"B","ADDRESS",1)=""
^DD(453.11,"B","ADDRESS 2",1.1)=""
^DD(453.11,"B","CITY",1.2)=""
^DD(453.11,"B","COMPLETION DATE",3)=""
^DD(453.11,"B","INSTITUTION",.01)=""
^DD(453.11,"B","SPECIALTY",2)=""
^DD(453.11,"B","STATE",1.3)=""
^DD(453.11,"B","VERIFICATION",5)=""
^DD(453.11,"B","ZIP",1.4)=""
^DD(453.11,"GL",0,1,.01)=""
^DD(453.11,"GL",0,2,1)=""
^DD(453.11,"GL",0,3,2)=""
^DD(453.11,"GL",0,4,3)=""
^DD(453.11,"GL",0,5,4)=""
^DD(453.11,"GL",0,6,5)=""
^DD(453.11,"GL",0,7,1.1)=""
^DD(453.11,"GL",0,8,1.2)=""
^DD(453.11,"GL",0,9,1.3)=""
^DD(453.11,"GL",0,10,1.4)=""
^DD(453.11,"IX",.01)=""
^DD(453.12,0)="HEALTH STATEMENT,COLLEAGUE SUB-FIELD^^.01^1"
^DD(453.12,0,"DT")="2900817"
^DD(453.12,0,"IX","B",453.12,.01)=""
^DD(453.12,0,"NM","HEALTH STATEMENT,COLLEAGUE")=""
^DD(453.12,0,"UP")="453"
^DD(453.12,.01,0)="HEALTH STATEMENT,COLLEAGUE^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.12,.01,1,0)="^.1"
^DD(453.12,.01,1,1,0)="453.12^B"
^DD(453.12,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR12"",""B"",$E(X,1,30),DA)="""""
^DD(453.12,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR12"",""B"",$E(X,1,30),DA)"
^DD(453.12,.01,3)="Enter the date the Health Statement was received from a colleague of the above practitioner."
^DD(453.12,.01,21,0)="4^^4^4^2910410^^^"
^DD(453.12,.01,21,1,0)="This field allows you to enter the date on which the Statement of Health"
^DD(453.12,.01,21,2,0)="Status was received from a colleague of the practitioner.  Individuals from"
^DD(453.12,.01,21,3,0)="which this could be received include the Chief of Staff, Chief of Service,"
^DD(453.12,.01,21,4,0)="Training Program Director, or a peer."
^DD(453.12,.01,21,5,0)=" "
^DD(453.12,.01,"DT")="2900817"
^DD(453.12,"B","HEALTH STATEMENT,COLLEAGUE",.01)=""
^DD(453.12,"GL",0,1,.01)=""
^DD(453.12,"IX",.01)=""
^DD(453.13,0)="DATE REFERENCE RECEIVED SUB-FIELD^^1^2"
^DD(453.13,0,"DT")="2910401"
^DD(453.13,0,"IX","B",453.13,.01)=""
^DD(453.13,0,"NM","DATE REFERENCE RECEIVED")=""
^DD(453.13,0,"UP")="453"
^DD(453.13,.01,0)="REFERENCES^MS^A:REFERENCE A;B:REFERENCE B;C:REFERENCE C;^0;1^Q"
^DD(453.13,.01,1,0)="^.1"
^DD(453.13,.01,1,1,0)="453.13^B"
^DD(453.13,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR13"",""B"",$E(X,1,30),DA)="""""
^DD(453.13,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR13"",""B"",$E(X,1,30),DA)"
^DD(453.13,.01,3)="Enter the Reference received."
^DD(453.13,.01,21,0)="^^1^1^2910403^"
^DD(453.13,.01,21,1,0)="Contains the three (3) mandatory References for the Applicant."
^DD(453.13,.01,"DT")="2910401"
^DD(453.13,1,0)="DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.13,1,3)="Enter the date the Reference received."
^DD(453.13,1,21,0)="^^1^1^2910403^"
^DD(453.13,1,21,1,0)="Contains the date the Reference received."
^DD(453.13,1,"DT")="2900817"
^DD(453.13,"B","DATE",1)=""
^DD(453.13,"B","REFERENCES",.01)=""
^DD(453.13,"GL",0,1,.01)=""
^DD(453.13,"GL",0,2,1)=""
^DD(453.13,"IX",.01)=""
^DD(453.14,0)="RECOMMENDATION SIGNATURES SUB-FIELD^^1^2"
^DD(453.14,0,"DT")="2900817"
^DD(453.14,0,"IX","B",453.14,.01)=""
^DD(453.14,0,"NM","RECOMMENDATION SIGNATURES")=""
^DD(453.14,0,"UP")="453"
^DD(453.14,.01,0)="RECOMMENDATION SIGNATURES^MS^1:APPLICANT STATEMENT;2:SERVICE CHIEF RECOMMENDATION;3:PSB RECOMMEDATION;4:EXECUTIVE COMMITTEE RECOMMENDATION;5:DIRECTOR'S APPROVAL/DISAPPROVAL;^0;1^Q"
^DD(453.14,.01,1,0)="^.1"
^DD(453.14,.01,1,1,0)="453.14^B"
^DD(453.14,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR14"",""B"",$E(X,1,30),DA)="""""
^DD(453.14,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR14"",""B"",$E(X,1,30),DA)"
^DD(453.14,.01,3)="Enter the appropriate type of Recommendation Signature."
^DD(453.14,.01,21,0)="^^3^3^2910410^^"
^DD(453.14,.01,21,1,0)="Contains the signature date for the approving committee/official."
^DD(453.14,.01,21,2,0)=" "
^DD(453.14,.01,21,3,0)=" "
^DD(453.14,.01,"DT")="2900817"
^DD(453.14,1,0)="DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.14,1,3)="Enter the date of the Recommendation."
^DD(453.14,1,21,0)="^^1^1^2910403^"
^DD(453.14,1,21,1,0)="Contains the date of the Recommendation."
^DD(453.14,1,"DT")="2900817"
^DD(453.14,"B","DATE",1)=""
^DD(453.14,"B","RECOMMENDATION SIGNATURES",.01)=""
^DD(453.14,"GL",0,1,.01)=""
^DD(453.14,"GL",0,2,1)=""
^DD(453.14,"IX",.01)=""
^DD(453.15,0)="PERTINENT CLINICAL INFORMATION SUB-FIELD^^.01^1"
^DD(453.15,0,"DT")="2900817"
^DD(453.15,0,"NM","PERTINENT CLINICAL INFORMATION")=""
^DD(453.15,0,"UP")="453"
^DD(453.15,.01,0)="PERTINENT CLINICAL INFORMATION^W^^0;1^Q"
^DD(453.15,.01,3)="Enter any Pertinent Clinical Information."
^DD(453.15,.01,21,0)="^^2^2^2920731^^^^"
^DD(453.15,.01,21,1,0)="Enter any Pertinent Clinical Information such as: other hospitals the "
^DD(453.15,.01,21,2,0)="practitioner practices, experience, and academic appointments."
^DD(453.15,.01,"DT")="2900817"
^DD(453.15,"B","PERTINENT CLINICAL INFORMATION",.01)=""
^DD(453.15,"GL",0,1,.01)=""
^DD(453.16,0)="BOARD ELIGIBLE SUB-FIELD^^2^3"
^DD(453.16,0,"DT")="2911212"
^DD(453.16,0,"IX","B",453.16,.01)=""
^DD(453.16,0,"NM","BOARD ELIGIBLE")=""
^DD(453.16,0,"UP")="453"
^DD(453.16,.01,0)="BOARD ELIGIBLE^MP747.9'^QA(747.9,^0;1^Q"
^DD(453.16,.01,1,0)="^.1"
^DD(453.16,.01,1,1,0)="453.16^B"
^DD(453.16,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR16"",""B"",$E(X,1,30),DA)="""""
^DD(453.16,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR16"",""B"",$E(X,1,30),DA)"
^DD(453.16,.01,3)="Enter the Board Specialties Certification. "
^DD(453.16,.01,21,0)="^^4^4^2910410^^"
^DD(453.16,.01,21,1,0)="If this practitioner is eligible to complete specialty board exams, enter"
^DD(453.16,.01,21,2,0)="the area of specialty."
^DD(453.16,.01,21,3,0)=" "
^DD(453.16,.01,21,4,0)=" "
^DD(453.16,.01,"DT")="2900829"
^DD(453.16,1,0)="EXPIRATION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(453.16,1,3)="Enter the date the Board elgibility expires."
^DD(453.16,1,21,0)="^^3^3^2910410^^^"
^DD(453.16,1,21,1,0)="Indicates the date the practitioner's Board eligibility expires."
^DD(453.16,1,21,2,0)=" "
^DD(453.16,1,21,3,0)=" "
^DD(453.16,1,"DT")="2900829"
^DD(453.16,2,0)="VERIFICATION^S^1:LETTER FROM TRAINING DIRECTOR;2:LETTER FROM SPECIALTY BOARD;3:NO RESPONSE TO INQUIRY;^0;3^Q"
^DD(453.16,2,3)="Enter the type of Verification."
^DD(453.16,2,21,0)="^^7^7^2911212^^^^"
^DD(453.16,2,21,1,0)="This field refers to the method of verification used.  ""1"" indicates "
^DD(453.16,2,21,2,0)="a letter from the training director is filed in the credentials folder."
^DD(453.16,2,21,3,0)="""2"" indicates a letter from the prospective specialty board is filed "
^DD(453.16,2,21,4,0)="in the credentials folder.  ""3"" indicates that there was no response "
^DD(453.16,2,21,5,0)=" "
^DD(453.16,2,21,6,0)=" "
^DD(453.16,2,21,7,0)="to inquiry."
^DD(453.16,2,"DT")="2911212"
^DD(453.16,"B","BOARD ELIGIBLE",.01)=""
^DD(453.16,"B","EXPIRATION DATE",1)=""
^DD(453.16,"B","VERIFICATION",2)=""
^DD(453.16,"GL",0,1,.01)=""
^DD(453.16,"GL",0,2,1)=""
^DD(453.16,"GL",0,3,2)=""
^DD(453.16,"IX",.01)=""
^DD(453.17,0)="SPECIALTY SUB-FIELD^^1^2"
^DD(453.17,0,"DT")="2910212"
^DD(453.17,0,"IX","B",453.17,.01)=""
^DD(453.17,0,"NM","SPECIALTY")=""
^DD(453.17,0,"UP")="453"
^DD(453.17,.01,0)="SPECIALTY^M*P747.9'^QA(747.9,^0;1^S DIC(""S"")=""D ^QARCS"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(453.17,.01,1,0)="^.1"
^DD(453.17,.01,1,1,0)="453.17^B"
^DD(453.17,.01,1,1,1)="S ^PRSP(453,DA(1),""QAR17"",""B"",$E(X,1,30),DA)="""""
^DD(453.17,.01,1,1,2)="K ^PRSP(453,DA(1),""QAR17"",""B"",$E(X,1,30),DA)"
^DD(453.17,.01,3)="Enter the appropriate Specialty for this practitioner."
^DD(453.17,.01,12)="YOU MAY SELECT A SPECIALTY ASSOCIATED WITH THIS SERVICE."
^DD(453.17,.01,12.1)="S DIC(""S"")=""D ^QARCS"""
^DD(453.17,.01,21,0)="^^3^3^2910417^^^^"
^DD(453.17,.01,21,1,0)="Enter the Specialty associated with this practitioner."
^DD(453.17,.01,21,2,0)=" "
^DD(453.17,.01,21,3,0)=" "
^DD(453.17,.01,"DT")="2910212"
^DD(453.17,1,0)="SPECIAL PROCEDURES^453.171PA^^1;0"
^DD(453.17,1,21,0)="^^3^3^2910410^^^"
^DD(453.17,1,21,1,0)="Indicates the Special Procedures associated with this practitioner."
^DD(453.17,1,21,2,0)=" "
^DD(453.17,1,21,3,0)=" "
^DD(453.17,"B","SPECIAL PROCEDURES",1)=""
^DD(453.17,"B","SPECIALTY",.01)=""
^DD(453.17,"GL",0,1,.01)=""
^DD(453.17,"GL",1,0,1)=""
^DD(453.17,"IX",.01)=""
^DD(453.17,"SB",453.171,1)=""
^DD(453.171,0)="SPECIAL PROCEDURES SUB-FIELD^^.01^1"
^DD(453.171,0,"DT")="2910212"
^DD(453.171,0,"IX","B",453.171,.01)=""
^DD(453.171,0,"NM","SPECIAL PROCEDURES")=""
^DD(453.171,0,"UP")="453.17"
^DD(453.171,.01,0)="SPECIAL PROCEDURES^M*P747.25'^QA(747.25,^0;1^S DIC(""S"")=""D ^QARPRC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(453.171,.01,1,0)="^.1"
^DD(453.171,.01,1,1,0)="453.171^B"
^DD(453.171,.01,1,1,1)="S ^PRSP(453,DA(2),""QAR17"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(453.171,.01,1,1,2)="K ^PRSP(453,DA(2),""QAR17"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(453.171,.01,3)="Enter the appropriate Special Procedures for this practitioner."
^DD(453.171,.01,12)="SCREENS PROCEDURES ACCORDING TO SPECIALTY"
^DD(453.171,.01,12.1)="S DIC(""S"")=""D ^QARPRC"""
^DD(453.171,.01,21,0)="^^3^3^2910410^^^"
^DD(453.171,.01,21,1,0)="Indicates the Special Procedures associated with this practitioner."
^DD(453.171,.01,21,2,0)=" "
^DD(453.171,.01,21,3,0)=" "
^DD(453.171,.01,"DT")="2910212"
^DD(453.171,"B","SPECIAL PROCEDURES",.01)=""
^DD(453.171,"GL",0,1,.01)=""
^DD(453.171,"IX",.01)=""
^DD(453.41,0)="SOCIETY SUB-FIELD^^.01^1"
^DD(453.41,0,"DT")="2900816"
^DD(453.41,0,"IX","B",453.41,.01)=""
^DD(453.41,0,"NM","SOCIETY")=""
^DD(453.41,0,"UP")="453.04"
^DD(453.41,.01,0)="SOCIETY^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(453.41,.01,1,0)="^.1"
^DD(453.41,.01,1,1,0)="453.41^B"
^DD(453.41,.01,1,1,1)="S ^PRSP(453,DA(2),""QAR6"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(453.41,.01,1,1,2)="K ^PRSP(453,DA(2),""QAR6"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(453.41,.01,3)="Answer must be 3-30 characters in length."
^DD(453.41,.01,21,0)="^^1^1^2920731^"
^DD(453.41,.01,21,1,0)="This field contains the name of the Society."
^DD(453.41,.01,"DT")="2900816"
^DD(453.41,"B","SOCIETY",.01)=""
^DD(453.41,"GL",0,1,.01)=""
^DD(453.41,"IX",.01)=""
^DD(453.68,0)="EDUCATION LEVEL SUB-FIELD^^.01^1"
^DD(453.68,0,"DT")="2900816"
^DD(453.68,0,"IX","B",453.68,.01)=""
^DD(453.68,0,"NM","EDUCATION LEVEL")=""
^DD(453.68,0,"UP")="453.06"
^DD(453.68,.01,0)="EDUCATION LEVEL^MP747.7'^QA(747.7,^0;1^Q"
^DD(453.68,.01,1,0)="^.1"
^DD(453.68,.01,1,1,0)="453.68^B"
^DD(453.68,.01,1,1,1)="S ^PRSP(453,DA(2),""QAR8"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(453.68,.01,1,1,2)="K ^PRSP(453,DA(2),""QAR8"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(453.68,.01,1,2,0)="453^AEDLEVEL"
^DD(453.68,.01,1,2,1)="S ^PRSP(453,""AEDLEVEL"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(453.68,.01,1,2,2)="K ^PRSP(453,""AEDLEVEL"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(453.68,.01,1,2,"DT")="2910304"
^DD(453.68,.01,3)="Enter the Education Level for the Applicant."
^DD(453.68,.01,21,0)="^^1^1^2910403^"
^DD(453.68,.01,21,1,0)="Contains the Education Level for the Applicant."
^DD(453.68,.01,"DT")="2900816"
^DD(453.68,"B","EDUCATION LEVEL",.01)=""
^DD(453.68,"GL",0,1,.01)=""
^DD(453.68,"IX",.01)=""
^DD(453.71,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(453.71,0,"DT")="2900817"
^DD(453.71,0,"NM","DESCRIPTION")=""
^DD(453.71,0,"UP")="453.07"
^DD(453.71,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(453.71,.01,3)="Enter a synopsis on the Continuing Education Program."
^DD(453.71,.01,21,0)="^^3^3^2910410^^"
^DD(453.71,.01,21,1,0)="Contains a Description of the education level."
^DD(453.71,.01,21,2,0)=" "
^DD(453.71,.01,21,3,0)=" "
^DD(453.71,.01,"DT")="2900817"
^DD(453.71,"B","DESCRIPTION",.01)=""
^DD(453.71,"GL",0,1,.01)=""
^DD(453.75,0)="C.M.E COMMENTS SUB-FIELD^^.01^1"
^DD(453.75,0,"DT")="2900817"
^DD(453.75,0,"NM","C.M.E COMMENTS")=""
^DD(453.75,0,"UP")="453.07"
^DD(453.75,.01,0)="C.M.E COMMENTS^W^^0;1^Q"
^DD(453.75,.01,3)="Enter any additional Comments about the Program."
^DD(453.75,.01,21,0)="^^3^3^2910410^^^"
^DD(453.75,.01,21,1,0)="Contains any Continuing Medical Education comments."
^DD(453.75,.01,21,2,0)=" "
^DD(453.75,.01,21,3,0)=" "
^DD(453.75,.01,"DT")="2900817"
^DD(453.75,"B","C.M.E COMMENTS",.01)=""
^DD(453.75,"GL",0,1,.01)=""
^DD(454,0)="FIELD^^130^65"
^DD(454,0,"DDA")="N"
^DD(454,0,"DT")="2930928"
^DD(454,0,"IX","B",454,.01)=""
^DD(454,0,"NM","PAID CODE FILES")=""
^DD(454,0,"VR")="4.0"
^DD(454,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(454,.01,1,0)="^.1"
^DD(454,.01,1,1,0)="454^B"
^DD(454,.01,1,1,1)="S ^PRSP(454,""B"",$E(X,1,30),DA)="""""
^DD(454,.01,1,1,2)="K ^PRSP(454,""B"",$E(X,1,30),DA)"
^DD(454,.01,3)="Answer must be 3-30 characters in length."
^DD(454,.01,21,0)="^^1^1^2900905^^^^"
^DD(454,.01,21,1,0)="This is the name of the subfile."
^DD(454,.01,"DT")="2900322"
^DD(454,1,0)="OCCUPATION SERIES/TITLE^454.01^^OCC;0"
^DD(454,1,21,0)="^.001^2^2^3021120^^^^"
^DD(454,1,21,1,0)="This subfile stores the list of occupational series and titles codes"
^DD(454,1,21,2,0)="and their meanings."
^DD(454,3,0)="PERFORMANCE/PROFICIENCY RATING^454.03^^PPR;0"
^DD(454,3,21,0)="2^^2^2^2930115^^^"
^DD(454,3,21,1,0)="This subfile stores the list of performance/proficiency rating codes"
^DD(454,3,21,2,0)="and their meanings."
^DD(454,5,0)="PAY BASIS^454.05^^PB;0"
^DD(454,5,21,0)="^^1^1^2900522^^"
^DD(454,5,21,1,0)="This subfile stores the list of pay basis codes and their meanings."
^DD(454,6,0)="VETERANS PREFERENCE^454.06^^VET;0"
^DD(454,6,21,0)="^^2^2^2921127^^^"
^DD(454,6,21,1,0)="This subfile stores the list of veteran preference codes and their"
^DD(454,6,21,2,0)="meanings."
^DD(454,6,"DT")="2930115"
^DD(454,7,0)="TYPE OF APPOINTMENT^454.07^^TA;0"
^DD(454,7,21,0)="^^2^2^2900522^^^"
^DD(454,7,21,1,0)="This subfile stores the list of type of appointment codes and their"
^DD(454,7,21,2,0)="meanings."
^DD(454,8,0)="EDUCATION^454.08I^^EDU;0"
^DD(454,8,21,0)="^^1^1^2900522^^"
^DD(454,8,21,1,0)="This subfile stores the list of education codes and their meanings."
^DD(454,11,0)="FEGLI^454.11^^FEG;0"
^DD(454,11,21,0)="^^2^2^2990416^^^^"
^DD(454,11,21,1,0)="This subfile stores the list of Federal employee group life insurance"
^DD(454,11,21,2,0)="codes and their meanings."
^DD(454,13,0)="ACADEMIC TITLE^454.13^^ACA;0"
^DD(454,13,21,0)="^^1^1^2900522^^"
^DD(454,13,21,1,0)="This subfile stores the list of academic title codes and their meanings."
^DD(454,14,0)="PAY RATE DETERMINANT^454.14^^PRD;0"
^DD(454,14,21,0)="^^2^2^2900522^^"
^DD(454,14,21,1,0)="This subfile stores the list of pay rate determinant codes and their"
^DD(454,14,21,2,0)="meanings."
^DD(454,14,"DT")="2901224"
^DD(454,18,0)="COUNTRY^454.18^^CTY;0"
^DD(454,18,21,0)="^^1^1^2921021^^^"
^DD(454,18,21,1,0)="This subfile stores the list of country codes and their meanings."
^DD(454,19,0)="SPECIAL PAY AGREEMENT^454.19^^SPQ;0"
^DD(454,19,21,0)="^^2^2^2930115^^^"
^DD(454,19,21,1,0)="This subfile stores the list of special pay agreement qualification"
^DD(454,19,21,2,0)="codes and their meanings."
^DD(454,19,"DT")="2930115"
^DD(454,20,0)="NO AGREEMENT REASON^454.2^^SPN;0"
^DD(454,20,21,0)="0^^3^3^2900522^"
^DD(454,20,21,1,0)="This subfile stores the list of codes and their meanings which"
^DD(454,20,21,2,0)="indicates whether the Title 38 physician or dentist is under"
^DD(454,20,21,3,0)="a special pay agreement or is qualified for special pay."
^DD(454,21,0)="PRIOR VA EXPERIENCE^454.21^^PVA;0"
^DD(454,21,21,0)="^^2^2^2900521^"
^DD(454,21,21,1,0)="This subfile stores the list of prior Veteran Administration"
^DD(454,21,21,2,0)="experience codes and their meanings."
^DD(454,22,0)="POSITION PREFERENCE^454.22^^POP;0"
^DD(454,22,21,0)="^^2^2^2900521^"
^DD(454,22,21,1,0)="This subfile stores the list of Title 38 career development position"
^DD(454,22,21,2,0)="preference codes and their meanings."
^DD(454,23,0)="GEOGRAPHICAL PREFERENCE^454.23^^GEP;0"
^DD(454,23,21,0)="^^2^2^2900521^^"
^DD(454,23,21,1,0)="This subfile stores the list of geographical preference codes"
^DD(454,23,21,2,0)="and their meanings."
^DD(454,24,0)="FOLLOWUP CODE^454.24^^PUC;0"
^DD(454,24,21,0)="^^1^1^2931001^^^^"
^DD(454,24,21,1,0)="This subfile stores the list of followup codes and their meanings."
^DD(454,26,0)="SEX^454.26^^SEX;0"
^DD(454,26,21,0)="^^1^1^2920312^^"
^DD(454,26,21,1,0)="This subfile stores the list of gender codes and their meanings."
^DD(454,27,0)="CITIZENSHIP^454.27^^CIT;0"
^DD(454,27,21,0)="^^1^1^2900521^"
^DD(454,27,21,1,0)="This subfile stores the list of citizenship codes and their meanings."
^DD(454,27,"DT")="2910819"
^DD(454,31,0)="FUNCTIONAL CODE^454.31^^FUN;0"
^DD(454,31,21,0)="^^1^1^2930108^^^"
^DD(454,31,21,1,0)="This subfile stores the list of functional codes and their meanings."
^DD(454,33,0)="FLSA CODE^454.33^^FLS;0"
^DD(454,33,21,0)="^^2^2^2900521^"
^DD(454,33,21,1,0)="This subfile stores the list of Fair Labor Standards Act codes and"
^DD(454,33,21,2,0)="their meanings."
^DD(454,34,0)="DUTY BASIS^454.34I^^DB;0"
^DD(454,34,21,0)="^^1^1^2900521^"
^DD(454,34,21,1,0)="This subfile stores the list of duty basis codes and their meanings."
^DD(454,35,0)="RETIREMENT^454.35^^RET;0"
^DD(454,35,21,0)="^^2^2^2930115^^^"
^DD(454,35,21,1,0)="This subfile stores the list of retirement and Federal Insurance"
^DD(454,35,21,2,0)="Contributions Act codes and their meanings."
^DD(454,35,"DT")="2930115"
^DD(454,37,0)="LEAVE GROUP^454.37^^LVG;0"
^DD(454,37,21,0)="^^1^1^2930729^^^"
^DD(454,37,21,1,0)="This subfile stores the list of leave group codes and their meanings."
^DD(454,40,0)="CENTRALIZED POSITION INDICATOR^454.4^^CEN;0"
^DD(454,40,21,0)="^^2^2^2921020^^"
^DD(454,40,21,1,0)="This subfile stores the list of centralized position codes and their"
^DD(454,40,21,2,0)="meanings."
^DD(454,40,"DT")="2921020"
^DD(454,41,0)="SES POSITION OCCUPIED^454.41^^SES;0"
^DD(454,41,21,0)="^^2^2^2900521^"
^DD(454,41,21,1,0)="This subfile stores the list of Senior Executive Service positions"
^DD(454,41,21,2,0)="occupied codes and their meanings."
^DD(454,44,0)="MEDICAL MOS^454.44^^MOS;0"
^DD(454,44,21,0)="^^2^2^2930111^^"
^DD(454,44,21,1,0)="This subfile stores the list of medical military occupation speciality"
^DD(454,44,21,2,0)="codes and their meanings."
^DD(454,44,"DT")="2930111"
^DD(454,46,0)="PREAPPOINTMENT EXPERIENCE^454.46^^PEX;0"
^DD(454,46,21,0)="^^2^2^2900521^"
^DD(454,46,21,1,0)="This subfile stores the list of preappointment experience codes and"
^DD(454,46,21,2,0)="their meanings."
^DD(454,50,0)="CLINICAL EXPERIENCE^454.5^^ACE;0"
^DD(454,50,21,0)="^^2^2^2921021^^^"
^DD(454,50,21,1,0)="This subfile stores the list of clinical experience codes and their"
^DD(454,50,21,2,0)="meanings."
^DD(454,50,"DT")="2921021"
^DD(454,51,0)="DIPLOMATE^454.51^^DIP;0"
^DD(454,51,21,0)="^^2^2^2900523^^"
^DD(454,51,21,1,0)="This subfile stores the list of diplomate specialty codes and their"
^DD(454,51,21,2,0)="meanings."
^DD(454,51,"DT")="2921019"
^DD(454,52,0)="NATURE OF ACTION^454.52^^NOA;0"
^DD(454,52,21,0)="^^1^1^2930111^^^"
^DD(454,52,21,1,0)="This subfile stores the list of nature of action codes and their meanings."
^DD(454,53,0)="ASSIGNMENT CODE^454.53^^ASS;0"
^DD(454,53,21,0)="^^1^1^2930831^^^"
^DD(454,53,21,1,0)="This subfile stores the list of assignment codes and their meanings."
^DD(454,54,0)="INSTRUCTIONAL PROGRAM^454.54^^MAJ;0"
^DD(454,54,21,0)="^^2^2^2930524^^^^"
^DD(454,54,21,1,0)="This subfile stores the list of major study field codes and their"
^DD(454,54,21,2,0)="meanings."
^DD(454,54,"DT")="2930520"
^DD(454,55,0)="LEGAL AUTHORITY CODE^454.55^^CSA;0"
^DD(454,55,21,0)="^^1^1^2921103^^"
^DD(454,55,21,1,0)="This subfile stores the list of legal authority codes and their meanings."
^DD(454,55,"DT")="2921103"
^DD(454,66,0)="BRANCH OF SERVICE^454.66^^BOS;0"
^DD(454,66,21,0)="^^2^2^2900521^"
^DD(454,66,21,1,0)="This subfile stores the list of branch of service codes and their"
^DD(454,66,21,2,0)="meanings."
^DD(454,67,0)="EARNED INCOME TAX^454.67^^EIT;0"
^DD(454,67,21,0)="^^2^2^2900521^"
^DD(454,67,21,1,0)="This subfile stores the list of earned income tax codes and their"
^DD(454,67,21,2,0)="meanings."
^DD(454,68,0)="MEDICARE TAX STATUS^454.68^^MED;0"
^DD(454,68,21,0)="^^2^2^2900521^"
^DD(454,68,21,1,0)="This subfile stores the list of medicare tax status codes and their"
^DD(454,68,21,2,0)="meanings."
^DD(454,69,0)="BOND DENOMINATION^454.69^^BOD;0"
^DD(454,69,21,0)="^^2^2^2910815^^"
^DD(454,69,21,1,0)="This subfile stores the list of bond denomination codes and their"
^DD(454,69,21,2,0)="meanings."
^DD(454,70,0)="BOND CO-OWNER/BENEFICIARY^454.7^^BOC;0"
^DD(454,70,21,0)="^^2^2^2900521^"
^DD(454,70,21,1,0)="This subfile stores the list of bond co-owner/beneficiary codes and"
^DD(454,70,21,2,0)="their meanings."
^DD(454,79,0)="TSP STATUS^454.79^^TSS;0"
^DD(454,79,21,0)="^^2^2^2900521^"
^DD(454,79,21,1,0)="This subfile stores the list of Thrift Savings Plan status codes and"
^DD(454,79,21,2,0)="their meanings."
^DD(454,79,"DT")="2930115"
^DD(454,81,0)="FILING STATUS^454.81^^MAR;0"
^DD(454,81,21,0)="^^1^1^2900525^^"
^DD(454,81,21,1,0)="This subfile stores the list of marital status codes and their meanings."
^DD(454,82,0)="E & L CODE^454.82^^EAR;0"
^DD(454,82,21,0)="^^2^2^2900521^"
^DD(454,82,21,1,0)="This subfile stores the list of earnings and leave codes and their"
^DD(454,82,21,2,0)="meanings."
^DD(454,82,"DT")="2930108"
^DD(454,91,0)="601 COST ACCOUNT SUBCODE^454.91^^CAS;0"
^DD(454,91,21,0)="^^3^3^2900523^^"
^DD(454,91,21,1,0)="This subfile stores the list of codes and their meanings which can be"
^DD(454,91,21,2,0)="entered into the 601 Cost Account field for a Veterans Canteen Service"
^DD(454,91,21,3,0)="transaction (C8)."
^DD(454,92,0)="HEALTH INSURANCE CODE^454.92^^IIC;0"
^DD(454,92,21,0)="^^2^2^2930111^^^^"
^DD(454,92,21,1,0)="This subfile stores the list of health and life insurance identification"
^DD(454,92,21,2,0)="codes and their meanings."
^DD(454,92,"DT")="2901221"
^DD(454,93,0)="BUS CODE^454.93^^BUS;0"
^DD(454,93,21,0)="^^2^2^2921020^^"
^DD(454,93,21,1,0)="This subfile stores the list of bargaining unit status codes and"
^DD(454,93,21,2,0)="their meanings."
^DD(454,93,"DT")="2921020"
^DD(454,94,0)="COST CENTER/ORGANIZATION^454.94I^^ORG;0"
^DD(454,94,21,0)="^^2^2^2930202^^^^"
^DD(454,94,21,1,0)="This subfile stores the list of organization and cost center codes"
^DD(454,94,21,2,0)="and their meanings."
^DD(454,94,"DT")="2930127"
^DD(454,97,0)="COMPRESSED/FLEXITIME CODE^454.97^^COM;0"
^DD(454,97,21,0)="^^2^2^2900522^"
^DD(454,97,21,1,0)="This subfile stores the list of compressed and flexitime codes and"
^DD(454,97,21,2,0)="their meanings."
^DD(454,98,0)="STATE GSA CODE^454.98^^GSA;0"
^DD(454,98,21,0)="^^2^2^2900710^^"
^DD(454,98,21,1,0)="This subfile contains the General Service Administration assigned"
^DD(454,98,21,2,0)="codes for the states."
^DD(454,104,0)="COMPETITIVE LEVEL^454.0104^^CL;0"
^DD(454,104,21,0)="^^2^2^2901217^"
^DD(454,104,21,1,0)="This subfile stores the list of competitive level codes and their"
^DD(454,104,21,2,0)="meanings."
^DD(454,106,0)="SPECIAL CALC INDICATOR^454.0106^^SPC;0"
^DD(454,106,21,0)="^^2^2^2930115^^"
^DD(454,106,21,1,0)="This subfile stores the list of special pay calculation indicator codes"
^DD(454,106,21,2,0)="and their meanings."
^DD(454,106,"DT")="2930115"
^DD(454,107,0)="FUNCTIONAL EXPERIENCE^454.0107^^FE;0"
^DD(454,107,21,0)="^^2^2^2901227^"
^DD(454,107,21,1,0)="This subfile stores the list of functional experience codes and"
^DD(454,107,21,2,0)="their meanings."
^DD(454,108,0)="SPECIAL PROGRAM^454.0108^^SP;0"
^DD(454,108,21,0)="^^2^2^2901227^"
^DD(454,108,21,1,0)="This subfile stores the list of special program codes and their"
^DD(454,108,21,2,0)="meanings (used in the C7 transaction)."
^DD(454,109,0)="TRAINING PROGRAM^454.0109^^TP;0"
^DD(454,109,21,0)="^^2^2^2901227^"
^DD(454,109,21,1,0)="This subfile stores the list of training program codes and their"
^DD(454,109,21,2,0)="meanings (used in the C7 transaction)."
^DD(454,112,0)="BULK CHECK OPTION^454.0112^^BCO;0"
^DD(454,112,21,0)="^^2^2^2901227^"
^DD(454,112,21,1,0)="This subfile stores the list of bulk check option codes and their"
^DD(454,112,21,2,0)="meanings."
^DD(454,117,0)="LIMITATION CODE^454.0117^^LIM;0"
^DD(454,117,21,0)="^^1^1^2930111^^"
^DD(454,117,21,1,0)="This subfile stores the list of limitation codes and their meanings."
^DD(454,121,0)="CHECK DISTRIBUTION CODE^454.0121^^CDC;0"
^DD(454,121,21,0)="^^1^1^2911120^"
^DD(454,121,21,1,0)="This field identifies how the employee receives his/her pay check."
^DD(454,122,0)="OCC PRIV TAX DEDUCTION IND^454.0122^^OPT;0"
^DD(454,122,21,0)="^^3^3^2911120^"
^DD(454,122,21,1,0)="This field identifies if an employee is subject to occupational"
^DD(454,122,21,2,0)="privilege tax and whether or not that tax has been withheld in the"
^DD(454,122,21,3,0)="current tax year."
^DD(454,123,0)="BANK ACCOUNT TYPE^454.0123^^BAT;0"
^DD(454,123,21,0)="^^3^3^2911120^"
^DD(454,123,21,1,0)="This field identifies the bank account type, checking or savings, at the"
^DD(454,123,21,2,0)="financial institution where the employee is depositing his/her salary or"
^DD(454,123,21,3,0)="allotment."
^DD(454,124,0)="TSP SEPARATION CODE^454.0124^^TSC;0"
^DD(454,124,21,0)="^^2^2^2911120^"
^DD(454,124,21,1,0)="This field indicates the separation status of the employee for Thrift"
^DD(454,124,21,2,0)="Savings Plan purposes only."
^DD(454,125,0)="COST CENTER^454.0125I^^CC;0"
^DD(454,125,21,0)="^^1^1^2930202^^"
^DD(454,125,21,1,0)="Identifies the cost center for fund appropriation accounting."
^DD(454,126,0)="ANNUITANT INDICATOR^454.0126^^ANN;0"
^DD(454,126,21,0)="^^2^2^2930202^^"
^DD(454,126,21,1,0)="The status of an annuitant appointed to a position in the Federal civilian"
^DD(454,126,21,2,0)="service."
^DD(454,127,0)="VET STATUS^454.0127^^VSI;0"
^DD(454,127,21,0)="^^3^3^2930202^^^"
^DD(454,127,21,1,0)="The indicator of whether an employee is a veteran as defined by 38 U.S.C."
^DD(454,127,21,2,0)="101 and, if so, whether he/she served before, during or after the Vietnam"
^DD(454,127,21,3,0)="era."
^DD(454,128,0)="DUTY STATION^454.0128I^^DTY;0"
^DD(454,128,21,0)="^^1^1^2930219^"
^DD(454,128,21,1,0)="Duty Station codes and descriptions."
^DD(454,129,0)="PAY PLAN^454.0129I^^PP;0"
^DD(454,129,21,0)="^^2^2^2930729^^"
^DD(454,129,21,1,0)="Code identifies the pay system under which the employee's compensation is"
^DD(454,129,21,2,0)="determined."
^DD(454,130,0)="TYPE OF INTERFACE^454.02A^^TOI;0"
^DD(454,"B","601 COST ACCOUNT SUBCODE",91)=""
^DD(454,"B","ACADEMIC TITLE",13)=""
^DD(454,"B","ANNUITANT INDICATOR",126)=""
^DD(454,"B","ASSIGNMENT CODE",53)=""
^DD(454,"B","BANK ACCOUNT TYPE",123)=""
^DD(454,"B","BOND CO-OWNER/BENEFICIARY",70)=""
^DD(454,"B","BOND DENOMINATION",69)=""
^DD(454,"B","BRANCH OF SERVICE",66)=""
^DD(454,"B","BULK CHECK OPTION",112)=""
^DD(454,"B","BUS CODE",93)=""
^DD(454,"B","CENTRALIZED POSITION INDICATOR",40)=""
^DD(454,"B","CHECK DISTRIBUTION CODE",121)=""
^DD(454,"B","CITIZENSHIP",27)=""
^DD(454,"B","CLINICAL EXPERIENCE",50)=""
^DD(454,"B","COMPETITIVE LEVEL",104)=""
^DD(454,"B","COMPRESSED/FLEXITIME CODE",97)=""
^DD(454,"B","COST CENTER",125)=""
^DD(454,"B","COST CENTER/ORGANIZATION",94)=""
^DD(454,"B","COUNTRY",18)=""
^DD(454,"B","DIPLOMATE",51)=""
^DD(454,"B","DUTY BASIS",34)=""
^DD(454,"B","DUTY STATION",128)=""
^DD(454,"B","E & L CODE",82)=""
^DD(454,"B","EARNED INCOME TAX",67)=""
^DD(454,"B","EDUCATION",8)=""
^DD(454,"B","FEGLI",11)=""
^DD(454,"B","FILING STATUS",81)=""
^DD(454,"B","FLSA CODE",33)=""
^DD(454,"B","FOLLOWUP CODE",24)=""
^DD(454,"B","FUNCTIONAL CODE",31)=""
^DD(454,"B","FUNCTIONAL EXPERIENCE",107)=""
^DD(454,"B","GEOGRAPHICAL PREFERENCE",23)=""
^DD(454,"B","HEALTH INSURANCE CODE",92)=""
^DD(454,"B","INSTRUCTIONAL PROGRAM",54)=""
^DD(454,"B","LEAVE GROUP",37)=""
^DD(454,"B","LEGAL AUTHORITY CODE",55)=""
^DD(454,"B","LIMITATION CODE",117)=""
^DD(454,"B","MEDICAL MOS",44)=""
^DD(454,"B","MEDICARE TAX STATUS",68)=""
^DD(454,"B","NAME",.01)=""
^DD(454,"B","NATURE OF ACTION",52)=""
^DD(454,"B","NO AGREEMENT REASON",20)=""
^DD(454,"B","OCC PRIV TAX DEDUCTION IND",122)=""
^DD(454,"B","OCCUPATION SERIES/TITLE",1)=""
^DD(454,"B","PAY BASIS",5)=""
^DD(454,"B","PAY PLAN",129)=""
^DD(454,"B","PAY RATE DETERMINANT",14)=""
^DD(454,"B","PERFORMANCE/PROFICIENCY RATING",3)=""
^DD(454,"B","POSITION PREFERENCE",22)=""
^DD(454,"B","PREAPPOINTMENT EXPERIENCE",46)=""
^DD(454,"B","PRIOR VA EXPERIENCE",21)=""
^DD(454,"B","RETIREMENT",35)=""
^DD(454,"B","SES POSITION OCCUPIED",41)=""
^DD(454,"B","SEX",26)=""
^DD(454,"B","SPECIAL CALC INDICATOR",106)=""
^DD(454,"B","SPECIAL PAY AGREEMENT",19)=""
^DD(454,"B","SPECIAL PROGRAM",108)=""
^DD(454,"B","STATE GSA CODE",98)=""
^DD(454,"B","TRAINING PROGRAM",109)=""
^DD(454,"B","TSP SEPARATION CODE",124)=""
^DD(454,"B","TSP STATUS",79)=""
^DD(454,"B","TYPE OF APPOINTMENT",7)=""
^DD(454,"B","TYPE OF INTERFACE",130)=""
^DD(454,"B","VET STATUS",127)=""
^DD(454,"B","VETERANS PREFERENCE",6)=""
^DD(454,"GL",0,1,.01)=""
^DD(454,"GL","ACA",0,13)=""
^DD(454,"GL","ACE",0,50)=""
^DD(454,"GL","ANN",0,126)=""
^DD(454,"GL","ASS",0,53)=""
^DD(454,"GL","BAT",0,123)=""
^DD(454,"GL","BCO",0,112)=""
^DD(454,"GL","BOC",0,70)=""
^DD(454,"GL","BOD",0,69)=""
^DD(454,"GL","BOS",0,66)=""
^DD(454,"GL","BUS",0,93)=""
^DD(454,"GL","CAS",0,91)=""
^DD(454,"GL","CC",0,125)=""
^DD(454,"GL","CDC",0,121)=""
^DD(454,"GL","CEN",0,40)=""
^DD(454,"GL","CIT",0,27)=""
^DD(454,"GL","CL",0,104)=""
^DD(454,"GL","COM",0,97)=""
^DD(454,"GL","CSA",0,55)=""
^DD(454,"GL","CTY",0,18)=""
^DD(454,"GL","DB",0,34)=""
^DD(454,"GL","DIP",0,51)=""
^DD(454,"GL","DTY",0,128)=""
^DD(454,"GL","EAR",0,82)=""
^DD(454,"GL","EDU",0,8)=""
^DD(454,"GL","EIT",0,67)=""
^DD(454,"GL","FE",0,107)=""
^DD(454,"GL","FEG",0,11)=""
^DD(454,"GL","FLS",0,33)=""
^DD(454,"GL","FUN",0,31)=""
^DD(454,"GL","GEP",0,23)=""
^DD(454,"GL","GSA",0,98)=""
^DD(454,"GL","IIC",0,92)=""
^DD(454,"GL","LIM",0,117)=""
^DD(454,"GL","LVG",0,37)=""
^DD(454,"GL","MAJ",0,54)=""
^DD(454,"GL","MAR",0,81)=""
^DD(454,"GL","MED",0,68)=""
^DD(454,"GL","MOS",0,44)=""
^DD(454,"GL","NOA",0,52)=""
^DD(454,"GL","OCC",0,1)=""
^DD(454,"GL","OPT",0,122)=""
^DD(454,"GL","ORG",0,94)=""
^DD(454,"GL","PB",0,5)=""
^DD(454,"GL","PEX",0,46)=""
^DD(454,"GL","POP",0,22)=""
^DD(454,"GL","PP",0,129)=""
^DD(454,"GL","PPR",0,3)=""
^DD(454,"GL","PRD",0,14)=""
^DD(454,"GL","PUC",0,24)=""
^DD(454,"GL","PVA",0,21)=""
^DD(454,"GL","RET",0,35)=""
^DD(454,"GL","SES",0,41)=""
^DD(454,"GL","SEX",0,26)=""
^DD(454,"GL","SP",0,108)=""
^DD(454,"GL","SPC",0,106)=""
^DD(454,"GL","SPN",0,20)=""
^DD(454,"GL","SPQ",0,19)=""
^DD(454,"GL","TA",0,7)=""
^DD(454,"GL","TOI",0,130)=""
^DD(454,"GL","TP",0,109)=""
^DD(454,"GL","TSC",0,124)=""
^DD(454,"GL","TSS",0,79)=""
^DD(454,"GL","VET",0,6)=""
^DD(454,"GL","VSI",0,127)=""
^DD(454,"IX",.01)=""
^DD(454,"RQ",.01)=""
^DD(454,"SB",454.01,1)=""
^DD(454,"SB",454.0104,104)=""
^DD(454,"SB",454.0106,106)=""
^DD(454,"SB",454.0107,107)=""
^DD(454,"SB",454.0108,108)=""
^DD(454,"SB",454.0109,109)=""
^DD(454,"SB",454.0112,112)=""
^DD(454,"SB",454.0117,117)=""
^DD(454,"SB",454.0121,121)=""
^DD(454,"SB",454.0122,122)=""
^DD(454,"SB",454.0123,123)=""
^DD(454,"SB",454.0124,124)=""
^DD(454,"SB",454.0125,125)=""
^DD(454,"SB",454.0126,126)=""
^DD(454,"SB",454.0127,127)=""
^DD(454,"SB",454.0128,128)=""
^DD(454,"SB",454.0129,129)=""
^DD(454,"SB",454.02,130)=""
^DD(454,"SB",454.03,3)=""
^DD(454,"SB",454.05,5)=""
^DD(454,"SB",454.06,6)=""
^DD(454,"SB",454.07,7)=""
^DD(454,"SB",454.08,8)=""
^DD(454,"SB",454.11,11)=""
^DD(454,"SB",454.13,13)=""
^DD(454,"SB",454.14,14)=""
^DD(454,"SB",454.18,18)=""
^DD(454,"SB",454.19,19)=""
^DD(454,"SB",454.2,20)=""
^DD(454,"SB",454.21,21)=""
^DD(454,"SB",454.22,22)=""
^DD(454,"SB",454.23,23)=""
^DD(454,"SB",454.24,24)=""
^DD(454,"SB",454.26,26)=""
^DD(454,"SB",454.27,27)=""
^DD(454,"SB",454.31,31)=""
^DD(454,"SB",454.33,33)=""
^DD(454,"SB",454.34,34)=""
^DD(454,"SB",454.35,35)=""
^DD(454,"SB",454.37,37)=""
^DD(454,"SB",454.4,40)=""
^DD(454,"SB",454.41,41)=""
^DD(454,"SB",454.44,44)=""
^DD(454,"SB",454.46,46)=""
^DD(454,"SB",454.5,50)=""
^DD(454,"SB",454.51,51)=""
^DD(454,"SB",454.52,52)=""
^DD(454,"SB",454.53,53)=""
^DD(454,"SB",454.54,54)=""
^DD(454,"SB",454.55,55)=""
^DD(454,"SB",454.66,66)=""
^DD(454,"SB",454.67,67)=""
^DD(454,"SB",454.68,68)=""
^DD(454,"SB",454.69,69)=""
^DD(454,"SB",454.7,70)=""
^DD(454,"SB",454.79,79)=""
^DD(454,"SB",454.81,81)=""
^DD(454,"SB",454.82,82)=""
^DD(454,"SB",454.91,91)=""
^DD(454,"SB",454.92,92)=""
^DD(454,"SB",454.93,93)=""
^DD(454,"SB",454.94,94)=""
^DD(454,"SB",454.97,97)=""
^DD(454,"SB",454.98,98)=""
^DD(454.01,0)="OCCUPATION SERIES/TITLE SUB-FIELD^^1^2"
^DD(454.01,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.01,0,"IX","B",454.01,.01)=""
^DD(454.01,0,"IX","C",454.01,1)=""
^DD(454.01,0,"NM","OCCUPATION SERIES/TITLE")=""
^DD(454.01,0,"UP")="454"
^DD(454.01,.01,0)="CODE^RFX^^0;1^K:$L(X)>6!($L(X)<6)!((X'?6N)&(X'?5N1U)) X I $D(X),(+$E(X,1,4)>2500),$E(X,6)>0 K X W !!,""Wage Grade Occupational Series & Title codes must end in zero or a single uppercase letter."",!"
^DD(454.01,.01,1,0)="^.1"
^DD(454.01,.01,1,1,0)="454.01^B"
^DD(454.01,.01,1,1,1)="S ^PRSP(454,1,""OCC"",""B"",$E(X,1,30),DA)="""""
^DD(454.01,.01,1,1,2)="K ^PRSP(454,1,""OCC"",""B"",$E(X,1,30),DA)"
^DD(454.01,.01,3)="the answer must be 6 characters in length and must be either 5 numbers and 1 uppercase letter at the end OR 6 numbers."
^DD(454.01,.01,21,0)="^.001^1^1^3021120^^^^"
^DD(454.01,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.01,.01,"DT")="3030124"
^DD(454.01,1,0)="EXPLANATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(454.01,1,1,0)="^.1^^0"
^DD(454.01,1,1,1,0)="454.01^C"
^DD(454.01,1,1,1,1)="S ^PRSP(454,DA(1),""OCC"",""C"",$E(X,1,30),DA)="""""
^DD(454.01,1,1,1,2)="K ^PRSP(454,DA(1),""OCC"",""C"",$E(X,1,30),DA)"
^DD(454.01,1,1,1,"DT")="2930407"
^DD(454.01,1,3)="Answer must be 1-40 characters in length."
^DD(454.01,1,21,0)="^^1^1^2930114^^^^"
^DD(454.01,1,21,1,0)="This is the text description for the code."
^DD(454.01,1,"DT")="2930406"
^DD(454.01,"B","CODE",.01)=""
^DD(454.01,"B","EXPLANATION",1)=""
^DD(454.01,"GL",0,1,.01)=""
^DD(454.01,"GL",0,2,1)=""
^DD(454.01,"IX",.01)=""
^DD(454.01,"IX",1)=""
^DD(454.01,"RQ",.01)=""
^DD(454.0104,0)="COMPETITIVE LEVEL SUB-FIELD^^1^2"
^DD(454.0104,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0104,0,"IX","B",454.0104,.01)=""
^DD(454.0104,0,"NM","COMPETITIVE LEVEL")=""
^DD(454.0104,0,"UP")="454"
^DD(454.0104,.01,0)="CODE^F^^0;1^K:$L(X)>3!($L(X)<3)!'(X?3NUP) X"
^DD(454.0104,.01,1,0)="^.1"
^DD(454.0104,.01,1,1,0)="454.0104^B"
^DD(454.0104,.01,1,1,1)="S ^PRSP(454,DA(1),""CL"",""B"",$E(X,1,30),DA)="""""
^DD(454.0104,.01,1,1,2)="K ^PRSP(454,DA(1),""CL"",""B"",$E(X,1,30),DA)"
^DD(454.0104,.01,3)="Answer must be 3 characters in length."
^DD(454.0104,.01,21,0)="^^1^1^2901217^"
^DD(454.0104,.01,21,1,0)="This field contains the actual competitive level code."
^DD(454.0104,.01,"DT")="2901218"
^DD(454.0104,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(454.0104,1,3)="Answer must be 3-40 characters in length."
^DD(454.0104,1,21,0)="^^1^1^2901224^^"
^DD(454.0104,1,21,1,0)="This is the text description for the code."
^DD(454.0104,1,"DT")="2901217"
^DD(454.0104,"B","CODE",.01)=""
^DD(454.0104,"B","DESCRIPTION",1)=""
^DD(454.0104,"GL",0,1,.01)=""
^DD(454.0104,"GL",0,2,1)=""
^DD(454.0104,"IX",.01)=""
^DD(454.0106,0)="SPECIAL CALC INDICATOR SUB-FIELD^^1^2"
^DD(454.0106,0,"DT")="2901227"
^DD(454.0106,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0106,0,"IX","B",454.0106,.01)=""
^DD(454.0106,0,"NM","SPECIAL CALC INDICATOR")=""
^DD(454.0106,0,"UP")="454"
^DD(454.0106,.01,0)="CODE^F^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.0106,.01,1,0)="^.1"
^DD(454.0106,.01,1,1,0)="454.0106^B"
^DD(454.0106,.01,1,1,1)="S ^PRSP(454,DA(1),""SPC"",""B"",$E(X,1,30),DA)="""""
^DD(454.0106,.01,1,1,2)="K ^PRSP(454,DA(1),""SPC"",""B"",$E(X,1,30),DA)"
^DD(454.0106,.01,3)="Answer must be 1 character in length."
^DD(454.0106,.01,21,0)="^^1^1^2901227^"
^DD(454.0106,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0106,.01,"DT")="2901227"
^DD(454.0106,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(454.0106,1,3)="Answer must be 3-40 characters in length."
^DD(454.0106,1,21,0)="^^1^1^2901227^"
^DD(454.0106,1,21,1,0)="This is the text description for the code."
^DD(454.0106,1,"DT")="2901227"
^DD(454.0106,"B","CODE",.01)=""
^DD(454.0106,"B","DESCRIPTION",1)=""
^DD(454.0106,"GL",0,1,.01)=""
^DD(454.0106,"GL",0,2,1)=""
^DD(454.0106,"IX",.01)=""
^DD(454.0107,0)="FUNCTIONAL EXPERIENCE SUB-FIELD^^1^2"
^DD(454.0107,0,"DT")="2901227"
^DD(454.0107,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0107,0,"IX","B",454.0107,.01)=""
^DD(454.0107,0,"NM","FUNCTIONAL EXPERIENCE")=""
^DD(454.0107,0,"UP")="454"
^DD(454.0107,.01,0)="CODE^F^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.0107,.01,1,0)="^.1"
^DD(454.0107,.01,1,1,0)="454.0107^B"
^DD(454.0107,.01,1,1,1)="S ^PRSP(454,DA(1),""FE"",""B"",$E(X,1,30),DA)="""""
^DD(454.0107,.01,1,1,2)="K ^PRSP(454,DA(1),""FE"",""B"",$E(X,1,30),DA)"
^DD(454.0107,.01,3)="Answer must be 1 character in length."
^DD(454.0107,.01,21,0)="^^1^1^2901227^"
^DD(454.0107,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0107,.01,"DT")="2901227"
^DD(454.0107,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(454.0107,1,3)="Answer must be 3-40 characters in length."
^DD(454.0107,1,21,0)="^^1^1^2901227^"
^DD(454.0107,1,21,1,0)="This is the text description for the code."
^DD(454.0107,1,"DT")="2901227"
^DD(454.0107,"B","CODE",.01)=""
^DD(454.0107,"B","DESCRIPTION",1)=""
^DD(454.0107,"GL",0,1,.01)=""
^DD(454.0107,"GL",0,2,1)=""
^DD(454.0107,"IX",.01)=""
^DD(454.0108,0)="SPECIAL PROGRAM SUB-FIELD^^1^2"
^DD(454.0108,0,"DT")="2901227"
^DD(454.0108,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0108,0,"IX","B",454.0108,.01)=""
^DD(454.0108,0,"NM","SPECIAL PROGRAM")=""
^DD(454.0108,0,"UP")="454"
^DD(454.0108,.01,0)="CODE^F^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.0108,.01,1,0)="^.1"
^DD(454.0108,.01,1,1,0)="454.0108^B"
^DD(454.0108,.01,1,1,1)="S ^PRSP(454,DA(1),""SP"",""B"",$E(X,1,30),DA)="""""
^DD(454.0108,.01,1,1,2)="K ^PRSP(454,DA(1),""SP"",""B"",$E(X,1,30),DA)"
^DD(454.0108,.01,3)="Answer must be 1 character in length."
^DD(454.0108,.01,21,0)="^^1^1^2901227^"
^DD(454.0108,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0108,.01,"DT")="2901227"
^DD(454.0108,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(454.0108,1,3)="Answer must be 3-60 characters in length."
^DD(454.0108,1,21,0)="^^1^1^2901227^"
^DD(454.0108,1,21,1,0)="This is the text description for the code."
^DD(454.0108,1,"DT")="2901227"
^DD(454.0108,"B","CODE",.01)=""
^DD(454.0108,"B","DESCRIPTION",1)=""
^DD(454.0108,"GL",0,1,.01)=""
^DD(454.0108,"GL",0,2,1)=""
^DD(454.0108,"IX",.01)=""
^DD(454.0109,0)="TRAINING PROGRAM SUB-FIELD^^1^2"
^DD(454.0109,0,"DT")="2901227"
^DD(454.0109,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0109,0,"IX","B",454.0109,.01)=""
^DD(454.0109,0,"NM","TRAINING PROGRAM")=""
^DD(454.0109,0,"UP")="454"
^DD(454.0109,.01,0)="CODE^F^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.0109,.01,1,0)="^.1"
^DD(454.0109,.01,1,1,0)="454.0109^B"
^DD(454.0109,.01,1,1,1)="S ^PRSP(454,DA(1),""TP"",""B"",$E(X,1,30),DA)="""""
^DD(454.0109,.01,1,1,2)="K ^PRSP(454,DA(1),""TP"",""B"",$E(X,1,30),DA)"
^DD(454.0109,.01,3)="Answer must be 1 character in length."
^DD(454.0109,.01,21,0)="^^1^1^2901227^"
^DD(454.0109,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0109,.01,"DT")="2901227"
^DD(454.0109,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(454.0109,1,3)="Answer must be 3-60 characters in length."
^DD(454.0109,1,21,0)="^^1^1^2901227^"
^DD(454.0109,1,21,1,0)="This is the text description for the code."
^DD(454.0109,1,"DT")="2901227"
^DD(454.0109,"B","CODE",.01)=""
^DD(454.0109,"B","DESCRIPTION",1)=""
^DD(454.0109,"GL",0,1,.01)=""
^DD(454.0109,"GL",0,2,1)=""
^DD(454.0109,"IX",.01)=""
^DD(454.0112,0)="BULK CHECK OPTION SUB-FIELD^^1^2"
^DD(454.0112,0,"DT")="2901227"
^DD(454.0112,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0112,0,"IX","B",454.0112,.01)=""
^DD(454.0112,0,"NM","BULK CHECK OPTION")=""
^DD(454.0112,0,"UP")="454"
^DD(454.0112,.01,0)="CODE^F^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.0112,.01,1,0)="^.1"
^DD(454.0112,.01,1,1,0)="454.0112^B"
^DD(454.0112,.01,1,1,1)="S ^PRSP(454,DA(1),""BCO"",""B"",$E(X,1,30),DA)="""""
^DD(454.0112,.01,1,1,2)="K ^PRSP(454,DA(1),""BCO"",""B"",$E(X,1,30),DA)"
^DD(454.0112,.01,3)="Answer must be 1 character in length."
^DD(454.0112,.01,21,0)="^^1^1^2901227^"
^DD(454.0112,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0112,.01,"DT")="2901227"
^DD(454.0112,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(454.0112,1,3)="Answer must be 3-40 characters in length."
^DD(454.0112,1,21,0)="^^1^1^2901227^"
^DD(454.0112,1,21,1,0)="This is the text description for the code."
^DD(454.0112,1,"DT")="2901227"
^DD(454.0112,"B","CODE",.01)=""
^DD(454.0112,"B","DESCRIPTION",1)=""
^DD(454.0112,"GL",0,1,.01)=""
^DD(454.0112,"GL",0,2,1)=""
^DD(454.0112,"IX",.01)=""
^DD(454.0117,0)="LIMITATION CODE SUB-FIELD^^1^2"
^DD(454.0117,0,"DT")="2901227"
^DD(454.0117,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0117,0,"IX","B",454.0117,.01)=""
^DD(454.0117,0,"NM","LIMITATION CODE")=""
^DD(454.0117,0,"UP")="454"
^DD(454.0117,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.0117,.01,1,0)="^.1"
^DD(454.0117,.01,1,1,0)="454.0117^B"
^DD(454.0117,.01,1,1,1)="S ^PRSP(454,DA(1),""LIM"",""B"",$E(X,1,30),DA)="""""
^DD(454.0117,.01,1,1,2)="K ^PRSP(454,DA(1),""LIM"",""B"",$E(X,1,30),DA)"
^DD(454.0117,.01,3)="Answer must be 1 character in length."
^DD(454.0117,.01,21,0)="^^1^1^2901227^"
^DD(454.0117,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0117,.01,"DT")="2901227"
^DD(454.0117,1,0)="APPLICABILITY^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(454.0117,1,3)="Answer must be 3-40 characters in length."
^DD(454.0117,1,21,0)="^^1^1^2930111^^"
^DD(454.0117,1,21,1,0)="This is the text description for the code."
^DD(454.0117,1,"DT")="2930111"
^DD(454.0117,"B","APPLICABILITY",1)=""
^DD(454.0117,"B","CODE",.01)=""
^DD(454.0117,"GL",0,1,.01)=""
^DD(454.0117,"GL",0,2,1)=""
^DD(454.0117,"IX",.01)=""
^DD(454.0117,"RQ",.01)=""
^DD(454.0121,0)="CHECK DISTRIBUTION CODE SUB-FIELD^^1^2"
^DD(454.0121,0,"DT")="2910816"
^DD(454.0121,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0121,0,"IX","B",454.0121,.01)=""
^DD(454.0121,0,"NM","CHECK DISTRIBUTION CODE")=""
^DD(454.0121,0,"UP")="454"
^DD(454.0121,.01,0)="CHECK DISTRIBUTION CODE^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0121,.01,1,0)="^.1"
^DD(454.0121,.01,1,1,0)="454.0121^B"
^DD(454.0121,.01,1,1,1)="S ^PRSP(454,DA(1),""CDC"",""B"",$E(X,1,30),DA)="""""
^DD(454.0121,.01,1,1,2)="K ^PRSP(454,DA(1),""CDC"",""B"",$E(X,1,30),DA)"
^DD(454.0121,.01,3)="Answer must be 1 character in length."
^DD(454.0121,.01,21,0)="^^1^1^2911120^"
^DD(454.0121,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0121,.01,"DT")="2910816"
^DD(454.0121,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(454.0121,1,3)="Answer must be 1-30 characters in length."
^DD(454.0121,1,21,0)="^^1^1^2911120^"
^DD(454.0121,1,21,1,0)="This is the text description for the code."
^DD(454.0121,1,"DT")="2910816"
^DD(454.0121,"B","CHECK DISTRIBUTION CODE",.01)=""
^DD(454.0121,"B","DESCRIPTION",1)=""
^DD(454.0121,"GL",0,1,.01)=""
^DD(454.0121,"GL",0,2,1)=""
^DD(454.0121,"IX",.01)=""
^DD(454.0122,0)="OCC PRIV TAX DEDUCTION IND SUB-FIELD^^1^2"
^DD(454.0122,0,"DT")="2910816"
^DD(454.0122,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0122,0,"IX","B",454.0122,.01)=""
^DD(454.0122,0,"NM","OCC PRIV TAX DEDUCTION IND")=""
^DD(454.0122,0,"UP")="454"
^DD(454.0122,.01,0)="OCC PRIV TAX DEDUCTION IND^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0122,.01,1,0)="^.1"
^DD(454.0122,.01,1,1,0)="454.0122^B"
^DD(454.0122,.01,1,1,1)="S ^PRSP(454,DA(1),""OPT"",""B"",$E(X,1,30),DA)="""""
^DD(454.0122,.01,1,1,2)="K ^PRSP(454,DA(1),""OPT"",""B"",$E(X,1,30),DA)"
^DD(454.0122,.01,3)="Answer must be 1 character in length."
^DD(454.0122,.01,21,0)="^^1^1^2911120^"
^DD(454.0122,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0122,.01,"DT")="2910816"
^DD(454.0122,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(454.0122,1,3)="Answer must be 1-60 characters in length."
^DD(454.0122,1,21,0)="^^1^1^2911120^"
^DD(454.0122,1,21,1,0)="This is the text description for the code."
^DD(454.0122,1,"DT")="2910816"
^DD(454.0122,"B","DESCRIPTION",1)=""
^DD(454.0122,"B","OCC PRIV TAX DEDUCTION IND",.01)=""
^DD(454.0122,"GL",0,1,.01)=""
^DD(454.0122,"GL",0,2,1)=""
^DD(454.0122,"IX",.01)=""
^DD(454.0123,0)="BANK ACCOUNT TYPE SUB-FIELD^^1^2"
^DD(454.0123,0,"DT")="2910819"
^DD(454.0123,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0123,0,"IX","B",454.0123,.01)=""
^DD(454.0123,0,"NM","BANK ACCOUNT TYPE")=""
^DD(454.0123,0,"UP")="454"
^DD(454.0123,.01,0)="BANK ACCOUNT TYPE^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0123,.01,1,0)="^.1"
^DD(454.0123,.01,1,1,0)="454.0123^B"
^DD(454.0123,.01,1,1,1)="S ^PRSP(454,DA(1),""BAT"",""B"",$E(X,1,30),DA)="""""
^DD(454.0123,.01,1,1,2)="K ^PRSP(454,DA(1),""BAT"",""B"",$E(X,1,30),DA)"
^DD(454.0123,.01,3)="Answer must be 1 character in length."
^DD(454.0123,.01,21,0)="^^1^1^2911120^"
^DD(454.0123,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0123,.01,"DT")="2910819"
^DD(454.0123,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(454.0123,1,3)="Answer must be 1-30 characters in length."
^DD(454.0123,1,21,0)="^^1^1^2911120^"
^DD(454.0123,1,21,1,0)="This is the text description for the code."
^DD(454.0123,1,"DT")="2910819"
^DD(454.0123,"B","BANK ACCOUNT TYPE",.01)=""
^DD(454.0123,"B","DESCRIPTION",1)=""
^DD(454.0123,"GL",0,1,.01)=""
^DD(454.0123,"GL",0,2,1)=""
^DD(454.0123,"IX",.01)=""
^DD(454.0124,0)="TSP SEPARATION CODE SUB-FIELD^^1^2"
^DD(454.0124,0,"DT")="2910819"
^DD(454.0124,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0124,0,"IX","B",454.0124,.01)=""
^DD(454.0124,0,"NM","TSP SEPARATION CODE")=""
^DD(454.0124,0,"UP")="454"
^DD(454.0124,.01,0)="TSP SEPARATION CODE^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0124,.01,1,0)="^.1"
^DD(454.0124,.01,1,1,0)="454.0124^B"
^DD(454.0124,.01,1,1,1)="S ^PRSP(454,DA(1),""TSC"",""B"",$E(X,1,30),DA)="""""
^DD(454.0124,.01,1,1,2)="K ^PRSP(454,DA(1),""TSC"",""B"",$E(X,1,30),DA)"
^DD(454.0124,.01,3)="Answer must be 1 character in length."
^DD(454.0124,.01,21,0)="^^1^1^2911120^"
^DD(454.0124,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0124,.01,"DT")="2910819"
^DD(454.0124,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(454.0124,1,3)="Answer must be 1-30 characters in length."
^DD(454.0124,1,21,0)="^^1^1^2911120^"
^DD(454.0124,1,21,1,0)="This is the text description for the code."
^DD(454.0124,1,"DT")="2910819"
^DD(454.0124,"B","DESCRIPTION",1)=""
^DD(454.0124,"B","TSP SEPARATION CODE",.01)=""
^DD(454.0124,"GL",0,1,.01)=""
^DD(454.0124,"GL",0,2,1)=""
^DD(454.0124,"IX",.01)=""
^DD(454.0125,0)="COST CENTER SUB-FIELD^^1^2"
^DD(454.0125,0,"DT")="2920923"
^DD(454.0125,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0125,0,"IX","B",454.0125,.01)=""
^DD(454.0125,0,"IX","C",454.0125,1)=""
^DD(454.0125,0,"NM","COST CENTER")=""
^DD(454.0125,0,"UP")="454"
^DD(454.0125,.01,0)="CODE^MF^^0;1^K:$L(X)>4!($L(X)<4) X"
^DD(454.0125,.01,1,0)="^.1"
^DD(454.0125,.01,1,1,0)="454.0125^B"
^DD(454.0125,.01,1,1,1)="S ^PRSP(454,DA(1),""CC"",""B"",$E(X,1,30),DA)="""""
^DD(454.0125,.01,1,1,2)="K ^PRSP(454,DA(1),""CC"",""B"",$E(X,1,30),DA)"
^DD(454.0125,.01,3)="Answer must be 4 characters in length."
^DD(454.0125,.01,21,0)="^^1^1^2930202^"
^DD(454.0125,.01,21,1,0)="The COST CENTER code."
^DD(454.0125,.01,"DT")="2930202"
^DD(454.0125,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(454.0125,1,1,0)="^.1^^0"
^DD(454.0125,1,1,1,0)="454.0125^C"
^DD(454.0125,1,1,1,1)="S ^PRSP(454,DA(1),""CC"",""C"",$E(X,1,30),DA)="""""
^DD(454.0125,1,1,1,2)="K ^PRSP(454,DA(1),""CC"",""C"",$E(X,1,30),DA)"
^DD(454.0125,1,1,1,"DT")="2930126"
^DD(454.0125,1,3)="Answer must be 1-60 characters in length."
^DD(454.0125,1,21,0)="^^1^1^2930202^"
^DD(454.0125,1,21,1,0)="The COST CENTER code description."
^DD(454.0125,1,"DT")="2930406"
^DD(454.0125,"B","CODE",.01)=""
^DD(454.0125,"B","DESCRIPTION",1)=""
^DD(454.0125,"GL",0,1,.01)=""
^DD(454.0125,"GL",0,2,1)=""
^DD(454.0125,"IX",.01)=""
^DD(454.0125,"IX",1)=""
^DD(454.0126,0)="ANNUITANT INDICATOR SUB-FIELD^^1^2"
^DD(454.0126,0,"DT")="2930202"
^DD(454.0126,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0126,0,"IX","B",454.0126,.01)=""
^DD(454.0126,0,"NM","ANNUITANT INDICATOR")=""
^DD(454.0126,0,"UP")="454"
^DD(454.0126,.01,0)="CODE^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0126,.01,1,0)="^.1"
^DD(454.0126,.01,1,1,0)="454.0126^B"
^DD(454.0126,.01,1,1,1)="S ^PRSP(454,DA(1),""ANN"",""B"",$E(X,1,30),DA)="""""
^DD(454.0126,.01,1,1,2)="K ^PRSP(454,DA(1),""ANN"",""B"",$E(X,1,30),DA)"
^DD(454.0126,.01,3)="Answer must be 1 character in length."
^DD(454.0126,.01,21,0)="^^1^1^2930202^"
^DD(454.0126,.01,21,1,0)="The ANNUITANT INDICATOR code."
^DD(454.0126,.01,"DT")="2921019"
^DD(454.0126,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(454.0126,1,1,0)="^.1^^0"
^DD(454.0126,1,3)="Answer must be 1-60 characters in length."
^DD(454.0126,1,21,0)="^^1^1^2930202^"
^DD(454.0126,1,21,1,0)="The ANNUITANT INDICATOR code description."
^DD(454.0126,1,"DT")="2930408"
^DD(454.0126,"B","CODE",.01)=""
^DD(454.0126,"B","DESCRIPTION",1)=""
^DD(454.0126,"GL",0,1,.01)=""
^DD(454.0126,"GL",0,2,1)=""
^DD(454.0126,"IX",.01)=""
^DD(454.0127,0)="VET STATUS SUB-FIELD^^1^2"
^DD(454.0127,0,"DT")="2921127"
^DD(454.0127,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0127,0,"IX","B",454.0127,.01)=""
^DD(454.0127,0,"NM","VET STATUS")=""
^DD(454.0127,0,"UP")="454"
^DD(454.0127,.01,0)="CODE^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0127,.01,1,0)="^.1"
^DD(454.0127,.01,1,1,0)="454.0127^B"
^DD(454.0127,.01,1,1,1)="S ^PRSP(454,DA(1),""VSI"",""B"",$E(X,1,30),DA)="""""
^DD(454.0127,.01,1,1,2)="K ^PRSP(454,DA(1),""VSI"",""B"",$E(X,1,30),DA)"
^DD(454.0127,.01,3)="Answer must be 1 character in length."
^DD(454.0127,.01,21,0)="^^1^1^2930202^"
^DD(454.0127,.01,21,1,0)="The VET STATUS code."
^DD(454.0127,.01,"DT")="2921127"
^DD(454.0127,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(454.0127,1,1,0)="^.1^^0"
^DD(454.0127,1,3)="Answer must be 1-60 characters in length."
^DD(454.0127,1,21,0)="^^1^1^2930202^"
^DD(454.0127,1,21,1,0)="The VET STATUS code description."
^DD(454.0127,1,"DT")="2930408"
^DD(454.0127,"B","CODE",.01)=""
^DD(454.0127,"B","DESCRIPTION",1)=""
^DD(454.0127,"GL",0,1,.01)=""
^DD(454.0127,"GL",0,2,1)=""
^DD(454.0127,"IX",.01)=""
^DD(454.0128,0)="DUTY STATION SUB-FIELD^^1^2"
^DD(454.0128,0,"DT")="2930219"
^DD(454.0128,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0128,0,"IX","B",454.0128,.01)=""
^DD(454.0128,0,"NM","DUTY STATION")=""
^DD(454.0128,0,"UP")="454"
^DD(454.0128,.01,0)="DUTY STATION^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0128,.01,1,0)="^.1"
^DD(454.0128,.01,1,1,0)="454.0128^B"
^DD(454.0128,.01,1,1,1)="S ^PRSP(454,DA(1),""DTY"",""B"",$E(X,1,30),DA)="""""
^DD(454.0128,.01,1,1,2)="K ^PRSP(454,DA(1),""DTY"",""B"",$E(X,1,30),DA)"
^DD(454.0128,.01,3)="Answer must be 1 character in length."
^DD(454.0128,.01,21,0)="^^1^1^2930219^"
^DD(454.0128,.01,21,1,0)="Duty Station code."
^DD(454.0128,.01,"DT")="2930219"
^DD(454.0128,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(454.0128,1,3)="Answer must be 1-30 characters in length."
^DD(454.0128,1,21,0)="^^1^1^2930219^"
^DD(454.0128,1,21,1,0)="Duty Station description."
^DD(454.0128,1,"DT")="2930219"
^DD(454.0128,"B","DESCRIPTION",1)=""
^DD(454.0128,"B","DUTY STATION",.01)=""
^DD(454.0128,"GL",0,1,.01)=""
^DD(454.0128,"GL",0,2,1)=""
^DD(454.0128,"IX",.01)=""
^DD(454.0129,0)="PAY PLAN SUB-FIELD^^1^2"
^DD(454.0129,0,"DT")="2930729"
^DD(454.0129,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.0129,0,"IX","B",454.0129,.01)=""
^DD(454.0129,0,"NM","PAY PLAN")=""
^DD(454.0129,0,"UP")="454"
^DD(454.0129,.01,0)="PAID CODE^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.0129,.01,1,0)="^.1"
^DD(454.0129,.01,1,1,0)="454.0129^B"
^DD(454.0129,.01,1,1,1)="S ^PRSP(454,DA(1),""PP"",""B"",$E(X,1,30),DA)="""""
^DD(454.0129,.01,1,1,2)="K ^PRSP(454,DA(1),""PP"",""B"",$E(X,1,30),DA)"
^DD(454.0129,.01,3)="Answer must be 1 character in length."
^DD(454.0129,.01,21,0)="^^1^1^2930729^"
^DD(454.0129,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.0129,.01,"DT")="2930729"
^DD(454.0129,1,0)="PAY PLAN^F^^0;2^K:$L(X)>12!($L(X)<2) X"
^DD(454.0129,1,3)="Answer must be 2-12 characters in length."
^DD(454.0129,1,21,0)="^^1^1^2930729^"
^DD(454.0129,1,21,1,0)="This is the text description for the code."
^DD(454.0129,1,"DT")="2930729"
^DD(454.0129,"B","PAID CODE",.01)=""
^DD(454.0129,"B","PAY PLAN",1)=""
^DD(454.0129,"GL",0,1,.01)=""
^DD(454.0129,"GL",0,2,1)=""
^DD(454.0129,"IX",.01)=""
^DD(454.02,0)="TYPE OF INTERFACE SUB-FIELD^^1^2"
^DD(454.02,0,"DT")="3030724"
^DD(454.02,0,"IX","B",454.02,.01)=""
^DD(454.02,0,"NM","TYPE OF INTERFACE")=""
^DD(454.02,0,"UP")="454"
^DD(454.02,.01,0)="TYPE OF INTERFACE^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(454.02,.01,1,0)="^.1"
^DD(454.02,.01,1,1,0)="454.02^B"
^DD(454.02,.01,1,1,1)="S ^PRSP(454,DA(1),""TOI"",""B"",$E(X,1,30),DA)="""""
^DD(454.02,.01,1,1,2)="K ^PRSP(454,DA(1),""TOI"",""B"",$E(X,1,30),DA)"
^DD(454.02,.01,3)="Answer must be 1 character in length."
^DD(454.02,.01,"DT")="3030724"
^DD(454.02,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>240!($L(X)<1) X"
^DD(454.02,1,3)="Answer must be 1-240 characters in length."
^DD(454.02,1,"DT")="3030724"
^DD(454.02,"B","DESCRIPTION",1)=""
^DD(454.02,"B","TYPE OF INTERFACE",.01)=""
^DD(454.02,"GL",0,1,.01)=""
^DD(454.02,"GL",0,2,1)=""
^DD(454.02,"IX",.01)=""
^DD(454.03,0)="PERFORMANCE/PROFICIENCY RATING SUB-FIELD^^1^2"
^DD(454.03,0,"DT")="2930115"
^DD(454.03,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.03,0,"IX","B",454.03,.01)=""
^DD(454.03,0,"NM","PERFORMANCE/PROFICIENCY RATING")=""
^DD(454.03,0,"UP")="454"
^DD(454.03,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.03,.01,1,0)="^.1"
^DD(454.03,.01,1,1,0)="454.03^B"
^DD(454.03,.01,1,1,1)="S ^PRSP(454,1,""PPR"",""B"",$E(X,1,30),DA)="""""
^DD(454.03,.01,1,1,2)="K ^PRSP(454,1,""PPR"",""B"",$E(X,1,30),DA)"
^DD(454.03,.01,3)="Answer must be 1 character in length."
^DD(454.03,.01,21,0)="^^1^1^2900522^^"
^DD(454.03,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.03,.01,"DT")="2901212"
^DD(454.03,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(454.03,1,1,0)="^.1^^0"
^DD(454.03,1,3)="Answer must be 1-60 characters in length."
^DD(454.03,1,21,0)="^^1^1^2930115^^^"
^DD(454.03,1,21,1,0)="This is the text description for the code."
^DD(454.03,1,"DT")="2930406"
^DD(454.03,"B","CODE",.01)=""
^DD(454.03,"B","DESCRIPTION",1)=""
^DD(454.03,"GL",0,1,.01)=""
^DD(454.03,"GL",0,2,1)=""
^DD(454.03,"IX",.01)=""
^DD(454.03,"RQ",.01)=""
^DD(454.05,0)="PAY BASIS SUB-FIELD^^1^2"
^DD(454.05,0,"DT")="2901212"
^DD(454.05,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.05,0,"IX","B",454.05,.01)=""
^DD(454.05,0,"NM","PAY BASIS")=""
^DD(454.05,0,"UP")="454"
^DD(454.05,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.05,.01,1,0)="^.1"
^DD(454.05,.01,1,1,0)="454.05^B"
^DD(454.05,.01,1,1,1)="S ^PRSP(454,1,""PB"",""B"",$E(X,1,30),DA)="""""
^DD(454.05,.01,1,1,2)="K ^PRSP(454,1,""PB"",""B"",$E(X,1,30),DA)"
^DD(454.05,.01,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(454.05,.01,21,0)="^^1^1^2900523^"
^DD(454.05,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.05,.01,"DT")="2901212"
^DD(454.05,1,0)="BASIS^F^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(454.05,1,3)="Answer must be 1-200 characters in length."
^DD(454.05,1,21,0)="^^1^1^2900521^"
^DD(454.05,1,21,1,0)="This is the text description for the code."
^DD(454.05,1,"DT")="2901212"
^DD(454.05,"B","BASIS",1)=""
^DD(454.05,"B","CODE",.01)=""
^DD(454.05,"GL",0,1,.01)=""
^DD(454.05,"GL",0,2,1)=""
^DD(454.05,"IX",.01)=""
^DD(454.05,"RQ",.01)=""
^DD(454.06,0)="VETERANS PREFERENCE SUB-FIELD^^1^2"
^DD(454.06,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.06,0,"IX","B",454.06,.01)=""
^DD(454.06,0,"NM","VETERANS PREFERENCE")=""
^DD(454.06,0,"UP")="454"
^DD(454.06,.01,0)="CODE^FX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.06,.01,1,0)="^.1"
^DD(454.06,.01,1,1,0)="454.06^B"
^DD(454.06,.01,1,1,1)="S ^PRSP(454,1,""VET"",""B"",$E(X,1,30),DA)="""""
^DD(454.06,.01,1,1,2)="K ^PRSP(454,1,""VET"",""B"",$E(X,1,30),DA)"
^DD(454.06,.01,3)="Answer must be 1 character in length."
^DD(454.06,.01,4)=""
^DD(454.06,.01,21,0)="^^1^1^2900522^^"
^DD(454.06,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.06,.01,"DT")="2901212"
^DD(454.06,1,0)="TYPE OF PREFERENCE^F^^0;2^K:$L(X)>85!($L(X)<1) X"
^DD(454.06,1,3)="Answer must be 1-85 characters in length."
^DD(454.06,1,21,0)="^^1^1^2900521^"
^DD(454.06,1,21,1,0)="This is the text description for the code."
^DD(454.06,1,"DT")="2890324"
^DD(454.06,"B","CODE",.01)=""
^DD(454.06,"B","TYPE OF PREFERENCE",1)=""
^DD(454.06,"GL",0,1,.01)=""
^DD(454.06,"GL",0,2,1)=""
^DD(454.06,"IX",.01)=""
^DD(454.07,0)="TYPE OF APPOINTMENT SUB-FIELD^^1^2"
^DD(454.07,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.07,0,"IX","B",454.07,.01)=""
^DD(454.07,0,"IX","C",454.07,1)=""
^DD(454.07,0,"NM","TYPE OF APPOINTMENT")=""
^DD(454.07,0,"UP")="454"
^DD(454.07,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.07,.01,1,0)="^.1"
^DD(454.07,.01,1,1,0)="454.07^B"
^DD(454.07,.01,1,1,1)="S ^PRSP(454,1,""TA"",""B"",$E(X,1,30),DA)="""""
^DD(454.07,.01,1,1,2)="K ^PRSP(454,1,""TA"",""B"",$E(X,1,30),DA)"
^DD(454.07,.01,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(454.07,.01,21,0)="^^1^1^2900522^^"
^DD(454.07,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.07,.01,"DT")="2901212"
^DD(454.07,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<1) X"
^DD(454.07,1,1,0)="^.1^^0"
^DD(454.07,1,1,1,0)="454.07^C"
^DD(454.07,1,1,1,1)="S ^PRSP(454,DA(1),""TA"",""C"",$E(X,1,30),DA)="""""
^DD(454.07,1,1,1,2)="K ^PRSP(454,DA(1),""TA"",""C"",$E(X,1,30),DA)"
^DD(454.07,1,1,1,"DT")="2930407"
^DD(454.07,1,3)="Answer must be 1-200 characters in length."
^DD(454.07,1,21,0)="^^1^1^2900521^"
^DD(454.07,1,21,1,0)="This is the text description for the code."
^DD(454.07,1,"DT")="2930406"
^DD(454.07,"B","CODE",.01)=""
^DD(454.07,"B","DESCRIPTION",1)=""
^DD(454.07,"GL",0,1,.01)=""
^DD(454.07,"GL",0,2,1)=""
^DD(454.07,"IX",.01)=""
^DD(454.07,"IX",1)=""
^DD(454.07,"RQ",.01)=""
^DD(454.08,0)="EDUCATION SUB-FIELD^^1^2"
^DD(454.08,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.08,0,"IX","B",454.08,.01)=""
^DD(454.08,0,"IX","C",454.08,1)=""
^DD(454.08,0,"NM","EDUCATION")=""
^DD(454.08,0,"UP")="454"
^DD(454.08,.01,0)="PAID CODE^FX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.08,.01,1,0)="^.1"
^DD(454.08,.01,1,1,0)="454.08^B"
^DD(454.08,.01,1,1,1)="S ^PRSP(454,1,""EDU"",""B"",$E(X,1,30),DA)="""""
^DD(454.08,.01,1,1,2)="K ^PRSP(454,1,""EDU"",""B"",$E(X,1,30),DA)"
^DD(454.08,.01,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(454.08,.01,21,0)="^^1^1^2900522^^"
^DD(454.08,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.08,.01,"DT")="2901212"
^DD(454.08,1,0)="EDUCATIONAL LEVEL^F^^0;2^K:$L(X)>100!($L(X)<3) X"
^DD(454.08,1,1,0)="^.1"
^DD(454.08,1,1,1,0)="454.08^C"
^DD(454.08,1,1,1,1)="S ^PRSP(454,DA(1),""EDU"",""C"",$E(X,1,30),DA)="""""
^DD(454.08,1,1,1,2)="K ^PRSP(454,DA(1),""EDU"",""C"",$E(X,1,30),DA)"
^DD(454.08,1,1,1,"DT")="2930407"
^DD(454.08,1,3)="ANSWER MUST BE 3-100 CHARACTERS IN LENGTH"
^DD(454.08,1,21,0)="^^1^1^2900521^"
^DD(454.08,1,21,1,0)="This is the text description for the code."
^DD(454.08,1,"DT")="2930407"
^DD(454.08,"B","EDUCATIONAL LEVEL",1)=""
^DD(454.08,"B","PAID CODE",.01)=""
^DD(454.08,"GL",0,1,.01)=""
^DD(454.08,"GL",0,2,1)=""
^DD(454.08,"IX",.01)=""
^DD(454.08,"IX",1)=""
^DD(454.1,0)="FIELD^^89^90"
^DD(454.1,0,"DDA")="N"
^DD(454.1,0,"DT")="2951128"
^DD(454.1,0,"IX","B",454.1,.01)=""
^DD(454.1,0,"NM","PAID COST CENTER/ORGANIZATION")=""
^DD(454.1,0,"PT",452.1,6)=""
^DD(454.1,0,"PT",452.3,.02)=""
^DD(454.1,0,"PT",452.8,2.7)=""
^DD(454.1,0,"PT",454.94,1)=""
^DD(454.1,0,"VR")="4.0"
^DD(454.1,.01,0)="NAME^RF^^0;1^K:$L(X)>24!($L(X)<1)!'(X'?1P.E) X"
^DD(454.1,.01,1,0)="^.1"
^DD(454.1,.01,1,1,0)="454.1^B"
^DD(454.1,.01,1,1,1)="S ^PRSP(454.1,""B"",$E(X,1,30),DA)="""""
^DD(454.1,.01,1,1,2)="K ^PRSP(454.1,""B"",$E(X,1,30),DA)"
^DD(454.1,.01,3)="Answer must be 1-24 characters in length."
^DD(454.1,.01,21,0)="^^2^2^2950616^^^^"
^DD(454.1,.01,21,1,0)="This field contains the name of an organizational unit to be associated"
^DD(454.1,.01,21,2,0)="with a particular cost center/organization combination."
^DD(454.1,.01,"DT")="2930621"
^DD(454.1,1,0)="MED CARE APPROPRIATED (Y/N?)^S^Y:YES;N:NO;^0;2^Q"
^DD(454.1,1,21,0)="^^2^2^2941202^^"
^DD(454.1,1,21,1,0)="This field indicates whether the organizational unit's strength should be"
^DD(454.1,1,21,2,0)="considered as appropriated for medical care."
^DD(454.1,1,"DT")="2930330"
^DD(454.1,2,0)="COMPILATION DATE^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(454.1,2,21,0)="^^1^1^2941202^^"
^DD(454.1,2,21,1,0)="The date on which the strength report statistics were compiled."
^DD(454.1,2,"DT")="2930330"
^DD(454.1,3,0)="FTE CEILING^NJ7,2^^0;4^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,3,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,3,21,0)="^^1^1^2930510^^"
^DD(454.1,3,21,1,0)="The FTE ceiling for this organizational unit."
^DD(454.1,3,"DT")="2930510"
^DD(454.1,4,0)="FTE MD CEILING^NJ7,2^^0;5^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,4,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,4,21,0)="^^1^1^2930510^^"
^DD(454.1,4,21,1,0)="The FTE ceiling for physicians for this organizational unit."
^DD(454.1,4,"DT")="2930510"
^DD(454.1,5,0)="FTE RN CEILING^NJ7,2^^0;6^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,5,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,5,21,0)="^^1^1^2930510^^"
^DD(454.1,5,21,1,0)="The FTE ceiling for nurses for this organizational unit."
^DD(454.1,5,"DT")="2930510"
^DD(454.1,6,0)="FTE LPN CEILING^NJ7,2^^0;7^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,6,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,6,21,0)="^^1^1^2930510^^"
^DD(454.1,6,21,1,0)="The FTE ceiling for practical nurses for this organizational unit."
^DD(454.1,6,"DT")="2930510"
^DD(454.1,7,0)="FTE NA CEILING^NJ7,2^^0;8^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,7,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,7,21,0)="^^1^1^2930510^^^"
^DD(454.1,7,21,1,0)="The FTE ceiling for nursing assistants for this organizational unit."
^DD(454.1,7,"DT")="2930510"
^DD(454.1,8,0)="FULL-TIME PERMANENT COUNT^NJ4,0^^1;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,8,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,8,21,0)="^^1^1^2930420^^^"
^DD(454.1,8,21,1,0)="The number of full-time permanent employees in this organizational unit."
^DD(454.1,8,"DT")="2930330"
^DD(454.1,9,0)="FULL-TIME TEMPORARY COUNT^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,9,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,9,21,0)="^^1^1^2930420^"
^DD(454.1,9,21,1,0)="The number of full-time temporary employees in this organizational unit."
^DD(454.1,9,"DT")="2930330"
^DD(454.1,10,0)="PART-TIME PERMANENT COUNT^NJ4,0^^1;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,10,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,10,21,0)="^^1^1^2941202^^"
^DD(454.1,10,21,1,0)="The number of part-time permanent employees in this organizational unit."
^DD(454.1,10,"DT")="2930330"
^DD(454.1,11,0)="PART-TIME PERMANENT FTE^NJ7,2^^1;4^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,11,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,11,21,0)="^^1^1^2930420^"
^DD(454.1,11,21,1,0)="The number of part-time permanent FTE in this organizational unit."
^DD(454.1,11,"DT")="2930330"
^DD(454.1,12,0)="PART-TIME TEMPORARY COUNT^NJ4,0^^1;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,12,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,12,21,0)="^^1^1^2941202^^"
^DD(454.1,12,21,1,0)="The number of part-time temporary employees in this organizational unit."
^DD(454.1,12,"DT")="2930330"
^DD(454.1,13,0)="PART-TIME TEMPORARY FTE^NJ7,2^^1;6^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,13,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,13,21,0)="^^1^1^2930420^"
^DD(454.1,13,21,1,0)="The number of part-time temporary FTE in this organizational unit."
^DD(454.1,13,"DT")="2930330"
^DD(454.1,14,0)="INTERMITTENT COUNT^NJ4,0^^1;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,14,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,14,21,0)="^^1^1^2930420^"
^DD(454.1,14,21,1,0)="The number of intermittent employees in this organizational unit."
^DD(454.1,14,"DT")="2930330"
^DD(454.1,15,0)="INTERMITTENT FTE^NJ7,2^^1;8^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,15,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,15,21,0)="^^1^1^2930420^"
^DD(454.1,15,21,1,0)="The number of intermittent FTE in this organizational unit."
^DD(454.1,15,"DT")="2930330"
^DD(454.1,16,0)="TRAINEE/STIPEND/RES COUNT^NJ4,0^^1;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,16,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,16,21,0)="^^1^1^2930420^"
^DD(454.1,16,21,1,0)="The number of trainees, stipends and residents in this organizational unit."
^DD(454.1,16,"DT")="2930415"
^DD(454.1,17,0)="TRAINEE/STIPEND/RES FTE^NJ7,2^^1;10^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,17,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,17,21,0)="^^1^1^2930420^"
^DD(454.1,17,21,1,0)="The number of trainee, stipend and resident FTE in this organizational unit."
^DD(454.1,17,"DT")="2930415"
^DD(454.1,18,0)="SUMMER AID/SIS COUNT^NJ4,0^^1;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,18,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,18,21,0)="^^2^2^2930617^^"
^DD(454.1,18,21,1,0)="The number of summer aid and stay-in-school employees in this organizational"
^DD(454.1,18,21,2,0)="unit."
^DD(454.1,18,"DT")="2930415"
^DD(454.1,19,0)="TOTAL COUNT^NJ4,0^^1;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,19,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,19,21,0)="^^1^1^2930420^"
^DD(454.1,19,21,1,0)="The total number of employees in this organizational unit."
^DD(454.1,19,"DT")="2930415"
^DD(454.1,20,0)="TOTAL FTE^NJ7,2^^1;13^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,20,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,20,21,0)="^^1^1^2930420^"
^DD(454.1,20,21,1,0)="The total number of FTE in this organizational unit."
^DD(454.1,20,"DT")="2930415"
^DD(454.1,21,0)="VARIANCE^NJ7,2^^1;14^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,21,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,21,21,0)="^^1^1^2930420^"
^DD(454.1,21,21,1,0)="The difference between the FTE ceiling and total FTE."
^DD(454.1,21,"DT")="2930415"
^DD(454.1,22,0)="FULL-TIME PERMANENT MD COUNT^NJ4,0^^2;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,22,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,22,21,0)="^^1^1^2930420^"
^DD(454.1,22,21,1,0)="The number of full-time permanent physicians in this organizational unit."
^DD(454.1,22,"DT")="2930415"
^DD(454.1,23,0)="FULL-TIME TEMPORARY MD COUNT^NJ4,0^^2;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,23,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,23,21,0)="^^1^1^2930420^"
^DD(454.1,23,21,1,0)="The number of full-time temporary physicians in this organizational unit."
^DD(454.1,23,"DT")="2930415"
^DD(454.1,24,0)="PART-TIME PERMANENT MD COUNT^NJ4,0^^2;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,24,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,24,21,0)="^^1^1^2930420^"
^DD(454.1,24,21,1,0)="The number of part-time permanent physicians in this organizational unit."
^DD(454.1,24,"DT")="2930415"
^DD(454.1,25,0)="PART-TIME PERMANENT MD FTE^NJ7,2^^2;4^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,25,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,25,21,0)="^^1^1^2930420^"
^DD(454.1,25,21,1,0)="The number of part-time permanent physician FTE in this organizational unit."
^DD(454.1,25,"DT")="2930415"
^DD(454.1,26,0)="PART-TIME TEMPORARY MD COUNT^NJ4,0^^2;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,26,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,26,21,0)="^^1^1^2930420^"
^DD(454.1,26,21,1,0)="The number of part-time temporary physicians in this organizational unit."
^DD(454.1,26,"DT")="2930415"
^DD(454.1,27,0)="PART-TIME TEMPORARY MD FTE^NJ7,2^^2;6^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,27,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,27,21,0)="^^1^1^2930420^"
^DD(454.1,27,21,1,0)="The number of part-time temporary physician FTE in this organizational unit."
^DD(454.1,27,"DT")="2930415"
^DD(454.1,28,0)="INTERMITTENT MD COUNT^NJ4,0^^2;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,28,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,28,21,0)="^^1^1^2930420^"
^DD(454.1,28,21,1,0)="The number of intermittent physicians in this organizational unit."
^DD(454.1,28,"DT")="2930415"
^DD(454.1,29,0)="INTERMITTENT MD FTE^NJ7,2^^2;8^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,29,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,29,21,0)="^^1^1^2930420^"
^DD(454.1,29,21,1,0)="The number of intermittent physician FTE in this organizational unit."
^DD(454.1,29,"DT")="2930415"
^DD(454.1,30,0)="TRAINEE/STIPEND/RES MD COUNT^NJ4,0^^2;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,30,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,30,21,0)="^^2^2^2930420^"
^DD(454.1,30,21,1,0)="The number of trainee, stipend and resident physicians in this"
^DD(454.1,30,21,2,0)="organizational unit."
^DD(454.1,30,"DT")="2930415"
^DD(454.1,31,0)="TRAINEE/STIPEND/RES MD FTE^NJ7,2^^2;10^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,31,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,31,21,0)="^^2^2^2930420^^"
^DD(454.1,31,21,1,0)="The number of trainee, stipend and resident physician FTE in this"
^DD(454.1,31,21,2,0)="organizational unit."
^DD(454.1,31,"DT")="2930415"
^DD(454.1,32,0)="SUMMER AID/SIS MD COUNT^NJ4,0^^2;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,32,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,32,21,0)="^^2^2^2930420^"
^DD(454.1,32,21,1,0)="The number of summer aid and stay-in-school physicians in this"
^DD(454.1,32,21,2,0)="organizational unit."
^DD(454.1,32,"DT")="2930415"
^DD(454.1,33,0)="TOTAL MD COUNT^NJ4,0^^2;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,33,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,33,21,0)="^^1^1^2930420^"
^DD(454.1,33,21,1,0)="The total number of physicians in this organizational unit."
^DD(454.1,33,"DT")="2930415"
^DD(454.1,34,0)="TOTAL MD FTE^NJ7,2^^2;13^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,34,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,34,21,0)="^^1^1^2930420^"
^DD(454.1,34,21,1,0)="The total number of physician FTE in this organizational unit."
^DD(454.1,34,"DT")="2930415"
^DD(454.1,35,0)="MD VARIANCE^NJ7,2^^2;14^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,35,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,35,21,0)="^^1^1^2930420^"
^DD(454.1,35,21,1,0)="The difference between the FTE MD ceiling and the total MD FTE."
^DD(454.1,35,"DT")="2930415"
^DD(454.1,36,0)="FULL-TIME PERMANENT RN COUNT^NJ4,0^^3;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,36,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,36,21,0)="^^1^1^2930420^"
^DD(454.1,36,21,1,0)="The number of full-time permanent nurses in this organizational unit."
^DD(454.1,36,"DT")="2930415"
^DD(454.1,37,0)="FULL-TIME TEMPORARY RN COUNT^NJ4,0^^3;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,37,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,37,21,0)="^^1^1^2930420^"
^DD(454.1,37,21,1,0)="The number of full-time temporary nurses in this organizational unit."
^DD(454.1,37,"DT")="2930415"
^DD(454.1,38,0)="PART-TIME PERMANENT RN COUNT^NJ4,0^^3;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,38,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,38,21,0)="^^1^1^2930420^"
^DD(454.1,38,21,1,0)="The number of part-time permanent nurses in this organizational unit."
^DD(454.1,38,"DT")="2930415"
^DD(454.1,39,0)="PART-TIME PERMANENT RN FTE^NJ7,2^^3;4^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,39,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,39,21,0)="^^1^1^2930420^"
^DD(454.1,39,21,1,0)="The number of part-time permanent nurse FTE in this organizational unit."
^DD(454.1,39,"DT")="2930415"
^DD(454.1,40,0)="PART-TIME TEMPORARY RN COUNT^NJ4,0^^3;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,40,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,40,21,0)="^^1^1^2930420^"
^DD(454.1,40,21,1,0)="The number of part-time temporary nurses in this organizational unit."
^DD(454.1,40,"DT")="2930415"
^DD(454.1,41,0)="PART-TIME TEMPORARY RN FTE^NJ7,2^^3;6^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,41,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,41,21,0)="^^1^1^2930420^"
^DD(454.1,41,21,1,0)="The number of part-time temporary nurse FTE in this organizational unit."
^DD(454.1,41,"DT")="2930415"
^DD(454.1,42,0)="INTERMITTENT RN COUNT^NJ4,0^^3;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,42,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,42,21,0)="^^1^1^2930420^"
^DD(454.1,42,21,1,0)="The number of intermittent nurses in this organizational unit."
^DD(454.1,42,"DT")="2930415"
^DD(454.1,43,0)="INTERMITTENT RN FTE^NJ7,2^^3;8^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,43,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,43,21,0)="^^1^1^2930420^"
^DD(454.1,43,21,1,0)="The number of intermittent nurse FTE in this organizational unit."
^DD(454.1,43,"DT")="2930415"
^DD(454.1,44,0)="TRAINEE/STIPEND/RES RN COUNT^NJ4,0^^3;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,44,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,44,21,0)="^^2^2^2930420^"
^DD(454.1,44,21,1,0)="The number of trainee, stipend and resident nurses in this organizational"
^DD(454.1,44,21,2,0)="unit."
^DD(454.1,44,"DT")="2930415"
^DD(454.1,45,0)="TRAINEE/STIPEND/RES RN FTE^NJ7,2^^3;10^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,45,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,45,21,0)="^^2^2^2930420^"
^DD(454.1,45,21,1,0)="The number of trainee, stipend and resident nurse FTE in this organizational"
^DD(454.1,45,21,2,0)="unit."
^DD(454.1,45,"DT")="2930415"
^DD(454.1,46,0)="SUMMER AID/SIS RN COUNT^NJ4,0^^3;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,46,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,46,21,0)="^^2^2^2930420^"
^DD(454.1,46,21,1,0)="The number of summer aid and stay-in-school nurses in this organizational"
^DD(454.1,46,21,2,0)="unit."
^DD(454.1,46,"DT")="2930415"
^DD(454.1,47,0)="TOTAL RN COUNT^NJ4,0^^3;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,47,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,47,21,0)="^^1^1^2930420^"
^DD(454.1,47,21,1,0)="The total number of nurses in this organizational unit."
^DD(454.1,47,"DT")="2930415"
^DD(454.1,48,0)="TOTAL RN FTE^NJ7,2^^3;13^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,48,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,48,21,0)="^^1^1^2930420^"
^DD(454.1,48,21,1,0)="The total number of nurse FTE in this organizational unit."
^DD(454.1,48,"DT")="2930415"
^DD(454.1,49,0)="RN VARIANCE^NJ7,2^^3;14^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,49,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,49,21,0)="^^1^1^2930420^"
^DD(454.1,49,21,1,0)="The difference between the nurse FTE ceiling and the total nurse FTE."
^DD(454.1,49,"DT")="2930415"
^DD(454.1,50,0)="FULL-TIME PERMANENT LPN COUNT^NJ4,0^^4;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,50,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,50,21,0)="^^2^2^2930420^"
^DD(454.1,50,21,1,0)="The number of full-time permanent practical nurses in this organizational"
^DD(454.1,50,21,2,0)="unit."
^DD(454.1,50,"DT")="2930416"
^DD(454.1,51,0)="FULL-TIME TEMPORARY LPN COUNT^NJ4,0^^4;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,51,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,51,21,0)="^^2^2^2930420^^"
^DD(454.1,51,21,1,0)="The number of full-time temporary practical nurses in this organizational"
^DD(454.1,51,21,2,0)="unit."
^DD(454.1,51,"DT")="2930416"
^DD(454.1,52,0)="PART-TIME PERMANENT LPN COUNT^NJ4,0^^4;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,52,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,52,21,0)="^^2^2^2930420^"
^DD(454.1,52,21,1,0)="The number of part-time permanent practical nurses in this organizational"
^DD(454.1,52,21,2,0)="unit."
^DD(454.1,52,"DT")="2930416"
^DD(454.1,53,0)="PART-TIME PERMANENT LPN FTE^NJ7,2^^4;4^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,53,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,53,21,0)="^^2^2^2930420^"
^DD(454.1,53,21,1,0)="The number of part-time permanent practical nurse FTE in this organizational"
^DD(454.1,53,21,2,0)="unit."
^DD(454.1,53,"DT")="2930416"
^DD(454.1,54,0)="PART-TIME TEMPORARY LPN COUNT^NJ4,0^^4;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,54,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,54,21,0)="1^^2^2^2930420^"
^DD(454.1,54,21,1,0)="The number of part-time temporary practical nurses in this organizational"
^DD(454.1,54,21,2,0)="unit."
^DD(454.1,54,"DT")="2930416"
^DD(454.1,55,0)="PART-TIME TEMPORARY LPN FTE^NJ7,2^^4;6^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,55,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,55,21,0)="^^2^2^2930420^"
^DD(454.1,55,21,1,0)="The number of part-time temporary practical nurse FTE in this organizational"
^DD(454.1,55,21,2,0)="unit."
^DD(454.1,55,"DT")="2930416"
^DD(454.1,56,0)="INTERMITTENT LPN COUNT^NJ4,0^^4;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,56,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,56,21,0)="^^1^1^2930420^"
^DD(454.1,56,21,1,0)="The number of intermittent practical nurses in this organizational unit."
^DD(454.1,56,"DT")="2930416"
^DD(454.1,57,0)="INTERMITTENT LPN FTE^NJ7,2^^4;8^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,57,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,57,21,0)="^^1^1^2930420^"
^DD(454.1,57,21,1,0)="The number of intermittent practical nurse FTE in this organizational unit."
^DD(454.1,57,"DT")="2930416"
^DD(454.1,58,0)="TRAINEE/STIPEND/RES LPN COUNT^NJ4,0^^4;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,58,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,58,21,0)="^^2^2^2930420^"
^DD(454.1,58,21,1,0)="The number of trainee, stipend and resident practical nurses in this"
^DD(454.1,58,21,2,0)="organizational unit."
^DD(454.1,58,"DT")="2930416"
^DD(454.1,59,0)="TRAINEE/STIPEND/RES LPN FTE^NJ7,2^^4;10^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,59,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,59,21,0)="^^2^2^2930420^"
^DD(454.1,59,21,1,0)="The number of trainee, stipend and resident practical nurses in this"
^DD(454.1,59,21,2,0)="organizational unit."
^DD(454.1,59,"DT")="2930416"
^DD(454.1,60,0)="SUMMER AID/SIS LPN COUNT^NJ4,0^^4;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,60,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,60,21,0)="^^2^2^2930420^"
^DD(454.1,60,21,1,0)="The number of summer aid and stay-in-school practical nurses in this"
^DD(454.1,60,21,2,0)="organizational unit."
^DD(454.1,60,"DT")="2930416"
^DD(454.1,61,0)="TOTAL LPN COUNT^NJ4,0^^4;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,61,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,61,21,0)="^^1^1^2930420^"
^DD(454.1,61,21,1,0)="The total number of practical nurses in this organizational unit."
^DD(454.1,61,"DT")="2930416"
^DD(454.1,62,0)="TOTAL LPN FTE^NJ7,2^^4;13^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,62,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,62,21,0)="^^1^1^2930420^"
^DD(454.1,62,21,1,0)="The total number of practical nurse FTE in this organizational unit."
^DD(454.1,62,"DT")="2930416"
^DD(454.1,63,0)="LPN VARIANCE^NJ7,2^^4;14^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,63,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,63,21,0)="^^2^2^2930420^"
^DD(454.1,63,21,1,0)="The difference between the practical nurse FTE ceiling and the total"
^DD(454.1,63,21,2,0)="practical nurse FTE."
^DD(454.1,63,"DT")="2930416"
^DD(454.1,64,0)="FULL-TIME PERMANENT NA COUNT^NJ4,0^^5;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,64,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,64,21,0)="^^2^2^2930420^"
^DD(454.1,64,21,1,0)="The number of full-time permanent nursing assistants in this organizational"
^DD(454.1,64,21,2,0)="unit."
^DD(454.1,64,"DT")="2930416"
^DD(454.1,65,0)="FULL-TIME TEMPORARY NA COUNT^NJ4,0^^5;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,65,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,65,21,0)="^^2^2^2930420^"
^DD(454.1,65,21,1,0)="The number of full-time temporary nursing assistants in this organizational"
^DD(454.1,65,21,2,0)="unit."
^DD(454.1,65,"DT")="2930416"
^DD(454.1,66,0)="PART-TIME PERMANENT NA COUNT^NJ4,0^^5;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,66,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,66,21,0)="^^2^2^2930420^"
^DD(454.1,66,21,1,0)="The number of part-time permanent nursing assistants in this organizational"
^DD(454.1,66,21,2,0)="unit."
^DD(454.1,66,"DT")="2930416"
^DD(454.1,67,0)="PART-TIME PERMANENT NA FTE^NJ7,2^^5;4^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,67,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,67,21,0)="^^2^2^2930420^"
^DD(454.1,67,21,1,0)="The number of part-time permanent nursing assistant FTE in this"
^DD(454.1,67,21,2,0)="organizational unit."
^DD(454.1,67,"DT")="2930416"
^DD(454.1,68,0)="PART-TIME TEMPORARY NA COUNT^NJ4,0^^5;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,68,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,68,21,0)="^^2^2^2930420^"
^DD(454.1,68,21,1,0)="The number of part-time temporary nursing assistants in this organizational"
^DD(454.1,68,21,2,0)="unit."
^DD(454.1,68,"DT")="2930416"
^DD(454.1,69,0)="PART-TIME TEMPORARY NA FTE^NJ7,2^^5;6^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,69,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,69,21,0)="^^2^2^2930420^"
^DD(454.1,69,21,1,0)="The number of part-time temporary nursing assistant FTE in this"
^DD(454.1,69,21,2,0)="organizational unit."
^DD(454.1,69,"DT")="2930416"
^DD(454.1,70,0)="INTERMITTENT NA COUNT^NJ4,0^^5;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,70,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,70,21,0)="^^1^1^2930420^"
^DD(454.1,70,21,1,0)="The number of intermittent nursing assistants in this organizational unit."
^DD(454.1,70,"DT")="2930416"
^DD(454.1,71,0)="INTERMITTENT NA FTE^NJ7,2^^5;8^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,71,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,71,21,0)="^^2^2^2930420^"
^DD(454.1,71,21,1,0)="The number of intermittent nursing assistant FTE in this organizational"
^DD(454.1,71,21,2,0)="unit."
^DD(454.1,71,"DT")="2930416"
^DD(454.1,72,0)="TRAINEE/STIPEND/RES NA COUNT^NJ4,0^^5;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,72,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,72,21,0)="^^2^2^2930420^"
^DD(454.1,72,21,1,0)="The number of trainee, stipend and resident nursing assistants in this"
^DD(454.1,72,21,2,0)="organizational unit."
^DD(454.1,72,"DT")="2930416"
^DD(454.1,73,0)="TRAINEE/STIPEND/RES NA FTE^NJ7,2^^5;10^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,73,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,73,21,0)="^^2^2^2930420^^"
^DD(454.1,73,21,1,0)="The number of trainee, stipend and resident nursing assistant FTE in this"
^DD(454.1,73,21,2,0)="organizational unit."
^DD(454.1,73,"DT")="2930416"
^DD(454.1,74,0)="SUMMER AID/SIS NA COUNT^NJ4,0^^5;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,74,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,74,21,0)="^^2^2^2941202^^"
^DD(454.1,74,21,1,0)="The number of summer aid and stay-in-school nursing assistants in this"
^DD(454.1,74,21,2,0)="organizational unit."
^DD(454.1,74,"DT")="2930416"
^DD(454.1,75,0)="TOTAL NA COUNT^NJ4,0^^5;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,75,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,75,21,0)="^^1^1^2930420^"
^DD(454.1,75,21,1,0)="The total number of nursing assistants in this organizational unit."
^DD(454.1,75,"DT")="2930416"
^DD(454.1,76,0)="TOTAL NA FTE^NJ7,2^^5;13^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,76,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,76,21,0)="^^1^1^2930420^"
^DD(454.1,76,21,1,0)="The total number of nursing assistant FTE in this organizational unit."
^DD(454.1,76,"DT")="2930416"
^DD(454.1,77,0)="NA VARIANCE^NJ7,2^^5;14^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(454.1,77,3)="Type a Number between 0 and 9999.99, 2 Decimal Digits"
^DD(454.1,77,21,0)="^^2^2^2930420^"
^DD(454.1,77,21,1,0)="The difference between the nursing assistant FTE ceiling and the total"
^DD(454.1,77,21,2,0)="nursing assistant FTE."
^DD(454.1,77,"DT")="2930416"
^DD(454.1,78,0)="SALARY TOTAL YTD^NJ9,2^^6;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(454.1,78,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(454.1,78,21,0)="^^1^1^2930420^"
^DD(454.1,78,21,1,0)="The total year-to-date salary expenditure for this organizational unit."
^DD(454.1,78,"DT")="2930416"
^DD(454.1,79,0)="SALARY TOTAL PROJECTED^NJ9,2^^6;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(454.1,79,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(454.1,79,21,0)="^^1^1^2930420^"
^DD(454.1,79,21,1,0)="The total projected salary expenditure for this organizational unit."
^DD(454.1,79,"DT")="2930416"
^DD(454.1,80,0)="LWOP COUNT^NJ4,0^^1;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,80,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,80,21,0)="^^1^1^2951129^^"
^DD(454.1,80,21,1,0)="The number of employees on extended LWOP for this organizational unit."
^DD(454.1,80,"DT")="2930617"
^DD(454.1,81,0)="LWOP MD COUNT^NJ4,0^^2;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,81,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,81,21,0)="^^1^1^2951129^^^"
^DD(454.1,81,21,1,0)="The number of physicians on extended LWOP for this organizational unit."
^DD(454.1,81,"DT")="2930617"
^DD(454.1,82,0)="FEE COUNT^NJ4,0^^1;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,82,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,82,21,0)="^^1^1^2951129^^"
^DD(454.1,82,21,1,0)="The number of fee basis employees for this organizational unit."
^DD(454.1,82,"DT")="2951127"
^DD(454.1,83,0)="FEE MD COUNT^NJ4,0^^2;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,83,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,83,21,0)="^^1^1^2951129^^"
^DD(454.1,83,21,1,0)="The number of fee basis physicians for this organizational unit."
^DD(454.1,83,"DT")="2951127"
^DD(454.1,84,0)="LWOP RN COUNT^NJ4,0^^3;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,84,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,84,21,0)="^^1^1^2951129^^"
^DD(454.1,84,21,1,0)="The number of registered nurses on extended LWOP for this organizational unit."
^DD(454.1,84,"DT")="2951128"
^DD(454.1,85,0)="FEE RN COUNT^NJ4,0^^3;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,85,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,85,21,0)="^^1^1^2951129^"
^DD(454.1,85,21,1,0)="The number of fee basis RNs for this organizational unit."
^DD(454.1,85,"DT")="2951128"
^DD(454.1,86,0)="LWOP LPN COUNT^NJ4,0^^4;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,86,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,86,21,0)="^^1^1^2951129^"
^DD(454.1,86,21,1,0)="The number of LPNs on extended LWOP for this organizational unit."
^DD(454.1,86,"DT")="2951128"
^DD(454.1,87,0)="FEE LPN COUNT^NJ4,0^^4;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,87,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,87,21,0)="^^1^1^2951129^"
^DD(454.1,87,21,1,0)="The number of fee basis LPNs for this organizational unit."
^DD(454.1,87,"DT")="2951128"
^DD(454.1,88,0)="LWOP NA COUNT^NJ4,0^^5;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,88,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,88,21,0)="^^1^1^2951129^"
^DD(454.1,88,21,1,0)="The number of nursing assistants on extended LWOP for this organizational unit."
^DD(454.1,88,"DT")="2951128"
^DD(454.1,89,0)="FEE NA COUNT^NJ4,0^^5;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(454.1,89,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(454.1,89,21,0)="^^1^1^2951129^"
^DD(454.1,89,21,1,0)="The number of fee basis nursing assistants for this organizational unit."
^DD(454.1,89,"DT")="2951128"
^DD(454.1,"B","COMPILATION DATE",2)=""
^DD(454.1,"B","FEE COUNT",82)=""
^DD(454.1,"B","FEE LPN COUNT",87)=""
^DD(454.1,"B","FEE MD COUNT",83)=""
^DD(454.1,"B","FEE NA COUNT",89)=""
^DD(454.1,"B","FEE RN COUNT",85)=""
^DD(454.1,"B","FTE CEILING",3)=""
^DD(454.1,"B","FTE LPN CEILING",6)=""
^DD(454.1,"B","FTE MD CEILING",4)=""
^DD(454.1,"B","FTE NA CEILING",7)=""
^DD(454.1,"B","FTE RN CEILING",5)=""
^DD(454.1,"B","FULL-TIME PERMANENT COUNT",8)=""
^DD(454.1,"B","FULL-TIME PERMANENT LPN COUNT",50)=""
^DD(454.1,"B","FULL-TIME PERMANENT MD COUNT",22)=""
^DD(454.1,"B","FULL-TIME PERMANENT NA COUNT",64)=""
^DD(454.1,"B","FULL-TIME PERMANENT RN COUNT",36)=""
^DD(454.1,"B","FULL-TIME TEMPORARY COUNT",9)=""
^DD(454.1,"B","FULL-TIME TEMPORARY LPN COUNT",51)=""
^DD(454.1,"B","FULL-TIME TEMPORARY MD COUNT",23)=""
^DD(454.1,"B","FULL-TIME TEMPORARY NA COUNT",65)=""
^DD(454.1,"B","FULL-TIME TEMPORARY RN COUNT",37)=""
^DD(454.1,"B","INTERMITTENT COUNT",14)=""
^DD(454.1,"B","INTERMITTENT FTE",15)=""
^DD(454.1,"B","INTERMITTENT LPN COUNT",56)=""
^DD(454.1,"B","INTERMITTENT LPN FTE",57)=""
^DD(454.1,"B","INTERMITTENT MD COUNT",28)=""
^DD(454.1,"B","INTERMITTENT MD FTE",29)=""
^DD(454.1,"B","INTERMITTENT NA COUNT",70)=""
^DD(454.1,"B","INTERMITTENT NA FTE",71)=""
^DD(454.1,"B","INTERMITTENT RN COUNT",42)=""
^DD(454.1,"B","INTERMITTENT RN FTE",43)=""
^DD(454.1,"B","LPN VARIANCE",63)=""
^DD(454.1,"B","LWOP COUNT",80)=""
^DD(454.1,"B","LWOP LPN COUNT",86)=""
^DD(454.1,"B","LWOP MD COUNT",81)=""
^DD(454.1,"B","LWOP NA COUNT",88)=""
^DD(454.1,"B","LWOP RN COUNT",84)=""
^DD(454.1,"B","MD VARIANCE",35)=""
^DD(454.1,"B","MED CARE APPROPRIATED (Y/N?)",1)=""
^DD(454.1,"B","NA VARIANCE",77)=""
^DD(454.1,"B","NAME",.01)=""
^DD(454.1,"B","PART-TIME PERMANENT COUNT",10)=""
^DD(454.1,"B","PART-TIME PERMANENT FTE",11)=""
^DD(454.1,"B","PART-TIME PERMANENT LPN COUNT",52)=""
^DD(454.1,"B","PART-TIME PERMANENT LPN FTE",53)=""
^DD(454.1,"B","PART-TIME PERMANENT MD COUNT",24)=""
^DD(454.1,"B","PART-TIME PERMANENT MD FTE",25)=""
^DD(454.1,"B","PART-TIME PERMANENT NA COUNT",66)=""
^DD(454.1,"B","PART-TIME PERMANENT NA FTE",67)=""
^DD(454.1,"B","PART-TIME PERMANENT RN COUNT",38)=""
^DD(454.1,"B","PART-TIME PERMANENT RN FTE",39)=""
^DD(454.1,"B","PART-TIME TEMPORARY COUNT",12)=""
^DD(454.1,"B","PART-TIME TEMPORARY FTE",13)=""
^DD(454.1,"B","PART-TIME TEMPORARY LPN COUNT",54)=""
^DD(454.1,"B","PART-TIME TEMPORARY LPN FTE",55)=""
^DD(454.1,"B","PART-TIME TEMPORARY MD COUNT",26)=""
^DD(454.1,"B","PART-TIME TEMPORARY MD FTE",27)=""
^DD(454.1,"B","PART-TIME TEMPORARY NA COUNT",68)=""
^DD(454.1,"B","PART-TIME TEMPORARY NA FTE",69)=""
^DD(454.1,"B","PART-TIME TEMPORARY RN COUNT",40)=""
^DD(454.1,"B","PART-TIME TEMPORARY RN FTE",41)=""
^DD(454.1,"B","RN VARIANCE",49)=""
^DD(454.1,"B","SALARY TOTAL PROJECTED",79)=""
^DD(454.1,"B","SALARY TOTAL YTD",78)=""
^DD(454.1,"B","SUMMER AID/SIS COUNT",18)=""
^DD(454.1,"B","SUMMER AID/SIS LPN COUNT",60)=""
^DD(454.1,"B","SUMMER AID/SIS MD COUNT",32)=""
^DD(454.1,"B","SUMMER AID/SIS NA COUNT",74)=""
^DD(454.1,"B","SUMMER AID/SIS RN COUNT",46)=""
^DD(454.1,"B","TOTAL COUNT",19)=""
^DD(454.1,"B","TOTAL FTE",20)=""
^DD(454.1,"B","TOTAL LPN COUNT",61)=""
^DD(454.1,"B","TOTAL LPN FTE",62)=""
^DD(454.1,"B","TOTAL MD COUNT",33)=""
^DD(454.1,"B","TOTAL MD FTE",34)=""
^DD(454.1,"B","TOTAL NA COUNT",75)=""
^DD(454.1,"B","TOTAL NA FTE",76)=""
^DD(454.1,"B","TOTAL RN COUNT",47)=""
^DD(454.1,"B","TOTAL RN FTE",48)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES COUNT",16)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES FTE",17)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES LPN COUNT",58)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES LPN FTE",59)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES MD COUNT",30)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES MD FTE",31)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES NA COUNT",72)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES NA FTE",73)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES RN COUNT",44)=""
^DD(454.1,"B","TRAINEE/STIPEND/RES RN FTE",45)=""
^DD(454.1,"B","VARIANCE",21)=""
^DD(454.1,"GL",0,1,.01)=""
^DD(454.1,"GL",0,2,1)=""
^DD(454.1,"GL",0,3,2)=""
^DD(454.1,"GL",0,4,3)=""
^DD(454.1,"GL",0,5,4)=""
^DD(454.1,"GL",0,6,5)=""
^DD(454.1,"GL",0,7,6)=""
^DD(454.1,"GL",0,8,7)=""
^DD(454.1,"GL",1,1,8)=""
^DD(454.1,"GL",1,2,9)=""
^DD(454.1,"GL",1,3,10)=""
^DD(454.1,"GL",1,4,11)=""
^DD(454.1,"GL",1,5,12)=""
^DD(454.1,"GL",1,6,13)=""
^DD(454.1,"GL",1,7,14)=""
^DD(454.1,"GL",1,8,15)=""
^DD(454.1,"GL",1,9,16)=""
^DD(454.1,"GL",1,10,17)=""
^DD(454.1,"GL",1,11,18)=""
^DD(454.1,"GL",1,12,19)=""
^DD(454.1,"GL",1,13,20)=""
^DD(454.1,"GL",1,14,21)=""
^DD(454.1,"GL",1,15,80)=""
^DD(454.1,"GL",1,16,82)=""
^DD(454.1,"GL",2,1,22)=""
^DD(454.1,"GL",2,2,23)=""
^DD(454.1,"GL",2,3,24)=""
^DD(454.1,"GL",2,4,25)=""
^DD(454.1,"GL",2,5,26)=""
^DD(454.1,"GL",2,6,27)=""
^DD(454.1,"GL",2,7,28)=""
^DD(454.1,"GL",2,8,29)=""
^DD(454.1,"GL",2,9,30)=""
^DD(454.1,"GL",2,10,31)=""
^DD(454.1,"GL",2,11,32)=""
^DD(454.1,"GL",2,12,33)=""
^DD(454.1,"GL",2,13,34)=""
^DD(454.1,"GL",2,14,35)=""
^DD(454.1,"GL",2,15,81)=""
^DD(454.1,"GL",2,16,83)=""
^DD(454.1,"GL",3,1,36)=""
^DD(454.1,"GL",3,2,37)=""
^DD(454.1,"GL",3,3,38)=""
^DD(454.1,"GL",3,4,39)=""
^DD(454.1,"GL",3,5,40)=""
^DD(454.1,"GL",3,6,41)=""
^DD(454.1,"GL",3,7,42)=""
^DD(454.1,"GL",3,8,43)=""
^DD(454.1,"GL",3,9,44)=""
^DD(454.1,"GL",3,10,45)=""
^DD(454.1,"GL",3,11,46)=""
^DD(454.1,"GL",3,12,47)=""
^DD(454.1,"GL",3,13,48)=""
^DD(454.1,"GL",3,14,49)=""
^DD(454.1,"GL",3,15,84)=""
^DD(454.1,"GL",3,16,85)=""
^DD(454.1,"GL",4,1,50)=""
^DD(454.1,"GL",4,2,51)=""
^DD(454.1,"GL",4,3,52)=""
^DD(454.1,"GL",4,4,53)=""
^DD(454.1,"GL",4,5,54)=""
^DD(454.1,"GL",4,6,55)=""
^DD(454.1,"GL",4,7,56)=""
^DD(454.1,"GL",4,8,57)=""
^DD(454.1,"GL",4,9,58)=""
^DD(454.1,"GL",4,10,59)=""
^DD(454.1,"GL",4,11,60)=""
^DD(454.1,"GL",4,12,61)=""
^DD(454.1,"GL",4,13,62)=""
^DD(454.1,"GL",4,14,63)=""
^DD(454.1,"GL",4,15,86)=""
^DD(454.1,"GL",4,16,87)=""
^DD(454.1,"GL",5,1,64)=""
^DD(454.1,"GL",5,2,65)=""
^DD(454.1,"GL",5,3,66)=""
^DD(454.1,"GL",5,4,67)=""
^DD(454.1,"GL",5,5,68)=""
^DD(454.1,"GL",5,6,69)=""
^DD(454.1,"GL",5,7,70)=""
^DD(454.1,"GL",5,8,71)=""
^DD(454.1,"GL",5,9,72)=""
^DD(454.1,"GL",5,10,73)=""
^DD(454.1,"GL",5,11,74)=""
^DD(454.1,"GL",5,12,75)=""
^DD(454.1,"GL",5,13,76)=""
^DD(454.1,"GL",5,14,77)=""
^DD(454.1,"GL",5,15,88)=""
^DD(454.1,"GL",5,16,89)=""
^DD(454.1,"GL",6,1,78)=""
^DD(454.1,"GL",6,2,79)=""
^DD(454.1,"IX",.01)=""
^DD(454.1,"RQ",.01)=""
^DD(454.11,0)="FEGLI SUB-FIELD^^1^2"
^DD(454.11,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.11,0,"IX","B",454.11,.01)=""
^DD(454.11,0,"NM","FEGLI")=""
^DD(454.11,0,"UP")="454"
^DD(454.11,.01,0)="CODE^RFX^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2NUP) X"
^DD(454.11,.01,1,0)="^.1"
^DD(454.11,.01,1,1,0)="454.11^B"
^DD(454.11,.01,1,1,1)="S ^PRSP(454,1,""FEG"",""B"",$E(X,1,30),DA)="""""
^DD(454.11,.01,1,1,2)="K ^PRSP(454,1,""FEG"",""B"",$E(X,1,30),DA)"
^DD(454.11,.01,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(454.11,.01,21,0)="^^1^1^2990416^^^^"
^DD(454.11,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.11,.01,"DT")="2901212"
^DD(454.11,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>90!($L(X)<3) X"
^DD(454.11,1,3)="ANSWER MUST BE 3-90 CHARACTERS IN LENGTH"
^DD(454.11,1,21,0)="^^1^1^2900521^"
^DD(454.11,1,21,1,0)="This is the text description for the code."
^DD(454.11,"B","CODE",.01)=""
^DD(454.11,"B","DESCRIPTION",1)=""
^DD(454.11,"GL",0,1,.01)=""
^DD(454.11,"GL",0,2,1)=""
^DD(454.11,"IX",.01)=""
^DD(454.11,"RQ",.01)=""
^DD(454.11,"RQ",1)=""
^DD(454.13,0)="ACADEMIC TITLE SUB-FIELD^^1^2"
^DD(454.13,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.13,0,"IX","B",454.13,.01)=""
^DD(454.13,0,"NM","ACADEMIC TITLE")=""
^DD(454.13,0,"UP")="454"
^DD(454.13,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.13,.01,1,0)="^.1"
^DD(454.13,.01,1,1,0)="454.13^B"
^DD(454.13,.01,1,1,1)="S ^PRSP(454,1,""ACA"",""B"",$E(X,1,30),DA)="""""
^DD(454.13,.01,1,1,2)="K ^PRSP(454,1,""ACA"",""B"",$E(X,1,30),DA)"
^DD(454.13,.01,3)="Answer must be 1 character in length."
^DD(454.13,.01,21,0)="^^1^1^2900522^^"
^DD(454.13,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.13,.01,"DT")="2901212"
^DD(454.13,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(454.13,1,1,0)="^.1^^0"
^DD(454.13,1,3)="Answer must be 1-30 characters in length."
^DD(454.13,1,21,0)="^^1^1^2900521^"
^DD(454.13,1,21,1,0)="This is the text description for the code."
^DD(454.13,1,"DT")="2930406"
^DD(454.13,"B","CODE",.01)=""
^DD(454.13,"B","DESCRIPTION",1)=""
^DD(454.13,"GL",0,1,.01)=""
^DD(454.13,"GL",0,2,1)=""
^DD(454.13,"IX",.01)=""
^DD(454.13,"RQ",.01)=""
^DD(454.14,0)="PAY RATE DETERMINANT SUB-FIELD^^1^2"
^DD(454.14,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.14,0,"IX","B",454.14,.01)=""
^DD(454.14,0,"NM","PAY RATE DETERMINANT")=""
^DD(454.14,0,"UP")="454"
^DD(454.14,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.14,.01,1,0)="^.1"
^DD(454.14,.01,1,1,0)="454.14^B"
^DD(454.14,.01,1,1,1)="S ^PRSP(454,1,""PRD"",""B"",$E(X,1,30),DA)="""""
^DD(454.14,.01,1,1,2)="K ^PRSP(454,1,""PRD"",""B"",$E(X,1,30),DA)"
^DD(454.14,.01,3)="Answer must be 1 character in length."
^DD(454.14,.01,21,0)="^^1^1^2900522^^"
^DD(454.14,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.14,.01,"DT")="2901212"
^DD(454.14,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>55!($L(X)<1) X"
^DD(454.14,1,3)="Answer must be 1-55 characters in length."
^DD(454.14,1,21,0)="^^1^1^2900521^"
^DD(454.14,1,21,1,0)="This is the text description for the code."
^DD(454.14,"B","CODE",.01)=""
^DD(454.14,"B","DESCRIPTION",1)=""
^DD(454.14,"GL",0,1,.01)=""
^DD(454.14,"GL",0,2,1)=""
^DD(454.14,"IX",.01)=""
^DD(454.14,"RQ",.01)=""
^DD(454.18,0)="COUNTRY SUB-FIELD^^1^2"
^DD(454.18,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.18,0,"IX","B",454.18,.01)=""
^DD(454.18,0,"IX","C",454.18,1)=""
^DD(454.18,0,"NM","COUNTRY")=""
^DD(454.18,0,"UP")="454"
^DD(454.18,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2U) X"
^DD(454.18,.01,1,0)="^.1"
^DD(454.18,.01,1,1,0)="454.18^B"
^DD(454.18,.01,1,1,1)="S ^PRSP(454,1,""CTY"",""B"",$E(X,1,30),DA)="""""
^DD(454.18,.01,1,1,2)="K ^PRSP(454,1,""CTY"",""B"",$E(X,1,30),DA)"
^DD(454.18,.01,3)="Answer must be 2 uppercase alphabetic characters in length."
^DD(454.18,.01,21,0)="^^1^1^2900523^^"
^DD(454.18,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.18,1,0)="COUNTRY^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3)!'(X?3.25AP) X"
^DD(454.18,1,1,0)="^.1^^0"
^DD(454.18,1,1,1,0)="454.18^C"
^DD(454.18,1,1,1,1)="S ^PRSP(454,DA(1),""CTY"",""C"",$E(X,1,30),DA)="""""
^DD(454.18,1,1,1,2)="K ^PRSP(454,DA(1),""CTY"",""C"",$E(X,1,30),DA)"
^DD(454.18,1,1,1,"DT")="2921021"
^DD(454.18,1,3)="Answer must be 3-25 characters in length."
^DD(454.18,1,21,0)="^^1^1^2900521^"
^DD(454.18,1,21,1,0)="This is the text description for the code."
^DD(454.18,1,"DT")="2930406"
^DD(454.18,"B","CODE",.01)=""
^DD(454.18,"B","COUNTRY",1)=""
^DD(454.18,"GL",0,1,.01)=""
^DD(454.18,"GL",0,2,1)=""
^DD(454.18,"IX",.01)=""
^DD(454.18,"IX",1)=""
^DD(454.18,"RQ",.01)=""
^DD(454.18,"RQ",1)=""
^DD(454.19,0)="SPECIAL PAY AGREEMENT SUB-FIELD^^1^2"
^DD(454.19,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.19,0,"IX","B",454.19,.01)=""
^DD(454.19,0,"NM","SPECIAL PAY AGREEMENT")=""
^DD(454.19,0,"UP")="454"
^DD(454.19,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.19,.01,1,0)="^.1"
^DD(454.19,.01,1,1,0)="454.19^B"
^DD(454.19,.01,1,1,1)="S ^PRSP(454,1,""SPQ"",""B"",$E(X,1,30),DA)="""""
^DD(454.19,.01,1,1,2)="K ^PRSP(454,1,""SPQ"",""B"",$E(X,1,30),DA)"
^DD(454.19,.01,3)="Answer must be 1 character in length."
^DD(454.19,.01,21,0)="^^1^1^2900522^"
^DD(454.19,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.19,.01,"DT")="2901212"
^DD(454.19,1,0)="QUALIFICATION^RF^^0;2^K:$L(X)>75!($L(X)<3)!'(X?3.70AP) X"
^DD(454.19,1,3)="Answer must be 3-75 characters in length."
^DD(454.19,1,21,0)="^^1^1^2900521^"
^DD(454.19,1,21,1,0)="This is the text description for the code."
^DD(454.19,"B","CODE",.01)=""
^DD(454.19,"B","QUALIFICATION",1)=""
^DD(454.19,"GL",0,1,.01)=""
^DD(454.19,"GL",0,2,1)=""
^DD(454.19,"IX",.01)=""
^DD(454.19,"RQ",.01)=""
^DD(454.19,"RQ",1)=""
^DD(454.2,0)="NO AGREEMENT REASON SUB-FIELD^^1^2"
^DD(454.2,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.2,0,"IX","B",454.2,.01)=""
^DD(454.2,0,"NM","NO AGREEMENT REASON")=""
^DD(454.2,0,"UP")="454"
^DD(454.2,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.2,.01,1,0)="^.1"
^DD(454.2,.01,1,1,0)="454.2^B"
^DD(454.2,.01,1,1,1)="S ^PRSP(454,1,""SPN"",""B"",$E(X,1,30),DA)="""""
^DD(454.2,.01,1,1,2)="K ^PRSP(454,1,""SPN"",""B"",$E(X,1,30),DA)"
^DD(454.2,.01,3)="Answer must be 1 character in length."
^DD(454.2,.01,21,0)="^^1^1^2900522^"
^DD(454.2,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.2,.01,"DT")="2901212"
^DD(454.2,1,0)="REASON^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(454.2,1,3)="Answer must be 1-70 characters in length."
^DD(454.2,1,21,0)="^^1^1^2900521^"
^DD(454.2,1,21,1,0)="This is the text description for the code."
^DD(454.2,"B","CODE",.01)=""
^DD(454.2,"B","REASON",1)=""
^DD(454.2,"GL",0,1,.01)=""
^DD(454.2,"GL",0,2,1)=""
^DD(454.2,"IX",.01)=""
^DD(454.2,"RQ",.01)=""
^DD(454.21,0)="PRIOR VA EXPERIENCE SUB-FIELD^^1^2"
^DD(454.21,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.21,0,"IX","B",454.21,.01)=""
^DD(454.21,0,"NM","PRIOR VA EXPERIENCE")=""
^DD(454.21,0,"UP")="454"
^DD(454.21,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.21,.01,1,0)="^.1"
^DD(454.21,.01,1,1,0)="454.21^B"
^DD(454.21,.01,1,1,1)="S ^PRSP(454,1,""PVA"",""B"",$E(X,1,30),DA)="""""
^DD(454.21,.01,1,1,2)="K ^PRSP(454,1,""PVA"",""B"",$E(X,1,30),DA)"
^DD(454.21,.01,3)="Answer must be 1 character in length."
^DD(454.21,.01,21,0)="^^1^1^2900523^^"
^DD(454.21,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.21,.01,"DT")="2901212"
^DD(454.21,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(454.21,1,3)="Answer must be 1-60 characters in length."
^DD(454.21,1,21,0)="^^1^1^2900521^"
^DD(454.21,1,21,1,0)="This is the text description for the code."
^DD(454.21,"B","CODE",.01)=""
^DD(454.21,"B","DESCRIPTION",1)=""
^DD(454.21,"GL",0,1,.01)=""
^DD(454.21,"GL",0,2,1)=""
^DD(454.21,"IX",.01)=""
^DD(454.21,"RQ",.01)=""
^DD(454.22,0)="POSITION PREFERENCE SUB-FIELD^^1^2"
^DD(454.22,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.22,0,"IX","B",454.22,.01)=""
^DD(454.22,0,"NM","POSITION PREFERENCE")=""
^DD(454.22,0,"UP")="454"
^DD(454.22,.01,0)="CODE^RFX^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2NUP) X"
^DD(454.22,.01,1,0)="^.1"
^DD(454.22,.01,1,1,0)="454.22^B"
^DD(454.22,.01,1,1,1)="S ^PRSP(454,1,""POP"",""B"",$E(X,1,30),DA)="""""
^DD(454.22,.01,1,1,2)="K ^PRSP(454,1,""POP"",""B"",$E(X,1,30),DA)"
^DD(454.22,.01,3)="Answer must be 2 characters in length."
^DD(454.22,.01,21,0)="^^1^1^2900522^"
^DD(454.22,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.22,.01,"DT")="2901212"
^DD(454.22,1,0)="POSITION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(454.22,1,3)="Answer must be 1-50 characters in length."
^DD(454.22,1,21,0)="^^1^1^2900521^"
^DD(454.22,1,21,1,0)="This is the text description for the code."
^DD(454.22,"B","CODE",.01)=""
^DD(454.22,"B","POSITION",1)=""
^DD(454.22,"GL",0,1,.01)=""
^DD(454.22,"GL",0,2,1)=""
^DD(454.22,"IX",.01)=""
^DD(454.22,"RQ",.01)=""
^DD(454.23,0)="GEOGRAPHICAL PREFERENCE SUB-FIELD^^1^2"
^DD(454.23,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.23,0,"IX","B",454.23,.01)=""
^DD(454.23,0,"NM","GEOGRAPHICAL PREFERENCE")=""
^DD(454.23,0,"UP")="454"
^DD(454.23,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.23,.01,1,0)="^.1"
^DD(454.23,.01,1,1,0)="454.23^B"
^DD(454.23,.01,1,1,1)="S ^PRSP(454,1,""GEP"",""B"",$E(X,1,30),DA)="""""
^DD(454.23,.01,1,1,2)="K ^PRSP(454,1,""GEP"",""B"",$E(X,1,30),DA)"
^DD(454.23,.01,3)="Answer must be 1 character in length."
^DD(454.23,.01,21,0)="^^1^1^2900522^"
^DD(454.23,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.23,.01,"DT")="2901212"
^DD(454.23,1,0)="GEOGRAPHICAL PREFERENCE^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(454.23,1,3)="Answer must be 1-40 characters in length."
^DD(454.23,1,21,0)="^^1^1^2900521^"
^DD(454.23,1,21,1,0)="This is the text description for the code."
^DD(454.23,"B","CODE",.01)=""
^DD(454.23,"B","GEOGRAPHICAL PREFERENCE",1)=""
^DD(454.23,"GL",0,1,.01)=""
^DD(454.23,"GL",0,2,1)=""
^DD(454.23,"IX",.01)=""
^DD(454.23,"RQ",.01)=""
^DD(454.24,0)="FOLLOWUP CODE SUB-FIELD^^2^3"
^DD(454.24,0,"DT")="2930928"
^DD(454.24,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.24,0,"IX","B",454.24,.01)=""
^DD(454.24,0,"IX","C",454.24,1)=""
^DD(454.24,0,"NM","FOLLOWUP CODE")=""
^DD(454.24,0,"UP")="454"
^DD(454.24,.01,0)="CODE^RFX^^0;1^K:$L(X)>2!($L(X)<2)!(X'?2NUP) X"
^DD(454.24,.01,1,0)="^.1"
^DD(454.24,.01,1,1,0)="454.24^B"
^DD(454.24,.01,1,1,1)="S ^PRSP(454,1,""PUC"",""B"",$E(X,1,30),DA)="""""
^DD(454.24,.01,1,1,2)="K ^PRSP(454,1,""PUC"",""B"",$E(X,1,30),DA)"
^DD(454.24,.01,3)="Answer must be 2 characters in length."
^DD(454.24,.01,4)=""
^DD(454.24,.01,21,0)="^^1^1^2900523^^^"
^DD(454.24,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.24,.01,"DT")="2901212"
^DD(454.24,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<5) X"
^DD(454.24,1,1,0)="^.1"
^DD(454.24,1,1,1,0)="454.24^C"
^DD(454.24,1,1,1,1)="S ^PRSP(454,DA(1),""PUC"",""C"",$E(X,1,30),DA)="""""
^DD(454.24,1,1,1,2)="K ^PRSP(454,DA(1),""PUC"",""C"",$E(X,1,30),DA)"
^DD(454.24,1,1,1,"DT")="2930923"
^DD(454.24,1,3)="Answer must be 5-80 characters in length."
^DD(454.24,1,21,0)="^^1^1^2900523^^"
^DD(454.24,1,21,1,0)="This is the text description for the code."
^DD(454.24,1,"DT")="2930923"
^DD(454.24,2,0)="DEFINITION^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(454.24,2,3)="Answer must be 1-30 characters in length."
^DD(454.24,2,21,0)="^^3^3^2931001^^^^"
^DD(454.24,2,21,1,0)="Enter a specific meaning to be assigned to this followup code.  This field"
^DD(454.24,2,21,2,0)="may be used to identify board certification specialties or define Temporary"
^DD(454.24,2,21,3,0)="Station Use Codes (30-39) or Permanent Station Use Codes (40-49)."
^DD(454.24,2,"DT")="2931001"
^DD(454.24,"B","CODE",.01)=""
^DD(454.24,"B","DEFINITION",2)=""
^DD(454.24,"B","DESCRIPTION",1)=""
^DD(454.24,"GL",0,1,.01)=""
^DD(454.24,"GL",0,2,1)=""
^DD(454.24,"GL",0,3,2)=""
^DD(454.24,"IX",.01)=""
^DD(454.24,"IX",1)=""
^DD(454.24,"RQ",.01)=""
^DD(454.24,"RQ",1)=""
^DD(454.26,0)="SEX SUB-FIELD^^1^2"
^DD(454.26,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.26,0,"IX","B",454.26,.01)=""
^DD(454.26,0,"NM","SEX")=""
^DD(454.26,0,"UP")="454"
^DD(454.26,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.26,.01,1,0)="^.1"
^DD(454.26,.01,1,1,0)="454.26^B"
^DD(454.26,.01,1,1,1)="S ^PRSP(454,1,""SEX"",""B"",$E(X,1,30),DA)="""""
^DD(454.26,.01,1,1,2)="K ^PRSP(454,1,""SEX"",""B"",$E(X,1,30),DA)"
^DD(454.26,.01,3)="Answer must be 1 character in length."
^DD(454.26,.01,21,0)="^^1^1^2900522^"
^DD(454.26,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.26,.01,"DT")="2901212"
^DD(454.26,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(454.26,1,1,0)="^.1^^0"
^DD(454.26,1,3)="Answer must be 1-10 characters in length."
^DD(454.26,1,21,0)="^^1^1^2920312^^"
^DD(454.26,1,21,1,0)="This is the text description for the code."
^DD(454.26,1,"DT")="2930406"
^DD(454.26,"B","CODE",.01)=""
^DD(454.26,"B","DESCRIPTION",1)=""
^DD(454.26,"GL",0,1,.01)=""
^DD(454.26,"GL",0,2,1)=""
^DD(454.26,"IX",.01)=""
^DD(454.26,"RQ",.01)=""
^DD(454.27,0)="CITIZENSHIP SUB-FIELD^^1^2"
^DD(454.27,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.27,0,"IX","B",454.27,.01)=""
^DD(454.27,0,"NM","CITIZENSHIP")=""
^DD(454.27,0,"UP")="454"
^DD(454.27,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.27,.01,1,0)="^.1"
^DD(454.27,.01,1,1,0)="454.27^B"
^DD(454.27,.01,1,1,1)="S ^PRSP(454,1,""CIT"",""B"",$E(X,1,30),DA)="""""
^DD(454.27,.01,1,1,2)="K ^PRSP(454,1,""CIT"",""B"",$E(X,1,30),DA)"
^DD(454.27,.01,3)="Answer must be 1 character in length."
^DD(454.27,.01,21,0)="^^1^1^2900522^"
^DD(454.27,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.27,.01,"DT")="2901212"
^DD(454.27,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>55!($L(X)<1) X"
^DD(454.27,1,1,0)="^.1^^0"
^DD(454.27,1,3)="Answer must be 1-55 characters in length."
^DD(454.27,1,21,0)="^^1^1^2900521^"
^DD(454.27,1,21,1,0)="This is the text description for the code."
^DD(454.27,1,"DT")="2930406"
^DD(454.27,"B","CODE",.01)=""
^DD(454.27,"B","DESCRIPTION",1)=""
^DD(454.27,"GL",0,1,.01)=""
^DD(454.27,"GL",0,2,1)=""
^DD(454.27,"IX",.01)=""
^DD(454.27,"RQ",.01)=""
^DD(454.31,0)="FUNCTIONAL CODE SUB-FIELD^^1^2"
^DD(454.31,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.31,0,"IX","B",454.31,.01)=""
^DD(454.31,0,"NM","FUNCTIONAL CODE")=""
^DD(454.31,0,"UP")="454"
^DD(454.31,.01,0)="CODE^RFX^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(454.31,.01,1,0)="^.1"
^DD(454.31,.01,1,1,0)="454.31^B"
^DD(454.31,.01,1,1,1)="S ^PRSP(454,1,""FUN"",""B"",$E(X,1,30),DA)="""""
^DD(454.31,.01,1,1,2)="K ^PRSP(454,1,""FUN"",""B"",$E(X,1,30),DA)"
^DD(454.31,.01,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(454.31,.01,21,0)="^^1^1^2910730^^"
^DD(454.31,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.31,.01,"DT")="2930108"
^DD(454.31,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(454.31,1,1,0)="^.1^^0"
^DD(454.31,1,3)="Answer must be 1-60 characters in length."
^DD(454.31,1,21,0)="^^1^1^2900521^"
^DD(454.31,1,21,1,0)="This is the text description for the code."
^DD(454.31,1,"DT")="2930406"
^DD(454.31,"B","CODE",.01)=""
^DD(454.31,"B","DESCRIPTION",1)=""
^DD(454.31,"GL",0,1,.01)=""
^DD(454.31,"GL",0,2,1)=""
^DD(454.31,"IX",.01)=""
^DD(454.31,"RQ",.01)=""
^DD(454.33,0)="FLSA CODE SUB-FIELD^^1^2"
^DD(454.33,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.33,0,"IX","B",454.33,.01)=""
^DD(454.33,0,"NM","FLSA CODE")=""
^DD(454.33,0,"UP")="454"
^DD(454.33,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.33,.01,1,0)="^.1"
^DD(454.33,.01,1,1,0)="454.33^B"
^DD(454.33,.01,1,1,1)="S ^PRSP(454,1,""FLS"",""B"",$E(X,1,30),DA)="""""
^DD(454.33,.01,1,1,2)="K ^PRSP(454,1,""FLS"",""B"",$E(X,1,30),DA)"
^DD(454.33,.01,3)="Answer must be 1 character in length."
^DD(454.33,.01,21,0)="^^1^1^2900522^"
^DD(454.33,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.33,.01,"DT")="2901212"
^DD(454.33,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(454.33,1,3)="Answer must be 1-30 characters in length."
^DD(454.33,1,21,0)="^^1^1^2900521^"
^DD(454.33,1,21,1,0)="This is the text description for the code."
^DD(454.33,"B","CODE",.01)=""
^DD(454.33,"B","DESCRIPTION",1)=""
^DD(454.33,"GL",0,1,.01)=""
^DD(454.33,"GL",0,2,1)=""
^DD(454.33,"IX",.01)=""
^DD(454.33,"RQ",.01)=""
^DD(454.34,0)="DUTY BASIS SUB-FIELD^^1^2"
^DD(454.34,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.34,0,"IX","B",454.34,.01)=""
^DD(454.34,0,"NM","DUTY BASIS")=""
^DD(454.34,0,"UP")="454"
^DD(454.34,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.34,.01,1,0)="^.1"
^DD(454.34,.01,1,1,0)="454.34^B"
^DD(454.34,.01,1,1,1)="S ^PRSP(454,1,""DB"",""B"",$E(X,1,30),DA)="""""
^DD(454.34,.01,1,1,2)="K ^PRSP(454,1,""DB"",""B"",$E(X,1,30),DA)"
^DD(454.34,.01,3)="Answer must be 1 character in length."
^DD(454.34,.01,21,0)="^^1^1^2900522^"
^DD(454.34,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.34,.01,"DT")="2901212"
^DD(454.34,1,0)="BASIS^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(454.34,1,1,0)="^.1^^0"
^DD(454.34,1,3)="Answer must be 1-20 characters in length."
^DD(454.34,1,21,0)="^^1^1^2900521^"
^DD(454.34,1,21,1,0)="This is the text description for the code."
^DD(454.34,1,"DT")="2930406"
^DD(454.34,"B","BASIS",1)=""
^DD(454.34,"B","CODE",.01)=""
^DD(454.34,"GL",0,1,.01)=""
^DD(454.34,"GL",0,2,1)=""
^DD(454.34,"IX",.01)=""
^DD(454.34,"RQ",.01)=""
^DD(454.35,0)="RETIREMENT SUB-FIELD^^1^2"
^DD(454.35,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.35,0,"IX","B",454.35,.01)=""
^DD(454.35,0,"NM","RETIREMENT")=""
^DD(454.35,0,"UP")="454"
^DD(454.35,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.35,.01,1,0)="^.1"
^DD(454.35,.01,1,1,0)="454.35^B"
^DD(454.35,.01,1,1,1)="S ^PRSP(454,1,""RET"",""B"",$E(X,1,30),DA)="""""
^DD(454.35,.01,1,1,2)="K ^PRSP(454,1,""RET"",""B"",$E(X,1,30),DA)"
^DD(454.35,.01,3)="Answer must be 1 character in length."
^DD(454.35,.01,21,0)="^^1^1^2900522^"
^DD(454.35,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.35,.01,"DT")="2901212"
^DD(454.35,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(454.35,1,3)="Answer must be 1-45 characters in length."
^DD(454.35,1,21,0)="^^1^1^2930115^^"
^DD(454.35,1,21,1,0)="This is the text description for the code."
^DD(454.35,1,"DT")="2930115"
^DD(454.35,"B","ABBREVIATION",1)=""
^DD(454.35,"B","CODE",.01)=""
^DD(454.35,"GL",0,1,.01)=""
^DD(454.35,"GL",0,2,1)=""
^DD(454.35,"IX",.01)=""
^DD(454.35,"RQ",.01)=""
^DD(454.37,0)="LEAVE GROUP SUB-FIELD^^1^2"
^DD(454.37,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.37,0,"IX","B",454.37,.01)=""
^DD(454.37,0,"NM","LEAVE GROUP")=""
^DD(454.37,0,"UP")="454"
^DD(454.37,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.37,.01,1,0)="^.1"
^DD(454.37,.01,1,1,0)="454.37^B"
^DD(454.37,.01,1,1,1)="S ^PRSP(454,1,""LVG"",""B"",$E(X,1,30),DA)="""""
^DD(454.37,.01,1,1,2)="K ^PRSP(454,1,""LVG"",""B"",$E(X,1,30),DA)"
^DD(454.37,.01,3)="Answer must be 1 character in length."
^DD(454.37,.01,21,0)="^^1^1^2930729^^"
^DD(454.37,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.37,.01,"DT")="2901212"
^DD(454.37,1,0)="APPLICABILITY^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(454.37,1,3)="Answer must be 1-40 characters in length."
^DD(454.37,1,21,0)="^^1^1^2930729^^^"
^DD(454.37,1,21,1,0)="This is the text description for the code."
^DD(454.37,1,"DT")="2930111"
^DD(454.37,"B","APPLICABILITY",1)=""
^DD(454.37,"B","CODE",.01)=""
^DD(454.37,"GL",0,1,.01)=""
^DD(454.37,"GL",0,2,1)=""
^DD(454.37,"IX",.01)=""
^DD(454.37,"RQ",.01)=""
^DD(454.4,0)="CENTRALIZED POSITION INDICATOR SUB-FIELD^^1^2"
^DD(454.4,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.4,0,"IX","B",454.4,.01)=""
^DD(454.4,0,"NM","CENTRALIZED POSITION INDICATOR")=""
^DD(454.4,0,"UP")="454"
^DD(454.4,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.4,.01,1,0)="^.1"
^DD(454.4,.01,1,1,0)="454.4^B"
^DD(454.4,.01,1,1,1)="S ^PRSP(454,1,""CEN"",""B"",$E(X,1,30),DA)="""""
^DD(454.4,.01,1,1,2)="K ^PRSP(454,1,""CEN"",""B"",$E(X,1,30),DA)"
^DD(454.4,.01,3)="Answer must be 1 character in length."
^DD(454.4,.01,4)=""
^DD(454.4,.01,21,0)="^^1^1^2900523^^"
^DD(454.4,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.4,.01,"DT")="2901212"
^DD(454.4,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(454.4,1,1,0)="^.1^^0"
^DD(454.4,1,3)="Answer must be 1-30 characters in length."
^DD(454.4,1,21,0)="^^1^1^2900521^"
^DD(454.4,1,21,1,0)="This is the text description for the code."
^DD(454.4,1,"DT")="2930406"
^DD(454.4,"B","CODE",.01)=""
^DD(454.4,"B","DESCRIPTION",1)=""
^DD(454.4,"GL",0,1,.01)=""
^DD(454.4,"GL",0,2,1)=""
^DD(454.4,"IX",.01)=""
^DD(454.4,"RQ",.01)=""
^DD(454.41,0)="SES POSITION OCCUPIED SUB-FIELD^^1^2"
^DD(454.41,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.41,0,"IX","B",454.41,.01)=""
^DD(454.41,0,"NM","SES POSITION OCCUPIED")=""
^DD(454.41,0,"UP")="454"
^DD(454.41,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.41,.01,1,0)="^.1"
^DD(454.41,.01,1,1,0)="454.41^B"
^DD(454.41,.01,1,1,1)="S ^PRSP(454,1,""SES"",""B"",$E(X,1,30),DA)="""""
^DD(454.41,.01,1,1,2)="K ^PRSP(454,1,""SES"",""B"",$E(X,1,30),DA)"
^DD(454.41,.01,3)="Answer must be 1 character in length."
^DD(454.41,.01,21,0)="^^1^1^2900522^"
^DD(454.41,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.41,.01,"DT")="2901212"
^DD(454.41,1,0)="NAME^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(454.41,1,3)="Answer must be 1-20 characters in length."
^DD(454.41,1,21,0)="^^1^1^2900521^"
^DD(454.41,1,21,1,0)="This is the text description for the code."
^DD(454.41,"B","CODE",.01)=""
^DD(454.41,"B","NAME",1)=""
^DD(454.41,"GL",0,1,.01)=""
^DD(454.41,"GL",0,2,1)=""
^DD(454.41,"IX",.01)=""
^DD(454.41,"RQ",.01)=""
^DD(454.44,0)="MEDICAL MOS SUB-FIELD^^1^2"
^DD(454.44,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.44,0,"IX","B",454.44,.01)=""
^DD(454.44,0,"NM","MEDICAL MOS")=""
^DD(454.44,0,"UP")="454"
^DD(454.44,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.44,.01,1,0)="^.1"
^DD(454.44,.01,1,1,0)="454.44^B"
^DD(454.44,.01,1,1,1)="S ^PRSP(454,1,""MOS"",""B"",$E(X,1,30),DA)="""""
^DD(454.44,.01,1,1,2)="K ^PRSP(454,1,""MOS"",""B"",$E(X,1,30),DA)"
^DD(454.44,.01,3)="Answer must be 1 character in length."
^DD(454.44,.01,21,0)="^^1^1^2900522^"
^DD(454.44,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.44,.01,"DT")="2901212"
^DD(454.44,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(454.44,1,3)="Answer must be 1-45 characters in length."
^DD(454.44,1,21,0)="^^1^1^2900521^"
^DD(454.44,1,21,1,0)="This is the text description for the code."
^DD(454.44,"B","CODE",.01)=""
^DD(454.44,"B","DESCRIPTION",1)=""
^DD(454.44,"GL",0,1,.01)=""
^DD(454.44,"GL",0,2,1)=""
^DD(454.44,"IX",.01)=""
^DD(454.44,"RQ",.01)=""
^DD(454.46,0)="PREAPPOINTMENT EXPERIENCE SUB-FIELD^^1^2"
^DD(454.46,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.46,0,"IX","B",454.46,.01)=""
^DD(454.46,0,"NM","PREAPPOINTMENT EXPERIENCE")=""
^DD(454.46,0,"UP")="454"
^DD(454.46,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.46,.01,1,0)="^.1"
^DD(454.46,.01,1,1,0)="454.46^B"
^DD(454.46,.01,1,1,1)="S ^PRSP(454,1,""PEX"",""B"",$E(X,1,30),DA)="""""
^DD(454.46,.01,1,1,2)="K ^PRSP(454,1,""PEX"",""B"",$E(X,1,30),DA)"
^DD(454.46,.01,3)="Answer must be 1 character in length."
^DD(454.46,.01,21,0)="^^1^1^2900522^"
^DD(454.46,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.46,.01,"DT")="2901212"
^DD(454.46,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(454.46,1,3)="Answer must be 1-30 characters in length."
^DD(454.46,1,21,0)="^^1^1^2900521^"
^DD(454.46,1,21,1,0)="This is the text description for the code."
^DD(454.46,"B","CODE",.01)=""
^DD(454.46,"B","DESCRIPTION",1)=""
^DD(454.46,"GL",0,1,.01)=""
^DD(454.46,"GL",0,2,1)=""
^DD(454.46,"IX",.01)=""
^DD(454.46,"RQ",.01)=""
^DD(454.5,0)="CLINICAL EXPERIENCE SUB-FIELD^^1^2"
^DD(454.5,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.5,0,"IX","B",454.5,.01)=""
^DD(454.5,0,"NM","CLINICAL EXPERIENCE")=""
^DD(454.5,0,"UP")="454"
^DD(454.5,.01,0)="CODE^FX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.5,.01,1,0)="^.1"
^DD(454.5,.01,1,1,0)="454.5^B"
^DD(454.5,.01,1,1,1)="S ^PRSP(454,1,""ACE"",""B"",$E(X,1,30),DA)="""""
^DD(454.5,.01,1,1,2)="K ^PRSP(454,1,""ACE"",""B"",$E(X,1,30),DA)"
^DD(454.5,.01,3)="Answer must be 1 character in length."
^DD(454.5,.01,21,0)="^^1^1^2900810^^^"
^DD(454.5,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.5,.01,"DT")="2901212"
^DD(454.5,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(454.5,1,1,0)="^.1^^0"
^DD(454.5,1,3)="Answer must be 3-30 characters in length."
^DD(454.5,1,21,0)="^^1^1^2900810^^"
^DD(454.5,1,21,1,0)="This is the text description for the code."
^DD(454.5,1,"DT")="2930406"
^DD(454.5,"B","CODE",.01)=""
^DD(454.5,"B","DESCRIPTION",1)=""
^DD(454.5,"GL",0,1,.01)=""
^DD(454.5,"GL",0,2,1)=""
^DD(454.5,"IX",.01)=""
^DD(454.5,"RQ",1)=""
^DD(454.51,0)="DIPLOMATE SUB-FIELD^^1^2"
^DD(454.51,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.51,0,"IX","B",454.51,.01)=""
^DD(454.51,0,"NM","DIPLOMATE")=""
^DD(454.51,0,"UP")="454"
^DD(454.51,.01,0)="CODE^RFX^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2NUP) X"
^DD(454.51,.01,1,0)="^.1"
^DD(454.51,.01,1,1,0)="454.51^B"
^DD(454.51,.01,1,1,1)="S ^PRSP(454,1,""DIP"",""B"",$E(X,1,30),DA)="""""
^DD(454.51,.01,1,1,2)="K ^PRSP(454,1,""DIP"",""B"",$E(X,1,30),DA)"
^DD(454.51,.01,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(454.51,.01,21,0)="^^1^1^2900522^"
^DD(454.51,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.51,.01,"DT")="2901212"
^DD(454.51,1,0)="SPECIALTY^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<2) X"
^DD(454.51,1,1,0)="^.1^^0"
^DD(454.51,1,3)="Answer must be 2-65 characters in length."
^DD(454.51,1,21,0)="^^1^1^2900521^"
^DD(454.51,1,21,1,0)="This is the text description for the code."
^DD(454.51,1,"DT")="2930406"
^DD(454.51,"B","CODE",.01)=""
^DD(454.51,"B","SPECIALTY",1)=""
^DD(454.51,"GL",0,1,.01)=""
^DD(454.51,"GL",0,2,1)=""
^DD(454.51,"IX",.01)=""
^DD(454.51,"RQ",.01)=""
^DD(454.51,"RQ",1)=""
^DD(454.52,0)="NATURE OF ACTION SUB-FIELD^^1^2"
^DD(454.52,0,"DT")="2930111"
^DD(454.52,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.52,0,"IX","B",454.52,.01)=""
^DD(454.52,0,"IX","C",454.52,1)=""
^DD(454.52,0,"NM","NATURE OF ACTION")=""
^DD(454.52,0,"UP")="454"
^DD(454.52,.01,0)="CODE^RFX^^0;1^K:$L(X)>4!($L(X)<3)!'(X?3.4NUP) X"
^DD(454.52,.01,1,0)="^.1"
^DD(454.52,.01,1,1,0)="454.52^B"
^DD(454.52,.01,1,1,1)="S ^PRSP(454,1,""NOA"",""B"",$E(X,1,30),DA)="""""
^DD(454.52,.01,1,1,2)="K ^PRSP(454,1,""NOA"",""B"",$E(X,1,30),DA)"
^DD(454.52,.01,3)="Answer must be 3-4 characters in length."
^DD(454.52,.01,21,0)="^^1^1^2900522^"
^DD(454.52,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.52,.01,"DT")="2930111"
^DD(454.52,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(454.52,1,1,0)="^.1^^0"
^DD(454.52,1,1,1,0)="454.52^C"
^DD(454.52,1,1,1,1)="S ^PRSP(454,DA(1),""NOA"",""C"",$E(X,1,30),DA)="""""
^DD(454.52,1,1,1,2)="K ^PRSP(454,DA(1),""NOA"",""C"",$E(X,1,30),DA)"
^DD(454.52,1,1,1,"DT")="2930407"
^DD(454.52,1,3)="Answer must be 3-50 characters in length."
^DD(454.52,1,21,0)="^^1^1^2930111^^"
^DD(454.52,1,21,1,0)="This is the text description for the code."
^DD(454.52,1,"DT")="2930406"
^DD(454.52,"B","CODE",.01)=""
^DD(454.52,"B","DESCRIPTION",1)=""
^DD(454.52,"GL",0,1,.01)=""
^DD(454.52,"GL",0,2,1)=""
^DD(454.52,"IX",.01)=""
^DD(454.52,"IX",1)=""
^DD(454.52,"RQ",.01)=""
^DD(454.53,0)="ASSIGNMENT CODE SUB-FIELD^^2^3"
^DD(454.53,0,"DT")="2930831"
^DD(454.53,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.53,0,"IX","B",454.53,.01)=""
^DD(454.53,0,"IX","C",454.53,1)=""
^DD(454.53,0,"NM","ASSIGNMENT CODE")=""
^DD(454.53,0,"UP")="454"
^DD(454.53,.01,0)="CODE^RFX^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2NUP) X"
^DD(454.53,.01,1,0)="^.1"
^DD(454.53,.01,1,1,0)="454.53^B"
^DD(454.53,.01,1,1,1)="S ^PRSP(454,1,""ASS"",""B"",$E(X,1,30),DA)="""""
^DD(454.53,.01,1,1,2)="K ^PRSP(454,1,""ASS"",""B"",$E(X,1,30),DA)"
^DD(454.53,.01,3)="Answer must be 2 characters in length."
^DD(454.53,.01,21,0)="^^1^1^2900522^"
^DD(454.53,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.53,.01,"DT")="2901212"
^DD(454.53,1,0)="ASSIGNMENT^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>65!($L(X)<3) X"
^DD(454.53,1,1,0)="^.1"
^DD(454.53,1,1,1,0)="454.53^C"
^DD(454.53,1,1,1,1)="S ^PRSP(454,DA(1),""ASS"",""C"",$E(X,1,30),DA)="""""
^DD(454.53,1,1,1,2)="K ^PRSP(454,DA(1),""ASS"",""C"",$E(X,1,30),DA)"
^DD(454.53,1,1,1,"DT")="2940414"
^DD(454.53,1,3)="Answer must be 3-65 characters in length."
^DD(454.53,1,21,0)="^^1^1^2900521^"
^DD(454.53,1,21,1,0)="This is the text description for the code."
^DD(454.53,1,"DT")="2940414"
^DD(454.53,2,0)="OCCUPATION SERIES^F^^0;3^K:$L(X)>120!($L(X)<4) X"
^DD(454.53,2,3)="Answer must be 4-120 characters in length."
^DD(454.53,2,21,0)="^^1^1^2930831^^^"
^DD(454.53,2,21,1,0)="This is a list of occupational series associated with this code."
^DD(454.53,2,"DT")="2930831"
^DD(454.53,"B","ASSIGNMENT",1)=""
^DD(454.53,"B","CODE",.01)=""
^DD(454.53,"B","OCCUPATION SERIES",2)=""
^DD(454.53,"GL",0,1,.01)=""
^DD(454.53,"GL",0,2,1)=""
^DD(454.53,"GL",0,3,2)=""
^DD(454.53,"IX",.01)=""
^DD(454.53,"IX",1)=""
^DD(454.53,"RQ",.01)=""
^DD(454.54,0)="INSTRUCTIONAL PROGRAM SUB-FIELD^^1^2"
^DD(454.54,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.54,0,"IX","B",454.54,.01)=""
^DD(454.54,0,"IX","C",454.54,1)=""
^DD(454.54,0,"NM","INSTRUCTIONAL PROGRAM")=""
^DD(454.54,0,"UP")="454"
^DD(454.54,.01,0)="CODE^RFX^^0;1^K:$L(X)>6!($L(X)<4)!'(X?4.6N) X"
^DD(454.54,.01,1,0)="^.1"
^DD(454.54,.01,1,1,0)="454.54^B"
^DD(454.54,.01,1,1,1)="S ^PRSP(454,1,""MAJ"",""B"",$E(X,1,30),DA)="""""
^DD(454.54,.01,1,1,2)="K ^PRSP(454,1,""MAJ"",""B"",$E(X,1,30),DA)"
^DD(454.54,.01,3)="Answer must be 4-6 numbers in length."
^DD(454.54,.01,21,0)="^^1^1^2930520^^^"
^DD(454.54,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.54,.01,"DT")="2890426"
^DD(454.54,1,0)="NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<3) X"
^DD(454.54,1,1,0)="^.1"
^DD(454.54,1,1,1,0)="454.54^C"
^DD(454.54,1,1,1,1)="S ^PRSP(454,DA(1),""MAJ"",""C"",$E(X,1,30),DA)="""""
^DD(454.54,1,1,1,2)="K ^PRSP(454,DA(1),""MAJ"",""C"",$E(X,1,30),DA)"
^DD(454.54,1,1,1,"DT")="2921020"
^DD(454.54,1,3)="Answer must be 3-100 characters in length."
^DD(454.54,1,21,0)="^^1^1^2900521^"
^DD(454.54,1,21,1,0)="This is the text description for the code."
^DD(454.54,1,"DT")="2930524"
^DD(454.54,"B","CODE",.01)=""
^DD(454.54,"B","NAME",1)=""
^DD(454.54,"GL",0,1,.01)=""
^DD(454.54,"GL",0,2,1)=""
^DD(454.54,"IX",.01)=""
^DD(454.54,"IX",1)=""
^DD(454.54,"RQ",.01)=""
^DD(454.54,"RQ",1)=""
^DD(454.55,0)="LEGAL AUTHORITY CODE SUB-FIELD^^1^2"
^DD(454.55,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.55,0,"IX","B",454.55,.01)=""
^DD(454.55,0,"NM","LEGAL AUTHORITY CODE")=""
^DD(454.55,0,"UP")="454"
^DD(454.55,.01,0)="CODE^RFX^^0;1^K:$L(X)>3!($L(X)<3)!'(X?3NUP) X"
^DD(454.55,.01,1,0)="^.1"
^DD(454.55,.01,1,1,0)="454.55^B"
^DD(454.55,.01,1,1,1)="S ^PRSP(454,1,""CSA"",""B"",$E(X,1,30),DA)="""""
^DD(454.55,.01,1,1,2)="K ^PRSP(454,1,""CSA"",""B"",$E(X,1,30),DA)"
^DD(454.55,.01,3)="Answer must be 3 characters in length."
^DD(454.55,.01,21,0)="^^1^1^2900522^"
^DD(454.55,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.55,.01,"DT")="2901212"
^DD(454.55,1,0)="EXPLANATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(454.55,1,1,0)="^.1^^0"
^DD(454.55,1,3)="Answer must be 1-40 characters in length."
^DD(454.55,1,21,0)="^^1^1^2921103^^"
^DD(454.55,1,21,1,0)="This is the text description for the code."
^DD(454.55,1,"DT")="2930406"
^DD(454.55,"B","CODE",.01)=""
^DD(454.55,"B","EXPLANATION",1)=""
^DD(454.55,"GL",0,1,.01)=""
^DD(454.55,"GL",0,2,1)=""
^DD(454.55,"IX",.01)=""
^DD(454.55,"RQ",.01)=""
^DD(454.66,0)="BRANCH OF SERVICE SUB-FIELD^^1^2"
^DD(454.66,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.66,0,"IX","B",454.66,.01)=""
^DD(454.66,0,"NM","BRANCH OF SERVICE")=""
^DD(454.66,0,"UP")="454"
^DD(454.66,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.66,.01,1,0)="^.1"
^DD(454.66,.01,1,1,0)="454.66^B"
^DD(454.66,.01,1,1,1)="S ^PRSP(454,1,""BOS"",""B"",$E(X,1,30),DA)="""""
^DD(454.66,.01,1,1,2)="K ^PRSP(454,1,""BOS"",""B"",$E(X,1,30),DA)"
^DD(454.66,.01,3)="Answer must be 1 character in length."
^DD(454.66,.01,21,0)="^^1^1^2900522^"
^DD(454.66,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.66,.01,"DT")="2901212"
^DD(454.66,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(454.66,1,1,0)="^.1^^0"
^DD(454.66,1,3)="Answer must be 3-50 characters in length."
^DD(454.66,1,21,0)="^^1^1^2900521^"
^DD(454.66,1,21,1,0)="This is the text description for the code."
^DD(454.66,1,"DT")="2930406"
^DD(454.66,"B","CODE",.01)=""
^DD(454.66,"B","DESCRIPTION",1)=""
^DD(454.66,"GL",0,1,.01)=""
^DD(454.66,"GL",0,2,1)=""
^DD(454.66,"IX",.01)=""
^DD(454.66,"RQ",.01)=""
^DD(454.67,0)="EARNED INCOME TAX SUB-FIELD^^1^2"
^DD(454.67,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.67,0,"IX","B",454.67,.01)=""
^DD(454.67,0,"NM","EARNED INCOME TAX")=""
^DD(454.67,0,"UP")="454"
^DD(454.67,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.67,.01,1,0)="^.1"
^DD(454.67,.01,1,1,0)="454.67^B"
^DD(454.67,.01,1,1,1)="S ^PRSP(454,1,""EIT"",""B"",$E(X,1,30),DA)="""""
^DD(454.67,.01,1,1,2)="K ^PRSP(454,1,""EIT"",""B"",$E(X,1,30),DA)"
^DD(454.67,.01,3)="Answer must be 1 character in length."
^DD(454.67,.01,21,0)="^^1^1^2900522^"
^DD(454.67,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.67,.01,"DT")="2901212"
^DD(454.67,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<10) X"
^DD(454.67,1,3)="Answer must be 10-60 characters in length."
^DD(454.67,1,21,0)="^^1^1^2900521^"
^DD(454.67,1,21,1,0)="This is the text description for the code."
^DD(454.67,"B","CODE",.01)=""
^DD(454.67,"B","DESCRIPTION",1)=""
^DD(454.67,"GL",0,1,.01)=""
^DD(454.67,"GL",0,2,1)=""
^DD(454.67,"IX",.01)=""
^DD(454.67,"RQ",.01)=""
^DD(454.68,0)="MEDICARE TAX STATUS SUB-FIELD^^1^2"
^DD(454.68,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.68,0,"IX","B",454.68,.01)=""
^DD(454.68,0,"NM","MEDICARE TAX STATUS")=""
^DD(454.68,0,"UP")="454"
^DD(454.68,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.68,.01,1,0)="^.1"
^DD(454.68,.01,1,1,0)="454.68^B"
^DD(454.68,.01,1,1,1)="S ^PRSP(454,1,""MED"",""B"",$E(X,1,30),DA)="""""
^DD(454.68,.01,1,1,2)="K ^PRSP(454,1,""MED"",""B"",$E(X,1,30),DA)"
^DD(454.68,.01,3)="Answer must be 1 character in length."
^DD(454.68,.01,21,0)="^^1^1^2900522^"
^DD(454.68,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.68,.01,"DT")="2901212"
^DD(454.68,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>40!($L(X)<10) X"
^DD(454.68,1,3)="Answer must be 10-40 characters in length."
^DD(454.68,1,21,0)="^^1^1^2900521^"
^DD(454.68,1,21,1,0)="This is the text description for the code."
^DD(454.68,"B","CODE",.01)=""
^DD(454.68,"B","DESCRIPTION",1)=""
^DD(454.68,"GL",0,1,.01)=""
^DD(454.68,"GL",0,2,1)=""
^DD(454.68,"IX",.01)=""
^DD(454.68,"RQ",.01)=""
^DD(454.69,0)="BOND DENOMINATION SUB-FIELD^^1^2"
^DD(454.69,0,"DT")="2910815"
^DD(454.69,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.69,0,"IX","B",454.69,.01)=""
^DD(454.69,0,"NM","BOND DENOMINATION")=""
^DD(454.69,0,"UP")="454"
^DD(454.69,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.69,.01,1,0)="^.1"
^DD(454.69,.01,1,1,0)="454.69^B"
^DD(454.69,.01,1,1,1)="S ^PRSP(454,1,""BOD"",""B"",$E(X,1,30),DA)="""""
^DD(454.69,.01,1,1,2)="K ^PRSP(454,1,""BOD"",""B"",$E(X,1,30),DA)"
^DD(454.69,.01,3)="Answer must be 1 character in length."
^DD(454.69,.01,21,0)="^^1^1^2900522^"
^DD(454.69,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.69,.01,"DT")="2901212"
^DD(454.69,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(454.69,1,1,0)="^.1^^0"
^DD(454.69,1,3)="Answer must be 1-30 characters in length."
^DD(454.69,1,21,0)="^^1^1^2910815^^"
^DD(454.69,1,21,1,0)="This is the text description for the code."
^DD(454.69,1,"DT")="2930406"
^DD(454.69,"B","CODE",.01)=""
^DD(454.69,"B","DESCRIPTION",1)=""
^DD(454.69,"GL",0,1,.01)=""
^DD(454.69,"GL",0,2,1)=""
^DD(454.69,"IX",.01)=""
^DD(454.69,"RQ",.01)=""
^DD(454.7,0)="BOND CO-OWNER/BENEFICIARY SUB-FIELD^^1^2"
^DD(454.7,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.7,0,"IX","B",454.7,.01)=""
^DD(454.7,0,"NM","BOND CO-OWNER/BENEFICIARY")=""
^DD(454.7,0,"UP")="454"
^DD(454.7,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.7,.01,1,0)="^.1"
^DD(454.7,.01,1,1,0)="454.7^B"
^DD(454.7,.01,1,1,1)="S ^PRSP(454,1,""BOC"",""B"",$E(X,1,30),DA)="""""
^DD(454.7,.01,1,1,2)="K ^PRSP(454,1,""BOC"",""B"",$E(X,1,30),DA)"
^DD(454.7,.01,3)="Answer must be 1 character in length."
^DD(454.7,.01,21,0)="^^1^1^2900522^"
^DD(454.7,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.7,.01,"DT")="2901212"
^DD(454.7,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<5) X"
^DD(454.7,1,3)="Answer must be 5-30 characters in length."
^DD(454.7,1,21,0)="^^1^1^2900521^"
^DD(454.7,1,21,1,0)="This is the text description for the code."
^DD(454.7,"B","CODE",.01)=""
^DD(454.7,"B","DESCRIPTION",1)=""
^DD(454.7,"GL",0,1,.01)=""
^DD(454.7,"GL",0,2,1)=""
^DD(454.7,"IX",.01)=""
^DD(454.7,"RQ",.01)=""
^DD(454.79,0)="TSP STATUS SUB-FIELD^^1^2"
^DD(454.79,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.79,0,"IX","B",454.79,.01)=""
^DD(454.79,0,"NM","TSP STATUS")=""
^DD(454.79,0,"UP")="454"
^DD(454.79,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.79,.01,1,0)="^.1"
^DD(454.79,.01,1,1,0)="454.79^B"
^DD(454.79,.01,1,1,1)="S ^PRSP(454,1,""TSS"",""B"",$E(X,1,30),DA)="""""
^DD(454.79,.01,1,1,2)="K ^PRSP(454,1,""TSS"",""B"",$E(X,1,30),DA)"
^DD(454.79,.01,3)="Answer must be 1 character in length."
^DD(454.79,.01,21,0)="^^1^1^2900522^"
^DD(454.79,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.79,.01,"DT")="2901212"
^DD(454.79,1,0)="DEFINITION^RF^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(454.79,1,3)="Answer must be 1-20 characters in length."
^DD(454.79,1,21,0)="^^1^1^2900521^"
^DD(454.79,1,21,1,0)="This is the text description for the code."
^DD(454.79,1,"DT")="2930115"
^DD(454.79,"B","CODE",.01)=""
^DD(454.79,"B","DEFINITION",1)=""
^DD(454.79,"GL",0,1,.01)=""
^DD(454.79,"GL",0,2,1)=""
^DD(454.79,"IX",.01)=""
^DD(454.79,"RQ",.01)=""
^DD(454.79,"RQ",1)=""
^DD(454.81,0)="FILING STATUS SUB-FIELD^^1^2"
^DD(454.81,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.81,0,"IX","B",454.81,.01)=""
^DD(454.81,0,"NM","FILING STATUS")=""
^DD(454.81,0,"UP")="454"
^DD(454.81,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'((X=1)!(X=2)!(X=9)) X"
^DD(454.81,.01,1,0)="^.1"
^DD(454.81,.01,1,1,0)="454.81^B"
^DD(454.81,.01,1,1,1)="S ^PRSP(454,1,""MAR"",""B"",$E(X,1,30),DA)="""""
^DD(454.81,.01,1,1,2)="K ^PRSP(454,1,""MAR"",""B"",$E(X,1,30),DA)"
^DD(454.81,.01,3)="Answer must be 1, 2 or 9"
^DD(454.81,.01,21,0)="^^1^1^2900525^^"
^DD(454.81,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.81,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(454.81,1,1,0)="^.1^^0"
^DD(454.81,1,3)="Answer must be 3-30 characters in length."
^DD(454.81,1,21,0)="^^1^1^2900521^"
^DD(454.81,1,21,1,0)="This is the text description for the code."
^DD(454.81,1,"DT")="2930406"
^DD(454.81,"B","CODE",.01)=""
^DD(454.81,"B","DESCRIPTION",1)=""
^DD(454.81,"GL",0,1,.01)=""
^DD(454.81,"GL",0,2,1)=""
^DD(454.81,"IX",.01)=""
^DD(454.81,"RQ",.01)=""
^DD(454.81,"RQ",1)=""
^DD(454.82,0)="E & L CODE SUB-FIELD^^1^2"
^DD(454.82,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.82,0,"IX","B",454.82,.01)=""
^DD(454.82,0,"NM","E & L CODE")=""
^DD(454.82,0,"UP")="454"
^DD(454.82,.01,0)="CODE^RFX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.82,.01,1,0)="^.1"
^DD(454.82,.01,1,1,0)="454.82^B"
^DD(454.82,.01,1,1,1)="S ^PRSP(454,1,""EAR"",""B"",$E(X,1,30),DA)="""""
^DD(454.82,.01,1,1,2)="K ^PRSP(454,1,""EAR"",""B"",$E(X,1,30),DA)"
^DD(454.82,.01,3)="Answer must be 1 character in length."
^DD(454.82,.01,21,0)="^^1^1^2900522^"
^DD(454.82,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.82,.01,"DT")="2901212"
^DD(454.82,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(454.82,1,3)="Answer must be 3-60 characters in length."
^DD(454.82,1,21,0)="^^1^1^2900521^"
^DD(454.82,1,21,1,0)="This is the text description for the code."
^DD(454.82,"B","CODE",.01)=""
^DD(454.82,"B","DESCRIPTION",1)=""
^DD(454.82,"GL",0,1,.01)=""
^DD(454.82,"GL",0,2,1)=""
^DD(454.82,"IX",.01)=""
^DD(454.82,"RQ",.01)=""
^DD(454.82,"RQ",1)=""
^DD(454.91,0)="601 COST ACCOUNT SUBCODE SUB-FIELD^^1^2"
^DD(454.91,0,"DT")="2901212"
^DD(454.91,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.91,0,"IX","B",454.91,.01)=""
^DD(454.91,0,"NM","601 COST ACCOUNT SUBCODE")=""
^DD(454.91,0,"UP")="454"
^DD(454.91,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.91,.01,1,0)="^.1"
^DD(454.91,.01,1,1,0)="454.91^B"
^DD(454.91,.01,1,1,1)="S ^PRSP(454,1,""CAS"",""B"",$E(X,1,30),DA)="""""
^DD(454.91,.01,1,1,2)="K ^PRSP(454,1,""CAS"",""B"",$E(X,1,30),DA)"
^DD(454.91,.01,3)="Answer must be 1 character in length."
^DD(454.91,.01,21,0)="^^1^1^2900522^"
^DD(454.91,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.91,.01,"DT")="2901212"
^DD(454.91,1,0)="DESCRIPTION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(454.91,1,1,0)="^.1^^0"
^DD(454.91,1,3)="Answer must be 3-50 characters in length."
^DD(454.91,1,21,0)="^^1^1^2900522^"
^DD(454.91,1,21,1,0)="This is the text description for the code."
^DD(454.91,1,"DT")="2930406"
^DD(454.91,"B","CODE",.01)=""
^DD(454.91,"B","DESCRIPTION",1)=""
^DD(454.91,"GL",0,1,.01)=""
^DD(454.91,"GL",0,2,1)=""
^DD(454.91,"IX",.01)=""
^DD(454.91,"RQ",.01)=""
^DD(454.91,"RQ",1)=""
^DD(454.92,0)="HEALTH INSURANCE CODE SUB-FIELD^^1^2"
^DD(454.92,0,"DT")="2930111"
^DD(454.92,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.92,0,"IX","B",454.92,.01)=""
^DD(454.92,0,"IX","C",454.92,1)=""
^DD(454.92,0,"NM","HEALTH INSURANCE CODE")=""
^DD(454.92,0,"UP")="454"
^DD(454.92,.01,0)="CODE^RFX^^0;1^K:$L(X)>3!($L(X)<3)!'(X?3NUP) X"
^DD(454.92,.01,1,0)="^.1"
^DD(454.92,.01,1,1,0)="454.92^B"
^DD(454.92,.01,1,1,1)="S ^PRSP(454,1,""IIC"",""B"",$E(X,1,30),DA)="""""
^DD(454.92,.01,1,1,2)="K ^PRSP(454,1,""IIC"",""B"",$E(X,1,30),DA)"
^DD(454.92,.01,3)="Answer must be 3 characters in length."
^DD(454.92,.01,21,0)="^^1^1^2900522^"
^DD(454.92,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.92,.01,"DT")="2901212"
^DD(454.92,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(454.92,1,1,0)="^.1"
^DD(454.92,1,1,1,0)="454.92^C"
^DD(454.92,1,1,1,1)="S ^PRSP(454,DA(1),""IIC"",""C"",$E(X,1,30),DA)="""""
^DD(454.92,1,1,1,2)="K ^PRSP(454,DA(1),""IIC"",""C"",$E(X,1,30),DA)"
^DD(454.92,1,1,1,"DT")="2930407"
^DD(454.92,1,3)="Answer must be 3-60 characters in length."
^DD(454.92,1,21,0)="^^1^1^2930111^^^"
^DD(454.92,1,21,1,0)="This is the text description for the code."
^DD(454.92,1,"DT")="2930111"
^DD(454.92,"B","CODE",.01)=""
^DD(454.92,"B","DESCRIPTION",1)=""
^DD(454.92,"GL",0,1,.01)=""
^DD(454.92,"GL",0,2,1)=""
^DD(454.92,"IX",.01)=""
^DD(454.92,"IX",1)=""
^DD(454.92,"RQ",.01)=""
^DD(454.92,"RQ",1)=""
^DD(454.93,0)="BUS CODE SUB-FIELD^^1^2"
^DD(454.93,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.93,0,"IX","B",454.93,.01)=""
^DD(454.93,0,"NM","BUS CODE")=""
^DD(454.93,0,"UP")="454"
^DD(454.93,.01,0)="CODE^FX^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4NUP) X"
^DD(454.93,.01,1,0)="^.1"
^DD(454.93,.01,1,1,0)="454.93^B"
^DD(454.93,.01,1,1,1)="S ^PRSP(454,1,""BUS"",""B"",$E(X,1,30),DA)="""""
^DD(454.93,.01,1,1,2)="K ^PRSP(454,1,""BUS"",""B"",$E(X,1,30),DA)"
^DD(454.93,.01,3)="Answer must be 4 characters in length."
^DD(454.93,.01,21,0)="^^1^1^2900522^"
^DD(454.93,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.93,.01,"DT")="2921020"
^DD(454.93,1,0)="DEFINITION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(454.93,1,1,0)="^.1^^0"
^DD(454.93,1,3)="Answer must be 3-30 characters in length."
^DD(454.93,1,21,0)="^^1^1^2900522^"
^DD(454.93,1,21,1,0)="This is the text description for the code."
^DD(454.93,1,"DT")="2930406"
^DD(454.93,"B","CODE",.01)=""
^DD(454.93,"B","DEFINITION",1)=""
^DD(454.93,"GL",0,1,.01)=""
^DD(454.93,"GL",0,2,1)=""
^DD(454.93,"IX",.01)=""
^DD(454.93,"RQ",1)=""
^DD(454.94,0)="COST CENTER/ORGANIZATION SUB-FIELD^^1^2"
^DD(454.94,0,"DT")="2930202"
^DD(454.94,0,"ID","WRITE")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRSP(454.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(454.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(454.94,0,"IX","B",454.94,.01)=""
^DD(454.94,0,"IX","C",454.94,1)=""
^DD(454.94,0,"NM","COST CENTER/ORGANIZATION")=""
^DD(454.94,0,"UP")="454"
^DD(454.94,.01,0)="CODE^FX^^0;1^K:X'?4N1"":""4N X"
^DD(454.94,.01,1,0)="^.1"
^DD(454.94,.01,1,1,0)="454.94^B"
^DD(454.94,.01,1,1,1)="S ^PRSP(454,1,""ORG"",""B"",$E(X,1,30),DA)="""""
^DD(454.94,.01,1,1,2)="K ^PRSP(454,1,""ORG"",""B"",$E(X,1,30),DA)"
^DD(454.94,.01,3)="Answer must be 4 numerics followed by a colon followed by 4 numerics.  e.g. 1111:9999"
^DD(454.94,.01,21,0)="^^1^1^2930128^^^^"
^DD(454.94,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.94,.01,"DT")="2940214"
^DD(454.94,1,0)="DESCRIPTION^P454.1'^PRSP(454.1,^0;2^Q"
^DD(454.94,1,1,0)="^.1"
^DD(454.94,1,1,1,0)="454.94^C"
^DD(454.94,1,1,1,1)="S ^PRSP(454,DA(1),""ORG"",""C"",$E(X,1,30),DA)="""""
^DD(454.94,1,1,1,2)="K ^PRSP(454,DA(1),""ORG"",""C"",$E(X,1,30),DA)"
^DD(454.94,1,1,1,"DT")="2930203"
^DD(454.94,1,21,0)="^^1^1^2930202^"
^DD(454.94,1,21,1,0)="The COST CENTER/ORGANIZATION description."
^DD(454.94,1,"DT")="2930203"
^DD(454.94,"B","CODE",.01)=""
^DD(454.94,"B","DESCRIPTION",1)=""
^DD(454.94,"GL",0,1,.01)=""
^DD(454.94,"GL",0,2,1)=""
^DD(454.94,"IX",.01)=""
^DD(454.94,"IX",1)=""
^DD(454.97,0)="COMPRESSED/FLEXITIME CODE SUB-FIELD^^1^2"
^DD(454.97,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.97,0,"IX","B",454.97,.01)=""
^DD(454.97,0,"NM","COMPRESSED/FLEXITIME CODE")=""
^DD(454.97,0,"UP")="454"
^DD(454.97,.01,0)="COMPRESSED/FLEXITIME CODE^FX^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1NUP) X"
^DD(454.97,.01,1,0)="^.1"
^DD(454.97,.01,1,1,0)="454.97^B"
^DD(454.97,.01,1,1,1)="S ^PRSP(454,1,""COM"",""B"",$E(X,1,30),DA)="""""
^DD(454.97,.01,1,1,2)="K ^PRSP(454,1,""COM"",""B"",$E(X,1,30),DA)"
^DD(454.97,.01,3)="Answer must be 1 character in length."
^DD(454.97,.01,21,0)="^^1^1^2900522^"
^DD(454.97,.01,21,1,0)="This field contains the actual PAID code."
^DD(454.97,.01,"DT")="2901212"
^DD(454.97,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(454.97,1,3)="Answer must be 3-30 characters in length."
^DD(454.97,1,21,0)="^^1^1^2900522^"
^DD(454.97,1,21,1,0)="This is the text description for the code."
^DD(454.97,1,"DT")="2900501"
^DD(454.97,"B","COMPRESSED/FLEXITIME CODE",.01)=""
^DD(454.97,"B","DESCRIPTION",1)=""
^DD(454.97,"GL",0,1,.01)=""
^DD(454.97,"GL",0,2,1)=""
^DD(454.97,"IX",.01)=""
^DD(454.97,"RQ",1)=""
^DD(454.98,0)="STATE GSA CODE SUB-FIELD^^1^2"
^DD(454.98,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(454.98,0,"IX","B",454.98,.01)=""
^DD(454.98,0,"IX","C",454.98,1)=""
^DD(454.98,0,"NM","STATE GSA CODE")=""
^DD(454.98,0,"UP")="454"
^DD(454.98,.01,0)="CODE^RFX^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2NUP) X"
^DD(454.98,.01,1,0)="^.1"
^DD(454.98,.01,1,1,0)="454.98^B"
^DD(454.98,.01,1,1,1)="S ^PRSP(454,1,""GSA"",""B"",$E(X,1,30),DA)="""""
^DD(454.98,.01,1,1,2)="K ^PRSP(454,1,""GSA"",""B"",$E(X,1,30),DA)"
^DD(454.98,.01,3)="Answer must be 2 characters in length."
^DD(454.98,.01,21,0)="^^2^2^2900710^^^"
^DD(454.98,.01,21,1,0)="The two digit numeric General Services Administration code for the"
^DD(454.98,.01,21,2,0)="state."
^DD(454.98,.01,"DT")="2901212"
^DD(454.98,1,0)="NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(454.98,1,1,0)="^.1"
^DD(454.98,1,1,1,0)="454.98^C"
^DD(454.98,1,1,1,1)="S ^PRSP(454,DA(1),""GSA"",""C"",$E(X,1,30),DA)="""""
^DD(454.98,1,1,1,2)="K ^PRSP(454,DA(1),""GSA"",""C"",$E(X,1,30),DA)"
^DD(454.98,1,1,1,"DT")="2930408"
^DD(454.98,1,3)="Answer must be 3-30 characters in length."
^DD(454.98,1,21,0)="^^1^1^2900710^"
^DD(454.98,1,21,1,0)="The name of the state."
^DD(454.98,1,"DT")="2930408"
^DD(454.98,"B","CODE",.01)=""
^DD(454.98,"B","NAME",1)=""
^DD(454.98,"GL",0,1,.01)=""
^DD(454.98,"GL",0,2,1)=""
^DD(454.98,"IX",.01)=""
^DD(454.98,"IX",1)=""
^DD(454.98,"RQ",.01)=""
^DD(454.98,"RQ",1)=""
^DD(455.1,0)="FIELD^^1^2"
^DD(455.1,0,"DDA")="N"
^DD(455.1,0,"IX","B",455.1,.01)=""
^DD(455.1,0,"NM","8B ERROR MESSAGE")=""
^DD(455.1,0,"VR")="4.0"
^DD(455.1,.01,0)="ERROR #^RNJ4,0^^0;1^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(455.1,.01,1,0)="^.1"
^DD(455.1,.01,1,1,0)="455.1^B"
^DD(455.1,.01,1,1,1)="S ^PRST(455.1,""B"",$E(X,1,30),DA)="""""
^DD(455.1,.01,1,1,2)="K ^PRST(455.1,""B"",$E(X,1,30),DA)"
^DD(455.1,.01,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(455.1,.01,21,0)="^^3^3^2890327^"
^DD(455.1,.01,21,1,0)="This field contains an arbitrary number assigned to each error"
^DD(455.1,.01,21,2,0)="message. However, these numbers are referred to by various edit"
^DD(455.1,.01,21,3,0)="programs and should not be altered."
^DD(455.1,1,0)="MESSAGE^455.11^^E;0"
^DD(455.1,1,21,0)="^^1^1^2890327^"
^DD(455.1,1,21,1,0)="This field contains the text of the error message."
^DD(455.1,"B","ERROR #",.01)=""
^DD(455.1,"B","MESSAGE",1)=""
^DD(455.1,"GL",0,1,.01)=""
^DD(455.1,"GL","E",0,1)=""
^DD(455.1,"IX",.01)=""
^DD(455.1,"RQ",.01)=""
^DD(455.1,"SB",455.11,1)=""
^DD(455.11,0)="MESSAGE SUB-FIELD^^.01^1"
^DD(455.11,0,"NM","MESSAGE")=""
^DD(455.11,0,"UP")="455.1"
^DD(455.11,.01,0)="MESSAGE^W^^0;1^Q"
^DD(455.11,.01,21,0)="^^1^1^2890327^"
^DD(455.11,.01,21,1,0)="This field contains the text of the error message."
^DD(455.11,"B","MESSAGE",.01)=""
^DD(455.11,"GL",0,1,.01)=""
^DD(455.5,0)="FIELD^^102^13"
^DD(455.5,0,"DDA")="N"
^DD(455.5,0,"DT")="2950523"
^DD(455.5,0,"IX","AA",455.512,.01)=""
^DD(455.5,0,"IX","AS",455.511,.01)=""
^DD(455.5,0,"IX","ASX",455.511,1)=""
^DD(455.5,0,"IX","AT",455.51,.01)=""
^DD(455.5,0,"IX","B",455.5,.01)=""
^DD(455.5,0,"NM","T&L UNIT")=""
^DD(455.5,0,"PT",457.13,.01)=""
^DD(455.5,0,"PT",730.01,.01)=""
^DD(455.5,0,"VR")="4.0"
^DD(455.5,.01,0)="CODE^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X?3N!(X?1""VC""1U)!(X?1""F""2N)) X"
^DD(455.5,.01,1,0)="^.1"
^DD(455.5,.01,1,1,0)="455.5^B"
^DD(455.5,.01,1,1,1)="S ^PRST(455.5,""B"",$E(X,1,30),DA)="""""
^DD(455.5,.01,1,1,2)="K ^PRST(455.5,""B"",$E(X,1,30),DA)"
^DD(455.5,.01,3)="ANSWER MUST BE 3 NUMBERS IN LENGTH OR 'VC' AND AN ALPHABETIC CHARACTER OR 'F' AND 2 NUMBERS"
^DD(455.5,.01,21,0)="^^2^2^2951128^^"
^DD(455.5,.01,21,1,0)="This field contains the three-character code assigned to the"
^DD(455.5,.01,21,2,0)="T&L Unit."
^DD(455.5,.01,"DT")="2951128"
^DD(455.5,1,0)="NAME^F^^0;2^K:$L(X)>20!($L(X)<3) X"
^DD(455.5,1,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(455.5,1,21,0)="^^1^1^2881216^"
^DD(455.5,1,21,1,0)="This field contains a descriptive name for the T&L unit."
^DD(455.5,2,0)="CURRENT PAY PERIOD STATUS^S^T:TIMEKEEPER CLOSED;P:PAYROLL REVIEWED;X:SENT TO AUSTIN;^0;3^Q"
^DD(455.5,2,21,0)="^^4^4^2881216^"
^DD(455.5,2,21,1,0)="This field indicates the status of the T&L unit for the"
^DD(455.5,2,21,2,0)="current pay period. The status is updated only when all"
^DD(455.5,2,21,3,0)="employees in the unit have been processed by the Timekeeper"
^DD(455.5,2,21,4,0)="or reviewed by Payroll."
^DD(455.5,2,"DT")="2891020"
^DD(455.5,10,0)="TIMEKEEPER^455.51P^^T;0"
^DD(455.5,10,21,0)="^^1^1^2940114^^^"
^DD(455.5,10,21,1,0)="This field contains the Timekeepers assigned to the T&L Unit."
^DD(455.5,11,0)="SUPERVISOR^455.511P^^S;0"
^DD(455.5,11,21,0)="^^3^3^2930202^^^^"
^DD(455.5,11,21,1,0)="This is a list of the persons who may function as OT/CT supervisors"
^DD(455.5,11,21,2,0)="in that they officially request OT/CT time and verify the time"
^DD(455.5,11,21,3,0)="worked for this T&L unit."
^DD(455.5,11,"DT")="2920218"
^DD(455.5,12,0)="OT/CT APPROVER^455.512P^^A;0"
^DD(455.5,12,21,0)="^^2^2^2921215^^^"
^DD(455.5,12,21,1,0)="This is a list of persons who may function as OT/CT approving"
^DD(455.5,12,21,2,0)="officials for OT/CT requests from this T&L unit."
^DD(455.5,12,"DT")="2920715"
^DD(455.5,20,0)="STATION #^RF^^0;4^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(455.5,20,3)="Answer must be 3 digits in length."
^DD(455.5,20,21,0)="^^2^2^2920819^^"
^DD(455.5,20,21,1,0)="This is a pointer to the Institution file and is the station"
^DD(455.5,20,21,2,0)="with which this T&L is associated."
^DD(455.5,20,"DT")="2920330"
^DD(455.5,21,0)="SERVICE^P49'^DIC(49,^0;5^Q"
^DD(455.5,21,21,0)="^^2^2^2901124^"
^DD(455.5,21,21,1,0)="This is a pointer into the Service/Section file (49) and indicates"
^DD(455.5,21,21,2,0)="the Service with which this T&L is associated."
^DD(455.5,21,"DT")="2900319"
^DD(455.5,22,0)="SECTION^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(455.5,22,3)="Answer must be 3-20 characters in length."
^DD(455.5,22,21,0)="^^2^2^2901124^"
^DD(455.5,22,21,1,0)="This is a free text field indicating the service sub-unit or"
^DD(455.5,22,21,2,0)="division with which this T&L unit is associated."
^DD(455.5,22,"DT")="2920207"
^DD(455.5,23,0)="ENTITLED TO PREMIUMS?^RS^1:YES;0:NO;^0;7^Q"
^DD(455.5,23,21,0)="^^1^1^2921215^^"
^DD(455.5,23,21,1,0)="Indicates the time and leave unit is entitled to premium pay."
^DD(455.5,23,"DT")="2920925"
^DD(455.5,24,0)="TIME SLEEP-TIME BEGINS^RFX^^0;8^D:$D(X) ^PRSATIM"
^DD(455.5,24,4)="D HLP^PRSATIM"
^DD(455.5,24,21,0)="^^2^2^2921215^^"
^DD(455.5,24,21,1,0)="When Sleep Time begins for Standby tours of duty in this time and"
^DD(455.5,24,21,2,0)="leave unit."
^DD(455.5,24,"DT")="2920925"
^DD(455.5,101,0)="PENDING CERTIFICATION ACTIONS^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(455.5,101,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(455.5,101,21,0)="^^3^3^2950412^"
^DD(455.5,101,21,1,0)="This field contains the number of pending actions relating to leave,"
^DD(455.5,101,21,2,0)="overtime, tour changes, and prior pay period corrections which"
^DD(455.5,101,21,3,0)="require supervisory certification."
^DD(455.5,101,"DT")="2950412"
^DD(455.5,102,0)="PENDING OT/PPA ACTIONS^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(455.5,102,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(455.5,102,21,0)="^^2^2^2950523^"
^DD(455.5,102,21,1,0)="This field contains the number of OT/CT and Prior Pay Period"
^DD(455.5,102,21,2,0)="Adjustment actions requiring second-level approval."
^DD(455.5,102,"DT")="2950523"
^DD(455.5,"B","CODE",.01)=""
^DD(455.5,"B","CURRENT PAY PERIOD STATUS",2)=""
^DD(455.5,"B","ENTITLED TO PREMIUMS?",23)=""
^DD(455.5,"B","NAME",1)=""
^DD(455.5,"B","OT/CT APPROVER",12)=""
^DD(455.5,"B","PENDING CERTIFICATION ACTIONS",101)=""
^DD(455.5,"B","PENDING OT/PPA ACTIONS",102)=""
^DD(455.5,"B","SECTION",22)=""
^DD(455.5,"B","SERVICE",21)=""
^DD(455.5,"B","STATION #",20)=""
^DD(455.5,"B","SUPERVISOR",11)=""
^DD(455.5,"B","TIME SLEEP-TIME BEGINS",24)=""
^DD(455.5,"B","TIMEKEEPER",10)=""
^DD(455.5,"GL",0,1,.01)=""
^DD(455.5,"GL",0,2,1)=""
^DD(455.5,"GL",0,3,2)=""
^DD(455.5,"GL",0,4,20)=""
^DD(455.5,"GL",0,5,21)=""
^DD(455.5,"GL",0,6,22)=""
^DD(455.5,"GL",0,7,23)=""
^DD(455.5,"GL",0,8,24)=""
^DD(455.5,"GL",0,10,101)=""
^DD(455.5,"GL",0,11,102)=""
^DD(455.5,"GL","A",0,12)=""
^DD(455.5,"GL","S",0,11)=""
^DD(455.5,"GL","T",0,10)=""
^DD(455.5,"IX",.01)=""
^DD(455.5,"RQ",.01)=""
^DD(455.5,"RQ",20)=""
^DD(455.5,"RQ",23)=""
^DD(455.5,"RQ",24)=""
^DD(455.5,"SB",455.51,10)=""
^DD(455.5,"SB",455.511,11)=""
^DD(455.5,"SB",455.512,12)=""
^DD(455.51,0)="TIMEKEEPER SUB-FIELD^^1^2"
^DD(455.51,0,"IX","B",455.51,.01)=""
^DD(455.51,0,"NM","TIMEKEEPER")=""
^DD(455.51,0,"UP")="455.5"
^DD(455.51,.01,0)="TIMEKEEPER^P200'X^VA(200,^0;1^I $D(X) S DINUM=X"
^DD(455.51,.01,1,0)="^.1"
^DD(455.51,.01,1,1,0)="455.51^B"
^DD(455.51,.01,1,1,1)="S ^PRST(455.5,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(455.51,.01,1,1,2)="K ^PRST(455.5,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(455.51,.01,1,2,0)="455.5^AT^MUMPS"
^DD(455.51,.01,1,2,1)="S ^PRST(455.5,""AT"",DA,DA(1))="""""
^DD(455.51,.01,1,2,2)="K ^PRST(455.5,""AT"",DA,DA(1))"
^DD(455.51,.01,1,2,"%D",0)="^^2^2^2940601^^"
^DD(455.51,.01,1,2,"%D",1,0)="This is a cross-reference by User of all T&L units for which"
^DD(455.51,.01,1,2,"%D",2,0)="this user is a Timekeeper."
^DD(455.51,.01,21,0)="^^2^2^2940114^^^^"
^DD(455.51,.01,21,1,0)="This field is a pointer to the New Person File (File 200) and is a"
^DD(455.51,.01,21,2,0)="timekeeper assigned to this T&L Unit."
^DD(455.51,1,0)="ENTRY METHOD^RS^0:SINGLE STRING ENTRY;1:INDIVIDUAL PROMPTS;^0;2^Q"
^DD(455.51,1,21,0)="^^2^2^2881216^"
^DD(455.51,1,21,1,0)="This field contains the preferred data entry method for the"
^DD(455.51,1,21,2,0)="Timekeeper."
^DD(455.51,1,"DT")="2880822"
^DD(455.51,"B","ENTRY METHOD",1)=""
^DD(455.51,"B","TIMEKEEPER",.01)=""
^DD(455.51,"GL",0,1,.01)=""
^DD(455.51,"GL",0,2,1)=""
^DD(455.51,"IX",.01)=""
^DD(455.51,"RQ",1)=""
^DD(455.511,0)="SUPERVISOR SUB-FIELD^^1^2"
^DD(455.511,0,"DT")="2920810"
^DD(455.511,0,"IX","B",455.511,.01)=""
^DD(455.511,0,"NM","SUPERVISOR")=""
^DD(455.511,0,"UP")="455.5"
^DD(455.511,.01,0)="SUPERVISOR^P200'X^VA(200,^0;1^I $D(X) S DINUM=X"
^DD(455.511,.01,1,0)="^.1"
^DD(455.511,.01,1,1,0)="455.511^B"
^DD(455.511,.01,1,1,1)="S ^PRST(455.5,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(455.511,.01,1,1,2)="K ^PRST(455.5,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(455.511,.01,1,2,0)="455.5^AS^MUMPS"
^DD(455.511,.01,1,2,1)="S ^PRST(455.5,""AS"",DA,DA(1))="""""
^DD(455.511,.01,1,2,2)="K ^PRST(455.5,""AS"",DA,DA(1))"
^DD(455.511,.01,1,2,"%D",0)="^^2^2^2940601^^"
^DD(455.511,.01,1,2,"%D",1,0)="This is a cross-reference by User of all T&L units of which"
^DD(455.511,.01,1,2,"%D",2,0)="the user is a supervisor."
^DD(455.511,.01,21,0)="^^2^2^2921215^^"
^DD(455.511,.01,21,1,0)="This is a pointer to file 200 and represents a supervisor who"
^DD(455.511,.01,21,2,0)="may request and verify OT/CT for this T&L unit."
^DD(455.511,.01,"DT")="2901110"
^DD(455.511,1,0)="T&L WHICH CERTIFIES SUPERVISOR^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) S DIC=455.5,DIC(0)=""EMQ"" D ^DIC K DIC S X=$P(Y,""^"",2) K:$L(X)'=3 X"
^DD(455.511,1,1,0)="^.1^^-1"
^DD(455.511,1,1,1,0)="455.5^ASX^MUMPS"
^DD(455.511,1,1,1,1)="S ^PRST(455.5,""ASX"",$E(X,1,30),DA,DA(1))="""""
^DD(455.511,1,1,1,2)="K ^PRST(455.5,""ASX"",$E(X,1,30),DA,DA(1))"
^DD(455.511,1,1,1,"%D",0)="^^7^7^2980304^"
^DD(455.511,1,1,1,"%D",1,0)="This is a cross-reference by T&L Unit of supervisors certified by that T&L"
^DD(455.511,1,1,1,"%D",2,0)="Unit. It is used to find supervisory employees that should be included"
^DD(455.511,1,1,1,"%D",3,0)="when certifications or approvals are performed for the T&L."
^DD(455.511,1,1,1,"%D",4,0)="  ^PRST(455.5,""ASX"",X,DA,DA(1)) where:"
^DD(455.511,1,1,1,"%D",5,0)="    X is the T&L which certifies the supervisor (external value)."
^DD(455.511,1,1,1,"%D",6,0)="    DA is the supervisor's ien (equal to ien in file #200 due to DINUM)."
^DD(455.511,1,1,1,"%D",7,0)="    DA(1) is the ien of the T&L UNIT that the supervisor supervises."
^DD(455.511,1,1,1,"DT")="2980304"
^DD(455.511,1,4)="N D,X,DIC,DO S DIC=""^PRST(455.5,"",DIC(0)=""Q"",D=""B"" D DQ^DICQ Q"
^DD(455.511,1,21,0)="^^3^3^2930202^"
^DD(455.511,1,21,1,0)="A supervisor from this T&L Unit will be displayed all actions"
^DD(455.511,1,21,2,0)="requiring approval of the supervisor. It will often be the "
^DD(455.511,1,21,3,0)="Director's Office T&L for Service Chief supervisors for example."
^DD(455.511,1,"DT")="2980304"
^DD(455.511,"B","SUPERVISOR",.01)=""
^DD(455.511,"B","T&L WHICH CERTIFIES SUPERVISOR",1)=""
^DD(455.511,"GL",0,1,.01)=""
^DD(455.511,"GL",0,2,1)=""
^DD(455.511,"IX",.01)=""
^DD(455.511,"IX",1)=""
^DD(455.511,"RQ",1)=""
^DD(455.512,0)="OT/CT APPROVER SUB-FIELD^^.01^1"
^DD(455.512,0,"IX","B",455.512,.01)=""
^DD(455.512,0,"NM","OT/CT APPROVER")=""
^DD(455.512,0,"UP")="455.5"
^DD(455.512,.01,0)="OT/CT APPROVER^P200'X^VA(200,^0;1^I $D(X) S DINUM=X"
^DD(455.512,.01,1,0)="^.1"
^DD(455.512,.01,1,1,0)="455.512^B"
^DD(455.512,.01,1,1,1)="S ^PRST(455.5,DA(1),""A"",""B"",$E(X,1,30),DA)="""""
^DD(455.512,.01,1,1,2)="K ^PRST(455.5,DA(1),""A"",""B"",$E(X,1,30),DA)"
^DD(455.512,.01,1,2,0)="455.5^AA^MUMPS"
^DD(455.512,.01,1,2,1)="S ^PRST(455.5,""AA"",DA,DA(1))="""""
^DD(455.512,.01,1,2,2)="K ^PRST(455.5,""AA"",DA,DA(1))"
^DD(455.512,.01,1,2,"%D",0)="^^2^2^2940601^"
^DD(455.512,.01,1,2,"%D",1,0)="This is a cross-reference by User of all T&L units for which the"
^DD(455.512,.01,1,2,"%D",2,0)="user is an OverTime/CompTime approver."
^DD(455.512,.01,21,0)="^^2^2^2921215^^"
^DD(455.512,.01,21,1,0)="This is a pointer into file 200 and represents an OT/CT approver"
^DD(455.512,.01,21,2,0)="for this T&L unit."
^DD(455.512,.01,"DT")="2901110"
^DD(455.512,"B","OT/CT APPROVER",.01)=""
^DD(455.512,"GL",0,1,.01)=""
^DD(455.512,"IX",.01)=""
^DD(456,0)="FIELD^^4^5"
^DD(456,0,"DT")="3070727"
^DD(456,0,"IX","B",456,.01)=""
^DD(456,0,"NM","PAID PARAMETERS")=""
^DD(456,0,"VR")="4.0"
^DD(456,0,"VRPK")="PRS"
^DD(456,.01,0)="INSTITUTION^R*P4'^DIC(4,^0;1^S DIC(""S"")=""I +$$GET1^DIQ(4,+Y,99)=+$$STA^XUAF4(+$$KSP^XUPARAM(""""INST""""))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(456,.01,1,0)="^.1"
^DD(456,.01,1,1,0)="456^B"
^DD(456,.01,1,1,1)="S ^PRST(456,""B"",$E(X,1,30),DA)="""""
^DD(456,.01,1,1,2)="K ^PRST(456,""B"",$E(X,1,30),DA)"
^DD(456,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(456,.01,12)="allow only valid local stations"
^DD(456,.01,12.1)="S DIC(""S"")=""I +$$GET1^DIQ(4,+Y,99)=+$$STA^XUAF4(+$$KSP^XUPARAM(""""INST""""))"""
^DD(456,.01,21,0)="^^1^1^3070725^"
^DD(456,.01,21,1,0)="Please enter the DIVISION these parameters apply to."
^DD(456,.01,23,0)="^^2^2^3070725^"
^DD(456,.01,23,1,0)="One entry per division for site parameters to handle multi divisional "
^DD(456,.01,23,2,0)="sites."
^DD(456,.01,"DT")="3070727"
^DD(456,1,0)="SEND AWS BULLETIN^S^0:NO;1:YES;^0;2^Q"
^DD(456,1,3)="Answer Yes to allow 9mo/3mo AWS bulletin to be sent to developers"
^DD(456,1,"DT")="3070725"
^DD(456,2,0)="AWS 9MO BULLETIN COUNT^NJ5,0I^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1.N) X"
^DD(456,2,3)="Type a number between 0 and 99999, 0 Decimal Digits"
^DD(456,2,21,0)="^^3^3^3070730^"
^DD(456,2,21,1,0)="This field counts the number of bulletins that have been sent to the"
^DD(456,2,21,2,0)="developers notifying them when an employee has been identified as being"
^DD(456,2,21,3,0)="converted or beginning to work the 9 mo/3 mo AWS."
^DD(456,2,23,0)="^^2^2^3070730^"
^DD(456,2,23,1,0)="Counter updated by code when bulletin is sent.  Code may impose a limit on"
^DD(456,2,23,2,0)="how many bulletins are sent.  Users should not edit this field."
^DD(456,2,"DT")="3070730"
^DD(456,3,0)="AWS BULLETIN LIMIT^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(456,3,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(456,3,21,0)="^^3^3^3070725^"
^DD(456,3,21,1,0)="Please enter the number of bulletins that should be sent to the "
^DD(456,3,21,2,0)="developers, once an employee is identified as working the 9 month/3 month "
^DD(456,3,21,3,0)="alternative work schedule (AWS)."
^DD(456,3,23,0)="^^2^2^3070725^"
^DD(456,3,23,1,0)="Limit number of bulletins by not sending the bulletin once this limit is "
^DD(456,3,23,2,0)="reached.  The limit is stored in field 2--AWS BULLETIN COUNTER."
^DD(456,3,"DT")="3070725"
^DD(456,4,0)="AWS 36-40 BULLETIN COUNT^NJ4,0I^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(456,4,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(456,4,21,0)="^^3^3^3070727^"
^DD(456,4,21,1,0)="This field counts the number of bulletins that have been sent to the "
^DD(456,4,21,2,0)="developers notifying them when an employee has been identified as being "
^DD(456,4,21,3,0)="converted or beginning to work the 36/40 AWS."
^DD(456,4,"DT")="3070730"
^DD(456,"B","AWS 36-40 BULLETIN COUNT",4)=""
^DD(456,"B","AWS 9MO BULLETIN COUNT",2)=""
^DD(456,"B","AWS BULLETIN LIMIT",3)=""
^DD(456,"B","INSTITUTION",.01)=""
^DD(456,"B","SEND AWS BULLETIN",1)=""
^DD(456,"GL",0,1,.01)=""
^DD(456,"GL",0,2,1)=""
^DD(456,"GL",0,3,2)=""
^DD(456,"GL",0,4,3)=""
^DD(456,"GL",0,5,4)=""
^DD(456,"IX",.01)=""
^DD(456,"RQ",.01)=""
^DD(457.1,0)="FIELD^^31^30"
^DD(457.1,0,"DDA")="N"
^DD(457.1,0,"DT")="2950327"
^DD(457.1,0,"ID","WRITE")="W ""   Meal: "",$P(^(0),""^"",3)"
^DD(457.1,0,"IX","B",457.1,.01)=""
^DD(457.1,0,"IX","C",457.1,1)=""
^DD(457.1,0,"NM","TOUR OF DUTY")=""
^DD(457.1,0,"PT",458.01,201)=""
^DD(457.1,0,"PT",458.01,202)=""
^DD(457.1,0,"PT",458.01,203)=""
^DD(457.1,0,"PT",458.01,204)=""
^DD(457.1,0,"PT",458.01,205)=""
^DD(457.1,0,"PT",458.01,206)=""
^DD(457.1,0,"PT",458.01,207)=""
^DD(457.1,0,"PT",458.01,208)=""
^DD(457.1,0,"PT",458.01,209)=""
^DD(457.1,0,"PT",458.01,210)=""
^DD(457.1,0,"PT",458.01,211)=""
^DD(457.1,0,"PT",458.01,212)=""
^DD(457.1,0,"PT",458.01,213)=""
^DD(457.1,0,"PT",458.01,214)=""
^DD(457.1,0,"PT",458.02,2)=""
^DD(457.1,0,"PT",458.02,4)=""
^DD(457.1,0,"PT",458.02,10.3)=""
^DD(457.1,0,"VR")="4.0"
^DD(457.1,0,"VRPK")="PRS"
^DD(457.1,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(457.1,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(457.1,.001,21,0)="^^1^1^2950327^"
^DD(457.1,.001,21,1,0)="A sequential number that identifies the tour of duty."
^DD(457.1,.001,"DT")="2950327"
^DD(457.1,.01,0)="TOUR HOURS^RFX^^0;1^K:$L(X)>30!($L(X)<5)!'(X'?1P.E) X I $D(X) D NAM^PRSATD1"
^DD(457.1,.01,1,0)="^.1"
^DD(457.1,.01,1,1,0)="457.1^B"
^DD(457.1,.01,1,1,1)="S ^PRST(457.1,""B"",$E(X,1,30),DA)="""""
^DD(457.1,.01,1,1,2)="K ^PRST(457.1,""B"",$E(X,1,30),DA)"
^DD(457.1,.01,3)="Answer must begin with format like 08:00A-04:30P; MID or NOON may also be used."
^DD(457.1,.01,21,0)="^^2^2^2921103^"
^DD(457.1,.01,21,1,0)="A character string that identifies the start and stop times for all"
^DD(457.1,.01,21,2,0)="segments of the tour of duty."
^DD(457.1,.01,"DEL",1,0)="I 1 W *7,""   Tours Cannot be Deleted!"""
^DD(457.1,.01,"DT")="2921113"
^DD(457.1,1,0)="DESCRIPTION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(457.1,1,1,0)="^.1"
^DD(457.1,1,1,1,0)="457.1^C"
^DD(457.1,1,1,1,1)="S ^PRST(457.1,""C"",$E(X,1,30),DA)="""""
^DD(457.1,1,1,1,2)="K ^PRST(457.1,""C"",$E(X,1,30),DA)"
^DD(457.1,1,1,1,"DT")="2920211"
^DD(457.1,1,3)="Answer must be 3-30 characters in length."
^DD(457.1,1,21,0)="^^1^1^2921103^"
^DD(457.1,1,21,1,0)="A description of the tour of duty."
^DD(457.1,1,"DT")="2920211"
^DD(457.1,2,0)="MEAL TIME^RNJ2,0X^^0;3^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(457.1,2,3)="Enter 0, 15, 30, 45 or 60"
^DD(457.1,2,21,0)="^^1^1^2921103^"
^DD(457.1,2,21,1,0)="The length of the meal time in fifteen minute increments."
^DD(457.1,2,"DT")="2920415"
^DD(457.1,3,0)="ASSOCIATED T&L UNIT^457.13P^^T;0"
^DD(457.1,3,21,0)="^^1^1^2921103^"
^DD(457.1,3,21,1,0)="The time and leave unit this tour of duty is associated with."
^DD(457.1,4,0)="AVAILABLE TO ALL T&L'S?^S^1:YES;0:NO;^0;4^Q"
^DD(457.1,4,21,0)="^^1^1^2921103^"
^DD(457.1,4,21,1,0)="Indicates the tour of duty is available to all time and leave units."
^DD(457.1,4,"DT")="2920403"
^DD(457.1,5,0)="TWO-DAY TOUR?^S^Y:YES;N:NO;^0;5^Q"
^DD(457.1,5,21,0)="^^1^1^2921103^"
^DD(457.1,5,21,1,0)="Indicates the tour of duty spans two calendar days."
^DD(457.1,5,"DT")="2920415"
^DD(457.1,6,0)="REGULAR HOURS^RNJ5,2^^0;6^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""3N.N) X"
^DD(457.1,6,3)="Type a Number between 0 and 24, 2 Decimal Digits"
^DD(457.1,6,21,0)="^^1^1^2921103^"
^DD(457.1,6,21,1,0)="The number of regular pay work hours in this tour of duty."
^DD(457.1,6,"DT")="2920416"
^DD(457.1,7,0)="PREMIUM MEAL TIME?^S^1:YES;0:NO;^0;7^Q"
^DD(457.1,7,21,0)="^^1^1^2921103^"
^DD(457.1,7,21,1,0)="Indicates the meal time is subject to premium pay."
^DD(457.1,7,"DT")="2920910"
^DD(457.1,11,0)="START TIME-1^FX^^1;1^D:$D(X) ^PRSATIM"
^DD(457.1,11,4)="D HLP^PRSATIM"
^DD(457.1,11,21,0)="^^1^1^2921103^"
^DD(457.1,11,21,1,0)="The start time for the first segment of the tour of duty."
^DD(457.1,11,"DT")="2920117"
^DD(457.1,12,0)="STOP TIME-1^FX^^1;2^D:$D(X) ^PRSATIM"
^DD(457.1,12,4)="D HLP^PRSATIM"
^DD(457.1,12,21,0)="^^1^1^2921103^"
^DD(457.1,12,21,1,0)="The stop time for the first segment of the tour of duty."
^DD(457.1,12,"DT")="2920117"
^DD(457.1,13,0)="SPECIAL CODE-1^P457.2'^PRST(457.2,^1;3^Q"
^DD(457.1,13,21,0)="^^3^3^2921103^^"
^DD(457.1,13,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(457.1,13,21,2,0)="type of special (non-regular) hours associated with the first segment of"
^DD(457.1,13,21,3,0)="the tour of duty."
^DD(457.1,13,"DT")="2920117"
^DD(457.1,14,0)="START TIME-2^FX^^1;4^D:$D(X) ^PRSATIM"
^DD(457.1,14,4)="D HLP^PRSATIM"
^DD(457.1,14,21,0)="^^1^1^2921103^"
^DD(457.1,14,21,1,0)="The start time for the second segment of the tour of duty."
^DD(457.1,14,"DT")="2920117"
^DD(457.1,15,0)="STOP TIME-2^FX^^1;5^D:$D(X) ^PRSATIM"
^DD(457.1,15,4)="D HLP^PRSATIM"
^DD(457.1,15,21,0)="^^1^1^2921103^"
^DD(457.1,15,21,1,0)="The stop time for the second segment of the tour of duty."
^DD(457.1,15,"DT")="2920117"
^DD(457.1,16,0)="SPECIAL CODE-2^P457.2'^PRST(457.2,^1;6^Q"
^DD(457.1,16,21,0)="^^3^3^2921103^"
^DD(457.1,16,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(457.1,16,21,2,0)="type of special (non-regular) hours associated with the second segment of"
^DD(457.1,16,21,3,0)="the tour of duty."
^DD(457.1,16,"DT")="2920117"
^DD(457.1,17,0)="START TIME-3^FX^^1;7^D:$D(X) ^PRSATIM"
^DD(457.1,17,4)="D HLP^PRSATIM"
^DD(457.1,17,21,0)="^^1^1^2921103^"
^DD(457.1,17,21,1,0)="The start time for the third segment of the tour of duty."
^DD(457.1,17,"DT")="2920117"
^DD(457.1,18,0)="STOP TIME-3^FX^^1;8^D:$D(X) ^PRSATIM"
^DD(457.1,18,4)="D HLP^PRSATIM"
^DD(457.1,18,21,0)="^^1^1^2921103^"
^DD(457.1,18,21,1,0)="The stop time for the third segment of the tour of duty."
^DD(457.1,18,"DT")="2920117"
^DD(457.1,19,0)="SPECIAL CODE-3^P457.2'^PRST(457.2,^1;9^Q"
^DD(457.1,19,21,0)="^^3^3^2921103^"
^DD(457.1,19,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(457.1,19,21,2,0)="type of special (non-regular) hours associated with the third segment of"
^DD(457.1,19,21,3,0)="the tour of duty."
^DD(457.1,19,"DT")="2920117"
^DD(457.1,20,0)="START TIME-4^FX^^1;10^D:$D(X) ^PRSATIM"
^DD(457.1,20,4)="D HLP^PRSATIM"
^DD(457.1,20,21,0)="^^1^1^2921103^"
^DD(457.1,20,21,1,0)="The start time for the fourth segment of the tour of duty."
^DD(457.1,20,"DT")="2920117"
^DD(457.1,21,0)="STOP TIME-4^FX^^1;11^D:$D(X) ^PRSATIM"
^DD(457.1,21,4)="D HLP^PRSATIM"
^DD(457.1,21,21,0)="^^1^1^2921103^"
^DD(457.1,21,21,1,0)="The stop time for the fourth segment of the tour of duty."
^DD(457.1,21,"DT")="2920117"
^DD(457.1,22,0)="SPECIAL CODE-4^P457.2'^PRST(457.2,^1;12^Q"
^DD(457.1,22,21,0)="^^3^3^2921103^"
^DD(457.1,22,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(457.1,22,21,2,0)="type of special (non-regular) hours associated with the fourth segment of"
^DD(457.1,22,21,3,0)="the tour of duty."
^DD(457.1,22,"DT")="2920117"
^DD(457.1,23,0)="START TIME-5^FX^^1;13^D:$D(X) ^PRSATIM"
^DD(457.1,23,4)="D HLP^PRSATIM"
^DD(457.1,23,21,0)="^^1^1^2921103^"
^DD(457.1,23,21,1,0)="The start time for the fifth segment of the tour of duty."
^DD(457.1,23,"DT")="2920117"
^DD(457.1,24,0)="STOP TIME-5^FX^^1;14^D:$D(X) ^PRSATIM"
^DD(457.1,24,4)="D HLP^PRSATIM"
^DD(457.1,24,21,0)="^^1^1^2921103^"
^DD(457.1,24,21,1,0)="The stop time for the fifth segment of the tour of duty."
^DD(457.1,24,"DT")="2920117"
^DD(457.1,25,0)="SPECIAL CODE-5^P457.2'^PRST(457.2,^1;15^Q"
^DD(457.1,25,21,0)="^^3^3^2921103^"
^DD(457.1,25,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(457.1,25,21,2,0)="type of special (non-regular) hours associated with fifth segment of the"
^DD(457.1,25,21,3,0)="tour of duty."
^DD(457.1,25,"DT")="2920117"
^DD(457.1,26,0)="START TIME-6^FX^^1;16^D:$D(X) ^PRSATIM"
^DD(457.1,26,4)="D HLP^PRSATIM"
^DD(457.1,26,21,0)="^^1^1^2921103^"
^DD(457.1,26,21,1,0)="The start time for the sixth segment of the tour of duty."
^DD(457.1,26,"DT")="2920117"
^DD(457.1,27,0)="STOP TIME-6^FX^^1;17^D:$D(X) ^PRSATIM"
^DD(457.1,27,4)="D HLP^PRSATIM"
^DD(457.1,27,21,0)="^^1^1^2921103^"
^DD(457.1,27,21,1,0)="The stop time for the sixth segment of the tour of duty."
^DD(457.1,27,"DT")="2920117"
^DD(457.1,28,0)="SPECIAL CODE-6^P457.2'^PRST(457.2,^1;18^Q"
^DD(457.1,28,21,0)="^^3^3^2921103^"
^DD(457.1,28,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(457.1,28,21,2,0)="type of special (non-regular) hours associated with the sixth segment of"
^DD(457.1,28,21,3,0)="the tour of duty."
^DD(457.1,28,"DT")="2920117"
^DD(457.1,29,0)="START TIME-7^FX^^1;19^D:$D(X) ^PRSATIM"
^DD(457.1,29,4)="D HLP^PRSATIM"
^DD(457.1,29,21,0)="^^1^1^2921103^"
^DD(457.1,29,21,1,0)="The start time for the seventh segment of the tour of duty."
^DD(457.1,29,"DT")="2920117"
^DD(457.1,30,0)="STOP TIME-7^FX^^1;20^D:$D(X) ^PRSATIM"
^DD(457.1,30,4)="D HLP^PRSATIM"
^DD(457.1,30,21,0)="^^1^1^2921103^"
^DD(457.1,30,21,1,0)="The stop time for the seventh segment of the tour of duty."
^DD(457.1,30,"DT")="2920117"
^DD(457.1,31,0)="SPECIAL CODE-7^FX^PRST(457.2,^1;21^Q"
^DD(457.1,31,21,0)="^^3^3^2921103^"
^DD(457.1,31,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(457.1,31,21,2,0)="type of special (non-regular) hours associated with the seventh segment of"
^DD(457.1,31,21,3,0)="the tour of duty."
^DD(457.1,31,"DT")="2920117"
^DD(457.1,"B","ASSOCIATED T&L UNIT",3)=""
^DD(457.1,"B","AVAILABLE TO ALL T&L'S?",4)=""
^DD(457.1,"B","DESCRIPTION",1)=""
^DD(457.1,"B","MEAL TIME",2)=""
^DD(457.1,"B","NUMBER",.001)=""
^DD(457.1,"B","PREMIUM MEAL TIME?",7)=""
^DD(457.1,"B","REGULAR HOURS",6)=""
^DD(457.1,"B","SPECIAL CODE-1",13)=""
^DD(457.1,"B","SPECIAL CODE-2",16)=""
^DD(457.1,"B","SPECIAL CODE-3",19)=""
^DD(457.1,"B","SPECIAL CODE-4",22)=""
^DD(457.1,"B","SPECIAL CODE-5",25)=""
^DD(457.1,"B","SPECIAL CODE-6",28)=""
^DD(457.1,"B","SPECIAL CODE-7",31)=""
^DD(457.1,"B","START TIME-1",11)=""
^DD(457.1,"B","START TIME-2",14)=""
^DD(457.1,"B","START TIME-3",17)=""
^DD(457.1,"B","START TIME-4",20)=""
^DD(457.1,"B","START TIME-5",23)=""
^DD(457.1,"B","START TIME-6",26)=""
^DD(457.1,"B","START TIME-7",29)=""
^DD(457.1,"B","STOP TIME-1",12)=""
^DD(457.1,"B","STOP TIME-2",15)=""
^DD(457.1,"B","STOP TIME-3",18)=""
^DD(457.1,"B","STOP TIME-4",21)=""
^DD(457.1,"B","STOP TIME-5",24)=""
^DD(457.1,"B","STOP TIME-6",27)=""
^DD(457.1,"B","STOP TIME-7",30)=""
^DD(457.1,"B","TOUR HOURS",.01)=""
^DD(457.1,"B","TWO-DAY TOUR?",5)=""
^DD(457.1,"GL",0,1,.01)=""
^DD(457.1,"GL",0,2,1)=""
^DD(457.1,"GL",0,3,2)=""
^DD(457.1,"GL",0,4,4)=""
^DD(457.1,"GL",0,5,5)=""
^DD(457.1,"GL",0,6,6)=""
^DD(457.1,"GL",0,7,7)=""
^DD(457.1,"GL",1,1,11)=""
^DD(457.1,"GL",1,2,12)=""
^DD(457.1,"GL",1,3,13)=""
^DD(457.1,"GL",1,4,14)=""
^DD(457.1,"GL",1,5,15)=""
^DD(457.1,"GL",1,6,16)=""
^DD(457.1,"GL",1,7,17)=""
^DD(457.1,"GL",1,8,18)=""
^DD(457.1,"GL",1,9,19)=""
^DD(457.1,"GL",1,10,20)=""
^DD(457.1,"GL",1,11,21)=""
^DD(457.1,"GL",1,12,22)=""
^DD(457.1,"GL",1,13,23)=""
^DD(457.1,"GL",1,14,24)=""
^DD(457.1,"GL",1,15,25)=""
^DD(457.1,"GL",1,16,26)=""
^DD(457.1,"GL",1,17,27)=""
^DD(457.1,"GL",1,18,28)=""
^DD(457.1,"GL",1,19,29)=""
^DD(457.1,"GL",1,20,30)=""
^DD(457.1,"GL",1,21,31)=""
^DD(457.1,"GL","T",0,3)=""
^DD(457.1,"IX",.01)=""
^DD(457.1,"IX",1)=""
^DD(457.1,"RQ",.01)=""
^DD(457.1,"RQ",2)=""
^DD(457.1,"RQ",6)=""
^DD(457.1,"SB",457.13,3)=""
^DD(457.13,0)="ASSOCIATED T&L UNIT SUB-FIELD^^.01^1"
^DD(457.13,0,"DT")="2920117"
^DD(457.13,0,"IX","B",457.13,.01)=""
^DD(457.13,0,"NM","ASSOCIATED T&L UNIT")=""
^DD(457.13,0,"UP")="457.1"
^DD(457.13,.01,0)="ASSOCIATED T&L UNIT^MP455.5'^PRST(455.5,^0;1^Q"
^DD(457.13,.01,1,0)="^.1"
^DD(457.13,.01,1,1,0)="457.13^B"
^DD(457.13,.01,1,1,1)="S ^PRST(457.1,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(457.13,.01,1,1,2)="K ^PRST(457.1,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(457.13,.01,21,0)="^^1^1^2921103^"
^DD(457.13,.01,21,1,0)="The time and leave unit this tour of duty is associated with."
^DD(457.13,.01,"DT")="2920117"
^DD(457.13,"B","ASSOCIATED T&L UNIT",.01)=""
^DD(457.13,"GL",0,1,.01)=""
^DD(457.13,"IX",.01)=""
^DD(457.2,0)="FIELD^^5^6"
^DD(457.2,0,"DT")="2931005"
^DD(457.2,0,"ID","WRITE")="W ""   "",$P(^(0),U,3)"
^DD(457.2,0,"IX","AC",457.2,.01)=""
^DD(457.2,0,"IX","B",457.2,.01)=""
^DD(457.2,0,"IX","C",457.2,4)=""
^DD(457.2,0,"IX","D",457.2,2)=""
^DD(457.2,0,"NM","SPECIAL TOUR INDICATOR")=""
^DD(457.2,0,"PT",457.1,13)=""
^DD(457.2,0,"PT",457.1,16)=""
^DD(457.2,0,"PT",457.1,19)=""
^DD(457.2,0,"PT",457.1,22)=""
^DD(457.2,0,"PT",457.1,25)=""
^DD(457.2,0,"PT",457.1,28)=""
^DD(457.2,0,"PT",458.02,13)=""
^DD(457.2,0,"PT",458.02,16)=""
^DD(457.2,0,"PT",458.02,19)=""
^DD(457.2,0,"PT",458.02,22)=""
^DD(457.2,0,"PT",458.02,25)=""
^DD(457.2,0,"PT",458.02,28)=""
^DD(457.2,0,"PT",458.02,32.2)=""
^DD(457.2,0,"PT",458.02,32.5)=""
^DD(457.2,0,"PT",458.02,32.8)=""
^DD(457.2,0,"PT",458.02,33.1)=""
^DD(457.2,0,"PT",458.02,33.4)=""
^DD(457.2,0,"PT",458.02,33.7)=""
^DD(457.2,0,"VR")="4.0"
^DD(457.2,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(457.2,.01,1,0)="^.1"
^DD(457.2,.01,1,1,0)="457.2^B"
^DD(457.2,.01,1,1,1)="S ^PRST(457.2,""B"",$E(X,1,30),DA)="""""
^DD(457.2,.01,1,1,2)="K ^PRST(457.2,""B"",$E(X,1,30),DA)"
^DD(457.2,.01,1,2,0)="457.2^AC^MUMPS"
^DD(457.2,.01,1,2,1)="S $P(^PRST(457.2,DA,0),""^"",3)=DA"
^DD(457.2,.01,1,2,2)="Q"
^DD(457.2,.01,1,2,"%D",0)="^^2^2^2940525^^"
^DD(457.2,.01,1,2,"%D",1,0)="Cross-reference is actually a form of a trigger and forces the internal"
^DD(457.2,.01,1,2,"%D",2,0)="number of the entry into the CODE field as data."
^DD(457.2,.01,1,2,"DT")="2920128"
^DD(457.2,.01,1,3,0)="^^TRIGGER^457.2^4"
^DD(457.2,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(457.2,.01,1,3,1.1) X ^DD(457.2,.01,1,3,1.4)"
^DD(457.2,.01,1,3,1.1)="S X=DIV S X=DIV X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"""
^DD(457.2,.01,1,3,1.4)="S DIH=$S($D(^PRST(457.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=457.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(457.2,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(457.2,.01,1,3,2.4)"
^DD(457.2,.01,1,3,2.4)="S DIH=$S($D(^PRST(457.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=457.2,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(457.2,.01,1,3,"%D",0)="^^2^2^2940809^"
^DD(457.2,.01,1,3,"%D",1,0)="This triggers an all uppercase name which is cross-referenced"
^DD(457.2,.01,1,3,"%D",2,0)="for lookup."
^DD(457.2,.01,1,3,"CREATE VALUE")="UPPERCASE(NAME)"
^DD(457.2,.01,1,3,"DELETE VALUE")="@"
^DD(457.2,.01,1,3,"DT")="2940809"
^DD(457.2,.01,1,3,"FIELD")="UPPERCASE NAME"
^DD(457.2,.01,3)="Answer must be 3-20 characters in length."
^DD(457.2,.01,21,0)="^^1^1^2921104^"
^DD(457.2,.01,21,1,0)="The full name of the special tour indicator."
^DD(457.2,.01,"DT")="2940809"
^DD(457.2,1,0)="TYPE OF TIME^F^^0;2^K:$L(X)>2!($L(X)<2)!'(X?2U) X"
^DD(457.2,1,3)="Answer must be 2 uppercase characters in length."
^DD(457.2,1,21,0)="^^1^1^2921104^"
^DD(457.2,1,21,1,0)="A two letter abbreviation for the special tour indicator."
^DD(457.2,1,"DT")="2920522"
^DD(457.2,2,0)="CODE^RNJ2,0X^^0;3^K:X'=DA X"
^DD(457.2,2,1,0)="^.1"
^DD(457.2,2,1,1,0)="457.2^D"
^DD(457.2,2,1,1,1)="S ^PRST(457.2,""D"",$E(X,1,30),DA)="""""
^DD(457.2,2,1,1,2)="K ^PRST(457.2,""D"",$E(X,1,30),DA)"
^DD(457.2,2,1,1,"DT")="2920723"
^DD(457.2,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(457.2,2,21,0)="^^1^1^2921104^"
^DD(457.2,2,21,1,0)="The numeric code that identifies the special tour indicator."
^DD(457.2,2,"DT")="2920723"
^DD(457.2,3,0)="LONG DESCRIPTION^F^^0;4^K:$L(X)>60!($L(X)<3) X"
^DD(457.2,3,3)="Answer must be 3-60 characters in length."
^DD(457.2,3,21,0)="^^1^1^2921104^"
^DD(457.2,3,21,1,0)="A free text response that describes the special tour indicator."
^DD(457.2,3,"DT")="2920117"
^DD(457.2,4,0)="UPPERCASE NAME^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(457.2,4,1,0)="^.1"
^DD(457.2,4,1,1,0)="457.2^C"
^DD(457.2,4,1,1,1)="S ^PRST(457.2,""C"",$E(X,1,30),DA)="""""
^DD(457.2,4,1,1,2)="K ^PRST(457.2,""C"",$E(X,1,30),DA)"
^DD(457.2,4,1,1,"DT")="2920128"
^DD(457.2,4,3)="Answer must be 3-20 characters in length."
^DD(457.2,4,5,1,0)="457.2^.01^3"
^DD(457.2,4,9)="^"
^DD(457.2,4,21,0)="^^1^1^2921104^"
^DD(457.2,4,21,1,0)="The name of the special tour indicator spelled out in uppercase letters."
^DD(457.2,4,"DT")="2920128"
^DD(457.2,5,0)="SHORT NAME^RF^^0;6^K:$L(X)>10!($L(X)<3) X"
^DD(457.2,5,3)="Answer must be 3-10 characters in length."
^DD(457.2,5,21,0)="^^1^1^2931005^"
^DD(457.2,5,21,1,0)="This is a short name to be displayed when posting time segments."
^DD(457.2,5,"DT")="2931005"
^DD(457.2,"B","CODE",2)=""
^DD(457.2,"B","LONG DESCRIPTION",3)=""
^DD(457.2,"B","NAME",.01)=""
^DD(457.2,"B","SHORT NAME",5)=""
^DD(457.2,"B","TYPE OF TIME",1)=""
^DD(457.2,"B","UPPERCASE NAME",4)=""
^DD(457.2,"GL",0,1,.01)=""
^DD(457.2,"GL",0,2,1)=""
^DD(457.2,"GL",0,3,2)=""
^DD(457.2,"GL",0,4,3)=""
^DD(457.2,"GL",0,5,4)=""
^DD(457.2,"GL",0,6,5)=""
^DD(457.2,"IX",.01)=""
^DD(457.2,"IX",2)=""
^DD(457.2,"IX",4)=""
^DD(457.2,"RQ",.01)=""
^DD(457.2,"RQ",2)=""
^DD(457.2,"RQ",5)=""
^DD(457.3,0)="FIELD^^2^3"
^DD(457.3,0,"DT")="2920605"
^DD(457.3,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(457.3,0,"IX","B",457.3,.01)=""
^DD(457.3,0,"NM","TYPE OF TIME")=""
^DD(457.3,0,"VR")="4.0"
^DD(457.3,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(457.3,.01,1,0)="^.1"
^DD(457.3,.01,1,1,0)="457.3^B"
^DD(457.3,.01,1,1,1)="S ^PRST(457.3,""B"",$E(X,1,30),DA)="""""
^DD(457.3,.01,1,1,2)="K ^PRST(457.3,""B"",$E(X,1,30),DA)"
^DD(457.3,.01,3)="Answer must be 2 characters in length."
^DD(457.3,.01,21,0)="^^2^2^2921105^"
^DD(457.3,.01,21,1,0)="The two character code that identifies a type of time used in time card"
^DD(457.3,.01,21,2,0)="posting."
^DD(457.3,.01,"DT")="2920117"
^DD(457.3,1,0)="SHORT DESCRIPTION^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(457.3,1,3)="Answer must be 1-10 characters in length."
^DD(457.3,1,21,0)="^^1^1^2921105^"
^DD(457.3,1,21,1,0)="A short description of the type of time used in time card posting."
^DD(457.3,1,"DT")="2920117"
^DD(457.3,2,0)="LONG DESCRIPTION^F^^0;3^K:$L(X)>50!($L(X)<3) X"
^DD(457.3,2,3)="Answer must be 3-50 characters in length."
^DD(457.3,2,21,0)="^^1^1^2921105^"
^DD(457.3,2,21,1,0)="The full description of the type of time used in time card posting."
^DD(457.3,2,"DT")="2920117"
^DD(457.3,"B","CODE",.01)=""
^DD(457.3,"B","LONG DESCRIPTION",2)=""
^DD(457.3,"B","SHORT DESCRIPTION",1)=""
^DD(457.3,"GL",0,1,.01)=""
^DD(457.3,"GL",0,2,1)=""
^DD(457.3,"GL",0,3,2)=""
^DD(457.3,"IX",.01)=""
^DD(457.3,"RQ",.01)=""
^DD(457.4,0)="FIELD^^5^4"
^DD(457.4,0,"DT")="2920723"
^DD(457.4,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(457.4,0,"IX","B",457.4,.01)=""
^DD(457.4,0,"IX","C",457.4,1)=""
^DD(457.4,0,"IX","D",457.4,4)=""
^DD(457.4,0,"NM","TIME REMARKS")=""
^DD(457.4,0,"PT",458.02,44)=""
^DD(457.4,0,"PT",458.02,48)=""
^DD(457.4,0,"PT",458.02,52)=""
^DD(457.4,0,"PT",458.02,56)=""
^DD(457.4,0,"PT",458.02,60)=""
^DD(457.4,0,"PT",458.02,64)=""
^DD(457.4,0,"PT",458.02,68)=""
^DD(457.4,0,"PT",458.02,113)=""
^DD(457.4,0,"PT",458.02,118)=""
^DD(457.4,0,"PT",458.02,123)=""
^DD(457.4,0,"PT",458.02,128)=""
^DD(457.4,0,"PT",458.02,133)=""
^DD(457.4,0,"PT",458.02,138)=""
^DD(457.4,0,"PT",458.02,143)=""
^DD(457.4,0,"VR")="4.0"
^DD(457.4,.01,0)="DESCRIPTION^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<1) X"
^DD(457.4,.01,1,0)="^.1"
^DD(457.4,.01,1,1,0)="457.4^B"
^DD(457.4,.01,1,1,1)="S ^PRST(457.4,""B"",$E(X,1,30),DA)="""""
^DD(457.4,.01,1,1,2)="K ^PRST(457.4,""B"",$E(X,1,30),DA)"
^DD(457.4,.01,1,2,0)="^^TRIGGER^457.4^4"
^DD(457.4,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(457.4,.01,1,2,1.1) X ^DD(457.4,.01,1,2,1.4)"
^DD(457.4,.01,1,2,1.1)="S X=DIV S X=DIV X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"""
^DD(457.4,.01,1,2,1.4)="S DIH=$S($D(^PRST(457.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=457.4,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(457.4,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRST(457.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(457.4,.01,1,2,2.4)"
^DD(457.4,.01,1,2,2.4)="S DIH=$S($D(^PRST(457.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=457.4,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(457.4,.01,1,2,"CREATE VALUE")="UPPERCASE(DESCRIPTION)"
^DD(457.4,.01,1,2,"DELETE VALUE")="@"
^DD(457.4,.01,1,2,"DT")="2920723"
^DD(457.4,.01,1,2,"FIELD")="UPPERCASE NAME"
^DD(457.4,.01,3)="Answer must be 1-25 characters in length."
^DD(457.4,.01,21,0)="^^1^1^2921105^"
^DD(457.4,.01,21,1,0)="A description of the time remark."
^DD(457.4,.01,"DT")="2920723"
^DD(457.4,1,0)="CODE^RNJ2,0X^^0;2^K:X'=DA X"
^DD(457.4,1,1,0)="^.1"
^DD(457.4,1,1,1,0)="457.4^C"
^DD(457.4,1,1,1,1)="S ^PRST(457.4,""C"",$E(X,1,30),DA)="""""
^DD(457.4,1,1,1,2)="K ^PRST(457.4,""C"",$E(X,1,30),DA)"
^DD(457.4,1,1,1,"DT")="2920414"
^DD(457.4,1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(457.4,1,21,0)="^^1^1^2921105^"
^DD(457.4,1,21,1,0)="A numeric code that identifies the time remark."
^DD(457.4,1,"DT")="2920414"
^DD(457.4,4,0)="UPPERCASE NAME^RF^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(457.4,4,1,0)="^.1"
^DD(457.4,4,1,1,0)="457.4^D"
^DD(457.4,4,1,1,1)="S ^PRST(457.4,""D"",$E(X,1,30),DA)="""""
^DD(457.4,4,1,1,2)="K ^PRST(457.4,""D"",$E(X,1,30),DA)"
^DD(457.4,4,1,1,"DT")="2920723"
^DD(457.4,4,3)="Answer must be 3-30 characters in length."
^DD(457.4,4,5,1,0)="457.4^.01^2"
^DD(457.4,4,9)="^"
^DD(457.4,4,21,0)="^^1^1^2921105^"
^DD(457.4,4,21,1,0)="The DESCRIPTION field of the time remark displayed in uppercase letters."
^DD(457.4,4,"DT")="2920723"
^DD(457.4,5,0)="APPLICABLE TYPES OF TIME^F^^0;3^K:$L(X)>40!($L(X)<2) X"
^DD(457.4,5,3)="Answer must be 2-40 characters in length."
^DD(457.4,5,21,0)="^^2^2^2921105^"
^DD(457.4,5,21,1,0)="A character string containing the two letter codes, separated by a space,"
^DD(457.4,5,21,2,0)="for the type of time associated with this time remark."
^DD(457.4,5,"DT")="2920721"
^DD(457.4,"B","APPLICABLE TYPES OF TIME",5)=""
^DD(457.4,"B","CODE",1)=""
^DD(457.4,"B","DESCRIPTION",.01)=""
^DD(457.4,"B","UPPERCASE NAME",4)=""
^DD(457.4,"GL",0,1,.01)=""
^DD(457.4,"GL",0,2,1)=""
^DD(457.4,"GL",0,3,5)=""
^DD(457.4,"GL",0,4,4)=""
^DD(457.4,"IX",.01)=""
^DD(457.4,"IX",1)=""
^DD(457.4,"IX",4)=""
^DD(457.4,"RQ",.01)=""
^DD(457.4,"RQ",1)=""
^DD(457.4,"RQ",4)=""
^DD(457.5,0)="FIELD^^20^3"
^DD(457.5,0,"DT")="2920601"
^DD(457.5,0,"IX","AC",457.5,1)=""
^DD(457.5,0,"IX","B",457.5,.01)=""
^DD(457.5,0,"NM","PAY ENTITLEMENT")=""
^DD(457.5,0,"PT",458.01,4)=""
^DD(457.5,0,"VR")="4.0"
^DD(457.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<5) X"
^DD(457.5,.01,1,0)="^.1"
^DD(457.5,.01,1,1,0)="457.5^B"
^DD(457.5,.01,1,1,1)="S ^PRST(457.5,""B"",$E(X,1,30),DA)="""""
^DD(457.5,.01,1,1,2)="K ^PRST(457.5,""B"",$E(X,1,30),DA)"
^DD(457.5,.01,3)="Answer must be 5-30 characters in length."
^DD(457.5,.01,21,0)="^^1^1^2921105^"
^DD(457.5,.01,21,1,0)="The name of the pay entitlement character string."
^DD(457.5,.01,"DT")="2920601"
^DD(457.5,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3) X"
^DD(457.5,1,1,0)="^.1"
^DD(457.5,1,1,1,0)="457.5^AC"
^DD(457.5,1,1,1,1)="S ^PRST(457.5,""AC"",$E(X,1,30),DA)="""""
^DD(457.5,1,1,1,2)="K ^PRST(457.5,""AC"",$E(X,1,30),DA)"
^DD(457.5,1,1,1,"DT")="2920420"
^DD(457.5,1,3)="Answer must be 3-4 characters in length."
^DD(457.5,1,21,0)="^^1^1^2921105^"
^DD(457.5,1,21,1,0)="A code that identifies the pay entitlement string."
^DD(457.5,1,"DT")="2920420"
^DD(457.5,20,0)="ENTITLEMENT STRING^RF^^1;1^K:$L(X)>50!($L(X)<38) X"
^DD(457.5,20,3)="Answer must be 38-50 characters in length."
^DD(457.5,20,21,0)="^^1^1^2921105^"
^DD(457.5,20,21,1,0)="The pay entitlement character string."
^DD(457.5,20,"DT")="2920420"
^DD(457.5,"B","CODE",1)=""
^DD(457.5,"B","ENTITLEMENT STRING",20)=""
^DD(457.5,"B","NAME",.01)=""
^DD(457.5,"GL",0,1,.01)=""
^DD(457.5,"GL",0,2,1)=""
^DD(457.5,"GL",1,1,20)=""
^DD(457.5,"IX",.01)=""
^DD(457.5,"IX",1)=""
^DD(457.5,"RQ",.01)=""
^DD(457.5,"RQ",1)=""
^DD(457.5,"RQ",20)=""
^DD(457.6,0)="FIELD^^2^3"
^DD(457.6,0,"DT")="2920818"
^DD(457.6,0,"IX","B",457.6,.01)=""
^DD(457.6,0,"NM","ENVIRONMENTAL DIFFERENTIALS")=""
^DD(457.6,0,"PT",458.01,60)=""
^DD(457.6,0,"PT",458.01,62)=""
^DD(457.6,0,"PT",458.01,64)=""
^DD(457.6,0,"PT",458.01,66)=""
^DD(457.6,0,"PT",458.01,68)=""
^DD(457.6,0,"PT",458.01,70)=""
^DD(457.6,0,"PT",458.3,6)=""
^DD(457.6,0,"VR")="4.0"
^DD(457.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(457.6,.01,1,0)="^.1"
^DD(457.6,.01,1,1,0)="457.6^B"
^DD(457.6,.01,1,1,1)="S ^PRST(457.6,""B"",$E(X,1,30),DA)="""""
^DD(457.6,.01,1,1,2)="K ^PRST(457.6,""B"",$E(X,1,30),DA)"
^DD(457.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(457.6,.01,21,0)="^^2^2^2921105^"
^DD(457.6,.01,21,1,0)="The name of the hazard or environmental danger for which differential pay"
^DD(457.6,.01,21,2,0)="is approved."
^DD(457.6,1,0)="HAZARD/ENVIR. DIFF.^RS^H:HAZARD;E:ENVIR. DIFF.;^0;2^Q"
^DD(457.6,1,21,0)="^^1^1^2921105^"
^DD(457.6,1,21,1,0)="Identifies the reason for the differential pay."
^DD(457.6,1,"DT")="2920818"
^DD(457.6,2,0)="PREMIUM %^RNJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(457.6,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(457.6,2,21,0)="^^1^1^2921105^"
^DD(457.6,2,21,1,0)="The percentage rate of the differential pay."
^DD(457.6,2,"DT")="2920818"
^DD(457.6,"B","HAZARD/ENVIR. DIFF.",1)=""
^DD(457.6,"B","NAME",.01)=""
^DD(457.6,"B","PREMIUM %",2)=""
^DD(457.6,"GL",0,1,.01)=""
^DD(457.6,"GL",0,2,1)=""
^DD(457.6,"GL",0,3,2)=""
^DD(457.6,"IX",.01)=""
^DD(457.6,"RQ",.01)=""
^DD(457.6,"RQ",1)=""
^DD(457.6,"RQ",2)=""
^DD(458,0)="FIELD^^50^35"
^DD(458,0,"DDA")="N"
^DD(458,0,"DT")="2951129"
^DD(458,0,"IX","AB",458,.01)=""
^DD(458,0,"IX","AD1",458,10)=""
^DD(458,0,"IX","AD10",458,19)=""
^DD(458,0,"IX","AD11",458,20)=""
^DD(458,0,"IX","AD12",458,21)=""
^DD(458,0,"IX","AD13",458,22)=""
^DD(458,0,"IX","AD14",458,23)=""
^DD(458,0,"IX","AD2",458,11)=""
^DD(458,0,"IX","AD3",458,12)=""
^DD(458,0,"IX","AD4",458,13)=""
^DD(458,0,"IX","AD5",458,14)=""
^DD(458,0,"IX","AD6",458,15)=""
^DD(458,0,"IX","AD7",458,16)=""
^DD(458,0,"IX","AD8",458,17)=""
^DD(458,0,"IX","AD9",458,18)=""
^DD(458,0,"IX","ATC",458.02,4)=""
^DD(458,0,"IX","AX",458.1101,4)=""
^DD(458,0,"IX","B",458,.01)=""
^DD(458,0,"NM","TIME & ATTENDANCE RECORDS")=""
^DD(458,0,"PT",458.6,2)=""
^DD(458,0,"VR")="4.0"
^DD(458,.01,0)="PAY PERIOD^RFX^^0;1^K:$L(X)>5!($L(X)<5)!'(X'?1P.E) X"
^DD(458,.01,1,0)="^.1"
^DD(458,.01,1,1,0)="458^B"
^DD(458,.01,1,1,1)="S ^PRST(458,""B"",$E(X,1,30),DA)="""""
^DD(458,.01,1,1,2)="K ^PRST(458,""B"",$E(X,1,30),DA)"
^DD(458,.01,1,2,0)="458^AB^MUMPS"
^DD(458,.01,1,2,1)="S ^PRST(458,""AB"",$$IC^PRSAPPU($P(X,""-""),4,10,)_""-""_$P(X,""-"",2),DA)="""""
^DD(458,.01,1,2,2)="K ^PRST(458,""AB"",$$IC^PRSAPPU($P(X,""-""),4,10,)_""-""_$P(X,""-"",2),DA)"
^DD(458,.01,1,2,"%D",0)="^^15^15^2980206^^^^"
^DD(458,.01,1,2,"%D",1,0)="  This cross reference contains the 4 digit year associated with"
^DD(458,.01,1,2,"%D",2,0)="the .01 fields 2 digit year and pay period #.  The cross"
^DD(458,.01,1,2,"%D",3,0)="reference allows chronological sorting accross centuries.  This"
^DD(458,.01,1,2,"%D",4,0)="is in contrast to the ""B"" x-ref which contains a 2 digit year"
^DD(458,.01,1,2,"%D",5,0)="and does not sort chronologically accross new centuries. "
^DD(458,.01,1,2,"%D",6,0)=""
^DD(458,.01,1,2,"%D",7,0)="  The function call IC^PRSAPPU() infers a four digit year from"
^DD(458,.01,1,2,"%D",8,0)="the 2 digit year of the .01 field.  The inference is based upon"
^DD(458,.01,1,2,"%D",9,0)="the parameters passed to the function.  Namely, a future pivot"
^DD(458,.01,1,2,"%D",10,0)="year (parameter #3 - # of years from base date) is used to"
^DD(458,.01,1,2,"%D",11,0)="determine the end of the 100 year range that are valid for"
^DD(458,.01,1,2,"%D",12,0)="selection of the matching 4 digit year.  The number of years in "
^DD(458,.01,1,2,"%D",13,0)="parameter 4 are added to the base date (parameter 4 - default of today) "
^DD(458,.01,1,2,"%D",14,0)="to determine the end of this range.  Parameter #2 is the format "
^DD(458,.01,1,2,"%D",15,0)="of the year returned (e.g. 4 returns a 4 digit year)."
^DD(458,.01,1,2,"DT")="2980206"
^DD(458,.01,3)="Answer must be 5 characters in length."
^DD(458,.01,21,0)="^^3^3^2980112^^^^"
^DD(458,.01,21,1,0)="The year and pay period for the time and attendance records in the format"
^DD(458,.01,21,2,0)="of the last two digits of the year, a hyphen, and the two digit pay"
^DD(458,.01,21,3,0)="period number (e.g., 92-26 for 1992 and pay period 26)."
^DD(458,.01,"DT")="2980206"
^DD(458,1,0)="EMPLOYEE^458.01P^^E;0"
^DD(458,1,21,0)="^^2^2^2941202^^"
^DD(458,1,21,1,0)="Contains the time card data associated with the employee for this"
^DD(458,1,21,2,0)="pay period."
^DD(458,1,"DT")="2920826"
^DD(458,2,0)="TRANSMITTING CLERK^RP200'^VA(200,^0;2^Q"
^DD(458,2,21,0)="^^3^3^2921116^"
^DD(458,2,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the payroll"
^DD(458,2,21,2,0)="person performing the transmission of the pay period data to the Austin"
^DD(458,2,21,3,0)="Automation Center."
^DD(458,2,"DT")="2920928"
^DD(458,3,0)="TRANSMITTING DATE/TIME^RD^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458,3,21,0)="^^2^2^2921117^"
^DD(458,3,21,1,0)="The date and time of the transmission of pay period data to the Austin"
^DD(458,3,21,2,0)="Automation Center."
^DD(458,3,"DT")="2920928"
^DD(458,4,0)="TOTAL # EMPLOYEES TRANSMITTED^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(458,4,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(458,4,21,0)="^^1^1^2921117^"
^DD(458,4,21,1,0)="The total number of employees for whom 8B records have been transmitted."
^DD(458,4,"DT")="2921009"
^DD(458,5,0)="TOTAL # RECORDS TRANSMITTED^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(458,5,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(458,5,21,0)="^^1^1^2921117^"
^DD(458,5,21,1,0)="The total number of 8B records that have been transmitted."
^DD(458,5,"DT")="2921009"
^DD(458,10,0)="DATE 1^RD^^1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,10,1,0)="^.1"
^DD(458,10,1,1,0)="458^AD1^MUMPS"
^DD(458,10,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^1"""
^DD(458,10,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,10,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,10,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,10,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,10,1,1,"DT")="2920520"
^DD(458,10,21,0)="^^1^1^2921113^"
^DD(458,10,21,1,0)="The date of the first day of the pay period stored in FileMan format."
^DD(458,10,"DT")="2920520"
^DD(458,11,0)="DATE 2^RD^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,11,1,0)="^.1"
^DD(458,11,1,1,0)="458^AD2^MUMPS"
^DD(458,11,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^2"""
^DD(458,11,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,11,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,11,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,11,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,11,1,1,"DT")="2920520"
^DD(458,11,3)=""
^DD(458,11,21,0)="^^1^1^2921113^"
^DD(458,11,21,1,0)="The date of the second day of the pay period stored in FileMan format."
^DD(458,11,"DT")="2920520"
^DD(458,12,0)="DATE 3^RD^^1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,12,1,0)="^.1"
^DD(458,12,1,1,0)="458^AD3^MUMPS"
^DD(458,12,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^3"""
^DD(458,12,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,12,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,12,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,12,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,12,1,1,"DT")="2920520"
^DD(458,12,3)=""
^DD(458,12,21,0)="^^1^1^2921113^"
^DD(458,12,21,1,0)="The date of the third day of the pay period stored in FileMan format."
^DD(458,12,"DT")="2920227"
^DD(458,13,0)="DATE 4^RD^^1;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,13,1,0)="^.1"
^DD(458,13,1,1,0)="458^AD4^MUMPS"
^DD(458,13,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^4"""
^DD(458,13,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,13,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,13,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,13,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,13,1,1,"DT")="2920520"
^DD(458,13,3)=""
^DD(458,13,21,0)="^^1^1^2921113^"
^DD(458,13,21,1,0)="The date of the fourth day of the pay period stored in FileMan format."
^DD(458,13,"DT")="2920227"
^DD(458,14,0)="DATE 5^RD^^1;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,14,1,0)="^.1"
^DD(458,14,1,1,0)="458^AD5^MUMPS"
^DD(458,14,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^5"""
^DD(458,14,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,14,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,14,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,14,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,14,1,1,"DT")="2920520"
^DD(458,14,3)=""
^DD(458,14,21,0)="^^1^1^2921113^"
^DD(458,14,21,1,0)="The date of the fifth day of the pay period stored in FileMan format."
^DD(458,14,"DT")="2920227"
^DD(458,15,0)="DATE 6^RD^^1;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,15,1,0)="^.1"
^DD(458,15,1,1,0)="458^AD6^MUMPS"
^DD(458,15,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^6"""
^DD(458,15,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,15,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,15,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,15,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,15,1,1,"DT")="2920520"
^DD(458,15,3)=""
^DD(458,15,21,0)="^^1^1^2921113^"
^DD(458,15,21,1,0)="The date of the sixth day of the pay period stored in FileMan format."
^DD(458,15,"DT")="2920227"
^DD(458,16,0)="DATE 7^RD^^1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,16,1,0)="^.1"
^DD(458,16,1,1,0)="458^AD7^MUMPS"
^DD(458,16,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^7"""
^DD(458,16,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,16,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,16,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,16,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,16,1,1,"DT")="2920520"
^DD(458,16,3)=""
^DD(458,16,21,0)="^^1^1^2921113^"
^DD(458,16,21,1,0)="The date of the seventh day of the pay period stored in FileMan format."
^DD(458,16,"DT")="2920227"
^DD(458,17,0)="DATE 8^RD^^1;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,17,1,0)="^.1"
^DD(458,17,1,1,0)="458^AD8^MUMPS"
^DD(458,17,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^8"""
^DD(458,17,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,17,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,17,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,17,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,17,1,1,"DT")="2920520"
^DD(458,17,3)=""
^DD(458,17,21,0)="^^1^1^2921113^"
^DD(458,17,21,1,0)="The date of the eighth day of the pay period stored in FileMan format."
^DD(458,17,"DT")="2920227"
^DD(458,18,0)="DATE 9^RD^^1;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,18,1,0)="^.1"
^DD(458,18,1,1,0)="458^AD9^MUMPS"
^DD(458,18,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^9"""
^DD(458,18,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,18,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,18,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,18,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,18,1,1,"DT")="2920520"
^DD(458,18,3)=""
^DD(458,18,21,0)="^^1^1^2921113^"
^DD(458,18,21,1,0)="The date of the ninth day of the pay period stored in FileMan format."
^DD(458,18,"DT")="2920227"
^DD(458,19,0)="DATE 10^RD^^1;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,19,1,0)="^.1"
^DD(458,19,1,1,0)="458^AD10^MUMPS"
^DD(458,19,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^10"""
^DD(458,19,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,19,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,19,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,19,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,19,1,1,"DT")="2920520"
^DD(458,19,3)=""
^DD(458,19,21,0)="^^1^1^2921113^"
^DD(458,19,21,1,0)="The date of the tenth day of the pay period stored in FileMan format."
^DD(458,19,"DT")="2920227"
^DD(458,20,0)="DATE 11^RD^^1;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,20,1,0)="^.1"
^DD(458,20,1,1,0)="458^AD11^MUMPS"
^DD(458,20,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^11"""
^DD(458,20,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,20,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,20,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,20,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,20,1,1,"DT")="2920520"
^DD(458,20,3)=""
^DD(458,20,21,0)="^^1^1^2921113^"
^DD(458,20,21,1,0)="The date of the eleventh day of the pay period stored in FileMan format."
^DD(458,20,"DT")="2920227"
^DD(458,21,0)="DATE 12^RD^^1;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,21,1,0)="^.1"
^DD(458,21,1,1,0)="458^AD12^MUMPS"
^DD(458,21,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^12"""
^DD(458,21,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,21,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,21,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,21,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,21,1,1,"DT")="2920520"
^DD(458,21,3)=""
^DD(458,21,21,0)="^^1^1^2921113^"
^DD(458,21,21,1,0)="The date of the twelfth day of the pay period stored in FileMan format."
^DD(458,21,"DT")="2920227"
^DD(458,22,0)="DATE 13^RD^^1;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,22,1,0)="^.1"
^DD(458,22,1,1,0)="458^AD13^MUMPS"
^DD(458,22,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^13"""
^DD(458,22,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,22,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,22,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,22,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,22,1,1,"DT")="2920520"
^DD(458,22,3)=""
^DD(458,22,21,0)="^^1^1^2921113^"
^DD(458,22,21,1,0)="The date of the thirteenth day of the pay period stored in FileMan format."
^DD(458,22,"DT")="2920227"
^DD(458,23,0)="DATE 14^RD^^1;14^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458,23,1,0)="^.1"
^DD(458,23,1,1,0)="458^AD14^MUMPS"
^DD(458,23,1,1,1)="S ^PRST(458,""AD"",X)=DA_""^14"""
^DD(458,23,1,1,2)="K ^PRST(458,""AD"",X)"
^DD(458,23,1,1,"%D",0)="^^2^2^2940524^"
^DD(458,23,1,1,"%D",1,0)="This cross-reference allows a program to determine the payperiod^day number"
^DD(458,23,1,1,"%D",2,0)="by looking up a specific date in the AD cross-reference."
^DD(458,23,1,1,"DT")="2920520"
^DD(458,23,3)=""
^DD(458,23,21,0)="^^1^1^2921113^"
^DD(458,23,21,1,0)="The date of the fourteenth day of the pay period stored in FileMan format."
^DD(458,23,"DT")="2920227"
^DD(458,30,0)="PRINT DATE 1^RF^^2;1^K:$L(X)>13!($L(X)<13) X"
^DD(458,30,3)="Answer must be 13 characters in length."
^DD(458,30,21,0)="^^1^1^2921113^"
^DD(458,30,21,1,0)="The date of the first day of the pay period stored in a printable format."
^DD(458,30,"DT")="2920227"
^DD(458,31,0)="PRINT DATE 2^RF^^2;2^K:$L(X)>13!($L(X)<13) X"
^DD(458,31,3)="Answer must be 13 characters in length."
^DD(458,31,21,0)="^^1^1^2921113^"
^DD(458,31,21,1,0)="The date of the second day of the pay period stored in a printable format."
^DD(458,31,"DT")="2920227"
^DD(458,32,0)="PRINT DATE 3^RF^^2;3^K:$L(X)>13!($L(X)<13) X"
^DD(458,32,3)="Answer must be 13 characters in length."
^DD(458,32,21,0)="^^1^1^2921113^"
^DD(458,32,21,1,0)="The date of the third day of the pay period stored in a printable format."
^DD(458,32,"DT")="2920227"
^DD(458,33,0)="PRINT DATE 4^RF^^2;4^K:$L(X)>13!($L(X)<13) X"
^DD(458,33,3)="Answer must be 13 characters in length."
^DD(458,33,21,0)="^^1^1^2921113^"
^DD(458,33,21,1,0)="The date of the fourth day of the pay period stored in a printable format."
^DD(458,33,"DT")="2920227"
^DD(458,34,0)="PRINT DATE 5^RF^^2;5^K:$L(X)>13!($L(X)<13) X"
^DD(458,34,3)="Answer must be 13 characters in length."
^DD(458,34,21,0)="^^1^1^2921113^"
^DD(458,34,21,1,0)="The date of the fifth day of the pay period stored in a printable format."
^DD(458,34,"DT")="2920227"
^DD(458,35,0)="PRINT DATE 6^RF^^2;6^K:$L(X)>13!($L(X)<13) X"
^DD(458,35,3)="Answer must be 13 characters in length."
^DD(458,35,21,0)="^^1^1^2921113^"
^DD(458,35,21,1,0)="The date of the sixth day of the pay period stored in a printable format."
^DD(458,35,"DT")="2920227"
^DD(458,36,0)="PRINT DATE 7^RF^^2;7^K:$L(X)>13!($L(X)<13) X"
^DD(458,36,3)="Answer must be 13 characters in length."
^DD(458,36,21,0)="^^1^1^2921113^"
^DD(458,36,21,1,0)="The date of the seventh day of the pay period stored in a printable format."
^DD(458,36,"DT")="2920227"
^DD(458,37,0)="PRINT DATE 8^RF^^2;8^K:$L(X)>13!($L(X)<13) X"
^DD(458,37,3)="Answer must be 13 characters in length."
^DD(458,37,21,0)="^^1^1^2921113^"
^DD(458,37,21,1,0)="The date of the eighth day of the pay period stored in a printable format."
^DD(458,37,"DT")="2920227"
^DD(458,38,0)="PRINT DATE 9^RF^^2;9^K:$L(X)>13!($L(X)<13) X"
^DD(458,38,3)="Answer must be 13 characters in length."
^DD(458,38,21,0)="^^1^1^2921113^"
^DD(458,38,21,1,0)="The date of the ninth day of the pay period stored in a printable format."
^DD(458,38,"DT")="2920227"
^DD(458,39,0)="PRINT DATE 10^RF^^2;10^K:$L(X)>13!($L(X)<13) X"
^DD(458,39,3)="Answer must be 13 characters in length."
^DD(458,39,21,0)="^^1^1^2921113^"
^DD(458,39,21,1,0)="The date of the tenth day of the pay period stored in a printable format."
^DD(458,39,"DT")="2920227"
^DD(458,40,0)="PRINT DATE 11^RF^^2;11^K:$L(X)>13!($L(X)<13) X"
^DD(458,40,3)="Answer must be 13 characters in length."
^DD(458,40,21,0)="^^2^2^2921113^"
^DD(458,40,21,1,0)="The date of the eleventh day of the pay period stored in a printable"
^DD(458,40,21,2,0)="format."
^DD(458,40,"DT")="2920227"
^DD(458,41,0)="PRINT DATE 12^RF^^2;12^K:$L(X)>13!($L(X)<13) X"
^DD(458,41,3)="Answer must be 13 characters in length."
^DD(458,41,21,0)="^^1^1^2921113^"
^DD(458,41,21,1,0)="The date of the twelfth day of the pay period stored in a printable format."
^DD(458,41,"DT")="2920227"
^DD(458,42,0)="PRINT DATE 13^RF^^2;13^K:$L(X)>13!($L(X)<13) X"
^DD(458,42,3)="Answer must be 13 characters in length."
^DD(458,42,21,0)="^^2^2^2921113^"
^DD(458,42,21,1,0)="The date of the thirteenth day of the pay period stored in a printable"
^DD(458,42,21,2,0)="format."
^DD(458,42,"DT")="2920227"
^DD(458,43,0)="PRINT DATE 14^RF^^2;14^K:$L(X)>13!($L(X)<13) X"
^DD(458,43,3)="Answer must be 13 characters in length."
^DD(458,43,21,0)="^^2^2^2921113^"
^DD(458,43,21,1,0)="The date of the fourteenth day of the pay period stored in a printable"
^DD(458,43,21,2,0)="format."
^DD(458,43,"DT")="2920227"
^DD(458,50,0)="MESSAGES TRANSMITTED^458.03PA^^X;0"
^DD(458,50,21,0)="^^2^2^2921116^"
^DD(458,50,21,1,0)="This multiple field contains a list of the mail message numbers generated"
^DD(458,50,21,2,0)="during all transmissions."
^DD(458,"B","DATE 1",10)=""
^DD(458,"B","DATE 10",19)=""
^DD(458,"B","DATE 11",20)=""
^DD(458,"B","DATE 12",21)=""
^DD(458,"B","DATE 13",22)=""
^DD(458,"B","DATE 14",23)=""
^DD(458,"B","DATE 2",11)=""
^DD(458,"B","DATE 3",12)=""
^DD(458,"B","DATE 4",13)=""
^DD(458,"B","DATE 5",14)=""
^DD(458,"B","DATE 6",15)=""
^DD(458,"B","DATE 7",16)=""
^DD(458,"B","DATE 8",17)=""
^DD(458,"B","DATE 9",18)=""
^DD(458,"B","EMPLOYEE",1)=""
^DD(458,"B","MESSAGES TRANSMITTED",50)=""
^DD(458,"B","PAY PERIOD",.01)=""
^DD(458,"B","PRINT DATE 1",30)=""
^DD(458,"B","PRINT DATE 10",39)=""
^DD(458,"B","PRINT DATE 11",40)=""
^DD(458,"B","PRINT DATE 12",41)=""
^DD(458,"B","PRINT DATE 13",42)=""
^DD(458,"B","PRINT DATE 14",43)=""
^DD(458,"B","PRINT DATE 2",31)=""
^DD(458,"B","PRINT DATE 3",32)=""
^DD(458,"B","PRINT DATE 4",33)=""
^DD(458,"B","PRINT DATE 5",34)=""
^DD(458,"B","PRINT DATE 6",35)=""
^DD(458,"B","PRINT DATE 7",36)=""
^DD(458,"B","PRINT DATE 8",37)=""
^DD(458,"B","PRINT DATE 9",38)=""
^DD(458,"B","TOTAL # EMPLOYEES TRANSMITTED",4)=""
^DD(458,"B","TOTAL # RECORDS TRANSMITTED",5)=""
^DD(458,"B","TRANSMITTING CLERK",2)=""
^DD(458,"B","TRANSMITTING DATE/TIME",3)=""
^DD(458,"GL",0,1,.01)=""
^DD(458,"GL",0,2,2)=""
^DD(458,"GL",0,3,3)=""
^DD(458,"GL",0,4,4)=""
^DD(458,"GL",0,5,5)=""
^DD(458,"GL",1,1,10)=""
^DD(458,"GL",1,2,11)=""
^DD(458,"GL",1,3,12)=""
^DD(458,"GL",1,4,13)=""
^DD(458,"GL",1,5,14)=""
^DD(458,"GL",1,6,15)=""
^DD(458,"GL",1,7,16)=""
^DD(458,"GL",1,8,17)=""
^DD(458,"GL",1,9,18)=""
^DD(458,"GL",1,10,19)=""
^DD(458,"GL",1,11,20)=""
^DD(458,"GL",1,12,21)=""
^DD(458,"GL",1,13,22)=""
^DD(458,"GL",1,14,23)=""
^DD(458,"GL",2,1,30)=""
^DD(458,"GL",2,2,31)=""
^DD(458,"GL",2,3,32)=""
^DD(458,"GL",2,4,33)=""
^DD(458,"GL",2,5,34)=""
^DD(458,"GL",2,6,35)=""
^DD(458,"GL",2,7,36)=""
^DD(458,"GL",2,8,37)=""
^DD(458,"GL",2,9,38)=""
^DD(458,"GL",2,10,39)=""
^DD(458,"GL",2,11,40)=""
^DD(458,"GL",2,12,41)=""
^DD(458,"GL",2,13,42)=""
^DD(458,"GL",2,14,43)=""
^DD(458,"GL","E",0,1)=""
^DD(458,"GL","X",0,50)=""
^DD(458,"IX",.01)=""
^DD(458,"IX",10)=""
^DD(458,"IX",11)=""
^DD(458,"IX",12)=""
^DD(458,"IX",13)=""
^DD(458,"IX",14)=""
^DD(458,"IX",15)=""
^DD(458,"IX",16)=""
^DD(458,"IX",17)=""
^DD(458,"IX",18)=""
^DD(458,"IX",19)=""
^DD(458,"IX",20)=""
^DD(458,"IX",21)=""
^DD(458,"IX",22)=""
^DD(458,"IX",23)=""
^DD(458,"RQ",.01)=""
^DD(458,"RQ",2)=""
^DD(458,"RQ",3)=""
^DD(458,"RQ",10)=""
^DD(458,"RQ",11)=""
^DD(458,"RQ",12)=""
^DD(458,"RQ",13)=""
^DD(458,"RQ",14)=""
^DD(458,"RQ",15)=""
^DD(458,"RQ",16)=""
^DD(458,"RQ",17)=""
^DD(458,"RQ",18)=""
^DD(458,"RQ",19)=""
^DD(458,"RQ",20)=""
^DD(458,"RQ",21)=""
^DD(458,"RQ",22)=""
^DD(458,"RQ",23)=""
^DD(458,"RQ",30)=""
^DD(458,"RQ",31)=""
^DD(458,"RQ",32)=""
^DD(458,"RQ",33)=""
^DD(458,"RQ",34)=""
^DD(458,"RQ",35)=""
^DD(458,"RQ",36)=""
^DD(458,"RQ",37)=""
^DD(458,"RQ",38)=""
^DD(458,"RQ",39)=""
^DD(458,"RQ",40)=""
^DD(458,"RQ",41)=""
^DD(458,"RQ",42)=""
^DD(458,"RQ",43)=""
^DD(458,"SB",458.01,1)=""
^DD(458,"SB",458.03,50)=""
^DD(458.01,0)="EMPLOYEE SUB-FIELD^^214^67"
^DD(458.01,0,"DT")="2951129"
^DD(458.01,0,"NM","EMPLOYEE")=""
^DD(458.01,0,"UP")="458"
^DD(458.01,.01,0)="EMPLOYEE^P450'X^PRSPC(^0;1^I $D(X) S DINUM=X"
^DD(458.01,.01,1,0)="^.1^^0"
^DD(458.01,.01,21,0)="^^2^2^2921105^"
^DD(458.01,.01,21,1,0)="A pointer to the PAID EMPLOYEE file (#450) which identifies the name of"
^DD(458.01,.01,21,2,0)="the employee."
^DD(458.01,.01,"DT")="2920221"
^DD(458.01,1,0)="STATUS^S^P:RELEASED TO PAYROLL;X:XMITTED;T:TIMEKEEPER;^0;2^Q"
^DD(458.01,1,1,0)="^.1^^0"
^DD(458.01,1,21,0)="^^1^1^2921105^"
^DD(458.01,1,21,1,0)="The processing status of this employee's time card."
^DD(458.01,1,"DT")="2930119"
^DD(458.01,2,0)="APP. SUPERVISOR^P200'^VA(200,^0;3^Q"
^DD(458.01,2,21,0)="^^2^2^2921105^"
^DD(458.01,2,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the name of the"
^DD(458.01,2,21,2,0)="supervisor who approves the employee's time card."
^DD(458.01,2,"DT")="2920812"
^DD(458.01,3,0)="APP. DATE/TIME^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.01,3,21,0)="^^1^1^2921105^"
^DD(458.01,3,21,1,0)="The date and time the supervisor approved the employee's time card."
^DD(458.01,3,"DT")="2921127"
^DD(458.01,4,0)="ENTITLEMENT^P457.5'^PRST(457.5,^0;5^Q"
^DD(458.01,4,21,0)="^^4^4^2921127^"
^DD(458.01,4,21,1,0)="This is a pointer to the Entitlement File and represents the"
^DD(458.01,4,21,2,0)="Entitlement at the time the initial time decomposition is done."
^DD(458.01,4,21,3,0)="It is used, if necessary, for time decomposition of prior"
^DD(458.01,4,21,4,0)="pay period adjustments."
^DD(458.01,4,"DT")="2921127"
^DD(458.01,5,0)="CUR. PP COMPRESSED INDICATOR^S^C:Compressed;F:Flexitime;0:None;^0;6^Q"
^DD(458.01,5,21,0)="^^2^2^2950530^"
^DD(458.01,5,21,1,0)="This field contains the value for the Compressed/Flex indicator"
^DD(458.01,5,21,2,0)="for this Pay Period"
^DD(458.01,5,"DT")="2950530"
^DD(458.01,6,0)="NEXT PP COMPRESSED INDICATOR^S^C:Compressed;F:Flexitime;0:None;^0;7^Q"
^DD(458.01,6,21,0)="^^2^2^2950530^"
^DD(458.01,6,21,1,0)="This field contains the value for the Compressed/Flex indicator"
^DD(458.01,6,21,2,0)="to be moved to the next pay period when opened."
^DD(458.01,6,"DT")="2950530"
^DD(458.01,10,0)="DAY #^458.02^^D;0"
^DD(458.01,10,21,0)="^^2^2^2941202^^"
^DD(458.01,10,21,1,0)="Contains all the time card data for each day of the pay period for the"
^DD(458.01,10,21,2,0)="employee."
^DD(458.01,20,0)="DAY 1 VCS/FEE AMOUNT^NJ7,2O^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,20,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,20,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,20,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,20,21,0)="^^2^2^2921113^"
^DD(458.01,20,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,20,21,2,0)="the first day of the pay period."
^DD(458.01,20,"DT")="2920325"
^DD(458.01,21,0)="DAY 2 VCS/FEE AMOUNT^NJ7,2O^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,21,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,21,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,21,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,21,21,0)="^^2^2^2921113^"
^DD(458.01,21,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,21,21,2,0)="the second day of the pay period."
^DD(458.01,21,"DT")="2920325"
^DD(458.01,22,0)="DAY 3 VCS/FEE AMOUNT^NJ7,2O^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,22,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,22,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,22,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,22,21,0)="^^2^2^2921113^"
^DD(458.01,22,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,22,21,2,0)="the third day of the pay period."
^DD(458.01,22,"DT")="2920325"
^DD(458.01,23,0)="DAY 4 VCS/FEE AMOUNT^NJ7,2O^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,23,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,23,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,23,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,23,21,0)="^^2^2^2921113^"
^DD(458.01,23,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,23,21,2,0)="the fourth day of the pay period."
^DD(458.01,23,"DT")="2920325"
^DD(458.01,24,0)="DAY 5 VCS/FEE AMOUNT^NJ7,2O^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,24,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,24,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,24,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,24,21,0)="^^2^2^2921113^"
^DD(458.01,24,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,24,21,2,0)="the fifth day of the pay period."
^DD(458.01,24,"DT")="2920325"
^DD(458.01,25,0)="DAY 6 VCS/FEE AMOUNT^NJ7,2O^^2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,25,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,25,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,25,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,25,21,0)="^^2^2^2921113^"
^DD(458.01,25,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,25,21,2,0)="the sixth day of the pay period."
^DD(458.01,25,"DT")="2920325"
^DD(458.01,26,0)="DAY 7 VCS/FEE AMOUNT^NJ7,2O^^2;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,26,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,26,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,26,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,26,21,0)="^^2^2^2921113^"
^DD(458.01,26,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,26,21,2,0)="the seventh day of the pay period."
^DD(458.01,26,"DT")="2920325"
^DD(458.01,27,0)="DAY 8 VCS/FEE AMOUNT^NJ7,2O^^2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,27,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,27,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,27,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,27,21,0)="^^2^2^2921113^"
^DD(458.01,27,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,27,21,2,0)="the eighth day of the pay period."
^DD(458.01,27,"DT")="2920325"
^DD(458.01,28,0)="DAY 9 VCS/FEE AMOUNT^NJ7,2O^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,28,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,28,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,28,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,28,21,0)="^^2^2^2921113^"
^DD(458.01,28,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,28,21,2,0)="the ninth day of the pay period."
^DD(458.01,28,"DT")="2920325"
^DD(458.01,29,0)="DAY 10 VCS/FEE AMOUNT^NJ7,2O^^2;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,29,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,29,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,29,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,29,21,0)="^^2^2^2921113^"
^DD(458.01,29,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,29,21,2,0)="the tenth day of the pay period."
^DD(458.01,29,"DT")="2920325"
^DD(458.01,30,0)="DAY 11 VCS/FEE AMOUNT^NJ7,2O^^2;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,30,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,30,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,30,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,30,21,0)="^^2^2^2921113^"
^DD(458.01,30,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,30,21,2,0)="the eleventh day of the pay period."
^DD(458.01,30,"DT")="2920325"
^DD(458.01,31,0)="DAY 12 VCS/FEE AMOUNT^NJ7,2O^^2;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,31,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,31,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,31,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,31,21,0)="^^2^2^2921113^"
^DD(458.01,31,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,31,21,2,0)="the twelfth day of the pay period."
^DD(458.01,31,"DT")="2920325"
^DD(458.01,32,0)="DAY 13 VCS/FEE AMOUNT^NJ7,2O^^2;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,32,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,32,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,32,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,32,21,0)="^^2^2^2921113^"
^DD(458.01,32,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,32,21,2,0)="the thirteenth day of the pay period."
^DD(458.01,32,"DT")="2920325"
^DD(458.01,33,0)="DAY 14 VCS/FEE AMOUNT^NJ7,2O^^2;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(458.01,33,2)="S Y(0)=Y S Y=$J(Y,7,2)"
^DD(458.01,33,2.1)="S Y=$J(Y,7,2)"
^DD(458.01,33,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(458.01,33,21,0)="^^2^2^2921113^"
^DD(458.01,33,21,1,0)="VCS or Fee Basis Appointee amount, in dollars and cents, for"
^DD(458.01,33,21,2,0)="the fourteenth day of the pay period."
^DD(458.01,33,"DT")="2920325"
^DD(458.01,34,0)="VCS/FEE POSTING PERSON^RP200'^VA(200,^2;15^Q"
^DD(458.01,34,21,0)="^^2^2^2951129^^^^"
^DD(458.01,34,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the person"
^DD(458.01,34,21,2,0)="posting the VCS/Fee amounts for this employee."
^DD(458.01,34,"DT")="2951129"
^DD(458.01,35,0)="LAST POSTING DATE/TIME^D^^2;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.01,35,21,0)="^^2^2^2951129^^"
^DD(458.01,35,21,1,0)="The most recent date and time the VCS/Fee amounts were"
^DD(458.01,35,21,2,0)="posted for this employee."
^DD(458.01,35,"DT")="2920826"
^DD(458.01,36,0)="VCS/FEE APPROVED BY^P200'^VA(200,^2;17^Q"
^DD(458.01,36,21,0)="^^3^3^2951129^^"
^DD(458.01,36,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the person who"
^DD(458.01,36,21,2,0)="approves the accuracy of the VCS/Fee amounts for this"
^DD(458.01,36,21,3,0)="employee."
^DD(458.01,36,"DT")="2951129"
^DD(458.01,37,0)="VCS/FEE APPROVED DATE/TIME^D^^2;18^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.01,37,21,0)="^^2^2^2951129^^"
^DD(458.01,37,21,1,0)="The date and time the accuracy of the VCS/Fee amounts for"
^DD(458.01,37,21,2,0)="this employee were approved."
^DD(458.01,37,"DT")="2951129"
^DD(458.01,40,0)="NEW T&L^FX^^3;1^K:$L(X)>3!($L(X)<3) X I $D(X) S DIC=""^PRST(455.5,"",DIC(0)=""QEM"" D ^DIC K DIC S X=$S(Y>0:$P(^PRST(455.5,+Y,0),U,1),1:"""") K:$L(X)'=3 X"
^DD(458.01,40,4)="N D,X,DIC,DO S DIC=""^PRST(455.5,"",DIC(0)=""Q"",D=""B"" D DQ^DICQ Q"
^DD(458.01,40,21,0)="^^2^2^2921113^"
^DD(458.01,40,21,1,0)="This field will be coded only to change the employee's time and leave"
^DD(458.01,40,21,2,0)="unit."
^DD(458.01,40,"DT")="2920331"
^DD(458.01,41,0)="LUMP SUM UNITS^NJ6,2^^3;2^K:+X'=X!(X>999.75)!(X<0)!(X?.E1"".""3N.N) X I $D(X) S Y=$P(X,""."",2) I Y,Y'=5,Y'=25,Y'=75 K X"
^DD(458.01,41,3)="Type a Number between 0 and 999.75, 2 Decimal Digits (.25, .5, or .75 only)"
^DD(458.01,41,21,0)="^^2^2^2930217^^"
^DD(458.01,41,21,1,0)="The number of hours or days of annual leave a day shift employee has when"
^DD(458.01,41,21,2,0)="separating."
^DD(458.01,41,"DT")="2930217"
^DD(458.01,42,0)="LUMP SUM UNITS 2^NJ6,2^^3;3^K:+X'=X!(X>999.75)!(X<0)!(X?.E1"".""3N.N) X I $D(X) S Y=$P(X,""."",2) I Y,Y'=5,Y'=25,Y'=75 K X"
^DD(458.01,42,3)="Type a Number between 0 and 999.75, 2 Decimal Digits (.25, .5, or .75 only)"
^DD(458.01,42,21,0)="^^2^2^2930217^^"
^DD(458.01,42,21,1,0)="The number of hours or days of annual leave a second shift employee has"
^DD(458.01,42,21,2,0)="when separating."
^DD(458.01,42,"DT")="2930217"
^DD(458.01,43,0)="LUMP SUM UNITS 3^NJ6,2^^3;4^K:+X'=X!(X>999.75)!(X<0)!(X?.E1"".""3N.N) X I $D(X) S Y=$P(X,""."",2) I Y,Y'=5,Y'=25,Y'=75 K X"
^DD(458.01,43,3)="Type a Number between 0 and 999.75, 2 Decimal Digits (.25, .5, or .75 only)"
^DD(458.01,43,21,0)="^^2^2^2930217^^"
^DD(458.01,43,21,1,0)="The number of hours or days of annual leave a third shift employee has"
^DD(458.01,43,21,2,0)="when separating."
^DD(458.01,43,"DT")="2930217"
^DD(458.01,44,0)="LUMP SUM EXP. DATE^D^^3;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.01,44,21,0)="^^1^1^2921116^"
^DD(458.01,44,21,1,0)="The date the separating employee's annual leave will expire."
^DD(458.01,44,"DT")="2920331"
^DD(458.01,45,0)="PAYMENT RECORD^S^Y:YES;N:NO;^3;6^Q"
^DD(458.01,45,21,0)="^^2^2^2921116^"
^DD(458.01,45,21,1,0)="Indicates Payroll has requested a current ""Record of Salary Payments"" for"
^DD(458.01,45,21,2,0)="this employee."
^DD(458.01,45,"DT")="2920331"
^DD(458.01,46,0)="OPT. W/H TAX^S^Y:YES;N:NO;^3;7^Q"
^DD(458.01,46,21,0)="^^2^2^2921116^"
^DD(458.01,46,21,1,0)="Indicates the employee elects the optional method of withholding Federal"
^DD(458.01,46,21,2,0)="income tax from the lump-sum payment."
^DD(458.01,46,"DT")="2920331"
^DD(458.01,47,0)="FOREIGN COLA^S^Y:YES;N:NO;^3;8^Q"
^DD(458.01,47,21,0)="^^2^2^2930208^^"
^DD(458.01,47,21,1,0)="Indicates the exclusion of a foreign cost-of-living-allowance from the"
^DD(458.01,47,21,2,0)="employee's lump-sum payment."
^DD(458.01,47,"DT")="2920331"
^DD(458.01,48,0)="DAY NUMBER^F^^3;9^K:$L(X)>3!($L(X)<3)!'(X?3N) X I $D(X),X<1!(X>366) K X"
^DD(458.01,48,3)="Answer must be 3 digits in length and between 001 and 366."
^DD(458.01,48,21,0)="^^2^2^2921116^"
^DD(458.01,48,21,1,0)="Indicates the day number of the last day of duty or date of effectiveness"
^DD(458.01,48,21,2,0)="of the transaction for this employee."
^DD(458.01,48,"DT")="2920918"
^DD(458.01,50,0)="FEE TOTAL HOURS^NJ3,0^^2;19^K:+X'=X!(X>224)!(X<0)!(X?.E1"".""1N.N) X"
^DD(458.01,50,3)="Type a Number between 0 and 224, 0 Decimal Digits"
^DD(458.01,50,21,0)="^^1^1^2951128^"
^DD(458.01,50,21,1,0)="Total hours for Fee Basis Appointee during the Pay Period."
^DD(458.01,50,"DT")="2951128"
^DD(458.01,51,0)="FEE TOTAL DAYS^NJ2,0^^2;20^K:+X'=X!(X>14)!(X<0)!(X?.E1"".""1N.N) X"
^DD(458.01,51,3)="Type a Number between 0 and 14, 0 Decimal Digits"
^DD(458.01,51,21,0)="^^1^1^2951128^^"
^DD(458.01,51,21,1,0)="Total number of Days worked by Fee Basis Appointee."
^DD(458.01,51,"DT")="2951128"
^DD(458.01,52,0)="FEE TOTAL PROCEDURES^NJ3,0^^2;21^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(458.01,52,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(458.01,52,21,0)="^^1^1^2951128^"
^DD(458.01,52,21,1,0)="This is total number of procedures by Fee Basis Appointee."
^DD(458.01,52,"DT")="2951128"
^DD(458.01,60,0)="ENVIR. DIFF. WK 1 # 1^P457.6'^PRST(457.6,^4;1^Q"
^DD(458.01,60,21,0)="^^3^3^2921116^"
^DD(458.01,60,21,1,0)="A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which"
^DD(458.01,60,21,2,0)="identifies the first type of environmental hazard the employee is being"
^DD(458.01,60,21,3,0)="exposed to in the first week of the pay period."
^DD(458.01,60,"DT")="2920717"
^DD(458.01,61,0)="ENVIR. DIFF. WK 1 # 1 HRS^NJ6,2^^4;2^K:+X'=X!(X>160)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.01,61,3)="Type a Number between 0 and 160, 2 Decimal Digits"
^DD(458.01,61,21,0)="^^2^2^2921116^"
^DD(458.01,61,21,1,0)="The number of hours for which environmental differential pay will be paid"
^DD(458.01,61,21,2,0)="for the first type of exposure for the first week of the pay period."
^DD(458.01,61,"DT")="2920717"
^DD(458.01,62,0)="ENVIR. DIFF. WK 1 # 2^P457.6'^PRST(457.6,^4;3^Q"
^DD(458.01,62,21,0)="^^3^3^2921116^"
^DD(458.01,62,21,1,0)="A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which"
^DD(458.01,62,21,2,0)="identifies the second type of environmental hazard the employee is being"
^DD(458.01,62,21,3,0)="exposed to in the first week of the pay period."
^DD(458.01,62,"DT")="2920717"
^DD(458.01,63,0)="ENVIR. DIFF. WK 1 # 2 HRS^NJ6,2^^4;4^K:+X'=X!(X>160)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.01,63,3)="Type a Number between 0 and 160, 2 Decimal Digits"
^DD(458.01,63,21,0)="^^2^2^2921116^"
^DD(458.01,63,21,1,0)="The number of hours for which environmental differential pay will be paid"
^DD(458.01,63,21,2,0)="for the second type of exposure for the first week of the pay period."
^DD(458.01,63,"DT")="2920717"
^DD(458.01,64,0)="ENVIR. DIFF. WK 1 # 3^P457.6'^PRST(457.6,^4;5^Q"
^DD(458.01,64,21,0)="^^3^3^2921116^"
^DD(458.01,64,21,1,0)="A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which"
^DD(458.01,64,21,2,0)="identifies the third type of environmental hazard the employee is being"
^DD(458.01,64,21,3,0)="exposed to in the first week of the pay period."
^DD(458.01,64,"DT")="2920717"
^DD(458.01,65,0)="ENVIR. DIFF. WK 1 # 3 HRS^NJ6,2^^4;6^K:+X'=X!(X>160)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.01,65,3)="Type a Number between 0 and 160, 2 Decimal Digits"
^DD(458.01,65,21,0)="^^2^2^2921116^"
^DD(458.01,65,21,1,0)="The number of hours for which environmental differential pay will be paid"
^DD(458.01,65,21,2,0)="for the third type of exposure for the first week of the pay period."
^DD(458.01,65,"DT")="2920717"
^DD(458.01,66,0)="ENVIR. DIFF. WK 2 # 1^P457.6'^PRST(457.6,^4;7^Q"
^DD(458.01,66,21,0)="^^3^3^2921116^"
^DD(458.01,66,21,1,0)="A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which"
^DD(458.01,66,21,2,0)="identifies the first type of environmental hazard the employee is being"
^DD(458.01,66,21,3,0)="exposed to in the second week of the pay period."
^DD(458.01,66,"DT")="2920717"
^DD(458.01,67,0)="ENVIR. DIFF. WK 2 # 1 HRS^NJ6,2^^4;8^K:+X'=X!(X>160)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.01,67,3)="Type a Number between 0 and 160, 2 Decimal Digits"
^DD(458.01,67,21,0)="^^2^2^2921116^"
^DD(458.01,67,21,1,0)="The number of hours for which environmental differential pay will be paid"
^DD(458.01,67,21,2,0)="for the first type of exposure for the second week of the pay period."
^DD(458.01,67,"DT")="2920717"
^DD(458.01,68,0)="ENVIR. DIFF. WK 2 # 2^P457.6'^PRST(457.6,^4;9^Q"
^DD(458.01,68,21,0)="^^3^3^2921116^"
^DD(458.01,68,21,1,0)="A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which"
^DD(458.01,68,21,2,0)="identifies the second type of environmental hazard the employee is being"
^DD(458.01,68,21,3,0)="exposed to in the second week of the pay period."
^DD(458.01,68,"DT")="2920717"
^DD(458.01,69,0)="ENVIR. DIFF. WK 2 # 2 HRS^NJ6,2^^4;10^K:+X'=X!(X>160)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.01,69,3)="Type a Number between 0 and 160, 2 Decimal Digits"
^DD(458.01,69,21,0)="^^2^2^2921116^"
^DD(458.01,69,21,1,0)="The number of hours for which environmental differential pay will be paid"
^DD(458.01,69,21,2,0)="for the second type of exposure for the second week of the pay period."
^DD(458.01,69,"DT")="2920717"
^DD(458.01,70,0)="ENVIR. DIFF. WK 2 # 3^P457.6'^PRST(457.6,^4;11^Q"
^DD(458.01,70,21,0)="^^3^3^2921116^"
^DD(458.01,70,21,1,0)="A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which"
^DD(458.01,70,21,2,0)="identifies the third type of environmental hazard the employee is being"
^DD(458.01,70,21,3,0)="exposed to in the second week of the pay period."
^DD(458.01,70,"DT")="2920717"
^DD(458.01,71,0)="ENVIR. DIFF. WK 2 # 3 HRS^NJ6,2^^4;12^K:+X'=X!(X>160)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.01,71,3)="Type a Number between 0 and 160, 2 Decimal Digits"
^DD(458.01,71,21,0)="^^2^2^2921116^"
^DD(458.01,71,21,1,0)="The number of hours for which environmental differential pay will be paid"
^DD(458.01,71,21,2,0)="for the third type of exposure for the second week of the pay period."
^DD(458.01,71,"DT")="2920717"
^DD(458.01,101,0)="AUDIT RECORD^458.1101A^^X;0"
^DD(458.01,101,21,0)="^^1^1^2921116^"
^DD(458.01,101,21,1,0)="A log of changes made to the employee's time card."
^DD(458.01,102,0)="8B RECORD^F^^5;1^K:$L(X)>245!($L(X)<1) X"
^DD(458.01,102,3)="Answer must be 1-245 characters in length."
^DD(458.01,102,21,0)="^^2^2^2921113^"
^DD(458.01,102,21,1,0)="The character string that makes up the 8B record that is transmitted to"
^DD(458.01,102,21,2,0)="the Austin Automation Center."
^DD(458.01,102,"DT")="2920827"
^DD(458.01,105,0)="LD AUDIT^458.1105A^^LDAUD;0"
^DD(458.01,201,0)="TMP 1^*P457.1'^PRST(457.1,^T;1^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,201,12)="Allow only authorized tours for T&L"
^DD(458.01,201,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,201,21,0)="^^2^2^2921113^"
^DD(458.01,201,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,201,21,2,0)="and edit the employee's tour for the first day of the pay period."
^DD(458.01,201,"DT")="2920813"
^DD(458.01,202,0)="TMP 2^*P457.1'^PRST(457.1,^T;2^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,202,12)="Allow only authorized tours for T&L"
^DD(458.01,202,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,202,21,0)="^^2^2^2921113^"
^DD(458.01,202,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,202,21,2,0)="and edit the employee's tour for the second day of the pay period."
^DD(458.01,202,"DT")="2920813"
^DD(458.01,203,0)="TMP 3^*P457.1'^PRST(457.1,^T;3^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,203,12)="Allow only authorized tours for T&L"
^DD(458.01,203,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,203,21,0)="^^2^2^2921113^"
^DD(458.01,203,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,203,21,2,0)="and edit the employee's tour for the third day of the pay period."
^DD(458.01,203,"DT")="2920813"
^DD(458.01,204,0)="TMP 4^*P457.1'^PRST(457.1,^T;4^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,204,12)="Allow only authorized tours for T&L"
^DD(458.01,204,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,204,21,0)="^^2^2^2921113^"
^DD(458.01,204,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,204,21,2,0)="and edit the employee's tour for the fourth day of the pay period."
^DD(458.01,204,"DT")="2920813"
^DD(458.01,205,0)="TMP 5^*P457.1'^PRST(457.1,^T;5^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,205,12)="Allow only authorized tours for T&L"
^DD(458.01,205,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,205,21,0)="^^2^2^2921113^"
^DD(458.01,205,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,205,21,2,0)="and edit the employee's tour for the fifth day of the pay period."
^DD(458.01,205,"DT")="2920813"
^DD(458.01,206,0)="TMP 6^*P457.1'^PRST(457.1,^T;6^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,206,12)="Allow only authorized tours for T&L"
^DD(458.01,206,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,206,21,0)="^^2^2^2921113^"
^DD(458.01,206,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,206,21,2,0)="and edit the employee's tour for the sixth day of the pay period."
^DD(458.01,206,"DT")="2920813"
^DD(458.01,207,0)="TMP 7^*P457.1'^PRST(457.1,^T;7^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,207,12)="Allow only authorized tours for T&L"
^DD(458.01,207,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,207,21,0)="^^2^2^2921113^"
^DD(458.01,207,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,207,21,2,0)="and edit the employee's tour for the seventh day of the pay period."
^DD(458.01,207,"DT")="2920813"
^DD(458.01,208,0)="TMP 8^*P457.1'^PRST(457.1,^T;8^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,208,12)="Allow only authorized tours for T&L"
^DD(458.01,208,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,208,21,0)="^^2^2^2921113^"
^DD(458.01,208,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,208,21,2,0)="and edit the employee's tour for the eighth day of the pay period."
^DD(458.01,208,"DT")="2920813"
^DD(458.01,209,0)="TMP 9^*P457.1'^PRST(457.1,^T;9^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,209,12)="Allow only authorized tours for T&L"
^DD(458.01,209,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,209,21,0)="^^2^2^2921113^"
^DD(458.01,209,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,209,21,2,0)="and edit the employee's tour for the ninth day of the pay period."
^DD(458.01,209,"DT")="2920813"
^DD(458.01,210,0)="TMP 10^*P457.1'^PRST(457.1,^T;10^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,210,12)="Allow only authorized tours for T&L"
^DD(458.01,210,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,210,21,0)="^^2^2^2921113^"
^DD(458.01,210,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,210,21,2,0)="and edit the employee's tour for the tenth day of the pay period."
^DD(458.01,210,"DT")="2920813"
^DD(458.01,211,0)="TMP 11^*P457.1'^PRST(457.1,^T;11^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,211,12)="Allow only authorized tours for T&L"
^DD(458.01,211,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,211,21,0)="^^2^2^2921113^"
^DD(458.01,211,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,211,21,2,0)="and edit the employee's tour for the eleventh day of the pay period."
^DD(458.01,211,"DT")="2920813"
^DD(458.01,212,0)="TMP 12^*P457.1'^PRST(457.1,^T;12^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,212,12)="Allow only authorized tours for T&L"
^DD(458.01,212,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,212,21,0)="^^2^2^2921113^"
^DD(458.01,212,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,212,21,2,0)="and edit the employee's tour for the twelfth day of the pay period."
^DD(458.01,212,"DT")="2920813"
^DD(458.01,213,0)="TMP 13^*P457.1'^PRST(457.1,^T;13^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,213,12)="Allow only authorized tours for T&L"
^DD(458.01,213,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,213,21,0)="^^2^2^2921113^"
^DD(458.01,213,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,213,21,2,0)="and edit the employee's tour for the thirteenth day of the pay period."
^DD(458.01,213,"DT")="2920813"
^DD(458.01,214,0)="TMP 14^*P457.1'^PRST(457.1,^T;14^S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.01,214,12)="Allow only authorized tours for T&L"
^DD(458.01,214,12.1)="S DIC(""S"")=""I ""_$S($E(ENT,1)=""D"":""Y<3"",1:""Y>5!(Y=1)"")_"",$P(^PRST(457.1,+Y,0),U,4)!($D(^PRST(457.1,+Y,""""T"""",""""B"""",WTL)))"""
^DD(458.01,214,21,0)="^^2^2^2921113^"
^DD(458.01,214,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) and used to temporarily store"
^DD(458.01,214,21,2,0)="and edit the employee's tour for the fourteenth day of the pay period."
^DD(458.01,214,"DT")="2920813"
^DD(458.01,"B","8B RECORD",102)=""
^DD(458.01,"B","APP. DATE/TIME",3)=""
^DD(458.01,"B","APP. SUPERVISOR",2)=""
^DD(458.01,"B","AUDIT RECORD",101)=""
^DD(458.01,"B","CUR. PP COMPRESSED INDICATOR",5)=""
^DD(458.01,"B","DAY #",10)=""
^DD(458.01,"B","DAY 1 VCS/FEE AMOUNT",20)=""
^DD(458.01,"B","DAY 10 VCS/FEE AMOUNT",29)=""
^DD(458.01,"B","DAY 11 VCS/FEE AMOUNT",30)=""
^DD(458.01,"B","DAY 12 VCS/FEE AMOUNT",31)=""
^DD(458.01,"B","DAY 13 VCS/FEE AMOUNT",32)=""
^DD(458.01,"B","DAY 14 VCS/FEE AMOUNT",33)=""
^DD(458.01,"B","DAY 2 VCS/FEE AMOUNT",21)=""
^DD(458.01,"B","DAY 3 VCS/FEE AMOUNT",22)=""
^DD(458.01,"B","DAY 4 VCS/FEE AMOUNT",23)=""
^DD(458.01,"B","DAY 5 VCS/FEE AMOUNT",24)=""
^DD(458.01,"B","DAY 6 VCS/FEE AMOUNT",25)=""
^DD(458.01,"B","DAY 7 VCS/FEE AMOUNT",26)=""
^DD(458.01,"B","DAY 8 VCS/FEE AMOUNT",27)=""
^DD(458.01,"B","DAY 9 VCS/FEE AMOUNT",28)=""
^DD(458.01,"B","DAY NUMBER",48)=""
^DD(458.01,"B","EMPLOYEE",.01)=""
^DD(458.01,"B","ENTITLEMENT",4)=""
^DD(458.01,"B","ENVIR. DIFF. WK 1 # 1",60)=""
^DD(458.01,"B","ENVIR. DIFF. WK 1 # 1 HRS",61)=""
^DD(458.01,"B","ENVIR. DIFF. WK 1 # 2",62)=""
^DD(458.01,"B","ENVIR. DIFF. WK 1 # 2 HRS",63)=""
^DD(458.01,"B","ENVIR. DIFF. WK 1 # 3",64)=""
^DD(458.01,"B","ENVIR. DIFF. WK 1 # 3 HRS",65)=""
^DD(458.01,"B","ENVIR. DIFF. WK 2 # 1",66)=""
^DD(458.01,"B","ENVIR. DIFF. WK 2 # 1 HRS",67)=""
^DD(458.01,"B","ENVIR. DIFF. WK 2 # 2",68)=""
^DD(458.01,"B","ENVIR. DIFF. WK 2 # 2 HRS",69)=""
^DD(458.01,"B","ENVIR. DIFF. WK 2 # 3",70)=""
^DD(458.01,"B","ENVIR. DIFF. WK 2 # 3 HRS",71)=""
^DD(458.01,"B","FEE TOTAL DAYS",51)=""
^DD(458.01,"B","FEE TOTAL HOURS",50)=""
^DD(458.01,"B","FEE TOTAL PROCEDURES",52)=""
^DD(458.01,"B","FOREIGN COLA",47)=""
^DD(458.01,"B","LAST POSTING DATE/TIME",35)=""
^DD(458.01,"B","LD AUDIT",105)=""
^DD(458.01,"B","LUMP SUM EXP. DATE",44)=""
^DD(458.01,"B","LUMP SUM UNITS",41)=""
^DD(458.01,"B","LUMP SUM UNITS 2",42)=""
^DD(458.01,"B","LUMP SUM UNITS 3",43)=""
^DD(458.01,"B","NEW T&L",40)=""
^DD(458.01,"B","NEXT PP COMPRESSED INDICATOR",6)=""
^DD(458.01,"B","OPT. W/H TAX",46)=""
^DD(458.01,"B","PAYMENT RECORD",45)=""
^DD(458.01,"B","STATUS",1)=""
^DD(458.01,"B","TMP 1",201)=""
^DD(458.01,"B","TMP 10",210)=""
^DD(458.01,"B","TMP 11",211)=""
^DD(458.01,"B","TMP 12",212)=""
^DD(458.01,"B","TMP 13",213)=""
^DD(458.01,"B","TMP 14",214)=""
^DD(458.01,"B","TMP 2",202)=""
^DD(458.01,"B","TMP 3",203)=""
^DD(458.01,"B","TMP 4",204)=""
^DD(458.01,"B","TMP 5",205)=""
^DD(458.01,"B","TMP 6",206)=""
^DD(458.01,"B","TMP 7",207)=""
^DD(458.01,"B","TMP 8",208)=""
^DD(458.01,"B","TMP 9",209)=""
^DD(458.01,"B","VCS/FEE APPROVED BY",36)=""
^DD(458.01,"B","VCS/FEE APPROVED DATE/TIME",37)=""
^DD(458.01,"B","VCS/FEE POSTING PERSON",34)=""
^DD(458.01,"GL",0,1,.01)=""
^DD(458.01,"GL",0,2,1)=""
^DD(458.01,"GL",0,3,2)=""
^DD(458.01,"GL",0,4,3)=""
^DD(458.01,"GL",0,5,4)=""
^DD(458.01,"GL",0,6,5)=""
^DD(458.01,"GL",0,7,6)=""
^DD(458.01,"GL",2,1,20)=""
^DD(458.01,"GL",2,2,21)=""
^DD(458.01,"GL",2,3,22)=""
^DD(458.01,"GL",2,4,23)=""
^DD(458.01,"GL",2,5,24)=""
^DD(458.01,"GL",2,6,25)=""
^DD(458.01,"GL",2,7,26)=""
^DD(458.01,"GL",2,8,27)=""
^DD(458.01,"GL",2,9,28)=""
^DD(458.01,"GL",2,10,29)=""
^DD(458.01,"GL",2,11,30)=""
^DD(458.01,"GL",2,12,31)=""
^DD(458.01,"GL",2,13,32)=""
^DD(458.01,"GL",2,14,33)=""
^DD(458.01,"GL",2,15,34)=""
^DD(458.01,"GL",2,16,35)=""
^DD(458.01,"GL",2,17,36)=""
^DD(458.01,"GL",2,18,37)=""
^DD(458.01,"GL",2,19,50)=""
^DD(458.01,"GL",2,20,51)=""
^DD(458.01,"GL",2,21,52)=""
^DD(458.01,"GL",3,1,40)=""
^DD(458.01,"GL",3,2,41)=""
^DD(458.01,"GL",3,3,42)=""
^DD(458.01,"GL",3,4,43)=""
^DD(458.01,"GL",3,5,44)=""
^DD(458.01,"GL",3,6,45)=""
^DD(458.01,"GL",3,7,46)=""
^DD(458.01,"GL",3,8,47)=""
^DD(458.01,"GL",3,9,48)=""
^DD(458.01,"GL",4,1,60)=""
^DD(458.01,"GL",4,2,61)=""
^DD(458.01,"GL",4,3,62)=""
^DD(458.01,"GL",4,4,63)=""
^DD(458.01,"GL",4,5,64)=""
^DD(458.01,"GL",4,6,65)=""
^DD(458.01,"GL",4,7,66)=""
^DD(458.01,"GL",4,8,67)=""
^DD(458.01,"GL",4,9,68)=""
^DD(458.01,"GL",4,10,69)=""
^DD(458.01,"GL",4,11,70)=""
^DD(458.01,"GL",4,12,71)=""
^DD(458.01,"GL",5,1,102)=""
^DD(458.01,"GL","D",0,10)=""
^DD(458.01,"GL","LDAUD",0,105)=""
^DD(458.01,"GL","T",1,201)=""
^DD(458.01,"GL","T",2,202)=""
^DD(458.01,"GL","T",3,203)=""
^DD(458.01,"GL","T",4,204)=""
^DD(458.01,"GL","T",5,205)=""
^DD(458.01,"GL","T",6,206)=""
^DD(458.01,"GL","T",7,207)=""
^DD(458.01,"GL","T",8,208)=""
^DD(458.01,"GL","T",9,209)=""
^DD(458.01,"GL","T",10,210)=""
^DD(458.01,"GL","T",11,211)=""
^DD(458.01,"GL","T",12,212)=""
^DD(458.01,"GL","T",13,213)=""
^DD(458.01,"GL","T",14,214)=""
^DD(458.01,"GL","X",0,101)=""
^DD(458.01,"RQ",34)=""
^DD(458.01,"SB",458.02,10)=""
^DD(458.01,"SB",458.1101,101)=""
^DD(458.01,"SB",458.1105,105)=""
^DD(458.02,0)="DAY # SUB-FIELD^^104^130"
^DD(458.02,0,"DT")="2930611"
^DD(458.02,0,"NM","DAY #")=""
^DD(458.02,0,"UP")="458.01"
^DD(458.02,.01,0)="DAY #^NJ2,0^^0;1^K:+X'=X!(X>14)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.02,.01,1,0)="^.1^^0"
^DD(458.02,.01,3)="Type a Number between 1 and 14, 0 Decimal Digits"
^DD(458.02,.01,21,0)="^^1^1^2921105^"
^DD(458.02,.01,21,1,0)="The day number of the pay period."
^DD(458.02,.01,"DT")="2920221"
^DD(458.02,2,0)="TOUR OF DUTY^P457.1'^PRST(457.1,^0;2^Q"
^DD(458.02,2,3)=""
^DD(458.02,2,21,0)="^^2^2^2921105^"
^DD(458.02,2,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) which identifies the employee's"
^DD(458.02,2,21,2,0)="tour of duty for this day."
^DD(458.02,2,"DT")="2920304"
^DD(458.02,3,0)="TEMPORARY TOUR?^S^0:NO;1:YES (CURRENT PP CHANGE);2:YES (NEXT PP CHANGE);^0;3^Q"
^DD(458.02,3,3)="Select answer from choices."
^DD(458.02,3,21,0)="^^3^3^3000112^^"
^DD(458.02,3,21,1,0)="Identifies the tour for this day as a temporary tour. Set as 1 if"
^DD(458.02,3,21,2,0)="temporary tour change was made to current pay period or as 2 if tour"
^DD(458.02,3,21,3,0)="change is effective with the next pay period."
^DD(458.02,3,"DT")="3000112"
^DD(458.02,4,0)="PRIOR SCHEDULED TOUR^P457.1'^PRST(457.1,^0;4^Q"
^DD(458.02,4,1,0)="^.1"
^DD(458.02,4,1,1,0)="458^ATC^MUMPS"
^DD(458.02,4,1,1,1)="I $P(^PRST(458,DA(2),""E"",DA(1),""D"",DA,0),""^"",5)="""" S ^PRST(458,""ATC"",DA(1),DA(2),DA)="""""
^DD(458.02,4,1,1,2)="Q"
^DD(458.02,4,1,1,"%D",0)="^^6^6^2940601^"
^DD(458.02,4,1,1,"%D",1,0)="This cross-reference is set whenever a tour change occurs and is used"
^DD(458.02,4,1,1,"%D",2,0)="to indicate to the supervisor that a tour change has occurred and must be"
^DD(458.02,4,1,1,"%D",3,0)="approved.  In the special case where a prior tour has yet to be approved"
^DD(458.02,4,1,1,"%D",4,0)="(and hence the cross-reference is already set) and a new change"
^DD(458.02,4,1,1,"%D",5,0)="supercedes the prior change, the cross-reference is not set as it has"
^DD(458.02,4,1,1,"%D",6,0)="already been set."
^DD(458.02,4,1,1,"DT")="2920429"
^DD(458.02,4,21,0)="^^3^3^2921120^"
^DD(458.02,4,21,1,0)="A pointer to the TOUR OF DUTY file (#457) which identifies the permanent"
^DD(458.02,4,21,2,0)="tour of duty when a temporary tour of duty is being used in place of the"
^DD(458.02,4,21,3,0)="permanent tour of duty."
^DD(458.02,4,"DT")="2920429"
^DD(458.02,5,0)="SUPERVISOR^P200'^VA(200,^0;5^Q"
^DD(458.02,5,21,0)="^^2^2^2921113^"
^DD(458.02,5,21,1,0)="A pointer to the NEW PERSON file (#200) that identifies the employee's"
^DD(458.02,5,21,2,0)="supervisor for this day."
^DD(458.02,5,"DT")="2920429"
^DD(458.02,6,0)="APPROVAL DATE/TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.02,6,21,0)="^^1^1^2921120^"
^DD(458.02,6,21,1,0)="The date and time the supervisor approved the tour of duty change."
^DD(458.02,6,"DT")="2920520"
^DD(458.02,7,0)="SUPR. ES^FO^^0;7^K:$L(X)>20!($L(X)<6) X"
^DD(458.02,7,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(458.02,7,2.1)="S Y=""<Hidden>"""
^DD(458.02,7,3)="Answer must be 6-20 characters in length."
^DD(458.02,7,21,0)="^^1^1^2921116^"
^DD(458.02,7,21,1,0)="A free text response which is the supervisor's electronic signature code."
^DD(458.02,7,"DT")="2950525"
^DD(458.02,8,0)="TOUR LENGTH^NJ5,2^^0;8^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.02,8,3)="Type a Number between 0 and 24, 2 Decimal Digits"
^DD(458.02,8,21,0)="^^1^1^2921113^"
^DD(458.02,8,21,1,0)="The tour's length of time in hours and minutes."
^DD(458.02,8,"DT")="2920714"
^DD(458.02,9,0)="TEMP TOUR T&L^F^^0;9^K:$L(X)>3!($L(X)<3) X I $D(X) S DIC=""^PRST(455.5,"",DIC(0)=""QEM"" D ^DIC K DIC S X=$S(Y>0:$P(Y,""^"",2),1:"""") K:$L(X)'=3 X"
^DD(458.02,9,4)="N D,X,DIC,DO S DIC=""^PRST(455.5,"",DIC(0)=""Q"",D=""B"" D DQ^DICQ Q"
^DD(458.02,9,21,0)="^^2^2^2921113^"
^DD(458.02,9,21,1,0)="The Time and Leave Unit where the employee worked if a temporary"
^DD(458.02,9,21,2,0)="tour of duty was worked."
^DD(458.02,9,"DT")="2920807"
^DD(458.02,10,0)="TOUR LAST POSTED BY^P200'^VA(200,^0;10^Q"
^DD(458.02,10,21,0)="^^2^2^2921113^"
^DD(458.02,10,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the last person"
^DD(458.02,10,21,2,0)="who posted a tour for the employee for this day."
^DD(458.02,10,"DT")="2920827"
^DD(458.02,10.1,0)="POSTING DATE/TIME^D^^0;11^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.02,10.1,21,0)="^^1^1^2921113^"
^DD(458.02,10.1,21,1,0)="The date and time the data was posted for this employee for this day."
^DD(458.02,10.1,"DT")="2920827"
^DD(458.02,10.2,0)="OBSERVED HOLIDAY^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.02,10.2,3)=""
^DD(458.02,10.2,21,0)="^^1^1^2930611^^"
^DD(458.02,10.2,21,1,0)="Identifies the day as an observed holiday for the date indicated."
^DD(458.02,10.2,"DT")="2930611"
^DD(458.02,10.3,0)="SECOND TOUR OF DUTY^P457.1'^PRST(457.1,^0;13^Q"
^DD(458.02,10.3,21,0)="^^2^2^2921113^"
^DD(458.02,10.3,21,1,0)="A pointer to the TOUR OF DUTY file (#457.1) which identifies a second tour"
^DD(458.02,10.3,21,2,0)="of duty the employee will work on this day."
^DD(458.02,10.3,"DT")="2921026"
^DD(458.02,10.4,0)="TOUR #2 LENGTH^NJ5,2^^0;14^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.02,10.4,3)="Type a Number between 0 and 24, 2 Decimal Digits"
^DD(458.02,10.4,21,0)="^^1^1^2921113^"
^DD(458.02,10.4,21,1,0)="The second tour's length of time in hours and minutes."
^DD(458.02,10.4,"DT")="2921026"
^DD(458.02,10.5,0)="TOUR #2 T&L^FX^^0;15^K:$L(X)>3!($L(X)<3) X I $D(X) S DIC=""^PRST(455.5,"",DIC(0)=""QEM"" D ^DIC K DIC S X=$S(Y>0:$P(Y,""^"",2),1:"""") K:$L(X)'=3 X"
^DD(458.02,10.5,4)="N D,X,DIC,DO S DIC=""^PRST(455.5,"",DIC(0)=""Q"",D=""B"" D DQ^DICQ Q"
^DD(458.02,10.5,21,0)="^^1^1^2921113^"
^DD(458.02,10.5,21,1,0)="The Time and Leave Unit the second tour is associated with."
^DD(458.02,10.5,"DT")="2921026"
^DD(458.02,11,0)="TOUR #1 SCH START TIME-1^FX^^1;1^D:$D(X) ^PRSATIM"
^DD(458.02,11,4)="D HLP^PRSATIM"
^DD(458.02,11,21,0)="^^2^2^2921113^"
^DD(458.02,11,21,1,0)="The scheduled start time for the first segment of the first tour of duty"
^DD(458.02,11,21,2,0)="for this day."
^DD(458.02,11,"DT")="2920129"
^DD(458.02,12,0)="TOUR #1 SCH STOP TIME-1^FX^^1;2^D:$D(X) ^PRSATIM"
^DD(458.02,12,4)="D HLP^PRSATIM"
^DD(458.02,12,21,0)="^^2^2^2921113^"
^DD(458.02,12,21,1,0)="The scheduled stop time for the first segment of the first tour of duty"
^DD(458.02,12,21,2,0)="for this day."
^DD(458.02,12,"DT")="2920129"
^DD(458.02,13,0)="TOUR #1 SCH SPECIAL CODE-1^P457.2'^PRST(457.2,^1;3^Q"
^DD(458.02,13,21,0)="^^3^3^2921113^"
^DD(458.02,13,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,13,21,2,0)="scheduled type of special (non-regular) hours associated with the first"
^DD(458.02,13,21,3,0)="segment of the first tour of duty for this day."
^DD(458.02,13,"DT")="2920129"
^DD(458.02,14,0)="TOUR #1 SCH START TIME-2^FX^^1;4^D:$D(X) ^PRSATIM"
^DD(458.02,14,4)="D HLP^PRSATIM"
^DD(458.02,14,21,0)="^^2^2^2921113^"
^DD(458.02,14,21,1,0)="The scheduled start time for the second segment of the first tour of duty"
^DD(458.02,14,21,2,0)="for this day."
^DD(458.02,14,"DT")="2920129"
^DD(458.02,15,0)="TOUR #1 SCH STOP TIME-2^FX^^1;5^D:$D(X) ^PRSATIM"
^DD(458.02,15,4)="D HLP^PRSATIM"
^DD(458.02,15,21,0)="^^2^2^2921113^"
^DD(458.02,15,21,1,0)="The scheduled stop time for the second segment of the first tour of duty"
^DD(458.02,15,21,2,0)="for this day."
^DD(458.02,15,"DT")="2920129"
^DD(458.02,16,0)="TOUR #1 SCH SPECIAL CODE-2^P457.2'^PRST(457.2,^1;6^Q"
^DD(458.02,16,21,0)="^^3^3^2921113^"
^DD(458.02,16,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,16,21,2,0)="scheduled type of special (non-regular) hours associated with the second"
^DD(458.02,16,21,3,0)="segment of the first tour of duty for this day."
^DD(458.02,16,"DT")="2920129"
^DD(458.02,17,0)="TOUR #1 SCH START TIME-3^FX^^1;7^D:$D(X) ^PRSATIM"
^DD(458.02,17,4)="D HLP^PRSATIM"
^DD(458.02,17,21,0)="^^2^2^2921113^"
^DD(458.02,17,21,1,0)="The scheduled start time for the third segment of the first tour of duty"
^DD(458.02,17,21,2,0)="for this day."
^DD(458.02,17,"DT")="2920129"
^DD(458.02,18,0)="TOUR #1 SCH STOP TIME-3^FX^^1;8^D:$D(X) ^PRSATIM"
^DD(458.02,18,4)="D HLP^PRSATIM"
^DD(458.02,18,21,0)="^^2^2^2921113^"
^DD(458.02,18,21,1,0)="The scheduled stop time for the third segment of the first tour of duty"
^DD(458.02,18,21,2,0)="for this day."
^DD(458.02,18,"DT")="2920129"
^DD(458.02,19,0)="TOUR #1 SCH SPECIAL CODE-3^P457.2'^PRST(457.2,^1;9^Q"
^DD(458.02,19,21,0)="^^3^3^2921113^"
^DD(458.02,19,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,19,21,2,0)="scheduled type of special (non-regular) hours associated with the third"
^DD(458.02,19,21,3,0)="segment of the first tour of duty for this day."
^DD(458.02,19,"DT")="2920129"
^DD(458.02,20,0)="TOUR #1 SCH START TIME-4^FX^^1;10^D:$D(X) ^PRSATIM"
^DD(458.02,20,4)="D HLP^PRSATIM"
^DD(458.02,20,21,0)="^^2^2^2921113^"
^DD(458.02,20,21,1,0)="The scheduled start time for the fourth segment of the first tour of duty"
^DD(458.02,20,21,2,0)="for this day."
^DD(458.02,20,"DT")="2920129"
^DD(458.02,21,0)="TOUR #1 SCH STOP TIME-4^FX^^1;11^D:$D(X) ^PRSATIM"
^DD(458.02,21,4)="D HLP^PRSATIM"
^DD(458.02,21,21,0)="^^2^2^2921113^"
^DD(458.02,21,21,1,0)="The scheduled stop time for the fourth segment of the first tour of duty"
^DD(458.02,21,21,2,0)="for this day."
^DD(458.02,21,"DT")="2920129"
^DD(458.02,22,0)="TOUR #1 SCH SPECIAL CODE-4^P457.2'^PRST(457.2,^1;12^Q"
^DD(458.02,22,21,0)="^^3^3^2921113^"
^DD(458.02,22,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,22,21,2,0)="scheduled type of special (non-regular) hours associated with the fourth"
^DD(458.02,22,21,3,0)="segment of the first tour of duty for this day."
^DD(458.02,22,"DT")="2920129"
^DD(458.02,23,0)="TOUR #1 SCH START TIME-5^FX^^1;13^D:$D(X) ^PRSATIM"
^DD(458.02,23,4)="D HLP^PRSATIM"
^DD(458.02,23,21,0)="^^2^2^2921113^"
^DD(458.02,23,21,1,0)="The scheduled start time for the fifth segment of the first tour of duty"
^DD(458.02,23,21,2,0)="for this day."
^DD(458.02,23,"DT")="2920129"
^DD(458.02,24,0)="TOUR #1 SCH STOP TIME-5^FX^^1;14^D:$D(X) ^PRSATIM"
^DD(458.02,24,4)="D HLP^PRSATIM"
^DD(458.02,24,21,0)="^^2^2^2921113^"
^DD(458.02,24,21,1,0)="The scheduled stop time for the fifth segment of the first tour of duty"
^DD(458.02,24,21,2,0)="for this day."
^DD(458.02,24,"DT")="2920129"
^DD(458.02,25,0)="TOUR #1 SCH SPECIAL CODE-5^P457.2'^PRST(457.2,^1;15^Q"
^DD(458.02,25,21,0)="^^3^3^2921113^"
^DD(458.02,25,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,25,21,2,0)="scheduled type of special (non-regular) hours associated with the fifth"
^DD(458.02,25,21,3,0)="segment of the first tour of duty for this day."
^DD(458.02,25,"DT")="2920129"
^DD(458.02,26,0)="TOUR #1 SCH START TIME-6^FX^^1;16^D:$D(X) ^PRSATIM"
^DD(458.02,26,4)="D HLP^PRSATIM"
^DD(458.02,26,21,0)="^^2^2^2941202^^"
^DD(458.02,26,21,1,0)="The scheduled start time for the sixth segment of the first tour of duty"
^DD(458.02,26,21,2,0)="for this day."
^DD(458.02,26,"DT")="2920129"
^DD(458.02,27,0)="TOUR #1 SCH STOP TIME-6^FX^^1;17^D:$D(X) ^PRSATIM"
^DD(458.02,27,4)="D HLP^PRSATIM"
^DD(458.02,27,21,0)="^^2^2^2921113^"
^DD(458.02,27,21,1,0)="The scheduled stop time for the sixth segment of the first tour of duty"
^DD(458.02,27,21,2,0)="for this day."
^DD(458.02,27,"DT")="2920129"
^DD(458.02,28,0)="TOUR #1 SCH SPECIAL CODE-6^P457.2'^PRST(457.2,^1;18^Q"
^DD(458.02,28,21,0)="^^3^3^2921113^"
^DD(458.02,28,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,28,21,2,0)="scheduled type of special (non-regular) hours associated with the sixth"
^DD(458.02,28,21,3,0)="segment of the first tour of duty for this day."
^DD(458.02,28,"DT")="2920129"
^DD(458.02,29,0)="TOUR #1 SCH START TIME-7^FX^^1;19^D:$D(X) ^PRSATIM"
^DD(458.02,29,4)="D HLP^PRSATIM"
^DD(458.02,29,21,0)="^^2^2^2921113^"
^DD(458.02,29,21,1,0)="The scheduled start time for the seventh segment of the first tour of duty"
^DD(458.02,29,21,2,0)="for this day."
^DD(458.02,29,"DT")="2920129"
^DD(458.02,30,0)="TOUR #1 SCH STOP TIME-7^FX^^1;20^D:$D(X) ^PRSATIM"
^DD(458.02,30,4)="D HLP^PRSATIM"
^DD(458.02,30,21,0)="^^2^2^2921113^"
^DD(458.02,30,21,1,0)="The scheduled stop time for the seventh segment of the first tour of duty"
^DD(458.02,30,21,2,0)="for this day."
^DD(458.02,30,"DT")="2920129"
^DD(458.02,31,0)="TOUR #1 SCH SPECIAL CODE-7^FX^PRST(457.2,^1;21^Q"
^DD(458.02,31,21,0)="^^3^3^2921113^"
^DD(458.02,31,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,31,21,2,0)="scheduled type of special (non-regular) hours associated with the seventh"
^DD(458.02,31,21,3,0)="segment of the first tour of duty for this day."
^DD(458.02,31,"DT")="2920129"
^DD(458.02,32,0)="TOUR #2 SCH START TIME-1^FX^^4;1^D:$D(X) ^PRSATIM"
^DD(458.02,32,4)="D HLP^PRSATIM"
^DD(458.02,32,21,0)="^^2^2^2921113^"
^DD(458.02,32,21,1,0)="The scheduled start time for the first segment of the second tour of duty"
^DD(458.02,32,21,2,0)="for this day."
^DD(458.02,32,"DT")="2920129"
^DD(458.02,32.1,0)="TOUR #2 SCH STOP TIME-1^FX^^4;2^D:$D(X) ^PRSATIM"
^DD(458.02,32.1,4)="D HLP^PRSATIM"
^DD(458.02,32.1,21,0)="^^2^2^2921113^"
^DD(458.02,32.1,21,1,0)="The scheduled stop time for the first segment of the second tour of duty"
^DD(458.02,32.1,21,2,0)="for this day."
^DD(458.02,32.1,"DT")="2920129"
^DD(458.02,32.2,0)="TOUR #2 SCH SPECIAL CODE-1^P457.2'^PRST(457.2,^4;3^Q"
^DD(458.02,32.2,21,0)="^^3^3^2921113^"
^DD(458.02,32.2,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,32.2,21,2,0)="scheduled type of special (non-regular) hours associated with the first"
^DD(458.02,32.2,21,3,0)="segment of the second tour of duty for this day."
^DD(458.02,32.2,"DT")="2920129"
^DD(458.02,32.3,0)="TOUR #2 SCH START TIME-2^FX^^4;4^D:$D(X) ^PRSATIM"
^DD(458.02,32.3,4)="D HLP^PRSATIM"
^DD(458.02,32.3,21,0)="^^2^2^2921113^"
^DD(458.02,32.3,21,1,0)="The scheduled start time for the second segment of the second tour of duty"
^DD(458.02,32.3,21,2,0)="for this day."
^DD(458.02,32.3,"DT")="2920129"
^DD(458.02,32.4,0)="TOUR #2 SCH STOP TIME-2^FX^^4;5^D:$D(X) ^PRSATIM"
^DD(458.02,32.4,4)="D HLP^PRSATIM"
^DD(458.02,32.4,21,0)="^^2^2^2921116^"
^DD(458.02,32.4,21,1,0)="The scheduled stop time for the second segment of the second tour of duty"
^DD(458.02,32.4,21,2,0)="for this day."
^DD(458.02,32.4,"DT")="2920129"
^DD(458.02,32.5,0)="TOUR #2 SCH SPECIAL CODE-2^P457.2'^PRST(457.2,^4;6^Q"
^DD(458.02,32.5,21,0)="^^3^3^2921113^"
^DD(458.02,32.5,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,32.5,21,2,0)="scheduled type of special (non-regular) hours associated with the second"
^DD(458.02,32.5,21,3,0)="segment of the second tour of duty for this day."
^DD(458.02,32.5,"DT")="2920129"
^DD(458.02,32.6,0)="TOUR #2 SCH START TIME-3^FX^^4;7^D:$D(X) ^PRSATIM"
^DD(458.02,32.6,4)="D HLP^PRSATIM"
^DD(458.02,32.6,21,0)="^^2^2^2921113^"
^DD(458.02,32.6,21,1,0)="The scheduled start time for the third segment of the second tour of duty"
^DD(458.02,32.6,21,2,0)="for this day."
^DD(458.02,32.6,"DT")="2920129"
^DD(458.02,32.7,0)="TOUR #2 SCH STOP TIME-3^FX^^4;8^D:$D(X) ^PRSATIM"
^DD(458.02,32.7,4)="D HLP^PRSATIM"
^DD(458.02,32.7,21,0)="^^2^2^2921113^"
^DD(458.02,32.7,21,1,0)="The scheduled stop time for the third segment of the second tour of duty"
^DD(458.02,32.7,21,2,0)="for this day."
^DD(458.02,32.7,"DT")="2920129"
^DD(458.02,32.8,0)="TOUR #2 SCH SPECIAL CODE-3^P457.2'^PRST(457.2,^4;9^Q"
^DD(458.02,32.8,21,0)="^^3^3^2921113^"
^DD(458.02,32.8,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,32.8,21,2,0)="scheduled type of special (non-regular) hours associated with the third"
^DD(458.02,32.8,21,3,0)="segment of the second tour of duty for this day."
^DD(458.02,32.8,"DT")="2920129"
^DD(458.02,32.9,0)="TOUR #2 SCH START TIME-4^FX^^4;10^D:$D(X) ^PRSATIM"
^DD(458.02,32.9,4)="D HLP^PRSATIM"
^DD(458.02,32.9,21,0)="^^2^2^2921113^"
^DD(458.02,32.9,21,1,0)="The scheduled start time for the fourth segment of the second tour of duty"
^DD(458.02,32.9,21,2,0)="for this day."
^DD(458.02,32.9,"DT")="2920129"
^DD(458.02,33,0)="TOUR #2 SCH STOP TIME-4^FX^^4;11^D:$D(X) ^PRSATIM"
^DD(458.02,33,4)="D HLP^PRSATIM"
^DD(458.02,33,21,0)="^^2^2^2921113^"
^DD(458.02,33,21,1,0)="The scheduled stop time for the fourth segment of the second tour of duty"
^DD(458.02,33,21,2,0)="for this day."
^DD(458.02,33,"DT")="2920129"
^DD(458.02,33.1,0)="TOUR #2 SCH SPECIAL CODE-4^P457.2'^PRST(457.2,^4;12^Q"
^DD(458.02,33.1,21,0)="^^3^3^2921113^"
^DD(458.02,33.1,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,33.1,21,2,0)="scheduled type of special (non-regular) hours associated with the fourth"
^DD(458.02,33.1,21,3,0)="segment of the second tour of duty for this day."
^DD(458.02,33.1,"DT")="2920129"
^DD(458.02,33.2,0)="TOUR #2 SCH START TIME-5^FX^^4;13^D:$D(X) ^PRSATIM"
^DD(458.02,33.2,4)="D HLP^PRSATIM"
^DD(458.02,33.2,21,0)="^^2^2^2921113^"
^DD(458.02,33.2,21,1,0)="The scheduled start time for the fifth segment of the second tour of duty"
^DD(458.02,33.2,21,2,0)="for this day."
^DD(458.02,33.2,"DT")="2920129"
^DD(458.02,33.3,0)="TOUR #2 SCH STOP TIME-5^FX^^4;14^D:$D(X) ^PRSATIM"
^DD(458.02,33.3,4)="D HLP^PRSATIM"
^DD(458.02,33.3,21,0)="^^2^2^2921113^"
^DD(458.02,33.3,21,1,0)="The scheduled stop time for the fifth segment of the second tour of duty"
^DD(458.02,33.3,21,2,0)="for this day."
^DD(458.02,33.3,"DT")="2920129"
^DD(458.02,33.4,0)="TOUR #2 SCH SPECIAL CODE-5^P457.2'^PRST(457.2,^4;15^Q"
^DD(458.02,33.4,21,0)="^^3^3^2921113^"
^DD(458.02,33.4,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,33.4,21,2,0)="scheduled type of special (non-regular) hours associated with the fifth"
^DD(458.02,33.4,21,3,0)="segment of the second tour of duty for this day."
^DD(458.02,33.4,"DT")="2920129"
^DD(458.02,33.5,0)="TOUR #2 SCH START TIME-6^FX^^4;16^D:$D(X) ^PRSATIM"
^DD(458.02,33.5,4)="D HLP^PRSATIM"
^DD(458.02,33.5,21,0)="^^2^2^2921113^"
^DD(458.02,33.5,21,1,0)="The scheduled start time for the sixth segment of the second tour of duty"
^DD(458.02,33.5,21,2,0)="for this day."
^DD(458.02,33.5,"DT")="2920129"
^DD(458.02,33.6,0)="TOUR #2 SCH STOP TIME-6^FX^^4;17^D:$D(X) ^PRSATIM"
^DD(458.02,33.6,4)="D HLP^PRSATIM"
^DD(458.02,33.6,21,0)="^^2^2^2921113^"
^DD(458.02,33.6,21,1,0)="The scheduled stop time for the sixth segment of the second tour of duty"
^DD(458.02,33.6,21,2,0)="for this day."
^DD(458.02,33.6,"DT")="2920129"
^DD(458.02,33.7,0)="TOUR #2 SCH SPECIAL CODE-6^P457.2'^PRST(457.2,^4;18^Q"
^DD(458.02,33.7,21,0)="^^3^3^2921113^"
^DD(458.02,33.7,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,33.7,21,2,0)="scheduled type of special (non-regular) hours associated with the sixth"
^DD(458.02,33.7,21,3,0)="segment of the second tour of duty for this day."
^DD(458.02,33.7,"DT")="2920129"
^DD(458.02,33.8,0)="TOUR #2 SCH START TIME-7^FX^^4;19^D:$D(X) ^PRSATIM"
^DD(458.02,33.8,4)="D HLP^PRSATIM"
^DD(458.02,33.8,21,0)="^^2^2^2921113^"
^DD(458.02,33.8,21,1,0)="The scheduled start time for the seventh segment of the second tour of"
^DD(458.02,33.8,21,2,0)="duty for this day."
^DD(458.02,33.8,"DT")="2920129"
^DD(458.02,33.9,0)="TOUR #2 SCH STOP TIME-7^FX^^4;20^D:$D(X) ^PRSATIM"
^DD(458.02,33.9,4)="D HLP^PRSATIM"
^DD(458.02,33.9,21,0)="^^2^2^2921113^"
^DD(458.02,33.9,21,1,0)="The scheduled stop time for the seventh segment of the second tour of duty"
^DD(458.02,33.9,21,2,0)="for this day."
^DD(458.02,33.9,"DT")="2920129"
^DD(458.02,34,0)="TOUR #2 SCH SPECIAL CODE-7^FX^PRST(457.2,^4;21^Q"
^DD(458.02,34,21,0)="^^3^3^2921113^"
^DD(458.02,34,21,1,0)="A pointer to the SPECIAL TOUR INDICATOR file (#457.2) which identifies the"
^DD(458.02,34,21,2,0)="scheduled type of special (non-regular) hours associated with the seventh"
^DD(458.02,34,21,3,0)="segment of the second tour of duty for this day."
^DD(458.02,34,"DT")="2920129"
^DD(458.02,41,0)="WRK START TIME-1^FX^^2;1^D:$D(X) ^PRSATIM"
^DD(458.02,41,4)="D HLP^PRSATIM"
^DD(458.02,41,21,0)="^^2^2^2921117^"
^DD(458.02,41,21,1,0)="The time the employee actually began work/leave for the first time segment"
^DD(458.02,41,21,2,0)="of the work day."
^DD(458.02,41,"DT")="2920129"
^DD(458.02,42,0)="WRK STOP TIME-1^FX^^2;2^D:$D(X) ^PRSATIM"
^DD(458.02,42,4)="D HLP^PRSATIM"
^DD(458.02,42,21,0)="^^2^2^2921117^"
^DD(458.02,42,21,1,0)="The time the employee actually stopped work/leave for the first time"
^DD(458.02,42,21,2,0)="segment of the work day."
^DD(458.02,42,"DT")="2920129"
^DD(458.02,43,0)="WRK TYPE OF TIME-1^FX^^2;3^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,43,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,43,21,0)="^^2^2^2921113^"
^DD(458.02,43,21,1,0)="The type of time worked or leave taken for the first segment of the work"
^DD(458.02,43,21,2,0)="day."
^DD(458.02,43,"DT")="2920129"
^DD(458.02,44,0)="WRK SPECIAL CODE-1^*P457.4'^PRST(457.4,^2;4^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,44,12)="Select only valid time remarks for Type of Time."
^DD(458.02,44,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,44,21,0)="^^3^3^2921113^"
^DD(458.02,44,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark"
^DD(458.02,44,21,2,0)="with the type of time worked or leave taken for the first segment of the"
^DD(458.02,44,21,3,0)="work day."
^DD(458.02,44,"DT")="2920129"
^DD(458.02,45,0)="WRK START TIME-2^FX^^2;5^D:$D(X) ^PRSATIM"
^DD(458.02,45,4)="D HLP^PRSATIM"
^DD(458.02,45,21,0)="^^2^2^2921117^"
^DD(458.02,45,21,1,0)="The time the employee actually began work/leave for the second time segment"
^DD(458.02,45,21,2,0)="of the work day."
^DD(458.02,45,"DT")="2920129"
^DD(458.02,46,0)="WRK STOP TIME-2^FX^^2;6^D:$D(X) ^PRSATIM"
^DD(458.02,46,4)="D HLP^PRSATIM"
^DD(458.02,46,21,0)="^^2^2^2921117^"
^DD(458.02,46,21,1,0)="The time the employee actually stopped work/leave for the second time"
^DD(458.02,46,21,2,0)="segment of the work day."
^DD(458.02,46,"DT")="2920129"
^DD(458.02,47,0)="WRK TYPE OF TIME-2^FX^^2;7^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,47,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,47,21,0)="^^2^2^2921113^"
^DD(458.02,47,21,1,0)="The type of time worked or leave taken for the second segment of the work"
^DD(458.02,47,21,2,0)="day."
^DD(458.02,47,"DT")="2920129"
^DD(458.02,48,0)="WRK SPECIAL CODE-2^*P457.4'^PRST(457.4,^2;8^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,48,12)="Select only valid time remarks for Type of Time."
^DD(458.02,48,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,48,21,0)="^^3^3^2921113^"
^DD(458.02,48,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark"
^DD(458.02,48,21,2,0)="with the type of time worked or leave taken for the second segment of the"
^DD(458.02,48,21,3,0)="work day."
^DD(458.02,48,"DT")="2920129"
^DD(458.02,49,0)="WRK START TIME-3^FX^^2;9^D:$D(X) ^PRSATIM"
^DD(458.02,49,4)="D HLP^PRSATIM"
^DD(458.02,49,21,0)="^^2^2^2921117^"
^DD(458.02,49,21,1,0)="The time the employee actually began work/leave for the third time segment"
^DD(458.02,49,21,2,0)="of the work day."
^DD(458.02,49,"DT")="2920129"
^DD(458.02,50,0)="WRK STOP TIME-3^FX^^2;10^D:$D(X) ^PRSATIM"
^DD(458.02,50,4)="D HLP^PRSATIM"
^DD(458.02,50,21,0)="^^2^2^2921117^"
^DD(458.02,50,21,1,0)="The time the employee actually stopped work/leave for the third time"
^DD(458.02,50,21,2,0)="segment of the work day."
^DD(458.02,50,"DT")="2920129"
^DD(458.02,51,0)="WRK TYPE OF TIME-3^FX^^2;11^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,51,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,51,21,0)="^^2^2^2921113^"
^DD(458.02,51,21,1,0)="The type of time worked or leave taken for the third segment of the work"
^DD(458.02,51,21,2,0)="day."
^DD(458.02,51,"DT")="2920129"
^DD(458.02,52,0)="WRK SPECIAL CODE-3^*P457.4'^PRST(457.4,^2;12^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,52,12)="Select only valid time remarks for Type of Time."
^DD(458.02,52,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,52,21,0)="^^3^3^2921113^"
^DD(458.02,52,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark"
^DD(458.02,52,21,2,0)="with the type of time worked or leave taken for the third segment of the"
^DD(458.02,52,21,3,0)="work day."
^DD(458.02,52,"DT")="2920129"
^DD(458.02,53,0)="WRK START TIME-4^FX^^2;13^D:$D(X) ^PRSATIM"
^DD(458.02,53,4)="D HLP^PRSATIM"
^DD(458.02,53,21,0)="^^2^2^2921117^"
^DD(458.02,53,21,1,0)="The time the employee actually began work/leave for the fourth time segment"
^DD(458.02,53,21,2,0)="of the work day."
^DD(458.02,53,"DT")="2920129"
^DD(458.02,54,0)="WRK STOP TIME-4^FX^^2;14^D:$D(X) ^PRSATIM"
^DD(458.02,54,4)="D HLP^PRSATIM"
^DD(458.02,54,21,0)="^^2^2^2921117^"
^DD(458.02,54,21,1,0)="The time the employee actually stopped work/leave for the fourth time"
^DD(458.02,54,21,2,0)="segment of the work day."
^DD(458.02,54,"DT")="2920129"
^DD(458.02,55,0)="WRK TYPE OF TIME-4^FX^^2;15^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,55,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,55,21,0)="^^2^2^2921113^"
^DD(458.02,55,21,1,0)="The type of time worked or leave taken for the fourth segment of the work"
^DD(458.02,55,21,2,0)="day."
^DD(458.02,55,"DT")="2920129"
^DD(458.02,56,0)="WRK SPECIAL CODE-4^*P457.4'^PRST(457.4,^2;16^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,56,12)="Select only valid time remarks for Type of Time."
^DD(458.02,56,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,56,21,0)="^^3^3^2921113^"
^DD(458.02,56,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark"
^DD(458.02,56,21,2,0)="with the type of time worked or leave taken for the fourth segment of the"
^DD(458.02,56,21,3,0)="work day."
^DD(458.02,56,"DT")="2920129"
^DD(458.02,57,0)="WRK START TIME-5^FX^^2;17^D:$D(X) ^PRSATIM"
^DD(458.02,57,4)="D HLP^PRSATIM"
^DD(458.02,57,21,0)="^^2^2^2921117^"
^DD(458.02,57,21,1,0)="The time the employee actually began work/leave for the fifth time segment"
^DD(458.02,57,21,2,0)="of the work day."
^DD(458.02,57,"DT")="2920129"
^DD(458.02,58,0)="WRK STOP TIME-5^FX^^2;18^D:$D(X) ^PRSATIM"
^DD(458.02,58,4)="D HLP^PRSATIM"
^DD(458.02,58,21,0)="^^2^2^2921117^"
^DD(458.02,58,21,1,0)="The time the employee actually stopped work/leave for the fifth time"
^DD(458.02,58,21,2,0)="segment of the work day."
^DD(458.02,58,"DT")="2920129"
^DD(458.02,59,0)="WRK TYPE OF TIME-5^FX^^2;19^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,59,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,59,21,0)="^^2^2^2921113^"
^DD(458.02,59,21,1,0)="The type of time worked or leave taken for the fifth segment of the work"
^DD(458.02,59,21,2,0)="day."
^DD(458.02,59,"DT")="2920129"
^DD(458.02,60,0)="WRK SPECIAL CODE-5^*P457.4'^PRST(457.4,^2;20^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,60,12)="Select only valid time remarks for Type of Time."
^DD(458.02,60,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,60,21,0)="^^3^3^2921113^"
^DD(458.02,60,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark"
^DD(458.02,60,21,2,0)="with the type of time worked or leave taken for the fifth segment of the"
^DD(458.02,60,21,3,0)="work day."
^DD(458.02,60,"DT")="2920129"
^DD(458.02,61,0)="WRK START TIME-6^FX^^2;21^D:$D(X) ^PRSATIM"
^DD(458.02,61,4)="D HLP^PRSATIM"
^DD(458.02,61,21,0)="^^2^2^2921117^"
^DD(458.02,61,21,1,0)="The time the employee actually began work/leave for the sixth time segment"
^DD(458.02,61,21,2,0)="of the work day."
^DD(458.02,61,"DT")="2920129"
^DD(458.02,62,0)="WRK STOP TIME-6^FX^^2;22^D:$D(X) ^PRSATIM"
^DD(458.02,62,4)="D HLP^PRSATIM"
^DD(458.02,62,21,0)="^^2^2^2921117^"
^DD(458.02,62,21,1,0)="The time the employee actually stopped work/leave for the sixth time"
^DD(458.02,62,21,2,0)="segment of the work day."
^DD(458.02,62,"DT")="2920129"
^DD(458.02,63,0)="WRK TYPE OF TIME-6^FX^^2;23^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,63,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,63,21,0)="^^2^2^2921113^"
^DD(458.02,63,21,1,0)="The type of time worked or leave taken for the sixth segment of the work"
^DD(458.02,63,21,2,0)="day."
^DD(458.02,63,"DT")="2920129"
^DD(458.02,64,0)="WRK SPECIAL CODE-6^*P457.4'^PRST(457.4,^2;24^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,64,12)="Select only valid time remarks for Type of Time."
^DD(458.02,64,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,64,21,0)="^^3^3^2921113^"
^DD(458.02,64,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark"
^DD(458.02,64,21,2,0)="with the type of time worked or leave taken for the sixth segment of the"
^DD(458.02,64,21,3,0)="work day."
^DD(458.02,64,"DT")="2920129"
^DD(458.02,65,0)="WRK START TIME-7^FX^^2;25^D:$D(X) ^PRSATIM"
^DD(458.02,65,4)="D HLP^PRSATIM"
^DD(458.02,65,21,0)="^^2^2^2921117^"
^DD(458.02,65,21,1,0)="The time the employee actually began work/leave for the seventh time"
^DD(458.02,65,21,2,0)="segment of the work day."
^DD(458.02,65,"DT")="2920129"
^DD(458.02,66,0)="WRK STOP TIME-7^FX^^2;26^D:$D(X) ^PRSATIM"
^DD(458.02,66,4)="D HLP^PRSATIM"
^DD(458.02,66,21,0)="^^2^2^2921117^"
^DD(458.02,66,21,1,0)="The time the employee actually stopped work/leave for the seventh time"
^DD(458.02,66,21,2,0)="segment of the work day."
^DD(458.02,66,"DT")="2920129"
^DD(458.02,67,0)="WRK TYPE OF TIME-7^FX^^2;27^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,67,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,67,21,0)="^^2^2^2921113^"
^DD(458.02,67,21,1,0)="The type of time worked or leave taken for the seventh segment of the work"
^DD(458.02,67,21,2,0)="day."
^DD(458.02,67,"DT")="2920129"
^DD(458.02,68,0)="WRK SPECIAL CODE-7^*P457.4'^PRST(457.4,^2;28^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,68,12)="Select only valid time remarks for Type of Time."
^DD(458.02,68,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,68,21,0)="^^3^3^2921113^"
^DD(458.02,68,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark"
^DD(458.02,68,21,2,0)="with the type of time worked or leave taken for the seventh segment of the"
^DD(458.02,68,21,3,0)="work day."
^DD(458.02,68,"DT")="2920129"
^DD(458.02,70,0)="T/K REMARKS^F^^3;1^K:$L(X)>70!($L(X)<1) X"
^DD(458.02,70,3)="Answer must be 1-70 characters in length."
^DD(458.02,70,21,0)="^^1^1^2921113^"
^DD(458.02,70,21,1,0)="A free text response for any timekeeper remarks."
^DD(458.02,70,"DT")="2920714"
^DD(458.02,101,0)="POSTING STATUS^S^T:TIMEKEEPER POSTED;P:PAYROLL REVIEWED;X:TRANSMITTED;^10;1^Q"
^DD(458.02,101,21,0)="^^1^1^2921113^"
^DD(458.02,101,21,1,0)="The status of this day's posting."
^DD(458.02,101,"DT")="2921113"
^DD(458.02,102,0)="TIMEKEEPER POSTING^P200'^VA(200,^10;2^Q"
^DD(458.02,102,21,0)="^^2^2^2921113^"
^DD(458.02,102,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the timekeeper"
^DD(458.02,102,21,2,0)="who posted this day's entry."
^DD(458.02,102,"DT")="2920424"
^DD(458.02,103,0)="TK DATE/TIME ENTERED^D^^10;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.02,103,21,0)="^^1^1^2921113^"
^DD(458.02,103,21,1,0)="The date and time this day's entry was posted."
^DD(458.02,103,"DT")="2920520"
^DD(458.02,104,0)="POSTING TYPE^S^1:WORKED ENTIRE TOUR;2:ABSENT ENTIRE TOUR;3:IRREGULAR TOUR;^10;4^Q"
^DD(458.02,104,21,0)="^^2^2^2921113^"
^DD(458.02,104,21,1,0)="Identifies the employee as having worked the entire tour, been absent the"
^DD(458.02,104,21,2,0)="entire tour or having a mixture of work and leave hours during the tour."
^DD(458.02,104,"DT")="2920529"
^DD(458.02,110,0)="ESR START TIME-1^FX^^5;1^D:$D(X) ^PRSATIM"
^DD(458.02,110,3)="The start time for the 1st segment of work."
^DD(458.02,110,4)="D HLP^PRSATIM"
^DD(458.02,110,21,0)="^.001^2^2^3050122^^^"
^DD(458.02,110,21,1,0)="The time the Part Time Physician actually began work/leave for the"
^DD(458.02,110,21,2,0)="first time segment of the work day."
^DD(458.02,110,"DT")="3050122"
^DD(458.02,111,0)="ESR STOP TIME-1^FX^^5;2^D:$D(X) ^PRSATIM"
^DD(458.02,111,3)="The end time for the 1st segment of work."
^DD(458.02,111,4)="D HLP^PRSATIM"
^DD(458.02,111,21,0)="^^1^1^3040910^^"
^DD(458.02,111,21,1,0)="The time the Part Time Physician actually stopped work/leave for the first time segment of the work day."
^DD(458.02,111,"DT")="3050122"
^DD(458.02,112,0)="ESR TYPE OF TIME-1^FX^^5;3^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,112,3)="The type of work performed during the 1st segment of work."
^DD(458.02,112,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,112,21,0)="^.001^1^1^3041118^^^"
^DD(458.02,112,21,1,0)="The type of time worked or leave taken for the first segment of the work day."
^DD(458.02,112,"DT")="3050122"
^DD(458.02,113,0)="ESR SPECIAL CODE-1^*P457.4'^PRST(457.4,^5;4^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,113,3)="The remarks code, if any, for the 1st segment of work."
^DD(458.02,113,12)="Select only valid time remarks for Type of Time."
^DD(458.02,113,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,113,21,0)="^^1^1^3040910^"
^DD(458.02,113,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark with the type of time worked or leave taken for the first segment of the work day."
^DD(458.02,113,"DT")="3050122"
^DD(458.02,114,0)="ESR MEAL TIME-1^FX^^5;5^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.02,114,3)="Enter 0, 15, 30, 45, or 60 as the best approximation of the actual meal time in minutes."
^DD(458.02,114,4)=""
^DD(458.02,114,21,0)="^.001^9^9^3050728^^^^"
^DD(458.02,114,21,1,0)="Enter the best approximation of time for the meal during this "
^DD(458.02,114,21,2,0)="work segment in increments of 15 minutes.  Meals may not be "
^DD(458.02,114,21,3,0)="longer than 60 minutes, so appropriate meal times are 15, 30, "
^DD(458.02,114,21,4,0)="45, and 60.  Enter a 0 or leave the field blank to indicate "
^DD(458.02,114,21,5,0)="that no meal was taken.  When meals are taken, they must be "
^DD(458.02,114,21,6,0)="entered, even when they are not scheduled for that tour.  "
^DD(458.02,114,21,7,0)="Meals may be entered for periods of both regular hours and "
^DD(458.02,114,21,8,0)="leave.  Entering the meal time will automatically deduct the "
^DD(458.02,114,21,9,0)="meal from the total creditable hours in the work segment. "
^DD(458.02,114,"DT")="3050728"
^DD(458.02,115,0)="ESR START TIME-2^FX^^5;6^D:$D(X) ^PRSATIM"
^DD(458.02,115,3)="The start time for the 2nd segment of work."
^DD(458.02,115,4)="D HLP^PRSATIM"
^DD(458.02,115,21,0)="^^1^1^3040910^"
^DD(458.02,115,21,1,0)="The time the Part Time Physician actually began work/leave for the second time segment of the work day."
^DD(458.02,115,"DT")="3050122"
^DD(458.02,116,0)="ESR STOP TIME-2^FX^^5;7^D:$D(X) ^PRSATIM"
^DD(458.02,116,3)="The end time for the 2nd segment of work."
^DD(458.02,116,4)="D HLP^PRSATIM"
^DD(458.02,116,21,0)="^^1^1^3040910^"
^DD(458.02,116,21,1,0)="The time the Part Time Physician actually began work/leave for the second time segment of the work day."
^DD(458.02,116,"DT")="3050122"
^DD(458.02,117,0)="ESR TYPE OF TIME-2^FX^^5;8^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,117,3)="The type of work performed during the 2nd segment of work."
^DD(458.02,117,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,117,21,0)="^^1^1^3040910^"
^DD(458.02,117,21,1,0)="The type of time worked or leave taken for the second segment of the work day."
^DD(458.02,117,"DT")="3050122"
^DD(458.02,118,0)="ESR SPECIAL CODE-2^*P457.4'^PRST(457.4,^5;9^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,118,3)="The remarks code, if any, for the 2nd segment of work."
^DD(458.02,118,12)="Select only valid time remarks for Type of Time."
^DD(458.02,118,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,118,21,0)="^^1^1^3040910^"
^DD(458.02,118,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark with the type of time worked or leave taken for the second segment of the work day."
^DD(458.02,118,"DT")="3050122"
^DD(458.02,119,0)="ESR MEAL TIME-2^FX^^5;10^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.02,119,3)="Enter 0, 15, 30, 45, or 60 as the best approximation of the actual meal time in minutes."
^DD(458.02,119,21,0)="^.001^9^9^3050211^^^"
^DD(458.02,119,21,1,0)="Enter the best approximation of time for the meal during this"
^DD(458.02,119,21,2,0)="work segment in increments of 15 minutes.  Meals may not be "
^DD(458.02,119,21,3,0)="longer than 60 minutes, so appropriate meal times are 15, 30,"
^DD(458.02,119,21,4,0)="45, and 60.  Enter a 0 or leave the field blank to indicate "
^DD(458.02,119,21,5,0)="that no meal was taken.  When meals are taken, they must be "
^DD(458.02,119,21,6,0)="entered, even when they are not scheduled for that tour.  "
^DD(458.02,119,21,7,0)="Meals may be entered for periods of both regular hours and "
^DD(458.02,119,21,8,0)="leave.  Entering the meal time will automatically deduct the "
^DD(458.02,119,21,9,0)="meal from the total creditable hours in the work segment. "
^DD(458.02,119,"DT")="3050128"
^DD(458.02,120,0)="ESR START TIME-3^FX^^5;11^D:$D(X) ^PRSATIM"
^DD(458.02,120,3)="The start time for the 3rd segment of work."
^DD(458.02,120,4)="D HLP^PRSATIM"
^DD(458.02,120,21,0)="^^1^1^3040910^"
^DD(458.02,120,21,1,0)="The time the Part Time Physician actually began work/leave for the third time segment of the work day."
^DD(458.02,120,"DT")="3050122"
^DD(458.02,121,0)="ESR STOP TIME-3^FX^^5;12^D:$D(X) ^PRSATIM"
^DD(458.02,121,3)="The end time for the 3rd segment of work."
^DD(458.02,121,4)="D HLP^PRSATIM"
^DD(458.02,121,21,0)="^^1^1^3040910^"
^DD(458.02,121,21,1,0)="The time the Part Time Physician actually began work/leave for the third time segment of the work day."
^DD(458.02,121,"DT")="3050122"
^DD(458.02,122,0)="ESR TYPE OF TIME-3^FX^^5;13^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,122,3)="The type of work performed during the 3rd segment of work."
^DD(458.02,122,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,122,21,0)="^^1^1^3040910^"
^DD(458.02,122,21,1,0)="The type of time worked or leave taken for the third segment of the work day."
^DD(458.02,122,"DT")="3050122"
^DD(458.02,123,0)="ESR SPECIAL CODE-3^*P457.4'^PRST(457.4,^5;14^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,123,3)="The remarks code, if any, for the 3rd segment of work."
^DD(458.02,123,12)="Select only valid time remarks for Type of Time."
^DD(458.02,123,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,123,21,0)="^^1^1^3050331^"
^DD(458.02,123,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark with the type of time worked or leave taken for the third segment of the work day."
^DD(458.02,123,"DT")="3050122"
^DD(458.02,124,0)="ESR MEAL TIME-3^FX^^5;15^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.02,124,3)="Enter 0, 15, 30, 45, or 60 as the best approximation of the actual meal time in minutes."
^DD(458.02,124,4)=""
^DD(458.02,124,21,0)="^.001^9^9^3050211^^^"
^DD(458.02,124,21,1,0)="Enter the best approximation of time for the meal during this"
^DD(458.02,124,21,2,0)="work segment in increments of 15 minutes.  Meals may not be "
^DD(458.02,124,21,3,0)="longer than 60 minutes, so appropriate meal times are 15, 30,"
^DD(458.02,124,21,4,0)="45, and 60.  Enter a 0 or leave the field blank to indicate "
^DD(458.02,124,21,5,0)="that no meal was taken.  When meals are taken, they must be "
^DD(458.02,124,21,6,0)="entered, even when they are not scheduled for that tour.  "
^DD(458.02,124,21,7,0)="Meals may be entered for periods of both regular hours and "
^DD(458.02,124,21,8,0)="leave.  Entering the meal time will automatically deduct the "
^DD(458.02,124,21,9,0)="meal from the total creditable hours in the work segment."
^DD(458.02,124,"DT")="3050128"
^DD(458.02,125,0)="ESR START TIME-4^FX^^5;16^D:$D(X) ^PRSATIM"
^DD(458.02,125,3)="The start time for the 4th segment of work."
^DD(458.02,125,4)="D HLP^PRSATIM"
^DD(458.02,125,21,0)="^^1^1^3040910^"
^DD(458.02,125,21,1,0)="The time the Part Time Physician actually began work/leave for the fourth time segment of the work day."
^DD(458.02,125,"DT")="3050122"
^DD(458.02,126,0)="ESR STOP TIME-4^FX^^5;17^D:$D(X) ^PRSATIM"
^DD(458.02,126,3)="The end time for the 4th segment of work."
^DD(458.02,126,4)="D HLP^PRSATIM"
^DD(458.02,126,21,0)="^^1^1^3040910^"
^DD(458.02,126,21,1,0)="The time the Part Time Physician actually began work/leave for the fourth time segment of the work day."
^DD(458.02,126,"DT")="3050122"
^DD(458.02,127,0)="ESR TYPE OF TIME-4^FX^^5;18^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,127,3)="The type of work performed during the 4th segment of work."
^DD(458.02,127,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,127,21,0)="^^1^1^3040910^"
^DD(458.02,127,21,1,0)="The type of time worked or leave taken for the fourth segment of the work day."
^DD(458.02,127,"DT")="3050122"
^DD(458.02,128,0)="ESR SPECIAL CODE-4^*P457.4'^PRST(457.4,^5;19^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,128,3)="The remarks code, if any, for the 4th segment of work."
^DD(458.02,128,12)="Select only valid time remarks for Type of Time."
^DD(458.02,128,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,128,21,0)="^.001^1^1^3041026^^^"
^DD(458.02,128,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark with the type of time worked or leave taken for the fourth segment of the work day."
^DD(458.02,128,"DT")="3050122"
^DD(458.02,129,0)="ESR MEAL TIME-4^FX^^5;20^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.02,129,3)="Enter 0, 15, 30, 45, or 60 as the best approximation of the actual meal time in minutes."
^DD(458.02,129,4)=""
^DD(458.02,129,21,0)="^.001^9^9^3050211^^^"
^DD(458.02,129,21,1,0)="Enter the best approximation of time for the meal during this"
^DD(458.02,129,21,2,0)="work segment in increments of 15 minutes.  Meals may not be "
^DD(458.02,129,21,3,0)="longer than 60 minutes, so appropriate meal times are 15, 30,"
^DD(458.02,129,21,4,0)="45, and 60.  Enter a 0 or leave the field blank to indicate "
^DD(458.02,129,21,5,0)="that no meal was taken.  When meals are taken, they must be "
^DD(458.02,129,21,6,0)="entered, even when they are not scheduled for that tour.  "
^DD(458.02,129,21,7,0)="Meals may be entered for periods of both regular hours and "
^DD(458.02,129,21,8,0)="leave.  Entering the meal time will automatically deduct the "
^DD(458.02,129,21,9,0)="meal from the total creditable hours in the work segment. "
^DD(458.02,129,"DT")="3050128"
^DD(458.02,130,0)="ESR START TIME-5^FX^^5;21^D:$D(X) ^PRSATIM"
^DD(458.02,130,3)="The start time for the 5th segment of work."
^DD(458.02,130,4)="D HLP^PRSATIM"
^DD(458.02,130,21,0)="^^1^1^3040910^"
^DD(458.02,130,21,1,0)="The time the Part Time Physician actually began work/leave for the fifth time segment of the work day."
^DD(458.02,130,"DT")="3050122"
^DD(458.02,131,0)="ESR STOP TIME-5^FX^^5;22^D:$D(X) ^PRSATIM"
^DD(458.02,131,3)="The end time for the 5th segment of work."
^DD(458.02,131,4)="D HLP^PRSATIM"
^DD(458.02,131,21,0)="^^1^1^3040910^"
^DD(458.02,131,21,1,0)="The time the Part Time Physician actually began work/leave for the fifth time segment of the work day."
^DD(458.02,131,"DT")="3050122"
^DD(458.02,132,0)="ESR TYPE OF TIME-5^FX^^5;23^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,132,3)="The type of work performed during the 5th segment of work."
^DD(458.02,132,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,132,21,0)="^^1^1^3040910^"
^DD(458.02,132,21,1,0)="The type of time worked or leave taken for the fifth segment of the work day."
^DD(458.02,132,"DT")="3050122"
^DD(458.02,133,0)="ESR SPECIAL CODE-5^*P457.4'^PRST(457.4,^5;24^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,133,3)="The remarks code, if any, for the 5th segment of work."
^DD(458.02,133,12)="Select only valid time remarks for Type of Time."
^DD(458.02,133,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,133,21,0)="^.001^1^1^3041026^^^"
^DD(458.02,133,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark with the type of time worked or leave taken for the fifth segment of the work day."
^DD(458.02,133,"DT")="3050122"
^DD(458.02,134,0)="ESR MEAL TIME-5^FX^^5;25^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.02,134,3)="Enter 0, 15, 30, 45, or 60 as the best approximation of the actual meal time in minutes."
^DD(458.02,134,4)=""
^DD(458.02,134,21,0)="^.001^9^9^3050211^^^"
^DD(458.02,134,21,1,0)="Enter the best approximation of time for the meal during this"
^DD(458.02,134,21,2,0)="work segment in increments of 15 minutes.  Meals may not be"
^DD(458.02,134,21,3,0)="longer than 60 minutes, so appropriate meal times are 15, 30,"
^DD(458.02,134,21,4,0)="45, and 60.  Enter a 0 or leave the field blank to indicate"
^DD(458.02,134,21,5,0)="that no meal was taken.  When meals are taken, they must be"
^DD(458.02,134,21,6,0)="entered, even when they are not scheduled for that tour. Meals"
^DD(458.02,134,21,7,0)="may be entered for periods of both regular hours and leave. "
^DD(458.02,134,21,8,0)="Entering the meal time will automatically deduct the meal from"
^DD(458.02,134,21,9,0)="the total creditable hours in the work segment. "
^DD(458.02,134,"DT")="3050128"
^DD(458.02,135,0)="ESR START TIME-6^FX^^5;26^D:$D(X) ^PRSATIM"
^DD(458.02,135,3)="The start time for the 6th segment of work."
^DD(458.02,135,4)="D HLP^PRSATIM"
^DD(458.02,135,21,0)="^^1^1^3040910^"
^DD(458.02,135,21,1,0)="The time the Part Time Physician actually began work/leave for the sixth time segment of the work day."
^DD(458.02,135,"DT")="3050122"
^DD(458.02,136,0)="ESR STOP TIME-6^FX^^5;27^D:$D(X) ^PRSATIM"
^DD(458.02,136,3)="The end time for the 6th segment of work."
^DD(458.02,136,4)="D HLP^PRSATIM"
^DD(458.02,136,21,0)="^^1^1^3040910^"
^DD(458.02,136,21,1,0)="The time the Part Time Physician actually began work/leave for the sixth time segment of the work day."
^DD(458.02,136,"DT")="3050122"
^DD(458.02,137,0)="ESR TYPE OF TIME-6^FX^^5;28^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,137,3)="The type of work performed during the 6th segment of work."
^DD(458.02,137,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,137,21,0)="^^1^1^3040910^"
^DD(458.02,137,21,1,0)="The type of time worked or leave taken for the sixth segment of the work day."
^DD(458.02,137,"DT")="3050122"
^DD(458.02,138,0)="ESR SPECIAL CODE-6^*P457.4'^PRST(457.4,^5;29^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,138,3)="The remarks code, if any, for the 6th segment of work."
^DD(458.02,138,12)="Select only valid time remarks for Type of Time."
^DD(458.02,138,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,138,21,0)="^^1^1^3040910^"
^DD(458.02,138,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark with the type of time worked or leave taken for the sixth segment of the work day."
^DD(458.02,138,"DT")="3050122"
^DD(458.02,139,0)="ESR MEAL TIME-6^FX^^5;30^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.02,139,3)="Enter 0, 15, 30, 45, or 60 as the best approximation of the actual meal time in minutes."
^DD(458.02,139,4)=""
^DD(458.02,139,21,0)="^.001^9^9^3050211^^^"
^DD(458.02,139,21,1,0)="Enter the best approximation of time for the meal during this"
^DD(458.02,139,21,2,0)="work segment in increments of 15 minutes.  Meals may not be "
^DD(458.02,139,21,3,0)="longer than 60 minutes, so appropriate meal times are 15, 30,"
^DD(458.02,139,21,4,0)="45, and 60.  Enter a 0 or leave the field blank to indicate "
^DD(458.02,139,21,5,0)="that no meal was taken.  When meals are taken, they must be "
^DD(458.02,139,21,6,0)="entered, even when they are not scheduled for that tour.  "
^DD(458.02,139,21,7,0)="Meals may be entered for periods of both regular hours and "
^DD(458.02,139,21,8,0)="leave.  Entering the meal time will automatically deduct the "
^DD(458.02,139,21,9,0)="meal from the total creditable hours in the work segment. "
^DD(458.02,139,"DT")="3050128"
^DD(458.02,140,0)="ESR START TIME-7^FX^^5;31^D:$D(X) ^PRSATIM"
^DD(458.02,140,3)="The start time for the 7th segment of work."
^DD(458.02,140,4)="D HLP^PRSATIM"
^DD(458.02,140,21,0)="^^1^1^3040910^"
^DD(458.02,140,21,1,0)="The time the Part Time Physician actually began work/leave for the seventh time segment of the work day."
^DD(458.02,140,"DT")="3050122"
^DD(458.02,141,0)="ESR STOP TIME-7^FX^^5;32^D:$D(X) ^PRSATIM"
^DD(458.02,141,3)="The end time for the 7th segment of work."
^DD(458.02,141,4)="D HLP^PRSATIM"
^DD(458.02,141,21,0)="^^1^1^3040910^"
^DD(458.02,141,21,1,0)="The time the Part Time Physician actually began work/leave for the seventh time segment of the work day."
^DD(458.02,141,"DT")="3050122"
^DD(458.02,142,0)="ESR TYPE OF TIME-7^FX^^5;33^S DIC=457.3,DIC(0)=""EMQ"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.02,142,3)="The type of work performed during the 7th segment of work."
^DD(458.02,142,4)="N D,X,DIC,DO S DIC=""^PRST(457.3,"",DIC(0)=""Q"",DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,1))"",D=""B"" D DQ^DICQ Q"
^DD(458.02,142,21,0)="^^1^1^3040910^"
^DD(458.02,142,21,1,0)="The type of time worked or leave taken for the seventh segment of the work day."
^DD(458.02,142,"DT")="3050122"
^DD(458.02,143,0)="ESR SPECIAL CODE-7^*P457.4'^PRST(457.4,^5;34^S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.02,143,3)="The remarks code, if any, for the 7th segment of work."
^DD(458.02,143,12)="Select only valid time remarks for Type of Time."
^DD(458.02,143,12.1)="S DIC(""S"")=""I $S('$D(TT):1,1:$P(^(0),U,3)[TT)"""
^DD(458.02,143,21,0)="^.001^1^1^3041026^^"
^DD(458.02,143,21,1,0)="A pointer to the TIME REMARKS file (#457.4) which identifies a time remark with the type of time worked or leave taken for the seventh segment of the work day."
^DD(458.02,143,"DT")="3050122"
^DD(458.02,144,0)="ESR MEAL TIME-7^FX^^5;35^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.02,144,3)="Enter 0, 15, 30, 45, or 60 as the best approximation of the actual meal time in minutes."
^DD(458.02,144,4)=""
^DD(458.02,144,21,0)="^.001^9^9^3050211^^^"
^DD(458.02,144,21,1,0)="Enter the best approximation of time for the meal during this"
^DD(458.02,144,21,2,0)="work segment in increments of 15 minutes.  Meals may not be "
^DD(458.02,144,21,3,0)="longer than 60 minutes, so appropriate meal times are 15, 30,"
^DD(458.02,144,21,4,0)="45, and 60.  Enter a 0 or leave the field blank to indicate "
^DD(458.02,144,21,5,0)="that no meal was taken.  When meals are taken, they must be "
^DD(458.02,144,21,6,0)="entered, even when they are not scheduled for that tour.  "
^DD(458.02,144,21,7,0)="Meals may be entered for periods of both regular hours and "
^DD(458.02,144,21,8,0)="leave.  Entering the meal time will automatically deduct the "
^DD(458.02,144,21,9,0)="meal from the total creditable hours in the work segment. "
^DD(458.02,144,"DT")="3050128"
^DD(458.02,145,0)="DAILY ESR REMARKS^F^^6;1^K:$L(X)>70!($L(X)<1) X"
^DD(458.02,145,3)="Answer must be 1-70 characters in length"
^DD(458.02,145,21,0)="^^1^1^3041001^^"
^DD(458.02,145,21,1,0)="Any comments entered by the Part Time Physician."
^DD(458.02,145,"DT")="3041001"
^DD(458.02,146,0)="ESR DAILY STATUS^S^1:NOT STARTED;2:PENDING;3:RESUBMIT;4:SIGNED;5:APPROVED;6:DAY OFF;^7;1^Q"
^DD(458.02,146,3)="Answer must be 1 character in length"
^DD(458.02,146,21,0)="^^1^1^3040920^"
^DD(458.02,146,21,1,0)="The status of the Part Time Physician's daily Electronic Subsidiary Record (ESR)."
^DD(458.02,146,"DT")="3050426"
^DD(458.02,147,0)="PT PHYSICIAN DATE/TIME STAMP^D^^7;2^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(458.02,147,3)="(No range limit on date)"
^DD(458.02,147,21,0)="^^2^2^3040920^"
^DD(458.02,147,21,1,0)="The Date and Time the Part Time Physician electronically signed their daily"
^DD(458.02,147,21,2,0)="ESR record."
^DD(458.02,147,"DT")="3050225"
^DD(458.02,148,0)="ESR SUPERVISOR REMARKS^F^^6;2^K:$L(X)>21!($L(X)<1) X"
^DD(458.02,148,3)="Answer must be 1-21 characters in length"
^DD(458.02,148,21,0)="^.001^3^3^3050428^^^^"
^DD(458.02,148,21,1,0)="Enter a brief comment that will be displayed to the part-time physician when"
^DD(458.02,148,21,2,0)="they resubmit the daily ESR. "
^DD(458.02,148,21,3,0)=""
^DD(458.02,148,"DT")="3050428"
^DD(458.02,149,0)="ESR DAY LAST SIGN METHOD^S^1:MANUAL POST;2:EXTENDED ABSENCE;3:LEAVE REQUEST;4:HOLIDAY;^7;3^Q"
^DD(458.02,149,3)="How the signature for the current ESR data was obtained."
^DD(458.02,149,21,0)="^.001^10^10^3050122^^^^"
^DD(458.02,149,21,1,0)="This field indicates how the current ESR record was signed."
^DD(458.02,149,21,2,0)=""
^DD(458.02,149,21,3,0)="When the employee signs an ESR day, this field is set with code 1 for"
^DD(458.02,149,21,4,0)="employee manual post. If the auto posting of either an extended"
^DD(458.02,149,21,5,0)="absence or a leave request changes field 146--ESR DAILY STATUS--to"
^DD(458.02,149,21,6,0)="signed, then the field is update with code 2 or 3 respectively. "
^DD(458.02,149,21,7,0)=""
^DD(458.02,149,21,8,0)="If the employee signature is removed via supervisor rework request,"
^DD(458.02,149,21,9,0)="employee edit, cancellation of extended absence, or cancellation of"
^DD(458.02,149,21,10,0)="leave, the value in the field will be deleted."
^DD(458.02,149,"DT")="3050128"
^DD(458.02,"B","APPROVAL DATE/TIME",6)=""
^DD(458.02,"B","DAILY ESR REMARKS",145)=""
^DD(458.02,"B","DAY #",.01)=""
^DD(458.02,"B","ESR DAILY STATUS",146)=""
^DD(458.02,"B","ESR DAY LAST SIGN METHOD",149)=""
^DD(458.02,"B","ESR MEAL TIME-1",114)=""
^DD(458.02,"B","ESR MEAL TIME-2",119)=""
^DD(458.02,"B","ESR MEAL TIME-3",124)=""
^DD(458.02,"B","ESR MEAL TIME-4",129)=""
^DD(458.02,"B","ESR MEAL TIME-5",134)=""
^DD(458.02,"B","ESR MEAL TIME-6",139)=""
^DD(458.02,"B","ESR MEAL TIME-7",144)=""
^DD(458.02,"B","ESR SPECIAL CODE-1",113)=""
^DD(458.02,"B","ESR SPECIAL CODE-2",118)=""
^DD(458.02,"B","ESR SPECIAL CODE-3",123)=""
^DD(458.02,"B","ESR SPECIAL CODE-4",128)=""
^DD(458.02,"B","ESR SPECIAL CODE-5",133)=""
^DD(458.02,"B","ESR SPECIAL CODE-6",138)=""
^DD(458.02,"B","ESR SPECIAL CODE-7",143)=""
^DD(458.02,"B","ESR START TIME-1",110)=""
^DD(458.02,"B","ESR START TIME-2",115)=""
^DD(458.02,"B","ESR START TIME-3",120)=""
^DD(458.02,"B","ESR START TIME-4",125)=""
^DD(458.02,"B","ESR START TIME-5",130)=""
^DD(458.02,"B","ESR START TIME-6",135)=""
^DD(458.02,"B","ESR START TIME-7",140)=""
^DD(458.02,"B","ESR STOP TIME-1",111)=""
^DD(458.02,"B","ESR STOP TIME-2",116)=""
^DD(458.02,"B","ESR STOP TIME-3",121)=""
^DD(458.02,"B","ESR STOP TIME-4",126)=""
^DD(458.02,"B","ESR STOP TIME-5",131)=""
^DD(458.02,"B","ESR STOP TIME-6",136)=""
^DD(458.02,"B","ESR STOP TIME-7",141)=""
^DD(458.02,"B","ESR SUPERVISOR REMARKS",148)=""
^DD(458.02,"B","ESR TYPE OF TIME-1",112)=""
^DD(458.02,"B","ESR TYPE OF TIME-2",117)=""
^DD(458.02,"B","ESR TYPE OF TIME-3",122)=""
^DD(458.02,"B","ESR TYPE OF TIME-4",127)=""
^DD(458.02,"B","ESR TYPE OF TIME-5",132)=""
^DD(458.02,"B","ESR TYPE OF TIME-6",137)=""
^DD(458.02,"B","ESR TYPE OF TIME-7",142)=""
^DD(458.02,"B","OBSERVED HOLIDAY",10.2)=""
^DD(458.02,"B","POSTING DATE/TIME",10.1)=""
^DD(458.02,"B","POSTING STATUS",101)=""
^DD(458.02,"B","POSTING TYPE",104)=""
^DD(458.02,"B","PRIOR SCHEDULED TOUR",4)=""
^DD(458.02,"B","PT PHYSICIAN DATE/TIME STAMP",147)=""
^DD(458.02,"B","SECOND TOUR OF DUTY",10.3)=""
^DD(458.02,"B","SUPERVISOR",5)=""
^DD(458.02,"B","SUPR. ES",7)=""
^DD(458.02,"B","T/K REMARKS",70)=""
^DD(458.02,"B","TEMP TOUR T&L",9)=""
^DD(458.02,"B","TEMPORARY TOUR?",3)=""
^DD(458.02,"B","TIMEKEEPER POSTING",102)=""
^DD(458.02,"B","TK DATE/TIME ENTERED",103)=""
^DD(458.02,"B","TOUR #1 SCH SPECIAL CODE-1",13)=""
^DD(458.02,"B","TOUR #1 SCH SPECIAL CODE-2",16)=""
^DD(458.02,"B","TOUR #1 SCH SPECIAL CODE-3",19)=""
^DD(458.02,"B","TOUR #1 SCH SPECIAL CODE-4",22)=""
^DD(458.02,"B","TOUR #1 SCH SPECIAL CODE-5",25)=""
^DD(458.02,"B","TOUR #1 SCH SPECIAL CODE-6",28)=""
^DD(458.02,"B","TOUR #1 SCH SPECIAL CODE-7",31)=""
^DD(458.02,"B","TOUR #1 SCH START TIME-1",11)=""
^DD(458.02,"B","TOUR #1 SCH START TIME-2",14)=""
^DD(458.02,"B","TOUR #1 SCH START TIME-3",17)=""
^DD(458.02,"B","TOUR #1 SCH START TIME-4",20)=""
^DD(458.02,"B","TOUR #1 SCH START TIME-5",23)=""
^DD(458.02,"B","TOUR #1 SCH START TIME-6",26)=""
^DD(458.02,"B","TOUR #1 SCH START TIME-7",29)=""
^DD(458.02,"B","TOUR #1 SCH STOP TIME-1",12)=""
^DD(458.02,"B","TOUR #1 SCH STOP TIME-2",15)=""
^DD(458.02,"B","TOUR #1 SCH STOP TIME-3",18)=""
^DD(458.02,"B","TOUR #1 SCH STOP TIME-4",21)=""
^DD(458.02,"B","TOUR #1 SCH STOP TIME-5",24)=""
^DD(458.02,"B","TOUR #1 SCH STOP TIME-6",27)=""
^DD(458.02,"B","TOUR #1 SCH STOP TIME-7",30)=""
^DD(458.02,"B","TOUR #2 LENGTH",10.4)=""
^DD(458.02,"B","TOUR #2 SCH SPECIAL CODE-1",32.2)=""
^DD(458.02,"B","TOUR #2 SCH SPECIAL CODE-2",32.5)=""
^DD(458.02,"B","TOUR #2 SCH SPECIAL CODE-3",32.8)=""
^DD(458.02,"B","TOUR #2 SCH SPECIAL CODE-4",33.1)=""
^DD(458.02,"B","TOUR #2 SCH SPECIAL CODE-5",33.4)=""
^DD(458.02,"B","TOUR #2 SCH SPECIAL CODE-6",33.7)=""
^DD(458.02,"B","TOUR #2 SCH SPECIAL CODE-7",34)=""
^DD(458.02,"B","TOUR #2 SCH START TIME-1",32)=""
^DD(458.02,"B","TOUR #2 SCH START TIME-2",32.3)=""
^DD(458.02,"B","TOUR #2 SCH START TIME-3",32.6)=""
^DD(458.02,"B","TOUR #2 SCH START TIME-4",32.9)=""
^DD(458.02,"B","TOUR #2 SCH START TIME-5",33.2)=""
^DD(458.02,"B","TOUR #2 SCH START TIME-6",33.5)=""
^DD(458.02,"B","TOUR #2 SCH START TIME-7",33.8)=""
^DD(458.02,"B","TOUR #2 SCH STOP TIME-1",32.1)=""
^DD(458.02,"B","TOUR #2 SCH STOP TIME-2",32.4)=""
^DD(458.02,"B","TOUR #2 SCH STOP TIME-3",32.7)=""
^DD(458.02,"B","TOUR #2 SCH STOP TIME-4",33)=""
^DD(458.02,"B","TOUR #2 SCH STOP TIME-5",33.3)=""
^DD(458.02,"B","TOUR #2 SCH STOP TIME-6",33.6)=""
^DD(458.02,"B","TOUR #2 SCH STOP TIME-7",33.9)=""
^DD(458.02,"B","TOUR #2 T&L",10.5)=""
^DD(458.02,"B","TOUR LAST POSTED BY",10)=""
^DD(458.02,"B","TOUR LENGTH",8)=""
^DD(458.02,"B","TOUR OF DUTY",2)=""
^DD(458.02,"B","WRK SPECIAL CODE-1",44)=""
^DD(458.02,"B","WRK SPECIAL CODE-2",48)=""
^DD(458.02,"B","WRK SPECIAL CODE-3",52)=""
^DD(458.02,"B","WRK SPECIAL CODE-4",56)=""
^DD(458.02,"B","WRK SPECIAL CODE-5",60)=""
^DD(458.02,"B","WRK SPECIAL CODE-6",64)=""
^DD(458.02,"B","WRK SPECIAL CODE-7",68)=""
^DD(458.02,"B","WRK START TIME-1",41)=""
^DD(458.02,"B","WRK START TIME-2",45)=""
^DD(458.02,"B","WRK START TIME-3",49)=""
^DD(458.02,"B","WRK START TIME-4",53)=""
^DD(458.02,"B","WRK START TIME-5",57)=""
^DD(458.02,"B","WRK START TIME-6",61)=""
^DD(458.02,"B","WRK START TIME-7",65)=""
^DD(458.02,"B","WRK STOP TIME-1",42)=""
^DD(458.02,"B","WRK STOP TIME-2",46)=""
^DD(458.02,"B","WRK STOP TIME-3",50)=""
^DD(458.02,"B","WRK STOP TIME-4",54)=""
^DD(458.02,"B","WRK STOP TIME-5",58)=""
^DD(458.02,"B","WRK STOP TIME-6",62)=""
^DD(458.02,"B","WRK STOP TIME-7",66)=""
^DD(458.02,"B","WRK TYPE OF TIME-1",43)=""
^DD(458.02,"B","WRK TYPE OF TIME-2",47)=""
^DD(458.02,"B","WRK TYPE OF TIME-3",51)=""
^DD(458.02,"B","WRK TYPE OF TIME-4",55)=""
^DD(458.02,"B","WRK TYPE OF TIME-5",59)=""
^DD(458.02,"B","WRK TYPE OF TIME-6",63)=""
^DD(458.02,"B","WRK TYPE OF TIME-7",67)=""
^DD(458.02,"GL",0,1,.01)=""
^DD(458.02,"GL",0,2,2)=""
^DD(458.02,"GL",0,3,3)=""
^DD(458.02,"GL",0,4,4)=""
^DD(458.02,"GL",0,5,5)=""
^DD(458.02,"GL",0,6,6)=""
^DD(458.02,"GL",0,7,7)=""
^DD(458.02,"GL",0,8,8)=""
^DD(458.02,"GL",0,9,9)=""
^DD(458.02,"GL",0,10,10)=""
^DD(458.02,"GL",0,11,10.1)=""
^DD(458.02,"GL",0,12,10.2)=""
^DD(458.02,"GL",0,13,10.3)=""
^DD(458.02,"GL",0,14,10.4)=""
^DD(458.02,"GL",0,15,10.5)=""
^DD(458.02,"GL",1,1,11)=""
^DD(458.02,"GL",1,2,12)=""
^DD(458.02,"GL",1,3,13)=""
^DD(458.02,"GL",1,4,14)=""
^DD(458.02,"GL",1,5,15)=""
^DD(458.02,"GL",1,6,16)=""
^DD(458.02,"GL",1,7,17)=""
^DD(458.02,"GL",1,8,18)=""
^DD(458.02,"GL",1,9,19)=""
^DD(458.02,"GL",1,10,20)=""
^DD(458.02,"GL",1,11,21)=""
^DD(458.02,"GL",1,12,22)=""
^DD(458.02,"GL",1,13,23)=""
^DD(458.02,"GL",1,14,24)=""
^DD(458.02,"GL",1,15,25)=""
^DD(458.02,"GL",1,16,26)=""
^DD(458.02,"GL",1,17,27)=""
^DD(458.02,"GL",1,18,28)=""
^DD(458.02,"GL",1,19,29)=""
^DD(458.02,"GL",1,20,30)=""
^DD(458.02,"GL",1,21,31)=""
^DD(458.02,"GL",2,1,41)=""
^DD(458.02,"GL",2,2,42)=""
^DD(458.02,"GL",2,3,43)=""
^DD(458.02,"GL",2,4,44)=""
^DD(458.02,"GL",2,5,45)=""
^DD(458.02,"GL",2,6,46)=""
^DD(458.02,"GL",2,7,47)=""
^DD(458.02,"GL",2,8,48)=""
^DD(458.02,"GL",2,9,49)=""
^DD(458.02,"GL",2,10,50)=""
^DD(458.02,"GL",2,11,51)=""
^DD(458.02,"GL",2,12,52)=""
^DD(458.02,"GL",2,13,53)=""
^DD(458.02,"GL",2,14,54)=""
^DD(458.02,"GL",2,15,55)=""
^DD(458.02,"GL",2,16,56)=""
^DD(458.02,"GL",2,17,57)=""
^DD(458.02,"GL",2,18,58)=""
^DD(458.02,"GL",2,19,59)=""
^DD(458.02,"GL",2,20,60)=""
^DD(458.02,"GL",2,21,61)=""
^DD(458.02,"GL",2,22,62)=""
^DD(458.02,"GL",2,23,63)=""
^DD(458.02,"GL",2,24,64)=""
^DD(458.02,"GL",2,25,65)=""
^DD(458.02,"GL",2,26,66)=""
^DD(458.02,"GL",2,27,67)=""
^DD(458.02,"GL",2,28,68)=""
^DD(458.02,"GL",3,1,70)=""
^DD(458.02,"GL",4,1,32)=""
^DD(458.02,"GL",4,2,32.1)=""
^DD(458.02,"GL",4,3,32.2)=""
^DD(458.02,"GL",4,4,32.3)=""
^DD(458.02,"GL",4,5,32.4)=""
^DD(458.02,"GL",4,6,32.5)=""
^DD(458.02,"GL",4,7,32.6)=""
^DD(458.02,"GL",4,8,32.7)=""
^DD(458.02,"GL",4,9,32.8)=""
^DD(458.02,"GL",4,10,32.9)=""
^DD(458.02,"GL",4,11,33)=""
^DD(458.02,"GL",4,12,33.1)=""
^DD(458.02,"GL",4,13,33.2)=""
^DD(458.02,"GL",4,14,33.3)=""
^DD(458.02,"GL",4,15,33.4)=""
^DD(458.02,"GL",4,16,33.5)=""
^DD(458.02,"GL",4,17,33.6)=""
^DD(458.02,"GL",4,18,33.7)=""
^DD(458.02,"GL",4,19,33.8)=""
^DD(458.02,"GL",4,20,33.9)=""
^DD(458.02,"GL",4,21,34)=""
^DD(458.02,"GL",5,1,110)=""
^DD(458.02,"GL",5,2,111)=""
^DD(458.02,"GL",5,3,112)=""
^DD(458.02,"GL",5,4,113)=""
^DD(458.02,"GL",5,5,114)=""
^DD(458.02,"GL",5,6,115)=""
^DD(458.02,"GL",5,7,116)=""
^DD(458.02,"GL",5,8,117)=""
^DD(458.02,"GL",5,9,118)=""
^DD(458.02,"GL",5,10,119)=""
^DD(458.02,"GL",5,11,120)=""
^DD(458.02,"GL",5,12,121)=""
^DD(458.02,"GL",5,13,122)=""
^DD(458.02,"GL",5,14,123)=""
^DD(458.02,"GL",5,15,124)=""
^DD(458.02,"GL",5,16,125)=""
^DD(458.02,"GL",5,17,126)=""
^DD(458.02,"GL",5,18,127)=""
^DD(458.02,"GL",5,19,128)=""
^DD(458.02,"GL",5,20,129)=""
^DD(458.02,"GL",5,21,130)=""
^DD(458.02,"GL",5,22,131)=""
^DD(458.02,"GL",5,23,132)=""
^DD(458.02,"GL",5,24,133)=""
^DD(458.02,"GL",5,25,134)=""
^DD(458.02,"GL",5,26,135)=""
^DD(458.02,"GL",5,27,136)=""
^DD(458.02,"GL",5,28,137)=""
^DD(458.02,"GL",5,29,138)=""
^DD(458.02,"GL",5,30,139)=""
^DD(458.02,"GL",5,31,140)=""
^DD(458.02,"GL",5,32,141)=""
^DD(458.02,"GL",5,33,142)=""
^DD(458.02,"GL",5,34,143)=""
^DD(458.02,"GL",5,35,144)=""
^DD(458.02,"GL",6,1,145)=""
^DD(458.02,"GL",6,2,148)=""
^DD(458.02,"GL",7,1,146)=""
^DD(458.02,"GL",7,2,147)=""
^DD(458.02,"GL",7,3,149)=""
^DD(458.02,"GL",10,1,101)=""
^DD(458.02,"GL",10,2,102)=""
^DD(458.02,"GL",10,3,103)=""
^DD(458.02,"GL",10,4,104)=""
^DD(458.02,"IX",4)=""
^DD(458.03,0)="MESSAGES TRANSMITTED SUB-FIELD^^.01^1"
^DD(458.03,0,"DT")="2921009"
^DD(458.03,0,"IX","B",458.03,.01)=""
^DD(458.03,0,"NM","MESSAGES TRANSMITTED")=""
^DD(458.03,0,"UP")="458"
^DD(458.03,.01,0)="MESSAGES TRANSMITTED^P3.9'^XMB(3.9,^0;1^Q"
^DD(458.03,.01,1,0)="^.1"
^DD(458.03,.01,1,1,0)="458.03^B"
^DD(458.03,.01,1,1,1)="S ^PRST(458,DA(1),""X"",""B"",$E(X,1,30),DA)="""""
^DD(458.03,.01,1,1,2)="K ^PRST(458,DA(1),""X"",""B"",$E(X,1,30),DA)"
^DD(458.03,.01,21,0)="^^3^3^2921116^"
^DD(458.03,.01,21,1,0)="A pointer to the MESSAGE file (#3.9) which identifies the message number"
^DD(458.03,.01,21,2,0)="of a message containing time card data transmitted to the Austin Automation"
^DD(458.03,.01,21,3,0)="Center."
^DD(458.03,.01,"DT")="2921009"
^DD(458.03,"B","MESSAGES TRANSMITTED",.01)=""
^DD(458.03,"GL",0,1,.01)=""
^DD(458.03,"IX",.01)=""
^DD(458.1,0)="FIELD^^16^17"
^DD(458.1,0,"DT")="2950411"
^DD(458.1,0,"ID","WRITE")="S %=$P(^(0),U,3) W ""   "",$E(%,4,5),""-"",$E(%,6,7),""-"",$E(%,2,3)"
^DD(458.1,0,"IX","AD1",458.1,2)=""
^DD(458.1,0,"IX","AD2",458.1,4)=""
^DD(458.1,0,"IX","AR",458.1,8)=""
^DD(458.1,0,"IX","B",458.1,.01)=""
^DD(458.1,0,"IX","C",458.1,1)=""
^DD(458.1,0,"NM","LEAVE REQUESTS")=""
^DD(458.1,0,"VR")="4.0"
^DD(458.1,.01,0)="SEQUENCE #^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.1,.01,1,0)="^.1"
^DD(458.1,.01,1,1,0)="458.1^B"
^DD(458.1,.01,1,1,1)="S ^PRST(458.1,""B"",$E(X,1,30),DA)="""""
^DD(458.1,.01,1,1,2)="K ^PRST(458.1,""B"",$E(X,1,30),DA)"
^DD(458.1,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(458.1,.01,21,0)="^^1^1^2921102^"
^DD(458.1,.01,21,1,0)="A sequential number that identifies the leave request."
^DD(458.1,.01,"DT")="2920206"
^DD(458.1,1,0)="EMPLOYEE^RP450'^PRSPC(^0;2^Q"
^DD(458.1,1,1,0)="^.1"
^DD(458.1,1,1,1,0)="458.1^C"
^DD(458.1,1,1,1,1)="S ^PRST(458.1,""C"",$E(X,1,30),DA)="""""
^DD(458.1,1,1,1,2)="K ^PRST(458.1,""C"",$E(X,1,30),DA)"
^DD(458.1,1,1,1,"DT")="2920319"
^DD(458.1,1,21,0)="^^2^2^2921102^"
^DD(458.1,1,21,1,0)="A pointer to the PAID EMPLOYEE file (#450) which identifies the employee"
^DD(458.1,1,21,2,0)="requesting leave."
^DD(458.1,1,"DT")="2920319"
^DD(458.1,2,0)="FROM DATE^RDX^^0;3^S X=$$CVTDATE^PRSLIB00(X) K:X<1 X"
^DD(458.1,2,1,0)="^.1"
^DD(458.1,2,1,1,0)="458.1^AD1^MUMPS"
^DD(458.1,2,1,1,1)="S %=$P(^PRST(458.1,DA,0),""^"",2),X1=$P(^(0),""^"",5) S:%&X1 ^PRST(458.1,""AD"",%,9999999-X1,DA)=X"
^DD(458.1,2,1,1,2)="S %=$P(^PRST(458.1,DA,0),""^"",2),X1=$P(^(0),""^"",5) K:%&X1 ^PRST(458.1,""AD"",%,9999999-X1,DA)"
^DD(458.1,2,1,1,"%D",0)="^^2^2^2941118^^"
^DD(458.1,2,1,1,"%D",1,0)="This is a complex cross-reference which uses the inverse of Field 4, the"
^DD(458.1,2,1,1,"%D",2,0)="ending date, as a subscript and this field, the starting date, as data."
^DD(458.1,2,1,1,"DT")="2920629"
^DD(458.1,2,21,0)="^^1^1^2990511^^"
^DD(458.1,2,21,1,0)="The date the leave begins."
^DD(458.1,2,"DT")="2991004"
^DD(458.1,3,0)="FROM TIME^RFX^^0;4^D:$D(X) ^PRSATIM"
^DD(458.1,3,4)="D HLP^PRSATIM"
^DD(458.1,3,21,0)="^^1^1^2930216^^"
^DD(458.1,3,21,1,0)="The time the leave begins."
^DD(458.1,3,"DT")="2930216"
^DD(458.1,4,0)="TO DATE^RDX^^0;5^S X=$$CVTDATE^PRSLIB00(X,Z1) K:X<1 X"
^DD(458.1,4,1,0)="^.1"
^DD(458.1,4,1,1,0)="458.1^AD2^MUMPS"
^DD(458.1,4,1,1,1)="S %=$P(^PRST(458.1,DA,0),""^"",2),X1=$P(^(0),""^"",3) S:%&X1 ^PRST(458.1,""AD"",%,9999999-X,DA)=X1"
^DD(458.1,4,1,1,2)="S %=$P(^PRST(458.1,DA,0),""^"",2),X1=$P(^(0),""^"",3) K:%&X1 ^PRST(458.1,""AD"",%,9999999-X,DA)"
^DD(458.1,4,1,1,"%D",0)="^^2^2^2940525^"
^DD(458.1,4,1,1,"%D",1,0)="This is a complex cross-reference which uses the inverse of this field, the"
^DD(458.1,4,1,1,"%D",2,0)="ending date, as a subscript and Field 2, the start date, as data."
^DD(458.1,4,1,1,"DT")="2920629"
^DD(458.1,4,21,0)="^^1^1^2921102^"
^DD(458.1,4,21,1,0)="The date the leave ends."
^DD(458.1,4,"DT")="2991004"
^DD(458.1,5,0)="TO TIME^RFX^^0;6^D:$D(X) ^PRSATIM"
^DD(458.1,5,4)="D HLP^PRSATIM"
^DD(458.1,5,21,0)="^^1^1^2930216^^"
^DD(458.1,5,21,1,0)="The time the leave ends."
^DD(458.1,5,"DT")="2930216"
^DD(458.1,6,0)="TYPE OF LEAVE^R*S^AL:Annual Leave;SL:Sick Leave;WP:Without Pay;CU:CompTime/CreditHrs;AA:Authorized Absence;ML:Military Leave;RL:Restored Leave;NL:NP Annual Leave;CB:Family Care;AD:Adoption;DL:Donor Leave;^0;7^Q"
^DD(458.1,6,12)="Allow only entitled types of leave."
^DD(458.1,6,12.1)="S DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[Y)"""
^DD(458.1,6,21,0)="^^1^1^2980605^^^^"
^DD(458.1,6,21,1,0)="The category of leave used."
^DD(458.1,6,"DT")="2980605"
^DD(458.1,7,0)="REMARKS^F^^0;8^K:$L(X)>60!($L(X)<1) X"
^DD(458.1,7,3)="Answer must be 1-60 characters in length."
^DD(458.1,7,21,0)="^^1^1^2921102^"
^DD(458.1,7,21,1,0)="A free text field to hold any remarks."
^DD(458.1,7,"DT")="2920311"
^DD(458.1,8,0)="STATUS^S^R:Requested;A:Approved;D:Disapproved;X:Cancelled;^0;9^Q"
^DD(458.1,8,1,0)="^.1"
^DD(458.1,8,1,1,0)="458.1^AR^MUMPS"
^DD(458.1,8,1,1,1)="S X9=$P(^PRST(458.1,DA,0),U,2) I X9 K:X'=""R"" ^PRST(458.1,""AR"",X9,DA) S:X=""R"" ^PRST(458.1,""AR"",X9,DA)="""""
^DD(458.1,8,1,1,2)="S X9=$P(^PRST(458.1,DA,0),U,2) K:X9 ^PRST(458.1,""AR"",X9,DA)"
^DD(458.1,8,1,1,"%D",0)="^^2^2^2940525^"
^DD(458.1,8,1,1,"%D",1,0)="This is a cross-reference of only those entries with a status of R.  No"
^DD(458.1,8,1,1,"%D",2,0)="other status value is cross-referenced."
^DD(458.1,8,1,1,"DT")="2920319"
^DD(458.1,8,21,0)="^^1^1^2921102^"
^DD(458.1,8,21,1,0)="The status of the leave request."
^DD(458.1,8,"DT")="2920319"
^DD(458.1,9,0)="ENTERED BY^RP200'^VA(200,^0;10^Q"
^DD(458.1,9,21,0)="^^2^2^2930218^^"
^DD(458.1,9,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the person who"
^DD(458.1,9,21,2,0)="entered the request."
^DD(458.1,9,"DT")="2920320"
^DD(458.1,10,0)="DATE/TIME ENTERED^RD^^0;11^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.1,10,21,0)="^^1^1^2921102^"
^DD(458.1,10,21,1,0)="The date and time the leave request was entered."
^DD(458.1,10,"DT")="2920320"
^DD(458.1,11,0)="SUPERVISOR^P200'^VA(200,^0;12^Q"
^DD(458.1,11,21,0)="^^2^2^2921102^"
^DD(458.1,11,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the supervisor"
^DD(458.1,11,21,2,0)="of the employee requesting leave."
^DD(458.1,11,"DT")="2920320"
^DD(458.1,12,0)="SUPR. ACTION DATE/TIME^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.1,12,21,0)="^^2^2^2921102^"
^DD(458.1,12,21,1,0)="The date and time the supervisor took action on the employee's leave"
^DD(458.1,12,21,2,0)="request (e.g., approve or disapprove)."
^DD(458.1,12,"DT")="2920320"
^DD(458.1,13,0)="SUPR. ES^FO^^0;14^K:$L(X)>20!($L(X)<6) X"
^DD(458.1,13,2)="S Y(0)=Y S X=Y,X2=D0,X1=$P(^PRST(458.1,D0,0),U,12) D DE^XUSHSHP S Y=X"
^DD(458.1,13,2.1)="S X=Y,X2=D0,X1=$P(^PRST(458.1,D0,0),U,12) D DE^XUSHSHP S Y=X"
^DD(458.1,13,3)="Answer must be 6-20 characters in length."
^DD(458.1,13,21,0)="^^1^1^2921102^"
^DD(458.1,13,21,1,0)="The supervisor's electronic signature code."
^DD(458.1,13,"DT")="2950525"
^DD(458.1,14,0)="SUPR. COMMENT^F^^1;1^K:$L(X)>60!($L(X)<2) X"
^DD(458.1,14,3)="Answer must be 2-60 characters in length."
^DD(458.1,14,21,0)="^^2^2^2921102^"
^DD(458.1,14,21,1,0)="A free text response for any comments the supervisor wants to make about"
^DD(458.1,14,21,2,0)="the leave request."
^DD(458.1,14,"DT")="2920330"
^DD(458.1,15,0)="ESTIMATED HOURS/DAYS^RNJ6,2^^0;15^K:+X'=X!(X>240)!(X<.25)!(X?.E1"".""3N.N)!(X*100#25) X"
^DD(458.1,15,3)="Type a Number between .25 and 240, 2 Decimal Digits"
^DD(458.1,15,21,0)="^^2^2^2950411^^^"
^DD(458.1,15,21,1,0)="This field contains the number of hours (or days if leave"
^DD(458.1,15,21,2,0)="is accrued in days) that the leave request covers."
^DD(458.1,15,"DT")="2950411"
^DD(458.1,16,0)="DAYS OR HOURS^S^D:DAYS;H:HOURS;^0;16^Q"
^DD(458.1,16,21,0)="^^2^2^2930618^^"
^DD(458.1,16,21,1,0)="This field indicates whether the estimated length of leave is in"
^DD(458.1,16,21,2,0)="days or hours."
^DD(458.1,16,"DT")="2930618"
^DD(458.1,"B","DATE/TIME ENTERED",10)=""
^DD(458.1,"B","DAYS OR HOURS",16)=""
^DD(458.1,"B","EMPLOYEE",1)=""
^DD(458.1,"B","ENTERED BY",9)=""
^DD(458.1,"B","ESTIMATED HOURS/DAYS",15)=""
^DD(458.1,"B","FROM DATE",2)=""
^DD(458.1,"B","FROM TIME",3)=""
^DD(458.1,"B","REMARKS",7)=""
^DD(458.1,"B","SEQUENCE #",.01)=""
^DD(458.1,"B","STATUS",8)=""
^DD(458.1,"B","SUPERVISOR",11)=""
^DD(458.1,"B","SUPR. ACTION DATE/TIME",12)=""
^DD(458.1,"B","SUPR. COMMENT",14)=""
^DD(458.1,"B","SUPR. ES",13)=""
^DD(458.1,"B","TO DATE",4)=""
^DD(458.1,"B","TO TIME",5)=""
^DD(458.1,"B","TYPE OF LEAVE",6)=""
^DD(458.1,"GL",0,1,.01)=""
^DD(458.1,"GL",0,2,1)=""
^DD(458.1,"GL",0,3,2)=""
^DD(458.1,"GL",0,4,3)=""
^DD(458.1,"GL",0,5,4)=""
^DD(458.1,"GL",0,6,5)=""
^DD(458.1,"GL",0,7,6)=""
^DD(458.1,"GL",0,8,7)=""
^DD(458.1,"GL",0,9,8)=""
^DD(458.1,"GL",0,10,9)=""
^DD(458.1,"GL",0,11,10)=""
^DD(458.1,"GL",0,12,11)=""
^DD(458.1,"GL",0,13,12)=""
^DD(458.1,"GL",0,14,13)=""
^DD(458.1,"GL",0,15,15)=""
^DD(458.1,"GL",0,16,16)=""
^DD(458.1,"GL",1,1,14)=""
^DD(458.1,"IX",.01)=""
^DD(458.1,"IX",1)=""
^DD(458.1,"IX",2)=""
^DD(458.1,"IX",4)=""
^DD(458.1,"IX",8)=""
^DD(458.1,"RQ",.01)=""
^DD(458.1,"RQ",1)=""
^DD(458.1,"RQ",2)=""
^DD(458.1,"RQ",3)=""
^DD(458.1,"RQ",4)=""
^DD(458.1,"RQ",5)=""
^DD(458.1,"RQ",6)=""
^DD(458.1,"RQ",9)=""
^DD(458.1,"RQ",10)=""
^DD(458.1,"RQ",15)=""
^DD(458.1101,0)="AUDIT RECORD SUB-FIELD^^20^18"
^DD(458.1101,0,"DT")="2951129"
^DD(458.1101,0,"IX","B",458.1101,.01)=""
^DD(458.1101,0,"NM","AUDIT RECORD")=""
^DD(458.1101,0,"UP")="458.01"
^DD(458.1101,.01,0)="AUDIT RECORD^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.1101,.01,1,0)="^.1^^-1"
^DD(458.1101,.01,1,1,0)="458.1101^B"
^DD(458.1101,.01,1,1,1)="S ^PRST(458,DA(2),""E"",DA(1),""X"",""B"",$E(X,1,30),DA)="""""
^DD(458.1101,.01,1,1,2)="K ^PRST(458,DA(2),""E"",DA(1),""X"",""B"",$E(X,1,30),DA)"
^DD(458.1101,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(458.1101,.01,21,0)="^^2^2^2921117^"
^DD(458.1101,.01,21,1,0)="A sequential number assigned to previous time card entry changes for"
^DD(458.1101,.01,21,2,0)="this employee in this pay period."
^DD(458.1101,.01,"DT")="2920826"
^DD(458.1101,1,0)="DATE/TIME AUDITED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.1101,1,21,0)="^^1^1^2921116^"
^DD(458.1101,1,21,1,0)="The date and time the time card entry was changed."
^DD(458.1101,1,"DT")="2920826"
^DD(458.1101,2,0)="PERSON CHANGING RECORD^RP200'^VA(200,^0;3^Q"
^DD(458.1101,2,21,0)="^^2^2^2921116^"
^DD(458.1101,2,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the person"
^DD(458.1101,2,21,2,0)="changing the time card record."
^DD(458.1101,2,"DT")="2920826"
^DD(458.1101,3,0)="TYPE OF RECORD^RS^T:TIME;V:VCS/FEE;H:HAZARD/ENVIR DIFF;^0;4^Q"
^DD(458.1101,3,21,0)="^^3^3^2951129^^^"
^DD(458.1101,3,21,1,0)="The portion of the time card being changed; time worked/leave taken,"
^DD(458.1101,3,21,2,0)="Veterans Canteen Service sales, environmental differential/hazard pay,"
^DD(458.1101,3,21,3,0)="or Fee Basis Appointee data."
^DD(458.1101,3,"DT")="2951129"
^DD(458.1101,4,0)="STATUS^RS^R:REQUESTED;A:APPROVED;P:PAYROLL PROCESSED;D:DISAPPROVED;X:CANCELLED;S:SUPR. APPROVED;^0;5^Q"
^DD(458.1101,4,1,0)="^.1"
^DD(458.1101,4,1,1,0)="458^AX^MUMPS"
^DD(458.1101,4,1,1,1)="I ""ARS""[X S ^PRST(458,""AX""_X,DA(1),DA(2),DA)="""""
^DD(458.1101,4,1,1,2)="K ^PRST(458,""AX""_X,DA(1),DA(2),DA)"
^DD(458.1101,4,1,1,"%D",0)="^^3^3^2940525^"
^DD(458.1101,4,1,1,"%D",1,0)="This cross-reference sets an AXR for requested correction entries,"
^DD(458.1101,4,1,1,"%D",2,0)="AXS for supervisor approved entries, and AXA for final approved"
^DD(458.1101,4,1,1,"%D",3,0)="entries."
^DD(458.1101,4,1,1,"DT")="2920826"
^DD(458.1101,4,21,0)="^^1^1^2930527^^"
^DD(458.1101,4,21,1,0)="The status of the time card change."
^DD(458.1101,4,"DT")="2930527"
^DD(458.1101,5,0)="CLEARING PERSONNEL CLERK^P200'^VA(200,^0;6^Q"
^DD(458.1101,5,21,0)="^^2^2^2930423^"
^DD(458.1101,5,21,1,0)="This field contains the DUZ number of the Payroll Clerk"
^DD(458.1101,5,21,2,0)="who cleared this change."
^DD(458.1101,5,"DT")="2930330"
^DD(458.1101,6,0)="CLEARING DATE/TIME^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.1101,6,21,0)="^^1^1^2930423^"
^DD(458.1101,6,21,1,0)="This field contains the date/time the change was cleared."
^DD(458.1101,6,"DT")="2930330"
^DD(458.1101,7,0)="APPROVAL PERSON^P200'^VA(200,^0;8^Q"
^DD(458.1101,7,21,0)="^^1^1^2931210^^^"
^DD(458.1101,7,21,1,0)="This is the second-level approver who took action on the correction. "
^DD(458.1101,7,"DT")="2930601"
^DD(458.1101,8,0)="APPROVAL DATE/TIME^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.1101,8,21,0)="^^2^2^2931210^"
^DD(458.1101,8,21,1,0)="This is the date/time at which the second-level approver took"
^DD(458.1101,8,21,2,0)="action on this correction."
^DD(458.1101,8,"DT")="2930601"
^DD(458.1101,9,0)="APP. SUPERVISOR^P200'^VA(200,^0;10^Q"
^DD(458.1101,9,21,0)="^^1^1^2931210^"
^DD(458.1101,9,21,1,0)="This is the supervisor who took action on the correction."
^DD(458.1101,9,"DT")="2931210"
^DD(458.1101,9.5,0)="APP. SUPERVISOR DATE/TIME^D^^0;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.1101,9.5,21,0)="^^1^1^2931210^"
^DD(458.1101,9.5,21,1,0)="This is the date/time the supervisor took action on this correction."
^DD(458.1101,9.5,"DT")="2931210"
^DD(458.1101,10,0)="OLD RECORD #1^RF^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(458.1101,10,3)="Answer must be 1-245 characters in length."
^DD(458.1101,10,21,0)="^^1^1^2930325^^^"
^DD(458.1101,10,21,1,0)="The first node of the original record."
^DD(458.1101,10,"DT")="2930325"
^DD(458.1101,11,0)="OLD RECORD #2^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(458.1101,11,3)="Answer must be 1-245 characters in length."
^DD(458.1101,11,21,0)="^^1^1^2930325^^"
^DD(458.1101,11,21,1,0)="This is the second node, if necessary, of the original record."
^DD(458.1101,11,"DT")="2930325"
^DD(458.1101,12,0)="OLD RECORD #3^F^^3;1^K:$L(X)>245!($L(X)<1) X"
^DD(458.1101,12,3)="Answer must be 1-245 characters in length."
^DD(458.1101,12,21,0)="^^1^1^2930325^"
^DD(458.1101,12,21,1,0)="This is the third node, if necessary, of the original record."
^DD(458.1101,12,"DT")="2930325"
^DD(458.1101,13,0)="OLD RECORD #4^F^^4;1^K:$L(X)>245!($L(X)<1) X"
^DD(458.1101,13,3)="Answer must be 1-245 characters in length."
^DD(458.1101,13,21,0)="^^1^1^2930325^"
^DD(458.1101,13,21,1,0)="This is thre fourth node, if necessary, of the original record."
^DD(458.1101,13,"DT")="2930325"
^DD(458.1101,14,0)="OLD RECORD #5^F^^5;1^K:$L(X)>245!($L(X)<1) X"
^DD(458.1101,14,3)="Answer must be 1-245 characters in length."
^DD(458.1101,14,21,0)="^^1^1^2930325^"
^DD(458.1101,14,21,1,0)="This is the fifth node, if necessary, of the original record."
^DD(458.1101,14,"DT")="2930325"
^DD(458.1101,15,0)="OLD RECORD #6^F^^6;1^K:$L(X)>245!($L(X)<1) X"
^DD(458.1101,15,3)="Answer must be 1-245 characters in length."
^DD(458.1101,15,21,0)="^^1^1^2930325^"
^DD(458.1101,15,21,1,0)="This is the sixth node, if necessary, of the original record."
^DD(458.1101,15,"DT")="2930325"
^DD(458.1101,20,0)="REMARKS^F^^7;1^K:$L(X)>60!($L(X)<3) X"
^DD(458.1101,20,3)="Answer must be 3-60 characters in length."
^DD(458.1101,20,21,0)="^^2^2^2940524^"
^DD(458.1101,20,21,1,0)="This field contains any remarks the posting person may choose to"
^DD(458.1101,20,21,2,0)="make when entering a time card correction."
^DD(458.1101,20,"DT")="2940509"
^DD(458.1101,"B","APP. SUPERVISOR",9)=""
^DD(458.1101,"B","APP. SUPERVISOR DATE/TIME",9.5)=""
^DD(458.1101,"B","APPROVAL DATE/TIME",8)=""
^DD(458.1101,"B","APPROVAL PERSON",7)=""
^DD(458.1101,"B","AUDIT RECORD",.01)=""
^DD(458.1101,"B","CLEARING DATE/TIME",6)=""
^DD(458.1101,"B","CLEARING PERSONNEL CLERK",5)=""
^DD(458.1101,"B","DATE/TIME AUDITED",1)=""
^DD(458.1101,"B","OLD RECORD #1",10)=""
^DD(458.1101,"B","OLD RECORD #2",11)=""
^DD(458.1101,"B","OLD RECORD #3",12)=""
^DD(458.1101,"B","OLD RECORD #4",13)=""
^DD(458.1101,"B","OLD RECORD #5",14)=""
^DD(458.1101,"B","OLD RECORD #6",15)=""
^DD(458.1101,"B","PERSON CHANGING RECORD",2)=""
^DD(458.1101,"B","REMARKS",20)=""
^DD(458.1101,"B","STATUS",4)=""
^DD(458.1101,"B","TYPE OF RECORD",3)=""
^DD(458.1101,"GL",0,1,.01)=""
^DD(458.1101,"GL",0,2,1)=""
^DD(458.1101,"GL",0,3,2)=""
^DD(458.1101,"GL",0,4,3)=""
^DD(458.1101,"GL",0,5,4)=""
^DD(458.1101,"GL",0,6,5)=""
^DD(458.1101,"GL",0,7,6)=""
^DD(458.1101,"GL",0,8,7)=""
^DD(458.1101,"GL",0,9,8)=""
^DD(458.1101,"GL",0,10,9)=""
^DD(458.1101,"GL",0,11,9.5)=""
^DD(458.1101,"GL",1,1,10)=""
^DD(458.1101,"GL",2,1,11)=""
^DD(458.1101,"GL",3,1,12)=""
^DD(458.1101,"GL",4,1,13)=""
^DD(458.1101,"GL",5,1,14)=""
^DD(458.1101,"GL",6,1,15)=""
^DD(458.1101,"GL",7,1,20)=""
^DD(458.1101,"IX",.01)=""
^DD(458.1101,"IX",4)=""
^DD(458.1101,"RQ",1)=""
^DD(458.1101,"RQ",2)=""
^DD(458.1101,"RQ",3)=""
^DD(458.1101,"RQ",4)=""
^DD(458.1101,"RQ",10)=""
^DD(458.1105,0)="LD AUDIT SUB-FIELD^^4^5"
^DD(458.1105,0,"DT")="3030903"
^DD(458.1105,0,"IX","B",458.1105,.01)=""
^DD(458.1105,0,"NM","LD AUDIT")=""
^DD(458.1105,0,"UP")="458.01"
^DD(458.1105,.01,0)="AUDIT SEQUENCE^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(458.1105,.01,1,0)="^.1"
^DD(458.1105,.01,1,1,0)="458.1105^B"
^DD(458.1105,.01,1,1,1)="S ^PRST(458,DA(2),""E"",DA(1),""LDAUD"",""B"",$E(X,1,30),DA)="""""
^DD(458.1105,.01,1,1,2)="K ^PRST(458,DA(2),""E"",DA(1),""LDAUD"",""B"",$E(X,1,30),DA)"
^DD(458.1105,.01,3)="Type a number between 1 and 999, 0 Decimal Digits"
^DD(458.1105,.01,"DT")="3030903"
^DD(458.1105,1,0)="DATE OF AUDIT^DX^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.1105,1,3)="(No range limit on date)"
^DD(458.1105,1,"DT")="3030904"
^DD(458.1105,2,0)="LABOR DIST CODE CHANGED BY^P200'^VA(200,^0;3^Q"
^DD(458.1105,2,"DT")="3030903"
^DD(458.1105,3,0)="TYPE OF INTERFACE^FO^^0;4^K:$L(X)>1!($L(X)<1) X"
^DD(458.1105,3,2)="S Y(0)=Y S Y(0)=Y S SUB454=""TOI"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(458.1105,3,2.1)="S Y(0)=Y S SUB454=""TOI"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(458.1105,3,3)="Answer must be 1 character in length"
^DD(458.1105,3,"DT")="3030908"
^DD(458.1105,4,0)="LABOR DISTRIBUTION^458.11054A^^LD;0"
^DD(458.1105,"B","AUDIT SEQUENCE",.01)=""
^DD(458.1105,"B","DATE OF AUDIT",1)=""
^DD(458.1105,"B","LABOR DIST CODE CHANGED BY",2)=""
^DD(458.1105,"B","LABOR DISTRIBUTION",4)=""
^DD(458.1105,"B","TYPE OF INTERFACE",3)=""
^DD(458.1105,"GL",0,1,.01)=""
^DD(458.1105,"GL",0,2,1)=""
^DD(458.1105,"GL",0,3,2)=""
^DD(458.1105,"GL",0,4,3)=""
^DD(458.1105,"GL","LD",0,4)=""
^DD(458.1105,"IX",.01)=""
^DD(458.1105,"SB",458.11054,4)=""
^DD(458.11054,0)="LABOR DISTRIBUTION SUB-FIELD^^4^5"
^DD(458.11054,0,"DT")="3030903"
^DD(458.11054,0,"IX","B",458.11054,.01)=""
^DD(458.11054,0,"NM","LABOR DISTRIBUTION")=""
^DD(458.11054,0,"UP")="458.1105"
^DD(458.11054,.01,0)="DISTRIBUTION NUMBER^NJ1,0^^0;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1.N) X"
^DD(458.11054,.01,1,0)="^.1"
^DD(458.11054,.01,1,1,0)="458.11054^B"
^DD(458.11054,.01,1,1,1)="S ^PRST(458,DA(3),""E"",DA(2),""LDAUD"",DA(1),""LD"",""B"",$E(X,1,30),DA)="""""
^DD(458.11054,.01,1,1,2)="K ^PRST(458,DA(3),""E"",DA(2),""LDAUD"",DA(1),""LD"",""B"",$E(X,1,30),DA)"
^DD(458.11054,.01,3)="Type a number between 1 and 4, 0 Decimal Digits"
^DD(458.11054,.01,"DT")="3030903"
^DD(458.11054,1,0)="CODE^F^^0;2^K:$L(X)>4!($L(X)<4) X"
^DD(458.11054,1,3)="Answer must be 4 characters in length"
^DD(458.11054,1,"DT")="3030903"
^DD(458.11054,2,0)="PERCENT^NJ4,2^^0;3^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.11054,2,3)="Type a number between 0 and 1, 2 Decimal Digits"
^DD(458.11054,2,"DT")="3030903"
^DD(458.11054,3,0)="COST CENTER^F^^0;4^K:$L(X)>4!($L(X)<4) X"
^DD(458.11054,3,3)="Answer must be 4 characters in length"
^DD(458.11054,3,"DT")="3030903"
^DD(458.11054,4,0)="FUND CTRL PT^F^^0;5^K:$L(X)>3!($L(X)<3) X"
^DD(458.11054,4,3)="Answer must be 3 characters in length"
^DD(458.11054,4,"DT")="3030903"
^DD(458.11054,"B","CODE",1)=""
^DD(458.11054,"B","COST CENTER",3)=""
^DD(458.11054,"B","DISTRIBUTION NUMBER",.01)=""
^DD(458.11054,"B","FUND CTRL PT",4)=""
^DD(458.11054,"B","PERCENT",2)=""
^DD(458.11054,"GL",0,1,.01)=""
^DD(458.11054,"GL",0,2,1)=""
^DD(458.11054,"GL",0,3,2)=""
^DD(458.11054,"GL",0,4,3)=""
^DD(458.11054,"GL",0,5,4)=""
^DD(458.11054,"IX",.01)=""
^DD(458.2,0)="FIELD^^23^19"
^DD(458.2,0,"DDA")="N"
^DD(458.2,0,"DT")="2980514"
^DD(458.2,0,"ID","WRITE")="S %=$P(^(0),U,3) W ""   "",$E(%,4,5),""-"",$E(%,6,7),""-"",$E(%,2,3)"
^DD(458.2,0,"IX","AD",458.2,2)=""
^DD(458.2,0,"IX","AR",458.2,10)=""
^DD(458.2,0,"IX","AS",458.2,10)=""
^DD(458.2,0,"IX","B",458.2,.01)=""
^DD(458.2,0,"IX","C",458.2,1)=""
^DD(458.2,0,"NM","OT/CT REQUESTS")=""
^DD(458.2,0,"VR")="4.0"
^DD(458.2,0,"VRPK")="PRS"
^DD(458.2,.01,0)="SEQUENCE #^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.2,.01,1,0)="^.1"
^DD(458.2,.01,1,1,0)="458.2^B"
^DD(458.2,.01,1,1,1)="S ^PRST(458.2,""B"",$E(X,1,30),DA)="""""
^DD(458.2,.01,1,1,2)="K ^PRST(458.2,""B"",$E(X,1,30),DA)"
^DD(458.2,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(458.2,.01,21,0)="^^2^2^2921102^"
^DD(458.2,.01,21,1,0)="A sequential number that identifies the overtime or compensatory time"
^DD(458.2,.01,21,2,0)="request."
^DD(458.2,.01,"DT")="2920206"
^DD(458.2,1,0)="EMPLOYEE^RP450'^PRSPC(^0;2^Q"
^DD(458.2,1,1,0)="^.1"
^DD(458.2,1,1,1,0)="458.2^C"
^DD(458.2,1,1,1,1)="S ^PRST(458.2,""C"",$E(X,1,30),DA)="""""
^DD(458.2,1,1,1,2)="K ^PRST(458.2,""C"",$E(X,1,30),DA)"
^DD(458.2,1,1,1,"DT")="2920206"
^DD(458.2,1,21,0)="^^2^2^2980803^^^"
^DD(458.2,1,21,1,0)="An employee from the PAID EMPLOYEE file (#450) who will work either overtime or"
^DD(458.2,1,21,2,0)="compensatory time/credit hours. "
^DD(458.2,1,"DT")="2920206"
^DD(458.2,2,0)="REQUESTED WORK DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.2,2,1,0)="^.1"
^DD(458.2,2,1,1,0)="458.2^AD^MUMPS"
^DD(458.2,2,1,1,1)="S X1=$P(^PRST(458.2,DA,0),""^"",2) S:X1 ^PRST(458.2,""AD"",X1,X,DA)="""""
^DD(458.2,2,1,1,2)="S X1=$P(^PRST(458.2,DA,0),""^"",2) K:X1 ^PRST(458.2,""AD"",X1,X,DA)"
^DD(458.2,2,1,1,"%D",0)="^^2^2^2940525^"
^DD(458.2,2,1,1,"%D",1,0)="This is a cross-reference of employee,date,sequence # for the OT/CT"
^DD(458.2,2,1,1,"%D",2,0)="request."
^DD(458.2,2,1,1,"DT")="2920312"
^DD(458.2,2,21,0)="^^2^2^2980803^^"
^DD(458.2,2,21,1,0)="The date the overtime or comptime/credit hrs. is to be worked.  If the"
^DD(458.2,2,21,2,0)="OT/CT/CH request spans two days, enter the starting date. "
^DD(458.2,2,"DT")="2920320"
^DD(458.2,3,0)="DATE SCHEDULED^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.2,3,1,0)="^.1^^0"
^DD(458.2,3,21,0)="^^2^2^2980803^^^^"
^DD(458.2,3,21,1,0)="The date the overtime or compensatory time/credit hours request was"
^DD(458.2,3,21,2,0)="scheduled. "
^DD(458.2,3,"DT")="2940301"
^DD(458.2,4,0)="TYPE OF TIME^R*S^OT:OVERTIME;CT:COMP TIME/CREDIT HRS.;^0;5^Q"
^DD(458.2,4,3)="Code CT for both comp time and credit hours.  Use the justification field to specify the request as comp time or credit hours."
^DD(458.2,4,12)="Allow only valid types of time"
^DD(458.2,4,12.1)="S DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[Y)"""
^DD(458.2,4,21,0)="^^2^2^2980803^^^^"
^DD(458.2,4,21,1,0)="Identify request as overtime or (compensatory time/credit hours).  When coding"
^DD(458.2,4,21,2,0)="CT, specify credit hours or comp time in the justification field."
^DD(458.2,4,23,0)="^^2^2^2980803^^^"
^DD(458.2,4,23,1,0)="Per VACO request the type of time ""compensatory time"" has been modified from"
^DD(458.2,4,23,2,0)="the original design to include both compensatory time and credit hours. "
^DD(458.2,4,"DT")="2980514"
^DD(458.2,5,0)="HOURS REQUESTED^RNJ5,2X^^0;6^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""3N.N)!(X*100#25) X"
^DD(458.2,5,3)="Type a Number between 0 and 24, 2 Decimal Digits in quarter hours"
^DD(458.2,5,21,0)="^^1^1^2980803^^^"
^DD(458.2,5,21,1,0)="The number of hours--overtime or compensatory time/credit hours--requested."
^DD(458.2,5,"DT")="2940324"
^DD(458.2,6,0)="JUSTIFICATION^RF^^0;7^K:$L(X)>60!($L(X)<3) X"
^DD(458.2,6,3)="Answer must be 3-60 characters in length."
^DD(458.2,6,21,0)="^^3^3^2980803^^^^"
^DD(458.2,6,21,1,0)="Enter a justification for scheduling overtime or compensatory time/credit"
^DD(458.2,6,21,2,0)="hours.  For Comp/Credit requests, include Comp or Credit in the"
^DD(458.2,6,21,3,0)="justification to distinquish between comp and credit. "
^DD(458.2,6,"DT")="2920922"
^DD(458.2,7,0)="COST ESTIMATE^RNJ7,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>1000)!(X<0) X"
^DD(458.2,7,3)="Type a Dollar Amount between 0 and 1000, 2 Decimal Digits"
^DD(458.2,7,21,0)="^^3^3^2980803^^"
^DD(458.2,7,21,1,0)="This field contains an estimate of the cost of the overtime, e.g.,"
^DD(458.2,7,21,2,0)="the hours in Field 5 multiplied by 1.5 times the Employee's"
^DD(458.2,7,21,3,0)="hourly rate."
^DD(458.2,7,"DT")="2950503"
^DD(458.2,10,0)="STATUS^RS^R:Requested;S:Supr. App.;A:Approved;D:Disapproved;X:Cancelled;^0;8^Q"
^DD(458.2,10,1,0)="^.1"
^DD(458.2,10,1,1,0)="458.2^AR^MUMPS"
^DD(458.2,10,1,1,1)="S X9=$P(^PRST(458.2,DA,0),U,2) I X9 K:X'=""R"" ^PRST(458.2,""AR"",X9,DA) S:X=""R"" ^PRST(458.2,""AR"",X9,DA)="""""
^DD(458.2,10,1,1,2)="S X9=$P(^PRST(458.2,DA,0),U,2) K:X9 ^PRST(458.2,""AR"",X9,DA)"
^DD(458.2,10,1,1,"%D",0)="^^1^1^2940525^"
^DD(458.2,10,1,1,"%D",1,0)="This is a cross-reference of only those entries with a status of R."
^DD(458.2,10,1,1,"DT")="2920319"
^DD(458.2,10,1,2,0)="458.2^AS^MUMPS"
^DD(458.2,10,1,2,1)="S X9=$P(^PRST(458.2,DA,0),U,2) I X9 K:X'=""S"" ^PRST(458.2,""AS"",X9,DA) S:X=""S"" ^PRST(458.2,""AS"",X9,DA)="""""
^DD(458.2,10,1,2,2)="S X9=$P(^PRST(458.2,DA,0),U,2) K:X9 ^PRST(458.2,""AS"",X9,DA)"
^DD(458.2,10,1,2,"%D",0)="^^1^1^2940525^"
^DD(458.2,10,1,2,"%D",1,0)="This is a cross-reference of only those entries with a status of S."
^DD(458.2,10,1,2,"DT")="2920715"
^DD(458.2,10,21,0)="^^1^1^2980803^^^"
^DD(458.2,10,21,1,0)="The status of the request to work overtime or compensatory time/credit hours."
^DD(458.2,10,"DT")="2930324"
^DD(458.2,11,0)="T&L WORKED^FX^^0;9^S DIC=455.5,DIC(0)=""EMQ"" D ^DIC K DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(458.2,11,4)="N D,X,DIC,DO S DIC=""^PRST(455.5,"",DIC(0)=""Q"",D=""B"" D DQ^DICQ Q"
^DD(458.2,11,21,0)="^^2^2^2980803^^"
^DD(458.2,11,21,1,0)="The time and leave unit where the overtime or compensatory time/credit hours is"
^DD(458.2,11,21,2,0)="scheduled to be worked. "
^DD(458.2,11,"DT")="2920804"
^DD(458.2,15,0)="ENTRY PERSON^RP200'^VA(200,^0;11^Q"
^DD(458.2,15,21,0)="^^2^2^2921102^"
^DD(458.2,15,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the person"
^DD(458.2,15,21,2,0)="entering the request."
^DD(458.2,15,"DT")="2920206"
^DD(458.2,16,0)="ENTRY DATE/TIME^RD^^0;12^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.2,16,21,0)="^^1^1^2921102^"
^DD(458.2,16,21,1,0)="The date and time the request was entered."
^DD(458.2,16,"DT")="2920206"
^DD(458.2,17,0)="SUPERVISOR^P200'^VA(200,^0;13^Q"
^DD(458.2,17,21,0)="^^2^2^2921102^"
^DD(458.2,17,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the supervisor"
^DD(458.2,17,21,2,0)="who approved or disapproved the request."
^DD(458.2,17,"DT")="2920320"
^DD(458.2,18,0)="SUPR. ACTION DATE/TIME^D^^0;14^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.2,18,21,0)="^^1^1^2921105^"
^DD(458.2,18,21,1,0)="The date and time the supervisor took action on this request."
^DD(458.2,18,"DT")="2920320"
^DD(458.2,19,0)="SUPR. ES^FO^^0;15^K:$L(X)>20!($L(X)<6) X"
^DD(458.2,19,2)="S Y(0)=Y S X=Y,X2=D0,X1=$P(^PRST(458.2,D0,0),U,13) D DE^XUSHSHP S Y=X"
^DD(458.2,19,2.1)="S X=Y,X2=D0,X1=$P(^PRST(458.2,D0,0),U,13) D DE^XUSHSHP S Y=X"
^DD(458.2,19,3)="Answer must be 6-20 characters in length."
^DD(458.2,19,21,0)="^^1^1^2921103^"
^DD(458.2,19,21,1,0)="The supervisor's electronic siganture code."
^DD(458.2,19,"DT")="2950525"
^DD(458.2,20,0)="SUPR. COMMENT^F^^1;1^K:$L(X)>60!($L(X)<2) X"
^DD(458.2,20,3)="Answer must be 2-60 characters in length."
^DD(458.2,20,21,0)="^^2^2^2921103^"
^DD(458.2,20,21,1,0)="A free text response for any comments the supervisor would like to enter"
^DD(458.2,20,21,2,0)="concerning this request."
^DD(458.2,20,"DT")="2920330"
^DD(458.2,21,0)="APPROVER^P200'^VA(200,^0;16^Q"
^DD(458.2,21,21,0)="^^2^2^2921103^"
^DD(458.2,21,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the person who"
^DD(458.2,21,21,2,0)="approves the request."
^DD(458.2,21,"DT")="2920715"
^DD(458.2,22,0)="APPR. DATE/TIME^D^^0;17^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.2,22,21,0)="^^1^1^2921103^"
^DD(458.2,22,21,1,0)="The date and time the request was approved."
^DD(458.2,22,"DT")="2920715"
^DD(458.2,23,0)="APPR. ES^FO^^0;18^K:$L(X)>20!($L(X)<6) X"
^DD(458.2,23,2)="S Y(0)=Y S X=Y,X2=D0,X1=$P(^PRST(458.2,D0,0),U,16) D DE^XUSHSHP S Y=X"
^DD(458.2,23,2.1)="S X=Y,X2=D0,X1=$P(^PRST(458.2,D0,0),U,16) D DE^XUSHSHP S Y=X"
^DD(458.2,23,3)="Answer must be 6-20 characters in length."
^DD(458.2,23,21,0)="^^1^1^2921103^"
^DD(458.2,23,21,1,0)="The approving official's electronic signature code."
^DD(458.2,23,"DT")="2950525"
^DD(458.2,"B","APPR. DATE/TIME",22)=""
^DD(458.2,"B","APPR. ES",23)=""
^DD(458.2,"B","APPROVER",21)=""
^DD(458.2,"B","COST ESTIMATE",7)=""
^DD(458.2,"B","DATE SCHEDULED",3)=""
^DD(458.2,"B","EMPLOYEE",1)=""
^DD(458.2,"B","ENTRY DATE/TIME",16)=""
^DD(458.2,"B","ENTRY PERSON",15)=""
^DD(458.2,"B","HOURS REQUESTED",5)=""
^DD(458.2,"B","JUSTIFICATION",6)=""
^DD(458.2,"B","REQUESTED WORK DATE",2)=""
^DD(458.2,"B","SEQUENCE #",.01)=""
^DD(458.2,"B","STATUS",10)=""
^DD(458.2,"B","SUPERVISOR",17)=""
^DD(458.2,"B","SUPR. ACTION DATE/TIME",18)=""
^DD(458.2,"B","SUPR. COMMENT",20)=""
^DD(458.2,"B","SUPR. ES",19)=""
^DD(458.2,"B","T&L WORKED",11)=""
^DD(458.2,"B","TYPE OF TIME",4)=""
^DD(458.2,"GL",0,1,.01)=""
^DD(458.2,"GL",0,2,1)=""
^DD(458.2,"GL",0,3,2)=""
^DD(458.2,"GL",0,4,3)=""
^DD(458.2,"GL",0,5,4)=""
^DD(458.2,"GL",0,6,5)=""
^DD(458.2,"GL",0,7,6)=""
^DD(458.2,"GL",0,8,10)=""
^DD(458.2,"GL",0,9,11)=""
^DD(458.2,"GL",0,10,7)=""
^DD(458.2,"GL",0,11,15)=""
^DD(458.2,"GL",0,12,16)=""
^DD(458.2,"GL",0,13,17)=""
^DD(458.2,"GL",0,14,18)=""
^DD(458.2,"GL",0,15,19)=""
^DD(458.2,"GL",0,16,21)=""
^DD(458.2,"GL",0,17,22)=""
^DD(458.2,"GL",0,18,23)=""
^DD(458.2,"GL",1,1,20)=""
^DD(458.2,"IX",.01)=""
^DD(458.2,"IX",1)=""
^DD(458.2,"IX",2)=""
^DD(458.2,"IX",10)=""
^DD(458.2,"RQ",.01)=""
^DD(458.2,"RQ",1)=""
^DD(458.2,"RQ",2)=""
^DD(458.2,"RQ",4)=""
^DD(458.2,"RQ",5)=""
^DD(458.2,"RQ",6)=""
^DD(458.2,"RQ",7)=""
^DD(458.2,"RQ",10)=""
^DD(458.2,"RQ",15)=""
^DD(458.2,"RQ",16)=""
^DD(458.3,0)="FIELD^^14^15"
^DD(458.3,0,"DDA")="N"
^DD(458.3,0,"DT")="2930421"
^DD(458.3,0,"ID","WRITE")="S %=$P(^(0),U,3) W ""   "",$E(%,4,5),""-"",$E(%,6,7),""-"",$E(%,2,3)"
^DD(458.3,0,"IX","AD",458.3,2)=""
^DD(458.3,0,"IX","AR",458.3,8)=""
^DD(458.3,0,"IX","B",458.3,.01)=""
^DD(458.3,0,"IX","C",458.3,1)=""
^DD(458.3,0,"NM","ENVIRONMENTAL DIFF. REQUESTS")=""
^DD(458.3,0,"VR")="4.0"
^DD(458.3,.01,0)="SEQUENCE #^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.3,.01,1,0)="^.1"
^DD(458.3,.01,1,1,0)="458.3^B"
^DD(458.3,.01,1,1,1)="S ^PRST(458.3,""B"",$E(X,1,30),DA)="""""
^DD(458.3,.01,1,1,2)="K ^PRST(458.3,""B"",$E(X,1,30),DA)"
^DD(458.3,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(458.3,.01,21,0)="^^2^2^2921103^"
^DD(458.3,.01,21,1,0)="A sequential number that identifies the environmental differential"
^DD(458.3,.01,21,2,0)="request."
^DD(458.3,.01,"DT")="2920206"
^DD(458.3,1,0)="EMPLOYEE^RP450'^PRSPC(^0;2^Q"
^DD(458.3,1,1,0)="^.1"
^DD(458.3,1,1,1,0)="458.3^C"
^DD(458.3,1,1,1,1)="S ^PRST(458.3,""C"",$E(X,1,30),DA)="""""
^DD(458.3,1,1,1,2)="K ^PRST(458.3,""C"",$E(X,1,30),DA)"
^DD(458.3,1,21,0)="^^2^2^2921103^"
^DD(458.3,1,21,1,0)="A pointer to the PAID EMPLOYEE file (#450) which identifies the employee"
^DD(458.3,1,21,2,0)="for whom the request is being made."
^DD(458.3,1,"DT")="2920319"
^DD(458.3,2,0)="FROM DATE^RDX^^0;3^S %DT=""EXP"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(458.3,2,1,0)="^.1"
^DD(458.3,2,1,1,0)="458.3^AD^MUMPS"
^DD(458.3,2,1,1,1)="S X1=$P(^PRST(458.3,DA,0),""^"",2) S:X1 ^PRST(458.3,""AD"",X1,9999999-X,DA)="""""
^DD(458.3,2,1,1,2)="S X1=$P(^PRST(458.3,DA,0),""^"",2) K:X1 ^PRST(458.3,""AD"",X1,9999999-X,DA)"
^DD(458.3,2,1,1,"%D",0)="^^1^1^2940525^"
^DD(458.3,2,1,1,"%D",1,0)="This is a multi-field cross-reference of employee by inverse date."
^DD(458.3,2,21,0)="^^1^1^2921103^"
^DD(458.3,2,21,1,0)="The date the environmental differential should begin."
^DD(458.3,2,"DT")="3001215"
^DD(458.3,3,0)="FROM TIME^RFX^^0;4^D:$D(X) ^PRSATIM"
^DD(458.3,3,4)="D HLP^PRSATIM"
^DD(458.3,3,21,0)="^^1^1^2930216^^"
^DD(458.3,3,21,1,0)="The time the environmental differential should begin."
^DD(458.3,3,"DT")="2930216"
^DD(458.3,4,0)="MEAL TIME^RNJ2,0X^^0;5^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:X#15 X"
^DD(458.3,4,3)="Enter 0, 15, 30, 45 or 60"
^DD(458.3,4,21,0)="^^2^2^2930421^^"
^DD(458.3,4,21,1,0)="The meal time in minutes. This will be subtracted from"
^DD(458.3,4,21,2,0)="the end-start time to determine the time of exposure."
^DD(458.3,4,"DT")="2930421"
^DD(458.3,5,0)="TO TIME^RFX^^0;6^D:$D(X) ^PRSATIM"
^DD(458.3,5,4)="D HLP^PRSATIM"
^DD(458.3,5,21,0)="^^1^1^2930216^^"
^DD(458.3,5,21,1,0)="The time the environmental differential should cease."
^DD(458.3,5,"DT")="2930216"
^DD(458.3,6,0)="TYPE OF EXPOSURE^R*P457.6'^PRST(457.6,^0;7^S DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,2))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(458.3,6,12)="Select Hazard or Envir. Diff. Item"
^DD(458.3,6,12.1)="S DIC(""S"")=""I $S('$D(ZENT):1,1:ZENT[$P(^(0),U,2))"""
^DD(458.3,6,21,0)="^^2^2^2921103^"
^DD(458.3,6,21,1,0)="A pointer to the ENVIRONMENTAL DIFFERENTIALS file (#457.6) which"
^DD(458.3,6,21,2,0)="identifies the type of exposure the employee is subject to."
^DD(458.3,6,"DT")="2920818"
^DD(458.3,7,0)="JUSTIFICATION^RF^^0;8^K:$L(X)>60!($L(X)<1) X"
^DD(458.3,7,3)="Answer must be 1-60 characters in length."
^DD(458.3,7,21,0)="^^1^1^2930216^^"
^DD(458.3,7,21,1,0)="A free text response that states the justification for this request."
^DD(458.3,7,"DT")="2930216"
^DD(458.3,8,0)="STATUS^S^R:Requested;A:Approved;D:Disapproved;X:Cancelled;^0;9^Q"
^DD(458.3,8,1,0)="^.1"
^DD(458.3,8,1,1,0)="458.3^AR^MUMPS"
^DD(458.3,8,1,1,1)="S X9=$P(^PRST(458.3,DA,0),U,2) I X9 K:X'=""R"" ^PRST(458.3,""AR"",X9,DA) S:X=""R"" ^PRST(458.3,""AR"",X9,DA)="""""
^DD(458.3,8,1,1,2)="S X9=$P(^PRST(458.3,DA,0),U,2) K:X9 ^PRST(458.3,""AR"",X9,DA)"
^DD(458.3,8,1,1,"%D",0)="^^2^2^2940525^"
^DD(458.3,8,1,1,"%D",1,0)="This is a cross-reference of only those entries with a status of R for"
^DD(458.3,8,1,1,"%D",2,0)="requested."
^DD(458.3,8,21,0)="^^1^1^2921103^"
^DD(458.3,8,21,1,0)="The status of the request."
^DD(458.3,8,"DT")="2920319"
^DD(458.3,9,0)="ENTERED BY^RP200'^VA(200,^0;10^Q"
^DD(458.3,9,21,0)="^^2^2^2921103^"
^DD(458.3,9,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the person who"
^DD(458.3,9,21,2,0)="entered the request."
^DD(458.3,9,"DT")="2920320"
^DD(458.3,10,0)="DATE/TIME ENTERED^RD^^0;11^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.3,10,21,0)="^^1^1^2921103^"
^DD(458.3,10,21,1,0)="The date and time the request was entered."
^DD(458.3,10,"DT")="2920320"
^DD(458.3,11,0)="SUPERVISOR^P200'^VA(200,^0;12^Q"
^DD(458.3,11,21,0)="^^2^2^2921103^"
^DD(458.3,11,21,1,0)="A pointer to the NEW PERSON file (#200) which identifies the employee's"
^DD(458.3,11,21,2,0)="supervisor."
^DD(458.3,11,"DT")="2920320"
^DD(458.3,12,0)="SUPR. ACTION DATE/TIME^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.3,12,21,0)="^^1^1^2921103^"
^DD(458.3,12,21,1,0)="The date and time the supervisor took action on this request."
^DD(458.3,12,"DT")="2920320"
^DD(458.3,13,0)="SUPR. ES^FO^^0;14^K:$L(X)>20!($L(X)<6) X"
^DD(458.3,13,2)="S Y(0)=Y S X=Y,X2=D0,X1=$P(^PRST(458.3,D0,0),U,12) D DE^XUSHSHP S Y=X"
^DD(458.3,13,2.1)="S X=Y,X2=D0,X1=$P(^PRST(458.3,D0,0),U,12) D DE^XUSHSHP S Y=X"
^DD(458.3,13,3)="Answer must be 6-20 characters in length."
^DD(458.3,13,21,0)="^^1^1^2921103^"
^DD(458.3,13,21,1,0)="The supervisor's electronic signature code."
^DD(458.3,13,"DT")="2950525"
^DD(458.3,14,0)="SUPR. COMMENT^F^^1;1^K:$L(X)>60!($L(X)<2) X"
^DD(458.3,14,3)="Answer must be 2-60 characters in length."
^DD(458.3,14,21,0)="^^2^2^2921103^"
^DD(458.3,14,21,1,0)="A free text response for any comments the supervisor would like to make"
^DD(458.3,14,21,2,0)="about this request."
^DD(458.3,14,"DT")="2920330"
^DD(458.3,"B","DATE/TIME ENTERED",10)=""
^DD(458.3,"B","EMPLOYEE",1)=""
^DD(458.3,"B","ENTERED BY",9)=""
^DD(458.3,"B","FROM DATE",2)=""
^DD(458.3,"B","FROM TIME",3)=""
^DD(458.3,"B","JUSTIFICATION",7)=""
^DD(458.3,"B","MEAL TIME",4)=""
^DD(458.3,"B","SEQUENCE #",.01)=""
^DD(458.3,"B","STATUS",8)=""
^DD(458.3,"B","SUPERVISOR",11)=""
^DD(458.3,"B","SUPR. ACTION DATE/TIME",12)=""
^DD(458.3,"B","SUPR. COMMENT",14)=""
^DD(458.3,"B","SUPR. ES",13)=""
^DD(458.3,"B","TO TIME",5)=""
^DD(458.3,"B","TYPE OF EXPOSURE",6)=""
^DD(458.3,"GL",0,1,.01)=""
^DD(458.3,"GL",0,2,1)=""
^DD(458.3,"GL",0,3,2)=""
^DD(458.3,"GL",0,4,3)=""
^DD(458.3,"GL",0,5,4)=""
^DD(458.3,"GL",0,6,5)=""
^DD(458.3,"GL",0,7,6)=""
^DD(458.3,"GL",0,8,7)=""
^DD(458.3,"GL",0,9,8)=""
^DD(458.3,"GL",0,10,9)=""
^DD(458.3,"GL",0,11,10)=""
^DD(458.3,"GL",0,12,11)=""
^DD(458.3,"GL",0,13,12)=""
^DD(458.3,"GL",0,14,13)=""
^DD(458.3,"GL",1,1,14)=""
^DD(458.3,"IX",.01)=""
^DD(458.3,"IX",1)=""
^DD(458.3,"IX",2)=""
^DD(458.3,"IX",8)=""
^DD(458.3,"RQ",.01)=""
^DD(458.3,"RQ",1)=""
^DD(458.3,"RQ",2)=""
^DD(458.3,"RQ",3)=""
^DD(458.3,"RQ",4)=""
^DD(458.3,"RQ",5)=""
^DD(458.3,"RQ",6)=""
^DD(458.3,"RQ",7)=""
^DD(458.3,"RQ",9)=""
^DD(458.3,"RQ",10)=""
^DD(458.4,0)="FIELD^^6^7"
^DD(458.4,0,"DT")="3041012"
^DD(458.4,0,"IX","B",458.4,.01)=""
^DD(458.4,0,"NM","PT PHYSICIAN EXTENDED ABSENCE")=""
^DD(458.4,0,"VR")="4.0"
^DD(458.4,0,"VRPK")="PRS"
^DD(458.4,.01,0)="FROM DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.4,.01,1,0)="^.1"
^DD(458.4,.01,1,1,0)="458.4^B"
^DD(458.4,.01,1,1,1)="S ^PRST(458.4,""B"",$E(X,1,30),DA)="""""
^DD(458.4,.01,1,1,2)="K ^PRST(458.4,""B"",$E(X,1,30),DA)"
^DD(458.4,.01,3)="(No range limit on date)"
^DD(458.4,.01,21,0)="^.001^2^2^3050122^^^^"
^DD(458.4,.01,21,1,0)="The beginning date of a period of extended absence when the Part"
^DD(458.4,.01,21,2,0)="Time Physician will not be performing any duty for the VA."
^DD(458.4,.01,"DT")="3050122"
^DD(458.4,1,0)="TO DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.4,1,3)="(No range limit on date)"
^DD(458.4,1,21,0)="^.001^2^2^3050122^^^^"
^DD(458.4,1,21,1,0)="The ending date of a period of extended absence when the Part Time"
^DD(458.4,1,21,2,0)="Physician will not be performing any duty for the VA."
^DD(458.4,1,"DT")="3050122"
^DD(458.4,2,0)="EMPLOYEE^P450'^PRSPC(^0;3^Q"
^DD(458.4,2,21,0)="^^2^2^3050122^^"
^DD(458.4,2,21,1,0)="A pointer to the PAID EMPLOYEE file (#450) which identifies the employee who"
^DD(458.4,2,21,2,0)="is creating the Extended Absence entry."
^DD(458.4,2,"DT")="3050122"
^DD(458.4,3,0)="DATE/TIME ENTERED^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(458.4,3,3)="(No range limit on date)"
^DD(458.4,3,21,0)="^^1^1^3040910^"
^DD(458.4,3,21,1,0)="The date and time the Extended Absence was originally entered."
^DD(458.4,3,"DT")="3040910"
^DD(458.4,4,0)="DATE/TIME UPDATED^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(458.4,4,3)="(No range limit on date)"
^DD(458.4,4,21,0)="^^1^1^3040910^"
^DD(458.4,4,21,1,0)="The date and time the Extended Absence was last updated."
^DD(458.4,4,"DT")="3040910"
^DD(458.4,5,0)="STATUS^RS^A:ACTIVE;X:CANCELLED;^0;6^Q"
^DD(458.4,5,21,0)="^.001^1^1^3050122^^^"
^DD(458.4,5,21,1,0)="The status of the Extended Absence.  Possible values: Active or Cancelled."
^DD(458.4,5,"DT")="3050122"
^DD(458.4,6,0)="REMARKS^F^^0;7^K:$L(X)>60!($L(X)<1) X"
^DD(458.4,6,3)="Answer must be 1-60 characters in length"
^DD(458.4,6,21,0)="^^1^1^3050331^"
^DD(458.4,6,21,1,0)="This field contains optional remarks that can be entered by the employee."
^DD(458.4,6,"DT")="3040910"
^DD(458.4,"B","DATE/TIME ENTERED",3)=""
^DD(458.4,"B","DATE/TIME UPDATED",4)=""
^DD(458.4,"B","EMPLOYEE",2)=""
^DD(458.4,"B","FROM DATE",.01)=""
^DD(458.4,"B","REMARKS",6)=""
^DD(458.4,"B","STATUS",5)=""
^DD(458.4,"B","TO DATE",1)=""
^DD(458.4,"GL",0,1,.01)=""
^DD(458.4,"GL",0,2,1)=""
^DD(458.4,"GL",0,3,2)=""
^DD(458.4,"GL",0,4,3)=""
^DD(458.4,"GL",0,5,4)=""
^DD(458.4,"GL",0,6,5)=""
^DD(458.4,"GL",0,7,6)=""
^DD(458.4,"IX",.01)=""
^DD(458.4,"RQ",.01)=""
^DD(458.4,"RQ",1)=""
^DD(458.4,"RQ",5)=""
^DD(458.5,0)="FIELD^^7^8"
^DD(458.5,0,"DT")="2950822"
^DD(458.5,0,"IX","B",458.5,.01)=""
^DD(458.5,0,"IX","C",458.5,1)=""
^DD(458.5,0,"NM","PRIOR PP EXCEPTIONS")=""
^DD(458.5,0,"VR")="4.0"
^DD(458.5,.01,0)="SEQUENCE #^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.5,.01,1,0)="^.1"
^DD(458.5,.01,1,1,0)="458.5^B"
^DD(458.5,.01,1,1,1)="S ^PRST(458.5,""B"",$E(X,1,30),DA)="""""
^DD(458.5,.01,1,1,2)="K ^PRST(458.5,""B"",$E(X,1,30),DA)"
^DD(458.5,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(458.5,.01,21,0)="^^1^1^2921102^"
^DD(458.5,.01,21,1,0)="A sequential number that identifies the pay exception."
^DD(458.5,.01,"DT")="2930201"
^DD(458.5,1,0)="EMPLOYEE^RP450'^PRSPC(^0;2^Q"
^DD(458.5,1,1,0)="^.1"
^DD(458.5,1,1,1,0)="458.5^C"
^DD(458.5,1,1,1,1)="S ^PRST(458.5,""C"",$E(X,1,30),DA)="""""
^DD(458.5,1,1,1,2)="K ^PRST(458.5,""C"",$E(X,1,30),DA)"
^DD(458.5,1,1,1,"DT")="2921110"
^DD(458.5,1,21,0)="^^2^2^2921116^"
^DD(458.5,1,21,1,0)="A pointer to the PAID EMPLOYEE file (#450) which identifies the employee"
^DD(458.5,1,21,2,0)="for whom this prior pay period exception applies."
^DD(458.5,1,"DT")="2921110"
^DD(458.5,2,0)="DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.5,2,3)="Enter the Date of Posting containing the exception."
^DD(458.5,2,21,0)="^^1^1^2930420^^^"
^DD(458.5,2,21,1,0)="The date of this prior pay period exception."
^DD(458.5,2,"DT")="2921110"
^DD(458.5,3,0)="START TIME^FX^^0;4^D:$D(X) ^PRSATIM"
^DD(458.5,3,4)="D HLP^PRSATIM"
^DD(458.5,3,21,0)="^^1^1^2930420^^^"
^DD(458.5,3,21,1,0)="The start time for the posted segment resulting in the exception."
^DD(458.5,3,"DT")="2930420"
^DD(458.5,4,0)="TYPE OF EXCEPTION^RF^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(458.5,4,3)="Answer must be 3-30 characters in length."
^DD(458.5,4,21,0)="^^1^1^2930420^^"
^DD(458.5,4,21,1,0)="A free text response which indicates the type of exception."
^DD(458.5,4,"DT")="2921110"
^DD(458.5,5,0)="CLEARED?^S^1:Y;0:N;^0;6^Q"
^DD(458.5,5,21,0)="^^1^1^2950822^^"
^DD(458.5,5,21,1,0)="A Yes indicates that Payroll has cleared this exception."
^DD(458.5,5,"DT")="2950822"
^DD(458.5,6,0)="CLEARING CLERK^P200'^VA(200,^0;7^Q"
^DD(458.5,6,21,0)="^^1^1^2950417^"
^DD(458.5,6,21,1,0)="This is a pointer to the person in File 200 who cleared the entry."
^DD(458.5,6,"DT")="2950417"
^DD(458.5,7,0)="DATE/TIME CLEARED^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.5,7,21,0)="^.001^1^1^3051230^^^^"
^DD(458.5,7,21,1,0)="This is the date/time the entry was cleared."
^DD(458.5,7,"DT")="2950417"
^DD(458.5,"B","CLEARED?",5)=""
^DD(458.5,"B","CLEARING CLERK",6)=""
^DD(458.5,"B","DATE",2)=""
^DD(458.5,"B","DATE/TIME CLEARED",7)=""
^DD(458.5,"B","EMPLOYEE",1)=""
^DD(458.5,"B","SEQUENCE #",.01)=""
^DD(458.5,"B","START TIME",3)=""
^DD(458.5,"B","TYPE OF EXCEPTION",4)=""
^DD(458.5,"GL",0,1,.01)=""
^DD(458.5,"GL",0,2,1)=""
^DD(458.5,"GL",0,3,2)=""
^DD(458.5,"GL",0,4,3)=""
^DD(458.5,"GL",0,5,4)=""
^DD(458.5,"GL",0,6,5)=""
^DD(458.5,"GL",0,7,6)=""
^DD(458.5,"GL",0,8,7)=""
^DD(458.5,"IX",.01)=""
^DD(458.5,"IX",1)=""
^DD(458.5,"RQ",.01)=""
^DD(458.5,"RQ",1)=""
^DD(458.5,"RQ",2)=""
^DD(458.5,"RQ",4)=""
^DD(458.6,0)="FIELD^^8^9"
^DD(458.6,0,"DDA")="N"
^DD(458.6,0,"DT")="2980911"
^DD(458.6,0,"IX","AC",458.6,4)=""
^DD(458.6,0,"IX","B",458.6,.01)=""
^DD(458.6,0,"IX","C",458.6,2)=""
^DD(458.6,0,"IX","D",458.6,2)=""
^DD(458.6,0,"IX","E",458.6,4)=""
^DD(458.6,0,"NM","OVERTIME WARNINGS")=""
^DD(458.6,0,"VR")="4.0"
^DD(458.6,0,"VRPK")="PRS"
^DD(458.6,.01,0)="NUMBER^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.6,.01,1,0)="^.1"
^DD(458.6,.01,1,1,0)="458.6^B"
^DD(458.6,.01,1,1,1)="S ^PRST(458.6,""B"",$E(X,1,30),DA)="""""
^DD(458.6,.01,1,1,2)="K ^PRST(458.6,""B"",$E(X,1,30),DA)"
^DD(458.6,.01,1,2,0)="^^TRIGGER^458.6^4"
^DD(458.6,.01,1,2,1)="X ^DD(458.6,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PRST(458.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=""A"" X ^DD(458.6,.01,1,2,1.4)"
^DD(458.6,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(458.6,4,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^PRST(458.6,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,5)_"":"",2),$C(59),1)="""""
^DD(458.6,.01,1,2,1.4)="S DIH=$S($D(^PRST(458.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=458.6,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(458.6,.01,1,2,2)="Q"
^DD(458.6,.01,1,2,"%D",0)="^^4^4^2981001^"
^DD(458.6,.01,1,2,"%D",1,0)="Trigger ensures that whenever an overtime warning is filed that it's status is"
^DD(458.6,.01,1,2,"%D",2,0)="set to active. The conditional expression ensures that the status is not"
^DD(458.6,.01,1,2,"%D",3,0)="triggered unless it is a new overtime warning entry and won't reset status if"
^DD(458.6,.01,1,2,"%D",4,0)="the trigger is reindexed. "
^DD(458.6,.01,1,2,"CREATE CONDITION")="STATUS="""""
^DD(458.6,.01,1,2,"CREATE VALUE")="S X=""A"""
^DD(458.6,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(458.6,.01,1,2,"DT")="2981001"
^DD(458.6,.01,1,2,"FIELD")="STATUS"
^DD(458.6,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(458.6,.01,21,0)="^^1^1^2980806^"
^DD(458.6,.01,21,1,0)="a sequential number to uniquely identify each warning."
^DD(458.6,.01,"DEL",1,0)="I 1 D EN^DDIOL("" OT WARNING CAN'T BE DELETED!! "","""",""?0"")"
^DD(458.6,.01,"DT")="2981001"
^DD(458.6,1,0)="EMPLOYEE^RP450'^PRSPC(^0;2^Q"
^DD(458.6,1,21,0)="^^2^2^2980806^^"
^DD(458.6,1,21,1,0)="The employee who has more calculated overtime in their 8B string than "
^DD(458.6,1,21,2,0)="approved overtime in the OT/CT requests file."
^DD(458.6,1,"DT")="2980806"
^DD(458.6,2,0)="PAY PERIOD^RP458'^PRST(458,^0;3^Q"
^DD(458.6,2,1,0)="^.1"
^DD(458.6,2,1,1,0)="458.6^C"
^DD(458.6,2,1,1,1)="S ^PRST(458.6,""C"",$E(X,1,30),DA)="""""
^DD(458.6,2,1,1,2)="K ^PRST(458.6,""C"",$E(X,1,30),DA)"
^DD(458.6,2,1,1,"DT")="2980811"
^DD(458.6,2,1,2,0)="458.6^D^MUMPS"
^DD(458.6,2,1,2,1)="S PRSZ=$P($G(^PRST(458,X,0)),""^""),^PRST(458.6,""D"",$$IC^PRSAPPU($P(PRSZ,""-""),4,10,)_""-""_$P(PRSZ,""-"",2),DA)="""" K PRSZ"
^DD(458.6,2,1,2,2)="S PRSZ=$P($G(^PRST(458,X,0)),""^"") K ^PRST(458.6,""D"",$$IC^PRSAPPU($P(PRSZ,""-""),4,10,)_""-""_$P(PRSZ,""-"",2),DA),PRSZ"
^DD(458.6,2,1,2,"%D",0)="^^1^1^2980813^^^^"
^DD(458.6,2,1,2,"%D",1,0)="4 digit year cross ref on pay period in order to be year 2000 compliant."
^DD(458.6,2,1,2,"DT")="2980813"
^DD(458.6,2,21,0)="^^1^1^2980806^"
^DD(458.6,2,21,1,0)="The pay period in which the overtime warning occurs."
^DD(458.6,2,"DT")="2980813"
^DD(458.6,3,0)="WEEK^RNJ1,0^^0;4^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(458.6,3,3)="Type a Number between 1 and 2, 0 Decimal Digits"
^DD(458.6,3,21,0)="^^2^2^2980806^"
^DD(458.6,3,21,1,0)="Either the first (1) or second (2) week of the pay period in which the"
^DD(458.6,3,21,2,0)="overtime warning occurs."
^DD(458.6,3,"DT")="2980806"
^DD(458.6,4,0)="STATUS^RS^A:ACTIVE;C:CLEARED;^0;5^Q"
^DD(458.6,4,1,0)="^.1"
^DD(458.6,4,1,1,0)="458.6^AC^MUMPS"
^DD(458.6,4,1,1,1)="I $$STATCHNG^PRSAOTTF(DA,X) D CLRXREF^PRSAOTTF(DA)"
^DD(458.6,4,1,1,2)="Q"
^DD(458.6,4,1,1,"%D",0)="^^4^4^2980924^"
^DD(458.6,4,1,1,"%D",1,0)="This cross reference looks at the existing value of the ""E"" x-ref on this"
^DD(458.6,4,1,1,"%D",2,0)="field (STATUS) to determine if the value of this field is being changed.  If"
^DD(458.6,4,1,1,"%D",3,0)="the STATUS is being changed then the LAST UPDATED BY field is set to the"
^DD(458.6,4,1,1,"%D",4,0)="current user via their DUZ."
^DD(458.6,4,1,1,"DT")="2980924"
^DD(458.6,4,1,2,0)="458.6^E"
^DD(458.6,4,1,2,1)="S ^PRST(458.6,""E"",$E(X,1,30),DA)="""""
^DD(458.6,4,1,2,2)="K ^PRST(458.6,""E"",$E(X,1,30),DA)"
^DD(458.6,4,1,2,"%D",0)="^^1^1^2980924^"
^DD(458.6,4,1,2,"%D",1,0)="This x-ref maintains an index of Active and Cleared Overtime Warnings. "
^DD(458.6,4,1,2,"DT")="2980924"
^DD(458.6,4,5,1,0)="458.6^.01^2"
^DD(458.6,4,9)="^"
^DD(458.6,4,21,0)="^^3^3^2980806^"
^DD(458.6,4,21,1,0)="When a supervisor approves a timecard with an overtime warning an entry"
^DD(458.6,4,21,2,0)="is added to this file and it is assumed active.  Payroll may decide to "
^DD(458.6,4,21,3,0)="clear the warning thereby changing the status to cleared."
^DD(458.6,4,"DT")="2980924"
^DD(458.6,5,0)="LAST UPDATED BY^P200'^VA(200,^0;6^Q"
^DD(458.6,5,9)="^"
^DD(458.6,5,21,0)="^^1^1^2980911^^"
^DD(458.6,5,21,1,0)="User in file 200 who changes the STATUS of the warning to CLEARED (C)."
^DD(458.6,5,23,0)="^^1^1^2980911^"
^DD(458.6,5,23,1,0)="triggered by status field being set to Cleared."
^DD(458.6,5,"DT")="2980921"
^DD(458.6,6,0)="DATE/TIME CLEARED^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(458.6,6,3)=""
^DD(458.6,6,21,0)="^^1^1^2980806^^"
^DD(458.6,6,21,1,0)="Date and time that the overtime warning is cleared."
^DD(458.6,6,"DT")="2980806"
^DD(458.6,7,0)="8B STRING OVERTIME^RNJ5,2^^0;8^K:+X'=X!(X>98)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.6,7,3)="Type a Number between 0 and 98, 2 Decimal Digits"
^DD(458.6,7,21,0)="^^2^2^2980806^"
^DD(458.6,7,21,1,0)="The total of all types of overtime in the employees 8B string for either "
^DD(458.6,7,21,2,0)="week 1 or 2."
^DD(458.6,7,"DT")="2980806"
^DD(458.6,8,0)="APPROVED OVERTIME^RNJ5,2^^0;9^K:+X'=X!(X>98)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.6,8,3)="Type a Number between 0 and 98, 2 Decimal Digits"
^DD(458.6,8,21,0)="^^1^1^2980806^"
^DD(458.6,8,21,1,0)="The total amount of approved overtime at the time this warning is filed."
^DD(458.6,8,"DT")="2980806"
^DD(458.6,"B","8B STRING OVERTIME",7)=""
^DD(458.6,"B","APPROVED OVERTIME",8)=""
^DD(458.6,"B","DATE/TIME CLEARED",6)=""
^DD(458.6,"B","EMPLOYEE",1)=""
^DD(458.6,"B","LAST UPDATED BY",5)=""
^DD(458.6,"B","NUMBER",.01)=""
^DD(458.6,"B","PAY PERIOD",2)=""
^DD(458.6,"B","STATUS",4)=""
^DD(458.6,"B","WEEK",3)=""
^DD(458.6,"GL",0,1,.01)=""
^DD(458.6,"GL",0,2,1)=""
^DD(458.6,"GL",0,3,2)=""
^DD(458.6,"GL",0,4,3)=""
^DD(458.6,"GL",0,5,4)=""
^DD(458.6,"GL",0,6,5)=""
^DD(458.6,"GL",0,7,6)=""
^DD(458.6,"GL",0,8,7)=""
^DD(458.6,"GL",0,9,8)=""
^DD(458.6,"IX",.01)=""
^DD(458.6,"IX",2)=""
^DD(458.6,"IX",4)=""
^DD(458.6,"RQ",.01)=""
^DD(458.6,"RQ",1)=""
^DD(458.6,"RQ",2)=""
^DD(458.6,"RQ",3)=""
^DD(458.6,"RQ",4)=""
^DD(458.6,"RQ",7)=""
^DD(458.6,"RQ",8)=""
^DD(458.7,0)="FIELD^^200^27"
^DD(458.7,0,"DDA")="N"
^DD(458.7,0,"DT")="3050314"
^DD(458.7,0,"IX","B",458.7,.01)=""
^DD(458.7,0,"IX","ED",458.7,2)=""
^DD(458.7,0,"IX","SD",458.7,1)=""
^DD(458.7,0,"NM","PT PHYSICIAN MEMORANDUM")=""
^DD(458.7,0,"VR")="4.0"
^DD(458.7,0,"VRPK")="PRS"
^DD(458.7,.01,0)="EMPLOYEE^RP450'^PRSPC(^0;1^Q"
^DD(458.7,.01,1,0)="^.1"
^DD(458.7,.01,1,1,0)="458.7^B"
^DD(458.7,.01,1,1,1)="S ^PRST(458.7,""B"",$E(X,1,30),DA)="""""
^DD(458.7,.01,1,1,2)="K ^PRST(458.7,""B"",$E(X,1,30),DA)"
^DD(458.7,.01,3)="Type a number between 1 and 999999999, 0 Decimal Digits"
^DD(458.7,.01,21,0)="^^1^1^3040924^^"
^DD(458.7,.01,21,1,0)="A pointer to the PAID EMPLOYEE file (#450) which identifies the name of the Part Time Physician employee."
^DD(458.7,.01,"DT")="3040924"
^DD(458.7,1,0)="START DATE^RDX^^0;2^N PRSX S PRSX=X S X1=DT,X2=180 D C^%DTC S %DT(0)=-X,X=PRSX,%DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(458.7,1,1,0)="^.1"
^DD(458.7,1,1,1,0)="458.7^SD"
^DD(458.7,1,1,1,1)="S ^PRST(458.7,""SD"",$E(X,1,30),DA)="""""
^DD(458.7,1,1,1,2)="K ^PRST(458.7,""SD"",$E(X,1,30),DA)"
^DD(458.7,1,1,1,"%D",0)="^^1^1^3041006^"
^DD(458.7,1,1,1,"%D",1,0)="Cross reference based on the Start Date of the memorandum."
^DD(458.7,1,1,1,"DT")="3041006"
^DD(458.7,1,3)="Enter the 1st day of the physician's memorandum."
^DD(458.7,1,21,0)="^.001^5^5^3050314^^^^"
^DD(458.7,1,21,1,0)="This is the first day of the part-time physician's Memorandum of Service "
^DD(458.7,1,21,2,0)="Level Expectation.  This date must also be the first day of a pay period "
^DD(458.7,1,21,3,0)="and must be within 6 months of today.  The memorandum covers 26 "
^DD(458.7,1,21,4,0)="full pay periods and will automatically expire on the last day of the 26th "
^DD(458.7,1,21,5,0)="pay period."
^DD(458.7,1,"DT")="3050314"
^DD(458.7,2,0)="END DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:3041001>X X"
^DD(458.7,2,1,0)="^.1"
^DD(458.7,2,1,1,0)="458.7^ED"
^DD(458.7,2,1,1,1)="S ^PRST(458.7,""ED"",$E(X,1,30),DA)="""""
^DD(458.7,2,1,1,2)="K ^PRST(458.7,""ED"",$E(X,1,30),DA)"
^DD(458.7,2,1,1,"%D",0)="^^1^1^3041006^"
^DD(458.7,2,1,1,"%D",1,0)="Cross reference based on the End Date of the memorandum."
^DD(458.7,2,1,1,"DT")="3041006"
^DD(458.7,2,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 2004"
^DD(458.7,2,21,0)="^^4^4^3050104^^^"
^DD(458.7,2,21,1,0)="The End Date of the Part Time Physician's 364 day Memorandum of"
^DD(458.7,2,21,2,0)="Service Level Expectation.  The End Date will always be the last"
^DD(458.7,2,21,3,0)="day of a Pay Period."
^DD(458.7,2,21,4,0)=""
^DD(458.7,2,"DT")="3050104"
^DD(458.7,3,0)="AGREED # OF HOURS^NJ7,2^^0;4^K:+X'=X!(X>2000)!(X<1)!(X?.E1"".""3.N) X"
^DD(458.7,3,3)="Type a number between 1 and 2000, 2 Decimal Digits"
^DD(458.7,3,21,0)="^^2^2^3050122^^^"
^DD(458.7,3,21,1,0)="The number of hours that the Part Time Physician agreed to work during"
^DD(458.7,3,21,2,0)="their 364 day memorandum.  This number must be equally divisible by 26."
^DD(458.7,3,"DT")="3050122"
^DD(458.7,4,0)="INITIAL COMMENTS^F^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(458.7,4,3)="Answer must be 1-240 characters in length"
^DD(458.7,4,21,0)="^^1^1^3040924^"
^DD(458.7,4,21,1,0)="The initial comments entered by Human Resources as the memorandum was entered."
^DD(458.7,4,"DT")="3040924"
^DD(458.7,5,0)="STATUS OF MEMORANDUM^RS^1:NOT STARTED;2:ACTIVE;3:RECONCILIATION STARTED;4:RECONCILED;^0;6^Q"
^DD(458.7,5,3)="The current status of the part-time physician's memorandum."
^DD(458.7,5,21,0)="^^2^2^3050331^"
^DD(458.7,5,21,1,0)="The status of the Part Time Physician's memorandum.  Possible values are:"
^DD(458.7,5,21,2,0)="1:NOT STARTED, 2:ACTIVE, 3:RECONCILIATION STARTED, 4:RECONCILED"
^DD(458.7,5,"DT")="3050122"
^DD(458.7,6,0)="ENTERED BY^P200'^VA(200,^0;7^Q"
^DD(458.7,6,21,0)="^^2^2^3050331^"
^DD(458.7,6,21,1,0)="The Human Resource staff member who entered the Part Time Physician's"
^DD(458.7,6,21,2,0)="Memorandum."
^DD(458.7,6,"DT")="3050122"
^DD(458.7,7,0)="DATE/TIME ENTERED^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:3041001>X X"
^DD(458.7,7,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 2004"
^DD(458.7,7,21,0)="^^1^1^3050331^"
^DD(458.7,7,21,1,0)="The date and time that the memorandum was entered."
^DD(458.7,7,"DT")="3040922"
^DD(458.7,8,0)="CARRYOVER HOURS^NJ6,2^^0;9^K:+X'=X!(X>200)!(X<-200)!(X?.E1"".""3.N) X"
^DD(458.7,8,3)="Type a number between -200 and 200, 2 Decimal Digits"
^DD(458.7,8,21,0)="^^1^1^3050331^"
^DD(458.7,8,21,1,0)="The amount of hours carried over from the Part Time Physician's last memorandum.  Maximum carryover is +/- 5%."
^DD(458.7,8,"DT")="3040922"
^DD(458.7,9,0)="TOTAL HOURS WORKED^NJ7,2^^0;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.7,9,3)="Type a number between 0 and 9999, 2 Decimal Digits"
^DD(458.7,9,21,0)="^^1^1^3050331^"
^DD(458.7,9,21,1,0)="The total hours worked by the Part Time Physician since the beginning of their memorandum.  This includes both scheduled tour hours and extra hours worked."
^DD(458.7,9,"DT")="3041204"
^DD(458.7,10,0)="TOTAL HOURS PAID^NJ7,2^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.7,10,3)="Type a number between 0 and 9999, 2 Decimal Digits"
^DD(458.7,10,21,0)="^^1^1^3050331^"
^DD(458.7,10,21,1,0)="The number of scheduled tour hours paid since the memorandum began."
^DD(458.7,10,"DT")="3041204"
^DD(458.7,11,0)="NONPAY HOURS^NJ7,2^^0;12^K:+X'=X!(X>2000)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.7,11,3)="Type a number between 0 and 2000, 2 Decimal Digits"
^DD(458.7,11,21,0)="^^1^1^3050331^"
^DD(458.7,11,21,1,0)="The number of scheduled tour hours reported as Non Pay since the memorandum began."
^DD(458.7,11,"DT")="3041204"
^DD(458.7,12,0)="WITHOUT PAY HOURS^NJ7,2^^0;13^K:+X'=X!(X>2000)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.7,12,3)="Type a number between 0 and 2000, 2 Decimal Digits"
^DD(458.7,12,21,0)="^^1^1^3050331^"
^DD(458.7,12,21,1,0)="The number of scheduled hours that were recorded as Leave With Out Pay (LWOP)."
^DD(458.7,12,"DT")="3041204"
^DD(458.7,13,0)="% OF MEMORANDUM COMPLETED^NJ6,2^^0;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.7,13,3)="Type a number between 0 and 100, 2 Decimal Digits"
^DD(458.7,13,21,0)="^^1^1^3050331^"
^DD(458.7,13,21,1,0)="The percentage of the memorandum that has been completed.  This percentage is based on the Start Date and the last Pay Period processed."
^DD(458.7,13,"DT")="3041204"
^DD(458.7,14,0)="% OF HOURS COMPLETED^NJ6,2^^0;15^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.7,14,3)="Type a number between 0 and 200, 2 Decimal Digits"
^DD(458.7,14,21,0)="^^1^1^3050331^"
^DD(458.7,14,21,1,0)="The percentage of scheduled hours completed since the beginning of the memorandum.  This percentage reflects any AWOL that may have occurred during the memorandum."
^DD(458.7,14,"DT")="3041204"
^DD(458.7,15,0)="AVE HRS/PP TO COMPLETE MEM^NJ6,2^^0;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3.N) X"
^DD(458.7,15,3)="Type a number between 0 and 999, 2 Decimal Digits"
^DD(458.7,15,21,0)="^^1^1^3050331^"
^DD(458.7,15,21,1,0)="The average number of hours that the Part Time Physician will have to work to meet the Agreed Hours in their Memorandum of Service Level Expectation."
^DD(458.7,15,"DT")="3041204"
^DD(458.7,16,0)="% OFF TARGET^NJ6,2^^0;17^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3.N) X"
^DD(458.7,16,3)="Type a number between -999.99 and 999.99, 2 Decimal Digits"
^DD(458.7,16,21,0)="^^3^3^3050331^"
^DD(458.7,16,21,1,0)="The percentage that the Part Time Physician is either ahead or"
^DD(458.7,16,21,2,0)="behind on meeting their Agreed Hours.  This percentage is based on "
^DD(458.7,16,21,3,0)="the Part Time Physician's Normal Hours per Pay Period."
^DD(458.7,16,"DT")="3050201"
^DD(458.7,17,0)="PT PHY'S RECONCILIATION CHOICE^S^1:No reconciliation needed;2:Transfer negative balance;3:Pay VA for negative balance;4:Transfer positive balance;5:Pay Phy for positive balance;^2;1^Q"
^DD(458.7,17,21,0)="^^1^1^3050122^^^"
^DD(458.7,17,21,1,0)="The PT Physician's choice on how to reconcile their last memorandum."
^DD(458.7,17,"DT")="3050122"
^DD(458.7,18,0)="PT PHY'S RECONCILIATION NOTES^F^^2;2^K:$L(X)>240!($L(X)<1) X"
^DD(458.7,18,3)="Answer must be 1-240 characters in length"
^DD(458.7,18,21,0)="^^1^1^3040924^"
^DD(458.7,18,21,1,0)="Comments entered by the PT Physician when they chose their reconciliation option."
^DD(458.7,18,"DT")="3040924"
^DD(458.7,19,0)="RECONCILED BY^P200'^VA(200,^3;1^Q"
^DD(458.7,19,21,0)="^^1^1^3050104^^"
^DD(458.7,19,21,1,0)="The Human Resource staff member who completed the reconciliation process."
^DD(458.7,19,"DT")="3050308"
^DD(458.7,20,0)="DATE/TIME RECONCILED^D^^3;2^S %DT=""E"" D ^%DT S X=Y K:3041001>X X"
^DD(458.7,20,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 2004"
^DD(458.7,20,21,0)="^^1^1^3040924^"
^DD(458.7,20,21,1,0)="The date and time that Human Resources completed the reconciliation process."
^DD(458.7,20,"DT")="3040924"
^DD(458.7,21,0)="HR RECONCILIATION COMMENTS^F^^3.1;1^K:$L(X)>240!($L(X)<1) X"
^DD(458.7,21,3)="Answer must be 1-240 characters in length"
^DD(458.7,21,21,0)="^^1^1^3050122^^"
^DD(458.7,21,21,1,0)="Any final comments entered by Human Resources during the reconciliation process."
^DD(458.7,21,"DT")="3050122"
^DD(458.7,22,0)="TERMINATION DATE^D^^4;1^S %DT=""E"" D ^%DT S X=Y K:3041001>X X"
^DD(458.7,22,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 2004"
^DD(458.7,22,21,0)="^^1^1^3040924^"
^DD(458.7,22,21,1,0)="The date specified by Human Resources in which the PT Physician's current memorandum will expire so that the reconciliation process can begin."
^DD(458.7,22,"DT")="3040924"
^DD(458.7,23,0)="TERMINATED BY^P200'^VA(200,^4;2^Q"
^DD(458.7,23,21,0)="^^2^2^3050104^^"
^DD(458.7,23,21,1,0)="The Human Resources personnel who terminated the PT Physician's"
^DD(458.7,23,21,2,0)="memorandum."
^DD(458.7,23,"DT")="3050104"
^DD(458.7,24,0)="DATE/TIME TERMINATED^D^^4;3^S %DT=""E"" D ^%DT S X=Y K:3041001>X X"
^DD(458.7,24,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 2004"
^DD(458.7,24,21,0)="^^1^1^3040924^"
^DD(458.7,24,21,1,0)="The date and time that the PT Physician's memorandum was terminated."
^DD(458.7,24,"DT")="3040924"
^DD(458.7,25,0)="TERMINATION COMMENTS^F^^4.1;1^K:$L(X)>240!($L(X)<1) X"
^DD(458.7,25,3)="Answer must be 1-240 characters in length"
^DD(458.7,25,21,0)="^^1^1^3040924^"
^DD(458.7,25,21,1,0)="Comments entered by Human Resources when they terminated the PT Physician's memorandum."
^DD(458.7,25,"DT")="3040924"
^DD(458.7,200,0)="PAY PERIOD^458.701^^9;0"
^DD(458.7,"B","% OF HOURS COMPLETED",14)=""
^DD(458.7,"B","% OF MEMORANDUM COMPLETED",13)=""
^DD(458.7,"B","% OFF TARGET",16)=""
^DD(458.7,"B","AGREED # OF HOURS",3)=""
^DD(458.7,"B","AVE HRS/PP TO COMPLETE MEM",15)=""
^DD(458.7,"B","CARRYOVER HOURS",8)=""
^DD(458.7,"B","DATE/TIME ENTERED",7)=""
^DD(458.7,"B","DATE/TIME RECONCILED",20)=""
^DD(458.7,"B","DATE/TIME TERMINATED",24)=""
^DD(458.7,"B","EMPLOYEE",.01)=""
^DD(458.7,"B","END DATE",2)=""
^DD(458.7,"B","ENTERED BY",6)=""
^DD(458.7,"B","HR RECONCILIATION COMMENTS",21)=""
^DD(458.7,"B","INITIAL COMMENTS",4)=""
^DD(458.7,"B","NONPAY HOURS",11)=""
^DD(458.7,"B","PAY PERIOD",200)=""
^DD(458.7,"B","PT PHY'S RECONCILIATION CHOICE",17)=""
^DD(458.7,"B","PT PHY'S RECONCILIATION NOTES",18)=""
^DD(458.7,"B","RECONCILED BY",19)=""
^DD(458.7,"B","START DATE",1)=""
^DD(458.7,"B","STATUS OF MEMORANDUM",5)=""
^DD(458.7,"B","TERMINATED BY",23)=""
^DD(458.7,"B","TERMINATION COMMENTS",25)=""
^DD(458.7,"B","TERMINATION DATE",22)=""
^DD(458.7,"B","TOTAL HOURS PAID",10)=""
^DD(458.7,"B","TOTAL HOURS WORKED",9)=""
^DD(458.7,"B","WITHOUT PAY HOURS",12)=""
^DD(458.7,"GL",0,1,.01)=""
^DD(458.7,"GL",0,2,1)=""
^DD(458.7,"GL",0,3,2)=""
^DD(458.7,"GL",0,4,3)=""
^DD(458.7,"GL",0,6,5)=""
^DD(458.7,"GL",0,7,6)=""
^DD(458.7,"GL",0,8,7)=""
^DD(458.7,"GL",0,9,8)=""
^DD(458.7,"GL",0,10,9)=""
^DD(458.7,"GL",0,11,10)=""
^DD(458.7,"GL",0,12,11)=""
^DD(458.7,"GL",0,13,12)=""
^DD(458.7,"GL",0,14,13)=""
^DD(458.7,"GL",0,15,14)=""
^DD(458.7,"GL",0,16,15)=""
^DD(458.7,"GL",0,17,16)=""
^DD(458.7,"GL",1,1,4)=""
^DD(458.7,"GL",2,1,17)=""
^DD(458.7,"GL",2,2,18)=""
^DD(458.7,"GL",3,1,19)=""
^DD(458.7,"GL",3,2,20)=""
^DD(458.7,"GL",3.1,1,21)=""
^DD(458.7,"GL",4,1,22)=""
^DD(458.7,"GL",4,2,23)=""
^DD(458.7,"GL",4,3,24)=""
^DD(458.7,"GL",4.1,1,25)=""
^DD(458.7,"GL",9,0,200)=""
^DD(458.7,"IX",.01)=""
^DD(458.7,"IX",1)=""
^DD(458.7,"IX",2)=""
^DD(458.7,"RQ",.01)=""
^DD(458.7,"RQ",1)=""
^DD(458.7,"RQ",2)=""
^DD(458.7,"RQ",5)=""
^DD(458.7,"SB",458.701,200)=""
^DD(458.701,0)="PAY PERIOD SUB-FIELD^^3^4"
^DD(458.701,0,"DT")="3050124"
^DD(458.701,0,"IX","B",458.701,.01)=""
^DD(458.701,0,"NM","PAY PERIOD")=""
^DD(458.701,0,"UP")="458.7"
^DD(458.701,.01,0)="PAY PERIOD^MF^^0;1^K:$L(X)>5!($L(X)<5) X"
^DD(458.701,.01,1,0)="^.1"
^DD(458.701,.01,1,1,0)="458.701^B"
^DD(458.701,.01,1,1,1)="S ^PRST(458.7,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(458.701,.01,1,1,2)="K ^PRST(458.7,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(458.701,.01,3)="Answer must be 5 characters in length."
^DD(458.701,.01,21,0)="^^1^1^3050124^"
^DD(458.701,.01,21,1,0)="A Pay Period covered by the Part Time Physician's memorandum."
^DD(458.701,.01,"DT")="3050124"
^DD(458.701,1,0)="REG HOURS^NJ6,2^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.701,1,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(458.701,1,21,0)="^^2^2^3050124^"
^DD(458.701,1,21,1,0)="The regular hours credited to the part-time physician's memorandum during"
^DD(458.701,1,21,2,0)="this Pay Period."
^DD(458.701,1,"DT")="3050124"
^DD(458.701,2,0)="NP HOURS^NJ6,2^^0;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.701,2,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(458.701,2,21,0)="^^2^2^3050124^"
^DD(458.701,2,21,1,0)="The Non Pay hours posted on the part-time physician's time card during"
^DD(458.701,2,21,2,0)="this Pay Period."
^DD(458.701,2,"DT")="3050124"
^DD(458.701,3,0)="WP HOURS^NJ6,2^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(458.701,3,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(458.701,3,21,0)="^^2^2^3050124^"
^DD(458.701,3,21,1,0)="The Without Pay hours posted on the part-time physician's time card during"
^DD(458.701,3,21,2,0)="this Pay Period."
^DD(458.701,3,"DT")="3050124"
^DD(458.701,"B","NP HOURS",2)=""
^DD(458.701,"B","PAY PERIOD",.01)=""
^DD(458.701,"B","REG HOURS",1)=""
^DD(458.701,"B","WP HOURS",3)=""
^DD(458.701,"GL",0,1,.01)=""
^DD(458.701,"GL",0,2,1)=""
^DD(458.701,"GL",0,3,2)=""
^DD(458.701,"GL",0,4,3)=""
^DD(458.701,"IX",.01)=""
^DD(458.8,0)="FIELD^^1.1^5"
^DD(458.8,0,"DDA")="N"
^DD(458.8,0,"DT")="3061205"
^DD(458.8,0,"ID",1)="W:$D(^(3)) ""   "",$P(^(3),U,1)"
^DD(458.8,0,"IX","B",458.8,.01)=""
^DD(458.8,0,"IX","C",458.8,1)=""
^DD(458.8,0,"NM","RECESS TRACKING")=""
^DD(458.8,0,"VR")="4.0"
^DD(458.8,0,"VRPK")="PRS"
^DD(458.8,.01,0)="NURSE^RP450'^PRSPC(^0;1^Q"
^DD(458.8,.01,1,0)="^.1"
^DD(458.8,.01,1,1,0)="458.8^B"
^DD(458.8,.01,1,1,1)="S ^PRST(458.8,""B"",$E(X,1,30),DA)="""""
^DD(458.8,.01,1,1,2)="K ^PRST(458.8,""B"",$E(X,1,30),DA)"
^DD(458.8,.01,3)="Select Nurses on 9-month AWS"
^DD(458.8,.01,"DT")="3061114"
^DD(458.8,1,0)="FISCAL YEAR^RF^^3;1^K:$L(X)>4!($L(X)<4)!'(X?4.N) X"
^DD(458.8,1,1,0)="^.1"
^DD(458.8,1,1,1,0)="458.8^C"
^DD(458.8,1,1,1,1)="S ^PRST(458.8,""C"",$E(X,1,30),DA)="""""
^DD(458.8,1,1,1,2)="K ^PRST(458.8,""C"",$E(X,1,30),DA)"
^DD(458.8,1,1,1,"%D",0)="^^1^1^3061214^"
^DD(458.8,1,1,1,"%D",1,0)="whole file cross reference by fiscal year."
^DD(458.8,1,1,1,"DT")="3061214"
^DD(458.8,1,3)="Answer must be 4 characters in length."
^DD(458.8,1,21,0)="^.001^26^26^3061114^^^"
^DD(458.8,1,21,1,0)="This is the fiscal year during which the 9-month AWS is effective."
^DD(458.8,1,21,2,0)="The fiscal year for 2006 (FY06, sometimes written FY05-06) is from"
^DD(458.8,1,21,3,0)="October 1, 2005 through September 30, 2006.  However, the fiscal year"
^DD(458.8,1,21,4,0)="for purposes of the 9-month AWS will be governed also by complete pay "
^DD(458.8,1,21,5,0)="periods, since the nurses normal hours=80 and duty basis = part-time, "
^DD(458.8,1,21,6,0)="must be in effect for the entire pay period. Thus some 9-month AWS"
^DD(458.8,1,21,7,0)="fiscal years may have 50, 52 or 54 weeks.  The fiscal year is defined"
^DD(458.8,1,21,8,0)="as the 12 months from the first full pay period after October 1 "
^DD(458.8,1,21,9,0)="through the full pay period that contains September 30.  In the"
^DD(458.8,1,21,10,0)="example, September 30, 2007 is the first day of pay period 20 and"
^DD(458.8,1,21,11,0)="thus the entire pay period is included in the weeks for the 9-month"
^DD(458.8,1,21,12,0)="AWS schedule for FY07.  The last pay period--weeks 53 and 54--are"
^DD(458.8,1,21,13,0)="also part of the fiscal year for the AWS since September 30 is in"
^DD(458.8,1,21,14,0)="that pay period."
^DD(458.8,1,21,15,0)="         "
^DD(458.8,1,21,16,0)=" Week   PayPd Sun Mon Tue Wed Thu Fri Sat"
^DD(458.8,1,21,17,0)="        =============Oct 2006============"
^DD(458.8,1,21,18,0)="  1     06-20   1   2   3   4   5   6   7"
^DD(458.8,1,21,19,0)="  2             8   9  10  11  12  13  14"
^DD(458.8,1,21,20,0)="  3     06-21  15  16  17  18  19  20  21"
^DD(458.8,1,21,21,0)="        ..."
^DD(458.8,1,21,22,0)=" 51     07-19  16  17  18  19  20  21  22"
^DD(458.8,1,21,23,0)=" 52            23  24  25  26  27  28  29"
^DD(458.8,1,21,24,0)=" 53     07-20  30   1   2   3   4   5   6"
^DD(458.8,1,21,25,0)="        =============Oct 2007============"
^DD(458.8,1,21,26,0)=" 54             7   8   9  10  11  12  13"
^DD(458.8,1,"DT")="3061214"
^DD(458.8,1.1,0)="AWS START DATE^D^^3;2^S %DT=""EX"" D ^%DT S X=Y K:3061001>X X"
^DD(458.8,1.1,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 2006"
^DD(458.8,1.1,"DT")="3061019"
^DD(458.8,2,0)="RECESS WEEKS^458.82^^1;0"
^DD(458.8,2,21,0)="^^2^2^3061025^"
^DD(458.8,2,21,1,0)="This multiple contains each recess week and the hours associated with "
^DD(458.8,2,21,2,0)="that week."
^DD(458.8,3,0)="ENTER/EDIT DATE/TIME^458.83D^^2;0"
^DD(458.8,"B","AWS START DATE",1.1)=""
^DD(458.8,"B","ENTER/EDIT DATE/TIME",3)=""
^DD(458.8,"B","FISCAL YEAR",1)=""
^DD(458.8,"B","NURSE",.01)=""
^DD(458.8,"B","RECESS WEEKS",2)=""
^DD(458.8,"GL",0,1,.01)=""
^DD(458.8,"GL",1,0,2)=""
^DD(458.8,"GL",2,0,3)=""
^DD(458.8,"GL",3,1,1)=""
^DD(458.8,"GL",3,2,1.1)=""
^DD(458.8,"IX",.01)=""
^DD(458.8,"IX",1)=""
^DD(458.8,"RQ",.01)=""
^DD(458.8,"RQ",1)=""
^DD(458.8,"SB",458.82,2)=""
^DD(458.8,"SB",458.83,3)=""
^DD(458.82,0)="RECESS WEEKS SUB-FIELD^^3^4"
^DD(458.82,0,"DT")="3061030"
^DD(458.82,0,"IX","B",458.82,.01)=""
^DD(458.82,0,"NM","RECESS WEEKS")=""
^DD(458.82,0,"UP")="458.8"
^DD(458.82,.01,0)="RECESS WEEKS^NJ2,0^^0;1^K:+X'=X!(X>54)!(X<1)!(X?.E1"".""1.N) X"
^DD(458.82,.01,1,0)="^.1"
^DD(458.82,.01,1,1,0)="458.82^B"
^DD(458.82,.01,1,1,1)="S ^PRST(458.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(458.82,.01,1,1,2)="K ^PRST(458.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(458.82,.01,3)="Type a number between 1 and 54, 0 Decimal Digits"
^DD(458.82,.01,"DT")="3061018"
^DD(458.82,1,0)="HOURS^NJ2,0^^0;2^K:+X'=X!(X>72)!(X<0)!(X?.E1"".""1.N) X"
^DD(458.82,1,3)="Type a number between 0 and 72, 0 Decimal Digits"
^DD(458.82,1,"DT")="3061018"
^DD(458.82,2,0)="DAY 1^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(458.82,2,3)="(No range limit on date)"
^DD(458.82,2,"DT")="3061026"
^DD(458.82,3,0)="FULL WEEK COVERED?^S^0:NO;1:YES;^0;4^Q"
^DD(458.82,3,3)="Answer yes if the entire scheduled week is covered by recess."
^DD(458.82,3,"DT")="3061030"
^DD(458.82,"B","DAY 1",2)=""
^DD(458.82,"B","FULL WEEK COVERED?",3)=""
^DD(458.82,"B","HOURS",1)=""
^DD(458.82,"B","RECESS WEEKS",.01)=""
^DD(458.82,"GL",0,1,.01)=""
^DD(458.82,"GL",0,2,1)=""
^DD(458.82,"GL",0,3,2)=""
^DD(458.82,"GL",0,4,3)=""
^DD(458.82,"IX",.01)=""
^DD(458.83,0)="ENTER/EDIT DATE/TIME SUB-FIELD^^1^2"
^DD(458.83,0,"DT")="3061205"
^DD(458.83,0,"IX","B",458.83,.01)=""
^DD(458.83,0,"NM","ENTER/EDIT DATE/TIME")=""
^DD(458.83,0,"UP")="458.8"
^DD(458.83,.01,0)="ENTER/EDIT DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:3061001>X X"
^DD(458.83,.01,1,0)="^.1"
^DD(458.83,.01,1,1,0)="458.83^B"
^DD(458.83,.01,1,1,1)="S ^PRST(458.8,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(458.83,.01,1,1,2)="K ^PRST(458.8,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(458.83,.01,3)="TYPE A DATE NOT EARLIER THAN OCT 01, 2006"
^DD(458.83,.01,"DT")="3061019"
^DD(458.83,1,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(458.83,1,3)="Enter user who entered or edited the record."
^DD(458.83,1,"DT")="3061205"
^DD(458.83,"B","ENTER/EDIT DATE/TIME",.01)=""
^DD(458.83,"B","USER",1)=""
^DD(458.83,"GL",0,1,.01)=""
^DD(458.83,"GL",0,2,1)=""
^DD(458.83,"IX",.01)=""
^DD(458.83,"RQ",1)=""
^DD(459,0)="FIELD^^2^3"
^DD(459,0,"DDA")="N"
^DD(459,0,"DT")="2950509"
^DD(459,0,"IX","AB",459,.01)=""
^DD(459,0,"IX","AC",459,2)=""
^DD(459,0,"IX","B",459,.01)=""
^DD(459,0,"NM","PAID PAYRUN DATA")=""
^DD(459,0,"VR")="4.0"
^DD(459,.01,0)="PAY PERIOD^RF^^0;1^K:$L(X)>5!($L(X)<5) X"
^DD(459,.01,1,0)="^.1"
^DD(459,.01,1,1,0)="459^B"
^DD(459,.01,1,1,1)="S ^PRST(459,""B"",$E(X,1,30),DA)="""""
^DD(459,.01,1,1,2)="K ^PRST(459,""B"",$E(X,1,30),DA)"
^DD(459,.01,1,2,0)="459^AB^MUMPS"
^DD(459,.01,1,2,1)="S ^PRST(459,""AB"",$$IC^PRSAPPU($P(X,""-""),4,10,)_""-""_$P(X,""-"",2),DA)="""""
^DD(459,.01,1,2,2)="K ^PRST(459,""AB"",$$IC^PRSAPPU($P(X,""-""),4,10,)_""-""_$P(X,""-"",2),DA)"
^DD(459,.01,1,2,"%D",0)="^^15^15^2980206^^^"
^DD(459,.01,1,2,"%D",1,0)="  This cross reference contains the 4 digit year associated with"
^DD(459,.01,1,2,"%D",2,0)="the .01 field's 2 digit year & pay period #.  The cross"
^DD(459,.01,1,2,"%D",3,0)="reference allows chronological sorting accross centuries.  This"
^DD(459,.01,1,2,"%D",4,0)="is in contrast to the ""B"" x-ref which contains a 2 digit year"
^DD(459,.01,1,2,"%D",5,0)="& does not sort chronologically accross new centuries. "
^DD(459,.01,1,2,"%D",6,0)=""
^DD(459,.01,1,2,"%D",7,0)="  The function call IC^PRSAPPU() infers a four digit year from"
^DD(459,.01,1,2,"%D",8,0)="the 2 digit year of the .01 field.  The inference is based upon"
^DD(459,.01,1,2,"%D",9,0)="the parameters passed to the function.  Namely, a future pivot"
^DD(459,.01,1,2,"%D",10,0)="year (parameter #3 - # of years from base date) is used to"
^DD(459,.01,1,2,"%D",11,0)="determine the end of the 100 year range that are valid for"
^DD(459,.01,1,2,"%D",12,0)="selection of the matching 4 digit year.  The number of years in "
^DD(459,.01,1,2,"%D",13,0)="parameter 4 are added to the base date (parameter 4 - default of today) "
^DD(459,.01,1,2,"%D",14,0)="to determine the end of this range.  Parameter #2 is the format "
^DD(459,.01,1,2,"%D",15,0)="of the year returned (e.g. 4 returns a 4 digit year)."
^DD(459,.01,1,2,"DT")="2980206"
^DD(459,.01,3)="Answer must be 5 characters in length."
^DD(459,.01,21,0)="^^2^2^2971229^^^^"
^DD(459,.01,21,1,0)="This field contains the year-pay period in the form of YY-PP"
^DD(459,.01,21,2,0)="where YY represents the year and PP represents the pay period."
^DD(459,.01,"DT")="2980206"
^DD(459,1,0)="EMPLOYEE^459.01IP^^P;0"
^DD(459,1,21,0)="^^2^2^2950509^^^^"
^DD(459,1,21,1,0)="This subfile contains all the accounting and some master record data on"
^DD(459,1,21,2,0)="an employee for a particular pay period."
^DD(459,2,0)="PAY DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(459,2,1,0)="^.1"
^DD(459,2,1,1,0)="459^AC"
^DD(459,2,1,1,1)="S ^PRST(459,""AC"",$E(X,1,30),DA)="""""
^DD(459,2,1,1,2)="K ^PRST(459,""AC"",$E(X,1,30),DA)"
^DD(459,2,1,1,"DT")="2950207"
^DD(459,2,21,0)="^^1^1^2950719^"
^DD(459,2,21,1,0)="This is the official pay date for the pay period."
^DD(459,2,"DT")="2950207"
^DD(459,"B","EMPLOYEE",1)=""
^DD(459,"B","PAY DATE",2)=""
^DD(459,"B","PAY PERIOD",.01)=""
^DD(459,"GL",0,1,.01)=""
^DD(459,"GL",0,2,2)=""
^DD(459,"GL","P",0,1)=""
^DD(459,"IX",.01)=""
^DD(459,"IX",2)=""
^DD(459,"RQ",.01)=""
^DD(459,"SB",459.01,1)=""
^DD(459.01,0)="EMPLOYEE SUB-FIELD^^182^184"
^DD(459.01,0,"DT")="2950509"
^DD(459.01,0,"IX","B",459.01,.01)=""
^DD(459.01,0,"NM","EMPLOYEE")=""
^DD(459.01,0,"UP")="459"
^DD(459.01,.01,0)="NAME^MP450'X^PRSPC(^0;1^I $D(X) S DINUM=X"
^DD(459.01,.01,1,0)="^.1"
^DD(459.01,.01,1,1,0)="459.01^B"
^DD(459.01,.01,1,1,1)="S ^PRST(459,DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(459.01,.01,1,1,2)="K ^PRST(459,DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(459.01,.01,21,0)="^^2^2^2930914^^^^"
^DD(459.01,.01,21,1,0)="This field contains the PAID EMPLOYEE (#450) file internal entry number"
^DD(459.01,.01,21,2,0)="for this employee."
^DD(459.01,.01,"DT")="2911227"
^DD(459.01,1,0)="SSN^FO^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<9) X"
^DD(459.01,1,1,0)="^.1^^0"
^DD(459.01,1,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(459.01,1,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(459.01,1,3)="Answer must be 9 characters in length."
^DD(459.01,1,21,0)="^^3^3^2911106^^^^"
^DD(459.01,1,21,1,0)="The number used for identifcation and control purposes to refer to"
^DD(459.01,1,21,2,0)="an employee. If an employee does not have a valid SSN, a temporary"
^DD(459.01,1,21,3,0)="number is assigned."
^DD(459.01,1,"DT")="2930316"
^DD(459.01,2,0)="PAY PLAN^FO^^0;3^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,2,2)="S Y(0)=Y S SUB454=""PP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(459.01,2,2.1)="S SUB454=""PP"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(459.01,2,3)="Answer must be 1 character in length."
^DD(459.01,2,21,0)="^^2^2^2930416^"
^DD(459.01,2,21,1,0)="Code identifies the pay system under which the employee's compensation is"
^DD(459.01,2,21,2,0)="determined."
^DD(459.01,2,"DT")="2930930"
^DD(459.01,3,0)="GRADE^F^^0;4^K:$L(X)>2!($L(X)<1) X"
^DD(459.01,3,3)="Answer must be 1-2 characters in length."
^DD(459.01,3,21,0)="^^2^2^2911107^"
^DD(459.01,3,21,1,0)="Code identifies a specific grade in a pay plan system. Ungraded positions"
^DD(459.01,3,21,2,0)="are coded 00. An employee's base pay range is determined by this code."
^DD(459.01,3,"DT")="2910916"
^DD(459.01,4,0)="STEP^F^^0;5^K:$L(X)>2!($L(X)<1) X"
^DD(459.01,4,3)="Answer must be 1-2 characters in length."
^DD(459.01,4,21,0)="^^2^2^2911107^^"
^DD(459.01,4,21,1,0)="Code identifies one of the incremental rates of basic pay authorized"
^DD(459.01,4,21,2,0)="under a pay plan for a specific grade or level of an employee's position."
^DD(459.01,4,"DT")="2910916"
^DD(459.01,5,0)="DUTY BASIS^FO^^0;6^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,5,2)="S Y(0)=Y S SUB454=""DB"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(459.01,5,2.1)="S SUB454=""DB"" D:'$D(DIS(0)) OT^PRSDUTIL K SUB454"
^DD(459.01,5,3)="Answer must be 1 character in length."
^DD(459.01,5,21,0)="^^3^3^2941212^^^^"
^DD(459.01,5,21,1,0)="Code identifies the time basis that an employee is scheduled to work."
^DD(459.01,5,21,2,0)="An employee may have a full-time, part-time or intermittent basis work"
^DD(459.01,5,21,3,0)="schedule."
^DD(459.01,5,"DT")="2930930"
^DD(459.01,6,0)="8B NORMAL HOURS^F^^0;7^K:$L(X)>3!($L(X)<1) X"
^DD(459.01,6,3)="Answer must be 1-3 characters in length."
^DD(459.01,6,21,0)="^^2^2^2911107^^^"
^DD(459.01,6,21,1,0)="The number of hours an employee is hired to work each pay period. Hours"
^DD(459.01,6,21,2,0)="are established or changed by an official personnel action."
^DD(459.01,6,"DT")="2910924"
^DD(459.01,7,0)="COST CENTER^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4) X"
^DD(459.01,7,1,0)="^.1^^0"
^DD(459.01,7,3)="Answer must be 4 characters in length."
^DD(459.01,7,21,0)="^^2^2^2911107^^^^"
^DD(459.01,7,21,1,0)="Identifies the Cost Center for fund appropriation accounting."
^DD(459.01,7,21,2,0)=" "
^DD(459.01,7,"DT")="2910926"
^DD(459.01,8,0)="SUBACCT CODE^F^^0;9^K:$L(X)>2!($L(X)<2) X"
^DD(459.01,8,3)="Answer must be 2 characters in length."
^DD(459.01,8,21,0)="^^3^3^2911121^^"
^DD(459.01,8,21,1,0)="Identifies a type of cost expenditure such as one of the personal"
^DD(459.01,8,21,2,0)="service codes, one of the travel and transportation codes, etc., used"
^DD(459.01,8,21,3,0)="for cost accounting purposes."
^DD(459.01,8,"DT")="2930309"
^DD(459.01,9,0)="FUND CONTROL POINT^F^^0;10^K:$L(X)>3!($L(X)<3) X"
^DD(459.01,9,3)="Answer must be 3 characters in length."
^DD(459.01,9,21,0)="^^2^2^2911107^^"
^DD(459.01,9,21,1,0)="A three digit code used in the analysis and control of salary costs."
^DD(459.01,9,21,2,0)="Code is computer generated, but may be changed by station input."
^DD(459.01,9,"DT")="2910916"
^DD(459.01,10,0)="FTE EQUIVALENT^F^^0;11^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,10,3)="Answer must be 1 character in length."
^DD(459.01,10,21,0)="^^4^4^2911107^"
^DD(459.01,10,21,1,0)="Code represents a numeric factor that is expressed as a decimal. The"
^DD(459.01,10,21,2,0)="decimal is applied to the total number of hours actually worked to"
^DD(459.01,10,21,3,0)="derive the equivalent number of employees as if each were working"
^DD(459.01,10,21,4,0)="full-time."
^DD(459.01,10,"DT")="2910916"
^DD(459.01,11,0)="NORMAL HOURS^F^^0;12^K:$L(X)>3!($L(X)<1) X"
^DD(459.01,11,3)="Answer must be 1-3 characters in length."
^DD(459.01,11,21,0)="^^4^4^2911120^^^"
^DD(459.01,11,21,1,0)="This field contains the number of normal hours an employee is scheduled"
^DD(459.01,11,21,2,0)="to work in a pay period. For full-time physcians, dentists, career medical"
^DD(459.01,11,21,3,0)="and dental staff (subaccounts 71,81 or pay plan Y) full-time hour"
^DD(459.01,11,21,4,0)="equivalents are calculated."
^DD(459.01,11,"DT")="2910924"
^DD(459.01,12,0)="T & L UNIT^F^^0;13^K:$L(X)>3!($L(X)<3) X"
^DD(459.01,12,3)="Answer must be 3 characters in length."
^DD(459.01,12,21,0)="^^2^2^2930519^^^^"
^DD(459.01,12,21,1,0)="The number identifies a specific group of employees for time and leave"
^DD(459.01,12,21,2,0)="tracking purposes."
^DD(459.01,12,"DT")="2930519"
^DD(459.01,13,0)="SALARY^NJ10,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(459.01,13,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(459.01,13,21,0)="^^3^3^2930618^^"
^DD(459.01,13,21,1,0)="Rate of compensation which is payable to an employee.  The rate is used in"
^DD(459.01,13,21,2,0)="computing salary payments.  The rate does not include night differential"
^DD(459.01,13,21,3,0)="or other premium pay."
^DD(459.01,13,"DT")="2930617"
^DD(459.01,20,0)="FEDERAL TAX AMT WITHHELD CPPD^NJ8,2^^1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,20,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,20,21,0)="^^2^2^2911120^^"
^DD(459.01,20,21,1,0)="The amount of federal income tax withheld from an employee's earnings"
^DD(459.01,20,21,2,0)="this pay period."
^DD(459.01,20,"DT")="2910822"
^DD(459.01,21,0)="STATE TAX-1 AMT WITHHELD CPPD^NJ7,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(459.01,21,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,21,21,0)="^^3^3^2911120^"
^DD(459.01,21,21,1,0)="The amount of primary state income tax withheld from an employee's gross"
^DD(459.01,21,21,2,0)="earnings in the current pay period. This amount may include any additional"
^DD(459.01,21,21,3,0)="primary state income tax withholding that is authorized by the employee."
^DD(459.01,21,"DT")="2910822"
^DD(459.01,22,0)="STATE TAX-2 AMT WITHHELD CPPD^NJ6,2^^1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,22,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,22,21,0)="^^4^4^2911120^"
^DD(459.01,22,21,1,0)="The amount of secondary state income tax withheld from an employee's"
^DD(459.01,22,21,2,0)="gross earnings in the last pay period processed. This applies when an"
^DD(459.01,22,21,3,0)="employee works in one state and resides in another, and the two states"
^DD(459.01,22,21,4,0)="have not agreed to reciprocity."
^DD(459.01,22,"DT")="2910822"
^DD(459.01,23,0)="CITY TAX-1 AMT WITHHELD CPPD^NJ7,2^^1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(459.01,23,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,23,21,0)="^^2^2^2911120^"
^DD(459.01,23,21,1,0)="The amount of primary city income tax withheld from an employee's gross"
^DD(459.01,23,21,2,0)="earnings in the last pay period processed."
^DD(459.01,23,"DT")="2910822"
^DD(459.01,24,0)="CITY TAX-2 AMT WITHHELD CPPD^NJ8,2^^1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,24,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,24,21,0)="^^2^2^2911120^"
^DD(459.01,24,21,1,0)="The amount of secondary city income tax withheld from an employee's"
^DD(459.01,24,21,2,0)="gross earnings in the current pay period."
^DD(459.01,24,"DT")="2910822"
^DD(459.01,25,0)="MEDICARE AMT WITHHELD CPPD^NJ8,2^^1;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,25,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,25,21,0)="^^2^2^2911120^"
^DD(459.01,25,21,1,0)="The amount of tax for Medicare withheld from an employee's gross earnings"
^DD(459.01,25,21,2,0)="in the last pay period processed."
^DD(459.01,25,"DT")="2910822"
^DD(459.01,26,0)="MEDICARE GROSS PAY CPPD^NJ8,2^^1;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,26,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,26,21,0)="^^2^2^2911120^"
^DD(459.01,26,21,1,0)="The amount of an employee's gross earnings that are subject to Medicare"
^DD(459.01,26,21,2,0)="tax withholding in the last pay period processed."
^DD(459.01,26,"DT")="2910822"
^DD(459.01,27,0)="OASDI TAX AMT WITHHELD CPPD^NJ8,2^^1;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,27,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,27,21,0)="^^3^3^2911121^^^"
^DD(459.01,27,21,1,0)="The amount withheld from an employee not covered by the Civil Service"
^DD(459.01,27,21,2,0)="Retirement System for a portion of the Old Age, Survivors and Disability"
^DD(459.01,27,21,3,0)="Insurance tax in the last pay period processed."
^DD(459.01,27,"DT")="2910822"
^DD(459.01,28,0)="OASDI TAX GROSS PAY CPPD^NJ8,2^^1;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,28,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,28,21,0)="^^3^3^2911121^^"
^DD(459.01,28,21,1,0)="The amount of an employee's gross earnings that were subject to Old"
^DD(459.01,28,21,2,0)="Age, Survivors and Disability Insurance tax for the last pay period"
^DD(459.01,28,21,3,0)="processed."
^DD(459.01,28,"DT")="2910822"
^DD(459.01,29,0)="OASDI TAX VA SHARE CPPD^NJ10,2^^1;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(459.01,29,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(459.01,29,21,0)="^^2^2^2911121^^^"
^DD(459.01,29,21,1,0)="The government's contribution to the Old Age, Survivors and Disability"
^DD(459.01,29,21,2,0)="Insurance for the last pay period processed."
^DD(459.01,29,"DT")="2910822"
^DD(459.01,30,0)="FEGLI ADDNL DEDUCTION CPPD^NJ6,2^^1;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,30,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,30,21,0)="^^2^2^2911120^"
^DD(459.01,30,21,1,0)="The actual amount of additional optional life insurance premium"
^DD(459.01,30,21,2,0)="deducted in the last pay period processed."
^DD(459.01,30,"DT")="2910822"
^DD(459.01,31,0)="FEGLI FAMILY DEDUCTION CPPD^NJ6,2^^1;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,31,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,31,21,0)="^^2^2^2911120^"
^DD(459.01,31,21,1,0)="The amount of premium for optional family life insurance deducted from"
^DD(459.01,31,21,2,0)="an employee's gross earnings in the current pay period processed."
^DD(459.01,31,"DT")="2910822"
^DD(459.01,32,0)="FEGLI AGE CODE CPPD^NJ1,0^^1;13^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(459.01,32,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(459.01,32,21,0)="^^5^5^2911121^^"
^DD(459.01,32,21,1,0)="Code identifies an employee's age group bracket which then determines"
^DD(459.01,32,21,2,0)="the Federal Employee Group LIfe Insurance (FEGLI) premium withholding"
^DD(459.01,32,21,3,0)="rate for a specific type of optional FEGLI coverage. Also used to report"
^DD(459.01,32,21,4,0)="optional life insurance deductions, in the current pay period, to the"
^DD(459.01,32,21,5,0)="Office of Personnel Management."
^DD(459.01,32,"DT")="2911122"
^DD(459.01,33,0)="FEGLI BASIC DEDUCTION CPPD^NJ6,2^^1;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,33,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,33,21,0)="^^3^3^2911120^"
^DD(459.01,33,21,1,0)="The amount deducted from an employee's earnings in the current pay"
^DD(459.01,33,21,2,0)="period for basic life insurance premiums. This amount is the employee's"
^DD(459.01,33,21,3,0)="share of the premium."
^DD(459.01,33,"DT")="2910822"
^DD(459.01,34,0)="FEGLI VA SHARE CPPD^NJ6,2^^1;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,34,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,34,21,0)="^^3^3^2911120^"
^DD(459.01,34,21,1,0)="The government portion of basic life insurance paid in the current pay"
^DD(459.01,34,21,2,0)="period. The employee pays two-thirds of the premium and the government"
^DD(459.01,34,21,3,0)="pays one-third."
^DD(459.01,34,"DT")="2910822"
^DD(459.01,35,0)="FEGLI STANDARD DEDUCTION CPPD^NJ6,2^^1;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,35,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,35,21,0)="^^6^6^2911121^^"
^DD(459.01,35,21,1,0)="The amount deducted from an employee's earnings in the current pay"
^DD(459.01,35,21,2,0)="period for the standard optional life insurance premium. This amount"
^DD(459.01,35,21,3,0)="is in addition to the basic premium and only applies to the employee"
^DD(459.01,35,21,4,0)="who has selected standard optional coverage under the Federal Employee"
^DD(459.01,35,21,5,0)="Group Life Insurance plan. There is no government contribution for this"
^DD(459.01,35,21,6,0)="option."
^DD(459.01,35,"DT")="2910822"
^DD(459.01,36,0)="HEALTH BENEFITS DEDUCTION CPPD^NJ8,2^^1;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,36,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,36,21,0)="^^2^2^2911120^"
^DD(459.01,36,21,1,0)="The amount of health insurance deducted from an employee's gross earnings"
^DD(459.01,36,21,2,0)="in the last pay period processed."
^DD(459.01,36,"DT")="2930309"
^DD(459.01,37,0)="HEALTH BENEFITS VA SHARE CPPD^NJ8,2^^1;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,37,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,37,21,0)="^^2^2^2911120^"
^DD(459.01,37,21,1,0)="The government portion of health insurance premium paid in the last pay"
^DD(459.01,37,21,2,0)="period processed."
^DD(459.01,37,"DT")="2930309"
^DD(459.01,38,0)="CSRS REEMP ANNUITANT DED CPPD^NJ8,2^^1;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,38,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,38,21,0)="^^2^2^2911121^^^"
^DD(459.01,38,21,1,0)="The actual amount collected this pay period for Civil Service Retirement"
^DD(459.01,38,21,2,0)="System from a reemployed annuitant."
^DD(459.01,38,"DT")="2930309"
^DD(459.01,39,0)="RETIREMENT DED CPPD^NJ8,2^^1;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,39,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,39,21,0)="^^2^2^2930930^^"
^DD(459.01,39,21,1,0)="The amount deducted from an employee's earnings for retirement in the last"
^DD(459.01,39,21,2,0)="pay period processed."
^DD(459.01,39,"DT")="2930309"
^DD(459.01,40,0)="RETIREMENT VA SHARE CPPD^NJ8,2^^1;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,40,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,40,21,0)="^^2^2^2930930^^"
^DD(459.01,40,21,1,0)="The amount the government contributed for retirement in the last pay period"
^DD(459.01,40,21,2,0)="processed."
^DD(459.01,40,"DT")="2930309"
^DD(459.01,41,0)="GARAGE DEDUCTION CPPD^NJ6,2^^1;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,41,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,41,21,0)="^^2^2^2911120^"
^DD(459.01,41,21,1,0)="The amount of garage rental fee deducted from an employee's earnings"
^DD(459.01,41,21,2,0)="in the last pay period processed."
^DD(459.01,41,"DT")="2930309"
^DD(459.01,42,0)="PARKING DEDUCTION CPPD^NJ6,2^^1;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,42,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,42,21,0)="^^3^3^2911120^"
^DD(459.01,42,21,1,0)="The amount deducted from an employee's pay for parking furnished by"
^DD(459.01,42,21,2,0)="the station. This is the actual amount deducted in the last pay period"
^DD(459.01,42,21,3,0)="processed."
^DD(459.01,42,"DT")="2930309"
^DD(459.01,43,0)="QUARTERS NON-HSKP DED CPPD^NJ6,2^^1;24^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,43,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,43,21,0)="^^2^2^2911120^"
^DD(459.01,43,21,1,0)="The amount deducted from an employee's earnings for non-housekeeping"
^DD(459.01,43,21,2,0)="quarters in the last pay period processed."
^DD(459.01,43,"DT")="2930309"
^DD(459.01,44,0)="QUARTERS DEDUCTION CPPD^NJ6,2^^1;25^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,44,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,44,21,0)="^^2^2^2911120^"
^DD(459.01,44,21,1,0)="The amount deducted from an employee's earnings for housekeeping"
^DD(459.01,44,21,2,0)="quarters in the last pay period processed."
^DD(459.01,44,"DT")="2930309"
^DD(459.01,45,0)="SUBSISTANCE DEDUCTION CPPD^NJ6,2^^1;26^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,45,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,45,21,0)="^^2^2^2911120^"
^DD(459.01,45,21,1,0)="The amount authorized and collected this pay period from an employee's"
^DD(459.01,45,21,2,0)="earnings for subsistance (meals) furnished by the station."
^DD(459.01,45,"DT")="2930309"
^DD(459.01,46,0)="ACSB ACS AMT CPPD^NJ8,2^^1;27^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,46,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,46,21,0)="^^2^2^2911120^"
^DD(459.01,46,21,1,0)="The amount withheld from an employee's earnings for alimony or child"
^DD(459.01,46,21,2,0)="support in the current pay period processed."
^DD(459.01,46,"DT")="2910822"
^DD(459.01,47,0)="ACSB BANKRUPTCY AMT CPPD^NJ8,2^^1;28^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,47,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,47,21,0)="^^2^2^2911120^"
^DD(459.01,47,21,1,0)="The amount withheld from an employee's earnings for bankruptcy payment"
^DD(459.01,47,21,2,0)="in the current pay period processed."
^DD(459.01,47,"DT")="2910822"
^DD(459.01,48,0)="MSD DEDUCTION CPPD^NJ8,2^^1;29^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,48,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,48,21,0)="^^3^3^2911120^"
^DD(459.01,48,21,1,0)="The amount of military service deposit deduction authorized by an"
^DD(459.01,48,21,2,0)="employee and deducted from his/her earnings in the current pay period"
^DD(459.01,48,21,3,0)="processed. This is for retirement money on post-1956 military service."
^DD(459.01,48,"DT")="2910822"
^DD(459.01,49,0)="DEBT DEPOSIT ACCT 36X6875 CPPD^NJ8,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,49,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,49,21,0)="^^4^4^2911120^"
^DD(459.01,49,21,1,0)="The amount deducted from an employee's earnings in the last pay period"
^DD(459.01,49,21,2,0)="processed for credit of debt due the U.S. government; deposited to the"
^DD(459.01,49,21,3,0)="station's suspense account 36X6875 to be disbursed to a non-federal"
^DD(459.01,49,21,4,0)="payee. SA36X6875 is for bankruptcy, child support, etc."
^DD(459.01,49,"DT")="2910822"
^DD(459.01,50,0)="DEBT REFUND ACCT 36X6875 CPPD^NJ8,2^^2;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,50,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,50,21,0)="^^5^5^2911121^^"
^DD(459.01,50,21,1,0)="The amount of a payment that was disbursed from the station suspense"
^DD(459.01,50,21,2,0)="account 36X6875, in this pay period or a prior one. The amount is"
^DD(459.01,50,21,3,0)="recorded in the last pay period processed. The payment was paid to an"
^DD(459.01,50,21,4,0)="employee as an out-of-system payment or a cash payment, and may have"
^DD(459.01,50,21,5,0)="occurred after the employee separated."
^DD(459.01,50,"DT")="2910822"
^DD(459.01,51,0)="DEBT DEPOSIT ACCT 36F3875 CPPD^NJ8,2^^2;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,51,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,51,21,0)="^^3^3^2911121^^"
^DD(459.01,51,21,1,0)="The amount deducted from an employee's earnings in the current pay"
^DD(459.01,51,21,2,0)="period for recovery of debt due the U.S. government; deposited to the"
^DD(459.01,51,21,3,0)="station's suspense account 36F3875 for subsequent disbursement or credit."
^DD(459.01,51,"DT")="2910822"
^DD(459.01,52,0)="DEBT REFUND ACCT 36F3875 CPPD^NJ7,2^^2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(459.01,52,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,52,21,0)="^^5^5^2911121^^"
^DD(459.01,52,21,1,0)="The amount of a payment that was disbursed to an employee from the"
^DD(459.01,52,21,2,0)="station suspense account 36F3875, in this pay period or in a prior one."
^DD(459.01,52,21,3,0)="The disbursement is recorded in the current pay period processed. The"
^DD(459.01,52,21,4,0)="payment was paid to the employee as an out-of-system payment, and may"
^DD(459.01,52,21,5,0)="have occurred after the employee separated."
^DD(459.01,52,"DT")="2910905"
^DD(459.01,53,0)="UNION DUES-1 DEDUCTION CPPD^NJ5,2^^2;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99.99)!(X<-99.99) X"
^DD(459.01,53,3)="Type a Dollar Amount between -99.99 and 99.99, 2 Decimal Digits"
^DD(459.01,53,21,0)="^^2^2^2911120^"
^DD(459.01,53,21,1,0)="The actual amount of union dues withheld this pay period for the first"
^DD(459.01,53,21,2,0)="union the employee belongs to."
^DD(459.01,53,"DT")="2910822"
^DD(459.01,54,0)="UNION DUES-2 DEDUCTION CPPD^NJ5,2^^2;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99.99)!(X<-99.99) X"
^DD(459.01,54,3)="Type a Dollar Amount between -99.99 and 99.99, 2 Decimal Digits"
^DD(459.01,54,21,0)="^^2^2^2911120^"
^DD(459.01,54,21,1,0)="The actual amount of union dues withheld this pay period for the second"
^DD(459.01,54,21,2,0)="union the employee belongs to."
^DD(459.01,54,"DT")="2910822"
^DD(459.01,55,0)="CFC DEDUCTION CPPD^NJ6,2^^2;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,55,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,55,21,0)="^^3^3^2911120^"
^DD(459.01,55,21,1,0)="The amount deducted from an employee's earnings as a voluntary"
^DD(459.01,55,21,2,0)="charitable contribution. This is the actual deduction made for the"
^DD(459.01,55,21,3,0)="last pay period processed."
^DD(459.01,55,"DT")="2910822"
^DD(459.01,56,0)="TSP LOAN DED CPPD^NJ8,2^^2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,56,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,56,21,0)="^^2^2^2911120^"
^DD(459.01,56,21,1,0)="The amount withheld from an employee's earnings, at his/her request,"
^DD(459.01,56,21,2,0)="to repay a Thrift Savings Plan loan."
^DD(459.01,56,"DT")="2910822"
^DD(459.01,57,0)="TSP PRIOR TAX YEAR ADJ CODE^F^^2;9^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,57,3)="Answer must be 1 character in length."
^DD(459.01,57,21,0)="^^3^3^2911120^"
^DD(459.01,57,21,1,0)="Code identifies those deductions/adjustments to the Thrift Savings"
^DD(459.01,57,21,2,0)="Plan which are being processed this pay period, but which are applicable"
^DD(459.01,57,21,3,0)="to a prior tax year."
^DD(459.01,57,"DT")="2910822"
^DD(459.01,58,0)="TSP CSF EMP DED CPPD^NJ8,2^^2;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,58,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,58,21,0)="^^2^2^2911120^"
^DD(459.01,58,21,1,0)="The amount deducted from an employee's earnings and contributed to the"
^DD(459.01,58,21,2,0)="Thrift Savings Plan Common Stock Fund in the last pay period processed."
^DD(459.01,58,"DT")="2910822"
^DD(459.01,59,0)="TSP FIF EMP DED CPPD^NJ8,2^^2;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,59,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,59,21,0)="^^2^2^2911120^"
^DD(459.01,59,21,1,0)="The amount deducted from an employee's earnings and contributed to the"
^DD(459.01,59,21,2,0)="Thrift Savings Plan Fixed Income Fund in the last pay period processed."
^DD(459.01,59,"DT")="2910822"
^DD(459.01,60,0)="TSP GSF EMP DED CPPD^NJ8,2^^2;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,60,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,60,21,0)="^^3^3^2911120^"
^DD(459.01,60,21,1,0)="The amount deducted from an employee's earnings and contributed to"
^DD(459.01,60,21,2,0)="the Thrift Savings Plan Government Securities Fund in the last pay"
^DD(459.01,60,21,3,0)="period processed."
^DD(459.01,60,"DT")="2910822"
^DD(459.01,61,0)="TSP CSF GOV BASIC CONTRIB^NJ8,2^^2;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,61,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,61,21,0)="^^3^3^2941212^^^"
^DD(459.01,61,21,1,0)="The dollar amount of the percentage of the agency basic contribution"
^DD(459.01,61,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(459.01,61,21,3,0)="the Common Stock Fund."
^DD(459.01,61,"DT")="2910822"
^DD(459.01,62,0)="TSP FIF GOV BASIC CONTRIB^NJ8,2^^2;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,62,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,62,21,0)="^^3^3^2941212^^"
^DD(459.01,62,21,1,0)="The dollar amount of the percentage of the agency basic contribution"
^DD(459.01,62,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(459.01,62,21,3,0)="the Fixed Income Fund."
^DD(459.01,62,"DT")="2910822"
^DD(459.01,63,0)="TSP GSF GOV BASIC CONTRIB^NJ8,2^^2;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,63,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,63,21,0)="^^3^3^2941212^^"
^DD(459.01,63,21,1,0)="The dollar amount of the percentage of the agency basic contribution"
^DD(459.01,63,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(459.01,63,21,3,0)="the Government Securities Fund."
^DD(459.01,63,"DT")="2910822"
^DD(459.01,64,0)="TSP CSF GOV MATCH CONTRIB^NJ8,2^^2;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,64,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,64,21,0)="^^3^3^2941212^^"
^DD(459.01,64,21,1,0)="The dollar amount of the percentage of the agency matching contribution"
^DD(459.01,64,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(459.01,64,21,3,0)="the Common Stock Fund."
^DD(459.01,64,"DT")="2910822"
^DD(459.01,65,0)="TSP FIF GOV MATCH CONTRIB^NJ8,2^^2;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,65,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,65,21,0)="^^3^3^2941212^^"
^DD(459.01,65,21,1,0)="The dollar amount of the percentage of the agency matching contribution"
^DD(459.01,65,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(459.01,65,21,3,0)="the Fixed Income Fund."
^DD(459.01,65,"DT")="2910822"
^DD(459.01,66,0)="TSP GSF GOV MATCH CONTRIB^NJ8,2^^2;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,66,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,66,21,0)="^^3^3^2941212^^"
^DD(459.01,66,21,1,0)="The dollar amount of the percentage of the agency matching contribution"
^DD(459.01,66,21,2,0)="in the last pay period processed, which the employee has designated for"
^DD(459.01,66,21,3,0)="the Government Securities Fund."
^DD(459.01,66,"DT")="2910822"
^DD(459.01,67,0)="SAVINGS BOND-1 BALANCE^NJ10,2^^2;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(459.01,67,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(459.01,67,21,0)="^^5^5^2911120^"
^DD(459.01,67,21,1,0)="The accumulated amount deducted toward the purchase price of the first"
^DD(459.01,67,21,2,0)="bond, as of the current pay period. Each time the purchase price is"
^DD(459.01,67,21,3,0)="reached, a bond is issued and the balance adjusted. Remaining balances"
^DD(459.01,67,21,4,0)="are incorporated in future bond purchases. The balance is refunded if"
^DD(459.01,67,21,5,0)="the bond is canceled or the employee separates from the agency."
^DD(459.01,67,"DT")="2910822"
^DD(459.01,67.1,0)="SAVINGS BOND-1 TYPE^F^^2;25^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,67.1,3)="Answer must be 1 character in length"
^DD(459.01,67.1,21,0)="^^1^1^3030314^"
^DD(459.01,67.1,21,1,0)="The one character string that identifies the type of the first bond."
^DD(459.01,67.1,"DT")="3030314"
^DD(459.01,68,0)="SAVINGS BOND-2 BALANCE^NJ10,2^^2;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(459.01,68,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(459.01,68,21,0)="^^5^5^2911120^"
^DD(459.01,68,21,1,0)="The accumulated amount deducted toward the purchase price of the second"
^DD(459.01,68,21,2,0)="bond, as of the current pay period. Each time the purchase price is"
^DD(459.01,68,21,3,0)="reached, a bond is issued and the balance adjusted. Remaining balances"
^DD(459.01,68,21,4,0)="are incorporated in future bond purchases. The balance is refunded if"
^DD(459.01,68,21,5,0)="the bond is canceled or the employee separates from the agency."
^DD(459.01,68,"DT")="2910822"
^DD(459.01,68.1,0)="SAVINGS BOND-2 TYPE^F^^2;26^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,68.1,3)="Answer must be 1 character in length"
^DD(459.01,68.1,21,0)="^^1^1^3030314^"
^DD(459.01,68.1,21,1,0)="The one character string that identifies the type of the second bond."
^DD(459.01,68.1,"DT")="3030314"
^DD(459.01,68.2,0)="SAVINGS BOND-3 BALANCE^NJ8,2^^9;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(459.01,68.2,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,68.2,21,0)="^^5^5^3030324^^^"
^DD(459.01,68.2,21,1,0)="The accumulated amount deducted toward the purchase price of the third"
^DD(459.01,68.2,21,2,0)="bond, as of the current pay period. Each time the purchase price is"
^DD(459.01,68.2,21,3,0)="reached, a bond is issued and the balance adjusted. Remaining balances"
^DD(459.01,68.2,21,4,0)="are incorporated in future bond purchases. The balance is refunded if"
^DD(459.01,68.2,21,5,0)="the bond is canceled or the employee separates from the agency."
^DD(459.01,68.2,"DT")="3030324"
^DD(459.01,68.3,0)="SAVINGS BOND-3 TYPE^F^^9;2^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,68.3,3)="Answer must be 1 character in length"
^DD(459.01,68.3,21,0)="^^1^1^3030314^"
^DD(459.01,68.3,21,1,0)="The one character string that identifies the type of the third bond."
^DD(459.01,68.3,"DT")="3030314"
^DD(459.01,68.4,0)="SAVINGS BOND-4 BALANCE^NJ8,2^^9;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(459.01,68.4,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,68.4,21,0)="^^5^5^3030324^^^"
^DD(459.01,68.4,21,1,0)="The accumulated amount deducted toward the purchase price of the fourth"
^DD(459.01,68.4,21,2,0)="bond, as of the current pay period. Each time the purchase price is"
^DD(459.01,68.4,21,3,0)="reached, a bond is issued and the balance adjusted. Remaining balances"
^DD(459.01,68.4,21,4,0)="are incorporated in future bond purchases. The balance is refunded if"
^DD(459.01,68.4,21,5,0)="the bond is canceled or the employee separates from the agency."
^DD(459.01,68.4,"DT")="3030324"
^DD(459.01,68.5,0)="SAVINGS BOND-4 TYPE^F^^9;4^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,68.5,3)="Answer must be 1 character in length"
^DD(459.01,68.5,21,0)="^^1^1^3030314^^"
^DD(459.01,68.5,21,1,0)="The one character string that identifies the type of the fourth bond."
^DD(459.01,68.5,"DT")="3030314"
^DD(459.01,69,0)="SAVINGS BOND DED SUM CPPD^NJ10,2^^2;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(459.01,69,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(459.01,69,21,0)="^^3^3^2911122^^"
^DD(459.01,69,21,1,0)="The total of amounts deducted from an employee's earnings in the current"
^DD(459.01,69,21,2,0)="pay period for purchases of U.S. Savings Bonds. The amount may include"
^DD(459.01,69,21,3,0)="deductions for one or both bonds."
^DD(459.01,69,"DT")="2911122"
^DD(459.01,70,0)="SAVINGS ALLOTMENT-1 AMT CPPD^NJ7,2^^2;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(459.01,70,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,70,21,0)="^^4^4^2911120^"
^DD(459.01,70,21,1,0)="The amount deducted from earnings that an employee has authorized"
^DD(459.01,70,21,2,0)="for deposit to a checking or savings account at a financial"
^DD(459.01,70,21,3,0)="institution in the last pay period processed. This field pertains"
^DD(459.01,70,21,4,0)="to the first savings allotment deduction."
^DD(459.01,70,"DT")="2910822"
^DD(459.01,71,0)="SAVINGS ALLOTMENT-2 AMT CPPD^NJ7,2^^2;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(459.01,71,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,71,21,0)="^^4^4^2911120^"
^DD(459.01,71,21,1,0)="The amount deducted from earnings that an employee has authorized"
^DD(459.01,71,21,2,0)="for deposit to a checking or savings account at a financial"
^DD(459.01,71,21,3,0)="institution in the last pay period processed. This field pertains"
^DD(459.01,71,21,4,0)="to the second savings allotment deduction."
^DD(459.01,71,"DT")="2910822"
^DD(459.01,72,0)="VOLUNTARY ALLOTMENT AMT CPPD^NJ7,0^^2;24^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(459.01,72,3)="Type a Number between -9999999 and 9999999, 0 Decimal Digits"
^DD(459.01,72,21,0)="^^2^2^2911121^^"
^DD(459.01,72,21,1,0)="The actual amount of voluntary allotment withheld in the last pay"
^DD(459.01,72,21,2,0)="period processed. This amount was authorized by the employee."
^DD(459.01,72,"DT")="2910822"
^DD(459.01,73,0)="EARNED INCOME CREDIT AMT CPPD^NJ6,2^^3;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,73,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,73,21,0)="^^4^4^2911120^"
^DD(459.01,73,21,1,0)="The amount of earned income credit advanced to an employee in the last"
^DD(459.01,73,21,2,0)="pay period processed. This is a tax credit against year end federal"
^DD(459.01,73,21,3,0)="income tax liability. An employee qualifies for this credit based on"
^DD(459.01,73,21,4,0)="income level."
^DD(459.01,73,"DT")="2910822"
^DD(459.01,74,0)="SEVERANCE PAY AMT CPPD^NJ8,2^^3;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,74,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,74,21,0)="^^4^4^2911120^"
^DD(459.01,74,21,1,0)="The amount of severance pay for an employee whose separation from"
^DD(459.01,74,21,2,0)="federal employment is due to certain involuntary conditions. This amount"
^DD(459.01,74,21,3,0)="is recorded in the last pay period processed after the employee's"
^DD(459.01,74,21,4,0)="separation."
^DD(459.01,74,"DT")="2911122"
^DD(459.01,75,0)="ANNUAL LEAVE USED CPPD^NJ6,2^^4;1^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,75,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,75,21,0)="^^2^2^2911120^"
^DD(459.01,75,21,1,0)="The number of hours or days used by an employee for annual leave in"
^DD(459.01,75,21,2,0)="the last pay period processed."
^DD(459.01,75,"DT")="2910822"
^DD(459.01,76,0)="TOTAL SICK LEAVE USED CPPD^NJ6,2^^4;2^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,76,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,76,21,0)="^^2^2^2950505^^"
^DD(459.01,76,21,1,0)="The number of hours or days used by an employee for sick leave in the last"
^DD(459.01,76,21,2,0)="pay period processed."
^DD(459.01,76,"DT")="2950505"
^DD(459.01,77,0)="COMPTIME/CREDIT HRS USED CPPD^NJ6,2^^4;3^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,77,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,77,21,0)="^^2^2^2980604^^^^"
^DD(459.01,77,21,1,0)="The amount of compensatory time and or credit hours used for the "
^DD(459.01,77,21,2,0)="last pay period processed. "
^DD(459.01,77,"DT")="2980604"
^DD(459.01,78,0)="COMPTIME/CREDIT HRS BALANCE^NJ6,2^^4;4^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,78,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,78,21,0)="^^2^2^2980604^^"
^DD(459.01,78,21,1,0)="The balance of compensatory time or credit hours an employee has"
^DD(459.01,78,21,2,0)="at the end of the last pay period processed. "
^DD(459.01,78,"DT")="2980604"
^DD(459.01,79,0)="LWOP HOURS/DAYS CPPD^NJ6,2^^4;5^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,79,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,79,21,0)="^^2^2^2911120^^"
^DD(459.01,79,21,1,0)="The accumulated number of hours or days leave without pay was taken"
^DD(459.01,79,21,2,0)="by an employee in the last pay period processed."
^DD(459.01,79,"DT")="2911120"
^DD(459.01,80,0)="NONPAY ANNUAL LEAVE USED CPPD^NJ2,0^^4;6^K:+X'=X!(X>99)!(X<-99)!(X?.E1"".""1N.N) X"
^DD(459.01,80,3)="Type a Number between -99 and 99, 0 Decimal Digits"
^DD(459.01,80,21,0)="^^2^2^2911120^"
^DD(459.01,80,21,1,0)="The number of non-available annual leave days used by an eligible"
^DD(459.01,80,21,2,0)="employee in the last pay period processed."
^DD(459.01,80,"DT")="2911018"
^DD(459.01,80.1,0)="ANNUAL LEAVE USED CPPD (HOURS)^NJ6,2^^4;7^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,80.1,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,80.1,21,0)="^^2^2^2911120^^"
^DD(459.01,80.1,21,1,0)="The amount of annual leave used, converted to hours, for the last pay period"
^DD(459.01,80.1,21,2,0)="processed."
^DD(459.01,80.1,"DT")="2910924"
^DD(459.01,80.2,0)="TOTAL SICK LEAVE HRS USED CPPD^NJ6,2^^4;8^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,80.2,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,80.2,21,0)="^^2^2^2950505^^^"
^DD(459.01,80.2,21,1,0)="The amount of sick leave used, converted to hours, for the last pay period"
^DD(459.01,80.2,21,2,0)="processed."
^DD(459.01,80.2,"DT")="2950505"
^DD(459.01,81,0)="GROSS PAY CPPD^NJ10,2^^5;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999.99)!(X<-9999999.99) X"
^DD(459.01,81,3)="Type a Dollar Amount between -9999999.99 and 9999999.99, 2 Decimal Digits"
^DD(459.01,81,21,0)="^^2^2^2911120^"
^DD(459.01,81,21,1,0)="The amount of gross pay an employee was paid for the last pay period"
^DD(459.01,81,21,2,0)="processed."
^DD(459.01,81,"DT")="2910822"
^DD(459.01,82,0)="NET PAY CPPD^NJ8,2^^5;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,82,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,82,21,0)="^^1^1^2911121^^"
^DD(459.01,82,21,1,0)="The amount of net pay an employee received for the last pay period processed."
^DD(459.01,82,"DT")="2910822"
^DD(459.01,83,0)="NET PAY OUT-OF-SYSTEM AMT CPPD^NJ8,2^^5;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,83,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,83,21,0)="^^3^3^2911120^"
^DD(459.01,83,21,1,0)="The net pay amount of an out-of-system payment that is being recovered"
^DD(459.01,83,21,2,0)="in the affected employee's master record for income tax and wage"
^DD(459.01,83,21,3,0)="reporting purposes."
^DD(459.01,83,"DT")="2910826"
^DD(459.01,84,0)="REEMP ANNUITANT BASE PAY REDUC^NJ7,2^^5;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(459.01,84,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,84,21,0)="2^^2^2^2911121^"
^DD(459.01,84,21,1,0)="The actual amount of money a reemployed annuitant's base pay was"
^DD(459.01,84,21,2,0)="reduced in the last pay period processed."
^DD(459.01,84,"DT")="2930309"
^DD(459.01,85,0)="BASE PAY CPPD^NJ8,2^^5;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,85,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,85,21,0)="^^2^2^2911120^"
^DD(459.01,85,21,1,0)="The amount of base pay an employee was paid for the last pay period"
^DD(459.01,85,21,2,0)="processed."
^DD(459.01,85,"DT")="2910826"
^DD(459.01,86,0)="REG HOURS AT OT RATE^NJ6,2^^5;6^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,86,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,86,21,0)="^^3^3^2941212^^"
^DD(459.01,86,21,1,0)="The number of hours an employee was paid regular hours at the overtime"
^DD(459.01,86,21,2,0)="rate, because they are in excess of 8 hours in a day rather than 40 in"
^DD(459.01,86,21,3,0)="a week, in the last pay period processed."
^DD(459.01,86,"DT")="2930312"
^DD(459.01,86.1,0)="REG HOURS AT OT RATE WK 1^NJ6,2^^8;20^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,86.1,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,86.1,21,0)="^^1^1^2920929^"
^DD(459.01,86.1,21,1,0)="Regular hours at the overtime rate for week-1."
^DD(459.01,86.1,"DT")="2930312"
^DD(459.01,86.2,0)="REG HOURS AT OT RATE WK 2^NJ6,2^^8;21^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,86.2,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,86.2,21,0)="^^1^1^2920929^"
^DD(459.01,86.2,21,1,0)="Regular hours at the overtime rate for week-2."
^DD(459.01,86.2,"DT")="2930312"
^DD(459.01,86.3,0)="REG HOURS AT OT RATE AMT WK 1^NJ6,2^^8;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(459.01,86.3,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,86.3,21,0)="^^1^1^2920929^"
^DD(459.01,86.3,21,1,0)="Regular hours at the overtime rate amount for week-1."
^DD(459.01,86.3,"DT")="2930312"
^DD(459.01,86.4,0)="REG HOURS AT OT RATE AMT WK 2^NJ6,2^^8;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(459.01,86.4,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,86.4,21,0)="^^1^1^2920929^"
^DD(459.01,86.4,21,1,0)="Regular hours at the overtime rate amount for week-2."
^DD(459.01,86.4,"DT")="2930312"
^DD(459.01,87,0)="ENVIRONMENTAL HAZARD HRS CPPD^NJ5,2^^5;7^K:+X'=X!(X>99.75)!(X<-99.75)!(X?.E1"".""3N.N) X"
^DD(459.01,87,3)="Type a Number between -99.75 and 99.75, 2 Decimal Digits"
^DD(459.01,87,21,0)="^^2^2^2930727^^"
^DD(459.01,87,21,1,0)="The number of hours paid to an employee for environmental differential"
^DD(459.01,87,21,2,0)="pay in the last pay period processed."
^DD(459.01,87,"DT")="2930727"
^DD(459.01,88,0)="HOLIDAY AMT^NJ6,2^^5;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,88,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,88,21,0)="^^2^2^2911120^"
^DD(459.01,88,21,1,0)="The amount paid to an employee as premium pay for work performed on a"
^DD(459.01,88,21,2,0)="holiday. This amount is for the last pay period processed."
^DD(459.01,88,"DT")="2930312"
^DD(459.01,89,0)="HOLIDAY HOURS^NJ6,2^^5;9^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,89,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,89,21,0)="^^2^2^2911120^"
^DD(459.01,89,21,1,0)="The number of hours an employee was paid holiday premium pay in the"
^DD(459.01,89,21,2,0)="last pay period processed."
^DD(459.01,89,"DT")="2930312"
^DD(459.01,90,0)="NIGHT DIFF AMT CPPD^NJ6,2^^5;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,90,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,90,21,0)="^^3^3^2911120^"
^DD(459.01,90,21,1,0)="The amount paid to an eligible employee performing duty on a tour of"
^DD(459.01,90,21,2,0)="duty, part or all of which qualifies for payment of a night shift"
^DD(459.01,90,21,3,0)="differential."
^DD(459.01,90,"DT")="2920916"
^DD(459.01,91,0)="NIGHT DIFF HRS CPPD^NJ6,2^^5;11^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,91,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,91,21,0)="^^3^3^2911120^"
^DD(459.01,91,21,1,0)="The number of hours an employee was paid night differential, shift"
^DD(459.01,91,21,2,0)="differential, or tour differential premium pay in the last pay period"
^DD(459.01,91,21,3,0)="processed."
^DD(459.01,91,"DT")="2920916"
^DD(459.01,92,0)="ON CALL HRS CPPD^NJ7,2^^5;12^K:+X'=X!(X>9999.99)!(X<-9999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,92,3)="Type number of hours of On Call Pay, between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,92,21,0)="^^2^2^2960808^^^^"
^DD(459.01,92,21,1,0)="The number of on-call hours an employee was paid for the last pay period"
^DD(459.01,92,21,2,0)="processed. This applies only to certain Title 38 medical personnel."
^DD(459.01,92,23,0)="^^3^3^2960808^^^"
^DD(459.01,92,23,1,0)="The size of this field conforms with the size of the field sent by Austin"
^DD(459.01,92,23,2,0)="in download messages.  Decimal digits should be only in increments of .25,"
^DD(459.01,92,23,3,0)="representing quarter hours."
^DD(459.01,92,"DT")="2960808"
^DD(459.01,93,0)="ON CALL AMT CPPD^NJ8,2^^5;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(459.01,93,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,93,21,0)="^^3^3^2911120^"
^DD(459.01,93,21,1,0)="The amount paid for hours an employee spent in an on-call status in"
^DD(459.01,93,21,2,0)="the last pay period processed. This applies only to certain Title 38"
^DD(459.01,93,21,3,0)="medical personnel."
^DD(459.01,93,"DT")="3040427"
^DD(459.01,94,0)="OVERTIME AMT CPPD^NJ8,2^^5;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,94,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,94,21,0)="^^2^2^2911121^^"
^DD(459.01,94,21,1,0)="The amount of overtime premium pay received by an employee for overtime"
^DD(459.01,94,21,2,0)="hours worked in the current pay period processed."
^DD(459.01,94,"DT")="2911125"
^DD(459.01,95,0)="OVERTIME HOURS CPPD^NJ6,2^^5;15^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,95,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,95,21,0)="^^2^2^2911120^"
^DD(459.01,95,21,1,0)="The number of hours for which an employee was paid overtime premium pay"
^DD(459.01,95,21,2,0)="in the last pay period processed."
^DD(459.01,95,"DT")="2930312"
^DD(459.01,96,0)="POST DIFF AMT CPPD^NJ6,2^^5;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,96,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,96,21,0)="^^4^4^2911125^^^"
^DD(459.01,96,21,1,0)="The amount of differential paid to an employee assigned to a post in"
^DD(459.01,96,21,2,0)="Manila in the last pay period processed. Differential is computed as a"
^DD(459.01,96,21,3,0)="percentage of base pay, and applies to employees whose parent station"
^DD(459.01,96,21,4,0)="is not within the U.S. or its territories."
^DD(459.01,96,"DT")="2920916"
^DD(459.01,97,0)="SATURDAY AMT CPPD^NJ6,2^^5;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,97,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,97,21,0)="^^3^3^2911120^"
^DD(459.01,97,21,1,0)="The amount paid for Saturday premium work hours, paid to a nurse or a"
^DD(459.01,97,21,2,0)="physician assistant or extended function dental auxiliary. This amount"
^DD(459.01,97,21,3,0)="is for the last pay period processed."
^DD(459.01,97,"DT")="2911125"
^DD(459.01,98,0)="STANDBY AMT CPPD^NJ6,2^^5;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,98,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,98,21,0)="^^4^4^2941212^^"
^DD(459.01,98,21,1,0)="The amount paid to an employee for hours spent in a standby status"
^DD(459.01,98,21,2,0)="in the current pay period processed. This applies only to a General"
^DD(459.01,98,21,3,0)="Schedule employee whose occupation requires standby duty, such as a"
^DD(459.01,98,21,4,0)="firefighter."
^DD(459.01,98,"DT")="2911125"
^DD(459.01,99,0)="SUNDAY AMT CPPD^NJ6,2^^5;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,99,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,99,21,0)="^^2^2^2911120^"
^DD(459.01,99,21,1,0)="The amount paid for Sunday premium work hours to an employee in the"
^DD(459.01,99,21,2,0)="last pay period processed."
^DD(459.01,99,"DT")="2911125"
^DD(459.01,100,0)="SUNDAY HRS CPPD^NJ6,2^^5;20^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,100,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,100,21,0)="^^2^2^2911120^"
^DD(459.01,100,21,1,0)="The number of hours an employee was paid for Sunday premium pay in the"
^DD(459.01,100,21,2,0)="last pay period processed."
^DD(459.01,100,"DT")="2911125"
^DD(459.01,101,0)="FLSA OVERTIME WEEK CODE CPPD^F^^5;21^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,101,3)="Answer must be 1 character in length."
^DD(459.01,101,21,0)="^^5^5^2911120^"
^DD(459.01,101,21,1,0)="Code identifies those workweeks in which overtime was paid under the"
^DD(459.01,101,21,2,0)="Federal Labor Standards Act (FLSA) regulations for either or both weeks"
^DD(459.01,101,21,3,0)="of the pay period. This applies only to Title 5 employees and indicates"
^DD(459.01,101,21,4,0)="that FLSA overtime pay was greater than Title 5 overtime pay. Codes are"
^DD(459.01,101,21,5,0)="applicable to the last pay period processed."
^DD(459.01,101,"DT")="2910924"
^DD(459.01,102,0)="COLA AMT CPPD^NJ8,2^^5;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,102,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,102,21,0)="^^5^5^2911120^^"
^DD(459.01,102,21,1,0)="The amount of the Cost Of Living Allowance (COLA) paid to an employee"
^DD(459.01,102,21,2,0)="in the current pay period. Employees in specific geographic areas with"
^DD(459.01,102,21,3,0)="higher cost of living receive a COLA in addition to base pay. The Office"
^DD(459.01,102,21,4,0)="of Personnel Managememt designates COLA areas within the U.S. and its"
^DD(459.01,102,21,5,0)="territories. "
^DD(459.01,102,"DT")="2910822"
^DD(459.01,103,0)="AUO AMT CPPD^NJ8,2^^5;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,103,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,103,21,0)="^^4^4^2911120^"
^DD(459.01,103,21,1,0)="The amount of administratively uncontrollable overtime received by an"
^DD(459.01,103,21,2,0)="employee this pay period. This pay is limited to criminal investigators,"
^DD(459.01,103,21,3,0)="grades GS-9 through GS-14, of the Office of the Inspector General"
^DD(459.01,103,21,4,0)="assigned to Central Office."
^DD(459.01,103,"DT")="2910822"
^DD(459.01,104,0)="INCENTIVE AWARD^NJ8,2^^5;24^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(459.01,104,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(459.01,104,21,0)="^^2^2^2930219^^"
^DD(459.01,104,21,1,0)="The amount of an award paid to an employee in the last pay period"
^DD(459.01,104,21,2,0)="processed. This award is granted under the Incentive Award Program."
^DD(459.01,104,"DT")="2930219"
^DD(459.01,104.1,0)="PERFORMANCE AWARD^NJ8,2^^5;31^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(459.01,104.1,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(459.01,104.1,21,0)="^^2^2^2930219^"
^DD(459.01,104.1,21,1,0)="The amount of a performance award paid to an employee in the last pay"
^DD(459.01,104.1,21,2,0)="period."
^DD(459.01,104.1,"DT")="2930219"
^DD(459.01,105,0)="SES PERFORMANCE AWARD AMT CPPD^NJ8,2^^5;25^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,105,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,105,21,0)="^^2^2^2911120^"
^DD(459.01,105,21,1,0)="The amount of an award granted to a Senior Executive Service employee"
^DD(459.01,105,21,2,0)="for work performance, paid in the current pay period processed."
^DD(459.01,105,"DT")="2910822"
^DD(459.01,106,0)="ANNUAL LEAVE LUMP SUM AMT^NJ8,2^^5;26^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,106,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,106,21,0)="^^5^5^2911121^^"
^DD(459.01,106,21,1,0)="The amount of lump sum annual leave paid an employee in the last pay"
^DD(459.01,106,21,2,0)="period processed. This number also includes any hours of restored annual"
^DD(459.01,106,21,3,0)="leave. A lump sum is paid at the time of separation from federal service"
^DD(459.01,106,21,4,0)="or when an employee moves to a position that is not covered by an annual"
^DD(459.01,106,21,5,0)="leave system."
^DD(459.01,106,"DT")="2910822"
^DD(459.01,107,0)="ANNUAL LEAVE LUMP SUM HRS/DAYS^NJ6,2^^5;27^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,107,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,107,21,0)="^^5^5^2911120^"
^DD(459.01,107,21,1,0)="The number of hours or days of annual leave for which an employee is"
^DD(459.01,107,21,2,0)="paid a lump sum. This number also includes any hours or days of"
^DD(459.01,107,21,3,0)="restored annual leave. A lump sum is paid at the time of separation"
^DD(459.01,107,21,4,0)="from federal service or when an employee moves to a position that is not"
^DD(459.01,107,21,5,0)="covered by an annual leave system."
^DD(459.01,107,"DT")="2910822"
^DD(459.01,108,0)="MOVING EXPENSES CPPD^NJ8,2^^5;28^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,108,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,108,21,0)="^^2^2^2920922^^^"
^DD(459.01,108,21,1,0)="The moving expenses amount for the current pay period."
^DD(459.01,108,21,2,0)=" "
^DD(459.01,108,"DT")="2920922"
^DD(459.01,109,0)="UNIFORM ALLOWANCE AMT CPPD^NJ6,2^^5;29^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,109,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,109,21,0)="^^3^3^2911120^"
^DD(459.01,109,21,1,0)="The amount paid as uniform allowance to an employee who is required to"
^DD(459.01,109,21,2,0)="purchase and wear a uniform at work. The amount paid is for the last"
^DD(459.01,109,21,3,0)="pay period processed."
^DD(459.01,109,"DT")="2910822"
^DD(459.01,110,0)="UNSCHEDULED HOURS^NJ6,2^^5;30^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,110,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,110,21,0)="^^2^2^2911120^"
^DD(459.01,110,21,1,0)="The number of hours or days base pay for which an employee was paid in"
^DD(459.01,110,21,2,0)="the last pay period processed."
^DD(459.01,110,"DT")="2911227"
^DD(459.01,111,0)="NEW SSN^F^^6;1^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(459.01,111,3)="Answer must be 9 characters in length."
^DD(459.01,111,21,0)="^^3^3^2911120^"
^DD(459.01,111,21,1,0)="This is the social security number that replaces the previous number."
^DD(459.01,111,21,2,0)="The previous number may have been invalid or a temporarily assigned"
^DD(459.01,111,21,3,0)="number while the employee applied for a social security number."
^DD(459.01,111,"DT")="2911122"
^DD(459.01,112,0)="NONPAY HOURS/DAYS CPPD^NJ6,2^^6;2^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,112,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,112,21,0)="^^2^2^2911120^"
^DD(459.01,112,21,1,0)="The number of hours or days an employee is not being paid because he/she"
^DD(459.01,112,21,2,0)="was not an employee in the last pay period processed."
^DD(459.01,112,"DT")="2911120"
^DD(459.01,113,0)="SPECIAL SALARY ADJUSTMENT^NJ8,2^^6;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,113,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,113,21,0)="^^2^2^2911120^"
^DD(459.01,113,21,1,0)="The component annual amount of special pay that applies to an eligible"
^DD(459.01,113,21,2,0)="physician or dentist assigned to a specific management position."
^DD(459.01,113,"DT")="2930309"
^DD(459.01,114,0)="SPECIAL PAY RATE DIFFERENCE^NJ8,2^^6;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,114,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,114,21,0)="^^1^1^2920129^"
^DD(459.01,114,21,1,0)="The dollar and cents amount the employee receives as special pay."
^DD(459.01,114,"DT")="2910822"
^DD(459.01,115,0)="VCS LEAVE COST ADJUSTMENT AMT^NJ7,2^^7;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999.99)!(X<-9999.99) X"
^DD(459.01,115,3)="Type a Dollar Amount between -9999.99 and 9999.99, 2 Decimal Digits"
^DD(459.01,115,21,0)="^^2^2^2911120^"
^DD(459.01,115,21,1,0)="The amount of salary a pieceworker of the Veteran Canteen Service was"
^DD(459.01,115,21,2,0)="paid in the last pay period processed for paid leave."
^DD(459.01,115,"DT")="2910822"
^DD(459.01,116,0)="VCS MINWAGE CD PW CPPD^F^^7;2^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,116,3)="Answer must be 1 character in length."
^DD(459.01,116,21,0)="^^3^3^2911120^"
^DD(459.01,116,21,1,0)="Code indicates that a pieceworker of the Veterans Canteen Service"
^DD(459.01,116,21,2,0)="received payment at the minimum wage rate in the last pay period"
^DD(459.01,116,21,3,0)="processed."
^DD(459.01,116,"DT")="2911122"
^DD(459.01,117,0)="VCS SALE SUM PW CPPD^NJ6,2^^7;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99) X"
^DD(459.01,117,3)="Type a Dollar Amount between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,117,21,0)="^^2^2^2911120^"
^DD(459.01,117,21,1,0)="The actual sum of all sales by pieceworkers in the Veterans Canteen"
^DD(459.01,117,21,2,0)="Service in the last pay period processed."
^DD(459.01,117,"DT")="2910822"
^DD(459.01,118,0)="GROSS PAY PLUS BENEFITS CPPD^NJ8,2^^8;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,118,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,118,21,0)="^^3^3^2911121^^"
^DD(459.01,118,21,1,0)="The total value of the employee's gross pay, uniform allowance, annuity"
^DD(459.01,118,21,2,0)="and agency contributions for Medicare, life insurance, health benefits, "
^DD(459.01,118,21,3,0)="retirement and Thrift Savings Plan."
^DD(459.01,118,"DT")="2911122"
^DD(459.01,119,0)="TOTAL COMPENSATION CPPD^NJ8,2^^8;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,119,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,119,21,0)="^^2^2^2911120^"
^DD(459.01,119,21,1,0)="The total compensation the employee received for the last pay period"
^DD(459.01,119,21,2,0)="processed. It is the sum of all pay earned, awards and annuity."
^DD(459.01,119,"DT")="2911122"
^DD(459.01,120,0)="VARIABLE COSTS CPPD^NJ8,2^^8;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,120,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,120,21,0)="^^3^3^2911120^"
^DD(459.01,120,21,1,0)="The total amount of variable costs paid to the employee for the last"
^DD(459.01,120,21,2,0)="pay period processed. The sum includes overtime pay, holiday pay, awards,"
^DD(459.01,120,21,3,0)="moving expenses, lumpsum payments and severance pay."
^DD(459.01,120,"DT")="2911122"
^DD(459.01,121,0)="TOTAL BENEFITS CPPD^NJ8,2^^8;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,121,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,121,21,0)="^^5^5^2911121^^"
^DD(459.01,121,21,1,0)="The total amount of benefits paid to the employee for the last pay period"
^DD(459.01,121,21,2,0)="processed. The sum includes cost of living allowance, uniform allowance,"
^DD(459.01,121,21,3,0)="moving expenses, severance pay, and agency contributions for Medicare,"
^DD(459.01,121,21,4,0)="life insurance, health benefits, retirement, social security and Thrift"
^DD(459.01,121,21,5,0)="Savings Plan."
^DD(459.01,121,"DT")="2911122"
^DD(459.01,122,0)="LWOP HOURS CPPD^NJ6,2^^4;9^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,122,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,122,21,0)="^^4^4^2911120^^"
^DD(459.01,122,21,1,0)="This is the number of hours the employee was in a leave without pay status"
^DD(459.01,122,21,2,0)="in the last pay period processed. If the employee has his/her leave without"
^DD(459.01,122,21,3,0)="pay amount measured in days, then that value is converted to the nearest"
^DD(459.01,122,21,4,0)="whole hour value."
^DD(459.01,122,"DT")="2911121"
^DD(459.01,123,0)="NONPAY HOURS CPPD^NJ6,2^^6;5^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,123,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,123,21,0)="^^4^4^2911120^^"
^DD(459.01,123,21,1,0)="This is the number of hours the employee was in a nonpay status in the"
^DD(459.01,123,21,2,0)="last pay period processed. If the employee has his/her nonpay status"
^DD(459.01,123,21,3,0)="measured in days, then that value is converted to the nearest whole hour"
^DD(459.01,123,21,4,0)="value."
^DD(459.01,123,"DT")="2911121"
^DD(459.01,124,0)="GAP AMT CPPD^NJ8,2^^8;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(459.01,124,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(459.01,124,21,0)="^^1^1^2940120^^^^"
^DD(459.01,124,21,1,0)="Geographic Adjustment Pay for the most recently processed pay period."
^DD(459.01,124,"DT")="2940120"
^DD(459.01,125,0)="RELOCATION BONUS^NJ10,2^^8;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(459.01,125,3)="Type a Dollar Amount between 0 and 9999999"
^DD(459.01,125,21,0)="^^1^1^2920917^^"
^DD(459.01,125,21,1,0)="Relocation Bonus amount."
^DD(459.01,125,"DT")="2920916"
^DD(459.01,126,0)="RECRUITMENT BONUS^NJ10,2^^8;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(459.01,126,3)="Type a Dollar Amount between 0 and 9999999"
^DD(459.01,126,21,0)="^^1^1^2920917^"
^DD(459.01,126,21,1,0)="Recruitment Bonus amount."
^DD(459.01,126,"DT")="2920916"
^DD(459.01,127,0)="RETENTION ALLOWANCE^NJ10,2^^8;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(459.01,127,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(459.01,127,21,0)="^^1^1^2920917^"
^DD(459.01,127,21,1,0)="Retention Allowance amount."
^DD(459.01,127,"DT")="2920916"
^DD(459.01,128,0)="HAZARD PAY DIFFERENTIAL^NJ8,2^^8;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(459.01,128,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(459.01,128,21,0)="^^1^1^2920917^"
^DD(459.01,128,21,1,0)="Hazard Pay Differential amount."
^DD(459.01,128,"DT")="2921016"
^DD(459.01,129,0)="STAFFING DIFFERENTIAL^NJ10,2^^8;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(459.01,129,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(459.01,129,21,0)="^^1^1^2920917^"
^DD(459.01,129,21,1,0)="Staffing Differential amount."
^DD(459.01,129,"DT")="2921016"
^DD(459.01,130,0)="SUPERVISORY DIFFERENTIAL CPPD^NJ10,2^^8;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(459.01,130,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(459.01,130,21,0)="^^1^1^2920917^"
^DD(459.01,130,21,1,0)="Supervisory Differential amount."
^DD(459.01,130,"DT")="2921016"
^DD(459.01,131,0)="OVERTIME HOURS WK 1^NJ6,2^^8;12^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,131,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,131,21,0)="^^1^1^2920929^"
^DD(459.01,131,21,1,0)="Overtime hours for week-1."
^DD(459.01,131,"DT")="2930312"
^DD(459.01,132,0)="OVERTIME HOURS WK 2^NJ6,2^^8;13^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,132,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,132,21,0)="^^1^1^2920929^"
^DD(459.01,132,21,1,0)="Overtime hours for week-2."
^DD(459.01,132,"DT")="2930312"
^DD(459.01,133,0)="OVERTIME AMT WK 1^NJ8,2^^8;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(459.01,133,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(459.01,133,21,0)="^^1^1^2920929^"
^DD(459.01,133,21,1,0)="Overtime amount for week-1."
^DD(459.01,133,"DT")="2930312"
^DD(459.01,134,0)="OVERTIME AMT WK 2^NJ8,2^^8;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(459.01,134,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(459.01,134,21,0)="^^1^1^2920929^"
^DD(459.01,134,21,1,0)="Overtime amount for week-2."
^DD(459.01,134,"DT")="2930312"
^DD(459.01,135,0)="HRS EXCESS 8 DAY WK 1^NJ6,2^^8;16^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,135,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,135,21,0)="^^1^1^2920929^"
^DD(459.01,135,21,1,0)="Hours in excess of 8 in a day for week-1."
^DD(459.01,135,"DT")="2930312"
^DD(459.01,136,0)="HRS EXCESS 8 DAY WK 2^NJ6,2^^8;17^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,136,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,136,21,0)="^^1^1^2920929^"
^DD(459.01,136,21,1,0)="Hours in excess of 8 in a day for week-2."
^DD(459.01,136,"DT")="2930312"
^DD(459.01,137,0)="HRS EXCESS 8 DAY AMT WK 1^NJ6,2^^8;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(459.01,137,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,137,21,0)="^^1^1^2920929^"
^DD(459.01,137,21,1,0)="Hours in excess of 8 in a day amount for week-1."
^DD(459.01,137,"DT")="2930312"
^DD(459.01,138,0)="HRS EXCESS 8 DAY AMT WK 2^NJ6,2^^8;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(459.01,138,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,138,21,0)="^^1^1^2920929^"
^DD(459.01,138,21,1,0)="Hours in excess of 8 in a day amount for week-2."
^DD(459.01,138,"DT")="2930312"
^DD(459.01,139,0)="NON-OVERTIME HOURS^NJ6,2^^8;24^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,139,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,139,21,0)="^^1^1^2920929^"
^DD(459.01,139,21,1,0)="Non-overtime hours."
^DD(459.01,139,"DT")="2930312"
^DD(459.01,140,0)="NON-OVERTIME AMT^NJ6,2^^8;25^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(459.01,140,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,140,21,0)="^^1^1^2920929^"
^DD(459.01,140,21,1,0)="Non-overtime amount."
^DD(459.01,140,"DT")="2930312"
^DD(459.01,141,0)="OT ON HOL HOURS^NJ6,2^^8;26^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,141,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,141,21,0)="^^1^1^2920929^"
^DD(459.01,141,21,1,0)="Overtime hours on a holiday."
^DD(459.01,141,"DT")="2930312"
^DD(459.01,142,0)="OT ON HOL AMT^NJ6,2^^8;27^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(459.01,142,3)="Type a Dollar Amount between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,142,21,0)="^^1^1^2920929^"
^DD(459.01,142,21,1,0)="Overtime amount on a holiday."
^DD(459.01,142,"DT")="2930312"
^DD(459.01,143,0)="TRAINING WK 1^NJ6,2^^8;28^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,143,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,143,21,0)="^^1^1^2920929^"
^DD(459.01,143,21,1,0)="Training hours for week-1."
^DD(459.01,143,"DT")="2930312"
^DD(459.01,144,0)="TRAINING WK 2^NJ6,2^^8;29^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,144,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,144,21,0)="^^1^1^2920929^"
^DD(459.01,144,21,1,0)="Training hours for week-2."
^DD(459.01,144,"DT")="2930312"
^DD(459.01,145,0)="TRAVEL HOURS WK 1^NJ6,2^^6;6^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,145,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,145,21,0)="^^1^1^2920929^"
^DD(459.01,145,21,1,0)="Travel hours for week-1."
^DD(459.01,145,"DT")="2930312"
^DD(459.01,146,0)="TRAVEL HOURS WK 2^NJ6,2^^6;7^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,146,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,146,21,0)="^^1^1^2920929^"
^DD(459.01,146,21,1,0)="Travel hours for week-2."
^DD(459.01,146,"DT")="2930312"
^DD(459.01,147,0)="TRAVEL OVERTIME WK 1^NJ6,2^^6;8^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,147,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,147,21,0)="^^1^1^2920929^"
^DD(459.01,147,21,1,0)="Travel overtime hours for week-1."
^DD(459.01,147,"DT")="2930312"
^DD(459.01,148,0)="TRAVEL OVERTIME WK 2^NJ6,2^^6;9^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.01,148,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(459.01,148,21,0)="^^1^1^2920929^"
^DD(459.01,148,21,1,0)="Travel overtime hours for week-2."
^DD(459.01,148,"DT")="2930312"
^DD(459.01,149,0)="LOCALITY PAY CPPD^NJ8,2^^8;30^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(459.01,149,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(459.01,149,21,0)="^^1^1^2931210^"
^DD(459.01,149,21,1,0)="Locality Pay for the most recently processed pay period."
^DD(459.01,149,"DT")="2931210"
^DD(459.01,150,0)="TAX GARNISHMENT-1^NJ8,2^^3;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,150,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,150,21,0)="^^1^1^2950508^"
^DD(459.01,150,21,1,0)="The first amount deducted for purposes of tax garnishment."
^DD(459.01,150,"DT")="2950508"
^DD(459.01,151,0)="TAX GARNISHMENT-2^NJ8,2^^3;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,151,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,151,21,0)="^^1^1^2950508^"
^DD(459.01,151,21,1,0)="The second amount deducted for purposes of tax garnishment."
^DD(459.01,151,"DT")="2950508"
^DD(459.01,152,0)="COMMERCIAL GARNISHMENT-1^NJ8,2^^3;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,152,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,152,21,0)="^^1^1^2950508^"
^DD(459.01,152,21,1,0)="The first amount deducted for purposes for commercial garnishment."
^DD(459.01,152,"DT")="2950508"
^DD(459.01,153,0)="COMMERCIAL GARNISHMENT-2^NJ8,2^^3;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99) X"
^DD(459.01,153,3)="Type a Dollar Amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,153,21,0)="^^1^1^2950508^"
^DD(459.01,153,21,1,0)="The second amount deducted for purposes of commercial garnishment."
^DD(459.01,153,"DT")="2950508"
^DD(459.01,154,0)="CARE/BEREAVE LEAVE USED CPPD^NJ6,2^^3;7^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,154,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,154,21,0)="^^2^2^2950509^^"
^DD(459.01,154,21,1,0)="The number of hours or days used by an employee for care and bereavement leave"
^DD(459.01,154,21,2,0)="in the last pay period processed."
^DD(459.01,154,"DT")="2950509"
^DD(459.01,155,0)="ADOPTION LEAVE USED CPPD^NJ6,2^^3;8^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,155,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,155,21,0)="^^2^2^2950509^^"
^DD(459.01,155,21,1,0)="The number of hours or days used by an employee for adoption leave in the last"
^DD(459.01,155,21,2,0)="pay period processed."
^DD(459.01,155,"DT")="2950509"
^DD(459.01,156,0)="OTHER SICK LEAVE USED CPPD^NJ6,2^^3;9^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,156,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,156,21,0)="^^2^2^2950509^^"
^DD(459.01,156,21,1,0)="The number of hours or days used by an employee for other sick leave in the"
^DD(459.01,156,21,2,0)="last pay period processed."
^DD(459.01,156,"DT")="2950509"
^DD(459.01,157,0)="DONOR LEAVE USED CPPD^NJ6,2^^3;10^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3N.N) X"
^DD(459.01,157,3)="Type a Number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,157,21,0)="^^2^2^2950509^^"
^DD(459.01,157,21,1,0)="The total number of hours or days of donor leave used by an employee during"
^DD(459.01,157,21,2,0)="the leave year to date."
^DD(459.01,157,"DT")="2950509"
^DD(459.01,158,0)="MILITARY LEAVE USED CPPD^NJ6,2^^9;1^K:+X'=X!(X>999.99)!(X<-999.99)!(X?.E1"".""3.N) X"
^DD(459.01,158,3)="Type a number between -999.99 and 999.99, 2 Decimal Digits"
^DD(459.01,158,21,0)="^^2^2^3030314^"
^DD(459.01,158,21,1,0)="The number of hours or days used by an employee for Military Leave in the last"
^DD(459.01,158,21,2,0)="pay period processed."
^DD(459.01,158,"DT")="3030314"
^DD(459.01,159,0)="FED EMP HLTH BENE CRT ORD IND^F^^9;16^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,159,3)="Answer must be 1 character in length."
^DD(459.01,159,21,0)="^^4^4^3031215^^"
^DD(459.01,159,21,1,0)="The Federal Employee Health Benefit Court Order Indicator identifies"
^DD(459.01,159,21,2,0)="employees who are under court order to pay for Alimony, Child Support"
^DD(459.01,159,21,3,0)="or Bankruptcy.  Possible values are C (under court order) or blank"
^DD(459.01,159,21,4,0)="(not under court order)."
^DD(459.01,159,"DT")="3031215"
^DD(459.01,160,0)="EARNINGS & LEAVE PRT SELECTION^F^^9;17^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,160,3)="Answer must be 1 character in length."
^DD(459.01,160,21,0)="^^4^4^3031215^^^"
^DD(459.01,160,21,1,0)="The Earnings and Leave Print Indicator determines whether or not"
^DD(459.01,160,21,2,0)="to print a hardcopy of the employee's Earnings and Leave statement."
^DD(459.01,160,21,3,0)="Possible values are X (print a hardcopy) or blank (don't print a"
^DD(459.01,160,21,4,0)="hardcopy)."
^DD(459.01,160,"DT")="3031215"
^DD(459.01,167,0)="FLTCIP CPPD^NJ8,2^^9;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(459.01,167,3)="Type a Dollar amount between 0 and 99999.99, 2 Decimal Digits."
^DD(459.01,167,21,0)="^^2^2^3030722^"
^DD(459.01,167,21,1,0)="The amount to be deducted each pay period from an employee's pay for Federal"
^DD(459.01,167,21,2,0)="Long Term Care Insurance Program."
^DD(459.01,167,"DT")="3030722"
^DD(459.01,168,0)="FLTCIP INDICATOR^F^^9;6^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,168,3)="Answer must be 1 character in length."
^DD(459.01,168,21,0)="^^2^2^3030819^^^"
^DD(459.01,168,21,1,0)="Indicates whether the employee is eligible to participate in the Federal Long"
^DD(459.01,168,21,2,0)="Term Care Insurance Program (FLTCIP).  Possible values are Y or N."
^DD(459.01,168,"DT")="3030819"
^DD(459.01,169,0)="VOLUNTARY ALLOTMENT-3 AMT^NJ5,0^^9;8^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1.N) X"
^DD(459.01,169,3)="Type a number between -99999 and 99999, 0 Decimal Digits."
^DD(459.01,169,"DT")="3030722"
^DD(459.01,170,0)="VOLUNTARY ALLOTMENT-4 AMT^NJ5,0^^9;9^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1.N) X"
^DD(459.01,170,3)="Type a number between -99999 and 99999, 0 Decimal Digits."
^DD(459.01,170,21,0)="^^2^2^3030722^^"
^DD(459.01,170,21,1,0)="This field is the whole dollar amount the employee has elected to have"
^DD(459.01,170,21,2,0)="deducted from pay each pay period as a voluntary allotment."
^DD(459.01,170,"DT")="3030722"
^DD(459.01,171,0)="VCS ALLOTMENT AMT^NJ6,2^^9;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999.99)!(X<-999.99)!(X?.E1"".""3.N) X"
^DD(459.01,171,3)="Type a Dollar amount between -999.99 and 999.99, 2 Decimal Digits."
^DD(459.01,171,21,0)="^^2^2^3030722^^"
^DD(459.01,171,21,1,0)="The amount deducted from earnings that an employee has authorized for"
^DD(459.01,171,21,2,0)="re-payment to the Veteran's Canteen Service (VCS)."
^DD(459.01,171,"DT")="3030722"
^DD(459.01,172,0)="TRAVEL SAVINGS AWARD^NJ8,2^^9;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(459.01,172,3)="Type a Dollar amount between 0 and 99999.99, 2 Decimal Digits.."
^DD(459.01,172,21,0)="^^2^2^3030722^"
^DD(459.01,172,21,1,0)="The amount of the Travel Savings Award paid to an employee in the last pay"
^DD(459.01,172,21,2,0)="period processed.  This award is granted under the Incentive Award Program."
^DD(459.01,172,"DT")="3030722"
^DD(459.01,173,0)="LABOR DISTRIBUTION^459.1173A^^LD;0"
^DD(459.01,174,0)="HLTH CARE FLEX SPEND ACCT YTD^NJ7,2^^9;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>3000)!(X<0)!(X?.E1"".""3.N) X"
^DD(459.01,174,3)="Type a Dollar amount between 0 and 3000, 2 Decimal Digits."
^DD(459.01,174,21,0)="^^2^2^3031215^^^^"
^DD(459.01,174,21,1,0)="The accumulated total of Health Care Flexible Spending Accounts deducted"
^DD(459.01,174,21,2,0)="from an employee this year through the last pay period processed."
^DD(459.01,174,"DT")="3031215"
^DD(459.01,175,0)="HLTH CARE FLEX SPEND ACCT CPPD^NJ7,2^^9;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>3000)!(X<0)!(X?.E1"".""3.N) X"
^DD(459.01,175,3)="Type a Dollar amount between 0 and 3000, 2 Decimal Digits."
^DD(459.01,175,21,0)="^^2^2^3031215^^^^"
^DD(459.01,175,21,1,0)="The current pay period deduction from an employee's pay for the Health"
^DD(459.01,175,21,2,0)="Care Flexible Spending Account (HCFSA)."
^DD(459.01,175,"DT")="3031215"
^DD(459.01,176,0)="DPNT CARE FLEX SPEND ACCT YTD^NJ7,2^^9;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>5000)!(X<0)!(X?.E1"".""3.N) X"
^DD(459.01,176,3)="Type a Dollar amount between 0 and 5000, 2 Decimal Digits."
^DD(459.01,176,21,0)="^^3^3^3031215^^^^"
^DD(459.01,176,21,1,0)="The accumulated total of Dependent Care Flexible Spending Accounts"
^DD(459.01,176,21,2,0)="deducted from an employee this year through the last pay period"
^DD(459.01,176,21,3,0)="processed."
^DD(459.01,176,"DT")="3031215"
^DD(459.01,177,0)="DPNT CARE FLEX SPEND ACCT CPPD^NJ7,2^^9;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>5000)!(X<0)!(X?.E1"".""3.N) X"
^DD(459.01,177,3)="Type a Dollar amount between 0 and 5000, 2 Decimal Digits."
^DD(459.01,177,21,0)="^^2^2^3031215^^^^"
^DD(459.01,177,21,1,0)="The current pay period deduction from an employee's pay for the"
^DD(459.01,177,21,2,0)="Dependent Care Flexible Spending Account (DCFSA)."
^DD(459.01,177,"DT")="3031215"
^DD(459.01,178,0)="TAX GARNISHMENT-3^NJ8,2^^3;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(459.01,178,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,178,21,0)="^^1^1^3040623^"
^DD(459.01,178,21,1,0)="The third amount deducted for purposes of tax garnishment."
^DD(459.01,178,"DT")="3040623"
^DD(459.01,179,0)="TAX GARNISHMENT-4^NJ8,2^^3;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(459.01,179,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,179,21,0)="^^1^1^3040427^"
^DD(459.01,179,21,1,0)="The fourth amount deducted for purposes of tax garnishment."
^DD(459.01,179,"DT")="3040427"
^DD(459.01,180,0)="COMMERCIAL GARNISHMENT-3^NJ8,2^^3;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(459.01,180,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,180,21,0)="^^1^1^3040427^"
^DD(459.01,180,21,1,0)="The third amount deducted for purposes of commercial garnishment."
^DD(459.01,180,"DT")="3040427"
^DD(459.01,181,0)="COMMERCIAL GARNISHMENT-4^NJ8,2^^3;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999.99)!(X<-99999.99)!(X?.E1"".""3.N) X"
^DD(459.01,181,3)="Type a Dollar amount between -99999.99 and 99999.99, 2 Decimal Digits"
^DD(459.01,181,21,0)="^^1^1^3040427^"
^DD(459.01,181,21,1,0)="The fourth amount deducted for purposes of commercial garnishment."
^DD(459.01,181,"DT")="3040427"
^DD(459.01,182,0)="FEDERAL TAX LOCK-IN INDICATOR^F^^9;18^K:$L(X)>1!($L(X)<1) X"
^DD(459.01,182,3)="Answer must be 1 character in length"
^DD(459.01,182,21,0)="^^2^2^3040427^^"
^DD(459.01,182,21,1,0)="When set to Y this field will prevent the employee from making changes via"
^DD(459.01,182,21,2,0)="EEX to their federal tax withholding amount.  (Possible Values: Y or N)"
^DD(459.01,182,"DT")="3040427"
^DD(459.01,"B","8B NORMAL HOURS",6)=""
^DD(459.01,"B","ACSB ACS AMT CPPD",46)=""
^DD(459.01,"B","ACSB BANKRUPTCY AMT CPPD",47)=""
^DD(459.01,"B","ADOPTION LEAVE USED CPPD",155)=""
^DD(459.01,"B","ANNUAL LEAVE LUMP SUM AMT",106)=""
^DD(459.01,"B","ANNUAL LEAVE LUMP SUM HRS/DAYS",107)=""
^DD(459.01,"B","ANNUAL LEAVE USED CPPD",75)=""
^DD(459.01,"B","ANNUAL LEAVE USED CPPD (HOURS)",80.1)=""
^DD(459.01,"B","AUO AMT CPPD",103)=""
^DD(459.01,"B","BASE PAY CPPD",85)=""
^DD(459.01,"B","CARE/BEREAVE LEAVE USED CPPD",154)=""
^DD(459.01,"B","CFC DEDUCTION CPPD",55)=""
^DD(459.01,"B","CITY TAX-1 AMT WITHHELD CPPD",23)=""
^DD(459.01,"B","CITY TAX-2 AMT WITHHELD CPPD",24)=""
^DD(459.01,"B","COLA AMT CPPD",102)=""
^DD(459.01,"B","COMMERCIAL GARNISHMENT-1",152)=""
^DD(459.01,"B","COMMERCIAL GARNISHMENT-2",153)=""
^DD(459.01,"B","COMMERCIAL GARNISHMENT-3",180)=""
^DD(459.01,"B","COMMERCIAL GARNISHMENT-4",181)=""
^DD(459.01,"B","COMPTIME/CREDIT HRS BALANCE",78)=""
^DD(459.01,"B","COMPTIME/CREDIT HRS USED CPPD",77)=""
^DD(459.01,"B","COST CENTER",7)=""
^DD(459.01,"B","CSRS REEMP ANNUITANT DED CPPD",38)=""
^DD(459.01,"B","DEBT DEPOSIT ACCT 36F3875 CPPD",51)=""
^DD(459.01,"B","DEBT DEPOSIT ACCT 36X6875 CPPD",49)=""
^DD(459.01,"B","DEBT REFUND ACCT 36F3875 CPPD",52)=""
^DD(459.01,"B","DEBT REFUND ACCT 36X6875 CPPD",50)=""
^DD(459.01,"B","DONOR LEAVE USED CPPD",157)=""
^DD(459.01,"B","DPNT CARE FLEX SPEND ACCT CPPD",177)=""
^DD(459.01,"B","DPNT CARE FLEX SPEND ACCT YTD",176)=""
^DD(459.01,"B","DUTY BASIS",5)=""
^DD(459.01,"B","EARNED INCOME CREDIT AMT CPPD",73)=""
^DD(459.01,"B","EARNINGS & LEAVE PRT SELECTION",160)=""
^DD(459.01,"B","ENVIRONMENTAL HAZARD HRS CPPD",87)=""
^DD(459.01,"B","FED EMP HLTH BENE CRT ORD IND",159)=""
^DD(459.01,"B","FEDERAL TAX AMT WITHHELD CPPD",20)=""
^DD(459.01,"B","FEDERAL TAX LOCK-IN INDICATOR",182)=""
^DD(459.01,"B","FEGLI ADDNL DEDUCTION CPPD",30)=""
^DD(459.01,"B","FEGLI AGE CODE CPPD",32)=""
^DD(459.01,"B","FEGLI BASIC DEDUCTION CPPD",33)=""
^DD(459.01,"B","FEGLI FAMILY DEDUCTION CPPD",31)=""
^DD(459.01,"B","FEGLI STANDARD DEDUCTION CPPD",35)=""
^DD(459.01,"B","FEGLI VA SHARE CPPD",34)=""
^DD(459.01,"B","FLSA OVERTIME WEEK CODE CPPD",101)=""
^DD(459.01,"B","FLTCIP CPPD",167)=""
^DD(459.01,"B","FLTCIP INDICATOR",168)=""
^DD(459.01,"B","FTE EQUIVALENT",10)=""
^DD(459.01,"B","FUND CONTROL POINT",9)=""
^DD(459.01,"B","GAP AMT CPPD",124)=""
^DD(459.01,"B","GARAGE DEDUCTION CPPD",41)=""
^DD(459.01,"B","GRADE",3)=""
^DD(459.01,"B","GROSS PAY CPPD",81)=""
^DD(459.01,"B","GROSS PAY PLUS BENEFITS CPPD",118)=""
^DD(459.01,"B","HAZARD PAY DIFFERENTIAL",128)=""
^DD(459.01,"B","HEALTH BENEFITS DEDUCTION CPPD",36)=""
^DD(459.01,"B","HEALTH BENEFITS VA SHARE CPPD",37)=""
^DD(459.01,"B","HLTH CARE FLEX SPEND ACCT CPPD",175)=""
^DD(459.01,"B","HLTH CARE FLEX SPEND ACCT YTD",174)=""
^DD(459.01,"B","HOLIDAY AMT",88)=""
^DD(459.01,"B","HOLIDAY HOURS",89)=""
^DD(459.01,"B","HRS EXCESS 8 DAY AMT WK 1",137)=""
^DD(459.01,"B","HRS EXCESS 8 DAY AMT WK 2",138)=""
^DD(459.01,"B","HRS EXCESS 8 DAY WK 1",135)=""
^DD(459.01,"B","HRS EXCESS 8 DAY WK 2",136)=""
^DD(459.01,"B","INCENTIVE AWARD",104)=""
^DD(459.01,"B","LABOR DISTRIBUTION",173)=""
^DD(459.01,"B","LOCALITY PAY CPPD",149)=""
^DD(459.01,"B","LWOP HOURS CPPD",122)=""
^DD(459.01,"B","LWOP HOURS/DAYS CPPD",79)=""
^DD(459.01,"B","MEDICARE AMT WITHHELD CPPD",25)=""
^DD(459.01,"B","MEDICARE GROSS PAY CPPD",26)=""
^DD(459.01,"B","MILITARY LEAVE USED CPPD",158)=""
^DD(459.01,"B","MOVING EXPENSES CPPD",108)=""
^DD(459.01,"B","MSD DEDUCTION CPPD",48)=""
^DD(459.01,"B","NAME",.01)=""
^DD(459.01,"B","NET PAY CPPD",82)=""
^DD(459.01,"B","NET PAY OUT-OF-SYSTEM AMT CPPD",83)=""
^DD(459.01,"B","NEW SSN",111)=""
^DD(459.01,"B","NIGHT DIFF AMT CPPD",90)=""
^DD(459.01,"B","NIGHT DIFF HRS CPPD",91)=""
^DD(459.01,"B","NON-OVERTIME AMT",140)=""
^DD(459.01,"B","NON-OVERTIME HOURS",139)=""
^DD(459.01,"B","NONPAY ANNUAL LEAVE USED CPPD",80)=""
^DD(459.01,"B","NONPAY HOURS CPPD",123)=""
^DD(459.01,"B","NONPAY HOURS/DAYS CPPD",112)=""
^DD(459.01,"B","NORMAL HOURS",11)=""
^DD(459.01,"B","OASDI TAX AMT WITHHELD CPPD",27)=""
^DD(459.01,"B","OASDI TAX GROSS PAY CPPD",28)=""
^DD(459.01,"B","OASDI TAX VA SHARE CPPD",29)=""
^DD(459.01,"B","ON CALL AMT CPPD",93)=""
^DD(459.01,"B","ON CALL HRS CPPD",92)=""
^DD(459.01,"B","OT ON HOL AMT",142)=""
^DD(459.01,"B","OT ON HOL HOURS",141)=""
^DD(459.01,"B","OTHER SICK LEAVE USED CPPD",156)=""
^DD(459.01,"B","OVERTIME AMT CPPD",94)=""
^DD(459.01,"B","OVERTIME AMT WK 1",133)=""
^DD(459.01,"B","OVERTIME AMT WK 2",134)=""
^DD(459.01,"B","OVERTIME HOURS CPPD",95)=""
^DD(459.01,"B","OVERTIME HOURS WK 1",131)=""
^DD(459.01,"B","OVERTIME HOURS WK 2",132)=""
^DD(459.01,"B","PARKING DEDUCTION CPPD",42)=""
^DD(459.01,"B","PAY PLAN",2)=""
^DD(459.01,"B","PERFORMANCE AWARD",104.1)=""
^DD(459.01,"B","POST DIFF AMT CPPD",96)=""
^DD(459.01,"B","QUARTERS DEDUCTION CPPD",44)=""
^DD(459.01,"B","QUARTERS NON-HSKP DED CPPD",43)=""
^DD(459.01,"B","RECRUITMENT BONUS",126)=""
^DD(459.01,"B","REEMP ANNUITANT BASE PAY REDUC",84)=""
^DD(459.01,"B","REG HOURS AT OT RATE",86)=""
^DD(459.01,"B","REG HOURS AT OT RATE AMT WK 1",86.3)=""
^DD(459.01,"B","REG HOURS AT OT RATE AMT WK 2",86.4)=""
^DD(459.01,"B","REG HOURS AT OT RATE WK 1",86.1)=""
^DD(459.01,"B","REG HOURS AT OT RATE WK 2",86.2)=""
^DD(459.01,"B","RELOCATION BONUS",125)=""
^DD(459.01,"B","RETENTION ALLOWANCE",127)=""
^DD(459.01,"B","RETIREMENT DED CPPD",39)=""
^DD(459.01,"B","RETIREMENT VA SHARE CPPD",40)=""
^DD(459.01,"B","SALARY",13)=""
^DD(459.01,"B","SATURDAY AMT CPPD",97)=""
^DD(459.01,"B","SAVINGS ALLOTMENT-1 AMT CPPD",70)=""
^DD(459.01,"B","SAVINGS ALLOTMENT-2 AMT CPPD",71)=""
^DD(459.01,"B","SAVINGS BOND DED SUM CPPD",69)=""
^DD(459.01,"B","SAVINGS BOND-1 BALANCE",67)=""
^DD(459.01,"B","SAVINGS BOND-1 TYPE",67.1)=""
^DD(459.01,"B","SAVINGS BOND-2 BALANCE",68)=""
^DD(459.01,"B","SAVINGS BOND-2 TYPE",68.1)=""
^DD(459.01,"B","SAVINGS BOND-3 BALANCE",68.2)=""
^DD(459.01,"B","SAVINGS BOND-3 TYPE",68.3)=""
^DD(459.01,"B","SAVINGS BOND-4 BALANCE",68.4)=""
^DD(459.01,"B","SAVINGS BOND-4 TYPE",68.5)=""
^DD(459.01,"B","SES PERFORMANCE AWARD AMT CPPD",105)=""
^DD(459.01,"B","SEVERANCE PAY AMT CPPD",74)=""
^DD(459.01,"B","SPECIAL PAY RATE DIFFERENCE",114)=""
^DD(459.01,"B","SPECIAL SALARY ADJUSTMENT",113)=""
^DD(459.01,"B","SSN",1)=""
^DD(459.01,"B","STAFFING DIFFERENTIAL",129)=""
^DD(459.01,"B","STANDBY AMT CPPD",98)=""
^DD(459.01,"B","STATE TAX-1 AMT WITHHELD CPPD",21)=""
^DD(459.01,"B","STATE TAX-2 AMT WITHHELD CPPD",22)=""
^DD(459.01,"B","STEP",4)=""
^DD(459.01,"B","SUBACCT CODE",8)=""
^DD(459.01,"B","SUBSISTANCE DEDUCTION CPPD",45)=""
^DD(459.01,"B","SUNDAY AMT CPPD",99)=""
^DD(459.01,"B","SUNDAY HRS CPPD",100)=""
^DD(459.01,"B","SUPERVISORY DIFFERENTIAL CPPD",130)=""
^DD(459.01,"B","T & L UNIT",12)=""
^DD(459.01,"B","TAX GARNISHMENT-1",150)=""
^DD(459.01,"B","TAX GARNISHMENT-2",151)=""
^DD(459.01,"B","TAX GARNISHMENT-3",178)=""
^DD(459.01,"B","TAX GARNISHMENT-4",179)=""
^DD(459.01,"B","TOTAL BENEFITS CPPD",121)=""
^DD(459.01,"B","TOTAL COMPENSATION CPPD",119)=""
^DD(459.01,"B","TOTAL SICK LEAVE HRS USED CPPD",80.2)=""
^DD(459.01,"B","TOTAL SICK LEAVE USED CPPD",76)=""
^DD(459.01,"B","TRAINING WK 1",143)=""
^DD(459.01,"B","TRAINING WK 2",144)=""
^DD(459.01,"B","TRAVEL HOURS WK 1",145)=""
^DD(459.01,"B","TRAVEL HOURS WK 2",146)=""
^DD(459.01,"B","TRAVEL OVERTIME WK 1",147)=""
^DD(459.01,"B","TRAVEL OVERTIME WK 2",148)=""
^DD(459.01,"B","TRAVEL SAVINGS AWARD",172)=""
^DD(459.01,"B","TSP CSF EMP DED CPPD",58)=""
^DD(459.01,"B","TSP CSF GOV BASIC CONTRIB",61)=""
^DD(459.01,"B","TSP CSF GOV MATCH CONTRIB",64)=""
^DD(459.01,"B","TSP FIF EMP DED CPPD",59)=""
^DD(459.01,"B","TSP FIF GOV BASIC CONTRIB",62)=""
^DD(459.01,"B","TSP FIF GOV MATCH CONTRIB",65)=""
^DD(459.01,"B","TSP GSF EMP DED CPPD",60)=""
^DD(459.01,"B","TSP GSF GOV BASIC CONTRIB",63)=""
^DD(459.01,"B","TSP GSF GOV MATCH CONTRIB",66)=""
^DD(459.01,"B","TSP LOAN DED CPPD",56)=""
^DD(459.01,"B","TSP PRIOR TAX YEAR ADJ CODE",57)=""
^DD(459.01,"B","UNIFORM ALLOWANCE AMT CPPD",109)=""
^DD(459.01,"B","UNION DUES-1 DEDUCTION CPPD",53)=""
^DD(459.01,"B","UNION DUES-2 DEDUCTION CPPD",54)=""
^DD(459.01,"B","UNSCHEDULED HOURS",110)=""
^DD(459.01,"B","VARIABLE COSTS CPPD",120)=""
^DD(459.01,"B","VCS ALLOTMENT AMT",171)=""
^DD(459.01,"B","VCS LEAVE COST ADJUSTMENT AMT",115)=""
^DD(459.01,"B","VCS MINWAGE CD PW CPPD",116)=""
^DD(459.01,"B","VCS SALE SUM PW CPPD",117)=""
^DD(459.01,"B","VOLUNTARY ALLOTMENT AMT CPPD",72)=""
^DD(459.01,"B","VOLUNTARY ALLOTMENT-3 AMT",169)=""
^DD(459.01,"B","VOLUNTARY ALLOTMENT-4 AMT",170)=""
^DD(459.01,"GL",0,1,.01)=""
^DD(459.01,"GL",0,2,1)=""
^DD(459.01,"GL",0,3,2)=""
^DD(459.01,"GL",0,4,3)=""
^DD(459.01,"GL",0,5,4)=""
^DD(459.01,"GL",0,6,5)=""
^DD(459.01,"GL",0,7,6)=""
^DD(459.01,"GL",0,8,7)=""
^DD(459.01,"GL",0,9,8)=""
^DD(459.01,"GL",0,10,9)=""
^DD(459.01,"GL",0,11,10)=""
^DD(459.01,"GL",0,12,11)=""
^DD(459.01,"GL",0,13,12)=""
^DD(459.01,"GL",0,14,13)=""
^DD(459.01,"GL",1,1,20)=""
^DD(459.01,"GL",1,2,21)=""
^DD(459.01,"GL",1,3,22)=""
^DD(459.01,"GL",1,4,23)=""
^DD(459.01,"GL",1,5,24)=""
^DD(459.01,"GL",1,6,25)=""
^DD(459.01,"GL",1,7,26)=""
^DD(459.01,"GL",1,8,27)=""
^DD(459.01,"GL",1,9,28)=""
^DD(459.01,"GL",1,10,29)=""
^DD(459.01,"GL",1,11,30)=""
^DD(459.01,"GL",1,12,31)=""
^DD(459.01,"GL",1,13,32)=""
^DD(459.01,"GL",1,14,33)=""
^DD(459.01,"GL",1,15,34)=""
^DD(459.01,"GL",1,16,35)=""
^DD(459.01,"GL",1,17,36)=""
^DD(459.01,"GL",1,18,37)=""
^DD(459.01,"GL",1,19,38)=""
^DD(459.01,"GL",1,20,39)=""
^DD(459.01,"GL",1,21,40)=""
^DD(459.01,"GL",1,22,41)=""
^DD(459.01,"GL",1,23,42)=""
^DD(459.01,"GL",1,24,43)=""
^DD(459.01,"GL",1,25,44)=""
^DD(459.01,"GL",1,26,45)=""
^DD(459.01,"GL",1,27,46)=""
^DD(459.01,"GL",1,28,47)=""
^DD(459.01,"GL",1,29,48)=""
^DD(459.01,"GL",2,1,49)=""
^DD(459.01,"GL",2,2,50)=""
^DD(459.01,"GL",2,3,51)=""
^DD(459.01,"GL",2,4,52)=""
^DD(459.01,"GL",2,5,53)=""
^DD(459.01,"GL",2,6,54)=""
^DD(459.01,"GL",2,7,55)=""
^DD(459.01,"GL",2,8,56)=""
^DD(459.01,"GL",2,9,57)=""
^DD(459.01,"GL",2,10,58)=""
^DD(459.01,"GL",2,11,59)=""
^DD(459.01,"GL",2,12,60)=""
^DD(459.01,"GL",2,13,61)=""
^DD(459.01,"GL",2,14,62)=""
^DD(459.01,"GL",2,15,63)=""
^DD(459.01,"GL",2,16,64)=""
^DD(459.01,"GL",2,17,65)=""
^DD(459.01,"GL",2,18,66)=""
^DD(459.01,"GL",2,19,67)=""
^DD(459.01,"GL",2,20,68)=""
^DD(459.01,"GL",2,21,69)=""
^DD(459.01,"GL",2,22,70)=""
^DD(459.01,"GL",2,23,71)=""
^DD(459.01,"GL",2,24,72)=""
^DD(459.01,"GL",2,25,67.1)=""
^DD(459.01,"GL",2,26,68.1)=""
^DD(459.01,"GL",3,1,73)=""
^DD(459.01,"GL",3,2,74)=""
^DD(459.01,"GL",3,3,150)=""
^DD(459.01,"GL",3,4,151)=""
^DD(459.01,"GL",3,5,152)=""
^DD(459.01,"GL",3,6,153)=""
^DD(459.01,"GL",3,7,154)=""
^DD(459.01,"GL",3,8,155)=""
^DD(459.01,"GL",3,9,156)=""
^DD(459.01,"GL",3,10,157)=""
^DD(459.01,"GL",3,11,178)=""
^DD(459.01,"GL",3,12,179)=""
^DD(459.01,"GL",3,13,180)=""
^DD(459.01,"GL",3,14,181)=""
^DD(459.01,"GL",4,1,75)=""
^DD(459.01,"GL",4,2,76)=""
^DD(459.01,"GL",4,3,77)=""
^DD(459.01,"GL",4,4,78)=""
^DD(459.01,"GL",4,5,79)=""
^DD(459.01,"GL",4,6,80)=""
^DD(459.01,"GL",4,7,80.1)=""
^DD(459.01,"GL",4,8,80.2)=""
^DD(459.01,"GL",4,9,122)=""
^DD(459.01,"GL",5,1,81)=""
^DD(459.01,"GL",5,2,82)=""
^DD(459.01,"GL",5,3,83)=""
^DD(459.01,"GL",5,4,84)=""
^DD(459.01,"GL",5,5,85)=""
^DD(459.01,"GL",5,6,86)=""
^DD(459.01,"GL",5,7,87)=""
^DD(459.01,"GL",5,8,88)=""
^DD(459.01,"GL",5,9,89)=""
^DD(459.01,"GL",5,10,90)=""
^DD(459.01,"GL",5,11,91)=""
^DD(459.01,"GL",5,12,92)=""
^DD(459.01,"GL",5,13,93)=""
^DD(459.01,"GL",5,14,94)=""
^DD(459.01,"GL",5,15,95)=""
^DD(459.01,"GL",5,16,96)=""
^DD(459.01,"GL",5,17,97)=""
^DD(459.01,"GL",5,18,98)=""
^DD(459.01,"GL",5,19,99)=""
^DD(459.01,"GL",5,20,100)=""
^DD(459.01,"GL",5,21,101)=""
^DD(459.01,"GL",5,22,102)=""
^DD(459.01,"GL",5,23,103)=""
^DD(459.01,"GL",5,24,104)=""
^DD(459.01,"GL",5,25,105)=""
^DD(459.01,"GL",5,26,106)=""
^DD(459.01,"GL",5,27,107)=""
^DD(459.01,"GL",5,28,108)=""
^DD(459.01,"GL",5,29,109)=""
^DD(459.01,"GL",5,30,110)=""
^DD(459.01,"GL",5,31,104.1)=""
^DD(459.01,"GL",6,1,111)=""
^DD(459.01,"GL",6,2,112)=""
^DD(459.01,"GL",6,3,113)=""
^DD(459.01,"GL",6,4,114)=""
^DD(459.01,"GL",6,5,123)=""
^DD(459.01,"GL",6,6,145)=""
^DD(459.01,"GL",6,7,146)=""
^DD(459.01,"GL",6,8,147)=""
^DD(459.01,"GL",6,9,148)=""
^DD(459.01,"GL",7,1,115)=""
^DD(459.01,"GL",7,2,116)=""
^DD(459.01,"GL",7,3,117)=""
^DD(459.01,"GL",8,1,118)=""
^DD(459.01,"GL",8,2,119)=""
^DD(459.01,"GL",8,3,120)=""
^DD(459.01,"GL",8,4,121)=""
^DD(459.01,"GL",8,5,124)=""
^DD(459.01,"GL",8,6,125)=""
^DD(459.01,"GL",8,7,126)=""
^DD(459.01,"GL",8,8,127)=""
^DD(459.01,"GL",8,9,128)=""
^DD(459.01,"GL",8,10,129)=""
^DD(459.01,"GL",8,11,130)=""
^DD(459.01,"GL",8,12,131)=""
^DD(459.01,"GL",8,13,132)=""
^DD(459.01,"GL",8,14,133)=""
^DD(459.01,"GL",8,15,134)=""
^DD(459.01,"GL",8,16,135)=""
^DD(459.01,"GL",8,17,136)=""
^DD(459.01,"GL",8,18,137)=""
^DD(459.01,"GL",8,19,138)=""
^DD(459.01,"GL",8,20,86.1)=""
^DD(459.01,"GL",8,21,86.2)=""
^DD(459.01,"GL",8,22,86.3)=""
^DD(459.01,"GL",8,23,86.4)=""
^DD(459.01,"GL",8,24,139)=""
^DD(459.01,"GL",8,25,140)=""
^DD(459.01,"GL",8,26,141)=""
^DD(459.01,"GL",8,27,142)=""
^DD(459.01,"GL",8,28,143)=""
^DD(459.01,"GL",8,29,144)=""
^DD(459.01,"GL",8,30,149)=""
^DD(459.01,"GL",9,1,158)=""
^DD(459.01,"GL",9,2,68.3)=""
^DD(459.01,"GL",9,3,68.2)=""
^DD(459.01,"GL",9,4,68.5)=""
^DD(459.01,"GL",9,5,68.4)=""
^DD(459.01,"GL",9,6,168)=""
^DD(459.01,"GL",9,7,167)=""
^DD(459.01,"GL",9,8,169)=""
^DD(459.01,"GL",9,9,170)=""
^DD(459.01,"GL",9,10,171)=""
^DD(459.01,"GL",9,11,172)=""
^DD(459.01,"GL",9,12,174)=""
^DD(459.01,"GL",9,13,175)=""
^DD(459.01,"GL",9,14,176)=""
^DD(459.01,"GL",9,15,177)=""
^DD(459.01,"GL",9,16,159)=""
^DD(459.01,"GL",9,17,160)=""
^DD(459.01,"GL",9,18,182)=""
^DD(459.01,"GL","LD",0,173)=""
^DD(459.01,"IX",.01)=""
^DD(459.01,"SB",459.1173,173)=""
^DD(459.1173,0)="LABOR DISTRIBUTION SUB-FIELD^^4^5"
^DD(459.1173,0,"DT")="3030730"
^DD(459.1173,0,"IX","B",459.1173,.01)=""
^DD(459.1173,0,"NM","LABOR DISTRIBUTION")=""
^DD(459.1173,0,"UP")="459.01"
^DD(459.1173,.01,0)="LABOR DISTRIBUTION^NJ1,0^^0;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(459.1173,.01,1,0)="^.1"
^DD(459.1173,.01,1,1,0)="459.1173^B"
^DD(459.1173,.01,1,1,1)="S ^PRST(459,DA(2),""P"",DA(1),""LD"",""B"",$E(X,1,30),DA)="""""
^DD(459.1173,.01,1,1,2)="K ^PRST(459,DA(2),""P"",DA(1),""LD"",""B"",$E(X,1,30),DA)"
^DD(459.1173,.01,3)="Type a Number between 1 and 4, 0 Decimal Digits."
^DD(459.1173,.01,21,0)="^^1^1^3030722^^"
^DD(459.1173,.01,21,1,0)="The number representing the distributions 1 through 4."
^DD(459.1173,.01,"DT")="3030722"
^DD(459.1173,1,0)="CODE^F^^0;2^K:$L(X)>4!($L(X)<4) X"
^DD(459.1173,1,3)="Answer must be 4 characters in length."
^DD(459.1173,1,21,0)="^^1^1^3030721^"
^DD(459.1173,1,21,1,0)=" One of four possible Labor Distribution codes assigned to the employee."
^DD(459.1173,1,"DT")="3030721"
^DD(459.1173,2,0)="PERCENT^NJ4,2^^0;3^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(459.1173,2,3)="Type a Number between 0 and 1, 2 Decimal Digits."
^DD(459.1173,2,21,0)="^^1^1^3030721^"
^DD(459.1173,2,21,1,0)="The percentage assigned to the Labor Distribution code."
^DD(459.1173,2,"DT")="3030722"
^DD(459.1173,3,0)="COST CENTER^F^^0;4^K:$L(X)>4!($L(X)<4) X"
^DD(459.1173,3,3)="Answer must be 4 characters in length."
^DD(459.1173,3,21,0)="^^1^1^3030730^^"
^DD(459.1173,3,21,1,0)="The Cost Center associated to the Labor Distribution code."
^DD(459.1173,3,"DT")="3030730"
^DD(459.1173,4,0)="FUND CTRL PT^F^^0;5^K:$L(X)>3!($L(X)<3) X"
^DD(459.1173,4,3)="Answer must be 3 characters in length."
^DD(459.1173,4,21,0)="^^1^1^3030721^"
^DD(459.1173,4,21,1,0)="The Fund Control Point assigned to the Labor Distribution code."
^DD(459.1173,4,"DT")="3030721"
^DD(459.1173,"B","CODE",1)=""
^DD(459.1173,"B","COST CENTER",3)=""
^DD(459.1173,"B","FUND CTRL PT",4)=""
^DD(459.1173,"B","LABOR DISTRIBUTION",.01)=""
^DD(459.1173,"B","PERCENT",2)=""
^DD(459.1173,"GL",0,1,.01)=""
^DD(459.1173,"GL",0,2,1)=""
^DD(459.1173,"GL",0,3,2)=""
^DD(459.1173,"GL",0,4,3)=""
^DD(459.1173,"GL",0,5,4)=""
^DD(459.1173,"IX",.01)=""
^DD(470,0)="FIELD^^73^64"
^DD(470,0,"DT")="3020416"
^DD(470,0,"ID",73)="S %I=Y,Y=$S('$D(^(12)):"""",$D(^DIC(4,+$P(^(12),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(470,0,"ID","DEAD")="I $D(^DPT(+Y,.35)),$P(^(.35),U)]"""" W ""   PATIENT HAS EXPIRED"",*7"
^DD(470,0,"IX","AC",470,1)=""
^DD(470,0,"IX","AD",470,60)=""
^DD(470,0,"IX","AE",470,61)=""
^DD(470,0,"IX","AF",470,62)=""
^DD(470,0,"IX","AG",470,63)=""
^DD(470,0,"IX","AH",470,64)=""
^DD(470,0,"IX","AI",470,65)=""
^DD(470,0,"IX","AJ",470,66)=""
^DD(470,0,"IX","AK",470,67)=""
^DD(470,0,"IX","B",470,.01)=""
^DD(470,0,"IX","C",470.03,.01)=""
^DD(470,0,"NM","PATIENT FUNDS")=""
^DD(470,0,"PT",470.1,1)=""
^DD(470,0,"PT",470.5,1)=""
^DD(470,0,"VR")="3.0"
^DD(470,0,"VRPK")="PRPF"
^DD(470,.01,0)="NAME^IRP2'X^DPT(^0;1^S DINUM=X"
^DD(470,.01,1,0)="^.1"
^DD(470,.01,1,1,0)="470^B"
^DD(470,.01,1,1,1)="S ^PRPF(470,""B"",$E(X,1,30),DA)="""""
^DD(470,.01,1,1,2)="K ^PRPF(470,""B"",$E(X,1,30),DA)"
^DD(470,.01,1,2,0)="^^TRIGGER^470^10.9"
^DD(470,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=""YES"" X ^DD(470,.01,1,2,1.4)"
^DD(470,.01,1,2,1.4)="S DIH=$S($D(^PRPF(470,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=470,DIG=10.9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(470,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRPF(470,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=""YES"" X ^DD(470,.01,1,2,2.4)"
^DD(470,.01,1,2,2.4)="S DIH=$S($D(^PRPF(470,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=470,DIG=10.9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(470,.01,1,2,"%D",0)="^^2^2^2970612^"
^DD(470,.01,1,2,"%D",1,0)="This trigger will assure that if a provider conversion is accidentally"
^DD(470,.01,1,2,"%D",2,0)="run, that the provider field will not be changed."
^DD(470,.01,1,2,"CREATE VALUE")="""YES"""
^DD(470,.01,1,2,"DELETE VALUE")="""YES"""
^DD(470,.01,1,2,"DT")="2970612"
^DD(470,.01,1,2,"FIELD")="#10.9"
^DD(470,.01,3)=" "
^DD(470,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I 1"
^DD(470,.01,"DT")="2970612"
^DD(470,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""Additions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(470,1,0)="ACCOUNT STATUS^SX^A:ACTIVE;I:INACTIVE;^0;2^D CKINACT^PRPFED"
^DD(470,1,1,0)="^.1"
^DD(470,1,1,1,0)="470^AC"
^DD(470,1,1,1,1)="S ^PRPF(470,""AC"",$E(X,1,30),DA)="""""
^DD(470,1,1,1,2)="K ^PRPF(470,""AC"",$E(X,1,30),DA)"
^DD(470,1,"DT")="2870713"
^DD(470,2,0)="PATIENT TYPE^S^L:LIMITED UNRESTRICTED;R:RESTRICTED;U:UNRESTRICTED;X:UNKNOWN;^0;3^Q"
^DD(470,2,"DT")="2870309"
^DD(470,3,0)="PATIENT STATUS^S^A:ADJUDGED INCOMPETENT;R:RATED INCOMPETENT;C:COMPETENT;N:NOT RATED;X:UNKNOWN;^0;4^Q"
^DD(470,3,"DT")="2870309"
^DD(470,4,0)="INDIGENT^S^Y:YES;N:NO;^0;5^Q"
^DD(470,4,"DT")="2870309"
^DD(470,5,0)="APPORTIONEE $^NJ9,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(470,5,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(470,5,"DT")="2870309"
^DD(470,6,0)="GUARDIAN $^NJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(470,6,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(470,7,0)="INSTITUTIONAL AWARD^NJ9,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(470,7,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(470,8,0)="REGIONAL OFFICE^P4'^DIC(4,^0;9^Q"
^DD(470,8,"DT")="2870309"
^DD(470,9,0)="OTHER ASSETS^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(470,9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999999"
^DD(470,9,"DT")="2870309"
^DD(470,10,0)="DATE OF LAST TRANSACTION^D^^0;11^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(470,10,"DT")="2870309"
^DD(470,10.5,0)="DATE OF CURRENT RESTRICTION^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470,10.5,"DT")="2870309"
^DD(470,10.7,0)="PROVIDER AUTH RESTRICT^*P200'^VA(200,^0;13^S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U,1)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(470,10.7,12)="Allows user only to select active providers."
^DD(470,10.7,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.PROVIDER"""",$P(^(0),U,1)))"""
^DD(470,10.7,"DT")="2950428"
^DD(470,10.9,0)="PROVIDER CONVERTED^S^1:YES;^0;14^Q"
^DD(470,10.9,5,1,0)="470^.01^2"
^DD(470,10.9,21,0)="^^3^3^2970612^"
^DD(470,10.9,21,1,0)="This field contains a flag indicating that the Provider Authorizing"
^DD(470,10.9,21,2,0)="Restriction field has been converted from pointing to file 6 to pointing"
^DD(470,10.9,21,3,0)="to file 200."
^DD(470,10.9,"DT")="2970612"
^DD(470,11,0)="BALANCE CARRIED FORWARD^NJ10,2^^1;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(470,11,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(470,11,"DT")="2870309"
^DD(470,12,0)="PVT SOURCE CARRIED FORWARD^NJ10,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(470,12,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(470,12,"DT")="2870309"
^DD(470,13,0)="GRATUITOUS CARRIED FORWARD^NJ10,2^^1;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(470,13,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(470,14,0)="STORED BALANCE^NJ10,2^^1;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470,14,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470,14,"DT")="2870309"
^DD(470,14.5,0)="COMPUTED BALANCE^CJ10,2^^ ; ^X ^DD(470,14.5,9.2) X ""F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0  S Y(470,14.5,102)=Y(470,14.5,102)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""""""")"" S D(1)=D1 S X=Y(470,14.5,102) S D0=Y(470,14.5,80) S D1=Y(470,14.5,81)"
^DD(470,14.5,9)="^"
^DD(470,14.5,9.01)="470.01^2"
^DD(470,14.5,9.1)="TOTAL(PATIENT TRANSACTION:TRANSACTION AMOUNT)"
^DD(470,14.5,9.2)="S Y(470,14.5,80)=$S($D(D0):D0,1:""""),Y(470,14.5,81)=$S($D(D1):D1,1:""""),Y(470,14.5,102)="""""
^DD(470,14.5,"DT")="2970224"
^DD(470,15,0)="STORED PRIVATE SOURCE^NJ10,2^^1;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470,15,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470,15.5,0)="COMPUTED PRIVATE SOURCE^CJ10,2^^ ; ^X ^DD(470,15.5,9.2) X ""F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0  S Y(470,15.5,102)=Y(470,15.5,102)+$S($D(^(D1,0)):$P(^(0),U,4),1:"""""""")"" S D(1)=D1 S X=Y(470,15.5,102) S D0=Y(470,15.5,80) S D1=Y(470,15.5,81)"
^DD(470,15.5,9)="^"
^DD(470,15.5,9.01)="470.01^3"
^DD(470,15.5,9.1)="TOTAL(PATIENT TRANSACTION:PRIVATE SOURCE AMOUNT)"
^DD(470,15.5,9.2)="S Y(470,15.5,80)=$S($D(D0):D0,1:""""),Y(470,15.5,81)=$S($D(D1):D1,1:""""),Y(470,15.5,102)="""""
^DD(470,15.5,"DT")="2970224"
^DD(470,16,0)="STORED GRATUITOUS^NJ10,2^^1;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470,16,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470,16.5,0)="COMPUTED GRATUITOUS^CJ10,2^^ ; ^X ^DD(470,16.5,9.2) X ""F D1=0:0 S D1=$O(^PRPF(470,D0,3,D1)) Q:D1'>0  S Y(470,16.5,102)=Y(470,16.5,102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""""""")"" S D(1)=D1 S X=Y(470,16.5,102) S D0=Y(470,16.5,80) S D1=Y(470,16.5,81)"
^DD(470,16.5,9)="^"
^DD(470,16.5,9.01)="470.01^4"
^DD(470,16.5,9.1)="TOTAL(PATIENT TRANSACTION:GRATUITOUS AMOUNT)"
^DD(470,16.5,9.2)="S Y(470,16.5,80)=$S($D(D0):D0,1:""""),Y(470,16.5,81)=$S($D(D1):D1,1:""""),Y(470,16.5,102)="""""
^DD(470,16.5,"DT")="2970224"
^DD(470,17,0)="AMOUNT RESTRICTED PER MONTH^NJ8,2^^1;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X"
^DD(470,17,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(470,17,"DT")="2870309"
^DD(470,18,0)="AMOUNT RESTRICTED PER WEEK^NJ8,2^^1;8^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<0) X"
^DD(470,18,3)="TYPE A NUMBER BETWEEN 0 AND 99999"
^DD(470,19,0)="RESTRICTION MONTH^D^^1;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(470,19,"DT")="2870309"
^DD(470,20,0)="RESTRICTION WEEK #^NJ4,0^^1;10^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(470,20,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(470,20,"DT")="2870309"
^DD(470,21,0)="MONTHLY RESTRICTION BALANCE^NJ8,2^^1;11^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>99999)!(X<-99999) X"
^DD(470,21,3)="TYPE A NUMBER BETWEEN -99999 AND 99999"
^DD(470,21,"DT")="2870309"
^DD(470,22,0)="WEEKLY RESTRICTION BALANCE^NJ8,2^^1;12^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>99999)!(X<-99999) X"
^DD(470,22,3)="TYPE A NUMBER BETWEEN -99999 AND 99999"
^DD(470,23,0)="MINIMUM BALANCE #1^NJ9,2^^2;1^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(470,23,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(470,23,"DT")="2870309"
^DD(470,24,0)="MAXIMUM BALANCE #1^NJ9,2^^2;2^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(470,24,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(470,25,0)="MINIMUM BALANCE #2^NJ9,2^^2;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(470,25,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(470,26,0)="MAXIMUM BALANCE #2^NJ9,2^^2;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(470,26,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(470,30,0)="PATIENT TRANSACTION^470.01P^^3;0"
^DD(470,30,21,0)="^^2^2^2880302^"
^DD(470,30,21,1,0)="This field stores the current master transactions affecting a patient account.  As archiving becomes available, the data contained in this field will"
^DD(470,30,21,2,0)="only be a subset of all the master transactions affecting a specific veteran."
^DD(470,30.5,0)="DEFERRED BALANCE^CJ10,2^^ ; ^X ^DD(470,30.5,9.2) X ""F D1=0:0 S D1=$O(^PRPF(470,D0,4,D1)) Q:D1'>0  S Y(470,30.5,102)=Y(470,30.5,102)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""""""")"" S D(1)=D1 S X=Y(470,30.5,102) S D0=Y(470,30.5,80) S D1=Y(470,30.5,81)"
^DD(470,30.5,9)="^"
^DD(470,30.5,9.01)="470.02^2"
^DD(470,30.5,9.1)="TOTAL(#31:#2)"
^DD(470,30.5,9.2)="S Y(470,30.5,80)=$S($D(D0):D0,1:""""),Y(470,30.5,81)=$S($D(D1):D1,1:""""),Y(470,30.5,102)="""""
^DD(470,30.5,"DT")="2970224"
^DD(470,31,0)="DEFERRED CREDIT REF #^470.02A^^4;0"
^DD(470,32,0)="SUSPENSE DATE^470.03D^^5;0"
^DD(470,33,0)="INCOME SOURCE^470.05^^6;0"
^DD(470,34,0)="GENERAL INFORMATION/REMARKS^470.06^^7;0"
^DD(470,35,0)="SPECIAL REMARKS^470.035^^8;0"
^DD(470,35,21,0)="^^2^2^2871013^"
^DD(470,35,21,1,0)="This field is designed to store those remarks which are to be viewed by"
^DD(470,35,21,2,0)="Patient Funds Personnel ONLY."
^DD(470,50,0)="SSN^CJ11^^ ; ^X ^DD(470,50,9.2) S X=$P(Y(470,50,101),U,9) S D0=Y(470,50,80)"
^DD(470,50,9)="^"
^DD(470,50,9.01)="2^.09;470^.01"
^DD(470,50,9.1)="NAME:SSN"
^DD(470,50,9.2)="S Y(470,50,80)=$S($D(D0):D0,1:""""),Y(470,50,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,50,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,50,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(470,51,0)="DOB^DC^^ ; ^X ^DD(470,51,9.2) S X=$P(Y(470,51,101),U,3) S D0=Y(470,51,80)"
^DD(470,51,9)="^"
^DD(470,51,9.01)="2^.03;470^.01"
^DD(470,51,9.1)="NAME:DOB"
^DD(470,51,9.2)="S Y(470,51,80)=$S($D(D0):D0,1:""""),Y(470,51,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,51,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,51,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(470,52,0)="WARD^CJ15X^^ ; ^S X="""",DFN=$S($D(DA):DA,$D(D0):D0,1:"""") I DFN["""" D DGINPW^PRPFU1 S X=DFN(.1) K DFN(.1)"
^DD(470,52,9)="^"
^DD(470,52,9.01)=" "
^DD(470,52,9.1)="S X="""",DFN=$S($D(DA):DA,$D(D0):D0,1:"""") I DFN["""" D DGINPW^PRPFU1 S X=DFN(.1) K DFN(.1)"
^DD(470,52,9.2)="S Y(470,52,80)=$S($D(D0):D0,1:""""),Y(470,52,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,52,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,52,101)=$S($D(^DPT(D0,.1)):^(.1),1:"""")"
^DD(470,52,"DT")="2920219"
^DD(470,53,0)="CLAIM NUMBER^CJ9^^ ; ^X ^DD(470,53,9.2) S X=$P(Y(470,53,101),U,3) S D0=Y(470,53,80)"
^DD(470,53,9)="^"
^DD(470,53,9.01)="2^.313;470^.01"
^DD(470,53,9.1)="NAME:CLAIM NUMBER"
^DD(470,53,9.2)="S Y(470,53,80)=$S($D(D0):D0,1:""""),Y(470,53,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,53,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,53,101)=$S($D(^DPT(D0,.31)):^(.31),1:"""")"
^DD(470,54,0)="STREET ADDRESS^CJ35^^ ; ^X ^DD(470,54,9.2) S X=$P(Y(470,54,101),U,1) S D0=Y(470,54,80)"
^DD(470,54,9)="^"
^DD(470,54,9.01)="2^.111;470^.01"
^DD(470,54,9.1)="NAME:STREET ADDRESS"
^DD(470,54,9.2)="S Y(470,54,80)=$S($D(D0):D0,1:""""),Y(470,54,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,54,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,54,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(470,55,0)="STREET ADDRESS 2^CJ30^^ ; ^X ^DD(470,55,9.2) S X=$P(Y(470,55,101),U,2) S D0=Y(470,55,80)"
^DD(470,55,9)="^"
^DD(470,55,9.01)="2^.112;470^.01"
^DD(470,55,9.1)="NAME:STREET ADDRESS 2"
^DD(470,55,9.2)="S Y(470,55,80)=$S($D(D0):D0,1:""""),Y(470,55,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,55,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,55,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(470,56,0)="STREET ADDRESS 3^CJ30^^ ; ^X ^DD(470,56,9.2) S X=$P(Y(470,56,101),U,3) S D0=Y(470,56,80)"
^DD(470,56,9)="^"
^DD(470,56,9.01)="2^.113;470^.01"
^DD(470,56,9.1)="NAME:STREET ADDRESS 3"
^DD(470,56,9.2)="S Y(470,56,80)=$S($D(D0):D0,1:""""),Y(470,56,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,56,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,56,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(470,57,0)="CITY^CJ15^^ ; ^X ^DD(470,57,9.2) S X=$P(Y(470,57,101),U,4) S D0=Y(470,57,80)"
^DD(470,57,9)="^"
^DD(470,57,9.01)="2^.114;470^.01"
^DD(470,57,9.1)="NAME:CITY"
^DD(470,57,9.2)="S Y(470,57,80)=$S($D(D0):D0,1:""""),Y(470,57,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,57,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,57,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(470,58,0)="STATE^CJ30^^ ; ^X ^DD(470,58,9.2) S X=$S('$D(^DIC(5,+$P(Y(470,58,101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=Y(470,58,80)"
^DD(470,58,9)="^"
^DD(470,58,9.01)="2^.115;470^.01"
^DD(470,58,9.1)="NAME:STATE"
^DD(470,58,9.2)="S Y(470,58,80)=$S($D(D0):D0,1:""""),Y(470,58,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,58,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,58,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(470,58,"DT")="2870311"
^DD(470,59,0)="ZIP CODE^CJ10^^ ; ^X ^DD(470,59,9.2) S X=$P(Y(470,59,101),U,6) S D0=Y(470,59,80)"
^DD(470,59,9)="^"
^DD(470,59,9.01)="2^.116;470^.01"
^DD(470,59,9.1)="NAME:ZIP CODE"
^DD(470,59,9.2)="S Y(470,59,80)=$S($D(D0):D0,1:""""),Y(470,59,1)=$S($D(^PRPF(470,D0,0)):^(0),1:""""),D0=$P(Y(470,59,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(470,59,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(470,60,0)="CARD TO BE PRINTED?^RSI^Y:YES;^1;13^Q"
^DD(470,60,1,0)="^.1"
^DD(470,60,1,1,0)="470^AD"
^DD(470,60,1,1,1)="S ^PRPF(470,""AD"",$E(X,1,30),DA)="""""
^DD(470,60,1,1,2)="K ^PRPF(470,""AD"",$E(X,1,30),DA)"
^DD(470,60,"DT")="2890127"
^DD(470,61,0)="ON DORMANT ACCOUNT LIST^RSI^Y:YES;^1;14^Q"
^DD(470,61,1,0)="^.1"
^DD(470,61,1,1,0)="470^AE"
^DD(470,61,1,1,1)="S ^PRPF(470,""AE"",$E(X,1,30),DA)="""""
^DD(470,61,1,1,2)="K ^PRPF(470,""AE"",$E(X,1,30),DA)"
^DD(470,61,"DT")="2890127"
^DD(470,62,0)="ON MIN/MAX1 LIST^RSI^Y:YES;^1;15^Q"
^DD(470,62,1,0)="^.1"
^DD(470,62,1,1,0)="470^AF"
^DD(470,62,1,1,1)="S ^PRPF(470,""AF"",$E(X,1,30),DA)="""""
^DD(470,62,1,1,2)="K ^PRPF(470,""AF"",$E(X,1,30),DA)"
^DD(470,62,"DT")="2890127"
^DD(470,63,0)="ON MIN/MAX2 LIST^RSI^Y:YES;^1;16^Q"
^DD(470,63,1,0)="^.1"
^DD(470,63,1,1,0)="470^AG"
^DD(470,63,1,1,1)="S ^PRPF(470,""AG"",$E(X,1,30),DA)="""""
^DD(470,63,1,1,2)="K ^PRPF(470,""AG"",$E(X,1,30),DA)"
^DD(470,63,"DT")="2890127"
^DD(470,64,0)="ACCOUNT OUT OF BALANCE^RSI^Y:YES;^1;17^Q"
^DD(470,64,1,0)="^.1"
^DD(470,64,1,1,0)="470^AH"
^DD(470,64,1,1,1)="S ^PRPF(470,""AH"",$E(X,1,30),DA)="""""
^DD(470,64,1,1,2)="K ^PRPF(470,""AH"",$E(X,1,30),DA)"
^DD(470,64,"DT")="2890127"
^DD(470,65,0)="ON SUSPENSE DISPLAY LIST^RSI^Y:YES;^1;18^Q"
^DD(470,65,1,0)="^.1"
^DD(470,65,1,1,0)="470^AI"
^DD(470,65,1,1,1)="S ^PRPF(470,""AI"",$E(X,1,30),DA)="""""
^DD(470,65,1,1,2)="K ^PRPF(470,""AI"",$E(X,1,30),DA)"
^DD(470,65,3)=" "
^DD(470,65,"DT")="2890127"
^DD(470,66,0)="ON ACTIVE ACCOUNT LIST^RSI^Y:YES;^1;19^Q"
^DD(470,66,1,0)="^.1"
^DD(470,66,1,1,0)="470^AJ"
^DD(470,66,1,1,1)="S ^PRPF(470,""AJ"",$E(X,1,30),DA)="""""
^DD(470,66,1,1,2)="K ^PRPF(470,""AJ"",$E(X,1,30),DA)"
^DD(470,66,3)=" "
^DD(470,66,"DT")="2890127"
^DD(470,67,0)="PRINT ON OVERDUE LIST?^RSI^Y:YES;^1;20^Q"
^DD(470,67,1,0)="^.1"
^DD(470,67,1,1,0)="470^AK"
^DD(470,67,1,1,1)="S ^PRPF(470,""AK"",$E(X,1,30),DA)="""""
^DD(470,67,1,1,2)="K ^PRPF(470,""AK"",$E(X,1,30),DA)"
^DD(470,67,3)=" "
^DD(470,67,"DT")="2890127"
^DD(470,68,0)="RECORD LOCKED^S^1:YES;0:NO;^9;1^Q"
^DD(470,68,1,0)="^.1^^0"
^DD(470,68,"DT")="2880302"
^DD(470,69,0)="RECORD LOCKED BY^P200'^VA(200,^9;2^Q"
^DD(470,69,"DT")="2950919"
^DD(470,70,0)="RECORD LOCKED TERMINAL^F^^9;3^K:$L(X)>15!($L(X)<1) X"
^DD(470,70,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(470,70,"DT")="2880301"
^DD(470,71,0)="FUTURE MONTH^470.071DA^^10;0"
^DD(470,72,0)="FUTURE WEEK^470.072A^^11;0"
^DD(470,73,0)="STATION NAME^P4'^DIC(4,^12;1^Q"
^DD(470,73,3)="Answer must be 3-5 characters in length"
^DD(470,73,21,0)="^.001^1^1^3020606^^"
^DD(470,73,21,1,0)="This field will be used to store the primary Station Name that a patient is officially assigned to."
^DD(470,73,"DT")="3020606"
^DD(470,"B","ACCOUNT OUT OF BALANCE",64)=""
^DD(470,"B","ACCOUNT STATUS",1)=""
^DD(470,"B","AMOUNT RESTRICTED PER MONTH",17)=""
^DD(470,"B","AMOUNT RESTRICTED PER WEEK",18)=""
^DD(470,"B","APPORTIONEE $",5)=""
^DD(470,"B","BALANCE CARRIED FORWARD",11)=""
^DD(470,"B","CARD TO BE PRINTED?",60)=""
^DD(470,"B","CITY",57)=""
^DD(470,"B","CLAIM NUMBER",53)=""
^DD(470,"B","COMPUTED BALANCE",14.5)=""
^DD(470,"B","COMPUTED GRATUITOUS",16.5)=""
^DD(470,"B","COMPUTED PRIVATE SOURCE",15.5)=""
^DD(470,"B","DATE OF CURRENT RESTRICTION",10.5)=""
^DD(470,"B","DATE OF LAST TRANSACTION",10)=""
^DD(470,"B","DEFERRED BALANCE",30.5)=""
^DD(470,"B","DEFERRED CREDIT REF #",31)=""
^DD(470,"B","DOB",51)=""
^DD(470,"B","FUTURE MONTH",71)=""
^DD(470,"B","FUTURE WEEK",72)=""
^DD(470,"B","GENERAL INFORMATION/REMARKS",34)=""
^DD(470,"B","GRATUITOUS CARRIED FORWARD",13)=""
^DD(470,"B","GUARDIAN $",6)=""
^DD(470,"B","INCOME SOURCE",33)=""
^DD(470,"B","INDIGENT",4)=""
^DD(470,"B","INSTITUTIONAL AWARD",7)=""
^DD(470,"B","MAXIMUM BALANCE #1",24)=""
^DD(470,"B","MAXIMUM BALANCE #2",26)=""
^DD(470,"B","MINIMUM BALANCE #1",23)=""
^DD(470,"B","MINIMUM BALANCE #2",25)=""
^DD(470,"B","MONTHLY RESTRICTION BALANCE",21)=""
^DD(470,"B","NAME",.01)=""
^DD(470,"B","ON ACTIVE ACCOUNT LIST",66)=""
^DD(470,"B","ON DORMANT ACCOUNT LIST",61)=""
^DD(470,"B","ON MIN/MAX1 LIST",62)=""
^DD(470,"B","ON MIN/MAX2 LIST",63)=""
^DD(470,"B","ON SUSPENSE DISPLAY LIST",65)=""
^DD(470,"B","OTHER ASSETS",9)=""
^DD(470,"B","PATIENT STATUS",3)=""
^DD(470,"B","PATIENT TRANSACTION",30)=""
^DD(470,"B","PATIENT TYPE",2)=""
^DD(470,"B","PRINT ON OVERDUE LIST?",67)=""
^DD(470,"B","PROVIDER AUTH RESTRICT",10.7)=""
^DD(470,"B","PROVIDER CONVERTED",10.9)=""
^DD(470,"B","PVT SOURCE CARRIED FORWARD",12)=""
^DD(470,"B","RECORD LOCKED",68)=""
^DD(470,"B","RECORD LOCKED BY",69)=""
^DD(470,"B","RECORD LOCKED TERMINAL",70)=""
^DD(470,"B","REGIONAL OFFICE",8)=""
^DD(470,"B","RESTRICTION MONTH",19)=""
^DD(470,"B","RESTRICTION WEEK #",20)=""
^DD(470,"B","SPECIAL REMARKS",35)=""
^DD(470,"B","SSN",50)=""
^DD(470,"B","STATE",58)=""
^DD(470,"B","STATION NAME",73)=""
^DD(470,"B","STORED BALANCE",14)=""
^DD(470,"B","STORED GRATUITOUS",16)=""
^DD(470,"B","STORED PRIVATE SOURCE",15)=""
^DD(470,"B","STREET ADDRESS",54)=""
^DD(470,"B","STREET ADDRESS 2",55)=""
^DD(470,"B","STREET ADDRESS 3",56)=""
^DD(470,"B","SUSPENSE DATE",32)=""
^DD(470,"B","WARD",52)=""
^DD(470,"B","WEEKLY RESTRICTION BALANCE",22)=""
^DD(470,"B","ZIP CODE",59)=""
^DD(470,"GL",0,1,.01)=""
^DD(470,"GL",0,2,1)=""
^DD(470,"GL",0,3,2)=""
^DD(470,"GL",0,4,3)=""
^DD(470,"GL",0,5,4)=""
^DD(470,"GL",0,6,5)=""
^DD(470,"GL",0,7,6)=""
^DD(470,"GL",0,8,7)=""
^DD(470,"GL",0,9,8)=""
^DD(470,"GL",0,10,9)=""
^DD(470,"GL",0,11,10)=""
^DD(470,"GL",0,12,10.5)=""
^DD(470,"GL",0,13,10.7)=""
^DD(470,"GL",0,14,10.9)=""
^DD(470,"GL",1,1,11)=""
^DD(470,"GL",1,2,12)=""
^DD(470,"GL",1,3,13)=""
^DD(470,"GL",1,4,14)=""
^DD(470,"GL",1,5,15)=""
^DD(470,"GL",1,6,16)=""
^DD(470,"GL",1,7,17)=""
^DD(470,"GL",1,8,18)=""
^DD(470,"GL",1,9,19)=""
^DD(470,"GL",1,10,20)=""
^DD(470,"GL",1,11,21)=""
^DD(470,"GL",1,12,22)=""
^DD(470,"GL",1,13,60)=""
^DD(470,"GL",1,14,61)=""
^DD(470,"GL",1,15,62)=""
^DD(470,"GL",1,16,63)=""
^DD(470,"GL",1,17,64)=""
^DD(470,"GL",1,18,65)=""
^DD(470,"GL",1,19,66)=""
^DD(470,"GL",1,20,67)=""
^DD(470,"GL",2,1,23)=""
^DD(470,"GL",2,2,24)=""
^DD(470,"GL",2,3,25)=""
^DD(470,"GL",2,4,26)=""
^DD(470,"GL",3,0,30)=""
^DD(470,"GL",4,0,31)=""
^DD(470,"GL",5,0,32)=""
^DD(470,"GL",6,0,33)=""
^DD(470,"GL",7,0,34)=""
^DD(470,"GL",8,0,35)=""
^DD(470,"GL",9,1,68)=""
^DD(470,"GL",9,2,69)=""
^DD(470,"GL",9,3,70)=""
^DD(470,"GL",10,0,71)=""
^DD(470,"GL",11,0,72)=""
^DD(470,"GL",12,1,73)=""
^DD(470,"IX",.01)=""
^DD(470,"IX",1)=""
^DD(470,"IX",60)=""
^DD(470,"IX",61)=""
^DD(470,"IX",62)=""
^DD(470,"IX",63)=""
^DD(470,"IX",64)=""
^DD(470,"IX",65)=""
^DD(470,"IX",66)=""
^DD(470,"IX",67)=""
^DD(470,"RQ",.01)=""
^DD(470,"RQ",60)=""
^DD(470,"RQ",61)=""
^DD(470,"RQ",62)=""
^DD(470,"RQ",63)=""
^DD(470,"RQ",64)=""
^DD(470,"RQ",65)=""
^DD(470,"RQ",66)=""
^DD(470,"RQ",67)=""
^DD(470,"SB",470.01,30)=""
^DD(470,"SB",470.02,31)=""
^DD(470,"SB",470.03,32)=""
^DD(470,"SB",470.035,35)=""
^DD(470,"SB",470.05,33)=""
^DD(470,"SB",470.06,34)=""
^DD(470,"SB",470.071,71)=""
^DD(470,"SB",470.072,72)=""
^DD(470.01,0)="PATIENT TRANSACTION SUB-FIELD^^16^16"
^DD(470.01,0,"IX","AC",470.01,1)=""
^DD(470.01,0,"IX","B",470.01,.01)=""
^DD(470.01,0,"NM","PATIENT TRANSACTION")=" "
^DD(470.01,0,"UP")="470"
^DD(470.01,.01,0)="PATIENT TRANSACTION^RP470.1'^PRPF(470.1,^0;1^Q"
^DD(470.01,.01,.1)="TRANS #"
^DD(470.01,.01,1,0)="^.1^^-1"
^DD(470.01,.01,1,1,0)="470.01^B"
^DD(470.01,.01,1,1,1)="S ^PRPF(470,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(470.01,.01,1,1,2)="K ^PRPF(470,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(470.01,.01,3)=" "
^DD(470.01,.01,"DT")="2870901"
^DD(470.01,1,0)="TRANSACTION DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.01,1,1,0)="^.1"
^DD(470.01,1,1,1,0)="470.01^AC"
^DD(470.01,1,1,1,1)="S ^PRPF(470,DA(1),3,""AC"",$E(X,1,30),DA)="""""
^DD(470.01,1,1,1,2)="K ^PRPF(470,DA(1),3,""AC"",$E(X,1,30),DA)"
^DD(470.01,1,"DT")="2870901"
^DD(470.01,2,0)="TRANSACTION AMOUNT^NJ10,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.01,2,.1)="AMOUNT"
^DD(470.01,2,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.01,2,"DT")="2870309"
^DD(470.01,3,0)="PRIVATE SOURCE AMOUNT^NJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.01,3,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.01,4,0)="GRATUITOUS AMOUNT^NJ10,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.01,4,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.01,4,"DT")="2870309"
^DD(470.01,5,0)="BALANCE^NJ10,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.01,5,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.01,5,"DT")="2870309"
^DD(470.01,7,0)="VERIFY AMOUNT^CJ10,2^^ ; ^X ^DD(470.01,7,9.2) S D0=$P(Y(470.01,7,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,7,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.01,7,101),U,4) S D0=Y(470.01,7,80) S D1=Y(470.01,7,81)"
^DD(470.01,7,9)="^"
^DD(470.01,7,9.01)="470.1^3;470.01^.01"
^DD(470.01,7,9.1)="PATIENT TRANSACTION:AMOUNT"
^DD(470.01,7,9.2)="S Y(470.01,7,81)=$S($D(D1):D1,1:""""),Y(470.01,7,80)=$S($D(D0):D0,1:""""),Y(470.01,7,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,8,0)="TRANSACTION DATE^DC^^ ; ^X ^DD(470.01,8,9.2) S D0=$P(Y(470.01,8,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,8,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.01,8,101),U,5) S D0=Y(470.01,8,80) S D1=Y(470.01,8,81)"
^DD(470.01,8,9)="^"
^DD(470.01,8,9.01)="470.1^4;470.01^.01"
^DD(470.01,8,9.1)="PATIENT TRANSACTION:TRANSACTION DATE"
^DD(470.01,8,9.2)="S Y(470.01,8,81)=$S($D(D1):D1,1:""""),Y(470.01,8,80)=$S($D(D0):D0,1:""""),Y(470.01,8,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,9,0)="DATE ENTERED^CJ10^^ ; ^X ^DD(470.01,9,9.3) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S X=X S D0=Y(470.01,9,80) S D1=Y(470.01,9,81)"
^DD(470.01,9,.1)="DATE"
^DD(470.01,9,9)="^"
^DD(470.01,9,9.01)="470.1^5;470.01^.01"
^DD(470.01,9,9.1)="NUMDATE4(PATIENT TRANSACTION:DATE TRANSACTION ENTERED)"
^DD(470.01,9,9.2)="S Y(470.01,9,81)=$S($D(D1):D1,1:""""),Y(470.01,9,80)=$S($D(D0):D0,1:""""),Y(470.01,9,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,9,9.3)="X ^DD(470.01,9,9.2) S D0=$P(Y(470.01,9,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,9,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.01,9,101),U,6)"
^DD(470.01,9,"DT")="2980225"
^DD(470.01,10,0)="REFERENCE^CJ10^^ ; ^X ^DD(470.01,10,9.2) S D0=$P(Y(470.01,10,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,10,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.01,10,101),U,7) S D0=Y(470.01,10,80) S D1=Y(470.01,10,81)"
^DD(470.01,10,9)="^"
^DD(470.01,10,9.01)="470.1^6;470.01^.01"
^DD(470.01,10,9.1)="PATIENT TRANSACTION:REFERENCE"
^DD(470.01,10,9.2)="S Y(470.01,10,81)=$S($D(D1):D1,1:""""),Y(470.01,10,80)=$S($D(D0):D0,1:""""),Y(470.01,10,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,11,0)="DEP/WIT^CJ1^^ ; ^X ^DD(470.01,11,9.3) S X=X S X=X S D0=Y(470.01,11,80) S D1=Y(470.01,11,81)"
^DD(470.01,11,.1)="D/W"
^DD(470.01,11,9)="^"
^DD(470.01,11,9.01)="470.1^7;470.01^.01"
^DD(470.01,11,9.1)="INTERNAL(PATIENT TRANSACTION:DEPOSIT/WITHDRAWAL)"
^DD(470.01,11,9.2)="S Y(470.01,11,81)=$S($D(D1):D1,1:""""),Y(470.01,11,80)=$S($D(D0):D0,1:""""),Y(470.01,11,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,11,9.3)="X ^DD(470.01,11,9.2) S D0=$P(Y(470.01,11,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,11,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.01,11,101),U,8)"
^DD(470.01,11,"DT")="2870706"
^DD(470.01,12,0)="CA/CK/OTH^CJ5^^ ; ^X ^DD(470.01,12,9.3) S Y(470.01,12,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P($P(Y(470.01,12,102),$C(59)_$P(Y(470.01,12,101),U,9)_"":"",2),$C(59),1) S D0=Y(470.01,12,80) S D1=Y(470.01,12,81)"
^DD(470.01,12,9)="^"
^DD(470.01,12,9.01)="470.1^8;470.01^.01"
^DD(470.01,12,9.1)="PATIENT TRANSACTION:CASH/CHECK/OTHER"
^DD(470.01,12,9.2)="S Y(470.01,12,81)=$S($D(D1):D1,1:""""),Y(470.01,12,80)=$S($D(D0):D0,1:""""),Y(470.01,12,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,12,9.3)="X ^DD(470.01,12,9.2) S D0=$P(Y(470.01,12,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,12,102)=$C(59)_$S($D(^DD(470.1,8,0)):$P(^(0),U,3),1:"""")"
^DD(470.01,13,0)="P/G^CJ1^^ ; ^X ^DD(470.01,13,9.3) S X=X S X=X S D0=Y(470.01,13,80) S D1=Y(470.01,13,81)"
^DD(470.01,13,9)="^"
^DD(470.01,13,9.01)="470.1^9;470.01^.01"
^DD(470.01,13,9.1)="INTERNAL(PATIENT TRANSACTION:SOURCE)"
^DD(470.01,13,9.2)="S Y(470.01,13,81)=$S($D(D1):D1,1:""""),Y(470.01,13,80)=$S($D(D0):D0,1:""""),Y(470.01,13,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,13,9.3)="X ^DD(470.01,13,9.2) S D0=$P(Y(470.01,13,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,13,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.01,13,101),U,10)"
^DD(470.01,13,"DT")="2870706"
^DD(470.01,14,0)="FORM^CJ20^^ ; ^X ^DD(470.01,14,9.3) S X=$S('$D(^PRPF(470.2,+$P(Y(470.01,14,101),U,11),0)):"""",1:$P(^(0),U,1)) S D0=Y(470.01,14,80) S D1=Y(470.01,14,81)"
^DD(470.01,14,9)="^"
^DD(470.01,14,9.01)="470.1^10;470.01^.01"
^DD(470.01,14,9.1)="PATIENT TRANSACTION:FORM"
^DD(470.01,14,9.2)="S Y(470.01,14,81)=$S($D(D1):D1,1:""""),Y(470.01,14,80)=$S($D(D0):D0,1:""""),Y(470.01,14,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,14,9.3)="X ^DD(470.01,14,9.2) S D0=$P(Y(470.01,14,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,14,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""")"
^DD(470.01,15,0)="CLERK^CJ30^^ ; ^X ^DD(470.01,15,9.3) S X=$S('$D(^VA(200,+$P(Y(470.01,15,101),U,14),0)):"""",1:$P(^(0),U,1)) S D0=Y(470.01,15,80) S D1=Y(470.01,15,81)"
^DD(470.01,15,9)="^"
^DD(470.01,15,9.01)="470.1^13;470.01^.01"
^DD(470.01,15,9.1)="PATIENT TRANSACTION:PATIENT FUNDS CLERK"
^DD(470.01,15,9.2)="S Y(470.01,15,81)=$S($D(D1):D1,1:""""),Y(470.01,15,80)=$S($D(D0):D0,1:""""),Y(470.01,15,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,15,9.3)="X ^DD(470.01,15,9.2) S D0=$P(Y(470.01,15,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,15,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""")"
^DD(470.01,15,"DT")="2970213"
^DD(470.01,16,0)="REMARKS^CJ35^^ ; ^X ^DD(470.01,16,9.2) S D0=$P(Y(470.01,16,1),U,1) S:'$D(^PRPF(470.1,+D0,0)) D0=-1 S Y(470.01,16,101)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.01,16,101),U,16) S D0=Y(470.01,16,80) S D1=Y(470.01,16,81)"
^DD(470.01,16,9)="^"
^DD(470.01,16,9.01)="470.1^15;470.01^.01"
^DD(470.01,16,9.1)="PATIENT TRANSACTION:REMARKS"
^DD(470.01,16,9.2)="S Y(470.01,16,81)=$S($D(D1):D1,1:""""),Y(470.01,16,80)=$S($D(D0):D0,1:""""),Y(470.01,16,1)=$S($D(^PRPF(470,D0,3,D1,0)):^(0),1:"""")"
^DD(470.01,"B","AMOUNT",2)="1"
^DD(470.01,"B","BALANCE",5)=""
^DD(470.01,"B","CA/CK/OTH",12)=""
^DD(470.01,"B","CLERK",15)=""
^DD(470.01,"B","D/W",11)="1"
^DD(470.01,"B","DATE",9)="1"
^DD(470.01,"B","DATE ENTERED",9)=""
^DD(470.01,"B","DEP/WIT",11)=""
^DD(470.01,"B","FORM",14)=""
^DD(470.01,"B","GRATUITOUS AMOUNT",4)=""
^DD(470.01,"B","P/G",13)=""
^DD(470.01,"B","PATIENT TRANSACTION",.01)=""
^DD(470.01,"B","PRIVATE SOURCE AMOUNT",3)=""
^DD(470.01,"B","REFERENCE",10)=""
^DD(470.01,"B","REMARKS",16)=""
^DD(470.01,"B","TRANS #",.01)="1"
^DD(470.01,"B","TRANSACTION AMOUNT",2)=""
^DD(470.01,"B","TRANSACTION DATE",1)=""
^DD(470.01,"B","TRANSACTION DATE",8)=""
^DD(470.01,"B","VERIFY AMOUNT",7)=""
^DD(470.01,"GL",0,1,.01)=""
^DD(470.01,"GL",0,2,1)=""
^DD(470.01,"GL",0,3,2)=""
^DD(470.01,"GL",0,4,3)=""
^DD(470.01,"GL",0,5,4)=""
^DD(470.01,"GL",0,6,5)=""
^DD(470.01,"IX",.01)=""
^DD(470.01,"IX",1)=""
^DD(470.01,"RQ",.01)=""
^DD(470.01,"RQ",1)=""
^DD(470.02,0)="DEFERRED CREDIT REF # SUB-FIELD^^3^4"
^DD(470.02,0,"NM","DEFERRED CREDIT REF #")=" "
^DD(470.02,0,"UP")="470"
^DD(470.02,.01,0)="DEFERRED CREDIT REF #^F^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(470.02,.01,1,0)="^.1^^0"
^DD(470.02,.01,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(470.02,.01,"DT")="2870515"
^DD(470.02,1,0)="DEFERRED DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.02,1,"DT")="2870309"
^DD(470.02,2,0)="AMOUNT^NJ10,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>9999999)!(X<0) X"
^DD(470.02,2,3)="TYPE A NUMBER BETWEEN 0 AND 9999999"
^DD(470.02,2,"DT")="2870309"
^DD(470.02,3,0)="PATIENT TRANSACTION #^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(470.02,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(470.02,3,"DT")="2870309"
^DD(470.02,"B","AMOUNT",2)=""
^DD(470.02,"B","DEFERRED CREDIT REF #",.01)=""
^DD(470.02,"B","DEFERRED DATE",1)=""
^DD(470.02,"B","PATIENT TRANSACTION #",3)=""
^DD(470.02,"GL",0,1,.01)=""
^DD(470.02,"GL",0,2,1)=""
^DD(470.02,"GL",0,3,2)=""
^DD(470.02,"GL",0,4,3)=""
^DD(470.03,0)="SUSPENSE DATE SUB-FIELD^^1^2"
^DD(470.03,0,"IX","C",470.03,.01)=" "
^DD(470.03,0,"NM","SUSPENSE DATE")=" "
^DD(470.03,0,"UP")="470"
^DD(470.03,.01,0)="SUSPENSE DATE^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.03,.01,1,0)="^.1"
^DD(470.03,.01,1,1,0)="470^C"
^DD(470.03,.01,1,1,1)="S ^PRPF(470,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(470.03,.01,1,1,2)="K ^PRPF(470,""C"",$E(X,1,30),DA(1),DA)"
^DD(470.03,.01,3)=" "
^DD(470.03,.01,"DT")="2870821"
^DD(470.03,1,0)="ID^470.04A^^1;0"
^DD(470.03,"B","ID",1)=""
^DD(470.03,"B","SUSPENSE DATE",.01)=""
^DD(470.03,"GL",0,1,.01)=""
^DD(470.03,"GL",1,0,1)=""
^DD(470.03,"IX",.01)=""
^DD(470.03,"SB",470.04,1)=""
^DD(470.035,0)="SPECIAL REMARKS SUB-FIELD^^.01^1"
^DD(470.035,0,"NM","SPECIAL REMARKS")=" "
^DD(470.035,0,"UP")="470"
^DD(470.035,.01,0)="SPECIAL^W^^0;1^Q"
^DD(470.035,.01,"DT")="2871013"
^DD(470.035,"B","SPECIAL",.01)=""
^DD(470.035,"GL",0,1,.01)=""
^DD(470.04,0)="ID SUB-FIELD^^1^2"
^DD(470.04,0,"IX","B",470.04,.01)=""
^DD(470.04,0,"NM","ID")=" "
^DD(470.04,0,"UP")="470.03"
^DD(470.04,.01,0)="ITEM ID^MF^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(470.04,.01,1,0)="^.1"
^DD(470.04,.01,1,1,0)="470.04^B"
^DD(470.04,.01,1,1,1)="S ^PRPF(470,DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(470.04,.01,1,1,2)="K ^PRPF(470,DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(470.04,.01,3)="ENTER A SHORT DESCRIPTION OF THIS SUSPENSE ITEM  DO NOT EXCEED 40 CHARACTERS"
^DD(470.04,.01,"DT")="2870902"
^DD(470.04,1,0)="FULL DESCRIPTION^470.07^^1;0"
^DD(470.04,"B","FULL DESCRIPTION",1)=""
^DD(470.04,"B","ITEM ID",.01)=""
^DD(470.04,"GL",0,1,.01)=""
^DD(470.04,"GL",1,0,1)=""
^DD(470.04,"IX",.01)=""
^DD(470.04,"SB",470.07,1)=""
^DD(470.05,0)="INCOME SOURCE SUB-FIELD^^3^4"
^DD(470.05,0,"IX","B",470.05,.01)=""
^DD(470.05,0,"NM","INCOME SOURCE")=" "
^DD(470.05,0,"UP")="470"
^DD(470.05,.01,0)="INCOME SOURCE^MF^^0;1^K:$L(X)>25!($L(X)<1) X"
^DD(470.05,.01,1,0)="^.1"
^DD(470.05,.01,1,1,0)="470.05^B"
^DD(470.05,.01,1,1,1)="S ^PRPF(470,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(470.05,.01,1,1,2)="K ^PRPF(470,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(470.05,.01,3)="Enter a person/type of income for this patient.  Do not exceed 25 characters."
^DD(470.05,.01,"DT")="2871211"
^DD(470.05,1,0)="PAYEE^RF^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(470.05,1,3)="Enter the name of the individual to whom the check is made payable."
^DD(470.05,1,"DT")="2871211"
^DD(470.05,2,0)="AMOUNT^RNJ8,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999)!(X<1) X"
^DD(470.05,2,3)="TYPE A NUMBER BETWEEN 1 AND 99999"
^DD(470.05,2,"DT")="2870309"
^DD(470.05,3,0)="FREQUENCY^S^D:DAILY;W:WEEKLY;M:MONTHLY;Y:YEARLY;X:UNKNOWN;V:VARIABLE;O:OTHER;^0;4^Q"
^DD(470.05,3,"DT")="2870706"
^DD(470.05,"B","AMOUNT",2)=""
^DD(470.05,"B","FREQUENCY",3)=""
^DD(470.05,"B","INCOME SOURCE",.01)=""
^DD(470.05,"B","PAYEE",1)=""
^DD(470.05,"GL",0,1,.01)=""
^DD(470.05,"GL",0,2,1)=""
^DD(470.05,"GL",0,3,2)=""
^DD(470.05,"GL",0,4,3)=""
^DD(470.05,"IX",.01)=""
^DD(470.05,"RQ",1)=""
^DD(470.05,"RQ",2)=""
^DD(470.06,0)="GENERAL INFORMATION/REMARKS SUB-FIELD^^.01^1"
^DD(470.06,0,"NM","GENERAL INFORMATION/REMARKS")=" "
^DD(470.06,0,"UP")="470"
^DD(470.06,.01,0)="GENERAL INFORMATION/REMARKS^W^^0;1^Q"
^DD(470.06,.01,"DT")="2871109"
^DD(470.06,"B","GENERAL INFORMATION/REMARKS",.01)=""
^DD(470.06,"GL",0,1,.01)=""
^DD(470.07,0)="FULL DESCRIPTION SUB-FIELD^^.01^1"
^DD(470.07,0,"NM","FULL DESCRIPTION")=" "
^DD(470.07,0,"UP")="470.04"
^DD(470.07,.01,0)="FULL DESCRIPTION^W^^0;1^Q"
^DD(470.07,.01,"DT")="2870824"
^DD(470.07,"B","FULL DESCRIPTION",.01)=""
^DD(470.07,"GL",0,1,.01)=""
^DD(470.071,0)="FUTURE MONTH SUB-FIELD^^1^2"
^DD(470.071,0,"NM","FUTURE MONTH")=" "
^DD(470.071,0,"UP")="470"
^DD(470.071,.01,0)="FUTURE MONTH^DX^^0;1^S %DT=""E"" D ^%DT S (X,DINUM)=Y K:Y<1 X,DINUM"
^DD(470.071,.01,"DT")="2890127"
^DD(470.071,1,0)="PENDING AMOUNT^NJ12,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(470.071,1,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(470.071,1,"DT")="2890127"
^DD(470.071,"B","FUTURE MONTH",.01)=""
^DD(470.071,"B","PENDING AMOUNT",1)=""
^DD(470.071,"GL",0,1,.01)=""
^DD(470.071,"GL",0,2,1)=""
^DD(470.072,0)="FUTURE WEEK SUB-FIELD^^1^2"
^DD(470.072,0,"NM","FUTURE WEEK")=" "
^DD(470.072,0,"UP")="470"
^DD(470.072,.01,0)="FUTURE WEEK^NJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(470.072,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(470.072,.01,"DT")="2890127"
^DD(470.072,1,0)="PENDING AMOUNT^NJ12,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999) X"
^DD(470.072,1,3)="Type a Dollar Amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(470.072,1,"DT")="2890127"
^DD(470.072,"B","FUTURE WEEK",.01)=""
^DD(470.072,"B","PENDING AMOUNT",1)=""
^DD(470.072,"GL",0,1,.01)=""
^DD(470.072,"GL",0,2,1)=""
^DD(470.1,0)="FIELD^^21^25"
^DD(470.1,0,"DT")="2950428"
^DD(470.1,0,"IX","AC",470.1,5)=""
^DD(470.1,0,"IX","AD",470.1,4)=""
^DD(470.1,0,"IX","B",470.1,.01)=""
^DD(470.1,0,"NM","PATIENT FUNDS MASTER TRANSACTION")=" "
^DD(470.1,0,"PT",470.01,.01)=""
^DD(470.1,0,"VR")="3.0"
^DD(470.1,0,"VRPK")="PRPF"
^DD(470.1,.01,0)="TRANSACTION ID^RFX^^0;1^K:$L(X)>12!($L(X)<2)!'(X?1N.11N1""M"") X"
^DD(470.1,.01,1,0)="^.1"
^DD(470.1,.01,1,1,0)="470.1^B"
^DD(470.1,.01,1,1,1)="S ^PRPF(470.1,""B"",$E(X,1,30),DA)="""""
^DD(470.1,.01,1,1,2)="K ^PRPF(470.1,""B"",$E(X,1,30),DA)"
^DD(470.1,.01,3)="ANSWER MUST BE 2-12 CHARACTERS IN LENGTH"
^DD(470.1,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I 1"
^DD(470.1,.01,"DT")="2870615"
^DD(470.1,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""Additions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(470.1,1,0)="PATIENT NAME^P470'^PRPF(470,^0;2^Q"
^DD(470.1,2,0)="PATIENT TRANSACTION #^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(470.1,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(470.1,3,0)="AMOUNT^NJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.1,3,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.1,3,"DT")="2880318"
^DD(470.1,4,0)="TRANSACTION DATE^RD^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.1,4,1,0)="^.1"
^DD(470.1,4,1,1,0)="470.1^AD"
^DD(470.1,4,1,1,1)="S ^PRPF(470.1,""AD"",$E(X,1,30),DA)="""""
^DD(470.1,4,1,1,2)="K ^PRPF(470.1,""AD"",$E(X,1,30),DA)"
^DD(470.1,4,"DT")="2880318"
^DD(470.1,5,0)="DATE TRANSACTION ENTERED^RD^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.1,5,.1)="DATE ENTERED"
^DD(470.1,5,1,0)="^.1^^-1"
^DD(470.1,5,1,1,0)="470.1^AC"
^DD(470.1,5,1,1,1)="S ^PRPF(470.1,""AC"",$E(X,1,30),DA)="""""
^DD(470.1,5,1,1,2)="K ^PRPF(470.1,""AC"",$E(X,1,30),DA)"
^DD(470.1,5,3)=" "
^DD(470.1,5,"DT")="2870901"
^DD(470.1,5.5,0)="DAYS BETWEEN DATES^CJ8,0^^ ; ^X ^DD(470.1,5.5,9.2) S X1=Y(470.1,5.5,2) S X2=X1,X1=X D ^%DTC S Y=X"
^DD(470.1,5.5,9)="^"
^DD(470.1,5.5,9.01)="470.1^5;470.1^4"
^DD(470.1,5.5,9.1)="DAYS BETWEEN DATES(#4,#5)"
^DD(470.1,5.5,9.2)="S Y(470.1,5.5,1)=$S($D(^PRPF(470.1,D0,0)):^(0),1:"""") S X=$P(Y(470.1,5.5,1),U,5),Y(470.1,5.5,2)=X S X=$P(Y(470.1,5.5,1),U,6)"
^DD(470.1,6,0)="REFERENCE^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(470.1,6,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(470.1,7,0)="DEPOSIT/WITHDRAWAL^RS^D:DEPOSIT;W:WITHDRAWAL;^0;8^Q"
^DD(470.1,7,1,0)="^.1^^0"
^DD(470.1,7,"DT")="2870901"
^DD(470.1,8,0)="CASH/CHECK/OTHER^RS^1:CASH;2:CHECK;3:OTHER;^0;9^Q"
^DD(470.1,8,1,0)="^.1^^0"
^DD(470.1,8,"DT")="2870901"
^DD(470.1,9,0)="SOURCE^*S^P:PRIVATE SOURCE;G:GRATUITOUS;B:BOTH;^0;10^Q"
^DD(470.1,9,12)="Allows user to select only Private Source or Gratuitous during normal operations."
^DD(470.1,9,12.1)="I ""PG""[Y"
^DD(470.1,9,"DT")="2880226"
^DD(470.1,10,0)="FORM^RP470.2'^PRPF(470.2,^0;11^Q"
^DD(470.1,10,1,0)="^.1^^0"
^DD(470.1,10,"DT")="2870901"
^DD(470.1,11,0)="PRIVATE SOURCE AMT^NJ7,0O^^0;12^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(470.1,11,2)="S Y(0)=Y I $P(^PRPF(470.1,D0,0),""^"",8)[""W"" S Y=-Y"
^DD(470.1,11,2.1)="I $P(^PRPF(470.1,D0,0),""^"",8)[""W"" S Y=-Y"
^DD(470.1,11,3)="TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.1,11,"DT")="2880302"
^DD(470.1,12,0)="GRATUITOUS AMOUNT^NJ7,0O^^0;13^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(470.1,12,2)="S Y(0)=Y I $P(^PRPF(470.1,D0,0),""^"",8)[""W"" S Y=-Y"
^DD(470.1,12,2.1)="I $P(^PRPF(470.1,D0,0),""^"",8)[""W"" S Y=-Y"
^DD(470.1,12,3)="TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.1,12,"DT")="2880302"
^DD(470.1,13,0)="PATIENT FUNDS CLERK^RP200'^VA(200,^0;14^Q"
^DD(470.1,13,3)=" "
^DD(470.1,13,"DT")="2950428"
^DD(470.1,13.5,0)="VALIDATION CODE^NJ8,0^^0;17^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(470.1,13.5,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(470.1,13.5,21,0)="^^1^1^2950425^"
^DD(470.1,13.5,21,1,0)="Field contains the validation code for verification of electronic signature."
^DD(470.1,13.5,"DT")="2950425"
^DD(470.1,13.7,0)="VALIDATION VERSION^NJ5,1^^0;22^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""2N.N) X"
^DD(470.1,13.7,3)="Type a Number between 1 and 100, 1 Decimal Digit"
^DD(470.1,13.7,21,0)="^^2^2^2950425^"
^DD(470.1,13.7,21,1,0)="This field contains the version number used to encode the Electronic"
^DD(470.1,13.7,21,2,0)="Signature Code."
^DD(470.1,13.7,"DT")="2950425"
^DD(470.1,14,0)="ELECTRONIC SIGNATURE^FO^^0;15^K:$L(X)>30!($L(X)<1) X"
^DD(470.1,14,2)="S Y(0)=Y S Y=""/es/ ""_$$DECODE^PRPFSIG1(D0)"
^DD(470.1,14,2.1)="S Y=""/es/ ""_$$DECODE^PRPFSIG1(D0)"
^DD(470.1,14,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(470.1,14,"DT")="2950509"
^DD(470.1,15,0)="REMARKS^F^^0;16^K:$L(X)>35!($L(X)<1) X"
^DD(470.1,15,3)="ANSWER MUST BE 1-35 CHARACTERS IN LENGTH"
^DD(470.1,16,0)="BALANCE CARRIED FORWARD AMT^NJ10,2^^0;18^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.1,16,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.1,16,"DT")="2870402"
^DD(470.1,17,0)="PVT SOURCE BAL CARRIED FWD^NJ10,2^^0;19^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.1,17,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.1,18,0)="GRATUITOUS BAL CARRIED FWD^NJ10,2^^0;20^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.""-"".N1"".""2N)!(X>9999999)!(X<-9999999) X"
^DD(470.1,18,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.1,19,0)="DEFERRAL DATE^D^^0;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.1,19,3)=" "
^DD(470.1,19,"DT")="2880926"
^DD(470.1,20,0)="SIG CONVERSION COMPLETED^S^0:NO;1:YES;^0;22^Q"
^DD(470.1,20,"DT")="2911209"
^DD(470.1,21,0)="SIGNATURE CODE DATE/TIME^D^^0;23^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(470.1,21,"DT")="2930702"
^DD(470.1,"B","AMOUNT",3)=""
^DD(470.1,"B","BALANCE CARRIED FORWARD AMT",16)=""
^DD(470.1,"B","CASH/CHECK/OTHER",8)=""
^DD(470.1,"B","DATE ENTERED",5)="1"
^DD(470.1,"B","DATE TRANSACTION ENTERED",5)=""
^DD(470.1,"B","DAYS BETWEEN DATES",5.5)=""
^DD(470.1,"B","DEFERRAL DATE",19)=""
^DD(470.1,"B","DEPOSIT/WITHDRAWAL",7)=""
^DD(470.1,"B","ELECTRONIC SIGNATURE",14)=""
^DD(470.1,"B","FORM",10)=""
^DD(470.1,"B","GRATUITOUS AMOUNT",12)=""
^DD(470.1,"B","GRATUITOUS BAL CARRIED FWD",18)=""
^DD(470.1,"B","PATIENT FUNDS CLERK",13)=""
^DD(470.1,"B","PATIENT NAME",1)=""
^DD(470.1,"B","PATIENT TRANSACTION #",2)=""
^DD(470.1,"B","PRIVATE SOURCE AMT",11)=""
^DD(470.1,"B","PVT SOURCE BAL CARRIED FWD",17)=""
^DD(470.1,"B","REFERENCE",6)=""
^DD(470.1,"B","REMARKS",15)=""
^DD(470.1,"B","SIG CONVERSION COMPLETED",20)=""
^DD(470.1,"B","SIGNATURE CODE DATE/TIME",21)=""
^DD(470.1,"B","SOURCE",9)=""
^DD(470.1,"B","TRANSACTION DATE",4)=""
^DD(470.1,"B","TRANSACTION ID",.01)=""
^DD(470.1,"B","VALIDATION CODE",13.5)=""
^DD(470.1,"B","VALIDATION VERSION",13.7)=""
^DD(470.1,"GL",0,1,.01)=""
^DD(470.1,"GL",0,2,1)=""
^DD(470.1,"GL",0,3,2)=""
^DD(470.1,"GL",0,4,3)=""
^DD(470.1,"GL",0,5,4)=""
^DD(470.1,"GL",0,6,5)=""
^DD(470.1,"GL",0,7,6)=""
^DD(470.1,"GL",0,8,7)=""
^DD(470.1,"GL",0,9,8)=""
^DD(470.1,"GL",0,10,9)=""
^DD(470.1,"GL",0,11,10)=""
^DD(470.1,"GL",0,12,11)=""
^DD(470.1,"GL",0,13,12)=""
^DD(470.1,"GL",0,14,13)=""
^DD(470.1,"GL",0,15,14)=""
^DD(470.1,"GL",0,16,15)=""
^DD(470.1,"GL",0,17,13.5)=""
^DD(470.1,"GL",0,18,16)=""
^DD(470.1,"GL",0,19,17)=""
^DD(470.1,"GL",0,20,18)=""
^DD(470.1,"GL",0,21,19)=""
^DD(470.1,"GL",0,22,13.7)=""
^DD(470.1,"GL",0,22,20)=""
^DD(470.1,"GL",0,23,21)=""
^DD(470.1,"IX",.01)=""
^DD(470.1,"IX",4)=""
^DD(470.1,"IX",5)=""
^DD(470.1,"RQ",.01)=""
^DD(470.1,"RQ",4)=""
^DD(470.1,"RQ",5)=""
^DD(470.1,"RQ",7)=""
^DD(470.1,"RQ",8)=""
^DD(470.1,"RQ",10)=""
^DD(470.1,"RQ",13)=""
^DD(470.2,0)="FIELD^^3^4"
^DD(470.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(470.2,0,"IX","B",470.2,.01)=""
^DD(470.2,0,"IX","C",470.21,.01)=""
^DD(470.2,0,"NM","PATIENT FUNDS FORMS")=" "
^DD(470.2,0,"PT",470.1,10)=" "
^DD(470.2,0,"PT",470.5,10)=""
^DD(470.2,0,"VR")="3.0"
^DD(470.2,0,"VRPK")="PRPF"
^DD(470.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(470.2,.01,1,0)="^.1"
^DD(470.2,.01,1,1,0)="470.2^B"
^DD(470.2,.01,1,1,1)="S ^PRPF(470.2,""B"",$E(X,1,30),DA)="""""
^DD(470.2,.01,1,1,2)="K ^PRPF(470.2,""B"",$E(X,1,30),DA)"
^DD(470.2,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(470.2,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I 1"
^DD(470.2,.01,"DT")="2880831"
^DD(470.2,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""Additions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(470.2,1,0)="FORM TITLE^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(470.2,1,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(470.2,2,0)="ABBREVIATION^470.21^^1;0"
^DD(470.2,3,0)="TYPE OF ACTION^S^D:DEPOSIT;W:WITHDRAWAL;B:BOTH;^0;3^Q"
^DD(470.2,3,"DT")="2871214"
^DD(470.2,"B","ABBREVIATION",2)=""
^DD(470.2,"B","FORM TITLE",1)=""
^DD(470.2,"B","NAME",.01)=""
^DD(470.2,"B","TYPE OF ACTION",3)=""
^DD(470.2,"GL",0,1,.01)=""
^DD(470.2,"GL",0,2,1)=""
^DD(470.2,"GL",0,3,3)=""
^DD(470.2,"GL",1,0,2)=""
^DD(470.2,"IX",.01)=""
^DD(470.2,"RQ",.01)=""
^DD(470.2,"SB",470.21,2)=""
^DD(470.21,0)="ABBREVIATION SUB-FIELD^NL^.01^1"
^DD(470.21,0,"NM","ABBREVIATION")=" "
^DD(470.21,0,"UP")="470.2"
^DD(470.21,.01,0)="ABBREVIATION^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(470.21,.01,1,0)="^.1"
^DD(470.21,.01,1,1,0)="470.2^C"
^DD(470.21,.01,1,1,1)="S ^PRPF(470.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(470.21,.01,1,1,2)="K ^PRPF(470.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(470.21,.01,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(470.21,"B","ABBREVIATION",.01)=""
^DD(470.21,"GL",0,1,.01)=""
^DD(470.21,"IX",.01)=""
^DD(470.3,0)="FIELD^^1^2"
^DD(470.3,0,"IX","B",470.3,.01)=""
^DD(470.3,0,"NM","PATIENT FUNDS TRANSACTION COUNTER")=" "
^DD(470.3,0,"VR")="3.0"
^DD(470.3,0,"VRPK")="PRPF"
^DD(470.3,.01,0)="NAME^RNJ5,1X^^0;1^K:+X'=X!(X>470.1)!(X<470.1)!(X?.E1"".""2N.N) X I $D(X) S DINUM=X"
^DD(470.3,.01,1,0)="^.1"
^DD(470.3,.01,1,1,0)="470.3^B"
^DD(470.3,.01,1,1,1)="S ^PRPF(470.3,""B"",$E(X,1,30),DA)="""""
^DD(470.3,.01,1,1,2)="K ^PRPF(470.3,""B"",$E(X,1,30),DA)"
^DD(470.3,.01,3)="Type a Number between 470.1 and 470.1, 1 Decimal Digit"
^DD(470.3,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I 1"
^DD(470.3,.01,"DT")="2880107"
^DD(470.3,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""Additions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(470.3,1,0)="COUNTER VALUE^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(470.3,1,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(470.3,1,"DT")="2880304"
^DD(470.3,"B","COUNTER VALUE",1)=""
^DD(470.3,"B","NAME",.01)=""
^DD(470.3,"GL",0,1,.01)=""
^DD(470.3,"GL",0,2,1)=""
^DD(470.3,"IX",.01)=""
^DD(470.3,"RQ",.01)=""
^DD(470.4,0)="FIELD^^8^7"
^DD(470.4,0,"DT")="2970328"
^DD(470.4,0,"IX","B",470.4,.01)=""
^DD(470.4,0,"NM","PATIENT FUNDS CONVERSION DISCREPANCY")=""
^DD(470.4,0,"VR")="3.0"
^DD(470.4,0,"VRPK")="PRPF"
^DD(470.4,.01,0)="DISCREPANCY ID^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(470.4,.01,1,0)="^.1^^-1"
^DD(470.4,.01,1,1,0)="470.4^B"
^DD(470.4,.01,1,1,1)="S ^PRPF(470.4,""B"",$E(X,1,30),DA)="""""
^DD(470.4,.01,1,1,2)="K ^PRPF(470.4,""B"",$E(X,1,30),DA)"
^DD(470.4,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(470.4,.01,21,0)="^^1^1^2970422^^^^"
^DD(470.4,.01,21,1,0)="This Discrepancy ID is just a number to identify this error record."
^DD(470.4,.01,"DT")="2970328"
^DD(470.4,1,0)="FILE NUMBER^NJ12,2^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""3N.N) X"
^DD(470.4,1,1,0)="^.1^^0"
^DD(470.4,1,3)="Type a Number between 1 and 999999999, 2 Decimal Digits"
^DD(470.4,1,9)="^"
^DD(470.4,1,21,0)="^^2^2^2970428^^^^"
^DD(470.4,1,21,1,0)="This field contains the file number in which the signature code "
^DD(470.4,1,21,2,0)="conversion error originated."
^DD(470.4,1,"DT")="2970428"
^DD(470.4,2,0)="FIELD #^NJ13,3^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(470.4,2,3)="Type a Number between 0 and 999999999, 3 Decimal Digits"
^DD(470.4,2,9)="^"
^DD(470.4,2,21,0)="^^2^2^2970422^^^^"
^DD(470.4,2,21,1,0)="This field contains the field number in which the signature"
^DD(470.4,2,21,2,0)="code conversion error originated."
^DD(470.4,2,"DT")="2970311"
^DD(470.4,3,0)="RECORD NUMBER^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(470.4,3,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(470.4,3,21,0)="^^2^2^2970422^^^"
^DD(470.4,3,21,1,0)="This field contains the specific record number in which the signature"
^DD(470.4,3,21,2,0)="code conversion error originated."
^DD(470.4,3,"DT")="2970311"
^DD(470.4,6,0)="ERROR TYPE^S^1:Pointer to missing record in File 16.;2:A3 cross-reference to file 200 missing.;^0;7^Q"
^DD(470.4,6,3)=""
^DD(470.4,6,21,0)="^^2^2^2970422^^^^"
^DD(470.4,6,21,1,0)="This field contains the type of error discovered when converting signature"
^DD(470.4,6,21,2,0)="code."
^DD(470.4,6,"DT")="2970328"
^DD(470.4,7,0)="ENTRY POINT OF PROGRAM^F^^0;8^K:$L(X)>8!($L(X)<1) X"
^DD(470.4,7,3)="Answer must be 1-8 characters in length."
^DD(470.4,7,21,0)="^^2^2^2970422^^^"
^DD(470.4,7,21,1,0)="This field contains the entry point of the routine which reported the"
^DD(470.4,7,21,2,0)="error during conversion."
^DD(470.4,7,"DT")="2921231"
^DD(470.4,8,0)="CONVERSION PROGRAM NAME^F^^0;9^K:$L(X)>8!($L(X)<3) X"
^DD(470.4,8,3)="Answer must be 3-8 characters in length."
^DD(470.4,8,21,0)="^^2^2^2970422^^^"
^DD(470.4,8,21,1,0)="This field contains the name of the M program which reported the conversion"
^DD(470.4,8,21,2,0)="error."
^DD(470.4,8,"DT")="2921231"
^DD(470.4,"B","CONVERSION PROGRAM NAME",8)=""
^DD(470.4,"B","DISCREPANCY ID",.01)=""
^DD(470.4,"B","ENTRY POINT OF PROGRAM",7)=""
^DD(470.4,"B","ERROR TYPE",6)=""
^DD(470.4,"B","FIELD #",2)=""
^DD(470.4,"B","FILE NUMBER",1)=""
^DD(470.4,"B","RECORD NUMBER",3)=""
^DD(470.4,"GL",0,1,.01)=""
^DD(470.4,"GL",0,2,1)=""
^DD(470.4,"GL",0,3,2)=""
^DD(470.4,"GL",0,4,3)=""
^DD(470.4,"GL",0,7,6)=""
^DD(470.4,"GL",0,8,7)=""
^DD(470.4,"GL",0,9,8)=""
^DD(470.4,"IX",.01)=""
^DD(470.4,"RQ",.01)=""
^DD(470.5,0)="FIELD^^20^19"
^DD(470.5,0,"IX","B",470.5,.01)=""
^DD(470.5,0,"NM","PATIENT FUNDS TEMPORARY TRANSACTION")=" "
^DD(470.5,0,"VR")="3.0"
^DD(470.5,0,"VRPK")="PRPF"
^DD(470.5,.01,0)=" ID^RF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(470.5,.01,1,0)="^.1"
^DD(470.5,.01,1,1,0)="470.5^B"
^DD(470.5,.01,1,1,1)="S ^PRPFT(470.5,""B"",$E(X,1,30),DA)="""""
^DD(470.5,.01,1,1,2)="K ^PRPFT(470.5,""B"",$E(X,1,30),DA)"
^DD(470.5,.01,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(470.5,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I 1"
^DD(470.5,.01,"DT")="2880622"
^DD(470.5,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""Additions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(470.5,1,0)="PATIENT NAME^P470'^PRPF(470,^0;2^Q"
^DD(470.5,3,0)="AMOUNT^RNJ10,2X^^0;4^D ^PRPFTRCK"
^DD(470.5,3,3)="TYPE A NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.5,4,0)="TRANSACTION DATE^RD^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.5,6,0)="REFERENCE^RF^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(470.5,6,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(470.5,6,"DT")="2871210"
^DD(470.5,7,0)="DEPOSIT/WITHDRAWAL^RS^D:DEPOSIT;W:WITHDRAWAL;^0;8^Q"
^DD(470.5,8,0)="CASH/CHECK/OTHER^RS^1:CASH;2:CHECK;3:OTHER;^0;9^Q"
^DD(470.5,9,0)="SOURCE^R*S^P:PRIVATE SOURCE;G:GRATUITOUS;B:BOTH;^0;10^Q"
^DD(470.5,9,12)="Allows user to select only Private Source or Gratuitous as a source during normal operations."
^DD(470.5,9,12.1)="I ""PG""[Y"
^DD(470.5,9,"DT")="2880226"
^DD(470.5,10,0)="FORM^RP470.2'^PRPF(470.2,^0;11^Q"
^DD(470.5,10,"DT")="2871214"
^DD(470.5,11,0)="PRIVATE SOURCE AMT^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(470.5,11,3)="TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.5,12,0)="GRATUITOUS AMOUNT^NJ7,0^^0;13^K:+X'=X!(X>9999999)!(X<-9999999)!(X?.E1"".""1N.N) X"
^DD(470.5,12,3)="TYPE A WHOLE NUMBER BETWEEN -9999999 AND 9999999"
^DD(470.5,13,0)="PATIENT FUNDS CLERK NAME^RF^^0;14^K:$L(X)>35!($L(X)<3) X"
^DD(470.5,13,3)="ANSWER MUST BE 3-35 CHARACTERS IN LENGTH"
^DD(470.5,13,"DT")="2870515"
^DD(470.5,14,0)="CODE^F^^0;15^K:$L(X)>30!($L(X)<1) X"
^DD(470.5,14,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(470.5,15,0)="REMARKS^FX^^0;16^D REM^PRPFED1"
^DD(470.5,15,3)="Enter Remarks Code, Free Text Remarks, or Code followed by a Comma followed by Free Text.  Total Number of Characters may not exceed 50."
^DD(470.5,15,4)="S ZD=D,X=""?"",DIC=""^PRPF(470.6,"",DIC(0)=""EMQN"" D ^DIC S DIC=""^PRPF(470.5,"",D=ZD K ZD"
^DD(470.5,15,"DT")="2880713"
^DD(470.5,16,0)="BALANCE CARRIED FORWARD AMT^NJ10,2X^^0;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999)!(X<-9999999) X I $D(X) W ""    $ "",$J(X,0,2)"
^DD(470.5,16,3)="Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits"
^DD(470.5,16,"DT")="2890110"
^DD(470.5,17,0)="PVT SOURCE BAL CARRIED FWD^NJ10,2X^^0;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999)!(X<-9999999) X I $D(X) W ""    $ "",$J(X,0,2)"
^DD(470.5,17,3)="Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits"
^DD(470.5,17,"DT")="2890110"
^DD(470.5,18,0)="GRATUITOUS BAL CARRIED FWD^NJ10,2X^^0;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>9999999)!(X<-9999999) X I $D(X) W ""    $ "",$J(X,0,2)"
^DD(470.5,18,3)="Type a Dollar Amount between -9999999 and 9999999, 2 Decimal Digits"
^DD(470.5,18,"DT")="2890110"
^DD(470.5,19,0)="DEFERRAL DATE^D^^0;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.5,19,3)=" "
^DD(470.5,19,"DT")="2880926"
^DD(470.5,20,0)="COUNT IN RESTRICTION BALANCE^S^Y:YES;N:NO;^0;22^Q"
^DD(470.5,20,"DT")="2870515"
^DD(470.5,"B"," ID",.01)=""
^DD(470.5,"B","AMOUNT",3)=""
^DD(470.5,"B","BALANCE CARRIED FORWARD AMT",16)=""
^DD(470.5,"B","CASH/CHECK/OTHER",8)=""
^DD(470.5,"B","CODE",14)=""
^DD(470.5,"B","COUNT IN RESTRICTION BALANCE",20)=""
^DD(470.5,"B","DEFERRAL DATE",19)=""
^DD(470.5,"B","DEPOSIT/WITHDRAWAL",7)=""
^DD(470.5,"B","FORM",10)=""
^DD(470.5,"B","GRATUITOUS AMOUNT",12)=""
^DD(470.5,"B","GRATUITOUS BAL CARRIED FWD",18)=""
^DD(470.5,"B","PATIENT FUNDS CLERK NAME",13)=""
^DD(470.5,"B","PATIENT NAME",1)=""
^DD(470.5,"B","PRIVATE SOURCE AMT",11)=""
^DD(470.5,"B","PVT SOURCE BAL CARRIED FWD",17)=""
^DD(470.5,"B","REFERENCE",6)=""
^DD(470.5,"B","REMARKS",15)=""
^DD(470.5,"B","SOURCE",9)=""
^DD(470.5,"B","TRANSACTION DATE",4)=""
^DD(470.5,"GL",0,1,.01)=""
^DD(470.5,"GL",0,2,1)=""
^DD(470.5,"GL",0,4,3)=""
^DD(470.5,"GL",0,5,4)=""
^DD(470.5,"GL",0,7,6)=""
^DD(470.5,"GL",0,8,7)=""
^DD(470.5,"GL",0,9,8)=""
^DD(470.5,"GL",0,10,9)=""
^DD(470.5,"GL",0,11,10)=""
^DD(470.5,"GL",0,12,11)=""
^DD(470.5,"GL",0,13,12)=""
^DD(470.5,"GL",0,14,13)=""
^DD(470.5,"GL",0,15,14)=""
^DD(470.5,"GL",0,16,15)=""
^DD(470.5,"GL",0,18,16)=""
^DD(470.5,"GL",0,19,17)=""
^DD(470.5,"GL",0,20,18)=""
^DD(470.5,"GL",0,21,19)=""
^DD(470.5,"GL",0,22,20)=""
^DD(470.5,"IX",.01)=""
^DD(470.5,"RQ",.01)=""
^DD(470.5,"RQ",3)=""
^DD(470.5,"RQ",4)=""
^DD(470.5,"RQ",6)=""
^DD(470.5,"RQ",7)=""
^DD(470.5,"RQ",8)=""
^DD(470.5,"RQ",9)=""
^DD(470.5,"RQ",10)=""
^DD(470.5,"RQ",13)=""
^DD(470.6,0)="FIELD^^1^3"
^DD(470.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(470.6,0,"IX","B",470.6,.01)=""
^DD(470.6,0,"NM","PATIENT FUNDS REMARKS CODE")=" "
^DD(470.6,0,"VR")="3.0"
^DD(470.6,0,"VRPK")="PRPF"
^DD(470.6,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(470.6,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(470.6,.001,"DT")="2880712"
^DD(470.6,.01,0)="NAME^RF^^0;1^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(470.6,.01,1,0)="^.1"
^DD(470.6,.01,1,1,0)="470.6^B"
^DD(470.6,.01,1,1,1)="S ^PRPF(470.6,""B"",$E(X,1,30),DA)="""""
^DD(470.6,.01,1,1,2)="K ^PRPF(470.6,""B"",$E(X,1,30),DA)"
^DD(470.6,.01,3)="Enter the Code to be used to lookup a standard remark"
^DD(470.6,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I 1"
^DD(470.6,.01,"DT")="2880712"
^DD(470.6,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""Additions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(470.6,1,0)="FULL REMARK^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X"
^DD(470.6,1,1,0)="^.1^^0"
^DD(470.6,1,3)="Enter the full remark to be entered in the Patient Funds system when this item is selected"
^DD(470.6,1,"DT")="2880713"
^DD(470.6,"B","FULL REMARK",1)=""
^DD(470.6,"B","NAME",.01)=""
^DD(470.6,"B","NUMBER",.001)=""
^DD(470.6,"GL",0,1,.01)=""
^DD(470.6,"GL",0,2,1)=""
^DD(470.6,"IX",.01)=""
^DD(470.6,"RQ",.01)=""
^DD(470.6,"RQ",1)=""
^DD(470.9,0)="FIELD^^2^3"
^DD(470.9,0,"DT")="2920309"
^DD(470.9,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(470.9,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(470.9,0,"IX","AC",470.9,1)=""
^DD(470.9,0,"IX","B",470.9,.01)=""
^DD(470.9,0,"NM","PATIENT FUNDS ARCHIVE HISTORY")=" "
^DD(470.9,0,"VR")="3.0"
^DD(470.9,0,"VRPK")="PRPF"
^DD(470.9,.01,0)="ARCHIVE DATE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.9,.01,1,0)="^.1^^-1"
^DD(470.9,.01,1,1,0)="470.9^B"
^DD(470.9,.01,1,1,1)="S ^PRPF(470.9,""B"",$E(X,1,30),DA)="""""
^DD(470.9,.01,1,1,2)="K ^PRPF(470.9,""B"",$E(X,1,30),DA)"
^DD(470.9,.01,3)=" "
^DD(470.9,.01,"DEL",1,0)="D EN^DDIOL(""Deletions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I 1"
^DD(470.9,.01,"DT")="2970225"
^DD(470.9,.01,"LAYGO",1,0)="D:'$G(XUMF) EN^DDIOL(""Additions are not allowed due to PFOP Migration!!"","""",""!?5,$C(7)"") I +$G(XUMF)"
^DD(470.9,1,0)="TYPE^S^0:ARCHIVE;1:PURGE;^0;2^Q"
^DD(470.9,1,1,0)="^.1"
^DD(470.9,1,1,1,0)="470.9^AC^MUMPS"
^DD(470.9,1,1,1,1)="I X=0 S ^PRPF(470.9,""AC"",(10000000-$P(^PRPF(470.9,DA,0),""^"")),DA)="""""
^DD(470.9,1,1,1,2)="K ^PRPF(470.9,""AC"",(10000000-$P(^PRPF(470.9,DA,0),""^"")),DA)"
^DD(470.9,1,1,1,"%D",0)="^^2^2^2970225^^"
^DD(470.9,1,1,1,"%D",1,0)="This cross reference is used to create a reverse index for date of last "
^DD(470.9,1,1,1,"%D",2,0)="archive."
^DD(470.9,1,1,1,"DT")="2970225"
^DD(470.9,1,"DT")="2970225"
^DD(470.9,2,0)="THRU DATE OF PURGE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(470.9,2,"DT")="2920309"
^DD(470.9,"B","ARCHIVE DATE",.01)=""
^DD(470.9,"B","THRU DATE OF PURGE",2)=""
^DD(470.9,"B","TYPE",1)=""
^DD(470.9,"GL",0,1,.01)=""
^DD(470.9,"GL",0,2,1)=""
^DD(470.9,"GL",0,3,2)=""
^DD(470.9,"IX",.01)=""
^DD(470.9,"IX",1)=""
^DD(470.9,"RQ",.01)=""
^DD(538,0)="FIELD^^13^23"
^DD(538,0,"DDA")="N"
^DD(538,0,"DT")="2950926"
^DD(538,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(538,0,"ID",.1)="W ""   "",$E($P(^(0),U,10),4,5)_""-""_$E($P(^(0),U,10),6,7)_""-""_$E($P(^(0),U,10),2,3)"
^DD(538,0,"IX","ADIS",538,.1)=""
^DD(538,0,"IX","ASITE",538,.02)=""
^DD(538,0,"IX","ASITE1",538,1.08)=""
^DD(538,0,"IX","B",538,.01)=""
^DD(538,0,"IX","C",538,.03)=""
^DD(538,0,"NM","UTILIZATION MANAGEMENT ROLLUP")=""
^DD(538,0,"VR")="1.0"
^DD(538,.01,0)="ENTRY ID^RNJ11,0^^0;1^K:+X'=X!(X>99999999999)!(X<1001)!(X?.E1"".""1N.N) X"
^DD(538,.01,1,0)="^.1"
^DD(538,.01,1,1,0)="538^B"
^DD(538,.01,1,1,1)="S ^IBQ(538,""B"",$E(X,1,30),DA)="""""
^DD(538,.01,1,1,2)="K ^IBQ(538,""B"",$E(X,1,30),DA)"
^DD(538,.01,3)="Type a Number between 1001 and 99999999999, 0 Decimal Digits"
^DD(538,.01,21,0)="^^2^2^2950629^"
^DD(538,.01,21,1,0)="This is a unique number assigned by the Claims Tracking entry. The first 3"
^DD(538,.01,21,2,0)="characters of the number are the stations site number."
^DD(538,.01,"DT")="2950629"
^DD(538,.02,0)="SITE^RF^^0;2^K:$L(X)>7!($L(X)<3) X"
^DD(538,.02,1,0)="^.1^^-1"
^DD(538,.02,1,1,0)="538^ASITE^MUMPS"
^DD(538,.02,1,1,1)="S IBQ=$P($G(^IBQ(538,DA,1)),""^"",8) I IBQ]"""" S ^IBQ(538,""ASITE"",X,IBQ,DA)="""""
^DD(538,.02,1,1,2)="S IBQ=$P($G(^IBQ(538,DA,1)),""^"",8) I IBQ]"""" K ^IBQ(538,""ASITE"",X,IBQ,DA)"
^DD(538,.02,1,1,"%D",0)="^^3^3^2950926^"
^DD(538,.02,1,1,"%D",1,0)="This MUMPS cross-reference index 'ASITE' of the SITE field works with the"
^DD(538,.02,1,1,"%D",2,0)="MUMPS cross-reference index 'ASITE1' of the ROLLUP DATE in setting up the"
^DD(538,.02,1,1,"%D",3,0)="""ASITE"" cross reference."
^DD(538,.02,1,1,"DT")="2950926"
^DD(538,.02,3)="Answer must be 3-7 characters in length."
^DD(538,.02,21,0)="^^1^1^2950629^"
^DD(538,.02,21,1,0)="This is a 3 digit station number plus any modifiers."
^DD(538,.02,"DT")="2950928"
^DD(538,.03,0)="SSN^RF^^0;3^K:$L(X)>9!($L(X)<9) X"
^DD(538,.03,1,0)="^.1"
^DD(538,.03,1,1,0)="538^C"
^DD(538,.03,1,1,1)="S ^IBQ(538,""C"",$E(X,1,30),DA)="""""
^DD(538,.03,1,1,2)="K ^IBQ(538,""C"",$E(X,1,30),DA)"
^DD(538,.03,1,1,"%D",0)="^^1^1^2950809^"
^DD(538,.03,1,1,"%D",1,0)="Cross reference used to lookup Entry ID by SSN."
^DD(538,.03,1,1,"DT")="2950809"
^DD(538,.03,3)="Answer must be 9 characters in length."
^DD(538,.03,21,0)="^^1^1^2950629^"
^DD(538,.03,21,1,0)="This is a nine digit Social Security Number field."
^DD(538,.03,"DT")="2950809"
^DD(538,.04,0)="ADMITTING DIAGNOSIS^RF^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(538,.04,3)="Answer must be 1-7 characters in length."
^DD(538,.04,21,0)="^^1^1^2950629^"
^DD(538,.04,21,1,0)="ICD 9 Code Number"
^DD(538,.04,"DT")="2950629"
^DD(538,.05,0)="ENROLLEMENT CODE^RF^^0;5^K:$L(X)>5!($L(X)<3) X"
^DD(538,.05,3)="Answer must be 3-5 characters in length."
^DD(538,.05,21,0)="^^3^3^2950629^"
^DD(538,.05,21,1,0)="This field contains the three internal enrollement sample codes (Random,"
^DD(538,.05,21,2,0)="Disease specific, or Local) from the Claims Tracking entry seperated by"
^DD(538,.05,21,3,0)="hyphens.  Example: 1--, 0-3-0, 0-0-1."
^DD(538,.05,"DT")="2950418"
^DD(538,.06,0)="ADMITTING PHYSICIAN CODE^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(538,.06,3)="Type a NEW PERSON IEN Number between 1 and 999999999, 0 Decimal Digits"
^DD(538,.06,21,0)="^^1^1^2950629^"
^DD(538,.06,21,1,0)="Contains the Physician's IEN number from the NEW PERSON File (#200)"
^DD(538,.06,"DT")="2950418"
^DD(538,.07,0)="ATTENDING PHYSICIAN CODE^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(538,.07,3)="Type a NEW PERSON IEN Number between 1 and 999999999, 0 Decimal Digits"
^DD(538,.07,21,0)="^^1^1^2950629^"
^DD(538,.07,21,1,0)="Contains the Physician's IEN number from the NEW PERSON File (#200)."
^DD(538,.07,"DT")="2950418"
^DD(538,.08,0)="RESIDENT PHYSICIAN CODE^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(538,.08,3)="Type a NEW PERSON IEN Number between 1 and 999999999, 0 Decimal Digits"
^DD(538,.08,21,0)="^^1^1^2950629^"
^DD(538,.08,21,1,0)="Contains the Physician's IEN number from the NEW PERSON File (#200)."
^DD(538,.08,"DT")="2950418"
^DD(538,.09,0)="ACUTE CARE ADMISSION DATE^RD^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(538,.09,"DT")="2950418"
^DD(538,.1,0)="ACUTE CARE DISCHARGE DATE^D^^0;10^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(538,.1,1,0)="^.1"
^DD(538,.1,1,1,0)="538^ADIS"
^DD(538,.1,1,1,1)="S ^IBQ(538,""ADIS"",$E(X,1,30),DA)="""""
^DD(538,.1,1,1,2)="K ^IBQ(538,""ADIS"",$E(X,1,30),DA)"
^DD(538,.1,1,1,"%D",0)="^^2^2^2950630^"
^DD(538,.1,1,1,"%D",1,0)="This is a regular cross-reference indexing ACUTE CARE DISCHARGE DATE for"
^DD(538,.1,1,1,"%D",2,0)="quicker date range reporting."
^DD(538,.1,1,1,"DT")="2950418"
^DD(538,.1,"DT")="2950418"
^DD(538,.11,0)="WARD^RF^^0;11^K:$L(X)>30!($L(X)<2) X"
^DD(538,.11,3)="Enter the ward on which the patient was placed."
^DD(538,.11,21,0)="^^2^2^2950629^"
^DD(538,.11,21,1,0)="Enter in this field the name of the ward location as selectable using bed"
^DD(538,.11,21,2,0)="control options in MAS."
^DD(538,.11,"DT")="2950629"
^DD(538,.12,0)="TREATING SPECIALTY^RF^^0;12^K:$L(X)>30!($L(X)<3) X"
^DD(538,.12,3)="Enter the Treating Specialty assigned to this patient with this movement."
^DD(538,.12,21,0)="^^2^2^2950629^^^^"
^DD(538,.12,21,1,0)="Contains the name of the facility treating specialty.  Types of treating"
^DD(538,.12,21,2,0)="specialties may vary between Facilities."
^DD(538,.12,"DT")="2950629"
^DD(538,.13,0)="ACUTE ADMISSION (Y/N)?^RS^1:YES;0:NO;^0;13^Q"
^DD(538,.13,"DT")="2950418"
^DD(538,1.01,0)="SEVERITY OF ILLNESS^F^^1;1^K:$L(X)>2!($L(X)<2) X"
^DD(538,1.01,3)="Answer with SI/IS CATEGORIES CODE, 2 characters in length."
^DD(538,1.01,21,0)="^^3^3^2950629^^"
^DD(538,1.01,21,1,0)="Enter the Severity of Illness (SI) category code that best describes the"
^DD(538,1.01,21,2,0)="criteria met for continued stay days of care. Select the PRIMARY category"
^DD(538,1.01,21,3,0)="for the reason."
^DD(538,1.01,"DT")="2950629"
^DD(538,1.02,0)="INTENSITY OF SERVICE^F^^1;2^K:$L(X)>2!($L(X)<2) X"
^DD(538,1.02,3)="Answer with SI/IS CATEGORIES CODE, 2 characters in length."
^DD(538,1.02,21,0)="^^3^3^2950629^"
^DD(538,1.02,21,1,0)="Enter the Intensity of Service (IS) category code that best describes the"
^DD(538,1.02,21,2,0)="criteria met for continued stay days of care.  Select the PRIMARY category"
^DD(538,1.02,21,3,0)="for this reason."
^DD(538,1.02,"DT")="2950629"
^DD(538,1.03,0)="REASON FOR NON-ACUTE ADMISSION^F^^1;3^K:$L(X)>18!($L(X)<4) X"
^DD(538,1.03,3)="Answer with NON-ACUTE CLASSIFICATIONS CODE seperated by space if more than one, 4-18 characters in length."
^DD(538,1.03,21,0)="^^1^1^2950629^^^^"
^DD(538,1.03,21,1,0)="This is the external reference which is uniquely known."
^DD(538,1.03,"DT")="2950629"
^DD(538,1.04,0)="PROVIDER INTERVIEWED (Y/N)?^RS^1:YES;0:NO;^1;4^Q"
^DD(538,1.04,"DT")="2950418"
^DD(538,1.05,0)="ADMISSION INFLUENCED (Y/N)?^RS^1:YES;0:NO;^1;5^Q"
^DD(538,1.05,"DT")="2950418"
^DD(538,1.06,0)="LOCAL, NATIONAL, OR BOTH^RS^L:LOCAL;N:NATIONAL;B:BOTH;^1;6^Q"
^DD(538,1.06,"DT")="2950512"
^DD(538,1.07,0)="SERVICE^RS^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILIARY;B:BLIND REHAB;RE:RESPITE CARE;^1;7^Q"
^DD(538,1.07,3)="Enter the SERVICE Code describing this admission review."
^DD(538,1.07,21,0)="^^1^1^2950926^^"
^DD(538,1.07,21,1,0)="This field contains the Service code for the entries Admission review."
^DD(538,1.07,"DT")="2950706"
^DD(538,1.08,0)="ROLLUP DATE^D^^1;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(538,1.08,1,0)="^.1"
^DD(538,1.08,1,1,0)="538^ASITE1^MUMPS"
^DD(538,1.08,1,1,1)="S IBQ=$P(^IBQ(538,DA,0),""^"",2) I IBQ]"""" S ^IBQ(538,""ASITE"",IBQ,X,DA)="""""
^DD(538,1.08,1,1,2)="S IBQ=$P(^IBQ(538,DA,0),""^"",2) I IBQ]"""" K ^IBQ(538,""ASITE"",IBQ,X,DA)"
^DD(538,1.08,1,1,"%D",0)="^^3^3^2951003^^"
^DD(538,1.08,1,1,"%D",1,0)="This cross reference index 'ASITE1' of the ROLLUP DATE field works with"
^DD(538,1.08,1,1,"%D",2,0)="the MUMPS cross reference index 'ASITE' of the SITE field in setting up"
^DD(538,1.08,1,1,"%D",3,0)="the ""ASITE"" cross reference."
^DD(538,1.08,1,1,"DT")="2950926"
^DD(538,1.08,21,0)="^^2^2^2950926^"
^DD(538,1.08,21,1,0)="This field is for National Database use.  It will hold the date of"
^DD(538,1.08,21,2,0)="transmission to the National Database."
^DD(538,1.08,"DT")="2950926"
^DD(538,1.09,0)="ARCHIVED?^S^0:NO;1:YES;^1;9^Q"
^DD(538,1.09,21,0)="^^2^2^2950926^"
^DD(538,1.09,21,1,0)="This field is for National Database use.  This field will be true on the"
^DD(538,1.09,21,2,0)="National Database if the entry has been archived to tape."
^DD(538,1.09,"DT")="2950926"
^DD(538,13,0)="DAY^538.113^^13;0"
^DD(538,13,21,0)="^^1^1^2950706^^"
^DD(538,13,21,1,0)="Contains Continued Stay Reviews."
^DD(538,"B","ACUTE ADMISSION (Y/N)?",.13)=""
^DD(538,"B","ACUTE CARE ADMISSION DATE",.09)=""
^DD(538,"B","ACUTE CARE DISCHARGE DATE",.1)=""
^DD(538,"B","ADMISSION INFLUENCED (Y/N)?",1.05)=""
^DD(538,"B","ADMITTING DIAGNOSIS",.04)=""
^DD(538,"B","ADMITTING PHYSICIAN CODE",.06)=""
^DD(538,"B","ARCHIVED?",1.09)=""
^DD(538,"B","ATTENDING PHYSICIAN CODE",.07)=""
^DD(538,"B","DAY",13)=""
^DD(538,"B","ENROLLEMENT CODE",.05)=""
^DD(538,"B","ENTRY ID",.01)=""
^DD(538,"B","INTENSITY OF SERVICE",1.02)=""
^DD(538,"B","LOCAL, NATIONAL, OR BOTH",1.06)=""
^DD(538,"B","PROVIDER INTERVIEWED (Y/N)?",1.04)=""
^DD(538,"B","REASON FOR NON-ACUTE ADMISSION",1.03)=""
^DD(538,"B","RESIDENT PHYSICIAN CODE",.08)=""
^DD(538,"B","ROLLUP DATE",1.08)=""
^DD(538,"B","SERVICE",1.07)=""
^DD(538,"B","SEVERITY OF ILLNESS",1.01)=""
^DD(538,"B","SITE",.02)=""
^DD(538,"B","SSN",.03)=""
^DD(538,"B","TREATING SPECIALTY",.12)=""
^DD(538,"B","WARD",.11)=""
^DD(538,"GL",0,1,.01)=""
^DD(538,"GL",0,2,.02)=""
^DD(538,"GL",0,3,.03)=""
^DD(538,"GL",0,4,.04)=""
^DD(538,"GL",0,5,.05)=""
^DD(538,"GL",0,6,.06)=""
^DD(538,"GL",0,7,.07)=""
^DD(538,"GL",0,8,.08)=""
^DD(538,"GL",0,9,.09)=""
^DD(538,"GL",0,10,.1)=""
^DD(538,"GL",0,11,.11)=""
^DD(538,"GL",0,12,.12)=""
^DD(538,"GL",0,13,.13)=""
^DD(538,"GL",1,1,1.01)=""
^DD(538,"GL",1,2,1.02)=""
^DD(538,"GL",1,3,1.03)=""
^DD(538,"GL",1,4,1.04)=""
^DD(538,"GL",1,5,1.05)=""
^DD(538,"GL",1,6,1.06)=""
^DD(538,"GL",1,7,1.07)=""
^DD(538,"GL",1,8,1.08)=""
^DD(538,"GL",1,9,1.09)=""
^DD(538,"GL",13,0,13)=""
^DD(538,"IX",.01)=""
^DD(538,"IX",.02)=""
^DD(538,"IX",.03)=""
^DD(538,"IX",.1)=""
^DD(538,"IX",1.08)=""
^DD(538,"RQ",.01)=""
^DD(538,"RQ",.02)=""
^DD(538,"RQ",.03)=""
^DD(538,"RQ",.04)=""
^DD(538,"RQ",.05)=""
^DD(538,"RQ",.09)=""
^DD(538,"RQ",.11)=""
^DD(538,"RQ",.12)=""
^DD(538,"RQ",.13)=""
^DD(538,"RQ",1.04)=""
^DD(538,"RQ",1.05)=""
^DD(538,"RQ",1.06)=""
^DD(538,"RQ",1.07)=""
^DD(538,"SB",538.113,13)=""
^DD(538.113,0)="DAY SUB-FIELD^^.08^8"
^DD(538.113,0,"DT")="2950706"
^DD(538.113,0,"IX","B",538.113,.01)=""
^DD(538.113,0,"NM","DAY")=""
^DD(538.113,0,"UP")="538"
^DD(538.113,.01,0)="DAY^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(538.113,.01,1,0)="^.1"
^DD(538.113,.01,1,1,0)="538.113^B"
^DD(538.113,.01,1,1,1)="S ^IBQ(538,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(538.113,.01,1,1,2)="K ^IBQ(538,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(538.113,.01,3)="Enter a numeric day of this review, number between 0 and 99999, 0 Decimal Digits"
^DD(538.113,.01,21,0)="^^3^3^2950630^"
^DD(538.113,.01,21,1,0)="This is the number of the day of continued stay review.  This field is"
^DD(538.113,.01,21,2,0)="normally computed from the Review date field of the HOSPITAL REVIEW File"
^DD(538.113,.01,21,3,0)="(#356.1)."
^DD(538.113,.01,"DT")="2950630"
^DD(538.113,.02,0)="INTENSITY OF SERVICE^F^^0;2^K:$L(X)>4!($L(X)<2) X"
^DD(538.113,.02,3)="Answer with SI/IS CATEGORIES CODE, or 24??. 2-4 characters in length."
^DD(538.113,.02,21,0)="^^11^11^2950629^"
^DD(538.113,.02,21,1,0)="Enter the Intensity of Service (IS) category that best describes the"
^DD(538.113,.02,21,2,0)="criteria met for continued stay day of care.  Select the PRIMARY category"
^DD(538.113,.02,21,3,0)="for this reason."
^DD(538.113,.02,21,4,0)=" "
^DD(538.113,.02,21,5,0)="Also, holds 24 Hour Rule/Interqual Process code, 24??."
^DD(538.113,.02,21,6,0)=" "
^DD(538.113,.02,21,7,0)="24 Hour Rule/Interqual Process  (using data entered in HOSPITAL REVIEW"
^DD(538.113,.02,21,8,0)="File #356.1):"
^DD(538.113,.02,21,9,0)="       A continued stay day meets this criteria if there is no INTENSITY"
^DD(538.113,.02,21,10,0)="       OF SERVICE, no DISCHARGE SCREEN, no REASONS CODE, and INTENSITY"
^DD(538.113,.02,21,11,0)="       OF SERVICE was met on the previous day."
^DD(538.113,.02,"DT")="2950629"
^DD(538.113,.03,0)="SEVERITY OF ILLNESS^F^^0;3^K:$L(X)>2!($L(X)<2) X"
^DD(538.113,.03,3)="Answer with SI/IS CATEGORIES CODE, 2 characters in length."
^DD(538.113,.03,21,0)="^^3^3^2950629^"
^DD(538.113,.03,21,1,0)="Enter the Severity of Illness (SI) category that best describes the"
^DD(538.113,.03,21,2,0)="criteria met for continued stay day of care.  Select the PRIMARY category"
^DD(538.113,.03,21,3,0)="for this reason."
^DD(538.113,.03,"DT")="2950629"
^DD(538.113,.04,0)="D/C SCREENS MET^F^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(538.113,.04,3)="Answer must be 2 characters in length."
^DD(538.113,.04,21,0)="^^2^2^2950629^"
^DD(538.113,.04,21,1,0)="Enter the 2 digit code from the CLAIMS TRACKING SI/IS CATEGORIES File"
^DD(538.113,.04,21,2,0)="which is appropriate with this entry."
^DD(538.113,.04,"DT")="2950629"
^DD(538.113,.05,0)="INTERVIEWED (Y/N)?^RS^1:YES;0:NO;^0;5^Q"
^DD(538.113,.05,"DT")="2950418"
^DD(538.113,.06,0)="REASON FOR NON-ACUTE STAY^F^^0;6^K:$L(X)>18!($L(X)<4) X"
^DD(538.113,.06,3)="Answer with NON-ACUTE CLASSIFICATIONS CODE seperate by space if more the one,  4-18 characters in length."
^DD(538.113,.06,21,0)="^^1^1^2950629^^^^"
^DD(538.113,.06,21,1,0)="This is the external reference with is uniquely known."
^DD(538.113,.06,"DT")="2950629"
^DD(538.113,.07,0)="TREATING SPECIALTY^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(538.113,.07,3)="Enter the Treating Specialty assigned to this patient with this movement."
^DD(538.113,.07,21,0)="^^2^2^2950629^^"
^DD(538.113,.07,21,1,0)="Contains the name of the facility treating specialty. Types of treating"
^DD(538.113,.07,21,2,0)="specialties may vary between Facilities."
^DD(538.113,.07,"DT")="2950629"
^DD(538.113,.08,0)="SERVICE^RS^M:MEDICINE;S:SURGERY;P:PSYCHIATRY;NH:NHCU;NE:NEUROLOGY;I:INTERMEDIATE MED;R:REHAB MEDICINE;SCI:SPINAL CORD INJURY;D:DOMICILIARY;B:BLIND REHAB;RE:RESPITE CARE;^0;8^Q"
^DD(538.113,.08,3)="Enter the SERVICE Code describing this continued stay review."
^DD(538.113,.08,21,0)="^^2^2^2950706^"
^DD(538.113,.08,21,1,0)="This field contains the SERVICE Code from the SPECIALTY File (#42.4) which"
^DD(538.113,.08,21,2,0)="describes this entries contiued stay review for this day."
^DD(538.113,.08,"DT")="2950706"
^DD(538.113,"B","D/C SCREENS MET",.04)=""
^DD(538.113,"B","DAY",.01)=""
^DD(538.113,"B","INTENSITY OF SERVICE",.02)=""
^DD(538.113,"B","INTERVIEWED (Y/N)?",.05)=""
^DD(538.113,"B","REASON FOR NON-ACUTE STAY",.06)=""
^DD(538.113,"B","SERVICE",.08)=""
^DD(538.113,"B","SEVERITY OF ILLNESS",.03)=""
^DD(538.113,"B","TREATING SPECIALTY",.07)=""
^DD(538.113,"GL",0,1,.01)=""
^DD(538.113,"GL",0,2,.02)=""
^DD(538.113,"GL",0,3,.03)=""
^DD(538.113,"GL",0,4,.04)=""
^DD(538.113,"GL",0,5,.05)=""
^DD(538.113,"GL",0,6,.06)=""
^DD(538.113,"GL",0,7,.07)=""
^DD(538.113,"GL",0,8,.08)=""
^DD(538.113,"IX",.01)=""
^DD(538.113,"RQ",.05)=""
^DD(538.113,"RQ",.08)=""
^DD(550,0)="FIELD^^12^12"
^DD(550,0,"DDA")="N"
^DD(550,0,"DT")="2960703"
^DD(550,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(550,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(550,0,"IX","AC",550.04,.01)=""
^DD(550,0,"IX","AD",550.04,2)=""
^DD(550,0,"IX","AG",550,9)=""
^DD(550,0,"IX","AP",550.04,3)=""
^DD(550,0,"IX","AT",550.07,.01)=""
^DD(550,0,"IX","B",550,.01)=""
^DD(550,0,"IX","C",550,1)=""
^DD(550,0,"IX","ST",550,1)=""
^DD(550,0,"IX","TR",550,2)=""
^DD(550,0,"NM","CMOP SYSTEM")=""
^DD(550,0,"PT",550.2,3)=""
^DD(550,0,"VR")="2.0"
^DD(550,0,"VRPK")="CMOP"
^DD(550,.01,0)="SYSTEM^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(550,.01,1,0)="^.1"
^DD(550,.01,1,1,0)="550^B"
^DD(550,.01,1,1,1)="S ^PSX(550,""B"",$E(X,1,30),DA)="""""
^DD(550,.01,1,1,2)="K ^PSX(550,""B"",$E(X,1,30),DA)"
^DD(550,.01,3)="Answer must be 3-30 characters in length."
^DD(550,.01,21,0)="^^1^1^2931112^^^^"
^DD(550,.01,21,1,0)="This is the free text name of the CMOP system."
^DD(550,.01,23,0)="^^1^1^2931112^"
^DD(550,.01,23,1,0)="Free text."
^DD(550,.01,"DT")="2930529"
^DD(550,1,0)="STATUS^SX^A:ACTIVE;I:INACTIVE;^0;2^I $E(X)[""A"",($D(^PSX(550,""C""))) K X"
^DD(550,1,1,0)="^.1"
^DD(550,1,1,1,0)="550^C^MUMPS"
^DD(550,1,1,1,1)="S:$E(X)[""A"" ^PSX(550,""C"",DA)="""""
^DD(550,1,1,1,2)="K ^PSX(550,""C"",DA)"
^DD(550,1,1,1,"%D",0)="^^5^5^2950406^^"
^DD(550,1,1,1,"%D",1,0)="This cross reference will only exist if there is an active CMOP site that the remote will be transmitting CMOP Rx's to.  There will only be one site active at a time."
^DD(550,1,1,1,"%D",2,0)="    "
^DD(550,1,1,1,"%D",3,0)="     "
^DD(550,1,1,1,"%D",4,0)="     "
^DD(550,1,1,1,"%D",5,0)="     "
^DD(550,1,1,1,"DT")="2930526"
^DD(550,1,1,2,0)="550^ST"
^DD(550,1,1,2,1)="S ^PSX(550,""ST"",$E(X,1,30),DA)="""""
^DD(550,1,1,2,2)="K ^PSX(550,""ST"",$E(X,1,30),DA)"
^DD(550,1,1,2,"DT")="3010619"
^DD(550,1,3)="Enter 'A' for Active, 'I' for Inactive."
^DD(550,1,4)=""
^DD(550,1,21,0)="^^4^4^2950406^^^^"
^DD(550,1,21,1,0)="The current processing status of this facility.  ACTIVE "
^DD(550,1,21,2,0)="status indicates the facility is participating in transmitting data"
^DD(550,1,21,3,0)="to the CMOP.  INACTIVE status indicates that CMOP processing is not "
^DD(550,1,21,4,0)="currently available."
^DD(550,1,21,5,0)=" 'N' for 'Active Non-CS only'"
^DD(550,1,21,6,0)=" 'C' for 'Active CS only'"
^DD(550,1,21,7,0)=" 'B' for 'Active both CS and Non-CS'"
^DD(550,1,22)=""
^DD(550,1,23,0)="^^1^1^2931221^^^^"
^DD(550,1,23,1,0)="Set of codes."
^DD(550,1,"DT")="3020809"
^DD(550,2,0)="XMIT STATUS^S^H:NO CURRENT TRANSMISSION;T:TRANSMITTING DATA;R:DATA RECOVERY ;^0;3^Q"
^DD(550,2,1,0)="^.1"
^DD(550,2,1,1,0)="550^TR"
^DD(550,2,1,1,1)="S ^PSX(550,""TR"",$E(X,1,30),DA)="""""
^DD(550,2,1,1,2)="K ^PSX(550,""TR"",$E(X,1,30),DA)"
^DD(550,2,1,1,"DT")="3010621"
^DD(550,2,21,0)="^^4^4^2950628^^"
^DD(550,2,21,1,0)=" "
^DD(550,2,21,2,0)="This field contains a set of codes indicating the current status of the"
^DD(550,2,21,3,0)="job which transmits data to the CMOP.  Only one transmission may process"
^DD(550,2,21,4,0)="at a given time."
^DD(550,2,"DT")="2950628"
^DD(550,3,0)="CMOP DOMAIN^R*P4.2'^DIC(4.2,^0;4^S DIC(""S"")=""I $P($G(^DIC(4.2,+Y,0)),U,1)[""""CMOP-"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(550,3,12)="This screen will only allow mail domains beginning with CMOP- to be entered."
^DD(550,3,12.1)="S DIC(""S"")=""I $P($G(^DIC(4.2,+Y,0)),U,1)[""""CMOP-"""""""
^DD(550,3,21,0)="^^2^2^2950404^^^^"
^DD(550,3,21,1,0)="This is a valid MailMan domain for the Consolidated Mail Outpatient"
^DD(550,3,21,2,0)="Pharmacy system receiving the facility-transmitted data."
^DD(550,3,23,0)="^^1^1^2950404^^^^"
^DD(550,3,23,1,0)="Pointer to Domain File #4."
^DD(550,3,"DT")="2950323"
^DD(550,4,0)="ACTIVATE/INACTIVATE DT/TM^550.04DA^^1;0"
^DD(550,4,21,0)="^^1^1^2930811^^^"
^DD(550,4,21,1,0)="The date/time of the Activate/Inactivate action."
^DD(550,4,23,0)="^^1^1^2930811^^"
^DD(550,4,23,1,0)="Date/time"
^DD(550,4,"DT")="2930811"
^DD(550,6,0)="LAST BATCH TRANSMITTED^P550.2'^PSX(550.2,^3;1^Q"
^DD(550,6,3)="Enter the batch number of the last completed transmission."
^DD(550,6,21,0)="^^1^1^2940625^^^"
^DD(550,6,21,1,0)="The batch number of the last completed transmission."
^DD(550,6,23,0)="^^1^1^2950406^^^"
^DD(550,6,23,1,0)="Pointer to CMOP Transmission File (#550.2)."
^DD(550,6,"DT")="2940625"
^DD(550,7,0)="AUTO TRANSMIT^550.07SA^^T;0"
^DD(550,8,0)="PURGE DT/TM^550.08DA^^P;0"
^DD(550,9,0)="TASK NUMBER^NJ13,0^^3;2^K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550,9,1,0)="^.1"
^DD(550,9,1,1,0)="550^AG"
^DD(550,9,1,1,1)="S ^PSX(550,""AG"",$E(X,1,30),DA)="""""
^DD(550,9,1,1,2)="K ^PSX(550,""AG"",$E(X,1,30),DA)"
^DD(550,9,1,1,"DT")="3020513"
^DD(550,9,3)="Type a Number between 0 and 9999999999999, 0 Decimal Digits"
^DD(550,9,21,0)="^^1^1^2950926^"
^DD(550,9,21,1,0)="The task number of the currently running transmission job."
^DD(550,9,"DT")="3020513"
^DD(550,10,0)="AUTO TRANSMIT CS^550.09SA^^T1;0"
^DD(550,10,21,0)="^^2^2^3000302^"
^DD(550,10,21,1,0)="This multiple is used to track and control the background jobs that"
^DD(550,10,21,2,0)="gather and transmit CMOP controlled substance prescription transmissions."
^DD(550,11,0)="NON-CS DAYS TO TRANSMIT^NJ2,0^^2;1^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1.N) X"
^DD(550,11,3)="Type a number between 0 and 30, 0 Decimal Digits"
^DD(550,11,21,0)="^^2^2^3021204^"
^DD(550,11,21,1,0)="The number of days into the future the NON-CS process will look to pick up"
^DD(550,11,21,2,0)="prescriptions for a patient already in the transmission."
^DD(550,11,"DT")="3021204"
^DD(550,12,0)="CS DAYS TO TRANSMIT^NJ2,0^^2;2^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1.N) X"
^DD(550,12,3)="Type a number between 0 and 30, 0 Decimal Digits"
^DD(550,12,21,0)="^^2^2^3021204^"
^DD(550,12,21,1,0)="The number of days into the future the CS process will look to pick up"
^DD(550,12,21,2,0)="prescriptions for a patient already in the transmission."
^DD(550,12,"DT")="3021204"
^DD(550,"B","ACTIVATE/INACTIVATE DT/TM",4)=""
^DD(550,"B","AUTO TRANSMIT",7)=""
^DD(550,"B","AUTO TRANSMIT CS",10)=""
^DD(550,"B","CMOP DOMAIN",3)=""
^DD(550,"B","CS DAYS TO TRANSMIT",12)=""
^DD(550,"B","LAST BATCH TRANSMITTED",6)=""
^DD(550,"B","NON-CS DAYS TO TRANSMIT",11)=""
^DD(550,"B","PURGE DT/TM",8)=""
^DD(550,"B","STATUS",1)=""
^DD(550,"B","SYSTEM",.01)=""
^DD(550,"B","TASK NUMBER",9)=""
^DD(550,"B","XMIT STATUS",2)=""
^DD(550,"GL",0,1,.01)=""
^DD(550,"GL",0,2,1)=""
^DD(550,"GL",0,3,2)=""
^DD(550,"GL",0,4,3)=""
^DD(550,"GL",1,0,4)=""
^DD(550,"GL",2,1,11)=""
^DD(550,"GL",2,2,12)=""
^DD(550,"GL",3,1,6)=""
^DD(550,"GL",3,2,9)=""
^DD(550,"GL","P",0,8)=""
^DD(550,"GL","T",0,7)=""
^DD(550,"GL","T1",0,10)=""
^DD(550,"IX",.01)=""
^DD(550,"IX",1)=""
^DD(550,"IX",2)=""
^DD(550,"IX",9)=""
^DD(550,"RQ",.01)=""
^DD(550,"RQ",3)=""
^DD(550,"SB",550.04,4)=""
^DD(550,"SB",550.07,7)=""
^DD(550,"SB",550.08,8)=""
^DD(550,"SB",550.09,10)=""
^DD(550.04,0)="ACTIVATE/INACTIVATE DT/TM SUB-FIELD^^5^6"
^DD(550.04,0,"IX","B",550.04,.01)=""
^DD(550.04,0,"NM","ACTIVATE/INACTIVATE DT/TM")=""
^DD(550.04,0,"UP")="550"
^DD(550.04,.01,0)="ACTIVATE/INACTIVATE DT/TM^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(550.04,.01,1,0)="^.1"
^DD(550.04,.01,1,1,0)="550^AC^MUMPS"
^DD(550.04,.01,1,1,1)="S ^PSX(550,""AC"",DA)="""""
^DD(550.04,.01,1,1,2)="K ^PSX(550,""AC"",DA)"
^DD(550.04,.01,1,1,3)="DO NOT DELETE"
^DD(550.04,.01,1,1,"%D",0)="^^6^6^2950406^^^"
^DD(550.04,.01,1,1,"%D",1,0)="This cross reference exists for this entry until a response date/time is entered from the CMOP."
^DD(550.04,.01,1,1,"%D",2,0)="     "
^DD(550.04,.01,1,1,"%D",3,0)="    "
^DD(550.04,.01,1,1,"%D",4,0)="    "
^DD(550.04,.01,1,1,"%D",5,0)="   "
^DD(550.04,.01,1,1,"%D",6,0)="   "
^DD(550.04,.01,1,1,"DT")="2930811"
^DD(550.04,.01,1,2,0)="550.04^B"
^DD(550.04,.01,1,2,1)="S ^PSX(550,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(550.04,.01,1,2,2)="K ^PSX(550,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(550.04,.01,1,2,"DT")="3011101"
^DD(550.04,.01,21,0)="^^2^2^2950404^^"
^DD(550.04,.01,21,1,0)="The date/time of the Activate/Inactivate action."
^DD(550.04,.01,21,2,0)=" "
^DD(550.04,.01,23,0)="^^1^1^2950404^^"
^DD(550.04,.01,23,1,0)="Date/time"
^DD(550.04,.01,"DT")="2930811"
^DD(550.04,1,0)="INITIATOR^P200'X^VA(200,^0;2^K:'$D(^XUSEC(""PSXCMOPMGR"",X)) X"
^DD(550.04,1,3)=""
^DD(550.04,1,21,0)="^^1^1^2930811^^"
^DD(550.04,1,21,1,0)="The person initiating this action."
^DD(550.04,1,23,0)="^^1^1^2930811^"
^DD(550.04,1,23,1,0)="Pointer to New Person file."
^DD(550.04,1,"DT")="2931109"
^DD(550.04,2,0)="CMOP RESPONSE DT/TM^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(550.04,2,1,0)="^.1"
^DD(550.04,2,1,1,0)="550^AD^MUMPS"
^DD(550.04,2,1,1,1)="K ^PSX(550,""AC"",DA)"
^DD(550.04,2,1,1,2)="Q"
^DD(550.04,2,1,1,"%D",0)="^^2^2^2930811^"
^DD(550.04,2,1,1,"%D",1,0)="This cross reference kills the ""AC"" cross reference when a date/time is"
^DD(550.04,2,1,1,"%D",2,0)="entered in this field."
^DD(550.04,2,1,1,"DT")="2930811"
^DD(550.04,2,21,0)="^^1^1^2931109^"
^DD(550.04,2,21,1,0)="The date/time the CMOP responded to the request or notification."
^DD(550.04,2,23,0)="^^1^1^2931109^^"
^DD(550.04,2,23,1,0)="Date/time"
^DD(550.04,2,"DT")="2930811"
^DD(550.04,3,0)="CMOP RESPONSE^S^A:APPROVED;D:DISAPPROVED;N:NOTIFICATION RECEIVED;P:PENDING;^0;4^Q"
^DD(550.04,3,1,0)="^.1"
^DD(550.04,3,1,1,0)="550^AP^MUMPS"
^DD(550.04,3,1,1,1)="K:X'=""P"" ^PSX(550,""AP"",DA(1),DA) S:X=""P"" ^PSX(550,""AP"",DA(1),DA)="""""
^DD(550.04,3,1,1,2)="K:X'=""P"" ^PSX(550,""AP"",DA(1),DA)"
^DD(550.04,3,1,1,"%D",0)="^^6^6^2950406^^^^"
^DD(550.04,3,1,1,"%D",1,0)="This cross reference is used to determine if a request to activate the CMOP site is still pending.  If it is still pending another request will not be generated."
^DD(550.04,3,1,1,"%D",2,0)=" "
^DD(550.04,3,1,1,"%D",3,0)="      "
^DD(550.04,3,1,1,"%D",4,0)="      "
^DD(550.04,3,1,1,"%D",5,0)="     "
^DD(550.04,3,1,1,"%D",6,0)="     "
^DD(550.04,3,1,1,"DT")="2940124"
^DD(550.04,3,3)=""
^DD(550.04,3,21,0)="^^1^1^2950404^^"
^DD(550.04,3,21,1,0)="This field describes the CMOP response to the request or notification."
^DD(550.04,3,23,0)="^^1^1^2931109^^^"
^DD(550.04,3,23,1,0)="Set of Codes"
^DD(550.04,3,"DT")="2940124"
^DD(550.04,4,0)="ACTION TYPE^S^A:ACTIVATION REQUEST;I:INACTIVATION NOTICE;^0;5^Q"
^DD(550.04,4,21,0)="^^1^1^2930811^^"
^DD(550.04,4,21,1,0)="The type of action (Activate/Inactivate) for this entry."
^DD(550.04,4,23,0)="^^1^1^2930811^"
^DD(550.04,4,23,1,0)="Set of Codes"
^DD(550.04,4,"DT")="2930811"
^DD(550.04,5,0)="REMOTE INITIATOR^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(550.04,5,3)="Answer must be 3-30 characters in length"
^DD(550.04,5,21,0)="^^1^1^3021204^"
^DD(550.04,5,21,1,0)="Name of the CMOP person who sent the message."
^DD(550.04,5,"DT")="3021204"
^DD(550.04,"B","ACTION TYPE",4)=""
^DD(550.04,"B","ACTIVATE/INACTIVATE DT/TM",.01)=""
^DD(550.04,"B","CMOP RESPONSE",3)=""
^DD(550.04,"B","CMOP RESPONSE DT/TM",2)=""
^DD(550.04,"B","INITIATOR",1)=""
^DD(550.04,"B","REMOTE INITIATOR",5)=""
^DD(550.04,"GL",0,1,.01)=""
^DD(550.04,"GL",0,2,1)=""
^DD(550.04,"GL",0,3,2)=""
^DD(550.04,"GL",0,4,3)=""
^DD(550.04,"GL",0,5,4)=""
^DD(550.04,"GL",0,6,5)=""
^DD(550.04,"IX",.01)=""
^DD(550.04,"IX",2)=""
^DD(550.04,"IX",3)=""
^DD(550.07,0)="AUTO TRANSMIT SUB-FIELD^^7^7"
^DD(550.07,0,"DT")="2960703"
^DD(550.07,0,"NM","AUTO TRANSMIT")=""
^DD(550.07,0,"UP")="550"
^DD(550.07,.01,0)="AUTO TRANSMIT^S^1:YES;2:NO;^0;1^Q"
^DD(550.07,.01,1,0)="^.1"
^DD(550.07,.01,1,1,0)="550^AT^MUMPS"
^DD(550.07,.01,1,1,1)="S:X=1 ^PSX(550,""AT"",DA)="""""
^DD(550.07,.01,1,1,2)="K ^PSX(550,""AT"",DA)"
^DD(550.07,.01,1,1,"%D",0)="^^6^6^2950406^^^^"
^DD(550.07,.01,1,1,"%D",1,0)="This cross reference is used to determine if a site has scheduled auto transmissions.  If this cross reference is set, another auto transmission schedule can not be set up."
^DD(550.07,.01,1,1,"%D",2,0)=" "
^DD(550.07,.01,1,1,"%D",3,0)="     "
^DD(550.07,.01,1,1,"%D",4,0)="    "
^DD(550.07,.01,1,1,"%D",5,0)="    "
^DD(550.07,.01,1,1,"%D",6,0)="    "
^DD(550.07,.01,1,1,"DT")="2941018"
^DD(550.07,.01,21,0)="^^2^2^2950406^^"
^DD(550.07,.01,21,1,0)="A '1' in this field indicates the facility has currently scheduled"
^DD(550.07,.01,21,2,0)="background transmissions for CMOP processing."
^DD(550.07,.01,23,0)="^^1^1^2930811^"
^DD(550.07,.01,23,1,0)="Set of Codes"
^DD(550.07,.01,"DT")="2941018"
^DD(550.07,1,0)="QUEUED TO BEGIN^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(550.07,1,21,0)="^^1^1^2930811^^"
^DD(550.07,1,21,1,0)="The date/time of the initial background transmission."
^DD(550.07,1,23,0)="^^1^1^2930811^"
^DD(550.07,1,23,1,0)="Date/time"
^DD(550.07,1,"DT")="2930811"
^DD(550.07,2,0)="SCHEDULING FREQUENCY(HRS)^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(550.07,2,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(550.07,2,21,0)="^^2^2^2930811^^"
^DD(550.07,2,21,1,0)="This is the frequency (in hours) that the automatic processing will be"
^DD(550.07,2,21,2,0)="rescheduled."
^DD(550.07,2,23,0)="^^1^1^2930811^"
^DD(550.07,2,23,1,0)="Number"
^DD(550.07,2,"DT")="2930811"
^DD(550.07,3,0)="NEXT TRANSMISSION TIME^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(550.07,3,21,0)="^^1^1^2960703^"
^DD(550.07,3,21,1,0)="This is the date/time of the next scheduled auto transmission."
^DD(550.07,3,"DT")="2960703"
^DD(550.07,5,0)="SCHEDULED BY^P200'^VA(200,^0;6^Q"
^DD(550.07,5,21,0)="^^1^1^2930811^^^"
^DD(550.07,5,21,1,0)="The name of the person who scheduled the automatic processing."
^DD(550.07,5,23,0)="^^1^1^2930811^"
^DD(550.07,5,23,1,0)="Pointer to New Person"
^DD(550.07,5,"DT")="2930608"
^DD(550.07,6,0)="TASK NUMBER^NJ10,0^^0;7^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(550.07,6,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(550.07,6,21,0)="^^1^1^2931109^"
^DD(550.07,6,21,1,0)="This is the task number used to reschedule the job."
^DD(550.07,6,22)=""
^DD(550.07,6,"DT")="2930529"
^DD(550.07,7,0)="NUMBER OF DAYS TO TRANSMIT^NJ2,0^^0;8^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.07,7,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(550.07,7,21,0)="^^2^2^2960701^"
^DD(550.07,7,21,1,0)="This number determines the number of days to add to the current date to"
^DD(550.07,7,21,2,0)="calculate the transmit through date for CMOP auto transmissions."
^DD(550.07,7,"DT")="2960701"
^DD(550.07,"B","AUTO TRANSMIT",.01)=""
^DD(550.07,"B","NEXT TRANSMISSION TIME",3)=""
^DD(550.07,"B","NUMBER OF DAYS TO TRANSMIT",7)=""
^DD(550.07,"B","QUEUED TO BEGIN",1)=""
^DD(550.07,"B","SCHEDULED BY",5)=""
^DD(550.07,"B","SCHEDULING FREQUENCY(HRS)",2)=""
^DD(550.07,"B","TASK NUMBER",6)=""
^DD(550.07,"GL",0,1,.01)=""
^DD(550.07,"GL",0,2,1)=""
^DD(550.07,"GL",0,3,2)=""
^DD(550.07,"GL",0,4,3)=""
^DD(550.07,"GL",0,6,5)=""
^DD(550.07,"GL",0,7,6)=""
^DD(550.07,"GL",0,8,7)=""
^DD(550.07,"IX",.01)=""
^DD(550.08,0)="PURGE DT/TM SUB-FIELD^^4^4"
^DD(550.08,0,"IX","B",550.08,.01)=""
^DD(550.08,0,"NM","PURGE DT/TM")=""
^DD(550.08,0,"UP")="550"
^DD(550.08,.01,0)="PURGE DT/TM^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(550.08,.01,1,0)="^.1"
^DD(550.08,.01,1,1,0)="550.08^B"
^DD(550.08,.01,1,1,1)="S ^PSX(550,DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(550.08,.01,1,1,2)="K ^PSX(550,DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(550.08,.01,21,0)="^^1^1^2930529^"
^DD(550.08,.01,21,1,0)="Date/time the last purge by the CMOP background manager was completed."
^DD(550.08,.01,"DT")="2930529"
^DD(550.08,1,0)="TOTAL ORDERS PURGED^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.08,1,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(550.08,1,21,0)="^^1^1^2930608^"
^DD(550.08,1,21,1,0)="This is the total records purged from the PSX(501 global."
^DD(550.08,1,"DT")="2930608"
^DD(550.08,3,0)="START SEQ #^NJ10,0^^0;4^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(550.08,3,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(550.08,3,21,0)="^^2^2^2931109^"
^DD(550.08,3,21,1,0)=" "
^DD(550.08,3,21,2,0)="The starting message number of the data transmission."
^DD(550.08,3,"DT")="2930602"
^DD(550.08,4,0)="END SEQ #^NJ10,0^^0;5^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(550.08,4,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(550.08,4,21,0)="^^2^2^2931109^"
^DD(550.08,4,21,1,0)=" "
^DD(550.08,4,21,2,0)="The last message number of the data transmission."
^DD(550.08,4,"DT")="2930602"
^DD(550.08,"B","END SEQ #",4)=""
^DD(550.08,"B","PURGE DT/TM",.01)=""
^DD(550.08,"B","START SEQ #",3)=""
^DD(550.08,"B","TOTAL ORDERS PURGED",1)=""
^DD(550.08,"GL",0,1,.01)=""
^DD(550.08,"GL",0,2,1)=""
^DD(550.08,"GL",0,4,3)=""
^DD(550.08,"GL",0,5,4)=""
^DD(550.08,"IX",.01)=""
^DD(550.09,0)="AUTO TRANSMIT CS SUB-FIELD^^7^7"
^DD(550.09,0,"DT")="2991216"
^DD(550.09,0,"IX","ATC",550.09,.01)=""
^DD(550.09,0,"NM","AUTO TRANSMIT CS")=""
^DD(550.09,0,"UP")="550"
^DD(550.09,.01,0)="AUTO TRANSMIT CS^S^1:YES;2:NO;^0;1^Q"
^DD(550.09,.01,1,0)="^.1^^-1"
^DD(550.09,.01,1,2,0)="550.09^ATC^MUMPS"
^DD(550.09,.01,1,2,1)="S:X=1 ^PSX(550,""ATC"",DA)="""""
^DD(550.09,.01,1,2,2)="K ^PSX(550,""ATC"",DA)"
^DD(550.09,.01,1,2,"%D",0)="^^3^3^2991208^"
^DD(550.09,.01,1,2,"%D",1,0)="This cross reference is used to determine if a site has scheduled"
^DD(550.09,.01,1,2,"%D",2,0)="CMOP controlled subs auto transmissions.  If this cross reference is set,"
^DD(550.09,.01,1,2,"%D",3,0)="another auto transmission schedule cannot be established."
^DD(550.09,.01,1,2,"DT")="2991208"
^DD(550.09,.01,21,0)="^^2^2^3000302^^^"
^DD(550.09,.01,21,1,0)="A '1' in this field indicates the facility has currently scheduled"
^DD(550.09,.01,21,2,0)="background controlled substances transmissions for CMOP processing."
^DD(550.09,.01,"DT")="2991209"
^DD(550.09,1,0)="QUEUED TO BEGIN^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(550.09,1,3)="(No range limit on date)"
^DD(550.09,1,21,0)="^^2^2^2991208^"
^DD(550.09,1,21,1,0)="The date/time of the initial background controlled substances"
^DD(550.09,1,21,2,0)="transmission."
^DD(550.09,1,"DT")="3020809"
^DD(550.09,2,0)="SCHEDULING FREQUENCY (HRS)^NJ,^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(550.09,2,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(550.09,2,21,0)="^^2^2^2991216^^"
^DD(550.09,2,21,1,0)="This is the frequency (in hours) that the automatic processing will be"
^DD(550.09,2,21,2,0)="rescheduled."
^DD(550.09,2,"DT")="3020809"
^DD(550.09,3,0)="NEXT TRANSMISSION TIME^RD^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(550.09,3,3)="(No range limit on date)"
^DD(550.09,3,21,0)="^^1^1^2991216^"
^DD(550.09,3,21,1,0)="This is the date/time of the next scheduled auto transmission."
^DD(550.09,3,"DT")="3020809"
^DD(550.09,5,0)="SCHEDULED BY^P200'^VA(200,^0;6^Q"
^DD(550.09,5,21,0)="^^1^1^3000224^^"
^DD(550.09,5,21,1,0)="The name of the person who scheduled the automatic processing."
^DD(550.09,5,"DT")="2991209"
^DD(550.09,6,0)="TASK NUMBER^NJ10,0^^0;7^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(550.09,6,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(550.09,6,21,0)="^^1^1^2991209^"
^DD(550.09,6,21,1,0)="This is the task number used to reschedule the job."
^DD(550.09,6,"DT")="2991209"
^DD(550.09,7,0)="NUMBER OF DAYS TO TRANSMIT^NJ2,0^^0;8^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.09,7,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(550.09,7,21,0)="^^2^2^2991209^"
^DD(550.09,7,21,1,0)="This number determines the number of days to add to the current date to"
^DD(550.09,7,21,2,0)="calculate the transmit through date for CMOP auto transmissions."
^DD(550.09,7,"DT")="2991209"
^DD(550.09,"B","AUTO TRANSMIT CS",.01)=""
^DD(550.09,"B","NEXT TRANSMISSION TIME",3)=""
^DD(550.09,"B","NUMBER OF DAYS TO TRANSMIT",7)=""
^DD(550.09,"B","QUEUED TO BEGIN",1)=""
^DD(550.09,"B","SCHEDULED BY",5)=""
^DD(550.09,"B","SCHEDULING FREQUENCY (HRS)",2)=""
^DD(550.09,"B","TASK NUMBER",6)=""
^DD(550.09,"GL",0,1,.01)=""
^DD(550.09,"GL",0,2,1)=""
^DD(550.09,"GL",0,3,2)=""
^DD(550.09,"GL",0,4,3)=""
^DD(550.09,"GL",0,6,5)=""
^DD(550.09,"GL",0,7,6)=""
^DD(550.09,"GL",0,8,7)=""
^DD(550.09,"IX",.01)=""
^DD(550.09,"RQ",3)=""
^DD(550.1,0)="FIELD^^101^8"
^DD(550.1,0,"DDA")="N"
^DD(550.1,0,"DT")="2950628"
^DD(550.1,0,"IX","AA",550.1,1)=""
^DD(550.1,0,"IX","AB",550.1,1)=""
^DD(550.1,0,"IX","AR",550.1,1)=""
^DD(550.1,0,"IX","AS",550.1,1)=""
^DD(550.1,0,"IX","AX",550.1,1)=""
^DD(550.1,0,"IX","B",550.1,.01)=""
^DD(550.1,0,"IX","C",550.1,3)=""
^DD(550.1,0,"NM","CMOP RX QUEUE")=""
^DD(550.1,0,"VR")="2.0"
^DD(550.1,0,"VRPK")="CMOP"
^DD(550.1,.01,0)="SEQUENCE NUMBER^RNJ13,0X^^0;1^K:+X'=X!(X>9999999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(550.1,.01,1,0)="^.1"
^DD(550.1,.01,1,1,0)="550.1^B"
^DD(550.1,.01,1,1,1)="S ^PSX(550.1,""B"",$E(X,1,30),DA)="""""
^DD(550.1,.01,1,1,2)="K ^PSX(550.1,""B"",$E(X,1,30),DA)"
^DD(550.1,.01,1,1,"DT")="3020719"
^DD(550.1,.01,3)="Type a Number between 1 and 9999999999999, 0 Decimal Digits"
^DD(550.1,.01,21,0)="^^1^1^2930526^"
^DD(550.1,.01,21,1,0)="This is the message number for this order."
^DD(550.1,.01,"DT")="3020719"
^DD(550.1,1,0)="MESSAGE STATUS^S^1:QUEUED TO SEND;2:TRANSMITTED;3:IN TRANSITION;4:ACKNOWLEDGED;5:UPDATED;^1;1^Q"
^DD(550.1,1,1,0)="^.1"
^DD(550.1,1,1,1,0)="550.1^AS^MUMPS"
^DD(550.1,1,1,1,1)="S:X=1 ^PSX(550.1,""AS"",DA)="""""
^DD(550.1,1,1,1,2)="K ^PSX(550.1,""AS"",DA)"
^DD(550.1,1,1,1,"%D",0)="^^2^2^2931109^"
^DD(550.1,1,1,1,"%D",1,0)=" "
^DD(550.1,1,1,1,"%D",2,0)="If this cross reference exists, the message is queued to send."
^DD(550.1,1,1,2,0)="550.1^AR^MUMPS"
^DD(550.1,1,1,2,1)="S:X=2 ^PSX(550.1,""AR"",DA)="""""
^DD(550.1,1,1,2,2)="K ^PSX(550.1,""AR"",DA)"
^DD(550.1,1,1,2,"%D",0)="^^6^6^2950406^^^^"
^DD(550.1,1,1,2,"%D",1,0)="If this cross reference exists, the message has been transmitted to the CMOP."
^DD(550.1,1,1,2,"%D",2,0)=" "
^DD(550.1,1,1,2,"%D",3,0)="    "
^DD(550.1,1,1,2,"%D",4,0)="     "
^DD(550.1,1,1,2,"%D",5,0)="     "
^DD(550.1,1,1,2,"%D",6,0)="     "
^DD(550.1,1,1,3,0)="550.1^AB^MUMPS"
^DD(550.1,1,1,3,1)="S:X=3 ^PSX(550.1,""AB"",DA)="""""
^DD(550.1,1,1,3,2)="K ^PSX(550.1,""AB"",DA)"
^DD(550.1,1,1,3,"%D",0)="^^2^2^2931109^"
^DD(550.1,1,1,3,"%D",1,0)=" "
^DD(550.1,1,1,3,"%D",2,0)="If this cross reference exists the message is being built."
^DD(550.1,1,1,4,0)="550.1^AA^MUMPS"
^DD(550.1,1,1,4,1)="S:X=4 ^PSX(550.1,""AA"",DA)="""""
^DD(550.1,1,1,4,2)="K ^PSX(550.1,""AA"",DA)"
^DD(550.1,1,1,4,"%D",0)="^^2^2^2950404^^^"
^DD(550.1,1,1,4,"%D",1,0)="This cross reference indicates that a transmission has been sent and acknowledged by the CMOP."
^DD(550.1,1,1,4,"%D",2,0)="  "
^DD(550.1,1,1,4,"DT")="2940825"
^DD(550.1,1,1,5,0)="550.1^AX^MUMPS"
^DD(550.1,1,1,5,1)="S:X=5 ^PSX(550.1,""AX"",DA)="""""
^DD(550.1,1,1,5,2)="K ^PSX(550.1,""AX"",DA)"
^DD(550.1,1,1,5,"%D",0)="^^1^1^2950628^"
^DD(550.1,1,1,5,"%D",1,0)="If this cross reference exists, the Rx data in the message has been filed in the Rx file (#52)."
^DD(550.1,1,1,5,"DT")="2950628"
^DD(550.1,1,21,0)="^^1^1^2950628^^^^"
^DD(550.1,1,21,1,0)="This field indicates the current status of this patient order."
^DD(550.1,1,23,0)="^^1^1^2930526^^"
^DD(550.1,1,23,1,0)="Set of codes."
^DD(550.1,1,"DT")="2950628"
^DD(550.1,2,0)="QUEUED DATE/TIME^FO^^1;2^K:$L(X)>25!($L(X)<3) X"
^DD(550.1,2,2)="S Y(0)=Y S %H=Y D YX^%DTC"
^DD(550.1,2,2.1)="S %H=Y D YX^%DTC"
^DD(550.1,2,3)="Answer must be 3-25 characters in length."
^DD(550.1,2,21,0)="^^1^1^2931109^"
^DD(550.1,2,21,1,0)="This represents the date/time the order was created."
^DD(550.1,2,23,0)="^^1^1^2931109^"
^DD(550.1,2,23,1,0)="Date/time in $H format."
^DD(550.1,2,"DT")="2910619"
^DD(550.1,3,0)="TRANSMISSION NUMBER^F^^1;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(550.1,3,1,0)="^.1"
^DD(550.1,3,1,1,0)="550.1^C^MUMPS"
^DD(550.1,3,1,1,1)="S:X'="""" ^PSX(550.1,""C"",X,DA)="""""
^DD(550.1,3,1,1,2)="K ^PSX(550.1,""C"",X,DA)"
^DD(550.1,3,1,1,"%D",0)="^^1^1^2950629^^"
^DD(550.1,3,1,1,"%D",1,0)="This cross reference list the transmission number for the order."
^DD(550.1,3,1,1,"DT")="2950629"
^DD(550.1,3,3)="Answer must be 1-10 characters in length."
^DD(550.1,3,21,0)="^^1^1^2950628^"
^DD(550.1,3,21,1,0)="This is the transmission this order was in when transmitted to the CMOP."
^DD(550.1,3,"DT")="2950629"
^DD(550.1,5,0)="TRANSMITTED DATE/TIME^FO^^1;4^K:$L(X)>25!($L(X)<3) X"
^DD(550.1,5,3)="Answer must be 3-25 characters in length."
^DD(550.1,5,21,0)="^^1^1^2921117^"
^DD(550.1,5,21,1,0)="This represents the date/time the order was transmitted to the CMOP."
^DD(550.1,5,23,0)="^^1^1^2921117^"
^DD(550.1,5,23,1,0)="Date/time in $H format."
^DD(550.1,5,"DT")="2921117"
^DD(550.1,6,0)="RECEIVED DATE/TIME^FO^^1;5^K:$L(X)>25!($L(X)<3) X"
^DD(550.1,6,3)="Answer must be 3-25 characters in length."
^DD(550.1,6,21,0)="^^1^1^2921117^^"
^DD(550.1,6,21,1,0)="This represents the date/time this order was received by the CMOP."
^DD(550.1,6,23,0)="^^1^1^2921117^"
^DD(550.1,6,23,1,0)="Date/Time in $H format."
^DD(550.1,100,0)="TRANSMISSION TEXT^550.11A^^T;0"
^DD(550.1,101,0)="RX NUMBER^550.1101PA^^2;0"
^DD(550.1,101,21,0)="^^4^4^2940823^^"
^DD(550.1,101,21,1,0)="This is a pointer to the Prescription File (#52) and is used to update"
^DD(550.1,101,21,2,0)="the prescription entry when the medical center has received notification"
^DD(550.1,101,21,3,0)="from the Consolidated Mail Outpatient Pharmacy host system that the "
^DD(550.1,101,21,4,0)="prescription has been received."
^DD(550.1,101,23,0)="^^1^1^2940823^"
^DD(550.1,101,23,1,0)="Pointer to the Prescription File #52."
^DD(550.1,"B","MESSAGE STATUS",1)=""
^DD(550.1,"B","QUEUED DATE/TIME",2)=""
^DD(550.1,"B","RECEIVED DATE/TIME",6)=""
^DD(550.1,"B","RX NUMBER",101)=""
^DD(550.1,"B","SEQUENCE NUMBER",.01)=""
^DD(550.1,"B","TRANSMISSION NUMBER",3)=""
^DD(550.1,"B","TRANSMISSION TEXT",100)=""
^DD(550.1,"B","TRANSMITTED DATE/TIME",5)=""
^DD(550.1,"GL",0,1,.01)=""
^DD(550.1,"GL",1,1,1)=""
^DD(550.1,"GL",1,2,2)=""
^DD(550.1,"GL",1,3,3)=""
^DD(550.1,"GL",1,4,5)=""
^DD(550.1,"GL",1,5,6)=""
^DD(550.1,"GL",2,0,101)=""
^DD(550.1,"GL","T",0,100)=""
^DD(550.1,"IX",.01)=""
^DD(550.1,"IX",1)=""
^DD(550.1,"IX",3)=""
^DD(550.1,"RQ",.01)=""
^DD(550.1,"SB",550.11,100)=""
^DD(550.1,"SB",550.1101,101)=""
^DD(550.11,0)="TRANSMISSION TEXT SUB-FIELD^^.01^1"
^DD(550.11,0,"NM","TRANSMISSION TEXT")=""
^DD(550.11,0,"UP")="550.1"
^DD(550.11,.01,0)="TRANSMISSION TEXT^F^^0;1^K:$L(X)>245!($L(X)<1) X"
^DD(550.11,.01,1,0)="^.1^^0"
^DD(550.11,.01,3)="Answer must be 1-245 characters in length."
^DD(550.11,.01,21,0)="^^1^1^2950201^^"
^DD(550.11,.01,21,1,0)="This is the data that will be transmitted to the CMOP.  This is patient and Rx specific data."
^DD(550.11,.01,"DT")="2920201"
^DD(550.11,"B","TRANSMISSION TEXT",.01)=""
^DD(550.11,"GL",0,1,.01)=""
^DD(550.1101,0)="RX NUMBER SUB-FIELD^^1^2"
^DD(550.1101,0,"DT")="2950628"
^DD(550.1101,0,"IX","B",550.1101,.01)=""
^DD(550.1101,0,"NM","RX NUMBER")=""
^DD(550.1101,0,"UP")="550.1"
^DD(550.1101,.01,0)="RX NUMBER^P52'^PSRX(^0;1^Q"
^DD(550.1101,.01,1,0)="^.1^^0"
^DD(550.1101,.01,1,1,0)="550.1101^B"
^DD(550.1101,.01,1,1,1)="S ^PSX(550.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(550.1101,.01,1,1,2)="K ^PSX(550.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(550.1101,.01,"DT")="2950628"
^DD(550.1101,1,0)="FILL NUMBER^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.1101,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(550.1101,1,21,0)="^^1^1^2950628^"
^DD(550.1101,1,21,1,0)="This is the fill number for the Rx."
^DD(550.1101,1,"DT")="2950628"
^DD(550.1101,"B","FILL NUMBER",1)=""
^DD(550.1101,"B","RX NUMBER",.01)=""
^DD(550.1101,"GL",0,1,.01)=""
^DD(550.1101,"GL",0,2,1)=""
^DD(550.1101,"IX",.01)=""
^DD(550.2,0)="FIELD^^17^18"
^DD(550.2,0,"DDA")="N"
^DD(550.2,0,"DT")="2940906"
^DD(550.2,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PS(59,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(59,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(550.2,0,"ID",4)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(550.2,0,"ID",5)="W ""   "",$E($P(^(0),U,6),4,5)_""-""_$E($P(^(0),U,6),6,7)_""-""_$E($P(^(0),U,6),2,3)"
^DD(550.2,0,"IX","AA",550.2,1)=""
^DD(550.2,0,"IX","AC",550.2,1)=""
^DD(550.2,0,"IX","AQ",550.2,1)=""
^DD(550.2,0,"IX","AX",550.2,1)=""
^DD(550.2,0,"IX","B",550.2,.01)=""
^DD(550.2,0,"IX","C",550.2,2)=""
^DD(550.2,0,"IX","D",550.2,5)=""
^DD(550.2,0,"IX","E",550.2,8)=""
^DD(550.2,0,"IX","F",550.2,3)=""
^DD(550.2,0,"IX","ST",550.2,1)=""
^DD(550.2,0,"IX","TYP",550.2,17)=""
^DD(550.2,0,"NM","CMOP TRANSMISSION")=""
^DD(550.2,0,"PT",52.01,.01)=""
^DD(550.2,0,"PT",550,6)=""
^DD(550.2,0,"VR")="2.0"
^DD(550.2,0,"VRPK")="CMOP"
^DD(550.2,.01,0)="TRANSMISSION^RNJ11,0^^0;1^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.2,.01,1,0)="^.1"
^DD(550.2,.01,1,1,0)="550.2^B"
^DD(550.2,.01,1,1,1)="S ^PSX(550.2,""B"",$E(X,1,30),DA)="""""
^DD(550.2,.01,1,1,2)="K ^PSX(550.2,""B"",$E(X,1,30),DA)"
^DD(550.2,.01,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(550.2,.01,21,0)="^^1^1^2940906^^^^"
^DD(550.2,.01,21,1,0)="This field contains the number of the data transmission."
^DD(550.2,.01,23,0)="^^1^1^2940906^^"
^DD(550.2,.01,23,1,0)="Number."
^DD(550.2,.01,"DT")="2940824"
^DD(550.2,1,0)="STATUS^S^1:CREATED;2:TRANSMITTED;3:ACKNOWLEDGED;4:CLOSED;5:RETRANSMITTED;^0;2^Q"
^DD(550.2,1,1,0)="^.1"
^DD(550.2,1,1,1,0)="550.2^AQ^MUMPS"
^DD(550.2,1,1,1,1)="S:X=1 ^PSX(550.2,""AQ"",DA)="""""
^DD(550.2,1,1,1,2)="K ^PSX(550.2,""AQ"",DA)"
^DD(550.2,1,1,1,"%D",0)="^^6^6^2950406^^^^"
^DD(550.2,1,1,1,"%D",1,0)="If this cross reference exists, the transmission was created and queued to send to the CMOP."
^DD(550.2,1,1,1,"%D",2,0)="  "
^DD(550.2,1,1,1,"%D",3,0)="    "
^DD(550.2,1,1,1,"%D",4,0)="     "
^DD(550.2,1,1,1,"%D",5,0)="     "
^DD(550.2,1,1,1,"%D",6,0)="     "
^DD(550.2,1,1,1,"DT")="2930521"
^DD(550.2,1,1,2,0)="550.2^AX^MUMPS"
^DD(550.2,1,1,2,1)="S:X=2 ^PSX(550.2,""AX"",DA)="""""
^DD(550.2,1,1,2,2)="K ^PSX(550.2,""AX"",DA)"
^DD(550.2,1,1,2,"%D",0)="^^6^6^2950406^^^^"
^DD(550.2,1,1,2,"%D",1,0)="If this cross reference exists, the transmission has been transmitted to the CMOP."
^DD(550.2,1,1,2,"%D",2,0)="  "
^DD(550.2,1,1,2,"%D",3,0)="    "
^DD(550.2,1,1,2,"%D",4,0)="    "
^DD(550.2,1,1,2,"%D",5,0)="    "
^DD(550.2,1,1,2,"%D",6,0)="    "
^DD(550.2,1,1,2,"DT")="2930521"
^DD(550.2,1,1,3,0)="550.2^AA^MUMPS"
^DD(550.2,1,1,3,1)="S:X=3 ^PSX(550.2,""AA"",DA)="""""
^DD(550.2,1,1,3,2)="K ^PSX(550.2,""AA"",DA)"
^DD(550.2,1,1,3,"%D",0)="^^2^2^2950404^^^"
^DD(550.2,1,1,3,"%D",1,0)="If this cross reference exists, the transmission has been received by the CMOP."
^DD(550.2,1,1,3,"%D",2,0)="  "
^DD(550.2,1,1,3,"DT")="2930521"
^DD(550.2,1,1,4,0)="550.2^AC^MUMPS"
^DD(550.2,1,1,4,1)="S:X=4 ^PSX(550.2,""AC"",DA)="""""
^DD(550.2,1,1,4,2)="K ^PSX(550.2,""AC"",DA)"
^DD(550.2,1,1,4,"%D",0)="^^6^6^2950406^^^^"
^DD(550.2,1,1,4,"%D",1,0)="If this cross reference exists, the transmission has been closed.  This means that all of the Rx's in the transmission have been processed at the CMOP."
^DD(550.2,1,1,4,"%D",2,0)="  "
^DD(550.2,1,1,4,"%D",3,0)="     "
^DD(550.2,1,1,4,"%D",4,0)="      "
^DD(550.2,1,1,4,"%D",5,0)="     "
^DD(550.2,1,1,4,"%D",6,0)="     "
^DD(550.2,1,1,4,"DT")="2930521"
^DD(550.2,1,1,5,0)="550.2^ST"
^DD(550.2,1,1,5,1)="S ^PSX(550.2,""ST"",$E(X,1,30),DA)="""""
^DD(550.2,1,1,5,2)="K ^PSX(550.2,""ST"",$E(X,1,30),DA)"
^DD(550.2,1,1,5,"DT")="3020710"
^DD(550.2,1,21,0)="^^1^1^2930526^"
^DD(550.2,1,21,1,0)="This is the status of the message."
^DD(550.2,1,"DT")="3020710"
^DD(550.2,2,0)="DIVISION^P59'I^PS(59,^0;3^Q"
^DD(550.2,2,1,0)="^.1"
^DD(550.2,2,1,1,0)="550.2^C"
^DD(550.2,2,1,1,1)="S ^PSX(550.2,""C"",$E(X,1,30),DA)="""""
^DD(550.2,2,1,1,2)="K ^PSX(550.2,""C"",$E(X,1,30),DA)"
^DD(550.2,2,1,1,"DT")="2930519"
^DD(550.2,2,21,0)="^^1^1^2930529^^"
^DD(550.2,2,21,1,0)="Pointer to the Outpatient Site File."
^DD(550.2,2,"DT")="2930806"
^DD(550.2,3,0)="CMOP SYSTEM^P550'I^PSX(550,^0;4^Q"
^DD(550.2,3,1,0)="^.1"
^DD(550.2,3,1,1,0)="550.2^F"
^DD(550.2,3,1,1,1)="S ^PSX(550.2,""F"",$E(X,1,30),DA)="""""
^DD(550.2,3,1,1,2)="K ^PSX(550.2,""F"",$E(X,1,30),DA)"
^DD(550.2,3,1,1,"DT")="2930525"
^DD(550.2,3,21,0)="^^1^1^2950201^^^"
^DD(550.2,3,21,1,0)="Pointer to the CMOP SYSTEM file (#550)."
^DD(550.2,3,23,0)="^^1^1^2950201^^"
^DD(550.2,3,23,1,0)="Pointer to the CMOP SYSTEM file (#550)."
^DD(550.2,3,"DT")="2940906"
^DD(550.2,4,0)="SENDER^P200'I^VA(200,^0;5^Q"
^DD(550.2,4,21,0)="^^2^2^2950404^^^^"
^DD(550.2,4,21,1,0)="Pointer to the New Person file.  Indicates the user who initiated this transmission."
^DD(550.2,4,21,2,0)="  "
^DD(550.2,4,"DT")="2930608"
^DD(550.2,5,0)="TRANSMISSION DATE/TIME^DI^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(550.2,5,1,0)="^.1"
^DD(550.2,5,1,1,0)="550.2^D"
^DD(550.2,5,1,1,1)="S ^PSX(550.2,""D"",$E(X,1,30),DA)="""""
^DD(550.2,5,1,1,2)="K ^PSX(550.2,""D"",$E(X,1,30),DA)"
^DD(550.2,5,1,1,"DT")="2930519"
^DD(550.2,5,21,0)="^^1^1^2950201^^^^"
^DD(550.2,5,21,1,0)="Date and time the transmission was transmitted."
^DD(550.2,5,"DT")="2930806"
^DD(550.2,6,0)="CREATED DATE/TIME^DI^^0;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(550.2,6,21,0)="^^1^1^2950201^^"
^DD(550.2,6,21,1,0)="Date and time the transmission was created.  This is the time that the user started the transmission process."
^DD(550.2,6,"DT")="2930525"
^DD(550.2,7,0)="RECEIVED DATE/TIME^D^^1;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(550.2,7,21,0)="^^1^1^2950201^^"
^DD(550.2,7,21,1,0)="This is the time that the transmission was received by the host site.  It is returned from the host site in the acknowledgement message."
^DD(550.2,7,"DT")="2930812"
^DD(550.2,8,0)="RETRANSMISSION #^NJ11,0^^1;2^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(550.2,8,1,0)="^.1"
^DD(550.2,8,1,1,0)="550.2^E"
^DD(550.2,8,1,1,1)="S ^PSX(550.2,""E"",$E(X,1,30),DA)="""""
^DD(550.2,8,1,1,2)="K ^PSX(550.2,""E"",$E(X,1,30),DA)"
^DD(550.2,8,1,1,"%D",0)="^^1^1^2950201^"
^DD(550.2,8,1,1,"%D",1,0)="This cross reference exists if this transmission is a retransmission of an earlier transmission."
^DD(550.2,8,1,1,"DT")="2930520"
^DD(550.2,8,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(550.2,8,21,0)="^^1^1^2950201^^"
^DD(550.2,8,21,1,0)="If present, this is the transmission number for the retransmission.  It will only be present on the original transmission."
^DD(550.2,8,"DT")="2930803"
^DD(550.2,9,0)="ORIGINAL TRANSMISSION^NJ11,0I^^1;3^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.2,9,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(550.2,9,21,0)="^^2^2^2940824^^"
^DD(550.2,9,21,1,0)="The transmission number of the original data transfer for this "
^DD(550.2,9,21,2,0)="retransmission entry."
^DD(550.2,9,23,0)="^^1^1^2940824^"
^DD(550.2,9,23,1,0)="Number."
^DD(550.2,9,"DT")="2940824"
^DD(550.2,10,0)="CLOSED DATE/TIME^DI^^1;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(550.2,10,21,0)="^^1^1^2950201^^"
^DD(550.2,10,21,1,0)="This is the date/time that the remote site received confirmation that all the Rx's were released or processed by the vendor.  This entry is made only when all of the Rx's have been confirmed."
^DD(550.2,10,"DT")="2930525"
^DD(550.2,11,0)="START SEQUENCE^NJ9,0I^^1;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.2,11,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(550.2,11,21,0)="^^1^1^2950201^^^"
^DD(550.2,11,21,1,0)="This is the first message number in the transmission."
^DD(550.2,11,"DT")="2930529"
^DD(550.2,12,0)="END SEQUENCE^NJ11,0I^^1;6^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.2,12,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(550.2,12,21,0)="^^1^1^2950201^^^"
^DD(550.2,12,21,1,0)="This is the last message number in the transmission."
^DD(550.2,12,"DT")="2930529"
^DD(550.2,13,0)="TOTAL ORDERS^NJ11,0I^^1;7^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.2,13,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(550.2,13,21,0)="^^1^1^2950201^^"
^DD(550.2,13,21,1,0)="This is the total number of orders in the transmission.  An order contains all of the Rx's for a single patient.  A patient should only have one order, but a transmission will have many orders."
^DD(550.2,13,"DT")="2930525"
^DD(550.2,14,0)="TOTAL RXS^NJ12,0I^^1;8^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(550.2,14,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(550.2,14,21,0)="^^1^1^2950201^^"
^DD(550.2,14,21,1,0)="This is the number of Rx's in the transmission."
^DD(550.2,14,"DT")="2930525"
^DD(550.2,15,0)="PRESCRIPTIONS^550.215P^^15;0"
^DD(550.2,15,21,0)="^^1^1^3021204^"
^DD(550.2,15,21,1,0)="Prescriptions to be transmitted."
^DD(550.2,16,0)="COMMENTS^550.216^^3;0"
^DD(550.2,16,21,0)="^^1^1^2950201^^"
^DD(550.2,16,21,1,0)="This field can contain any comments the user/programmers feel necessary and that pertains to the transmission."
^DD(550.2,17,0)="TYPE^S^N:NON-Controlled Subs;C:Controlled Subs;^TYPE;1^Q"
^DD(550.2,17,1,0)="^.1"
^DD(550.2,17,1,1,0)="550.2^TYP"
^DD(550.2,17,1,1,1)="S ^PSX(550.2,""TYP"",$E(X,1,30),DA)="""""
^DD(550.2,17,1,1,2)="K ^PSX(550.2,""TYP"",$E(X,1,30),DA)"
^DD(550.2,17,1,1,"%D",0)="^^2^2^3011105^"
^DD(550.2,17,1,1,"%D",1,0)="This is a cross-reference of the type of transmission."
^DD(550.2,17,1,1,"%D",2,0)="N = Non-Controlled Subs   ;  C = Controlled Subs"
^DD(550.2,17,1,1,"DT")="3011105"
^DD(550.2,17,3)="This field indicates whether the CMOP transmission contained prescriptions written for controlled substances."
^DD(550.2,17,21,0)="^^2^2^3021204^"
^DD(550.2,17,21,1,0)="This identifies that the transmission contains either CS or NON-CS "
^DD(550.2,17,21,2,0)="prescriptions."
^DD(550.2,17,"DT")="3021204"
^DD(550.2,"B","CLOSED DATE/TIME",10)=""
^DD(550.2,"B","CMOP SYSTEM",3)=""
^DD(550.2,"B","COMMENTS",16)=""
^DD(550.2,"B","CREATED DATE/TIME",6)=""
^DD(550.2,"B","DIVISION",2)=""
^DD(550.2,"B","END SEQUENCE",12)=""
^DD(550.2,"B","ORIGINAL TRANSMISSION",9)=""
^DD(550.2,"B","PRESCRIPTIONS",15)=""
^DD(550.2,"B","RECEIVED DATE/TIME",7)=""
^DD(550.2,"B","RETRANSMISSION #",8)=""
^DD(550.2,"B","SENDER",4)=""
^DD(550.2,"B","START SEQUENCE",11)=""
^DD(550.2,"B","STATUS",1)=""
^DD(550.2,"B","TOTAL ORDERS",13)=""
^DD(550.2,"B","TOTAL RXS",14)=""
^DD(550.2,"B","TRANSMISSION",.01)=""
^DD(550.2,"B","TRANSMISSION DATE/TIME",5)=""
^DD(550.2,"B","TYPE",17)=""
^DD(550.2,"GL",0,1,.01)=""
^DD(550.2,"GL",0,2,1)=""
^DD(550.2,"GL",0,3,2)=""
^DD(550.2,"GL",0,4,3)=""
^DD(550.2,"GL",0,5,4)=""
^DD(550.2,"GL",0,6,5)=""
^DD(550.2,"GL",0,7,6)=""
^DD(550.2,"GL",1,1,7)=""
^DD(550.2,"GL",1,2,8)=""
^DD(550.2,"GL",1,3,9)=""
^DD(550.2,"GL",1,4,10)=""
^DD(550.2,"GL",1,5,11)=""
^DD(550.2,"GL",1,6,12)=""
^DD(550.2,"GL",1,7,13)=""
^DD(550.2,"GL",1,8,14)=""
^DD(550.2,"GL",3,0,16)=""
^DD(550.2,"GL",15,0,15)=""
^DD(550.2,"GL","TYPE",1,17)=""
^DD(550.2,"IX",.01)=""
^DD(550.2,"IX",1)=""
^DD(550.2,"IX",2)=""
^DD(550.2,"IX",3)=""
^DD(550.2,"IX",5)=""
^DD(550.2,"IX",8)=""
^DD(550.2,"IX",17)=""
^DD(550.2,"RQ",.01)=""
^DD(550.2,"SB",550.215,15)=""
^DD(550.2,"SB",550.216,16)=""
^DD(550.215,0)="PRESCRIPTIONS SUB-FIELD^^.05^5"
^DD(550.215,0,"DT")="3030306"
^DD(550.215,0,"IX","B",550.215,.01)=""
^DD(550.215,0,"NM","PRESCRIPTIONS")=""
^DD(550.215,0,"UP")="550.2"
^DD(550.215,.01,0)="PRESCRIPTIONS^MP52'^PSRX(^0;1^Q"
^DD(550.215,.01,1,0)="^.1"
^DD(550.215,.01,1,1,0)="550.215^B"
^DD(550.215,.01,1,1,1)="S ^PSX(550.2,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(550.215,.01,1,1,2)="K ^PSX(550.2,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(550.215,.01,21,0)="^^1^1^3021204^"
^DD(550.215,.01,21,1,0)="Prescription to be transmitted."
^DD(550.215,.01,"DT")="3021204"
^DD(550.215,.02,0)="FILL^NJ2,0^^0;2^K:+X'=X!(X>45)!(X<0)!(X?.E1"".""1.N) X"
^DD(550.215,.02,3)="Type a number between 0 and 45, 0 Decimal Digits"
^DD(550.215,.02,21,0)="^^1^1^3021204^"
^DD(550.215,.02,21,1,0)="Fill number of the prescription to transmit."
^DD(550.215,.02,"DT")="3021204"
^DD(550.215,.03,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(550.215,.03,21,0)="^^1^1^3021204^"
^DD(550.215,.03,21,1,0)="Patient name on the prescription to transmit. (Pointer)"
^DD(550.215,.03,"DT")="3021204"
^DD(550.215,.04,0)="PATIENT NAME^CJ40^^ ; ^X ^DD(550.215,.04,9.2) S D0=$P(Y(550.215,.04,1),U,3) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S Y(550.215,.04,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(550.215,.04,101),U,1) S D0=Y(550.215,.04,80) S D1=Y(550.215,.04,81)"
^DD(550.215,.04,9.01)="2^.01;550.215^.03"
^DD(550.215,.04,9.1)=".03:.01"
^DD(550.215,.04,9.2)="S Y(550.215,.04,81)=$G(D1),Y(550.215,.04,80)=$G(D0),Y(550.215,.04,1)=$S($D(^PSX(550.2,D0,15,D1,0)):^(0),1:"""")"
^DD(550.215,.04,21,0)="^^1^1^3021204^"
^DD(550.215,.04,21,1,0)="Patient name on the prescription to transmit. (Free text)"
^DD(550.215,.04,"DT")="3021204"
^DD(550.215,.05,0)="SUSPENSE IEN^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(550.215,.05,3)="Type a number between 1 and 999999999, 0 Decimal Digits"
^DD(550.215,.05,"DT")="3030306"
^DD(550.215,"B","FILL",.02)=""
^DD(550.215,"B","PATIENT",.03)=""
^DD(550.215,"B","PATIENT NAME",.04)=""
^DD(550.215,"B","PRESCRIPTIONS",.01)=""
^DD(550.215,"B","SUSPENSE IEN",.05)=""
^DD(550.215,"GL",0,1,.01)=""
^DD(550.215,"GL",0,2,.02)=""
^DD(550.215,"GL",0,3,.03)=""
^DD(550.215,"GL",0,5,.05)=""
^DD(550.215,"IX",.01)=""
^DD(550.216,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(550.216,0,"NM","COMMENTS")=""
^DD(550.216,0,"UP")="550.2"
^DD(550.216,.01,0)="COMMENTS^W^^0;1^Q"
^DD(550.216,.01,"DT")="2930519"
^DD(550.216,"B","COMMENTS",.01)=""
^DD(550.216,"GL",0,1,.01)=""
^DD(552,0)="FIELD^^5^6"
^DD(552,0,"DDA")="N"
^DD(552,0,"DT")="2950404"
^DD(552,0,"IX","B",552,.01)=""
^DD(552,0,"IX","C",552,2)=""
^DD(552,0,"IX","D",552,5)=""
^DD(552,0,"NM","CMOP NATIONAL SITE")=""
^DD(552,0,"VR")="2.0"
^DD(552,0,"VRPK")="CMOPH"
^DD(552,.01,0)="FACILITY^RP4'^DIC(4,^0;1^Q"
^DD(552,.01,1,0)="^.1"
^DD(552,.01,1,1,0)="552^B"
^DD(552,.01,1,1,1)="S ^PSX(552,""B"",$E(X,1,30),DA)="""""
^DD(552,.01,1,1,2)="K ^PSX(552,""B"",$E(X,1,30),DA)"
^DD(552,.01,1,1,"DT")="2930727"
^DD(552,.01,3)=""
^DD(552,.01,21,0)="^^1^1^2940210^^^^"
^DD(552,.01,21,1,0)="The facility participating in the Consolidated Mail Outpatient Pharmacy."
^DD(552,.01,23,0)="^^1^1^2950201^^^^"
^DD(552,.01,23,1,0)="INSTITUTION file (#4) pointer for this facility."
^DD(552,.01,"DT")="2930727"
^DD(552,1,0)="EVENT DATE/TIME^552.01DA^^1;0"
^DD(552,1,21,0)="^^6^6^2950406^"
^DD(552,1,21,1,0)="The date/time this event activated the Consolidated Mail Outpatient Pharmacy server."
^DD(552,1,21,2,0)="     "
^DD(552,1,21,3,0)="     "
^DD(552,1,21,4,0)="    "
^DD(552,1,21,5,0)="    "
^DD(552,1,21,6,0)="   "
^DD(552,1,"DT")="2930811"
^DD(552,2,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;2^Q"
^DD(552,2,1,0)="^.1"
^DD(552,2,1,1,0)="552^C^MUMPS"
^DD(552,2,1,1,1)="S:$E(X)[""A"" ^PSX(552,""C"",DA)="""""
^DD(552,2,1,1,2)="K ^PSX(552,""C"",DA)"
^DD(552,2,1,1,"%D",0)="^^6^6^2950406^^^^"
^DD(552,2,1,1,"%D",1,0)="This cross reference will only be set for those remote sites that are sending CMOP data for processing at this host site."
^DD(552,2,1,1,"%D",2,0)=" "
^DD(552,2,1,1,"%D",3,0)="   "
^DD(552,2,1,1,"%D",4,0)="    "
^DD(552,2,1,1,"%D",5,0)="    "
^DD(552,2,1,1,"%D",6,0)="   "
^DD(552,2,1,1,"DT")="2930728"
^DD(552,2,21,0)="^^1^1^2950404^^^^"
^DD(552,2,21,1,0)="The current CMOP processing status for this facility."
^DD(552,2,23,0)="^^1^1^2950320^^^"
^DD(552,2,23,1,0)="Set of Codes"
^DD(552,2,"DT")="2930811"
^DD(552,3,0)="LAST BATCH TRANSMISSION^NJ13,0^^0;3^K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(552,3,3)="Type a Number between 0 and 9999999999999, 0 Decimal Digits"
^DD(552,3,21,0)="^^1^1^2950201^^"
^DD(552,3,21,1,0)="The transmission number of the last transmission received for this facility."
^DD(552,3,23,0)="^^1^1^2930811^"
^DD(552,3,23,1,0)="Number."
^DD(552,3,"DT")="2930811"
^DD(552,4,0)="FACILITY DOMAIN^P4.2'^DIC(4.2,^0;4^Q"
^DD(552,4,21,0)="^^2^2^2931122^"
^DD(552,4,21,1,0)=" "
^DD(552,4,21,2,0)="This is the mail domain for the remote site."
^DD(552,4,"DT")="2931122"
^DD(552,5,0)="AGENCY SITE ID (NON VA)^F^^0;5^K:$L(X)>12!($L(X)<1) X"
^DD(552,5,1,0)="^.1"
^DD(552,5,1,1,0)="552^D"
^DD(552,5,1,1,1)="S ^PSX(552,""D"",$E(X,1,30),DA)="""""
^DD(552,5,1,1,2)="K ^PSX(552,""D"",$E(X,1,30),DA)"
^DD(552,5,1,1,"DT")="3020401"
^DD(552,5,3)="Answer must be 1-12 characters in length"
^DD(552,5,21,0)="^^9^9^3021001^"
^DD(552,5,21,1,0)="The VA CMOP station number, assigned to other agencies' sites by the CMOP "
^DD(552,5,21,2,0)="software, to be used as that facilities site number within the CMOP "
^DD(552,5,21,3,0)="database."
^DD(552,5,21,4,0)=" "
^DD(552,5,21,5,0)="The existence of this field is used to determine that the site number "
^DD(552,5,21,6,0)="used belongs to an external agency."
^DD(552,5,21,7,0)=" "
^DD(552,5,21,8,0)="It must be unique within the CMOP site numbers used for VA facilities and "
^DD(552,5,21,9,0)="the CMOP site numbers used for other agencies."
^DD(552,5,"DT")="3021001"
^DD(552,"B","AGENCY SITE ID (NON VA)",5)=""
^DD(552,"B","EVENT DATE/TIME",1)=""
^DD(552,"B","FACILITY",.01)=""
^DD(552,"B","FACILITY DOMAIN",4)=""
^DD(552,"B","LAST BATCH TRANSMISSION",3)=""
^DD(552,"B","STATUS",2)=""
^DD(552,"GL",0,1,.01)=""
^DD(552,"GL",0,2,2)=""
^DD(552,"GL",0,3,3)=""
^DD(552,"GL",0,4,4)=""
^DD(552,"GL",0,5,5)=""
^DD(552,"GL",1,0,1)=""
^DD(552,"IX",.01)=""
^DD(552,"IX",2)=""
^DD(552,"IX",5)=""
^DD(552,"RQ",.01)=""
^DD(552,"SB",552.01,1)=""
^DD(552.01,0)="EVENT DATE/TIME SUB-FIELD^^7^7"
^DD(552.01,0,"DT")="2950404"
^DD(552.01,0,"IX","B",552.01,.01)=""
^DD(552.01,0,"IX","P",552.01,7)=""
^DD(552.01,0,"NM","EVENT DATE/TIME")=""
^DD(552.01,0,"UP")="552"
^DD(552.01,.01,0)="EVENT DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(552.01,.01,1,0)="^.1"
^DD(552.01,.01,1,1,0)="552.01^B"
^DD(552.01,.01,1,1,1)="S ^PSX(552,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(552.01,.01,1,1,2)="K ^PSX(552,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(552.01,.01,1,1,"DT")="3020402"
^DD(552.01,.01,21,0)="^^2^2^2930811^^"
^DD(552.01,.01,21,1,0)="The date/time this event activated the Consolidated Mail Outpatient Pharmacy"
^DD(552.01,.01,21,2,0)="server."
^DD(552.01,.01,23,0)="^^1^1^2930811^"
^DD(552.01,.01,23,1,0)="Date/Time"
^DD(552.01,.01,"DT")="3020402"
^DD(552.01,1,0)="TYPE OF EVENT^S^1:REQUEST TO ACTIVATE;2:INACTIVATION NOTICE;3:ENABLE AUTO TRANSMISSION;4:DISABLE AUTO TRANSMISSION;^0;2^Q"
^DD(552.01,1,21,0)="^^1^1^2930811^^^^"
^DD(552.01,1,21,1,0)="This field describes the event recorded in this entry."
^DD(552.01,1,23,0)="^^1^1^2930811^^^^"
^DD(552.01,1,23,1,0)="Set of Codes"
^DD(552.01,1,"DT")="2950404"
^DD(552.01,2,0)="INITIATOR^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(552.01,2,3)="Answer must be 3-30 characters in length."
^DD(552.01,2,21,0)="^^2^2^2931109^"
^DD(552.01,2,21,1,0)=" "
^DD(552.01,2,21,2,0)="The individual from the remote site who initiated this activity."
^DD(552.01,2,"DT")="2930810"
^DD(552.01,3,0)="RESPONSE DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(552.01,3,21,0)="^^1^1^2930811^^^^"
^DD(552.01,3,21,1,0)="The date/time the CMOP responded to this event."
^DD(552.01,3,23,0)="^^1^1^2930811^^"
^DD(552.01,3,23,1,0)="Date/time"
^DD(552.01,3,"DT")="2930811"
^DD(552.01,4,0)="RESPONDING OFFICIAL^P200'^VA(200,^0;5^Q"
^DD(552.01,4,3)=""
^DD(552.01,4,21,0)="^^1^1^2930811^^"
^DD(552.01,4,21,1,0)="The name of the person who responded to this event."
^DD(552.01,4,"DT")="2930811"
^DD(552.01,5,0)="AUTO TRANSMIT FREQUENCY^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(552.01,5,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(552.01,5,21,0)="^^2^2^2930811^"
^DD(552.01,5,21,1,0)="The re-scheduling frequency of the Automatic Transmission of CMOP data. This"
^DD(552.01,5,21,2,0)="is the number of HOURS for re-scheduling."
^DD(552.01,5,"DT")="2930811"
^DD(552.01,7,0)="ACTION TAKEN^S^A:APPROVED;D:DISAPPROVED;N:INACTIVATION NOTICE RECEIVED;P:PENDING;^0;6^Q"
^DD(552.01,7,1,0)="^.1"
^DD(552.01,7,1,1,0)="552.01^P^MUMPS"
^DD(552.01,7,1,1,1)="S:X=""P"" ^PSX(552,DA(1),1,""P"",$P(^PSX(552,DA(1),1,DA,0),U,2),DA)="""""
^DD(552.01,7,1,1,2)="K:X'=""P"" ^PSX(552,DA(1),1,""P"",$P(^PSX(552,DA(1),1,DA,0),U,2),DA)"
^DD(552.01,7,1,1,"%D",0)="^^3^3^2950201^"
^DD(552.01,7,1,1,"%D",1,0)=" "
^DD(552.01,7,1,1,"%D",2,0)="This cross reference will be set for actions that have a status of"
^DD(552.01,7,1,1,"%D",3,0)="pending."
^DD(552.01,7,1,1,"DT")="2930816"
^DD(552.01,7,21,0)="^^2^2^2930811^"
^DD(552.01,7,21,1,0)="This field describes the action taken by the CMOP in response to the "
^DD(552.01,7,21,2,0)="event received."
^DD(552.01,7,23,0)="^^1^1^2930811^"
^DD(552.01,7,23,1,0)="Set of Codes"
^DD(552.01,7,"DT")="2930816"
^DD(552.01,"B","ACTION TAKEN",7)=""
^DD(552.01,"B","AUTO TRANSMIT FREQUENCY",5)=""
^DD(552.01,"B","EVENT DATE/TIME",.01)=""
^DD(552.01,"B","INITIATOR",2)=""
^DD(552.01,"B","RESPONDING OFFICIAL",4)=""
^DD(552.01,"B","RESPONSE DATE/TIME",3)=""
^DD(552.01,"B","TYPE OF EVENT",1)=""
^DD(552.01,"GL",0,1,.01)=""
^DD(552.01,"GL",0,2,1)=""
^DD(552.01,"GL",0,3,2)=""
^DD(552.01,"GL",0,4,3)=""
^DD(552.01,"GL",0,5,4)=""
^DD(552.01,"GL",0,6,7)=""
^DD(552.01,"GL",0,7,5)=""
^DD(552.01,"IX",.01)=""
^DD(552.01,"IX",7)=""
^DD(552.1,0)="FIELD^^21^22"
^DD(552.1,0,"DT")="2960705"
^DD(552.1,0,"IX","AB",552.1,1)=""
^DD(552.1,0,"IX","AC",552.1,7)=""
^DD(552.1,0,"IX","AD",552.1,1)=""
^DD(552.1,0,"IX","AE",552.1,1)=""
^DD(552.1,0,"IX","AH",552.1,1)=""
^DD(552.1,0,"IX","AL",552.117,.01)=""
^DD(552.1,0,"IX","AP",552.1,16)=""
^DD(552.1,0,"IX","APQ",552.1,20)=""
^DD(552.1,0,"IX","APRG",552.1,19)=""
^DD(552.1,0,"IX","AQ",552.1,6)=""
^DD(552.1,0,"IX","AR",552.1,6)=""
^DD(552.1,0,"IX","ART",552.1,12)=""
^DD(552.1,0,"IX","B",552.1,.01)=""
^DD(552.1,0,"IX","C",552.1,21)=""
^DD(552.1,0,"NM","CMOP REFERENCE")=""
^DD(552.1,0,"PT",552.4,.01)=""
^DD(552.1,0,"VR")="2.0"
^DD(552.1,0,"VRPK")="CMOPH"
^DD(552.1,.01,0)="FACILITY BATCH REFERENCE^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(552.1,.01,1,0)="^.1"
^DD(552.1,.01,1,1,0)="552.1^B"
^DD(552.1,.01,1,1,1)="S ^PSX(552.1,""B"",$E(X,1,30),DA)="""""
^DD(552.1,.01,1,1,2)="K ^PSX(552.1,""B"",$E(X,1,30),DA)"
^DD(552.1,.01,1,1,"%D",0)="^^2^2^2931109^"
^DD(552.1,.01,1,1,"%D",1,0)=" "
^DD(552.1,.01,1,1,"%D",2,0)="Cross reference is used to validate vendor release data prior to filing."
^DD(552.1,.01,3)="Answer must be 1-30 characters in length."
^DD(552.1,.01,21,0)="^^1^1^2950310^^"
^DD(552.1,.01,21,1,0)="The unique number which identifies this data transmission."
^DD(552.1,.01,23,0)="^^1^1^2931109^"
^DD(552.1,.01,23,1,0)="Station number - transmission number"
^DD(552.1,.01,"DT")="2930529"
^DD(552.1,1,0)="STATUS^S^1:RECEIVED;2:QUEUED;3:PROCESSED;4:CLOSED;5:HOLD;6:PRINTED;99:REJECTED;7:PROCESSING;^0;2^Q"
^DD(552.1,1,1,0)="^.1"
^DD(552.1,1,1,1,0)="552.1^AB^MUMPS"
^DD(552.1,1,1,1,1)="I $G(X)=""2"" S ^PSX(552.1,""AB"",$P(^PSX(552.1,DA,0),U,1),DA)="""" K:$P(^PSX(552.1,DA,0),U,4)'="""" ^PSX(552.1,""AQ"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,1,2)="K ^PSX(552.1,""AB"",$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,1,"%D",0)="^^1^1^2941116^^"
^DD(552.1,1,1,1,"%D",1,0)="This cross reference indicates that the transmission is Queued to send."
^DD(552.1,1,1,1,"DT")="2941116"
^DD(552.1,1,1,2,0)="552.1^AD^MUMPS"
^DD(552.1,1,1,2,1)="I $G(X)=""1"" S ^PSX(552.1,""AD"",$P(^PSX(552.1,DA,0),U,1),DA)="""" K:$P(^PSX(552.1,DA,0),""^"",4)'="""" ^PSX(552.1,""AQ"",$P(^PSX(552.1,DA,0),""^"",4),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,2,2)="K ^PSX(552.1,""AD"",$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,2,"%D",0)="^^1^1^2941116^^"
^DD(552.1,1,1,2,"%D",1,0)="This cross reference indicates data is currently being downloaded."
^DD(552.1,1,1,2,"DT")="2941116"
^DD(552.1,1,1,3,0)="552.1^AE^MUMPS"
^DD(552.1,1,1,3,1)="I $G(X)=""3"" S ^PSX(552.1,""AE"",$P(^PSX(552.1,DA,0),U,1),DA)="""" K:$P(^PSX(552.1,DA,0),U,4)'="""" ^PSX(552.1,""AQ"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,3,2)="K ^PSX(552.1,""AE"",$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,3,"%D",0)="^^1^1^2941116^^"
^DD(552.1,1,1,3,"%D",1,0)="This cross reference indicates that processing has completed."
^DD(552.1,1,1,3,"DT")="2941116"
^DD(552.1,1,1,4,0)="552.1^AH^MUMPS"
^DD(552.1,1,1,4,1)="I $G(X)=""5"" S ^PSX(552.1,""AH"",$P(^PSX(552.1,DA,0),""^"",1),DA)="""" K:$P(^PSX(552.1,DA,0),U,4)'="""" ^PSX(552.1,""AQ"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,4,2)="K ^PSX(552.1,""AH"",$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,1,1,4,"%D",0)="^^3^3^2941216^"
^DD(552.1,1,1,4,"%D",1,0)=" "
^DD(552.1,1,1,4,"%D",2,0)="This cross reference indicates the transmission has been placed in 'Hold'"
^DD(552.1,1,1,4,"%D",3,0)="status requiring further review before processing."
^DD(552.1,1,1,4,"DT")="2941216"
^DD(552.1,1,21,0)="^^10^10^2960705^"
^DD(552.1,1,21,1,0)="The current status of this transmission."
^DD(552.1,1,21,2,0)="   Received   - Downloading to CMOP Database."
^DD(552.1,1,21,3,0)="   Queued     - Ready to transmit to vendor."
^DD(552.1,1,21,4,0)="   Processed  - Transmitted to vendor."
^DD(552.1,1,21,5,0)="   Closed     - All Rx's processed."
^DD(552.1,1,21,6,0)="   Hold       - Hold for review."
^DD(552.1,1,21,7,0)="   Printed    - Labels printed by DHCP."
^DD(552.1,1,21,8,0)="   Rejected   - Transmission rejected by vendor system."
^DD(552.1,1,21,9,0)="   Processing - Transmission is either downloading to the vendor system or"
^DD(552.1,1,21,10,0)="                labels are being printed on the DHCP system."
^DD(552.1,1,23,0)="^^1^1^2960705^^^^"
^DD(552.1,1,23,1,0)="Set of codes."
^DD(552.1,1,"DT")="2960705"
^DD(552.1,2,0)="DIVISION^F^^P;1^K:$L(X)>30!($L(X)<1) X"
^DD(552.1,2,3)="Answer must be 1-30 characters in length."
^DD(552.1,2,21,0)="1^^1^1^2930529^"
^DD(552.1,2,21,1,0)="The outpatient pharmacy division responsible for this transmission."
^DD(552.1,2,23,0)="^^1^1^2930529^"
^DD(552.1,2,23,1,0)="Name field of the Outpatient Site file from the facility."
^DD(552.1,2,"DT")="2930529"
^DD(552.1,3,0)="SITE #^F^^P;2^K:$L(X)>30!($L(X)<1) X"
^DD(552.1,3,3)="Answer must be 1-30 characters in length."
^DD(552.1,3,21,0)="^^1^1^2930529^"
^DD(552.1,3,21,1,0)="The site number of the outpatient pharmacy division responsible for this transmission."
^DD(552.1,3,23,0)="^^1^1^2930529^"
^DD(552.1,3,23,1,0)="The SITE NUMBER field of the Outpatient Site file for the facility."
^DD(552.1,3,"DT")="2930529"
^DD(552.1,4,0)="SENDER^F^^P;3^K:$L(X)>30!($L(X)<3) X"
^DD(552.1,4,3)="Answer must be 3-30 characters in length."
^DD(552.1,4,21,0)="^^1^1^2930529^"
^DD(552.1,4,21,1,0)="The individual responsible for this transmission."
^DD(552.1,4,23,0)="^^1^1^2930529^"
^DD(552.1,4,23,1,0)="Free text name from the New Person file at the facility."
^DD(552.1,4,"DT")="2930529"
^DD(552.1,5,0)="TRANSMISSION DT/TM^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(552.1,5,21,0)="^^1^1^2930529^"
^DD(552.1,5,21,1,0)="The date/time the transmission was sent from the facility."
^DD(552.1,5,23,0)="^^1^1^2930529^"
^DD(552.1,5,23,1,0)="Date/time."
^DD(552.1,5,"DT")="2930529"
^DD(552.1,6,0)="RECEIVED DT/TM^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(552.1,6,1,0)="^.1"
^DD(552.1,6,1,1,0)="552.1^AQ^MUMPS"
^DD(552.1,6,1,1,1)="S:$P(^PSX(552.1,DA,0),U,2)=2 ^PSX(552.1,""AQ"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)="""""
^DD(552.1,6,1,1,2)="K:$P(^PSX(552.1,DA,0),U,2)'=2 ^PSX(552.1,""AQ"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,6,1,1,"%D",0)="^^1^1^2941116^^^"
^DD(552.1,6,1,1,"%D",1,0)="This cross reference exists if the transmission is 'Queued to Send'."
^DD(552.1,6,1,1,"DT")="2941116"
^DD(552.1,6,1,2,0)="552.1^AR^MUMPS"
^DD(552.1,6,1,2,1)="S ^PSX(552.1,""AR"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)="""""
^DD(552.1,6,1,2,2)="K ^PSX(552.1,""AR"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,6,1,2,"%D",0)="^^3^3^2950906^^"
^DD(552.1,6,1,2,"%D",1,0)=" "
^DD(552.1,6,1,2,"%D",2,0)="This cross reference exists for all entries in the file and is used for"
^DD(552.1,6,1,2,"%D",3,0)="reporting purposes."
^DD(552.1,6,1,2,"DT")="2950906"
^DD(552.1,6,3)=""
^DD(552.1,6,21,0)="^^2^2^2930529^^"
^DD(552.1,6,21,1,0)="The date/time the transmission was received and downloaded into the "
^DD(552.1,6,21,2,0)="CMOP DATABASE file."
^DD(552.1,6,23,0)="^^1^1^2930529^^"
^DD(552.1,6,23,1,0)="Date/time."
^DD(552.1,6,"DT")="2950906"
^DD(552.1,7,0)="CLOSED DT/TM^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(552.1,7,1,0)="^.1"
^DD(552.1,7,1,1,0)="552.1^AC^MUMPS"
^DD(552.1,7,1,1,1)="S ^PSX(552.1,""AC"",$P(^PSX(552.1,DA,0),U,5),$P(^PSX(552.1,DA,0),U,1),DA)="""" K ^PSX(552.1,""AP"",$P(^PSX(552.1,DA,0),U,6),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,7,1,1,2)="K:$P(^PSX(552.1,DA,0),""^"",2)=4 ^PSX(552.1,""AP"",$P(^PSX(552.1,DA,0),""^"",6),$P(^PSX(552.1,DA,0),""^"",1),DA) K ^PSX(552.1,""AC"",$P(^PSX(552.1,DA,0),U,5),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,7,1,1,"%D",0)="^^1^1^2950906^^^^"
^DD(552.1,7,1,1,"%D",1,0)="This cross reference exists for transmissions which have been closed."
^DD(552.1,7,1,1,"DT")="2950906"
^DD(552.1,7,3)=""
^DD(552.1,7,21,0)="^^1^1^2940121^"
^DD(552.1,7,21,1,0)="The date/time all processing was completed for this transmission."
^DD(552.1,7,23,0)="^^1^1^2930529^"
^DD(552.1,7,23,1,0)="Date/time."
^DD(552.1,7,"DT")="2950906"
^DD(552.1,8,0)="START SEQ #^NJ10,0^^1;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(552.1,8,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(552.1,8,21,0)="^^2^2^2950404^^^"
^DD(552.1,8,21,1,0)="The beginning message number from the CMOP Rx Queue file."
^DD(552.1,8,21,2,0)=" "
^DD(552.1,8,23,0)="^^1^1^2950404^^"
^DD(552.1,8,23,1,0)="The internal entry number from the facility's CMOP RX QUEUE file."
^DD(552.1,8,"DT")="2930529"
^DD(552.1,9,0)="END SEQ #^NJ10,0^^1;2^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(552.1,9,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(552.1,9,21,0)="^^2^2^2950404^^"
^DD(552.1,9,21,1,0)="The ending message number from the facility's CMOP Rx Queue file."
^DD(552.1,9,21,2,0)=" "
^DD(552.1,9,23,0)="^^1^1^2930529^"
^DD(552.1,9,23,1,0)="The internal entry number from the facility's CMOP RX QUEUE file."
^DD(552.1,9,"DT")="2930529"
^DD(552.1,10,0)="TOTAL ORDERS^NJ10,0^^1;3^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(552.1,10,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(552.1,10,21,0)="^^1^1^2930529^"
^DD(552.1,10,21,1,0)="The total number of patient orders included in this transmission."
^DD(552.1,10,23,0)="^^1^1^2930529^"
^DD(552.1,10,23,1,0)="Number."
^DD(552.1,10,"DT")="2930529"
^DD(552.1,11,0)="TOTAL RXS^NJ10,0^^1;4^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(552.1,11,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(552.1,11,21,0)="^^1^1^2930529^"
^DD(552.1,11,21,1,0)="The total number of individual prescriptions included in this transmission."
^DD(552.1,11,23,0)="^^1^1^2930529^"
^DD(552.1,11,23,1,0)="Number."
^DD(552.1,11,"DT")="2930529"
^DD(552.1,12,0)="RETRANSMISSION^S^1:YES;^2;1^Q"
^DD(552.1,12,1,0)="^.1"
^DD(552.1,12,1,1,0)="552.1^ART^MUMPS"
^DD(552.1,12,1,1,1)="S:$G(X)=1 ^PSX(552.1,""ART"",$P($G(^PSX(552.1,DA,2)),""^"",2),DA)="""""
^DD(552.1,12,1,1,2)="K ^PSX(552.1,""ART"",$P($G(^PSX(552.1,DA,2)),""^"",2),DA)"
^DD(552.1,12,1,1,"%D",0)="^^2^2^2950906^^"
^DD(552.1,12,1,1,"%D",1,0)=" "
^DD(552.1,12,1,1,"%D",2,0)="This cross reference is set when a retransmitted batch is received."
^DD(552.1,12,1,1,"DT")="2950906"
^DD(552.1,12,21,0)="^^1^1^2931109^"
^DD(552.1,12,21,1,0)="A ""1"" indicates this is a retransmission of previously sent data."
^DD(552.1,12,23,0)="^^1^1^2931109^^"
^DD(552.1,12,23,1,0)="Set of codes."
^DD(552.1,12,"DT")="2950906"
^DD(552.1,13,0)="BATCH REFERENCE^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(552.1,13,3)="Answer must be 3-30 characters in length."
^DD(552.1,13,21,0)="^^1^1^2930529^"
^DD(552.1,13,21,1,0)="The facility-batch reference number of the original transmission."
^DD(552.1,13,23,0)="^^1^1^2930529^"
^DD(552.1,13,23,1,0)="Facility number ""-"" Batch number of the original transmission."
^DD(552.1,13,"DT")="2930529"
^DD(552.1,14,0)="SITE TEXT^552.114A^^S;0"
^DD(552.1,14,21,0)="^^2^2^2931109^"
^DD(552.1,14,21,1,0)=" "
^DD(552.1,14,21,2,0)="The site specific information required for processing this transmission."
^DD(552.1,15,0)="COMMENTS^552.115^^3;0"
^DD(552.1,15,21,0)="^^1^1^2950406^^"
^DD(552.1,15,21,1,0)="Comments or notes regarding this transmission."
^DD(552.1,15,23,0)="^^1^1^2930529^"
^DD(552.1,15,23,1,0)="Word-Processing."
^DD(552.1,16,0)="PROCESSED DATE/TIME^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(552.1,16,1,0)="^.1"
^DD(552.1,16,1,1,0)="552.1^AP^MUMPS"
^DD(552.1,16,1,1,1)="S ^PSX(552.1,""AP"",$P(^PSX(552.1,DA,0),U,6),$P(^PSX(552.1,DA,0),U,1),DA)="""" K ^PSX(552.1,""AQ"",$P(^PSX(552.1,DA,0),U,4),$P(^PSX(552.1,DA,0),U,1),DA)"
^DD(552.1,16,1,1,2)="K:$P(^PSX(552.1,DA,0),""^"",2)=4 ^PSX(552.1,""AP"",$P(^PSX(552.1,DA,0),""^"",6),$P(^PSX(552.1,DA,0),""^"",2),DA)"
^DD(552.1,16,1,1,"%D",0)="^^3^3^2950404^^^"
^DD(552.1,16,1,1,"%D",1,0)="This cross reference lists the transmissions that have been processed but"
^DD(552.1,16,1,1,"%D",2,0)="not closed."
^DD(552.1,16,1,1,"%D",3,0)="  "
^DD(552.1,16,1,1,"DT")="2950213"
^DD(552.1,16,21,0)="^^2^2^2950310^"
^DD(552.1,16,21,1,0)="This is the date/time when all entries in the data transmission were "
^DD(552.1,16,21,2,0)="marked processed."
^DD(552.1,16,"DT")="2950213"
^DD(552.1,17,0)="LABELS PRINTED^552.117D^^4;0"
^DD(552.1,17,21,0)="^^2^2^2950206^^^"
^DD(552.1,17,21,1,0)=" "
^DD(552.1,17,21,2,0)="The date/time labels were printed by DHCP."
^DD(552.1,18,0)="ACKNOWLEDGEMENT TEXT^F^^ACK;1^K:$L(X)>245!($L(X)<1) X"
^DD(552.1,18,3)="Answer must be 1-245 characters in length."
^DD(552.1,18,21,0)="^^2^2^2931109^"
^DD(552.1,18,21,1,0)=" "
^DD(552.1,18,21,2,0)="The general acknowledgement message for this data transmission."
^DD(552.1,18,"DT")="2931022"
^DD(552.1,19,0)="PURGE STATUS^S^1:READY TO PURGE;2:PURGE COMPLETE;^1;5^Q"
^DD(552.1,19,1,0)="^.1"
^DD(552.1,19,1,1,0)="552.1^APRG^MUMPS"
^DD(552.1,19,1,1,1)="S:X=1 ^PSX(552.1,""APRG"",DA)="""""
^DD(552.1,19,1,1,2)="K ^PSX(552.1,""APRG"",DA)"
^DD(552.1,19,1,1,"%D",0)="^^2^2^2940816^^"
^DD(552.1,19,1,1,"%D",1,0)=" "
^DD(552.1,19,1,1,"%D",2,0)="This cross reference exists only if the transmission is ready to purge."
^DD(552.1,19,1,1,"DT")="2940816"
^DD(552.1,19,21,0)="^^4^4^2940816^"
^DD(552.1,19,21,1,0)=" "
^DD(552.1,19,21,2,0)="This status indicates the purge status for the transmission.  If the"
^DD(552.1,19,21,3,0)="status equals 1, the transmission data in the files is ready to be purged."
^DD(552.1,19,21,4,0)=" If the status equals 2, the purge of the data has been completed."
^DD(552.1,19,"DT")="2940816"
^DD(552.1,20,0)="PRIORITY^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(552.1,20,1,0)="^.1"
^DD(552.1,20,1,1,0)="552.1^APQ^MUMPS"
^DD(552.1,20,1,1,1)="S:X>0 ^PSX(552.1,""APQ"",X,$P(^PSX(552.1,DA,0),""^""),DA)="""""
^DD(552.1,20,1,1,2)="K ^PSX(552.1,""APQ"",X,$P(^PSX(552.1,DA,0),""^""),DA)"
^DD(552.1,20,1,1,"%D",0)="^^2^2^2960214^"
^DD(552.1,20,1,1,"%D",1,0)="This cross reference will exist if a priority exists for downloading to"
^DD(552.1,20,1,1,"%D",2,0)="the vendor."
^DD(552.1,20,1,1,"DT")="2960214"
^DD(552.1,20,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(552.1,20,21,0)="^^3^3^2960212^"
^DD(552.1,20,21,1,0)="This field is used to store the priority for download to the vendor. If no"
^DD(552.1,20,21,2,0)="priority has been established or the transmission has been downloaded to"
^DD(552.1,20,21,3,0)="the vendor, this field will be null."
^DD(552.1,20,"DT")="2960214"
^DD(552.1,21,0)="CONTROLLED SUBSTANCE^S^0:Non-CS Transmission;1:CS Transmission;^0;8^Q"
^DD(552.1,21,1,0)="^.1"
^DD(552.1,21,1,1,0)="552.1^C"
^DD(552.1,21,1,1,1)="S ^PSX(552.1,""C"",$E(X,1,30),DA)="""""
^DD(552.1,21,1,1,2)="K ^PSX(552.1,""C"",$E(X,1,30),DA)"
^DD(552.1,21,1,1,"%D",0)="^.101^3^3^3020521^^"
^DD(552.1,21,1,1,"%D",1,0)="This cross reference is set when a transmission is downloaded from the "
^DD(552.1,21,1,1,"%D",2,0)="medical center.  A 1 indicates the transmission is a controlled substance "
^DD(552.1,21,1,1,"%D",3,0)="transmission."
^DD(552.1,21,1,1,"DT")="3020521"
^DD(552.1,21,3)="Enter a 0 or 1, 1 for Controlled Substances Transmission"
^DD(552.1,21,21,0)="^^1^1^3010221^"
^DD(552.1,21,21,1,0)="A 1 indicates that this CMOP batch contains controlled substances."
^DD(552.1,21,23,0)="^^2^2^3010221^"
^DD(552.1,21,23,1,0)="This field is populated by routine PSXRECV.  This field should not be"
^DD(552.1,21,23,2,0)="edited by users."
^DD(552.1,21,"DT")="3020521"
^DD(552.1,"B","ACKNOWLEDGEMENT TEXT",18)=""
^DD(552.1,"B","BATCH REFERENCE",13)=""
^DD(552.1,"B","CLOSED DT/TM",7)=""
^DD(552.1,"B","COMMENTS",15)=""
^DD(552.1,"B","CONTROLLED SUBSTANCE",21)=""
^DD(552.1,"B","DIVISION",2)=""
^DD(552.1,"B","END SEQ #",9)=""
^DD(552.1,"B","FACILITY BATCH REFERENCE",.01)=""
^DD(552.1,"B","LABELS PRINTED",17)=""
^DD(552.1,"B","PRIORITY",20)=""
^DD(552.1,"B","PROCESSED DATE/TIME",16)=""
^DD(552.1,"B","PURGE STATUS",19)=""
^DD(552.1,"B","RECEIVED DT/TM",6)=""
^DD(552.1,"B","RETRANSMISSION",12)=""
^DD(552.1,"B","SENDER",4)=""
^DD(552.1,"B","SITE #",3)=""
^DD(552.1,"B","SITE TEXT",14)=""
^DD(552.1,"B","START SEQ #",8)=""
^DD(552.1,"B","STATUS",1)=""
^DD(552.1,"B","TOTAL ORDERS",10)=""
^DD(552.1,"B","TOTAL RXS",11)=""
^DD(552.1,"B","TRANSMISSION DT/TM",5)=""
^DD(552.1,"GL",0,1,.01)=""
^DD(552.1,"GL",0,2,1)=""
^DD(552.1,"GL",0,3,5)=""
^DD(552.1,"GL",0,4,6)=""
^DD(552.1,"GL",0,5,7)=""
^DD(552.1,"GL",0,6,16)=""
^DD(552.1,"GL",0,7,20)=""
^DD(552.1,"GL",0,8,21)=""
^DD(552.1,"GL",1,1,8)=""
^DD(552.1,"GL",1,2,9)=""
^DD(552.1,"GL",1,3,10)=""
^DD(552.1,"GL",1,4,11)=""
^DD(552.1,"GL",1,5,19)=""
^DD(552.1,"GL",2,1,12)=""
^DD(552.1,"GL",2,2,13)=""
^DD(552.1,"GL",3,0,15)=""
^DD(552.1,"GL",4,0,17)=""
^DD(552.1,"GL","ACK",1,18)=""
^DD(552.1,"GL","P",1,2)=""
^DD(552.1,"GL","P",2,3)=""
^DD(552.1,"GL","P",3,4)=""
^DD(552.1,"GL","S",0,14)=""
^DD(552.1,"IX",.01)=""
^DD(552.1,"IX",1)=""
^DD(552.1,"IX",6)=""
^DD(552.1,"IX",7)=""
^DD(552.1,"IX",12)=""
^DD(552.1,"IX",16)=""
^DD(552.1,"IX",19)=""
^DD(552.1,"IX",20)=""
^DD(552.1,"IX",21)=""
^DD(552.1,"RQ",.01)=""
^DD(552.1,"SB",552.114,14)=""
^DD(552.1,"SB",552.115,15)=""
^DD(552.1,"SB",552.117,17)=""
^DD(552.114,0)="SITE TEXT SUB-FIELD^^.01^1"
^DD(552.114,0,"NM","SITE TEXT")=""
^DD(552.114,0,"UP")="552.1"
^DD(552.114,.01,0)="SITE TEXT^F^^0;1^K:$L(X)>245!($L(X)<3) X"
^DD(552.114,.01,1,0)="^.1^^0"
^DD(552.114,.01,3)="Answer must be 3-245 characters in length."
^DD(552.114,.01,21,0)="^^2^2^2931109^"
^DD(552.114,.01,21,1,0)=" "
^DD(552.114,.01,21,2,0)="The site specific information required for processing this transmission."
^DD(552.114,.01,"DT")="2930602"
^DD(552.114,"B","SITE TEXT",.01)=""
^DD(552.114,"GL",0,1,.01)=""
^DD(552.115,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(552.115,0,"NM","COMMENTS")=""
^DD(552.115,0,"UP")="552.1"
^DD(552.115,.01,0)="COMMENTS^W^^0;1^Q"
^DD(552.115,.01,21,0)="^^5^5^2950406^"
^DD(552.115,.01,21,1,0)="Comments or notes regarding this transmission."
^DD(552.115,.01,21,2,0)="    "
^DD(552.115,.01,21,3,0)="     "
^DD(552.115,.01,21,4,0)="    "
^DD(552.115,.01,21,5,0)="    "
^DD(552.115,.01,"DT")="2930529"
^DD(552.115,"B","COMMENTS",.01)=""
^DD(552.115,"GL",0,1,.01)=""
^DD(552.117,0)="LABELS PRINTED SUB-FIELD^^1^2"
^DD(552.117,0,"NM","LABELS PRINTED")=""
^DD(552.117,0,"UP")="552.1"
^DD(552.117,.01,0)="LABELS PRINTED^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(552.117,.01,1,0)="^.1"
^DD(552.117,.01,1,1,0)="552.1^AL^MUMPS"
^DD(552.117,.01,1,1,1)="S ^PSX(552.1,""AL"",$P(^PSX(552.1,DA(1),0),""^""),DA(1))="""""
^DD(552.117,.01,1,1,2)="K ^PSX(552.1,""AL"",$P(^PSX(552.1,DA(1),0),""^""),DA(1))"
^DD(552.117,.01,1,1,"%D",0)="^^3^3^2950206^"
^DD(552.117,.01,1,1,"%D",1,0)=" "
^DD(552.117,.01,1,1,"%D",2,0)="This cross reference is set when CMOP transmission labels are printed,"
^DD(552.117,.01,1,1,"%D",3,0)="referenced by site-batch #."
^DD(552.117,.01,1,1,"DT")="2931022"
^DD(552.117,.01,21,0)="^^2^2^2931109^"
^DD(552.117,.01,21,1,0)=" "
^DD(552.117,.01,21,2,0)="The date/time labels were printed by DHCP."
^DD(552.117,.01,"DT")="2931022"
^DD(552.117,1,0)="PRINTED BY^F^^0;2^K:$L(X)>99!($L(X)<1) X"
^DD(552.117,1,3)="Answer must be 1-99 characters in length."
^DD(552.117,1,21,0)="^^2^2^2931109^"
^DD(552.117,1,21,1,0)=" "
^DD(552.117,1,21,2,0)="The individual responsible for printing the labels."
^DD(552.117,1,"DT")="2931109"
^DD(552.117,"B","LABELS PRINTED",.01)=""
^DD(552.117,"B","PRINTED BY",1)=""
^DD(552.117,"GL",0,1,.01)=""
^DD(552.117,"GL",0,2,1)=""
^DD(552.117,"IX",.01)=""
^DD(552.2,0)="FIELD^^7^6"
^DD(552.2,0,"IX","AB",552.2,1)=""
^DD(552.2,0,"IX","AC",552.27,.01)=""
^DD(552.2,0,"IX","AD",552.2,1)=""
^DD(552.2,0,"IX","AE",552.2,1)=""
^DD(552.2,0,"IX","AP",552.2,1)=""
^DD(552.2,0,"IX","AR",552.2,1)=""
^DD(552.2,0,"IX","B",552.2,.01)=""
^DD(552.2,0,"NM","CMOP DATABASE")=""
^DD(552.2,0,"VR")="2.0"
^DD(552.2,0,"VRPK")="CMOPH"
^DD(552.2,.01,0)="MESSAGE ID^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<5)!'(X'?1P.E) X"
^DD(552.2,.01,1,0)="^.1^^-1"
^DD(552.2,.01,1,1,0)="552.2^B"
^DD(552.2,.01,1,1,1)="S ^PSX(552.2,""B"",$E(X,1,30),DA)="""""
^DD(552.2,.01,1,1,2)="K ^PSX(552.2,""B"",$E(X,1,30),DA)"
^DD(552.2,.01,3)="Answer must be 5-30 characters in length."
^DD(552.2,.01,21,0)="^^2^2^2931109^"
^DD(552.2,.01,21,1,0)=" "
^DD(552.2,.01,21,2,0)="The unique number that identifies the order for this facility."
^DD(552.2,.01,"DT")="2930530"
^DD(552.2,1,0)="MESSAGE STATUS^S^1:QUEUED TO SEND;2:ACKNOWLEDGED;3:PROCESSED;4:IN TRANSITION;5:PRINTED;99:REJECTED;^0;2^Q"
^DD(552.2,1,1,0)="^.1"
^DD(552.2,1,1,1,0)="552.2^AD^MUMPS"
^DD(552.2,1,1,1,1)="S:$G(X)=1 ^PSX(552.2,""AQ"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)="""""
^DD(552.2,1,1,1,2)="K ^PSX(552.2,""AQ"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)"
^DD(552.2,1,1,1,3)="Do not delete!"
^DD(552.2,1,1,1,"%D",0)="^^1^1^2930831^^^^"
^DD(552.2,1,1,1,"%D",1,0)="This cross reference lists messages queued to transmit."
^DD(552.2,1,1,1,"DT")="2930831"
^DD(552.2,1,1,2,0)="552.2^AE^MUMPS"
^DD(552.2,1,1,2,1)="S:$G(X)=2 ^PSX(552.2,""AE"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)="""""
^DD(552.2,1,1,2,2)="K ^PSX(552.2,""AE"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)"
^DD(552.2,1,1,2,3)="Do not delete!"
^DD(552.2,1,1,2,"%D",0)="^^1^1^2930603^^^"
^DD(552.2,1,1,2,"%D",1,0)="This cross reference lists messages which have been acknowledged."
^DD(552.2,1,1,2,"DT")="2930530"
^DD(552.2,1,1,3,0)="552.2^AB^MUMPS"
^DD(552.2,1,1,3,1)="S:$G(X)=""4"" ^PSX(552.2,""AB"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)="""""
^DD(552.2,1,1,3,2)="K ^PSX(552.2,""AB"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)"
^DD(552.2,1,1,3,"%D",0)="^^2^2^2931109^"
^DD(552.2,1,1,3,"%D",1,0)=" "
^DD(552.2,1,1,3,"%D",2,0)="This cross reference lists messages which are currently being loaded."
^DD(552.2,1,1,3,"DT")="2930609"
^DD(552.2,1,1,4,0)="552.2^AR^MUMPS"
^DD(552.2,1,1,4,1)="S:$G(X)=99 ^PSX(552.2,""AR"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)="""""
^DD(552.2,1,1,4,2)="K ^PSX(552.2,""AR"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)"
^DD(552.2,1,1,4,3)="Do not Delete!"
^DD(552.2,1,1,4,"%D",0)="^^2^2^2940223^"
^DD(552.2,1,1,4,"%D",1,0)="This cross reference lists messages which have been rejected by the "
^DD(552.2,1,1,4,"%D",2,0)="automated dispensing system."
^DD(552.2,1,1,4,"DT")="2940223"
^DD(552.2,1,1,5,0)="552.2^AP^MUMPS"
^DD(552.2,1,1,5,1)="S:$G(X)=5 ^PSX(552.2,""AP"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)="""""
^DD(552.2,1,1,5,2)="K ^PSX(552.2,""AP"",$P(^PSX(552.2,DA,0),""-"",1,2),DA)"
^DD(552.2,1,1,5,3)="DO NOT DELETE"
^DD(552.2,1,1,5,"%D",0)="^^3^3^2941216^"
^DD(552.2,1,1,5,"%D",1,0)=" "
^DD(552.2,1,1,5,"%D",2,0)="This cross reference exists for messages which have been printed by the"
^DD(552.2,1,1,5,"%D",3,0)="DHCP Consolidated Mail Outpatient Pharmacy software for manual dispense."
^DD(552.2,1,1,5,"DT")="2941216"
^DD(552.2,1,21,0)="^^1^1^2931028^^^^"
^DD(552.2,1,21,1,0)="The current status of this message."
^DD(552.2,1,23,0)="^^1^1^2931028^^^"
^DD(552.2,1,23,1,0)="Set of codes"
^DD(552.2,1,"DT")="2941216"
^DD(552.2,2,0)="QUEUED DT/TM^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(552.2,2,3)="Answer must be 3-30 characters in length."
^DD(552.2,2,21,0)="^^1^1^2931109^^^^"
^DD(552.2,2,21,1,0)="The date/time the message is 'Queued to Send' in $H format."
^DD(552.2,2,23,0)="^^1^1^2931109^"
^DD(552.2,2,23,1,0)="Date/time in $H format."
^DD(552.2,2,"DT")="2930604"
^DD(552.2,3,0)="PROCESSED DT/TM^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(552.2,3,3)="Answer must be 3-30 characters in length."
^DD(552.2,3,21,0)="^^1^1^2930604^"
^DD(552.2,3,21,1,0)="The date/time the message was 'Processed'."
^DD(552.2,3,23,0)="^^1^1^2930604^"
^DD(552.2,3,23,1,0)="The date/time in $H format."
^DD(552.2,3,"DT")="2930525"
^DD(552.2,6,0)="ACKNOWLEDGEMENT TEXT^F^^ACK;1^K:$L(X)>245!($L(X)<3) X"
^DD(552.2,6,3)="Answer must be 3-245 characters in length."
^DD(552.2,6,21,0)="^^2^2^2931109^"
^DD(552.2,6,21,1,0)=" "
^DD(552.2,6,21,2,0)="The general acknowledgement message for this order."
^DD(552.2,6,"DT")="2930525"
^DD(552.2,7,0)="TRANSMISSION TEXT^552.27A^^T;0"
^DD(552.2,7,21,0)="^^3^3^2931109^"
^DD(552.2,7,21,1,0)=" "
^DD(552.2,7,21,2,0)="Patient order information for transmission to the non-DHCP dispensing"
^DD(552.2,7,21,3,0)="system."
^DD(552.2,"B","ACKNOWLEDGEMENT TEXT",6)=""
^DD(552.2,"B","MESSAGE ID",.01)=""
^DD(552.2,"B","MESSAGE STATUS",1)=""
^DD(552.2,"B","PROCESSED DT/TM",3)=""
^DD(552.2,"B","QUEUED DT/TM",2)=""
^DD(552.2,"B","TRANSMISSION TEXT",7)=""
^DD(552.2,"GL",0,1,.01)=""
^DD(552.2,"GL",0,2,1)=""
^DD(552.2,"GL",0,3,2)=""
^DD(552.2,"GL",0,4,3)=""
^DD(552.2,"GL","ACK",1,6)=""
^DD(552.2,"GL","T",0,7)=""
^DD(552.2,"IX",.01)=""
^DD(552.2,"IX",1)=""
^DD(552.2,"RQ",.01)=""
^DD(552.2,"SB",552.27,7)=""
^DD(552.27,0)="TRANSMISSION TEXT SUB-FIELD^^.01^1"
^DD(552.27,0,"NM","TRANSMISSION TEXT")=""
^DD(552.27,0,"UP")="552.2"
^DD(552.27,.01,0)="TRANSMISSION TEXT^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<3) X"
^DD(552.27,.01,1,0)="^.1^^-1"
^DD(552.27,.01,1,1,0)="552.2^AC^MUMPS"
^DD(552.27,.01,1,1,1)="S:$E(X,1,4)[""ZX1|"" ^PSX(552.2,""AC"",DA(1),$P(X,""|"",2))="""""
^DD(552.27,.01,1,1,2)="K:$E(X,1,4)[""ZX1|"" ^PSX(552.2,""AC"",DA(1),$P(X,""|"",2))"
^DD(552.27,.01,1,1,3)="Do not delete!"
^DD(552.27,.01,1,1,"%D",0)="^^1^1^2930909^^^^"
^DD(552.27,.01,1,1,"%D",1,0)="This cross reference indexes prescription  numbers for matching with release data."
^DD(552.27,.01,1,1,"DT")="2930909"
^DD(552.27,.01,3)="Answer must be 3-245 characters in length."
^DD(552.27,.01,21,0)="^^6^6^2950406^"
^DD(552.27,.01,21,1,0)="Patient order information for transmission to the non-DHCP dispensing system."
^DD(552.27,.01,21,2,0)="  "
^DD(552.27,.01,21,3,0)="    "
^DD(552.27,.01,21,4,0)="    "
^DD(552.27,.01,21,5,0)="         "
^DD(552.27,.01,21,6,0)=" "
^DD(552.27,.01,"DT")="2930909"
^DD(552.27,"B","TRANSMISSION TEXT",.01)=""
^DD(552.27,"GL",0,1,.01)=""
^DD(552.27,"IX",.01)=""
^DD(552.3,0)="FIELD^^1^2"
^DD(552.3,0,"DT")="2960227"
^DD(552.3,0,"IX","AD",552.3,1)=""
^DD(552.3,0,"IX","AF",552.3,1)=""
^DD(552.3,0,"IX","AP",552.3,.01)=""
^DD(552.3,0,"IX","AQ",552.3,1)=""
^DD(552.3,0,"IX","AR",552.3,1)=""
^DD(552.3,0,"NM","CMOP RELEASE")=""
^DD(552.3,0,"VR")="2.0"
^DD(552.3,0,"VRPK")="CMOPH"
^DD(552.3,.01,0)="RELEASE TEXT^RFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<3)!'(X'?1P.E) X"
^DD(552.3,.01,1,0)="^.1"
^DD(552.3,.01,1,1,0)="552.3^AP^MUMPS"
^DD(552.3,.01,1,1,1)="S:$E(X,1,4)[""ZMP|"" ^PSX(552.3,""AP"",$P(X,""|"",4),DA)="""""
^DD(552.3,.01,1,1,2)="K:$E(X,1,4)[""ZMP|"" ^PSX(552.3,""AP"",$P(X,""|"",4),DA)"
^DD(552.3,.01,1,1,"%D",0)="^^1^1^2960419^"
^DD(552.3,.01,1,1,"%D",1,0)="Set to reflect that the indicated Batch has been printed."
^DD(552.3,.01,1,1,"DT")="2960419"
^DD(552.3,.01,3)="Answer must be 3-245 characters in length."
^DD(552.3,.01,21,0)="^^3^3^2931021^"
^DD(552.3,.01,21,1,0)=" "
^DD(552.3,.01,21,2,0)="This file contains prescription release information returned from the"
^DD(552.3,.01,21,3,0)="vendor system."
^DD(552.3,.01,"DT")="2960419"
^DD(552.3,1,0)="PURGE^S^1:READY TO PURGE;2:READY TO FILE;3:DUPLICATE RX;4:REJECTED RX;^1;1^Q"
^DD(552.3,1,1,0)="^.1"
^DD(552.3,1,1,1,0)="552.3^AF^MUMPS"
^DD(552.3,1,1,1,1)="S:X=1 ^PSX(552.3,""AF"",DA)="""""
^DD(552.3,1,1,1,2)="K ^PSX(552.3,""AF"",DA)"
^DD(552.3,1,1,1,3)="Do not delete!"
^DD(552.3,1,1,1,"%D",0)="^^2^2^2940514^"
^DD(552.3,1,1,1,"%D",1,0)="This cross reference is used to purge data from the CMOP Release file after"
^DD(552.3,1,1,1,"%D",2,0)="the entry is filed in the CMOP Master Database."
^DD(552.3,1,1,1,"DT")="2940514"
^DD(552.3,1,1,2,0)="552.3^AQ^MUMPS"
^DD(552.3,1,1,2,1)="S:X=2 ^PSX(552.3,""AQ"",DA)="""""
^DD(552.3,1,1,2,2)="K ^PSX(552.3,""AQ"",DA)"
^DD(552.3,1,1,2,"%D",0)="^^3^3^2941017^"
^DD(552.3,1,1,2,"%D",1,0)=" "
^DD(552.3,1,1,2,"%D",2,0)="If this cross reference exists, the record is ready to file in the CMOP"
^DD(552.3,1,1,2,"%D",3,0)="Master Database file."
^DD(552.3,1,1,2,"DT")="2941017"
^DD(552.3,1,1,3,0)="552.3^AD^MUMPS"
^DD(552.3,1,1,3,1)="S:$G(X)=3 ^PSX(552.3,""AD"",DA)="""""
^DD(552.3,1,1,3,2)="K ^PSX(552.3,""AD"",DA)"
^DD(552.3,1,1,3,"%D",0)="^^2^2^2960227^"
^DD(552.3,1,1,3,"%D",1,0)="This cross reference will exist if the Rx is a duplicate Rx returned by"
^DD(552.3,1,1,3,"%D",2,0)="the vendor software."
^DD(552.3,1,1,3,"DT")="2960227"
^DD(552.3,1,1,4,0)="552.3^AR^MUMPS"
^DD(552.3,1,1,4,1)="S:$G(X)=4 ^PSX(552.3,""AR"",DA)="""""
^DD(552.3,1,1,4,2)="K ^PSX(552.3,""AR"",DA)"
^DD(552.3,1,1,4,"%D",0)="^^2^2^2960227^"
^DD(552.3,1,1,4,"%D",1,0)="This cross reference will exist if the Rx was rejected by the DHCP"
^DD(552.3,1,1,4,"%D",2,0)="software during a query."
^DD(552.3,1,1,4,"DT")="2960227"
^DD(552.3,1,21,0)="^^6^6^2960227^"
^DD(552.3,1,21,1,0)="This field is used to control filing of the data in the CMOP Master"
^DD(552.3,1,21,2,0)="Database file and purging the entries from the CMOP Release file."
^DD(552.3,1,21,3,0)="If purge=1, the record is ready to purge from the file."
^DD(552.3,1,21,4,0)="If purge=2, the record is ready to file in the CMOP Master Database file."
^DD(552.3,1,21,5,0)="If purge=3, the record is a duplicate Rx returned by the vendor software."
^DD(552.3,1,21,6,0)="If purge=4, the record was rejected by DHCP during the query."
^DD(552.3,1,23,0)="^^1^1^2960227^^^^"
^DD(552.3,1,23,1,0)="Set of codes."
^DD(552.3,1,"DT")="2960227"
^DD(552.3,"B","PURGE",1)=""
^DD(552.3,"B","RELEASE TEXT",.01)=""
^DD(552.3,"GL",0,1,.01)=""
^DD(552.3,"GL",1,1,1)=""
^DD(552.3,"IX",.01)=""
^DD(552.3,"IX",1)=""
^DD(552.3,"RQ",.01)=""
^DD(552.4,0)="FIELD^^1^2"
^DD(552.4,0,"DT")="2950726"
^DD(552.4,0,"IX","AB",552.41,15)=""
^DD(552.4,0,"IX","AC",552.41,9)=""
^DD(552.4,0,"IX","AD",552.41,.02)=""
^DD(552.4,0,"IX","AX",552.41,9)=""
^DD(552.4,0,"IX","B",552.4,.01)=""
^DD(552.4,0,"IX","C",552.41,1)=""
^DD(552.4,0,"IX","D",552.41,9)=""
^DD(552.4,0,"NM","CMOP MASTER DATABASE")=""
^DD(552.4,0,"VR")="2.0"
^DD(552.4,0,"VRPK")="CMOPH"
^DD(552.4,.01,0)="FACILITY BATCH REFERENCE^RP552.1'^PSX(552.1,^0;1^Q"
^DD(552.4,.01,1,0)="^.1"
^DD(552.4,.01,1,1,0)="552.4^B"
^DD(552.4,.01,1,1,1)="S ^PSX(552.4,""B"",$E(X,1,30),DA)="""""
^DD(552.4,.01,1,1,2)="K ^PSX(552.4,""B"",$E(X,1,30),DA)"
^DD(552.4,.01,3)=""
^DD(552.4,.01,21,0)="^^4^4^2950404^^^^"
^DD(552.4,.01,21,1,0)="The unique identification number for the data transmission."
^DD(552.4,.01,21,2,0)=" "
^DD(552.4,.01,21,3,0)="  "
^DD(552.4,.01,21,4,0)=" "
^DD(552.4,.01,23,0)="^^1^1^2950310^^^^"
^DD(552.4,.01,23,1,0)="This field is a pointer to the CMOP Reference file #552.1."
^DD(552.4,.01,"DT")="2941126"
^DD(552.4,1,0)="RX NUMBER^552.41A^^1;0"
^DD(552.4,1,21,0)="^^6^6^3000314^^^^"
^DD(552.4,1,21,1,0)="The number for the prescription."
^DD(552.4,1,21,2,0)="         "
^DD(552.4,1,21,3,0)="     "
^DD(552.4,1,21,4,0)="      "
^DD(552.4,1,21,5,0)="     "
^DD(552.4,1,21,6,0)="      "
^DD(552.4,1,23,0)="^^1^1^3000314^^^^"
^DD(552.4,1,23,1,0)="The external form of the prescription number for this Rx."
^DD(552.4,1,"DT")="2950726"
^DD(552.4,"B","FACILITY BATCH REFERENCE",.01)=""
^DD(552.4,"B","RX NUMBER",1)=""
^DD(552.4,"GL",0,1,.01)=""
^DD(552.4,"GL",1,0,1)=""
^DD(552.4,"IX",.01)=""
^DD(552.4,"RQ",.01)=""
^DD(552.4,"SB",552.41,1)=""
^DD(552.41,0)="RX NUMBER SUB-FIELD^^40^24"
^DD(552.41,0,"DT")="3000314"
^DD(552.41,0,"IX","B",552.41,.01)=""
^DD(552.41,0,"NM","RX NUMBER")=""
^DD(552.41,0,"UP")="552.4"
^DD(552.41,.01,0)="RX NUMBER^RF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(552.41,.01,1,0)="^.1"
^DD(552.41,.01,1,1,0)="552.41^B"
^DD(552.41,.01,1,1,1)="S ^PSX(552.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(552.41,.01,1,1,2)="K ^PSX(552.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(552.41,.01,1,1,"DT")="2930910"
^DD(552.41,.01,3)="Answer must be 1-20 characters in length."
^DD(552.41,.01,21,0)="^^2^2^2950406^^^^"
^DD(552.41,.01,21,1,0)="The prescription number for this Rx."
^DD(552.41,.01,21,2,0)=" "
^DD(552.41,.01,23,0)="^^1^1^2950404^^^"
^DD(552.41,.01,23,1,0)="The external form of the prescription number for this Rx."
^DD(552.41,.01,"DT")="2931215"
^DD(552.41,.02,0)="COMPLETED DATE/TIME^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(552.41,.02,1,0)="^.1"
^DD(552.41,.02,1,1,0)="552.4^AD^MUMPS"
^DD(552.41,.02,1,1,1)="S ^PSX(552.4,""AD"",$P(X,"".""),DA(1),DA)="""""
^DD(552.41,.02,1,1,2)="K ^PSX(552.4,""AD"",$P(X,"".""),DA(1),DA)"
^DD(552.41,.02,1,1,"%D",0)="^^2^2^2950404^^^"
^DD(552.41,.02,1,1,"%D",1,0)="This cross reference is set when the prescription completed date/time is entered and is used for compiling cost statistics."
^DD(552.41,.02,1,1,"%D",2,0)="  "
^DD(552.41,.02,1,1,"DT")="2931222"
^DD(552.41,.02,21,0)="^^2^2^2950404^^^^"
^DD(552.41,.02,21,1,0)="The date/time the prescription was completed by the automated dispensing system."
^DD(552.41,.02,21,2,0)="  "
^DD(552.41,.02,23,0)="^^2^2^2950404^^"
^DD(552.41,.02,23,1,0)="FileMan date/time."
^DD(552.41,.02,23,2,0)=" "
^DD(552.41,.02,"DT")="2931222"
^DD(552.41,1,0)="RELEASE STATUS^S^1:COMPLETED;2:CANCELLED;^0;2^Q"
^DD(552.41,1,1,0)="^.1"
^DD(552.41,1,1,1,0)="552.4^C^MUMPS"
^DD(552.41,1,1,1,1)="S:X=2 ^PSX(552.4,""AP"",$P(^PSX(552.4,DA(1),0),""^"",1),$P(^PSX(552.4,DA(1),1,DA,0),""^"",1))="""""
^DD(552.41,1,1,1,2)="K ^PSX(552.4,""AP"",$P(^PSX(552.4,DA(1),0),""^"",1),$P(^PSX(552.4,DA(1),1,DA,0),""^"",1))"
^DD(552.41,1,1,1,3)="Do not delete!"
^DD(552.41,1,1,1,"%D",0)="^^2^2^2950404^^^^"
^DD(552.41,1,1,1,"%D",1,0)="This cross reference is set when a prescription has been cancelled by the automated system."
^DD(552.41,1,1,1,"%D",2,0)="  "
^DD(552.41,1,1,1,"DT")="2940303"
^DD(552.41,1,21,0)="^^2^2^2950406^^^^"
^DD(552.41,1,21,1,0)="The release status of the prescription from the automated dispensing system."
^DD(552.41,1,21,2,0)="  "
^DD(552.41,1,23,0)="^^1^1^2950404^^^^"
^DD(552.41,1,23,1,0)="Set of Codes."
^DD(552.41,1,"DT")="2940303"
^DD(552.41,2,0)="CANCELLATION REASON^F^^0;3^K:$L(X)>40!($L(X)<3) X"
^DD(552.41,2,3)="Answer must be 3-40 characters in length."
^DD(552.41,2,21,0)="^^2^2^2950404^^^^"
^DD(552.41,2,21,1,0)="The reason the prescription was cancelled from the vendor system."
^DD(552.41,2,21,2,0)="  "
^DD(552.41,2,"DT")="2931109"
^DD(552.41,3,0)="DRUG ID^FX^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(552.41,3,3)="Answer must be 1-5 characters in length."
^DD(552.41,3,21,0)="^^2^2^2950404^^^"
^DD(552.41,3,21,1,0)="The unique code used to identify the drug/item to be dispensed."
^DD(552.41,3,21,2,0)="  "
^DD(552.41,3,"DT")="2931109"
^DD(552.41,4,0)="NDC^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(552.41,4,3)="Answer must be 1-20 characters in length."
^DD(552.41,4,21,0)="^^2^2^2950404^^"
^DD(552.41,4,21,1,0)=" "
^DD(552.41,4,21,2,0)="The national drug code provided by the supplier."
^DD(552.41,4,"DT")="2930728"
^DD(552.41,5,0)="EMPLOYEE ID^P200'^VA(200,^0;6^Q"
^DD(552.41,5,21,0)="^^7^7^2950406^^^^"
^DD(552.41,5,21,1,0)="The individual (pharmacist) responsible for releasing the prescription."
^DD(552.41,5,21,2,0)="  "
^DD(552.41,5,21,3,0)="      "
^DD(552.41,5,21,4,0)="    "
^DD(552.41,5,21,5,0)="     "
^DD(552.41,5,21,6,0)="     "
^DD(552.41,5,21,7,0)="    "
^DD(552.41,5,23,0)="^^2^2^2950406^^"
^DD(552.41,5,23,1,0)=" "
^DD(552.41,5,23,2,0)="Pointer to the New Person file."
^DD(552.41,5,"DT")="2930728"
^DD(552.41,6,0)="LOT NUMBER^552.56A^^1;0"
^DD(552.41,6,21,0)="^^8^8^2950406^^^^"
^DD(552.41,6,21,1,0)=" "
^DD(552.41,6,21,2,0)="This multiple lists the lot number and expiration date."
^DD(552.41,6,21,3,0)="  "
^DD(552.41,6,21,4,0)="    "
^DD(552.41,6,21,5,0)="     "
^DD(552.41,6,21,6,0)="      "
^DD(552.41,6,21,7,0)="       "
^DD(552.41,6,21,8,0)="      "
^DD(552.41,7,0)="PROCESSED DATE/TIME^D^^0;7^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(552.41,7,21,0)="^^3^3^2950404^^^"
^DD(552.41,7,21,1,0)="This is the date/time of the acknowledgement for the release information"
^DD(552.41,7,21,2,0)="filed at the remote facility."
^DD(552.41,7,21,3,0)="  "
^DD(552.41,7,"DT")="2930903"
^DD(552.41,8,0)="QUERY ID^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(552.41,8,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(552.41,8,21,0)="^^2^2^2950404^^^"
^DD(552.41,8,21,1,0)="The Query Request responsible for this data."
^DD(552.41,8,21,2,0)="  "
^DD(552.41,8,"DT")="2930903"
^DD(552.41,9,0)="RX STATUS^S^1:RELEASED;2:RETURNED;3:PROCESSED;4:REJECTED;5:RECEIVED;^0;10^Q"
^DD(552.41,9,1,0)="^.1"
^DD(552.41,9,1,1,0)="552.4^AC^MUMPS"
^DD(552.41,9,1,1,1)="S:$G(X)=1 ^PSX(552.4,""AC"",+$P(^PSX(552.1,+^PSX(552.4,DA(1),0),0),""-""),DA(1),DA)="""""
^DD(552.41,9,1,1,2)="K ^PSX(552.4,""AC"",+$P(^PSX(552.1,+^PSX(552.4,DA(1),0),0),""-""),DA(1),DA)"
^DD(552.41,9,1,1,3)="Do not delete!"
^DD(552.41,9,1,1,"%D",0)="^^6^6^2950406^^^^"
^DD(552.41,9,1,1,"%D",1,0)="This cross reference is set when release data is filed for this prescription."
^DD(552.41,9,1,1,"%D",2,0)="  "
^DD(552.41,9,1,1,"%D",3,0)="  "
^DD(552.41,9,1,1,"%D",4,0)="   "
^DD(552.41,9,1,1,"%D",5,0)="    "
^DD(552.41,9,1,1,"%D",6,0)="   "
^DD(552.41,9,1,1,"DT")="2941126"
^DD(552.41,9,1,2,0)="552.4^D^MUMPS"
^DD(552.41,9,1,2,1)="S:X=5 ^PSX(552.4,""AR"",$P(^PSX(552.4,DA(1),0),""^"",1),$P(^PSX(552.4,DA(1),1,DA,0),""^"",1))="""""
^DD(552.41,9,1,2,2)="K ^PSX(552.4,""AR"",$P(^PSX(552.4,DA(1),0),""^"",1),$P(^PSX(552.4,DA(1),1,DA,0),""^"",1))"
^DD(552.41,9,1,2,"%D",0)="^^7^7^2950406^^^^"
^DD(552.41,9,1,2,"%D",1,0)="This cross reference is set when the prescription is first entered in the file.  It is killed when the prescription has been released by the vendor or through manual release.  It is used to create a report of unreleased Rx's."
^DD(552.41,9,1,2,"%D",2,0)="  "
^DD(552.41,9,1,2,"%D",3,0)=" "
^DD(552.41,9,1,2,"%D",4,0)="       "
^DD(552.41,9,1,2,"%D",5,0)="       "
^DD(552.41,9,1,2,"%D",6,0)="      "
^DD(552.41,9,1,2,"%D",7,0)="    "
^DD(552.41,9,1,2,"DT")="2940223"
^DD(552.41,9,1,3,0)="552.4^AX^MUMPS"
^DD(552.41,9,1,3,1)="S:$G(X)=2 ^PSX(552.4,""AX"",+$P(^PSX(552.1,+^PSX(552.4,DA(1),0),0),""-""),DA(1),DA)="""""
^DD(552.41,9,1,3,2)="K ^PSX(552.4,""AX"",+$P(^PSX(552.1,+^PSX(552.4,DA(1),0),0),""-""),DA(1),DA)"
^DD(552.41,9,1,3,3)="Do not delete!"
^DD(552.41,9,1,3,"%D",0)="^^3^3^2950404^^^^"
^DD(552.41,9,1,3,"%D",1,0)="This cross reference is set when release data has been returned to the remote facility."
^DD(552.41,9,1,3,"%D",2,0)=" "
^DD(552.41,9,1,3,"%D",3,0)=" "
^DD(552.41,9,1,3,"DT")="2941126"
^DD(552.41,9,21,0)="^^8^8^2941217^"
^DD(552.41,9,21,1,0)=" "
^DD(552.41,9,21,2,0)="   Received - The prescription data is received from the remote facility."
^DD(552.41,9,21,3,0)="   Released - The prescription has been released."
^DD(552.41,9,21,4,0)="   Returned - The prescription release data has been returned to the"
^DD(552.41,9,21,5,0)="              remote system."
^DD(552.41,9,21,6,0)="   Processed- The prescription data has been filed appropriately on the"
^DD(552.41,9,21,7,0)="              remote system."
^DD(552.41,9,21,8,0)="   Rejected - The prescription has been rejected by the remote facility."
^DD(552.41,9,23,0)="^^1^1^2941217^^^^"
^DD(552.41,9,23,1,0)="Set of codes."
^DD(552.41,9,"DT")="2941126"
^DD(552.41,10,0)="PRICE PER DISPENSE UNIT^NJ7,3^^0;11^K:+X'=X!(X>222)!(X<0)!(X?.E1"".""4N.N) X"
^DD(552.41,10,3)="Type a Number between 0 and 222, 3 Decimal Digits"
^DD(552.41,10,21,0)="^^2^2^2950201^^^^"
^DD(552.41,10,21,1,0)="This field contains the cost information from the PRICE PER DISPENSE "
^DD(552.41,10,21,2,0)="UNIT field from DRUG File (#50) at the time this Rx was filled."
^DD(552.41,10,23,0)="^^1^1^2950124^^^^"
^DD(552.41,10,23,1,0)="Price per dispense unit for this drug."
^DD(552.41,10,"DT")="2940628"
^DD(552.41,11,0)="RX INDICATOR^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(552.41,11,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(552.41,11,21,0)="^^2^2^2931109^"
^DD(552.41,11,21,1,0)=" "
^DD(552.41,11,21,2,0)="The fill number (0=original) of this prescription."
^DD(552.41,11,"DT")="2931109"
^DD(552.41,12,0)="QUANTITY^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(552.41,12,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(552.41,12,21,0)="^^2^2^2931109^"
^DD(552.41,12,21,1,0)=" "
^DD(552.41,12,21,2,0)="Total number of capsules, tablets, etc. in this prescription."
^DD(552.41,12,"DT")="2931109"
^DD(552.41,13,0)="RELEASE TYPE^S^1:AUTOMATED;2:MANUAL;^2;1^Q"
^DD(552.41,13,21,0)="^^4^4^2940218^^"
^DD(552.41,13,21,1,0)="The type of release used for this prescription.  'Automated' indicates the"
^DD(552.41,13,21,2,0)="prescription was released by the automated dispensing equipment at the "
^DD(552.41,13,21,3,0)="CMOP.  'Manual' indicates the prescription label was printed by the DHCP"
^DD(552.41,13,21,4,0)="CMOP software at the CMOP and filled from the document."
^DD(552.41,13,23,0)="^^1^1^2940218^"
^DD(552.41,13,23,1,0)="Set of codes."
^DD(552.41,13,"DT")="2940218"
^DD(552.41,14,0)="REMOTE ERROR CONDITION^S^1:RELEASE DATE ALREADY EXISTS;2:RX ENTRY MISSING;3:FILL MISMATCH;4:TRANSMISSION NUMBER MISMATCH;5:NO CMOP EVENT MULTIPLE;6:FILL DOES NOT EXIST;^2;2^Q"
^DD(552.41,14,21,0)="^^2^2^2950201^^^^"
^DD(552.41,14,21,1,0)="This field describes the reason the system was unable to file the "
^DD(552.41,14,21,2,0)="prescription at the remote facility."
^DD(552.41,14,23,0)="^^1^1^2940222^^^"
^DD(552.41,14,23,1,0)="Set of codes."
^DD(552.41,14,"DT")="2940520"
^DD(552.41,15,0)="RELEASE MESSAGE NUMBER^F^^2;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(552.41,15,1,0)="^.1"
^DD(552.41,15,1,1,0)="552.4^AB^MUMPS"
^DD(552.41,15,1,1,1)="S:X'="""" ^PSX(552.4,""AB"",X,DA(1),DA)="""""
^DD(552.41,15,1,1,2)="K ^PSX(552.4,""AB"",X,DA(1),DA)"
^DD(552.41,15,1,1,"%D",0)="^^1^1^2950719^^^"
^DD(552.41,15,1,1,"%D",1,0)="This cross reference lists the Rx's in the Vendor Release Data mail message. It will be used to rebuild the Vendor Release Data mail message."
^DD(552.41,15,1,1,"DT")="2950719"
^DD(552.41,15,3)="Answer must be 1-20 characters in length."
^DD(552.41,15,21,0)="^^1^1^2950719^"
^DD(552.41,15,21,1,0)="This is the IEN number (XMZ) of the Vendor Release Data mail message that returns the release data to the medical center."
^DD(552.41,15,"DT")="2950719"
^DD(552.41,16,0)="DATE SHIPPED^D^^2;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(552.41,16,21,0)="^^1^1^2950726^"
^DD(552.41,16,21,1,0)="The date/time the prescription was shipped to the patient from the CMOP."
^DD(552.41,16,"DT")="2950726"
^DD(552.41,17,0)="CARRIER^F^^2;5^K:$L(X)>40!($L(X)<3) X"
^DD(552.41,17,3)="Answer must be 3-40 characters in length."
^DD(552.41,17,21,0)="^^1^1^2950726^"
^DD(552.41,17,21,1,0)="The carrier responsible for shipping the prescription to the patient."
^DD(552.41,17,"DT")="2950726"
^DD(552.41,18,0)="PACKAGE ID^F^^2;6^K:$L(X)>40!($L(X)<3) X"
^DD(552.41,18,3)="Answer must be 3-40 characters in length."
^DD(552.41,18,21,0)="^^2^2^2950726^"
^DD(552.41,18,21,1,0)="A unique identification code assigned by the non-DHCP system for tracking"
^DD(552.41,18,21,2,0)="the prescription shipment."
^DD(552.41,18,"DT")="2950726"
^DD(552.41,19,0)="CONTROLLED SUBS FLAG^S^1:CONTROLLED SUBSTANCE;^0;14^Q"
^DD(552.41,19,3)="Enter a 1 if this Rx is written for a controlled substance."
^DD(552.41,19,21,0)="^^1^1^3000314^^^"
^DD(552.41,19,21,1,0)="This field indicates whether the drug in the prescription is a controlled substance or not.  A 1 in this field indicates a controlled substance."
^DD(552.41,19,"DT")="3000314"
^DD(552.41,20,0)="DAYS SUPPLY^NJ5,0^^2;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1.N) X"
^DD(552.41,20,3)="Type a number between 0 and 99999, 0 Decimal Digits"
^DD(552.41,20,21,0)="^^1^1^3020927^"
^DD(552.41,20,21,1,0)="Number of days supply as requested by the facility."
^DD(552.41,20,"DT")="3020927"
^DD(552.41,21,0)="ORDER NUMBER^NJ7,0^^3;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(552.41,21,3)="Type a number between 1 and 9999999, 0 Decimal Digits"
^DD(552.41,21,21,0)="^^1^1^3020927^"
^DD(552.41,21,21,1,0)="The patient order number within the facility transmission."
^DD(552.41,21,"DT")="3020927"
^DD(552.41,40,0)="RX INDEX^F^^4;1^K:$L(X)>40!($L(X)<1) X"
^DD(552.41,40,1,0)="^.1^^0"
^DD(552.41,40,3)="Answer must be 1-40 characters in length"
^DD(552.41,40,21,0)="^^3^3^3020927^"
^DD(552.41,40,21,1,0)="The unique ID for each prescription constructed with"
^DD(552.41,40,21,2,0)="Facility ID - Prescription Number - Fill Number"
^DD(552.41,40,21,3,0)="10110-M8825467-3"
^DD(552.41,40,"DT")="3030102"
^DD(552.41,"B","CANCELLATION REASON",2)=""
^DD(552.41,"B","CARRIER",17)=""
^DD(552.41,"B","COMPLETED DATE/TIME",.02)=""
^DD(552.41,"B","CONTROLLED SUBS FLAG",19)=""
^DD(552.41,"B","DATE SHIPPED",16)=""
^DD(552.41,"B","DAYS SUPPLY",20)=""
^DD(552.41,"B","DRUG ID",3)=""
^DD(552.41,"B","EMPLOYEE ID",5)=""
^DD(552.41,"B","LOT NUMBER",6)=""
^DD(552.41,"B","NDC",4)=""
^DD(552.41,"B","ORDER NUMBER",21)=""
^DD(552.41,"B","PACKAGE ID",18)=""
^DD(552.41,"B","PRICE PER DISPENSE UNIT",10)=""
^DD(552.41,"B","PROCESSED DATE/TIME",7)=""
^DD(552.41,"B","QUANTITY",12)=""
^DD(552.41,"B","QUERY ID",8)=""
^DD(552.41,"B","RELEASE MESSAGE NUMBER",15)=""
^DD(552.41,"B","RELEASE STATUS",1)=""
^DD(552.41,"B","RELEASE TYPE",13)=""
^DD(552.41,"B","REMOTE ERROR CONDITION",14)=""
^DD(552.41,"B","RX INDEX",40)=""
^DD(552.41,"B","RX INDICATOR",11)=""
^DD(552.41,"B","RX NUMBER",.01)=""
^DD(552.41,"B","RX STATUS",9)=""
^DD(552.41,"GL",0,1,.01)=""
^DD(552.41,"GL",0,2,1)=""
^DD(552.41,"GL",0,3,2)=""
^DD(552.41,"GL",0,4,3)=""
^DD(552.41,"GL",0,5,4)=""
^DD(552.41,"GL",0,6,5)=""
^DD(552.41,"GL",0,7,7)=""
^DD(552.41,"GL",0,8,8)=""
^DD(552.41,"GL",0,9,.02)=""
^DD(552.41,"GL",0,10,9)=""
^DD(552.41,"GL",0,11,10)=""
^DD(552.41,"GL",0,12,11)=""
^DD(552.41,"GL",0,13,12)=""
^DD(552.41,"GL",0,14,19)=""
^DD(552.41,"GL",1,0,6)=""
^DD(552.41,"GL",2,1,13)=""
^DD(552.41,"GL",2,2,14)=""
^DD(552.41,"GL",2,3,15)=""
^DD(552.41,"GL",2,4,16)=""
^DD(552.41,"GL",2,5,17)=""
^DD(552.41,"GL",2,6,18)=""
^DD(552.41,"GL",2,7,20)=""
^DD(552.41,"GL",3,1,21)=""
^DD(552.41,"GL",4,1,40)=""
^DD(552.41,"IX",.01)=""
^DD(552.41,"IX",.02)=""
^DD(552.41,"IX",1)=""
^DD(552.41,"IX",9)=""
^DD(552.41,"IX",15)=""
^DD(552.41,"RQ",.01)=""
^DD(552.41,"SB",552.56,6)=""
^DD(552.5,0)="FIELD^^1^2"
^DD(552.5,0,"DDA")="N"
^DD(552.5,0,"DT")="2940622"
^DD(552.5,0,"IX","AD",552.61,.01)=""
^DD(552.5,0,"IX","B",552.5,.01)=""
^DD(552.5,0,"NM","CMOP COST STATS")=""
^DD(552.5,0,"VR")="2.0"
^DD(552.5,0,"VRPK")="CMOPH"
^DD(552.5,.01,0)="FACILITY^RNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(552.5,.01,1,0)="^.1"
^DD(552.5,.01,1,1,0)="552.5^B"
^DD(552.5,.01,1,1,1)="S ^PSX(552.5,""B"",$E(X,1,30),DA)="""""
^DD(552.5,.01,1,1,2)="K ^PSX(552.5,""B"",$E(X,1,30),DA)"
^DD(552.5,.01,3)="Enter the facility that transmitted the prescriptions to the host."
^DD(552.5,.01,21,0)="^^2^2^2940622^^^^"
^DD(552.5,.01,21,1,0)="This field contains the remote facility that transmitted the prescriptions "
^DD(552.5,.01,21,2,0)="to the host site."
^DD(552.5,.01,"DT")="2940622"
^DD(552.5,1,0)="DIVISION^552.51A^^1;0"
^DD(552.5,1,21,0)="^^2^2^2931222^^^^"
^DD(552.5,1,21,1,0)="This sub-file contains the data for the pharmacy division that initiated "
^DD(552.5,1,21,2,0)="the prescription."
^DD(552.5,"B","DIVISION",1)=""
^DD(552.5,"B","FACILITY",.01)=""
^DD(552.5,"GL",0,1,.01)=""
^DD(552.5,"GL",1,0,1)=""
^DD(552.5,"IX",.01)=""
^DD(552.5,"RQ",.01)=""
^DD(552.5,"SB",552.51,1)=""
^DD(552.51,0)="DIVISION SUB-FIELD^^1^2"
^DD(552.51,0,"IX","B",552.51,.01)=""
^DD(552.51,0,"NM","DIVISION")=""
^DD(552.51,0,"UP")="552.5"
^DD(552.51,.01,0)="DIVISION^MFX^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(552.51,.01,1,0)="^.1"
^DD(552.51,.01,1,1,0)="552.51^B"
^DD(552.51,.01,1,1,1)="S ^PSX(552.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(552.51,.01,1,1,2)="K ^PSX(552.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(552.51,.01,3)="Enter the facility's division."
^DD(552.51,.01,21,0)="^^2^2^2950404^^^^"
^DD(552.51,.01,21,1,0)="This field contains the pharmacy division that initiated the prescriptions."
^DD(552.51,.01,21,2,0)="  "
^DD(552.51,.01,"DT")="2931112"
^DD(552.51,1,0)="DATE PRESCRIPTION FILLED^552.61DA^^1;0"
^DD(552.51,1,21,0)="^^1^1^2931119^^^^"
^DD(552.51,1,21,1,0)="This sub-file contains the fill/refill date of dispensed prescriptions. "
^DD(552.51,1,"DT")="2931110"
^DD(552.51,"B","DATE PRESCRIPTION FILLED",1)=""
^DD(552.51,"B","DIVISION",.01)=""
^DD(552.51,"GL",0,1,.01)=""
^DD(552.51,"GL",1,0,1)=""
^DD(552.51,"IX",.01)=""
^DD(552.51,"SB",552.61,1)=""
^DD(552.56,0)="LOT NUMBER SUB-FIELD^^1^2"
^DD(552.56,0,"NM","LOT NUMBER")=""
^DD(552.56,0,"UP")="552.41"
^DD(552.56,.01,0)="LOT NUMBER^F^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(552.56,.01,1,0)="^.1^^0"
^DD(552.56,.01,3)="Answer must be 1-20 characters in length."
^DD(552.56,.01,21,0)="^^2^2^2950404^^^"
^DD(552.56,.01,21,1,0)="The lot number for the prescription."
^DD(552.56,.01,21,2,0)="  "
^DD(552.56,.01,"DT")="2930910"
^DD(552.56,1,0)="EXPIRATION DATE^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(552.56,1,21,0)="^^2^2^2950404^^"
^DD(552.56,1,21,1,0)="The expiration date of the drug."
^DD(552.56,1,21,2,0)="  "
^DD(552.56,1,23,0)="^^1^1^2950404^^^"
^DD(552.56,1,23,1,0)="FileMan date/time format."
^DD(552.56,1,"DT")="2930728"
^DD(552.56,"B","EXPIRATION DATE",1)=""
^DD(552.56,"B","LOT NUMBER",.01)=""
^DD(552.56,"GL",0,1,.01)=""
^DD(552.56,"GL",0,2,1)=""
^DD(552.61,0)="DATE PRESCRIPTION FILLED SUB-FIELD^^1^2"
^DD(552.61,0,"IX","B",552.61,.01)=""
^DD(552.61,0,"NM","DATE PRESCRIPTION FILLED")=""
^DD(552.61,0,"UP")="552.51"
^DD(552.61,.01,0)="DATE PRESCRIPTION FILLED^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(552.61,.01,1,0)="^.1"
^DD(552.61,.01,1,1,0)="552.61^B"
^DD(552.61,.01,1,1,1)="S ^PSX(552.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(552.61,.01,1,1,2)="K ^PSX(552.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(552.61,.01,1,2,0)="552.5^AD"
^DD(552.61,.01,1,2,1)="S ^PSX(552.5,""AD"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(552.61,.01,1,2,2)="K ^PSX(552.5,""AD"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(552.61,.01,1,2,"%D",0)="^^7^7^2950406^^^^"
^DD(552.61,.01,1,2,"%D",1,0)="This cross reference lists the Date Prescription Filled, Facility IEN, Division IEN, then Date IEN.  It is used to purge the CMOP Cost Stats file for a specified date range."
^DD(552.61,.01,1,2,"%D",2,0)="  "
^DD(552.61,.01,1,2,"%D",3,0)="    "
^DD(552.61,.01,1,2,"%D",4,0)="     "
^DD(552.61,.01,1,2,"%D",5,0)="    "
^DD(552.61,.01,1,2,"%D",6,0)="     "
^DD(552.61,.01,1,2,"%D",7,0)="     "
^DD(552.61,.01,1,2,"DT")="2940120"
^DD(552.61,.01,3)="Enter the date the prescription was filled/refilled."
^DD(552.61,.01,21,0)="^^1^1^2931112^^^^"
^DD(552.61,.01,21,1,0)="This field contains the date the prescriptions were filled/refilled."
^DD(552.61,.01,"DT")="2941013"
^DD(552.61,1,0)="DRUG ID#^552.611A^^1;0"
^DD(552.61,1,21,0)="^^1^1^2931119^^"
^DD(552.61,1,21,1,0)="This sub-file contains drug data for the prescriptions filled/refilled."
^DD(552.61,"B","DATE PRESCRIPTION FILLED",.01)=""
^DD(552.61,"B","DRUG ID#",1)=""
^DD(552.61,"GL",0,1,.01)=""
^DD(552.61,"GL",1,0,1)=""
^DD(552.61,"IX",.01)=""
^DD(552.61,"SB",552.611,1)=""
^DD(552.611,0)="DRUG ID# SUB-FIELD^^4^5"
^DD(552.611,0,"IX","B",552.611,.01)=""
^DD(552.611,0,"NM","DRUG ID#")=""
^DD(552.611,0,"UP")="552.61"
^DD(552.611,.01,0)="DRUG ID#^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(552.611,.01,1,0)="^.1"
^DD(552.611,.01,1,1,0)="552.611^B"
^DD(552.611,.01,1,1,1)="S ^PSX(552.5,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(552.611,.01,1,1,2)="K ^PSX(552.5,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(552.611,.01,3)="Enter the CMOP Drug ID#."
^DD(552.611,.01,21,0)="^^1^1^2931112^"
^DD(552.611,.01,21,1,0)="This field contains the CMOP Drug ID#."
^DD(552.611,.01,"DT")="2931112"
^DD(552.611,1,0)="TOTAL ORIGINAL FILLS^NJ8,0^^0;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(552.611,1,3)="Enter the total number of original prescriptions filled."
^DD(552.611,1,21,0)="^^1^1^2931119^^^"
^DD(552.611,1,21,1,0)="This field contains the total number of original prescriptions filled."
^DD(552.611,1,"DT")="2931112"
^DD(552.611,2,0)="TOTAL REFILLS^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(552.611,2,3)="Enter the total number of prescriptions refilled."
^DD(552.611,2,21,0)="^^1^1^2931112^^"
^DD(552.611,2,21,1,0)="This field contains the total number of prescriptions refilled."
^DD(552.611,2,"DT")="2931112"
^DD(552.611,3,0)="TOTAL COST^NJ11,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(552.611,3,3)="Enter the total cost of all prescriptions filled and refilled."
^DD(552.611,3,21,0)="^^1^1^2931112^"
^DD(552.611,3,21,1,0)="This field contains the total cost of prescriptions filled and refilled."
^DD(552.611,3,"DT")="2931112"
^DD(552.611,4,0)="TOTAL QUANTITY^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(552.611,4,3)="Enter the total quantity dispensed."
^DD(552.611,4,21,0)="^^2^2^2931119^^"
^DD(552.611,4,21,1,0)="This field contains the total quantity dispensed for the drug. The "
^DD(552.611,4,21,2,0)="quantity may be in tablets, bottles, etc."
^DD(552.611,4,"DT")="2931119"
^DD(552.611,"B","DRUG ID#",.01)=""
^DD(552.611,"B","TOTAL COST",3)=""
^DD(552.611,"B","TOTAL ORIGINAL FILLS",1)=""
^DD(552.611,"B","TOTAL QUANTITY",4)=""
^DD(552.611,"B","TOTAL REFILLS",2)=""
^DD(552.611,"GL",0,1,.01)=""
^DD(552.611,"GL",0,2,1)=""
^DD(552.611,"GL",0,3,2)=""
^DD(552.611,"GL",0,4,3)=""
^DD(552.611,"GL",0,5,4)=""
^DD(552.611,"IX",.01)=""
^DD(553,0)="FIELD^^102^22"
^DD(553,0,"DT")="2961204"
^DD(553,0,"IX","B",553,.01)=""
^DD(553,0,"NM","CMOP INTERFACE")=""
^DD(553,0,"VR")="2.0"
^DD(553,0,"VRPK")="CMOPH"
^DD(553,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(553,.01,1,0)="^.1"
^DD(553,.01,1,1,0)="553^B"
^DD(553,.01,1,1,1)="S ^PSX(553,""B"",$E(X,1,30),DA)="""""
^DD(553,.01,1,1,2)="K ^PSX(553,""B"",$E(X,1,30),DA)"
^DD(553,.01,3)="Answer must be 3-30 characters in length."
^DD(553,.01,21,0)="^^3^3^2950406^"
^DD(553,.01,21,1,0)="Free text name of the CMOP site."
^DD(553,.01,21,2,0)="   "
^DD(553,.01,21,3,0)="    "
^DD(553,.01,"DT")="2930428"
^DD(553,1,0)="CONTENTION RETRY DELAY^NJ2,0XI^^0;2^K X"
^DD(553,1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(553,1,21,0)="^^4^4^2950406^"
^DD(553,1,21,1,0)="The time delay (in seconds) between unsuccessful bids for master status."
^DD(553,1,21,2,0)="   "
^DD(553,1,21,3,0)="   "
^DD(553,1,21,4,0)="   "
^DD(553,1,"DT")="2940313"
^DD(553,2,0)="MAXIMUM BLOCK SIZE^NJ2,0IX^^0;3^K X"
^DD(553,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(553,2,21,0)="^^5^5^2950406^"
^DD(553,2,21,1,0)="The maximum size of a block of data (in bytes)."
^DD(553,2,21,2,0)="    "
^DD(553,2,21,3,0)="    "
^DD(553,2,21,4,0)="    "
^DD(553,2,21,5,0)="   "
^DD(553,2,"DT")="2940313"
^DD(553,3,0)="MAXIMUM MESSAGE SIZE^NJ4,0IX^^0;4^K X"
^DD(553,3,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(553,3,21,0)="^^4^4^2950406^"
^DD(553,3,21,1,0)="The maximum size of a message (in bytes). A message can contain many blocks of data."
^DD(553,3,21,2,0)="   "
^DD(553,3,21,3,0)="    "
^DD(553,3,21,4,0)="    "
^DD(553,3,"DT")="2940313"
^DD(553,4,0)="BLOCK XMIT RETRIES (L)^NJ2,0IX^^0;5^K X"
^DD(553,4,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(553,4,21,0)="^^6^6^2950406^"
^DD(553,4,21,1,0)="The maximum number of times a block of data can be retransmitted."
^DD(553,4,21,2,0)="   "
^DD(553,4,21,3,0)="    "
^DD(553,4,21,4,0)="    "
^DD(553,4,21,5,0)="    "
^DD(553,4,21,6,0)="  "
^DD(553,4,"DT")="2940313"
^DD(553,5,0)="LINE BID RETRIES (M)^NJ2,0IX^^0;6^K X"
^DD(553,5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(553,5,21,0)="^^5^5^2950406^"
^DD(553,5,21,1,0)="The maximum number of retries in bidding for master status."
^DD(553,5,21,2,0)="    "
^DD(553,5,21,3,0)="     "
^DD(553,5,21,4,0)="     "
^DD(553,5,21,5,0)="     "
^DD(553,5,"DT")="2940313"
^DD(553,6,0)="CMOP DEVICE^P3.5'^%ZIS(1,^0;7^Q"
^DD(553,6,21,0)="^^5^5^2950406^"
^DD(553,6,21,1,0)="The name of the device used to transmit data to the vendor system."
^DD(553,6,21,2,0)="   "
^DD(553,6,21,3,0)="    "
^DD(553,6,21,4,0)="    "
^DD(553,6,21,5,0)="    "
^DD(553,6,"DT")="2930428"
^DD(553,7,0)="STATUS^SX^R:RUNNING;S:STOPPED;^S;1^K X"
^DD(553,7,21,0)="^^10^10^2950406^^^"
^DD(553,7,21,1,0)=" "
^DD(553,7,21,2,0)="This field indicates the current status of the CMOP Interface and is used"
^DD(553,7,21,3,0)="in combination with other system parameters to control the operations of"
^DD(553,7,21,4,0)="the CMOP."
^DD(553,7,21,5,0)=" "
^DD(553,7,21,6,0)="    "
^DD(553,7,21,7,0)="     "
^DD(553,7,21,8,0)="    "
^DD(553,7,21,9,0)="    "
^DD(553,7,21,10,0)="    "
^DD(553,7,23,0)="^^1^1^2950406^^"
^DD(553,7,23,1,0)="Set of codes."
^DD(553,7,"DT")="2940313"
^DD(553,7.1,0)="PRINT STATUS^S^R:RUNNING;S:STOPPED;^P;1^Q"
^DD(553,7.1,21,0)="^^3^3^2940217^"
^DD(553,7.1,21,1,0)="This field indicates if labels are printing for a queued data transmission"
^DD(553,7.1,21,2,0)="and is used in combination with other system parameters to control the"
^DD(553,7.1,21,3,0)="operations of the CMOP Interface."
^DD(553,7.1,23,0)="^^1^1^2940217^"
^DD(553,7.1,23,1,0)="Set of codes."
^DD(553,7.1,"DT")="2940120"
^DD(553,8,0)="TIMER A^NJ3,0I^^T;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(553,8,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(553,8,21,0)="^^1^1^2930507^"
^DD(553,8,21,1,0)="Response timer used by a sending station to protect against an invalid response or no response."
^DD(553,8,"DT")="2940313"
^DD(553,9,0)="TIMER B^NJ3,0I^^T;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(553,9,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(553,9,21,0)="^^2^2^2930507^"
^DD(553,9,21,1,0)="Receive timer used by a slave station to protect against failure to "
^DD(553,9,21,2,0)="recognize the end of a block."
^DD(553,9,"DT")="2940313"
^DD(553,10,0)="TIMER D^NJ3,0I^^T;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(553,10,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(553,10,21,0)="^^2^2^2930507^"
^DD(553,10,21,1,0)="Inter-Block timer that serves to prevent a station from hanging in slave "
^DD(553,10,21,2,0)="mode"
^DD(553,10,"DT")="2940313"
^DD(553,11,0)="TIMER E^NJ3,0I^^T;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(553,11,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(553,11,21,0)="^^2^2^2930507^"
^DD(553,11,21,1,0)="Line Check timer that triggers a check of the communications link when"
^DD(553,11,21,2,0)="neither station has requested to be master for some time."
^DD(553,11,"DT")="2940313"
^DD(553,12,0)="QUANTITY LIMIT REQUEST^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(553,12,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(553,12,21,0)="^^2^2^2931109^"
^DD(553,12,21,1,0)=" "
^DD(553,12,21,2,0)="The maximum (quantity limit) number of responses for a query request."
^DD(553,12,"DT")="2930831"
^DD(553,13,0)="LAST MESSAGE TRANSMITTED^F^^99;1^K:$L(X)>20!($L(X)<3) X"
^DD(553,13,3)="Answer must be 3-20 characters in length."
^DD(553,13,21,0)="^^3^3^2931109^"
^DD(553,13,21,1,0)=" "
^DD(553,13,21,2,0)="The message control ID of the last message transmitted to the non-DHCP"
^DD(553,13,21,3,0)="vendor system."
^DD(553,13,"DT")="2930902"
^DD(553,14,0)="QUERY TIME INTERVAL^NJ5,2^^0;9^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""3N.N) X"
^DD(553,14,3)="Type a Number between 0 and 24, 2 Decimal Digits"
^DD(553,14,21,0)="^^3^3^2961204^"
^DD(553,14,21,1,0)="Enter the time interval between queries. This time is entered in hours."
^DD(553,14,21,2,0)="Time can be entered as a fraction of an hour. Example: 1.5, .75, 2.25,"
^DD(553,14,21,3,0)="etc."
^DD(553,14,"DT")="2961204"
^DD(553,15,0)="QUERY STATUS^SI^R:RUNNING;S:STOPPED;^Q;1^Q"
^DD(553,15,21,0)="^^3^3^2940217^"
^DD(553,15,21,1,0)="This field indicates whether or not a Query Request is currently in"
^DD(553,15,21,2,0)="progress and is used with other system parameters to control the operations"
^DD(553,15,21,3,0)="of the CMOP Interface."
^DD(553,15,23,0)="^^1^1^2940217^"
^DD(553,15,23,1,0)="Set of Codes"
^DD(553,15,"DT")="2940303"
^DD(553,16,0)="FILER STATUS^SI^R:RUNNING;S:STOPPED;^F;1^Q"
^DD(553,16,21,0)="^^3^3^2940217^^"
^DD(553,16,21,1,0)="This field indicates when the background filer is running and is used"
^DD(553,16,21,2,0)="in combination with other system parameters to control the operations of "
^DD(553,16,21,3,0)="the CMOP Interface."
^DD(553,16,23,0)="^^1^1^2940217^^"
^DD(553,16,23,1,0)="Set of codes."
^DD(553,16,"DT")="2940303"
^DD(553,17,0)="MAX LOG ENTRIES^NJ8,0^^0;10^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(553,17,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(553,17,21,0)="^^2^2^2960321^"
^DD(553,17,21,1,0)="This is the maximum number of log entries that will be maitained in the"
^DD(553,17,21,2,0)="CMOP Interface file. The recommended default is 1,000 entries."
^DD(553,17,"DT")="2960321"
^DD(553,100,0)="LOG^553.01DA^^X;0"
^DD(553,100,21,0)="^^5^5^2950406^"
^DD(553,100,21,1,0)="The interface log of activity during data transmissions. This data is used mostly for troubleshooting problems with the running of the interface."
^DD(553,100,21,2,0)="   "
^DD(553,100,21,3,0)="    "
^DD(553,100,21,4,0)="    "
^DD(553,100,21,5,0)="    "
^DD(553,101,0)="FILER TASK NUMBER^NJ9,0^^F;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(553,101,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(553,101,21,0)="^^3^3^2950404^^"
^DD(553,101,21,1,0)=" "
^DD(553,101,21,2,0)="This is the TaskMan task number for the background filer."
^DD(553,101,21,3,0)="  "
^DD(553,101,"DT")="2941216"
^DD(553,102,0)="PURGE RELEASE FILE TASK NUMBER^NJ8,0^^F;3^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(553,102,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(553,102,21,0)="^^4^4^2950404^^"
^DD(553,102,21,1,0)=" "
^DD(553,102,21,2,0)="This is the TaskMan task number for the nightly job that purges the"
^DD(553,102,21,3,0)=" "
^DD(553,102,21,4,0)="release file."
^DD(553,102,"DT")="2941216"
^DD(553,"B","BLOCK XMIT RETRIES (L)",4)=""
^DD(553,"B","CMOP DEVICE",6)=""
^DD(553,"B","CONTENTION RETRY DELAY",1)=""
^DD(553,"B","FILER STATUS",16)=""
^DD(553,"B","FILER TASK NUMBER",101)=""
^DD(553,"B","LAST MESSAGE TRANSMITTED",13)=""
^DD(553,"B","LINE BID RETRIES (M)",5)=""
^DD(553,"B","LOG",100)=""
^DD(553,"B","MAX LOG ENTRIES",17)=""
^DD(553,"B","MAXIMUM BLOCK SIZE",2)=""
^DD(553,"B","MAXIMUM MESSAGE SIZE",3)=""
^DD(553,"B","NAME",.01)=""
^DD(553,"B","PRINT STATUS",7.1)=""
^DD(553,"B","PURGE RELEASE FILE TASK NUMBER",102)=""
^DD(553,"B","QUANTITY LIMIT REQUEST",12)=""
^DD(553,"B","QUERY STATUS",15)=""
^DD(553,"B","QUERY TIME INTERVAL",14)=""
^DD(553,"B","STATUS",7)=""
^DD(553,"B","TIMER A",8)=""
^DD(553,"B","TIMER B",9)=""
^DD(553,"B","TIMER D",10)=""
^DD(553,"B","TIMER E",11)=""
^DD(553,"GL",0,1,.01)=""
^DD(553,"GL",0,2,1)=""
^DD(553,"GL",0,3,2)=""
^DD(553,"GL",0,4,3)=""
^DD(553,"GL",0,5,4)=""
^DD(553,"GL",0,6,5)=""
^DD(553,"GL",0,7,6)=""
^DD(553,"GL",0,8,12)=""
^DD(553,"GL",0,9,14)=""
^DD(553,"GL",0,10,17)=""
^DD(553,"GL",99,1,13)=""
^DD(553,"GL","F",1,16)=""
^DD(553,"GL","F",2,101)=""
^DD(553,"GL","F",3,102)=""
^DD(553,"GL","P",1,7.1)=""
^DD(553,"GL","Q",1,15)=""
^DD(553,"GL","S",1,7)=""
^DD(553,"GL","T",1,8)=""
^DD(553,"GL","T",2,9)=""
^DD(553,"GL","T",3,10)=""
^DD(553,"GL","T",4,11)=""
^DD(553,"GL","X",0,100)=""
^DD(553,"IX",.01)=""
^DD(553,"RQ",.01)=""
^DD(553,"SB",553.01,100)=""
^DD(553.01,0)="LOG SUB-FIELD^^1^2"
^DD(553.01,0,"NM","LOG")=""
^DD(553.01,0,"UP")="553"
^DD(553.01,.01,0)="LOG^DX^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X"
^DD(553.01,.01,1,0)="^.1^^0"
^DD(553.01,.01,21,0)="^^4^4^2931109^"
^DD(553.01,.01,21,1,0)=" "
^DD(553.01,.01,21,2,0)="The interface log of activity during data transmissions.  This data is"
^DD(553.01,.01,21,3,0)="reviewed and used mostly for troubleshooting problems with the running of"
^DD(553.01,.01,21,4,0)="the interface."
^DD(553.01,.01,"DT")="2931027"
^DD(553.01,1,0)="TEXT^553.11^^X;0"
^DD(553.01,1,21,0)="^^5^5^2950406^^"
^DD(553.01,1,21,1,0)="This is the free text description of the interface activity."
^DD(553.01,1,21,2,0)="     "
^DD(553.01,1,21,3,0)="    "
^DD(553.01,1,21,4,0)="    "
^DD(553.01,1,21,5,0)="    "
^DD(553.01,"B","LOG",.01)=""
^DD(553.01,"B","TEXT",1)=""
^DD(553.01,"GL",0,1,.01)=""
^DD(553.01,"GL","X",0,1)=""
^DD(553.01,"SB",553.11,1)=""
^DD(553.1,0)="FIELD^^6^7"
^DD(553.1,0,"DDA")="N"
^DD(553.1,0,"IX","AC",553.1,6)=""
^DD(553.1,0,"IX","AD",553.1,1)=""
^DD(553.1,0,"IX","B",553.1,.01)=""
^DD(553.1,0,"IX","C",553.1,3)=""
^DD(553.1,0,"NM","CMOP QUERY")=""
^DD(553.1,0,"VR")="2.0"
^DD(553.1,0,"VRPK")="CMOPH"
^DD(553.1,.01,0)="QUERY ID^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(553.1,.01,1,0)="^.1^^-1"
^DD(553.1,.01,1,1,0)="553.1^B"
^DD(553.1,.01,1,1,1)="S ^PSX(553.1,""B"",$E(X,1,30),DA)="""""
^DD(553.1,.01,1,1,2)="K ^PSX(553.1,""B"",$E(X,1,30),DA)"
^DD(553.1,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(553.1,.01,21,0)="^^3^3^2950406^"
^DD(553.1,.01,21,1,0)="The number of the query."
^DD(553.1,.01,21,2,0)="   "
^DD(553.1,.01,21,3,0)="   "
^DD(553.1,.01,"DT")="2940515"
^DD(553.1,1,0)="QUERY DATE/TIME^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(553.1,1,1,0)="^.1"
^DD(553.1,1,1,1,0)="553.1^AD^MUMPS"
^DD(553.1,1,1,1,1)="S ^PSX(553.1,""AD"",X,$P(^PSX(553.1,DA,0),""^""),DA)="""""
^DD(553.1,1,1,1,2)="K ^PSX(553.1,""AD"",X,$P(^PSX(553.1,DA,0),""^""),DA)"
^DD(553.1,1,1,1,"%D",0)="^^2^2^2960321^"
^DD(553.1,1,1,1,"%D",1,0)="This cross reference list the Query date/time and will be used for"
^DD(553.1,1,1,1,"%D",2,0)="lookups and sorting."
^DD(553.1,1,1,1,"DT")="2960321"
^DD(553.1,1,21,0)="^^1^1^2931026^^"
^DD(553.1,1,21,1,0)="The date/time the Query request was sent to the non-DHCP system."
^DD(553.1,1,"DT")="2960321"
^DD(553.1,2,0)="ACKNOWLEDGED DATE/TIME^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(553.1,2,21,0)="^^1^1^2940524^^^"
^DD(553.1,2,21,1,0)="The date/time the non-DHCP system acknowledgement was received."
^DD(553.1,2,"DT")="2940515"
^DD(553.1,3,0)="COMPLETED DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(553.1,3,1,0)="^.1"
^DD(553.1,3,1,1,0)="553.1^C"
^DD(553.1,3,1,1,1)="S ^PSX(553.1,""C"",$E(X,1,30),DA)="""""
^DD(553.1,3,1,1,2)="K ^PSX(553.1,""C"",$E(X,1,30),DA)"
^DD(553.1,3,1,1,3)="Do not delete!"
^DD(553.1,3,1,1,"%D",0)="^^1^1^2940524^"
^DD(553.1,3,1,1,"%D",1,0)="This cross reference contains the date/time the query request completed."
^DD(553.1,3,1,1,"DT")="2940524"
^DD(553.1,3,21,0)="^^2^2^2940524^^^^"
^DD(553.1,3,21,1,0)="Date/time the non-DHCP system returned an 'End of Transmission' response "
^DD(553.1,3,21,2,0)="to the query request."
^DD(553.1,3,"DT")="2940524"
^DD(553.1,4,0)="STATUS^S^0:INITIATED;1:COMPLETED;2:NO DATA AVAILABLE;3:NO ACKNOWLEDGEMENT RECEIVED;4:ABORTED/INVALID RESPONSE;5:IN PROGRESS;^0;5^Q"
^DD(553.1,4,21,0)="^^1^1^2940515^^^^"
^DD(553.1,4,21,1,0)="This field indicates the current status of the query request."
^DD(553.1,4,23,0)="^^1^1^2940515^"
^DD(553.1,4,23,1,0)="Set of codes."
^DD(553.1,4,"DT")="2940518"
^DD(553.1,5,0)="RXS RECEIVED^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(553.1,5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(553.1,5,21,0)="^^2^2^2931109^"
^DD(553.1,5,21,1,0)=" "
^DD(553.1,5,21,2,0)="Total number of Rx's received from this query."
^DD(553.1,5,"DT")="2940515"
^DD(553.1,6,0)="FILER DT/TM^D^^0;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(553.1,6,1,0)="^.1"
^DD(553.1,6,1,1,0)="553.1^AC^MUMPS"
^DD(553.1,6,1,1,1)="S ^PSX(553.1,""AC"",X,DA)="""" K ^PSX(553.1,""C"",$P(^PSX(553.1,DA,0),U,4),DA)"
^DD(553.1,6,1,1,2)="K ^PSX(553.1,""AC"",X,DA)"
^DD(553.1,6,1,1,3)="DO NOT DELETE"
^DD(553.1,6,1,1,"%D",0)="^^3^3^2940524^^"
^DD(553.1,6,1,1,"%D",1,0)="This cross reference is used to indicate when the data for this Query ID"
^DD(553.1,6,1,1,"%D",2,0)="has been filed properly. The set for this cross reference also kills the"
^DD(553.1,6,1,1,"%D",3,0)="'C' cross reference."
^DD(553.1,6,1,1,"DT")="2940524"
^DD(553.1,6,21,0)="^^4^4^2950406^"
^DD(553.1,6,21,1,0)="The date and time the background filer filed the data from this query in the CMOP Master Database file."
^DD(553.1,6,21,2,0)="    "
^DD(553.1,6,21,3,0)="    "
^DD(553.1,6,21,4,0)="    "
^DD(553.1,6,"DT")="2940524"
^DD(553.1,"B","ACKNOWLEDGED DATE/TIME",2)=""
^DD(553.1,"B","COMPLETED DATE/TIME",3)=""
^DD(553.1,"B","FILER DT/TM",6)=""
^DD(553.1,"B","QUERY DATE/TIME",1)=""
^DD(553.1,"B","QUERY ID",.01)=""
^DD(553.1,"B","RXS RECEIVED",5)=""
^DD(553.1,"B","STATUS",4)=""
^DD(553.1,"GL",0,1,.01)=""
^DD(553.1,"GL",0,2,1)=""
^DD(553.1,"GL",0,3,2)=""
^DD(553.1,"GL",0,4,3)=""
^DD(553.1,"GL",0,5,4)=""
^DD(553.1,"GL",0,6,5)=""
^DD(553.1,"GL",0,7,6)=""
^DD(553.1,"IX",.01)=""
^DD(553.1,"IX",1)=""
^DD(553.1,"IX",3)=""
^DD(553.1,"IX",6)=""
^DD(553.1,"RQ",.01)=""
^DD(553.11,0)="TEXT SUB-FIELD^^.01^1"
^DD(553.11,0,"NM","TEXT")=""
^DD(553.11,0,"UP")="553.01"
^DD(553.11,.01,0)="TEXT^W^^0;1^Q"
^DD(553.11,.01,21,0)="^^1^1^2950406^^"
^DD(553.11,.01,21,1,0)="This is the free text description of the interface activity."
^DD(553.11,.01,"DT")="2930428"
^DD(553.11,"B","TEXT",.01)=""
^DD(553.11,"GL",0,1,.01)=""
^DD(554,0)="FIELD^^23^12"
^DD(554,0,"DDA")="N"
^DD(554,0,"DT")="2960321"
^DD(554,0,"IX","AB",554.01,2)=""
^DD(554,0,"IX","AC",554.03,1)=""
^DD(554,0,"IX","AD",554.01,2)=""
^DD(554,0,"IX","AF",554.03,2)=""
^DD(554,0,"IX","AR",554.01,2)=""
^DD(554,0,"IX","ARUN",554.02,1)=""
^DD(554,0,"IX","AS",554.01,2)=""
^DD(554,0,"IX","B",554,.01)=""
^DD(554,0,"NM","CMOP OPERATIONS")=""
^DD(554,0,"VR")="2.0"
^DD(554,0,"VRPK")="CMOPH"
^DD(554,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(554,.01,1,0)="^.1"
^DD(554,.01,1,1,0)="554^B"
^DD(554,.01,1,1,1)="S ^PSX(554,""B"",$E(X,1,30),DA)="""""
^DD(554,.01,1,1,2)="K ^PSX(554,""B"",$E(X,1,30),DA)"
^DD(554,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(554,.01,21,0)="^^3^3^2950406^"
^DD(554,.01,21,1,0)="Free text name of the site."
^DD(554,.01,21,2,0)="   "
^DD(554,.01,21,3,0)="   "
^DD(554,1,0)="BACKGROUND FILE PROCESSES^554.01SA^^1;0"
^DD(554,1,21,0)="^^3^3^2950406^^^"
^DD(554,1,21,1,0)=" "
^DD(554,1,21,2,0)="This sub-file contains data about the schedules for the different"
^DD(554,1,21,3,0)="background file processes."
^DD(554,2,0)="COST^554.02DA^^2;0"
^DD(554,2,21,0)="^^1^1^2950322^^^^"
^DD(554,2,21,1,0)="The sub-file contains a log of queued cost jobs for the last 30 days."
^DD(554,3,0)="RELEASE DATA^554.03DA^^3;0"
^DD(554,4,0)="LAST TRANSMISSION DOWNLOADED^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(554,4,3)="Answer must be 3-40 characters in length."
^DD(554,4,21,0)="^^1^1^2960321^"
^DD(554,4,21,1,0)="This is the last transmission downloaded to the vendor system."
^DD(554,4,"DT")="2960321"
^DD(554,5,0)="LAST QUERY^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(554,5,3)="Answer must be 1-40 characters in length."
^DD(554,5,21,0)="^^1^1^2960321^"
^DD(554,5,21,1,0)="This is the last query executed."
^DD(554,5,"DT")="2960321"
^DD(554,6,0)="LAST TRANSMISSION LABEL PRINT^F^^0;4^K:$L(X)>40!($L(X)<3) X"
^DD(554,6,3)="Answer must be 3-40 characters in length."
^DD(554,6,21,0)="^^2^2^2960321^"
^DD(554,6,21,1,0)="This is the last transmission that DHCP labels were printed for the entire"
^DD(554,6,21,2,0)="transmission."
^DD(554,6,"DT")="2960321"
^DD(554,8,0)="CMOP DRUG Cost Missing reports^S^Y:YES;N:NO;^0;5^Q"
^DD(554,8,3)="Do you want the ""CMOP DRUG Cost Missing"" error report generated? (Y/N)"
^DD(554,8,21,0)="^^2^2^3001120^"
^DD(554,8,21,1,0)="This parameter controls the generation of the ""CMOP DRUG Cost Missing"""
^DD(554,8,21,2,0)="report."
^DD(554,8,"DT")="3001120"
^DD(554,20,0)="CMOP DOD IN DIRECTORY^F^^DOD;1^K:$L(X)>30!($L(X)<2) X"
^DD(554,20,3)="Answer must be 2-30 characters in length"
^DD(554,20,21,0)="^^2^2^3020927^"
^DD(554,20,21,1,0)="The host directory where VA CMOP interagency messages are deposited for "
^DD(554,20,21,2,0)="CMOP processing."
^DD(554,20,"DT")="3020927"
^DD(554,21,0)="CMOP DOD OUT DIRECTORY^F^^DOD;2^K:$L(X)>30!($L(X)<2) X"
^DD(554,21,3)="Answer must be 2-30 characters in length"
^DD(554,21,21,0)="^^2^2^3020927^"
^DD(554,21,21,1,0)="The host directory where VA CMOP places interagency messages to be picked"
^DD(554,21,21,2,0)="up and processed by other agencies."
^DD(554,21,"DT")="3020927"
^DD(554,22,0)="CMOP DOD ARCHIVE DIRECTORY^F^^DOD;3^K:$L(X)>30!($L(X)<2) X"
^DD(554,22,3)="Answer must be 2-30 characters in length"
^DD(554,22,21,0)="^^2^2^3020927^"
^DD(554,22,21,1,0)="The host directory where copies of all interagency messages, in and out, "
^DD(554,22,21,2,0)="are deposited."
^DD(554,22,"DT")="3020927"
^DD(554,23,0)="CMOP DOD HOLD DIRECTORY^F^^DOD;4^K:$L(X)>30!($L(X)<1) X"
^DD(554,23,3)="Answer must be 1-30 characters in length"
^DD(554,23,21,0)="^^2^2^3020927^"
^DD(554,23,21,1,0)="The host directory where copies are kept of interagency messages that "
^DD(554,23,21,2,0)="experienced problems being processed by the VA CMOP."
^DD(554,23,"DT")="3020927"
^DD(554,"B","BACKGROUND FILE PROCESSES",1)=""
^DD(554,"B","CMOP DOD ARCHIVE DIRECTORY",22)=""
^DD(554,"B","CMOP DOD HOLD DIRECTORY",23)=""
^DD(554,"B","CMOP DOD IN DIRECTORY",20)=""
^DD(554,"B","CMOP DOD OUT DIRECTORY",21)=""
^DD(554,"B","CMOP DRUG Cost Missing reports",8)=""
^DD(554,"B","COST",2)=""
^DD(554,"B","LAST QUERY",5)=""
^DD(554,"B","LAST TRANSMISSION DOWNLOADED",4)=""
^DD(554,"B","LAST TRANSMISSION LABEL PRINT",6)=""
^DD(554,"B","NAME",.01)=""
^DD(554,"B","RELEASE DATA",3)=""
^DD(554,"GL",0,1,.01)=""
^DD(554,"GL",0,2,4)=""
^DD(554,"GL",0,3,5)=""
^DD(554,"GL",0,4,6)=""
^DD(554,"GL",0,5,8)=""
^DD(554,"GL",1,0,1)=""
^DD(554,"GL",2,0,2)=""
^DD(554,"GL",3,0,3)=""
^DD(554,"GL","DOD",1,20)=""
^DD(554,"GL","DOD",2,21)=""
^DD(554,"GL","DOD",3,22)=""
^DD(554,"GL","DOD",4,23)=""
^DD(554,"IX",.01)=""
^DD(554,"RQ",.01)=""
^DD(554,"SB",554.01,1)=""
^DD(554,"SB",554.02,2)=""
^DD(554,"SB",554.03,3)=""
^DD(554.01,0)="BACKGROUND FILE PROCESSES SUB-FIELD^^8^9"
^DD(554.01,0,"DT")="2960321"
^DD(554.01,0,"IX","B",554.01,.01)=""
^DD(554.01,0,"NM","BACKGROUND FILE PROCESSES")=""
^DD(554.01,0,"UP")="554"
^DD(554.01,.01,0)="BACKGROUND FILE PROCESSES^S^1:BACKGROUND FILER;2:RELEASE FILE PURGE;3:DATABASE PURGE;4:RELEASE DATA PURGE;^0;1^Q"
^DD(554.01,.01,1,0)="^.1^^-1"
^DD(554.01,.01,1,1,0)="554.01^B"
^DD(554.01,.01,1,1,1)="S ^PSX(554,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(554.01,.01,1,1,2)="K ^PSX(554,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(554.01,.01,21,0)="^^2^2^2961007^^^"
^DD(554.01,.01,21,1,0)=" "
^DD(554.01,.01,21,2,0)="This is the type of process that is scheduled."
^DD(554.01,.01,"DT")="2950829"
^DD(554.01,1,0)="START TIME^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(554.01,1,21,0)="^^2^2^2941219^"
^DD(554.01,1,21,1,0)=" "
^DD(554.01,1,21,2,0)="This is the date/time the job was first scheduled to run."
^DD(554.01,1,"DT")="2941219"
^DD(554.01,2,0)="TASK NUMBER^NJ12,0^^0;3^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(554.01,2,1,0)="^.1"
^DD(554.01,2,1,1,0)="554^AB^MUMPS"
^DD(554.01,2,1,1,1)="S:X>0&($P(^PSX(554,1,1,DA,0),U,1)=1) ^PSX(554,""AB"",DA)="""""
^DD(554.01,2,1,1,2)="K:($P(^PSX(554,1,1,DA,0),U,1)=1) ^PSX(554,""AB"",DA)"
^DD(554.01,2,1,1,"%D",0)="^^2^2^2941219^^"
^DD(554.01,2,1,1,"%D",1,0)=" "
^DD(554.01,2,1,1,"%D",2,0)="This cross reference exists if the background filer process is scheduled."
^DD(554.01,2,1,1,"DT")="2941219"
^DD(554.01,2,1,2,0)="554^AR^MUMPS"
^DD(554.01,2,1,2,1)="S:X>0&($P(^PSX(554,1,1,DA,0),U,1)=2) ^PSX(554,""AR"",DA)="""""
^DD(554.01,2,1,2,2)="K:($P(^PSX(554,1,1,DA,0),U,1)=2) ^PSX(554,""AR"",DA)"
^DD(554.01,2,1,2,"%D",0)="^^3^3^2941219^^"
^DD(554.01,2,1,2,"%D",1,0)=" "
^DD(554.01,2,1,2,"%D",2,0)="This cross reference exists if the background process to purge the CMOP"
^DD(554.01,2,1,2,"%D",3,0)="RELEASE file is scheduled."
^DD(554.01,2,1,2,"DT")="2941219"
^DD(554.01,2,1,3,0)="554^AD^MUMPS"
^DD(554.01,2,1,3,1)="S:X>0&($P(^PSX(554,1,1,DA,0),U,1)=3) ^PSX(554,""AD"",DA)="""""
^DD(554.01,2,1,3,2)="K:($P(^PSX(554,1,1,DA,0),U,1)=3) ^PSX(554,""AD"",DA)"
^DD(554.01,2,1,3,"%D",0)="^^4^4^2950404^^^"
^DD(554.01,2,1,3,"%D",1,0)=" "
^DD(554.01,2,1,3,"%D",2,0)="This cross reference exists if the background purge of the CMOP DATABASE"
^DD(554.01,2,1,3,"%D",3,0)="file is scheduled."
^DD(554.01,2,1,3,"%D",4,0)=" "
^DD(554.01,2,1,3,"DT")="2941219"
^DD(554.01,2,1,4,0)="554^AS^MUMPS"
^DD(554.01,2,1,4,1)="S:X>0&($P(^PSX(554,1,1,DA,0),""^"",1)=4) ^PSX(554,""AS"",DA)="""""
^DD(554.01,2,1,4,2)="K:($P(^PSX(554,1,1,DA,0),""^"",1)=4) ^PSX(554,""AS"",DA)"
^DD(554.01,2,1,4,"%D",0)="^^2^2^2950829^"
^DD(554.01,2,1,4,"%D",1,0)="This cross reference exists if the background job to purge the Release"
^DD(554.01,2,1,4,"%D",2,0)="Data multiple in the CMOP Operations file (#554) is scheduled."
^DD(554.01,2,1,4,"DT")="2950829"
^DD(554.01,2,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(554.01,2,21,0)="^^4^4^2941219^"
^DD(554.01,2,21,1,0)=" "
^DD(554.01,2,21,2,0)="This is the task number of the job.  If the task number exists the job has"
^DD(554.01,2,21,3,0)="been scheduled to run.  If the task number is not present, the job has"
^DD(554.01,2,21,4,0)="been unscheduled."
^DD(554.01,2,"DT")="2950829"
^DD(554.01,3,0)="STATUS^S^R:RUNNING;S:STOPPED;^0;4^Q"
^DD(554.01,3,21,0)="^^2^2^2941219^"
^DD(554.01,3,21,1,0)=" "
^DD(554.01,3,21,2,0)="This is the current status of the job."
^DD(554.01,3,"DT")="2941219"
^DD(554.01,4,0)="DUZ^P200'^VA(200,^0;5^Q"
^DD(554.01,4,21,0)="^^2^2^2941219^"
^DD(554.01,4,21,1,0)=" "
^DD(554.01,4,21,2,0)="The person who scheduled the task to run."
^DD(554.01,4,"DT")="2941219"
^DD(554.01,5,0)="UNSCHEDULED DATE/TIME^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(554.01,5,21,0)="^^2^2^2941219^"
^DD(554.01,5,21,1,0)=" "
^DD(554.01,5,21,2,0)="This is the date/time the task was unscheduled."
^DD(554.01,5,"DT")="2941219"
^DD(554.01,6,0)="USER^P200'^VA(200,^0;7^Q"
^DD(554.01,6,21,0)="^^2^2^2941219^"
^DD(554.01,6,21,1,0)=" "
^DD(554.01,6,21,2,0)="This is the user who unscheduled the process."
^DD(554.01,6,"DT")="2941219"
^DD(554.01,7,0)="DAYS TO KEEP^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(554.01,7,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(554.01,7,21,0)="^^2^2^2950829^"
^DD(554.01,7,21,1,0)="This is the number of days of data to retain during a purge of the Release"
^DD(554.01,7,21,2,0)="Data multiple."
^DD(554.01,7,"DT")="2950829"
^DD(554.01,8,0)="COMPLETED^D^^0;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(554.01,8,21,0)="^^1^1^2960321^"
^DD(554.01,8,21,1,0)="This is the date/time the process last ran to completion."
^DD(554.01,8,"DT")="2960321"
^DD(554.01,"B","BACKGROUND FILE PROCESSES",.01)=""
^DD(554.01,"B","COMPLETED",8)=""
^DD(554.01,"B","DAYS TO KEEP",7)=""
^DD(554.01,"B","DUZ",4)=""
^DD(554.01,"B","START TIME",1)=""
^DD(554.01,"B","STATUS",3)=""
^DD(554.01,"B","TASK NUMBER",2)=""
^DD(554.01,"B","UNSCHEDULED DATE/TIME",5)=""
^DD(554.01,"B","USER",6)=""
^DD(554.01,"GL",0,1,.01)=""
^DD(554.01,"GL",0,2,1)=""
^DD(554.01,"GL",0,3,2)=""
^DD(554.01,"GL",0,4,3)=""
^DD(554.01,"GL",0,5,4)=""
^DD(554.01,"GL",0,6,5)=""
^DD(554.01,"GL",0,7,6)=""
^DD(554.01,"GL",0,8,7)=""
^DD(554.01,"GL",0,9,8)=""
^DD(554.01,"IX",.01)=""
^DD(554.01,"IX",2)=""
^DD(554.02,0)="COST SUB-FIELD^^7^8"
^DD(554.02,0,"DT")="2950301"
^DD(554.02,0,"IX","B",554.02,.01)=""
^DD(554.02,0,"NM","COST")=""
^DD(554.02,0,"UP")="554"
^DD(554.02,.01,0)="TASK START TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(554.02,.01,.1)="Task Start Time"
^DD(554.02,.01,1,0)="^.1"
^DD(554.02,.01,1,1,0)="554.02^B"
^DD(554.02,.01,1,1,1)="S ^PSX(554,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(554.02,.01,1,1,2)="K ^PSX(554,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(554.02,.01,3)="Enter the date and time the job was sent to be queued."
^DD(554.02,.01,21,0)="^^1^1^2941110^^^"
^DD(554.02,.01,21,1,0)="This field contains the date and time the task was sent to be queued."
^DD(554.02,.01,"DT")="2941110"
^DD(554.02,1,0)="STATUS^S^0:QUEUED;1:RUNNING;2:COMPLETED;^0;2^Q"
^DD(554.02,1,.1)="Status"
^DD(554.02,1,1,0)="^.1"
^DD(554.02,1,1,1,0)="554^ARUN^MUMPS"
^DD(554.02,1,1,1,1)="S:'X!(X=1) ^PSX(554,""ARUN"",X,DA)="""""
^DD(554.02,1,1,1,2)="K ^PSX(554,""ARUN"",X,DA)"
^DD(554.02,1,1,1,3)="DO NOT DELETE!"
^DD(554.02,1,1,1,"%D",0)="^^2^2^2941115^"
^DD(554.02,1,1,1,"%D",1,0)="This cross-reference is set if the task is queued or running. It is used"
^DD(554.02,1,1,1,"%D",2,0)="to find the active tasks. "
^DD(554.02,1,1,1,"DT")="2941115"
^DD(554.02,1,3)="Enter the status of the task."
^DD(554.02,1,21,0)="^^2^2^2941110^^"
^DD(554.02,1,21,1,0)="This field contains the status of the task. The task can be queued, running,"
^DD(554.02,1,21,2,0)="or completed."
^DD(554.02,1,"DT")="2941115"
^DD(554.02,2,0)="BEGINNING DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(554.02,2,.1)="Beginning Date"
^DD(554.02,2,3)="Enter the first date the data is to be compiled or purged."
^DD(554.02,2,21,0)="^^1^1^2941110^^"
^DD(554.02,2,21,1,0)="This field contains the first date the data is to be compiled or purged."
^DD(554.02,2,"DT")="2941110"
^DD(554.02,3,0)="ENDING DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(554.02,3,.1)="Ending Date"
^DD(554.02,3,3)="Enter the last date the data is to be compiled or purged."
^DD(554.02,3,21,0)="^^1^1^2941110^^"
^DD(554.02,3,21,1,0)="This field contains the last date the data is to be compiled or purged."
^DD(554.02,3,"DT")="2941110"
^DD(554.02,4,0)="USER^P200'^VA(200,^0;5^Q"
^DD(554.02,4,3)=""
^DD(554.02,4,21,0)="^^2^2^2950322^^^^"
^DD(554.02,4,21,1,0)="This field identifies the person who sent the job to be tasked."
^DD(554.02,4,21,2,0)=" "
^DD(554.02,4,23,0)="^^1^1^2950322^^^"
^DD(554.02,4,23,1,0)="Pointer to the New Person file #200."
^DD(554.02,4,"DT")="2950301"
^DD(554.02,5,0)="PURGE/COMPILE^S^C:Compile Data;P:Purge Data;^0;6^Q"
^DD(554.02,5,.1)="Purge/Compile"
^DD(554.02,5,3)="Enter the type of activity the task is performing."
^DD(554.02,5,21,0)="^^1^1^2941110^^^"
^DD(554.02,5,21,1,0)="This field contains the type of activity the task is performing."
^DD(554.02,5,"DT")="2941110"
^DD(554.02,6,0)="TASK END TIME^D^^0;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(554.02,6,.1)="Task End Time"
^DD(554.02,6,3)="Enter the date and time the task is completed."
^DD(554.02,6,21,0)="^^1^1^2941115^^^"
^DD(554.02,6,21,1,0)="This field contains the date and time the task was completed."
^DD(554.02,6,"DT")="2941115"
^DD(554.02,7,0)="TASK NUMBER^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(554.02,7,3)="Enter the number assigned to the task by TaskMan."
^DD(554.02,7,21,0)="^^1^1^2941115^"
^DD(554.02,7,21,1,0)="This field contains the number assigned to the task by TaskMan."
^DD(554.02,7,"DT")="2941115"
^DD(554.02,"B","BEGINNING DATE",2)=""
^DD(554.02,"B","Beginning Date",2)="1"
^DD(554.02,"B","ENDING DATE",3)=""
^DD(554.02,"B","Ending Date",3)="1"
^DD(554.02,"B","PURGE/COMPILE",5)=""
^DD(554.02,"B","Purge/Compile",5)="1"
^DD(554.02,"B","STATUS",1)=""
^DD(554.02,"B","Status",1)="1"
^DD(554.02,"B","TASK END TIME",6)=""
^DD(554.02,"B","TASK NUMBER",7)=""
^DD(554.02,"B","TASK START TIME",.01)=""
^DD(554.02,"B","Task End Time",6)="1"
^DD(554.02,"B","Task Start Time",.01)="1"
^DD(554.02,"B","USER",4)=""
^DD(554.02,"GL",0,1,.01)=""
^DD(554.02,"GL",0,2,1)=""
^DD(554.02,"GL",0,3,2)=""
^DD(554.02,"GL",0,4,3)=""
^DD(554.02,"GL",0,5,4)=""
^DD(554.02,"GL",0,6,5)=""
^DD(554.02,"GL",0,7,6)=""
^DD(554.02,"GL",0,8,7)=""
^DD(554.02,"IX",.01)=""
^DD(554.02,"IX",1)=""
^DD(554.03,0)="RELEASE DATA SUB-FIELD^^6^7"
^DD(554.03,0,"DT")="2950719"
^DD(554.03,0,"IX","B",554.03,.01)=""
^DD(554.03,0,"NM","RELEASE DATA")=""
^DD(554.03,0,"UP")="554"
^DD(554.03,.01,0)="RELEASE DATA^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(554.03,.01,1,0)="^.1"
^DD(554.03,.01,1,1,0)="554.03^B"
^DD(554.03,.01,1,1,1)="S ^PSX(554,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(554.03,.01,1,1,2)="K ^PSX(554,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(554.03,.01,21,0)="^^1^1^2950719^"
^DD(554.03,.01,21,1,0)="This is the date/time the Vendor Release Data mail message was created."
^DD(554.03,.01,"DT")="2950719"
^DD(554.03,1,0)="MESSAGE NUMBER^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(554.03,1,1,0)="^.1"
^DD(554.03,1,1,1,0)="554^AC^MUMPS"
^DD(554.03,1,1,1,1)="S:X'="""" ^PSX(554,""AC"",X,DA)="""""
^DD(554.03,1,1,1,2)="K ^PSX(554,""AC"",X,DA)"
^DD(554.03,1,1,1,"%D",0)="^^1^1^2950719^^^"
^DD(554.03,1,1,1,"%D",1,0)="This cross reference lists the outstanding Vendor Release Data messages."
^DD(554.03,1,1,1,"DT")="2950719"
^DD(554.03,1,3)="Answer must be 1-20 characters in length."
^DD(554.03,1,21,0)="^^1^1^2950719^"
^DD(554.03,1,21,1,0)="This is the mail message number of the message containing the Vendor Release Data message that returned data to the medical center."
^DD(554.03,1,"DT")="2950719"
^DD(554.03,2,0)="FACILITY^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(554.03,2,1,0)="^.1"
^DD(554.03,2,1,1,0)="554^AF^MUMPS"
^DD(554.03,2,1,1,1)="S:X'="""" ^PSX(554,""AF"",X,DA)="""""
^DD(554.03,2,1,1,2)="K ^PSX(554,""AF"",X,DA)"
^DD(554.03,2,1,1,"%D",0)="^^1^1^2950719^^"
^DD(554.03,2,1,1,"%D",1,0)="This cross reference lists the facilities that have outstanding Vendor Release Data mail messages."
^DD(554.03,2,1,1,"DT")="2950719"
^DD(554.03,2,3)="Answer must be 1-9 characters in length."
^DD(554.03,2,21,0)="^^1^1^2950719^"
^DD(554.03,2,21,1,0)="This is the facility number of the medical center."
^DD(554.03,2,"DT")="2950719"
^DD(554.03,3,0)="ACKNOWLEDGEMENT MESSAGE NUMBER^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(554.03,3,3)="Answer must be 1-20 characters in length."
^DD(554.03,3,21,0)="^^1^1^2950719^"
^DD(554.03,3,21,1,0)="This is the message number of the mail message containing the release data acknowledgement for the Vendor Release Data message."
^DD(554.03,3,"DT")="2950719"
^DD(554.03,4,0)="ACK MESSAGE DATE/TIME^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(554.03,4,21,0)="^^2^2^2950719^^"
^DD(554.03,4,21,1,0)="This is the date/time the Release Data Acknowledgement message was received."
^DD(554.03,4,21,2,0)="This date/time is the time that the message began filing."
^DD(554.03,4,"DT")="2950719"
^DD(554.03,5,0)="TOTAL RX'S^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(554.03,5,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(554.03,5,21,0)="^^1^1^2950719^"
^DD(554.03,5,21,1,0)="This is the number of Rx's in the Vendor Release Data mail message."
^DD(554.03,5,"DT")="2950719"
^DD(554.03,6,0)="COMPLETED DATE/TIME^D^^0;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(554.03,6,1,0)="^.1^^0"
^DD(554.03,6,21,0)="^^1^1^2950719^"
^DD(554.03,6,21,1,0)="This is the date/time the Release Data Acknowledgement completed filing."
^DD(554.03,6,"DT")="2950803"
^DD(554.03,"B","ACK MESSAGE DATE/TIME",4)=""
^DD(554.03,"B","ACKNOWLEDGEMENT MESSAGE NUMBER",3)=""
^DD(554.03,"B","COMPLETED DATE/TIME",6)=""
^DD(554.03,"B","FACILITY",2)=""
^DD(554.03,"B","MESSAGE NUMBER",1)=""
^DD(554.03,"B","RELEASE DATA",.01)=""
^DD(554.03,"B","TOTAL RX'S",5)=""
^DD(554.03,"GL",0,1,.01)=""
^DD(554.03,"GL",0,2,1)=""
^DD(554.03,"GL",0,3,2)=""
^DD(554.03,"GL",0,4,3)=""
^DD(554.03,"GL",0,5,4)=""
^DD(554.03,"GL",0,6,5)=""
^DD(554.03,"GL",0,7,6)=""
^DD(554.03,"IX",.01)=""
^DD(554.03,"IX",1)=""
^DD(554.03,"IX",2)=""
^DD(555,0)="FIELD^^4^5"
^DD(555,0,"DT")="2950825"
^DD(555,0,"IX","B",555,.01)=""
^DD(555,0,"IX","C",555,1)=""
^DD(555,0,"NM","CMOP MASTER DATABASE ARCHIVE")=""
^DD(555,0,"VR")="2.0"
^DD(555,0,"VRPK")="CMOPH"
^DD(555,.01,0)="TRANSMISSION REFERENCE^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(555,.01,1,0)="^.1"
^DD(555,.01,1,1,0)="555^B"
^DD(555,.01,1,1,1)="S ^PSXARC(""B"",$E(X,1,30),DA)="""""
^DD(555,.01,1,1,2)="K ^PSXARC(""B"",$E(X,1,30),DA)"
^DD(555,.01,3)="Answer must be 1-30 characters in length."
^DD(555,.01,21,0)="^^1^1^2950825^^^"
^DD(555,.01,21,1,0)="The unique number that identifies this CMOP data transmission."
^DD(555,.01,23,0)="^^1^1^2950825^^^"
^DD(555,.01,23,1,0)="Station number - transmission number."
^DD(555,.01,"DT")="2950714"
^DD(555,1,0)="ARCHIVE INDEX NUMBER^RNJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<290000)!(X?.E1"".""1N.N) X"
^DD(555,1,1,0)="^.1"
^DD(555,1,1,1,0)="555^C"
^DD(555,1,1,1,1)="S ^PSXARC(""C"",$E(X,1,30),DA)="""""
^DD(555,1,1,1,2)="K ^PSXARC(""C"",$E(X,1,30),DA)"
^DD(555,1,1,1,"DT")="2950717"
^DD(555,1,3)="Type a Number between 290000 and 9999999, 0 Decimal Digits"
^DD(555,1,23,0)="^^5^5^2950825^^"
^DD(555,1,23,1,0)="Archive tape # of the form yyymm# where"
^DD(555,1,23,2,0)="yyy = year in fileman format - 295"
^DD(555,1,23,3,0)="mmm = month - 01"
^DD(555,1,23,4,0)="#   = sequence number.  If more than one tape is needed then the sequence"
^DD(555,1,23,5,0)="      number would increment by 1."
^DD(555,1,"DT")="2950825"
^DD(555,2,0)="ARCHIVE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(555,2,21,0)="^^1^1^2950825^"
^DD(555,2,21,1,0)="The date the archive was performed."
^DD(555,2,23,0)="^^1^1^2950825^"
^DD(555,2,23,1,0)="Fileman date format."
^DD(555,2,"DT")="2950714"
^DD(555,3,0)="INITIATOR^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(555,3,3)="Answer must be 3-30 characters in length."
^DD(555,3,21,0)="^^1^1^2950825^^"
^DD(555,3,21,1,0)="The name of the user initiating the archive activity."
^DD(555,3,23,0)="^^1^1^2950825^"
^DD(555,3,23,1,0)="Free text name."
^DD(555,3,"DT")="2950714"
^DD(555,4,0)="PURGE^S^0:NO;1:YES;^0;5^Q"
^DD(555,4,21,0)="^^1^1^2950825^"
^DD(555,4,21,1,0)="Indicates whether the data for this entry has been purged."
^DD(555,4,23,0)="^^2^2^2950825^"
^DD(555,4,23,1,0)="0 or null indicates no purge has been performed."
^DD(555,4,23,2,0)="1 indicates the purge has been performed."
^DD(555,4,"DT")="2950714"
^DD(555,"B","ARCHIVE DATE",2)=""
^DD(555,"B","ARCHIVE INDEX NUMBER",1)=""
^DD(555,"B","INITIATOR",3)=""
^DD(555,"B","PURGE",4)=""
^DD(555,"B","TRANSMISSION REFERENCE",.01)=""
^DD(555,"GL",0,1,.01)=""
^DD(555,"GL",0,2,1)=""
^DD(555,"GL",0,3,2)=""
^DD(555,"GL",0,4,3)=""
^DD(555,"GL",0,5,4)=""
^DD(555,"IX",.01)=""
^DD(555,"IX",1)=""
^DD(555,"RQ",.01)=""
^DD(555,"RQ",1)=""
^DD(577,0)="FIELD^^1^9"
^DD(577,0,"DDA")="N"
^DD(577,0,"DT")="3040909"
^DD(577,0,"ID",.09)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VDEFHL7(579.6,+$P(^(0),U,9),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(579.6,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(577,0,"ID",1)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(577,0,"IX","B",577,.01)=""
^DD(577,0,"NM","VDEF EVENT DESCRIPTION")=""
^DD(577,0,"VR")="1.0"
^DD(577,0,"VRPK")="VDEF"
^DD(577,.01,0)="EVENT ID^RF^^0;1^K:$L(X)>13!($L(X)<12)!'(X?3A1""-""1A2N1""-""4A.1E) X"
^DD(577,.01,.1)="QUERY"
^DD(577,.01,1,0)="^.1"
^DD(577,.01,1,1,0)="577^B"
^DD(577,.01,1,1,1)="S ^VDEFHL7(577,""B"",$E(X,1,30),DA)="""""
^DD(577,.01,1,1,2)="K ^VDEFHL7(577,""B"",$E(X,1,30),DA)"
^DD(577,.01,3)="Answer must be 12-13 characters in length"
^DD(577,.01,21,0)="^.001^3^3^3040901^^"
^DD(577,.01,21,1,0)="The name of this VDEF Event. This MUST consist of the HL7 Message Type, "
^DD(577,.01,21,2,0)="HL7 Event Type and a VDEF subtype.  Valid examples are:"
^DD(577,.01,21,3,0)="ORU-R01-VTLS, RDS-O13-PPAR, ADT-A01-DEMG."
^DD(577,.01,"DT")="3040819"
^DD(577,.02,0)="EVENT TYPE^RP779.001'^HL(779.001,^0;2^Q"
^DD(577,.02,.1)="Event Type (such as A28 or R01)"
^DD(577,.02,3)="Event Type (such as A28 or R01)"
^DD(577,.02,21,0)="^^1^1^3030926^"
^DD(577,.02,21,1,0)="HL7 Event Type for this VDEF Event."
^DD(577,.02,"DT")="3030926"
^DD(577,.03,0)="EVENT SUBTYPE^RP577.4^VDEFHL7(577.4,^0;3^Q"
^DD(577,.03,.1)="Event Subtype"
^DD(577,.03,3)=""
^DD(577,.03,21,0)="^^1^1^3040825^"
^DD(577,.03,21,1,0)="The event sup-type associated with this event."
^DD(577,.03,"DT")="3040825"
^DD(577,.06,0)="MESSAGE TYPE^P771.2'^HL(771.2,^0;6^Q"
^DD(577,.06,3)="Enter message type (such as ADT or ORU) for this VDEF Event"
^DD(577,.06,21,0)="^^1^1^3030926^"
^DD(577,.06,21,1,0)="Message type for this HL7 Event, such as ADT or ORU"
^DD(577,.06,"DT")="3030926"
^DD(577,.07,0)="VISTA HL7 PROTOCOL^P101^ORD(101,^0;7^Q"
^DD(577,.07,3)="Enter protocol associated with this event"
^DD(577,.07,21,0)="^^3^3^3030926^"
^DD(577,.07,21,1,0)="Protocol for this HL7 event.  Protocols should be in VDEF <message type> "
^DD(577,.07,21,2,0)="<event type> <custodial package> VISTA SENDER format, e.g. VDEF ADT A28 "
^DD(577,.07,21,3,0)="DEMOGRAPHICS VISTA SENDER."
^DD(577,.07,"DT")="3030926"
^DD(577,.09,0)="CUSTODIAL PACKAGE^P579.6'^VDEFHL7(579.6,^0;9^Q"
^DD(577,.09,3)="Enter Custodial Package associated with this Event"
^DD(577,.09,21,0)="^^1^1^3030926^"
^DD(577,.09,21,1,0)="Custodial package for this event, such as REGISTRATION or LAB SERVICE"
^DD(577,.09,"DT")="3030926"
^DD(577,.2,0)="API EVENT ACTIVE FLAG^RS^A:ACTIVE;I:INACTIVE;^0;11^Q"
^DD(577,.2,3)="Enter ""A"" if event should be queued or ""I"" if not"
^DD(577,.2,"DT")="3040331"
^DD(577,.3,0)="EXTRACTION PROGRAM^RFX^^0;12^K:$L(X)>8!($L(X)<5) X D:$D(X) RTNVAL^VDEFEL"
^DD(577,.3,3)="Enter ""INACTIVE"" if not in use yet or name of VDEF data extraction program "
^DD(577,.3,21,0)="^^3^3^3040818^"
^DD(577,.3,21,1,0)="This field specifies the name of the program VDEF will use to extract the "
^DD(577,.3,21,2,0)="data from VistA files and construct the HL7 message.  If not in use yet, "
^DD(577,.3,21,3,0)="this field must be valued to ""INACTIVE""."
^DD(577,.3,"DT")="3040818"
^DD(577,1,0)="EVENT DESCRIPTION^RF^^1;1^K:$L(X)>60!($L(X)<6) X"
^DD(577,1,3)="Answer must be 6-60 characters in length"
^DD(577,1,21,0)="^.001^2^2^3040901^^"
^DD(577,1,21,1,0)="This should describe in non-HL7 terminology what the VDEF Event is used "
^DD(577,1,21,2,0)="for and what kind of message it will create."
^DD(577,1,"DT")="3040909"
^DD(577,"B","API EVENT ACTIVE FLAG",.2)=""
^DD(577,"B","CUSTODIAL PACKAGE",.09)=""
^DD(577,"B","EVENT DESCRIPTION",1)=""
^DD(577,"B","EVENT ID",.01)=""
^DD(577,"B","EVENT SUBTYPE",.03)=""
^DD(577,"B","EVENT TYPE",.02)=""
^DD(577,"B","EXTRACTION PROGRAM",.3)=""
^DD(577,"B","Event Subtype",.03)="1"
^DD(577,"B","MESSAGE TYPE",.06)=""
^DD(577,"B","QUERY",.01)="1"
^DD(577,"B","VISTA HL7 PROTOCOL",.07)=""
^DD(577,"GL",0,1,.01)=""
^DD(577,"GL",0,2,.02)=""
^DD(577,"GL",0,3,.03)=""
^DD(577,"GL",0,6,.06)=""
^DD(577,"GL",0,7,.07)=""
^DD(577,"GL",0,9,.09)=""
^DD(577,"GL",0,11,.2)=""
^DD(577,"GL",0,12,.3)=""
^DD(577,"GL",1,1,1)=""
^DD(577,"IX",.01)=""
^DD(577,"RQ",.01)=""
^DD(577,"RQ",.02)=""
^DD(577,"RQ",.03)=""
^DD(577,"RQ",.2)=""
^DD(577,"RQ",.3)=""
^DD(577,"RQ",1)=""
^DD(577.4,0)="FIELD^^.02^2"
^DD(577.4,0,"DDA")="N"
^DD(577.4,0,"DT")="3040824"
^DD(577.4,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(577.4,0,"IX","B",577.4,.01)=""
^DD(577.4,0,"NM","VDEF EVENT SUBTYPES")=""
^DD(577.4,0,"PT",577,.03)=""
^DD(577.4,0,"PT",579.31,.18)=""
^DD(577.4,0,"VR")="1.0"
^DD(577.4,0,"VRPK")="VDEF"
^DD(577.4,.01,0)="SUBTYPE^RF^^0;1^K:$L(X)>5!($L(X)<3)!'(X'?1P.E) X"
^DD(577.4,.01,1,0)="^.1"
^DD(577.4,.01,1,1,0)="577.4^B"
^DD(577.4,.01,1,1,1)="S ^VDEFHL7(577.4,""B"",$E(X,1,30),DA)="""""
^DD(577.4,.01,1,1,2)="K ^VDEFHL7(577.4,""B"",$E(X,1,30),DA)"
^DD(577.4,.01,3)="Answer must be 3-5 characters in length"
^DD(577.4,.01,21,0)="^^1^1^3040901^"
^DD(577.4,.01,21,1,0)="SUBTYPE corresponds to an application domain or subdomain.  "
^DD(577.4,.01,23,0)="^^2^2^3040824^"
^DD(577.4,.01,23,1,0)="This field is concatenated with HL7 message type and HL7 Event Type to "
^DD(577.4,.01,23,2,0)="form the ""VDEF EVENT""."
^DD(577.4,.01,"DT")="3040901"
^DD(577.4,.02,0)="EVENT DESCRIPTION^RF^^0;2^K:$L(X)>40!($L(X)<10) X"
^DD(577.4,.02,3)="Answer must be 10-40 characters in length"
^DD(577.4,.02,21,0)="^^2^2^3040824^"
^DD(577.4,.02,21,1,0)="This is a description of the application trigger event that this subtype "
^DD(577.4,.02,21,2,0)="is associated with."
^DD(577.4,.02,"DT")="3040824"
^DD(577.4,"B","EVENT DESCRIPTION",.02)=""
^DD(577.4,"B","SUBTYPE",.01)=""
^DD(577.4,"GL",0,1,.01)=""
^DD(577.4,"GL",0,2,.02)=""
^DD(577.4,"IX",.01)=""
^DD(577.4,"RQ",.01)=""
^DD(577.4,"RQ",.02)=""
^DD(579.1,0)="FIELD^^.05^5"
^DD(579.1,0,"DDA")="N"
^DD(579.1,0,"DT")="3040728"
^DD(579.1,0,"IX","B",579.1,.01)=""
^DD(579.1,0,"IX","C",579.1,.02)=""
^DD(579.1,0,"NM","VDEF REQUESTOR")=""
^DD(579.1,0,"PT",579.31,.06)=""
^DD(579.1,0,"VR")="1.0"
^DD(579.1,0,"VRPK")="VDEF"
^DD(579.1,.01,0)="REQUESTOR NAME^RFI^^0;1^K:$L(X)>40!($L(X)<6)!'(X'?1P.E) X"
^DD(579.1,.01,1,0)="^.1"
^DD(579.1,.01,1,1,0)="579.1^B"
^DD(579.1,.01,1,1,1)="S ^VDEFHL7(579.1,""B"",$E(X,1,30),DA)="""""
^DD(579.1,.01,1,1,2)="K ^VDEFHL7(579.1,""B"",$E(X,1,30),DA)"
^DD(579.1,.01,3)="Answer must be 6-40 characters in length."
^DD(579.1,.01,21,0)="^.001^7^7^3040728^^^"
^DD(579.1,.01,21,1,0)="Name of the source of the request, aka Requestor.  Set up by the VISTA "
^DD(579.1,.01,21,2,0)="HL7 IRM."
^DD(579.1,.01,21,3,0)=" "
^DD(579.1,.01,21,4,0)="Identifies the logical source of a class of requests for HL7 messages. "
^DD(579.1,.01,21,5,0)="For example, all solicited requests may be thought of as coming from one"
^DD(579.1,.01,21,6,0)="logical Requestor and all unsolicited requests would then fall under the"
^DD(579.1,.01,21,7,0)="other logical Requestor in the system."
^DD(579.1,.01,"DT")="3040728"
^DD(579.1,.02,0)="REQUESTOR DEFAULT FLAG^RS^Y:YES;N:NO;^0;2^Q"
^DD(579.1,.02,1,0)="^.1"
^DD(579.1,.02,1,1,0)="579.1^C"
^DD(579.1,.02,1,1,1)="S ^VDEFHL7(579.1,""C"",$E(X,1,30),DA)="""""
^DD(579.1,.02,1,1,2)="K ^VDEFHL7(579.1,""C"",$E(X,1,30),DA)"
^DD(579.1,.02,1,1,"%D",0)="^^3^3^3021219^"
^DD(579.1,.02,1,1,"%D",1,0)="Cross-reference of Requestor entries by their Default status. Will be used "
^DD(579.1,.02,1,1,"%D",2,0)="by the VDEF Queue Manager program to determine which queue to put a "
^DD(579.1,.02,1,1,"%D",3,0)="request on if no Requestor was explicitly passed in."
^DD(579.1,.02,1,1,"DT")="3021219"
^DD(579.1,.02,3)="Enter 'Y' for yes and 'N' for no."
^DD(579.1,.02,21,0)="^^4^4^3021219^"
^DD(579.1,.02,21,1,0)="YES/NO flag indicating whether this Requestor is the default one.  Set up "
^DD(579.1,.02,21,2,0)="by the VISTA HL7 IRM.  The VDEF Queue Manager will use this data element"
^DD(579.1,.02,21,3,0)="if no Requestor name is passed in to determine which Request Queue to put"
^DD(579.1,.02,21,4,0)="each request on."
^DD(579.1,.02,"DT")="3021219"
^DD(579.1,.03,0)="REQUESTOR DESTINATION^RP579.2'^VDEFHL7(579.2,^0;3^Q"
^DD(579.1,.03,21,0)="^^4^4^3021219^"
^DD(579.1,.03,21,1,0)="A pointer to an entry in File 579.2. Set up by the VISTA HL7 IRM.  The "
^DD(579.1,.03,21,2,0)="VDEF Request Processor program will use this data as the default"
^DD(579.1,.03,21,3,0)="Destination for this Requestor if no Destination is explicitly passed in"
^DD(579.1,.03,21,4,0)="or if the passed in Destination is invalid."
^DD(579.1,.03,"DT")="3030107"
^DD(579.1,.04,0)="REQUEST QUEUE^RP579.3'^VDEFHL7(579.3,^0;4^Q"
^DD(579.1,.04,3)="Pointer to the Request file (579.3)"
^DD(579.1,.04,21,0)="^^4^4^3030926^"
^DD(579.1,.04,21,1,0)="Default Request Queue for this requestor. Set up by the VISTA "
^DD(579.1,.04,21,2,0)="HL7 IRM. Will be used by the VDEF Queue Manager program to determine which"
^DD(579.1,.04,21,3,0)="Request Queue to add the request to if no priority is explicitly passed "
^DD(579.1,.04,21,4,0)="in. The data in this field is a pointer to the Request Queue file (579.3)."
^DD(579.1,.04,"DT")="3030926"
^DD(579.1,.05,0)="REQUESTOR ACTIVATION FLAG^RS^A:ACTIVE;I:INACTIVE;^0;5^Q"
^DD(579.1,.05,3)="Enter ""A"" for Active or ""I"" for Inactive."
^DD(579.1,.05,21,0)="^^5^5^3030623^"
^DD(579.1,.05,21,1,0)="HL7 ACTIVATION flag. Set up by the VISTA HL7 IRM to INACTIVE if no"
^DD(579.1,.05,21,2,0)="outbound  HL7 messages should be generated (for testing or any other"
^DD(579.1,.05,21,3,0)="reasons) and to ACTIVE if they should be generated. Used by the VDEF API"
^DD(579.1,.05,21,4,0)="program to determine whether to queue up or reject incoming requests for "
^DD(579.1,.05,21,5,0)="this Requestor."
^DD(579.1,.05,"DT")="3030919"
^DD(579.1,"B","REQUEST QUEUE",.04)=""
^DD(579.1,"B","REQUESTOR ACTIVATION FLAG",.05)=""
^DD(579.1,"B","REQUESTOR DEFAULT FLAG",.02)=""
^DD(579.1,"B","REQUESTOR DESTINATION",.03)=""
^DD(579.1,"B","REQUESTOR NAME",.01)=""
^DD(579.1,"GL",0,1,.01)=""
^DD(579.1,"GL",0,2,.02)=""
^DD(579.1,"GL",0,3,.03)=""
^DD(579.1,"GL",0,4,.04)=""
^DD(579.1,"GL",0,5,.05)=""
^DD(579.1,"IX",.01)=""
^DD(579.1,"IX",.02)=""
^DD(579.1,"RQ",.01)=""
^DD(579.1,"RQ",.02)=""
^DD(579.1,"RQ",.03)=""
^DD(579.1,"RQ",.04)=""
^DD(579.1,"RQ",.05)=""
^DD(579.2,0)="FIELD^^.02^2"
^DD(579.2,0,"DDA")="N"
^DD(579.2,0,"DT")="3040823"
^DD(579.2,0,"IX","B",579.2,.01)=""
^DD(579.2,0,"NM","VDEF DESTINATION")=""
^DD(579.2,0,"PT",579.1,.03)=""
^DD(579.2,0,"PT",579.31,.07)=""
^DD(579.2,0,"VR")="1.0"
^DD(579.2,0,"VRPK")="VDEF"
^DD(579.2,.01,0)="DESTINATION NAME^RF^^0;1^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(579.2,.01,1,0)="^.1"
^DD(579.2,.01,1,1,0)="579.2^B"
^DD(579.2,.01,1,1,1)="S ^VDEFHL7(579.2,""B"",$E(X,1,30),DA)="""""
^DD(579.2,.01,1,1,2)="K ^VDEFHL7(579.2,""B"",$E(X,1,30),DA)"
^DD(579.2,.01,3)="Answer must be 1-40 characters in length"
^DD(579.2,.01,21,0)="^^1^1^3021213^^"
^DD(579.2,.01,21,1,0)="Name of the Destination that HL7 messages will be sent to."
^DD(579.2,.01,"DT")="3021213"
^DD(579.2,.02,0)="DESTINATION TYPE^RS^V:VISTA HL7;^0;2^Q"
^DD(579.2,.02,3)="Enter 'V' for VISTA HL7."
^DD(579.2,.02,21,0)="^^4^4^3040823^"
^DD(579.2,.02,21,1,0)="Type of this Destination. Currently the only supported value is ""V"" for "
^DD(579.2,.02,21,2,0)="""VistA HL7"". The VDEF Request Processor program will use this"
^DD(579.2,.02,21,3,0)="information to determine where to send HL7 messages to the VISTA HL7  "
^DD(579.2,.02,21,4,0)="package using the Destination Protocol IEN."
^DD(579.2,.02,"DT")="3040823"
^DD(579.2,"B","DESTINATION NAME",.01)=""
^DD(579.2,"B","DESTINATION TYPE",.02)=""
^DD(579.2,"GL",0,1,.01)=""
^DD(579.2,"GL",0,2,.02)=""
^DD(579.2,"IX",.01)=""
^DD(579.2,"RQ",.01)=""
^DD(579.2,"RQ",.02)=""
^DD(579.3,0)="FIELD^^.11^10"
^DD(579.3,0,"DDA")="N"
^DD(579.3,0,"DT")="3041004"
^DD(579.3,0,"IX","B",579.3,.01)=""
^DD(579.3,0,"IX","C",579.31,.02)=""
^DD(579.3,0,"NM","VDEF REQUEST QUEUE")=""
^DD(579.3,0,"PT",579.1,.04)=""
^DD(579.3,0,"VR")="1.0"
^DD(579.3,0,"VRPK")="VDEF"
^DD(579.3,.01,0)="REQUEST QUEUE NAME^RF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(579.3,.01,1,0)="^.1"
^DD(579.3,.01,1,1,0)="579.3^B"
^DD(579.3,.01,1,1,1)="S ^VDEFHL7(579.3,""B"",$E(X,1,30),DA)="""""
^DD(579.3,.01,1,1,2)="K ^VDEFHL7(579.3,""B"",$E(X,1,30),DA)"
^DD(579.3,.01,3)="Answer must be 1-20 characters in length"
^DD(579.3,.01,21,0)="^^1^1^3030926^"
^DD(579.3,.01,21,1,0)="Name of this Request Queue that uniquely identifies it."
^DD(579.3,.01,23,0)="^^2^2^3030926^"
^DD(579.3,.01,23,1,0)="The name of a Request Processor task in TaskMan. It will process all"
^DD(579.3,.01,23,2,0)="requests in the Request Queue that it is responsible for."
^DD(579.3,.01,"DT")="3030926"
^DD(579.3,.02,0)="REQUEST QUEUE WAKEUP PERIOD^RFO^^0;2^S X=$$TIMEI^VDEFUTIL(X) I 'X K X"
^DD(579.3,.02,2)="S Y(0)=Y S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.3,.02,2.1)="S Y(0)=Y S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.3,.02,3)="Type a number between 1 and 999999999, 0 Decimal Digits"
^DD(579.3,.02,21,0)="^^2^2^3030926^"
^DD(579.3,.02,21,1,0)="Number of seconds in which this queue's Request Processor will resubmit "
^DD(579.3,.02,21,2,0)="itself for execution."
^DD(579.3,.02,"DT")="3030926"
^DD(579.3,.03,0)="LAST ENTRY CHECKED OUT^NJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(579.3,.03,3)="Type a number between 1 and 9999999999, 0 Decimal Digits"
^DD(579.3,.03,21,0)="^^1^1^3030926^"
^DD(579.3,.03,21,1,0)="IEN of the last Checked Out entry in sub-file 579.31."
^DD(579.3,.03,"DT")="3031024"
^DD(579.3,.04,0)="ARCHIVAL PARAMETER^RNJ10,0OX^^0;4^S X=$$TIMEI^VDEFUTIL(X) I 'X K X"
^DD(579.3,.04,2)="S Y(0)=Y S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.3,.04,2.1)="S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.3,.04,3)="Enter time in xxD yyH zzM wwS format"
^DD(579.3,.04,21,0)="^^3^3^3030402^"
^DD(579.3,.04,21,1,0)="The minimum number of seconds an already processed entry in a Request"
^DD(579.3,.04,21,2,0)="Queue will be kept in the Queue for archival purposes before it is purged"
^DD(579.3,.04,21,3,0)="by the VDEF Monitor process."
^DD(579.3,.04,"DT")="3030829"
^DD(579.3,.05,0)="CHECK-OUT TIME LIMIT^RNJ10,0OX^^0;5^S X=$$TIMEI^VDEFUTIL(X) I 'X K X"
^DD(579.3,.05,2)="S Y(0)=Y S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.3,.05,2.1)="S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.3,.05,3)="Enter time in xxD yyH zzM wwS format"
^DD(579.3,.05,21,0)="^^3^3^3021213^"
^DD(579.3,.05,21,1,0)="The maximum number of seconds that the oldest Checked Out entry in this "
^DD(579.3,.05,21,2,0)="queue can be Checked Out for before a MailMan message is sent to the"
^DD(579.3,.05,21,3,0)="VISTA HL7 IRM account or group."
^DD(579.3,.05,23,0)="^^2^2^3021213^"
^DD(579.3,.05,23,1,0)="The background process monitoring all Request Queues is a Scheduled "
^DD(579.3,.05,23,2,0)="Option in TaskMan and runs every 10 minutes."
^DD(579.3,.05,"DT")="3030829"
^DD(579.3,.06,0)="REQUEST QUEUE ENTRIES^579.31^^1;0"
^DD(579.3,.08,0)="FUTURE TASKMAN TASK NUMBER^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(579.3,.08,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(579.3,.08,21,0)="^.001^2^2^3030911^^"
^DD(579.3,.08,21,1,0)="Number of the TaskMan task that was last queued up to handle this Request"
^DD(579.3,.08,21,2,0)="Queue."
^DD(579.3,.08,"DT")="3030911"
^DD(579.3,.09,0)="SUSPENDED FLAG^RS^S:SUSPENDED;R:RUNNING;^0;9^Q"
^DD(579.3,.09,3)="Enter ""S"" for Suspended or ""R"" for Running"
^DD(579.3,.09,21,0)="^^9^9^3030926^"
^DD(579.3,.09,21,1,0)="Current status of this VDEF REquest Processor Queue. Turning the Queue "
^DD(579.3,.09,21,2,0)="off will result in VDEF HL7 message generation for the Queue being "
^DD(579.3,.09,21,3,0)="suspended until such time when the Queue is turned back on. NOTE: Turning "
^DD(579.3,.09,21,4,0)="off a Request Queue will not prevent VDEF from adding requests to it. "
^DD(579.3,.09,21,5,0)="Turning a VDEF Request Queue off for a prolonged period of time may "
^DD(579.3,.09,21,6,0)="result in a significant number of VDEF Requests accumulating in that "
^DD(579.3,.09,21,7,0)="Queue and causing disk space problems. If VDEF messaging is to be"
^DD(579.3,.09,21,8,0)="completely turned off for a Request Queue, the associated VDEF Requestor"
^DD(579.3,.09,21,9,0)="should be turned off via menu option VDEF (De)Activate Requestor."
^DD(579.3,.09,"DT")="3030926"
^DD(579.3,.1,0)="REQUEST PROCESS SCHEDULE^579.32^^2;0"
^DD(579.3,.1,21,0)="^^1^1^3040901^"
^DD(579.3,.1,21,1,0)="Define time periods when the Request Processor should not run"
^DD(579.3,.1,"DT")="3040901"
^DD(579.3,.11,0)="CURRENT TASKMAN TASK NUMBER^NJ12,0^^0;11^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(579.3,.11,3)="Type a number between 1 and 999999999999, 0 Decimal Digits"
^DD(579.3,.11,21,0)="^^1^1^3030926^"
^DD(579.3,.11,21,1,0)="Taskman number of the currently running Request Processor task."
^DD(579.3,.11,"DT")="3030926"
^DD(579.3,"B","ARCHIVAL PARAMETER",.04)=""
^DD(579.3,"B","CHECK-OUT TIME LIMIT",.05)=""
^DD(579.3,"B","CURRENT TASKMAN TASK NUMBER",.11)=""
^DD(579.3,"B","FUTURE TASKMAN TASK NUMBER",.08)=""
^DD(579.3,"B","LAST ENTRY CHECKED OUT",.03)=""
^DD(579.3,"B","REQUEST PROCESS SCHEDULE",.1)=""
^DD(579.3,"B","REQUEST QUEUE ENTRIES",.06)=""
^DD(579.3,"B","REQUEST QUEUE NAME",.01)=""
^DD(579.3,"B","REQUEST QUEUE WAKEUP PERIOD",.02)=""
^DD(579.3,"B","SUSPENDED FLAG",.09)=""
^DD(579.3,"GL",0,1,.01)=""
^DD(579.3,"GL",0,2,.02)=""
^DD(579.3,"GL",0,3,.03)=""
^DD(579.3,"GL",0,4,.04)=""
^DD(579.3,"GL",0,5,.05)=""
^DD(579.3,"GL",0,8,.08)=""
^DD(579.3,"GL",0,9,.09)=""
^DD(579.3,"GL",0,11,.11)=""
^DD(579.3,"GL",1,0,.06)=""
^DD(579.3,"GL",2,0,.1)=""
^DD(579.3,"IX",.01)=""
^DD(579.3,"RQ",.01)=""
^DD(579.3,"RQ",.02)=""
^DD(579.3,"RQ",.04)=""
^DD(579.3,"RQ",.05)=""
^DD(579.3,"RQ",.09)=""
^DD(579.3,"SB",579.31,.06)=""
^DD(579.3,"SB",579.32,.1)=""
^DD(579.31,0)="REQUEST QUEUE ENTRIES SUB-FIELD^^.19^15"
^DD(579.31,0,"DT")="3041004"
^DD(579.31,0,"IX","B",579.31,.01)=""
^DD(579.31,0,"NM","REQUEST QUEUE ENTRIES")=""
^DD(579.31,0,"UP")="579.3"
^DD(579.31,.01,0)="REQUEST ENTRY NUMBER^NJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1.N) X S:$D(X) DINUM=X"
^DD(579.31,.01,1,0)="^.1^^0"
^DD(579.31,.01,1,1,0)="579.31^B"
^DD(579.31,.01,1,1,1)="S ^VDEFHL7(579.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(579.31,.01,1,1,2)="K ^VDEFHL7(579.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(579.31,.01,3)="Type a number between 1 and 9999999999, 0 Decimal Digits"
^DD(579.31,.01,21,0)="^.001^1^1^3031024^^^"
^DD(579.31,.01,21,1,0)="IEN of this entry in the queue."
^DD(579.31,.01,"DT")="3030107"
^DD(579.31,.02,0)="REQUEST ENTRY STATUS^S^C:CHECKED OUT;P:PROCESSED;Q:QUEUED;E:ERRORED OUT;^0;2^Q"
^DD(579.31,.02,1,0)="^.1"
^DD(579.31,.02,1,1,0)="579.3^C"
^DD(579.31,.02,1,1,1)="S ^VDEFHL7(579.3,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(579.31,.02,1,1,2)="K ^VDEFHL7(579.3,""C"",$E(X,1,30),DA(1),DA)"
^DD(579.31,.02,1,1,"DT")="3021219"
^DD(579.31,.02,3)="Enter ""C""hecked Out or ""P""rocessed or ""Q""ueued or ""E""rrored Out."
^DD(579.31,.02,21,0)="^^9^9^3041004^"
^DD(579.31,.02,21,1,0)="Status of this entry in the queue: ""Q"" for Queued Up, ""C"" for Checked "
^DD(579.31,.02,21,2,0)="Out, ""P"" for Processed, ""E"" for Errored out."
^DD(579.31,.02,21,3,0)=" "
^DD(579.31,.02,21,4,0)="Created by the VDEF API when the entry is Queued Up, updated"
^DD(579.31,.02,21,5,0)="by the Request Processor when the entry is Checked Out and"
^DD(579.31,.02,21,6,0)="when it is Processed. This sub-file will be cross-referenced by this"
^DD(579.31,.02,21,7,0)="field. The cross-reference will be used by the VDEF Monitor to find the"
^DD(579.31,.02,21,8,0)="oldest entry checked out and then purge all entries in this Request Queue "
^DD(579.31,.02,21,9,0)="that are older than specified by the Archival Parameter."
^DD(579.31,.02,"DT")="3041004"
^DD(579.31,.03,0)="MESSAGE TYPE^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(579.31,.03,3)="Answer must be 1-40 characters in length"
^DD(579.31,.03,21,0)="^^2^2^3030926^"
^DD(579.31,.03,21,1,0)="Message Type for this Request Entry. Created by the VDEF API based on the"
^DD(579.31,.03,21,2,0)="value passed to it by the calling program."
^DD(579.31,.03,"DT")="3030926"
^DD(579.31,.04,0)="EVENT TYPE^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(579.31,.04,3)="Answer must be 1-40 characters in length"
^DD(579.31,.04,21,0)="^^2^2^3030926^"
^DD(579.31,.04,21,1,0)="Event Type for this Request Entry. Created by the VDEF API based on the"
^DD(579.31,.04,21,2,0)="value passed to it by the calling program."
^DD(579.31,.04,"DT")="3030926"
^DD(579.31,.05,0)="NAME VALUE PAIRS MULTIPLE^579.311^^.05;0"
^DD(579.31,.05,"DT")="3021213"
^DD(579.31,.06,0)="REQUESTOR^P579.1'^VDEFHL7(579.1,^0;6^Q"
^DD(579.31,.06,3)="Answer must be 1-40 characters in length"
^DD(579.31,.06,21,0)="^^3^3^3030926^"
^DD(579.31,.06,21,1,0)="Requestor IEN for this Request Entry. Created by the VDEF API based on the"
^DD(579.31,.06,21,2,0)="value passed to it by the calling program. The data in this field is a"
^DD(579.31,.06,21,3,0)="pointer to a Requestor record in file 579.1."
^DD(579.31,.06,"DT")="3030926"
^DD(579.31,.07,0)="DESTINATION POINTER^P579.2'^VDEFHL7(579.2,^0;7^Q"
^DD(579.31,.07,3)="Answer must be 1-40 characters in length"
^DD(579.31,.07,21,0)="^^3^3^3030926^"
^DD(579.31,.07,21,1,0)="Destination for this Request Entry. Created by the VDEF API based on the"
^DD(579.31,.07,21,2,0)="value passed to it by the calling program. The data stored in this field"
^DD(579.31,.07,21,3,0)="is a pointer to a Destination record in file 579.2."
^DD(579.31,.07,"DT")="3030926"
^DD(579.31,.08,0)="DTS ADDED^D^^0;8^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(579.31,.08,3)="(No range limit on date)"
^DD(579.31,.08,21,0)="^^2^2^3030926^"
^DD(579.31,.08,21,1,0)="Date/time stamp when this entry was added to the Request Queue. Created by"
^DD(579.31,.08,21,2,0)="the VDEF API when it creates an entry for this request."
^DD(579.31,.08,"DT")="3031110"
^DD(579.31,.09,0)="DTS CHECKED OUT^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(579.31,.09,3)="(No range limit on date)"
^DD(579.31,.09,21,0)="^^2^2^3021219^"
^DD(579.31,.09,21,1,0)="Date/time stamp when this entry was checked out for processing.  Created "
^DD(579.31,.09,21,2,0)="by the VDEF Request Processor when it starts processing this request."
^DD(579.31,.09,"DT")="3031110"
^DD(579.31,.1,0)="DTS LAST HL7 MESSAGE GENERATED^D^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(579.31,.1,3)="(No range limit on date)"
^DD(579.31,.1,21,0)="^^3^3^3021213^"
^DD(579.31,.1,21,1,0)="Date/time stamp when the last (most recent) HL7 message for this request "
^DD(579.31,.1,21,2,0)="was generated. Created or updated by the Request Processor every time it "
^DD(579.31,.1,21,3,0)="finishes processing an HL7 message for this Request Entry."
^DD(579.31,.1,"DT")="3031110"
^DD(579.31,.13,0)="DTS PROCESSED^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(579.31,.13,3)="(No range limit on date)"
^DD(579.31,.13,21,0)="^^3^3^3030926^"
^DD(579.31,.13,21,1,0)="Date/time stamp when the processing for this entry was completed.  "
^DD(579.31,.13,21,2,0)="Created by the Request Processor once it has finished processing this "
^DD(579.31,.13,21,3,0)="Request Entry."
^DD(579.31,.13,"DT")="3031110"
^DD(579.31,.15,0)="DTS VISTA HL7 MANAGER NOTIFIED^D^^0;15^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(579.31,.15,3)="(No range limit on date)"
^DD(579.31,.15,21,0)="^^2^2^3030926^"
^DD(579.31,.15,21,1,0)="Date/time stamp when the IRM was notified that this Request is potentialy "
^DD(579.31,.15,21,2,0)="stuck since it has been in Checked Out state too long."
^DD(579.31,.15,"DT")="3031110"
^DD(579.31,.17,0)="ERROR TEXT^F^^ERRMSG;1^K:$L(X)>80!($L(X)<1) X"
^DD(579.31,.17,3)="Answer must be 1-80 characters in length."
^DD(579.31,.17,21,0)="^.001^1^1^3041207^^^"
^DD(579.31,.17,21,1,0)="VDEF processing error message text"
^DD(579.31,.17,"DT")="3040920"
^DD(579.31,.18,0)="VDEF EVENT^P577.4^VDEFHL7(577.4,^0;18^Q"
^DD(579.31,.18,3)="Pointer to VDEF Event Subtype file 577.4"
^DD(579.31,.18,21,0)="^^1^1^3040901^"
^DD(579.31,.18,21,1,0)="Pointer to File 577.4, VDEF Event Subtype file."
^DD(579.31,.18,"DT")="3040901"
^DD(579.31,.19,0)="DYNAMIC ADDRESSING^579.313A^^.19;0"
^DD(579.31,"B","DESTINATION POINTER",.07)=""
^DD(579.31,"B","DTS ADDED",.08)=""
^DD(579.31,"B","DTS CHECKED OUT",.09)=""
^DD(579.31,"B","DTS LAST HL7 MESSAGE GENERATED",.1)=""
^DD(579.31,"B","DTS PROCESSED",.13)=""
^DD(579.31,"B","DTS VISTA HL7 MANAGER NOTIFIED",.15)=""
^DD(579.31,"B","DYNAMIC ADDRESSING",.19)=""
^DD(579.31,"B","ERROR TEXT",.17)=""
^DD(579.31,"B","EVENT TYPE",.04)=""
^DD(579.31,"B","MESSAGE TYPE",.03)=""
^DD(579.31,"B","NAME VALUE PAIRS MULTIPLE",.05)=""
^DD(579.31,"B","REQUEST ENTRY NUMBER",.01)=""
^DD(579.31,"B","REQUEST ENTRY STATUS",.02)=""
^DD(579.31,"B","REQUESTOR",.06)=""
^DD(579.31,"B","VDEF EVENT",.18)=""
^DD(579.31,"GL",0,1,.01)=""
^DD(579.31,"GL",0,2,.02)=""
^DD(579.31,"GL",0,3,.03)=""
^DD(579.31,"GL",0,4,.04)=""
^DD(579.31,"GL",0,6,.06)=""
^DD(579.31,"GL",0,7,.07)=""
^DD(579.31,"GL",0,8,.08)=""
^DD(579.31,"GL",0,9,.09)=""
^DD(579.31,"GL",0,10,.1)=""
^DD(579.31,"GL",0,13,.13)=""
^DD(579.31,"GL",0,15,.15)=""
^DD(579.31,"GL",0,18,.18)=""
^DD(579.31,"GL",.05,0,.05)=""
^DD(579.31,"GL",.19,0,.19)=""
^DD(579.31,"GL","ERRMSG",1,.17)=""
^DD(579.31,"IX",.01)=""
^DD(579.31,"IX",.02)=""
^DD(579.31,"SB",579.311,.05)=""
^DD(579.31,"SB",579.313,.19)=""
^DD(579.311,0)="NAME VALUE PAIRS MULTIPLE SUB-FIELD^^.02^2"
^DD(579.311,0,"DT")="3021213"
^DD(579.311,0,"IX","B",579.311,.01)=""
^DD(579.311,0,"NM","NAME VALUE PAIRS MULTIPLE")=""
^DD(579.311,0,"UP")="579.31"
^DD(579.311,.01,0)="NAME VALUE PAIR NUMBER^RNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X S:$D(X) DINUM=X"
^DD(579.311,.01,1,0)="^.1^^0"
^DD(579.311,.01,1,1,0)="579.311^B"
^DD(579.311,.01,1,1,1)="S ^VDEFHL7(579.3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(579.311,.01,1,1,2)="K ^VDEFHL7(579.3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(579.311,.01,3)="Type a number between 1 and 999, 0 Decimal Digits"
^DD(579.311,.01,21,0)="^^1^1^3021213^^^"
^DD(579.311,.01,21,1,0)="IEN of this Name Value pair within the request."
^DD(579.311,.01,"DT")="3021218"
^DD(579.311,.02,0)="NAME VALUE PAIR DATA^F^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(579.311,.02,3)="Answer must be 1-200 characters in length"
^DD(579.311,.02,21,0)="^^5^5^3030926^"
^DD(579.311,.02,21,1,0)="A single Name-Value pair for a Request Entry. Created by the VDEF Queue "
^DD(579.311,.02,21,2,0)="API based on the values passed to it by the calling program.  The VDEF API"
^DD(579.311,.02,21,3,0)="performs no validation of the Name Value pair format or validity except"
^DD(579.311,.02,21,4,0)="for stripping the ""^""s when populating this field. Validation will be"
^DD(579.311,.02,21,5,0)="performed by the VDEF Request Processor."
^DD(579.311,.02,"DT")="3030926"
^DD(579.311,"B","NAME VALUE PAIR DATA",.02)=""
^DD(579.311,"B","NAME VALUE PAIR NUMBER",.01)=""
^DD(579.311,"GL",0,1,.01)=""
^DD(579.311,"GL",0,2,.02)=""
^DD(579.311,"IX",.01)=""
^DD(579.311,"RQ",.01)=""
^DD(579.313,0)="DYNAMIC ADDRESSING SUB-FIELD^^.02^2"
^DD(579.313,0,"DT")="3031014"
^DD(579.313,0,"NM","DYNAMIC ADDRESSING")=""
^DD(579.313,0,"UP")="579.31"
^DD(579.313,.01,0)="DYNAMIC ADDRESSING COUNT^NJ6,0^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(579.313,.01,1,0)="^.1^^0"
^DD(579.313,.01,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(579.313,.01,21,0)="^^2^2^3031014^"
^DD(579.313,.01,21,1,0)="List of VistA HL7 Protocols passed to VDEF for this request. Will be "
^DD(579.313,.01,21,2,0)="passed on to the VistA HL7 package when calling GENERATE^HLMA."
^DD(579.313,.01,"DT")="3031015"
^DD(579.313,.02,0)="DESTINATION DATA^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(579.313,.02,3)="Answer must be 1-200 characters in length"
^DD(579.313,.02,"DT")="3031014"
^DD(579.313,"B","DESTINATION DATA",.02)=""
^DD(579.313,"B","DYNAMIC ADDRESSING COUNT",.01)=""
^DD(579.313,"GL",0,1,.01)=""
^DD(579.313,"GL",1,"E1,200",.02)=""
^DD(579.32,0)="REQUEST PROCESS SCHEDULE SUB-FIELD^^.05^5"
^DD(579.32,0,"DT")="3040901"
^DD(579.32,0,"IX","B",579.32,.01)=""
^DD(579.32,0,"NM","REQUEST PROCESS SCHEDULE")=""
^DD(579.32,0,"UP")="579.3"
^DD(579.32,.01,0)="RULE^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(579.32,.01,1,0)="^.1"
^DD(579.32,.01,1,1,0)="579.32^B"
^DD(579.32,.01,1,1,1)="S ^VDEFHL7(579.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(579.32,.01,1,1,2)="K ^VDEFHL7(579.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(579.32,.01,3)="Answer must be 1-30 characters in length."
^DD(579.32,.01,21,0)="^^1^1^3040901^"
^DD(579.32,.01,21,1,0)="The name of the rule."
^DD(579.32,.01,"DT")="3040901"
^DD(579.32,.02,0)="DAY OF THE WEEK^S^1:Sunday;2:Monday;3:Tuesday;4:Wednesday;5:Thursday;6:Friday;7:Saturday;^0;2^Q"
^DD(579.32,.02,3)="Enter a number for the day of the week (1=Sunday, 2=Monday)"
^DD(579.32,.02,21,0)="^^1^1^3030827^"
^DD(579.32,.02,21,1,0)="Number corresponding to the day of the week"
^DD(579.32,.02,"DT")="3031009"
^DD(579.32,.03,0)="FORCED STATUS^S^R:RUNNING;S:STOPPED;^0;3^Q"
^DD(579.32,.03,3)="Enter the status that should be forced during this period"
^DD(579.32,.03,"DT")="3040901"
^DD(579.32,.04,0)="FROM TIME^RF^^0;4^K:'$$TIMECK^VDEFQM(X) X"
^DD(579.32,.04,3)="Enter time in HH:MM format (military format, not AM or PM)"
^DD(579.32,.04,"DT")="3030918"
^DD(579.32,.05,0)="TO TIME^RF^^0;5^K:'$$TIMECK^VDEFQM(X) X"
^DD(579.32,.05,3)="Enter time in HH:MM format (military format, not AM or PM)"
^DD(579.32,.05,"DT")="3030918"
^DD(579.32,"B","DAY OF THE WEEK",.02)=""
^DD(579.32,"B","FORCED STATUS",.03)=""
^DD(579.32,"B","FROM TIME",.04)=""
^DD(579.32,"B","RULE",.01)=""
^DD(579.32,"B","TO TIME",.05)=""
^DD(579.32,"GL",0,1,.01)=""
^DD(579.32,"GL",0,2,.02)=""
^DD(579.32,"GL",0,3,.03)=""
^DD(579.32,"GL",0,4,.04)=""
^DD(579.32,"GL",0,5,.05)=""
^DD(579.32,"IX",.01)=""
^DD(579.32,"RQ",.04)=""
^DD(579.32,"RQ",.05)=""
^DD(579.5,0)="FIELD^^.06^3"
^DD(579.5,0,"DDA")="N"
^DD(579.5,0,"DT")="3040817"
^DD(579.5,0,"IX","B",579.5,.01)=""
^DD(579.5,0,"NM","VDEF PARAMETERS")=""
^DD(579.5,0,"VR")="1.0"
^DD(579.5,0,"VRPK")="VDEF"
^DD(579.5,.01,0)="VDEF SYSTEM^RP8989.3'^XTV(8989.3,^0;1^Q"
^DD(579.5,.01,1,0)="^.1"
^DD(579.5,.01,1,1,0)="579.5^B"
^DD(579.5,.01,1,1,1)="S ^VDEFHL7(579.5,""B"",$E(X,1,30),DA)="""""
^DD(579.5,.01,1,1,2)="K ^VDEFHL7(579.5,""B"",$E(X,1,30),DA)"
^DD(579.5,.01,3)=""
^DD(579.5,.01,21,0)="^^1^1^3040817^"
^DD(579.5,.01,21,1,0)="Identifies the VistA System on which VDEF is running."
^DD(579.5,.01,"DT")="3040817"
^DD(579.5,.02,0)="VDEF MONITOR DELAY^RNJ10,0OX^^0;2^S X=$$TIMEI^VDEFUTIL(X) I 'X K X"
^DD(579.5,.02,2)="S Y(0)=Y S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.5,.02,2.1)="S Y=$$TIMEE^VDEFUTIL(Y)"
^DD(579.5,.02,3)="Enter time in xxD yyH zzM wwS format"
^DD(579.5,.02,21,0)="^^1^1^3030926^"
^DD(579.5,.02,21,1,0)="How often the VDEF Monitor process runs."
^DD(579.5,.02,"DT")="3030926"
^DD(579.5,.06,0)="TASKMAN TASK NUMBER^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(579.5,.06,3)="Type a number between 0 and 999999999, 0 Decimal Digits"
^DD(579.5,.06,21,0)="^^1^1^3030926^"
^DD(579.5,.06,21,1,0)="The task number of the VDEF Monitor process."
^DD(579.5,.06,"DT")="3030926"
^DD(579.5,"B","TASKMAN TASK NUMBER",.06)=""
^DD(579.5,"B","VDEF MONITOR DELAY",.02)=""
^DD(579.5,"B","VDEF SYSTEM",.01)=""
^DD(579.5,"GL",0,1,.01)=""
^DD(579.5,"GL",0,2,.02)=""
^DD(579.5,"GL",0,6,.06)=""
^DD(579.5,"IX",.01)=""
^DD(579.5,"RQ",.01)=""
^DD(579.5,"RQ",.02)=""
^DD(579.6,0)="FIELD^^.02^2"
^DD(579.6,0,"DDA")="N"
^DD(579.6,0,"DT")="3040820"
^DD(579.6,0,"IX","B",579.6,.01)=""
^DD(579.6,0,"NM","VDEF CUSTODIAL PACKAGE")=""
^DD(579.6,0,"PT",577,.09)=""
^DD(579.6,0,"VR")="1.0"
^DD(579.6,0,"VRPK")="VDEF"
^DD(579.6,.01,0)="CUSTODIAL PACKAGE^RP9.4'^DIC(9.4,^0;1^Q"
^DD(579.6,.01,1,0)="^.1"
^DD(579.6,.01,1,1,0)="579.6^B"
^DD(579.6,.01,1,1,1)="S ^VDEFHL7(579.6,""B"",$E(X,1,30),DA)="""""
^DD(579.6,.01,1,1,2)="K ^VDEFHL7(579.6,""B"",$E(X,1,30),DA)"
^DD(579.6,.01,3)="Enter package associated with this custodial package"
^DD(579.6,.01,21,0)="^^2^2^3040820^"
^DD(579.6,.01,21,1,0)="Package (entry in file PACKAGE #9.4) associated with this custodial "
^DD(579.6,.01,21,2,0)="package."
^DD(579.6,.01,"DT")="3040820"
^DD(579.6,.02,0)="ACTIVATION STATUS^RS^A:ACTIVE;I:INACTIVE;^0;2^Q"
^DD(579.6,.02,1,0)="^.1^^0"
^DD(579.6,.02,3)="Sending messages for this package is ""A""ctive or ""I""nactive"
^DD(579.6,.02,21,0)="^^2^2^3040820^"
^DD(579.6,.02,21,1,0)="Whether VDEF messaging is currently Active or Inactive for this custodial "
^DD(579.6,.02,21,2,0)="package."
^DD(579.6,.02,"DT")="3040820"
^DD(579.6,"B","ACTIVATION STATUS",.02)=""
^DD(579.6,"B","CUSTODIAL PACKAGE",.01)=""
^DD(579.6,"GL",0,1,.01)=""
^DD(579.6,"GL",0,2,.02)=""
^DD(579.6,"IX",.01)=""
^DD(579.6,"RQ",.01)=""
^DD(579.6,"RQ",.02)=""
^DD(600.7,0)="FIELD^^1^2"
^DD(600.7,0,"DDA")="N"
^DD(600.7,0,"DIK")="YSXRAA"
^DD(600.7,0,"DIKOLD")="YSXRAA"
^DD(600.7,0,"IX","AA",600.71,3)=""
^DD(600.7,0,"IX","AD",600.71,3)=""
^DD(600.7,0,"IX","B",600.7,.01)=""
^DD(600.7,0,"NM","CRISIS NOTE DISPLAY")=""
^DD(600.7,0,"VR")="5.01"
^DD(600.7,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(600.7,.01,1,0)="^.1^^-1"
^DD(600.7,.01,1,1,0)="600.7^B"
^DD(600.7,.01,1,1,1)="S ^YSG(""CNT"",""B"",$E(X,1,30),DA)="""""
^DD(600.7,.01,1,1,2)="K ^YSG(""CNT"",""B"",$E(X,1,30),DA)"
^DD(600.7,.01,3)=""
^DD(600.7,.01,21,0)="^^2^2^2930322^^^"
^DD(600.7,.01,21,1,0)="This is the date the crisis note was created or displayed, normally will"
^DD(600.7,.01,21,2,0)="be the current date."
^DD(600.7,.01,"DT")="2880713"
^DD(600.7,1,0)="DATE/TIME OF ACCESS^600.71DA^^1;0"
^DD(600.7,1,21,0)="^^2^2^2930322^^"
^DD(600.7,1,21,1,0)="Date and Time that the specific USER viewed the specific PATIENT's"
^DD(600.7,1,21,2,0)="Crisis Note or Message."
^DD(600.7,"B","DATE",.01)=""
^DD(600.7,"B","DATE/TIME OF ACCESS",1)=""
^DD(600.7,"GL",0,1,.01)=""
^DD(600.7,"GL",1,0,1)=""
^DD(600.7,"IX",.01)=""
^DD(600.7,"RQ",.01)=""
^DD(600.7,"SB",600.71,1)=""
^DD(600.71,0)="DATE/TIME OF ACCESS SUB-FIELD^^3^4"
^DD(600.71,0,"DIK")="YSXRAA"
^DD(600.71,0,"NM","DATE/TIME OF ACCESS")=""
^DD(600.71,0,"UP")="600.7"
^DD(600.71,.01,0)="DATE/TIME OF ACCESS^RDX^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(600.71,.01,21,0)="^^2^2^2930322^"
^DD(600.71,.01,21,1,0)="Date and Time specific USER viewed specific PATIENT's Crisis Note or"
^DD(600.71,.01,21,2,0)="Message."
^DD(600.71,1,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(600.71,1,21,0)="^^1^1^2930322^"
^DD(600.71,1,21,1,0)="Pointer to Patient File #2, automtically updated."
^DD(600.71,2,0)="TYPE^RS^CN:CRISIS NOTE;MS:MESSAGE;SC:SET NEW CRISIS NOTE;SM:SET NEW MESSAGE;^0;3^Q"
^DD(600.71,2,21,0)="^^1^1^2930322^"
^DD(600.71,2,21,1,0)="Set of codes representing type of viewed note."
^DD(600.71,2,"DT")="2880714"
^DD(600.71,3,0)="USER^RP200'^VA(200,^0;4^Q"
^DD(600.71,3,1,0)="^.1"
^DD(600.71,3,1,1,0)="600.7^AA^MUMPS"
^DD(600.71,3,1,1,1)="N YSG7 S YSG7=^YSG(""CNT"",DA(1),1,DA,0) S:$P(YSG7,U,3)'?1""S"".E ^YSG(""CNT"",""AA"",$P(YSG7,U,2),$P(YSG7,U,3),X,9999999-$P(YSG7,U),DA)="""""
^DD(600.71,3,1,1,2)="N YSG7 S YSG7=^YSG(""CNT"",DA(1),1,DA,0) K ^YSG(""CNT"",""AA"",$P(YSG7,U,2),$P(YSG7,U,3),X,9999999-$P(YSG7,U),DA)"
^DD(600.71,3,1,2,0)="600.7^AD^MUMPS"
^DD(600.71,3,1,2,1)="N YSG7 S YSG7=^YSG(""CNT"",DA(1),1,DA,0) S:$P(YSG7,U,3)?1""S"".E ^YSG(""CNT"",""AD"",$P(YSG7,U,2),$P(YSG7,U,3),9999999-$P(YSG7,U),X,DA)="""""
^DD(600.71,3,1,2,2)="N YSG7 S YSG7=^YSG(""CNT"",DA(1),1,DA,0) K ^YSG(""CNT"",""AD"",$P(YSG7,U,2),$P(YSG7,U,3),9999999-$P(YSG7,U),X,DA)"
^DD(600.71,3,21,0)="^^1^1^2930322^"
^DD(600.71,3,21,1,0)="Pointer to the NEW PERSON File #200, automatically updated."
^DD(600.71,3,"DT")="2880714"
^DD(600.71,"B","DATE/TIME OF ACCESS",.01)=""
^DD(600.71,"B","PATIENT",1)=""
^DD(600.71,"B","TYPE",2)=""
^DD(600.71,"B","USER",3)=""
^DD(600.71,"GL",0,1,.01)=""
^DD(600.71,"GL",0,2,1)=""
^DD(600.71,"GL",0,3,2)=""
^DD(600.71,"GL",0,4,3)=""
^DD(600.71,"IX",3)=""
^DD(600.71,"RQ",.01)=""
^DD(600.71,"RQ",1)=""
^DD(600.71,"RQ",2)=""
^DD(600.71,"RQ",3)=""
^DD(601,0)="FIELD^^38^38"
^DD(601,0,"DDA")="N"
^DD(601,0,"DIK")="YSXRAB"
^DD(601,0,"DIKOLD")="YSXRAB"
^DD(601,0,"DT")="2921202"
^DD(601,0,"IX","AE",601,21)=""
^DD(601,0,"IX","AI",601,20)=""
^DD(601,0,"IX","ATN",601,20)=""
^DD(601,0,"IX","B",601,.01)=""
^DD(601,0,"NM","MH INSTRUMENT")=""
^DD(601,0,"PT",601.21,.01)=""
^DD(601,0,"PT",601.41,.01)=""
^DD(601,0,"PT",601.41,9)=""
^DD(601,0,"PT",601.6,.01)=""
^DD(601,0,"PT",801.43,.02)=""
^DD(601,0,"PT",810.31,.04)=""
^DD(601,0,"PT",810.32,.01)=""
^DD(601,0,"VR")="5.01"
^DD(601,.01,0)="INSTRUMENT^F^^0;1^K:$L(X)>5!($L(X)<3)!'(X'?1P.E) X"
^DD(601,.01,1,0)="^.1"
^DD(601,.01,1,1,0)="601^B"
^DD(601,.01,1,1,1)="S ^YTT(601,""B"",$E(X,1,30),DA)="""""
^DD(601,.01,1,1,2)="K ^YTT(601,""B"",$E(X,1,30),DA)"
^DD(601,.01,3)="ANSWER MUST BE 3-5 CHARACTERS IN LENGTH"
^DD(601,.01,21,0)="^^1^1^2930405^^"
^DD(601,.01,21,1,0)="Three to five character instrument CODE or name."
^DD(601,.01,"DT")="2870310"
^DD(601,1,0)="ITEM NUMBER^601.02^^Q;0"
^DD(601,1,21,0)="^^1^1^2930406^^^^"
^DD(601,1,21,1,0)="This is a multiple valued field with subfields."
^DD(601,2,0)="TEST ENTRY MODE^S^I:INTERACTIVE ONLY;^0;2^Q"
^DD(601,2,21,0)="^^2^2^2930406^"
^DD(601,2,21,1,0)="This field will be set to ""I"" only if the instrument should be"
^DD(601,2,21,2,0)="administered 'Interactively'."
^DD(601,2,"DT")="2870708"
^DD(601,3,0)="TEST CLERICAL ENTRY NUMBER^NJ4,0^^0;3^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 1000"
^DD(601,3,21,0)="^^1^1^2930406^^"
^DD(601,3,21,1,0)="This is the number of items on the clerical (paper form)."
^DD(601,3,"DT")="2860819"
^DD(601,4,0)="TEST CLERICAL ENTRY STRING^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(601,4,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(601,4,21,0)="^^2^2^2930406^"
^DD(601,4,21,1,0)="This a string of valid entry option on the clerical (paper form)."
^DD(601,4,21,2,0)="Such as '012345' or 'ABCDE '."
^DD(601,4,"DT")="2860819"
^DD(601,5,0)="TEST UNIT PRICE^NJ6,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<.01) X"
^DD(601,5,3)="Type a Dollar Amount between .01 and 100, 2 Decimal Digits"
^DD(601,5,21,0)="^^2^2^2930406^"
^DD(601,5,21,1,0)="This is the dollar amount (price) for administering the test/interview."
^DD(601,5,21,2,0)="This is the price per single test/interview."
^DD(601,5,"DT")="2881202"
^DD(601,6,0)="ADMINISTRATION CODE^FX^^A;E1,240^K:$L(X)>240!($L(X)<1) X I $D(X),X]"""" D ^DIM I '$D(X) W *7,""  INVALID MUMPS STATEMENT"""
^DD(601,6,3)="Answer must be 1-240 characters in length."
^DD(601,6,21,0)="^^2^2^2930406^"
^DD(601,6,21,1,0)="This is the MUMPS code used to administer the instrument.  Such as:"
^DD(601,6,21,2,0)="D ^YTDRIV"
^DD(601,6,"DT")="2921202"
^DD(601,7,0)="REPORT CODE^F^^R;E1,240^K:$L(X)>240!($L(X)<1) X I $D(X),X]"""" D ^DIM I '$D(X) W *7,""  INVALID MUMPS STATEMENT"""
^DD(601,7,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601,7,21,0)="^^2^2^2930406^"
^DD(601,7,21,1,0)="This is the MUMPS code used to report the instrument's results."
^DD(601,7,21,2,0)="Such as: D ^YTMMPI"
^DD(601,7,"DT")="2880819"
^DD(601,8,0)="CLERK TEST TRANSFORMATION CODE^F^^T;E1,240^K:$L(X)>240!($L(X)<1) X I $D(X),X]"""" D ^DIM I '$D(X) W *7,""  INVALID MUMPS STATEMENT"""
^DD(601,8,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601,8,21,0)="^^2^2^2930406^"
^DD(601,8,21,1,0)="This is MUMPS code used to select or convert clerk entered input and"
^DD(601,8,21,2,0)="alter order of items.  This is used by the developer only."
^DD(601,8,"DT")="2880819"
^DD(601,9,0)="TEST COPYRIGHT HOLDER^P601.3'^YTT(601.3,^0;6^Q"
^DD(601,9,3)=""
^DD(601,9,21,0)="^^3^3^2930406^"
^DD(601,9,21,1,0)="This is the name of the copyright holder, usually a shortened code"
^DD(601,9,21,2,0)="representing the copyright name.  Stored is the pointer value, pointing"
^DD(601,9,21,3,0)="to the COPYRIGHT HOLDER file #601.3."
^DD(601,9,"DT")="2870109"
^DD(601,10,0)="TEST COPYRIGHT DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(601,10,21,0)="^^2^2^2930406^"
^DD(601,10,21,1,0)="This is the date of the specific copyright.  Useful for identifing"
^DD(601,10,21,2,0)="versions of the instrument."
^DD(601,10,"DT")="2860819"
^DD(601,11,0)="TEST TYPE^S^V:VOCATIONAL;^0;8^Q"
^DD(601,11,21,0)="^^2^2^2930406^"
^DD(601,11,21,1,0)="If the test is 'VOCATIONAL' in nature and use, this field will be"
^DD(601,11,21,2,0)="set to ""V"", otherwise it will be blank."
^DD(601,11,"DT")="2861210"
^DD(601,13,0)="PRINT TITLE^F^^P;1^K:$L(X)>79!($L(X)<1) X"
^DD(601,13,3)="ANSWER MUST BE 1-79 CHARACTERS IN LENGTH"
^DD(601,13,21,0)="^^2^2^2930406^"
^DD(601,13,21,1,0)="This is the instrument displayed and printed title.  It is the"
^DD(601,13,21,2,0)="complete name of the instrument."
^DD(601,13,"DT")="2860808"
^DD(601,14,0)="TEST MAX SCALE LENGTH^NJ2,0^^P;2^K:+X'=X!(X>79)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601,14,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 79"
^DD(601,14,21,0)="^^1^1^2930406^"
^DD(601,14,21,1,0)="This is the numeric maximum lenght of the scale."
^DD(601,14,"DT")="2860808"
^DD(601,15,0)="TEST SCALE TYPE^F^^P;3^K:$L(X)>4!($L(X)<1) X"
^DD(601,15,3)="ANSWER MUST BE 1-4 CHARACTERS IN LENGTH"
^DD(601,15,21,0)="^^2^2^2930406^"
^DD(601,15,21,1,0)="This is the scale type, a 1 to 4 character identification.  Such as:"
^DD(601,15,21,2,0)="' RAW', '   T', and 'STEN'."
^DD(601,15,"DT")="2860808"
^DD(601,16,0)="TEST SCALE NUMBER^601.01AI^^S;0"
^DD(601,16,21,0)="^^1^1^2930406^^^^"
^DD(601,16,21,1,0)="This is a multiple valued field with subfields."
^DD(601,17,0)="GENERAL REPORT TEXT NO.^601.06A^^G;0"
^DD(601,17,21,0)="^^1^1^2930412^^"
^DD(601,17,21,1,0)="This is a multiple valued field with subfields."
^DD(601,18,0)="MALE REPORT TEXT NUMBER^601.08A^^M;0"
^DD(601,18,21,0)="^^1^1^2930412^"
^DD(601,18,21,1,0)="This is a multiple valued field with subfields."
^DD(601,19,0)="FEMALE REPORT TEXT NUMBER^601.1A^^F;0"
^DD(601,19,21,0)="^^1^1^2930412^^"
^DD(601,19,21,1,0)="This is a multiple valued field with subfields."
^DD(601,20,0)="INSTRUMENT TYPE^S^I:INTERVIEW;T:TEST;B:BATTERY;U:UTILITY;^0;9^Q"
^DD(601,20,1,0)="^.1"
^DD(601,20,1,1,0)="601^AI"
^DD(601,20,1,1,1)="S ^YTT(601,""AI"",$E(X,1,30),DA)="""""
^DD(601,20,1,1,2)="K ^YTT(601,""AI"",$E(X,1,30),DA)"
^DD(601,20,1,2,0)="601^ATN^MUMPS"
^DD(601,20,1,2,1)="S ^YTT(601,""ATN"",X,$P(^YTT(601,DA,0),U,1),DA)="""""
^DD(601,20,1,2,2)="K ^YTT(601,""ATN"",X,$P(^YTT(601,DA,0),U,1),DA)"
^DD(601,20,21,0)="^^2^2^2930412^"
^DD(601,20,21,1,0)="This is a SET of CODES: ""I"" for Interview, ""T"" for Test, ""B"" for "
^DD(601,20,21,2,0)="Battery of tests (Group of tests) and ""U"" for Utility (such as DEMO)."
^DD(601,20,"DT")="2880808"
^DD(601,21,0)="EXEMPT TEST^S^Y:YES;^0;10^Q"
^DD(601,21,1,0)="^.1"
^DD(601,21,1,1,0)="601^AE"
^DD(601,21,1,1,1)="S ^YTT(601,""AE"",$E(X,1,30),DA)="""""
^DD(601,21,1,1,2)="K ^YTT(601,""AE"",$E(X,1,30),DA)"
^DD(601,21,21,0)="^^3^3^2930412^"
^DD(601,21,21,1,0)="This field, if SET to ""Y"", indicates that the test is EXEMPT from APA "
^DD(601,21,21,2,0)="guidlines for training.  All Mental Health professionals have access "
^DD(601,21,21,3,0)="to exempt tests."
^DD(601,21,"DT")="2870708"
^DD(601,22,0)="NUMBER OF ITEMS^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601,22,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(601,22,21,0)="^^1^1^2930412^"
^DD(601,22,21,1,0)="This is the number of questions."
^DD(601,22,"DT")="2870102"
^DD(601,23,0)="NUMBER OF TEST SCALES^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601,23,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(601,23,21,0)="^^2^2^2930412^"
^DD(601,23,21,1,0)="This is the number of scales used to report patient evaluations for"
^DD(601,23,21,2,0)="the specific instrument."
^DD(601,23,"DT")="2870102"
^DD(601,24,0)="TEST AUTHORS^F^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(601,24,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601,24,21,0)="^^1^1^2930412^"
^DD(601,24,21,1,0)="This is the name of the instrument's AUTHOR."
^DD(601,24,"DT")="2870102"
^DD(601,25,0)="TEST PUBLISHER^F^^2;1^K:$L(X)>240!($L(X)<1) X"
^DD(601,25,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601,25,21,0)="^^1^1^2930412^"
^DD(601,25,21,1,0)="This is the name of the PUBLISHER."
^DD(601,26,0)="TEST FORM^F^^3;1^K:$L(X)>240!($L(X)<1) X"
^DD(601,26,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601,26,21,0)="^^2^2^2930412^"
^DD(601,26,21,1,0)="This is the name of the TEST FORM for the instrument administered."
^DD(601,26,21,2,0)="For example: ""1987 Revision"", ""R"", ""FIRO-B"" or ""SHORT FORM 370 QUESTIONS""."
^DD(601,26,"DT")="2870102"
^DD(601,27,0)="TEST NORMS DESCRIPTION^601.12^^6;0"
^DD(601,27,21,0)="^^4^4^2930412^"
^DD(601,27,21,1,0)="This is a word processing field which describes the TEST NORMS."
^DD(601,27,21,2,0)="For example: ""Tentative norms based upon a sample of 85 college men "
^DD(601,27,21,3,0)="and 88 college woman."" or ""No norms provided.  Average score is probably "
^DD(601,27,21,4,0)="near 4.5""."
^DD(601,28,0)="TEST USES^601.13^^7;0"
^DD(601,28,21,0)="^^1^1^2930412^"
^DD(601,28,21,1,0)="This is a word processing field that describes the USES of the test."
^DD(601,29,0)="TEST REPORT DESCRIPTION^601.14^^8;0"
^DD(601,29,21,0)="^^2^2^2930412^"
^DD(601,29,21,1,0)="This is a word processing field which describes the reports that"
^DD(601,29,21,2,0)="can be derived from the testing instrument."
^DD(601,30,0)="INTERVIEW SOURCE^601.15^^4;0"
^DD(601,30,21,0)="^^2^2^2930412^"
^DD(601,30,21,1,0)="This is the SOURCE from which the INTERVIEW was derived.  For Example:"
^DD(601,30,21,2,0)="""Based upon the Duke University interview developed by Hugh Angle."""
^DD(601,31,0)="INTERVIEW DESCRIPTION^601.16^^5;0"
^DD(601,31,21,0)="^^3^3^2930412^"
^DD(601,31,21,1,0)="This is a word processing field which describes the INTERVIEW."
^DD(601,31,21,2,0)="For example: ""A relatively comprehensive history aimed at the alcoholic "
^DD(601,31,21,3,0)="or problem drinker."""
^DD(601,32,0)="OPERATIONAL^S^N:NO;^0;13^Q"
^DD(601,32,.1)=""
^DD(601,32,21,0)="1^^4^4^2941031^^"
^DD(601,32,21,1,0)="   "
^DD(601,32,21,2,0)="This field when SET to ""N"" indicates that the instrument is NOT "
^DD(601,32,21,3,0)="operational.  This allows the instrument to remain in the data base"
^DD(601,32,21,4,0)="but can NOT be USED."
^DD(601,32,"DT")="2870708"
^DD(601,33,0)="SPECIAL ADMIN CODE^FX^^C;E1,240^K:$L(X)>240!($L(X)<1) X I $D(X),X]"""" D ^DIM I '$D(X) W *7,""  INVALID MUMPS STATEMENT"""
^DD(601,33,3)="Answer must be 1-240 characters in length."
^DD(601,33,21,0)="^^2^2^2930412^"
^DD(601,33,21,1,0)="This is executeable MUMPS code which helps or directs the administration"
^DD(601,33,21,2,0)="of the instrument."
^DD(601,33,"DT")="2921130"
^DD(601,34,0)="FORM NAME^F^^P;4^K:$L(X)>30!($L(X)<1) X"
^DD(601,34,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(601,34,21,0)="^^2^2^2930412^^"
^DD(601,34,21,1,0)="This is the name of the CLERICAL form for the instrument, such as"
^DD(601,34,21,2,0)="""AUI-R"" or ""Revised""."
^DD(601,34,"DT")="2870305"
^DD(601,35,0)="LICENSE STATUS^S^N:NONE;^0;14^Q"
^DD(601,35,21,0)="^^2^2^2930412^^"
^DD(601,35,21,1,0)="This field, if SET to ""N"", indicates that NO LICENSE agreement exists "
^DD(601,35,21,2,0)="for the instrument."
^DD(601,35,"DT")="2870320"
^DD(601,36,0)="FORM NUMBER^F^^P;5^K:$L(X)>15!($L(X)<1) X"
^DD(601,36,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(601,36,21,0)="^^2^2^2930412^"
^DD(601,36,21,1,0)="This a the FORM NUMBER for the CLERICAL form of the instrument, such as"
^DD(601,36,21,2,0)="form number ""A"" or form number ""1987""."
^DD(601,36,"DT")="2870404"
^DD(601,37,0)="EXEMPT BY^P200'^VA(200,^0;15^Q"
^DD(601,37,21,0)="^^2^2^2921130^^"
^DD(601,37,21,1,0)="Name of person flagging the instrument as 'Yes' in the 'EXEMPT TEST'"
^DD(601,37,21,2,0)="field."
^DD(601,37,"DT")="2921103"
^DD(601,38,0)="DAY LIMIT FOR RESTART^NJ3,0^^0;16^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601,38,3)="Type a Number between 1 and 365, that will reflect the maximum number of days that may elapse after which this instrument CANNOT be restarted, zero decimal digits."
^DD(601,38,21,0)="^^8^8^2911227^^"
^DD(601,38,21,1,0)="This field will reflect the value for the maximum number of days that"
^DD(601,38,21,2,0)="may elapse between an interuption of this instrument and the restart of this "
^DD(601,38,21,3,0)="instrument.  This value, in days, will be used for this instrument ONLY and"
^DD(601,38,21,4,0)="override the value in the Mental Health Site file."
^DD(601,38,21,5,0)=" "
^DD(601,38,21,6,0)="Note that in both fields the day limit is inclusive, so that as long as"
^DD(601,38,21,7,0)="the elapsed days do not exceed this value then the instrument may be "
^DD(601,38,21,8,0)="restarted."
^DD(601,38,"DT")="2911227"
^DD(601,"B","ADMINISTRATION CODE",6)=""
^DD(601,"B","CLERK TEST TRANSFORMATION CODE",8)=""
^DD(601,"B","DAY LIMIT FOR RESTART",38)=""
^DD(601,"B","EXEMPT BY",37)=""
^DD(601,"B","EXEMPT TEST",21)=""
^DD(601,"B","FEMALE REPORT TEXT NUMBER",19)=""
^DD(601,"B","FORM NAME",34)=""
^DD(601,"B","FORM NUMBER",36)=""
^DD(601,"B","GENERAL REPORT TEXT NO.",17)=""
^DD(601,"B","INSTRUMENT",.01)=""
^DD(601,"B","INSTRUMENT TYPE",20)=""
^DD(601,"B","INTERVIEW DESCRIPTION",31)=""
^DD(601,"B","INTERVIEW SOURCE",30)=""
^DD(601,"B","ITEM NUMBER",1)=""
^DD(601,"B","LICENSE STATUS",35)=""
^DD(601,"B","MALE REPORT TEXT NUMBER",18)=""
^DD(601,"B","NUMBER OF ITEMS",22)=""
^DD(601,"B","NUMBER OF TEST SCALES",23)=""
^DD(601,"B","OPERATIONAL",32)=""
^DD(601,"B","PRINT TITLE",13)=""
^DD(601,"B","REPORT CODE",7)=""
^DD(601,"B","SPECIAL ADMIN CODE",33)=""
^DD(601,"B","TEST AUTHORS",24)=""
^DD(601,"B","TEST CLERICAL ENTRY NUMBER",3)=""
^DD(601,"B","TEST CLERICAL ENTRY STRING",4)=""
^DD(601,"B","TEST COPYRIGHT DATE",10)=""
^DD(601,"B","TEST COPYRIGHT HOLDER",9)=""
^DD(601,"B","TEST ENTRY MODE",2)=""
^DD(601,"B","TEST FORM",26)=""
^DD(601,"B","TEST MAX SCALE LENGTH",14)=""
^DD(601,"B","TEST NORMS DESCRIPTION",27)=""
^DD(601,"B","TEST PUBLISHER",25)=""
^DD(601,"B","TEST REPORT DESCRIPTION",29)=""
^DD(601,"B","TEST SCALE NUMBER",16)=""
^DD(601,"B","TEST SCALE TYPE",15)=""
^DD(601,"B","TEST TYPE",11)=""
^DD(601,"B","TEST UNIT PRICE",5)=""
^DD(601,"B","TEST USES",28)=""
^DD(601,"GL",0,1,.01)=""
^DD(601,"GL",0,2,2)=""
^DD(601,"GL",0,3,3)=""
^DD(601,"GL",0,4,4)=""
^DD(601,"GL",0,5,5)=""
^DD(601,"GL",0,6,9)=""
^DD(601,"GL",0,7,10)=""
^DD(601,"GL",0,8,11)=""
^DD(601,"GL",0,9,20)=""
^DD(601,"GL",0,10,21)=""
^DD(601,"GL",0,11,22)=""
^DD(601,"GL",0,12,23)=""
^DD(601,"GL",0,13,32)=""
^DD(601,"GL",0,14,35)=""
^DD(601,"GL",0,15,37)=""
^DD(601,"GL",0,16,38)=""
^DD(601,"GL",1,1,24)=""
^DD(601,"GL",2,1,25)=""
^DD(601,"GL",3,1,26)=""
^DD(601,"GL",4,0,30)=""
^DD(601,"GL",5,0,31)=""
^DD(601,"GL",6,0,27)=""
^DD(601,"GL",7,0,28)=""
^DD(601,"GL",8,0,29)=""
^DD(601,"GL","A","E1,240",6)=""
^DD(601,"GL","C","E1,240",33)=""
^DD(601,"GL","F",0,19)=""
^DD(601,"GL","G",0,17)=""
^DD(601,"GL","M",0,18)=""
^DD(601,"GL","P",1,13)=""
^DD(601,"GL","P",2,14)=""
^DD(601,"GL","P",3,15)=""
^DD(601,"GL","P",4,34)=""
^DD(601,"GL","P",5,36)=""
^DD(601,"GL","Q",0,1)=""
^DD(601,"GL","R","E1,240",7)=""
^DD(601,"GL","S",0,16)=""
^DD(601,"GL","T","E1,240",8)=""
^DD(601,"IX",.01)=""
^DD(601,"IX",20)=""
^DD(601,"IX",21)=""
^DD(601,"SB",601.01,16)=""
^DD(601,"SB",601.02,1)=""
^DD(601,"SB",601.06,17)=""
^DD(601,"SB",601.08,18)=""
^DD(601,"SB",601.1,19)=""
^DD(601,"SB",601.12,27)=""
^DD(601,"SB",601.13,28)=""
^DD(601,"SB",601.14,29)=""
^DD(601,"SB",601.15,30)=""
^DD(601,"SB",601.16,31)=""
^DD(601.01,0)="TEST SCALE NUMBER SUB-FIELD^^11^9"
^DD(601.01,0,"DIK")="YSXRAB"
^DD(601.01,0,"ID",.5)="W ""   "",$P(^(0),U,2)"
^DD(601.01,0,"IX","B",601.01,.01)=""
^DD(601.01,0,"IX","C",601.01,.5)=""
^DD(601.01,0,"NM","TEST SCALE NUMBER")=""
^DD(601.01,0,"UP")="601"
^DD(601.01,.01,0)="SCALE NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>500)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.01,.01,1,0)="^.1"
^DD(601.01,.01,1,1,0)="601.01^B"
^DD(601.01,.01,1,1,1)="S ^YTT(601,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(601.01,.01,1,1,2)="K ^YTT(601,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(601.01,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 500"
^DD(601.01,.01,21,0)="^^2^2^2930406^"
^DD(601.01,.01,21,1,0)="This the number of the scale.  The scales are sequentially numbered"
^DD(601.01,.01,21,2,0)="1 to the 'n'th."
^DD(601.01,.01,"DT")="2881013"
^DD(601.01,.5,0)="SCALE NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>79!($L(X)<1) X"
^DD(601.01,.5,1,0)="^.1"
^DD(601.01,.5,1,1,0)="601.01^C^MUMPS"
^DD(601.01,.5,1,1,1)="N X1 S X1=$O(^DD(""FUNC"",""B"",""STRIPBLANKS"",0)) X ^DD(""FUNC"",X1,1) S ^YTT(601,DA(1),""S"",""C"",X,DA)="""""
^DD(601.01,.5,1,1,2)="N X1 S X1=$O(^DD(""FUNC"",""B"",""STRIPBLANKS"",0)) X ^DD(""FUNC"",X1,1) S ^YTT(601,DA(1),""S"",""C"",X,DA)="""""
^DD(601.01,.5,3)="ANSWER MUST BE 1-79 CHARACTERS IN LENGTH"
^DD(601.01,.5,21,0)="^^2^2^2930406^^"
^DD(601.01,.5,21,1,0)="This is the name of the scale, it is unique for each instrument."
^DD(601.01,.5,21,2,0)="Examples are: 'VENTURESOME' or 'TENDER-MINDED'."
^DD(601.01,.5,"DT")="2881013"
^DD(601.01,5,0)="MALE LOOKUP TABLE^F^^M;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(601.01,5,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601.01,5,21,0)="^^3^3^2930406^^"
^DD(601.01,5,21,1,0)="This is a table of MALE lookup values, unique for each instrument."
^DD(601.01,5,21,2,0)="This table is created by the author of the instrument and can NOT"
^DD(601.01,5,21,3,0)="be altered."
^DD(601.01,5,"DT")="2880819"
^DD(601.01,6,0)="FEMALE LOOKUP TABLE^F^^F;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(601.01,6,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601.01,6,21,0)="^^3^3^2930406^"
^DD(601.01,6,21,1,0)="This is a table of FEMALE lookup values, unique for each instrument."
^DD(601.01,6,21,2,0)="This table is created by the author of the instrument and can NOT be"
^DD(601.01,6,21,3,0)="altered."
^DD(601.01,6,"DT")="2880819"
^DD(601.01,7,0)="KEY^601.04A^^K;0"
^DD(601.01,7,21,0)="^^3^3^2930406^^"
^DD(601.01,7,21,1,0)="This is a string of item numbers and choices used in score the "
^DD(601.01,7,21,2,0)="instrument.  This is built by the author and may NOT be altered by"
^DD(601.01,7,21,3,0)="the user."
^DD(601.01,8,0)="MALE SUBTABLE^F^^MS;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(601.01,8,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601.01,8,21,0)="^^2^2^2930406^"
^DD(601.01,8,21,1,0)="This is the MALE sub-lookup table, created by the author of the "
^DD(601.01,8,21,2,0)="instrument and should NOT be altered by the user."
^DD(601.01,8,"DT")="2880819"
^DD(601.01,9,0)="FEMALE SUBTABLE^F^^FS;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(601.01,9,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601.01,9,21,0)="^^2^2^2930406^"
^DD(601.01,9,21,1,0)="This is the FEMALE sub-lookup table, created by the author of the "
^DD(601.01,9,21,2,0)="instrument and should NOT be altered by the user."
^DD(601.01,9,"DT")="2880819"
^DD(601.01,10,0)="MALE SUBKEY^F^^MK;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(601.01,10,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601.01,10,21,0)="^^2^2^2930406^"
^DD(601.01,10,21,1,0)="This is the MALE sub-key string, created by the author of the "
^DD(601.01,10,21,2,0)="instrument, it should NOT be altered by the user."
^DD(601.01,10,"DT")="2880819"
^DD(601.01,11,0)="FEMALE SUBKEY^F^^FK;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(601.01,11,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601.01,11,21,0)="^^2^2^2930406^"
^DD(601.01,11,21,1,0)="This is the FEMALE sub-key, it is created by the author of the"
^DD(601.01,11,21,2,0)="instrument, it should NOT be altered by the user."
^DD(601.01,11,"DT")="2880819"
^DD(601.01,"B","FEMALE LOOKUP TABLE",6)=""
^DD(601.01,"B","FEMALE SUBKEY",11)=""
^DD(601.01,"B","FEMALE SUBTABLE",9)=""
^DD(601.01,"B","KEY",7)=""
^DD(601.01,"B","MALE LOOKUP TABLE",5)=""
^DD(601.01,"B","MALE SUBKEY",10)=""
^DD(601.01,"B","MALE SUBTABLE",8)=""
^DD(601.01,"B","SCALE NAME",.5)=""
^DD(601.01,"B","SCALE NUMBER",.01)=""
^DD(601.01,"GL",0,1,.01)=""
^DD(601.01,"GL",0,2,.5)=""
^DD(601.01,"GL","F","E1,245",6)=""
^DD(601.01,"GL","FK","E1,245",11)=""
^DD(601.01,"GL","FS","E1,245",9)=""
^DD(601.01,"GL","K",0,7)=""
^DD(601.01,"GL","M","E1,245",5)=""
^DD(601.01,"GL","MK","E1,245",10)=""
^DD(601.01,"GL","MS","E1,245",8)=""
^DD(601.01,"IX",.01)=""
^DD(601.01,"IX",.5)=""
^DD(601.01,"SB",601.04,7)=""
^DD(601.02,0)="ITEM NUMBER SUB-FIELD^^7^8"
^DD(601.02,0,"NM","ITEM NUMBER")=""
^DD(601.02,0,"UP")="601"
^DD(601.02,.01,0)="ITEM NUMBER^MRNJ4,0X^^0;1^S DINUM=X K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.02,.01,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(601.02,.01,21,0)="^^1^1^2930406^^^"
^DD(601.02,.01,21,1,0)="Sequential number, test or interview number, 'n'th item number."
^DD(601.02,.01,"DT")="2880901"
^DD(601.02,1,0)="VALID RESPONSE SET^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(601.02,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(601.02,1,21,0)="^^1^1^2930406^^^"
^DD(601.02,1,21,1,0)="Valid response set, such as ABCX or 123X or TFX."
^DD(601.02,1,"DT")="2860815"
^DD(601.02,2,0)="TEXT^601.03^^T;0"
^DD(601.02,2,21,0)="^^2^2^2930406^^^"
^DD(601.02,2,21,1,0)="This is the text of the questions, question and list of selectable"
^DD(601.02,2,21,2,0)="responses."
^DD(601.02,3,0)="INTRODUCTION^601.05^^I;0"
^DD(601.02,3,21,0)="^^3^3^2930406^^"
^DD(601.02,3,21,1,0)="This is introductory text and/or instructional text displayed at the"
^DD(601.02,3,21,2,0)="start of a test or interview and at points during the administering"
^DD(601.02,3,21,3,0)="of the instrument."
^DD(601.02,4,0)="RESPONSE PROMPT^F^^B;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(601.02,4,3)="ANSWER MUST BE 1-240 CHARACTERS IN LENGTH"
^DD(601.02,4,21,0)="^^2^2^2930406^^"
^DD(601.02,4,21,1,0)="This is the PROMPT displayed after the item question and selectable"
^DD(601.02,4,21,2,0)="choices.  For example: ""ANSWER = ""."
^DD(601.02,4,"DT")="2880819"
^DD(601.02,5,0)="INTERVIEW ITEM TYPE^F^^1;1^K:$L(X)>5!($L(X)<1) X"
^DD(601.02,5,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(601.02,5,21,0)="^^2^2^2930406^^"
^DD(601.02,5,21,1,0)="This is the code representing the type of interview.  This field"
^DD(601.02,5,21,2,0)="is set by the developer."
^DD(601.02,5,"DT")="2861211"
^DD(601.02,6,0)="INTERVIEW BRANCHING LOGIC^F^^1;2^K:$L(X)>244!($L(X)<1) X"
^DD(601.02,6,3)="ANSWER MUST BE 1-244 CHARACTERS IN LENGTH"
^DD(601.02,6,21,0)="^^2^2^2930406^"
^DD(601.02,6,21,1,0)="For interview type instruments this is MUMPS code that gives the"
^DD(601.02,6,21,2,0)="condition for branching and the branch to item number."
^DD(601.02,6,"DT")="2861211"
^DD(601.02,7,0)="CLERK VALID RESPONSE SET^F^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(601.02,7,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(601.02,7,21,0)="^^3^3^2930406^"
^DD(601.02,7,21,1,0)="This is the set of valid responses allowed to to entered by way of"
^DD(601.02,7,21,2,0)="'Clerk Entry'.  This will be present only if different from the "
^DD(601.02,7,21,3,0)="'Valid Responses Set' field."
^DD(601.02,7,"DT")="2870623"
^DD(601.02,"B","CLERK VALID RESPONSE SET",7)=""
^DD(601.02,"B","INTERVIEW BRANCHING LOGIC",6)=""
^DD(601.02,"B","INTERVIEW ITEM TYPE",5)=""
^DD(601.02,"B","INTRODUCTION",3)=""
^DD(601.02,"B","ITEM NUMBER",.01)=""
^DD(601.02,"B","RESPONSE PROMPT",4)=""
^DD(601.02,"B","TEXT",2)=""
^DD(601.02,"B","VALID RESPONSE SET",1)=""
^DD(601.02,"GL",0,1,.01)=""
^DD(601.02,"GL",0,2,1)=""
^DD(601.02,"GL",0,3,7)=""
^DD(601.02,"GL",1,1,5)=""
^DD(601.02,"GL",1,2,6)=""
^DD(601.02,"GL","B","E1,240",4)=""
^DD(601.02,"GL","I",0,3)=""
^DD(601.02,"GL","T",0,2)=""
^DD(601.02,"RQ",.01)=""
^DD(601.02,"SB",601.03,2)=""
^DD(601.02,"SB",601.05,3)=""
^DD(601.03,0)="TEXT SUB-FIELD^^.01^1"
^DD(601.03,0,"NM","TEXT")=""
^DD(601.03,0,"UP")="601.02"
^DD(601.03,.01,0)="TEXT^WL^^0;1^Q"
^DD(601.03,.01,"DT")="2860815"
^DD(601.03,"B","TEXT",.01)=""
^DD(601.03,"GL",0,1,.01)=""
^DD(601.04,0)="KEY SUB-FIELD^^.01^1"
^DD(601.04,0,"NM","KEY")=""
^DD(601.04,0,"UP")="601.01"
^DD(601.04,.01,0)="KEY^WL^^0;1^Q"
^DD(601.04,.01,1,0)="^.1^^0"
^DD(601.04,.01,3)=""
^DD(601.04,.01,21,0)="^^1^1^2930406^"
^DD(601.04,.01,21,1,0)="This is the KEY string."
^DD(601.04,.01,"DT")="2860814"
^DD(601.04,"B","KEY",.01)=""
^DD(601.04,"GL",0,1,.01)=""
^DD(601.05,0)="INTRODUCTION SUB-FIELD^^.01^1"
^DD(601.05,0,"NM","INTRODUCTION")=""
^DD(601.05,0,"UP")="601.02"
^DD(601.05,.01,0)="INTRODUCTION^WL^^0;1^Q"
^DD(601.05,.01,21,0)="^^2^2^2930406^^"
^DD(601.05,.01,21,1,0)="Explanatory text, displayed at different points while taking the "
^DD(601.05,.01,21,2,0)="test/interview."
^DD(601.05,.01,"DT")="2860815"
^DD(601.05,"B","INTRODUCTION",.01)=""
^DD(601.05,"GL",0,1,.01)=""
^DD(601.06,0)="GENERAL REPORT TEXT NO. SUB-FIELD^^1^2"
^DD(601.06,0,"NM","GENERAL REPORT TEXT NO.")=""
^DD(601.06,0,"UP")="601"
^DD(601.06,.01,0)="GENERAL REPORT TEXT NO.^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.06,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(601.06,.01,21,0)="^^3^3^2930412^"
^DD(601.06,.01,21,1,0)="This is a sequential number used to uniquely define a line of text."
^DD(601.06,.01,21,2,0)="Using this number allows selectablity of specific text for reporting"
^DD(601.06,.01,21,3,0)="patient testing results."
^DD(601.06,.01,"DT")="2861222"
^DD(601.06,1,0)="REPORT TEXT^601.07^^1;0"
^DD(601.06,1,21,0)="^^2^2^2930412^"
^DD(601.06,1,21,1,0)="This is selectable text used to define or describe the test/interview"
^DD(601.06,1,21,2,0)="results/evaluation."
^DD(601.06,"B","GENERAL REPORT TEXT NO.",.01)=""
^DD(601.06,"B","REPORT TEXT",1)=""
^DD(601.06,"GL",0,1,.01)=""
^DD(601.06,"GL",1,0,1)=""
^DD(601.06,"SB",601.07,1)=""
^DD(601.07,0)="REPORT TEXT SUB-FIELD^^.01^1"
^DD(601.07,0,"NM","REPORT TEXT")=""
^DD(601.07,0,"UP")="601.06"
^DD(601.07,.01,0)="REPORT TEXT^WL^^0;1^Q"
^DD(601.07,.01,"DT")="2861222"
^DD(601.07,"B","REPORT TEXT",.01)=""
^DD(601.07,"GL",0,1,.01)=""
^DD(601.08,0)="MALE REPORT TEXT NUMBER SUB-FIELD^^1^2"
^DD(601.08,0,"NM","MALE REPORT TEXT NUMBER")=""
^DD(601.08,0,"UP")="601"
^DD(601.08,.01,0)="MALE REPORT TEXT NUMBER^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.08,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(601.08,.01,21,0)="^^3^3^2930412^"
^DD(601.08,.01,21,1,0)="This is a sequential number used to uniquely define a line of text "
^DD(601.08,.01,21,2,0)="for test/interview results for MALE patients.  Using this number allows "
^DD(601.08,.01,21,3,0)="selectablity of specific MALE text for reporting patient testing results."
^DD(601.08,.01,"DT")="2861229"
^DD(601.08,1,0)="REPORT TEXT^601.09^^1;0"
^DD(601.08,1,21,0)="^^2^2^2930412^"
^DD(601.08,1,21,1,0)="This is selectable text used to define or describe the test/interview"
^DD(601.08,1,21,2,0)="results/evaluation for MALE patients."
^DD(601.08,"B","MALE REPORT TEXT NUMBER",.01)=""
^DD(601.08,"B","REPORT TEXT",1)=""
^DD(601.08,"GL",0,1,.01)=""
^DD(601.08,"GL",1,0,1)=""
^DD(601.08,"SB",601.09,1)=""
^DD(601.09,0)="REPORT TEXT SUB-FIELD^^.01^1"
^DD(601.09,0,"NM","REPORT TEXT")=""
^DD(601.09,0,"UP")="601.08"
^DD(601.09,.01,0)="REPORT TEXT^WL^^0;1^Q"
^DD(601.09,.01,"DT")="2861229"
^DD(601.09,"B","REPORT TEXT",.01)=""
^DD(601.09,"GL",0,1,.01)=""
^DD(601.1,0)="FEMALE REPORT TEXT NUMBER SUB-FIELD^^1^2"
^DD(601.1,0,"NM","FEMALE REPORT TEXT NUMBER")=""
^DD(601.1,0,"UP")="601"
^DD(601.1,.01,0)="FEMALE REPORT TEXT NUMBER^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.1,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(601.1,.01,21,0)="^^4^4^2930412^"
^DD(601.1,.01,21,1,0)="This is a sequential number used to uniquely define a line of text "
^DD(601.1,.01,21,2,0)="for test/interview results for FEMALE patients.  Using this number "
^DD(601.1,.01,21,3,0)="allows selectablity of specific FEMALE text for reporting patient "
^DD(601.1,.01,21,4,0)="testing results."
^DD(601.1,.01,"DT")="2861229"
^DD(601.1,1,0)="REPORT TEXT^601.11^^1;0"
^DD(601.1,1,21,0)="^^2^2^2930412^"
^DD(601.1,1,21,1,0)="This is selectable text used to define or describe the test/interview "
^DD(601.1,1,21,2,0)="results/evaluation for FEMALE patients."
^DD(601.1,"B","FEMALE REPORT TEXT NUMBER",.01)=""
^DD(601.1,"B","REPORT TEXT",1)=""
^DD(601.1,"GL",0,1,.01)=""
^DD(601.1,"GL",1,0,1)=""
^DD(601.1,"SB",601.11,1)=""
^DD(601.11,0)="REPORT TEXT SUB-FIELD^^.01^1"
^DD(601.11,0,"NM","REPORT TEXT")=""
^DD(601.11,0,"UP")="601.1"
^DD(601.11,.01,0)="REPORT TEXT^WL^^0;1^Q"
^DD(601.11,.01,"DT")="2861229"
^DD(601.11,"B","REPORT TEXT",.01)=""
^DD(601.11,"GL",0,1,.01)=""
^DD(601.12,0)="TEST NORMS DESCRIPTION SUB-FIELD^^.01^1"
^DD(601.12,0,"NM","TEST NORMS DESCRIPTION")=""
^DD(601.12,0,"UP")="601"
^DD(601.12,.01,0)="TEST NORMS^WL^^0;1^Q"
^DD(601.12,.01,"DT")="2870102"
^DD(601.12,"B","TEST NORMS",.01)=""
^DD(601.12,"GL",0,1,.01)=""
^DD(601.13,0)="TEST USES SUB-FIELD^^.01^1"
^DD(601.13,0,"NM","TEST USES")=""
^DD(601.13,0,"UP")="601"
^DD(601.13,.01,0)="TEST DESCRIPTION^WL^^0;1^Q"
^DD(601.13,.01,"DT")="2870102"
^DD(601.13,"B","TEST DESCRIPTION",.01)=""
^DD(601.13,"GL",0,1,.01)=""
^DD(601.14,0)="TEST REPORT DESCRIPTION SUB-FIELD^^.01^1"
^DD(601.14,0,"NM","TEST REPORT DESCRIPTION")=""
^DD(601.14,0,"UP")="601"
^DD(601.14,.01,0)="TEST COMMENTS^WL^^0;1^Q"
^DD(601.14,.01,"DT")="2870102"
^DD(601.14,"B","TEST COMMENTS",.01)=""
^DD(601.14,"GL",0,1,.01)=""
^DD(601.15,0)="INTERVIEW SOURCE SUB-FIELD^^.01^1"
^DD(601.15,0,"NM","INTERVIEW SOURCE")=""
^DD(601.15,0,"UP")="601"
^DD(601.15,.01,0)="INTERVIEW SOURCE^WL^^0;1^Q"
^DD(601.15,.01,"DT")="2870102"
^DD(601.15,"B","INTERVIEW SOURCE",.01)=""
^DD(601.15,"GL",0,1,.01)=""
^DD(601.16,0)="INTERVIEW DESCRIPTION SUB-FIELD^^.01^1"
^DD(601.16,0,"NM","INTERVIEW DESCRIPTION")=""
^DD(601.16,0,"UP")="601"
^DD(601.16,.01,0)="INTERVIEW DESCRIPTION^WL^^0;1^Q"
^DD(601.16,.01,"DT")="2870102"
^DD(601.16,"B","INTERVIEW DESCRIPTION",.01)=""
^DD(601.16,"GL",0,1,.01)=""
^DD(601.2,0)="FIELD^^1^2"
^DD(601.2,0,"DDA")="N"
^DD(601.2,0,"DIK")="YSXRAC"
^DD(601.2,0,"DIKOLD")="YSXRAC"
^DD(601.2,0,"DT")="2930914"
^DD(601.2,0,"IX","AD",601.22,.01)=""
^DD(601.2,0,"IX","B",601.2,.01)=""
^DD(601.2,0,"NM","PSYCH INSTRUMENT PATIENT")=""
^DD(601.2,0,"VR")="5.01"
^DD(601.2,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(601.2,.01,1,0)="^.1"
^DD(601.2,.01,1,1,0)="601.2^B"
^DD(601.2,.01,1,1,1)="S ^YTD(601.2,""B"",$E(X,1,30),DA)="""""
^DD(601.2,.01,1,1,2)="K ^YTD(601.2,""B"",$E(X,1,30),DA)"
^DD(601.2,.01,3)=""
^DD(601.2,.01,21,0)="^^2^2^2930324^"
^DD(601.2,.01,21,1,0)="This is the Patient's name.  Actually stored is a pointer value to"
^DD(601.2,.01,21,2,0)="the Patient file #2."
^DD(601.2,.01,"DT")="2870617"
^DD(601.2,1,0)="INSTRUMENT^601.21PA^^1;0"
^DD(601.2,1,21,0)="^^1^1^2930910^^^^"
^DD(601.2,1,21,1,0)="This is a multiple valued field with subfields."
^DD(601.2,"B","INSTRUMENT",1)=""
^DD(601.2,"B","NAME",.01)=""
^DD(601.2,"GL",0,1,.01)=""
^DD(601.2,"GL",1,0,1)=""
^DD(601.2,"IX",.01)=""
^DD(601.2,"RQ",.01)=""
^DD(601.2,"SB",601.21,1)=""
^DD(601.21,0)="INSTRUMENT SUB-FIELD^^1^2"
^DD(601.21,0,"DIK")="YSXRAC"
^DD(601.21,0,"DT")="2930914"
^DD(601.21,0,"IX","B",601.21,.01)=""
^DD(601.21,0,"NM","INSTRUMENT")=""
^DD(601.21,0,"UP")="601.2"
^DD(601.21,.01,0)="INSTRUMENT^P601'X^YTT(601,^0;1^S DINUM=X"
^DD(601.21,.01,1,0)="^.1"
^DD(601.21,.01,1,1,0)="601.21^B"
^DD(601.21,.01,1,1,1)="S ^YTD(601.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(601.21,.01,1,1,2)="K ^YTD(601.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(601.21,.01,21,0)="^^2^2^2930324^"
^DD(601.21,.01,21,1,0)="This is the Instrument Code (unique name), actually stored in this "
^DD(601.21,.01,21,2,0)="field is the pointer value pointing to the INSTRUMENT file #601."
^DD(601.21,.01,"DT")="2870617"
^DD(601.21,1,0)="DATE^601.22DA^^1;0"
^DD(601.21,1,21,0)="^^1^1^2930401^^^^"
^DD(601.21,1,21,1,0)="This is a multiple valued field with subfields."
^DD(601.21,"B","DATE",1)=""
^DD(601.21,"B","INSTRUMENT",.01)=""
^DD(601.21,"GL",0,1,.01)=""
^DD(601.21,"GL",1,0,1)=""
^DD(601.21,"IX",.01)=""
^DD(601.21,"SB",601.22,1)=""
^DD(601.22,0)="DATE SUB-FIELD^^14^21"
^DD(601.22,0,"DIK")="YSXRAC"
^DD(601.22,0,"DT")="2930914"
^DD(601.22,0,"NM","DATE")=""
^DD(601.22,0,"UP")="601.21"
^DD(601.22,.01,0)="COMPLETION DATE^DX^^0;1^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X S DINUM=X K %DT(0)"
^DD(601.22,.01,1,0)="^.1"
^DD(601.22,.01,1,1,0)="601.2^AD^MUMPS"
^DD(601.22,.01,1,1,1)="D SET^YTCROSS"
^DD(601.22,.01,1,1,2)="D KILL^YTCROSS"
^DD(601.22,.01,21,0)="^^1^1^2930324^"
^DD(601.22,.01,21,1,0)="This is the date the test/interview was completed."
^DD(601.22,.01,"DT")="3001106"
^DD(601.22,1,0)="DEVICE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(601.22,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(601.22,1,21,0)="^^2^2^2930324^"
^DD(601.22,1,21,1,0)="This is the device from which the test was administered.  This field"
^DD(601.22,1,21,2,0)="has become of little value because of virtual terminals."
^DD(601.22,2,0)="ORDERED BY^P200'^VA(200,^0;3^Q"
^DD(601.22,2,21,0)="^^3^3^2930324^"
^DD(601.22,2,21,1,0)="This is the name of the clinician ordering the administration of this"
^DD(601.22,2,21,2,0)="instrument to this patient.  Actually stored in the field is the pointer"
^DD(601.22,2,21,3,0)="value pointing to the clinician in the NEW PERSON file #200."
^DD(601.22,3,0)="ENTERED BY^P200'^VA(200,^0;4^Q"
^DD(601.22,3,3)=""
^DD(601.22,3,21,0)="^^3^3^2930324^"
^DD(601.22,3,21,1,0)="This the name of the person who entered the test/interview or who"
^DD(601.22,3,21,2,0)="setup the testing for patient entry.  Actually stored is the pointer"
^DD(601.22,3,21,3,0)="value pointing to the NEW PERSON file #200."
^DD(601.22,4,0)="ADMINISTRATION DATE^DX^^0;5^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(601.22,4,21,0)="^^1^1^2930324^"
^DD(601.22,4,21,1,0)="This is the date the test/interview was administered."
^DD(601.22,4,"DT")="3001106"
^DD(601.22,5,0)="RESPONSE STRING1^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(601.22,5,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.22,5,21,0)="^^5^5^2930324^"
^DD(601.22,5,21,1,0)="This is a STRING of responses, 1 to 200 characters in length, they"
^DD(601.22,5,21,2,0)="are position dependent.  For example: if the instrument asked sixteen"
^DD(601.22,5,21,3,0)="TRUE & FALSE questions, the string would contain 16 T's and/or F's"
^DD(601.22,5,21,4,0)="(TTFFFTFTFTFTTTFF), this string indicates answers 1 & 2 were TRUE and"
^DD(601.22,5,21,5,0)="answers 3 thru 5 were FALSE, and so on."
^DD(601.22,6,0)="RESPONSE STRING2^F^^2;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(601.22,6,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.22,6,21,0)="^^1^1^2930324^"
^DD(601.22,6,21,1,0)="This is a STRING of responses, a continuation from RESPONSE STRING1."
^DD(601.22,7,0)="RESPONSE STRING3^F^^3;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(601.22,7,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.22,7,21,0)="^^1^1^2930324^^"
^DD(601.22,7,21,1,0)="This is a STRING of responses, a continuation from RESPONSE STRING2."
^DD(601.22,7.2,0)="RESPONSE STRING4^F^^4;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.22,7.2,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.22,7.2,21,0)="^^1^1^2930324^"
^DD(601.22,7.2,21,1,0)="This is a STRING of responses."
^DD(601.22,7.2,"DT")="2880615"
^DD(601.22,7.3,0)="RESPONSE STRING5^F^^5;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.22,7.3,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.22,7.3,21,0)="^^1^1^2930324^"
^DD(601.22,7.3,21,1,0)="This is a STRING of responses."
^DD(601.22,7.3,"DT")="2880615"
^DD(601.22,7.4,0)="RESPONSE STRING 6^F^^6;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.22,7.4,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.22,7.4,21,0)="^^1^1^2930324^"
^DD(601.22,7.4,21,1,0)="This is a STRING of responses."
^DD(601.22,7.4,"DT")="2880615"
^DD(601.22,7.5,0)="RESPONSE STRING 99^F^^99;E1,245^K:$L(X)>200!($L(X)<1) X"
^DD(601.22,7.5,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.22,7.5,21,0)="^^2^2^2930324^"
^DD(601.22,7.5,21,1,0)="This is a STRING of responses, 1 to 245 characters in length."
^DD(601.22,7.5,21,2,0)="This is used for specific instruments."
^DD(601.22,7.5,"DT")="2870616"
^DD(601.22,8,0)="SCORE SET1^F^^100;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(601.22,8,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(601.22,8,21,0)="^^2^2^2930324^"
^DD(601.22,8,21,1,0)="This is testing results, usually numeric values separated by a "
^DD(601.22,8,21,2,0)="delimitor.  Not all instruments will have recorded SCORE SETS."
^DD(601.22,9,0)="SCORE SET2^F^^101;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(601.22,9,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(601.22,9,21,0)="^^1^1^2930324^"
^DD(601.22,9,21,1,0)="This is testing results."
^DD(601.22,10,0)="SCORE SET3^F^^102;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(601.22,10,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(601.22,10,21,0)="^^1^1^2930324^"
^DD(601.22,10,21,1,0)="This is testing results."
^DD(601.22,10.5,0)="SCORE SET4^F^^103;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(601.22,10.5,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(601.22,10.5,21,0)="^^1^1^2930324^"
^DD(601.22,10.5,21,1,0)="This is testing results."
^DD(601.22,10.5,"DT")="2870616"
^DD(601.22,10.6,0)="SCORE SET5^F^^104;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(601.22,10.6,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(601.22,10.6,21,0)="^^1^1^2930324^"
^DD(601.22,10.6,21,1,0)="This is testing results."
^DD(601.22,10.6,"DT")="2870616"
^DD(601.22,11,0)="ENTRY MODE^S^1:CLERK;2:ON-LINE;^0;6^Q"
^DD(601.22,11,1,0)="^.1^^0"
^DD(601.22,11,21,0)="^^2^2^2930324^"
^DD(601.22,11,21,1,0)="This is a set of codes; '1' means instrument was CLERK ENTERED, "
^DD(601.22,11,21,2,0)="'2' means instrument was ENTERED ON-LINE."
^DD(601.22,11,"DT")="2870309"
^DD(601.22,12,0)="STATION NUMBER^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<111)!(X?.E1"".""1N.N) X"
^DD(601.22,12,3)="TYPE A WHOLE NUMBER BETWEEN 111 AND 9999"
^DD(601.22,12,21,0)="^^2^2^2930324^"
^DD(601.22,12,21,1,0)="This is the Station number of the person administering the instrument."
^DD(601.22,12,21,2,0)="It is derived from their DUZ(2).  Used mostly for billing purposes."
^DD(601.22,12,"DT")="2870121"
^DD(601.22,13,0)="STAFF COMMENTS ENTRY DATE^601.2213D^^R;0"
^DD(601.22,13,21,0)="^^1^1^2930401^^^"
^DD(601.22,13,21,1,0)="This is a multiple valued field with subfields."
^DD(601.22,14,0)="DATE BEGUN^DX^^0;8^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(601.22,14,21,0)="^^1^1^2930401^"
^DD(601.22,14,21,1,0)="This is the date the test/interview was started."
^DD(601.22,14,"DT")="3001106"
^DD(601.22,"B","ADMINISTRATION DATE",4)=""
^DD(601.22,"B","COMPLETION DATE",.01)=""
^DD(601.22,"B","DATE BEGUN",14)=""
^DD(601.22,"B","DEVICE",1)=""
^DD(601.22,"B","ENTERED BY",3)=""
^DD(601.22,"B","ENTRY MODE",11)=""
^DD(601.22,"B","ORDERED BY",2)=""
^DD(601.22,"B","RESPONSE STRING 6",7.4)=""
^DD(601.22,"B","RESPONSE STRING 99",7.5)=""
^DD(601.22,"B","RESPONSE STRING1",5)=""
^DD(601.22,"B","RESPONSE STRING2",6)=""
^DD(601.22,"B","RESPONSE STRING3",7)=""
^DD(601.22,"B","RESPONSE STRING4",7.2)=""
^DD(601.22,"B","RESPONSE STRING5",7.3)=""
^DD(601.22,"B","SCORE SET1",8)=""
^DD(601.22,"B","SCORE SET2",9)=""
^DD(601.22,"B","SCORE SET3",10)=""
^DD(601.22,"B","SCORE SET4",10.5)=""
^DD(601.22,"B","SCORE SET5",10.6)=""
^DD(601.22,"B","STAFF COMMENTS ENTRY DATE",13)=""
^DD(601.22,"B","STATION NUMBER",12)=""
^DD(601.22,"GL",0,1,.01)=""
^DD(601.22,"GL",0,2,1)=""
^DD(601.22,"GL",0,3,2)=""
^DD(601.22,"GL",0,4,3)=""
^DD(601.22,"GL",0,5,4)=""
^DD(601.22,"GL",0,6,11)=""
^DD(601.22,"GL",0,7,12)=""
^DD(601.22,"GL",0,8,14)=""
^DD(601.22,"GL",1,"E1,200",5)=""
^DD(601.22,"GL",2,"E1,200",6)=""
^DD(601.22,"GL",3,"E1,200",7)=""
^DD(601.22,"GL",4,1,7.2)=""
^DD(601.22,"GL",5,1,7.3)=""
^DD(601.22,"GL",6,1,7.4)=""
^DD(601.22,"GL",99,"E1,245",7.5)=""
^DD(601.22,"GL",100,"E1,245",8)=""
^DD(601.22,"GL",101,"E1,245",9)=""
^DD(601.22,"GL",102,"E1,245",10)=""
^DD(601.22,"GL",103,"E1,245",10.5)=""
^DD(601.22,"GL",104,"E1,245",10.6)=""
^DD(601.22,"GL","R",0,13)=""
^DD(601.22,"IX",.01)=""
^DD(601.22,"SB",601.2213,13)=""
^DD(601.2213,0)="STAFF COMMENTS ENTRY DATE SUB-FIELD^^9^10"
^DD(601.2213,0,"DIK")="YSXRAC"
^DD(601.2213,0,"DT")="2930914"
^DD(601.2213,0,"IX","AD",601.2213,1)=""
^DD(601.2213,0,"NM","STAFF COMMENTS ENTRY DATE")=""
^DD(601.2213,0,"UP")="601.22"
^DD(601.2213,.01,0)="STAFF COMMENTS ENTRY DATE^DX^^0;1^S %DT="""",X=""T"" D ^%DT S X=$P($H,"","",2),Y=Y_"".""_$E(0,1,2-$L(X\3600))_(X\3600)_$E(0,1,2-$L(X#3600\60))_(X#3600\60)_$E(0,1,2-$L(X#60))_(X#60),Y=+Y,X=Y K:Y<1 X"
^DD(601.2213,.01,21,0)="^^1^1^2930401^^"
^DD(601.2213,.01,21,1,0)="This is the system date the COMMENTS were entered."
^DD(601.2213,.01,"DT")="2870806"
^DD(601.2213,1,0)="DATE OF COMMENT^RDX^^0;2^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(601.2213,1,1,0)="^.1"
^DD(601.2213,1,1,1,0)="601.2213^AD"
^DD(601.2213,1,1,1,1)="S ^YTD(601.2,DA(3),1,DA(2),1,DA(1),""R"",""AD"",$E(X,1,30),DA)="""""
^DD(601.2213,1,1,1,2)="K ^YTD(601.2,DA(3),1,DA(2),1,DA(1),""R"",""AD"",$E(X,1,30),DA)"
^DD(601.2213,1,21,0)="^^1^1^2930401^^^"
^DD(601.2213,1,21,1,0)="This is the date the author wrote or dictated the COMMENTS."
^DD(601.2213,1,"DT")="3001106"
^DD(601.2213,2,0)="TRANSCRIBER^P200'^VA(200,^0;3^Q"
^DD(601.2213,2,21,0)="^^3^3^2930401^^"
^DD(601.2213,2,21,1,0)="This is the name of the person who entered the comments.  Actually"
^DD(601.2213,2,21,2,0)="stored is the pointer value pointing to the person in the NEW PERSON"
^DD(601.2213,2,21,3,0)="file #200."
^DD(601.2213,2,"DT")="2870731"
^DD(601.2213,3,0)="AUTHOR^RP200'^VA(200,^0;4^Q"
^DD(601.2213,3,3)=""
^DD(601.2213,3,21,0)="^^3^3^2930401^^"
^DD(601.2213,3,21,1,0)="This is the name of the person who AUTHORED the comment.  Actually"
^DD(601.2213,3,21,2,0)="stored is the pointer value pointing to the person in the NEW PERSON"
^DD(601.2213,3,21,3,0)="file #200."
^DD(601.2213,3,"DT")="2920401"
^DD(601.2213,4,0)="ELECTRONIC SIGNATURE ^*S^0:NOT SIGNED;1:SIGNED;^0;5^Q"
^DD(601.2213,4,3)="The individual signing must also be the author."
^DD(601.2213,4,12)="In order to change the status to signed you MUST be the author of the comments, and a verification of your electronic signature is required."
^DD(601.2213,4,12.1)="S DIC(""S"")=""I 1 Q:'Y  I DUZ=$P(^YTD(601.2,DA(3),1,DA(2),1,DA(1),""""R"""",DA,0),U,4) D SIG^XUSESIG I $G(X)]"""""""""""
^DD(601.2213,4,21,0)="^^2^2^2930910^^"
^DD(601.2213,4,21,1,0)="Currently NOT USED.  Intended as flag: '0' for not signed, '1' for "
^DD(601.2213,4,21,2,0)="signed."
^DD(601.2213,4,"DT")="2920401"
^DD(601.2213,5,0)="DATE/TIME SIGNED^DX^^0;6^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(601.2213,5,21,0)="^^1^1^2930401^"
^DD(601.2213,5,21,1,0)="Current NOT USED.  Intended to be DATE/TIME the comments were signed."
^DD(601.2213,5,"DT")="3001106"
^DD(601.2213,6,0)="COSIGNER^*P200'^VA(200,^0;7^S DIC(""S"")=""I 1"" D ^DIC K DIC S DIC=DIE,X=+Y D SIG^XUSESIG(Y,.Y) K:Y<0 X D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(601.2213,6,12)="CURRENTLY NOT USED.  Intended to be the name of the person who cosigned the comments."
^DD(601.2213,6,12.1)="S DIC(""S"")=""I 1"" D ^DIC K DIC S DIC=DIE,X=+Y D SIG^XUSESIG(Y,.Y) K:Y<0 X"
^DD(601.2213,6,21,0)="^^2^2^2930914^^^^"
^DD(601.2213,6,21,1,0)="Currently NOT USED.  Intended as name of the person who cosigned the "
^DD(601.2213,6,21,2,0)="comments."
^DD(601.2213,6,"DT")="2930914"
^DD(601.2213,7,0)="ELECTRONIC SIGNATURE (COSIGN)^P200'^VA(200,^0;8^Q"
^DD(601.2213,7,3)=""
^DD(601.2213,7,21,0)="^^2^2^2930914^^^"
^DD(601.2213,7,21,1,0)="Currently NOT USED.  Intended to be the name of the person who "
^DD(601.2213,7,21,2,0)="cosigned the comments."
^DD(601.2213,8,0)="DATE/TIME COSIGNED^DX^^0;9^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(601.2213,8,21,0)="^^1^1^2930401^^^"
^DD(601.2213,8,21,1,0)="Currently NOT USED.  Intended as DATE and TIME the comments were cosigned."
^DD(601.2213,8,"DT")="3001106"
^DD(601.2213,9,0)="COMMENT^601.22139^^1;0"
^DD(601.2213,9,21,0)="^^1^1^2930401^"
^DD(601.2213,9,21,1,0)="This the actual comment (word processing) field."
^DD(601.2213,"B","AUTHOR",3)=""
^DD(601.2213,"B","COMMENT",9)=""
^DD(601.2213,"B","COSIGNER",6)=""
^DD(601.2213,"B","DATE OF COMMENT",1)=""
^DD(601.2213,"B","DATE/TIME COSIGNED",8)=""
^DD(601.2213,"B","DATE/TIME SIGNED",5)=""
^DD(601.2213,"B","ELECTRONIC SIGNATURE ",4)=""
^DD(601.2213,"B","ELECTRONIC SIGNATURE (COSIGN)",7)=""
^DD(601.2213,"B","STAFF COMMENTS ENTRY DATE",.01)=""
^DD(601.2213,"B","TRANSCRIBER",2)=""
^DD(601.2213,"GL",0,1,.01)=""
^DD(601.2213,"GL",0,2,1)=""
^DD(601.2213,"GL",0,3,2)=""
^DD(601.2213,"GL",0,4,3)=""
^DD(601.2213,"GL",0,5,4)=""
^DD(601.2213,"GL",0,6,5)=""
^DD(601.2213,"GL",0,7,6)=""
^DD(601.2213,"GL",0,8,7)=""
^DD(601.2213,"GL",0,9,8)=""
^DD(601.2213,"GL",1,0,9)=""
^DD(601.2213,"IX",1)=""
^DD(601.2213,"RQ",1)=""
^DD(601.2213,"RQ",3)=""
^DD(601.2213,"SB",601.22139,9)=""
^DD(601.22139,0)="COMMENT SUB-FIELD^^.01^1"
^DD(601.22139,0,"NM","COMMENT")=""
^DD(601.22139,0,"UP")="601.2213"
^DD(601.22139,.01,0)="COMMENT^W^^0;1^Q"
^DD(601.22139,.01,21,0)="^^1^1^2930401^"
^DD(601.22139,.01,21,1,0)="The COMMENT appended to the instrument results."
^DD(601.22139,.01,"DT")="2870731"
^DD(601.22139,"B","COMMENT",.01)=""
^DD(601.22139,"GL",0,1,.01)=""
^DD(601.3,0)="FIELD^^1^2"
^DD(601.3,0,"DDA")="N"
^DD(601.3,0,"DIK")="YSXRAD"
^DD(601.3,0,"DIKOLD")="YSXRAD"
^DD(601.3,0,"IX","B",601.3,.01)=""
^DD(601.3,0,"NM","COPYRIGHT HOLDER")=""
^DD(601.3,0,"PT",601,9)=""
^DD(601.3,0,"VR")="5.01"
^DD(601.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(601.3,.01,1,0)="^.1"
^DD(601.3,.01,1,1,0)="601.3^B"
^DD(601.3,.01,1,1,1)="S ^YTT(601.3,""B"",$E(X,1,30),DA)="""""
^DD(601.3,.01,1,1,2)="K ^YTT(601.3,""B"",$E(X,1,30),DA)"
^DD(601.3,.01,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(601.3,.01,21,0)="^^2^2^2930323^^"
^DD(601.3,.01,21,1,0)="This is an abbreviated name of the 'Copyright Holder' or specific"
^DD(601.3,.01,21,2,0)="'Copyright'.  Used to uniquely identify a specific copyright."
^DD(601.3,.01,"DT")="2881202"
^DD(601.3,1,0)="TEXT^601.31^^1;0"
^DD(601.3,1,21,0)="^^1^1^2930323^"
^DD(601.3,1,21,1,0)="Description of copyright, holder, names, addresses, etc."
^DD(601.3,"B","NAME",.01)=""
^DD(601.3,"B","TEXT",1)=""
^DD(601.3,"GL",0,1,.01)=""
^DD(601.3,"GL",1,0,1)=""
^DD(601.3,"IX",.01)=""
^DD(601.3,"RQ",.01)=""
^DD(601.3,"SB",601.31,1)=""
^DD(601.31,0)="TEXT SUB-FIELD^^.01^1"
^DD(601.31,0,"NM","TEXT")=""
^DD(601.31,0,"UP")="601.3"
^DD(601.31,.01,0)="TEXT^WL^^0;1^Q"
^DD(601.31,.01,"DT")="2880229"
^DD(601.31,"B","TEXT",.01)=""
^DD(601.31,"GL",0,1,.01)=""
^DD(601.4,0)="FIELD^^1^2"
^DD(601.4,0,"DDA")="N"
^DD(601.4,0,"DIK")="YSXRAE"
^DD(601.4,0,"DIKOLD")="YSXRAE"
^DD(601.4,0,"IX","B",601.4,.01)=""
^DD(601.4,0,"NM","INCOMPLETE PSYCH TEST PATIENT")=""
^DD(601.4,0,"VR")="5.01"
^DD(601.4,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(601.4,.01,1,0)="^.1"
^DD(601.4,.01,1,1,0)="601.4^B"
^DD(601.4,.01,1,1,1)="S ^YTD(601.4,""B"",$E(X,1,30),DA)="""""
^DD(601.4,.01,1,1,2)="K ^YTD(601.4,""B"",$E(X,1,30),DA)"
^DD(601.4,.01,3)=""
^DD(601.4,.01,21,0)="^^2^2^2930323^"
^DD(601.4,.01,21,1,0)="This is the Patient's name for which this is an incomplete test"
^DD(601.4,.01,21,2,0)="record.  Actually stored is a pointer value to the PATIENT file."
^DD(601.4,1,0)="INSTRUMENT^601.41P^^1;0"
^DD(601.4,1,21,0)="^^1^1^2930323^^^^"
^DD(601.4,1,21,1,0)="This is a multiple valued field with subfields."
^DD(601.4,"B","INSTRUMENT",1)=""
^DD(601.4,"B","NAME",.01)=""
^DD(601.4,"GL",0,1,.01)=""
^DD(601.4,"GL",1,0,1)=""
^DD(601.4,"IX",.01)=""
^DD(601.4,"RQ",.01)=""
^DD(601.4,"SB",601.41,1)=""
^DD(601.41,0)="INSTRUMENT SUB-FIELD^^18^14"
^DD(601.41,0,"DIK")="YSXRAE"
^DD(601.41,0,"IX","AC",601.41,9)=""
^DD(601.41,0,"IX","B",601.41,.01)=""
^DD(601.41,0,"NM","INSTRUMENT")=""
^DD(601.41,0,"UP")="601.4"
^DD(601.41,.01,0)="INSTRUMENT^P601'X^YTT(601,^0;1^S DINUM=X"
^DD(601.41,.01,1,0)="^.1"
^DD(601.41,.01,1,1,0)="601.41^B"
^DD(601.41,.01,1,1,1)="S ^YTD(601.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(601.41,.01,1,1,2)="K ^YTD(601.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(601.41,.01,21,0)="^^2^2^2930323^"
^DD(601.41,.01,21,1,0)="This is the Instrument Code (unique name), stored in this field is"
^DD(601.41,.01,21,2,0)="the pointer to the INSTRUMENT file #601."
^DD(601.41,.01,"DT")="2870318"
^DD(601.41,1,0)="DATE ENTERED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(601.41,1,21,0)="^^1^1^2930323^^"
^DD(601.41,1,21,1,0)="This is the date the test was given."
^DD(601.41,2,0)="DATE ADMINISTERED CLERICALLY^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(601.41,2,21,0)="^^2^2^2930323^"
^DD(601.41,2,21,1,0)="This is the date the test was given clerically (pencil and paper,"
^DD(601.41,2,21,2,0)="instead of by computer)."
^DD(601.41,3,0)="NEXT ITEM^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.41,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9999"
^DD(601.41,3,21,0)="^^2^2^2930323^"
^DD(601.41,3,21,1,0)="The next item (next question) in sequence to be asked by the instrument."
^DD(601.41,3,21,2,0)="This is the restart point."
^DD(601.41,4,0)="VALID RESPONSE STRING^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(601.41,4,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(601.41,4,21,0)="^^3^3^2930323^"
^DD(601.41,4,21,1,0)="This is a SET of Valid responses, such as ABCX, TFX or 123X.  That"
^DD(601.41,4,21,2,0)="is for the three examples, for the 1st you may enter 'A', 'B', 'C' or"
^DD(601.41,4,21,3,0)="'X'."
^DD(601.41,5,0)="RESPONSE STRING 1^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(601.41,5,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.41,5,21,0)="^^4^4^2930323^"
^DD(601.41,5,21,1,0)="This is a STRING of responses, 1 to 200 of them, they are position"
^DD(601.41,5,21,2,0)="dependent.  For example: if the instrument asked twenty TRUE & FALSE"
^DD(601.41,5,21,3,0)="questions, the string would contain 20 T's and/or F's (TTTFFTFTFTFTFFTTTFFT)"
^DD(601.41,5,21,4,0)="this string indicates answers 1 thru 3 were TRUE, answer 4 FALSE and so on."
^DD(601.41,6,0)="RESPONSE STRING 2^F^^2;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(601.41,6,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.41,6,21,0)="^^2^2^2930323^^"
^DD(601.41,6,21,1,0)="This is a STRING of responses.  Same as 'RESPONSE STRING 1' only that"
^DD(601.41,6,21,2,0)="this is string #2."
^DD(601.41,7,0)="RESPONSE STRING 3^F^^3;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(601.41,7,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.41,7,21,0)="^^2^2^2930323^^"
^DD(601.41,7,21,1,0)="This is a STRING of responses.  Same as 'RESPONSE STRING 1' only that"
^DD(601.41,7,21,2,0)="this is string #3."
^DD(601.41,7.5,0)="RESPONSE STRING 99^F^^99;E1,245^K:$L(X)>200!($L(X)<1) X"
^DD(601.41,7.5,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(601.41,7.5,21,0)="^^3^3^2930323^"
^DD(601.41,7.5,21,1,0)="This is a STRING of responses, 1 to 245 of them.  This is the same"
^DD(601.41,7.5,21,2,0)="format as the three other fields, 'RESPONSE STRING 1' or 2 or 3."
^DD(601.41,7.5,21,3,0)="This is used for string manipulation for specific instruments."
^DD(601.41,7.5,"DT")="2870616"
^DD(601.41,8,0)="BOTTOM^F^^B;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(601.41,8,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(601.41,8,21,0)="^^3^3^2930323^"
^DD(601.41,8,21,1,0)="This is what is displayed at the bottom of the instrument item (question)."
^DD(601.41,8,21,2,0)="Such as 'ANSWER = ', this field is usually the MUMPS code to generate"
^DD(601.41,8,21,3,0)="the displayed line."
^DD(601.41,9,0)="CLERK TEST^P601'^YTT(601,^0;6^Q"
^DD(601.41,9,1,0)="^.1"
^DD(601.41,9,1,1,0)="601.41^AC"
^DD(601.41,9,1,1,1)="S ^YTD(601.4,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(601.41,9,1,1,2)="K ^YTD(601.4,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(601.41,9,21,0)="^^4^4^2930323^"
^DD(601.41,9,21,1,0)="This is the instrument code name, it is the same as the instrument"
^DD(601.41,9,21,2,0)="field.  If this field is present, then the test has been clerk entered."
^DD(601.41,9,21,3,0)="Actually stored in this field is the pointer value to the MH INSTRUMENT"
^DD(601.41,9,21,4,0)="file #601."
^DD(601.41,9,"DT")="2870116"
^DD(601.41,16,0)="ORDERED BY^P200'^VA(200,^0;7^Q"
^DD(601.41,16,21,0)="^^3^3^2930323^"
^DD(601.41,16,21,1,0)="This is the name of the clinician ordering the administration of"
^DD(601.41,16,21,2,0)="this instrument to this patient.  Actually stored in the field is the"
^DD(601.41,16,21,3,0)="pointer value pointing to the clinician in the NEW PERSON file #200."
^DD(601.41,16,"DT")="2870116"
^DD(601.41,17,0)="RESTART TESTS^F^^R;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(601.41,17,3)="ANSWER MUST BE 1-245 CHARACTERS IN LENGTH"
^DD(601.41,17,21,0)="^^2^2^2930323^"
^DD(601.41,17,21,1,0)="Executable MUMPS code for restarting test.  This will be present ONLY"
^DD(601.41,17,21,2,0)="if necessary."
^DD(601.41,17,"DT")="2870121"
^DD(601.41,18,0)="DATE BEGUN^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(601.41,18,21,0)="^^1^1^2930323^"
^DD(601.41,18,21,1,0)="This is the date the instrument was first administered (test began)."
^DD(601.41,18,"DT")="2870811"
^DD(601.41,"B","BOTTOM",8)=""
^DD(601.41,"B","CLERK TEST",9)=""
^DD(601.41,"B","DATE ADMINISTERED CLERICALLY",2)=""
^DD(601.41,"B","DATE BEGUN",18)=""
^DD(601.41,"B","DATE ENTERED",1)=""
^DD(601.41,"B","INSTRUMENT",.01)=""
^DD(601.41,"B","NEXT ITEM",3)=""
^DD(601.41,"B","ORDERED BY",16)=""
^DD(601.41,"B","RESPONSE STRING 1",5)=""
^DD(601.41,"B","RESPONSE STRING 2",6)=""
^DD(601.41,"B","RESPONSE STRING 3",7)=""
^DD(601.41,"B","RESPONSE STRING 99",7.5)=""
^DD(601.41,"B","RESTART TESTS",17)=""
^DD(601.41,"B","VALID RESPONSE STRING",4)=""
^DD(601.41,"GL",0,1,.01)=""
^DD(601.41,"GL",0,2,1)=""
^DD(601.41,"GL",0,3,2)=""
^DD(601.41,"GL",0,4,3)=""
^DD(601.41,"GL",0,5,4)=""
^DD(601.41,"GL",0,6,9)=""
^DD(601.41,"GL",0,7,16)=""
^DD(601.41,"GL",0,8,18)=""
^DD(601.41,"GL",1,"E1,200",5)=""
^DD(601.41,"GL",2,"E1,200",6)=""
^DD(601.41,"GL",3,"E1,200",7)=""
^DD(601.41,"GL",99,"E1,245",7.5)=""
^DD(601.41,"GL","B","E1,245",8)=""
^DD(601.41,"GL","R","E1,245",17)=""
^DD(601.41,"IX",.01)=""
^DD(601.41,"IX",9)=""
^DD(601.6,0)="FIELD^^6^7"
^DD(601.6,0,"DDA")="N"
^DD(601.6,0,"DT")="3000218"
^DD(601.6,0,"IX","B",601.6,.01)=""
^DD(601.6,0,"NM","MH MULTIPLE SCORING")=""
^DD(601.6,0,"VR")="5.01"
^DD(601.6,0,"VRPK")="YS"
^DD(601.6,.01,0)="INSTRUMENT NAME^RP601'X^YTT(601,^0;1^S DINUM=X"
^DD(601.6,.01,1,0)="^.1"
^DD(601.6,.01,1,1,0)="601.6^B"
^DD(601.6,.01,1,1,1)="S ^YTT(601.6,""B"",$E(X,1,30),DA)="""""
^DD(601.6,.01,1,1,2)="K ^YTT(601.6,""B"",$E(X,1,30),DA)"
^DD(601.6,.01,3)=""
^DD(601.6,.01,21,0)="^^1^1^2990924^^^^"
^DD(601.6,.01,21,1,0)="A Psychological test or interview from the MH Instrument File (#601)"
^DD(601.6,.01,"DT")="2990331"
^DD(601.6,1,0)="ALLOW MULTIPLE SCORING^S^Y:Yes;N:No;^0;2^Q"
^DD(601.6,1,3)="Yes indicates availability"
^DD(601.6,1,21,0)="^^3^3^2991018^^^^"
^DD(601.6,1,21,1,0)="Boolean to allow use of instrument in multiple test scoring."
^DD(601.6,1,21,2,0)="This field is set to 'N' when instrument is an interview or cannot"
^DD(601.6,1,21,3,0)="be scored."
^DD(601.6,1,"DT")="2990331"
^DD(601.6,2,0)="EXECUTABLE SCORING CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(601.6,2,3)="This is Standard MUMPS code."
^DD(601.6,2,9)="@"
^DD(601.6,2,21,0)="^^3^3^2990924^^"
^DD(601.6,2,21,1,0)="Standard M code for multiple scoring."
^DD(601.6,2,21,2,0)="This code is executed to score the tests as raw and transformed"
^DD(601.6,2,21,3,0)="scoring is not saved but recreated on each printing."
^DD(601.6,2,"DT")="2990331"
^DD(601.6,3,0)="INSTRUMENT TYPE^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(601.6,3,3)="Answer must be 2-10 characters in length."
^DD(601.6,3,21,0)="^^3^3^2990928^^^^"
^DD(601.6,3,21,1,0)="Text describing the type of Instrument being scored."
^DD(601.6,3,21,2,0)="This field will contain a description of how the scores are to be evaluated."
^DD(601.6,3,21,3,0)="Estimated range descriptions will be placed here."
^DD(601.6,3,"DT")="2990728"
^DD(601.6,4,0)="APPROPRIATE FOR GUI INPUT^S^Y:Yes;N:No;^0;4^Q"
^DD(601.6,4,21,0)="^^2^2^2991022^"
^DD(601.6,4,21,1,0)="This field indicates whether the MH SHG believes this instrument is "
^DD(601.6,4,21,2,0)="appropriate for GUI presentation to the clinician and or patient"
^DD(601.6,4,"DT")="2991022"
^DD(601.6,5,0)="OUTCOMES^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(601.6,5,3)="This is Standard MUMPS code."
^DD(601.6,5,9)="@"
^DD(601.6,5,21,0)="^^2^2^3000530^^^^"
^DD(601.6,5,21,1,0)="This executable Mumps code generates a number which corresponds to the"
^DD(601.6,5,21,2,0)=" results text number appropriate for this administration"
^DD(601.6,5,"DT")="3000218"
^DD(601.6,6,0)="RESULTS^601.66I^^3;0"
^DD(601.6,6,21,0)="^^3^3^3000530^^"
^DD(601.6,6,21,1,0)="Based on the decision rules coded in the Outcome field, Results are the"
^DD(601.6,6,21,2,0)="short text to be placed in a progress note or on-screen report detailing"
^DD(601.6,6,21,3,0)="the meaning of the data."
^DD(601.6,6,23,0)="^^3^3^3000530^^"
^DD(601.6,6,23,1,0)="Text is parsed via the API at OUTCOME^YTAPI5."
^DD(601.6,6,23,2,0)="Parsing uses the | delimiter.  "
^DD(601.6,6,23,3,0)="Users may not add or edit these sub-fields."
^DD(601.6,"B","ALLOW MULTIPLE SCORING",1)=""
^DD(601.6,"B","APPROPRIATE FOR GUI INPUT",4)=""
^DD(601.6,"B","EXECUTABLE SCORING CODE",2)=""
^DD(601.6,"B","INSTRUMENT NAME",.01)=""
^DD(601.6,"B","INSTRUMENT TYPE",3)=""
^DD(601.6,"B","OUTCOMES",5)=""
^DD(601.6,"B","RESULTS",6)=""
^DD(601.6,"GL",0,1,.01)=""
^DD(601.6,"GL",0,2,1)=""
^DD(601.6,"GL",0,3,3)=""
^DD(601.6,"GL",0,4,4)=""
^DD(601.6,"GL",1,"E1,245",2)=""
^DD(601.6,"GL",2,"E1,245",5)=""
^DD(601.6,"GL",3,0,6)=""
^DD(601.6,"IX",.01)=""
^DD(601.6,"RQ",.01)=""
^DD(601.6,"SB",601.66,6)=""
^DD(601.66,0)="RESULTS SUB-FIELD^^2^3"
^DD(601.66,0,"DT")="3000218"
^DD(601.66,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(601.66,0,"IX","B",601.66,.01)=""
^DD(601.66,0,"NM","RESULTS")=""
^DD(601.66,0,"UP")="601.6"
^DD(601.66,.01,0)="RESULTS NUMBER^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.66,.01,1,0)="^.1"
^DD(601.66,.01,1,1,0)="601.66^B"
^DD(601.66,.01,1,1,1)="S ^YTT(601.6,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(601.66,.01,1,1,2)="K ^YTT(601.6,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(601.66,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(601.66,.01,21,0)="^^1^1^3000523^"
^DD(601.66,.01,21,1,0)="A unique identifier for Results. Used by the Outcome rules."
^DD(601.66,.01,"DT")="3000218"
^DD(601.66,1,0)="RESULTS DESCRIPTION^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(601.66,1,3)="Answer must be 1-80 characters in length."
^DD(601.66,1,21,0)="^^1^1^3000523^"
^DD(601.66,1,21,1,0)="A short title for a result, eg. Positive, Negative."
^DD(601.66,1,"DT")="3000218"
^DD(601.66,2,0)="RESULTS TEXT^601.662^^1;0"
^DD(601.66,2,21,0)="^^2^2^3000530^^"
^DD(601.66,2,21,1,0)="Actual text to be placed in a progress note after parsing through"
^DD(601.66,2,21,2,0)="the API OUTCOME^YTAPI5."
^DD(601.66,"B","RESULTS DESCRIPTION",1)=""
^DD(601.66,"B","RESULTS NUMBER",.01)=""
^DD(601.66,"B","RESULTS TEXT",2)=""
^DD(601.66,"GL",0,1,.01)=""
^DD(601.66,"GL",0,2,1)=""
^DD(601.66,"GL",1,0,2)=""
^DD(601.66,"IX",.01)=""
^DD(601.66,"SB",601.662,2)=""
^DD(601.662,0)="RESULTS TEXT SUB-FIELD^^.01^1"
^DD(601.662,0,"DT")="3000218"
^DD(601.662,0,"NM","RESULTS TEXT")=""
^DD(601.662,0,"UP")="601.66"
^DD(601.662,.01,0)="RESULTS TEXT^W^^0;1^Q"
^DD(601.662,.01,"DT")="3000218"
^DD(601.662,"B","RESULTS TEXT",.01)=""
^DD(601.662,"GL",0,1,.01)=""
^DD(601.71,0)="FIELD^^27^28"
^DD(601.71,0,"DDA")="N"
^DD(601.71,0,"DT")="3070222"
^DD(601.71,0,"IX","B",601.71,.01)=""
^DD(601.71,0,"NM","MH TESTS AND SURVEYS")=""
^DD(601.71,0,"PT",142.14,.01)=""
^DD(601.71,0,"PT",601.76,1)=""
^DD(601.71,0,"PT",601.78,3)=""
^DD(601.71,0,"PT",601.79,1)=""
^DD(601.71,0,"PT",601.81,1)=""
^DD(601.71,0,"PT",601.83,1)=""
^DD(601.71,0,"PT",601.84,2)=""
^DD(601.71,0,"PT",601.86,1)=""
^DD(601.71,0,"PT",601.93,1)=""
^DD(601.71,0,"PT",801.41,15)=""
^DD(601.71,0,"PT",801.41,119)=""
^DD(601.71,0,"PT",811.52,.01)=""
^DD(601.71,0,"PT",811.902,.01)=""
^DD(601.71,0,"VR")="5.01"
^DD(601.71,0,"VRPK")="YS"
^DD(601.71,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(601.71,.01,1,0)="^.1"
^DD(601.71,.01,1,1,0)="601.71^B^MUMPS"
^DD(601.71,.01,1,1,1)="S ^YTT(601.71,""B"",X,DA)="""""
^DD(601.71,.01,1,1,2)="K ^YTT(601.71,""B"",X,DA)"
^DD(601.71,.01,1,1,"DT")="3040212"
^DD(601.71,.01,3)="Answer must be 3-50 characters in length."
^DD(601.71,.01,21,0)="^.001^3^3^3050223^^^^"
^DD(601.71,.01,21,1,0)="Name of the interview, survey or test. Often its abbreviation is used here"
^DD(601.71,.01,21,2,0)="eg. BDI2 instead of Beck Depression Inventory-2.  Each test needs an unique"
^DD(601.71,.01,21,3,0)="name."
^DD(601.71,.01,"DT")="3040212"
^DD(601.71,2,0)="PRINT TITLE^F^^0;3^K:$L(X)>100!($L(X)<3) X"
^DD(601.71,2,3)="Answer must be 3-100 characters in length."
^DD(601.71,2,21,0)="^.001^2^2^3050223^^^^"
^DD(601.71,2,21,1,0)="This is the full formal name of the interview, survey or test. It does not"
^DD(601.71,2,21,2,0)="contain leading or trailing characters."
^DD(601.71,2,"DT")="3021213"
^DD(601.71,3,0)="VERSION^F^^1;1^K:$L(X)>50!($L(X)<1) X"
^DD(601.71,3,3)="Answer must be 1-50 characters in length."
^DD(601.71,3,21,0)="^.001^2^2^3040621^^^^"
^DD(601.71,3,21,1,0)="Test publishers often give a version number to a published test. This "
^DD(601.71,3,21,2,0)="field does not imply VA software versioning."
^DD(601.71,3,"DT")="3021213"
^DD(601.71,4,0)="AUTHOR^F^^1;2^K:$L(X)>100!($L(X)<1) X"
^DD(601.71,4,3)="Answer must be 1-100 characters in length."
^DD(601.71,4,21,0)="^.001^3^3^3040621^^"
^DD(601.71,4,21,1,0)="This field indicates the author of the interview, survey or test.  It is "
^DD(601.71,4,21,2,0)="meant to credit the test author and not the software author or the person "
^DD(601.71,4,21,3,0)="who entered this description. Aaron Beck is the Author of the BDI."
^DD(601.71,4,"DT")="3060918"
^DD(601.71,4,"V",0)="^.12P"
^DD(601.71,5,0)="PUBLISHER^F^^1;3^K:$L(X)>50!($L(X)<1) X"
^DD(601.71,5,3)="Answer must be 1-50 characters in length."
^DD(601.71,5,21,0)="^.001^2^2^3040506^^^"
^DD(601.71,5,21,1,0)="This is the name of the publisher of the test. Psychological Corporation "
^DD(601.71,5,21,2,0)="is the publisher of the WAIS-R."
^DD(601.71,5,"DT")="3021213"
^DD(601.71,7,0)="PUBLICATION DATE^D^^1;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(601.71,7,21,0)="^.001^1^1^3040506^^^"
^DD(601.71,7,21,1,0)="Date of formal publication; often the copyright date"
^DD(601.71,7,"DT")="3021213"
^DD(601.71,7.5,0)="REFERENCE^F^^8;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.71,7.5,3)="Answer must be 1-200 characters in length."
^DD(601.71,7.5,21,0)="^.001^1^1^3040506^^^"
^DD(601.71,7.5,21,1,0)="This is the primary journal citation for the test."
^DD(601.71,7.5,"DT")="3030506"
^DD(601.71,8,0)="A PRIVILEGE^F^^1;6^K:$L(X)>15!($L(X)<3) X"
^DD(601.71,8,3)="Answer must be 3-15 characters in length."
^DD(601.71,8,21,0)="^.001^2^2^3070220^^^^"
^DD(601.71,8,21,1,0)="Pointer to the SECURITY KEY file (#19.1). If not null, only those users "
^DD(601.71,8,21,2,0)="holding the specified key can administer the instrument."
^DD(601.71,8,"DT")="3070222"
^DD(601.71,9,0)="R PRIVILEGE^F^^2;1^K:$L(X)>15!($L(X)<3) X"
^DD(601.71,9,3)="Answer must be 3-15 characters in length."
^DD(601.71,9,21,0)="^.001^2^2^3070220^^^^"
^DD(601.71,9,21,1,0)="Pointer to the SECURITY KEY file (#19.1). If not null, only those users"
^DD(601.71,9,21,2,0)="holding the specified key can produce a report of the instrument."
^DD(601.71,9,"DT")="3070222"
^DD(601.71,10,0)="OPERATIONAL^S^Y:Yes;N:No;U:Under Development;C:Clinical Reminder;D:Dropped;^2;2^Q"
^DD(601.71,10,21,0)="^.001^4^4^3061101^^^^"
^DD(601.71,10,21,1,0)="This field allows an instrument to be ""taken out of service"". If set to "
^DD(601.71,10,21,2,0)="'N' this instrument can no longer be administered and will not show on "
^DD(601.71,10,21,3,0)="selection lists. Reports of old administrations remain available. If set "
^DD(601.71,10,21,4,0)="to U instrument will be tagged Under Development."
^DD(601.71,10,"DT")="3061101"
^DD(601.71,10.5,0)="HAS BEEN OPERATIONAL^S^Y:Yes;N:No;^2;5^Q"
^DD(601.71,10.5,21,0)="^.001^2^2^3050308^^"
^DD(601.71,10.5,21,1,0)="Used to define editing privileges, this field is set to yes when test is "
^DD(601.71,10.5,21,2,0)="first used to collect patient data."
^DD(601.71,10.5,"DT")="3040903"
^DD(601.71,11,0)="REQUIRES LICENSE^RS^Y:Yes;N:No;^2;3^Q"
^DD(601.71,11,3)=""
^DD(601.71,11,21,0)="^.001^2^2^3060117^^^^"
^DD(601.71,11,21,1,0)="Specifies if the rights to test usage needs to be granted by a copyright "
^DD(601.71,11,21,2,0)="holder."
^DD(601.71,11,"DT")="3040127"
^DD(601.71,12,0)="PURPOSE^F^^3;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.71,12,3)="Answer must be 1-200 characters in length."
^DD(601.71,12,21,0)="^^1^1^3040511^"
^DD(601.71,12,21,1,0)="Description of what the test measures."
^DD(601.71,12,"DT")="3021213"
^DD(601.71,13,0)="NORM SAMPLE^F^^4;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.71,13,3)="Answer must be 1-200 characters in length."
^DD(601.71,13,21,0)="^.001^2^2^3040506^^^"
^DD(601.71,13,21,1,0)="On what population was the normative data gathered ;ie. prisoners, "
^DD(601.71,13,21,2,0)="inpatients, college students."
^DD(601.71,13,"DT")="3021213"
^DD(601.71,14,0)="TARGET POPULATION^F^^5;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.71,14,3)="Answer must be 1-200 characters in length."
^DD(601.71,14,21,0)="^^2^2^3040511^"
^DD(601.71,14,21,1,0)="Which population is appropriate for measuring, ie vocational job seekers,"
^DD(601.71,14,21,2,0)="combat veterans, etc"
^DD(601.71,14,"DT")="3030501"
^DD(601.71,15,0)="ENTERED BY^F^^6;1^K:$L(X)>50!($L(X)<1) X"
^DD(601.71,15,3)="Answer must be 1-50 characters in length."
^DD(601.71,15,21,0)="^.001^1^1^3040621^^^^"
^DD(601.71,15,21,1,0)="User who entered the information about the instrument."
^DD(601.71,15,"DT")="3021213"
^DD(601.71,16,0)="ENTRY DATE^D^^6;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(601.71,16,21,0)="^.001^1^1^3050308^^^^"
^DD(601.71,16,21,1,0)="Date instrument was added to the system."
^DD(601.71,16,"DT")="3021213"
^DD(601.71,17,0)="LAST EDITED BY^F^^6;3^K:$L(X)>50!($L(X)<1) X"
^DD(601.71,17,3)="Answer must be 1-50 characters in length."
^DD(601.71,17,21,0)="^.001^1^1^3040506^^^"
^DD(601.71,17,21,1,0)="User who last edited this record."
^DD(601.71,17,"DT")="3021213"
^DD(601.71,18,0)="LAST EDIT DATE^RD^^6;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(601.71,18,21,0)="^.001^1^1^3040506^^^"
^DD(601.71,18,21,1,0)="Date and time of last change to this record."
^DD(601.71,18,"DT")="3030429"
^DD(601.71,19,0)="IS NATIONAL TEST^S^Y:Yes;N:No;^6;5^Q"
^DD(601.71,19,21,0)="^.001^2^2^3040903^^"
^DD(601.71,19,21,1,0)="Specifies if instrument supported and distributed by the MHSHG informatics"
^DD(601.71,19,21,2,0)="section as opposed to those locally developed."
^DD(601.71,19,"DT")="3040127"
^DD(601.71,20,0)="LICENSE CURRENT^S^Y:Yes;N:No;^2;4^Q"
^DD(601.71,20,3)=""
^DD(601.71,20,21,0)="^^2^2^3040512^"
^DD(601.71,20,21,1,0)="If set to N indicates there is no longer an agreement with the publisher"
^DD(601.71,20,21,2,0)="to use this test."
^DD(601.71,20,"DT")="3040127"
^DD(601.71,21,0)="COPYRIGHT TEXT^F^^7;1^K:$L(X)>250!($L(X)<2) X"
^DD(601.71,21,3)="Answer must be 2-250 characters in length."
^DD(601.71,21,21,0)="^.001^1^1^3040512^^"
^DD(601.71,21,21,1,0)="Text to display copyright information on the screen and printed report."
^DD(601.71,21,"DT")="3040317"
^DD(601.71,22,0)="REQUIRES SIGNATURE^RS^Y:Yes;N:No;^8;2^Q"
^DD(601.71,22,3)=""
^DD(601.71,22,21,0)="^.001^1^1^3050308^^"
^DD(601.71,22,21,1,0)="Boolean if test requires signature before full release."
^DD(601.71,22,"DT")="3040127"
^DD(601.71,23,0)="IS LEGACY^S^Y:Yes;N:No;^8;3^Q"
^DD(601.71,23,21,0)="^^1^1^3050223^"
^DD(601.71,23,21,1,0)="Boolean to specify whether test was in the MH Instruments file (#601)."
^DD(601.71,23,"DT")="3050223"
^DD(601.71,24,0)="SUBMIT TO NATIONAL DB^S^Y:Yes;N:No;^8;4^Q"
^DD(601.71,24,21,0)="^^2^2^3040507^"
^DD(601.71,24,21,1,0)="Boolean to use messaging to send results to the national MHSHG database. "
^DD(601.71,24,21,2,0)="Set only by MHSHG."
^DD(601.71,24,"DT")="3040127"
^DD(601.71,25,0)="IS COPYRIGHTED^S^Y:Yes;N:No;^8;5^Q"
^DD(601.71,25,21,0)="^^1^1^3040513^"
^DD(601.71,25,21,1,0)="Boolean specifying whether the instrument is copyrighted."
^DD(601.71,25,"DT")="3040317"
^DD(601.71,26,0)="WRITE FULL TEXT^S^Y:Yes;N:No;^8;6^Q"
^DD(601.71,26,21,0)="^^1^1^3040507^"
^DD(601.71,26,21,1,0)="Boolean, if set to true, actual question text is shown on reports."
^DD(601.71,26,"DT")="3040317"
^DD(601.71,27,0)="DAYS TO RESTART^NJ3,0^^8;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.71,27,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(601.71,27,21,0)="^^3^3^3041105^"
^DD(601.71,27,21,1,0)="This field sets a limit on finishing a previously started instrument."
^DD(601.71,27,21,2,0)="Set to zero if re-start is not allowed. Leave empty if instrument can be"
^DD(601.71,27,21,3,0)="completed at any time."
^DD(601.71,27,"DT")="3041105"
^DD(601.71,"B","A PRIVILEGE",8)=""
^DD(601.71,"B","AUTHOR",4)=""
^DD(601.71,"B","COPYRIGHT TEXT",21)=""
^DD(601.71,"B","DAYS TO RESTART",27)=""
^DD(601.71,"B","ENTERED BY",15)=""
^DD(601.71,"B","ENTRY DATE",16)=""
^DD(601.71,"B","HAS BEEN OPERATIONAL",10.5)=""
^DD(601.71,"B","IS COPYRIGHTED",25)=""
^DD(601.71,"B","IS LEGACY",23)=""
^DD(601.71,"B","IS NATIONAL TEST",19)=""
^DD(601.71,"B","LAST EDIT DATE",18)=""
^DD(601.71,"B","LAST EDITED BY",17)=""
^DD(601.71,"B","LICENSE CURRENT",20)=""
^DD(601.71,"B","NAME",.01)=""
^DD(601.71,"B","NORM SAMPLE",13)=""
^DD(601.71,"B","OPERATIONAL",10)=""
^DD(601.71,"B","PRINT TITLE",2)=""
^DD(601.71,"B","PUBLICATION DATE",7)=""
^DD(601.71,"B","PUBLISHER",5)=""
^DD(601.71,"B","PURPOSE",12)=""
^DD(601.71,"B","R PRIVILEGE",9)=""
^DD(601.71,"B","REFERENCE",7.5)=""
^DD(601.71,"B","REQUIRES LICENSE",11)=""
^DD(601.71,"B","REQUIRES SIGNATURE",22)=""
^DD(601.71,"B","SUBMIT TO NATIONAL DB",24)=""
^DD(601.71,"B","TARGET POPULATION",14)=""
^DD(601.71,"B","VERSION",3)=""
^DD(601.71,"B","WRITE FULL TEXT",26)=""
^DD(601.71,"GL",0,1,.01)=""
^DD(601.71,"GL",0,3,2)=""
^DD(601.71,"GL",1,1,3)=""
^DD(601.71,"GL",1,2,4)=""
^DD(601.71,"GL",1,3,5)=""
^DD(601.71,"GL",1,5,7)=""
^DD(601.71,"GL",1,6,8)=""
^DD(601.71,"GL",2,1,9)=""
^DD(601.71,"GL",2,2,10)=""
^DD(601.71,"GL",2,3,11)=""
^DD(601.71,"GL",2,4,20)=""
^DD(601.71,"GL",2,5,10.5)=""
^DD(601.71,"GL",3,1,12)=""
^DD(601.71,"GL",4,1,13)=""
^DD(601.71,"GL",5,1,14)=""
^DD(601.71,"GL",6,1,15)=""
^DD(601.71,"GL",6,2,16)=""
^DD(601.71,"GL",6,3,17)=""
^DD(601.71,"GL",6,4,18)=""
^DD(601.71,"GL",6,5,19)=""
^DD(601.71,"GL",7,1,21)=""
^DD(601.71,"GL",8,1,7.5)=""
^DD(601.71,"GL",8,2,22)=""
^DD(601.71,"GL",8,3,23)=""
^DD(601.71,"GL",8,4,24)=""
^DD(601.71,"GL",8,5,25)=""
^DD(601.71,"GL",8,6,26)=""
^DD(601.71,"GL",8,7,27)=""
^DD(601.71,"IX",.01)=""
^DD(601.71,"RQ",.01)=""
^DD(601.71,"RQ",11)=""
^DD(601.71,"RQ",18)=""
^DD(601.71,"RQ",22)=""
^DD(601.72,0)="FIELD^^8^9"
^DD(601.72,0,"DDA")="N"
^DD(601.72,0,"DT")="3040325"
^DD(601.72,0,"IX","ACT",601.72,4)=""
^DD(601.72,0,"IX","B",601.72,.01)=""
^DD(601.72,0,"NM","MH QUESTIONS")=""
^DD(601.72,0,"PT",601.76,3)=""
^DD(601.72,0,"PT",601.79,3)=""
^DD(601.72,0,"PT",601.81,2)=""
^DD(601.72,0,"PT",601.82,1)=""
^DD(601.72,0,"PT",601.82,6)=""
^DD(601.72,0,"PT",601.83,2)=""
^DD(601.72,0,"PT",601.85,2)=""
^DD(601.72,0,"PT",601.91,2)=""
^DD(601.72,0,"VR")="5.01"
^DD(601.72,0,"VRPK")="YS"
^DD(601.72,.01,0)="QUESTION NUMBER^RNJ1,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.72) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.72,.01,1,0)="^.1"
^DD(601.72,.01,1,1,0)="601.72^B"
^DD(601.72,.01,1,1,1)="S ^YTT(601.72,""B"",$E(X,1,30),DA)="""""
^DD(601.72,.01,1,1,2)="K ^YTT(601.72,""B"",$E(X,1,30),DA)"
^DD(601.72,.01,3)="enter NEW to add an entry"
^DD(601.72,.01,21,0)="^.001^3^3^3040511^^"
^DD(601.72,.01,21,1,0)="Unique internal identifier of Questions. This is the IEN. All entries "
^DD(601.72,.01,21,2,0)="below 100,000 are national database entries and should not be edited at "
^DD(601.72,.01,21,3,0)="the local level."
^DD(601.72,.01,"DT")="3021217"
^DD(601.72,1,0)="QUESTION TEXT^601.721^^1;0"
^DD(601.72,1,21,0)="^.001^1^1^3051101^^^^"
^DD(601.72,1,21,1,0)="Word processing text of the Question."
^DD(601.72,2,0)="INTRODUCTION^P601.73^YTT(601.73,^2;1^Q"
^DD(601.72,2,1,0)="^.1^^0"
^DD(601.72,2,21,0)="^.001^2^2^3050308^^"
^DD(601.72,2,21,1,0)="Pointer to the MH Introduction file (#601.73), to associate the question with "
^DD(601.72,2,21,2,0)="an introduction."
^DD(601.72,2,"DT")="3060215"
^DD(601.72,3,0)="RESPONSE TYPE^P601.74^YTT(601.74,^2;2^Q"
^DD(601.72,3,21,0)="^^2^2^3050308^^"
^DD(601.72,3,21,1,0)="Specifies which response type is expected. This is a pointer to the RESPONSE "
^DD(601.72,3,21,2,0)="TYPE NUMNER field (#.01) of the MH RESPONSE TYPES file (#601.74)."
^DD(601.72,3,"DT")="3050308"
^DD(601.72,4,0)="CHOICETYPE^F^^2;3^K:$L(X)>8!($L(X)<1) X"
^DD(601.72,4,1,0)="^.1"
^DD(601.72,4,1,1,0)="601.72^ACT"
^DD(601.72,4,1,1,1)="S ^YTT(601.72,""ACT"",$E(X,1,30),DA)="""""
^DD(601.72,4,1,1,2)="K ^YTT(601.72,""ACT"",$E(X,1,30),DA)"
^DD(601.72,4,1,1,"DT")="3031107"
^DD(601.72,4,3)="Answer must be 1-8 characters in length."
^DD(601.72,4,21,0)="^^1^1^3040511^"
^DD(601.72,4,21,1,0)="Specifies a set of choices available as answers to this question."
^DD(601.72,4,"DT")="3031113"
^DD(601.72,5,0)="MIN^NJ6,0^^2;4^K:+X'=X!(X>100000)!(X<-100000)!(X?.E1"".""1N.N) X"
^DD(601.72,5,3)="Type a Number between -100000 and 100000, 0 Decimal Digits"
^DD(601.72,5,21,0)="^^1^1^3040511^"
^DD(601.72,5,21,1,0)="A minimum number that is accepted as an answer to a numeric question."
^DD(601.72,5,"DT")="3040422"
^DD(601.72,6,0)="MAX^NJ6,0^^2;5^K:+X'=X!(X>100000)!(X<-100000)!(X?.E1"".""1N.N) X"
^DD(601.72,6,3)="Type a Number between -100000 and 100000, 0 Decimal Digits"
^DD(601.72,6,21,0)="^^1^1^3040507^"
^DD(601.72,6,21,1,0)="A maximum number that is accepted as an answer to a numeric question."
^DD(601.72,6,"DT")="3040325"
^DD(601.72,7,0)="IS REQUIRED^S^Y:Yes;N:No;^2;6^Q"
^DD(601.72,7,21,0)="^.001^1^1^3050812^^"
^DD(601.72,7,21,1,0)="Can the question be skipped."
^DD(601.72,7,"DT")="3040127"
^DD(601.72,8,0)="HINT^F^^2;7^K:$L(X)>50!($L(X)<1) X"
^DD(601.72,8,3)="Answer must be 1-50 characters in length."
^DD(601.72,8,21,0)="^^2^2^3040512^"
^DD(601.72,8,21,1,0)="Short text that shows on the display when answering a question. This is "
^DD(601.72,8,21,2,0)="often a prompt or explanation."
^DD(601.72,8,"DT")="3021216"
^DD(601.72,"B","CHOICETYPE",4)=""
^DD(601.72,"B","HINT",8)=""
^DD(601.72,"B","INTRODUCTION",2)=""
^DD(601.72,"B","IS REQUIRED",7)=""
^DD(601.72,"B","MAX",6)=""
^DD(601.72,"B","MIN",5)=""
^DD(601.72,"B","QUESTION NUMBER",.01)=""
^DD(601.72,"B","QUESTION TEXT",1)=""
^DD(601.72,"B","RESPONSE TYPE",3)=""
^DD(601.72,"GL",0,1,.01)=""
^DD(601.72,"GL",1,0,1)=""
^DD(601.72,"GL",2,1,2)=""
^DD(601.72,"GL",2,2,3)=""
^DD(601.72,"GL",2,3,4)=""
^DD(601.72,"GL",2,4,5)=""
^DD(601.72,"GL",2,5,6)=""
^DD(601.72,"GL",2,6,7)=""
^DD(601.72,"GL",2,7,8)=""
^DD(601.72,"IX",.01)=""
^DD(601.72,"IX",4)=""
^DD(601.72,"RQ",.01)=""
^DD(601.72,"SB",601.721,1)=""
^DD(601.721,0)="QUESTION TEXT SUB-FIELD^^.01^1"
^DD(601.721,0,"DT")="3030910"
^DD(601.721,0,"NM","QUESTION TEXT")=""
^DD(601.721,0,"UP")="601.72"
^DD(601.721,.01,0)="QUESTION TEXT^W^^0;1^Q"
^DD(601.721,.01,"DT")="3030910"
^DD(601.721,"B","QUESTION TEXT",.01)=""
^DD(601.721,"GL",0,1,.01)=""
^DD(601.73,0)="FIELD^^1^2"
^DD(601.73,0,"DDA")="N"
^DD(601.73,0,"DT")="3030905"
^DD(601.73,0,"IX","B",601.73,.01)=""
^DD(601.73,0,"NM","MH INTRODUCTIONS")=""
^DD(601.73,0,"PT",601.72,2)=""
^DD(601.73,0,"VR")="5.01"
^DD(601.73,0,"VRPK")="YS"
^DD(601.73,.01,0)="INTRODUCTION NUMBER^RNJ8,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.73) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.73,.01,1,0)="^.1"
^DD(601.73,.01,1,1,0)="601.73^B"
^DD(601.73,.01,1,1,1)="S ^YTT(601.73,""B"",$E(X,1,30),DA)="""""
^DD(601.73,.01,1,1,2)="K ^YTT(601.73,""B"",$E(X,1,30),DA)"
^DD(601.73,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(601.73,.01,21,0)="^^3^3^3040511^"
^DD(601.73,.01,21,1,0)="This is the unique identifier for this Introduction. It is the IEN. All "
^DD(601.73,.01,21,2,0)="numbers below 100,000 are in the national database and should not be "
^DD(601.73,.01,21,3,0)="edited locally."
^DD(601.73,.01,"DT")="3030724"
^DD(601.73,1,0)="INTRODUCTION TEXT^601.731^^1;0"
^DD(601.73,1,21,0)="^.001^1^1^3050308^^^"
^DD(601.73,1,21,1,0)="Actual text of the introduction."
^DD(601.73,"B","INTRODUCTION NUMBER",.01)=""
^DD(601.73,"B","INTRODUCTION TEXT",1)=""
^DD(601.73,"GL",0,1,.01)=""
^DD(601.73,"GL",1,0,1)=""
^DD(601.73,"IX",.01)=""
^DD(601.73,"RQ",.01)=""
^DD(601.73,"SB",601.731,1)=""
^DD(601.731,0)="INTRODUCTION TEXT SUB-FIELD^^.01^1"
^DD(601.731,0,"DT")="3030905"
^DD(601.731,0,"NM","INTRODUCTION TEXT")=""
^DD(601.731,0,"UP")="601.73"
^DD(601.731,.01,0)="INTRODUCTION TEXT^W^^0;1^Q"
^DD(601.731,.01,"DT")="3030905"
^DD(601.731,"B","INTRODUCTION TEXT",.01)=""
^DD(601.731,"GL",0,1,.01)=""
^DD(601.74,0)="FIELD^^1^2"
^DD(601.74,0,"DDA")="N"
^DD(601.74,0,"DT")="3021216"
^DD(601.74,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(601.74,0,"IX","B",601.74,.01)=""
^DD(601.74,0,"NM","MH RESPONSE TYPES")=""
^DD(601.74,0,"PT",601.72,3)=""
^DD(601.74,0,"VR")="5.01"
^DD(601.74,0,"VRPK")="YS"
^DD(601.74,.01,0)="RESPONSE TYPE NUMBER^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.74) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.74,.01,1,0)="^.1"
^DD(601.74,.01,1,1,0)="601.74^B"
^DD(601.74,.01,1,1,1)="S ^YTT(601.74,""B"",$E(X,1,30),DA)="""""
^DD(601.74,.01,1,1,2)="K ^YTT(601.74,""B"",$E(X,1,30),DA)"
^DD(601.74,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.74,.01,21,0)="^^2^2^3040511^"
^DD(601.74,.01,21,1,0)="This is the unique identifier for response type. Response types should not"
^DD(601.74,.01,21,2,0)="be edited at a local level."
^DD(601.74,.01,"DT")="3030724"
^DD(601.74,1,0)="RESPONSE TYPE^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(601.74,1,3)="Answer must be 1-20 characters in length."
^DD(601.74,1,21,0)="^.001^2^2^3050308^^"
^DD(601.74,1,21,1,0)="Response types include: MCHOICE (multiple choice), Integer, String,"
^DD(601.74,1,21,2,0)="Date, Memo, and Currency."
^DD(601.74,1,"DT")="3021216"
^DD(601.74,"B","RESPONSE TYPE",1)=""
^DD(601.74,"B","RESPONSE TYPE NUMBER",.01)=""
^DD(601.74,"GL",0,1,.01)=""
^DD(601.74,"GL",0,2,1)=""
^DD(601.74,"IX",.01)=""
^DD(601.74,"RQ",.01)=""
^DD(601.75,0)="FIELD^^4^3"
^DD(601.75,0,"DDA")="N"
^DD(601.75,0,"DT")="3030918"
^DD(601.75,0,"ID",3)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(601.75,0,"IX","AU",601.75,3)=""
^DD(601.75,0,"IX","B",601.75,.01)=""
^DD(601.75,0,"IX","C",601.75,3)=""
^DD(601.75,0,"NM","MH CHOICES")=""
^DD(601.75,0,"PT",601.751,2)=""
^DD(601.75,0,"PT",601.85,4)=""
^DD(601.75,0,"VR")="5.01"
^DD(601.75,0,"VRPK")="YS"
^DD(601.75,.01,0)="CHOICES NUMBER^RNJ4,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.75) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.75,.01,1,0)="^.1"
^DD(601.75,.01,1,1,0)="601.75^B"
^DD(601.75,.01,1,1,1)="S ^YTT(601.75,""B"",$E(X,1,30),DA)="""""
^DD(601.75,.01,1,1,2)="K ^YTT(601.75,""B"",$E(X,1,30),DA)"
^DD(601.75,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(601.75,.01,21,0)="^^3^3^3040511^"
^DD(601.75,.01,21,1,0)="This is the unique identifier for the choice. It is the IEN. Numbers under"
^DD(601.75,.01,21,2,0)="100,000 are part of the national database and may not be edited at the "
^DD(601.75,.01,21,3,0)="local level."
^DD(601.75,.01,"DT")="3030724"
^DD(601.75,3,0)="CHOICE TEXT^F^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(601.75,3,1,0)="^.1"
^DD(601.75,3,1,1,0)="601.75^C^MUMPS"
^DD(601.75,3,1,1,1)="S ^YTT(601.75,""C"",$E(X,1,200),DA)="""""
^DD(601.75,3,1,1,2)="K ^YTT(601.75,""C"",$E(X,1,200),DA)"
^DD(601.75,3,1,1,"DT")="3080913"
^DD(601.75,3,1,2,0)="601.75^AU^MUMPS"
^DD(601.75,3,1,2,1)="X ^DD(""FUNC"",13,1) S ^YTT(601.75,""AU"",$E(X,1,200),DA)="""""
^DD(601.75,3,1,2,2)="X ^DD(""FUNC"",13,1) K ^YTT(601.75,""AU"",$E(X,1,200),DA)"
^DD(601.75,3,1,2,"DT")="3080913"
^DD(601.75,3,3)="Answer must be 1-240 characters in length."
^DD(601.75,3,21,0)="^^2^2^3040507^"
^DD(601.75,3,21,1,0)="Text of the alternative in a multiple choice test, eg. True, None of the "
^DD(601.75,3,21,2,0)="Above."
^DD(601.75,3,"DT")="3080913"
^DD(601.75,4,0)="LEGACY VALUE^F^^0;2^K:$L(X)>1!($L(X)<1) X"
^DD(601.75,4,3)="Answer must be 1 character in length."
^DD(601.75,4,21,0)="^.001^2^2^3050308^^"
^DD(601.75,4,21,1,0)="If instrument was defined in MH INSTRUMENTS file (#601), the single value "
^DD(601.75,4,21,2,0)="character that would be stored in the PSYCH INSTRUMENT PATIENT file (#601.2). "
^DD(601.75,4,"DT")="3050223"
^DD(601.75,"B","CHOICE TEXT",3)=""
^DD(601.75,"B","CHOICES NUMBER",.01)=""
^DD(601.75,"B","LEGACY VALUE",4)=""
^DD(601.75,"GL",0,1,.01)=""
^DD(601.75,"GL",0,2,4)=""
^DD(601.75,"GL",1,1,3)=""
^DD(601.75,"IX",.01)=""
^DD(601.75,"IX",3)=""
^DD(601.75,"RQ",.01)=""
^DD(601.751,0)="FIELD^^3^4"
^DD(601.751,0,"DDA")="N"
^DD(601.751,0,"DT")="3030912"
^DD(601.751,0,"IX","ACT",601.751,2)=""
^DD(601.751,0,"IX","B",601.751,.01)=""
^DD(601.751,0,"NM","MH CHOICETYPES")=""
^DD(601.751,0,"VR")="5.01"
^DD(601.751,0,"VRPK")="YS"
^DD(601.751,.01,0)="CHOICETYPE ID^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.751,.01,1,0)="^.1^^-1"
^DD(601.751,.01,1,1,0)="601.751^B"
^DD(601.751,.01,1,1,1)="S ^YTT(601.751,""B"",$E(X,1,30),DA)="""""
^DD(601.751,.01,1,1,2)="K ^YTT(601.751,""B"",$E(X,1,30),DA)"
^DD(601.751,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.751,.01,21,0)="^^1^1^3040507^"
^DD(601.751,.01,21,1,0)="This is the NON-unique identifier for the ChoiceType."
^DD(601.751,.01,"DT")="3031114"
^DD(601.751,1,0)="SEQUENCE^RNJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.751,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(601.751,1,21,0)="^.001^1^1^3040507^^^"
^DD(601.751,1,21,1,0)="Order in which the Choice alternative is displayed."
^DD(601.751,1,"DT")="3031114"
^DD(601.751,2,0)="CHOICE ID^RP601.75'^YTT(601.75,^0;3^Q"
^DD(601.751,2,1,0)="^.1"
^DD(601.751,2,1,1,0)="601.751^ACT"
^DD(601.751,2,1,1,1)="S ^YTT(601.751,""ACT"",$E(X,1,30),DA)="""""
^DD(601.751,2,1,1,2)="K ^YTT(601.751,""ACT"",$E(X,1,30),DA)"
^DD(601.751,2,1,1,"DT")="3031114"
^DD(601.751,2,3)=""
^DD(601.751,2,21,0)="^^2^2^3050223^"
^DD(601.751,2,21,1,0)="Pointer to the MH CHOICES file (#601.75) to associate a choice with this"
^DD(601.751,2,21,2,0)="choice type."
^DD(601.751,2,"DT")="3050223"
^DD(601.751,3,0)="CHOICE TEXT^CJ50^^ ; ^X ^DD(601.751,3,9.2) S Y(601.751,3,101)=$S($D(^YTT(601.75,D0,1)):^(1),1:"""") S X=$P(Y(601.751,3,101),U,1) S D0=Y(601.751,3,80)"
^DD(601.751,3,9)="^"
^DD(601.751,3,9.01)="601.75^3;601.751^2"
^DD(601.751,3,9.1)="CHOICE ID:MH CHOICES:CHOICE TEXT"
^DD(601.751,3,9.2)="S Y(601.751,3,80)=$G(D0),Y(601.751,3,1)=$S($D(^YTT(601.751,D0,0)):^(0),1:"""") S X=$P(Y(601.751,3,1),U,3) K DIC S DIC=""^YTT(601.75,"",DIC(0)=""MF"" D ^DIC S (D,D0)=+Y"
^DD(601.751,3,21,0)="^.001^1^1^3040507^^"
^DD(601.751,3,21,1,0)="DISPLAYS choices text via this computed field"
^DD(601.751,3,"DT")="3030911"
^DD(601.751,"B","CHOICE ID",2)=""
^DD(601.751,"B","CHOICE TEXT",3)=""
^DD(601.751,"B","CHOICETYPE ID",.01)=""
^DD(601.751,"B","SEQUENCE",1)=""
^DD(601.751,"GL",0,1,.01)=""
^DD(601.751,"GL",0,2,1)=""
^DD(601.751,"GL",0,3,2)=""
^DD(601.751,"IX",.01)=""
^DD(601.751,"IX",2)=""
^DD(601.751,"RQ",.01)=""
^DD(601.751,"RQ",1)=""
^DD(601.751,"RQ",2)=""
^DD(601.76,0)="FIELD^^9^10"
^DD(601.76,0,"DDA")="N"
^DD(601.76,0,"DT")="3031230"
^DD(601.76,0,"IX","AC",601.76,1)=""
^DD(601.76,0,"IX","AE",601.76,3)=""
^DD(601.76,0,"IX","B",601.76,.01)=""
^DD(601.76,0,"NM","MH INSTRUMENT CONTENT")=""
^DD(601.76,0,"VR")="5.01"
^DD(601.76,0,"VRPK")="YS"
^DD(601.76,.01,0)="INSTRUMENT CONTENT ID^RNJ5,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.76) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.76,.01,1,0)="^.1"
^DD(601.76,.01,1,1,0)="601.76^B"
^DD(601.76,.01,1,1,1)="S ^YTT(601.76,""B"",$E(X,1,30),DA)="""""
^DD(601.76,.01,1,1,2)="K ^YTT(601.76,""B"",$E(X,1,30),DA)"
^DD(601.76,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(601.76,.01,21,0)="^.001^3^3^3040512^^^^"
^DD(601.76,.01,21,1,0)="This is a unique identifier for this Instrument Content. This is the IEN. "
^DD(601.76,.01,21,2,0)="Numbers under 100,000 are part of the national database and should not be "
^DD(601.76,.01,21,3,0)="edited locally."
^DD(601.76,.01,"DT")="3040512"
^DD(601.76,1,0)="INSTRUMENT^RP601.71'^YTT(601.71,^0;2^Q"
^DD(601.76,1,1,0)="^.1"
^DD(601.76,1,1,1,0)="601.76^AC"
^DD(601.76,1,1,1,1)="S ^YTT(601.76,""AC"",$E(X,1,30),DA)="""""
^DD(601.76,1,1,1,2)="K ^YTT(601.76,""AC"",$E(X,1,30),DA)"
^DD(601.76,1,1,1,"DT")="3021218"
^DD(601.76,1,21,0)="^^2^2^3050223^"
^DD(601.76,1,21,1,0)="A pointer to the MH TESTS AND SURVEYS file (#601.71). This associates"
^DD(601.76,1,21,2,0)="questions to their instrument."
^DD(601.76,1,"DT")="3051118"
^DD(601.76,2,0)="QUESTION SEQUENCE^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.76,2,1,0)="^.1^^0"
^DD(601.76,2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(601.76,2,21,0)="^.001^1^1^3040513^^"
^DD(601.76,2,21,1,0)="Order of the question in the instruments."
^DD(601.76,2,"DT")="3031015"
^DD(601.76,3,0)="QUESTION ID^P601.72'^YTT(601.72,^0;4^Q"
^DD(601.76,3,1,0)="^.1"
^DD(601.76,3,1,1,0)="601.76^AE"
^DD(601.76,3,1,1,1)="S ^YTT(601.76,""AE"",$E(X,1,30),DA)="""""
^DD(601.76,3,1,1,2)="K ^YTT(601.76,""AE"",$E(X,1,30),DA)"
^DD(601.76,3,1,1,"DT")="3050311"
^DD(601.76,3,21,0)="^^2^2^3050223^"
^DD(601.76,3,21,1,0)="Pointer to the MH QUESTIONS file (#601.72). It associates instruments to "
^DD(601.76,3,21,2,0)="their questions."
^DD(601.76,3,"DT")="3051118"
^DD(601.76,4,0)="DESIGNATOR^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(601.76,4,3)="Answer must be 1-50 characters in length."
^DD(601.76,4,21,0)="^^2^2^3040512^"
^DD(601.76,4,21,1,0)="The ""number"" (e.g., ""1"", ""F2"", ""1.2.a"") displayed along with the question"
^DD(601.76,4,21,2,0)="text."
^DD(601.76,4,"DT")="3021217"
^DD(601.76,5,0)="QUESTION TEXT^Cmw^^ ; ^X ^DD(601.76,5,9.3) X ^DD(601.76,5,9.2):D0>0 S X="""" S D0=Y(601.76,5,80) S D1=Y(601.76,5,181)"
^DD(601.76,5,9)="^"
^DD(601.76,5,9.01)="601.72^1;601.76^3"
^DD(601.76,5,9.1)="3:1"
^DD(601.76,5,9.2)="F D=0:0 S (D,D1)=$O(^YTT(601.72,D0,1,D)) Q:D'>0  I $D(^(D,0))#2 S X=^(0) X DICMX Q:'$D(D)  S D=D1"
^DD(601.76,5,9.3)="S Y(601.76,5,80)=$G(D0),Y(601.76,5,1)=$S($D(^YTT(601.76,D0,0)):^(0),1:""""),D0=$P(Y(601.76,5,1),U,4) S:'D0!'$D(^YTT(601.72,+D0,0)) D0=-1 S Y(601.76,5,181)=$G(D1)"
^DD(601.76,5,21,0)="^^1^1^3040507^"
^DD(601.76,5,21,1,0)="Allows display of question text through this computed field."
^DD(601.76,6,0)="CHOICETYPE^CJ8^^ ; ^X ^DD(601.76,6,9.2) S Y(601.76,6,101)=$S($D(^YTT(601.72,D0,2)):^(2),1:"""") S X=$P($G(^YTT(601.751,+$P(Y(601.76,6,101),U,3),0)),U) S D0=Y(601.76,6,80)"
^DD(601.76,6,9)="^"
^DD(601.76,6,9.01)="601.72^4;601.76^3"
^DD(601.76,6,9.1)="QUESTION ID:4"
^DD(601.76,6,9.2)="S Y(601.76,6,80)=$G(D0),Y(601.76,6,1)=$S($D(^YTT(601.76,D0,0)):^(0),1:""""),D0=$P(Y(601.76,6,1),U,4) S:'D0!'$D(^YTT(601.72,+D0,0)) D0=-1"
^DD(601.76,6,21,0)="^^2^2^3040512^"
^DD(601.76,6,21,1,0)="Associates a ChoiceType (a group of multiple choice alternatives) to this "
^DD(601.76,6,21,2,0)="question in this instrument."
^DD(601.76,6,"DT")="3031107"
^DD(601.76,7,0)="QUESTIONDISPLAYID^P601.88'^YTT(601.88,^0;6^Q"
^DD(601.76,7,21,0)="^^1^1^3040511^"
^DD(601.76,7,21,1,0)="Specifies display attributes like font, color and bold for this question."
^DD(601.76,7,"DT")="3031230"
^DD(601.76,8,0)="INTRODISPLAYID^P601.88'^YTT(601.88,^0;7^Q"
^DD(601.76,8,21,0)="^^1^1^3040511^"
^DD(601.76,8,21,1,0)="Specifies display attributes like font, color and bold for this intro."
^DD(601.76,8,"DT")="3031230"
^DD(601.76,9,0)="MHCHOICEDISPLAYID^P601.88'^YTT(601.88,^0;8^Q"
^DD(601.76,9,21,0)="^^2^2^3040512^"
^DD(601.76,9,21,1,0)="Specifies display attributes like font, color and bold for this set of "
^DD(601.76,9,21,2,0)="alternatives."
^DD(601.76,9,"DT")="3031230"
^DD(601.76,"B","CHOICETYPE",6)=""
^DD(601.76,"B","DESIGNATOR",4)=""
^DD(601.76,"B","INSTRUMENT",1)=""
^DD(601.76,"B","INSTRUMENT CONTENT ID",.01)=""
^DD(601.76,"B","INTRODISPLAYID",8)=""
^DD(601.76,"B","MHCHOICEDISPLAYID",9)=""
^DD(601.76,"B","QUESTION ID",3)=""
^DD(601.76,"B","QUESTION SEQUENCE",2)=""
^DD(601.76,"B","QUESTION TEXT",5)=""
^DD(601.76,"B","QUESTIONDISPLAYID",7)=""
^DD(601.76,"GL",0,1,.01)=""
^DD(601.76,"GL",0,2,1)=""
^DD(601.76,"GL",0,3,2)=""
^DD(601.76,"GL",0,4,3)=""
^DD(601.76,"GL",0,5,4)=""
^DD(601.76,"GL",0,6,7)=""
^DD(601.76,"GL",0,7,8)=""
^DD(601.76,"GL",0,8,9)=""
^DD(601.76,"IX",.01)=""
^DD(601.76,"IX",1)=""
^DD(601.76,"IX",3)=""
^DD(601.76,"RQ",.01)=""
^DD(601.76,"RQ",1)=""
^DD(601.77,0)="FIELD^^1^2"
^DD(601.77,0,"DDA")="N"
^DD(601.77,0,"DT")="3030902"
^DD(601.77,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(601.77,0,"IX","B",601.77,.01)=""
^DD(601.77,0,"NM","MH BATTERIES")=""
^DD(601.77,0,"PT",601.78,1)=""
^DD(601.77,0,"PT",601.781,2)=""
^DD(601.77,0,"VR")="5.01"
^DD(601.77,0,"VRPK")="YS"
^DD(601.77,.01,0)="BATTERY ID^RNJ4,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.77) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.77,.01,1,0)="^.1"
^DD(601.77,.01,1,1,0)="601.77^B"
^DD(601.77,.01,1,1,1)="S ^YTT(601.77,""B"",$E(X,1,30),DA)="""""
^DD(601.77,.01,1,1,2)="K ^YTT(601.77,""B"",$E(X,1,30),DA)"
^DD(601.77,.01,3)="Type a number between 1 and 9999, 0 Decimal Digits"
^DD(601.77,.01,21,0)="^^1^1^3040511^"
^DD(601.77,.01,21,1,0)="A unique identifier for the record. It is the IEN."
^DD(601.77,.01,"DT")="3030902"
^DD(601.77,1,0)="BATTERY NAME^RF^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(601.77,1,3)="Answer must be 1-50 characters in length."
^DD(601.77,1,21,0)="^^2^2^3040511^"
^DD(601.77,1,21,1,0)="Title for the battery (a set of instruments) eg. 10 East Admission "
^DD(601.77,1,21,2,0)="Battery."
^DD(601.77,1,"DT")="3030902"
^DD(601.77,"B","BATTERY ID",.01)=""
^DD(601.77,"B","BATTERY NAME",1)=""
^DD(601.77,"GL",0,1,.01)=""
^DD(601.77,"GL",0,2,1)=""
^DD(601.77,"IX",.01)=""
^DD(601.77,"RQ",.01)=""
^DD(601.77,"RQ",1)=""
^DD(601.78,0)="FIELD^^3^4"
^DD(601.78,0,"DDA")="N"
^DD(601.78,0,"DT")="3050401"
^DD(601.78,0,"IX","AD",601.78,1)=""
^DD(601.78,0,"IX","B",601.78,.01)=""
^DD(601.78,0,"NM","MH BATTERY CONTENTS")=""
^DD(601.78,0,"VR")="5.01"
^DD(601.78,0,"VRPK")="YS"
^DD(601.78,.01,0)="BATTERY CONTENT ID^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.78) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.78,.01,1,0)="^.1"
^DD(601.78,.01,1,1,0)="601.78^B"
^DD(601.78,.01,1,1,1)="S ^YTT(601.78,""B"",$E(X,1,30),DA)="""""
^DD(601.78,.01,1,1,2)="K ^YTT(601.78,""B"",$E(X,1,30),DA)"
^DD(601.78,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.78,.01,21,0)="2^.001^2^2^3050621^^"
^DD(601.78,.01,21,1,0)="This is a unique identifier for the record, this is the IEN of the MH BATTERY "
^DD(601.78,.01,21,2,0)="CONTENTS file (#601.78)."
^DD(601.78,.01,"DT")="3050401"
^DD(601.78,1,0)="BATTERY ID^RP601.77'^YTT(601.77,^0;2^Q"
^DD(601.78,1,1,0)="^.1"
^DD(601.78,1,1,1,0)="601.78^AD"
^DD(601.78,1,1,1,1)="S ^YTT(601.78,""AD"",$E(X,1,30),DA)="""""
^DD(601.78,1,1,1,2)="K ^YTT(601.78,""AD"",$E(X,1,30),DA)"
^DD(601.78,1,1,1,"DT")="3050404"
^DD(601.78,1,21,0)="^.001^1^1^3050621^^"
^DD(601.78,1,21,1,0)="Identifies the current MH BATTERIES file (#601.77) entry."
^DD(601.78,1,"DT")="3050404"
^DD(601.78,2,0)="SEQUENCE^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.78,2,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(601.78,2,21,0)="^.001^1^1^3050621^^^"
^DD(601.78,2,21,1,0)="This is the display sequence of the instrument within a selected battery."
^DD(601.78,2,"DT")="3050401"
^DD(601.78,3,0)="INSTRUMENT^P601.71'^YTT(601.71,^0;4^Q"
^DD(601.78,3,21,0)="^.001^2^2^3060119^^^^"
^DD(601.78,3,21,1,0)="This ties an entry in the MH BATTERY CONTENTS file (#601.78) to an instrument"
^DD(601.78,3,21,2,0)="in the MH TESTS AND SURVEYS file (#601.71)."
^DD(601.78,3,"DT")="3050401"
^DD(601.78,"B","BATTERY CONTENT ID",.01)=""
^DD(601.78,"B","BATTERY ID",1)=""
^DD(601.78,"B","INSTRUMENT",3)=""
^DD(601.78,"B","SEQUENCE",2)=""
^DD(601.78,"GL",0,1,.01)=""
^DD(601.78,"GL",0,2,1)=""
^DD(601.78,"GL",0,3,2)=""
^DD(601.78,"GL",0,4,3)=""
^DD(601.78,"IX",.01)=""
^DD(601.78,"IX",1)=""
^DD(601.78,"RQ",.01)=""
^DD(601.78,"RQ",1)=""
^DD(601.781,0)="FIELD^^2^3"
^DD(601.781,0,"DDA")="N"
^DD(601.781,0,"DT")="3030902"
^DD(601.781,0,"IX","AC",601.781,1)=""
^DD(601.781,0,"IX","AD",601.781,2)=""
^DD(601.781,0,"IX","B",601.781,.01)=""
^DD(601.781,0,"NM","MH BATTERY USERS")=""
^DD(601.781,0,"VR")="5.01"
^DD(601.781,0,"VRPK")="YS"
^DD(601.781,.01,0)="BAT USERS ID^RNJ5,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.781) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.781,.01,1,0)="^.1"
^DD(601.781,.01,1,1,0)="601.781^B"
^DD(601.781,.01,1,1,1)="S ^YTT(601.781,""B"",$E(X,1,30),DA)="""""
^DD(601.781,.01,1,1,2)="K ^YTT(601.781,""B"",$E(X,1,30),DA)"
^DD(601.781,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(601.781,.01,21,0)="^^1^1^3040507^"
^DD(601.781,.01,21,1,0)="This is a unique identifier of this record. It is the IEN."
^DD(601.781,.01,"DT")="3030902"
^DD(601.781,1,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(601.781,1,1,0)="^.1"
^DD(601.781,1,1,1,0)="601.781^AC"
^DD(601.781,1,1,1,1)="S ^YTT(601.781,""AC"",$E(X,1,30),DA)="""""
^DD(601.781,1,1,1,2)="K ^YTT(601.781,""AC"",$E(X,1,30),DA)"
^DD(601.781,1,1,1,"DT")="3030910"
^DD(601.781,1,21,0)="^.001^2^2^3050308^^"
^DD(601.781,1,21,1,0)="Person who is associated with this battery. This is a pointer to the NEW "
^DD(601.781,1,21,2,0)="PERSON file (#200)."
^DD(601.781,1,"DT")="3030910"
^DD(601.781,2,0)="BATTERY ID^P601.77'^YTT(601.77,^0;3^Q"
^DD(601.781,2,1,0)="^.1"
^DD(601.781,2,1,1,0)="601.781^AD"
^DD(601.781,2,1,1,1)="S ^YTT(601.781,""AD"",$E(X,1,30),DA)="""""
^DD(601.781,2,1,1,2)="K ^YTT(601.781,""AD"",$E(X,1,30),DA)"
^DD(601.781,2,1,1,"DT")="3040713"
^DD(601.781,2,21,0)="^^2^2^3050223^"
^DD(601.781,2,21,1,0)="Pointer to the MH BATTERIES file (#601.77), specifying which Battery is"
^DD(601.781,2,21,2,0)="being identified."
^DD(601.781,2,"DT")="3050223"
^DD(601.781,"B","BAT USERS ID",.01)=""
^DD(601.781,"B","BATTERY ID",2)=""
^DD(601.781,"B","USER",1)=""
^DD(601.781,"GL",0,1,.01)=""
^DD(601.781,"GL",0,2,1)=""
^DD(601.781,"GL",0,3,2)=""
^DD(601.781,"IX",.01)=""
^DD(601.781,"IX",1)=""
^DD(601.781,"IX",2)=""
^DD(601.781,"RQ",.01)=""
^DD(601.781,"RQ",1)=""
^DD(601.79,0)="FIELD^^3^4"
^DD(601.79,0,"DDA")="N"
^DD(601.79,0,"DT")="3040623"
^DD(601.79,0,"IX","AC",601.79,1)=""
^DD(601.79,0,"IX","AD",601.79,3)=""
^DD(601.79,0,"IX","AE",601.79,2)=""
^DD(601.79,0,"IX","B",601.79,.01)=""
^DD(601.79,0,"NM","MH SKIPPED QUESTIONS")=""
^DD(601.79,0,"VR")="5.01"
^DD(601.79,0,"VRPK")="YS"
^DD(601.79,.01,0)="ID^RNJ8,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.79) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.79,.01,1,0)="^.1"
^DD(601.79,.01,1,1,0)="601.79^B"
^DD(601.79,.01,1,1,1)="S ^YTT(601.79,""B"",$E(X,1,30),DA)="""""
^DD(601.79,.01,1,1,2)="K ^YTT(601.79,""B"",$E(X,1,30),DA)"
^DD(601.79,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(601.79,.01,21,0)="^^3^3^3040507^"
^DD(601.79,.01,21,1,0)="This is the unique identifier for this record. It is the IEN. Numbers "
^DD(601.79,.01,21,2,0)="under 100,000 are part of the national database and should not be edited "
^DD(601.79,.01,21,3,0)="locally."
^DD(601.79,.01,"DT")="3030123"
^DD(601.79,1,0)="INSTRUMENT^RP601.71'^YTT(601.71,^0;2^Q"
^DD(601.79,1,1,0)="^.1"
^DD(601.79,1,1,1,0)="601.79^AC"
^DD(601.79,1,1,1,1)="S ^YTT(601.79,""AC"",$E(X,1,30),DA)="""""
^DD(601.79,1,1,1,2)="K ^YTT(601.79,""AC"",$E(X,1,30),DA)"
^DD(601.79,1,1,1,"DT")="3030123"
^DD(601.79,1,21,0)="^^2^2^3050223^"
^DD(601.79,1,21,1,0)="Pointer to MH TESTS AND SURVEYS file (#601.71). Specifies which instrument"
^DD(601.79,1,21,2,0)="is being checked for skip rules."
^DD(601.79,1,"DT")="3050805"
^DD(601.79,2,0)="RULE ID^RP601.82'^YTT(601.82,^0;3^Q"
^DD(601.79,2,1,0)="^.1"
^DD(601.79,2,1,1,0)="601.79^AE"
^DD(601.79,2,1,1,1)="S ^YTT(601.79,""AE"",$E(X,1,30),DA)="""""
^DD(601.79,2,1,1,2)="K ^YTT(601.79,""AE"",$E(X,1,30),DA)"
^DD(601.79,2,1,1,"DT")="3040720"
^DD(601.79,2,21,0)="^.001^2^2^3060119^^"
^DD(601.79,2,21,1,0)="A pointer to the RULE ID field (#.01) of the MH RULES file "
^DD(601.79,2,21,2,0)="(#601.82). This specifies which rule is being fired."
^DD(601.79,2,"DT")="3050223"
^DD(601.79,3,0)="SKIPPED QUESTION ID^RP601.72'^YTT(601.72,^0;4^Q"
^DD(601.79,3,1,0)="^.1"
^DD(601.79,3,1,1,0)="601.79^AD"
^DD(601.79,3,1,1,1)="S ^YTT(601.79,""AD"",$E(X,1,30),DA)="""""
^DD(601.79,3,1,1,2)="K ^YTT(601.79,""AD"",$E(X,1,30),DA)"
^DD(601.79,3,1,1,"DT")="3040624"
^DD(601.79,3,21,0)="^^2^2^3050223^"
^DD(601.79,3,21,1,0)="A pointer to the QUESTION NUMBER field (#.01) of the MH QUESTIONS file"
^DD(601.79,3,21,2,0)="(#601.72). This specifies which question is to be skipped."
^DD(601.79,3,"DT")="3050805"
^DD(601.79,"B","ID",.01)=""
^DD(601.79,"B","INSTRUMENT",1)=""
^DD(601.79,"B","RULE ID",2)=""
^DD(601.79,"B","SKIPPED QUESTION ID",3)=""
^DD(601.79,"GL",0,1,.01)=""
^DD(601.79,"GL",0,2,1)=""
^DD(601.79,"GL",0,3,2)=""
^DD(601.79,"GL",0,4,3)=""
^DD(601.79,"IX",.01)=""
^DD(601.79,"IX",1)=""
^DD(601.79,"IX",2)=""
^DD(601.79,"IX",3)=""
^DD(601.79,"RQ",.01)=""
^DD(601.79,"RQ",1)=""
^DD(601.79,"RQ",2)=""
^DD(601.79,"RQ",3)=""
^DD(601.81,0)="FIELD^^6^6"
^DD(601.81,0,"DDA")="N"
^DD(601.81,0,"DT")="3031230"
^DD(601.81,0,"IX","AC",601.81,1)=""
^DD(601.81,0,"IX","B",601.81,.01)=""
^DD(601.81,0,"NM","MH SECTIONS")=""
^DD(601.81,0,"VR")="5.01"
^DD(601.81,0,"VRPK")="YS"
^DD(601.81,.01,0)="ID^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.81) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.81,.01,1,0)="^.1"
^DD(601.81,.01,1,1,0)="601.81^B"
^DD(601.81,.01,1,1,1)="S ^YTT(601.81,""B"",$E(X,1,30),DA)="""""
^DD(601.81,.01,1,1,2)="K ^YTT(601.81,""B"",$E(X,1,30),DA)"
^DD(601.81,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.81,.01,21,0)="^^3^3^3040511^"
^DD(601.81,.01,21,1,0)="This is a unique identifier for this Section. It is the IEN. Numbers under"
^DD(601.81,.01,21,2,0)="100,000 are part of the national database and should not be edited "
^DD(601.81,.01,21,3,0)="locally."
^DD(601.81,.01,"DT")="3030123"
^DD(601.81,1,0)="INSTRUMENT^P601.71'^YTT(601.71,^0;2^Q"
^DD(601.81,1,1,0)="^.1"
^DD(601.81,1,1,1,0)="601.81^AC"
^DD(601.81,1,1,1,1)="S ^YTT(601.81,""AC"",$E(X,1,30),DA)="""""
^DD(601.81,1,1,1,2)="K ^YTT(601.81,""AC"",$E(X,1,30),DA)"
^DD(601.81,1,1,1,"DT")="3030123"
^DD(601.81,1,21,0)="^^2^2^3050223^"
^DD(601.81,1,21,1,0)="A pointer to the NAME field (#.01) of the MH TESTS AND SURVEYS "
^DD(601.81,1,21,2,0)="file (#601.71) to which this section record applies."
^DD(601.81,1,"DT")="3050223"
^DD(601.81,2,0)="FIRSTQUESTION^RP601.72'^YTT(601.72,^0;3^Q"
^DD(601.81,2,21,0)="^^1^1^3040511^"
^DD(601.81,2,21,1,0)="First Question in instrument where section is to display."
^DD(601.81,2,"DT")="3030123"
^DD(601.81,3,0)="TABCAPTION^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(601.81,3,3)="Answer must be 1-50 characters in length."
^DD(601.81,3,21,0)="^.001^1^1^3050308^^"
^DD(601.81,3,21,1,0)="Text for the Tab area."
^DD(601.81,3,"DT")="3030123"
^DD(601.81,4,0)="SECTIONCAPTION^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(601.81,4,3)="Answer must be 1-50 characters in length."
^DD(601.81,4,21,0)="^.001^1^1^3050308^^^^"
^DD(601.81,4,21,1,0)="Text of the section heading."
^DD(601.81,4,"DT")="3030123"
^DD(601.81,6,0)="DISPLAYID^P601.88'^YTT(601.88,^0;6^Q"
^DD(601.81,6,21,0)="^.001^2^2^3050308^^^"
^DD(601.81,6,21,1,0)="Pointer to the MH DISPLAY file (#601.88) to set attributes such as font and "
^DD(601.81,6,21,2,0)="bold."
^DD(601.81,6,"DT")="3031230"
^DD(601.81,"B","DISPLAYID",6)=""
^DD(601.81,"B","FIRSTQUESTION",2)=""
^DD(601.81,"B","ID",.01)=""
^DD(601.81,"B","INSTRUMENT",1)=""
^DD(601.81,"B","SECTIONCAPTION",4)=""
^DD(601.81,"B","TABCAPTION",3)=""
^DD(601.81,"GL",0,1,.01)=""
^DD(601.81,"GL",0,2,1)=""
^DD(601.81,"GL",0,3,2)=""
^DD(601.81,"GL",0,4,3)=""
^DD(601.81,"GL",0,5,4)=""
^DD(601.81,"GL",0,6,6)=""
^DD(601.81,"IX",.01)=""
^DD(601.81,"IX",1)=""
^DD(601.81,"RQ",.01)=""
^DD(601.81,"RQ",2)=""
^DD(601.82,0)="FIELD^^11^12"
^DD(601.82,0,"DDA")="N"
^DD(601.82,0,"DT")="3040127"
^DD(601.82,0,"IX","B",601.82,.01)=""
^DD(601.82,0,"NM","MH RULES")=""
^DD(601.82,0,"PT",601.79,2)=""
^DD(601.82,0,"PT",601.83,3)=""
^DD(601.82,0,"VR")="5.01"
^DD(601.82,0,"VRPK")="YS"
^DD(601.82,.01,0)="RULE ID^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.82) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.82,.01,1,0)="^.1"
^DD(601.82,.01,1,1,0)="601.82^B"
^DD(601.82,.01,1,1,1)="S ^YTT(601.82,""B"",$E(X,1,30),DA)="""""
^DD(601.82,.01,1,1,2)="K ^YTT(601.82,""B"",$E(X,1,30),DA)"
^DD(601.82,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.82,.01,21,0)="^.001^3^3^3040511^^"
^DD(601.82,.01,21,1,0)="This is the unique index for this record. It is the IEN. Numbers under "
^DD(601.82,.01,21,2,0)="100,000 are reserved for the national database and should not be edited "
^DD(601.82,.01,21,3,0)="locally."
^DD(601.82,.01,"DT")="3040212"
^DD(601.82,1,0)="IndexQuestion^P601.72'^YTT(601.72,^0;2^Q"
^DD(601.82,1,21,0)="^^2^2^3050223^"
^DD(601.82,1,21,1,0)="Pointer to the QUESTION NUMBER Field (#.01) of the MH QUESTIONS file "
^DD(601.82,1,21,2,0)="(#601.72) on which to run the rule."
^DD(601.82,1,"DT")="3050223"
^DD(601.82,2,0)="IndexValue^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(601.82,2,3)="Answer must be 1-50 characters in length."
^DD(601.82,2,21,0)="^.001^1^1^3050308^^"
^DD(601.82,2,21,1,0)="Value of the index."
^DD(601.82,2,"DT")="3030204"
^DD(601.82,3,0)="IndexValueDataType^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(601.82,3,3)="Answer must be 1-50 characters in length."
^DD(601.82,3,21,0)="^^1^1^3040512^"
^DD(601.82,3,21,1,0)="Data type of the index value (viz. string, number, date, or VistA IEN)."
^DD(601.82,3,"DT")="3030204"
^DD(601.82,4,0)="IndexOperator^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(601.82,4,3)="Answer must be 1-50 characters in length."
^DD(601.82,4,21,0)="^.001^1^1^3050308^^"
^DD(601.82,4,21,1,0)="Logical operator to use with index value."
^DD(601.82,4,"DT")="3030204"
^DD(601.82,5,0)="BoolOperator^F^^0;6^K:$L(X)>50!($L(X)<1) X"
^DD(601.82,5,3)="Answer must be 1-50 characters in length."
^DD(601.82,5,21,0)="^.001^1^1^3040507^^"
^DD(601.82,5,21,1,0)="Logical operator like 'equals' to match the target response."
^DD(601.82,5,"DT")="3030204"
^DD(601.82,6,0)="TargetQuestion^P601.72'^YTT(601.72,^0;7^Q"
^DD(601.82,6,21,0)="^^2^2^3050223^"
^DD(601.82,6,21,1,0)="Pointer to the QUESTION NUMBER field ((#.01) of the MH QUESTIONS file"
^DD(601.82,6,21,2,0)="(#601.72)."
^DD(601.82,6,"DT")="3050223"
^DD(601.82,7,0)="TargetValue^F^^1;1^K:$L(X)>50!($L(X)<1) X"
^DD(601.82,7,3)="Answer must be 1-50 characters in length."
^DD(601.82,7,21,0)="^^2^2^3040511^"
^DD(601.82,7,21,1,0)="Often the Correct answer, this is the value against which to measure the "
^DD(601.82,7,21,2,0)="response."
^DD(601.82,7,"DT")="3030204"
^DD(601.82,8,0)="TargetValueDataType^F^^1;2^K:$L(X)>50!($L(X)<1) X"
^DD(601.82,8,3)="Answer must be 1-50 characters in length."
^DD(601.82,8,21,0)="^^1^1^3040512^"
^DD(601.82,8,21,1,0)="Data type of the target value (viz. string, number, date, or VistA IEN)."
^DD(601.82,8,"DT")="3030204"
^DD(601.82,9,0)="TargetOperator^F^^1;3^K:$L(X)>50!($L(X)<1) X"
^DD(601.82,9,3)="Answer must be 1-50 characters in length."
^DD(601.82,9,21,0)="^.001^1^1^3050308^^"
^DD(601.82,9,21,1,0)="Logical operator to use in comparisons."
^DD(601.82,9,"DT")="3030204"
^DD(601.82,10,0)="MessageText^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(601.82,10,3)="Answer must be 1-200 characters in length."
^DD(601.82,10,21,0)="^^1^1^3040511^"
^DD(601.82,10,21,1,0)="Message given to the user when the rule is met."
^DD(601.82,10,"DT")="3030204"
^DD(601.82,11,0)="IsConsistencyCheck^S^Y:Yes;N:No;^2;2^Q"
^DD(601.82,11,21,0)="^.001^1^1^3050308^^"
^DD(601.82,11,21,1,0)="Boolean specifying the type of rule to be a consistency check."
^DD(601.82,11,"DT")="3040127"
^DD(601.82,"B","BoolOperator",5)=""
^DD(601.82,"B","IndexOperator",4)=""
^DD(601.82,"B","IndexQuestion",1)=""
^DD(601.82,"B","IndexValue",2)=""
^DD(601.82,"B","IndexValueDataType",3)=""
^DD(601.82,"B","IsConsistencyCheck",11)=""
^DD(601.82,"B","MessageText",10)=""
^DD(601.82,"B","RULE ID",.01)=""
^DD(601.82,"B","TargetOperator",9)=""
^DD(601.82,"B","TargetQuestion",6)=""
^DD(601.82,"B","TargetValue",7)=""
^DD(601.82,"B","TargetValueDataType",8)=""
^DD(601.82,"GL",0,1,.01)=""
^DD(601.82,"GL",0,2,1)=""
^DD(601.82,"GL",0,3,2)=""
^DD(601.82,"GL",0,4,3)=""
^DD(601.82,"GL",0,5,4)=""
^DD(601.82,"GL",0,6,5)=""
^DD(601.82,"GL",0,7,6)=""
^DD(601.82,"GL",1,1,7)=""
^DD(601.82,"GL",1,2,8)=""
^DD(601.82,"GL",1,3,9)=""
^DD(601.82,"GL",2,1,10)=""
^DD(601.82,"GL",2,2,11)=""
^DD(601.82,"IX",.01)=""
^DD(601.82,"RQ",.01)=""
^DD(601.83,0)="FIELD^^3^4"
^DD(601.83,0,"DDA")="N"
^DD(601.83,0,"DT")="3030205"
^DD(601.83,0,"IX","AC",601.83,3)=""
^DD(601.83,0,"IX","B",601.83,.01)=""
^DD(601.83,0,"IX","C",601.83,1)=""
^DD(601.83,0,"NM","MH INSTRUMENTRULES")=""
^DD(601.83,0,"VR")="5.01"
^DD(601.83,0,"VRPK")="YS"
^DD(601.83,.01,0)="ID^RNJ8,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.83) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.83,.01,1,0)="^.1"
^DD(601.83,.01,1,1,0)="601.83^B"
^DD(601.83,.01,1,1,1)="S ^YTT(601.83,""B"",$E(X,1,30),DA)="""""
^DD(601.83,.01,1,1,2)="K ^YTT(601.83,""B"",$E(X,1,30),DA)"
^DD(601.83,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(601.83,.01,21,0)="^.001^2^2^3050308^^"
^DD(601.83,.01,21,1,0)="This is the unique record identifier. It is the IEN. Numbers under 100,000"
^DD(601.83,.01,21,2,0)="belong to the national database and should not be edited locally."
^DD(601.83,.01,"DT")="3040212"
^DD(601.83,1,0)="InstrumentID^RP601.71'^YTT(601.71,^0;2^Q"
^DD(601.83,1,1,0)="^.1"
^DD(601.83,1,1,1,0)="601.83^C"
^DD(601.83,1,1,1,1)="S ^YTT(601.83,""C"",$E(X,1,30),DA)="""""
^DD(601.83,1,1,1,2)="K ^YTT(601.83,""C"",$E(X,1,30),DA)"
^DD(601.83,1,1,1,"DT")="3030204"
^DD(601.83,1,21,0)="^^2^2^3050223^"
^DD(601.83,1,21,1,0)="Used to associate a rule with an instrument, this is a pointer to NAME"
^DD(601.83,1,21,2,0)="field (#.01) of the MH TESTS AND SURVEYS file (#601.71)."
^DD(601.83,1,"DT")="3050811"
^DD(601.83,2,0)="QuestionID^P601.72'^YTT(601.72,^0;3^Q"
^DD(601.83,2,21,0)="^^2^2^3050223^"
^DD(601.83,2,21,1,0)="Used to associate the rule to a question, this is a pointer to "
^DD(601.83,2,21,2,0)="QUESTION NUMBER field (#.01) of the MH QUESTIONS file (#601.72)."
^DD(601.83,2,"DT")="3050811"
^DD(601.83,3,0)="RuleID^RP601.82'^YTT(601.82,^0;4^Q"
^DD(601.83,3,1,0)="^.1"
^DD(601.83,3,1,1,0)="601.83^AC"
^DD(601.83,3,1,1,1)="S ^YTT(601.83,""AC"",$E(X,1,30),DA)="""""
^DD(601.83,3,1,1,2)="K ^YTT(601.83,""AC"",$E(X,1,30),DA)"
^DD(601.83,3,1,1,"DT")="3040624"
^DD(601.83,3,21,0)="^^2^2^3050223^"
^DD(601.83,3,21,1,0)="Specifies which rule is applicable for a question in an instrument. It is "
^DD(601.83,3,21,2,0)="a pointer to the RULE ID field (#.01) of the MH RULES file (#601.82)."
^DD(601.83,3,"DT")="3050223"
^DD(601.83,"B","ID",.01)=""
^DD(601.83,"B","InstrumentID",1)=""
^DD(601.83,"B","QuestionID",2)=""
^DD(601.83,"B","RuleID",3)=""
^DD(601.83,"GL",0,1,.01)=""
^DD(601.83,"GL",0,2,1)=""
^DD(601.83,"GL",0,3,2)=""
^DD(601.83,"GL",0,4,3)=""
^DD(601.83,"IX",.01)=""
^DD(601.83,"IX",1)=""
^DD(601.83,"IX",3)=""
^DD(601.83,"RQ",.01)=""
^DD(601.83,"RQ",1)=""
^DD(601.83,"RQ",3)=""
^DD(601.84,0)="FIELD^^13^14"
^DD(601.84,0,"DDA")="N"
^DD(601.84,0,"DT")="3060119"
^DD(601.84,0,"IX","AD",601.84,11)=""
^DD(601.84,0,"IX","AL",601.84,13)=""
^DD(601.84,0,"IX","AO",601.84,5)=""
^DD(601.84,0,"IX","B",601.84,.01)=""
^DD(601.84,0,"IX","C",601.84,1)=""
^DD(601.84,0,"NM","MH ADMINISTRATIONS")=""
^DD(601.84,0,"PT",601.85,1)=""
^DD(601.84,0,"PT",601.92,1)=""
^DD(601.84,0,"VR")="5.01"
^DD(601.84,0,"VRPK")="YS"
^DD(601.84,.01,0)="ADMINISTRATION NUMBER^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.84) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.84,.01,1,0)="^.1"
^DD(601.84,.01,1,1,0)="601.84^B"
^DD(601.84,.01,1,1,1)="S ^YTT(601.84,""B"",$E(X,1,30),DA)="""""
^DD(601.84,.01,1,1,2)="K ^YTT(601.84,""B"",$E(X,1,30),DA)"
^DD(601.84,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.84,.01,21,0)="^^2^2^3040507^"
^DD(601.84,.01,21,1,0)="This is the unique identifier for this administration record. It is the "
^DD(601.84,.01,21,2,0)="IEN."
^DD(601.84,.01,"DT")="3030502"
^DD(601.84,1,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(601.84,1,1,0)="^.1"
^DD(601.84,1,1,1,0)="601.84^C"
^DD(601.84,1,1,1,1)="S ^YTT(601.84,""C"",$E(X,1,30),DA)="""""
^DD(601.84,1,1,1,2)="K ^YTT(601.84,""C"",$E(X,1,30),DA)"
^DD(601.84,1,1,1,"DT")="3030801"
^DD(601.84,1,21,0)="^^2^2^3050223^"
^DD(601.84,1,21,1,0)="Pointer to the NAME field (#.01) of the PATIENT file (#2). This specifies"
^DD(601.84,1,21,2,0)="the patient attached to this specific administration."
^DD(601.84,1,"DT")="3050802"
^DD(601.84,2,0)="INSTRUMENT NAME^RP601.71'^YTT(601.71,^0;3^Q"
^DD(601.84,2,21,0)="^.001^2^2^3050309^^"
^DD(601.84,2,21,1,0)="A pointer to NAME field (#.01) of the MH TESTS AND SURVEYS file (#601.71),"
^DD(601.84,2,21,2,0)="it specifies a particular instrument."
^DD(601.84,2,"DT")="3050802"
^DD(601.84,3,0)="DATE GIVEN^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(601.84,3,21,0)="^.001^1^1^3050308^^"
^DD(601.84,3,21,1,0)="This is the date the patient started the instrument."
^DD(601.84,3,"DT")="3050802"
^DD(601.84,4,0)="DATE SAVED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(601.84,4,3)=""
^DD(601.84,4,21,0)="^^1^1^3040507^"
^DD(601.84,4,21,1,0)="Date last edited, ie last time test was worked on for this administration."
^DD(601.84,4,"DT")="3030502"
^DD(601.84,5,0)="ORDERED BY^P200'^VA(200,^0;6^Q"
^DD(601.84,5,1,0)="^.1"
^DD(601.84,5,1,1,0)="601.84^AO"
^DD(601.84,5,1,1,1)="S ^YTT(601.84,""AO"",$E(X,1,30),DA)="""""
^DD(601.84,5,1,1,2)="K ^YTT(601.84,""AO"",$E(X,1,30),DA)"
^DD(601.84,5,1,1,"DT")="3050324"
^DD(601.84,5,21,0)="^^1^1^3040507^"
^DD(601.84,5,21,1,0)="User who ordered the test."
^DD(601.84,5,"DT")="3050324"
^DD(601.84,6,0)="ADMINISTERED BY^P200'^VA(200,^0;7^Q"
^DD(601.84,6,21,0)="^^2^2^3040512^"
^DD(601.84,6,21,1,0)="Clerk who actually entered the information or started the patient in "
^DD(601.84,6,21,2,0)="front of the computer."
^DD(601.84,6,"DT")="3030502"
^DD(601.84,7,0)="SIGNED^S^Y:Yes;N:No;^0;8^Q"
^DD(601.84,7,21,0)="^^1^1^3040513^"
^DD(601.84,7,21,1,0)="Has administration been signed by the orderer or administrator."
^DD(601.84,7,"DT")="3040127"
^DD(601.84,8,0)="IS COMPLETE^S^Y:Yes;N:No;^0;9^Q"
^DD(601.84,8,1,0)="^.1^^0"
^DD(601.84,8,3)=""
^DD(601.84,8,21,0)="^^1^1^3040513^"
^DD(601.84,8,21,1,0)="Boolean specifying if test is complete."
^DD(601.84,8,"DT")="3060125"
^DD(601.84,9,0)="NUMBER OF QUESTIONS ANSWERED^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.84,9,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(601.84,9,21,0)="^^2^2^3040511^"
^DD(601.84,9,21,1,0)="The number of answers entered. If less than in MH Instrument CONTENT for "
^DD(601.84,9,21,2,0)="this instrument, it is incomplete."
^DD(601.84,9,"DT")="3030502"
^DD(601.84,10,0)="COMMENTS^601.841^^1;0"
^DD(601.84,10,21,0)="^^1^1^3040511^"
^DD(601.84,10,21,1,0)="Place for orderer or administrator to make free text comments."
^DD(601.84,11,0)="TRANSMISSION STATUS^S^S:Successfully added to db;T:Transmitted, not yet added;E:Error;^2;1^Q"
^DD(601.84,11,1,0)="^.1"
^DD(601.84,11,1,1,0)="601.84^AD"
^DD(601.84,11,1,1,1)="S ^YTT(601.84,""AD"",$E(X,1,30),DA)="""""
^DD(601.84,11,1,1,2)="K ^YTT(601.84,""AD"",$E(X,1,30),DA)"
^DD(601.84,11,1,1,"DT")="3040413"
^DD(601.84,11,21,0)="^.001^2^2^3060119^^^"
^DD(601.84,11,21,1,0)="Used to indicate success or failure in transmission to the Mental Health"
^DD(601.84,11,21,2,0)="National DataBase."
^DD(601.84,11,"DT")="3060119"
^DD(601.84,12,0)="TRANSMISION TIME^D^^2;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(601.84,12,21,0)="^.001^1^1^3050309^^"
^DD(601.84,12,21,1,0)="Time of last transmission status."
^DD(601.84,12,"DT")="3040413"
^DD(601.84,13,0)="LOCATION^P44'^SC(^0;11^Q"
^DD(601.84,13,1,0)="^.1"
^DD(601.84,13,1,1,0)="601.84^AL"
^DD(601.84,13,1,1,1)="S ^YTT(601.84,""AL"",$E(X,1,30),DA)="""""
^DD(601.84,13,1,1,2)="K ^YTT(601.84,""AL"",$E(X,1,30),DA)"
^DD(601.84,13,1,1,"DT")="3050324"
^DD(601.84,13,3)="Enter a Hospital Location"
^DD(601.84,13,21,0)="^^2^2^3050304^"
^DD(601.84,13,21,1,0)="Associates an administration to a Hospital Location. Pointer to the NAME "
^DD(601.84,13,21,2,0)="field (#.01) of the HOPSITAL LOCATION file (#44)."
^DD(601.84,13,"DT")="3050324"
^DD(601.84,"B","ADMINISTERED BY",6)=""
^DD(601.84,"B","ADMINISTRATION NUMBER",.01)=""
^DD(601.84,"B","COMMENTS",10)=""
^DD(601.84,"B","DATE GIVEN",3)=""
^DD(601.84,"B","DATE SAVED",4)=""
^DD(601.84,"B","INSTRUMENT NAME",2)=""
^DD(601.84,"B","IS COMPLETE",8)=""
^DD(601.84,"B","LOCATION",13)=""
^DD(601.84,"B","NUMBER OF QUESTIONS ANSWERED",9)=""
^DD(601.84,"B","ORDERED BY",5)=""
^DD(601.84,"B","PATIENT",1)=""
^DD(601.84,"B","SIGNED",7)=""
^DD(601.84,"B","TRANSMISION TIME",12)=""
^DD(601.84,"B","TRANSMISSION STATUS",11)=""
^DD(601.84,"GL",0,1,.01)=""
^DD(601.84,"GL",0,2,1)=""
^DD(601.84,"GL",0,3,2)=""
^DD(601.84,"GL",0,4,3)=""
^DD(601.84,"GL",0,5,4)=""
^DD(601.84,"GL",0,6,5)=""
^DD(601.84,"GL",0,7,6)=""
^DD(601.84,"GL",0,8,7)=""
^DD(601.84,"GL",0,9,8)=""
^DD(601.84,"GL",0,10,9)=""
^DD(601.84,"GL",0,11,13)=""
^DD(601.84,"GL",1,0,10)=""
^DD(601.84,"GL",2,1,11)=""
^DD(601.84,"GL",2,2,12)=""
^DD(601.84,"IX",.01)=""
^DD(601.84,"IX",1)=""
^DD(601.84,"IX",5)=""
^DD(601.84,"IX",11)=""
^DD(601.84,"IX",13)=""
^DD(601.84,"RQ",.01)=""
^DD(601.84,"RQ",1)=""
^DD(601.84,"RQ",2)=""
^DD(601.84,"SB",601.841,10)=""
^DD(601.841,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(601.841,0,"DT")="3030502"
^DD(601.841,0,"NM","COMMENTS")=""
^DD(601.841,0,"UP")="601.84"
^DD(601.841,.01,0)="COMMENTS^W^^0;1^Q"
^DD(601.841,.01,"DT")="3030502"
^DD(601.841,"B","COMMENTS",.01)=""
^DD(601.841,"GL",0,1,.01)=""
^DD(601.85,0)="FIELD^^4^5"
^DD(601.85,0,"DDA")="N"
^DD(601.85,0,"DT")="3040227"
^DD(601.85,0,"IX","AD",601.85,1)=""
^DD(601.85,0,"IX","B",601.85,.01)=""
^DD(601.85,0,"NM","MH ANSWERS")=""
^DD(601.85,0,"VR")="5.01"
^DD(601.85,0,"VRPK")="YS"
^DD(601.85,.01,0)="ANSWER ID^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.85) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.85,.01,1,0)="^.1"
^DD(601.85,.01,1,1,0)="601.85^B"
^DD(601.85,.01,1,1,1)="S ^YTT(601.85,""B"",$E(X,1,30),DA)="""""
^DD(601.85,.01,1,1,2)="K ^YTT(601.85,""B"",$E(X,1,30),DA)"
^DD(601.85,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.85,.01,21,0)="^^2^2^3040511^"
^DD(601.85,.01,21,1,0)="This is a unique record number. It is the IEN. There is a record for each "
^DD(601.85,.01,21,2,0)="answer to each instrument."
^DD(601.85,.01,"DT")="3030730"
^DD(601.85,1,0)="ADMINISTRATION ID^RP601.84'^YTT(601.84,^0;2^Q"
^DD(601.85,1,1,0)="^.1"
^DD(601.85,1,1,1,0)="601.85^AD"
^DD(601.85,1,1,1,1)="S ^YTT(601.85,""AD"",$E(X,1,30),DA)="""""
^DD(601.85,1,1,1,2)="K ^YTT(601.85,""AD"",$E(X,1,30),DA)"
^DD(601.85,1,1,1,"DT")="3050323"
^DD(601.85,1,21,0)="^^3^3^3050223^"
^DD(601.85,1,21,1,0)="Ties this answer to a specific administration. Through the administration "
^DD(601.85,1,21,2,0)="we know patient, instrument, date/time, etc. It is a pointer to the "
^DD(601.85,1,21,3,0)="ADMINISTRAION ID field (#.01) of the MH ADMINISTRATIONS file (#601.84)."
^DD(601.85,1,"DT")="3050323"
^DD(601.85,2,0)="QUESTION ID^RP601.72'^YTT(601.72,^0;3^Q"
^DD(601.85,2,21,0)="^^2^2^3050223^"
^DD(601.85,2,21,1,0)="Specifies which question is being answered. Pointer to the QUESTION "
^DD(601.85,2,21,2,0)="NUMBER field (#.01) of the MH QUESTIONS file (#601.72)."
^DD(601.85,2,"DT")="3050223"
^DD(601.85,3,0)="ANSWERS^601.853^^1;0"
^DD(601.85,3,21,0)="^.001^1^1^3040511^^"
^DD(601.85,3,21,1,0)="Free text answer"
^DD(601.85,4,0)="CHOICE ID^P601.75'^YTT(601.75,^0;4^Q"
^DD(601.85,4,21,0)="^^2^2^3050223^"
^DD(601.85,4,21,1,0)="For multiple choice tests, the choice selected. Pointer to the CHOICE "
^DD(601.85,4,21,2,0)="ID field (#.01) of the MH CHOICES file (#601.75)."
^DD(601.85,4,"DT")="3050223"
^DD(601.85,"B","ADMINISTRATION ID",1)=""
^DD(601.85,"B","ANSWER ID",.01)=""
^DD(601.85,"B","ANSWERS",3)=""
^DD(601.85,"B","CHOICE ID",4)=""
^DD(601.85,"B","QUESTION ID",2)=""
^DD(601.85,"GL",0,1,.01)=""
^DD(601.85,"GL",0,2,1)=""
^DD(601.85,"GL",0,3,2)=""
^DD(601.85,"GL",0,4,4)=""
^DD(601.85,"GL",1,0,3)=""
^DD(601.85,"IX",.01)=""
^DD(601.85,"IX",1)=""
^DD(601.85,"RQ",.01)=""
^DD(601.85,"RQ",1)=""
^DD(601.85,"RQ",2)=""
^DD(601.85,"SB",601.853,3)=""
^DD(601.853,0)="ANSWERS SUB-FIELD^^.01^1"
^DD(601.853,0,"DT")="3030506"
^DD(601.853,0,"NM","ANSWERS")=""
^DD(601.853,0,"UP")="601.85"
^DD(601.853,.01,0)="ANSWERS^W^^0;1^Q"
^DD(601.853,.01,"DT")="3030506"
^DD(601.853,"B","ANSWERS",.01)=""
^DD(601.853,"GL",0,1,.01)=""
^DD(601.86,0)="FIELD^^10^11"
^DD(601.86,0,"DDA")="N"
^DD(601.86,0,"DT")="3030909"
^DD(601.86,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(601.86,0,"IX","AD",601.86,1)=""
^DD(601.86,0,"IX","B",601.86,.01)=""
^DD(601.86,0,"NM","MH SCALEGROUPS")=""
^DD(601.86,0,"PT",601.87,1)=""
^DD(601.86,0,"VR")="5.01"
^DD(601.86,0,"VRPK")="YS"
^DD(601.86,.01,0)="SCALEGROUP ID^RNJ5,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.86) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.86,.01,1,0)="^.1"
^DD(601.86,.01,1,1,0)="601.86^B"
^DD(601.86,.01,1,1,1)="S ^YTT(601.86,""B"",$E(X,1,30),DA)="""""
^DD(601.86,.01,1,1,2)="K ^YTT(601.86,""B"",$E(X,1,30),DA)"
^DD(601.86,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(601.86,.01,21,0)="^^3^3^3040511^"
^DD(601.86,.01,21,1,0)="This is the unique identifier for this record. It is the IEN. Numbers "
^DD(601.86,.01,21,2,0)="below 100,000 are part of the national database and should not be edited "
^DD(601.86,.01,21,3,0)="locally."
^DD(601.86,.01,"DT")="3040212"
^DD(601.86,1,0)="INSTRUMENT ID^RP601.71'^YTT(601.71,^0;2^Q"
^DD(601.86,1,1,0)="^.1"
^DD(601.86,1,1,1,0)="601.86^AD"
^DD(601.86,1,1,1,1)="S ^YTT(601.86,""AD"",$E(X,1,30),DA)="""""
^DD(601.86,1,1,1,2)="K ^YTT(601.86,""AD"",$E(X,1,30),DA)"
^DD(601.86,1,1,1,"DT")="3041110"
^DD(601.86,1,3)=""
^DD(601.86,1,21,0)="^^2^2^3050223^"
^DD(601.86,1,21,1,0)="Specifies instrument that applies, a pointer to the NAME field (#.01) "
^DD(601.86,1,21,2,0)="of the MH TESTS AND SURVEYS file (#601.71)."
^DD(601.86,1,"DT")="3050223"
^DD(601.86,2,0)="SCALEGROUP NAME^RF^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(601.86,2,3)="Answer must be 1-50 characters in length."
^DD(601.86,2,21,0)="^^3^3^3040511^"
^DD(601.86,2,21,1,0)="Print Name of the ScaleGroup. All scales must refer to at least one "
^DD(601.86,2,21,2,0)="ScaleGroup. Examples of ScaleGroups include; Total, Validity Scales and "
^DD(601.86,2,21,3,0)="MacAndrews Scales."
^DD(601.86,2,"DT")="3030909"
^DD(601.86,3,0)="GROUP SEQUENCE^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.86,3,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(601.86,3,21,0)="^.001^2^2^3050309^^"
^DD(601.86,3,21,1,0)="Order in which the ScaleGroup is displayed within the Administration "
^DD(601.86,3,21,2,0)="report and in graphing."
^DD(601.86,3,"DT")="3030909"
^DD(601.86,4,0)="ORDINATE TITLE^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(601.86,4,3)="Answer must be 1-50 characters in length."
^DD(601.86,4,21,0)="^^1^1^3040512^"
^DD(601.86,4,21,1,0)="This is the ordinate title of the graph."
^DD(601.86,4,"DT")="3030909"
^DD(601.86,5,0)="ORDINATEMIN^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.86,5,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(601.86,5,21,0)="^^1^1^3040512^"
^DD(601.86,5,21,1,0)="This is the ordinate minimum."
^DD(601.86,5,"DT")="3030909"
^DD(601.86,6,0)="ORDINATEINCREMENT^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.86,6,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(601.86,6,21,0)="^.001^1^1^3050309^^"
^DD(601.86,6,21,1,0)="This is the ordinate increment."
^DD(601.86,6,"DT")="3030909"
^DD(601.86,7,0)="ORDINATEMAX^NJ4,0^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.86,7,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(601.86,7,21,0)="^.001^1^1^3050309^^"
^DD(601.86,7,21,1,0)="This is the ordinate maximum."
^DD(601.86,7,"DT")="3030909"
^DD(601.86,8,0)="GRID1^NJ4,0^^0;9^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1N.N) X"
^DD(601.86,8,3)="Type a Number between -9999 and 9999, 0 Decimal Digits"
^DD(601.86,8,21,0)="^.001^2^2^3050309^^"
^DD(601.86,8,21,1,0)="This is the ordinate value of the first grid line on the graph(set to 0 if"
^DD(601.86,8,21,2,0)="there is none)."
^DD(601.86,8,"DT")="3030909"
^DD(601.86,9,0)="GRID2^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1N.N) X"
^DD(601.86,9,3)="Type a Number between -9999 and 9999, 0 Decimal Digits"
^DD(601.86,9,21,0)="^.001^2^2^3050309^^"
^DD(601.86,9,21,1,0)="This is the ordinate value of the second grid line on the graph(set to 0"
^DD(601.86,9,21,2,0)="if there is none)."
^DD(601.86,9,"DT")="3030909"
^DD(601.86,10,0)="GRID3^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1N.N) X"
^DD(601.86,10,3)="Type a Number between -9999 and 9999, 0 Decimal Digits"
^DD(601.86,10,21,0)="^.001^2^2^3050309^^"
^DD(601.86,10,21,1,0)="This is the ordinate value of the third grid line on the graph(set to 0 if"
^DD(601.86,10,21,2,0)="there is none)."
^DD(601.86,10,"DT")="3030909"
^DD(601.86,"B","GRID1",8)=""
^DD(601.86,"B","GRID2",9)=""
^DD(601.86,"B","GRID3",10)=""
^DD(601.86,"B","GROUP SEQUENCE",3)=""
^DD(601.86,"B","INSTRUMENT ID",1)=""
^DD(601.86,"B","ORDINATE TITLE",4)=""
^DD(601.86,"B","ORDINATEINCREMENT",6)=""
^DD(601.86,"B","ORDINATEMAX",7)=""
^DD(601.86,"B","ORDINATEMIN",5)=""
^DD(601.86,"B","SCALEGROUP ID",.01)=""
^DD(601.86,"B","SCALEGROUP NAME",2)=""
^DD(601.86,"GL",0,1,.01)=""
^DD(601.86,"GL",0,2,1)=""
^DD(601.86,"GL",0,3,2)=""
^DD(601.86,"GL",0,4,3)=""
^DD(601.86,"GL",0,5,4)=""
^DD(601.86,"GL",0,6,5)=""
^DD(601.86,"GL",0,7,6)=""
^DD(601.86,"GL",0,8,7)=""
^DD(601.86,"GL",0,9,8)=""
^DD(601.86,"GL",0,10,9)=""
^DD(601.86,"GL",0,11,10)=""
^DD(601.86,"IX",.01)=""
^DD(601.86,"IX",1)=""
^DD(601.86,"RQ",.01)=""
^DD(601.86,"RQ",1)=""
^DD(601.86,"RQ",2)=""
^DD(601.87,0)="FIELD^^4^5"
^DD(601.87,0,"DDA")="N"
^DD(601.87,0,"DT")="3040317"
^DD(601.87,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(601.87,0,"IX","AD",601.87,1)=""
^DD(601.87,0,"IX","B",601.87,.01)=""
^DD(601.87,0,"NM","MH SCALES")=""
^DD(601.87,0,"PT",601.91,1)=""
^DD(601.87,0,"VR")="5.01"
^DD(601.87,0,"VRPK")="YS"
^DD(601.87,.01,0)="SCALE ID^RNJ5,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.87) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.87,.01,1,0)="^.1"
^DD(601.87,.01,1,1,0)="601.87^B"
^DD(601.87,.01,1,1,1)="S ^YTT(601.87,""B"",$E(X,1,30),DA)="""""
^DD(601.87,.01,1,1,2)="K ^YTT(601.87,""B"",$E(X,1,30),DA)"
^DD(601.87,.01,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(601.87,.01,21,0)="^.001^3^3^3060123^^"
^DD(601.87,.01,21,1,0)="This is the unique record number for MH SCALES file (#601.87). It is the IEN. Numbers "
^DD(601.87,.01,21,2,0)="under 100,000 belong to the national database and should not be edited "
^DD(601.87,.01,21,3,0)="locally."
^DD(601.87,.01,"DT")="3040212"
^DD(601.87,1,0)="SCALEGROUP ID^P601.86'^YTT(601.86,^0;2^Q"
^DD(601.87,1,1,0)="^.1"
^DD(601.87,1,1,1,0)="601.87^AD"
^DD(601.87,1,1,1,1)="S ^YTT(601.87,""AD"",$E(X,1,30),DA)="""""
^DD(601.87,1,1,1,2)="K ^YTT(601.87,""AD"",$E(X,1,30),DA)"
^DD(601.87,1,1,1,"DT")="3041110"
^DD(601.87,1,21,0)="^^2^2^3050223^"
^DD(601.87,1,21,1,0)="This associates a ScaleGroup with this scale. It is a pointer to the "
^DD(601.87,1,21,2,0)="SCALEGROUP ID field (#.01) of the MH SCALEGROUP file (#601.86)."
^DD(601.87,1,"DT")="3050223"
^DD(601.87,2,0)="SCALE SEQUENCE^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.87,2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(601.87,2,21,0)="^^1^1^3040511^"
^DD(601.87,2,21,1,0)="This specifies the order the scale is displayed within the ScaleGroup."
^DD(601.87,2,"DT")="3030909"
^DD(601.87,3,0)="SCALE NAME^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(601.87,3,3)="Answer must be 1-50 characters in length."
^DD(601.87,3,21,0)="^^1^1^3040511^"
^DD(601.87,3,21,1,0)="Print Name for the scale, eg. Anxiety, Depression Score, Total."
^DD(601.87,3,"DT")="3030909"
^DD(601.87,4,0)="XLABEL^F^^0;5^K:$L(X)>5!($L(X)<1) X"
^DD(601.87,4,3)="Answer must be 1-5 characters in length."
^DD(601.87,4,21,0)="^.001^1^1^3050309^^"
^DD(601.87,4,21,1,0)="Used in graphing, this is the label for a data point on the graph's x axis."
^DD(601.87,4,"DT")="3040325"
^DD(601.87,"B","SCALE ID",.01)=""
^DD(601.87,"B","SCALE NAME",3)=""
^DD(601.87,"B","SCALE SEQUENCE",2)=""
^DD(601.87,"B","SCALEGROUP ID",1)=""
^DD(601.87,"B","XLABEL",4)=""
^DD(601.87,"GL",0,1,.01)=""
^DD(601.87,"GL",0,2,1)=""
^DD(601.87,"GL",0,3,2)=""
^DD(601.87,"GL",0,4,3)=""
^DD(601.87,"GL",0,5,4)=""
^DD(601.87,"IX",.01)=""
^DD(601.87,"IX",1)=""
^DD(601.87,"RQ",.01)=""
^DD(601.88,0)="FIELD^^11^12"
^DD(601.88,0,"DDA")="N"
^DD(601.88,0,"DT")="3040212"
^DD(601.88,0,"IX","B",601.88,.01)=""
^DD(601.88,0,"NM","MH DISPLAY")=""
^DD(601.88,0,"PT",601.76,7)=""
^DD(601.88,0,"PT",601.76,8)=""
^DD(601.88,0,"PT",601.76,9)=""
^DD(601.88,0,"PT",601.81,6)=""
^DD(601.88,0,"VR")="5.01"
^DD(601.88,0,"VRPK")="YS"
^DD(601.88,.01,0)="DISPLAY NUMBER^RNJ8,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.88) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.88,.01,1,0)="^.1"
^DD(601.88,.01,1,1,0)="601.88^B"
^DD(601.88,.01,1,1,1)="S ^YTT(601.88,""B"",$E(X,1,30),DA)="""""
^DD(601.88,.01,1,1,2)="K ^YTT(601.88,""B"",$E(X,1,30),DA)"
^DD(601.88,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(601.88,.01,21,0)="^.001^3^3^3060123^^"
^DD(601.88,.01,21,1,0)="This is the unique record number for MH DISPLAY file (#601.88). It is the IEN. Numbers "
^DD(601.88,.01,21,2,0)="under 100,000 are part of the national database and should not be edited "
^DD(601.88,.01,21,3,0)="locally."
^DD(601.88,.01,"DT")="3031230"
^DD(601.88,1,0)="FONTNAME^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(601.88,1,3)="Answer must be 1-20 characters in length."
^DD(601.88,1,21,0)="^.001^1^1^3040511^^^"
^DD(601.88,1,21,1,0)="This is the name of an existing font type."
^DD(601.88,1,"DT")="3031230"
^DD(601.88,2,0)="FONTBOLD^S^Y:Yes;N:No;^0;3^Q"
^DD(601.88,2,21,0)="^.001^1^1^3040511^^"
^DD(601.88,2,21,1,0)="Specifies font should be displayed BOLD."
^DD(601.88,2,"DT")="3031230"
^DD(601.88,3,0)="FONTITALIC^S^Y:Yes;N:No;^0;4^Q"
^DD(601.88,3,3)=""
^DD(601.88,3,21,0)="^.001^1^1^3040511^^"
^DD(601.88,3,21,1,0)="Specifies font should be displayed ITALIC."
^DD(601.88,3,"DT")="3031230"
^DD(601.88,4,0)="FONTUNDERLINED^S^Y:Yes;N:No;^0;5^Q"
^DD(601.88,4,3)=""
^DD(601.88,4,21,0)="^.001^1^1^3040511^^"
^DD(601.88,4,21,1,0)="Specifies font should be displayed UNDERLINED."
^DD(601.88,4,"DT")="3031230"
^DD(601.88,5,0)="FONTSIZE^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.88,5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(601.88,5,21,0)="^^1^1^3040511^"
^DD(601.88,5,21,1,0)="Specifies font should be displayed at this SIZE."
^DD(601.88,5,"DT")="3031230"
^DD(601.88,6,0)="FONTCOLOR^F^^0;7^K:$L(X)>25!($L(X)<1) X"
^DD(601.88,6,3)="Answer must be 1-25 characters in length."
^DD(601.88,6,21,0)="^^1^1^3040511^"
^DD(601.88,6,21,1,0)="Specifies font should be displayed in this COLOR."
^DD(601.88,6,"DT")="3031230"
^DD(601.88,7,0)="ALIGNMENT^S^L:Left;R:Right;C:Center;^0;8^Q"
^DD(601.88,7,21,0)="^^1^1^3040512^"
^DD(601.88,7,21,1,0)="Specifies text should be displayed justified, centered, left or right."
^DD(601.88,7,"DT")="3031230"
^DD(601.88,8,0)="LEFT^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.88,8,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(601.88,8,21,0)="^.001^1^1^3050309^^"
^DD(601.88,8,21,1,0)="Specifies left hand spacing."
^DD(601.88,8,"DT")="3040212"
^DD(601.88,9,0)="MASK^F^^0;10^K:$L(X)>25!($L(X)<1) X"
^DD(601.88,9,3)="Answer must be 1-25 characters in length."
^DD(601.88,9,21,0)="^^1^1^3040511^"
^DD(601.88,9,21,1,0)="Specifies font should be displayed using this MASK."
^DD(601.88,9,"DT")="3031230"
^DD(601.88,10,0)="COLUMNS^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.88,10,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(601.88,10,21,0)="^^1^1^3040511^"
^DD(601.88,10,21,1,0)="Number of columns specified."
^DD(601.88,10,"DT")="3040128"
^DD(601.88,11,0)="COMPONENT^S^RA:RadioGroup;CK:CheckList;CO:ComboBox;LI:List;ED:Edit;MA:Mask Edit;SP:Spin Edit;ME:Memo;DA:Date Picker;TR:Track Bar;OR:ORcombo Box;NA:Not Applicable;^0;12^Q"
^DD(601.88,11,21,0)="^^1^1^3040511^"
^DD(601.88,11,21,1,0)="Set of components to use in the display."
^DD(601.88,11,"DT")="3040128"
^DD(601.88,"B","ALIGNMENT",7)=""
^DD(601.88,"B","COLUMNS",10)=""
^DD(601.88,"B","COMPONENT",11)=""
^DD(601.88,"B","DISPLAY NUMBER",.01)=""
^DD(601.88,"B","FONTBOLD",2)=""
^DD(601.88,"B","FONTCOLOR",6)=""
^DD(601.88,"B","FONTITALIC",3)=""
^DD(601.88,"B","FONTNAME",1)=""
^DD(601.88,"B","FONTSIZE",5)=""
^DD(601.88,"B","FONTUNDERLINED",4)=""
^DD(601.88,"B","LEFT",8)=""
^DD(601.88,"B","MASK",9)=""
^DD(601.88,"GL",0,1,.01)=""
^DD(601.88,"GL",0,2,1)=""
^DD(601.88,"GL",0,3,2)=""
^DD(601.88,"GL",0,4,3)=""
^DD(601.88,"GL",0,5,4)=""
^DD(601.88,"GL",0,6,5)=""
^DD(601.88,"GL",0,7,6)=""
^DD(601.88,"GL",0,8,7)=""
^DD(601.88,"GL",0,9,8)=""
^DD(601.88,"GL",0,10,9)=""
^DD(601.88,"GL",0,11,10)=""
^DD(601.88,"GL",0,12,11)=""
^DD(601.88,"IX",.01)=""
^DD(601.88,"RQ",.01)=""
^DD(601.89,0)="FIELD^^1^2"
^DD(601.89,0,"DDA")="N"
^DD(601.89,0,"DT")="3040317"
^DD(601.89,0,"IX","B",601.89,.01)=""
^DD(601.89,0,"NM","MH CHOICEIDENTIFIERS")=""
^DD(601.89,0,"VR")="5.01"
^DD(601.89,0,"VRPK")="YS"
^DD(601.89,.01,0)="CHOICETYPEID^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(601.89,.01,1,0)="^.1"
^DD(601.89,.01,1,1,0)="601.89^B"
^DD(601.89,.01,1,1,1)="S ^YTT(601.89,""B"",$E(X,1,30),DA)="""""
^DD(601.89,.01,1,1,2)="K ^YTT(601.89,""B"",$E(X,1,30),DA)"
^DD(601.89,.01,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(601.89,.01,21,0)="^^3^3^3050223^"
^DD(601.89,.01,21,1,0)="This field specifies a MH CHOICETYPE ID field (#.01) of the MH "
^DD(601.89,.01,21,2,0)="CHOICETYPE file (#601.751). Numbers under 100,000 are part of the national"
^DD(601.89,.01,21,3,0)="database and should not be edited locally."
^DD(601.89,.01,"DT")="3050223"
^DD(601.89,1,0)="CHOICEIDENTIFIER^S^N:None;0:Zero;1:One;^0;2^Q"
^DD(601.89,1,21,0)="^^3^3^3040511^"
^DD(601.89,1,21,1,0)="Choicetype Identifiers are the displayed numeric options that go along "
^DD(601.89,1,21,2,0)="with a multiple choice item. Choices can be numbered starting from one,"
^DD(601.89,1,21,3,0)="from zero or remain unnumbered."
^DD(601.89,1,"DT")="3040113"
^DD(601.89,"B","CHOICEIDENTIFIER",1)=""
^DD(601.89,"B","CHOICETYPEID",.01)=""
^DD(601.89,"GL",0,1,.01)=""
^DD(601.89,"GL",0,2,1)=""
^DD(601.89,"IX",.01)=""
^DD(601.89,"RQ",.01)=""
^DD(601.91,0)="FIELD^^4^5"
^DD(601.91,0,"DDA")="N"
^DD(601.91,0,"DT")="3040227"
^DD(601.91,0,"IX","AC",601.91,1)=""
^DD(601.91,0,"IX","B",601.91,.01)=""
^DD(601.91,0,"NM","MH SCORING KEYS")=""
^DD(601.91,0,"VR")="5.01"
^DD(601.91,0,"VRPK")="YS"
^DD(601.91,.01,0)="KEY ID^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.91) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.91,.01,1,0)="^.1"
^DD(601.91,.01,1,1,0)="601.91^B"
^DD(601.91,.01,1,1,1)="S ^YTT(601.91,""B"",$E(X,1,30),DA)="""""
^DD(601.91,.01,1,1,2)="K ^YTT(601.91,""B"",$E(X,1,30),DA)"
^DD(601.91,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(601.91,.01,21,0)="^^3^3^3040511^"
^DD(601.91,.01,21,1,0)="This is the unique record number for MH Scoring Keys. This is the IEN. "
^DD(601.91,.01,21,2,0)="Numbers under 100,000 belong to the national database and should not be "
^DD(601.91,.01,21,3,0)="edited locally."
^DD(601.91,.01,"DT")="3040227"
^DD(601.91,1,0)="Scale^RP601.87'^YTT(601.87,^0;2^Q"
^DD(601.91,1,1,0)="^.1"
^DD(601.91,1,1,1,0)="601.91^AC"
^DD(601.91,1,1,1,1)="S ^YTT(601.91,""AC"",$E(X,1,30),DA)="""""
^DD(601.91,1,1,1,2)="K ^YTT(601.91,""AC"",$E(X,1,30),DA)"
^DD(601.91,1,1,1,"DT")="3040305"
^DD(601.91,1,21,0)="^^2^2^3050223^"
^DD(601.91,1,21,1,0)="Pointer to the SCALE ID field (#.01) of the MH SCALES file (#601.87) for"
^DD(601.91,1,21,2,0)="which this scoring key applies."
^DD(601.91,1,"DT")="3050223"
^DD(601.91,2,0)="Question^RP601.72'^YTT(601.72,^0;3^Q"
^DD(601.91,2,21,0)="^^2^2^3050223^"
^DD(601.91,2,21,1,0)="Pointer to the QUESTION NUMBER field (#.01) of the MH QUESTIONS file "
^DD(601.91,2,21,2,0)="(#601.72) to which this scoring key record applies."
^DD(601.91,2,"DT")="3050223"
^DD(601.91,3,0)="Target^F^^0;4^K:$L(X)>100!($L(X)<1) X"
^DD(601.91,3,3)="Answer must be 1-100 characters in length."
^DD(601.91,3,21,0)="^^1^1^3040511^"
^DD(601.91,3,21,1,0)="Text against which an Answer is compared."
^DD(601.91,3,"DT")="3040226"
^DD(601.91,4,0)="Value^NJ13,3^^0;5^K:+X'=X!(X>100000000)!(X<-100000000)!(X?.E1"".""4N.N) X"
^DD(601.91,4,3)="Type a Number between -100000000 and 100000000, 3 Decimal Digits"
^DD(601.91,4,21,0)="^.001^1^1^3040511^^"
^DD(601.91,4,21,1,0)="Value added to score if target matches Answer. May be a negative number."
^DD(601.91,4,"DT")="3040226"
^DD(601.91,"B","KEY ID",.01)=""
^DD(601.91,"B","Question",2)=""
^DD(601.91,"B","Scale",1)=""
^DD(601.91,"B","Target",3)=""
^DD(601.91,"B","Value",4)=""
^DD(601.91,"GL",0,1,.01)=""
^DD(601.91,"GL",0,2,1)=""
^DD(601.91,"GL",0,3,2)=""
^DD(601.91,"GL",0,4,3)=""
^DD(601.91,"GL",0,5,4)=""
^DD(601.91,"IX",.01)=""
^DD(601.91,"IX",1)=""
^DD(601.91,"RQ",.01)=""
^DD(601.91,"RQ",1)=""
^DD(601.91,"RQ",2)=""
^DD(601.92,0)="FIELD^^7^8"
^DD(601.92,0,"DDA")="N"
^DD(601.92,0,"DT")="3041117"
^DD(601.92,0,"IX","AC",601.92,1)=""
^DD(601.92,0,"IX","B",601.92,.01)=""
^DD(601.92,0,"NM","MH RESULTS")=""
^DD(601.92,0,"VR")="5.01"
^DD(601.92,0,"VRPK")="YS"
^DD(601.92,.01,0)="RESULT ID^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(601.92,.01,1,0)="^.1"
^DD(601.92,.01,1,1,0)="601.92^B"
^DD(601.92,.01,1,1,1)="S ^YTT(601.92,""B"",$E(X,1,30),DA)="""""
^DD(601.92,.01,1,1,2)="K ^YTT(601.92,""B"",$E(X,1,30),DA)"
^DD(601.92,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(601.92,.01,21,0)="^^2^2^3041208^"
^DD(601.92,.01,21,1,0)="Unique internal identifier of Results. This is the IEN. This should not be"
^DD(601.92,.01,21,2,0)="edited at the local level."
^DD(601.92,.01,"DT")="3041208"
^DD(601.92,1,0)="ADMINISTRATION^RP601.84'^YTT(601.84,^0;2^Q"
^DD(601.92,1,1,0)="^.1"
^DD(601.92,1,1,1,0)="601.92^AC"
^DD(601.92,1,1,1,1)="S ^YTT(601.92,""AC"",$E(X,1,30),DA)="""""
^DD(601.92,1,1,1,2)="K ^YTT(601.92,""AC"",$E(X,1,30),DA)"
^DD(601.92,1,1,1,"DT")="3041117"
^DD(601.92,1,21,0)="^^2^2^3050223^"
^DD(601.92,1,21,1,0)="Pointer to the ADMINISTRATION ID field (#.01) off the MH ADMINISTRATIONS"
^DD(601.92,1,21,2,0)="file (#601.84). Specifies patient, instrument and date."
^DD(601.92,1,"DT")="3050223"
^DD(601.92,2,0)="SCALE^RF^^0;3^K:$L(X)>99!($L(X)<1) X"
^DD(601.92,2,3)="Answer must be 1-99 characters in length."
^DD(601.92,2,21,0)="^^2^2^3050223^"
^DD(601.92,2,21,1,0)="This is the name of the scale. A pointer to the SCALE ID field (#.01) of "
^DD(601.92,2,21,2,0)="the MH SCALES file (#601.87)."
^DD(601.92,2,"DT")="3050223"
^DD(601.92,3,0)="RAW SCORE^NJ17,5^^0;4^K:+X'=X!(X>99999999999)!(X<-9999999999)!(X?.E1"".""6N.N) X"
^DD(601.92,3,3)="Type a Number between -9999999999 and 99999999999, 5 Decimal Digits"
^DD(601.92,3,21,0)="^.001^3^3^3060123^^^"
^DD(601.92,3,21,1,0)="Using the scoring specified by MH SCALEGROUPS file (#601.86) and the MH"
^DD(601.92,3,21,2,0)="SCALES file (#601.87) with the MH SCORING KEYS file (#601.91) as the scoring"
^DD(601.92,3,21,3,0)="template, this is the RAW SCORE."
^DD(601.92,3,"DT")="3050223"
^DD(601.92,4,0)="TRANSFORMED SCORE 1^NJ17,5^^0;5^K:+X'=X!(X>99999999999)!(X<-9999999999)!(X?.E1"".""6N.N) X"
^DD(601.92,4,3)="Type a Number between -9999999999 and 99999999999, 5 Decimal Digits"
^DD(601.92,4,21,0)="^^2^2^3041208^"
^DD(601.92,4,21,1,0)="A transformed score is one that uses a normative group to compute the "
^DD(601.92,4,21,2,0)="score from a Raw Score."
^DD(601.92,4,"DT")="3041208"
^DD(601.92,5,0)="TRANSFORMED SCORE 2^NJ17,5^^0;6^K:+X'=X!(X>99999999999)!(X<-9999999999)!(X?.E1"".""6N.N) X"
^DD(601.92,5,3)="Type a Number between -9999999999 and 99999999999, 5 Decimal Digits"
^DD(601.92,5,21,0)="^^2^2^3041208^"
^DD(601.92,5,21,1,0)="A transformed score is one that uses a normative group to compute the "
^DD(601.92,5,21,2,0)="score from a Raw Score."
^DD(601.92,5,"DT")="3041208"
^DD(601.92,6,0)="TRANSFORMED SCORE 3^NJ17,5^^0;7^K:+X'=X!(X>99999999999)!(X<-9999999999)!(X?.E1"".""6N.N) X"
^DD(601.92,6,3)="Type a Number between -9999999999 and 99999999999, 5 Decimal Digits"
^DD(601.92,6,21,0)="^^2^2^3041208^"
^DD(601.92,6,21,1,0)="A transformed score is one that uses a normative group to compute the "
^DD(601.92,6,21,2,0)="score from a Raw Score."
^DD(601.92,6,"DT")="3041208"
^DD(601.92,7,0)="INSTRUMENT^CJ30^^ ; ^X ^DD(601.92,7,9.2) S Y(601.92,7,101)=$S($D(^YTT(601.84,D0,0)):^(0),1:"""") S X=$P($G(^YTT(601.71,+$P(Y(601.92,7,101),U,3),0)),U) S D0=Y(601.92,7,80)"
^DD(601.92,7,9)="^"
^DD(601.92,7,9.01)="601.84^2;601.92^1"
^DD(601.92,7,9.1)="ADMINISTRATION:INSTRUMENT"
^DD(601.92,7,9.2)="S Y(601.92,7,80)=$G(D0),Y(601.92,7,1)=$S($D(^YTT(601.92,D0,0)):^(0),1:""""),D0=$P(Y(601.92,7,1),U,2) S:'D0!'$D(^YTT(601.84,+D0,0)) D0=-1"
^DD(601.92,7,"DT")="3050323"
^DD(601.92,"B","ADMINISTRATION",1)=""
^DD(601.92,"B","INSTRUMENT",7)=""
^DD(601.92,"B","RAW SCORE",3)=""
^DD(601.92,"B","RESULT ID",.01)=""
^DD(601.92,"B","SCALE",2)=""
^DD(601.92,"B","TRANSFORMED SCORE 1",4)=""
^DD(601.92,"B","TRANSFORMED SCORE 2",5)=""
^DD(601.92,"B","TRANSFORMED SCORE 3",6)=""
^DD(601.92,"GL",0,1,.01)=""
^DD(601.92,"GL",0,2,1)=""
^DD(601.92,"GL",0,3,2)=""
^DD(601.92,"GL",0,4,3)=""
^DD(601.92,"GL",0,5,4)=""
^DD(601.92,"GL",0,6,5)=""
^DD(601.92,"GL",0,7,6)=""
^DD(601.92,"IX",.01)=""
^DD(601.92,"IX",1)=""
^DD(601.92,"RQ",.01)=""
^DD(601.92,"RQ",1)=""
^DD(601.92,"RQ",2)=""
^DD(601.93,0)="FIELD^^2^3"
^DD(601.93,0,"DDA")="N"
^DD(601.93,0,"DT")="3050225"
^DD(601.93,0,"IX","B",601.93,.01)=""
^DD(601.93,0,"IX","C",601.93,1)=""
^DD(601.93,0,"NM","MH REPORT")=""
^DD(601.93,0,"VR")="5.01"
^DD(601.93,0,"VRPK")="YS"
^DD(601.93,.01,0)="REPORT NUMBER^RNJ6,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YTQLIB(601.93) K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(601.93,.01,1,0)="^.1"
^DD(601.93,.01,1,1,0)="601.93^B"
^DD(601.93,.01,1,1,1)="S ^YTT(601.93,""B"",$E(X,1,30),DA)="""""
^DD(601.93,.01,1,1,2)="K ^YTT(601.93,""B"",$E(X,1,30),DA)"
^DD(601.93,.01,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(601.93,.01,21,0)="^^1^1^3050225^"
^DD(601.93,.01,21,1,0)="IEN uniquely representing a report format."
^DD(601.93,.01,"DT")="3050225"
^DD(601.93,1,0)="INSTRUMENT^P601.71'^YTT(601.71,^0;2^Q"
^DD(601.93,1,1,0)="^.1"
^DD(601.93,1,1,1,0)="601.93^C"
^DD(601.93,1,1,1,1)="S ^YTT(601.93,""C"",$E(X,1,30),DA)="""""
^DD(601.93,1,1,1,2)="K ^YTT(601.93,""C"",$E(X,1,30),DA)"
^DD(601.93,1,1,1,"DT")="3050225"
^DD(601.93,1,21,0)="^.001^2^2^3050309^^"
^DD(601.93,1,21,1,0)="Pointer to the NAME field (#.01) of the MH TESTS AND SURVEYS file "
^DD(601.93,1,21,2,0)="(#601.71). This field associates an instrument to it's reporting format."
^DD(601.93,1,"DT")="3050225"
^DD(601.93,2,0)="RPT^601.932^^1;0"
^DD(601.93,2,21,0)="^^2^2^3060117^"
^DD(601.93,2,21,1,0)="This field is generated by the MHA editor program and can not be changed "
^DD(601.93,2,21,2,0)="outside this program."
^DD(601.93,2,"DT")="3050228"
^DD(601.93,"B","INSTRUMENT",1)=""
^DD(601.93,"B","REPORT NUMBER",.01)=""
^DD(601.93,"B","RPT",2)=""
^DD(601.93,"GL",0,1,.01)=""
^DD(601.93,"GL",0,2,1)=""
^DD(601.93,"GL",1,0,2)=""
^DD(601.93,"IX",.01)=""
^DD(601.93,"IX",1)=""
^DD(601.93,"RQ",.01)=""
^DD(601.93,"SB",601.932,2)=""
^DD(601.932,0)="RPT SUB-FIELD^^.01^1"
^DD(601.932,0,"DT")="3050225"
^DD(601.932,0,"NM","RPT")=""
^DD(601.932,0,"UP")="601.93"
^DD(601.932,.01,0)="RPT^WL^^0;1^Q"
^DD(601.932,.01,21,0)="^.001^1^1^3050228^^"
^DD(601.932,.01,21,1,0)="Structure of the reporting format for a specified instrument."
^DD(601.932,.01,"DT")="3050228"
^DD(601.932,"B","RPT",.01)=""
^DD(601.932,"GL",0,1,.01)=""
^DD(602,0)="FIELD^^20^12"
^DD(602,0,"DDA")="N"
^DD(602,0,"DIK")="YSXRAF"
^DD(602,0,"DIKOLD")="YSXRAF"
^DD(602,0,"DT")="2940711"
^DD(602,0,"IX","B",602,.01)=""
^DD(602,0,"NM","MENTAL HEALTH SITE PARAMETERS")=""
^DD(602,0,"VR")="5.01"
^DD(602,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(602,.001,3)="Only the numeric ""1"" may be entered."
^DD(602,.001,21,0)="^^1^1^2930324^"
^DD(602,.001,21,1,0)="Internal entry number of record."
^DD(602,.01,0)="SITE NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(602,.01,1,0)="^.1"
^DD(602,.01,1,1,0)="602^B"
^DD(602,.01,1,1,1)="S ^YSA(602,""B"",$E(X,1,30),DA)="""""
^DD(602,.01,1,1,2)="K ^YSA(602,""B"",$E(X,1,30),DA)"
^DD(602,.01,3)="Name of site.  There may only be one entry in this file."
^DD(602,.01,21,0)="^^1^1^2880823^^^"
^DD(602,.01,21,1,0)="Official designation of site utilizing the Mental Health System."
^DD(602,.03,0)="DAY LIMIT FOR INST. RESTART^NJ3,0^^0;3^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(602,.03,3)="Type a Number between 1 and 365, that will reflect the maximum number of days that may elapse after which a MH instrument CANNOT be restarted, zero decimal digits."
^DD(602,.03,21,0)="^^8^8^2911227^^"
^DD(602,.03,21,1,0)="This field will reflect the SITE default for the maximum number of days that"
^DD(602,.03,21,2,0)="may elapse between an interupted instrument and the restart of that "
^DD(602,.03,21,3,0)="instrument.  This value, in days, will be used when no value is found in"
^DD(602,.03,21,4,0)="a specific instrument."
^DD(602,.03,21,5,0)=" "
^DD(602,.03,21,6,0)="Note that in both fields the day limit is inclusive, so that as long as"
^DD(602,.03,21,7,0)="the elapsed days do not exceed this value then the instrument may be "
^DD(602,.03,21,8,0)="restarted."
^DD(602,.03,"DT")="2911227"
^DD(602,4,0)="MAS I/F UPDATE DEBUG FLAG^RS^0:FLAG OFF;1:FLAG ON;2:ERROR LOG;^0;4^Q"
^DD(602,4,3)="Enter ""0"" to turn debug messages OFF.  Enter ""1"" to turn debug messages ON.  Enter '2' to turn on ERROR LOGGING."
^DD(602,4,21,0)="^^6^6^2930517^^^"
^DD(602,4,21,1,0)="If flag SET=1, MAS update action & error messages and input parameters"
^DD(602,4,21,2,0)="will be displayed.  The update process will not be TASKed."
^DD(602,4,21,3,0)="If flag SET=0, NO update or error messages will be displayed.  The update"
^DD(602,4,21,4,0)="process will be submitted to TASKMAN."
^DD(602,4,21,5,0)="If flag SET=2, capturing of error messages into the ^YSG(""ERR"" file will"
^DD(602,4,21,6,0)="occur.  The update process will NOT be TASKed."
^DD(602,4,"DT")="2930517"
^DD(602,5,0)="WEIGHTED WORK UNIT^RNJ9,2^^0;5^K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(602,5,3)="Type a Number between 0 and 999999.99, 2 Decimal Digits"
^DD(602,5,21,0)="^^2^2^2900123^^^^"
^DD(602,5,21,1,0)="The authorized amount of the VA Weighted Work Unit (WWU) for the"
^DD(602,5,21,2,0)="current year."
^DD(602,5,"DT")="2900122"
^DD(602,6,0)="TASK YS PAT MOVEMENT^RS^Y:YES;N:NO;^0;6^Q"
^DD(602,6,3)="Enter ""YES"", if you want YS PAT MOVEMENT protocol to be tasked"
^DD(602,6,21,0)="^^4^4^2960306^"
^DD(602,6,21,1,0)="This field is to be used by the site to select a mode of running the"
^DD(602,6,21,2,0)="YS PAT MOVEMENT protocol.  This is part of the DGPM MOVEMENT protocol."
^DD(602,6,21,3,0)="""YES"", if the process should be tasked to run in the background."
^DD(602,6,21,4,0)="""NO"", to continue to run the process in the foreground."
^DD(602,6,"DT")="2960306"
^DD(602,10,0)="CURRENT VERSION NUMBER^RF^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(602,10,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(602,10,21,0)="^^2^2^2880819^"
^DD(602,10,21,1,0)="Version Number of the Mental Health Package that is currently"
^DD(602,10,21,2,0)="in production at the specific site."
^DD(602,10,"DT")="2880819"
^DD(602,11,0)="DSM-MR CONVERSION COMPLETION^D^^DSM;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(602,11,3)="Do not enter data directly!! This field should be set by DSM Conversion software only."
^DD(602,11,8.5)="^"
^DD(602,11,9)="^"
^DD(602,11,21,0)="^^6^6^2940711^"
^DD(602,11,21,1,0)="The full name of this field should be DSM-MEDICAL RECORD CONVERSION "
^DD(602,11,21,2,0)="COMPLETION.  This field holds the date/time when the repointing of"
^DD(602,11,21,3,0)="all Medical Record entries from the DSM3 (#627) file to the DSM "
^DD(602,11,21,4,0)="(#627.7) file was completed.  The data held in this field will be"
^DD(602,11,21,5,0)="recorded and retained permanently, even after the deletion of the"
^DD(602,11,21,6,0)="DSM3 (#627) file."
^DD(602,11,"DT")="2940711"
^DD(602,12,0)="DSM-GPN CONVERSION COMPLETION^D^^DSM;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(602,12,3)=" Do not enter data directly!! This field should be set by DSM Conversion software only."
^DD(602,12,8.5)="^"
^DD(602,12,9)="^"
^DD(602,12,21,0)="^^7^7^2940711^"
^DD(602,12,21,1,0)="The full name of this field should be DSM-GENERIC PROGRESS"
^DD(602,12,21,2,0)="NOTES CONVERSION COMPLETION.  This field holds the "
^DD(602,12,21,3,0)="date/time when the repointing of all DSM-III-R (#627.5) entries "
^DD(602,12,21,4,0)="from the GENERIC PROGRESS NOTES (#121) file to the DSM "
^DD(602,12,21,5,0)="(#627.7) file was completed.  The data held in this field will be "
^DD(602,12,21,6,0)="recorded and retained permanently, even after the deletion of the "
^DD(602,12,21,7,0)="DSM-III-R (#627.5) file."
^DD(602,12,"DT")="2940711"
^DD(602,13,0)="DSM-DR CONVERSION COMPLETION^D^^DSM;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(602,13,3)="Do not enter data directly!! This field should be set by DSM Conversion software only."
^DD(602,13,8.5)="^"
^DD(602,13,9)="^"
^DD(602,13,21,0)="^^6^6^2940711^"
^DD(602,13,21,1,0)="The full name of this field should be DSM-DIAGNOSTIC RESULTS - MENTAL "
^DD(602,13,21,2,0)="HEALTH CONVERSION COMPLETION.   This field holds the date/time when the "
^DD(602,13,21,3,0)="repointing of all DSM-III-R (#627.5) entries from the DIAGNOSTIC RESULTS - "
^DD(602,13,21,4,0)="MENTAL HEALTH (#627.8) file to the DSM (#627.7) file was completed.  "
^DD(602,13,21,5,0)="The data held in this field will be recorded and retained permanently, "
^DD(602,13,21,6,0)="even after the deletion of the DSM-III-R (#627.5) file."
^DD(602,13,"DT")="2940711"
^DD(602,15,0)="ROUTINE^602.015A^^R;0"
^DD(602,15,21,0)="^^5^5^2930324^^^"
^DD(602,15,21,1,0)="This multiple contains the name of routines in the current version"
^DD(602,15,21,2,0)="of the Mental Health System and the number of bits per routine."
^DD(602,15,21,3,0)="   "
^DD(602,15,21,4,0)="This information will be used to insure the routines in the field"
^DD(602,15,21,5,0)="correspond to those distributed by the developing ISC."
^DD(602,20,0)="TEST/INTERVIEW^602.01A^^T;0"
^DD(602,20,21,0)="^^7^7^2930324^^^"
^DD(602,20,21,1,0)="This multiple contains the names of psychological tests and interviews"
^DD(602,20,21,2,0)="in the current version of the Mental Health System and the number of"
^DD(602,20,21,3,0)="bits per test/interview."
^DD(602,20,21,4,0)="   "
^DD(602,20,21,5,0)="This information will be used to insure the tests and interviews in"
^DD(602,20,21,6,0)="use at specific sites correspond to those distributed by the developing"
^DD(602,20,21,7,0)="ISC."
^DD(602,"B","CURRENT VERSION NUMBER",10)=""
^DD(602,"B","DAY LIMIT FOR INST. RESTART",.03)=""
^DD(602,"B","DSM-DR CONVERSION COMPLETION",13)=""
^DD(602,"B","DSM-GPN CONVERSION COMPLETION",12)=""
^DD(602,"B","DSM-MR CONVERSION COMPLETION",11)=""
^DD(602,"B","MAS I/F UPDATE DEBUG FLAG",4)=""
^DD(602,"B","NUMBER",.001)=""
^DD(602,"B","ROUTINE",15)=""
^DD(602,"B","SITE NAME",.01)=""
^DD(602,"B","TASK YS PAT MOVEMENT",6)=""
^DD(602,"B","TEST/INTERVIEW",20)=""
^DD(602,"B","WEIGHTED WORK UNIT",5)=""
^DD(602,"GL",0,1,.01)=""
^DD(602,"GL",0,2,10)=""
^DD(602,"GL",0,3,.03)=""
^DD(602,"GL",0,4,4)=""
^DD(602,"GL",0,5,5)=""
^DD(602,"GL",0,6,6)=""
^DD(602,"GL","DSM",1,11)=""
^DD(602,"GL","DSM",2,12)=""
^DD(602,"GL","DSM",3,13)=""
^DD(602,"GL","R",0,15)=""
^DD(602,"GL","T",0,20)=""
^DD(602,"IX",.01)=""
^DD(602,"RQ",.01)=""
^DD(602,"RQ",4)=""
^DD(602,"RQ",5)=""
^DD(602,"RQ",6)=""
^DD(602,"RQ",10)=""
^DD(602,"SB",602.01,20)=""
^DD(602,"SB",602.015,15)=""
^DD(602.01,0)="TEST/INTERVIEW SUB-FIELD^^3^3"
^DD(602.01,0,"DIK")="YSXRAF"
^DD(602.01,0,"IX","B",602.01,.01)=""
^DD(602.01,0,"NM","TEST/INTERVIEW")=""
^DD(602.01,0,"UP")="602"
^DD(602.01,.01,0)="TEST/INTERVIEW^F^^0;1^K:$L(X)>7!($L(X)<1) X"
^DD(602.01,.01,1,0)="^.1"
^DD(602.01,.01,1,1,0)="602.01^B"
^DD(602.01,.01,1,1,1)="S ^YSA(602,DA(1),""T"",""B"",$E(X,1,30),DA)="""""
^DD(602.01,.01,1,1,2)="K ^YSA(602,DA(1),""T"",""B"",$E(X,1,30),DA)"
^DD(602.01,.01,3)="ANSWER MUST BE 1-7 CHARACTERS IN LENGTH"
^DD(602.01,.01,21,0)="^^1^1^2930324^"
^DD(602.01,.01,21,1,0)="Instrument (test/interview) name."
^DD(602.01,.01,"DT")="2880822"
^DD(602.01,1,0)="BIT COUNT^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(602.01,1,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(602.01,1,21,0)="^^3^3^2930324^"
^DD(602.01,1,21,1,0)="This was intented to be used as the BIT COUNT field for indiviual"
^DD(602.01,1,21,2,0)="instruments (test/interviews).  This field is current NOT in use"
^DD(602.01,1,21,3,0)="because NO method exists to get a BIT COUNT for an instrument."
^DD(602.01,1,"DT")="2880822"
^DD(602.01,3,0)="DATE SET^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(602.01,3,21,0)="^^1^1^2930324^"
^DD(602.01,3,21,1,0)="Date BIT COUNT was taken.  NOT currently in use."
^DD(602.01,3,"DT")="2880822"
^DD(602.01,"B","BIT COUNT",1)=""
^DD(602.01,"B","DATE SET",3)=""
^DD(602.01,"B","TEST/INTERVIEW",.01)=""
^DD(602.01,"GL",0,1,.01)=""
^DD(602.01,"GL",0,2,1)=""
^DD(602.01,"GL",0,3,3)=""
^DD(602.01,"IX",.01)=""
^DD(602.015,0)="ROUTINE SUB-FIELD^^2^3"
^DD(602.015,0,"DIK")="YSXRAF"
^DD(602.015,0,"IX","B",602.015,.01)=""
^DD(602.015,0,"NM","ROUTINE")=""
^DD(602.015,0,"UP")="602"
^DD(602.015,.01,0)="ROUTINE^MF^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(602.015,.01,1,0)="^.1"
^DD(602.015,.01,1,1,0)="602.015^B"
^DD(602.015,.01,1,1,1)="S ^YSA(602,DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(602.015,.01,1,1,2)="K ^YSA(602,DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(602.015,.01,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(602.015,.01,21,0)="^^1^1^2930324^"
^DD(602.015,.01,21,1,0)="Name of routine."
^DD(602.015,.01,"DT")="2880822"
^DD(602.015,1,0)="BIT COUNT^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(602.015,1,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(602.015,1,21,0)="^^1^1^2930324^"
^DD(602.015,1,21,1,0)="This is the CHECK^XTSUMBLD bit count for this routine."
^DD(602.015,1,"DT")="2880822"
^DD(602.015,2,0)="DATE SET^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(602.015,2,21,0)="^^1^1^2930324^"
^DD(602.015,2,21,1,0)="Date the CHECK SUM was determined."
^DD(602.015,2,"DT")="2880822"
^DD(602.015,"B","BIT COUNT",1)=""
^DD(602.015,"B","DATE SET",2)=""
^DD(602.015,"B","ROUTINE",.01)=""
^DD(602.015,"GL",0,1,.01)=""
^DD(602.015,"GL",0,2,1)=""
^DD(602.015,"GL",0,3,2)=""
^DD(602.015,"IX",.01)=""
^DD(603.01,0)="FIELD^^3^4"
^DD(603.01,0,"DT")="3060307"
^DD(603.01,0,"IX","B",603.01,.01)=""
^DD(603.01,0,"IX","C",603.01,1)=""
^DD(603.01,0,"NM","CLOZAPINE PATIENT LIST")=""
^DD(603.01,0,"VR")="5.01"
^DD(603.01,0,"VRPK")="YS"
^DD(603.01,.01,0)="CLOZAPINE REGISTRATION NUMBER^RF^^0;1^K:$L(X)>7!($L(X)<7) X"
^DD(603.01,.01,1,0)="^.1"
^DD(603.01,.01,1,1,0)="603.01^B"
^DD(603.01,.01,1,1,1)="S ^YSCL(603.01,""B"",$E(X,1,30),DA)="""""
^DD(603.01,.01,1,1,2)="K ^YSCL(603.01,""B"",$E(X,1,30),DA)"
^DD(603.01,.01,3)="Answer must be 7 characters in length."
^DD(603.01,.01,21,0)="^^3^3^3060315^"
^DD(603.01,.01,21,1,0)="The Clozapine registration number is assigned by the manufacturer.  It is "
^DD(603.01,.01,21,2,0)="maintained and authorized by the NCCC in Dallas. Refer all questions "
^DD(603.01,.01,21,3,0)="regarding this number to the NCCC."
^DD(603.01,.01,"DT")="3060315"
^DD(603.01,1,0)="CLOZAPINE PATIENT^RP2'^DPT(^0;2^Q"
^DD(603.01,1,1,0)="^.1"
^DD(603.01,1,1,1,0)="603.01^C"
^DD(603.01,1,1,1,1)="S ^YSCL(603.01,""C"",$E(X,1,30),DA)="""""
^DD(603.01,1,1,1,2)="K ^YSCL(603.01,""C"",$E(X,1,30),DA)"
^DD(603.01,1,1,1,"DT")="2940412"
^DD(603.01,1,21,0)="^^2^2^3060315^"
^DD(603.01,1,21,1,0)="This is a pointer to the Patient (#2) file.  The patient must be "
^DD(603.01,1,21,2,0)="authorized by the NCCC in Dallas before treatment is started."
^DD(603.01,1,"DT")="3060315"
^DD(603.01,2,0)="DISPENSE FREQUENCY^S^W:WEEKLY;B:BI-WEEKLY;M:MONTHLY;^0;3^Q"
^DD(603.01,2,3)="Enter ""M"" if patient is authorized for Monthly, ""B"" if patient is authorized for Bi-Weekly Clozapine prescription, ""W"" if prescriptions must be written weekly."
^DD(603.01,2,21,0)="^.001^2^2^3050615^^^^"
^DD(603.01,2,21,1,0)="This field indicates whether a patient is authorized for a weekly or"
^DD(603.01,2,21,2,0)="biweekly Clozapine dosage."
^DD(603.01,2,"DT")="3050615"
^DD(603.01,3,0)="OVERRIDE DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(603.01,3,3)="Enter the date to allow an over-ride."
^DD(603.01,3,21,0)="^^1^1^3060307^"
^DD(603.01,3,21,1,0)="This field contains the specific date when an override will be allowed for this patient.  This date should only be manipulated by the NCCC."
^DD(603.01,3,"DT")="3060307"
^DD(603.01,"B","CLOZAPINE PATIENT",1)=""
^DD(603.01,"B","CLOZAPINE REGISTRATION NUMBER",.01)=""
^DD(603.01,"B","DISPENSE FREQUENCY",2)=""
^DD(603.01,"B","OVERRIDE DATE",3)=""
^DD(603.01,"GL",0,1,.01)=""
^DD(603.01,"GL",0,2,1)=""
^DD(603.01,"GL",0,3,2)=""
^DD(603.01,"GL",0,4,3)=""
^DD(603.01,"IX",.01)=""
^DD(603.01,"IX",1)=""
^DD(603.01,"RQ",.01)=""
^DD(603.01,"RQ",1)=""
^DD(603.02,0)="FIELD^^1^2"
^DD(603.02,0,"DT")="2980904"
^DD(603.02,0,"IX","B",603.02,.01)=""
^DD(603.02,0,"NM","CLOZAPINE LAB TEST")=""
^DD(603.02,0,"VR")="5.01"
^DD(603.02,0,"VRPK")="YS"
^DD(603.02,.01,0)="WHITE BLOOD COUNT^RP64'X^LAM(^0;1^I +$G(DA)'=1 K X W !,""Only one entry may exist."""
^DD(603.02,.01,1,0)="^.1"
^DD(603.02,.01,1,1,0)="603.02^B"
^DD(603.02,.01,1,1,1)="S ^YSCL(603.02,""B"",$E(X,1,30),DA)="""""
^DD(603.02,.01,1,1,2)="K ^YSCL(603.02,""B"",$E(X,1,30),DA)"
^DD(603.02,.01,3)="Enter the test used for the White Blood Count to be reported to the Clozapine Roll-Up database in Hines."
^DD(603.02,.01,21,0)="^^2^2^2981130^^^"
^DD(603.02,.01,21,1,0)="This is the Workload Code (from file 64) that will be used to track the"
^DD(603.02,.01,21,2,0)="White Blood Count for Clozapine patients."
^DD(603.02,.01,"DT")="2981130"
^DD(603.02,1,0)="NEUTROPHIL COUNT^RP64'X^LAM(^0;2^I +$G(DA)'=1 K X W !,""Only one entry may exist."""
^DD(603.02,1,3)="Enter the test used for the Neutrophil Count to be reported to the Clozapine Roll-Up database in Hines."
^DD(603.02,1,21,0)="^^2^2^2981130^^^^"
^DD(603.02,1,21,1,0)="This is the test used to track the Neutrophil Count for the"
^DD(603.02,1,21,2,0)="Clozapine patients."
^DD(603.02,1,"DT")="2981130"
^DD(603.02,"B","NEUTROPHIL COUNT",1)=""
^DD(603.02,"B","WHITE BLOOD COUNT",.01)=""
^DD(603.02,"GL",0,1,.01)=""
^DD(603.02,"GL",0,2,1)=""
^DD(603.02,"IX",.01)=""
^DD(603.02,"RQ",.01)=""
^DD(603.02,"RQ",1)=""
^DD(603.03,0)="FIELD^^7^7"
^DD(603.03,0,"DDA")="N"
^DD(603.03,0,"DT")="3050620"
^DD(603.03,0,"IX","B",603.03,.01)=""
^DD(603.03,0,"NM","CLOZAPINE PARAMETERS")=""
^DD(603.03,0,"VR")="5.01"
^DD(603.03,0,"VRPK")="YS"
^DD(603.03,.01,0)="NAME^RSX^CLOZAPINE:CLOZAPINE;^0;1^I +$G(DA)'=1 K X W !,""Only one entry may exist."""
^DD(603.03,.01,1,0)="^.1"
^DD(603.03,.01,1,1,0)="603.03^B"
^DD(603.03,.01,1,1,1)="S ^YSCL(603.03,""B"",$E(X,1,30),DA)="""""
^DD(603.03,.01,1,1,2)="K ^YSCL(603.03,""B"",$E(X,1,30),DA)"
^DD(603.03,.01,3)="This field should always equal CLOZAPINE"
^DD(603.03,.01,21,0)="^.001^2^2^3001220^^^"
^DD(603.03,.01,21,1,0)="This file will hold the configuration parameters for the Clozapine"
^DD(603.03,.01,21,2,0)="reporting system."
^DD(603.03,.01,"DT")="3001115"
^DD(603.03,2,0)="TRANSMISSION DAY^RS^SUNDAY:SUNDAY;MONDAY:MONDAY;TUESDAY:TUESDAY;WEDNESDAY:WEDNESDAY;THURSDAY:THURSDAY;FRIDAY:FRIDAY;SATURDAY:SATURDAY;^0;2^Q"
^DD(603.03,2,3)="Enter the day of the week when transmission should occur."
^DD(603.03,2,21,0)="^^3^3^3010412^"
^DD(603.03,2,21,1,0)="This is the day of the week when the transmission should occur.  Normally"
^DD(603.03,2,21,2,0)="this is set to TUESDAY, but may be changed to accommodate special"
^DD(603.03,2,21,3,0)="circumstances."
^DD(603.03,2,"DT")="3001115"
^DD(603.03,3,0)="DEBUG MODE^S^0:OFF;1:ON;^0;3^Q"
^DD(603.03,3,"DT")="3010412"
^DD(603.03,4,0)="TRANSMISSION START^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(603.03,4,3)="Enter the date and time that the transmission started."
^DD(603.03,4,21,0)="^.001^1^1^3001218^^"
^DD(603.03,4,21,1,0)="This is the start date and time of the most recent transmission."
^DD(603.03,4,"DT")="3001115"
^DD(603.03,5,0)="TRANSMISSION END^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(603.03,5,3)="Enter the date/time when the transmission completed."
^DD(603.03,5,21,0)="^^1^1^3001218^"
^DD(603.03,5,21,1,0)="This is the date and time when the most recent transmission was completed."
^DD(603.03,5,"DT")="3001115"
^DD(603.03,6,0)="LAST DEMOGRAPHICS TRANSMISSION^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(603.03,6,3)="Enter the date and time of the last demographics transmission."
^DD(603.03,6,21,0)="^^2^2^3001218^"
^DD(603.03,6,21,1,0)="This is the date and time when the most recent demographics transmission"
^DD(603.03,6,21,2,0)="was completed."
^DD(603.03,6,"DT")="3001115"
^DD(603.03,7,0)="LOCK DOWN^RS^1:YES;0:NO;^1;1^Q"
^DD(603.03,7,3)="Used to determine if site is allowed to dispense."
^DD(603.03,7,"DT")="3050620"
^DD(603.03,"B","DEBUG MODE",3)=""
^DD(603.03,"B","LAST DEMOGRAPHICS TRANSMISSION",6)=""
^DD(603.03,"B","LOCK DOWN",7)=""
^DD(603.03,"B","NAME",.01)=""
^DD(603.03,"B","TRANSMISSION DAY",2)=""
^DD(603.03,"B","TRANSMISSION END",5)=""
^DD(603.03,"B","TRANSMISSION START",4)=""
^DD(603.03,"GL",0,1,.01)=""
^DD(603.03,"GL",0,2,2)=""
^DD(603.03,"GL",0,3,3)=""
^DD(603.03,"GL",0,4,4)=""
^DD(603.03,"GL",0,5,5)=""
^DD(603.03,"GL",0,6,6)=""
^DD(603.03,"GL",1,1,7)=""
^DD(603.03,"IX",.01)=""
^DD(603.03,"RQ",.01)=""
^DD(603.03,"RQ",2)=""
^DD(603.03,"RQ",7)=""
^DD(603.04,0)="FIELD^^1^2"
^DD(603.04,0,"DDA")="N"
^DD(603.04,0,"DT")="3060628"
^DD(603.04,0,"IX","B",603.04,.01)=""
^DD(603.04,0,"NM","CLOZAPINE TESTS")=""
^DD(603.04,0,"VR")="5.01"
^DD(603.04,0,"VRPK")="YS"
^DD(603.04,.01,0)="NAME^RFXI^^0;1^K X W !,""ONLY ONE ENTRY IS ALLOWED"""
^DD(603.04,.01,1,0)="^.1"
^DD(603.04,.01,1,1,0)="603.04^B"
^DD(603.04,.01,1,1,1)="S ^YSCL(603.04,""B"",$E(X,1,30),DA)="""""
^DD(603.04,.01,1,1,2)="K ^YSCL(603.04,""B"",$E(X,1,30),DA)"
^DD(603.04,.01,3)="NAME MUST BE CLOZAPINE. ONLY ONE ENTRY IS ALLOWED."
^DD(603.04,.01,21,0)="^^1^1^3060314^^"
^DD(603.04,.01,21,1,0)="This field should contain the word CLOZAPINE."
^DD(603.04,.01,"DT")="3060314"
^DD(603.04,1,0)="TEST NAME^603.41P^^1;0"
^DD(603.04,1,21,0)="^^5^5^3060314^"
^DD(603.04,1,21,1,0)="This is the name of the test associated with Clozapine.  A White Blood "
^DD(603.04,1,21,2,0)="Count and a method of determining the Neutorphil Count must be entered.  "
^DD(603.04,1,21,3,0)="You may enter as many of each as are appropriate.  The Neutorphil count "
^DD(603.04,1,21,4,0)="may be and absolute count, a percentage, or the BANDS and SEGS.  If BANDS "
^DD(603.04,1,21,5,0)="and SEGS are entered, a separate test must be entered for each."
^DD(603.04,"B","NAME",.01)=""
^DD(603.04,"B","TEST NAME",1)=""
^DD(603.04,"GL",0,1,.01)=""
^DD(603.04,"GL",1,0,1)=""
^DD(603.04,"IX",.01)=""
^DD(603.04,"RQ",.01)=""
^DD(603.04,"SB",603.41,1)=""
^DD(603.41,0)="TEST NAME SUB-FIELD^^2^3"
^DD(603.41,0,"DT")="3060628"
^DD(603.41,0,"IX","B",603.41,.01)=""
^DD(603.41,0,"NM","TEST NAME")=""
^DD(603.41,0,"UP")="603.04"
^DD(603.41,.01,0)="TEST NAME^MP60'^LAB(60,^0;1^Q"
^DD(603.41,.01,1,0)="^.1^^-1"
^DD(603.41,.01,1,1,0)="603.41^B"
^DD(603.41,.01,1,1,1)="S ^YSCL(603.04,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(603.41,.01,1,1,2)="K ^YSCL(603.04,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(603.41,.01,3)="Enter the name of the test associated with Clozapine,"
^DD(603.41,.01,21,0)="^^5^5^3060314^"
^DD(603.41,.01,21,1,0)="This is the name of the test associated with Clozapine.  A White Blood "
^DD(603.41,.01,21,2,0)="Count and a method of determining the Neutorphil Count must be entered.  "
^DD(603.41,.01,21,3,0)="You may enter as many of each as are appropriate.  The Neutorphil count "
^DD(603.41,.01,21,4,0)="may be and absolute count, a percentage, or the BANDS and SEGS.  If BANDS "
^DD(603.41,.01,21,5,0)="and SEGS are entered, a separate test must be entered for each."
^DD(603.41,.01,"DT")="3060314"
^DD(603.41,1,0)="TEST TYPE^RS^W:WHITE BLOOD COUNT;A:ABSOLUTE NEUTROPHIL COUNT;N:NEUTROPHIL PERCENT;S:SEGS %;B:BANDS %;T:BANDS ABSOLUTE;C:SEGS ABSOLUTE;^0;2^Q"
^DD(603.41,1,3)="Enter the type (WBC, ANC, SEGS, BANDS) associated with the TEST NAME field."
^DD(603.41,1,21,0)="^^3^3^3060314^"
^DD(603.41,1,21,1,0)="This is the type of the test associated with Clozapine.  The choices are: "
^DD(603.41,1,21,2,0)="WHITE BLOOD COUNT, ABSOLUTE NEUTROPHIL COUNT, NEUTROPHIL PERCENT, SEGS,"
^DD(603.41,1,21,3,0)="and BANDS.  The type must match the test entered in the TEST NAME field."
^DD(603.41,1,"DT")="3060320"
^DD(603.41,2,0)="REPORTING FORMAT^RS^0:Units;1:K/units;2:Percentage;^0;3^Q"
^DD(603.41,2,21,0)="^^4^4^3060619^"
^DD(603.41,2,21,1,0)="Most sites report WBC and Neutorphil results in K/unit format (K/cc or "
^DD(603.41,2,21,2,0)="K/cu mm or K/mm-3 or K/mL). For example, WBC equals 5.1.  However, some"
^DD(603.41,2,21,3,0)="report results as discrete units. For example, WBC equals 5100.  This"
^DD(603.41,2,21,4,0)="field will allow the site to specify how results are reported."
^DD(603.41,2,"DT")="3060628"
^DD(603.41,"B","REPORTING FORMAT",2)=""
^DD(603.41,"B","TEST NAME",.01)=""
^DD(603.41,"B","TEST TYPE",1)=""
^DD(603.41,"GL",0,1,.01)=""
^DD(603.41,"GL",0,2,1)=""
^DD(603.41,"GL",0,3,2)=""
^DD(603.41,"IX",.01)=""
^DD(603.41,"RQ",1)=""
^DD(603.41,"RQ",2)=""
^DD(604,0)="FIELD^^188^319"
^DD(604,0,"DDA")="N"
^DD(604,0,"DT")="3000721"
^DD(604,0,"ID","WRITE")="W $$ID^YSASLIB(Y)"
^DD(604,0,"IX","A02",604,.02)=""
^DD(604,0,"IX","A81",604,.81)=""
^DD(604,0,"IX","AA81",604,.81)=""
^DD(604,0,"IX","AD",604,.05)=""
^DD(604,0,"IX","ATR",604,5.5)=""
^DD(604,0,"IX","B",604,.01)=""
^DD(604,0,"IX","C",604,.02)=""
^DD(604,0,"IX","D",604,.04)=""
^DD(604,0,"NM","ADDICTION SEVERITY INDEX")=""
^DD(604,0,"VR")="5.01"
^DD(604,0,"VRPK")="YS"
^DD(604,.01,0)="ID NUMBER^RNJ7,0X^^0;1^S:$TR(X,""new"",""NEW"")=""NEW"" X=$$NEW^YSASLIB K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X S:$G(X) DINUM=X"
^DD(604,.01,1,0)="^.1"
^DD(604,.01,1,1,0)="604^B"
^DD(604,.01,1,1,1)="S ^YSTX(604,""B"",$E(X,1,30),DA)="""""
^DD(604,.01,1,1,2)="K ^YSTX(604,""B"",$E(X,1,30),DA)"
^DD(604,.01,1,2,0)="^^TRIGGER^604^.14"
^DD(604,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^YSTX(604,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(604,.01,1,2,1.4)"
^DD(604,.01,1,2,1.4)="S DIH=$S($D(^YSTX(604,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,14)=DIV,DIH=604,DIG=.14 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(604,.01,1,2,2)="Q"
^DD(604,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(604,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(604,.01,1,2,"DT")="2960321"
^DD(604,.01,1,2,"FIELD")="RECORD INITILIZED BY"
^DD(604,.01,1,3,0)="^^TRIGGER^604^.12"
^DD(604,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^YSTX(604,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(604,.01,1,3,1.1) X ^DD(604,.01,1,3,1.4)"
^DD(604,.01,1,3,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(604,.01,1,3,1.4)="S DIH=$S($D(^YSTX(604,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=604,DIG=.12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(604,.01,1,3,2)="Q"
^DD(604,.01,1,3,"CREATE VALUE")="NOW"
^DD(604,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(604,.01,1,3,"DT")="2960321"
^DD(604,.01,1,3,"FIELD")="RECORD INITILIZED DATE TIME"
^DD(604,.01,1,4,0)="^^TRIGGER^604^.81"
^DD(604,.01,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^YSTX(604,D0,.8)):^(.8),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(604,.01,1,4,1.4)"
^DD(604,.01,1,4,1.4)="S DIH=$S($D(^YSTX(604,DIV(0),.8)):^(.8),1:""""),DIV=X S $P(^(.8),U,1)=DIV,DIH=604,DIG=.81 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(604,.01,1,4,2)="Q"
^DD(604,.01,1,4,"CREATE VALUE")="S X=DUZ"
^DD(604,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(604,.01,1,4,"DT")="2960503"
^DD(604,.01,1,4,"FIELD")="ALLOWED TO EDIT"
^DD(604,.01,3)="Enter NEW if this is a new entry or you may select and existing entry from the list."
^DD(604,.01,21,0)="^^2^2^2970314^^"
^DD(604,.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.01,21,2,0)="G1. I.D. Number "
^DD(604,.01,"DT")="2960506"
^DD(604,.02,0)="NAME^P2'^DPT(^0;2^Q"
^DD(604,.02,1,0)="^.1"
^DD(604,.02,1,1,0)="604^C"
^DD(604,.02,1,1,1)="S ^YSTX(604,""C"",$E(X,1,30),DA)="""""
^DD(604,.02,1,1,2)="K ^YSTX(604,""C"",$E(X,1,30),DA)"
^DD(604,.02,1,1,"DT")="2960301"
^DD(604,.02,1,2,0)="604^A02^MUMPS"
^DD(604,.02,1,2,1)="S ^YSTX(604,""A02.""_X,DA,DA)="""""
^DD(604,.02,1,2,2)="K ^YSTX(604,""A02.""_X,DA,DA)"
^DD(604,.02,1,2,"DT")="2960501"
^DD(604,.02,21,0)="^^1^1^2970314^"
^DD(604,.02,21,1,0)="This is the patients name.  Pointer to Patient File."
^DD(604,.02,"DT")="2960501"
^DD(604,.0203,0)="DATE OF BIRTH^DC^^ ; ^X ^DD(604,.0203,9.2) S Y(604,.0203,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(604,.0203,101),U,3) S D0=Y(604,.0203,80)"
^DD(604,.0203,.1)="DOB"
^DD(604,.0203,9)="^"
^DD(604,.0203,9.01)="2^.03;604^.02"
^DD(604,.0203,9.1)=".02:.03"
^DD(604,.0203,9.2)="S Y(604,.0203,80)=$S($D(D0):D0,1:""""),Y(604,.0203,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.0203,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.0203,"DT")="2960227"
^DD(604,.0209,0)="SSN^CJ12^^ ; ^X ^DD(604,.0209,9.2) S Y(604,.0209,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(604,.0209,101),U,9) S D0=Y(604,.0209,80)"
^DD(604,.0209,9)="^"
^DD(604,.0209,9.01)="2^.09;604^.02"
^DD(604,.0209,9.1)=".02:.09"
^DD(604,.0209,9.2)="S Y(604,.0209,80)=$S($D(D0):D0,1:""""),Y(604,.0209,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.0209,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.02111,0)="STREET LINE 1^CJ35^^ ; ^X ^DD(604,.02111,9.2) S Y(604,.02111,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(604,.02111,101),U,1) S D0=Y(604,.02111,80)"
^DD(604,.02111,9)="^"
^DD(604,.02111,9.01)="2^.111;604^.02"
^DD(604,.02111,9.1)="NAME:STREET ADDRESS [LINE 1]"
^DD(604,.02111,9.2)="S Y(604,.02111,80)=$S($D(D0):D0,1:""""),Y(604,.02111,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.02111,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.021112,0)="ZIP+4^CJ20^^ ; ^X ^DD(604,.021112,9.3) S Y=$P(Y(604,.021112,101),U,12) X:$D(^DD(2,.1112,2)) ^(2) S X=Y S D0=Y(604,.021112,80)"
^DD(604,.021112,9)="^"
^DD(604,.021112,9.01)="2^.1112;604^.02"
^DD(604,.021112,9.1)=".02:.1112"
^DD(604,.021112,9.2)="S Y(604,.021112,80)=$S($D(D0):D0,1:""""),Y(604,.021112,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.021112,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.021112,9.3)="X ^DD(604,.021112,9.2) S Y(604,.021112,101)=$S($D(^DPT(D0,.11)):^(.11),1:""""),Y(604,.021112,102)=X"
^DD(604,.02112,0)="STREET LINE 2^CJ30^^ ; ^X ^DD(604,.02112,9.2) S Y(604,.02112,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(604,.02112,101),U,2) S D0=Y(604,.02112,80)"
^DD(604,.02112,9)="^"
^DD(604,.02112,9.01)="2^.112;604^.02"
^DD(604,.02112,9.1)="NAME:STREET ADDRESS [LINE 2]"
^DD(604,.02112,9.2)="S Y(604,.02112,80)=$S($D(D0):D0,1:""""),Y(604,.02112,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.02112,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.02113,0)="STREET LINE 3^CJ30^^ ; ^X ^DD(604,.02113,9.2) S Y(604,.02113,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(604,.02113,101),U,3) S D0=Y(604,.02113,80)"
^DD(604,.02113,9)="^"
^DD(604,.02113,9.01)="2^.113;604^.02"
^DD(604,.02113,9.1)="NAME:STREET ADDRESS [LINE 3]"
^DD(604,.02113,9.2)="S Y(604,.02113,80)=$S($D(D0):D0,1:""""),Y(604,.02113,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.02113,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.02114,0)="CITY^CJ15^^ ; ^X ^DD(604,.02114,9.2) S Y(604,.02114,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(604,.02114,101),U,4) S D0=Y(604,.02114,80)"
^DD(604,.02114,9)="^"
^DD(604,.02114,9.01)="2^.114;604^.02"
^DD(604,.02114,9.1)=".02:.114"
^DD(604,.02114,9.2)="S Y(604,.02114,80)=$S($D(D0):D0,1:""""),Y(604,.02114,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.02114,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.02115,0)="STATE^CJ30^^ ; ^X ^DD(604,.02115,9.2) S Y(604,.02115,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$S('$D(^DIC(5,+$P(Y(604,.02115,101),U,5),0)):"""",1:$P(^(0),U,1)) S D0=Y(604,.02115,80)"
^DD(604,.02115,9)="^"
^DD(604,.02115,9.01)="2^.115;604^.02"
^DD(604,.02115,9.1)=".02:.115"
^DD(604,.02115,9.2)="S Y(604,.02115,80)=$S($D(D0):D0,1:""""),Y(604,.02115,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.02115,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.02116,0)="ZIP^CJ5^^ ; ^X ^DD(604,.02116,9.2) S Y(604,.02116,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""") S X=$P(Y(604,.02116,101),U,6) S D0=Y(604,.02116,80)"
^DD(604,.02116,9)="^"
^DD(604,.02116,9.01)="2^.116;604^.02"
^DD(604,.02116,9.1)=".02:.116"
^DD(604,.02116,9.2)="S Y(604,.02116,80)=$S($D(D0):D0,1:""""),Y(604,.02116,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.02116,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.02131,0)="PHONE^CJ20^^ ; ^X ^DD(604,.02131,9.2) S Y(604,.02131,101)=$S($D(^DPT(D0,.13)):^(.13),1:"""") S X=$P(Y(604,.02131,101),U,1) S D0=Y(604,.02131,80)"
^DD(604,.02131,9)="^"
^DD(604,.02131,9.01)="2^.131;604^.02"
^DD(604,.02131,9.1)=".02:.131"
^DD(604,.02131,9.2)="S Y(604,.02131,80)=$S($D(D0):D0,1:""""),Y(604,.02131,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.02131,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.033,0)="RESOLVED ADM DATE^F^^11;10^K:$L(X)>25!($L(X)<1) X"
^DD(604,.033,3)="Answer must be 1-25 characters in length."
^DD(604,.033,"DT")="2960305"
^DD(604,.04,0)="CLASS^S^1:FULL;2:LITE;3:FOLLOWUP;4:ASI-MV;^0;4^Q"
^DD(604,.04,.1)="G8 Class"
^DD(604,.04,1,0)="^.1"
^DD(604,.04,1,1,0)="604^D"
^DD(604,.04,1,1,1)="S ^YSTX(604,""D"",$E(X,1,30),DA)="""""
^DD(604,.04,1,1,2)="K ^YSTX(604,""D"",$E(X,1,30),DA)"
^DD(604,.04,1,1,"DT")="2960328"
^DD(604,.04,21,0)="^.001^2^2^3010326^^^^"
^DD(604,.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.04,21,2,0)="G8. Class: '1' FOR FULL '2' FOR LITE '3' FOR FOLLOWUP '4' FOR ASI-MV"
^DD(604,.04,"DT")="3000721"
^DD(604,.044,0)="AGE^CJ8^^ ; ^X ^DD(604,.044,9.2) X $P(^DD(2,.033,0),U,5,99) S Y(604,.044,101)=X S X=Y(604,.044,101) S D0=Y(604,.044,80)"
^DD(604,.044,9)="^"
^DD(604,.044,9.01)="2^.033;604^.02"
^DD(604,.044,9.1)="NAME:AGE"
^DD(604,.044,9.2)="S Y(604,.044,80)=$S($D(D0):D0,1:""""),Y(604,.044,1)=$S($D(^YSTX(604,D0,0)):^(0),1:""""),D0=$P(Y(604,.044,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(604,.05,0)="DATE OF INTERVIEW^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(604,.05,.1)="G5 Date of Interview"
^DD(604,.05,1,0)="^.1"
^DD(604,.05,1,1,0)="604^AD"
^DD(604,.05,1,1,1)="S ^YSTX(604,""AD"",$E(X,1,30),DA)="""""
^DD(604,.05,1,1,2)="K ^YSTX(604,""AD"",$E(X,1,30),DA)"
^DD(604,.05,1,1,"DT")="2961231"
^DD(604,.05,21,0)="^^2^2^2970314^"
^DD(604,.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.05,21,2,0)="G5. Date of Interview"
^DD(604,.05,"DT")="2961231"
^DD(604,.051,0)="TIME INTERVIEW BEGAN^FX^^0;13^S X=$$X^YSAST(X) K:X="""" X"
^DD(604,.051,.1)="G6 Time Begun"
^DD(604,.051,3)="Enter time interview began."
^DD(604,.051,21,0)="^^2^2^2970317^^^"
^DD(604,.051,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.051,21,2,0)="G5. TIME BEGUN"
^DD(604,.051,"DT")="2960321"
^DD(604,.052,0)="TIME INTERVIEW ENDED^FX^^2;4^S X=$$X^YSAST(X) K:X="""" X"
^DD(604,.052,.1)="G7 Time Ended"
^DD(604,.052,3)="Enter time interview ended."
^DD(604,.052,21,0)="^^2^2^2970317^"
^DD(604,.052,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.052,21,2,0)="G7. TIME ENDED?"
^DD(604,.052,"DT")="2960321"
^DD(604,.07,0)="CONTACT CODE^S^1:IN PERSON;2:PHONE;3:ASI-MV;^0;7^Q"
^DD(604,.07,.1)="G9 Contact Code"
^DD(604,.07,21,0)="^.001^2^2^3010705^^^^"
^DD(604,.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.07,21,2,0)="G9. CONTACT CODE: '1' FOR In Person '2' FOR Phone '3' FOR ASIMV"
^DD(604,.07,"DT")="3000721"
^DD(604,.08,0)="GENDER^S^1:MALE;2:FEMALE;^0;8^Q"
^DD(604,.08,.1)="G10 Gender"
^DD(604,.08,21,0)="^^3^3^2970314^"
^DD(604,.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.08,21,2,0)="G10. GENDER: 1 - Male"
^DD(604,.08,21,3,0)="             2 - Female"
^DD(604,.08,"DT")="2960226"
^DD(604,.09,0)="INTERVIEWER^P200'^VA(200,^0;9^Q"
^DD(604,.09,.1)="G11 Interviewer"
^DD(604,.09,3)=""
^DD(604,.09,21,0)="^^2^2^2970314^"
^DD(604,.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.09,21,2,0)="G11. INTERVIEWER CODE NUMBER"
^DD(604,.09,"DT")="2960320"
^DD(604,.11,0)="SPECIAL^S^1:PATIENT TERMINATED;2:PATIENT REFUSED;3:PATIENT UNABLE TO RESPOND;N:INTERVIEW COMPLETED;^0;11^Q"
^DD(604,.11,.1)="G12 Special"
^DD(604,.11,21,0)="^^4^4^2970314^"
^DD(604,.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.11,21,2,0)="G12. SPECIAL: 1 - Patient terminated"
^DD(604,.11,21,3,0)="              2 - Patient refused"
^DD(604,.11,21,4,0)="              3 - Patient unable to respond"
^DD(604,.11,"DT")="2960306"
^DD(604,.12,0)="RECORD INITIALIZED DATE TIME^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(604,.12,5,1,0)="604^.01^3"
^DD(604,.12,21,0)="^^1^1^2970317^"
^DD(604,.12,21,1,0)="This field contains the date/time the ASI was started."
^DD(604,.12,"DT")="2960226"
^DD(604,.125,0)="RECORD COMPLETED DATE TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(604,.125,"DT")="2960326"
^DD(604,.14,0)="RECORD INITIALIZED BY (TRANS)^P200'^VA(200,^0;14^Q"
^DD(604,.14,5,1,0)="604^.01^2"
^DD(604,.14,21,0)="^^2^2^2970317^"
^DD(604,.14,21,1,0)="This field contains the pointer value of the transcriber(user who enters the"
^DD(604,.14,21,2,0)="data) of the ASI."
^DD(604,.14,"DT")="2970317"
^DD(604,.16,0)="RACE^S^1:WHITE (not Hisp);2:BLACK (not Hisp);3:AMERICAN INDIAN;4:ALASKAN NATIVE;5:ASIAN/PACIFIC;6:HISPANIC-MEXICAN;7:HISPANIC-PUERTO RICAN;8:HISPANIC-CUBAN;9:HISPANIC-OTHER;^0;16^Q"
^DD(604,.16,.1)="G17 Race"
^DD(604,.16,21,0)="^^10^10^2970317^"
^DD(604,.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.16,21,2,0)="G17. RACE  1        WHITE (not Hisp)"
^DD(604,.16,21,3,0)="           2        BLACK (not Hisp)"
^DD(604,.16,21,4,0)="           3        AMERICAN INDIAN"
^DD(604,.16,21,5,0)="           4        ALASKAN NATIVE"
^DD(604,.16,21,6,0)="           5        ASIAN/PACIFIC"
^DD(604,.16,21,7,0)="           6        HISPANIC-MEXICAN"
^DD(604,.16,21,8,0)="           7        HISPANIC-PUERTO RICAN"
^DD(604,.16,21,9,0)="           8        HISPANIC-CUBAN"
^DD(604,.16,21,10,0)="           9        HISPANIC-OTHER"
^DD(604,.16,"DT")="2960304"
^DD(604,.17,0)="RELIGIOUS PREFERENCE^S^1:PROTESTANT;2:CATHOLIC;3:JEWISH;4:ISLAMIC;5:OTHER;6:NONE;^0;17^Q"
^DD(604,.17,.1)="G18 Religious Preference"
^DD(604,.17,21,0)="^^7^7^2970317^"
^DD(604,.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,.17,21,2,0)="G18. RELIGIOUS PREFERENCE  1        PROTESTANT"
^DD(604,.17,21,3,0)="                           2        CATHOLIC"
^DD(604,.17,21,4,0)="                           3        JEWISH"
^DD(604,.17,21,5,0)="                           4        ISLAMIC"
^DD(604,.17,21,6,0)="                           5        OTHER"
^DD(604,.17,21,7,0)="                           6        NONE"
^DD(604,.17,"DT")="2960227"
^DD(604,.51,0)="ELECTRONICALLY SIGNED^S^0:NO;1:YES;^.5;1^Q"
^DD(604,.51,21,0)="^.001^2^2^3010705^^^^"
^DD(604,.51,21,1,0)="This field is a set of codes used to store the value of whether the ASI was"
^DD(604,.51,21,2,0)="electronically signed or not. '0' FOR no  '1' FOR yes"
^DD(604,.51,"DT")="2981023"
^DD(604,.52,0)="E SIGNATURE INTERVIEWER^P200'^VA(200,^.5;2^Q"
^DD(604,.52,21,0)="^^2^2^3000215^^"
^DD(604,.52,21,1,0)="This field contains the value of the interviewer/manager from file #200, field"
^DD(604,.52,21,2,0)=".01 who electronically signs the ASI."
^DD(604,.52,"DT")="2981023"
^DD(604,.6,0)="GENERAL COMMENT^604.01^^.6;0"
^DD(604,.6,21,0)="^^2^2^2970317^"
^DD(604,.6,21,1,0)="This field contains general comments the user can enter by ""^C"" at any prompt"
^DD(604,.6,21,2,0)="of the On-Line ASI."
^DD(604,.6,"DT")="2970309"
^DD(604,.61,0)="CS MEDICAL^CJ8^^ ; ^S X=$$CSMS^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.61,9)="^"
^DD(604,.61,9.01)=""
^DD(604,.61,9.1)="S X=$$CSMS^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.61,"DT")="2970228"
^DD(604,.62,0)="CS EMPLOYMENT^CJ8^^ ; ^S X=$$CSES^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.62,9)="^"
^DD(604,.62,9.01)=""
^DD(604,.62,9.1)="S X=$$CSES^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.62,"DT")="2970228"
^DD(604,.63,0)="CS ALCOHOL^CJ8^^ ; ^S X=$$CSA^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.63,9)="^"
^DD(604,.63,9.01)=""
^DD(604,.63,9.1)="S X=$$CSA^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.63,"DT")="2970228"
^DD(604,.635,0)="CS DRUG^CJ8^^ ; ^S X=$$CSD^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.635,9)="^"
^DD(604,.635,9.01)=""
^DD(604,.635,9.1)="S X=$$CSD^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.635,"DT")="2970228"
^DD(604,.64,0)="CS LEGAL^CJ8^^ ; ^S X=$$CSLS^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.64,9)="^"
^DD(604,.64,9.01)=""
^DD(604,.64,9.1)="S X=$$CSLS^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.64,"DT")="2970228"
^DD(604,.65,0)="CS FAMILY^CJ8^^ ; ^S X=$$CSFSR^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.65,9)="^"
^DD(604,.65,9.01)=""
^DD(604,.65,9.1)="S X=$$CSFSR^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.65,"DT")="2970228"
^DD(604,.66,0)="CS PSYCHIATRIC^CJ8^^ ; ^S X=$$CSPS^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.66,9)="^"
^DD(604,.66,9.01)=""
^DD(604,.66,9.1)="S X=$$CSPS^YSASCSA(D0),X=$S(X?.E1N.E:$J(X,8,4),1:X)"
^DD(604,.66,"DT")="2970228"
^DD(604,.71,0)="E SIGNATURE TRANSCRIBER^P200'^VA(200,^.7;1^Q"
^DD(604,.71,21,0)="^^2^2^2970317^"
^DD(604,.71,21,1,0)="This field contains the pointer value to the New Person file #200 of the"
^DD(604,.71,21,2,0)="user transcribing the ASI and electronically signing when the ASI is completed."
^DD(604,.71,"DT")="2960503"
^DD(604,.81,0)="PERSON ALLOWED TO EDIT^P200'^VA(200,^.8;1^Q"
^DD(604,.81,1,0)="^.1"
^DD(604,.81,1,1,0)="604^A81^MUMPS"
^DD(604,.81,1,1,1)="S:'$D(^YSTX(604,DA,.5)) ^YSTX(604,""A.81.""_X,DA,DA)="""""
^DD(604,.81,1,1,2)="K ^YSTX(604,""A.81.""_X,DA,DA)"
^DD(604,.81,1,1,"DT")="2960503"
^DD(604,.81,1,2,0)="604^AA81^MUMPS"
^DD(604,.81,1,2,1)="S:'$D(^YSTX(604,DA,.5)) ^YSTX(604,""AA81"",DA,DA)=X"
^DD(604,.81,1,2,2)="K ^YSTX(604,""AA81"",DA,DA)"
^DD(604,.81,1,2,"DT")="2960507"
^DD(604,.81,5,1,0)="604^.01^4"
^DD(604,.81,21,0)="^^2^2^2970317^"
^DD(604,.81,21,1,0)="This field contains the value of the person allowed to edit the ASI."
^DD(604,.81,21,2,0)="A pointer to the New Person file (#200)."
^DD(604,.81,"DT")="2960507"
^DD(604,1,0)="ADMISSION DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(604,1,21,0)="^^4^4^2970318^^^"
^DD(604,1,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,1,21,2,0)="G4. DATE OF ADMISSION"
^DD(604,1,21,3,0)="This is not to be confused with the Inpatient Date of Admission in the Patient "
^DD(604,1,21,4,0)="Movement file #405.  This will be clinically defined."
^DD(604,1,"DT")="2970318"
^DD(604,1.201,0)="ADDR LIVED YRS^F^^1.2;1^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,1.201,.1)="G14 Lived at this Address Years"
^DD(604,1.201,3)="Enter 0-99, X or N"
^DD(604,1.201,21,0)="^^3^3^2970317^^"
^DD(604,1.201,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,1.201,21,2,0)="G14. How long have you lived at this address?"
^DD(604,1.201,21,3,0)="In years."
^DD(604,1.201,"DT")="2961016"
^DD(604,1.202,0)="ADDR LIVED MOS^F^^1.2;2^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<12))) X"
^DD(604,1.202,.1)="    Lived at this Address Months"
^DD(604,1.202,3)="Enter 0-11, X or N"
^DD(604,1.202,21,0)="^^2^2^2970317^"
^DD(604,1.202,21,1,0)="Part of G14.  How long have you lived at this address?"
^DD(604,1.202,21,2,0)="In Months."
^DD(604,1.202,"DT")="2970219"
^DD(604,1.203,0)="ADDR OWN^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^1.2;3^Q"
^DD(604,1.203,.1)="G15 Residence Owned"
^DD(604,1.203,21,0)="^^2^2^2970317^"
^DD(604,1.203,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,1.203,21,2,0)="G15. Is this residence owned by you or your family?  0 - No  1 - Yes"
^DD(604,1.203,"DT")="2970218"
^DD(604,2,0)="PROGRAM^*P604.26'^YSTX(604.26,^0;15^S DIC(""S"")=""I $P(^(0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(604,2,3)=""
^DD(604,2,12)="Only Active Programs"
^DD(604,2,12.1)="S DIC(""S"")=""I $P(^(0),U,3)"""
^DD(604,2,21,0)="^^2^2^2970317^"
^DD(604,2,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,2,21,2,0)="G3. PROGRAM NUMBER"
^DD(604,2,"DT")="2970123"
^DD(604,2.01,0)="CONTROLLED ENVIRONMENT^S^1:NO;2:JAIL;3:ALCOHOL OR DRUG TREATMENT;4:MEDICAL TREATMENT;5:PSYCHIATRIC TREATMENT;6:OTHER;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^2;1^Q"
^DD(604,2.01,.1)="G19 Controlled Environment"
^DD(604,2.01,3)="A place, theoretically, without access to drugs/alcohol."
^DD(604,2.01,21,0)="^^8^8^2970317^"
^DD(604,2.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,2.01,21,2,0)="G19. Have you been in a controlled environment in the past 30 days?"
^DD(604,2.01,21,3,0)="1        NO"
^DD(604,2.01,21,4,0)="2        JAIL"
^DD(604,2.01,21,5,0)="3        ALCOHOL OR DRUG TREATMENT"
^DD(604,2.01,21,6,0)="4        MEDICAL TREATMENT"
^DD(604,2.01,21,7,0)="5        PSYCHIATRIC TREATMENT"
^DD(604,2.01,21,8,0)="6        OTHER"
^DD(604,2.01,"DT")="2970218"
^DD(604,2.02,0)="OTHER^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(604,2.02,.1)="    Other"
^DD(604,2.02,3)="Answer must be 1-30 characters in length."
^DD(604,2.02,21,0)="^^2^2^2970317^"
^DD(604,2.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,2.02,21,2,0)="G19.  If ""other"" is selected the user can enter a comment to explain."
^DD(604,2.02,"DT")="2960227"
^DD(604,2.03,0)="HOW MANY DAYS^F^^2;3^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,2.03,.1)="G20 How many Days"
^DD(604,2.03,3)="Answer must be 1-2 characters in length."
^DD(604,2.03,21,0)="^^2^2^2970317^"
^DD(604,2.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,2.03,21,2,0)="G20. How many days?"
^DD(604,2.03,"DT")="2970319"
^DD(604,3.01,0)="SHIPLEY C.Q.^NJ3,0^^3;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(604,3.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(604,3.01,21,0)="^^2^2^2970317^"
^DD(604,3.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,3.01,21,2,0)="G21. Shipley C.Q."
^DD(604,3.01,"DT")="2960227"
^DD(604,3.02,0)="SHIPLEY I.Q.^NJ3,0^^3;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(604,3.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(604,3.02,21,0)="^^2^2^2970317^"
^DD(604,3.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,3.02,21,2,0)="G22. Shipley I.Q."
^DD(604,3.02,"DT")="2960227"
^DD(604,3.03,0)="BECK TOTAL SCORE^NJ2,0^^3;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(604,3.03,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(604,3.03,21,0)="^^2^2^2970317^"
^DD(604,3.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,3.03,21,2,0)="G23. Beck Total Score"
^DD(604,3.03,"DT")="2960227"
^DD(604,5.5,0)="AWAITING TRANSMISSION^S^1:AWAITING TRANSMISSION;^5;3^Q"
^DD(604,5.5,1,0)="^.1"
^DD(604,5.5,1,1,0)="604^ATR"
^DD(604,5.5,1,1,1)="S ^YSTX(604,""ATR"",$E(X,1,30),DA)="""""
^DD(604,5.5,1,1,2)="K ^YSTX(604,""ATR"",$E(X,1,30),DA)"
^DD(604,5.5,1,1,"DT")="2961206"
^DD(604,5.5,21,0)="^^1^1^2970130^^^^"
^DD(604,5.5,21,1,0)="SET AUTOMATICALLY"
^DD(604,5.5,"DT")="2970130"
^DD(604,5.6,0)="TRANSMISSION DATE^D^^5;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(604,5.6,"DT")="2961206"
^DD(604,8.01,0)="HOSPITALIZATIONS^F^^8;1^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,8.01,.1)="M1 Hospitalizations"
^DD(604,8.01,3)="Include O.D.'s, D.T.'s. Exclude detox, alcohol/drug, and psychiatric treatment and childbirth(if no complications). Enter the number of *overnight* hospitalizations for medical problems. 0-99, X or N."
^DD(604,8.01,21,0)="^^3^3^2970317^"
^DD(604,8.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.01,21,2,0)="M1. How many times in your life have you been hospitalized for medical"
^DD(604,8.01,21,3,0)="    problems? (Include o.d.'s, d.t.'s, exclude detox.)"
^DD(604,8.01,"DT")="2960306"
^DD(604,8.02,0)="LAST HOSPITALIZATION YRS^F^^8;2^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,8.02,.1)="M2 Last Hospitalization Years"
^DD(604,8.02,3)="Enter 0-99, X or N"
^DD(604,8.02,21,0)="^^3^3^2970317^"
^DD(604,8.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.02,21,2,0)="M2. How long ago was your last hospitalization for a physical problem?"
^DD(604,8.02,21,3,0)="In Yrs."
^DD(604,8.02,"DT")="2960306"
^DD(604,8.025,0)="LAST HOSPITALIZATION MOS^F^^8;10^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<12))) X"
^DD(604,8.025,.1)="   Last Hospitalization Months"
^DD(604,8.025,3)="Enter 0-11, X or N"
^DD(604,8.025,21,0)="^^3^3^2970317^"
^DD(604,8.025,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.025,21,2,0)="M2. How lon was your last hospitalization for a physical problem?"
^DD(604,8.025,21,3,0)="In Mos."
^DD(604,8.025,"DT")="2970219"
^DD(604,8.03,0)="CHRONIC PROBLEM^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^8;3^Q"
^DD(604,8.03,.1)="M3 Chronic Medical Problems"
^DD(604,8.03,3)="A chronic medical condition is a serious physical or medical condition that requires regular care, (i.e., medication dietary restriction) preventing full advantage of their abilities."
^DD(604,8.03,21,0)="^^4^4^2970317^"
^DD(604,8.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.03,21,2,0)="M3. Do you have any chronic medical problems which continue to interfere with"
^DD(604,8.03,21,3,0)="    your life?  0 - No"
^DD(604,8.03,21,4,0)="                1 - Yes"
^DD(604,8.03,"DT")="2970218"
^DD(604,8.04,0)="CHRONIC MEDICAL SPECIFY^F^^8;4^K:$L(X)>25!($L(X)<1) X"
^DD(604,8.04,3)="Answer must be 1-25 characters in length."
^DD(604,8.04,21,0)="^^2^2^2970317^"
^DD(604,8.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.04,21,2,0)="M3.  If the answer to this question is 1 - Yes, please specify."
^DD(604,8.04,"DT")="2961022"
^DD(604,8.05,0)="MEDICATION^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^8;5^Q"
^DD(604,8.05,.1)="M4 Prescribed Medications"
^DD(604,8.05,3)="Medication prescribed by a MD for medical condition; not psychiatric medicines. Including medicines prescribed whether or not the patient is currently taking them."
^DD(604,8.05,21,0)="^^4^4^2970317^"
^DD(604,8.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.05,21,2,0)="M4. Are you taking any prescribed medications on a regular basis for a physical"
^DD(604,8.05,21,3,0)="    problem? 0 - No"
^DD(604,8.05,21,4,0)="             1 - Yes"
^DD(604,8.05,"DT")="2970218"
^DD(604,8.06,0)="DISABILITY PENSION^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^8;6^Q"
^DD(604,8.06,.1)="M5 Disability Pension"
^DD(604,8.06,3)="Include Workers' Compensation, exclude psychiatric disability."
^DD(604,8.06,21,0)="^^4^4^2970317^"
^DD(604,8.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.06,21,2,0)="M5. Do you receive a pension for a physical disability? (Exclude psychiatric"
^DD(604,8.06,21,3,0)="    disability.) 0 - N0"
^DD(604,8.06,21,4,0)="                 1 - Yes"
^DD(604,8.06,"DT")="2970218"
^DD(604,8.07,0)="SPECIFY PENSION^F^^8;7^K:$L(X)>25!($L(X)<1) X"
^DD(604,8.07,.1)="   Specify Pension"
^DD(604,8.07,3)="Answer must be 1-25 characters in length."
^DD(604,8.07,21,0)="^^2^2^2970317^"
^DD(604,8.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.07,21,2,0)="M5. If the answer was 1 - Yes, specify the amount of the pension."
^DD(604,8.07,"DT")="2960227"
^DD(604,8.08,0)="PROBLEM PAST 30 DAYS^F^^8;8^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,8.08,.1)="M6 Medical Problems last 30 days"
^DD(604,8.08,3)="Include flu, colds, etc. Include serious ailments related to drugs/alcohol, which would continue even if the patient were abstinent (e.g. cirrhosis of liver, absesses from needles, etc.). (0-30)"
^DD(604,8.08,21,0)="^^2^2^2970318^^"
^DD(604,8.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.08,21,2,0)="M6. How many days have you experienced medical problems in the past 30?"
^DD(604,8.08,"DT")="2960306"
^DD(604,8.09,0)="SCALE MED PROBLEM PAST 30D^P604.45'^YSTX(604.45,^8;9^Q"
^DD(604,8.09,.1)="M7 Patient bothered"
^DD(604,8.09,3)=""
^DD(604,8.09,21,0)="^^4^4^2970318^"
^DD(604,8.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.09,21,2,0)="M7. How troubled or bothered have you been by these medical problems in the"
^DD(604,8.09,21,3,0)="    past 30 days?"
^DD(604,8.09,21,4,0)="For question M7 please ask patient to use the Patient's Rating Scale"
^DD(604,8.09,"DT")="2961003"
^DD(604,8.11,0)="IMPORTANCE MEDICAL TREATMENT^P604.45'^YSTX(604.45,^8;11^Q"
^DD(604,8.11,.1)="M8 Patient importance treatment"
^DD(604,8.11,3)=""
^DD(604,8.11,21,0)="^^3^3^2970318^"
^DD(604,8.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.11,21,2,0)="M8. How important to you is treatment for these medical problems?"
^DD(604,8.11,21,3,0)="For question M8 please ask patient to use thhe Patient's Rating Scale"
^DD(604,8.11,"DT")="2961003"
^DD(604,8.12,0)="INTERVIEWER'S RATING MEDICAL^F^^8;12^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,8.12,.1)="M9 Interviewers importance treatment"
^DD(604,8.12,3)="0-9, X or N"
^DD(604,8.12,21,0)="^^3^3^2970318^"
^DD(604,8.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.12,21,2,0)="INTEREVIEWER SEVERITY RATING"
^DD(604,8.12,21,3,0)="M9. How would you rate the patient's need for medical treatment?"
^DD(604,8.12,"DT")="2970218"
^DD(604,8.14,0)="PATIENT MISREP MEDICAL^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^8;14^Q"
^DD(604,8.14,.1)="M10 Patient Misrepresents"
^DD(604,8.14,21,0)="^^3^3^2970318^"
^DD(604,8.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.14,21,2,0)="M10. Patients misrepresentation? 0 - No"
^DD(604,8.14,21,3,0)="                                 1 - Yes"
^DD(604,8.14,"DT")="2970218"
^DD(604,8.15,0)="PATIENT INAB UNDSTND MEDICAL^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^8;15^Q"
^DD(604,8.15,.1)="M11 Patient unable to understand"
^DD(604,8.15,21,0)="^^3^3^2970318^"
^DD(604,8.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,8.15,21,2,0)="M11. Patient's inability to understand? 0 - No"
^DD(604,8.15,21,3,0)="                                        1 - Yes"
^DD(604,8.15,"DT")="2970218"
^DD(604,8.5,0)="MEDICAL COMMENT^604.03^^8.5;0"
^DD(604,8.5,21,0)="^^1^1^2970318^"
^DD(604,8.5,21,1,0)="This field contains any comments on the patient's medical status."
^DD(604,8.5,"DT")="2961029"
^DD(604,9.01,0)="YEARS EDUCATION COMPLETED^F^^9;1^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.01,.1)="E1 Education Completed Years"
^DD(604,9.01,3)="Enter 0-99, X or N"
^DD(604,9.01,21,0)="^^3^3^2970318^"
^DD(604,9.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.01,21,2,0)="E1. Education completed     YRS"
^DD(604,9.01,21,3,0)="    (GED = 12 years)"
^DD(604,9.01,"DT")="2960227"
^DD(604,9.02,0)="MONTHS EDUCATION COMPLETED^F^^9;2^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<12))) X"
^DD(604,9.02,.1)="   Education Completed Months"
^DD(604,9.02,3)="Enter 0-11, X or N"
^DD(604,9.02,21,0)="^^2^2^2970318^"
^DD(604,9.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.02,21,2,0)="E1. Education completed     MOS."
^DD(604,9.02,"DT")="2970219"
^DD(604,9.03,0)="MONTHS TRAINING OR TECH^F^^9;3^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.03,.1)="E2 Training Months"
^DD(604,9.03,3)="Enter 0-99, X or N"
^DD(604,9.03,21,0)="^^2^2^2970318^"
^DD(604,9.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.03,21,2,0)="E2. Training or technical education completed    MOS."
^DD(604,9.03,"DT")="2960227"
^DD(604,9.04,0)="PROFESSION TRADE OR SKILL^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^9;4^Q"
^DD(604,9.04,.1)="E3 Profession, Trade, Skill"
^DD(604,9.04,21,0)="^^3^3^2970318^"
^DD(604,9.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.04,21,2,0)="E3. Do you have a profession, trade or skill?  0 - No"
^DD(604,9.04,21,3,0)="                                               1 - Yes"
^DD(604,9.04,"DT")="2970218"
^DD(604,9.05,0)="SPECIFY PTS^F^^9;5^K:$L(X)>30!($L(X)<1) X"
^DD(604,9.05,.1)="   Specify Profession, Skill, Trade"
^DD(604,9.05,3)="Answer must be 1-30 characters in length."
^DD(604,9.05,21,0)="^^1^1^2970318^"
^DD(604,9.05,21,1,0)="If question E3 is answered 1 - Yes, specify the profession, trade or skill."
^DD(604,9.05,"DT")="2961016"
^DD(604,9.06,0)="VALID DRIVERS LICENSE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^9;6^Q"
^DD(604,9.06,.1)="E4 Valid Drivers License"
^DD(604,9.06,21,0)="^^3^3^2970318^"
^DD(604,9.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.06,21,2,0)="E4. Do you have a valid driver's license? 0 - No"
^DD(604,9.06,21,3,0)="                                          1 - Yes"
^DD(604,9.06,"DT")="2970225"
^DD(604,9.09,0)="AUTOMOBILE^S^0:NO;1:YES;N:QUESTION NOT APPLICABLE;X:QUESTION NOT ANSWERED;^9;9^Q"
^DD(604,9.09,.1)="E5 Available Automobile"
^DD(604,9.09,21,0)="^^3^3^2970318^"
^DD(604,9.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.09,21,2,0)="E5. Do you have an automobile available for use? (Answer No if no valid"
^DD(604,9.09,21,3,0)="    driver's license) 0 - No  1 - Yes"
^DD(604,9.09,"DT")="2970218"
^DD(604,9.11,0)="LONGEST FULL-TIME JOB YRS^F^^9;11^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.11,.1)="E6 Longest Full-time Job Years"
^DD(604,9.11,3)="Answer must be 1-2 characters in length."
^DD(604,9.11,21,0)="^^2^2^2970318^"
^DD(604,9.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.11,21,2,0)="E6. How long was your longest full-time job?    YRS."
^DD(604,9.11,"DT")="2970304"
^DD(604,9.12,0)="LONGEST FULL-TIME JOB MOS^F^^9;12^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<12))) X"
^DD(604,9.12,.1)="   Longest Full-time Job Months"
^DD(604,9.12,3)="Enter 0-11, X or N"
^DD(604,9.12,21,0)="^^2^2^2970318^"
^DD(604,9.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.12,21,2,0)="E6. In MOS."
^DD(604,9.12,"DT")="2970219"
^DD(604,9.14,0)="USUAL OR LAST OCCUPATION^F^^9;14^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,9.14,.1)="E7 Usual or Last Occupation"
^DD(604,9.14,3)="Enter usual ocupation coded 1 thru 9 on the Hollingshead scale"
^DD(604,9.14,4)="D EN^DDIOL("""",""^YSTX(604.68,3,1)"")"
^DD(604,9.14,21,0)="^^3^3^2970318^"
^DD(604,9.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.14,21,2,0)="E7. Usual (or last) occupation.  This is selected from the Hollingshead"
^DD(604,9.14,21,3,0)="    categories."
^DD(604,9.14,"DT")="2970218"
^DD(604,9.145,0)="USUAL OR LAST OCC TEXT^F^^9;10^K:$L(X)>35!($L(X)<1) X"
^DD(604,9.145,.1)="   Specify Occupation"
^DD(604,9.145,3)="Answer must be 1-35 characters in length.  Specify usual (or last) occupation."
^DD(604,9.145,21,0)="^^1^1^2970318^"
^DD(604,9.145,21,1,0)="This field contains the description of the patients Usual (or last) occupation."
^DD(604,9.145,"DT")="2960311"
^DD(604,9.15,0)="SUPPORT^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^9;15^Q"
^DD(604,9.15,.1)="E8 Someone Contributes Support"
^DD(604,9.15,21,0)="^^3^3^2970318^"
^DD(604,9.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.15,21,2,0)="E8. Does someone contribute to your support in any way? 0 - No"
^DD(604,9.15,21,3,0)="                                                        1 - Yes"
^DD(604,9.15,"DT")="2970218"
^DD(604,9.16,0)="MAJORITY OF SUPPORT^S^0:NO;1:YES;N:QUESTION NOT APPLICABLE;X:QUESTION NOT ANSWERED;^9;16^Q"
^DD(604,9.16,.1)="E9 Majority of Support"
^DD(604,9.16,21,0)="^^4^4^2970319^^"
^DD(604,9.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.16,21,2,0)="E9. (ONLY IF ITEM 8 IS YES)"
^DD(604,9.16,21,3,0)="    Does this constitute the majority of your support? 0 - No"
^DD(604,9.16,21,4,0)="                                                       1 - Yes"
^DD(604,9.16,"DT")="2970218"
^DD(604,9.17,0)="EMPLOYMENT PATTERN^S^1:FULL TIME (40 HRS./WK);2:PART TIME (REG. HRS.);3:PART TIME (IRREG., DAYWORK);4:STUDENT;5:SERVICE;6:RETIRED/DISABILITY;7:UNEMPLOYED;8:IN CONTROLLED ENVIRONMENT;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^9;17^Q"
^DD(604,9.17,.1)="E10 Usual Employment Pattern"
^DD(604,9.17,21,0)="^^11^11^2970318^"
^DD(604,9.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.17,21,2,0)="E10. Usual employment pattern, past 3 years."
^DD(604,9.17,21,3,0)="Choose from:"
^DD(604,9.17,21,4,0)="1        FULL TIME (40 HRS./WK)"
^DD(604,9.17,21,5,0)="2        PART TIME (REG. HRS.)"
^DD(604,9.17,21,6,0)="3        PART TIME (IRREG., DAYWORK)"
^DD(604,9.17,21,7,0)="4        STUDENT"
^DD(604,9.17,21,8,0)="5        SERVICE"
^DD(604,9.17,21,9,0)="6        RETIRED/DISABILITY"
^DD(604,9.17,21,10,0)="7        UNEMPLOYED"
^DD(604,9.17,21,11,0)="8        IN CONTROLLED ENVIRONMENT"
^DD(604,9.17,"DT")="2970218"
^DD(604,9.18,0)="DAYS PAID LAST 30 DAYS^F^^9;18^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,9.18,.1)="E11 Days Paid Last 30"
^DD(604,9.18,3)="Enter 0-30 days, X or N"
^DD(604,9.18,21,0)="^^3^3^2970318^"
^DD(604,9.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.18,21,2,0)="E11. How many days were you paid for working in the past 30?"
^DD(604,9.18,21,3,0)="     (Include ""under the table"" work.)"
^DD(604,9.18,"DT")="2960227"
^DD(604,9.19,0)="EMPLOYMENT INCOME^F^^9;19^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.19,.1)="ES12"
^DD(604,9.19,3)="Enter 0-9999, X or N"
^DD(604,9.19,21,0)="^^4^4^2970318^"
^DD(604,9.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.19,21,2,0)="How much money did you receive in the last 30 days?"
^DD(604,9.19,21,3,0)="E12. Employment"
^DD(604,9.19,21,4,0)="     (net income)"
^DD(604,9.19,"DT")="2970218"
^DD(604,9.21,0)="UNEMPLOYMENT COMPENSATION^F^^9;21^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.21,.1)="ES13"
^DD(604,9.21,3)="Enter 0-9999, X or N"
^DD(604,9.21,21,0)="^^3^3^2970318^"
^DD(604,9.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.21,21,2,0)="How much money did you receive in the last 30 days?"
^DD(604,9.21,21,3,0)="E13 Unemployment compensation"
^DD(604,9.21,"DT")="2960312"
^DD(604,9.22,0)="WELFARE INCOME^F^^9;22^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.22,.1)="ES14"
^DD(604,9.22,3)="Enter 0-9999, X or N"
^DD(604,9.22,"DT")="2970219"
^DD(604,9.23,0)="PENSION^F^^9;23^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.23,.1)="ES15"
^DD(604,9.23,3)="Enter 0-9999,X or N"
^DD(604,9.23,"DT")="2970219"
^DD(604,9.24,0)="MATE FAMILY FRIENDS INCOME^F^^9;24^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.24,.1)="ES16"
^DD(604,9.24,3)="Enter 0-9999, X or N"
^DD(604,9.24,21,0)="^^3^3^2970318^^"
^DD(604,9.24,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.24,21,2,0)="How much money did you receive in the last 30 days?"
^DD(604,9.24,21,3,0)="E16. Mate, family, or friends (Money for personal expenses)."
^DD(604,9.24,"DT")="2960312"
^DD(604,9.245,0)="MATE FAMILY FRIENDS SPECIFY^F^^11;20^K:$L(X)>40!($L(X)<1) X"
^DD(604,9.245,3)="Answer must be 1-40 characters in length."
^DD(604,9.245,"DT")="2960312"
^DD(604,9.25,0)="ILLEGAL INCOME^F^^9;25^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,9.25,.1)="ES17"
^DD(604,9.25,3)="Enter 0-9999, X or N"
^DD(604,9.25,21,0)="^^3^3^2970318^"
^DD(604,9.25,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.25,21,2,0)="How much money did you receive in the last 30 days?"
^DD(604,9.25,21,3,0)="E17. Illegal"
^DD(604,9.25,"DT")="2960312"
^DD(604,9.29,0)="NUMBER OF DEPENDENTS^F^^9;29^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,9.29,.1)="E18 Number of Dependents"
^DD(604,9.29,3)="Enter 0-9, X or N"
^DD(604,9.29,21,0)="^^3^3^2970318^"
^DD(604,9.29,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.29,21,2,0)="E18. How many people depend on you for the majority of their food, shelter,"
^DD(604,9.29,21,3,0)="     etc.?"
^DD(604,9.29,"DT")="2970218"
^DD(604,9.31,0)="DAYS EMP PROB LAST 30^F^^9;31^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,9.31,.1)="E19 Days Employment Problems Last 30"
^DD(604,9.31,3)="Enter 0-30 days, X or N"
^DD(604,9.31,21,0)="^^2^2^2970318^"
^DD(604,9.31,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.31,21,2,0)="E19. How many days have you experienced employment problems in the past 30?"
^DD(604,9.31,"DT")="2960227"
^DD(604,9.32,0)="EMPLOYMENT PROB 30 DAYS^P604.45'^YSTX(604.45,^9;32^Q"
^DD(604,9.32,.1)="E20 Troubled Past 30 Days"
^DD(604,9.32,3)=""
^DD(604,9.32,21,0)="^^4^4^2970318^^"
^DD(604,9.32,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.32,21,2,0)="For question E20 please ask patient to use the Patient's rating scale"
^DD(604,9.32,21,3,0)="E20. How troubled or bothered have you been by these employment problems in"
^DD(604,9.32,21,4,0)="     the past 30 days?"
^DD(604,9.32,"DT")="2961016"
^DD(604,9.33,0)="EMP COUNSELING IMPORTANT^P604.45'^YSTX(604.45,^9;33^Q"
^DD(604,9.33,.1)="E21 Patient Importance Counselling"
^DD(604,9.33,3)=""
^DD(604,9.33,21,0)="^^3^3^2970318^"
^DD(604,9.33,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.33,21,2,0)="For question E21 please ask patient to use the Patient's rating scale"
^DD(604,9.33,21,3,0)="E21. How important to you now is counseling for these employment problems?"
^DD(604,9.33,"DT")="2961003"
^DD(604,9.34,0)="INTERVIEWER'S RATING EMPL^F^^9;34^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,9.34,.1)="E22 Interviewers Need Counselling"
^DD(604,9.34,3)="Enter 0-9, X or N"
^DD(604,9.34,21,0)="^^2^2^2970318^"
^DD(604,9.34,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.34,21,2,0)="E22. How would you rate the patient's need for employment counseling?"
^DD(604,9.34,"DT")="2970218"
^DD(604,9.35,0)="PATIENT MISREP EMP^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^9;35^Q"
^DD(604,9.35,.1)="E23 Patient Misrepresents"
^DD(604,9.35,21,0)="^^3^3^2970318^"
^DD(604,9.35,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.35,21,2,0)="E23. Patients misrepresentation? 0 - No"
^DD(604,9.35,21,3,0)="                                 1 - Yes"
^DD(604,9.35,"DT")="2970218"
^DD(604,9.36,0)="PATIENT INAB UNDSTND EMP^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^9;36^Q"
^DD(604,9.36,.1)="E24 Patient inability to Understand"
^DD(604,9.36,21,0)="^^3^3^2970318^"
^DD(604,9.36,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,9.36,21,2,0)="E24. Patient's inability to understand? 0 - No"
^DD(604,9.36,21,3,0)="                                        1 - Yes"
^DD(604,9.36,"DT")="2970218"
^DD(604,9.5,0)="EMPLOYMENT COMMENT^604.05^^9.5;0"
^DD(604,9.5,"DT")="2961029"
^DD(604,10.01,0)="ALCOHOL ANY USE L30DAYS^F^^10;1^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.01,3)="Enter 0-30 days, X or N"
^DD(604,10.01,21,0)="^^2^2^2970318^^"
^DD(604,10.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.01,21,2,0)="D1. Alcohol - any use at all  PAST 30 days"
^DD(604,10.01,"DT")="2960401"
^DD(604,10.02,0)="ALCOHOL ANY USE LIFETIME YRS^F^^10;2^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.02,.1)="DA1LIFE"
^DD(604,10.02,3)="Enter 0-99, X or N"
^DD(604,10.02,21,0)="^^2^2^2970318^"
^DD(604,10.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.02,21,2,0)="D1. Alcohol - any use at all LIFETIME Yrs."
^DD(604,10.02,"DT")="2960326"
^DD(604,10.03,0)="ALCOHOL ANY USE ROA^P604.48'^YSTX(604.48,^10;3^Q"
^DD(604,10.03,3)=""
^DD(604,10.03,21,0)="^^2^2^2970318^"
^DD(604,10.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.03,21,2,0)="D1. Alcohol - any use at all  USE Rt of adm. "
^DD(604,10.03,"DT")="2961003"
^DD(604,10.04,0)="ALCOHOL INTOX USE L30DAYS^F^^10;4^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.04,3)="Enter 0-30 days, X or N"
^DD(604,10.04,21,0)="^^2^2^2970318^"
^DD(604,10.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.04,21,2,0)="D2. Alcohol - To intoxication  PAST 30 Days"
^DD(604,10.04,"DT")="2960227"
^DD(604,10.05,0)="ALCOHOL INTOX LIFETIME YRS^F^^10;5^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.05,.1)="DA2LIFE"
^DD(604,10.05,3)="Enter 0-99, X or N"
^DD(604,10.05,21,0)="^^2^2^2970318^"
^DD(604,10.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.05,21,2,0)="D2. Alcohol - To intoxication  LIFETIME Yrs."
^DD(604,10.05,"DT")="2960326"
^DD(604,10.06,0)="ALCOHOL INTOX ROA^P604.48'^YSTX(604.48,^10;6^Q"
^DD(604,10.06,21,0)="^^2^2^2970318^"
^DD(604,10.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.06,21,2,0)="D2. Alcohol - To intoxication  USE Rt of adm."
^DD(604,10.06,"DT")="2961003"
^DD(604,10.07,0)="HEROIN L30DAYS^F^^10;7^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.07,3)="Enter 0-30 days, X or N"
^DD(604,10.07,21,0)="^^2^2^2970318^"
^DD(604,10.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.07,21,2,0)="D3. Heroin  PAST 30 Days"
^DD(604,10.07,"DT")="2960227"
^DD(604,10.08,0)="HEROIN LIFETIME YRS^F^^10;8^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.08,.1)="DA3LIFE"
^DD(604,10.08,3)="Enter 0-99, X or N"
^DD(604,10.08,21,0)="^^2^2^2970318^"
^DD(604,10.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.08,21,2,0)="D3. Heroin  LIFETIME Yrs."
^DD(604,10.08,"DT")="2960326"
^DD(604,10.09,0)="HEROIN ROA^P604.48'^YSTX(604.48,^10;9^Q"
^DD(604,10.09,21,0)="^^2^2^2970318^"
^DD(604,10.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.09,21,2,0)="D3. Heroin  USE Rt of adm."
^DD(604,10.09,"DT")="2961003"
^DD(604,10.11,0)="METHADONE L30DAYS^F^^10;11^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.11,3)="Enter 0-30 days, X or N"
^DD(604,10.11,21,0)="^^2^2^2970318^"
^DD(604,10.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.11,21,2,0)="D4. Methadone  PAST 30 Days"
^DD(604,10.11,"DT")="2960227"
^DD(604,10.12,0)="METHADONE LIFETIME YRS^F^^10;12^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.12,.1)="DA4LIFE"
^DD(604,10.12,3)="Enter 0-99, X or N"
^DD(604,10.12,21,0)="^^2^2^2970318^^"
^DD(604,10.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.12,21,2,0)="D4. Methadone  LIFETIME Yrs."
^DD(604,10.12,"DT")="2960326"
^DD(604,10.14,0)="METHADONE ROA^P604.48'^YSTX(604.48,^10;14^Q"
^DD(604,10.14,21,0)="^^2^2^2970318^"
^DD(604,10.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.14,21,2,0)="D4. Methadone  USE Rt of adm."
^DD(604,10.14,"DT")="2961003"
^DD(604,10.15,0)="OTHER OPIATES/ANA L30DAYS^F^^10;15^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.15,3)="Enter 0-30 days, X or N"
^DD(604,10.15,21,0)="^^2^2^2970318^"
^DD(604,10.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.15,21,2,0)="D5. Other opiates/analgesics  PAST 30 Days"
^DD(604,10.15,"DT")="2960227"
^DD(604,10.16,0)="OTHER OPIATES/ANA LIFETIME YRS^F^^10;16^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.16,.1)="DA5LIFE"
^DD(604,10.16,3)="Enter 0-99, X or N"
^DD(604,10.16,21,0)="^^2^2^2970318^"
^DD(604,10.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.16,21,2,0)="D5. Other opiates/analgesics  LIFETIME Yrs."
^DD(604,10.16,"DT")="2960326"
^DD(604,10.17,0)="OTHER OPIATES/ANA ROA^P604.48'^YSTX(604.48,^10;17^Q"
^DD(604,10.17,21,0)="^^2^2^2970318^"
^DD(604,10.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.17,21,2,0)="D5. Other opiates/analgesics  USE Rt of adm."
^DD(604,10.17,"DT")="2961003"
^DD(604,10.18,0)="BARBITUATES L30DAYS^F^^10;18^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.18,3)="Enter 0-30 days, X or N"
^DD(604,10.18,21,0)="^^2^2^2970318^"
^DD(604,10.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.18,21,2,0)="D6. Barbiturates  PAST 30 Days"
^DD(604,10.18,"DT")="2960227"
^DD(604,10.19,0)="BARBITUATES LIFETIME YRS^F^^10;19^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.19,.1)="DA6LIFE"
^DD(604,10.19,3)="Enter 0-99, X or N"
^DD(604,10.19,21,0)="^^2^2^2970318^"
^DD(604,10.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.19,21,2,0)="D6. Barbiturates  LIFETIME Yrs."
^DD(604,10.19,"DT")="2960326"
^DD(604,10.21,0)="BARBITUATES ROA^P604.48'^YSTX(604.48,^10;21^Q"
^DD(604,10.21,21,0)="^^2^2^2970318^"
^DD(604,10.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.21,21,2,0)="D6. Barbiturates  USE Rt of adm."
^DD(604,10.21,"DT")="2961003"
^DD(604,10.22,0)="OTHER S H T L30DAYS^F^^10;22^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.22,3)="Enter 0-30 days, X or N"
^DD(604,10.22,21,0)="^^2^2^2970318^"
^DD(604,10.22,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.22,21,2,0)="D7. Other sed/hyp/tranq.  PAST 30 Days"
^DD(604,10.22,"DT")="2960227"
^DD(604,10.23,0)="OTHER S H T LIFETIME YRS^F^^10;23^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.23,.1)="DA7LIFE"
^DD(604,10.23,3)="Enter 0-99, X or N"
^DD(604,10.23,21,0)="^^2^2^2970318^"
^DD(604,10.23,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.23,21,2,0)="D7. Other sed/hyp/tranq.  LIFETIME Yrs."
^DD(604,10.23,"DT")="2960326"
^DD(604,10.24,0)="OTHER S H T ROA^P604.48'^YSTX(604.48,^10;24^Q"
^DD(604,10.24,21,0)="^^2^2^2970318^"
^DD(604,10.24,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.24,21,2,0)="D7. Other sed/hyp/tranq.  USE Rt of adm."
^DD(604,10.24,"DT")="2961003"
^DD(604,10.25,0)="COCAINE L30DAYS^F^^10;25^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.25,3)="Enter 0-30 days, X or N"
^DD(604,10.25,21,0)="^^2^2^2970318^"
^DD(604,10.25,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.25,21,2,0)="D8. Cocaine  PAST 30 Days"
^DD(604,10.25,"DT")="2960319"
^DD(604,10.26,0)="COCAINE LIFETIME YRS^F^^10;26^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.26,.1)="DA8LIFE"
^DD(604,10.26,3)="Enter 0-99, X or N"
^DD(604,10.26,21,0)="^^2^2^2970318^"
^DD(604,10.26,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.26,21,2,0)="D8. Cocaine  LIFETIME Yrs."
^DD(604,10.26,"DT")="2960326"
^DD(604,10.27,0)="COCAINE ROA^P604.48'^YSTX(604.48,^10;27^Q"
^DD(604,10.27,21,0)="^^2^2^2970318^"
^DD(604,10.27,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.27,21,2,0)="D8. Cocaine  USE Rt of adm."
^DD(604,10.27,"DT")="2961003"
^DD(604,10.28,0)="AMPHETAMINES L30DAYS^F^^10;28^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.28,3)="Enter 0-30 days, X or N"
^DD(604,10.28,21,0)="^^2^2^2970318^"
^DD(604,10.28,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.28,21,2,0)="D9. Amphetamines  PAST 30 Days"
^DD(604,10.28,"DT")="2960227"
^DD(604,10.29,0)="AMPHETAMINES LIFETIME YRS^F^^10;29^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.29,.1)="DA9LIFE"
^DD(604,10.29,3)="Enter 0-99, X or N"
^DD(604,10.29,21,0)="^^2^2^2970318^"
^DD(604,10.29,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.29,21,2,0)="D9. Amphetamines  LIFETIME Yrs."
^DD(604,10.29,"DT")="2960326"
^DD(604,10.31,0)="AMPHETAMINES ROA^P604.48'^YSTX(604.48,^10;31^Q"
^DD(604,10.31,21,0)="^^2^2^2970318^"
^DD(604,10.31,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.31,21,2,0)="D9. Amphetamines  Rt of adm."
^DD(604,10.31,"DT")="2961003"
^DD(604,10.32,0)="CANNABIS L30DAYS^F^^10;32^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.32,3)="Enter 0-30 days, X or N"
^DD(604,10.32,21,0)="^^2^2^2970318^"
^DD(604,10.32,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.32,21,2,0)="D10. Cannabis  PAST 30 Days"
^DD(604,10.32,"DT")="2960227"
^DD(604,10.33,0)="CANNABIS LIFETIME YRS^F^^10;33^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.33,.1)="DA10LIFE"
^DD(604,10.33,3)="Enter 0-99, X or N"
^DD(604,10.33,21,0)="^^2^2^2970318^"
^DD(604,10.33,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.33,21,2,0)="D10. Cannabis  LIFETIME Yrs"
^DD(604,10.33,"DT")="2960326"
^DD(604,10.34,0)="CANNABIS ROA^P604.48'^YSTX(604.48,^10;34^Q"
^DD(604,10.34,21,0)="^^2^2^2970318^"
^DD(604,10.34,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.34,21,2,0)="D10. Cannabis  USE Rt of adm."
^DD(604,10.34,"DT")="2961003"
^DD(604,10.35,0)="HALLUCINOGENS L30DAYS^F^^10;35^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.35,3)="Enter 0-30 days, X or N"
^DD(604,10.35,21,0)="^^2^2^2970318^"
^DD(604,10.35,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.35,21,2,0)="D11. Hallucinogens  PAST 30 Days"
^DD(604,10.35,"DT")="2960227"
^DD(604,10.36,0)="HALLUCINOGENS LIFETIME YRS^F^^10;36^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.36,.1)="DA11LIFE"
^DD(604,10.36,3)="Enter 0-99, X or N"
^DD(604,10.36,21,0)="^^2^2^2970318^"
^DD(604,10.36,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.36,21,2,0)="D10. Hallucinogens  LIFETIME Yrs.  "
^DD(604,10.36,"DT")="2960326"
^DD(604,10.37,0)="HALLUCINOGENS ROA^P604.48'^YSTX(604.48,^10;37^Q"
^DD(604,10.37,21,0)="^^2^2^2970318^"
^DD(604,10.37,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.37,21,2,0)="D11. Hallucinogens  USE Rt of adm."
^DD(604,10.37,"DT")="2961003"
^DD(604,10.38,0)="INHALANTS L30DAYS^F^^10;38^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.38,3)="Enter 0-30 days, X or N"
^DD(604,10.38,21,0)="^^2^2^2970318^^"
^DD(604,10.38,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.38,21,2,0)="D12. Inhalants  PAST 30 Days"
^DD(604,10.38,"DT")="2970214"
^DD(604,10.39,0)="INHALANTS LIFETIME YRS^F^^10;39^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.39,.1)="DA12LIFE"
^DD(604,10.39,3)="Enter 0-99, X or N"
^DD(604,10.39,21,0)="^^2^2^2970318^"
^DD(604,10.39,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.39,21,2,0)="D12. Inhalants  LIFETIME Yrs."
^DD(604,10.39,"DT")="2970218"
^DD(604,10.41,0)="INHALANTS ROA^P604.48'^YSTX(604.48,^10;41^Q"
^DD(604,10.41,21,0)="^^2^2^2970318^"
^DD(604,10.41,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.41,21,2,0)="D12. Inhalants  USE Rt of adm."
^DD(604,10.41,"DT")="2961003"
^DD(604,10.42,0)="MT1PD L30DAYS^F^^10;42^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,10.42,3)="Enter 0-30 days, X or N"
^DD(604,10.42,21,0)="^^2^2^2970318^"
^DD(604,10.42,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.42,21,2,0)="D13. More than one substance per day (Incl. alcohol)  PAST 30 Days"
^DD(604,10.42,"DT")="2960227"
^DD(604,10.43,0)="MT1PD LIFETIME YRS^F^^10;43^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,10.43,.1)="DA13LIFE"
^DD(604,10.43,3)="Enter 0-99, X or N"
^DD(604,10.43,21,0)="^^2^2^2970318^"
^DD(604,10.43,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.43,21,2,0)="D13. More than one substance per day (Incl. alcohol).   LIFETIME Yrs."
^DD(604,10.43,"DT")="2960326"
^DD(604,10.45,0)="MAJOR PROBLEM^P604.77'^YSTX(604.77,^10;45^Q"
^DD(604,10.45,3)="0= No Problem 1-12= In the list above 15= Alcohol and one or more drugs 16= More than one drug"
^DD(604,10.45,21,0)="^^4^4^2970318^"
^DD(604,10.45,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,10.45,21,2,0)="D14. Which substance is the major problem?  Please code as above or 00-No"
^DD(604,10.45,21,3,0)="     problem;15-Alcohol & Drug (Dual addiction); 16-Polydrug; when not clear"
^DD(604,10.45,21,4,0)="     ask patient."
^DD(604,10.45,"DT")="2961003"
^DD(604,10.5,0)="DRUG/ALCOHOL COMMENT^604.06^^10.5;0"
^DD(604,10.5,21,0)="^^2^2^2970318^"
^DD(604,10.5,21,1,0)="This field contains the comments made by the interviewer from the patients"
^DD(604,10.5,21,2,0)="drug/alcohol use section of the ASI."
^DD(604,10.5,"DT")="2961029"
^DD(604,11.01,0)="ABSTINENT MONTHS^F^^11;1^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.01,3)="Type a Number between 0 and 99, 0 Decimal Digits. 0 = never abstinent."
^DD(604,11.01,21,0)="^^3^3^2970318^"
^DD(604,11.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.01,21,2,0)="D15. How long was your last period of voluntary abstinence from this major"
^DD(604,11.01,21,3,0)="     substance?  (00 - never abstinent)  MOS."
^DD(604,11.01,"DT")="2960227"
^DD(604,11.02,0)="ABSTINENT ENDED MONTHS AGO^F^^11;2^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.02,3)="Refers to question 15;  0 = still abstinent.  ""N"" if question 15 = 0"
^DD(604,11.02,21,0)="^^2^2^2970318^"
^DD(604,11.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.02,21,2,0)="D16 How many months ago did this abstinence end? (00 - still abstinent)"
^DD(604,11.02,"DT")="2960325"
^DD(604,11.03,0)="TIMES HAD ALCOHOL D.T.'S^F^^11;3^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.03,3)="Enter 0-99, X or N"
^DD(604,11.03,21,0)="^^2^2^2970318^"
^DD(604,11.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.03,21,2,0)="D17. How many times have you: Had alcohol d.t's."
^DD(604,11.03,"DT")="2960227"
^DD(604,11.04,0)="TIMES OVERDOSED ON DRUGS^F^^11;4^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.04,3)="Enter 0-99, X or N"
^DD(604,11.04,21,0)="^^2^2^2970318^^"
^DD(604,11.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.04,21,2,0)="D18. How many times have you: Overdosed on drugs"
^DD(604,11.04,"DT")="2960227"
^DD(604,11.05,0)="ALCOHOL ABUSE LIFETIME^F^^11;5^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.05,3)="Enter 0-99, X or N"
^DD(604,11.05,21,0)="^^2^2^2970318^"
^DD(604,11.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.05,21,2,0)="D19. How many times in your life have you been treated for: Alcohol Abuse:"
^DD(604,11.05,"DT")="2960227"
^DD(604,11.06,0)="DRUG ABUSE LIFETIME^F^^11;6^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.06,3)="Enter 0-99, X or N"
^DD(604,11.06,21,0)="^^2^2^2970318^"
^DD(604,11.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.06,21,2,0)="D20. How many times in your life have you been treated for: Drug Abuse:"
^DD(604,11.06,"DT")="2960227"
^DD(604,11.07,0)="TIMES DETOX ONLY ALCOHOL^F^^11;7^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.07,3)="Enter 0-99, X or N"
^DD(604,11.07,21,0)="^^2^2^2970318^"
^DD(604,11.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.07,21,2,0)="D21. How many of these were detox only?  Alcohol"
^DD(604,11.07,"DT")="2960314"
^DD(604,11.08,0)="TIMES DETOX ONLY DRUG^F^^11;8^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.08,3)="Enter 0-99, X or N"
^DD(604,11.08,21,0)="^^2^2^2970318^"
^DD(604,11.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.08,21,2,0)="D22. How many of these were detox only?  Drug?"
^DD(604,11.08,"DT")="2960314"
^DD(604,11.09,0)="SPENT L30D ALCOHOL^F^^11;9^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.09,.1)="DA20.1"
^DD(604,11.09,3)="Enter 0-9999, X or N"
^DD(604,11.09,21,0)="^^2^2^2970318^"
^DD(604,11.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.09,21,2,0)="D23. How much would you say you spent during the past 30 days on: Alcohol"
^DD(604,11.09,"DT")="2960402"
^DD(604,11.11,0)="SPENT L30D DRUGS^F^^11;11^K:$L(X)>4!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,11.11,.1)="DA20.2"
^DD(604,11.11,3)="Enter 0-9999, X or N"
^DD(604,11.11,21,0)="^^2^2^2970318^"
^DD(604,11.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.11,21,2,0)="D24. How much would you say you spent during the past 30 days on:  Drugs"
^DD(604,11.11,"DT")="2960327"
^DD(604,11.12,0)="DAYS TMT D/A L30D OUTP^F^^11;12^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,11.12,3)="Enter 0-30 days, X or N"
^DD(604,11.12,21,0)="^^3^3^2970319^^"
^DD(604,11.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.12,21,2,0)="D25. How many days have you been treated in an outpatient setting for "
^DD(604,11.12,21,3,0)="     alcohol or drugs in the past 30 days (Include NA, AA)."
^DD(604,11.12,"DT")="2960312"
^DD(604,11.14,0)="DAYS L30D ALCOHOL PROB^F^^11;14^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,11.14,3)="Enter 0-30 days, X or N"
^DD(604,11.14,21,0)="^^2^2^2970318^"
^DD(604,11.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.14,21,2,0)="D26. How many days in the past 30 have you experienced: Alcohol Problems"
^DD(604,11.14,"DT")="2960227"
^DD(604,11.15,0)="DAYS L30D DRUG PROB^F^^11;15^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,11.15,3)="Enter 0-30 days, X or N"
^DD(604,11.15,21,0)="^^2^2^2970318^^"
^DD(604,11.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.15,21,2,0)="D27. How many days in the past 30 have you experienced:  Drug Problems"
^DD(604,11.15,"DT")="2970318"
^DD(604,11.16,0)="TROUBLED ALCOHOL L30D^P604.45'^YSTX(604.45,^11;16^Q"
^DD(604,11.16,3)=""
^DD(604,11.16,21,0)="^^4^4^2970318^"
^DD(604,11.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.16,21,2,0)="FOR QUESTION D28 PLEASE ASK PATIENT TO USE THE PATIENTS RATING SCALE"
^DD(604,11.16,21,3,0)="D28. How troubled or bothered have you been in the past 30 days by these:"
^DD(604,11.16,21,4,0)="     Alcohol Problems"
^DD(604,11.16,"DT")="2961003"
^DD(604,11.165,0)="TMT IMPORTANT ALCOHOL^P604.45'^YSTX(604.45,^11;24^Q"
^DD(604,11.165,3)=""
^DD(604,11.165,21,0)="^^3^3^2970318^^"
^DD(604,11.165,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.165,21,2,0)="FOR QUESTION D30 PLEASE ASK PATIENT TO USE THE PATIENTS RATING SCALE"
^DD(604,11.165,21,3,0)="D30. How important to you now is treatment for these:  Alcohol Problems"
^DD(604,11.165,"DT")="2961003"
^DD(604,11.17,0)="TROUBLED DRUG L30D^P604.45'^YSTX(604.45,^11;17^Q"
^DD(604,11.17,3)=""
^DD(604,11.17,21,0)="^^4^4^2970318^"
^DD(604,11.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.17,21,2,0)="FOR QUESTION D29 PLEASE ASK PATIENT TO USE THE PATIENTS RATING SCALE"
^DD(604,11.17,21,3,0)="D29. How troubled or bothered have you been in the past 30 days by these:"
^DD(604,11.17,21,4,0)="     Drug Problems"
^DD(604,11.17,"DT")="2961003"
^DD(604,11.175,0)="TMT IMPORTANT DRUG^P604.45'^YSTX(604.45,^11;25^Q"
^DD(604,11.175,3)=""
^DD(604,11.175,21,0)="^^3^3^2970318^"
^DD(604,11.175,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.175,21,2,0)="FOR QUESTION D31 PLEASE ASK PATIENT TO USE THE PATIENTS RATING SCALE"
^DD(604,11.175,21,3,0)="D31. How important to you now is treatment for these:  Drug Problems"
^DD(604,11.175,"DT")="2961003"
^DD(604,11.18,0)="INTERVIEWER'S RATING ALCOHOL^F^^11;18^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,11.18,3)="Enter 0-9, X or N"
^DD(604,11.18,21,0)="^^3^3^2970318^"
^DD(604,11.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.18,21,2,0)="INERVIEWER SEVERITY RATING"
^DD(604,11.18,21,3,0)="D31. How would you rate the patient's need for treatment for:  Alcohol Abuse"
^DD(604,11.18,"DT")="2970218"
^DD(604,11.185,0)="INTERVIEWER'S RATING DRUG^F^^11;13^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,11.185,3)="Enter 0-9, X or N"
^DD(604,11.185,21,0)="^^3^3^2970318^"
^DD(604,11.185,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.185,21,2,0)="INERVIEWER SEVERITY RATING"
^DD(604,11.185,21,3,0)="D33. How would you rate the patient's need for treatment for:  Drug Abuse"
^DD(604,11.185,"DT")="2970218"
^DD(604,11.19,0)="PATIENT MISREP D/A^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^11;19^Q"
^DD(604,11.19,21,0)="^^5^5^2970318^"
^DD(604,11.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.19,21,2,0)="CONFIDENCE RATINGS"
^DD(604,11.19,21,3,0)="Is the above information significantly distorted by:"
^DD(604,11.19,21,4,0)="D34. Patient's misrepresentation?  0 - No"
^DD(604,11.19,21,5,0)="                                   1 - Yes"
^DD(604,11.19,"DT")="2970218"
^DD(604,11.21,0)="PATIENT INAB UNDSTND D/A^S^0:NO;1:YES;^11;21^Q"
^DD(604,11.21,21,0)="^^5^5^2970318^"
^DD(604,11.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,11.21,21,2,0)="CONFIDENCE RATINGS"
^DD(604,11.21,21,3,0)="Is the above information significantly distorted by:"
^DD(604,11.21,21,4,0)="D35. Patient's inability to understand?  0 - No"
^DD(604,11.21,21,5,0)="                                         1 - Yes"
^DD(604,11.21,"DT")="2960227"
^DD(604,14.01,0)="ADM PROMPTED BY CJS^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^14;1^Q"
^DD(604,14.01,21,0)="^^4^4^2970319^"
^DD(604,14.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.01,21,2,0)="L1. Was this admission prompted or suggested by the criminal justice system"
^DD(604,14.01,21,3,0)="    (judge, probation/parole officer, etc.)  0 - No"
^DD(604,14.01,21,4,0)="                                             1 - Yes"
^DD(604,14.01,"DT")="2970218"
^DD(604,14.02,0)="ON PROBATION OR PAROLE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^14;2^Q"
^DD(604,14.02,21,0)="^^3^3^2970319^"
^DD(604,14.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.02,21,2,0)="L2. Are you on probation or parole?  0 - No"
^DD(604,14.02,21,3,0)="                                     1 - Yes"
^DD(604,14.02,"DT")="2970224"
^DD(604,14.03,0)="SHOPLIFTING/VANDALISM^F^^14;3^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.03,3)="Enter 0-99, X or N"
^DD(604,14.03,21,0)="^^4^4^2970319^^^"
^DD(604,14.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.03,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.03,21,3,0)="following:"
^DD(604,14.03,21,4,0)="L3 - shoplifting,vandalism"
^DD(604,14.03,"DT")="2960227"
^DD(604,14.04,0)="PAROLE/PROBATION VIOLATIONS^F^^14;4^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.04,3)="Enter 0-99, X or N"
^DD(604,14.04,21,0)="^^4^4^2970319^^"
^DD(604,14.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.04,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.04,21,3,0)="following:"
^DD(604,14.04,21,4,0)="L4 - parole/probation violations"
^DD(604,14.04,"DT")="2960227"
^DD(604,14.05,0)="DRUG CHARGES^F^^14;5^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.05,3)="Enter 0-99, X or N"
^DD(604,14.05,21,0)="^^4^4^2970319^"
^DD(604,14.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.05,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.05,21,3,0)="following:"
^DD(604,14.05,21,4,0)="L5 - drug charges"
^DD(604,14.05,"DT")="2960227"
^DD(604,14.06,0)="FORGERY^F^^14;6^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.06,3)="Enter 0-99, X or N"
^DD(604,14.06,21,0)="^^4^4^2970319^"
^DD(604,14.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.06,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.06,21,3,0)="following:"
^DD(604,14.06,21,4,0)="L6 - forgery"
^DD(604,14.06,"DT")="2960227"
^DD(604,14.07,0)="WEAPONS OFFENSE^F^^14;7^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.07,3)="Enter 0-99, X or N"
^DD(604,14.07,21,0)="^^4^4^2970319^"
^DD(604,14.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.07,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.07,21,3,0)="following:"
^DD(604,14.07,21,4,0)="L7 - weapons offense"
^DD(604,14.07,"DT")="2960227"
^DD(604,14.08,0)="BURGLARY LARCENY B & E^F^^14;8^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.08,3)="Enter 0-99, X or N"
^DD(604,14.08,21,0)="^^4^4^2970319^"
^DD(604,14.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.08,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.08,21,3,0)="following:"
^DD(604,14.08,21,4,0)="L8 - burglary, larceny, B & E"
^DD(604,14.08,"DT")="2960227"
^DD(604,14.09,0)="ROBBERY^F^^14;9^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.09,3)="Enter 0-99, X or N"
^DD(604,14.09,21,0)="^^4^4^2970319^"
^DD(604,14.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.09,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.09,21,3,0)="following:"
^DD(604,14.09,21,4,0)="L9 - robbery"
^DD(604,14.09,"DT")="2960227"
^DD(604,14.11,0)="ASSAULT^F^^14;11^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.11,3)="Enter 0-99, X or N"
^DD(604,14.11,21,0)="^^4^4^2970319^"
^DD(604,14.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.11,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.11,21,3,0)="following:"
^DD(604,14.11,21,4,0)="L10 - assault"
^DD(604,14.11,"DT")="2960227"
^DD(604,14.12,0)="ARSON^F^^14;12^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.12,3)="Enter 0-99, X or N"
^DD(604,14.12,21,0)="^^4^4^2970319^"
^DD(604,14.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.12,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.12,21,3,0)="following:"
^DD(604,14.12,21,4,0)="L11 - arson"
^DD(604,14.12,"DT")="2960227"
^DD(604,14.14,0)="RAPE^F^^14;14^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.14,3)="Enter 0-99, X or N"
^DD(604,14.14,21,0)="^^4^4^2970319^"
^DD(604,14.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.14,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.14,21,3,0)="following:"
^DD(604,14.14,21,4,0)="L12 - rape"
^DD(604,14.14,"DT")="2960227"
^DD(604,14.15,0)="HOMICIDE MANSLAUGHTER^F^^14;15^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.15,3)="Enter 0-99, X or N"
^DD(604,14.15,21,0)="^^4^4^2970319^"
^DD(604,14.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.15,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.15,21,3,0)="following:"
^DD(604,14.15,21,4,0)="L13 - homicide, manslaugter"
^DD(604,14.15,"DT")="2960227"
^DD(604,14.16,0)="PROSTITUTION^F^^14;16^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.16,3)="Enter 0-99, X or N"
^DD(604,14.16,21,0)="^^4^4^2970319^"
^DD(604,14.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.16,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.16,21,3,0)="following:"
^DD(604,14.16,21,4,0)="L14 - prostitution"
^DD(604,14.16,"DT")="2960227"
^DD(604,14.17,0)="CONTEMPT OF COURT^F^^14;17^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.17,3)="Enter 0-99, X or N"
^DD(604,14.17,21,0)="^^4^4^2970319^"
^DD(604,14.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.17,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.17,21,3,0)="following:"
^DD(604,14.17,21,4,0)="L15 - contempt of court"
^DD(604,14.17,"DT")="2960227"
^DD(604,14.18,0)="OTHER CHARGES^F^^14;18^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.18,3)="Enter 0-99, X or N"
^DD(604,14.18,21,0)="^^4^4^2970319^"
^DD(604,14.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.18,21,2,0)="How many times in your life have you been arrested and charged with the"
^DD(604,14.18,21,3,0)="following:"
^DD(604,14.18,21,4,0)="L16 - other"
^DD(604,14.18,"DT")="2960227"
^DD(604,14.19,0)="CONVICTIONS^F^^14;19^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.19,3)="Enter a number, 0 to 99. Do not include misdemeanor offenses in questions below. Convictions include fines, probation, incarcerations, suspended sentences, and guilty pleas."
^DD(604,14.19,21,0)="^^2^2^2970319^"
^DD(604,14.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.19,21,2,0)="L17. How many of these charges resulted in convictions?"
^DD(604,14.19,"DT")="2960315"
^DD(604,14.21,0)="DCVPI^F^^14;21^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.21,3)="Enter 0-99, X or N"
^DD(604,14.21,21,0)="^^3^3^2970319^^"
^DD(604,14.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.21,21,2,0)="How many times in your life have you been charged with the following:"
^DD(604,14.21,21,3,0)="L18. Disorderly conduct, vagrancy, public intoxication"
^DD(604,14.21,"DT")="2960227"
^DD(604,14.22,0)="DRIVING WHILE INTOXICATED^F^^14;22^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.22,3)="Enter 0-99, X or N"
^DD(604,14.22,21,0)="^^3^3^2970319^"
^DD(604,14.22,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.22,21,2,0)="How many times in your life have you been charged with the following:"
^DD(604,14.22,21,3,0)="L19. Driving while intoxicated"
^DD(604,14.22,"DT")="2960227"
^DD(604,14.23,0)="MAJOR DRIVING VIOLATIONS^F^^14;23^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.23,3)="Enter 0-99, X or N"
^DD(604,14.23,21,0)="^^3^3^2970319^"
^DD(604,14.23,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.23,21,2,0)="How many times in your life have you been charged with the following:"
^DD(604,14.23,21,3,0)="L20. Major driving violations (reckless driving, speeding, no license, etc.)"
^DD(604,14.23,"DT")="2960227"
^DD(604,14.24,0)="MONTH INCARCERATED LIFETIME^F^^14;24^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.24,3)="Enter 0-99, X or N"
^DD(604,14.24,21,0)="3^^2^2^2970320^^"
^DD(604,14.24,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.24,21,2,0)="L21. How many months were you incarcerated in your life?  MOS."
^DD(604,14.24,"DT")="2960227"
^DD(604,14.25,0)="MONTHS LAST INCARCERATION^F^^14;25^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,14.25,3)="Enter 0-99, X or N"
^DD(604,14.25,21,0)="^^2^2^2970320^^^^"
^DD(604,14.25,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.25,21,2,0)="L22. How long was your last incarceration?  MOS."
^DD(604,14.25,"DT")="2960318"
^DD(604,14.26,0)="LAST INCARCERATED FOR^P604.3'^YSTX(604.3,^14;26^Q"
^DD(604,14.26,21,0)="^^3^3^2970320^"
^DD(604,14.26,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.26,21,2,0)="L23. What was it for? (Use ocde 3-16, 18-20.  If multiple charges, code most "
^DD(604,14.26,21,3,0)="     severe)"
^DD(604,14.26,"DT")="2961003"
^DD(604,14.265,0)="INCARCERATION CODE^CJ3^^ ; ^X ^DD(604,14.265,9.3) S X=$P(Y(604,14.265,101),U,2) S D0=Y(604,14.265,80)"
^DD(604,14.265,9)="^"
^DD(604,14.265,9.01)="692723^.02;604^14.26"
^DD(604,14.265,9.1)="14.26:.02"
^DD(604,14.265,9.2)="S Y(604,14.265,80)=$S($D(D0):D0,1:""""),Y(604,14.265,1)=$S($D(^YSTX(604,D0,14)):^(14),1:"""")"
^DD(604,14.265,9.3)="X ^DD(604,14.265,9.2) S D0=$P(Y(604,14.265,1),U,26) S:'$D(^YSTX(604.3,+D0,0)) D0=-1 S Y(604,14.265,101)=$S($D(^YSTX(604.3,D0,0)):^(0),1:"""")"
^DD(604,14.27,0)="AWAITING CTS^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^14;27^Q"
^DD(604,14.27,21,0)="^^3^3^2970320^"
^DD(604,14.27,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.27,21,2,0)="L24. Are you presently awaiting charges, trial or sentence?  0 - No"
^DD(604,14.27,21,3,0)="                                                             1 - Yes"
^DD(604,14.27,"DT")="2970218"
^DD(604,14.28,0)="FOR WHAT^P604.3'^YSTX(604.3,^14;28^Q"
^DD(604,14.28,21,0)="^^2^2^2970320^"
^DD(604,14.28,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.28,21,2,0)="L25. What for (If multiple charges, use most severe)."
^DD(604,14.28,"DT")="2961003"
^DD(604,14.29,0)="DETAINED/INCARCERATED L30D^F^^14;29^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,14.29,3)="Enter 0-30 days, X or N"
^DD(604,14.29,21,0)="^^2^2^2970320^^"
^DD(604,14.29,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.29,21,2,0)="L26. How many days in the past 30 were you detained or incarcerated?"
^DD(604,14.29,"DT")="2960227"
^DD(604,14.31,0)="ILLEGAL ACTIVITIES/PROFIT L30D^F^^14;31^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,14.31,3)="Enter 0-30 days, X or N"
^DD(604,14.31,21,0)="^^3^3^2970320^"
^DD(604,14.31,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.31,21,2,0)="L27. How many days in the past 30 have you engaged in illegal activities for"
^DD(604,14.31,21,3,0)="     profit?"
^DD(604,14.31,"DT")="2960227"
^DD(604,14.32,0)="LEGAL PROB SCALE^P604.45'^YSTX(604.45,^14;32^Q"
^DD(604,14.32,3)=""
^DD(604,14.32,21,0)="^^4^4^2970321^^"
^DD(604,14.32,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.32,21,2,0)="FOR QUESTION L28 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,14.32,21,3,0)="L28. How serious do you feel your present legal problems are?"
^DD(604,14.32,21,4,0)="     (Exclude civil problems)"
^DD(604,14.32,"DT")="2961003"
^DD(604,14.33,0)="LEGAL IMPORTANCE SCALE^P604.45'^YSTX(604.45,^14;33^Q"
^DD(604,14.33,3)=""
^DD(604,14.33,21,0)="^^4^4^2970321^^"
^DD(604,14.33,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.33,21,2,0)="FOR QUESTION L29 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,14.33,21,3,0)="L29. How important to you now is counseling or referral for these legal"
^DD(604,14.33,21,4,0)="     problems?"
^DD(604,14.33,"DT")="2961003"
^DD(604,14.34,0)="INTERVIEWER'S RATING LEGAL^F^^14;34^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,14.34,3)="Enter 0-9, X or N"
^DD(604,14.34,21,0)="^^2^2^2970320^"
^DD(604,14.34,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.34,21,2,0)="L30. How would you rate the patient's need for legal services or counseling?"
^DD(604,14.34,"DT")="2970218"
^DD(604,14.35,0)="PATIENT MISREP LEGAL^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^14;35^Q"
^DD(604,14.35,21,0)="^^3^3^2970320^"
^DD(604,14.35,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.35,21,2,0)="L30. Patient's misrepresentation?  0 - No"
^DD(604,14.35,21,3,0)="                                   1 - Yes"
^DD(604,14.35,"DT")="2970218"
^DD(604,14.36,0)="PATIENT INAB UNDSTND LEGAL^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^14;36^Q"
^DD(604,14.36,21,0)="^^3^3^2970320^"
^DD(604,14.36,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,14.36,21,2,0)="L32. Patient's inability to understand?  0 - No"
^DD(604,14.36,21,3,0)="                                         1 - Yes"
^DD(604,14.36,"DT")="2970218"
^DD(604,14.5,0)="LEGAL COMMENT^604.09^^14.5;0"
^DD(604,14.5,21,0)="^^1^1^2970320^"
^DD(604,14.5,21,1,0)="This field contains comments on the patient's Legal Status."
^DD(604,14.5,"DT")="2961029"
^DD(604,15.01,0)="MS GRANDMOTHER ALC^P604.5'^YSTX(604.5,^15;1^Q"
^DD(604,15.01,3)=""
^DD(604,15.01,21,0)="^^10^10^2970320^"
^DD(604,15.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.01,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.01,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.01,21,4,0)="Mother's Side"
^DD(604,15.01,21,5,0)="H1. Grandmother  Alcohol"
^DD(604,15.01,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.01,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,15.01,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.01,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.01,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.01,"DT")="2961003"
^DD(604,15.02,0)="MS GRANDMOTHER DRUG^P604.5'^YSTX(604.5,^15;2^Q"
^DD(604,15.02,3)=""
^DD(604,15.02,21,0)="^^10^10^2970321^^^"
^DD(604,15.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.02,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.02,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.02,21,4,0)="Mother's Side"
^DD(604,15.02,21,5,0)="H1. Grandmother  Drug"
^DD(604,15.02,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.02,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.02,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.02,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.02,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.02,"DT")="2961003"
^DD(604,15.03,0)="MS GRANDMOTHER PSYCH^P604.5'^YSTX(604.5,^15;3^Q"
^DD(604,15.03,3)=""
^DD(604,15.03,21,0)="^^10^10^2970321^^"
^DD(604,15.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.03,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.03,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.03,21,4,0)="Mother's Side"
^DD(604,15.03,21,5,0)="H. Grandmother  Psych"
^DD(604,15.03,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.03,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.03,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.03,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.03,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.03,"DT")="2961003"
^DD(604,15.04,0)="MS GRANDFATHER ALC^P604.5'^YSTX(604.5,^15;4^Q"
^DD(604,15.04,3)=""
^DD(604,15.04,21,0)="^^10^10^2970321^^^"
^DD(604,15.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.04,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.04,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.04,21,4,0)="Mother's Side"
^DD(604,15.04,21,5,0)="H2. Grandfather  Alcohol"
^DD(604,15.04,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.04,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.04,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.04,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.04,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.04,"DT")="2961003"
^DD(604,15.05,0)="MS GRANDFATHER DRUG^P604.5'^YSTX(604.5,^15;5^Q"
^DD(604,15.05,3)=""
^DD(604,15.05,21,0)="^^10^10^2970321^^"
^DD(604,15.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.05,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.05,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.05,21,4,0)="Mother's Side"
^DD(604,15.05,21,5,0)="H2. Grandfather  Drug"
^DD(604,15.05,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.05,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.05,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.05,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.05,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.05,"DT")="2961003"
^DD(604,15.06,0)="MS GRANDFATHER PSYCH^P604.5'^YSTX(604.5,^15;6^Q"
^DD(604,15.06,3)=""
^DD(604,15.06,21,0)="^^10^10^2970321^^"
^DD(604,15.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.06,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.06,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.06,21,4,0)="Mother's Side"
^DD(604,15.06,21,5,0)="H2. Grandfather  Psych"
^DD(604,15.06,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.06,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.06,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.06,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.06,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.06,"DT")="2961003"
^DD(604,15.07,0)="MS MOTHER ALC^P604.5'^YSTX(604.5,^15;7^Q"
^DD(604,15.07,3)=""
^DD(604,15.07,21,0)="^^10^10^2970321^^"
^DD(604,15.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.07,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.07,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.07,21,4,0)="Mother's Side"
^DD(604,15.07,21,5,0)="H3. Mother  Alcohol"
^DD(604,15.07,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.07,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.07,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.07,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.07,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.07,"DT")="2961003"
^DD(604,15.08,0)="MS MOTHER DRUG^P604.5'^YSTX(604.5,^15;8^Q"
^DD(604,15.08,3)=""
^DD(604,15.08,21,0)="^^10^10^2970321^^"
^DD(604,15.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.08,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.08,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.08,21,4,0)="Mother's Side"
^DD(604,15.08,21,5,0)="H3. Mother  Drug"
^DD(604,15.08,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.08,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.08,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.08,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.08,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.08,"DT")="2961003"
^DD(604,15.09,0)="MS MOTHER PSYCH^P604.5'^YSTX(604.5,^15;9^Q"
^DD(604,15.09,3)=""
^DD(604,15.09,21,0)="^^10^10^2970321^^"
^DD(604,15.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.09,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.09,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.09,21,4,0)="Mother's Side"
^DD(604,15.09,21,5,0)="H3. Mother  Psych"
^DD(604,15.09,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.09,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.09,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.09,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.09,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.09,"DT")="2961003"
^DD(604,15.11,0)="MS AUNT ALC^P604.5'^YSTX(604.5,^15;11^Q"
^DD(604,15.11,3)=""
^DD(604,15.11,21,0)="^^10^10^2970321^^"
^DD(604,15.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.11,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.11,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.11,21,4,0)="Mother's Side"
^DD(604,15.11,21,5,0)="H4. Aunt  Alcohol"
^DD(604,15.11,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.11,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.11,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.11,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.11,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.11,"DT")="2961003"
^DD(604,15.12,0)="MS AUNT DRUG^P604.5'^YSTX(604.5,^15;12^Q"
^DD(604,15.12,3)=""
^DD(604,15.12,21,0)="^^10^10^2970320^"
^DD(604,15.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.12,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.12,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.12,21,4,0)="Mother's Side"
^DD(604,15.12,21,5,0)="H4. Aunt  Drug"
^DD(604,15.12,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.12,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,15.12,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.12,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.12,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.12,"DT")="2961003"
^DD(604,15.14,0)="MS AUNT PSYCH^P604.5'^YSTX(604.5,^15;14^Q"
^DD(604,15.14,3)=""
^DD(604,15.14,21,0)="^^10^10^2970321^^"
^DD(604,15.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.14,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.14,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.14,21,4,0)="Mother's Side"
^DD(604,15.14,21,5,0)="H4. Aunt Psych"
^DD(604,15.14,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.14,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.14,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.14,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.14,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.14,"DT")="2961003"
^DD(604,15.15,0)="MS UNCLE ALC^P604.5'^YSTX(604.5,^15;15^Q"
^DD(604,15.15,3)=""
^DD(604,15.15,21,0)="^^10^10^2970321^^^"
^DD(604,15.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.15,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.15,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.15,21,4,0)="Mother's Side"
^DD(604,15.15,21,5,0)="H5. Uncle  Alcohol"
^DD(604,15.15,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.15,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.15,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.15,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.15,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.15,"DT")="2961003"
^DD(604,15.16,0)="MS UNCLE DRUG^P604.5'^YSTX(604.5,^15;16^Q"
^DD(604,15.16,3)=""
^DD(604,15.16,21,0)="^^10^10^2970321^^^"
^DD(604,15.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.16,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.16,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.16,21,4,0)="Mother's Side"
^DD(604,15.16,21,5,0)="H5. Uncle  Drug"
^DD(604,15.16,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.16,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.16,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.16,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.16,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.16,"DT")="2961003"
^DD(604,15.17,0)="MS UNCLE PSYCH^P604.5'^YSTX(604.5,^15;17^Q"
^DD(604,15.17,3)=""
^DD(604,15.17,21,0)="^^10^10^2970321^^"
^DD(604,15.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.17,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.17,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.17,21,4,0)="Mother's Side"
^DD(604,15.17,21,5,0)="H5. Uncle  Psych"
^DD(604,15.17,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.17,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.17,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.17,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.17,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.17,"DT")="2961003"
^DD(604,15.18,0)="FS GRANDMOTHER ALC^P604.5'^YSTX(604.5,^15;18^Q"
^DD(604,15.18,21,0)="^^10^10^2970321^^"
^DD(604,15.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.18,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.18,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.18,21,4,0)="Father's Side"
^DD(604,15.18,21,5,0)="H6. Grandmother  Alcohol"
^DD(604,15.18,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.18,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.18,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.18,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.18,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.18,"DT")="2961003"
^DD(604,15.19,0)="FS GRANDMOTHER DRUG^P604.5'^YSTX(604.5,^15;19^Q"
^DD(604,15.19,21,0)="^^10^10^2970321^^"
^DD(604,15.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.19,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.19,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.19,21,4,0)="Father's Side"
^DD(604,15.19,21,5,0)="H6. Grandmother  Drug"
^DD(604,15.19,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.19,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.19,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.19,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.19,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.19,"DT")="2961003"
^DD(604,15.21,0)="FS GRANDMOTHER PSYCH^P604.5'^YSTX(604.5,^15;21^Q"
^DD(604,15.21,21,0)="^^10^10^2970321^^"
^DD(604,15.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.21,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.21,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.21,21,4,0)="Father's Side"
^DD(604,15.21,21,5,0)="H6. Grandmother  Psych"
^DD(604,15.21,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.21,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.21,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.21,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.21,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.21,"DT")="2961003"
^DD(604,15.22,0)="FS GRANDFATHER ALC^P604.5'^YSTX(604.5,^15;22^Q"
^DD(604,15.22,21,0)="^^10^10^2970320^^"
^DD(604,15.22,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.22,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.22,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.22,21,4,0)="Father's Side"
^DD(604,15.22,21,5,0)="H7. Grand  Alcohol"
^DD(604,15.22,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.22,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,15.22,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.22,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.22,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.22,"DT")="2961003"
^DD(604,15.23,0)="FS GRANDFATHER DRUG^P604.5'^YSTX(604.5,^15;23^Q"
^DD(604,15.23,21,0)="^^10^10^2970320^^^^"
^DD(604,15.23,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.23,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.23,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.23,21,4,0)="Father's Side"
^DD(604,15.23,21,5,0)="H7. Grandfather  Drug"
^DD(604,15.23,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.23,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.23,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.23,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.23,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.23,"DT")="2961003"
^DD(604,15.24,0)="FS GRANDFATHER PSYCH^P604.5'^YSTX(604.5,^15;24^Q"
^DD(604,15.24,21,0)="^^10^10^2970320^^"
^DD(604,15.24,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.24,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.24,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.24,21,4,0)="Father's Side"
^DD(604,15.24,21,5,0)="H7. Grandfather  Psych"
^DD(604,15.24,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.24,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.24,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.24,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.24,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.24,"DT")="2961003"
^DD(604,15.25,0)="FS FATHER ALC^P604.5'^YSTX(604.5,^15;25^Q"
^DD(604,15.25,21,0)="^^10^10^2970320^^"
^DD(604,15.25,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.25,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.25,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.25,21,4,0)="Father's Side"
^DD(604,15.25,21,5,0)="H6. Father  Alcohol"
^DD(604,15.25,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.25,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.25,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.25,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.25,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.25,"DT")="2961003"
^DD(604,15.26,0)="FS FATHER DRUG^P604.5'^YSTX(604.5,^15;26^Q"
^DD(604,15.26,21,0)="^^10^10^2970320^"
^DD(604,15.26,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.26,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.26,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.26,21,4,0)="Father's Side"
^DD(604,15.26,21,5,0)="H8. Father  Drug"
^DD(604,15.26,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.26,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,15.26,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.26,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.26,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.26,"DT")="2961003"
^DD(604,15.27,0)="FS FATHER PSYCH^P604.5'^YSTX(604.5,^15;27^Q"
^DD(604,15.27,21,0)="^^10^10^2970320^"
^DD(604,15.27,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,15.27,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,15.27,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,15.27,21,4,0)="Father's Side"
^DD(604,15.27,21,5,0)="H8. Father  Psych"
^DD(604,15.27,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,15.27,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,15.27,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,15.27,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,15.27,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,15.27,"DT")="2961003"
^DD(604,16.01,0)="FS AUNT ALC^P604.5'^YSTX(604.5,^16;1^Q"
^DD(604,16.01,21,0)="^^10^10^2970320^"
^DD(604,16.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.01,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.01,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.01,21,4,0)="Father's Side"
^DD(604,16.01,21,5,0)="H9. Aunt  Alcohol"
^DD(604,16.01,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.01,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.01,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.01,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.01,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.01,"DT")="2961003"
^DD(604,16.02,0)="FS AUNT DRUG^P604.5'^YSTX(604.5,^16;2^Q"
^DD(604,16.02,21,0)="^^10^10^2970320^"
^DD(604,16.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.02,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.02,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.02,21,4,0)="Father's Side"
^DD(604,16.02,21,5,0)="H9. Aunt  Drug"
^DD(604,16.02,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.02,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,16.02,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.02,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.02,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.02,"DT")="2961003"
^DD(604,16.03,0)="FS AUNT PSYCH^P604.5'^YSTX(604.5,^16;3^Q"
^DD(604,16.03,21,0)="^^10^10^2970320^"
^DD(604,16.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.03,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.03,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.03,21,4,0)="Father's Side"
^DD(604,16.03,21,5,0)="H9. Aunt  Psych"
^DD(604,16.03,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.03,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,16.03,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.03,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.03,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.03,"DT")="2961003"
^DD(604,16.04,0)="FS UNCLE ALC^P604.5'^YSTX(604.5,^16;4^Q"
^DD(604,16.04,21,0)="^^10^10^2970321^"
^DD(604,16.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.04,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.04,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.04,21,4,0)="Father's Side"
^DD(604,16.04,21,5,0)="H10. Uncle  Alcohol"
^DD(604,16.04,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.04,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.04,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.04,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.04,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.04,"DT")="2961003"
^DD(604,16.05,0)="FS UNCLE DRUG^P604.5'^YSTX(604.5,^16;5^Q"
^DD(604,16.05,21,0)="^^10^10^2970321^"
^DD(604,16.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.05,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.05,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.05,21,4,0)="Father's Side"
^DD(604,16.05,21,5,0)="H10. Uncle  Drug"
^DD(604,16.05,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.05,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,16.05,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.05,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.05,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.05,"DT")="2961003"
^DD(604,16.06,0)="FS UNCLE PSYCH^P604.5'^YSTX(604.5,^16;6^Q"
^DD(604,16.06,21,0)="^^10^10^2970321^"
^DD(604,16.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.06,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.06,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.06,21,4,0)="Father's Side"
^DD(604,16.06,21,5,0)="H10. Uncle  Psych"
^DD(604,16.06,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.06,21,7,0)="all relatives in the category;""1"" where the answer is clearly yes for any"
^DD(604,16.06,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.06,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.06,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.06,"DT")="2961003"
^DD(604,16.07,0)="BROTHER ALC^P604.5'^YSTX(604.5,^16;7^Q"
^DD(604,16.07,21,0)="^^10^10^2970321^"
^DD(604,16.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.07,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.07,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.07,21,4,0)="Siblings"
^DD(604,16.07,21,5,0)="H11. Brother  Alcohol"
^DD(604,16.07,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.07,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.07,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.07,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.07,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.07,"DT")="2961003"
^DD(604,16.08,0)="BROTHER DRUG^P604.5'^YSTX(604.5,^16;8^Q"
^DD(604,16.08,21,0)="^^10^10^2970321^"
^DD(604,16.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.08,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.08,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.08,21,4,0)="Siblings"
^DD(604,16.08,21,5,0)="H11. Brother  Drug"
^DD(604,16.08,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.08,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.08,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.08,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.08,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.08,"DT")="2961003"
^DD(604,16.09,0)="BROTHER PSYCH^P604.5'^YSTX(604.5,^16;9^Q"
^DD(604,16.09,21,0)="^^10^10^2970321^"
^DD(604,16.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.09,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.09,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.09,21,4,0)="Siblings"
^DD(604,16.09,21,5,0)="H11. Brother  Psych"
^DD(604,16.09,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.09,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.09,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.09,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.09,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.09,"DT")="2961003"
^DD(604,16.11,0)="SISTER ALC^P604.5'^YSTX(604.5,^16;11^Q"
^DD(604,16.11,21,0)="^^10^10^2970321^"
^DD(604,16.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.11,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.11,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.11,21,4,0)="Siblings"
^DD(604,16.11,21,5,0)="H12. Sister  Alcohol"
^DD(604,16.11,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.11,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.11,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.11,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.11,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.11,"DT")="2961003"
^DD(604,16.12,0)="SISTER DRUG^P604.5'^YSTX(604.5,^16;12^Q"
^DD(604,16.12,21,0)="^^10^10^2970321^"
^DD(604,16.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.12,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.12,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.12,21,4,0)="Siblings"
^DD(604,16.12,21,5,0)="H12. Sister  Drug"
^DD(604,16.12,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.12,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.12,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.12,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.12,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.12,"DT")="2961003"
^DD(604,16.14,0)="SISTER PSYCH^P604.5'^YSTX(604.5,^16;14^Q"
^DD(604,16.14,21,0)="^^10^10^2970321^"
^DD(604,16.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,16.14,21,2,0)="Have any of your relatives had what you call a significant drinking, drug use"
^DD(604,16.14,21,3,0)="or psych problem - one that did or should have led to treatment?"
^DD(604,16.14,21,4,0)="Siblings"
^DD(604,16.14,21,5,0)="H12. Sister  Psych"
^DD(604,16.14,21,6,0)="Direction: Place ""0"" in relative category where the answer is clearly no for"
^DD(604,16.14,21,7,0)="all relatives in the category; ""1"" where the answer is clearly yes for any"
^DD(604,16.14,21,8,0)="relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,16.14,21,9,0)="know"" and ""N"" where there never was a relative from that category.  Code most"
^DD(604,16.14,21,10,0)="problematic relative in cases of multiple members per category."
^DD(604,16.14,"DT")="2961003"
^DD(604,16.5,0)="FAMILY HISTORY COMMENT^604.11^^16.5;0"
^DD(604,16.5,21,0)="^^1^1^2970321^"
^DD(604,16.5,21,1,0)="This field contains comments on the patient's Family History."
^DD(604,16.5,"DT")="2961029"
^DD(604,17.01,0)="MARITIAL STATUS^S^1:MARRIED;2:REMARRIED;3:WIDOWED;4:SEPARATED;5:DIVORCED;6:NEVER MARRIED;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^17;1^Q"
^DD(604,17.01,21,0)="^^4^4^2970321^"
^DD(604,17.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.01,21,2,0)="F1. Marital Status  1 - Married     4 - Separated"
^DD(604,17.01,21,3,0)="                    2 - Remarried   5 - Divorced"
^DD(604,17.01,21,4,0)="                    3 - Widowed     6 - Never Married"
^DD(604,17.01,"DT")="2970218"
^DD(604,17.02,0)="MARITIAL STATUS YRS^F^^17;2^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,17.02,3)="Enter 0-99, X or N"
^DD(604,17.02,21,0)="^^3^3^2970321^"
^DD(604,17.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.02,21,2,0)="F2. How long have you been in this marital status?  YRS."
^DD(604,17.02,21,3,0)="    (If never married, since age 18)."
^DD(604,17.02,"DT")="2960228"
^DD(604,17.03,0)="MARITIAL STATUS MOS^F^^17;3^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<12))) X"
^DD(604,17.03,3)="Enter 0-11, X or N"
^DD(604,17.03,21,0)="^^3^3^2970321^"
^DD(604,17.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.03,21,2,0)="F2. How long have you been in this marital status?  MOS."
^DD(604,17.03,21,3,0)="    (If never married, since age 18)."
^DD(604,17.03,"DT")="2970219"
^DD(604,17.04,0)="SATISFIED WITH SITUATION^S^0:NO;1:INDIFFERENT;2:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^17;4^Q"
^DD(604,17.04,21,0)="^^4^4^2970321^"
^DD(604,17.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.04,21,2,0)="F3. Are you satisfied with this situation?  0 - No"
^DD(604,17.04,21,3,0)="                                            1 - Indifferent"
^DD(604,17.04,21,4,0)="                                            2 - Yes"
^DD(604,17.04,"DT")="2970218"
^DD(604,17.05,0)="USUAL LIVING ARGMENTS P3Y^P604.4'^YSTX(604.4,^17;5^Q"
^DD(604,17.05,3)=""
^DD(604,17.05,21,0)="^^11^11^2970321^"
^DD(604,17.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.05,21,2,0)="F4. Usual living arrangements (past 3 yr.)"
^DD(604,17.05,21,3,0)="    1      WITH SEXUAL PARTNER & CHILDREN"
^DD(604,17.05,21,4,0)="    2      WITH SEXUAL PARTNER ALONE"
^DD(604,17.05,21,5,0)="    3      WITH CHILDREN ALONE"
^DD(604,17.05,21,6,0)="    4      WITH PARENTS"
^DD(604,17.05,21,7,0)="    5      WITH FAMILY"
^DD(604,17.05,21,8,0)="    6      WITH FRIENDS"
^DD(604,17.05,21,9,0)="    7      ALONE"
^DD(604,17.05,21,10,0)="    8      CONTROLLED ENVIRONMENT"
^DD(604,17.05,21,11,0)="    9      NO STABLE ARRANGEMENT"
^DD(604,17.05,"DT")="2961003"
^DD(604,17.06,0)="ARRANGEMENTS LOT YRS^F^^17;6^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,17.06,3)="Enter 0-99, X or N"
^DD(604,17.06,21,0)="^^3^3^2970321^"
^DD(604,17.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.06,21,2,0)="F5. How long have you lived in these arrangements?  YRS."
^DD(604,17.06,21,3,0)="    (If with parents or family, since age 18)."
^DD(604,17.06,"DT")="2960228"
^DD(604,17.07,0)="ARRANGEMENTS LOT MOS^F^^17;7^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<12))) X"
^DD(604,17.07,3)="Enter 0-11,X or N"
^DD(604,17.07,21,0)="^^3^3^2970321^"
^DD(604,17.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.07,21,2,0)="F5. How long have you lived in these arrangements?  MOS.                     "
^DD(604,17.07,21,3,0)="    (If with parents or family, since age 18)."
^DD(604,17.07,"DT")="2970219"
^DD(604,17.08,0)="ARRANGEMENTS SATISFACTION^S^0:NO;1:INDIFFERENT;2:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^17;8^Q"
^DD(604,17.08,21,0)="^^4^4^2970321^"
^DD(604,17.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.08,21,2,0)="F3. Are you satisfied with these living arrangements?  0 - No"
^DD(604,17.08,21,3,0)="                                                       1 - Indifferent"
^DD(604,17.08,21,4,0)="                                                       2 - Yes"
^DD(604,17.08,"DT")="2970218"
^DD(604,17.09,0)="LIVE W/ ANYONE W/ ALC PROB^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^17;9^Q"
^DD(604,17.09,21,0)="^^3^3^2970321^"
^DD(604,17.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.09,21,2,0)="Do you live wwith anyone who:  0 - No  1 - Yes"
^DD(604,17.09,21,3,0)="F7. Has a current alcohol problem?"
^DD(604,17.09,"DT")="2970218"
^DD(604,17.11,0)="LIVE W/ ANYONE W/ DRUG PROB^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^17;11^Q"
^DD(604,17.11,21,0)="^^3^3^2970321^"
^DD(604,17.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.11,21,2,0)="Do you live wwith anyone who:  0 - No  1 - Yes"
^DD(604,17.11,21,3,0)="F8 Uses non-prescribed drugs?"
^DD(604,17.11,"DT")="2970218"
^DD(604,17.12,0)="SPEND FREE TIME WITH^S^1:FAMILY;2:FRIENDS;3:ALONE;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^17;12^Q"
^DD(604,17.12,21,0)="^^3^3^2970321^"
^DD(604,17.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.12,21,2,0)="F9. With whom do you spend most of your free time:  1 - Family"
^DD(604,17.12,21,3,0)="                                                    2 - Friends  3 - Alone"
^DD(604,17.12,"DT")="2970218"
^DD(604,17.14,0)="SATISFIED SPENDING FREE TIME^S^0:NO;1:INDIFFERENT;2:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^17;14^Q"
^DD(604,17.14,21,0)="^^3^3^2970321^"
^DD(604,17.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.14,21,2,0)="F10. Are you satisfied with spending your free time this way?"
^DD(604,17.14,21,3,0)="     0 - No  1 - Indifferent  2 - Yes"
^DD(604,17.14,"DT")="2970218"
^DD(604,17.15,0)="HOW MANY CLOSE FRIENDS^F^^17;15^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,17.15,3)="Enter 0-9, X or N"
^DD(604,17.15,21,0)="^^2^2^2970321^"
^DD(604,17.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.15,21,2,0)="F11. How many close friends do you have?"
^DD(604,17.15,"DT")="2970218"
^DD(604,17.16,0)="CLOSE WITH MOTHER^P604.5'^YSTX(604.5,^17;16^Q"
^DD(604,17.16,21,0)="^^8^8^2970321^"
^DD(604,17.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.16,21,2,0)="Direction for F12: Place ""0"" in relative category where the answer is clearly"
^DD(604,17.16,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,17.16,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,17.16,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,17.16,21,6,0)="Would you say you have haf close, long, lasting, personal relationships with"
^DD(604,17.16,21,7,0)="any of the following people in your life:"
^DD(604,17.16,21,8,0)="F12. Mother"
^DD(604,17.16,"DT")="2961003"
^DD(604,17.17,0)="CLOSE WITH FATHER^P604.5'^YSTX(604.5,^17;17^Q"
^DD(604,17.17,21,0)="^^8^8^2970321^"
^DD(604,17.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.17,21,2,0)="Direction for F13: Place ""0"" in relative category where the answer is clearly"
^DD(604,17.17,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,17.17,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,17.17,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,17.17,21,6,0)="Would you say you have haf close, long, lasting, personal relationships with"
^DD(604,17.17,21,7,0)="any of the following people in your life:"
^DD(604,17.17,21,8,0)="F13. Father"
^DD(604,17.17,"DT")="2961003"
^DD(604,17.18,0)="CLOSE WITH BROTHERS/SISTERS^P604.5'^YSTX(604.5,^17;18^Q"
^DD(604,17.18,21,0)="^^8^8^2970321^"
^DD(604,17.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.18,21,2,0)="Direction for F14: Place ""0"" in relative category where the answer is clearly"
^DD(604,17.18,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,17.18,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,17.18,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,17.18,21,6,0)="Would you say you have haf close, long, lasting, personal relationships with"
^DD(604,17.18,21,7,0)="any of the following people in your life:"
^DD(604,17.18,21,8,0)="F14. Brothers/Sisters"
^DD(604,17.18,"DT")="2961003"
^DD(604,17.19,0)="CLOSE WITH SEX PARTNER/SPOUSE^P604.5'^YSTX(604.5,^17;19^Q"
^DD(604,17.19,21,0)="^^8^8^2970321^"
^DD(604,17.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.19,21,2,0)="Direction for F15: Place ""0"" in relative category where the answer is clearly"
^DD(604,17.19,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,17.19,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,17.19,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,17.19,21,6,0)="Would you say you have haf close, long, lasting, personal relationships with"
^DD(604,17.19,21,7,0)="any of the following people in your life:"
^DD(604,17.19,21,8,0)="F15. Sexual Partner/Spouse"
^DD(604,17.19,"DT")="2961003"
^DD(604,17.21,0)="CLOSE WITH CHILDREN^P604.5'^YSTX(604.5,^17;21^Q"
^DD(604,17.21,21,0)="^^8^8^2970321^"
^DD(604,17.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.21,21,2,0)="Direction for F16: Place ""0"" in relative category where the answer is clearly"
^DD(604,17.21,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,17.21,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,17.21,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,17.21,21,6,0)="Would you say you have haf close, long, lasting, personal relationships with"
^DD(604,17.21,21,7,0)="any of the following people in your life:"
^DD(604,17.21,21,8,0)="F16. Children"
^DD(604,17.21,"DT")="2961003"
^DD(604,17.22,0)="CLOSE WITH FRIENDS^P604.5'^YSTX(604.5,^17;22^Q"
^DD(604,17.22,21,0)="^^8^8^2970321^"
^DD(604,17.22,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,17.22,21,2,0)="Direction for F17: Place ""0"" in relative category where the answer is clearly"
^DD(604,17.22,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,17.22,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,17.22,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,17.22,21,6,0)="Would you say you have haf close, long, lasting, personal relationships with"
^DD(604,17.22,21,7,0)="any of the following people in your life:"
^DD(604,17.22,21,8,0)="F17. Friends"
^DD(604,17.22,"DT")="2961003"
^DD(604,18.01,0)="PROBLEM W/ MOTHER P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;1^Q"
^DD(604,18.01,21,0)="^^9^9^2970321^"
^DD(604,18.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.01,21,2,0)="Direction for F18: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.01,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.01,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.01,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.01,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.01,21,7,0)="getting along with:"
^DD(604,18.01,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.01,21,9,0)="F18. Mother"
^DD(604,18.01,"DT")="2970218"
^DD(604,18.02,0)="PROBLEM W/ MOTHER LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;2^Q"
^DD(604,18.02,21,0)="^^9^9^2970321^"
^DD(604,18.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.02,21,2,0)="Direction for F19: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.02,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.02,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.02,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.02,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.02,21,7,0)="getting along with:"
^DD(604,18.02,21,8,0)="0 - No  1 - Yes   IN YOUR LIFE "
^DD(604,18.02,21,9,0)="F18. Mother"
^DD(604,18.02,"DT")="2960325"
^DD(604,18.03,0)="PROBLEM W/ FATHER P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;3^Q"
^DD(604,18.03,21,0)="^^9^9^2970321^"
^DD(604,18.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.03,21,2,0)="Direction for F19: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.03,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.03,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.03,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.03,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.03,21,7,0)="getting along with:"
^DD(604,18.03,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.03,21,9,0)="F19. Father"
^DD(604,18.03,"DT")="2960325"
^DD(604,18.04,0)="PROBLEM W/ FATHER LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;4^Q"
^DD(604,18.04,21,0)="^^9^9^2970321^"
^DD(604,18.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.04,21,2,0)="Direction for F19: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.04,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.04,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.04,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.04,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.04,21,7,0)="getting along with:"
^DD(604,18.04,21,8,0)="0 - No  1 - Yes   IN YOUR LIFE"
^DD(604,18.04,21,9,0)="F19. Father"
^DD(604,18.04,"DT")="2960325"
^DD(604,18.05,0)="PROBLEM W/ BRO/SIS P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;5^Q"
^DD(604,18.05,21,0)="^^9^9^2970321^"
^DD(604,18.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.05,21,2,0)="Direction for F20: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.05,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.05,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.05,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.05,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.05,21,7,0)="getting along with:"
^DD(604,18.05,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.05,21,9,0)="F20. Brothers/Sisters"
^DD(604,18.05,"DT")="2960325"
^DD(604,18.06,0)="PROBLEM W/ BRO/SIS LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;6^Q"
^DD(604,18.06,21,0)="^^9^9^2970321^"
^DD(604,18.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.06,21,2,0)="Direction for F20: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.06,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.06,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.06,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.06,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.06,21,7,0)="getting along with:"
^DD(604,18.06,21,8,0)="0 - No  1 - Yes   IN YOUR LIFE"
^DD(604,18.06,21,9,0)="F20. Brothers/Sisters"
^DD(604,18.06,"DT")="2960325"
^DD(604,18.07,0)="PROBLEM W/ SEX PARTNER/SP P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;7^Q"
^DD(604,18.07,21,0)="^^9^9^2970321^"
^DD(604,18.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.07,21,2,0)="Direction for F21: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.07,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.07,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.07,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.07,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.07,21,7,0)="getting along with:"
^DD(604,18.07,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.07,21,9,0)="F21. Sexual partner/spouse"
^DD(604,18.07,"DT")="2960325"
^DD(604,18.08,0)="PROBLEM W/ SEX PARTNER/SP LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;8^Q"
^DD(604,18.08,21,0)="^^9^9^2970321^"
^DD(604,18.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.08,21,2,0)="Direction for F21: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.08,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.08,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.08,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.08,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.08,21,7,0)="getting along with:"
^DD(604,18.08,21,8,0)="0 - No  1 - Yes   IN YOUR LIFE"
^DD(604,18.08,21,9,0)="F21. Sexual partner/ spouse"
^DD(604,18.08,"DT")="2960325"
^DD(604,18.09,0)="PROBLEM W/ CHILDREN P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;9^Q"
^DD(604,18.09,21,0)="^^9^9^2970321^^"
^DD(604,18.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.09,21,2,0)="Direction for F22: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.09,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.09,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.09,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.09,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.09,21,7,0)="getting along with:"
^DD(604,18.09,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.09,21,9,0)="F22. Children"
^DD(604,18.09,"DT")="2960325"
^DD(604,18.11,0)="PROBLEM W/ CHILDREN LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;11^Q"
^DD(604,18.11,21,0)="^^9^9^2970321^"
^DD(604,18.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.11,21,2,0)="Direction for F22: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.11,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.11,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.11,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.11,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.11,21,7,0)="getting along with:"
^DD(604,18.11,21,8,0)="0 - No  1 - Yes   IN YOUR LIFE"
^DD(604,18.11,21,9,0)="F22. Children"
^DD(604,18.11,"DT")="2960325"
^DD(604,18.12,0)="PROBLEM W/ OSF P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;12^Q"
^DD(604,18.12,21,0)="^^9^9^2970321^"
^DD(604,18.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.12,21,2,0)="Direction for F23: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.12,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.12,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.12,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.12,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.12,21,7,0)="getting along with:"
^DD(604,18.12,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.12,21,9,0)="F23. Other significant family"
^DD(604,18.12,"DT")="2960325"
^DD(604,18.125,0)="PROBLEM W/ OSF SPECIFY^F^^18;10^K:$L(X)>25!($L(X)<1) X"
^DD(604,18.125,3)="Answer must be 1-25 characters in length."
^DD(604,18.125,21,0)="^^9^9^2970321^"
^DD(604,18.125,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.125,21,2,0)="Direction for F23: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.125,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.125,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.125,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.125,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.125,21,7,0)="getting along with:"
^DD(604,18.125,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.125,21,9,0)="F23. This field contains the ""Other significant family"" member."
^DD(604,18.125,"DT")="2960228"
^DD(604,18.14,0)="PROBLEM W/ OSF LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;14^Q"
^DD(604,18.14,21,0)="^^9^9^2970321^"
^DD(604,18.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.14,21,2,0)="Direction for F23: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.14,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.14,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.14,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.14,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.14,21,7,0)="getting along with:"
^DD(604,18.14,21,8,0)="0 - No  1 - Yes   IN YOR LIFE"
^DD(604,18.14,21,9,0)="F23. Other significant family"
^DD(604,18.14,"DT")="2960325"
^DD(604,18.15,0)="PROBLEM W/ CF P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;15^Q"
^DD(604,18.15,21,0)="^^9^9^2970321^"
^DD(604,18.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.15,21,2,0)="Direction for F24: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.15,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.15,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.15,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.15,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.15,21,7,0)="getting along with:"
^DD(604,18.15,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.15,21,9,0)="F24. Close Friends"
^DD(604,18.15,"DT")="2960325"
^DD(604,18.16,0)="PROBLEM W/ CF LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;16^Q"
^DD(604,18.16,21,0)="^^9^9^2970321^"
^DD(604,18.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.16,21,2,0)="Direction for F24: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.16,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.16,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.16,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.16,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.16,21,7,0)="getting along with:"
^DD(604,18.16,21,8,0)="0 - No  1 - Yes   INYOUR LIFE"
^DD(604,18.16,21,9,0)="F24. Close friends"
^DD(604,18.16,"DT")="2960325"
^DD(604,18.17,0)="PROBLEM W/ NEIGHBORS L30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;17^Q"
^DD(604,18.17,21,0)="^^9^9^2970321^"
^DD(604,18.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.17,21,2,0)="Direction for F25: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.17,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.17,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.17,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.17,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.17,21,7,0)="getting along with:"
^DD(604,18.17,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.17,21,9,0)="F25. Neighbors"
^DD(604,18.17,"DT")="2960325"
^DD(604,18.18,0)="PROBLEM W/ NEIGHBORS LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;18^Q"
^DD(604,18.18,21,0)="^^9^9^2970321^"
^DD(604,18.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.18,21,2,0)="Direction for F25: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.18,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.18,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.18,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.18,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.18,21,7,0)="getting along with:"
^DD(604,18.18,21,8,0)="0 - No  1 - Yes   IN YOUR LIFE"
^DD(604,18.18,21,9,0)="F25. Neighbors"
^DD(604,18.18,"DT")="2960325"
^DD(604,18.185,0)="PROBLEM W/CO WKRS P30D^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;13^Q"
^DD(604,18.185,21,0)="^^9^9^2970321^"
^DD(604,18.185,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.185,21,2,0)="Direction for F26: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.185,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.185,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.185,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.185,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.185,21,7,0)="getting along with:"
^DD(604,18.185,21,8,0)="0 - No  1 - Yes   PAST 30 DAYS"
^DD(604,18.185,21,9,0)="F26. Co-Workers"
^DD(604,18.185,"DT")="2960325"
^DD(604,18.186,0)="PROBLEM W/CO WKRS LIFE^S^0:NO;1:YES;N:N/A;X:uncertain/don't know;^18;20^Q"
^DD(604,18.186,21,0)="^^9^9^2970321^"
^DD(604,18.186,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.186,21,2,0)="Direction for F26: Place ""0"" in relative category where the answer is clearly"
^DD(604,18.186,21,3,0)="no for all relatives in that category; ""1"" where the answer is clearly yes for"
^DD(604,18.186,21,4,0)="any relative within the category; ""X"" where the answer is uncertain or ""I don't"
^DD(604,18.186,21,5,0)="know"" and ""N"" where there never was a relative from that category."
^DD(604,18.186,21,6,0)="Have you had significant periods in which you have experienced serious problems"
^DD(604,18.186,21,7,0)="getting along with:"
^DD(604,18.186,21,8,0)="0 - No  1 - Yes   IN YOU LIFE"
^DD(604,18.186,21,9,0)="F26. Co-Workers"
^DD(604,18.186,"DT")="2960325"
^DD(604,18.19,0)="ABUSE EMOTIONALLY L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;19^Q"
^DD(604,18.19,21,0)="^^4^4^2970321^"
^DD(604,18.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.19,21,2,0)="Did any of these people (F18-F26)"
^DD(604,18.19,21,3,0)="0 - No  1 - Yes  PAST 30 DAYS"
^DD(604,18.19,21,4,0)="F27. Emotionally (make you fell bad through harsh words)?"
^DD(604,18.19,"DT")="2960320"
^DD(604,18.195,0)="ABUSE EMOTIONALLY LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;30^Q"
^DD(604,18.195,21,0)="^^4^4^2970321^"
^DD(604,18.195,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.195,21,2,0)="Did any of these people (F18-F26) abuse you:"
^DD(604,18.195,21,3,0)="0 - No  1 - Yes  IN YOUR LIFE"
^DD(604,18.195,21,4,0)="F27. Emotionally (make you feel bad through harsh words)?"
^DD(604,18.195,"DT")="2960320"
^DD(604,18.21,0)="ABUSE PHYSICALLY L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;21^Q"
^DD(604,18.21,21,0)="^^4^4^2970321^"
^DD(604,18.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.21,21,2,0)="Did any of these people (F18-F26) abuse you:"
^DD(604,18.21,21,3,0)="0 - No  1 - Yes  PAST 30 DAYS"
^DD(604,18.21,21,4,0)="F28. Physically (cause you physical harm)? "
^DD(604,18.21,"DT")="2960320"
^DD(604,18.215,0)="ABUSE PHYSICALLY LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;33^Q"
^DD(604,18.215,21,0)="^^4^4^2970321^"
^DD(604,18.215,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.215,21,2,0)="Did any of these people (F18-F26) abuse you:"
^DD(604,18.215,21,3,0)="0 - No  1 - Yes  IN YOUR LIFE"
^DD(604,18.215,21,4,0)="F28. Physically (cause you physical harm)?"
^DD(604,18.215,"DT")="2960320"
^DD(604,18.22,0)="ABUSE SEXUALLY L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;22^Q"
^DD(604,18.22,21,0)="^^4^4^2970321^"
^DD(604,18.22,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.22,21,2,0)="Did any of these people (F18-F26) abuse you:"
^DD(604,18.22,21,3,0)="0 - No  1 - Yes  PAST 30 DAYS"
^DD(604,18.22,21,4,0)="F29. Sexually (force sexual advances or sexual acts)? "
^DD(604,18.22,"DT")="2960320"
^DD(604,18.225,0)="ABUSE SEXUALLY LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;34^Q"
^DD(604,18.225,21,0)="^^4^4^2970321^"
^DD(604,18.225,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.225,21,2,0)="Did any of these people (F18-F26) abuse you:"
^DD(604,18.225,21,3,0)="0 - No  1 - Yes  IN YOUR LIFE"
^DD(604,18.225,21,4,0)="F29. Sexually (force sexual advances or sexual acts)?"
^DD(604,18.225,"DT")="2960320"
^DD(604,18.23,0)="CONFLICT FAMILY P30D^F^^18;23^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,18.23,3)="Enter 0-30 days, X or N"
^DD(604,18.23,21,0)="^^3^3^2970321^"
^DD(604,18.23,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.23,21,2,0)="How many days in the past 30 have you had serious conflicts:"
^DD(604,18.23,21,3,0)="F30. with your family?"
^DD(604,18.23,"DT")="2960320"
^DD(604,18.24,0)="CONFILCT OTHER P30D^F^^18;24^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,18.24,3)="Enter 0-30 days, X or N"
^DD(604,18.24,21,0)="^^3^3^2970321^"
^DD(604,18.24,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.24,21,2,0)="How many days in the past 30 have you had serious conflicts:"
^DD(604,18.24,21,3,0)="F31. with other people? (excluding family)"
^DD(604,18.24,"DT")="2960320"
^DD(604,18.25,0)="TROUBLED FAMILY PROBLEMS^P604.45'^YSTX(604.45,^18;25^Q"
^DD(604,18.25,3)=""
^DD(604,18.25,21,0)="^^4^4^2970321^"
^DD(604,18.25,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.25,21,2,0)="FOR QUESTION F32 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,18.25,21,3,0)="How troubled or bothered have you been in the past 30 days by these:"
^DD(604,18.25,21,4,0)="F32. Family problems"
^DD(604,18.25,"DT")="2961003"
^DD(604,18.26,0)="TROUBLED SOCIAL PROBLEMS^P604.45'^YSTX(604.45,^18;26^Q"
^DD(604,18.26,3)=""
^DD(604,18.26,21,0)="^^4^4^2970321^"
^DD(604,18.26,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.26,21,2,0)="FOR QUESTION F33 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,18.26,21,3,0)="How troubled or bothered have you been in the past 30 days by these:"
^DD(604,18.26,21,4,0)="F33. Social problems"
^DD(604,18.26,"DT")="2961003"
^DD(604,18.27,0)="TREATMENT FAMILY PROBLEMS^P604.45'^YSTX(604.45,^18;27^Q"
^DD(604,18.27,3)=""
^DD(604,18.27,21,0)="^^4^4^2970321^"
^DD(604,18.27,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.27,21,2,0)="FOR QUESTION F34 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,18.27,21,3,0)="How important to you now is treatment or counseling for these:"
^DD(604,18.27,21,4,0)="F34. Family problems"
^DD(604,18.27,"DT")="2961003"
^DD(604,18.28,0)="TREATMENT SOCIAL PROBLEMS^P604.45'^YSTX(604.45,^18;28^Q"
^DD(604,18.28,3)=""
^DD(604,18.28,21,0)="^^4^4^2970321^"
^DD(604,18.28,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.28,21,2,0)="FOR QUESTION F34 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,18.28,21,3,0)="How troubled or bothered have you been in the past 30 days by these:"
^DD(604,18.28,21,4,0)="F34. Social problems"
^DD(604,18.28,"DT")="2961003"
^DD(604,18.29,0)="INTERVIEWER'S RATING FAMILY^F^^18;29^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,18.29,3)="Enter 0-9, X or N"
^DD(604,18.29,21,0)="^^3^3^2970321^"
^DD(604,18.29,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.29,21,2,0)="F36. How would you rate the patient's need for family and/or social"
^DD(604,18.29,21,3,0)="     counseling?"
^DD(604,18.29,"DT")="2970218"
^DD(604,18.31,0)="FAMILY/SOC CONFIDENCE MISREP^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;31^Q"
^DD(604,18.31,21,0)="^^2^2^2970321^"
^DD(604,18.31,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.31,21,2,0)="F37. Patient Misrepresentation?  0 - No  1 - Yes"
^DD(604,18.31,"DT")="2960228"
^DD(604,18.32,0)="FAMILY/SOC CONFIDENCE ITU^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^18;32^Q"
^DD(604,18.32,21,0)="^^2^2^2970321^"
^DD(604,18.32,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,18.32,21,2,0)="F38. Patient's inability to understand?  0 - No  1 - Yes"
^DD(604,18.32,"DT")="2960228"
^DD(604,18.5,0)="FAMILY/SOCIAL COMMENT^604.02^^18.5;0"
^DD(604,18.5,21,0)="^^1^1^2970322^^^^"
^DD(604,18.5,21,1,0)="This field contains comments about the patient's Family/Social relationships."
^DD(604,19.01,0)="TREATED IN HOSPITAL^F^^19;1^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,19.01,3)="Enter 0-99, X or N"
^DD(604,19.01,21,0)="^^3^3^2970321^"
^DD(604,19.01,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.01,21,2,0)="P1. How many times have you been treated for any psychological or emotional"
^DD(604,19.01,21,3,0)="    problems?  In a hospital"
^DD(604,19.01,"DT")="2960228"
^DD(604,19.02,0)="TREATED AS OPT OR PRIV PT^F^^19;2^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N.N)) X"
^DD(604,19.02,3)="Enter 0-99, X or N"
^DD(604,19.02,21,0)="^^3^3^2970321^"
^DD(604,19.02,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.02,21,2,0)="P1. How many times have you been treated for any psychological or emotional"
^DD(604,19.02,21,3,0)="    problems?  As an Opt. or Priv. patient"
^DD(604,19.02,"DT")="2960228"
^DD(604,19.03,0)="PENSION FOR PSY DIS^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;3^Q"
^DD(604,19.03,21,0)="^^2^2^2970321^"
^DD(604,19.03,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.03,21,2,0)="P2. Do you receive a pension for a pschiatric disability?  0 - No  1 - Yes"
^DD(604,19.03,"DT")="2960228"
^DD(604,19.04,0)="EXP DEPRESSION P30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;4^Q"
^DD(604,19.04,21,0)="^^5^5^2970322^^"
^DD(604,19.04,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.04,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.04,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.04,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.04,21,5,0)="P33. Experienced serious depression"
^DD(604,19.04,"DT")="2960228"
^DD(604,19.05,0)="EXP DEPRESSION LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;5^Q"
^DD(604,19.05,21,0)="^^5^5^2970321^"
^DD(604,19.05,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.05,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.05,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.05,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.05,21,5,0)="P33. Experienced serious depression"
^DD(604,19.05,"DT")="2960228"
^DD(604,19.06,0)="EXP ANXIETY P30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;6^Q"
^DD(604,19.06,21,0)="^^5^5^2970322^^^"
^DD(604,19.06,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.06,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.06,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.06,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.06,21,5,0)="P4. Experienced serious anxiety or tension"
^DD(604,19.06,"DT")="2961016"
^DD(604,19.07,0)="EXP ANXIETY LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;7^Q"
^DD(604,19.07,.1)="   Exp Anxiety Life"
^DD(604,19.07,21,0)="^^5^5^2970322^^"
^DD(604,19.07,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.07,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.07,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.07,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.07,21,5,0)="P4. Experienced serious anxiety or tension"
^DD(604,19.07,"DT")="2961016"
^DD(604,19.08,0)="EXP HALLUCINATIONS L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;8^Q"
^DD(604,19.08,21,0)="^^5^5^2970322^^"
^DD(604,19.08,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.08,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.08,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.08,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.08,21,5,0)="P5. Experienced Hallucinations"
^DD(604,19.08,"DT")="2960228"
^DD(604,19.09,0)="EXP HALLUCINATIONS LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;9^Q"
^DD(604,19.09,21,0)="^^5^5^2970322^^^"
^DD(604,19.09,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.09,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.09,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.09,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.09,21,5,0)="P5. Experienced Hallucinations"
^DD(604,19.09,"DT")="2960228"
^DD(604,19.11,0)="EXP UCR L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;11^Q"
^DD(604,19.11,21,0)="^^5^5^2970322^^^"
^DD(604,19.11,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.11,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.11,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.11,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.11,21,5,0)="P6. Experienced trouble understanding, concetrating or remembering"
^DD(604,19.11,"DT")="2960228"
^DD(604,19.12,0)="EXP UCR LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;12^Q"
^DD(604,19.12,21,0)="^^5^5^2970322^^"
^DD(604,19.12,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.12,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.12,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.12,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.12,21,5,0)="P6. Experienced trouble understanding, concetrating or remembering"
^DD(604,19.12,"DT")="2960228"
^DD(604,19.14,0)="EXP CONT VIO BEHAVIOR L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;14^Q"
^DD(604,19.14,21,0)="^^5^5^2970322^^"
^DD(604,19.14,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.14,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.14,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.14,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.14,21,5,0)="P7. Experienced trouble controlling violent behavior"
^DD(604,19.14,"DT")="2960228"
^DD(604,19.15,0)="EXP CONT VIO BEHAVIOR LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;15^Q"
^DD(604,19.15,21,0)="^^5^5^2970322^^"
^DD(604,19.15,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.15,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.15,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.15,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.15,21,5,0)="P7. Experienced trouble controlling violent behavior"
^DD(604,19.15,"DT")="2960228"
^DD(604,19.16,0)="EXP THOUGHTS SUICIDE L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;16^Q"
^DD(604,19.16,21,0)="^^5^5^2970322^^"
^DD(604,19.16,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.16,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.16,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.16,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.16,21,5,0)="P8. Experienced serious thoughts of suicide"
^DD(604,19.16,"DT")="2960228"
^DD(604,19.17,0)="EXP THOUGHTS SUCIDE LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;17^Q"
^DD(604,19.17,21,0)="^^5^5^2970322^^^"
^DD(604,19.17,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.17,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.17,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.17,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.17,21,5,0)="P8. Experienced serious thoughts of suicide"
^DD(604,19.17,"DT")="2960228"
^DD(604,19.18,0)="EXP ATTEMPTED SUICIDE L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;18^Q"
^DD(604,19.18,21,0)="^^5^5^2970322^^"
^DD(604,19.18,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.18,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.18,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.18,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.18,21,5,0)="P9. Attempted suicide"
^DD(604,19.18,"DT")="2960228"
^DD(604,19.19,0)="EXP ATTEMPTED SUICIDE LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;19^Q"
^DD(604,19.19,21,0)="^^5^5^2970322^^"
^DD(604,19.19,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.19,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.19,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.19,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.19,21,5,0)="P9. Attempted suicide"
^DD(604,19.19,"DT")="2960228"
^DD(604,19.21,0)="MEDS FOR PSY PROB L30D^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;21^Q"
^DD(604,19.21,21,0)="^^5^5^2970322^^"
^DD(604,19.21,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.21,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.21,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.21,21,4,0)="0 - No  1 - Yes    PAST 30 DAYS"
^DD(604,19.21,21,5,0)="P10. Been prescribed medication for any psychological emotional problem"
^DD(604,19.21,"DT")="2960228"
^DD(604,19.22,0)="MEDS FOR PSY PROB LIFE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;22^Q"
^DD(604,19.22,21,0)="^^5^5^2970322^^"
^DD(604,19.22,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.22,21,2,0)="Have you had a significant period, (that was not a direct result of"
^DD(604,19.22,21,3,0)="drug/alcohol use), in which you have:  "
^DD(604,19.22,21,4,0)="0 - No  1 - Yes    IN YOUR LIFE"
^DD(604,19.22,21,5,0)="P10. Been prescribed medication for any psychological emotional problem"
^DD(604,19.22,"DT")="2960228"
^DD(604,19.23,0)="DAYS EXP PROB L30D^F^^19;23^K:$L(X)>2!($L(X)<1)!'(X?1""X""!(X?1""N"")!((X?1N.N)&(X<31))) X"
^DD(604,19.23,3)="Enter 0-30 days, X or N"
^DD(604,19.23,4)=""
^DD(604,19.23,21,0)="^^3^3^2970322^"
^DD(604,19.23,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.23,21,2,0)="P11. How many days in the past 30 have you experienced these psychological or"
^DD(604,19.23,21,3,0)="     emotional problems?"
^DD(604,19.23,"DT")="2960228"
^DD(604,19.24,0)="PSY PROB L30D RATING^P604.45'^YSTX(604.45,^19;24^Q"
^DD(604,19.24,3)=""
^DD(604,19.24,21,0)="^^4^4^2970322^"
^DD(604,19.24,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.24,21,2,0)="FOR QUESTION P12 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,19.24,21,3,0)="P12. How much have you been troubled or bothered by these psychological or"
^DD(604,19.24,21,4,0)="     emotional problems in the past 30 days?"
^DD(604,19.24,"DT")="2961003"
^DD(604,19.25,0)="PSY TMT RATING^P604.45'^YSTX(604.45,^19;25^Q"
^DD(604,19.25,3)=""
^DD(604,19.25,21,0)="^^3^3^2970322^"
^DD(604,19.25,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.25,21,2,0)="FOR QUESTION P13 PLEASE ASK PATIENT TO USE THE PATIENT'S RATING SCALE"
^DD(604,19.25,21,3,0)="P13. How important to you now is treatment for these psychological problems?"
^DD(604,19.25,"DT")="2961003"
^DD(604,19.26,0)="INTV DEPRESSED/WITHDRAWN^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;26^Q"
^DD(604,19.26,21,0)="^^3^3^2970322^"
^DD(604,19.26,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.26,21,2,0)="At the time of the interview, is patient:  0 - No  1 - Yes"
^DD(604,19.26,21,3,0)="P14. Obviously depressed/withdrawn"
^DD(604,19.26,"DT")="2960228"
^DD(604,19.27,0)="INTV HOSTILE^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;27^Q"
^DD(604,19.27,21,0)="^^3^3^2970322^"
^DD(604,19.27,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.27,21,2,0)="At the time of the interview, is patient:  0 - No  1 - Yes"
^DD(604,19.27,21,3,0)="P15. Obviously hostile"
^DD(604,19.27,"DT")="2960228"
^DD(604,19.28,0)="INTV ANXIOUS/NERVOUS^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;28^Q"
^DD(604,19.28,21,0)="^^3^3^2970322^"
^DD(604,19.28,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.28,21,2,0)="At the time of the interview, is patient:  0 - No  1 - Yes"
^DD(604,19.28,21,3,0)="P16. Obviously anxious/nervous"
^DD(604,19.28,"DT")="2960228"
^DD(604,19.29,0)="INTV TROUBLE WITH RTTDPT^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;29^Q"
^DD(604,19.29,21,0)="^^3^3^2970322^"
^DD(604,19.29,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.29,21,2,0)="At the time of the interview, is patient:  0 - No  1 - Yes"
^DD(604,19.29,21,3,0)="P17. Having trouble with reality testing thought disorders, paranoid thinking"
^DD(604,19.29,"DT")="2960228"
^DD(604,19.31,0)="INTV TROUBLE CCR^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;31^Q"
^DD(604,19.31,21,0)="^^3^3^2970322^"
^DD(604,19.31,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.31,21,2,0)="At the time of the interview, is patient:  0 - No  1 - Yes"
^DD(604,19.31,21,3,0)="P18. Having trouble comprehending, concentrating, remembering."
^DD(604,19.31,"DT")="2960228"
^DD(604,19.32,0)="INTV SUICIDAL THOUGHTS^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;32^Q"
^DD(604,19.32,21,0)="^^3^3^2970322^"
^DD(604,19.32,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.32,21,2,0)="At the time of the interview, is patient:  0 - No  1 - Yes"
^DD(604,19.32,21,3,0)="P19. Having suicidal thoughts"
^DD(604,19.32,"DT")="2960228"
^DD(604,19.33,0)="INTERVIEWER'S RATING PSY^F^^19;33^K:$L(X)>1!($L(X)<1)!'(X?1""X""!(X?1""N"")!(X?1N)) X"
^DD(604,19.33,3)="Enter 0-9, X or N"
^DD(604,19.33,21,0)="^^3^3^2970322^"
^DD(604,19.33,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.33,21,2,0)="P20. How would you rate the patient's need for psychiatric/psychological"
^DD(604,19.33,21,3,0)="     treatment?"
^DD(604,19.33,"DT")="2970218"
^DD(604,19.34,0)="PSY PATIENT'S MISREPRESENTATIN^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;34^Q"
^DD(604,19.34,21,0)="^^2^2^2970322^"
^DD(604,19.34,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.34,21,2,0)="P21. Patient's misrepresentation?  0 - N0   1 - Yes"
^DD(604,19.34,"DT")="2960228"
^DD(604,19.35,0)="PSY PATIENT'S INABILITY TO UND^S^0:NO;1:YES;X:QUESTION NOT ANSWERED;N:QUESTION NOT APPLICABLE;^19;35^Q"
^DD(604,19.35,21,0)="^^2^2^2970322^"
^DD(604,19.35,21,1,0)="This is the Addiction Severity Index Fifth Edition interview question:"
^DD(604,19.35,21,2,0)="P22. Patient's inability to understand?  0 - No  1 - Yes"
^DD(604,19.35,"DT")="2960228"
^DD(604,19.5,0)="PSYCHIATRIC COMMENT^604.12^^19.5;0"
^DD(604,19.5,21,0)="^^1^1^2970322^"
^DD(604,19.5,21,1,0)="This field contains comments about the patient's Psychiatric Status."
^DD(604,19.5,"DT")="2961029"
^DD(604,187,0)="LEISURE TIME ISSUES^604.0187^^200;0"
^DD(604,187,21,0)="^^1^1^2970322^"
^DD(604,187,21,1,0)="This field contains comments about the patient's Leisure Time Issues."
^DD(604,188,0)="SPIRITUAL ISSUES^604.0188^^201;0"
^DD(604,188,21,0)="^^1^1^2970322^"
^DD(604,188,21,1,0)="This field contains comments about the patient's Spiritual Issues."
^DD(604,188,"DT")="2961025"
^DD(604,"B","    Other",2.02)="1"
^DD(604,"B","   Education Completed Months",9.02)="1"
^DD(604,"B","   Exp Anxiety Life",19.07)="1"
^DD(604,"B","   Last Hospitalization Months",8.025)="1"
^DD(604,"B","   Specify Occupation",9.145)="1"
^DD(604,"B","   Specify Pension",8.07)="1"
^DD(604,"B","ABSTINENT ENDED MONTHS AGO",11.02)=""
^DD(604,"B","ABSTINENT MONTHS",11.01)=""
^DD(604,"B","ABUSE EMOTIONALLY L30D",18.19)=""
^DD(604,"B","ABUSE EMOTIONALLY LIFE",18.195)=""
^DD(604,"B","ABUSE PHYSICALLY L30D",18.21)=""
^DD(604,"B","ABUSE PHYSICALLY LIFE",18.215)=""
^DD(604,"B","ABUSE SEXUALLY L30D",18.22)=""
^DD(604,"B","ABUSE SEXUALLY LIFE",18.225)=""
^DD(604,"B","ADDR LIVED MOS",1.202)=""
^DD(604,"B","ADDR LIVED YRS",1.201)=""
^DD(604,"B","ADDR OWN",1.203)=""
^DD(604,"B","ADM PROMPTED BY CJS",14.01)=""
^DD(604,"B","ADMISSION DATE",1)=""
^DD(604,"B","AGE",.044)=""
^DD(604,"B","ALCOHOL ABUSE LIFETIME",11.05)=""
^DD(604,"B","ALCOHOL ANY USE L30DAYS",10.01)=""
^DD(604,"B","ALCOHOL ANY USE LIFETIME YRS",10.02)=""
^DD(604,"B","ALCOHOL ANY USE ROA",10.03)=""
^DD(604,"B","ALCOHOL INTOX LIFETIME YRS",10.05)=""
^DD(604,"B","ALCOHOL INTOX ROA",10.06)=""
^DD(604,"B","ALCOHOL INTOX USE L30DAYS",10.04)=""
^DD(604,"B","AMPHETAMINES L30DAYS",10.28)=""
^DD(604,"B","AMPHETAMINES LIFETIME YRS",10.29)=""
^DD(604,"B","AMPHETAMINES ROA",10.31)=""
^DD(604,"B","ARRANGEMENTS LOT MOS",17.07)=""
^DD(604,"B","ARRANGEMENTS LOT YRS",17.06)=""
^DD(604,"B","ARRANGEMENTS SATISFACTION",17.08)=""
^DD(604,"B","ARSON",14.12)=""
^DD(604,"B","ASSAULT",14.11)=""
^DD(604,"B","AUTOMOBILE",9.09)=""
^DD(604,"B","AWAITING CTS",14.27)=""
^DD(604,"B","AWAITING TRANSMISSION",5.5)=""
^DD(604,"B","BARBITUATES L30DAYS",10.18)=""
^DD(604,"B","BARBITUATES LIFETIME YRS",10.19)=""
^DD(604,"B","BARBITUATES ROA",10.21)=""
^DD(604,"B","BECK TOTAL SCORE",3.03)=""
^DD(604,"B","BROTHER ALC",16.07)=""
^DD(604,"B","BROTHER DRUG",16.08)=""
^DD(604,"B","BROTHER PSYCH",16.09)=""
^DD(604,"B","BURGLARY LARCENY B & E",14.08)=""
^DD(604,"B","CANNABIS L30DAYS",10.32)=""
^DD(604,"B","CANNABIS LIFETIME YRS",10.33)=""
^DD(604,"B","CANNABIS ROA",10.34)=""
^DD(604,"B","CHRONIC MEDICAL SPECIFY",8.04)=""
^DD(604,"B","CHRONIC PROBLEM",8.03)=""
^DD(604,"B","CITY",.02114)=""
^DD(604,"B","CLASS",.04)=""
^DD(604,"B","CLOSE WITH BROTHERS/SISTERS",17.18)=""
^DD(604,"B","CLOSE WITH CHILDREN",17.21)=""
^DD(604,"B","CLOSE WITH FATHER",17.17)=""
^DD(604,"B","CLOSE WITH FRIENDS",17.22)=""
^DD(604,"B","CLOSE WITH MOTHER",17.16)=""
^DD(604,"B","CLOSE WITH SEX PARTNER/SPOUSE",17.19)=""
^DD(604,"B","COCAINE L30DAYS",10.25)=""
^DD(604,"B","COCAINE LIFETIME YRS",10.26)=""
^DD(604,"B","COCAINE ROA",10.27)=""
^DD(604,"B","CONFILCT OTHER P30D",18.24)=""
^DD(604,"B","CONFLICT FAMILY P30D",18.23)=""
^DD(604,"B","CONTACT CODE",.07)=""
^DD(604,"B","CONTEMPT OF COURT",14.17)=""
^DD(604,"B","CONTROLLED ENVIRONMENT",2.01)=""
^DD(604,"B","CONVICTIONS",14.19)=""
^DD(604,"B","CS ALCOHOL",.63)=""
^DD(604,"B","CS DRUG",.635)=""
^DD(604,"B","CS EMPLOYMENT",.62)=""
^DD(604,"B","CS FAMILY",.65)=""
^DD(604,"B","CS LEGAL",.64)=""
^DD(604,"B","CS MEDICAL",.61)=""
^DD(604,"B","CS PSYCHIATRIC",.66)=""
^DD(604,"B","DA10LIFE",10.33)="1"
^DD(604,"B","DA11LIFE",10.36)="1"
^DD(604,"B","DA12LIFE",10.39)="1"
^DD(604,"B","DA13LIFE",10.43)="1"
^DD(604,"B","DA1LIFE",10.02)="1"
^DD(604,"B","DA20.1",11.09)="1"
^DD(604,"B","DA20.2",11.11)="1"
^DD(604,"B","DA2LIFE",10.05)="1"
^DD(604,"B","DA3LIFE",10.08)="1"
^DD(604,"B","DA4LIFE",10.12)="1"
^DD(604,"B","DA5LIFE",10.16)="1"
^DD(604,"B","DA6LIFE",10.19)="1"
^DD(604,"B","DA7LIFE",10.23)="1"
^DD(604,"B","DA8LIFE",10.26)="1"
^DD(604,"B","DA9LIFE",10.29)="1"
^DD(604,"B","DATE OF BIRTH",.0203)=""
^DD(604,"B","DATE OF INTERVIEW",.05)=""
^DD(604,"B","DAYS EMP PROB LAST 30",9.31)=""
^DD(604,"B","DAYS EXP PROB L30D",19.23)=""
^DD(604,"B","DAYS L30D ALCOHOL PROB",11.14)=""
^DD(604,"B","DAYS L30D DRUG PROB",11.15)=""
^DD(604,"B","DAYS PAID LAST 30 DAYS",9.18)=""
^DD(604,"B","DAYS TMT D/A L30D OUTP",11.12)=""
^DD(604,"B","DCVPI",14.21)=""
^DD(604,"B","DETAINED/INCARCERATED L30D",14.29)=""
^DD(604,"B","DISABILITY PENSION",8.06)=""
^DD(604,"B","DOB",.0203)="1"
^DD(604,"B","DRIVING WHILE INTOXICATED",14.22)=""
^DD(604,"B","DRUG ABUSE LIFETIME",11.06)=""
^DD(604,"B","DRUG CHARGES",14.05)=""
^DD(604,"B","DRUG/ALCOHOL COMMENT",10.5)=""
^DD(604,"B","E SIGNATURE INTERVIEWER",.52)=""
^DD(604,"B","E SIGNATURE TRANSCRIBER",.71)=""
^DD(604,"B","E1 Education Completed Years",9.01)="1"
^DD(604,"B","E10 Usual Employment Pattern",9.17)="1"
^DD(604,"B","E11 Days Paid Last 30",9.18)="1"
^DD(604,"B","E18 Number of Dependents",9.29)="1"
^DD(604,"B","E2 Training Months",9.03)="1"
^DD(604,"B","E20 Troubled Past 30 Days",9.32)="1"
^DD(604,"B","E23 Patient Misrepresents",9.35)="1"
^DD(604,"B","E3 Profession, Trade, Skill",9.04)="1"
^DD(604,"B","E4 Valid Drivers License",9.06)="1"
^DD(604,"B","E5 Available Automobile",9.09)="1"
^DD(604,"B","E6 Longest Full-time Job Years",9.11)="1"
^DD(604,"B","E7 Usual or Last Occupation",9.14)="1"
^DD(604,"B","E8 Someone Contributes Support",9.15)="1"
^DD(604,"B","E9 Majority of Support",9.16)="1"
^DD(604,"B","ELECTRONICALLY SIGNED",.51)=""
^DD(604,"B","EMP COUNSELING IMPORTANT",9.33)=""
^DD(604,"B","EMPLOYMENT COMMENT",9.5)=""
^DD(604,"B","EMPLOYMENT INCOME",9.19)=""
^DD(604,"B","EMPLOYMENT PATTERN",9.17)=""
^DD(604,"B","EMPLOYMENT PROB 30 DAYS",9.32)=""
^DD(604,"B","ES12",9.19)="1"
^DD(604,"B","ES13",9.21)="1"
^DD(604,"B","ES14",9.22)="1"
^DD(604,"B","ES15",9.23)="1"
^DD(604,"B","ES16",9.24)="1"
^DD(604,"B","ES17",9.25)="1"
^DD(604,"B","EXP ANXIETY LIFE",19.07)=""
^DD(604,"B","EXP ANXIETY P30D",19.06)=""
^DD(604,"B","EXP ATTEMPTED SUICIDE L30D",19.18)=""
^DD(604,"B","EXP ATTEMPTED SUICIDE LIFE",19.19)=""
^DD(604,"B","EXP CONT VIO BEHAVIOR L30D",19.14)=""
^DD(604,"B","EXP CONT VIO BEHAVIOR LIFE",19.15)=""
^DD(604,"B","EXP DEPRESSION LIFE",19.05)=""
^DD(604,"B","EXP DEPRESSION P30D",19.04)=""
^DD(604,"B","EXP HALLUCINATIONS L30D",19.08)=""
^DD(604,"B","EXP HALLUCINATIONS LIFE",19.09)=""
^DD(604,"B","EXP THOUGHTS SUCIDE LIFE",19.17)=""
^DD(604,"B","EXP THOUGHTS SUICIDE L30D",19.16)=""
^DD(604,"B","EXP UCR L30D",19.11)=""
^DD(604,"B","EXP UCR LIFE",19.12)=""
^DD(604,"B","FAMILY HISTORY COMMENT",16.5)=""
^DD(604,"B","FAMILY/SOC CONFIDENCE ITU",18.32)=""
^DD(604,"B","FAMILY/SOC CONFIDENCE MISREP",18.31)=""
^DD(604,"B","FAMILY/SOCIAL COMMENT",18.5)=""
^DD(604,"B","FOR WHAT",14.28)=""
^DD(604,"B","FORGERY",14.06)=""
^DD(604,"B","FS AUNT ALC",16.01)=""
^DD(604,"B","FS AUNT DRUG",16.02)=""
^DD(604,"B","FS AUNT PSYCH",16.03)=""
^DD(604,"B","FS FATHER ALC",15.25)=""
^DD(604,"B","FS FATHER DRUG",15.26)=""
^DD(604,"B","FS FATHER PSYCH",15.27)=""
^DD(604,"B","FS GRANDFATHER ALC",15.22)=""
^DD(604,"B","FS GRANDFATHER DRUG",15.23)=""
^DD(604,"B","FS GRANDFATHER PSYCH",15.24)=""
^DD(604,"B","FS GRANDMOTHER ALC",15.18)=""
^DD(604,"B","FS GRANDMOTHER DRUG",15.19)=""
^DD(604,"B","FS GRANDMOTHER PSYCH",15.21)=""
^DD(604,"B","FS UNCLE ALC",16.04)=""
^DD(604,"B","FS UNCLE DRUG",16.05)=""
^DD(604,"B","FS UNCLE PSYCH",16.06)=""
^DD(604,"B","G10 Gender",.08)="1"
^DD(604,"B","G11 Interviewer",.09)="1"
^DD(604,"B","G12 Special",.11)="1"
^DD(604,"B","G15 Residence Owned",1.203)="1"
^DD(604,"B","G17 Race",.16)="1"
^DD(604,"B","G18 Religious Preference",.17)="1"
^DD(604,"B","G19 Controlled Environment",2.01)="1"
^DD(604,"B","G20 How many Days",2.03)="1"
^DD(604,"B","G5 Date of Interview",.05)="1"
^DD(604,"B","G6 Time Begun",.051)="1"
^DD(604,"B","G7 Time Ended",.052)="1"
^DD(604,"B","G8 Class",.04)="1"
^DD(604,"B","G9 Contact Code",.07)="1"
^DD(604,"B","GENDER",.08)=""
^DD(604,"B","GENERAL COMMENT",.6)=""
^DD(604,"B","HALLUCINOGENS L30DAYS",10.35)=""
^DD(604,"B","HALLUCINOGENS LIFETIME YRS",10.36)=""
^DD(604,"B","HALLUCINOGENS ROA",10.37)=""
^DD(604,"B","HEROIN L30DAYS",10.07)=""
^DD(604,"B","HEROIN LIFETIME YRS",10.08)=""
^DD(604,"B","HEROIN ROA",10.09)=""
^DD(604,"B","HOMICIDE MANSLAUGHTER",14.15)=""
^DD(604,"B","HOSPITALIZATIONS",8.01)=""
^DD(604,"B","HOW MANY CLOSE FRIENDS",17.15)=""
^DD(604,"B","HOW MANY DAYS",2.03)=""
^DD(604,"B","ID NUMBER",.01)=""
^DD(604,"B","ILLEGAL ACTIVITIES/PROFIT L30D",14.31)=""
^DD(604,"B","ILLEGAL INCOME",9.25)=""
^DD(604,"B","IMPORTANCE MEDICAL TREATMENT",8.11)=""
^DD(604,"B","INCARCERATION CODE",14.265)=""
^DD(604,"B","INHALANTS L30DAYS",10.38)=""
^DD(604,"B","INHALANTS LIFETIME YRS",10.39)=""
^DD(604,"B","INHALANTS ROA",10.41)=""
^DD(604,"B","INTERVIEWER",.09)=""
^DD(604,"B","INTERVIEWER'S RATING ALCOHOL",11.18)=""
^DD(604,"B","INTERVIEWER'S RATING DRUG",11.185)=""
^DD(604,"B","INTERVIEWER'S RATING EMPL",9.34)=""
^DD(604,"B","INTERVIEWER'S RATING FAMILY",18.29)=""
^DD(604,"B","INTERVIEWER'S RATING LEGAL",14.34)=""
^DD(604,"B","INTERVIEWER'S RATING MEDICAL",8.12)=""
^DD(604,"B","INTERVIEWER'S RATING PSY",19.33)=""
^DD(604,"B","INTV ANXIOUS/NERVOUS",19.28)=""
^DD(604,"B","INTV DEPRESSED/WITHDRAWN",19.26)=""
^DD(604,"B","INTV HOSTILE",19.27)=""
^DD(604,"B","INTV SUICIDAL THOUGHTS",19.32)=""
^DD(604,"B","INTV TROUBLE CCR",19.31)=""
^DD(604,"B","INTV TROUBLE WITH RTTDPT",19.29)=""
^DD(604,"B","LAST HOSPITALIZATION MOS",8.025)=""
^DD(604,"B","LAST HOSPITALIZATION YRS",8.02)=""
^DD(604,"B","LAST INCARCERATED FOR",14.26)=""
^DD(604,"B","LEGAL COMMENT",14.5)=""
^DD(604,"B","LEGAL IMPORTANCE SCALE",14.33)=""
^DD(604,"B","LEGAL PROB SCALE",14.32)=""
^DD(604,"B","LEISURE TIME ISSUES",187)=""
^DD(604,"B","LIVE W/ ANYONE W/ ALC PROB",17.09)=""
^DD(604,"B","LIVE W/ ANYONE W/ DRUG PROB",17.11)=""
^DD(604,"B","LONGEST FULL-TIME JOB MOS",9.12)=""
^DD(604,"B","LONGEST FULL-TIME JOB YRS",9.11)=""
^DD(604,"B","M1 Hospitalizations",8.01)="1"
^DD(604,"B","M10 Patient Misrepresents",8.14)="1"
^DD(604,"B","M2 Last Hospitalization Years",8.02)="1"
^DD(604,"B","M3 Chronic Medical Problems",8.03)="1"
^DD(604,"B","M4 Prescribed Medications",8.05)="1"
^DD(604,"B","M5 Disability Pension",8.06)="1"
^DD(604,"B","M7 Patient bothered",8.09)="1"
^DD(604,"B","MAJOR DRIVING VIOLATIONS",14.23)=""
^DD(604,"B","MAJOR PROBLEM",10.45)=""
^DD(604,"B","MAJORITY OF SUPPORT",9.16)=""
^DD(604,"B","MARITIAL STATUS",17.01)=""
^DD(604,"B","MARITIAL STATUS MOS",17.03)=""
^DD(604,"B","MARITIAL STATUS YRS",17.02)=""
^DD(604,"B","MATE FAMILY FRIENDS INCOME",9.24)=""
^DD(604,"B","MATE FAMILY FRIENDS SPECIFY",9.245)=""
^DD(604,"B","MEDICAL COMMENT",8.5)=""
^DD(604,"B","MEDICATION",8.05)=""
^DD(604,"B","MEDS FOR PSY PROB L30D",19.21)=""
^DD(604,"B","MEDS FOR PSY PROB LIFE",19.22)=""
^DD(604,"B","METHADONE L30DAYS",10.11)=""
^DD(604,"B","METHADONE LIFETIME YRS",10.12)=""
^DD(604,"B","METHADONE ROA",10.14)=""
^DD(604,"B","MONTH INCARCERATED LIFETIME",14.24)=""
^DD(604,"B","MONTHS EDUCATION COMPLETED",9.02)=""
^DD(604,"B","MONTHS LAST INCARCERATION",14.25)=""
^DD(604,"B","MONTHS TRAINING OR TECH",9.03)=""
^DD(604,"B","MS AUNT ALC",15.11)=""
^DD(604,"B","MS AUNT DRUG",15.12)=""
^DD(604,"B","MS AUNT PSYCH",15.14)=""
^DD(604,"B","MS GRANDFATHER ALC",15.04)=""
^DD(604,"B","MS GRANDFATHER DRUG",15.05)=""
^DD(604,"B","MS GRANDFATHER PSYCH",15.06)=""
^DD(604,"B","MS GRANDMOTHER ALC",15.01)=""
^DD(604,"B","MS GRANDMOTHER DRUG",15.02)=""
^DD(604,"B","MS GRANDMOTHER PSYCH",15.03)=""
^DD(604,"B","MS MOTHER ALC",15.07)=""
^DD(604,"B","MS MOTHER DRUG",15.08)=""
^DD(604,"B","MS MOTHER PSYCH",15.09)=""
^DD(604,"B","MS UNCLE ALC",15.15)=""
^DD(604,"B","MS UNCLE DRUG",15.16)=""
^DD(604,"B","MS UNCLE PSYCH",15.17)=""
^DD(604,"B","MT1PD L30DAYS",10.42)=""
^DD(604,"B","MT1PD LIFETIME YRS",10.43)=""
^DD(604,"B","NAME",.02)=""
^DD(604,"B","NUMBER OF DEPENDENTS",9.29)=""
^DD(604,"B","ON PROBATION OR PAROLE",14.02)=""
^DD(604,"B","OTHER",2.02)=""
^DD(604,"B","OTHER CHARGES",14.18)=""
^DD(604,"B","OTHER OPIATES/ANA L30DAYS",10.15)=""
^DD(604,"B","OTHER OPIATES/ANA LIFETIME YRS",10.16)=""
^DD(604,"B","OTHER OPIATES/ANA ROA",10.17)=""
^DD(604,"B","OTHER S H T L30DAYS",10.22)=""
^DD(604,"B","OTHER S H T LIFETIME YRS",10.23)=""
^DD(604,"B","OTHER S H T ROA",10.24)=""
^DD(604,"B","PAROLE/PROBATION VIOLATIONS",14.04)=""
^DD(604,"B","PATIENT INAB UNDSTND D/A",11.21)=""
^DD(604,"B","PATIENT INAB UNDSTND EMP",9.36)=""
^DD(604,"B","PATIENT INAB UNDSTND LEGAL",14.36)=""
^DD(604,"B","PATIENT INAB UNDSTND MEDICAL",8.15)=""
^DD(604,"B","PATIENT MISREP D/A",11.19)=""
^DD(604,"B","PATIENT MISREP EMP",9.35)=""
^DD(604,"B","PATIENT MISREP LEGAL",14.35)=""
^DD(604,"B","PATIENT MISREP MEDICAL",8.14)=""
^DD(604,"B","PENSION",9.23)=""
^DD(604,"B","PENSION FOR PSY DIS",19.03)=""
^DD(604,"B","PERSON ALLOWED TO EDIT",.81)=""
^DD(604,"B","PHONE",.02131)=""
^DD(604,"B","PROBLEM PAST 30 DAYS",8.08)=""
^DD(604,"B","PROBLEM W/ BRO/SIS LIFE",18.06)=""
^DD(604,"B","PROBLEM W/ BRO/SIS P30D",18.05)=""
^DD(604,"B","PROBLEM W/ CF LIFE",18.16)=""
^DD(604,"B","PROBLEM W/ CF P30D",18.15)=""
^DD(604,"B","PROBLEM W/ CHILDREN LIFE",18.11)=""
^DD(604,"B","PROBLEM W/ CHILDREN P30D",18.09)=""
^DD(604,"B","PROBLEM W/ FATHER LIFE",18.04)=""
^DD(604,"B","PROBLEM W/ FATHER P30D",18.03)=""
^DD(604,"B","PROBLEM W/ MOTHER LIFE",18.02)=""
^DD(604,"B","PROBLEM W/ MOTHER P30D",18.01)=""
^DD(604,"B","PROBLEM W/ NEIGHBORS L30D",18.17)=""
^DD(604,"B","PROBLEM W/ NEIGHBORS LIFE",18.18)=""
^DD(604,"B","PROBLEM W/ OSF LIFE",18.14)=""
^DD(604,"B","PROBLEM W/ OSF P30D",18.12)=""
^DD(604,"B","PROBLEM W/ OSF SPECIFY",18.125)=""
^DD(604,"B","PROBLEM W/ SEX PARTNER/SP LIFE",18.08)=""
^DD(604,"B","PROBLEM W/ SEX PARTNER/SP P30D",18.07)=""
^DD(604,"B","PROBLEM W/CO WKRS LIFE",18.186)=""
^DD(604,"B","PROBLEM W/CO WKRS P30D",18.185)=""
^DD(604,"B","PROFESSION TRADE OR SKILL",9.04)=""
^DD(604,"B","PROGRAM",2)=""
^DD(604,"B","PROGRESS NOTE POINTER",.53)=""
^DD(604,"B","PROSTITUTION",14.16)=""
^DD(604,"B","PSY PATIENT'S INABILITY TO UND",19.35)=""
^DD(604,"B","PSY PATIENT'S MISREPRESENTATIN",19.34)=""
^DD(604,"B","PSY PROB L30D RATING",19.24)=""
^DD(604,"B","PSY TMT RATING",19.25)=""
^DD(604,"B","PSYCHIATRIC COMMENT",19.5)=""
^DD(604,"B","RACE",.16)=""
^DD(604,"B","RAPE",14.14)=""
^DD(604,"B","RECORD COMPLETED DATE TIME",.125)=""
^DD(604,"B","RECORD INITIALIZED BY (TRANS)",.14)=""
^DD(604,"B","RECORD INITIALIZED DATE TIME",.12)=""
^DD(604,"B","RELIGIOUS PREFERENCE",.17)=""
^DD(604,"B","RESOLVED ADM DATE",.033)=""
^DD(604,"B","ROBBERY",14.09)=""
^DD(604,"B","SATISFIED SPENDING FREE TIME",17.14)=""
^DD(604,"B","SATISFIED WITH SITUATION",17.04)=""
^DD(604,"B","SCALE MED PROBLEM PAST 30D",8.09)=""
^DD(604,"B","SHIPLEY C.Q.",3.01)=""
^DD(604,"B","SHIPLEY I.Q.",3.02)=""
^DD(604,"B","SHOPLIFTING/VANDALISM",14.03)=""
^DD(604,"B","SISTER ALC",16.11)=""
^DD(604,"B","SISTER DRUG",16.12)=""
^DD(604,"B","SISTER PSYCH",16.14)=""
^DD(604,"B","SPECIAL",.11)=""
^DD(604,"B","SPECIFY PENSION",8.07)=""
^DD(604,"B","SPECIFY PTS",9.05)=""
^DD(604,"B","SPEND FREE TIME WITH",17.12)=""
^DD(604,"B","SPENT L30D ALCOHOL",11.09)=""
^DD(604,"B","SPENT L30D DRUGS",11.11)=""
^DD(604,"B","SPIRITUAL ISSUES",188)=""
^DD(604,"B","SSN",.0209)=""
^DD(604,"B","STATE",.02115)=""
^DD(604,"B","STREET LINE 1",.02111)=""
^DD(604,"B","STREET LINE 2",.02112)=""
^DD(604,"B","STREET LINE 3",.02113)=""
^DD(604,"B","SUPPORT",9.15)=""
^DD(604,"B","TIME INTERVIEW BEGAN",.051)=""
^DD(604,"B","TIME INTERVIEW ENDED",.052)=""
^DD(604,"B","TIMES DETOX ONLY ALCOHOL",11.07)=""
^DD(604,"B","TIMES DETOX ONLY DRUG",11.08)=""
^DD(604,"B","TIMES HAD ALCOHOL D.T.'S",11.03)=""
^DD(604,"B","TIMES OVERDOSED ON DRUGS",11.04)=""
^DD(604,"B","TMT IMPORTANT ALCOHOL",11.165)=""
^DD(604,"B","TMT IMPORTANT DRUG",11.175)=""
^DD(604,"B","TRANSMISSION DATE",5.6)=""
^DD(604,"B","TREATED AS OPT OR PRIV PT",19.02)=""
^DD(604,"B","TREATED IN HOSPITAL",19.01)=""
^DD(604,"B","TREATMENT FAMILY PROBLEMS",18.27)=""
^DD(604,"B","TREATMENT SOCIAL PROBLEMS",18.28)=""
^DD(604,"B","TROUBLED ALCOHOL L30D",11.16)=""
^DD(604,"B","TROUBLED DRUG L30D",11.17)=""
^DD(604,"B","TROUBLED FAMILY PROBLEMS",18.25)=""
^DD(604,"B","TROUBLED SOCIAL PROBLEMS",18.26)=""
^DD(604,"B","UNEMPLOYMENT COMPENSATION",9.21)=""
^DD(604,"B","USUAL LIVING ARGMENTS P3Y",17.05)=""
^DD(604,"B","USUAL OR LAST OCC TEXT",9.145)=""
^DD(604,"B","USUAL OR LAST OCCUPATION",9.14)=""
^DD(604,"B","VALID DRIVERS LICENSE",9.06)=""
^DD(604,"B","WEAPONS OFFENSE",14.07)=""
^DD(604,"B","WELFARE INCOME",9.22)=""
^DD(604,"B","YEARS EDUCATION COMPLETED",9.01)=""
^DD(604,"B","ZIP",.02116)=""
^DD(604,"B","ZIP+4",.021112)=""
^DD(604,"GL",0,1,.01)=""
^DD(604,"GL",0,2,.02)=""
^DD(604,"GL",0,4,.04)=""
^DD(604,"GL",0,5,.05)=""
^DD(604,"GL",0,7,.07)=""
^DD(604,"GL",0,8,.08)=""
^DD(604,"GL",0,9,.09)=""
^DD(604,"GL",0,10,1)=""
^DD(604,"GL",0,11,.11)=""
^DD(604,"GL",0,12,.12)=""
^DD(604,"GL",0,13,.051)=""
^DD(604,"GL",0,14,.14)=""
^DD(604,"GL",0,15,2)=""
^DD(604,"GL",0,16,.16)=""
^DD(604,"GL",0,17,.17)=""
^DD(604,"GL",.5,1,.51)=""
^DD(604,"GL",.5,2,.52)=""
^DD(604,"GL",.5,3,.53)=""
^DD(604,"GL",.6,0,.6)=""
^DD(604,"GL",.7,1,.71)=""
^DD(604,"GL",.8,1,.81)=""
^DD(604,"GL",1.2,1,1.201)=""
^DD(604,"GL",1.2,2,1.202)=""
^DD(604,"GL",1.2,3,1.203)=""
^DD(604,"GL",2,1,2.01)=""
^DD(604,"GL",2,2,2.02)=""
^DD(604,"GL",2,3,2.03)=""
^DD(604,"GL",2,4,.052)=""
^DD(604,"GL",3,1,3.01)=""
^DD(604,"GL",3,2,3.02)=""
^DD(604,"GL",3,3,3.03)=""
^DD(604,"GL",5,3,5.5)=""
^DD(604,"GL",5,4,5.6)=""
^DD(604,"GL",8,1,8.01)=""
^DD(604,"GL",8,2,8.02)=""
^DD(604,"GL",8,3,8.03)=""
^DD(604,"GL",8,4,8.04)=""
^DD(604,"GL",8,5,8.05)=""
^DD(604,"GL",8,6,8.06)=""
^DD(604,"GL",8,7,8.07)=""
^DD(604,"GL",8,8,8.08)=""
^DD(604,"GL",8,9,8.09)=""
^DD(604,"GL",8,10,8.025)=""
^DD(604,"GL",8,11,8.11)=""
^DD(604,"GL",8,12,8.12)=""
^DD(604,"GL",8,14,8.14)=""
^DD(604,"GL",8,15,8.15)=""
^DD(604,"GL",8.5,0,8.5)=""
^DD(604,"GL",9,1,9.01)=""
^DD(604,"GL",9,2,9.02)=""
^DD(604,"GL",9,3,9.03)=""
^DD(604,"GL",9,4,9.04)=""
^DD(604,"GL",9,5,9.05)=""
^DD(604,"GL",9,6,9.06)=""
^DD(604,"GL",9,9,9.09)=""
^DD(604,"GL",9,10,9.145)=""
^DD(604,"GL",9,11,9.11)=""
^DD(604,"GL",9,12,9.12)=""
^DD(604,"GL",9,14,9.14)=""
^DD(604,"GL",9,15,9.15)=""
^DD(604,"GL",9,16,9.16)=""
^DD(604,"GL",9,17,9.17)=""
^DD(604,"GL",9,18,9.18)=""
^DD(604,"GL",9,19,9.19)=""
^DD(604,"GL",9,21,9.21)=""
^DD(604,"GL",9,22,9.22)=""
^DD(604,"GL",9,23,9.23)=""
^DD(604,"GL",9,24,9.24)=""
^DD(604,"GL",9,25,9.25)=""
^DD(604,"GL",9,29,9.29)=""
^DD(604,"GL",9,31,9.31)=""
^DD(604,"GL",9,32,9.32)=""
^DD(604,"GL",9,33,9.33)=""
^DD(604,"GL",9,34,9.34)=""
^DD(604,"GL",9,35,9.35)=""
^DD(604,"GL",9,36,9.36)=""
^DD(604,"GL",9.5,0,9.5)=""
^DD(604,"GL",10,1,10.01)=""
^DD(604,"GL",10,2,10.02)=""
^DD(604,"GL",10,3,10.03)=""
^DD(604,"GL",10,4,10.04)=""
^DD(604,"GL",10,5,10.05)=""
^DD(604,"GL",10,6,10.06)=""
^DD(604,"GL",10,7,10.07)=""
^DD(604,"GL",10,8,10.08)=""
^DD(604,"GL",10,9,10.09)=""
^DD(604,"GL",10,11,10.11)=""
^DD(604,"GL",10,12,10.12)=""
^DD(604,"GL",10,14,10.14)=""
^DD(604,"GL",10,15,10.15)=""
^DD(604,"GL",10,16,10.16)=""
^DD(604,"GL",10,17,10.17)=""
^DD(604,"GL",10,18,10.18)=""
^DD(604,"GL",10,19,10.19)=""
^DD(604,"GL",10,21,10.21)=""
^DD(604,"GL",10,22,10.22)=""
^DD(604,"GL",10,23,10.23)=""
^DD(604,"GL",10,24,10.24)=""
^DD(604,"GL",10,25,10.25)=""
^DD(604,"GL",10,26,10.26)=""
^DD(604,"GL",10,27,10.27)=""
^DD(604,"GL",10,28,10.28)=""
^DD(604,"GL",10,29,10.29)=""
^DD(604,"GL",10,31,10.31)=""
^DD(604,"GL",10,32,10.32)=""
^DD(604,"GL",10,33,10.33)=""
^DD(604,"GL",10,34,10.34)=""
^DD(604,"GL",10,35,10.35)=""
^DD(604,"GL",10,36,10.36)=""
^DD(604,"GL",10,37,10.37)=""
^DD(604,"GL",10,38,10.38)=""
^DD(604,"GL",10,39,10.39)=""
^DD(604,"GL",10,41,10.41)=""
^DD(604,"GL",10,42,10.42)=""
^DD(604,"GL",10,43,10.43)=""
^DD(604,"GL",10,45,10.45)=""
^DD(604,"GL",10.5,0,10.5)=""
^DD(604,"GL",11,1,11.01)=""
^DD(604,"GL",11,2,11.02)=""
^DD(604,"GL",11,3,11.03)=""
^DD(604,"GL",11,4,11.04)=""
^DD(604,"GL",11,5,11.05)=""
^DD(604,"GL",11,6,11.06)=""
^DD(604,"GL",11,7,11.07)=""
^DD(604,"GL",11,8,11.08)=""
^DD(604,"GL",11,9,11.09)=""
^DD(604,"GL",11,10,.033)=""
^DD(604,"GL",11,11,11.11)=""
^DD(604,"GL",11,12,11.12)=""
^DD(604,"GL",11,13,11.185)=""
^DD(604,"GL",11,14,11.14)=""
^DD(604,"GL",11,15,11.15)=""
^DD(604,"GL",11,16,11.16)=""
^DD(604,"GL",11,17,11.17)=""
^DD(604,"GL",11,18,11.18)=""
^DD(604,"GL",11,19,11.19)=""
^DD(604,"GL",11,20,9.245)=""
^DD(604,"GL",11,21,11.21)=""
^DD(604,"GL",11,24,11.165)=""
^DD(604,"GL",11,25,11.175)=""
^DD(604,"GL",12,1,.125)=""
^DD(604,"GL",14,1,14.01)=""
^DD(604,"GL",14,2,14.02)=""
^DD(604,"GL",14,3,14.03)=""
^DD(604,"GL",14,4,14.04)=""
^DD(604,"GL",14,5,14.05)=""
^DD(604,"GL",14,6,14.06)=""
^DD(604,"GL",14,7,14.07)=""
^DD(604,"GL",14,8,14.08)=""
^DD(604,"GL",14,9,14.09)=""
^DD(604,"GL",14,11,14.11)=""
^DD(604,"GL",14,12,14.12)=""
^DD(604,"GL",14,14,14.14)=""
^DD(604,"GL",14,15,14.15)=""
^DD(604,"GL",14,16,14.16)=""
^DD(604,"GL",14,17,14.17)=""
^DD(604,"GL",14,18,14.18)=""
^DD(604,"GL",14,19,14.19)=""
^DD(604,"GL",14,21,14.21)=""
^DD(604,"GL",14,22,14.22)=""
^DD(604,"GL",14,23,14.23)=""
^DD(604,"GL",14,24,14.24)=""
^DD(604,"GL",14,25,14.25)=""
^DD(604,"GL",14,26,14.26)=""
^DD(604,"GL",14,27,14.27)=""
^DD(604,"GL",14,28,14.28)=""
^DD(604,"GL",14,29,14.29)=""
^DD(604,"GL",14,31,14.31)=""
^DD(604,"GL",14,32,14.32)=""
^DD(604,"GL",14,33,14.33)=""
^DD(604,"GL",14,34,14.34)=""
^DD(604,"GL",14,35,14.35)=""
^DD(604,"GL",14,36,14.36)=""
^DD(604,"GL",14.5,0,14.5)=""
^DD(604,"GL",15,1,15.01)=""
^DD(604,"GL",15,2,15.02)=""
^DD(604,"GL",15,3,15.03)=""
^DD(604,"GL",15,4,15.04)=""
^DD(604,"GL",15,5,15.05)=""
^DD(604,"GL",15,6,15.06)=""
^DD(604,"GL",15,7,15.07)=""
^DD(604,"GL",15,8,15.08)=""
^DD(604,"GL",15,9,15.09)=""
^DD(604,"GL",15,11,15.11)=""
^DD(604,"GL",15,12,15.12)=""
^DD(604,"GL",15,14,15.14)=""
^DD(604,"GL",15,15,15.15)=""
^DD(604,"GL",15,16,15.16)=""
^DD(604,"GL",15,17,15.17)=""
^DD(604,"GL",15,18,15.18)=""
^DD(604,"GL",15,19,15.19)=""
^DD(604,"GL",15,21,15.21)=""
^DD(604,"GL",15,22,15.22)=""
^DD(604,"GL",15,23,15.23)=""
^DD(604,"GL",15,24,15.24)=""
^DD(604,"GL",15,25,15.25)=""
^DD(604,"GL",15,26,15.26)=""
^DD(604,"GL",15,27,15.27)=""
^DD(604,"GL",16,1,16.01)=""
^DD(604,"GL",16,2,16.02)=""
^DD(604,"GL",16,3,16.03)=""
^DD(604,"GL",16,4,16.04)=""
^DD(604,"GL",16,5,16.05)=""
^DD(604,"GL",16,6,16.06)=""
^DD(604,"GL",16,7,16.07)=""
^DD(604,"GL",16,8,16.08)=""
^DD(604,"GL",16,9,16.09)=""
^DD(604,"GL",16,11,16.11)=""
^DD(604,"GL",16,12,16.12)=""
^DD(604,"GL",16,14,16.14)=""
^DD(604,"GL",16.5,0,16.5)=""
^DD(604,"GL",17,1,17.01)=""
^DD(604,"GL",17,2,17.02)=""
^DD(604,"GL",17,3,17.03)=""
^DD(604,"GL",17,4,17.04)=""
^DD(604,"GL",17,5,17.05)=""
^DD(604,"GL",17,6,17.06)=""
^DD(604,"GL",17,7,17.07)=""
^DD(604,"GL",17,8,17.08)=""
^DD(604,"GL",17,9,17.09)=""
^DD(604,"GL",17,11,17.11)=""
^DD(604,"GL",17,12,17.12)=""
^DD(604,"GL",17,14,17.14)=""
^DD(604,"GL",17,15,17.15)=""
^DD(604,"GL",17,16,17.16)=""
^DD(604,"GL",17,17,17.17)=""
^DD(604,"GL",17,18,17.18)=""
^DD(604,"GL",17,19,17.19)=""
^DD(604,"GL",17,21,17.21)=""
^DD(604,"GL",17,22,17.22)=""
^DD(604,"GL",18,1,18.01)=""
^DD(604,"GL",18,2,18.02)=""
^DD(604,"GL",18,3,18.03)=""
^DD(604,"GL",18,4,18.04)=""
^DD(604,"GL",18,5,18.05)=""
^DD(604,"GL",18,6,18.06)=""
^DD(604,"GL",18,7,18.07)=""
^DD(604,"GL",18,8,18.08)=""
^DD(604,"GL",18,9,18.09)=""
^DD(604,"GL",18,10,18.125)=""
^DD(604,"GL",18,11,18.11)=""
^DD(604,"GL",18,12,18.12)=""
^DD(604,"GL",18,13,18.185)=""
^DD(604,"GL",18,14,18.14)=""
^DD(604,"GL",18,15,18.15)=""
^DD(604,"GL",18,16,18.16)=""
^DD(604,"GL",18,17,18.17)=""
^DD(604,"GL",18,18,18.18)=""
^DD(604,"GL",18,19,18.19)=""
^DD(604,"GL",18,20,18.186)=""
^DD(604,"GL",18,21,18.21)=""
^DD(604,"GL",18,22,18.22)=""
^DD(604,"GL",18,23,18.23)=""
^DD(604,"GL",18,24,18.24)=""
^DD(604,"GL",18,25,18.25)=""
^DD(604,"GL",18,26,18.26)=""
^DD(604,"GL",18,27,18.27)=""
^DD(604,"GL",18,28,18.28)=""
^DD(604,"GL",18,29,18.29)=""
^DD(604,"GL",18,30,18.195)=""
^DD(604,"GL",18,31,18.31)=""
^DD(604,"GL",18,32,18.32)=""
^DD(604,"GL",18,33,18.215)=""
^DD(604,"GL",18,34,18.225)=""
^DD(604,"GL",18.5,0,18.5)=""
^DD(604,"GL",19,1,19.01)=""
^DD(604,"GL",19,2,19.02)=""
^DD(604,"GL",19,3,19.03)=""
^DD(604,"GL",19,4,19.04)=""
^DD(604,"GL",19,5,19.05)=""
^DD(604,"GL",19,6,19.06)=""
^DD(604,"GL",19,7,19.07)=""
^DD(604,"GL",19,8,19.08)=""
^DD(604,"GL",19,9,19.09)=""
^DD(604,"GL",19,11,19.11)=""
^DD(604,"GL",19,12,19.12)=""
^DD(604,"GL",19,14,19.14)=""
^DD(604,"GL",19,15,19.15)=""
^DD(604,"GL",19,16,19.16)=""
^DD(604,"GL",19,17,19.17)=""
^DD(604,"GL",19,18,19.18)=""
^DD(604,"GL",19,19,19.19)=""
^DD(604,"GL",19,21,19.21)=""
^DD(604,"GL",19,22,19.22)=""
^DD(604,"GL",19,23,19.23)=""
^DD(604,"GL",19,24,19.24)=""
^DD(604,"GL",19,25,19.25)=""
^DD(604,"GL",19,26,19.26)=""
^DD(604,"GL",19,27,19.27)=""
^DD(604,"GL",19,28,19.28)=""
^DD(604,"GL",19,29,19.29)=""
^DD(604,"GL",19,31,19.31)=""
^DD(604,"GL",19,32,19.32)=""
^DD(604,"GL",19,33,19.33)=""
^DD(604,"GL",19,34,19.34)=""
^DD(604,"GL",19,35,19.35)=""
^DD(604,"GL",19.5,0,19.5)=""
^DD(604,"GL",200,0,187)=""
^DD(604,"GL",201,0,188)=""
^DD(604,"IX",.01)=""
^DD(604,"IX",.02)=""
^DD(604,"IX",.04)=""
^DD(604,"IX",.05)=""
^DD(604,"IX",.81)=""
^DD(604,"IX",5.5)=""
^DD(604,"RQ",.01)=""
^DD(604,"SB",604.01,.6)=""
^DD(604,"SB",604.0187,187)=""
^DD(604,"SB",604.0188,188)=""
^DD(604,"SB",604.02,18.5)=""
^DD(604,"SB",604.03,8.5)=""
^DD(604,"SB",604.05,9.5)=""
^DD(604,"SB",604.06,10.5)=""
^DD(604,"SB",604.09,14.5)=""
^DD(604,"SB",604.11,16.5)=""
^DD(604,"SB",604.12,19.5)=""
^DD(604.01,0)="GENERAL COMMENT SUB-FIELD^^.01^1"
^DD(604.01,0,"NM","GENERAL COMMENT")=""
^DD(604.01,0,"UP")="604"
^DD(604.01,.01,0)="GENERAL COMMENT^W^^0;1^Q"
^DD(604.01,.01,"DT")="2970309"
^DD(604.01,"B","GENERAL COMMENT",.01)=""
^DD(604.01,"GL",0,1,.01)=""
^DD(604.0187,0)="LEISURE TIME ISSUES SUB-FIELD^^.01^1"
^DD(604.0187,0,"DT")="2961025"
^DD(604.0187,0,"NM","LEISURE TIME ISSUES")=""
^DD(604.0187,0,"UP")="604"
^DD(604.0187,.01,0)="LEISURE TIME ISSUES^W^^0;1^Q"
^DD(604.0187,.01,3)="Enter leisure time comments, problems, strengths and weaknesses."
^DD(604.0187,.01,21,0)="^^1^1^2961025^^"
^DD(604.0187,.01,21,1,0)="Enter leisure time comments, problems, strenghts and weaknesses."
^DD(604.0187,.01,"DT")="2961025"
^DD(604.0187,"B","LEISURE TIME ISSUES",.01)=""
^DD(604.0187,"GL",0,1,.01)=""
^DD(604.0188,0)="SPIRITUAL ISSUES SUB-FIELD^^.01^1"
^DD(604.0188,0,"DT")="2961025"
^DD(604.0188,0,"NM","SPIRITUAL ISSUES")=""
^DD(604.0188,0,"UP")="604"
^DD(604.0188,.01,0)="SPIRITUAL ISSUES^W^^0;1^Q"
^DD(604.0188,.01,3)="Enter questions and issues of a spiritual nature."
^DD(604.0188,.01,"DT")="2961025"
^DD(604.0188,"B","SPIRITUAL ISSUES",.01)=""
^DD(604.0188,"GL",0,1,.01)=""
^DD(604.02,0)="FAMILY/SOCIAL COMMENT SUB-FIELD^^.01^1"
^DD(604.02,0,"DT")="2961025"
^DD(604.02,0,"NM","FAMILY/SOCIAL COMMENT")=""
^DD(604.02,0,"UP")="604"
^DD(604.02,.01,0)="FAMILY/SOCIAL COMMENT^W^^0;1^Q"
^DD(604.02,.01,"DT")="2961025"
^DD(604.02,"B","FAMILY/SOCIAL COMMENT",.01)=""
^DD(604.02,"GL",0,1,.01)=""
^DD(604.03,0)="MEDICAL COMMENT SUB-FIELD^^.01^1"
^DD(604.03,0,"NM","MEDICAL COMMENT")=""
^DD(604.03,0,"UP")="604"
^DD(604.03,.01,0)="MEDICAL COMMENT^W^^0;1^Q"
^DD(604.03,.01,"DT")="2961029"
^DD(604.03,"B","MEDICAL COMMENT",.01)=""
^DD(604.03,"GL",0,1,.01)=""
^DD(604.05,0)="EMPLOYMENT COMMENT SUB-FIELD^^.01^1"
^DD(604.05,0,"NM","EMPLOYMENT COMMENT")=""
^DD(604.05,0,"UP")="604"
^DD(604.05,.01,0)="EMPLOYMENT COMMENT^W^^0;1^Q"
^DD(604.05,.01,"DT")="2961029"
^DD(604.05,"B","EMPLOYMENT COMMENT",.01)=""
^DD(604.05,"GL",0,1,.01)=""
^DD(604.06,0)="DRUG/ALCOHOL COMMENT SUB-FIELD^^.01^1"
^DD(604.06,0,"NM","DRUG/ALCOHOL COMMENT")=""
^DD(604.06,0,"UP")="604"
^DD(604.06,.01,0)="DRUG/ALCOHOL COMMENT^W^^0;1^Q"
^DD(604.06,.01,"DT")="2961029"
^DD(604.06,"B","DRUG/ALCOHOL COMMENT",.01)=""
^DD(604.06,"GL",0,1,.01)=""
^DD(604.09,0)="LEGAL COMMENT SUB-FIELD^^.01^1"
^DD(604.09,0,"NM","LEGAL COMMENT")=""
^DD(604.09,0,"UP")="604"
^DD(604.09,.01,0)="LEGAL COMMENT^W^^0;1^Q"
^DD(604.09,.01,"DT")="2961029"
^DD(604.09,"B","LEGAL COMMENT",.01)=""
^DD(604.09,"GL",0,1,.01)=""
^DD(604.11,0)="FAMILY HISTORY COMMENT SUB-FIELD^^.01^1"
^DD(604.11,0,"NM","FAMILY HISTORY COMMENT")=""
^DD(604.11,0,"UP")="604"
^DD(604.11,.01,0)="FAMILY HISTORY COMMENT^W^^0;1^Q"
^DD(604.11,.01,"DT")="2961029"
^DD(604.11,"B","FAMILY HISTORY COMMENT",.01)=""
^DD(604.11,"GL",0,1,.01)=""
^DD(604.12,0)="PSYCHIATRIC COMMENT SUB-FIELD^^.01^1"
^DD(604.12,0,"NM","PSYCHIATRIC COMMENT")=""
^DD(604.12,0,"UP")="604"
^DD(604.12,.01,0)="PSYCHIATRIC COMMENT^W^^0;1^Q"
^DD(604.12,.01,"DT")="2961029"
^DD(604.12,"B","PSYCHIATRIC COMMENT",.01)=""
^DD(604.12,"GL",0,1,.01)=""
^DD(604.26,0)="FIELD^^3^3"
^DD(604.26,0,"DDA")="N"
^DD(604.26,0,"DT")="2970123"
^DD(604.26,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(604.26,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(604.26,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(604.26,0,"IX","B",604.26,.01)=""
^DD(604.26,0,"IX","C",604.26,1)=""
^DD(604.26,0,"NM","ASI PROGRAM TYPE")=""
^DD(604.26,0,"PT",604,2)=""
^DD(604.26,0,"VR")="5.01"
^DD(604.26,0,"VRPK")="YS"
^DD(604.26,.01,0)="ID^RNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(604.26,.01,1,0)="^.1"
^DD(604.26,.01,1,1,0)="604.26^B"
^DD(604.26,.01,1,1,1)="S ^YSTX(604.26,""B"",$E(X,1,30),DA)="""""
^DD(604.26,.01,1,1,2)="K ^YSTX(604.26,""B"",$E(X,1,30),DA)"
^DD(604.26,.01,1,1,"DT")="2970123"
^DD(604.26,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(604.26,.01,21,0)="^^2^2^2970903^^^"
^DD(604.26,.01,21,1,0)="This field contains the IDentification number for the substance abuse program"
^DD(604.26,.01,21,2,0)="type as defined in the substance abuse annual report from VA headquarters."
^DD(604.26,.01,"DT")="2970123"
^DD(604.26,1,0)="TITLE^RF^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(604.26,1,1,0)="^.1"
^DD(604.26,1,1,1,0)="604.26^C^MUMPS"
^DD(604.26,1,1,1,1)="S ^YSTX(604.26,""C"",X,DA)="""""
^DD(604.26,1,1,1,2)="K ^YSTX(604.26,""C"",X,DA)"
^DD(604.26,1,1,1,"DT")="2970123"
^DD(604.26,1,3)="Answer must be 1-70 characters in length."
^DD(604.26,1,21,0)="^^2^2^2970903^^"
^DD(604.26,1,21,1,0)="This field contains the TITLE of the substance abuse program type as defined"
^DD(604.26,1,21,2,0)="in the substance abuse annual report from VA headquarters."
^DD(604.26,1,"DT")="2970123"
^DD(604.26,3,0)="ACTIVE^S^1:ACTIVE;0:INACTIVE;^0;3^Q"
^DD(604.26,3,21,0)="^^1^1^2970903^^"
^DD(604.26,3,21,1,0)="Activate a program only if its available at your site."
^DD(604.26,3,"DT")="2970123"
^DD(604.26,"B","ACTIVE",3)=""
^DD(604.26,"B","ID",.01)=""
^DD(604.26,"B","TITLE",1)=""
^DD(604.26,"GL",0,1,.01)=""
^DD(604.26,"GL",0,2,1)=""
^DD(604.26,"GL",0,3,3)=""
^DD(604.26,"IX",.01)=""
^DD(604.26,"IX",1)=""
^DD(604.26,"RQ",.01)=""
^DD(604.26,"RQ",1)=""
^DD(604.3,0)="FIELD^^.02^2"
^DD(604.3,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(604.3,0,"IX","B",604.3,.01)=""
^DD(604.3,0,"IX","B",604.3,.02)=""
^DD(604.3,0,"NM","ASI LEGAL CODE")=""
^DD(604.3,0,"PT",604,14.26)=""
^DD(604.3,0,"PT",604,14.28)=""
^DD(604.3,0,"VR")="5.01"
^DD(604.3,0,"VRPK")="YS"
^DD(604.3,.01,0)="CODE^RF^^0;1^K:$L(X)>3!($L(X)<1) X"
^DD(604.3,.01,1,0)="^.1"
^DD(604.3,.01,1,1,0)="604.3^B"
^DD(604.3,.01,1,1,1)="S ^YSTX(604.3,""B"",$E(X,1,30),DA)="""""
^DD(604.3,.01,1,1,2)="K ^YSTX(604.3,""B"",$E(X,1,30),DA)"
^DD(604.3,.01,3)="Answer must be 1-3 characters in length."
^DD(604.3,.01,21,0)="^^1^1^2970322^"
^DD(604.3,.01,21,1,0)="This field contains the Addiction Severity Index legal CODEs."
^DD(604.3,.01,"DT")="2960402"
^DD(604.3,.02,0)="NAME^F^^0;2^K:$L(X)>55!($L(X)<1) X"
^DD(604.3,.02,1,0)="^.1"
^DD(604.3,.02,1,1,0)="604.3^B^MNEMONIC"
^DD(604.3,.02,1,1,1)="S:'$D(^YSTX(604.3,""B"",$E(X,1,30),DA)) ^(DA)=1"
^DD(604.3,.02,1,1,2)="I $D(^YSTX(604.3,""B"",$E(X,1,30),DA)),^(DA) K ^(DA)"
^DD(604.3,.02,1,1,"DT")="2960227"
^DD(604.3,.02,3)="Answer must be 1-55 characters in length."
^DD(604.3,.02,21,0)="^^1^1^2970322^"
^DD(604.3,.02,21,1,0)="This field contains the NAME of the Addiction Severity Index legal code."
^DD(604.3,.02,"DT")="2960315"
^DD(604.3,"B","CODE",.01)=""
^DD(604.3,"B","NAME",.02)=""
^DD(604.3,"GL",0,1,.01)=""
^DD(604.3,"GL",0,2,.02)=""
^DD(604.3,"IX",.01)=""
^DD(604.3,"IX",.02)=""
^DD(604.3,"RQ",.01)=""
^DD(604.4,0)="FIELD^^.02^2"
^DD(604.4,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(604.4,0,"IX","B",604.4,.01)=""
^DD(604.4,0,"IX","C",604.4,.02)=""
^DD(604.4,0,"NM","ASI LIVING ARRANGEMENTS")=""
^DD(604.4,0,"PT",604,17.05)=""
^DD(604.4,0,"VR")="5.01"
^DD(604.4,0,"VRPK")="YS"
^DD(604.4,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(604.4,.01,1,0)="^.1"
^DD(604.4,.01,1,1,0)="604.4^B"
^DD(604.4,.01,1,1,1)="S ^YSTX(604.4,""B"",$E(X,1,30),DA)="""""
^DD(604.4,.01,1,1,2)="K ^YSTX(604.4,""B"",$E(X,1,30),DA)"
^DD(604.4,.01,3)="Select entry, 1-9."
^DD(604.4,.01,21,0)="^^1^1^2970322^"
^DD(604.4,.01,21,1,0)="This field contains Addiction Severity Index CODE for living arrangements."
^DD(604.4,.01,"DT")="2960319"
^DD(604.4,.02,0)="ARRANGEMENT^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(604.4,.02,1,0)="^.1"
^DD(604.4,.02,1,1,0)="604.4^C"
^DD(604.4,.02,1,1,1)="S ^YSTX(604.4,""C"",$E(X,1,30),DA)="""""
^DD(604.4,.02,1,1,2)="K ^YSTX(604.4,""C"",$E(X,1,30),DA)"
^DD(604.4,.02,1,1,"DT")="2970218"
^DD(604.4,.02,3)="Answer must be 1-30 characters in length."
^DD(604.4,.02,21,0)="^^2^2^2970322^"
^DD(604.4,.02,21,1,0)="This field contains the literal text of the Addiction Severity"
^DD(604.4,.02,21,2,0)="Index codes for living arrangements."
^DD(604.4,.02,"DT")="2970218"
^DD(604.4,"B","ARRANGEMENT",.02)=""
^DD(604.4,"B","CODE",.01)=""
^DD(604.4,"GL",0,1,.01)=""
^DD(604.4,"GL",0,2,.02)=""
^DD(604.4,"IX",.01)=""
^DD(604.4,"IX",.02)=""
^DD(604.4,"RQ",.01)=""
^DD(604.45,0)="FIELD^^.02^2"
^DD(604.45,0,"DT")="2970218"
^DD(604.45,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(604.45,0,"IX","B",604.45,.01)=""
^DD(604.45,0,"IX","C",604.45,.02)=""
^DD(604.45,0,"NM","ASI PATIENT RATING SCALE")=""
^DD(604.45,0,"PT",604,8.09)=""
^DD(604.45,0,"PT",604,8.11)=""
^DD(604.45,0,"PT",604,9.32)=""
^DD(604.45,0,"PT",604,9.33)=""
^DD(604.45,0,"PT",604,11.16)=""
^DD(604.45,0,"PT",604,11.165)=""
^DD(604.45,0,"PT",604,11.17)=""
^DD(604.45,0,"PT",604,11.175)=""
^DD(604.45,0,"PT",604,14.32)=""
^DD(604.45,0,"PT",604,14.33)=""
^DD(604.45,0,"PT",604,18.25)=""
^DD(604.45,0,"PT",604,18.26)=""
^DD(604.45,0,"PT",604,18.27)=""
^DD(604.45,0,"PT",604,18.28)=""
^DD(604.45,0,"PT",604,19.24)=""
^DD(604.45,0,"PT",604,19.25)=""
^DD(604.45,0,"VR")="5.01"
^DD(604.45,0,"VRPK")="YS"
^DD(604.45,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(604.45,.01,1,0)="^.1"
^DD(604.45,.01,1,1,0)="604.45^B"
^DD(604.45,.01,1,1,1)="S ^YSTX(604.45,""B"",$E(X,1,30),DA)="""""
^DD(604.45,.01,1,1,2)="K ^YSTX(604.45,""B"",$E(X,1,30),DA)"
^DD(604.45,.01,3)="0-Not at all, 1-Slightly, 2-Moderately, 3-Considerably, 4-Extremely.  Enter a number, 0-4,  and press <cr>."
^DD(604.45,.01,21,0)="^^1^1^2970322^"
^DD(604.45,.01,21,1,0)="This field contains the CODE for patient rating in the Addiction Severity Index."
^DD(604.45,.01,"DT")="2960315"
^DD(604.45,.02,0)="RATING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(604.45,.02,1,0)="^.1"
^DD(604.45,.02,1,1,0)="604.45^C"
^DD(604.45,.02,1,1,1)="S ^YSTX(604.45,""C"",$E(X,1,30),DA)="""""
^DD(604.45,.02,1,1,2)="K ^YSTX(604.45,""C"",$E(X,1,30),DA)"
^DD(604.45,.02,1,1,"DT")="2970218"
^DD(604.45,.02,3)="Answer must be 1-30 characters in length."
^DD(604.45,.02,21,0)="^^2^2^2970322^"
^DD(604.45,.02,21,1,0)="This field contains the literal text for patient rating in the Addiction"
^DD(604.45,.02,21,2,0)="Severity Index."
^DD(604.45,.02,"DT")="2970218"
^DD(604.45,"B","CODE",.01)=""
^DD(604.45,"B","RATING",.02)=""
^DD(604.45,"GL",0,1,.01)=""
^DD(604.45,"GL",0,2,.02)=""
^DD(604.45,"IX",.01)=""
^DD(604.45,"IX",.02)=""
^DD(604.45,"RQ",.01)=""
^DD(604.48,0)="FIELD^^.02^2"
^DD(604.48,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(604.48,0,"IX","B",604.48,.01)=""
^DD(604.48,0,"IX","C",604.48,.02)=""
^DD(604.48,0,"NM","ASI ROUTE OF ADMINISTRATION")=""
^DD(604.48,0,"PT",604,10.03)=""
^DD(604.48,0,"PT",604,10.06)=""
^DD(604.48,0,"PT",604,10.09)=""
^DD(604.48,0,"PT",604,10.14)=""
^DD(604.48,0,"PT",604,10.17)=""
^DD(604.48,0,"PT",604,10.21)=""
^DD(604.48,0,"PT",604,10.24)=""
^DD(604.48,0,"PT",604,10.27)=""
^DD(604.48,0,"PT",604,10.31)=""
^DD(604.48,0,"PT",604,10.34)=""
^DD(604.48,0,"PT",604,10.37)=""
^DD(604.48,0,"PT",604,10.41)=""
^DD(604.48,0,"VR")="5.01"
^DD(604.48,0,"VRPK")="YS"
^DD(604.48,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(604.48,.01,1,0)="^.1"
^DD(604.48,.01,1,1,0)="604.48^B"
^DD(604.48,.01,1,1,1)="S ^YSTX(604.48,""B"",$E(X,1,30),DA)="""""
^DD(604.48,.01,1,1,2)="K ^YSTX(604.48,""B"",$E(X,1,30),DA)"
^DD(604.48,.01,3)="Answer must be 1 character in length."
^DD(604.48,.01,21,0)="^^1^1^2970322^"
^DD(604.48,.01,21,1,0)="This field contains the CODE for routes of drug administration."
^DD(604.48,.01,"DT")="2960313"
^DD(604.48,.02,0)="ROA^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(604.48,.02,1,0)="^.1"
^DD(604.48,.02,1,1,0)="604.48^C"
^DD(604.48,.02,1,1,1)="S ^YSTX(604.48,""C"",$E(X,1,30),DA)="""""
^DD(604.48,.02,1,1,2)="K ^YSTX(604.48,""C"",$E(X,1,30),DA)"
^DD(604.48,.02,1,1,"DT")="2960415"
^DD(604.48,.02,3)="Answer must be 1-30 characters in length."
^DD(604.48,.02,21,0)="^^1^1^2970322^"
^DD(604.48,.02,21,1,0)="This field contains the literal text of the drug route of administration."
^DD(604.48,.02,"DT")="2960415"
^DD(604.48,"B","CODE",.01)=""
^DD(604.48,"B","ROA",.02)=""
^DD(604.48,"GL",0,1,.01)=""
^DD(604.48,"GL",0,2,.02)=""
^DD(604.48,"IX",.01)=""
^DD(604.48,"IX",.02)=""
^DD(604.48,"RQ",.01)=""
^DD(604.5,0)="FIELD^^.02^2"
^DD(604.5,0,"DDA")="N"
^DD(604.5,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(604.5,0,"IX","B",604.5,.01)=""
^DD(604.5,0,"NM","ASI FAMILY HX CODES")=""
^DD(604.5,0,"PT",604,15.01)=""
^DD(604.5,0,"PT",604,15.02)=""
^DD(604.5,0,"PT",604,15.03)=""
^DD(604.5,0,"PT",604,15.04)=""
^DD(604.5,0,"PT",604,15.05)=""
^DD(604.5,0,"PT",604,15.06)=""
^DD(604.5,0,"PT",604,15.07)=""
^DD(604.5,0,"PT",604,15.08)=""
^DD(604.5,0,"PT",604,15.09)=""
^DD(604.5,0,"PT",604,15.11)=""
^DD(604.5,0,"PT",604,15.12)=""
^DD(604.5,0,"PT",604,15.14)=""
^DD(604.5,0,"PT",604,15.15)=""
^DD(604.5,0,"PT",604,15.16)=""
^DD(604.5,0,"PT",604,15.17)=""
^DD(604.5,0,"PT",604,15.18)=""
^DD(604.5,0,"PT",604,15.19)=""
^DD(604.5,0,"PT",604,15.21)=""
^DD(604.5,0,"PT",604,15.22)=""
^DD(604.5,0,"PT",604,15.23)=""
^DD(604.5,0,"PT",604,15.24)=""
^DD(604.5,0,"PT",604,15.25)=""
^DD(604.5,0,"PT",604,15.26)=""
^DD(604.5,0,"PT",604,15.27)=""
^DD(604.5,0,"PT",604,16.01)=""
^DD(604.5,0,"PT",604,16.02)=""
^DD(604.5,0,"PT",604,16.03)=""
^DD(604.5,0,"PT",604,16.04)=""
^DD(604.5,0,"PT",604,16.05)=""
^DD(604.5,0,"PT",604,16.06)=""
^DD(604.5,0,"PT",604,16.07)=""
^DD(604.5,0,"PT",604,16.08)=""
^DD(604.5,0,"PT",604,16.09)=""
^DD(604.5,0,"PT",604,16.11)=""
^DD(604.5,0,"PT",604,16.12)=""
^DD(604.5,0,"PT",604,16.14)=""
^DD(604.5,0,"PT",604,17.16)=""
^DD(604.5,0,"PT",604,17.17)=""
^DD(604.5,0,"PT",604,17.18)=""
^DD(604.5,0,"PT",604,17.19)=""
^DD(604.5,0,"PT",604,17.21)=""
^DD(604.5,0,"PT",604,17.22)=""
^DD(604.5,0,"VR")="5.01"
^DD(604.5,0,"VRPK")="YS"
^DD(604.5,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(604.5,.01,1,0)="^.1"
^DD(604.5,.01,1,1,0)="604.5^B"
^DD(604.5,.01,1,1,1)="S ^YSTX(604.5,""B"",$E(X,1,30),DA)="""""
^DD(604.5,.01,1,1,2)="K ^YSTX(604.5,""B"",$E(X,1,30),DA)"
^DD(604.5,.01,3)="Answer must be 1 character in length."
^DD(604.5,.01,21,0)="^^2^2^2970322^"
^DD(604.5,.01,21,1,0)="This field contains the allowable CODEs for the Addiction Severity Index"
^DD(604.5,.01,21,2,0)="family history section."
^DD(604.5,.01,"DT")="2960228"
^DD(604.5,.02,0)="CATEGORY^F^^0;2^K:$L(X)>55!($L(X)<1) X"
^DD(604.5,.02,1,0)="^.1^^0"
^DD(604.5,.02,3)="Answer must be 1-55 characters in length."
^DD(604.5,.02,21,0)="^^2^2^2970322^"
^DD(604.5,.02,21,1,0)="This field contains the liiteral text for the Addiction Severity Index family"
^DD(604.5,.02,21,2,0)="history codes."
^DD(604.5,.02,"DT")="2960228"
^DD(604.5,"B","CATEGORY",.02)=""
^DD(604.5,"B","CODE",.01)=""
^DD(604.5,"GL",0,1,.01)=""
^DD(604.5,"GL",0,2,.02)=""
^DD(604.5,"IX",.01)=""
^DD(604.5,"RQ",.01)=""
^DD(604.55,0)="FIELD^^.01^1"
^DD(604.55,0,"DDA")="N"
^DD(604.55,0,"IX","B",604.55,.01)=""
^DD(604.55,0,"NM","ASI FOLLOW UP")=""
^DD(604.55,0,"VR")="5.01"
^DD(604.55,0,"VRPK")="YS"
^DD(604.55,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(604.55,.01,1,0)="^.1"
^DD(604.55,.01,1,1,0)="604.55^B"
^DD(604.55,.01,1,1,1)="S ^YSTX(604.55,""B"",$E(X,1,30),DA)="""""
^DD(604.55,.01,1,1,2)="K ^YSTX(604.55,""B"",$E(X,1,30),DA)"
^DD(604.55,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(604.55,.01,21,0)="^^2^2^2970322^"
^DD(604.55,.01,21,1,0)="This field contains the follow-up schedule for administering the Addiction"
^DD(604.55,.01,21,2,0)="Severity Index."
^DD(604.55,"B","NAME",.01)=""
^DD(604.55,"GL",0,1,.01)=""
^DD(604.55,"IX",.01)=""
^DD(604.55,"RQ",.01)=""
^DD(604.66,0)="FIELD^^15^14"
^DD(604.66,0,"DT")="2980319"
^DD(604.66,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(604.66,0,"IX","B",604.66,.01)=""
^DD(604.66,0,"IX","C",604.66,1)=""
^DD(604.66,0,"IX","D",604.66,2)=""
^DD(604.66,0,"NM","ASI QUICK FORM")=""
^DD(604.66,0,"VR")="5.01"
^DD(604.66,0,"VRPK")="YS"
^DD(604.66,.01,0)="ORDER NUMBER^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(604.66,.01,1,0)="^.1"
^DD(604.66,.01,1,1,0)="604.66^B"
^DD(604.66,.01,1,1,1)="S ^YSTX(604.66,""B"",$E(X,1,30),DA)="""""
^DD(604.66,.01,1,1,2)="K ^YSTX(604.66,""B"",$E(X,1,30),DA)"
^DD(604.66,.01,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(604.66,.01,21,0)="^^3^3^2970903^^^"
^DD(604.66,.01,21,1,0)="This field contains the ORDER NUMBER for administering the Addiction Severity"
^DD(604.66,.01,21,2,0)="Index. This field can also contain MUMPS code used for branching, defaults and"
^DD(604.66,.01,21,3,0)="screen reminders."
^DD(604.66,.01,"DT")="2961017"
^DD(604.66,1,0)="QUESTION^RF^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(604.66,1,1,0)="^.1"
^DD(604.66,1,1,1,0)="604.66^C"
^DD(604.66,1,1,1,1)="S ^YSTX(604.66,""C"",$E(X,1,30),DA)="""""
^DD(604.66,1,1,1,2)="K ^YSTX(604.66,""C"",$E(X,1,30),DA)"
^DD(604.66,1,1,1,"DT")="2961017"
^DD(604.66,1,3)="Answer must be 1-50 characters in length."
^DD(604.66,1,21,0)="^^2^2^2970322^"
^DD(604.66,1,21,1,0)="This field contains the Addiction Severity Index question.  This reflects the"
^DD(604.66,1,21,2,0)="ASI work sheet."
^DD(604.66,1,"DT")="2961025"
^DD(604.66,2,0)="FIELD NUMBER^RNJ9,3^^0;3^K:+X'=X!(X>99999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(604.66,2,1,0)="^.1"
^DD(604.66,2,1,1,0)="604.66^D"
^DD(604.66,2,1,1,1)="S ^YSTX(604.66,""D"",$E(X,1,30),DA)="""""
^DD(604.66,2,1,1,2)="K ^YSTX(604.66,""D"",$E(X,1,30),DA)"
^DD(604.66,2,1,1,"DT")="2961018"
^DD(604.66,2,3)="Type a Number between .001 and 99999, 3 Decimal Digits"
^DD(604.66,2,21,0)="^^3^3^2970904^^^"
^DD(604.66,2,21,1,0)="This field contains the corresponding field number in the file ADDICTION"
^DD(604.66,2,21,2,0)="SEVERITY INDEX (#604), only if it is a question of the Addiction Severity Index"
^DD(604.66,2,21,3,0)="interview."
^DD(604.66,2,"DT")="2961018"
^DD(604.66,3,0)="FULL^NJ7,1^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(604.66,3,3)="Type a Number between 1 and 99999, 1 Decimal Digit"
^DD(604.66,3,21,0)="^^2^2^2970322^"
^DD(604.66,3,21,1,0)="This field contains a numeric value if the entry has to do with the FULL"
^DD(604.66,3,21,2,0)="version of the Addiction Severity Index."
^DD(604.66,3,"DT")="2961017"
^DD(604.66,4,0)="LITE^NJ7,1^^0;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(604.66,4,3)="Type a Number between 1 and 99999, 1 Decimal Digit"
^DD(604.66,4,21,0)="^^2^2^2970322^"
^DD(604.66,4,21,1,0)="This field contains a numeric value if the entry has to do with the LITE"
^DD(604.66,4,21,2,0)="version of the Addiction Severity Index."
^DD(604.66,4,"DT")="2961017"
^DD(604.66,5,0)="FOLLOWUP^NJ7,1^^0;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(604.66,5,3)="Type a Number between 1 and 99999, 1 Decimal Digit"
^DD(604.66,5,21,0)="^^2^2^2970322^"
^DD(604.66,5,21,1,0)="This field contains a numeric value if the entry has to do with the FOLLOWUP"
^DD(604.66,5,21,2,0)="version of the Addiction Severity Index."
^DD(604.66,5,"DT")="2961017"
^DD(604.66,6,0)="DEFAULT^F^^0;7^K:$L(X)>15!($L(X)<1) X"
^DD(604.66,6,3)="Answer that will be entered if transcriber just hits ENTER. Answer must be 1-15 characters in length."
^DD(604.66,6,21,0)="^^2^2^2970322^"
^DD(604.66,6,21,1,0)="This field contains the value of the DEFAULT prompt for a question of the"
^DD(604.66,6,21,2,0)="Addiction Severity Index."
^DD(604.66,6,"DT")="2961018"
^DD(604.66,8,0)="ENTRY EXECUTE^F^^0;9^K:$L(X)>100!($L(X)<1) X"
^DD(604.66,8,3)="Answer must be 1-100 characters in length."
^DD(604.66,8,21,0)="^^1^1^2970322^"
^DD(604.66,8,21,1,0)="This field contains M code to be executed at time of data entry."
^DD(604.66,8,"DT")="2961029"
^DD(604.66,10,0)="EXIT EXECUTE^F^^1;1^K:$L(X)>200!($L(X)<1) X"
^DD(604.66,10,3)="Answer must be 1-200 characters in length."
^DD(604.66,10,21,0)="^^1^1^2970322^"
^DD(604.66,10,21,1,0)="This field contains M code that is executed upon exiting to the next question."
^DD(604.66,10,"DT")="2961029"
^DD(604.66,11,0)="REQUIRED^S^1:REQUIRED;^0;8^Q"
^DD(604.66,11,21,0)="^^2^2^2970322^"
^DD(604.66,11,21,1,0)="This field contains a value if the entry is required for scoring the Addiction"
^DD(604.66,11,21,2,0)="Severity Index."
^DD(604.66,11,"DT")="2970214"
^DD(604.66,12,0)="ID^F^^0;11^K:$L(X)>8!($L(X)<2) X"
^DD(604.66,12,3)="Answer must be 2-8 characters in length."
^DD(604.66,12,21,0)="^^9^9^2970905^"
^DD(604.66,12,21,1,0)="The ID field in the ASI QUICK file is the shortest unique humanly readable"
^DD(604.66,12,21,2,0)="text to identify each question and sometimes sub-question on the ASI.It is"
^DD(604.66,12,21,3,0)="used in the full screen administration mode at the top of each question,"
^DD(604.66,12,21,4,0)="as a terse listing of missing required fields and used to determine the"
^DD(604.66,12,21,5,0)="section a question belongs to."
^DD(604.66,12,21,6,0)="These IDs match the question ID on the printed ASI forms. An ID is the"
^DD(604.66,12,21,7,0)="combination of the section letter ie M for medical, L for legal and the"
^DD(604.66,12,21,8,0)="question number for that section eg E2, L17. Sometimes a question has"
^DD(604.66,12,21,9,0)="multiple parts and this is reflected in the  ID eg E6 Yrs, E6 Mons."
^DD(604.66,12,"DT")="2970219"
^DD(604.66,13,0)="VERBOSE QUESTION^604.6613^^2;0"
^DD(604.66,13,21,0)="^^2^2^2970322^"
^DD(604.66,13,21,1,0)="This field contains the full wording of each question of the Addiction Severity"
^DD(604.66,13,21,2,0)="Index."
^DD(604.66,14,0)="HINT^604.6614^^3;0"
^DD(604.66,14,21,0)="^^2^2^2970322^"
^DD(604.66,14,21,1,0)="This field contains helpful hints to be viewed when administering the Addiction"
^DD(604.66,14,21,2,0)="Severity Index on-line."
^DD(604.66,15,0)="REPHRASE^S^1:YES;^0;10^Q"
^DD(604.66,15,21,0)="^^1^1^2980319^^"
^DD(604.66,15,21,1,0)="Questions that are cumulative and should be rephrased to add ""Since the last interview.. """
^DD(604.66,15,"DT")="2980319"
^DD(604.66,"B","DEFAULT",6)=""
^DD(604.66,"B","ENTRY EXECUTE",8)=""
^DD(604.66,"B","EXIT EXECUTE",10)=""
^DD(604.66,"B","FIELD NUMBER",2)=""
^DD(604.66,"B","FOLLOWUP",5)=""
^DD(604.66,"B","FULL",3)=""
^DD(604.66,"B","HINT",14)=""
^DD(604.66,"B","ID",12)=""
^DD(604.66,"B","LITE",4)=""
^DD(604.66,"B","ORDER NUMBER",.01)=""
^DD(604.66,"B","QUESTION",1)=""
^DD(604.66,"B","REPHRASE",15)=""
^DD(604.66,"B","REQUIRED",11)=""
^DD(604.66,"B","VERBOSE QUESTION",13)=""
^DD(604.66,"GL",0,1,.01)=""
^DD(604.66,"GL",0,2,1)=""
^DD(604.66,"GL",0,3,2)=""
^DD(604.66,"GL",0,4,3)=""
^DD(604.66,"GL",0,5,4)=""
^DD(604.66,"GL",0,6,5)=""
^DD(604.66,"GL",0,7,6)=""
^DD(604.66,"GL",0,8,11)=""
^DD(604.66,"GL",0,9,8)=""
^DD(604.66,"GL",0,10,15)=""
^DD(604.66,"GL",0,11,12)=""
^DD(604.66,"GL",1,1,10)=""
^DD(604.66,"GL",2,0,13)=""
^DD(604.66,"GL",3,0,14)=""
^DD(604.66,"IX",.01)=""
^DD(604.66,"IX",1)=""
^DD(604.66,"IX",2)=""
^DD(604.66,"RQ",.01)=""
^DD(604.66,"RQ",1)=""
^DD(604.66,"RQ",2)=""
^DD(604.66,"SB",604.6613,13)=""
^DD(604.66,"SB",604.6614,14)=""
^DD(604.6613,0)="VERBOSE QUESTION SUB-FIELD^^.01^1"
^DD(604.6613,0,"DT")="2970307"
^DD(604.6613,0,"NM","VERBOSE QUESTION")=""
^DD(604.6613,0,"UP")="604.66"
^DD(604.6613,.01,0)="VERBOSE QUESTION^W^^0;1^Q"
^DD(604.6613,.01,21,0)="^^1^1^2970307^"
^DD(604.6613,.01,21,1,0)="Full text of the question"
^DD(604.6613,.01,"DT")="2970307"
^DD(604.6613,"B","VERBOSE QUESTION",.01)=""
^DD(604.6613,"GL",0,1,.01)=""
^DD(604.6614,0)="HINT SUB-FIELD^^.01^1"
^DD(604.6614,0,"DT")="2970309"
^DD(604.6614,0,"NM","HINT")=""
^DD(604.6614,0,"UP")="604.66"
^DD(604.6614,.01,0)="HINT^W^^0;1^Q"
^DD(604.6614,.01,"DT")="2970309"
^DD(604.6614,"B","HINT",.01)=""
^DD(604.6614,"GL",0,1,.01)=""
^DD(604.68,0)="FIELD^^1^2"
^DD(604.68,0,"DT")="2961030"
^DD(604.68,0,"IX","B",604.68,.01)=""
^DD(604.68,0,"NM","ASI NARRATIVE")=""
^DD(604.68,0,"VR")="5.01"
^DD(604.68,0,"VRPK")="YS"
^DD(604.68,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(604.68,.01,1,0)="^.1"
^DD(604.68,.01,1,1,0)="604.68^B"
^DD(604.68,.01,1,1,1)="S ^YSTX(604.68,""B"",$E(X,1,30),DA)="""""
^DD(604.68,.01,1,1,2)="K ^YSTX(604.68,""B"",$E(X,1,30),DA)"
^DD(604.68,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(604.68,.01,21,0)="^^2^2^2970322^"
^DD(604.68,.01,21,1,0)="This field contains the specific ASI title used in the construction of the"
^DD(604.68,.01,21,2,0)="narrative report."
^DD(604.68,1,0)="TEXT^604.681^^1;0"
^DD(604.68,1,21,0)="^^1^1^2970322^"
^DD(604.68,1,21,1,0)="This field contains the text and M code used to construct the ASI narrative."
^DD(604.68,"B","NAME",.01)=""
^DD(604.68,"B","TEXT",1)=""
^DD(604.68,"GL",0,1,.01)=""
^DD(604.68,"GL",1,0,1)=""
^DD(604.68,"IX",.01)=""
^DD(604.68,"RQ",.01)=""
^DD(604.68,"SB",604.681,1)=""
^DD(604.681,0)="TEXT SUB-FIELD^^.01^1"
^DD(604.681,0,"DT")="2961030"
^DD(604.681,0,"NM","TEXT")=""
^DD(604.681,0,"UP")="604.68"
^DD(604.681,.01,0)="TEXT^W^^0;1^Q"
^DD(604.681,.01,"DT")="2961030"
^DD(604.681,"B","TEXT",.01)=""
^DD(604.681,"GL",0,1,.01)=""
^DD(604.77,0)="FIELD^^.02^2"
^DD(604.77,0,"DT")="2970328"
^DD(604.77,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(604.77,0,"IX","B",604.77,.01)=""
^DD(604.77,0,"IX","C",604.77,.02)=""
^DD(604.77,0,"NM","ASI SUBSTANCE CODE")=""
^DD(604.77,0,"PT",604,10.45)=""
^DD(604.77,0,"VR")="5.01"
^DD(604.77,0,"VRPK")="YS"
^DD(604.77,.01,0)="NAME^RF^^0;1^K:$L(X)>2!($L(X)<1) X"
^DD(604.77,.01,1,0)="^.1"
^DD(604.77,.01,1,1,0)="604.77^B"
^DD(604.77,.01,1,1,1)="S ^YSTX(604.77,""B"",$E(X,1,30),DA)="""""
^DD(604.77,.01,1,1,2)="K ^YSTX(604.77,""B"",$E(X,1,30),DA)"
^DD(604.77,.01,3)="Answer must be 1-2 characters in length."
^DD(604.77,.01,21,0)="^^1^1^2970328^^"
^DD(604.77,.01,21,1,0)="This field contains the national ASI code for different abused drugs."
^DD(604.77,.01,"DT")="2970328"
^DD(604.77,.02,0)="PROBLEM^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(604.77,.02,1,0)="^.1"
^DD(604.77,.02,1,1,0)="604.77^C"
^DD(604.77,.02,1,1,1)="S ^YSTX(604.77,""C"",$E(X,1,30),DA)="""""
^DD(604.77,.02,1,1,2)="K ^YSTX(604.77,""C"",$E(X,1,30),DA)"
^DD(604.77,.02,1,1,"DT")="2970218"
^DD(604.77,.02,3)="Answer must be 1-35 characters in length."
^DD(604.77,.02,21,0)="^^1^1^2970322^"
^DD(604.77,.02,21,1,0)="This field contains the literal text for the national ASI code for abused drugs."
^DD(604.77,.02,"DT")="2970218"
^DD(604.77,"B","NAME",.01)=""
^DD(604.77,"B","PROBLEM",.02)=""
^DD(604.77,"GL",0,1,.01)=""
^DD(604.77,"GL",0,2,.02)=""
^DD(604.77,"IX",.01)=""
^DD(604.77,"IX",.02)=""
^DD(604.77,"RQ",.01)=""
^DD(604.8,0)="FIELD^^2^9"
^DD(604.8,0,"DT")="2980408"
^DD(604.8,0,"IX","AB",604.81,.01)=""
^DD(604.8,0,"IX","B",604.8,.01)=""
^DD(604.8,0,"NM","ASI PARAMETERS")=""
^DD(604.8,0,"VR")="5.01"
^DD(604.8,0,"VRPK")="YS"
^DD(604.8,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(604.8,.001,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(604.8,.001,21,0)="^^1^1^2970909^"
^DD(604.8,.001,21,1,0)="This is the internal entry number of the file entry."
^DD(604.8,.001,"DT")="2960301"
^DD(604.8,.01,0)="SITE NAME^RP4'^DIC(4,^0;1^Q"
^DD(604.8,.01,1,0)="^.1"
^DD(604.8,.01,1,1,0)="604.8^B"
^DD(604.8,.01,1,1,1)="S ^YSTX(604.8,""B"",$E(X,1,30),DA)="""""
^DD(604.8,.01,1,1,2)="K ^YSTX(604.8,""B"",$E(X,1,30),DA)"
^DD(604.8,.01,3)=""
^DD(604.8,.01,21,0)="^^1^1^2970903^^"
^DD(604.8,.01,21,1,0)="This is a pointer to the KERNEL institution file."
^DD(604.8,.01,"DEL",1,0)="I 1"
^DD(604.8,.01,"DT")="2970328"
^DD(604.8,.02,0)="SUGGESTED FORM^S^F:FULL;L:LITE;^0;2^Q"
^DD(604.8,.02,3)="Enter FULL to prompt for complete ASI or LITE for short ASI. Usercan always select either option."
^DD(604.8,.02,21,0)="^^1^1^2970903^^^"
^DD(604.8,.02,21,1,0)="Used to set default prompt when entering Addiction Survey Index data."
^DD(604.8,.02,"DT")="2970528"
^DD(604.8,.03,0)="ENTRY MODE PROMPT^S^O:ON-LINE;C:CLERK;^0;3^Q"
^DD(604.8,.03,3)="Enter O to prompt for full screen data entry, C for line by line"
^DD(604.8,.03,21,0)="^^2^2^2970903^^^"
^DD(604.8,.03,21,1,0)="Designates prompt for entry mode: On-line (full screen) vs. Clerk (line by"
^DD(604.8,.03,21,2,0)="line)."
^DD(604.8,.03,"DT")="2970528"
^DD(604.8,.04,0)="ALLOW DEFAULTS^S^0:NO;1:YES;^0;4^Q"
^DD(604.8,.04,3)="Defaults are used to speed data entry. The most frequently given response for an item is presented for use."
^DD(604.8,.04,21,0)="^^2^2^2970328^"
^DD(604.8,.04,21,1,0)="Defaults are used to speed data entry. The most frequently given response"
^DD(604.8,.04,21,2,0)="for an item is presented for use."
^DD(604.8,.04,"DT")="2960412"
^DD(604.8,.05,0)="ASK TIU PROGRESS NOTES^S^1:YES;0:NO;^0;5^Q"
^DD(604.8,.05,3)=""
^DD(604.8,.05,21,0)="^^2^2^2980423^^^"
^DD(604.8,.05,21,1,0)="If this field is set to ""yes"", the clinician will be asked if a TIU Progress"
^DD(604.8,.05,21,2,0)="Note should be created. Set to ""no"" and no note is generated."
^DD(604.8,.05,"DT")="2980408"
^DD(604.8,.07,0)="ALLOW BRANCHING^S^1:YES;0:NO;^0;7^Q"
^DD(604.8,.07,3)="Automatically answer following questions based on the current answer and logical rules"
^DD(604.8,.07,21,0)="^^2^2^2970328^"
^DD(604.8,.07,21,1,0)="Automatically answer following questions based on the current answer and"
^DD(604.8,.07,21,2,0)="logical rules"
^DD(604.8,.07,"DT")="2961230"
^DD(604.8,1,0)="ASI MANAGERS^604.81PA^^1;0"
^DD(604.8,1,21,0)="^^1^1^2970903^^^"
^DD(604.8,1,21,1,0)="Users who have special signing and management privileges."
^DD(604.8,2,0)="NATIONAL DATABASE ADDRESS^F^^2;1^K:$L(X)>100!($L(X)<5) X"
^DD(604.8,2,3)="Mail address of the national ASI datadase. DO NOT Change unless instructed to do so by the national center."
^DD(604.8,2,21,0)="^^2^2^2970328^"
^DD(604.8,2,21,1,0)="Mail address of the national ASI datadase. DO NOT Change unless instructed"
^DD(604.8,2,21,2,0)="to do so by the national center."
^DD(604.8,2,"DT")="2961230"
^DD(604.8,"B","ALLOW BRANCHING",.07)=""
^DD(604.8,"B","ALLOW DEFAULTS",.04)=""
^DD(604.8,"B","ASI MANAGERS",1)=""
^DD(604.8,"B","ASK TIU PROGRESS NOTES",.05)=""
^DD(604.8,"B","ENTRY MODE PROMPT",.03)=""
^DD(604.8,"B","NATIONAL DATABASE ADDRESS",2)=""
^DD(604.8,"B","NUMBER",.001)=""
^DD(604.8,"B","SITE NAME",.01)=""
^DD(604.8,"B","SUGGESTED FORM",.02)=""
^DD(604.8,"GL",0,1,.01)=""
^DD(604.8,"GL",0,2,.02)=""
^DD(604.8,"GL",0,3,.03)=""
^DD(604.8,"GL",0,4,.04)=""
^DD(604.8,"GL",0,5,.05)=""
^DD(604.8,"GL",0,7,.07)=""
^DD(604.8,"GL",1,0,1)=""
^DD(604.8,"GL",2,1,2)=""
^DD(604.8,"IX",.01)=""
^DD(604.8,"RQ",.01)=""
^DD(604.8,"SB",604.81,1)=""
^DD(604.81,0)="ASI MANAGERS SUB-FIELD^^.01^1"
^DD(604.81,0,"DT")="2970903"
^DD(604.81,0,"IX","B",604.81,.01)=""
^DD(604.81,0,"NM","ASI MANAGERS")=""
^DD(604.81,0,"UP")="604.8"
^DD(604.81,.01,0)="ASI MANAGERS^P200'^VA(200,^0;1^Q"
^DD(604.81,.01,1,0)="^.1"
^DD(604.81,.01,1,1,0)="604.81^B"
^DD(604.81,.01,1,1,1)="S ^YSTX(604.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(604.81,.01,1,1,2)="K ^YSTX(604.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(604.81,.01,1,2,0)="604.8^AB"
^DD(604.81,.01,1,2,1)="S ^YSTX(604.8,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(604.81,.01,1,2,2)="K ^YSTX(604.8,""AB"",$E(X,1,30),DA(1),DA)"
^DD(604.81,.01,1,2,"%D",0)="^^1^1^2961204^"
^DD(604.81,.01,1,2,"%D",1,0)="ASI MANAGERS"
^DD(604.81,.01,1,2,"DT")="2961204"
^DD(604.81,.01,3)="Users who have special signing and management privileges"
^DD(604.81,.01,21,0)="^^1^1^2970903^^^"
^DD(604.81,.01,21,1,0)="Users who have special signing and management privileges."
^DD(604.81,.01,"DT")="2970903"
^DD(604.81,"B","ASI MANAGERS",.01)=""
^DD(604.81,"GL",0,1,.01)=""
^DD(604.81,"IX",.01)=""
^DD(605,0)="FIELD^^1^2"
^DD(605,0,"DDA")="N"
^DD(605,0,"DIK")="YSXRAG"
^DD(605,0,"DIKOLD")="YSXRAG"
^DD(605,0,"IX","B",605,.01)=""
^DD(605,0,"NM","MH TEXT")=""
^DD(605,0,"VR")="5.01"
^DD(605,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(605,.01,1,0)="^.1"
^DD(605,.01,1,1,0)="605^B"
^DD(605,.01,1,1,1)="S ^YTX(""B"",$E(X,1,30),DA)="""""
^DD(605,.01,1,1,2)="K ^YTX(""B"",$E(X,1,30),DA)"
^DD(605,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(605,.01,21,0)="^^1^1^2881017^^"
^DD(605,.01,21,1,0)="Title of narrative."
^DD(605,1,0)="TEXT^605.01^^1;0"
^DD(605,1,21,0)="^^2^2^2881116^^"
^DD(605,1,21,1,0)="Narrative used by the Mental Health System within specific"
^DD(605,1,21,2,0)="functions."
^DD(605,"B","NAME",.01)=""
^DD(605,"B","TEXT",1)=""
^DD(605,"GL",0,1,.01)=""
^DD(605,"GL",1,0,1)=""
^DD(605,"IX",.01)=""
^DD(605,"RQ",.01)=""
^DD(605,"SB",605.01,1)=""
^DD(605.01,0)="TEXT SUB-FIELD^NL^.01^1"
^DD(605.01,0,"NM","TEXT")=""
^DD(605.01,0,"UP")="605"
^DD(605.01,.01,0)="TEXT^W^^0;1^Q"
^DD(605.01,"B","TEXT",.01)=""
^DD(605.01,"GL",0,1,.01)=""
^DD(615,0)="FIELD^^1^2"
^DD(615,0,"DDA")="N"
^DD(615,0,"DIK")="YSXRAJ"
^DD(615,0,"DIKOLD")="YSXRAJ"
^DD(615,0,"DT")="2920218"
^DD(615,0,"IX","B",615,.01)=""
^DD(615,0,"IX","C",615.01,.01)=""
^DD(615,0,"NM","MH CLINICAL FILE")=""
^DD(615,0,"VR")="5.01"
^DD(615,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X Q"
^DD(615,.01,1,0)="^.1"
^DD(615,.01,1,1,0)="615^B"
^DD(615,.01,1,1,1)="S ^YS(615,""B"",$E(X,1,30),DA)="""""
^DD(615,.01,1,1,2)="K ^YS(615,""B"",$E(X,1,30),DA)"
^DD(615,.01,3)=""
^DD(615,.01,21,0)="^^4^4^2920218^^^"
^DD(615,.01,21,1,0)="This name points to the Patient file. It is the name"
^DD(615,.01,21,2,0)="of the patient for whom the problem list is being made."
^DD(615,.01,21,3,0)="To search data bases, or to print out problem lists by"
^DD(615,.01,21,4,0)="ward or clinic, use the 'Problist' name."
^DD(615,1,0)="PROBLEM^615.01PA^^PL;0"
^DD(615,1,21,0)="^^1^1^2990426^^^^"
^DD(615,1,21,1,0)="This is the name of the problem category used in the Mental Health package."
^DD(615,"B","NAME",.01)=""
^DD(615,"B","PROBLEM",1)=""
^DD(615,"GL",0,1,.01)=""
^DD(615,"GL","PL",0,1)=""
^DD(615,"IX",.01)=""
^DD(615,"RQ",.01)=""
^DD(615,"SB",615.01,1)=""
^DD(615.01,0)="PROBLEM SUB-FIELD^NL^8^9"
^DD(615.01,0,"DIK")="YSXRAJ"
^DD(615.01,0,"DT")="2920218"
^DD(615.01,0,"NM","PROBLEM")=""
^DD(615.01,0,"UP")="615"
^DD(615.01,.01,0)="PROBLEM^MP620'XO^DIC(620,^0;1^S DINUM=X Q"
^DD(615.01,.01,1,0)="^.1"
^DD(615.01,.01,1,1,0)="615^C"
^DD(615.01,.01,1,1,1)="S ^YS(615,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(615.01,.01,1,1,2)="K ^YS(615,""C"",$E(X,1,30),DA(1),DA)"
^DD(615.01,.01,2)="S Y(0)=Y S SCR=$P($G(Y(0)),U,2)"
^DD(615.01,.01,2.1)="S SCR=$P($G(Y(0)),U,2)"
^DD(615.01,.01,21,0)="^^2^2^2990426^^^"
^DD(615.01,.01,21,1,0)="Problem, pointing to the 'Problem' file is the title of the problem"
^DD(615.01,.01,21,2,0)="selected for the 'Problist' patient."
^DD(615.01,.01,"DT")="2990423"
^DD(615.01,1,0)="SPECIFY OTHER PROBLEM^F^^0;2^K:$L(X)>70!($L(X)<3) X"
^DD(615.01,1,3)="ANSWER MUST BE 3-70 CHARACTERS IN LENGTH"
^DD(615.01,1,21,0)="^^4^4^2841212^^"
^DD(615.01,1,21,1,0)="This is free text describing a problem 'Other' not found covered"
^DD(615.01,1,21,2,0)="by the other specific problems in the 'Problem' file."
^DD(615.01,1,21,3,0)="Only one 'Specify Other Problem' entry may be made. Multiple"
^DD(615.01,1,21,4,0)="entries may be made in the 'Specify Other Indicator' field."
^DD(615.01,1,"DT")="2840613"
^DD(615.01,2,0)="PRIORITY^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(615.01,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(615.01,2,21,0)="^^3^3^2841212^"
^DD(615.01,2,21,1,0)="This determines the order in which the Problem is presented"
^DD(615.01,2,21,2,0)="to the user and printed. It is used in the critical item screen"
^DD(615.01,2,21,3,0)="and problem list printouts."
^DD(615.01,3,0)="ONSET DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(615.01,3,21,0)="^^1^1^2850718^^"
^DD(615.01,3,21,1,0)="Date of problem onset. Requested when a problem is entered."
^DD(615.01,4,0)="RECORDED DATE^RD^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(615.01,4,21,0)="^^1^1^2850718^^"
^DD(615.01,4,21,1,0)="Date problem was recorded. Mandatory, time of day important."
^DD(615.01,4,"DT")="2870508"
^DD(615.01,5,0)="STAFF^P200'^VA(200,^0;6^Q"
^DD(615.01,5,21,0)="^^1^1^2921130^^"
^DD(615.01,5,21,1,0)="Person entering problem on the list. Points to New Person file."
^DD(615.01,6,0)="SCREEN^F^^0;7^K:$L(X)>2!($L(X)<1) X"
^DD(615.01,6,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(615.01,6,21,0)="^^2^2^2841212^"
^DD(615.01,6,21,1,0)="This is the alphabetical key which associates a problem with its"
^DD(615.01,6,21,2,0)="indicators."
^DD(615.01,6,"DT")="2840613"
^DD(615.01,7,0)="PROBLEM INDICATOR^615.02PA^^1;0"
^DD(615.01,7,21,0)="^^1^1^2850723^^"
^DD(615.01,7,21,1,0)="This is the problem indicator selected by the staff for that problem."
^DD(615.01,8,0)="STATUS DATE^615.03DA^^2;0"
^DD(615.01,8,21,0)="^^2^2^2920218^^^^"
^DD(615.01,8,21,1,0)="Date that problem's status (Active, Inactive, Resolved, Reformulated)"
^DD(615.01,8,21,2,0)="was added."
^DD(615.01,"B","ONSET DATE",3)=""
^DD(615.01,"B","PRIORITY",2)=""
^DD(615.01,"B","PROBLEM",.01)=""
^DD(615.01,"B","PROBLEM INDICATOR",7)=""
^DD(615.01,"B","RECORDED DATE",4)=""
^DD(615.01,"B","SCREEN",6)=""
^DD(615.01,"B","SPECIFY OTHER PROBLEM",1)=""
^DD(615.01,"B","STAFF",5)=""
^DD(615.01,"B","STATUS DATE",8)=""
^DD(615.01,"GL",0,1,.01)=""
^DD(615.01,"GL",0,2,1)=""
^DD(615.01,"GL",0,3,2)=""
^DD(615.01,"GL",0,4,3)=""
^DD(615.01,"GL",0,5,4)=""
^DD(615.01,"GL",0,6,5)=""
^DD(615.01,"GL",0,7,6)=""
^DD(615.01,"GL",1,0,7)=""
^DD(615.01,"GL",2,0,8)=""
^DD(615.01,"IX",.01)=""
^DD(615.01,"RQ",4)=""
^DD(615.01,"SB",615.02,7)=""
^DD(615.01,"SB",615.03,8)=""
^DD(615.02,0)="PROBLEM INDICATOR SUB-FIELD^NL^3^4"
^DD(615.02,0,"DT")="2911212"
^DD(615.02,0,"NM","PROBLEM INDICATOR")=""
^DD(615.02,0,"UP")="615.01"
^DD(615.02,.01,0)="PROBLEM INDICATOR^M*P625'^DIC(625,^0;1^S DIC(""S"")=""I $P(^(0),U,2)[$P(^DIC(620,DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(615.02,.01,12)="INDICATORS ASSOCIATED WITH SPECIFIC PROBLEMS"
^DD(615.02,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[$P(^DIC(620,DA,0),U,2)"""
^DD(615.02,.01,"DT")="2911212"
^DD(615.02,1,0)="SPECIFY OTHER INDICATOR^F^^0;2^K:$L(X)>70!($L(X)<3) X"
^DD(615.02,1,3)="ANSWER MUST BE 3-70 CHARACTERS IN LENGTH"
^DD(615.02,1,21,0)="^^2^2^2841212^"
^DD(615.02,1,21,1,0)="This free text entry allows adding another indicator not found in the"
^DD(615.02,1,21,2,0)="pre-set list associated with that problem."
^DD(615.02,1,"DT")="2911212"
^DD(615.02,2,0)="STAFF^P200'^VA(200,^0;3^Q"
^DD(615.02,2,3)=""
^DD(615.02,2,21,0)="^^1^1^2841212^"
^DD(615.02,2,21,1,0)="Person entering the indicator."
^DD(615.02,2,"DT")="2911212"
^DD(615.02,3,0)="INDICATOR DATE^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(615.02,3,21,0)="^^1^1^2841212^"
^DD(615.02,3,21,1,0)="Date problem indicator was entered."
^DD(615.02,3,"DT")="2840904"
^DD(615.02,"B","INDICATOR DATE",3)=""
^DD(615.02,"B","PROBLEM INDICATOR",.01)=""
^DD(615.02,"B","SPECIFY OTHER INDICATOR",1)=""
^DD(615.02,"B","STAFF",2)=""
^DD(615.02,"GL",0,1,.01)=""
^DD(615.02,"GL",0,2,1)=""
^DD(615.02,"GL",0,3,2)=""
^DD(615.02,"GL",0,4,3)=""
^DD(615.02,"RQ",3)=""
^DD(615.03,0)="STATUS DATE SUB-FIELD^NL^4^5"
^DD(615.03,0,"DT")="2920218"
^DD(615.03,0,"NM","STATUS DATE")=""
^DD(615.03,0,"UP")="615.01"
^DD(615.03,.01,0)="DATE/TIME OF PROBLEM STATUS^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(615.03,.01,3)="TO ENTER STATUS OF A PROBLEM (E.G., ACTIVE, INACTIVE) THE DATE MUST FIRST BE ENTERED."
^DD(615.03,.01,21,0)="^^1^1^2890713^^^^"
^DD(615.03,.01,21,1,0)="DATE PROBLEM STATUS WAS ENTERED OR CHANGED"
^DD(615.03,.01,"DT")="2841015"
^DD(615.03,1,0)="STATUS^RS^AC:active;IN:inactive;RA:reactived;RF:reformulated;RS:resolved;RA:ra (reactivated);RF:rf (reformulated);RS:rs (resolved);^0;2^Q"
^DD(615.03,1,21,0)="^^2^2^2920218^^^^"
^DD(615.03,1,21,1,0)="Indicates status (e.g., Active, Inactive, Reformulated,"
^DD(615.03,1,21,2,0)="Resolved) of the problem."
^DD(615.03,1,"DT")="2920218"
^DD(615.03,2,0)="REFORMULATE TO^RS^DSM:dsm (DSM-III-R) diagnosis;ICD:icd (ICD9) diagnosis;EP:existing problem;NP:new problem;OT:other problem;EP:ep (existing problem);NP:np (new problem);OT:op (other problem);^0;3^Q"
^DD(615.03,2,3)=""
^DD(615.03,2,21,0)="^^1^1^2920218^^^^"
^DD(615.03,2,21,1,0)="Problem name to which an existing problem has been reformulated."
^DD(615.03,2,"DT")="2920218"
^DD(615.03,3,0)="REFORMULATION^NJ9,3^^0;4^K:+X'=X!(X>99999)!(X<.01)!(X?.E1"".""4N.N) X"
^DD(615.03,3,3)="TYPE A NUMBER BETWEEN .01 AND 99999"
^DD(615.03,3,21,0)="^^2^2^2890713^^"
^DD(615.03,3,21,1,0)="This number reflects the number of the problem, the DSM3 number or"
^DD(615.03,3,21,2,0)="ICD9 number to which the old problem has been reformulated."
^DD(615.03,3,"DT")="2840628"
^DD(615.03,4,0)="STAFF^P200'^VA(200,^0;5^Q"
^DD(615.03,4,21,0)="^^1^1^2841212^"
^DD(615.03,4,21,1,0)="Person who has entered or changed the problem status."
^DD(615.03,4,"DT")="2911212"
^DD(615.03,"B","DATE/TIME OF PROBLEM STATUS",.01)=""
^DD(615.03,"B","REFORMULATE TO",2)=""
^DD(615.03,"B","REFORMULATION",3)=""
^DD(615.03,"B","STAFF",4)=""
^DD(615.03,"B","STATUS",1)=""
^DD(615.03,"GL",0,1,.01)=""
^DD(615.03,"GL",0,2,1)=""
^DD(615.03,"GL",0,3,2)=""
^DD(615.03,"GL",0,4,3)=""
^DD(615.03,"GL",0,5,4)=""
^DD(615.03,"RQ",.01)=""
^DD(615.03,"RQ",1)=""
^DD(615.03,"RQ",2)=""
^DD(615.2,0)="FIELD^^60^33"
^DD(615.2,0,"DDA")="N"
^DD(615.2,0,"DIK")="YSXRAK"
^DD(615.2,0,"DIKOLD")="YSXRAK"
^DD(615.2,0,"DT")="2921130"
^DD(615.2,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(615.2,0,"ID",.03)="W ""   "",$$FMTE^XLFDT($P(^(0),U,3),""5ZD"")"
^DD(615.2,0,"IX","AC",615.2,.02)=""
^DD(615.2,0,"IX","AC1",615.2,44)=""
^DD(615.2,0,"IX","AD",615.2,44)=""
^DD(615.2,0,"IX","AD1",615.2,54)=""
^DD(615.2,0,"IX","AE",615.2,.04)=""
^DD(615.2,0,"IX","AF",615.2,26)=""
^DD(615.2,0,"IX","B",615.2,.01)=""
^DD(615.2,0,"IX","C",615.2,.02)=""
^DD(615.2,0,"NM","SECLUSION/RESTRAINT")=""
^DD(615.2,0,"VR")="5.01"
^DD(615.2,0,"VRPK")="YS"
^DD(615.2,.01,0)="FILE ENTRY DATE^RDX^^0;1^S %DT=""ESTXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(615.2,.01,1,0)="^.1"
^DD(615.2,.01,1,1,0)="615.2^B"
^DD(615.2,.01,1,1,1)="S ^YS(615.2,""B"",$E(X,1,30),DA)="""""
^DD(615.2,.01,1,1,2)="K ^YS(615.2,""B"",$E(X,1,30),DA)"
^DD(615.2,.01,3)=" "
^DD(615.2,.01,21,0)="^^2^2^2920204^^^^"
^DD(615.2,.01,21,1,0)="Actual date/time of entry of transaction into file."
^DD(615.2,.01,21,2,0)="This field is transparent to the user."
^DD(615.2,.01,"AUDIT")="n"
^DD(615.2,.01,"DT")="3001106"
^DD(615.2,.02,0)="NAME^RP2'^DPT(^0;2^Q"
^DD(615.2,.02,.1)="Patient"
^DD(615.2,.02,1,0)="^.1"
^DD(615.2,.02,1,1,0)="615.2^AC^MUMPS"
^DD(615.2,.02,1,1,1)="I '$D(^YS(615.2,DA,40)) S ^YS(615.2,""AC"",$E(X,1,30),DA)="""""
^DD(615.2,.02,1,1,2)="K ^YS(615.2,""AC"",$E(X,1,30),DA)"
^DD(615.2,.02,1,2,0)="615.2^C"
^DD(615.2,.02,1,2,1)="S ^YS(615.2,""C"",$E(X,1,30),DA)="""""
^DD(615.2,.02,1,2,2)="K ^YS(615.2,""C"",$E(X,1,30),DA)"
^DD(615.2,.02,3)=""
^DD(615.2,.02,21,0)="2"
^DD(615.2,.02,21,1,0)="Name (DFN) of patient placed under seclusion and/or restraint for"
^DD(615.2,.02,21,2,0)="this episode."
^DD(615.2,.02,"DT")="2870507"
^DD(615.2,.03,0)="DATE/TIME APPLIED^RDX^^0;3^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(615.2,.03,.1)="Date/Time Applied"
^DD(615.2,.03,1,0)="^.1^^0"
^DD(615.2,.03,3)="YOU MAY NOT ENTER A FUTURE DATE/TIME."
^DD(615.2,.03,21,0)="^^1^1^2881213^^^^"
^DD(615.2,.03,21,1,0)="Date/time seclusion and/or restraint actually applied to patient."
^DD(615.2,.03,"DT")="3001106"
^DD(615.2,.04,0)="WARD^RP44'^SC(^0;4^Q"
^DD(615.2,.04,.1)="Ward"
^DD(615.2,.04,1,0)="^.1"
^DD(615.2,.04,1,1,0)="615.2^AE^MUMPS"
^DD(615.2,.04,1,1,1)="S ^YS(615.2,""AE"",$P(^YS(615.2,DA,0),""^"",3),$E(X,1,30),DA)="""""
^DD(615.2,.04,1,1,2)="K ^YS(615.2,""AE"",$P(^YS(615.2,DA,0),""^"",3),$E(X,1,30),DA)"
^DD(615.2,.04,21,0)="^^1^1^2881102^^^^"
^DD(615.2,.04,21,1,0)="Ward (hospital location) seclusion/restraint occurred."
^DD(615.2,.04,"DT")="2920221"
^DD(615.2,.05,0)="NAME OF NURSE PRESENT^RP200'^VA(200,^0;5^Q"
^DD(615.2,.05,.1)="Nurse Responsible for Seclusion/Restraint"
^DD(615.2,.05,21,0)="^^2^2^2880804^^"
^DD(615.2,.05,21,1,0)="Supervisory nurse responsible for carrying out of seclusion/restraint"
^DD(615.2,.05,21,2,0)="action."
^DD(615.2,.05,"DT")="2870409"
^DD(615.2,.06,0)="NURSING SHIFT^RP211.6'^NURSF(211.6,^0;6^Q"
^DD(615.2,.06,.1)="During what Nursing Shift"
^DD(615.2,.06,21,0)="^^1^1^2890119^^"
^DD(615.2,.06,21,1,0)="Nursing shift during which seclusion/restraint episode commenced."
^DD(615.2,.06,"DT")="2870501"
^DD(615.2,.08,0)="PATIENT SEARCHED^S^Y:YES;N:NO;^0;8^Q"
^DD(615.2,.08,.1)="Was the Patinet Searched"
^DD(615.2,.08,21,0)="^^2^2^2890119^"
^DD(615.2,.08,21,1,0)="Question as to whether or not a patient was searched for possible"
^DD(615.2,.08,21,2,0)="harmful objects on his/her person."
^DD(615.2,.08,"DT")="2870508"
^DD(615.2,.09,0)="SEARCH COMMENT^615.33^^2;0"
^DD(615.2,.09,21,0)="^^2^2^2920221^^"
^DD(615.2,.09,21,1,0)="If a patient was not searched, a reason must be given as to"
^DD(615.2,.09,21,2,0)="why the procedure was not done."
^DD(615.2,4,0)="INITIAL TRANSCRIBER^RP200'^VA(200,^1;4^Q"
^DD(615.2,4,.1)="Initial Transcriber"
^DD(615.2,4,21,0)="^^1^1^2881107^^^"
^DD(615.2,4,21,1,0)="Person placing information into file.  TRANSPARENT TO USER."
^DD(615.2,4,"DT")="2870501"
^DD(615.2,5,0)="TYPE OF SECLUSION/RESTRAINT^615.34PA^^5;0"
^DD(615.2,5,21,0)="^^1^1^2920221^^^^"
^DD(615.2,5,21,1,0)="Manner in which seclusion/restraint is performed."
^DD(615.2,6,0)="ATTEMPTED ALTERNATIVES^615.35PA^^6;0"
^DD(615.2,6,21,0)="^^2^2^2920221^^^^"
^DD(615.2,6,21,1,0)="Different clinical strategies employed prior to placing patient"
^DD(615.2,6,21,2,0)="into seclusion/restraint."
^DD(615.2,7,0)="DIAGNOSIS^RF^^7;1^K:$L(X)>70!($L(X)<1) X"
^DD(615.2,7,.1)="Diagnosis"
^DD(615.2,7,3)="ANSWER MUST BE 1-70 CHARACTERS IN LENGTH"
^DD(615.2,7,21,0)="^^2^2^2940830^^^^"
^DD(615.2,7,21,1,0)="The diagnosis may be an actual DSM diagnosis selected from"
^DD(615.2,7,21,2,0)="the PTF file or it may be a perceived diagnosis by caretaker."
^DD(615.2,7,"DT")="2920221"
^DD(615.2,10,0)="REASONS FOR S/R^615.21PA^^10;0"
^DD(615.2,10,21,0)="^^1^1^2890119^^^^"
^DD(615.2,10,21,1,0)="A reason for the seclusion/restraint action."
^DD(615.2,15,0)="MEDICATIONS^615.23PA^^15;0"
^DD(615.2,15,21,0)="^^2^2^2890119^^"
^DD(615.2,15,21,1,0)="A list of medications given to the patient during this"
^DD(615.2,15,21,2,0)="seclusion/restraint episode."
^DD(615.2,20,0)="BEHAVIOR REQUIRED FOR RELEASE^615.24PA^^20;0"
^DD(615.2,20,21,0)="^^2^2^2880804^^"
^DD(615.2,20,21,1,0)="Actions required on the part of the patient prior to release"
^DD(615.2,20,21,2,0)="from seclusion/restraint."
^DD(615.2,25,0)="ORDERED BY^R*P200'X^VA(200,^25;1^S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"",D=""AK.PROVIDER"" D MIX^DIC1 K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(615.2,25,12)="Selection must be made from active Physicians who hold the PROVIDER security key."
^DD(615.2,25,12.1)="S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"""
^DD(615.2,25,21,0)="^^1^1^2921130^^"
^DD(615.2,25,21,1,0)="Caretaker responsible for initiating the seclusion/restraint action."
^DD(615.2,25,"DT")="2921130"
^DD(615.2,26,0)="ORDER TYPE^RS^w:WRITTEN;e:EMERGENCY;p:PHONE;^25;2^Q"
^DD(615.2,26,1,0)="^.1"
^DD(615.2,26,1,1,0)="615.2^AF^MUMPS"
^DD(615.2,26,1,1,1)="I ""Ww""'[X S ^YS(615.2,""AF"",$P(^YS(615.2,DA,0),""^"",2),DA)="""""
^DD(615.2,26,1,1,2)="K ^YS(615.2,""AF"",$P(^YS(615.2,DA,0),""^"",2),DA)"
^DD(615.2,26,1,1,"DT")="2911231"
^DD(615.2,26,21,0)="^^2^2^2880804^^^"
^DD(615.2,26,21,1,0)="Method by which the seclusion/restraint order was conveyed"
^DD(615.2,26,21,2,0)="by the responsible caretaker to appropriate personnel."
^DD(615.2,26,"DT")="2911231"
^DD(615.2,27,0)="DATE/TIME OF ORDER^RD^^25;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(615.2,27,21,0)="^^2^2^2880804^"
^DD(615.2,27,21,1,0)="Date and time the order was written, phoned or the situation required"
^DD(615.2,27,21,2,0)="emergency action."
^DD(615.2,27,"DT")="2880804"
^DD(615.2,28,0)="DATE ORDER CHANGED^RD^^25;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(615.2,28,21,0)="^^2^2^2880805^"
^DD(615.2,28,21,1,0)="Field will only contain data when the order is altered.  It indicates"
^DD(615.2,28,21,2,0)="the date and time the order was changed.  TRANSPARENT TO USER."
^DD(615.2,28,"DT")="2880805"
^DD(615.2,30,0)="GENERAL COMMENTS^615.27^^30;0"
^DD(615.2,30,21,0)="^^1^1^2880119^"
^DD(615.2,30,21,1,0)="Additional comments concerning this seclusion/restraint episode."
^DD(615.2,40,0)="RELEASE ORDERED BY^*RP200'X^VA(200,^40;1^S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"",D=""AK.PROVIDER"" D MIX^DIC1 K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(615.2,40,12)="Selection must be made from active PROVIDERS who hold the PROVIDER security key."
^DD(615.2,40,12.1)="S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"""
^DD(615.2,40,21,0)="2911115"
^DD(615.2,40,21,1,0)="Caretaker ordering cessation of seclusion/restraint order."
^DD(615.2,41,0)="PERSONNEL EFFECTING RELEASE^RP200'^VA(200,^40;2^Q"
^DD(615.2,41,21,0)="^^2^2^2880119^"
^DD(615.2,41,21,1,0)="Personnel actually performing release of patient from"
^DD(615.2,41,21,2,0)="seclusion/restraint."
^DD(615.2,42,0)="TIME REMOVED^RDX^^40;3^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X) S Z=$P(^YS(615.2,DA,0),U,3) K:X<Z X K Z,%DT(0)"
^DD(615.2,42,1,0)="^.1^^0"
^DD(615.2,42,3)="ENTRY OF DATE/TIME MAY NOT BE EARLIER THAN TIME APPLIED NOR IS ENTRY OF A FUTURE DATE PERMITTED.  TIME MUST BE ENTERED."
^DD(615.2,42,21,0)="^^1^1^2880119^^"
^DD(615.2,42,21,1,0)="Actual date/time release was performed."
^DD(615.2,42,"AUDIT")="n"
^DD(615.2,42,"DT")="3001106"
^DD(615.2,43,0)="RELEASE TRANSCRIBER^RP200'^VA(200,^40;4^Q"
^DD(615.2,43,21,0)="^^1^1^2880119^"
^DD(615.2,43,21,1,0)="Person entering release information into file.  TRANSPARENT TO USER."
^DD(615.2,44,0)="RELEASE FILED^RD^^40;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(615.2,44,1,0)="^.1"
^DD(615.2,44,1,1,0)="615.2^AC1^MUMPS"
^DD(615.2,44,1,1,1)="K ^YS(615.2,""AC"",$P(^YS(615.2,DA,0),""^"",2),DA)"
^DD(615.2,44,1,1,2)="K ^YS(615.2,""AC"",$P(^YS(615.2,DA,0),""^"",2),DA)"
^DD(615.2,44,1,2,0)="615.2^AD^MUMPS"
^DD(615.2,44,1,2,1)="S ^YS(615.2,""AD"",$P(^YS(615.2,DA,0),""^"",2),DA)="""""
^DD(615.2,44,1,2,2)="K ^YS(615.2,""AD"",$P(^YS(615.2,DA,0),""^"",2),DA)"
^DD(615.2,44,21,0)="^^1^1^2880119^"
^DD(615.2,44,21,1,0)="Date/time release information placed in file.  TRANSPARENT TO USER."
^DD(615.2,44,"DT")="2870409"
^DD(615.2,45,0)="CIRCUMSTANCES/FURTHER ACTIONS^615.28^^45;0"
^DD(615.2,45,21,0)="^^1^1^2881102^^"
^DD(615.2,45,21,1,0)="Narrative concerning release action and possible follow-up care."
^DD(615.2,50,0)="REVIEWED BY^RP200'^VA(200,^50;1^Q"
^DD(615.2,50,21,0)="^^1^1^2880119^"
^DD(615.2,50,21,1,0)="Personnel, in authority, reviewing action."
^DD(615.2,50,"DT")="2870410"
^DD(615.2,51,0)="ACTION^RS^A:APPROPRIATE;I:INAPPROPRIATE;O:OTHER (See Reviewer's Comments);^50;2^Q"
^DD(615.2,51,21,0)="^^2^2^2880119^"
^DD(615.2,51,21,1,0)="Decision of the reviewer as to whether or not action taken was"
^DD(615.2,51,21,2,0)="appropriate."
^DD(615.2,51,"AUDIT")="n"
^DD(615.2,51,"DT")="2870410"
^DD(615.2,52,0)="ACTUAL DATE OF REVIEW^RD^^50;3^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(615.2,52,21,0)="^^1^1^2880119^"
^DD(615.2,52,21,1,0)="Actual date/time review was made by personnel."
^DD(615.2,52,"DT")="2870410"
^DD(615.2,53,0)="REVIEW TRANSCRIBER^RP200'^VA(200,^50;4^Q"
^DD(615.2,53,21,0)="^^1^1^2880119^"
^DD(615.2,53,21,1,0)="Personnel entering review into file.  TRANSPARENT TO USER."
^DD(615.2,53,"DT")="2870410"
^DD(615.2,54,0)="REVIEW FILED^RDX^^50;5^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(615.2,54,1,0)="^.1"
^DD(615.2,54,1,1,0)="615.2^AD1^MUMPS"
^DD(615.2,54,1,1,1)="K ^YS(615.2,""AD"",$P(^YS(615.2,DA,0),""^"",2),DA)"
^DD(615.2,54,1,1,2)="K ^YS(615.2,""AD"",$P(^YS(615.2,DA,0),""^"",2),DA)"
^DD(615.2,54,21,0)="^^1^1^2880119^"
^DD(615.2,54,21,1,0)="Actual date/time review entered into file by transcriber."
^DD(615.2,54,"DT")="3001106"
^DD(615.2,55,0)="REVIEWER'S COMMENTS^615.29^^55;0"
^DD(615.2,55,21,0)="^^1^1^2880119^"
^DD(615.2,55,21,1,0)="Narrative of additional comments provided by the reviewer."
^DD(615.2,60,0)="OBSERVATION CHECK TIME^615.3DA^^60;0"
^DD(615.2,60,21,0)="^^2^2^2890119^^^^"
^DD(615.2,60,21,1,0)="A history of observations performed during a single patient"
^DD(615.2,60,21,2,0)="episode."
^DD(615.2,"B","ACTION",51)=""
^DD(615.2,"B","ACTUAL DATE OF REVIEW",52)=""
^DD(615.2,"B","ATTEMPTED ALTERNATIVES",6)=""
^DD(615.2,"B","BEHAVIOR REQUIRED FOR RELEASE",20)=""
^DD(615.2,"B","CIRCUMSTANCES/FURTHER ACTIONS",45)=""
^DD(615.2,"B","DATE ORDER CHANGED",28)=""
^DD(615.2,"B","DATE/TIME APPLIED",.03)=""
^DD(615.2,"B","DATE/TIME OF ORDER",27)=""
^DD(615.2,"B","DIAGNOSIS",7)=""
^DD(615.2,"B","Date/Time Applied",.03)="1"
^DD(615.2,"B","Diagnosis",7)="1"
^DD(615.2,"B","During what Nursing Shift",.06)="1"
^DD(615.2,"B","FILE ENTRY DATE",.01)=""
^DD(615.2,"B","GENERAL COMMENTS",30)=""
^DD(615.2,"B","INITIAL TRANSCRIBER",4)=""
^DD(615.2,"B","Initial Transcriber",4)="1"
^DD(615.2,"B","MEDICATIONS",15)=""
^DD(615.2,"B","NAME",.02)=""
^DD(615.2,"B","NAME OF NURSE PRESENT",.05)=""
^DD(615.2,"B","NURSING SHIFT",.06)=""
^DD(615.2,"B","OBSERVATION CHECK TIME",60)=""
^DD(615.2,"B","ORDER TYPE",26)=""
^DD(615.2,"B","ORDERED BY",25)=""
^DD(615.2,"B","PATIENT SEARCHED",.08)=""
^DD(615.2,"B","PERSONNEL EFFECTING RELEASE",41)=""
^DD(615.2,"B","Patient",.02)="1"
^DD(615.2,"B","REASONS FOR S/R",10)=""
^DD(615.2,"B","RELEASE FILED",44)=""
^DD(615.2,"B","RELEASE ORDERED BY",40)=""
^DD(615.2,"B","RELEASE TRANSCRIBER",43)=""
^DD(615.2,"B","REVIEW FILED",54)=""
^DD(615.2,"B","REVIEW TRANSCRIBER",53)=""
^DD(615.2,"B","REVIEWED BY",50)=""
^DD(615.2,"B","REVIEWER'S COMMENTS",55)=""
^DD(615.2,"B","SEARCH COMMENT",.09)=""
^DD(615.2,"B","TIME REMOVED",42)=""
^DD(615.2,"B","TYPE OF SECLUSION/RESTRAINT",5)=""
^DD(615.2,"B","WARD",.04)=""
^DD(615.2,"B","Ward",.04)="1"
^DD(615.2,"B","Was the Patinet Searched",.08)="1"
^DD(615.2,"GL",0,1,.01)=""
^DD(615.2,"GL",0,2,.02)=""
^DD(615.2,"GL",0,3,.03)=""
^DD(615.2,"GL",0,4,.04)=""
^DD(615.2,"GL",0,5,.05)=""
^DD(615.2,"GL",0,6,.06)=""
^DD(615.2,"GL",0,8,.08)=""
^DD(615.2,"GL",1,4,4)=""
^DD(615.2,"GL",2,0,.09)=""
^DD(615.2,"GL",5,0,5)=""
^DD(615.2,"GL",6,0,6)=""
^DD(615.2,"GL",7,1,7)=""
^DD(615.2,"GL",10,0,10)=""
^DD(615.2,"GL",15,0,15)=""
^DD(615.2,"GL",20,0,20)=""
^DD(615.2,"GL",25,1,25)=""
^DD(615.2,"GL",25,2,26)=""
^DD(615.2,"GL",25,3,27)=""
^DD(615.2,"GL",25,4,28)=""
^DD(615.2,"GL",30,0,30)=""
^DD(615.2,"GL",40,1,40)=""
^DD(615.2,"GL",40,2,41)=""
^DD(615.2,"GL",40,3,42)=""
^DD(615.2,"GL",40,4,43)=""
^DD(615.2,"GL",40,5,44)=""
^DD(615.2,"GL",45,0,45)=""
^DD(615.2,"GL",50,1,50)=""
^DD(615.2,"GL",50,2,51)=""
^DD(615.2,"GL",50,3,52)=""
^DD(615.2,"GL",50,4,53)=""
^DD(615.2,"GL",50,5,54)=""
^DD(615.2,"GL",55,0,55)=""
^DD(615.2,"GL",60,0,60)=""
^DD(615.2,"IX",.01)=""
^DD(615.2,"IX",.02)=""
^DD(615.2,"IX",.04)=""
^DD(615.2,"IX",26)=""
^DD(615.2,"IX",44)=""
^DD(615.2,"IX",54)=""
^DD(615.2,"RQ",.01)=""
^DD(615.2,"RQ",.02)=""
^DD(615.2,"RQ",.03)=""
^DD(615.2,"RQ",.04)=""
^DD(615.2,"RQ",.05)=""
^DD(615.2,"RQ",.06)=""
^DD(615.2,"RQ",4)=""
^DD(615.2,"RQ",7)=""
^DD(615.2,"RQ",25)=""
^DD(615.2,"RQ",26)=""
^DD(615.2,"RQ",27)=""
^DD(615.2,"RQ",28)=""
^DD(615.2,"RQ",40)=""
^DD(615.2,"RQ",41)=""
^DD(615.2,"RQ",42)=""
^DD(615.2,"RQ",43)=""
^DD(615.2,"RQ",44)=""
^DD(615.2,"RQ",50)=""
^DD(615.2,"RQ",51)=""
^DD(615.2,"RQ",52)=""
^DD(615.2,"RQ",53)=""
^DD(615.2,"RQ",54)=""
^DD(615.2,"SB",615.21,10)=""
^DD(615.2,"SB",615.23,15)=""
^DD(615.2,"SB",615.24,20)=""
^DD(615.2,"SB",615.27,30)=""
^DD(615.2,"SB",615.28,45)=""
^DD(615.2,"SB",615.29,55)=""
^DD(615.2,"SB",615.3,60)=""
^DD(615.2,"SB",615.33,.09)=""
^DD(615.2,"SB",615.34,5)=""
^DD(615.2,"SB",615.35,6)=""
^DD(615.21,0)="REASONS FOR S/R SUB-FIELD^^1^2"
^DD(615.21,0,"DIK")="YSXRAK"
^DD(615.21,0,"IX","B",615.21,.01)=""
^DD(615.21,0,"NM","REASONS FOR S/R")=""
^DD(615.21,0,"UP")="615.2"
^DD(615.21,.01,0)="REASONS FOR S/R^MRP615.5'^YSR(615.5,^0;1^Q"
^DD(615.21,.01,.1)="Reasons for Seclusion/Restraint"
^DD(615.21,.01,1,0)="^.1"
^DD(615.21,.01,1,1,0)="615.21^B"
^DD(615.21,.01,1,1,1)="S ^YS(615.2,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(615.21,.01,1,1,2)="K ^YS(615.2,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(615.21,.01,21,0)="^^2^2^2890119^"
^DD(615.21,.01,21,1,0)="Select from the list of possible reasons that necessitated the"
^DD(615.21,.01,21,2,0)="seclusion/restraint action."
^DD(615.21,.01,"DT")="2920221"
^DD(615.21,1,0)="DESCRIBE CIRCUMSTANCES^RF^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(615.21,1,.1)="Circumstances at the time"
^DD(615.21,1,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(615.21,1,21,0)="^^2^2^2890119^"
^DD(615.21,1,21,1,0)="A brief narrative describing the circumstances which necessitated"
^DD(615.21,1,21,2,0)="the seclusion/restraint action."
^DD(615.21,1,"DT")="2920221"
^DD(615.21,"B","Circumstances at the time",1)="1"
^DD(615.21,"B","DESCRIBE CIRCUMSTANCES",1)=""
^DD(615.21,"B","REASONS FOR S/R",.01)=""
^DD(615.21,"GL",0,1,.01)=""
^DD(615.21,"GL",0,2,1)=""
^DD(615.21,"IX",.01)=""
^DD(615.21,"RQ",.01)=""
^DD(615.21,"RQ",1)=""
^DD(615.23,0)="MEDICATIONS SUB-FIELD^^.01^1"
^DD(615.23,0,"DIK")="YSXRAK"
^DD(615.23,0,"IX","B",615.23,.01)=""
^DD(615.23,0,"NM","MEDICATIONS")=""
^DD(615.23,0,"UP")="615.2"
^DD(615.23,.01,0)="MEDICATIONS^MP50'^PSDRUG(^0;1^Q"
^DD(615.23,.01,.1)="Patient's Medications"
^DD(615.23,.01,1,0)="^.1"
^DD(615.23,.01,1,1,0)="615.23^B"
^DD(615.23,.01,1,1,1)="S ^YS(615.2,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(615.23,.01,1,1,2)="K ^YS(615.2,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(615.23,.01,"DT")="2920221"
^DD(615.23,"B","MEDICATIONS",.01)=""
^DD(615.23,"B","Patient's Medications",.01)="1"
^DD(615.23,"GL",0,1,.01)=""
^DD(615.23,"IX",.01)=""
^DD(615.24,0)="BEHAVIOR REQUIRED FOR RELEASE SUB-FIELD^^.01^1"
^DD(615.24,0,"DIK")="YSXRAK"
^DD(615.24,0,"IX","B",615.24,.01)=""
^DD(615.24,0,"NM","BEHAVIOR REQUIRED FOR RELEASE")=""
^DD(615.24,0,"UP")="615.2"
^DD(615.24,.01,0)="BEHAVIOR REQUIRED FOR RELEASE^MP615.7'^YSR(615.7,^0;1^Q"
^DD(615.24,.01,.1)="Behavior Required for Release"
^DD(615.24,.01,1,0)="^.1"
^DD(615.24,.01,1,1,0)="615.24^B"
^DD(615.24,.01,1,1,1)="S ^YS(615.2,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(615.24,.01,1,1,2)="K ^YS(615.2,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(615.24,.01,"DT")="2920221"
^DD(615.24,"B","BEHAVIOR REQUIRED FOR RELEASE",.01)=""
^DD(615.24,"B","Behavior Required for Release",.01)="1"
^DD(615.24,"GL",0,1,.01)=""
^DD(615.24,"IX",.01)=""
^DD(615.27,0)="GENERAL COMMENTS SUB-FIELD^^.01^1"
^DD(615.27,0,"NM","GENERAL COMMENTS")=""
^DD(615.27,0,"UP")="615.2"
^DD(615.27,.01,0)="GENERAL COMMENTS^WL^^0;1^Q"
^DD(615.27,"B","GENERAL COMMENTS",.01)=""
^DD(615.27,"GL",0,1,.01)=""
^DD(615.28,0)="CIRCUMSTANCES/FURTHER ACTIONS SUB-FIELD^^.01^1"
^DD(615.28,0,"NM","CIRCUMSTANCES/FURTHER ACTIONS")=""
^DD(615.28,0,"UP")="615.2"
^DD(615.28,.01,0)="CIRCUMSTANCES/FURTHER ACTIONS^WL^^0;1^Q"
^DD(615.28,"B","CIRCUMSTANCES/FURTHER ACTIONS",.01)=""
^DD(615.28,"GL",0,1,.01)=""
^DD(615.29,0)="REVIEWER'S COMMENTS SUB-FIELD^^.01^1"
^DD(615.29,0,"NM","REVIEWER'S COMMENTS")=""
^DD(615.29,0,"UP")="615.2"
^DD(615.29,.01,0)="REVIEWER'S COMMENTS^WL^^0;1^Q"
^DD(615.29,.01,"DT")="2870410"
^DD(615.29,"B","REVIEWER'S COMMENTS",.01)=""
^DD(615.29,"GL",0,1,.01)=""
^DD(615.3,0)="OBSERVATION CHECK TIME SUB-FIELD^^4^5"
^DD(615.3,0,"NM","OBSERVATION CHECK TIME")=""
^DD(615.3,0,"UP")="615.2"
^DD(615.3,.01,0)="CHECK TIME^MRDX^^0;1^S %DT=""EXTR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $D(X) S Z=$P(^YS(615.2,DA(1),0),U,3) K:X<Z X K Z,%DT(0)"
^DD(615.3,.01,3)="ENTRY OF DATE/TIME MAY NOT BE EARLIER THAN TIME APPLIED NOR IS ENTRY OF FUTURE DATE/TIME PERMITTED."
^DD(615.3,.01,21,0)="^^1^1^2880119^"
^DD(615.3,.01,21,1,0)="Actual date/time observation made."
^DD(615.3,.01,"AUDIT")="n"
^DD(615.3,.01,"DT")="3001106"
^DD(615.3,1,0)="PERSONNEL OBSERVING^RP200'a^VA(200,^0;2^Q"
^DD(615.3,1,21,0)="^^1^1^2880119^"
^DD(615.3,1,21,1,0)="Caretaker performing observation."
^DD(615.3,1,"AUDIT")="y"
^DD(615.3,1,"DT")="2870410"
^DD(615.3,2,0)="OBSERVATION TRANSCRIBER^P200'^VA(200,^0;3^Q"
^DD(615.3,2,21,0)="^^1^1^2880119^"
^DD(615.3,2,21,1,0)="Personnel entering observation information into file.  TRANSPARENT TO USER."
^DD(615.3,2,"DT")="2880119"
^DD(615.3,3,0)="OBSERVATION FILED^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(615.3,3,21,0)="^^1^1^2880119^"
^DD(615.3,3,21,1,0)="Date/time observation actually placed in file."
^DD(615.3,3,"DT")="2870410"
^DD(615.3,4,0)="OBSERVATION CODE^615.31PA^^60;0"
^DD(615.3,4,21,0)="^^2^2^2880804^^"
^DD(615.3,4,21,1,0)="A listing of codes used to describe patient's actions during"
^DD(615.3,4,21,2,0)="time of observation."
^DD(615.3,"AUDIT",1)=""
^DD(615.3,"B","CHECK TIME",.01)=""
^DD(615.3,"B","OBSERVATION CODE",4)=""
^DD(615.3,"B","OBSERVATION FILED",3)=""
^DD(615.3,"B","OBSERVATION TRANSCRIBER",2)=""
^DD(615.3,"B","PERSONNEL OBSERVING",1)=""
^DD(615.3,"GL",0,1,.01)=""
^DD(615.3,"GL",0,2,1)=""
^DD(615.3,"GL",0,3,2)=""
^DD(615.3,"GL",0,4,3)=""
^DD(615.3,"GL",60,0,4)=""
^DD(615.3,"RQ",.01)=""
^DD(615.3,"RQ",1)=""
^DD(615.3,"SB",615.31,4)=""
^DD(615.31,0)="OBSERVATION CODE SUB-FIELD^^1^2"
^DD(615.31,0,"NM","OBSERVATION CODE")=""
^DD(615.31,0,"UP")="615.3"
^DD(615.31,.01,0)="OBSERVATION CODE^MP615.9'^YSR(615.9,^0;1^Q"
^DD(615.31,.01,3)=""
^DD(615.31,.01,"DT")="2880804"
^DD(615.31,1,0)="COMMENT^615.32^^1;0"
^DD(615.31,1,21,0)="^^1^1^2880119^"
^DD(615.31,1,21,1,0)="Supplemental narrative regarding patient's actions."
^DD(615.31,"B","COMMENT",1)=""
^DD(615.31,"B","OBSERVATION CODE",.01)=""
^DD(615.31,"GL",0,1,.01)=""
^DD(615.31,"GL",1,0,1)=""
^DD(615.31,"SB",615.32,1)=""
^DD(615.32,0)="COMMENT SUB-FIELD^^.01^1"
^DD(615.32,0,"NM","COMMENT")=""
^DD(615.32,0,"UP")="615.31"
^DD(615.32,.01,0)="COMMENT^WL^^0;1^Q"
^DD(615.32,.01,"DT")="2870424"
^DD(615.32,"B","COMMENT",.01)=""
^DD(615.32,"GL",0,1,.01)=""
^DD(615.33,0)="SEARCH COMMENT SUB-FIELD^^.01^1"
^DD(615.33,0,"NM","SEARCH COMMENT")=""
^DD(615.33,0,"UP")="615.2"
^DD(615.33,.01,0)="SEARCH COMMENT^WL^^0;1^Q"
^DD(615.33,.01,.1)="Search Comments"
^DD(615.33,.01,"DT")="2920221"
^DD(615.33,"B","SEARCH COMMENT",.01)=""
^DD(615.33,"B","Search Comments",.01)="1"
^DD(615.33,"GL",0,1,.01)=""
^DD(615.34,0)="TYPE OF SECLUSION/RESTRAINT SUB-FIELD^^.01^1"
^DD(615.34,0,"DIK")="YSXRAK"
^DD(615.34,0,"IX","B",615.34,.01)=""
^DD(615.34,0,"NM","TYPE OF SECLUSION/RESTRAINT")=""
^DD(615.34,0,"UP")="615.2"
^DD(615.34,.01,0)="TYPE OF SECLUSION/RESTRAINT^MRP615.6'^YSR(615.6,^0;1^Q"
^DD(615.34,.01,.1)="Type of Seclusion/Restraint Applied"
^DD(615.34,.01,1,0)="^.1"
^DD(615.34,.01,1,1,0)="615.34^B"
^DD(615.34,.01,1,1,1)="S ^YS(615.2,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(615.34,.01,1,1,2)="K ^YS(615.2,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(615.34,.01,3)="Answer with one or more of the types of seclusion/restraint listed."
^DD(615.34,.01,"DT")="2920221"
^DD(615.34,"B","TYPE OF SECLUSION/RESTRAINT",.01)=""
^DD(615.34,"GL",0,1,.01)=""
^DD(615.34,"IX",.01)=""
^DD(615.34,"RQ",.01)=""
^DD(615.35,0)="ATTEMPTED ALTERNATIVES SUB-FIELD^^1^2"
^DD(615.35,0,"DIK")="YSXRAK"
^DD(615.35,0,"IX","B",615.35,.01)=""
^DD(615.35,0,"NM","ATTEMPTED ALTERNATIVES")=""
^DD(615.35,0,"UP")="615.2"
^DD(615.35,.01,0)="ATTEMPTED ALTERNATIVES^MRP615.8'^YSR(615.8,^0;1^Q"
^DD(615.35,.01,.1)="Alternatives Attempted"
^DD(615.35,.01,1,0)="^.1"
^DD(615.35,.01,1,1,0)="615.35^B"
^DD(615.35,.01,1,1,1)="S ^YS(615.2,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(615.35,.01,1,1,2)="K ^YS(615.2,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(615.35,.01,3)="Answer with one or more of the attempted alternatives listed."
^DD(615.35,.01,"DT")="2920221"
^DD(615.35,1,0)="RESULTS^615.351^^1;0"
^DD(615.35,1,21,0)="^^1^1^2920221^^^"
^DD(615.35,1,21,1,0)="Supplemental narrative regarding patient's actions."
^DD(615.35,"B","ATTEMPTED ALTERNATIVES",.01)=""
^DD(615.35,"B","Alternatives Attempted",.01)="1"
^DD(615.35,"B","RESULTS",1)=""
^DD(615.35,"GL",0,1,.01)=""
^DD(615.35,"GL",1,0,1)=""
^DD(615.35,"IX",.01)=""
^DD(615.35,"RQ",.01)=""
^DD(615.35,"SB",615.351,1)=""
^DD(615.351,0)="RESULTS SUB-FIELD^^.01^1"
^DD(615.351,0,"NM","RESULTS")=""
^DD(615.351,0,"UP")="615.35"
^DD(615.351,.01,0)="RESULTS^W^^0;1^Q"
^DD(615.351,.01,.1)="Results of Alternatives"
^DD(615.351,.01,"DT")="2920221"
^DD(615.351,"B","RESULTS",.01)=""
^DD(615.351,"B","Results of Alternatives",.01)="1"
^DD(615.351,"GL",0,1,.01)=""
^DD(615.5,0)="FIELD^^.01^2"
^DD(615.5,0,"DDA")="N"
^DD(615.5,0,"DIK")="YSXRAL"
^DD(615.5,0,"DIKOLD")="YSXRAL"
^DD(615.5,0,"DT")="2930323"
^DD(615.5,0,"IX","B",615.5,.01)=""
^DD(615.5,0,"NM","S/R REASONS")=""
^DD(615.5,0,"PT",615.21,.01)=""
^DD(615.5,0,"VR")="5.01"
^DD(615.5,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(615.5,.001,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(615.5,.001,21,0)="^^1^1^2930323^"
^DD(615.5,.001,21,1,0)="Internal entry number of the record in the file."
^DD(615.5,.001,"DT")="2930323"
^DD(615.5,.01,0)="REASON^RF^^0;1^K:$L(X)>60!($L(X)<1)!'(X'?1P.E) X"
^DD(615.5,.01,1,0)="^.1"
^DD(615.5,.01,1,1,0)="615.5^B"
^DD(615.5,.01,1,1,1)="S ^YSR(615.5,""B"",$E(X,1,30),DA)="""""
^DD(615.5,.01,1,1,2)="K ^YSR(615.5,""B"",$E(X,1,30),DA)"
^DD(615.5,.01,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(615.5,.01,21,0)="^^1^1^2880804^^^"
^DD(615.5,.01,21,1,0)="Brief descriptive describing cause for seclusion/restraint."
^DD(615.5,"B","NUMBER",.001)=""
^DD(615.5,"B","REASON",.01)=""
^DD(615.5,"GL",0,1,.01)=""
^DD(615.5,"IX",.01)=""
^DD(615.5,"RQ",.01)=""
^DD(615.6,0)="FIELD^^.01^2"
^DD(615.6,0,"DDA")="N"
^DD(615.6,0,"DIK")="YSXRAM"
^DD(615.6,0,"DIKOLD")="YSXRAM"
^DD(615.6,0,"IX","B",615.6,.01)=""
^DD(615.6,0,"NM","S/R CATEGORY")=""
^DD(615.6,0,"PT",615.34,.01)=""
^DD(615.6,0,"VR")="5.01"
^DD(615.6,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(615.6,.001,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(615.6,.001,21,0)="^^1^1^2930323^"
^DD(615.6,.001,21,1,0)="Internal entry number of the record in the file."
^DD(615.6,.01,0)="TYPE^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(615.6,.01,1,0)="^.1"
^DD(615.6,.01,1,1,0)="615.6^B"
^DD(615.6,.01,1,1,1)="S ^YSR(615.6,""B"",$E(X,1,30),DA)="""""
^DD(615.6,.01,1,1,2)="K ^YSR(615.6,""B"",$E(X,1,30),DA)"
^DD(615.6,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(615.6,.01,21,0)="^^1^1^2880804^^"
^DD(615.6,.01,21,1,0)="Brief descriptive narrative describing category of seclusion/restraint."
^DD(615.6,"B","NUMBER",.001)=""
^DD(615.6,"B","TYPE",.01)=""
^DD(615.6,"GL",0,1,.01)=""
^DD(615.6,"IX",.01)=""
^DD(615.6,"RQ",.01)=""
^DD(615.7,0)="FIELD^^.01^2"
^DD(615.7,0,"DDA")="N"
^DD(615.7,0,"DIK")="YSXRAN"
^DD(615.7,0,"DIKOLD")="YSXRAN"
^DD(615.7,0,"IX","B",615.7,.01)=""
^DD(615.7,0,"NM","S/R RELEASE CRITERIA")=""
^DD(615.7,0,"PT",615.24,.01)=""
^DD(615.7,0,"VR")="5.01"
^DD(615.7,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(615.7,.001,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(615.7,.001,21,0)="^^1^1^2930323^"
^DD(615.7,.001,21,1,0)="Internal entry number of the record in the file."
^DD(615.7,.01,0)="CRITERIA^RF^^0;1^K:$L(X)>80!($L(X)<2)!'(X'?1P.E) X"
^DD(615.7,.01,1,0)="^.1"
^DD(615.7,.01,1,1,0)="615.7^B"
^DD(615.7,.01,1,1,1)="S ^YSR(615.7,""B"",$E(X,1,30),DA)="""""
^DD(615.7,.01,1,1,2)="K ^YSR(615.7,""B"",$E(X,1,30),DA)"
^DD(615.7,.01,3)="ANSWER MUST BE 2-80 CHARACTERS IN LENGTH"
^DD(615.7,.01,21,0)="^^1^1^2880804^"
^DD(615.7,.01,21,1,0)="Short narrative of behavior required for release from seclusion/restraint."
^DD(615.7,"B","CRITERIA",.01)=""
^DD(615.7,"B","NUMBER",.001)=""
^DD(615.7,"GL",0,1,.01)=""
^DD(615.7,"IX",.01)=""
^DD(615.7,"RQ",.01)=""
^DD(615.8,0)="FIELD^^.01^2"
^DD(615.8,0,"DDA")="N"
^DD(615.8,0,"DIK")="YSXRAO"
^DD(615.8,0,"DIKOLD")="YSXRAO"
^DD(615.8,0,"IX","B",615.8,.01)=""
^DD(615.8,0,"NM","S/R ALTERNATIVES")=""
^DD(615.8,0,"PT",615.35,.01)=""
^DD(615.8,0,"VR")="5.01"
^DD(615.8,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(615.8,.001,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(615.8,.001,21,0)="^^1^1^2930323^"
^DD(615.8,.001,21,1,0)="Internal entry number of the record in the file."
^DD(615.8,.01,0)="ALTERNATIVE^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(615.8,.01,1,0)="^.1"
^DD(615.8,.01,1,1,0)="615.8^B"
^DD(615.8,.01,1,1,1)="S ^YSR(615.8,""B"",$E(X,1,30),DA)="""""
^DD(615.8,.01,1,1,2)="K ^YSR(615.8,""B"",$E(X,1,30),DA)"
^DD(615.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(615.8,.01,21,0)="^^2^2^2880804^"
^DD(615.8,.01,21,1,0)="Short narrative describing other course of actions that may be"
^DD(615.8,.01,21,2,0)="take prior to placing a patient in seclusion/restraint."
^DD(615.8,"B","ALTERNATIVE",.01)=""
^DD(615.8,"B","NUMBER",.001)=""
^DD(615.8,"GL",0,1,.01)=""
^DD(615.8,"IX",.01)=""
^DD(615.8,"RQ",.01)=""
^DD(615.9,0)="FIELD^^.01^2"
^DD(615.9,0,"DDA")="N"
^DD(615.9,0,"DIK")="YSXRAP"
^DD(615.9,0,"DIKOLD")="YSXRAP"
^DD(615.9,0,"IX","B",615.9,.01)=""
^DD(615.9,0,"NM","S/R OBSERVATION CHECKLIST")=""
^DD(615.9,0,"PT",615.31,.01)=""
^DD(615.9,0,"VR")="5.01"
^DD(615.9,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(615.9,.001,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(615.9,.001,21,0)="^^1^1^2930323^"
^DD(615.9,.001,21,1,0)="Internal entry number of the record in the file."
^DD(615.9,.01,0)="CHECKLIST ITEM^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(615.9,.01,1,0)="^.1"
^DD(615.9,.01,1,1,0)="615.9^B"
^DD(615.9,.01,1,1,1)="S ^YSR(615.9,""B"",$E(X,1,30),DA)="""""
^DD(615.9,.01,1,1,2)="K ^YSR(615.9,""B"",$E(X,1,30),DA)"
^DD(615.9,.01,3)="ANSWER MUST BE 3-60 CHARACTERS IN LENGTH"
^DD(615.9,.01,21,0)="^^2^2^2880804^"
^DD(615.9,.01,21,1,0)="Short description of possible patient behavior while in"
^DD(615.9,.01,21,2,0)="seclusion/restraint."
^DD(615.9,"B","CHECKLIST ITEM",.01)=""
^DD(615.9,"B","NUMBER",.001)=""
^DD(615.9,"GL",0,1,.01)=""
^DD(615.9,"IX",.01)=""
^DD(615.9,"RQ",.01)=""
^DD(617,0)="FIELD^^2^4"
^DD(617,0,"DDA")="N"
^DD(617,0,"DIK")="YSXRAQ"
^DD(617,0,"DIKOLD")="YSXRAQ"
^DD(617,0,"IX","B",617,.01)=""
^DD(617,0,"NM","MH WAIT LIST")=""
^DD(617,0,"VR")="5.01"
^DD(617,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(617,.01,1,0)="^.1"
^DD(617,.01,1,1,0)="617^B"
^DD(617,.01,1,1,1)="S ^YSG(""WAIT"",""B"",$E(X,1,30),DA)="""""
^DD(617,.01,1,1,2)="K ^YSG(""WAIT"",""B"",$E(X,1,30),DA)"
^DD(617,.01,3)="Enter the name of program for which veteran is awaiting services. Answer must be 3-30 characters in length."
^DD(617,.01,21,0)="^^2^2^2890120^^^^"
^DD(617,.01,21,1,0)="This is the name of the Waiting List. Ordinarily it indicates"
^DD(617,.01,21,2,0)="the service for which the patient will wait, e.g., 'Inpatient ADTP'."
^DD(617,.01,"DT")="2841213"
^DD(617,1,0)="WARD^P42'^DIC(42,^0;2^Q"
^DD(617,1,21,0)="^^2^2^2850521^^^^"
^DD(617,1,21,1,0)="If the Waiting List is set up for a ward, it is designated here."
^DD(617,1,21,2,0)="Points to the hospital's Ward Location file."
^DD(617,1.5,0)="SORT BY ELIGIBILITY^RS^Y:YES;N:NO;^0;3^Q"
^DD(617,1.5,3)="Sorts on SC/NSC eligibility if selected. List displayed in 2 portions."
^DD(617,1.5,21,0)="^^4^4^2890120^^^^"
^DD(617,1.5,21,1,0)="This field determines whether the list will be sorted on SC/NSC priority."
^DD(617,1.5,21,2,0)="If 'Yes' is selected, the list is broken into SC and NSC sections. If"
^DD(617,1.5,21,3,0)="'No' is selected, a single list, prioritized automatically by duration on"
^DD(617,1.5,21,4,0)="the list is kept."
^DD(617,1.5,"DT")="2840623"
^DD(617,2,0)="PATIENT^617.01PA^^1;0"
^DD(617,2,21,0)="^^2^2^2921130^^^^"
^DD(617,2,21,1,0)="This is the name of the patient placed on the list. Points to the "
^DD(617,2,21,2,0)="patient file. Patient must be registered on MAS data base to be added."
^DD(617,"B","NAME",.01)=""
^DD(617,"B","PATIENT",2)=""
^DD(617,"B","SORT BY ELIGIBILITY",1.5)=""
^DD(617,"B","WARD",1)=""
^DD(617,"GL",0,1,.01)=""
^DD(617,"GL",0,2,1)=""
^DD(617,"GL",0,3,1.5)=""
^DD(617,"GL",1,0,2)=""
^DD(617,"IX",.01)=""
^DD(617,"RQ",.01)=""
^DD(617,"RQ",1.5)=""
^DD(617,"SB",617.01,2)=""
^DD(617.01,0)="PATIENT SUB-FIELD^NL^8^9"
^DD(617.01,0,"DIK")="YSXRAQ"
^DD(617.01,0,"IX","B",617.01,.01)=""
^DD(617.01,0,"NM","PATIENT")=""
^DD(617.01,0,"UP")="617"
^DD(617.01,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(617.01,.01,1,0)="^.1"
^DD(617.01,.01,1,1,0)="617.01^B"
^DD(617.01,.01,1,1,1)="S ^YSG(""WAIT"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(617.01,.01,1,1,2)="K ^YSG(""WAIT"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(617.01,.01,3)="Answer with name of registered patient."
^DD(617.01,.01,21,0)="^^2^2^2890120^"
^DD(617.01,.01,21,1,0)="Name of patient enrolled on list.  Patient must be entered into"
^DD(617.01,.01,21,2,0)="system through MAS prior to addition to list."
^DD(617.01,.01,"DT")="2850521"
^DD(617.01,1,0)="DATE ENTERED^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(617.01,1,21,0)="^^1^1^2860516^^"
^DD(617.01,1,21,1,0)="This is the date the patient was entered on the list."
^DD(617.01,2,0)="ENTERED BY^RP200'^VA(200,^0;3^Q"
^DD(617.01,2,21,0)="^^3^3^2921130^^^^"
^DD(617.01,2,21,1,0)="This field contains the initials of the user who entered the"
^DD(617.01,2,21,2,0)="name on the list. These initials are pulled from the 'Initial' field in the"
^DD(617.01,2,21,3,0)="New Person file."
^DD(617.01,2,"DT")="2840619"
^DD(617.01,3,0)="PROMISED ENTRY DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(617.01,3,3)="Enter the date, if known, that services are promised."
^DD(617.01,3,4)=""
^DD(617.01,3,21,0)="^^5^5^2880801^^^^"
^DD(617.01,3,21,1,0)="This is the date that a patient is told that he will be given the"
^DD(617.01,3,21,2,0)="services that are awaited. May be used for an approximate date, or a"
^DD(617.01,3,21,3,0)="scheduled entry time. Not to be confused with a scheduled admission"
^DD(617.01,3,21,4,0)="made through MAS."
^DD(617.01,3,21,5,0)="If the date is not known it may now be skipped, this change made 8/1/88."
^DD(617.01,3,"DT")="2880801"
^DD(617.01,4,0)="CONTACT BY^RD^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(617.01,4,3)="Enter the date veteran will be contacted regarding services."
^DD(617.01,4,21,0)="^^1^1^2860516^^^"
^DD(617.01,4,21,1,0)="The date that the veteran has been told that he will be contacted."
^DD(617.01,4,"DT")="2860516"
^DD(617.01,5,0)="PRIORITY CATEGORY^S^1:LOWEST PRIORITY;2:LOW PRIORITY;3:LOW-MODERATE PRIORITY;4:MODERATE PRIORITY;5:MODERATE-HIGH PRIORITY;6:HIGH PRIORITY;7:HIGHEST PRIORITY;^0;6^Q"
^DD(617.01,5,3)="A code corresponding to veteran's priority may be entered. Not used at all VA stations."
^DD(617.01,5,21,0)="^^3^3^2860516^^^"
^DD(617.01,5,21,1,0)="This is a numeric code that corresponds to veteran's priority. '1' is"
^DD(617.01,5,21,2,0)="lowest, '7' is highest. Interpretation of priorty code will be a local"
^DD(617.01,5,21,3,0)="option at facilities."
^DD(617.01,5,"DT")="2860516"
^DD(617.01,6,0)="ELIGIBILITY^RS^1:SERVICE CONNECTED;2:CONTRACT/OTHER;3:NSC;^0;7^Q"
^DD(617.01,6,3)="Must enter code number or code description."
^DD(617.01,6,21,0)="^^2^2^2870227^^^^"
^DD(617.01,6,21,1,0)="Veteran's eligibility status. Service connected, Non service connected or"
^DD(617.01,6,21,2,0)="Contract/other."
^DD(617.01,6,"DT")="2840619"
^DD(617.01,7,0)="SORT FACTOR^RNJ15,9X^^0;8^S X=+X K:(X>99999)!(X<5000)!(X?.E1"".""10N.N) X"
^DD(617.01,7,3)="  AFTER WAIT LIST IS COMPLETED THE EXACT TIME A VETERAN IS ADDED IS ENTERED TO PRIORITIZE LOCATION ON THE LIST.  "
^DD(617.01,7,21,0)="^^2^2^2850521^^^^"
^DD(617.01,7,21,1,0)="This factor is computed from the exact time veteran is added to the list"
^DD(617.01,7,21,2,0)="and is used in sorting order on the list. "
^DD(617.01,7,21,3,0)="a number must be entered.  Enter 5000.  For accuracy, the FIRST patient"
^DD(617.01,7,21,4,0)="added to a new list must be deleted with the 'Remove name from list'"
^DD(617.01,7,21,5,0)="option.  Subsequent sort factors are computed."
^DD(617.01,7,"DT")="2870521"
^DD(617.01,8,0)="SHORT COMMENT^F^^0;9^K:$L(X)>80!($L(X)<2) X"
^DD(617.01,8,3)="Enter a comment, such as phone number to reach patient, if needed. Will be displayed on the list."
^DD(617.01,8,21,0)="^^2^2^2841213^"
^DD(617.01,8,21,1,0)="A comment field displayed on the list. Handy for phone number to reach"
^DD(617.01,8,21,2,0)="patient, etc."
^DD(617.01,8,"DT")="2840619"
^DD(617.01,"B","CONTACT BY",4)=""
^DD(617.01,"B","DATE ENTERED",1)=""
^DD(617.01,"B","ELIGIBILITY",6)=""
^DD(617.01,"B","ENTERED BY",2)=""
^DD(617.01,"B","PATIENT",.01)=""
^DD(617.01,"B","PRIORITY CATEGORY",5)=""
^DD(617.01,"B","PROMISED ENTRY DATE",3)=""
^DD(617.01,"B","SHORT COMMENT",8)=""
^DD(617.01,"B","SORT FACTOR",7)=""
^DD(617.01,"GL",0,1,.01)=""
^DD(617.01,"GL",0,2,1)=""
^DD(617.01,"GL",0,3,2)=""
^DD(617.01,"GL",0,4,3)=""
^DD(617.01,"GL",0,5,4)=""
^DD(617.01,"GL",0,6,5)=""
^DD(617.01,"GL",0,7,6)=""
^DD(617.01,"GL",0,8,7)=""
^DD(617.01,"GL",0,9,8)=""
^DD(617.01,"IX",.01)=""
^DD(617.01,"RQ",.01)=""
^DD(617.01,"RQ",1)=""
^DD(617.01,"RQ",2)=""
^DD(617.01,"RQ",4)=""
^DD(617.01,"RQ",6)=""
^DD(617.01,"RQ",7)=""
^DD(618,0)="FIELD^^7^19"
^DD(618,0,"DDA")="N"
^DD(618,0,"DIK")="YSXRAR"
^DD(618,0,"DIKOLD")="YSXRAR"
^DD(618,0,"DT")="2931117"
^DD(618,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(618,0,"IX","ABS",618,4.2)=""
^DD(618,0,"IX","AFS",618,2)=""
^DD(618,0,"IX","B",618,.01)=""
^DD(618,0,"IX","SYN",618,1)=""
^DD(618,0,"NM","MENTAL HEALTH CENSUS")=""
^DD(618,0,"VR")="5.01"
^DD(618,.01,0)="WARD^RP42'X^DIC(42,^0;1^S DINUM=X"
^DD(618,.01,1,0)="^.1"
^DD(618,.01,1,1,0)="618^B"
^DD(618,.01,1,1,1)="S ^YSG(""CEN"",""B"",$E(X,1,30),DA)="""""
^DD(618,.01,1,1,2)="K ^YSG(""CEN"",""B"",$E(X,1,30),DA)"
^DD(618,.01,3)=""
^DD(618,.01,21,0)="^^2^2^2870728^^^^"
^DD(618,.01,21,1,0)="This field is a pointer to the Hopsital location file.  It contains the"
^DD(618,.01,21,2,0)="ward name as found on the G&L."
^DD(618,.01,"DT")="2851211"
^DD(618,1,0)="SYNONYM^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<2) X"
^DD(618,1,1,0)="^.1"
^DD(618,1,1,1,0)="618^SYN"
^DD(618,1,1,1,1)="S ^YSG(""CEN"",""SYN"",$E(X,1,30),DA)="""""
^DD(618,1,1,1,2)="K ^YSG(""CEN"",""SYN"",$E(X,1,30),DA)"
^DD(618,1,3)="ANSWER MUST BE 2-25 CHARACTERS IN LENGTH"
^DD(618,1,21,0)="^^3^3^2870727^^^^"
^DD(618,1,21,1,0)="This is a free text field used to print abrreviated names of wards for"
^DD(618,1,21,2,0)="various reports.  It is suggested that this be less than 15 characters"
^DD(618,1,21,3,0)="and clearly distinguish wards."
^DD(618,1,"DT")="2850730"
^DD(618,2,0)="FACE SHEET ORDER^RNJ3,0X^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$D(^YSG(""CEN"",""AFS"",X)) S Y=0,Y=$O(^YSG(""CEN"",""AFS"",X,Y)) I DA-Y W !,""THIS POSITION ALREADY TAKEN"" K X"
^DD(618,2,1,0)="^.1"
^DD(618,2,1,1,0)="618^AFS"
^DD(618,2,1,1,1)="S ^YSG(""CEN"",""AFS"",$E(X,1,30),DA)="""""
^DD(618,2,1,1,2)="K ^YSG(""CEN"",""AFS"",$E(X,1,30),DA)"
^DD(618,2,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999. IT MUST BE A UNIQUE ENTRY."
^DD(618,2,21,0)="^^5^5^2870727^^^^"
^DD(618,2,21,1,0)="This field specifies the order of the wards on various reports, for example"
^DD(618,2,21,2,0)="on the Bed Census report.  Face sheet order must be present and each ward"
^DD(618,2,21,3,0)="must have a unique number.  It is suggested that these numbers not be"
^DD(618,2,21,4,0)="sequential but separated by at least 5 so later additions or movements"
^DD(618,2,21,5,0)="can be easily accomplished."
^DD(618,2,"DT")="2930913"
^DD(618,2.2,0)="LIST SUBTOTAL^RS^1:YES;0:NO;^0;4^Q"
^DD(618,2.2,21,0)="^^3^3^2870727^^^^"
^DD(618,2.2,21,1,0)="This is a set field that casues a census sub-total to be displayed"
^DD(618,2.2,21,2,0)="on the Bed Census ""face sheet"".  This is useful to indicate census over"
^DD(618,2.2,21,3,0)="several wards ie 3 ""acute"" units."
^DD(618,2.3,0)="ZERO SUBTOTAL^S^1:YES;0:NO;^0;5^Q"
^DD(618,2.3,21,0)="^^3^3^2870727^^^^"
^DD(618,2.3,21,1,0)="This set field specifies whether the sub-total count should be reset to 0."
^DD(618,2.3,21,2,0)="This is used to either show serveral distinct sub-totals or to keep a"
^DD(618,2.3,21,3,0)="running sub-total."
^DD(618,2.4,0)="SUBTOTAL TITLE^F^^0;6^K:$L(X)>15!($L(X)<2) X"
^DD(618,2.4,3)="ANSWER MUST BE 2-15 CHARACTERS IN LENGTH"
^DD(618,2.4,21,0)="^^5^5^2870727^^^^"
^DD(618,2.4,21,1,0)="This free text field is displayed as the title of any sub-total displayed"
^DD(618,2.4,21,2,0)="on the Bed Census ""face sheet"".  If no sub-total is displayed this field"
^DD(618,2.4,21,3,0)="is ignored.  If a sub-total is requested and this field is empty, the"
^DD(618,2.4,21,4,0)="default ""sub-total"" will be displayed.  It is suggested that all subtotal"
^DD(618,2.4,21,5,0)="titles contain the phrase ""sub-total"" eg Acute sub-total."
^DD(618,2.5,0)="LINE FEED^S^1:YES;0:NO;^0;7^Q"
^DD(618,2.5,21,0)="^^2^2^2870727^^^^"
^DD(618,2.5,21,1,0)="This field if set will add a blank line following a ward on the Bed"
^DD(618,2.5,21,2,0)="Census ""face sheet"".  This is for ease of reading only."
^DD(618,2.7,0)="WARD NOT DIVIDED INTO TEAMS^S^1:NOT DIVIDED INTO TEAMS/ONLY 1 TEAM;0:HAS MULTIPLE TEAMS;^0;8^Q"
^DD(618,2.7,1,0)="^.1^^0"
^DD(618,2.7,21,0)="^^4^4^2890926^^^^"
^DD(618,2.7,21,1,0)="This set field indicates whether a ward has multiple teams.  If not"
^DD(618,2.7,21,2,0)="divided into teams, admissions will be automatically assigned the"
^DD(618,2.7,21,3,0)="specified ""single team"".  If this field is set users will not"
^DD(618,2.7,21,4,0)="be asked team information when editing patient data."
^DD(618,2.7,21,5,0)="when editing patient data."
^DD(618,2.7,"DT")="2890926"
^DD(618,2.8,0)="DEFAULT TEAM^R*P618.2'^YSG(""SUB"",^0;9^S DIC(""S"")=""I +$G(^YSG(""""SUB"""",+$G(Y),1))=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618,2.8,12)="Only Teams belonging to the Ward being edited may be selected..."
^DD(618,2.8,12.1)="S DIC(""S"")=""I +$G(^YSG(""""SUB"""",+$G(Y),1))=DA"""
^DD(618,2.8,21,0)="^^3^3^2931109^^^^"
^DD(618,2.8,21,1,0)="This field points to the MENTAL HEALTH TEAM FILE 618.2.  It specifies"
^DD(618,2.8,21,2,0)="a ""team"" to be used when the ward is not broken up into teams.  This will"
^DD(618,2.8,21,3,0)="allow automatic assignments."
^DD(618,2.8,"DT")="2931117"
^DD(618,3,0)="TEAM ROTATION 1^*P618.2'^YSG(""SUB"",^ROT;1^S DIC(""S"")=""I +^(1)=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618,3,12)="Only teams belonging to the Ward being edited may be selected..."
^DD(618,3,12.1)="S DIC(""S"")=""I +^(1)=DA"""
^DD(618,3,21,0)="^^2^2^2870727^^^^"
^DD(618,3,21,1,0)="This field points to the team file and specifes the team up for the"
^DD(618,3,21,2,0)="next admission."
^DD(618,3,"DT")="2850812"
^DD(618,3.1,0)="TEAM ROTATION 2^*P618.2'^YSG(""SUB"",^ROT;2^S DIC(""S"")=""I +^(1)=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618,3.1,12)="Only teams belonging to the ward being edited may be selected..."
^DD(618,3.1,12.1)="S DIC(""S"")=""I +^(1)=DA"""
^DD(618,3.1,21,0)="^^2^2^2870727^^^^"
^DD(618,3.1,21,1,0)="This field points to the team file and specifies the second team up for"
^DD(618,3.1,21,2,0)="an admission."
^DD(618,3.1,"DT")="2850812"
^DD(618,3.2,0)="TEAM ROTATION 3^*P618.2'^YSG(""SUB"",^ROT;3^S DIC(""S"")=""I +^(1)=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618,3.2,12)="Only teams belonging to the ward being edited may be selected..."
^DD(618,3.2,12.1)="S DIC(""S"")=""I +^(1)=DA"""
^DD(618,3.2,21,0)="^^2^2^2870727^^^^"
^DD(618,3.2,21,1,0)="This field points to the team file and specifies the third team up for"
^DD(618,3.2,21,2,0)="an admission."
^DD(618,3.2,"DT")="2850812"
^DD(618,3.3,0)="TEAM ROTATION 4^*P618.2'^YSG(""SUB"",^ROT;4^S DIC(""S"")=""I +^(1)=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618,3.3,12)="Only teams belonging to the ward being edited may be selected..."
^DD(618,3.3,12.1)="S DIC(""S"")=""I +^(1)=DA"""
^DD(618,3.3,21,0)="^^2^2^2870727^^^^"
^DD(618,3.3,21,1,0)="This field points to the team file and specifies the fourth team up for"
^DD(618,3.3,21,2,0)="an admission."
^DD(618,3.3,"DT")="2850829"
^DD(618,3.4,0)="TEAM ROTATION 5^*P618.2'^YSG(""SUB"",^ROT;5^S DIC(""S"")=""I +^(1)=DA"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618,3.4,3)=""
^DD(618,3.4,12)="Only teams belonging to the ward being edited may be selected..."
^DD(618,3.4,12.1)="S DIC(""S"")=""I +^(1)=DA"""
^DD(618,3.4,21,0)="^^2^2^2870727^^^^"
^DD(618,3.4,21,1,0)="This field points to the team file and specifies the fifth team up for"
^DD(618,3.4,21,2,0)="an admission."
^DD(618,4,0)="COST OF TREATMENT PER DAY^NJ8,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<1) X"
^DD(618,4,3)="Type a Dollar Amount between 1 and 99999, 2 Decimal Digits"
^DD(618,4,21,0)="^^3^3^2870727^^^^"
^DD(618,4,21,1,0)="This is the estimated cost of treatment per day on this ward.  This figure"
^DD(618,4,21,2,0)="is used to estimate the DRG break-even days.  It is OK to change this"
^DD(618,4,21,3,0)="figure and run reports to see how cost/day affects break even."
^DD(618,4,"DT")="2880901"
^DD(618,4.1,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^0;11^Q"
^DD(618,4.1,21,0)="^^2^2^2890607^^^^"
^DD(618,4.1,21,1,0)="This is a pointer to the Treating Specialty file.  It is currently not"
^DD(618,4.1,21,2,0)="used by this system but added for later use."
^DD(618,4.1,"DT")="2890607"
^DD(618,4.2,0)="BEDSECTION^P42.4'^DIC(42.4,^0;12^Q"
^DD(618,4.2,1,0)="^.1"
^DD(618,4.2,1,1,0)="618^ABS"
^DD(618,4.2,1,1,1)="S ^YSG(""CEN"",""ABS"",$E(X,1,30),DA)="""""
^DD(618,4.2,1,1,2)="K ^YSG(""CEN"",""ABS"",$E(X,1,30),DA)"
^DD(618,4.2,21,0)="^^2^2^2890607^^^^"
^DD(618,4.2,21,1,0)="This is a pointer to the Med Specialty/Bedsection file.  It is not"
^DD(618,4.2,21,2,0)="currently used by the system but added for later use."
^DD(618,4.2,"DT")="2890607"
^DD(618,6,0)="BOARDED ON PSYCHIATRY^618.04P^^BED;0"
^DD(618,6,21,0)="^^3^3^2930323^^^^"
^DD(618,6,21,1,0)="This field is currently not used by the system but will be the indicator"
^DD(618,6,21,2,0)="for those patients sleeping on a psychiatric ward but assigned to"
^DD(618,6,21,3,0)="other services."
^DD(618,7,0)="INACTIVATE WARD^S^1:YES;0:NO;^0;13^Q"
^DD(618,7,21,0)="^^2^2^2930323^"
^DD(618,7,21,1,0)="This is an 'ACTIVITY' flag.  If this ward is NOT in active use then the "
^DD(618,7,21,2,0)="flag will be set to '1', if active it will be set set to '0'."
^DD(618,7,"DT")="2880608"
^DD(618,"B","BEDSECTION",4.2)=""
^DD(618,"B","BOARDED ON PSYCHIATRY",6)=""
^DD(618,"B","COST OF TREATMENT PER DAY",4)=""
^DD(618,"B","DEFAULT TEAM",2.8)=""
^DD(618,"B","FACE SHEET ORDER",2)=""
^DD(618,"B","INACTIVATE WARD",7)=""
^DD(618,"B","LINE FEED",2.5)=""
^DD(618,"B","LIST SUBTOTAL",2.2)=""
^DD(618,"B","SUBTOTAL TITLE",2.4)=""
^DD(618,"B","SYNONYM",1)=""
^DD(618,"B","TEAM ROTATION 1",3)=""
^DD(618,"B","TEAM ROTATION 2",3.1)=""
^DD(618,"B","TEAM ROTATION 3",3.2)=""
^DD(618,"B","TEAM ROTATION 4",3.3)=""
^DD(618,"B","TEAM ROTATION 5",3.4)=""
^DD(618,"B","TREATING SPECIALTY",4.1)=""
^DD(618,"B","WARD",.01)=""
^DD(618,"B","WARD NOT DIVIDED INTO TEAMS",2.7)=""
^DD(618,"B","ZERO SUBTOTAL",2.3)=""
^DD(618,"GL",0,1,.01)=""
^DD(618,"GL",0,2,1)=""
^DD(618,"GL",0,3,2)=""
^DD(618,"GL",0,4,2.2)=""
^DD(618,"GL",0,5,2.3)=""
^DD(618,"GL",0,6,2.4)=""
^DD(618,"GL",0,7,2.5)=""
^DD(618,"GL",0,8,2.7)=""
^DD(618,"GL",0,9,2.8)=""
^DD(618,"GL",0,10,4)=""
^DD(618,"GL",0,11,4.1)=""
^DD(618,"GL",0,12,4.2)=""
^DD(618,"GL",0,13,7)=""
^DD(618,"GL","BED",0,6)=""
^DD(618,"GL","ROT",1,3)=""
^DD(618,"GL","ROT",2,3.1)=""
^DD(618,"GL","ROT",3,3.2)=""
^DD(618,"GL","ROT",4,3.3)=""
^DD(618,"GL","ROT",5,3.4)=""
^DD(618,"IX",.01)=""
^DD(618,"IX",1)=""
^DD(618,"IX",2)=""
^DD(618,"IX",4.2)=""
^DD(618,"RQ",.01)=""
^DD(618,"RQ",1)=""
^DD(618,"RQ",2)=""
^DD(618,"RQ",2.2)=""
^DD(618,"RQ",2.8)=""
^DD(618,"SB",618.04,6)=""
^DD(618.04,0)="BOARDED ON PSYCHIATRY SUB-FIELD^NL^2^3"
^DD(618.04,0,"NM","BOARDED ON PSYCHIATRY")=""
^DD(618.04,0,"UP")="618"
^DD(618.04,.01,0)="PATIENT BOARDED ON PSYCH^P2'X^DPT(^0;1^S DINUM=X Q"
^DD(618.04,.01,21,0)="^^3^3^2930323^"
^DD(618.04,.01,21,1,0)="This is the Patient Name that is sleeping on this psychiatric ward "
^DD(618.04,.01,21,2,0)="but assigned to another service.  This field contains a pointer value"
^DD(618.04,.01,21,3,0)="pointing to the PATIENT file #2."
^DD(618.04,.01,"DT")="2860516"
^DD(618.04,1,0)="DATE/TIME ENTERED^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(618.04,1,21,0)="^^1^1^2930323^"
^DD(618.04,1,21,1,0)="This is the date/time entered into this ward."
^DD(618.04,1,"DT")="2860516"
^DD(618.04,2,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(618.04,2,21,0)="^^3^3^2930323^"
^DD(618.04,2,21,1,0)="This is the name of the person who admitted the patient into this"
^DD(618.04,2,21,2,0)="ward.  Actually stored is the pointer value pointing to the NEW PERSON"
^DD(618.04,2,21,3,0)="file #200."
^DD(618.04,2,"DT")="2860516"
^DD(618.04,"B","DATE/TIME ENTERED",1)=""
^DD(618.04,"B","ENTERED BY",2)=""
^DD(618.04,"B","PATIENT BOARDED ON PSYCH",.01)=""
^DD(618.04,"GL",0,1,.01)=""
^DD(618.04,"GL",0,2,1)=""
^DD(618.04,"GL",0,3,2)=""
^DD(618.2,0)="FIELD^^22^19"
^DD(618.2,0,"DDA")="N"
^DD(618.2,0,"DIK")="YSXRAS"
^DD(618.2,0,"DIKOLD")="YSXRAS"
^DD(618.2,0,"DT")="2931115"
^DD(618.2,0,"ID",.5)="W:$D(^(""1"")) ""   "",$S($D(^DIC(42,+$P(^(""1""),U),0))#2:$P(^(0),U),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(618.2,0,"ID",.7)="W:$D(^(""1"")) ""   "",$P(^(""1""),U,2)"
^DD(618.2,0,"ID",.9)="W """""
^DD(618.2,0,"IX","AOR",618.2,.9)=""
^DD(618.2,0,"IX","AWD",618.2,.5)=""
^DD(618.2,0,"IX","B",618.2,.01)=""
^DD(618.2,0,"IX","C",618.2,.7)=""
^DD(618.2,0,"NM","MENTAL HEALTH TEAM")=""
^DD(618.2,0,"PT",618,2.8)=""
^DD(618.2,0,"PT",618,3)=""
^DD(618.2,0,"PT",618,3.1)=""
^DD(618.2,0,"PT",618,3.2)=""
^DD(618.2,0,"PT",618,3.3)=""
^DD(618.2,0,"PT",618,3.4)=""
^DD(618.2,0,"PT",618.4,3)=""
^DD(618.2,0,"PT",618.4,23)=""
^DD(618.2,0,"PT",618.419,.01)=""
^DD(618.2,0,"VR")="5.01"
^DD(618.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(618.2,.01,1,0)="^.1"
^DD(618.2,.01,1,1,0)="618.2^B"
^DD(618.2,.01,1,1,1)="S ^YSG(""SUB"",""B"",$E(X,1,30),DA)="""""
^DD(618.2,.01,1,1,2)="K ^YSG(""SUB"",""B"",$E(X,1,30),DA)"
^DD(618.2,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(618.2,.01,21,0)="^^4^4^2930322^^^^"
^DD(618.2,.01,21,1,0)="This is the name of the sub-unit to be documented.  Teams may be"
^DD(618.2,.01,21,2,0)="comprised of physicians, nursing teams, primary therapists, etc."
^DD(618.2,.01,21,3,0)="A team may be responsible for all patients on a ward or for a"
^DD(618.2,.01,21,4,0)="portion of the patient population on a ward."
^DD(618.2,.01,"DT")="2920101"
^DD(618.2,.5,0)="WARD LOCATION^*P42'^DIC(42,^1;1^D SETDICS^YSCEN13 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618.2,.5,1,0)="^.1"
^DD(618.2,.5,1,1,0)="618.2^AWD"
^DD(618.2,.5,1,1,1)="S ^YSG(""SUB"",""AWD"",$E(X,1,30),DA)="""""
^DD(618.2,.5,1,1,2)="K ^YSG(""SUB"",""AWD"",$E(X,1,30),DA)"
^DD(618.2,.5,12)="You may not change the Ward Location of any team already used by a MH Ward..."
^DD(618.2,.5,12.1)="D SETDICS^YSCEN13"
^DD(618.2,.5,21,0)="^^2^2^2870728^^^"
^DD(618.2,.5,21,1,0)="This is a pointer to the hospital location file.  Each team has one ward"
^DD(618.2,.5,21,2,0)="location."
^DD(618.2,.5,"DT")="2931115"
^DD(618.2,.7,0)="SYNONYM^RF^^1;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(618.2,.7,1,0)="^.1"
^DD(618.2,.7,1,1,0)="618.2^C"
^DD(618.2,.7,1,1,1)="S ^YSG(""SUB"",""C"",$E(X,1,30),DA)="""""
^DD(618.2,.7,1,1,2)="K ^YSG(""SUB"",""C"",$E(X,1,30),DA)"
^DD(618.2,.7,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(618.2,.7,21,0)="^^2^2^2880303^^^"
^DD(618.2,.7,21,1,0)="This is a short name for the team.  Its use is mainly for ease of"
^DD(618.2,.7,21,2,0)="selection."
^DD(618.2,.7,"DT")="2920101"
^DD(618.2,.8,0)="INACTIVE^S^1:INACTIVE;0:ACTIVE;^1;5^Q"
^DD(618.2,.8,3)="ENTER ONLY IF TEAM IS NO LONGER ACCEPTING PATIENTS"
^DD(618.2,.8,21,0)="^^3^3^2880303^^^"
^DD(618.2,.8,21,1,0)="This field is to be used only if a team is no longer active.  If this"
^DD(618.2,.8,21,2,0)="field contains ""1"", admits to this team will no longer"
^DD(618.2,.8,21,3,0)="be allowed."
^DD(618.2,.8,"DT")="2920101"
^DD(618.2,.9,0)="REPORT ORDER^RNJ3,0X^^1;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X),$D(^YSG(""SUB"",""AOR"",$P(^YSG(""SUB"",DA,1),U),X)) S Y=$O(^YSG(""SUB"",""AOR"",+^YSG(""SUB"",DA,1),X,0)) I +DA'=+Y W ""   Position already taken... "" H 1 K X"
^DD(618.2,.9,1,0)="^.1"
^DD(618.2,.9,1,1,0)="618.2^AOR^MUMPS"
^DD(618.2,.9,1,1,1)="S ^YSG(""SUB"",""AOR"",$P(^YSG(""SUB"",DA,1),U),X,DA)="""""
^DD(618.2,.9,1,1,2)="K ^YSG(""SUB"",""AOR"",$P(^YSG(""SUB"",DA,1),U),X,DA)"
^DD(618.2,.9,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(618.2,.9,21,0)="^^3^3^2880624^^"
^DD(618.2,.9,21,1,0)="This is the order that this team will be shown on reports"
^DD(618.2,.9,21,2,0)="relative to other teams of the same ward.  Enter a number that"
^DD(618.2,.9,21,3,0)="allows easy changes later ie 10,20,30 rather than 1,2,3."
^DD(618.2,.9,"DT")="2930914"
^DD(618.2,1,0)="PHYSICIAN^*P200'X^VA(200,^0;2^S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"",D=""AK.PROVIDER"" D MIX^DIC1 K DIC S DIE=DIE,X=+Y K:Y<0 X"
^DD(618.2,1,12)="Selection must be made from active Physicians who hold the PROVIDER security key."
^DD(618.2,1,12.1)="S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"""
^DD(618.2,1,21,0)="^^1^1^2911115^^"
^DD(618.2,1,21,1,0)="This is the primary physician for this team."
^DD(618.2,1,"DT")="2920101"
^DD(618.2,2,0)="PSYCHOLOGIST^P200'^VA(200,^0;3^Q"
^DD(618.2,2,21,0)="^^1^1^2870728^^"
^DD(618.2,2,21,1,0)="This is the primary psychologist for this team."
^DD(618.2,2,"DT")="2920101"
^DD(618.2,3,0)="SOCIAL WORKER^P200'^VA(200,^0;4^Q"
^DD(618.2,3,21,0)="^^1^1^2870728^^"
^DD(618.2,3,21,1,0)="This is the primary social worker for this team."
^DD(618.2,3,"DT")="2920101"
^DD(618.2,4,0)="PRIMARY NURSE^P200'^VA(200,^0;5^Q"
^DD(618.2,4,21,0)="^^1^1^2870728^^"
^DD(618.2,4,21,1,0)="This is the primary nurse for this team."
^DD(618.2,4,"DT")="2920101"
^DD(618.2,5,0)="VOCATIONAL SPECIALIST^P200'^VA(200,^0;6^Q"
^DD(618.2,5,21,0)="^^1^1^2880303^^^"
^DD(618.2,5,21,1,0)="This is the primary vocational specialist for this team."
^DD(618.2,5,"DT")="2920101"
^DD(618.2,6,0)="THERAPIST 1^P200'^VA(200,^0;7^Q"
^DD(618.2,6,21,0)="^^1^1^2870728^^"
^DD(618.2,6,21,1,0)="This is a therapist on this team."
^DD(618.2,6,"DT")="2920101"
^DD(618.2,7,0)="THERAPIST 2^P200'^VA(200,^0;8^Q"
^DD(618.2,7,21,0)="^^1^1^2870728^"
^DD(618.2,7,21,1,0)="This is a therapist on the team."
^DD(618.2,7,"DT")="2920101"
^DD(618.2,8,0)="TEAM LEADER^P200'^VA(200,^0;9^Q"
^DD(618.2,8,21,0)="^^2^2^2870728^"
^DD(618.2,8,21,1,0)="This is the staff member with responsibility for coordinating team"
^DD(618.2,8,21,2,0)="activity."
^DD(618.2,8,"DT")="2920101"
^DD(618.2,9,0)="TEAM BEDS^RNJ3,0^^1;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(618.2,9,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(618.2,9,21,0)="^^2^2^2870728^"
^DD(618.2,9,21,1,0)="This is the number of team beds.  This field is used in reporting and"
^DD(618.2,9,21,2,0)="for admission rotation purposes."
^DD(618.2,9,"DT")="2920101"
^DD(618.2,10,0)="ADMIT IN ROTATION^RS^0:NO;1:YES;^1;4^Q"
^DD(618.2,10,3)="ENTER ""YES"" ONLY IF TEAM WILL RECEIVE ADMISSIONS IN ROTATION WITH OTHER TEAMS ON THIS UNIT."
^DD(618.2,10,21,0)="^^9^9^2880303^^^"
^DD(618.2,10,21,1,0)="If answered ""1"", team rotation status will be displayed.  Team"
^DD(618.2,10,21,2,0)="rotation is strictly linear (i.e., one team receives an admission"
^DD(618.2,10,21,3,0)="and goes to the end of the rotation list).  Remaining teams move"
^DD(618.2,10,21,4,0)="up in rotation.  Teams whose admission allotment have been filled"
^DD(618.2,10,21,5,0)="are identified."
^DD(618.2,10,21,6,0)=""
^DD(618.2,10,21,7,0)="This rotation system is for display only.  Automatic team"
^DD(618.2,10,21,8,0)="assignments are not made by the In-Patient Features Option"
^DD(618.2,10,21,9,0)="of the Mental Health System."
^DD(618.2,10,"DT")="2920101"
^DD(618.2,11,0)="LOCAL TITLE FOR LISTED STAFF^RF^^0;10^K:$L(X)>12!($L(X)<1) X"
^DD(618.2,11,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(618.2,11,21,0)="^^3^3^2870728^"
^DD(618.2,11,21,1,0)="This is the title for the staff member to be tied to a patient.  Examples"
^DD(618.2,11,21,2,0)="include, ""coordinator"", ""primary therapist"", ""case manager"", ""primary"
^DD(618.2,11,21,3,0)="nurse""."
^DD(618.2,11,"DT")="2920101"
^DD(618.2,12,0)="MASTER TX PLAN DUE^NJ3,0^^TXP;1^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(618.2,12,3)="Enter number of days following admission that the Master treatment plan is due.  Current range is 1 to 120 days."
^DD(618.2,12,21,0)="^^2^2^2890814^^"
^DD(618.2,12,21,1,0)="This is the number of days following admission that a treatment plan"
^DD(618.2,12,21,2,0)="must be placed in the medical record.  Current range is 1 to 120 days."
^DD(618.2,12,"DT")="2920101"
^DD(618.2,13,0)="TREATMENT PLAN UPDATE DUE^NJ3,0^^TXP;2^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(618.2,13,3)="Enter number of days following Master Tx Plan that an Update is due.  Current range is 1 to 120 days."
^DD(618.2,13,21,0)="^^2^2^2890814^^"
^DD(618.2,13,21,1,0)="This is the number of days following the master treatment plan that"
^DD(618.2,13,21,2,0)="updates are required.  Current range is 1 to 120 days."
^DD(618.2,13,"DT")="2920101"
^DD(618.2,22,0)="INTERVIEW/TEST^618.21^^TEST;0"
^DD(618.2,22,21,0)="^^3^3^2930323^^"
^DD(618.2,22,21,1,0)="This is a listing of tests and interviews routinely reviewed by the"
^DD(618.2,22,21,2,0)="psychologist.  It allows quick looks at administrations of test"
^DD(618.2,22,21,3,0)="batteries."
^DD(618.2,22,"DT")="2920101"
^DD(618.2,"B","ADMIT IN ROTATION",10)=""
^DD(618.2,"B","INACTIVE",.8)=""
^DD(618.2,"B","INTERVIEW/TEST",22)=""
^DD(618.2,"B","LOCAL TITLE FOR LISTED STAFF",11)=""
^DD(618.2,"B","MASTER TX PLAN DUE",12)=""
^DD(618.2,"B","NAME",.01)=""
^DD(618.2,"B","PHYSICIAN",1)=""
^DD(618.2,"B","PRIMARY NURSE",4)=""
^DD(618.2,"B","PSYCHOLOGIST",2)=""
^DD(618.2,"B","REPORT ORDER",.9)=""
^DD(618.2,"B","SOCIAL WORKER",3)=""
^DD(618.2,"B","SYNONYM",.7)=""
^DD(618.2,"B","TEAM BEDS",9)=""
^DD(618.2,"B","TEAM LEADER",8)=""
^DD(618.2,"B","THERAPIST 1",6)=""
^DD(618.2,"B","THERAPIST 2",7)=""
^DD(618.2,"B","TREATMENT PLAN UPDATE DUE",13)=""
^DD(618.2,"B","VOCATIONAL SPECIALIST",5)=""
^DD(618.2,"B","WARD LOCATION",.5)=""
^DD(618.2,"GL",0,1,.01)=""
^DD(618.2,"GL",0,2,1)=""
^DD(618.2,"GL",0,3,2)=""
^DD(618.2,"GL",0,4,3)=""
^DD(618.2,"GL",0,5,4)=""
^DD(618.2,"GL",0,6,5)=""
^DD(618.2,"GL",0,7,6)=""
^DD(618.2,"GL",0,8,7)=""
^DD(618.2,"GL",0,9,8)=""
^DD(618.2,"GL",0,10,11)=""
^DD(618.2,"GL",1,1,.5)=""
^DD(618.2,"GL",1,2,.7)=""
^DD(618.2,"GL",1,3,9)=""
^DD(618.2,"GL",1,4,10)=""
^DD(618.2,"GL",1,5,.8)=""
^DD(618.2,"GL",1,6,.9)=""
^DD(618.2,"GL","TEST",0,22)=""
^DD(618.2,"GL","TXP",1,12)=""
^DD(618.2,"GL","TXP",2,13)=""
^DD(618.2,"IX",.01)=""
^DD(618.2,"IX",.5)=""
^DD(618.2,"IX",.7)=""
^DD(618.2,"IX",.9)=""
^DD(618.2,"RQ",.01)=""
^DD(618.2,"RQ",.7)=""
^DD(618.2,"RQ",.9)=""
^DD(618.2,"RQ",9)=""
^DD(618.2,"RQ",10)=""
^DD(618.2,"RQ",11)=""
^DD(618.2,"SB",618.21,22)=""
^DD(618.21,0)="INTERVIEW/TEST SUB-FIELD^NL^.01^1"
^DD(618.21,0,"NM","INTERVIEW/TEST")=""
^DD(618.21,0,"UP")="618.2"
^DD(618.21,.01,0)="TEST BATTERY^MF^^0;1^K:$L(X)>6!($L(X)<3) X"
^DD(618.21,.01,3)="ANSWER MUST BE 3-6 CHARACTERS IN LENGTH"
^DD(618.21,.01,21,0)="^^1^1^2930323^"
^DD(618.21,.01,21,1,0)="This is the name of the testing battery preferred by this team."
^DD(618.21,"B","TEST BATTERY",.01)=""
^DD(618.21,"GL",0,1,.01)=""
^DD(618.4,0)="FIELD^^500000^26"
^DD(618.4,0,"DDA")="N"
^DD(618.4,0,"DIK")="YSXRAT"
^DD(618.4,0,"DIKOLD")="YSXRAT"
^DD(618.4,0,"DT")="2930416"
^DD(618.4,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^YSG(""SUB"",+$P(^(0),U,4),0))#2:$P(^(0),U),1:""""),C=$P(^DD(618.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(618.4,0,"IX","AC",618.4,4)=""
^DD(618.4,0,"IX","ACP",618.4,5)=""
^DD(618.4,0,"IX","ACR",618.4,6)=""
^DD(618.4,0,"IX","AIN",618.4,2)=""
^DD(618.4,0,"IX","AOUT",618.4,21)=""
^DD(618.4,0,"IX","AST",618.4,3)=""
^DD(618.4,0,"IX","AWC",618.4,23)=""
^DD(618.4,0,"IX","B",618.4,.01)=""
^DD(618.4,0,"IX","C",618.4,1)=""
^DD(618.4,0,"IX","CP",618.4,1)=""
^DD(618.4,0,"NM","MENTAL HEALTH INPT")=""
^DD(618.4,0,"VR")="5.01"
^DD(618.4,.01,0)="FILE ENTRY DATE^RD^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(618.4,.01,1,0)="^.1"
^DD(618.4,.01,1,1,0)="618.4^B"
^DD(618.4,.01,1,1,1)="S ^YSG(""INP"",""B"",$E(X,1,30),DA)="""""
^DD(618.4,.01,1,1,2)="K ^YSG(""INP"",""B"",$E(X,1,30),DA)"
^DD(618.4,.01,3)=""
^DD(618.4,.01,21,0)="^^1^1^2880623^"
^DD(618.4,.01,21,1,0)="This is a unique file entry date to allow a flat file structure."
^DD(618.4,.01,"DT")="2920101"
^DD(618.4,1,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(618.4,1,1,0)="^.1"
^DD(618.4,1,1,1,0)="618.4^C"
^DD(618.4,1,1,1,1)="S ^YSG(""INP"",""C"",$E(X,1,30),DA)="""""
^DD(618.4,1,1,1,2)="K ^YSG(""INP"",""C"",$E(X,1,30),DA)"
^DD(618.4,1,1,2,0)="618.4^CP^MUMPS"
^DD(618.4,1,1,2,1)="I $P($G(^YSG(""INP"",DA,7)),U,4) S ^YSG(""INP"",""CP"",X,DA)="""""
^DD(618.4,1,1,2,2)="K ^YSG(""INP"",""CP"",X,DA)"
^DD(618.4,1,3)="Enter a new patient name that has been admitted through administration or an existing name to edit."
^DD(618.4,1,21,0)="^^1^1^2890731^"
^DD(618.4,1,21,1,0)="Pointer to patient file."
^DD(618.4,1,"DT")="2920101"
^DD(618.4,2,0)="UNIT ENTRY DATE^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(618.4,2,1,0)="^.1"
^DD(618.4,2,1,1,0)="618.4^AIN^MUMPS"
^DD(618.4,2,1,1,1)="S ^YSG(""INP"",""AIN"",9999999-X,DA)="""""
^DD(618.4,2,1,1,2)="K ^YSG(""INP"",""AIN"",9999999-X,DA)"
^DD(618.4,2,21,0)="^^2^2^2880623^"
^DD(618.4,2,21,1,0)="This is the date of entry on to the psychiatry service for the current"
^DD(618.4,2,21,2,0)="admission.  This is set automatically by the system but can be edited."
^DD(618.4,2,"DT")="2920101"
^DD(618.4,3,0)="TEAM^R*P618.2'^YSG(""SUB"",^0;4^S DIC(""S"")=""I $P(^YSG(""""SUB"""",+Y,1),U,5)'=1,$P(^YSG(""""SUB"""",+Y,1),U)=$P(^YSG(""""INP"""",DA,7),U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(618.4,3,1,0)="^.1"
^DD(618.4,3,1,1,0)="618.4^AST^MUMPS"
^DD(618.4,3,1,1,1)="D CROSS^YSCEN5"
^DD(618.4,3,1,1,2)="Q"
^DD(618.4,3,1,2,0)="^^TRIGGER^618.4^23"
^DD(618.4,3,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^YSG(""INP"",D0,7)):^(7),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(618.4,3,1,2,1.4)"
^DD(618.4,3,1,2,1.4)="S DIH=$S($D(^YSG(""INP"",DIV(0),7)):^(7),1:""""),DIV=X S $P(^(7),U,4)=DIV,DIH=618.4,DIG=23 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(618.4,3,1,2,2)="Q"
^DD(618.4,3,1,2,"CREATE VALUE")="INTERNAL(TEAM)"
^DD(618.4,3,1,2,"DELETE VALUE")="NO EFFECT"
^DD(618.4,3,1,2,"DT")="2930308"
^DD(618.4,3,1,2,"FIELD")="CURRENT TEAM"
^DD(618.4,3,12)="ALLOWS ONLY ACTIVE TEAMS FOR APPROPRIATE WARD"
^DD(618.4,3,12.1)="S DIC(""S"")=""I $P(^YSG(""""SUB"""",+Y,1),U,5)'=1,$P(^YSG(""""SUB"""",+Y,1),U)=$P(^YSG(""""INP"""",DA,7),U)"""
^DD(618.4,3,21,0)="^^2^2^2930308^^"
^DD(618.4,3,21,1,0)="This is the clinical and/or nursing team to which the patient is"
^DD(618.4,3,21,2,0)="assigned."
^DD(618.4,3,"DT")="2930308"
^DD(618.4,4,0)="STAFF^P200'^VA(200,^0;5^Q"
^DD(618.4,4,1,0)="^.1"
^DD(618.4,4,1,1,0)="618.4^AC^MUMPS"
^DD(618.4,4,1,1,1)="I $D(^YSG(""INP"",DA,7)),$P(^YSG(""INP"",DA,7),U,4)?1N.N S ^YSG(""INP"",""AC"",X,DA)="""""
^DD(618.4,4,1,1,2)="K ^YSG(""INP"",""AC"",X,DA)"
^DD(618.4,4,3)="Enter the name of the staff member to be linked to this patient."
^DD(618.4,4,21,0)="^^4^4^2880623^^^"
^DD(618.4,4,21,1,0)="This is the primary staff member assigned responsibility for patient"
^DD(618.4,4,21,2,0)="care or charting.  Local definition of this title is allowed for in"
^DD(618.4,4,21,3,0)="the package. Examples of this are: Case manager , Primary Therapist,"
^DD(618.4,4,21,4,0)="and coordinator."
^DD(618.4,4,"DT")="2920101"
^DD(618.4,5,0)="PHYSICIAN^*P200'X^VA(200,^0;6^S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"",D=""AK.PROVIDER"" D MIX^DIC1 K DIC S DIE=DIE,X=+Y K:Y<0 X"
^DD(618.4,5,1,0)="^.1"
^DD(618.4,5,1,1,0)="618.4^ACP^MUMPS"
^DD(618.4,5,1,1,1)="I $D(^YSG(""INP"",DA,7)),$P(^YSG(""INP"",DA,7),U,4)?1N.N S ^YSG(""INP"",""ACP"",X,DA)="""""
^DD(618.4,5,1,1,2)="K ^YSG(""INP"",""ACP"",X,DA)"
^DD(618.4,5,3)="Enter the physician's name."
^DD(618.4,5,12)="Selection must be made from active Physicians who hold the PROVIDER security key."
^DD(618.4,5,12.1)="S DIC(""S"")=""I $S(+$G(^(""""I""""))=0:1,$G(^(""""I""""))'<DT:1,1:0)"""
^DD(618.4,5,21,0)="^^1^1^2930322^"
^DD(618.4,5,21,1,0)="This is the primary physician providing care to this patient."
^DD(618.4,5,"DT")="2920101"
^DD(618.4,6,0)="RESIDENT^P200'^VA(200,^0;7^Q"
^DD(618.4,6,1,0)="^.1"
^DD(618.4,6,1,1,0)="618.4^ACR^MUMPS"
^DD(618.4,6,1,1,1)="I $D(^YSG(""INP"",DA,7)),$P(^YSG(""INP"",DA,7),U,4)?1N.N S ^YSG(""INP"",""ACR"",X,DA)="""""
^DD(618.4,6,1,1,2)="K ^YSG(""INP"",""ACR"",X,DA)"
^DD(618.4,6,3)="Enter the name of the medical resident."
^DD(618.4,6,21,0)="^^1^1^2930322^"
^DD(618.4,6,21,1,0)="This is the resident assigned (if any) to provide care to this patient."
^DD(618.4,6,"DT")="2920101"
^DD(618.4,7,0)="LEGAL STATUS^S^v:VOLUNTARY;i:INVOLUNTARY;^1;1^Q"
^DD(618.4,7,21,0)="^^1^1^2930322^"
^DD(618.4,7,21,1,0)="Set of codes: 'v' for Voluntary, 'i' for Involuntary."
^DD(618.4,8,0)="OPEN/CLOSED^S^o:OPEN;c:CLOSED;^1;2^Q"
^DD(618.4,8,21,0)="^^1^1^2880623^"
^DD(618.4,8,21,1,0)="This indicates whether the patient is on a security area."
^DD(618.4,9,0)="LEVEL^NJ2,0^^1;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(618.4,9,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(618.4,9,21,0)="^^2^2^2880623^"
^DD(618.4,9,21,1,0)="This is a field locally definable to assign treatment or privilege"
^DD(618.4,9,21,2,0)="status.  It is only meaningful within local definitions."
^DD(618.4,10,0)="MASTER TX PLAN^D^^1;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(618.4,10,3)="Enter date Master Treatment Plan was entered in the chart"
^DD(618.4,10,21,0)="^^1^1^2880623^"
^DD(618.4,10,21,1,0)="Date the Master Treatment Plan was enterd in the chart."
^DD(618.4,11,0)="TX PLAN UPDATE^D^^1;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(618.4,11,3)="Enter the date of the latest treatmemt plan update."
^DD(618.4,11,21,0)="^^1^1^2880623^"
^DD(618.4,11,21,1,0)="Date the treatment plan was updated in the patient's chart."
^DD(618.4,12,0)="HAIR COLOR^F^^1;6^K:$L(X)>10!($L(X)<2) X"
^DD(618.4,12,3)="Enter patient's hair color (2-10 characters)"
^DD(618.4,12,21,0)="^^1^1^2880623^"
^DD(618.4,12,21,1,0)="For quick identification purposes.  Especially needed for patient searches."
^DD(618.4,13,0)="EYE COLOR^F^^1;7^K:$L(X)>10!($L(X)<2) X"
^DD(618.4,13,3)="Enter patient's eye color (2-10 characters)"
^DD(618.4,13,21,0)="^^1^1^2930402^^"
^DD(618.4,13,21,1,0)="For quick identification.  Especially useful in patient searches."
^DD(618.4,14,0)="HEIGHT (INCHES)^F^^1;8^K:$L(X)>10!($L(X)<2) X"
^DD(618.4,14,3)="Enter patient's height in inches"
^DD(618.4,14,21,0)="^^1^1^2880623^"
^DD(618.4,14,21,1,0)="For quick identification.  Especially useful in patient searches."
^DD(618.4,14.2,0)="WEIGHT^NJ3,0^^1;9^K:+X'=X!(X>450)!(X<50)!(X?.E1"".""1N.N) X"
^DD(618.4,14.2,3)="Enter patient's weight in pounds."
^DD(618.4,14.2,21,0)="^^1^1^2930402^"
^DD(618.4,14.2,21,1,0)="For quick identification.  Especially useful in patient searches."
^DD(618.4,14.2,"DT")="2920101"
^DD(618.4,15,0)="PHYSICAL DESCRIPTION^F^^2;1^K:$L(X)>200!($L(X)<2) X"
^DD(618.4,15,3)="Enter a short physical description of the patient (2-200 characters)"
^DD(618.4,15,21,0)="^^1^1^2930402^"
^DD(618.4,15,21,1,0)="Short physical description of patient."
^DD(618.4,16,0)="MEDICAL ALERT^F^^3;1^K:$L(X)>200!($L(X)<2) X"
^DD(618.4,16,3)="Enter any medical alerts (2-200 characters)"
^DD(618.4,16,21,0)="^^1^1^2930402^"
^DD(618.4,16,21,1,0)="Any medical alert associated with the patient."
^DD(618.4,17,0)="SPECIAL DIET^F^^4;1^K:$L(X)>200!($L(X)<2) X"
^DD(618.4,17,3)="Enter diet information (2-200 characters)"
^DD(618.4,17,21,0)="^^1^1^2930402^"
^DD(618.4,17,21,1,0)="Patient's specical diet requirement."
^DD(618.4,18,0)="INPATIENT COMMENTS^618.418D^^5;0"
^DD(618.4,18,21,0)="^^1^1^2930402^^"
^DD(618.4,18,21,1,0)="Patient comments, multiple valued field with subfield."
^DD(618.4,19,0)="PAST TEAMS^618.419PA^^6;0"
^DD(618.4,19,21,0)="^^3^3^2930402^^^"
^DD(618.4,19,21,1,0)="This data is automatically set by the package.  It keeps track of"
^DD(618.4,19,21,2,0)="team changes within a psychiatric ward."
^DD(618.4,19,21,3,0)="This is a multiple field with subfields."
^DD(618.4,20,0)="WARD^RP42'^DIC(42,^7;1^Q"
^DD(618.4,20,21,0)="^^2^2^2880623^"
^DD(618.4,20,21,1,0)="Name of the ward as pointer to the ward location file.  This is set"
^DD(618.4,20,21,2,0)="automatically by the package."
^DD(618.4,20,"DT")="2920101"
^DD(618.4,21,0)="DISCHARGE/TRANSFER DATE^D^^7;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(618.4,21,1,0)="^.1"
^DD(618.4,21,1,1,0)="618.4^AOUT^MUMPS"
^DD(618.4,21,1,1,1)="S ^YSG(""INP"",""AOUT"",9999999-X,DA)="""""
^DD(618.4,21,1,1,2)="K ^YSG(""INP"",""AOUT"",9999999-X,DA)"
^DD(618.4,21,21,0)="^^4^4^2930402^^"
^DD(618.4,21,21,1,0)="Date patient is either discharged or transfered out of the"
^DD(618.4,21,21,2,0)="current psychiatric ward.  This is not the same as the"
^DD(618.4,21,21,3,0)="discharge date as defined by MAS.  It is meaningful only as regards to"
^DD(618.4,21,21,4,0)="the current ward."
^DD(618.4,21,"DT")="2920101"
^DD(618.4,22,0)="ADMISSION POINTER^F^^7;3^K:$L(X)>15!($L(X)<2) X"
^DD(618.4,22,3)="Enter pointer DA""~""pointer DA, such as 38104~38221"
^DD(618.4,22,21,0)="^^7^7^2930416^^^"
^DD(618.4,22,21,1,0)="The ADMISSION POINTER has two parts (PART ONE~PART TWO).  Part one is"
^DD(618.4,22,21,2,0)="the ^DGPM file's ""DA"" or pointer to the ADMISSION Patient Movement"
^DD(618.4,22,21,3,0)="record.  Part two which follows the ""~"" is the TRANSFER or DISCHARGE"
^DD(618.4,22,21,4,0)="pointer to the ^DGPM Patient Movement record or it is the pointer to the "
^DD(618.4,22,21,5,0)="LAST Patient Movement record.  Therefore, when the patient is initially"
^DD(618.4,22,21,6,0)="admitted part one and part two are the same.  This piece is set"
^DD(618.4,22,21,7,0)="automatically by the package."
^DD(618.4,22,"DT")="2930416"
^DD(618.4,23,0)="CURRENT TEAM^P618.2'^YSG(""SUB"",^7;4^Q"
^DD(618.4,23,1,0)="^.1"
^DD(618.4,23,1,1,0)="618.4^AWC^MUMPS"
^DD(618.4,23,1,1,1)="D ENTRY^YSCEN5"
^DD(618.4,23,1,1,2)="D LEAVE^YSCEN5"
^DD(618.4,23,5,1,0)="618.4^3^2"
^DD(618.4,23,9)="^"
^DD(618.4,23,21,0)="^^5^5^2930402^"
^DD(618.4,23,21,1,0)="This is the current team assigned to work with the patient.  When"
^DD(618.4,23,21,2,0)="this field is blank this indicates that the patient was been transferred"
^DD(618.4,23,21,3,0)="out of the ward or the patient was been discharged.  The CURRENT TEAM"
^DD(618.4,23,21,4,0)="field is used to activate the SET and KILL of the following"
^DD(618.4,23,21,5,0)="cross-references: ""CP"", ""AC"", ""ACP"", ""ACR"" and ""AWC""."
^DD(618.4,23,"DT")="2920101"
^DD(618.4,500000,0)="LAST PHYSICAL EXAM^CJ8^^ ; ^I $D(^MR(D1,""PE"")) S X=$O(^MR(D1,""PE"",0)),X=9999999-X,X=$$FMTE^XLFDT(X,""5ZD"")"
^DD(618.4,500000,9)="^"
^DD(618.4,500000,9.01)=""
^DD(618.4,500000,9.1)="I $D(^MR(D1,""PE"")) S X=$O(^MR(D1,""PE"",0)),X=9999999-X,X=$$FMTE^XLFDT(X,""5ZD"")"
^DD(618.4,500000,9.2)="S Y(618.4,500000,80)=$S($D(D0):D0,1:""""),Y(618.4,500000,1)=$S($D(^YSG(""INP"",D0,0)):^(0),1:""""),D0=$P(Y(618.4,500000,1),U,2) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(618.4,500000,9.3)="X ^DD(618.4,500000,9.2) S Y(618.4,500000,180)=$S($D(D0):D0,1:""""),D0=D0 S:'$D(^MR(+D0,0)) D0=-1 S Y(618.4,500000,280)=$S($D(D0):D0,1:"""")"
^DD(618.4,500000,9.4)="X ^DD(618.4,500000,9.3) S Y(618.4,500000,201)=$S($D(^MR(D0,0)):^(0),1:""""),D0=$P(Y(618.4,500000,201),U) S:'$D(^DPT(+D0,0)) D0=-1 S Y(618.4,500000,380)=$S($D(D0):D0,1:"""")"
^DD(618.4,500000,9.5)="X ^DD(618.4,500000,9.4) S Y(618.4,500000,381)=$S($D(D1):D1,1:""""),Y(618.4,500000,301)=X,Y(618.4,500000,402)="""""
^DD(618.4,500000,9.6)="X ^DD(618.4,500000,9.5) X ""F D1=0:0 S D1=$O(^MR(I(200,0),""""PE"""",D1)) Q:D1=""""  S Y=$S($D(^(D1,0)):$P(^(0),U),1:"""""""") S:Y'?."""" """" Y(618.4,500000,402)=Y"" S D(1)=D1"
^DD(618.4,500000,21,0)="^^1^1^2930402^"
^DD(618.4,500000,21,1,0)="This is a computed field (data is NOT stored by calculated)."
^DD(618.4,500000,"DT")="2921130"
^DD(618.4,"B","ADMISSION POINTER",22)=""
^DD(618.4,"B","CURRENT TEAM",23)=""
^DD(618.4,"B","DISCHARGE/TRANSFER DATE",21)=""
^DD(618.4,"B","EYE COLOR",13)=""
^DD(618.4,"B","FILE ENTRY DATE",.01)=""
^DD(618.4,"B","HAIR COLOR",12)=""
^DD(618.4,"B","HEIGHT (INCHES)",14)=""
^DD(618.4,"B","INPATIENT COMMENTS",18)=""
^DD(618.4,"B","LAST PHYSICAL EXAM",500000)=""
^DD(618.4,"B","LEGAL STATUS",7)=""
^DD(618.4,"B","LEVEL",9)=""
^DD(618.4,"B","MASTER TX PLAN",10)=""
^DD(618.4,"B","MEDICAL ALERT",16)=""
^DD(618.4,"B","OPEN/CLOSED",8)=""
^DD(618.4,"B","PAST TEAMS",19)=""
^DD(618.4,"B","PATIENT",1)=""
^DD(618.4,"B","PHYSICAL DESCRIPTION",15)=""
^DD(618.4,"B","PHYSICIAN",5)=""
^DD(618.4,"B","RESIDENT",6)=""
^DD(618.4,"B","SPECIAL DIET",17)=""
^DD(618.4,"B","STAFF",4)=""
^DD(618.4,"B","TEAM",3)=""
^DD(618.4,"B","TX PLAN UPDATE",11)=""
^DD(618.4,"B","UNIT ENTRY DATE",2)=""
^DD(618.4,"B","WARD",20)=""
^DD(618.4,"B","WEIGHT",14.2)=""
^DD(618.4,"GL",0,1,.01)=""
^DD(618.4,"GL",0,2,1)=""
^DD(618.4,"GL",0,3,2)=""
^DD(618.4,"GL",0,4,3)=""
^DD(618.4,"GL",0,5,4)=""
^DD(618.4,"GL",0,6,5)=""
^DD(618.4,"GL",0,7,6)=""
^DD(618.4,"GL",1,1,7)=""
^DD(618.4,"GL",1,2,8)=""
^DD(618.4,"GL",1,3,9)=""
^DD(618.4,"GL",1,4,10)=""
^DD(618.4,"GL",1,5,11)=""
^DD(618.4,"GL",1,6,12)=""
^DD(618.4,"GL",1,7,13)=""
^DD(618.4,"GL",1,8,14)=""
^DD(618.4,"GL",1,9,14.2)=""
^DD(618.4,"GL",2,1,15)=""
^DD(618.4,"GL",3,1,16)=""
^DD(618.4,"GL",4,1,17)=""
^DD(618.4,"GL",5,0,18)=""
^DD(618.4,"GL",6,0,19)=""
^DD(618.4,"GL",7,1,20)=""
^DD(618.4,"GL",7,2,21)=""
^DD(618.4,"GL",7,3,22)=""
^DD(618.4,"GL",7,4,23)=""
^DD(618.4,"IX",.01)=""
^DD(618.4,"IX",1)=""
^DD(618.4,"IX",2)=""
^DD(618.4,"IX",3)=""
^DD(618.4,"IX",4)=""
^DD(618.4,"IX",5)=""
^DD(618.4,"IX",6)=""
^DD(618.4,"IX",21)=""
^DD(618.4,"IX",23)=""
^DD(618.4,"RQ",.01)=""
^DD(618.4,"RQ",1)=""
^DD(618.4,"RQ",2)=""
^DD(618.4,"RQ",3)=""
^DD(618.4,"RQ",20)=""
^DD(618.4,"SB",618.418,18)=""
^DD(618.4,"SB",618.419,19)=""
^DD(618.418,0)="INPATIENT COMMENTS SUB-FIELD^^2^3"
^DD(618.418,0,"DIK")="YSXRAT"
^DD(618.418,0,"IX","AB",618.418,.01)=""
^DD(618.418,0,"NM","INPATIENT COMMENTS")=""
^DD(618.418,0,"UP")="618.4"
^DD(618.418,.01,0)="INPATIENT COMMENT DATE/TIME^MRDX^^0;1^S %DT=""ETSXR"" D ^%DT S X=Y K:Y<1 X"
^DD(618.418,.01,1,0)="^.1"
^DD(618.418,.01,1,1,0)="618.418^AB^MUMPS"
^DD(618.418,.01,1,1,1)="S ^YSG(""INP"",DA(1),""AB"",9999999-X,DA)="""""
^DD(618.418,.01,1,1,2)="K ^YSG(""INP"",DA(1),""AB"",9999999-X,DA)"
^DD(618.418,.01,21,0)="^^1^1^2930402^"
^DD(618.418,.01,21,1,0)="DATE and TIME the INPATIENT COMMENT was entered."
^DD(618.418,.01,"DT")="2920101"
^DD(618.418,1,0)="ENTERED BY^RP200'^VA(200,^0;2^Q"
^DD(618.418,1,21,0)="^^2^2^2930402^"
^DD(618.418,1,21,1,0)="Name of person who entered the comment.  Actually stored is the pointer"
^DD(618.418,1,21,2,0)="value pointing to the NEW PERSON file #200."
^DD(618.418,1,"DT")="2920101"
^DD(618.418,2,0)="COMMENT^618.4182^^1;0"
^DD(618.418,2,21,0)="^^2^2^2930402^"
^DD(618.418,2,21,1,0)="The actual comment(s) concerning the patient.  This is a word processing"
^DD(618.418,2,21,2,0)="field."
^DD(618.418,"B","COMMENT",2)=""
^DD(618.418,"B","ENTERED BY",1)=""
^DD(618.418,"B","INPATIENT COMMENT DATE/TIME",.01)=""
^DD(618.418,"GL",0,1,.01)=""
^DD(618.418,"GL",0,2,1)=""
^DD(618.418,"GL",1,0,2)=""
^DD(618.418,"IX",.01)=""
^DD(618.418,"RQ",.01)=""
^DD(618.418,"RQ",1)=""
^DD(618.418,"SB",618.4182,2)=""
^DD(618.4182,0)="COMMENT SUB-FIELD^^.01^1"
^DD(618.4182,0,"NM","COMMENT")=""
^DD(618.4182,0,"UP")="618.418"
^DD(618.4182,.01,0)="COMMENT^W^^0;1^Q"
^DD(618.4182,.01,"DT")="2920101"
^DD(618.4182,"B","COMMENT",.01)=""
^DD(618.4182,"GL",0,1,.01)=""
^DD(618.419,0)="PAST TEAMS SUB-FIELD^^2^3"
^DD(618.419,0,"DIK")="YSXRAT"
^DD(618.419,0,"IX","B",618.419,.01)=""
^DD(618.419,0,"NM","PAST TEAMS")=""
^DD(618.419,0,"UP")="618.4"
^DD(618.419,.01,0)="PAST TEAMS^P618.2'^YSG(""SUB"",^0;1^Q"
^DD(618.419,.01,1,0)="^.1"
^DD(618.419,.01,1,1,0)="618.419^B"
^DD(618.419,.01,1,1,1)="S ^YSG(""INP"",DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(618.419,.01,1,1,2)="K ^YSG(""INP"",DA(1),6,""B"",$E(X,1,30),DA)"
^DD(618.419,.01,21,0)="^^2^2^2930402^"
^DD(618.419,.01,21,1,0)="Previous team assigned to the patient.  This data is automatically"
^DD(618.419,.01,21,2,0)="set by the package."
^DD(618.419,1,0)="DATE ENTERED^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(618.419,1,21,0)="^^1^1^2930402^"
^DD(618.419,1,21,1,0)="Date the patient entered ward and was assigned the specific team."
^DD(618.419,2,0)="ENTERED BY^RP200'^VA(200,^0;3^Q"
^DD(618.419,2,21,0)="^^2^2^2930402^"
^DD(618.419,2,21,1,0)="This is the DUZ of the person implemating the transfer of the "
^DD(618.419,2,21,2,0)="patient from one ward to another.  This is automatically upedted."
^DD(618.419,"B","DATE ENTERED",1)=""
^DD(618.419,"B","ENTERED BY",2)=""
^DD(618.419,"B","PAST TEAMS",.01)=""
^DD(618.419,"GL",0,1,.01)=""
^DD(618.419,"GL",0,2,1)=""
^DD(618.419,"GL",0,3,2)=""
^DD(618.419,"IX",.01)=""
^DD(618.419,"RQ",1)=""
^DD(618.419,"RQ",2)=""
^DD(620,0)="FIELD^^2^4"
^DD(620,0,"DDA")="N"
^DD(620,0,"DIK")="YSXRAU"
^DD(620,0,"DIKOLD")="YSXRAU"
^DD(620,0,"IX","B",620,.01)=""
^DD(620,0,"IX","C",620,.01)=""
^DD(620,0,"IX","D",620,2)=""
^DD(620,0,"NM","PROBLEM")=""
^DD(620,0,"PT",615.01,.01)=""
^DD(620,0,"VR")="5.01"
^DD(620,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(620,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(620,.001,21,0)="^^1^1^2841212^"
^DD(620,.001,21,1,0)="This is the internal entry number."
^DD(620,.001,"DT")="2840127"
^DD(620,.01,0)="PROBLEM^RFX^^0;1^K:$L(X)>75!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(620,.01,1,0)="^.1^^-1"
^DD(620,.01,1,1,0)="620^B"
^DD(620,.01,1,1,1)="S ^DIC(620,""B"",$E(X,1,30),DA)="""""
^DD(620,.01,1,1,2)="K ^DIC(620,""B"",$E(X,1,30),DA)"
^DD(620,.01,1,2,0)="620^C^KWIC"
^DD(620,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^DIC(620,""C"",I,DA)="""""
^DD(620,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^DIC(620,""C"",I,DA)"
^DD(620,.01,3)="ANSWER MUST BE 3-75 CHARACTERS IN LENGTH"
^DD(620,.01,21,0)="^^2^2^2841212^"
^DD(620,.01,21,1,0)="This is the name of the problem category used in the Mental Health "
^DD(620,.01,21,2,0)="package problem list."
^DD(620,.01,"DT")="2911213"
^DD(620,1,0)="SCREEN^RF^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(620,1,1,0)="^.1^^0"
^DD(620,1,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(620,1,21,0)="^^4^4^2881123^^"
^DD(620,1,21,1,0)="Screen is a code which pulls indicators having this code in their"
^DD(620,1,21,2,0)="'Screen' field in association with the parent 'Problem'. Screen"
^DD(620,1,21,3,0)="is generally a single upper case or lower case letter. The"
^DD(620,1,21,4,0)="'Other' problem has A1 as its screen."
^DD(620,1,"DT")="2841212"
^DD(620,2,0)="UPPER^RF^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>75!($L(X)<3) X"
^DD(620,2,1,0)="^.1"
^DD(620,2,1,1,0)="620^D^KWIC"
^DD(620,2,1,1,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^DIC(620,""D"",I,DA)="""""
^DD(620,2,1,1,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^DIC(620,""D"",I,DA)"
^DD(620,2,3)="ANSWER MUST BE 3-75 CHARACTERS IN LENGTH"
^DD(620,2,9)="^"
^DD(620,2,21,0)="^^1^1^2850116^^"
^DD(620,2,21,1,0)="This is the problem name in uppercase.  It is used as a cross reference."
^DD(620,2,"DT")="2840517"
^DD(620,"B","NUMBER",.001)=""
^DD(620,"B","PROBLEM",.01)=""
^DD(620,"B","SCREEN",1)=""
^DD(620,"B","UPPER",2)=""
^DD(620,"GL",0,1,.01)=""
^DD(620,"GL",0,2,1)=""
^DD(620,"GL",1,1,2)=""
^DD(620,"IX",.01)=""
^DD(620,"IX",2)=""
^DD(620,"RQ",.01)=""
^DD(620,"RQ",1)=""
^DD(620,"RQ",2)=""
^DD(624,0)="FIELD^^13^15"
^DD(624,0,"DDA")="N"
^DD(624,0,"DT")="2920218"
^DD(624,0,"ID",5)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,6)"
^DD(624,0,"IX","AC",624,13)=""
^DD(624,0,"IX","B",624,.01)=""
^DD(624,0,"NM","JOB BANK")=""
^DD(624,0,"VR")="5.01"
^DD(624,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(624,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(624,.001,21,0)="^^1^1^2850116^^"
^DD(624,.001,21,1,0)="This is the internal entry number of the job."
^DD(624,.01,0)="TITLE^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(624,.01,1,0)="^.1^^-1"
^DD(624,.01,1,1,0)="624^B"
^DD(624,.01,1,1,1)="S ^YSG(""JOB"",""B"",$E(X,1,30),DA)="""""
^DD(624,.01,1,1,2)="K ^YSG(""JOB"",""B"",$E(X,1,30),DA)"
^DD(624,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(624,.01,4)=""
^DD(624,.01,21,0)="^^1^1^2940830^^^^"
^DD(624,.01,21,1,0)="This is the name of the job."
^DD(624,1,0)="INDUSTRIAL CATEGORY^S^1:CLERICAL;2:PROFESSIONAL/TECHNICAL;3:SERVICE;4:MACHINE OPERATOR/SEMI-SKILLED;5:SKILLED CRAFT;6:MANAGEMENT/OFFICER;7:SALESPERSONS;8:LABORERS;9:AGRICULTURAL;^0;2^Q"
^DD(624,1,21,0)="^^1^1^2920219^^^^"
^DD(624,1,21,1,0)="This is the industrial category to which the job belongs.  There are nine possible categories."
^DD(624,2,0)="WAGE (HOURLY)^NJ6,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999.99)!(X<0) X"
^DD(624,2,3)="Type a Dollar Amount between $.00 and $999.99, 2 Decimal Digits"
^DD(624,2,21,0)="^^1^1^2920211^^^^"
^DD(624,2,21,1,0)="This is the hourly wage paid by the job."
^DD(624,2,"DT")="2920211"
^DD(624,3,0)="HOURS PER WEEK^NJ2,0^^0;4^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1N.N) X"
^DD(624,3,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 80"
^DD(624,3,21,0)="^^1^1^2850116^^"
^DD(624,3,21,1,0)="This is the number of hours worked per week on the job."
^DD(624,4,0)="PUBLIC TRANSPORTATION^S^1:YES;2:NO;1:yes;2:no;^0;5^Q"
^DD(624,4,3)="Enter '1' or 'Y' for 'YES', '2' or 'N' for 'NO'"
^DD(624,4,21,0)="^^1^1^2920218^^^^"
^DD(624,4,21,1,0)="This field specifies whether the job site may be reached by public transportation."
^DD(624,4,"DT")="2920218"
^DD(624,5,0)="EMPLOYER^RF^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(624,5,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(624,5,21,0)="^^1^1^2850116^^"
^DD(624,5,21,1,0)="This is the name of the prospective employer."
^DD(624,6,0)="STREET ADDRESS^F^^0;7^K:$L(X)>40!($L(X)<3) X"
^DD(624,6,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(624,6,21,0)="^^1^1^2850116^^"
^DD(624,6,21,1,0)="This is the street address of the prospective employer."
^DD(624,7,0)="CITY^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(624,7,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(624,7,21,0)="^^1^1^2850116^^^"
^DD(624,7,21,1,0)="This is the city where the employer is located.."
^DD(624,8,0)="STATE^P5'^DIC(5,^0;9^Q"
^DD(624,8,21,0)="^^2^2^2850116^^^"
^DD(624,8,21,1,0)="This is the state where the prospective employer is located."
^DD(624,8,21,2,0)="The field is a pointer to the State file."
^DD(624,9,0)="ZIP^F^^0;10^K:$L(X)>5!($L(X)<5) X"
^DD(624,9,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(624,9,21,0)="^^1^1^2850116^^"
^DD(624,9,21,1,0)="This is the prospective employer's zip code."
^DD(624,10,0)="EMPLOYER PHONE^F^^0;11^K:$L(X)>25!($L(X)<3) X"
^DD(624,10,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(624,10,21,0)="^^1^1^2850116^^"
^DD(624,10,21,1,0)="This is the prospective employer's phone number."
^DD(624,11,0)="CONTACT NAME^F^^1;1^K:$L(X)>35!($L(X)<3) X"
^DD(624,11,3)="ANSWER MUST BE 3-35 CHARACTERS IN LENGTH"
^DD(624,11,21,0)="^^1^1^2850116^^"
^DD(624,11,21,1,0)="This is the person to be contacted at the prosopective place of employment."
^DD(624,12,0)="SOURCE OF JOB LEAD^S^1:JOB SERVICE;2:JOB CLUB;3:STATE REHABILITATION;4:EMPLOYER INITIATED;5:VRS;6:OTHER;^1;2^Q"
^DD(624,12,21,0)="^^1^1^2850116^^^^"
^DD(624,12,21,1,0)="This is the source from which the job lead was obtained.  There are six possible categories."
^DD(624,13,0)="DATE OF LISTING^D^^1;3^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2841022>X) X"
^DD(624,13,1,0)="^.1"
^DD(624,13,1,1,0)="624^AC"
^DD(624,13,1,1,1)="S ^YSG(""JOB"",""AC"",$E(X,1,30),DA)="""""
^DD(624,13,1,1,2)="K ^YSG(""JOB"",""AC"",$E(X,1,30),DA)"
^DD(624,13,3)="TYPE A DATE BETWEEN 10/22/1984 AND 12/31/2099"
^DD(624,13,21,0)="^^1^1^2850116^^"
^DD(624,13,21,1,0)="This is the date the job was entered into the Job file."
^DD(624,13,"DT")="2890120"
^DD(624,"B","CITY",7)=""
^DD(624,"B","CONTACT NAME",11)=""
^DD(624,"B","DATE OF LISTING",13)=""
^DD(624,"B","EMPLOYER",5)=""
^DD(624,"B","EMPLOYER PHONE",10)=""
^DD(624,"B","HOURS PER WEEK",3)=""
^DD(624,"B","INDUSTRIAL CATEGORY",1)=""
^DD(624,"B","NUMBER",.001)=""
^DD(624,"B","PUBLIC TRANSPORTATION",4)=""
^DD(624,"B","SOURCE OF JOB LEAD",12)=""
^DD(624,"B","STATE",8)=""
^DD(624,"B","STREET ADDRESS",6)=""
^DD(624,"B","TITLE",.01)=""
^DD(624,"B","WAGE (HOURLY)",2)=""
^DD(624,"B","ZIP",9)=""
^DD(624,"GL",0,1,.01)=""
^DD(624,"GL",0,2,1)=""
^DD(624,"GL",0,3,2)=""
^DD(624,"GL",0,4,3)=""
^DD(624,"GL",0,5,4)=""
^DD(624,"GL",0,6,5)=""
^DD(624,"GL",0,7,6)=""
^DD(624,"GL",0,8,7)=""
^DD(624,"GL",0,9,8)=""
^DD(624,"GL",0,10,9)=""
^DD(624,"GL",0,11,10)=""
^DD(624,"GL",1,1,11)=""
^DD(624,"GL",1,2,12)=""
^DD(624,"GL",1,3,13)=""
^DD(624,"IX",.01)=""
^DD(624,"IX",13)=""
^DD(624,"RQ",.01)=""
^DD(624,"RQ",5)=""
^DD(625,0)="FIELD^^2^3"
^DD(625,0,"DDA")="N"
^DD(625,0,"DIK")="YSXRAV"
^DD(625,0,"DIKOLD")="YSXRAV"
^DD(625,0,"IX","A",625,1)=""
^DD(625,0,"IX","B",625,.01)=""
^DD(625,0,"IX","C",625,.01)=""
^DD(625,0,"IX","D",625,2)=""
^DD(625,0,"IX","E",625,1)=""
^DD(625,0,"NM","INDICATOR")=""
^DD(625,0,"PT",615.02,.01)=""
^DD(625,0,"VR")="5.01"
^DD(625,.01,0)="INDICATOR^RFX^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(625,.01,1,0)="^.1"
^DD(625,.01,1,1,0)="625^B"
^DD(625,.01,1,1,1)="S ^DIC(625,""B"",$E(X,1,30),DA)="""""
^DD(625,.01,1,1,2)="K ^DIC(625,""B"",$E(X,1,30),DA)"
^DD(625,.01,1,2,0)="625^C^KWIC"
^DD(625,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^DIC(625,""C"",I,DA)="""""
^DD(625,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^DIC(625,""C"",I,DA)"
^DD(625,.01,3)="ANSWER MUST BE 3-70 CHARACTERS IN LENGTH"
^DD(625,.01,21,0)="^^2^2^2850723^^"
^DD(625,.01,21,1,0)="Name of an indicator of a problem. A problem such as Depression"
^DD(625,.01,21,2,0)="may have ""low self esteem"" as an indicator."
^DD(625,.01,"DT")="2911212"
^DD(625,1,0)="SCREEN^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(625,1,1,0)="^.1"
^DD(625,1,1,1,0)="625^A"
^DD(625,1,1,1,1)="S ^DIC(625,""A"",$E(X,1,30),DA)="""""
^DD(625,1,1,1,2)="K ^DIC(625,""A"",$E(X,1,30),DA)"
^DD(625,1,1,2,0)="625^E"
^DD(625,1,1,2,1)="S ^DIC(625,""E"",$E(X,1,30),DA)="""""
^DD(625,1,1,2,2)="K ^DIC(625,""E"",$E(X,1,30),DA)"
^DD(625,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(625,1,21,0)="^^2^2^2841212^"
^DD(625,1,21,1,0)="The screen field contains a string of the screen codes of the"
^DD(625,1,21,2,0)="problems with which the indicator is associated."
^DD(625,1,"DT")="2840807"
^DD(625,2,0)="UPPER^F^^1;1^K:$L(X)>70!($L(X)<3) X"
^DD(625,2,1,0)="^.1"
^DD(625,2,1,1,0)="625^D^KWIC"
^DD(625,2,1,1,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^DIC(625,""D"",I,DA)="""""
^DD(625,2,1,1,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^DIC(625,""D"",I,DA)"
^DD(625,2,3)="ANSWER MUST BE 3-70 CHARACTERS IN LENGTH"
^DD(625,2,21,0)="^^4^4^2850723^^"
^DD(625,2,21,1,0)="This field contains the name of the indicator and synonyms for"
^DD(625,2,21,2,0)="the indicator in UPPER CASE to allow lookup when the user types"
^DD(625,2,21,3,0)="one of these in in all caps. Indicator file is cross-indexed on"
^DD(625,2,21,4,0)="'Upper'."
^DD(625,2,"DT")="2841212"
^DD(625,"B","INDICATOR",.01)=""
^DD(625,"B","SCREEN",1)=""
^DD(625,"B","UPPER",2)=""
^DD(625,"GL",0,1,.01)=""
^DD(625,"GL",0,2,1)=""
^DD(625,"GL",1,1,2)=""
^DD(625,"IX",.01)=""
^DD(625,"IX",1)=""
^DD(625,"IX",2)=""
^DD(625,"RQ",.01)=""
^DD(625,"RQ",1)=""
^DD(627,0)="FIELD^^20^7"
^DD(627,0,"DDA")="N"
^DD(627,0,"DIK")="YSXRAW"
^DD(627,0,"DIKOLD")="YSXRAW"
^DD(627,0,"DT")="2931123"
^DD(627,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(627,0,"IX","B",627,.01)=""
^DD(627,0,"IX","D",627,1)=""
^DD(627,0,"IX","E",627,3)=""
^DD(627,0,"NM","DSM3")=""
^DD(627,0,"PT",90,102)=""
^DD(627,0,"PT",90,102.6)=""
^DD(627,0,"PT",90.04,.01)=""
^DD(627,0,"PT",90.06,.01)=""
^DD(627,0,"PT",90.07,.01)=""
^DD(627,0,"PT",627.99,102)=""
^DD(627,0,"PT",627.99,102.6)=""
^DD(627,0,"PT",627.9901,.01)=""
^DD(627,0,"PT",627.99103,.01)=""
^DD(627,0,"PT",627.99111,.01)=""
^DD(627,0,"VR")="5.01"
^DD(627,.001,0)="NUMBER^NJ3,0X^^ ^K:+X'=X!(X>999)!(X<1) X"
^DD(627,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(627,.001,21,0)="^^3^3^2850611^^"
^DD(627,.001,21,1,0)="This number is the official DSM 3 diagnosis number. It has"
^DD(627,.001,21,2,0)="been placed in the field which reflects the internal entry"
^DD(627,.001,21,3,0)="number. Added diagnoses should follow this."
^DD(627,.001,"DT")="2930810"
^DD(627,.01,0)="*NAME^RF^^0;1^K:$L(X)>100!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(627,.01,.1)="DIAGNOSIS"
^DD(627,.01,1,0)="^.1"
^DD(627,.01,1,1,0)="627^B"
^DD(627,.01,1,1,1)="S ^DIC(627,""B"",$E(X,1,30),DA)="""""
^DD(627,.01,1,1,2)="K ^DIC(627,""B"",$E(X,1,30),DA)"
^DD(627,.01,3)="ANSWER MUST BE 2-100 CHARACTERS IN LENGTH"
^DD(627,.01,8.5)="^"
^DD(627,.01,9)="^"
^DD(627,.01,21,0)="^^3^3^2850611^^"
^DD(627,.01,21,1,0)="This is the official name of the DSM 3 diagnosis. It should be in"
^DD(627,.01,21,2,0)="caps and lower case. A few long names are abbreviated to avoid"
^DD(627,.01,21,3,0)="screen wraparound on display at lookup."
^DD(627,.01,"DT")="2831004"
^DD(627,1,0)="*ICDA NUMBER^RF^^0;2^K:$L(X)>8!($L(X)<3) X"
^DD(627,1,.1)="ICDA9 NUMBER"
^DD(627,1,1,0)="^.1"
^DD(627,1,1,1,0)="627^D"
^DD(627,1,1,1,1)="S ^DIC(627,""D"",$E(X,1,30),DA)="""""
^DD(627,1,1,1,2)="K ^DIC(627,""D"",$E(X,1,30),DA)"
^DD(627,1,3)="Enter the DSM III code"
^DD(627,1,21,0)="^^3^3^2841213^"
^DD(627,1,21,1,0)="This is the International Classification of Diseases code number for"
^DD(627,1,21,2,0)="the DSM 3 diagnosis. Not currently displayed to users, it will be"
^DD(627,1,21,3,0)="available to MAS if they need to use the ICDA code for their statistics."
^DD(627,2,0)="*DSMIII SPECIFICATION^RF^^0;3^K:$L(X)>8!($L(X)<3) X"
^DD(627,2,.1)="DSMIII SPECIFICATION"
^DD(627,2,3)="ANSWER MUST BE 3-8 CHARACTERS IN LENGTH"
^DD(627,2,8.5)="^"
^DD(627,2,9)="^"
^DD(627,2,21,0)="^^1^1^2841213^"
^DD(627,2,21,1,0)="This is the DSM 3 code number."
^DD(627,2,"DT")="2840216"
^DD(627,3,0)="*KEYWORD FRAGMENTS^FX^^2;1^K:X[""""""""!($A(X)=45) X I $D(X) S X="" ""_X K:$L(X)>200!($L(X)<3) X"
^DD(627,3,.1)="KEYWORD FRAGMENTS"
^DD(627,3,1,0)="^.1"
^DD(627,3,1,1,0)="627^E^KWIC"
^DD(627,3,1,1,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^DIC(627,""E"",I,DA)="""""
^DD(627,3,1,1,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^DIC(627,""E"",I,DA)"
^DD(627,3,3)="Type in KEYWORDS or KEYWORD fragments separated by blank spaces to name the diagnosis. For example, 'MAJ DEP' will display the various Major Depressions."
^DD(627,3,21,0)="^^6^6^2841213^^"
^DD(627,3,21,1,0)="This field contains, in capital letters, the KEY words describing the "
^DD(627,3,21,2,0)="diagnosis. The multiple keyword fragment lookup allows looking up that"
^DD(627,3,21,3,0)="diagnosis by several keywords (including synonyms). For example, 'HEROIN'"
^DD(627,3,21,4,0)="will work as well as 'OPIATE' for looking up opiate dependency. One can look"
^DD(627,3,21,5,0)="up this diagnosis by typing keyword fragments separated by blank spaces: "
^DD(627,3,21,6,0)="e.g. 'HER DEP' or 'OPIA DEP'."
^DD(627,3,"DT")="2831004"
^DD(627,4,0)="*NUMERIC^CJ8^^ ; ^S Y(627,4,1)=$S($D(^DIC(627,D0,0)):^(0),1:"""") S X=$P(Y(627,4,1),U,2)"
^DD(627,4,.1)="NUMERIC"
^DD(627,4,9)="^"
^DD(627,4,9.01)="627^1"
^DD(627,4,9.1)="ICDA NUMBER"
^DD(627,4,21,0)="^^1^1^2890130^^^"
^DD(627,4,21,1,0)="This field is pulled from the ICDA number."
^DD(627,20,0)="DSM DISORDER IEN^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(627,20,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(627,20,8.5)="^"
^DD(627,20,9)="^"
^DD(627,20,21,0)="^^1^1^2941228^^"
^DD(627,20,21,1,0)="This is the new IEN in the DSM (627.7) file."
^DD(627,20,"DT")="2931123"
^DD(627,"B","*DSMIII SPECIFICATION",2)=""
^DD(627,"B","*ICDA NUMBER",1)=""
^DD(627,"B","*KEYWORD FRAGMENTS",3)=""
^DD(627,"B","*NAME",.01)=""
^DD(627,"B","*NUMERIC",4)=""
^DD(627,"B","DIAGNOSIS",.01)="1"
^DD(627,"B","DSM DISORDER IEN",20)=""
^DD(627,"B","DSMIII SPECIFICATION",2)="1"
^DD(627,"B","ICDA9 NUMBER",1)="1"
^DD(627,"B","KEYWORD FRAGMENTS",3)="1"
^DD(627,"B","NUMBER",.001)=""
^DD(627,"B","NUMERIC",4)="1"
^DD(627,"GL",0,1,.01)=""
^DD(627,"GL",0,2,1)=""
^DD(627,"GL",0,3,2)=""
^DD(627,"GL",0,4,20)=""
^DD(627,"GL",2,1,3)=""
^DD(627,"IX",.01)=""
^DD(627,"IX",1)=""
^DD(627,"IX",3)=""
^DD(627,"RQ",.01)=""
^DD(627,"RQ",1)=""
^DD(627,"RQ",2)=""
^DD(627.5,0)="FIELD^^15^6"
^DD(627.5,0,"DDA")="N"
^DD(627.5,0,"DIK")="YSXRAX"
^DD(627.5,0,"DIKOLD")="YSXRAX"
^DD(627.5,0,"DT")="2931130"
^DD(627.5,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(627.5,0,"IX","B",627.5,.01)=""
^DD(627.5,0,"IX","D",627.5,1)=""
^DD(627.5,0,"IX","E",627.5,5)=""
^DD(627.5,0,"NM","DSM-III-R")=""
^DD(627.5,0,"PT",627.8,1)=""
^DD(627.5,0,"PT",627.99,1)=""
^DD(627.5,0,"PT",627.99,30)=""
^DD(627.5,0,"VR")="5.01"
^DD(627.5,.01,0)="DIAGNOSIS^RF^^0;1^K:$L(X)>200!($L(X)<3)!'(X'?1P.E) X"
^DD(627.5,.01,1,0)="^.1"
^DD(627.5,.01,1,1,0)="627.5^B"
^DD(627.5,.01,1,1,1)="S ^DIC(627.5,""B"",$E(X,1,30),DA)="""""
^DD(627.5,.01,1,1,2)="K ^DIC(627.5,""B"",$E(X,1,30),DA)"
^DD(627.5,.01,3)="ANSWER MUST BE 3-200 CHARACTERS IN LENGTH"
^DD(627.5,.01,8.5)="^"
^DD(627.5,.01,9)="^"
^DD(627.5,.01,21,0)="^^1^1^2870928^^"
^DD(627.5,.01,21,1,0)="This is the DSMIII-R diagnosis name."
^DD(627.5,1,0)="ICD9 NUMBER^RF^^0;2^K:$L(X)>6!($L(X)<3) X"
^DD(627.5,1,1,0)="^.1"
^DD(627.5,1,1,1,0)="627.5^D"
^DD(627.5,1,1,1,1)="S ^DIC(627.5,""D"",$E(X,1,30),DA)="""""
^DD(627.5,1,1,1,2)="K ^DIC(627.5,""D"",$E(X,1,30),DA)"
^DD(627.5,1,3)="ANSWER MUST BE VALID ICD9 CODE CONSISTING OF 3-6 CHARACTERS (e.g., 301.00, 301.70, V15.81)"
^DD(627.5,1,8.5)="^"
^DD(627.5,1,9)="^"
^DD(627.5,1,21,0)="^^2^2^2881202^^^^"
^DD(627.5,1,21,1,0)="This is the DSMIII-R and ICD9 code number.  There is no longer"
^DD(627.5,1,21,2,0)="a unique DSMIII number."
^DD(627.5,1,"DT")="2881202"
^DD(627.5,2,0)="QUALIFIER STRING^627.51PA^^2;0"
^DD(627.5,2,21,0)="^^1^1^2930402^"
^DD(627.5,2,21,1,0)="This is a multiple valued field with subfields."
^DD(627.5,3,0)="DSM DISORDER IEN^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(627.5,3,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(627.5,3,8.5)="^"
^DD(627.5,3,9)="^"
^DD(627.5,3,21,0)="^^1^1^2941228^^"
^DD(627.5,3,21,1,0)="This is the new IEN in the DSM (627.7) file."
^DD(627.5,3,"DT")="2931130"
^DD(627.5,5,0)="KEY WORD FRAGMENTS^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>250!($L(X)<2) X"
^DD(627.5,5,1,0)="^.1"
^DD(627.5,5,1,1,0)="627.5^E^KWIC"
^DD(627.5,5,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "" ""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^DIC(627.5,""E"",I,DA)="""""
^DD(627.5,5,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "" ""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^DIC(627.5,""E"",I,DA)"
^DD(627.5,5,3)="ANSWER MUST BE 2-250 CHARACTERS IN LENGTH"
^DD(627.5,5,21,0)="^^2^2^2930402^"
^DD(627.5,5,21,1,0)="This is a string of KEY WORDS each of which is used as a lookup"
^DD(627.5,5,21,2,0)="word to assist in finding the desired DIAGNOSIS."
^DD(627.5,15,0)="SHORT TITLE^F^^3;1^K:$L(X)>30!($L(X)<2) X"
^DD(627.5,15,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(627.5,15,21,0)="^^2^2^2921130^^"
^DD(627.5,15,21,1,0)="A 2-30 character description of the more lengthy diagnosis"
^DD(627.5,15,21,2,0)="narrative."
^DD(627.5,15,"DT")="2871209"
^DD(627.5,"B","DIAGNOSIS",.01)=""
^DD(627.5,"B","DSM DISORDER IEN",3)=""
^DD(627.5,"B","ICD9 NUMBER",1)=""
^DD(627.5,"B","KEY WORD FRAGMENTS",5)=""
^DD(627.5,"B","QUALIFIER STRING",2)=""
^DD(627.5,"B","SHORT TITLE",15)=""
^DD(627.5,"GL",0,1,.01)=""
^DD(627.5,"GL",0,2,1)=""
^DD(627.5,"GL",0,3,3)=""
^DD(627.5,"GL",1,1,5)=""
^DD(627.5,"GL",2,0,2)=""
^DD(627.5,"GL",3,1,15)=""
^DD(627.5,"IX",.01)=""
^DD(627.5,"IX",1)=""
^DD(627.5,"IX",5)=""
^DD(627.5,"RQ",.01)=""
^DD(627.5,"RQ",1)=""
^DD(627.5,"SB",627.51,2)=""
^DD(627.51,0)="QUALIFIER STRING SUB-FIELD^^.01^1"
^DD(627.51,0,"DIK")="YSXRAX"
^DD(627.51,0,"IX","B",627.51,.01)=""
^DD(627.51,0,"NM","QUALIFIER STRING")=""
^DD(627.51,0,"UP")="627.5"
^DD(627.51,.01,0)="QUALIFIER STRING^MP627.9'^DIC(627.9,^0;1^Q"
^DD(627.51,.01,1,0)="^.1"
^DD(627.51,.01,1,1,0)="627.51^B"
^DD(627.51,.01,1,1,1)="S ^DIC(627.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(627.51,.01,1,1,2)="K ^DIC(627.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(627.51,.01,21,0)="^^3^3^2930402^"
^DD(627.51,.01,21,1,0)="This is a DIAGNOSIS qualifier, a description that helps to more"
^DD(627.51,.01,21,2,0)="completely define the DIAGNOSIS.  Actually stored in this field "
^DD(627.51,.01,21,3,0)="is a pointer value pointing to the DSM-III-R MODIFIERS file #627.9."
^DD(627.51,.01,"DT")="2881118"
^DD(627.51,"B","QUALIFIER STRING",.01)=""
^DD(627.51,"GL",0,1,.01)=""
^DD(627.51,"IX",.01)=""
^DD(627.7,0)="FIELD^^60^11"
^DD(627.7,0,"DT")="2940328"
^DD(627.7,0,"ID",2)="W ""#"",+Y,""   "",@(""$P($P($C(59)_$S($D(^DD(627.7,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(627.7,0,"ID",40)="W:$D(^(""D"")) ""   "",$P(^(""D""),U,1)"
^DD(627.7,0,"IX","B",627.7,.01)=""
^DD(627.7,0,"IX","DN",627.7,40)=""
^DD(627.7,0,"IX","K",627.7,50)=""
^DD(627.7,0,"IX","SN",627.7,15)=""
^DD(627.7,0,"NM","DSM")=""
^DD(627.7,0,"PT",627.8,1)=""
^DD(627.7,0,"VR")="5.01"
^DD(627.7,.01,0)="CODE^RF^^0;1^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(627.7,.01,1,0)="^.1"
^DD(627.7,.01,1,1,0)="627.7^B"
^DD(627.7,.01,1,1,1)="S ^YSD(627.7,""B"",$E(X,1,30),DA)="""""
^DD(627.7,.01,1,1,2)="K ^YSD(627.7,""B"",$E(X,1,30),DA)"
^DD(627.7,.01,3)="Answer must be 1-8 characters in length."
^DD(627.7,.01,8.5)="^"
^DD(627.7,.01,9)="^"
^DD(627.7,.01,21,0)="^^2^2^2940909^^"
^DD(627.7,.01,21,1,0)="This field holds the DSM code.  The DSM code is identical to the ICD"
^DD(627.7,.01,21,2,0)="code."
^DD(627.7,.01,"DT")="2931123"
^DD(627.7,2,0)="DSM VERSION^S^3:DSM3;3R:DSM-III-R;4:DSM-IV;^0;2^Q"
^DD(627.7,2,8.5)="^"
^DD(627.7,2,9)="^"
^DD(627.7,2,21,0)="^^1^1^2940909^"
^DD(627.7,2,21,1,0)="This field identifies the DSM version to which the entry belongs."
^DD(627.7,2,"DT")="2931123"
^DD(627.7,3,0)="SOURCE IEN^NJ9,2^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(627.7,3,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(627.7,3,8.5)="^"
^DD(627.7,3,9)="^"
^DD(627.7,3,21,0)="^^12^12^2940909^^"
^DD(627.7,3,21,1,0)="When the DSM file (#627.7) was originally created, all entries in the"
^DD(627.7,3,21,2,0)="DSM3 (#627) and DSM-III-R (#627.5) files were copied into this file."
^DD(627.7,3,21,3,0)="When that was done, the internal entry number (IEN) of the DSM3 or"
^DD(627.7,3,21,4,0)="DSM-III-R entry was recorded in the SOURCE IEN field. The data "
^DD(627.7,3,21,5,0)="contained in this field will be permanently maintained; even after the"
^DD(627.7,3,21,6,0)="source files - DSM3 and DSM-III-R - have been deleted."
^DD(627.7,3,21,7,0)="This field holds the internal entry number (IEN) of the DSM3 (#627)"
^DD(627.7,3,21,8,0)="or DSM-III-R (#627.5) entry which served as the source for the"
^DD(627.7,3,21,9,0)="corresponding entry in this file."
^DD(627.7,3,21,10,0)=" "
^DD(627.7,3,21,11,0)="Note: This field will be blank for DSM-IV entries, and all entries"
^DD(627.7,3,21,12,0)="created for future DSM versions."
^DD(627.7,3,"DT")="2931123"
^DD(627.7,4,0)="DSM3 SPECIFICATION^F^^0;4^K:$L(X)>8!($L(X)<1) X"
^DD(627.7,4,3)="Answer must be 1-8 characters in length."
^DD(627.7,4,8.5)="^"
^DD(627.7,4,9)="^"
^DD(627.7,4,21,0)="^^6^6^2940909^^^"
^DD(627.7,4,21,1,0)="When the DSM (#627) file was originally created, and the entries in the"
^DD(627.7,4,21,2,0)="DSM3 (#627) files were copied into this file, the values in the DSM3"
^DD(627.7,4,21,3,0)="file's DSMIII SPECIFICATION field were copied into this field.  The data "
^DD(627.7,4,21,4,0)="now contained in this field will be maintained permanently."
^DD(627.7,4,21,5,0)=" "
^DD(627.7,4,21,6,0)="Note:  This field will be blank for all other DSM version entries."
^DD(627.7,4,"DT")="2931123"
^DD(627.7,8,0)="ICD VERSION^S^9:ICD9;10:ICD10;^0;8^Q"
^DD(627.7,8,21,0)="^^2^2^2940909^"
^DD(627.7,8,21,1,0)="The values in this field identify the ICD version to which the entry"
^DD(627.7,8,21,2,0)="corresponds.  "
^DD(627.7,8,"DT")="2931130"
^DD(627.7,9,0)="ICDA NUMBER^F^^0;9^K:$L(X)>12!($L(X)<1) X"
^DD(627.7,9,3)="Answer must be 1-12 characters in length."
^DD(627.7,9,21,0)="^^6^6^2940909^"
^DD(627.7,9,21,1,0)="When the DSM (#627) file was originally created, and the entries in the"
^DD(627.7,9,21,2,0)="DSM3 (#627) files were copied into this file, the values in the DSM3"
^DD(627.7,9,21,3,0)="file's ICDA NUMBER field were copied into this field.  The data "
^DD(627.7,9,21,4,0)="now contained in this field will be maintained permanently."
^DD(627.7,9,21,5,0)=" "
^DD(627.7,9,21,6,0)="Note:  This field will be blank for all other DSM version entries."
^DD(627.7,9,"DT")="2931130"
^DD(627.7,15,0)="SHORT NAME^F^^0;15^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(627.7,15,1,0)="^.1"
^DD(627.7,15,1,1,0)="627.7^SN^MUMPS"
^DD(627.7,15,1,1,1)="S X=$E($$UP^XLFSTR(X),1,30),^YSD(627.7,""SN"",X,+DA)="""""
^DD(627.7,15,1,1,2)="S X=$E($$UP^XLFSTR(X),1,30) K ^YSD(627.7,""SN"",X,+DA)"
^DD(627.7,15,1,1,"DT")="2931217"
^DD(627.7,15,3)="Answer must be 2-30 characters in length."
^DD(627.7,15,21,0)="^^2^2^2940909^"
^DD(627.7,15,21,1,0)="Every diagnosis is assigned a short name.  This short name is used in"
^DD(627.7,15,21,2,0)="condensed display screens to identify the diagnosis."
^DD(627.7,15,"DT")="2931217"
^DD(627.7,16,0)="COMMENT^F^^C;1^K:$L(X)>120!($L(X)<3) X"
^DD(627.7,16,3)="Answer must be 3-120 characters in length."
^DD(627.7,16,21,0)="^^2^2^2940909^"
^DD(627.7,16,21,1,0)="The comment field is for internal use only; for developer and EP comments."
^DD(627.7,16,21,2,0)="It is not entered, edited, or displayed by the Mental Health package."
^DD(627.7,16,"DT")="2940328"
^DD(627.7,40,0)="DISORDER NAME^F^^D;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<3) X"
^DD(627.7,40,1,0)="^.1"
^DD(627.7,40,1,1,0)="627.7^DN^MUMPS"
^DD(627.7,40,1,1,1)="S X=$E($$UP^XLFSTR(X),1,30),^YSD(627.7,""DN"",X,+DA)="""""
^DD(627.7,40,1,1,2)="S X=$E($$UP^XLFSTR(X),1,30) K ^YSD(627.7,""DN"",X,+DA)"
^DD(627.7,40,1,1,"DT")="2931217"
^DD(627.7,40,3)="Answer must be 3-200 characters in length."
^DD(627.7,40,8.5)="^"
^DD(627.7,40,9)="^"
^DD(627.7,40,21,0)="^^1^1^2940909^"
^DD(627.7,40,21,1,0)="The full and official name of the DSM code is recorded in this field."
^DD(627.7,40,"DT")="2931217"
^DD(627.7,50,0)="KEYWORDS^F^^K;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<3) X"
^DD(627.7,50,1,0)="^.1"
^DD(627.7,50,1,1,0)="627.7^K^KWIC"
^DD(627.7,50,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^YSD(627.7,""K"",I,DA)="""""
^DD(627.7,50,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^YSD(627.7,""K"",I,DA)"
^DD(627.7,50,1,1,"DT")="2931217"
^DD(627.7,50,3)="Answer must be 3-200 characters in length."
^DD(627.7,50,21,0)="^^4^4^2940909^"
^DD(627.7,50,21,1,0)="All words or phrases which might be used by users during the process of"
^DD(627.7,50,21,2,0)="selecting DSM codes are placed in this long free text field.  The"
^DD(627.7,50,21,3,0)="KWIC cross-reference placed on this field enables the lookup code to"
^DD(627.7,50,21,4,0)="properly display all match possibilities for the users selection."
^DD(627.7,50,"DT")="2931217"
^DD(627.7,60,0)="QUALIFIER STRING^627.701PA^^Q;0"
^DD(627.7,60,21,0)="^^13^13^2940909^"
^DD(627.7,60,21,1,0)="After a diagnosis is selected, additional ""modifying"" or ""qualifying"""
^DD(627.7,60,21,2,0)="information can be entered by the user.  These are referred to as"
^DD(627.7,60,21,3,0)="either ""modifiers"" or ""qualifiers"", and these are placed in the"
^DD(627.7,60,21,4,0)="QUALIFIER STRING multiple.  "
^DD(627.7,60,21,5,0)=" "
^DD(627.7,60,21,6,0)="Note:  When entering diagnosis, usually, a list of qualifiers is "
^DD(627.7,60,21,7,0)="displayed for user selection.  User responses are recorded in the"
^DD(627.7,60,21,8,0)="Diagnostic Results - Mental Health (#627.8) file.  However, at times"
^DD(627.7,60,21,9,0)="qualifiers are used to provide information to the users - only."
^DD(627.7,60,21,10,0)="For example, after selecting some diagnosis the user will see a"
^DD(627.7,60,21,11,0)="message stating ""Also code 046.1 Creutzfeldt-Jakob Disease on Axis III""."
^DD(627.7,60,21,12,0)="After the display of message, no user response is requested; diagnosis"
^DD(627.7,60,21,13,0)="entry continues."
^DD(627.7,"B","CODE",.01)=""
^DD(627.7,"B","COMMENT",16)=""
^DD(627.7,"B","DISORDER NAME",40)=""
^DD(627.7,"B","DSM VERSION",2)=""
^DD(627.7,"B","DSM3 SPECIFICATION",4)=""
^DD(627.7,"B","ICD VERSION",8)=""
^DD(627.7,"B","ICDA NUMBER",9)=""
^DD(627.7,"B","KEYWORDS",50)=""
^DD(627.7,"B","QUALIFIER STRING",60)=""
^DD(627.7,"B","SHORT NAME",15)=""
^DD(627.7,"B","SOURCE IEN",3)=""
^DD(627.7,"GL",0,1,.01)=""
^DD(627.7,"GL",0,2,2)=""
^DD(627.7,"GL",0,3,3)=""
^DD(627.7,"GL",0,4,4)=""
^DD(627.7,"GL",0,8,8)=""
^DD(627.7,"GL",0,9,9)=""
^DD(627.7,"GL",0,15,15)=""
^DD(627.7,"GL","C",1,16)=""
^DD(627.7,"GL","D",1,40)=""
^DD(627.7,"GL","K",1,50)=""
^DD(627.7,"GL","Q",0,60)=""
^DD(627.7,"IX",.01)=""
^DD(627.7,"IX",15)=""
^DD(627.7,"IX",40)=""
^DD(627.7,"IX",50)=""
^DD(627.7,"RQ",.01)=""
^DD(627.7,"SB",627.701,60)=""
^DD(627.701,0)="QUALIFIER STRING SUB-FIELD^^.01^1"
^DD(627.701,0,"DT")="2931123"
^DD(627.701,0,"IX","B",627.701,.01)=""
^DD(627.701,0,"NM","QUALIFIER STRING")=""
^DD(627.701,0,"UP")="627.7"
^DD(627.701,.01,0)="QUALIFIER STRING^MP627.9'X^DIC(627.9,^0;1^S DINUM=X"
^DD(627.701,.01,1,0)="^.1"
^DD(627.701,.01,1,1,0)="627.701^B"
^DD(627.701,.01,1,1,1)="S ^YSD(627.7,DA(1),""Q"",""B"",$E(X,1,30),DA)="""""
^DD(627.701,.01,1,1,2)="K ^YSD(627.7,DA(1),""Q"",""B"",$E(X,1,30),DA)"
^DD(627.701,.01,21,0)="^^2^2^2940909^^"
^DD(627.701,.01,21,1,0)="This field holds the list of qualifiers used for each diagnosis.  "
^DD(627.701,.01,21,2,0)="(See the field description of field 60 for a complete explanation.)"
^DD(627.701,.01,"DT")="2940824"
^DD(627.701,"B","QUALIFIER STRING",.01)=""
^DD(627.701,"GL",0,1,.01)=""
^DD(627.701,"IX",.01)=""
^DD(627.8,0)="FIELD^^80^17"
^DD(627.8,0,"DDA")="N"
^DD(627.8,0,"DIK")="YSXRAY"
^DD(627.8,0,"DIKOLD")="YSXRAY"
^DD(627.8,0,"IX","AC",627.8,7)=""
^DD(627.8,0,"IX","AD",627.8,10)=""
^DD(627.8,0,"IX","AE",627.8,1)=""
^DD(627.8,0,"IX","AF",627.8,1)=""
^DD(627.8,0,"IX","AG",627.8,1)=""
^DD(627.8,0,"IX","AH",627.8,10)=""
^DD(627.8,0,"IX","AX4",627.8,61)=""
^DD(627.8,0,"IX","AX5",627.8,65)=""
^DD(627.8,0,"IX","B",627.8,.01)=""
^DD(627.8,0,"IX","C",627.8,.02)=""
^DD(627.8,0,"NM","DIAGNOSTIC RESULTS - MENTAL HEALTH")=""
^DD(627.8,0,"PT",627.99,.01)=""
^DD(627.8,0,"VR")="5.01"
^DD(627.8,.01,0)="FILE ENTRY DATE^RDX^^0;1^S %DT=""ETXR"" D ^%DT S X=$P($H,"","",2),Y=Y_"".""_$E(0,1,2-$L(X\3600))_(X\3600)_$E(0,1,2-$L(X#3600\60))_(X#3600\60)_$E(0,1,2-$L(X#60))_(X#60),Y=+Y,X=Y K:Y<1 X"
^DD(627.8,.01,1,0)="^.1"
^DD(627.8,.01,1,1,0)="627.8^B"
^DD(627.8,.01,1,1,1)="S ^YSD(627.8,""B"",$E(X,1,30),DA)="""""
^DD(627.8,.01,1,1,2)="K ^YSD(627.8,""B"",$E(X,1,30),DA)"
^DD(627.8,.01,3)=""
^DD(627.8,.01,21,0)="^^1^1^2940830^^"
^DD(627.8,.01,21,1,0)="Date/time patient data entered into file.  Transparent to user."
^DD(627.8,.02,0)="PATIENT NAME^RP2'^DPT(^0;2^Q"
^DD(627.8,.02,1,0)="^.1"
^DD(627.8,.02,1,1,0)="627.8^C"
^DD(627.8,.02,1,1,1)="S ^YSD(627.8,""C"",$E(X,1,30),DA)="""""
^DD(627.8,.02,1,1,2)="K ^YSD(627.8,""C"",$E(X,1,30),DA)"
^DD(627.8,.02,1,1,"DT")="2960903"
^DD(627.8,.02,21,0)="^^1^1^2871207^"
^DD(627.8,.02,21,1,0)="Patient name.  Set through the routine, ^YSLRP."
^DD(627.8,.02,"DT")="2960903"
^DD(627.8,.03,0)="DATE/TIME OF DIAGNOSIS^RD^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(627.8,.03,21,0)="^^1^1^2871207^^"
^DD(627.8,.03,21,1,0)="Date and time of diagnosis as indicated by person formulating the dx."
^DD(627.8,.04,0)="DIAGNOSIS BY^P200'^VA(200,^0;4^Q"
^DD(627.8,.04,21,0)="^^1^1^2940830^^"
^DD(627.8,.04,21,1,0)="Person responsible for dx.  Not necessarily the transcriber."
^DD(627.8,.05,0)="TRANSCRIBER^P200'^VA(200,^0;5^Q"
^DD(627.8,.05,21,0)="^^1^1^2871207^"
^DD(627.8,.05,21,1,0)="Person entering data into the file.  Transparent to user."
^DD(627.8,1,0)="DIAGNOSIS^V^^1;1^Q"
^DD(627.8,1,1,0)="^.1"
^DD(627.8,1,1,1,0)="627.8^AE^MUMPS"
^DD(627.8,1,1,1,1)="S X1=$S(X[""ICD"":""I"",X[""DIC"":""D"",1:""Z""),^YSD(627.8,""AE"",X1,$P(^YSD(627.8,DA,0),""^"",2),$P(^YSD(627.8,DA,0),""^"",3),$E(X,1,30),DA)="""""
^DD(627.8,1,1,1,2)="S X1=$S(X[""ICD"":""I"",X[""DIC"":""D"",1:""Z"") K ^YSD(627.8,""AE"",X1,$P(^YSD(627.8,DA,0),""^"",2),$P(^YSD(627.8,DA,0),""^"",3),$E(X,1,30),DA)"
^DD(627.8,1,1,2,0)="627.8^AF^MUMPS"
^DD(627.8,1,1,2,1)="S ^YSD(627.8,""AF"",$P(^YSD(627.8,DA,0),""^"",2),9999999.0000-$P(^YSD(627.8,DA,0),""^"",3),$E(X,1,30),DA)="""""
^DD(627.8,1,1,2,2)="K ^YSD(627.8,""AF"",$P(^YSD(627.8,DA,0),""^"",2),9999999.0000-$P(^YSD(627.8,DA,0),""^"",3),$E(X,1,30),DA)"
^DD(627.8,1,1,3,0)="627.8^AG^MUMPS"
^DD(627.8,1,1,3,1)="S X1=$S(X[""ICD"":""I"",X[""DIC"":""D"",1:""Z""),^YSD(627.8,""AG"",X1,$P(^YSD(627.8,DA,0),""^"",2),$E(X,1,30),DA)="""""
^DD(627.8,1,1,3,2)="S X1=$S(X[""ICD"":""I"",X[""DIC"":""D"",1:""Z"") K ^YSD(627.8,""AG"",X1,$P(^YSD(627.8,DA,0),""^"",2),$E(X,1,30),DA)"
^DD(627.8,1,3)="Enter a DSM code for Axes 1 or 2; an ICD9 Code for Axis 3."
^DD(627.8,1,21,0)="^^3^3^2940830^^^^"
^DD(627.8,1,21,1,0)="The diagnosis is a condition which may be responsible for the "
^DD(627.8,1,21,2,0)="evaluation or admission to clinical care."
^DD(627.8,1,21,3,0)="     "
^DD(627.8,1,"V",0)="^.12P^3^2"
^DD(627.8,1,"V",2,0)="80^ICD DIAGNOSIS^2^I^n^n"
^DD(627.8,1,"V",3,0)="627.5^DSM-III-R^1^D^^n"
^DD(627.8,1,"V",4,0)="627.7^DSM^3^4^n^n"
^DD(627.8,1,"V","B",80,2)=""
^DD(627.8,1,"V","B",627.5,3)=""
^DD(627.8,1,"V","B",627.7,4)=""
^DD(627.8,1,"V","M","DSM",4)=""
^DD(627.8,1,"V","M","DSM-III-R",3)=""
^DD(627.8,1,"V","M","ICD DIAGNOSIS",2)=""
^DD(627.8,1,"V","O",1,3)=""
^DD(627.8,1,"V","O",2,2)=""
^DD(627.8,1,"V","O",3,4)=""
^DD(627.8,1,"V","P",4,4)=""
^DD(627.8,1,"V","P","D",3)=""
^DD(627.8,1,"V","P","I",2)=""
^DD(627.8,5,0)="STATUS (V/P/R/I/N/RU)^RS^v:VERIFIED;p:PROVISIONAL;r:REFORMULATED;i:INACTIVE;n:NOT FOUND;ru:RULE OUT;^1;2^Q"
^DD(627.8,5,21,0)="^^1^1^2930402^"
^DD(627.8,5,21,1,0)="This is a SET of codes defining the status of the diagnosis."
^DD(627.8,7,0)="CONDITION^RS^A:ACTIVE;I:INACTIVATED;^1;4^Q"
^DD(627.8,7,1)="^^^I"
^DD(627.8,7,1,0)="^.1"
^DD(627.8,7,1,1,0)="627.8^AC^MUMPS"
^DD(627.8,7,1,1,1)="S ^YSD(627.8,""AC"",$P(^YSD(627.8,DA,0),""^"",2),9999999-$P(^YSD(627.8,DA,0),""^"",3),$P(^YSD(627.8,DA,1),""^""),X,DA)="""""
^DD(627.8,7,1,1,2)="K ^YSD(627.8,""AC"",$P(^YSD(627.8,DA,0),""^"",2),9999999-$P(^YSD(627.8,DA,0),""^"",3),$P(^YSD(627.8,DA,1),""^""),X,DA)"
^DD(627.8,7,21,0)="^^3^3^2871207^"
^DD(627.8,7,21,1,0)="States whether a dx is clinically active or inactive.  (Active is based"
^DD(627.8,7,21,2,0)="on the status of verified or provisional.  All others are considered"
^DD(627.8,7,21,3,0)="inactive.)"
^DD(627.8,8,0)="INACTIVATED DATE^RD^^1;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(627.8,8,21,0)="^^3^3^2871207^"
^DD(627.8,8,21,1,0)="When a dx status changes from active to inactive, this flags is set."
^DD(627.8,8,21,2,0)="This permits the system to show only truly active dx while maintaining"
^DD(627.8,8,21,3,0)="a history of the dx's status."
^DD(627.8,9,0)="STATUS CHANGED^S^Y:YES;N:NO;^1;6^Q"
^DD(627.8,9,21,0)="^^2^2^2871211^"
^DD(627.8,9,21,1,0)="Indicates if this dx's status has been changes from Active to"
^DD(627.8,9,21,2,0)="Inactive."
^DD(627.8,10,0)="DXLS^RS^y:YES;n:NO;c:CHANGED;^1;3^Q"
^DD(627.8,10,1,0)="^.1"
^DD(627.8,10,1,1,0)="627.8^AD^MUMPS"
^DD(627.8,10,1,1,1)="S:X=""y"" ^YSD(627.8,""AD"",$P(^YSD(627.8,DA,0),""^"",2),9999999.0000-$P(^YSD(627.8,DA,0),""^"",3),DA)="""""
^DD(627.8,10,1,1,2)="K:X=""y"" ^YSD(627.8,""AD"",$P(^YSD(627.8,DA,0),""^"",2),9999999.0000-$P(^YSD(627.8,DA,0),""^"",3),DA)"
^DD(627.8,10,1,2,0)="627.8^AH^MUMPS"
^DD(627.8,10,1,2,1)="I ""yc""[X S ^YSD(627.8,""AH"",$P(^YSD(627.8,DA,0),""^"",2),9999999-$P(^YSD(627.8,DA,0),""^"",3),DA)="""""
^DD(627.8,10,1,2,2)="I ""yc""[X K ^YSD(627.8,""AH"",$P(^YSD(627.8,DA,0),""^"",2),9999999-$P(^YSD(627.8,DA,0),""^"",3),DA)"
^DD(627.8,10,21,0)="^^6^6^2940830^^^^"
^DD(627.8,10,21,1,0)="This is the diagnosis accounting for the largest % of length"
^DD(627.8,10,21,2,0)="of stay for an admission.  There may only be ONE DXLS (DSM"
^DD(627.8,10,21,3,0)="or IDCD9) per admission."
^DD(627.8,10,21,4,0)="   "
^DD(627.8,10,21,5,0)="This information may not be the same as that stored in the"
^DD(627.8,10,21,6,0)="Patient Treatment Folder (PTF).  "
^DD(627.8,50,0)="MODIFIERS^627.82PA^^5;0"
^DD(627.8,50,21,0)="^^2^2^2940830^^^^"
^DD(627.8,50,21,1,0)="Modifiers further clarify the diagnosis.  They are entered in"
^DD(627.8,50,21,2,0)="accordance with the DSM-IV Manual."
^DD(627.8,60,0)="PSYCHOSOCIAL STRESSOR^F^^60;1^K:$L(X)>60!($L(X)<1) X"
^DD(627.8,60,1,0)="^.1^^0"
^DD(627.8,60,3)="Short, descriptive narrative of stressor (1-60 characters in length)."
^DD(627.8,60,21,0)="^^2^2^2871117^"
^DD(627.8,60,21,1,0)="A stressor frequently plays a precipitating role in a disorder or it"
^DD(627.8,60,21,2,0)="may also be a consequence of the person's psychopathology."
^DD(627.8,61,0)="SEVERITY CODE^S^1:NONE;2:MILD;3:MODERATE;4:SEVERE;5:EXTREME;6:CATASTROPHIC;0:INADEQUATE INFORMATION/NO CHANGE IN CONDITION;^60;2^Q"
^DD(627.8,61,1,0)="^.1"
^DD(627.8,61,1,1,0)="627.8^AX4^MUMPS"
^DD(627.8,61,1,1,1)="N X1 S X1=$G(^YSD(627.8,DA,0)) S ^YSD(627.8,""AX4"",$P(X1,U,2),9999999-$P(X1,U,3),DA)="""""
^DD(627.8,61,1,1,2)="N X1 S X1=$G(^YSD(627.8,DA,0)) K ^YSD(627.8,""AX4"",$P(X1,U,2),9999999-$P(X1,U,3),DA)"
^DD(627.8,61,3)="Enter degree (0-6) of severity of psychosocial stressor."
^DD(627.8,61,21,0)="^^4^4^2871117^"
^DD(627.8,61,21,1,0)="Axis 4 provides a scale, the Severity of Psychosocial Stressors Scale,"
^DD(627.8,61,21,2,0)="for coding overall severity of a psychosocial stressor or multiple"
^DD(627.8,61,21,3,0)="psychosocial stressors that have occurred in the year preceding the"
^DD(627.8,61,21,4,0)="current evaluation."
^DD(627.8,65,0)="AXIS 5^NJ3,0^^60;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(627.8,65,1,0)="^.1"
^DD(627.8,65,1,1,0)="627.8^AX5^MUMPS"
^DD(627.8,65,1,1,1)="N X1 S X1=$G(^YSD(627.8,DA,0)) S ^YSD(627.8,""AX5"",$P(X1,U,2),9999999-$P(X1,U,3),DA)="""""
^DD(627.8,65,1,1,2)="N X1 S X1=$G(^YSD(627.8,DA,0)) K ^YSD(627.8,""AX5"",$P(X1,U,2),9999999-$P(X1,U,3),DA)"
^DD(627.8,65,3)="Type a number (1-100) relevant to the GAF Scale."
^DD(627.8,65,21,0)="^^4^4^2970929^^^"
^DD(627.8,65,21,1,0)="Axis 5 permits the clinician to indicate his/her overall judgment"
^DD(627.8,65,21,2,0)="of a person's psychological, social and occupation functioning on"
^DD(627.8,65,21,3,0)="a scale, the Global Assessment of Functioning (GAF Scale), that"
^DD(627.8,65,21,4,0)="assesses mental illness."
^DD(627.8,65,"DT")="2970926"
^DD(627.8,66,0)="PATIENT TYPE^S^I:In-Patient;O:Out-Patient;^60;4^Q"
^DD(627.8,66,3)="Please enter 'I' for In-Patient or 'O' for Out-Patient"
^DD(627.8,66,21,0)="^^1^1^2980615^^^^"
^DD(627.8,66,21,1,0)="Patient Type indicates that the patient is either an 'I'n-Patient or 'O'ut-Patient. "
^DD(627.8,66,"DT")="2980615"
^DD(627.8,80,0)="COMMENT^627.81^^80;0"
^DD(627.8,80,21,0)="^^1^1^2930402^"
^DD(627.8,80,21,1,0)="This is additional comments describing this diagnosis."
^DD(627.8,"B","AXIS 5",65)=""
^DD(627.8,"B","COMMENT",80)=""
^DD(627.8,"B","CONDITION",7)=""
^DD(627.8,"B","DATE/TIME OF DIAGNOSIS",.03)=""
^DD(627.8,"B","DIAGNOSIS",1)=""
^DD(627.8,"B","DIAGNOSIS BY",.04)=""
^DD(627.8,"B","DXLS",10)=""
^DD(627.8,"B","FILE ENTRY DATE",.01)=""
^DD(627.8,"B","INACTIVATED DATE",8)=""
^DD(627.8,"B","MODIFIERS",50)=""
^DD(627.8,"B","PATIENT NAME",.02)=""
^DD(627.8,"B","PATIENT TYPE",66)=""
^DD(627.8,"B","PSYCHOSOCIAL STRESSOR",60)=""
^DD(627.8,"B","SEVERITY CODE",61)=""
^DD(627.8,"B","STATUS (V/P/R/I/N/RU)",5)=""
^DD(627.8,"B","STATUS CHANGED",9)=""
^DD(627.8,"B","TRANSCRIBER",.05)=""
^DD(627.8,"GL",0,1,.01)=""
^DD(627.8,"GL",0,2,.02)=""
^DD(627.8,"GL",0,3,.03)=""
^DD(627.8,"GL",0,4,.04)=""
^DD(627.8,"GL",0,5,.05)=""
^DD(627.8,"GL",1,1,1)=""
^DD(627.8,"GL",1,2,5)=""
^DD(627.8,"GL",1,3,10)=""
^DD(627.8,"GL",1,4,7)=""
^DD(627.8,"GL",1,5,8)=""
^DD(627.8,"GL",1,6,9)=""
^DD(627.8,"GL",5,0,50)=""
^DD(627.8,"GL",60,1,60)=""
^DD(627.8,"GL",60,2,61)=""
^DD(627.8,"GL",60,3,65)=""
^DD(627.8,"GL",60,4,66)=""
^DD(627.8,"GL",80,0,80)=""
^DD(627.8,"IX",.01)=""
^DD(627.8,"IX",.02)=""
^DD(627.8,"IX",1)=""
^DD(627.8,"IX",7)=""
^DD(627.8,"IX",10)=""
^DD(627.8,"IX",61)=""
^DD(627.8,"IX",65)=""
^DD(627.8,"RQ",.01)=""
^DD(627.8,"RQ",.02)=""
^DD(627.8,"RQ",.03)=""
^DD(627.8,"RQ",5)=""
^DD(627.8,"RQ",7)=""
^DD(627.8,"RQ",8)=""
^DD(627.8,"RQ",10)=""
^DD(627.8,"SB",627.81,80)=""
^DD(627.8,"SB",627.82,50)=""
^DD(627.81,0)="COMMENT SUB-FIELD^^.01^1"
^DD(627.81,0,"NM","COMMENT")=""
^DD(627.81,0,"UP")="627.8"
^DD(627.81,.01,0)="COMMENT^WL^^0;1^Q"
^DD(627.81,"B","COMMENT",.01)=""
^DD(627.81,"GL",0,1,.01)=""
^DD(627.82,0)="MODIFIERS SUB-FIELD^^2^3"
^DD(627.82,0,"DIK")="YSXRAY"
^DD(627.82,0,"IX","B",627.82,.01)=""
^DD(627.82,0,"NM","MODIFIERS")=""
^DD(627.82,0,"UP")="627.8"
^DD(627.82,.01,0)="MODIFIER^MP627.9'^DIC(627.9,^0;1^Q"
^DD(627.82,.01,1,0)="^.1"
^DD(627.82,.01,1,1,0)="627.82^B"
^DD(627.82,.01,1,1,1)="S ^YSD(627.8,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(627.82,.01,1,1,2)="K ^YSD(627.8,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(627.82,.01,21,0)="^^1^1^2880413^^^"
^DD(627.82,.01,21,1,0)="Each dx has a modifier or group of modifiers to further define itself."
^DD(627.82,1,0)="NUMBER OF ANSWER^F^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(627.82,1,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(627.82,1,21,0)="^^1^1^2871207^"
^DD(627.82,1,21,1,0)="Stores the response made by the responsible party to the modifier."
^DD(627.82,2,0)="STANDS FOR^F^^0;3^K:$L(X)>60!($L(X)<1) X"
^DD(627.82,2,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(627.82,2,21,0)="^^2^2^2871207^"
^DD(627.82,2,21,1,0)="Actual narrative of modifier.  Stored to speed printout of lists"
^DD(627.82,2,21,2,0)="and reports."
^DD(627.82,"B","MODIFIER",.01)=""
^DD(627.82,"B","NUMBER OF ANSWER",1)=""
^DD(627.82,"B","STANDS FOR",2)=""
^DD(627.82,"GL",0,1,.01)=""
^DD(627.82,"GL",0,2,1)=""
^DD(627.82,"GL",0,3,2)=""
^DD(627.82,"IX",.01)=""
^DD(627.9,0)="FIELD^^4^6"
^DD(627.9,0,"DDA")="N"
^DD(627.9,0,"DIK")="YSXRAZ"
^DD(627.9,0,"DIKOLD")="YSXRAZ"
^DD(627.9,0,"DT")="2940324"
^DD(627.9,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(627.9,0,"IX","B",627.9,.01)=""
^DD(627.9,0,"NM","DSM MODIFIERS")=""
^DD(627.9,0,"PT",627.51,.01)=""
^DD(627.9,0,"PT",627.701,.01)=""
^DD(627.9,0,"PT",627.82,.01)=""
^DD(627.9,0,"VR")="5.01"
^DD(627.9,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(627.9,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(627.9,.001,21,0)="^^2^2^2940909^^"
^DD(627.9,.001,21,1,0)="This is the internal entry number of the record.  Defined so that the"
^DD(627.9,.001,21,2,0)="Modifier may be selected by number or by ENTRY NAME."
^DD(627.9,.01,0)="ENTRY NAME^RNJ3,0X^^0;1^S DINUM=X K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(627.9,.01,1,0)="^.1"
^DD(627.9,.01,1,1,0)="627.9^B"
^DD(627.9,.01,1,1,1)="S ^DIC(627.9,""B"",$E(X,1,30),DA)="""""
^DD(627.9,.01,1,1,2)="K ^DIC(627.9,""B"",$E(X,1,30),DA)"
^DD(627.9,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(627.9,.01,21,0)="2^^2^2^2941117^^^^"
^DD(627.9,.01,21,1,0)="This a sequentual number naming the specific modifier, such as modifier"
^DD(627.9,.01,21,2,0)="number 1.  Gives modifier description uniqueness."
^DD(627.9,1,0)="PROMPT^RFO^^0;2^K:$L(X)>230!($L(X)<1) X"
^DD(627.9,1,2)="S Y(0)=Y S X2=$P(^DIC(627.9,D0,0),""^"") W:X2=32 $E(X,1,43),!,$E(X,44,112) W:X=33 $E(X,1,52),!,$E(X,53,121) W:X2=35 $E(X,1,64),!,$E(X,65,132) K X2"
^DD(627.9,1,2.1)="S X2=$P(^DIC(627.9,D0,0),""^"") W:X2=32 $E(X,1,43),!,$E(X,44,112) W:X=33 $E(X,1,52),!,$E(X,53,121) W:X2=35 $E(X,1,64),!,$E(X,65,132) K X2"
^DD(627.9,1,3)="Answer must be 1-230 characters in length."
^DD(627.9,1,21,0)="^^4^4^2941117^^^^"
^DD(627.9,1,21,1,0)="This is a prompt which is displayed for the different modifiers.  "
^DD(627.9,1,21,2,0)="Usually, the prompt specifies the various selection (modifier) choices."
^DD(627.9,1,21,3,0)="At times, prompts are displayed for informational purposes, and"
^DD(627.9,1,21,4,0)="no user response is possible."
^DD(627.9,1,"DT")="2940324"
^DD(627.9,2,0)="REPLIES^627.92A^^1;0"
^DD(627.9,2,8.5)="^"
^DD(627.9,2,21,0)="^^6^6^2941117^^^^"
^DD(627.9,2,21,1,0)="After the prompt is displayed, and the user has selected the desired"
^DD(627.9,2,21,2,0)="modifier or modifiers (see field description under ASK MORE THAN"
^DD(627.9,2,21,3,0)="ONCE field), the value of the selected prompt is not stored; the"
^DD(627.9,2,21,4,0)="value of the STANDS FOR field is stored.  (Usually, the selection"
^DD(627.9,2,21,5,0)="prompt (contained in the PROMPT field) and the value of the STANDS"
^DD(627.9,2,21,6,0)="FOR field are identical.)"
^DD(627.9,3,0)="ASK MORE THAN ONCE^S^Y:YES;N:NO;^2;1^Q"
^DD(627.9,3,21,0)="^^2^2^2941117^^^"
^DD(627.9,3,21,1,0)="This field indicates if the modifier prompt should be presented "
^DD(627.9,3,21,2,0)="(asked) more than once.  This would allow for more than one choice."
^DD(627.9,4,0)="DSM VERSIONS^627.904A^^4;0"
^DD(627.9,4,8.5)="^"
^DD(627.9,4,21,0)="^^2^2^2941117^^^^"
^DD(627.9,4,21,1,0)="This multiple records every DSM version under which the DSM Modifier"
^DD(627.9,4,21,2,0)="file entry has been used.  "
^DD(627.9,"B","ASK MORE THAN ONCE",3)=""
^DD(627.9,"B","DSM VERSIONS",4)=""
^DD(627.9,"B","ENTRY NAME",.01)=""
^DD(627.9,"B","NUMBER",.001)=""
^DD(627.9,"B","PROMPT",1)=""
^DD(627.9,"B","REPLIES",2)=""
^DD(627.9,"GL",0,1,.01)=""
^DD(627.9,"GL",0,2,1)=""
^DD(627.9,"GL",1,0,2)=""
^DD(627.9,"GL",2,1,3)=""
^DD(627.9,"GL",4,0,4)=""
^DD(627.9,"IX",.01)=""
^DD(627.9,"RQ",.01)=""
^DD(627.9,"RQ",1)=""
^DD(627.9,"SB",627.904,4)=""
^DD(627.9,"SB",627.92,2)=""
^DD(627.904,0)="DSM VERSIONS SUB-FIELD^^.01^1"
^DD(627.904,0,"DIK")="YSXRAZ"
^DD(627.904,0,"DT")="2940324"
^DD(627.904,0,"IX","B",627.904,.01)=""
^DD(627.904,0,"NM","DSM VERSIONS")=""
^DD(627.904,0,"UP")="627.9"
^DD(627.904,.01,0)="DSM VERSIONS^MF^^0;1^K:$L(X)>12!($L(X)<3) X"
^DD(627.904,.01,1,0)="^.1"
^DD(627.904,.01,1,1,0)="627.904^B"
^DD(627.904,.01,1,1,1)="S ^DIC(627.9,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(627.904,.01,1,1,2)="K ^DIC(627.9,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(627.904,.01,3)="Answer must be 3-12 characters in length."
^DD(627.904,.01,"DT")="2940324"
^DD(627.904,"B","DSM VERSIONS",.01)=""
^DD(627.904,"GL",0,1,.01)=""
^DD(627.904,"IX",.01)=""
^DD(627.92,0)="REPLIES SUB-FIELD^^1^2"
^DD(627.92,0,"DIK")="YSXRAZ"
^DD(627.92,0,"IX","B",627.92,.01)=""
^DD(627.92,0,"NM","REPLIES")=""
^DD(627.92,0,"UP")="627.9"
^DD(627.92,.01,0)="INTERNAL CODE^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(627.92,.01,1,0)="^.1^^-1"
^DD(627.92,.01,1,1,0)="627.92^B"
^DD(627.92,.01,1,1,1)="S ^DIC(627.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(627.92,.01,1,1,2)="K ^DIC(627.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(627.92,.01,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(627.92,.01,21,0)="^^2^2^2941117^^^"
^DD(627.92,.01,21,1,0)="This the internal code for the REPLY to the PROMPT, such as ""Y"" for"
^DD(627.92,.01,21,2,0)="""YES"" or ""1"" for item number one."
^DD(627.92,1,0)="STANDS FOR^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(627.92,1,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(627.92,1,21,0)="^^4^4^2941117^^^"
^DD(627.92,1,21,1,0)="This is the meaning (STANDS FOR) of the selection made (INTERNAL CODE)"
^DD(627.92,1,21,2,0)="selected.  For example: if ""1"" was selected a the prompt ""Specify: 1="
^DD(627.92,1,21,3,0)="EARLY ONSET; 2=LATE ONSET"" then the STANDS FOR is the definition "
^DD(627.92,1,21,4,0)="""EARLY ONSET""."
^DD(627.92,"B","INTERNAL CODE",.01)=""
^DD(627.92,"B","STANDS FOR",1)=""
^DD(627.92,"GL",0,1,.01)=""
^DD(627.92,"GL",0,2,1)=""
^DD(627.92,"IX",.01)=""
^DD(627.99,0)="FIELD^^111^9"
^DD(627.99,0,"DDA")="N"
^DD(627.99,0,"DT")="2931208"
^DD(627.99,0,"IX","B",627.99,.01)=""
^DD(627.99,0,"NM","DSM CONVERSION")=""
^DD(627.99,0,"VR")="5.01"
^DD(627.99,.01,0)="ENTRY^RV^^0;1^Q"
^DD(627.99,.01,1,0)="^.1"
^DD(627.99,.01,1,1,0)="627.99^B"
^DD(627.99,.01,1,1,1)="S ^YSD(627.99,""B"",$E(X,1,30),DA)="""""
^DD(627.99,.01,1,1,2)="K ^YSD(627.99,""B"",$E(X,1,30),DA)"
^DD(627.99,.01,3)=""
^DD(627.99,.01,8.5)="^"
^DD(627.99,.01,9)="^"
^DD(627.99,.01,21,0)="^^6^6^2940909^"
^DD(627.99,.01,21,1,0)="Three different clinical data files, holding DSM-III or DSM-III-R"
^DD(627.99,.01,21,2,0)="diagnostic codes recorded for patients, are converted by the Mental"
^DD(627.99,.01,21,3,0)="Health V. 5.01 conversion code: Medical Record (#90), Generic Progress"
^DD(627.99,.01,21,4,0)="Notes (#121), and the Diagnostic Results - Mental Health (#627.8)."
^DD(627.99,.01,21,5,0)="The identities of each converted entry in each file is recorded by"
^DD(627.99,.01,21,6,0)="entries made in the variable pointer ENTRY field."
^DD(627.99,.01,"DT")="2931207"
^DD(627.99,.01,"V",0)="^.12P^3^3"
^DD(627.99,.01,"V",1,0)="90^Medical Record^1^MR^n^n"
^DD(627.99,.01,"V",2,0)="121^Generic Progress Notes^2^PN^n^n"
^DD(627.99,.01,"V",3,0)="627.8^Diagnostic Results - MH^3^DR^n^n"
^DD(627.99,.01,"V","B",90,1)=""
^DD(627.99,.01,"V","B",121,2)=""
^DD(627.99,.01,"V","B",627.8,3)=""
^DD(627.99,.01,"V","M","Diagnostic Results - MH",3)=""
^DD(627.99,.01,"V","M","Generic Progress Notes",2)=""
^DD(627.99,.01,"V","M","Medical Record",1)=""
^DD(627.99,.01,"V","O",1,1)=""
^DD(627.99,.01,"V","O",2,2)=""
^DD(627.99,.01,"V","O",3,3)=""
^DD(627.99,.01,"V","P","DR",3)=""
^DD(627.99,.01,"V","P","MR",1)=""
^DD(627.99,.01,"V","P","PN",2)=""
^DD(627.99,1,0)="DIAGNOSIS^V^^1;1^Q"
^DD(627.99,1,8.5)="^"
^DD(627.99,1,9)="^"
^DD(627.99,1,21,0)="^^4^4^2940909^"
^DD(627.99,1,21,1,0)="All DSM-III-R codes stored in the DIAGNOSIS (#1) field of the Diagnostic"
^DD(627.99,1,21,2,0)="Results - Mental Health (#627.8) file are repointed from the DSM-III-R"
^DD(627.99,1,21,3,0)="(#627.5) file to the DSM (#627.7) file.  The original value of the "
^DD(627.99,1,21,4,0)="DIAGNOSIS field prior to repointing is stored in this field."
^DD(627.99,1,"DT")="2931207"
^DD(627.99,1,"V",0)="^.12P^2^2"
^DD(627.99,1,"V",1,0)="80^ICD DIAGNOSIS^1^I^n^n"
^DD(627.99,1,"V",2,0)="627.5^DSM-III-R^2^D^n^n"
^DD(627.99,1,"V","B",80,1)=""
^DD(627.99,1,"V","B",627.5,2)=""
^DD(627.99,1,"V","M","DSM-III-R",2)=""
^DD(627.99,1,"V","M","ICD DIAGNOSIS",1)=""
^DD(627.99,1,"V","O",1,1)=""
^DD(627.99,1,"V","O",2,2)=""
^DD(627.99,1,"V","P","D",2)=""
^DD(627.99,1,"V","P","I",1)=""
^DD(627.99,2,0)="STATUS^S^R:RECORDED;C:CONVERTED;S:STARTING;E:ERROR;^0;2^Q"
^DD(627.99,2,8.5)="^"
^DD(627.99,2,9)="^"
^DD(627.99,2,21,0)="^^28^28^2940909^^^^"
^DD(627.99,2,21,1,0)="The status of a DSM Conversion (#627.99) file entry is recorded in this"
^DD(627.99,2,21,2,0)="field.   The statuses used, as well as an explanation of the status"
^DD(627.99,2,21,3,0)="is given below."
^DD(627.99,2,21,4,0)=" "
^DD(627.99,2,21,5,0)=" Code  "
^DD(627.99,2,21,6,0)=" Letter  Stands For    Explanation"
^DD(627.99,2,21,7,0)=" ----------------------------------------------------------------------"
^DD(627.99,2,21,8,0)="   R     RECORDED      The entry in the Medical Record, Generic Progress"
^DD(627.99,2,21,9,0)="                       Notes, or Diagnostic Results - Mental Health file"
^DD(627.99,2,21,10,0)="                       has been recorded in the DSM Conversion (#627.99)"
^DD(627.99,2,21,11,0)="                       file.  No conversion of data has begun."
^DD(627.99,2,21,12,0)=" "
^DD(627.99,2,21,13,0)="   S     STARTING      The conversion of data has begun.  (This is the"
^DD(627.99,2,21,14,0)="                       critical time in the conversion process.  If"
^DD(627.99,2,21,15,0)="                       conversion process aborts, leaving an entry in the"
^DD(627.99,2,21,16,0)="                       ""STARTING"" status, the entry cannot be converted"
^DD(627.99,2,21,17,0)="                       or restored to it's original state.  It can only"
^DD(627.99,2,21,18,0)="                       be reported as an error, and is given a status of"
^DD(627.99,2,21,19,0)="                       ""ERROR"".)"
^DD(627.99,2,21,20,0)=" "
^DD(627.99,2,21,21,0)="   C     CONVERTED     The conversion of data has completed.  (At this"
^DD(627.99,2,21,22,0)="                       point, the original values are recorded in the"
^DD(627.99,2,21,23,0)="                       DSM Conversion file, and the patient DSM data"
^DD(627.99,2,21,24,0)="                       has been converted.  Therefore, the patient data"
^DD(627.99,2,21,25,0)="                       is ""restorable"".)"
^DD(627.99,2,21,26,0)=" "
^DD(627.99,2,21,27,0)="   E     ERROR         If the patient DSM data cannot be converted,"
^DD(627.99,2,21,28,0)="                       the entry's status is set to ERROR."
^DD(627.99,2,22)="30"
^DD(627.99,2,"DT")="2931208"
^DD(627.99,30,0)="DXLS^V^^30;1^Q"
^DD(627.99,30,8.5)="^"
^DD(627.99,30,9)="^"
^DD(627.99,30,21,0)="^^2^2^2940909^^"
^DD(627.99,30,21,1,0)="This field is used to hold patient DSM data contained in the DXLS (#30)"
^DD(627.99,30,21,2,0)="field of the Generic Progress Notes (#121) file prior to conversion."
^DD(627.99,30,"DT")="2931207"
^DD(627.99,30,"V",0)="^.12P^2^2"
^DD(627.99,30,"V",1,0)="80^ICD9 Code^1^I^n^n"
^DD(627.99,30,"V",2,0)="627.5^DSM-III-R Code^2^D^n^n"
^DD(627.99,30,"V","B",80,1)=""
^DD(627.99,30,"V","B",627.5,2)=""
^DD(627.99,30,"V","M","DSM-III-R Code",2)=""
^DD(627.99,30,"V","M","ICD9 Code",1)=""
^DD(627.99,30,"V","O",1,1)=""
^DD(627.99,30,"V","O",2,2)=""
^DD(627.99,30,"V","P","D",2)=""
^DD(627.99,30,"V","P","I",1)=""
^DD(627.99,102,0)="PRINCIPAL DSM-III DIAGNOSIS^P627'^DIC(627,^DX1;2^Q"
^DD(627.99,102,8.5)="^"
^DD(627.99,102,9)="^"
^DD(627.99,102,21,0)="^^3^3^2940909^"
^DD(627.99,102,21,1,0)="This field is used to hold patient DSM data contained in the PRINCIPAL"
^DD(627.99,102,21,2,0)="DSM-III DIAGNOSIS (#102) field of the Medical Record (#90) file"
^DD(627.99,102,21,3,0)="prior to conversion."
^DD(627.99,102,"DT")="2931207"
^DD(627.99,102.6,0)="X DSM-III DIAGNOSIS^P627'^DIC(627,^DX1;4^Q"
^DD(627.99,102.6,8.5)="^"
^DD(627.99,102.6,9)="^"
^DD(627.99,102.6,21,0)="^^3^3^2940909^"
^DD(627.99,102.6,21,1,0)="This field is used to hold patient DSM data contained in the "
^DD(627.99,102.6,21,2,0)="X DSM-III DIAGNOSIS (#102.6) field of the Medical Record (#90) file"
^DD(627.99,102.6,21,3,0)="prior to conversion."
^DD(627.99,102.6,"DT")="2931207"
^DD(627.99,103,0)="DSM-III DIAGNOSIS^627.99103PA^^DX;0"
^DD(627.99,103,8.5)="^"
^DD(627.99,103,9)="^"
^DD(627.99,103,21,0)="^^3^3^2940909^"
^DD(627.99,103,21,1,0)="This multiple is used to hold patient DSM data contained in the"
^DD(627.99,103,21,2,0)="DSM-III DIAGNOSIS (103) multiple of the Medical Record (#90) file"
^DD(627.99,103,21,3,0)="prior to conversion."
^DD(627.99,110,0)="PAST PRINCIPAL DX^627.9901P^^PDX;0"
^DD(627.99,110,8.5)="^"
^DD(627.99,110,9)="^"
^DD(627.99,110,21,0)="^^3^3^2940909^"
^DD(627.99,110,21,1,0)="This multiple is used to hold patient DSM data contained in the"
^DD(627.99,110,21,2,0)="PAST PRINCIPAL DX multiple of the Medical Record (#90) file"
^DD(627.99,110,21,3,0)="prior to conversion."
^DD(627.99,111,0)="PAST X DIAGNOSIS^627.99111P^^XDX;0"
^DD(627.99,111,8.5)="^"
^DD(627.99,111,9)="^"
^DD(627.99,111,21,0)="^^3^3^2940909^"
^DD(627.99,111,21,1,0)="This multiple is used to hold patient DSM data contained in the"
^DD(627.99,111,21,2,0)="PAST X DIAGNOSIS multiple of the Medical Record (#90) file"
^DD(627.99,111,21,3,0)="prior to conversion."
^DD(627.99,"B","DIAGNOSIS",1)=""
^DD(627.99,"B","DSM-III DIAGNOSIS",103)=""
^DD(627.99,"B","DXLS",30)=""
^DD(627.99,"B","ENTRY",.01)=""
^DD(627.99,"B","PAST PRINCIPAL DX",110)=""
^DD(627.99,"B","PAST X DIAGNOSIS",111)=""
^DD(627.99,"B","PRINCIPAL DSM-III DIAGNOSIS",102)=""
^DD(627.99,"B","STATUS",2)=""
^DD(627.99,"B","X DSM-III DIAGNOSIS",102.6)=""
^DD(627.99,"GL",0,1,.01)=""
^DD(627.99,"GL",0,2,2)=""
^DD(627.99,"GL",1,1,1)=""
^DD(627.99,"GL",30,1,30)=""
^DD(627.99,"GL","DX",0,103)=""
^DD(627.99,"GL","DX1",2,102)=""
^DD(627.99,"GL","DX1",4,102.6)=""
^DD(627.99,"GL","PDX",0,110)=""
^DD(627.99,"GL","XDX",0,111)=""
^DD(627.99,"IX",.01)=""
^DD(627.99,"RQ",.01)=""
^DD(627.99,"SB",627.9901,110)=""
^DD(627.99,"SB",627.99103,103)=""
^DD(627.99,"SB",627.99111,111)=""
^DD(627.9901,0)="PAST PRINCIPAL DX SUB-FIELD^^.01^1"
^DD(627.9901,0,"DT")="2931207"
^DD(627.9901,0,"NM","PAST PRINCIPAL DX")=""
^DD(627.9901,0,"UP")="627.99"
^DD(627.9901,.01,0)="PAST PRINCIPAL DX^P627'^DIC(627,^0;1^Q"
^DD(627.9901,.01,1,0)="^.1^^0"
^DD(627.9901,.01,21,0)="^^3^3^2940909^"
^DD(627.9901,.01,21,1,0)="This field holds the internal entry number of the DSM3 (#627) file"
^DD(627.9901,.01,21,2,0)="diagnosis prior to the repointing (conversion) of data to the ""same"""
^DD(627.9901,.01,21,3,0)="entry in the DSM (#627.7) file."
^DD(627.9901,.01,"DT")="2931209"
^DD(627.9901,"B","PAST PRINCIPAL DX",.01)=""
^DD(627.9901,"GL",0,1,.01)=""
^DD(627.99103,0)="DSM-III DIAGNOSIS SUB-FIELD^^.01^1"
^DD(627.99103,0,"DT")="2931207"
^DD(627.99103,0,"NM","DSM-III DIAGNOSIS")=""
^DD(627.99103,0,"UP")="627.99"
^DD(627.99103,.01,0)="DSM-III DIAGNOSIS^P627'^DIC(627,^0;1^Q"
^DD(627.99103,.01,1,0)="^.1^^0"
^DD(627.99103,.01,21,0)="^^3^3^2940909^"
^DD(627.99103,.01,21,1,0)="This field holds the internal entry number of the DSM3 (#627) file"
^DD(627.99103,.01,21,2,0)="diagnosis prior to the repointing (conversion) of data to the ""same"""
^DD(627.99103,.01,21,3,0)="entry in the DSM (#627.7) file."
^DD(627.99103,.01,"DT")="2931209"
^DD(627.99103,"B","DSM-III DIAGNOSIS",.01)=""
^DD(627.99103,"GL",0,1,.01)=""
^DD(627.99111,0)="PAST X DIAGNOSIS SUB-FIELD^^.01^1"
^DD(627.99111,0,"DT")="2931207"
^DD(627.99111,0,"NM","PAST X DIAGNOSIS")=""
^DD(627.99111,0,"UP")="627.99"
^DD(627.99111,.01,0)="PAST X DIAGNOSIS^P627'^DIC(627,^0;1^Q"
^DD(627.99111,.01,1,0)="^.1^^0"
^DD(627.99111,.01,21,0)="^^3^3^2940909^"
^DD(627.99111,.01,21,1,0)="This field holds the internal entry number of the DSM3 (#627) file"
^DD(627.99111,.01,21,2,0)="diagnosis prior to the repointing (conversion) of data to the ""same"""
^DD(627.99111,.01,21,3,0)="entry in the DSM (#627.7) file."
^DD(627.99111,.01,"DT")="2931209"
^DD(627.99111,"B","PAST X DIAGNOSIS",.01)=""
^DD(627.99111,"GL",0,1,.01)=""
^DD(628,0)="FIELD^^2^3"
^DD(628,0,"DDA")="N"
^DD(628,0,"DIK")="YSXRBA"
^DD(628,0,"DIKOLD")="YSXRBA"
^DD(628,0,"IX","B",628,.01)=""
^DD(628,0,"NM","YSEXPERT")=""
^DD(628,0,"VR")="5.01"
^DD(628,.01,0)="DECISION SYSTEM NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(628,.01,1,0)="^.1"
^DD(628,.01,1,1,0)="628^B"
^DD(628,.01,1,1,1)="S ^YS(628,""B"",$E(X,1,30),DA)="""""
^DD(628,.01,1,1,2)="K ^YS(628,""B"",$E(X,1,30),DA)"
^DD(628,.01,3)="Enter the name of the Decision System being developed, 3 to 50 characters."
^DD(628,.01,21,0)="^^6^6^2930405^"
^DD(628,.01,21,1,0)="This is the name of the Decision System algorithm being developed/run."
^DD(628,.01,21,2,0)="Each individual decision system has a name, and this name is used to "
^DD(628,.01,21,3,0)="identify what decision system to run, when the user has the choice"
^DD(628,.01,21,4,0)="to choose among decision systems, or it is the name passed to the "
^DD(628,.01,21,5,0)="routines that run a particular decision system for the routines to "
^DD(628,.01,21,6,0)="run automatically when a user signs onto the system."
^DD(628,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>150!($L(X)<1) X"
^DD(628,1,3)="This is the description of the Decision System being developed (1 to 150 characters in length)."
^DD(628,1,21,0)="^^6^6^2930405^"
^DD(628,1,21,1,0)="This is a description of the Decision Expert system being developed/"
^DD(628,1,21,2,0)="run.  The programmer can enter a short description of the decision "
^DD(628,1,21,3,0)="system and what it relates to in this field.  For example, if it is "
^DD(628,1,21,4,0)="a decision system pertaining to the diagnosis of gastrointestinal "
^DD(628,1,21,5,0)="problems, this fact can be entered here; if it is an algorithm about "
^DD(628,1,21,6,0)="oil exploration, this fact can be described here."
^DD(628,2,0)="ALGORITHM NAME^628.02^^1;0"
^DD(628,2,21,0)="^^6^6^2930405^^^^"
^DD(628,2,21,1,0)="This is the name of the algorithms in the Decision System.  Each major"
^DD(628,2,21,2,0)="Decision System identified by the Decision System Name can have Sub-"
^DD(628,2,21,3,0)="algorithms within it that can be run.  For example, Medicine (Decision "
^DD(628,2,21,4,0)="System Name - .01 field) can have a Cardiology subalgorithm, a "
^DD(628,2,21,5,0)="endocrinology subalgorithm, etc.  This field identifies the subalgorithms"
^DD(628,2,21,6,0)="to the YSEXPERT system so that they can be run, when appropriate."
^DD(628,"B","ALGORITHM NAME",2)=""
^DD(628,"B","DECISION SYSTEM NAME",.01)=""
^DD(628,"B","DESCRIPTION",1)=""
^DD(628,"GL",0,1,.01)=""
^DD(628,"GL",0,2,1)=""
^DD(628,"GL",1,0,2)=""
^DD(628,"IX",.01)=""
^DD(628,"RQ",.01)=""
^DD(628,"SB",628.02,2)=""
^DD(628.02,0)="ALGORITHM NAME SUB-FIELD^^4^5"
^DD(628.02,0,"DIK")="YSXRBA"
^DD(628.02,0,"IX","B",628.02,.01)=""
^DD(628.02,0,"NM","ALGORITHM NAME")=""
^DD(628.02,0,"UP")="628"
^DD(628.02,.01,0)="ALGORITHM NAME^MF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(628.02,.01,1,0)="^.1"
^DD(628.02,.01,1,1,0)="628.02^B"
^DD(628.02,.01,1,1,1)="S ^YS(628,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(628.02,.01,1,1,2)="K ^YS(628,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(628.02,.01,3)="This is the name of an Algorithm in the Decision System."
^DD(628.02,.01,21,0)="^^5^5^2930405^"
^DD(628.02,.01,21,1,0)="This is the sub-algorithm being developed/run under the main Decision"
^DD(628.02,.01,21,2,0)="System algorithm.  Each Decision System can have subalgorithms and "
^DD(628.02,.01,21,3,0)="decision support systems grouped under it.  This is the name of the"
^DD(628.02,.01,21,4,0)="subalgorithm.  This name identifies the algorithm to the YSEXPERT "
^DD(628.02,.01,21,5,0)="routines so that they can be run, when appropriate."
^DD(628.02,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>150!($L(X)<3) X"
^DD(628.02,1,3)="This is a description of the algorighm being entered (3 to 150 characters)."
^DD(628.02,1,21,0)="^^5^5^2930405^^"
^DD(628.02,1,21,1,0)="This is a short description of the sub-algorithm.  For example, if"
^DD(628.02,1,21,2,0)="the decision system algorithm is 'Myocardial Infarct', then his field"
^DD(628.02,1,21,3,0)="would contain the description 'Diagnose Myocardial infarct or, if"
^DD(628.02,1,21,4,0)="information is present that contradicts this diagnosis, jump to GI "
^DD(628.02,1,21,5,0)="algorithm.'"
^DD(628.02,2,0)="START NODE^F^^1;1^K:$L(X)>50!($L(X)<3) X"
^DD(628.02,2,3)="This is the Start (or Root) node in the Algorithm being entered."
^DD(628.02,2,21,0)="^^3^3^2930405^"
^DD(628.02,2,21,1,0)="This is the Root node (start node) of the algorithm being developed/"
^DD(628.02,2,21,2,0)="run.  When this algorithm is entered, it starts its queries and branches"
^DD(628.02,2,21,3,0)="at this point."
^DD(628.02,3,0)="DECISION TREE FRAMES^628.23^^2;0"
^DD(628.02,3,21,0)="^^5^5^2930405^^^"
^DD(628.02,3,21,1,0)="Each decision tree node has a series of questions that are asked at"
^DD(628.02,3,21,2,0)="that node for branching/decision purposes.  This node holds the frames"
^DD(628.02,3,21,3,0)="which contain the questions and appropriate answers to the questions,"
^DD(628.02,3,21,4,0)="along with the branching instructions that are to be followed when "
^DD(628.02,3,21,5,0)="replies are entered into the system."
^DD(628.02,4,0)="RESERVED^F^^3;1^K:$L(X)>30!($L(X)<3) X"
^DD(628.02,4,3)="This field is reserved for future use."
^DD(628.02,4,21,0)="^^1^1^2930405^"
^DD(628.02,4,21,1,0)="This field has been reserved for future use."
^DD(628.02,"B","ALGORITHM NAME",.01)=""
^DD(628.02,"B","DECISION TREE FRAMES",3)=""
^DD(628.02,"B","DESCRIPTION",1)=""
^DD(628.02,"B","RESERVED",4)=""
^DD(628.02,"B","START NODE",2)=""
^DD(628.02,"GL",0,1,.01)=""
^DD(628.02,"GL",0,2,1)=""
^DD(628.02,"GL",1,1,2)=""
^DD(628.02,"GL",2,0,3)=""
^DD(628.02,"GL",3,1,4)=""
^DD(628.02,"IX",.01)=""
^DD(628.02,"SB",628.23,3)=""
^DD(628.23,0)="DECISION TREE FRAMES SUB-FIELD^^5^6"
^DD(628.23,0,"DIK")="YSXRBA"
^DD(628.23,0,"IX","B",628.23,.01)=""
^DD(628.23,0,"NM","DECISION TREE FRAMES")=""
^DD(628.23,0,"UP")="628.02"
^DD(628.23,.01,0)="FRAME NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(628.23,.01,1,0)="^.1"
^DD(628.23,.01,1,1,0)="628.23^B"
^DD(628.23,.01,1,1,1)="S ^YS(628,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(628.23,.01,1,1,2)="K ^YS(628,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(628.23,.01,3)="This is the name of the Frame (node) that you are creating in the decision tree."
^DD(628.23,.01,21,0)="^^2^2^2930405^"
^DD(628.23,.01,21,1,0)="Each Frame in the decision tree has a unique name.  This is the name "
^DD(628.23,.01,21,2,0)="of the frame."
^DD(628.23,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>150!($L(X)<3) X"
^DD(628.23,1,3)="This is a description of the Frame you are creating."
^DD(628.23,1,21,0)="^^2^2^2930405^"
^DD(628.23,1,21,1,0)="This is a description of the frame being created/run.  The description"
^DD(628.23,1,21,2,0)="is only for informational use of the Expert System developer."
^DD(628.23,2,0)="PROMPT^628.232^^1;0"
^DD(628.23,2,21,0)="^^4^4^2930405^"
^DD(628.23,2,21,1,0)="This is the message that is presented to the user when he encounters"
^DD(628.23,2,21,2,0)="this frame during algorithm branching.  It can contain a question that"
^DD(628.23,2,21,3,0)="requires a 'yes-no' answer, a multiple choice question, or merely a "
^DD(628.23,2,21,4,0)="help prompt."
^DD(628.23,3,0)="PROMPTED RESPONSES^FX^^2;1^K:$L(X)>100!($L(X)<1) X I $D(X) S EST=X D ULC^YSESUT S (X,A5ARSP)=EST K EST"
^DD(628.23,3,3)="Enter the required responses that you want the user to enter (Y,N;A,B,C,...,etc.)."
^DD(628.23,3,21,0)="^^4^4^2930405^"
^DD(628.23,3,21,1,0)="This field contains the responses that can be entered for this frame."
^DD(628.23,3,21,2,0)="The responses listed here are presented to the user, just after the "
^DD(628.23,3,21,3,0)="prompt is displayed.  The user can only enter responses listed here "
^DD(628.23,3,21,4,0)="when presented with the question/query."
^DD(628.23,4,0)="LINKS^FX^^2;2^K:$L(X)>100!($L(X)<1)!('$D(A5ASYS)) X I $D(X) S ESLNKS=X D ^YSESP W:EF=1 !!?10,""****** NOTHING CHANGED  ******"" K:EF=1 X K ESLNKS,A5ARSP,EF"
^DD(628.23,4,3)="This field describes the links between Frames (Nodes)."
^DD(628.23,4,21,0)="^^5^5^2930405^"
^DD(628.23,4,21,1,0)="This field ties the frames of the algorithm together.  It holds the"
^DD(628.23,4,21,2,0)="information about which frame to branch to next, and this is determined"
^DD(628.23,4,21,3,0)="by the answer/response given to the 'Prompted Responses' query.  The"
^DD(628.23,4,21,4,0)="links are established by specific rules.  See the package documentation"
^DD(628.23,4,21,5,0)="about how to establish links."
^DD(628.23,4,"DT")="2890608"
^DD(628.23,5,0)="MUMPS EXECUTE CODE^FX^^3;E1;200^K:$L(X)>200!($L(X)<1) X I $D(X),X]"""" D ^DIM I '$D(X) W *7,""  INVALID MUMPS STATEMENT"""
^DD(628.23,5,3)="This field will contain EXECUTABLE MUMPS Code that you want executed for the Frame (Node)."
^DD(628.23,5,21,0)="^^8^8^2930405^"
^DD(628.23,5,21,1,0)="This field can contain MUMPS code that can be executed for the frame, "
^DD(628.23,5,21,2,0)="for example, to calculate an antibiotic serum value for a patient on"
^DD(628.23,5,21,3,0)="IV antibiotics, given that he has had a serum creatinine value entered"
^DD(628.23,5,21,4,0)="in the current frame.  The MUMPS code might also display the results "
^DD(628.23,5,21,5,0)="of the calculation here, or set a variable so that it can be displayed"
^DD(628.23,5,21,6,0)="in the next frame.  The code can be used for any purpose, and is "
^DD(628.23,5,21,7,0)="generally used to accomplish tasks not within YSEXPERTS programmed "
^DD(628.23,5,21,8,0)="abilities."
^DD(628.23,"B","DESCRIPTION",1)=""
^DD(628.23,"B","FRAME NAME",.01)=""
^DD(628.23,"B","LINKS",4)=""
^DD(628.23,"B","MUMPS EXECUTE CODE",5)=""
^DD(628.23,"B","PROMPT",2)=""
^DD(628.23,"B","PROMPTED RESPONSES",3)=""
^DD(628.23,"GL",0,1,.01)=""
^DD(628.23,"GL",0,2,1)=""
^DD(628.23,"GL",1,0,2)=""
^DD(628.23,"GL",2,1,3)=""
^DD(628.23,"GL",2,2,4)=""
^DD(628.23,"GL",3,"E1",5)=""
^DD(628.23,"IX",.01)=""
^DD(628.23,"SB",628.232,2)=""
^DD(628.232,0)="PROMPT SUB-FIELD^^.01^1"
^DD(628.232,0,"NM","PROMPT")=""
^DD(628.232,0,"UP")="628.23"
^DD(628.232,.01,0)="PROMPT^WL^^0;1^Q"
^DD(628.232,.01,3)="Type in the question/message that you want the user to respond to."
^DD(628.232,"B","PROMPT",.01)=""
^DD(628.232,"GL",0,1,.01)=""
^DD(631,0)="FIELD^^87^89"
^DD(631,0,"DDA")="N"
^DD(631,0,"DT")="2931014"
^DD(631,0,"ID",17)="W ""   "",$E($P(^(0),U,18),4,5)_""-""_$E($P(^(0),U,18),6,7)_""-""_$E($P(^(0),U,18),2,3)"
^DD(631,0,"IX","AC",631,39)=""
^DD(631,0,"IX","AD",631,17)=""
^DD(631,0,"IX","AE",631,71)=""
^DD(631,0,"IX","AF",631,72)=""
^DD(631,0,"IX","AG",631,75)=""
^DD(631,0,"IX","AH",631,78)=""
^DD(631,0,"IX","AI",631,1)=""
^DD(631,0,"IX","B",631,.01)=""
^DD(631,0,"NM","HBHC PATIENT")=""
^DD(631,0,"PT",634.1,1)=""
^DD(631,0,"PT",634.3,1)=""
^DD(631,0,"VR")="1.0"
^DD(631,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(631,.01,1,0)="^.1"
^DD(631,.01,1,1,0)="631^B"
^DD(631,.01,1,1,1)="S ^HBHC(631,""B"",$E(X,1,30),DA)="""""
^DD(631,.01,1,1,2)="K ^HBHC(631,""B"",$E(X,1,30),DA)"
^DD(631,.01,1,1,"%D",0)="^^2^2^2921228^"
^DD(631,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Patient"
^DD(631,.01,1,1,"%D",2,0)="(631) file, Name (.01) field, which references Patient (2) file entries."
^DD(631,.01,3)="Answer using last name, first name, middle name format, or enter first letter of last name and last four digits of social security number  (e.g. A1234)"
^DD(631,.01,21,0)="^^2^2^2931213^^^^"
^DD(631,.01,21,1,0)="This field represents patient's name in Patient (2) file.  Patient must"
^DD(631,.01,21,2,0)="exist in DPT for HBHC selection, since LAYGO not allowed."
^DD(631,.01,"DT")="2920415"
^DD(631,1,0)="EVALUATION DATE^DX^^0;2^S %DT=""EX"" D ^%DT S (HBHCDTE,X)=Y,HBHCAD=$P(^HBHC(631,D0,0),U,18) K:X>DT!(2770101>X) X K:(HBHCAD]"""")&(HBHCDTE>HBHCAD) X K HBHCAD,HBHCDTE"
^DD(631,1,1,0)="^.1"
^DD(631,1,1,1,0)="631^AI"
^DD(631,1,1,1,1)="S ^HBHC(631,""AI"",$E(X,1,30),DA)="""""
^DD(631,1,1,1,2)="K ^HBHC(631,""AI"",$E(X,1,30),DA)"
^DD(631,1,1,1,"%D",0)="^^3^3^2970724^^"
^DD(631,1,1,1,"%D",1,0)="This cross-reference represents regular 'AI' file index of HBHC Patient"
^DD(631,1,1,1,"%D",2,0)="(631) file, Evaluation Date (1) field.  Field no longer used after"
^DD(631,1,1,1,"%D",3,0)="installation of patch 6.  Field data retained for historical purposes only."
^DD(631,1,1,1,"DT")="2970724"
^DD(631,1,3)="Answer with date patient was evaluated for HBHC program.  Answer must be between 1/1/1977 and current date.  Evaluation date must be prior to or same as admission date."
^DD(631,1,21,0)="^^3^3^2970724^^^^"
^DD(631,1,21,1,0)="This field represents date patient was evaluated for HBHC program."
^DD(631,1,21,2,0)="Date range allowed is between 1/1/1977 and current date, and must"
^DD(631,1,21,3,0)="be prior to or same as HBHC Admission Date."
^DD(631,1,22)=" "
^DD(631,1,"DT")="2970724"
^DD(631,2,0)="STATE CODE^RP631.8'^HBHC(631.8,^0;3^Q"
^DD(631,2,1,0)="^.1"
^DD(631,2,1,1,0)="^^TRIGGER^631^3"
^DD(631,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I X'=$P(^HBHC(631,DA,0),U,3) I X S X=DIV S Y(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(631,2,1,1,1.4)"
^DD(631,2,1,1,1.4)="S DIH=$S($D(^HBHC(631,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=631,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(631,2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I X'=$P(^HBHC(631,DA,0),U,3) I X S X=DIV S Y(1)=$S($D(^HBHC(631,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(631,2,1,1,2.4)"
^DD(631,2,1,1,2.4)="S DIH=$S($D(^HBHC(631,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=631,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(631,2,1,1,"CREATE CONDITION")="I X'=$P(^HBHC(631,DA,0),U,3)"
^DD(631,2,1,1,"CREATE VALUE")="@"
^DD(631,2,1,1,"DELETE CONDITION")="I X'=$P(^HBHC(631,DA,0),U,3)"
^DD(631,2,1,1,"DELETE VALUE")="@"
^DD(631,2,1,1,"DT")="2930723"
^DD(631,2,1,1,"FIELD")="COUNTY CODE"
^DD(631,2,3)="Answer with 2 digit numeric state code, or state name, of state where patient resides.  Only state code(s) in HBHC VALID STATE CODE file are allowed.  Field is required for county verification."
^DD(631,2,21,0)="^^2^2^2930723^^^^"
^DD(631,2,21,1,0)="This field represents 2 digit numeric code, in State (5) file, of"
^DD(631,2,21,2,0)="location where patient resides."
^DD(631,2,"DT")="2930726"
^DD(631,3,0)="COUNTY CODE^NJ3,0XO^^0;4^S Z0=$S($P($G(^HBHC(631,D0,0)),U,3)]"""":+^HBHC(631.8,$P(^HBHC(631,D0,0),U,3),0),1:0) K:'Z0 X Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K Z0,DIC"
^DD(631,3,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($P($G(^HBHC(631,D0,0)),U,3)]"""":+^HBHC(631.8,$P(^HBHC(631,D0,0),U,3),0),1:"""") Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),U)_""  (""_$P($S($D(^(0)):^(0),1:""""),U,3)_"")"""
^DD(631,3,2.1)="Q:Y']""""  S Z0=$S($P($G(^HBHC(631,D0,0)),U,3)]"""":+^HBHC(631.8,$P(^HBHC(631,D0,0),U,3),0),1:"""") Q:'Z0  S Y=$P($S($D(^DIC(5,Z0,1,Y,0)):^(0),1:""""),U)_""  (""_$P($S($D(^(0)):^(0),1:""""),U,3)_"")"""
^DD(631,3,3)="Answer with 3 digit numeric county code, or county name, of county where patient resides.  County codes are checked for validity of State Code entered."
^DD(631,3,5,1,0)="631^2^1"
^DD(631,3,21,0)="^^3^3^2930723^^^^"
^DD(631,3,21,1,0)="This field represents 3 digit numeric code of County, in State (5) file,"
^DD(631,3,21,2,0)="of location where patient resides.  County codes are checked for validity"
^DD(631,3,21,3,0)="of State Code entered."
^DD(631,3,"DT")="2930726"
^DD(631,4,0)="ZIP CODE^FO^^0;5^K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X"
^DD(631,4,2)="S Y(0)=Y S Y=$E(Y,1,5)_$S($E(Y,6,9)]"""":""-""_$E(Y,6,9),1:"""")"
^DD(631,4,2.1)="S Y=$E(Y,1,5)_$S($E(Y,6,9)]"""":""-""_$E(Y,6,9),1:"""")"
^DD(631,4,3)="Answer must be 5 or 9 characters in length."
^DD(631,4,21,0)="^^1^1^2970605^^^^"
^DD(631,4,21,1,0)="This fields represents 5 or 9 digit numeric ZIP Code of area where patient resides."
^DD(631,4,21,2,0)="resides."
^DD(631,4,"DT")="2970605"
^DD(631,5,0)="ELIGIBILITY @ EVALUATION^S^01:Service Connected 50% or More  (01);02:Aid & Attendance or Housebound  (02);03:Service Connected Less Than 50%  (03);04:Non-Service Connected, Receiving VA Pension  (04);05:Other Non-Service Connected  (05);^0;6^Q"
^DD(631,5,3)="Answer with 2 digit numeric code representing patient's eligibility at time of evaluation."
^DD(631,5,21,0)="^^2^2^2921130^"
^DD(631,5,21,1,0)="This field represents 2 digit numeric code of patient's eligibility at"
^DD(631,5,21,2,0)="time of evaluation for HBHC program."
^DD(631,5,"DT")="2910708"
^DD(631,6,0)="BIRTH YEAR^DC^^ ; ^X ^DD(631,6,9.2) S X=$P(Y(631,6,101),U,3),X=$E(X,1,3)_""0000"" S:'X X="""" S X=X S D0=Y(631,6,80)"
^DD(631,6,3)="Answer must be 4 numeric characters in length and represents patient's birth year."
^DD(631,6,9)="^"
^DD(631,6,9.01)="2^.03;631^.01"
^DD(631,6,9.1)="YEAR(.01:DATE OF BIRTH)"
^DD(631,6,9.2)="S Y(631,6,80)=$S($D(D0):D0,1:""""),Y(631,6,1)=$S($D(^HBHC(631,D0,0)):^(0),1:""""),D0=$P(Y(631,6,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(631,6,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(631,6,21,0)="^^1^1^2970712^^^^"
^DD(631,6,21,1,0)="This field represents 4 digit year of patient's birthdate in Patient (2) file."
^DD(631,6,21,2,0)="Patient (2) file."
^DD(631,6,"DT")="2970218"
^DD(631,7,0)="PERIOD OF SERVICE^RP631.7'O^HBHC(631.7,^0;8^Q"
^DD(631,7,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,8),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.7,Z0,0)):^(0),1:""""),U,2)"
^DD(631,7,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,8),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.7,Z0,0)):^(0),1:""""),U,2)"
^DD(631,7,3)="Answer must be 2 characters in length.  Valid entries are '00' thru '05', '07' thru '10' and 'X '.  (Note 'X' is followed by space character.)  All one digit numeric entries must have leading zero."
^DD(631,7,21,0)="^^4^4^2931014^^^^"
^DD(631,7,21,1,0)="This field represents 2 character code in HBHC Period of Service"
^DD(631,7,21,2,0)="(631.7) file.  Valid codes are:  '00' thru '05', '07' thru '10',"
^DD(631,7,21,3,0)="and 'X '.  (Note 'X' code is followed by space character.)  All"
^DD(631,7,21,4,0)="1 digit numeric codes must have leading zero."
^DD(631,7,"DT")="2931014"
^DD(631,8,0)="SEX^CJ8^^ ; ^X ^DD(631,8,9.3) S X=$P($P(Y(631,8,102),$C(59)_$P(Y(631,8,101),U,2)_"":"",2),$C(59),1) S D0=Y(631,8,80)"
^DD(631,8,3)="Answer with 1 digit numeric code representing patient's sex."
^DD(631,8,9)="^"
^DD(631,8,9.01)="2^.02;631^.01"
^DD(631,8,9.1)=".01:SEX"
^DD(631,8,9.2)="S Y(631,8,80)=$S($D(D0):D0,1:""""),Y(631,8,1)=$S($D(^HBHC(631,D0,0)):^(0),1:""""),D0=$P(Y(631,8,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(631,8,9.3)="X ^DD(631,8,9.2) S Y(631,8,102)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""""),Y(631,8,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(631,8,9.4)="X ^DD(631,8,9.3) S X=$P($P(Y(631,8,103),$C(59)_$P(Y(631,8,102),U,2)_"":"",2),$C(59),1)=""M"",Y(631,8,104)=X S X=""Male  (1)"",Y(631,8,105)=X S X=1,Y(631,8,106)=X"
^DD(631,8,21,0)="^^1^1^2971010^^^^"
^DD(631,8,21,1,0)="This field represents patient's Sex in Patient (2) file."
^DD(631,8,"DT")="2910708"
^DD(631,9,0)="RACE^CJ31^^ ; ^X ^DD(631,9,9.5) S X=$S(Y(631,9,2):Y(631,9,3),Y(631,9,4):Y(631,9,5),Y(631,9,6):Y(631,9,7),Y(631,9,8):Y(631,9,9),Y(631,9,10):Y(631,9,11),Y(631,9,12):Y(631,9,13),Y(631,9,14):X)"
^DD(631,9,3)="Answer with 1 digit numeric code representing patient's race."
^DD(631,9,9)="^"
^DD(631,9,9.01)="631^9.1"
^DD(631,9,9.1)="$S(#9.1=6:""White  (1)"",#9.1=4:""Black  (2)"",#9.1=2:""Hispanic  (3)"",#9.1=1:""Hispanic  (3)"",#9.1=3:""Amer/Indian Alaskan Native  (4)"",#9.1=5:""Asian/Pacific Islander  (5)"",1:""Not Determined  (9)"")"
^DD(631,9,9.2)="X $P(^DD(631,9.1,0),U,5,99) S Y(631,9,1)=X S X=Y(631,9,1)=6,Y(631,9,2)=X S X=""White  (1)"",Y(631,9,3)=X S X=Y(631,9,1)=4,Y(631,9,4)=X S X=""Black  (2)"""
^DD(631,9,9.3)="X ^DD(631,9,9.2) S Y(631,9,5)=X S X=Y(631,9,1)=2,Y(631,9,6)=X S X=""Hispanic  (3)"",Y(631,9,7)=X S X=Y(631,9,1)=1,Y(631,9,8)=X S X=""Hispanic  (3)"",Y(631,9,9)=X"
^DD(631,9,9.4)="X ^DD(631,9,9.3) S X=Y(631,9,1)=3,Y(631,9,10)=X S X=""Amer/Indian Alaskan Native  (4)"",Y(631,9,11)=X S X=Y(631,9,1)=5,Y(631,9,12)=X S X=""Asian/Pacific Islander  (5)"""
^DD(631,9,9.5)="X ^DD(631,9,9.4) S Y(631,9,13)=X S X=1,Y(631,9,14)=X S X=""Not Determined  (9)"""
^DD(631,9,9.6)="X ^DD(631,9.1,9.3) S Y(631,9.1,101)=$S($D(^DPT(D0,0)):^(0),1:""""),D0=$P(Y(631,9.1,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 X ^DD(631,9.1,9.2):D0>0 S X="""" S D0=Y(631,9.1,80)"
^DD(631,9,9.7)="X ^DD(631,9.1,9.3) S Y(631,9.1,101)=$S($D(^DPT(D0,0)):^(0),1:""""),D0=$P(Y(631,9.1,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 X ^DD(631,9.1,9.2):D0>0 S X="""" S D0=Y(631,9.1,80)"
^DD(631,9,9.8)="X ^DD(631,9,9.2)=4,Y(631,9,1)=X S X=""Black  (2)"",Y(631,9,2)=X X ^DD(631,9,9.3)=3,Y(631,9,3)=X S X=""American Indian/Alaskan Native  (4)"",Y(631,9,4)=X X ^DD(631,9,9.4)"
^DD(631,9,9.9)="X ^DD(631,9,9.8) S X=X=6,Y(631,9,5)=X S X=""White  (1)"",Y(631,9,6)=X X ^DD(631,9,9.5)=2,Y(631,9,7)=X S X=""Hispanic Origin  (3)"",Y(631,9,8)=X X ^DD(631,9,9.6)"
^DD(631,9,10)="X ^DD(631,9,9.9) S X=X=5,Y(631,9,9)=X S X=""Asian/Pacific Islander  (5)"",Y(631,9,10)=X X ^DD(631,9,9.7)=1,Y(631,9,11)=X S X=""Hispanic Origin  (3)"""
^DD(631,9,10.1)="X ^DD(631,9,10) S Y(631,9,12)=X S X=1,Y(631,9,13)=X S X=""Not Determined  (9)"""
^DD(631,9,10.2)="X ^DD(631,9,10.1) S X=$P(Y(631,9,601),U,2),Y(631,9,602)=X S X=""Hispanic (3)"",Y(631,9,603)=X S X=$P(Y(631,9,601),U,1),Y(631,9,604)=X"
^DD(631,9,10.3)="X ^DD(631,9,10.2) S D0=$P(Y(631,9,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 S Y(631,9,701)=$S($D(^DIC(10,D0,0)):^(0),1:"""") S X=$P(Y(631,9,701),U,2)=2"
^DD(631,9,10.4)="X ^DD(631,9,10.3) S Y(631,9,702)=X S X=""Hispanic (3)"",Y(631,9,703)=X S X=1,Y(631,9,704)=X S X=""Not Determined (9)"""
^DD(631,9,21,0)="^.001^7^7^3021011^^^^"
^DD(631,9,21,1,0)="This field is obsolete & contains historical data only  (prior to"
^DD(631,9,21,2,0)="Race/Ethnicity Information multiple field mandate in Jan 2003).  Race field"
^DD(631,9,21,3,0)="value set to ""X"" for Austin tranmission purposes after mandate."
^DD(631,9,21,4,0)=""
^DD(631,9,21,5,0)="Historical Description:  This fields represents patient's Race in Patient"
^DD(631,9,21,6,0)="(2) file. (9.1) field to convert Race field value to corresponding HBHC"
^DD(631,9,21,7,0)="Race code. "
^DD(631,9,"DT")="2931213"
^DD(631,9.1,0)="RACECOMP^CJ1^^ ; ^X ^DD(631,9.1,9.3) S X=$P(Y(631,9.1,201),U,2) S D0=Y(631,9.1,80)"
^DD(631,9.1,9)="^"
^DD(631,9.1,9.01)="10^2;2^.06;631^.01"
^DD(631,9.1,9.1)="#.01:#.06:#2"
^DD(631,9.1,9.2)="S Y(631,9.1,80)=$S($D(D0):D0,1:""""),Y(631,9.1,1)=$S($D(^HBHC(631,D0,0)):^(0),1:""""),D0=$P(Y(631,9.1,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(631,9.1,180)=$S($D(D0):D0,1:"""")"
^DD(631,9.1,9.3)="X ^DD(631,9.1,9.2) S Y(631,9.1,101)=$S($D(^DPT(D0,0)):^(0),1:""""),D0=$P(Y(631,9.1,101),U,6) S:'$D(^DIC(10,+D0,0)) D0=-1 S Y(631,9.1,201)=$S($D(^DIC(10,D0,0)):^(0),1:"""")"
^DD(631,9.1,21,0)="^.001^8^8^3021003^^^"
^DD(631,9.1,21,1,0)="This field is obsolete & contains historical data only  (prior to"
^DD(631,9.1,21,2,0)="Race/Ethnicity Information multiple field mandate in Jan 2003)."
^DD(631,9.1,21,3,0)=""
^DD(631,9.1,21,4,0)="Historical Description:"
^DD(631,9.1,21,5,0)="This field returns the abbreviation field from the Race file (#10)."
^DD(631,9.1,21,6,0)="Used to obtain the field value needed for converting the Patient file (#2),"
^DD(631,9.1,21,7,0)="Race field (#.06), Abbreviation field (#1 in DIC(10,) to the corresponding"
^DD(631,9.1,21,8,0)="HBHC Race code field value."
^DD(631,9.1,"DT")="2931213"
^DD(631,10,0)="MARITAL STATUS @ EVALUATION^S^1:Married  (1);2:Widowed  (2);3:Separated  (3);4:Divorced  (4);5:Never Married  (5);9:Not Determined  (9);^0;11^Q"
^DD(631,10,3)="Answer with 1 digit numeric code representing patient's marital status at time of evaluation."
^DD(631,10,21,0)="^^2^2^2921130^^"
^DD(631,10,21,1,0)="This fields represents 1 digit numeric code for patient's marital status"
^DD(631,10,21,2,0)="at time of evaluation for HBHC program."
^DD(631,10,"DT")="2910708"
^DD(631,11,0)="LIVING ARRANGEMENTS @ EVAL^S^1:Alone  (1);2:With Spouse  (2);3:With Relatives  (3);4:With Non-Relatives  (4);5:Group Quarters, Not Health Related  (5);9:Not Determined  (9);^0;12^Q"
^DD(631,11,3)="Answer with 1 digit numeric code representing patient's living arrangements at time of evaluation."
^DD(631,11,21,0)="^^2^2^2921130^"
^DD(631,11,21,1,0)="This field represents 1 digit numeric code for patient's living "
^DD(631,11,21,2,0)="arrangements at time of evaluation for HBHC program."
^DD(631,11,"DT")="2910708"
^DD(631,12,0)="LAST AGENCY PROVIDING CARE^S^1:VA Provided Care  (1);2:Non VA Care  (2);3:VA Fee Basis/Contract  (3);^0;13^Q"
^DD(631,12,3)="Answer with 1 digit numeric code representing last agency providing care to patient."
^DD(631,12,21,0)="^^2^2^2921130^"
^DD(631,12,21,1,0)="This field represents 1 digit numeric code for last agency providing"
^DD(631,12,21,2,0)="care to patient."
^DD(631,12,"DT")="2910708"
^DD(631,13,0)="TYPE OF LAST CARE AGENCY^S^1:General Hospital  (1);2:Specialty Hospital  (2);3:Nursing Home  (3);4:Residential Care Facility  (4);5:Hospice  (5);6:Community-Based Services  (6);7:Self/Family, No Regular Source  (7);9:Not Determined  (9);^0;14^Q"
^DD(631,13,3)="Answer with 1 digit numeric code representing type of agency providing last care to patient."
^DD(631,13,21,0)="^^2^2^2921130^"
^DD(631,13,21,1,0)="This fields represents 1 digit numeric code for type of agency providing"
^DD(631,13,21,2,0)="last care to patient."
^DD(631,13,"DT")="2910708"
^DD(631,14,0)="ADMIT/REJECT ACTION^S^1:Admit to HBHC  (1);2:Reject from HBHC  (2);^0;15^Q"
^DD(631,14,3)="Answer with 1 digit numeric code representing whether patient was admitted to or rejected from HBHC program.  This answer determines what other data entry fields are prompted for by the package."
^DD(631,14,21,0)="^^3^3^2921130^"
^DD(631,14,21,1,0)="This fields represents 1 digit numeric code for whether patient was"
^DD(631,14,21,2,0)="admitted to or rejected from HBHC program.  This field determines"
^DD(631,14,21,3,0)="what other data entry fields are prompted for by the package."
^DD(631,14,"DT")="2910708"
^DD(631,15,0)="REJECT/WITHDRAW REASON^P631.1'O^HBHC(631.1,^0;16^Q"
^DD(631,15,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,16),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.1,Z0,0)):^(0),1:""""),U,2)"
^DD(631,15,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,16),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.1,Z0,0)):^(0),1:""""),U,2)"
^DD(631,15,3)="Answer with 2 digit numeric code representing reason patient was rejected/withdrawn from HBHC program."
^DD(631,15,21,0)="^^4^4^2921217^^^^"
^DD(631,15,21,1,0)="This field represents 2 digit numeric code in HBHC Reject/Withdraw"
^DD(631,15,21,2,0)="Reason (631.1) file, for reason patient was rejected/withdrawn from"
^DD(631,15,21,3,0)="HBHC program.  This field is only prompted for when Admit/Reject Action"
^DD(631,15,21,4,0)="field contains 2 (Reject from HBHC)."
^DD(631,15,"DT")="2940317"
^DD(631,16,0)="REJECT/WITHDRAW DISPOSITION^S^1:Referred Back to Referral Source  (1);2:Disposition Made by HBHC  (2);^0;17^Q"
^DD(631,16,3)="Answer with 1 digit numeric code representing reject/withdraw disposition."
^DD(631,16,21,0)="^^3^3^2921201^^"
^DD(631,16,21,1,0)="This field represents 1 digit numeric code for reject/withdraw disposition."
^DD(631,16,21,2,0)="This field is only prompted for when Admit/Reject Action field contains"
^DD(631,16,21,3,0)="2 (Reject from HBHC)."
^DD(631,16,"DT")="2910708"
^DD(631,17,0)="DATE^RDX^^0;18^S %DT=""EX"" D ^%DT S (HBHCDTE,X)=Y,HBHCDS=$P(^HBHC(631,D0,0),U,40) K:X>DT!(2770101>X) X K:((HBHCDS]"""")&(HBHCDTE>HBHCDS)) X K HBHCDS,HBHCDTE"
^DD(631,17,1,0)="^.1"
^DD(631,17,1,1,0)="631^AD"
^DD(631,17,1,1,1)="S ^HBHC(631,""AD"",$E(X,1,30),DA)="""""
^DD(631,17,1,1,2)="K ^HBHC(631,""AD"",$E(X,1,30),DA)"
^DD(631,17,1,1,"%D",0)="^^1^1^2970218^^^"
^DD(631,17,1,1,"%D",1,0)="This cross-reference represents regular 'AD' file index of HBHC Patient (631) file, Date (17) field. "
^DD(631,17,1,1,"%D",2,0)="(631) file, Admission Date (17) field."
^DD(631,17,1,1,"DT")="2920416"
^DD(631,17,3)="Date must be prior to or same as discharge date, must be between 1/1/1977 & current date, and represent date patient was considered/reviewed for HBPC program.  Field is required."
^DD(631,17,21,0)="^^3^3^2970218^^^^"
^DD(631,17,21,1,0)="This field represents date patient was considered/reviewed for HBPC program. "
^DD(631,17,21,2,0)="Date range allowed is between 1/1/1977 and current date.  Date must be prior to"
^DD(631,17,21,3,0)="or same as discharge date. "
^DD(631,17,21,4,0)="discharge date."
^DD(631,17,"DT")="2970826"
^DD(631,18,0)="PRIMARY DIAGNOSIS @ ADMISSION^P80'O^ICD9(^0;19^Q"
^DD(631,18,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,19),1:"""") Q:'Z0  S Y=$S($D(^ICD9(Z0,0)):$P(^ICD9(Z0,0),U)_""  ""_$P(^ICD9(Z0,0),U,3),1:"""")"
^DD(631,18,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,19),1:"""") Q:'Z0  S Y=$S($D(^ICD9(Z0,0)):$P(^ICD9(Z0,0),U)_""  ""_$P(^ICD9(Z0,0),U,3),1:"""")"
^DD(631,18,3)="Answer with ICD9 diagnosis code, or diagnosis description, of patient's primary diagnosis at time of admission."
^DD(631,18,21,0)="^^2^2^2921217^^^^"
^DD(631,18,21,1,0)="This field represents patient's primary diagnosis at time of admission,"
^DD(631,18,21,2,0)="referencing ICD Diagnosis (80) file entries."
^DD(631,18,"DT")="2920605"
^DD(631,19,0)="VISION @ ADMISSION^S^1:Normal or Minimal Loss  (1);2:Moderate Loss  (2);3:Severe Loss  (3);4:Total Blindness  (4);9:Not Determined  (9);^0;20^Q"
^DD(631,19,3)="Answer with 1 digit numeric code representing patient's vision at time of admission."
^DD(631,19,21,0)="^^2^2^2921201^"
^DD(631,19,21,1,0)="This field represents 1 digit numeric code for patient's vision at"
^DD(631,19,21,2,0)="time of admission."
^DD(631,19,"DT")="2910708"
^DD(631,20,0)="HEARING @ ADMISSION^S^1:Normal or Minimal Loss  (1);2:Moderate Loss  (2);3:Severe Loss  (3);4:Total Deafness  (4);9:Not Determined  (9);^0;21^Q"
^DD(631,20,3)="Answer with 1 digit numeric code representing patient's hearing at time of admission."
^DD(631,20,21,0)="^^2^2^2921201^"
^DD(631,20,21,1,0)="This field represents 1 digit numeric code for patient's hearing at"
^DD(631,20,21,2,0)="time of admission."
^DD(631,20,"DT")="2910708"
^DD(631,21,0)="EXPRESSIVE COMMUNICATION @ ADM^P631.2'O^HBHC(631.2,^0;22^Q"
^DD(631,21,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,22),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.2,Z0,0)):^(0),1:""""),U)"
^DD(631,21,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,22),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.2,Z0,0)):^(0),1:""""),U)"
^DD(631,21,3)="Answer with 1 digit numeric code representing patient's expressive communication at time of admission."
^DD(631,21,21,0)="^^3^3^2921217^^"
^DD(631,21,21,1,0)="This field represents 1 digit numeric code for patient's expressive"
^DD(631,21,21,2,0)="communication at time of admission, referencing HBHC Expressive"
^DD(631,21,21,3,0)="Communication (631.2) file entries."
^DD(631,21,"DT")="2940317"
^DD(631,22,0)="RECEPTIVE COMMUNICATION @ ADM^P631.3'O^HBHC(631.3,^0;23^Q"
^DD(631,22,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,23),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.3,Z0,0)):^(0),1:""""),U)"
^DD(631,22,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,23),1:"""") Q:'Z0  S Y=$P($S($D(^HBHC(631.3,Z0,0)):^(0),1:""""),U)"
^DD(631,22,3)="Answer with 1 digit numeric code representing patient's receptive communication at time of admission."
^DD(631,22,21,0)="^^3^3^2921217^^"
^DD(631,22,21,1,0)="This field represents 1 digit numeric code for patient's receptive"
^DD(631,22,21,2,0)="communication at time of admission, referencing HBHC Receptive"
^DD(631,22,21,3,0)="Communication (631.3) file entries."
^DD(631,22,"DT")="2940317"
^DD(631,23,0)="BATHING @ ADMISSION^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;24^Q"
^DD(631,23,3)="Answer with 1 digit numeric code representing bathing of patient at time of admission."
^DD(631,23,21,0)="^^2^2^2921201^"
^DD(631,23,21,1,0)="This field represents 1 digit numeric code for patient's bathing at"
^DD(631,23,21,2,0)="time of admission."
^DD(631,23,"DT")="2910708"
^DD(631,24,0)="DRESSING @ ADMISSION^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;25^Q"
^DD(631,24,3)="Answer with 1 digit numeric code representing dressing of patient at time of admission."
^DD(631,24,21,0)="^^2^2^2921201^"
^DD(631,24,21,1,0)="This field represents 1 digit numeric code for patient's dressing at"
^DD(631,24,21,2,0)="time of admission."
^DD(631,24,"DT")="2910708"
^DD(631,25,0)="TOILET USAGE @ ADMISSION^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;26^Q"
^DD(631,25,3)="Answer with 1 digit numeric code representing toilet usage of patient at time of admission."
^DD(631,25,21,0)="^^2^2^2921201^"
^DD(631,25,21,1,0)="This field represents 1 digit numeric code for patient's toilet usage"
^DD(631,25,21,2,0)="at time of admission."
^DD(631,25,"DT")="2910708"
^DD(631,26,0)="TRANSFERRING @ ADMISSION^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;27^Q"
^DD(631,26,3)="Answer with 1 digit numeric code representing transferring of patient at time of admission."
^DD(631,26,21,0)="^^2^2^2921201^"
^DD(631,26,21,1,0)="This field represents 1 digit numeric code for patient's transferring"
^DD(631,26,21,2,0)="at time of admission."
^DD(631,26,"DT")="2910708"
^DD(631,27,0)="EATING @ ADMISSION^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;28^Q"
^DD(631,27,3)="Answer with 1 digit numeric code representing eating by patient at time of admission."
^DD(631,27,21,0)="^^2^2^2921201^"
^DD(631,27,21,1,0)="This field represents 1 digit numeric code for patient's eating at"
^DD(631,27,21,2,0)="time of admission."
^DD(631,27,"DT")="2910708"
^DD(631,28,0)="WALKING @ ADMISSION^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;29^Q"
^DD(631,28,3)="Answer with 1 digit numeric code representing walking by patient at time of admission."
^DD(631,28,21,0)="^^2^2^2921201^"
^DD(631,28,21,1,0)="This field represents 1 digit numeric code for patient's walking at"
^DD(631,28,21,2,0)="time of admission."
^DD(631,28,"DT")="2910708"
^DD(631,29,0)="BOWEL CONTINENCE @ ADMISSION^S^1:Continent or Ostomy/Catheter Self Care  (1);2:Incontinent Occasionally  (2);3:Incontinent or Ostomy/Catheter Not Self Care  (3);9:Not Determined  (9);^0;30^Q"
^DD(631,29,3)="Answer with 1 digit numeric code representing bowel continence of patient at time of admission."
^DD(631,29,21,0)="^^2^2^2921201^"
^DD(631,29,21,1,0)="This field represents 1 digit numeric code for patient's bowel"
^DD(631,29,21,2,0)="continence at time of admission."
^DD(631,29,"DT")="2910708"
^DD(631,30,0)="BLADDER CONTINENCE @ ADMISSION^S^1:Continent or Ostomy/Catheter Self Care  (1);2:Incontinent Occasionally  (2);3:Incontinent or Ostomy/Catheter Not Self Care  (3);9:Not Determined  (9);^0;31^Q"
^DD(631,30,3)="Answer with 1 digit numeric code representing bladder continence of patient at time of admission."
^DD(631,30,21,0)="^^2^2^2921201^"
^DD(631,30,21,1,0)="This field represents 1 digit numeric code for patient's bladder"
^DD(631,30,21,2,0)="continence at time of admission."
^DD(631,30,"DT")="2910708"
^DD(631,31,0)="MOBILITY @ ADMISSION^S^1:Goes Outdoors Without Help  (1);2:Goes Outdoors With Help  (2);3:Confined Indoors, Not Bed Disabled  (3);4:Bed Disabled  (4);9:Not Determined  (9);^0;32^Q"
^DD(631,31,3)="Answer with 1 digit numeric code representing patient's mobility at time of admission."
^DD(631,31,21,0)="^^2^2^2921201^"
^DD(631,31,21,1,0)="This field represents 1 digit numeric code for patient's mobility at"
^DD(631,31,21,2,0)="time of admission."
^DD(631,31,"DT")="2920506"
^DD(631,32,0)="ADAPTIVE TASKS @ ADMISSION^S^1:No Help  (1);2:Requires Help  (2);9:Not Determined  (9);^0;33^Q"
^DD(631,32,3)="Answer with 1 digit numeric code representing patient's adaptive tasks at time of admission."
^DD(631,32,21,0)="^^2^2^2921201^"
^DD(631,32,21,1,0)="This field represents 1 digit numeric code for patient's adaptive tasks"
^DD(631,32,21,2,0)="at time of admission."
^DD(631,32,"DT")="2910708"
^DD(631,33,0)="BEHAVIOR PROBLEMS @ ADMISSION^S^1:Does Not Exhibit This Characteristic  (1);2:Exhibits This Characteristic  (2);9:Not Determined  (9);^0;34^Q"
^DD(631,33,3)="Answer with 1 digit numeric code representing behavior problems of patient at time of admission."
^DD(631,33,21,0)="^^2^2^2921201^"
^DD(631,33,21,1,0)="This field represents 1 digit numeric code for patient's behavior"
^DD(631,33,21,2,0)="problems at time of admission."
^DD(631,33,"DT")="2910708"
^DD(631,34,0)="DISORIENTATION @ ADMISSION^S^1:Does Not Exhibit This Characteristic  (1);2:Exhibits This Characteristic  (2);9:Not Determined  (9);^0;35^Q"
^DD(631,34,3)="Answer with 1 digit numeric code representing disorientation of patient at time of admission."
^DD(631,34,21,0)="^^2^2^2921201^"
^DD(631,34,21,1,0)="This field represents 1 digit numeric code for patient's disorientation"
^DD(631,34,21,2,0)="at time of admission."
^DD(631,34,"DT")="2910708"
^DD(631,35,0)="MOOD DISTURBANCE @ ADMISSION^S^1:Does Not Exhibit This Characteristic  (1);2:Exhibits This Characteristic  (2);9:Not Determined  (9);^0;36^Q"
^DD(631,35,3)="Answer with 1 digit numeric code representing mood disturbance of patient at time of admission."
^DD(631,35,21,0)="^^2^2^2921201^"
^DD(631,35,21,1,0)="This field represents 1 digit numeric code for patient's mood disturbance"
^DD(631,35,21,2,0)="at time of admission."
^DD(631,35,"DT")="2910708"
^DD(631,36,0)="CAREGIVER LIMITATIONS @ ADM^S^1:Minimal or None  (1);2:Moderate  (2);3:Moderately Severe  (3);4:No Caregiver  (4);9:Not Determined  (9);^0;37^Q"
^DD(631,36,3)="Answer with 1 digit numeric code representing patient's caregiver limitations at time of admission."
^DD(631,36,21,0)="^^2^2^2921201^"
^DD(631,36,21,1,0)="This field represents 1 digit numeric code for patient's caregiver"
^DD(631,36,21,2,0)="limitations at time of admission."
^DD(631,36,"DT")="2910708"
^DD(631,37,0)="PERSON COMPLETING EVL/ADM FORM^P631.4'O^HBHC(631.4,^0;38^Q"
^DD(631,37,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,38),1:"""") Q:'Z0  S Z1=$P($S($D(^HBHC(631.4,Z0,0)):^(0),1:""""),U,2),Z2=+(^(0)),Y=$P($S($D(^VA(200,Z1,0)):^(0),1:""""),U)_""  (""_Z2_"")"""
^DD(631,37,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,38),1:"""") Q:'Z0  S Z1=$P($S($D(^HBHC(631.4,Z0,0)):^(0),1:""""),U,2),Z2=+(^(0)),Y=$P($S($D(^VA(200,Z1,0)):^(0),1:""""),U)_""  (""_Z2_"")"""
^DD(631,37,3)="Answer with name of person completing evaluation/admission form.  Person must exist in HBHC Provider file."
^DD(631,37,21,0)="^^3^3^2921217^^"
^DD(631,37,21,1,0)="This field represents name of person completing evaluation/admission"
^DD(631,37,21,2,0)="form.  This person must exist in HBHC Provider (631.4) file, since"
^DD(631,37,21,3,0)="LAYGO is not allowed."
^DD(631,37,"DT")="2940318"
^DD(631,38,0)="DATE EVAL/ADM FORM COMPLETED^D^^0;39^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,38,3)="Answer with date evalution/admission form was completed."
^DD(631,38,21,0)="^^1^1^2921201^"
^DD(631,38,21,1,0)="This field represents date evaluation/admission form was completed."
^DD(631,38,"DT")="2930407"
^DD(631,39,0)="DISCHARGE DATE^DX^^0;40^S %DT=""EX"" D ^%DT S (HBHCDTE,X)=Y K:X>DT!(2770101>X) X K:HBHCDTE<$P(^HBHC(631,D0,0),U,18) X K HBHCDTE"
^DD(631,39,1,0)="^.1"
^DD(631,39,1,1,0)="631^AC"
^DD(631,39,1,1,1)="S ^HBHC(631,""AC"",$E(X,1,30),DA)="""""
^DD(631,39,1,1,2)="K ^HBHC(631,""AC"",$E(X,1,30),DA)"
^DD(631,39,1,1,"%D",0)="^^2^2^2921228^"
^DD(631,39,1,1,"%D",1,0)="This cross-reference represents regular 'AC' file index of HBHC Patient"
^DD(631,39,1,1,"%D",2,0)="(631) file, Discharge Date (39) field."
^DD(631,39,1,1,"DT")="2920904"
^DD(631,39,3)="Answer with date patient was discharged from HBHC program.  Answer must be between 1/1/1977 and current date.  Discharge date must follow or be same as admission date."
^DD(631,39,21,0)="^^3^3^2930726^^^"
^DD(631,39,21,1,0)="This field represents date patient was discharged from HBHC program."
^DD(631,39,21,2,0)="Date range allowed is between 1/1/1977 and current date.  Discharge date"
^DD(631,39,21,3,0)="must follow or be same as admission date."
^DD(631,39,"DT")="2940317"
^DD(631,40,0)="ELIGIBILITY @ DISCHARGE^S^01:Service Connected 50% or More  (01);02:Aid & Attendance or Housebound  (02);03:Service Connected Less Than 50%  (03);04:Non-Service Connected, Receiving VA Pension  (04);05:Other Non-Service Connected  (05);^0;41^Q"
^DD(631,40,3)="Answer with 2 digit numeric code representing patient's eligibility at time of discharge."
^DD(631,40,21,0)="^^2^2^2921201^"
^DD(631,40,21,1,0)="This field represents 2 digit numeric code of patient's eligibility at"
^DD(631,40,21,2,0)="time of discharge from HBHC program."
^DD(631,40,"DT")="2910708"
^DD(631,41,0)="MARITAL STATUS @ DISCHARGE^S^1:Married  (1);2:Widowed  (2);3:Separated  (3);4:Divorced  (4);5:Never Married  (5);9:Not Determined  (9);^0;42^Q"
^DD(631,41,3)="Answer with 1 digit numeric code representing patient's marital status at time of discharge."
^DD(631,41,21,0)="^^2^2^2921201^"
^DD(631,41,21,1,0)="This field represents 1 digit numeric code for patient's marital status"
^DD(631,41,21,2,0)="at time of discharge from HBHC program."
^DD(631,41,"DT")="2910708"
^DD(631,42,0)="LIVING ARRANGEMENTS @ D/C^S^1:Alone  (1);2:With Spouse  (2);3:With Relatives  (3);4:With Non-Relatives  (4);5:Group Quarters, Not Health Related  (5);9:Not Determined  (9);^0;43^Q"
^DD(631,42,3)="Answer with 1 digit numeric code representing patient's living arrangements at time of discharge."
^DD(631,42,21,0)="^^2^2^2921201^"
^DD(631,42,21,1,0)="This field represents 1 digit numeric code for patient's living"
^DD(631,42,21,2,0)="arrangements at time of discharge from HBHC program."
^DD(631,42,"DT")="2930407"
^DD(631,43,0)="DISCHARGE STATUS^S^1:Transferred to Other Provider  (1);2:Anticipated Institutionalization  (2);3:Family or Self Care/No Regular Source  (3);4:Died on HBHC  (4);5:Moved Away/Lost to Contact  (5);9:Not Determined  (9);^0;44^Q"
^DD(631,43,3)="Answer with 1 digit numeric code representing discharge status of patient.  This answer determines what other data entry fields are prompted for by the package."
^DD(631,43,21,0)="^^3^3^2921201^"
^DD(631,43,21,1,0)="This field represents 1 digit numeric code for patient's discharge"
^DD(631,43,21,2,0)="status.  This field determines what other data entry fields are"
^DD(631,43,21,3,0)="prompted for by the package."
^DD(631,43,"DT")="2910708"
^DD(631,44,0)="TRANSFER DESTINATION^S^1:VA Provided Care  (1);2:Non VA Care  (2);3:VA Fee Basis/Contract  (3);^0;45^Q"
^DD(631,44,3)="Answer with 1 digit numeric code representing transfer destination of patient."
^DD(631,44,21,0)="^^4^4^2921201^^"
^DD(631,44,21,1,0)="This field represents 1 digit numeric code for patient's transfer "
^DD(631,44,21,2,0)="destination.  This field is only prompted for when Discharge Status field "
^DD(631,44,21,3,0)="contains either 1 (Transferred to Other Provider) or 2 (Anticipated"
^DD(631,44,21,4,0)="Institutionalization)."
^DD(631,44,"DT")="2910708"
^DD(631,45,0)="TYPE OF DESTINATION AGENCY^S^1:General Hospital  (1);2:Specialty Hospital  (2);3:Nursing Home  (3);4:Residential Care Facility/Domicillary  (4);5:Hospice  (5);6:Community-Based Services  (6);9:Not Determined  (9);^0;46^Q"
^DD(631,45,3)="Answer with 1 digit numeric code representing type of agency of patient's destination."
^DD(631,45,21,0)="^^4^4^2921201^"
^DD(631,45,21,1,0)="This field represent 1 digit numeric code for patient's type of"
^DD(631,45,21,2,0)="destination agency.  This field is only prompted for when Discharge"
^DD(631,45,21,3,0)="Status field contains either 1 (Transferred to Other Provider) or 2"
^DD(631,45,21,4,0)="(Anticipated Institutionalization)."
^DD(631,45,"DT")="2910708"
^DD(631,46,0)="PRIMARY DIAGNOSIS @ DISCHARGE^P80'O^ICD9(^0;47^Q"
^DD(631,46,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,47),1:"""") Q:'Z0  S Y=$S($D(^ICD9(Z0,0)):$P(^ICD9(Z0,0),U)_""  ""_$P(^ICD9(Z0,0),U,3),1:"""")"
^DD(631,46,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,0)):$P(^(0),U,47),1:"""") Q:'Z0  S Y=$S($D(^ICD9(Z0,0)):$P(^ICD9(Z0,0),U)_""  ""_$P(^ICD9(Z0,0),U,3),1:"""")"
^DD(631,46,3)="Answer with ICD9 diagnosis code, or diagnosis description, of patient's primary diagnosis at time of discharge."
^DD(631,46,21,0)="^^2^2^2921217^^"
^DD(631,46,21,1,0)="This field represents patient's primary diagnosis at time of discharge,"
^DD(631,46,21,2,0)="referencing ICD Diagnosis (80) file entries."
^DD(631,46,"DT")="2920605"
^DD(631,47,0)="VISION @ DISCHARGE^S^1:Normal or Minimal Loss  (1);2:Moderate Loss  (2);3:Severe Loss  (3);4:Total Blindness  (4);9:Not Determined  (9);^0;48^Q"
^DD(631,47,3)="Answer with 1 digit numeric code representing patient's vision at time of discharge."
^DD(631,47,21,0)="^^2^2^2921202^"
^DD(631,47,21,1,0)="This field represents 1 digit numeric code for patient's vision at time"
^DD(631,47,21,2,0)="of discharge."
^DD(631,47,"DT")="2910708"
^DD(631,48,0)="HEARING @ DISCHARGE^S^1:Normal or Minimal Loss  (1);2:Moderate Loss  (2);3:Severe Loss  (3);4:Total Deafness  (4);9:Not Determined  (9);^0;49^Q"
^DD(631,48,3)="Answer with 1 digit numeric code representing patient's hearing at time of discharge."
^DD(631,48,21,0)="^^2^2^2921202^"
^DD(631,48,21,1,0)="This field represents 1 digit numeric code for patient's hearing at time"
^DD(631,48,21,2,0)="of discharge."
^DD(631,48,"DT")="2910708"
^DD(631,49,0)="EXPRESSIVE COMMUNICATION @ D/C^P631.2'^HBHC(631.2,^0;50^Q"
^DD(631,49,3)="Answer with 1 digit numeric code representing patient's expressive communication at time of discharge."
^DD(631,49,21,0)="^^3^3^2921217^^"
^DD(631,49,21,1,0)="This field represents 1 digit numeric code for patient's expressive"
^DD(631,49,21,2,0)="communication at time of discharge, referencing HBHC Expressive"
^DD(631,49,21,3,0)="Communication (631.2) file entries."
^DD(631,49,"DT")="2930407"
^DD(631,50,0)="RECEPTIVE COMMUNICATION @ D/C^P631.3'^HBHC(631.3,^0;51^Q"
^DD(631,50,3)="Answer with 1 digit numeric code representing patient's receptive communication at time of discharge."
^DD(631,50,21,0)="^^3^3^2921217^^"
^DD(631,50,21,1,0)="This field represents 1 digit numeric code for patient's receptive"
^DD(631,50,21,2,0)="communication at time of discharge, referencing HBHC Receptive"
^DD(631,50,21,3,0)="Communication (631.3) file entries."
^DD(631,50,"DT")="2930407"
^DD(631,51,0)="BATHING @ DISCHARGE^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;52^Q"
^DD(631,51,3)="Answer with 1 digit numeric code representing bathing of patient at time of discharge."
^DD(631,51,21,0)="^^2^2^2921202^"
^DD(631,51,21,1,0)="This field represents 1 digit numeric code for patient's bathing at"
^DD(631,51,21,2,0)="time of discharge."
^DD(631,51,"DT")="2920506"
^DD(631,52,0)="DRESSING @ DISCHARGE^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;53^Q"
^DD(631,52,3)="Answer with 1 digit numeric code representing dressing of patient at time of discharge."
^DD(631,52,21,0)="^^2^2^2921202^"
^DD(631,52,21,1,0)="This field represents 1 digit numeric code for patient's dressing at"
^DD(631,52,21,2,0)="time of discharge."
^DD(631,52,"DT")="2910708"
^DD(631,53,0)="TOILET USAGE @ DISCHARGE^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;54^Q"
^DD(631,53,3)="Answer with 1 digit numeric code representing toilet usage of patient at time of discharge."
^DD(631,53,21,0)="^^2^2^2921203^^"
^DD(631,53,21,1,0)="This field represents 1 digit numeric code for patient's toilet usage at"
^DD(631,53,21,2,0)="time of discharge."
^DD(631,53,"DT")="2910708"
^DD(631,54,0)="TRANSFERRING @ DISCHARGE^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^0;55^Q"
^DD(631,54,3)="Answer with 1 digit numeric code representing transferring of patient at time of discharge."
^DD(631,54,21,0)="^^2^2^2921203^^"
^DD(631,54,21,1,0)="This field represents 1 digit numeric code for patient's transferring "
^DD(631,54,21,2,0)="at time of discharge."
^DD(631,54,"DT")="2910708"
^DD(631,55,0)="EATING @ DISCHARGE^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^1;1^Q"
^DD(631,55,3)="Answer with 1 digit numeric code representing eating by patient at time of discharge."
^DD(631,55,21,0)="^^2^2^2921202^"
^DD(631,55,21,1,0)="This field represents 1 digit numeric code for patient's eating at time"
^DD(631,55,21,2,0)="of discharge."
^DD(631,55,"DT")="2910708"
^DD(631,56,0)="WALKING @ DISCHARGE^S^1:No Help  (1);2:Receives Help  (2);3:Not Done or Done Without Patient Participation  (3);9:Not Determined  (9);^1;2^Q"
^DD(631,56,3)="Answer with 1 digit numeric code representing walking by patient at time of discharge."
^DD(631,56,21,0)="^^2^2^2921202^"
^DD(631,56,21,1,0)="This field represents 1 digit numeric code for patient's walking at time"
^DD(631,56,21,2,0)="of discharge."
^DD(631,56,"DT")="2910708"
^DD(631,57,0)="BOWEL CONTINENCE @ DISCHARGE^S^1:Continent or Ostomy/Catheter Self Care  (1);2:Incontinent Occasionally  (2);3:Incontinent or Ostomy/Catheter Not Self Care  (3);9:Not Determined  (9);^1;3^Q"
^DD(631,57,3)="Answer with 1 digit numeric code representing bowel continence of patient at time of discharge."
^DD(631,57,21,0)="^^2^2^2921202^"
^DD(631,57,21,1,0)="This field represents 1 digit numeric code for patient's bowel"
^DD(631,57,21,2,0)="continence at time of discharge."
^DD(631,57,"DT")="2910708"
^DD(631,58,0)="BLADDER CONTINENCE @ DISCHARGE^S^1:Continent or Ostomy/Catheter Self Care  (1);2:Incontinent Occasionally  (2);3:Incontinent or Ostomy/Catheter Not Self Care  (3);9:Not Determined  (9);^1;4^Q"
^DD(631,58,3)="Answer with 1 digit numeric code representing bladder continence of patient at time of discharge."
^DD(631,58,21,0)="^^2^2^2921202^"
^DD(631,58,21,1,0)="This field represents 1 digit numeric code for patient's bladder"
^DD(631,58,21,2,0)="continence at time of discharge."
^DD(631,58,"DT")="2910708"
^DD(631,59,0)="MOBILITY @ DISCHARGE^S^1:Goes Outdoors Without Help  (1);2:Goes Outdoors With Help  (2);3:Confined Indoors, Not Bed Disabled  (3);4:Bed Disabled  (4);9:Not Determined  (9);^1;5^Q"
^DD(631,59,3)="Answer with 1 digit numeric code representing patient's mobility at time of discharge."
^DD(631,59,21,0)="^^2^2^2921217^^"
^DD(631,59,21,1,0)="This field represents 1 digit numeric code for patient's mobility at"
^DD(631,59,21,2,0)="time of discharge."
^DD(631,59,"DT")="2910708"
^DD(631,60,0)="ADAPTIVE TASKS @ DISCHARGE^S^1:No Help  (1);2:Requires Help  (2);9:Not Determined  (9);^1;6^Q"
^DD(631,60,3)="Answer with 1 digit numeric code representing patient's adaptive tasks at time of discharge."
^DD(631,60,21,0)="^^2^2^2921202^"
^DD(631,60,21,1,0)="This field represents 1 digit numeric code for patient's adaptive"
^DD(631,60,21,2,0)="tasks at time of discharge."
^DD(631,60,"DT")="2910708"
^DD(631,61,0)="BEHAVIOR PROBLEMS @ DISCHARGE^S^1:Does Not Exhibit This Characteristic  (1);2:Exhibits This Characteristic  (2);9:Not Determined  (9);^1;7^Q"
^DD(631,61,3)="Answer with 1 digit numeric code representing bahavior problems of patient at time of discharge."
^DD(631,61,21,0)="^^2^2^2921202^"
^DD(631,61,21,1,0)="This field represents 1 digit numeric code for patient's behavior"
^DD(631,61,21,2,0)="problems at time of discharge."
^DD(631,61,"DT")="2910708"
^DD(631,62,0)="DISORIENTATION @ DISCHARGE^S^1:Does Not Exhibit This Characteristic  (1);2:Exhibits This Characteristic  (2);9:Not Determined  (9);^1;8^Q"
^DD(631,62,3)="Answer with 1 digit numeric code representing disorientation of patient at time of discharge."
^DD(631,62,21,0)="^^2^2^2921202^"
^DD(631,62,21,1,0)="This field represents 1 digit numeric code for patient's disorientation"
^DD(631,62,21,2,0)="at time of discharge."
^DD(631,62,"DT")="2910708"
^DD(631,63,0)="MOOD DISTURBANCE @ DISCHARGE^S^1:Does Not Exhibit This Characteristic  (1);2:Exhibits This Characteristic  (2);9:Not Determined  (9);^1;9^Q"
^DD(631,63,3)="Answer with 1 digit numeric code representing mood disturbance of patient at time of discharge."
^DD(631,63,21,0)="^^2^2^2921202^"
^DD(631,63,21,1,0)="This field represents 1 digit numeric code for patient's mood disturbance"
^DD(631,63,21,2,0)="at time of discharge."
^DD(631,63,"DT")="2910708"
^DD(631,64,0)="CAREGIVER LIMITATIONS @ D/C^S^1:Minimal or None  (1);2:Moderate  (2);3:Moderately Severe  (3);4:No Caregiver  (4);9:Not Determined  (9);^1;10^Q"
^DD(631,64,3)="Answer with 1 digit numeric code representing patient's caregiver limitations at time of discharge."
^DD(631,64,21,0)="^^2^2^2921202^"
^DD(631,64,21,1,0)="This field represents 1 digit numeric code for patient's caregiver"
^DD(631,64,21,2,0)="limitations at time of discharge."
^DD(631,64,"DT")="2930407"
^DD(631,65,0)="PERSON COMPLETING D/C FORM^P631.4'O^HBHC(631.4,^1;11^Q"
^DD(631,65,2)="S Y(0)=Y Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,1)):$P(^(1),U,11),1:"""") Q:'Z0  S Z1=$P($S($D(^HBHC(631.4,Z0,0)):^(0),1:""""),U,2),Z2=+(^(0)),Y=$P($S($D(^VA(200,Z1,0)):^(0),1:""""),U)_""  (""_Z2_"")"""
^DD(631,65,2.1)="Q:Y']""""  S Z0=$S($D(^HBHC(631,D0,1)):$P(^(1),U,11),1:"""") Q:'Z0  S Z1=$P($S($D(^HBHC(631.4,Z0,0)):^(0),1:""""),U,2),Z2=+(^(0)),Y=$P($S($D(^VA(200,Z1,0)):^(0),1:""""),U)_""  (""_Z2_"")"""
^DD(631,65,3)="Answer with name of person completing discharge form.  Person must exist in HBHC Provider file."
^DD(631,65,21,0)="^^3^3^2921217^^"
^DD(631,65,21,1,0)="This field represents name of person completing discharge form.  This"
^DD(631,65,21,2,0)="person must exist in HBHC Provider (631.4) file, since LAYGO is not"
^DD(631,65,21,3,0)="allowed."
^DD(631,65,"DT")="2940317"
^DD(631,66,0)="DATE DISCHARGE FORM COMPLETED^D^^1;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,66,3)="Answer with date discharge form was completed."
^DD(631,66,21,0)="^^1^1^2921202^"
^DD(631,66,21,1,0)="This field represents date discharge form was completed."
^DD(631,66,"DT")="2920409"
^DD(631,67,0)="CASE MANAGER^P631.4'O^HBHC(631.4,^1;13^Q"
^DD(631,67,1,0)="^.1^^0"
^DD(631,67,2)="S Y(0)=Y Q:Y']""""  S Z0=$P($G(^HBHC(631,D0,1)),U,13) Q:'Z0  S Z1=$P($G(^HBHC(631.4,Z0,0)),U,2),Z2=+(^(0)),Y=$P($G(^VA(200,Z1,0)),U)_""  (""_Z2_"")"""
^DD(631,67,2.1)="Q:Y']""""  S Z0=$P($G(^HBHC(631,D0,1)),U,13) Q:'Z0  S Z1=$P($G(^HBHC(631.4,Z0,0)),U,2),Z2=+(^(0)),Y=$P($G(^VA(200,Z1,0)),U)_""  (""_Z2_"")"""
^DD(631,67,3)="Answer with person responsible for this case.  Person must exist in HBHC Provider file."
^DD(631,67,21,0)="^^3^3^2930922^^^"
^DD(631,67,21,1,0)="This field represents name of person responsible for this case.  This"
^DD(631,67,21,2,0)="person must exist in HBHC Provider (631.4) file, since LAYGO is not"
^DD(631,67,21,3,0)="allowed."
^DD(631,67,"DT")="2930923"
^DD(631,68,0)="SECONDARY DIAGNOSES @ ADM^F^^1;14^K:$L(X)>30!($L(X)<1) X"
^DD(631,68,3)="Answer with diagnosis code, or diagnosis description, of patient's secondary diagnosis at time of admission.  Answer must be 1-30 characters in length."
^DD(631,68,21,0)="^^2^2^2921202^^^^"
^DD(631,68,21,1,0)="This field represents patient's secondary diagnosis at time of admission."
^DD(631,68,21,2,0)="Field allows for 1-30 characters of free text."
^DD(631,68,"DT")="2910611"
^DD(631,69,0)="CAUSE OF DEATH^F^^1;15^K:$L(X)>30!($L(X)<1) X"
^DD(631,69,3)="Answer with patient's cause of death.  Answer must be 1-30 characters in length."
^DD(631,69,21,0)="^^3^3^2921202^"
^DD(631,69,21,1,0)="This field represents patient's cause of death.  This field in only"
^DD(631,69,21,2,0)="prompted for when Discharge Status field contains 4 (Died on HBHC)."
^DD(631,69,21,3,0)="Field allows for 1-30 characters of free text."
^DD(631,69,"DT")="2910611"
^DD(631,70,0)="SECONDARY DIAGNOSES @ D/C^F^^1;16^K:$L(X)>30!($L(X)<1) X"
^DD(631,70,3)="Answer with diagnosis code, or diagnosis description, of patient's secondary diagnosis at time of discharge.  Answer must be 1-30 characters in length."
^DD(631,70,21,0)="^^2^2^2921202^"
^DD(631,70,21,1,0)="This field represents patient's secondary diagnosis at time of discharge."
^DD(631,70,21,2,0)="Field allows for 1-30 characters of free text."
^DD(631,70,"DT")="2930407"
^DD(631,71,0)="FORM 3 TRANSMIT STATUS^S^F:Record in Transmit File;N:Record Needs Transmitting;T:Record Transmitted;O:Record Omitted, Pre-dates 10/1/96 PCE Usage;^1;17^Q"
^DD(631,71,1,0)="^.1"
^DD(631,71,1,1,0)="631^AE"
^DD(631,71,1,1,1)="S ^HBHC(631,""AE"",$E(X,1,30),DA)="""""
^DD(631,71,1,1,2)="K ^HBHC(631,""AE"",$E(X,1,30),DA)"
^DD(631,71,1,1,"%D",0)="^^3^3^2921230^^"
^DD(631,71,1,1,"%D",1,0)="This cross-reference represents regular 'AE' file index of HBHC Patient"
^DD(631,71,1,1,"%D",2,0)="(631) file, Form 3 (Evaluation/Admission) Transmit Status (71) field."
^DD(631,71,1,1,"%D",3,0)="Form 3 Tranmsit Status field updated by package only, no user input."
^DD(631,71,1,1,"DT")="2920427"
^DD(631,71,3)="Field updated only by package, no user input."
^DD(631,71,21,0)="^^4^4^2970417^^^^"
^DD(631,71,21,1,0)="This field represents Form 3 (Evaluation/Admission) Transmit Status. Field"
^DD(631,71,21,2,0)="will contain either 'F' (Record in Transmit File), 'N' (Record Needs"
^DD(631,71,21,3,0)="Transmitting), 'T' (Record Transmitted), or 'O' (Record Omitted, Pre-dates"
^DD(631,71,21,4,0)="10/1/96 PCE Usage).  Field updated by package only, no user input. "
^DD(631,71,"DT")="2970417"
^DD(631,72,0)="FORM 5 TRANSMIT STATUS^S^F:Record in Transmit File;N:Record Needs Transmitting;T:Record Transmitted;O:Record Omitted, Pre-dates 10/1/96 PCE Usage;^1;18^Q"
^DD(631,72,1,0)="^.1"
^DD(631,72,1,1,0)="631^AF"
^DD(631,72,1,1,1)="S ^HBHC(631,""AF"",$E(X,1,30),DA)="""""
^DD(631,72,1,1,2)="K ^HBHC(631,""AF"",$E(X,1,30),DA)"
^DD(631,72,1,1,"%D",0)="^^3^3^2921230^^^"
^DD(631,72,1,1,"%D",1,0)="This cross-reference represents regular 'AF' file index of HBHC Patient"
^DD(631,72,1,1,"%D",2,0)="(631) file, Form 5 (Discharge) Transmit Status (72) field.  Form 5 Transmit"
^DD(631,72,1,1,"%D",3,0)="Status field updated by package only, no user input."
^DD(631,72,1,1,"DT")="2920427"
^DD(631,72,3)="Field updated only by package, no user input."
^DD(631,72,21,0)="^^4^4^2970417^^^^"
^DD(631,72,21,1,0)="This field represents Form 5 (Discharge) Transmit Status.  Field will"
^DD(631,72,21,2,0)="contain either 'F' (Record in Transmit File), 'N' (Record Needs"
^DD(631,72,21,3,0)="Transmitting), 'T' (Record Transmitted), or 'O' (Record Omitted, Pre-dates"
^DD(631,72,21,4,0)="10/1/96 PCE Usage).  Field updated by package only, no user input. "
^DD(631,72,"DT")="2970417"
^DD(631,73,0)="FORM 3 FILED IN HBHC(634) DATE^D^^1;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,73,3)="Date Form 3 filed in Transmit file.  Field updated only by package, no user input."
^DD(631,73,21,0)="^^2^2^2921217^^^^"
^DD(631,73,21,1,0)="This field represents date Form 3 (Evaluation/Admission) record filed"
^DD(631,73,21,2,0)="in Transmit (634) file.  Field updated by package only, no user input."
^DD(631,73,"DT")="2920429"
^DD(631,74,0)="FORM 3 BATCH INITIAL MM MSG #^F^^1;20^K:$L(X)>15!($L(X)<3) X"
^DD(631,74,3)="Field updated only by package, no user input.  Number represents first MM msg # in transmission batch.  Record may be transmitted in different msg, if multiple msgs transmitted."
^DD(631,74,21,0)="^^4^4^2921202^^^"
^DD(631,74,21,1,0)="This field represents MailMan message number of 'First' MailMan message"
^DD(631,74,21,2,0)="in Austin transmission batch.  Record 'may' be transmitted in different"
^DD(631,74,21,3,0)="message, if multiple messages are transmitted in one transmission batch."
^DD(631,74,21,4,0)="Field updated by package only, no user input."
^DD(631,74,"DT")="2920626"
^DD(631,75,0)="FORM 3 MAIL MESSAGE DATE^D^^1;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,75,1,0)="^.1"
^DD(631,75,1,1,0)="631^AG"
^DD(631,75,1,1,1)="S ^HBHC(631,""AG"",$E(X,1,30),DA)="""""
^DD(631,75,1,1,2)="K ^HBHC(631,""AG"",$E(X,1,30),DA)"
^DD(631,75,1,1,"%D",0)="^^3^3^2921230^^"
^DD(631,75,1,1,"%D",1,0)="This cross-reference represents regular 'AG' file index of HBHC Patient"
^DD(631,75,1,1,"%D",2,0)="(631) file, Form 3 (Evaluation/Admission) Mail Message Date (75) field."
^DD(631,75,1,1,"%D",3,0)="Form 3 Mail Message Date field updated by package only, no user input."
^DD(631,75,1,1,"DT")="2920504"
^DD(631,75,3)="Field updated only by package, no user input."
^DD(631,75,21,0)="^^3^3^2921202^^^"
^DD(631,75,21,1,0)="This field represents date of Form 3 (Evaluation/Admission) record"
^DD(631,75,21,2,0)="transmission via MailMan to Austin.  Field updated by package only, no "
^DD(631,75,21,3,0)="user input."
^DD(631,75,"DT")="2920504"
^DD(631,76,0)="FORM 5 FILED IN HBHC(634) DATE^D^^1;22^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,76,3)="Date Form 5 filed in Transmit file.  Field updated only by package, no user input."
^DD(631,76,21,0)="^^2^2^2921217^^^"
^DD(631,76,21,1,0)="This field represents date Form 5 (Discharge) record filed in Transmit"
^DD(631,76,21,2,0)="(634) file.  Field updated by package only, no user input."
^DD(631,76,"DT")="2920429"
^DD(631,77,0)="FORM 5 BATCH INITIAL MM MSG #^F^^1;23^K:$L(X)>15!($L(X)<3) X"
^DD(631,77,3)="Field updated only by package, no user input.  Number represents first MM msg # in transmission batch.  Record may be transmitted in different msg, if multiple msgs transmitted."
^DD(631,77,21,0)="^^4^4^2921202^^"
^DD(631,77,21,1,0)="This field represents MailMan message number of 'First' MailMan message"
^DD(631,77,21,2,0)="in Austin transmission batch.  Record 'may' be transmitted in different"
^DD(631,77,21,3,0)="message, if multiple messages are transmitted in one transmission batch."
^DD(631,77,21,4,0)="Field updated by package only, no user input."
^DD(631,77,"DT")="2920626"
^DD(631,78,0)="FORM 5 MAIL MESSAGE DATE^D^^1;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,78,1,0)="^.1"
^DD(631,78,1,1,0)="631^AH"
^DD(631,78,1,1,1)="S ^HBHC(631,""AH"",$E(X,1,30),DA)="""""
^DD(631,78,1,1,2)="K ^HBHC(631,""AH"",$E(X,1,30),DA)"
^DD(631,78,1,1,"%D",0)="^^3^3^2921230^^^"
^DD(631,78,1,1,"%D",1,0)="This cross-reference represents regular 'AH' file index of HBHC Patient"
^DD(631,78,1,1,"%D",2,0)="(631) file, Form 5 (Discharge) Mail Message Date (78) field.  Form 5 Mail"
^DD(631,78,1,1,"%D",3,0)="Message Date field updated by package only, no user input."
^DD(631,78,1,1,"DT")="2920504"
^DD(631,78,3)="Field updated only by package, no user input."
^DD(631,78,21,0)="^^2^2^2921202^^^"
^DD(631,78,21,1,0)="This field represents date of Form 5 (Discharge) record transmission via"
^DD(631,78,21,2,0)="MailMan to Austin.  Field updated by package only, no user input."
^DD(631,78,"DT")="2920504"
^DD(631,79,0)="FORM 3 TRANSMIT FLAG EDIT DATE^D^^1;25^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(631,79,3)="Field updated only by package, no user input.  Field is updated with current date when user requests Form 3 Transmit Status flag be reset (allowing editing of transmitted record)."
^DD(631,79,21,0)="^^3^3^2921215^^^^"
^DD(631,79,21,1,0)="This field represents date Form 3 (Evaluation/Admission) Transmit Status"
^DD(631,79,21,2,0)="flag was requested by user to be reset (allowing editing of previously"
^DD(631,79,21,3,0)="transmitted record).  Field updated by package only, no user input."
^DD(631,79,"DT")="2920429"
^DD(631,80,0)="FORM 3 TRANSMIT FLAG EDIT DUZ^P200'^VA(200,^1;26^Q"
^DD(631,80,3)="Field updated only by package, no user input.  Field is updated with user's DUZ when user requests Form 3 Transmit Status flag be reset (allowing editing of transmitted record)."
^DD(631,80,21,0)="^^3^3^2921215^^^^"
^DD(631,80,21,1,0)="This field represents DUZ of user requesting Form 3 (Evaluation/"
^DD(631,80,21,2,0)="Admission) Transmit Status flag be reset (allowing editing of previously"
^DD(631,80,21,3,0)="transmitted record).  Field updated by package only, no user input."
^DD(631,80,"DT")="2920429"
^DD(631,81,0)="FORM 5 TRANSMIT FLAG EDIT DATE^D^^1;27^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(631,81,3)="Field updated only by package, no user input.  Field is updated with current date when user requests Form 5 Transmit Status flag be reset (allowing editing of transmitted record)."
^DD(631,81,21,0)="^^3^3^2921215^^^^"
^DD(631,81,21,1,0)="This field represents date Form 5 (Discharge) Transmit Status flag was"
^DD(631,81,21,2,0)="requested by user to be reset (allowing editing of previously transmitted"
^DD(631,81,21,3,0)="record).  Field updated by package only, no user input."
^DD(631,81,"DT")="2920429"
^DD(631,82,0)="FORM 5 TRANSMIT FLAG EDIT DUZ^P200'^VA(200,^1;28^Q"
^DD(631,82,3)="Field updated only by package, no user input.  Field is updated with user's DUZ when user requests Form 5 Transmit Status flag be reset (allowing editing of transmitted record)."
^DD(631,82,21,0)="^^3^3^2921215^^"
^DD(631,82,21,1,0)="This field represents DUZ of user requesting Form 5 (Discharge) Transmit"
^DD(631,82,21,2,0)="Status flag be reset (allowing editing of previously transmitted record)."
^DD(631,82,21,3,0)="Field updated by package only, no user input."
^DD(631,82,"DT")="2920429"
^DD(631,83,0)="FORM 3 RE-TRANS BATCH MM MSG #^F^^2;1^K:$L(X)>15!($L(X)<3) X"
^DD(631,83,3)="Field updated only by package, no user input.  Number represents first MM msg # in re-transmission batch.  Record may be transmitted in different msg, if multiple msgs transmitted."
^DD(631,83,21,0)="^^4^4^2921202^^"
^DD(631,83,21,1,0)="This field represents MailMan message number of 'First' MailMan message"
^DD(631,83,21,2,0)="in re-transmission batch to Austin.  Record 'may' be transmitted in"
^DD(631,83,21,3,0)="different message, if multiple messages are transmitted in one"
^DD(631,83,21,4,0)="re-transmission batch.  Field updated by package only, no user input."
^DD(631,83,"DT")="2920626"
^DD(631,84,0)="FORM 3 RE-TRANSMIT DATE^D^^2;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,84,3)="Field updated only by package, no user input."
^DD(631,84,21,0)="^^3^3^2921202^^^"
^DD(631,84,21,1,0)="This field represents date of Form 3 (Evaluation/Admission) record"
^DD(631,84,21,2,0)="re-transmission via MailMan to Austin.  Field updated by package only,"
^DD(631,84,21,3,0)="no user input."
^DD(631,84,"DT")="2920504"
^DD(631,85,0)="FORM 5 RE-TRANS BATCH MM MSG #^F^^2;3^K:$L(X)>15!($L(X)<3) X"
^DD(631,85,3)="Field updated only by package, no user input.  Number represents first MM msg # in re-transmission batch.  Record may be transmitted in different msg, if multiple msgs transmitted."
^DD(631,85,21,0)="^^4^4^2921202^"
^DD(631,85,21,1,0)="This field represents MailMan message number of 'First' MailMan message"
^DD(631,85,21,2,0)="in re-transmission batch to Austin.  Record 'may' be transmitted in"
^DD(631,85,21,3,0)="different message, if multiple messages are transmitted in one"
^DD(631,85,21,4,0)="re-transmission batch.  Field updated by package only, no user input."
^DD(631,85,"DT")="2920626"
^DD(631,86,0)="FORM 5 RE-TRANSMIT DATE^D^^2;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631,86,3)="Field updated only by package, no user input."
^DD(631,86,21,0)="^^2^2^2921202^^"
^DD(631,86,21,1,0)="This field represents date of Form 5 (Discharge) record re-transmission"
^DD(631,86,21,2,0)="via MailMan to Austin.  Field updated by package only, no user input."
^DD(631,86,"DT")="2920504"
^DD(631,87,0)="REFERRED WHILE INPATIENT^S^1:Yes;2:No;^1;29^Q"
^DD(631,87,3)="Answer with 1 digit numeric code representing if patient was an inpatient at time of referral."
^DD(631,87,21,0)="^^2^2^2970402^^"
^DD(631,87,21,1,0)="This field represents 1 digit numeric code for whether patient was"
^DD(631,87,21,2,0)="inpatient at time of referral. "
^DD(631,87,"DT")="2970404"
^DD(631,"B","ADAPTIVE TASKS @ ADMISSION",32)=""
^DD(631,"B","ADAPTIVE TASKS @ DISCHARGE",60)=""
^DD(631,"B","ADMIT/REJECT ACTION",14)=""
^DD(631,"B","BATHING @ ADMISSION",23)=""
^DD(631,"B","BATHING @ DISCHARGE",51)=""
^DD(631,"B","BEHAVIOR PROBLEMS @ ADMISSION",33)=""
^DD(631,"B","BEHAVIOR PROBLEMS @ DISCHARGE",61)=""
^DD(631,"B","BIRTH YEAR",6)=""
^DD(631,"B","BLADDER CONTINENCE @ ADMISSION",30)=""
^DD(631,"B","BLADDER CONTINENCE @ DISCHARGE",58)=""
^DD(631,"B","BOWEL CONTINENCE @ ADMISSION",29)=""
^DD(631,"B","BOWEL CONTINENCE @ DISCHARGE",57)=""
^DD(631,"B","CAREGIVER LIMITATIONS @ ADM",36)=""
^DD(631,"B","CAREGIVER LIMITATIONS @ D/C",64)=""
^DD(631,"B","CASE MANAGER",67)=""
^DD(631,"B","CAUSE OF DEATH",69)=""
^DD(631,"B","COUNTY CODE",3)=""
^DD(631,"B","DATE",17)=""
^DD(631,"B","DATE DISCHARGE FORM COMPLETED",66)=""
^DD(631,"B","DATE EVAL/ADM FORM COMPLETED",38)=""
^DD(631,"B","DISCHARGE DATE",39)=""
^DD(631,"B","DISCHARGE STATUS",43)=""
^DD(631,"B","DISORIENTATION @ ADMISSION",34)=""
^DD(631,"B","DISORIENTATION @ DISCHARGE",62)=""
^DD(631,"B","DRESSING @ ADMISSION",24)=""
^DD(631,"B","DRESSING @ DISCHARGE",52)=""
^DD(631,"B","EATING @ ADMISSION",27)=""
^DD(631,"B","EATING @ DISCHARGE",55)=""
^DD(631,"B","ELIGIBILITY @ DISCHARGE",40)=""
^DD(631,"B","ELIGIBILITY @ EVALUATION",5)=""
^DD(631,"B","EVALUATION DATE",1)=""
^DD(631,"B","EXPRESSIVE COMMUNICATION @ ADM",21)=""
^DD(631,"B","EXPRESSIVE COMMUNICATION @ D/C",49)=""
^DD(631,"B","FORM 3 BATCH INITIAL MM MSG #",74)=""
^DD(631,"B","FORM 3 FILED IN HBHC(634) DATE",73)=""
^DD(631,"B","FORM 3 MAIL MESSAGE DATE",75)=""
^DD(631,"B","FORM 3 RE-TRANS BATCH MM MSG #",83)=""
^DD(631,"B","FORM 3 RE-TRANSMIT DATE",84)=""
^DD(631,"B","FORM 3 TRANSMIT FLAG EDIT DATE",79)=""
^DD(631,"B","FORM 3 TRANSMIT FLAG EDIT DUZ",80)=""
^DD(631,"B","FORM 3 TRANSMIT STATUS",71)=""
^DD(631,"B","FORM 5 BATCH INITIAL MM MSG #",77)=""
^DD(631,"B","FORM 5 FILED IN HBHC(634) DATE",76)=""
^DD(631,"B","FORM 5 MAIL MESSAGE DATE",78)=""
^DD(631,"B","FORM 5 RE-TRANS BATCH MM MSG #",85)=""
^DD(631,"B","FORM 5 RE-TRANSMIT DATE",86)=""
^DD(631,"B","FORM 5 TRANSMIT FLAG EDIT DATE",81)=""
^DD(631,"B","FORM 5 TRANSMIT FLAG EDIT DUZ",82)=""
^DD(631,"B","FORM 5 TRANSMIT STATUS",72)=""
^DD(631,"B","HEARING @ ADMISSION",20)=""
^DD(631,"B","HEARING @ DISCHARGE",48)=""
^DD(631,"B","LAST AGENCY PROVIDING CARE",12)=""
^DD(631,"B","LIVING ARRANGEMENTS @ D/C",42)=""
^DD(631,"B","LIVING ARRANGEMENTS @ EVAL",11)=""
^DD(631,"B","MARITAL STATUS @ DISCHARGE",41)=""
^DD(631,"B","MARITAL STATUS @ EVALUATION",10)=""
^DD(631,"B","MOBILITY @ ADMISSION",31)=""
^DD(631,"B","MOBILITY @ DISCHARGE",59)=""
^DD(631,"B","MOOD DISTURBANCE @ ADMISSION",35)=""
^DD(631,"B","MOOD DISTURBANCE @ DISCHARGE",63)=""
^DD(631,"B","NAME",.01)=""
^DD(631,"B","PERIOD OF SERVICE",7)=""
^DD(631,"B","PERSON COMPLETING D/C FORM",65)=""
^DD(631,"B","PERSON COMPLETING EVL/ADM FORM",37)=""
^DD(631,"B","PRIMARY DIAGNOSIS @ ADMISSION",18)=""
^DD(631,"B","PRIMARY DIAGNOSIS @ DISCHARGE",46)=""
^DD(631,"B","RACE",9)=""
^DD(631,"B","RACECOMP",9.1)=""
^DD(631,"B","RECEPTIVE COMMUNICATION @ ADM",22)=""
^DD(631,"B","RECEPTIVE COMMUNICATION @ D/C",50)=""
^DD(631,"B","REFERRED WHILE INPATIENT",87)=""
^DD(631,"B","REJECT/WITHDRAW DISPOSITION",16)=""
^DD(631,"B","REJECT/WITHDRAW REASON",15)=""
^DD(631,"B","SECONDARY DIAGNOSES @ ADM",68)=""
^DD(631,"B","SECONDARY DIAGNOSES @ D/C",70)=""
^DD(631,"B","SEX",8)=""
^DD(631,"B","STATE CODE",2)=""
^DD(631,"B","TOILET USAGE @ ADMISSION",25)=""
^DD(631,"B","TOILET USAGE @ DISCHARGE",53)=""
^DD(631,"B","TRANSFER DESTINATION",44)=""
^DD(631,"B","TRANSFERRING @ ADMISSION",26)=""
^DD(631,"B","TRANSFERRING @ DISCHARGE",54)=""
^DD(631,"B","TYPE OF DESTINATION AGENCY",45)=""
^DD(631,"B","TYPE OF LAST CARE AGENCY",13)=""
^DD(631,"B","VISION @ ADMISSION",19)=""
^DD(631,"B","VISION @ DISCHARGE",47)=""
^DD(631,"B","WALKING @ ADMISSION",28)=""
^DD(631,"B","WALKING @ DISCHARGE",56)=""
^DD(631,"B","ZIP CODE",4)=""
^DD(631,"GL",0,1,.01)=""
^DD(631,"GL",0,2,1)=""
^DD(631,"GL",0,3,2)=""
^DD(631,"GL",0,4,3)=""
^DD(631,"GL",0,5,4)=""
^DD(631,"GL",0,6,5)=""
^DD(631,"GL",0,8,7)=""
^DD(631,"GL",0,11,10)=""
^DD(631,"GL",0,12,11)=""
^DD(631,"GL",0,13,12)=""
^DD(631,"GL",0,14,13)=""
^DD(631,"GL",0,15,14)=""
^DD(631,"GL",0,16,15)=""
^DD(631,"GL",0,17,16)=""
^DD(631,"GL",0,18,17)=""
^DD(631,"GL",0,19,18)=""
^DD(631,"GL",0,20,19)=""
^DD(631,"GL",0,21,20)=""
^DD(631,"GL",0,22,21)=""
^DD(631,"GL",0,23,22)=""
^DD(631,"GL",0,24,23)=""
^DD(631,"GL",0,25,24)=""
^DD(631,"GL",0,26,25)=""
^DD(631,"GL",0,27,26)=""
^DD(631,"GL",0,28,27)=""
^DD(631,"GL",0,29,28)=""
^DD(631,"GL",0,30,29)=""
^DD(631,"GL",0,31,30)=""
^DD(631,"GL",0,32,31)=""
^DD(631,"GL",0,33,32)=""
^DD(631,"GL",0,34,33)=""
^DD(631,"GL",0,35,34)=""
^DD(631,"GL",0,36,35)=""
^DD(631,"GL",0,37,36)=""
^DD(631,"GL",0,38,37)=""
^DD(631,"GL",0,39,38)=""
^DD(631,"GL",0,40,39)=""
^DD(631,"GL",0,41,40)=""
^DD(631,"GL",0,42,41)=""
^DD(631,"GL",0,43,42)=""
^DD(631,"GL",0,44,43)=""
^DD(631,"GL",0,45,44)=""
^DD(631,"GL",0,46,45)=""
^DD(631,"GL",0,47,46)=""
^DD(631,"GL",0,48,47)=""
^DD(631,"GL",0,49,48)=""
^DD(631,"GL",0,50,49)=""
^DD(631,"GL",0,51,50)=""
^DD(631,"GL",0,52,51)=""
^DD(631,"GL",0,53,52)=""
^DD(631,"GL",0,54,53)=""
^DD(631,"GL",0,55,54)=""
^DD(631,"GL",1,1,55)=""
^DD(631,"GL",1,2,56)=""
^DD(631,"GL",1,3,57)=""
^DD(631,"GL",1,4,58)=""
^DD(631,"GL",1,5,59)=""
^DD(631,"GL",1,6,60)=""
^DD(631,"GL",1,7,61)=""
^DD(631,"GL",1,8,62)=""
^DD(631,"GL",1,9,63)=""
^DD(631,"GL",1,10,64)=""
^DD(631,"GL",1,11,65)=""
^DD(631,"GL",1,12,66)=""
^DD(631,"GL",1,13,67)=""
^DD(631,"GL",1,14,68)=""
^DD(631,"GL",1,15,69)=""
^DD(631,"GL",1,16,70)=""
^DD(631,"GL",1,17,71)=""
^DD(631,"GL",1,18,72)=""
^DD(631,"GL",1,19,73)=""
^DD(631,"GL",1,20,74)=""
^DD(631,"GL",1,21,75)=""
^DD(631,"GL",1,22,76)=""
^DD(631,"GL",1,23,77)=""
^DD(631,"GL",1,24,78)=""
^DD(631,"GL",1,25,79)=""
^DD(631,"GL",1,26,80)=""
^DD(631,"GL",1,27,81)=""
^DD(631,"GL",1,28,82)=""
^DD(631,"GL",1,29,87)=""
^DD(631,"GL",2,1,83)=""
^DD(631,"GL",2,2,84)=""
^DD(631,"GL",2,3,85)=""
^DD(631,"GL",2,4,86)=""
^DD(631,"IX",.01)=""
^DD(631,"IX",1)=""
^DD(631,"IX",2)=""
^DD(631,"IX",17)=""
^DD(631,"IX",39)=""
^DD(631,"IX",71)=""
^DD(631,"IX",72)=""
^DD(631,"IX",75)=""
^DD(631,"IX",78)=""
^DD(631,"RQ",.01)=""
^DD(631,"RQ",2)=""
^DD(631,"RQ",7)=""
^DD(631,"RQ",17)=""
^DD(631.1,0)="FIELD^^1^2"
^DD(631.1,0,"DDA")="N"
^DD(631.1,0,"DT")="2920701"
^DD(631.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(631.1,0,"IX","B",631.1,.01)=""
^DD(631.1,0,"NM","HBHC REJECT/WITHDRAW REASON")=""
^DD(631.1,0,"PT",631,15)=""
^DD(631.1,0,"VR")="1.0"
^DD(631.1,.01,0)="CODE^RFI^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(631.1,.01,1,0)="^.1"
^DD(631.1,.01,1,1,0)="631.1^B"
^DD(631.1,.01,1,1,1)="S ^HBHC(631.1,""B"",$E(X,1,30),DA)="""""
^DD(631.1,.01,1,1,2)="K ^HBHC(631.1,""B"",$E(X,1,30),DA)"
^DD(631.1,.01,1,1,"%D",0)="^^2^2^2921228^^^"
^DD(631.1,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Reject/ "
^DD(631.1,.01,1,1,"%D",2,0)="Withdraw Reason (631.1) file, Code (.01) field."
^DD(631.1,.01,3)="Answer must be 2 characters in length."
^DD(631.1,.01,21,0)="^^2^2^2921217^^^"
^DD(631.1,.01,21,1,0)="This field represents 2 digit numeric code for HBHC Reject/Withdraw"
^DD(631.1,.01,21,2,0)="Reason.  Valid entries are 01-08, 10, or 11."
^DD(631.1,.01,"DT")="2921224"
^DD(631.1,1,0)="REJECT/WITHDRAW REASON^RFI^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(631.1,1,3)="Answer must be 1-60 characters in length."
^DD(631.1,1,21,0)="^^2^2^2921203^"
^DD(631.1,1,21,1,0)="This field represents HBHC Reject/Withdraw Reason text.  Field allows"
^DD(631.1,1,21,2,0)="1-60 characters of free text."
^DD(631.1,1,"DT")="2921224"
^DD(631.1,"B","CODE",.01)=""
^DD(631.1,"B","REJECT/WITHDRAW REASON",1)=""
^DD(631.1,"GL",0,1,.01)=""
^DD(631.1,"GL",0,2,1)=""
^DD(631.1,"IX",.01)=""
^DD(631.1,"RQ",.01)=""
^DD(631.1,"RQ",1)=""
^DD(631.2,0)="FIELD^^.01^2"
^DD(631.2,0,"DDA")="N"
^DD(631.2,0,"DT")="2920227"
^DD(631.2,0,"IX","B",631.2,.01)=""
^DD(631.2,0,"NM","HBHC EXPRESSIVE COMMUNICATION")=""
^DD(631.2,0,"PT",631,21)=""
^DD(631.2,0,"PT",631,49)=""
^DD(631.2,0,"VR")="1.0"
^DD(631.2,.001,0)="CODE^NJ1,0I^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(631.2,.001,3)="Answer with a Number between 1 and 9, 0 Decimal Digits."
^DD(631.2,.001,21,0)="^^2^2^2921217^^^"
^DD(631.2,.001,21,1,0)="This field represents 1 digit numeric code for HBHC Expressive"
^DD(631.2,.001,21,2,0)="Communication.  Valid entries are 1-5 or 9."
^DD(631.2,.001,"DT")="2921224"
^DD(631.2,.01,0)="TEXT^RFI^^0;1^K:$L(X)>80!($L(X)<1)!'(X'?1P.E) X"
^DD(631.2,.01,1,0)="^.1"
^DD(631.2,.01,1,1,0)="631.2^B"
^DD(631.2,.01,1,1,1)="S ^HBHC(631.2,""B"",$E(X,1,30),DA)="""""
^DD(631.2,.01,1,1,2)="K ^HBHC(631.2,""B"",$E(X,1,30),DA)"
^DD(631.2,.01,1,1,"%D",0)="^^2^2^2921228^^"
^DD(631.2,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Expressive"
^DD(631.2,.01,1,1,"%D",2,0)="Communication (631.2) file, Text (.01) field."
^DD(631.2,.01,3)="Answer must be 1-80 characters in length."
^DD(631.2,.01,21,0)="^^2^2^2921203^^"
^DD(631.2,.01,21,1,0)="This field represents HBHC Expressive Communication text.  Field allows"
^DD(631.2,.01,21,2,0)="1-80 characters of free text."
^DD(631.2,.01,"DT")="2921224"
^DD(631.2,"B","CODE",.001)=""
^DD(631.2,"B","TEXT",.01)=""
^DD(631.2,"GL",0,1,.01)=""
^DD(631.2,"IX",.01)=""
^DD(631.2,"RQ",.01)=""
^DD(631.3,0)="FIELD^^.01^2"
^DD(631.3,0,"DDA")="N"
^DD(631.3,0,"DT")="2920227"
^DD(631.3,0,"IX","B",631.3,.01)=""
^DD(631.3,0,"NM","HBHC RECEPTIVE COMMUNICATION")=""
^DD(631.3,0,"PT",631,22)=""
^DD(631.3,0,"PT",631,50)=""
^DD(631.3,0,"VR")="1.0"
^DD(631.3,.001,0)="CODE^NJ1,0I^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(631.3,.001,3)="Answer with a Number between 1 and 9, 0 Decimal Digits."
^DD(631.3,.001,21,0)="^^2^2^2921217^^^"
^DD(631.3,.001,21,1,0)="This field represents 1 digit numeric code for HBHC Receptive"
^DD(631.3,.001,21,2,0)="Communication.  Valid entries are 1-5 or 9."
^DD(631.3,.001,"DT")="2921224"
^DD(631.3,.01,0)="TEXT^RFI^^0;1^K:$L(X)>90!($L(X)<1)!'(X'?1P.E) X"
^DD(631.3,.01,1,0)="^.1"
^DD(631.3,.01,1,1,0)="631.3^B"
^DD(631.3,.01,1,1,1)="S ^HBHC(631.3,""B"",$E(X,1,30),DA)="""""
^DD(631.3,.01,1,1,2)="K ^HBHC(631.3,""B"",$E(X,1,30),DA)"
^DD(631.3,.01,1,1,"%D",0)="^^2^2^2921228^^"
^DD(631.3,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Receptive"
^DD(631.3,.01,1,1,"%D",2,0)="Communication (631.3) file, Text (.01) field."
^DD(631.3,.01,3)="Answer must be 1-90 characters in length."
^DD(631.3,.01,21,0)="^^2^2^2921203^^"
^DD(631.3,.01,21,1,0)="This field represents HBHC Receptive Communication text.  Field allows"
^DD(631.3,.01,21,2,0)="for 1-90 characters of free text."
^DD(631.3,.01,"DT")="2921224"
^DD(631.3,"B","CODE",.001)=""
^DD(631.3,"B","TEXT",.01)=""
^DD(631.3,"GL",0,1,.01)=""
^DD(631.3,"IX",.01)=""
^DD(631.3,"RQ",.01)=""
^DD(631.4,0)="FIELD^^6^7"
^DD(631.4,0,"DDA")="N"
^DD(631.4,0,"DT")="2930520"
^DD(631.4,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(631.4,0,"ID",5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HBHC(633,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(633,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(631.4,0,"IX","AC",631.4,6)=""
^DD(631.4,0,"IX","B",631.4,.01)=""
^DD(631.4,0,"IX","C",631.4,1)=""
^DD(631.4,0,"NM","HBHC PROVIDER")=""
^DD(631.4,0,"PT",631,37)=""
^DD(631.4,0,"PT",631,65)=""
^DD(631.4,0,"PT",631,67)=""
^DD(631.4,0,"PT",632,3)=""
^DD(631.4,0,"VR")="1.0"
^DD(631.4,.01,0)="NUMBER^RNJ4,0X^^0;1^K:(X'?3.4N)!($E(X)>2)!(($L(X)=3)&(X>299))!(($L(X)=4)&((X<1010)!(X>2999))) X"
^DD(631.4,.01,1,0)="^.1"
^DD(631.4,.01,1,1,0)="631.4^B"
^DD(631.4,.01,1,1,1)="S ^HBHC(631.4,""B"",$E(X,1,30),DA)="""""
^DD(631.4,.01,1,1,2)="K ^HBHC(631.4,""B"",$E(X,1,30),DA)"
^DD(631.4,.01,1,1,"%D",0)="^^2^2^2970220^^^"
^DD(631.4,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Provider"
^DD(631.4,.01,1,1,"%D",2,0)="(631.4) file, Number (.01) field."
^DD(631.4,.01,3)="Answer with a Number between 100 and 299, or 1010 and 2999, 0 Decimal Digits.  This number represents the unique HBPC Provider number assigned to each provider."
^DD(631.4,.01,21,0)="^^22^22^2990304^^^^"
^DD(631.4,.01,21,1,0)="This field represents unique 4 numeric digit HBPC provider number assigned to"
^DD(631.4,.01,21,2,0)="each person who has any FTEE charged to HBPC.  4 digit number should be"
^DD(631.4,.01,21,3,0)="structured as follows: "
^DD(631.4,.01,21,4,0)="  - first digit contains 1 for nonstudents, 2 for students"
^DD(631.4,.01,21,5,0)="  - second digit contains 0 thru 8 indicating discipline as follows:"
^DD(631.4,.01,21,6,0)="      0  RN"
^DD(631.4,.01,21,7,0)="      1  LPN, LVN, Home Health Aide or Tech, Nursing Assistant"
^DD(631.4,.01,21,8,0)="      2  Social Worker"
^DD(631.4,.01,21,9,0)="      3  OT, PT, CT, Rehabilitation Therapist   "
^DD(631.4,.01,21,10,0)="      4  Dietitian, Nutritionist"
^DD(631.4,.01,21,11,0)="      5  Physician   "
^DD(631.4,.01,21,12,0)="      6  Nurse Practitioner"
^DD(631.4,.01,21,13,0)="      7  Clinical Pharmacist   "
^DD(631.4,.01,21,14,0)="      8  Other"
^DD(631.4,.01,21,15,0)="  - third & fourth digits contain 0 thru 99 indicating individual provider as follows: "
^DD(631.4,.01,21,16,0)="      0  first staff member in discipline"
^DD(631.4,.01,21,17,0)="      1  second staff member in discipline"
^DD(631.4,.01,21,18,0)="      2  third staff member in discipline, etc."
^DD(631.4,.01,21,19,0)="All students in a particular discipline should share the same HBPC provider"
^DD(631.4,.01,21,20,0)="number (e.g.  all RN students would be 200).  New provider numbers are issued"
^DD(631.4,.01,21,21,0)="only when FTEE is increased.  Provider number '190' can be used as a"
^DD(631.4,.01,21,22,0)="'catch-all' category if the need arises. "
^DD(631.4,.01,"DT")="2990712"
^DD(631.4,1,0)="PROVIDER NAME^RP200'^VA(200,^0;2^Q"
^DD(631.4,1,1,0)="^.1"
^DD(631.4,1,1,1,0)="631.4^C"
^DD(631.4,1,1,1,1)="S ^HBHC(631.4,""C"",$E(X,1,30),DA)="""""
^DD(631.4,1,1,1,2)="K ^HBHC(631.4,""C"",$E(X,1,30),DA)"
^DD(631.4,1,1,1,"%D",0)="^^3^3^2930107^^^"
^DD(631.4,1,1,1,"%D",1,0)="This cross-reference represents regular 'C' file index of HBHC Provider"
^DD(631.4,1,1,1,"%D",2,0)="(631.4) file, Name (1) field, which references New Person (200) file"
^DD(631.4,1,1,1,"%D",3,0)="entries."
^DD(631.4,1,1,1,"DT")="2921218"
^DD(631.4,1,3)="Answer with provider name that exists in New Person (200) file."
^DD(631.4,1,21,0)="^^3^3^2930922^^^^"
^DD(631.4,1,21,1,0)="This field represents HBHC provider's name in New Person (200) file."
^DD(631.4,1,21,2,0)="Person must exist in VA(200) for HBHC selection, since LAYGO is not"
^DD(631.4,1,21,3,0)="allowed."
^DD(631.4,1,"DT")="2921218"
^DD(631.4,2,0)="DEGREE^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(631.4,2,3)="Answer with degree held by provider.  Answer must be 1-15 characters in length."
^DD(631.4,2,21,0)="^^2^2^2921203^"
^DD(631.4,2,21,1,0)="This field represents degree held by HBHC provider.  Field allows 1-15"
^DD(631.4,2,21,2,0)="characters of free text."
^DD(631.4,2,"DT")="2910531"
^DD(631.4,3,0)="GRADE/STEP^F^^0;4^K:$L(X)>6!($L(X)<3)!'(X?1.3E1""/""1.2N) X"
^DD(631.4,3,3)="Answer with grade/step held by provider.  Answer must be 3-6 characters in length and be in 99/99 or xxx/99 format.  (e.g.  11/4 for grade 11, step 4, or SR/11 for Senior grade, step 11)"
^DD(631.4,3,21,0)="^^4^4^2930302^^"
^DD(631.4,3,21,1,0)="This field represents grade/step of HBHC provider.  Field must be in"
^DD(631.4,3,21,2,0)="99/99 or xxx/99 format (e.g.  11/4 for grade 11, step 4 or SR/11 for"
^DD(631.4,3,21,3,0)="Senior grade, step 11).  The format allows for 1-2 numerics or 1-3"
^DD(631.4,3,21,4,0)="alphabetic characters, 1 slash ('/'), and 1-2 numerics."
^DD(631.4,3,"DT")="2930302"
^DD(631.4,4,0)="FTEE ON HBHC^NJ4,2^^0;5^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(631.4,4,3)="Answer with a Number between 0 and 1, 2 Decimal Digits."
^DD(631.4,4,21,0)="^^2^2^2921211^^^^"
^DD(631.4,4,21,1,0)="This field represents FTEE charged to HBHC service, and must be between"
^DD(631.4,4,21,2,0)="0 and 1, with 2 decimal digits allowed.  (e.g.  '.5'  or  '1.0')"
^DD(631.4,4,"DT")="2921211"
^DD(631.4,5,0)="HBHC TEAM^RP633'^HBHC(633,^0;6^Q"
^DD(631.4,5,3)="Answer with team name that exists in HBHC Team file.  Field is required."
^DD(631.4,5,21,0)="^^2^2^2970523^^^"
^DD(631.4,5,21,1,0)="This field represents HBHC team name, referencing HBHC Team (633) file"
^DD(631.4,5,21,2,0)="entries.  Team must exist in HBHC Team file, since LAYGO is not allowed."
^DD(631.4,5,"DT")="2970523"
^DD(631.4,6,0)="INACTIVE PROVIDER NUMBER^S^1:Inactive Provider Number;^0;7^Q"
^DD(631.4,6,1,0)="^.1"
^DD(631.4,6,1,1,0)="631.4^AC"
^DD(631.4,6,1,1,1)="S ^HBHC(631.4,""AC"",$E(X,1,30),DA)="""""
^DD(631.4,6,1,1,2)="K ^HBHC(631.4,""AC"",$E(X,1,30),DA)"
^DD(631.4,6,1,1,"%D",0)="^^2^2^2970408^^"
^DD(631.4,6,1,1,"%D",1,0)="This cross-reference represents 'AC' file index of Inactive Provider Number "
^DD(631.4,6,1,1,"%D",2,0)="(6) field, in HBHC Provider (631.4) file."
^DD(631.4,6,1,1,"DT")="2970408"
^DD(631.4,6,3)="Answer with 1 digit numeric code representing whether HBHC Provider Number is Inactive.  As of 10/1/96, each provider is allowed to have only 1 Active Provider Number.  All others must be Inactive."
^DD(631.4,6,21,0)="^^4^4^2970408^^"
^DD(631.4,6,21,1,0)="This field represents whether HBHC Provider Number is active.  As of"
^DD(631.4,6,21,2,0)="10/1/96, each HBHC Provider may have only 1 unique HBHC Provider Number"
^DD(631.4,6,21,3,0)="active at any point in time.  All other provider numbers must be Inactive"
^DD(631.4,6,21,4,0)="Provider Numbers. "
^DD(631.4,6,"DT")="2970408"
^DD(631.4,"B","DEGREE",2)=""
^DD(631.4,"B","FTEE ON HBHC",4)=""
^DD(631.4,"B","GRADE/STEP",3)=""
^DD(631.4,"B","HBHC TEAM",5)=""
^DD(631.4,"B","INACTIVE PROVIDER NUMBER",6)=""
^DD(631.4,"B","NUMBER",.01)=""
^DD(631.4,"B","PROVIDER NAME",1)=""
^DD(631.4,"GL",0,1,.01)=""
^DD(631.4,"GL",0,2,1)=""
^DD(631.4,"GL",0,3,2)=""
^DD(631.4,"GL",0,4,3)=""
^DD(631.4,"GL",0,5,4)=""
^DD(631.4,"GL",0,6,5)=""
^DD(631.4,"GL",0,7,6)=""
^DD(631.4,"IX",.01)=""
^DD(631.4,"IX",1)=""
^DD(631.4,"IX",6)=""
^DD(631.4,"RQ",.01)=""
^DD(631.4,"RQ",1)=""
^DD(631.4,"RQ",5)=""
^DD(631.5,0)="FIELD^^.01^2"
^DD(631.5,0,"DDA")="N"
^DD(631.5,0,"DT")="2920427"
^DD(631.5,0,"IX","B",631.5,.01)=""
^DD(631.5,0,"NM","HBHC TYPE OF VISIT")=""
^DD(631.5,0,"PT",632,4)=""
^DD(631.5,0,"VR")="1.0"
^DD(631.5,.001,0)="CODE^NJ1,0I^^ ^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(631.5,.001,3)="Answer with a Number between 1 and 9, 0 Decimal Digits."
^DD(631.5,.001,21,0)="^^2^2^2921203^"
^DD(631.5,.001,21,1,0)="This field represents 1 digit numeric code for HBHC Type of Visit."
^DD(631.5,.001,21,2,0)="Valid entries are 1-7."
^DD(631.5,.001,"DT")="2921224"
^DD(631.5,.01,0)="TEXT^RFI^^0;1^K:$L(X)>90!($L(X)<1)!'(X'?1P.E) X"
^DD(631.5,.01,1,0)="^.1"
^DD(631.5,.01,1,1,0)="631.5^B"
^DD(631.5,.01,1,1,1)="S ^HBHC(631.5,""B"",$E(X,1,30),DA)="""""
^DD(631.5,.01,1,1,2)="K ^HBHC(631.5,""B"",$E(X,1,30),DA)"
^DD(631.5,.01,1,1,"%D",0)="^^2^2^2921228^^"
^DD(631.5,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Type"
^DD(631.5,.01,1,1,"%D",2,0)="of Visit (631.5) file, Text (.01) field."
^DD(631.5,.01,3)="Answer must be 1-90 characters in length."
^DD(631.5,.01,21,0)="^^2^2^2921203^"
^DD(631.5,.01,21,1,0)="This field represents HBHC Type of Visit text.  Field allows 1-90"
^DD(631.5,.01,21,2,0)="characters of free text."
^DD(631.5,.01,"DT")="2940926"
^DD(631.5,"B","CODE",.001)=""
^DD(631.5,"B","TEXT",.01)=""
^DD(631.5,"GL",0,1,.01)=""
^DD(631.5,"IX",.01)=""
^DD(631.5,"RQ",.01)=""
^DD(631.6,0)="FIELD^^.01^1"
^DD(631.6,0,"DDA")="N"
^DD(631.6,0,"DT")="2910819"
^DD(631.6,0,"IX","B",631.6,.01)=""
^DD(631.6,0,"NM","HBHC CLINIC")=""
^DD(631.6,0,"VR")="1.0"
^DD(631.6,.01,0)="NAME^RP44'X^SC(^0;1^Q"
^DD(631.6,.01,1,0)="^.1"
^DD(631.6,.01,1,1,0)="631.6^B"
^DD(631.6,.01,1,1,1)="S ^HBHC(631.6,""B"",$E(X,1,30),DA)="""""
^DD(631.6,.01,1,1,2)="K ^HBHC(631.6,""B"",$E(X,1,30),DA)"
^DD(631.6,.01,1,1,"%D",0)="^^3^3^2921228^^"
^DD(631.6,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Clinic"
^DD(631.6,.01,1,1,"%D",2,0)="(631.6) file, Name (.01) field, which references Hospital Location (44)"
^DD(631.6,.01,1,1,"%D",3,0)="file entries."
^DD(631.6,.01,3)="Answer with clinic name that exists in Hospital Location (44) file.  "
^DD(631.6,.01,21,0)="^^2^2^2931005^^^^"
^DD(631.6,.01,21,1,0)="This field represents HBHC clinic in Hospital Location (44) file."
^DD(631.6,.01,21,2,0)="Clinic must exist in Hospital Location file, since LAYGO is not allowed."
^DD(631.6,.01,"DT")="2931005"
^DD(631.6,"B","NAME",.01)=""
^DD(631.6,"GL",0,1,.01)=""
^DD(631.6,"IX",.01)=""
^DD(631.6,"RQ",.01)=""
^DD(631.7,0)="FIELD^^1^2"
^DD(631.7,0,"DT")="2921015"
^DD(631.7,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(631.7,0,"IX","B",631.7,.01)=""
^DD(631.7,0,"NM","HBHC PERIOD OF SERVICE")=""
^DD(631.7,0,"PT",631,7)=""
^DD(631.7,0,"VR")="1.0"
^DD(631.7,.01,0)="CODE^RFI^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(631.7,.01,1,0)="^.1"
^DD(631.7,.01,1,1,0)="631.7^B"
^DD(631.7,.01,1,1,1)="S ^HBHC(631.7,""B"",$E(X,1,30),DA)="""""
^DD(631.7,.01,1,1,2)="K ^HBHC(631.7,""B"",$E(X,1,30),DA)"
^DD(631.7,.01,1,1,"%D",0)="^^2^2^2921229^^"
^DD(631.7,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Period"
^DD(631.7,.01,1,1,"%D",2,0)="of Service (631.7) file, Code (.01) field."
^DD(631.7,.01,3)="Answer must be 2 characters in length.  Valid entries are '00' thru '05', '07' thru '10', and 'X '.  (Note 'X' is followed by space character.)  All one digit numeric entries must have leading zero."
^DD(631.7,.01,21,0)="^^4^4^2921203^"
^DD(631.7,.01,21,1,0)="This field represents 2 character code for HBHC Period of Service.  Valid"
^DD(631.7,.01,21,2,0)="entries are '00' thru '05', '07' thru '10', and 'X '.  (Note 'X' is"
^DD(631.7,.01,21,3,0)="followed by space character.)  All one digit numeric entries must have"
^DD(631.7,.01,21,4,0)="leading zero."
^DD(631.7,.01,"DT")="2921224"
^DD(631.7,1,0)="PERIOD OF SERVICE TEXT^FI^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(631.7,1,3)="Answer must be 3-30 characters in length."
^DD(631.7,1,21,0)="^^2^2^2921203^"
^DD(631.7,1,21,1,0)="This field represents HBHC Period of Service text.  Field allows for"
^DD(631.7,1,21,2,0)="3-30 characters of free text."
^DD(631.7,1,"DT")="2921224"
^DD(631.7,"B","CODE",.01)=""
^DD(631.7,"B","PERIOD OF SERVICE TEXT",1)=""
^DD(631.7,"GL",0,1,.01)=""
^DD(631.7,"GL",0,2,1)=""
^DD(631.7,"IX",.01)=""
^DD(631.7,"RQ",.01)=""
^DD(631.8,0)="FIELD^^.01^1"
^DD(631.8,0,"DDA")="N"
^DD(631.8,0,"DT")="2930722"
^DD(631.8,0,"IX","B",631.8,.01)=""
^DD(631.8,0,"NM","HBHC VALID STATE CODE")=""
^DD(631.8,0,"PT",631,2)=""
^DD(631.8,0,"VR")="1.0"
^DD(631.8,.01,0)="NUMBER^RP5'^DIC(5,^0;1^Q"
^DD(631.8,.01,1,0)="^.1"
^DD(631.8,.01,1,1,0)="631.8^B"
^DD(631.8,.01,1,1,1)="S ^HBHC(631.8,""B"",$E(X,1,30),DA)="""""
^DD(631.8,.01,1,1,2)="K ^HBHC(631.8,""B"",$E(X,1,30),DA)"
^DD(631.8,.01,3)="Answer with 2 digit numeric state code.  This state code must be valid for your HBHC program area.  Some programs may have more than one valid state code."
^DD(631.8,.01,21,0)="^^3^3^2930723^^^^"
^DD(631.8,.01,21,1,0)="This field represents 2 digit numeric state code which is valid for"
^DD(631.8,.01,21,2,0)="site's HBHC program area.  Some sites may have more than one valid"
^DD(631.8,.01,21,3,0)="state code.  All State Codes must exist in State file (#5)."
^DD(631.8,.01,"DT")="2930723"
^DD(631.8,"B","NUMBER",.01)=""
^DD(631.8,"GL",0,1,.01)=""
^DD(631.8,"IX",.01)=""
^DD(631.8,"RQ",.01)=""
^DD(631.9,0)="FIELD^^7^8"
^DD(631.9,0,"DDA")="N"
^DD(631.9,0,"DT")="2940505"
^DD(631.9,0,"IX","B",631.9,.01)=""
^DD(631.9,0,"NM","HBHC SYSTEM PARAMETERS")=""
^DD(631.9,0,"VR")="1.0"
^DD(631.9,.01,0)="PACKAGE NAME^RFX^^0;1^K:$L(X)>24!($L(X)<24) X S:$D(X) DINUM=1"
^DD(631.9,.01,1,0)="^.1"
^DD(631.9,.01,1,1,0)="631.9^B"
^DD(631.9,.01,1,1,1)="S ^HBHC(631.9,""B"",$E(X,1,30),DA)="""""
^DD(631.9,.01,1,1,2)="K ^HBHC(631.9,""B"",$E(X,1,30),DA)"
^DD(631.9,.01,1,1,"%D",0)="^^2^2^2930105^^^"
^DD(631.9,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC System"
^DD(631.9,.01,1,1,"%D",2,0)="Parameters (631.9) file, Package Name (.01) field."
^DD(631.9,.01,3)="Answer must be 24 characters in length."
^DD(631.9,.01,21,0)="^^1^1^2930105^^^^"
^DD(631.9,.01,21,1,0)="This field contains 'Hospital Based Home Care' and is uneditable."
^DD(631.9,.01,"DT")="2930105"
^DD(631.9,1,0)="LAST MAIL MESSAGE DATE^DI^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(631.9,1,3)="Field updated only by package, no user input."
^DD(631.9,1,21,0)="^^3^3^2921203^^"
^DD(631.9,1,21,1,0)="This field represents date of last electronic record transmission via"
^DD(631.9,1,21,2,0)="MailMan to Austin.  Field updated by package only, no user input.  Field"
^DD(631.9,1,21,3,0)="is Uneditable."
^DD(631.9,1,"DT")="2921230"
^DD(631.9,2,0)="PACKAGE STARTUP DATE^DI^^0;3^S %DT=""EX"" D ^%DT S X=Y K:2920601>X X"
^DD(631.9,2,3)="Answer is official startup date for visit records to be electronically transmitted to Austin.  Date must be 6/1/1992 or later."
^DD(631.9,2,21,0)="^^3^3^2980303^^^^"
^DD(631.9,2,21,1,0)="This field represents official startup date for visit records to be"
^DD(631.9,2,21,2,0)="electronically transmitted to Austin.  Date must be"
^DD(631.9,2,21,3,0)="6/1/1992 or later.  Field is Uneditable."
^DD(631.9,2,"DT")="2921230"
^DD(631.9,3,0)="NUMBER OF VISIT DAYS TO SCAN^RNJ3,0^^0;4^K:+X'=X!(X>365)!(X<7)!(X?.E1"".""1N.N) X"
^DD(631.9,3,3)="Answer with a Number between 7 and 365, 0 Decimal Digits.  Enter number of days to include for HBHC Visit file additions or visit lookup display.  (e.g.  30 includes/displays visits for last 30 days.)"
^DD(631.9,3,21,0)="^^7^7^2930105^"
^DD(631.9,3,21,1,0)="This field represents number of visit days HBHC package will scan when"
^DD(631.9,3,21,2,0)="visit (appointment) data in Patient (2) file is processed for automatically"
^DD(631.9,3,21,3,0)="updating HBHC Visit (632) file.  Valid entries are 7 thru 365.  (e.g."
^DD(631.9,3,21,4,0)="If 7 entered, visits for last 7 days would be written to HBHC Visit file.)"
^DD(631.9,3,21,5,0)="This field also controls date range of visits that are displayed for"
^DD(631.9,3,21,6,0)="selection during HBHC Visit file lookup.  (e.g.  If 7 entered, only visits"
^DD(631.9,3,21,7,0)="for last 7 days would be displayed for selection from HBHC Visit file.)"
^DD(631.9,3,"DT")="2930105"
^DD(631.9,4,0)="HOSPITAL NUMBER^RP4'^DIC(4,^0;5^Q"
^DD(631.9,4,3)="Answer with 3-7 digit hospital number.  Hospital number must exist in Institution file."
^DD(631.9,4,21,0)="^^1^1^2970712^^"
^DD(631.9,4,21,1,0)="This field represents 3-7 digit hospital number in Institution file."
^DD(631.9,4,"DT")="2930721"
^DD(631.9,5,0)="TRANSMISSION IN PROGRESS FLAG^S^1:Transmission in Progress;^0;6^Q"
^DD(631.9,5,3)="Field updated by package only, no user input."
^DD(631.9,5,21,0)="^^2^2^2940505^^"
^DD(631.9,5,21,1,0)="This field represents a flag used to determine if transmission is currently"
^DD(631.9,5,21,2,0)="in progress."
^DD(631.9,5,"DT")="2940505"
^DD(631.9,6,0)="TRANSMIT REPORT PRINTER^P3.5'^%ZIS(1,^0;7^Q"
^DD(631.9,6,3)="Answer with device name where Transmit Report is to be printed."
^DD(631.9,6,"DT")="2950726"
^DD(631.9,7,0)="FILE UPDATE IN PROGRESS FLAG^S^1:File Update in Progress;^0;8^Q"
^DD(631.9,7,3)="Field updated by package only, no user input."
^DD(631.9,7,21,0)="^^2^2^2980318^^"
^DD(631.9,7,21,1,0)="This field represents a flag used to determine if file updating is currently in"
^DD(631.9,7,21,2,0)="progress."
^DD(631.9,7,"DT")="2980318"
^DD(631.9,"B","FILE UPDATE IN PROGRESS FLAG",7)=""
^DD(631.9,"B","HOSPITAL NUMBER",4)=""
^DD(631.9,"B","LAST MAIL MESSAGE DATE",1)=""
^DD(631.9,"B","NUMBER OF VISIT DAYS TO SCAN",3)=""
^DD(631.9,"B","PACKAGE NAME",.01)=""
^DD(631.9,"B","PACKAGE STARTUP DATE",2)=""
^DD(631.9,"B","TRANSMISSION IN PROGRESS FLAG",5)=""
^DD(631.9,"B","TRANSMIT REPORT PRINTER",6)=""
^DD(631.9,"GL",0,1,.01)=""
^DD(631.9,"GL",0,2,1)=""
^DD(631.9,"GL",0,3,2)=""
^DD(631.9,"GL",0,4,3)=""
^DD(631.9,"GL",0,5,4)=""
^DD(631.9,"GL",0,6,5)=""
^DD(631.9,"GL",0,7,6)=""
^DD(631.9,"GL",0,8,7)=""
^DD(631.9,"IX",.01)=""
^DD(631.9,"RQ",.01)=""
^DD(631.9,"RQ",3)=""
^DD(631.9,"RQ",4)=""
^DD(632,0)="FIELD^^33^19"
^DD(632,0,"DDA")="N"
^DD(632,0,"DT")="3000725"
^DD(632,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(632,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SC(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(44,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(632,0,"IX","AC",632,7)=""
^DD(632,0,"IX","AD",632,10)=""
^DD(632,0,"IX","AE",632,31)=""
^DD(632,0,"IX","B",632,.01)=""
^DD(632,0,"IX","C",632,1)=""
^DD(632,0,"NM","HBHC VISIT")=""
^DD(632,0,"PT",634.2,1)=""
^DD(632,0,"VR")="1.0"
^DD(632,0,"VRPK")="HBH"
^DD(632,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(632,.01,1,0)="^.1"
^DD(632,.01,1,1,0)="632^B"
^DD(632,.01,1,1,1)="S ^HBHC(632,""B"",$E(X,1,30),DA)="""""
^DD(632,.01,1,1,2)="K ^HBHC(632,""B"",$E(X,1,30),DA)"
^DD(632,.01,1,1,"%D",0)="^^2^2^2921229^^"
^DD(632,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Visit (632)"
^DD(632,.01,1,1,"%D",2,0)="file, Patient Name (.01) field, which references Patient (2) file entries."
^DD(632,.01,3)="Answer using last name, first name, middle name format, or enter first letter of last name and last four digits of social security number  (e.g. A1234)."
^DD(632,.01,21,0)="^^2^2^2921215^^^"
^DD(632,.01,21,1,0)="This field represents patient's name in Patient (2) file.  Patient must"
^DD(632,.01,21,2,0)="exist in DPT for HBHC selection, since LAYGO is not allowed."
^DD(632,.01,"DT")="2921216"
^DD(632,1,0)="DATE^D^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:2770101>X X"
^DD(632,1,1,0)="^.1"
^DD(632,1,1,1,0)="632^C"
^DD(632,1,1,1,1)="S ^HBHC(632,""C"",$E(X,1,30),DA)="""""
^DD(632,1,1,1,2)="K ^HBHC(632,""C"",$E(X,1,30),DA)"
^DD(632,1,1,1,"%D",0)="^^2^2^2921230^^^"
^DD(632,1,1,1,"%D",1,0)="This cross-reference represents regular 'C' file index of HBHC Visit (632)"
^DD(632,1,1,1,"%D",2,0)="file, Date (1) field.  Date field updated by package only, no user input."
^DD(632,1,1,1,"DT")="2920413"
^DD(632,1,3)="Answer is date of HBHC visit.  Answer must be 1/1/1977 or later.  Field updated by package only, no user input."
^DD(632,1,21,0)="^^3^3^2921218^^^"
^DD(632,1,21,1,0)="This field represents date of HBHC visit.  Date range allowed is"
^DD(632,1,21,2,0)="1/1/1977 or later.  Field updated by package only,"
^DD(632,1,21,3,0)="no user input."
^DD(632,1,"DT")="2921218"
^DD(632,2,0)="CLINIC NUMBER^P44'^SC(^0;3^Q"
^DD(632,2,3)="Answer is clinic that exists in Hospital Location file.  Field updated only by package, no user input."
^DD(632,2,21,0)="^^3^3^2921211^^"
^DD(632,2,21,1,0)="This field represents HBHC Clinic number in Hospital Location (44) file."
^DD(632,2,21,2,0)="Clinic must exist in Hospital Location file, since LAYGO is not allowed."
^DD(632,2,21,3,0)="Field updated by package only, no user input."
^DD(632,2,"DT")="2910820"
^DD(632,3,0)="PROVIDER^P631.4'^HBHC(631.4,^0;4^Q"
^DD(632,3,3)="Answer with provider name or provider number that exists in HBHC Provider file."
^DD(632,3,21,0)="^^3^3^2921203^^"
^DD(632,3,21,1,0)="This field represents HBHC provider number, referencing HBHC Provider"
^DD(632,3,21,2,0)="(631.4) file entries.  Provider must exist in HBHC Provider file, since"
^DD(632,3,21,3,0)="LAYGO is not allowed."
^DD(632,3,"DT")="2910820"
^DD(632,4,0)="TYPE OF VISIT^P631.5'^HBHC(631.5,^0;5^Q"
^DD(632,4,3)="Answer with 1 digit numeric code representing type of visit."
^DD(632,4,21,0)="^^2^2^2921211^"
^DD(632,4,21,1,0)="This field represents 1 digit numeric code for HBHC Type of Visit,"
^DD(632,4,21,2,0)="referencing HBHC Type of Visit (631.5) file entries."
^DD(632,4,"DT")="2920427"
^DD(632,5,0)="COMMENTS^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(632,5,3)="Answer must be 1-30 characters in length."
^DD(632,5,21,0)="^^2^2^2921216^^^"
^DD(632,5,21,1,0)="This field represents comments pertaining to this visit.  Field allows"
^DD(632,5,21,2,0)="1-30 characters of free text. "
^DD(632,5,"DT")="2910820"
^DD(632,6,0)="CANCELLED APPOINTMENT^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(632,6,1,0)="^.1^^0"
^DD(632,6,3)="Field updated only by package, no user input.  Answer must be 1-30 characters in length."
^DD(632,6,21,0)="^^2^2^2921215^^"
^DD(632,6,21,1,0)="This field represents cancelled appointment codes.  Field updated by"
^DD(632,6,21,2,0)="package only, no user input."
^DD(632,6,"DT")="2950109"
^DD(632,7,0)="FORM 4 TRANSMIT STATUS^S^C:Record Contains Cancelled Appointment;F:Record in Transmit File;N:Record Needs Transmitting;P:Record Prior to Package Startup Date;T:Record Transmitted;O:Record Omitted, Pre-dates 10/1/96 PCE Usage;^0;8^Q"
^DD(632,7,1,0)="^.1"
^DD(632,7,1,1,0)="632^AC"
^DD(632,7,1,1,1)="S ^HBHC(632,""AC"",$E(X,1,30),DA)="""""
^DD(632,7,1,1,2)="K ^HBHC(632,""AC"",$E(X,1,30),DA)"
^DD(632,7,1,1,"%D",0)="^^3^3^2991115^^^^"
^DD(632,7,1,1,"%D",1,0)="This cross-reference represents regular 'AC' file index of HBHC Visit (632)"
^DD(632,7,1,1,"%D",2,0)="file, Form 4 (Visit) Transmit Status (7) field.  Form 4 Transmit Status"
^DD(632,7,1,1,"%D",3,0)="field updated by package only, no user input."
^DD(632,7,1,1,"DT")="2920427"
^DD(632,7,3)="Field updated only by package, no user input."
^DD(632,7,21,0)="^^5^5^2970313^^^^"
^DD(632,7,21,1,0)="This field represents Form 4 (Visit) Transmit Status.  Field will contain"
^DD(632,7,21,2,0)="either 'C' (Record Contains Cancelled Appointment), 'F' (Record in Transmit"
^DD(632,7,21,3,0)="File), 'N' (Record Needs Transmitting), 'O' (Record Omitted, Pre-dates 10/1/96"
^DD(632,7,21,4,0)="PCE Usage), 'P' (Record Prior to Package Startup Date),  or 'T' (Record"
^DD(632,7,21,5,0)="Transmitted).  Field updated by package only, no user input."
^DD(632,7,"DT")="2970313"
^DD(632,8,0)="FORM 4 FILED IN HBHC(634) DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(632,8,3)="Date Form 4 filed in Transmit file.  Field updated only by package, no user input."
^DD(632,8,21,0)="^^2^2^2921216^^"
^DD(632,8,21,1,0)="This field represents date Form 4 (Visit) record filed in Transmit"
^DD(632,8,21,2,0)="(634) file.  Field updated by package only, no user input."
^DD(632,8,"DT")="2920429"
^DD(632,9,0)="FORM 4 BATCH INITIAL MM MSG #^F^^0;10^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X"
^DD(632,9,1,0)="^.1^^0"
^DD(632,9,3)="Field updated only by package, no user input.  Number represents first MM msg # in transmission batch.  Record may be transmitted in different msg, if multiple msgs transmitted."
^DD(632,9,21,0)="^^4^4^2921215^"
^DD(632,9,21,1,0)="This field represents MailMan message number of 'First' MailMan message"
^DD(632,9,21,2,0)="in Austin transmission batch.  Record 'may' be transmitted in different"
^DD(632,9,21,3,0)="message, if multiple messages are transmitted in one transmission batch."
^DD(632,9,21,4,0)="Field updated by package only, no user input."
^DD(632,9,"DT")="2920626"
^DD(632,10,0)="FORM 4 MAIL MESSAGE DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(632,10,1,0)="^.1"
^DD(632,10,1,1,0)="632^AD"
^DD(632,10,1,1,1)="S ^HBHC(632,""AD"",$E(X,1,30),DA)="""""
^DD(632,10,1,1,2)="K ^HBHC(632,""AD"",$E(X,1,30),DA)"
^DD(632,10,1,1,"%D",0)="^^3^3^2921230^^^"
^DD(632,10,1,1,"%D",1,0)="This cross-reference represents regular 'AD' file index of HBHC Visit (632)"
^DD(632,10,1,1,"%D",2,0)="file, Form 4 (Visit) Mail Message Date (10) field.  Form 4 Mail Message Date"
^DD(632,10,1,1,"%D",3,0)="field updated by package only, no user input."
^DD(632,10,1,1,"DT")="2920504"
^DD(632,10,3)="Field updated only by package, no user input."
^DD(632,10,21,0)="^^2^2^2921215^"
^DD(632,10,21,1,0)="This field represents date of Form 4 (Visit) record transmission via"
^DD(632,10,21,2,0)="MailMan to Austin.  Field updated by package only, no user input."
^DD(632,10,"DT")="2920504"
^DD(632,11,0)="FORM 4 TRANSMIT FLAG EDIT DATE^D^^0;12^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(632,11,3)="Field updated only by package, no user input.  Field is updated with current date when user requests Form 4 Transmit Status flag be reset (allowing editing of transmitted record)."
^DD(632,11,21,0)="^^3^3^2921216^^"
^DD(632,11,21,1,0)="This field represents date Form 4 (Visit) Transmit Status flag was"
^DD(632,11,21,2,0)="requested by user to be reset (allowing editing of previously transmitted"
^DD(632,11,21,3,0)="record).  Field updated by package only, no user input."
^DD(632,11,"DT")="2920429"
^DD(632,12,0)="FORM 4 TRANSMIT FLAG EDIT DUZ^P200'^VA(200,^0;13^Q"
^DD(632,12,3)="Field updated only by package, no user input.  Field is updated with user's DUZ when user requests Form 4 Transmit Status flag be reset (allowing editing of transmitted record)."
^DD(632,12,21,0)="^^3^3^2921215^"
^DD(632,12,21,1,0)="This field represents DUZ of user requesting Form 4 (Visit) Transmit"
^DD(632,12,21,2,0)="Status flag be reset (allowing editing of previously transmitted"
^DD(632,12,21,3,0)="record).  Field updated by package only, no user input."
^DD(632,12,"DT")="2920429"
^DD(632,13,0)="FORM 4 RE-TRANS BATCH MM MSG #^F^^0;14^K:$L(X)>15!($L(X)<3) X"
^DD(632,13,3)="Field updated only by package, no user input.  Number represents first MM msg # in re-transmission batch.  Record may be transmitted in different msg, if multiple msgs transmitted."
^DD(632,13,21,0)="^^4^4^2921215^"
^DD(632,13,21,1,0)="This field represents MailMan message number of 'First' MailMan message"
^DD(632,13,21,2,0)="in re-transmission batch to Austin.  Record 'may' be transmitted in"
^DD(632,13,21,3,0)="different message, if multiple messages are transmitted in one"
^DD(632,13,21,4,0)="re-transmission batch.  Field updated by package only, no user input."
^DD(632,13,"DT")="2920626"
^DD(632,14,0)="FORM 4 RE-TRANSMIT DATE^D^^0;15^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(632,14,3)="Field updated only by package, no user input."
^DD(632,14,21,0)="^^2^2^2921215^"
^DD(632,14,21,1,0)="This field represents date of Form 4 (Visit) record re-transmission via"
^DD(632,14,21,2,0)="MailMan to Austin.  Field updated by package only, no user input."
^DD(632,14,"DT")="2920504"
^DD(632,15,0)="QA INDICATOR^F^^0;16^K:$L(X)>2!($L(X)<1) X"
^DD(632,15,3)="Answer must be 1-2 characters in length.  Refer to directions from Office of Geriatrics & Extended Care for current QA Indicator data value instructions."
^DD(632,15,21,0)="^^4^4^2930702^^"
^DD(632,15,21,1,0)="This field represents a generic QA Indicator.  The Office of Geriatrics &"
^DD(632,15,21,2,0)="Extended Care supplies HBHC programs with current QA Indicator information."
^DD(632,15,21,3,0)="The QA Indicator & corresponding data value for the field will change"
^DD(632,15,21,4,0)="periodically at the discretion of the Geriatrics & Extended Care office."
^DD(632,15,"DT")="2930702"
^DD(632,31,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;22^Q"
^DD(632,31,1,0)="^.1"
^DD(632,31,1,1,0)="632^AE"
^DD(632,31,1,1,1)="S ^HBHC(632,""AE"",$E(X,1,30),DA)="""""
^DD(632,31,1,1,2)="K ^HBHC(632,""AE"",$E(X,1,30),DA)"
^DD(632,31,1,1,"%D",0)="^^3^3^2991115^"
^DD(632,31,1,1,"%D",1,0)="This cross-reference represents regular 'AE' file index of HBHC Visit (632)"
^DD(632,31,1,1,"%D",2,0)="file, Outpatient Encounter (31) field.  Outpatient Encounter field updated"
^DD(632,31,1,1,"%D",3,0)="by package only, no user input. "
^DD(632,31,1,1,"DT")="2991115"
^DD(632,31,3)="Field updated by package only, no user input."
^DD(632,31,21,0)="^^2^2^2970702^^^^"
^DD(632,31,21,1,0)="This field represents outpatient encounter record in ^SCE (#409.68) file. "
^DD(632,31,21,2,0)="Field updated by package only, no user input. "
^DD(632,31,"DT")="2991115"
^DD(632,32,0)="CPT^632.032PA^^2;0"
^DD(632,33,0)="DX^632.033PA^^3;0"
^DD(632,"B","CANCELLED APPOINTMENT",6)=""
^DD(632,"B","CLINIC NUMBER",2)=""
^DD(632,"B","COMMENTS",5)=""
^DD(632,"B","CPT",32)=""
^DD(632,"B","DATE",1)=""
^DD(632,"B","DX",33)=""
^DD(632,"B","FORM 4 BATCH INITIAL MM MSG #",9)=""
^DD(632,"B","FORM 4 FILED IN HBHC(634) DATE",8)=""
^DD(632,"B","FORM 4 MAIL MESSAGE DATE",10)=""
^DD(632,"B","FORM 4 RE-TRANS BATCH MM MSG #",13)=""
^DD(632,"B","FORM 4 RE-TRANSMIT DATE",14)=""
^DD(632,"B","FORM 4 TRANSMIT FLAG EDIT DATE",11)=""
^DD(632,"B","FORM 4 TRANSMIT FLAG EDIT DUZ",12)=""
^DD(632,"B","FORM 4 TRANSMIT STATUS",7)=""
^DD(632,"B","OUTPATIENT ENCOUNTER",31)=""
^DD(632,"B","PATIENT NAME",.01)=""
^DD(632,"B","PROVIDER",3)=""
^DD(632,"B","QA INDICATOR",15)=""
^DD(632,"B","TYPE OF VISIT",4)=""
^DD(632,"GL",0,1,.01)=""
^DD(632,"GL",0,2,1)=""
^DD(632,"GL",0,3,2)=""
^DD(632,"GL",0,4,3)=""
^DD(632,"GL",0,5,4)=""
^DD(632,"GL",0,6,5)=""
^DD(632,"GL",0,7,6)=""
^DD(632,"GL",0,8,7)=""
^DD(632,"GL",0,9,8)=""
^DD(632,"GL",0,10,9)=""
^DD(632,"GL",0,11,10)=""
^DD(632,"GL",0,12,11)=""
^DD(632,"GL",0,13,12)=""
^DD(632,"GL",0,14,13)=""
^DD(632,"GL",0,15,14)=""
^DD(632,"GL",0,16,15)=""
^DD(632,"GL",0,22,31)=""
^DD(632,"GL",2,0,32)=""
^DD(632,"GL",3,0,33)=""
^DD(632,"IX",.01)=""
^DD(632,"IX",1)=""
^DD(632,"IX",7)=""
^DD(632,"IX",10)=""
^DD(632,"IX",31)=""
^DD(632,"RQ",.01)=""
^DD(632,"SB",632.032,32)=""
^DD(632,"SB",632.033,33)=""
^DD(632.032,0)="CPT SUB-FIELD^^1^2"
^DD(632.032,0,"DT")="3000503"
^DD(632.032,0,"IX","B",632.032,.01)=""
^DD(632.032,0,"NM","CPT")=""
^DD(632.032,0,"UP")="632"
^DD(632.032,.01,0)="CPT^MRP81'^ICPT(^0;1^Q"
^DD(632.032,.01,1,0)="^.1"
^DD(632.032,.01,1,1,0)="632.032^B"
^DD(632.032,.01,1,1,1)="S ^HBHC(632,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(632.032,.01,1,1,2)="K ^HBHC(632,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(632.032,.01,3)="Field updated by package only, no user input."
^DD(632.032,.01,21,0)="^.001^2^2^3000503^^^^"
^DD(632.032,.01,21,1,0)="This field represents the CPT code(s) performed during the encounter. "
^DD(632.032,.01,21,2,0)="Field updated by package only, no user input. "
^DD(632.032,.01,"DT")="2991206"
^DD(632.032,1,0)="CPT MODIFIER^632.321PA^^1;0"
^DD(632.032,1,12)="Screen prevents selection of modifier inappropriate for CPT Code."
^DD(632.032,1,12.1)="S DIC(""S"")=""I $$OTH^SROMOD"""
^DD(632.032,"B","CPT",.01)=""
^DD(632.032,"B","CPT MODIFIER",1)=""
^DD(632.032,"GL",0,1,.01)=""
^DD(632.032,"GL",1,0,1)=""
^DD(632.032,"IX",.01)=""
^DD(632.032,"RQ",.01)=""
^DD(632.032,"SB",632.321,1)=""
^DD(632.033,0)="DX SUB-FIELD^^.01^1"
^DD(632.033,0,"DT")="3000714"
^DD(632.033,0,"IX","B",632.033,.01)=""
^DD(632.033,0,"NM","DX")=""
^DD(632.033,0,"UP")="632"
^DD(632.033,.01,0)="DX^MRP80'^ICD9(^0;1^Q"
^DD(632.033,.01,1,0)="^.1"
^DD(632.033,.01,1,1,0)="632.033^B"
^DD(632.033,.01,1,1,1)="S ^HBHC(632,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(632.033,.01,1,1,2)="K ^HBHC(632,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(632.033,.01,3)="Field updated by package only, no user input."
^DD(632.033,.01,21,0)="^^3^3^3000714^"
^DD(632.033,.01,21,1,0)="This field represents the patient's ICD9 Diagnosis (DX) Code(s) for the"
^DD(632.033,.01,21,2,0)="encounter.  Primary DX will be contained in the first entry within the"
^DD(632.033,.01,21,3,0)="multiple.  Field updated by package only, no user input."
^DD(632.033,.01,"DT")="3000714"
^DD(632.033,"B","DX",.01)=""
^DD(632.033,"GL",0,1,.01)=""
^DD(632.033,"IX",.01)=""
^DD(632.033,"RQ",.01)=""
^DD(632.321,0)="CPT MODIFIER SUB-FIELD^^.01^1"
^DD(632.321,0,"DT")="3000503"
^DD(632.321,0,"IX","B",632.321,.01)=""
^DD(632.321,0,"NM","CPT MODIFIER")=""
^DD(632.321,0,"UP")="632.032"
^DD(632.321,.01,0)="CPT MODIFIER^MP81.3'^DIC(81.3,^0;1^Q"
^DD(632.321,.01,1,0)="^.1"
^DD(632.321,.01,1,1,0)="632.321^B"
^DD(632.321,.01,1,1,1)="S ^HBHC(632,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(632.321,.01,1,1,2)="K ^HBHC(632,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(632.321,.01,3)="Field updated by package only, no user input."
^DD(632.321,.01,21,0)="^.001^2^2^3000503^^^^"
^DD(632.321,.01,21,1,0)="This field contains CPT Modifier(s) related to the CPT Code(s) for the "
^DD(632.321,.01,21,2,0)="visit.  Field updated by package only, no user input."
^DD(632.321,.01,"DT")="3000503"
^DD(632.321,"B","CPT MODIFIER",.01)=""
^DD(632.321,"GL",0,1,.01)=""
^DD(632.321,"IX",.01)=""
^DD(633,0)="FIELD^^.01^1"
^DD(633,0,"DDA")="N"
^DD(633,0,"DT")="2910611"
^DD(633,0,"IX","B",633,.01)=""
^DD(633,0,"NM","HBHC TEAM")=""
^DD(633,0,"PT",631.4,5)=""
^DD(633,0,"VR")="1.0"
^DD(633,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(633,.01,1,0)="^.1"
^DD(633,.01,1,1,0)="633^B"
^DD(633,.01,1,1,1)="S ^HBHC(633,""B"",$E(X,1,30),DA)="""""
^DD(633,.01,1,1,2)="K ^HBHC(633,""B"",$E(X,1,30),DA)"
^DD(633,.01,1,1,"%D",0)="^^2^2^2921229^^^"
^DD(633,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Team (633)"
^DD(633,.01,1,1,"%D",2,0)="file, Name (.01) field."
^DD(633,.01,3)="Answer with Team Name (e.g. Little Rock).  Team entries are referenced by the HBHC Provider file.  Answer must be 1-30 characters in length."
^DD(633,.01,21,0)="^^3^3^2921215^"
^DD(633,.01,21,1,0)="This field represents HBHC Team Name.  Team entries are referenced by"
^DD(633,.01,21,2,0)="HBHC Provider (631.4) file.  Field allows for 1-30 characters of free"
^DD(633,.01,21,3,0)="text."
^DD(633,.01,"DT")="2920422"
^DD(633,"B","NAME",.01)=""
^DD(633,"GL",0,1,.01)=""
^DD(633,"IX",.01)=""
^DD(633,"RQ",.01)=""
^DD(633.1,0)="FIELD^^.01^1"
^DD(633.1,0,"DDA")="N"
^DD(633.1,0,"DT")="2970314"
^DD(633.1,0,"IX","B",633.1,.01)=""
^DD(633.1,0,"NM","HBHC ERROR MESSAGES FOR VISITS")=""
^DD(633.1,0,"PT",634.2,3)=""
^DD(633.1,0,"VR")="1.0"
^DD(633.1,0,"VRPK")="HBH"
^DD(633.1,.01,0)="ERROR MESSAGE TEXT^RF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(633.1,.01,1,0)="^.1"
^DD(633.1,.01,1,1,0)="633.1^B"
^DD(633.1,.01,1,1,1)="S ^HBHC(633.1,""B"",$E(X,1,30),DA)="""""
^DD(633.1,.01,1,1,2)="K ^HBHC(633.1,""B"",$E(X,1,30),DA)"
^DD(633.1,.01,3)="Answer must be 3-40 characters in length."
^DD(633.1,.01,21,0)="^^4^4^2970314^^^"
^DD(633.1,.01,21,1,0)="This field represents error message text giving reason why Patient Care"
^DD(633.1,.01,21,2,0)="Encounter (PCE) visit did not pass validity check for completeness/accuracy to"
^DD(633.1,.01,21,3,0)="be added to HBHC Visit (632) & HBHC Transmit (634) files.  Entries in this file"
^DD(633.1,.01,21,4,0)="should NOT be added or edited. "
^DD(633.1,.01,"DT")="2970314"
^DD(633.1,"B","ERROR MESSAGE TEXT",.01)=""
^DD(633.1,"GL",0,1,.01)=""
^DD(633.1,"IX",.01)=""
^DD(633.1,"RQ",.01)=""
^DD(634,0)="FIELD^^.01^1"
^DD(634,0,"DDA")="N"
^DD(634,0,"DT")="2920512"
^DD(634,0,"IX","B",634,.01)=""
^DD(634,0,"NM","HBHC TRANSMIT")=""
^DD(634,0,"VR")="1.0"
^DD(634,.01,0)="TRANSMIT RECORD^RF^^0;1^K:$L(X)>130!($L(X)<130)!'(X'?1P.E) X"
^DD(634,.01,1,0)="^.1"
^DD(634,.01,1,1,0)="634^B"
^DD(634,.01,1,1,1)="S ^HBHC(634,""B"",$E(X,1,30),DA)="""""
^DD(634,.01,1,1,2)="K ^HBHC(634,""B"",$E(X,1,30),DA)"
^DD(634,.01,1,1,"%D",0)="^^2^2^2921229^^"
^DD(634,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Transmit"
^DD(634,.01,1,1,"%D",2,0)="(634) file, Transmit Record (.01) field."
^DD(634,.01,3)="Field updated by package only, no user input.  Answer must be 130 characters in length."
^DD(634,.01,21,0)="^^5^5^2970411^^^"
^DD(634,.01,21,1,0)="This field represents Form 3 (Evaluation/Admission), Form 4 (Visit),"
^DD(634,.01,21,2,0)="Form 5 (Discharge), and Form 6 (Corrections) records generated for"
^DD(634,.01,21,3,0)="electronic transmission to Austin via MailMan.  Field allows for 130"
^DD(634,.01,21,4,0)="character fixed length record of free text.  Field updated by package"
^DD(634,.01,21,5,0)="only, no user input."
^DD(634,.01,"DT")="2970411"
^DD(634,"B","TRANSMIT RECORD",.01)=""
^DD(634,"GL",0,1,.01)=""
^DD(634,"IX",.01)=""
^DD(634,"RQ",.01)=""
^DD(634.1,0)="FIELD^^2^3"
^DD(634.1,0,"DT")="2920413"
^DD(634.1,0,"IX","B",634.1,.01)=""
^DD(634.1,0,"NM","HBHC EVALUATION/ADMISSION ERROR(S)")=""
^DD(634.1,0,"VR")="1.0"
^DD(634.1,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(634.1,.01,1,0)="^.1"
^DD(634.1,.01,1,1,0)="634.1^B"
^DD(634.1,.01,1,1,1)="S ^HBHC(634.1,""B"",$E(X,1,30),DA)="""""
^DD(634.1,.01,1,1,2)="K ^HBHC(634.1,""B"",$E(X,1,30),DA)"
^DD(634.1,.01,1,1,"%D",0)="^^3^3^2921228^^^^"
^DD(634.1,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Evaluation/"
^DD(634.1,.01,1,1,"%D",2,0)="Admission Error(s) (634.1) file, Patient Name (.01) field, which references"
^DD(634.1,.01,1,1,"%D",3,0)="Patient (2) file entries."
^DD(634.1,.01,3)="Field updated only by package, no user input."
^DD(634.1,.01,21,0)="^^4^4^2921216^^^^"
^DD(634.1,.01,21,1,0)="This field represents patient name in Patient (2) file.  The"
^DD(634.1,.01,21,2,0)="evaluation/admission record in HBHC Patient (631) file is missing"
^DD(634.1,.01,21,3,0)="data or contains data inconsistencies.  Field updated by package only,"
^DD(634.1,.01,21,4,0)="no user input."
^DD(634.1,.01,"DT")="2920413"
^DD(634.1,1,0)="HBHC EVALUATION^P631'^HBHC(631,^0;2^Q"
^DD(634.1,1,3)="Field updated only by package, no user input."
^DD(634.1,1,21,0)="^^2^2^2921216^^"
^DD(634.1,1,21,1,0)="This field represents evaluation/admission record in HBHC Patient"
^DD(634.1,1,21,2,0)="(631) file.  Field updated by package only, no user input."
^DD(634.1,1,"DT")="2920413"
^DD(634.1,2,0)="FIELDS TO UPDATE^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(634.1,2,3)="Field updated only by package, no user input.  Answer must be 1-245 characters in length."
^DD(634.1,2,21,0)="^^4^4^2921216^^^"
^DD(634.1,2,21,1,0)="This field represents fields to update (actually DR string supplied"
^DD(634.1,2,21,2,0)="for DIE call) of evaluation/admission data in HBHC Patient (631) file."
^DD(634.1,2,21,3,0)="Field allows for 1-245 characters of free text.  Field updated by package"
^DD(634.1,2,21,4,0)="only, no user input."
^DD(634.1,2,"DT")="2920413"
^DD(634.1,"B","FIELDS TO UPDATE",2)=""
^DD(634.1,"B","HBHC EVALUATION",1)=""
^DD(634.1,"B","PATIENT NAME",.01)=""
^DD(634.1,"GL",0,1,.01)=""
^DD(634.1,"GL",0,2,1)=""
^DD(634.1,"GL",1,1,2)=""
^DD(634.1,"IX",.01)=""
^DD(634.1,"RQ",.01)=""
^DD(634.2,0)="FIELD^^6^7"
^DD(634.2,0,"DDA")="N"
^DD(634.2,0,"DT")="2920413"
^DD(634.2,0,"IX","B",634.2,.01)=""
^DD(634.2,0,"NM","HBHC VISIT ERROR(S)")=""
^DD(634.2,0,"VR")="1.0"
^DD(634.2,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(634.2,.01,1,0)="^.1"
^DD(634.2,.01,1,1,0)="634.2^B"
^DD(634.2,.01,1,1,1)="S ^HBHC(634.2,""B"",$E(X,1,30),DA)="""""
^DD(634.2,.01,1,1,2)="K ^HBHC(634.2,""B"",$E(X,1,30),DA)"
^DD(634.2,.01,1,1,"%D",0)="^^3^3^2921228^"
^DD(634.2,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Visit"
^DD(634.2,.01,1,1,"%D",2,0)="Error(s) (634.2) file, Patient Name (.01) field, which references"
^DD(634.2,.01,1,1,"%D",3,0)="Patient (2) file entries."
^DD(634.2,.01,3)="Field updated only by package, no user input."
^DD(634.2,.01,21,0)="^^3^3^2921216^^"
^DD(634.2,.01,21,1,0)="This field represents patient name in Patient (2) file.  The visit"
^DD(634.2,.01,21,2,0)="record in HBHC Visit (632) file is missing data.  Field updated by"
^DD(634.2,.01,21,3,0)="package only, no user input."
^DD(634.2,.01,"DT")="2920413"
^DD(634.2,1,0)="HBHC VISIT^P632'^HBHC(632,^0;2^Q"
^DD(634.2,1,3)="Field updated only by package, no user input."
^DD(634.2,1,21,0)="^^2^2^2921215^"
^DD(634.2,1,21,1,0)="This field represents visit record in HBHC Visit (632) file.  Field"
^DD(634.2,1,21,2,0)="updated by package only, no user input."
^DD(634.2,1,"DT")="2920413"
^DD(634.2,2,0)="FIELDS TO UPDATE^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(634.2,2,3)="Field updated only by package, no user input.  Answer must be 1-245 characters in length."
^DD(634.2,2,21,0)="^^3^3^2921215^^"
^DD(634.2,2,21,1,0)="This field represents fields to update (actually DR string supplied for"
^DD(634.2,2,21,2,0)="DIE call) of visit data in HBHC Visit (632) file.  Field allows for 1-245"
^DD(634.2,2,21,3,0)="characters of free text.  Field updated by package only, no user input."
^DD(634.2,2,"DT")="2920413"
^DD(634.2,3,0)="ERROR MESSAGE^P633.1'^HBHC(633.1,^0;3^Q"
^DD(634.2,3,3)="Field updated by package only, no user input."
^DD(634.2,3,21,0)="^^6^6^2970314^^"
^DD(634.2,3,21,1,0)="This field represents error message in HBHC Error Messages for Visits (633.1)"
^DD(634.2,3,21,2,0)="file, of why records did not pass validity check for inclusion in HBHC Transmit"
^DD(634.2,3,21,3,0)="file (634).  Outpatient Encounter Pointer Missing & Visit File Pointer Missing"
^DD(634.2,3,21,4,0)="messages may need to be handled by IRM.  All other errors should be resolvable"
^DD(634.2,3,21,5,0)="by the user via data entry corrections based on error message text.  Field"
^DD(634.2,3,21,6,0)="updated by package only, no user input. "
^DD(634.2,3,"DT")="2970314"
^DD(634.2,4,0)="OUTPATIENT ENCOUNTER^P409.68'^SCE(^0;4^Q"
^DD(634.2,4,3)="Field updated by package only, no user input."
^DD(634.2,4,21,0)="^^2^2^2970314^"
^DD(634.2,4,21,1,0)="This field represents outpatient encounter record in SDD(409.68 file.  Field"
^DD(634.2,4,21,2,0)="updated by package only, no user input. "
^DD(634.2,4,"DT")="2970314"
^DD(634.2,5,0)="VISIT DATE^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:2770101>X X"
^DD(634.2,5,3)="Answer is date of HBHC visit.  Answer must be 1/1/1977 or later.  Field updated by package only, no user input."
^DD(634.2,5,21,0)="^^2^2^2980303^^"
^DD(634.2,5,21,1,0)="This field represents date of HBHC visit.  Date range allowed is"
^DD(634.2,5,21,2,0)="1/1/1977 or later.  Field updated by package only, no user input. "
^DD(634.2,5,"DT")="2980303"
^DD(634.2,6,0)="CLINIC NUMBER^P44'^SC(^0;6^Q"
^DD(634.2,6,3)="Answer is clinic that exists in Hospital Location file.  Field updated by package only, no user input."
^DD(634.2,6,21,0)="^^3^3^2970314^"
^DD(634.2,6,21,1,0)="This field represents HBPC Clinic number in Hospital Location (44) file. "
^DD(634.2,6,21,2,0)="Clinic must exist in Hospital Location file, since LAYGO is not allowed.  Field"
^DD(634.2,6,21,3,0)="updated by package only, no user input. "
^DD(634.2,6,"DT")="2970314"
^DD(634.2,"B","CLINIC NUMBER",6)=""
^DD(634.2,"B","ERROR MESSAGE",3)=""
^DD(634.2,"B","FIELDS TO UPDATE",2)=""
^DD(634.2,"B","HBHC VISIT",1)=""
^DD(634.2,"B","OUTPATIENT ENCOUNTER",4)=""
^DD(634.2,"B","PATIENT NAME",.01)=""
^DD(634.2,"B","VISIT DATE",5)=""
^DD(634.2,"GL",0,1,.01)=""
^DD(634.2,"GL",0,2,1)=""
^DD(634.2,"GL",0,3,3)=""
^DD(634.2,"GL",0,4,4)=""
^DD(634.2,"GL",0,5,5)=""
^DD(634.2,"GL",0,6,6)=""
^DD(634.2,"GL",1,1,2)=""
^DD(634.2,"IX",.01)=""
^DD(634.2,"RQ",.01)=""
^DD(634.3,0)="FIELD^^6^7"
^DD(634.3,0,"DDA")="N"
^DD(634.3,0,"DT")="2920413"
^DD(634.3,0,"IX","B",634.3,.01)=""
^DD(634.3,0,"NM","HBHC DISCHARGE ERROR(S)")=""
^DD(634.3,0,"VR")="1.0"
^DD(634.3,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(634.3,.01,1,0)="^.1"
^DD(634.3,.01,1,1,0)="634.3^B"
^DD(634.3,.01,1,1,1)="S ^HBHC(634.3,""B"",$E(X,1,30),DA)="""""
^DD(634.3,.01,1,1,2)="K ^HBHC(634.3,""B"",$E(X,1,30),DA)"
^DD(634.3,.01,1,1,"%D",0)="^^3^3^2921228^"
^DD(634.3,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Discharge"
^DD(634.3,.01,1,1,"%D",2,0)="Error(s) (634.3) file, Patient Name (.01) field, which references Patient"
^DD(634.3,.01,1,1,"%D",3,0)="(2) file entries."
^DD(634.3,.01,3)="Field updated only by package, no user input."
^DD(634.3,.01,21,0)="^^3^3^2921216^^"
^DD(634.3,.01,21,1,0)="This field represents patient name in Patient (2) file.  The discharge"
^DD(634.3,.01,21,2,0)="record in HBHC Patient (631) file is missing data or contains data"
^DD(634.3,.01,21,3,0)="inconsistencies.  Field updated by package only, no user input."
^DD(634.3,.01,"DT")="2920413"
^DD(634.3,1,0)="HBHC DISCHARGE^P631'^HBHC(631,^0;2^Q"
^DD(634.3,1,3)="Field updated only by package, no user input."
^DD(634.3,1,21,0)="^^2^2^2921215^"
^DD(634.3,1,21,1,0)="This field represents discharge record in HBHC Patient (631) file."
^DD(634.3,1,21,2,0)="Field updated by package only, no user input."
^DD(634.3,1,"DT")="2920413"
^DD(634.3,2,0)="FIELDS 39:48 DR STRING^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(634.3,2,3)="Field updated only by package, no user input.  Answer must be 1-245 characters in length."
^DD(634.3,2,21,0)="^^4^4^2921215^"
^DD(634.3,2,21,1,0)="This field represents fields to update (actually DR string supplied for"
^DD(634.3,2,21,2,0)="DIE call) of discharge data fields 39-48, in HBHC Patient (631) file."
^DD(634.3,2,21,3,0)="Field allows for 1-245 characters of free text.  Field updated by"
^DD(634.3,2,21,4,0)="package only, no user input."
^DD(634.3,2,"DT")="2920817"
^DD(634.3,3,0)="FIELDS 49:51 DR STRING^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(634.3,3,3)="Field updated only by package, no user input.  Answer must be 1-245 characters in length."
^DD(634.3,3,21,0)="^^4^4^2921215^"
^DD(634.3,3,21,1,0)="This field represents fields to update (actually DR string supplied for"
^DD(634.3,3,21,2,0)="DIE call) of discharge data fields 49-51, in HBHC Patient (631) file."
^DD(634.3,3,21,3,0)="Field allows for 1-245 characters of free text.  Field updated by"
^DD(634.3,3,21,4,0)="package only, no user input."
^DD(634.3,3,"DT")="2920410"
^DD(634.3,4,0)="FIELDS 52:55 DR STRING^F^^3;1^K:$L(X)>245!($L(X)<1) X"
^DD(634.3,4,3)="Field updated only by package, no user input.  Answer must be 1-245 characters in length."
^DD(634.3,4,21,0)="^^4^4^2921215^"
^DD(634.3,4,21,1,0)="This field represents fields to update (actually DR string for DIE"
^DD(634.3,4,21,2,0)="call) of discharge data fields 52-55, in HBHC Patient (631) file."
^DD(634.3,4,21,3,0)="Field allows for 1-245 characters of free text.  Field updated by"
^DD(634.3,4,21,4,0)="package only, no user input."
^DD(634.3,4,"DT")="2920410"
^DD(634.3,5,0)="FIELDS 56:59 DR STRING^F^^4;1^K:$L(X)>245!($L(X)<1) X"
^DD(634.3,5,3)="Field updated only by package, no user input.  Answer must be 1-245 characters in length."
^DD(634.3,5,21,0)="^^4^4^2921215^"
^DD(634.3,5,21,1,0)="This field represents fields to update (actually DR string for DIE"
^DD(634.3,5,21,2,0)="call) of discharge data fields 56-59, in HBHC Patient (631) file."
^DD(634.3,5,21,3,0)="Field allows for 1-245 characters of free text.  Field updated by"
^DD(634.3,5,21,4,0)="package only, no user input."
^DD(634.3,5,"DT")="2920410"
^DD(634.3,6,0)="FIELDS 60:64 DR STRING^F^^5;1^K:$L(X)>245!($L(X)<1) X"
^DD(634.3,6,3)="Field updated only by package, no user input.  Answer must be 1-245 characters in length."
^DD(634.3,6,21,0)="^^4^4^2921215^"
^DD(634.3,6,21,1,0)="This field represents fields to update (actually DR string for DIE"
^DD(634.3,6,21,2,0)="call) of discharge data fields 60-64, in HBHC Patient (631) file."
^DD(634.3,6,21,3,0)="Field allows for 1-245 characters of free text.  Field updated by"
^DD(634.3,6,21,4,0)="package only, no user input."
^DD(634.3,6,"DT")="2920410"
^DD(634.3,"B","FIELDS 39:48 DR STRING",2)=""
^DD(634.3,"B","FIELDS 49:51 DR STRING",3)=""
^DD(634.3,"B","FIELDS 52:55 DR STRING",4)=""
^DD(634.3,"B","FIELDS 56:59 DR STRING",5)=""
^DD(634.3,"B","FIELDS 60:64 DR STRING",6)=""
^DD(634.3,"B","HBHC DISCHARGE",1)=""
^DD(634.3,"B","PATIENT NAME",.01)=""
^DD(634.3,"GL",0,1,.01)=""
^DD(634.3,"GL",0,2,1)=""
^DD(634.3,"GL",1,1,2)=""
^DD(634.3,"GL",2,1,3)=""
^DD(634.3,"GL",3,1,4)=""
^DD(634.3,"GL",4,1,5)=""
^DD(634.3,"GL",5,1,6)=""
^DD(634.3,"IX",.01)=""
^DD(634.3,"RQ",.01)=""
^DD(634.4,0)="FIELD^^.01^1"
^DD(634.4,0,"DT")="2920429"
^DD(634.4,0,"IX","B",634.4,.01)=""
^DD(634.4,0,"NM","HBHC FORM 6 CORRECTIONS")=""
^DD(634.4,0,"VR")="1.0"
^DD(634.4,.01,0)="CORRECTION TRANSMIT RECORD^RF^^0;1^K:$L(X)>130!($L(X)<130)!'(X'?1P.E) X"
^DD(634.4,.01,1,0)="^.1"
^DD(634.4,.01,1,1,0)="634.4^B"
^DD(634.4,.01,1,1,1)="S ^HBHC(634.4,""B"",$E(X,1,30),DA)="""""
^DD(634.4,.01,1,1,2)="K ^HBHC(634.4,""B"",$E(X,1,30),DA)"
^DD(634.4,.01,1,1,"%D",0)="^^2^2^2921228^"
^DD(634.4,.01,1,1,"%D",1,0)="This cross-reference represents regular 'B' file index of HBHC Form 6"
^DD(634.4,.01,1,1,"%D",2,0)="Corrections (634.4) file, Correction Transmit Record (.01) field."
^DD(634.4,.01,3)="Field updated by package only, no user input.  Answer must be 130 characters in length."
^DD(634.4,.01,21,0)="^^8^8^2970712^^^"
^DD(634.4,.01,21,1,0)="This field represents Form 6 (Correction) record awaiting transmission"
^DD(634.4,.01,21,2,0)="to Austin.  Form 6 record is generated when user requests Form '3/4/5'"
^DD(634.4,.01,21,3,0)="Transmit Status flag be reset (allowing editing of transmitted record)."
^DD(634.4,.01,21,4,0)="This record informs Austin to delete the Evaluation/Admission or"
^DD(634.4,.01,21,5,0)="Discharge record already on file, a corrected replacement record of"
^DD(634.4,.01,21,6,0)="evaluation/admission or discharge data is forthcoming.  Field allows for"
^DD(634.4,.01,21,7,0)="130 character fixed length record of free text.  Field updated by package"
^DD(634.4,.01,21,8,0)="only, no user input."
^DD(634.4,.01,"DT")="2970712"
^DD(634.4,"B","CORRECTION TRANSMIT RECORD",.01)=""
^DD(634.4,"GL",0,1,.01)=""
^DD(634.4,"IX",.01)=""
^DD(634.4,"RQ",.01)=""
^DD(634.5,0)="FIELD^^.01^1"
^DD(634.5,0,"DT")="2940224"
^DD(634.5,0,"IX","B",634.5,.01)=""
^DD(634.5,0,"NM","HBHC PSEUDO SSN ERROR(S)")=""
^DD(634.5,0,"VR")="1.0"
^DD(634.5,.01,0)="PATIENT NAME^RP2'^DPT(^0;1^Q"
^DD(634.5,.01,1,0)="^.1"
^DD(634.5,.01,1,1,0)="634.5^B"
^DD(634.5,.01,1,1,1)="S ^HBHC(634.5,""B"",$E(X,1,30),DA)="""""
^DD(634.5,.01,1,1,2)="K ^HBHC(634.5,""B"",$E(X,1,30),DA)"
^DD(634.5,.01,3)="Field updated only by package, no user input."
^DD(634.5,.01,21,0)="^^3^3^2940224^"
^DD(634.5,.01,21,1,0)="This field represents patient name in Patient (2) file.  This patient"
^DD(634.5,.01,21,2,0)="record contains a pseudo social security number, which is invalid for"
^DD(634.5,.01,21,3,0)="HBHC purposes.  Field updated by package only, no user input."
^DD(634.5,.01,"DT")="2940224"
^DD(634.5,"B","PATIENT NAME",.01)=""
^DD(634.5,"GL",0,1,.01)=""
^DD(634.5,"IX",.01)=""
^DD(634.5,"RQ",.01)=""
^DD(634.6,0)="FIELD^^1^2"
^DD(634.6,0,"DT")="2970411"
^DD(634.6,0,"IX","B",634.6,.01)=""
^DD(634.6,0,"IX","C",634.6,1)=""
^DD(634.6,0,"NM","HBHC TRANSMIT HISTORY")=""
^DD(634.6,0,"VR")="1.0"
^DD(634.6,0,"VRPK")="HBH"
^DD(634.6,.01,0)="TRANSMIT RECORD^RFI^^0;1^K:$L(X)>130!($L(X)<130) X"
^DD(634.6,.01,.1)=""
^DD(634.6,.01,1,0)="^.1"
^DD(634.6,.01,1,1,0)="634.6^B"
^DD(634.6,.01,1,1,1)="S ^HBHC(634.6,""B"",$E(X,1,30),DA)="""""
^DD(634.6,.01,1,1,2)="K ^HBHC(634.6,""B"",$E(X,1,30),DA)"
^DD(634.6,.01,3)="Answer must be 130 characters in length."
^DD(634.6,.01,"DT")="2970411"
^DD(634.6,1,0)="TRANSMIT DATE^RDI^^0;2^S %DT=""EX"" D ^%DT S X=Y K:2940101>X X"
^DD(634.6,1,1,0)="^.1"
^DD(634.6,1,1,1,0)="634.6^C"
^DD(634.6,1,1,1,1)="S ^HBHC(634.6,""C"",$E(X,1,30),DA)="""""
^DD(634.6,1,1,1,2)="K ^HBHC(634.6,""C"",$E(X,1,30),DA)"
^DD(634.6,1,1,1,"DT")="2950724"
^DD(634.6,1,3)="Type a date 1/1/1994 or later.  Field updated by package only, no user input."
^DD(634.6,1,"DT")="2950724"
^DD(634.6,"B","TRANSMIT DATE",1)=""
^DD(634.6,"B","TRANSMIT RECORD",.01)=""
^DD(634.6,"GL",0,1,.01)=""
^DD(634.6,"GL",0,2,1)=""
^DD(634.6,"IX",.01)=""
^DD(634.6,"IX",1)=""
^DD(634.6,"RQ",.01)=""
^DD(634.6,"RQ",1)=""
^DD(650,0)="FIELD^^30^30"
^DD(650,0,"DDA")="N"
^DD(650,0,"DT")="2911230"
^DD(650,0,"ID","WRITE")="W:$D(^(0)) ""  "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3),""  "",$S($D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)""),""  "",?40,$S($D(^DPT(+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:"""")"
^DD(650,0,"IX","AC",650,2)=""
^DD(650,0,"IX","ACD",650,17)=""
^DD(650,0,"IX","AD",650,17)=""
^DD(650,0,"IX","AE",650,4)=""
^DD(650,0,"IX","B",650,.01)=""
^DD(650,0,"IX","BS5",650,7)=""
^DD(650,0,"IX","CP",650,7)=""
^DD(650,0,"IX","O",650,1)=""
^DD(650,0,"IX","P",650,7)=""
^DD(650,0,"IX","W",650,2)=""
^DD(650,0,"NM","SOCIAL WORK CASE")=""
^DD(650,0,"PT",655.02,5)=""
^DD(650,0,"PT",655.2,.031)=""
^DD(650,0,"PT",655.218,1)=""
^DD(650,0,"VR")="3.0"
^DD(650,.01,0)="NUMBER^RNJ8,0X^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(650,.01,1,0)="^.1"
^DD(650,.01,1,1,0)="650^B"
^DD(650,.01,1,1,1)="S ^SOWK(650,""B"",$E(X,1,30),DA)="""""
^DD(650,.01,1,1,2)="K ^SOWK(650,""B"",$E(X,1,30),DA)"
^DD(650,.01,3)="Enter a whole number between 1 and 99999999.  Case numbers are not entered directly with VA FileMan."
^DD(650,.01,11,0)="^.2LAP"
^DD(650,.01,21,0)="^^2^2^2911101^^^^"
^DD(650,.01,21,1,0)="This is the case number to identify each case that is opened."
^DD(650,.01,21,2,0)=""
^DD(650,.01,"DEL",4000,0)="I $D(^SOWK(650,DA,0))#2,$P(^(0),""^"",4)=""16"" W *7,"" PATIENT IN HOME "" Q"
^DD(650,.01,"DT")="2911018"
^DD(650,1,0)="OPEN DATE^RDX^^0;2^S %DT=""EX"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0) I $D(X),$P(^SOWK(650,DA,0),""^"",18),X>$P(^(0),""^"",18) W *7,!!,"" *** OPEN DATE CANNOT BE BEYOND CLOSE DATE !! ***"",! K X"
^DD(650,1,1,0)="^.1"
^DD(650,1,1,1,0)="650^O"
^DD(650,1,1,1,1)="S ^SOWK(650,""O"",$E(X,1,30),DA)="""""
^DD(650,1,1,1,2)="K ^SOWK(650,""O"",$E(X,1,30),DA)"
^DD(650,1,3)="Enter date that case is considered open."
^DD(650,1,21,0)="^.001^2^2^3001106^^^^"
^DD(650,1,21,1,0)="This is the date the case was opened to the Social Work service."
^DD(650,1,21,2,0)=" "
^DD(650,1,"DT")="3001109"
^DD(650,2,0)="SOCIAL WORKER^R*P200'^VA(200,^0;3^S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(650,2,1,0)="^.1"
^DD(650,2,1,1,0)="650^W"
^DD(650,2,1,1,1)="S ^SOWK(650,""W"",$E(X,1,30),DA)="""""
^DD(650,2,1,1,2)="K ^SOWK(650,""W"",$E(X,1,30),DA)"
^DD(650,2,1,2,0)="650^AC^MUMPS"
^DD(650,2,1,2,1)="I $P(^SOWK(650,DA,0),""^"",5),$P(^(0),""^"",8),'$P(^(0),""^"",18) S ^SOWK(650,""AC"",$P(^SOWK(650,DA,0),""^"",8),X,$P(^(0),""^"",5),DA)="""""
^DD(650,2,1,2,2)="I $P(^SOWK(650,DA,0),""^"",5)]"""",$P(^(0),""^"",8)]"""",$D(^SOWK(650,""AC"",$P(^SOWK(650,DA,0),""^"",8),X,$P(^(0),""^"",5),DA)) K ^SOWK(650,""AC"",$P(^SOWK(650,DA,0),""^"",8),X,$P(^(0),""^"",5),DA)"
^DD(650,2,1,2,"%D",0)="^^1^1^2911125^"
^DD(650,2,1,2,"%D",1,0)="This MUMPS cross reference is used to indicate an opened case."
^DD(650,2,3)="Enter name of social worker that will be reviewing patient's case."
^DD(650,2,12)="Only valid social workers to be selected."
^DD(650,2,12.1)="S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"""
^DD(650,2,21,0)="^^2^2^2901217^^^^"
^DD(650,2,21,1,0)="This is the name of the social worker who opened this case."
^DD(650,2,21,2,0)=" "
^DD(650,2,"DT")="2901217"
^DD(650,3,0)="COST DISTRIBUTION CENTER^F^^0;4^K:$L(X)>1!($L(X)<1) X"
^DD(650,3,1,0)="^.1^^0"
^DD(650,3,1,1,0)="^^TRIGGER^650^3.1"
^DD(650,3,1,1,1)="I '$D(DIU(0)) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(650,3,1,1,1.4)"
^DD(650,3,1,1,1.4)="S DIH=$S($D(^SOWK(650,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=650,DIG=3.1 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(650,3,1,1,2)="I '$D(DIU(0)) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SOWK(650,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(650,3,1,1,2.4)"
^DD(650,3,1,1,2.4)="S DIH=$S($D(^SOWK(650,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=650,DIG=3.1 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(650,3,1,1,"CREATE VALUE")="@"
^DD(650,3,1,1,"DELETE VALUE")="@"
^DD(650,3,1,1,"FIELD")="CDC SUB-SECTION"
^DD(650,3,3)="FIELD NOT IN USE."
^DD(650,3,4)=""
^DD(650,3,12)="Only primary CDC Accounts are to be selected."
^DD(650,3,12.1)="S DIC(""S"")=""I $P(^SOWK(651,+Y,0),""""^"""",2)"""
^DD(650,3,21,0)="^^2^2^2911029^^^^"
^DD(650,3,21,1,0)="FIELD NOT IN USE."
^DD(650,3,21,2,0)=" "
^DD(650,3,"DT")="2911029"
^DD(650,3.1,0)="CDC SECTION^R*P651'X^SOWK(651,^0;13^S DIC(""S"")=""I '$P(^SOWK(651,+Y,0),""""^"""",2),$P(^(0),""""^"""",5),$P(^SOWK(651,+Y,0),U,7)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(650,3.1,3)="Enter active Cost Distribution Center.  If choices are not listed see Maintenance Section of user's guide (Active/Deactive Cost Distribution Centers)."
^DD(650,3.1,4)=""
^DD(650,3.1,5,1,0)="650^3^1"
^DD(650,3.1,12)="Only active cost distribution centers are to be selected"
^DD(650,3.1,12.1)="S DIC(""S"")=""I '$P(^SOWK(651,+Y,0),""""^"""",2),$P(^(0),""""^"""",5),$P(^SOWK(651,+Y,0),U,7)'=0"""
^DD(650,3.1,21,0)="^^4^4^2941114^^^^"
^DD(650,3.1,21,1,0)="This field is used for the Cost Distribution Center section of the patient."
^DD(650,3.1,21,2,0)="If choices are not listed there may not be any activated CDCs. Please"
^DD(650,3.1,21,3,0)="see maintenance section of user's guide (Activate/Deactive Cost"
^DD(650,3.1,21,4,0)="Distribution Centers)."
^DD(650,3.1,"DT")="2941115"
^DD(650,4,0)="AMIS DIVISION^RP650.1'^SOWK(650.1,^0;5^Q"
^DD(650,4,1,0)="^.1"
^DD(650,4,1,1,0)="650^AE^MUMPS"
^DD(650,4,1,1,1)="I $P(^SOWK(650,DA,0),""^"",3),$P(^(0),""^"",8),'$P(^(0),""^"",18) S ^SOWK(650,""AC"",$P(^SOWK(650,DA,0),""^"",8),$P(^(0),""^"",3),X,DA)="""""
^DD(650,4,1,1,2)="I $P(^SOWK(650,DA,0),""^"",3)]"""",$P(^(0),""^"",8)]"""",$D(^SOWK(650,""AC"",$P(^SOWK(650,DA,0),""^"",8),$P(^(0),""^"",3),X,DA)) K ^SOWK(650,""AC"",$P(^SOWK(650,DA,0),""^"",8),$P(^(0),""^"",3),X,DA)"
^DD(650,4,1,1,"%D",0)="^^2^2^2930120^"
^DD(650,4,1,1,"%D",1,0)="This MUMPS type cross reference is used to clean up the ""AC"" cross reference"
^DD(650,4,1,1,"%D",2,0)="on field #2 (SOCIAL WORKER)."
^DD(650,4,1,1,"DT")="2930120"
^DD(650,4,3)="Enter division where case is opened.  Some VAMCs are multi-divisional."
^DD(650,4,21,0)="^^3^3^2901217^^^^"
^DD(650,4,21,1,0)="This is the number used for AMIS reporting purposes.  In  most cases,"
^DD(650,4,21,2,0)="this number will be different from the regular site number."
^DD(650,4,21,3,0)=" "
^DD(650,4,"DT")="2930120"
^DD(650,4.1,0)="SPECIAL PATIENT POPULATION^NJ1,0XO^^0;14^S Z0=$S($P(^SOWK(650,DA,0),""^"",5):$P(^(0),""^"",5),1:0) K:'Z0 X Q:'Z0  S DIC=""^SOWK(650.1,Z0,2,"",DIC(0)=""QEM"" D ^DIC S X=+Y K:Y'>0 X K DIC,Z0"
^DD(650,4.1,2)="S Y(0)=Y Q:Y']""""  S Z0=$P(^SOWK(650,D0,0),""^"",5) Q:'Z0  S Y=$P(^SOWK(650.1,Z0,2,$P(^(0),""^"",14),0),""^"")"
^DD(650,4.1,2.1)="Q:Y']""""  S Z0=$P(^SOWK(650,D0,0),""^"",5) Q:'Z0  S Y=$P(^SOWK(650.1,Z0,2,$P(^(0),""^"",14),0),""^"")"
^DD(650,4.1,3)="Enter a valid special patient population.  This may not apply to all cases."
^DD(650,4.1,4)="S Z0=$P(^SOWK(650,DA,0),""^"",5),DIC=""^SOWK(650.1,Z0,2,"",DIC(0)=""QEM"" D ^DIC K DIC,Z0"
^DD(650,4.1,21,0)="^^2^2^2910818^^^"
^DD(650,4.1,21,1,0)="This field is used to show what special population the patient"
^DD(650,4.1,21,2,0)="may be a member of, for example, HIV, Homeless, RCH, etc."
^DD(650,4.1,"DT")="2900925"
^DD(650,4.2,0)="DIRECT SERVICE CATEGORY^650.04PA^^5;0"
^DD(650,4.2,21,0)="^^1^1^2930322^^^"
^DD(650,4.2,21,1,0)="This field is used for direct services provided."
^DD(650,4.3,0)="CONSULTATION ONLY^RS^1:YES;0:NO;^0;16^Q"
^DD(650,4.3,3)="Enter '1' for Yes or '0' for No if case is for consultation purposes only."
^DD(650,4.3,21,0)="^^2^2^2910818^^^"
^DD(650,4.3,21,1,0)="This field is used to indicate if the case is for consultation "
^DD(650,4.3,21,2,0)="purposes only."
^DD(650,4.3,"DT")="2891016"
^DD(650,5,0)="TRANSMITTED TO AUSTIN ?^S^1:TRANSMITTED;0:NOT TRANSMITTED;^0;6^Q"
^DD(650,5,3)="This data is not entered directly by VA FileMan."
^DD(650,5,21,0)="^^2^2^2910818^^^^"
^DD(650,5,21,1,0)="This field will flag cases transmitted to Austin, DPC."
^DD(650,5,21,2,0)=" "
^DD(650,5,"DT")="2870515"
^DD(650,6,0)="DIAGNOSTIC CATEGORY^RS^1:MEDICAL/SURGICAL;2:PSYCHOSIS;3:ORGANIC and SENILE BRAIN DISEASE;4:SUBSTANCE ABUSE;5:ALL OTHER;^0;7^Q"
^DD(650,6,3)="Enter diagnostic category which best fits the patient."
^DD(650,6,21,0)="^^2^2^2910818^^^^"
^DD(650,6,21,1,0)="Diagnostic category which best fits the patient."
^DD(650,6,21,2,0)="               [RCH ONLY]"
^DD(650,6,"DT")="2910425"
^DD(650,7,0)="PATIENT NAME^RP2'XI^DPT(^0;8^Q"
^DD(650,7,1,0)="^.1"
^DD(650,7,1,1,0)="650^P"
^DD(650,7,1,1,1)="S ^SOWK(650,""P"",$E(X,1,30),DA)="""""
^DD(650,7,1,1,2)="K ^SOWK(650,""P"",$E(X,1,30),DA)"
^DD(650,7,1,2,0)="650^CP^MUMPS"
^DD(650,7,1,2,1)="S ^SOWK(650,""CP"",$P(^DPT(X,0),""^""),DA)="""""
^DD(650,7,1,2,2)="K ^SOWK(650,""CP"",$P(^DPT(X,0),""^""),DA)"
^DD(650,7,1,2,"%D",0)="^^2^2^2911125^"
^DD(650,7,1,2,"%D",1,0)="This MUMPS cross reference is used to store the patient's full name as stored"
^DD(650,7,1,2,"%D",2,0)="in the MAS Patient File (#2)."
^DD(650,7,1,3,0)="650^BS5^MUMPS"
^DD(650,7,1,3,1)="S:$P(^DPT(X,0),""^"",9)]"""" ^SOWK(650,""BS5"",$E($P(^DPT(X,0),""^""),1)_$E($P(^DPT(X,0),""^"",9),6,9),DA)="""""
^DD(650,7,1,3,2)="K ^SOWK(650,""BS5"",$E($P(^DPT(X,0),""^""),1)_$E($P(^DPT(X,0),""^"",9),6,9),DA)"
^DD(650,7,1,3,"%D",0)="^^1^1^2911125^"
^DD(650,7,1,3,"%D",1,0)="This cross references is for lookups and sorting."
^DD(650,7,3)="This is the name of the patient whose case is being reviewed.  Data is not entered directly by VA FileMan."
^DD(650,7,21,0)="^^2^2^2910818^^^^"
^DD(650,7,21,1,0)="This is the name of the patient."
^DD(650,7,21,2,0)=" "
^DD(650,7,"DT")="2870903"
^DD(650,8,0)="SC STATUS^RS^1:NSC;2:LESS THAN 50% SC;3:SC 50% or MORE;^0;9^Q"
^DD(650,8,3)="Enter the Service Connected Status of the patient."
^DD(650,8,21,0)="^^2^2^2910731^^^^"
^DD(650,8,21,1,0)="This is the Service Connected Status. (RCH only)"
^DD(650,8,21,2,0)=" "
^DD(650,8,"DT")="2850904"
^DD(650,9,0)="COMPETENCY STATUS^RS^I:INCOMPETENT;C:COMPETENT;^0;10^Q"
^DD(650,9,3)="Enter the competency of the patient."
^DD(650,9,21,0)="^^2^2^2910731^^^^"
^DD(650,9,21,1,0)="This is the competency status of the residential care home patient."
^DD(650,9,21,2,0)=" "
^DD(650,9,"DT")="2850904"
^DD(650,10,0)="PRIOR LIVING ARRANGEMENTS^RS^1:OWN HOME;2:VA NHCU;3:VA HOSPITAL- EXCESS OF 60 DAYS;4:NON-VA HOSPITAL;5:VA DOMICILIARY;6:VA CONTRACT NH;7:NON-VA NH;8:NON-VA RESIDENTIAL RESOURCE;9:VA CONTRACT CARE (NON NH);10:OTHER;^0;11^Q"
^DD(650,10,3)="Enter prior living arrangement of patient prior to placement in RCH."
^DD(650,10,21,0)="^^3^3^2910425^^^^"
^DD(650,10,21,1,0)="This is the location of the patient prior to being placed"
^DD(650,10,21,2,0)="in a residential care home.  (RCH only)"
^DD(650,10,21,3,0)=" "
^DD(650,10,"DT")="2910425"
^DD(650,10.1,0)="LEVEL OF CARE^RS^1:LIGHT;2:MODERATE;3:HEAVY;^0;23^Q"
^DD(650,10.1,3)="Enter level of care that patient receives in residential care program."
^DD(650,10.1,21,0)="^^2^2^2900920^"
^DD(650,10.1,21,1,0)="This field is used to show the level of care that a patient receives"
^DD(650,10.1,21,2,0)="while in the residential care home program."
^DD(650,10.1,"DT")="2911108"
^DD(650,11,0)="CORRT^F^^0;12^K:$L(X)>5!($L(X)<5) X"
^DD(650,11,3)="Answer must be 5 characters in length."
^DD(650,11,21,0)="^^2^2^2900705^^^^"
^DD(650,11,21,1,0)="This field is to be used to flag a case in which corrections were made"
^DD(650,11,21,2,0)="for SWARS."
^DD(650,11,"DT")="2901217"
^DD(650,13,0)="DBA NUMBER^F^^0;17^K:$L(X)>5!($L(X)<1) X"
^DD(650,13,3)="Answer must be 1-5 characters in length."
^DD(650,13,21,0)="^^3^3^2910818^^^^"
^DD(650,13,21,1,0)="This field is used to keep track of the Data Base Assessment pointer"
^DD(650,13,21,2,0)="number associated with Case Registry.  This data is not entered directly"
^DD(650,13,21,3,0)="with VA FileMan."
^DD(650,13,"DT")="2910307"
^DD(650,17,0)="CLOSE DATE^RDX^^0;18^S %DT=""EX"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X Q:Y<1  K %DT(0) I X<$P(^SOWK(650,DA,0),""^"",2) W !,""**** CLOSE DATE CANNOT BE EARLIER THAN OPEN DATE ****"",! K X"
^DD(650,17,1,0)="^.1"
^DD(650,17,1,1,0)="650^AD^MUMPS"
^DD(650,17,1,1,1)="Q"
^DD(650,17,1,1,2)="I $P(^SOWK(650,DA,0),""^"",5)]"""",$P(^(0),""^"",8)]"""",$P(^(0),""^"",18) K ^SOWK(650,""AC"",$P(^SOWK(650,DA,0),""^"",8),$P(^(0),""^"",3),$P(^(0),""^"",5),DA)"
^DD(650,17,1,1,"%D",0)="^^2^2^2911125^"
^DD(650,17,1,1,"%D",1,0)="This cross reference is used to kill the 'AC' cross reference when the"
^DD(650,17,1,1,"%D",2,0)="case is closed.  There is no set logic for this cross reference."
^DD(650,17,1,2,0)="650^ACD"
^DD(650,17,1,2,1)="S ^SOWK(650,""ACD"",$E(X,1,30),DA)="""""
^DD(650,17,1,2,2)="K ^SOWK(650,""ACD"",$E(X,1,30),DA)"
^DD(650,17,3)="Enter date case is closed to social worker."
^DD(650,17,21,0)="^^3^3^2900629^^^^"
^DD(650,17,21,1,0)="This is the date closed to a particular social worker.  The close"
^DD(650,17,21,2,0)="date cannot be a future date."
^DD(650,17,21,3,0)=" "
^DD(650,17,"DT")="2900117"
^DD(650,18,0)="PLACEMENT^RS^I:INPATIENT;O:OTHER;N:NO PLACEMENT MADE;^0;19^Q"
^DD(650,18,3)="Enter the type placement for discharge planning."
^DD(650,18,21,0)="^^2^2^2900705^^^^"
^DD(650,18,21,1,0)="This is the placement made based on Problem Discharge/Planning."
^DD(650,18,21,2,0)=" "
^DD(650,18,"DT")="2850904"
^DD(650,19,0)="DISPOSITION of PLACEMENT^RS^1:CNHC;2:CNH-Non VA;3:Domiciliary;4:NHCU;5:Own Home;6:RCH;7:Other;^0;20^Q"
^DD(650,19,3)="Enter the type of disposition due to placement."
^DD(650,19,21,0)="^^1^1^2900705^^^^"
^DD(650,19,21,1,0)="This field shows the disposition of the patient if placement was made."
^DD(650,19,"DT")="2850904"
^DD(650,20,0)="DISPOSITION FROM RCH^RS^1:INDIVIDUAL;2:HOSPITAL;3:OTHER INSTITUTIONAL;4:DEATH;5:TRANSFER;^0;21^Q"
^DD(650,20,3)="Enter the disposition of patient from RCH."
^DD(650,20,21,0)="^^3^3^2900703^^^^"
^DD(650,20,21,1,0)="This field is the patient's disposition from the residential"
^DD(650,20,21,2,0)="care home."
^DD(650,20,21,3,0)=" "
^DD(650,20,"DT")="2870408"
^DD(650,21,0)="RESOURCES/REFERRALS?^S^1:YES;0:NO;^0;22^Q"
^DD(650,21,3)="Enter '1' for YES if resources/referrals are being assigned for the patient, else enter '0' for NO."
^DD(650,21,21,0)="^^2^2^2911230^^^^"
^DD(650,21,21,1,0)="This field is used to indicate if any resources/referrals are being assigned."
^DD(650,21,21,2,0)=" "
^DD(650,21,"DT")="2911230"
^DD(650,23,0)="MISC.^F^^0;24^K:$L(X)>15!($L(X)<1) X"
^DD(650,23,.1)="Miscellaneous"
^DD(650,23,3)="Your answer must be 1 to 15 characters in length.  Enter '??' for a more info."
^DD(650,23,21,0)="^^10^10^2911104^^^^"
^DD(650,23,21,1,0)="This free text field will allow workers to enter identifying information "
^DD(650,23,21,2,0)="on certain cases."
^DD(650,23,21,3,0)=" "
^DD(650,23,21,4,0)="For instance, if a patient is placed in a contract nursing home,"
^DD(650,23,21,5,0)="the worker can use this field to abbreviate the name of the nursing"
^DD(650,23,21,6,0)="home - Civic Center would be Civic.  This field can be used as a ready"
^DD(650,23,21,7,0)="reference to where their cases are.  It can be used to identify special"
^DD(650,23,21,8,0)="categories on wards such as POW, Agent Orange, etc.  This is not a"
^DD(650,23,21,9,0)="mandatory field and can be bypassed."
^DD(650,23,21,10,0)=" "
^DD(650,23,"DT")="2911003"
^DD(650,24,0)="RESOURCE/REFERRALS^650.01PA^^1;0"
^DD(650,24,21,0)="^^2^2^2901227^^^^"
^DD(650,24,21,1,0)="This shows where referrals and number were made."
^DD(650,24,21,2,0)=" "
^DD(650,25,0)="PROBLEM^650.02PA^^2;0"
^DD(650,25,21,0)="^^2^2^2910318^^^^"
^DD(650,25,21,1,0)="This field is used to show problems encountered."
^DD(650,25,21,2,0)=" "
^DD(650,26,0)="REASON CASE IS OPENED^650.03^^3;0"
^DD(650,26,21,0)="^^1^1^2900628^^"
^DD(650,26,21,1,0)="This is a short description of why the case was opened."
^DD(650,28,0)="SPECIAL DATA^F^^4;1^K:$L(X)>20!($L(X)<1) X"
^DD(650,28,3)="Your answer must be 1 to 20 characters in length."
^DD(650,28,21,0)="^^1^1^2900629^"
^DD(650,28,21,1,0)="Not used at this time."
^DD(650,28,"DT")="2850724"
^DD(650,29,0)="SSN^F^^SSN;1^K:$L(X)>9!($L(X)<9)!'(X?9N.N) X"
^DD(650,29,3)="Enter the Social Security Number.  Your answer must be 9 characters long.  Data is not entered directly by VA FileMan."
^DD(650,29,21,0)="^^3^3^2910818^^^^"
^DD(650,29,21,1,0)="This field is to contain the original Social Security Number of the"
^DD(650,29,21,2,0)="patient at the time the case was opened.  This SSN is used when"
^DD(650,29,21,3,0)="reporting to Austin.  This data is not entered directly with VA FileMan."
^DD(650,29,"DT")="2880202"
^DD(650,30,0)="ORIGINAL WORKER'S NUMBER^RF^^SSN;2^K:$L(X)>3!($L(X)<2)!'(X?2N.N) X"
^DD(650,30,3)="Answer must be 2-3 characters in length."
^DD(650,30,21,0)="^^3^3^2910818^^^^"
^DD(650,30,21,1,0)="This field is to contain the original worker's number of the social worker"
^DD(650,30,21,2,0)="at the time the case was opened.  The worker's number is used when"
^DD(650,30,21,3,0)="reporting to Austin.  Data is not entered directly with VA FileMan."
^DD(650,30,"DT")="2910731"
^DD(650,"B","AMIS DIVISION",4)=""
^DD(650,"B","CDC SECTION",3.1)=""
^DD(650,"B","CLOSE DATE",17)=""
^DD(650,"B","COMPETENCY STATUS",9)=""
^DD(650,"B","CONSULTATION ONLY",4.3)=""
^DD(650,"B","CORRT",11)=""
^DD(650,"B","COST DISTRIBUTION CENTER",3)=""
^DD(650,"B","DBA NUMBER",13)=""
^DD(650,"B","DIAGNOSTIC CATEGORY",6)=""
^DD(650,"B","DIRECT SERVICE CATEGORY",4.2)=""
^DD(650,"B","DISPOSITION FROM RCH",20)=""
^DD(650,"B","DISPOSITION of PLACEMENT",19)=""
^DD(650,"B","LEVEL OF CARE",10.1)=""
^DD(650,"B","MISC.",23)=""
^DD(650,"B","Miscellaneous",23)="1"
^DD(650,"B","NUMBER",.01)=""
^DD(650,"B","OPEN DATE",1)=""
^DD(650,"B","ORIGINAL WORKER'S NUMBER",30)=""
^DD(650,"B","PATIENT NAME",7)=""
^DD(650,"B","PLACEMENT",18)=""
^DD(650,"B","PRIOR LIVING ARRANGEMENTS",10)=""
^DD(650,"B","PROBLEM",25)=""
^DD(650,"B","REASON CASE IS OPENED",26)=""
^DD(650,"B","RESOURCE/REFERRALS",24)=""
^DD(650,"B","RESOURCES/REFERRALS?",21)=""
^DD(650,"B","SC STATUS",8)=""
^DD(650,"B","SOCIAL WORKER",2)=""
^DD(650,"B","SPECIAL DATA",28)=""
^DD(650,"B","SPECIAL PATIENT POPULATION",4.1)=""
^DD(650,"B","SSN",29)=""
^DD(650,"B","TRANSMITTED TO AUSTIN ?",5)=""
^DD(650,"GL",0,1,.01)=""
^DD(650,"GL",0,2,1)=""
^DD(650,"GL",0,3,2)=""
^DD(650,"GL",0,4,3)=""
^DD(650,"GL",0,5,4)=""
^DD(650,"GL",0,6,5)=""
^DD(650,"GL",0,7,6)=""
^DD(650,"GL",0,8,7)=""
^DD(650,"GL",0,9,8)=""
^DD(650,"GL",0,10,9)=""
^DD(650,"GL",0,11,10)=""
^DD(650,"GL",0,12,11)=""
^DD(650,"GL",0,13,3.1)=""
^DD(650,"GL",0,14,4.1)=""
^DD(650,"GL",0,16,4.3)=""
^DD(650,"GL",0,17,13)=""
^DD(650,"GL",0,18,17)=""
^DD(650,"GL",0,19,18)=""
^DD(650,"GL",0,20,19)=""
^DD(650,"GL",0,21,20)=""
^DD(650,"GL",0,22,21)=""
^DD(650,"GL",0,23,10.1)=""
^DD(650,"GL",0,24,23)=""
^DD(650,"GL",1,0,24)=""
^DD(650,"GL",2,0,25)=""
^DD(650,"GL",3,0,26)=""
^DD(650,"GL",4,1,28)=""
^DD(650,"GL",5,0,4.2)=""
^DD(650,"GL","SSN",1,29)=""
^DD(650,"GL","SSN",2,30)=""
^DD(650,"IX",.01)=""
^DD(650,"IX",1)=""
^DD(650,"IX",2)=""
^DD(650,"IX",3)=""
^DD(650,"IX",4)=""
^DD(650,"IX",7)=""
^DD(650,"IX",17)=""
^DD(650,"RQ",.01)=""
^DD(650,"RQ",1)=""
^DD(650,"RQ",2)=""
^DD(650,"RQ",3.1)=""
^DD(650,"RQ",4)=""
^DD(650,"RQ",4.3)=""
^DD(650,"RQ",6)=""
^DD(650,"RQ",7)=""
^DD(650,"RQ",8)=""
^DD(650,"RQ",9)=""
^DD(650,"RQ",10)=""
^DD(650,"RQ",10.1)=""
^DD(650,"RQ",17)=""
^DD(650,"RQ",18)=""
^DD(650,"RQ",19)=""
^DD(650,"RQ",20)=""
^DD(650,"RQ",30)=""
^DD(650,"SB",650.01,24)=""
^DD(650,"SB",650.02,25)=""
^DD(650,"SB",650.03,26)=""
^DD(650,"SB",650.04,4.2)=""
^DD(650.01,0)="RESOURCE/REFERRALS SUB-FIELD^NL^2^3"
^DD(650.01,0,"NM","RESOURCE/REFERRALS")=""
^DD(650.01,0,"UP")="650"
^DD(650.01,.01,0)="RESOURCE/REFERRAL^MRP653'X^SOWK(653,^0;1^Q"
^DD(650.01,.01,1,0)="^.1^^0"
^DD(650.01,.01,3)="Enter the type of resource/referral made to the patient."
^DD(650.01,.01,4)=""
^DD(650.01,.01,21,0)="^^2^2^2910424^^^^"
^DD(650.01,.01,21,1,0)="This field is used to show what type of referral was made."
^DD(650.01,.01,21,2,0)=" "
^DD(650.01,.01,"DT")="2910424"
^DD(650.01,1,0)="NUMBER of REFERRALS^RNJ1,0^^0;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(650.01,1,3)="Enter a whole number between 1 and 9."
^DD(650.01,1,21,0)="^^2^2^2900705^^^"
^DD(650.01,1,21,1,0)="This field is used to show the number of the type referrals made."
^DD(650.01,1,21,2,0)=" "
^DD(650.01,1,"DT")="2860221"
^DD(650.01,2,0)="USED/NEEDED UNABLE TO ACCESS^RS^1:USED;0:NEEDED BUT UNABLE TO ACCESS;^0;3^Q"
^DD(650.01,2,21,0)="^^2^2^2911106^^^"
^DD(650.01,2,21,1,0)="This field is used to show if resources/referrals were used or needed"
^DD(650.01,2,21,2,0)="but unable to access."
^DD(650.01,2,"DT")="2891005"
^DD(650.01,"B","NUMBER of REFERRALS",1)=""
^DD(650.01,"B","RESOURCE/REFERRAL",.01)=""
^DD(650.01,"B","USED/NEEDED UNABLE TO ACCESS",2)=""
^DD(650.01,"GL",0,1,.01)=""
^DD(650.01,"GL",0,2,1)=""
^DD(650.01,"GL",0,3,2)=""
^DD(650.01,"RQ",.01)=""
^DD(650.01,"RQ",1)=""
^DD(650.01,"RQ",2)=""
^DD(650.02,0)="PROBLEM SUB-FIELD^NL^1^2"
^DD(650.02,0,"DT")="2910423"
^DD(650.02,0,"IX","B",650.02,.01)=""
^DD(650.02,0,"NM","PROBLEM")=""
^DD(650.02,0,"UP")="650"
^DD(650.02,.01,0)="PROBLEMS ENCOUNTERED^MRP655.201'X^SOWK(655.201,^0;1^Q"
^DD(650.02,.01,1,0)="^.1"
^DD(650.02,.01,1,1,0)="650.02^B"
^DD(650.02,.01,1,1,1)="S ^SOWK(650,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(650.02,.01,1,1,2)="K ^SOWK(650,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(650.02,.01,1,1,"%D",0)="^^1^1^2920108^"
^DD(650.02,.01,1,1,"%D",1,0)="This regular x-ref is used for lookups and sorting."
^DD(650.02,.01,1,1,"DT")="2920108"
^DD(650.02,.01,3)="Enter problem(s) encountered by patient.  Only a maximum of eight problems will be transmitted for individual patient data to Austin.  All problems will be reported for AMIS Segment 255."
^DD(650.02,.01,21,0)="^^4^4^2911010^^^^"
^DD(650.02,.01,21,1,0)="This field is used to show problems encountered."
^DD(650.02,.01,21,2,0)="Only a maximum of eight problems will be reported for individual"
^DD(650.02,.01,21,3,0)="patient data to Austin (SWARS).  All problems will be reported for AMIS"
^DD(650.02,.01,21,4,0)="Segment 255."
^DD(650.02,.01,"DT")="2920108"
^DD(650.02,1,0)="OUTCOME^RP655.203'^SOWK(655.203,^0;2^Q"
^DD(650.02,1,3)="Enter appropriate outcome of psycho-social problem."
^DD(650.02,1,21,0)="^^3^3^2910430^^^^"
^DD(650.02,1,21,1,0)="This is the outcome of the problem.  There should only be one"
^DD(650.02,1,21,2,0)="outcome for each problem."
^DD(650.02,1,21,3,0)=" "
^DD(650.02,1,"DT")="2910423"
^DD(650.02,"B","OUTCOME",1)=""
^DD(650.02,"B","PROBLEMS ENCOUNTERED",.01)=""
^DD(650.02,"GL",0,1,.01)=""
^DD(650.02,"GL",0,2,1)=""
^DD(650.02,"IX",.01)=""
^DD(650.02,"RQ",.01)=""
^DD(650.02,"RQ",1)=""
^DD(650.03,0)="REASON CASE IS OPENED SUB-FIELD^NL^.01^1"
^DD(650.03,0,"NM","REASON CASE IS OPENED")=""
^DD(650.03,0,"UP")="650"
^DD(650.03,.01,0)="REASON CASE IS OPENED^W^^0;1^Q"
^DD(650.03,.01,21,0)="^^1^1^2900319^"
^DD(650.03,.01,21,1,0)="Description of why the case was opened."
^DD(650.03,"B","REASON CASE IS OPENED",.01)=""
^DD(650.03,"GL",0,1,.01)=""
^DD(650.04,0)="DIRECT SERVICE CATEGORY SUB-FIELD^^1^2"
^DD(650.04,0,"DT")="2910426"
^DD(650.04,0,"IX","B",650.04,.01)=""
^DD(650.04,0,"NM","DIRECT SERVICE CATEGORY")=""
^DD(650.04,0,"UP")="650"
^DD(650.04,.01,0)="DIRECT SERVICE CATEGORY^MRP655.202'^SOWK(655.202,^0;1^Q"
^DD(650.04,.01,1,0)="^.1"
^DD(650.04,.01,1,1,0)="650.04^B"
^DD(650.04,.01,1,1,1)="S ^SOWK(650,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(650.04,.01,1,1,2)="K ^SOWK(650,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(650.04,.01,3)="Enter a valid category for direct services provided.  Only a maximum of eight services will be transmitted for individual patient data.  All services will be transmitted for AMIS Segment."
^DD(650.04,.01,21,0)="^^4^4^2910430^^"
^DD(650.04,.01,21,1,0)="This field is used to indicate direct services provided."
^DD(650.04,.01,21,2,0)="Only a maximum of eight services will be transmitted to Austin for"
^DD(650.04,.01,21,3,0)="individual patient data.  All services will be transmitted for AMIS"
^DD(650.04,.01,21,4,0)="Segment 255."
^DD(650.04,.01,"DT")="2910318"
^DD(650.04,1,0)="MANHOURS^RNJ4,0X^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X S:$D(X) X=$E(""000"",$L(X)+1,3)_X"
^DD(650.04,1,3)="Enter the total amount of time, in minutes, spent in direct service.  For example, enter 90 for 1.5 hours or enter 60 for 1 hour."
^DD(650.04,1,21,0)="^^1^1^2930322^^^^"
^DD(650.04,1,21,1,0)="This field is used to show manhours providing services."
^DD(650.04,1,"DT")="2910829"
^DD(650.04,"B","DIRECT SERVICE CATEGORY",.01)=""
^DD(650.04,"B","MANHOURS",1)=""
^DD(650.04,"GL",0,1,.01)=""
^DD(650.04,"GL",0,2,1)=""
^DD(650.04,"IX",.01)=""
^DD(650.04,"RQ",.01)=""
^DD(650.04,"RQ",1)=""
^DD(650.1,0)="FIELD^^22^29"
^DD(650.1,0,"DDA")="N"
^DD(650.1,0,"DT")="2931201"
^DD(650.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(650.1,0,"IX","B",650.1,.01)=""
^DD(650.1,0,"IX","C",650.1,1)=""
^DD(650.1,0,"IX","C",650.17,1)=""
^DD(650.1,0,"IX","W",650.11,.01)=""
^DD(650.1,0,"NM","SOCIAL WORK SITE PARAMETERS")=""
^DD(650.1,0,"PT",650,4)=""
^DD(650.1,0,"VR")="3.0"
^DD(650.1,.01,0)="SITE NAME^RFI^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(650.1,.01,1,0)="^.1"
^DD(650.1,.01,1,1,0)="650.1^B"
^DD(650.1,.01,1,1,1)="S ^SOWK(650.1,""B"",$E(X,1,30),DA)="""""
^DD(650.1,.01,1,1,2)="K ^SOWK(650.1,""B"",$E(X,1,30),DA)"
^DD(650.1,.01,3)="Your answer must be 3 to 20 characters in length."
^DD(650.1,.01,21,0)="^^1^1^2860212^"
^DD(650.1,.01,21,1,0)="Enter site for the Social Work service."
^DD(650.1,.01,"DT")="2900917"
^DD(650.1,1,0)="AMIS SITE SUFFIX^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1)!(X?.N)!'(X?1.2U!(X?1U1N)) X"
^DD(650.1,1,.1)="SUFFIX"
^DD(650.1,1,1,0)="^.1"
^DD(650.1,1,1,1,0)="650.1^C"
^DD(650.1,1,1,1,1)="S ^SOWK(650.1,""C"",$E(X,1,30),DA)="""""
^DD(650.1,1,1,1,2)="K ^SOWK(650.1,""C"",$E(X,1,30),DA)"
^DD(650.1,1,1,1,"%D",0)="^^1^1^2911125^^^^"
^DD(650.1,1,1,1,"%D",1,0)="This cross reference is used for quick lookups."
^DD(650.1,1,1,1,"DT")="2910528"
^DD(650.1,1,3)="Answer must be 1-2 upper case characters or one upper case letter and one number"
^DD(650.1,1,21,0)="^^5^5^2930408^^^^"
^DD(650.1,1,21,1,0)="The AMIS site suffix is the one or two upper case characters that identifies"
^DD(650.1,1,21,2,0)="the facility.  The three digit facility number may be 521, the suffix may"
^DD(650.1,1,21,3,0)="be 'RQ' or 'Q' for the primary facility, which translates into 521RQ OR 521Q."
^DD(650.1,1,21,4,0)="The satellite clinic suffix may be 'RS' or 'S' which translates into 521RS "
^DD(650.1,1,21,5,0)="or 521S.  Only the suffix need be entered."
^DD(650.1,1,"DT")="2960924"
^DD(650.1,1.5,0)="DOES CLERK ENTER ALL CASES?^S^1:YES;0:NO;^0;19^Q"
^DD(650.1,1.5,3)="Enter '1' for Yes if the social work clerk/secretary will open cases for the service, else enter '0' for No."
^DD(650.1,1.5,21,0)="^^4^4^2911126^^^"
^DD(650.1,1.5,21,1,0)="This field will be used to restrict the entering of case data to the social "
^DD(650.1,1.5,21,2,0)="worker that is opening, closing and making corrections to cases.  If the "
^DD(650.1,1.5,21,3,0)="social work clerk/secretary is the person that will be opening cases, this "
^DD(650.1,1.5,21,4,0)="field must be answered 'Yes'."
^DD(650.1,1.5,"DT")="2910116"
^DD(650.1,2,0)="AUTOMATIC TRANSMISSION^RS^1:YES;0:NO;^0;3^Q"
^DD(650.1,2,3)="Enter '1' for YES or '0' for NO to indicate if site is transmitting to Austin."
^DD(650.1,2,21,0)="^^5^5^2911204^^^^"
^DD(650.1,2,21,1,0)="This field will be used to indicate if your site is transmitting"
^DD(650.1,2,21,2,0)="electronically using DHCP.  If 'YES' is entered, cases will only be "
^DD(650.1,2,21,3,0)="deleted if cases are closed and transmitted to Austin.  If 'NO' is entered,"
^DD(650.1,2,21,4,0)="all closed cases will be deleted."
^DD(650.1,2,21,5,0)=" "
^DD(650.1,2,"DT")="2890712"
^DD(650.1,2.5,0)="USE OF AGE LEVEL^S^1:YES;0:NO;^0;20^Q"
^DD(650.1,2.5,3)="Enter 1 for YES or 0 for N0 if age level will be used as a high risk indicator."
^DD(650.1,2.5,21,0)="^^2^2^2890920^^"
^DD(650.1,2.5,21,1,0)="This field will be used to indicate if the age level of the patient will be "
^DD(650.1,2.5,21,2,0)="used as a high risk indicator."
^DD(650.1,2.5,"DT")="2890912"
^DD(650.1,3,0)="AGE LEVEL^RNJ2,0^^0;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(650.1,3,3)="Type a Number between 0 and 99."
^DD(650.1,3,21,0)="^^1^1^2900223^^^^"
^DD(650.1,3,21,1,0)="This field is used for a possible high-risk criteria."
^DD(650.1,3,"DT")="2900223"
^DD(650.1,3.5,0)="INCOME LESS THAN LOCAL AMOUNT^S^1:YES;0:NO;^0;14^Q"
^DD(650.1,3.5,3)="Enter 1 for YES or 0 for NO if income level will be used for a high risk indicator."
^DD(650.1,3.5,21,0)="^^2^2^2890920^^^"
^DD(650.1,3.5,21,1,0)="This field is to be used to indicate if the income level of the patient"
^DD(650.1,3.5,21,2,0)="will be used as a high risk indicator."
^DD(650.1,3.5,"DT")="2890920"
^DD(650.1,4,0)="INCOME LEVEL^RNJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(650.1,4,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits."
^DD(650.1,4,21,0)="^^1^1^2911126^^^^"
^DD(650.1,4,21,1,0)="Minimum income level for possible high-risk criteria."
^DD(650.1,4,"DT")="2900703"
^DD(650.1,4.5,0)="USE OF HIGH-RISK WARD(S)^S^1:YES;0:NO;^0;7^Q"
^DD(650.1,4.5,3)="Enter 1 for Yes or 0 for No if wards will be used for high risk indicators."
^DD(650.1,4.5,21,0)="^^1^1^2910818^^^"
^DD(650.1,4.5,21,1,0)="This field is used to indicate if wards will be used as high risk indicators."
^DD(650.1,4.5,"DT")="2890920"
^DD(650.1,5,0)="HIGH-RISK WARD(S)^650.11P^^1;0"
^DD(650.1,5,21,0)="^^1^1^2900911^^^^"
^DD(650.1,5,21,1,0)="Ward(s) that may be used for possible high-risk criteria."
^DD(650.1,6,0)="TIE DATA BASE ASSESSMENT TO CASE REGISTRY ?^S^1:YES;0:NO;^0;6^Q"
^DD(650.1,6,.1)="CLINICAL ASSESSMENT TIED TO CASE MANAGEMENT SYSTEM?"
^DD(650.1,6,3)="Enter '1' for YES if the Data Base Assessment/Clinical Summary data will be tied to the Case Management System, else enter '0' for NO."
^DD(650.1,6,21,0)="^^3^3^2911101^^^^"
^DD(650.1,6,21,1,0)="This field will be used to determine if Case Management System will be"
^DD(650.1,6,21,2,0)="associated to Clinical Assessment Module."
^DD(650.1,6,21,3,0)=" "
^DD(650.1,6,"DT")="2910717"
^DD(650.1,6.5,0)="SPECIAL PATIENT POPULATIONS^650.17I^^2;0"
^DD(650.1,6.5,21,0)="^^3^3^2910818^^^"
^DD(650.1,6.5,21,1,0)="This field will contain special population entries used to"
^DD(650.1,6.5,21,2,0)="identify certain patients (e.g., Homeless, HIV/AIDS, Native American "
^DD(650.1,6.5,21,3,0)="and Spinal Cord Injury (SCI))."
^DD(650.1,7,0)="NSC INSURANCE^S^1:YES;0:NO;^0;8^Q"
^DD(650.1,7,3)="Enter 1 for Yes or 0 for No if non service connected insurance will be used for high risk indicator."
^DD(650.1,7,21,0)="^^2^2^2890920^^^"
^DD(650.1,7,21,1,0)="This field is to be used to indicate if non service connected insurance"
^DD(650.1,7,21,2,0)="will be used as a high risk indicator."
^DD(650.1,7,"DT")="2890920"
^DD(650.1,8,0)="FEMALE^S^1:YES;0:NO;^0;9^Q"
^DD(650.1,8,3)="Enter 1 for Yes or 0 for No if female sex will be used for high risk indicator."
^DD(650.1,8,21,0)="^^1^1^2890920^^"
^DD(650.1,8,21,1,0)="This field is to be used to indicate if the female sex is a high risk indicator."
^DD(650.1,8,"DT")="2890920"
^DD(650.1,9,0)="AGE 70 OR > & 2 OR MORE OPC^S^1:YES;0:NO;^0;10^Q"
^DD(650.1,9,3)="Enter 1 for YES or 0 for NO if this field will be used for a high risk indicator."
^DD(650.1,9,21,0)="^^2^2^2910731^^^"
^DD(650.1,9,21,1,0)="This field is used to indicate if age 70 or greater and two or more OPT"
^DD(650.1,9,21,2,0)="clinics will be used as a high risk indicator."
^DD(650.1,9,"DT")="2890920"
^DD(650.1,10,0)="GENERAL DELIVERY ADDRESS^S^1:YES;0:NO;^0;11^Q"
^DD(650.1,10,3)="Enter 1 for YES or 0 for NO if general delivery address will be used for a high risk indicator."
^DD(650.1,10,21,0)="^^2^2^2900629^^^"
^DD(650.1,10,21,1,0)="This is to be used to indicate if the general delivery address"
^DD(650.1,10,21,2,0)="will be used as a high risk indicator."
^DD(650.1,10,"DT")="2890920"
^DD(650.1,11,0)="NO ADDRESS^S^1:YES;0:NO;^0;12^Q"
^DD(650.1,11,3)="Enter 1 for YES or 0 for NO if 'No Address' will be used for a high risk indicator."
^DD(650.1,11,21,0)="^^2^2^2900629^^^"
^DD(650.1,11,21,1,0)="This field is to be used to indicate if a patient has 'no address' as a "
^DD(650.1,11,21,2,0)="high risk indicator."
^DD(650.1,11,"DT")="2890920"
^DD(650.1,12,0)="NO TEMPORARY ADDRESS^S^1:YES;0:NO;^0;13^Q"
^DD(650.1,12,3)="Enter 1 for YES or 0 for NO if 'no temporary address' will be used for a high risk indicator."
^DD(650.1,12,21,0)="^^2^2^2900629^^^"
^DD(650.1,12,21,1,0)="This field is to be used to indicate if no 'temporary address' is available"
^DD(650.1,12,21,2,0)="as a high risk indicator provided there is not a permanent address."
^DD(650.1,12,"DT")="2890920"
^DD(650.1,13,0)="IRREGULAR DISCHARGE^S^1:YES;0:NO;^0;15^Q"
^DD(650.1,13,3)="Enter 1 for Yes or 0 for No if irregular discharge will be used as a high risk indicator."
^DD(650.1,13,21,0)="^^2^2^2910818^^^"
^DD(650.1,13,21,1,0)="This field is to be used to indicate if irregular discharge will be used as"
^DD(650.1,13,21,2,0)="a high risk indicator."
^DD(650.1,13,"DT")="2890920"
^DD(650.1,14,0)="SAME DIAGNOSIS IN ONE MONTH^S^1:YES;0:NO;^0;16^Q"
^DD(650.1,14,3)="Enter 1 for Yes or 0 for No if readmitted within one month with same diagnosis will be used as a high risk indicator."
^DD(650.1,14,21,0)="^^2^2^2900705^^^^"
^DD(650.1,14,21,1,0)="This field is to be used to indicate if patient was re-admitted"
^DD(650.1,14,21,2,0)="within one month for same diagnosis as a high risk indicator."
^DD(650.1,14,"DT")="2890920"
^DD(650.1,15,0)="RCH/CNH AND SEEN BY SWS^S^1:YES;0:NO;^0;17^Q"
^DD(650.1,15,3)="Enter 1 for YES or 0 for NO if this will be a high risk indicator."
^DD(650.1,15,21,0)="^^2^2^2910220^^^^"
^DD(650.1,15,21,1,0)="This field is to be used to indicate if patient has been seen by social work "
^DD(650.1,15,21,2,0)="service and AMIS location equals RCH or CNH."
^DD(650.1,15,"DT")="2910220"
^DD(650.1,16,0)="ADMISSION DUE TO ACCIDENT^S^1:YES;0:NO;^0;18^Q"
^DD(650.1,16,3)="Enter 1 for Yes or 0 for No if admission due to accident will be used as a high risk indicator."
^DD(650.1,16,21,0)="^^2^2^2910818^^^^"
^DD(650.1,16,21,1,0)="This field will be used to indicate if 'Admission Due To Accident' will"
^DD(650.1,16,21,2,0)="be used as a high risk indicator."
^DD(650.1,16,"DT")="2890920"
^DD(650.1,16.5,0)="SOCIAL WORK HOSPITAL LOCATIONS^650.12PA^^3;0"
^DD(650.1,16.5,21,0)="^^2^2^2910731^^^"
^DD(650.1,16.5,21,1,0)="This field is used to show what hospital locations that social work"
^DD(650.1,16.5,21,2,0)="will receive credit for outpatient visits (clinic stops)."
^DD(650.1,16.5,"DT")="2910220"
^DD(650.1,17,0)="PACKAGE VERSION^FI^^VER;1^K:$L(X)>5!($L(X)<3) X"
^DD(650.1,17,3)="Answer must be 3-5 characters in length.  Enter current version of software installed."
^DD(650.1,17,21,0)="^^1^1^2910731^^^^"
^DD(650.1,17,21,1,0)="This field will be used to store the current version of installed software."
^DD(650.1,17,"DT")="2910220"
^DD(650.1,18,0)="ELAPSED DAYS^NJ2,0^^0;21^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(650.1,18,3)="Enter a number between 0 and 60 for number of elapsed days.  The elapsed days are the number of days between admission and case opening."
^DD(650.1,18,21,0)="^^3^3^2911106^^^^"
^DD(650.1,18,21,1,0)="This field can be used to screen cases based on elapsed days.  Elapsed days"
^DD(650.1,18,21,2,0)="are the number of days between patient admission to the medical center"
^DD(650.1,18,21,3,0)="and when a case is opened by social work service."
^DD(650.1,18,"DT")="2910618"
^DD(650.1,19,0)="CLINICS^650.119PA^^4;0"
^DD(650.1,19,21,0)="^^2^2^2931201^^^^"
^DD(650.1,19,21,1,0)="This field is used to enter social work service named clinics.  These"
^DD(650.1,19,21,2,0)="clinics will be used to count outpatient visits to social work service."
^DD(650.1,20,0)="ARE MANHOURS TO BE COUNTED?^S^1:YES, COUNT MANHOURS;0:NO, DO NOT COUNT MANHOURS;^0;22^Q"
^DD(650.1,20,3)="Enter '1' or 'YES' if manhours are to be counted for Direct Services provided to veterans."
^DD(650.1,20,21,0)="^^2^2^2911003^"
^DD(650.1,20,21,1,0)="This field is used to allow manhours to be counted for direct services"
^DD(650.1,20,21,2,0)="provided to veteran."
^DD(650.1,20,"DT")="2911003"
^DD(650.1,21,0)="ASK PROBLEMS ON OPENINGS?^S^1:YES, ASK PROBLEMS ON OPENINGS;0:NO, DO NOT ASK ON OPENINGS;^0;23^Q"
^DD(650.1,21,3)="Enter '1' or 'Yes' if psycho-social problems are to be asked when cases are opened."
^DD(650.1,21,21,0)="^^4^4^2911104^^^"
^DD(650.1,21,21,1,0)="This field is used to determine if psycho-social problems are asked when"
^DD(650.1,21,21,2,0)="cases are opened.  If yes is entered a preliminary problem list may be"
^DD(650.1,21,21,3,0)="entered when cases are being opened.  When the cases are being closed"
^DD(650.1,21,21,4,0)="this preliminary list can be edited and outcomes to problems added."
^DD(650.1,21,"DT")="2911003"
^DD(650.1,22,0)="SERVICES PROVIDED ON OPENINGS?^S^1:YES;0:NO;^0;24^Q"
^DD(650.1,22,3)="Enter '1' or 'Yes' if direct services are to be asked when cases are opened."
^DD(650.1,22,21,0)="^^4^4^2911126^^"
^DD(650.1,22,21,1,0)="This field is used to determine if direct services provided are asked when"
^DD(650.1,22,21,2,0)="cases are opened.  If yes is entered, a preliminary list of services may be"
^DD(650.1,22,21,3,0)="entered when cases are being opened.  When the cases are being closed this"
^DD(650.1,22,21,4,0)="preliminary list can be edited."
^DD(650.1,22,"DT")="2911003"
^DD(650.1,"B","ADMISSION DUE TO ACCIDENT",16)=""
^DD(650.1,"B","AGE 70 OR > & 2 OR MORE OPC",9)=""
^DD(650.1,"B","AGE LEVEL",3)=""
^DD(650.1,"B","AMIS SITE SUFFIX",1)=""
^DD(650.1,"B","ARE MANHOURS TO BE COUNTED?",20)=""
^DD(650.1,"B","ASK PROBLEMS ON OPENINGS?",21)=""
^DD(650.1,"B","AUTOMATIC TRANSMISSION",2)=""
^DD(650.1,"B","CLINICS",19)=""
^DD(650.1,"B","DOES CLERK ENTER ALL CASES?",1.5)=""
^DD(650.1,"B","ELAPSED DAYS",18)=""
^DD(650.1,"B","FEMALE",8)=""
^DD(650.1,"B","GENERAL DELIVERY ADDRESS",10)=""
^DD(650.1,"B","HIGH-RISK WARD(S)",5)=""
^DD(650.1,"B","INCOME LESS THAN LOCAL AMOUNT",3.5)=""
^DD(650.1,"B","INCOME LEVEL",4)=""
^DD(650.1,"B","IRREGULAR DISCHARGE",13)=""
^DD(650.1,"B","NO ADDRESS",11)=""
^DD(650.1,"B","NO TEMPORARY ADDRESS",12)=""
^DD(650.1,"B","NSC INSURANCE",7)=""
^DD(650.1,"B","PACKAGE VERSION",17)=""
^DD(650.1,"B","RCH/CNH AND SEEN BY SWS",15)=""
^DD(650.1,"B","SAME DIAGNOSIS IN ONE MONTH",14)=""
^DD(650.1,"B","SERVICES PROVIDED ON OPENINGS?",22)=""
^DD(650.1,"B","SITE NAME",.01)=""
^DD(650.1,"B","SOCIAL WORK HOSPITAL LOCATIONS",16.5)=""
^DD(650.1,"B","SPECIAL PATIENT POPULATIONS",6.5)=""
^DD(650.1,"B","SUFFIX",1)="1"
^DD(650.1,"B","TIE DATA BASE ASSESSMENT TO CASE REGISTRY ?",6)=""
^DD(650.1,"B","USE OF AGE LEVEL",2.5)=""
^DD(650.1,"B","USE OF HIGH-RISK WARD(S)",4.5)=""
^DD(650.1,"GL",0,1,.01)=""
^DD(650.1,"GL",0,2,1)=""
^DD(650.1,"GL",0,3,2)=""
^DD(650.1,"GL",0,4,3)=""
^DD(650.1,"GL",0,5,4)=""
^DD(650.1,"GL",0,6,6)=""
^DD(650.1,"GL",0,7,4.5)=""
^DD(650.1,"GL",0,8,7)=""
^DD(650.1,"GL",0,9,8)=""
^DD(650.1,"GL",0,10,9)=""
^DD(650.1,"GL",0,11,10)=""
^DD(650.1,"GL",0,12,11)=""
^DD(650.1,"GL",0,13,12)=""
^DD(650.1,"GL",0,14,3.5)=""
^DD(650.1,"GL",0,15,13)=""
^DD(650.1,"GL",0,16,14)=""
^DD(650.1,"GL",0,17,15)=""
^DD(650.1,"GL",0,18,16)=""
^DD(650.1,"GL",0,19,1.5)=""
^DD(650.1,"GL",0,20,2.5)=""
^DD(650.1,"GL",0,21,18)=""
^DD(650.1,"GL",0,22,20)=""
^DD(650.1,"GL",0,23,21)=""
^DD(650.1,"GL",0,24,22)=""
^DD(650.1,"GL",1,0,5)=""
^DD(650.1,"GL",2,0,6.5)=""
^DD(650.1,"GL",3,0,16.5)=""
^DD(650.1,"GL",4,0,19)=""
^DD(650.1,"GL","VER",1,17)=""
^DD(650.1,"IX",.01)=""
^DD(650.1,"IX",1)=""
^DD(650.1,"RQ",.01)=""
^DD(650.1,"RQ",2)=""
^DD(650.1,"RQ",3)=""
^DD(650.1,"RQ",4)=""
^DD(650.1,"SB",650.11,5)=""
^DD(650.1,"SB",650.119,19)=""
^DD(650.1,"SB",650.12,16.5)=""
^DD(650.1,"SB",650.17,6.5)=""
^DD(650.11,0)="HIGH-RISK WARD(S) SUB-FIELD^NL^.01^1"
^DD(650.11,0,"NM","HIGH-RISK WARD(S)")=""
^DD(650.11,0,"UP")="650.1"
^DD(650.11,.01,0)="HIGH-RISK WARD(S)^MRP42'^DIC(42,^0;1^Q"
^DD(650.11,.01,1,0)="^.1"
^DD(650.11,.01,1,1,0)="650.1^W"
^DD(650.11,.01,1,1,1)="S ^SOWK(650.1,""W"",$E(X,1,30),DA(1),DA)="""""
^DD(650.11,.01,1,1,2)="K ^SOWK(650.1,""W"",$E(X,1,30),DA(1),DA)"
^DD(650.11,.01,3)="Enter ward that may be used for high-risk criteria."
^DD(650.11,.01,21,0)="^^2^2^2900911^^^^"
^DD(650.11,.01,21,1,0)="This field will be used to select multiple wards to track patients"
^DD(650.11,.01,21,2,0)="admitted that may be in a high risk category. "
^DD(650.11,.01,"DT")="2890920"
^DD(650.11,"B","HIGH-RISK WARD(S)",.01)=""
^DD(650.11,"GL",0,1,.01)=""
^DD(650.11,"IX",.01)=""
^DD(650.11,"RQ",.01)=""
^DD(650.119,0)="CLINICS SUB-FIELD^^.01^1"
^DD(650.119,0,"DT")="2931201"
^DD(650.119,0,"IX","B",650.119,.01)=""
^DD(650.119,0,"NM","CLINICS")=""
^DD(650.119,0,"UP")="650.1"
^DD(650.119,.01,0)="SOCIAL WORK CLINICS^M*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C""""&($P(^(0),U,7))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(650.119,.01,1,0)="^.1"
^DD(650.119,.01,1,1,0)="650.119^B"
^DD(650.119,.01,1,1,1)="S ^SOWK(650.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(650.119,.01,1,1,2)="K ^SOWK(650.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(650.119,.01,3)="Enter name of Social Work named clinic."
^DD(650.119,.01,12)="This screens out invalid social work clinics."
^DD(650.119,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C""""&($P(^(0),U,7))"""
^DD(650.119,.01,21,0)="^^2^2^2931201^^^^"
^DD(650.119,.01,21,1,0)="This field is used to store the name of social work clinics.  These clinics"
^DD(650.119,.01,21,2,0)="are used to give social work service credit for outpatient visits."
^DD(650.119,.01,"DT")="2931201"
^DD(650.119,"B","SOCIAL WORK CLINICS",.01)=""
^DD(650.119,"GL",0,1,.01)=""
^DD(650.119,"IX",.01)=""
^DD(650.12,0)="SOCIAL WORK HOSPITAL LOCATIONS SUB-FIELD^^1^2"
^DD(650.12,0,"DT")="2911029"
^DD(650.12,0,"IX","B",650.12,.01)=""
^DD(650.12,0,"NM","SOCIAL WORK HOSPITAL LOCATIONS")=""
^DD(650.12,0,"UP")="650.1"
^DD(650.12,.01,0)="CDC LOCATION^MR*P651'^SOWK(651,^0;1^S DIC(""S"")=""I '$P(^SOWK(651,+Y,0),""""^"""",2),$P(^(0),""""^"""",5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(650.12,.01,1,0)="^.1"
^DD(650.12,.01,1,1,0)="650.12^B"
^DD(650.12,.01,1,1,1)="S ^SOWK(650.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(650.12,.01,1,1,2)="K ^SOWK(650.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(650.12,.01,3)="Enter CDC location that the social worker is assigned to."
^DD(650.12,.01,12)="Only active cost distribution centers are to be selected."
^DD(650.12,.01,12.1)="S DIC(""S"")=""I '$P(^SOWK(651,+Y,0),""""^"""",2),$P(^(0),""""^"""",5)"""
^DD(650.12,.01,21,0)="^^2^2^2911029^^^^"
^DD(650.12,.01,21,1,0)="This field will be used to show the CDC associated with social"
^DD(650.12,.01,21,2,0)="work service."
^DD(650.12,.01,"DT")="2911029"
^DD(650.12,1,0)="WORKER^650.121IPA^^1;0"
^DD(650.12,1,12)="Only valid social workers are to be selected."
^DD(650.12,1,12.1)="S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^VA(200,+Y,654),""""^"""")"""
^DD(650.12,1,21,0)="^^2^2^2910220^^"
^DD(650.12,1,21,1,0)="This field is used to show workers that are assigned to certain hospital"
^DD(650.12,1,21,2,0)="location for outpatient visits."
^DD(650.12,"B","CDC LOCATION",.01)=""
^DD(650.12,"B","WORKER",1)=""
^DD(650.12,"GL",0,1,.01)=""
^DD(650.12,"GL",1,0,1)=""
^DD(650.12,"IX",.01)=""
^DD(650.12,"RQ",.01)=""
^DD(650.12,"SB",650.121,1)=""
^DD(650.121,0)="WORKER SUB-FIELD^^1^2"
^DD(650.121,0,"DT")="2910220"
^DD(650.121,0,"IX","B",650.121,.01)=""
^DD(650.121,0,"NM","WORKER")=""
^DD(650.121,0,"UP")="650.12"
^DD(650.121,.01,0)="WORKER^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^VA(200,+Y,654),""""^"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(650.121,.01,1,0)="^.1"
^DD(650.121,.01,1,1,0)="650.121^B"
^DD(650.121,.01,1,1,1)="S ^SOWK(650.1,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(650.121,.01,1,1,2)="K ^SOWK(650.1,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(650.121,.01,3)="Enter social worker's name that is assigned to the hospital location."
^DD(650.121,.01,12)="Only valid social workers are to be selected."
^DD(650.121,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^VA(200,+Y,654),""""^"""")"""
^DD(650.121,.01,21,0)="^^2^2^2910220^^"
^DD(650.121,.01,21,1,0)="This field is used to show the worker assigned to a hospital location for"
^DD(650.121,.01,21,2,0)="outpatient visits."
^DD(650.121,.01,"DT")="2910219"
^DD(650.121,1,0)="ACTUAL FTEE OF LOCATION^NJ4,2^^0;2^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(650.121,1,3)="Type a Number between 0 and 1 (.33 or .25, or 1)."
^DD(650.121,1,21,0)="^^2^2^2930614^^^^"
^DD(650.121,1,21,1,0)="This field is used to show the percentage of time spent at CDC location"
^DD(650.121,1,21,2,0)="for this worker."
^DD(650.121,1,"DT")="2910314"
^DD(650.121,"B","ACTUAL FTEE OF LOCATION",1)=""
^DD(650.121,"B","WORKER",.01)=""
^DD(650.121,"GL",0,1,.01)=""
^DD(650.121,"GL",0,2,1)=""
^DD(650.121,"IX",.01)=""
^DD(650.17,0)="SPECIAL PATIENT POPULATIONS SUB-FIELD^^1^2"
^DD(650.17,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(650.17,0,"IX","B",650.17,.01)=""
^DD(650.17,0,"IX","C",650.17,1)=""
^DD(650.17,0,"NM","SPECIAL PATIENT POPULATIONS")=""
^DD(650.17,0,"UP")="650.1"
^DD(650.17,.01,0)="SPECIAL PATIENT POPULATION^MF^^0;1^K:$L(X)>35!($L(X)<3) X"
^DD(650.17,.01,1,0)="^.1"
^DD(650.17,.01,1,1,0)="650.17^B"
^DD(650.17,.01,1,1,1)="S ^SOWK(650.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(650.17,.01,1,1,2)="K ^SOWK(650.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(650.17,.01,3)="Answer must be 3-35 characters in length."
^DD(650.17,.01,21,0)="^^2^2^2910818^^^^"
^DD(650.17,.01,21,1,0)="Special population that patient may be a member of, for example, Homeless,"
^DD(650.17,.01,21,2,0)="HIV+/AIDS, Native American, and SCI."
^DD(650.17,.01,"DT")="2890711"
^DD(650.17,1,0)="CODE^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N.N) X I $D(X),$D(^SOWK(650.1,DA(1),2,""C"",X)) W *7,!,""NUMBER ALREADY ASSIGNED !!"",! K X"
^DD(650.17,1,1,0)="^.1"
^DD(650.17,1,1,1,0)="650.17^C"
^DD(650.17,1,1,1,1)="S ^SOWK(650.1,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(650.17,1,1,1,2)="K ^SOWK(650.1,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(650.17,1,1,1,"DT")="2910425"
^DD(650.17,1,3)="Enter code 01 through 99."
^DD(650.17,1,4)=""
^DD(650.17,1,21,0)="^^1^1^2900705^^^^"
^DD(650.17,1,21,1,0)="Unique number assigned to special patient population category."
^DD(650.17,1,"DT")="2960924"
^DD(650.17,"B","CODE",1)=""
^DD(650.17,"B","SPECIAL PATIENT POPULATION",.01)=""
^DD(650.17,"GL",0,1,.01)=""
^DD(650.17,"GL",0,2,1)=""
^DD(650.17,"IX",.01)=""
^DD(650.17,"IX",1)=""
^DD(650.17,"RQ",1)=""
^DD(651,0)="FIELD^^7^8"
^DD(651,0,"DDA")="N"
^DD(651,0,"DT")="2941114"
^DD(651,0,"ID",3)="W ""  "",$P(^(0),U,4)"
^DD(651,0,"IX","AC",651,4)=""
^DD(651,0,"IX","AN",651,2)=""
^DD(651,0,"IX","B",651,.01)=""
^DD(651,0,"IX","C",651,3)=""
^DD(651,0,"NM","COST DISTRIBUTION CENTER")=""
^DD(651,0,"PT",650,3.1)=""
^DD(651,0,"PT",650.12,.01)=""
^DD(651,0,"PT",651,2)=""
^DD(651,0,"VR")="3.0"
^DD(651,.01,0)="COST DISTRIBUTION CENTER NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(651,.01,1,0)="^.1"
^DD(651,.01,1,1,0)="651^B"
^DD(651,.01,1,1,1)="S ^SOWK(651,""B"",$E(X,1,30),DA)="""""
^DD(651,.01,1,1,2)="K ^SOWK(651,""B"",$E(X,1,30),DA)"
^DD(651,.01,2)="S Y(0)=Y S Y=$E(Y,4,99)"
^DD(651,.01,2.1)="S Y=$E(Y,4,99)"
^DD(651,.01,3)="Answer must be 3-50 characters in length."
^DD(651,.01,21,0)="^^1^1^2911106^^^^"
^DD(651,.01,21,1,0)="This field contains name of the CDC account."
^DD(651,.01,"DEL",4000,0)="I $D(^SOWK(651,DA,0))#2 W *7,"" <DELETIONS NOT ALLOWED>"" Q"
^DD(651,.01,"DT")="2911101"
^DD(651,1,0)="TYPE^RS^1:PRIMARY;0:SECONDARY;^0;2^Q"
^DD(651,1,3)="Enter the type of CDC Account (i.e., '1' for Primary, '0' for Secondary)."
^DD(651,1,4)=""
^DD(651,1,21,0)="^^1^1^2931115^^^"
^DD(651,1,21,1,0)="This field is used to indicate if the CDC is primary or secondary."
^DD(651,1,"DT")="2901217"
^DD(651,2,0)="PRIMARY^R*P651'^SOWK(651,^0;3^S DIC(""S"")=""I $P(^(0),""""^"""",2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(651,2,1,0)="^.1"
^DD(651,2,1,1,0)="651^AN"
^DD(651,2,1,1,1)="S ^SOWK(651,""AN"",$E(X,1,30),DA)="""""
^DD(651,2,1,1,2)="K ^SOWK(651,""AN"",$E(X,1,30),DA)"
^DD(651,2,3)="Enter primary CDC account name."
^DD(651,2,12)="Only primary CDC names are to be selected."
^DD(651,2,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)"""
^DD(651,2,21,0)="^^1^1^2931115^^^"
^DD(651,2,21,1,0)="This field is used to show the primary cost distribution center."
^DD(651,2,"DT")="2901217"
^DD(651,3,0)="COST DISTRIBUTION ACCOUNT #^RFX^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7) X"
^DD(651,3,1,0)="^.1^^-1"
^DD(651,3,1,1,0)="651^C"
^DD(651,3,1,1,1)="S ^SOWK(651,""C"",$E(X,1,30),DA)="""""
^DD(651,3,1,1,2)="K ^SOWK(651,""C"",$E(X,1,30),DA)"
^DD(651,3,3)="Answer must be 7 characters in length.  Enter a four digit number followed by two decimals (e.g., 1234.00)."
^DD(651,3,21,0)="^^1^1^2911106^^"
^DD(651,3,21,1,0)="This field is used for the cost distribution account number."
^DD(651,3,"DT")="2941114"
^DD(651,4,0)="ACCOUNT ACTIVE ?^S^1:YES;0:NO;^0;5^Q"
^DD(651,4,1,0)="^.1"
^DD(651,4,1,1,0)="651^AC^MUMPS"
^DD(651,4,1,1,1)="I X S ^SOWK(651,""AC"",DA)="""""
^DD(651,4,1,1,2)="K ^SOWK(651,""AC"",DA)"
^DD(651,4,1,1,"%D",0)="^^1^1^2911108^"
^DD(651,4,1,1,"%D",1,0)="This cross reference is used to index active CDC accounts."
^DD(651,4,1,1,"DT")="2911108"
^DD(651,4,3)="Enter '1' for YES if cost center is used at local site."
^DD(651,4,21,0)="^^2^2^2910225^^^^"
^DD(651,4,21,1,0)="This field is used to activate or inactivate the cost distribution center"
^DD(651,4,21,2,0)="at the local site."
^DD(651,4,"DT")="2911108"
^DD(651,5,0)="SERVICE TYPE^FX^^0;6^D EDIT^SOWKTY"
^DD(651,5,3)="Enter the valid service type."
^DD(651,5,4)="D ^SOWKTY"
^DD(651,5,21,0)="^^3^3^2910818^^^^"
^DD(651,5,21,1,0)="This field will be used to identify the service type of the CDC account."
^DD(651,5,21,2,0)="Service type will identify whether the CDC account is inpatient,"
^DD(651,5,21,3,0)="outpatient, residential care home, domiciliary, nursing home care unit, etc."
^DD(651,5,"DT")="2910123"
^DD(651,6,0)="SOCIAL WORK ACCOUNT?^S^0:NO;1:YES;^0;7^Q"
^DD(651,6,21,0)="^^3^3^2941208^^"
^DD(651,6,21,1,0)="This field is set to 'NO' or '0' to indicate non-Social Work accounts.  A"
^DD(651,6,21,2,0)="screen on field 3.1 of file 650 was added to eliminate openings to"
^DD(651,6,21,3,0)="non-Social Work accounts."
^DD(651,6,23,0)="^^2^2^2941208^^"
^DD(651,6,23,1,0)="This field is set to '0' to screen out non-Social Work accounts from being"
^DD(651,6,23,2,0)="selected from within file 650."
^DD(651,6,"DT")="2941207"
^DD(651,7,0)="DELETED?^S^0:NO;1:YES;^0;8^Q"
^DD(651,7,21,0)="^^4^4^2941208^^"
^DD(651,7,21,1,0)="This field indicates deleted Cost Distribution Center accounts.  This"
^DD(651,7,21,2,0)="field is set to 'YES' or '1' for deleted CDC accounts.  The field was"
^DD(651,7,21,3,0)="added to deactivate deleted accounts from the users set of valid accounts"
^DD(651,7,21,4,0)="available on the option Activate/Deactivate Cost Distribution Centers."
^DD(651,7,"DT")="2941114"
^DD(651,"B","ACCOUNT ACTIVE ?",4)=""
^DD(651,"B","COST DISTRIBUTION ACCOUNT #",3)=""
^DD(651,"B","COST DISTRIBUTION CENTER NAME",.01)=""
^DD(651,"B","DELETED?",7)=""
^DD(651,"B","PRIMARY",2)=""
^DD(651,"B","SERVICE TYPE",5)=""
^DD(651,"B","SOCIAL WORK ACCOUNT?",6)=""
^DD(651,"B","TYPE",1)=""
^DD(651,"GL",0,1,.01)=""
^DD(651,"GL",0,2,1)=""
^DD(651,"GL",0,3,2)=""
^DD(651,"GL",0,4,3)=""
^DD(651,"GL",0,5,4)=""
^DD(651,"GL",0,6,5)=""
^DD(651,"GL",0,7,6)=""
^DD(651,"GL",0,8,7)=""
^DD(651,"IX",.01)=""
^DD(651,"IX",2)=""
^DD(651,"IX",3)=""
^DD(651,"IX",4)=""
^DD(651,"RQ",.01)=""
^DD(651,"RQ",1)=""
^DD(651,"RQ",2)=""
^DD(651,"RQ",3)=""
^DD(652,0)="FIELD^^14^17"
^DD(652,0,"DDA")="N"
^DD(652,0,"DT")="2910816"
^DD(652,0,"IX","B",652,.01)=""
^DD(652,0,"NM","RCH")=""
^DD(652,0,"PT",655.02,.01)=""
^DD(652,0,"VR")="3.0"
^DD(652,.01,0)="NAME of HOME^RFX^^0;1^K:$L(X)>50!($L(X)<3) X I $D(X) X ^%ZOSF(""UPPERCASE"") S X=Y W !,""Stored as "",X"
^DD(652,.01,1,0)="^.1"
^DD(652,.01,1,1,0)="652^B"
^DD(652,.01,1,1,1)="S ^SOWK(652,""B"",$E(X,1,30),DA)="""""
^DD(652,.01,1,1,2)="K ^SOWK(652,""B"",$E(X,1,30),DA)"
^DD(652,.01,3)="Answer must be 3-50 characters in length."
^DD(652,.01,21,0)="^^1^1^2911024^^^"
^DD(652,.01,21,1,0)="This field is used to enter the name of the Residential Care Home."
^DD(652,.01,"DEL",4050,0)="I $O(^SOWK(655,""AH"",DA,0)) W *7,!,""DELETIONS ARE NOT ALLOWED WHILE PATIENTS ARE IN THIS HOME"" Q"
^DD(652,.01,"DT")="2911024"
^DD(652,1,0)="HOME ID^RF^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(652,1,3)="Your answer must be 1 to 3 characters in length."
^DD(652,1,21,0)="^^2^2^2900629^^^^"
^DD(652,1,21,1,0)="This is the home identification."
^DD(652,1,21,2,0)=" "
^DD(652,2,0)="STATION NUMBER^RF^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(652,2,3)="Your answer must be 3 characters in length."
^DD(652,2,21,0)="^^1^1^2910731^^^^"
^DD(652,2,21,1,0)="This field is used to enter the station number of the residential care home."
^DD(652,3,0)="CASE WORKER^R*P200'^VA(200,^0;4^S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(652,3,3)="Enter social worker assigned to this home."
^DD(652,3,12)="Only valid workers are to be selected."
^DD(652,3,12.1)="S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"""
^DD(652,3,21,0)="^^2^2^2911106^^^^"
^DD(652,3,21,1,0)="This field is used to enter the name of the social worker assigned"
^DD(652,3,21,2,0)="to this residential care home."
^DD(652,3,"DT")="2901217"
^DD(652,4,0)="ADDRESS 1^RF^^0;5^K:$L(X)>35!($L(X)<5) X"
^DD(652,4,3)="Your answer must be 5 to 35 characters in length."
^DD(652,4,21,0)="^^2^2^2900629^^"
^DD(652,4,21,1,0)="This is the primary address of the residential care home."
^DD(652,4,21,2,0)=" "
^DD(652,4.5,0)="ADDRESS 2^F^^0;14^K:$L(X)>35!($L(X)<3) X"
^DD(652,4.5,3)="Your answer must be 3 to 35 characters in length."
^DD(652,4.5,21,0)="^^2^2^2900629^^^^"
^DD(652,4.5,21,1,0)="Optional address for RCH or to be used if Address 1 field is"
^DD(652,4.5,21,2,0)="not large enough."
^DD(652,4.5,"DT")="2861015"
^DD(652,5,0)="CITY^RF^^0;6^K:$L(X)>25!($L(X)<3) X"
^DD(652,5,3)="Your answer must be 3 to 25 characters in length."
^DD(652,5,21,0)="^^3^3^2900629^^"
^DD(652,5,21,1,0)="This field indicates the city in which this residential care"
^DD(652,5,21,2,0)="home resides."
^DD(652,5,21,3,0)=" "
^DD(652,6,0)="STATE^RP5'^DIC(5,^0;7^Q"
^DD(652,6,3)="Enter the state in which the residential care home is located."
^DD(652,6,21,0)="^^2^2^2900629^^"
^DD(652,6,21,1,0)="This field is used to indicate in which state the residential care"
^DD(652,6,21,2,0)="home is located."
^DD(652,7,0)="ZIP^RF^^0;8^K:$L(X)>10!($L(X)<5) X"
^DD(652,7,3)="Answer must be 5-10 characters in length. Five digit zip or nine digit zip with dash (e.g., 12345-1234)."
^DD(652,7,21,0)="^^1^1^2910731^^^^"
^DD(652,7,21,1,0)="This field is used for the zip code."
^DD(652,7,"DT")="2900629"
^DD(652,8,0)="TELEPHONE #1^RF^^0;9^K:$L(X)>15!($L(X)<3) X"
^DD(652,8,3)="Your answer must be 3 to 15 characters in length."
^DD(652,8,21,0)="^^2^2^2900629^^^"
^DD(652,8,21,1,0)="This field is used to enter the primary telephone number of the "
^DD(652,8,21,2,0)="residential care home."
^DD(652,8.1,0)="TELEPHONE #2^F^^0;15^K:$L(X)>15!($L(X)<3) X"
^DD(652,8.1,3)="Your answer must be 3 to 15 characters in length."
^DD(652,8.1,21,0)="^^1^1^2900629^^"
^DD(652,8.1,21,1,0)="This field is use to enter a secondary or optional telephone number."
^DD(652,8.1,"DT")="2870408"
^DD(652,9,0)="LICENSED BY STATE^RS^Y:YES;N:NO;^0;10^Q"
^DD(652,9,3)="Enter 'Yes' if home is licensed by state else enter 'NO'."
^DD(652,9,21,0)="^^2^2^2900629^^^"
^DD(652,9,21,1,0)="This field is used to indicate whether or not the residential home is "
^DD(652,9,21,2,0)="licensed by the state in which the home is located."
^DD(652,10,0)="NUMBER of BEDS^RNJ3,0^^0;11^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(652,10,.1)=""
^DD(652,10,3)="Type a whole number between 1 and 999."
^DD(652,10,21,0)="^^2^2^2900629^^^^"
^DD(652,10,21,1,0)="This field is used to indicate the number of beds in a residential care"
^DD(652,10,21,2,0)="home."
^DD(652,10,"DT")="2880714"
^DD(652,11,0)="VETERANS ONLY^RS^Y:YES;N:NO;^0;12^Q"
^DD(652,11,3)="Enter 'Y' for yes if home will be used for veterans only, else enter 'N' for no."
^DD(652,11,21,0)="^^2^2^2900911^^^^"
^DD(652,11,21,1,0)="This field is used to indicate whether or not the residential care home"
^DD(652,11,21,2,0)="is for veterans only."
^DD(652,12,0)="DATE of LAST ASSESSMENT^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(652,12,3)="Enter date of last assessment for the home."
^DD(652,12,21,0)="^^2^2^2900629^^^"
^DD(652,12,21,1,0)="This field is used to indicate the date the residential care home was "
^DD(652,12,21,2,0)="last assessed."
^DD(652,12,"DT")="2870120"
^DD(652,13,0)="TRANSMIT NAME^FX^^1;1^K:$L(X)>25!($L(X)<1) X I $D(X) X ^%ZOSF(""UPPERCASE"") S X=Y W !,""Stored as "",X"
^DD(652,13,3)="Your answer must be 1 to 25 characters in length."
^DD(652,13,21,0)="^^5^5^2911025^^^^"
^DD(652,13,21,1,0)="This field will be used to store the abbreviated name that is transmitted to"
^DD(652,13,21,2,0)="Austin when submitting the RCS 10-0173 AMIS data.  For example, if the name"
^DD(652,13,21,3,0)="of the home is ""Mrs. T. L. Suggs Residential Care Home, Inc."", the name"
^DD(652,13,21,4,0)="would probably be abbreviated in the form of, ""MRS T L SUGGS RCHI""."
^DD(652,13,21,5,0)="More information can be found in Circular 10-83-8, dated Jan. 17, 1983."
^DD(652,13,"DT")="2911024"
^DD(652,14,0)="ADDITION^RS^1:YES;0:NO;^1;2^Q"
^DD(652,14,3)="Enter '1' for Yes if the RCH is a addition for this reporting period."
^DD(652,14,21,0)="^^6^6^2910818^^^^"
^DD(652,14,21,1,0)="This field will be used to indicate if the RCH is a new addition for the"
^DD(652,14,21,2,0)="current reporting period.  If the RCH is new for the reporting period"
^DD(652,14,21,3,0)="'yes' will have to be entered so that the RCH will be accepted in"
^DD(652,14,21,4,0)="Austin for the RCS 10-0173 AMIS report."
^DD(652,14,21,5,0)="After this new RCH is transmitted this field will automatically be"
^DD(652,14,21,6,0)="set to NO.  Refer to Circular 10-83-8."
^DD(652,14,"DT")="2900313"
^DD(652,"B","ADDITION",14)=""
^DD(652,"B","ADDRESS 1",4)=""
^DD(652,"B","ADDRESS 2",4.5)=""
^DD(652,"B","CASE WORKER",3)=""
^DD(652,"B","CITY",5)=""
^DD(652,"B","DATE of LAST ASSESSMENT",12)=""
^DD(652,"B","HOME ID",1)=""
^DD(652,"B","LICENSED BY STATE",9)=""
^DD(652,"B","NAME of HOME",.01)=""
^DD(652,"B","NUMBER of BEDS",10)=""
^DD(652,"B","STATE",6)=""
^DD(652,"B","STATION NUMBER",2)=""
^DD(652,"B","TELEPHONE #1",8)=""
^DD(652,"B","TELEPHONE #2",8.1)=""
^DD(652,"B","TRANSMIT NAME",13)=""
^DD(652,"B","VETERANS ONLY",11)=""
^DD(652,"B","ZIP",7)=""
^DD(652,"GL",0,1,.01)=""
^DD(652,"GL",0,2,1)=""
^DD(652,"GL",0,3,2)=""
^DD(652,"GL",0,4,3)=""
^DD(652,"GL",0,5,4)=""
^DD(652,"GL",0,6,5)=""
^DD(652,"GL",0,7,6)=""
^DD(652,"GL",0,8,7)=""
^DD(652,"GL",0,9,8)=""
^DD(652,"GL",0,10,9)=""
^DD(652,"GL",0,11,10)=""
^DD(652,"GL",0,12,11)=""
^DD(652,"GL",0,13,12)=""
^DD(652,"GL",0,14,4.5)=""
^DD(652,"GL",0,15,8.1)=""
^DD(652,"GL",1,1,13)=""
^DD(652,"GL",1,2,14)=""
^DD(652,"IX",.01)=""
^DD(652,"RQ",.01)=""
^DD(652,"RQ",1)=""
^DD(652,"RQ",2)=""
^DD(652,"RQ",3)=""
^DD(652,"RQ",4)=""
^DD(652,"RQ",5)=""
^DD(652,"RQ",6)=""
^DD(652,"RQ",7)=""
^DD(652,"RQ",8)=""
^DD(652,"RQ",9)=""
^DD(652,"RQ",10)=""
^DD(652,"RQ",11)=""
^DD(652,"RQ",14)=""
^DD(653,0)="FIELD^^1^2"
^DD(653,0,"DDA")="N"
^DD(653,0,"DT")="2910424"
^DD(653,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(653,0,"IX","B",653,.01)=""
^DD(653,0,"IX","C",653,1)=""
^DD(653,0,"NM","RESOURCES/REFERRALS")=""
^DD(653,0,"PT",650.01,.01)=""
^DD(653,0,"VR")="3.0"
^DD(653,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(653,.01,1,0)="^.1"
^DD(653,.01,1,1,0)="653^B"
^DD(653,.01,1,1,1)="S ^SOWK(653,""B"",$E(X,1,30),DA)="""""
^DD(653,.01,1,1,2)="K ^SOWK(653,""B"",$E(X,1,30),DA)"
^DD(653,.01,3)="Answer must be 3-50 characters in length."
^DD(653,.01,10)=""
^DD(653,.01,21,0)="^^1^1^2901227^^^^"
^DD(653,.01,21,1,0)="This field is for the name of the Resource/Referral to be used."
^DD(653,.01,"DT")="2901220"
^DD(653,1,0)="NUMBER^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(653,1,1,0)="^.1"
^DD(653,1,1,1,0)="653^C"
^DD(653,1,1,1,1)="S ^SOWK(653,""C"",$E(X,1,30),DA)="""""
^DD(653,1,1,1,2)="K ^SOWK(653,""C"",$E(X,1,30),DA)"
^DD(653,1,1,1,"DT")="2910424"
^DD(653,1,3)="Answer must be 1-2 characters in length."
^DD(653,1,21,0)="^^1^1^2911103^"
^DD(653,1,21,1,0)="This field is used to select resources/referrals by a number."
^DD(653,1,"DT")="2910424"
^DD(653,"B","NAME",.01)=""
^DD(653,"B","NUMBER",1)=""
^DD(653,"GL",0,1,.01)=""
^DD(653,"GL",0,2,1)=""
^DD(653,"IX",.01)=""
^DD(653,"IX",1)=""
^DD(653,"RQ",.01)=""
^DD(653,"RQ",1)=""
^DD(655,0)="FIELD^^7^8"
^DD(655,0,"DDA")="N"
^DD(655,0,"IX","AH",655.02,.01)=""
^DD(655,0,"IX","B",655,.01)=""
^DD(655,0,"IX","H",655,1)=""
^DD(655,0,"NM","SOCIAL WORK PATIENT")=""
^DD(655,0,"VR")="3.0"
^DD(655,.01,0)="NAME^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(655,.01,1,0)="^.1"
^DD(655,.01,1,1,0)="655^B"
^DD(655,.01,1,1,1)="S ^SOWK(655,""B"",$E(X,1,30),DA)="""""
^DD(655,.01,1,1,2)="K ^SOWK(655,""B"",$E(X,1,30),DA)"
^DD(655,.01,2)="S Y(0)=Y S Y=$P(^DPT(Y,0),""^"",1)"
^DD(655,.01,2.1)="S Y=$P(^DPT(Y,0),""^"",1)"
^DD(655,.01,3)=""
^DD(655,.01,21,0)="^^1^1^2900319^"
^DD(655,.01,21,1,0)="Name of the social work patient."
^DD(655,.01,"DEL",4000,0)="I $D(^SOWK(655,DA,0))#2 W *7,"" <DELETIONS NOT ALLOWED>"" Q"
^DD(655,.01,"DT")="2901217"
^DD(655,.99,0)="RCH^655.02P^^4;0"
^DD(655,.99,21,0)="^^1^1^2910731^^^^"
^DD(655,.99,21,1,0)="The following fields will contain historical data for RCH patients."
^DD(655,1,0)="DATE PLACED IN RCH PROGRAM^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655,1,1,0)="^.1^^0"
^DD(655,1,1,1,0)="655^H"
^DD(655,1,1,1,1)="S ^SOWK(655,""H"",$E(X,1,30),DA)="""""
^DD(655,1,1,1,2)="K ^SOWK(655,""H"",$E(X,1,30),DA)"
^DD(655,1,3)="Enter the date the patient was placed in the RCH program."
^DD(655,1,21,0)="1^^2^2^2900705^^"
^DD(655,1,21,1,0)="This field will be used to show the date the patient was placed in the RCH"
^DD(655,1,21,2,0)="program."
^DD(655,1,"DT")="2901214"
^DD(655,2,0)="DATE REMOVED FROM RCH PROGRAM^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655,2,3)="Enter the date that the patient was placed in the home."
^DD(655,2,21,0)="^^2^2^2910818^^^^"
^DD(655,2,21,1,0)="If patient is flagged as being removed from the RCH program, this field will"
^DD(655,2,21,2,0)="hold the date removed from program."
^DD(655,2,"DT")="2890126"
^DD(655,3,0)="REMOVED FROM RCH PROGRAM ?^RS^1:YES;0:NO;^0;4^Q"
^DD(655,3,3)="Enter 1 for 'Yes' if patient has been removed from RCH else enter 0 for 'No'."
^DD(655,3,21,0)="^^2^2^2900629^^^^"
^DD(655,3,21,1,0)="This field flags the patient as being removed or not removed from RCH"
^DD(655,3,21,2,0)="program."
^DD(655,3,"DT")="2890126"
^DD(655,5,0)="HIGH RISK^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(655,5,3)="Your answer must be 1 to 20 characters in length."
^DD(655,5,21,0)="^^4^4^2900911^^^^"
^DD(655,5,21,1,0)="This field is used to flag patients should they be found to be a possible"
^DD(655,5,21,2,0)="high-risk case.  This field is set when the High-Risk Screening Profile"
^DD(655,5,21,3,0)="is run.  This field is set if a patient meets one or more criteria"
^DD(655,5,21,4,0)="of the screening profile."
^DD(655,6,0)="SEEN BY SWS^F^^0;6^K:$L(X)>1!($L(X)<1) X"
^DD(655,6,3)="Answer must be 1 character in length."
^DD(655,6,21,0)="^^4^4^2900911^^^^"
^DD(655,6,21,1,0)="This field is used to indicate if the patient was seen by the"
^DD(655,6,21,2,0)="Social Work Service after being flagged as a possible high-risk patient."
^DD(655,6,21,3,0)="This field is set after a case has been opened for a possible high-risk"
^DD(655,6,21,4,0)="patient."
^DD(655,6,"DT")="2901217"
^DD(655,7,0)="FALSE HIGH-RISK^SX^F:FALSE HIGH-RISK;^0;7^Q"
^DD(655,7,1,0)="^.1^^0"
^DD(655,7,3)="Enter the code to identify a false return."
^DD(655,7,21,0)="2^^2^2^2910818^^^"
^DD(655,7,21,1,0)="This field is used to indicate that the patient was not a high-risk"
^DD(655,7,21,2,0)="case.  Not to be set directly with VA FileMan."
^DD(655,7,"DT")="2850805"
^DD(655,"B","DATE PLACED IN RCH PROGRAM",1)=""
^DD(655,"B","DATE REMOVED FROM RCH PROGRAM",2)=""
^DD(655,"B","FALSE HIGH-RISK",7)=""
^DD(655,"B","HIGH RISK",5)=""
^DD(655,"B","NAME",.01)=""
^DD(655,"B","RCH",.99)=""
^DD(655,"B","REMOVED FROM RCH PROGRAM ?",3)=""
^DD(655,"B","SEEN BY SWS",6)=""
^DD(655,"GL",0,1,.01)=""
^DD(655,"GL",0,2,1)=""
^DD(655,"GL",0,3,2)=""
^DD(655,"GL",0,4,3)=""
^DD(655,"GL",0,5,5)=""
^DD(655,"GL",0,6,6)=""
^DD(655,"GL",0,7,7)=""
^DD(655,"GL",4,0,.99)=""
^DD(655,"IX",.01)=""
^DD(655,"IX",1)=""
^DD(655,"RQ",.01)=""
^DD(655,"RQ",1)=""
^DD(655,"RQ",2)=""
^DD(655,"RQ",3)=""
^DD(655,"SB",655.02,.99)=""
^DD(655.02,0)="RCH SUB-FIELD^^6^7"
^DD(655.02,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(655.02,0,"IX","B",655.02,.01)=""
^DD(655.02,0,"NM","RCH")=""
^DD(655.02,0,"UP")="655"
^DD(655.02,.01,0)="HOME^RP652'X^SOWK(652,^0;1^Q"
^DD(655.02,.01,1,0)="^.1"
^DD(655.02,.01,1,1,0)="655.02^B"
^DD(655.02,.01,1,1,1)="S ^SOWK(655,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(655.02,.01,1,1,2)="K ^SOWK(655,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(655.02,.01,1,2,0)="655^AH^MUMPS"
^DD(655.02,.01,1,2,1)="S ^SOWK(655,""AH"",X,DA(1),DA)="""""
^DD(655.02,.01,1,2,2)="K ^SOWK(655,""AH"",X,DA(1),DA)"
^DD(655.02,.01,1,2,"%D",0)="^^2^2^2911125^^"
^DD(655.02,.01,1,2,"%D",1,0)="This MUMPS cross reference is used to prevent residential care homes from"
^DD(655.02,.01,1,2,"%D",2,0)="being deleted when patient resides in a particular home."
^DD(655.02,.01,3)="Residential Care Home name."
^DD(655.02,.01,21,0)="^^1^1^2900911^^^^"
^DD(655.02,.01,21,1,0)="Name of home patient resides."
^DD(655.02,.01,"DT")="2890327"
^DD(655.02,1,0)="DATE PLACED IN HOME^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.02,1,3)="Date patient was placed into this home."
^DD(655.02,1,21,0)="^^1^1^2900703^^^"
^DD(655.02,1,21,1,0)="Date patient was placed in RCH."
^DD(655.02,1,"DT")="2890113"
^DD(655.02,2,0)="MONTHLY RATE^655.03I^^1;0"
^DD(655.02,2,21,0)="^^2^2^2911103^"
^DD(655.02,2,21,1,0)="This sub field is used to show what monthly rate is being paid for"
^DD(655.02,2,21,2,0)="residential care home stay."
^DD(655.02,3,0)="IS PATIENT REMOVED FROM HOME ?^RS^1:YES;0:NO;^0;3^Q"
^DD(655.02,3,21,0)="^^1^1^2890307^"
^DD(655.02,3,21,1,0)="This field is used to show if patient was removed from home."
^DD(655.02,3,"DT")="2890113"
^DD(655.02,4,0)="DATE REMOVED FROM HOME^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.02,4,21,0)="^^2^2^2890307^"
^DD(655.02,4,21,1,0)="If the patient was flagged as removed from RCH home this field will"
^DD(655.02,4,21,2,0)="show the date in which the patient was removed from the home."
^DD(655.02,4,"DT")="2890113"
^DD(655.02,5,0)="CASE NUMBER^RP650'^SOWK(650,^0;5^Q"
^DD(655.02,5,3)="Case number for case associated with RCH data.  Not entered directly with VA FileMan."
^DD(655.02,5,21,0)="^^2^2^2930412^^^^"
^DD(655.02,5,21,1,0)="This field points to the Social Work Case file and stores the"
^DD(655.02,5,21,2,0)="case number associated with this RCH data."
^DD(655.02,5,"DT")="2890113"
^DD(655.02,6,0)="TRANSFER^S^1:YES;0:NO;^0;6^Q"
^DD(655.02,6,3)="Enter 1 for 'Yes' or 0 for 'No'.  Not entered directly by VA FileMan."
^DD(655.02,6,21,0)="^^2^2^2910818^^^^"
^DD(655.02,6,21,1,0)="This field is used to show that the patient was transferred from home"
^DD(655.02,6,21,2,0)="without opening a new case."
^DD(655.02,6,"DT")="2890307"
^DD(655.02,"B","CASE NUMBER",5)=""
^DD(655.02,"B","DATE PLACED IN HOME",1)=""
^DD(655.02,"B","DATE REMOVED FROM HOME",4)=""
^DD(655.02,"B","HOME",.01)=""
^DD(655.02,"B","IS PATIENT REMOVED FROM HOME ?",3)=""
^DD(655.02,"B","MONTHLY RATE",2)=""
^DD(655.02,"B","TRANSFER",6)=""
^DD(655.02,"GL",0,1,.01)=""
^DD(655.02,"GL",0,2,1)=""
^DD(655.02,"GL",0,3,3)=""
^DD(655.02,"GL",0,4,4)=""
^DD(655.02,"GL",0,5,5)=""
^DD(655.02,"GL",0,6,6)=""
^DD(655.02,"GL",1,0,2)=""
^DD(655.02,"IX",.01)=""
^DD(655.02,"RQ",.01)=""
^DD(655.02,"RQ",1)=""
^DD(655.02,"RQ",3)=""
^DD(655.02,"RQ",4)=""
^DD(655.02,"RQ",5)=""
^DD(655.02,"SB",655.03,2)=""
^DD(655.03,0)="MONTHLY RATE SUB-FIELD^^1^2"
^DD(655.03,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(655.03,0,"NM","MONTHLY RATE")=""
^DD(655.03,0,"UP")="655.02"
^DD(655.03,.01,0)="MONTHLY RATE^RNJ9,2^^0;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(655.03,.01,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(655.03,.01,21,0)="^^1^1^2900705^^"
^DD(655.03,.01,21,1,0)="Monthly rate paid while in home."
^DD(655.03,.01,"DT")="2890126"
^DD(655.03,1,0)="EFFECTIVE DATE OF RATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.03,1,21,0)="^^1^1^2900629^^"
^DD(655.03,1,21,1,0)="Effective date rate for RCH is used."
^DD(655.03,1,"DT")="2890303"
^DD(655.03,"B","EFFECTIVE DATE OF RATE",1)=""
^DD(655.03,"B","MONTHLY RATE",.01)=""
^DD(655.03,"GL",0,1,.01)=""
^DD(655.03,"GL",0,2,1)=""
^DD(655.03,"RQ",.01)=""
^DD(655.03,"RQ",1)=""
^DD(655.2,0)="FIELD^^32^61"
^DD(655.2,0,"DDA")="N"
^DD(655.2,0,"DT")="2920121"
^DD(655.2,0,"IX","AC",655.2,.05)=""
^DD(655.2,0,"IX","B",655.2,.01)=""
^DD(655.2,0,"IX","C",655.2,.03)=""
^DD(655.2,0,"IX","E",655.2,.04)=""
^DD(655.2,0,"NM","SWS ASSESSMENT DATA BASE")=""
^DD(655.2,0,"VR")="3.0"
^DD(655.2,.01,0)="NAME^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(655.2,.01,1,0)="^.1"
^DD(655.2,.01,1,1,0)="655.2^B"
^DD(655.2,.01,1,1,1)="S ^SOWK(655.2,""B"",$E(X,1,30),DA)="""""
^DD(655.2,.01,1,1,2)="K ^SOWK(655.2,""B"",$E(X,1,30),DA)"
^DD(655.2,.01,3)="Enter patient's name."
^DD(655.2,.01,21,0)="^^1^1^2910818^^^^"
^DD(655.2,.01,21,1,0)="This field is used for the patient's name."
^DD(655.2,.01,"DT")="2910319"
^DD(655.2,.02,0)="FILE ENTRY DATE^RD^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(655.2,.02,21,0)="^^1^1^2911104^"
^DD(655.2,.02,21,1,0)="This field is used to show date the data was entered."
^DD(655.2,.02,"DT")="2911104"
^DD(655.2,.022,0)="SOURCE OF REFERRAL^F^^0;21^K:$L(X)>79!($L(X)<1) X"
^DD(655.2,.022,3)="Answer must be 1-79 characters in length."
^DD(655.2,.022,21,0)="^^2^2^2910818^^^"
^DD(655.2,.022,21,1,0)="This field is used to show where the source of referral was made"
^DD(655.2,.022,21,2,0)="from."
^DD(655.2,.022,"DT")="2920102"
^DD(655.2,.0221,0)="SOURCE OF INFORMATION^RF^^18;1^K:$L(X)>79!($L(X)<1) X"
^DD(655.2,.0221,3)="Answer must be 1-79 characters in length."
^DD(655.2,.0221,21,0)="^^1^1^2910211^"
^DD(655.2,.0221,21,1,0)="This field is used to show where the source of information was received from."
^DD(655.2,.0221,"DT")="2920102"
^DD(655.2,.023,0)="REFERRAL DATE^RD^^0;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.2,.023,3)="Enter date referral was made."
^DD(655.2,.023,21,0)="^^1^1^2910211^"
^DD(655.2,.023,21,1,0)="This field is used to show the date referral was made."
^DD(655.2,.023,"DT")="2910211"
^DD(655.2,.03,0)="PRIMARY SOCIAL WORKER^R*P200'^VA(200,^0;3^S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(655.2,.03,1,0)="^.1^^-1"
^DD(655.2,.03,1,1,0)="655.2^C"
^DD(655.2,.03,1,1,1)="S ^SOWK(655.2,""C"",$E(X,1,30),DA)="""""
^DD(655.2,.03,1,1,2)="K ^SOWK(655.2,""C"",$E(X,1,30),DA)"
^DD(655.2,.03,3)="Enter social worker's name that first entered data about patient."
^DD(655.2,.03,12)="Only valid social workers are to be selected."
^DD(655.2,.03,12.1)="S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"""
^DD(655.2,.03,21,0)="^^1^1^2911101^^^^"
^DD(655.2,.03,21,1,0)="This field is used to show what social worker first entered data on a patient."
^DD(655.2,.03,"DT")="2910308"
^DD(655.2,.031,0)="PRIMARY CASE NUMBER^RP650'^SOWK(650,^0;12^Q"
^DD(655.2,.031,1,0)="^.1^^0"
^DD(655.2,.031,3)="Enter Case Number associated with patient from Case Registry."
^DD(655.2,.031,21,0)="^^1^1^2910818^^^^"
^DD(655.2,.031,21,1,0)="This field is used to show first case number for patient."
^DD(655.2,.031,"DT")="2910308"
^DD(655.2,.04,0)="SUPERVISOR^RP200'^VA(200,^0;13^Q"
^DD(655.2,.04,1,0)="^.1"
^DD(655.2,.04,1,1,0)="655.2^E"
^DD(655.2,.04,1,1,1)="S ^SOWK(655.2,""E"",$E(X,1,30),DA)="""""
^DD(655.2,.04,1,1,2)="K ^SOWK(655.2,""E"",$E(X,1,30),DA)"
^DD(655.2,.04,3)="Enter supervisor for social worker."
^DD(655.2,.04,21,0)="^^1^1^2911108^^^"
^DD(655.2,.04,21,1,0)="This field is used to show the social worker's supervisor."
^DD(655.2,.04,21,2,0)=" "
^DD(655.2,.04,"DT")="2890605"
^DD(655.2,.05,0)="SURROGATE^P200'^VA(200,^0;14^Q"
^DD(655.2,.05,1,0)="^.1"
^DD(655.2,.05,1,1,0)="655.2^AC"
^DD(655.2,.05,1,1,1)="S ^SOWK(655.2,""AC"",$E(X,1,30),DA)="""""
^DD(655.2,.05,1,1,2)="K ^SOWK(655.2,""AC"",$E(X,1,30),DA)"
^DD(655.2,.05,3)="Enter surrogate supervisor."
^DD(655.2,.05,21,0)="^^1^1^2910818^^"
^DD(655.2,.05,21,1,0)="This is the surrogate supervisor for another supervisor."
^DD(655.2,.05,21,2,0)=" "
^DD(655.2,.05,"DT")="2890605"
^DD(655.2,1,0)="OTHER FINANCIAL RESOURCES^655.21^^1;0"
^DD(655.2,1,21,0)="^^1^1^2911108^^^"
^DD(655.2,1,21,1,0)="This field is used to enter description of other financial resources of veteran."
^DD(655.2,1,21,2,0)=" "
^DD(655.2,2,0)="EMPLOY/FINANCIAL ASSESSMENT^655.22^^2;0"
^DD(655.2,2,21,0)="^^1^1^2911108^^^^"
^DD(655.2,2,21,1,0)="This field is used to enter employment and financial assessments of veteran."
^DD(655.2,2.1,0)="IS INCOME SUFFICIENT ?^S^1:YES;2:NO;0:UNKNOWN;^0;20^Q"
^DD(655.2,2.1,21,0)="^^2^2^2911103^"
^DD(655.2,2.1,21,1,0)="This field is used to show if reported income is sufficient to meet"
^DD(655.2,2.1,21,2,0)="veteran's needs."
^DD(655.2,2.1,"DT")="2900329"
^DD(655.2,2.3,0)="POTENTIAL EMPLOYABILITY^S^1:YES;2:NO;U:UNKNOWN;^0;22^Q"
^DD(655.2,2.3,3)=""
^DD(655.2,2.3,21,0)="^^1^1^2911103^"
^DD(655.2,2.3,21,1,0)="This field is used to show if veteran has any employability potential."
^DD(655.2,3,0)="SPECIAL TRAINING/SKILLS^655.23^^3;0"
^DD(655.2,3,21,0)="^^1^1^2911125^^^^"
^DD(655.2,3,21,1,0)="This field is used to enter any special training or skills of the veteran."
^DD(655.2,3,21,3,0)=" "
^DD(655.2,4,0)="EDUCATIONAL ASSESSMENT^655.24^^4;0"
^DD(655.2,4,21,0)="^^1^1^2911125^^^^"
^DD(655.2,4,21,1,0)="This field is used to enter educational assessment of the veteran."
^DD(655.2,4.1,0)="HIGHEST LEVEL OF EDUCATION^S^1:LESS THAN 6;2:6 - 12;3:12 - 16;4:MORE THAN 16;^0;23^Q"
^DD(655.2,4.1,21,0)="^^1^1^2911103^"
^DD(655.2,4.1,21,1,0)="This field is used to show highest level of education attained."
^DD(655.2,4.1,"DT")="2900328"
^DD(655.2,4.2,0)="EDUCATIONAL PROGRAM/SCHOOL?^S^1:YES;^0;4^Q"
^DD(655.2,4.2,3)="Enter '1' for 'YES' if veteran is currently enrolled in a educational program/trade program."
^DD(655.2,4.2,21,0)="^^2^2^2911216^^"
^DD(655.2,4.2,21,1,0)="This field is used to show if veteran is currently enrolled in a educational"
^DD(655.2,4.2,21,2,0)="program/trade."
^DD(655.2,4.2,"DT")="2911104"
^DD(655.2,5,0)="MILITARY ASSESSMENT^655.25^^5;0"
^DD(655.2,5,21,0)="^^1^1^2911108^^^"
^DD(655.2,5,21,1,0)="This field is used to enter military assessment of the veteran."
^DD(655.2,5,21,2,0)=" "
^DD(655.2,5.1,0)="MILITARY ADJUSTMENT^F^^0;19^K:$L(X)>50!($L(X)<1) X"
^DD(655.2,5.1,3)="Enter military adjustment of veteran."
^DD(655.2,5.1,21,0)="^^1^1^2911103^"
^DD(655.2,5.1,21,1,0)="This field is used to enter military assessment of veteran."
^DD(655.2,5.1,"DT")="2900328"
^DD(655.2,6,0)="SPOUSE'S NAME^F^^6;1^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,6,3)="Answer must be 1-35 characters in length."
^DD(655.2,6,21,0)="^^3^3^2911108^"
^DD(655.2,6,21,1,0)="This field is used to enter the name of the veteran's spouse.  This"
^DD(655.2,6,21,2,0)="information is recommended to be entered if the spouse is not listed"
^DD(655.2,6,21,3,0)="as the primary next of kin."
^DD(655.2,6,"DT")="2911105"
^DD(655.2,6.1,0)="ADDRESS 1^F^^6;2^K:$L(X)>50!($L(X)<3) X"
^DD(655.2,6.1,3)="Answer must be 3-50 characters in length."
^DD(655.2,6.1,21,0)="^^1^1^2911105^"
^DD(655.2,6.1,21,1,0)="This field is used to enter the address of the spouse."
^DD(655.2,6.1,"DT")="2911105"
^DD(655.2,6.2,0)="ADDRESS 2^F^^6;3^K:$L(X)>50!($L(X)<3) X"
^DD(655.2,6.2,3)="Answer must be 3-50 characters in length."
^DD(655.2,6.2,21,0)="^^1^1^2911115^^"
^DD(655.2,6.2,21,1,0)="This field is used to enter a second line for the address."
^DD(655.2,6.3,0)="CITY^F^^6;4^K:$L(X)>20!($L(X)<3) X"
^DD(655.2,6.3,3)="Answer must be 3-20 characters in length."
^DD(655.2,6.3,21,0)="^^1^1^2911105^"
^DD(655.2,6.3,21,1,0)="This field is used to enter the name of the city in which the spouse lives."
^DD(655.2,6.3,"DT")="2911105"
^DD(655.2,6.4,0)="STATE^P5'^DIC(5,^6;5^Q"
^DD(655.2,6.4,3)="Enter state where the spouse resides."
^DD(655.2,6.4,21,0)="^^1^1^2911108^"
^DD(655.2,6.4,21,1,0)="This field is used to show what state the spouse resides."
^DD(655.2,6.4,"DT")="2911105"
^DD(655.2,6.5,0)="ZIP^F^^6;6^K:$L(X)>10!($L(X)<5) X"
^DD(655.2,6.5,3)="Answer must be 5-10 characters in length."
^DD(655.2,6.5,21,0)="^^1^1^2911105^"
^DD(655.2,6.5,21,1,0)="This field is used to enter the zip code of the spouse."
^DD(655.2,6.5,"DT")="2911105"
^DD(655.2,6.6,0)="PHONE NUMBER^F^^6;7^K:$L(X)>15!($L(X)<7) X"
^DD(655.2,6.6,3)="Answer must be 7-15 characters in length."
^DD(655.2,6.6,21,0)="^^1^1^2911108^"
^DD(655.2,6.6,21,1,0)="This field is used to enter the phone number of the spouse."
^DD(655.2,6.6,"DT")="2911105"
^DD(655.2,7,0)="CHILDREN'S NAME^655.28^^7;0"
^DD(655.2,7,21,0)="^^2^2^2911125^^^^"
^DD(655.2,7,21,1,0)="This multiple field is used to enter the name(s) of veterans's children if"
^DD(655.2,7,21,2,0)="there are any. "
^DD(655.2,7,"DT")="2911105"
^DD(655.2,9,0)="MOTHER^F^^9;1^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,9,3)="Answer must be 1-35 characters in length."
^DD(655.2,9,21,0)="^^1^1^2911103^"
^DD(655.2,9,21,1,0)="This field is used to enter name of the veteran's mother."
^DD(655.2,9,"DT")="2910211"
^DD(655.2,9.1,0)="FATHER^F^^9;2^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,9.1,3)="Answer must be 1-35 characters in length."
^DD(655.2,9.1,21,0)="^^1^1^2911103^"
^DD(655.2,9.1,21,1,0)="This field is used to enter the name of the veteran's father."
^DD(655.2,9.1,"DT")="2910211"
^DD(655.2,9.2,0)="SIBLINGS^F^^9;3^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,9.2,3)="Answer must be 1-35 characters in length."
^DD(655.2,9.2,21,0)="^^1^1^2911103^"
^DD(655.2,9.2,21,1,0)="This field is used to enter the siblings of the veteran."
^DD(655.2,9.2,"DT")="2910211"
^DD(655.2,10,0)="INITIAL PLAN OF ACTION^655.31^^10;0"
^DD(655.2,10,21,0)="^^2^2^2920103^^^^"
^DD(655.2,10,21,1,0)="This field is used to enter plan of action as related to problems"
^DD(655.2,10,21,2,0)="entered."
^DD(655.2,10,"DT")="2920103"
^DD(655.2,11,0)="CAREGIVER^655.32I^^11;0"
^DD(655.2,11,21,0)="^^1^1^2911108^^^"
^DD(655.2,11,21,1,0)="This sub field is used to enter potential caregivers for the veteran."
^DD(655.2,12,0)="COMMENTS^655.33^^12;0"
^DD(655.2,12,21,0)="^^1^1^2911108^^^"
^DD(655.2,12,21,1,0)="This field is used to enter comments about the social/family assessment."
^DD(655.2,12,"DT")="2911108"
^DD(655.2,13,0)="SOCIAL SUPPORT SYSTEM^655.34^^13;0"
^DD(655.2,13,21,0)="^^1^1^2911108^^^"
^DD(655.2,13,21,1,0)="This field is used to enter social support system."
^DD(655.2,14,0)="USE OF COMMUNITY RESOURCES^655.35^^14;0"
^DD(655.2,14,21,0)="^^1^1^2911108^^^"
^DD(655.2,14,21,1,0)="This field is used to enter Use of Available Community Resources."
^DD(655.2,15,0)="CURRENT LIVING ARRANGEMENTS^S^1:ALONE;2:SPOUSE;3:RELATIVES;4:NON-RELATIVES;5:GROUP QUARTERS, NOT HEALTH RELATED;6:GROUP QUARTERS, HEALTH RELATED;^0;15^Q"
^DD(655.2,15,3)="Enter current living arrangements of veteran."
^DD(655.2,15,21,0)="^^1^1^2911103^"
^DD(655.2,15,21,1,0)="This field is used to enter living arrangements of the veteran."
^DD(655.2,15,"DT")="2911105"
^DD(655.2,16,0)="SOCIAL/FAMILY ASSESSMENT^655.37^^16;0"
^DD(655.2,16,21,0)="^^1^1^2911108^^^"
^DD(655.2,16,21,1,0)="This field is used to enter Social and Family Assessments."
^DD(655.2,17,0)="PRELIMINARY PROBLEMS^655.38PA^^17;0"
^DD(655.2,17,21,0)="^^1^1^2920103^^^^"
^DD(655.2,17,21,1,0)="This sub file is used to enter preliminary problems of veterans."
^DD(655.2,17,21,2,0)=" "
^DD(655.2,17.1,0)="PROGRESS NOTE DATE^RD^^18;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.2,17.1,3)="Enter date progress note was entered."
^DD(655.2,17.1,21,0)="^^1^1^2920107^^"
^DD(655.2,17.1,21,1,0)="This field is used to enter date that progress note was entered/edited."
^DD(655.2,17.1,"DT")="2911231"
^DD(655.2,18,0)="NOTES SECTION^655.218PA^^23;0"
^DD(655.2,18,21,0)="^^1^1^2911103^^"
^DD(655.2,18,21,1,0)="This section of file #655.2 will contain notes about the patients."
^DD(655.2,29.1,0)="DURABLE POWER OF ATTORNEY^S^1:YES;0:N0;^22;1^Q"
^DD(655.2,29.1,3)="Enter '1' for yes there is a Power of Attorney.  If yes, name, address and phone will be asked."
^DD(655.2,29.1,21,0)="^^1^1^2911106^^"
^DD(655.2,29.1,21,1,0)="This field is used to show if there is a power of attorney."
^DD(655.2,29.1,"DT")="2920121"
^DD(655.2,29.2,0)="LIVING WILL^S^1:YES;0:NO;^22;2^Q"
^DD(655.2,29.2,3)="Enter 1 for Yes if there is a Living Will."
^DD(655.2,29.2,21,0)="^^1^1^2911106^^^^"
^DD(655.2,29.2,21,1,0)="This field is used to show there is a Living Will."
^DD(655.2,29.2,"DT")="2920121"
^DD(655.2,29.3,0)="GUARDIANSHIP^S^1:YES;0:NO;^22;3^Q"
^DD(655.2,29.3,3)="Enter '1' for 'YES' if Guardianship is applicable to veteran."
^DD(655.2,29.3,21,0)="^^1^1^2911106^^^"
^DD(655.2,29.3,21,1,0)="This field is used to show guardianship if applicable."
^DD(655.2,29.3,"DT")="2920121"
^DD(655.2,29.4,0)="ATTORNEY'S NAME^F^^22;4^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,29.4,3)="Answer must be 1-35 characters in length."
^DD(655.2,29.4,21,0)="^^1^1^2911106^"
^DD(655.2,29.4,21,1,0)="This field is used to show the name of the Power of Attorney."
^DD(655.2,29.4,"DT")="2920121"
^DD(655.2,29.5,0)="ADDRESS^F^^22;5^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,29.5,3)="Answer must be 1-35 characters in length."
^DD(655.2,29.5,21,0)="^^1^1^2911106^"
^DD(655.2,29.5,21,1,0)="This field is used to show the address of the attorney."
^DD(655.2,29.5,"DT")="2920121"
^DD(655.2,29.6,0)="ADDRESS 2^F^^22;6^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,29.6,3)="Answer must be 1-35 characters in length."
^DD(655.2,29.6,21,0)="^^1^1^2911115^^"
^DD(655.2,29.6,21,1,0)="This field is used to enter a second address."
^DD(655.2,29.6,"DT")="2911115"
^DD(655.2,29.7,0)="CITY^F^^22;7^K:$L(X)>20!($L(X)<1) X"
^DD(655.2,29.7,3)="Answer must be 1-20 characters in length."
^DD(655.2,29.7,21,0)="^^1^1^2911106^"
^DD(655.2,29.7,21,1,0)="This field is used to show what city the attorney resides."
^DD(655.2,29.7,"DT")="2920121"
^DD(655.2,29.8,0)="STATE^P5'^DIC(5,^22;8^Q"
^DD(655.2,29.8,3)="Enter state where attorney resides."
^DD(655.2,29.8,21,0)="^^1^1^2911106^"
^DD(655.2,29.8,21,1,0)="This field is used to show what state the attorney resides."
^DD(655.2,29.8,"DT")="2920121"
^DD(655.2,29.9,0)="ZIP^F^^22;9^K:$L(X)>10!($L(X)<5) X"
^DD(655.2,29.9,3)="Answer must be 5-10 characters in length."
^DD(655.2,29.9,21,0)="^^1^1^2911106^"
^DD(655.2,29.9,21,1,0)="This field is used to enter the zip code."
^DD(655.2,29.9,"DT")="2920121"
^DD(655.2,29.91,0)="PHONE NUMBER^F^^22;10^K:$L(X)>15!($L(X)<3) X"
^DD(655.2,29.91,3)="Answer must be 3-15 characters in length."
^DD(655.2,29.91,21,0)="^^1^1^2911106^"
^DD(655.2,29.91,21,1,0)="This field is used to enter the phone number of the attorney."
^DD(655.2,29.91,"DT")="2920121"
^DD(655.2,29.92,0)="GUARDIAN'S NAME^F^^22;11^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,29.92,3)="Answer must be 1-35 characters in length."
^DD(655.2,29.92,21,0)="^^1^1^2911106^"
^DD(655.2,29.92,21,1,0)="This field is used to enter the name of the veteran's guardian."
^DD(655.2,29.92,"DT")="2920121"
^DD(655.2,29.93,0)="ADDRESS^F^^22;12^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,29.93,3)="Answer must be 1-35 characters in length."
^DD(655.2,29.93,21,0)="^^1^1^2911106^"
^DD(655.2,29.93,21,1,0)="This field is used to enter the address of the guardian."
^DD(655.2,29.93,"DT")="2920121"
^DD(655.2,29.94,0)="ADDRESS 2^F^^25;1^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,29.94,3)="Answer must be 1-35 characters in length."
^DD(655.2,29.94,21,0)="^^1^1^2911115^^"
^DD(655.2,29.94,21,1,0)="This field is used to enter a second line for address."
^DD(655.2,29.94,"DT")="2911115"
^DD(655.2,29.95,0)="CITY^F^^25;2^K:$L(X)>35!($L(X)<1) X"
^DD(655.2,29.95,3)="Answer must be 1-35 characters in length."
^DD(655.2,29.95,21,0)="^^1^1^2911108^"
^DD(655.2,29.95,21,1,0)="This field is used to show what city the guardian resides."
^DD(655.2,29.95,"DT")="2920121"
^DD(655.2,29.96,0)="STATE^P5'^DIC(5,^25;3^Q"
^DD(655.2,29.96,3)="Enter state where the guardian resides."
^DD(655.2,29.96,21,0)="^^1^1^2911108^"
^DD(655.2,29.96,21,1,0)="This field is used to show what state the guardian resides."
^DD(655.2,29.96,"DT")="2920121"
^DD(655.2,29.97,0)="ZIP^F^^25;4^K:$L(X)>10!($L(X)<5) X"
^DD(655.2,29.97,3)="Answer must be 5-10 characters in length."
^DD(655.2,29.97,21,0)="^^1^1^2911108^^"
^DD(655.2,29.97,21,1,0)="This field is used to show the zip code of the guardian."
^DD(655.2,29.97,"DT")="2920121"
^DD(655.2,29.98,0)="PHONE NUMBER^F^^25;5^K:$L(X)>15!($L(X)<3) X"
^DD(655.2,29.98,3)="Answer must be 3-15 characters in length."
^DD(655.2,29.98,21,0)="^^1^1^2911108^"
^DD(655.2,29.98,21,1,0)="This field is used to show the phone number of the guardian."
^DD(655.2,29.98,"DT")="2920121"
^DD(655.2,30,0)="LEGAL ASSESSMENT^655.36^^15;0"
^DD(655.2,30,21,0)="^^1^1^2911108^^^"
^DD(655.2,30,21,1,0)="This field is used to enter any legal assessment."
^DD(655.2,31,0)="CURRENT SUBSTANCE ABUSE^S^1:YES;2:NO;U:UNKNOWN;^0;25^Q"
^DD(655.2,31,21,0)="^^2^2^2911103^"
^DD(655.2,31,21,1,0)="This field is used to indicate if there is any known substance abuse"
^DD(655.2,31,21,2,0)="problem."
^DD(655.2,31,"DT")="2900328"
^DD(655.2,31.1,0)="SUBSTANCE ABUSE COMMENT^655.26^^8;0"
^DD(655.2,31.1,21,0)="^^2^2^2911125^^"
^DD(655.2,31.1,21,1,0)="This field is used to enter comments about any known substance abuse"
^DD(655.2,31.1,21,2,0)="problems."
^DD(655.2,31.1,"DT")="2911125"
^DD(655.2,32,0)="PSYCHO-SOCIAL ASSESSMENT^655.232^^19;0"
^DD(655.2,32,21,0)="^^2^2^2911118^^"
^DD(655.2,32,21,1,0)="This sub file is used to enter overall impressions of the psycho-social"
^DD(655.2,32,21,2,0)="assessment of the veteran."
^DD(655.2,32,"DT")="2911118"
^DD(655.2,"B","ADDRESS",29.5)=""
^DD(655.2,"B","ADDRESS",29.93)=""
^DD(655.2,"B","ADDRESS 1",6.1)=""
^DD(655.2,"B","ADDRESS 2",6.2)=""
^DD(655.2,"B","ADDRESS 2",29.6)=""
^DD(655.2,"B","ADDRESS 2",29.94)=""
^DD(655.2,"B","ATTORNEY'S NAME",29.4)=""
^DD(655.2,"B","CAREGIVER",11)=""
^DD(655.2,"B","CHILDREN'S NAME",7)=""
^DD(655.2,"B","CITY",6.3)=""
^DD(655.2,"B","CITY",29.7)=""
^DD(655.2,"B","CITY",29.95)=""
^DD(655.2,"B","COMMENTS",12)=""
^DD(655.2,"B","CURRENT LIVING ARRANGEMENTS",15)=""
^DD(655.2,"B","CURRENT SUBSTANCE ABUSE",31)=""
^DD(655.2,"B","DURABLE POWER OF ATTORNEY",29.1)=""
^DD(655.2,"B","EDUCATIONAL ASSESSMENT",4)=""
^DD(655.2,"B","EDUCATIONAL PROGRAM/SCHOOL?",4.2)=""
^DD(655.2,"B","EMPLOY/FINANCIAL ASSESSMENT",2)=""
^DD(655.2,"B","FATHER",9.1)=""
^DD(655.2,"B","FILE ENTRY DATE",.02)=""
^DD(655.2,"B","GUARDIAN'S NAME",29.92)=""
^DD(655.2,"B","GUARDIANSHIP",29.3)=""
^DD(655.2,"B","HIGHEST LEVEL OF EDUCATION",4.1)=""
^DD(655.2,"B","INITIAL PLAN OF ACTION",10)=""
^DD(655.2,"B","IS INCOME SUFFICIENT ?",2.1)=""
^DD(655.2,"B","LEGAL ASSESSMENT",30)=""
^DD(655.2,"B","LIVING WILL",29.2)=""
^DD(655.2,"B","MILITARY ADJUSTMENT",5.1)=""
^DD(655.2,"B","MILITARY ASSESSMENT",5)=""
^DD(655.2,"B","MOTHER",9)=""
^DD(655.2,"B","NAME",.01)=""
^DD(655.2,"B","NOTES SECTION",18)=""
^DD(655.2,"B","OTHER FINANCIAL RESOURCES",1)=""
^DD(655.2,"B","PHONE NUMBER",6.6)=""
^DD(655.2,"B","PHONE NUMBER",29.91)=""
^DD(655.2,"B","PHONE NUMBER",29.98)=""
^DD(655.2,"B","POTENTIAL EMPLOYABILITY",2.3)=""
^DD(655.2,"B","PRELIMINARY PROBLEMS",17)=""
^DD(655.2,"B","PRIMARY CASE NUMBER",.031)=""
^DD(655.2,"B","PRIMARY SOCIAL WORKER",.03)=""
^DD(655.2,"B","PROGRESS NOTE DATE",17.1)=""
^DD(655.2,"B","PSYCHO-SOCIAL ASSESSMENT",32)=""
^DD(655.2,"B","REFERRAL DATE",.023)=""
^DD(655.2,"B","SIBLINGS",9.2)=""
^DD(655.2,"B","SOCIAL SUPPORT SYSTEM",13)=""
^DD(655.2,"B","SOCIAL/FAMILY ASSESSMENT",16)=""
^DD(655.2,"B","SOURCE OF INFORMATION",.0221)=""
^DD(655.2,"B","SOURCE OF REFERRAL",.022)=""
^DD(655.2,"B","SPECIAL TRAINING/SKILLS",3)=""
^DD(655.2,"B","SPOUSE'S NAME",6)=""
^DD(655.2,"B","STATE",6.4)=""
^DD(655.2,"B","STATE",29.8)=""
^DD(655.2,"B","STATE",29.96)=""
^DD(655.2,"B","SUBSTANCE ABUSE COMMENT",31.1)=""
^DD(655.2,"B","SUPERVISOR",.04)=""
^DD(655.2,"B","SURROGATE",.05)=""
^DD(655.2,"B","USE OF COMMUNITY RESOURCES",14)=""
^DD(655.2,"B","ZIP",6.5)=""
^DD(655.2,"B","ZIP",29.9)=""
^DD(655.2,"B","ZIP",29.97)=""
^DD(655.2,"GL",0,1,.01)=""
^DD(655.2,"GL",0,2,.02)=""
^DD(655.2,"GL",0,3,.03)=""
^DD(655.2,"GL",0,4,4.2)=""
^DD(655.2,"GL",0,12,.031)=""
^DD(655.2,"GL",0,13,.04)=""
^DD(655.2,"GL",0,14,.05)=""
^DD(655.2,"GL",0,15,15)=""
^DD(655.2,"GL",0,19,5.1)=""
^DD(655.2,"GL",0,20,2.1)=""
^DD(655.2,"GL",0,21,.022)=""
^DD(655.2,"GL",0,22,2.3)=""
^DD(655.2,"GL",0,23,4.1)=""
^DD(655.2,"GL",0,24,.023)=""
^DD(655.2,"GL",0,25,31)=""
^DD(655.2,"GL",1,0,1)=""
^DD(655.2,"GL",2,0,2)=""
^DD(655.2,"GL",3,0,3)=""
^DD(655.2,"GL",4,0,4)=""
^DD(655.2,"GL",5,0,5)=""
^DD(655.2,"GL",6,1,6)=""
^DD(655.2,"GL",6,2,6.1)=""
^DD(655.2,"GL",6,3,6.2)=""
^DD(655.2,"GL",6,4,6.3)=""
^DD(655.2,"GL",6,5,6.4)=""
^DD(655.2,"GL",6,6,6.5)=""
^DD(655.2,"GL",6,7,6.6)=""
^DD(655.2,"GL",7,0,7)=""
^DD(655.2,"GL",8,0,31.1)=""
^DD(655.2,"GL",9,1,9)=""
^DD(655.2,"GL",9,2,9.1)=""
^DD(655.2,"GL",9,3,9.2)=""
^DD(655.2,"GL",10,0,10)=""
^DD(655.2,"GL",11,0,11)=""
^DD(655.2,"GL",12,0,12)=""
^DD(655.2,"GL",13,0,13)=""
^DD(655.2,"GL",14,0,14)=""
^DD(655.2,"GL",15,0,30)=""
^DD(655.2,"GL",16,0,16)=""
^DD(655.2,"GL",17,0,17)=""
^DD(655.2,"GL",18,1,.0221)=""
^DD(655.2,"GL",18,2,17.1)=""
^DD(655.2,"GL",19,0,32)=""
^DD(655.2,"GL",22,1,29.1)=""
^DD(655.2,"GL",22,2,29.2)=""
^DD(655.2,"GL",22,3,29.3)=""
^DD(655.2,"GL",22,4,29.4)=""
^DD(655.2,"GL",22,5,29.5)=""
^DD(655.2,"GL",22,6,29.6)=""
^DD(655.2,"GL",22,7,29.7)=""
^DD(655.2,"GL",22,8,29.8)=""
^DD(655.2,"GL",22,9,29.9)=""
^DD(655.2,"GL",22,10,29.91)=""
^DD(655.2,"GL",22,11,29.92)=""
^DD(655.2,"GL",22,12,29.93)=""
^DD(655.2,"GL",23,0,18)=""
^DD(655.2,"GL",25,1,29.94)=""
^DD(655.2,"GL",25,2,29.95)=""
^DD(655.2,"GL",25,3,29.96)=""
^DD(655.2,"GL",25,4,29.97)=""
^DD(655.2,"GL",25,5,29.98)=""
^DD(655.2,"IX",.01)=""
^DD(655.2,"IX",.03)=""
^DD(655.2,"IX",.04)=""
^DD(655.2,"IX",.05)=""
^DD(655.2,"RQ",.01)=""
^DD(655.2,"RQ",.02)=""
^DD(655.2,"RQ",.0221)=""
^DD(655.2,"RQ",.023)=""
^DD(655.2,"RQ",.03)=""
^DD(655.2,"RQ",.031)=""
^DD(655.2,"RQ",.04)=""
^DD(655.2,"RQ",17.1)=""
^DD(655.2,"SB",655.21,1)=""
^DD(655.2,"SB",655.218,18)=""
^DD(655.2,"SB",655.22,2)=""
^DD(655.2,"SB",655.23,3)=""
^DD(655.2,"SB",655.232,32)=""
^DD(655.2,"SB",655.24,4)=""
^DD(655.2,"SB",655.25,5)=""
^DD(655.2,"SB",655.26,31.1)=""
^DD(655.2,"SB",655.28,7)=""
^DD(655.2,"SB",655.31,10)=""
^DD(655.2,"SB",655.32,11)=""
^DD(655.2,"SB",655.33,12)=""
^DD(655.2,"SB",655.34,13)=""
^DD(655.2,"SB",655.35,14)=""
^DD(655.2,"SB",655.36,30)=""
^DD(655.2,"SB",655.37,16)=""
^DD(655.2,"SB",655.38,17)=""
^DD(655.201,0)="FIELD^^1^2"
^DD(655.201,0,"DDA")="N"
^DD(655.201,0,"DT")="2910315"
^DD(655.201,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(655.201,0,"IX","B",655.201,.01)=""
^DD(655.201,0,"IX","C",655.201,1)=""
^DD(655.201,0,"NM","PSYCHO-SOCIAL PROBLEMS")=""
^DD(655.201,0,"PT",650.02,.01)=""
^DD(655.201,0,"PT",655.38,.01)=""
^DD(655.201,0,"VR")="3.0"
^DD(655.201,.01,0)="PROBLEM NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<5) X"
^DD(655.201,.01,1,0)="^.1"
^DD(655.201,.01,1,1,0)="655.201^B"
^DD(655.201,.01,1,1,1)="S ^SOWK(655.201,""B"",$E(X,1,30),DA)="""""
^DD(655.201,.01,1,1,2)="K ^SOWK(655.201,""B"",$E(X,1,30),DA)"
^DD(655.201,.01,1,1,"DT")="2930804"
^DD(655.201,.01,3)="Answer must be 5-50 characters in length."
^DD(655.201,.01,21,0)="^^1^1^2910315^^"
^DD(655.201,.01,21,1,0)="This field is used to enter the name of the psycho-social problem."
^DD(655.201,.01,"DT")="2930804"
^DD(655.201,1,0)="NUMBER^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(655.201,1,1,0)="^.1"
^DD(655.201,1,1,1,0)="655.201^C"
^DD(655.201,1,1,1,1)="S ^SOWK(655.201,""C"",$E(X,1,30),DA)="""""
^DD(655.201,1,1,1,2)="K ^SOWK(655.201,""C"",$E(X,1,30),DA)"
^DD(655.201,1,1,1,"DT")="2910315"
^DD(655.201,1,3)="Answer must be 1-2 characters in length."
^DD(655.201,1,21,0)="^^1^1^2911103^"
^DD(655.201,1,21,1,0)="This field is used to enter a number for quick lookups."
^DD(655.201,1,"DT")="2910315"
^DD(655.201,"B","NUMBER",1)=""
^DD(655.201,"B","PROBLEM NAME",.01)=""
^DD(655.201,"GL",0,1,.01)=""
^DD(655.201,"GL",0,2,1)=""
^DD(655.201,"IX",.01)=""
^DD(655.201,"IX",1)=""
^DD(655.201,"RQ",.01)=""
^DD(655.201,"RQ",1)=""
^DD(655.202,0)="FIELD^^2^3"
^DD(655.202,0,"DDA")="N"
^DD(655.202,0,"DT")="2911010"
^DD(655.202,0,"ID",2)="D EN^DDIOL($P(^(0),U,2),"""",""?$X+4"")"
^DD(655.202,0,"IX","B",655.202,.01)=""
^DD(655.202,0,"IX","N",655.202,2)=""
^DD(655.202,0,"NM","DIRECT SERVICE CATEGORIES")=""
^DD(655.202,0,"PT",650.04,.01)=""
^DD(655.202,0,"PT",655.2182,.01)=""
^DD(655.202,0,"VR")="3.0"
^DD(655.202,0,"VRPK")="SOW"
^DD(655.202,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(655.202,.01,1,0)="^.1"
^DD(655.202,.01,1,1,0)="655.202^B"
^DD(655.202,.01,1,1,1)="S ^SOWK(655.202,""B"",$E(X,1,30),DA)="""""
^DD(655.202,.01,1,1,2)="K ^SOWK(655.202,""B"",$E(X,1,30),DA)"
^DD(655.202,.01,1,1,"DT")="2930804"
^DD(655.202,.01,3)="Answer must be 3-70 characters in length."
^DD(655.202,.01,4)=""
^DD(655.202,.01,21,0)="^^1^1^2911103^"
^DD(655.202,.01,21,1,0)="This field is used to enter name of a direct service category."
^DD(655.202,.01,"DT")="2930804"
^DD(655.202,1,0)="DESCRIPTION^655.2021^^1;0"
^DD(655.202,1,21,0)="^^1^1^2911103^"
^DD(655.202,1,21,1,0)="This field is used to enter description of the direct service category name."
^DD(655.202,2,0)="NUMBER^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(655.202,2,1,0)="^.1"
^DD(655.202,2,1,1,0)="655.202^N"
^DD(655.202,2,1,1,1)="S ^SOWK(655.202,""N"",$E(X,1,30),DA)="""""
^DD(655.202,2,1,1,2)="K ^SOWK(655.202,""N"",$E(X,1,30),DA)"
^DD(655.202,2,1,1,"%D",0)="^^2^2^2911010^"
^DD(655.202,2,1,1,"%D",1,0)="This cross reference is used for quick selection of a direct service"
^DD(655.202,2,1,1,"%D",2,0)="category."
^DD(655.202,2,1,1,"DT")="2911010"
^DD(655.202,2,3)="Answer must be 1-2 characters in length."
^DD(655.202,2,21,0)="^^1^1^2911101^^"
^DD(655.202,2,21,1,0)="This field is used for quick lookups."
^DD(655.202,2,"DT")="2911010"
^DD(655.202,"B","DESCRIPTION",1)=""
^DD(655.202,"B","NAME",.01)=""
^DD(655.202,"B","NUMBER",2)=""
^DD(655.202,"GL",0,1,.01)=""
^DD(655.202,"GL",0,2,2)=""
^DD(655.202,"GL",1,0,1)=""
^DD(655.202,"IX",.01)=""
^DD(655.202,"IX",2)=""
^DD(655.202,"RQ",.01)=""
^DD(655.202,"RQ",2)=""
^DD(655.202,"SB",655.2021,1)=""
^DD(655.2021,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(655.2021,0,"NM","DESCRIPTION")=""
^DD(655.2021,0,"UP")="655.202"
^DD(655.2021,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(655.2021,.01,21,0)="^^1^1^2911103^"
^DD(655.2021,.01,21,1,0)="This field is used to enter a description of direct service category."
^DD(655.2021,.01,"DT")="2890725"
^DD(655.2021,"B","DESCRIPTION",.01)=""
^DD(655.2021,"GL",0,1,.01)=""
^DD(655.203,0)="FIELD^^1^2"
^DD(655.203,0,"DDA")="N"
^DD(655.203,0,"DT")="2910423"
^DD(655.203,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(655.203,0,"IX","B",655.203,.01)=""
^DD(655.203,0,"IX","C",655.203,1)=""
^DD(655.203,0,"NM","PSYCHO-SOCIAL OUTCOMES")=""
^DD(655.203,0,"PT",650.02,1)=""
^DD(655.203,0,"PT",655.38,3)=""
^DD(655.203,0,"VR")="3.0"
^DD(655.203,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(655.203,.01,1,0)="^.1"
^DD(655.203,.01,1,1,0)="655.203^B"
^DD(655.203,.01,1,1,1)="S ^SOWK(655.203,""B"",$E(X,1,30),DA)="""""
^DD(655.203,.01,1,1,2)="K ^SOWK(655.203,""B"",$E(X,1,30),DA)"
^DD(655.203,.01,3)="Answer must be 3-50 characters in length."
^DD(655.203,.01,21,0)="^^1^1^2911103^^^"
^DD(655.203,.01,21,1,0)="This field is used to enter the name of the psycho-social outcome."
^DD(655.203,.01,"DT")="2910423"
^DD(655.203,1,0)="NUMBER^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(655.203,1,1,0)="^.1"
^DD(655.203,1,1,1,0)="655.203^C"
^DD(655.203,1,1,1,1)="S ^SOWK(655.203,""C"",$E(X,1,30),DA)="""""
^DD(655.203,1,1,1,2)="K ^SOWK(655.203,""C"",$E(X,1,30),DA)"
^DD(655.203,1,1,1,"DT")="2910423"
^DD(655.203,1,3)="Answer must be 1-2 characters in length."
^DD(655.203,1,21,0)="^^1^1^2911101^^"
^DD(655.203,1,21,1,0)="This field is used to store the code sheet number of the psycho-social problem."
^DD(655.203,1,"DT")="2910423"
^DD(655.203,"B","NAME",.01)=""
^DD(655.203,"B","NUMBER",1)=""
^DD(655.203,"GL",0,1,.01)=""
^DD(655.203,"GL",0,2,1)=""
^DD(655.203,"IX",.01)=""
^DD(655.203,"IX",1)=""
^DD(655.203,"RQ",.01)=""
^DD(655.203,"RQ",1)=""
^DD(655.21,0)="OTHER FINANCIAL RESOURCES SUB-FIELD^^.01^1"
^DD(655.21,0,"NM","OTHER FINANCIAL RESOURCES")=""
^DD(655.21,0,"UP")="655.2"
^DD(655.21,.01,0)="OTHER FINANCIAL RESOURCES^W^^0;1^Q"
^DD(655.21,.01,3)="Enter potential source of other financial resources."
^DD(655.21,.01,21,0)="^^1^1^2911108^^"
^DD(655.21,.01,21,1,0)="This field is used to enter description of other financial resources for veteran."
^DD(655.21,"B","OTHER FINANCIAL RESOURCES",.01)=""
^DD(655.21,"GL",0,1,.01)=""
^DD(655.218,0)="NOTES SECTION SUB-FIELD^^7^8"
^DD(655.218,0,"DT")="2910307"
^DD(655.218,0,"IX","AG",655.218,1)=""
^DD(655.218,0,"IX","B",655.218,.01)=""
^DD(655.218,0,"NM","NOTES SECTION")=""
^DD(655.218,0,"UP")="655.2"
^DD(655.218,.01,0)="SOCIAL WORKER^MR*P200'^VA(200,^0;1^S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(655.218,.01,1,0)="^.1"
^DD(655.218,.01,1,1,0)="655.218^B"
^DD(655.218,.01,1,1,1)="S ^SOWK(655.2,DA(1),23,""B"",$E(X,1,30),DA)="""""
^DD(655.218,.01,1,1,2)="K ^SOWK(655.2,DA(1),23,""B"",$E(X,1,30),DA)"
^DD(655.218,.01,3)="Enter Social Worker's name entering notes."
^DD(655.218,.01,12)="Only valid Social Workers are to be selected."
^DD(655.218,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,+Y,654)),$P(^(654),""""^"""")"""
^DD(655.218,.01,21,0)="^^2^2^2910307^^^"
^DD(655.218,.01,21,1,0)="This field is to be used to show the social worker that entered notes about"
^DD(655.218,.01,21,2,0)="the patient."
^DD(655.218,.01,"DT")="2910307"
^DD(655.218,1,0)="CASE NUMBER^RP650'^SOWK(650,^0;2^Q"
^DD(655.218,1,1,0)="^.1"
^DD(655.218,1,1,1,0)="655.218^AG"
^DD(655.218,1,1,1,1)="S ^SOWK(655.2,DA(1),23,""AG"",$E(X,1,30),DA)="""""
^DD(655.218,1,1,1,2)="K ^SOWK(655.2,DA(1),23,""AG"",$E(X,1,30),DA)"
^DD(655.218,1,1,1,"DT")="2910308"
^DD(655.218,1,3)="Enter Case Number associated with patient from the Case Management System."
^DD(655.218,1,21,0)="^^2^2^2910226^"
^DD(655.218,1,21,1,0)="If Data Base Assessment Module is tied to the Case Management System this"
^DD(655.218,1,21,2,0)="field will be used to show the case number."
^DD(655.218,1,"DT")="2910308"
^DD(655.218,2,0)="DIRECT SERVICES PROVIDED^655.2182PA^^1;0"
^DD(655.218,2,21,0)="^^1^1^2911103^"
^DD(655.218,2,21,1,0)="This sub-file is used to enter direct services provided."
^DD(655.218,3,0)="DISCHARGE PLANNING NOTE^F^^0;3^K:$L(X)>70!($L(X)<1) X"
^DD(655.218,3,3)="Answer must be 1-70 characters in length."
^DD(655.218,3,21,0)="^^1^1^2911103^"
^DD(655.218,3,21,1,0)="This field is used to enter a discharge planning note."
^DD(655.218,3,"DT")="2910306"
^DD(655.218,4,0)="DISCHARGE PLANNING DATE^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.218,4,3)="Enter date discharged note was entered."
^DD(655.218,4,21,0)="^^1^1^2911103^"
^DD(655.218,4,21,1,0)="This field is used to enter date of discharge note."
^DD(655.218,4,"DT")="2910306"
^DD(655.218,5,0)="CLOSING NOTE ^655.2185^^2;0"
^DD(655.218,5,21,0)="^^1^1^2911103^"
^DD(655.218,5,21,1,0)="This section is used to enter closing note summary."
^DD(655.218,6,0)="AFTER CARE PLAN^RF^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(655.218,6,3)="Answer must be 1-50 characters in length."
^DD(655.218,6,21,0)="^^1^1^2911103^"
^DD(655.218,6,21,1,0)="This field is used to enter after care plan."
^DD(655.218,6,"DT")="2910306"
^DD(655.218,7,0)="CLOSING NOTE DATE^RD^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.218,7,1,0)="^.1^^0"
^DD(655.218,7,3)="Enter date closing note was entered."
^DD(655.218,7,21,0)="^^1^1^2911103^"
^DD(655.218,7,21,1,0)="This field is used to enter date of closing note summary."
^DD(655.218,7,"DT")="2910325"
^DD(655.218,"B","AFTER CARE PLAN",6)=""
^DD(655.218,"B","CASE NUMBER",1)=""
^DD(655.218,"B","CLOSING NOTE ",5)=""
^DD(655.218,"B","CLOSING NOTE DATE",7)=""
^DD(655.218,"B","DIRECT SERVICES PROVIDED",2)=""
^DD(655.218,"B","DISCHARGE PLANNING DATE",4)=""
^DD(655.218,"B","DISCHARGE PLANNING NOTE",3)=""
^DD(655.218,"B","SOCIAL WORKER",.01)=""
^DD(655.218,"GL",0,1,.01)=""
^DD(655.218,"GL",0,2,1)=""
^DD(655.218,"GL",0,3,3)=""
^DD(655.218,"GL",0,4,4)=""
^DD(655.218,"GL",0,5,6)=""
^DD(655.218,"GL",0,6,7)=""
^DD(655.218,"GL",1,0,2)=""
^DD(655.218,"GL",2,0,5)=""
^DD(655.218,"IX",.01)=""
^DD(655.218,"IX",1)=""
^DD(655.218,"RQ",.01)=""
^DD(655.218,"RQ",1)=""
^DD(655.218,"RQ",4)=""
^DD(655.218,"RQ",6)=""
^DD(655.218,"RQ",7)=""
^DD(655.218,"SB",655.2182,2)=""
^DD(655.218,"SB",655.2185,5)=""
^DD(655.2182,0)="DIRECT SERVICES PROVIDED SUB-FIELD^^.01^1"
^DD(655.2182,0,"DT")="2910306"
^DD(655.2182,0,"IX","B",655.2182,.01)=""
^DD(655.2182,0,"NM","DIRECT SERVICES PROVIDED")=""
^DD(655.2182,0,"UP")="655.218"
^DD(655.2182,.01,0)="DIRECT SERVICES PROVIDED^MRP655.202'^SOWK(655.202,^0;1^Q"
^DD(655.2182,.01,1,0)="^.1"
^DD(655.2182,.01,1,1,0)="655.2182^B"
^DD(655.2182,.01,1,1,1)="S ^SOWK(655.2,DA(2),23,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(655.2182,.01,1,1,2)="K ^SOWK(655.2,DA(2),23,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(655.2182,.01,3)="Enter services directly provided to patient."
^DD(655.2182,.01,21,0)="^^1^1^2911103^"
^DD(655.2182,.01,21,1,0)="This field is used to enter direct service categories."
^DD(655.2182,.01,"DT")="2910306"
^DD(655.2182,"B","DIRECT SERVICES PROVIDED",.01)=""
^DD(655.2182,"GL",0,1,.01)=""
^DD(655.2182,"IX",.01)=""
^DD(655.2182,"RQ",.01)=""
^DD(655.2185,0)="CLOSING NOTE  SUB-FIELD^^.01^1"
^DD(655.2185,0,"DT")="2910306"
^DD(655.2185,0,"NM","CLOSING NOTE ")=""
^DD(655.2185,0,"UP")="655.218"
^DD(655.2185,.01,0)="CLOSING NOTE ^W^^0;1^Q"
^DD(655.2185,.01,3)="Enter Closing Note for this patient."
^DD(655.2185,.01,21,0)="^^1^1^2911103^^"
^DD(655.2185,.01,21,1,0)="This field is used to enter closing note summary."
^DD(655.2185,.01,"DT")="2910306"
^DD(655.2185,"B","CLOSING NOTE ",.01)=""
^DD(655.2185,"GL",0,1,.01)=""
^DD(655.22,0)="EMPLOY/FINANCIAL ASSESSMENT SUB-FIELD^^.01^1"
^DD(655.22,0,"NM","EMPLOY/FINANCIAL ASSESSMENT")=""
^DD(655.22,0,"UP")="655.2"
^DD(655.22,.01,0)="EMPLOY/FINANCIAL ASSESSMENT^W^^0;1^Q"
^DD(655.22,.01,3)="Enter employment/financial assessment"
^DD(655.22,.01,21,0)="^^1^1^2911108^^^"
^DD(655.22,.01,21,1,0)="This field is used to enter employment and financial assessments."
^DD(655.22,"B","EMPLOY/FINANCIAL ASSESSMENT",.01)=""
^DD(655.22,"GL",0,1,.01)=""
^DD(655.23,0)="SPECIAL TRAINING/SKILLS SUB-FIELD^^.01^1"
^DD(655.23,0,"NM","SPECIAL TRAINING/SKILLS")=""
^DD(655.23,0,"UP")="655.2"
^DD(655.23,.01,0)="SPECIAL TRAINING/SKILLS^W^^0;1^Q"
^DD(655.23,.01,3)="Enter special training and skills"
^DD(655.23,.01,21,0)="^^1^1^2911125^^^^"
^DD(655.23,.01,21,1,0)="This field is used to enter Special training or skills of the veteran."
^DD(655.23,"B","SPECIAL TRAINING/SKILLS",.01)=""
^DD(655.23,"GL",0,1,.01)=""
^DD(655.232,0)="PSYCHO-SOCIAL ASSESSMENT SUB-FIELD^^.01^1"
^DD(655.232,0,"DT")="2911106"
^DD(655.232,0,"NM","PSYCHO-SOCIAL ASSESSMENT")=""
^DD(655.232,0,"UP")="655.2"
^DD(655.232,.01,0)="PSYCHO-SOCIAL ASSESSMENT^W^^0;1^Q"
^DD(655.232,.01,3)="Enter overall psycho-social impressions about case."
^DD(655.232,.01,21,0)="^^2^2^2911118^^"
^DD(655.232,.01,21,1,0)="This field is used to enter any impressions about the psycho-social"
^DD(655.232,.01,21,2,0)="assessments."
^DD(655.232,.01,"DT")="2911118"
^DD(655.232,"B","PSYCHO-SOCIAL ASSESSMENT",.01)=""
^DD(655.232,"GL",0,1,.01)=""
^DD(655.24,0)="EDUCATIONAL ASSESSMENT SUB-FIELD^^.01^1"
^DD(655.24,0,"NM","EDUCATIONAL ASSESSMENT")=""
^DD(655.24,0,"UP")="655.2"
^DD(655.24,.01,0)="EDUCATIONAL ASSESSMENT^W^^0;1^Q"
^DD(655.24,.01,3)="Enter Educational assessment of the veteran"
^DD(655.24,.01,21,0)="^^1^1^2911125^^^^"
^DD(655.24,.01,21,1,0)="This field is used for educational assessment of the veteran."
^DD(655.24,"B","EDUCATIONAL ASSESSMENT",.01)=""
^DD(655.24,"GL",0,1,.01)=""
^DD(655.25,0)="MILITARY ASSESSMENT SUB-FIELD^^.01^1"
^DD(655.25,0,"NM","MILITARY ASSESSMENT")=""
^DD(655.25,0,"UP")="655.2"
^DD(655.25,.01,0)="MILITARY ASSESSMENT^W^^0;1^Q"
^DD(655.25,.01,3)="Enter Military Assessment of the veteran"
^DD(655.25,.01,21,0)="^^1^1^2911108^^"
^DD(655.25,.01,21,1,0)="This field is used to enter a military assessment of the veteran."
^DD(655.25,"B","MILITARY ASSESSMENT",.01)=""
^DD(655.25,"GL",0,1,.01)=""
^DD(655.26,0)="SUBSTANCE ABUSE COMMENT SUB-FIELD^^.01^1"
^DD(655.26,0,"DT")="2911106"
^DD(655.26,0,"NM","SUBSTANCE ABUSE COMMENT")=""
^DD(655.26,0,"UP")="655.2"
^DD(655.26,.01,0)="SUBSTANCE ABUSE COMMENT^W^^0;1^Q"
^DD(655.26,.01,3)="Enter comments about subtance abuse problems."
^DD(655.26,.01,21,0)="^^2^2^2911125^^^"
^DD(655.26,.01,21,1,0)="This field is used to enter any comments about any known substance"
^DD(655.26,.01,21,2,0)="abuse problems."
^DD(655.26,.01,"DT")="2911125"
^DD(655.26,"B","SUBSTANCE ABUSE COMMENT",.01)=""
^DD(655.26,"GL",0,1,.01)=""
^DD(655.28,0)="CHILDREN'S NAME SUB-FIELD^^1^2"
^DD(655.28,0,"DT")="2911105"
^DD(655.28,0,"IX","B",655.28,.01)=""
^DD(655.28,0,"NM","CHILDREN'S NAME")=""
^DD(655.28,0,"UP")="655.2"
^DD(655.28,.01,0)="CHILDREN'S NAME^MF^^0;1^K:$L(X)>35!($L(X)<1) X"
^DD(655.28,.01,1,0)="^.1"
^DD(655.28,.01,1,1,0)="655.28^B"
^DD(655.28,.01,1,1,1)="S ^SOWK(655.2,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(655.28,.01,1,1,2)="K ^SOWK(655.2,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(655.28,.01,3)="Answer must be 1-35 characters in length."
^DD(655.28,.01,21,0)="^^1^1^2911125^^^^"
^DD(655.28,.01,21,1,0)="This field is used to enter the name of the veteran's children."
^DD(655.28,.01,"DT")="2911105"
^DD(655.28,1,0)="DATE OF BIRTH^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(655.28,1,.1)="DOB"
^DD(655.28,1,3)="Enter date of birth of child for current marriage."
^DD(655.28,1,21,0)="^^1^1^2920316^^^^"
^DD(655.28,1,21,1,0)="This field is used to enter the ages of the veteran's children."
^DD(655.28,1,"DT")="2910115"
^DD(655.28,"B","CHILDREN'S NAME",.01)=""
^DD(655.28,"B","DATE OF BIRTH",1)=""
^DD(655.28,"B","DOB",1)="1"
^DD(655.28,"GL",0,1,.01)=""
^DD(655.28,"GL",0,2,1)=""
^DD(655.28,"IX",.01)=""
^DD(655.31,0)="INITIAL PLAN OF ACTION SUB-FIELD^^.01^1"
^DD(655.31,0,"NM","INITIAL PLAN OF ACTION")=""
^DD(655.31,0,"UP")="655.2"
^DD(655.31,.01,0)="INITIAL PLAN OF ACTION^W^^0;1^Q"
^DD(655.31,.01,3)="Enter initial plan of action as related to problems entered."
^DD(655.31,.01,21,0)="^^1^1^2920103^^^^"
^DD(655.31,.01,21,1,0)="This field is used to enter plan of action as related to problems entered."
^DD(655.31,.01,"DT")="2920103"
^DD(655.31,"B","INITIAL PLAN OF ACTION",.01)=""
^DD(655.31,"GL",0,1,.01)=""
^DD(655.32,0)="CAREGIVER SUB-FIELD^^3^4"
^DD(655.32,0,"DT")="2910903"
^DD(655.32,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(655.32,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(655.32,0,"IX","B",655.32,.01)=""
^DD(655.32,0,"NM","CAREGIVER")=""
^DD(655.32,0,"UP")="655.2"
^DD(655.32,.01,0)="CAREGIVER^MF^^0;1^K:$L(X)>35!($L(X)<3) X"
^DD(655.32,.01,1,0)="^.1"
^DD(655.32,.01,1,1,0)="655.32^B"
^DD(655.32,.01,1,1,1)="S ^SOWK(655.2,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(655.32,.01,1,1,2)="K ^SOWK(655.2,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(655.32,.01,3)="Enter caregiver of the veteran."
^DD(655.32,.01,21,0)="^^1^1^2911108^^^"
^DD(655.32,.01,21,1,0)="This field is used to enter the name of the caregiver for the veteran."
^DD(655.32,1,0)="CAREGIVER PHONE^F^^0;2^K:$L(X)>15!($L(X)<3) X"
^DD(655.32,1,3)="Enter phone number of caregiver for veteran."
^DD(655.32,1,21,0)="^^1^1^2911108^^^"
^DD(655.32,1,21,1,0)="This field is used to enter the phone number of caregiver for veteran."
^DD(655.32,1,"DT")="2870309"
^DD(655.32,2,0)="RELATIONSHIP^S^R:RELATIVE;N:NON-RELATIVE;H:HIRED HELP;S:SPOUSE;^0;3^Q"
^DD(655.32,2,3)="Enter valid code for relationship of caregiver to veteran."
^DD(655.32,2,21,0)="^^1^1^2911108^^^^"
^DD(655.32,2,21,1,0)="This field is used to enter relationship of caregiver to veteran."
^DD(655.32,2,"DT")="2910903"
^DD(655.32,3,0)="LIMITATIONS^S^N:MINIMAL OR NONE;M:MODERATE;S:MODERATE SEVERE;A:NO CAREGIVER;^0;4^Q"
^DD(655.32,3,3)="Enter limitation of caregiver."
^DD(655.32,3,21,0)="^^1^1^2911101^^"
^DD(655.32,3,21,1,0)="This field is used for the limitation of caregiver."
^DD(655.32,3,"DT")="2870309"
^DD(655.32,"B","CAREGIVER",.01)=""
^DD(655.32,"B","CAREGIVER PHONE",1)=""
^DD(655.32,"B","LIMITATIONS",3)=""
^DD(655.32,"B","RELATIONSHIP",2)=""
^DD(655.32,"GL",0,1,.01)=""
^DD(655.32,"GL",0,2,1)=""
^DD(655.32,"GL",0,3,2)=""
^DD(655.32,"GL",0,4,3)=""
^DD(655.32,"IX",.01)=""
^DD(655.33,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(655.33,0,"NM","COMMENTS")=""
^DD(655.33,0,"UP")="655.2"
^DD(655.33,.01,0)="COMMENTS^W^^0;1^Q"
^DD(655.33,.01,21,0)="^^1^1^2911108^^"
^DD(655.33,.01,21,1,0)="This field is used to enter comments about the social/family assessment."
^DD(655.33,.01,"DT")="2911108"
^DD(655.33,"B","COMMENTS",.01)=""
^DD(655.33,"GL",0,1,.01)=""
^DD(655.34,0)="SOCIAL SUPPORT SYSTEM SUB-FIELD^^.01^1"
^DD(655.34,0,"NM","SOCIAL SUPPORT SYSTEM")=""
^DD(655.34,0,"UP")="655.2"
^DD(655.34,.01,0)="SOCIAL SUPPORT SYSTEM^W^^0;1^Q"
^DD(655.34,.01,3)="Enter description of social support system"
^DD(655.34,.01,21,0)="^^1^1^2911108^^"
^DD(655.34,.01,21,1,0)="This field is used to enter potential social support system."
^DD(655.34,"B","SOCIAL SUPPORT SYSTEM",.01)=""
^DD(655.34,"GL",0,1,.01)=""
^DD(655.35,0)="USE OF COMMUNITY RESOURCES SUB-FIELD^^.01^1"
^DD(655.35,0,"NM","USE OF COMMUNITY RESOURCES")=""
^DD(655.35,0,"UP")="655.2"
^DD(655.35,.01,0)="USE OF COMMUNITY RESOURCES^W^^0;1^Q"
^DD(655.35,.01,3)="Enter description of the Use of Community Resources"
^DD(655.35,.01,21,0)="^^1^1^2911108^^^"
^DD(655.35,.01,21,1,0)="This field is used to enter Use of Available Community Resources."
^DD(655.35,"B","USE OF COMMUNITY RESOURCES",.01)=""
^DD(655.35,"GL",0,1,.01)=""
^DD(655.36,0)="LEGAL ASSESSMENT SUB-FIELD^^.01^1"
^DD(655.36,0,"NM","LEGAL ASSESSMENT")=""
^DD(655.36,0,"UP")="655.2"
^DD(655.36,.01,0)="LEGAL ASSESSMENT^W^^0;1^Q"
^DD(655.36,.01,21,0)="^^1^1^2911108^^^"
^DD(655.36,.01,21,1,0)="This field is used to enter any legal assessments."
^DD(655.36,.01,"DT")="2900328"
^DD(655.36,"B","LEGAL ASSESSMENT",.01)=""
^DD(655.36,"GL",0,1,.01)=""
^DD(655.37,0)="SOCIAL/FAMILY ASSESSMENT SUB-FIELD^^.01^1"
^DD(655.37,0,"NM","SOCIAL/FAMILY ASSESSMENT")=""
^DD(655.37,0,"UP")="655.2"
^DD(655.37,.01,0)="SOCIAL/FAMILY ASSESSMENT^W^^0;1^Q"
^DD(655.37,.01,3)="Enter Social and Family Assessment"
^DD(655.37,.01,21,0)="^^1^1^2911108^^^"
^DD(655.37,.01,21,1,0)="This field is used to enter Social and Family Assessments."
^DD(655.37,"B","SOCIAL/FAMILY ASSESSMENT",.01)=""
^DD(655.37,"GL",0,1,.01)=""
^DD(655.38,0)="PRELIMINARY PROBLEMS SUB-FIELD^^3^4"
^DD(655.38,0,"DT")="2911231"
^DD(655.38,0,"IX","B",655.38,.01)=""
^DD(655.38,0,"NM","PRELIMINARY PROBLEMS")=""
^DD(655.38,0,"UP")="655.2"
^DD(655.38,.01,0)="PRELIMINARY PROBLEMS^MRP655.201'^SOWK(655.201,^0;1^Q"
^DD(655.38,.01,1,0)="^.1"
^DD(655.38,.01,1,1,0)="655.38^B"
^DD(655.38,.01,1,1,1)="S ^SOWK(655.2,DA(1),17,""B"",$E(X,1,30),DA)="""""
^DD(655.38,.01,1,1,2)="K ^SOWK(655.2,DA(1),17,""B"",$E(X,1,30),DA)"
^DD(655.38,.01,3)="Enter preliminary problems of the patient."
^DD(655.38,.01,21,0)="^^1^1^2911108^^^"
^DD(655.38,.01,21,1,0)="This field is used to enter the preliminary problems of the veteran."
^DD(655.38,.01,21,2,0)=" "
^DD(655.38,.01,"DT")="2910115"
^DD(655.38,1,0)="WORKER^RP200'^VA(200,^0;2^Q"
^DD(655.38,1,3)="Enter social worker's name who entered the preliminary problems."
^DD(655.38,1,21,0)="^^1^1^2911101^^^^"
^DD(655.38,1,21,1,0)="Social worker who entered the preliminary problem list."
^DD(655.38,1,"DT")="2890602"
^DD(655.38,2,0)="INITIAL PLAN OF ACTION^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(655.38,2,3)="Enter initial plan of action for problem listed."
^DD(655.38,2,21,0)="^^2^2^2910818^^"
^DD(655.38,2,21,1,0)="This field is used to show the initial plan of action to resolve"
^DD(655.38,2,21,2,0)="preliminary problems entered."
^DD(655.38,2,"DT")="2910211"
^DD(655.38,3,0)="OUTCOME OF PROBLEM^RP655.203'^SOWK(655.203,^0;4^Q"
^DD(655.38,3,3)="Enter outcome of problem."
^DD(655.38,3,21,0)="^^1^1^2911231^^"
^DD(655.38,3,21,1,0)="This field is used to enter outcome of preliminary problems."
^DD(655.38,3,"DT")="2911231"
^DD(655.38,"B","INITIAL PLAN OF ACTION",2)=""
^DD(655.38,"B","OUTCOME OF PROBLEM",3)=""
^DD(655.38,"B","PRELIMINARY PROBLEMS",.01)=""
^DD(655.38,"B","WORKER",1)=""
^DD(655.38,"GL",0,1,.01)=""
^DD(655.38,"GL",0,2,1)=""
^DD(655.38,"GL",0,3,2)=""
^DD(655.38,"GL",0,4,3)=""
^DD(655.38,"IX",.01)=""
^DD(655.38,"RQ",.01)=""
^DD(655.38,"RQ",1)=""
^DD(655.38,"RQ",3)=""
^DD(656,0)="FIELD^^16^20"
^DD(656,0,"DDA")="N"
^DD(656,0,"DT")="2911025"
^DD(656,0,"IX","B",656,.01)=""
^DD(656,0,"IX","C",656.01,.01)=""
^DD(656,0,"IX","D",656,4)=""
^DD(656,0,"IX","E",656,2)=""
^DD(656,0,"IX","F",656,15)=""
^DD(656,0,"IX","M",656,3)=""
^DD(656,0,"NM","SWS RESOURCES")=""
^DD(656,0,"VR")="3.0"
^DD(656,.01,0)="AGENCY^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(656,.01,1,0)="^.1"
^DD(656,.01,1,1,0)="656^B"
^DD(656,.01,1,1,1)="S ^SOWK(656,""B"",$E(X,1,30),DA)="""""
^DD(656,.01,1,1,2)="K ^SOWK(656,""B"",$E(X,1,30),DA)"
^DD(656,.01,3)="Your answer must be 3 to 60 characters in length."
^DD(656,.01,21,0)="^^1^1^2900629^^^"
^DD(656,.01,21,1,0)="This is the name of the community resource module agency."
^DD(656,.01,"DT")="2831028"
^DD(656,1,0)="STREET ADDRESS 1^RF^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(656,1,3)="Your answer must be 3 to 50 characters in length."
^DD(656,1,21,0)="^^1^1^2900629^^"
^DD(656,1,21,1,0)="This is the primary address of agency."
^DD(656,1.5,0)="STREET ADDRESS 2^F^^4;3^K:$L(X)>50!($L(X)<3) X"
^DD(656,1.5,3)="Your answer must be 3 to 50 characters in length."
^DD(656,1.5,21,0)="^^1^1^2900629^^"
^DD(656,1.5,21,1,0)="This is the secondary address of agency."
^DD(656,1.5,"DT")="2841124"
^DD(656,2,0)="CITY^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(656,2,1,0)="^.1"
^DD(656,2,1,1,0)="656^E"
^DD(656,2,1,1,1)="S ^SOWK(656,""E"",$E(X,1,30),DA)="""""
^DD(656,2,1,1,2)="K ^SOWK(656,""E"",$E(X,1,30),DA)"
^DD(656,2,3)="Your answer must be 3 to 20 characters in length."
^DD(656,2,21,0)="^^1^1^2900629^^"
^DD(656,2,21,1,0)="This is the city where the agency is located."
^DD(656,2,"DT")="2841126"
^DD(656,2.5,0)="STATE^RP5'^DIC(5,^4;2^Q"
^DD(656,2.5,1,0)="^.1"
^DD(656,2.5,1,1,0)="^^TRIGGER^656^3"
^DD(656,2.5,1,1,1)="I '$D(DIU(0)) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SOWK(656,D0,4)):^(4),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" S DIH=$S($D(^SOWK(656,DIV(0),4)):^(4),1:""""),DIV=X S $P(^(4),U,1)=DIV,DIH=656,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(656,2.5,1,1,2)="I '$D(DIU(0)) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SOWK(656,D0,4)):^(4),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" S DIH=$S($D(^SOWK(656,DIV(0),4)):^(4),1:""""),DIV=X S $P(^(4),U,1)=DIV,DIH=656,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))"
^DD(656,2.5,1,1,"%D",0)="^^1^1^2911125^"
^DD(656,2.5,1,1,"%D",1,0)="This trigger is used to delete county name if the state name value is changed."
^DD(656,2.5,1,1,"CREATE VALUE")="@"
^DD(656,2.5,1,1,"DELETE VALUE")="@"
^DD(656,2.5,1,1,"FIELD")="COUNTY"
^DD(656,2.5,3)="Enter state where the agency is located."
^DD(656,2.5,21,0)="^^2^2^2900912^^^^"
^DD(656,2.5,21,1,0)="This is the state in which this agency is located."
^DD(656,2.5,21,2,0)=" "
^DD(656,2.5,"DT")="2901214"
^DD(656,3,0)="COUNTY^RFX'^^4;1^S Z0=$S($P(^SOWK(656,D0,4),""^"",2):$P(^(4),""^"",2),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""QEM"" D ^DIC S X=$P(Y,""^"",2) K:'Y X K Z0,DIC"
^DD(656,3,1,0)="^.1"
^DD(656,3,1,1,0)="656^M"
^DD(656,3,1,1,1)="S ^SOWK(656,""M"",$E(X,1,30),DA)="""""
^DD(656,3,1,1,2)="K ^SOWK(656,""M"",$E(X,1,30),DA)"
^DD(656,3,3)="Enter a valid county for state where agency is located."
^DD(656,3,4)="D EN1^SOWKBH"
^DD(656,3,5,1,0)="656^2.5^1"
^DD(656,3,21,0)="^^1^1^2911101^^^"
^DD(656,3,21,1,0)="This field is used to show what county within the state the agency is located."
^DD(656,3,"DT")="2910905"
^DD(656,4,0)="ZIP CODE^RF^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<5) X"
^DD(656,4,1,0)="^.1"
^DD(656,4,1,1,0)="656^D"
^DD(656,4,1,1,1)="S ^SOWK(656,""D"",$E(X,1,30),DA)="""""
^DD(656,4,1,1,2)="K ^SOWK(656,""D"",$E(X,1,30),DA)"
^DD(656,4,3)="Answer must be 5-10 characters in length."
^DD(656,4,21,0)="^^1^1^2911101^^^^"
^DD(656,4,21,1,0)="This is the zip code of the agency."
^DD(656,4,"DT")="2911025"
^DD(656,5,0)="PHONE NUMBER #1^RF^^0;6^K:$L(X)>15!($L(X)<3) X"
^DD(656,5,3)="Your answer must be 3 to 15 characters in length."
^DD(656,5,21,0)="^^2^2^2900629^^^"
^DD(656,5,21,1,0)="This is the primary phone number of the agency."
^DD(656,5,21,2,0)=" "
^DD(656,5,"DT")="2841124"
^DD(656,5.1,0)="FAX NUMBER^F^^0;8^K:$L(X)>15!($L(X)<7) X"
^DD(656,5.1,3)="Your answer must be 7-15 characters in length."
^DD(656,5.1,21,0)="^^1^1^2910818^^^"
^DD(656,5.1,21,1,0)="This is the FAX number of the agency."
^DD(656,5.1,"DT")="2900309"
^DD(656,5.2,0)="PHONE NUMBER #2^F^^1;4^K:$L(X)>15!($L(X)<7) X"
^DD(656,5.2,3)="Your answer must be 7-15 characters in length."
^DD(656,5.2,21,0)="^^1^1^2900629^^^"
^DD(656,5.2,21,1,0)="This is the secondary phone number of the agency."
^DD(656,6,0)="HOURS^RF^^0;7^K:$L(X)>70!($L(X)<3) X"
^DD(656,6,3)="Your answer must be 3 to 70 characters in length."
^DD(656,6,21,0)="^^2^2^2900629^^"
^DD(656,6,21,1,0)="This field contains the operational hours of this agency."
^DD(656,6,21,2,0)=" "
^DD(656,7,0)="SERVICE^RF^^1;1^K:$L(X)>70!($L(X)<3) X"
^DD(656,7,3)="Your answer must be 3 to 70 characters in length."
^DD(656,7,21,0)="^^3^3^2900629^^"
^DD(656,7,21,1,0)="This field contains the Mission Statement of Services provided"
^DD(656,7,21,2,0)="by the agency."
^DD(656,7,21,3,0)=" "
^DD(656,7,"DT")="2851220"
^DD(656,8,0)="ELIGIBILITY^RF^^1;2^K:$L(X)>70!($L(X)<3) X"
^DD(656,8,3)="Your answer must be 3 to 70 characters in length."
^DD(656,8,21,0)="^^2^2^2900629^^"
^DD(656,8,21,1,0)="This is the criteria required for service delivery."
^DD(656,8,21,2,0)=" "
^DD(656,9,0)="FEES^RF^^1;3^K:$L(X)>65!($L(X)<3) X"
^DD(656,9,3)="Your answer must be 3 to 65 characters in length."
^DD(656,9,21,0)="^^1^1^2900629^^"
^DD(656,9,21,1,0)="This field contains fees charged by the agency."
^DD(656,10,0)="REFERRAL^RF^^2;1^K:$L(X)>70!($L(X)<3) X"
^DD(656,10,3)="Your answer must be 3 to 70 characters in length."
^DD(656,10,21,0)="^^2^2^2900629^^"
^DD(656,10,21,1,0)="This is the usual procedure required to access services."
^DD(656,10,21,2,0)=" "
^DD(656,11,0)="COMMENTS^F^^2;2^K:$L(X)>70!($L(X)<3) X"
^DD(656,11,3)="Your answer must be 3 to 70 characters in length."
^DD(656,11,21,0)="^^2^2^2900629^^^"
^DD(656,11,21,1,0)="These are brief comments about this agency."
^DD(656,11,21,2,0)=" "
^DD(656,11,"DT")="2850412"
^DD(656,12,0)="DATE OF INFO^RD^^2;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(656,12,3)="Enter date when data was entered or last updated."
^DD(656,12,21,0)="^^3^3^2900911^^^^"
^DD(656,12,21,1,0)="This is the date on which the information about this agency was entered"
^DD(656,12,21,2,0)="or updated."
^DD(656,12,21,3,0)=" "
^DD(656,12,"DT")="2841124"
^DD(656,13,0)="VA LIAISON^RF^^2;4^K:$L(X)>50!($L(X)<3) X"
^DD(656,13,3)="Your answer must be 3 to 50 characters in length."
^DD(656,13,21,0)="^^1^1^2900911^^"
^DD(656,13,21,1,0)="This field will be the VA Liaison for the community resource."
^DD(656,13,"DT")="2851220"
^DD(656,15,0)="SPECIAL POPULATION^FX^^2;6^S DIC=""^SOWK(650.1,1,2,"",DIC(0)=""EQM"" D ^DIC S X=$P(Y,""^"",2) K:+Y'>0 X K DIC"
^DD(656,15,1,0)="^.1"
^DD(656,15,1,1,0)="656^F^MUMPS"
^DD(656,15,1,1,1)="S ^SOWK(656,""F"",X,DA)="""""
^DD(656,15,1,1,2)="K ^SOWK(656,""F"",X,DA)"
^DD(656,15,1,1,"%D",0)="^^1^1^2911125^"
^DD(656,15,1,1,"%D",1,0)="This cross reference is used for sorting and printing."
^DD(656,15,3)="Enter a valid special patient population."
^DD(656,15,4)="S DIC=""^SOWK(650.1,1,2,"",DIC(0)=""QEM"" D ^DIC K DIC"
^DD(656,15,21,0)="^^2^2^2900629^^"
^DD(656,15,21,1,0)="This is the special population that this agency may serve."
^DD(656,15,21,2,0)=" "
^DD(656,15,"DT")="2900307"
^DD(656,16,0)="TYPE^656.01S^^3;0"
^DD(656,16,21,0)="^^2^2^2911101^^^^"
^DD(656,16,21,1,0)="This field is used for the type of services provided by an agency.  "
^DD(656,16,21,2,0)="An agency can provide multiple types of services."
^DD(656,"B","AGENCY",.01)=""
^DD(656,"B","CITY",2)=""
^DD(656,"B","COMMENTS",11)=""
^DD(656,"B","COUNTY",3)=""
^DD(656,"B","DATE OF INFO",12)=""
^DD(656,"B","ELIGIBILITY",8)=""
^DD(656,"B","FAX NUMBER",5.1)=""
^DD(656,"B","FEES",9)=""
^DD(656,"B","HOURS",6)=""
^DD(656,"B","PHONE NUMBER #1",5)=""
^DD(656,"B","PHONE NUMBER #2",5.2)=""
^DD(656,"B","REFERRAL",10)=""
^DD(656,"B","SERVICE",7)=""
^DD(656,"B","SPECIAL POPULATION",15)=""
^DD(656,"B","STATE",2.5)=""
^DD(656,"B","STREET ADDRESS 1",1)=""
^DD(656,"B","STREET ADDRESS 2",1.5)=""
^DD(656,"B","TYPE",16)=""
^DD(656,"B","VA LIAISON",13)=""
^DD(656,"B","ZIP CODE",4)=""
^DD(656,"GL",0,1,.01)=""
^DD(656,"GL",0,2,1)=""
^DD(656,"GL",0,3,2)=""
^DD(656,"GL",0,5,4)=""
^DD(656,"GL",0,6,5)=""
^DD(656,"GL",0,7,6)=""
^DD(656,"GL",0,8,5.1)=""
^DD(656,"GL",1,1,7)=""
^DD(656,"GL",1,2,8)=""
^DD(656,"GL",1,3,9)=""
^DD(656,"GL",1,4,5.2)=""
^DD(656,"GL",2,1,10)=""
^DD(656,"GL",2,2,11)=""
^DD(656,"GL",2,3,12)=""
^DD(656,"GL",2,4,13)=""
^DD(656,"GL",2,6,15)=""
^DD(656,"GL",3,0,16)=""
^DD(656,"GL",4,1,3)=""
^DD(656,"GL",4,2,2.5)=""
^DD(656,"GL",4,3,1.5)=""
^DD(656,"IX",.01)=""
^DD(656,"IX",2)=""
^DD(656,"IX",2.5)=""
^DD(656,"IX",3)=""
^DD(656,"IX",4)=""
^DD(656,"IX",15)=""
^DD(656,"RQ",.01)=""
^DD(656,"RQ",1)=""
^DD(656,"RQ",2)=""
^DD(656,"RQ",2.5)=""
^DD(656,"RQ",3)=""
^DD(656,"RQ",4)=""
^DD(656,"RQ",5)=""
^DD(656,"RQ",6)=""
^DD(656,"RQ",7)=""
^DD(656,"RQ",8)=""
^DD(656,"RQ",9)=""
^DD(656,"RQ",10)=""
^DD(656,"RQ",12)=""
^DD(656,"RQ",13)=""
^DD(656,"SB",656.01,16)=""
^DD(656.01,0)="TYPE SUB-FIELD^NL^.01^1"
^DD(656.01,0,"NM","TYPE")=""
^DD(656.01,0,"UP")="656"
^DD(656.01,.01,0)="TYPE^MRS^AD:ADDICTION;EM:EMPLOYMENT;IN:INFORMATION/REFERRALS;DA:DAY CARE;FI:FINANCES;FO:FOOD;HE:HEALTH;HO:HOUSING;IH:IN HOME SERVICES;LE:LEGAL;MH:MENTAL HEALTH;SH:SELF HELP;SP:SP ED/RECREATION;TR:TRANSPORTATION;VO:VOLUNTEER;^0;1^Q"
^DD(656.01,.01,1,0)="^.1"
^DD(656.01,.01,1,1,0)="656^C"
^DD(656.01,.01,1,1,1)="S ^SOWK(656,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(656.01,.01,1,1,2)="K ^SOWK(656,""C"",$E(X,1,30),DA(1),DA)"
^DD(656.01,.01,3)="Enter type of agency.  Can be of more than one type."
^DD(656.01,.01,21,0)="^^2^2^2900911^^^^"
^DD(656.01,.01,21,1,0)="This is the type of agency."
^DD(656.01,.01,21,2,0)=" "
^DD(656.01,.01,"DT")="2900221"
^DD(656.01,"B","TYPE",.01)=""
^DD(656.01,"GL",0,1,.01)=""
^DD(656.01,"IX",.01)=""
^DD(656.01,"RQ",.01)=""
^DD(660,0)="FIELD^^97^145"
^DD(660,0,"DDA")="N"
^DD(660,0,"DT")="2960311"
^DD(660,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RMPR(665,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(665,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(660,0,"IX","AC",660,1)=""
^DD(660,0,"IX","AD",660,4)=""
^DD(660,0,"IX","AE",660,60)=""
^DD(660,0,"IX","AF",660,39)=""
^DD(660,0,"IX","AG",660,68)=""
^DD(660,0,"IX","ALOG",660,83)=""
^DD(660,0,"IX","APD",660,107)=""
^DD(660,0,"IX","APH",660,106)=""
^DD(660,0,"IX","APTASK01",660,.01)=""
^DD(660,0,"IX","APTASK45",660,4.5)=""
^DD(660,0,"IX","B",660,.01)=""
^DD(660,0,"IX","C",660,.02)=""
^DD(660,0,"IX","CD",660,50)=""
^DD(660,0,"IX","CT",660,10)=""
^DD(660,0,"IX","DDC",660,89.1)=""
^DD(660,0,"IX","E",660,23)=""
^DD(660,0,"IX","F",660,.01)=""
^DD(660,0,"IX","G",660,4.1)=""
^DD(660,0,"IX","H",660,4.5)=""
^DD(660,0,"IX","I",660,8.13)=""
^DD(660,0,"NM","RECORD OF PROS APPLIANCE/REPAIR")=""
^DD(660,0,"PT",356,.09)=""
^DD(660,0,"PT",362.5,.04)=""
^DD(660,0,"PT",660.1,11.5)=""
^DD(660,0,"PT",660.2,11.5)=""
^DD(660,0,"PT",661.63,2)=""
^DD(660,0,"PT",664,13)=""
^DD(660,0,"PT",664.02,12)=""
^DD(660,0,"PT",664.16,5)=""
^DD(660,0,"PT",664.2,1)=""
^DD(660,0,"PT",664.22,12)=""
^DD(660,0,"PT",664.3,1)=""
^DD(660,0,"PT",665.723191,15)=""
^DD(660,0,"PT",668.81,.01)=""
^DD(660,0,"PT",791810,11.04)=""
^DD(660,0,"VR")="3.0"
^DD(660,.01,0)="ENTRY DATE^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(660,.01,1,0)="^.1"
^DD(660,.01,1,1,0)="660^B"
^DD(660,.01,1,1,1)="S ^RMPR(660,""B"",$E(X,1,30),DA)="""""
^DD(660,.01,1,1,2)="K ^RMPR(660,""B"",$E(X,1,30),DA)"
^DD(660,.01,1,2,0)="660^F^MUMPS"
^DD(660,.01,1,2,1)="I +$P(^RMPR(660,DA,0),U,2) S ^RMPR(660,""F"",$E(X,1,30),+$P(^RMPR(660,DA,0),U,2),DA)="""""
^DD(660,.01,1,2,2)="I +$P(^RMPR(660,DA,0),U,2) K ^RMPR(660,""F"",$E(X,1,30),+$P(^RMPR(660,DA,0),U,2),DA)"
^DD(660,.01,1,2,"%D",0)="^^2^2^2930306^"
^DD(660,.01,1,2,"%D",1,0)="This x-ref allows lookups on the ""F"" x-ref by Appliance and Repair date and"
^DD(660,.01,1,2,"%D",2,0)="Patient IEN."
^DD(660,.01,1,2,"DT")="2920127"
^DD(660,.01,1,3,0)="^^TRIGGER^660^106"
^DD(660,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,.01,1,3,1.4)"
^DD(660,.01,1,3,1.4)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,7)=DIV,DIH=660,DIG=106 D ^DICR"
^DD(660,.01,1,3,2)="Q"
^DD(660,.01,1,3,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(660,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(660,.01,1,3,"DT")="3051101"
^DD(660,.01,1,3,"FIELD")="PFSS ACCOUNT FLAG"
^DD(660,.01,1,4,0)="660^APTASK01^MUMPS"
^DD(660,.01,1,4,1)="Q"
^DD(660,.01,1,4,2)="D CHRGTASK^RMPRPF3"
^DD(660,.01,1,4,"DT")="3051101"
^DD(660,.01,3)="Please enter a valid date."
^DD(660,.01,21,0)="^^1^1^2950417^^^^"
^DD(660,.01,21,1,0)="This is the date that the transaction was entered into the system.  It may or may not be the same as the request date."
^DD(660,.01,"DEL",.01,0)="I 1 W ""  CANNOT DELETE ENTRY THIS WAY."""
^DD(660,.01,"DT")="3051101"
^DD(660,.02,0)="PATIENT NAME^RP665^RMPR(665,^0;2^Q"
^DD(660,.02,1,0)="^.1"
^DD(660,.02,1,1,0)="660^C"
^DD(660,.02,1,1,1)="S ^RMPR(660,""C"",$E(X,1,30),DA)="""""
^DD(660,.02,1,1,2)="K ^RMPR(660,""C"",$E(X,1,30),DA)"
^DD(660,.02,1,1,"%D",0)="^^1^1^2960124^"
^DD(660,.02,1,1,"%D",1,0)="This will allow lookup by Patient Name."
^DD(660,.02,3)="Please enter the Patient's name."
^DD(660,.02,21,0)="^^3^3^2950417^^^^"
^DD(660,.02,21,1,0)="This is the name of the patient that this transaction is for.  "
^DD(660,.02,21,2,0)="The name is a pointer to the PROSTHETIC PATIENT file which has the same"
^DD(660,.02,21,3,0)="internal entry number as the main patient database."
^DD(660,.02,"DT")="2910419"
^DD(660,1,0)="REQUEST DATE^RD^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,1,1,0)="^.1^^-1"
^DD(660,1,1,2,0)="660^AC^MUMPS"
^DD(660,1,1,2,1)="S Y=9999999-X,^RMPR(660,""AC"",+$P(^RMPR(660,DA,0),U,2),Y,DA)="""" K Y"
^DD(660,1,1,2,2)="S Y=9999999-X K ^RMPR(660,""AC"",+$P(^RMPR(660,DA,0),U,2),Y,DA),Y"
^DD(660,1,1,2,"%D",0)="^^2^2^2960124^^"
^DD(660,1,1,2,"%D",1,0)="Allow lookups on Patient Transactions by an Inverse Date and the Patient IEN"
^DD(660,1,1,2,"%D",2,0)="for displays on the 2319 screen #4."
^DD(660,1,3)="Please enter the date of the patient's request."
^DD(660,1,21,0)="^^3^3^2930315^^^^"
^DD(660,1,21,1,0)="This field is the date the appliance issue or repair was"
^DD(660,1,21,2,0)="requested by the patient.  It may or may not be the same as the entry date or"
^DD(660,1,21,3,0)="the delivery date.  This depends on how quickly the transactions take place."
^DD(660,1,"DT")="2860723"
^DD(660,2,0)="TYPE OF TRANSACTION^RS^I:INITIAL ISSUE;R:REPLACE;S:SPARE;X:REPAIR;5:RENTAL;^0;4^Q"
^DD(660,2,.1)="LABEL"
^DD(660,2,3)="Please enter the appropriate code indicating the type of transaction."
^DD(660,2,21,0)="^.001^3^3^3050503^^^^"
^DD(660,2,21,1,0)="This set of codes will tell what kind of transaction this request"
^DD(660,2,21,2,0)="is.  The possibilities all fall under the VAF 10-7306a listings"
^DD(660,2,21,3,0)=" except for the repair."
^DD(660,2,"DT")="3050503"
^DD(660,4,0)="ITEM^RP661'O^RMPR(661,^0;6^Q"
^DD(660,4,1,0)="^.1"
^DD(660,4,1,1,0)="660^AD"
^DD(660,4,1,1,1)="S ^RMPR(660,""AD"",$E(X,1,30),DA)="""""
^DD(660,4,1,1,2)="K ^RMPR(660,""AD"",$E(X,1,30),DA)"
^DD(660,4,1,1,"%D",0)="^^1^1^2930306^"
^DD(660,4,1,1,"%D",1,0)="Allows lookups for an item by Ifcap Item Master number."
^DD(660,4,1,2,0)="^^TRIGGER^660^89"
^DD(660,4,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""HST"")):^(""HST""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV D EN^RMPRU99 S DIH=$G(^RMPR(660,DIV(0),""HST"")),DIV=X S $P(^(""HST""),U,1)=DIV,DIH=660,DIG=89 D ^DICR"
^DD(660,4,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""HST"")):^(""HST""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV D DEL^RMPRU99 S DIH=$G(^RMPR(660,DIV(0),""HST"")),DIV=X S $P(^(""HST""),U,1)=DIV,DIH=660,DIG=89 D ^DICR"
^DD(660,4,1,2,"%D",0)="^^3^3^3041018^"
^DD(660,4,1,2,"%D",1,0)="This trigger will save the IFCAP Item Master Short Description to allow"
^DD(660,4,1,2,"%D",2,0)="the NIF project to implement IFCAP patch 75 to overwrite the Short Descripton"
^DD(660,4,1,2,"%D",3,0)="with the new NIF Item Description."
^DD(660,4,1,2,"CREATE VALUE")="D EN^RMPRU99"
^DD(660,4,1,2,"DELETE VALUE")="D DEL^RMPRU99"
^DD(660,4,1,2,"DT")="3040922"
^DD(660,4,1,2,"FIELD")="HISTORICAL ITEM"
^DD(660,4,2)="S Y(0)=Y X ^DD(660,4,2,9.2) S D0=$P(Y(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(Y(201),U,2) S D0=I(0,0) S Y=X"
^DD(660,4,2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RMPR(661,D0,0)):^(0),1:"""")"
^DD(660,4,2.1)="ITEM:.01:SHORT DESCRIPTION"
^DD(660,4,3)="Please enter the Item from the PROS ITEM MASTER file."
^DD(660,4,21,0)="^^3^3^2950417^^^^"
^DD(660,4,21,1,0)="This field is a pointer to the master item list of possible appliances."
^DD(660,4,21,2,0)="The master list is set up so that appliances fall into groups which are"
^DD(660,4,21,3,0)="the types of appliances."
^DD(660,4,"DT")="3040922"
^DD(660,4.1,0)="HCPCS^RP81'^ICPT(^0;22^Q"
^DD(660,4.1,.1)=""
^DD(660,4.1,1,0)="^.1"
^DD(660,4.1,1,1,0)="660^G"
^DD(660,4.1,1,1,1)="S ^RMPR(660,""G"",$E(X,1,30),DA)="""""
^DD(660,4.1,1,1,2)="K ^RMPR(660,""G"",$E(X,1,30),DA)"
^DD(660,4.1,1,1,"DT")="2980123"
^DD(660,4.1,3)="Enter the appropriate HCPCS (Health Care Financing Administration Common Procedure Coding System) code for the Item you are selecting."
^DD(660,4.1,5,1,0)="660^4.5^1"
^DD(660,4.1,21,0)="^^6^6^2960910^^^^"
^DD(660,4.1,21,1,0)="Health Care Financing Administration Common Procedure Coding System"
^DD(660,4.1,21,2,0)="(HCPCS)."
^DD(660,4.1,21,3,0)=" "
^DD(660,4.1,21,4,0)="This field should have the HCPCS code for the Item you are selecting."
^DD(660,4.1,21,5,0)="HCPCS is a uniform method for healthcare providers and medical suppliers"
^DD(660,4.1,21,6,0)="to report professional services, procedures and supplies."
^DD(660,4.1,"DT")="2980123"
^DD(660,4.2,0)="VENDOR TRACKING NUMBER^F^^4;1^K:$L(X)>20!($L(X)<1) X"
^DD(660,4.2,3)="Answer must be 1-20 characters in length."
^DD(660,4.2,21,0)="^^6^6^2960311^"
^DD(660,4.2,21,1,0)="This field is the Vendor's internal unique tracking number.  Some of the"
^DD(660,4.2,21,2,0)="small vendors are not automated with VISA, and this tracking number is"
^DD(660,4.2,21,3,0)="used to reference this transaction.  This tracking number is based on the"
^DD(660,4.2,21,4,0)="item, and can be as simple as the vendors item number, or elaborate as the"
^DD(660,4.2,21,5,0)="vendors transaction number.  This data will be used in the reconciliation"
^DD(660,4.2,21,6,0)="process."
^DD(660,4.2,"DT")="2960313"
^DD(660,4.3,0)="BANK AUTHORIZATION NUMBER^F^^4;2^K:$L(X)>6!($L(X)<6)!'(X?.N) X"
^DD(660,4.3,3)="Answer must be 6 numbers in length."
^DD(660,4.3,21,0)="^^3^3^2960311^^"
^DD(660,4.3,21,1,0)="This six digit number is the authorization number VISA gives to the"
^DD(660,4.3,21,2,0)="vendor for guaranteed payment.  This number is used in the reconciliation"
^DD(660,4.3,21,3,0)="process."
^DD(660,4.3,"DT")="2960311"
^DD(660,4.5,0)="PSAS HCPCS^P661.1'X^RMPR(661.1,^1;4^K:$P(^RMPR(661.1,X,0),U,5)'=1 X"
^DD(660,4.5,1,0)="^.1"
^DD(660,4.5,1,1,0)="^^TRIGGER^660^4.1"
^DD(660,4.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(660,4.5,1,1,1.1) X ^DD(660,4.5,1,1,1.4)"
^DD(660,4.5,1,1,1.1)="S X=DIV S RMXX=$P(^RMPR(661.1,DIV,0),U,4),$P(^RMPR(660,DA,0),U,22)=RMXX"
^DD(660,4.5,1,1,1.4)="S DIH=$S($D(^RMPR(660,DIV(0),0)):^(0),1:""""),DIV=RMXX S $P(^(0),U,22)=DIV,DIH=660,DIG=4.1 K RMXX D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(660,4.5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="""" X ^DD(660,4.5,1,1,2.4)"
^DD(660,4.5,1,1,2.4)="S DIH=$S($D(^RMPR(660,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,22)=DIV,DIH=660,DIG=4.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(660,4.5,1,1,"CREATE VALUE")="S RMXX=$P(^RMPR(661.1,DIV,0),U,4),$P(^RMPR(660,DA,0),U,22)=RMXX K RMXX"
^DD(660,4.5,1,1,"DELETE VALUE")="@"
^DD(660,4.5,1,1,"DT")="2980611"
^DD(660,4.5,1,1,"FIELD")="HCPCS"
^DD(660,4.5,1,2,0)="660^H"
^DD(660,4.5,1,2,1)="S ^RMPR(660,""H"",$E(X,1,30),DA)="""""
^DD(660,4.5,1,2,2)="K ^RMPR(660,""H"",$E(X,1,30),DA)"
^DD(660,4.5,1,2,"DT")="2990608"
^DD(660,4.5,1,3,0)="^^TRIGGER^660^106"
^DD(660,4.5,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,4.5,1,3,1.4)"
^DD(660,4.5,1,3,1.4)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,7)=DIV,DIH=660,DIG=106 D ^DICR"
^DD(660,4.5,1,3,2)="Q"
^DD(660,4.5,1,3,3)="This cross-reference will be never deleted by the user."
^DD(660,4.5,1,3,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(660,4.5,1,3,"DELETE VALUE")="NO EFFECT"
^DD(660,4.5,1,3,"DT")="3051028"
^DD(660,4.5,1,3,"FIELD")="PFSS ACCOUNT FLAG"
^DD(660,4.5,1,4,0)="^^TRIGGER^660^107"
^DD(660,4.5,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,4.5,1,4,1.4)"
^DD(660,4.5,1,4,1.4)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^DD(660,4.5,1,4,2)="Q"
^DD(660,4.5,1,4,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(660,4.5,1,4,"DELETE VALUE")="NO EFFECT"
^DD(660,4.5,1,4,"DT")="3051028"
^DD(660,4.5,1,4,"FIELD")="PFSS CHARGE FLAG"
^DD(660,4.5,1,5,0)="660^APTASK45^MUMPS"
^DD(660,4.5,1,5,1)="Q"
^DD(660,4.5,1,5,2)="D CHRGTASK^RMPRPF3"
^DD(660,4.5,1,5,"DT")="3051101"
^DD(660,4.5,3)="Enter standardized Prosthetics HCPCS"
^DD(660,4.5,8.5)="@"
^DD(660,4.5,21,0)="^.001^1^1^3050725^^^^"
^DD(660,4.5,21,1,0)="Standardized Prosthetics HCPCS that points to file 661.1."
^DD(660,4.5,"DT")="3051101"
^DD(660,4.6,0)="STOCK ISSUE^P661.6^RMPR(661.6,^1;5^Q"
^DD(660,4.6,3)=""
^DD(660,4.6,21,0)="^^1^1^3010926^"
^DD(660,4.6,21,1,0)="This is a pointer to file #661.6."
^DD(660,4.6,"DT")="3010620"
^DD(660,4.7,0)="CPT MODIFIER^F^^1;6^K:$L(X)>36!($L(X)<1) X"
^DD(660,4.7,3)="Answer must be 1-36 characters in length."
^DD(660,4.7,21,0)="^^1^1^3000105^^^^"
^DD(660,4.7,21,1,0)="CPT Modifiers in a comma delimited format, consistent with the HCFA published manuals."
^DD(660,4.7,"DT")="2991110"
^DD(660,4.8,0)="DATE CPT MODIFIER EXTRACTED^D^^1;7^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(660,4.8,21,0)="^^3^3^3000110^^^^"
^DD(660,4.8,21,1,0)="This is the date the patient record extracted for billing.  This date is"
^DD(660,4.8,21,2,0)="also being used to trigger a mail message to billing if the PSAS HCPCS is"
^DD(660,4.8,21,3,0)="edited and changed after the extraction has been ran."
^DD(660,4.8,"DT")="3000110"
^DD(660,4.9,0)="HCPCS-ICD9 CODING FLAG^NJ6,0^^1;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(660,4.9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(660,4.9,21,0)="^^7^7^3040916^"
^DD(660,4.9,21,1,0)="This field is used to determine the current code set versioning of a transaction."
^DD(660,4.9,21,2,0)="        No errors, number 1."
^DD(660,4.9,21,3,0)="        PSAS HCPCS, Not Billiable Item, number 14."
^DD(660,4.9,21,4,0)="        ICD9 error, number 12."
^DD(660,4.9,21,5,0)="        HCPCS error, number 13."
^DD(660,4.9,21,6,0)="        Both ICD9 and HCPCS error, number 132."
^DD(660,4.9,21,7,0)="        Both ICD9 error and Not Billiable Item, number 142."
^DD(660,4.9,"DT")="3040914"
^DD(660,4.91,0)="CODING FLAG DATE^D^^1;12^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(660,4.91,21,0)="^^2^2^3040916^"
^DD(660,4.91,21,1,0)="This is the date associated with field number 4.9.  The date the coding"
^DD(660,4.91,21,2,0)="flag was set."
^DD(660,4.91,"DT")="3040916"
^DD(660,4.92,0)="HIGH TECH ITEM^S^1:YES;0:NO;^1;13^Q"
^DD(660,4.92,21,0)="^.001^3^3^3060331^^"
^DD(660,4.92,21,1,0)="This is the determination by the Prosthetics Laboratory Technician."
^DD(660,4.92,21,2,0)="1=YES"
^DD(660,4.92,21,3,0)="0=NO"
^DD(660,4.92,"DT")="3060331"
^DD(660,5,0)="QTY^RNJ4,0^^0;7^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(660,5,1,0)="^.1"
^DD(660,5,1,1,0)="^^TRIGGER^660^107"
^DD(660,5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,5,1,1,1.4)"
^DD(660,5,1,1,1.4)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^DD(660,5,1,1,2)="Q"
^DD(660,5,1,1,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(660,5,1,1,"DELETE VALUE")="NO EFFECT"
^DD(660,5,1,1,"DT")="3051028"
^DD(660,5,1,1,"FIELD")="PFSS CHARGE FLAG"
^DD(660,5,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(660,5,21,0)="^^2^2^2950413^^^^"
^DD(660,5,21,1,0)="This is the number of units that was issued or repaired for"
^DD(660,5,21,2,0)="this transaction."
^DD(660,5,"DT")="3051028"
^DD(660,6,0)="SHIP/DEL^NJ8,2^^0;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(660,6,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(660,6,21,0)="^^1^1^2950417^^"
^DD(660,6,21,1,0)="This is the charge associated with shipping."
^DD(660,6,22)=""
^DD(660,6,"DT")="2920225"
^DD(660,6.5,0)="PICKUP/DEL^S^P:PICKUP;D:DELIVERY;^0;26^Q"
^DD(660,6.5,3)="Please enter `P` if these are pickup charges or `D` if delivery charges on VAF 10-2319."
^DD(660,6.5,21,0)="^^2^2^2950417^^^^"
^DD(660,6.5,21,1,0)="This field is a set of codes to identify pickup/delivery charges on"
^DD(660,6.5,21,2,0)="VAF 10-2319."
^DD(660,6.5,"DT")="2910114"
^DD(660,7,0)="VENDOR^RP440'^PRC(440,^0;9^Q"
^DD(660,7,3)="Please enter the name of a vendor on file at this station."
^DD(660,7,21,0)="^^5^5^2950417^^^^"
^DD(660,7,21,1,0)="The vendor is a pointer to IFCAP's VENDOR file and is the name of the"
^DD(660,7,21,2,0)="company from which this appliance was or is to be purchased.  The vendor"
^DD(660,7,21,3,0)="may or may not be the same as the manufacturer.  Therefore, manufacturers"
^DD(660,7,21,4,0)="should also be listed in this file as vendors if you are going to be "
^DD(660,7,21,5,0)="purchasing directly from the manufacturer."
^DD(660,7,"DT")="2910813"
^DD(660,8,0)="STATION^RP4'^DIC(4,^0;10^Q"
^DD(660,8,3)="Enter the Station Name or Station Number."
^DD(660,8,21,0)="^^4^4^2950417^^^^"
^DD(660,8,21,1,0)="The station is the Veterans Affairs site where this transaction is"
^DD(660,8,21,2,0)="to come to completion.  It is the station that is ultimately responsible"
^DD(660,8,21,3,0)="for the issue and payment for the prosthetic device. This is the station"
^DD(660,8,21,4,0)="reporting the workload."
^DD(660,8,"DT")="2910813"
^DD(660,8.1,0)="SUSPENSE DATE^D^^10;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,8.1,3)=""
^DD(660,8.1,21,0)="^.001^1^1^3010924^^"
^DD(660,8.1,21,1,0)="This is suspense date (.01 field) of file (#668)."
^DD(660,8.1,"DT")="3010723"
^DD(660,8.11,0)="SUSPENSE STATION^P4'^DIC(4,^10;11^Q"
^DD(660,8.11,21,0)="^^1^1^3010924^"
^DD(660,8.11,21,1,0)="This refers to the consulting station."
^DD(660,8.11,"DT")="3010530"
^DD(660,8.12,0)="PCE^P9000010^AUPNVSIT(^10;12^Q"
^DD(660,8.12,.1)=""
^DD(660,8.12,3)=""
^DD(660,8.12,21,0)="^.001^2^2^3010924^^"
^DD(660,8.12,21,1,0)="This field is pointer to (Patient Encounter), Visit file (#9000010).  When"
^DD(660,8.12,21,2,0)="an entry is created in PCE a pointer is being set."
^DD(660,8.12,"DT")="3010709"
^DD(660,8.13,0)="DATE SENT TO PCE^D^^10;13^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(660,8.13,1,0)="^.1"
^DD(660,8.13,1,1,0)="660^I"
^DD(660,8.13,1,1,1)="S ^RMPR(660,""I"",$E(X,1,30),DA)="""""
^DD(660,8.13,1,1,2)="K ^RMPR(660,""I"",$E(X,1,30),DA)"
^DD(660,8.13,1,1,"DT")="3010716"
^DD(660,8.13,3)="(No range limit on date)"
^DD(660,8.13,21,0)="^.001^2^2^3010924^^^^"
^DD(660,8.13,21,1,0)="This is the date last sent or edited in PCE.  If PCE is deleted this field"
^DD(660,8.13,21,2,0)="should be deleted."
^DD(660,8.13,"DT")="3010716"
^DD(660,8.14,0)="SUSPENSE STATUS^S^0:INCOMPLETE;1:COMPLETE;^10;14^Q"
^DD(660,8.14,21,0)="^.001^3^3^3010924^^^"
^DD(660,8.14,21,1,0)="This is the suspense status of the patient 2319 record. If the status is"
^DD(660,8.14,21,2,0)="complete, a suspense link was established.  If the status is incomplete,"
^DD(660,8.14,21,3,0)="there is no suspense link to the patient 2319 record."
^DD(660,8.14,"DT")="3010814"
^DD(660,8.2,0)="DATE RX WRITTEN^D^^10;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(660,8.2,21,0)="^.001^1^1^3010924^^"
^DD(660,8.2,21,1,0)="This is the date the prescription was written as it appears in file #668."
^DD(660,8.2,"DT")="3010612"
^DD(660,8.3,0)="INITIAL ACTION DATE^D^^10;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(660,8.3,21,0)="^^1^1^3010924^"
^DD(660,8.3,21,1,0)="This field is the date when an initial action was entered in suspense."
^DD(660,8.3,"DT")="3010612"
^DD(660,8.4,0)="COMPLETION DATE^D^^10;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(660,8.4,21,0)="^.001^1^1^3010924^^"
^DD(660,8.4,21,1,0)="This is the date the susepnse was completed as it appears in file #668."
^DD(660,8.4,"DT")="3010612"
^DD(660,8.5,0)="TYPE OF REQUEST^F^^10;5^K:$L(X)>16!($L(X)<3) X"
^DD(660,8.5,3)="Answer must be 3-16 characters in length."
^DD(660,8.5,21,0)="^^2^2^3010924^"
^DD(660,8.5,21,1,0)="This field could either be ROUTINE PROSTHETICS, EYEGLASS, CONTACT LENS,"
^DD(660,8.5,21,2,0)="OXYGEN, MANUAL  NON CPRS or CLOTHING ALLOWANCE."
^DD(660,8.5,"DT")="3010530"
^DD(660,8.6,0)="SUSPENSE REQUESTOR^P200'^VA(200,^10;6^Q"
^DD(660,8.6,1,0)="^.1"
^DD(660,8.6,1,1,0)="^^TRIGGER^660^107"
^DD(660,8.6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,8.6,1,1,1.4)"
^DD(660,8.6,1,1,1.4)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^DD(660,8.6,1,1,2)="Q"
^DD(660,8.6,1,1,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(660,8.6,1,1,"DELETE VALUE")="NO EFFECT"
^DD(660,8.6,1,1,"DT")="3051028"
^DD(660,8.6,1,1,"FIELD")="PFSS CHARGE FLAG"
^DD(660,8.6,21,0)="^^2^2^3010924^"
^DD(660,8.6,21,1,0)="This is a pointer to file #200, the person requesting the suspense as it "
^DD(660,8.6,21,2,0)="appears in file #668."
^DD(660,8.6,"DT")="3051028"
^DD(660,8.61,0)="CONSULT REQUEST SERVICE^F^^4;3^K:$L(X)>35!($L(X)<2) X"
^DD(660,8.61,3)="Answer must be 2-35 characters in length."
^DD(660,8.61,21,0)="^^3^3^3030507^"
^DD(660,8.61,21,1,0)="A service/section of a suspense requestor that initiated a consult for"
^DD(660,8.61,21,2,0)="Prosthetics item.  This free text entry is a service/section name of"
^DD(660,8.61,21,3,0)="SERVICE/SECTION file (#49)."
^DD(660,8.61,"DT")="3030506"
^DD(660,8.7,0)="PROVISIONAL DIAGNOSIS^F^^10;7^K:$L(X)>16!($L(X)<3) X"
^DD(660,8.7,3)="Answer must be 3-16 characters in length."
^DD(660,8.7,21,0)="^^1^1^3010924^"
^DD(660,8.7,21,1,0)="This is a free text diagnosis as it appears in suspense file."
^DD(660,8.7,"DT")="3010530"
^DD(660,8.8,0)="SUSPENSE ICD9^P80'^ICD9(^10;8^Q"
^DD(660,8.8,21,0)="^^2^2^3010924^"
^DD(660,8.8,21,1,0)="This field is a pointer to ICD9 file, #80.  This is the code at the time "
^DD(660,8.8,21,2,0)="suspense was created."
^DD(660,8.8,"DT")="3010530"
^DD(660,8.9,0)="CONSULT^P123'^GMR(123,^10;9^Q"
^DD(660,8.9,21,0)="^^1^1^3010924^"
^DD(660,8.9,21,1,0)="This is a pointer to Consult file #123."
^DD(660,8.9,"DT")="3010530"
^DD(660,9,0)="SERIAL NBR^FX^^0;11^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1)!(X[""^"") X"
^DD(660,9,1,0)="^.1^^0"
^DD(660,9,3)="Answer must be 1-20 characters in length and cannot contain an ""^""."
^DD(660,9,21,0)="^^2^2^2950525^^^^"
^DD(660,9,21,1,0)="This is the serial number of the issued or repaired appliance.  If the"
^DD(660,9,21,2,0)="serial number is longer than 20 characters, use the FIRST 20 characters.  "
^DD(660,9,"DT")="2930420"
^DD(660,9.1,0)="PRODUCT DESCRIPTION^F^^9;1^K:$L(X)>55!($L(X)<1) X"
^DD(660,9.1,3)="Answer must be 1-55 characters in length."
^DD(660,9.1,21,0)="^^1^1^3040302^"
^DD(660,9.1,21,1,0)="The manufacture product description to be used for recalls."
^DD(660,9.1,"DT")="3040302"
^DD(660,9.2,0)="PRODUCT MODEL^F^^9;2^K:$L(X)>55!($L(X)<1) X"
^DD(660,9.2,3)="Answer must be 1-55 characters in length."
^DD(660,9.2,21,0)="^^1^1^3040302^"
^DD(660,9.2,21,1,0)="The manufacture product model number to be used for recalls."
^DD(660,9.2,"DT")="3040302"
^DD(660,10,0)="DELIVERY DATE^D^^0;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(660,10,1,0)="^.1^^-1"
^DD(660,10,1,1,0)="660^CT"
^DD(660,10,1,1,1)="S ^RMPR(660,""CT"",$E(X,1,30),DA)="""""
^DD(660,10,1,1,2)="K ^RMPR(660,""CT"",$E(X,1,30),DA)"
^DD(660,10,1,1,"%D",0)="^^2^2^2950417^^^^"
^DD(660,10,1,1,"%D",1,0)="Allows lookups of Appliance Repair entries that have been delivered."
^DD(660,10,1,1,"%D",2,0)="This x-ref is used to calculate end-of-quarter AMIS for closed-out items."
^DD(660,10,3)="Please enter date of delivery to (and acceptance by) the patient."
^DD(660,10,21,0)="^^4^4^2950417^^^^"
^DD(660,10,21,1,0)="This is the date that the appliance was delivered and accepted by the"
^DD(660,10,21,2,0)="patient.  This date, under certain circumstances, may be a date that the"
^DD(660,10,21,3,0)="appliance was mailed to the patient.  It may or may not be the same as the"
^DD(660,10,21,4,0)="transaction date and/or the request date."
^DD(660,10,"DT")="2930915"
^DD(660,11,0)="FORM REQUESTED ON^S^1:PSC;2:2421;3:2237;4:2529-3;5:2529-7;6:2474;7:2431;8:2914;9:OTHER;10:2520;11:STOCK ISSUE;12:INVENTORY ISSUE;13:HISTORICAL DATA;14:VISA;15:LAB ISSUE-3;16:DALC;^0;13^Q"
^DD(660,11,3)="Please select appropriate form to enter this request."
^DD(660,11,21,0)="^.001^3^3^3070523^^^^"
^DD(660,11,21,1,0)="The FORM REQUESTED ON is based on current VA regulations.  "
^DD(660,11,21,2,0)="The system makes no checks to be sure that the form entered from"
^DD(660,11,21,3,0)="the set of codes is within these regulations."
^DD(660,11,"DT")="3070523"
^DD(660,12,0)="SOURCE^RS^V:VA;C:COMMERCIAL;^0;14^Q"
^DD(660,12,3)="Please indicate acquisition source of appliance."
^DD(660,12,21,0)="^^3^3^2950417^^^^"
^DD(660,12,21,1,0)="This set of codes denotes which two possible sources were used"
^DD(660,12,21,2,0)="for the acquisition of the appliance.  The sources are grouped"
^DD(660,12,21,3,0)="into either VA sources or commercial sources."
^DD(660,12,"DT")="2910813"
^DD(660,13,0)="ACTION^S^1:LOAN;2:CONDEMNED;3:RETURNED;4:INACTIVE;5:LOST;^0;5^Q"
^DD(660,13,.1)="QTY"
^DD(660,13,3)="Please enter indicator for the action taken on this transaction."
^DD(660,13,21,0)="^^3^3^2960124^^^^"
^DD(660,13,21,1,0)="The action taken on this transaction is noted here.  The set of codes is"
^DD(660,13,21,2,0)="self explanatory; however, the inactive action is used to indicate that the"
^DD(660,13,21,3,0)="appliance is no longer being followed by VA."
^DD(660,13,"DT")="2960124"
^DD(660,14,0)="TOTAL COST^RNJ9,2^^0;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(660,14,1,0)="^.1"
^DD(660,14,1,1,0)="^^TRIGGER^660^107"
^DD(660,14,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(660,D0,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(660,14,1,1,1.4)"
^DD(660,14,1,1,1.4)="S DIH=$G(^RMPR(660,DIV(0),""PFSS"")),DIV=X S $P(^(""PFSS""),U,8)=DIV,DIH=660,DIG=107 D ^DICR"
^DD(660,14,1,1,2)="Q"
^DD(660,14,1,1,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(660,14,1,1,"DELETE VALUE")="NO EFFECT"
^DD(660,14,1,1,"DT")="3051028"
^DD(660,14,1,1,"FIELD")="PFSS CHARGE FLAG"
^DD(660,14,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(660,14,21,0)="^^1^1^2950417^^^^"
^DD(660,14,21,1,0)="This field contains the total cost of the transaction."
^DD(660,14,"DT")="3051028"
^DD(660,15,0)="HISTORICAL DATA^F^^0;15^K:$L(X)>3!($L(X)<1) X"
^DD(660,15,3)="Answer must be 1-3 characters in length."
^DD(660,15,21,0)="^^2^2^2960119^^^^"
^DD(660,15,21,1,0)="If this field contains an asterisk (*), then this transaction has been"
^DD(660,15,21,2,0)="counted by the AMIS option, or is considered to be a historical transaction."
^DD(660,15,"DT")="2940322"
^DD(660,16,0)="REMARKS^FX^^0;18^K:$L(X)>61!($L(X)<1) X"
^DD(660,16,3)="Answer must be 1-61 characters in length."
^DD(660,16,21,0)="^^4^4^2950828^"
^DD(660,16,21,1,0)="A free-text field used to indicate any additional information that is"
^DD(660,16,21,2,0)="needed for this entry.  For Purchasing Transactions this field will"
^DD(660,16,21,3,0)="contain the remarks for the individual item, and the close-out remarks"
^DD(660,16,21,4,0)="added together."
^DD(660,16,"DT")="2950828"
^DD(660,17,0)="RETURNED STATUS^S^1:RETURNED;2:CONDEMNED;3:CANCELLED;4:TURNED-IN;5:LOST;6:BROKEN;^0;19^Q"
^DD(660,17,.1)=""
^DD(660,17,3)="Please enter the status."
^DD(660,17,21,0)="^^3^3^2950417^^^^"
^DD(660,17,21,1,0)="The status of the appliance upon return to the veteran.  This notes"
^DD(660,17,21,2,0)="what action was taken by the repair depot or station upon the completion"
^DD(660,17,21,3,0)="of repairs."
^DD(660,17,"DT")="2940829"
^DD(660,17.5,0)="RETURN STATUS DATE^D^^0;20^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,17.5,3)="Enter the date the return status was determined and carried out if the item was returned to the veteran."
^DD(660,17.5,21,0)="^^2^2^2950417^^^"
^DD(660,17.5,21,1,0)="This is the date upon which the return status was determined and carried out"
^DD(660,17.5,21,2,0)="if the item was returned to the veteran."
^DD(660,17.5,"DT")="2860817"
^DD(660,18,0)="*STATUS FLAG^S^D:DECEASED;T:TRANSFERRED;I:INACTIVE;^0;21^Q"
^DD(660,18,3)="Please enter indicator of current patient status."
^DD(660,18,21,0)="^^3^3^2950417^^^^"
^DD(660,18,21,1,0)="The status of the patient is entered here so the service can determine"
^DD(660,18,21,2,0)="if the patient is being followed, dropped, transferred, or canceled by"
^DD(660,18,21,3,0)="this station."
^DD(660,18,"DT")="2940829"
^DD(660,21,0)="LOT NUMBER^FX^^0;24^K:$L(X)>20!($L(X)<1)!(X[""^"") X"
^DD(660,21,3)="Enter the manufacturer's lot number, if known.  Answer must be 1-20 characters in length and cannot contain ""^""."
^DD(660,21,21,0)="^^2^2^2950417^^^^"
^DD(660,21,21,1,0)="This field stores the lot number of the item being furnished to the"
^DD(660,21,21,2,0)="patient. Enter the manufacturer's lot number, if known."
^DD(660,21,"DT")="2911117"
^DD(660,22,0)="*PRODUCT LINE^S^1:HEARING AIDS;2:BATTERIES;3:OTHER;^0;25^Q"
^DD(660,22,3)="Please enter code pertaining to hearing aid transactions."
^DD(660,22,21,0)="^^1^1^2950417^^"
^DD(660,22,21,1,0)="Set of codes that contains information for Hearing Aid transactions."
^DD(660,22,"DT")="2940829"
^DD(660,23,0)="TRANSACTION^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(660,23,1,0)="^.1"
^DD(660,23,1,1,0)="660^E"
^DD(660,23,1,1,1)="S ^RMPR(660,""E"",$E(X,1,30),DA)="""""
^DD(660,23,1,1,2)="K ^RMPR(660,""E"",$E(X,1,30),DA)"
^DD(660,23,1,1,"%D",0)="^^1^1^2940924^^"
^DD(660,23,1,1,"%D",1,0)="To be used for quicker lookups by Transaction Number."
^DD(660,23,1,1,"DT")="2920224"
^DD(660,23,3)="Answer must be 3-30 characters in length."
^DD(660,23,21,0)="^^2^2^2950417^^^^"
^DD(660,23,21,1,0)="This is the IFCAP transaction number from VAF 4-1358 or VAF 2237."
^DD(660,23,21,2,0)="A temporary Transaction number for a VAF 10-2529-3 may also be entered."
^DD(660,23,"DT")="2940914"
^DD(660,24,0)="DESCRIPTION^F^^1;2^K:$L(X)>60!($L(X)<3) X"
^DD(660,24,3)="Answer must be 3-60 characters in length."
^DD(660,24,21,0)="^^1^1^2910321^"
^DD(660,24,21,1,0)="This is a detailed description of the item/service supplied."
^DD(660,24,"DT")="2910321"
^DD(660,25,0)="DELIVER TO^F^^3;1^K:$L(X)>30!($L(X)<3) X"
^DD(660,25,3)="Answer must be 3-30 characters in length."
^DD(660,25,21,0)="^^2^2^2950417^^^^"
^DD(660,25,21,1,0)="Delivery location that will print on VAF 10-2421 to show the vendor where"
^DD(660,25,21,2,0)="the item will be delivered."
^DD(660,25,"DT")="2921001"
^DD(660,27,0)="INITIATOR^P200'I^VA(200,^0;27^Q"
^DD(660,27,3)="Please enter the name of the person who entered in this transaction."
^DD(660,27,21,0)="^^1^1^2950413^^^"
^DD(660,27,21,1,0)="This is the person who created the transaction."
^DD(660,27,"DT")="2920208"
^DD(660,28,0)="EXTENDED DESCRIPTION^660.028^^DES;0"
^DD(660,28,21,0)="^^2^2^2950417^^^^"
^DD(660,28,21,1,0)="This is the extended information from purchasing and also from posting"
^DD(660,28,21,2,0)="of VAF 2237s."
^DD(660,29,0)="INVENTORY POINT^P445'^PRCP(445,^1;3^Q"
^DD(660,29,3)="Enter the inventory point for this transaction."
^DD(660,29,21,0)="^^2^2^2950417^^^"
^DD(660,29,21,1,0)="This is the inventory point for this transaction and is a pointer to"
^DD(660,29,21,2,0)="the GENERIC INVENTORY file (#445)."
^DD(660,29,"DT")="2920204"
^DD(660,30,0)="PRIMARY ICD DIAGNOSIS CODE^P80'^ICD9(^BA1;1^Q"
^DD(660,30,3)="Enter pointer to ICD DIAGNOSIS FILE (#80)"
^DD(660,30,21,0)="^^1^1^3040524^"
^DD(660,30,21,1,0)="Pointer to Primary Diagnosis code for order."
^DD(660,30,"DT")="3040525"
^DD(660,30.1,0)="PRIMARY AGENT ORANGE EXPOSURE^S^0:NO;1:YES;^BA1;2^Q"
^DD(660,30.1,3)="Enter 'Y'es if Primary diagnosis is related to Agent Orange exposure."
^DD(660,30.1,21,0)="^^1^1^3040524^"
^DD(660,30.1,21,1,0)="Primary diagnosis is related to Agent Orange exposure."
^DD(660,30.1,"DT")="3040525"
^DD(660,30.2,0)="PRIMARY IONIZED RADIATION^S^0:NO;1:YES;^BA1;3^Q"
^DD(660,30.2,3)="Enter 'Y'es if Primary diagnosis is related to Ionized Radiation exposure."
^DD(660,30.2,21,0)="^^1^1^3040524^"
^DD(660,30.2,21,1,0)="Primary diagnosis is related to Ionized Radiation exposure."
^DD(660,30.2,"DT")="3040525"
^DD(660,30.3,0)="PRIMARY SERVICE-CONNECTED^S^0:NO;1:YES;^BA1;4^Q"
^DD(660,30.3,3)="Enter 'Y'es if Primary diagnosis is related to a Service-Connected condition."
^DD(660,30.3,21,0)="^^1^1^3040524^"
^DD(660,30.3,21,1,0)="Primary diagnosis is related to a Service-Connected condition."
^DD(660,30.3,"DT")="3040525"
^DD(660,30.4,0)="PRIMARY ENVIRONMENTAL CONT.^S^0:NO;1:YES;^BA1;5^Q"
^DD(660,30.4,3)="Enter 'Y'es if Primary diagnosis is related to Environmental Contaminants exposure."
^DD(660,30.4,21,0)="^^1^1^3040524^"
^DD(660,30.4,21,1,0)="Primary diagnosis is related to Environmental Contaminants exposure."
^DD(660,30.4,"DT")="3040525"
^DD(660,30.5,0)="PRIMARY MST^S^0:NO;1:YES;^BA1;6^Q"
^DD(660,30.5,3)="Enter 'Y'es if Primary diagnosis is related to Military Sexual Trauma."
^DD(660,30.5,21,0)="^^1^1^3040524^"
^DD(660,30.5,21,1,0)="Primary diagnosis is related to Military Sexual Trauma."
^DD(660,30.5,"DT")="3040525"
^DD(660,30.6,0)="PRIMARY HEAD/NECK CANCER^S^0:NO;1:YES;^BA1;7^Q"
^DD(660,30.6,3)="Enter 'Y'es if Primary diagnosis is related to Head/Neck Cancer."
^DD(660,30.6,21,0)="^^1^1^3040524^"
^DD(660,30.6,21,1,0)="Primary diagnosis is related to Head/Neck Cancer."
^DD(660,30.6,"DT")="3040525"
^DD(660,30.7,0)="PRIMARY COMBAT VET^S^0:NO;1:YES;^BA1;8^Q"
^DD(660,30.7,3)="Enter 'Y'es if Primary diagnosis is related to Combat."
^DD(660,30.7,21,0)="^^1^1^3040524^"
^DD(660,30.7,21,1,0)="Primary diagnosis related to Combat."
^DD(660,30.7,"DT")="3040525"
^DD(660,31,0)="SECONDARY ICD DIAGNOSIS CODE 1^P80'^ICD9(^BA2;1^Q"
^DD(660,31,3)="Enter the pointer to the ICD Diagnosis file (#80) for the Secondary ICD Diagnosis code 1."
^DD(660,31,21,0)="^^1^1^3040524^"
^DD(660,31,21,1,0)="Pointer to ICD Diagnosis file (#80) for Secondary ICD Diagnosis code 1."
^DD(660,31,"DT")="3040525"
^DD(660,31.1,0)="SECONDARY AGENT ORANGE 1^S^0:NO;1:YES;^BA2;2^Q"
^DD(660,31.1,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Agent Orange exposure. "
^DD(660,31.1,21,0)="^^1^1^3040524^"
^DD(660,31.1,21,1,0)="Secondary diagnosis 1 is related to Agent Orange exposure."
^DD(660,31.1,"DT")="3040525"
^DD(660,31.2,0)="SECONDARY IONIZED RADIATION 1^S^0:NO;1:YES;^BA2;3^Q"
^DD(660,31.2,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Ionized Radiation exposure."
^DD(660,31.2,21,0)="^.001^1^1^3040524^^"
^DD(660,31.2,21,1,0)="Secondary diagnosis 1 is related to Ionized Radiation exposure."
^DD(660,31.2,"DT")="3040525"
^DD(660,31.3,0)="SECONDARY SERVICE-CONNECTED 1^S^0:NO;1:YES;^BA2;4^Q"
^DD(660,31.3,3)="Enter 'Y'es if Secondary diagnosis 1 is related to a Service-Connected condition."
^DD(660,31.3,21,0)="^^1^1^3040524^"
^DD(660,31.3,21,1,0)="Secondary Diagnosis 1 is related to a Service-Connected condition."
^DD(660,31.3,"DT")="3040525"
^DD(660,31.4,0)="SECONDARY ENVIRONMENTAL CONT 1^S^0:NO;1:YES;^BA2;5^Q"
^DD(660,31.4,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^DD(660,31.4,21,0)="^^1^1^3040524^"
^DD(660,31.4,21,1,0)="Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^DD(660,31.4,"DT")="3040525"
^DD(660,31.5,0)="SECONDARY MST 1^S^0:NO;1:YES;^BA2;6^Q"
^DD(660,31.5,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Military Sexual Trauma."
^DD(660,31.5,21,0)="^^1^1^3040524^"
^DD(660,31.5,21,1,0)="Secondary diagnosis 1 is related to Military Sexual Trauma."
^DD(660,31.5,"DT")="3040525"
^DD(660,31.6,0)="SECONDARY HEAD/NECK CANCER 1^S^0:NO;1:YES;^BA2;7^Q"
^DD(660,31.6,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Head/Neck cancer."
^DD(660,31.6,21,0)="^^1^1^3040524^"
^DD(660,31.6,21,1,0)="Secondary diagnosis 1 is related to Head/Neck cancer."
^DD(660,31.6,"DT")="3040525"
^DD(660,31.7,0)="SECONDARY COMBAT VET 1^S^0:NO;1:YES;^BA2;8^Q"
^DD(660,31.7,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Combat."
^DD(660,31.7,21,0)="^.001^1^1^3040524^^"
^DD(660,31.7,21,1,0)="Secondary diagnosis 1 is related to Combat."
^DD(660,31.7,"DT")="3040525"
^DD(660,32,0)="SECONDARY ICD DIAGNOSIS 2^P80'^ICD9(^BA3;1^Q"
^DD(660,32,3)="Enter pointer to ICD Diagnosis file (#80) for Secondary diagnosis code 2."
^DD(660,32,21,0)="^^1^1^3040524^"
^DD(660,32,21,1,0)="Pointer to ICD Diagnosis file (#80) for Secondary ICD diagnosis code 2."
^DD(660,32,"DT")="3040525"
^DD(660,32.1,0)="SECONDARY AGENT ORANGE 2^S^0:NO;1:YES;^BA3;2^Q"
^DD(660,32.1,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Agent Orange exposure."
^DD(660,32.1,21,0)="^^1^1^3040524^"
^DD(660,32.1,21,1,0)="Secondary diagnosis 2 is related to Agent Orange exposure."
^DD(660,32.1,"DT")="3040525"
^DD(660,32.2,0)="SECONDARY IONIZED RADIATION 2^S^0:NO;1:YES;^BA3;3^Q"
^DD(660,32.2,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Ionized Radiation exposure."
^DD(660,32.2,21,0)="^^1^1^3040524^"
^DD(660,32.2,21,1,0)="Secondary diagnosis 2 is related to Ionized Radiation exposure."
^DD(660,32.2,"DT")="3040525"
^DD(660,32.3,0)="SECONDARY SERVICE-CONNECTED 2^S^0:NO;1:YES;^BA3;4^Q"
^DD(660,32.3,3)="Enter 'Y'es if Secondary diagnosis 2 is related to a Service-Connected condition."
^DD(660,32.3,21,0)="^^1^1^3040524^"
^DD(660,32.3,21,1,0)="Secondary diagnosis 2 is related to a Service-Connected condition."
^DD(660,32.3,"DT")="3040525"
^DD(660,32.4,0)="SECONDARY ENVIR. CONT. 2^S^0:NO;1:YES;^BA3;5^Q"
^DD(660,32.4,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^DD(660,32.4,21,0)="^^1^1^3040524^"
^DD(660,32.4,21,1,0)="Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^DD(660,32.4,"DT")="3040525"
^DD(660,32.5,0)="SECONDARY MST 2^S^0:NO;1:YES;^BA3;6^Q"
^DD(660,32.5,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Military Sexual Trauma."
^DD(660,32.5,21,0)="^^1^1^3040524^"
^DD(660,32.5,21,1,0)="Secondary diagnosis 2 is related to Military Sexual Trauma."
^DD(660,32.5,"DT")="3040525"
^DD(660,32.6,0)="SECONDARY HEAD/NECK CANCER 2^S^0:NO;1:YES;^BA3;7^Q"
^DD(660,32.6,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Head/Neck cancer."
^DD(660,32.6,21,0)="^^1^1^3040524^"
^DD(660,32.6,21,1,0)="Secondary diagnosis 2 is related to Head/Neck cancer."
^DD(660,32.6,"DT")="3040525"
^DD(660,32.7,0)="SECONDARY COMBAT VET 2^S^0:NO;1:YES;^BA3;8^Q"
^DD(660,32.7,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Combat."
^DD(660,32.7,21,0)="^^1^1^3040524^"
^DD(660,32.7,21,1,0)="Secondary diagnosis 2 is related to Combat."
^DD(660,32.7,"DT")="3040525"
^DD(660,33,0)="SECONDARY ICD DIAGNOSIS 3^P80'^ICD9(^BA4;1^Q"
^DD(660,33,3)="Enter pointer to ICD Diagnosis file (#80) for Secondary ICD diagnosis code 3."
^DD(660,33,21,0)="^^1^1^3040524^"
^DD(660,33,21,1,0)="Pointer to ICD Diagnosis file (#80) for Secondary ICD diagnosis code 3."
^DD(660,33,"DT")="3040525"
^DD(660,33.1,0)="SECONDARY AGENT ORANGE 3^S^0:NO;1:YES;^BA4;2^Q"
^DD(660,33.1,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Agent Orange exposure."
^DD(660,33.1,21,0)="^^1^1^3040524^"
^DD(660,33.1,21,1,0)="Secondary diagnosis 3 is related to Agent Orange exposure."
^DD(660,33.1,"DT")="3040525"
^DD(660,33.2,0)="SECONDARY IONIZED RADIATION 3^S^0:NO;1:YES;^BA4;3^Q"
^DD(660,33.2,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Ionized Radiation exposure."
^DD(660,33.2,21,0)="^^1^1^3040524^"
^DD(660,33.2,21,1,0)="Secondary diagnosis 3 is related to Ionized Radiation exposure."
^DD(660,33.2,"DT")="3040525"
^DD(660,33.3,0)="SECONDARY SERVICE-CONNECTED 3^S^0:NO;1:YES;^BA4;4^Q"
^DD(660,33.3,3)="Enter 'Y'es if Secondary diagnosis 3 is related to a Service-Connected condition."
^DD(660,33.3,21,0)="^^1^1^3040524^"
^DD(660,33.3,21,1,0)="Secondary diagnosis 3 is related to a Service-Connected condition."
^DD(660,33.3,"DT")="3040525"
^DD(660,33.4,0)="SECONDARY ENVIRON. CONT. 3^S^0:NO;1:YES;^BA4;5^Q"
^DD(660,33.4,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Environmental Contaminants exposure. "
^DD(660,33.4,21,0)="^^1^1^3040524^"
^DD(660,33.4,21,1,0)="Secondary diagnosis 3 is related to Environmental Contaminants exposure."
^DD(660,33.4,"DT")="3040525"
^DD(660,33.5,0)="SECONDARY MST 3^S^0:NO;1:YES;^BA4;6^Q"
^DD(660,33.5,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Military Sexual Trauma."
^DD(660,33.5,21,0)="^^1^1^3040524^"
^DD(660,33.5,21,1,0)="Secondary diagnosis 3 is related to Military Sexual Trauma."
^DD(660,33.5,"DT")="3040525"
^DD(660,33.6,0)="SECONDARY HEAD/NECK CANCER 3^S^0:NO;1:YES;^BA4;7^Q"
^DD(660,33.6,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Head/Neck cancer."
^DD(660,33.6,21,0)="^^1^1^3040524^"
^DD(660,33.6,21,1,0)="Secondary diagnosis 3 is related to Head/Neck cancer."
^DD(660,33.6,"DT")="3040525"
^DD(660,33.7,0)="SECONDARY COMBAT VET 3^S^0:NO;1:YES;^BA4;8^Q"
^DD(660,33.7,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Combat."
^DD(660,33.7,21,0)="^.001^1^1^3040524^^"
^DD(660,33.7,21,1,0)="Secondary diagnosis 3 is related to Combat."
^DD(660,33.7,"DT")="3040525"
^DD(660,34,0)="OIF/OEF^S^0:NO;1:YES;^5;1^Q"
^DD(660,34,21,0)="^.001^1^1^3070419^^"
^DD(660,34,21,1,0)="Veteran determined to be OEF/OIF 1 Yes 0 NO."
^DD(660,34,"DT")="3070430"
^DD(660,35,0)="USER WHO EDIT^P200'^VA(200,^1;9^Q"
^DD(660,35,21,0)="^^2^2^3001019^"
^DD(660,35,21,1,0)="User who edited the 2319 record using option ED2.  This field will only"
^DD(660,35,21,2,0)="be populated when the Total Cost field has been changed."
^DD(660,35,"DT")="3001019"
^DD(660,36,0)="DATE EDITED^D^^1;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,36,21,0)="^^1^1^3001019^"
^DD(660,36,21,1,0)="This is the date the Total Cost field has been changed using option ED2."
^DD(660,36,"DT")="3001019"
^DD(660,37,0)="HCPCS/ITEM^F^^2;1^K:$L(X)>20!($L(X)<8) X"
^DD(660,37,3)="Answer must be 8-20 characters in length."
^DD(660,37,21,0)="^.001^3^3^3001204^^"
^DD(660,37,21,1,0)="Enternal entry of an HCPCS concatenated to an enternal entry of an item"
^DD(660,37,21,2,0)="in file #661.1.  Entry for this field is derived from the entry in file"
^DD(660,37,21,3,0)="661.2, field #9."
^DD(660,37,"DT")="3001201"
^DD(660,38,0)="HCPCS/ITEM DESCRIPTION^F^^2;2^K:$L(X)>50!($L(X)<3) X"
^DD(660,38,3)="Answer must be 3-50 characters in length."
^DD(660,38,21,0)="^^2^2^3001201^"
^DD(660,38,21,1,0)="This is the description of an Item or Appliance kept by local site in file"
^DD(660,38,21,2,0)="#661.1, field #20. This field is updated during the STOCK ISSUE options."
^DD(660,38,"DT")="3001201"
^DD(660,38.1,0)="EXCLUDE/WAIVER^S^E:EXCLUDED;W:WAIVER;^2;3^Q"
^DD(660,38.1,21,0)="^^1^1^3041213^"
^DD(660,38.1,21,1,0)="This field determines if the item is EXCLUDED or Waver off of a National Contract"
^DD(660,38.1,"DT")="3050223"
^DD(660,38.7,0)="CONTRACT #^F^^2;9^K:$L(X)>30!($L(X)<1) X"
^DD(660,38.7,3)="Answer must be 1-30 characters in length."
^DD(660,38.7,21,0)="^^1^1^3041228^"
^DD(660,38.7,21,1,0)="This field stores the Contract Number."
^DD(660,38.7,"DT")="3041228"
^DD(660,38.8,0)="NUMBER OF BIDS^NJ3,0^^2;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(660,38.8,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(660,38.8,21,0)="^^1^1^3050420^"
^DD(660,38.8,21,1,0)="The number of bids recieved for a particular item."
^DD(660,38.8,"DT")="3050420"
^DD(660,39,0)="DATE OF SERVICE^D^^1;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,39,1,0)="^.1"
^DD(660,39,1,1,0)="660^AF"
^DD(660,39,1,1,1)="S ^RMPR(660,""AF"",$E(X,1,30),DA)="""""
^DD(660,39,1,1,2)="K ^RMPR(660,""AF"",$E(X,1,30),DA)"
^DD(660,39,1,1,"%D",0)="^^1^1^3040402^"
^DD(660,39,1,1,"%D",1,0)="Cross-reference for Shipment date to be used for Billing."
^DD(660,39,1,1,"DT")="3040402"
^DD(660,39,21,0)="^^1^1^3030203^"
^DD(660,39,21,1,0)="This is the date when an item is issued to the patient."
^DD(660,39,"DT")="3040402"
^DD(660,40,0)="REQUESTING STATION^P4'^DIC(4,^LB;1^Q"
^DD(660,40,3)="Enter the Station Name or Station Number for the Station requesting services or appliances."
^DD(660,40,21,0)="^^1^1^2950417^^^^"
^DD(660,40,21,1,0)="This is the station requesting services or appliances."
^DD(660,40,"DT")="2860804"
^DD(660,45,0)="TOTAL LABOR HOURS^NJ6,2X^^LB;6^K:(X?.E1"".""3N.N) X"
^DD(660,45,3)="Type the Lab Hours."
^DD(660,45,21,0)="^^2^2^2960205^"
^DD(660,45,21,1,0)="This is the number of hours spent on the job."
^DD(660,45,21,2,0)="This field is only populated via routines."
^DD(660,45,"DT")="2960205"
^DD(660,46,0)="TOTAL LABOR COST^NJ7,2^^LB;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(660,46,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(660,46,21,0)="^^1^1^2950417^^^"
^DD(660,46,21,1,0)="The total cost of the labor to perform this job."
^DD(660,46,"DT")="2950417"
^DD(660,47,0)="TOTAL MATERIAL COST^NJ7,2^^LB;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(660,47,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(660,47,21,0)="^^1^1^2950417^^^"
^DD(660,47,21,1,0)="The total cost of all the materials to perform the job."
^DD(660,47,"DT")="2950417"
^DD(660,48,0)="TOTAL LAB COST^NJ8,2^^LB;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(660,48,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(660,48,21,0)="^^1^1^2950417^^^^"
^DD(660,48,21,1,0)="The Prosthetic Laboratory Total Cost calculated by AMIS."
^DD(660,48,"DT")="2930311"
^DD(660,50,0)="COMPLETION DATE^D^^LB;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,50,1,0)="^.1"
^DD(660,50,1,1,0)="660^CD"
^DD(660,50,1,1,1)="S ^RMPR(660,""CD"",$E(X,1,30),DA)="""""
^DD(660,50,1,1,2)="K ^RMPR(660,""CD"",$E(X,1,30),DA)"
^DD(660,50,1,1,"%D",0)="^^1^1^2960124^"
^DD(660,50,1,1,"%D",1,0)="This cross reference is used in the AMIS calculations."
^DD(660,50,1,1,"DT")="2931112"
^DD(660,50,3)="Enter the date the job was completed."
^DD(660,50,21,0)="^^1^1^2950417^^"
^DD(660,50,21,1,0)="The date the job was completed."
^DD(660,50,"DT")="2931112"
^DD(660,51,0)="LAB REMARKS^F^^LB;12^K:$L(X)>40!($L(X)<1) X"
^DD(660,51,3)="Answer must be 1-40 characters in length."
^DD(660,51,21,0)="^^3^3^2950417^^^^"
^DD(660,51,21,1,0)="A free-text field used to indicate any additional Laboratory information"
^DD(660,51,21,2,0)="that is needed for this entry.  Since the field is only 40 characters in"
^DD(660,51,21,3,0)="length, use meaningful abbreviations where possible."
^DD(660,51,"DT")="2860807"
^DD(660,52,0)="AMIS NEW CODE^P663'^RMPR(663,^AM;9^Q"
^DD(660,52,21,0)="^^1^1^2950413^^"
^DD(660,52,21,1,0)="This field is set when AMIS is generated. It is the New Worksheet AMIS code."
^DD(660,52,"DT")="2910123"
^DD(660,60,0)="AMIS DATE^D^^AM;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,60,1,0)="^.1"
^DD(660,60,1,1,0)="660^AE"
^DD(660,60,1,1,1)="S ^RMPR(660,""AE"",$E(X,1,30),DA)="""""
^DD(660,60,1,1,2)="K ^RMPR(660,""AE"",$E(X,1,30),DA)"
^DD(660,60,1,1,"%D",0)="^^1^1^2930306^"
^DD(660,60,1,1,"%D",1,0)="Allows lookups of Appliance/Repairs by the date the Amis report was run."
^DD(660,60,21,0)="^^2^2^2910726^"
^DD(660,60,21,1,0)="This field is set when AMIS is generated.  This is the date AMIS was run"
^DD(660,60,21,2,0)="and the item was picked up and counted."
^DD(660,60,"DT")="2860820"
^DD(660,62,0)="PATIENT CATEGORY^RS^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^AM;3^Q"
^DD(660,62,3)="Enter the appropriate Prosthetic Patient Category."
^DD(660,62,21,0)="^^1^1^2950417^^^"
^DD(660,62,21,1,0)="This is the Prosthetic Patient Category used for counting AMIS."
^DD(660,62,"DT")="2910813"
^DD(660,63,0)="SPECIAL CATEGORY^S^1:SPECIAL LEGISLATION;2:A&A;3:PHC;4:ELIGIBILITY REFORM;^AM;4^Q"
^DD(660,63,3)="Enter the appropriate SPECIAL CATEGORY of the patient needing items/services."
^DD(660,63,21,0)="^^2^2^2961106^^^^"
^DD(660,63,21,1,0)="If the patient is NSC/OP, then this field must also be set.  SPECIAL"
^DD(660,63,21,2,0)="CATEGORY is also used in counting AMIS."
^DD(660,63,"DT")="2961106"
^DD(660,64,0)="ADMIN REPAIR AMIS CODE^*P663'^RMPR(663,^AM;5^S DIC(""S"")=""I $P(^(0),U,4)[""""AR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(660,64,12)="Code is limited to Administrative Repair"
^DD(660,64,12.1)="S DIC(""S"")=""I $P(^(0),U,4)[""""AR"""""""
^DD(660,64,21,0)="^^1^1^2950413^^"
^DD(660,64,21,1,0)="This field will be set when AMIS is generated for the Repair Worksheets."
^DD(660,64,"DT")="2920225"
^DD(660,68,0)="AMIS GROUPER^NJ8,0^^AMS;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(660,68,1,0)="^.1"
^DD(660,68,1,1,0)="660^AG"
^DD(660,68,1,1,1)="S ^RMPR(660,""AG"",$E(X,1,30),DA)="""""
^DD(660,68,1,1,2)="K ^RMPR(660,""AG"",$E(X,1,30),DA)"
^DD(660,68,1,1,"%D",0)="^^2^2^2930306^"
^DD(660,68,1,1,"%D",1,0)="Allows lookups of Appliance/Repairs that have been combined by the Grouper"
^DD(660,68,1,1,"%D",2,0)="Number.  Items that share the same Grouper Number serve one disability."
^DD(660,68,1,1,"DT")="2910326"
^DD(660,68,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(660,68,21,0)="^^2^2^2910129^"
^DD(660,68,21,1,0)="This is used in AMIS calculations.  This field should never be"
^DD(660,68,21,2,0)="changed through FileMan!"
^DD(660,68,23,0)="^^1^1^2910129^"
^DD(660,68,23,1,0)="A number pulled from the Pros. Site Parameter file, used in AMIS calculations."
^DD(660,68,"DT")="2931105"
^DD(660,69,0)="SOURCE OF PROCUREMENT^S^O:ORTHOTIC LAB;R:RESTORATION LAB;S:SHOE LAST CLINIC;W:WHEELCHAIR REPAIR SHOP;N:NATIONAL FOOT CENTER;D:DENVER DISTRIBUTION CENTER;^LB;3^Q"
^DD(660,69,3)="Enter the correct Code for the Source of Procurement."
^DD(660,69,21,0)="^^2^2^2950413^^^"
^DD(660,69,21,1,0)="The source from which the Purchasing Agent is ordering the needed equipment."
^DD(660,69,21,2,0)="The sources one may choose from are limited."
^DD(660,69,"DT")="2950413"
^DD(660,70,0)="RECEIVING STATION^P4'^DIC(4,^LB;4^Q"
^DD(660,70,3)="Enter the name of the institution receiving the VAF 10-2529-3."
^DD(660,70,21,0)="^^2^2^2950417^^^"
^DD(660,70,21,1,0)="This field contains the institution that will receive the "
^DD(660,70,21,2,0)="VAF 10-2529-3 request for processing."
^DD(660,70,"DT")="2931110"
^DD(660,71,0)="WORK ORDER NUMBER^P664.2^RMPR(664.2,^LB;5^Q"
^DD(660,71,3)="Enter the Work Order Number (STA-FY-QTR-TYPE OF LAB-NUMBER)"
^DD(660,71,21,0)="^^2^2^2950417^^^^"
^DD(660,71,21,1,0)="Work Order Number (STA-FY-QTR-TYPE OF LAB-NUMBER) for items processed in"
^DD(660,71,21,2,0)="the Prosthetic Laboratory."
^DD(660,71,"DT")="2940419"
^DD(660,72,0)="2529-3^P664.1'^RMPR(664.1,^LB;10^Q"
^DD(660,72,3)="Enter the VAF 10-2529-3 Entry."
^DD(660,72,21,0)="^^3^3^2950413^^^^"
^DD(660,72,21,1,0)="VAF 10-2529-3 information will be displayed if the VAF 10-2319 item is "
^DD(660,72,21,2,0)="associated with a Denver Distribution Center, National Foot Center, or "
^DD(660,72,21,3,0)="Prosthetics Lab request."
^DD(660,72,"DT")="2931112"
^DD(660,72.5,0)="FREE TEXT WO #^F^^LB;2^K:$L(X)>20!($L(X)<14) X"
^DD(660,72.5,3)="Answer must be 14-20 characters in length."
^DD(660,72.5,21,0)="^^2^2^3060420^"
^DD(660,72.5,21,1,0)="This is the actual human readable Work Order Number for NPPD "
^DD(660,72.5,21,2,0)="identification purposes."
^DD(660,72.5,"DT")="3060420"
^DD(660,73,0)="LAB AMIS DATE^D^^LBA;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(660,73,3)="Enter the date the Lab AMIS was run."
^DD(660,73,21,0)="^^1^1^2950417^^^^"
^DD(660,73,21,1,0)="Last date the Lab AMIS was run."
^DD(660,73,"DT")="2931128"
^DD(660,74,0)="ORTHOTICS LAB CODE^P663'^RMPR(663,^LBA;2^Q"
^DD(660,74,3)="Enter the correct Orthotic Lab New Code."
^DD(660,74,21,0)="^^1^1^2950417^^^^"
^DD(660,74,21,1,0)="Contains the Orthotic Lab New Code."
^DD(660,74,"DT")="2931128"
^DD(660,75,0)="ORTHOTICS LAB REPAIR CODE^P663'^RMPR(663,^LBA;3^Q"
^DD(660,75,3)="Enter the correct Orthotic Lab Repair Code."
^DD(660,75,21,0)="^^1^1^2950418^^^^"
^DD(660,75,21,1,0)="Contains the Orthotic Lab Repair Code."
^DD(660,75,"DT")="2950418"
^DD(660,76,0)="RESTORATION LAB CODE^P663'^RMPR(663,^LBA;4^Q"
^DD(660,76,3)="Enter the proper Restoration Lab Code."
^DD(660,76,21,0)="^^1^1^2950417^^"
^DD(660,76,21,1,0)="Contains the Restoration Lab New Code."
^DD(660,76,"DT")="2931128"
^DD(660,77,0)="RESTORATIONS LAB REPAIR CODE^P663'^RMPR(663,^LBA;5^Q"
^DD(660,77,3)="Enter the Restoration Lab Repair Code."
^DD(660,77,21,0)="^^1^1^2950417^^^"
^DD(660,77,21,1,0)="Contains the Restoration Lab Repair Code."
^DD(660,77,"DT")="2931128"
^DD(660,78,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;8^Q"
^DD(660,78,3)="Enter the appropriate unit of issue for this item."
^DD(660,78,21,0)="^^1^1^2950417^^"
^DD(660,78,21,1,0)="This is the unit by which items/services are issued (e.g., each, pair, box, case, etc.)."
^DD(660,78,"DT")="2931215"
^DD(660,79,0)="AMIS FLAG^S^1:NO ADMIN COUNT;^AM;6^Q"
^DD(660,79,3)="Ent.er '1' for No Admin Count"
^DD(660,79,21,0)="1^^1^1^2950417^^"
^DD(660,79,21,1,0)="Contains the status if the Item will not count on the Administrative AMIS."
^DD(660,79,"DT")="2931219"
^DD(660,80,0)="WORK FOR OTHER STATION^S^1:YES;^LB;13^Q"
^DD(660,80,3)="Enter 'Yes' if work for other station"
^DD(660,80,21,0)="^^2^2^2950413^^"
^DD(660,80,21,1,0)="Contains the Status if the Job Performed will display as work performed"
^DD(660,80,21,2,0)="for another station."
^DD(660,80,"DT")="2940119"
^DD(660,81,0)="NO ADMIN COUNT^S^1:NO COUNT;^AM;2^Q"
^DD(660,81,3)="Enter '1' for No Count"
^DD(660,81,21,0)="^^2^2^2950413^^^"
^DD(660,81,21,1,0)="This field will be set if the Item will not count on the Administrative AMIS"
^DD(660,81,21,2,0)="or the Orthotic Laboratory AMIS."
^DD(660,81,"DT")="2940512"
^DD(660,82,0)="NO LAB COUNT^S^1:NO COUNT;^LB;14^Q"
^DD(660,82,3)="Enter '1' for No Lab AMIS Count"
^DD(660,82,21,0)="^^1^1^2950413^^"
^DD(660,82,21,1,0)="Field will be set if there is no AMIS Count for AMIS."
^DD(660,82,"DT")="2940512"
^DD(660,83,0)="BACKLOG DATE^D^^LBA;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,83,1,0)="^.1"
^DD(660,83,1,1,0)="660^ALOG"
^DD(660,83,1,1,1)="S ^RMPR(660,""ALOG"",$E(X,1,30),DA)="""""
^DD(660,83,1,1,2)="K ^RMPR(660,""ALOG"",$E(X,1,30),DA)"
^DD(660,83,1,1,"%D",0)="^^2^2^2940919^"
^DD(660,83,1,1,"%D",1,0)="This x-ref will be used set if the item is processed locally at the"
^DD(660,83,1,1,"%D",2,0)="station and must be posted to the Orthotic or Restorations Amis."
^DD(660,83,1,1,"DT")="2940919"
^DD(660,83,3)="This field will contain the date the request was created."
^DD(660,83,21,0)="^^3^3^2950413^^"
^DD(660,83,21,1,0)="This field will contain the date that the entry was created."
^DD(660,83,21,2,0)="This entry will be a backlog entry until it has been completed."
^DD(660,83,21,3,0)="All backlog data must show up on the Laboratory or Restoration AMIS Count."
^DD(660,83,"DT")="2940919"
^DD(660,89,0)="HISTORICAL ITEM^F^^HST;1^K:$L(X)>60!($L(X)<3) X"
^DD(660,89,3)="Answer must be 3-60 characters in length."
^DD(660,89,5,1,0)="660^4^2"
^DD(660,89,21,0)="^^3^3^2960119^^"
^DD(660,89,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,89,21,2,0)="that has been merged from a legacy system."
^DD(660,89,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,89,"DT")="2950530"
^DD(660,89.1,0)="DALC REFERENCE NUMBER^F^^HSTV1;3^K:$L(X)>25!($L(X)<1) X"
^DD(660,89.1,1,0)="^.1"
^DD(660,89.1,1,1,0)="660^DDC"
^DD(660,89.1,1,1,1)="S ^RMPR(660,""DDC"",$E(X,1,30),DA)="""""
^DD(660,89.1,1,1,2)="K ^RMPR(660,""DDC"",$E(X,1,30),DA)"
^DD(660,89.1,1,1,"%D",0)="^^1^1^3070523^"
^DD(660,89.1,1,1,"%D",1,0)="This is the DALC internal reference."
^DD(660,89.1,1,1,"DT")="3061031"
^DD(660,89.1,3)="Answer must be 1-25 characters in length."
^DD(660,89.1,21,0)="^^2^2^3070709^"
^DD(660,89.1,21,1,0)="This is the line level reference number from a DALC purchase order or"
^DD(660,89.1,21,2,0)="delivery of item or service."
^DD(660,89.1,"DT")="3070523"
^DD(660,89.2,0)="DALC BILL DATE^D^^HSTV1;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660,89.2,21,0)="^^2^2^3070523^"
^DD(660,89.2,21,1,0)="This is the Billing Date from the Denver  Acquisition and Logistics "
^DD(660,89.2,21,2,0)="Center (DALC)."
^DD(660,89.2,"DT")="3070523"
^DD(660,89.3,0)="DALC ORDERING STATION^F^^HSTV1;5^K:$L(X)>30!($L(X)<3) X"
^DD(660,89.3,3)="Answer must be 3-30 characters in length."
^DD(660,89.3,21,0)="^^2^2^3070523^"
^DD(660,89.3,21,1,0)="This is the Ordering station from to the Denver  Acquisition and "
^DD(660,89.3,21,2,0)="Logistics Center (DALC)."
^DD(660,89.3,"DT")="3070523"
^DD(660,90,0)="HISTORICAL STATION^F^^HST;2^K:$L(X)>30!($L(X)<3) X"
^DD(660,90,3)="Answer must be 3-30 characters in length."
^DD(660,90,21,0)="^^3^3^2960119^"
^DD(660,90,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,90,21,2,0)="that has been merged from a legacy system."
^DD(660,90,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,90,"DT")="2950530"
^DD(660,91,0)="HISTORICAL VENDOR^F^^HST;3^K:$L(X)>36!($L(X)<1) X"
^DD(660,91,3)="Answer must be 1-36 characters in length."
^DD(660,91,21,0)="^^3^3^2960119^^"
^DD(660,91,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,91,21,2,0)="that has been merged from a legacy system."
^DD(660,91,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,91,"DT")="2950530"
^DD(660,92,0)="HISTORICAL VENDOR PHONE^F^^HSTV;1^K:$L(X)>188!($L(X)<3) X"
^DD(660,92,3)="Answer must be 3-188 characters in length."
^DD(660,92,21,0)="^^3^3^2960119^"
^DD(660,92,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,92,21,2,0)="that has been merged from a legacy system."
^DD(660,92,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,92,"DT")="2950530"
^DD(660,93,0)="HISTORICAL STREET ADD^F^^HSTV;2^K:$L(X)>33!($L(X)<1) X"
^DD(660,93,3)="Answer must be 1-33 characters in length."
^DD(660,93,21,0)="^^3^3^2960119^"
^DD(660,93,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,93,21,2,0)="that has been merged from a legacy system."
^DD(660,93,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,93,"DT")="2950530"
^DD(660,94,0)="HISTORICAL CITY^F^^HSTV;3^K:$L(X)>20!($L(X)<3) X"
^DD(660,94,3)="Answer must be 3-20 characters in length."
^DD(660,94,21,0)="^^3^3^2960119^^"
^DD(660,94,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,94,21,2,0)="that has been merged from a legacy system."
^DD(660,94,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,94,"DT")="2950530"
^DD(660,95,0)="HISTORICAL STATE^F^^HSTV1;1^K:$L(X)>30!($L(X)<1) X"
^DD(660,95,3)="Answer must be 1-30 characters in length."
^DD(660,95,21,0)="^^3^3^2960119^"
^DD(660,95,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,95,21,2,0)="that has been merged from a legacy system."
^DD(660,95,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,95,"DT")="2950530"
^DD(660,96,0)="HISTORICAL ZIP^F^^HSTV1;2^K:$L(X)>10!($L(X)<5) X"
^DD(660,96,3)="Answer must be 5-10 characters in length."
^DD(660,96,21,0)="^^3^3^2960119^"
^DD(660,96,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,96,21,2,0)="that has been merged from a legacy system."
^DD(660,96,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,96,"DT")="2950530"
^DD(660,97,0)="HISTORICAL RECORD^NJ7,0^^HST;4^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(660,97,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(660,97,21,0)="^^3^3^2960119^"
^DD(660,97,21,1,0)="This field is used for the consolidation sites, will contain the data"
^DD(660,97,21,2,0)="that has been merged from a legacy system."
^DD(660,97,21,3,0)="This field is populated by the RMPRJ routine that is not exported."
^DD(660,97,"DT")="2950816"
^DD(660,100,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^PFSS;1^Q"
^DD(660,100,21,0)="^.001^3^3^3050822^^^"
^DD(660,100,21,1,0)="This refers to the reference number passed back to Prosthetics application"
^DD(660,100,21,2,0)="from the PFSS IBB get account process. This field points to PFSS ACCOUNT "
^DD(660,100,21,3,0)="file (#375)."
^DD(660,100,"DT")="3050630"
^DD(660,101,0)="PFSS CHARGE ID^NJ8,0^^PFSS;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(660,101,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(660,101,21,0)="^^2^2^3050630^"
^DD(660,101,21,1,0)="A unique charge identifier for each charge entity. Prosthetics calls"
^DD(660,101,21,2,0)="$$GETCHGID^IBBAPI() to obtain a Unique Charge Identifier."
^DD(660,101,"DT")="3050630"
^DD(660,102,0)="LATEST PSAS HCPCS^P661.1'^RMPR(661.1,^PFSS;3^Q"
^DD(660,102,21,0)="^^2^2^3050630^"
^DD(660,102,21,1,0)="This is the latest PSAS HCPCS code that is held and stored for comparison "
^DD(660,102,21,2,0)="during the account updates for the PFSS project."
^DD(660,102,"DT")="3050630"
^DD(660,103,0)="LATEST QTY^NJ4,0^^PFSS;4^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(660,103,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(660,103,21,0)="^^2^2^3050630^"
^DD(660,103,21,1,0)="This is the latest QTY that is held and stored for comparison during the "
^DD(660,103,21,2,0)="account updates for the PFSS project."
^DD(660,103,"DT")="3050630"
^DD(660,104,0)="LATEST TOTAL COST^NJ9,2^^PFSS;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(660,104,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(660,104,21,0)="^^2^2^3050630^"
^DD(660,104,21,1,0)="This is the latest Total Cost that is held and stored for comparison "
^DD(660,104,21,2,0)="during the account updates for the PFSS project."
^DD(660,104,"DT")="3050630"
^DD(660,105,0)="LATEST ORDERING PROVIDER^P200'^VA(200,^PFSS;6^Q"
^DD(660,105,21,0)="^^2^2^3050630^"
^DD(660,105,21,1,0)="This is the latest attending physician (ordering provider) that is held "
^DD(660,105,21,2,0)="and stored for comparison during the account updates for the PFSS project."
^DD(660,105,"DT")="3050630"
^DD(660,106,0)="PFSS ACCOUNT FLAG^S^1:READY TO PROCESS;^PFSS;7^Q"
^DD(660,106,1,0)="^.1^^-1"
^DD(660,106,1,1,0)="660^APH"
^DD(660,106,1,1,1)="S ^RMPR(660,""APH"",$E(X,1,30),DA)="""""
^DD(660,106,1,1,2)="K ^RMPR(660,""APH"",$E(X,1,30),DA)"
^DD(660,106,1,1,"DT")="3050701"
^DD(660,106,5,1,0)="660^4.5^3"
^DD(660,106,5,2,0)="660^.01^3"
^DD(660,106,21,0)="^.001^2^2^3050713^^^"
^DD(660,106,21,1,0)="Flag for ready to process PFSS Account Creation/Pre-Certification. "
^DD(660,106,21,2,0)="1 = Ready to process"
^DD(660,106,"DT")="3051027"
^DD(660,107,0)="PFSS CHARGE FLAG^S^1:READY TO PROCESS;^PFSS;8^Q"
^DD(660,107,1,0)="^.1"
^DD(660,107,1,1,0)="660^APD"
^DD(660,107,1,1,1)="S ^RMPR(660,""APD"",$E(X,1,30),DA)="""""
^DD(660,107,1,1,2)="K ^RMPR(660,""APD"",$E(X,1,30),DA)"
^DD(660,107,1,1,"DT")="3050713"
^DD(660,107,5,1,0)="660^4.5^4"
^DD(660,107,5,2,0)="660^5^1"
^DD(660,107,5,3,0)="660^14^1"
^DD(660,107,5,4,0)="660^8.6^1"
^DD(660,107,5,5,0)="660^10^2"
^DD(660,107,21,0)="^^1^1^3050713^"
^DD(660,107,21,1,0)="Flag for ready to process PFSS Charge message. 1 = Ready to process"
^DD(660,107,"DT")="3050713"
^DD(660,"B","*PRODUCT LINE",22)=""
^DD(660,"B","*STATUS FLAG",18)=""
^DD(660,"B","2529-3",72)=""
^DD(660,"B","ACTION",13)=""
^DD(660,"B","ADMIN REPAIR AMIS CODE",64)=""
^DD(660,"B","AMIS DATE",60)=""
^DD(660,"B","AMIS FLAG",79)=""
^DD(660,"B","AMIS GROUPER",68)=""
^DD(660,"B","AMIS NEW CODE",52)=""
^DD(660,"B","BACKLOG DATE",83)=""
^DD(660,"B","BANK AUTHORIZATION NUMBER",4.3)=""
^DD(660,"B","CODING FLAG DATE",4.91)=""
^DD(660,"B","COMPLETION DATE",8.4)=""
^DD(660,"B","COMPLETION DATE",50)=""
^DD(660,"B","CONSULT",8.9)=""
^DD(660,"B","CONSULT REQUEST SERVICE",8.61)=""
^DD(660,"B","CONTRACT #",38.7)=""
^DD(660,"B","CPT MODIFIER",4.7)=""
^DD(660,"B","DALC BILL DATE",89.2)=""
^DD(660,"B","DALC ORDERING STATION",89.3)=""
^DD(660,"B","DALC REFERENCE NUMBER",89.1)=""
^DD(660,"B","DATE CPT MODIFIER EXTRACTED",4.8)=""
^DD(660,"B","DATE EDITED",36)=""
^DD(660,"B","DATE OF SERVICE",39)=""
^DD(660,"B","DATE RX WRITTEN",8.2)=""
^DD(660,"B","DATE SENT TO PCE",8.13)=""
^DD(660,"B","DELIVER TO",25)=""
^DD(660,"B","DELIVERY DATE",10)=""
^DD(660,"B","DESCRIPTION",24)=""
^DD(660,"B","ENTRY DATE",.01)=""
^DD(660,"B","EXCLUDE/WAIVER",38.1)=""
^DD(660,"B","EXTENDED DESCRIPTION",28)=""
^DD(660,"B","FORM REQUESTED ON",11)=""
^DD(660,"B","FREE TEXT WO #",72.5)=""
^DD(660,"B","HCPCS",4.1)=""
^DD(660,"B","HCPCS-ICD9 CODING FLAG",4.9)=""
^DD(660,"B","HCPCS/ITEM",37)=""
^DD(660,"B","HCPCS/ITEM DESCRIPTION",38)=""
^DD(660,"B","HIGH TECH ITEM",4.92)=""
^DD(660,"B","HISTORICAL CITY",94)=""
^DD(660,"B","HISTORICAL DATA",15)=""
^DD(660,"B","HISTORICAL ITEM",89)=""
^DD(660,"B","HISTORICAL RECORD",97)=""
^DD(660,"B","HISTORICAL STATE",95)=""
^DD(660,"B","HISTORICAL STATION",90)=""
^DD(660,"B","HISTORICAL STREET ADD",93)=""
^DD(660,"B","HISTORICAL VENDOR",91)=""
^DD(660,"B","HISTORICAL VENDOR PHONE",92)=""
^DD(660,"B","HISTORICAL ZIP",96)=""
^DD(660,"B","INITIAL ACTION DATE",8.3)=""
^DD(660,"B","INITIATOR",27)=""
^DD(660,"B","INVENTORY POINT",29)=""
^DD(660,"B","ITEM",4)=""
^DD(660,"B","LAB AMIS DATE",73)=""
^DD(660,"B","LAB REMARKS",51)=""
^DD(660,"B","LABEL",2)="1"
^DD(660,"B","LATEST ORDERING PROVIDER",105)=""
^DD(660,"B","LATEST PSAS HCPCS",102)=""
^DD(660,"B","LATEST QTY",103)=""
^DD(660,"B","LATEST TOTAL COST",104)=""
^DD(660,"B","LOT NUMBER",21)=""
^DD(660,"B","NO ADMIN COUNT",81)=""
^DD(660,"B","NO LAB COUNT",82)=""
^DD(660,"B","NUMBER OF BIDS",38.8)=""
^DD(660,"B","OIF/OEF",34)=""
^DD(660,"B","ORTHOTICS LAB CODE",74)=""
^DD(660,"B","ORTHOTICS LAB REPAIR CODE",75)=""
^DD(660,"B","PATIENT CATEGORY",62)=""
^DD(660,"B","PATIENT NAME",.02)=""
^DD(660,"B","PCE",8.12)=""
^DD(660,"B","PFSS ACCOUNT FLAG",106)=""
^DD(660,"B","PFSS ACCOUNT REFERENCE",100)=""
^DD(660,"B","PFSS CHARGE FLAG",107)=""
^DD(660,"B","PFSS CHARGE ID",101)=""
^DD(660,"B","PICKUP/DEL",6.5)=""
^DD(660,"B","PRIMARY AGENT ORANGE EXPOSURE",30.1)=""
^DD(660,"B","PRIMARY COMBAT VET",30.7)=""
^DD(660,"B","PRIMARY ENVIRONMENTAL CONT.",30.4)=""
^DD(660,"B","PRIMARY HEAD/NECK CANCER",30.6)=""
^DD(660,"B","PRIMARY ICD DIAGNOSIS CODE",30)=""
^DD(660,"B","PRIMARY IONIZED RADIATION",30.2)=""
^DD(660,"B","PRIMARY MST",30.5)=""
^DD(660,"B","PRIMARY SERVICE-CONNECTED",30.3)=""
^DD(660,"B","PRODUCT DESCRIPTION",9.1)=""
^DD(660,"B","PRODUCT MODEL",9.2)=""
^DD(660,"B","PROVISIONAL DIAGNOSIS",8.7)=""
^DD(660,"B","PSAS HCPCS",4.5)=""
^DD(660,"B","QTY",5)=""
^DD(660,"B","QTY",13)="1"
^DD(660,"B","RECEIVING STATION",70)=""
^DD(660,"B","REMARKS",16)=""
^DD(660,"B","REQUEST DATE",1)=""
^DD(660,"B","REQUESTING STATION",40)=""
^DD(660,"B","RESTORATION LAB CODE",76)=""
^DD(660,"B","RESTORATIONS LAB REPAIR CODE",77)=""
^DD(660,"B","RETURN STATUS DATE",17.5)=""
^DD(660,"B","RETURNED STATUS",17)=""
^DD(660,"B","SECONDARY AGENT ORANGE 1",31.1)=""
^DD(660,"B","SECONDARY AGENT ORANGE 2",32.1)=""
^DD(660,"B","SECONDARY AGENT ORANGE 3",33.1)=""
^DD(660,"B","SECONDARY COMBAT VET 1",31.7)=""
^DD(660,"B","SECONDARY COMBAT VET 2",32.7)=""
^DD(660,"B","SECONDARY COMBAT VET 3",33.7)=""
^DD(660,"B","SECONDARY ENVIR. CONT. 2",32.4)=""
^DD(660,"B","SECONDARY ENVIRON. CONT. 3",33.4)=""
^DD(660,"B","SECONDARY ENVIRONMENTAL CONT 1",31.4)=""
^DD(660,"B","SECONDARY HEAD/NECK CANCER 1",31.6)=""
^DD(660,"B","SECONDARY HEAD/NECK CANCER 2",32.6)=""
^DD(660,"B","SECONDARY HEAD/NECK CANCER 3",33.6)=""
^DD(660,"B","SECONDARY ICD DIAGNOSIS 2",32)=""
^DD(660,"B","SECONDARY ICD DIAGNOSIS 3",33)=""
^DD(660,"B","SECONDARY ICD DIAGNOSIS CODE 1",31)=""
^DD(660,"B","SECONDARY IONIZED RADIATION 1",31.2)=""
^DD(660,"B","SECONDARY IONIZED RADIATION 2",32.2)=""
^DD(660,"B","SECONDARY IONIZED RADIATION 3",33.2)=""
^DD(660,"B","SECONDARY MST 1",31.5)=""
^DD(660,"B","SECONDARY MST 2",32.5)=""
^DD(660,"B","SECONDARY MST 3",33.5)=""
^DD(660,"B","SECONDARY SERVICE-CONNECTED 1",31.3)=""
^DD(660,"B","SECONDARY SERVICE-CONNECTED 2",32.3)=""
^DD(660,"B","SECONDARY SERVICE-CONNECTED 3",33.3)=""
^DD(660,"B","SERIAL NBR",9)=""
^DD(660,"B","SHIP/DEL",6)=""
^DD(660,"B","SOURCE",12)=""
^DD(660,"B","SOURCE OF PROCUREMENT",69)=""
^DD(660,"B","SPECIAL CATEGORY",63)=""
^DD(660,"B","STATION",8)=""
^DD(660,"B","STOCK ISSUE",4.6)=""
^DD(660,"B","SUSPENSE DATE",8.1)=""
^DD(660,"B","SUSPENSE ICD9",8.8)=""
^DD(660,"B","SUSPENSE REQUESTOR",8.6)=""
^DD(660,"B","SUSPENSE STATION",8.11)=""
^DD(660,"B","SUSPENSE STATUS",8.14)=""
^DD(660,"B","TOTAL COST",14)=""
^DD(660,"B","TOTAL LAB COST",48)=""
^DD(660,"B","TOTAL LABOR COST",46)=""
^DD(660,"B","TOTAL LABOR HOURS",45)=""
^DD(660,"B","TOTAL MATERIAL COST",47)=""
^DD(660,"B","TRANSACTION",23)=""
^DD(660,"B","TYPE OF REQUEST",8.5)=""
^DD(660,"B","TYPE OF TRANSACTION",2)=""
^DD(660,"B","UNIT OF ISSUE",78)=""
^DD(660,"B","USER WHO EDIT",35)=""
^DD(660,"B","VENDOR",7)=""
^DD(660,"B","VENDOR TRACKING NUMBER",4.2)=""
^DD(660,"B","WORK FOR OTHER STATION",80)=""
^DD(660,"B","WORK ORDER NUMBER",71)=""
^DD(660,"GL",0,1,.01)=""
^DD(660,"GL",0,2,.02)=""
^DD(660,"GL",0,3,1)=""
^DD(660,"GL",0,4,2)=""
^DD(660,"GL",0,5,13)=""
^DD(660,"GL",0,6,4)=""
^DD(660,"GL",0,7,5)=""
^DD(660,"GL",0,8,78)=""
^DD(660,"GL",0,9,7)=""
^DD(660,"GL",0,10,8)=""
^DD(660,"GL",0,11,9)=""
^DD(660,"GL",0,12,10)=""
^DD(660,"GL",0,13,11)=""
^DD(660,"GL",0,14,12)=""
^DD(660,"GL",0,15,15)=""
^DD(660,"GL",0,16,14)=""
^DD(660,"GL",0,17,6)=""
^DD(660,"GL",0,18,16)=""
^DD(660,"GL",0,19,17)=""
^DD(660,"GL",0,20,17.5)=""
^DD(660,"GL",0,21,18)=""
^DD(660,"GL",0,22,4.1)=""
^DD(660,"GL",0,24,21)=""
^DD(660,"GL",0,25,22)=""
^DD(660,"GL",0,26,6.5)=""
^DD(660,"GL",0,27,27)=""
^DD(660,"GL",1,1,23)=""
^DD(660,"GL",1,2,24)=""
^DD(660,"GL",1,3,29)=""
^DD(660,"GL",1,4,4.5)=""
^DD(660,"GL",1,5,4.6)=""
^DD(660,"GL",1,6,4.7)=""
^DD(660,"GL",1,7,4.8)=""
^DD(660,"GL",1,8,39)=""
^DD(660,"GL",1,9,35)=""
^DD(660,"GL",1,10,36)=""
^DD(660,"GL",1,11,4.9)=""
^DD(660,"GL",1,12,4.91)=""
^DD(660,"GL",1,13,4.92)=""
^DD(660,"GL",2,1,37)=""
^DD(660,"GL",2,2,38)=""
^DD(660,"GL",2,3,38.1)=""
^DD(660,"GL",2,9,38.7)=""
^DD(660,"GL",2,10,38.8)=""
^DD(660,"GL",3,1,25)=""
^DD(660,"GL",4,1,4.2)=""
^DD(660,"GL",4,2,4.3)=""
^DD(660,"GL",4,3,8.61)=""
^DD(660,"GL",5,1,34)=""
^DD(660,"GL",9,1,9.1)=""
^DD(660,"GL",9,2,9.2)=""
^DD(660,"GL",10,1,8.1)=""
^DD(660,"GL",10,2,8.2)=""
^DD(660,"GL",10,3,8.3)=""
^DD(660,"GL",10,4,8.4)=""
^DD(660,"GL",10,5,8.5)=""
^DD(660,"GL",10,6,8.6)=""
^DD(660,"GL",10,7,8.7)=""
^DD(660,"GL",10,8,8.8)=""
^DD(660,"GL",10,9,8.9)=""
^DD(660,"GL",10,11,8.11)=""
^DD(660,"GL",10,12,8.12)=""
^DD(660,"GL",10,13,8.13)=""
^DD(660,"GL",10,14,8.14)=""
^DD(660,"GL","AM",1,60)=""
^DD(660,"GL","AM",2,81)=""
^DD(660,"GL","AM",3,62)=""
^DD(660,"GL","AM",4,63)=""
^DD(660,"GL","AM",5,64)=""
^DD(660,"GL","AM",6,79)=""
^DD(660,"GL","AM",9,52)=""
^DD(660,"GL","AMS",1,68)=""
^DD(660,"GL","BA1",1,30)=""
^DD(660,"GL","BA1",2,30.1)=""
^DD(660,"GL","BA1",3,30.2)=""
^DD(660,"GL","BA1",4,30.3)=""
^DD(660,"GL","BA1",5,30.4)=""
^DD(660,"GL","BA1",6,30.5)=""
^DD(660,"GL","BA1",7,30.6)=""
^DD(660,"GL","BA1",8,30.7)=""
^DD(660,"GL","BA2",1,31)=""
^DD(660,"GL","BA2",2,31.1)=""
^DD(660,"GL","BA2",3,31.2)=""
^DD(660,"GL","BA2",4,31.3)=""
^DD(660,"GL","BA2",5,31.4)=""
^DD(660,"GL","BA2",6,31.5)=""
^DD(660,"GL","BA2",7,31.6)=""
^DD(660,"GL","BA2",8,31.7)=""
^DD(660,"GL","BA3",1,32)=""
^DD(660,"GL","BA3",2,32.1)=""
^DD(660,"GL","BA3",3,32.2)=""
^DD(660,"GL","BA3",4,32.3)=""
^DD(660,"GL","BA3",5,32.4)=""
^DD(660,"GL","BA3",6,32.5)=""
^DD(660,"GL","BA3",7,32.6)=""
^DD(660,"GL","BA3",8,32.7)=""
^DD(660,"GL","BA4",1,33)=""
^DD(660,"GL","BA4",2,33.1)=""
^DD(660,"GL","BA4",3,33.2)=""
^DD(660,"GL","BA4",4,33.3)=""
^DD(660,"GL","BA4",5,33.4)=""
^DD(660,"GL","BA4",6,33.5)=""
^DD(660,"GL","BA4",7,33.6)=""
^DD(660,"GL","BA4",8,33.7)=""
^DD(660,"GL","DES",0,28)=""
^DD(660,"GL","HST",1,89)=""
^DD(660,"GL","HST",2,90)=""
^DD(660,"GL","HST",3,91)=""
^DD(660,"GL","HST",4,97)=""
^DD(660,"GL","HSTV",1,92)=""
^DD(660,"GL","HSTV",2,93)=""
^DD(660,"GL","HSTV",3,94)=""
^DD(660,"GL","HSTV1",1,95)=""
^DD(660,"GL","HSTV1",2,96)=""
^DD(660,"GL","HSTV1",3,89.1)=""
^DD(660,"GL","HSTV1",4,89.2)=""
^DD(660,"GL","HSTV1",5,89.3)=""
^DD(660,"GL","LB",1,40)=""
^DD(660,"GL","LB",2,72.5)=""
^DD(660,"GL","LB",3,69)=""
^DD(660,"GL","LB",4,70)=""
^DD(660,"GL","LB",5,71)=""
^DD(660,"GL","LB",6,45)=""
^DD(660,"GL","LB",7,46)=""
^DD(660,"GL","LB",8,47)=""
^DD(660,"GL","LB",9,48)=""
^DD(660,"GL","LB",10,72)=""
^DD(660,"GL","LB",11,50)=""
^DD(660,"GL","LB",12,51)=""
^DD(660,"GL","LB",13,80)=""
^DD(660,"GL","LB",14,82)=""
^DD(660,"GL","LBA",1,73)=""
^DD(660,"GL","LBA",2,74)=""
^DD(660,"GL","LBA",3,75)=""
^DD(660,"GL","LBA",4,76)=""
^DD(660,"GL","LBA",5,77)=""
^DD(660,"GL","LBA",6,83)=""
^DD(660,"GL","PFSS",1,100)=""
^DD(660,"GL","PFSS",2,101)=""
^DD(660,"GL","PFSS",3,102)=""
^DD(660,"GL","PFSS",4,103)=""
^DD(660,"GL","PFSS",5,104)=""
^DD(660,"GL","PFSS",6,105)=""
^DD(660,"GL","PFSS",7,106)=""
^DD(660,"GL","PFSS",8,107)=""
^DD(660,"IX",.01)=""
^DD(660,"IX",.02)=""
^DD(660,"IX",1)=""
^DD(660,"IX",4)=""
^DD(660,"IX",4.1)=""
^DD(660,"IX",4.5)=""
^DD(660,"IX",5)=""
^DD(660,"IX",8.13)=""
^DD(660,"IX",8.6)=""
^DD(660,"IX",10)=""
^DD(660,"IX",14)=""
^DD(660,"IX",23)=""
^DD(660,"IX",39)=""
^DD(660,"IX",50)=""
^DD(660,"IX",60)=""
^DD(660,"IX",68)=""
^DD(660,"IX",83)=""
^DD(660,"IX",89.1)=""
^DD(660,"IX",106)=""
^DD(660,"IX",107)=""
^DD(660,"RQ",.01)=""
^DD(660,"RQ",.02)=""
^DD(660,"RQ",1)=""
^DD(660,"RQ",2)=""
^DD(660,"RQ",4)=""
^DD(660,"RQ",4.1)=""
^DD(660,"RQ",5)=""
^DD(660,"RQ",7)=""
^DD(660,"RQ",8)=""
^DD(660,"RQ",12)=""
^DD(660,"RQ",14)=""
^DD(660,"RQ",62)=""
^DD(660,"SB",660.028,28)=""
^DD(660.028,0)="EXTENDED DESCRIPTION SUB-FIELD^^.01^1"
^DD(660.028,0,"DT")="2910711"
^DD(660.028,0,"NM","EXTENDED DESCRIPTION")=""
^DD(660.028,0,"UP")="660"
^DD(660.028,.01,0)="EXTENDED DESCRIPTION^W^^0;1^Q"
^DD(660.028,.01,3)="Please enter the extended description.  This is a word-processing field."
^DD(660.028,.01,21,0)="^^2^2^2950417^"
^DD(660.028,.01,21,1,0)="This is the extended information from purchasing and also from posting"
^DD(660.028,.01,21,2,0)="of VAF 2237s."
^DD(660.028,.01,"DT")="2910711"
^DD(660.028,"B","EXTENDED DESCRIPTION",.01)=""
^DD(660.028,"GL",0,1,.01)=""
^DD(660.1,0)="FIELD^^24^24"
^DD(660.1,0,"DDA")="N"
^DD(660.1,0,"DT")="2950515"
^DD(660.1,0,"IX","AC",660.1,11.5)=""
^DD(660.1,0,"IX","AD",660.1,5)=""
^DD(660.1,0,"IX","AF",660.1,22)=""
^DD(660.1,0,"IX","AG",660.1,.05)=""
^DD(660.1,0,"IX","AP",660.1,24)=""
^DD(660.1,0,"IX","AR",660.1,10)=""
^DD(660.1,0,"IX","B",660.1,.01)=""
^DD(660.1,0,"IX","C",660.1,1)=""
^DD(660.1,0,"NM","PROS RETURNED/CONDEMNED")=""
^DD(660.1,0,"VR")="3.0"
^DD(660.1,.01,0)="DATE^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(660.1,.01,1,0)="^.1"
^DD(660.1,.01,1,1,0)="660.1^B"
^DD(660.1,.01,1,1,1)="S ^RMPR(660.1,""B"",$E(X,1,30),DA)="""""
^DD(660.1,.01,1,1,2)="K ^RMPR(660.1,""B"",$E(X,1,30),DA)"
^DD(660.1,.01,3)="Enter the Date of the Loan transaction."
^DD(660.1,.01,21,0)="^^1^1^2920731^^^"
^DD(660.1,.01,21,1,0)="This field stores the date of the loaner transaction."
^DD(660.1,.01,"DT")="2920715"
^DD(660.1,.05,0)="DATE OF LOAN^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660.1,.05,1,0)="^.1"
^DD(660.1,.05,1,1,0)="660.1^AG"
^DD(660.1,.05,1,1,1)="S ^RMPR(660.1,""AG"",$E(X,1,30),DA)="""""
^DD(660.1,.05,1,1,2)="K ^RMPR(660.1,""AG"",$E(X,1,30),DA)"
^DD(660.1,.05,1,1,"%D",0)="^^1^1^2930305^"
^DD(660.1,.05,1,1,"%D",1,0)="Used to look up loan transactions for 1465 report."
^DD(660.1,.05,1,1,"DT")="2930305"
^DD(660.1,.05,3)="Enter the date of Loan or Return transaction."
^DD(660.1,.05,21,0)="^^1^1^2920831^"
^DD(660.1,.05,21,1,0)="This is the date of the loan to the veteran."
^DD(660.1,.05,"DT")="2930305"
^DD(660.1,1,0)="PATIENT^RP665'^RMPR(665,^0;2^Q"
^DD(660.1,1,1,0)="^.1"
^DD(660.1,1,1,1,0)="660.1^C"
^DD(660.1,1,1,1,1)="S ^RMPR(660.1,""C"",$E(X,1,30),DA)="""""
^DD(660.1,1,1,1,2)="K ^RMPR(660.1,""C"",$E(X,1,30),DA)"
^DD(660.1,1,1,1,"%D",0)="^^1^1^2920721^"
^DD(660.1,1,1,1,"%D",1,0)="Used to display/print loan card information."
^DD(660.1,1,1,1,"DT")="2920721"
^DD(660.1,1,3)="Enter the Patient's name for this loan transaction."
^DD(660.1,1,21,0)="^^1^1^2920831^"
^DD(660.1,1,21,1,0)="This is the name of the patient for this loan transaction."
^DD(660.1,1,"DT")="2920721"
^DD(660.1,2,0)="ITEM^P661'^RMPR(661,^0;3^Q"
^DD(660.1,2,1,0)="^.1^^0"
^DD(660.1,2,3)="Enter the item for this loan transaction."
^DD(660.1,2,21,0)="^^1^1^2920731^"
^DD(660.1,2,21,1,0)="This is a pointer field to the Prosthetic Item file."
^DD(660.1,2,"DT")="2930527"
^DD(660.1,2.5,0)="COMMENTS^660.11^^1;0"
^DD(660.1,2.5,21,0)="^^1^1^2920831^"
^DD(660.1,2.5,21,1,0)="This word-processing field stores information about the loan transaction."
^DD(660.1,2.5,"DT")="2920722"
^DD(660.1,3,0)="QUANTITY^RNJ5,0^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(660.1,3,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(660.1,3,21,0)="^^1^1^2920831^"
^DD(660.1,3,21,1,0)="This is the quantity of the item on this loan."
^DD(660.1,3,"DT")="2930529"
^DD(660.1,4,0)="COST^RNJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999.99)!(X<0) X"
^DD(660.1,4,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits"
^DD(660.1,4,21,0)="^^1^1^2920831^"
^DD(660.1,4,21,1,0)="This is the cost of the item on loan."
^DD(660.1,4,"DT")="2930529"
^DD(660.1,5,0)="SERIAL NUMBER^FX^^0;6^K:X[""""""""!($A(X)=45)!($E(X)="" "") X I $D(X) K:$L(X)>15!($L(X)<1)!(X[""^"") X"
^DD(660.1,5,1,0)="^.1^^0"
^DD(660.1,5,1,1,0)="660.1^AD"
^DD(660.1,5,1,1,1)="S ^RMPR(660.1,""AD"",$E(X,1,30),DA)="""""
^DD(660.1,5,1,1,2)="K ^RMPR(660.1,""AD"",$E(X,1,30),DA)"
^DD(660.1,5,1,1,"%D",0)="^^1^1^2930416^^"
^DD(660.1,5,1,1,"%D",1,0)="For tracking used items on loan"
^DD(660.1,5,1,1,"DT")="2921029"
^DD(660.1,5,3)="Answer must be 1-15 characters in length and cannot contain an `^`."
^DD(660.1,5,21,0)="^^1^1^2950515^^^"
^DD(660.1,5,21,1,0)="This field stores the serial number of the item on loan."
^DD(660.1,5,"DT")="2950515"
^DD(660.1,6,0)="PURCHASE DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660.1,6,3)="Enter the date the appliance was purchased."
^DD(660.1,6,21,0)="^^1^1^2920831^"
^DD(660.1,6,21,1,0)="This is the date the item was purchased by prosthetics."
^DD(660.1,6,"DT")="2920715"
^DD(660.1,7,0)="ASSET EXPIRATION DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660.1,7,3)="Enter a date 5 years subsequent to the purchase date."
^DD(660.1,7,21,0)="^^1^1^2920831^"
^DD(660.1,7,21,1,0)="This field stores the date the asset expires (5 yr from date of purchase)."
^DD(660.1,7,"DT")="2920715"
^DD(660.1,8,0)="FOLLOW-UP DATE^660.18DA^^2;0"
^DD(660.1,8,21,0)="^^2^2^2930315^^"
^DD(660.1,8,21,1,0)="These are dates uses by prosthetics to follow-up with the patient"
^DD(660.1,8,21,2,0)="the status of the loaned item."
^DD(660.1,8,"DT")="2930315"
^DD(660.1,9,0)="TYPE OF LOAN TRANSACTION^S^1:LOAN;2:RETURN;3:TEMP LOAN;^0;9^Q"
^DD(660.1,9,3)="Enter the type of loan transaction."
^DD(660.1,9,21,0)="^^1^1^2921028^^"
^DD(660.1,9,21,1,0)="Stores the type of loan."
^DD(660.1,9,"DT")="2921028"
^DD(660.1,10,0)="DATE OF RETURN^RD^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660.1,10,1,0)="^.1"
^DD(660.1,10,1,1,0)="660.1^AR"
^DD(660.1,10,1,1,1)="S ^RMPR(660.1,""AR"",$E(X,1,30),DA)="""""
^DD(660.1,10,1,1,2)="K ^RMPR(660.1,""AR"",$E(X,1,30),DA)"
^DD(660.1,10,1,1,"%D",0)="^^2^2^2940217^"
^DD(660.1,10,1,1,"%D",1,0)="X-ref for Date of Return Field that is used to calculate part IV AMIS"
^DD(660.1,10,1,1,"%D",2,0)="Report."
^DD(660.1,10,1,1,"DT")="2940217"
^DD(660.1,10,3)="Enter the date the item was returned."
^DD(660.1,10,21,0)="^^1^1^2920723^"
^DD(660.1,10,21,1,0)="This field holds the date the loaned item was returned to prosthetics."
^DD(660.1,10,"DT")="2940217"
^DD(660.1,11,0)="INVENTORY POINT^P445'^PRCP(445,^0;12^Q"
^DD(660.1,11,3)="Enter the GIP Inventory Point for this loan transaction."
^DD(660.1,11,21,0)="^^2^2^2920831^"
^DD(660.1,11,21,1,0)="If the item was loaned from inventory with GIP running, the inventory"
^DD(660.1,11,21,2,0)="point is stored in this field."
^DD(660.1,11,"DT")="2920730"
^DD(660.1,11.5,0)="APPLIANCE REPAIR^P660'^RMPR(660,^0;16^Q"
^DD(660.1,11.5,1,0)="^.1"
^DD(660.1,11.5,1,1,0)="660.1^AC"
^DD(660.1,11.5,1,1,1)="S ^RMPR(660.1,""AC"",$E(X,1,30),DA)="""""
^DD(660.1,11.5,1,1,2)="K ^RMPR(660.1,""AC"",$E(X,1,30),DA)"
^DD(660.1,11.5,1,1,"%D",0)="^^1^1^2921211^^"
^DD(660.1,11.5,1,1,"%D",1,0)="Used to indicate items returned that have been previously issued."
^DD(660.1,11.5,1,1,"DT")="2921002"
^DD(660.1,11.5,3)="Enter the Internal Appliance Repair record number."
^DD(660.1,11.5,21,0)="^^1^1^2921008^^"
^DD(660.1,11.5,21,1,0)="This field stores the internal number of an entry in file 660."
^DD(660.1,11.5,"DT")="2921002"
^DD(660.1,12,0)="LOAN CATEGORY^S^1:BED;2:VAN LIFT;3:DIALYSIS SUPPLIES;4:INVALID LIFTS;5:RESPIRATORS;6:WHEELCHAIR;7:ALL OTHER;^0;13^Q"
^DD(660.1,12,3)="Enter the loan category"
^DD(660.1,12,21,0)="^^1^1^2920831^"
^DD(660.1,12,21,1,0)="This is the category of the item loaned."
^DD(660.1,12,"DT")="2920817"
^DD(660.1,13,0)="RETURNED STATUS^RS^1:RETURNED;2:CONDEMNED;3:TURNED-IN;4:LOST;5:BROKEN;^0;14^Q"
^DD(660.1,13,3)="Enter the returned status code"
^DD(660.1,13,21,0)="^^2^2^2920910^^^"
^DD(660.1,13,21,1,0)="This field stores the returned status code for items turned-in by"
^DD(660.1,13,21,2,0)="the patient."
^DD(660.1,13,"DT")="2930412"
^DD(660.1,14,0)="STATION^P4'^DIC(4,^0;15^Q"
^DD(660.1,14,3)="Enter the Station number for this loan transaction."
^DD(660.1,14,21,0)="^^1^1^2921008^"
^DD(660.1,14,21,1,0)="This field stores the station number of the loan transaction."
^DD(660.1,14,"DT")="2920929"
^DD(660.1,19,0)="ITEM STATUS^RS^N:NEW ITEM;R:RECOVERED ITEM;^0;17^Q"
^DD(660.1,19,3)="Enter 'N' for NEW ITEMS or 'R' for 'RECOVERED' ITEMS"
^DD(660.1,19,21,0)="2^^2^2^2930104^"
^DD(660.1,19,21,1,0)="Indicates if the item loaned was a new purchase or a recovered"
^DD(660.1,19,21,2,0)="item."
^DD(660.1,19,"DT")="2921103"
^DD(660.1,20,0)="OBLIGATION NUMBER^F^^0;18^K:$L(X)>20!($L(X)<1) X"
^DD(660.1,20,3)="Answer must be 1-20 characters in length."
^DD(660.1,20,21,0)="^^2^2^2930104^^"
^DD(660.1,20,21,1,0)="Obligation number of item that has been purchased on a 1358 and loaned"
^DD(660.1,20,21,2,0)="to the veteran."
^DD(660.1,20,"DT")="2921103"
^DD(660.1,21,0)="RE-ISSUE STATUS^RS^A:AVAILABLE FOR RE-ISSUE;N:NOT AVAILABLE FOR RE-ISSUE;^0;19^Q"
^DD(660.1,21,3)="Enter 'A' for AVAILABLE FOR RE-ISSUE or 'N' for NOT AVAILABLE FOR RE-ISSUE"
^DD(660.1,21,21,0)="^^2^2^2930104^"
^DD(660.1,21,21,1,0)="Indicates item is Available for Re-issue or not available for re-issue"
^DD(660.1,21,21,2,0)="when the item has been returned."
^DD(660.1,21,"DT")="2921217"
^DD(660.1,22,0)="RE-ISSUE ENTRY^P660.2'^RMPR(660.2,^0;20^Q"
^DD(660.1,22,1,0)="^.1"
^DD(660.1,22,1,1,0)="660.1^AF"
^DD(660.1,22,1,1,1)="S ^RMPR(660.1,""AF"",$E(X,1,30),DA)="""""
^DD(660.1,22,1,1,2)="K ^RMPR(660.1,""AF"",$E(X,1,30),DA)"
^DD(660.1,22,1,1,"%D",0)="^^2^2^2921227^"
^DD(660.1,22,1,1,"%D",1,0)="Used to find 660.1 entries that point to 660.2 with the re-issue entry"
^DD(660.1,22,1,1,"%D",2,0)="filed."
^DD(660.1,22,1,1,"DT")="2921227"
^DD(660.1,22,3)="Enter the Item that has been returned for Loan"
^DD(660.1,22,21,0)="^^1^1^2930104^"
^DD(660.1,22,21,1,0)="Pointer to file 660.2 re-issue entry."
^DD(660.1,22,"DT")="2921227"
^DD(660.1,23,0)="AUTO-ADAPTIVE ITEM^P667.1'^RMPR(667.1,^0;21^Q"
^DD(660.1,23,3)="Enter the Auto Adaptive Item Number or Name"
^DD(660.1,23,21,0)="^^1^1^2930104^^"
^DD(660.1,23,21,1,0)="Pointer to file 667.1 Auto-Adaptive Equipment file."
^DD(660.1,23,"DT")="2930310"
^DD(660.1,24,0)="AUTO-ADAPTIVE TRANSACTION^P667.3'^RMPR(667.3,^0;22^Q"
^DD(660.1,24,1,0)="^.1"
^DD(660.1,24,1,1,0)="660.1^AP"
^DD(660.1,24,1,1,1)="S ^RMPR(660.1,""AP"",$E(X,1,30),DA)="""""
^DD(660.1,24,1,1,2)="K ^RMPR(660.1,""AP"",$E(X,1,30),DA)"
^DD(660.1,24,1,1,"%D",0)="^^1^1^2940215^"
^DD(660.1,24,1,1,"%D",1,0)="This x-ref is used to look for auto-adaptive transactions that are on loan."
^DD(660.1,24,1,1,"DT")="2940215"
^DD(660.1,24,21,0)="^^1^1^2930104^"
^DD(660.1,24,21,1,0)="Pointer to Auto-Adaptive Equipment file #667.3"
^DD(660.1,24,"DT")="2940215"
^DD(660.1,"B","APPLIANCE REPAIR",11.5)=""
^DD(660.1,"B","ASSET EXPIRATION DATE",7)=""
^DD(660.1,"B","AUTO-ADAPTIVE ITEM",23)=""
^DD(660.1,"B","AUTO-ADAPTIVE TRANSACTION",24)=""
^DD(660.1,"B","COMMENTS",2.5)=""
^DD(660.1,"B","COST",4)=""
^DD(660.1,"B","DATE",.01)=""
^DD(660.1,"B","DATE OF LOAN",.05)=""
^DD(660.1,"B","DATE OF RETURN",10)=""
^DD(660.1,"B","FOLLOW-UP DATE",8)=""
^DD(660.1,"B","INVENTORY POINT",11)=""
^DD(660.1,"B","ITEM",2)=""
^DD(660.1,"B","ITEM STATUS",19)=""
^DD(660.1,"B","LOAN CATEGORY",12)=""
^DD(660.1,"B","OBLIGATION NUMBER",20)=""
^DD(660.1,"B","PATIENT",1)=""
^DD(660.1,"B","PURCHASE DATE",6)=""
^DD(660.1,"B","QUANTITY",3)=""
^DD(660.1,"B","RE-ISSUE ENTRY",22)=""
^DD(660.1,"B","RE-ISSUE STATUS",21)=""
^DD(660.1,"B","RETURNED STATUS",13)=""
^DD(660.1,"B","SERIAL NUMBER",5)=""
^DD(660.1,"B","STATION",14)=""
^DD(660.1,"B","TYPE OF LOAN TRANSACTION",9)=""
^DD(660.1,"GL",0,1,.01)=""
^DD(660.1,"GL",0,2,1)=""
^DD(660.1,"GL",0,3,2)=""
^DD(660.1,"GL",0,4,3)=""
^DD(660.1,"GL",0,5,4)=""
^DD(660.1,"GL",0,6,5)=""
^DD(660.1,"GL",0,7,6)=""
^DD(660.1,"GL",0,8,7)=""
^DD(660.1,"GL",0,9,9)=""
^DD(660.1,"GL",0,10,.05)=""
^DD(660.1,"GL",0,11,10)=""
^DD(660.1,"GL",0,12,11)=""
^DD(660.1,"GL",0,13,12)=""
^DD(660.1,"GL",0,14,13)=""
^DD(660.1,"GL",0,15,14)=""
^DD(660.1,"GL",0,16,11.5)=""
^DD(660.1,"GL",0,17,19)=""
^DD(660.1,"GL",0,18,20)=""
^DD(660.1,"GL",0,19,21)=""
^DD(660.1,"GL",0,20,22)=""
^DD(660.1,"GL",0,21,23)=""
^DD(660.1,"GL",0,22,24)=""
^DD(660.1,"GL",1,0,2.5)=""
^DD(660.1,"GL",2,0,8)=""
^DD(660.1,"IX",.01)=""
^DD(660.1,"IX",.05)=""
^DD(660.1,"IX",1)=""
^DD(660.1,"IX",5)=""
^DD(660.1,"IX",10)=""
^DD(660.1,"IX",11.5)=""
^DD(660.1,"IX",22)=""
^DD(660.1,"IX",24)=""
^DD(660.1,"RQ",.01)=""
^DD(660.1,"RQ",1)=""
^DD(660.1,"RQ",3)=""
^DD(660.1,"RQ",4)=""
^DD(660.1,"RQ",10)=""
^DD(660.1,"RQ",13)=""
^DD(660.1,"RQ",19)=""
^DD(660.1,"RQ",21)=""
^DD(660.1,"SB",660.11,2.5)=""
^DD(660.1,"SB",660.18,8)=""
^DD(660.11,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(660.11,0,"DT")="2920721"
^DD(660.11,0,"NM","COMMENTS")=""
^DD(660.11,0,"UP")="660.1"
^DD(660.11,.01,0)="COMMENTS^W^^0;1^Q"
^DD(660.11,.01,3)="Enter the description of the item loaned or returned."
^DD(660.11,.01,"DT")="2920722"
^DD(660.11,"B","COMMENTS",.01)=""
^DD(660.11,"GL",0,1,.01)=""
^DD(660.18,0)="FOLLOW-UP DATE SUB-FIELD^^1^2"
^DD(660.18,0,"DT")="2920721"
^DD(660.18,0,"IX","B",660.18,.01)=""
^DD(660.18,0,"NM","FOLLOW-UP DATE")=""
^DD(660.18,0,"UP")="660.1"
^DD(660.18,.01,0)="FOLLOW-UP DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660.18,.01,1,0)="^.1"
^DD(660.18,.01,1,1,0)="660.18^B"
^DD(660.18,.01,1,1,1)="S ^RMPR(660.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(660.18,.01,1,1,2)="K ^RMPR(660.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(660.18,.01,3)="Enter followup date for loaned item."
^DD(660.18,.01,21,0)="^^1^1^2930526^^"
^DD(660.18,.01,21,1,0)="Date of the follow-up action."
^DD(660.18,.01,"DT")="2930526"
^DD(660.18,1,0)="TYPE OF CONTACT^S^1:PERSONAL;2:RECORD REVIEW;3:TELEPHONE;4:LETTER;^0;2^Q"
^DD(660.18,1,3)="Enter type of contact with the veteran for followup activity."
^DD(660.18,1,21,0)="^^2^2^2920831^"
^DD(660.18,1,21,1,0)="This field stores the type of contact with the patient during the"
^DD(660.18,1,21,2,0)="follow-up action."
^DD(660.18,1,"DT")="2920721"
^DD(660.18,"B","FOLLOW-UP DATE",.01)=""
^DD(660.18,"B","TYPE OF CONTACT",1)=""
^DD(660.18,"GL",0,1,.01)=""
^DD(660.18,"GL",0,2,1)=""
^DD(660.18,"IX",.01)=""
^DD(660.2,0)="FIELD^^24^17"
^DD(660.2,0,"DDA")="N"
^DD(660.2,0,"DT")="2930603"
^DD(660.2,0,"IX","AC",660.2,24)=""
^DD(660.2,0,"IX","AD",660.2,5)=""
^DD(660.2,0,"IX","AP",660.2,11.5)=""
^DD(660.2,0,"IX","B",660.2,.01)=""
^DD(660.2,0,"NM","PROSTHETICS RE-ISSUE ITEM")=""
^DD(660.2,0,"PT",660.1,22)=""
^DD(660.2,.01,0)="DATE^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(660.2,.01,1,0)="^.1"
^DD(660.2,.01,1,1,0)="660.2^B"
^DD(660.2,.01,1,1,1)="S ^RMPR(660.2,""B"",$E(X,1,30),DA)="""""
^DD(660.2,.01,1,1,2)="K ^RMPR(660.2,""B"",$E(X,1,30),DA)"
^DD(660.2,.01,3)="Enter the Date of the Loan transaction."
^DD(660.2,.01,21,0)="^^1^1^2920731^^^"
^DD(660.2,.01,21,1,0)="This field stores the date of the loaner transaction."
^DD(660.2,.01,"DT")="2920715"
^DD(660.2,.05,0)="DATE OF LOAN^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660.2,.05,3)="Enter the date of Loan or Return transaction."
^DD(660.2,.05,21,0)="^^1^1^2920831^"
^DD(660.2,.05,21,1,0)="This is the date of the loan to the veteran."
^DD(660.2,.05,"DT")="2920723"
^DD(660.2,1,0)="PATIENT^RP665'^RMPR(665,^0;2^Q"
^DD(660.2,1,1,0)="^.1^^0"
^DD(660.2,1,3)="Enter the Patient's name for this loan transaction."
^DD(660.2,1,21,0)="^^1^1^2920831^"
^DD(660.2,1,21,1,0)="This is the name of the patient for this loan transaction."
^DD(660.2,1,"DT")="2921113"
^DD(660.2,2,0)="ITEM^P661'^RMPR(661,^0;3^Q"
^DD(660.2,2,1,0)="^.1^^0"
^DD(660.2,2,3)="Enter the item for this loan transaction."
^DD(660.2,2,21,0)="^^1^1^2920731^"
^DD(660.2,2,21,1,0)="This is a pointer field to the Prosthetic Item file."
^DD(660.2,2,"DT")="2930527"
^DD(660.2,4,0)="COST^NJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(660.2,4,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(660.2,4,21,0)="^^1^1^2930112^^"
^DD(660.2,4,21,1,0)="This is the cost of the item on loan."
^DD(660.2,4,"DT")="2920715"
^DD(660.2,5,0)="SERIAL NUMBER^RFX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1)!(X[""^"") X"
^DD(660.2,5,1,0)="^.1"
^DD(660.2,5,1,1,0)="660.2^AD"
^DD(660.2,5,1,1,1)="S ^RMPR(660.2,""AD"",$E(X,1,30),DA)="""""
^DD(660.2,5,1,1,2)="K ^RMPR(660.2,""AD"",$E(X,1,30),DA)"
^DD(660.2,5,1,1,"%D",0)="^^1^1^2921029^"
^DD(660.2,5,1,1,"%D",1,0)="For tracking used items on loan"
^DD(660.2,5,1,1,"DT")="2921029"
^DD(660.2,5,3)="Answer must be 1-15 characters in length and cannot contain an `^`."
^DD(660.2,5,21,0)="^^1^1^2920831^"
^DD(660.2,5,21,1,0)="This field stores the serial number of the item on loan."
^DD(660.2,5,"DT")="2921130"
^DD(660.2,10,0)="DATE OF RETURN^RD^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(660.2,10,3)="Enter the date the item was returned."
^DD(660.2,10,21,0)="^^1^1^2920723^"
^DD(660.2,10,21,1,0)="This file holds the date the loaned item was returned to prosthetics."
^DD(660.2,10,"DT")="2921217"
^DD(660.2,11,0)="INVENTORY POINT^P445'^PRCP(445,^0;12^Q"
^DD(660.2,11,3)="Enter the GIP Inventory Point for this loan transaction."
^DD(660.2,11,21,0)="^^2^2^2920831^"
^DD(660.2,11,21,1,0)="If the item was loaned from inventory with GIP running, the inventory"
^DD(660.2,11,21,2,0)="point is stored in this field."
^DD(660.2,11,"DT")="2920730"
^DD(660.2,11.5,0)="APPLIANCE REPAIR^P660'^RMPR(660,^0;16^Q"
^DD(660.2,11.5,1,0)="^.1"
^DD(660.2,11.5,1,1,0)="660.2^AP"
^DD(660.2,11.5,1,1,1)="S ^RMPR(660.2,""AP"",$E(X,1,30),DA)="""""
^DD(660.2,11.5,1,1,2)="K ^RMPR(660.2,""AP"",$E(X,1,30),DA)"
^DD(660.2,11.5,1,1,"%D",0)="^^2^2^2930613^^"
^DD(660.2,11.5,1,1,"%D",1,0)="Used to indicate appliance repairs from the patient 2319 that have been"
^DD(660.2,11.5,1,1,"%D",2,0)="placed on loan."
^DD(660.2,11.5,1,1,"DT")="2930528"
^DD(660.2,11.5,3)="Enter the Internal Appliance Repair Record number."
^DD(660.2,11.5,21,0)="^^1^1^2930528^"
^DD(660.2,11.5,21,1,0)="This field stores the internal number of an entry in file 660."
^DD(660.2,11.5,"DT")="2930528"
^DD(660.2,12,0)="LOAN CATEGORY^S^1:BED;2:VAN LIFT;3:DIALYSIS SUPPLIES;4:INVALID LIFTS;5:RESPIRATORS;6:WHEELCHAIR;7:ALL OTHER;^0;13^Q"
^DD(660.2,12,3)="Enter the Catetory of this item"
^DD(660.2,12,21,0)="^^2^2^2930416^^^"
^DD(660.2,12,21,1,0)="Set of codes for type of loan category for a returned item if the item is"
^DD(660.2,12,21,2,0)="to be placed on the Loan Program."
^DD(660.2,12,"DT")="2921222"
^DD(660.2,13,0)="RETURNED STATUS^S^1:RETURNED;2:CONDEMNED;3:TURNED-IN;4:LOST;5:BROKEN;^0;14^Q"
^DD(660.2,13,3)="Enter the returned status code"
^DD(660.2,13,21,0)="^^2^2^2920910^^^"
^DD(660.2,13,21,1,0)="This field stores the returned status code for items turned-in by"
^DD(660.2,13,21,2,0)="the patient."
^DD(660.2,13,"DT")="2930603"
^DD(660.2,14,0)="STATION^P4'^DIC(4,^0;15^Q"
^DD(660.2,14,3)="Enter the Station number for this loan transaction."
^DD(660.2,14,21,0)="^^1^1^2921008^"
^DD(660.2,14,21,1,0)="This field stores the station number of the loan transaction."
^DD(660.2,14,"DT")="2920929"
^DD(660.2,19,0)="ITEM STATUS^RS^N:NEW ITEM;R:RECOVERED ITEM;^0;17^Q"
^DD(660.2,19,3)="Enter 'N' for NEW ITEMS or 'R' for 'RECOVERED' ITEMS"
^DD(660.2,19,21,0)="^^1^1^2930104^"
^DD(660.2,19,21,1,0)="Indicates if item a new item or a recovered item."
^DD(660.2,19,"DT")="2921103"
^DD(660.2,20,0)="OBLIGATION NUMBER^F^^0;18^K:$L(X)>20!($L(X)<1) X"
^DD(660.2,20,3)="Answer must be 1-20 characters in length."
^DD(660.2,20,21,0)="^^2^2^2930104^"
^DD(660.2,20,21,1,0)="Obligation number of item that has been purchased on a 1358 and loaned"
^DD(660.2,20,21,2,0)="to the veteran."
^DD(660.2,20,"DT")="2921103"
^DD(660.2,21,0)="RE-ISSUE STATUS^RS^A:AVAILABEL FOR RE-ISSUE;N:NOT AVAILABLE FOR RE-ISSUE;^0;19^Q"
^DD(660.2,21,3)="Enter 'A' for AVAILABLE FOR RE-ISSUE, or 'N' for NOT AVAILABLE FOR RE-ISSUE"
^DD(660.2,21,21,0)="^^2^2^2930104^"
^DD(660.2,21,21,1,0)="Indicates if item is available for re-issue or not- available for re-issue"
^DD(660.2,21,21,2,0)="when it has been returned."
^DD(660.2,21,"DT")="2921217"
^DD(660.2,23,0)="AUTO-ADAPTIVE ITEM^P667.1'^RMPR(667.1,^0;21^Q"
^DD(660.2,23,3)="Enter the Name of the Auto-Adaptive Equipment Item."
^DD(660.2,23,21,0)="^^1^1^2921112^"
^DD(660.2,23,21,1,0)="Pointer to the Auto-Adaptive Equipment file #667.1"
^DD(660.2,23,"DT")="2921112"
^DD(660.2,24,0)="AUTO-ADAPTIVE TRANSACTION^P667.3'^RMPR(667.3,^0;22^Q"
^DD(660.2,24,1,0)="^.1"
^DD(660.2,24,1,1,0)="660.2^AC"
^DD(660.2,24,1,1,1)="S ^RMPR(660.2,""AC"",$E(X,1,30),DA)="""""
^DD(660.2,24,1,1,2)="K ^RMPR(660.2,""AC"",$E(X,1,30),DA)"
^DD(660.2,24,1,1,"%D",0)="^^2^2^2921227^"
^DD(660.2,24,1,1,"%D",1,0)="This x-ref is used to look-up Auto Adaptive equipment that is already on"
^DD(660.2,24,1,1,"%D",2,0)="loan."
^DD(660.2,24,1,1,"DT")="2921227"
^DD(660.2,24,3)="Enter the Auto-Adaptive Transaction date."
^DD(660.2,24,21,0)="^^1^1^2921112^"
^DD(660.2,24,21,1,0)="Pointer to Auto-Adaptive transaction file for loaned items."
^DD(660.2,24,"DT")="2921227"
^DD(660.2,"B","APPLIANCE REPAIR",11.5)=""
^DD(660.2,"B","AUTO-ADAPTIVE ITEM",23)=""
^DD(660.2,"B","AUTO-ADAPTIVE TRANSACTION",24)=""
^DD(660.2,"B","COST",4)=""
^DD(660.2,"B","DATE",.01)=""
^DD(660.2,"B","DATE OF LOAN",.05)=""
^DD(660.2,"B","DATE OF RETURN",10)=""
^DD(660.2,"B","INVENTORY POINT",11)=""
^DD(660.2,"B","ITEM",2)=""
^DD(660.2,"B","ITEM STATUS",19)=""
^DD(660.2,"B","LOAN CATEGORY",12)=""
^DD(660.2,"B","OBLIGATION NUMBER",20)=""
^DD(660.2,"B","PATIENT",1)=""
^DD(660.2,"B","RE-ISSUE STATUS",21)=""
^DD(660.2,"B","RETURNED STATUS",13)=""
^DD(660.2,"B","SERIAL NUMBER",5)=""
^DD(660.2,"B","STATION",14)=""
^DD(660.2,"GL",0,1,.01)=""
^DD(660.2,"GL",0,2,1)=""
^DD(660.2,"GL",0,3,2)=""
^DD(660.2,"GL",0,5,4)=""
^DD(660.2,"GL",0,6,5)=""
^DD(660.2,"GL",0,10,.05)=""
^DD(660.2,"GL",0,11,10)=""
^DD(660.2,"GL",0,12,11)=""
^DD(660.2,"GL",0,13,12)=""
^DD(660.2,"GL",0,14,13)=""
^DD(660.2,"GL",0,15,14)=""
^DD(660.2,"GL",0,16,11.5)=""
^DD(660.2,"GL",0,17,19)=""
^DD(660.2,"GL",0,18,20)=""
^DD(660.2,"GL",0,19,21)=""
^DD(660.2,"GL",0,21,23)=""
^DD(660.2,"GL",0,22,24)=""
^DD(660.2,"IX",.01)=""
^DD(660.2,"IX",5)=""
^DD(660.2,"IX",11.5)=""
^DD(660.2,"IX",24)=""
^DD(660.2,"RQ",.01)=""
^DD(660.2,"RQ",1)=""
^DD(660.2,"RQ",5)=""
^DD(660.2,"RQ",10)=""
^DD(660.2,"RQ",19)=""
^DD(660.2,"RQ",21)=""
^DD(661,0)="FIELD^^6^7"
^DD(661,0,"DDA")="N"
^DD(661,0,"DT")="2931220"
^DD(661,0,"ID",.01)="W ""  """
^DD(661,0,"IX","B",661,.01)=""
^DD(661,0,"NM","PROS ITEM MASTER")=""
^DD(661,0,"PT",660,4)=""
^DD(661,0,"PT",660.1,2)=""
^DD(661,0,"PT",660.2,2)=""
^DD(661,0,"PT",661.11,7)=""
^DD(661,0,"PT",664.02,.01)=""
^DD(661,0,"PT",664.16,.01)=""
^DD(661,0,"PT",664.22,.01)=""
^DD(661,0,"PT",665.012,1)=""
^DD(661,0,"PT",665.194,.01)=""
^DD(661,0,"PT",665.723191,.01)=""
^DD(661,0,"VR")="3.0"
^DD(661,.01,0)="NAME^RP441'O^PRC(441,^0;1^Q"
^DD(661,.01,1,0)="^.1"
^DD(661,.01,1,1,0)="661^B"
^DD(661,.01,1,1,1)="S ^RMPR(661,""B"",$E(X,1,30),DA)="""""
^DD(661,.01,1,1,2)="K ^RMPR(661,""B"",$E(X,1,30),DA)"
^DD(661,.01,2)="S Y(0)=Y X ^DD(661,.01,2,9.2) S X=$P(Y(201),U,2) S D0=I(0,0) S Y=X"
^DD(661,.01,2,9.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^PRC(441,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""")"
^DD(661,.01,2.1)="NAME:NAME:SHORT DESCRIPTION"
^DD(661,.01,3)="Please Enter the Item from the Item Master File."
^DD(661,.01,21,0)="^^1^1^2910915^^"
^DD(661,.01,21,1,0)="This is the IFCAP Item Master Number."
^DD(661,.01,"DEL",.01,0)="I 1 W ""  CANNOT DELETE ENTRY."""
^DD(661,.01,"DT")="2930702"
^DD(661,1,0)="AMIS ADMIN NEW CODE^R*P663'^RMPR(663,^0;3^S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(661,1,3)="Enter the AMIS Code associated with all new issues."
^DD(661,1,12)="SELECT ONLY AMIS ADMIN NEW CODES"
^DD(661,1,12.1)="S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""A"""""""
^DD(661,1,21,0)="^^2^2^2950417^^^^"
^DD(661,1,21,1,0)="Enter the AMIS code to be reported on New Items.  This should always"
^DD(661,1,21,2,0)="be numeric."
^DD(661,1,"DT")="2931220"
^DD(661,2,0)="AMIS ADMIN REPAIR CODE^*P663'^RMPR(663,^0;4^S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""AR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(661,2,3)="Enter the AMIS Code associated with items to be repaired."
^DD(661,2,12)="Enter a code that begins with an 'R'"
^DD(661,2,12.1)="S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""AR"""""""
^DD(661,2,21,0)="^^2^2^2950417^^^"
^DD(661,2,21,1,0)="Enter the AMIS code to be reported on Repair Items.  This should always"
^DD(661,2,21,2,0)="start with an ""R."""
^DD(661,2,"DT")="2931220"
^DD(661,3,0)="AMIS ORTHOTIC NEW CODE^*P663'^RMPR(663,^0;5^S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""O"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(661,3,3)="Enter the AMIS Orthotic New Code"
^DD(661,3,12)="SCREEN FOR ORTHOTICS AMIS NEW CODE"
^DD(661,3,12.1)="S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""O"""""""
^DD(661,3,21,0)="^^1^1^2911205^"
^DD(661,3,21,1,0)="This field holds the Orthotics Lab AMIS code."
^DD(661,3,"DT")="2931220"
^DD(661,4,0)="AMIS ORTHOTICS REPAIR CODE^*P663'^RMPR(663,^0;6^S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""OR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(661,4,3)="Enter in the AMIS Code for Items for Restorations Lab."
^DD(661,4,12)="SELECT ONLY AMIS ORTHOTICS REPAIR CODES"
^DD(661,4,12.1)="S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""OR"""""""
^DD(661,4,21,0)="^^1^1^2950417^^"
^DD(661,4,21,1,0)="This field holds the Restoration Lab AMIS code."
^DD(661,4,"DT")="2931220"
^DD(661,5,0)="AMIS RESTORATION NEW CODE^*P663'^RMPR(663,^0;7^S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(661,5,.1)="SHOE AMIS CODE"
^DD(661,5,1,0)="^.1^^0"
^DD(661,5,3)="Enter the AMIS code associated with Shoe Lab for this item."
^DD(661,5,12)="ONLY SELECT AMIS RESTORATIONS CODES"
^DD(661,5,12.1)="S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""R"""""""
^DD(661,5,21,0)="^^1^1^2911205^"
^DD(661,5,21,1,0)="This field holds the Shoe Lab AMIS code."
^DD(661,5,"DT")="2931220"
^DD(661,6,0)="AMIS RESTORATIONS REPAIR CODE^*P663'^RMPR(663,^0;8^S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""RR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(661,6,3)="Enter the AMIS code associated with the Restorations Lab for this item."
^DD(661,6,12)="SELECT ONLY AMIS RESTORATION REPAIR CODE"
^DD(661,6,12.1)="S DIC(""S"")=""I $P(^RMPR(663,+Y,0),U,4)=""""RR"""""""
^DD(661,6,21,0)="^^1^1^2950417^^"
^DD(661,6,21,1,0)="This field hold the AMIS Restorations Repair Code."
^DD(661,6,"DT")="2931220"
^DD(661,"B","AMIS ADMIN NEW CODE",1)=""
^DD(661,"B","AMIS ADMIN REPAIR CODE",2)=""
^DD(661,"B","AMIS ORTHOTIC NEW CODE",3)=""
^DD(661,"B","AMIS ORTHOTICS REPAIR CODE",4)=""
^DD(661,"B","AMIS RESTORATION NEW CODE",5)=""
^DD(661,"B","AMIS RESTORATIONS REPAIR CODE",6)=""
^DD(661,"B","NAME",.01)=""
^DD(661,"B","SHOE AMIS CODE",5)="1"
^DD(661,"GL",0,1,.01)=""
^DD(661,"GL",0,3,1)=""
^DD(661,"GL",0,4,2)=""
^DD(661,"GL",0,5,3)=""
^DD(661,"GL",0,6,4)=""
^DD(661,"GL",0,7,5)=""
^DD(661,"GL",0,8,6)=""
^DD(661,"IX",.01)=""
^DD(661,"RQ",.01)=""
^DD(661,"RQ",1)=""
^DD(661.1,0)="FIELD^^30^18"
^DD(661.1,0,"DDA")="N"
^DD(661.1,0,"DT")="2981027"
^DD(661.1,0,"ID",.02)="W "" "",$P(^(0),U,2) I '$P(^(0),U,5) W $C(7),""  ** inactive HCPCS ** "" W:$P(^(0),U,3)'="""" "", use HCPCS: ""_$P(^RMPR(661.1,$P($G(^(0)),U,3),0),U,1)"
^DD(661.1,0,"IX","AC",661.1,6)=""
^DD(661.1,0,"IX","B",661.1,.01)=""
^DD(661.1,0,"IX","C",661.1,.02)=""
^DD(661.1,0,"IX","D",661.14,.01)=""
^DD(661.1,0,"IX","F",661.18,.01)=""
^DD(661.1,0,"NM","PROSTHETIC HCPCS")=""
^DD(661.1,0,"PT",351.67,.01)=""
^DD(661.1,0,"PT",660,4.5)=""
^DD(661.1,0,"PT",660,102)=""
^DD(661.1,0,"PT",661.1,1)=""
^DD(661.1,0,"PT",661.2,3)=""
^DD(661.1,0,"PT",661.31,.01)=""
^DD(661.1,0,"PT",661.8,4)=""
^DD(661.1,0,"PT",664.02,16)=""
^DD(661.1,0,"PT",664.16,13)=""
^DD(661.1,0,"PT",665.194,6)=""
^DD(661.1,0,"PT",665.723191,2)=""
^DD(661.1,0,"VR")="3.0"
^DD(661.1,0,"VRPK")="RMPR"
^DD(661.1,.01,0)="HCPCS^RFIO^^0;1^K:$L(X)>20!($L(X)<5) X"
^DD(661.1,.01,1,0)="^.1"
^DD(661.1,.01,1,1,0)="661.1^B"
^DD(661.1,.01,1,1,1)="S ^RMPR(661.1,""B"",$E(X,1,30),DA)="""""
^DD(661.1,.01,1,1,2)="K ^RMPR(661.1,""B"",$E(X,1,30),DA)"
^DD(661.1,.01,1,1,"DT")="2980106"
^DD(661.1,.01,3)="Answer must be 5-20 characters in length."
^DD(661.1,.01,7.5)="D LKPHCPC^RMPRUTL"
^DD(661.1,.01,21,0)="^.001^1^1^3050908^^^^"
^DD(661.1,.01,21,1,0)="This is a unique Prosthetics HCPCS code that corresponds to the CPT code."
^DD(661.1,.01,"DEL",.01,0)="I 1 W "" CANNOT DELETE."""
^DD(661.1,.01,"DT")="3050908"
^DD(661.1,.02,0)="SHORT NAME^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(661.1,.02,1,0)="^.1"
^DD(661.1,.02,1,1,0)="661.1^C"
^DD(661.1,.02,1,1,1)="S ^RMPR(661.1,""C"",$E(X,1,30),DA)="""""
^DD(661.1,.02,1,1,2)="K ^RMPR(661.1,""C"",$E(X,1,30),DA)"
^DD(661.1,.02,1,1,"DT")="2980115"
^DD(661.1,.02,3)="Answer must be 3-30 characters in length."
^DD(661.1,.02,21,0)="^^1^1^2980313^"
^DD(661.1,.02,21,1,0)="A short description for the Prosthetics HCPCS code as in CPT file #81."
^DD(661.1,.02,"DT")="2980310"
^DD(661.1,.03,0)="CPT MODIFIER^F^^4;1^K:$L(X)>36!($L(X)<2) X"
^DD(661.1,.03,3)="Answer must be 2-36 characters in length."
^DD(661.1,.03,21,0)="^^2^2^2991222^"
^DD(661.1,.03,21,1,0)="List of CPT modifier authorized, consistent with the HCFA standard to be used under"
^DD(661.1,.03,21,2,0)="this HCPCS."
^DD(661.1,.03,"DT")="2991215"
^DD(661.1,.04,0)="NON-BILLABLE FLAG^S^1:YES;0:NO;^4;2^Q"
^DD(661.1,.04,21,0)="^.001^3^3^3000606^^"
^DD(661.1,.04,21,1,0)="This field flags a HCPCS to be non-billable."
^DD(661.1,.04,21,2,0)="This will be used in the future for billing purposes."
^DD(661.1,.04,21,3,0)="Currently this field is not used."
^DD(661.1,.04,"DT")="3000601"
^DD(661.1,1,0)="NEW HCPC CODE^P661.1'X^RMPR(661.1,^0;3^Q"
^DD(661.1,1,3)="Enter Prosthetics HCPCS."
^DD(661.1,1,21,0)="^^2^2^2980313^"
^DD(661.1,1,21,1,0)="A new HCPCS code to be used once a HCPCS has been deactivated by"
^DD(661.1,1,21,2,0)="Prosthetics Data Validation Group."
^DD(661.1,1,"DT")="2980302"
^DD(661.1,1.1,0)="DATE/TIME LAST UPDATE^D^^0;11^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(661.1,1.1,21,0)="^.001^1^1^3050119^^"
^DD(661.1,1.1,21,1,0)="This is the date and time the record was last updated."
^DD(661.1,1.1,"DT")="3050114"
^DD(661.1,1.2,0)="LAST UPDATE^F^^0;12^K:$L(X)>60!($L(X)<3) X"
^DD(661.1,1.2,3)="Answer must be 3-60 characters in length."
^DD(661.1,1.2,21,0)="^.001^1^1^3050119^^^^"
^DD(661.1,1.2,21,1,0)="This is the identifier associated with the last update. "
^DD(661.1,1.2,23,0)="^^2^2^3050119^"
^DD(661.1,1.2,23,1,0)="The Identifier is the value in XMFROM.  A free text string identifying the"
^DD(661.1,1.2,23,2,0)="process that triggered the server update, to be used as an audit log."
^DD(661.1,1.2,"DT")="3050119"
^DD(661.1,2,0)="CPT^P81'^ICPT(^0;4^Q"
^DD(661.1,2,1,0)="^.1^^0"
^DD(661.1,2,3)="Enter CPT code."
^DD(661.1,2,21,0)="^^1^1^2980313^"
^DD(661.1,2,21,1,0)="A pointer to cpt file (#81)."
^DD(661.1,2,"DT")="3040524"
^DD(661.1,3,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;5^Q"
^DD(661.1,3,3)="Enter HCPCS status; '1' for active and '0' for inactive"
^DD(661.1,3,21,0)="^^1^1^2980313^"
^DD(661.1,3,21,1,0)="Set an entry active or inactive."
^DD(661.1,3,"DT")="2980630"
^DD(661.1,4,0)="SYNONYM^661.14^^1;0"
^DD(661.1,4,21,0)="^^2^2^2980313^"
^DD(661.1,4,21,1,0)="Allows local sites to set synonyms"
^DD(661.1,4,21,2,0)="or local name widely used by local users."
^DD(661.1,5,0)="NPPD REPAIR CODE^F^^0;6^K:$L(X)>6!($L(X)<2) X"
^DD(661.1,5,3)="Answer must be 2-6 characters in length."
^DD(661.1,5,21,0)="^^1^1^2980313^"
^DD(661.1,5,21,1,0)="Repair code for NPPD."
^DD(661.1,5,"DT")="2980710"
^DD(661.1,6,0)="NPPD NEW CODE^F^^0;7^K:$L(X)>6!($L(X)<2) X"
^DD(661.1,6,1,0)="^.1"
^DD(661.1,6,1,1,0)="661.1^AC^MUMPS"
^DD(661.1,6,1,1,1)="S ^RMPR(661.1,""AC"",$E(X,1,6),$E(X,1,6))="""""
^DD(661.1,6,1,1,2)="K ^RMPR(661.1,""AC"",$E(X,1,6),DA)"
^DD(661.1,6,1,1,"DT")="2980902"
^DD(661.1,6,3)="Answer must be 2-6 characters in length."
^DD(661.1,6,21,0)="^^1^1^2980313^"
^DD(661.1,6,21,1,0)="New code for NPPD."
^DD(661.1,6,"DT")="2980902"
^DD(661.1,8,0)="DESCRIPTION^661.18^^2;0"
^DD(661.1,8,21,0)="^^1^1^2980313^"
^DD(661.1,8,21,1,0)="A long description for the Prosthetics HCPCS code."
^DD(661.1,9,0)="CALCULATION FLAG^F^^0;8^K:$L(X)>3!($L(X)<1) X"
^DD(661.1,9,3)="Answer must be 1-3 characters in length."
^DD(661.1,9,21,0)="^^1^1^2980528^^"
^DD(661.1,9,21,1,0)="To be used to associate like items on one HCPCS."
^DD(661.1,9,"DT")="2980528"
^DD(661.1,10,0)="INVENTORY FLAG^S^1:YES;0:NO;^0;9^Q"
^DD(661.1,10,21,0)="^^1^1^2980615^"
^DD(661.1,10,21,1,0)="Signifies if it's an inventory item."
^DD(661.1,10,"DT")="2980615"
^DD(661.1,11,0)="PRE-DETERMINED LAB TIME^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.1,11,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(661.1,11,21,0)="^^1^1^2980805^^"
^DD(661.1,11,21,1,0)="Number of minutes to fit an item to a veteran."
^DD(661.1,11,"DT")="2980805"
^DD(661.1,20,0)="ITEM^661.12^^3;0"
^DD(661.1,20,21,0)="^^1^1^2981014^"
^DD(661.1,20,21,1,0)="This is an Item multiple."
^DD(661.1,30,0)="RENTAL FLAG^S^1:YES;0:NO;^5;1^Q"
^DD(661.1,30,21,0)="^^3^3^2991222^"
^DD(661.1,30,21,1,0)="This is a flag use by sites to designate an item issued under a particular"
^DD(661.1,30,21,2,0)="HCPCS to have a possible Rental (RR modifier).  If this field is set to"
^DD(661.1,30,21,3,0)="'YES', user will be asked if the item issued is a RENTAL."
^DD(661.1,30,"DT")="2991222"
^DD(661.1,"B","CALCULATION FLAG",9)=""
^DD(661.1,"B","CPT",2)=""
^DD(661.1,"B","CPT MODIFIER",.03)=""
^DD(661.1,"B","DATE/TIME LAST UPDATE",1.1)=""
^DD(661.1,"B","DESCRIPTION",8)=""
^DD(661.1,"B","HCPCS",.01)=""
^DD(661.1,"B","INVENTORY FLAG",10)=""
^DD(661.1,"B","ITEM",20)=""
^DD(661.1,"B","LAST UPDATE",1.2)=""
^DD(661.1,"B","NEW HCPC CODE",1)=""
^DD(661.1,"B","NON-BILLABLE FLAG",.04)=""
^DD(661.1,"B","NPPD NEW CODE",6)=""
^DD(661.1,"B","NPPD REPAIR CODE",5)=""
^DD(661.1,"B","PRE-DETERMINED LAB TIME",11)=""
^DD(661.1,"B","RENTAL FLAG",30)=""
^DD(661.1,"B","SHORT NAME",.02)=""
^DD(661.1,"B","STATUS",3)=""
^DD(661.1,"B","SYNONYM",4)=""
^DD(661.1,"GL",0,1,.01)=""
^DD(661.1,"GL",0,2,.02)=""
^DD(661.1,"GL",0,3,1)=""
^DD(661.1,"GL",0,4,2)=""
^DD(661.1,"GL",0,5,3)=""
^DD(661.1,"GL",0,6,5)=""
^DD(661.1,"GL",0,7,6)=""
^DD(661.1,"GL",0,8,9)=""
^DD(661.1,"GL",0,9,10)=""
^DD(661.1,"GL",0,10,11)=""
^DD(661.1,"GL",0,11,1.1)=""
^DD(661.1,"GL",0,12,1.2)=""
^DD(661.1,"GL",1,0,4)=""
^DD(661.1,"GL",2,0,8)=""
^DD(661.1,"GL",3,0,20)=""
^DD(661.1,"GL",4,1,.03)=""
^DD(661.1,"GL",4,2,.04)=""
^DD(661.1,"GL",5,1,30)=""
^DD(661.1,"IX",.01)=""
^DD(661.1,"IX",.02)=""
^DD(661.1,"IX",6)=""
^DD(661.1,"RQ",.01)=""
^DD(661.1,"SB",661.12,20)=""
^DD(661.1,"SB",661.14,4)=""
^DD(661.1,"SB",661.18,8)=""
^DD(661.11,0)="FIELD^^9^10"
^DD(661.11,0,"DDA")="N"
^DD(661.11,0,"DT")="3021211"
^DD(661.11,0,"IX","B",661.11,.01)=""
^DD(661.11,0,"IX","C",661.11,6)=""
^DD(661.11,0,"IX","D",661.11,2)=""
^DD(661.11,0,"NM","PROSTHETICS HCPCS ITEM MASTER FILE")=""
^DD(661.11,0,"VR")="3.0"
^DD(661.11,0,"VRPK")="RMPR"
^DD(661.11,.01,0)="HCPCS^RF^^0;1^K:$L(X)>20!($L(X)<5)!'(X'?1P.E) X"
^DD(661.11,.01,1,0)="^.1"
^DD(661.11,.01,1,1,0)="661.11^B"
^DD(661.11,.01,1,1,1)="S ^RMPR(661.11,""B"",$E(X,1,30),DA)="""""
^DD(661.11,.01,1,1,2)="K ^RMPR(661.11,""B"",$E(X,1,30),DA)"
^DD(661.11,.01,3)="Answer must be 5-20 characters in length."
^DD(661.11,.01,7.5)="D LKP^RMPRPIYI"
^DD(661.11,.01,21,0)="^.001^1^1^3050908^^"
^DD(661.11,.01,21,1,0)="This is the HCPCS name as it shows in file #661.1."
^DD(661.11,.01,"DT")="3050908"
^DD(661.11,1,0)="HCPCS ITEM^RNJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(661.11,1,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(661.11,1,21,0)="^.001^1^1^3010215^^"
^DD(661.11,1,21,1,0)="This is the item number for a HCPCS item."
^DD(661.11,1,"DT")="3010815"
^DD(661.11,2,0)="DESCRIPTION^F^^0;3^K:$L(X)>60!($L(X)<1) X"
^DD(661.11,2,1,0)="^.1"
^DD(661.11,2,1,1,0)="661.11^D"
^DD(661.11,2,1,1,1)="S ^RMPR(661.11,""D"",$E(X,1,30),DA)="""""
^DD(661.11,2,1,1,2)="K ^RMPR(661.11,""D"",$E(X,1,30),DA)"
^DD(661.11,2,1,1,"DT")="3010411"
^DD(661.11,2,3)="Answer must be 1-60 characters in length."
^DD(661.11,2,21,0)="^.001^1^1^3010809^^"
^DD(661.11,2,21,1,0)="This is the description of an item."
^DD(661.11,2,"DT")="3010815"
^DD(661.11,3,0)="STATION^P4^DIC(4,^0;4^Q"
^DD(661.11,3,"DT")="3010815"
^DD(661.11,4,0)="SOURCE^S^V:VA;C:COMMERCIAL;^0;5^Q"
^DD(661.11,4,21,0)="^^5^5^3010815^"
^DD(661.11,4,21,1,0)="This is the source of an item:"
^DD(661.11,4,21,2,0)="'V' stands for VA or USED items and"
^DD(661.11,4,21,3,0)="'C' for COMMERCIAL or NEW items."
^DD(661.11,4,21,4,0)="NEW and USED items are tracked seperately so that seperate"
^DD(661.11,4,21,5,0)="inventory records should be maintained for each source.  "
^DD(661.11,4,"DT")="3010815"
^DD(661.11,5,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;6^Q"
^DD(661.11,5,21,0)="^^1^1^3010605^"
^DD(661.11,5,21,1,0)="This field is a pointer to Unit of Issue file (#420.5)."
^DD(661.11,5,"DT")="3010605"
^DD(661.11,6,0)="PSAS ITEM^RF^^0;7^K:$L(X)>12!($L(X)<7) X"
^DD(661.11,6,1,0)="^.1"
^DD(661.11,6,1,1,0)="661.11^C"
^DD(661.11,6,1,1,1)="S ^RMPR(661.11,""C"",$E(X,1,30),DA)="""""
^DD(661.11,6,1,1,2)="K ^RMPR(661.11,""C"",$E(X,1,30),DA)"
^DD(661.11,6,1,1,"DT")="3010411"
^DD(661.11,6,3)="Answer must be 7-12 characters in length."
^DD(661.11,6,21,0)="^^3^3^3010605^"
^DD(661.11,6,21,1,0)="PSAS Items are items used by PROSTHETICS SENSORY and AIDS"
^DD(661.11,6,21,2,0)="SERVICE (PSAS) and are based from the HCPCS concatenated with the HCPCS"
^DD(661.11,6,21,3,0)="ITEM NUMBER."
^DD(661.11,6,"DT")="3010815"
^DD(661.11,7,0)="ITEM MASTER^P661'^RMPR(661,^0;8^Q"
^DD(661.11,7,21,0)="^^1^1^3010809^"
^DD(661.11,7,21,1,0)="POINTER TO 661"
^DD(661.11,7,"DT")="3010815"
^DD(661.11,8,0)="STATUS^S^0:ACTIVE;1:INACTIVE;^0;9^Q"
^DD(661.11,8,21,0)="^^4^4^3021211^"
^DD(661.11,8,21,1,0)="This field represent if an ITEM is ACTIVE OR INACTIVE.  If the STATUS is "
^DD(661.11,8,21,2,0)="INACTIVE, an Item will not be printed in PROSTHETICS INVENTORY BALANCE BY "
^DD(661.11,8,21,3,0)="HCPCS and PROSTHETICS INVENTORY BALANCE BY LOCATION reports for the"
^DD(661.11,8,21,4,0)="station selected."
^DD(661.11,8,"DT")="3021211"
^DD(661.11,9,0)="INACTIVATION DATE^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(661.11,9,21,0)="^^1^1^3021211^"
^DD(661.11,9,21,1,0)="This is the Date the item is put INACTIVE status."
^DD(661.11,9,"DT")="3021211"
^DD(661.11,"B","DESCRIPTION",2)=""
^DD(661.11,"B","HCPCS",.01)=""
^DD(661.11,"B","HCPCS ITEM",1)=""
^DD(661.11,"B","INACTIVATION DATE",9)=""
^DD(661.11,"B","ITEM MASTER",7)=""
^DD(661.11,"B","PSAS ITEM",6)=""
^DD(661.11,"B","SOURCE",4)=""
^DD(661.11,"B","STATION",3)=""
^DD(661.11,"B","STATUS",8)=""
^DD(661.11,"B","UNIT OF ISSUE",5)=""
^DD(661.11,"GL",0,1,.01)=""
^DD(661.11,"GL",0,2,1)=""
^DD(661.11,"GL",0,3,2)=""
^DD(661.11,"GL",0,4,3)=""
^DD(661.11,"GL",0,5,4)=""
^DD(661.11,"GL",0,6,5)=""
^DD(661.11,"GL",0,7,6)=""
^DD(661.11,"GL",0,8,7)=""
^DD(661.11,"GL",0,9,8)=""
^DD(661.11,"GL",0,10,9)=""
^DD(661.11,"IX",.01)=""
^DD(661.11,"IX",2)=""
^DD(661.11,"IX",6)=""
^DD(661.11,"RQ",.01)=""
^DD(661.11,"RQ",1)=""
^DD(661.11,"RQ",6)=""
^DD(661.12,0)="ITEM SUB-FIELD^^.01^1"
^DD(661.12,0,"DT")="2981027"
^DD(661.12,0,"IX","B",661.12,.01)=""
^DD(661.12,0,"NM","ITEM")=""
^DD(661.12,0,"UP")="661.1"
^DD(661.12,.01,0)="ITEM^RFX^^0;1^K:$L(X)>50!($L(X)<3) X Q:'$D(X)  D CONV^RMPR5NU1"
^DD(661.12,.01,1,0)="^.1"
^DD(661.12,.01,1,1,0)="661.12^B"
^DD(661.12,.01,1,1,1)="S ^RMPR(661.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(661.12,.01,1,1,2)="K ^RMPR(661.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(661.12,.01,3)="Answer must be 3-50 characters in length."
^DD(661.12,.01,21,0)="^^2^2^2981027^^^"
^DD(661.12,.01,21,1,0)="This is an Item or Appliance under PSAS HCPCS kept by local site in"
^DD(661.12,.01,21,2,0)="Prosthetics Inventory module."
^DD(661.12,.01,"DEL",1,0)="I DUZ(0)'=""@"""
^DD(661.12,.01,"DT")="2990114"
^DD(661.12,"B","ITEM",.01)=""
^DD(661.12,"GL",0,1,.01)=""
^DD(661.12,"IX",.01)=""
^DD(661.12,"RQ",.01)=""
^DD(661.14,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(661.14,0,"DT")="2980115"
^DD(661.14,0,"IX","B",661.14,.01)=""
^DD(661.14,0,"NM","SYNONYM")=""
^DD(661.14,0,"UP")="661.1"
^DD(661.14,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(661.14,.01,1,0)="^.1"
^DD(661.14,.01,1,1,0)="661.14^B"
^DD(661.14,.01,1,1,1)="S ^RMPR(661.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(661.14,.01,1,1,2)="K ^RMPR(661.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(661.14,.01,1,2,0)="661.1^D^MUMPS"
^DD(661.14,.01,1,2,1)="S ^RMPR(661.1,""D"",$E(X,1,20),DA(1))="""""
^DD(661.14,.01,1,2,2)="K ^RMPR(661.1,""D"",$E(X,1,20),DA(1))"
^DD(661.14,.01,1,2,"DT")="2980115"
^DD(661.14,.01,3)="Answer must be 3-30 characters in length."
^DD(661.14,.01,"DT")="2980115"
^DD(661.14,"B","SYNONYM",.01)=""
^DD(661.14,"GL",0,1,.01)=""
^DD(661.14,"IX",.01)=""
^DD(661.18,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(661.18,0,"DT")="2980305"
^DD(661.18,0,"IX","B",661.18,.01)=""
^DD(661.18,0,"NM","DESCRIPTION")=""
^DD(661.18,0,"UP")="661.1"
^DD(661.18,.01,0)="DESCRIPTION^MFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1) X"
^DD(661.18,.01,1,0)="^.1"
^DD(661.18,.01,1,1,0)="661.18^B"
^DD(661.18,.01,1,1,1)="S ^RMPR(661.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(661.18,.01,1,1,2)="K ^RMPR(661.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(661.18,.01,1,2,0)="661.1^F^MUMPS"
^DD(661.18,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890""""""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(661.18,.01,9.9)'[I S ^RMPR(661.1,""F"",I,DA(1),DA)="""""
^DD(661.18,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""!@#$%&*() -+={}[]~`:;,./<>?\|'1234567890""""""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^RMPR(661.1,""F"",I,DA(1),DA)"
^DD(661.18,.01,1,2,"DT")="2980305"
^DD(661.18,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(661.18,.01,9.9)="^AND^THE^THEN^FOR^FROM^OTHER^THAN^WITH^THEIR^SOME^THIS^INCLUDING^ALL^OTHERWISE^SPECIFIED^ANY^NOT^ONLY^EACH^MORE^ONE^TWO^LESS^PROCEDURES^WITHOUT^TYPE^AREA^EXCEPT^INVOLVING^SAME^PER^DAYS^BUT^ALA^III^EXCEPT^NUMBERS^UNLESS^"
^DD(661.18,.01,"DT")="2980713"
^DD(661.18,"B","DESCRIPTION",.01)=""
^DD(661.18,"GL",0,1,.01)=""
^DD(661.18,"IX",.01)=""
^DD(661.2,0)="FIELD^^21^19"
^DD(661.2,0,"DDA")="N"
^DD(661.2,0,"DT")="2980902"
^DD(661.2,0,"IX","B",661.2,.01)=""
^DD(661.2,0,"IX","C",661.2,1)=""
^DD(661.2,0,"IX","D",661.2,3)=""
^DD(661.2,0,"IX","E",661.2,16)=""
^DD(661.2,0,"IX","F",661.2,7)=""
^DD(661.2,0,"IX","G",661.2,17)=""
^DD(661.2,0,"NM","PROS STOCK ITEM RECORD")=""
^DD(661.2,0,"PT",661.63,3)=""
^DD(661.2,0,"VR")="3.0"
^DD(661.2,0,"VRPK")="RMPR"
^DD(661.2,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(661.2,.01,1,0)="^.1"
^DD(661.2,.01,1,1,0)="661.2^B"
^DD(661.2,.01,1,1,1)="S ^RMPR(661.2,""B"",$E(X,1,30),DA)="""""
^DD(661.2,.01,1,1,2)="K ^RMPR(661.2,""B"",$E(X,1,30),DA)"
^DD(661.2,.01,3)=""
^DD(661.2,.01,21,0)="^^1^1^2980908^"
^DD(661.2,.01,21,1,0)="This is the date when an item issued to a Patient or Veteran."
^DD(661.2,.01,"DT")="2980209"
^DD(661.2,1,0)="PATIENT^P665'^RMPR(665,^0;2^Q"
^DD(661.2,1,1,0)="^.1"
^DD(661.2,1,1,1,0)="661.2^C"
^DD(661.2,1,1,1,1)="S ^RMPR(661.2,""C"",$E(X,1,30),DA)="""""
^DD(661.2,1,1,1,2)="K ^RMPR(661.2,""C"",$E(X,1,30),DA)"
^DD(661.2,1,1,1,"DT")="2980209"
^DD(661.2,1,21,0)="^^2^2^2980908^"
^DD(661.2,1,21,1,0)="This is a patient or veteran whom an item issued to.  It is a pointer to"
^DD(661.2,1,21,2,0)="Prosthetics Patient file (#665)."
^DD(661.2,1,"DT")="2980210"
^DD(661.2,2,0)="SOURCE^S^V:VA;C:COMMERCIAL;^0;3^Q"
^DD(661.2,2,21,0)="^^1^1^2980902^^"
^DD(661.2,2,21,1,0)="This is a source of an item, either Va or Commercial."
^DD(661.2,2,"DT")="2980902"
^DD(661.2,2,"V",0)="^.12P"
^DD(661.2,3,0)="HCPCS^P661.1'^RMPR(661.1,^0;4^Q"
^DD(661.2,3,1,0)="^.1"
^DD(661.2,3,1,1,0)="661.2^D"
^DD(661.2,3,1,1,1)="S ^RMPR(661.2,""D"",$E(X,1,30),DA)="""""
^DD(661.2,3,1,1,2)="K ^RMPR(661.2,""D"",$E(X,1,30),DA)"
^DD(661.2,3,1,1,"DT")="2980814"
^DD(661.2,3,21,0)="^^1^1^2980902^^"
^DD(661.2,3,21,1,0)="Pointer to Prosthetics HCPCS file (#661.1)."
^DD(661.2,3,"DT")="2980814"
^DD(661.2,5,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;5^Q"
^DD(661.2,5,21,0)="^^1^1^2980923^"
^DD(661.2,5,21,1,0)="This is the unit used issuing an item or stock."
^DD(661.2,5,"DT")="2980819"
^DD(661.2,7,0)="USER^P200'^VA(200,^0;7^Q"
^DD(661.2,7,1,0)="^.1"
^DD(661.2,7,1,1,0)="661.2^F"
^DD(661.2,7,1,1,1)="S ^RMPR(661.2,""F"",$E(X,1,30),DA)="""""
^DD(661.2,7,1,1,2)="K ^RMPR(661.2,""F"",$E(X,1,30),DA)"
^DD(661.2,7,1,1,"DT")="2980325"
^DD(661.2,7,21,0)="^^1^1^2980902^^^"
^DD(661.2,7,21,1,0)="A user responsible of stock item issue."
^DD(661.2,7,"DT")="2980325"
^DD(661.2,8,0)="QTY^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.2,8,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(661.2,8,21,0)="^^1^1^2980902^"
^DD(661.2,8,21,1,0)="Quantity issue to a patient or veteran."
^DD(661.2,8,"DT")="2980209"
^DD(661.2,9,0)="HCPCS/ITEM^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(661.2,9,1,0)="^.1^^0"
^DD(661.2,9,3)="Answer must be 1-20 characters in length."
^DD(661.2,9,21,0)="^^2^2^2980902^^^"
^DD(661.2,9,21,1,0)="Enternal entry of an HCPCS concatenated to an enternal entry of an item in"
^DD(661.2,9,21,2,0)="file #661.1"
^DD(661.2,9,"DT")="2980814"
^DD(661.2,10,0)="QTY ORDERED^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.2,10,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(661.2,10,21,0)="^^1^1^2980902^^"
^DD(661.2,10,21,1,0)="Quantity of an item or stock being ordered."
^DD(661.2,10,"DT")="2980324"
^DD(661.2,11,0)="QTY RECEIVED^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.2,11,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(661.2,11,21,0)="^^1^1^2980902^^"
^DD(661.2,11,21,1,0)="Quantity of an item or stock received."
^DD(661.2,11,"DT")="2980324"
^DD(661.2,12,0)="CURRENT BALANCE^NJ5,0^^0;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.2,12,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(661.2,12,21,0)="^^1^1^2980902^^"
^DD(661.2,12,21,1,0)="This is the current balance of an item as of date."
^DD(661.2,12,"DT")="2980430"
^DD(661.2,13,0)="COMMENT^F^^0;13^K:$L(X)>60!($L(X)<2) X"
^DD(661.2,13,3)="Answer must be 2-60 characters in length."
^DD(661.2,13,21,0)="^^2^2^2980902^^^^"
^DD(661.2,13,21,1,0)="This is a free text field for user to enter any comments or"
^DD(661.2,13,21,2,0)="justifications."
^DD(661.2,13,"DT")="2980501"
^DD(661.2,14,0)="CURRENT TOTAL COST^NJ10,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(661.2,14,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(661.2,14,21,0)="^^1^1^2980902^^^"
^DD(661.2,14,21,1,0)="This is the current total cost of an item as of this date."
^DD(661.2,14,"DT")="2980501"
^DD(661.2,15,0)="SERIAL NUMBER^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(661.2,15,3)="Answer must be 3-20 characters in length."
^DD(661.2,15,21,0)="^^1^1^2980902^^^"
^DD(661.2,15,21,1,0)="This field comes from a serial # of an item during the stock issue option."
^DD(661.2,15,"DT")="2980821"
^DD(661.2,16,0)="STATION^P4'^DIC(4,^0;15^Q"
^DD(661.2,16,1,0)="^.1"
^DD(661.2,16,1,1,0)="661.2^E"
^DD(661.2,16,1,1,1)="S ^RMPR(661.2,""E"",$E(X,1,30),DA)="""""
^DD(661.2,16,1,1,2)="K ^RMPR(661.2,""E"",$E(X,1,30),DA)"
^DD(661.2,16,1,1,"DT")="2980826"
^DD(661.2,16,21,0)="^^1^1^2980826^"
^DD(661.2,16,21,1,0)="A station or site for an inventory workload or statistics."
^DD(661.2,16,"DT")="2980826"
^DD(661.2,17,0)="LOCATION^P661.3'^RMPR(661.3,^0;16^Q"
^DD(661.2,17,1,0)="^.1"
^DD(661.2,17,1,1,0)="661.2^G"
^DD(661.2,17,1,1,1)="S ^RMPR(661.2,""G"",$E(X,1,30),DA)="""""
^DD(661.2,17,1,1,2)="K ^RMPR(661.2,""G"",$E(X,1,30),DA)"
^DD(661.2,17,1,1,"DT")="2980826"
^DD(661.2,17,21,0)="^^1^1^2980902^^"
^DD(661.2,17,21,1,0)="A location of an item where a workload completed."
^DD(661.2,17,"DT")="2980826"
^DD(661.2,18,0)="AVERAGE COST^NJ9,2^^0;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(661.2,18,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(661.2,18,21,0)="^^1^1^2980902^^"
^DD(661.2,18,21,1,0)="This is the average cost of an ITEM based on COST and BALANCE ration."
^DD(661.2,18,"DT")="2980827"
^DD(661.2,20,0)="LAB HOUR^NJ7,2^^1;1^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(661.2,20,3)="Type a Number between 0 and 1000, 2 Decimal Digits"
^DD(661.2,20,21,0)="^^1^1^2980902^^"
^DD(661.2,20,21,1,0)="Number of hours used by lab technician to process an item or stock. "
^DD(661.2,20,"DT")="2980313"
^DD(661.2,21,0)="LABOR COST^NJ7,2^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(661.2,21,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(661.2,21,21,0)="^^2^2^2980902^"
^DD(661.2,21,21,1,0)="An issuance cost of an item furnished to patient or veteran based on the"
^DD(661.2,21,21,2,0)="users' salary and hour spent by a Technician to fit an item."
^DD(661.2,21,"DT")="2980313"
^DD(661.2,"B","AVERAGE COST",18)=""
^DD(661.2,"B","COMMENT",13)=""
^DD(661.2,"B","CURRENT BALANCE",12)=""
^DD(661.2,"B","CURRENT TOTAL COST",14)=""
^DD(661.2,"B","DATE",.01)=""
^DD(661.2,"B","HCPCS",3)=""
^DD(661.2,"B","HCPCS/ITEM",9)=""
^DD(661.2,"B","LAB HOUR",20)=""
^DD(661.2,"B","LABOR COST",21)=""
^DD(661.2,"B","LOCATION",17)=""
^DD(661.2,"B","PATIENT",1)=""
^DD(661.2,"B","QTY",8)=""
^DD(661.2,"B","QTY ORDERED",10)=""
^DD(661.2,"B","QTY RECEIVED",11)=""
^DD(661.2,"B","SERIAL NUMBER",15)=""
^DD(661.2,"B","SOURCE",2)=""
^DD(661.2,"B","STATION",16)=""
^DD(661.2,"B","UNIT OF ISSUE",5)=""
^DD(661.2,"B","USER",7)=""
^DD(661.2,"GL",0,1,.01)=""
^DD(661.2,"GL",0,2,1)=""
^DD(661.2,"GL",0,3,2)=""
^DD(661.2,"GL",0,4,3)=""
^DD(661.2,"GL",0,5,5)=""
^DD(661.2,"GL",0,6,15)=""
^DD(661.2,"GL",0,7,7)=""
^DD(661.2,"GL",0,8,8)=""
^DD(661.2,"GL",0,9,9)=""
^DD(661.2,"GL",0,10,10)=""
^DD(661.2,"GL",0,11,11)=""
^DD(661.2,"GL",0,12,12)=""
^DD(661.2,"GL",0,13,13)=""
^DD(661.2,"GL",0,14,14)=""
^DD(661.2,"GL",0,15,16)=""
^DD(661.2,"GL",0,16,17)=""
^DD(661.2,"GL",0,17,18)=""
^DD(661.2,"GL",1,1,20)=""
^DD(661.2,"GL",1,2,21)=""
^DD(661.2,"IX",.01)=""
^DD(661.2,"IX",1)=""
^DD(661.2,"IX",3)=""
^DD(661.2,"IX",7)=""
^DD(661.2,"IX",16)=""
^DD(661.2,"IX",17)=""
^DD(661.2,"RQ",.01)=""
^DD(661.3,0)="FIELD^^1^4"
^DD(661.3,0,"DDA")="N"
^DD(661.3,0,"DT")="2990113"
^DD(661.3,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(661.3,0,"IX","B",661.3,.01)=""
^DD(661.3,0,"IX","C",661.31,.01)=""
^DD(661.3,0,"IX","D",661.312,.01)=""
^DD(661.3,0,"IX","D1",661.312,.01)=""
^DD(661.3,0,"IX","E",661.3,.05)=""
^DD(661.3,0,"NM","PROS ITEM LOCATION")=""
^DD(661.3,0,"PT",661.2,17)=""
^DD(661.3,0,"PT",664.16,17)=""
^DD(661.3,0,"VR")="3.0"
^DD(661.3,0,"VRPK")="RMPR"
^DD(661.3,.01,0)="LOCATION^RFX^^0;1^K:$L(X)>30!($L(X)<3)!$D(^RMPR(661.3,""B"",X)) X Q:'$D(X)  D CONV^RMPR5NU1"
^DD(661.3,.01,1,0)="^.1"
^DD(661.3,.01,1,1,0)="661.3^B"
^DD(661.3,.01,1,1,1)="S ^RMPR(661.3,""B"",$E(X,1,30),DA)="""""
^DD(661.3,.01,1,1,2)="K ^RMPR(661.3,""B"",$E(X,1,30),DA)"
^DD(661.3,.01,3)="Answer must be 3-30 characters in length."
^DD(661.3,.01,21,0)="^^1^1^2980618^"
^DD(661.3,.01,21,1,0)="This is a location of an item or stock being tracked for inventory."
^DD(661.3,.01,"DEL",1,0)="I DUZ(0)'=""@"""
^DD(661.3,.01,"DT")="2990114"
^DD(661.3,.02,0)="ADDRESS^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(661.3,.02,3)="Answer must be 3-30 characters in length."
^DD(661.3,.02,21,0)="^^1^1^2980325^"
^DD(661.3,.02,21,1,0)="This is the address of the LOCATION field."
^DD(661.3,.02,"DT")="2980325"
^DD(661.3,.05,0)="STATION^RP4'^DIC(4,^0;3^Q"
^DD(661.3,.05,1,0)="^.1"
^DD(661.3,.05,1,1,0)="661.3^E"
^DD(661.3,.05,1,1,1)="S ^RMPR(661.3,""E"",$E(X,1,30),DA)="""""
^DD(661.3,.05,1,1,2)="K ^RMPR(661.3,""E"",$E(X,1,30),DA)"
^DD(661.3,.05,1,1,"DT")="2980826"
^DD(661.3,.05,3)="Enter the station name or number"
^DD(661.3,.05,21,0)="^^2^2^2980826^"
^DD(661.3,.05,21,1,0)="This is station or site where an inventory transaction is done and"
^DD(661.3,.05,21,2,0)="responsible of reporting a workload."
^DD(661.3,.05,"DT")="2980826"
^DD(661.3,1,0)="HCPCS^661.31P^^1;0"
^DD(661.3,1,21,0)="^.001^2^2^3010208^^^^"
^DD(661.3,1,21,1,0)="This is an HCPCS multiple keep in a Location for Prosthetics Inventory"
^DD(661.3,1,21,2,0)="module."
^DD(661.3,"B","ADDRESS",.02)=""
^DD(661.3,"B","HCPCS",1)=""
^DD(661.3,"B","LOCATION",.01)=""
^DD(661.3,"B","STATION",.05)=""
^DD(661.3,"GL",0,1,.01)=""
^DD(661.3,"GL",0,2,.02)=""
^DD(661.3,"GL",0,3,.05)=""
^DD(661.3,"GL",1,0,1)=""
^DD(661.3,"IX",.01)=""
^DD(661.3,"IX",.05)=""
^DD(661.3,"RQ",.01)=""
^DD(661.3,"RQ",.05)=""
^DD(661.3,"SB",661.31,1)=""
^DD(661.31,0)="HCPCS SUB-FIELD^^2^2"
^DD(661.31,0,"DT")="2990113"
^DD(661.31,0,"IX","B",661.31,.01)=""
^DD(661.31,0,"NM","HCPCS")=""
^DD(661.31,0,"UP")="661.3"
^DD(661.31,.01,0)="HCPCS^P661.1'X^RMPR(661.1,^0;1^Q"
^DD(661.31,.01,1,0)="^.1"
^DD(661.31,.01,1,1,0)="661.31^B"
^DD(661.31,.01,1,1,1)="S ^RMPR(661.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(661.31,.01,1,1,2)="K ^RMPR(661.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(661.31,.01,1,2,0)="661.3^C"
^DD(661.31,.01,1,2,1)="S ^RMPR(661.3,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(661.31,.01,1,2,2)="K ^RMPR(661.3,""C"",$E(X,1,30),DA(1),DA)"
^DD(661.31,.01,1,2,"DT")="2980806"
^DD(661.31,.01,3)="Only valid PSAS HCPCS in file #661.1 can be used."
^DD(661.31,.01,7.5)="D LKP^RMPRSTI"
^DD(661.31,.01,21,0)="^^2^2^2980908^"
^DD(661.31,.01,21,1,0)="This is a PSAS HCPCS being tracked for Prosthetics Inventory and it is a"
^DD(661.31,.01,21,2,0)="pointer to file #661.1."
^DD(661.31,.01,"DT")="3010209"
^DD(661.31,2,0)="ITEM^661.312I^^1;0"
^DD(661.31,2,21,0)="^^1^1^2990824^^^"
^DD(661.31,2,21,1,0)="An ITEM multiple under a certain HCPCS."
^DD(661.31,"B","HCPCS",.01)=""
^DD(661.31,"B","ITEM",2)=""
^DD(661.31,"GL",0,1,.01)=""
^DD(661.31,"GL",1,0,2)=""
^DD(661.31,"IX",.01)=""
^DD(661.31,"SB",661.312,2)=""
^DD(661.312,0)="ITEM SUB-FIELD^^32^12"
^DD(661.312,0,"DT")="2990113"
^DD(661.312,0,"ID",28)="W ""   "",$P(^(0),U,8)"
^DD(661.312,0,"IX","B",661.312,.01)=""
^DD(661.312,0,"IX","C",661.312,28)=""
^DD(661.312,0,"NM","ITEM")=""
^DD(661.312,0,"UP")="661.31"
^DD(661.312,.01,0)="ITEM^MRF^^0;1^K:$L(X)>10!($L(X)<3) X"
^DD(661.312,.01,1,0)="^.1"
^DD(661.312,.01,1,1,0)="661.312^B"
^DD(661.312,.01,1,1,1)="S ^RMPR(661.3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(661.312,.01,1,1,2)="K ^RMPR(661.3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(661.312,.01,1,2,0)="661.3^D"
^DD(661.312,.01,1,2,1)="S ^RMPR(661.3,""D"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(661.312,.01,1,2,2)="K ^RMPR(661.3,""D"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(661.312,.01,1,2,"DT")="2980813"
^DD(661.312,.01,1,3,0)="661.3^D1^MUMPS"
^DD(661.312,.01,1,3,1)="S ^RMPR(661.3,""D1"",$P(X,""-"",1),DA(2),DA(1),DA)="""""
^DD(661.312,.01,1,3,2)="K ^RMPR(661.3,""D1"",$P(X,""-"",1),DA(2),DA(1),DA)"
^DD(661.312,.01,1,3,"DT")="3010208"
^DD(661.312,.01,3)="Answer must be 3-10 characters in length."
^DD(661.312,.01,21,0)="^^3^3^2980908^"
^DD(661.312,.01,21,1,0)="This is an item under a particular PSAS HCPCS at this location.  It is a"
^DD(661.312,.01,21,2,0)="combination of PSAS HCPCS IEN concatenated with (-) and then concatenated"
^DD(661.312,.01,21,3,0)="with ITEM IEN in file #661.1."
^DD(661.312,.01,"DT")="3010208"
^DD(661.312,22,0)="QUANTITY^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.312,22,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(661.312,22,21,0)="^^1^1^2990824^^^^"
^DD(661.312,22,21,1,0)="A quantity on hand of an item at this location."
^DD(661.312,22,"DT")="2990316"
^DD(661.312,23,0)="COST^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(661.312,23,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(661.312,23,21,0)="^^1^1^2990107^"
^DD(661.312,23,21,1,0)="This is the total Cost of the quantity of this ITEM at this location."
^DD(661.312,23,"DT")="2980806"
^DD(661.312,24,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;4^Q"
^DD(661.312,24,21,0)="^^2^2^2980902^"
^DD(661.312,24,21,1,0)="Pointer to Unit of Issue file.  This is the unit how an item is stored or"
^DD(661.312,24,21,2,0)="purchased."
^DD(661.312,24,"DT")="2980806"
^DD(661.312,25,0)="VENDOR^P440'^PRC(440,^0;5^Q"
^DD(661.312,25,1,0)="^.1^^0"
^DD(661.312,25,21,0)="^^1^1^2990203^^^"
^DD(661.312,25,21,1,0)="Pointer to a Vendor file."
^DD(661.312,25,"DT")="2990203"
^DD(661.312,26,0)="RE-ORDER LEVEL^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.312,26,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(661.312,26,21,0)="^^1^1^2980902^^"
^DD(661.312,26,21,1,0)="A number that signifies time to re-order an item at a particular location."
^DD(661.312,26,"DT")="2980806"
^DD(661.312,27,0)="DETAILED INVENTORY ID^F^^0;7^K:$L(X)>70!($L(X)<3) X"
^DD(661.312,27,3)="Answer must be 3-70 characters in length."
^DD(661.312,27,21,0)="^^2^2^2990113^^^"
^DD(661.312,27,21,1,0)="This is a free text entry that tells where an item is located or stored in"
^DD(661.312,27,21,2,0)="a particular location. This field can be used also to describe an item."
^DD(661.312,27,"DT")="2990113"
^DD(661.312,28,0)="DESCRIPTION^F^^0;8^K:$L(X)>100!($L(X)<3) X"
^DD(661.312,28,1,0)="^.1"
^DD(661.312,28,1,1,0)="661.312^C"
^DD(661.312,28,1,1,1)="S ^RMPR(661.3,DA(2),1,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(661.312,28,1,1,2)="K ^RMPR(661.3,DA(2),1,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(661.312,28,1,1,"DT")="2981030"
^DD(661.312,28,3)="Answer must be 3-100 characters in length."
^DD(661.312,28,21,0)="^^1^1^2990113^^^^"
^DD(661.312,28,21,1,0)="A description of an item."
^DD(661.312,28,"DT")="2990113"
^DD(661.312,29,0)="SOURCE^S^V:VA;C:COMMERCIAL;^0;9^Q"
^DD(661.312,29,21,0)="^^1^1^2980806^"
^DD(661.312,29,21,1,0)="Set of codes that signifies whether an item is VA or COMMERCIAL source."
^DD(661.312,29,"DT")="2980806"
^DD(661.312,30,0)="AVERAGE COST^NJ9,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(661.312,30,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(661.312,30,21,0)="^^1^1^2980826^"
^DD(661.312,30,21,1,0)="This is an average cost of an item at this location."
^DD(661.312,30,"DT")="2980826"
^DD(661.312,31,0)="ORDERED QUANTITY^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(661.312,31,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(661.312,31,21,0)="^^1^1^2990108^^^"
^DD(661.312,31,21,1,0)="Amount being ordered from Supply or Vendor."
^DD(661.312,31,"DT")="2990108"
^DD(661.312,32,0)="RECEIVED QUANTITY^NJ5,0^^0;12^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(661.312,32,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(661.312,32,21,0)="^^1^1^2990108^^^"
^DD(661.312,32,21,1,0)="Amount received from Supply or Vendor."
^DD(661.312,32,"DT")="2990108"
^DD(661.312,"B","AVERAGE COST",30)=""
^DD(661.312,"B","COST",23)=""
^DD(661.312,"B","DESCRIPTION",28)=""
^DD(661.312,"B","DETAILED INVENTORY ID",27)=""
^DD(661.312,"B","ITEM",.01)=""
^DD(661.312,"B","ORDERED QUANTITY",31)=""
^DD(661.312,"B","QUANTITY",22)=""
^DD(661.312,"B","RE-ORDER LEVEL",26)=""
^DD(661.312,"B","RECEIVED QUANTITY",32)=""
^DD(661.312,"B","SOURCE",29)=""
^DD(661.312,"B","UNIT OF ISSUE",24)=""
^DD(661.312,"B","VENDOR",25)=""
^DD(661.312,"GL",0,1,.01)=""
^DD(661.312,"GL",0,2,22)=""
^DD(661.312,"GL",0,3,23)=""
^DD(661.312,"GL",0,4,24)=""
^DD(661.312,"GL",0,5,25)=""
^DD(661.312,"GL",0,6,26)=""
^DD(661.312,"GL",0,7,27)=""
^DD(661.312,"GL",0,8,28)=""
^DD(661.312,"GL",0,9,29)=""
^DD(661.312,"GL",0,10,30)=""
^DD(661.312,"GL",0,11,31)=""
^DD(661.312,"GL",0,12,32)=""
^DD(661.312,"IX",.01)=""
^DD(661.312,"IX",28)=""
^DD(661.312,"RQ",.01)=""
^DD(661.4,0)="FIELD^^7^6"
^DD(661.4,0,"DDA")="N"
^DD(661.4,0,"DT")="3010216"
^DD(661.4,0,"IX","B",661.4,.01)=""
^DD(661.4,0,"IX","C",661.4,7)=""
^DD(661.4,0,"NM","HCPCS INVENTORY")=""
^DD(661.4,0,"VR")="3.0"
^DD(661.4,0,"VRPK")="RMPR"
^DD(661.4,.01,0)="HCPCS^RF^^0;1^K:$L(X)>20!($L(X)<5) X"
^DD(661.4,.01,1,0)="^.1"
^DD(661.4,.01,1,1,0)="661.4^B"
^DD(661.4,.01,1,1,1)="S ^RMPR(661.4,""B"",$E(X,1,30),DA)="""""
^DD(661.4,.01,1,1,2)="K ^RMPR(661.4,""B"",$E(X,1,30),DA)"
^DD(661.4,.01,3)="Answer must be 5-20 characters in length."
^DD(661.4,.01,21,0)="^.001^1^1^3050908^^^"
^DD(661.4,.01,21,1,0)="This is the HCPCS code"
^DD(661.4,.01,23,0)="^.001^1^1^3050908^^^"
^DD(661.4,.01,23,1,0)="This is a pointer field to the HCPC file (661.1)"
^DD(661.4,.01,"DT")="3050908"
^DD(661.4,2,0)="HCPCS ITEM^RNJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(661.4,2,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(661.4,2,21,0)="^.001^6^6^3010216^^"
^DD(661.4,2,21,1,0)="This field is a pointer to the HCPCS ITEM sub-file (661.12) of the"
^DD(661.4,2,21,2,0)="PROSTHETIC HCPCS file (661.1)."
^DD(661.4,2,21,3,0)=" "
^DD(661.4,2,21,4,0)="********* S I T E  I N T E G R A T O R S  B E W A R E *********"
^DD(661.4,2,21,5,0)="It is defined as free text as FM does not allow sub-file pointers to be"
^DD(661.4,2,21,6,0)="defined explicitly."
^DD(661.4,2,23,0)="^.001^5^5^3010216^^"
^DD(661.4,2,23,1,0)="This field is a pointer to the HCPC Item sub-file (661.12). Although"
^DD(661.4,2,23,2,0)="classified as free text any application code responsible for maintaining"
^DD(661.4,2,23,3,0)="this file must ensure that given a HCPC pointer in 661.1 the HCPC item"
^DD(661.4,2,23,4,0)="correctly points to a node in the sub-file (661.12) beneath the HCPC"
^DD(661.4,2,23,5,0)="pointer."
^DD(661.4,2,"DT")="3010508"
^DD(661.4,3,0)="STATION^RP4'^DIC(4,^0;3^Q"
^DD(661.4,3,21,0)="^^1^1^3010116^"
^DD(661.4,3,21,1,0)="This field is a pointer to the INSTITUTION file (4)."
^DD(661.4,3,"DT")="3010508"
^DD(661.4,4,0)="RE-ORDER QUANTITY^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(661.4,4,3)="Type a number between 0 and 999999999, 0 Decimal Digits"
^DD(661.4,4,21,0)="^^2^2^3010116^"
^DD(661.4,4,21,1,0)="This field is the re-order quantity for a HCPCS item at a Station and is"
^DD(661.4,4,21,2,0)="used to drive reports which alert sites to the need to re-order."
^DD(661.4,4,"DT")="3010116"
^DD(661.4,5,0)="QUANTITY ON ORDER^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(661.4,5,3)="Type a number between 0 and 999999999, 0 Decimal Digits"
^DD(661.4,5,21,0)="^^10^10^3010116^"
^DD(661.4,5,21,1,0)="This field is the current quantity on order for a HCPCS Item at a Station."
^DD(661.4,5,21,2,0)="It is used to inform sites that although a stock item might be below the"
^DD(661.4,5,21,3,0)="proscribed re-order level, orders have been placed to re-stock."
^DD(661.4,5,21,4,0)="A distinction should be made on low stock warning type reports between the"
^DD(661.4,5,21,5,0)="situation where the current on-hand quantity + on-order quantity is below"
^DD(661.4,5,21,6,0)="the re-order level, and that where it is not."
^DD(661.4,5,21,7,0)="This field will be updated for any receipt or order type transaction"
^DD(661.4,5,21,8,0)="recorded in the PROSTHETIC INVENTORY TRANSACTION file (661.6):-"
^DD(661.4,5,21,9,0)="for receipt type transactions subtract the receipt quantity,"
^DD(661.4,5,21,10,0)="for order type transactions add the order quantity."
^DD(661.4,5,"DT")="3010116"
^DD(661.4,7,0)="LOCATION^RP661.5'^RMPR(661.5,^0;7^Q"
^DD(661.4,7,1,0)="^.1"
^DD(661.4,7,1,1,0)="661.4^C"
^DD(661.4,7,1,1,1)="S ^RMPR(661.4,""C"",$E(X,1,30),DA)="""""
^DD(661.4,7,1,1,2)="K ^RMPR(661.4,""C"",$E(X,1,30),DA)"
^DD(661.4,7,1,1,"DT")="3020320"
^DD(661.4,7,21,0)="^.001^1^1^3020320^^^"
^DD(661.4,7,21,1,0)="This field is a pointer to the Prosthetic Stock Location file (661.5)."
^DD(661.4,7,"DT")="3020320"
^DD(661.4,"B","HCPCS",.01)=""
^DD(661.4,"B","HCPCS ITEM",2)=""
^DD(661.4,"B","LOCATION",7)=""
^DD(661.4,"B","QUANTITY ON ORDER",5)=""
^DD(661.4,"B","RE-ORDER QUANTITY",4)=""
^DD(661.4,"B","STATION",3)=""
^DD(661.4,"GL",0,1,.01)=""
^DD(661.4,"GL",0,2,2)=""
^DD(661.4,"GL",0,3,3)=""
^DD(661.4,"GL",0,4,4)=""
^DD(661.4,"GL",0,5,5)=""
^DD(661.4,"GL",0,7,7)=""
^DD(661.4,"IX",.01)=""
^DD(661.4,"IX",7)=""
^DD(661.4,"RQ",.01)=""
^DD(661.4,"RQ",2)=""
^DD(661.4,"RQ",3)=""
^DD(661.4,"RQ",7)=""
^DD(661.41,0)="FIELD^^10^10"
^DD(661.41,0,"DDA")="N"
^DD(661.41,0,"DT")="3010425"
^DD(661.41,0,"IX","B",661.41,.01)=""
^DD(661.41,0,"NM","HCPCS INVENTORY ORDER AND REORDER")=""
^DD(661.41,0,"VR")="3.0"
^DD(661.41,0,"VRPK")="RMPR"
^DD(661.41,.01,0)="DATE ORDERED^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(661.41,.01,1,0)="^.1"
^DD(661.41,.01,1,1,0)="661.41^B"
^DD(661.41,.01,1,1,1)="S ^RMPR(661.41,""B"",$E(X,1,30),DA)="""""
^DD(661.41,.01,1,1,2)="K ^RMPR(661.41,""B"",$E(X,1,30),DA)"
^DD(661.41,.01,3)=""
^DD(661.41,.01,21,0)="^^1^1^3010423^"
^DD(661.41,.01,21,1,0)="This is the date when an item is ordered."
^DD(661.41,.01,"DT")="3010425"
^DD(661.41,1,0)="HCPCS ITEM^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(661.41,1,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(661.41,1,21,0)="^^1^1^3010423^"
^DD(661.41,1,21,1,0)="This is the Item number of an HCPCS Item."
^DD(661.41,1,"DT")="3010425"
^DD(661.41,2,0)="STATION^P4'^DIC(4,^0;3^Q"
^DD(661.41,2,21,0)="^^1^1^3010423^"
^DD(661.41,2,21,1,0)="This is the staton where an HCPCS belong to."
^DD(661.41,2,"DT")="3010425"
^DD(661.41,4,0)="VENDOR^P440'^PRC(440,^0;5^Q"
^DD(661.41,4,21,0)="^^1^1^3010423^"
^DD(661.41,4,21,1,0)="A pointer to Vendor file in IFCAP."
^DD(661.41,4,"DT")="3010423"
^DD(661.41,5,0)="HCPCS^F^^0;6^K:$L(X)>20!($L(X)<5) X"
^DD(661.41,5,3)="Answer must be 5-20 characters in length."
^DD(661.41,5,21,0)="^.001^1^1^3050926^^"
^DD(661.41,5,21,1,0)="This is the PSAS HCPCS as entered in 01 field of file # 661.1."
^DD(661.41,5,"DT")="3050926"
^DD(661.41,6,0)="DATE RECIEVED^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(661.41,6,21,0)="^^1^1^3010423^"
^DD(661.41,6,21,1,0)="The date date when an Item is recieved."
^DD(661.41,6,"DT")="3010423"
^DD(661.41,7,0)="QTY ORDERED^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.41,7,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(661.41,7,21,0)="^^1^1^3010423^"
^DD(661.41,7,21,1,0)="A number that signifies the quantity being being ordered."
^DD(661.41,7,"DT")="3010423"
^DD(661.41,8,0)="QTY RECIEVED^NJ5,0^^0;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.41,8,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(661.41,8,21,0)="^^1^1^3010423^"
^DD(661.41,8,21,1,0)="A number that signifies the quatity recieved."
^DD(661.41,8,"DT")="3010423"
^DD(661.41,9,0)="COMMENTS^F^^0;10^K:$L(X)>50!($L(X)<3) X"
^DD(661.41,9,3)="Answer must be 3-50 characters in length."
^DD(661.41,9,21,0)="^^2^2^3010423^"
^DD(661.41,9,21,1,0)="This is a free text field that can be used for comments or any description"
^DD(661.41,9,21,2,0)="of an item being ordered."
^DD(661.41,9,"DT")="3010423"
^DD(661.41,10,0)="STATUS^S^C:CANCELLED;O:OPEN;R:RECEIVED;^0;11^Q"
^DD(661.41,10,"DT")="3010425"
^DD(661.41,"B","COMMENTS",9)=""
^DD(661.41,"B","DATE ORDERED",.01)=""
^DD(661.41,"B","DATE RECIEVED",6)=""
^DD(661.41,"B","HCPCS",5)=""
^DD(661.41,"B","HCPCS ITEM",1)=""
^DD(661.41,"B","QTY ORDERED",7)=""
^DD(661.41,"B","QTY RECIEVED",8)=""
^DD(661.41,"B","STATION",2)=""
^DD(661.41,"B","STATUS",10)=""
^DD(661.41,"B","VENDOR",4)=""
^DD(661.41,"GL",0,1,.01)=""
^DD(661.41,"GL",0,2,1)=""
^DD(661.41,"GL",0,3,2)=""
^DD(661.41,"GL",0,5,4)=""
^DD(661.41,"GL",0,6,5)=""
^DD(661.41,"GL",0,7,6)=""
^DD(661.41,"GL",0,8,7)=""
^DD(661.41,"GL",0,9,8)=""
^DD(661.41,"GL",0,10,9)=""
^DD(661.41,"GL",0,11,10)=""
^DD(661.41,"IX",.01)=""
^DD(661.41,"RQ",.01)=""
^DD(661.5,0)="FIELD^^6^6"
^DD(661.5,0,"DDA")="N"
^DD(661.5,0,"DT")="3010118"
^DD(661.5,0,"IX","B",661.5,.01)=""
^DD(661.5,0,"NM","PROSTHETIC STOCK LOCATION")=""
^DD(661.5,0,"PT",661.4,7)=""
^DD(661.5,0,"PT",661.6,14)=""
^DD(661.5,0,"PT",661.63,8)=""
^DD(661.5,0,"PT",661.7,5)=""
^DD(661.5,0,"VR")="3.0"
^DD(661.5,0,"VRPK")="RMPR"
^DD(661.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(661.5,.01,1,0)="^.1"
^DD(661.5,.01,1,1,0)="661.5^B"
^DD(661.5,.01,1,1,1)="S ^RMPR(661.5,""B"",$E(X,1,30),DA)="""""
^DD(661.5,.01,1,1,2)="K ^RMPR(661.5,""B"",$E(X,1,30),DA)"
^DD(661.5,.01,3)="Answer must be 3-30 characters in length"
^DD(661.5,.01,21,0)="^^1^1^3001129^"
^DD(661.5,.01,21,1,0)="This is the name of the stock location."
^DD(661.5,.01,"DT")="3010116"
^DD(661.5,2,0)="STATION^P4'^DIC(4,^0;2^Q"
^DD(661.5,2,21,0)="^^1^1^3001129^"
^DD(661.5,2,21,1,0)="This field points to the Institution file (4)."
^DD(661.5,2,"DT")="3010118"
^DD(661.5,3,0)="ADDRESS^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(661.5,3,3)="Answer must be 3-30 characters in length"
^DD(661.5,3,21,0)="^^1^1^3001129^"
^DD(661.5,3,21,1,0)="This is an address for the stock location."
^DD(661.5,3,"DT")="3001129"
^DD(661.5,4,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;4^Q"
^DD(661.5,4,21,0)="^^10^10^3010116^"
^DD(661.5,4,21,1,0)="This field indicates whether a stock location is active (A) or inactive"
^DD(661.5,4,21,2,0)="(I)."
^DD(661.5,4,21,3,0)="Stock locations should not be deleted once they have participated in"
^DD(661.5,4,21,4,0)="inventory transactions because other inventory files will inevitably point"
^DD(661.5,4,21,5,0)="to the Stock Location file. Instead stock locations should be marked as"
^DD(661.5,4,21,6,0)="inactive when no longer in use (due to stock room re-organisation or any"
^DD(661.5,4,21,7,0)="other reason)."
^DD(661.5,4,21,8,0)="The system will not allow receipts into inactive locations, but issues and"
^DD(661.5,4,21,9,0)="outward transfers will be permitted (although ideally all stock should be"
^DD(661.5,4,21,10,0)="transferred to other active locations before deactivation)."
^DD(661.5,4,"DT")="3010116"
^DD(661.5,5,0)="STATUS CHANGE DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(661.5,5,3)="(No range limit on date)"
^DD(661.5,5,21,0)="^^2^2^3010116^"
^DD(661.5,5,21,1,0)="This fields records the date when the status of a stock location is"
^DD(661.5,5,21,2,0)="changed."
^DD(661.5,5,"DT")="3010116"
^DD(661.5,6,0)="USER^P200'^VA(200,^0;6^Q"
^DD(661.5,6,21,0)="^^2^2^3010116^"
^DD(661.5,6,21,1,0)="This field records the pointer of the user who last updated the stock"
^DD(661.5,6,21,2,0)="location record."
^DD(661.5,6,"DT")="3010116"
^DD(661.5,"B","ADDRESS",3)=""
^DD(661.5,"B","NAME",.01)=""
^DD(661.5,"B","STATION",2)=""
^DD(661.5,"B","STATUS",4)=""
^DD(661.5,"B","STATUS CHANGE DATE",5)=""
^DD(661.5,"B","USER",6)=""
^DD(661.5,"GL",0,1,.01)=""
^DD(661.5,"GL",0,2,2)=""
^DD(661.5,"GL",0,3,3)=""
^DD(661.5,"GL",0,4,4)=""
^DD(661.5,"GL",0,5,5)=""
^DD(661.5,"GL",0,6,6)=""
^DD(661.5,"IX",.01)=""
^DD(661.5,"RQ",.01)=""
^DD(661.6,0)="FIELD^^14^12"
^DD(661.6,0,"DDA")="N"
^DD(661.6,0,"DT")="3010426"
^DD(661.6,0,"IX","B",661.6,.01)=""
^DD(661.6,0,"IX","C",661.6,2)=""
^DD(661.6,0,"NM","PROSTHETIC INVENTORY TRANSACTION")=""
^DD(661.6,0,"PT",660,4.6)=""
^DD(661.6,0,"PT",661.63,.01)=""
^DD(661.6,0,"PT",661.69,.01)=""
^DD(661.6,0,"VR")="3.0"
^DD(661.6,0,"VRPK")="RMPR"
^DD(661.6,.01,0)="HCPCS^RF^^0;1^K:$L(X)>20!($L(X)<5) X"
^DD(661.6,.01,1,0)="^.1"
^DD(661.6,.01,1,1,0)="661.6^B"
^DD(661.6,.01,1,1,1)="S ^RMPR(661.6,""B"",$E(X,1,30),DA)="""""
^DD(661.6,.01,1,1,2)="K ^RMPR(661.6,""B"",$E(X,1,30),DA)"
^DD(661.6,.01,3)="Answer must be 5-20 characters in length."
^DD(661.6,.01,21,0)="^.001^2^2^3050908^^^^"
^DD(661.6,.01,21,1,0)="This field is the HCPCS code as defined by the .01 field in the"
^DD(661.6,.01,21,2,0)="PROSTHETIC HCPCS file (661.1)."
^DD(661.6,.01,"DT")="3050908"
^DD(661.6,2,0)="DATE&TIME STAMP^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(661.6,2,1,0)="^.1"
^DD(661.6,2,1,1,0)="661.6^C"
^DD(661.6,2,1,1,1)="S ^RMPR(661.6,""C"",$E(X,1,30),DA)="""""
^DD(661.6,2,1,1,2)="K ^RMPR(661.6,""C"",$E(X,1,30),DA)"
^DD(661.6,2,1,1,"DT")="3020320"
^DD(661.6,2,3)=""
^DD(661.6,2,21,0)="^.001^10^10^3010118^^^^"
^DD(661.6,2,21,1,0)="This field is the date and time stamp (fileman standard format) of the"
^DD(661.6,2,21,2,0)="transaction. This field will be automatically generated by the system and"
^DD(661.6,2,21,3,0)="assumes users will record inventory transactions in a timely manner."
^DD(661.6,2,21,4,0)="It is one of the primary key fields and is also recorded on the barcode."
^DD(661.6,2,21,5,0)="It is a requirement that the date@time stamp should have a unique value"
^DD(661.6,2,21,6,0)="for any given HCPCS. The reason for this is that HCPCS will also be"
^DD(661.6,2,21,7,0)="recorded on an item's barcode and it is important that barcodes will not"
^DD(661.6,2,21,8,0)="need changing if a site is integrated at some time in the future."
^DD(661.6,2,21,9,0)="Given the date&time stamp and HCPCS fields it is possible to generate a"
^DD(661.6,2,21,10,0)="transactions IEN using the appropriate cross-reference."
^DD(661.6,2,"DT")="3020320"
^DD(661.6,3,0)="SEQUENCE^NJ9,0^RMPR(661.4,^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(661.6,3,3)="Type a number between 1 and 999999999, 0 Decimal Digits"
^DD(661.6,3,21,0)="^^13^13^3010112^"
^DD(661.6,3,21,1,0)="This field is a sequence number starting at 1 and incremented by 1 for"
^DD(661.6,3,21,2,0)="each transaction which has the same HCPCS and DATE&TIME STAMP fields. This"
^DD(661.6,3,21,3,0)="situation should be very rare and only occurs at all after site"
^DD(661.6,3,21,4,0)="integrations. The HCPCS, DATE&TIME STAMP and SEQUENCE fields together make"
^DD(661.6,3,21,5,0)="up the primary key for this file."
^DD(661.6,3,21,6,0)="The rationale behind this design is to allow the HCPCS and DATE&TIME STAMP"
^DD(661.6,3,21,7,0)="to be printed as a barcode for automated data entry on a stock issue form."
^DD(661.6,3,21,8,0)="Fileman IENs will be derived from appropriate cross-references and, of"
^DD(661.6,3,21,9,0)="course, these IENs can all change if a site is integrated."
^DD(661.6,3,21,10,0)="On the rare occasions where there is more than 1 SEQUENCE number"
^DD(661.6,3,21,11,0)="associated with a HCPCS and DATE&TIME STAMP the user will have to be"
^DD(661.6,3,21,12,0)="prompted to select from a list of transactions. We see no way round this"
^DD(661.6,3,21,13,0)="inconvenience but hopefully it will be extremely rare!"
^DD(661.6,3,"DT")="3010117"
^DD(661.6,4,0)="TRANSACTION TYPE^S^1:RECEIPT;2:ORDER;3:PATIENT ISSUE;4:ISSUE TO LAB;5:RETURN TO VENDOR;6:WRITE OFF;7:TRANSFER;8:RETURN IN;9:RECONCILE;^0;4^Q"
^DD(661.6,4,21,0)="^^27^27^3001129^"
^DD(661.6,4,21,1,0)="This field records the transaction type, which can be one of the"
^DD(661.6,4,21,2,0)="following..."
^DD(661.6,4,21,3,0)=" "
^DD(661.6,4,21,4,0)="Receipt - for receiving items into stock."
^DD(661.6,4,21,5,0)=" "
^DD(661.6,4,21,6,0)="Order - for when a stock item has been ordered from the vendor."
^DD(661.6,4,21,7,0)=" "
^DD(661.6,4,21,8,0)="Patient Issue - for when a stock item is issued to a veteran."
^DD(661.6,4,21,9,0)=" "
^DD(661.6,4,21,10,0)="Issue to Lab - this transaction should be used for those items which are"
^DD(661.6,4,21,11,0)="               used by the labs to fabricate items. An example would be a"
^DD(661.6,4,21,12,0)="               bag of plaster which could be used for treating several"
^DD(661.6,4,21,13,0)="               patients."
^DD(661.6,4,21,14,0)=" "
^DD(661.6,4,21,15,0)="Return to Vendor - if an item has been received into stock but is later"
^DD(661.6,4,21,16,0)="                   returned to the vendor for some reason, then this"
^DD(661.6,4,21,17,0)="                   transaction type should be used."
^DD(661.6,4,21,18,0)=" "
^DD(661.6,4,21,19,0)="Write Off - use this transaction type when an item is removed from stock"
^DD(661.6,4,21,20,0)="            and scrapped."
^DD(661.6,4,21,21,0)=" "
^DD(661.6,4,21,22,0)="Transfer - for transferring stock between locations. The transaction"
^DD(661.6,4,21,23,0)="           quantity will be -ve for the 'transfer from' location."
^DD(661.6,4,21,24,0)=" "
^DD(661.6,4,21,25,0)="Return In - for when a veteran returns a stock item previously issued."
^DD(661.6,4,21,26,0)=" "
^DD(661.6,4,21,27,0)="Reconcile - for when a stock check is done."
^DD(661.6,4,"DT")="3010515"
^DD(661.6,5,0)="QUANTITY^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<-999999)!(X?.E1"".""1N.N) X"
^DD(661.6,5,3)="Type a Number between -999999 and 99999999, 0 Decimal Digits"
^DD(661.6,5,21,0)="^.001^1^1^3010426^^"
^DD(661.6,5,21,1,0)="The number of items associated with the transaction."
^DD(661.6,5,"DT")="3010426"
^DD(661.6,6,0)="VALUE^NJ11,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-999999) X"
^DD(661.6,6,3)="Type a Dollar Amount between -999999 and 99999999, 2 Decimal Digits"
^DD(661.6,6,21,0)="^.001^1^1^3010426^^"
^DD(661.6,6,21,1,0)="The dollar value of the transaction."
^DD(661.6,6,"DT")="3010426"
^DD(661.6,8,0)="COMMENT^F^^0;8^K:$L(X)>40!($L(X)<1) X"
^DD(661.6,8,3)="Answer must be 1-40 characters in length"
^DD(661.6,8,21,0)="^^1^1^3001129^"
^DD(661.6,8,21,1,0)="A short comment can be entered, if required for a particular transaction."
^DD(661.6,8,"DT")="3001129"
^DD(661.6,9,0)="USER^P200'^VA(200,^0;9^Q"
^DD(661.6,9,21,0)="^^2^2^3001129^"
^DD(661.6,9,21,1,0)="This field points to the New Person file (200) and identifies the person"
^DD(661.6,9,21,2,0)="responsible for creating the transaction on the system."
^DD(661.6,9,"DT")="3001129"
^DD(661.6,11,0)="HCPCS ITEM^RNJ10,0^^0;11^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(661.6,11,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(661.6,11,21,0)="^.001^3^3^3010220^^"
^DD(661.6,11,21,1,0)="This field is the HCPCS ITEM field held on the 661.12 sub field  of the"
^DD(661.6,11,21,2,0)="PROSTHETIC HCPCS file (661.1)."
^DD(661.6,11,21,3,0)="The value held is the sub file's IEN not the ITEM text field."
^DD(661.6,11,"DT")="3010220"
^DD(661.6,12,0)="VENDOR^P440'^PRC(440,^0;12^Q"
^DD(661.6,12,3)="Answer must be 1-30 characters in length"
^DD(661.6,12,21,0)="^^4^4^3010112^"
^DD(661.6,12,21,1,0)="This field is the FMS VENDOR CODE held on the VENDOR file (440). This"
^DD(661.6,12,21,2,0)="field is guaranteed to be unique irrespective of where a database is"
^DD(661.6,12,21,3,0)="located. The Vendor IEN should be derived from the 'D' cross-reference of"
^DD(661.6,12,21,4,0)="the Vendor file."
^DD(661.6,12,"DT")="3010118"
^DD(661.6,13,0)="STATION^P4'^DIC(4,^0;13^Q"
^DD(661.6,13,21,0)="^^1^1^3010116^"
^DD(661.6,13,21,1,0)="This field is a pointer to the INSTITUTION file (4)."
^DD(661.6,13,"DT")="3010515"
^DD(661.6,14,0)="LOCATION^P661.5'^RMPR(661.5,^0;14^Q"
^DD(661.6,14,21,0)="^^1^1^3010116^"
^DD(661.6,14,21,1,0)="This field is a pointer to the PROSTHETIC STOCK LOCATION file (661.5)."
^DD(661.6,14,"DT")="3010419"
^DD(661.6,"B","COMMENT",8)=""
^DD(661.6,"B","DATE&TIME STAMP",2)=""
^DD(661.6,"B","HCPCS",.01)=""
^DD(661.6,"B","HCPCS ITEM",11)=""
^DD(661.6,"B","LOCATION",14)=""
^DD(661.6,"B","QUANTITY",5)=""
^DD(661.6,"B","SEQUENCE",3)=""
^DD(661.6,"B","STATION",13)=""
^DD(661.6,"B","TRANSACTION TYPE",4)=""
^DD(661.6,"B","USER",9)=""
^DD(661.6,"B","VALUE",6)=""
^DD(661.6,"B","VENDOR",12)=""
^DD(661.6,"GL",0,1,.01)=""
^DD(661.6,"GL",0,2,2)=""
^DD(661.6,"GL",0,3,3)=""
^DD(661.6,"GL",0,4,4)=""
^DD(661.6,"GL",0,5,5)=""
^DD(661.6,"GL",0,6,6)=""
^DD(661.6,"GL",0,8,8)=""
^DD(661.6,"GL",0,9,9)=""
^DD(661.6,"GL",0,11,11)=""
^DD(661.6,"GL",0,12,12)=""
^DD(661.6,"GL",0,13,13)=""
^DD(661.6,"GL",0,14,14)=""
^DD(661.6,"IX",.01)=""
^DD(661.6,"IX",2)=""
^DD(661.6,"RQ",.01)=""
^DD(661.6,"RQ",2)=""
^DD(661.6,"RQ",11)=""
^DD(661.63,0)="FIELD^^12^12"
^DD(661.63,0,"DDA")="N"
^DD(661.63,0,"DT")="3030108"
^DD(661.63,0,"IX","B",661.63,.01)=""
^DD(661.63,0,"NM","PROSTHETIC TRANSACTION PATIENT ISSUE")=""
^DD(661.63,0,"VR")="3.0"
^DD(661.63,0,"VRPK")="RMPR"
^DD(661.63,.01,0)="INVENTORY TRANSACTION^RP661.6'^RMPR(661.6,^0;1^Q"
^DD(661.63,.01,1,0)="^.1"
^DD(661.63,.01,1,1,0)="661.63^B"
^DD(661.63,.01,1,1,1)="S ^RMPR(661.63,""B"",$E(X,1,30),DA)="""""
^DD(661.63,.01,1,1,2)="K ^RMPR(661.63,""B"",$E(X,1,30),DA)"
^DD(661.63,.01,3)=""
^DD(661.63,.01,21,0)="^^1^1^3001122^"
^DD(661.63,.01,21,1,0)="This field points to the Prosthetic Inventory Transaction file (661.6)."
^DD(661.63,.01,"DT")="3001122"
^DD(661.63,2,0)="PATIENT TRANSACTION^P660'^RMPR(660,^0;2^Q"
^DD(661.63,2,21,0)="^^1^1^3001122^^"
^DD(661.63,2,21,1,0)="This field points to the patient 2319 file (660)."
^DD(661.63,2,"DT")="3001122"
^DD(661.63,3,0)="CONVERSION POINTER^P661.2'^RMPR(661.2,^0;3^Q"
^DD(661.63,3,.1)="SAVED POINTER TO OLD 661.2 FILE"
^DD(661.63,3,21,0)="^^5^5^3010611^"
^DD(661.63,3,21,1,0)="This field is only updated by the Old to New PIP file conversion utility"
^DD(661.63,3,21,2,0)="(RMPRPIUG). It saves the pointer to the old 661.2 Inventory Transaction"
^DD(661.63,3,21,3,0)="file which is held in file 660."
^DD(661.63,3,21,4,0)="Should a conversion ever need to be reversed then the 660 file should be"
^DD(661.63,3,21,5,0)="re-populated with this value (see RMPRPIXZ)."
^DD(661.63,3,"DT")="3010611"
^DD(661.63,4,0)="HCPCS^F^^0;4^K:$L(X)>20!($L(X)<5) X"
^DD(661.63,4,3)="Answer must be 5-20 characters in length."
^DD(661.63,4,21,0)="^.001^1^1^3050928^^^"
^DD(661.63,4,21,1,0)="The HCPCS that is being issued to patient."
^DD(661.63,4,"DT")="3050928"
^DD(661.63,5,0)="HCPCS ITEM^NJ10,0^^0;5^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(661.63,5,3)="Type a number between 1 and 9999999999, 0 Decimal Digits"
^DD(661.63,5,21,0)="^^1^1^3030108^"
^DD(661.63,5,21,1,0)="This is an HCPCS item issued to patient."
^DD(661.63,5,"DT")="3030108"
^DD(661.63,6,0)="DATE&TIME^D^^0;6^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(661.63,6,3)="(No range limit on date)"
^DD(661.63,6,21,0)="^^1^1^3030108^"
^DD(661.63,6,21,1,0)="This is the date and time the item was received in the inventory."
^DD(661.63,6,"DT")="3030108"
^DD(661.63,7,0)="STATION^P4'^DIC(4,^0;7^Q"
^DD(661.63,7,21,0)="^^1^1^3030108^"
^DD(661.63,7,21,1,0)="This is the station where the patient belongs."
^DD(661.63,7,"DT")="3030108"
^DD(661.63,8,0)="LOCATION^P661.5'^RMPR(661.5,^0;8^Q"
^DD(661.63,8,21,0)="^^1^1^3030108^"
^DD(661.63,8,21,1,0)="This is where the HCPCS/ITEM was located prior to issueing to patient."
^DD(661.63,8,"DT")="3030108"
^DD(661.63,9,0)="VENDOR^P440'^PRC(440,^0;9^Q"
^DD(661.63,9,21,0)="^^1^1^3030108^"
^DD(661.63,9,21,1,0)="This is a pointer to the Vendor file #440."
^DD(661.63,9,"DT")="3030108"
^DD(661.63,10,0)="COST^NJ11,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0)!(X?.E1"".""3.N) X"
^DD(661.63,10,3)="Type a Dollar amount between 0 and 99999999, 2 Decimal Digits"
^DD(661.63,10,21,0)="^^1^1^3030108^"
^DD(661.63,10,21,1,0)="This is the cost of an item being issued to patient."
^DD(661.63,10,"DT")="3030108"
^DD(661.63,11,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;11^Q"
^DD(661.63,11,21,0)="^^1^1^3030108^"
^DD(661.63,11,21,1,0)="This is a pointer to Unit of Issue file #420.5."
^DD(661.63,11,"DT")="3030108"
^DD(661.63,12,0)="QUANTITY^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1.N) X"
^DD(661.63,12,3)="Type a number between 1 and 9999, 0 Decimal Digits"
^DD(661.63,12,21,0)="^^1^1^3030108^"
^DD(661.63,12,21,1,0)="This is a quantity of item issued to patient."
^DD(661.63,12,"DT")="3030108"
^DD(661.63,"B","CONVERSION POINTER",3)=""
^DD(661.63,"B","COST",10)=""
^DD(661.63,"B","DATE&TIME",6)=""
^DD(661.63,"B","HCPCS",4)=""
^DD(661.63,"B","HCPCS ITEM",5)=""
^DD(661.63,"B","INVENTORY TRANSACTION",.01)=""
^DD(661.63,"B","LOCATION",8)=""
^DD(661.63,"B","PATIENT TRANSACTION",2)=""
^DD(661.63,"B","QUANTITY",12)=""
^DD(661.63,"B","STATION",7)=""
^DD(661.63,"B","UNIT OF ISSUE",11)=""
^DD(661.63,"B","VENDOR",9)=""
^DD(661.63,"GL",0,1,.01)=""
^DD(661.63,"GL",0,2,2)=""
^DD(661.63,"GL",0,3,3)=""
^DD(661.63,"GL",0,4,4)=""
^DD(661.63,"GL",0,5,5)=""
^DD(661.63,"GL",0,6,6)=""
^DD(661.63,"GL",0,7,7)=""
^DD(661.63,"GL",0,8,8)=""
^DD(661.63,"GL",0,9,9)=""
^DD(661.63,"GL",0,10,10)=""
^DD(661.63,"GL",0,11,11)=""
^DD(661.63,"GL",0,12,12)=""
^DD(661.63,"IX",.01)=""
^DD(661.63,"RQ",.01)=""
^DD(661.69,0)="FIELD^^3^3"
^DD(661.69,0,"DT")="3010510"
^DD(661.69,0,"IX","B",661.69,.01)=""
^DD(661.69,0,"NM","PROSTHETIC INVENTORY GAIN/LOSS")=""
^DD(661.69,0,"VR")="3.0"
^DD(661.69,0,"VRPK")="RMPR"
^DD(661.69,.01,0)="TRANSACTION POINTER^RP661.6'^RMPR(661.6,^0;1^Q"
^DD(661.69,.01,1,0)="^.1"
^DD(661.69,.01,1,1,0)="661.69^B"
^DD(661.69,.01,1,1,1)="S ^RMPR(661.69,""B"",$E(X,1,30),DA)="""""
^DD(661.69,.01,1,1,2)="K ^RMPR(661.69,""B"",$E(X,1,30),DA)"
^DD(661.69,.01,3)="POINTER TO 661.6"
^DD(661.69,.01,21,0)="^^2^2^3010510^"
^DD(661.69,.01,21,1,0)="This field is the back pointer to the reconciliation transaction in file"
^DD(661.69,.01,21,2,0)="661.6"
^DD(661.69,.01,"DT")="3010510"
^DD(661.69,2,0)="GAIN/LOSS^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1.N) X"
^DD(661.69,2,3)="Type a number between -99999 and 99999, 0 Decimal Digits"
^DD(661.69,2,21,0)="^^5^5^3010510^"
^DD(661.69,2,21,1,0)="This records the quantity gained or lost after a reconciliation (stock"
^DD(661.69,2,21,2,0)="count) transaction has been posted for a HCPCS Item (for a given Station,"
^DD(661.69,2,21,3,0)="Location and Vendor)."
^DD(661.69,2,21,4,0)="The transaction record in file 661.6 will"
^DD(661.69,2,21,5,0)="record the actual quantity counted."
^DD(661.69,2,"DT")="3010510"
^DD(661.69,3,0)="GAIN/LOSS VALUE^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999.99)!(X<-999999.99)!(X?.E1"".""3.N) X"
^DD(661.69,3,3)="Type a Dollar amount between -999999.99 and 999999.99, 2 Decimal Digits"
^DD(661.69,3,21,0)="^^2^2^3010510^"
^DD(661.69,3,21,1,0)="See comments for filed 2 - GAIN/LOSS. This is the dollar value associated"
^DD(661.69,3,21,2,0)="with the gain or loss."
^DD(661.69,3,"DT")="3010510"
^DD(661.69,"B","GAIN/LOSS",2)=""
^DD(661.69,"B","GAIN/LOSS VALUE",3)=""
^DD(661.69,"B","TRANSACTION POINTER",.01)=""
^DD(661.69,"GL",0,1,.01)=""
^DD(661.69,"GL",0,2,2)=""
^DD(661.69,"GL",0,3,3)=""
^DD(661.69,"IX",.01)=""
^DD(661.69,"RQ",.01)=""
^DD(661.7,0)="FIELD^^8^9"
^DD(661.7,0,"DDA")="N"
^DD(661.7,0,"DT")="3010327"
^DD(661.7,0,"IX","B",661.7,.01)=""
^DD(661.7,0,"IX","C",661.7,5)=""
^DD(661.7,0,"IX","D",661.7,3)=""
^DD(661.7,0,"NM","PROSTHETIC CURRENT STOCK")=""
^DD(661.7,0,"VR")="3.0"
^DD(661.7,0,"VRPK")="RMPR"
^DD(661.7,.01,0)="HCPCS^RF^^0;1^K:$L(X)>20!($L(X)<5) X"
^DD(661.7,.01,1,0)="^.1"
^DD(661.7,.01,1,1,0)="661.7^B"
^DD(661.7,.01,1,1,1)="S ^RMPR(661.7,""B"",$E(X,1,30),DA)="""""
^DD(661.7,.01,1,1,2)="K ^RMPR(661.7,""B"",$E(X,1,30),DA)"
^DD(661.7,.01,3)="Answer must be 5-20 characters in length."
^DD(661.7,.01,21,0)="^.001^1^1^3050908^^^"
^DD(661.7,.01,21,1,0)="This field is a pointer to the Prosthetic HCPCs file (661.1)."
^DD(661.7,.01,"DT")="3050908"
^DD(661.7,1,0)="DATE&TIME STAMP^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(661.7,1,3)="(No range limit on date)"
^DD(661.7,1,"DT")="3010328"
^DD(661.7,2,0)="SEQUENCE^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1.N) X"
^DD(661.7,2,3)="Type a number between 1 and 99, 0 Decimal Digits"
^DD(661.7,2,21,0)="^^1^1^3010117^"
^DD(661.7,2,21,1,0)="This is the same SEQUENCE as in the PROSTHETIC TRANSACTION file (661.6)"
^DD(661.7,2,"DT")="3010328"
^DD(661.7,3,0)="HCPCS ITEM^RNJ10,0^^0;4^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(661.7,3,1,0)="^.1"
^DD(661.7,3,1,1,0)="661.7^D"
^DD(661.7,3,1,1,1)="S ^RMPR(661.7,""D"",$E(X,1,30),DA)="""""
^DD(661.7,3,1,1,2)="K ^RMPR(661.7,""D"",$E(X,1,30),DA)"
^DD(661.7,3,1,1,"DT")="3010406"
^DD(661.7,3,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(661.7,3,21,0)="^.001^2^2^3010223^^"
^DD(661.7,3,21,1,0)="This field is a pointer to the 661.12 sub-file of the PROSTHETIC HCPCS"
^DD(661.7,3,21,2,0)="file (661.1)."
^DD(661.7,3,"DT")="3010406"
^DD(661.7,4,0)="STATION^P4'^DIC(4,^0;5^Q"
^DD(661.7,4,21,0)="^^1^1^3010117^"
^DD(661.7,4,21,1,0)="This field is a pointer to the INSTITUTION file (4)."
^DD(661.7,4,"DT")="3010328"
^DD(661.7,5,0)="LOCATION^P661.5'^RMPR(661.5,^0;6^Q"
^DD(661.7,5,1,0)="^.1"
^DD(661.7,5,1,1,0)="661.7^C"
^DD(661.7,5,1,1,1)="S ^RMPR(661.7,""C"",$E(X,1,30),DA)="""""
^DD(661.7,5,1,1,2)="K ^RMPR(661.7,""C"",$E(X,1,30),DA)"
^DD(661.7,5,1,1,"DT")="3010406"
^DD(661.7,5,21,0)="^^1^1^3010117^"
^DD(661.7,5,21,1,0)="This field points to the PROSTHETIC STOCK LOCATION file (661.5)."
^DD(661.7,5,"DT")="3010406"
^DD(661.7,6,0)="QUANTITY^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"".""1.N) X"
^DD(661.7,6,3)="Type a number between -999999999 and 999999999, 0 Decimal Digits"
^DD(661.7,6,21,0)="^^1^1^3010117^"
^DD(661.7,6,21,1,0)="This field is the quantity of stock."
^DD(661.7,6,"DT")="3010117"
^DD(661.7,7,0)="VALUE^NJ12,2^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999999999)!(X<-999999999)!(X?.E1"".""3.N) X"
^DD(661.7,7,3)="Type a Dollar amount between -999999999 and 999999999, 2 Decimal Digits"
^DD(661.7,7,21,0)="^^2^2^3010117^"
^DD(661.7,7,21,1,0)="This field is the total dollar value of the stock item held on this"
^DD(661.7,7,21,2,0)="record."
^DD(661.7,7,"DT")="3010117"
^DD(661.7,8,0)="UNIT OF ISSUE^P420.5^PRCD(420.5,^0;9^Q"
^DD(661.7,8,21,0)="^^1^1^3021118^"
^DD(661.7,8,21,1,0)="This field is a pointer to Unit of Issue file (#420.5)."
^DD(661.7,8,"DT")="3021118"
^DD(661.7,"B","DATE&TIME STAMP",1)=""
^DD(661.7,"B","HCPCS",.01)=""
^DD(661.7,"B","HCPCS ITEM",3)=""
^DD(661.7,"B","LOCATION",5)=""
^DD(661.7,"B","QUANTITY",6)=""
^DD(661.7,"B","SEQUENCE",2)=""
^DD(661.7,"B","STATION",4)=""
^DD(661.7,"B","UNIT OF ISSUE",8)=""
^DD(661.7,"B","VALUE",7)=""
^DD(661.7,"GL",0,1,.01)=""
^DD(661.7,"GL",0,2,1)=""
^DD(661.7,"GL",0,3,2)=""
^DD(661.7,"GL",0,4,3)=""
^DD(661.7,"GL",0,5,4)=""
^DD(661.7,"GL",0,6,5)=""
^DD(661.7,"GL",0,7,6)=""
^DD(661.7,"GL",0,8,7)=""
^DD(661.7,"GL",0,9,8)=""
^DD(661.7,"IX",.01)=""
^DD(661.7,"IX",3)=""
^DD(661.7,"IX",5)=""
^DD(661.7,"RQ",.01)=""
^DD(661.7,"RQ",3)=""
^DD(661.8,0)="FIELD^^5^5"
^DD(661.8,0,"DDA")="N"
^DD(661.8,0,"DT")="3001129"
^DD(661.8,0,"IX","B",661.8,.01)=""
^DD(661.8,0,"NM","VENDOR PRODUCT HCPCS MAP")=""
^DD(661.8,0,"VR")="3.0"
^DD(661.8,0,"VRPK")="RMPR"
^DD(661.8,.01,0)="VENDOR UCC CODE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(661.8,.01,1,0)="^.1"
^DD(661.8,.01,1,1,0)="661.8^B"
^DD(661.8,.01,1,1,1)="S ^RMPR(661.8,""B"",$E(X,1,30),DA)="""""
^DD(661.8,.01,1,1,2)="K ^RMPR(661.8,""B"",$E(X,1,30),DA)"
^DD(661.8,.01,3)="Answer must be 3-30 characters in length"
^DD(661.8,.01,21,0)="^^3^3^3001129^"
^DD(661.8,.01,21,1,0)="This is a unique code assigned by the Uniform Code Council (UCC) to"
^DD(661.8,.01,21,2,0)="product vendors. This code is obtained from scanning in the bar code found"
^DD(661.8,.01,21,3,0)="with a vendor's products."
^DD(661.8,.01,"DT")="3001129"
^DD(661.8,2,0)="PRODUCT UCC CODE^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(661.8,2,3)="Answer must be 3-30 characters in length"
^DD(661.8,2,21,0)="^^2^2^3001129^"
^DD(661.8,2,21,1,0)="This is the unique UCC product code used by a given vendor. This code is"
^DD(661.8,2,21,2,0)="obtained by scanning the UPC barcode associated with an item."
^DD(661.8,2,"DT")="3001129"
^DD(661.8,3,0)="VENDOR VA CODE^P440'^PRC(440,^0;3^Q"
^DD(661.8,3,21,0)="^^1^1^3001129^"
^DD(661.8,3,21,1,0)="This field points to the Vendor file (440)."
^DD(661.8,3,"DT")="3001129"
^DD(661.8,4,0)="HCPCS CODE^P661.1'^RMPR(661.1,^0;4^Q"
^DD(661.8,4,21,0)="^^1^1^3001129^"
^DD(661.8,4,21,1,0)="This field points to the Prosthetic HCPCS file (661.1)."
^DD(661.8,4,"DT")="3001129"
^DD(661.8,5,0)="HCPCS ITEM^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(661.8,5,3)="Answer must be 1-30 characters in length"
^DD(661.8,5,21,0)="^^3^3^3010605^"
^DD(661.8,5,21,1,0)="This field is the HCPCS ITEM field held on the 661.12 sub"
^DD(661.8,5,21,2,0)="field  of the PROSTHETIC HCPCS file (661.1)."
^DD(661.8,5,21,3,0)="The value held is the sub file's IEN not the ITEM text field."
^DD(661.8,5,"DT")="3010605"
^DD(661.8,"B","HCPCS CODE",4)=""
^DD(661.8,"B","HCPCS ITEM",5)=""
^DD(661.8,"B","PRODUCT UCC CODE",2)=""
^DD(661.8,"B","VENDOR UCC CODE",.01)=""
^DD(661.8,"B","VENDOR VA CODE",3)=""
^DD(661.8,"GL",0,1,.01)=""
^DD(661.8,"GL",0,2,2)=""
^DD(661.8,"GL",0,3,3)=""
^DD(661.8,"GL",0,4,4)=""
^DD(661.8,"GL",0,5,5)=""
^DD(661.8,"IX",.01)=""
^DD(661.8,"RQ",.01)=""
^DD(661.9,0)="FIELD^^8^6"
^DD(661.9,0,"DDA")="N"
^DD(661.9,0,"DT")="3010214"
^DD(661.9,0,"IX","B",661.9,.01)=""
^DD(661.9,0,"NM","PROSTHETICS HCPCS RUNNING BALANCE")=""
^DD(661.9,0,"VR")="3.0"
^DD(661.9,0,"VRPK")="RMPR"
^DD(661.9,.01,0)="DATE^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(661.9,.01,1,0)="^.1"
^DD(661.9,.01,1,1,0)="661.9^B"
^DD(661.9,.01,1,1,1)="S ^RMPR(661.9,""B"",$E(X,1,30),DA)="""""
^DD(661.9,.01,1,1,2)="K ^RMPR(661.9,""B"",$E(X,1,30),DA)"
^DD(661.9,.01,3)="(No range limit on date)"
^DD(661.9,.01,"DT")="3010222"
^DD(661.9,1,0)="HCPCS^RF^^0;2^K:$L(X)>20!($L(X)<5) X"
^DD(661.9,1,3)="Answer must be 5-20 characters in length."
^DD(661.9,1,21,0)="^.001^1^1^3050908^^"
^DD(661.9,1,21,1,0)="This is the HCPCS name as it shows in file #661.1."
^DD(661.9,1,"DT")="3050908"
^DD(661.9,2,0)="HCPCS ITEM^RNJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(661.9,2,3)="Type a number between 1 and 999999999, 0 Decimal Digits"
^DD(661.9,2,21,0)="^^1^1^3010116^"
^DD(661.9,2,21,1,0)="This is a pointer to ITEM sub-record (#661.12) in file (#661.1)."
^DD(661.9,2,"DT")="3010222"
^DD(661.9,4,0)="STATION^P4'^DIC(4,^0;5^Q"
^DD(661.9,4,21,0)="^^1^1^3010116^"
^DD(661.9,4,21,1,0)="This is a pointer to Institution file (#4)."
^DD(661.9,4,"DT")="3010222"
^DD(661.9,7,0)="TOTAL QUANTITY^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(661.9,7,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(661.9,7,21,0)="^^2^2^3010116^"
^DD(661.9,7,21,1,0)="This is the total quantity of an item for only one location and"
^DD(661.9,7,21,2,0)="station."
^DD(661.9,7,"DT")="3010116"
^DD(661.9,8,0)="TOTAL VALUE^NJ10,2^^0;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(661.9,8,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(661.9,8,21,0)="^^2^2^3010116^"
^DD(661.9,8,21,1,0)="This is the total value or cost of an item for only one location and"
^DD(661.9,8,21,2,0)="station."
^DD(661.9,8,"DT")="3010116"
^DD(661.9,"B","DATE",.01)=""
^DD(661.9,"B","HCPCS",1)=""
^DD(661.9,"B","HCPCS ITEM",2)=""
^DD(661.9,"B","STATION",4)=""
^DD(661.9,"B","TOTAL QUANTITY",7)=""
^DD(661.9,"B","TOTAL VALUE",8)=""
^DD(661.9,"GL",0,1,.01)=""
^DD(661.9,"GL",0,2,1)=""
^DD(661.9,"GL",0,3,2)=""
^DD(661.9,"GL",0,5,4)=""
^DD(661.9,"GL",0,8,7)=""
^DD(661.9,"GL",0,9,8)=""
^DD(661.9,"IX",.01)=""
^DD(661.9,"RQ",.01)=""
^DD(661.9,"RQ",1)=""
^DD(661.9,"RQ",2)=""
^DD(662,0)="FIELD^^6^6"
^DD(662,0,"DDA")="N"
^DD(662,0,"IX","B",662,.01)=""
^DD(662,0,"NM","PROS DISABILITY CODE")=""
^DD(662,0,"PT",664.15,.01)=""
^DD(662,0,"PT",665.01,.01)=""
^DD(662,0,"PT",791810,2.01)=""
^DD(662,0,"PT",791810.0101,3.02)=""
^DD(662,0,"VR")="3.0"
^DD(662,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(662,.001,3)="Type a whole number between 1 and 9999"
^DD(662,.001,21,0)="^^1^1^2911205^"
^DD(662,.001,21,1,0)="This is the internal number of the Prosthetic Disability Code."
^DD(662,.01,0)="ARABIC DISABILITY NAME^RF^^0;1^K:$L(X)>12!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(662,.01,1,0)="^.1"
^DD(662,.01,1,1,0)="662^B"
^DD(662,.01,1,1,1)="S ^RMPR(662,""B"",$E(X,1,30),DA)="""""
^DD(662,.01,1,1,2)="K ^RMPR(662,""B"",$E(X,1,30),DA)"
^DD(662,.01,3)="Answer must be 3-12 Character in length."
^DD(662,.01,21,0)="^^2^2^2950414^^^^"
^DD(662,.01,21,1,0)="This is the Arabic initials for a disability code, such as AMP/LAE for"
^DD(662,.01,21,2,0)="Amputee/Arm, Left, Above Elbow."
^DD(662,.01,"DEL",.01,0)="I 1 W "" CANNOT DELETE."""
^DD(662,4,0)="MAJOR DISABILITY CODE SYMBOLS^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(662,4,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(662,4,21,0)="^^2^2^2950417^^^"
^DD(662,4,21,1,0)="Contains the Major Disability Code Symbol for the Prosthetics Disability"
^DD(662,4,21,2,0)="Code (e.g. AMPUTEE)."
^DD(662,5,0)="GROUP EXTENT OF DISABILITY^F^^0;3^K:$L(X)>100!($L(X)<2) X"
^DD(662,5,3)="ANSWER MUST BE 2-100 CHARACTERS IN LENGTH"
^DD(662,5,21,0)="^^2^2^2950417^^^^"
^DD(662,5,21,1,0)="Contains the area of the Veterans disability."
^DD(662,5,21,2,0)="Reference to the parts of body disabled."
^DD(662,5,23,0)="^^1^1^2950417^^^^"
^DD(662,5,23,1,0)="  "
^DD(662,5.5,0)="DISABILITY GROUPING^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(662,5.5,1,0)="^.1^^0"
^DD(662,5.5,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(662,5.5,21,0)="^^2^2^2950417^^^^"
^DD(662,5.5,21,1,0)="Contains the Number 1 through 10.  The 10 major disability groupings are"
^DD(662,5.5,21,2,0)="displayed on the VAF 10-7306d AMIS report."
^DD(662,5.5,"DT")="2920701"
^DD(662,6,0)="CORRESPONDING MAS DISABILITY^662.06P^^1;0"
^DD(662,"B","ARABIC DISABILITY NAME",.01)=""
^DD(662,"B","CORRESPONDING MAS DISABILITY",6)=""
^DD(662,"B","DISABILITY GROUPING",5.5)=""
^DD(662,"B","GROUP EXTENT OF DISABILITY",5)=""
^DD(662,"B","MAJOR DISABILITY CODE SYMBOLS",4)=""
^DD(662,"B","NUMBER",.001)=""
^DD(662,"GL",0,1,.01)=""
^DD(662,"GL",0,2,4)=""
^DD(662,"GL",0,3,5)=""
^DD(662,"GL",0,4,5.5)=""
^DD(662,"GL",1,0,6)=""
^DD(662,"IX",.01)=""
^DD(662,"RQ",.01)=""
^DD(662,"SB",662.06,6)=""
^DD(662.06,0)="CORRESPONDING MAS DISABILITY SUB-FIELD^^.01^1"
^DD(662.06,0,"IX","B",662.06,.01)=""
^DD(662.06,0,"NM","CORRESPONDING MAS DISABILITY")=""
^DD(662.06,0,"UP")="662"
^DD(662.06,.01,0)="CORRESPONDING MAS DISABILITY^MP31'^DIC(31,^0;1^Q"
^DD(662.06,.01,1,0)="^.1"
^DD(662.06,.01,1,1,0)="662.06^B"
^DD(662.06,.01,1,1,1)="S ^RMPR(662,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(662.06,.01,1,1,2)="K ^RMPR(662,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(662.06,.01,3)="Enter disability from MAS which applies to this Prosthetic Disability.  There may be more than one."
^DD(662.06,.01,21,0)="^^2^2^2930416^^"
^DD(662.06,.01,21,1,0)="Contains the Corresponding MAS disability code that is related to the"
^DD(662.06,.01,21,2,0)="Prosthetics Disability Code."
^DD(662.06,.01,"DT")="2870924"
^DD(662.06,"B","CORRESPONDING MAS DISABILITY",.01)=""
^DD(662.06,"GL",0,1,.01)=""
^DD(662.06,"IX",.01)=""
^DD(663,0)="FIELD^^3.5^5"
^DD(663,0,"DDA")="N"
^DD(663,0,"DT")="2931112"
^DD(663,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(663,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(663,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(663,0,"IX","B",663,.01)=""
^DD(663,0,"IX","C",663,2)=""
^DD(663,0,"IX","D",663,3)=""
^DD(663,0,"IX","E",663,3.5)=""
^DD(663,0,"NM","PROS AMIS CODES")=""
^DD(663,0,"PT",660,52)=""
^DD(663,0,"PT",660,64)=""
^DD(663,0,"PT",660,74)=""
^DD(663,0,"PT",660,75)=""
^DD(663,0,"PT",660,76)=""
^DD(663,0,"PT",660,77)=""
^DD(663,0,"PT",661,1)=""
^DD(663,0,"PT",661,2)=""
^DD(663,0,"PT",661,3)=""
^DD(663,0,"PT",661,4)=""
^DD(663,0,"PT",661,5)=""
^DD(663,0,"PT",661,6)=""
^DD(663,0,"PT",663.21,.01)=""
^DD(663,0,"PT",663.22,.01)=""
^DD(663,0,"PT",664.4,16)=""
^DD(663,0,"VR")="3.0"
^DD(663,.01,0)="CODE^RFX^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(663,.01,1,0)="^.1"
^DD(663,.01,1,1,0)="663^B"
^DD(663,.01,1,1,1)="S ^RMPR(663,""B"",$E(X,1,30),DA)="""""
^DD(663,.01,1,1,2)="K ^RMPR(663,""B"",$E(X,1,30),DA)"
^DD(663,.01,3)="Enter the AMIS code line number in the format defined by Prosthetic regulations."
^DD(663,.01,21,0)="^^4^4^2911205^^^^"
^DD(663,.01,21,1,0)="The CODE is in the format ""01 A"" where the first two characters are numeric"
^DD(663,.01,21,2,0)="(the AMIS line number) followed by one space and then alphabetic characters."
^DD(663,.01,21,3,0)="CODE is needed for sorting in the proper sequence on reports, since the"
^DD(663,.01,21,4,0)="computer sorts 1A, 1B, 2, 3 as 2, 3, 1A, 1B. "
^DD(663,.01,"DEL",.01,0)="I 1 W "" CANNOT DELETE."""
^DD(663,.01,"DT")="2910307"
^DD(663,1,0)="RATIO^FX^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(663,1,3)="Answer must be 1-3 characters in length."
^DD(663,1,21,0)="^^1^1^2910915^^^"
^DD(663,1,21,1,0)="This is the national ratio set by VACO for AMIS calculations."
^DD(663,1,"DT")="2911126"
^DD(663,2,0)="LINE DESCRIPTION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(663,2,1,0)="^.1"
^DD(663,2,1,1,0)="663^C"
^DD(663,2,1,1,1)="S ^RMPR(663,""C"",$E(X,1,30),DA)="""""
^DD(663,2,1,1,2)="K ^RMPR(663,""C"",$E(X,1,30),DA)"
^DD(663,2,1,1,"%D",0)="^^2^2^2930519^^"
^DD(663,2,1,1,"%D",1,0)="Allows lookups of Prosthetic Amis Codes by the actual Prosthetic Amis code"
^DD(663,2,1,1,"%D",2,0)="Description."
^DD(663,2,1,1,"DT")="2910419"
^DD(663,2,3)="Answer must be 1-40 characters in length."
^DD(663,2,21,0)="^^1^1^2910726^"
^DD(663,2,21,1,0)="This is the AMIS Line Item Description."
^DD(663,2,"DT")="2910419"
^DD(663,3,0)="ISSUE/REPAIR CODE^S^A:ADMINISTRATIVE ISSUE;AR:ADMINISTRATIVE REPAIR;O:ORTHOTIC LAB;R:RESTORATION LAB;OR:ORTHOTIC LAB REPAIR;RR:RESTORATION LAB REPAIR;^0;4^Q"
^DD(663,3,1,0)="^.1"
^DD(663,3,1,1,0)="663^D"
^DD(663,3,1,1,1)="S ^RMPR(663,""D"",$E(X,1,30),DA)="""""
^DD(663,3,1,1,2)="K ^RMPR(663,""D"",$E(X,1,30),DA)"
^DD(663,3,1,1,"%D",0)="^^3^3^2930519^^"
^DD(663,3,1,1,"%D",1,0)="Allows lookups of Amis Codes by New Admin Codes, Repair Admin Codes, "
^DD(663,3,1,1,"%D",2,0)="Orthotic Lab Codes, Restoration Lab Codes, and Shoe Last Codes."
^DD(663,3,1,1,"%D",3,0)="This x-ref also groups Amis codes together by their respective type."
^DD(663,3,3)="Enter code for new AMIS group."
^DD(663,3,21,0)="^^2^2^2911205^"
^DD(663,3,21,1,0)="This is a code defining what group within prosthetics the AMIS code will"
^DD(663,3,21,2,0)="be counted."
^DD(663,3,"DT")="2931112"
^DD(663,3.5,0)="AMIS SEGMENT NO^NJ3,0^^0;5^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(663,3.5,1,0)="^.1"
^DD(663,3.5,1,1,0)="663^E"
^DD(663,3.5,1,1,1)="S ^RMPR(663,""E"",$E(X,1,30),DA)="""""
^DD(663,3.5,1,1,2)="K ^RMPR(663,""E"",$E(X,1,30),DA)"
^DD(663,3.5,1,1,"%D",0)="^^3^3^2940924^^^^"
^DD(663,3.5,1,1,"%D",1,0)="This x-ref is used to separate Prosthetics AMIS codes by the actual"
^DD(663,3.5,1,1,"%D",2,0)="AMIS segment number.  Used for sorting Prosthetics AMIS Codes by segment"
^DD(663,3.5,1,1,"%D",3,0)="number when code sheets are generated."
^DD(663,3.5,1,1,"DT")="2930324"
^DD(663,3.5,3)="Type a Number between 122 and 128, 0 Decimal Digits"
^DD(663,3.5,21,0)="^^2^2^2930416^"
^DD(663,3.5,21,1,0)="This fields contains the segment number for the related disability codes."
^DD(663,3.5,21,2,0)="Used for the Generation of Generic Code Sheets."
^DD(663,3.5,"DT")="2930324"
^DD(663,"B","AMIS SEGMENT NO",3.5)=""
^DD(663,"B","CODE",.01)=""
^DD(663,"B","ISSUE/REPAIR CODE",3)=""
^DD(663,"B","LINE DESCRIPTION",2)=""
^DD(663,"B","RATIO",1)=""
^DD(663,"GL",0,1,.01)=""
^DD(663,"GL",0,2,1)=""
^DD(663,"GL",0,3,2)=""
^DD(663,"GL",0,4,3)=""
^DD(663,"GL",0,5,3.5)=""
^DD(663,"IX",.01)=""
^DD(663,"IX",2)=""
^DD(663,"IX",3)=""
^DD(663,"IX",3.5)=""
^DD(663,"RQ",.01)=""
^DD(663.2,0)="FIELD^^4^6"
^DD(663.2,0,"DDA")="N"
^DD(663.2,0,"DT")="2910721"
^DD(663.2,0,"IX","B",663.2,.01)=""
^DD(663.2,0,"IX","C",663.21,.01)=""
^DD(663.2,0,"IX","D",663.22,.01)=""
^DD(663.2,0,"NM","ACTIVITIES NEW/REPAIR WORKSHEET TOTALS")=""
^DD(663.2,0,"VR")="3.0"
^DD(663.2,.01,0)="DAY OF AMIS RUN^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(663.2,.01,1,0)="^.1"
^DD(663.2,.01,1,1,0)="663.2^B"
^DD(663.2,.01,1,1,1)="S ^RMPRA(663.2,""B"",$E(X,1,30),DA)="""""
^DD(663.2,.01,1,1,2)="K ^RMPRA(663.2,""B"",$E(X,1,30),DA)"
^DD(663.2,.01,3)="This is the day of the week AMIS was run."
^DD(663.2,.01,21,0)="^^1^1^2911205^"
^DD(663.2,.01,21,1,0)="This is the day of the week AMIS was run."
^DD(663.2,.05,0)="TRANSMISSION^S^1:DISABLED;^0;2^Q"
^DD(663.2,.05,3)="Enter 1 to disable transmission of AMIS."
^DD(663.2,.05,21,0)="^^1^1^2911205^^"
^DD(663.2,.05,21,1,0)="This field will disable the transmission of AMIS."
^DD(663.2,.05,"DT")="2910109"
^DD(663.2,1,0)="NEW AMIS CATEGORY^663.21P^^1;0"
^DD(663.2,1,21,0)="^^1^1^2911205^"
^DD(663.2,1,21,1,0)="This field holds the new AMIS count for the current report."
^DD(663.2,1,"DT")="2941110"
^DD(663.2,2,0)="REPAIR AMIS CATEGORY^663.22P^^2;0"
^DD(663.2,2,21,0)="^^4^4^2941110^^"
^DD(663.2,2,21,1,0)="This field holds all repair AMIS category information for the current report"
^DD(663.2,2,21,2,0)="This field indicates which Amis category the repair should be counted under "
^DD(663.2,2,21,3,0)="for reporting purposes."
^DD(663.2,2,21,4,0)="2"
^DD(663.2,2,"DT")="2941110"
^DD(663.2,3,0)="START DATE^D^^3;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(663.2,3,3)="Enter beginning date of AMIS reporting period."
^DD(663.2,3,21,0)="^^1^1^2911205^"
^DD(663.2,3,21,1,0)="Holds the starting date of the current AMIS report."
^DD(663.2,3,"DT")="2910123"
^DD(663.2,4,0)="STOP DATE^D^^3;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(663.2,4,3)="Enter the ending date of the current AMIS reporting period."
^DD(663.2,4,21,0)="^^1^1^2911205^"
^DD(663.2,4,21,1,0)="Holds the stop date of the current AMIS report."
^DD(663.2,4,"DT")="2910123"
^DD(663.2,"B","DAY OF AMIS RUN",.01)=""
^DD(663.2,"B","NEW AMIS CATEGORY",1)=""
^DD(663.2,"B","REPAIR AMIS CATEGORY",2)=""
^DD(663.2,"B","START DATE",3)=""
^DD(663.2,"B","STOP DATE",4)=""
^DD(663.2,"B","TRANSMISSION",.05)=""
^DD(663.2,"GL",0,1,.01)=""
^DD(663.2,"GL",0,2,.05)=""
^DD(663.2,"GL",1,0,1)=""
^DD(663.2,"GL",2,0,2)=""
^DD(663.2,"GL",3,1,3)=""
^DD(663.2,"GL",3,2,4)=""
^DD(663.2,"IX",.01)=""
^DD(663.2,"RQ",.01)=""
^DD(663.2,"SB",663.21,1)=""
^DD(663.2,"SB",663.22,2)=""
^DD(663.21,0)="NEW AMIS CATEGORY SUB-FIELD^^15^16"
^DD(663.21,0,"IX","B",663.21,.01)=""
^DD(663.21,0,"NM","NEW AMIS CATEGORY")=""
^DD(663.21,0,"UP")="663.2"
^DD(663.21,.01,0)="AMIS CATEGORY^P663'^RMPR(663,^0;1^Q"
^DD(663.21,.01,1,0)="^.1"
^DD(663.21,.01,1,1,0)="663.21^B"
^DD(663.21,.01,1,1,1)="S ^RMPRA(663.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(663.21,.01,1,1,2)="K ^RMPRA(663.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(663.21,.01,1,2,0)="663.2^C"
^DD(663.21,.01,1,2,1)="S ^RMPRA(663.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(663.21,.01,1,2,2)="K ^RMPRA(663.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(663.21,.01,1,2,"%D",0)="^^3^3^2930306^^"
^DD(663.21,.01,1,2,"%D",1,0)="Allows sorting the whole file by New Amis Category Codes.  New item"
^DD(663.21,.01,1,2,"%D",2,0)="transactions are counted after Amis is run and Placed on the Generic Code"
^DD(663.21,.01,1,2,"%D",3,0)="Sheets."
^DD(663.21,.01,1,2,"DT")="2920909"
^DD(663.21,.01,3)="Please Enter the Prosthetic Amis Code."
^DD(663.21,.01,"DT")="2941110"
^DD(663.21,1,0)="VA NEW ISSUES^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,1,21,0)="^^3^3^2941110^^^"
^DD(663.21,1,21,1,0)="Holds total VA new issues."
^DD(663.21,1,21,2,0)="These are all the new VA source items getting to the patient for the first "
^DD(663.21,1,21,3,0)="time."
^DD(663.21,1,"DT")="2941110"
^DD(663.21,2,0)="COMMERCIAL^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,2,21,0)="^^1^1^2911205^"
^DD(663.21,2,21,1,0)="Holds totals for Commercial issues."
^DD(663.21,2,"DT")="2911205"
^DD(663.21,3,0)="BUDGETED COST^NJ8,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(663.21,3,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(663.21,3,21,0)="^^1^1^2911205^"
^DD(663.21,3,21,1,0)="Holds budgeted cost totals."
^DD(663.21,4,0)="SC/OP^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,4,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,4,21,0)="^^1^1^2911205^"
^DD(663.21,4,21,1,0)="Holds SC/OP totals."
^DD(663.21,5,0)="NSC/OP^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,5,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,5,21,0)="^^1^1^2911205^"
^DD(663.21,5,21,1,0)="Holds NSC/OP totals."
^DD(663.21,6,0)="SC/IP^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,6,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,6,21,0)="^^1^1^2911205^"
^DD(663.21,6,21,1,0)="Holds SC/IP totals."
^DD(663.21,7,0)="NSC/IP^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,7,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,7,21,0)="^^1^1^2911205^"
^DD(663.21,7,21,1,0)="Holds NSC/IP totals."
^DD(663.21,8,0)="SPECIAL LEGISLATION^NJ5,0^^0;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,8,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,8,21,0)="^^1^1^2941110^^^"
^DD(663.21,8,21,1,0)="Holds Special Legislation totals."
^DD(663.21,8,"DT")="2941110"
^DD(663.21,9,0)="A&A^NJ5,0^^0;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,9,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,9,21,0)="^^1^1^2911205^"
^DD(663.21,9,21,1,0)="Holds Aid and Attendance totals."
^DD(663.21,10,0)="PHC^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,10,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,10,21,0)="^^1^1^2911205^"
^DD(663.21,10,21,1,0)="Holds Post Hospital Care totals."
^DD(663.21,11,0)="TOTAL FURNISHED^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,11,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(663.21,11,21,0)="^^1^1^2911205^"
^DD(663.21,11,21,1,0)="Holds total items furnished for an AMIS category."
^DD(663.21,12,0)="NEW CASES^NJ5,0^^0;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.21,12,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.21,12,21,0)="^^1^1^2911205^"
^DD(663.21,12,21,1,0)="Holds the total number of new cases for an AMIS category."
^DD(663.21,13,0)="AVG COST^CJ8,2^^ ; ^X ^DD(663.21,13,9.2) S Y=X,X=Y(663.21,13,2),X=X,X=$S(Y:X/Y,1:""*******"") S X=$J(X,0,2)"
^DD(663.21,13,9)="^"
^DD(663.21,13,9.1)="BUDGETED COST/(VA+COMMER)"
^DD(663.21,13,9.2)="S Y(663.21,13,1)=$S($D(^RMPRA(663.2,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(663.21,13,1),U,4),Y(663.21,13,2)=X S X=$P(Y(663.21,13,1),U,2)+$P(Y(663.21,13,1),U,3)"
^DD(663.21,13,21,0)="^^1^1^2911205^"
^DD(663.21,13,21,1,0)="Holds the average cost for items purchased for an AMIS category."
^DD(663.21,13,"DT")="2911205"
^DD(663.21,14,0)="TOTAL ITEMS^CJ8^^ ; ^S Y(663.21,14,1)=$S($D(^RMPRA(663.2,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(663.21,14,1),U,2)+$P(Y(663.21,14,1),U,3)"
^DD(663.21,14,9)="^"
^DD(663.21,14,9.1)="VA+COMMER"
^DD(663.21,14,21,0)="^^1^1^2911205^"
^DD(663.21,14,21,1,0)="Holds the total items furnished for an AMIS category."
^DD(663.21,15,0)="TOTAL DIS^CJ8^^ ; ^S Y(663.21,15,1)=$S($D(^RMPRA(663.2,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(663.21,15,1),U,5)+$P(Y(663.21,15,1),U,6)+$P(Y(663.21,15,1),U,7)+$P(Y(663.21,15,1),U,8)"
^DD(663.21,15,9)="^"
^DD(663.21,15,9.1)="SC/OP+NSC/OP+SC/IP+NSC/IP"
^DD(663.21,15,21,0)="^^1^1^2911205^"
^DD(663.21,15,21,1,0)="Holds the total disabilities served for an AMIS category."
^DD(663.21,"B","A&A",9)=""
^DD(663.21,"B","AMIS CATEGORY",.01)=""
^DD(663.21,"B","AVG COST",13)=""
^DD(663.21,"B","BUDGETED COST",3)=""
^DD(663.21,"B","COMMERCIAL",2)=""
^DD(663.21,"B","NEW CASES",12)=""
^DD(663.21,"B","NSC/IP",7)=""
^DD(663.21,"B","NSC/OP",5)=""
^DD(663.21,"B","PHC",10)=""
^DD(663.21,"B","SC/IP",6)=""
^DD(663.21,"B","SC/OP",4)=""
^DD(663.21,"B","SPECIAL LEGISLATION",8)=""
^DD(663.21,"B","TOTAL DIS",15)=""
^DD(663.21,"B","TOTAL FURNISHED",11)=""
^DD(663.21,"B","TOTAL ITEMS",14)=""
^DD(663.21,"B","VA NEW ISSUES",1)=""
^DD(663.21,"GL",0,1,.01)=""
^DD(663.21,"GL",0,2,1)=""
^DD(663.21,"GL",0,3,2)=""
^DD(663.21,"GL",0,4,3)=""
^DD(663.21,"GL",0,5,4)=""
^DD(663.21,"GL",0,6,5)=""
^DD(663.21,"GL",0,7,6)=""
^DD(663.21,"GL",0,8,7)=""
^DD(663.21,"GL",0,9,8)=""
^DD(663.21,"GL",0,10,9)=""
^DD(663.21,"GL",0,11,10)=""
^DD(663.21,"GL",0,12,11)=""
^DD(663.21,"GL",0,13,12)=""
^DD(663.21,"IX",.01)=""
^DD(663.22,0)="REPAIR AMIS CATEGORY SUB-FIELD^^14^15"
^DD(663.22,0,"IX","B",663.22,.01)=""
^DD(663.22,0,"NM","REPAIR AMIS CATEGORY")=""
^DD(663.22,0,"UP")="663.2"
^DD(663.22,.01,0)="REPAIR AMIS CAT^P663'^RMPR(663,^0;1^Q"
^DD(663.22,.01,1,0)="^.1"
^DD(663.22,.01,1,1,0)="663.22^B"
^DD(663.22,.01,1,1,1)="S ^RMPRA(663.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(663.22,.01,1,1,2)="K ^RMPRA(663.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(663.22,.01,1,2,0)="663.2^D"
^DD(663.22,.01,1,2,1)="S ^RMPRA(663.2,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(663.22,.01,1,2,2)="K ^RMPRA(663.2,""D"",$E(X,1,30),DA(1),DA)"
^DD(663.22,.01,1,2,"%D",0)="^^2^2^2930519^^"
^DD(663.22,.01,1,2,"%D",1,0)="Allows sorting the whole file by Repair Amis Category Code.  Gathers up all"
^DD(663.22,.01,1,2,"%D",2,0)="Repair transactions after Amis is run to be placed on Generic Code Sheets."
^DD(663.22,.01,1,2,"DT")="2920909"
^DD(663.22,.01,"DT")="2920909"
^DD(663.22,1,0)="VA^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(663.22,1,21,0)="^^1^1^2911205^"
^DD(663.22,1,21,1,0)="This field holds the number of VA issues for a repair AMIS category."
^DD(663.22,2,0)="PSC CARD^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(663.22,2,21,0)="^^2^2^2911205^"
^DD(663.22,2,21,1,0)="This field holds the number of Prosthetic Service Card issues for a"
^DD(663.22,2,21,2,0)="repair AMIS category."
^DD(663.22,2,"DT")="2911205"
^DD(663.22,3,0)="PSC COST^NJ8,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(663.22,3,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(663.22,3,21,0)="^^2^2^2911205^"
^DD(663.22,3,21,1,0)="This field holds the total cost of PSC issues for a repair AMIS"
^DD(663.22,3,21,2,0)="category."
^DD(663.22,4,0)="2421^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,4,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.22,4,21,0)="^^2^2^2911205^"
^DD(663.22,4,21,1,0)="This field holds the number of 2421 forms done for a repair AMIS"
^DD(663.22,4,21,2,0)="category."
^DD(663.22,5,0)="OTHER/COMMER^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,5,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.22,5,21,0)="^^2^2^2911205^"
^DD(663.22,5,21,1,0)="This field holds the total number of Other Commercial issues for repair"
^DD(663.22,5,21,2,0)="AMIS categories."
^DD(663.22,6,0)="COMMER/COST^NJ8,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(663.22,6,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(663.22,6,21,0)="^^2^2^2911205^"
^DD(663.22,6,21,1,0)="This field holds the total Commercial Cost of issues for a repair"
^DD(663.22,6,21,2,0)="AMIS category."
^DD(663.22,7,0)="TOTAL NUMBER^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,7,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.22,7,21,0)="^^1^1^2911205^"
^DD(663.22,7,21,1,0)="This field holds the total number of issues for a repair AMIS category."
^DD(663.22,8,0)="TOTAL COST^CJ8^^ ; ^S Y(663.22,8,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(663.22,8,1),U,4)+$P(Y(663.22,8,1),U,7)"
^DD(663.22,8,9)="^"
^DD(663.22,8,9.1)="PSC COST+COMMER/COST"
^DD(663.22,8,21,0)="^^1^1^2930306^"
^DD(663.22,8,21,1,0)="Contains the total cost of items purchased under the specified category code."
^DD(663.22,9,0)="SC/OP^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,9,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(663.22,9,21,0)="^^1^1^2911205^"
^DD(663.22,9,21,1,0)="Holds the total issues for SC/OP for a repair AMIS category."
^DD(663.22,10,0)="NSC/OP^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,10,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.22,10,21,0)="^^1^1^2911205^"
^DD(663.22,10,21,1,0)="Holds the total NSC/OP issues for a repair AMIS category."
^DD(663.22,11,0)="SC/IP^NJ5,0^^0;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,11,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.22,11,21,0)="^^1^1^2911205^"
^DD(663.22,11,21,1,0)="Holds the total SC/IP issues for a repair AMIS category."
^DD(663.22,12,0)="NSC/IP^NJ5,0^^0;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(663.22,12,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(663.22,12,21,0)="^^1^1^2911205^"
^DD(663.22,12,21,1,0)="Holds the total NSC/IP issues for a repair AMIS category."
^DD(663.22,13,0)="TOTAL DIS^CJ8^^ ; ^S Y(663.22,13,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(663.22,13,1),U,10)+$P(Y(663.22,13,1),U,11)+$P(Y(663.22,13,1),U,12)+$P(Y(663.22,13,1),U,13)"
^DD(663.22,13,9)="^"
^DD(663.22,13,9.1)="SC/OP+NSC/OP+SC/IP+NSC/IP"
^DD(663.22,13,21,0)="^^1^1^2911205^"
^DD(663.22,13,21,1,0)="Holds the total Disabilities Served for a repair AMIS category."
^DD(663.22,14,0)="AVG CST^CJ8^^ ; ^S Y(663.22,14,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(663.22,14,1),U,4)+$P(Y(663.22,14,1),U,7),X=$S($P(Y(663.22,14,1),U,8):X/$P(Y(663.22,14,1),U,8),1:""*******"")"
^DD(663.22,14,9)="^"
^DD(663.22,14,9.1)="(PSC COST+COMMER/COST)/TOTAL NUMBER"
^DD(663.22,14,9.2)="S Y(663.22,14,1)=$S($D(^RMPRA(663.2,D0,2,D1,0)):^(0),1:"""") S X=$P(Y(663.22,14,1),U,8),Y(663.22,14,2)=X S X=$P(Y(663.22,14,1),U,4)+$P(Y(663.22,14,1),U,7)"
^DD(663.22,14,21,0)="^^1^1^2911205^"
^DD(663.22,14,21,1,0)="Holds the average cost of items issued for this repair AMIS category."
^DD(663.22,14,"DT")="2901105"
^DD(663.22,"B",2421,4)=""
^DD(663.22,"B","AVG CST",14)=""
^DD(663.22,"B","COMMER/COST",6)=""
^DD(663.22,"B","NSC/IP",12)=""
^DD(663.22,"B","NSC/OP",10)=""
^DD(663.22,"B","OTHER/COMMER",5)=""
^DD(663.22,"B","PSC CARD",2)=""
^DD(663.22,"B","PSC COST",3)=""
^DD(663.22,"B","REPAIR AMIS CAT",.01)=""
^DD(663.22,"B","SC/IP",11)=""
^DD(663.22,"B","SC/OP",9)=""
^DD(663.22,"B","TOTAL COST",8)=""
^DD(663.22,"B","TOTAL DIS",13)=""
^DD(663.22,"B","TOTAL NUMBER",7)=""
^DD(663.22,"B","VA",1)=""
^DD(663.22,"GL",0,1,.01)=""
^DD(663.22,"GL",0,2,1)=""
^DD(663.22,"GL",0,3,2)=""
^DD(663.22,"GL",0,4,3)=""
^DD(663.22,"GL",0,5,4)=""
^DD(663.22,"GL",0,6,5)=""
^DD(663.22,"GL",0,7,6)=""
^DD(663.22,"GL",0,8,7)=""
^DD(663.22,"GL",0,10,9)=""
^DD(663.22,"GL",0,11,10)=""
^DD(663.22,"GL",0,12,11)=""
^DD(663.22,"GL",0,13,12)=""
^DD(663.22,"IX",.01)=""
^DD(663.3,0)="FIELD^^28^29"
^DD(663.3,0,"DDA")="N"
^DD(663.3,0,"IX","B",663.3,.01)=""
^DD(663.3,0,"NM","PROSTHETIC DISABILITY WORKSHEET")=""
^DD(663.3,0,"VR")="3.0"
^DD(663.3,.01,0)="CATEGORY^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(663.3,.01,1,0)="^.1"
^DD(663.3,.01,1,1,0)="663.3^B"
^DD(663.3,.01,1,1,1)="S ^RMPRA(663.3,""B"",$E(X,1,30),DA)="""""
^DD(663.3,.01,1,1,2)="K ^RMPRA(663.3,""B"",$E(X,1,30),DA)"
^DD(663.3,.01,3)="Answer must be 3-50 characters in length."
^DD(663.3,.01,21,0)="^^1^1^2920712^"
^DD(663.3,.01,21,1,0)="Contains the Name of the Disability grouping.  This field should not be deleted or changed."
^DD(663.3,.01,"DT")="2920705"
^DD(663.3,1,0)="SC VIETNAM 1ST QTR^NJ5,0^^1ST;1^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,1,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,1,21,0)="^^1^1^2920712^^^^"
^DD(663.3,1,21,1,0)="Contains the new balance from the 4th quarters Form 7306d for SC Vietnam."
^DD(663.3,1,"DT")="2920705"
^DD(663.3,2,0)="ALL OTHER SC 1ST QTR^NJ5,0^^1ST;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,2,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,2,21,0)="^^1^1^2920712^^^^"
^DD(663.3,2,21,1,0)="Contains the new balance from the 4th quarters Form 7306d for All Other SC."
^DD(663.3,3,0)="NSC A&A 1ST QTR^NJ5,0^^1ST;3^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,3,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,3,21,0)="^^1^1^2920712^^^"
^DD(663.3,3,21,1,0)="Contains the new balance from the 4th quarters Form 7306d for NSC A&A."
^DD(663.3,4,0)="OTHERS ELIGIBLE 1ST QTR^NJ5,0^^1ST;4^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,4,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,4,21,0)="^^1^1^2920712^^"
^DD(663.3,4,21,1,0)="Contains the new balance from the 4th quarters Form 7306d for Others Eligible."
^DD(663.3,5,0)="SC VIETNAM 2ND QTR^NJ5,0^^2ND;1^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,5,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,5,21,0)="^^1^1^2920712^^"
^DD(663.3,5,21,1,0)="Contains the new balance from the 1st quarters Form 7306d for SC Vietnam."
^DD(663.3,6,0)="ALL OTHER SC 2ND QTR^NJ5,0^^2ND;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,6,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,6,21,0)="^^1^1^2920712^^"
^DD(663.3,6,21,1,0)="Contains the new balance from the 1st quarter Form 7306d for All Other SC."
^DD(663.3,7,0)="NSC A&A 2ND QTR^NJ5,0^^2ND;3^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,7,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,7,21,0)="^^1^1^2920712^^"
^DD(663.3,7,21,1,0)="Contains the new balance from the 1st quarters Form 7306d for NSC A&A."
^DD(663.3,8,0)="OTHERS ELIGIBLE 2ND QTR^NJ5,0^^2ND;4^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,8,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,8,21,0)="^^1^1^2920712^^"
^DD(663.3,8,21,1,0)="Contains the new balance from the 1st quarters Form 7306d for Others Eligible."
^DD(663.3,9,0)="SC VIETNAM 3RD QTR^NJ5,0^^3RD;1^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,9,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,9,21,0)="^^1^1^2920712^^"
^DD(663.3,9,21,1,0)="Contains the new balance from the 2nd quarters Form 7306d for SC Vietnam."
^DD(663.3,9,"DT")="2920705"
^DD(663.3,10,0)="ALL OTHER SC 3RD QTR^NJ5,0^^3RD;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,10,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,10,21,0)="^^1^1^2920712^^"
^DD(663.3,10,21,1,0)="Contains the new balance from the 2nd quarter Form 7306d All Other SC."
^DD(663.3,11,0)="NSC A&A 3RD QTR^NJ5,0^^3RD;3^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,11,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,11,21,0)="^^1^1^2920712^"
^DD(663.3,11,21,1,0)="Contains the new balance from the 2nd quarter Form 7306d NSC A&A."
^DD(663.3,12,0)="OTHERS ELIGIBLE 3RD QTR^NJ5,0^^3RD;4^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,12,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,12,21,0)="^^1^1^2920712^"
^DD(663.3,12,21,1,0)="Contains the new balance from the 2nd quarter Form 7306d Others Eligible."
^DD(663.3,13,0)="SC VIETNAM 4TH QTR^NJ5,0^^4TH;1^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,13,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,13,21,0)="^^1^1^2920712^"
^DD(663.3,13,21,1,0)="Contains the new balance from the 3rd quarter Form 7306d SC Vietnam."
^DD(663.3,14,0)="ALL OTHER SC 4TH QTR^NJ5,0^^4TH;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,14,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,14,21,0)="^^1^1^2920712^"
^DD(663.3,14,21,1,0)="Contains the new balance from the 3rd quarter Form 7306d All Other SC."
^DD(663.3,15,0)="NSC A&A 4TH QTR^NJ5,0^^4TH;3^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,15,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,15,21,0)="^^1^1^2920712^"
^DD(663.3,15,21,1,0)="Contains the new balance from the 3rd quarters Form 7306d NSC A&A."
^DD(663.3,16,0)="OTHERS ELIGIBLE 4TH QTR^NJ5,0^^4TH;4^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,16,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,16,21,0)="^^1^1^2920712^"
^DD(663.3,16,21,1,0)="Contains the new balance from the 3rd quarter Form 7306d Others Eligible."
^DD(663.3,17,0)="SC ADD^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,17,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,17,21,0)="^^1^1^2920712^"
^DD(663.3,17,21,1,0)="Number of disabilities added for SC Vietnam.."
^DD(663.3,17,"DT")="2920709"
^DD(663.3,18,0)="SC DEL^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,18,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,18,21,0)="^^1^1^2920712^"
^DD(663.3,18,21,1,0)="Number of disabilities deleted for SC Vietnam."
^DD(663.3,19,0)="SC NEW^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,19,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,19,21,0)="^^1^1^2920712^"
^DD(663.3,19,21,1,0)="New balance for SC Vietnam."
^DD(663.3,20,0)="AO ADD^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,20,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,20,21,0)="^^1^1^2920712^"
^DD(663.3,20,21,1,0)="Number of disabilities added for All Other SC."
^DD(663.3,21,0)="AO DEL^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,21,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,21,21,0)="^^1^1^2920712^"
^DD(663.3,21,21,1,0)="Number of disabilities deleted for All Other SC."
^DD(663.3,22,0)="AO NEW^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,22,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,22,21,0)="^^1^1^2920712^"
^DD(663.3,22,21,1,0)="Number of new disabilities for All Other SC."
^DD(663.3,23,0)="NSC ADD^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,23,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,23,21,0)="^^1^1^2920712^"
^DD(663.3,23,21,1,0)="Number of disabilities added for NSC A&A."
^DD(663.3,24,0)="NSC DEL^NJ5,0^^0;9^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,24,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,24,21,0)="^^1^1^2920712^"
^DD(663.3,24,21,1,0)="Number of disabilities deleted for NSC A&A."
^DD(663.3,25,0)="NSC NEW^NJ5,0^^0;10^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,25,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,25,21,0)="^^1^1^2920712^"
^DD(663.3,25,21,1,0)="Number of new disabilites for NSC A&A."
^DD(663.3,26,0)="OT ADD^NJ5,0^^0;11^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,26,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,26,21,0)="^^1^1^2920712^"
^DD(663.3,26,21,1,0)="Number of disabilities added for Others Eligible."
^DD(663.3,27,0)="OT DEL^NJ5,0^^0;12^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,27,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,27,21,0)="^^1^1^2920712^"
^DD(663.3,27,21,1,0)="Number of disabilities deleted for Others Eligible."
^DD(663.3,28,0)="OT NEW^NJ5,0^^0;13^K:+X'=X!(X>99999)!(X<-99999)!(X?.E1"".""1N.N) X"
^DD(663.3,28,3)="Type a Number between -99999 and 99999, 0 Decimal Digits"
^DD(663.3,28,21,0)="^^1^1^2920712^"
^DD(663.3,28,21,1,0)="Number of new disabilities for Others Eligible."
^DD(663.3,"B","ALL OTHER SC 1ST QTR",2)=""
^DD(663.3,"B","ALL OTHER SC 2ND QTR",6)=""
^DD(663.3,"B","ALL OTHER SC 3RD QTR",10)=""
^DD(663.3,"B","ALL OTHER SC 4TH QTR",14)=""
^DD(663.3,"B","AO ADD",20)=""
^DD(663.3,"B","AO DEL",21)=""
^DD(663.3,"B","AO NEW",22)=""
^DD(663.3,"B","CATEGORY",.01)=""
^DD(663.3,"B","NSC A&A 1ST QTR",3)=""
^DD(663.3,"B","NSC A&A 2ND QTR",7)=""
^DD(663.3,"B","NSC A&A 3RD QTR",11)=""
^DD(663.3,"B","NSC A&A 4TH QTR",15)=""
^DD(663.3,"B","NSC ADD",23)=""
^DD(663.3,"B","NSC DEL",24)=""
^DD(663.3,"B","NSC NEW",25)=""
^DD(663.3,"B","OT ADD",26)=""
^DD(663.3,"B","OT DEL",27)=""
^DD(663.3,"B","OT NEW",28)=""
^DD(663.3,"B","OTHERS ELIGIBLE 1ST QTR",4)=""
^DD(663.3,"B","OTHERS ELIGIBLE 2ND QTR",8)=""
^DD(663.3,"B","OTHERS ELIGIBLE 3RD QTR",12)=""
^DD(663.3,"B","OTHERS ELIGIBLE 4TH QTR",16)=""
^DD(663.3,"B","SC ADD",17)=""
^DD(663.3,"B","SC DEL",18)=""
^DD(663.3,"B","SC NEW",19)=""
^DD(663.3,"B","SC VIETNAM 1ST QTR",1)=""
^DD(663.3,"B","SC VIETNAM 2ND QTR",5)=""
^DD(663.3,"B","SC VIETNAM 3RD QTR",9)=""
^DD(663.3,"B","SC VIETNAM 4TH QTR",13)=""
^DD(663.3,"GL",0,1,.01)=""
^DD(663.3,"GL",0,2,17)=""
^DD(663.3,"GL",0,3,18)=""
^DD(663.3,"GL",0,4,19)=""
^DD(663.3,"GL",0,5,20)=""
^DD(663.3,"GL",0,6,21)=""
^DD(663.3,"GL",0,7,22)=""
^DD(663.3,"GL",0,8,23)=""
^DD(663.3,"GL",0,9,24)=""
^DD(663.3,"GL",0,10,25)=""
^DD(663.3,"GL",0,11,26)=""
^DD(663.3,"GL",0,12,27)=""
^DD(663.3,"GL",0,13,28)=""
^DD(663.3,"GL","1ST",1,1)=""
^DD(663.3,"GL","1ST",2,2)=""
^DD(663.3,"GL","1ST",3,3)=""
^DD(663.3,"GL","1ST",4,4)=""
^DD(663.3,"GL","2ND",1,5)=""
^DD(663.3,"GL","2ND",2,6)=""
^DD(663.3,"GL","2ND",3,7)=""
^DD(663.3,"GL","2ND",4,8)=""
^DD(663.3,"GL","3RD",1,9)=""
^DD(663.3,"GL","3RD",2,10)=""
^DD(663.3,"GL","3RD",3,11)=""
^DD(663.3,"GL","3RD",4,12)=""
^DD(663.3,"GL","4TH",1,13)=""
^DD(663.3,"GL","4TH",2,14)=""
^DD(663.3,"GL","4TH",3,15)=""
^DD(663.3,"GL","4TH",4,16)=""
^DD(663.3,"IX",.01)=""
^DD(663.3,"RQ",.01)=""
^DD(663.4,0)="FIELD^^11^12"
^DD(663.4,0,"DDA")="N"
^DD(663.4,0,"DT")="2930914"
^DD(663.4,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RMPR(665,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(665,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(663.4,0,"IX","AA",663.4,8)=""
^DD(663.4,0,"IX","AB",663.4,8)=""
^DD(663.4,0,"IX","B",663.4,.01)=""
^DD(663.4,0,"IX","C",663.4,1)=""
^DD(663.4,0,"NM","PROSTHETIC APPOINTMENT WORKSHEET")=""
^DD(663.4,0,"VR")="3.0"
^DD(663.4,.01,0)="APPOINTMENT DATE/TIME^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(663.4,.01,1,0)="^.1"
^DD(663.4,.01,1,1,0)="663.4^B"
^DD(663.4,.01,1,1,1)="S ^RMPRA(663.4,""B"",$E(X,1,30),DA)="""""
^DD(663.4,.01,1,1,2)="K ^RMPRA(663.4,""B"",$E(X,1,30),DA)"
^DD(663.4,.01,3)=""
^DD(663.4,.01,21,0)="^^1^1^2930409^^^"
^DD(663.4,.01,21,1,0)="Scheduled Clinic appointment time."
^DD(663.4,.01,"DT")="2930409"
^DD(663.4,1,0)="PATIENT^P665'^RMPR(665,^0;2^Q"
^DD(663.4,1,1,0)="^.1"
^DD(663.4,1,1,1,0)="663.4^C"
^DD(663.4,1,1,1,1)="S ^RMPRA(663.4,""C"",$E(X,1,30),DA)="""""
^DD(663.4,1,1,1,2)="K ^RMPRA(663.4,""C"",$E(X,1,30),DA)"
^DD(663.4,1,1,1,"%D",0)="^^1^1^2920722^"
^DD(663.4,1,1,1,"%D",1,0)="This cross reference allows lookup on schedules by patient name."
^DD(663.4,1,1,1,"DT")="2920722"
^DD(663.4,1,3)="Enter the Name of the Prosthetics Patient"
^DD(663.4,1,21,0)="^^1^1^2930104^"
^DD(663.4,1,21,1,0)="Pointer to Prosthetic Patient file 665."
^DD(663.4,1,"DT")="2921015"
^DD(663.4,1,"V",0)="^.12P^2^2"
^DD(663.4,1,"V",1,0)="665^Enter Prosthetic Patinet^1^Pr^^y"
^DD(663.4,1,"V",2,0)="2^Enter MAS Patient^2^M^^y"
^DD(663.4,1,"V","B",2,2)=""
^DD(663.4,1,"V","B",665,1)=""
^DD(663.4,1,"V","M","Enter MAS Patient",2)=""
^DD(663.4,1,"V","M","Enter Prosthetic Patinet",1)=""
^DD(663.4,1,"V","O",1,1)=""
^DD(663.4,1,"V","O",2,2)=""
^DD(663.4,1,"V","P","M",2)=""
^DD(663.4,1,"V","P","Pr",1)=""
^DD(663.4,2,0)="LENGTH OF APP'T^NJ3,0^^0;3^K:+X'=X!(X>120)!(X<5)!(X?.E1"".""1N.N) X"
^DD(663.4,2,3)="Type a Number between 5 and 120, 0 Decimal Digits"
^DD(663.4,2,21,0)="^^1^1^2930104^"
^DD(663.4,2,21,1,0)="Length of time the appointment will take place."
^DD(663.4,2,"DT")="2920722"
^DD(663.4,3,0)="APPOINTMENT CANCELLED^S^C:CANCELLED;^0;4^Q"
^DD(663.4,3,3)="Enter C for 'Cancelled'"
^DD(663.4,3,21,0)="^^1^1^2930104^"
^DD(663.4,3,21,1,0)="Indicates if appointment was cancelled."
^DD(663.4,3,"DT")="2920722"
^DD(663.4,4,0)="REFERRING STATION^P4'^DIC(4,^0;5^Q"
^DD(663.4,4,3)=""
^DD(663.4,4,21,0)="^^1^1^2930104^"
^DD(663.4,4,21,1,0)="Pointer to Institution file #4."
^DD(663.4,4,"DT")="2920722"
^DD(663.4,5,0)="REASON FOR REFERRAL^F^^0;6^K:$L(X)>50!($L(X)<3) X"
^DD(663.4,5,3)="Answer must be 3-50 characters in length."
^DD(663.4,5,21,0)="^^2^2^2930104^"
^DD(663.4,5,21,1,0)="Free text field that will contain Doctors reason that patient was "
^DD(663.4,5,21,2,0)="scheduled for clinic."
^DD(663.4,5,"DT")="2920728"
^DD(663.4,6,0)="ACTION^F^^0;7^K:$L(X)>50!($L(X)<3) X"
^DD(663.4,6,3)="Answer must be 3-50 characters in length."
^DD(663.4,6,21,0)="^^1^1^2930104^"
^DD(663.4,6,21,1,0)="Action taken on patient during clinic."
^DD(663.4,6,"DT")="2920724"
^DD(663.4,7,0)="CHECK-IN^D^^0;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(663.4,7,3)="Enter the date the Patient checked into the Clinic."
^DD(663.4,7,21,0)="^^1^1^2930416^"
^DD(663.4,7,21,1,0)="Contains text if patient checked in."
^DD(663.4,7,"DT")="2920722"
^DD(663.4,8,0)="CLINIC^P44'^SC(^0;9^Q"
^DD(663.4,8,1,0)="^.1"
^DD(663.4,8,1,1,0)="663.4^AA^MUMPS"
^DD(663.4,8,1,1,1)="I $D(^RMPRA(663.4,DA)) S ZN=$P(^RMPRA(663.4,DA,0),U,1),ZP=$P(^(0),U,2) S:ZN&ZP ^RMPRA(663.4,""AA"",X,ZN,ZP,DA)="""" K ZN,ZP"
^DD(663.4,8,1,1,2)="I $D(^RMPRA(663.4,DA)) S ZN=$P(^RMPRA(663.4,DA,0),U,1),ZP=$P(^(0),U,2) K:ZN&ZP ^RMPRA(663.4,""AA"",X,ZN,ZP,DA) K ZN,ZP"
^DD(663.4,8,1,1,"%D",0)="^^1^1^2930306^^^^"
^DD(663.4,8,1,1,"%D",1,0)="Allows checking of already existing Appointment Worksheet entires and Sorting by Clinic, Appointment Date/Time and Patient."
^DD(663.4,8,1,1,"DT")="2930306"
^DD(663.4,8,1,2,0)="663.4^AB^MUMPS"
^DD(663.4,8,1,2,1)="S ZP=$P(^RMPRA(663.4,DA,0),U) S:ZP ^RMPRA(663.4,""AB"",X,ZP,DA)="""" K ZP"
^DD(663.4,8,1,2,2)="S ZP=$P(^RMPRA(663.4,DA,0),U) K:ZP ^RMPRA(663.4,""AB"",X,ZP,DA) K ZP"
^DD(663.4,8,1,2,"%D",0)="^^1^1^2920728^"
^DD(663.4,8,1,2,"%D",1,0)="This x-ref allows sorting by clinic and date of appointment."
^DD(663.4,8,1,2,"DT")="2920728"
^DD(663.4,8,3)="Enter the Clinic that the Patient was Scheduled for."
^DD(663.4,8,21,0)="^^1^1^2930416^^^"
^DD(663.4,8,21,1,0)="Pointer to the Hospital Location file #44."
^DD(663.4,8,"DT")="2930306"
^DD(663.4,9,0)="CLOSED DATE/TIME^D^^0;10^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(663.4,9,3)="Enter the Date/Time that the Clinic Visit was closed."
^DD(663.4,9,21,0)="^^1^1^2960122^"
^DD(663.4,9,21,1,0)="this is the date and time the clinic visit was closed out."
^DD(663.4,9,"DT")="2920724"
^DD(663.4,10,0)="STATUS^F^^0;11^K:$L(X)>40!($L(X)<3) X"
^DD(663.4,10,3)="Answer must be 3-40 characters in length."
^DD(663.4,10,21,0)="^^2^2^2920930^^^"
^DD(663.4,10,21,1,0)="Contains the reason why the patient did not attend the Scheduled Clinic "
^DD(663.4,10,21,2,0)="Appointment."
^DD(663.4,10,"DT")="2930226"
^DD(663.4,11,0)="START DATE/TIME^D^^0;12^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(663.4,11,3)="Enter the Clinic Start Date/Time"
^DD(663.4,11,21,0)="^^1^1^2960122^"
^DD(663.4,11,21,1,0)="This is the Clinic start time and date."
^DD(663.4,11,"DT")="2930914"
^DD(663.4,"B","ACTION",6)=""
^DD(663.4,"B","APPOINTMENT CANCELLED",3)=""
^DD(663.4,"B","APPOINTMENT DATE/TIME",.01)=""
^DD(663.4,"B","CHECK-IN",7)=""
^DD(663.4,"B","CLINIC",8)=""
^DD(663.4,"B","CLOSED DATE/TIME",9)=""
^DD(663.4,"B","LENGTH OF APP'T",2)=""
^DD(663.4,"B","PATIENT",1)=""
^DD(663.4,"B","REASON FOR REFERRAL",5)=""
^DD(663.4,"B","REFERRING STATION",4)=""
^DD(663.4,"B","START DATE/TIME",11)=""
^DD(663.4,"B","STATUS",10)=""
^DD(663.4,"GL",0,1,.01)=""
^DD(663.4,"GL",0,2,1)=""
^DD(663.4,"GL",0,3,2)=""
^DD(663.4,"GL",0,4,3)=""
^DD(663.4,"GL",0,5,4)=""
^DD(663.4,"GL",0,6,5)=""
^DD(663.4,"GL",0,7,6)=""
^DD(663.4,"GL",0,8,7)=""
^DD(663.4,"GL",0,9,8)=""
^DD(663.4,"GL",0,10,9)=""
^DD(663.4,"GL",0,11,10)=""
^DD(663.4,"GL",0,12,11)=""
^DD(663.4,"IX",.01)=""
^DD(663.4,"IX",1)=""
^DD(663.4,"IX",8)=""
^DD(663.4,"RQ",.01)=""
^DD(664,0)="FIELD^^31^41"
^DD(664,0,"DDA")="N"
^DD(664,0,"DT")="2960313"
^DD(664,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RMPR(665,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(665,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I D EN1^RMPRD1"
^DD(664,0,"IX","AC",664,.5)=""
^DD(664,0,"IX","B",664,.01)=""
^DD(664,0,"IX","C",664,1)=""
^DD(664,0,"IX","D",664.02,3)=""
^DD(664,0,"IX","E",664,7)=""
^DD(664,0,"IX","E1",664,7)=""
^DD(664,0,"IX","F",664,26)=""
^DD(664,0,"IX","G",664,7.5)=""
^DD(664,0,"NM","PROSTHETICS 1358")=""
^DD(664,0,"PT",664.22,11)=""
^DD(664,0,"VR")="3.0"
^DD(664,.01,0)="DATE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(664,.01,1,0)="^.1^^-1"
^DD(664,.01,1,1,0)="664^B"
^DD(664,.01,1,1,1)="S ^RMPR(664,""B"",$E(X,1,30),DA)="""""
^DD(664,.01,1,1,2)="K ^RMPR(664,""B"",$E(X,1,30),DA)"
^DD(664,.01,3)="Enter the Patient's name or the 1358 date"
^DD(664,.01,21,0)="^^1^1^2920225^^^^"
^DD(664,.01,21,1,0)="This is the date that the 1358 transaction took place."
^DD(664,.01,"DT")="2960313"
^DD(664,.5,0)="OBLIGATION NUMBER^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X"
^DD(664,.5,1,0)="^.1"
^DD(664,.5,1,1,0)="664^AC"
^DD(664,.5,1,1,1)="S ^RMPR(664,""AC"",$E(X,1,30),DA)="""""
^DD(664,.5,1,1,2)="K ^RMPR(664,""AC"",$E(X,1,30),DA)"
^DD(664,.5,1,1,"%D",0)="^^1^1^2960313^^"
^DD(664,.5,1,1,"%D",1,0)="Allows quick lookups on file 664 by Obligation Number."
^DD(664,.5,3)="Answer must be 3-10 characters in length."
^DD(664,.5,21,0)="^^1^1^2920223^^^"
^DD(664,.5,21,1,0)="This is the IFCAP obligation number."
^DD(664,.5,"DT")="2900605"
^DD(664,1,0)="PATIENT^RP665^RMPR(665,^0;2^Q"
^DD(664,1,1,0)="^.1"
^DD(664,1,1,1,0)="664^C"
^DD(664,1,1,1,1)="S ^RMPR(664,""C"",$E(X,1,30),DA)="""""
^DD(664,1,1,1,2)="K ^RMPR(664,""C"",$E(X,1,30),DA)"
^DD(664,1,1,1,"%D",0)="^^1^1^2960124^"
^DD(664,1,1,1,"%D",1,0)="This will allow lookup by Patient Name."
^DD(664,1,3)="Enter the name of the Patient you wish to purchase for."
^DD(664,1,21,0)="^^1^1^2910915^^"
^DD(664,1,21,1,0)="The prosthetics patient."
^DD(664,1,"DT")="2910419"
^DD(664,2,0)="BILLING ITEM^664.02PA^^1;0"
^DD(664,2,21,0)="^.001^1^1^3050623^^^^"
^DD(664,2,21,1,0)="This is the item that will be posted to the RECORD OF APPLIANCE/REPAIR file."
^DD(664,2,"DT")="3041029"
^DD(664,3,0)="CANCELLATION DATE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664,3,3)="Must be a date."
^DD(664,3,21,0)="^^1^1^2911205^^^^"
^DD(664,3,21,1,0)="The date the purchasing transaction was cancelled."
^DD(664,3,"DT")="2901011"
^DD(664,3.1,0)="CANCELLATION REMARKS^RF^^2;1^K:$L(X)>60!($L(X)<3) X"
^DD(664,3.1,1,0)="^.1"
^DD(664,3.1,1,1,0)="^^BULLETIN MESSAGE"
^DD(664,3.1,1,1,1)="S Y(0)=X,D0=DA X ^DD(664,3.1,1,1,1.1) X ^DD(664,3.1,1,1,1.2) X ^DD(664,3.1,1,1,1.3) X ^DD(664,3.1,1,1,1.4) K XMY S XMB=""RMPR CANCEL TRANSACTION"" D ^XMB:$D(^XMB(3.6,""B"",XMB)) K Y,XMB"
^DD(664,3.1,1,1,1.1)="S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7) S XMB(1)=X"
^DD(664,3.1,1,1,1.2)="S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,9),0)):"""",1:$P(^(0),U,1)) S XMB(2)=X"
^DD(664,3.1,1,1,1.3)="S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5) S Y=X X ^DD(""DD"") S X=Y S XMB(3)=X"
^DD(664,3.1,1,1,1.4)="S X=Y(0) S Y(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1) S XMB(4)=X"
^DD(664,3.1,1,1,2)="Q"
^DD(664,3.1,1,1,"%D",0)="^^1^1^2960124^"
^DD(664,3.1,1,1,"%D",1,0)="This is a bulletin message regarding the transaction has been canceled."
^DD(664,3.1,1,1,"CREATE PARAMETER #1")="REFERENCE"
^DD(664,3.1,1,1,"CREATE PARAMETER #2")="INITIATOR"
^DD(664,3.1,1,1,"CREATE PARAMETER #3")="CANCELLATION DATE"
^DD(664,3.1,1,1,"CREATE PARAMETER #4")="CANCELLATION REMARKS"
^DD(664,3.1,1,1,"CREATE VALUE")="RMPR CANCEL TRANSACTION"
^DD(664,3.1,1,1,"DELETE VALUE")="NO EFFECT"
^DD(664,3.1,1,1,"DT")="2920403"
^DD(664,3.1,3)="Answer must be 3-60 characters in length."
^DD(664,3.1,21,0)="^^2^2^2910915^^"
^DD(664,3.1,21,1,0)="Any remarks the Purchasing Agent, or Prosthetic Clerk would like to"
^DD(664,3.1,21,2,0)="say in the mail message."
^DD(664,3.1,"DT")="2920403"
^DD(664,3.2,0)="CANCELLED BY^P200'^VA(200,^2;2^Q"
^DD(664,3.2,3)="Enter the person who cancelled the transaction."
^DD(664,3.2,21,0)="^^1^1^2911205^"
^DD(664,3.2,21,1,0)="This is pointer to the New Person file."
^DD(664,3.2,"DT")="2901011"
^DD(664,4,0)="VENDOR^RP440'^PRC(440,^0;4^Q"
^DD(664,4,3)="Enter the Vendor the item is being purchased from."
^DD(664,4,21,0)="^^1^1^2911205^^"
^DD(664,4,21,1,0)="The name of the vendor that the item is being purchased from."
^DD(664,4,"DT")="2930312"
^DD(664,6,0)="C.P.^RP410'I^PRCS(410,^0;6^Q"
^DD(664,6,3)="Please Enter the Control Point Activity Number."
^DD(664,6,21,0)="^^1^1^2911205^^^"
^DD(664,6,21,1,0)="This is the IFCAP Control Point number for VAF 4-1358."
^DD(664,6,"DT")="2900827"
^DD(664,7,0)="REFERENCE^RFI^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(664,7,1,0)="^.1"
^DD(664,7,1,1,0)="664^E"
^DD(664,7,1,1,1)="S ^RMPR(664,""E"",$E(X,1,30),DA)="""""
^DD(664,7,1,1,2)="K ^RMPR(664,""E"",$E(X,1,30),DA)"
^DD(664,7,1,1,"%D",0)="^^2^2^2920520^^^^"
^DD(664,7,1,1,"%D",1,0)="This cross reference is used for looking up Prosthetic 1358 entries"
^DD(664,7,1,1,"%D",2,0)="by the transaction number created by IFCAP."
^DD(664,7,1,1,"DT")="2920120"
^DD(664,7,1,2,0)="664^E1^MUMPS"
^DD(664,7,1,2,1)="S ^RMPR(664,""E1"",$P(X,""-"",3),DA)="""""
^DD(664,7,1,2,2)="K ^RMPR(664,""E1"",$P(X,""-"",3),DA)"
^DD(664,7,1,2,"%D",0)="^^2^2^2960313^^^^"
^DD(664,7,1,2,"%D",1,0)="This cross reference is used for lookups on Prosthetic 1358 entries"
^DD(664,7,1,2,"%D",2,0)="by the last four numbers of the transaction number created by IFCAP."
^DD(664,7,1,2,"DT")="2920120"
^DD(664,7,3)="Answer must be 1-30 characters in length."
^DD(664,7,21,0)="^^2^2^2920515^^^^"
^DD(664,7,21,1,0)="This is the individual reference number that this transaction has been"
^DD(664,7,21,2,0)="assigned."
^DD(664,7,"DT")="2920210"
^DD(664,7.1,0)="IFCAP ORDER^P442'^PRC(442,^4;6^Q"
^DD(664,7.1,21,0)="^^1^1^2961216^"
^DD(664,7.1,21,1,0)="This is usedd to pass the ien back to IFCAP for cancellations."
^DD(664,7.1,"DT")="2961216"
^DD(664,7.5,0)="PURCHASE CARD REFERENCE^F^^4;5^K:$L(X)>10!($L(X)<3) X"
^DD(664,7.5,1,0)="^.1"
^DD(664,7.5,1,1,0)="664^G"
^DD(664,7.5,1,1,1)="S ^RMPR(664,""G"",$E(X,1,30),DA)="""""
^DD(664,7.5,1,1,2)="K ^RMPR(664,""G"",$E(X,1,30),DA)"
^DD(664,7.5,1,1,"%D",0)="^^2^2^2960313^"
^DD(664,7.5,1,1,"%D",1,0)="This is used for the Purchase Card Module.  Allow selection by transaction"
^DD(664,7.5,1,1,"%D",2,0)="number."
^DD(664,7.5,1,1,"DT")="2960313"
^DD(664,7.5,3)="Answer must be 3-10 characters in length."
^DD(664,7.5,21,0)="^^2^2^2960313^"
^DD(664,7.5,21,1,0)="This is the unique Purchase Card Transaction Number.  Do not edit this"
^DD(664,7.5,21,2,0)="field from Fileman."
^DD(664,7.5,"DT")="2960313"
^DD(664,8,0)="CLOSE OUT DATE^D^^0;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(664,8,1,0)="^.1"
^DD(664,8,1,1,0)="^^TRIGGER^664^8.5"
^DD(664,8,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(664,8,1,1,1.4)"
^DD(664,8,1,1,1.4)="S DIH=$S($D(^RMPR(664,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,7)=DIV,DIH=664,DIG=8.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(664,8,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,2)):^(2),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$S($D(^RMPR(664,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,7)=DIV,DIH=664,DIG=8.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(664,8,1,1,"%D",0)="^^3^3^2960124^"
^DD(664,8,1,1,"%D",1,0)="This is a trigger on Close-Out Date.  When the purchasing transaction is"
^DD(664,8,1,1,"%D",2,0)="closed the Closed By field will contain the user who closed this"
^DD(664,8,1,1,"%D",3,0)="transaction.  This will be used for auditing."
^DD(664,8,1,1,"CREATE VALUE")="S X=DUZ"
^DD(664,8,1,1,"DELETE VALUE")="@"
^DD(664,8,1,1,"FIELD")="CLOSED BY"
^DD(664,8,3)="Answer must be a date."
^DD(664,8,21,0)="^^2^2^2911205^^"
^DD(664,8,21,1,0)="This is the date the transaction was closed-out, and posted as complete in"
^DD(664,8,21,2,0)="IFCAP and the electronic 10-2319.  This is the date AMIS will be based on."
^DD(664,8,"DT")="2950928"
^DD(664,8.1,0)="CLOSE-OUT REMARKS^F^^2;3^K:$L(X)>30!($L(X)<1) X"
^DD(664,8.1,3)="Answer must be 1-30 characters in length."
^DD(664,8.1,21,0)="^^1^1^2910726^"
^DD(664,8.1,21,1,0)="Any remarks at the time the transaction is being marked as complete."
^DD(664,8.1,"DT")="2950828"
^DD(664,8.5,0)="CLOSED BY^P200'^VA(200,^2;7^Q"
^DD(664,8.5,5,1,0)="664^8^1"
^DD(664,8.5,21,0)="^^1^1^2950814^"
^DD(664,8.5,21,1,0)="This is a pointer to the DUZ of the person who canceled the transaction."
^DD(664,8.5,"DT")="2950821"
^DD(664,8.6,0)="LAST IFCAP AMEND BY^P200'^VA(200,^2;8^Q"
^DD(664,8.6,"DT")="2970624"
^DD(664,8.7,0)="LAST AMEND TOTAL^NJ9,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(664,8.7,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(664,8.7,21,0)="^^2^2^2970625^"
^DD(664,8.7,21,1,0)="This is the last total amount that was amended through IFCAP on this"
^DD(664,8.7,21,2,0)="transaction."
^DD(664,8.7,"DT")="2970625"
^DD(664,8.8,0)="LAST AMEND REPRINT OK^S^1:Y;^2;10^Q"
^DD(664,8.8,21,0)="^^3^3^2970814^"
^DD(664,8.8,21,1,0)="This is a flag used to determine if the order should be reprinted or not."
^DD(664,8.8,21,2,0)="If this is set to 1, or yes, then the order may be reprinted.  This means"
^DD(664,8.8,21,3,0)="no pending IFCAP amendments are outstanding."
^DD(664,8.8,"DT")="2970814"
^DD(664,10,0)="INITIATOR^P200'^VA(200,^0;9^Q"
^DD(664,10,21,0)="^^1^1^2910726^"
^DD(664,10,21,1,0)="This is the person who created the transaction."
^DD(664,10,"DT")="2900918"
^DD(664,11,0)="EST. SHIPPING CHARGE^NJ8,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999)!(X<0) X"
^DD(664,11,3)="Type a Dollar Amount between 0 and 99999, 2 Decimal Digits"
^DD(664,11,21,0)="^^2^2^2911205^^^"
^DD(664,11,21,1,0)="The estimated shipping charge when the transaction is created.  This"
^DD(664,11,21,2,0)="field only holds the estimate, and not the actual charge."
^DD(664,11,"DT")="2901016"
^DD(664,12,0)="ACT. SHIPPING CHARGE^NJ9,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(664,12,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(664,12,21,0)="^^2^2^2910726^"
^DD(664,12,21,1,0)="This field will be set when closing out the transaction if shipping"
^DD(664,12,21,2,0)="charges were changed or deleted."
^DD(664,12,"DT")="2910424"
^DD(664,13,0)="SHIPPING ENTRY^P660'^RMPR(660,^0;12^Q"
^DD(664,13,21,0)="^^1^1^2910726^"
^DD(664,13,21,1,0)="All shipping entries are posted as entries on the electronic 10-2319."
^DD(664,13,"DT")="2901109"
^DD(664,14,0)="PICKUP/DELIVERY REMARKS^F^^0;13^K:$L(X)>60!($L(X)<3) X"
^DD(664,14,3)="Answer must be 3-60 characters in length."
^DD(664,14,21,0)="^^1^1^2910915^^^"
^DD(664,14,21,1,0)="Pickup and delivery remarks go here."
^DD(664,14,"DT")="2910327"
^DD(664,15,0)="FORM TYPE^FI^^2;4^K:$L(X)>30!($L(X)<3) X"
^DD(664,15,1,0)="^.1^^0"
^DD(664,15,3)="Answer must be 3-30 characters in length."
^DD(664,15,21,0)="^^2^2^2960312^^"
^DD(664,15,21,1,0)="This field will contain the Form type of the 2319 and should not be"
^DD(664,15,21,2,0)="edited thru Fileman."
^DD(664,15,"DT")="2960313"
^DD(664,16,0)="PSC CATEGORY^S^W:WHEELCHAIR;O:BRACE;B:BLIND AIDS;A:ART. LIMBS;^2;5^Q"
^DD(664,16,3)="Please enter a 'W', 'O', 'B', or an 'A'"
^DD(664,16,21,0)="^^1^1^2930416^^"
^DD(664,16,21,1,0)="Contains the PSC CATEGORY for the type of 10-55 or 2520 purchase."
^DD(664,16,"DT")="2920131"
^DD(664,17,0)="PERCENT DISCOUNT^NJ4,1^^2;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""2N.N) X"
^DD(664,17,3)="Type a Number between 1 and 99, 1 Decimal Digit"
^DD(664,17,21,0)="^^2^2^2930416^^"
^DD(664,17,21,1,0)="Contains the % Discount for the Purchase.  Estimated Cost and Actual Cost"
^DD(664,17,21,2,0)="are calculated with the % Discount."
^DD(664,17,"DT")="2920209"
^DD(664,18,0)="STATION NAME^P4'^DIC(4,^0;14^Q"
^DD(664,18,3)="Enter the Station Name or Station Prefix."
^DD(664,18,21,0)="^^2^2^2950822^^^"
^DD(664,18,21,1,0)="This field is a pointer to the Institution File.  If a site is Multi  "
^DD(664,18,21,2,0)="Divisional this field is used to screen out entries by site number."
^DD(664,18,"DT")="2920811"
^DD(664,19,0)="DELIVER TO^F^^3;1^K:$L(X)>30!($L(X)<3) X"
^DD(664,19,.1)="LOCATION"
^DD(664,19,3)="Answer must be 3-30 characters in length."
^DD(664,19,21,0)="^^1^1^2950919^^^^"
^DD(664,19,21,1,0)="Contains the destination for delivery of the purchased item."
^DD(664,19,"DT")="2921001"
^DD(664,20,0)="DATE REQUIRED^DX^^3;2^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y<DT) X"
^DD(664,20,1,0)="^.1"
^DD(664,20,1,1,0)="^^TRIGGER^664^21"
^DD(664,20,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,3)):^(3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(664,20,1,1,1.1) X ^DD(664,20,1,1,1.4)"
^DD(664,20,1,1,1.1)="S X=DIV S Y(1)=$S($D(^RMPR(664,D0,0)):^(0),1:"""") S X=DIV,X1=X,X2=$P(Y(1),U,1),X="""" D:X2 ^%DTC:X1"
^DD(664,20,1,1,1.4)="S DIH=$S($D(^RMPR(664,DIV(0),3)):^(3),1:""""),DIV=X S $P(^(3),U,3)=DIV,DIH=664,DIG=21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(664,20,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(664,D0,3)):^(3),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(664,20,1,1,2.1) X ^DD(664,20,1,1,2.4)"
^DD(664,20,1,1,2.1)="S X=DIV S Y(2)=$S($D(^RMPR(664,D0,0)):^(0),1:""""),Y(1)=$S($D(^(3)):^(3),1:"""") S X=$P(Y(1),U,2),X1=X,X2=$P(Y(2),U,1),X="""" D:X2 ^%DTC:X1"
^DD(664,20,1,1,2.4)="S DIH=$S($D(^RMPR(664,DIV(0),3)):^(3),1:""""),DIV=X S $P(^(3),U,3)=DIV,DIH=664,DIG=21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(664,20,1,1,3)="Do not delete"
^DD(664,20,1,1,"%D",0)="^^1^1^2960202^"
^DD(664,20,1,1,"%D",1,0)="This trigger is uesed to update the delivery time field."
^DD(664,20,1,1,"CREATE VALUE")="DATE REQUIRED-DATE"
^DD(664,20,1,1,"DELETE VALUE")="DATE REQUIRED-DATE"
^DD(664,20,1,1,"DT")="2960202"
^DD(664,20,1,1,"FIELD")="DELIVERY TIME"
^DD(664,20,3)="Enter the date the vendor must deliver by"
^DD(664,20,21,0)="^^2^2^2930806^^^^"
^DD(664,20,21,1,0)="This field stores the date the vendor is required to provide the"
^DD(664,20,21,2,0)="Item/Service by."
^DD(664,20,"DT")="2960202"
^DD(664,21,0)="DELIVERY TIME^NJ5,0^^3;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(664,21,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(664,21,5,1,0)="664^20^1"
^DD(664,21,21,0)="^^2^2^2930804^"
^DD(664,21,21,1,0)="This field stores the number of days the vendor has to delivery the"
^DD(664,21,21,2,0)="Item/Service."
^DD(664,21,"DT")="2930804"
^DD(664,21.1,0)="DELIVER TO ATTENTION^F^^3;4^K:$L(X)>45!($L(X)<1) X"
^DD(664,21.1,3)="Answer must be 1-45 characters in length."
^DD(664,21.1,21,0)="^^1^1^3040427^"
^DD(664,21.1,21,1,0)="Attention to:  line for delivery "
^DD(664,21.1,"DT")="3040427"
^DD(664,22,0)="WORK ORDER NUMBER^P664.2'^RMPR(664.2,^0;15^Q"
^DD(664,22,21,0)="^^2^2^2960122^"
^DD(664,22,21,1,0)="Lab Work Order Number is a pointer to the Prosthetic Work Order file.  It"
^DD(664,22,21,2,0)="is  the associated Lab work order number."
^DD(664,22,"DT")="2940618"
^DD(664,23,0)="LAB TECHNICIAN^P200'^VA(200,^0;16^Q"
^DD(664,23,21,0)="^^1^1^2960122^"
^DD(664,23,21,1,0)="This is the lab technician that entered the 2421."
^DD(664,23,"DT")="2950822"
^DD(664,24,0)="2529-3^P664.1'^RMPR(664.1,^0;17^Q"
^DD(664,24,"DT")="2940618"
^DD(664,25,0)="PURCHASE CARD NUMBER^F^^4;1^K:$L(X)>16!($L(X)<16) X"
^DD(664,25,3)="Answer must be 16 characters in length."
^DD(664,25,21,0)="^^1^1^2960305^^"
^DD(664,25,21,1,0)="This is the Purchase Card Number used in a credit card transaction."
^DD(664,25,"DT")="2960305"
^DD(664,26,0)="BANK AUTHORIZATION NUMBER^F^^4;2^K:$L(X)>6!($L(X)<6)!'(X?.N) X"
^DD(664,26,1,0)="^.1"
^DD(664,26,1,1,0)="664^F"
^DD(664,26,1,1,1)="S ^RMPR(664,""F"",$E(X,1,30),DA)="""""
^DD(664,26,1,1,2)="K ^RMPR(664,""F"",$E(X,1,30),DA)"
^DD(664,26,1,1,"%D",0)="^^2^2^2960311^"
^DD(664,26,1,1,"%D",1,0)="This is the six digit Bank Authorization Number.  This is used for"
^DD(664,26,1,1,"%D",2,0)="Close-Out a Purchase Card Order, and Cancel a Purchase Card Order."
^DD(664,26,1,1,"DT")="2960311"
^DD(664,26,3)="Answer must be 6 numbers in length."
^DD(664,26,21,0)="^^3^3^2960311^^^^"
^DD(664,26,21,1,0)="This six digit number is the authorization number VISA gives to the"
^DD(664,26,21,2,0)="vendor for guaranteed payment.  This number is used in the reconciliation"
^DD(664,26,21,3,0)="process."
^DD(664,26,"DT")="2960311"
^DD(664,27,0)="EST AMOUNT^NJ9,2^^4;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(664,27,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(664,27,21,0)="^^2^2^2960312^"
^DD(664,27,21,1,0)="This is the estimated amount of the transaction.  This field is only used"
^DD(664,27,21,2,0)="for Purchase Card Transactions."
^DD(664,27,"DT")="2960312"
^DD(664,28,0)="CLOSE-OUT AMOUNT^NJ9,2^^4;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(664,28,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(664,28,21,0)="^^1^1^2960312^"
^DD(664,28,21,1,0)="This is the final amount authorized on the Purchase Card Transaction."
^DD(664,28,"DT")="2960312"
^DD(664,29,0)="NEW PURCHASE CARD NUMBER^F^^4;7^K:$L(X)>16!($L(X)<1) X"
^DD(664,29,3)="Answer must be 1-16 characters in length."
^DD(664,29,21,0)="^.001^18^18^3011107^^"
^DD(664,29,21,1,0)="This field was created with the release of Prosthetics patch RMPR*3.0*67."
^DD(664,29,21,2,0)="This patch was released to allow users to modify the credit card number"
^DD(664,29,21,3,0)="contained in the Oracle reconciliation document received from Austin and"
^DD(664,29,21,4,0)="stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6)."
^DD(664,29,21,5,0)=""
^DD(664,29,21,6,0)="Due to CitiBank canceling and re-issuing a number of credit cards, it may be"
^DD(664,29,21,7,0)="necessary to modify the credit card number in the file #440.6 Oracle document"
^DD(664,29,21,8,0)="to match the credit card number that is in the original purchase order."
^DD(664,29,21,9,0)=""
^DD(664,29,21,10,0)="This field stores the new purchase card number that was sent from CitiBank in"
^DD(664,29,21,11,0)="the Oracle transaction from Austin.  This number was originally stored in file"
^DD(664,29,21,12,0)="440.6, the IFCAP PURCHASE CARD ORDER RECONCILE file, and has been replaced in"
^DD(664,29,21,13,0)="file 440.6 by the original purchase card number on the prosthetics transaction."
^DD(664,29,21,14,0)=""
^DD(664,29,21,15,0)="This is necessary so that the prosthetics order can be reconciled and closed."
^DD(664,29,21,16,0)="This field is needed to maintain the audit trail for changing the purchase"
^DD(664,29,21,17,0)="card number in 440.6 from the new purchase card number back to the original"
^DD(664,29,21,18,0)="purchase card number."
^DD(664,29,"DT")="3011026"
^DD(664,30,0)="AUDIT REPAIR^P440.6'^PRCH(440.6,^4;8^Q"
^DD(664,30,21,0)="^.001^14^14^3011107^^^"
^DD(664,30,21,1,0)="This field was created with the release of Prosthetics patch RMPR*3.0*67."
^DD(664,30,21,2,0)="This patch was released to allow users to modify the credit card number"
^DD(664,30,21,3,0)="contained in the Oracle reconciliation document received from Austin and"
^DD(664,30,21,4,0)="stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6)."
^DD(664,30,21,5,0)=""
^DD(664,30,21,6,0)="Due to CitiBank canceling and re-issuing a number of credit cards, it may be"
^DD(664,30,21,7,0)="necessary to modify the credit card number in the file #440.6 Oracle document"
^DD(664,30,21,8,0)="to match the credit card number that is in the original purchase order."
^DD(664,30,21,9,0)=""
^DD(664,30,21,10,0)="This is necessary so that the prosthetics order can be reconciled and closed."
^DD(664,30,21,11,0)="This field is needed to maintain the audit trail for changing the purchase"
^DD(664,30,21,12,0)="card number in 440.6 from the new purchase card number back to the original"
^DD(664,30,21,13,0)="purchase card number."
^DD(664,30,21,14,0)=""
^DD(664,30,"DT")="3011026"
^DD(664,31,0)="AUDIT DATE^D^^4;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(664,31,21,0)="^.001^10^10^3011107^^"
^DD(664,31,21,1,0)="This field was created with the release of Prosthetics patch RMPR*3.0*67."
^DD(664,31,21,2,0)="This patch was released to allow users to modify the credit card number"
^DD(664,31,21,3,0)="contained in the Oracle reconciliation document received from Austin and"
^DD(664,31,21,4,0)="stored in the IFCAP PURCHASE CARD RECONCILE file (#440.6)."
^DD(664,31,21,5,0)=""
^DD(664,31,21,6,0)="Due to CitiBank canceling and re-issuing a number of credit cards, it may be"
^DD(664,31,21,7,0)="necessary to modify the credit card number in the file #440.6 Oracle document"
^DD(664,31,21,8,0)="to match the credit card number that is in the original purchase order."
^DD(664,31,21,9,0)=""
^DD(664,31,21,10,0)="This is the date that the credit card number in file 440.6 was modified."
^DD(664,31,"DT")="3011026"
^DD(664,"B","2529-3",24)=""
^DD(664,"B","ACT. SHIPPING CHARGE",12)=""
^DD(664,"B","AUDIT DATE",31)=""
^DD(664,"B","AUDIT REPAIR",30)=""
^DD(664,"B","BANK AUTHORIZATION NUMBER",26)=""
^DD(664,"B","BILLING ITEM",2)=""
^DD(664,"B","C.P.",6)=""
^DD(664,"B","CANCELLATION DATE",3)=""
^DD(664,"B","CANCELLATION REMARKS",3.1)=""
^DD(664,"B","CANCELLED BY",3.2)=""
^DD(664,"B","CLOSE OUT DATE",8)=""
^DD(664,"B","CLOSE-OUT AMOUNT",28)=""
^DD(664,"B","CLOSE-OUT REMARKS",8.1)=""
^DD(664,"B","CLOSED BY",8.5)=""
^DD(664,"B","DATE",.01)=""
^DD(664,"B","DATE REQUIRED",20)=""
^DD(664,"B","DELIVER TO",19)=""
^DD(664,"B","DELIVER TO ATTENTION",21.1)=""
^DD(664,"B","DELIVERY TIME",21)=""
^DD(664,"B","EST AMOUNT",27)=""
^DD(664,"B","EST. SHIPPING CHARGE",11)=""
^DD(664,"B","FORM TYPE",15)=""
^DD(664,"B","IFCAP ORDER",7.1)=""
^DD(664,"B","INITIATOR",10)=""
^DD(664,"B","LAB TECHNICIAN",23)=""
^DD(664,"B","LAST AMEND REPRINT OK",8.8)=""
^DD(664,"B","LAST AMEND TOTAL",8.7)=""
^DD(664,"B","LAST IFCAP AMEND BY",8.6)=""
^DD(664,"B","LOCATION",19)="1"
^DD(664,"B","NEW PURCHASE CARD NUMBER",29)=""
^DD(664,"B","OBLIGATION NUMBER",.5)=""
^DD(664,"B","PATIENT",1)=""
^DD(664,"B","PERCENT DISCOUNT",17)=""
^DD(664,"B","PICKUP/DELIVERY REMARKS",14)=""
^DD(664,"B","PSC CATEGORY",16)=""
^DD(664,"B","PURCHASE CARD NUMBER",25)=""
^DD(664,"B","PURCHASE CARD REFERENCE",7.5)=""
^DD(664,"B","REFERENCE",7)=""
^DD(664,"B","SHIPPING ENTRY",13)=""
^DD(664,"B","STATION NAME",18)=""
^DD(664,"B","VENDOR",4)=""
^DD(664,"B","WORK ORDER NUMBER",22)=""
^DD(664,"GL",0,1,.01)=""
^DD(664,"GL",0,2,1)=""
^DD(664,"GL",0,3,.5)=""
^DD(664,"GL",0,4,4)=""
^DD(664,"GL",0,5,3)=""
^DD(664,"GL",0,6,6)=""
^DD(664,"GL",0,7,7)=""
^DD(664,"GL",0,8,8)=""
^DD(664,"GL",0,9,10)=""
^DD(664,"GL",0,10,11)=""
^DD(664,"GL",0,11,12)=""
^DD(664,"GL",0,12,13)=""
^DD(664,"GL",0,13,14)=""
^DD(664,"GL",0,14,18)=""
^DD(664,"GL",0,15,22)=""
^DD(664,"GL",0,16,23)=""
^DD(664,"GL",0,17,24)=""
^DD(664,"GL",1,0,2)=""
^DD(664,"GL",2,1,3.1)=""
^DD(664,"GL",2,2,3.2)=""
^DD(664,"GL",2,3,8.1)=""
^DD(664,"GL",2,4,15)=""
^DD(664,"GL",2,5,16)=""
^DD(664,"GL",2,6,17)=""
^DD(664,"GL",2,7,8.5)=""
^DD(664,"GL",2,8,8.6)=""
^DD(664,"GL",2,9,8.7)=""
^DD(664,"GL",2,10,8.8)=""
^DD(664,"GL",3,1,19)=""
^DD(664,"GL",3,2,20)=""
^DD(664,"GL",3,3,21)=""
^DD(664,"GL",3,4,21.1)=""
^DD(664,"GL",4,1,25)=""
^DD(664,"GL",4,2,26)=""
^DD(664,"GL",4,3,27)=""
^DD(664,"GL",4,4,28)=""
^DD(664,"GL",4,5,7.5)=""
^DD(664,"GL",4,6,7.1)=""
^DD(664,"GL",4,7,29)=""
^DD(664,"GL",4,8,30)=""
^DD(664,"GL",4,9,31)=""
^DD(664,"IX",.01)=""
^DD(664,"IX",.5)=""
^DD(664,"IX",1)=""
^DD(664,"IX",3.1)=""
^DD(664,"IX",7)=""
^DD(664,"IX",7.5)=""
^DD(664,"IX",8)=""
^DD(664,"IX",20)=""
^DD(664,"IX",26)=""
^DD(664,"RQ",.01)=""
^DD(664,"RQ",.5)=""
^DD(664,"RQ",1)=""
^DD(664,"RQ",3.1)=""
^DD(664,"RQ",4)=""
^DD(664,"RQ",6)=""
^DD(664,"RQ",7)=""
^DD(664,"SB",664.02,2)=""
^DD(664.02,0)="BILLING ITEM SUB-FIELD^^19^24"
^DD(664.02,0,"DT")="2960302"
^DD(664.02,0,"IX","B",664.02,.01)=""
^DD(664.02,0,"NM","BILLING ITEM")=""
^DD(664.02,0,"UP")="664"
^DD(664.02,.01,0)="BILLING ITEM^MRP661'XO^RMPR(661,^0;1^D EN1^RMPRCT"
^DD(664.02,.01,1,0)="^.1"
^DD(664.02,.01,1,1,0)="664.02^B"
^DD(664.02,.01,1,1,1)="S ^RMPR(664,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(664.02,.01,1,1,2)="K ^RMPR(664,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(664.02,.01,2)="S Y(0)=Y X ^DD(664.02,.01,2,9.2) S D0=$P(Y(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(Y(201),U,2) S D0=I(0,0) S D1=I(1,0) S Y=X"
^DD(664.02,.01,2,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RMPR(661,D0,0)):^(0),1:"""")"
^DD(664.02,.01,2.1)="ITEM:NAME:SHORT DESCRIPTION"
^DD(664.02,.01,3)="Please Enter the Item."
^DD(664.02,.01,21,0)="^^1^1^2930416^^^"
^DD(664.02,.01,21,1,0)="Pointer to the Prosthetics ITEM file #661"
^DD(664.02,.01,"DT")="3041029"
^DD(664.02,1,0)="BRIEF DESCRIPTION^RF^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(664.02,1,.1)="BRIEF DESCRIPTION OF ITEM (for Vendor)"
^DD(664.02,1,3)="Answer must be 3-60 characters in length."
^DD(664.02,1,21,0)="^^1^1^2970812^^^"
^DD(664.02,1,21,1,0)="This is the short description of the item purchased."
^DD(664.02,1,"DT")="2970812"
^DD(664.02,2,0)="UNIT COST^RNJ11,2X^^0;3^D ^RMPRCT"
^DD(664.02,2,3)="Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits."
^DD(664.02,2,21,0)="^^1^1^2911205^"
^DD(664.02,2,21,1,0)="This is the unit cost of the item to be purchased."
^DD(664.02,2,"DT")="2901005"
^DD(664.02,3,0)="QTY^RNJ5,0X^^0;4^D ITM^RMPRCT"
^DD(664.02,3,1,0)="^.1"
^DD(664.02,3,1,1,0)="664^D"
^DD(664.02,3,1,1,1)="S ^RMPR(664,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(664.02,3,1,1,2)="K ^RMPR(664,""D"",$E(X,1,30),DA(1),DA)"
^DD(664.02,3,1,1,"%D",0)="^^1^1^2930306^^"
^DD(664.02,3,1,1,"%D",1,0)="Allows sorting and lookups of items by quantity for a Prosthetics Purchase."
^DD(664.02,3,1,1,"DT")="2910710"
^DD(664.02,3,3)="Enter the quantity for this item.  Maximum 300 items."
^DD(664.02,3,21,0)="^^1^1^2911205^^^^"
^DD(664.02,3,21,1,0)="Total amount of units issued for this item."
^DD(664.02,3,"DT")="2911209"
^DD(664.02,4,0)="UNIT OF ISSUE^RP420.5'^PRCD(420.5,^0;5^Q"
^DD(664.02,4,3)="Enter the Unit of Issue for the item."
^DD(664.02,4,21,0)="^^1^1^2911205^"
^DD(664.02,4,21,1,0)="This is the Unit of Issue for the item issued."
^DD(664.02,4,"DT")="2901005"
^DD(664.02,5,0)="AMIS FLAG^S^Y:YES;N:NO;^0;6^Q"
^DD(664.02,5,3)="Enter `NO` if AMIS is not to be counter for this item."
^DD(664.02,5,21,0)="^^1^1^2920401^^"
^DD(664.02,5,21,1,0)="When this field is set to NO, AMIS will not be counted for this item."
^DD(664.02,5,"DT")="2900823"
^DD(664.02,6,0)="ACT UNIT COST^NJ8,2X^^0;7^D ACT^RMPRCT"
^DD(664.02,6,3)="Type a Dollar Amount between 0 and 10000, 2 Decimal Digits"
^DD(664.02,6,21,0)="^^2^2^2930416^^"
^DD(664.02,6,21,1,0)="Contains the Acutal Cost of the Item.  This amount is entered upon"
^DD(664.02,6,21,2,0)="close-out of the Purchase."
^DD(664.02,6,"DT")="2920213"
^DD(664.02,7,0)="REMARKS^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(664.02,7,.1)="REMARKS (2319 and 1358)"
^DD(664.02,7,1,0)="^.1^^0"
^DD(664.02,7,3)="Answer must be 1-30 characters in length."
^DD(664.02,7,21,0)="^^2^2^2911205^"
^DD(664.02,7,21,1,0)="This field stores Remarks entered for the item.  Remarks will then print"
^DD(664.02,7,21,2,0)="on the patient 10-2319 record."
^DD(664.02,7,"DT")="2950707"
^DD(664.02,8,0)="TYPE OF TRANSACTION^RS^I:INITIAL ISSUE;R:REPLACE;S:SPARE;X:REPAIR;5:RENTAL;^0;9^Q"
^DD(664.02,8,3)="Enter the Type of Transaction for this issue."
^DD(664.02,8,21,0)="^.001^1^1^3050503^^"
^DD(664.02,8,21,1,0)="This field is the Type of Transaction for the item issued."
^DD(664.02,8,"DT")="3050503"
^DD(664.02,9,0)="PATIENT CATEGORY^RS^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^0;10^Q"
^DD(664.02,9,3)="Enter the Patient Category for this issue."
^DD(664.02,9,21,0)="^^1^1^2911205^"
^DD(664.02,9,21,1,0)="This field stores the Patient Category for this item issued."
^DD(664.02,9,"DT")="2901005"
^DD(664.02,10,0)="SPECIAL CATEGORY^S^1:SPECIAL LEGISLATION;2:A&A;3:PHC;4:ELIGIBILITY REFORM;^0;11^Q"
^DD(664.02,10,3)="Enter the patient's Special Category if applicable."
^DD(664.02,10,21,0)="^^2^2^2961106^^^"
^DD(664.02,10,21,1,0)="This field stores the patient's Special Category for the item issued.  Not"
^DD(664.02,10,21,2,0)="a mandatory field."
^DD(664.02,10,"DT")="2961106"
^DD(664.02,11,0)="SOURCE^RS^V:VA;C:COMMERCIAL;^0;12^Q"
^DD(664.02,11,3)="Enter `V` for VA (PDC) issues or `C` for Commercial issues."
^DD(664.02,11,21,0)="^^1^1^2911205^"
^DD(664.02,11,21,1,0)="This field stores the Source of the item issued."
^DD(664.02,11,"DT")="2901005"
^DD(664.02,12,0)="APPLIANCE/REPAIR^P660^RMPR(660,^0;13^Q"
^DD(664.02,12,3)="Must be a number between 1 and 99999999."
^DD(664.02,12,21,0)="^^1^1^2911205^"
^DD(664.02,12,21,1,0)="This field is a pointer to file 660."
^DD(664.02,12,"DT")="2900827"
^DD(664.02,13,0)="CONTRACT #^F^^0;14^K:$L(X)>30!($L(X)<1) X"
^DD(664.02,13,3)="Answer must be 1-30 characters in length."
^DD(664.02,13,21,0)="^^1^1^2911205^"
^DD(664.02,13,21,1,0)="This field stores the Contract Number from the IFCAP Vendor file."
^DD(664.02,13,"DT")="2910628"
^DD(664.02,14,0)="EXTENDED DESCRIPTION^664.214^^1;0"
^DD(664.02,14,21,0)="^^2^2^2920520^^^"
^DD(664.02,14,21,1,0)="This is a word processing field used to enter additional information"
^DD(664.02,14,21,2,0)="describing the item issued."
^DD(664.02,15,0)="SERIAL NUMBER^F^^0;15^K:$L(X)>15!($L(X)<3) X"
^DD(664.02,15,3)="Answer must be 3-15 characters in length."
^DD(664.02,15,21,0)="^^1^1^2930519^^"
^DD(664.02,15,21,1,0)="This field stores the serial number of the item."
^DD(664.02,15,"DT")="2930111"
^DD(664.02,15.2,0)="MANUFACTURER^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^DD(664.02,15.2,3)="Answer must be 1-30 characters in length."
^DD(664.02,15.2,21,0)="^.001^1^1^3050623^^^"
^DD(664.02,15.2,21,1,0)="This is the name of the Manufacturer that supplied the item."
^DD(664.02,15.2,"DT")="3041221"
^DD(664.02,15.4,0)="MODEL^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(664.02,15.4,3)="Answer must be 1-30 characters in length."
^DD(664.02,15.4,21,0)="^^1^1^3050622^"
^DD(664.02,15.4,21,1,0)="The Model name or number of the item."
^DD(664.02,15.4,"DT")="3041104"
^DD(664.02,15.6,0)="LOT #^F^^2;3^K:$L(X)>30!($L(X)<1) X"
^DD(664.02,15.6,3)="Answer must be 1-30 characters in length."
^DD(664.02,15.6,21,0)="^^1^1^3050622^"
^DD(664.02,15.6,21,1,0)="The lot # of the item."
^DD(664.02,15.6,"DT")="3041104"
^DD(664.02,16,0)="PSAS HCPCS^RP661.1'X^RMPR(661.1,^0;16^K:$P(^RMPR(661.1,X,0),U,5)'=1 X I $D(X) D ^RMPRCPT8"
^DD(664.02,16,3)="Enter the appropriate HCPCS (Health Care Financing Administration Common Procedure Coding System) code, try E1399 if unknown."
^DD(664.02,16,21,0)="5^.001^4^4^3000511^^^^"
^DD(664.02,16,21,1,0)="Health Care Financing Administration Common Procedure Coding System,"
^DD(664.02,16,21,2,0)="(HCPCS). This field should have the HCPCS code for the Item you are"
^DD(664.02,16,21,3,0)="selecting. HCPCS is a uniform method to report professional services, "
^DD(664.02,16,21,4,0)="procedures and supplies for healthcare providers and medical suppliers."
^DD(664.02,16,23,0)="^.001^1^1^3000511^^^^"
^DD(664.02,16,23,1,0)=" "
^DD(664.02,16,"DT")="3000511"
^DD(664.02,16.1,0)="CPT MODIFIER^F^^4;2^K:$L(X)>36!($L(X)<1) X"
^DD(664.02,16.1,3)="Answer must be 1-36 characters in length."
^DD(664.02,16.1,21,0)="^^2^2^3000511^"
^DD(664.02,16.1,21,1,0)="CPT Modifiers in a comma delimited format, consistent with the HCFA"
^DD(664.02,16.1,21,2,0)="published manuals."
^DD(664.02,16.1,"DT")="3000511"
^DD(664.02,17,0)="VENDOR TRACKING NUMBER^F^^4;1^K:$L(X)>20!($L(X)<1) X"
^DD(664.02,17,3)="Answer must be 1-20 characters in length."
^DD(664.02,17,21,0)="^^6^6^2960311^^^"
^DD(664.02,17,21,1,0)="This field is the Vendor's internal unique tracking number.  Some of the"
^DD(664.02,17,21,2,0)="small vendors are not automated with VISA, and this tracking number is"
^DD(664.02,17,21,3,0)="used to reference this transaction.  This tracking number is based on the"
^DD(664.02,17,21,4,0)="item, and can be as simple as the vendors item number, or elaborate as the"
^DD(664.02,17,21,5,0)="vendors transaction number.  This data will be used in the reconciliation"
^DD(664.02,17,21,6,0)="process."
^DD(664.02,17,"DT")="2960302"
^DD(664.02,18,0)="EXCLUDE/WAIVER^S^E:EXCLUDE;W:WAIVER;^2;4^Q"
^DD(664.02,18,21,0)="^.001^1^1^3050623^^"
^DD(664.02,18,21,1,0)="Set of codes field E for Exclude W for Waiver pertaining to contracts."
^DD(664.02,18,"DT")="3050622"
^DD(664.02,19,0)="NUMBER OF BIDS^NJ3,0^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.02,19,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.02,19,21,0)="^.001^1^1^3050623^^"
^DD(664.02,19,21,1,0)="The number of bids if any for an item. Some items the number of bids is mandatory."
^DD(664.02,19,"DT")="3050413"
^DD(664.02,"B","ACT UNIT COST",6)=""
^DD(664.02,"B","AMIS FLAG",5)=""
^DD(664.02,"B","APPLIANCE/REPAIR",12)=""
^DD(664.02,"B","BILLING ITEM",.01)=""
^DD(664.02,"B","BRIEF DESCRIPTION",1)=""
^DD(664.02,"B","CONTRACT #",13)=""
^DD(664.02,"B","CPT MODIFIER",16.1)=""
^DD(664.02,"B","EXCLUDE/WAIVER",18)=""
^DD(664.02,"B","EXTENDED DESCRIPTION",14)=""
^DD(664.02,"B","LOT #",15.6)=""
^DD(664.02,"B","MANUFACTURER",15.2)=""
^DD(664.02,"B","MODEL",15.4)=""
^DD(664.02,"B","NUMBER OF BIDS",19)=""
^DD(664.02,"B","PATIENT CATEGORY",9)=""
^DD(664.02,"B","PSAS HCPCS",16)=""
^DD(664.02,"B","QTY",3)=""
^DD(664.02,"B","REMARKS",7)=""
^DD(664.02,"B","REMARKS (2319 and 1358)",7)="1"
^DD(664.02,"B","SERIAL NUMBER",15)=""
^DD(664.02,"B","SOURCE",11)=""
^DD(664.02,"B","SPECIAL CATEGORY",10)=""
^DD(664.02,"B","TYPE OF TRANSACTION",8)=""
^DD(664.02,"B","UNIT COST",2)=""
^DD(664.02,"B","UNIT OF ISSUE",4)=""
^DD(664.02,"B","VENDOR TRACKING NUMBER",17)=""
^DD(664.02,"GL",0,1,.01)=""
^DD(664.02,"GL",0,2,1)=""
^DD(664.02,"GL",0,3,2)=""
^DD(664.02,"GL",0,4,3)=""
^DD(664.02,"GL",0,5,4)=""
^DD(664.02,"GL",0,6,5)=""
^DD(664.02,"GL",0,7,6)=""
^DD(664.02,"GL",0,8,7)=""
^DD(664.02,"GL",0,9,8)=""
^DD(664.02,"GL",0,10,9)=""
^DD(664.02,"GL",0,11,10)=""
^DD(664.02,"GL",0,12,11)=""
^DD(664.02,"GL",0,13,12)=""
^DD(664.02,"GL",0,14,13)=""
^DD(664.02,"GL",0,15,15)=""
^DD(664.02,"GL",0,16,16)=""
^DD(664.02,"GL",0,17,19)=""
^DD(664.02,"GL",1,0,14)=""
^DD(664.02,"GL",2,1,15.2)=""
^DD(664.02,"GL",2,2,15.4)=""
^DD(664.02,"GL",2,3,15.6)=""
^DD(664.02,"GL",2,4,18)=""
^DD(664.02,"GL",4,1,17)=""
^DD(664.02,"GL",4,2,16.1)=""
^DD(664.02,"IX",.01)=""
^DD(664.02,"IX",3)=""
^DD(664.02,"RQ",.01)=""
^DD(664.02,"RQ",1)=""
^DD(664.02,"RQ",2)=""
^DD(664.02,"RQ",3)=""
^DD(664.02,"RQ",4)=""
^DD(664.02,"RQ",8)=""
^DD(664.02,"RQ",9)=""
^DD(664.02,"RQ",11)=""
^DD(664.02,"RQ",16)=""
^DD(664.02,"SB",664.214,14)=""
^DD(664.1,0)="FIELD^^34^48"
^DD(664.1,0,"DDA")="N"
^DD(664.1,0,"DT")="2951109"
^DD(664.1,0,"IX","B",664.1,.01)=""
^DD(664.1,0,"IX","C",664.1,4)=""
^DD(664.1,0,"IX","D",664.1,.02)=""
^DD(664.1,0,"IX","E",664.1,16)=""
^DD(664.1,0,"IX","F",664.1,4)=""
^DD(664.1,0,"IX","G",664.1,15)=""
^DD(664.1,0,"IX","H",664.1,2)=""
^DD(664.1,0,"IX","SUS",664.1,.05)=""
^DD(664.1,0,"NM","PROSTHETIC 2529-3")=""
^DD(664.1,0,"PT",660,72)=""
^DD(664.1,0,"PT",664,24)=""
^DD(664.1,0,"PT",664.22,14)=""
^DD(664.1,0,"VR")="3.0"
^DD(664.1,.01,0)="DATE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,.01,.1)="Patient Name or Date"
^DD(664.1,.01,1,0)="^.1"
^DD(664.1,.01,1,1,0)="664.1^B"
^DD(664.1,.01,1,1,1)="S ^RMPR(664.1,""B"",$E(X,1,30),DA)="""""
^DD(664.1,.01,1,1,2)="K ^RMPR(664.1,""B"",$E(X,1,30),DA)"
^DD(664.1,.01,1,1,"%D",0)="^^1^1^2950808^"
^DD(664.1,.01,1,1,"%D",1,0)="CROSS REFERENCE ON 2529-3 ENTRY DATE."
^DD(664.1,.01,3)="Enter the date the VAF 10-2529-3 was created."
^DD(664.1,.01,21,0)="^^1^1^2950726^^^^"
^DD(664.1,.01,21,1,0)="Date that the VAF 10-2529-3 was created."
^DD(664.1,.01,"DT")="2950726"
^DD(664.1,.02,0)="PATIENT^P665'^RMPR(665,^0;2^Q"
^DD(664.1,.02,1,0)="^.1"
^DD(664.1,.02,1,1,0)="664.1^D"
^DD(664.1,.02,1,1,1)="S ^RMPR(664.1,""D"",$E(X,1,30),DA)="""""
^DD(664.1,.02,1,1,2)="K ^RMPR(664.1,""D"",$E(X,1,30),DA)"
^DD(664.1,.02,1,1,"%D",0)="^^1^1^2950808^^"
^DD(664.1,.02,1,1,"%D",1,0)="X-ref used to lookup Prosthetics Patient."
^DD(664.1,.02,1,1,"DT")="2940520"
^DD(664.1,.02,3)="Enter the Name of the Patient"
^DD(664.1,.02,21,0)="^^1^1^2950413^^"
^DD(664.1,.02,21,1,0)="The name of the Prosthetics Patient requiring services."
^DD(664.1,.02,"DT")="2940819"
^DD(664.1,.03,0)="STATION^RP4'^DIC(4,^0;3^Q"
^DD(664.1,.03,3)="Enter the station name or number."
^DD(664.1,.03,21,0)="^^1^1^2961224^^^^"
^DD(664.1,.03,21,1,0)="Station that will receive the AMIS count."
^DD(664.1,.03,"DT")="2961224"
^DD(664.1,.04,0)="REQUESTING STATION^P4'^DIC(4,^0;4^Q"
^DD(664.1,.04,3)="Enter the station name or number that has requested the items/services."
^DD(664.1,.04,21,0)="^^1^1^2950413^^"
^DD(664.1,.04,21,1,0)="Station that has requested the item/services."
^DD(664.1,.04,"DT")="2940930"
^DD(664.1,.05,0)="SUSPENSE RECORD^P668'^RMPR(668,^0;8^Q"
^DD(664.1,.05,1,0)="^.1"
^DD(664.1,.05,1,1,0)="664.1^SUS"
^DD(664.1,.05,1,1,1)="S ^RMPR(664.1,""SUS"",$E(X,1,30),DA)="""""
^DD(664.1,.05,1,1,2)="K ^RMPR(664.1,""SUS"",$E(X,1,30),DA)"
^DD(664.1,.05,1,1,"%D",0)="^^2^2^3060615^"
^DD(664.1,.05,1,1,"%D",1,0)="Index on the pointer to file 668 Prosthetics Suspense Record initially"
^DD(664.1,.05,1,1,"%D",2,0)="created for the GUI Work Order."
^DD(664.1,.05,1,1,"DT")="3060203"
^DD(664.1,.05,21,0)="^^2^2^3060615^"
^DD(664.1,.05,21,1,0)="Pointer to the Prosthetics Suspense Record file #668 that is associated"
^DD(664.1,.05,21,2,0)="with this work order."
^DD(664.1,.05,"DT")="3060615"
^DD(664.1,.06,0)="ELIGIBILITY STATUS^S^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^0;6^Q"
^DD(664.1,.06,3)="Enter the appropriate ELIGIBILITY STATUS of the patient needing items/services."
^DD(664.1,.06,21,0)="^^1^1^2950413^"
^DD(664.1,.06,21,1,0)="The eligibility status of the patient needing items/services."
^DD(664.1,.06,"DT")="2930823"
^DD(664.1,.07,0)="SPECIAL CATEGORY^S^1:SPECIAL LEGISLATION;2:A&A;3:PHC;^0;22^Q"
^DD(664.1,.07,3)="Enter the appropriate SPECIAL CATEGORY of the patient needing items/services."
^DD(664.1,.07,21,0)="^^1^1^2950413^^"
^DD(664.1,.07,21,1,0)="The Special Category of the Patient needing items/services."
^DD(664.1,.07,"DT")="2931205"
^DD(664.1,.081,0)="OTHER DESCRIPTION^664.11^^5;0"
^DD(664.1,.081,21,0)="^^1^1^2960122^"
^DD(664.1,.081,21,1,0)="This is a remarks field."
^DD(664.1,.09,0)="DATE REQUIRED^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,.09,3)="Enter the Date that the Item/Services are required."
^DD(664.1,.09,21,0)="^^1^1^2950414^^^^"
^DD(664.1,.09,21,1,0)="Date that the Items/Services are required."
^DD(664.1,.09,"DT")="2930806"
^DD(664.1,.11,0)="RECEIVING STATION^P4'X^DIC(4,^0;15^D AUL^RMPR29U Q"
^DD(664.1,.11,1,0)="^.1^^0"
^DD(664.1,.11,3)="Enter the Station that will process the VAF 10-2529-3 Work Order."
^DD(664.1,.11,21,0)="^^1^1^2950414^^"
^DD(664.1,.11,21,1,0)="Station that is responsible for furnishing the item."
^DD(664.1,.11,"DT")="2950929"
^DD(664.1,1,0)="TRANSACTION TYPE^S^I:INITIAL;X:REPAIR;S:SPARE;R:REPLACE;^0;10^Q"
^DD(664.1,1,3)="Enter the transaction type."
^DD(664.1,1,21,0)="^^3^3^2950417^^^"
^DD(664.1,1,21,1,0)="This field indicates whether the item being issued is the first of this "
^DD(664.1,1,21,2,0)="item for this patient, a spare item, or is replacing the last such item "
^DD(664.1,1,21,3,0)="the patient received, or if the item is being repaired."
^DD(664.1,1,"DT")="2931219"
^DD(664.1,2,0)="SOURCE OF PROCUREMENT^S^O:ORTHOTICS/PROSTHETICS;R:RESTORATION LAB;S:SHOE LAST CLINIC;W:WHEELCHAIR REPAIR SHOP;N:NATIONAL FOOT CENTER;D:DDC;E:EYEGLASS;^0;11^Q"
^DD(664.1,2,1,0)="^.1"
^DD(664.1,2,1,1,0)="664.1^H"
^DD(664.1,2,1,1,1)="S ^RMPR(664.1,""H"",$E(X,1,30),DA)="""""
^DD(664.1,2,1,1,2)="K ^RMPR(664.1,""H"",$E(X,1,30),DA)"
^DD(664.1,2,1,1,"%D",0)="^^2^2^2960124^"
^DD(664.1,2,1,1,"%D",1,0)="This will allow lookup by the Source of Procurement.  An example might"
^DD(664.1,2,1,1,"%D",2,0)="be the user only wanted to select form the Orthotic Lab, 2529-3's."
^DD(664.1,2,1,1,"DT")="2950719"
^DD(664.1,2,3)="Enter the correct code for the Source of Procurement."
^DD(664.1,2,10)=""
^DD(664.1,2,11,0)="^.2LAP"
^DD(664.1,2,21,0)="^.001^1^1^3051014^^^^"
^DD(664.1,2,21,1,0)="Known sources from which Prosthetics Items are acquired within the VA."
^DD(664.1,2,"DT")="3051014"
^DD(664.1,4,0)="WORK ORDER NUMBER^F^^0;13^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(664.1,4,1,0)="^.1"
^DD(664.1,4,1,1,0)="664.1^C"
^DD(664.1,4,1,1,1)="S ^RMPR(664.1,""C"",$E(X,1,30),DA)="""""
^DD(664.1,4,1,1,2)="K ^RMPR(664.1,""C"",$E(X,1,30),DA)"
^DD(664.1,4,1,1,"%D",0)="^^1^1^2950808^^"
^DD(664.1,4,1,1,"%D",1,0)="X-ref is used to lookup 2529-3 by Work Order Number."
^DD(664.1,4,1,1,"DT")="2930810"
^DD(664.1,4,1,2,0)="664.1^F^MUMPS"
^DD(664.1,4,1,2,1)="I $P(X,""-"",5)'="""" S ^RMPR(664.1,""F"",$P(X,""-"",5),DA)="""""
^DD(664.1,4,1,2,2)="I $P(X,""-"",5)'="""" K ^RMPR(664.1,""F"",$P(X,""-"",5),DA)"
^DD(664.1,4,1,2,"%D",0)="^^1^1^2950808^^^^"
^DD(664.1,4,1,2,"%D",1,0)="Used to lookup 2529-3 request by extension number."
^DD(664.1,4,1,2,"DT")="2941004"
^DD(664.1,4,3)="Enter Work Order Number (e.g., 644-95-2-O-0066)."
^DD(664.1,4,21,0)="^^10^10^2950414^^^^"
^DD(664.1,4,21,1,0)="This is the permanent number used to identify and track Lab Work Orders."
^DD(664.1,4,21,2,0)="It is built from both information the user enters and the sequence"
^DD(664.1,4,21,3,0)="number assigned by the computer (e.g., 644-95-2-O-0016)."
^DD(664.1,4,21,4,0)="    644 = Station Number"
^DD(664.1,4,21,5,0)="    95  = Fiscal Year"
^DD(664.1,4,21,6,0)="    2   = Quarter"
^DD(664.1,4,21,7,0)="    O   = Type of Laboratory (Orthotic, Restoration, Shoe Last,"
^DD(664.1,4,21,8,0)="          Wheelchair Repair, National Foot Center, or Denver Distribution"
^DD(664.1,4,21,9,0)="          Center)"
^DD(664.1,4,21,10,0)="    0016 = Sequence number assigned by the computer"
^DD(664.1,4,"DT")="2941004"
^DD(664.1,5,0)="DISABILITY CODE^664.15PA^^1;0"
^DD(664.1,5,21,0)="^^1^1^2950414^^"
^DD(664.1,5,21,1,0)="This field points to the Disability code file.  It holds information on the patient's disability code that qualifies the Veteran for this service or item."
^DD(664.1,6,0)="ITEM^664.16PA^^2;0"
^DD(664.1,6,21,0)="^^3^3^2950517^"
^DD(664.1,6,21,1,0)="This field is a pointer to the master item list of possible appliances.  "
^DD(664.1,6,21,2,0)="The master list is set up so that appliances all into groups which are"
^DD(664.1,6,21,3,0)=" types of appliances."
^DD(664.1,6,23,0)="^^5^5^2950517^"
^DD(664.1,6,23,1,0)="It was discovered late in the development cycle that multiple line items"
^DD(664.1,6,23,2,0)="cause a problem in AMIS caluations.  The EP  and Peer Review recommended"
^DD(664.1,6,23,3,0)="limiting this to only 1 item.  This data is targeted to be moved at a"
^DD(664.1,6,23,4,0)="later date."
^DD(664.1,6,23,5,0)="DINUM is set to 1 in the input transform."
^DD(664.1,6,"DT")="2950414"
^DD(664.1,7,0)="CANCELLED BY^P200'^VA(200,^3;1^Q"
^DD(664.1,7,3)="Enter the Name of the Person who cancelled the VAF 10-529-3."
^DD(664.1,7,21,0)="^^2^2^2950414^^"
^DD(664.1,7,21,1,0)="Contains a pointer to the entry in the New Person file for the person who "
^DD(664.1,7,21,2,0)="cancelled this VAF 10-2529-3."
^DD(664.1,7,"DT")="2940519"
^DD(664.1,8,0)="CANCEL DATE^D^^3;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,8,3)="Enter the date this VAF 10-2529-3 was canceled."
^DD(664.1,8,21,0)="^^1^1^2950414^"
^DD(664.1,8,21,1,0)="This field contains the date the VAF 10-2529-3 was canceled."
^DD(664.1,8,"DT")="2940519"
^DD(664.1,9,0)="RETURNED BY^P200'^VA(200,^3;3^Q"
^DD(664.1,9,3)="Enter the name of the Lab Supervisor returning the VAF 10-2529-3 to the LAB as incomplete."
^DD(664.1,9,21,0)="^^1^1^2950414^^"
^DD(664.1,9,21,1,0)="Lab Supervisor that returned the 2529-3 to the Lab as incomplete."
^DD(664.1,9,"DT")="2940519"
^DD(664.1,10,0)="RETURN DATE^D^^3;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,10,3)="Enter the date the VAF 10-2529-3 was returned to the LAB."
^DD(664.1,10,21,0)="^^1^1^2950414^"
^DD(664.1,10,21,1,0)="The date the VAF 10-2529-3 was returned to the LAB."
^DD(664.1,10,"DT")="2940519"
^DD(664.1,11,0)="CANCELLATION REMARKS^664.111^^4;0"
^DD(664.1,11,21,0)="^^1^1^2950414^"
^DD(664.1,11,21,1,0)="These are the Cancellation remarks, if the VAF 10-2529-3 was canceled."
^DD(664.1,11,"DT")="2930927"
^DD(664.1,11.5,0)="RETURN TO LAB REASON^664.12^^6;0"
^DD(664.1,11.5,21,0)="^^1^1^2950414^"
^DD(664.1,11.5,21,1,0)="This contains the reason for returning the VAF 10-2529-3 to the LAB."
^DD(664.1,11.5,"DT")="2940519"
^DD(664.1,12,0)="WARD LOCATION^P42'^DIC(42,^CDR;1^Q"
^DD(664.1,12,3)="Enter the Ward or Clinic Location."
^DD(664.1,12,21,0)="^^2^2^2950417^^"
^DD(664.1,12,21,1,0)="This field will contain the ward the request was originated from if the"
^DD(664.1,12,21,2,0)="Patient is an inpatient."
^DD(664.1,12,"DT")="2940318"
^DD(664.1,12.1,0)="PHYSICIAN^P200'^VA(200,^CDR;2^Q"
^DD(664.1,12.1,3)="Enter the Name of the Provider."
^DD(664.1,12.1,21,0)="^^1^1^2950417^^^"
^DD(664.1,12.1,21,1,0)="Provider who prescribes the services/items for the Prosthetics inpatient."
^DD(664.1,12.1,"DT")="2940318"
^DD(664.1,12.2,0)="DIAGNOSIS^F^^CDR;3^K:$L(X)>40!($L(X)<3) X"
^DD(664.1,12.2,3)="Enter the patient's current diagnosis most related to receiving this item."
^DD(664.1,12.2,21,0)="^^1^1^2950414^^"
^DD(664.1,12.2,21,1,0)="Current patient diagnosis most related to receiving this item."
^DD(664.1,12.2,"DT")="2940318"
^DD(664.1,12.3,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^CDR;4^Q"
^DD(664.1,12.3,3)="Enter the Facility Treating Specialty that will be associated with cost containment reporting."
^DD(664.1,12.3,21,0)="^^1^1^2950414^"
^DD(664.1,12.3,21,1,0)="This is the Inpatient treating specialty that will be associated with cost containment reporting."
^DD(664.1,12.3,"DT")="2940318"
^DD(664.1,12.4,0)="PHYSICIAN EXTENSION^F^^CDR;5^K:$L(X)>9!($L(X)<1) X"
^DD(664.1,12.4,3)="Enter the phone extension of the Provider associated with this VAF 10-2529-3."
^DD(664.1,12.4,21,0)="^^1^1^2950417^^^"
^DD(664.1,12.4,21,1,0)="Phone Extension by which the Physician may be contacted."
^DD(664.1,12.4,"DT")="2940510"
^DD(664.1,13,0)="REQUESTING OFFICIAL^P200'^VA(200,^0;5^Q"
^DD(664.1,13,3)="Enter the Name of the Requesting Official."
^DD(664.1,13,21,0)="^^1^1^2950414^"
^DD(664.1,13,21,1,0)="This is the official person who entered this VAF 10-2529-3."
^DD(664.1,13,"DT")="2940827"
^DD(664.1,14,0)="APPROVING OFFICIAL^P200'^VA(200,^0;7^Q"
^DD(664.1,14,3)="Enter the Name of the Approving Official."
^DD(664.1,14,21,0)="^^1^1^2950414^"
^DD(664.1,14,21,1,0)="This is the official who approved this VAF 10-2529-3."
^DD(664.1,14,"DT")="2940930"
^DD(664.1,15,0)="TECHNICIAN^P200'^VA(200,^0;16^Q"
^DD(664.1,15,1,0)="^.1"
^DD(664.1,15,1,1,0)="664.1^G"
^DD(664.1,15,1,1,1)="S ^RMPR(664.1,""G"",$E(X,1,30),DA)="""""
^DD(664.1,15,1,1,2)="K ^RMPR(664.1,""G"",$E(X,1,30),DA)"
^DD(664.1,15,1,1,"%D",0)="^^1^1^2950808^^^"
^DD(664.1,15,1,1,"%D",1,0)="Lookup By Technician"
^DD(664.1,15,1,1,"DT")="2940930"
^DD(664.1,15,3)="Enter the name of the technician to associate with this VAF 10-2529-3."
^DD(664.1,15,21,0)="^^1^1^2950414^"
^DD(664.1,15,21,1,0)="This is the Technician associated with this VAF 10-2529-3."
^DD(664.1,15,"DT")="2940930"
^DD(664.1,16,0)="STATUS^S^P:PENDING ASSIGNMENT;A:ASSIGNED TO TECHNICIAN;C:COMPLETED;CA:CANCELLED;R:RETURNED TO TECHNICIAN;PC:PENDING COMPLETION;D:DELETED;I:INCOMPLETE;S:STOCK ISSUE;^0;17^Q"
^DD(664.1,16,1,0)="^.1"
^DD(664.1,16,1,1,0)="664.1^E"
^DD(664.1,16,1,1,1)="S ^RMPR(664.1,""E"",$E(X,1,30),DA)="""""
^DD(664.1,16,1,1,2)="K ^RMPR(664.1,""E"",$E(X,1,30),DA)"
^DD(664.1,16,1,1,"%D",0)="^^2^2^2950808^^"
^DD(664.1,16,1,1,"%D",1,0)="X-ref used to determine status of pending 2529-3s that will be displayed"
^DD(664.1,16,1,1,"%D",2,0)="to the Lab Supervisor when they enter the RMPR LAB MENU."
^DD(664.1,16,1,1,"DT")="2940622"
^DD(664.1,16,3)="Enter the current status of the VAF 10-2529-3"
^DD(664.1,16,21,0)="^^1^1^2981105^^^"
^DD(664.1,16,21,1,0)="This is the current status of this VAF 10-2529-3."
^DD(664.1,16,"DT")="2981105"
^DD(664.1,17,0)="REQUESTOR DATE^D^^0;18^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,17,3)="Enter the Date the Request was created."
^DD(664.1,17,21,0)="^^1^1^2950414^"
^DD(664.1,17,21,1,0)="The date this VAF 10-25-29-3 was entered."
^DD(664.1,17,"DT")="2940930"
^DD(664.1,18,0)="APPROVING DATE^D^^0;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,18,3)="Enter the Date the Request was approved."
^DD(664.1,18,21,0)="^^1^1^2950414^"
^DD(664.1,18,21,1,0)="The date this VAF 10-2529-3 was approved."
^DD(664.1,18,"DT")="2940930"
^DD(664.1,19,0)="DATE ASSIGNED^D^^7;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,19,.1)=""
^DD(664.1,19,3)="Enter the date this VAF 10-2529-3 was assigned to the lab technician."
^DD(664.1,19,21,0)="^^1^1^2950414^^"
^DD(664.1,19,21,1,0)="Date that the 2529-3 was assigned to the lab technician."
^DD(664.1,19,"DT")="2941004"
^DD(664.1,20,0)="DATE DELIVERED^D^^7;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,20,3)="Enter the date the item was delivered to the patient or requesting VAMC institution."
^DD(664.1,20,21,0)="^^2^2^2950414^^"
^DD(664.1,20,21,1,0)="Date that the item/service was delivered to the patient or requesting"
^DD(664.1,20,21,2,0)="VAMC institution."
^DD(664.1,20,"DT")="2940519"
^DD(664.1,21,0)="INSPECTING OFFICIAL^P200'^VA(200,^0;21^Q"
^DD(664.1,21,3)="Enter the name of the person who inspected the work performed by the Prosthetics Lab."
^DD(664.1,21,21,0)="^^2^2^2950414^^"
^DD(664.1,21,21,1,0)="Individual who is responsible for inspecting the work performed by the"
^DD(664.1,21,21,2,0)="Prosthetics Lab."
^DD(664.1,21,"DT")="2940519"
^DD(664.1,22,0)="COMPLETED BY^P200'^VA(200,^0;25^Q"
^DD(664.1,22,3)="Enter the name of the person who completed the job section of  the VAF 10-2529-3."
^DD(664.1,22,21,0)="^^1^1^2950414^^^"
^DD(664.1,22,21,1,0)="Indiviual who completed the Job Section of the 2529-3."
^DD(664.1,22,"DT")="2940520"
^DD(664.1,23,0)="CLOSE-OUT DATE^D^^0;26^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,23,3)="Enter the date this VAF 10-2529-3 was closed out."
^DD(664.1,23,21,0)="^^1^1^2950414^^"
^DD(664.1,23,21,1,0)="Date the the VAF 10-2529-3 was closed out for AMIS Purposes."
^DD(664.1,23,"DT")="2940520"
^DD(664.1,24,0)="DELIVERY STATUS^S^1:ISSUED TO VETERAN;2:DELIVERED TO VETERAN;3:AWAITING VETERAN PICKUP;^0;27^Q"
^DD(664.1,24,3)="Enter '1' if issued to Veteran, '2' if delivered to Veteran, '3' if awaiting Veteran Pickup."
^DD(664.1,24,21,0)="^^1^1^2950417^^"
^DD(664.1,24,21,1,0)="Code indicates delivery status of this VAF 10-2529-3."
^DD(664.1,24,"DT")="2940930"
^DD(664.1,25,0)="TOTAL MATERIALS COST^NJ8,2^^7;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(664.1,25,3)="Enter the total charges associated with the item/service requested on this VAF 10-2529-3 minus the labor charges."
^DD(664.1,25,21,0)="^^2^2^2950417^^^"
^DD(664.1,25,21,1,0)="The total charges associated with the item/service requested on this "
^DD(664.1,25,21,2,0)="VAF 10-2529-3 minus the labor costs."
^DD(664.1,25,"DT")="2931116"
^DD(664.1,26,0)="TOTAL COST^NJ10,2^^7;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(664.1,26,3)="Enter the Total dollar amount associated with the item/service(s) requested on this VAF 10-2529-3 including labor charges."
^DD(664.1,26,21,0)="^^1^1^2950414^"
^DD(664.1,26,21,1,0)="The total charges associated with the item/service(s) requested on this VAF 10-2529-3 including labor charges."
^DD(664.1,26,"DT")="2931116"
^DD(664.1,27,0)="ASSIGNED BY^P200'^VA(200,^7;3^Q"
^DD(664.1,27,3)="Enter the name of the person who assigned the VAF 10-2529-3 to the Lab Technician."
^DD(664.1,27,21,0)="^^1^1^2950414^^^^"
^DD(664.1,27,21,1,0)="Indiviual who assigned the VAF 10-2529-3 Job to a Lab Technician."
^DD(664.1,27,"DT")="2940908"
^DD(664.1,28,0)="NO ADMIN COUNT^S^1:NO COUNT;^0;23^Q"
^DD(664.1,28,3)="Enter '1' if the VAF 10-2529-3 is considered work for another station."
^DD(664.1,28,21,0)="^^3^3^2950417^^^^"
^DD(664.1,28,21,1,0)="Status is set to ensure that Work Load and Total Cost do not count on"
^DD(664.1,28,21,2,0)="the Adminstrative AMIS if the VAF 10-2529-3 is considered work for another"
^DD(664.1,28,21,3,0)="station."
^DD(664.1,28,"DT")="2940513"
^DD(664.1,29,0)="AUDIT DATE^664.129DA^^8;0"
^DD(664.1,29,21,0)="^^2^2^2950417^^^^"
^DD(664.1,29,21,1,0)="Contains the date/time that the item on Page one of the 2529-3 was changed"
^DD(664.1,29,21,2,0)="or deleted."
^DD(664.1,30,0)="JOB # COUNT^NJ3,0^^0;24^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.1,30,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.1,30,21,0)="^^2^2^2940829^"
^DD(664.1,30,21,1,0)="Set to the last job number on the 2529-3 to ensure that the Job count"
^DD(664.1,30,21,2,0)="for the 2529-3 is accurate."
^DD(664.1,30,"DT")="2940430"
^DD(664.1,31,0)="AMIS GROUPER^NJ9,0^^0;14^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(664.1,31,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(664.1,31,21,0)="^^2^2^2950414^"
^DD(664.1,31,21,1,0)="This is a number that is assigned to group the items on a request together "
^DD(664.1,31,21,2,0)="for AMIS reporting purposes."
^DD(664.1,31,"DT")="2940505"
^DD(664.1,32,0)="NO LAB COUNT^S^1:NO COUNT;^0;20^Q"
^DD(664.1,32,3)="Enter a '1' if this station will receive an item produced by another station for the patient."
^DD(664.1,32,21,0)="^^3^3^2950414^"
^DD(664.1,32,21,1,0)="If this field contains a '1' then this VAF 10-2529-3 is a request to another"
^DD(664.1,32,21,2,0)="station to provide the item/service(s), and this station will take an "
^DD(664.1,32,21,3,0)="ADMINISTRATIVE count on this request, but no LAB count."
^DD(664.1,32,"DT")="2940512"
^DD(664.1,33,0)="DATE ITEM RECEIVED^D^^7;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.1,33,3)="Enter the Date the Item was received to service the Patient."
^DD(664.1,33,21,0)="^^1^1^2950414^"
^DD(664.1,33,21,1,0)="This is the date the item was received to service the patient."
^DD(664.1,33,"DT")="2940930"
^DD(664.1,34,0)="NO COUNT WORK ORDER^P664.2'^RMPR(664.2,^0;12^Q"
^DD(664.1,34,3)="Enter the Work Order that was used to create the No Count VAF 10-2529-3."
^DD(664.1,34,21,0)="^^1^1^2950414^"
^DD(664.1,34,21,1,0)="This is the work order that was used to create the No-Count VAF 10-2529-3."
^DD(664.1,34,"DT")="2940914"
^DD(664.1,"B","AMIS GROUPER",31)=""
^DD(664.1,"B","APPROVING DATE",18)=""
^DD(664.1,"B","APPROVING OFFICIAL",14)=""
^DD(664.1,"B","ASSIGNED BY",27)=""
^DD(664.1,"B","AUDIT DATE",29)=""
^DD(664.1,"B","CANCEL DATE",8)=""
^DD(664.1,"B","CANCELLATION REMARKS",11)=""
^DD(664.1,"B","CANCELLED BY",7)=""
^DD(664.1,"B","CLOSE-OUT DATE",23)=""
^DD(664.1,"B","COMPLETED BY",22)=""
^DD(664.1,"B","DATE",.01)=""
^DD(664.1,"B","DATE ASSIGNED",19)=""
^DD(664.1,"B","DATE DELIVERED",20)=""
^DD(664.1,"B","DATE ITEM RECEIVED",33)=""
^DD(664.1,"B","DATE REQUIRED",.09)=""
^DD(664.1,"B","DELIVERY STATUS",24)=""
^DD(664.1,"B","DIAGNOSIS",12.2)=""
^DD(664.1,"B","DISABILITY CODE",5)=""
^DD(664.1,"B","ELIGIBILITY STATUS",.06)=""
^DD(664.1,"B","INSPECTING OFFICIAL",21)=""
^DD(664.1,"B","ITEM",6)=""
^DD(664.1,"B","JOB # COUNT",30)=""
^DD(664.1,"B","NO ADMIN COUNT",28)=""
^DD(664.1,"B","NO COUNT WORK ORDER",34)=""
^DD(664.1,"B","NO LAB COUNT",32)=""
^DD(664.1,"B","OTHER DESCRIPTION",.081)=""
^DD(664.1,"B","PATIENT",.02)=""
^DD(664.1,"B","PHYSICIAN",12.1)=""
^DD(664.1,"B","PHYSICIAN EXTENSION",12.4)=""
^DD(664.1,"B","Patient Name or Date",.01)="1"
^DD(664.1,"B","RECEIVING STATION",.11)=""
^DD(664.1,"B","REQUESTING OFFICIAL",13)=""
^DD(664.1,"B","REQUESTING STATION",.04)=""
^DD(664.1,"B","REQUESTOR DATE",17)=""
^DD(664.1,"B","RETURN DATE",10)=""
^DD(664.1,"B","RETURN TO LAB REASON",11.5)=""
^DD(664.1,"B","RETURNED BY",9)=""
^DD(664.1,"B","SOURCE OF PROCUREMENT",2)=""
^DD(664.1,"B","SPECIAL CATEGORY",.07)=""
^DD(664.1,"B","STATION",.03)=""
^DD(664.1,"B","STATUS",16)=""
^DD(664.1,"B","SUSPENSE RECORD",.05)=""
^DD(664.1,"B","TECHNICIAN",15)=""
^DD(664.1,"B","TOTAL COST",26)=""
^DD(664.1,"B","TOTAL MATERIALS COST",25)=""
^DD(664.1,"B","TRANSACTION TYPE",1)=""
^DD(664.1,"B","TREATING SPECIALTY",12.3)=""
^DD(664.1,"B","WARD LOCATION",12)=""
^DD(664.1,"B","WORK ORDER NUMBER",4)=""
^DD(664.1,"GL",0,1,.01)=""
^DD(664.1,"GL",0,2,.02)=""
^DD(664.1,"GL",0,3,.03)=""
^DD(664.1,"GL",0,4,.04)=""
^DD(664.1,"GL",0,5,13)=""
^DD(664.1,"GL",0,6,.06)=""
^DD(664.1,"GL",0,7,14)=""
^DD(664.1,"GL",0,8,.05)=""
^DD(664.1,"GL",0,9,.09)=""
^DD(664.1,"GL",0,10,1)=""
^DD(664.1,"GL",0,11,2)=""
^DD(664.1,"GL",0,12,34)=""
^DD(664.1,"GL",0,13,4)=""
^DD(664.1,"GL",0,14,31)=""
^DD(664.1,"GL",0,15,.11)=""
^DD(664.1,"GL",0,16,15)=""
^DD(664.1,"GL",0,17,16)=""
^DD(664.1,"GL",0,18,17)=""
^DD(664.1,"GL",0,19,18)=""
^DD(664.1,"GL",0,20,32)=""
^DD(664.1,"GL",0,21,21)=""
^DD(664.1,"GL",0,22,.07)=""
^DD(664.1,"GL",0,23,28)=""
^DD(664.1,"GL",0,24,30)=""
^DD(664.1,"GL",0,25,22)=""
^DD(664.1,"GL",0,26,23)=""
^DD(664.1,"GL",0,27,24)=""
^DD(664.1,"GL",1,0,5)=""
^DD(664.1,"GL",2,0,6)=""
^DD(664.1,"GL",3,1,7)=""
^DD(664.1,"GL",3,2,8)=""
^DD(664.1,"GL",3,3,9)=""
^DD(664.1,"GL",3,4,10)=""
^DD(664.1,"GL",4,0,11)=""
^DD(664.1,"GL",5,0,.081)=""
^DD(664.1,"GL",6,0,11.5)=""
^DD(664.1,"GL",7,1,19)=""
^DD(664.1,"GL",7,2,20)=""
^DD(664.1,"GL",7,3,27)=""
^DD(664.1,"GL",7,4,33)=""
^DD(664.1,"GL",7,7,25)=""
^DD(664.1,"GL",7,8,26)=""
^DD(664.1,"GL",8,0,29)=""
^DD(664.1,"GL","CDR",1,12)=""
^DD(664.1,"GL","CDR",2,12.1)=""
^DD(664.1,"GL","CDR",3,12.2)=""
^DD(664.1,"GL","CDR",4,12.3)=""
^DD(664.1,"GL","CDR",5,12.4)=""
^DD(664.1,"IX",.01)=""
^DD(664.1,"IX",.02)=""
^DD(664.1,"IX",.05)=""
^DD(664.1,"IX",2)=""
^DD(664.1,"IX",4)=""
^DD(664.1,"IX",15)=""
^DD(664.1,"IX",16)=""
^DD(664.1,"RQ",.01)=""
^DD(664.1,"RQ",.03)=""
^DD(664.1,"SB",664.11,.081)=""
^DD(664.1,"SB",664.111,11)=""
^DD(664.1,"SB",664.12,11.5)=""
^DD(664.1,"SB",664.129,29)=""
^DD(664.1,"SB",664.15,5)=""
^DD(664.1,"SB",664.16,6)=""
^DD(664.11,0)="OTHER DESCRIPTION SUB-FIELD^^.01^1"
^DD(664.11,0,"DT")="2930823"
^DD(664.11,0,"NM","OTHER DESCRIPTION")=""
^DD(664.11,0,"UP")="664.1"
^DD(664.11,.01,0)="OTHER DESCRIPTION^W^^0;1^Q"
^DD(664.11,.01,"DT")="2930823"
^DD(664.11,"B","OTHER DESCRIPTION",.01)=""
^DD(664.11,"GL",0,1,.01)=""
^DD(664.111,0)="CANCELLATION REMARKS SUB-FIELD^^.01^1"
^DD(664.111,0,"DT")="2930806"
^DD(664.111,0,"NM","CANCELLATION REMARKS")=""
^DD(664.111,0,"UP")="664.1"
^DD(664.111,.01,0)="CANCELLATION REMARKS^W^^0;1^Q"
^DD(664.111,.01,3)="Enter the reason the VAF 10-2519-3 is being canceled."
^DD(664.111,.01,21,0)="^^1^1^2950414^^"
^DD(664.111,.01,21,1,0)="These are the remarks explaining why the VAF 10-2529-3 was canceled."
^DD(664.111,.01,"DT")="2930927"
^DD(664.111,"B","CANCELLATION REMARKS",.01)=""
^DD(664.111,"GL",0,1,.01)=""
^DD(664.12,0)="RETURN TO LAB REASON SUB-FIELD^^.01^1"
^DD(664.12,0,"DT")="2931103"
^DD(664.12,0,"NM","RETURN TO LAB REASON")=""
^DD(664.12,0,"UP")="664.1"
^DD(664.12,.01,0)="RETURN TO LAB REASON^W^^0;1^Q"
^DD(664.12,.01,3)="Enter the reason for the return of this VAF 10-2529-3 to the Lab."
^DD(664.12,.01,21,0)="^^1^1^2950414^"
^DD(664.12,.01,21,1,0)="This is the reason the VAF 2529-3 was returned to the Lab."
^DD(664.12,.01,"DT")="2940519"
^DD(664.12,"B","RETURN TO LAB REASON",.01)=""
^DD(664.12,"GL",0,1,.01)=""
^DD(664.129,0)="AUDIT DATE SUB-FIELD^^5^6"
^DD(664.129,0,"DT")="2940908"
^DD(664.129,0,"IX","B",664.129,.01)=""
^DD(664.129,0,"NM","AUDIT DATE")=""
^DD(664.129,0,"UP")="664.1"
^DD(664.129,.01,0)="AUDIT DATE^MD^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(664.129,.01,1,0)="^.1"
^DD(664.129,.01,1,1,0)="664.129^B"
^DD(664.129,.01,1,1,1)="S ^RMPR(664.1,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(664.129,.01,1,1,2)="K ^RMPR(664.1,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(664.129,.01,3)="Enter the Date that the Audit Occured."
^DD(664.129,.01,21,0)="^^1^1^2950414^^^"
^DD(664.129,.01,21,1,0)="Contains the date/time that the item on Page one of this VAF 10-2529-3 was changed or deleted."
^DD(664.129,.01,"DT")="2940403"
^DD(664.129,1,0)="OLD ITEM/JOB^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(664.129,1,3)="Answer must be 3-30 characters in length."
^DD(664.129,1,21,0)="^^1^1^2950414^^"
^DD(664.129,1,21,1,0)="Name of item before it was changed or deleted."
^DD(664.129,1,"DT")="2940403"
^DD(664.129,2,0)="NEW ITEM/JOB^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(664.129,2,3)="Answer must be 3-30 characters in length."
^DD(664.129,2,21,0)="^^2^2^2940829^"
^DD(664.129,2,21,1,0)="Name of item after the change occured. May contain a value of 'Item not"
^DD(664.129,2,21,2,0)="found' if the Old Item/Job was deleted."
^DD(664.129,2,"DT")="2940403"
^DD(664.129,3,0)="USER^P200'^VA(200,^0;4^Q"
^DD(664.129,3,3)="Enter the Name of the User show changed the Item."
^DD(664.129,3,21,0)="^^1^1^2950414^^"
^DD(664.129,3,21,1,0)="Indiviual who made the change."
^DD(664.129,3,"DT")="2940403"
^DD(664.129,4,0)="REMARKS^664.1294^^1;0"
^DD(664.129,5,0)="RE-OPENED BY^P200'^VA(200,^0;5^Q"
^DD(664.129,5,3)="Enter the Name of the New Person Who Re-opened the record."
^DD(664.129,5,21,0)="^^1^1^2950417^^"
^DD(664.129,5,21,1,0)="Hold Name of individual that has re-opened this file."
^DD(664.129,5,"DT")="2940908"
^DD(664.129,"B","AUDIT DATE",.01)=""
^DD(664.129,"B","NEW ITEM/JOB",2)=""
^DD(664.129,"B","OLD ITEM/JOB",1)=""
^DD(664.129,"B","RE-OPENED BY",5)=""
^DD(664.129,"B","REMARKS",4)=""
^DD(664.129,"B","USER",3)=""
^DD(664.129,"GL",0,1,.01)=""
^DD(664.129,"GL",0,2,1)=""
^DD(664.129,"GL",0,3,2)=""
^DD(664.129,"GL",0,4,3)=""
^DD(664.129,"GL",0,5,5)=""
^DD(664.129,"GL",1,0,4)=""
^DD(664.129,"IX",.01)=""
^DD(664.129,"SB",664.1294,4)=""
^DD(664.1294,0)="REMARKS SUB-FIELD^^.01^1"
^DD(664.1294,0,"DT")="2940403"
^DD(664.1294,0,"NM","REMARKS")=""
^DD(664.1294,0,"UP")="664.129"
^DD(664.1294,.01,0)="REMARKS^W^^0;1^Q"
^DD(664.1294,.01,"DT")="2940403"
^DD(664.1294,"B","REMARKS",.01)=""
^DD(664.1294,"GL",0,1,.01)=""
^DD(664.15,0)="DISABILITY CODE SUB-FIELD^^3^4"
^DD(664.15,0,"DT")="2940809"
^DD(664.15,0,"IX","B",664.15,.01)=""
^DD(664.15,0,"NM","DISABILITY CODE")=""
^DD(664.15,0,"UP")="664.1"
^DD(664.15,.01,0)="DISABILITY CODE^MR*P662'^RMPR(662,^0;1^S DIC(""S"")=""I $D(RMPRDFN),$D(^RMPR(665,RMPRDFN,1,""""B"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(664.15,.01,1,0)="^.1"
^DD(664.15,.01,1,1,0)="664.15^B"
^DD(664.15,.01,1,1,1)="S ^RMPR(664.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(664.15,.01,1,1,2)="K ^RMPR(664.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(664.15,.01,3)="Enter the Disability Code from the Patient's VAF 10-2319 that qualifies him for this service or item."
^DD(664.15,.01,12)="Users are only allowed to select Disability Codes that have been entered on the Patient's 10-2319"
^DD(664.15,.01,12.1)="S DIC(""S"")=""I $D(RMPRDFN),$D(^RMPR(665,RMPRDFN,1,""""B"""",+Y))"""
^DD(664.15,.01,21,0)="^^3^3^2950414^"
^DD(664.15,.01,21,1,0)="This field points to the Disability code file.  It holds information on the"
^DD(664.15,.01,21,2,0)="patient's disability code that qualifies the Veteran for this service or "
^DD(664.15,.01,21,3,0)="item."
^DD(664.15,.01,"DT")="2940809"
^DD(664.15,1,0)="SERVICE/NON-SERVICE^RS^1:SC;2:NSC;^0;2^Q"
^DD(664.15,1,3)="Enter the code that indicates whether the Patient is Service Connected or Non-Service Connected for this disability. "
^DD(664.15,1,21,0)="^^2^2^2950414^^^^"
^DD(664.15,1,21,1,0)="This field indicates wheter the Patient is Sevice connected or not for"
^DD(664.15,1,21,2,0)="the associated Disability."
^DD(664.15,1,"DT")="2940618"
^DD(664.15,2,0)="ELIGIBILITY CATEGORY^RS^1:SC VIETNAM;2:ALL OTHER SERVICE-CONNECTED;3:NSC A&A;4:OTHERS ELEIGIBLE;5:V.I.S.T.;6:VOC REHAB;7:PHC;8:INPATIENT;9:EMPLOYEE;10:PRIMA FACIA;^0;3^Q"
^DD(664.15,2,3)="Enter the Patient's eligibility category for the item(s)/service(s)."
^DD(664.15,2,21,0)="^^2^2^2950414^^"
^DD(664.15,2,21,1,0)="This is the Eligibility Category under which the Patient is eligible"
^DD(664.15,2,21,2,0)="for items and services."
^DD(664.15,2,"DT")="2940618"
^DD(664.15,3,0)="SPECIAL LEGISLATION^S^1:PL-96-151;2:PL-91-500;3:PL-97-37;4:PL-94-581;5:HOUSEBOUND;6:PL-91-102;7:PL-91-666 (AUTO GRANT);^0;4^Q"
^DD(664.15,3,3)="Enter the item(s)/service(s). Special Legislation that entitles the Patient to the item(s)/service(s)"
^DD(664.15,3,21,0)="^^2^2^2950414^^^"
^DD(664.15,3,21,1,0)="This is the Special Legislation under which the Patient qualifies for the"
^DD(664.15,3,21,2,0)="item(s)/service(s)."
^DD(664.15,3,"DT")="2940618"
^DD(664.15,"B","DISABILITY CODE",.01)=""
^DD(664.15,"B","ELIGIBILITY CATEGORY",2)=""
^DD(664.15,"B","SERVICE/NON-SERVICE",1)=""
^DD(664.15,"B","SPECIAL LEGISLATION",3)=""
^DD(664.15,"GL",0,1,.01)=""
^DD(664.15,"GL",0,2,1)=""
^DD(664.15,"GL",0,3,2)=""
^DD(664.15,"GL",0,4,3)=""
^DD(664.15,"IX",.01)=""
^DD(664.15,"RQ",.01)=""
^DD(664.15,"RQ",1)=""
^DD(664.15,"RQ",2)=""
^DD(664.16,0)="ITEM SUB-FIELD^^18^21"
^DD(664.16,0,"DT")="2950414"
^DD(664.16,0,"IX","AC",664.16,5)=""
^DD(664.16,0,"IX","B",664.16,.01)=""
^DD(664.16,0,"NM","ITEM")=""
^DD(664.16,0,"UP")="664.1"
^DD(664.16,.01,0)="ITEM^MP661'OX^RMPR(661,^0;1^Q"
^DD(664.16,.01,1,0)="^.1"
^DD(664.16,.01,1,1,0)="664.16^B"
^DD(664.16,.01,1,1,1)="S ^RMPR(664.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(664.16,.01,1,1,2)="K ^RMPR(664.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(664.16,.01,2)="S Y(0)=Y X ^DD(664.16,.01,2,9.2) S D0=$P(Y(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(Y(201),U,2) S D0=I(0,0) S D1=I(1,0) S Y=X"
^DD(664.16,.01,2,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RMPR(661,D0,0)):^(0),1:"""")"
^DD(664.16,.01,2.1)="ITEM:.01:SHORT DESCRIPTION"
^DD(664.16,.01,3)="Enter the name of the item being requested as it is entered in the Prosthetics Item File."
^DD(664.16,.01,21,0)="^^1^1^2950414^^"
^DD(664.16,.01,21,1,0)="This field is a pointer to the master item list of possible appliances.  The master list is set up so that appliances fall into groups which are types of appliances."
^DD(664.16,.01,"AUDIT")="n"
^DD(664.16,.01,"AX")=""
^DD(664.16,.01,"DT")="2950830"
^DD(664.16,2,0)="QTY^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(664.16,2,3)="Enter the number of units you wish to order.  Keep in mind what UNIT of ISSUE you will be using. (e.g., 1 pair or 2 each)."
^DD(664.16,2,21,0)="^^2^2^2950417^^^^"
^DD(664.16,2,21,1,0)="The number of units ordered for this item.  Keep in mind that this will be"
^DD(664.16,2,21,2,0)="governed by the UNIT OF ISSUE."
^DD(664.16,2,"DT")="2930806"
^DD(664.16,3,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;3^Q"
^DD(664.16,3,3)="Enter the appropriate unit of issue for this item."
^DD(664.16,3,21,0)="^^2^2^2950417^^"
^DD(664.16,3,21,1,0)="This is the unit by which items/services are issued (e.g. each, pair, box, "
^DD(664.16,3,21,2,0)="case, etc.)."
^DD(664.16,3,"DT")="2930812"
^DD(664.16,4,0)="UNIT COST^NJ12,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(664.16,4,3)="Enter the cost of the unit ordered."
^DD(664.16,4,21,0)="^^1^1^2950414^"
^DD(664.16,4,21,1,0)="The cost per unit associated with the requested item/service."
^DD(664.16,4,"DT")="2931110"
^DD(664.16,5,0)="APPLIANCE/REPAIR^P660'^RMPR(660,^0;5^Q"
^DD(664.16,5,1,0)="^.1"
^DD(664.16,5,1,1,0)="664.16^AC^MUMPS"
^DD(664.16,5,1,1,1)="I $D(^RMPR(664.1,DA(1),2,DA,0)) S ^RMPR(664.1,""AC"",DA(1),X,DA)="""""
^DD(664.16,5,1,1,2)="I $D(^RMPR(664.1,DA(1),2,DA,0)),$P(^(0),U,5) K ^RMPR(664.1,""AC"",DA(1),X,DA)"
^DD(664.16,5,1,1,"%D",0)="^^2^2^2940829^"
^DD(664.16,5,1,1,"%D",1,0)="Lookup Applicance/Repair related to the 2529-3 item.  Applicance/Repair"
^DD(664.16,5,1,1,"%D",2,0)="entry will store Amis information."
^DD(664.16,5,1,1,"DT")="2931116"
^DD(664.16,5,3)="Enter the date of the associated RECORD OF PROS APPLIANCE/REPAIR from file 660."
^DD(664.16,5,21,0)="^^1^1^2950414^^^^"
^DD(664.16,5,21,1,0)="Pointer to associated RECORD OF PROS APPLIANCE/REPAIR entry in file 660."
^DD(664.16,5,"DT")="2931116"
^DD(664.16,6,0)="WORK ORDER NUMBER^P664.2'^RMPR(664.2,^0;6^Q"
^DD(664.16,6,3)="Enter the WORK ORDER Number (Station Number-Fiscal Year-Quarter-Type of Lab-Sequence Number, e.g., 644-95-2-O-0016)."
^DD(664.16,6,21,0)="^^10^10^2950414^^^"
^DD(664.16,6,21,1,0)="This is a permanent number used to identify and track the Lab request."
^DD(664.16,6,21,2,0)="It is built from both information the user enters and a sequence number"
^DD(664.16,6,21,3,0)="assigned by the computer (e.g., 644-95-2-O-0016)."
^DD(664.16,6,21,4,0)="    644    =  Station Number"
^DD(664.16,6,21,5,0)="    95     =  Fiscal Year"
^DD(664.16,6,21,6,0)="    2      =  Quarter"
^DD(664.16,6,21,7,0)="    O      =  Type of Laboratory (Orthotics, Restoration, Shoe Last Clinic,"
^DD(664.16,6,21,8,0)="              Wheelchair Repair Shop, National Foot Center, and Denver"
^DD(664.16,6,21,9,0)="              Distribution Center)"
^DD(664.16,6,21,10,0)="    0016   =  Sequence number assigned by the computer"
^DD(664.16,6,"DT")="2931116"
^DD(664.16,6.5,0)="BRIEF DESCRIPTION^F^^0;10^K:$L(X)>70!($L(X)<3) X"
^DD(664.16,6.5,3)="Enter a brief (3 - 70 character) description of the item/service requested."
^DD(664.16,6.5,21,0)="^^1^1^2950414^"
^DD(664.16,6.5,21,1,0)="This is a brief description ( 3 - 70 characters long) of the item/service requested."
^DD(664.16,6.5,"DT")="2950414"
^DD(664.16,7,0)="EXTENDED DESCRIPTION^664.167^^1;0"
^DD(664.16,7,21,0)="^^1^1^2950414^^"
^DD(664.16,7,21,1,0)="This is a more detailed description of the item being ordered."
^DD(664.16,7,"DT")="2940428"
^DD(664.16,8,0)="TYPE OF TRANSACTION^RS^I:INITIAL;X:REPAIR;S:SPARE;R:REPLACE;^0;7^Q"
^DD(664.16,8,3)="Enter the appropriate code to indicate whether this is an inital issue to this patient of this item, a repair to this item, to provide the patient with a spare item, or to replace an item."
^DD(664.16,8,21,0)="^^2^2^2950414^^^"
^DD(664.16,8,21,1,0)="This field indicates if this request is for an initial issue of an item,"
^DD(664.16,8,21,2,0)="to replace an item, to provide a spare item, or to repair an item."
^DD(664.16,8,"DT")="2940622"
^DD(664.16,9,0)="PATIENT CATEGORY^S^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^0;8^Q"
^DD(664.16,9,3)="Enter the code that describes the Patient status at the time of this request."
^DD(664.16,9,21,0)="^^1^1^2950414^"
^DD(664.16,9,21,1,0)="Enter the Patient category at the time of this request. "
^DD(664.16,9,"DT")="2940316"
^DD(664.16,10,0)="SPECIAL CATEGORY^S^1:SPECIAL LEGISLATION;2:A&A;3:PHC;4:ELIGIBILITY REFORM;^0;9^Q"
^DD(664.16,10,3)="Enter the appropriate special category code that would allow the NSC/OP patient to receive Prosthetic items/services."
^DD(664.16,10,21,0)="^^2^2^2990108^^"
^DD(664.16,10,21,1,0)="If the patient is NSC/OP, then this field must also be set.  Special "
^DD(664.16,10,21,2,0)="category is also used in counting AMIS."
^DD(664.16,10,"DT")="2990108"
^DD(664.16,11,0)="TOTAL COST^NJ10,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(664.16,11,3)="Enter the total cost of the item including material and labor."
^DD(664.16,11,21,0)="^^1^1^2950414^"
^DD(664.16,11,21,1,0)="This is the total cost for the item including materials and labor."
^DD(664.16,11,"DT")="2940512"
^DD(664.16,12,0)="SERIAL NUMBER^F^^0;12^K:$L(X)>30!($L(X)<3) X"
^DD(664.16,12,3)="Enter the serial number of the item, if it has one."
^DD(664.16,12,21,0)="^^1^1^2950414^^"
^DD(664.16,12,21,1,0)="This is the serial number of the item, if there is one."
^DD(664.16,12,"DT")="2940909"
^DD(664.16,13,0)="PSAS HCPCS^RP661.1'X^RMPR(661.1,^2;1^K:$P(^RMPR(661.1,X,0),U,5)'=1 X I $D(X) D ^RMPRCPT9"
^DD(664.16,13,3)="Enter the appropriate HCPCS (Health Care Financing Administration Common Procedure Coding System) code for the Item you are selecting."
^DD(664.16,13,21,0)="^^7^7^2980116^^^^"
^DD(664.16,13,21,1,0)="Health Care Financing Administration Common Procedure"
^DD(664.16,13,21,2,0)="Coding System (HCPCS)."
^DD(664.16,13,21,3,0)=" "
^DD(664.16,13,21,4,0)="This field should have the HCPCS code for the Item you"
^DD(664.16,13,21,5,0)="are selecting.  HCPCS is a uniform method for healthcare providers and"
^DD(664.16,13,21,6,0)="medical suppliers to report professional services, procedures and"
^DD(664.16,13,21,7,0)="supplies."
^DD(664.16,13,"DT")="2980116"
^DD(664.16,13.1,0)="CPT MODIFIER^F^^2;2^K:$L(X)>36!($L(X)<1) X"
^DD(664.16,13.1,3)="Answer must be 1-36 characters in length."
^DD(664.16,13.1,21,0)="^^2^2^3000510^"
^DD(664.16,13.1,21,1,0)="CPT MODIFIERS in a comma delimited format, consistent with the HCFA"
^DD(664.16,13.1,21,2,0)="published manuals."
^DD(664.16,13.1,"DT")="3000510"
^DD(664.16,13.2,0)="HIGH TECH ITEM^S^1:YES;2:NO;^2;3^Q"
^DD(664.16,13.2,21,0)="^^2^2^3060331^"
^DD(664.16,13.2,21,1,0)="This is a determination by the Prosthetics Laboratory Technician.  1=YES "
^DD(664.16,13.2,21,2,0)="this is a High Tech Item."
^DD(664.16,13.2,"DT")="3060331"
^DD(664.16,14,0)="SOURCE^S^V:VA;C:COMMERCIAL;^3;1^Q"
^DD(664.16,14,21,0)="^^1^1^2981119^"
^DD(664.16,14,21,1,0)="This is the SOURCE of an item."
^DD(664.16,14,"DT")="2981119"
^DD(664.16,15,0)="VENDOR^P440'^PRC(440,^3;2^Q"
^DD(664.16,15,21,0)="^^1^1^2981119^"
^DD(664.16,15,21,1,0)="This is a pointer to the Vendor file."
^DD(664.16,15,"DT")="2981119"
^DD(664.16,16,0)="PSAS ITEM^F^^3;3^K:$L(X)>10!($L(X)<6) X"
^DD(664.16,16,3)="Answer must be 6-10 characters in length."
^DD(664.16,16,21,0)="^^1^1^2981119^"
^DD(664.16,16,21,1,0)="This is the PSAS ITEM.  This field is mainly for Prosthetics Inventory."
^DD(664.16,16,"DT")="2981119"
^DD(664.16,17,0)="ITEM LOCATION^P661.3'^RMPR(661.3,^3;4^Q"
^DD(664.16,17,"DT")="2981119"
^DD(664.16,18,0)="INVENTORY POINT^P445'^PRCP(445,^0;13^Q"
^DD(664.16,18,21,0)="^^2^2^2990114^"
^DD(664.16,18,21,1,0)="This is a pointer to Generic Inventory file.  This field is only populated"
^DD(664.16,18,21,2,0)="if the site is running GIP and the item is not in Prosthetic Inventory."
^DD(664.16,18,"DT")="2990114"
^DD(664.16,"B","APPLIANCE/REPAIR",5)=""
^DD(664.16,"B","BRIEF DESCRIPTION",6.5)=""
^DD(664.16,"B","CPT MODIFIER",13.1)=""
^DD(664.16,"B","EXTENDED DESCRIPTION",7)=""
^DD(664.16,"B","HIGH TECH ITEM",13.2)=""
^DD(664.16,"B","INVENTORY POINT",18)=""
^DD(664.16,"B","ITEM",.01)=""
^DD(664.16,"B","ITEM LOCATION",17)=""
^DD(664.16,"B","PATIENT CATEGORY",9)=""
^DD(664.16,"B","PSAS HCPCS",13)=""
^DD(664.16,"B","PSAS ITEM",16)=""
^DD(664.16,"B","QTY",2)=""
^DD(664.16,"B","SERIAL NUMBER",12)=""
^DD(664.16,"B","SOURCE",14)=""
^DD(664.16,"B","SPECIAL CATEGORY",10)=""
^DD(664.16,"B","TOTAL COST",11)=""
^DD(664.16,"B","TYPE OF TRANSACTION",8)=""
^DD(664.16,"B","UNIT COST",4)=""
^DD(664.16,"B","UNIT OF ISSUE",3)=""
^DD(664.16,"B","VENDOR",15)=""
^DD(664.16,"B","WORK ORDER NUMBER",6)=""
^DD(664.16,"GL",0,1,.01)=""
^DD(664.16,"GL",0,2,2)=""
^DD(664.16,"GL",0,3,3)=""
^DD(664.16,"GL",0,4,4)=""
^DD(664.16,"GL",0,5,5)=""
^DD(664.16,"GL",0,6,6)=""
^DD(664.16,"GL",0,7,8)=""
^DD(664.16,"GL",0,8,9)=""
^DD(664.16,"GL",0,9,10)=""
^DD(664.16,"GL",0,10,6.5)=""
^DD(664.16,"GL",0,11,11)=""
^DD(664.16,"GL",0,12,12)=""
^DD(664.16,"GL",0,13,18)=""
^DD(664.16,"GL",1,0,7)=""
^DD(664.16,"GL",2,1,13)=""
^DD(664.16,"GL",2,2,13.1)=""
^DD(664.16,"GL",2,3,13.2)=""
^DD(664.16,"GL",3,1,14)=""
^DD(664.16,"GL",3,2,15)=""
^DD(664.16,"GL",3,3,16)=""
^DD(664.16,"GL",3,4,17)=""
^DD(664.16,"IX",.01)=""
^DD(664.16,"IX",5)=""
^DD(664.16,"RQ",8)=""
^DD(664.16,"RQ",13)=""
^DD(664.16,"SB",664.167,7)=""
^DD(664.167,0)="EXTENDED DESCRIPTION SUB-FIELD^^.01^1"
^DD(664.167,0,"DT")="2931112"
^DD(664.167,0,"NM","EXTENDED DESCRIPTION")=""
^DD(664.167,0,"UP")="664.16"
^DD(664.167,.01,0)="EXTENDED DESCRIPTION^W^^0;1^Q"
^DD(664.167,.01,3)="Enter a more lengthy description of the requested item/service if needed."
^DD(664.167,.01,21,0)="^^2^2^2950414^^^^"
^DD(664.167,.01,21,1,0)="This field may hold a more extensive description of the item/service being "
^DD(664.167,.01,21,2,0)="requested."
^DD(664.167,.01,"DT")="2940428"
^DD(664.167,"B","EXTENDED DESCRIPTION",.01)=""
^DD(664.167,"GL",0,1,.01)=""
^DD(664.2,0)="FIELD^^12^15"
^DD(664.2,0,"DDA")="N"
^DD(664.2,0,"DT")="2950414"
^DD(664.2,0,"IX","A1",664.2,2)=""
^DD(664.2,0,"IX","AC",664.22,4)=""
^DD(664.2,0,"IX","B",664.2,.01)=""
^DD(664.2,0,"IX","C",664.2,1)=""
^DD(664.2,0,"NM","PROSTHETIC WORK ORDER")=""
^DD(664.2,0,"PT",660,71)=""
^DD(664.2,0,"PT",664,22)=""
^DD(664.2,0,"PT",664.1,34)=""
^DD(664.2,0,"PT",664.16,6)=""
^DD(664.2,0,"VR")="3.0"
^DD(664.2,.01,0)="WORK ORDER NUMBER^RF^^0;1^K:$L(X)>50!($L(X)<1)!'(X'?1P.E) X"
^DD(664.2,.01,1,0)="^.1"
^DD(664.2,.01,1,1,0)="664.2^B"
^DD(664.2,.01,1,1,1)="S ^RMPR(664.2,""B"",$E(X,1,30),DA)="""""
^DD(664.2,.01,1,1,2)="K ^RMPR(664.2,""B"",$E(X,1,30),DA)"
^DD(664.2,.01,3)="Enter the WORK ORDER Number (Station Number-Fiscal Year-Quarter-Type of Lab-Sequence Number, e.g., 644-95-2-O-0016)."
^DD(664.2,.01,21,0)="^^9^9^2950414^^^^"
^DD(664.2,.01,21,1,0)="This is the permanent number used to identify and track the Lab request."
^DD(664.2,.01,21,2,0)="It is built from both information the user enters and a sequence number"
^DD(664.2,.01,21,3,0)="assigned by the computer (e.g., 644-95-2-O-0016)."
^DD(664.2,.01,21,4,0)="    644    =  Station Number"
^DD(664.2,.01,21,5,0)="    95     =  Fiscal Year"
^DD(664.2,.01,21,6,0)="    2      =  Quarter"
^DD(664.2,.01,21,7,0)="    O      =  Type of Laboratory (Orthotic, Restoration, Shoe Last,"
^DD(664.2,.01,21,8,0)="              Wheelchair Repair, National Foot Center, or Denver"
^DD(664.2,.01,21,9,0)="              Distribution Center)"
^DD(664.2,.01,"DT")="2931102"
^DD(664.2,1,0)="APPLIANCE/REPAIR^P660'^RMPR(660,^0;2^Q"
^DD(664.2,1,1,0)="^.1"
^DD(664.2,1,1,1,0)="664.2^C"
^DD(664.2,1,1,1,1)="S ^RMPR(664.2,""C"",$E(X,1,30),DA)="""""
^DD(664.2,1,1,1,2)="K ^RMPR(664.2,""C"",$E(X,1,30),DA)"
^DD(664.2,1,1,1,"%D",0)="^^1^1^2960129^^^"
^DD(664.2,1,1,1,"%D",1,0)="Used for lookup to update file 660 with materials costs."
^DD(664.2,1,1,1,"DT")="2940403"
^DD(664.2,1,3)="Enter the date of the associated RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(664.2,1,21,0)="^^2^2^2960129^^^^"
^DD(664.2,1,21,1,0)="Pointer to associated RECORD OF PROS APPLIANCE/REPAIR entry"
^DD(664.2,1,21,2,0)="in file #660."
^DD(664.2,1,"DT")="2931116"
^DD(664.2,1.5,0)="STATION^P4'^DIC(4,^0;3^Q"
^DD(664.2,1.5,3)="Enter the Station Name or Station Number."
^DD(664.2,1.5,21,0)="^^2^2^2950414^"
^DD(664.2,1.5,21,1,0)="This field is a pointer to the INSTITUTION file (#4).  If a site is"
^DD(664.2,1.5,21,2,0)="multidivisional, entries are screened out by site number."
^DD(664.2,1.5,"DT")="2931118"
^DD(664.2,1.7,0)="JOB NUMBER^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(664.2,1.7,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(664.2,1.7,21,0)="^^3^3^2960122^"
^DD(664.2,1.7,21,1,0)="This is a job number, which may be between 1 and 999.  Each job number is"
^DD(664.2,1.7,21,2,0)="associated withan item on the 2529-3.  The numbers are not entered by the"
^DD(664.2,1.7,21,3,0)="user, but set in the background in the lab routines."
^DD(664.2,1.7,"DT")="2931123"
^DD(664.2,1.8,0)="DATE^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(664.2,1.8,3)="Enter the date."
^DD(664.2,1.8,21,0)="^^1^1^2950414^"
^DD(664.2,1.8,21,1,0)="This is the DATE the Lab Work Order was entered."
^DD(664.2,1.8,"DT")="2931126"
^DD(664.2,2,0)="MATERIALS USED^664.22PA^^1;0"
^DD(664.2,2,1,0)="^.1"
^DD(664.2,2,1,1,0)="664.2^A1"
^DD(664.2,2,1,1,1)="S ^RMPR(664.2,""A1"",$E(X,1,30),DA)="""""
^DD(664.2,2,1,1,2)="K ^RMPR(664.2,""A1"",$E(X,1,30),DA)"
^DD(664.2,2,1,1,"DT")="2940403"
^DD(664.2,2,21,0)="^^2^2^2950414^^^^"
^DD(664.2,2,21,1,0)="Contains components required to complete the fabricated item.  May be"
^DD(664.2,2,21,2,0)="the fabricated item if the item was taken from stock."
^DD(664.2,2,"DT")="2940403"
^DD(664.2,4,0)="EST. SHIPPING CHARGE^NJ7,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(664.2,4,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(664.2,4,21,0)="^^1^1^2950414^"
^DD(664.2,4,21,1,0)="This is the estimated shipping cost for delivery of item(s) on VAF 10-2421."
^DD(664.2,4,"DT")="2931216"
^DD(664.2,5,0)="ACTUAL SHIPPING CHARGE^NJ7,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(664.2,5,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(664.2,5,21,0)="^^1^1^2950414^"
^DD(664.2,5,21,1,0)="This is the actual shipping cost for delivery of item(s) on VAF 10-2421."
^DD(664.2,5,"DT")="2931216"
^DD(664.2,6,0)="REFERRAL STATION^P4'^DIC(4,^0;8^Q"
^DD(664.2,6,3)="Enter the Station Name or Station Number."
^DD(664.2,6,21,0)="^^2^2^2950414^"
^DD(664.2,6,21,1,0)="This is the Station Name or Station Number of the facility that is"
^DD(664.2,6,21,2,0)="referring the VAF 10-2529-3 to a Prosthetic Laboratory."
^DD(664.2,6,"DT")="2931219"
^DD(664.2,7,0)="WORK FOR OTHER STATION^S^1:OTHER STATION;^0;9^Q"
^DD(664.2,7,3)="Enter a `1` to indicate work done by a Prosthetic Laboratory for another station."
^DD(664.2,7,21,0)="^^4^4^2950414^^"
^DD(664.2,7,21,1,0)="Prosthetic Laboratories processing a Work Order for another facility"
^DD(664.2,7,21,2,0)="should enter a `1` in order to get the appropriate AMIS credit.  The"
^DD(664.2,7,21,3,0)="referring facility receives the administrative AMIS credit, and the"
^DD(664.2,7,21,4,0)="facility processing the Work Order receives the laboratory AMIS credit."
^DD(664.2,7,"DT")="2931219"
^DD(664.2,8,0)="DATE COMPLETED^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.2,8,3)="Enter the date that the Item/Job was completed."
^DD(664.2,8,21,0)="^^1^1^2950414^^^^"
^DD(664.2,8,21,1,0)="This is the date that the Item/Job on the Lab Work Order was completed."
^DD(664.2,8,"DT")="2940602"
^DD(664.2,9,0)="COMPLETED BY^P200'^VA(200,^0;11^Q"
^DD(664.2,9,3)="Enter the name of the person who completed this Item/Job."
^DD(664.2,9,21,0)="^^1^1^2950414^"
^DD(664.2,9,21,1,0)="This is the name of the person who completed the Item/Job."
^DD(664.2,9,"DT")="2940816"
^DD(664.2,10,0)="DATE MEASURED^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.2,10,3)="Enter the date the patient was measured for the items/services requested on the Lab Work Order."
^DD(664.2,10,21,0)="^^2^2^2950414^"
^DD(664.2,10,21,1,0)="This is the date that the Lab Technician measured or fitted the patient"
^DD(664.2,10,21,2,0)="for the items/services requested on the Lab Work Order."
^DD(664.2,10,"DT")="2940511"
^DD(664.2,11,0)="CHECKED BY^P200'^VA(200,^0;12^Q"
^DD(664.2,11,3)="Enter the name of the inspecting official."
^DD(664.2,11,21,0)="^^2^2^2950414^^^"
^DD(664.2,11,21,1,0)="This is the name of the person checking the completed item/service"
^DD(664.2,11,21,2,0)="requested on the Lab Work Order for quality control monitoring."
^DD(664.2,11,"DT")="2940913"
^DD(664.2,12,0)="REMARKS^664.212^^3;0"
^DD(664.2,12,21,0)="^^1^1^2950414^"
^DD(664.2,12,21,1,0)="Additional comments noted on the Lab Work Order."
^DD(664.2,"B","ACTUAL SHIPPING CHARGE",5)=""
^DD(664.2,"B","APPLIANCE/REPAIR",1)=""
^DD(664.2,"B","CHECKED BY",11)=""
^DD(664.2,"B","COMPLETED BY",9)=""
^DD(664.2,"B","DATE",1.8)=""
^DD(664.2,"B","DATE COMPLETED",8)=""
^DD(664.2,"B","DATE MEASURED",10)=""
^DD(664.2,"B","EST. SHIPPING CHARGE",4)=""
^DD(664.2,"B","JOB NUMBER",1.7)=""
^DD(664.2,"B","MATERIALS USED",2)=""
^DD(664.2,"B","REFERRAL STATION",6)=""
^DD(664.2,"B","REMARKS",12)=""
^DD(664.2,"B","STATION",1.5)=""
^DD(664.2,"B","WORK FOR OTHER STATION",7)=""
^DD(664.2,"B","WORK ORDER NUMBER",.01)=""
^DD(664.2,"GL",0,1,.01)=""
^DD(664.2,"GL",0,2,1)=""
^DD(664.2,"GL",0,3,1.5)=""
^DD(664.2,"GL",0,4,1.7)=""
^DD(664.2,"GL",0,5,1.8)=""
^DD(664.2,"GL",0,5,10)=""
^DD(664.2,"GL",0,6,4)=""
^DD(664.2,"GL",0,7,5)=""
^DD(664.2,"GL",0,8,6)=""
^DD(664.2,"GL",0,9,7)=""
^DD(664.2,"GL",0,10,8)=""
^DD(664.2,"GL",0,11,9)=""
^DD(664.2,"GL",0,12,11)=""
^DD(664.2,"GL",1,0,2)=""
^DD(664.2,"GL",3,0,12)=""
^DD(664.2,"IX",.01)=""
^DD(664.2,"IX",1)=""
^DD(664.2,"IX",2)=""
^DD(664.2,"RQ",.01)=""
^DD(664.2,"SB",664.212,12)=""
^DD(664.2,"SB",664.22,2)=""
^DD(664.212,0)="REMARKS SUB-FIELD^^.01^1"
^DD(664.212,0,"DT")="2940511"
^DD(664.212,0,"NM","REMARKS")=""
^DD(664.212,0,"UP")="664.2"
^DD(664.212,.01,0)="REMARKS^W^^0;1^Q"
^DD(664.212,.01,3)="Enter appropriate remarks."
^DD(664.212,.01,21,0)="^^1^1^2950414^^"
^DD(664.212,.01,21,1,0)="Additional comments noted on the Lab Work Order."
^DD(664.212,.01,"DT")="2940511"
^DD(664.212,"B","REMARKS",.01)=""
^DD(664.212,"GL",0,1,.01)=""
^DD(664.214,0)="EXTENDED DESCRIPTION SUB-FIELD^^.01^1"
^DD(664.214,0,"DT")="2910709"
^DD(664.214,0,"NM","EXTENDED DESCRIPTION")=""
^DD(664.214,0,"UP")="664.02"
^DD(664.214,.01,0)="EXTENDED DESCRIPTION^W^^0;1^Q"
^DD(664.214,.01,.1)="EXTENDED DESCRIPTION (only if needed)"
^DD(664.214,.01,3)="Enter additional information about the item issued (Word-Processing)"
^DD(664.214,.01,21,0)="^^1^1^2911205^^^^"
^DD(664.214,.01,21,1,0)="This field is used to store the item component parts description."
^DD(664.214,.01,"DT")="2920520"
^DD(664.214,"B","EXTENDED DESCRIPTION",.01)=""
^DD(664.214,"GL",0,1,.01)=""
^DD(664.22,0)="MATERIALS USED SUB-FIELD^^14^14"
^DD(664.22,0,"DT")="2950414"
^DD(664.22,0,"IX","AC",664.22,11)=""
^DD(664.22,0,"IX","AF",664.22,11)=""
^DD(664.22,0,"IX","AR3",664.22,14)=""
^DD(664.22,0,"IX","AR4",664.22,14)=""
^DD(664.22,0,"IX","B",664.22,.01)=""
^DD(664.22,0,"IX","E",664.22,13)=""
^DD(664.22,0,"NM","MATERIALS USED")=""
^DD(664.22,0,"UP")="664.2"
^DD(664.22,.01,0)="MATERIALS USED^MP661'O^RMPR(661,^0;1^Q"
^DD(664.22,.01,1,0)="^.1"
^DD(664.22,.01,1,1,0)="664.22^B"
^DD(664.22,.01,1,1,1)="S ^RMPR(664.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(664.22,.01,1,1,2)="K ^RMPR(664.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(664.22,.01,2)="S Y(0)=Y X ^DD(664.22,.01,2,9.2) S D0=$P(Y(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(Y(201),U,2) S D0=I(0,0) S D1=I(1,0) S Y=X"
^DD(664.22,.01,2,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RMPR(661,D0,0)):^(0),1:"""")"
^DD(664.22,.01,2.1)=".01:.01:SHORT DESCRIPTION"
^DD(664.22,.01,3)="Enter the materials used to provide the item/service requested on the Lab Work Order."
^DD(664.22,.01,21,0)="^^2^2^2950414^^^^"
^DD(664.22,.01,21,1,0)="Component or stock issue item(s) used to complete the item(s)/service(s)"
^DD(664.22,.01,21,2,0)="requested on the Lab Work Order."
^DD(664.22,.01,"DT")="2931118"
^DD(664.22,1,0)="QTY^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.22,1,3)="Enter the number of units you wish to order.  Keep in mind what unit of issue you will be using (e.g., 1 pair or 2 each)."
^DD(664.22,1,21,0)="^^2^2^2950414^^^^"
^DD(664.22,1,21,1,0)="This is the number of units ordered for this item.  Keep in mind that"
^DD(664.22,1,21,2,0)="this will be governed by the unit of issue (e.g., pair, each)."
^DD(664.22,1,"DT")="2931116"
^DD(664.22,2,0)="MATERIALS COST^NJ10,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(664.22,2,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(664.22,2,21,0)="^^2^2^2950414^^"
^DD(664.22,2,21,1,0)="The charge associated with the item(s)/service(s) used on the Lab Work"
^DD(664.22,2,21,2,0)="Order."
^DD(664.22,2,"DT")="2931116"
^DD(664.22,3,0)="VA or COMMERCIAL SOURCE (V/C)^S^V:VA;C:COMMERCIAL;^0;4^Q"
^DD(664.22,3,3)="Enter `V` for VA Source or `C` for Commercial Source"
^DD(664.22,3,21,0)="^^2^2^2950414^^^"
^DD(664.22,3,21,1,0)="This is the source for the items ordered on VAF 10-2421 (V for VA or "
^DD(664.22,3,21,2,0)="C for Commercial)."
^DD(664.22,3,"DT")="2940327"
^DD(664.22,4,0)="INVENTORY POINT^P445'^PRCP(445,^0;5^Q"
^DD(664.22,4,1,0)="^.1"
^DD(664.22,4,1,1,0)="664.2^AC"
^DD(664.22,4,1,1,1)="S ^RMPR(664.2,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(664.22,4,1,1,2)="K ^RMPR(664.2,""AC"",$E(X,1,30),DA(1),DA)"
^DD(664.22,4,1,1,"%D",0)="^^1^1^2940829^"
^DD(664.22,4,1,1,"%D",1,0)="Used to lookup inventory point from file 445"
^DD(664.22,4,1,1,"DT")="2931121"
^DD(664.22,4,3)="Select the appropriate Inventory Point for this request."
^DD(664.22,4,21,0)="^^2^2^2950414^"
^DD(664.22,4,21,1,0)="This is the pointer to the GENERIC INVENTORY file (#445) that tells"
^DD(664.22,4,21,2,0)="which inventory point is charged for the item(s)."
^DD(664.22,4,"DT")="2931121"
^DD(664.22,5,0)="VENDOR^RP440'^PRC(440,^0;6^Q"
^DD(664.22,5,3)="Enter the name of the Vendor for the item(s) ordered on this request."
^DD(664.22,5,21,0)="^^1^1^2950414^^"
^DD(664.22,5,21,1,0)="This is the name of the Vendor for the items(s) ordered on the request."
^DD(664.22,5,"DT")="2950414"
^DD(664.22,6,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;7^Q"
^DD(664.22,6,3)="Enter the appropriate unit of issue for this item."
^DD(664.22,6,21,0)="^^2^2^2950414^^^"
^DD(664.22,6,21,1,0)="This the is unit by which item(s)/service(s) are issued (e.g., each, pair,"
^DD(664.22,6,21,2,0)="box, case, etc.)."
^DD(664.22,6,"DT")="2931119"
^DD(664.22,7,0)="SERIAL NBR^F^^0;8^K:$L(X)>50!($L(X)<3) X"
^DD(664.22,7,3)="Answer must be 3-50 characters in length."
^DD(664.22,7,21,0)="^^1^1^2950414^"
^DD(664.22,7,21,1,0)="This is number assigned by the manufacturer of the item."
^DD(664.22,7,"DT")="2931120"
^DD(664.22,9,0)="REMARKS^664.229^^3;0"
^DD(664.22,9,21,0)="^^2^2^2950414^^"
^DD(664.22,9,21,1,0)="These are the remarks entered by the Lab Technician concerning the "
^DD(664.22,9,21,2,0)="materials used on the Lab Work Order."
^DD(664.22,10,0)="REFERENCE^F^^0;10^K:$L(X)>30!($L(X)<2) X"
^DD(664.22,10,3)="Answer must be 2-30 characters in length."
^DD(664.22,10,21,0)="^^1^1^2950414^^"
^DD(664.22,10,21,1,0)="This is the VAF 10-2421 C Number from the VAF 4-1358 Daily Record entry."
^DD(664.22,10,"DT")="2931124"
^DD(664.22,11,0)="PURCHASE FORM^P664'^RMPR(664,^0;11^Q"
^DD(664.22,11,1,0)="^.1"
^DD(664.22,11,1,1,0)="664.22^AC"
^DD(664.22,11,1,1,1)="S ^RMPR(664.2,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(664.22,11,1,1,2)="K ^RMPR(664.2,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(664.22,11,1,1,"%D",0)="^^2^2^2940829^"
^DD(664.22,11,1,1,"%D",1,0)="Used to determine if Work Order has a purchase that is pending delivery of"
^DD(664.22,11,1,1,"%D",2,0)="the item."
^DD(664.22,11,1,1,"DT")="2931215"
^DD(664.22,11,1,2,0)="664.22^AF^MUMPS"
^DD(664.22,11,1,2,1)="I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) S ^RMPR(664.2,""AF"",$P(^(0),U,2),X,DA(1))="""""
^DD(664.22,11,1,2,2)="I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) K ^RMPR(664.2,""AF"",$P(^(0),U,2),X,DA(1))"
^DD(664.22,11,1,2,"%D",0)="^^1^1^2940829^"
^DD(664.22,11,1,2,"%D",1,0)="Used to determine if specific job has a Purchased item pending Delivery."
^DD(664.22,11,1,2,"DT")="2940508"
^DD(664.22,11,3)=""
^DD(664.22,11,21,0)="^^2^2^2950414^^^"
^DD(664.22,11,21,1,0)="Points to the Prosthetics 1358 file if the materials had to be purchased"
^DD(664.22,11,21,2,0)="on a VAF 10-2421 and could not be taken from stock."
^DD(664.22,11,"DT")="2940508"
^DD(664.22,12,0)="APPLIANCE/REPAIR^P660'^RMPR(660,^0;12^Q"
^DD(664.22,12,3)="Enter the date of the associated RECORD OF PROS APPLIANCE/REPAIR from file #660."
^DD(664.22,12,21,0)="^^1^1^2950414^^"
^DD(664.22,12,21,1,0)="Pointer to associated RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(664.22,12,"DT")="2931216"
^DD(664.22,13,0)="PURCHASE STATUS^S^PD:PENDING DELIVERY;D:DELIVERED;^0;9^Q"
^DD(664.22,13,1,0)="^.1"
^DD(664.22,13,1,1,0)="664.22^E^MUMPS"
^DD(664.22,13,1,1,1)="S ^RMPR(664.2,""E"",X,DA(1),DA)="""""
^DD(664.22,13,1,1,2)="K ^RMPR(664.2,""E"",X,DA(1),DA)"
^DD(664.22,13,1,1,"%D",0)="^^1^1^2940829^"
^DD(664.22,13,1,1,"%D",1,0)="Used to check status of pending 2421."
^DD(664.22,13,1,1,"DT")="2940829"
^DD(664.22,13,3)="Enter `PD` for Pending Delivery or `D` for Delivered."
^DD(664.22,13,21,0)="^^2^2^2950414^^^^"
^DD(664.22,13,21,1,0)="This field indicates if a purchase on a VAF 10-2421 is Pending"
^DD(664.22,13,21,2,0)="Delivery (PD) or Delivered (D)."
^DD(664.22,13,"DT")="2940829"
^DD(664.22,14,0)="2529-3^P664.1'^RMPR(664.1,^0;13^Q"
^DD(664.22,14,1,0)="^.1"
^DD(664.22,14,1,1,0)="664.22^AR3^MUMPS"
^DD(664.22,14,1,1,1)="S ^RMPR(664.2,""AR3"",DA(1),X,DA)="""""
^DD(664.22,14,1,1,2)="K ^RMPR(664.2,""AR3"",DA(1),X,DA)"
^DD(664.22,14,1,1,"%D",0)="^^2^2^2940914^^"
^DD(664.22,14,1,1,"%D",1,0)="X-ref is used to determine if materials where aquired using a Remote"
^DD(664.22,14,1,1,"%D",2,0)="2529-3 Request."
^DD(664.22,14,1,1,"DT")="2940914"
^DD(664.22,14,1,2,0)="664.22^AR4^MUMPS"
^DD(664.22,14,1,2,1)="I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) S ^RMPR(664.2,""AR4"",$P(^(0),U,2),X,DA(1),DA)="""""
^DD(664.22,14,1,2,2)="I $D(^RMPR(664.2,DA(1),0)),$P(^(0),U,2) K ^RMPR(664.2,""AR4"",$P(^(0),U,2),X,DA(1),DA)"
^DD(664.22,14,1,2,"%D",0)="^^2^2^2940914^"
^DD(664.22,14,1,2,"%D",1,0)="Specifies if Item in 660 was procured by a 2529-3 so Amis Item cannot be"
^DD(664.22,14,1,2,"%D",2,0)="edited."
^DD(664.22,14,1,2,"DT")="2940914"
^DD(664.22,14,3)="Enter the VAF 10-2529-3 related to this work order."
^DD(664.22,14,21,0)="^^2^2^2950414^^"
^DD(664.22,14,21,1,0)="Contains VAF 10-2529-3 request used to obtain materials for current Work"
^DD(664.22,14,21,2,0)="Order."
^DD(664.22,14,"DT")="2940914"
^DD(664.22,"B","2529-3",14)=""
^DD(664.22,"B","APPLIANCE/REPAIR",12)=""
^DD(664.22,"B","INVENTORY POINT",4)=""
^DD(664.22,"B","MATERIALS COST",2)=""
^DD(664.22,"B","MATERIALS USED",.01)=""
^DD(664.22,"B","PURCHASE FORM",11)=""
^DD(664.22,"B","PURCHASE STATUS",13)=""
^DD(664.22,"B","QTY",1)=""
^DD(664.22,"B","REFERENCE",10)=""
^DD(664.22,"B","REMARKS",9)=""
^DD(664.22,"B","SERIAL NBR",7)=""
^DD(664.22,"B","UNIT OF ISSUE",6)=""
^DD(664.22,"B","VA or COMMERCIAL SOURCE (V/C)",3)=""
^DD(664.22,"B","VENDOR",5)=""
^DD(664.22,"GL",0,1,.01)=""
^DD(664.22,"GL",0,2,1)=""
^DD(664.22,"GL",0,3,2)=""
^DD(664.22,"GL",0,4,3)=""
^DD(664.22,"GL",0,5,4)=""
^DD(664.22,"GL",0,6,5)=""
^DD(664.22,"GL",0,7,6)=""
^DD(664.22,"GL",0,8,7)=""
^DD(664.22,"GL",0,9,13)=""
^DD(664.22,"GL",0,10,10)=""
^DD(664.22,"GL",0,11,11)=""
^DD(664.22,"GL",0,12,12)=""
^DD(664.22,"GL",0,13,14)=""
^DD(664.22,"GL",3,0,9)=""
^DD(664.22,"IX",.01)=""
^DD(664.22,"IX",4)=""
^DD(664.22,"IX",11)=""
^DD(664.22,"IX",13)=""
^DD(664.22,"IX",14)=""
^DD(664.22,"RQ",5)=""
^DD(664.22,"SB",664.229,9)=""
^DD(664.229,0)="REMARKS SUB-FIELD^^.01^1"
^DD(664.229,0,"DT")="2931121"
^DD(664.229,0,"NM","REMARKS")=""
^DD(664.229,0,"UP")="664.22"
^DD(664.229,.01,0)="REMARKS^W^^0;1^Q"
^DD(664.229,.01,3)="Enter appropriate remarks concerning the materials used."
^DD(664.229,.01,"DT")="2931121"
^DD(664.229,"B","REMARKS",.01)=""
^DD(664.229,"GL",0,1,.01)=""
^DD(664.3,0)="FIELD^^3^4"
^DD(664.3,0,"DDA")="N"
^DD(664.3,0,"DT")="2940817"
^DD(664.3,0,"IX","B",664.3,.01)=""
^DD(664.3,0,"IX","C",664.3,1)=""
^DD(664.3,0,"NM","PROSTHETIC LAB HOURS DATE")=""
^DD(664.3,0,"VR")="3.0"
^DD(664.3,.01,0)="DATE^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(664.3,.01,1,0)="^.1"
^DD(664.3,.01,1,1,0)="664.3^B"
^DD(664.3,.01,1,1,1)="S ^RMPR(664.3,""B"",$E(X,1,30),DA)="""""
^DD(664.3,.01,1,1,2)="K ^RMPR(664.3,""B"",$E(X,1,30),DA)"
^DD(664.3,.01,3)="Enter the date that the service or labor was performed."
^DD(664.3,.01,21,0)="^^2^2^2950414^^^^"
^DD(664.3,.01,21,1,0)="Date that the Technician(s) performed labor to provide item/service to"
^DD(664.3,.01,21,2,0)="the patient."
^DD(664.3,.01,"DT")="2940602"
^DD(664.3,1,0)="APPLIANCE/REPAIR^P660'^RMPR(660,^0;2^Q"
^DD(664.3,1,1,0)="^.1"
^DD(664.3,1,1,1,0)="664.3^C"
^DD(664.3,1,1,1,1)="S ^RMPR(664.3,""C"",$E(X,1,30),DA)="""""
^DD(664.3,1,1,1,2)="K ^RMPR(664.3,""C"",$E(X,1,30),DA)"
^DD(664.3,1,1,1,"%D",0)="^^1^1^2940829^"
^DD(664.3,1,1,1,"%D",1,0)="X-ref used to lookup total labor Hours by Appliance/Repair."
^DD(664.3,1,1,1,"DT")="2940502"
^DD(664.3,1,3)="Enter the date of the associated RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(664.3,1,21,0)="^^2^2^2950414^^^"
^DD(664.3,1,21,1,0)="Appliance/Repair entry in file #660 associated with the labor costs from"
^DD(664.3,1,21,2,0)="the VAF 10-2529-3 Job Section."
^DD(664.3,1,"DT")="2940502"
^DD(664.3,2,0)="STATION^P4'^DIC(4,^0;3^Q"
^DD(664.3,2,3)="Enter the Station Name or Station Number."
^DD(664.3,2,21,0)="^^2^2^2950414^"
^DD(664.3,2,21,1,0)="This field is a pointer to the INSTITUTION file (#4).  If a site is"
^DD(664.3,2,21,2,0)="multidivisional, entries are screened out by site number."
^DD(664.3,2,"DT")="2940430"
^DD(664.3,3,0)="TECHNICIAN^664.33PA^^1;0"
^DD(664.3,3,21,0)="^^2^2^2950414^^"
^DD(664.3,3,21,1,0)="This is the name(s) of the technician(s) who perform the work on the "
^DD(664.3,3,21,2,0)="associated VAF 10-2529-3.  This is a pointer to the NEW PERSON file (#200)."
^DD(664.3,"B","APPLIANCE/REPAIR",1)=""
^DD(664.3,"B","DATE",.01)=""
^DD(664.3,"B","STATION",2)=""
^DD(664.3,"B","TECHNICIAN",3)=""
^DD(664.3,"GL",0,1,.01)=""
^DD(664.3,"GL",0,2,1)=""
^DD(664.3,"GL",0,3,2)=""
^DD(664.3,"GL",1,0,3)=""
^DD(664.3,"IX",.01)=""
^DD(664.3,"IX",1)=""
^DD(664.3,"RQ",.01)=""
^DD(664.3,"SB",664.33,3)=""
^DD(664.33,0)="TECHNICIAN SUB-FIELD^^2^3"
^DD(664.33,0,"DT")="2940817"
^DD(664.33,0,"IX","B",664.33,.01)=""
^DD(664.33,0,"NM","TECHNICIAN")=""
^DD(664.33,0,"UP")="664.3"
^DD(664.33,.01,0)="TECHNICIAN^MP200'^VA(200,^0;1^Q"
^DD(664.33,.01,1,0)="^.1"
^DD(664.33,.01,1,1,0)="664.33^B"
^DD(664.33,.01,1,1,1)="S ^RMPR(664.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(664.33,.01,1,1,2)="K ^RMPR(664.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(664.33,.01,3)="Enter the name of the person (LASTNAME,FIRSTNAME) who performed the services or labor."
^DD(664.33,.01,21,0)="^^3^3^2950414^"
^DD(664.33,.01,21,1,0)="This is the name(s) of the technician(s) who perform the work on the"
^DD(664.33,.01,21,2,0)="associated VAF 10-2529-3.  Multiple technicians can work on one VAF"
^DD(664.33,.01,21,3,0)="10-2529-3.  This is a pointer to the NEW PERSON file (#200)."
^DD(664.33,.01,"DT")="2940816"
^DD(664.33,1,0)="HOURS^RFX^^0;2^D TRS^RMPRHL"
^DD(664.33,1,3)="Enter the number of hours.  Example 1.25 would be 1 hour and 15 minutes, 1.75 would be 1 hour and 45 minutes, .5 would be 30 minutes."
^DD(664.33,1,21,0)="^^8^8^2951215^^^"
^DD(664.33,1,21,1,0)="This is the amount of time (hours) that a technician spends on"
^DD(664.33,1,21,2,0)="work on an item.  The hours are used to calculate the labor cost for the"
^DD(664.33,1,21,3,0)="associated VAF 10-2529-3."
^DD(664.33,1,21,4,0)=" "
^DD(664.33,1,21,5,0)="The hours are to be entered as whole hours or in 15 minute increments"
^DD(664.33,1,21,6,0)="using a decimal representation."
^DD(664.33,1,21,7,0)=" "
^DD(664.33,1,21,8,0)="Example: 1.25 or 1.5 or 1.75 or 2 or .25"
^DD(664.33,1,"DT")="2940526"
^DD(664.33,2,0)="RATE PER HOUR^NJ8,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(664.33,2,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(664.33,2,"DT")="2940817"
^DD(664.33,"B","HOURS",1)=""
^DD(664.33,"B","RATE PER HOUR",2)=""
^DD(664.33,"B","TECHNICIAN",.01)=""
^DD(664.33,"GL",0,1,.01)=""
^DD(664.33,"GL",0,2,1)=""
^DD(664.33,"GL",0,3,2)=""
^DD(664.33,"IX",.01)=""
^DD(664.33,"RQ",1)=""
^DD(664.4,0)="FIELD^^16^17"
^DD(664.4,0,"DDA")="N"
^DD(664.4,0,"DT")="2940923"
^DD(664.4,0,"IX","B",664.4,.01)=""
^DD(664.4,0,"IX","C",664.4,14)=""
^DD(664.4,0,"IX","D",664.4,16)=""
^DD(664.4,0,"NM","PROS LABORATORY/RESTORATIONS WORKSHEET")=""
^DD(664.4,0,"VR")="3.0"
^DD(664.4,.01,0)="DATE RECEIVED^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(664.4,.01,1,0)="^.1"
^DD(664.4,.01,1,1,0)="664.4^B"
^DD(664.4,.01,1,1,1)="S ^RMPRA(664.4,""B"",$E(X,1,30),DA)="""""
^DD(664.4,.01,1,1,2)="K ^RMPRA(664.4,""B"",$E(X,1,30),DA)"
^DD(664.4,.01,3)="Enter the Date the Request was Received."
^DD(664.4,.01,21,0)="^^2^2^2960124^"
^DD(664.4,.01,21,1,0)="This field holds the Date Received information that  is pulled onto the"
^DD(664.4,.01,21,2,0)="AMIS code sheet."
^DD(664.4,.01,"DT")="2940923"
^DD(664.4,1,0)="WORK ORDER NUMBER^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(664.4,1,3)="Answer must be 3-30 characters in length."
^DD(664.4,1,21,0)="^^2^2^2960124^^"
^DD(664.4,1,21,1,0)="This field holds the Work Order Number that will be pulled onto the"
^DD(664.4,1,21,2,0)="AMIS Codesheet."
^DD(664.4,1,"DT")="2940923"
^DD(664.4,2,0)="ORDERING STATION^P4'^DIC(4,^0;3^Q"
^DD(664.4,2,3)="Enter the Station Name were the request originated."
^DD(664.4,2,21,0)="^^2^2^2960124^"
^DD(664.4,2,21,1,0)="This field holds the Ordering Station information that will be pulled onto"
^DD(664.4,2,21,2,0)="the AMIS codesheet."
^DD(664.4,2,"DT")="2940923"
^DD(664.4,3,0)="NUMBER ITEMS COMPLETED^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,3,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,3,21,0)="^^2^2^2960124^"
^DD(664.4,3,21,1,0)="This field holds the Number of Items Completed that will be pulled onto"
^DD(664.4,3,21,2,0)="the AMIS codesheet."
^DD(664.4,3,"DT")="2940923"
^DD(664.4,4,0)="SC PATIENTS SERVED^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,4,21,0)="^^2^2^2960124^"
^DD(664.4,4,21,1,0)="This field contains the SC Patients Served that will be pulled onto"
^DD(664.4,4,21,2,0)="the AMIS Codesheet."
^DD(664.4,4,"DT")="2940923"
^DD(664.4,5,0)="NSC PATIENTS SERVED^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,5,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,5,21,0)="^^2^2^2960124^^"
^DD(664.4,5,21,1,0)="This field holds the NSC Patients Served data that will be pulled onto"
^DD(664.4,5,21,2,0)="the AMIS Codesheet."
^DD(664.4,5,"DT")="2940923"
^DD(664.4,6,0)="MATERIAL COST^NJ10,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(664.4,6,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(664.4,6,21,0)="^^2^2^2960124^"
^DD(664.4,6,21,1,0)="This field contains the Material Cost that will be pulled onto the AMIS"
^DD(664.4,6,21,2,0)="Codesheet."
^DD(664.4,6,"DT")="2940923"
^DD(664.4,7,0)="LABOR HOURS^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,7,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,7,21,0)="^^2^2^2960124^^"
^DD(664.4,7,21,1,0)="This field contains the Labor Hours that will be pulled into the AMIS"
^DD(664.4,7,21,2,0)="Codesheet."
^DD(664.4,7,"DT")="2940923"
^DD(664.4,8,0)="LABOR MINUTES^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,8,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,8,21,0)="^^2^2^2960124^"
^DD(664.4,8,21,1,0)="This field contains the Labor Minutes that will be pulled into the AMIS"
^DD(664.4,8,21,2,0)="Codesheet."
^DD(664.4,8,"DT")="2940923"
^DD(664.4,9,0)="TOTAL LABOR COST^NJ10,2^^0;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(664.4,9,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(664.4,9,21,0)="^^2^2^2960124^"
^DD(664.4,9,21,1,0)="This field contains the Total Labor Cost that will be pulled into the"
^DD(664.4,9,21,2,0)="AMIS Codesheet."
^DD(664.4,9,"DT")="2940923"
^DD(664.4,10,0)="BACKLOG NUMBER ITEMS^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,10,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,10,21,0)="^^3^3^2960124^"
^DD(664.4,10,21,1,0)="This field contains the Backlog Number Items that will be pulleded"
^DD(664.4,10,21,2,0)="into the"
^DD(664.4,10,21,3,0)="AMIS Codesheet."
^DD(664.4,10,"DT")="2940923"
^DD(664.4,11,0)="BACKLOG LABOR HOURS^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,11,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,11,21,0)="^^2^2^2960124^"
^DD(664.4,11,21,1,0)="This field contains the Backlog Labor Hours that will be pulled into the"
^DD(664.4,11,21,2,0)="AMIS Codesheet."
^DD(664.4,11,"DT")="2940923"
^DD(664.4,12,0)="BACKLOG LABOR MINUTES^NJ3,0^^0;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(664.4,12,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(664.4,12,21,0)="^^2^2^2960124^"
^DD(664.4,12,21,1,0)="This field contains the Backlog Labor Minutes that will be pulled into"
^DD(664.4,12,21,2,0)="the AMIS Codesheet."
^DD(664.4,12,"DT")="2940923"
^DD(664.4,13,0)="COST CHARGED^NJ10,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999.99)!(X<0) X"
^DD(664.4,13,3)="Type a Dollar Amount between 0 and 9999999.99, 2 Decimal Digits"
^DD(664.4,13,21,0)="^^2^2^2960124^"
^DD(664.4,13,21,1,0)="This field contains the Cost Charged that will be pulled into the AMIS"
^DD(664.4,13,21,2,0)="Codesheet."
^DD(664.4,13,"DT")="2940923"
^DD(664.4,14,0)="AMIS STATION^P4'^DIC(4,^0;15^Q"
^DD(664.4,14,1,0)="^.1"
^DD(664.4,14,1,1,0)="664.4^C"
^DD(664.4,14,1,1,1)="S ^RMPRA(664.4,""C"",$E(X,1,30),DA)="""""
^DD(664.4,14,1,1,2)="K ^RMPRA(664.4,""C"",$E(X,1,30),DA)"
^DD(664.4,14,1,1,"%D",0)="^^2^2^2940923^"
^DD(664.4,14,1,1,"%D",1,0)="Used to Locate Station that has currenlty run Amis to allow Mutli Divisional"
^DD(664.4,14,1,1,"%D",2,0)="Site the ability to run their own Amis."
^DD(664.4,14,1,1,"DT")="2940923"
^DD(664.4,14,3)="Contains Station that is calculating Amis."
^DD(664.4,14,21,0)="^^2^2^2960124^"
^DD(664.4,14,21,1,0)="This field contains the AMIS Station that will be pulled into the AMIS"
^DD(664.4,14,21,2,0)="Codesheet."
^DD(664.4,14,"DT")="2940923"
^DD(664.4,15,0)="SEGMENT NUMBER^F^^0;16^K:$L(X)>5!($L(X)<3) X"
^DD(664.4,15,3)="Answer must be 3-5 characters in length."
^DD(664.4,15,21,0)="^^2^2^2960124^"
^DD(664.4,15,21,1,0)="This field contains the Segment Number that will be pulled into the AMIS"
^DD(664.4,15,21,2,0)="Codesheet."
^DD(664.4,15,"DT")="2940923"
^DD(664.4,16,0)="AMIS CODE^P663'^RMPR(663,^0;17^Q"
^DD(664.4,16,1,0)="^.1"
^DD(664.4,16,1,1,0)="664.4^D"
^DD(664.4,16,1,1,1)="S ^RMPRA(664.4,""D"",$E(X,1,30),DA)="""""
^DD(664.4,16,1,1,2)="K ^RMPRA(664.4,""D"",$E(X,1,30),DA)"
^DD(664.4,16,1,1,"%D",0)="^^1^1^2940923^"
^DD(664.4,16,1,1,"%D",1,0)="Used to Sort by Amis code for Worksheet and Amis reports."
^DD(664.4,16,1,1,"DT")="2940923"
^DD(664.4,16,3)="Enter the Correct Amis code for this item."
^DD(664.4,16,21,0)="^^2^2^2960124^"
^DD(664.4,16,21,1,0)="This field contains the actual AMIS Code that will be pulled onto the"
^DD(664.4,16,21,2,0)="AMIS Codesheet."
^DD(664.4,16,"DT")="2940923"
^DD(664.4,"B","AMIS CODE",16)=""
^DD(664.4,"B","AMIS STATION",14)=""
^DD(664.4,"B","BACKLOG LABOR HOURS",11)=""
^DD(664.4,"B","BACKLOG LABOR MINUTES",12)=""
^DD(664.4,"B","BACKLOG NUMBER ITEMS",10)=""
^DD(664.4,"B","COST CHARGED",13)=""
^DD(664.4,"B","DATE RECEIVED",.01)=""
^DD(664.4,"B","LABOR HOURS",7)=""
^DD(664.4,"B","LABOR MINUTES",8)=""
^DD(664.4,"B","MATERIAL COST",6)=""
^DD(664.4,"B","NSC PATIENTS SERVED",5)=""
^DD(664.4,"B","NUMBER ITEMS COMPLETED",3)=""
^DD(664.4,"B","ORDERING STATION",2)=""
^DD(664.4,"B","SC PATIENTS SERVED",4)=""
^DD(664.4,"B","SEGMENT NUMBER",15)=""
^DD(664.4,"B","TOTAL LABOR COST",9)=""
^DD(664.4,"B","WORK ORDER NUMBER",1)=""
^DD(664.4,"GL",0,1,.01)=""
^DD(664.4,"GL",0,2,1)=""
^DD(664.4,"GL",0,3,2)=""
^DD(664.4,"GL",0,4,3)=""
^DD(664.4,"GL",0,5,4)=""
^DD(664.4,"GL",0,6,5)=""
^DD(664.4,"GL",0,7,6)=""
^DD(664.4,"GL",0,8,7)=""
^DD(664.4,"GL",0,9,8)=""
^DD(664.4,"GL",0,10,9)=""
^DD(664.4,"GL",0,11,10)=""
^DD(664.4,"GL",0,12,11)=""
^DD(664.4,"GL",0,13,12)=""
^DD(664.4,"GL",0,14,13)=""
^DD(664.4,"GL",0,15,14)=""
^DD(664.4,"GL",0,16,15)=""
^DD(664.4,"GL",0,17,16)=""
^DD(664.4,"IX",.01)=""
^DD(664.4,"IX",14)=""
^DD(664.4,"IX",16)=""
^DD(664.4,"RQ",.01)=""
^DD(665,0)="FIELD^^30^27"
^DD(665,0,"DDA")="N"
^DD(665,0,"DT")="2950713"
^DD(665,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(665,0,"IX","AC",665.194,10)=""
^DD(665,0,"IX","AE",665.193,2)=""
^DD(665,0,"IX","AHO",665,19.2)=""
^DD(665,0,"IX","ALTR",665,19.13)=""
^DD(665,0,"IX","APNEW",665.193,100)=""
^DD(665,0,"IX","APO",665.194,100)=""
^DD(665,0,"IX","B",665,.01)=""
^DD(665,0,"IX","C",665.012,1)=""
^DD(665,0,"NM","PROSTHETICS PATIENT")=""
^DD(665,0,"PT",660,.02)=""
^DD(665,0,"PT",660.1,1)=""
^DD(665,0,"PT",660.2,1)=""
^DD(665,0,"PT",661.2,1)=""
^DD(665,0,"PT",663.4,1)=""
^DD(665,0,"PT",664,1)=""
^DD(665,0,"PT",664.1,.02)=""
^DD(665,0,"PT",667,1)=""
^DD(665,0,"PT",669.9002,.01)=""
^DD(665,0,"PT",669.972,.01)=""
^DD(665,0,"PT",669.974,.01)=""
^DD(665,0,"VR")="3.0"
^DD(665,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(665,.01,1,0)="^.1^^-1"
^DD(665,.01,1,1,0)="665^B"
^DD(665,.01,1,1,1)="S ^RMPR(665,""B"",$E(X,1,30),DA)="""""
^DD(665,.01,1,1,2)="K ^RMPR(665,""B"",$E(X,1,30),DA)"
^DD(665,.01,3)="Please enter the name of the Patient."
^DD(665,.01,21,0)="^^1^1^2950713^^^^"
^DD(665,.01,21,1,0)="This is the name of the patient, same as the PATIENT file in MAS."
^DD(665,.01,"DEL",.01,0)="I 1 W ""  CANNOT DELETE PATIENT"",*7,!"
^DD(665,.01,"DT")="2950719"
^DD(665,2,0)="STATION^RP4'^DIC(4,^0;2^Q"
^DD(665,2,3)="Enter the Station Number of the patient.  If the Station Number is not entered, the entry will be deleted."
^DD(665,2,21,0)="^^1^1^2941110^^^"
^DD(665,2,21,1,0)="This is the Station that maintains the Patient's 2319."
^DD(665,2,"DT")="2870929"
^DD(665,5.5,0)="DATE OF CLOTHING ALLOWANCE^665.02DA^^6;0"
^DD(665,5.5,21,0)="^^2^2^2960122^"
^DD(665,5.5,21,1,0)="This is a multiple field.  It contains the dates of clothing allowance"
^DD(665,5.5,21,2,0)="determinations."
^DD(665,10,0)="PROSTHETIC DISABILITY CODE^665.01IP^^1;0"
^DD(665,10,21,0)="^^1^1^2950614^^^^"
^DD(665,10,21,1,0)="This field stores the Prosthetic Disability Code for the patient."
^DD(665,10,"DT")="2950614"
^DD(665,12,0)="PSC ISSUE CARD^665.012ID^^5;0"
^DD(665,12,21,0)="^^2^2^2911206^"
^DD(665,12,21,1,0)="This field stores the information of Prosthetic Service Card issued"
^DD(665,12,21,2,0)="to a patient."
^DD(665,14,0)="OTHER DATA^665.014^^4;0"
^DD(665,14,21,0)="^^1^1^2911206^"
^DD(665,14,21,1,0)="This is a word-processing field that records other patient data."
^DD(665,19.1,0)="HOME OXYGEN ELIGIBILITY^RS^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^RMPOA;1^Q"
^DD(665,19.1,.1)="Home Oxygen Eligibility"
^DD(665,19.1,3)="Enter a Home Oxygen eligibility code."
^DD(665,19.1,21,0)="^^1^1^2990224^"
^DD(665,19.1,21,1,0)="Enter the Home Oxygen eligibility code."
^DD(665,19.1,23,0)="^^1^1^2990224^^^^"
^DD(665,19.1,23,1,0)=" "
^DD(665,19.1,"DT")="2981229"
^DD(665,19.11,0)="SPECIAL NSC/OP CATEGORY^S^1:SPECIAL LEGISLATION;2:A & A;3:PHC;4:ELIGIBILITY REFORM;^RMPOA;5^Q"
^DD(665,19.11,3)="Enter the NSC/OP eligible code category."
^DD(665,19.11,21,0)="^^1^1^2990223^"
^DD(665,19.11,21,1,0)="Entry is made only for NSC/OP eligible patients."
^DD(665,19.11,"DT")="2981229"
^DD(665,19.12,0)="HOME OXYGEN CONTRACT LOCATION^P669.9'^RMPR(669.9,^RMPOA;7^Q"
^DD(665,19.12,3)="The site that handles the Home Oxygen contract for this patient."
^DD(665,19.12,21,0)="^^4^4^2981028^^"
^DD(665,19.12,21,1,0)="The Home Oxygen program is administered via a contract to a vendor."
^DD(665,19.12,21,2,0)="Each patient receives services from only one vendor.  That vendor"
^DD(665,19.12,21,3,0)="usually has a contract with a medical center (site) to provide those"
^DD(665,19.12,21,4,0)="services.  This is the site that administers that contract."
^DD(665,19.12,"DT")="2981109"
^DD(665,19.13,0)="HOME OXYGEN LETTER TO BE SENT^P665.2'^RMPR(665.2,^RMPOA;8^Q"
^DD(665,19.13,1,0)="^.1"
^DD(665,19.13,1,1,0)="665^ALTR"
^DD(665,19.13,1,1,1)="S ^RMPR(665,""ALTR"",$E(X,1,30),DA)="""""
^DD(665,19.13,1,1,2)="K ^RMPR(665,""ALTR"",$E(X,1,30),DA)"
^DD(665,19.13,1,1,"DT")="2981112"
^DD(665,19.13,3)="Indicates that a letter needs to be sent."
^DD(665,19.13,21,0)="^^1^1^2990317^^"
^DD(665,19.13,21,1,0)="Indicates that a letter needs to be sent for this patient."
^DD(665,19.13,"DT")="2981118"
^DD(665,19.14,0)="HO LETTER 1 DATE^D^^RMPOA;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(665,19.14,21,0)="^^1^1^2990608^"
^DD(665,19.14,21,1,0)="This is the date/time when Home Oxygen letter 1 was printed or deleted."
^DD(665,19.14,"DT")="2990608"
^DD(665,19.15,0)="HO LETTER 1 CODE^S^P:PRINTED;D:DELETED;^RMPOA;10^Q"
^DD(665,19.15,21,0)="^^1^1^2990608^"
^DD(665,19.15,21,1,0)="The code signifies if Home Oxygen letter 1 was printed or deleted."
^DD(665,19.15,"DT")="2990608"
^DD(665,19.16,0)="HO LETTER 2 DATE^D^^RMPOA;11^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(665,19.16,21,0)="^^1^1^2990608^"
^DD(665,19.16,21,1,0)="This is the date/time when Home Oxygen Letter 2 was printed or deleted."
^DD(665,19.16,"DT")="2990608"
^DD(665,19.17,0)="HO LETTER 2 CODE^S^P:PRINTED;D:DELETED;^RMPOA;12^Q"
^DD(665,19.17,21,0)="^^1^1^2990608^"
^DD(665,19.17,21,1,0)="The code which signifies Home Oxygen Letter 2 was printed or deleted."
^DD(665,19.17,"DT")="2990608"
^DD(665,19.18,0)="HO LETTER 3 DATE^D^^RMPOA;13^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(665,19.18,21,0)="^^1^1^2990608^"
^DD(665,19.18,21,1,0)="This is the date/time when Home Oxygen Letter 3 was printed or deleted."
^DD(665,19.18,"DT")="2990608"
^DD(665,19.19,0)="HO LETTER 3 CODE^S^P:PRINTED;D:DELETED;^RMPOA;14^Q"
^DD(665,19.19,21,0)="^^2^2^2990608^"
^DD(665,19.19,21,1,0)="The code signifies that signifies a HOme Oxygen Letter 3 was printed or"
^DD(665,19.19,21,2,0)="deleted."
^DD(665,19.19,"DT")="2990608"
^DD(665,19.2,0)="HOME OXYGEN ACTIVATION DATE^RD^^RMPOA;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665,19.2,1,0)="^.1^^-1"
^DD(665,19.2,1,1,0)="665^AHO"
^DD(665,19.2,1,1,1)="S ^RMPR(665,""AHO"",$E(X,1,30),DA)="""""
^DD(665,19.2,1,1,2)="K ^RMPR(665,""AHO"",$E(X,1,30),DA)"
^DD(665,19.2,1,1,"DT")="3000331"
^DD(665,19.2,3)="Enter the date the patient was activated in the home oxygen program."
^DD(665,19.2,21,0)="^^2^2^3000301^^^^"
^DD(665,19.2,21,1,0)="This is the date when the patient was activated as a home oxygen "
^DD(665,19.2,21,2,0)="patient. The first prescription date will be the same as this date."
^DD(665,19.2,"DT")="3000402"
^DD(665,19.3,0)="HOME OXYGEN PRESCRIPTION^665.193DA^^RMPOB;0"
^DD(665,19.3,21,0)="^.001^2^2^3051219^^^^"
^DD(665,19.3,21,1,0)="Contains data specific to this prescription such as the dates, items,"
^DD(665,19.3,21,2,0)="services, vendors, quantity, cost, etc."
^DD(665,19.3,"DT")="2981109"
^DD(665,19.4,0)="HOME OXYGEN ITEM^665.194IP^^RMPOC;0^^^"
^DD(665,19.4,"DT")="2981109"
^DD(665,19.5,0)="HOME OXYGEN INACTIVATION DATE^D^^RMPOA;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665,19.5,3)="Enter date that oxygen treatment was discontinued."
^DD(665,19.5,21,0)="^^2^2^2990317^"
^DD(665,19.5,21,1,0)="Enter the date that the home oxygen treatment was discontinued."
^DD(665,19.5,21,2,0)="Do not enter this field until the actual date of discontinuance."
^DD(665,19.5,"DT")="2981109"
^DD(665,19.6,0)="HOME OXYGEN INACTIVAT. REASON^S^D:DISCONTINUED BY PATIENT;R:Rx EXPIRED;M:MD DISCONTINUED;P:PATIENT DECEASED;I:INPATIENT STATUS;E:ENTERED IN ERROR;^RMPOA;4^Q"
^DD(665,19.6,3)="Enter a reason code."
^DD(665,19.6,21,0)="^^2^2^2990818^"
^DD(665,19.6,21,1,0)="Enter a code (P, R, M, D, I, or E) for the reason for discontinue"
^DD(665,19.6,21,2,0)="of home oxygen therapy."
^DD(665,19.6,"DT")="2990818"
^DD(665,19.7,0)="HOME OXYGEN INACTIVATED BY^P200'^VA(200,^RMPOA;6^Q"
^DD(665,19.7,3)="The user who inactivated the Patient."
^DD(665,19.7,21,0)="^^1^1^2980324^"
^DD(665,19.7,21,1,0)="User who inactivated home oxygen patient."
^DD(665,19.7,"DT")="2981109"
^DD(665,20,0)="HEIGHT (INCHES)^NJ3,0^^10;1^K:+X'=X!(X>100)!(X<48)!(X?.E1"".""1N.N) X"
^DD(665,20,3)="Type a Number between 48 and 100, 0 Decimal Digits"
^DD(665,20,21,0)="^^1^1^2911206^"
^DD(665,20,21,1,0)="This field stores the height (in inches) of the patient."
^DD(665,20,"DT")="2900911"
^DD(665,21,0)="WEIGHT (POUNDS)^NJ3,0^^10;2^K:+X'=X!(X>800)!(X<50)!(X?.E1"".""1N.N) X"
^DD(665,21,3)="Type a Number between 50 and 800, 0 Decimal Digits"
^DD(665,21,21,0)="^^1^1^2911206^"
^DD(665,21,21,1,0)="This field stores the weight of the patient in pounds."
^DD(665,21,"DT")="2900911"
^DD(665,22,0)="EYE COLOR^S^B:BLACK;BL:BLUE;GR:GREEN;GY:GRAY;BR:BROWN;H:HAZEL;W:WHITE;P:PINK;^10;3^Q"
^DD(665,22,3)="Enter the eye color of the patient."
^DD(665,22,21,0)="^^1^1^2911206^"
^DD(665,22,21,1,0)="This field stores the eye color of the patient."
^DD(665,22,"DT")="2900911"
^DD(665,23,0)="HAIR COLOR^S^B:BLACK;BR:BROWN;A:AUBURN;GY:GRAY;W:WHITE;BL:BLONDE;R:RED;^10;4^Q"
^DD(665,23,3)="Enter the hair color of the patient."
^DD(665,23,21,0)="^^1^1^2911206^"
^DD(665,23,21,1,0)="This field stores the hair color of the patient."
^DD(665,23,"DT")="2900911"
^DD(665,30,0)="CRITICAL COMMENTS^665.03^^8;0"
^DD(665,30,21,0)="^^1^1^2920909^"
^DD(665,30,21,1,0)="Stores patient notes/critical comments for prosthetics."
^DD(665,"B","CRITICAL COMMENTS",30)=""
^DD(665,"B","DATE OF CLOTHING ALLOWANCE",5.5)=""
^DD(665,"B","EYE COLOR",22)=""
^DD(665,"B","HAIR COLOR",23)=""
^DD(665,"B","HEIGHT (INCHES)",20)=""
^DD(665,"B","HO LETTER 1 CODE",19.15)=""
^DD(665,"B","HO LETTER 1 DATE",19.14)=""
^DD(665,"B","HO LETTER 2 CODE",19.17)=""
^DD(665,"B","HO LETTER 2 DATE",19.16)=""
^DD(665,"B","HO LETTER 3 CODE",19.19)=""
^DD(665,"B","HO LETTER 3 DATE",19.18)=""
^DD(665,"B","HOME OXYGEN ACTIVATION DATE",19.2)=""
^DD(665,"B","HOME OXYGEN CONTRACT LOCATION",19.12)=""
^DD(665,"B","HOME OXYGEN ELIGIBILITY",19.1)=""
^DD(665,"B","HOME OXYGEN INACTIVAT. REASON",19.6)=""
^DD(665,"B","HOME OXYGEN INACTIVATED BY",19.7)=""
^DD(665,"B","HOME OXYGEN INACTIVATION DATE",19.5)=""
^DD(665,"B","HOME OXYGEN ITEM",19.4)=""
^DD(665,"B","HOME OXYGEN LETTER TO BE SENT",19.13)=""
^DD(665,"B","HOME OXYGEN PRESCRIPTION",19.3)=""
^DD(665,"B","Home Oxygen Eligibility",19.1)="1"
^DD(665,"B","NAME",.01)=""
^DD(665,"B","OTHER DATA",14)=""
^DD(665,"B","PROSTHETIC DISABILITY CODE",10)=""
^DD(665,"B","PSC ISSUE CARD",12)=""
^DD(665,"B","SPECIAL NSC/OP CATEGORY",19.11)=""
^DD(665,"B","STATION",2)=""
^DD(665,"B","WEIGHT (POUNDS)",21)=""
^DD(665,"GL",0,1,.01)=""
^DD(665,"GL",0,2,2)=""
^DD(665,"GL",1,0,10)=""
^DD(665,"GL",4,0,14)=""
^DD(665,"GL",5,0,12)=""
^DD(665,"GL",6,0,5.5)=""
^DD(665,"GL",8,0,30)=""
^DD(665,"GL",10,1,20)=""
^DD(665,"GL",10,2,21)=""
^DD(665,"GL",10,3,22)=""
^DD(665,"GL",10,4,23)=""
^DD(665,"GL","RMPOA",1,19.1)=""
^DD(665,"GL","RMPOA",2,19.2)=""
^DD(665,"GL","RMPOA",3,19.5)=""
^DD(665,"GL","RMPOA",4,19.6)=""
^DD(665,"GL","RMPOA",5,19.11)=""
^DD(665,"GL","RMPOA",6,19.7)=""
^DD(665,"GL","RMPOA",7,19.12)=""
^DD(665,"GL","RMPOA",8,19.13)=""
^DD(665,"GL","RMPOA",9,19.14)=""
^DD(665,"GL","RMPOA",10,19.15)=""
^DD(665,"GL","RMPOA",11,19.16)=""
^DD(665,"GL","RMPOA",12,19.17)=""
^DD(665,"GL","RMPOA",13,19.18)=""
^DD(665,"GL","RMPOA",14,19.19)=""
^DD(665,"GL","RMPOB",0,19.3)=""
^DD(665,"GL","RMPOC",0,19.4)=""
^DD(665,"IX",.01)=""
^DD(665,"IX",19.13)=""
^DD(665,"IX",19.2)=""
^DD(665,"RQ",.01)=""
^DD(665,"RQ",2)=""
^DD(665,"RQ",19.1)=""
^DD(665,"RQ",19.2)=""
^DD(665,"SB",665.01,10)=""
^DD(665,"SB",665.012,12)=""
^DD(665,"SB",665.014,14)=""
^DD(665,"SB",665.02,5.5)=""
^DD(665,"SB",665.03,30)=""
^DD(665,"SB",665.193,19.3)=""
^DD(665,"SB",665.194,19.4)=""
^DD(665.01,0)="PROSTHETIC DISABILITY CODE SUB-FIELD^^10^10"
^DD(665.01,0,"DT")="2950530"
^DD(665.01,0,"IX","AA",665.01,1)=""
^DD(665.01,0,"IX","AD",665.01,10)=""
^DD(665.01,0,"IX","B",665.01,.01)=""
^DD(665.01,0,"NM","PROSTHETIC DISABILITY CODE")=""
^DD(665.01,0,"UP")="665"
^DD(665.01,.01,0)="PROSTHETIC DISABILITY CODE^MP662'^RMPR(662,^0;1^Q"
^DD(665.01,.01,1,0)="^.1^^-1"
^DD(665.01,.01,1,1,0)="665.01^B"
^DD(665.01,.01,1,1,1)="S ^RMPR(665,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(665.01,.01,1,1,2)="K ^RMPR(665,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(665.01,.01,3)="Enter the Patient's Prosthetic Disability Code."
^DD(665.01,.01,21,0)="^^1^1^2950602^^^^"
^DD(665.01,.01,21,1,0)="This is a pointer to the Prosthetic Disability Code file (662)."
^DD(665.01,.01,"DT")="2910201"
^DD(665.01,1,0)="DATE CODE ADDED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.01,1,1,0)="^.1"
^DD(665.01,1,1,1,0)="665.01^AA^MUMPS"
^DD(665.01,1,1,1,1)="I $D(^RMPR(665,DA(1),1,DA)) S ZA=$P(^RMPR(665,DA(1),1,DA,0),U,1) S:+ZA ^RMPR(665,""AA"",X,DA(1),DA)="""" K ZA"
^DD(665.01,1,1,1,2)="I $D(^RMPR(665,DA(1),1,DA)) S ZA=$P(^RMPR(665,DA(1),1,DA,0),U,1) K:+ZA ^RMPR(665,""AA"",X,DA(1),DA) K ZA"
^DD(665.01,1,1,1,"%D",0)="^^1^1^2930306^^^"
^DD(665.01,1,1,1,"%D",1,0)="This x-ref will allow sorting of Date disability code added. "
^DD(665.01,1,1,1,"DT")="2930306"
^DD(665.01,1,3)="Enter the date the Disability Code was entered."
^DD(665.01,1,21,0)="^^1^1^2911205^"
^DD(665.01,1,21,1,0)="This is the date the Disability Code was entered."
^DD(665.01,1,"DT")="2930306"
^DD(665.01,2,0)="SERVICE/NON-SERVICE^RSX^1:SERVICE CONNECTED;2:NON-SERVICE CONNECTED;^0;3^D:$D(RMPRDFN) CHK^RMPRDIS Q"
^DD(665.01,2,1,0)="^.1^^0"
^DD(665.01,2,3)="Enter `1` for Service Connected or `2` for Non-Service Connected."
^DD(665.01,2,21,0)="^^2^2^2950530^^"
^DD(665.01,2,21,1,0)="This field stores if the Disability Code is Service or Non-Service"
^DD(665.01,2,21,2,0)="connected."
^DD(665.01,2,"DT")="2930603"
^DD(665.01,3,0)="ELIGIBILITY CATEGORY^R*S^1:SC VIETNAM;2:ALL OTHER SERVICE-CONNECTED;3:NSC A&A;4:OTHERS ELIGIBLE;5:V.I.S.T.;6:VOC REHAB;7:PHC;8:INPATIENT;9:EMPLOYEE;10:PRIMA FACIA;^0;4^Q"
^DD(665.01,3,.1)=" "
^DD(665.01,3,3)="Enter the Eligibility Category for the patient."
^DD(665.01,3,12)="Select the appropriate code."
^DD(665.01,3,12.1)="Q"
^DD(665.01,3,21,0)="^^1^1^2960314^^^^"
^DD(665.01,3,21,1,0)="This field stores the Eligibility Category for the Patient."
^DD(665.01,3,"DT")="2960227"
^DD(665.01,4,0)="SPECIAL LEGISLATION^S^1:PL-96-151;2:PL-91-500;3:PL-97-37;4:PL-94-581;5:HOUSEBOUND;6:PL-91-102;7:PL-91-666 (AUTO GRANT);8:PL-104-262 (ELIG. REFORM);^0;5^Q"
^DD(665.01,4,3)="Enter the patient's Special Legislation if applicable."
^DD(665.01,4,21,0)="^^2^2^2961106^^^^"
^DD(665.01,4,21,1,0)="If Others Eligible is selected as Eligibility Category, then there must"
^DD(665.01,4,21,2,0)="also be a Special Legislation selected."
^DD(665.01,4,"DT")="2961106"
^DD(665.01,5,0)="ADD/DELETE^RS^1:ADD;2:DELETE;^0;6^Q"
^DD(665.01,5,3)="Enter '1' for ADD to count on Amis, '2' for Delete"
^DD(665.01,5,21,0)="^^1^1^2911206^"
^DD(665.01,5,21,1,0)="Flag for AMIS count of patients served."
^DD(665.01,5,"DT")="2921016"
^DD(665.01,6,0)="AMIS DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.01,6,3)="Answer must be a date."
^DD(665.01,6,21,0)="^^2^2^2911206^"
^DD(665.01,6,21,1,0)="This field stores the AMIS date of last report that counted this"
^DD(665.01,6,21,2,0)="Prosthetic Disability code."
^DD(665.01,6,"DT")="2910201"
^DD(665.01,7,0)="ENTERED BY^P200'^VA(200,^0;8^Q"
^DD(665.01,7,3)="Enter the name of the individual who entered this disability code."
^DD(665.01,7,21,0)="^^2^2^2930525^^"
^DD(665.01,7,21,1,0)="Pointer to the New Person file of who entered this disability code"
^DD(665.01,7,21,2,0)="for the patient."
^DD(665.01,7,"DT")="2910201"
^DD(665.01,9,0)="REMOVE CODE FLAG^S^1:REMOVED;^0;9^Q"
^DD(665.01,9,3)="Enter Removed to show the disability code has been removed from the patients 2319."
^DD(665.01,9,21,0)="^^1^1^2930603^^"
^DD(665.01,9,21,1,0)="This field stores a code indicating the removal of a disibility code"
^DD(665.01,9,"DT")="2920629"
^DD(665.01,10,0)="DATE CODE DELETED^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.01,10,1,0)="^.1"
^DD(665.01,10,1,1,0)="665.01^AD^MUMPS"
^DD(665.01,10,1,1,1)="I $D(^RMPR(665,DA(1),1,DA)) S ZA=+^RMPR(665,DA(1),1,DA,0) S:+ZA ^RMPR(665,""AD"",X,DA(1),DA)="""" K ZA"
^DD(665.01,10,1,1,2)="I $D(^RMPR(665,DA(1),1,DA)) S ZA=+^RMPR(665,DA(1),1,DA,0) K:+ZA ^RMPR(665,""AD"",X,DA(1),DA) K ZA"
^DD(665.01,10,1,1,"%D",0)="^^1^1^2930306^^^"
^DD(665.01,10,1,1,"%D",1,0)="This x-ref will allow tracking of disability codes by date deleted."
^DD(665.01,10,1,1,"DT")="2930306"
^DD(665.01,10,3)="Enter the date the code was removed from the 2319."
^DD(665.01,10,21,0)="^^2^2^2930306^"
^DD(665.01,10,21,1,0)="Contains the date that the Disability code was marked as deleted for this"
^DD(665.01,10,21,2,0)="Veteran.  Used for calculations on form 7306d and Amis."
^DD(665.01,10,"DT")="2930306"
^DD(665.01,"B"," ",3)="1"
^DD(665.01,"B","ADD/DELETE",5)=""
^DD(665.01,"B","AMIS DATE",6)=""
^DD(665.01,"B","DATE CODE ADDED",1)=""
^DD(665.01,"B","DATE CODE DELETED",10)=""
^DD(665.01,"B","ELIGIBILITY CATEGORY",3)=""
^DD(665.01,"B","ENTERED BY",7)=""
^DD(665.01,"B","PROSTHETIC DISABILITY CODE",.01)=""
^DD(665.01,"B","REMOVE CODE FLAG",9)=""
^DD(665.01,"B","SERVICE/NON-SERVICE",2)=""
^DD(665.01,"B","SPECIAL LEGISLATION",4)=""
^DD(665.01,"GL",0,1,.01)=""
^DD(665.01,"GL",0,2,1)=""
^DD(665.01,"GL",0,3,2)=""
^DD(665.01,"GL",0,4,3)=""
^DD(665.01,"GL",0,5,4)=""
^DD(665.01,"GL",0,6,5)=""
^DD(665.01,"GL",0,7,6)=""
^DD(665.01,"GL",0,8,7)=""
^DD(665.01,"GL",0,9,9)=""
^DD(665.01,"GL",0,10,10)=""
^DD(665.01,"IX",.01)=""
^DD(665.01,"IX",1)=""
^DD(665.01,"IX",10)=""
^DD(665.01,"RQ",2)=""
^DD(665.01,"RQ",3)=""
^DD(665.01,"RQ",5)=""
^DD(665.012,0)="PSC ISSUE CARD SUB-FIELD^^6^7"
^DD(665.012,0,"DT")="2920202"
^DD(665.012,0,"NM","PSC ISSUE CARD")=""
^DD(665.012,0,"UP")="665"
^DD(665.012,.01,0)="PSC ISSUE CARD DATE^MDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:(Y<1)!($P(Y,""."",1)>DT) X"
^DD(665.012,.01,3)="Enter the date the patient received the Prosthetic Service Card. Future Dates are not allowed."
^DD(665.012,.01,21,0)="^^1^1^2911206^"
^DD(665.012,.01,21,1,0)="This is the date the PSC card was issued."
^DD(665.012,.01,"DT")="2920129"
^DD(665.012,1,0)="ITEM^RP661'OX^RMPR(661,^0;4^Q"
^DD(665.012,1,1,0)="^.1"
^DD(665.012,1,1,1,0)="665^C"
^DD(665.012,1,1,1,1)="S ^RMPR(665,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(665.012,1,1,1,2)="K ^RMPR(665,""C"",$E(X,1,30),DA(1),DA)"
^DD(665.012,1,2)="S Y(0)=Y X ^DD(665.012,1,2,9.2) S D0=$P(Y(101),U,1) S:'$D(^PRC(441,+D0,0)) D0=-1 S Y(201)=$S($D(^PRC(441,D0,0)):^(0),1:"""") S X=$P(Y(201),U,2) S D0=I(0,0) S D1=I(1,0) S Y=X"
^DD(665.012,1,2,9.2)="S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^RMPR(661,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^RMPR(661,D0,0)):^(0),1:"""")"
^DD(665.012,1,2.1)="ITEM:NAME:SHORT DESCRIPTION"
^DD(665.012,1,3)="Enter the item the patient is receiving the PSC for."
^DD(665.012,1,21,0)="^^1^1^2911206^"
^DD(665.012,1,21,1,0)="This is the PSC item issued to the patient."
^DD(665.012,1,"DT")="2920131"
^DD(665.012,2,0)="DETAILED DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(665.012,2,3)="Answer must be 1-50 characters in length."
^DD(665.012,2,21,0)="^^3^3^2911206^^^"
^DD(665.012,2,21,1,0)="This field stores the description of the item issued on the PSC."
^DD(665.012,2,21,2,0)="If left blank, the IFCAP item Short Description will automatically"
^DD(665.012,2,21,3,0)="be used."
^DD(665.012,2,"DT")="2920202"
^DD(665.012,3,0)="SERIAL NUMBER^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(665.012,3,3)="Enter the Serial Number of the item issued.  Maximum Length is 20 Characters."
^DD(665.012,3,21,0)="^^1^1^2920128^^"
^DD(665.012,3,21,1,0)="This field stores the serial number of the item issued on the PSC."
^DD(665.012,3,"DT")="2870925"
^DD(665.012,4,0)="PSC CATEGORY^S^A:ART LIMBS;W:WHEELCHAIRS;BR:BRACES;BL:BLIND AIDS;^0;5^Q"
^DD(665.012,4,3)="Enter the category of the item issued on the PSC."
^DD(665.012,4,21,0)="^^1^1^2911206^"
^DD(665.012,4,21,1,0)="This field stores the category of the item issued on the PSC."
^DD(665.012,4,"DT")="2900914"
^DD(665.012,5,0)="CANCELLED^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.012,5,3)="Enter a valid date."
^DD(665.012,5,21,0)="^^1^1^2911206^"
^DD(665.012,5,21,1,0)="This field stores the date the PSC was cancelled for the patient."
^DD(665.012,5,"DT")="2911206"
^DD(665.012,6,0)="REMARKS^F^^0;7^K:$L(X)>45!($L(X)<3) X"
^DD(665.012,6,3)="Answer must be 3-45 characters in length."
^DD(665.012,6,21,0)="^^1^1^2911206^"
^DD(665.012,6,21,1,0)="This field stores any remarks about the PSC issued to the patient."
^DD(665.012,6,"DT")="2900914"
^DD(665.012,"B","CANCELLED",5)=""
^DD(665.012,"B","DETAILED DESCRIPTION",2)=""
^DD(665.012,"B","ITEM",1)=""
^DD(665.012,"B","PSC CATEGORY",4)=""
^DD(665.012,"B","PSC ISSUE CARD DATE",.01)=""
^DD(665.012,"B","REMARKS",6)=""
^DD(665.012,"B","SERIAL NUMBER",3)=""
^DD(665.012,"GL",0,1,.01)=""
^DD(665.012,"GL",0,2,2)=""
^DD(665.012,"GL",0,3,3)=""
^DD(665.012,"GL",0,4,1)=""
^DD(665.012,"GL",0,5,4)=""
^DD(665.012,"GL",0,6,5)=""
^DD(665.012,"GL",0,7,6)=""
^DD(665.012,"IX",1)=""
^DD(665.012,"RQ",1)=""
^DD(665.014,0)="OTHER DATA SUB-FIELD^^.01^1"
^DD(665.014,0,"NM","OTHER DATA")=""
^DD(665.014,0,"UP")="665"
^DD(665.014,.01,0)="OTHER DATA^W^^0;1^Q"
^DD(665.014,.01,3)="Enter other patient data (word-processing)."
^DD(665.014,.01,21,0)="^^1^1^2911206^^"
^DD(665.014,.01,21,1,0)="This is a word-processing field that records other patient data."
^DD(665.014,.01,"DT")="2870925"
^DD(665.014,"B","OTHER DATA",.01)=""
^DD(665.014,"GL",0,1,.01)=""
^DD(665.02,0)="DATE OF CLOTHING ALLOWANCE SUB-FIELD^^6^7"
^DD(665.02,0,"DT")="2930427"
^DD(665.02,0,"IX","AC",665.02,.01)=""
^DD(665.02,0,"IX","B",665.02,.01)=""
^DD(665.02,0,"NM","DATE OF CLOTHING ALLOWANCE")=""
^DD(665.02,0,"UP")="665"
^DD(665.02,.01,0)="DATE OF CLOTHING ALLOWANCE^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.02,.01,1,0)="^.1"
^DD(665.02,.01,1,1,0)="665.02^B"
^DD(665.02,.01,1,1,1)="S ^RMPR(665,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(665.02,.01,1,1,2)="K ^RMPR(665,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(665.02,.01,1,2,0)="665.02^AC^MUMPS"
^DD(665.02,.01,1,2,1)="S ^RMPR(665,""AC"",X,DA(1),DA)="""""
^DD(665.02,.01,1,2,2)="K ^RMPR(665,""AC"",X,DA(1),DA)"
^DD(665.02,.01,1,2,"%D",0)="^^2^2^2930519^^"
^DD(665.02,.01,1,2,"%D",1,0)="This x-ref is used to count the number of Clothing Allowance eligibility"
^DD(665.02,.01,1,2,"%D",2,0)="determinations during quarterly time periods."
^DD(665.02,.01,1,2,"DT")="2920731"
^DD(665.02,.01,3)="Enter the date of the Patient's Cloting Allowance Eligibility determination"
^DD(665.02,.01,21,0)="^^1^1^2960122^^^"
^DD(665.02,.01,21,1,0)="Date of Clothing Allowance eligibility determination."
^DD(665.02,.01,"DT")="2920731"
^DD(665.02,1,0)="ELIGIBLE/NOT ELIGIBLE^RS^E:ELIGIBLE;N:NOT-ELIGIBLE;U:UNKNOWN;^0;2^Q"
^DD(665.02,1,3)="Enter 'E' for Eligible, 'N' for NOT-ELIGIBLE, 'U' for Unknown"
^DD(665.02,1,21,0)="^^1^1^2930427^^^"
^DD(665.02,1,21,1,0)="Field that contains code which designates patients as eligible for clothing allowance."
^DD(665.02,1,"DT")="2930427"
^DD(665.02,2,0)="STATIC/NON-STATIC^RS^S:STATIC;N:NON-STATIC;U:UNKNOWN;^0;3^Q"
^DD(665.02,2,3)="Enter 'S' for STATIC, 'N' for NON-STATIC, 'U' for UNKNOWN"
^DD(665.02,2,21,0)="^^1^1^2921030^"
^DD(665.02,2,21,1,0)="Field that contains code that determines if patients is Static or Non-Static."
^DD(665.02,2,"DT")="2921030"
^DD(665.02,3,0)="CLOTHING ALLOWANCE DESCRIPTION^F^^1;1^K:$L(X)>50!($L(X)<3) X"
^DD(665.02,3,3)="Answer must be 3-50 characters in length."
^DD(665.02,3,21,0)="^^1^1^2930104^"
^DD(665.02,3,21,1,0)="Description of reason for clothing allowance."
^DD(665.02,3,"DT")="2920731"
^DD(665.02,4,0)="CLOTHING ALLOWANCE EXAM^RS^Y:YES;N:NO;^0;4^Q"
^DD(665.02,4,3)="Enter 'Y' if Patient had an Examination, 'N' if Patient has not had an Examination"
^DD(665.02,4,21,0)="^^1^1^2930104^"
^DD(665.02,4,21,1,0)="Indicates if veteran has had a clothing allowance exam."
^DD(665.02,4,"DT")="2920818"
^DD(665.02,5,0)="DATE OF EXAM^DX^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1!($P(X,""."")>DT) X"
^DD(665.02,5,3)="Enter the date the Examination took place.  Future dates are not allowed."
^DD(665.02,5,21,0)="^^1^1^2930602^^"
^DD(665.02,5,21,1,0)="Date of clothing allowance exam."
^DD(665.02,5,"DT")="2930602"
^DD(665.02,6,0)="EXAMINER^P200'^VA(200,^0;6^Q"
^DD(665.02,6,3)="Enter the Name of the Person who performed the exam"
^DD(665.02,6,21,0)="^^2^2^2930306^^"
^DD(665.02,6,21,1,0)="Pointer to the New Person file.  Contains the name of the Examiner "
^DD(665.02,6,21,2,0)="who determined the Clothing Allowance eligibility."
^DD(665.02,6,"DT")="2930306"
^DD(665.02,"B","CLOTHING ALLOWANCE DESCRIPTION",3)=""
^DD(665.02,"B","CLOTHING ALLOWANCE EXAM",4)=""
^DD(665.02,"B","DATE OF CLOTHING ALLOWANCE",.01)=""
^DD(665.02,"B","DATE OF EXAM",5)=""
^DD(665.02,"B","ELIGIBLE/NOT ELIGIBLE",1)=""
^DD(665.02,"B","EXAMINER",6)=""
^DD(665.02,"B","STATIC/NON-STATIC",2)=""
^DD(665.02,"GL",0,1,.01)=""
^DD(665.02,"GL",0,2,1)=""
^DD(665.02,"GL",0,3,2)=""
^DD(665.02,"GL",0,4,4)=""
^DD(665.02,"GL",0,5,5)=""
^DD(665.02,"GL",0,6,6)=""
^DD(665.02,"GL",1,1,3)=""
^DD(665.02,"IX",.01)=""
^DD(665.02,"RQ",1)=""
^DD(665.02,"RQ",2)=""
^DD(665.02,"RQ",4)=""
^DD(665.03,0)="CRITICAL COMMENTS SUB-FIELD^^.01^1"
^DD(665.03,0,"DT")="2920909"
^DD(665.03,0,"NM","CRITICAL COMMENTS")=""
^DD(665.03,0,"UP")="665"
^DD(665.03,.01,0)="CRITICAL COMMENTS^W^^0;1^Q"
^DD(665.03,.01,3)="Enter patient critical comments"
^DD(665.03,.01,"DT")="2920909"
^DD(665.03,"B","CRITICAL COMMENTS",.01)=""
^DD(665.03,"GL",0,1,.01)=""
^DD(665.1,0)="FIELD^^6^8"
^DD(665.1,0,"DDA")="N"
^DD(665.1,0,"DT")="2930921"
^DD(665.1,0,"IX","B",665.1,.01)=""
^DD(665.1,0,"IX","C",665.1,4)=""
^DD(665.1,0,"NM","PROSTHETIC HOME/LIAISON VISITS")=""
^DD(665.1,0,"VR")="3.0"
^DD(665.1,.01,0)="DATE VISIT OPENED^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(665.1,.01,1,0)="^.1"
^DD(665.1,.01,1,1,0)="665.1^B"
^DD(665.1,.01,1,1,1)="S ^RMPR(665.1,""B"",$E(X,1,30),DA)="""""
^DD(665.1,.01,1,1,2)="K ^RMPR(665.1,""B"",$E(X,1,30),DA)"
^DD(665.1,.01,3)="Please enter the date of the Home or Liaison visit."
^DD(665.1,.01,21,0)="^^1^1^2930104^"
^DD(665.1,.01,21,1,0)="Date that the Home/Liaison visit was opened."
^DD(665.1,.01,"DT")="2920909"
^DD(665.1,1,0)="PATIENT NAME/INSTITUTION^V^^0;2^Q"
^DD(665.1,1,3)="Enter the Patient Name or the Name of the Institution or the Name of the Vendor"
^DD(665.1,1,21,0)="^^2^2^2930104^"
^DD(665.1,1,21,1,0)="Variable pointer to the Patient File, Institution File, and the Vendor"
^DD(665.1,1,21,2,0)="File."
^DD(665.1,1,"DT")="2930921"
^DD(665.1,1,"V",0)="^.12P^3^3"
^DD(665.1,1,"V",1,0)="2^Patient's name^1^P^^n"
^DD(665.1,1,"V",2,0)="4^Institution name^2^I^^n"
^DD(665.1,1,"V",3,0)="440^Name of the Vendor^3^V^n^n"
^DD(665.1,1,"V","B",2,1)=""
^DD(665.1,1,"V","B",4,2)=""
^DD(665.1,1,"V","B",440,3)=""
^DD(665.1,1,"V","M","Institution name",2)=""
^DD(665.1,1,"V","M","Name of the Vendor",3)=""
^DD(665.1,1,"V","M","Patient's name",1)=""
^DD(665.1,1,"V","O",1,1)=""
^DD(665.1,1,"V","O",2,2)=""
^DD(665.1,1,"V","O",3,3)=""
^DD(665.1,1,"V","P","I",2)=""
^DD(665.1,1,"V","P","P",1)=""
^DD(665.1,1,"V","P","V",3)=""
^DD(665.1,2,0)="TYPE OF VISIT^RS^H:HOME;L:LIAISON;^0;3^Q"
^DD(665.1,2,3)="Enter 'H' for Home visit or 'L' for Liaison visits."
^DD(665.1,2,21,0)="^^1^1^2930104^"
^DD(665.1,2,21,1,0)="Indicates if visit was a Home or Liaison Visit"
^DD(665.1,2,"DT")="2921227"
^DD(665.1,3,0)="VISITOR^RP200'^VA(200,^0;4^Q"
^DD(665.1,3,3)="Enter the Name of the Person who attended the visit"
^DD(665.1,3,21,0)="^^1^1^2930104^"
^DD(665.1,3,21,1,0)="Pointer to the New Person File."
^DD(665.1,3,"DT")="2921227"
^DD(665.1,4,0)="DATE VISIT CLOSED^DX^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1!(X<$P(^RMPR(665.1,DA,0),U)) X"
^DD(665.1,4,1,0)="^.1"
^DD(665.1,4,1,1,0)="665.1^C"
^DD(665.1,4,1,1,1)="S ^RMPR(665.1,""C"",$E(X,1,30),DA)="""""
^DD(665.1,4,1,1,2)="K ^RMPR(665.1,""C"",$E(X,1,30),DA)"
^DD(665.1,4,1,1,"%D",0)="^^1^1^2921227^"
^DD(665.1,4,1,1,"%D",1,0)="This x-ref will be used to calculate AMIS data by the date the visit was closed."
^DD(665.1,4,1,1,"DT")="2921227"
^DD(665.1,4,3)="Enter the Date or Date/Time that the Home/Liaison visit ended.  The Date Visit closed cannot be less that the Date Visit opened."
^DD(665.1,4,21,0)="^^1^1^2930104^"
^DD(665.1,4,21,1,0)="Contains the Date that the Home/Liaison visit was closed."
^DD(665.1,4,"DT")="2930602"
^DD(665.1,4.5,0)="TOTAL HOURS^FX^^0;6^D TRS^RMPRHL"
^DD(665.1,4.5,3)="Enter Hours in the format hh.mm (e.g.) 1.05"
^DD(665.1,4.5,21,0)="^^1^1^2930104^"
^DD(665.1,4.5,21,1,0)="Contains the total hours of the visit."
^DD(665.1,4.5,"DT")="2921023"
^DD(665.1,5,0)="REASON FOR VISIT^665.15^^1;0"
^DD(665.1,5,21,0)="^^1^1^2930104^"
^DD(665.1,5,21,1,0)="Contains information regarding the reason for the visit."
^DD(665.1,6,0)="STATION^P4'^DIC(4,^0;7^Q"
^DD(665.1,6,3)="Enter the Station Number or Name"
^DD(665.1,6,21,0)="^^1^1^2921019^"
^DD(665.1,6,21,1,0)="Station number stored to allow splitting up for Amis calculations"
^DD(665.1,6,"DT")="2921019"
^DD(665.1,"B","DATE VISIT CLOSED",4)=""
^DD(665.1,"B","DATE VISIT OPENED",.01)=""
^DD(665.1,"B","PATIENT NAME/INSTITUTION",1)=""
^DD(665.1,"B","REASON FOR VISIT",5)=""
^DD(665.1,"B","STATION",6)=""
^DD(665.1,"B","TOTAL HOURS",4.5)=""
^DD(665.1,"B","TYPE OF VISIT",2)=""
^DD(665.1,"B","VISITOR",3)=""
^DD(665.1,"GL",0,1,.01)=""
^DD(665.1,"GL",0,2,1)=""
^DD(665.1,"GL",0,3,2)=""
^DD(665.1,"GL",0,4,3)=""
^DD(665.1,"GL",0,5,4)=""
^DD(665.1,"GL",0,6,4.5)=""
^DD(665.1,"GL",0,7,6)=""
^DD(665.1,"GL",1,0,5)=""
^DD(665.1,"IX",.01)=""
^DD(665.1,"IX",4)=""
^DD(665.1,"RQ",.01)=""
^DD(665.1,"RQ",2)=""
^DD(665.1,"RQ",3)=""
^DD(665.1,"SB",665.15,5)=""
^DD(665.15,0)="REASON FOR VISIT SUB-FIELD^^.01^1"
^DD(665.15,0,"DT")="2920909"
^DD(665.15,0,"NM","REASON FOR VISIT")=""
^DD(665.15,0,"UP")="665.1"
^DD(665.15,.01,0)="REASON FOR VISIT^W^^0;1^Q"
^DD(665.15,.01,3)="Enter the reason for the Visit"
^DD(665.15,.01,"DT")="2920909"
^DD(665.15,"B","REASON FOR VISIT",.01)=""
^DD(665.15,"GL",0,1,.01)=""
^DD(665.193,0)="HOME OXYGEN PRESCRIPTION SUB-FIELD^^101^38"
^DD(665.193,0,"DT")="2981115"
^DD(665.193,0,"IX","APTASK",665.193,.01)=""
^DD(665.193,0,"IX","B",665.193,.01)=""
^DD(665.193,0,"NM","HOME OXYGEN PRESCRIPTION")=""
^DD(665.193,0,"UP")="665"
^DD(665.193,.01,0)="DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.193,.01,1,0)="^.1"
^DD(665.193,.01,1,1,0)="665.193^B"
^DD(665.193,.01,1,1,1)="S ^RMPR(665,DA(1),""RMPOB"",""B"",$E(X,1,30),DA)="""""
^DD(665.193,.01,1,1,2)="K ^RMPR(665,DA(1),""RMPOB"",""B"",$E(X,1,30),DA)"
^DD(665.193,.01,1,2,0)="665.193^APTASK^MUMPS"
^DD(665.193,.01,1,2,1)="Q"
^DD(665.193,.01,1,2,2)="D ACCTTASK^RMPOPF"
^DD(665.193,.01,1,2,"DT")="3050726"
^DD(665.193,.01,1,3,0)="^^TRIGGER^665.193^100"
^DD(665.193,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RMPR(665,D0,""RMPOB"",D1,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(665.193,.01,1,3,1.4)"
^DD(665.193,.01,1,3,1.4)="S DIH=$G(^RMPR(665,DIV(0),""RMPOB"",DIV(1),""PFSS"")),DIV=X S $P(^(""PFSS""),U,1)=DIV,DIH=665.193,DIG=100 D ^DICR"
^DD(665.193,.01,1,3,2)="Q"
^DD(665.193,.01,1,3,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(665.193,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(665.193,.01,1,3,"DT")="3051028"
^DD(665.193,.01,1,3,"FIELD")="PFSS NEW PRESCRIPTION FLAG"
^DD(665.193,.01,3)="Enter the date that the prescription was written or received."
^DD(665.193,.01,21,0)="^.001^1^1^3051025^^^"
^DD(665.193,.01,21,1,0)="Enter the date the prescription was written."
^DD(665.193,.01,23,0)="2^.001^2^2^3051025^^^^"
^DD(665.193,.01,23,1,0)="This field is match to the ""Days to Expiration"" field in the Prosthetics"
^DD(665.193,.01,23,2,0)="Site Parameters file."
^DD(665.193,.01,"DT")="3051028"
^DD(665.193,2,0)="EXPIRATION DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.193,2,1,0)="^.1"
^DD(665.193,2,1,1,0)="665^AE"
^DD(665.193,2,1,1,1)="S ^RMPR(665,""AE"",$E(X,1,30),DA(1),DA)="""""
^DD(665.193,2,1,1,2)="K ^RMPR(665,""AE"",$E(X,1,30),DA(1),DA)"
^DD(665.193,2,1,1,"DT")="2990202"
^DD(665.193,2,3)="Date this current prescription expires."
^DD(665.193,2,21,0)="^^1^1^2990317^"
^DD(665.193,2,21,1,0)="Enter the date that this prescription expires."
^DD(665.193,2,"DT")="2990202"
^DD(665.193,3,0)="DESCRIPTION^665.1933^^1;0"
^DD(665.193,3,21,0)="^^1^1^2981115^^"
^DD(665.193,3,21,1,0)="Enter prescription information."
^DD(665.193,3,"DT")="2981109"
^DD(665.193,4,0)="A&B LETTERS SENT^F^^0;5^K:$L(X)>100!($L(X)<1) X"
^DD(665.193,4,3)="Do not edit. This field is filled in by the program."
^DD(665.193,4,21,0)="^^2^2^2980320^^^^"
^DD(665.193,4,21,1,0)="This field is set by the program. When an A or a B type letter is sent"
^DD(665.193,4,21,2,0)="the letter type is stored here."
^DD(665.193,4,"DT")="2980320"
^DD(665.193,30,0)="PRIMARY ICD DIAGNOSIS CODE^P80'^ICD9(^BA1;1^Q"
^DD(665.193,30,3)="Enter pointer to ICD DIAGNOSIS FILE (#80)"
^DD(665.193,30,21,0)="^.001^1^1^3051129^^^"
^DD(665.193,30,21,1,0)="Primary ICD from the consult.  Associated with the prescription."
^DD(665.193,30,"DT")="3051129"
^DD(665.193,30.1,0)="PRIMARY AGENT ORANGE^S^0:NO;1:YES;^BA1;2^Q"
^DD(665.193,30.1,3)="Enter 'Y'es if Primary diagnosis is related to Agent Orange exposure."
^DD(665.193,30.1,21,0)="^^1^1^3051129^^"
^DD(665.193,30.1,21,1,0)="Primary diagnosis is related to Agent Orange exposure."
^DD(665.193,30.1,"DT")="3051129"
^DD(665.193,30.2,0)="PRIMARY IONIZED RADIATION^S^0:NO;1:YES;^BA1;3^Q"
^DD(665.193,30.2,3)="Enter 'Y'es if primary diagnosis is related to Ionized Radiation exposure."
^DD(665.193,30.2,21,0)="^^1^1^3051129^^"
^DD(665.193,30.2,21,1,0)="Primary diagnosis is related to Ionized Radiation exposure."
^DD(665.193,30.2,"DT")="3051129"
^DD(665.193,30.3,0)="PRIMARY SERVICE CONNECTED^S^0:NO;1:YES;^BA1;4^Q"
^DD(665.193,30.3,3)="Enter 'Y'es if primary diagnosis is related to a Service Connected condition."
^DD(665.193,30.3,21,0)="^^1^1^3051129^"
^DD(665.193,30.3,21,1,0)="Primary diagnosis is related to a Service Connected condition."
^DD(665.193,30.3,"DT")="3051129"
^DD(665.193,30.4,0)="PRIMARY ENVIRONMENTAL CONT.^S^0:NO;1:YES;^BA1;5^Q"
^DD(665.193,30.4,3)="Enter 'Y'es if primary diagnosis is related to Environmental Contaminants exposure."
^DD(665.193,30.4,21,0)="^^1^1^3051129^"
^DD(665.193,30.4,21,1,0)="Primary diagnosis is related to Environmental Contaminants exposure."
^DD(665.193,30.4,"DT")="3051129"
^DD(665.193,30.5,0)="PRIMARY MST^S^0:NO;1:YES;^BA1;6^Q"
^DD(665.193,30.5,3)="Enter 'Y'es if primary diagnosis is related to Military Sexual Trauma."
^DD(665.193,30.5,21,0)="^^1^1^3051129^"
^DD(665.193,30.5,21,1,0)="Primary diagnosis is related to Military Sexual Trauma."
^DD(665.193,30.5,"DT")="3051129"
^DD(665.193,30.6,0)="PRIMARY HEAD/NECK CANCER^S^0:NO;1:YES;^BA1;7^Q"
^DD(665.193,30.6,3)="Enter 'Y'es if primary diagnosis is related to Head/Neck Cancer."
^DD(665.193,30.6,21,0)="^^1^1^3051129^"
^DD(665.193,30.6,21,1,0)="Primary diagnosis is related to Head/Neck Cancer."
^DD(665.193,30.6,"DT")="3051129"
^DD(665.193,30.7,0)="PRIMARY COMBAT VET^S^0:NO;1:YES;^BA1;8^Q"
^DD(665.193,30.7,3)="Enter 'Y'es if primary diagnosis is related to Combat."
^DD(665.193,30.7,21,0)="^^1^1^3051129^"
^DD(665.193,30.7,21,1,0)="Primary diagnosis is related to Combat."
^DD(665.193,30.7,"DT")="3051129"
^DD(665.193,31,0)="SECONDARY ICD DIAGNOSIS CODE 1^P80'^ICD9(^BA2;1^Q"
^DD(665.193,31,3)="Enter the pointer to the ICD Diagnosis file (#80) for the Secondary Diagnosis code 1."
^DD(665.193,31,21,0)="^.001^1^1^3051129^^^"
^DD(665.193,31,21,1,0)="A secondary ICD from the consult. Associated with the prescription."
^DD(665.193,31,"DT")="3051129"
^DD(665.193,31.1,0)="SECONDARY AGENT ORANGE 1^S^0:NO;1:YES;^BA2;2^Q"
^DD(665.193,31.1,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Agent Orange exposure."
^DD(665.193,31.1,21,0)="^.001^1^1^3051129^^^"
^DD(665.193,31.1,21,1,0)="A secondary agent orange from the consult."
^DD(665.193,31.1,"DT")="3051129"
^DD(665.193,31.2,0)="SECONDARY IONIZED RADIATION 1^S^0:NO;1:YES;^BA2;3^Q"
^DD(665.193,31.2,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Ionized Radiation exposure."
^DD(665.193,31.2,21,0)="^^1^1^3051129^"
^DD(665.193,31.2,21,1,0)="Secondary diagnosis 1 is related to Ionized Radiation exposure."
^DD(665.193,31.2,"DT")="3051129"
^DD(665.193,31.3,0)="SECONDARY SERVICE CONNECTED 1^S^0:NO;1:YES;^BA2;4^Q"
^DD(665.193,31.3,3)="Enter 'Y'es if Secondary diagnosis 1 is related to a Service Connected condition."
^DD(665.193,31.3,21,0)="^.001^1^1^3051213^^"
^DD(665.193,31.3,21,1,0)="Secondary diagnosis 1 is related to a Service Connected condition."
^DD(665.193,31.3,"DT")="3051129"
^DD(665.193,31.4,0)="SECONDARY ENVIRONMENTAL CONT 1^S^0:NO;1:YES;^BA2;5^Q"
^DD(665.193,31.4,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^DD(665.193,31.4,21,0)="^.001^1^1^3051216^^"
^DD(665.193,31.4,21,1,0)="Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^DD(665.193,31.4,"DT")="3050819"
^DD(665.193,31.5,0)="SECONDARY MST 1^S^0:NO;1:YES;^BA2;6^Q"
^DD(665.193,31.5,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Miltary Sexual Trauma."
^DD(665.193,31.5,21,0)="^.001^1^1^3051216^^"
^DD(665.193,31.5,21,1,0)="Secondary diagnosis 1 is related to Military Sexual Trauma."
^DD(665.193,31.5,"DT")="3050819"
^DD(665.193,31.6,0)="SECONDARY HEAD/NECK CANCER 1^S^0:NO;1:YES;^BA2;7^Q"
^DD(665.193,31.6,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Head/Neck Cancer."
^DD(665.193,31.6,21,0)="^^1^1^3051216^"
^DD(665.193,31.6,21,1,0)="Secondary diagnosis 1 is related to Head/Neck Cancer."
^DD(665.193,31.6,"DT")="3050819"
^DD(665.193,31.7,0)="SECONDARY COMBAT VET 1^S^0:NO;1:YES;^BA2;8^Q"
^DD(665.193,31.7,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Combat."
^DD(665.193,31.7,21,0)="^^1^1^3051216^"
^DD(665.193,31.7,21,1,0)="Secondary diagnosis 1 is related to Combat."
^DD(665.193,31.7,"DT")="3050819"
^DD(665.193,32,0)="SECONDARY ICD DIAGNOSIS CODE 2^P80'^ICD9(^BA3;1^Q"
^DD(665.193,32,3)="Enter pointer to ICD Diagnosis file (#80) for Secondary diagnosis code 2."
^DD(665.193,32,21,0)="^.001^1^1^3051216^^"
^DD(665.193,32,21,1,0)="A secondary ICD from the consult.  Associated with the prescription."
^DD(665.193,32,"DT")="3050818"
^DD(665.193,32.1,0)="SECONDARY AGENT ORANGE 2^S^0:NO;1:YES;^BA3;2^Q"
^DD(665.193,32.1,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Agent Orange exposure."
^DD(665.193,32.1,21,0)="^^1^1^3051216^"
^DD(665.193,32.1,21,1,0)="Secondary diagnosis 2 is related to Agent Orange exposure."
^DD(665.193,32.1,"DT")="3050819"
^DD(665.193,32.2,0)="SECONDARY IONIZED RADIATION 2^S^0:NO;1:YES;^BA3;3^Q"
^DD(665.193,32.2,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Ionized Radiation exposure."
^DD(665.193,32.2,21,0)="^^1^1^3051219^"
^DD(665.193,32.2,21,1,0)="Secondary diagnosis 2 is related to Ionized Radiation exposure."
^DD(665.193,32.2,"DT")="3051219"
^DD(665.193,32.3,0)="SECONDARY SERVICE CONNECTED 2^S^0:NO;1:YES;^BA3;4^Q"
^DD(665.193,32.3,3)="Enter 'Y'es if Secondary diagnosis 2 is related to a Service Connected condition."
^DD(665.193,32.3,21,0)="^^1^1^3051219^"
^DD(665.193,32.3,21,1,0)="Secondary diagnosis 2 is related to a Service Connected condition."
^DD(665.193,32.3,"DT")="3051219"
^DD(665.193,32.4,0)="SECONDARY ENVIRONMENTAL CONT 2^S^0:NO;1:YES;^BA3;5^Q"
^DD(665.193,32.4,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^DD(665.193,32.4,21,0)="^^1^1^3051219^"
^DD(665.193,32.4,21,1,0)="Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^DD(665.193,32.4,"DT")="3051219"
^DD(665.193,32.5,0)="SECONDARY MST 2^S^0:NO;1:YES;^BA3;6^Q"
^DD(665.193,32.5,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Military Sexual Trauma."
^DD(665.193,32.5,21,0)="^^1^1^3051220^"
^DD(665.193,32.5,21,1,0)="Secondary diagnosis 2 is related to Military Sexual Trauma."
^DD(665.193,32.5,"DT")="3051220"
^DD(665.193,32.6,0)="SECONDARY HEAD/NECK CANCER 2^S^0:NO;1:YES;^BA3;7^Q"
^DD(665.193,32.6,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Head/Neck Cancer."
^DD(665.193,32.6,21,0)="^^1^1^3051220^"
^DD(665.193,32.6,21,1,0)="Secondary diagnosis 2 is related to Head/Neck Cancer."
^DD(665.193,32.6,"DT")="3051220"
^DD(665.193,32.7,0)="SECONDARY COMBAT VET 2^S^0:NO;1:YES;^BA3;8^Q"
^DD(665.193,32.7,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Combat."
^DD(665.193,32.7,21,0)="^^1^1^3051220^"
^DD(665.193,32.7,21,1,0)="Secondary diagnosis 2 is related to Combat."
^DD(665.193,32.7,"DT")="3051220"
^DD(665.193,33,0)="SECONDARY ICD DIAGNOSIS CODE 3^P80'^ICD9(^BA4;1^Q"
^DD(665.193,33,3)="Enter an ICD Diagnosis for the secondary diagnosis code 3."
^DD(665.193,33,21,0)="^^1^1^3051220^^"
^DD(665.193,33,21,1,0)="A secondary ICD from the consult.  Associated with the prescription."
^DD(665.193,33,"DT")="3051220"
^DD(665.193,33.1,0)="SECONDARY AGENT ORANGE 3^S^0:NO;1:YES;^BA4;2^Q"
^DD(665.193,33.1,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Agent Orange exposure."
^DD(665.193,33.1,21,0)="^^1^1^3051220^"
^DD(665.193,33.1,21,1,0)="Secondary diagnosis 3 is related to Agent Orange exposure."
^DD(665.193,33.1,"DT")="3051220"
^DD(665.193,33.2,0)="SECONDARY IONIZED RADIATION 3^S^0:NO;1:YES;^BA4;3^Q"
^DD(665.193,33.2,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Ionized Radiation exposure."
^DD(665.193,33.2,21,0)="^^1^1^3051220^"
^DD(665.193,33.2,21,1,0)="Secondary diagnosis 3 is related to Ionized Radiation exposure."
^DD(665.193,33.2,"DT")="3051220"
^DD(665.193,33.3,0)="SECONDARY SERVICE CONNECTED 3^S^0:NO;1:YES;^BA4;4^Q"
^DD(665.193,33.3,3)="Enter 'Y'es if Secondary diagnosis 3 is related to a Service Connected condition."
^DD(665.193,33.3,21,0)="^^1^1^3051220^"
^DD(665.193,33.3,21,1,0)="Secondary diagnosis 3 is related to a Service Connected condition."
^DD(665.193,33.3,"DT")="3051220"
^DD(665.193,33.4,0)="SECONDARY ENVIRONMENTAL CONT 3^S^0:NO;1:YES;^BA4;5^Q"
^DD(665.193,33.4,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Environmental Contaminants exposure."
^DD(665.193,33.4,21,0)="^^1^1^3051220^"
^DD(665.193,33.4,21,1,0)="Secondary diagnosis 3 is related to Environmental Contaminants exposure."
^DD(665.193,33.4,"DT")="3051220"
^DD(665.193,33.5,0)="SECONDARY MST 3^S^0:NO;1:YES;^BA4;6^Q"
^DD(665.193,33.5,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Military Sexual Trauma."
^DD(665.193,33.5,21,0)="^^1^1^3051220^"
^DD(665.193,33.5,21,1,0)="Secondary diagnosis 3 is related to Military Sexual Trauma."
^DD(665.193,33.5,"DT")="3051220"
^DD(665.193,33.6,0)="SECONDARY HEAD/NECK CANCER 3^S^0:NO;1:YES;^BA4;7^Q"
^DD(665.193,33.6,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Head/Neck Cancer."
^DD(665.193,33.6,21,0)="^^1^1^3051220^"
^DD(665.193,33.6,21,1,0)="Secondary diagnosis 3 is related to Head/Neck Cancer."
^DD(665.193,33.6,"DT")="3051220"
^DD(665.193,33.7,0)="SECONDARY COMBAT VET 3^S^0:NO;1:YES;^BA4;8^Q"
^DD(665.193,33.7,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Combat."
^DD(665.193,33.7,21,0)="^^1^1^3051220^"
^DD(665.193,33.7,21,1,0)="Secondary diagnosis 3 is related to Combat."
^DD(665.193,33.7,"DT")="3051220"
^DD(665.193,100,0)="PFSS NEW PRESCRIPTION FLAG^SX^1:READY TO PROCESS;^PFSS;1^Q"
^DD(665.193,100,1,0)="^.1"
^DD(665.193,100,1,1,0)="665^APNEW"
^DD(665.193,100,1,1,1)="S ^RMPR(665,""APNEW"",$E(X,1,30),DA(1),DA)="""""
^DD(665.193,100,1,1,2)="K ^RMPR(665,""APNEW"",$E(X,1,30),DA(1),DA)"
^DD(665.193,100,1,1,"DT")="3050726"
^DD(665.193,100,3)="Enter ""1"" if this is a new prescription ready for PFSS processing."
^DD(665.193,100,5,1,0)="665.193^.01^3"
^DD(665.193,100,21,0)="^.001^2^2^3051220^^^"
^DD(665.193,100,21,1,0)="This flag indicates that a new Home Oxygen prescription has been entered "
^DD(665.193,100,21,2,0)="and that pre-certification processing for this patient should begin."
^DD(665.193,100,"DT")="3051220"
^DD(665.193,101,0)="REQUESTOR^P200'I^VA(200,^PFSS;2^Q"
^DD(665.193,101,3)="Enter the person that initiated the consult for this prescription."
^DD(665.193,101,21,0)="^^2^2^3051220^^"
^DD(665.193,101,21,1,0)="Person that performed the initial consult request. Pointer to file #200.  "
^DD(665.193,101,21,2,0)="Associated with the prescription."
^DD(665.193,101,"DT")="3051220"
^DD(665.193,"B","A&B LETTERS SENT",4)=""
^DD(665.193,"B","DATE",.01)=""
^DD(665.193,"B","DESCRIPTION",3)=""
^DD(665.193,"B","EXPIRATION DATE",2)=""
^DD(665.193,"B","PFSS NEW PRESCRIPTION FLAG",100)=""
^DD(665.193,"B","PRIMARY AGENT ORANGE",30.1)=""
^DD(665.193,"B","PRIMARY COMBAT VET",30.7)=""
^DD(665.193,"B","PRIMARY ENVIRONMENTAL CONT.",30.4)=""
^DD(665.193,"B","PRIMARY HEAD/NECK CANCER",30.6)=""
^DD(665.193,"B","PRIMARY ICD DIAGNOSIS CODE",30)=""
^DD(665.193,"B","PRIMARY IONIZED RADIATION",30.2)=""
^DD(665.193,"B","PRIMARY MST",30.5)=""
^DD(665.193,"B","PRIMARY SERVICE CONNECTED",30.3)=""
^DD(665.193,"B","REQUESTOR",101)=""
^DD(665.193,"B","SECONDARY AGENT ORANGE 1",31.1)=""
^DD(665.193,"B","SECONDARY AGENT ORANGE 2",32.1)=""
^DD(665.193,"B","SECONDARY AGENT ORANGE 3",33.1)=""
^DD(665.193,"B","SECONDARY COMBAT VET 1",31.7)=""
^DD(665.193,"B","SECONDARY COMBAT VET 2",32.7)=""
^DD(665.193,"B","SECONDARY COMBAT VET 3",33.7)=""
^DD(665.193,"B","SECONDARY ENVIRONMENTAL CONT 1",31.4)=""
^DD(665.193,"B","SECONDARY ENVIRONMENTAL CONT 2",32.4)=""
^DD(665.193,"B","SECONDARY ENVIRONMENTAL CONT 3",33.4)=""
^DD(665.193,"B","SECONDARY HEAD/NECK CANCER 1",31.6)=""
^DD(665.193,"B","SECONDARY HEAD/NECK CANCER 2",32.6)=""
^DD(665.193,"B","SECONDARY HEAD/NECK CANCER 3",33.6)=""
^DD(665.193,"B","SECONDARY ICD DIAGNOSIS CODE 1",31)=""
^DD(665.193,"B","SECONDARY ICD DIAGNOSIS CODE 2",32)=""
^DD(665.193,"B","SECONDARY ICD DIAGNOSIS CODE 3",33)=""
^DD(665.193,"B","SECONDARY IONIZED RADIATION 1",31.2)=""
^DD(665.193,"B","SECONDARY IONIZED RADIATION 2",32.2)=""
^DD(665.193,"B","SECONDARY IONIZED RADIATION 3",33.2)=""
^DD(665.193,"B","SECONDARY MST 1",31.5)=""
^DD(665.193,"B","SECONDARY MST 2",32.5)=""
^DD(665.193,"B","SECONDARY MST 3",33.5)=""
^DD(665.193,"B","SECONDARY SERVICE CONNECTED 1",31.3)=""
^DD(665.193,"B","SECONDARY SERVICE CONNECTED 2",32.3)=""
^DD(665.193,"B","SECONDARY SERVICE CONNECTED 3",33.3)=""
^DD(665.193,"GL",0,1,.01)=""
^DD(665.193,"GL",0,3,2)=""
^DD(665.193,"GL",0,5,4)=""
^DD(665.193,"GL",1,0,3)=""
^DD(665.193,"GL","BA1",1,30)=""
^DD(665.193,"GL","BA1",2,30.1)=""
^DD(665.193,"GL","BA1",3,30.2)=""
^DD(665.193,"GL","BA1",4,30.3)=""
^DD(665.193,"GL","BA1",5,30.4)=""
^DD(665.193,"GL","BA1",6,30.5)=""
^DD(665.193,"GL","BA1",7,30.6)=""
^DD(665.193,"GL","BA1",8,30.7)=""
^DD(665.193,"GL","BA2",1,31)=""
^DD(665.193,"GL","BA2",2,31.1)=""
^DD(665.193,"GL","BA2",3,31.2)=""
^DD(665.193,"GL","BA2",4,31.3)=""
^DD(665.193,"GL","BA2",5,31.4)=""
^DD(665.193,"GL","BA2",6,31.5)=""
^DD(665.193,"GL","BA2",7,31.6)=""
^DD(665.193,"GL","BA2",8,31.7)=""
^DD(665.193,"GL","BA3",1,32)=""
^DD(665.193,"GL","BA3",2,32.1)=""
^DD(665.193,"GL","BA3",3,32.2)=""
^DD(665.193,"GL","BA3",4,32.3)=""
^DD(665.193,"GL","BA3",5,32.4)=""
^DD(665.193,"GL","BA3",6,32.5)=""
^DD(665.193,"GL","BA3",7,32.6)=""
^DD(665.193,"GL","BA3",8,32.7)=""
^DD(665.193,"GL","BA4",1,33)=""
^DD(665.193,"GL","BA4",2,33.1)=""
^DD(665.193,"GL","BA4",3,33.2)=""
^DD(665.193,"GL","BA4",4,33.3)=""
^DD(665.193,"GL","BA4",5,33.4)=""
^DD(665.193,"GL","BA4",6,33.5)=""
^DD(665.193,"GL","BA4",7,33.6)=""
^DD(665.193,"GL","BA4",8,33.7)=""
^DD(665.193,"GL","PFSS",1,100)=""
^DD(665.193,"GL","PFSS",2,101)=""
^DD(665.193,"IX",.01)=""
^DD(665.193,"IX",2)=""
^DD(665.193,"IX",100)=""
^DD(665.193,"SB",665.1933,3)=""
^DD(665.1933,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(665.1933,0,"DT")="2980304"
^DD(665.1933,0,"NM","DESCRIPTION")=""
^DD(665.1933,0,"UP")="665.193"
^DD(665.1933,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(665.1933,.01,3)="Enter prescription information."
^DD(665.1933,.01,21,0)="^^1^1^2980304^^"
^DD(665.1933,.01,21,1,0)="This field is a word processing field to enter prescription info. "
^DD(665.1933,.01,"DT")="2980304"
^DD(665.1933,"B","DESCRIPTION",.01)=""
^DD(665.1933,"GL",0,1,.01)=""
^DD(665.194,0)="HOME OXYGEN ITEM SUB-FIELD^^101^15"
^DD(665.194,0,"DT")="2990203"
^DD(665.194,0,"ID",6)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RMPR(661.1,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(661.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(665.194,0,"ID",8)="W ""   "",$P(^(0),U,9)"
^DD(665.194,0,"IX","APTASK",665.194,.01)=""
^DD(665.194,0,"IX","B",665.194,.01)=""
^DD(665.194,0,"NM","HOME OXYGEN ITEM")=""
^DD(665.194,0,"UP")="665"
^DD(665.194,.01,0)="ITEM^MRP661'O^RMPR(661,^0;1^Q"
^DD(665.194,.01,1,0)="^.1"
^DD(665.194,.01,1,1,0)="665.194^B"
^DD(665.194,.01,1,1,1)="S ^RMPR(665,DA(1),""RMPOC"",""B"",$E(X,1,30),DA)="""""
^DD(665.194,.01,1,1,2)="K ^RMPR(665,DA(1),""RMPOC"",""B"",$E(X,1,30),DA)"
^DD(665.194,.01,1,2,0)="665.194^APTASK^MUMPS"
^DD(665.194,.01,1,2,1)="Q"
^DD(665.194,.01,1,2,2)="D ITEMTASK^RMPOPF"
^DD(665.194,.01,1,2,"DT")="3050818"
^DD(665.194,.01,1,3,0)="^^TRIGGER^665.194^100"
^DD(665.194,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RMPR(665,D0,""RMPOC"",D1,""PFSS"")):^(""PFSS""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S(+$$SWSTAT^IBBAPI():1,1:"""") X ^DD(665.194,.01,1,3,1.4)"
^DD(665.194,.01,1,3,1.4)="S DIH=$G(^RMPR(665,DIV(0),""RMPOC"",DIV(1),""PFSS"")),DIV=X S $P(^(""PFSS""),U,1)=DIV,DIH=665.194,DIG=100 D ^DICR"
^DD(665.194,.01,1,3,2)="Q"
^DD(665.194,.01,1,3,"CREATE VALUE")="S X=$S(+$$SWSTAT^IBBAPI():1,1:"""")"
^DD(665.194,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(665.194,.01,1,3,"DT")="3051028"
^DD(665.194,.01,1,3,"FIELD")="PFSS ACCOUNT FLAG"
^DD(665.194,.01,2)="S Y(0)=Y S Y=$P(^RMPR(661,Y,0),U),Y=$P(^PRC(441,Y,0),U,2)"
^DD(665.194,.01,2.1)="S Y=$P(^RMPR(661,Y,0),U),Y=$P(^PRC(441,Y,0),U,2)"
^DD(665.194,.01,3)="Enter the equipment item. Enter 'primary' item first."
^DD(665.194,.01,4)=""
^DD(665.194,.01,21,0)="^^3^3^2980615^^^^"
^DD(665.194,.01,21,1,0)="This is a multiple field and will contain all the items dispensed"
^DD(665.194,.01,21,2,0)="to the patient. NOTE: The first entry must be the primary equipment"
^DD(665.194,.01,21,3,0)="item."
^DD(665.194,.01,"DEL",.01,0)="I 1 W ""USE DELETE OPTION!"""
^DD(665.194,.01,"DT")="3051028"
^DD(665.194,1,0)="VENDOR^*P440'^PRC(440,^0;2^S DIC(""S"")=""I $D(^RMPR(669.9,+$G(RMPOXITE),""""RMPOVDR"""",Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(665.194,1,3)="Enter name of vendor who supplies the equipment item."
^DD(665.194,1,12)="LIMITED TO VENDORS IN PROS. SITE FILE"
^DD(665.194,1,12.1)="S DIC(""S"")=""I $D(^RMPR(669.9,+$G(RMPOXITE),""""RMPOVDR"""",Y,0))"""
^DD(665.194,1,21,0)="^^1^1^2990128^^^^"
^DD(665.194,1,21,1,0)="Enter the name of the vendor or vendor code."
^DD(665.194,1,"DT")="2990128"
^DD(665.194,2,0)="QUANTITY^RNJ5,0^^0;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(665.194,2,3)="Type a Number between 1 and 99999, 0 Decimal Digits."
^DD(665.194,2,21,0)="^^2^2^2990317^"
^DD(665.194,2,21,1,0)="This is the number of units (tank, case, etc.) issued for this"
^DD(665.194,2,21,2,0)="prescription."
^DD(665.194,2,"DT")="2981112"
^DD(665.194,3,0)="UNIT COST^NJ9,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(665.194,3,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(665.194,3,21,0)="^^1^1^2990317^"
^DD(665.194,3,21,1,0)="This is the cost per unit of this issue."
^DD(665.194,3,"DT")="2981112"
^DD(665.194,4,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;5^Q"
^DD(665.194,4,3)="Enter a unit of issue (e.g., ea, lbs)."
^DD(665.194,4,21,0)="^^1^1^2990317^"
^DD(665.194,4,21,1,0)="This is the unit of issue (e.g., ea, lbs, case, feet, etc.)."
^DD(665.194,4,"DT")="2981112"
^DD(665.194,5,0)="FUND CONTROL POINT^FX^^0;6^Q"
^DD(665.194,5,3)="Enter the Fund Control Point."
^DD(665.194,5,21,0)="^^1^1^2990318^"
^DD(665.194,5,21,1,0)="This is the Fund Control Point for this item."
^DD(665.194,5,"DT")="2981112"
^DD(665.194,6,0)="HCPCS CODE^RP661.1'^RMPR(661.1,^0;7^Q"
^DD(665.194,6,3)="Enter HCPCS code, 1 letter followed by 4 numbers."
^DD(665.194,6,21,0)="^^3^3^2990317^"
^DD(665.194,6,21,1,0)="Enter the HCPCS code for this item.  This number is taken from the CPT"
^DD(665.194,6,21,2,0)="file (81) and consists of 1 letter and 4 numbers.  The HCPCS shares the"
^DD(665.194,6,21,3,0)="CPT file 81."
^DD(665.194,6,"DT")="2981112"
^DD(665.194,7,0)="ICD9 CODE^P80'^ICD9(^0;8^Q"
^DD(665.194,7,3)="Enter ICD diagnosis code."
^DD(665.194,7,21,0)="^^1^1^2980211^^"
^DD(665.194,7,21,1,0)="Enter the ICD9 code. Points to the ICD diagnosis file."
^DD(665.194,7,"DT")="2981112"
^DD(665.194,8,0)="REMARKS^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(665.194,8,3)="Enter remarks (1-30 char) on this patient."
^DD(665.194,8,21,0)="^^2^2^2990317^"
^DD(665.194,8,21,1,0)="Enter any information (1 - 30 characters) specific to this patient, such"
^DD(665.194,8,21,2,0)="as: Patient hard of hearing."
^DD(665.194,8,"DT")="2981112"
^DD(665.194,9,0)="ITEM TYPE^S^I:Initial Issue;R:Replace;X:Repair;^0;10^Q"
^DD(665.194,9,3)="Enter the type of issue: initial, replacement, or repair."
^DD(665.194,9,21,0)="^^2^2^2990317^"
^DD(665.194,9,21,1,0)="This is the type of issue (initial, replacement, or repair) which is"
^DD(665.194,9,21,2,0)="useful in determining workload."
^DD(665.194,9,"DT")="2990203"
^DD(665.194,10,0)="PRIMARY ITEM^S^Y:YES;N:NO;^0;11^Q"
^DD(665.194,10,1,0)="^.1"
^DD(665.194,10,1,1,0)="665^AC"
^DD(665.194,10,1,1,1)="S ^RMPR(665,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(665.194,10,1,1,2)="K ^RMPR(665,""AC"",$E(X,1,30),DA(1),DA)"
^DD(665.194,10,1,1,"%D",0)="^^1^1^2990114^"
^DD(665.194,10,1,1,"%D",1,0)="cross refernce primary item flag to patient item"
^DD(665.194,10,1,1,"DT")="2990114"
^DD(665.194,10,3)="Enter Y if this is the primary item."
^DD(665.194,10,21,0)="^^7^7^2990317^"
^DD(665.194,10,21,1,0)="The primary item is the item that is the most important to or descriptive"
^DD(665.194,10,21,2,0)="of a patient's care.  It is displayed on many reports in lieu of all the"
^DD(665.194,10,21,3,0)="items so that the user can easily and quickly tell what kind of treatment"
^DD(665.194,10,21,4,0)="the patient is getting."
^DD(665.194,10,21,5,0)=" "
^DD(665.194,10,21,6,0)="There are multiple sets of items for each patient, one for each vendor.  "
^DD(665.194,10,21,7,0)="There can only be one primary item for each set."
^DD(665.194,10,"DT")="2990114"
^DD(665.194,11,0)="HOME OXYGEN RENTAL FLAG^S^1:YES;0:N;^0;12^Q"
^DD(665.194,11,21,0)="^.001^1^1^3000606^^^"
^DD(665.194,11,21,1,0)="A flag that designates an item as rental."
^DD(665.194,11,"DT")="3000606"
^DD(665.194,12,0)="HOME OXYGEN CONSERVING FLAG^S^1:YES;0:NO;^0;13^Q"
^DD(665.194,12,21,0)="^^3^3^3000601^"
^DD(665.194,12,21,1,0)="This flag an item as that Oxygen conserving device is used.  IF this flag"
^DD(665.194,12,21,2,0)="is set to YES, a 'QH' cpt modifier will be appended to the CPT modifier"
^DD(665.194,12,21,3,0)="string during posting to Patient 2319 record."
^DD(665.194,12,"DT")="3000601"
^DD(665.194,100,0)="PFSS ACCOUNT FLAG^S^1:READY TO PROCESS;^PFSS;1^Q"
^DD(665.194,100,1,0)="^.1"
^DD(665.194,100,1,1,0)="665^APO"
^DD(665.194,100,1,1,1)="S ^RMPR(665,""APO"",$E(X,1,30),DA(1),DA)="""""
^DD(665.194,100,1,1,2)="K ^RMPR(665,""APO"",$E(X,1,30),DA(1),DA)"
^DD(665.194,100,1,1,"%D",0)="^^1^1^3050726^"
^DD(665.194,100,1,1,"%D",1,0)="Regular file wide cross reference in support of PFSS IBB interface."
^DD(665.194,100,1,1,"DT")="3050726"
^DD(665.194,100,3)="Enter ""1"" if this record is ready to process PFSS data."
^DD(665.194,100,5,1,0)="665.194^.01^3"
^DD(665.194,100,21,0)="^^1^1^3051220^^"
^DD(665.194,100,21,1,0)="Flag field that indicates this record is ready for PFSS Processing."
^DD(665.194,100,"DT")="3051220"
^DD(665.194,101,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^PFSS;2^Q"
^DD(665.194,101,3)="Enter the PFSS ACCOUNT REFERENCE returned by the PFSS process."
^DD(665.194,101,21,0)="^^2^2^3051220^^"
^DD(665.194,101,21,1,0)="The account reference number passed back to Prosthetics from the get "
^DD(665.194,101,21,2,0)="account ID process.  It is associated with the item."
^DD(665.194,101,"DT")="3051220"
^DD(665.194,"B","FUND CONTROL POINT",5)=""
^DD(665.194,"B","HCPCS CODE",6)=""
^DD(665.194,"B","HOME OXYGEN CONSERVING FLAG",12)=""
^DD(665.194,"B","HOME OXYGEN RENTAL FLAG",11)=""
^DD(665.194,"B","ICD9 CODE",7)=""
^DD(665.194,"B","ITEM",.01)=""
^DD(665.194,"B","ITEM TYPE",9)=""
^DD(665.194,"B","PFSS ACCOUNT FLAG",100)=""
^DD(665.194,"B","PFSS ACCOUNT REFERENCE",101)=""
^DD(665.194,"B","PRIMARY ITEM",10)=""
^DD(665.194,"B","QUANTITY",2)=""
^DD(665.194,"B","REMARKS",8)=""
^DD(665.194,"B","UNIT COST",3)=""
^DD(665.194,"B","UNIT OF ISSUE",4)=""
^DD(665.194,"B","VENDOR",1)=""
^DD(665.194,"GL",0,1,.01)=""
^DD(665.194,"GL",0,2,1)=""
^DD(665.194,"GL",0,3,2)=""
^DD(665.194,"GL",0,4,3)=""
^DD(665.194,"GL",0,5,4)=""
^DD(665.194,"GL",0,6,5)=""
^DD(665.194,"GL",0,7,6)=""
^DD(665.194,"GL",0,8,7)=""
^DD(665.194,"GL",0,9,8)=""
^DD(665.194,"GL",0,10,9)=""
^DD(665.194,"GL",0,11,10)=""
^DD(665.194,"GL",0,12,11)=""
^DD(665.194,"GL",0,13,12)=""
^DD(665.194,"GL","PFSS",1,100)=""
^DD(665.194,"GL","PFSS",2,101)=""
^DD(665.194,"IX",.01)=""
^DD(665.194,"IX",10)=""
^DD(665.194,"IX",100)=""
^DD(665.194,"RQ",.01)=""
^DD(665.194,"RQ",2)=""
^DD(665.194,"RQ",6)=""
^DD(665.2,0)="FIELD^^4^5"
^DD(665.2,0,"DDA")="N"
^DD(665.2,0,"DT")="2950619"
^DD(665.2,0,"IX","B",665.2,.01)=""
^DD(665.2,0,"NM","PROS LETTER")=""
^DD(665.2,0,"PT",665,19.13)=""
^DD(665.2,0,"PT",665.4,1)=""
^DD(665.2,0,"PT",669.965,.01)=""
^DD(665.2,0,"VR")="3.0"
^DD(665.2,.01,0)="NAME^F^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(665.2,.01,1,0)="^.1"
^DD(665.2,.01,1,1,0)="665.2^B"
^DD(665.2,.01,1,1,1)="S ^RMPR(665.2,""B"",$E(X,1,30),DA)="""""
^DD(665.2,.01,1,1,2)="K ^RMPR(665.2,""B"",$E(X,1,30),DA)"
^DD(665.2,.01,3)="Answer must be 3-30 characters in length."
^DD(665.2,.01,21,0)="^^1^1^2950515^^^^"
^DD(665.2,.01,21,1,0)="This is the name of the skeleton letter."
^DD(665.2,.01,"DEL",.01,0)="W ""  POINTER FILE, DO NOT DELETE   """
^DD(665.2,.01,"DT")="2950515"
^DD(665.2,1,0)="LETTER TEXT^665.21^^1;0"
^DD(665.2,1,21,0)="^^1^1^2921008^"
^DD(665.2,1,21,1,0)="This is the text of the skeleton letter."
^DD(665.2,2,0)="DENIAL FLAG^S^0:NO;1:YES;^0;2^Q"
^DD(665.2,2,3)="Enter `YES` if letter is to be counted for AMIS Denial."
^DD(665.2,2,21,0)="^^1^1^2921008^"
^DD(665.2,2,21,1,0)="This field stores the denial flag for AMIS purposes."
^DD(665.2,2,"DT")="2920708"
^DD(665.2,3,0)="ADP FL 10-90 FLAG^S^1:YES;^0;3^Q"
^DD(665.2,3,21,0)="^^1^1^2960122^"
^DD(665.2,3,21,1,0)="This field is set to 1 if the letter is an ADP FL 10-90."
^DD(665.2,3,"DT")="2950619"
^DD(665.2,4,0)="NON EDITABLE LETTER^S^1:YES;^0;4^Q"
^DD(665.2,4,3)="Enter '1' if this letter is to be protected as not editable."
^DD(665.2,4,21,0)="^^1^1^2950619^"
^DD(665.2,4,21,1,0)="If this field is set to 1 this letter is marked as non editable."
^DD(665.2,4,"DT")="2950619"
^DD(665.2,"B","ADP FL 10-90 FLAG",3)=""
^DD(665.2,"B","DENIAL FLAG",2)=""
^DD(665.2,"B","LETTER TEXT",1)=""
^DD(665.2,"B","NAME",.01)=""
^DD(665.2,"B","NON EDITABLE LETTER",4)=""
^DD(665.2,"GL",0,1,.01)=""
^DD(665.2,"GL",0,2,2)=""
^DD(665.2,"GL",0,3,3)=""
^DD(665.2,"GL",0,4,4)=""
^DD(665.2,"GL",1,0,1)=""
^DD(665.2,"IX",.01)=""
^DD(665.2,"SB",665.21,1)=""
^DD(665.21,0)="LETTER TEXT SUB-FIELD^^.01^1"
^DD(665.21,0,"DT")="2920708"
^DD(665.21,0,"NM","LETTER TEXT")=""
^DD(665.21,0,"UP")="665.2"
^DD(665.21,.01,0)="LETTER TEXT^WL^^0;1^Q"
^DD(665.21,.01,"DT")="2920708"
^DD(665.21,"B","LETTER TEXT",.01)=""
^DD(665.21,"GL",0,1,.01)=""
^DD(665.4,0)="FIELD^^11^13"
^DD(665.4,0,"DDA")="N"
^DD(665.4,0,"DT")="2950620"
^DD(665.4,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RMPR(665.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(665.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(665.4,0,"ID",11)="W:$D(^(5)) ""   "",$E($P(^(5),U,1),4,5)_""-""_$E($P(^(5),U,1),6,7)_""-""_$E($P(^(5),U,1),2,3)"
^DD(665.4,0,"IX","AC",665.4,2)=""
^DD(665.4,0,"IX","AH1",665.4,2)=""
^DD(665.4,0,"IX","AH2",665.4,11)=""
^DD(665.4,0,"IX","B",665.4,.01)=""
^DD(665.4,0,"IX","C",665.4,11)=""
^DD(665.4,0,"NM","PROS LETTER TRANSACTION FILE")=""
^DD(665.4,0,"VR")="3.0"
^DD(665.4,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(665.4,.01,1,0)="^.1^^-1"
^DD(665.4,.01,1,1,0)="665.4^B"
^DD(665.4,.01,1,1,1)="S ^RMPR(665.4,""B"",$E(X,1,30),DA)="""""
^DD(665.4,.01,1,1,2)="K ^RMPR(665.4,""B"",$E(X,1,30),DA)"
^DD(665.4,.01,3)="Enter the Patient's name."
^DD(665.4,.01,21,0)="^^1^1^2950515^^^"
^DD(665.4,.01,21,1,0)="Pointer to the MAS Patient File."
^DD(665.4,.01,"DT")="2950503"
^DD(665.4,.05,0)="LETTER TO:^F^^5;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(665.4,.05,1,0)="^.1^^0"
^DD(665.4,.05,3)="Answer must be 3-30 characters in length."
^DD(665.4,.05,"DT")="2950502"
^DD(665.4,1,0)="LETTER TYPE^P665.2'^RMPR(665.2,^0;2^Q"
^DD(665.4,1,1,0)="^.1^^0"
^DD(665.4,1,3)="Enter the type of letter for this transaction."
^DD(665.4,1,21,0)="^^2^2^2960131^"
^DD(665.4,1,21,1,0)="This field points to file 665.2.  It stores the type of letter for"
^DD(665.4,1,21,2,0)="this transaction."
^DD(665.4,1,"DT")="2930602"
^DD(665.4,2,0)="PRINTED DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.4,2,1,0)="^.1"
^DD(665.4,2,1,1,0)="665.4^AC^MUMPS"
^DD(665.4,2,1,1,1)="I $P(^RMPR(665.4,DA,0),U,5)=1 S ^RMPR(665.4,""AC"",$E(X,1,20),DA)="""""
^DD(665.4,2,1,1,2)="K ^RMPR(665.4,""AC"",$E(X,1,20),DA)"
^DD(665.4,2,1,1,"%D",0)="^^1^1^2930306^^"
^DD(665.4,2,1,1,"%D",1,0)="Used for counting AMIS denials by date."
^DD(665.4,2,1,1,"DT")="2921022"
^DD(665.4,2,1,2,0)="665.4^AH1^MUMPS"
^DD(665.4,2,1,2,1)="S ^RMPR(665.4,""AH"",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,0),U,3)),DA)="""""
^DD(665.4,2,1,2,2)="K ^RMPR(665.4,""AH"",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,0),U,3)),DA)"
^DD(665.4,2,1,2,"%D",0)="^^1^1^2950808^^^^"
^DD(665.4,2,1,2,"%D",1,0)="AH1 AND AH2 CROSS REFF BOTH SET AH XREFF THAT SORTS BY PATIENT AND DATE."
^DD(665.4,2,1,2,"DT")="2950522"
^DD(665.4,2,3)="Enter the date the letter was printed."
^DD(665.4,2,21,0)="^^2^2^2950522^^^^"
^DD(665.4,2,21,1,0)="If a letter has been printed, it may not be edited.  This field stores"
^DD(665.4,2,21,2,0)="the printed flag."
^DD(665.4,2,"DT")="2950522"
^DD(665.4,3,0)="LETTER^665.43^^1;0"
^DD(665.4,3,21,0)="^^1^1^2921008^"
^DD(665.4,3,21,1,0)="This is the actual printed letter sent to the patient."
^DD(665.4,4,0)="EMPLOYEE^P200'^VA(200,^0;4^Q"
^DD(665.4,4,3)="Enter the name of the employee who created the letter."
^DD(665.4,4,21,0)="^^1^1^2940502^^^^"
^DD(665.4,4,21,1,0)="This field stores the employee who created the letter."
^DD(665.4,4,"DT")="2920626"
^DD(665.4,5,0)="DENIAL FLAG^S^0:NO;1:YES;^0;5^Q"
^DD(665.4,5,3)="Enter 0 for NO, 1 for YES."
^DD(665.4,5,21,0)="^^1^1^2921008^^^"
^DD(665.4,5,21,1,0)="Field is used to calculate AMIS Denials if set to YES."
^DD(665.4,5,"DT")="2920708"
^DD(665.4,6,0)="STATION^P4'^DIC(4,^0;6^Q"
^DD(665.4,6,3)="Enter the Station number for this letter transaction."
^DD(665.4,6,21,0)="^^1^1^2921008^"
^DD(665.4,6,21,1,0)="This field stores the station that generated the letter to the patient."
^DD(665.4,6,"DT")="2920929"
^DD(665.4,7,0)="VENDOR^P440'^PRC(440,^2;1^Q"
^DD(665.4,7,21,0)="^^1^1^2960124^"
^DD(665.4,7,21,1,0)="Vendor for FL 10-90 purposes."
^DD(665.4,7,"DT")="2940105"
^DD(665.4,8,0)="ITEM^665.48^^3;0"
^DD(665.4,8,21,0)="^^2^2^2960122^"
^DD(665.4,8,21,1,0)="This field contains items for which a request for quotation has been made"
^DD(665.4,8,21,2,0)="on the ADP FL 10-90 form.  The item is NOT tied to the Item Master file."
^DD(665.4,8,"DT")="2940728"
^DD(665.4,9,0)="SIGNED BY^F^^4;1^K:$L(X)>30!($L(X)<3) X"
^DD(665.4,9,3)="Answer must be 3-30 characters in length."
^DD(665.4,9,"DT")="2940209"
^DD(665.4,10,0)="SIGNER'S TITLE^F^^4;2^K:$L(X)>30!($L(X)<3) X"
^DD(665.4,10,3)="Answer must be 3-30 characters in length."
^DD(665.4,10,"DT")="2940209"
^DD(665.4,11,0)="NON-AMIS GENERATION DATE^D^^5;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(665.4,11,1,0)="^.1"
^DD(665.4,11,1,1,0)="665.4^AH2^MUMPS"
^DD(665.4,11,1,1,1)="S ^RMPR(665.4,""AH"",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,5),U,1)),DA)="""""
^DD(665.4,11,1,1,2)="K ^RMPR(665.4,""AH"",$P(^RMPR(665.4,DA,0),U,1),(9999999-$P(^RMPR(665.4,DA,5),U,1)),DA)"
^DD(665.4,11,1,1,"%D",0)="^^1^1^2951215^^^^"
^DD(665.4,11,1,1,"%D",1,0)="BOTH AH1 AND AH2 CROSS REFFERENCES SET THE AH CROSS REFFERENCE OF LETTER BY PATIENT AND DATE."
^DD(665.4,11,1,1,"DT")="2950523"
^DD(665.4,11,1,2,0)="665.4^C"
^DD(665.4,11,1,2,1)="S ^RMPR(665.4,""C"",$E(X,1,30),DA)="""""
^DD(665.4,11,1,2,2)="K ^RMPR(665.4,""C"",$E(X,1,30),DA)"
^DD(665.4,11,1,2,"DT")="2950522"
^DD(665.4,11,23,0)="^^2^2^2950503^^^^"
^DD(665.4,11,23,1,0)="THIS IS THE DATE LETTER WAS FIRST GENERATED. IT HAS NO OTHER USE, AND IS"
^DD(665.4,11,23,2,0)="NOT USED TO COUNT AMIS."
^DD(665.4,11,"DT")="2950523"
^DD(665.4,"B","DENIAL FLAG",5)=""
^DD(665.4,"B","EMPLOYEE",4)=""
^DD(665.4,"B","ITEM",8)=""
^DD(665.4,"B","LETTER",3)=""
^DD(665.4,"B","LETTER TO:",.05)=""
^DD(665.4,"B","LETTER TYPE",1)=""
^DD(665.4,"B","NAME",.01)=""
^DD(665.4,"B","NON-AMIS GENERATION DATE",11)=""
^DD(665.4,"B","PRINTED DATE",2)=""
^DD(665.4,"B","SIGNED BY",9)=""
^DD(665.4,"B","SIGNER'S TITLE",10)=""
^DD(665.4,"B","STATION",6)=""
^DD(665.4,"B","VENDOR",7)=""
^DD(665.4,"GL",0,1,.01)=""
^DD(665.4,"GL",0,2,1)=""
^DD(665.4,"GL",0,3,2)=""
^DD(665.4,"GL",0,4,4)=""
^DD(665.4,"GL",0,5,5)=""
^DD(665.4,"GL",0,6,6)=""
^DD(665.4,"GL",1,0,3)=""
^DD(665.4,"GL",2,1,7)=""
^DD(665.4,"GL",3,0,8)=""
^DD(665.4,"GL",4,1,9)=""
^DD(665.4,"GL",4,2,10)=""
^DD(665.4,"GL",5,1,11)=""
^DD(665.4,"GL",5,2,.05)=""
^DD(665.4,"IX",.01)=""
^DD(665.4,"IX",2)=""
^DD(665.4,"IX",11)=""
^DD(665.4,"RQ",.01)=""
^DD(665.4,"SB",665.43,3)=""
^DD(665.4,"SB",665.48,8)=""
^DD(665.43,0)="LETTER SUB-FIELD^^.01^1"
^DD(665.43,0,"DT")="2920708"
^DD(665.43,0,"NM","LETTER")=""
^DD(665.43,0,"UP")="665.4"
^DD(665.43,.01,0)="LETTER^WL^^0;1^Q"
^DD(665.43,.01,3)="Enter the text of the letter."
^DD(665.43,.01,"DT")="2920708"
^DD(665.43,"B","LETTER",.01)=""
^DD(665.43,"GL",0,1,.01)=""
^DD(665.48,0)="ITEM SUB-FIELD^^.01^1"
^DD(665.48,0,"DT")="2950620"
^DD(665.48,0,"IX","B",665.48,.01)=""
^DD(665.48,0,"NM","ITEM")=""
^DD(665.48,0,"UP")="665.4"
^DD(665.48,.01,0)="ITEM^MRF^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(665.48,.01,1,0)="^.1"
^DD(665.48,.01,1,1,0)="665.48^B"
^DD(665.48,.01,1,1,1)="S ^RMPR(665.4,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(665.48,.01,1,1,2)="K ^RMPR(665.4,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(665.48,.01,3)="Enter an item to include in this request - 3 to 80 characters allowed."
^DD(665.48,.01,21,0)="^^2^2^2960122^^"
^DD(665.48,.01,21,1,0)="This field contains the item for which a request for a quotations has been"
^DD(665.48,.01,21,2,0)="made on the ADP FL 10-90."
^DD(665.48,.01,"DT")="2950620"
^DD(665.48,"B","ITEM",.01)=""
^DD(665.48,"GL",0,1,.01)=""
^DD(665.48,"IX",.01)=""
^DD(665.48,"RQ",.01)=""
^DD(665.72,0)="FIELD^^1^2"
^DD(665.72,0,"DDA")="N"
^DD(665.72,0,"DT")="2990610"
^DD(665.72,0,"IX","AB",665.72319,.01)=""
^DD(665.72,0,"IX","AC",665.723191,15)=""
^DD(665.72,0,"IX","B",665.72,.01)=""
^DD(665.72,0,"NM","HOME OXYGEN TRANSACTIONS FILE")=""
^DD(665.72,0,"VR")="3.0"
^DD(665.72,0,"VRPK")="RMPR"
^DD(665.72,.01,0)="SITE^RP669.9'^RMPR(669.9,^0;1^Q"
^DD(665.72,.01,1,0)="^.1"
^DD(665.72,.01,1,1,0)="665.72^B"
^DD(665.72,.01,1,1,1)="S ^RMPO(665.72,""B"",$E(X,1,30),DA)="""""
^DD(665.72,.01,1,1,2)="K ^RMPO(665.72,""B"",$E(X,1,30),DA)"
^DD(665.72,.01,3)="Enter a site number or name."
^DD(665.72,.01,21,0)="^^3^3^2990115^"
^DD(665.72,.01,21,1,0)="This is the Veterans Affairs site where this transaction will come to "
^DD(665.72,.01,21,2,0)="completion.  It is the site that is ultimately responsible for the issue "
^DD(665.72,.01,21,3,0)="and payment for Home Oxygen devices."
^DD(665.72,.01,"DT")="2981109"
^DD(665.72,1,0)="BILLING MONTH^665.723DA^^1;0"
^DD(665.72,1,21,0)="^.001^3^3^3000607^^^^"
^DD(665.72,1,21,1,0)="Billing month in which patient transactions are generated in Home Oxygen"
^DD(665.72,1,21,2,0)="for the purpose of reconciliation with contractors invoices and payment "
^DD(665.72,1,21,3,0)="through IFCAP."
^DD(665.72,"B","BILLING MONTH",1)=""
^DD(665.72,"B","SITE",.01)=""
^DD(665.72,"GL",0,1,.01)=""
^DD(665.72,"GL",1,0,1)=""
^DD(665.72,"IX",.01)=""
^DD(665.72,"RQ",.01)=""
^DD(665.72,"SB",665.723,1)=""
^DD(665.723,0)="BILLING MONTH SUB-FIELD^^2^3"
^DD(665.723,0,"DT")="2990610"
^DD(665.723,0,"IX","B",665.723,.01)=""
^DD(665.723,0,"NM","BILLING MONTH")=""
^DD(665.723,0,"UP")="665.72"
^DD(665.723,.01,0)="BILLING MONTH^DX^^0;1^D XFRM1^RMPOBILU"
^DD(665.723,.01,1,0)="^.1"
^DD(665.723,.01,1,1,0)="665.723^B"
^DD(665.723,.01,1,1,1)="S ^RMPO(665.72,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(665.723,.01,1,1,2)="K ^RMPO(665.72,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(665.723,.01,3)="Enter a month and year, e.g., 5/97, May 97."
^DD(665.723,.01,21,0)="^^4^4^2990317^"
^DD(665.723,.01,21,1,0)="This is the month and year for this Home Oxygen billing transaction."
^DD(665.723,.01,21,2,0)="Billing month in which patient transactions are generated in Home Oxygen"
^DD(665.723,.01,21,3,0)="for the purpose of reconciliation with contractors invoices and payment "
^DD(665.723,.01,21,4,0)="through IFCAP."
^DD(665.723,.01,"DT")="2981214"
^DD(665.723,1,0)="VENDOR^665.7231PA^^1;0"
^DD(665.723,1,21,0)="^.001^2^2^3000607^^^^"
^DD(665.723,1,21,1,0)="This is the name of the vendor/contractor from which the item was"
^DD(665.723,1,21,2,0)="purchased. The vendor is a pointer to IFCAP's vendor file."
^DD(665.723,1,"DT")="2981109"
^DD(665.723,2,0)="FUND CONTROL POINT^665.7232I^^2;0"
^DD(665.723,2,21,0)="^^1^1^2990115^"
^DD(665.723,2,21,1,0)="A multiple of fund control points that are billed through IFCAP."
^DD(665.723,"B","BILLING MONTH",.01)=""
^DD(665.723,"B","FUND CONTROL POINT",2)=""
^DD(665.723,"B","VENDOR",1)=""
^DD(665.723,"GL",0,1,.01)=""
^DD(665.723,"GL",1,0,1)=""
^DD(665.723,"GL",2,0,2)=""
^DD(665.723,"IX",.01)=""
^DD(665.723,"SB",665.7231,1)=""
^DD(665.723,"SB",665.7232,2)=""
^DD(665.7231,0)="VENDOR SUB-FIELD^^9^3"
^DD(665.7231,0,"DT")="2990610"
^DD(665.7231,0,"IX","B",665.7231,.01)=""
^DD(665.7231,0,"NM","VENDOR")=""
^DD(665.7231,0,"UP")="665.723"
^DD(665.7231,.01,0)="VENDOR^*P440'X^PRC(440,^0;1^S DIC(""S"")=""I $D(^RMPR(669.9,+$G(RMPOXITE),""""RMPOVDR"""",Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(665.7231,.01,1,0)="^.1"
^DD(665.7231,.01,1,1,0)="665.7231^B"
^DD(665.7231,.01,1,1,1)="S ^RMPO(665.72,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(665.7231,.01,1,1,2)="K ^RMPO(665.72,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(665.7231,.01,3)="Enter the Vendor the item is being purchased from."
^DD(665.7231,.01,12)="ONLY VENDORS FROM SITE FILE"
^DD(665.7231,.01,12.1)="S DIC(""S"")=""I $D(^RMPR(669.9,+$G(RMPOXITE),""""RMPOVDR"""",Y,0))"""
^DD(665.7231,.01,21,0)="^^2^2^2990223^"
^DD(665.7231,.01,21,1,0)="This is the name of the vendor/contractor from which the item was"
^DD(665.7231,.01,21,2,0)="purchased. The vendor is a pointer to IFCAP's vendor file."
^DD(665.7231,.01,"DT")="2990128"
^DD(665.7231,1,0)="DATE TRX BUILT^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(665.7231,1,3)="Enter the date billing transactions are generated."
^DD(665.7231,1,21,0)="^^1^1^2990115^^^"
^DD(665.7231,1,21,1,0)="The date patient billing transactions were generated."
^DD(665.7231,1,"DT")="2990105"
^DD(665.7231,9,0)="PATIENT^665.72319PA^^V;0"
^DD(665.7231,9,21,0)="^.001^2^2^3000607^^^^"
^DD(665.7231,9,21,1,0)="This is a multiple field consisting of patient billing transactions for a"
^DD(665.7231,9,21,2,0)="given vendor."
^DD(665.7231,9,"DT")="2981109"
^DD(665.7231,"B","DATE TRX BUILT",1)=""
^DD(665.7231,"B","PATIENT",9)=""
^DD(665.7231,"B","VENDOR",.01)=""
^DD(665.7231,"GL",0,1,.01)=""
^DD(665.7231,"GL",0,2,1)=""
^DD(665.7231,"GL","V",0,9)=""
^DD(665.7231,"IX",.01)=""
^DD(665.7231,"SB",665.72319,9)=""
^DD(665.72319,0)="PATIENT SUB-FIELD^^3^4"
^DD(665.72319,0,"DT")="2990610"
^DD(665.72319,0,"IX","B",665.72319,.01)=""
^DD(665.72319,0,"NM","PATIENT")=""
^DD(665.72319,0,"UP")="665.7231"
^DD(665.72319,.01,0)="PATIENT^P2'^DPT(^0;1^Q"
^DD(665.72319,.01,1,0)="^.1"
^DD(665.72319,.01,1,1,0)="665.72319^B"
^DD(665.72319,.01,1,1,1)="S ^RMPO(665.72,DA(3),1,DA(2),1,DA(1),""V"",""B"",$E(X,1,30),DA)="""""
^DD(665.72319,.01,1,1,2)="K ^RMPO(665.72,DA(3),1,DA(2),1,DA(1),""V"",""B"",$E(X,1,30),DA)"
^DD(665.72319,.01,1,2,0)="665.72^AB^MUMPS"
^DD(665.72319,.01,1,2,1)="S ^RMPO(665.72,""AB"",$P(^DPT(DA,0),U),DA(3),DA(2),DA(1),DA)="""""
^DD(665.72319,.01,1,2,2)="K ^RMPO(665.72,""AB"",$P(^DPT(DA,0),U),DA(3),DA(2),DA(1),DA)"
^DD(665.72319,.01,1,2,"%D",0)="^^3^3^2981215^^^^"
^DD(665.72319,.01,1,2,"%D",1,0)="Order alphabetically by patient name"
^DD(665.72319,.01,1,2,"%D",2,0)="Cross reference structure :"
^DD(665.72319,.01,1,2,"%D",3,0)="^RMPO(665.72,PatientName,SITE,MONTH,VENDOR,PATIENT)"
^DD(665.72319,.01,1,2,"DT")="2981215"
^DD(665.72319,.01,3)="Enter the patient's name."
^DD(665.72319,.01,21,0)="^^1^1^2990317^^"
^DD(665.72319,.01,21,1,0)="This is the name of the patient for this transaction."
^DD(665.72319,.01,"DT")="2981215"
^DD(665.72319,1,0)="ITEM^665.723191P^^1;0"
^DD(665.72319,1,21,0)="^^2^2^2990223^^^^"
^DD(665.72319,1,21,1,0)="This is a multiple field consisting of items for a patient in a billing  "
^DD(665.72319,1,21,2,0)="month."
^DD(665.72319,2,0)="ACCEPTED FLAG^S^Y:YES, ACCEPTED;N:NO, NOT ACCEPTED;^0;2^Q"
^DD(665.72319,2,3)="Y to accept patient transaction or N not to accept for billing."
^DD(665.72319,2,21,0)="^^2^2^2990115^^^"
^DD(665.72319,2,21,1,0)="Flags a patient transaction as accepted or not accepted.  If a patient "
^DD(665.72319,2,21,2,0)="transaction is accepted then it can be billed to IFCAP."
^DD(665.72319,2,"DT")="2981127"
^DD(665.72319,3,0)="POSTED FLAG^S^Y:YES, POSTED;N:NO, NOT POSTED;P:PARTIALLY POSTED;^0;3^Q"
^DD(665.72319,3,3)="Y for posted, N for Not Posted and P for Partially Posted."
^DD(665.72319,3,21,0)="^^2^2^2990223^"
^DD(665.72319,3,21,1,0)="Flags a patient transaction with an appropriate post flag of posted,"
^DD(665.72319,3,21,2,0)="partially posted or not posted."
^DD(665.72319,3,"DT")="2981127"
^DD(665.72319,"B","ACCEPTED FLAG",2)=""
^DD(665.72319,"B","ITEM",1)=""
^DD(665.72319,"B","PATIENT",.01)=""
^DD(665.72319,"B","POSTED FLAG",3)=""
^DD(665.72319,"GL",0,1,.01)=""
^DD(665.72319,"GL",0,2,2)=""
^DD(665.72319,"GL",0,3,3)=""
^DD(665.72319,"GL",1,0,1)=""
^DD(665.72319,"IX",.01)=""
^DD(665.72319,"SB",665.723191,1)=""
^DD(665.723191,0)="ITEM SUB-FIELD^^102^22"
^DD(665.723191,0,"DT")="2990610"
^DD(665.723191,0,"IX","APTASK",665.723191,.01)=""
^DD(665.723191,0,"IX","B",665.723191,.01)=""
^DD(665.723191,0,"NM","ITEM")=""
^DD(665.723191,0,"UP")="665.72319"
^DD(665.723191,.01,0)="ITEM^MRP661'^RMPR(661,^0;1^Q"
^DD(665.723191,.01,1,0)="^.1"
^DD(665.723191,.01,1,1,0)="665.723191^B"
^DD(665.723191,.01,1,1,1)="S ^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(665.723191,.01,1,1,2)="K ^RMPO(665.72,DA(4),1,DA(3),1,DA(2),""V"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(665.723191,.01,1,2,0)="665.723191^APTASK^MUMPS"
^DD(665.723191,.01,1,2,1)="Q"
^DD(665.723191,.01,1,2,2)="D CHRGTASK^RMPOPF"
^DD(665.723191,.01,1,2,"DT")="3050726"
^DD(665.723191,.01,3)="Enter the item that the patient has received from the Vendor."
^DD(665.723191,.01,21,0)="^^3^3^2990114^^^^"
^DD(665.723191,.01,21,1,0)="Vendors supply billable items to patients and bill the VAMC for rentals of"
^DD(665.723191,.01,21,2,0)="equipment and supplies. This field is a pointer to the master item list"
^DD(665.723191,.01,21,3,0)="of possible items."
^DD(665.723191,.01,23,0)="^^1^1^2990114^^"
^DD(665.723191,.01,23,1,0)="This field is a pointer to PROS ITEM MASTER FILE (#661)."
^DD(665.723191,.01,"DEL",.01,0)="I 1 W ""USE DELETE OPTION!"""
^DD(665.723191,.01,"DT")="3050726"
^DD(665.723191,1,0)="PRIMARY ITEM^S^Y:YES;N:NO;^0;8^Q"
^DD(665.723191,1,3)="Enter Y for Primary item, N or carriage return for not primary item."
^DD(665.723191,1,21,0)="^^2^2^2990317^^^^"
^DD(665.723191,1,21,1,0)="The item considered as the most important to a patient.  A patient can ONLY"
^DD(665.723191,1,21,2,0)="have one primary item."
^DD(665.723191,1,"DT")="2981116"
^DD(665.723191,2,0)="HCPCS CODE^RP661.1'^RMPR(661.1,^0;2^Q"
^DD(665.723191,2,3)="Enter an appropriate PSAS HCPCS Code for the item you selected."
^DD(665.723191,2,21,0)="^^5^5^2990317^^^^"
^DD(665.723191,2,21,1,0)="Health Care Financing Administration Common Procedure Coding System (HCPCS)"
^DD(665.723191,2,21,2,0)=" "
^DD(665.723191,2,21,3,0)="This field should have the HCPCS code for the Item you are selecting."
^DD(665.723191,2,21,4,0)="HCPCS is a uniform method for healthcare providers and medical suppliers"
^DD(665.723191,2,21,5,0)="to report professional services, procedures and supplies."
^DD(665.723191,2,23,0)="^^1^1^2990317^^^^"
^DD(665.723191,2,23,1,0)="HCPCS Codes point at the CPT file."
^DD(665.723191,2,"DT")="2981105"
^DD(665.723191,3,0)="FCP^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(665.723191,3,3)="Enter an IFCAP fund control point."
^DD(665.723191,3,21,0)="^^1^1^2990318^"
^DD(665.723191,3,21,1,0)="This is an IFCAP fund control point."
^DD(665.723191,3,"DT")="2981113"
^DD(665.723191,4,0)="REMARKS^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(665.723191,4,3)="Enter remarks of 3-30 characters that are special for the item."
^DD(665.723191,4,21,0)="^^2^2^2990223^"
^DD(665.723191,4,21,1,0)="These are remarks that are special for the item and not included or cannot"
^DD(665.723191,4,21,2,0)="be included in any other field."
^DD(665.723191,4,"DT")="2981105"
^DD(665.723191,5,0)="UNIT COST^NJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(665.723191,5,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(665.723191,5,21,0)="^^1^1^2990114^^^"
^DD(665.723191,5,21,1,0)="This is the unit cost of the item to be purchased."
^DD(665.723191,5,"DT")="2981105"
^DD(665.723191,6,0)="ITEM TOTAL^NJ9,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(665.723191,6,3)="A Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(665.723191,6,21,0)="^^2^2^2990114^^"
^DD(665.723191,6,21,1,0)="This field contains the total cost of the item.  The value is computed by"
^DD(665.723191,6,21,2,0)="the system and then populated."
^DD(665.723191,6,"DT")="2981112"
^DD(665.723191,7,0)="QUANTITY^RNJ4,0^^0;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(665.723191,7,3)="Enter the quantity delivered and billable.  A number with 0 decimal digits."
^DD(665.723191,7,21,0)="^^1^1^2990223^^^^"
^DD(665.723191,7,21,1,0)="This is the number of units that was issued or repaired for this transaction."
^DD(665.723191,7,"DT")="2981105"
^DD(665.723191,8,0)="POSTED FLAG^S^Y:YES, POSTED;N:NO, NOT POSTED;^0;10^Q"
^DD(665.723191,8,3)="YES for posted, NO for not posted."
^DD(665.723191,8,21,0)="^^2^2^2990115^^^"
^DD(665.723191,8,21,1,0)="This field is populated when the item has been successfully posted to IFCAP."
^DD(665.723191,8,21,2,0)="The user will not be prompted to enter data in this field."
^DD(665.723191,8,"DT")="2981127"
^DD(665.723191,9,0)="ICD9 CODE^P80'^ICD9(^0;9^Q"
^DD(665.723191,9,3)="Enter a code from the ICD Diagnosis file."
^DD(665.723191,9,21,0)="^^2^2^2990317^"
^DD(665.723191,9,21,1,0)="This is the patient's ICD diagnosis code that best describes the condition"
^DD(665.723191,9,21,2,0)="warranting oxygen therapy."
^DD(665.723191,9,"DT")="2990317"
^DD(665.723191,10,0)="SUSPENDED AMOUNT^NJ11,2^^0;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(665.723191,10,3)="Enter the amount billed by the contractor that Home Oxygen will not pay."
^DD(665.723191,10,21,0)="^^2^2^2990115^^^^"
^DD(665.723191,10,21,1,0)="This is the excess amount billed by the contractor that Home Oxygen "
^DD(665.723191,10,21,2,0)="will not pay."
^DD(665.723191,10,"DT")="2981202"
^DD(665.723191,11,0)="SUSPENDED REASON^F^^0;12^K:$L(X)>75!($L(X)<1) X"
^DD(665.723191,11,3)="Enter the reason for suspending payment."
^DD(665.723191,11,21,0)="^^1^1^2990223^"
^DD(665.723191,11,21,1,0)="This is the reason the amount suspended is not being paid by Home Oxygen."
^DD(665.723191,11,"DT")="2981202"
^DD(665.723191,12,0)="BACK-PTR^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(665.723191,12,3)="This is the internal entry number of this item in file 665."
^DD(665.723191,12,21,0)="^^3^3^2990223^"
^DD(665.723191,12,21,1,0)="This is the internal entry number of the item from which this transaction"
^DD(665.723191,12,21,2,0)="was generated.  It is the IEN of the item in the HOME OXYGEN ITEM multiple"
^DD(665.723191,12,21,3,0)="in the PROSTHETICS PATIENT file."
^DD(665.723191,12,"DT")="2981215"
^DD(665.723191,13,0)="ITEM TYPE^S^I:Initial Issue;R:Replace;X:Repair;^0;14^Q"
^DD(665.723191,13,3)="Enter the type of transaction for this item."
^DD(665.723191,13,21,0)="^^2^2^2990317^"
^DD(665.723191,13,21,1,0)="This is the type of transaction/issue (initial, replacement, or repair)"
^DD(665.723191,13,21,2,0)="for the item."
^DD(665.723191,13,"DT")="2990203"
^DD(665.723191,14,0)="UNIT OF ISSUE^P420.5'^PRCD(420.5,^0;15^Q"
^DD(665.723191,14,3)="Enter the appropriate unit of issue for this item."
^DD(665.723191,14,21,0)="^^2^2^2990318^"
^DD(665.723191,14,21,1,0)="This is the unit by which items/services are issued (e.g., each, pair,"
^DD(665.723191,14,21,2,0)="box, cases, etc)."
^DD(665.723191,14,23,0)="^^1^1^2990318^^^^"
^DD(665.723191,14,23,1,0)="Points to UNIT OF ISSUE file (#420)"
^DD(665.723191,14,"DT")="2981229"
^DD(665.723191,15,0)="PROSTHETICS APPLIANCE REPAIR^P660'^RMPR(660,^0;16^Q"
^DD(665.723191,15,1,0)="^.1"
^DD(665.723191,15,1,1,0)="665.72^AC"
^DD(665.723191,15,1,1,1)="S ^RMPO(665.72,""AC"",$E(X,1,30),DA(4),DA(3),DA(2),DA(1),DA)="""""
^DD(665.723191,15,1,1,2)="K ^RMPO(665.72,""AC"",$E(X,1,30),DA(4),DA(3),DA(2),DA(1),DA)"
^DD(665.723191,15,1,1,"DT")="2990105"
^DD(665.723191,15,3)="A number between 1 and 99999999 is entered."
^DD(665.723191,15,21,0)="^^2^2^2990114^^"
^DD(665.723191,15,21,1,0)="This field will be populated by the internal entry number of file 660."
^DD(665.723191,15,21,2,0)="This happens when posting to IFCAP has been successful."
^DD(665.723191,15,"DT")="2990105"
^DD(665.723191,16,0)="SUSPENDED QUANTITY^NJ3,0^^0;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(665.723191,16,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(665.723191,16,21,0)="^^1^1^2990610^"
^DD(665.723191,16,21,1,0)="This is a quantity of an item not being used by the patient."
^DD(665.723191,16,"DT")="2990610"
^DD(665.723191,17,0)="RENTAL FLAG^S^1:YES;0:NO;^0;18^Q"
^DD(665.723191,17,21,0)="^^1^1^3000518^"
^DD(665.723191,17,21,1,0)="Designates if Home Oxygen item is Rental."
^DD(665.723191,17,"DT")="3000518"
^DD(665.723191,18,0)="HOME OXYGEN CONSERVING FLAG^S^1:Y;0:N;^0;19^Q"
^DD(665.723191,18,21,0)="^.001^1^1^3000607^^"
^DD(665.723191,18,21,1,0)="This flag an item that Oxygen Conserving device is used."
^DD(665.723191,18,"DT")="3000607"
^DD(665.723191,100,0)="PFSS ACCOUNT REFERENCE^P375'I^IBBAA(375,^PFSS;1^Q"
^DD(665.723191,100,3)="Enter the PFSS Account Reference number for this item."
^DD(665.723191,100,21,0)="^^2^2^3051220^^"
^DD(665.723191,100,21,1,0)="This is the account reference number associated with the prescription for "
^DD(665.723191,100,21,2,0)="this item."
^DD(665.723191,100,"DT")="3051220"
^DD(665.723191,101,0)="PFSS UNIQUE CHARGE ID^NJ8,0I^^PFSS;2^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(665.723191,101,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(665.723191,101,21,0)="^^1^1^3051220^^"
^DD(665.723191,101,21,1,0)="This is the unique charge ID associated with this item."
^DD(665.723191,101,"DT")="3051220"
^DD(665.723191,102,0)="REQUESTOR^P200'I^VA(200,^PFSS;3^Q"
^DD(665.723191,102,3)="Enter the person that initiated the consult for this item's prescription."
^DD(665.723191,102,21,0)="^^1^1^3051220^^"
^DD(665.723191,102,21,1,0)="This is the person that made the consult request for this item."
^DD(665.723191,102,"DT")="3051220"
^DD(665.723191,"B","BACK-PTR",12)=""
^DD(665.723191,"B","FCP",3)=""
^DD(665.723191,"B","HCPCS CODE",2)=""
^DD(665.723191,"B","HOME OXYGEN CONSERVING FLAG",18)=""
^DD(665.723191,"B","ICD9 CODE",9)=""
^DD(665.723191,"B","ITEM",.01)=""
^DD(665.723191,"B","ITEM TOTAL",6)=""
^DD(665.723191,"B","ITEM TYPE",13)=""
^DD(665.723191,"B","PFSS ACCOUNT REFERENCE",100)=""
^DD(665.723191,"B","PFSS UNIQUE CHARGE ID",101)=""
^DD(665.723191,"B","POSTED FLAG",8)=""
^DD(665.723191,"B","PRIMARY ITEM",1)=""
^DD(665.723191,"B","PROSTHETICS APPLIANCE REPAIR",15)=""
^DD(665.723191,"B","QUANTITY",7)=""
^DD(665.723191,"B","REMARKS",4)=""
^DD(665.723191,"B","RENTAL FLAG",17)=""
^DD(665.723191,"B","REQUESTOR",102)=""
^DD(665.723191,"B","SUSPENDED AMOUNT",10)=""
^DD(665.723191,"B","SUSPENDED QUANTITY",16)=""
^DD(665.723191,"B","SUSPENDED REASON",11)=""
^DD(665.723191,"B","UNIT COST",5)=""
^DD(665.723191,"B","UNIT OF ISSUE",14)=""
^DD(665.723191,"GL",0,1,.01)=""
^DD(665.723191,"GL",0,2,2)=""
^DD(665.723191,"GL",0,3,3)=""
^DD(665.723191,"GL",0,4,4)=""
^DD(665.723191,"GL",0,5,5)=""
^DD(665.723191,"GL",0,6,6)=""
^DD(665.723191,"GL",0,7,7)=""
^DD(665.723191,"GL",0,8,1)=""
^DD(665.723191,"GL",0,9,9)=""
^DD(665.723191,"GL",0,10,8)=""
^DD(665.723191,"GL",0,11,10)=""
^DD(665.723191,"GL",0,12,11)=""
^DD(665.723191,"GL",0,13,12)=""
^DD(665.723191,"GL",0,14,13)=""
^DD(665.723191,"GL",0,15,14)=""
^DD(665.723191,"GL",0,16,15)=""
^DD(665.723191,"GL",0,17,16)=""
^DD(665.723191,"GL",0,18,17)=""
^DD(665.723191,"GL",0,19,18)=""
^DD(665.723191,"GL","PFSS",1,100)=""
^DD(665.723191,"GL","PFSS",2,101)=""
^DD(665.723191,"GL","PFSS",3,102)=""
^DD(665.723191,"IX",.01)=""
^DD(665.723191,"IX",15)=""
^DD(665.723191,"RQ",.01)=""
^DD(665.723191,"RQ",2)=""
^DD(665.723191,"RQ",7)=""
^DD(665.7232,0)="FUND CONTROL POINT SUB-FIELD^^7^8"
^DD(665.7232,0,"DT")="2981130"
^DD(665.7232,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PRC(442,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(442,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(665.7232,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(665.7232,0,"IX","B",665.7232,.01)=""
^DD(665.7232,0,"IX","C",665.7232,2)=""
^DD(665.7232,0,"IX","D",665.7232,3)=""
^DD(665.7232,0,"NM","FUND CONTROL POINT")=""
^DD(665.7232,0,"UP")="665.723"
^DD(665.7232,.01,0)="FUND CONTROL POINT^F^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(665.7232,.01,1,0)="^.1"
^DD(665.7232,.01,1,1,0)="665.7232^B"
^DD(665.7232,.01,1,1,1)="S ^RMPO(665.72,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(665.7232,.01,1,1,2)="K ^RMPO(665.72,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(665.7232,.01,3)="Answer must be 1-20 characters IFCAP fund control point."
^DD(665.7232,.01,21,0)="^^2^2^2990317^"
^DD(665.7232,.01,21,1,0)="This field contains a free text entry of an IFCAP fund control point used"
^DD(665.7232,.01,21,2,0)="for budgeting and disbursement."
^DD(665.7232,.01,"DT")="2981127"
^DD(665.7232,1,0)="PAYMENT TYPE^S^1:1358;P:PURCHASE CARD;^0;2^Q"
^DD(665.7232,1,3)="Enter 1 for 1358 or P for Purchase Card."
^DD(665.7232,1,21,0)="^^2^2^2990317^"
^DD(665.7232,1,21,1,0)="This is the method of payment for the fund control point.  Payments for"
^DD(665.7232,1,21,2,0)="Home Oxygen are done by purchase cards or 1358 service orders."
^DD(665.7232,1,"DT")="2981127"
^DD(665.7232,2,0)="442 IEN^P442'^PRC(442,^0;3^Q"
^DD(665.7232,2,1,0)="^.1"
^DD(665.7232,2,1,1,0)="665.7232^C"
^DD(665.7232,2,1,1,1)="S ^RMPO(665.72,DA(2),1,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(665.7232,2,1,1,2)="K ^RMPO(665.72,DA(2),1,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(665.7232,2,1,1,"DT")="2990202"
^DD(665.7232,2,3)="Internal entry number of file 442."
^DD(665.7232,2,21,0)="^^2^2^2990115^"
^DD(665.7232,2,21,1,0)="The internal entry number for the 1358 service order or purchase card in"
^DD(665.7232,2,21,2,0)="the PROCUREMENT & ACCOUNTING TRANSACTIONS file (#442)"
^DD(665.7232,2,"DT")="2990202"
^DD(665.7232,3,0)="REFERENCE #^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(665.7232,3,1,0)="^.1"
^DD(665.7232,3,1,1,0)="665.7232^D"
^DD(665.7232,3,1,1,1)="S ^RMPO(665.72,DA(2),1,DA(1),2,""D"",$E(X,1,30),DA)="""""
^DD(665.7232,3,1,1,2)="K ^RMPO(665.72,DA(2),1,DA(1),2,""D"",$E(X,1,30),DA)"
^DD(665.7232,3,1,1,"DT")="2990202"
^DD(665.7232,3,3)="A 1-50 characters IFCAP reference number for payment."
^DD(665.7232,3,21,0)="^^1^1^2990115^"
^DD(665.7232,3,21,1,0)="A valid 1358 service order number or purchase order number."
^DD(665.7232,3,"DT")="2990202"
^DD(665.7232,4,0)="USER^P200'^VA(200,^0;5^Q"
^DD(665.7232,4,3)="User DUZ entering transaction."
^DD(665.7232,4,21,0)="^^1^1^2990115^"
^DD(665.7232,4,21,1,0)="The DUZ of the person entering the transaction."
^DD(665.7232,4,"DT")="2981127"
^DD(665.7232,5,0)="VENDOR^P440'^PRC(440,^0;6^Q"
^DD(665.7232,5,3)="Vendor responsible for billing."
^DD(665.7232,5,21,0)="^^1^1^2990317^^"
^DD(665.7232,5,21,1,0)="This is the IFCAP vendor for which posting will occur."
^DD(665.7232,5,"DT")="2981130"
^DD(665.7232,6,0)="TOTAL^NJ12,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(665.7232,6,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(665.7232,6,21,0)="^^1^1^2990115^"
^DD(665.7232,6,21,1,0)="Total amount posted to date for purchase card transactions."
^DD(665.7232,6,"DT")="2981130"
^DD(665.7232,7,0)="DATE CLOSED^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(665.7232,7,3)="Close out date of transaction."
^DD(665.7232,7,21,0)="^^1^1^2990317^"
^DD(665.7232,7,21,1,0)="This is the date the transaction was flagged as closed/signed off."
^DD(665.7232,7,"DT")="2981130"
^DD(665.7232,"B","442 IEN",2)=""
^DD(665.7232,"B","DATE CLOSED",7)=""
^DD(665.7232,"B","FUND CONTROL POINT",.01)=""
^DD(665.7232,"B","PAYMENT TYPE",1)=""
^DD(665.7232,"B","REFERENCE #",3)=""
^DD(665.7232,"B","TOTAL",6)=""
^DD(665.7232,"B","USER",4)=""
^DD(665.7232,"B","VENDOR",5)=""
^DD(665.7232,"GL",0,1,.01)=""
^DD(665.7232,"GL",0,2,1)=""
^DD(665.7232,"GL",0,3,2)=""
^DD(665.7232,"GL",0,4,3)=""
^DD(665.7232,"GL",0,5,4)=""
^DD(665.7232,"GL",0,6,5)=""
^DD(665.7232,"GL",0,7,6)=""
^DD(665.7232,"GL",0,8,7)=""
^DD(665.7232,"IX",.01)=""
^DD(665.7232,"IX",2)=""
^DD(665.7232,"IX",3)=""
^DD(667,0)="FIELD^^11^15"
^DD(667,0,"DDA")="N"
^DD(667,0,"DT")="2921003"
^DD(667,0,"IX","AD",667,2)=""
^DD(667,0,"IX","B",667,.01)=""
^DD(667,0,"IX","C",667,1)=""
^DD(667,0,"NM","VEHICLE OF RECORD")=""
^DD(667,0,"PT",667.3,1)=""
^DD(667,0,"VR")="3.0"
^DD(667,.01,0)="VEHICLE ID#^RF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(667,.01,1,0)="^.1"
^DD(667,.01,1,1,0)="667^B"
^DD(667,.01,1,1,1)="S ^RMPR(667,""B"",$E(X,1,30),DA)="""""
^DD(667,.01,1,1,2)="K ^RMPR(667,""B"",$E(X,1,30),DA)"
^DD(667,.01,3)="Answer must be 3-40 characters in length."
^DD(667,.01,21,0)="^^2^2^2911206^^"
^DD(667,.01,21,1,0)="This is the Identification Number on the vehicle of record, this is a"
^DD(667,.01,21,2,0)="Unique Key."
^DD(667,.01,"DT")="2911115"
^DD(667,1,0)="PATIENT NAME^P665^RMPR(665,^0;2^Q"
^DD(667,1,1,0)="^.1^^-1"
^DD(667,1,1,1,0)="667^C"
^DD(667,1,1,1,1)="S ^RMPR(667,""C"",$E(X,1,30),DA)="""""
^DD(667,1,1,1,2)="K ^RMPR(667,""C"",$E(X,1,30),DA)"
^DD(667,1,1,1,"%D",0)="^^1^1^2930306^"
^DD(667,1,1,1,"%D",1,0)="Allows sorting and lookups by the Patient IEN."
^DD(667,1,1,1,"DT")="2911114"
^DD(667,1,3)="Please Enter the Patient's name."
^DD(667,1,21,0)="^^2^2^2911206^^"
^DD(667,1,21,1,0)="This field is a pointer to the Prosthetics Patient File and is an internal"
^DD(667,1,21,2,0)="entry number."
^DD(667,1,"DT")="2920202"
^DD(667,2,0)="VAF21-4502 DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(667,2,1,0)="^.1"
^DD(667,2,1,1,0)="667^AD^MUMPS"
^DD(667,2,1,1,1)="I $D(^RMPR(667,DA)) S ZZ=$P(^RMPR(667,DA,0),U,2) I ZZ S ^RMPR(667,""AD"",ZZ,X,DA)="""" K ZZ"
^DD(667,2,1,1,2)="I $D(^RMPR(667,DA)) S ZZ=$P(^RMPR(667,DA,0),U,2) I ZZ K ^RMPR(667,""AD"",ZZ,X,DA),ZZ"
^DD(667,2,1,1,"%D",0)="^^1^1^2930306^^"
^DD(667,2,1,1,"%D",1,0)="Allows lookup of 4502 date that the Veteran was determinded for eligibility."
^DD(667,2,1,1,"DT")="2930306"
^DD(667,2,3)="Please Enter the VAF21-4502 Date for this entry."
^DD(667,2,21,0)="^^2^2^2911206^^"
^DD(667,2,21,1,0)="The initial date that a veteran is issued the authority to purchase"
^DD(667,2,21,2,0)="a Vehicle of record."
^DD(667,2,"DT")="2930306"
^DD(667,2.1,0)="ANKYLOSIS OR VOC REHAB^S^A:ANKYLOSIS;V:VOC REHAB;^0;9^Q"
^DD(667,2.1,3)="Enter the proper code for this vehicle action."
^DD(667,2.1,21,0)="^^1^1^2930306^^^^"
^DD(667,2.1,21,1,0)="Contains set of codes for Ankylosis and Voc Rehab."
^DD(667,2.1,"DT")="2930423"
^DD(667,2.2,0)="TYPE OF TRANSACTION^RS^I:INITIAL ISSUE;R:REPLACE;S:SPARE;X:REPAIR;^2;2^Q"
^DD(667,2.2,3)="Enter `I` for Initial Issue, `R` for Replace, `S` for Spare, `X` for Repair."
^DD(667,2.2,21,0)="^^1^1^2911206^^"
^DD(667,2.2,21,1,0)="Explains what type of transaction is on this Vehicle of Records."
^DD(667,2.2,"DT")="2911116"
^DD(667,2.3,0)="PATIENT CATEGORY^RS^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^2;3^Q"
^DD(667,2.3,3)="Enter `1` for SC/OP, `2` for SC/IP, `3` for NSC/IP, `4` for NSC/OP"
^DD(667,2.3,21,0)="^^1^1^2911206^"
^DD(667,2.3,21,1,0)="This field stores the patient category for this vehicle transaction."
^DD(667,2.3,"DT")="2911116"
^DD(667,2.4,0)="SPECIAL CATEGORY^S^1:SPECIAL LEGISLATION;2:A&A;3:PHC;^2;4^Q"
^DD(667,2.4,3)="Please enter the Special Legislation for this Patient"
^DD(667,2.4,21,0)="^^2^2^2911206^"
^DD(667,2.4,21,1,0)="This field stores the patient's special category if applicable for this"
^DD(667,2.4,21,2,0)="vehicle transaction."
^DD(667,2.4,"DT")="2911116"
^DD(667,3,0)="DATE PURCHASED^RD^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(667,3,3)="Please Enter the Date that the Vehicle was purchased."
^DD(667,3,21,0)="^^1^1^2920401^^^"
^DD(667,3,21,1,0)="This is the date that the Vehicle was purchased."
^DD(667,3,"DT")="2911116"
^DD(667,4,0)="YEAR^RNJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(667,4,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(667,4,21,0)="^^1^1^2911206^^^"
^DD(667,4,21,1,0)="This is the model year of the vehicle."
^DD(667,4,"DT")="2920202"
^DD(667,5,0)="MAKE^RP667.2^RMPR(667.2,^0;6^Q"
^DD(667,5,3)="Please Enter the Vehicle Manufacturer."
^DD(667,5,21,0)="^^1^1^2920401^^^^"
^DD(667,5,21,1,0)="The make of the Vehicle purchased."
^DD(667,5,"DT")="2911116"
^DD(667,6,0)="MODEL^RF^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(667,6,3)="Answer must be 3-30 characters in length."
^DD(667,6,21,0)="^^1^1^2911206^^"
^DD(667,6,21,1,0)="The model of the Vehicle that was purchased."
^DD(667,6,"DT")="2911116"
^DD(667,7,0)="DATE PROCESSED^RD^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(667,7,3)="Answer must be a valid date.  Date cannot be greater than the Date of Purchase."
^DD(667,7,21,0)="^^1^1^2911206^^"
^DD(667,7,21,1,0)="The date that this transaction is being processed."
^DD(667,7,"DT")="2911115"
^DD(667,9,0)="EXCEPTION FLAG^S^1:ACTIVE;0:INACTIVE;^2;1^Q"
^DD(667,9,3)="Enter `1` for Active or `0` for Inactive."
^DD(667,9,21,0)="^^1^1^2911206^^"
^DD(667,9,21,1,0)="This shows that the Vehicle of Record is active or inactive."
^DD(667,9,"DT")="2911116"
^DD(667,10,0)="EXCEPTION RULE COMMENTS^667.01^^1;0"
^DD(667,10,21,0)="^^1^1^2911206^"
^DD(667,10,21,1,0)="This is the general description of the vehicle purchased."
^DD(667,10,"DT")="2911219"
^DD(667,11,0)="STATION NAME^RP4'^DIC(4,^0;10^Q"
^DD(667,11,3)="Enter the Station Name or Station Prefix."
^DD(667,11,21,0)="^^1^1^2930104^"
^DD(667,11,21,1,0)="Pointer to the institution file."
^DD(667,11,"DT")="2920818"
^DD(667,"B","ANKYLOSIS OR VOC REHAB",2.1)=""
^DD(667,"B","DATE PROCESSED",7)=""
^DD(667,"B","DATE PURCHASED",3)=""
^DD(667,"B","EXCEPTION FLAG",9)=""
^DD(667,"B","EXCEPTION RULE COMMENTS",10)=""
^DD(667,"B","MAKE",5)=""
^DD(667,"B","MODEL",6)=""
^DD(667,"B","PATIENT CATEGORY",2.3)=""
^DD(667,"B","PATIENT NAME",1)=""
^DD(667,"B","SPECIAL CATEGORY",2.4)=""
^DD(667,"B","STATION NAME",11)=""
^DD(667,"B","TYPE OF TRANSACTION",2.2)=""
^DD(667,"B","VAF21-4502 DATE",2)=""
^DD(667,"B","VEHICLE ID#",.01)=""
^DD(667,"B","YEAR",4)=""
^DD(667,"GL",0,1,.01)=""
^DD(667,"GL",0,2,1)=""
^DD(667,"GL",0,3,2)=""
^DD(667,"GL",0,4,3)=""
^DD(667,"GL",0,5,4)=""
^DD(667,"GL",0,6,5)=""
^DD(667,"GL",0,7,6)=""
^DD(667,"GL",0,8,7)=""
^DD(667,"GL",0,9,2.1)=""
^DD(667,"GL",0,10,11)=""
^DD(667,"GL",1,0,10)=""
^DD(667,"GL",2,1,9)=""
^DD(667,"GL",2,2,2.2)=""
^DD(667,"GL",2,3,2.3)=""
^DD(667,"GL",2,4,2.4)=""
^DD(667,"IX",.01)=""
^DD(667,"IX",1)=""
^DD(667,"IX",2)=""
^DD(667,"RQ",.01)=""
^DD(667,"RQ",2.2)=""
^DD(667,"RQ",2.3)=""
^DD(667,"RQ",3)=""
^DD(667,"RQ",4)=""
^DD(667,"RQ",5)=""
^DD(667,"RQ",6)=""
^DD(667,"RQ",7)=""
^DD(667,"RQ",11)=""
^DD(667,"SB",667.01,10)=""
^DD(667.01,0)="EXCEPTION RULE COMMENTS SUB-FIELD^^.01^1"
^DD(667.01,0,"DT")="2911119"
^DD(667.01,0,"NM","EXCEPTION RULE COMMENTS")=""
^DD(667.01,0,"UP")="667"
^DD(667.01,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(667.01,.01,3)="Enter the description of the vehicle purchased."
^DD(667.01,.01,21,0)="^^1^1^2911209^^"
^DD(667.01,.01,21,1,0)="This is the general description of the vehicle purchased."
^DD(667.01,.01,"DT")="2911119"
^DD(667.01,"B","DESCRIPTION",.01)=""
^DD(667.01,"GL",0,1,.01)=""
^DD(667.1,0)="FIELD^^.01^1"
^DD(667.1,0,"DDA")="N"
^DD(667.1,0,"DT")="2920225"
^DD(667.1,0,"IX","B",667.1,.01)=""
^DD(667.1,0,"NM","PROS AUTO-ADAPTIVE EQUIP")=""
^DD(667.1,0,"PT",660.1,23)=""
^DD(667.1,0,"PT",660.2,23)=""
^DD(667.1,0,"PT",667.3,2)=""
^DD(667.1,0,"VR")="3.0"
^DD(667.1,.01,0)="NAME^RF^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(667.1,.01,1,0)="^.1"
^DD(667.1,.01,1,1,0)="667.1^B"
^DD(667.1,.01,1,1,1)="S ^RMPR(667.1,""B"",$E(X,1,30),DA)="""""
^DD(667.1,.01,1,1,2)="K ^RMPR(667.1,""B"",$E(X,1,30),DA)"
^DD(667.1,.01,3)="Answer must be 3-70 characters in length."
^DD(667.1,.01,21,0)="^^1^1^2911206^^"
^DD(667.1,.01,21,1,0)="The Item for Auto Adaptive equipment."
^DD(667.1,.01,"DT")="2920225"
^DD(667.1,"B","NAME",.01)=""
^DD(667.1,"GL",0,1,.01)=""
^DD(667.1,"IX",.01)=""
^DD(667.1,"RQ",.01)=""
^DD(667.2,0)="FIELD^^.01^1"
^DD(667.2,0,"DDA")="N"
^DD(667.2,0,"DT")="2911116"
^DD(667.2,0,"IX","B",667.2,.01)=""
^DD(667.2,0,"NM","AUTO-ADAPTIVE MANUFACTURER")=""
^DD(667.2,0,"PT",667,5)=""
^DD(667.2,0,"VR")="3.0"
^DD(667.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(667.2,.01,1,0)="^.1"
^DD(667.2,.01,1,1,0)="667.2^B"
^DD(667.2,.01,1,1,1)="S ^RMPR(667.2,""B"",$E(X,1,30),DA)="""""
^DD(667.2,.01,1,1,2)="K ^RMPR(667.2,""B"",$E(X,1,30),DA)"
^DD(667.2,.01,3)="Answer must be 3-30 characters in length."
^DD(667.2,.01,21,0)="^^1^1^2920508^^^^"
^DD(667.2,.01,21,1,0)="The manufacturer of the Vehicle."
^DD(667.2,.01,"DT")="2911116"
^DD(667.2,"B","NAME",.01)=""
^DD(667.2,"GL",0,1,.01)=""
^DD(667.2,"IX",.01)=""
^DD(667.2,"RQ",.01)=""
^DD(667.3,0)="FIELD^^14^16"
^DD(667.3,0,"DDA")="N"
^DD(667.3,0,"DT")="2930529"
^DD(667.3,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RMPR(667.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(667.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(667.3,0,"IX","AD",667.3,2)=""
^DD(667.3,0,"IX","B",667.3,.01)=""
^DD(667.3,0,"IX","C",667.3,1)=""
^DD(667.3,0,"NM","V.O.R. TRANSACTION")=""
^DD(667.3,0,"PT",660.1,24)=""
^DD(667.3,0,"PT",660.2,24)=""
^DD(667.3,0,"VR")="3.0"
^DD(667.3,.01,0)="DATE PROCESSED^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1!($P(X,""."")>DT) X"
^DD(667.3,.01,1,0)="^.1"
^DD(667.3,.01,1,1,0)="667.3^B"
^DD(667.3,.01,1,1,1)="S ^RMPR(667.3,""B"",$E(X,1,30),DA)="""""
^DD(667.3,.01,1,1,2)="K ^RMPR(667.3,""B"",$E(X,1,30),DA)"
^DD(667.3,.01,3)="Answer must be a valid date.  Future Dates are not allowed."
^DD(667.3,.01,21,0)="^^1^1^2911206^^"
^DD(667.3,.01,21,1,0)="The date that the item or repair was processed."
^DD(667.3,.01,"DT")="2930603"
^DD(667.3,1,0)="VEHICLE ID#^P667'^RMPR(667,^0;2^Q"
^DD(667.3,1,1,0)="^.1"
^DD(667.3,1,1,1,0)="667.3^C"
^DD(667.3,1,1,1,1)="S ^RMPR(667.3,""C"",$E(X,1,30),DA)="""""
^DD(667.3,1,1,1,2)="K ^RMPR(667.3,""C"",$E(X,1,30),DA)"
^DD(667.3,1,1,1,"%D",0)="^^1^1^2930306^"
^DD(667.3,1,1,1,"%D",1,0)="Allows lookups of transactions by Vehcile ID# IEN."
^DD(667.3,1,1,1,"DT")="2911116"
^DD(667.3,1,3)="Please enter the Identification Number of the Vehicle."
^DD(667.3,1,21,0)="^^2^2^2920223^^^"
^DD(667.3,1,21,1,0)="The Identification number of the Vehicle of Records.  This points to file"
^DD(667.3,1,21,2,0)="667 and is an internal entry number."
^DD(667.3,1,"DT")="2920202"
^DD(667.3,2,0)="ITEM^RP667.1^RMPR(667.1,^0;3^Q"
^DD(667.3,2,1,0)="^.1^^-1"
^DD(667.3,2,1,2,0)="667.3^AD^MUMPS"
^DD(667.3,2,1,2,1)="S ZZ=$P(^RMPR(667.3,DA,0),U,2) S:ZZ ^RMPR(667.3,""AD"",ZZ,X,DA)="""" K ZZ"
^DD(667.3,2,1,2,2)="S ZZ=$P(^RMPR(667.3,DA,0),U,2) K:ZZ ^RMPR(667.3,""AD"",ZZ,X,DA) K ZZ"
^DD(667.3,2,1,2,"%D",0)="^^1^1^2930306^"
^DD(667.3,2,1,2,"%D",1,0)="Allows lookups to find all items associated with the Vehicle ID# IEN."
^DD(667.3,2,1,2,"DT")="2911117"
^DD(667.3,2,3)="Please enter the Auto Adaptive Equipment Item."
^DD(667.3,2,21,0)="^^1^1^2920401^^^"
^DD(667.3,2,21,1,0)="The name of the item that will be on the Vehicle of Records."
^DD(667.3,2,"DT")="2920218"
^DD(667.3,2.5,0)="QTY^RNJ6,0^^0;7^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(667.3,2.5,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(667.3,2.5,21,0)="^^1^1^2930306^"
^DD(667.3,2.5,21,1,0)="Contains the quantity of items purchased."
^DD(667.3,2.5,"DT")="2920213"
^DD(667.3,3,0)="COST^RNJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(667.3,3,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(667.3,3,21,0)="^^1^1^2920401^^^"
^DD(667.3,3,21,1,0)="The cost of the item."
^DD(667.3,3,"DT")="2911116"
^DD(667.3,4,0)="AMIS CODE^RS^21B:A;21A:V;R16:R;^0;5^Q"
^DD(667.3,4,3)="Enter A for New Items, V for Van Mods, R for Repair"
^DD(667.3,4,21,0)="^^1^1^2920225^^^^"
^DD(667.3,4,21,1,0)="This field contains the AMIS code for the transaction."
^DD(667.3,4,"DT")="2920225"
^DD(667.3,5,0)="DESCRIPTION^667.35^^1;0"
^DD(667.3,5,21,0)="^^1^1^2911206^"
^DD(667.3,5,21,1,0)="This field contains the description of the vehicle transaction."
^DD(667.3,6,0)="SERIAL NUMBER^F^^0;6^K:$L(X)>50!($L(X)<3) X"
^DD(667.3,6,3)="Answer must be 3-50 characters in length."
^DD(667.3,6,21,0)="^^2^2^2911219^^^"
^DD(667.3,6,21,1,0)="This field contains the serial number of the item being purchased"
^DD(667.3,6,21,2,0)="or repaired."
^DD(667.3,6,"DT")="2911118"
^DD(667.3,7,0)="AMIS^NJ17,0I^^3;1^K:+X'=X!(X>99999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(667.3,7,3)="Type a Number between 0 and 99999999999999999, 0 Decimal Digits"
^DD(667.3,7,21,0)="^^1^1^2920508^^^^"
^DD(667.3,7,21,1,0)="This field contains the grouper number stored in the Site Parameters file 669.9 and should not be edited."
^DD(667.3,7,"DT")="2930306"
^DD(667.3,8,0)="TYPE OF TRANSACTION^RS^I:INITIAL ISSUE;R:REPLACE;S:SPARE;X:REPAIR;^0;8^Q"
^DD(667.3,8,3)="Enter the Correct Transaction type for this entry."
^DD(667.3,8,21,0)="^^1^1^2930306^"
^DD(667.3,8,21,1,0)="Set of Codes for type of transaction processed."
^DD(667.3,8,"DT")="2920316"
^DD(667.3,9,0)="PATIENT CATEGORY^RS^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^0;9^Q"
^DD(667.3,9,3)="Enter the correct Category for the transaction."
^DD(667.3,9,21,0)="^^1^1^2930519^"
^DD(667.3,9,21,1,0)="This field stores the patient category for this V.O.R. transaction."
^DD(667.3,9,"DT")="2920316"
^DD(667.3,10,0)="SPECIAL CATEGORY^S^1:SPECIAL LEGISLATION;2:A&A;3:PHC;^0;10^Q"
^DD(667.3,10,3)="Enter the correct Special Category for this Transaction."
^DD(667.3,10,21,0)="^^2^2^2930519^"
^DD(667.3,10,21,1,0)="This field stores the patient's special category for this V.O.R."
^DD(667.3,10,21,2,0)="transaction."
^DD(667.3,10,"DT")="2920316"
^DD(667.3,11,0)="SOURCE^RS^V:VA;C:COMMERCIAL;^0;11^Q"
^DD(667.3,11,3)="Enter 'VA' for (PDC) VA or 'C' for Commercial."
^DD(667.3,11,21,0)="^^1^1^2930306^"
^DD(667.3,11,21,1,0)="Set of codes for the source of the item either Commercial or VA."
^DD(667.3,11,"DT")="2920316"
^DD(667.3,12,0)="STATION NAME^P4'^DIC(4,^2;1^Q"
^DD(667.3,12,3)="Enter the Station name or Number from the Institution File"
^DD(667.3,12,21,0)="^^2^2^2920903^"
^DD(667.3,12,21,1,0)="This field is a pointer to the Insitution file.  If the data base is "
^DD(667.3,12,21,2,0)="Multi Divisional entries are screened out by the station number."
^DD(667.3,12,"DT")="2920811"
^DD(667.3,13,0)="USER^P200'^VA(200,^2;2^Q"
^DD(667.3,13,3)="Enter the User Name."
^DD(667.3,13,21,0)="^^1^1^2930306^"
^DD(667.3,13,21,1,0)="Person who entered the transaction."
^DD(667.3,13,"DT")="2920807"
^DD(667.3,14,0)="RETURN DATE^D^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(667.3,14,3)="Enter the date the Auto-Adaptive equipment was returned."
^DD(667.3,14,21,0)="^^2^2^2930529^"
^DD(667.3,14,21,1,0)="Contains the date that the item was retunred thru the Flag Item a Returned"
^DD(667.3,14,21,2,0)="/Condemned option."
^DD(667.3,14,"DT")="2930529"
^DD(667.3,"B","AMIS",7)=""
^DD(667.3,"B","AMIS CODE",4)=""
^DD(667.3,"B","COST",3)=""
^DD(667.3,"B","DATE PROCESSED",.01)=""
^DD(667.3,"B","DESCRIPTION",5)=""
^DD(667.3,"B","ITEM",2)=""
^DD(667.3,"B","PATIENT CATEGORY",9)=""
^DD(667.3,"B","QTY",2.5)=""
^DD(667.3,"B","RETURN DATE",14)=""
^DD(667.3,"B","SERIAL NUMBER",6)=""
^DD(667.3,"B","SOURCE",11)=""
^DD(667.3,"B","SPECIAL CATEGORY",10)=""
^DD(667.3,"B","STATION NAME",12)=""
^DD(667.3,"B","TYPE OF TRANSACTION",8)=""
^DD(667.3,"B","USER",13)=""
^DD(667.3,"B","VEHICLE ID#",1)=""
^DD(667.3,"GL",0,1,.01)=""
^DD(667.3,"GL",0,2,1)=""
^DD(667.3,"GL",0,3,2)=""
^DD(667.3,"GL",0,4,3)=""
^DD(667.3,"GL",0,5,4)=""
^DD(667.3,"GL",0,6,6)=""
^DD(667.3,"GL",0,7,2.5)=""
^DD(667.3,"GL",0,8,8)=""
^DD(667.3,"GL",0,9,9)=""
^DD(667.3,"GL",0,10,10)=""
^DD(667.3,"GL",0,11,11)=""
^DD(667.3,"GL",0,12,14)=""
^DD(667.3,"GL",1,0,5)=""
^DD(667.3,"GL",2,1,12)=""
^DD(667.3,"GL",2,2,13)=""
^DD(667.3,"GL",3,1,7)=""
^DD(667.3,"IX",.01)=""
^DD(667.3,"IX",1)=""
^DD(667.3,"IX",2)=""
^DD(667.3,"RQ",.01)=""
^DD(667.3,"RQ",2)=""
^DD(667.3,"RQ",2.5)=""
^DD(667.3,"RQ",3)=""
^DD(667.3,"RQ",4)=""
^DD(667.3,"RQ",8)=""
^DD(667.3,"RQ",9)=""
^DD(667.3,"RQ",11)=""
^DD(667.3,"SB",667.35,5)=""
^DD(667.35,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(667.35,0,"DT")="2911116"
^DD(667.35,0,"NM","DESCRIPTION")=""
^DD(667.35,0,"UP")="667.3"
^DD(667.35,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(667.35,.01,3)="Enter the description of this vehicle transaction."
^DD(667.35,.01,21,0)="^^1^1^2911206^^"
^DD(667.35,.01,21,1,0)="This field contains the description of the vehicle transaction."
^DD(667.35,.01,"DT")="2911116"
^DD(667.35,"B","DESCRIPTION",.01)=""
^DD(667.35,"GL",0,1,.01)=""
^DD(668,0)="FIELD^^33.7^63"
^DD(668,0,"DDA")="N"
^DD(668,0,"DT")="3010817"
^DD(668,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(668,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(668,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(668,0,"IX","B",668,.01)=""
^DD(668,0,"IX","C",668,1)=""
^DD(668,0,"IX","CD",668,5)=""
^DD(668,0,"IX","D",668,20)=""
^DD(668,0,"IX","E",668,14)=""
^DD(668,0,"IX","F",668.81,.01)=""
^DD(668,0,"IX","G",668.82,.01)=""
^DD(668,0,"IX","I",668,14)=""
^DD(668,0,"IX","L",668,14)=""
^DD(668,0,"IX","L1",668,14)=""
^DD(668,0,"NM","PROSTHETIC SUSPENSE")=""
^DD(668,0,"PT",664.1,.05)=""
^DD(668,0,"VR")="3.0"
^DD(668,0,"VRPK")="RMPR"
^DD(668,.01,0)="SUSPENSE DATE^RDX^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(668,.01,1,0)="^.1"
^DD(668,.01,1,1,0)="668^B"
^DD(668,.01,1,1,1)="S ^RMPR(668,""B"",$E(X,1,30),DA)="""""
^DD(668,.01,1,1,2)="K ^RMPR(668,""B"",$E(X,1,30),DA)"
^DD(668,.01,3)="Enter date and time as mmddyy@hhmm when this entry is added."
^DD(668,.01,21,0)="^.001^1^1^3000803^^^"
^DD(668,.01,21,1,0)="Date that the Suspense entry was entered."
^DD(668,.01,23,0)="^.001^1^1^3000803^^"
^DD(668,.01,23,1,0)=" "
^DD(668,.01,"DT")="3001212"
^DD(668,1,0)="VETERAN^P2'^DPT(^0;2^Q"
^DD(668,1,1,0)="^.1"
^DD(668,1,1,1,0)="668^C"
^DD(668,1,1,1,1)="S ^RMPR(668,""C"",$E(X,1,30),DA)="""""
^DD(668,1,1,1,2)="K ^RMPR(668,""C"",$E(X,1,30),DA)"
^DD(668,1,1,1,"%D",0)="^^2^2^2960129^"
^DD(668,1,1,1,"%D",1,0)="Cross refference to allow looking up by patient name."
^DD(668,1,1,1,"%D",2,0)="e"
^DD(668,1,1,1,"DT")="2910513"
^DD(668,1,3)="Please Enter The Name of the Veteran"
^DD(668,1,21,0)="^^2^2^2930306^"
^DD(668,1,21,1,0)="Pointer to the Patient file.  MAS Patients may not become Prosthetic "
^DD(668,1,21,2,0)="Patients while their eligility is being determined."
^DD(668,1,"DT")="2920407"
^DD(668,1.5,0)="PROVISIONAL DIAGNOSIS^F^^8;2^K:$L(X)>50!($L(X)<1) X"
^DD(668,1.5,3)="Answer must be 1-50 characters in length."
^DD(668,1.5,21,0)="^.001^1^1^3030915^^"
^DD(668,1.5,21,1,0)="CPRS Provisional Diagnosis at the time the Consult was created."
^DD(668,1.5,23,0)="^^1^1^3030915^"
^DD(668,1.5,23,1,0)=" "
^DD(668,1.5,"DT")="3030915"
^DD(668,1.6,0)="ICD9^P80'^ICD9(^8;3^Q"
^DD(668,1.6,21,0)="^^1^1^3000301^"
^DD(668,1.6,21,1,0)="CPRS ICD9 Code at the time the Consult was entered."
^DD(668,1.6,"DT")="3000301"
^DD(668,2,0)="STATION^P4'^DIC(4,^0;7^Q"
^DD(668,2,3)="Enter the Station Number of the patient."
^DD(668,2,21,0)="^^1^1^2921217^"
^DD(668,2,21,1,0)="This field stores the station number of the patient."
^DD(668,2,"DT")="2921217"
^DD(668,2.1,0)="REQUESTING FACILITY^P4'^DIC(4,^8;1^Q"
^DD(668,2.1,21,0)="^^1^1^3000301^"
^DD(668,2.1,21,1,0)="CPRS Requesting Facility, local facility only from Consult Tracking."
^DD(668,2.1,"DT")="3000301"
^DD(668,2.3,0)="URGENCY^F^^8;5^K:$L(X)>20!($L(X)<3) X"
^DD(668,2.3,3)="Answer must be 3-20 characters in length."
^DD(668,2.3,21,0)="^.001^1^1^3000703^^"
^DD(668,2.3,21,1,0)="From CPRS, the urgency the user defined at the time the Consult was created."
^DD(668,2.3,"DT")="3000301"
^DD(668,3,0)="SUSPENSE FORM^RS^1:PSC;2:2421;3:2237;4:2529-3;5:2529-7;6:2474;7:2431;8:2914;9:OTHER;10:2520;11:STOCK ISSUE;^0;3^Q"
^DD(668,3,21,0)="^^2^2^2930306^"
^DD(668,3,21,1,0)="Type of form for the transaction that is being tracked by the Suspense"
^DD(668,3,21,2,0)="Module."
^DD(668,3,"DT")="2910320"
^DD(668,4,0)="DESCRIPTION OF ITEM/SERVICES^668.04R^^2;0"
^DD(668,4,21,0)="^.001^2^2^3001017^^^^"
^DD(668,4,21,1,0)="This Field will contain the Description of the Item on suspense and"
^DD(668,4,21,2,0)="Service rendered to the Veteran."
^DD(668,5,0)="COMPLETION DATE^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(668,5,1,0)="^.1"
^DD(668,5,1,1,0)="^^TRIGGER^668^6"
^DD(668,5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(668,5,1,1,1.4)"
^DD(668,5,1,1,1.4)="S DIH=$S($D(^RMPR(668,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=668,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(668,5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMPR(668,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" S DIH=$S($D(^RMPR(668,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=668,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(668,5,1,1,"%D",0)="^^1^1^2960129^"
^DD(668,5,1,1,"%D",1,0)="Triggers completed by field."
^DD(668,5,1,1,"CREATE VALUE")="S X=DUZ"
^DD(668,5,1,1,"DELETE VALUE")="@"
^DD(668,5,1,1,"FIELD")="COMPLETED BY"
^DD(668,5,1,2,0)="668^CD^MUMPS"
^DD(668,5,1,2,1)="D EN02^RMPR9X"
^DD(668,5,1,2,2)="D KILL02^RMPR9X"
^DD(668,5,1,2,"%D",0)="^^2^2^3030514^"
^DD(668,5,1,2,"%D",1,0)="This will create a cross reference to be used with the Delayed Order"
^DD(668,5,1,2,"%D",2,0)="Report.  Completeion Date and Number of Processing Days."
^DD(668,5,1,2,"DT")="3030514"
^DD(668,5,3)="MUST NOT BE LESS THAN BEGINNING SUSPENSE DATE"
^DD(668,5,21,0)="^^1^1^3000821^"
^DD(668,5,21,1,0)="This is the date and time of the completion note."
^DD(668,5,"DT")="3030514"
^DD(668,6,0)="COMPLETED BY^P200'^VA(200,^0;6^Q"
^DD(668,6,5,1,0)="668^5^1"
^DD(668,6,21,0)="^^1^1^2910320^"
^DD(668,6,21,1,0)="This is the person who dispositioned this transaction."
^DD(668,6,"DT")="2910320"
^DD(668,7,0)="INITIAL ACTION NOTE^668.07^^3;0"
^DD(668,7,21,0)="^.001^2^2^3000728^^^^"
^DD(668,7,21,1,0)="A word-processing field storing the action taken on a suspense"
^DD(668,7,21,2,0)="with the initial action to remove from the delayed order report."
^DD(668,7,23,0)="^.001^3^3^3000728^^^"
^DD(668,7,23,1,0)="This field has changed from the action taken to the initial action taken."
^DD(668,7,23,2,0)="This used to be the only action taken, the action taken at the time a"
^DD(668,7,23,3,0)="suspense is completed."
^DD(668,7,"DT")="3000126"
^DD(668,8,0)="SUSPENDED BY^P200'^VA(200,^0;4^Q"
^DD(668,8,3)="Enter the name of the employee to suspended the action"
^DD(668,8,21,0)="^^1^1^2930306^"
^DD(668,8,21,1,0)="Person who created the suspense entry."
^DD(668,8,"DT")="2920622"
^DD(668,8.1,0)="PATIENT 2319^668.81PA^^10;0"
^DD(668,8.2,0)="AMIS GROUPER^668.82A^^11;0"
^DD(668,9,0)="TYPE OF REQUEST^S^1:ROUTINE PROSTHETICS;2:EYEGLASS;3:CONTACT LENS;4:OXYGEN;5:MANUAL  NON CPRS;6:CLOTHING ALLOWANCE;7:CLONE;8:AUTO ADAPTIVE;9:PROSTHETICS IFC;10:DISCONTINUED;11:LAB;^0;8^Q"
^DD(668,9,21,0)="^.001^2^2^3060928^^^^"
^DD(668,9,21,1,0)="This is the type of order from CPRS Consult Tracking Module, or VBA.  It also"
^DD(668,9,21,2,0)="records MANUAL for paper orders received."
^DD(668,9,"DT")="3060131"
^DD(668,10,0)="INITIAL ACTION DATE^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(668,10,21,0)="^^1^1^3000126^"
^DD(668,10,21,1,0)="This is the date and time the first action on a suspense was taken."
^DD(668,10,"DT")="3000126"
^DD(668,11,0)="ACTION DATE^668.011DA^^1;0"
^DD(668,11,21,0)="^^1^1^3000728^"
^DD(668,11,21,1,0)="This is the date an Other Action Note was created."
^DD(668,12,0)="COMPLETION NOTE^668.012^^4;0"
^DD(668,12,21,0)="^^1^1^3000821^"
^DD(668,12,21,1,0)="This is the note for the completion comments."
^DD(668,13,0)="REQUESTOR^P200'^VA(200,^0;11^Q"
^DD(668,13,21,0)="^^1^1^3000728^"
^DD(668,13,21,1,0)="This is the person who requested the order, or submitted the order."
^DD(668,13,"DT")="3000203"
^DD(668,14,0)="STATUS^S^O:OPEN;P:PENDING;C:CLOSED;X:CANCELLED;^0;10^Q"
^DD(668,14,1,0)="^.1"
^DD(668,14,1,1,0)="668^E"
^DD(668,14,1,1,1)="S ^RMPR(668,""E"",$E(X,1,30),DA)="""""
^DD(668,14,1,1,2)="K ^RMPR(668,""E"",$E(X,1,30),DA)"
^DD(668,14,1,1,"DT")="3000725"
^DD(668,14,1,2,0)="668^I^MUMPS"
^DD(668,14,1,2,1)="D EN^RMPR9X"
^DD(668,14,1,2,2)="D KILL^RMPR9X"
^DD(668,14,1,2,"%D",0)="^^2^2^3021212^"
^DD(668,14,1,2,"%D",1,0)="Sort and filter on last 2 numbers of the Patients SSN number for Open or "
^DD(668,14,1,2,"%D",2,0)="Pending Orders Only."
^DD(668,14,1,2,"DT")="3021212"
^DD(668,14,1,3,0)="668^L^MUMPS"
^DD(668,14,1,3,1)="D EN0^RMPR9X"
^DD(668,14,1,3,2)="D KILL0^RMPR9X"
^DD(668,14,1,3,"%D",0)="^^2^2^3030305^"
^DD(668,14,1,3,"%D",1,0)="This cross refernce is used for the Delayed Order Report GUI Grid."
^DD(668,14,1,3,"%D",2,0)="It is the last 2 of SSN, the Create Date with no Time, and the Status."
^DD(668,14,1,3,"DT")="3030305"
^DD(668,14,1,4,0)="668^L1^MUMPS"
^DD(668,14,1,4,1)="D EN01^RMPR9X"
^DD(668,14,1,4,2)="D KILL01^RMPR9X"
^DD(668,14,1,4,"%D",0)="^^2^2^3030305^"
^DD(668,14,1,4,"%D",1,0)="This is for the Delayed Order Report, GUI Grid."
^DD(668,14,1,4,"%D",2,0)="It is the last 2 of patient SSN, Status and ien."
^DD(668,14,1,4,"DT")="3030305"
^DD(668,14,21,0)="^.001^1^1^3030310^^^^"
^DD(668,14,21,1,0)="This is the current status, Open, Pending, Closed, or Cancelled."
^DD(668,14,23,0)="^.001^1^1^3030310^^^^"
^DD(668,14,23,1,0)=" "
^DD(668,14,"DT")="3030305"
^DD(668,15,0)="OIF/OEF^S^0:NO;1:YES;^7;1^Q"
^DD(668,15,21,0)="^^1^1^3070419^"
^DD(668,15,21,1,0)="Veteran determined to be OEF/OIF 1 Yes 0 NO."
^DD(668,15,"DT")="3070430"
^DD(668,16,0)="INITIAL ACTION BY^P200'^VA(200,^0;12^Q"
^DD(668,16,21,0)="^^1^1^3000229^"
^DD(668,16,21,1,0)="This is the person who took first action."
^DD(668,16,"DT")="3000229"
^DD(668,17,0)="CANCELLED BY^P200'^VA(200,^0;13^Q"
^DD(668,17,21,0)="^^1^1^3000317^"
^DD(668,17,21,1,0)="This is the person who cancelled the suspense."
^DD(668,17,"DT")="3000317"
^DD(668,18,0)="CANCEL DATE^D^^5;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(668,18,21,0)="^.001^1^1^3000728^^"
^DD(668,18,21,1,0)="This is the date the suspense record was cancelled."
^DD(668,18,"DT")="3000317"
^DD(668,19,0)="ORDER^P100'^OR(100,^0;14^Q"
^DD(668,19,21,0)="^.001^1^1^3000728^^"
^DD(668,19,21,1,0)="This is the CPRS Order Number used to send messages."
^DD(668,19,"DT")="3000321"
^DD(668,20,0)="CONSULT^P123'^GMR(123,^0;15^Q"
^DD(668,20,1,0)="^.1"
^DD(668,20,1,1,0)="668^D"
^DD(668,20,1,1,1)="S ^RMPR(668,""D"",$E(X,1,30),DA)="""""
^DD(668,20,1,1,2)="K ^RMPR(668,""D"",$E(X,1,30),DA)"
^DD(668,20,1,1,"%D",0)="^^2^2^3000322^"
^DD(668,20,1,1,"%D",1,0)="To be used with GMRC API."
^DD(668,20,1,1,"%D",2,0)="~"
^DD(668,20,1,1,"DT")="3000322"
^DD(668,20,21,0)="^.001^1^1^3000728^^"
^DD(668,20,21,1,0)="This is the entry associated with consult Tracking."
^DD(668,20,"DT")="3000322"
^DD(668,21,0)="CANCEL NOTE^668.021^^9;0"
^DD(668,21,21,0)="^^3^3^3000802^"
^DD(668,21,21,1,0)="This is the cancel note.  If it is a CPRS order the note will be"
^DD(668,21,21,2,0)="recorded with the Consult."
^DD(668,21,21,3,0)="Reason you are cancelling suspense, and/or deny consult."
^DD(668,22,0)="DATE RX WRITTEN^DX^^0;16^S %DT(0)=X D NOW^%DTC S X=%DT(0),%DT(0)=0-%,%DT=""ESTX"" D ^%DT S X=Y K:Y<1 X K %DT"
^DD(668,22,21,0)="^.001^1^1^3000821^^^^"
^DD(668,22,21,1,0)="This is the date the request was signed by a provider."
^DD(668,22,"DT")="3001212"
^DD(668,23,0)="CONSULT REQUEST SERVICE^P123.5'^GMR(123.5,^8;6^Q"
^DD(668,23,21,0)="^^1^1^3000628^"
^DD(668,23,21,1,0)="This is used to forward a Consult to another service."
^DD(668,23,"DT")="3000628"
^DD(668,24,0)="FORWARDED BY^P200'^VA(200,^8;7^Q"
^DD(668,24,21,0)="^.001^1^1^3000728^^"
^DD(668,24,21,1,0)="This is the person who forwarded the consult."
^DD(668,24,"DT")="3000703"
^DD(668,30,0)="PRIMARY ICD DIAGNOSIS CODE^P80'^ICD9(^BA1;1^Q"
^DD(668,30,3)="Enter a pointer to the ICD DIAGNOSIS file (#80) for Primary ICD Diagnosis code."
^DD(668,30,21,0)="^.001^1^1^3040524^^"
^DD(668,30,21,1,0)="CPRS ICD Diagnosis code 1 at time of consult."
^DD(668,30,"DT")="3040525"
^DD(668,30.1,0)="PRIMARY AGENT ORANGE^S^0:NO;1:YES;^BA1;2^Q"
^DD(668,30.1,3)="Enter 'Y'es if Primary diagnosis is related to Agent Orange exposure."
^DD(668,30.1,21,0)="^^1^1^3040524^"
^DD(668,30.1,21,1,0)="Primary diagnosis is related to Agent Orange exposure."
^DD(668,30.1,"DT")="3040525"
^DD(668,30.2,0)="PRIMARY IONIZED RADIATION^S^0:NO;1:YES;^BA1;3^Q"
^DD(668,30.2,3)="Enter 'Y'es if Primary diagnosis is related to Ionized Radiation exposure."
^DD(668,30.2,21,0)="^^1^1^3040524^"
^DD(668,30.2,21,1,0)="Primary diagnosis is related to Ionized Radiation exposure."
^DD(668,30.2,"DT")="3040525"
^DD(668,30.3,0)="PRIMARY SERVICE-CONNECTED^S^0:NO;1:YES;^BA1;4^Q"
^DD(668,30.3,3)="Enter 'Y'es if Primary diagnosis is related to a Service-Connected condition."
^DD(668,30.3,21,0)="^^1^1^3040524^"
^DD(668,30.3,21,1,0)="Primary diagnosis is related to a Service-Connected condition."
^DD(668,30.3,"DT")="3040525"
^DD(668,30.4,0)="PRIMARY ENVIRONMENTAL CONT.^S^0:NO;1:YES;^BA1;5^Q"
^DD(668,30.4,3)="Enter 'Y'es if Primary diagnosis is related to Environmental Contaminants exposure."
^DD(668,30.4,21,0)="^^1^1^3040524^"
^DD(668,30.4,21,1,0)="Primary diagnosis is related to Environmental Contaminants exposure."
^DD(668,30.4,"DT")="3040525"
^DD(668,30.5,0)="PRIMARY MST^S^0:NO;1:YES;^BA1;6^Q"
^DD(668,30.5,3)="Enter 'Y'es if diagnosis is related to Military Sexual Trauma."
^DD(668,30.5,21,0)="^^1^1^3040524^"
^DD(668,30.5,21,1,0)="Primary diagnosis is related to Military Sexual Trauma."
^DD(668,30.5,"DT")="3040525"
^DD(668,30.6,0)="PRIMARY HEAD/NECK CANCER^S^0:NO;1:YES;^BA1;7^Q"
^DD(668,30.6,3)="Enter 'Y'es if Primary diagnosis is related to Head/Neck Cancer."
^DD(668,30.6,21,0)="^^1^1^3040524^"
^DD(668,30.6,21,1,0)="Primary diagnosis is related to Head/Neck Cancer."
^DD(668,30.6,"DT")="3040525"
^DD(668,30.7,0)="PRIMARY COMBAT VET^S^0:NO;1:YES;^BA1;8^Q"
^DD(668,30.7,3)="Enter 'Y'es if Primary diagnosis is related to Combat."
^DD(668,30.7,21,0)="^.001^1^1^3040524^^"
^DD(668,30.7,21,1,0)="Primary diagnosis is related to Combat."
^DD(668,30.7,"DT")="3040525"
^DD(668,31,0)="SECONDARY ICD DIAGNOSIS 1^P80'^ICD9(^BA2;1^Q"
^DD(668,31,3)="Enter pointer to ICD Diagnosis file (#80) for Secondary ICD diagnosis code 1."
^DD(668,31,21,0)="^^1^1^3040524^"
^DD(668,31,21,1,0)="Pointer to ICD Diagnosis file (#80) for Secondary ICD diagnosis code 1."
^DD(668,31,"DT")="3040525"
^DD(668,31.1,0)="SECONDARY AGENT ORANGE 1^S^0:NO;1:YES;^BA2;2^Q"
^DD(668,31.1,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Agent Orange exposure."
^DD(668,31.1,21,0)="^^1^1^3040524^"
^DD(668,31.1,21,1,0)="Secondary diagnosis 1 is related to Agent Orange exposure."
^DD(668,31.1,"DT")="3040525"
^DD(668,31.2,0)="SECONDARY IONIZED RADIATION 1^S^0:NO;1:YES;^BA2;3^Q"
^DD(668,31.2,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Ionized Radiation exposure."
^DD(668,31.2,21,0)="^.001^1^1^3040524^^"
^DD(668,31.2,21,1,0)="Secondary diagnosis 1 is related to Ionized Radiation exposure."
^DD(668,31.2,"DT")="3040525"
^DD(668,31.3,0)="SECONDARY SERVICE-CONNECTED 1^S^0:NO;1:YES;^BA2;4^Q"
^DD(668,31.3,3)="Enter 'Y'es if Secondary diagnosis 1 is related to a Service-Connected condition."
^DD(668,31.3,21,0)="^^1^1^3040524^"
^DD(668,31.3,21,1,0)="Secondary diagnosis 1 is related to a Service-Connected condition."
^DD(668,31.3,"DT")="3040525"
^DD(668,31.4,0)="SECONDARY ENVIRON. CONT. 1^S^0:NO;1:YES;^BA2;5^Q"
^DD(668,31.4,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^DD(668,31.4,21,0)="^^1^1^3040524^"
^DD(668,31.4,21,1,0)="Secondary diagnosis 1 is related to Environmental Contaminants exposure."
^DD(668,31.4,"DT")="3040525"
^DD(668,31.5,0)="SECONDARY MST 1^S^0:NO;1:YES;^BA2;6^Q"
^DD(668,31.5,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Military Sexual Trauma."
^DD(668,31.5,21,0)="^^1^1^3040524^"
^DD(668,31.5,21,1,0)="Secondary diagnosis 1 is related to Military Sexual Trauma."
^DD(668,31.5,"DT")="3040525"
^DD(668,31.6,0)="SECONDARY HEAD/NECK CANCER 1^S^0:NO;1:YES;^BA2;7^Q"
^DD(668,31.6,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Head/Neck Cancer."
^DD(668,31.6,21,0)="^^1^1^3040524^"
^DD(668,31.6,21,1,0)="Secondary diagnosis 1 is related to Head/Neck Cancer."
^DD(668,31.6,"DT")="3040525"
^DD(668,31.7,0)="SECONDARY COMBAT VET 1^S^0:NO;1:YES;^BA2;8^Q"
^DD(668,31.7,3)="Enter 'Y'es if Secondary diagnosis 1 is related to Combat."
^DD(668,31.7,21,0)="^.001^1^1^3040524^^"
^DD(668,31.7,21,1,0)="Secondary diagnosis 1 is related to Combat."
^DD(668,31.7,"DT")="3040525"
^DD(668,32,0)="SECONDARY ICD DIAGNOSIS 2^P80'^ICD9(^BA3;1^Q"
^DD(668,32,3)="Enter pointer to ICD Diagnosis file (#80) for Secondary ICD diagnosis code 2."
^DD(668,32,21,0)="^^1^1^3040524^"
^DD(668,32,21,1,0)="Pointer to ICD Diagnosis file (#80) for Secondary ICD Diagnosis 2."
^DD(668,32,"DT")="3040525"
^DD(668,32.1,0)="SECONDARY AGENT ORANGE 2^S^0:NO;1:YES;^BA3;2^Q"
^DD(668,32.1,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Agent Orange exposure."
^DD(668,32.1,21,0)="^^1^1^3040524^"
^DD(668,32.1,21,1,0)="Secondary diagnosis 2 is related to Agent Orange exposure."
^DD(668,32.1,"DT")="3040525"
^DD(668,32.2,0)="SECONDARY IONIZED RADIATION 2^S^0:NO;1:YES;^BA3;3^Q"
^DD(668,32.2,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Ionized Radiation exposure."
^DD(668,32.2,21,0)="^^1^1^3040524^"
^DD(668,32.2,21,1,0)="Secondary diagnosis 2 is related to Ionized Radiation exposure."
^DD(668,32.2,"DT")="3040525"
^DD(668,32.3,0)="SECONDARY SERVICE-CONNECTED 2^S^0:NO;1:YES;^BA3;4^Q"
^DD(668,32.3,3)="Enter 'Y'es if Secondary diagnosis 2 is related to a Service-Connected condition."
^DD(668,32.3,21,0)="^^1^1^3040524^"
^DD(668,32.3,21,1,0)="Secondary diagnosis 2 is related to a Service-Connected condition."
^DD(668,32.3,"DT")="3040525"
^DD(668,32.4,0)="SECONDARY ENVIRON. CONT. 2^S^0:NO;1:YES;^BA3;5^Q"
^DD(668,32.4,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^DD(668,32.4,21,0)="^^1^1^3040524^"
^DD(668,32.4,21,1,0)="Secondary diagnosis 2 is related to Environmental Contaminants exposure."
^DD(668,32.4,"DT")="3040525"
^DD(668,32.5,0)="SECONDARY MST 2^S^0:NO;1:YES;^BA3;6^Q"
^DD(668,32.5,3)="Enter 'Y'es if diagnosis is related to Military Sexual Trauma."
^DD(668,32.5,21,0)="^^1^1^3040524^"
^DD(668,32.5,21,1,0)="Secondary diagnosis 2 is related to Military Sexual Trauma."
^DD(668,32.5,"DT")="3040525"
^DD(668,32.6,0)="SECONDARY HEAD/NECK CANCER 2^S^0:NO;1:YES;^BA3;7^Q"
^DD(668,32.6,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Head/Neck Cancer."
^DD(668,32.6,21,0)="^^1^1^3040524^"
^DD(668,32.6,21,1,0)="Secondary diagnosis 2 is related to Head/Neck Cancer."
^DD(668,32.6,"DT")="3040525"
^DD(668,32.7,0)="SECONDARY COMBAT VET 2^S^0:NO;1:YES;^BA3;8^Q"
^DD(668,32.7,3)="Enter 'Y'es if Secondary diagnosis 2 is related to Combat."
^DD(668,32.7,21,0)="^.001^1^1^3040524^^"
^DD(668,32.7,21,1,0)="Secondary diagnosis 2 is related to Combat."
^DD(668,32.7,"DT")="3040525"
^DD(668,33,0)="SECONDARY ICD DIAGNOSIS 3^P80'^ICD9(^BA4;1^Q"
^DD(668,33,3)="Enter pointer to ICD Diagnosis file (#80) for Secondary Diagnosis 3."
^DD(668,33,21,0)="^.001^1^1^3040524^^"
^DD(668,33,21,1,0)="Pointer to ICD Diagnosis file (#80) for Secondary Diagnosis code 3."
^DD(668,33,"DT")="3040525"
^DD(668,33.1,0)="SECONDARY AGENT ORANGE 3^S^0:NO;1:YES;^BA4;2^Q"
^DD(668,33.1,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Agent Orange exposure."
^DD(668,33.1,21,0)="^^1^1^3040524^"
^DD(668,33.1,21,1,0)="Secondary diagnosis 3 is related to Agent Orange."
^DD(668,33.1,"DT")="3040525"
^DD(668,33.2,0)="SECONDARY IONIZED RADIATION 3^S^0:NO;1:YES;^BA4;3^Q"
^DD(668,33.2,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Ionized Radiation exposure."
^DD(668,33.2,21,0)="^^1^1^3040524^"
^DD(668,33.2,21,1,0)="Secondary diagnosis 3 is related to Ionized Radiation."
^DD(668,33.2,"DT")="3040525"
^DD(668,33.3,0)="SECONDARY SERVICE-CONNECTED 3^S^0:NO;1:YES;^BA4;4^Q"
^DD(668,33.3,3)="Enter 'Y'es if Secondary diagnosis 3 is related to a Service-Connected condition."
^DD(668,33.3,21,0)="^^1^1^3040524^"
^DD(668,33.3,21,1,0)="Secondary diagnosis 3 is related to a Service-Connected condition."
^DD(668,33.3,"DT")="3040525"
^DD(668,33.4,0)="SECONDARY ENVIRON. CONT. 3^S^0:NO;1:YES;^BA4;5^Q"
^DD(668,33.4,3)="Enter 'Y'es if Secondary diagnosis 3 is related to Environmental Contaminants exposure."
^DD(668,33.4,21,0)="^^1^1^3040524^"
^DD(668,33.4,21,1,0)="Secondary diagnosis 3 is related to Environmental Contaminants exposure."
^DD(668,33.4,"DT")="3040525"
^DD(668,33.5,0)="SECONDARY MST 3^S^0:NO;1:YES;^BA4;6^Q"
^DD(668,33.5,3)="Enter 'Y'es if diagnosis is related to Military Sexual Trauma."
^DD(668,33.5,21,0)="^^1^1^3040524^"
^DD(668,33.5,21,1,0)="Secondary diagnosis 3 is related to Military Sexual Trauma."
^DD(668,33.5,"DT")="3040525"
^DD(668,33.6,0)="SECONDARY HEAD/NECK CANCER 3^S^0:NO;1:YES;^BA4;7^Q"
^DD(668,33.6,3)="Enter 'Y'es to indicate Secondary diagnosis 3 is related to Head/Neck Cancer."
^DD(668,33.6,21,0)="^^1^1^3040524^"
^DD(668,33.6,21,1,0)="Secondary diagnosis 3 is related to Head/Neck Cancer."
^DD(668,33.6,"DT")="3040525"
^DD(668,33.7,0)="SECONDARY COMBAT VET 3^S^0:NO;1:YES;^BA4;8^Q"
^DD(668,33.7,3)="Enter 'Y'es to indicate Secondary diagnosis 3 is related to Combat."
^DD(668,33.7,21,0)="^^1^1^3040524^"
^DD(668,33.7,21,1,0)="Secondary diagnosis 3 is related to Combat."
^DD(668,33.7,"DT")="3040525"
^DD(668,"B","ACTION DATE",11)=""
^DD(668,"B","AMIS GROUPER",8.2)=""
^DD(668,"B","CANCEL DATE",18)=""
^DD(668,"B","CANCEL NOTE",21)=""
^DD(668,"B","CANCELLED BY",17)=""
^DD(668,"B","COMPLETED BY",6)=""
^DD(668,"B","COMPLETION DATE",5)=""
^DD(668,"B","COMPLETION NOTE",12)=""
^DD(668,"B","CONSULT",20)=""
^DD(668,"B","CONSULT REQUEST SERVICE",23)=""
^DD(668,"B","DATE RX WRITTEN",22)=""
^DD(668,"B","DESCRIPTION OF ITEM/SERVICES",4)=""
^DD(668,"B","FORWARDED BY",24)=""
^DD(668,"B","ICD9",1.6)=""
^DD(668,"B","INITIAL ACTION BY",16)=""
^DD(668,"B","INITIAL ACTION DATE",10)=""
^DD(668,"B","INITIAL ACTION NOTE",7)=""
^DD(668,"B","OIF/OEF",15)=""
^DD(668,"B","ORDER",19)=""
^DD(668,"B","PATIENT 2319",8.1)=""
^DD(668,"B","PRIMARY AGENT ORANGE",30.1)=""
^DD(668,"B","PRIMARY COMBAT VET",30.7)=""
^DD(668,"B","PRIMARY ENVIRONMENTAL CONT.",30.4)=""
^DD(668,"B","PRIMARY HEAD/NECK CANCER",30.6)=""
^DD(668,"B","PRIMARY ICD DIAGNOSIS CODE",30)=""
^DD(668,"B","PRIMARY IONIZED RADIATION",30.2)=""
^DD(668,"B","PRIMARY MST",30.5)=""
^DD(668,"B","PRIMARY SERVICE-CONNECTED",30.3)=""
^DD(668,"B","PROVISIONAL DIAGNOSIS",1.5)=""
^DD(668,"B","REQUESTING FACILITY",2.1)=""
^DD(668,"B","REQUESTOR",13)=""
^DD(668,"B","SECONDARY AGENT ORANGE 1",31.1)=""
^DD(668,"B","SECONDARY AGENT ORANGE 2",32.1)=""
^DD(668,"B","SECONDARY AGENT ORANGE 3",33.1)=""
^DD(668,"B","SECONDARY COMBAT VET 1",31.7)=""
^DD(668,"B","SECONDARY COMBAT VET 2",32.7)=""
^DD(668,"B","SECONDARY COMBAT VET 3",33.7)=""
^DD(668,"B","SECONDARY ENVIRON. CONT. 1",31.4)=""
^DD(668,"B","SECONDARY ENVIRON. CONT. 2",32.4)=""
^DD(668,"B","SECONDARY ENVIRON. CONT. 3",33.4)=""
^DD(668,"B","SECONDARY HEAD/NECK CANCER 1",31.6)=""
^DD(668,"B","SECONDARY HEAD/NECK CANCER 2",32.6)=""
^DD(668,"B","SECONDARY HEAD/NECK CANCER 3",33.6)=""
^DD(668,"B","SECONDARY ICD DIAGNOSIS 1",31)=""
^DD(668,"B","SECONDARY ICD DIAGNOSIS 2",32)=""
^DD(668,"B","SECONDARY ICD DIAGNOSIS 3",33)=""
^DD(668,"B","SECONDARY IONIZED RADIATION 1",31.2)=""
^DD(668,"B","SECONDARY IONIZED RADIATION 2",32.2)=""
^DD(668,"B","SECONDARY IONIZED RADIATION 3",33.2)=""
^DD(668,"B","SECONDARY MST 1",31.5)=""
^DD(668,"B","SECONDARY MST 2",32.5)=""
^DD(668,"B","SECONDARY MST 3",33.5)=""
^DD(668,"B","SECONDARY SERVICE-CONNECTED 1",31.3)=""
^DD(668,"B","SECONDARY SERVICE-CONNECTED 2",32.3)=""
^DD(668,"B","SECONDARY SERVICE-CONNECTED 3",33.3)=""
^DD(668,"B","STATION",2)=""
^DD(668,"B","STATUS",14)=""
^DD(668,"B","SUSPENDED BY",8)=""
^DD(668,"B","SUSPENSE DATE",.01)=""
^DD(668,"B","SUSPENSE FORM",3)=""
^DD(668,"B","TYPE OF REQUEST",9)=""
^DD(668,"B","URGENCY",2.3)=""
^DD(668,"B","VETERAN",1)=""
^DD(668,"GL",0,1,.01)=""
^DD(668,"GL",0,2,1)=""
^DD(668,"GL",0,3,3)=""
^DD(668,"GL",0,4,8)=""
^DD(668,"GL",0,5,5)=""
^DD(668,"GL",0,6,6)=""
^DD(668,"GL",0,7,2)=""
^DD(668,"GL",0,8,9)=""
^DD(668,"GL",0,9,10)=""
^DD(668,"GL",0,10,14)=""
^DD(668,"GL",0,11,13)=""
^DD(668,"GL",0,12,16)=""
^DD(668,"GL",0,13,17)=""
^DD(668,"GL",0,14,19)=""
^DD(668,"GL",0,15,20)=""
^DD(668,"GL",0,16,22)=""
^DD(668,"GL",1,0,11)=""
^DD(668,"GL",2,0,4)=""
^DD(668,"GL",3,0,7)=""
^DD(668,"GL",4,0,12)=""
^DD(668,"GL",5,1,18)=""
^DD(668,"GL",7,1,15)=""
^DD(668,"GL",8,1,2.1)=""
^DD(668,"GL",8,2,1.5)=""
^DD(668,"GL",8,3,1.6)=""
^DD(668,"GL",8,5,2.3)=""
^DD(668,"GL",8,6,23)=""
^DD(668,"GL",8,7,24)=""
^DD(668,"GL",9,0,21)=""
^DD(668,"GL",10,0,8.1)=""
^DD(668,"GL",11,0,8.2)=""
^DD(668,"GL","BA1",1,30)=""
^DD(668,"GL","BA1",2,30.1)=""
^DD(668,"GL","BA1",3,30.2)=""
^DD(668,"GL","BA1",4,30.3)=""
^DD(668,"GL","BA1",5,30.4)=""
^DD(668,"GL","BA1",6,30.5)=""
^DD(668,"GL","BA1",7,30.6)=""
^DD(668,"GL","BA1",8,30.7)=""
^DD(668,"GL","BA2",1,31)=""
^DD(668,"GL","BA2",2,31.1)=""
^DD(668,"GL","BA2",3,31.2)=""
^DD(668,"GL","BA2",4,31.3)=""
^DD(668,"GL","BA2",5,31.4)=""
^DD(668,"GL","BA2",6,31.5)=""
^DD(668,"GL","BA2",7,31.6)=""
^DD(668,"GL","BA2",8,31.7)=""
^DD(668,"GL","BA3",1,32)=""
^DD(668,"GL","BA3",2,32.1)=""
^DD(668,"GL","BA3",3,32.2)=""
^DD(668,"GL","BA3",4,32.3)=""
^DD(668,"GL","BA3",5,32.4)=""
^DD(668,"GL","BA3",6,32.5)=""
^DD(668,"GL","BA3",7,32.6)=""
^DD(668,"GL","BA3",8,32.7)=""
^DD(668,"GL","BA4",1,33)=""
^DD(668,"GL","BA4",2,33.1)=""
^DD(668,"GL","BA4",3,33.2)=""
^DD(668,"GL","BA4",4,33.3)=""
^DD(668,"GL","BA4",5,33.4)=""
^DD(668,"GL","BA4",6,33.5)=""
^DD(668,"GL","BA4",7,33.6)=""
^DD(668,"GL","BA4",8,33.7)=""
^DD(668,"IX",.01)=""
^DD(668,"IX",1)=""
^DD(668,"IX",5)=""
^DD(668,"IX",14)=""
^DD(668,"IX",20)=""
^DD(668,"RQ",.01)=""
^DD(668,"RQ",3)=""
^DD(668,"RQ",4)=""
^DD(668,"SB",668.011,11)=""
^DD(668,"SB",668.012,12)=""
^DD(668,"SB",668.021,21)=""
^DD(668,"SB",668.04,4)=""
^DD(668,"SB",668.07,7)=""
^DD(668,"SB",668.81,8.1)=""
^DD(668,"SB",668.82,8.2)=""
^DD(668.011,0)="ACTION DATE SUB-FIELD^^1^2"
^DD(668.011,0,"DT")="3000310"
^DD(668.011,0,"IX","B",668.011,.01)=""
^DD(668.011,0,"NM","ACTION DATE")=""
^DD(668.011,0,"UP")="668"
^DD(668.011,.01,0)="ACTION DATE^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(668.011,.01,1,0)="^.1"
^DD(668.011,.01,1,1,0)="668.011^B"
^DD(668.011,.01,1,1,1)="S ^RMPR(668,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(668.011,.01,1,1,2)="K ^RMPR(668,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(668.011,.01,21,0)="^.001^1^1^3000728^^"
^DD(668.011,.01,21,1,0)="This is the date an Other Action Note was created."
^DD(668.011,.01,"DT")="3000308"
^DD(668.011,1,0)="ACTION NOTE^668.111^^1;0"
^DD(668.011,1,21,0)="^^2^2^3000728^"
^DD(668.011,1,21,1,0)="This is an action note, must be after the Initial Action Note.  If"
^DD(668.011,1,21,2,0)="this is a CPRS suspense then this will be recorded in the Consult."
^DD(668.011,"B","ACTION DATE",.01)=""
^DD(668.011,"B","ACTION NOTE",1)=""
^DD(668.011,"GL",0,1,.01)=""
^DD(668.011,"GL",1,0,1)=""
^DD(668.011,"IX",.01)=""
^DD(668.011,"SB",668.111,1)=""
^DD(668.012,0)="COMPLETION NOTE SUB-FIELD^^.01^1"
^DD(668.012,0,"DT")="3000126"
^DD(668.012,0,"NM","COMPLETION NOTE")=""
^DD(668.012,0,"UP")="668"
^DD(668.012,.01,0)="COMPLETION NOTE^W^^0;1^Q"
^DD(668.012,.01,21,0)="^^1^1^3000821^"
^DD(668.012,.01,21,1,0)="This is the note for the completion comments."
^DD(668.012,.01,"DT")="3000126"
^DD(668.012,"B","COMPLETION NOTE",.01)=""
^DD(668.012,"GL",0,1,.01)=""
^DD(668.021,0)="CANCEL NOTE SUB-FIELD^^.01^1"
^DD(668.021,0,"DT")="3000330"
^DD(668.021,0,"NM","CANCEL NOTE")=""
^DD(668.021,0,"UP")="668"
^DD(668.021,.01,0)="CANCEL NOTE^WL^^0;1^Q"
^DD(668.021,.01,21,0)="^.001^1^1^3000802^^^"
^DD(668.021,.01,21,1,0)="Reason you are cancelling suspense, and/or deny consult."
^DD(668.021,.01,"DT")="3000330"
^DD(668.021,"B","CANCEL NOTE",.01)=""
^DD(668.021,"GL",0,1,.01)=""
^DD(668.04,0)="DESCRIPTION OF ITEM/SERVICES SUB-FIELD^^.01^1"
^DD(668.04,0,"DT")="2920204"
^DD(668.04,0,"NM","DESCRIPTION OF ITEM/SERVICES")=""
^DD(668.04,0,"UP")="668"
^DD(668.04,.01,0)="DESCRIPTION OF ITEM/SERVICES^WL^^0;1^Q"
^DD(668.04,.01,3)="Please enter Description of the Item or Services requested."
^DD(668.04,.01,"DT")="2920204"
^DD(668.04,"B","DESCRIPTION OF ITEM/SERVICES",.01)=""
^DD(668.04,"GL",0,1,.01)=""
^DD(668.07,0)="INITIAL ACTION NOTE SUB-FIELD^^.01^1"
^DD(668.07,0,"DT")="3000126"
^DD(668.07,0,"NM","INITIAL ACTION NOTE")=""
^DD(668.07,0,"UP")="668"
^DD(668.07,.01,0)="INITIAL ACTION NOTE^W^^0;1^Q"
^DD(668.07,.01,3)="Enter the the action that was taken on this supsense record."
^DD(668.07,.01,21,0)="^^1^1^3000126^^^^"
^DD(668.07,.01,21,1,0)="Action taken with initial action."
^DD(668.07,.01,"DT")="3000126"
^DD(668.07,"B","INITIAL ACTION NOTE",.01)=""
^DD(668.07,"GL",0,1,.01)=""
^DD(668.111,0)="ACTION NOTE SUB-FIELD^^.01^1"
^DD(668.111,0,"DT")="3000310"
^DD(668.111,0,"NM","ACTION NOTE")=""
^DD(668.111,0,"UP")="668.011"
^DD(668.111,.01,0)="ACTION NOTE^W^^0;1^Q"
^DD(668.111,.01,"DT")="3000310"
^DD(668.111,"B","ACTION NOTE",.01)=""
^DD(668.111,"GL",0,1,.01)=""
^DD(668.81,0)="PATIENT 2319 SUB-FIELD^^.01^1"
^DD(668.81,0,"DT")="3010817"
^DD(668.81,0,"IX","B",668.81,.01)=""
^DD(668.81,0,"NM","PATIENT 2319")=""
^DD(668.81,0,"UP")="668"
^DD(668.81,.01,0)="PATIENT 2319^P660'^RMPR(660,^0;1^Q"
^DD(668.81,.01,1,0)="^.1"
^DD(668.81,.01,1,1,0)="668.81^B"
^DD(668.81,.01,1,1,1)="S ^RMPR(668,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(668.81,.01,1,1,2)="K ^RMPR(668,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(668.81,.01,1,2,0)="668^F"
^DD(668.81,.01,1,2,1)="S ^RMPR(668,""F"",$E(X,1,30),DA(1),DA)="""""
^DD(668.81,.01,1,2,2)="K ^RMPR(668,""F"",$E(X,1,30),DA(1),DA)"
^DD(668.81,.01,1,2,"%D",0)="^^2^2^3010829^"
^DD(668.81,.01,1,2,"%D",1,0)="Cross-reference ""F"" will be used to access suspense entry that has a link"
^DD(668.81,.01,1,2,"%D",2,0)="to patient 2319 record."
^DD(668.81,.01,1,2,"DT")="3010829"
^DD(668.81,.01,21,0)="^.001^1^1^3010817^^"
^DD(668.81,.01,21,1,0)=" Pointer to 2319 record (#660)."
^DD(668.81,.01,"DT")="3010829"
^DD(668.81,"B","PATIENT 2319",.01)=""
^DD(668.81,"GL",0,1,.01)=""
^DD(668.81,"IX",.01)=""
^DD(668.82,0)="AMIS GROUPER SUB-FIELD^^.01^1"
^DD(668.82,0,"DT")="3010817"
^DD(668.82,0,"IX","B",668.82,.01)=""
^DD(668.82,0,"NM","AMIS GROUPER")=""
^DD(668.82,0,"UP")="668"
^DD(668.82,.01,0)="AMIS GROUPER^F^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(668.82,.01,1,0)="^.1"
^DD(668.82,.01,1,1,0)="668.82^B"
^DD(668.82,.01,1,1,1)="S ^RMPR(668,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(668.82,.01,1,1,2)="K ^RMPR(668,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(668.82,.01,1,2,0)="668^G"
^DD(668.82,.01,1,2,1)="S ^RMPR(668,""G"",$E(X,1,30),DA(1),DA)="""""
^DD(668.82,.01,1,2,2)="K ^RMPR(668,""G"",$E(X,1,30),DA(1),DA)"
^DD(668.82,.01,1,2,"DT")="3011016"
^DD(668.82,.01,3)="Answer must be 3-15 characters in length."
^DD(668.82,.01,21,0)="^.001^1^1^3011016^^"
^DD(668.82,.01,21,1,0)="This is the amis grouper as it appears in file#660."
^DD(668.82,.01,"DT")="3011016"
^DD(668.82,"B","AMIS GROUPER",.01)=""
^DD(668.82,"GL",0,1,.01)=""
^DD(668.82,"IX",.01)=""
^DD(669.1,0)="FIELD^^1^2"
^DD(669.1,0,"DDA")="N"
^DD(669.1,0,"DT")="2960124"
^DD(669.1,0,"IX","B",669.1,.01)=""
^DD(669.1,0,"NM","PROSTHETIC LAB W.O #")=""
^DD(669.1,0,"VR")="3.0"
^DD(669.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(669.1,.01,1,0)="^.1"
^DD(669.1,.01,1,1,0)="669.1^B"
^DD(669.1,.01,1,1,1)="S ^RMPR(669.1,""B"",$E(X,1,30),DA)="""""
^DD(669.1,.01,1,1,2)="K ^RMPR(669.1,""B"",$E(X,1,30),DA)"
^DD(669.1,.01,3)="Answer must be 3-30 characters in length."
^DD(669.1,.01,21,0)="^^2^2^2960124^^"
^DD(669.1,.01,21,1,0)="This field contains the station, year and quarter part of Lab Work order"
^DD(669.1,.01,21,2,0)="numbers."
^DD(669.1,.01,"DT")="2960124"
^DD(669.1,1,0)="LAST NUMBER USED^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(669.1,1,3)="Answer must be 1-30 characters in length."
^DD(669.1,1,21,0)="^^3^3^2960124^"
^DD(669.1,1,21,1,0)="This field contains the last number used with the associated shation, year"
^DD(669.1,1,21,2,0)="and quarter. This is updated when a new work order number is generated for"
^DD(669.1,1,21,3,0)="the associated station, year, and quarter."
^DD(669.1,1,"DT")="2931112"
^DD(669.1,"B","LAST NUMBER USED",1)=""
^DD(669.1,"B","NAME",.01)=""
^DD(669.1,"GL",0,1,.01)=""
^DD(669.1,"GL",0,2,1)=""
^DD(669.1,"IX",.01)=""
^DD(669.1,"RQ",.01)=""
^DD(669.9,0)="FIELD^^74^47"
^DD(669.9,0,"DDA")="N"
^DD(669.9,0,"DT")="3041228"
^DD(669.9,0,"IX","ALTDY",669.965,2)=""
^DD(669.9,0,"IX","B",669.9,.01)=""
^DD(669.9,0,"IX","C",669.9,1)=""
^DD(669.9,0,"IX","PA",669.9003,.01)=""
^DD(669.9,0,"NM","PROSTHETICS SITE PARAMETERS")=""
^DD(669.9,0,"PT",665,19.12)=""
^DD(669.9,0,"PT",665.72,.01)=""
^DD(669.9,0,"VR")="3.0"
^DD(669.9,0,"VRPK")="RMPR"
^DD(669.9,.01,0)="SITE NAME^RFX^^0;1^K:($L(X)<3)!($L(X)>50)!(X'?1U.E) X"
^DD(669.9,.01,1,0)="^.1"
^DD(669.9,.01,1,1,0)="669.9^B"
^DD(669.9,.01,1,1,1)="S ^RMPR(669.9,""B"",$E(X,1,30),DA)="""""
^DD(669.9,.01,1,1,2)="K ^RMPR(669.9,""B"",$E(X,1,30),DA)"
^DD(669.9,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH AND BEGIN WITH A CAPITAL LETTER"
^DD(669.9,.01,21,0)="^^4^4^2920130^^^"
^DD(669.9,.01,21,1,0)="The site name can be either uppercase, or a combination of upper and lower."
^DD(669.9,.01,21,2,0)="This is the name of your Medical Center, and should be entered the way"
^DD(669.9,.01,21,3,0)="you would like to have it print on your forms.  For example:"
^DD(669.9,.01,21,4,0)="Carl T. Hayden VAMC."
^DD(669.9,.01,"DT")="2950803"
^DD(669.9,1,0)="STATION^P4'^DIC(4,^0;2^Q"
^DD(669.9,1,1,0)="^.1"
^DD(669.9,1,1,1,0)="669.9^C"
^DD(669.9,1,1,1,1)="S ^RMPR(669.9,""C"",$E(X,1,30),DA)="""""
^DD(669.9,1,1,1,2)="K ^RMPR(669.9,""C"",$E(X,1,30),DA)"
^DD(669.9,1,1,1,"%D",0)="^^1^1^2921103^"
^DD(669.9,1,1,1,"%D",1,0)="Lookup Site Name by Station Number."
^DD(669.9,1,1,1,"DT")="2921103"
^DD(669.9,1,3)="Enter the Station Name or Station Number from the Institution File."
^DD(669.9,1,21,0)="^^1^1^2950510^^^"
^DD(669.9,1,21,1,0)="This is your station number."
^DD(669.9,1,"DT")="2921103"
^DD(669.9,1.1,0)="IFCAP SITE^FX^^4;1^K:$L(X)>6!($L(X)<3) X"
^DD(669.9,1.1,3)="Answer must be 3-6 characters in length."
^DD(669.9,1.1,21,0)="^^1^1^2961216^"
^DD(669.9,1.1,21,1,0)="This field should contain the current IFCAP site location."
^DD(669.9,1.1,"DT")="2961216"
^DD(669.9,2,0)="AUTOMATED INVENTORY (GIP)^RS^1:YES;0:NO;^0;3^Q"
^DD(669.9,2,21,0)="^^3^3^2910915^^"
^DD(669.9,2,21,1,0)="When you first install Prosthetics, this should be set to no.  When you"
^DD(669.9,2,21,2,0)="are ready to start using the inventory package, you should change this"
^DD(669.9,2,21,3,0)="to yes."
^DD(669.9,2,"DT")="2910306"
^DD(669.9,3,0)="PHONE NUMBER^F^^0;4^K:$L(X)>24!($L(X)<3) X"
^DD(669.9,3,3)="Answer must be 3-24 characters in length."
^DD(669.9,3,21,0)="^^4^4^2950911^^^^"
^DD(669.9,3,21,1,0)="This field stores the phone number of Prosthetics. This phone number will"
^DD(669.9,3,21,2,0)="print on all 2421 forms."
^DD(669.9,3,21,3,0)="24 spaces are allotted for phone number which should allow for entry of both"
^DD(669.9,3,21,4,0)="area code and a four digit extension, if desired."
^DD(669.9,3,"DT")="2950911"
^DD(669.9,4,0)="STREET ADD1^RF^^2;2^K:$L(X)>60!($L(X)<6) X"
^DD(669.9,4,3)="Answer with the street address for letterhead, and the address correspondence should be sent to."
^DD(669.9,4,21,0)="^^2^2^2910915^^"
^DD(669.9,4,21,1,0)="This should be the street address of your Prosthetics Service, or the"
^DD(669.9,4,21,2,0)="address you would like printed on your forms."
^DD(669.9,4,"DT")="2900515"
^DD(669.9,5,0)="CITY^RF^^2;3^K:$L(X)>15!($L(X)<3) X"
^DD(669.9,5,3)="Answer must be 3-15 characters in length."
^DD(669.9,5,21,0)="^^2^2^2910915^^"
^DD(669.9,5,21,1,0)="This is the city to go with the STREET ADD1 field.  This is the city"
^DD(669.9,5,21,2,0)="of your Prosthetics Service."
^DD(669.9,5,"DT")="2900515"
^DD(669.9,6,0)="STATE^RP5^DIC(5,^2;4^Q"
^DD(669.9,6,3)="Please enter the State where your Institution resides."
^DD(669.9,6,21,0)="^^1^1^2930306^"
^DD(669.9,6,21,1,0)="Pointer to the State file #5."
^DD(669.9,6,"DT")="2920128"
^DD(669.9,7,0)="ZIP CODE^RF^^2;5^K:$L(X)>10!($L(X)<5) X"
^DD(669.9,7,3)="Answer must be 5-10 characters in length."
^DD(669.9,7,21,0)="^^1^1^2910726^"
^DD(669.9,7,21,1,0)="This is the zip code to go with the street address and city."
^DD(669.9,7,"DT")="2900515"
^DD(669.9,7.1,0)="MANAGER COMMENT^F^^6;1^K:$L(X)>80!($L(X)<1) X"
^DD(669.9,7.1,3)="Answer must be 1-80 characters in length."
^DD(669.9,7.1,21,0)="^^1^1^3041228^"
^DD(669.9,7.1,21,1,0)="This comment will display on GUI Purchasing Page."
^DD(669.9,7.1,"DT")="3041228"
^DD(669.9,8,0)="CHIEF SIG BLOCK^RF^^2;6^K:$L(X)>55!($L(X)<5) X"
^DD(669.9,8,3)="Answer must be 5-55 characters in length."
^DD(669.9,8,21,0)="^^1^1^2910726^"
^DD(669.9,8,21,1,0)="This is the name of the Fund Control Point Official that signs."
^DD(669.9,8,"DT")="2900529"
^DD(669.9,8.1,0)="PURCHASING AGENT^669.9003PA^^5;0"
^DD(669.9,8.1,21,0)="^.001^1^1^3050623^^"
^DD(669.9,8.1,21,1,0)="This is a list of persons who are allowed to serve as purchasing agents for prosthetics."
^DD(669.9,8.5,0)="SIGNATURE BLOCK TITLE^F^^2;1^K:$L(X)>55!($L(X)<5) X"
^DD(669.9,8.5,3)="Answer must be 5-55 characters in length."
^DD(669.9,8.5,21,0)="^^2^2^2921230^"
^DD(669.9,8.5,21,1,0)="Signature Block Title is used to describe the Prosthetics Service as a"
^DD(669.9,8.5,21,2,0)="P&SAS or PTC."
^DD(669.9,8.5,"DT")="2921230"
^DD(669.9,9,0)="PURCHASING DEVICE^P3.5'^%ZIS(1,^0;5^Q"
^DD(669.9,9,3)="Please Enter the Device Name that will be used for Printing Purchasing Forms for Prosthetics."
^DD(669.9,9,21,0)="^^1^1^2910915^^"
^DD(669.9,9,21,1,0)="This is the device all VAF 10-2421s and 10-55's will be printed on."
^DD(669.9,9,"DT")="2920805"
^DD(669.9,10,0)="COMMON NUMBERING SERIES^P442.6'^PRC(442.6,^4;2^Q"
^DD(669.9,10,21,0)="^^1^1^3050602^"
^DD(669.9,10,21,1,0)="This is the Numbering Series given by Fiscal so each PO # will be unique."
^DD(669.9,10,"DT")="3041122"
^DD(669.9,11,0)="GROUPER COUNTER^NJ8,0I^^0;7^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(669.9,11,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(669.9,11,21,0)="^^3^3^2910915^^^^"
^DD(669.9,11,21,1,0)="GROUPER COUNTER is used in the calculation of AMIS reports"
^DD(669.9,11,21,2,0)="both in Purchasing and Issue from Stock Modules.  This field should"
^DD(669.9,11,21,3,0)="NEVER BE CHANGED!"
^DD(669.9,11,23,0)="^^3^3^2910915^^^"
^DD(669.9,11,23,1,0)="Counted backwards from 99999999 and placed in file 660 in the AMIS "
^DD(669.9,11,23,2,0)="GROUPER field, to be used in AMIS calculations from Purchasing and"
^DD(669.9,11,23,3,0)="Issue from Stock."
^DD(669.9,11,"DT")="2910211"
^DD(669.9,15,0)="ART LIMBS PSC AMOUNT^NJ6,2^^2;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999)!(X<2) X"
^DD(669.9,15,3)="Type a Dollar Amount between 2 and 999, 2 Decimal Digits"
^DD(669.9,15,21,0)="^^1^1^2910915^^"
^DD(669.9,15,21,1,0)="When a 10-2520 is issued, certain dollar limits are set for artifical limbs."
^DD(669.9,15,"DT")="2900914"
^DD(669.9,16,0)="WHEELCHAIR PSC AMOUNT^NJ6,2^^2;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999)!(X<2) X"
^DD(669.9,16,3)="Type a Dollar Amount between 2 and 999, 2 Decimal Digits"
^DD(669.9,16,21,0)="^^1^1^2910915^^"
^DD(669.9,16,21,1,0)="When a 10-2520 is issued, certain dollar limits are set for wheelchairs."
^DD(669.9,16,"DT")="2900914"
^DD(669.9,17,0)="BRACES PSC AMOUNT^NJ6,2^^2;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999)!(X<2) X"
^DD(669.9,17,3)="Type a Dollar Amount between 2 and 999, 2 Decimal Digits"
^DD(669.9,17,21,0)="^^1^1^2910915^^"
^DD(669.9,17,21,1,0)="When a 10-2520 is issued, certain dollar limits are set for braces."
^DD(669.9,17,"DT")="2900914"
^DD(669.9,18,0)="BLIND AIDS PSC AMOUNT^NJ6,2^^2;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999)!(X<2) X"
^DD(669.9,18,3)="Type a Dollar Amount between 2 and 999, 2 Decimal Digits"
^DD(669.9,18,21,0)="^^1^1^2910915^^"
^DD(669.9,18,21,1,0)="When a 10-2520 is issued, certain dollar limits are set for blind aids."
^DD(669.9,18,"DT")="2900914"
^DD(669.9,19,0)="SUSPENSE PURGE^RNJ3,0^^0;8^K:+X'=X!(X>730)!(X<90)!(X?.E1"".""1N.N) X"
^DD(669.9,19,.1)="NUMBER OF DAYS TO RETAIN CLOSED SUSPENSE"
^DD(669.9,19,3)="Type a Number between 90 and 730, 0 Decimal Digits"
^DD(669.9,19,21,0)="^^2^2^2910717^^^^"
^DD(669.9,19,21,1,0)="This is the number of days for the suspense records to remain in the file"
^DD(669.9,19,21,2,0)="once they have been completed."
^DD(669.9,19,"DT")="2910717"
^DD(669.9,20,0)="CLOSE-OUT PURCHASING PURGE^RNJ3,0^^0;9^K:+X'=X!(X>730)!(X<120)!(X?.E1"".""1N.N) X"
^DD(669.9,20,.1)="NUMBER OF DAYS TO RETAIN CLOSED PURCHASING TRANSACTIONS"
^DD(669.9,20,3)="Type a Number between 120 and 730, 0 Decimal Digits"
^DD(669.9,20,21,0)="^^2^2^2950911^"
^DD(669.9,20,21,1,0)="This is the number of days to keep old transactions in the file."
^DD(669.9,20,21,2,0)="It is recommended that this be set to 120 days. days."
^DD(669.9,20,"DT")="2950911"
^DD(669.9,21,0)="CANCELLATION PURCHASING PURGE^RNJ3,0^^0;10^K:+X'=X!(X>730)!(X<120)!(X?.E1"".""1N.N) X"
^DD(669.9,21,.1)="NUMBER OF DAYS TO RETAIN CANCELLED TRANSACTIONS"
^DD(669.9,21,3)="Type a Number between 120 and 730, 0 Decimal Digits"
^DD(669.9,21,21,0)="^^2^2^2950911^"
^DD(669.9,21,21,1,0)="This is the number of days to keep transactions that have been cancelled."
^DD(669.9,21,21,2,0)="It is recommended that this be set to 120 days."
^DD(669.9,21,"DT")="2950911"
^DD(669.9,22,0)="PROSTHETICS CLINIC^669.922PA^^1;0"
^DD(669.9,27,0)="ORTHOTIC LAB DEVICE^P3.5'^%ZIS(1,^DEV;2^Q"
^DD(669.9,27,3)="Enter the Name of the Device that will print the 2529-3 for the Orthotic Lab"
^DD(669.9,27,21,0)="^^3^3^2960122^"
^DD(669.9,27,21,1,0)="This is an optional entry.  If a device name is entered, it will be the"
^DD(669.9,27,21,2,0)="device the 2529-3s will print on for the Orthostics Lab."
^DD(669.9,27,21,3,0)="If the field is left null the user will be prompted to enter a device."
^DD(669.9,27,"DT")="2940816"
^DD(669.9,28,0)="RESTORATION CLINIC DEVICE^P3.5'^%ZIS(1,^DEV;3^Q"
^DD(669.9,28,3)="Enter the Name of the Device that will print the 2529-3 for the Restoration Clinic"
^DD(669.9,28,21,0)="^^3^3^2960122^^"
^DD(669.9,28,21,1,0)="Entry of a DEVICE is optional.  If a device name is entered, the device"
^DD(669.9,28,21,2,0)="will print 2529-3s for the Restoration Clinic.  If the field is null, the"
^DD(669.9,28,21,3,0)="users will be prompted to enter a device."
^DD(669.9,28,"DT")="2940816"
^DD(669.9,29,0)="SHOE LAST CLINIC DEVICE^P3.5'^%ZIS(1,^DEV;4^Q"
^DD(669.9,29,3)="Enter the Name of the Device that will print the 2529-3 for the Shoe Last Clinic"
^DD(669.9,29,21,0)="^^2^2^2960122^"
^DD(669.9,29,21,1,0)="This is th e device that will print the 2529-3 for the Shoe Last Clinic."
^DD(669.9,29,21,2,0)="If the field is null, the user will be prompted to enter the device."
^DD(669.9,29,"DT")="2940830"
^DD(669.9,30,0)="WHEELCHAIR REPAIR SHOP DEVICE^P3.5'^%ZIS(1,^DEV;5^Q"
^DD(669.9,30,3)="Enter the Name of the Device that will print the 2529-3 for the WheelChair Repair Shop."
^DD(669.9,30,21,0)="^^2^2^2960122^"
^DD(669.9,30,21,1,0)="This is the device that will print the 2529-3s for the Wheelchair Repair"
^DD(669.9,30,21,2,0)="Shop.  If this field is null, the user will be asked to enter the device."
^DD(669.9,30,"DT")="2940830"
^DD(669.9,31,0)="LAB^S^1:YES;0:NO;^0;6^Q"
^DD(669.9,31,3)="Enter '1' if your are an Orthotic Lab, Restoration Clinic, WheelChair Repair Shop, Ect."
^DD(669.9,31,21,0)="^^2^2^2980429^^^"
^DD(669.9,31,21,1,0)="This field turns on the lab module.  The Labs are on if ths field is set"
^DD(669.9,31,21,2,0)="to 'yes'."
^DD(669.9,31,"DT")="2950725"
^DD(669.9,32,0)="ORTHOTICS LAB ACTIVATED?^S^1:YES;^0;11^Q"
^DD(669.9,32,3)="Enter 'Yes' or 'Y'  or 1 if the Orthotics Lab is activated at this station."
^DD(669.9,32,21,0)="^^2^2^2960122^"
^DD(669.9,32,21,1,0)="This field will contain a 1 if the Orthotics Lab has been activated at"
^DD(669.9,32,21,2,0)="this station."
^DD(669.9,32,"DT")="2950405"
^DD(669.9,33,0)="RESTORATION LAB ACTIVATED?^S^1:YES;^0;12^Q"
^DD(669.9,33,3)="Enter 'Yes' or 'Y' or '1' to indicate Shoe Last Clinic should be activated."
^DD(669.9,33,21,0)="^^2^2^2960122^^"
^DD(669.9,33,21,1,0)="A '1' in this field indicates that Restoration Clinic has been activated"
^DD(669.9,33,21,2,0)="at this station."
^DD(669.9,33,"DT")="2950406"
^DD(669.9,34,0)="ROUTING NUMBER^F^^0;13^K:$L(X)>7!($L(X)<1) X"
^DD(669.9,34,3)="Answer must be 1-7 characters in length"
^DD(669.9,34,21,0)="^^3^3^3010213^"
^DD(669.9,34,21,1,0)="This field is the mail routing symbol, which is printed on purchasing"
^DD(669.9,34,21,2,0)="forms.  The mail routing symbol '121' is being replaced by the value"
^DD(669.9,34,21,3,0)="entered in this field."
^DD(669.9,34,"DT")="3010213"
^DD(669.9,35,0)="INVENTORY DEVICE^P3.5'^%ZIS(1,^INV;1^Q"
^DD(669.9,35,21,0)="^^2^2^2980904^"
^DD(669.9,35,21,1,0)="This is a device that will print a Notification letter for Items below the"
^DD(669.9,35,21,2,0)="re-order level."
^DD(669.9,35,"DT")="2980904"
^DD(669.9,37,0)="NOTIFICATION DATE^D^^INV;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(669.9,37,21,0)="^^2^2^2980904^"
^DD(669.9,37,21,1,0)="This is the date that a taskman job runs for the Notification"
^DD(669.9,37,21,2,0)="letter."
^DD(669.9,37,"DT")="2980904"
^DD(669.9,38,0)="HQ MAIL ADDRESS^F^^INV;4^K:$L(X)>45!($L(X)<12) X"
^DD(669.9,38,3)="Answer must be 12-45 characters in length."
^DD(669.9,38,21,0)="^.001^1^1^3001011^^"
^DD(669.9,38,21,1,0)="This is an exchange address for HQ personnel who will receive the PIP reports."
^DD(669.9,38,"DT")="3001011"
^DD(669.9,39,0)="HQ REPORT DATE^D^^INV;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(669.9,39,21,0)="^^1^1^3000804^"
^DD(669.9,39,21,1,0)="Date when PIP report was ran for HQ."
^DD(669.9,39,"DT")="3000804"
^DD(669.9,40,0)="VISN^NJ2,0^^INV;2^K:+X'=X!(X>40)!(X<1)!(X?.E1"".""1N.N) X"
^DD(669.9,40,3)="Type a Number between 1 and 40, 0 Decimal Digits"
^DD(669.9,40,21,0)="^^1^1^3001013^"
^DD(669.9,40,21,1,0)="This is the VISN where this station belong to."
^DD(669.9,40,"DT")="3001013"
^DD(669.9,50,0)="PCE START DATE^D^^PCE;1^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(669.9,50,21,0)="^^1^1^3010716^"
^DD(669.9,50,21,1,0)="PCE START DATE is the starting date and time the background job runs."
^DD(669.9,50,"DT")="3010716"
^DD(669.9,51,0)="PCE END DATE^D^^PCE;2^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(669.9,51,21,0)="^^2^2^3010716^"
^DD(669.9,51,21,1,0)="PCE END DATE  is the date and time the PCE background job finish to"
^DD(669.9,51,21,2,0)="completion."
^DD(669.9,51,"DT")="3010716"
^DD(669.9,52,0)="PCE HOSPITAL LOCATION^P44'^SC(^PCE;3^Q"
^DD(669.9,52,21,0)="^.001^2^2^3011016^^"
^DD(669.9,52,21,1,0)="This is a pointer to Hopital Location file (#44), a clinic, where "
^DD(669.9,52,21,2,0)="prosthetics outpatient encounter is scheduled."
^DD(669.9,52,"DT")="3011015"
^DD(669.9,60,0)="HOME OXYGEN PRESCRIPTION^669.9001^^RMPORXN;0"
^DD(669.9,60,"DT")="2981214"
^DD(669.9,61,0)="HOME OXYGEN FUND CONTROL POINT^669.961^^RMPOFCP;0"
^DD(669.9,61,21,0)="^.001^1^1^3041122^^^"
^DD(669.9,61,21,1,0)="This field contains the fund control points used by home oxygen."
^DD(669.9,61,"DT")="2981215"
^DD(669.9,62,0)="HOME OXYGEN VENDOR^669.962P^^RMPOVDR;0"
^DD(669.9,62,21,0)="^^2^2^2990318^"
^DD(669.9,62,21,1,0)="This field contains the vendors that supply devices and services for home"
^DD(669.9,62,21,2,0)="oxygen."
^DD(669.9,62,"DT")="2981214"
^DD(669.9,65,0)="HOME OXYGEN LETTER^669.965P^^RMPOLET;0"
^DD(669.9,65,21,0)="^^2^2^2990318^"
^DD(669.9,65,21,1,0)="This field contains the letter types that are sent to patient receiving"
^DD(669.9,65,21,2,0)="home oxygen."
^DD(669.9,70,0)="HO LETTER 1 LIST^669.9002P^^RMPOXBAT1;0"
^DD(669.9,70,21,0)="^^1^1^2990614^"
^DD(669.9,70,21,1,0)="List of all patients who get Home Oxygen letter 1."
^DD(669.9,70,"DT")="2990614"
^DD(669.9,72,0)="HO LETTER 2 LIST^669.972P^^RMPOXBAT2;0"
^DD(669.9,72,21,0)="^^1^1^2990614^"
^DD(669.9,72,21,1,0)="List of all patients who get Home Oxygen letter 2."
^DD(669.9,72,"DT")="2990614"
^DD(669.9,74,0)="HO LETTER 3 LIST^669.974P^^RMPOXBAT3;0"
^DD(669.9,74,21,0)="^^1^1^2990614^"
^DD(669.9,74,21,1,0)="List of all patient who get Home Oxygen letter 3."
^DD(669.9,74,"DT")="2990614"
^DD(669.9,"B","ART LIMBS PSC AMOUNT",15)=""
^DD(669.9,"B","AUTOMATED INVENTORY (GIP)",2)=""
^DD(669.9,"B","BLIND AIDS PSC AMOUNT",18)=""
^DD(669.9,"B","BRACES PSC AMOUNT",17)=""
^DD(669.9,"B","CANCELLATION PURCHASING PURGE",21)=""
^DD(669.9,"B","CHIEF SIG BLOCK",8)=""
^DD(669.9,"B","CITY",5)=""
^DD(669.9,"B","CLOSE-OUT PURCHASING PURGE",20)=""
^DD(669.9,"B","COMMON NUMBERING SERIES",10)=""
^DD(669.9,"B","GROUPER COUNTER",11)=""
^DD(669.9,"B","HO LETTER 1 LIST",70)=""
^DD(669.9,"B","HO LETTER 2 LIST",72)=""
^DD(669.9,"B","HO LETTER 3 LIST",74)=""
^DD(669.9,"B","HOME OXYGEN FUND CONTROL POINT",61)=""
^DD(669.9,"B","HOME OXYGEN LETTER",65)=""
^DD(669.9,"B","HOME OXYGEN PRESCRIPTION",60)=""
^DD(669.9,"B","HOME OXYGEN VENDOR",62)=""
^DD(669.9,"B","HQ MAIL ADDRESS",38)=""
^DD(669.9,"B","HQ REPORT DATE",39)=""
^DD(669.9,"B","IFCAP SITE",1.1)=""
^DD(669.9,"B","INVENTORY DEVICE",35)=""
^DD(669.9,"B","LAB",31)=""
^DD(669.9,"B","MANAGER COMMENT",7.1)=""
^DD(669.9,"B","NOTIFICATION DATE",37)=""
^DD(669.9,"B","ORTHOTIC LAB DEVICE",27)=""
^DD(669.9,"B","ORTHOTICS LAB ACTIVATED?",32)=""
^DD(669.9,"B","PCE END DATE",51)=""
^DD(669.9,"B","PCE HOSPITAL LOCATION",52)=""
^DD(669.9,"B","PCE START DATE",50)=""
^DD(669.9,"B","PHONE NUMBER",3)=""
^DD(669.9,"B","PROSTHETICS CLINIC",22)=""
^DD(669.9,"B","PURCHASING AGENT",8.1)=""
^DD(669.9,"B","PURCHASING DEVICE",9)=""
^DD(669.9,"B","RESTORATION CLINIC DEVICE",28)=""
^DD(669.9,"B","RESTORATION LAB ACTIVATED?",33)=""
^DD(669.9,"B","ROUTING NUMBER",34)=""
^DD(669.9,"B","SHOE LAST CLINIC DEVICE",29)=""
^DD(669.9,"B","SIGNATURE BLOCK TITLE",8.5)=""
^DD(669.9,"B","SITE NAME",.01)=""
^DD(669.9,"B","STATE",6)=""
^DD(669.9,"B","STATION",1)=""
^DD(669.9,"B","STREET ADD1",4)=""
^DD(669.9,"B","SUSPENSE PURGE",19)=""
^DD(669.9,"B","VISN",40)=""
^DD(669.9,"B","WHEELCHAIR PSC AMOUNT",16)=""
^DD(669.9,"B","WHEELCHAIR REPAIR SHOP DEVICE",30)=""
^DD(669.9,"B","ZIP CODE",7)=""
^DD(669.9,"GL",0,1,.01)=""
^DD(669.9,"GL",0,2,1)=""
^DD(669.9,"GL",0,3,2)=""
^DD(669.9,"GL",0,4,3)=""
^DD(669.9,"GL",0,5,9)=""
^DD(669.9,"GL",0,6,31)=""
^DD(669.9,"GL",0,7,11)=""
^DD(669.9,"GL",0,8,19)=""
^DD(669.9,"GL",0,9,20)=""
^DD(669.9,"GL",0,10,21)=""
^DD(669.9,"GL",0,11,32)=""
^DD(669.9,"GL",0,12,33)=""
^DD(669.9,"GL",0,13,34)=""
^DD(669.9,"GL",1,0,22)=""
^DD(669.9,"GL",2,1,8.5)=""
^DD(669.9,"GL",2,2,4)=""
^DD(669.9,"GL",2,3,5)=""
^DD(669.9,"GL",2,4,6)=""
^DD(669.9,"GL",2,5,7)=""
^DD(669.9,"GL",2,6,8)=""
^DD(669.9,"GL",2,7,15)=""
^DD(669.9,"GL",2,8,16)=""
^DD(669.9,"GL",2,9,17)=""
^DD(669.9,"GL",2,10,18)=""
^DD(669.9,"GL",4,1,1.1)=""
^DD(669.9,"GL",4,2,10)=""
^DD(669.9,"GL",5,0,8.1)=""
^DD(669.9,"GL",6,1,7.1)=""
^DD(669.9,"GL","DEV",2,27)=""
^DD(669.9,"GL","DEV",3,28)=""
^DD(669.9,"GL","DEV",4,29)=""
^DD(669.9,"GL","DEV",5,30)=""
^DD(669.9,"GL","INV",1,35)=""
^DD(669.9,"GL","INV",2,40)=""
^DD(669.9,"GL","INV",3,37)=""
^DD(669.9,"GL","INV",4,38)=""
^DD(669.9,"GL","INV",5,39)=""
^DD(669.9,"GL","PCE",1,50)=""
^DD(669.9,"GL","PCE",2,51)=""
^DD(669.9,"GL","PCE",3,52)=""
^DD(669.9,"GL","RMPOFCP",0,61)=""
^DD(669.9,"GL","RMPOLET",0,65)=""
^DD(669.9,"GL","RMPORXN",0,60)=""
^DD(669.9,"GL","RMPOVDR",0,62)=""
^DD(669.9,"GL","RMPOXBAT1",0,70)=""
^DD(669.9,"GL","RMPOXBAT2",0,72)=""
^DD(669.9,"GL","RMPOXBAT3",0,74)=""
^DD(669.9,"IX",.01)=""
^DD(669.9,"IX",1)=""
^DD(669.9,"RQ",.01)=""
^DD(669.9,"RQ",2)=""
^DD(669.9,"RQ",4)=""
^DD(669.9,"RQ",5)=""
^DD(669.9,"RQ",6)=""
^DD(669.9,"RQ",7)=""
^DD(669.9,"RQ",8)=""
^DD(669.9,"RQ",19)=""
^DD(669.9,"RQ",20)=""
^DD(669.9,"RQ",21)=""
^DD(669.9,"SB",669.9001,60)=""
^DD(669.9,"SB",669.9002,70)=""
^DD(669.9,"SB",669.9003,8.1)=""
^DD(669.9,"SB",669.922,22)=""
^DD(669.9,"SB",669.961,61)=""
^DD(669.9,"SB",669.962,62)=""
^DD(669.9,"SB",669.965,65)=""
^DD(669.9,"SB",669.972,72)=""
^DD(669.9,"SB",669.974,74)=""
^DD(669.9001,0)="HOME OXYGEN PRESCRIPTION SUB-FIELD^^1^2"
^DD(669.9001,0,"DT")="2990701"
^DD(669.9001,0,"IX","B",669.9001,.01)=""
^DD(669.9001,0,"NM","HOME OXYGEN PRESCRIPTION")=""
^DD(669.9001,0,"UP")="669.9"
^DD(669.9001,.01,0)="PRESCRIPTION SEQUENCE NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(669.9001,.01,.1)=""
^DD(669.9001,.01,1,0)="^.1"
^DD(669.9001,.01,1,1,0)="669.9001^B"
^DD(669.9001,.01,1,1,1)="S ^RMPR(669.9,DA(1),""RMPORXN"",""B"",$E(X,1,30),DA)="""""
^DD(669.9001,.01,1,1,2)="K ^RMPR(669.9,DA(1),""RMPORXN"",""B"",$E(X,1,30),DA)"
^DD(669.9001,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(669.9001,.01,21,0)="^^5^5^2990701^^"
^DD(669.9001,.01,21,1,0)="Prescriptions arrive for each patient, either in regular intervals"
^DD(669.9001,.01,21,2,0)="or as amendments to the current prescription.  The PRESCRIPTION SEQUENCE "
^DD(669.9001,.01,21,3,0)="NUMBER denotes the order in which they arrive.  Therefore, the"
^DD(669.9001,.01,21,4,0)="prescription number that is the highest usually is the one that expires"
^DD(669.9001,.01,21,5,0)="last."
^DD(669.9001,.01,"DT")="2990701"
^DD(669.9001,1,0)="DEFAULT DAYS TO EXPIRATION^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(669.9001,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(669.9001,1,21,0)="^^7^7^2990317^"
^DD(669.9001,1,21,1,0)="Each prescription expires on a certain date (legally and by policy)."
^DD(669.9001,1,21,2,0)="Usually, the first prescription expires 6 months after it is written,"
^DD(669.9001,1,21,3,0)="the second prescription expires 6 months after it is written, and the"
^DD(669.9001,1,21,4,0)="third precription and all subsequent prescriptions expires one year after "
^DD(669.9001,1,21,5,0)="they are written.  The value of this field is used to determine a default"
^DD(669.9001,1,21,6,0)="answer for the expiration date of a prescription when a new prescription"
^DD(669.9001,1,21,7,0)="record is created."
^DD(669.9001,1,23,0)="^^4^4^2990317^^^"
^DD(669.9001,1,23,1,0)="When the user is prompted for an expiration date for a prescription,"
^DD(669.9001,1,23,2,0)="the system calculates this date by adding the value of this field to"
^DD(669.9001,1,23,3,0)="the ACTIVATION DATE of the prescription.  The result is used to prompt"
^DD(669.9001,1,23,4,0)="the user for a default date of expiration for prescriptions."
^DD(669.9001,1,"DT")="2980512"
^DD(669.9001,"B","DEFAULT DAYS TO EXPIRATION",1)=""
^DD(669.9001,"B","PRESCRIPTION SEQUENCE NUMBER",.01)=""
^DD(669.9001,"GL",0,1,.01)=""
^DD(669.9001,"GL",0,2,1)=""
^DD(669.9001,"IX",.01)=""
^DD(669.9002,0)="HO LETTER 1 LIST SUB-FIELD^^.01^1"
^DD(669.9002,0,"DT")="2990614"
^DD(669.9002,0,"IX","B",669.9002,.01)=""
^DD(669.9002,0,"NM","HO LETTER 1 LIST")=""
^DD(669.9002,0,"UP")="669.9"
^DD(669.9002,.01,0)="PATIENT^P665^RMPR(665,^0;1^Q"
^DD(669.9002,.01,1,0)="^.1"
^DD(669.9002,.01,1,1,0)="669.9002^B"
^DD(669.9002,.01,1,1,1)="S ^RMPR(669.9,DA(1),""RMPOXBAT1"",""B"",$E(X,1,30),DA)="""""
^DD(669.9002,.01,1,1,2)="K ^RMPR(669.9,DA(1),""RMPOXBAT1"",""B"",$E(X,1,30),DA)"
^DD(669.9002,.01,21,0)="^^1^1^2990614^^"
^DD(669.9002,.01,21,1,0)="This is the patient who gets Home Oxygen letter 1."
^DD(669.9002,.01,"DT")="2990614"
^DD(669.9002,"B","PATIENT",.01)=""
^DD(669.9002,"GL",0,1,.01)=""
^DD(669.9002,"IX",.01)=""
^DD(669.9003,0)="PURCHASING AGENT SUB-FIELD^^2^3"
^DD(669.9003,0,"DT")="3031125"
^DD(669.9003,0,"IX","B",669.9003,.01)=""
^DD(669.9003,0,"NM","PURCHASING AGENT")=""
^DD(669.9003,0,"UP")="669.9"
^DD(669.9003,.01,0)="PURCHASING AGENT^P200'^VA(200,^0;1^Q"
^DD(669.9003,.01,1,0)="^.1"
^DD(669.9003,.01,1,1,0)="669.9003^B"
^DD(669.9003,.01,1,1,1)="S ^RMPR(669.9,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(669.9003,.01,1,1,2)="K ^RMPR(669.9,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(669.9003,.01,1,2,0)="669.9^PA^MUMPS"
^DD(669.9003,.01,1,2,1)="D EN1^RMPR9X"
^DD(669.9003,.01,1,2,2)="D KILL1^RMPR9X"
^DD(669.9003,.01,1,2,"DT")="3020918"
^DD(669.9003,.01,21,0)="^.001^1^1^3050623^^"
^DD(669.9003,.01,21,1,0)="This is a person who is allowed to serve as a purchasing agent for prosthetics."
^DD(669.9003,.01,"DT")="3020918"
^DD(669.9003,1,0)="START RANGE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(669.9003,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(669.9003,1,21,0)="^^1^1^3050602^"
^DD(669.9003,1,21,1,0)="The 2 digit number for the Purchasing Agents starting SSN range 00-99."
^DD(669.9003,1,"DT")="3020828"
^DD(669.9003,2,0)="STOP RANGE^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(669.9003,2,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(669.9003,2,21,0)="^^1^1^3050602^"
^DD(669.9003,2,21,1,0)="The 2 digit number for the Purchasing Agents ending SSN range 00-99."
^DD(669.9003,2,"DT")="3020828"
^DD(669.9003,"B","PURCHASING AGENT",.01)=""
^DD(669.9003,"B","START RANGE",1)=""
^DD(669.9003,"B","STOP RANGE",2)=""
^DD(669.9003,"GL",0,1,.01)=""
^DD(669.9003,"GL",0,2,1)=""
^DD(669.9003,"GL",0,3,2)=""
^DD(669.9003,"IX",.01)=""
^DD(669.922,0)="PROSTHETICS CLINIC SUB-FIELD^^.01^1"
^DD(669.922,0,"DT")="2930429"
^DD(669.922,0,"IX","AC",669.922,.01)=""
^DD(669.922,0,"IX","B",669.922,.01)=""
^DD(669.922,0,"NM","PROSTHETICS CLINIC")=""
^DD(669.922,0,"UP")="669.9"
^DD(669.922,.01,0)="PROSTHETICS CLINIC^M*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)[""""C"""" S ZT=$G(^(""""I"""")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>DT)&('$P(ZT,U,2)) ZV=0 I ZV=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(669.922,.01,1,0)="^.1"
^DD(669.922,.01,1,1,0)="669.922^B"
^DD(669.922,.01,1,1,1)="S ^RMPR(669.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(669.922,.01,1,1,2)="K ^RMPR(669.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(669.922,.01,1,2,0)="669.922^AC^MUMPS"
^DD(669.922,.01,1,2,1)="I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) S:ZST ^RMPR(669.9,""AC"",X,ZST,DA(1),DA)="""" K ZST"
^DD(669.922,.01,1,2,2)="I $D(^RMPR(669.9,DA(1),0)) S ZST=$P(^(0),U,2) K:ZST ^RMPR(669.9,""AC"",X,ZST,DA(1),DA) K ZST"
^DD(669.922,.01,1,2,"%D",0)="^^2^2^2930519^^^^"
^DD(669.922,.01,1,2,"%D",1,0)="This x-ref is used by the RMPRSC routine to check if the MAS appointment "
^DD(669.922,.01,1,2,"%D",2,0)="being entered or changed is for a Prosthetics Clinic."
^DD(669.922,.01,1,2,"DT")="2930315"
^DD(669.922,.01,3)="Enter the name of the Prosthetics Scheduled Clinics"
^DD(669.922,.01,12)="Entry must be an active clinic"
^DD(669.922,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)[""""C"""" S ZT=$G(^(""""I"""")),ZV=1 S:$P(ZT,U,2>DT) ZV=0 S:$P(ZT,U)&($P(ZT,U)'>DT)&('$P(ZT,U,2)) ZV=0 I ZV=1"""
^DD(669.922,.01,"DT")="2940112"
^DD(669.922,"B","PROSTHETICS CLINIC",.01)=""
^DD(669.922,"GL",0,1,.01)=""
^DD(669.922,"IX",.01)=""
^DD(669.961,0)="HOME OXYGEN FUND CONTROL POINT SUB-FIELD^^2^3"
^DD(669.961,0,"DT")="3031027"
^DD(669.961,0,"IX","B",669.961,.01)=""
^DD(669.961,0,"NM","HOME OXYGEN FUND CONTROL POINT")=""
^DD(669.961,0,"UP")="669.9"
^DD(669.961,.01,0)="FUND CONTROL POINT^MFX^^0;1^D FCPIX^RMPOPED"
^DD(669.961,.01,1,0)="^.1"
^DD(669.961,.01,1,1,0)="669.961^B"
^DD(669.961,.01,1,1,1)="S ^RMPR(669.9,DA(1),""RMPOFCP"",""B"",$E(X,1,30),DA)="""""
^DD(669.961,.01,1,1,2)="K ^RMPR(669.9,DA(1),""RMPOFCP"",""B"",$E(X,1,30),DA)"
^DD(669.961,.01,3)="Enter a Fund Control Point"
^DD(669.961,.01,4)=""
^DD(669.961,.01,21,0)="^^1^1^2990701^^^"
^DD(669.961,.01,21,1,0)="This is a Fund Control Point used for home oxygen."
^DD(669.961,.01,"DT")="2990217"
^DD(669.961,1,0)="PSAS?^S^Y:YES, PSAS FCP;N:NO, OTHER FCP;^0;2^Q"
^DD(669.961,1,3)="Enter 'Y' if this is a PSAS FCP."
^DD(669.961,1,21,0)="^^2^2^2990318^^"
^DD(669.961,1,21,1,0)="If this is a PSAS Fund Control Point, then enter 'Y'.  If this isn't a"
^DD(669.961,1,21,2,0)="PSAS Fund Control Point, then enter 'N'."
^DD(669.961,1,"DT")="2981214"
^DD(669.961,2,0)="PURCHASE CARD NUMBER^F^^0;3^K:$L(X)>16!($L(X)<16) X"
^DD(669.961,2,3)="Answer must be 16 characters in length."
^DD(669.961,2,"DT")="3020212"
^DD(669.961,"B","FUND CONTROL POINT",.01)=""
^DD(669.961,"B","PSAS?",1)=""
^DD(669.961,"B","PURCHASE CARD NUMBER",2)=""
^DD(669.961,"GL",0,1,.01)=""
^DD(669.961,"GL",0,2,1)=""
^DD(669.961,"GL",0,3,2)=""
^DD(669.961,"IX",.01)=""
^DD(669.962,0)="HOME OXYGEN VENDOR SUB-FIELD^^.01^1"
^DD(669.962,0,"DT")="2981214"
^DD(669.962,0,"IX","B",669.962,.01)=""
^DD(669.962,0,"NM","HOME OXYGEN VENDOR")=""
^DD(669.962,0,"UP")="669.9"
^DD(669.962,.01,0)="HOME OXYGEN VENDORS^MP440'X^PRC(440,^0;1^S DINUM=X"
^DD(669.962,.01,1,0)="^.1"
^DD(669.962,.01,1,1,0)="669.962^B"
^DD(669.962,.01,1,1,1)="S ^RMPR(669.9,DA(1),""RMPOVDR"",""B"",$E(X,1,30),DA)="""""
^DD(669.962,.01,1,1,2)="K ^RMPR(669.9,DA(1),""RMPOVDR"",""B"",$E(X,1,30),DA)"
^DD(669.962,.01,3)="Enter a vendor that provides home oxygen."
^DD(669.962,.01,21,0)="^^1^1^2990318^"
^DD(669.962,.01,21,1,0)="This is a vendor that provides home oxygen devices and services."
^DD(669.962,.01,"DT")="2981214"
^DD(669.962,"B","HOME OXYGEN VENDORS",.01)=""
^DD(669.962,"GL",0,1,.01)=""
^DD(669.962,"IX",.01)=""
^DD(669.965,0)="HOME OXYGEN LETTER SUB-FIELD^^4^5"
^DD(669.965,0,"DT")="2990616"
^DD(669.965,0,"IX","B",669.965,.01)=""
^DD(669.965,0,"NM","HOME OXYGEN LETTER")=""
^DD(669.965,0,"UP")="669.9"
^DD(669.965,.01,0)="HOME OXYGEN LETTER^MP665.2^RMPR(665.2,^0;1^Q"
^DD(669.965,.01,1,0)="^.1"
^DD(669.965,.01,1,1,0)="669.965^B"
^DD(669.965,.01,1,1,1)="S ^RMPR(669.9,DA(1),""RMPOLET"",""B"",$E(X,1,30),DA)="""""
^DD(669.965,.01,1,1,2)="K ^RMPR(669.9,DA(1),""RMPOLET"",""B"",$E(X,1,30),DA)"
^DD(669.965,.01,3)="Select a home oxygen letter."
^DD(669.965,.01,21,0)="^^4^4^2990318^"
^DD(669.965,.01,21,1,0)="This is the name of a letter that will be sent to a patient to welcome"
^DD(669.965,.01,21,2,0)="that patient to the home oxygen program, remind the patient to renew the"
^DD(669.965,.01,21,3,0)="prescription, or to tell the patient that s/he is no longer in the home"
^DD(669.965,.01,21,4,0)="oxygen program."
^DD(669.965,.01,"DT")="2980512"
^DD(669.965,1,0)="LETTER CODE^S^A:LETTER 1;B:LETTER 2;C:LETTER 3;^0;2^Q"
^DD(669.965,1,1,0)="^.1^^0"
^DD(669.965,1,3)="Select the code for the letter."
^DD(669.965,1,21,0)="^^3^3^2990616^^"
^DD(669.965,1,21,1,0)="Each letter has a letter code for quick reference, instead of its"
^DD(669.965,1,21,2,0)="potentially very long name.  This is the code that summarizes what the"
^DD(669.965,1,21,3,0)="letter will be used for."
^DD(669.965,1,"DT")="2990616"
^DD(669.965,2,0)="DAYS TO PRESCRIPTION EXPIRY^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(669.965,2,1,0)="^.1"
^DD(669.965,2,1,1,0)="669.9^ALTDY"
^DD(669.965,2,1,1,1)="S ^RMPR(669.9,""ALTDY"",$E(X,1,30),DA(1),DA)="""""
^DD(669.965,2,1,1,2)="K ^RMPR(669.9,""ALTDY"",$E(X,1,30),DA(1),DA)"
^DD(669.965,2,1,1,"DT")="2981115"
^DD(669.965,2,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(669.965,2,21,0)="^^4^4^2990318^"
^DD(669.965,2,21,1,0)="The letter for pending prescription expiry is produced when there are at"
^DD(669.965,2,21,2,0)="most this number of days until the prescription expires. If this is a"
^DD(669.965,2,21,3,0)="welcome letter, enter '0' so the letter will be generated the day the"
^DD(669.965,2,21,4,0)="patient is activated."
^DD(669.965,2,"DT")="2981115"
^DD(669.965,3,0)="AUTOGENERATE LETTER^RS^1:YES;0:NO;^0;4^Q"
^DD(669.965,3,3)="Enter ""Y"" to autogenerate letter."
^DD(669.965,3,21,0)="^^3^3^2990318^"
^DD(669.965,3,21,1,0)="If you want the patient to appear on a list of patients who are due to"
^DD(669.965,3,21,2,0)="receive letters, enter 1 for YES at this prompt.  If not, enter 0 for NO."
^DD(669.965,3,21,3,0)="If YES, the letter is autogenerated and ready fo be printed."
^DD(669.965,3,"DT")="2981202"
^DD(669.965,4,0)="PRINT LETTER HEADER^RS^1:YES;0:NO;^0;5^Q"
^DD(669.965,4,3)="Enter ""Y"" to include letter header."
^DD(669.965,4,21,0)="^^3^3^2990318^"
^DD(669.965,4,21,1,0)="If you print your letters to paper that contains a letterhead, then enter"
^DD(669.965,4,21,2,0)="0 for NO at this prompt.  If you want the program to print the header"
^DD(669.965,4,21,3,0)="information, enter 1 for YES at this prompt."
^DD(669.965,4,"DT")="2981202"
^DD(669.965,"B","AUTOGENERATE LETTER",3)=""
^DD(669.965,"B","DAYS TO PRESCRIPTION EXPIRY",2)=""
^DD(669.965,"B","HOME OXYGEN LETTER",.01)=""
^DD(669.965,"B","LETTER CODE",1)=""
^DD(669.965,"B","PRINT LETTER HEADER",4)=""
^DD(669.965,"GL",0,1,.01)=""
^DD(669.965,"GL",0,2,1)=""
^DD(669.965,"GL",0,3,2)=""
^DD(669.965,"GL",0,4,3)=""
^DD(669.965,"GL",0,5,4)=""
^DD(669.965,"IX",.01)=""
^DD(669.965,"IX",2)=""
^DD(669.965,"RQ",3)=""
^DD(669.965,"RQ",4)=""
^DD(669.972,0)="HO LETTER 2 LIST SUB-FIELD^^.01^1"
^DD(669.972,0,"DT")="2990614"
^DD(669.972,0,"IX","B",669.972,.01)=""
^DD(669.972,0,"NM","HO LETTER 2 LIST")=""
^DD(669.972,0,"UP")="669.9"
^DD(669.972,.01,0)="PATIENT^P665'^RMPR(665,^0;1^Q"
^DD(669.972,.01,1,0)="^.1"
^DD(669.972,.01,1,1,0)="669.972^B"
^DD(669.972,.01,1,1,1)="S ^RMPR(669.9,DA(1),""RMPOXBAT2"",""B"",$E(X,1,30),DA)="""""
^DD(669.972,.01,1,1,2)="K ^RMPR(669.9,DA(1),""RMPOXBAT2"",""B"",$E(X,1,30),DA)"
^DD(669.972,.01,21,0)="^^1^1^2990614^"
^DD(669.972,.01,21,1,0)="This is the patient who gets Home Oxygen letter 2."
^DD(669.972,.01,"DT")="2990614"
^DD(669.972,"B","PATIENT",.01)=""
^DD(669.972,"GL",0,1,.01)=""
^DD(669.972,"IX",.01)=""
^DD(669.974,0)="HO LETTER 3 LIST SUB-FIELD^^.01^1"
^DD(669.974,0,"DT")="2990614"
^DD(669.974,0,"IX","B",669.974,.01)=""
^DD(669.974,0,"NM","HO LETTER 3 LIST")=""
^DD(669.974,0,"UP")="669.9"
^DD(669.974,.01,0)="PATIENT^RP665'^RMPR(665,^0;1^Q"
^DD(669.974,.01,1,0)="^.1"
^DD(669.974,.01,1,1,0)="669.974^B"
^DD(669.974,.01,1,1,1)="S ^RMPR(669.9,DA(1),""RMPOXBAT3"",""B"",$E(X,1,30),DA)="""""
^DD(669.974,.01,1,1,2)="K ^RMPR(669.9,DA(1),""RMPOXBAT3"",""B"",$E(X,1,30),DA)"
^DD(669.974,.01,21,0)="^^1^1^2990614^^"
^DD(669.974,.01,21,1,0)="This is the patient who gets Home Oxygen letter 2."
^DD(669.974,.01,"DT")="2990614"
^DD(669.974,"B","PATIENT",.01)=""
^DD(669.974,"GL",0,1,.01)=""
^DD(669.974,"IX",.01)=""
^DD(669.974,"RQ",.01)=""
^DD(680,0)="FIELD^^15^40"
^DD(680,0,"DDA")="N"
^DD(680,0,"DIK")="LBRYX1"
^DD(680,0,"DIKOLD")="LBRYX1"
^DD(680,0,"DT")="2970714"
^DD(680,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(680,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(680,0,"ID","Z01")="W !,?5,$E($P(^LBRY(680.5,$P(^(0),U,1),0),U,1),1,75)"
^DD(680,0,"IX","AC",680,.01)=""
^DD(680,0,"IX","AD",680,.02)=""
^DD(680,0,"IX","B",680,.01)=""
^DD(680,0,"IX","C",680.03,.01)=""
^DD(680,0,"IX","E",680,.04)=""
^DD(680,0,"NM","LOCAL SERIALS")=""
^DD(680,0,"PT",681,.02)=""
^DD(680,0,"PT",682,.02)=""
^DD(680,0,"VR")="2.5"
^DD(680,0,"VRPK")="LBR"
^DD(680,.01,0)="TITLE^RP680.5^LBRY(680.5,^0;1^Q"
^DD(680,.01,1,0)="^.1"
^DD(680,.01,1,1,0)="680^B"
^DD(680,.01,1,1,1)="S ^LBRY(680,""B"",$E(X,1,30),DA)="""""
^DD(680,.01,1,1,2)="K ^LBRY(680,""B"",$E(X,1,30),DA)"
^DD(680,.01,1,1,"%D",0)="^^1^1^2950725^"
^DD(680,.01,1,1,"%D",1,0)="Regular FileMan ""B"" cross-reference."
^DD(680,.01,1,3,0)="680^AC^MUMPS"
^DD(680,.01,1,3,1)="D NTIT^LBRYEDI"
^DD(680,.01,1,3,2)="Q"
^DD(680,.01,1,3,"%D",0)="^^5^5^2970714^^^^"
^DD(680,.01,1,3,"%D",1,0)="If this is a new entry, variable LBRYNEW, set the ADDED"
^DD(680,.01,1,3,"%D",2,0)="DATE field equal to the current date, DT in node 5, piece 1 in "
^DD(680,.01,1,3,"%D",3,0)="the Local Serials file (#680).  Also, since locally created new"
^DD(680,.01,1,3,"%D",4,0)="title, the LOCAL SERIALS FLAG will be set to ACTIVE LOCAL SERIALS"
^DD(680,.01,1,3,"%D",5,0)="in the Title Authority file (#680.5) in node 0, piece 2."
^DD(680,.01,1,3,"DT")="2950918"
^DD(680,.01,3)=""
^DD(680,.01,21,0)="^^9^9^2970709^^^^"
^DD(680,.01,21,1,0)="The title is the full title of a specific serial publication.  Such"
^DD(680,.01,21,2,0)="titles can be extremely long and the initial words in two different"
^DD(680,.01,21,3,0)="titles can be exactly the same for a considerable length, for example:"
^DD(680,.01,21,4,0)="SCANDINAVIAN JOURNAL OF PATHOLOGY AND LABORATORY MEDICINE"
^DD(680,.01,21,5,0)="SCANDINAVIAN JOURNAL OF PATHOLOGY AND LABORATORY MEDICINE. SUPPLEMENTUM"
^DD(680,.01,21,6,0)="Note:"
^DD(680,.01,21,7,0)="Since exact alphabetization of these titles is very important in the"
^DD(680,.01,21,8,0)="serials process, it is crucial that the field length be long enough"
^DD(680,.01,21,9,0)="to accommodate all possibilities."
^DD(680,.01,"DT")="2950918"
^DD(680,.02,0)="INACTIVE^SX^C:CANCELLED TITLE;D:DEAD TITLE;R:RENAMED TITLE;^0;2^Q"
^DD(680,.02,1,0)="^.1"
^DD(680,.02,1,1,0)="680^AD^MUMPS"
^DD(680,.02,1,1,1)="I $G(LBRYCLS)'="""",$D(^LBRY(680.5,LBRYCLS,0)) S $P(^LBRY(680.5,LBRYCLS,0),U,2)=2"
^DD(680,.02,1,1,2)="I $G(LBRYCLS)'="""",$D(^LBRY(680.5,LBRYCLS,0)) S $P(^LBRY(680.5,LBRYCLS,0),U,2)=1"
^DD(680,.02,1,1,"%D",0)="^^3^3^2970604^^^"
^DD(680,.02,1,1,"%D",1,0)="If any of the type is selected from the set of data, then the"
^DD(680,.02,1,1,"%D",2,0)="title is considered 'inactive' and will set the inactive flag"
^DD(680,.02,1,1,"%D",3,0)="in the Title Authority file."
^DD(680,.02,1,1,"DT")="2970604"
^DD(680,.02,3)="Enter 'C' if this title is no longer received, 'D' if this title is no longer published or 'R' if this title is renamed."
^DD(680,.02,4)="I X=""??"" S XQH=""LBRY INACTIVE HELP PROMPT"" D EN^XQH"
^DD(680,.02,21,0)="^^10^10^2970402^^^^"
^DD(680,.02,21,1,0)="If a title is 'active', meaning no value has been input for this"
^DD(680,.02,21,2,0)="field, that title is available for the full range of options,"
^DD(680,.02,21,3,0)="including all the Serials Control Option functions.  If it is"
^DD(680,.02,21,4,0)="rendered 'inactive' by one of the codes, it is no longer available"
^DD(680,.02,21,5,0)="for any of the Serials Control option functions and Copy Specific"
^DD(680,.02,21,6,0)="Edit, but can still be used in the Holdings Option.  If it is"
^DD(680,.02,21,7,0)="inactive, it indicates that the library will not be receiving any"
^DD(680,.02,21,8,0)="more current issues, but will be keeping its retrospective holdings."
^DD(680,.02,21,9,0)="Should the title need to be reactivated, the value in the INACTIVE"
^DD(680,.02,21,10,0)="field can be deleted.  Found in the LTS option."
^DD(680,.02,"DT")="2970604"
^DD(680,.03,0)="PREDICTION POP-UP^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(680,.03,3)="Enter the number of days in advance of the next issue date that the issue is expected to be received in the library.  Enter a number 1-99."
^DD(680,.03,4)="I X=""??"" S XQH=""LBRY POP-UP ??"" D EN^XQH"
^DD(680,.03,21,0)="^^3^3^2940519^"
^DD(680,.03,21,1,0)="This fields allows for the local adjustment of the prediction"
^DD(680,.03,21,2,0)="ability found in the Check-in Option.  If no value is input, it"
^DD(680,.03,21,3,0)="defaults to a value of 5.  Found in LTS option."
^DD(680,.03,"DT")="2880726"
^DD(680,.04,0)="SITE NAME^RP680.6'^LBRY(680.6,^0;4^Q"
^DD(680,.04,1,0)="^.1"
^DD(680,.04,1,1,0)="680^E"
^DD(680,.04,1,1,1)="S ^LBRY(680,""E"",$E(X,1,30),DA)="""""
^DD(680,.04,1,1,2)="K ^LBRY(680,""E"",$E(X,1,30),DA)"
^DD(680,.04,1,1,"%D",0)="^^1^1^2950828^"
^DD(680,.04,1,1,"%D",1,0)="This cross-reference is to be used to screen out by site."
^DD(680,.04,1,1,"DT")="2950828"
^DD(680,.04,3)="Select correct division site name"
^DD(680,.04,21,0)="^^2^2^2950824^"
^DD(680,.04,21,1,0)="This field is to identify the individual sites that have been"
^DD(680,.04,21,2,0)="combined into one VISN."
^DD(680,.04,"DT")="2950828"
^DD(680,.05,0)="PREV SITE DA^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(680,.05,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(680,.05,21,0)="^^2^2^2950825^"
^DD(680,.05,21,1,0)="This is the site's previous DA number in order to remap entries to"
^DD(680,.05,21,2,0)="this new DA number."
^DD(680,.05,"DT")="2950825"
^DD(680,1.1,0)="PLACEMENT^*P680.7'^LBRY(680.7,^1;3^S DIC(""S"")=""I $P(^(0),U,2)=$G(LBRYPTR)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(680,1.1,3)="Indicate where the journal will be located once it is checked-in."
^DD(680,1.1,12)="Screen out entries by site"
^DD(680,1.1,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$G(LBRYPTR)"""
^DD(680,1.1,21,0)="^^2^2^2940527^^^"
^DD(680,1.1,21,1,0)="This field holds the locations which are the final destination"
^DD(680,1.1,21,2,0)="for any particular serials title.  Found in HOL option."
^DD(680,1.1,"DT")="2970714"
^DD(680,1.5,0)="FOR-YOUR-INFORMATION^F^^1;5^K:$L(X)>75!($L(X)<1) X"
^DD(680,1.5,3)="A field of up to 75 characters which will display information below TITLE on the check-in screens.  Use CHECK-IN NOTES for longer messages."
^DD(680,1.5,4)="I X=""??"" S XQH=""LBRY F-Y-I HELP PROMPT"" D EN^XQH"
^DD(680,1.5,21,0)="^^5^5^2940519^"
^DD(680,1.5,21,1,0)="This is an optional field that allows the user to input"
^DD(680,1.5,21,2,0)="information which will appear on the screen immediately under"
^DD(680,1.5,21,3,0)="the title in the Check-in Option.  It is useful for reminding"
^DD(680,1.5,21,4,0)="technicians about peculiarities or specific instructions for"
^DD(680,1.5,21,5,0)="certain titles.  Found in LTS option."
^DD(680,1.5,"DT")="2870304"
^DD(680,2.1,0)="MICROFILM HOLDINGS^F^^2;2^K:$L(X)>75!($L(X)<1) X"
^DD(680,2.1,3)="Enter the microfilm holdings for this title (1-75 characters)."
^DD(680,2.1,4)="I X=""??"" S XQH=""LBRY MICROFILM ??"" D EN^XQH"
^DD(680,2.1,21,0)="^^5^5^2940519^"
^DD(680,2.1,21,1,0)="This field allows the input of holdings statements for those"
^DD(680,2.1,21,2,0)="holdings of a serials title which may be in microformat. In"
^DD(680,2.1,21,3,0)="some libraries microformat holdings are stored separately from"
^DD(680,2.1,21,4,0)="the paper holdings; thus in some cases it is desirable to have"
^DD(680,2.1,21,5,0)="two different holdings statements.  Found in HOL option."
^DD(680,2.1,"DT")="2870825"
^DD(680,2.5,0)="MICROFILM VENDOR^FX^^2;5^S DIC=""^PRC(440,"",DIC(0)=""EQZ"" D ^DIC K:Y<0 X Q:Y<0  S X=$S($D(Y(0)):$P(Y(0),U,1),1:"""") K:X="""" X K DIC"
^DD(680,2.5,3)="Enter the vendor from whom the microfilm was ordered."
^DD(680,2.5,4)="S ZD=D,X=""?"",DIC=""^PRC(440,"",DIC(0)=""EQ"" D ^DIC S D=ZD K DIC,ZD"
^DD(680,2.5,21,0)="^^4^4^2940809^^"
^DD(680,2.5,21,1,0)="The vendor for the microformat version of a serials title is"
^DD(680,2.5,21,2,0)="usually different from the vendor for the current paper"
^DD(680,2.5,21,3,0)="subscription.  Also, not all serials microformat can be"
^DD(680,2.5,21,4,0)="acquired from the same microformat vendor.  Found in HOL option."
^DD(680,2.5,"DT")="2870603"
^DD(680,2.6,0)="MICROFILM COREFLS VENDOR^P392.31'^DGBT(392.31,^2;6^Q"
^DD(680,2.6,2)="S Y(0)=Y K LBRPREV S LBRPREV=$$PREV^DGBTCSL(.Y)"
^DD(680,2.6,2.1)="K LBRPREV S LBRPREV=$$PREV^DGBTCSL(.Y)"
^DD(680,2.6,21,0)="^.001^1^1^3021210^^"
^DD(680,2.6,21,1,0)="Enter the vendor from whom the microfilm was ordered."
^DD(680,2.6,"DT")="3040308"
^DD(680,3,0)="SUBJECT^680.03PA^^3;0"
^DD(680,3,21,0)="^^1^1^2951012^^"
^DD(680,3,21,1,0)="This is the subject of the serial."
^DD(680,4,0)="CATEGORY^680.01SA^^4;0"
^DD(680,4,21,0)="^^1^1^2940825^"
^DD(680,4,21,1,0)="This is the category of the serial."
^DD(680,5,0)="ADDED DATE^D^^5;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680,5,21,0)="^^2^2^2940519^"
^DD(680,5,21,1,0)="This field allows a date to be entered in the Holdings Option"
^DD(680,5,21,2,0)="to indicate when a serials title was first acquired."
^DD(680,5.2,0)="RECOMMENDATION^S^R:RETAIN;D:DELETE;^5;2^Q"
^DD(680,5.2,3)="Select R if it has been decided to retain this title; D if the title is to be deleted."
^DD(680,5.2,21,0)="^^3^3^2940519^"
^DD(680,5.2,21,1,0)="This field uses codes to signify if whether the retention"
^DD(680,5.2,21,2,0)="decision for a serials title is 'retain' or 'delete'.  Found"
^DD(680,5.2,21,3,0)="in HOL option."
^DD(680,5.3,0)="DELETION DATE^D^^5;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680,5.3,3)="Enter the date when the title (gift or regular subscription) will be deleted or discontinued."
^DD(680,5.3,21,0)="^^2^2^2940519^"
^DD(680,5.3,21,1,0)="This field allows a date to be entered to indicate when a"
^DD(680,5.3,21,2,0)="serials title will be discontinued or deleted."
^DD(680,5.4,0)="DELETION NOTES^F^^5;4^K:$L(X)>60!($L(X)<1) X"
^DD(680,5.4,3)="Enter information (up to 60 characters) about the decision to discontinue a title, such as name of staff member making this recommendation."
^DD(680,5.4,21,0)="^^3^3^2940519^"
^DD(680,5.4,21,1,0)="This is a word-processing field where information on the"
^DD(680,5.4,21,2,0)="decision to discontinue a serials title may be entered,"
^DD(680,5.4,21,3,0)="such as name of staff member making this recommendation."
^DD(680,6,0)="UNION LIST CODE^680.02SA^^6;0"
^DD(680,6,21,0)="^^3^3^2940519^"
^DD(680,6,21,1,0)="This field contains a set of codes to allow the indication"
^DD(680,6,21,2,0)="of which union list authorities are recipients of the"
^DD(680,6,21,3,0)="holdings of a particular library.  Found in HOL option."
^DD(680,7,0)="INITIAL COPIES ORDERED^NJ2,0^^7;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(680,7,3)="Enter the total number of copies ordered regardless of source.  Enter number from 1 to 99."
^DD(680,7,4)=""
^DD(680,7,21,0)="^^4^4^2940519^"
^DD(680,7,21,1,0)="This field is used in the initial setup of the serials title"
^DD(680,7,21,2,0)="in the LTS option and basically triggers the cloning action"
^DD(680,7,21,3,0)="found in CSE.  However, as numbers of copies change later over"
^DD(680,7,21,4,0)="time, it is necessary to alter the value in this field."
^DD(680,7,"DT")="2880520"
^DD(680,7.1,0)="COPIES ORDERED^CJ2^^ ; ^D UDT^LBRYCSE0"
^DD(680,7.1,9)="^"
^DD(680,7.1,9.01)=""
^DD(680,7.1,9.1)="D UDT^LBRYCSE0"
^DD(680,7.1,21,0)="^^1^1^2940825^"
^DD(680,7.1,21,1,0)="The number of copies of the serial is recorded in this field."
^DD(680,8,0)="FUNDING SOURCE^F^^8;1^K:$L(X)>30!($L(X)<3) X"
^DD(680,8,3)="Enter source of the funds (3-30 characters) used to pay for the subscription to this journal."
^DD(680,8,4)="I X=""??"" S XQH=""LBRY FUNDING ??"" D EN^XQH"
^DD(680,8,21,0)="^^5^5^2940519^"
^DD(680,8,21,1,0)="This field allows the identification of sources of funding"
^DD(680,8,21,2,0)="for specific serials titles; such sources could be the local"
^DD(680,8,21,3,0)="facility budget, research funds, RML funding, funding from"
^DD(680,8,21,4,0)="library-raised revenues, tuition-support funds, etc.  Found in"
^DD(680,8,21,5,0)="PIE option."
^DD(680,8.3,0)="UNIT COST^NJ7,2^^8;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(680,8.3,.1)=""
^DD(680,8.3,3)="Enter current year's subscription cost, without service charge, for one copy.  Decimals may be used."
^DD(680,8.3,21,0)="^^3^3^2940519^"
^DD(680,8.3,21,1,0)="This field is for the entry of the current year's subscription"
^DD(680,8.3,21,2,0)="cost without service charge, for one subscription.  Found in"
^DD(680,8.3,21,3,0)="PIE option."
^DD(680,8.3,"DT")="2940519"
^DD(680,8.4,0)="LAST YEAR'S UNIT COST^NJ7,2^^8;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<1) X"
^DD(680,8.4,3)="Enter last year's unit cost, without service charge, for one copy.  Decimals may be used."
^DD(680,8.4,21,0)="^^2^2^2940519^"
^DD(680,8.4,21,1,0)="This field is for the previous year's subscription cost without"
^DD(680,8.4,21,2,0)="service charge, for one subscription.  Found in PIE option."
^DD(680,8.4,"DT")="2880727"
^DD(680,8.5,0)="SERVICE CHARGE^NJ5,2^^8;5^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(680,8.5,3)="Enter the vendor's service charge.  Percentage will be applied to the UNIT COST for total cost.  Enter 11.06% as 11.06."
^DD(680,8.5,21,0)="^^3^3^2940519^"
^DD(680,8.5,21,1,0)="The vendor's service charge percentage is to be entered"
^DD(680,8.5,21,2,0)="here; it will be applied to the UNIT COST field to derive"
^DD(680,8.5,21,3,0)="the TOTAL COST.  Found in PIE option."
^DD(680,8.5,"DT")="2880208"
^DD(680,8.6,0)="TOTAL COST^CJ11,2^^ ; ^X ^DD(680,8.6,9.2) S Y(680,8.6,4)=X S X=Y(680,8.6,1)*$P(Y(680,8.6,2),U,3)/100*$P(Y(680,8.6,2),U,5),Y=X,X=Y(680,8.6,3),X=X+Y S X=$J(X,0,2)"
^DD(680,8.6,9)="^"
^DD(680,8.6,9.01)="680^8.5;680^8.3;680^7.1"
^DD(680,8.6,9.1)="(#7.1*#8.3)+((#7.1*#8.3)/100*#8.5)"
^DD(680,8.6,9.2)="X $P(^DD(680,7.1,0),U,5,99) S Y(680,8.6,1)=X S Y(680,8.6,2)=$S($D(^LBRY(680,D0,8)):^(8),1:"""") S X=Y(680,8.6,1)*$P(Y(680,8.6,2),U,3),Y(680,8.6,3)=X"
^DD(680,8.6,21,0)="^^2^2^2940519^"
^DD(680,8.6,21,1,0)="This field is computed from the UNIT COST and SERVICE CHARGE"
^DD(680,8.6,21,2,0)="field.  Found in PIE option."
^DD(680,8.6,"DT")="2880407"
^DD(680,8.7,0)="P.O. NUMBER^F^^8;7^K:$L(X)>15!($L(X)<2) X"
^DD(680,8.7,3)="Enter Purchase Order Number for locally ordered subscription."
^DD(680,8.7,21,0)="^^2^2^2951012^^"
^DD(680,8.7,21,1,0)="This field allows the input of a purchase order number for"
^DD(680,8.7,21,2,0)="a serials title.  Found in PIE option."
^DD(680,8.8,0)="CONTRACT NUMBER^F^^8;8^K:$L(X)>15!($L(X)<2) X"
^DD(680,8.8,3)="Enter local Contract Number for subscription."
^DD(680,8.8,21,0)="^^2^2^2951012^^"
^DD(680,8.8,21,1,0)="This field allows the input of a contract number for a serials"
^DD(680,8.8,21,2,0)="title.  Found in PIE option."
^DD(680,8.8,"DT")="2860117"
^DD(680,9,0)="BRIEF SUMMARY HOLDINGS^F^^9;1^K:$L(X)>50!($L(X)<1) X"
^DD(680,9,.1)=""
^DD(680,9,3)="Enter a brief summary of this title's holdings (1-50 characters).  Enter ?? for more help."
^DD(680,9,4)="I X=""??"" S XQH=""LBRY BRIEF ??"" D EN^XQH"
^DD(680,9,21,0)="^^5^5^2940519^"
^DD(680,9,21,1,0)="This field allows the input of summary holdings for a"
^DD(680,9,21,2,0)="serials title, which should be input in the form of"
^DD(680,9,21,3,0)="opening and closing volumes and dates; for example, v. 5, 1966 -"
^DD(680,9,21,4,0)="v. 10, 1971.  If the title is still being received, the statement"
^DD(680,9,21,5,0)="may be left open.  Found in HOL option."
^DD(680,9,"DT")="2870925"
^DD(680,9.1,0)="DETAILED HOLDING^680.05^^12;0"
^DD(680,9.1,21,0)="^^3^3^2940519^"
^DD(680,9.1,21,1,0)="This is a word-processing option field which allows"
^DD(680,9.1,21,2,0)="the input of long, issue-specific holdings statements."
^DD(680,9.1,21,3,0)="Found in HOL option."
^DD(680,9.4,0)="RETENTION POLICY^F^^9;4^K:$L(X)>20!($L(X)<1) X"
^DD(680,9.4,3)="Enter the number of years, a date, or other information which will indicate the retention period for this title (1-20 characters)."
^DD(680,9.4,21,0)="^^4^4^2940519^"
^DD(680,9.4,21,1,0)="This field allows the input of a number of years, a date,"
^DD(680,9.4,21,2,0)="or other information which will indicate how much of a"
^DD(680,9.4,21,3,0)="backfile of the title that the library plans to keep on hand."
^DD(680,9.4,21,4,0)="Found in HOL option."
^DD(680,9.4,"DT")="2880311"
^DD(680,9.5,0)="BINDING PRIORITY^S^N:NO BINDING NEEDED;L:LOW;M:MEDIUM;H:HIGH;^9;5^Q"
^DD(680,9.5,3)="Select a code to indicate the priority placed on the need to bind this journal."
^DD(680,9.5,21,0)="^^2^2^2940519^"
^DD(680,9.5,21,1,0)="This field is a set of codes to indicate the local library's"
^DD(680,9.5,21,2,0)="priorities for binding a specific serials title."
^DD(680,9.8,0)="GAPS^680.04^^11;0"
^DD(680,9.8,21,0)="^^5^5^2940519^"
^DD(680,9.8,21,1,0)="This is a word-processing field where missing and/or"
^DD(680,9.8,21,2,0)="sought issues and/or volumes may be listed.  There is"
^DD(680,9.8,21,3,0)="a gaps report which prints this field; this report can"
^DD(680,9.8,21,4,0)="be used to acquire items from surplus lists.  Found in"
^DD(680,9.8,21,5,0)="HOL option."
^DD(680,9.85,0)="REMARKS^680.12^^15;0"
^DD(680,9.85,21,0)="^^3^3^2940519^^^^"
^DD(680,9.85,21,1,0)="This field should contain your SEE references, See Also references, title"
^DD(680,9.85,21,2,0)="changes--whatever you want printed under your title (besides holdings)"
^DD(680,9.85,21,3,0)="when you run a printed holdings list."
^DD(680,10.5,0)="RENEWAL DATE (HC)^D^^10;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680,10.5,3)="Enter date the hard-copy subscription is due to be renewed."
^DD(680,10.5,21,0)="^^2^2^2940519^"
^DD(680,10.5,21,1,0)="This field is for the input of the date that the paper"
^DD(680,10.5,21,2,0)="subscription is due to be renewed.  Found in HOL option."
^DD(680,10.6,0)="RENEWAL DATE (MF)^D^^10;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680,10.6,3)="Enter the date the microformat subscription is due to be renewed."
^DD(680,10.6,21,0)="^^3^3^2940519^"
^DD(680,10.6,21,1,0)="This field is for the input of the date that the"
^DD(680,10.6,21,2,0)="microformat subscription is due to be renewed."
^DD(680,10.6,21,3,0)="Found in HOL option."
^DD(680,10.7,0)="REQUESTOR^*P680.4'^LBRY(680.4,^10;7^S DIC(""S"")=""I $P(^(0),U,9)=$G(LBRYPTR)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(680,10.7,3)="Enter the name of the person or the service requesting this journal subscription."
^DD(680,10.7,12)="This screens entries to a specific site (for multiple site stations)"
^DD(680,10.7,12.1)="S DIC(""S"")=""I $P(^(0),U,9)=$G(LBRYPTR)"""
^DD(680,10.7,21,0)="^^2^2^2970714^^^"
^DD(680,10.7,21,1,0)="This field is for the name of the person who requested"
^DD(680,10.7,21,2,0)="this serials title be acquired.  Found in HOL option."
^DD(680,10.7,"DT")="2970714"
^DD(680,10.8,0)="SUBSCRIPTION PERIOD^NJ4,1^^10;8^K:+X'=X!(X>10)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(680,10.8,3)="Enter the length of this subscription period (up to 10 years).  Decimals are permitted, for example an 18 month subscription = 1.5."
^DD(680,10.8,21,0)="^^3^3^2940519^"
^DD(680,10.8,21,1,0)="This field is for the length of the subscription period;"
^DD(680,10.8,21,2,0)="decimals can be used to indicate a fraction of a year."
^DD(680,10.8,21,3,0)="Found in HOL option."
^DD(680,10.8,"DT")="2870925"
^DD(680,12.3,0)="CHECK-IN NOTES^680.14^^16;0"
^DD(680,12.3,21,0)="^^2^2^2940519^"
^DD(680,12.3,21,1,0)="This field is a word-processing field to allow specific"
^DD(680,12.3,21,2,0)="notes concerning the check-in of a title to be entered."
^DD(680,13,0)="BINDING DATE^680.08D^^13;0"
^DD(680,13,21,0)="^^1^1^2940825^"
^DD(680,13,21,1,0)="Each serial may have a binding date."
^DD(680,14,0)="RENEWAL NOTES^680.014^^17;0"
^DD(680,14,21,0)="^^1^1^2940825^"
^DD(680,14,21,1,0)="Enter notes concerning the renewal of a subscription in this field."
^DD(680,15,0)="ZTOTAL^CJ8,2^^ ; ^X ^DD(680,15,9.2) S X=Y(680,15,1)*$P(Y(680,15,2),U,3)/100*$P(Y(680,15,2),U,5),Y=X,X=Y(680,15,3),X=X+Y S X=$J(X,0,2)"
^DD(680,15,9)="^"
^DD(680,15,9.01)="680^8.5;680^8.3;680^7.1"
^DD(680,15,9.1)="(COPIES ORDERED*UNIT COST)+((COPIES ORDERED*UNIT COST)/100*SERVICE CHARGE)"
^DD(680,15,9.2)="X $P(^DD(680,7.1,0),U,5,99) S Y(680,15,1)=X S Y(680,15,2)=$S($D(^LBRY(680,D0,8)):^(8),1:"""") S X=Y(680,15,1)*$P(Y(680,15,2),U,3),Y(680,15,3)=X,Y(680,15,4)=X"
^DD(680,15,"DT")="2951019"
^DD(680,"B","ADDED DATE",5)=""
^DD(680,"B","BINDING DATE",13)=""
^DD(680,"B","BINDING PRIORITY",9.5)=""
^DD(680,"B","BRIEF SUMMARY HOLDINGS",9)=""
^DD(680,"B","CATEGORY",4)=""
^DD(680,"B","CHECK-IN NOTES",12.3)=""
^DD(680,"B","CONTRACT NUMBER",8.8)=""
^DD(680,"B","COPIES ORDERED",7.1)=""
^DD(680,"B","DELETION DATE",5.3)=""
^DD(680,"B","DELETION NOTES",5.4)=""
^DD(680,"B","DETAILED HOLDING",9.1)=""
^DD(680,"B","FOR-YOUR-INFORMATION",1.5)=""
^DD(680,"B","FUNDING SOURCE",8)=""
^DD(680,"B","GAPS",9.8)=""
^DD(680,"B","INACTIVE",.02)=""
^DD(680,"B","INITIAL COPIES ORDERED",7)=""
^DD(680,"B","LAST YEAR'S UNIT COST",8.4)=""
^DD(680,"B","MICROFILM COREFLS VENDOR",2.6)=""
^DD(680,"B","MICROFILM HOLDINGS",2.1)=""
^DD(680,"B","MICROFILM VENDOR",2.5)=""
^DD(680,"B","P.O. NUMBER",8.7)=""
^DD(680,"B","PLACEMENT",1.1)=""
^DD(680,"B","PREDICTION POP-UP",.03)=""
^DD(680,"B","PREV SITE DA",.05)=""
^DD(680,"B","RECOMMENDATION",5.2)=""
^DD(680,"B","REMARKS",9.85)=""
^DD(680,"B","RENEWAL DATE (HC)",10.5)=""
^DD(680,"B","RENEWAL DATE (MF)",10.6)=""
^DD(680,"B","RENEWAL NOTES",14)=""
^DD(680,"B","REQUESTOR",10.7)=""
^DD(680,"B","RETENTION POLICY",9.4)=""
^DD(680,"B","SERVICE CHARGE",8.5)=""
^DD(680,"B","SITE NAME",.04)=""
^DD(680,"B","SUBJECT",3)=""
^DD(680,"B","SUBSCRIPTION PERIOD",10.8)=""
^DD(680,"B","TITLE",.01)=""
^DD(680,"B","TOTAL COST",8.6)=""
^DD(680,"B","UNION LIST CODE",6)=""
^DD(680,"B","UNIT COST",8.3)=""
^DD(680,"B","ZTOTAL",15)=""
^DD(680,"GL",0,1,.01)=""
^DD(680,"GL",0,2,.02)=""
^DD(680,"GL",0,3,.03)=""
^DD(680,"GL",0,4,.04)=""
^DD(680,"GL",0,5,.05)=""
^DD(680,"GL",1,3,1.1)=""
^DD(680,"GL",1,5,1.5)=""
^DD(680,"GL",2,2,2.1)=""
^DD(680,"GL",2,5,2.5)=""
^DD(680,"GL",2,6,2.6)=""
^DD(680,"GL",3,0,3)=""
^DD(680,"GL",4,0,4)=""
^DD(680,"GL",5,1,5)=""
^DD(680,"GL",5,2,5.2)=""
^DD(680,"GL",5,3,5.3)=""
^DD(680,"GL",5,4,5.4)=""
^DD(680,"GL",6,0,6)=""
^DD(680,"GL",7,1,7)=""
^DD(680,"GL",8,1,8)=""
^DD(680,"GL",8,3,8.3)=""
^DD(680,"GL",8,4,8.4)=""
^DD(680,"GL",8,5,8.5)=""
^DD(680,"GL",8,7,8.7)=""
^DD(680,"GL",8,8,8.8)=""
^DD(680,"GL",9,1,9)=""
^DD(680,"GL",9,4,9.4)=""
^DD(680,"GL",9,5,9.5)=""
^DD(680,"GL",10,5,10.5)=""
^DD(680,"GL",10,6,10.6)=""
^DD(680,"GL",10,7,10.7)=""
^DD(680,"GL",10,8,10.8)=""
^DD(680,"GL",11,0,9.8)=""
^DD(680,"GL",12,0,9.1)=""
^DD(680,"GL",13,0,13)=""
^DD(680,"GL",15,0,9.85)=""
^DD(680,"GL",16,0,12.3)=""
^DD(680,"GL",17,0,14)=""
^DD(680,"IX",.01)=""
^DD(680,"IX",.02)=""
^DD(680,"IX",.04)=""
^DD(680,"RQ",.01)=""
^DD(680,"RQ",.04)=""
^DD(680,"SB",680.01,4)=""
^DD(680,"SB",680.014,14)=""
^DD(680,"SB",680.02,6)=""
^DD(680,"SB",680.03,3)=""
^DD(680,"SB",680.04,9.8)=""
^DD(680,"SB",680.05,9.1)=""
^DD(680,"SB",680.08,13)=""
^DD(680,"SB",680.12,9.85)=""
^DD(680,"SB",680.14,12.3)=""
^DD(680.01,0)="CATEGORY SUB-FIELD^NL^.01^1"
^DD(680.01,0,"DIK")="LBRYX1"
^DD(680.01,0,"DT")="2940526"
^DD(680.01,0,"IX","B",680.01,.01)=""
^DD(680.01,0,"NM","CATEGORY")=""
^DD(680.01,0,"UP")="680"
^DD(680.01,.01,0)="CATEGORY^MS^G:GENERAL;A:ADMINISTRATIVE;M:MEDICAL;R:RESEARCH;P:PATIENT HEALTH EDUCATION;^0;1^Q"
^DD(680.01,.01,1,0)="^.1"
^DD(680.01,.01,1,1,0)="680.01^B"
^DD(680.01,.01,1,1,1)="S ^LBRY(680,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(680.01,.01,1,1,2)="K ^LBRY(680,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(680.01,.01,1,1,"DT")="2951003"
^DD(680.01,.01,3)="This Category designation is used to sort information for various reports.  More than one category may be selected."
^DD(680.01,.01,21,0)="^^3^3^2940825^^"
^DD(680.01,.01,21,1,0)="The statistics VA libraries are required to keep require"
^DD(680.01,.01,21,2,0)="that serials subscriptions be categorized in the 5"
^DD(680.01,.01,21,3,0)="categories listed.  Found in HOL option."
^DD(680.01,.01,"DT")="2951003"
^DD(680.01,"B","CATEGORY",.01)=""
^DD(680.01,"GL",0,1,.01)=""
^DD(680.01,"IX",.01)=""
^DD(680.014,0)="RENEWAL NOTES SUB-FIELD^^.01^1"
^DD(680.014,0,"DT")="2940323"
^DD(680.014,0,"NM","RENEWAL NOTES")=""
^DD(680.014,0,"UP")="680"
^DD(680.014,.01,0)="RENEWAL NOTES^W^^0;1^Q"
^DD(680.014,.01,3)="Enter information concerning RENEWAL status."
^DD(680.014,.01,21,0)="^^2^2^2940825^^"
^DD(680.014,.01,21,1,0)="This field is a word-processing field where more information"
^DD(680.014,.01,21,2,0)="about renewal of a serials title can be input."
^DD(680.014,.01,"DT")="2940323"
^DD(680.014,"B","RENEWAL NOTES",.01)=""
^DD(680.014,"GL",0,1,.01)=""
^DD(680.02,0)="UNION LIST CODE SUB-FIELD^NL^.01^1"
^DD(680.02,0,"NM","UNION LIST CODE")=""
^DD(680.02,0,"UP")="680"
^DD(680.02,.01,0)="UNION LIST CODE^MS^C:CORE;H:HOR;U:UNIQUE;V:VA ULP;L:LOCAL CONSORTIA ULP;S:STATE;R:RML ULP;O:OTHER ULP;^0;1^Q"
^DD(680.02,.01,3)="Select a code to designate which union list this title appears on.  More than one code may be entered."
^DD(680.02,.01,21,0)="^^3^3^2940519^"
^DD(680.02,.01,21,1,0)="This field contains a set of codes to allow the indication"
^DD(680.02,.01,21,2,0)="of which union list authorities are recipients of the"
^DD(680.02,.01,21,3,0)="holdings of a particular library.  Found in HOL option."
^DD(680.02,"B","UNION LIST CODE",.01)=""
^DD(680.02,"GL",0,1,.01)=""
^DD(680.03,0)="SUBJECT SUB-FIELD^^.02^2"
^DD(680.03,0,"DIK")="LBRYX1"
^DD(680.03,0,"IX","B",680.03,.01)=""
^DD(680.03,0,"NM","SUBJECT")=""
^DD(680.03,0,"UP")="680"
^DD(680.03,.01,0)="SUBJECT^MP680.3'^LBRY(680.3,^0;1^Q"
^DD(680.03,.01,1,0)="^.1^^-1"
^DD(680.03,.01,1,1,0)="680.03^B"
^DD(680.03,.01,1,1,1)="S ^LBRY(680,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(680.03,.01,1,1,2)="K ^LBRY(680,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(680.03,.01,1,1,"%D",0)="^^1^1^2950725^"
^DD(680.03,.01,1,1,"%D",1,0)="Regular FileMan ""B"" cross-reference"
^DD(680.03,.01,1,3,0)="680^C"
^DD(680.03,.01,1,3,1)="S ^LBRY(680,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(680.03,.01,1,3,2)="K ^LBRY(680,""C"",$E(X,1,30),DA(1),DA)"
^DD(680.03,.01,1,3,"%D",0)="^^1^1^2950725^"
^DD(680.03,.01,1,3,"%D",1,0)="Cross-reference entire file by subject."
^DD(680.03,.01,3)="The decision to assign subject headings is made at the local library level.  Some reports will not print without an entry here."
^DD(680.03,.01,4)=""
^DD(680.03,.01,21,0)="^^4^4^2951012^^^"
^DD(680.03,.01,21,1,0)="Subject headings should be assigned to serials titles so that"
^DD(680.03,.01,21,2,0)="subscriptions can be sorted into subject lists and categories."
^DD(680.03,.01,21,3,0)="A serials title can have more than one subject heading assigned"
^DD(680.03,.01,21,4,0)="to it.  Found in HOL option."
^DD(680.03,.01,"DT")="2950725"
^DD(680.03,.02,0)="CHANGED DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680.03,.02,3)="Enter the date the SUBJECT was entered."
^DD(680.03,.02,21,0)="^^1^1^2950809^"
^DD(680.03,.02,21,1,0)="This is the date that the subject was edited for this serial."
^DD(680.03,"B","CHANGED DATE",.02)=""
^DD(680.03,"B","SUBJECT",.01)=""
^DD(680.03,"GL",0,1,.01)=""
^DD(680.03,"GL",0,2,.02)=""
^DD(680.03,"IX",.01)=""
^DD(680.04,0)="GAPS SUB-FIELD^^.01^1"
^DD(680.04,0,"NM","GAPS")=""
^DD(680.04,0,"UP")="680"
^DD(680.04,.01,0)="GAPS^WL^^0;1^Q"
^DD(680.04,.01,3)="Missing volumes and issues for this title may be listed here."
^DD(680.04,.01,4)="I X=""??"" S XQH=""LBRY GAPS ??"" D EN^XQH"
^DD(680.04,.01,21,0)="^^5^5^2940519^"
^DD(680.04,.01,21,1,0)="This is a word-processing field where missing and/or"
^DD(680.04,.01,21,2,0)="sought issues and/or volumes may be listed.  There is"
^DD(680.04,.01,21,3,0)="a gaps report which prints this field; this report can"
^DD(680.04,.01,21,4,0)="be used to acquire items from surplus lists.  Found in"
^DD(680.04,.01,21,5,0)="HOL option."
^DD(680.04,.01,"DT")="2870911"
^DD(680.04,"B","GAPS",.01)=""
^DD(680.04,"GL",0,1,.01)=""
^DD(680.05,0)="DETAILED HOLDING SUB-FIELD^^.01^1"
^DD(680.05,0,"NM","DETAILED HOLDING")=""
^DD(680.05,0,"UP")="680"
^DD(680.05,.01,0)="DETAILED HOLDING^WL^^0;1^Q"
^DD(680.05,.01,3)="Enter an issue-specific holdings statement for this title.  Enter ?? for    more help."
^DD(680.05,.01,4)="I X=""??"" S XQH=""LBRY DETAILED ??"" D EN^XQH"
^DD(680.05,.01,21,0)="^^3^3^2940519^"
^DD(680.05,.01,21,1,0)="This is a word-processing option field which allows"
^DD(680.05,.01,21,2,0)="the input of long, issue-specific holdings statements."
^DD(680.05,.01,21,3,0)="Found in HOL option."
^DD(680.05,.01,"DT")="2870917"
^DD(680.05,"B","DETAILED HOLDING",.01)=""
^DD(680.05,"GL",0,1,.01)=""
^DD(680.08,0)="BINDING DATE SUB-FIELD^NL^2^11"
^DD(680.08,0,"NM","BINDING DATE")=""
^DD(680.08,0,"UP")="680"
^DD(680.08,.01,0)="BINDING DATE^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680.08,.01,21,0)="^^2^2^2940825^^"
^DD(680.08,.01,21,1,0)="This field appears to allow the multiple input of dates"
^DD(680.08,.01,21,2,0)="when specific volumes are sent to the bindery."
^DD(680.08,.02,0)="BINDING COLOR^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(680.08,.02,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(680.08,.02,21,0)="^^2^2^2940519^"
^DD(680.08,.02,21,1,0)="This field is a set of codes to identify the binding color"
^DD(680.08,.02,21,2,0)="for a specific title."
^DD(680.08,.03,0)="PRINT COLOR^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(680.08,.03,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(680.08,.03,21,0)="^^2^2^2940519^"
^DD(680.08,.03,21,1,0)="This field is for an entry to identify the lettering"
^DD(680.08,.03,21,2,0)="color for a specific title."
^DD(680.08,.04,0)="BINDING SEQUENCE^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(680.08,.04,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(680.08,.04,21,0)="^^1^1^2950809^"
^DD(680.08,.04,21,1,0)="THIS FIELD IS NOT IN USE"
^DD(680.08,.05,0)="SUPPLEMENTS^S^Y:YES;N:NO;^0;5^Q"
^DD(680.08,.05,21,0)="^^3^3^2940519^"
^DD(680.08,.05,21,1,0)="This field is a set of codes to indicate whether or not"
^DD(680.08,.05,21,2,0)="supplements are being bound into a regular volume for"
^DD(680.08,.05,21,3,0)="this title."
^DD(680.08,.06,0)="INDEX^S^Y:YES;N:NO;^0;6^Q"
^DD(680.08,.06,21,0)="^^2^2^2940519^"
^DD(680.08,.06,21,1,0)="This field is a set of codes to indicate whether or not"
^DD(680.08,.06,21,2,0)="an index is being bound into a regular volume for this title."
^DD(680.08,.07,0)="TABLE OF CONTENTS^S^Y:YES;N:NO;^0;7^Q"
^DD(680.08,.07,21,0)="^^3^3^2940519^"
^DD(680.08,.07,21,1,0)="This field is a set of codes to indicate whether or not"
^DD(680.08,.07,21,2,0)="a separate table of contents is being bound into a "
^DD(680.08,.07,21,3,0)="regular volume for this title."
^DD(680.08,.08,0)="EXPECTED RETURN DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680.08,.08,21,0)="^^2^2^2940519^"
^DD(680.08,.08,21,1,0)="This field is to indicate the date that a volume of"
^DD(680.08,.08,21,2,0)="binding is expected back from the bindery."
^DD(680.08,.09,0)="DATE RETURNED^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(680.08,.09,21,0)="^^2^2^2940519^"
^DD(680.08,.09,21,1,0)="This field is to indicate the actual return date of a"
^DD(680.08,.09,21,2,0)="volume of binding for this serials title."
^DD(680.08,.09,"DT")="2860117"
^DD(680.08,1,0)="VOLUME # SENT^680.09^^1;0"
^DD(680.08,1,21,0)="^^2^2^2940519^"
^DD(680.08,1,21,1,0)="This is a multiple field to list all the volume "
^DD(680.08,1,21,2,0)="numbers sent in a binding order."
^DD(680.08,2,0)="BINDING NOTE^680.11^^2;0"
^DD(680.08,2,21,0)="^^2^2^2940519^"
^DD(680.08,2,21,1,0)="This is a word-processing field to allow input about"
^DD(680.08,2,21,2,0)="miscellaneous notes concerning the binding process."
^DD(680.08,"B","BINDING COLOR",.02)=""
^DD(680.08,"B","BINDING DATE",.01)=""
^DD(680.08,"B","BINDING NOTE",2)=""
^DD(680.08,"B","BINDING SEQUENCE",.04)=""
^DD(680.08,"B","DATE RETURNED",.09)=""
^DD(680.08,"B","EXPECTED RETURN DATE",.08)=""
^DD(680.08,"B","INDEX",.06)=""
^DD(680.08,"B","PRINT COLOR",.03)=""
^DD(680.08,"B","SUPPLEMENTS",.05)=""
^DD(680.08,"B","TABLE OF CONTENTS",.07)=""
^DD(680.08,"B","VOLUME # SENT",1)=""
^DD(680.08,"GL",0,1,.01)=""
^DD(680.08,"GL",0,2,.02)=""
^DD(680.08,"GL",0,3,.03)=""
^DD(680.08,"GL",0,4,.04)=""
^DD(680.08,"GL",0,5,.05)=""
^DD(680.08,"GL",0,6,.06)=""
^DD(680.08,"GL",0,7,.07)=""
^DD(680.08,"GL",0,8,.08)=""
^DD(680.08,"GL",0,9,.09)=""
^DD(680.08,"GL",1,0,1)=""
^DD(680.08,"GL",2,0,2)=""
^DD(680.08,"SB",680.09,1)=""
^DD(680.08,"SB",680.11,2)=""
^DD(680.09,0)="VOLUME # SENT SUB-FIELD^NL^.01^1"
^DD(680.09,0,"NM","VOLUME # SENT")=""
^DD(680.09,0,"UP")="680.08"
^DD(680.09,.01,0)="VOLUME # SENT^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(680.09,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(680.09,.01,21,0)="^^2^2^2940519^"
^DD(680.09,.01,21,1,0)="This is a multiple field to list all the volume "
^DD(680.09,.01,21,2,0)="numbers sent in a binding order."
^DD(680.09,"B","VOLUME # SENT",.01)=""
^DD(680.09,"GL",0,1,.01)=""
^DD(680.1,0)="FIELD^^5^7"
^DD(680.1,0,"DDA")="N"
^DD(680.1,0,"DT")="2950717"
^DD(680.1,0,"IX","B",680.1,.01)=""
^DD(680.1,0,"IX","C",680.1,.01)=""
^DD(680.1,0,"NM","PUBLISHER")=""
^DD(680.1,0,"PT",680.5,2)=""
^DD(680.1,0,"VR")="2.5"
^DD(680.1,.01,0)="NAME^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X"
^DD(680.1,.01,1,0)="^.1^^-1"
^DD(680.1,.01,1,1,0)="680.1^B"
^DD(680.1,.01,1,1,1)="S ^LBRY(680.1,""B"",$E(X,1,30),DA)="""""
^DD(680.1,.01,1,1,2)="K ^LBRY(680.1,""B"",$E(X,1,30),DA)"
^DD(680.1,.01,1,2,0)="680.1^C^KWIC"
^DD(680.1,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^LBRY(680.1,""C"",I,DA)="""""
^DD(680.1,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^LBRY(680.1,""C"",I,DA)"
^DD(680.1,.01,3)="Answer must be 3-80 characters in length."
^DD(680.1,.01,21,0)="^^5^5^2950717^^"
^DD(680.1,.01,21,1,0)="This field allows the input of the name of a publisher or"
^DD(680.1,.01,21,2,0)="producer of a serials title or audiovisual program. Found"
^DD(680.1,.01,21,3,0)="in the LTS option of the local serials module, the TAF option"
^DD(680.1,.01,21,4,0)="of the NAT option on FORUM, the BIB option of the ULP on"
^DD(680.1,.01,21,5,0)="FORUM, and Networked Audiovisual File (NAV) on FORUM."
^DD(680.1,.01,"DT")="2950717"
^DD(680.1,1,0)="ADDRESS 1^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(680.1,1,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(680.1,1,21,0)="^^2^2^2940519^"
^DD(680.1,1,21,1,0)="This field is for the input of the first line of a"
^DD(680.1,1,21,2,0)="publisher/producer address."
^DD(680.1,2,0)="ADDRESS 2^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(680.1,2,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(680.1,2,21,0)="^^2^2^2940519^"
^DD(680.1,2,21,1,0)="This field is for the input of a second optional line"
^DD(680.1,2,21,2,0)="of a publisher/producer address."
^DD(680.1,2.5,0)="CITY^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(680.1,2.5,3)="List the city (1-30 characters long)."
^DD(680.1,2.5,21,0)="^^2^2^2940519^"
^DD(680.1,2.5,21,1,0)="This field is for the input of the city for the"
^DD(680.1,2.5,21,2,0)="publisher/producer address."
^DD(680.1,2.5,"DT")="2880314"
^DD(680.1,3,0)="STATE^P5'^DIC(5,^0;4^Q"
^DD(680.1,3,21,0)="^^2^2^2940519^"
^DD(680.1,3,21,1,0)="This field is for the input of the state of the"
^DD(680.1,3,21,2,0)="publisher/producer address."
^DD(680.1,4,0)="ZIP CODE^F^^0;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(680.1,4,3)="Enter a 5 digit zip code or 9 digit with dash"
^DD(680.1,4,21,0)="^^2^2^2940519^"
^DD(680.1,4,21,1,0)="This field is for the input of the zip code of"
^DD(680.1,4,21,2,0)="the publisher/producer address."
^DD(680.1,4,"DT")="2950717"
^DD(680.1,5,0)="PHONE^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(680.1,5,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(680.1,5,21,0)="^^2^2^2940519^"
^DD(680.1,5,21,1,0)="This field is for the input of the phone number of"
^DD(680.1,5,21,2,0)="the publisher/producer."
^DD(680.1,"B","ADDRESS 1",1)=""
^DD(680.1,"B","ADDRESS 2",2)=""
^DD(680.1,"B","CITY",2.5)=""
^DD(680.1,"B","NAME",.01)=""
^DD(680.1,"B","PHONE",5)=""
^DD(680.1,"B","STATE",3)=""
^DD(680.1,"B","ZIP CODE",4)=""
^DD(680.1,"GL",0,1,.01)=""
^DD(680.1,"GL",0,2,1)=""
^DD(680.1,"GL",0,3,2)=""
^DD(680.1,"GL",0,4,3)=""
^DD(680.1,"GL",0,5,4)=""
^DD(680.1,"GL",0,6,5)=""
^DD(680.1,"GL",0,7,2.5)=""
^DD(680.1,"IX",.01)=""
^DD(680.1,"RQ",.01)=""
^DD(680.11,0)="BINDING NOTE SUB-FIELD^NL^.01^1"
^DD(680.11,0,"NM","BINDING NOTE")=""
^DD(680.11,0,"UP")="680.08"
^DD(680.11,.01,0)="BINDING NOTE^W^^0;1^Q"
^DD(680.11,.01,21,0)="^^2^2^2940519^"
^DD(680.11,.01,21,1,0)="This is a word-processing field to allow input about"
^DD(680.11,.01,21,2,0)="miscellaneous notes concerning the binding process."
^DD(680.11,"B","BINDING NOTE",.01)=""
^DD(680.11,"GL",0,1,.01)=""
^DD(680.12,0)="REMARKS SUB-FIELD^^.01^1"
^DD(680.12,0,"NM","REMARKS")=""
^DD(680.12,0,"UP")="680"
^DD(680.12,.01,0)="REMARKS^WL^^0;1^Q"
^DD(680.12,.01,3)="Use for See or See Also references, temporary binding notes or other useful information."
^DD(680.12,.01,21,0)="^^3^3^2940519^^^^"
^DD(680.12,.01,21,1,0)="This field should contain your SEE references, See Also references, title"
^DD(680.12,.01,21,2,0)="changes--whatever you want printed under your title (besides holdings)"
^DD(680.12,.01,21,3,0)="when you run a printed holdings list."
^DD(680.12,.01,"DT")="2870320"
^DD(680.12,"B","REMARKS",.01)=""
^DD(680.12,"GL",0,1,.01)=""
^DD(680.14,0)="CHECK-IN NOTES SUB-FIELD^^.01^1"
^DD(680.14,0,"NM","CHECK-IN NOTES")=""
^DD(680.14,0,"UP")="680"
^DD(680.14,.01,0)="CHECK-IN NOTES^WL^^0;1^Q"
^DD(680.14,.01,3)="May be used for special processing information, such as notes on apparent   printing errors in journal issue dates or numbering."
^DD(680.14,.01,21,0)="^^2^2^2940519^"
^DD(680.14,.01,21,1,0)="This field is a word-processing field to allow specific"
^DD(680.14,.01,21,2,0)="notes concerning the check-in of a title to be entered."
^DD(680.14,.01,"DT")="2870910"
^DD(680.14,"B","CHECK-IN NOTES",.01)=""
^DD(680.14,"GL",0,1,.01)=""
^DD(680.2,0)="FIELD^^.02^3"
^DD(680.2,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(680.2,0,"IX","B",680.2,.01)=""
^DD(680.2,0,"IX","C",680.2,.02)=""
^DD(680.2,0,"NM","FREQUENCY")=""
^DD(680.2,0,"PT",680.5,.04)=""
^DD(680.2,0,"VR")="2.5"
^DD(680.2,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(680.2,.001,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(680.2,.001,21,0)="^^2^2^2940519^"
^DD(680.2,.001,21,1,0)="This field is the identification number of the frequency"
^DD(680.2,.001,21,2,0)="designation."
^DD(680.2,.01,0)="FREQUENCY^R^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(680.2,.01,1,0)="^.1"
^DD(680.2,.01,1,1,0)="680.2^B"
^DD(680.2,.01,1,1,1)="S ^LBRY(680.2,""B"",$E(X,1,30),DA)="""""
^DD(680.2,.01,1,1,2)="K ^LBRY(680.2,""B"",$E(X,1,30),DA)"
^DD(680.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(680.2,.01,21,0)="^^4^4^2940519^"
^DD(680.2,.01,21,1,0)="This field denotes how often a specific serials title is"
^DD(680.2,.01,21,2,0)="published, for example, twice a year, twice a month,"
^DD(680.2,.01,21,3,0)="bimonthly, etc.  This field is visible in the LTS option"
^DD(680.2,.01,21,4,0)="of the local Serials Module and the TAF file on FORUM."
^DD(680.2,.02,0)="SYNONYM^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(680.2,.02,1,0)="^.1"
^DD(680.2,.02,1,1,0)="680.2^C"
^DD(680.2,.02,1,1,1)="S ^LBRY(680.2,""C"",$E(X,1,30),DA)="""""
^DD(680.2,.02,1,1,2)="K ^LBRY(680.2,""C"",$E(X,1,30),DA)"
^DD(680.2,.02,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(680.2,.02,21,0)="^^4^4^2940519^"
^DD(680.2,.02,21,1,0)="This field allows the input of a short synonym or"
^DD(680.2,.02,21,2,0)="abbreviation of the frequency to speed up input in"
^DD(680.2,.02,21,3,0)="the TAF file on FORUM.  It is cross-indexed to the .01"
^DD(680.2,.02,21,4,0)="field."
^DD(680.2,"B","FREQUENCY",.01)=""
^DD(680.2,"B","NUMBER",.001)=""
^DD(680.2,"B","SYNONYM",.02)=""
^DD(680.2,"GL",0,1,.01)=""
^DD(680.2,"GL",0,2,.02)=""
^DD(680.2,"IX",.01)=""
^DD(680.2,"IX",.02)=""
^DD(680.2,"RQ",.01)=""
^DD(680.3,0)="FIELD^^.01^1"
^DD(680.3,0,"IX","B",680.3,.01)=""
^DD(680.3,0,"NM","SUBJECT")=""
^DD(680.3,0,"PT",680.03,.01)=""
^DD(680.3,0,"VR")="2.5"
^DD(680.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(680.3,.01,1,0)="^.1"
^DD(680.3,.01,1,1,0)="680.3^B"
^DD(680.3,.01,1,1,1)="S ^LBRY(680.3,""B"",$E(X,1,30),DA)="""""
^DD(680.3,.01,1,1,2)="K ^LBRY(680.3,""B"",$E(X,1,30),DA)"
^DD(680.3,.01,3)="Enter subject headings assigned by local library.  Some reports are sorted on SUBJECT."
^DD(680.3,.01,4)="I X=""??"" S XQH=""LBRY SUBJECT NAME ??"" D EN^XQH"
^DD(680.3,.01,21,0)="^^5^5^2940519^"
^DD(680.3,.01,21,1,0)="This field allows for the input of subject headings for"
^DD(680.3,.01,21,2,0)="serials titles.  Serials titles may have more than one"
^DD(680.3,.01,21,3,0)="subject heading assigned.  Subject headings must be created"
^DD(680.3,.01,21,4,0)="first before they can be used in the SUBJECT field in the HOL"
^DD(680.3,.01,21,5,0)="option."
^DD(680.3,.01,"DT")="2880607"
^DD(680.3,"B","NAME",.01)=""
^DD(680.3,"GL",0,1,.01)=""
^DD(680.3,"IX",.01)=""
^DD(680.3,"RQ",.01)=""
^DD(680.4,0)="FIELD^^1^9"
^DD(680.4,0,"DDA")="N"
^DD(680.4,0,"DT")="2970409"
^DD(680.4,0,"ID",.02)="W """""
^DD(680.4,0,"ID","WRITE")="W ?40,$S($D(^DIC(49,+$P(^(0),U,2),0))#2:$P(^(0),U,8),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(680.4,0,"IX","B",680.4,.01)=""
^DD(680.4,0,"NM","NAME")=""
^DD(680.4,0,"PT",680,10.7)=""
^DD(680.4,0,"PT",681,1.7)=""
^DD(680.4,0,"PT",681.02,.01)=""
^DD(680.4,0,"VR")="2.5"
^DD(680.4,0,"VRPK")="LBR"
^DD(680.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(680.4,.01,1,0)="^.1"
^DD(680.4,.01,1,1,0)="680.4^B"
^DD(680.4,.01,1,1,1)="S ^LBRY(680.4,""B"",$E(X,1,30),DA)="""""
^DD(680.4,.01,1,1,2)="K ^LBRY(680.4,""B"",$E(X,1,30),DA)"
^DD(680.4,.01,3)="Enter an individual, last name first, a service name or a ward. (1-30 characters)."
^DD(680.4,.01,4)="I X=""??"" S XQH=""LBRY NAME ??"" D EN^XQH"
^DD(680.4,.01,21,0)="^^6^6^2940519^"
^DD(680.4,.01,21,1,0)="This field allows the input of names in the local Serials"
^DD(680.4,.01,21,2,0)="Module which are used as donors (CSE option), routing"
^DD(680.4,.01,21,3,0)="recipients (CSE option), or person who request the purchase"
^DD(680.4,.01,21,4,0)="of a serials title (REQUESTORS in HOL option).  Names do not"
^DD(680.4,.01,21,5,0)="have to be established first in the Name File before use;"
^DD(680.4,.01,21,6,0)="they can be established as needed in the other options."
^DD(680.4,.01,"DT")="2970314"
^DD(680.4,.02,0)="SERVICE^P49'^DIC(49,^0;2^Q"
^DD(680.4,.02,3)="Select a Service name from the list in the Service/Section File."
^DD(680.4,.02,21,0)="^^7^7^2970710^^^^"
^DD(680.4,.02,21,1,0)=" "
^DD(680.4,.02,21,2,0)=" "
^DD(680.4,.02,21,3,0)="Please select a V.A. Hospital Service location.  The MAIL STOP"
^DD(680.4,.02,21,4,0)="associated with the service will be used on Routing Slips."
^DD(680.4,.02,21,5,0)=" "
^DD(680.4,.02,21,6,0)="If your ""Service"" isn't in the Hospital Service File please"
^DD(680.4,.02,21,7,0)="request a change from appropriate IRM personnel."
^DD(680.4,.02,"DT")="2871230"
^DD(680.4,.03,0)="ADDRESS 1^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(680.4,.03,3)="Enter street address (one line, max 30 characters long)."
^DD(680.4,.03,21,0)="^^2^2^2940519^"
^DD(680.4,.03,21,1,0)="This field allows the input of a street address for a person"
^DD(680.4,.03,21,2,0)="in the Name File."
^DD(680.4,.04,0)="ADDRESS 2^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(680.4,.04,3)="Enter P.O. BOX (one line, max 30 characters long)."
^DD(680.4,.04,21,0)="^^2^2^2940519^"
^DD(680.4,.04,21,1,0)="This field allows the input of additional street address"
^DD(680.4,.04,21,2,0)="for a person in the Name File."
^DD(680.4,.05,0)="CITY^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(680.4,.05,3)="Enter city name (max 30 characters long)."
^DD(680.4,.05,21,0)="^^2^2^2940519^"
^DD(680.4,.05,21,1,0)="This field allows the input of a city for a person in"
^DD(680.4,.05,21,2,0)="the Name File."
^DD(680.4,.06,0)="STATE^P5'^DIC(5,^0;6^Q"
^DD(680.4,.06,3)="Select the state to go with the address."
^DD(680.4,.06,21,0)="^^2^2^2940519^"
^DD(680.4,.06,21,1,0)="This field allows the input of a state for a person in"
^DD(680.4,.06,21,2,0)="the Name File."
^DD(680.4,.07,0)="ZIP^F^^0;7^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(680.4,.07,3)="Enter a 5 digit zip code or 9 digit with dash."
^DD(680.4,.07,21,0)="^^2^2^2940519^"
^DD(680.4,.07,21,1,0)="This field allows the input of a zip code for a person"
^DD(680.4,.07,21,2,0)="in the Name File."
^DD(680.4,.07,"DT")="2950725"
^DD(680.4,.08,0)="PHONE^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(680.4,.08,3)="Enter phone number including AREA CODE (up to 20 characters long)."
^DD(680.4,.08,21,0)="^^2^2^2940519^"
^DD(680.4,.08,21,1,0)="This field allows the input of a phone number for a"
^DD(680.4,.08,21,2,0)="person in the Name File."
^DD(680.4,1,0)="SITE NAME^P680.6'^LBRY(680.6,^0;9^Q"
^DD(680.4,1,3)="Enter the correct site"
^DD(680.4,1,21,0)="^^1^1^2970314^^"
^DD(680.4,1,21,1,0)="Divisional site identification"
^DD(680.4,1,"DT")="2970409"
^DD(680.4,"B","ADDRESS 1",.03)=""
^DD(680.4,"B","ADDRESS 2",.04)=""
^DD(680.4,"B","CITY",.05)=""
^DD(680.4,"B","NAME",.01)=""
^DD(680.4,"B","PHONE",.08)=""
^DD(680.4,"B","SERVICE",.02)=""
^DD(680.4,"B","SITE NAME",1)=""
^DD(680.4,"B","STATE",.06)=""
^DD(680.4,"B","ZIP",.07)=""
^DD(680.4,"GL",0,1,.01)=""
^DD(680.4,"GL",0,2,.02)=""
^DD(680.4,"GL",0,3,.03)=""
^DD(680.4,"GL",0,4,.04)=""
^DD(680.4,"GL",0,5,.05)=""
^DD(680.4,"GL",0,6,.06)=""
^DD(680.4,"GL",0,7,.07)=""
^DD(680.4,"GL",0,8,.08)=""
^DD(680.4,"GL",0,9,1)=""
^DD(680.4,"IX",.01)=""
^DD(680.4,"RQ",.01)=""
^DD(680.5,0)="FIELD^^18^21"
^DD(680.5,0,"DDA")="N"
^DD(680.5,0,"DIK")="LBRYX5"
^DD(680.5,0,"DIKOLD")="LBRYX5"
^DD(680.5,0,"DT")="2930601"
^DD(680.5,0,"ID","WRITE")="I $L($P(^(0),U,1))>30 W !,?5,$P(^(0),U,1)"
^DD(680.5,0,"IX","B",680.5,.01)=""
^DD(680.5,0,"IX","C",680.5,.01)=""
^DD(680.5,0,"IX","D",680.5,10)=""
^DD(680.5,0,"IX","E",680.5,7)=""
^DD(680.5,0,"IX","F",680.5,11)=""
^DD(680.5,0,"IX","H",680.5,1)=""
^DD(680.5,0,"NM","TITLE AUTHORITY")=""
^DD(680.5,0,"PT",680,.01)=""
^DD(680.5,0,"PT",680.5,8)=""
^DD(680.5,0,"PT",680.5,9)=""
^DD(680.5,0,"VR")="2.5"
^DD(680.5,0,"VRPK")="LBR"
^DD(680.5,.01,0)="TITLE^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) D IT1^LBRYET3"
^DD(680.5,.01,1,0)="^.1"
^DD(680.5,.01,1,1,0)="680.5^B"
^DD(680.5,.01,1,1,1)="S ^LBRY(680.5,""B"",$E(X,1,30),DA)="""""
^DD(680.5,.01,1,1,2)="K ^LBRY(680.5,""B"",$E(X,1,30),DA)"
^DD(680.5,.01,1,1,"%D",0)="^^1^1^2970905^"
^DD(680.5,.01,1,1,"%D",1,0)="This is the regular ""B"" cross-reference for titles."
^DD(680.5,.01,1,1,"DT")="2970905"
^DD(680.5,.01,1,2,0)="680.5^C^KWIC"
^DD(680.5,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I,I'=""AMERICAN"",I'=""AMERICA"",I'=""JOURNAL"" S ^LBRY(680.5,""C"",I,DA)="""""
^DD(680.5,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^LBRY(680.5,""C"",I,DA)"
^DD(680.5,.01,1,2,"%D",0)="^^1^1^2950725^"
^DD(680.5,.01,1,2,"%D",1,0)="Regular 'Key Word' FileMan cross-reference for journal titles."
^DD(680.5,.01,3)="Enter the NLM Title (up to 160 characters)."
^DD(680.5,.01,4)="I X=""??"" S XQH=""LBRY GENERIC HELP PROMPT"" D EN^XQH"
^DD(680.5,.01,21,0)="^^9^9^2940519^"
^DD(680.5,.01,21,1,0)="The title is the full title of a specific serial publication.  Such"
^DD(680.5,.01,21,2,0)="titles can be extremely long and the initial words in two different"
^DD(680.5,.01,21,3,0)="titles can be exactly the same for a considerable length, for example:"
^DD(680.5,.01,21,4,0)="   SCANDINAVIAN JOURNAL OF PATHOLOGY AND LABORATORY MEDICINE"
^DD(680.5,.01,21,5,0)="   SCANDINAVIAN JOURNAL OF PATHOLOGY AND LABORATORY MEDICINE."
^DD(680.5,.01,21,6,0)="SUPPLEMENTUM"
^DD(680.5,.01,21,7,0)="Since exact alphabetization of these titles is very important in the"
^DD(680.5,.01,21,8,0)="serials process, it is crucial that the field length be long enough"
^DD(680.5,.01,21,9,0)="to accommodate all possibilities."
^DD(680.5,.01,"AUDIT")="n"
^DD(680.5,.01,"DT")="2970905"
^DD(680.5,.02,0)="LOCAL SERIALS^SIX^1:ACTIVE LOCAL SERIALS;2:INACTIVE LOCAL SERIALS;^0;2^Q"
^DD(680.5,.02,9)="^"
^DD(680.5,.02,21,0)="^^11^11^2950814^^^"
^DD(680.5,.02,21,1,0)="If a title is 'active', meaning no value has been input for"
^DD(680.5,.02,21,2,0)="this field, that title is available for the full range of"
^DD(680.5,.02,21,3,0)="options, including all the Serials Control Option functions."
^DD(680.5,.02,21,4,0)="If it is rendered 'inactive' by one of the codes, it is no"
^DD(680.5,.02,21,5,0)="longer available for any of the SErials Control Option functions"
^DD(680.5,.02,21,6,0)="and Copy Specific Edit, but can still be used in Holdings "
^DD(680.5,.02,21,7,0)="options.  If it is inactive, it indicates that the library will"
^DD(680.5,.02,21,8,0)="not be receiving any more current issues, but will be keeping its"
^DD(680.5,.02,21,9,0)="retrospective holdings.  Should the title need to be reactivated,"
^DD(680.5,.02,21,10,0)="the value in the INACTIVE field can be deleted.  Found in"
^DD(680.5,.02,21,11,0)="LTS option."
^DD(680.5,.02,"DT")="2890112"
^DD(680.5,.03,0)="PREDICTION PATTERN^P680.9'^LBRY(680.9,^0;3^Q"
^DD(680.5,.03,21,0)="^^13^13^2940519^"
^DD(680.5,.03,21,1,0)="This field provides for the prediction pattern which has been"
^DD(680.5,.03,21,2,0)="assigned in the National Library Files Maintenance option on"
^DD(680.5,.03,21,3,0)="FORUM for a serials title which is still being published.  No"
^DD(680.5,.03,21,4,0)="local input in the local Serials Module is allowed for this"
^DD(680.5,.03,21,5,0)="field.  If there is no value in this field, there is no"
^DD(680.5,.03,21,6,0)="prediction pattern for this title, and thus there will be no"
^DD(680.5,.03,21,7,0)="automatic prediction of the next expected issue in the CHE"
^DD(680.5,.03,21,8,0)="option on the local module.  Certain issuing patterns by"
^DD(680.5,.03,21,9,0)="publishers do not lend themselves to the establishment of a"
^DD(680.5,.03,21,10,0)="prediction pattern, most notably those quarterly publications"
^DD(680.5,.03,21,11,0)="which are labeled with seasonal designations such as spring,"
^DD(680.5,.03,21,12,0)="winter, etc.  In order for a prediction pattern to be created,"
^DD(680.5,.03,21,13,0)="the serials title must be dated in a MM/YY or MM/DD/YY format."
^DD(680.5,.03,"DT")="2880119"
^DD(680.5,.04,0)="FREQUENCY^P680.2'^LBRY(680.2,^0;4^Q"
^DD(680.5,.04,21,0)="^^9^9^2940519^"
^DD(680.5,.04,21,1,0)="This field provides for the frequency of issue which has"
^DD(680.5,.04,21,2,0)="been assigned in the National Library Files Maintenance"
^DD(680.5,.04,21,3,0)="option on FORUM.  No local input in the local Serials Module"
^DD(680.5,.04,21,4,0)="is allowed for this field.  Every serials title may have a"
^DD(680.5,.04,21,5,0)="frequency assigned; however, not every serials title may"
^DD(680.5,.04,21,6,0)="have a prediction pattern.  If no prediction pattern can"
^DD(680.5,.04,21,7,0)="be assigned, the frequency field may have the following type"
^DD(680.5,.04,21,8,0)="of value:  QUARTERLY, NO PREDICT. PATTERN.  Old serials which"
^DD(680.5,.04,21,9,0)="are no longer published may not have a frequency entered."
^DD(680.5,.04,"DT")="2880119"
^DD(680.5,.05,0)="PORTION^RSX^N:NATIONAL;L:LOCAL;^0;5^Q"
^DD(680.5,.05,21,0)="^^4^4^2940519^"
^DD(680.5,.05,21,1,0)="This field indicates whether the title has been downloaded"
^DD(680.5,.05,21,2,0)="from the National Library Files Maintenance option on FORUM"
^DD(680.5,.05,21,3,0)="or has been locally created.  The data in this field is"
^DD(680.5,.05,21,4,0)="automatically created and cannot be changed locally."
^DD(680.5,.05,"DT")="2880422"
^DD(680.5,1,0)="SERLINE UNIQUE IDENTIFIER^FX^^3;1^D TCN^LBRYFINP"
^DD(680.5,1,1,0)="^.1"
^DD(680.5,1,1,1,0)="680.5^H"
^DD(680.5,1,1,1,1)="S ^LBRY(680.5,""H"",$E(X,1,30),DA)="""""
^DD(680.5,1,1,1,2)="K ^LBRY(680.5,""H"",$E(X,1,30),DA)"
^DD(680.5,1,1,1,"%D",0)="^^3^3^2950814^^^"
^DD(680.5,1,1,1,"%D",1,0)="This cross reference lets users look up serials by an identifier"
^DD(680.5,1,1,1,"%D",2,0)="that comes from SERLINE at the National Library of Medicine so that"
^DD(680.5,1,1,1,"%D",3,0)="librarians can use DOCLINE."
^DD(680.5,1,1,1,"DT")="2941012"
^DD(680.5,1,3)="Enter National Library of Medicine (NLM) number (1 LETTER & 8 DIGITS)."
^DD(680.5,1,21,0)="^^6^6^2940519^"
^DD(680.5,1,21,1,0)="This field allows for the input of the 9 character SERLINE"
^DD(680.5,1,21,2,0)="number which is assigned to each title in the National"
^DD(680.5,1,21,3,0)="Library of Medicine SERHOLD database.  Not every serials title"
^DD(680.5,1,21,4,0)="in the Serials Module will have a SERLINE number, particularly"
^DD(680.5,1,21,5,0)="non-medical titles.  Titles without a SERLINE number will not"
^DD(680.5,1,21,6,0)="be report to SERHOLD."
^DD(680.5,1,"DT")="2941012"
^DD(680.5,2,0)="PUBLISHER^P680.1X^LBRY(680.1,^3;2^Q"
^DD(680.5,2,3)="Select the publisher of the journal as found on the title page.  If this is a new publisher not in the Publisher List, leave the field blank."
^DD(680.5,2,21,0)="^^2^2^2940519^"
^DD(680.5,2,21,1,0)="This field allows for the input of the name of a publisher"
^DD(680.5,2,21,2,0)="for a serials title."
^DD(680.5,2,"DT")="2870804"
^DD(680.5,3,0)="INDEXED^680.53PA^^1;0"
^DD(680.5,3,21,0)="^^1^1^2940825^"
^DD(680.5,3,21,1,0)="How is the serial indexed ?"
^DD(680.5,4,0)="GENERAL NOTES^680.54^^2;0"
^DD(680.5,4,21,0)="^^4^4^2940519^"
^DD(680.5,4,21,1,0)="This word-processing field allows for notes to be entered"
^DD(680.5,4,21,2,0)="concerning the bibliographic history of this serials title,"
^DD(680.5,4,21,3,0)="including former names, names it is continued by, alternative"
^DD(680.5,4,21,4,0)="names it may be known by, changes in publishing history, etc."
^DD(680.5,5,0)="FIRST ISSUE^FX^^3;3^K:$L(X)>45!($L(X)<3) X"
^DD(680.5,5,3)="Issue and year of FIRST ISSUE (historical) 3-45 characters (e.g. 1N1,MAR/APR 1975 or 1N,1972)."
^DD(680.5,5,21,0)="^^5^5^2940519^"
^DD(680.5,5,21,1,0)="This field is for the input of the first volume and issue"
^DD(680.5,5,21,2,0)="number and issue date, historically, used when this specific"
^DD(680.5,5,21,3,0)="serials title was first published under this name.  These"
^DD(680.5,5,21,4,0)="volume and issue numbers and issue dates are not necessarily"
^DD(680.5,5,21,5,0)="the same as holdings statements."
^DD(680.5,5,"DT")="2870804"
^DD(680.5,6,0)="LAST ISSUE^FX^^3;4^K:$L(X)>30!($L(X)<3) X"
^DD(680.5,6,3)="Issue and year of LAST ISSUE (historical) 3-30 characters (e.g. 120N/1995)."
^DD(680.5,6,21,0)="^^5^5^2940519^"
^DD(680.5,6,21,1,0)="This field is for the input of the last volume and issue"
^DD(680.5,6,21,2,0)="number and issue date, historically, used when this specific"
^DD(680.5,6,21,3,0)="serials title was last published under this name.  These volume"
^DD(680.5,6,21,4,0)="and issue numbers and issue dates are not necessarily the same"
^DD(680.5,6,21,5,0)="as holdings statements."
^DD(680.5,6,"DT")="2870804"
^DD(680.5,7,0)="ISSN/ISBN^FX^^3;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<5) X"
^DD(680.5,7,1,0)="^.1"
^DD(680.5,7,1,1,0)="680.5^E"
^DD(680.5,7,1,1,1)="S ^LBRY(680.5,""E"",$E(X,1,30),DA)="""""
^DD(680.5,7,1,1,2)="K ^LBRY(680.5,""E"",$E(X,1,30),DA)"
^DD(680.5,7,1,1,"%D",0)="^^2^2^2950725^"
^DD(680.5,7,1,1,"%D",1,0)="Regular FileMan ""E"" cross-reference of the serials number which"
^DD(680.5,7,1,1,"%D",2,0)="is used in look-up."
^DD(680.5,7,3)="Enter ISSN or ISBN (20 characters max). "
^DD(680.5,7,21,0)="^^3^3^2940519^"
^DD(680.5,7,21,1,0)="This field is for the International Standard Serials Number"
^DD(680.5,7,21,2,0)="or the International Standard Book Number for the specific"
^DD(680.5,7,21,3,0)="serials title."
^DD(680.5,7,"DT")="2880113"
^DD(680.5,8,0)="FORMERLY^P680.5X'^LBRY(680.5,^3;6^Q"
^DD(680.5,8,3)="Select the TITLE name that changed to this name"
^DD(680.5,8,4)="I X=""??"" S XQH=""LBRY GENERIC HELP PROMPT"" D EN^XQH"
^DD(680.5,8,21,0)="^^2^2^2940519^"
^DD(680.5,8,21,1,0)="This field is for the complete serials title which was the"
^DD(680.5,8,21,2,0)="immediate predecessor to this specific serials title."
^DD(680.5,8,"DT")="2870904"
^DD(680.5,9,0)="CONTINUED BY^P680.5X'^LBRY(680.5,^3;7^Q"
^DD(680.5,9,.1)=""
^DD(680.5,9,3)="Select the TITLE name that this title became"
^DD(680.5,9,4)="I X=""??"" S XQH=""LBRY GENERIC HELP PROMPT"" D EN^XQH"
^DD(680.5,9,21,0)="^^2^2^2940519^"
^DD(680.5,9,21,1,0)="This field is for the complete serials title which is"
^DD(680.5,9,21,2,0)="the immediate successor to this specific serials title."
^DD(680.5,9,"DT")="2870904"
^DD(680.5,10,0)="NLM TITLE ABBREVIATION^F^^3;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(680.5,10,1,0)="^.1"
^DD(680.5,10,1,1,0)="680.5^D"
^DD(680.5,10,1,1,1)="S ^LBRY(680.5,""D"",$E(X,1,30),DA)="""""
^DD(680.5,10,1,1,2)="K ^LBRY(680.5,""D"",$E(X,1,30),DA)"
^DD(680.5,10,1,1,"%D",0)="^^2^2^2950725^"
^DD(680.5,10,1,1,"%D",1,0)="Regular FileMan ""D"" cross-reference of the Title Abbreviation which"
^DD(680.5,10,1,1,"%D",2,0)="is used in look-up."
^DD(680.5,10,3)="Enter the NLM Title Abbreviation for this title 1-50 characters."
^DD(680.5,10,4)="I X=""??"" S XQH=""LBRY NLM HELP ??"" D EN^XQH"
^DD(680.5,10,21,0)="^^3^3^2940519^"
^DD(680.5,10,21,1,0)="This field is for a title abbreviation either assigned by the"
^DD(680.5,10,21,2,0)="National Library of Medicine or created following their"
^DD(680.5,10,21,3,0)="abbreviation format."
^DD(680.5,10,"DT")="2870916"
^DD(680.5,11,0)="SYNONYM^F^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X"
^DD(680.5,11,1,0)="^.1"
^DD(680.5,11,1,1,0)="680.5^F"
^DD(680.5,11,1,1,1)="S ^LBRY(680.5,""F"",$E(X,1,30),DA)="""""
^DD(680.5,11,1,1,2)="K ^LBRY(680.5,""F"",$E(X,1,30),DA)"
^DD(680.5,11,1,1,"%D",0)="^^2^2^2950725^"
^DD(680.5,11,1,1,"%D",1,0)="Regular FileMan ""F"" cross-reference of the synonym which is used"
^DD(680.5,11,1,1,"%D",2,0)="in look-up."
^DD(680.5,11,3)="Enter the short name normally used for this title."
^DD(680.5,11,21,0)="^^6^6^2940519^"
^DD(680.5,11,21,1,0)="This field is for the input of a synonym, alternative name, or"
^DD(680.5,11,21,2,0)="acronym commonly used for this serials title.  For instance,"
^DD(680.5,11,21,3,0)="the New England Journal of Medicine is often called: NEJM.  This"
^DD(680.5,11,21,4,0)="field is not the same as the NLM TITLE ABBREVIATION.  If an"
^DD(680.5,11,21,5,0)="acronym is the official title of the serial, then the spelled-"
^DD(680.5,11,21,6,0)="out version of the title would be entered in this field."
^DD(680.5,11,"DT")="2880607"
^DD(680.5,12,0)="SOURCE^F^^4;2^K:$L(X)>100!($L(X)<1) X"
^DD(680.5,12,3)="ANSWER MUST BE 1-100 CHARACTERS IN LENGTH"
^DD(680.5,12,21,0)="^^5^5^2940519^"
^DD(680.5,12,21,1,0)="This field is for the name of the authority used to establish"
^DD(680.5,12,21,2,0)="the bibliographic information for this serials title record."
^DD(680.5,12,21,3,0)="Preferred sources are SERLINE, Ulrich's, OCLC, etc.  and as a"
^DD(680.5,12,21,4,0)="last resort, the item itself.  This field is found only in the"
^DD(680.5,12,21,5,0)="TAF file on FORUM, not on the local Serials Module."
^DD(680.5,12,"DT")="2880822"
^DD(680.5,13,0)="EDITOR^P200'X^VA(200,^4;3^Q"
^DD(680.5,13,21,0)="^^2^2^2970718^^"
^DD(680.5,13,21,1,0)="This field identifies which employee last edited the TAF"
^DD(680.5,13,21,2,0)="file for this serials title record on FORUM."
^DD(680.5,13,"DT")="2930601"
^DD(680.5,14,0)="DATE UPDATED ANY^D^^4;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(680.5,14,21,0)="^^2^2^2970718^^"
^DD(680.5,14,21,1,0)="This field identifies the date on which a employee last"
^DD(680.5,14,21,2,0)="edit the TAF file for this serials title record on FORUM."
^DD(680.5,14,"DT")="2880822"
^DD(680.5,17,0)="CURRENT SUBSCRIPTION PRICE^NJ7,2^^3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(680.5,17,3)="Type a Dollar Amount between 0 and 9999, 2 Decimal Digits"
^DD(680.5,17,21,0)="^^2^2^2940823^^"
^DD(680.5,17,21,1,0)="This field allows the input of the current subscription"
^DD(680.5,17,21,2,0)="price for this serials title."
^DD(680.5,17,"DT")="2900629"
^DD(680.5,18,0)="COUNTRY OF PUBLICATION^P681.1'^LBRY(681.1,^3;10^Q"
^DD(680.5,18,21,0)="^^2^2^2940719^^"
^DD(680.5,18,21,1,0)="This field allows the input of the country in which"
^DD(680.5,18,21,2,0)="this serials title is published."
^DD(680.5,18,"DT")="2900629"
^DD(680.5,"B","CONTINUED BY",9)=""
^DD(680.5,"B","COUNTRY OF PUBLICATION",18)=""
^DD(680.5,"B","CURRENT SUBSCRIPTION PRICE",17)=""
^DD(680.5,"B","DATE UPDATED ANY",14)=""
^DD(680.5,"B","EDITOR",13)=""
^DD(680.5,"B","FIRST ISSUE",5)=""
^DD(680.5,"B","FORMERLY",8)=""
^DD(680.5,"B","FREQUENCY",.04)=""
^DD(680.5,"B","GENERAL NOTES",4)=""
^DD(680.5,"B","INDEXED",3)=""
^DD(680.5,"B","ISSN/ISBN",7)=""
^DD(680.5,"B","LAST ISSUE",6)=""
^DD(680.5,"B","LOCAL SERIALS",.02)=""
^DD(680.5,"B","NLM TITLE ABBREVIATION",10)=""
^DD(680.5,"B","PORTION",.05)=""
^DD(680.5,"B","PREDICTION PATTERN",.03)=""
^DD(680.5,"B","PUBLISHER",2)=""
^DD(680.5,"B","SERLINE UNIQUE IDENTIFIER",1)=""
^DD(680.5,"B","SOURCE",12)=""
^DD(680.5,"B","SYNONYM",11)=""
^DD(680.5,"B","TITLE",.01)=""
^DD(680.5,"GL",0,1,.01)=""
^DD(680.5,"GL",0,2,.02)=""
^DD(680.5,"GL",0,3,.03)=""
^DD(680.5,"GL",0,4,.04)=""
^DD(680.5,"GL",0,5,.05)=""
^DD(680.5,"GL",0,6,11)=""
^DD(680.5,"GL",1,0,3)=""
^DD(680.5,"GL",2,0,4)=""
^DD(680.5,"GL",3,1,1)=""
^DD(680.5,"GL",3,2,2)=""
^DD(680.5,"GL",3,3,5)=""
^DD(680.5,"GL",3,4,6)=""
^DD(680.5,"GL",3,5,7)=""
^DD(680.5,"GL",3,6,8)=""
^DD(680.5,"GL",3,7,9)=""
^DD(680.5,"GL",3,8,10)=""
^DD(680.5,"GL",3,9,17)=""
^DD(680.5,"GL",3,10,18)=""
^DD(680.5,"GL",4,2,12)=""
^DD(680.5,"GL",4,3,13)=""
^DD(680.5,"GL",4,4,14)=""
^DD(680.5,"IX",.01)=""
^DD(680.5,"IX",1)=""
^DD(680.5,"IX",7)=""
^DD(680.5,"IX",10)=""
^DD(680.5,"IX",11)=""
^DD(680.5,"RQ",.01)=""
^DD(680.5,"RQ",.05)=""
^DD(680.5,"SB",680.53,3)=""
^DD(680.5,"SB",680.54,4)=""
^DD(680.53,0)="INDEXED SUB-FIELD^^.01^1"
^DD(680.53,0,"DIK")="LBRYX5"
^DD(680.53,0,"IX","B",680.53,.01)=""
^DD(680.53,0,"NM","INDEXED")=""
^DD(680.53,0,"UP")="680.5"
^DD(680.53,.01,0)="INDEXED^MP680.8'^LBRY(680.8,^0;1^Q"
^DD(680.53,.01,1,0)="^.1"
^DD(680.53,.01,1,1,0)="680.53^B"
^DD(680.53,.01,1,1,1)="S ^LBRY(680.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(680.53,.01,1,1,2)="K ^LBRY(680.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(680.53,.01,3)="Enter indexing sources for this title."
^DD(680.53,.01,21,0)="^^2^2^2940519^"
^DD(680.53,.01,21,1,0)="This field allows for the multiple input of the sources"
^DD(680.53,.01,21,2,0)="in which the serials title is indexed or abstracted."
^DD(680.53,.01,"DT")="2871210"
^DD(680.53,"B","INDEXED",.01)=""
^DD(680.53,"GL",0,1,.01)=""
^DD(680.53,"IX",.01)=""
^DD(680.54,0)="GENERAL NOTES SUB-FIELD^^.01^1"
^DD(680.54,0,"NM","GENERAL NOTES")=""
^DD(680.54,0,"UP")="680.5"
^DD(680.54,.01,0)="GENERAL NOTES^WX^^0;1^Q"
^DD(680.54,.01,3)="Enter the bibliographic history of this title here.  Enter the data in the format you would like it to be printed out in the reports."
^DD(680.54,.01,21,0)="^^4^4^2940519^"
^DD(680.54,.01,21,1,0)="This word-processing field allows for notes to be entered"
^DD(680.54,.01,21,2,0)="concerning the bibliographic history of this serials title,"
^DD(680.54,.01,21,3,0)="including former names, names it is continued by, alternative"
^DD(680.54,.01,21,4,0)="names it may be known by, changes in publishing history, etc."
^DD(680.54,.01,"DT")="2870804"
^DD(680.54,"B","GENERAL NOTES",.01)=""
^DD(680.54,"GL",0,1,.01)=""
^DD(680.6,0)="FIELD^^.1^10"
^DD(680.6,0,"DDA")="N"
^DD(680.6,0,"DT")="2951012"
^DD(680.6,0,"ID","WRITE")="W ?35,$P(^(0),U,7)"
^DD(680.6,0,"IX","B",680.6,.01)=""
^DD(680.6,0,"IX","C",680.6,.07)=""
^DD(680.6,0,"NM","LIBRARY PARAMETERS")=""
^DD(680.6,0,"PT",680,.04)=""
^DD(680.6,0,"PT",680.4,1)=""
^DD(680.6,0,"PT",680.7,.02)=""
^DD(680.6,0,"PT",681,.04)=""
^DD(680.6,0,"PT",681,1.8)=""
^DD(680.6,0,"PT",682,.04)=""
^DD(680.6,0,"VR")="2.5"
^DD(680.6,0,"VRPK")="LBR"
^DD(680.6,.01,0)="SITE NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X I $D(X) S X=$$UP^XLFSTR(X)"
^DD(680.6,.01,1,0)="^.1"
^DD(680.6,.01,1,1,0)="680.6^B"
^DD(680.6,.01,1,1,1)="S ^LBRY(680.6,""B"",$E(X,1,30),DA)="""""
^DD(680.6,.01,1,1,2)="K ^LBRY(680.6,""B"",$E(X,1,30),DA)"
^DD(680.6,.01,1,1,"%D",0)="^^1^1^2950725^"
^DD(680.6,.01,1,1,"%D",1,0)="Regular FileMan ""B"" cross-reference."
^DD(680.6,.01,3)="Enter the name/code for the library location."
^DD(680.6,.01,21,0)="^^4^4^2961227^^"
^DD(680.6,.01,21,1,0)="This field is to name the library in terms of a specific"
^DD(680.6,.01,21,2,0)="name, building number, facility name, etc.  For example,"
^DD(680.6,.01,21,3,0)="names could be: Holt Library, Bedford Library, Bldg. 205"
^DD(680.6,.01,21,4,0)="Library."
^DD(680.6,.01,"DT")="2951012"
^DD(680.6,.02,0)="DEFAULT VENDOR^FX^^0;2^S DIC=""^PRC(440,"",DIC(0)=""EQZ"" D ^DIC K:Y<0 X Q:Y<0  S X=$S($D(Y(0)):$P(Y(0),U,1),1:"""") K:X="""" X K DIC"
^DD(680.6,.02,3)="Choose the vendor to be prompted in the disposition vendor entry."
^DD(680.6,.02,4)="S ZD=D,X=""?"",DIC=""^PRC(440,"",DIC(0)=""EQ"" D ^DIC S D=ZD K DIC,ZD"
^DD(680.6,.02,21,0)="^^6^6^2940824^^^"
^DD(680.6,.02,21,1,0)="This field is to input the name of vendor which is used"
^DD(680.6,.02,21,2,0)="for the majority of the current subscriptions.  The value"
^DD(680.6,.02,21,3,0)="input here will be the name of the vendor which pops up"
^DD(680.6,.02,21,4,0)="as the default for the VENDOR field in the CSE option.  This"
^DD(680.6,.02,21,5,0)="field points to the station's vendor file;  therefore values"
^DD(680.6,.02,21,6,0)="to be used here must already be in the vendor file."
^DD(680.6,.02,"DT")="2870518"
^DD(680.6,.03,0)="ROUTING SLIP PRINTER^FX^^0;3^D EN1^LBRYASK"
^DD(680.6,.03,3)="Choose the printer nearest to this site."
^DD(680.6,.03,4)="D EN2^LBRYASK"
^DD(680.6,.03,21,0)="^^7^7^2940824^^"
^DD(680.6,.03,21,1,0)="This field allows for the input of the local facility name"
^DD(680.6,.03,21,2,0)="or identifying code or number for the separately ported printer"
^DD(680.6,.03,21,3,0)="which will be used to generate the routing slips at the time of"
^DD(680.6,.03,21,4,0)="check-in.  If no printer is assigned here, then routing slips"
^DD(680.6,.03,21,5,0)="will print to the screen and will have to be captured to a"
^DD(680.6,.03,21,6,0)="slaved printer.  This will slow down the check-in process"
^DD(680.6,.03,21,7,0)="considerably."
^DD(680.6,.03,"DT")="2870512"
^DD(680.6,.04,0)="DIVISION^P4'^DIC(4,^0;4^Q"
^DD(680.6,.04,3)="Please choose a DIVISION for this location."
^DD(680.6,.04,21,0)="^^6^6^2940520^"
^DD(680.6,.04,21,1,0)="This field is to allow input of a division name in the case of"
^DD(680.6,.04,21,2,0)="two-division facilities.  While the field is present in the"
^DD(680.6,.04,21,3,0)="current version of the Serials Module, it does not activate any"
^DD(680.6,.04,21,4,0)="features to allow two different divisions operating from the same"
^DD(680.6,.04,21,5,0)="DHCP system to use the local Serials Module in a differential"
^DD(680.6,.04,21,6,0)="manner."
^DD(680.6,.04,"DT")="2870326"
^DD(680.6,.05,0)="AUTOMATIC QUEUING^RS^Y:YES;N:NO;^0;5^Q"
^DD(680.6,.05,3)="Enter 'Y' if you want your ROUTING SLIPS queued without asking."
^DD(680.6,.05,21,0)="^^6^6^2940520^"
^DD(680.6,.05,21,1,0)="This field is a set of codes to enable automatic queueing of"
^DD(680.6,.05,21,2,0)="the routing slips during the check-in process to the ROUTING"
^DD(680.6,.05,21,3,0)="SLIP PRINTER identified above.  This question must be answered"
^DD(680.6,.05,21,4,0)="yes and a ROUTING SLIP PRINTER identified to generate routing"
^DD(680.6,.05,21,5,0)="slips automatically.  Otherwise, routing slips will print to"
^DD(680.6,.05,21,6,0)="the screen and must be captured to a slaved printer."
^DD(680.6,.05,"DT")="2880411"
^DD(680.6,.06,0)="MULTI-DIVISION SITE^S^Y:YES;N:NO;^0;6^Q"
^DD(680.6,.06,3)="Enter YES if this is a Multi-Division Site."
^DD(680.6,.06,21,0)="^^2^2^2940520^"
^DD(680.6,.06,21,1,0)="This field is a set of codes that, if answered yes, triggers"
^DD(680.6,.06,21,2,0)="the field called either DIVISION or DIVISION SITE NAME."
^DD(680.6,.06,"DT")="2880411"
^DD(680.6,.07,0)="DIVISION SITE NAME^RFX^^0;7^K:$L(X)>5!($L(X)<5) X I $D(X) S X=$$UP^XLFSTR(X)"
^DD(680.6,.07,1,0)="^.1"
^DD(680.6,.07,1,1,0)="680.6^C"
^DD(680.6,.07,1,1,1)="S ^LBRY(680.6,""C"",$E(X,1,30),DA)="""""
^DD(680.6,.07,1,1,2)="K ^LBRY(680.6,""C"",$E(X,1,30),DA)"
^DD(680.6,.07,1,1,"%D",0)="^^2^2^2960410^"
^DD(680.6,.07,1,1,"%D",1,0)="This cross reference is the 5 letter code used to identify"
^DD(680.6,.07,1,1,"%D",2,0)="the library stations on FORUM."
^DD(680.6,.07,1,1,"DT")="2960410"
^DD(680.6,.07,3)="Enter this site's 5-letter identification (2 letter State Code plus 3 letter ID)."
^DD(680.6,.07,21,0)="^^1^1^2960410^^^^"
^DD(680.6,.07,21,1,0)="Enter the 5-letter site identification used on FORUM."
^DD(680.6,.07,"DT")="2960410"
^DD(680.6,.08,0)="MAIL SYMBOL^F^^0;8^K:$L(X)>10!($L(X)<2) X"
^DD(680.6,.08,3)="Enter the library mail routing symbol"
^DD(680.6,.08,21,0)="^^2^2^2950913^"
^DD(680.6,.08,21,1,0)="This is the particular mail room routing symbol for a particular"
^DD(680.6,.08,21,2,0)="site.  It has been 142D in the past."
^DD(680.6,.08,"DT")="2950913"
^DD(680.6,.09,0)="DEFAULT COREFLS VENDOR^P392.31'O^DGBT(392.31,^0;9^Q"
^DD(680.6,.09,2)="S Y(0)=Y K LBRPREV S LBRPREV=$$PREV^DGBTCSL(.Y)"
^DD(680.6,.09,2.1)="K LBRPREV S LBRPREV=$$PREV^DGBTCSL(.Y)"
^DD(680.6,.09,3)="Choose the vendor to be prompted in the disposition vendor entry."
^DD(680.6,.09,21,0)="^.001^2^2^3021210^^^^"
^DD(680.6,.09,21,1,0)="This field points to the sites local vendor file containing "
^DD(680.6,.09,21,2,0)="coreFLS vendors."
^DD(680.6,.09,"DT")="3021210"
^DD(680.6,.1,0)="COREFLS ACTIVE^SXI^1:YES;0:NO;^0;10^N LBRX S LBRX=X S X=""CSLVQ"" X ^%ZOSF(""TEST"") W:'$T ""   ** COREFLS Package CSL V1.0 not installed. **"" S:'$T X=0 S:$T X=LBRX Q"
^DD(680.6,.1,3)="Enter 'Yes' if using the coreFLS system for vendors."
^DD(680.6,.1,21,0)="^.001^2^2^3021209^^"
^DD(680.6,.1,21,1,0)="This entry determines whether the Library package prompts for coreFLS"
^DD(680.6,.1,21,2,0)="vendor (ACTIVE - YES) or FMS vendor (ACTIVE - NO)."
^DD(680.6,.1,"DT")="3040819"
^DD(680.6,"B","AUTOMATIC QUEUING",.05)=""
^DD(680.6,"B","COREFLS ACTIVE",.1)=""
^DD(680.6,"B","DEFAULT COREFLS VENDOR",.09)=""
^DD(680.6,"B","DEFAULT VENDOR",.02)=""
^DD(680.6,"B","DIVISION",.04)=""
^DD(680.6,"B","DIVISION SITE NAME",.07)=""
^DD(680.6,"B","MAIL SYMBOL",.08)=""
^DD(680.6,"B","MULTI-DIVISION SITE",.06)=""
^DD(680.6,"B","ROUTING SLIP PRINTER",.03)=""
^DD(680.6,"B","SITE NAME",.01)=""
^DD(680.6,"GL",0,1,.01)=""
^DD(680.6,"GL",0,2,.02)=""
^DD(680.6,"GL",0,3,.03)=""
^DD(680.6,"GL",0,4,.04)=""
^DD(680.6,"GL",0,5,.05)=""
^DD(680.6,"GL",0,6,.06)=""
^DD(680.6,"GL",0,7,.07)=""
^DD(680.6,"GL",0,8,.08)=""
^DD(680.6,"GL",0,9,.09)=""
^DD(680.6,"GL",0,10,.1)=""
^DD(680.6,"IX",.01)=""
^DD(680.6,"IX",.07)=""
^DD(680.6,"RQ",.01)=""
^DD(680.6,"RQ",.05)=""
^DD(680.6,"RQ",.07)=""
^DD(680.7,0)="FIELD^^.02^2"
^DD(680.7,0,"DT")="2970409"
^DD(680.7,0,"IX","B",680.7,.01)=""
^DD(680.7,0,"NM","LBRY ITEM PLACEMENT LOCATION")=""
^DD(680.7,0,"PT",680,1.1)=""
^DD(680.7,0,"PT",681,1.1)=""
^DD(680.7,0,"VR")="2.5"
^DD(680.7,0,"VRPK")="LBR"
^DD(680.7,.01,0)="NAME^RF^^0;1^K:$L(X)>35!($L(X)<1) X"
^DD(680.7,.01,1,0)="^.1"
^DD(680.7,.01,1,1,0)="680.7^B"
^DD(680.7,.01,1,1,1)="S ^LBRY(680.7,""B"",$E(X,1,30),DA)="""""
^DD(680.7,.01,1,1,2)="K ^LBRY(680.7,""B"",$E(X,1,30),DA)"
^DD(680.7,.01,1,1,"%D",0)="^^1^1^2950725^"
^DD(680.7,.01,1,1,"%D",1,0)="Regular FileMan ""B"" cross-reference"
^DD(680.7,.01,3)="Enter location (up to 35 characters) where each journal (including 'Administrative' ones) will be kept after check-in."
^DD(680.7,.01,4)=""
^DD(680.7,.01,21,0)="^^6^6^2940520^^^^"
^DD(680.7,.01,21,1,0)="Enter up to 15 characters to describe where this issue is kept/identified."
^DD(680.7,.01,21,2,0)="Some examples are: Med Lib"
^DD(680.7,.01,21,3,0)="                   Bldg 245"
^DD(680.7,.01,21,4,0)="                   Room 213"
^DD(680.7,.01,21,5,0)="                   Workroom"
^DD(680.7,.01,21,6,0)="                   Red (some libraries use color coding)"
^DD(680.7,.01,23,0)="^^6^6^2940520^"
^DD(680.7,.01,23,1,0)="This field provides the names of all the locations where serials"
^DD(680.7,.01,23,2,0)="titles may be stored after routing is finished.  Location names"
^DD(680.7,.01,23,3,0)="would include appropriate library branch names as well as names"
^DD(680.7,.01,23,4,0)="of Services for administrative subscriptions.  These locations"
^DD(680.7,.01,23,5,0)="must be named in this file before they can be used in either the"
^DD(680.7,.01,23,6,0)="HOL option or the CSE option of the local Serials Module."
^DD(680.7,.01,"DT")="2970314"
^DD(680.7,.02,0)="SITE NAME^P680.6'^LBRY(680.6,^0;2^Q"
^DD(680.7,.02,3)="Enter appropriate site name"
^DD(680.7,.02,21,0)="^^1^1^2950829^"
^DD(680.7,.02,21,1,0)="This field is used to identify the appropriate division."
^DD(680.7,.02,"DT")="2970409"
^DD(680.7,"B","NAME",.01)=""
^DD(680.7,"B","SITE NAME",.02)=""
^DD(680.7,"GL",0,1,.01)=""
^DD(680.7,"GL",0,2,.02)=""
^DD(680.7,"IX",.01)=""
^DD(680.7,"RQ",.01)=""
^DD(680.8,0)="FIELD^^1^2"
^DD(680.8,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(680.8,0,"IX","B",680.8,.01)=""
^DD(680.8,0,"IX","C",680.8,1)=""
^DD(680.8,0,"NM","INDEXING SOURCES")=""
^DD(680.8,0,"PT",680.53,.01)=""
^DD(680.8,0,"VR")="2.5"
^DD(680.8,.01,0)="ABSTRACT OR INDEX TITLE^RF^^0;1^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(680.8,.01,1,0)="^.1"
^DD(680.8,.01,1,1,0)="680.8^B"
^DD(680.8,.01,1,1,1)="S ^LBRY(680.8,""B"",$E(X,1,30),DA)="""""
^DD(680.8,.01,1,1,2)="K ^LBRY(680.8,""B"",$E(X,1,30),DA)"
^DD(680.8,.01,1,1,"%D",0)="^^1^1^2950725^"
^DD(680.8,.01,1,1,"%D",1,0)="Regular FileMan ""B"" cross-reference."
^DD(680.8,.01,3)="Exclude leading A, AN or THE.  Otherwise enter full name."
^DD(680.8,.01,21,0)="^^2^2^2940520^^^"
^DD(680.8,.01,21,1,0)="This file is populated with abstracting and indexing titles and codes"
^DD(680.8,.01,21,2,0)="as of 4/22/88."
^DD(680.8,.01,21,3,0)="expandable at individual sites."
^DD(680.8,.01,23,0)="^^4^4^2940520^"
^DD(680.8,.01,23,1,0)="This field allows the input of the names of indexing and"
^DD(680.8,.01,23,2,0)="abstracting tools in which various articles from various"
^DD(680.8,.01,23,3,0)="serials titles are found.  Entries to this file can only be"
^DD(680.8,.01,23,4,0)="made on FORUM in the National Library Files Maintenance option."
^DD(680.8,1,0)="CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(680.8,1,1,0)="^.1"
^DD(680.8,1,1,1,0)="680.8^C"
^DD(680.8,1,1,1,1)="S ^LBRY(680.8,""C"",$E(X,1,30),DA)="""""
^DD(680.8,1,1,1,2)="K ^LBRY(680.8,""C"",$E(X,1,30),DA)"
^DD(680.8,1,1,1,"%D",0)="^^1^1^2950725^"
^DD(680.8,1,1,1,"%D",1,0)="This cross-reference is by the common short code for the index."
^DD(680.8,1,3)="Enter a common short form for this index. (10 char limit)"
^DD(680.8,1,21,0)="^^4^4^2940520^"
^DD(680.8,1,21,1,0)="This field allows the input of a short code or abbreviation"
^DD(680.8,1,21,2,0)="for the titles of the indexing and abstracting tools listed"
^DD(680.8,1,21,3,0)="above, to allow quicker input by the editors of the TAF File"
^DD(680.8,1,21,4,0)="on FORUM.  This field is cross-indexed to the .01 field."
^DD(680.8,"B","ABSTRACT OR INDEX TITLE",.01)=""
^DD(680.8,"B","CODE",1)=""
^DD(680.8,"GL",0,1,.01)=""
^DD(680.8,"GL",0,2,1)=""
^DD(680.8,"IX",.01)=""
^DD(680.8,"IX",1)=""
^DD(680.8,"RQ",.01)=""
^DD(680.9,0)="FIELD^^10^11"
^DD(680.9,0,"DDA")="N"
^DD(680.9,0,"DT")="2930406"
^DD(680.9,0,"ID",10)="W ""   "",$P(^(0),U,2)"
^DD(680.9,0,"IX","B",680.9,.01)=""
^DD(680.9,0,"IX","C",680.9,10)=""
^DD(680.9,0,"NM","PREDICTION PATTERN")=""
^DD(680.9,0,"PT",680.5,.03)=""
^DD(680.9,0,"VR")="2.5"
^DD(680.9,.01,0)="SEQUENCE CODE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1A4N) X"
^DD(680.9,.01,1,0)="^.1"
^DD(680.9,.01,1,1,0)="680.9^B"
^DD(680.9,.01,1,1,1)="S ^LBRY(680.9,""B"",$E(X,1,30),DA)="""""
^DD(680.9,.01,1,1,2)="K ^LBRY(680.9,""B"",$E(X,1,30),DA)"
^DD(680.9,.01,3)="Enter the sequence code - 1 alpha and 4 numbers, e.g. Z9999"
^DD(680.9,.01,21,0)="^^11^11^2940520^"
^DD(680.9,.01,21,1,0)="This field requires the entry of one alpha character and 4"
^DD(680.9,.01,21,2,0)="numbers, in the form of A1111, to identify and place the"
^DD(680.9,.01,21,3,0)="prediction pattern in a coherent scheme of patterns.  The"
^DD(680.9,.01,21,4,0)="alpha characters identify the underlying frequency, such as"
^DD(680.9,.01,21,5,0)="'A' for monthly, 'K' for 8 times per year, etc.  The numbers"
^DD(680.9,.01,21,6,0)="place the prediction pattern in the proper sequence within"
^DD(680.9,.01,21,7,0)="its frequency type according to months, days, number of"
^DD(680.9,.01,21,8,0)="volumes, etc., according to a predetermined format for the"
^DD(680.9,.01,21,9,0)="PREDICTION PATTERN NAME.  This file and all its accompanying"
^DD(680.9,.01,21,10,0)="fields are available for editing only under the National"
^DD(680.9,.01,21,11,0)="Library Files Maintenance option on FORUM."
^DD(680.9,.01,"DT")="2930406"
^DD(680.9,1,0)="MONTH^FX^^0;3^D ^LBRYET1"
^DD(680.9,1,3)="Enter a month or months separated by ','.  January = 1, December = 12."
^DD(680.9,1,21,0)="^^2^2^2940520^"
^DD(680.9,1,21,1,0)="This field allows the input of the month or months involved"
^DD(680.9,1,21,2,0)="in the construction of the specific prediction pattern."
^DD(680.9,1,"DT")="2930406"
^DD(680.9,2,0)="WOM/DOW^FX^^3;1^D EN3^LBRYET1"
^DD(680.9,2,3)=""
^DD(680.9,2,4)="D EN6^LBRYET1"
^DD(680.9,2,21,0)="^^6^6^2940520^"
^DD(680.9,2,21,1,0)="This field is to create a pattern for those serials titles which"
^DD(680.9,2,21,2,0)="are issued on a certain day of the week for a certain week of"
^DD(680.9,2,21,3,0)="the month, for example, Friday of the third week.  This field can"
^DD(680.9,2,21,4,0)="handle more than one week;  for example, you could have a title"
^DD(680.9,2,21,5,0)="issued the first and third Fridays; the notation would be 1/5,"
^DD(680.9,2,21,6,0)="3/5.  Days of the week are indicated by 0=Sunday through 6=Saturday."
^DD(680.9,2,"DT")="2880413"
^DD(680.9,3,0)="DAYS ADDED^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(680.9,3,3)="Enter the number of days to add to the present journal date to arrive at the next journal date."
^DD(680.9,3,21,0)="^^3^3^2940520^"
^DD(680.9,3,21,1,0)="This field is used when a serials title is ussed every so many"
^DD(680.9,3,21,2,0)="days, for instance, every 21 days.  In such a case, the value"
^DD(680.9,3,21,3,0)="of 21 would be placed in this field."
^DD(680.9,3,"DT")="2930406"
^DD(680.9,4,0)="VOLUME INCREMENT^FX^^2;1^D EN1^LBRYET1"
^DD(680.9,4,3)="Enter + number to add to previous volume at CHANGE MONTH.  Enter number to set volume at CHANGE MONTH. Enter '+XXXX' or 'XXXXX'."
^DD(680.9,4,21,0)="^^4^4^2940520^"
^DD(680.9,4,21,1,0)="This field allows the volume field to be incremented at"
^DD(680.9,4,21,2,0)="the month designated by the CHANGE MONTH field.  If the"
^DD(680.9,4,21,3,0)="volume number increases by 1 at each CHANGE MONTH, the value"
^DD(680.9,4,21,4,0)="in this field should be +1."
^DD(680.9,4,"DT")="2880509"
^DD(680.9,5,0)="ISSUE CHANGE^FX^^2;3^D EN1^LBRYET1"
^DD(680.9,5,3)="Enter + number to increment last issue.  Enter number to place into issue.  Enter '+XXXX' or 'XXXXX'."
^DD(680.9,5,21,0)="^^4^4^2940520^^^^"
^DD(680.9,5,21,1,0)="This field will be used on all computed JOURNAL DATES other than"
^DD(680.9,5,21,2,0)="the first JOURNAL DATE during the CHANGE MONTH.  The issue should"
^DD(680.9,5,21,3,0)="be incremented by the amount stated in this field if the entry has"
^DD(680.9,5,21,4,0)="a '+' as the first character."
^DD(680.9,5,"DT")="2880509"
^DD(680.9,6,0)="CHANGE MONTH^FX^^2;4^D EN2^LBRYET1"
^DD(680.9,6,3)="Enter CHANGE MONTH or months separated by ','. Each CHANGE MONTH changes previous volume by VOLUME INCREMENT.  Each CHANGE MONTH changes previous issue by ISSUE INCREMENT. January = 1, December = 12."
^DD(680.9,6,21,0)="^^5^5^2940520^"
^DD(680.9,6,21,1,0)="This field is for the input of the months at which the"
^DD(680.9,6,21,2,0)="volume numbers increase, the values input from 1 to 12."
^DD(680.9,6,21,3,0)="For instance, if a monthly serials title has two volumes"
^DD(680.9,6,21,4,0)="per year, changing in January and July, the CHANGE MONTH"
^DD(680.9,6,21,5,0)="value should be:  1,7."
^DD(680.9,6,"DT")="2880509"
^DD(680.9,7,0)="DAY-OF-MONTH^FX^^0;5^D EN5^LBRYET1"
^DD(680.9,7,3)="Enter day or days of month.  Seperate multiple dates with ','."
^DD(680.9,7,21,0)="^^5^5^2940520^"
^DD(680.9,7,21,1,0)="If a serials title is always dated with a specific day"
^DD(680.9,7,21,2,0)="of the month, that day whould be entered here.  More than"
^DD(680.9,7,21,3,0)="one day can be entered.  A serials title which is always"
^DD(680.9,7,21,4,0)="issued and dated on the third and fifteenth would have the"
^DD(680.9,7,21,5,0)="value of:  3,15."
^DD(680.9,8,0)="PREDICTION PATTERN DESCRIPTION^680.98^^1;0"
^DD(680.9,8,21,0)="^^3^3^2940520^"
^DD(680.9,8,21,1,0)="This is a word-processing field to fully describe the"
^DD(680.9,8,21,2,0)="pattern established with the fields in this file in"
^DD(680.9,8,21,3,0)="plain English."
^DD(680.9,9,0)="ISSUE INCREMENT^FX^^2;2^D EN1^LBRYET1"
^DD(680.9,9,3)="Enter + number to add to previous issue at CHANGE MONTH.  Enter number to set first issue at CHANGE MONTH.  Enter '+XXXX' or 'XXXXX'. "
^DD(680.9,9,21,0)="^^4^4^2940520^^^^"
^DD(680.9,9,21,1,0)="This field will be used on the first computed JOURNAL DATE during the"
^DD(680.9,9,21,2,0)="CHANGE MONTH.  The ISSUE will be set to the number in this field if"
^DD(680.9,9,21,3,0)="the number does not start with a '+"";  otherwise add the number to the"
^DD(680.9,9,21,4,0)="last ISSUE."
^DD(680.9,9,"DT")="2880509"
^DD(680.9,10,0)="PREDICTION PATTERN NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(680.9,10,1,0)="^.1"
^DD(680.9,10,1,1,0)="680.9^C"
^DD(680.9,10,1,1,1)="S ^LBRY(680.9,""C"",$E(X,1,30),DA)="""""
^DD(680.9,10,1,1,2)="K ^LBRY(680.9,""C"",$E(X,1,30),DA)"
^DD(680.9,10,1,1,"DT")="2930520"
^DD(680.9,10,3)="Please enter a descriptive prediction pattern name (1 to 60 characters)."
^DD(680.9,10,21,0)="^^7^7^2940520^"
^DD(680.9,10,21,1,0)="This field allows the creator of the prediction pattern to"
^DD(680.9,10,21,2,0)="give the pattern a name following a set of conventions"
^DD(680.9,10,21,3,0)="designed by the Togus editors of the Prediction Pattern File."
^DD(680.9,10,21,4,0)="Pattern names include (1) the number of times per time period"
^DD(680.9,10,21,5,0)="that the serials is issued, (2) the number of volumes per year,"
^DD(680.9,10,21,6,0)="(3) the months when the volumes start, and (4) whether the"
^DD(680.9,10,21,7,0)="issues reset to 1 when the volume number changes or not."
^DD(680.9,10,"DT")="2930520"
^DD(680.9,"B","CHANGE MONTH",6)=""
^DD(680.9,"B","DAY-OF-MONTH",7)=""
^DD(680.9,"B","DAYS ADDED",3)=""
^DD(680.9,"B","ISSUE CHANGE",5)=""
^DD(680.9,"B","ISSUE INCREMENT",9)=""
^DD(680.9,"B","MONTH",1)=""
^DD(680.9,"B","PREDICTION PATTERN DESCRIPTION",8)=""
^DD(680.9,"B","PREDICTION PATTERN NAME",10)=""
^DD(680.9,"B","SEQUENCE CODE",.01)=""
^DD(680.9,"B","VOLUME INCREMENT",4)=""
^DD(680.9,"B","WOM/DOW",2)=""
^DD(680.9,"GL",0,1,.01)=""
^DD(680.9,"GL",0,2,10)=""
^DD(680.9,"GL",0,3,1)=""
^DD(680.9,"GL",0,4,3)=""
^DD(680.9,"GL",0,5,7)=""
^DD(680.9,"GL",1,0,8)=""
^DD(680.9,"GL",2,1,4)=""
^DD(680.9,"GL",2,2,9)=""
^DD(680.9,"GL",2,3,5)=""
^DD(680.9,"GL",2,4,6)=""
^DD(680.9,"GL",3,1,2)=""
^DD(680.9,"IX",.01)=""
^DD(680.9,"IX",10)=""
^DD(680.9,"RQ",.01)=""
^DD(680.9,"SB",680.98,8)=""
^DD(680.98,0)="PREDICTION PATTERN DESCRIPTION SUB-FIELD^^.01^1"
^DD(680.98,0,"NM","PREDICTION PATTERN DESCRIPTION")=""
^DD(680.98,0,"UP")="680.9"
^DD(680.98,.01,0)="PREDICTION PATTERN DESCRIPTION^WL^^0;1^Q"
^DD(680.98,.01,3)="Enter a complete description of this prediction pattern."
^DD(680.98,.01,21,0)="^^3^3^2940520^"
^DD(680.98,.01,21,1,0)="This is a word-processing field to fully describe the"
^DD(680.98,.01,21,2,0)="pattern established with the fields in this file in"
^DD(680.98,.01,21,3,0)="plain English."
^DD(680.98,"B","PREDICTION PATTERN DESCRIPTION",.01)=""
^DD(680.98,"GL",0,1,.01)=""
^DD(681,0)="FIELD^^3.01^16"
^DD(681,0,"DIK")="LBRYX2"
^DD(681,0,"DIKOLD")="LBRYX2"
^DD(681,0,"DT")="2980415"
^DD(681,0,"ID",1)="W:$D(^(1)) ?12,""COPY #: "",$P(^(1),U,1)"
^DD(681,0,"ID",1.9)="W:$D(^(1)) ?26,""START DATE: "",$E($P(^(1),U,10),4,5)_""-""_$E($P(^(1),U,10),6,7)_""-""_$E($P(^(1),U,10),2,3)"
^DD(681,0,"ID",1.95)="W:$D(^(1)) ?49,""STOP DATE: "",$E($P(^(1),U,11),4,5)_""-""_$E($P(^(1),U,11),6,7)_""-""_$E($P(^(1),U,11),2,3)"
^DD(681,0,"IX","AC",681,1)=""
^DD(681,0,"IX","AC1",681,.02)=""
^DD(681,0,"IX","AD",681,1.4)=""
^DD(681,0,"IX","B",681,.01)=""
^DD(681,0,"IX","C",681,.02)=""
^DD(681,0,"IX","D",681.02,.01)=""
^DD(681,0,"IX","E",681,.04)=""
^DD(681,0,"NM","LBRY DISPOSITION")=""
^DD(681,0,"PT",682.04,.02)=""
^DD(681,0,"VR")="2.5"
^DD(681,0,"VRPK")="LBR"
^DD(681,.01,0)="NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(681,.01,1,0)="^.1^^-1"
^DD(681,.01,1,1,0)="681^B"
^DD(681,.01,1,1,1)="S ^LBRY(681,""B"",$E(X,1,30),DA)="""""
^DD(681,.01,1,1,2)="K ^LBRY(681,""B"",$E(X,1,30),DA)"
^DD(681,.01,3)=""
^DD(681,.01,21,0)="^^2^2^2940520^"
^DD(681,.01,21,1,0)="This field is a unique transaction number for copy of a"
^DD(681,.01,21,2,0)="serials title."
^DD(681,.01,"DT")="2870901"
^DD(681,.02,0)="LOCAL SERIALS TITLE^RP680^LBRY(680,^0;2^Q"
^DD(681,.02,1,0)="^.1"
^DD(681,.02,1,1,0)="681^C"
^DD(681,.02,1,1,1)="S ^LBRY(681,""C"",$E(X,1,30),DA)="""""
^DD(681,.02,1,1,2)="K ^LBRY(681,""C"",$E(X,1,30),DA)"
^DD(681,.02,1,2,0)="681^AC1^MUMPS"
^DD(681,.02,1,2,1)="S:$P($G(^LBRY(681,DA,1)),U)'="""" ^LBRY(681,""AC"",$E(X,1,30),$P(^LBRY(681,DA,1),U),DA)="""""
^DD(681,.02,1,2,2)="K:$P($G(^LBRY(681,DA,1)),U)'="""" ^LBRY(681,""AC"",$E(X,1,30),$P(^LBRY(681,DA,1),U),DA)"
^DD(681,.02,1,2,"%D",0)="^^2^2^2980415^^^^"
^DD(681,.02,1,2,"%D",1,0)="This cross-reference is the parallel cross-reference for ""AC"" which"
^DD(681,.02,1,2,"%D",2,0)="is by local serial title entry number and copy number or ToC."
^DD(681,.02,1,2,"DT")="2980414"
^DD(681,.02,21,0)="^^2^2^2980415^^^"
^DD(681,.02,21,1,0)="This field points to the serials title that the local library"
^DD(681,.02,21,2,0)="has in its collection."
^DD(681,.02,"DT")="2980415"
^DD(681,.04,0)="SITE NAME^RP680.6'^LBRY(680.6,^0;4^Q"
^DD(681,.04,1,0)="^.1"
^DD(681,.04,1,1,0)="681^E"
^DD(681,.04,1,1,1)="S ^LBRY(681,""E"",$E(X,1,30),DA)="""""
^DD(681,.04,1,1,2)="K ^LBRY(681,""E"",$E(X,1,30),DA)"
^DD(681,.04,1,1,"%D",0)="^^1^1^2950828^"
^DD(681,.04,1,1,"%D",1,0)="This cross-reference is to be used to screen out by site."
^DD(681,.04,1,1,"DT")="2950828"
^DD(681,.04,3)="Select correct division site name"
^DD(681,.04,21,0)="^^1^1^2980415^^"
^DD(681,.04,21,1,0)="Division site identification"
^DD(681,.04,"DT")="2950828"
^DD(681,1,0)="COPY NUMBER OR ToC^FX^^1;1^K:X[""""""""!($A(X)=45)!'((X?1N.N)!(""TOCToCtoc""[X)) X I $D(X) S:'X X=""ToC"" I X D ^LBRYET2"
^DD(681,1,1,0)="^.1^^-1"
^DD(681,1,1,1,0)="681^AC^MUMPS"
^DD(681,1,1,1,1)="S:$P($G(^LBRY(681,DA,0)),U,2)'="""" ^LBRY(681,""AC"",$P(^LBRY(681,DA,0),U,2),$E(X,1,30),DA)="""""
^DD(681,1,1,1,2)="K:$P($G(^LBRY(681,DA,0)),U,2)'="""" ^LBRY(681,""AC"",$P(^LBRY(681,DA,0),U,2),$E(X,1,30),DA)"
^DD(681,1,1,1,"%D",0)="^^2^2^2980415^^^^"
^DD(681,1,1,1,"%D",1,0)="This cross-reference is by the journal title, the copy number or"
^DD(681,1,1,1,"%D",2,0)="ToC and the internal number."
^DD(681,1,1,1,"DT")="2980415"
^DD(681,1,3)="Enter the copy number for the specific copy or 'T' (Table of Contents) for which disposition information is being supplied."
^DD(681,1,4)="I X=""??"" D E7^LBRYET2"
^DD(681,1,21,0)="^^5^5^2940520^"
^DD(681,1,21,1,0)="This field allows the selection of a specific copy number"
^DD(681,1,21,2,0)="for a serials title or for the selection of the Table of"
^DD(681,1,21,3,0)="Contents designation.  The Table of Contents designation"
^DD(681,1,21,4,0)="means that the table of contents of a serials title is"
^DD(681,1,21,5,0)="copied and routed to a particular requestor.  Found in CSE option."
^DD(681,1,"DT")="2980415"
^DD(681,1.1,0)="PLACEMENT OF ITEM^*P680.7'^LBRY(680.7,^1;2^S DIC(""S"")=""I $P(^(0),U,2)=$G(LBRYPTR)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(681,1.1,3)="Indicate where the journal will be located once it is checked-in."
^DD(681,1.1,12)="Screen out entries by site"
^DD(681,1.1,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$G(LBRYPTR)"""
^DD(681,1.1,21,0)="^^4^4^2950829^^^"
^DD(681,1.1,21,1,0)="This field allows a specific final placement location to"
^DD(681,1.1,21,2,0)="be designated for each copy of a serials title.  Locations"
^DD(681,1.1,21,3,0)="must have been pre-entered in file 680.7.  Found in the"
^DD(681,1.1,21,4,0)="CSE option."
^DD(681,1.1,"DT")="2970714"
^DD(681,1.3,0)="CATEGORY OF COPY^S^M:MEDICAL;G:GENERAL;R:RESEARCH;A:ADMINISTRATIVE;P:PATIENT HEALTH EDUCATION;^1;4^Q"
^DD(681,1.3,3)="The Category designation is used to sort information for various reports.  Select from the following categories:"
^DD(681,1.3,21,0)="^^3^3^2940520^"
^DD(681,1.3,21,1,0)="This field is a set of codes which categorize each copy of"
^DD(681,1.3,21,2,0)="all serials titles according to five categories which are"
^DD(681,1.3,21,3,0)="required for Central Office reports.  Found in CSE option."
^DD(681,1.4,0)="VENDOR^FX^^1;5^S DIC=""^PRC(440,"",DIC(0)=""EQZ"" D ^DIC K:Y<1 X Q:Y<1  S X=$S($D(Y(0)):$P(Y(0),U,1),1:"""") K:X="""" X K DIC"
^DD(681,1.4,1,0)="^.1"
^DD(681,1.4,1,1,0)="681^AD"
^DD(681,1.4,1,1,1)="S ^LBRY(681,""AD"",$E(X,1,30),DA)="""""
^DD(681,1.4,1,1,2)="K ^LBRY(681,""AD"",$E(X,1,30),DA)"
^DD(681,1.4,1,1,"DT")="2951012"
^DD(681,1.4,3)="Enter the vendor from whom the specific copy was ordered."
^DD(681,1.4,4)="S ZD=D,X=""?"",DIC=""^PRC(440,"",DIC(0)=""EQ"" D ^DIC S D=ZD K DIC,ZD"
^DD(681,1.4,21,0)="^^4^4^2940809^^"
^DD(681,1.4,21,1,0)="This field allows the input of a vendor for each copy of"
^DD(681,1.4,21,2,0)="a serials title.  The field defaults to the vendor entered"
^DD(681,1.4,21,3,0)="in the LSP option, but may be overridden with another vendor"
^DD(681,1.4,21,4,0)="found in the station Vendor File.  Found in CSE option."
^DD(681,1.4,"DT")="2951012"
^DD(681,1.5,0)="COPY DISPOSITION^S^1:ROUTED;2:ROUTED AND RETURNED;3:SHELVED;^1;6^Q"
^DD(681,1.5,3)="Enter the disposition of this copy when it is checked-in."
^DD(681,1.5,21,0)="^^5^5^2940824^^"
^DD(681,1.5,21,1,0)="This field allows for a set of codes to indicate the"
^DD(681,1.5,21,2,0)="disposition of a specific serials title during the"
^DD(681,1.5,21,3,0)="check-in process, for example, to be shelved, to be"
^DD(681,1.5,21,4,0)="routed (and not returned), or to be routed and returned."
^DD(681,1.5,21,5,0)="Found in CSE option."
^DD(681,1.6,0)="GIFT^S^y:YES;^1;7^Q"
^DD(681,1.6,3)="Is this copy a gift?  Answer 'yes' or give no response by entering <CR>. Delete (@) if no longer a gift."
^DD(681,1.6,21,0)="^^4^4^2940520^"
^DD(681,1.6,21,1,0)="If a copy is acquired as a gift, not as a paid subscription,"
^DD(681,1.6,21,2,0)="a set of codes allows that information to be input here.  If"
^DD(681,1.6,21,3,0)="answered yes, the next prompt will be for DONOR; the prompt"
^DD(681,1.6,21,4,0)="for VENDOR will be omitted.  Found in CSE option."
^DD(681,1.7,0)="DONOR^*P680.4'^LBRY(680.4,^1;8^S DIC(""S"")=""I $P(^(0),U,9)=$G(LBRYPTR)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(681,1.7,3)="Enter the name of the person who donated this gift."
^DD(681,1.7,4)=""
^DD(681,1.7,12)="Screen entries by site for multiple division stations"
^DD(681,1.7,12.1)="S DIC(""S"")=""I $P(^(0),U,9)=$G(LBRYPTR)"""
^DD(681,1.7,21,0)="^^3^3^2970519^^"
^DD(681,1.7,21,1,0)="If the field for GIFT has been answered yes, the name of the"
^DD(681,1.7,21,2,0)="DONOR may be entered here if known.  Entries here will also"
^DD(681,1.7,21,3,0)="be made in the Name File.  Found in CSE option."
^DD(681,1.7,"DT")="2970714"
^DD(681,1.8,0)="LIBRARY SITE NAME^P680.6'^LBRY(680.6,^1;9^Q"
^DD(681,1.8,3)="Please choose a LIBRARY SITE NAME from the available sites."
^DD(681,1.8,21,0)="^^3^3^2940520^"
^DD(681,1.8,21,1,0)="This field will be used to indicate which division this serials"
^DD(681,1.8,21,2,0)="title copy can be found at.  This will only be used when the"
^DD(681,1.8,21,3,0)="multiple division has been activated."
^DD(681,1.9,0)="START DATE^DX^^1;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S %=$P(^LBRY(681,DA,1),U,11) I %,X'<% K X W:'$D(X) !,""START DATE must be before STOP DATE."",!,?10"
^DD(681,1.9,3)="Enter the actual calendar date that additional copy(ies) is/are expected to begin being received in the library."
^DD(681,1.9,21,0)="^^6^6^2940520^"
^DD(681,1.9,21,1,0)="When additional copies are entered at some point after"
^DD(681,1.9,21,2,0)="the initial setup of the title, this field should be used"
^DD(681,1.9,21,3,0)="to enter the actual calendar date one day before the issue"
^DD(681,1.9,21,4,0)="date of the first expected issue.  This field governs when"
^DD(681,1.9,21,5,0)="the additional copy will appear on the screen in the CHE"
^DD(681,1.9,21,6,0)="option.  Found in CSE option."
^DD(681,1.9,"DT")="2880331"
^DD(681,1.95,0)="STOP DATE^DX^^1;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X I $D(X) S %=$P(^LBRY(681,DA,1),U,10) I %,X'>% K X W:'$D(X) !,""STOP DATE must be after START DATE."",!,?10"
^DD(681,1.95,3)="Enter the journal issue date on which the copy will no longer be received.  The STOP DATE must be at least 1 day after this copy's START DATE."
^DD(681,1.95,21,0)="^^6^6^2940520^"
^DD(681,1.95,21,1,0)="When copies (other than the last remaining one) are terminated"
^DD(681,1.95,21,2,0)="at some point after the initial setup of the title, this field "
^DD(681,1.95,21,3,0)="should be used to enter the actual calendar date one day after"
^DD(681,1.95,21,4,0)="the issue date of the last expected issue.  This field governs"
^DD(681,1.95,21,5,0)="when the additional copy will no longer appear on the screen in"
^DD(681,1.95,21,6,0)="the CHE option.  Found in CSE option."
^DD(681,1.95,"DT")="2880331"
^DD(681,2,0)="RECIPIENT(S)^681.02IPA^^2;0"
^DD(681,2,21,0)="^^2^2^2970519^^^"
^DD(681,2,21,1,0)="This is the list of recipients who might have a copy or Table"
^DD(681,2,21,2,0)="of Contents routed to them after check-in."
^DD(681,3,0)="AUTHOR^P200'^VA(200,^1;3^Q"
^DD(681,3,3)=""
^DD(681,3,21,0)="^^2^2^2970709^^^^"
^DD(681,3,21,1,0)="The person who created this copy number or ToC.  This is a stuffed field,"
^DD(681,3,21,2,0)="it's value is determined by the creator of the 1 entry."
^DD(681,3,"DT")="2930601"
^DD(681,3.01,0)="COREFLS VENDOR^P392.31'O^DGBT(392.31,^3;1^Q"
^DD(681,3.01,2)="S Y(0)=Y K LBRPREV S LBRPREV=$$PREV^DGBTCSL(.Y)"
^DD(681,3.01,2.1)="K LBRPREV S LBRPREV=$$PREV^DGBTCSL(.Y)"
^DD(681,3.01,3)="Enter the vendor from whom the specific copy was ordered."
^DD(681,3.01,"DT")="3021210"
^DD(681,"B","AUTHOR",3)=""
^DD(681,"B","CATEGORY OF COPY",1.3)=""
^DD(681,"B","COPY DISPOSITION",1.5)=""
^DD(681,"B","COPY NUMBER OR ToC",1)=""
^DD(681,"B","COREFLS VENDOR",3.01)=""
^DD(681,"B","DONOR",1.7)=""
^DD(681,"B","GIFT",1.6)=""
^DD(681,"B","LIBRARY SITE NAME",1.8)=""
^DD(681,"B","LOCAL SERIALS TITLE",.02)=""
^DD(681,"B","NUMBER",.01)=""
^DD(681,"B","PLACEMENT OF ITEM",1.1)=""
^DD(681,"B","RECIPIENT(S)",2)=""
^DD(681,"B","SITE NAME",.04)=""
^DD(681,"B","START DATE",1.9)=""
^DD(681,"B","STOP DATE",1.95)=""
^DD(681,"B","VENDOR",1.4)=""
^DD(681,"GL",0,1,.01)=""
^DD(681,"GL",0,2,.02)=""
^DD(681,"GL",0,4,.04)=""
^DD(681,"GL",1,1,1)=""
^DD(681,"GL",1,2,1.1)=""
^DD(681,"GL",1,3,3)=""
^DD(681,"GL",1,4,1.3)=""
^DD(681,"GL",1,5,1.4)=""
^DD(681,"GL",1,6,1.5)=""
^DD(681,"GL",1,7,1.6)=""
^DD(681,"GL",1,8,1.7)=""
^DD(681,"GL",1,9,1.8)=""
^DD(681,"GL",1,10,1.9)=""
^DD(681,"GL",1,11,1.95)=""
^DD(681,"GL",2,0,2)=""
^DD(681,"GL",3,1,3.01)=""
^DD(681,"IX",.01)=""
^DD(681,"IX",.02)=""
^DD(681,"IX",.04)=""
^DD(681,"IX",1)=""
^DD(681,"IX",1.4)=""
^DD(681,"RQ",.01)=""
^DD(681,"RQ",.02)=""
^DD(681,"RQ",.04)=""
^DD(681,"SB",681.02,2)=""
^DD(681.02,0)="RECIPIENT(S) SUB-FIELD^^1^2"
^DD(681.02,0,"DIK")="LBRYX2"
^DD(681.02,0,"DT")="2970714"
^DD(681.02,0,"ID",1)="W ?30,$P(^LBRY(681,D0,2,+Y,0),U,2)"
^DD(681.02,0,"IX","AC",681.02,1)=""
^DD(681.02,0,"IX","B",681.02,.01)=""
^DD(681.02,0,"NM","RECIPIENT(S)")=""
^DD(681.02,0,"UP")="681"
^DD(681.02,.01,0)="TO ROUTE TO^M*P680.4'^LBRY(680.4,^0;1^S DIC(""S"")=""I $P(^(0),U,9)=$G(LBRYPTR)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(681.02,.01,1,0)="^.1"
^DD(681.02,.01,1,1,0)="681.02^B"
^DD(681.02,.01,1,1,1)="S ^LBRY(681,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(681.02,.01,1,1,2)="K ^LBRY(681,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(681.02,.01,1,2,0)="681^D"
^DD(681.02,.01,1,2,1)="S ^LBRY(681,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(681.02,.01,1,2,2)="K ^LBRY(681,""D"",$E(X,1,30),DA(1),DA)"
^DD(681.02,.01,3)="Choose who will be on the list to see this ISSUE/ToC."
^DD(681.02,.01,4)=""
^DD(681.02,.01,12)="Screen only those entries for a site"
^DD(681.02,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,9)=$G(LBRYPTR)"""
^DD(681.02,.01,21,0)="^^6^6^2970519^^^"
^DD(681.02,.01,21,1,0)="This field is for the names of the persons to whom copies of"
^DD(681.02,.01,21,2,0)="issues or table of contents pages will be routed.  It is a"
^DD(681.02,.01,21,3,0)="multiple field.  This field governs the printing of the"
^DD(681.02,.01,21,4,0)="routing slips during the check-in process.  Recipients names"
^DD(681.02,.01,21,5,0)="are also tied to their Service/Section and mail delivery code."
^DD(681.02,.01,21,6,0)="Entries made here are from the Name File.  Found in CSE option."
^DD(681.02,.01,"DT")="2970714"
^DD(681.02,1,0)="ROUTING ORDER^NJ5,2^^0;2^K:+X'=X!(X>99.99)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(681.02,1,1,0)="^.1"
^DD(681.02,1,1,1,0)="681.02^AC"
^DD(681.02,1,1,1,1)="S ^LBRY(681,DA(1),2,""AC"",$E(X,1,30),DA)="""""
^DD(681.02,1,1,1,2)="K ^LBRY(681,DA(1),2,""AC"",$E(X,1,30),DA)"
^DD(681.02,1,3)="Assign a number to establish the ROUTING ORDER of recipients for this title.  Use whole numbers or decimals.  Enter ?? for more help."
^DD(681.02,1,4)="I X=""??"" S XQH=""LBRY ROUTING HELP ??"" D EN^XQH"
^DD(681.02,1,21,0)="^^4^4^2940520^"
^DD(681.02,1,21,1,0)="This field allows the names on the routing slips to be printed"
^DD(681.02,1,21,2,0)="in a designated order.  Later additions to a routing list can"
^DD(681.02,1,21,3,0)="be inserted in the midst of a routing order by use of decimal"
^DD(681.02,1,21,4,0)="places.  Found in CSE option."
^DD(681.02,1,"DT")="2871229"
^DD(681.02,"B","ROUTING ORDER",1)=""
^DD(681.02,"B","TO ROUTE TO",.01)=""
^DD(681.02,"GL",0,1,.01)=""
^DD(681.02,"GL",0,2,1)=""
^DD(681.02,"IX",.01)=""
^DD(681.02,"IX",1)=""
^DD(681.1,0)="FIELD^^1^2"
^DD(681.1,0,"DDA")="N"
^DD(681.1,0,"IX","B",681.1,.01)=""
^DD(681.1,0,"IX","C",681.1,1)=""
^DD(681.1,0,"NM","COUNTRY OF PUBLICATION")=""
^DD(681.1,0,"PT",680.5,18)=""
^DD(681.1,0,"VR")="2.5"
^DD(681.1,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<1)!'(X'?1P.E) X"
^DD(681.1,.01,1,0)="^.1"
^DD(681.1,.01,1,1,0)="681.1^B"
^DD(681.1,.01,1,1,1)="S ^LBRY(681.1,""B"",$E(X,1,30),DA)="""""
^DD(681.1,.01,1,1,2)="K ^LBRY(681.1,""B"",$E(X,1,30),DA)"
^DD(681.1,.01,3)="Answer must be 1-60 characters in length."
^DD(681.1,.01,21,0)="^^3^3^2940520^"
^DD(681.1,.01,21,1,0)="This field is for the full name of the country of publication"
^DD(681.1,.01,21,2,0)="for a specific serials title.  This file and filed are found"
^DD(681.1,.01,21,3,0)="only in the National Library Files Maintenance option on FORUM."
^DD(681.1,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(681.1,1,1,0)="^.1"
^DD(681.1,1,1,1,0)="681.1^C"
^DD(681.1,1,1,1,1)="S ^LBRY(681.1,""C"",$E(X,1,30),DA)="""""
^DD(681.1,1,1,1,2)="K ^LBRY(681.1,""C"",$E(X,1,30),DA)"
^DD(681.1,1,3)="Answer must be 1-10 characters in length."
^DD(681.1,1,21,0)="^^3^3^2940520^"
^DD(681.1,1,21,1,0)="This field is cross-referenced to the .01 field and allows"
^DD(681.1,1,21,2,0)="the input of a short abbreviation for the country of"
^DD(681.1,1,21,3,0)="publication to facilitate data input by the TAF option editors."
^DD(681.1,"B","ABBREVIATION",1)=""
^DD(681.1,"B","NAME",.01)=""
^DD(681.1,"GL",0,1,.01)=""
^DD(681.1,"GL",0,2,1)=""
^DD(681.1,"IX",.01)=""
^DD(681.1,"IX",1)=""
^DD(681.1,"RQ",.01)=""
^DD(682,0)="FIELD^^4^13"
^DD(682,0,"DDA")="N"
^DD(682,0,"DIK")="LBRYX3"
^DD(682,0,"DIKOLD")="LBRYX3"
^DD(682,0,"DT")="2980415"
^DD(682,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LBRY(680,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(680,.01,0),U,2) D Y^DIQ:Y]"""" W ?7,""TITLE: "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(682,0,"ID",1)="W:$D(^(1)) ?30,""JOURNAL DATE: "",$E($P(^(1),U,1),4,5)_""-""_$E($P(^(1),U,1),6,7)_""-""_$E($P(^(1),U,1),2,3)"
^DD(682,0,"IX","A1",682,1)=""
^DD(682,0,"IX","A11",682,.02)=""
^DD(682,0,"IX","A2",682.04,1)=""
^DD(682,0,"IX","A3",682.04,4)=""
^DD(682,0,"IX","A4",682.04,5)=""
^DD(682,0,"IX","A41",682,.02)=""
^DD(682,0,"IX","AC",682,1)=""
^DD(682,0,"IX","AC1",682,.02)=""
^DD(682,0,"IX","AD",682,1)=""
^DD(682,0,"IX","B",682,.01)=""
^DD(682,0,"IX","C",682,.02)=""
^DD(682,0,"IX","D",682,1)=""
^DD(682,0,"IX","E",682,.04)=""
^DD(682,0,"NM","LBRY ISSUE")=""
^DD(682,0,"VR")="2.5"
^DD(682,0,"VRPK")="LBR"
^DD(682,.01,0)="NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682,.01,1,0)="^.1"
^DD(682,.01,1,1,0)="682^B"
^DD(682,.01,1,1,1)="S ^LBRY(682,""B"",$E(X,1,30),DA)="""""
^DD(682,.01,1,1,2)="K ^LBRY(682,""B"",$E(X,1,30),DA)"
^DD(682,.01,3)=""
^DD(682,.01,21,0)="^^1^1^2940520^^"
^DD(682,.01,21,1,0)="This is the sequential entry number of a check-in record."
^DD(682,.01,"DT")="2870901"
^DD(682,.02,0)="LOCAL SERIALS TITLE^RP680^LBRY(680,^0;2^Q"
^DD(682,.02,1,0)="^.1"
^DD(682,.02,1,1,0)="682^C"
^DD(682,.02,1,1,1)="S ^LBRY(682,""C"",$E(X,1,30),DA)="""""
^DD(682,.02,1,1,2)="K ^LBRY(682,""C"",$E(X,1,30),DA)"
^DD(682,.02,1,2,0)="682^AC1^MUMPS"
^DD(682,.02,1,2,1)="S:$P($G(^LBRY(682,DA,1)),U) ^LBRY(682,""AC"",$E(X,1,30),$P(^LBRY(682,DA,1),U),DA)="""""
^DD(682,.02,1,2,2)="K:$P($G(^LBRY(682,DA,1)),U) ^LBRY(682,""AC"",$E(X,1,30),$P(^LBRY(682,DA,1),U),DA)"
^DD(682,.02,1,2,"%D",0)="^^2^2^2980414^"
^DD(682,.02,1,2,"%D",1,0)="This is the parallel ""AC"" cross-reference that is by the local serials"
^DD(682,.02,1,2,"%D",2,0)="title internal entry number and the journal date."
^DD(682,.02,1,2,"DT")="2980414"
^DD(682,.02,1,3,0)="682^A11^MUMPS"
^DD(682,.02,1,3,1)="S:$P($G(^LBRY(682,DA,1)),U)'="""" ^LBRY(682,""A1"",$E(X,1,30),9999999-$P(^LBRY(682,DA,1),U),DA)="""""
^DD(682,.02,1,3,2)="K:$P($G(^LBRY(682,DA,1)),U)'="""" ^LBRY(682,""A1"",$E(X,1,30),9999999-$P(^LBRY(682,DA,1),U),DA)"
^DD(682,.02,1,3,"%D",0)="^^2^2^2980414^"
^DD(682,.02,1,3,"%D",1,0)="This cross-reference is by journal and the reverse date of the"
^DD(682,.02,1,3,"%D",2,0)="journal so that more recent date can be used in a display."
^DD(682,.02,1,3,"DT")="2980414"
^DD(682,.02,1,4,0)="682^A41^MUMPS"
^DD(682,.02,1,4,1)="N LBRTYPE S LBRTYPE=""SET"" D A4^LBRYRTX"
^DD(682,.02,1,4,2)="N LBRTYPE S LBRTYPE=""KILL"" D A4^LBRYRTX"
^DD(682,.02,1,4,"%D",0)="^^2^2^2980415^"
^DD(682,.02,1,4,"%D",1,0)="This cross-reference is by DATE RECEIVED for a journal and"
^DD(682,.02,1,4,"%D",2,0)="the entry number of the copy."
^DD(682,.02,1,4,"DT")="2980415"
^DD(682,.02,21,0)="^^2^2^2980415^^^^"
^DD(682,.02,21,1,0)="This field points to the serials title that the local library"
^DD(682,.02,21,2,0)="has in its collection."
^DD(682,.02,"DT")="2980415"
^DD(682,.04,0)="SITE NAME^RP680.6'^LBRY(680.6,^0;4^Q"
^DD(682,.04,1,0)="^.1"
^DD(682,.04,1,1,0)="682^E"
^DD(682,.04,1,1,1)="S ^LBRY(682,""E"",$E(X,1,30),DA)="""""
^DD(682,.04,1,1,2)="K ^LBRY(682,""E"",$E(X,1,30),DA)"
^DD(682,.04,1,1,"%D",0)="^^1^1^2950828^"
^DD(682,.04,1,1,"%D",1,0)="This cross-reference is to be used to screen out by site."
^DD(682,.04,1,1,"DT")="2950828"
^DD(682,.04,3)="Enter site name"
^DD(682,.04,21,0)="^^1^1^2950824^"
^DD(682,.04,21,1,0)="Division site identification"
^DD(682,.04,"DT")="2950828"
^DD(682,1,0)="JOURNAL DATE^D^^1;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(682,1,1,0)="^.1"
^DD(682,1,1,1,0)="682^AC^MUMPS"
^DD(682,1,1,1,1)="S:$P($G(^LBRY(682,DA,0)),U,2)'="""" ^LBRY(682,""AC"",$P(^LBRY(682,DA,0),U,2),$E(X,1,30),DA)="""""
^DD(682,1,1,1,2)="K:$P($G(^LBRY(682,DA,0)),U,2)'="""" ^LBRY(682,""AC"",$P(^LBRY(682,DA,0),U,2),$E(X,1,30),DA)"
^DD(682,1,1,1,"%D",0)="^^1^1^2980414^^^"
^DD(682,1,1,1,"%D",1,0)="This cross-reference is by journal and the date of the journal."
^DD(682,1,1,1,"DT")="2980414"
^DD(682,1,1,2,0)="682^A1^MUMPS"
^DD(682,1,1,2,1)="S:$P($G(^LBRY(682,DA,0)),U,2)'="""" ^LBRY(682,""A1"",$P(^LBRY(682,DA,0),U,2),9999999-X,DA)="""""
^DD(682,1,1,2,2)="K:$P($G(^LBRY(682,DA,0)),U,2)'="""" ^LBRY(682,""A1"",$P(^LBRY(682,DA,0),U,2),9999999-X,DA)"
^DD(682,1,1,2,"%D",0)="^^2^2^2980414^^"
^DD(682,1,1,2,"%D",1,0)="This cross-reference is by journal and the reverse date of the"
^DD(682,1,1,2,"%D",2,0)="journal so that more recent date can be used in a display."
^DD(682,1,1,2,"DT")="2980414"
^DD(682,1,1,3,0)="682^AD^MUMPS"
^DD(682,1,1,3,1)="D I^LBRYRTX"
^DD(682,1,1,3,2)="Q"
^DD(682,1,1,3,"%D",0)="^^3^3^2950815^"
^DD(682,1,1,3,"%D",1,0)="This cross-reference takes a journal that is being checked in"
^DD(682,1,1,3,"%D",2,0)="and goes to the Disposition file and for every copy or ToC that"
^DD(682,1,1,3,"%D",3,0)="exists for this journal, builds a copy record for each one."
^DD(682,1,1,4,0)="682^D"
^DD(682,1,1,4,1)="S ^LBRY(682,""D"",$E(X,1,30),DA)="""""
^DD(682,1,1,4,2)="K ^LBRY(682,""D"",$E(X,1,30),DA)"
^DD(682,1,1,4,"%D",0)="^^1^1^2950815^"
^DD(682,1,1,4,"%D",1,0)="Cross-references by the journal date for each journal."
^DD(682,1,1,4,"DT")="2950815"
^DD(682,1,3)="Enter the actual date on the specific journal issue."
^DD(682,1,8.5)="^"
^DD(682,1,21,0)="^^3^3^2940520^"
^DD(682,1,21,1,0)="This field is for the input of the date on the issue of"
^DD(682,1,21,2,0)="the serials title that is being checked in.  Found in"
^DD(682,1,21,3,0)="CHE option."
^DD(682,1,"DT")="2980414"
^DD(682,1.1,0)="VOLUME^F^^1;2^K:$L(X)>5!($L(X)<1) X"
^DD(682,1.1,3)="Enter the volume number for the journal issue.  Convert Roman numerals to numbers."
^DD(682,1.1,21,0)="^^2^2^2940520^"
^DD(682,1.1,21,1,0)="This field is for the volume number on the issue of the"
^DD(682,1.1,21,2,0)="serials title that is being checked in.  Found in CHE option."
^DD(682,1.1,"DT")="2880307"
^DD(682,1.2,0)="ISSUE/PART/SUPPLEMENT^F^^1;3^K:$L(X)>15!($L(X)<1) X"
^DD(682,1.2,3)="Enter the issue number, part, or supplement for this specific journal issue, using up to 15 characters.  Convert Roman numerals to numbers."
^DD(682,1.2,21,0)="^^4^4^2940520^"
^DD(682,1.2,21,1,0)="This field is to designate the issue or part number or"
^DD(682,1.2,21,2,0)="supplement number for the specific item being checked in."
^DD(682,1.2,21,3,0)="Values could be a number, a season, characters such as"
^DD(682,1.2,21,4,0)="SUPP A, etc.  Found in CHE option."
^DD(682,1.2,"DT")="2870901"
^DD(682,1.3,0)="COPIES RECEIVED^NJ2,0^^1;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682,1.3,3)=""
^DD(682,1.3,21,0)="^^3^3^2940520^"
^DD(682,1.3,21,1,0)="This number is the actual number of copies received for"
^DD(682,1.3,21,2,0)="a specific issue at check-in.  It can be less than or the"
^DD(682,1.3,21,3,0)="same as the number of COPIES ORDERED.  Found in CHE option."
^DD(682,1.3,"DT")="2870901"
^DD(682,1.4,0)="COPIES ORDERED^NJ2,0^^1;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682,1.4,3)="Number of copies ordered is based on information entered in Copy Specific Edit.  Normally you will not need to edit this field."
^DD(682,1.4,21,0)="^^2^2^2940520^"
^DD(682,1.4,21,1,0)="This number is the number of copies indicated from the"
^DD(682,1.4,21,2,0)="CSE option as currently due for receipt.  Found in CHE option."
^DD(682,1.4,"DT")="2870901"
^DD(682,1.5,0)="JOURNAL DATE AUTHOR^P200'^VA(200,^1;6^Q"
^DD(682,1.5,9)="^"
^DD(682,1.5,21,0)="^^2^2^2940520^"
^DD(682,1.5,21,1,0)="This is the person who is entering the check-in record.  It"
^DD(682,1.5,21,2,0)="is invisible to the person checking in the serial title."
^DD(682,1.5,"DT")="2930601"
^DD(682,1.6,0)="RECEIVED DATE^D^^1;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(682,1.6,5,1,0)="682.04^5^2"
^DD(682,1.6,21,0)="^^2^2^2940531^^^^"
^DD(682,1.6,21,1,0)="This field shows the last date a specific copy of a"
^DD(682,1.6,21,2,0)="serials issue was received.  Found in CHE option."
^DD(682,1.6,"DT")="2871211"
^DD(682,1.7,0)="ENTRY TYPE^RS^I:INSERTED;P:PREDICTED;^1;8^Q"
^DD(682,1.7,3)="Select 'P' if there is a prediction pattern for this title.  Select 'I' for an irregular issue such as a supplement."
^DD(682,1.7,21,0)="^^7^7^2940520^"
^DD(682,1.7,21,1,0)="This field sets whether the next issue should be predicted"
^DD(682,1.7,21,2,0)="from the preceding issue date, given a prediction pattern,"
^DD(682,1.7,21,3,0)="or whether the next and subsequent issues must be inserted,"
^DD(682,1.7,21,4,0)="either because there is no prediction pattern, or the"
^DD(682,1.7,21,5,0)="existing prediction pattern has been turned off by the act"
^DD(682,1.7,21,6,0)="of using the (i)nsertion code in this field.  Found in CHE"
^DD(682,1.7,21,7,0)="option."
^DD(682,1.7,"DT")="2880607"
^DD(682,2,0)="CLAIM DATE^682.02DA^^2;0"
^DD(682,2,21,0)="^^1^1^2940825^^"
^DD(682,2,21,1,0)="Claim dates for unreceived issues should be entered here."
^DD(682,4,0)="ISSUE ROUTING STATUS^682.04IA^^4;0"
^DD(682,4,21,0)="^^1^1^2940825^"
^DD(682,4,21,1,0)="The routing status of this issue of the periodical is recorded here."
^DD(682,"B","CLAIM DATE",2)=""
^DD(682,"B","COPIES ORDERED",1.4)=""
^DD(682,"B","COPIES RECEIVED",1.3)=""
^DD(682,"B","ENTRY TYPE",1.7)=""
^DD(682,"B","ISSUE ROUTING STATUS",4)=""
^DD(682,"B","ISSUE/PART/SUPPLEMENT",1.2)=""
^DD(682,"B","JOURNAL DATE",1)=""
^DD(682,"B","JOURNAL DATE AUTHOR",1.5)=""
^DD(682,"B","LOCAL SERIALS TITLE",.02)=""
^DD(682,"B","NUMBER",.01)=""
^DD(682,"B","RECEIVED DATE",1.6)=""
^DD(682,"B","SITE NAME",.04)=""
^DD(682,"B","VOLUME",1.1)=""
^DD(682,"GL",0,1,.01)=""
^DD(682,"GL",0,2,.02)=""
^DD(682,"GL",0,4,.04)=""
^DD(682,"GL",1,1,1)=""
^DD(682,"GL",1,2,1.1)=""
^DD(682,"GL",1,3,1.2)=""
^DD(682,"GL",1,4,1.3)=""
^DD(682,"GL",1,5,1.4)=""
^DD(682,"GL",1,6,1.5)=""
^DD(682,"GL",1,7,1.6)=""
^DD(682,"GL",1,8,1.7)=""
^DD(682,"GL",2,0,2)=""
^DD(682,"GL",4,0,4)=""
^DD(682,"IX",.01)=""
^DD(682,"IX",.02)=""
^DD(682,"IX",.04)=""
^DD(682,"IX",1)=""
^DD(682,"RQ",.01)=""
^DD(682,"RQ",.02)=""
^DD(682,"RQ",.04)=""
^DD(682,"RQ",1.7)=""
^DD(682,"SB",682.02,2)=""
^DD(682,"SB",682.04,4)=""
^DD(682.02,0)="CLAIM DATE SUB-FIELD^^.03^3"
^DD(682.02,0,"NM","CLAIM DATE")=""
^DD(682.02,0,"UP")="682"
^DD(682.02,.01,0)="CLAIM DATE^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(682.02,.01,21,0)="^^2^2^2940825^^"
^DD(682.02,.01,21,1,0)="This field is to show specific dates when a specific"
^DD(682.02,.01,21,2,0)="missing issue is claimed from the vendor."
^DD(682.02,.01,"DT")="2870901"
^DD(682.02,.02,0)="QTY CLAIMED^CJ2,0^^ ; ^S Y(682.02,.02,1)=$S($D(^LBRY(682,D0,1)):^(1),1:"""") S X=$P(Y(682.02,.02,1),U,5)-$P(Y(682.02,.02,1),U,4) S X=$J(X,0,0)"
^DD(682.02,.02,9)="^"
^DD(682.02,.02,9.01)="682^1.3;682^1.4"
^DD(682.02,.02,9.1)="COPIES ORDERED-COPIES RECEIVED"
^DD(682.02,.02,21,0)="^^2^2^2940520^"
^DD(682.02,.02,21,1,0)="This field is the remaining quantity of copies that were ordered"
^DD(682.02,.02,21,2,0)="but not received."
^DD(682.02,.03,0)="CLAIM NOTES^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(682.02,.03,3)=""
^DD(682.02,.03,21,0)="^^1^1^2940520^"
^DD(682.02,.03,21,1,0)="This field allows input of notes concerning claim problems."
^DD(682.02,.03,"DT")="2870901"
^DD(682.02,"B","CLAIM DATE",.01)=""
^DD(682.02,"B","CLAIM NOTES",.03)=""
^DD(682.02,"B","QTY CLAIMED",.02)=""
^DD(682.02,"GL",0,1,.01)=""
^DD(682.02,"GL",0,2,.03)=""
^DD(682.04,0)="ISSUE ROUTING STATUS SUB-FIELD^^7^9"
^DD(682.04,0,"DIK")="LBRYX3"
^DD(682.04,0,"DT")="2931101"
^DD(682.04,0,"ID",1)="W ?10,@(""$P($P($C(59)_$S($D(^DD(682.04,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(682.04,0,"IX","AD",682.04,1)=""
^DD(682.04,0,"IX","AE",682.04,4)=""
^DD(682.04,0,"IX","B",682.04,.01)=""
^DD(682.04,0,"NM","ISSUE ROUTING STATUS")=""
^DD(682.04,0,"UP")="682"
^DD(682.04,.01,0)="COPY OF ISSUE^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:'$D(^LBRY(682,DA(1),4,""B"",$E(X,1,30),DA)) X"
^DD(682.04,.01,1,0)="^.1^^-1"
^DD(682.04,.01,1,1,0)="682.04^B"
^DD(682.04,.01,1,1,1)="S ^LBRY(682,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(682.04,.01,1,1,2)="K ^LBRY(682,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(682.04,.01,3)=" Select a copy number or ToC from left hand column of the displayed list to edit that entry."
^DD(682.04,.01,21,0)="^^3^3^2940825^^"
^DD(682.04,.01,21,1,0)="This field allows the selection of a specific copy number"
^DD(682.04,.01,21,2,0)="or the table of contents for a certain issue.  Found in"
^DD(682.04,.01,21,3,0)="CHE and RET options."
^DD(682.04,.01,"DT")="2880407"
^DD(682.04,.02,0)="COPY POINTER^*P681'X^LBRY(681,^0;3^D CNO^LBRYRTX"
^DD(682.04,.02,1,0)="^.1^^0"
^DD(682.04,.02,12)="COPIES FOR THIS TITLE ONLY"
^DD(682.04,.02,12.1)="I $P(^LBRY(682,DA(1),0),U,2)=$P(^(0),U,2)"
^DD(682.04,.02,21,0)="^^2^2^2950815^^"
^DD(682.04,.02,21,1,0)="This field refers to the copy of the serial title from the"
^DD(682.04,.02,21,2,0)="LBRY Disposition File."
^DD(682.04,.02,"DT")="2950815"
^DD(682.04,1,0)="ISSUE STATUS^S^1:ROUTED;2:ROUTED (TO RETURN);3:SHELVED;4:NOT RECEIVED;5:TOC NOT RECEIVED;^0;2^Q"
^DD(682.04,1,1,0)="^.1"
^DD(682.04,1,1,1,0)="682^A2^MUMPS"
^DD(682.04,1,1,1,1)="I ""12""[X,'$P(^LBRY(682,DA(1),4,DA,0),U,6) S ^LBRY(682,""A2"",DA(1),DA)="""""
^DD(682.04,1,1,1,2)="K ^LBRY(682,""A2"",DA(1),DA)"
^DD(682.04,1,1,1,"%D",0)="^^3^3^2951011^"
^DD(682.04,1,1,1,"%D",1,0)="If the issue status is ""routed"" or ""routed to return"", the"
^DD(682.04,1,1,1,"%D",2,0)="entry of this issueis put into cross-reference ""A2"" which is"
^DD(682.04,1,1,1,"%D",3,0)="used to print the routing slips."
^DD(682.04,1,1,2,0)="682.04^AD^MUMPS"
^DD(682.04,1,1,2,1)="D NOCS^LBRYRTX"
^DD(682.04,1,1,2,2)="D NOCD^LBRYRTX"
^DD(682.04,1,1,2,"%D",0)="^^2^2^2951011^"
^DD(682.04,1,1,2,"%D",1,0)="Determines the number of copies that should be received"
^DD(682.04,1,1,2,"%D",2,0)="compared with those actually checked in."
^DD(682.04,1,3)="Select the code that represents the current status of this copy."
^DD(682.04,1,21,0)="^^3^3^2940520^"
^DD(682.04,1,21,1,0)="This field indicates whether the issue has been (1) routed,"
^DD(682.04,1,21,2,0)="(2) routed to return, (3) shelved, (4) issue not received,"
^DD(682.04,1,21,3,0)="and (5) table of contents not received.  Found in CHE option."
^DD(682.04,1,"DT")="2880330"
^DD(682.04,2,0)="RETURNING AUTHOR^P200'I^VA(200,^0;4^Q"
^DD(682.04,2,9)="^"
^DD(682.04,2,21,0)="^^2^2^2940520^"
^DD(682.04,2,21,1,0)="This field indicates who checked in a return from routing"
^DD(682.04,2,21,2,0)="serial issue."
^DD(682.04,2,"DT")="2931101"
^DD(682.04,3,0)="RETURNING DATE^DI^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(682.04,3,9)="^"
^DD(682.04,3,21,0)="^^2^2^2940520^"
^DD(682.04,3,21,1,0)="This field indicates the date on which an issue is"
^DD(682.04,3,21,2,0)="returned from routing in the RET option."
^DD(682.04,3,"DT")="2870918"
^DD(682.04,4,0)="PRINTING TIME^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(682.04,4,1,0)="^.1^^-1"
^DD(682.04,4,1,1,0)="682.04^AE^MUMPS"
^DD(682.04,4,1,1,1)="K ^LBRY(682,""A2"",DA(1),DA)"
^DD(682.04,4,1,1,2)="Q"
^DD(682.04,4,1,1,"%D",0)="^^2^2^2951011^"
^DD(682.04,4,1,1,"%D",1,0)="When the printing time of a routing slip is set, the entry"
^DD(682.04,4,1,1,"%D",2,0)="is killed from ""A2"" which is used as the routing slip queue."
^DD(682.04,4,1,2,0)="682^A3"
^DD(682.04,4,1,2,1)="S ^LBRY(682,""A3"",$E(X,1,30),DA(1),DA)="""""
^DD(682.04,4,1,2,2)="K ^LBRY(682,""A3"",$E(X,1,30),DA(1),DA)"
^DD(682.04,4,1,2,"%D",0)="^^1^1^2951011^"
^DD(682.04,4,1,2,"%D",1,0)="Sets the printed date/time of a routing slip."
^DD(682.04,4,21,0)="^^6^6^2940520^"
^DD(682.04,4,21,1,0)="This field automatically indicates the date and time when"
^DD(682.04,4,21,2,0)="the routing slips for an issue were initially printed.  If"
^DD(682.04,4,21,3,0)="the printer fails and routing slips must be reprinted using"
^DD(682.04,4,21,4,0)="the RRS option with a range of dates and times, the RRS"
^DD(682.04,4,21,5,0)="option would identify routing slips to be reprinted by the"
^DD(682.04,4,21,6,0)="values found in this field."
^DD(682.04,4,"DT")="2880323"
^DD(682.04,5,0)="DATE RECEIVED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(682.04,5,1,0)="^.1"
^DD(682.04,5,1,1,0)="682^A4^MUMPS"
^DD(682.04,5,1,1,1)="S:$P($G(^LBRY(682,DA(1),0)),U,2)'="""" ^LBRY(682,""A4"",X,$P(^LBRY(682,DA(1),0),U,2),DA(1),DA)="""""
^DD(682.04,5,1,1,2)="K:$P($G(^LBRY(682,DA(1),0)),U,2)'="""" ^LBRY(682,""A4"",X,$P(^LBRY(682,DA(1),0),U,2),DA(1),DA)"
^DD(682.04,5,1,1,"%D",0)="^^2^2^2980415^^^^"
^DD(682.04,5,1,1,"%D",1,0)="This cross-reference is by the received date of a particular"
^DD(682.04,5,1,1,"%D",2,0)="title and that title's journal date."
^DD(682.04,5,1,1,"DT")="2980414"
^DD(682.04,5,1,2,0)="^^TRIGGER^682^1.6"
^DD(682.04,5,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^LBRY(682,D0,1)):^(1),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=$P(^LBRY(682,DA(1),4,DA,0),U,7) X ^DD(682.04,5,1,2,1.4)"
^DD(682.04,5,1,2,1.4)="S DIH=$S($D(^LBRY(682,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,7)=DIV,DIH=682,DIG=1.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(682.04,5,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^LBRY(682,D0,1)):^(1),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(682.04,5,1,2,2.1) X ^DD(682.04,5,1,2,2.4)"
^DD(682.04,5,1,2,2.1)="S X=DIV S Y(1)=$S($D(^LBRY(682,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,7)"
^DD(682.04,5,1,2,2.4)="S DIH=$S($D(^LBRY(682,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,7)=DIV,DIH=682,DIG=1.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(682.04,5,1,2,"%D",0)="^^2^2^2951011^"
^DD(682.04,5,1,2,"%D",1,0)="This triggers into the received date (#1.6) the date a copy"
^DD(682.04,5,1,2,"%D",2,0)="of a journal was received."
^DD(682.04,5,1,2,"CREATE VALUE")="S X=$P(^LBRY(682,DA(1),4,DA,0),U,7)"
^DD(682.04,5,1,2,"DELETE VALUE")="DATE RECEIVED"
^DD(682.04,5,1,2,"DT")="2940203"
^DD(682.04,5,1,2,"FIELD")="#1.6"
^DD(682.04,5,3)="Enter the actual date this copy was received in the library."
^DD(682.04,5,8.5)="^"
^DD(682.04,5,21,0)="^^2^2^2950815^^"
^DD(682.04,5,21,1,0)="This is the date that the copy of the issue was received and entered"
^DD(682.04,5,21,2,0)="into the system."
^DD(682.04,5,"DT")="2980414"
^DD(682.04,6,0)="RECEIVING AUTHOR^P200'I^VA(200,^0;8^Q"
^DD(682.04,6,9)="^"
^DD(682.04,6,21,0)="^^2^2^2940912^"
^DD(682.04,6,21,1,0)="This field is the technician who checked in a particular copy"
^DD(682.04,6,21,2,0)="of a serial title."
^DD(682.04,6,"DT")="2931101"
^DD(682.04,7,0)="BAR CODE^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(682.04,7,3)=""
^DD(682.04,7,21,0)="^^2^2^2940520^"
^DD(682.04,7,21,1,0)="This field will be used to store the bar code on each"
^DD(682.04,7,21,2,0)="serials title issue as it is checked in."
^DD(682.04,7,"DT")="2880602"
^DD(682.04,"B","BAR CODE",7)=""
^DD(682.04,"B","COPY OF ISSUE",.01)=""
^DD(682.04,"B","COPY POINTER",.02)=""
^DD(682.04,"B","DATE RECEIVED",5)=""
^DD(682.04,"B","ISSUE STATUS",1)=""
^DD(682.04,"B","PRINTING TIME",4)=""
^DD(682.04,"B","RECEIVING AUTHOR",6)=""
^DD(682.04,"B","RETURNING AUTHOR",2)=""
^DD(682.04,"B","RETURNING DATE",3)=""
^DD(682.04,"GL",0,1,.01)=""
^DD(682.04,"GL",0,2,1)=""
^DD(682.04,"GL",0,3,.02)=""
^DD(682.04,"GL",0,4,2)=""
^DD(682.04,"GL",0,5,3)=""
^DD(682.04,"GL",0,6,4)=""
^DD(682.04,"GL",0,7,5)=""
^DD(682.04,"GL",0,8,6)=""
^DD(682.04,"GL",0,9,7)=""
^DD(682.04,"IX",.01)=""
^DD(682.04,"IX",1)=""
^DD(682.04,"IX",4)=""
^DD(682.04,"IX",5)=""
^DD(682.1,0)="FIELD^^39^40"
^DD(682.1,0,"DDA")="N"
^DD(682.1,0,"DIK")="LBRYX4"
^DD(682.1,0,"DIKOLD")="LBRYX4"
^DD(682.1,0,"DT")="2961030"
^DD(682.1,0,"ID",5)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(682.1,0,"IX","AA",682.1,2)=""
^DD(682.1,0,"IX","AA1",682.1,1)=""
^DD(682.1,0,"IX","AC",682.1,2)=""
^DD(682.1,0,"IX","AD",682.1,5)=""
^DD(682.1,0,"IX","B",682.1,.01)=""
^DD(682.1,0,"IX","C",682.1,1)=""
^DD(682.1,0,"NM","LIBRARY TRANSACTIONS")=""
^DD(682.1,0,"PT",682.1,39)=""
^DD(682.1,0,"VR")="2.5"
^DD(682.1,0,"VRPK")="LBR"
^DD(682.1,.01,0)="TRANSACTION NUMBER^RNJ9,0X^^0;1^S DINUM=X K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682.1,.01,1,0)="^.1"
^DD(682.1,.01,1,1,0)="682.1^B"
^DD(682.1,.01,1,1,1)="S ^LBRY(682.1,""B"",$E(X,1,30),DA)="""""
^DD(682.1,.01,1,1,2)="K ^LBRY(682.1,""B"",$E(X,1,30),DA)"
^DD(682.1,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(682.1,.01,21,0)="^^1^1^2940520^^"
^DD(682.1,.01,21,1,0)="This is the internal entry number for each record."
^DD(682.1,.01,"DT")="2930421"
^DD(682.1,1,0)="TRANSACTION TYPE^F^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(682.1,1,1,0)="^.1"
^DD(682.1,1,1,1,0)="682.1^C"
^DD(682.1,1,1,1,1)="S ^LBRY(682.1,""C"",$E(X,1,30),DA)="""""
^DD(682.1,1,1,1,2)="K ^LBRY(682.1,""C"",$E(X,1,30),DA)"
^DD(682.1,1,1,1,"DT")="2930513"
^DD(682.1,1,1,2,0)="682.1^AA1^MUMPS"
^DD(682.1,1,1,2,1)="S:$P($G(^LBRY(682.1,DA,0)),U,3)'="""" ^LBRY(682.1,""AA"",$E($P(^LBRY(682.1,DA,0),U,3),1,30),$E(X,1,30),DA)="""""
^DD(682.1,1,1,2,2)="K:$P($G(^LBRY(682.1,DA,0)),U,3)'="""" ^LBRY(682.1,""AA"",$E($P(^LBRY(682.1,DA,0),U,3),1,30),$E(X,1,30),DA)"
^DD(682.1,1,1,2,"%D",0)="^^1^1^2980414^^"
^DD(682.1,1,1,2,"%D",1,0)="This cross-reference is by transaction type and by transaction status."
^DD(682.1,1,1,2,"DT")="2980414"
^DD(682.1,1,3)="Answer must be 3 characters in length."
^DD(682.1,1,21,0)="^^3^3^2940520^"
^DD(682.1,1,21,1,0)="This the specific type of transaction that is being transmitted"
^DD(682.1,1,21,2,0)="or received.  Some types of transactions can be combined into"
^DD(682.1,1,21,3,0)="one mail message."
^DD(682.1,1,"DT")="2980414"
^DD(682.1,2,0)="TRANSACTION STATUS^S^T:TRANSMITTED;W:WAITING FOR TRANSMISSION;R:READY FOR PROCESSING;P:PROCESSED;M:MANUAL PROCESS;^0;3^Q"
^DD(682.1,2,1,0)="^.1"
^DD(682.1,2,1,1,0)="682.1^AC"
^DD(682.1,2,1,1,1)="S ^LBRY(682.1,""AC"",$E(X,1,30),DA)="""""
^DD(682.1,2,1,1,2)="K ^LBRY(682.1,""AC"",$E(X,1,30),DA)"
^DD(682.1,2,1,1,"%D",0)="^^2^2^2980414^^"
^DD(682.1,2,1,1,"%D",1,0)="This cross reference is for LBRYSEND to pull only those records"
^DD(682.1,2,1,1,"%D",2,0)="needing to be transmitted to FORUM."
^DD(682.1,2,1,1,"DT")="2930423"
^DD(682.1,2,1,2,0)="682.1^AA^MUMPS"
^DD(682.1,2,1,2,1)="S:$P($G(^LBRY(682.1,DA,0)),U,2)'="""" ^LBRY(682.1,""AA"",$E(X,1,30),$E($P(^LBRY(682.1,DA,0),U,2),1,30),DA)="""""
^DD(682.1,2,1,2,2)="K:$P($G(^LBRY(682.1,DA,0)),U,2)'="""" ^LBRY(682.1,""AA"",$E(X,1,30),$E($P(^LBRY(682.1,DA,0),U,2),1,30),DA)"
^DD(682.1,2,1,2,"%D",0)="^^1^1^2980414^^^"
^DD(682.1,2,1,2,"%D",1,0)="This cross-reference is by transaction type and by transaction status."
^DD(682.1,2,1,2,"DT")="2980414"
^DD(682.1,2,21,0)="^^5^5^2940520^"
^DD(682.1,2,21,1,0)="This field designates the status of transactions. 'W' for"
^DD(682.1,2,21,2,0)="waiting for transmission and 'T' for transmitted are statuses"
^DD(682.1,2,21,3,0)="for transactions being sent.  'R' for ready for"
^DD(682.1,2,21,4,0)="processing and 'P' for processed are statuses after a"
^DD(682.1,2,21,5,0)="transmission has come in."
^DD(682.1,2,"DT")="2980414"
^DD(682.1,3,0)="SEND STATION^F^^0;4^K:$L(X)>7!($L(X)<3) X"
^DD(682.1,3,3)="This is the sending station number."
^DD(682.1,3,21,0)="^^2^2^2940520^^"
^DD(682.1,3,21,1,0)="This is for use on FORUM and is the station number of the library"
^DD(682.1,3,21,2,0)="station sending the transaction."
^DD(682.1,3,"DT")="2930423"
^DD(682.1,4,0)="LOCAL TRANSACTION NUMBER^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682.1,4,3)="This is the local internal transaction number."
^DD(682.1,4,21,0)="^^4^4^2940520^^"
^DD(682.1,4,21,1,0)="This is for use on FORUM and is the local internal number of a serial"
^DD(682.1,4,21,2,0)="title that is being sent to FORUM.  This number will be sent"
^DD(682.1,4,21,3,0)="back to the local site for processing the disposition of the"
^DD(682.1,4,21,4,0)="transaction."
^DD(682.1,4,"DT")="2930423"
^DD(682.1,5,0)="TITLE^F^^1;1^K:$L(X)>160!($L(X)<1) X"
^DD(682.1,5,1,0)="^.1"
^DD(682.1,5,1,1,0)="682.1^AD"
^DD(682.1,5,1,1,1)="S ^LBRY(682.1,""AD"",$E(X,1,30),DA)="""""
^DD(682.1,5,1,1,2)="K ^LBRY(682.1,""AD"",$E(X,1,30),DA)"
^DD(682.1,5,1,1,"DT")="2940124"
^DD(682.1,5,3)="This is the journal title name"
^DD(682.1,5,21,0)="^^1^1^2940520^"
^DD(682.1,5,21,1,0)="This is the full serials title."
^DD(682.1,5,"DT")="2930421"
^DD(682.1,6,0)="TAF DA#^NJ6,0^^1;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682.1,6,3)="This is the FORUM Title Authority File internal number."
^DD(682.1,6,21,0)="^^2^2^2940520^"
^DD(682.1,6,21,1,0)="This field automatically provides the FORUM Title Authority"
^DD(682.1,6,21,2,0)="File internal number associated with a particular serials title."
^DD(682.1,6,"DT")="2930421"
^DD(682.1,7,0)="LOCAL DA#^NJ7,0^^1;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682.1,7,3)="This is the local Title Authority file internal number."
^DD(682.1,7,21,0)="^^1^1^2940523^^"
^DD(682.1,7,21,1,0)="This field is the local station level internal number."
^DD(682.1,7,"DT")="2930421"
^DD(682.1,8,0)="PORTION^S^N:NATIONAL;L:LOCAL;^1;4^Q"
^DD(682.1,8,21,0)="^^3^3^2940523^"
^DD(682.1,8,21,1,0)="This field is a set of codes to indicate whether the"
^DD(682.1,8,21,2,0)="serials title was created at the national (FORUM) level"
^DD(682.1,8,21,3,0)="or at the local level."
^DD(682.1,8,"DT")="2930421"
^DD(682.1,9,0)="SYNONYM^F^^2;1^K:$L(X)>45!($L(X)<1) X"
^DD(682.1,9,3)="Answer must be 1-45 characters in length."
^DD(682.1,9,21,0)="^^7^7^2940523^"
^DD(682.1,9,21,1,0)="This field is for the input of a synonym, alternative"
^DD(682.1,9,21,2,0)="name, or acronym commonly used for this serials title."
^DD(682.1,9,21,3,0)="for instance, the New England Journal of Medicine is"
^DD(682.1,9,21,4,0)="often called: NEJM.  This field is not the same as the"
^DD(682.1,9,21,5,0)="NLM TITLE ABBREVIATION.  If an acronym is the official"
^DD(682.1,9,21,6,0)="title of the serial, then the spelled-out version of"
^DD(682.1,9,21,7,0)="the title would be entered in this field."
^DD(682.1,9,"DT")="2930421"
^DD(682.1,10,0)="ISSN/ISBN^F^^2;2^K:$L(X)>20!($L(X)<1) X"
^DD(682.1,10,3)="Answer must be 1-20 characters in length."
^DD(682.1,10,21,0)="^^3^3^2940523^"
^DD(682.1,10,21,1,0)="This field is for the International Standard Serials"
^DD(682.1,10,21,2,0)="Number of the International Standard Book Number for"
^DD(682.1,10,21,3,0)="the specific serials title."
^DD(682.1,10,"DT")="2930421"
^DD(682.1,11,0)="FORMERLY^F^^2;3^K:$L(X)>160!($L(X)<1) X"
^DD(682.1,11,3)="Answer must be 1-160 characters in length."
^DD(682.1,11,21,0)="^^3^3^2940523^"
^DD(682.1,11,21,1,0)="This field is for the complete serials title which"
^DD(682.1,11,21,2,0)="was the immediate predecessor to this specific serials"
^DD(682.1,11,21,3,0)="title."
^DD(682.1,11,"DT")="2930421"
^DD(682.1,12,0)="NLM ABBREVIATION^F^^3;1^K:$L(X)>50!($L(X)<1) X"
^DD(682.1,12,3)="Answer must be 1-50 characters in length."
^DD(682.1,12,21,0)="^^3^3^2940523^"
^DD(682.1,12,21,1,0)="This field is for a title abbreviation either assigned"
^DD(682.1,12,21,2,0)="by the National Library of Medicine or created following"
^DD(682.1,12,21,3,0)="their abbreviation format."
^DD(682.1,12,"DT")="2930421"
^DD(682.1,13,0)="CONTINUED BY^F^^3;2^K:$L(X)>160!($L(X)<1) X"
^DD(682.1,13,3)="Answer must be 1-160 characters in length."
^DD(682.1,13,21,0)="^^2^2^2940523^"
^DD(682.1,13,21,1,0)="This field is for the complete serials title which is"
^DD(682.1,13,21,2,0)="the immediate successor to this specific serials title."
^DD(682.1,13,"DT")="2930421"
^DD(682.1,14,0)="SERLINE^F^^3;3^K:$L(X)>9!($L(X)<1) X"
^DD(682.1,14,3)="Answer must be 1-9 characters in length."
^DD(682.1,14,21,0)="^^5^5^2940523^"
^DD(682.1,14,21,1,0)="This field allows for the input of the 9 character SERLINE"
^DD(682.1,14,21,2,0)="number which is assigned to each title in the National"
^DD(682.1,14,21,3,0)="Library of Medicine SERHOLD database.  Not every serials"
^DD(682.1,14,21,4,0)="title in the Serials Module will have a SERLINE number,"
^DD(682.1,14,21,5,0)="particularly non-medical titles."
^DD(682.1,14,"DT")="2930421"
^DD(682.1,15,0)="PUBLISHER^F^^4;1^K:$L(X)>60!($L(X)<1) X"
^DD(682.1,15,3)="Answer must be 1-60 characters in length."
^DD(682.1,15,21,0)="^^2^2^2940523^"
^DD(682.1,15,21,1,0)="This field allows for the input of the name of a publisher"
^DD(682.1,15,21,2,0)="for a serials title."
^DD(682.1,15,"DT")="2930421"
^DD(682.1,16,0)="FIRST ISSUE^F^^4;2^K:$L(X)>45!($L(X)<1) X"
^DD(682.1,16,3)="Answer must be 1-45 characters in length."
^DD(682.1,16,21,0)="^^5^5^2940523^"
^DD(682.1,16,21,1,0)="This field is for the input of the first volume and issue"
^DD(682.1,16,21,2,0)="number and issue date, historically, used when this"
^DD(682.1,16,21,3,0)="specific serials title was first published under this name."
^DD(682.1,16,21,4,0)="These volume and issue numbers and issue dates are not"
^DD(682.1,16,21,5,0)="necessarily the same as holdings statements."
^DD(682.1,16,"DT")="2930421"
^DD(682.1,17,0)="LAST ISSUE^F^^4;3^K:$L(X)>30!($L(X)<1) X"
^DD(682.1,17,3)="Answer must be 1-30 characters in length."
^DD(682.1,17,21,0)="^^5^5^2940523^"
^DD(682.1,17,21,1,0)="This field is for the input of the last volume and issue"
^DD(682.1,17,21,2,0)="number and issue date, historically, used when this"
^DD(682.1,17,21,3,0)="specific serials title was last published under this name."
^DD(682.1,17,21,4,0)="These volume and issue numbers and issue dates are not"
^DD(682.1,17,21,5,0)="necessarily the same as holdings statements."
^DD(682.1,17,"DT")="2930421"
^DD(682.1,18,0)="FREQUENCY^F^^4;4^K:$L(X)>30!($L(X)<1) X"
^DD(682.1,18,3)="Answer must be 1-30 characters in length."
^DD(682.1,18,21,0)="^^10^10^2940523^"
^DD(682.1,18,21,1,0)="This field provides for the frequency of issue which"
^DD(682.1,18,21,2,0)="has been assigned in the National Library Files"
^DD(682.1,18,21,3,0)="Maintenance option on FORUM.  No local input in the"
^DD(682.1,18,21,4,0)="local Serials Module is allowed for this field.  Every"
^DD(682.1,18,21,5,0)="serials title may have a frequency assigned; however,"
^DD(682.1,18,21,6,0)="not every serials title may have a prediction pattern."
^DD(682.1,18,21,7,0)="If no prediction pattern can be assigned, the frequency"
^DD(682.1,18,21,8,0)="field may have the following type of value:  QUARTERLY,"
^DD(682.1,18,21,9,0)="NO PREDICT. PATTERN.  Old serials which are not longer"
^DD(682.1,18,21,10,0)="published may not have a frequency entered."
^DD(682.1,18,"DT")="2930421"
^DD(682.1,19,0)="PREDICTION PATTERN^F^^4;5^K:$L(X)>60!($L(X)<1) X"
^DD(682.1,19,3)="Answer must be 1-60 characters in length."
^DD(682.1,19,21,0)="^^13^13^2940519^"
^DD(682.1,19,21,1,0)="This field provides for the prediction pattern which has been"
^DD(682.1,19,21,2,0)="assigned in the National Library Files Maintenance option on"
^DD(682.1,19,21,3,0)="FORUM for a serials title which is still being published.  No"
^DD(682.1,19,21,4,0)="local input in the local Serials Module is allowed for this"
^DD(682.1,19,21,5,0)="field.  If there is no value in this field, there is no"
^DD(682.1,19,21,6,0)="prediction pattern for this title, and thus there will be no"
^DD(682.1,19,21,7,0)="automatic prediction of the next expected issue in the CHE"
^DD(682.1,19,21,8,0)="option on the local module.  Certain issuing patterns by"
^DD(682.1,19,21,9,0)="publishers do not lend themselves to the establishment of a"
^DD(682.1,19,21,10,0)="prediction pattern, most notably those quarterly publications"
^DD(682.1,19,21,11,0)="which are labeled with seasonal designations such as spring,"
^DD(682.1,19,21,12,0)="winter, etc.  In order for a prediction pattern to be created,"
^DD(682.1,19,21,13,0)="the serials title must be dated in a MM/YY or MM/DD/YY format."
^DD(682.1,19,"DT")="2930421"
^DD(682.1,20,0)="PREDICT PAT SEQ^F^^4;6^K:$L(X)>5!($L(X)<5) X"
^DD(682.1,20,3)="This is the Prediction Pattern sequence code."
^DD(682.1,20,21,0)="^^12^12^2950815^^"
^DD(682.1,20,21,1,0)="This field allows for the input of the alpha-numeric code"
^DD(682.1,20,21,2,0)="which identifies the prediction pattern and puts it into"
^DD(682.1,20,21,3,0)="a sequence with all other patterns.  This field requires"
^DD(682.1,20,21,4,0)="the entry of one alpha character and 4 numbers, in the"
^DD(682.1,20,21,5,0)="form of A1111, to identify and place the prediction pattern"
^DD(682.1,20,21,6,0)="in a coherent scheme of patterns.  The alpha characters"
^DD(682.1,20,21,7,0)="identify the underlying frequency, such as A- monthly,"
^DD(682.1,20,21,8,0)="K- 8 times per year, etc.  The numbers place the prediction"
^DD(682.1,20,21,9,0)="pattern in the proper sequence within its frequency type"
^DD(682.1,20,21,10,0)="according to months, days, number of volumes, etc.,"
^DD(682.1,20,21,11,0)="according to a predetermined format for the PREDICTION PATTERN"
^DD(682.1,20,21,12,0)="NAME."
^DD(682.1,20,"DT")="2930421"
^DD(682.1,21,0)="MONTH^F^^5;1^K:$L(X)>30!($L(X)<1) X"
^DD(682.1,21,3)="Answer must be 1-30 characters in length."
^DD(682.1,21,21,0)="^^3^3^2940523^"
^DD(682.1,21,21,1,0)="This field allows the input of the month or months"
^DD(682.1,21,21,2,0)="involved in the construction of the specific prediction"
^DD(682.1,21,21,3,0)="pattern."
^DD(682.1,21,"DT")="2930421"
^DD(682.1,22,0)="WOM/DOW^F^^5;2^K:$L(X)>120!($L(X)<1) X"
^DD(682.1,22,3)="Answer must be 1-120 characters in length."
^DD(682.1,22,21,0)="^^6^6^2940520^"
^DD(682.1,22,21,1,0)="This field is to create a pattern for those serials titles which"
^DD(682.1,22,21,2,0)="are issued on a certain day of the week for a certain week of"
^DD(682.1,22,21,3,0)="the month, for example, Friday of the third week.  This field can"
^DD(682.1,22,21,4,0)="handle more than one week;  for example, you could have a title"
^DD(682.1,22,21,5,0)="issued the first and third Fridays; the notation would be 1/5,"
^DD(682.1,22,21,6,0)="3/5.  Days of the week are indicated by 0=Sunday through 6=Saturday."
^DD(682.1,22,"DT")="2930421"
^DD(682.1,23,0)="DAYS ADDED^F^^5;3^K:$L(X)>2!($L(X)<1) X"
^DD(682.1,23,3)="Answer must be 1-2 characters in length."
^DD(682.1,23,21,0)="^^3^3^2950815^^"
^DD(682.1,23,21,1,0)="This field is used when a serials title is used every so many"
^DD(682.1,23,21,2,0)="days, for instance, every 21 days.  In such a case, the value"
^DD(682.1,23,21,3,0)="of 21 would be placed in this field."
^DD(682.1,23,"DT")="2930421"
^DD(682.1,24,0)="CHANGE MONTH^F^^5;4^K:$L(X)>4!($L(X)<4) X"
^DD(682.1,24,3)="Answer must be 4 characters in length."
^DD(682.1,24,21,0)="^^5^5^2940520^"
^DD(682.1,24,21,1,0)="This field is for the input of the months at which the"
^DD(682.1,24,21,2,0)="volume numbers increase, the values input from 1 to 12."
^DD(682.1,24,21,3,0)="For instance, if a monthly serials title has two volumes"
^DD(682.1,24,21,4,0)="per year, changing in January and July, the CHANGE MONTH"
^DD(682.1,24,21,5,0)="value should be:  1,7."
^DD(682.1,24,"DT")="2930421"
^DD(682.1,25,0)="VOLUME INCREMENT^F^^5;5^K:$L(X)>3!($L(X)<1) X"
^DD(682.1,25,3)="Answer must be 1-3 characters in length."
^DD(682.1,25,21,0)="^^4^4^2940520^"
^DD(682.1,25,21,1,0)="This field allows the volume field to be incremented at"
^DD(682.1,25,21,2,0)="the month designated by the CHANGE MONTH field.  If the"
^DD(682.1,25,21,3,0)="volume number increases by 1 at each CHANGE MONTH, the value"
^DD(682.1,25,21,4,0)="in this field should be +1."
^DD(682.1,25,"DT")="2930421"
^DD(682.1,26,0)="ISSUE CHANGE^F^^5;6^K:$L(X)>3!($L(X)<1) X"
^DD(682.1,26,3)="Answer must be 1-3 characters in length."
^DD(682.1,26,21,0)="^^4^4^2940520^^^^"
^DD(682.1,26,21,1,0)="This field will be used on all computed JOURNAL DATES other than"
^DD(682.1,26,21,2,0)="the first JOURNAL DATE during the CHANGE MONTH.  The issue should"
^DD(682.1,26,21,3,0)="be incremented by the amount stated in this field if the entry has"
^DD(682.1,26,21,4,0)="a '+' as the first character."
^DD(682.1,26,"DT")="2930421"
^DD(682.1,27,0)="ISSUE INCREMENT^F^^5;7^K:$L(X)>3!($L(X)<1) X"
^DD(682.1,27,3)="Answer must be 1-3 characters in length."
^DD(682.1,27,21,0)="^^4^4^2940520^^^^"
^DD(682.1,27,21,1,0)="This field will be used on the first computed JOURNAL DATE during the"
^DD(682.1,27,21,2,0)="CHANGE MONTH.  The ISSUE will be set to the number in this field if"
^DD(682.1,27,21,3,0)="the number does not start with a '+"";  otherwise add the number to the"
^DD(682.1,27,21,4,0)="last ISSUE."
^DD(682.1,27,"DT")="2930421"
^DD(682.1,28,0)="DAY OF MONTH^F^^5;8^K:$L(X)>12!($L(X)<1) X"
^DD(682.1,28,3)="Answer must be 1-12 characters in length."
^DD(682.1,28,21,0)="^^5^5^2950815^^"
^DD(682.1,28,21,1,0)="If a serials title is always dated with a specific day"
^DD(682.1,28,21,2,0)="of the month, that day would be entered here.  More than"
^DD(682.1,28,21,3,0)="one day can be entered.  A serials title which is always"
^DD(682.1,28,21,4,0)="issued and dated on the third and fifteenth would have the"
^DD(682.1,28,21,5,0)="value of:  3,15."
^DD(682.1,28,"DT")="2930421"
^DD(682.1,29,0)="INDEX^682.129A^^6;0"
^DD(682.1,29,21,0)="^^3^3^2940523^"
^DD(682.1,29,21,1,0)="This field allows the input of the names of indexing"
^DD(682.1,29,21,2,0)="and abstracting tools in which various articles from"
^DD(682.1,29,21,3,0)="various serials titles are found."
^DD(682.1,30,0)="GENERAL NOTES^682.11^^7;0"
^DD(682.1,30,21,0)="^^4^4^2940523^"
^DD(682.1,30,21,1,0)="This is a word-processing field in which the"
^DD(682.1,30,21,2,0)="bibliographic history of a serials title should"
^DD(682.1,30,21,3,0)="be described along with alternative titles, synonyms,"
^DD(682.1,30,21,4,0)="changes in publishers, etc."
^DD(682.1,31,0)="PREDICT PAT DESC.^682.131^^8;0"
^DD(682.1,31,21,0)="^^3^3^2940523^"
^DD(682.1,31,21,1,0)="This is a word-processing field in which the parameters"
^DD(682.1,31,21,2,0)="of the prediction pattern should be described in plain"
^DD(682.1,31,21,3,0)="English."
^DD(682.1,32,0)="MULTIPLE TITLES^682.132A^^9;0"
^DD(682.1,32,21,0)="^^4^4^2940523^"
^DD(682.1,32,21,1,0)="This field is for those transactions that may have more than"
^DD(682.1,32,21,2,0)="one title to be sent in the mail message.  For example, if"
^DD(682.1,32,21,3,0)="a prediction pattern is changed, then all titles with that"
^DD(682.1,32,21,4,0)="particular prediction pattern will appear on the mail message."
^DD(682.1,33,0)="DATE/TIME CREATED^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(682.1,33,21,0)="^.001^2^2^3010119^^^"
^DD(682.1,33,21,1,0)="This field stores the date the transaction was created or received,"
^DD(682.1,33,21,2,0)="then transmitted or processed."
^DD(682.1,33,"DT")="3000104"
^DD(682.1,34,0)="TO STATION^P4.2'^DIC(4.2,^0;7^Q"
^DD(682.1,34,3)=""
^DD(682.1,34,21,0)="^^2^2^2950626^^"
^DD(682.1,34,21,1,0)="This field is the domain that the transaction is being"
^DD(682.1,34,21,2,0)="sent to."
^DD(682.1,34,23,0)="^^1^1^2950626^"
^DD(682.1,34,23,1,0)=" "
^DD(682.1,34,"DT")="2950626"
^DD(682.1,35,0)="EXPLANATION^682.135^^10;0"
^DD(682.1,35,21,0)="^^2^2^2940523^^"
^DD(682.1,35,21,1,0)="Give an explanation about why a local serial title transaction"
^DD(682.1,35,21,2,0)="was rejected by the National Librarians."
^DD(682.1,36,0)="MESSAGE^F^^0;8^K:$L(X)>7!($L(X)<5) X"
^DD(682.1,36,3)="This is whether some data was added or changed."
^DD(682.1,36,21,0)="^^3^3^2940523^"
^DD(682.1,36,21,1,0)="This field is used for certain transactions types;"
^DD(682.1,36,21,2,0)="whether a frequency was added, changed or deleted for"
^DD(682.1,36,21,3,0)="a serials title or a prediction pattern."
^DD(682.1,36,"DT")="2931019"
^DD(682.1,37,0)="USER^P200'^VA(200,^1;5^Q"
^DD(682.1,37,21,0)="^^1^1^2940829^"
^DD(682.1,37,21,1,0)="This is the user that created this transaction."
^DD(682.1,37,"DT")="2940829"
^DD(682.1,38,0)="DATA EDITED^682.138^^11;0"
^DD(682.1,38,21,0)="^^2^2^2940902^"
^DD(682.1,38,21,1,0)="This is the data that was edited for a 'UTL' transaction."
^DD(682.1,38,21,2,0)="This will be used for the 'Any TAF Changes' report."
^DD(682.1,39,0)="ORIGNAL TRANSACTION #^P682.1'^LBRY(682.1,^0;9^Q"
^DD(682.1,39,21,0)="^^2^2^2961030^"
^DD(682.1,39,21,1,0)="This field refers back to the originally received transaction.  It is"
^DD(682.1,39,21,2,0)="used for reporting purposes."
^DD(682.1,39,"DT")="2961030"
^DD(682.1,"B","CHANGE MONTH",24)=""
^DD(682.1,"B","CONTINUED BY",13)=""
^DD(682.1,"B","DATA EDITED",38)=""
^DD(682.1,"B","DATE/TIME CREATED",33)=""
^DD(682.1,"B","DAY OF MONTH",28)=""
^DD(682.1,"B","DAYS ADDED",23)=""
^DD(682.1,"B","EXPLANATION",35)=""
^DD(682.1,"B","FIRST ISSUE",16)=""
^DD(682.1,"B","FORMERLY",11)=""
^DD(682.1,"B","FREQUENCY",18)=""
^DD(682.1,"B","GENERAL NOTES",30)=""
^DD(682.1,"B","INDEX",29)=""
^DD(682.1,"B","ISSN/ISBN",10)=""
^DD(682.1,"B","ISSUE CHANGE",26)=""
^DD(682.1,"B","ISSUE INCREMENT",27)=""
^DD(682.1,"B","LAST ISSUE",17)=""
^DD(682.1,"B","LOCAL DA#",7)=""
^DD(682.1,"B","LOCAL TRANSACTION NUMBER",4)=""
^DD(682.1,"B","MESSAGE",36)=""
^DD(682.1,"B","MONTH",21)=""
^DD(682.1,"B","MULTIPLE TITLES",32)=""
^DD(682.1,"B","NLM ABBREVIATION",12)=""
^DD(682.1,"B","ORIGNAL TRANSACTION #",39)=""
^DD(682.1,"B","PORTION",8)=""
^DD(682.1,"B","PREDICT PAT DESC.",31)=""
^DD(682.1,"B","PREDICT PAT SEQ",20)=""
^DD(682.1,"B","PREDICTION PATTERN",19)=""
^DD(682.1,"B","PUBLISHER",15)=""
^DD(682.1,"B","SEND STATION",3)=""
^DD(682.1,"B","SERLINE",14)=""
^DD(682.1,"B","SYNONYM",9)=""
^DD(682.1,"B","TAF DA#",6)=""
^DD(682.1,"B","TITLE",5)=""
^DD(682.1,"B","TO STATION",34)=""
^DD(682.1,"B","TRANSACTION NUMBER",.01)=""
^DD(682.1,"B","TRANSACTION STATUS",2)=""
^DD(682.1,"B","TRANSACTION TYPE",1)=""
^DD(682.1,"B","USER",37)=""
^DD(682.1,"B","VOLUME INCREMENT",25)=""
^DD(682.1,"B","WOM/DOW",22)=""
^DD(682.1,"GL",0,1,.01)=""
^DD(682.1,"GL",0,2,1)=""
^DD(682.1,"GL",0,3,2)=""
^DD(682.1,"GL",0,4,3)=""
^DD(682.1,"GL",0,5,4)=""
^DD(682.1,"GL",0,6,33)=""
^DD(682.1,"GL",0,7,34)=""
^DD(682.1,"GL",0,8,36)=""
^DD(682.1,"GL",0,9,39)=""
^DD(682.1,"GL",1,1,5)=""
^DD(682.1,"GL",1,2,6)=""
^DD(682.1,"GL",1,3,7)=""
^DD(682.1,"GL",1,4,8)=""
^DD(682.1,"GL",1,5,37)=""
^DD(682.1,"GL",2,1,9)=""
^DD(682.1,"GL",2,2,10)=""
^DD(682.1,"GL",2,3,11)=""
^DD(682.1,"GL",3,1,12)=""
^DD(682.1,"GL",3,2,13)=""
^DD(682.1,"GL",3,3,14)=""
^DD(682.1,"GL",4,1,15)=""
^DD(682.1,"GL",4,2,16)=""
^DD(682.1,"GL",4,3,17)=""
^DD(682.1,"GL",4,4,18)=""
^DD(682.1,"GL",4,5,19)=""
^DD(682.1,"GL",4,6,20)=""
^DD(682.1,"GL",5,1,21)=""
^DD(682.1,"GL",5,2,22)=""
^DD(682.1,"GL",5,3,23)=""
^DD(682.1,"GL",5,4,24)=""
^DD(682.1,"GL",5,5,25)=""
^DD(682.1,"GL",5,6,26)=""
^DD(682.1,"GL",5,7,27)=""
^DD(682.1,"GL",5,8,28)=""
^DD(682.1,"GL",6,0,29)=""
^DD(682.1,"GL",7,0,30)=""
^DD(682.1,"GL",8,0,31)=""
^DD(682.1,"GL",9,0,32)=""
^DD(682.1,"GL",10,0,35)=""
^DD(682.1,"GL",11,0,38)=""
^DD(682.1,"IX",.01)=""
^DD(682.1,"IX",1)=""
^DD(682.1,"IX",2)=""
^DD(682.1,"IX",5)=""
^DD(682.1,"RQ",.01)=""
^DD(682.1,"SB",682.11,30)=""
^DD(682.1,"SB",682.129,29)=""
^DD(682.1,"SB",682.131,31)=""
^DD(682.1,"SB",682.132,32)=""
^DD(682.1,"SB",682.135,35)=""
^DD(682.1,"SB",682.138,38)=""
^DD(682.11,0)="GENERAL NOTES SUB-FIELD^^.01^1"
^DD(682.11,0,"DT")="2930421"
^DD(682.11,0,"NM","GENERAL NOTES")=""
^DD(682.11,0,"UP")="682.1"
^DD(682.11,.01,0)="GENERAL NOTES^W^^0;1^Q"
^DD(682.11,.01,21,0)="^^4^4^2940523^"
^DD(682.11,.01,21,1,0)="This is a word-processing field in which the"
^DD(682.11,.01,21,2,0)="bibliographic history of a serials title should"
^DD(682.11,.01,21,3,0)="be described along with alternative titles, synonyms,"
^DD(682.11,.01,21,4,0)="changes in publishers, etc."
^DD(682.11,.01,"DT")="2930421"
^DD(682.11,"B","GENERAL NOTES",.01)=""
^DD(682.11,"GL",0,1,.01)=""
^DD(682.129,0)="INDEX SUB-FIELD^^2^3"
^DD(682.129,0,"DIK")="LBRYX4"
^DD(682.129,0,"DT")="2930511"
^DD(682.129,0,"IX","B",682.129,.01)=""
^DD(682.129,0,"NM","INDEX")=""
^DD(682.129,0,"UP")="682.1"
^DD(682.129,.01,0)="INDEX TITLE^F^^0;1^K:$L(X)>40!($L(X)<1) X"
^DD(682.129,.01,1,0)="^.1"
^DD(682.129,.01,1,1,0)="682.129^B"
^DD(682.129,.01,1,1,1)="S ^LBRY(682.1,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(682.129,.01,1,1,2)="K ^LBRY(682.1,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(682.129,.01,3)="Answer must be 1-40 characters in length."
^DD(682.129,.01,21,0)="^^3^3^2940523^"
^DD(682.129,.01,21,1,0)="This field allows the input of the names of indexing"
^DD(682.129,.01,21,2,0)="and abstracting tools in which various articles from"
^DD(682.129,.01,21,3,0)="various serials titles are found."
^DD(682.129,.01,"DT")="2930511"
^DD(682.129,1,0)="CODE^F^^0;2^K:$L(X)>3!($L(X)<2) X"
^DD(682.129,1,3)="Answer must be 2-3 characters in length."
^DD(682.129,1,21,0)="^^2^2^2940523^"
^DD(682.129,1,21,1,0)="This field stores the short code or abrreviation for the"
^DD(682.129,1,21,2,0)="titles of the indexing and abstracting tools."
^DD(682.129,1,"DT")="2930511"
^DD(682.129,2,0)="INTERNAL #^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(682.129,2,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(682.129,2,21,0)="^^3^3^2940523^"
^DD(682.129,2,21,1,0)="This fields stores the internal number of the indexing"
^DD(682.129,2,21,2,0)="source that is being sent to the local sites for"
^DD(682.129,2,21,3,0)="inclusion in their system."
^DD(682.129,2,"DT")="2930511"
^DD(682.129,"B","CODE",1)=""
^DD(682.129,"B","INDEX TITLE",.01)=""
^DD(682.129,"B","INTERNAL #",2)=""
^DD(682.129,"GL",0,1,.01)=""
^DD(682.129,"GL",0,2,1)=""
^DD(682.129,"GL",0,3,2)=""
^DD(682.129,"IX",.01)=""
^DD(682.131,0)="PREDICT PAT DESC. SUB-FIELD^^.01^1"
^DD(682.131,0,"DT")="2930421"
^DD(682.131,0,"NM","PREDICT PAT DESC.")=""
^DD(682.131,0,"UP")="682.1"
^DD(682.131,.01,0)="PREDICT PAT DESC.^W^^0;1^Q"
^DD(682.131,.01,21,0)="^^3^3^2940523^"
^DD(682.131,.01,21,1,0)="This is a word-processing field in which the parameters"
^DD(682.131,.01,21,2,0)="of the prediction pattern should be described in plain"
^DD(682.131,.01,21,3,0)="English."
^DD(682.131,.01,"DT")="2930421"
^DD(682.131,"B","PREDICT PAT DESC.",.01)=""
^DD(682.131,"GL",0,1,.01)=""
^DD(682.132,0)="MULTIPLE TITLES SUB-FIELD^^.01^1"
^DD(682.132,0,"DIK")="LBRYX4"
^DD(682.132,0,"DT")="2930506"
^DD(682.132,0,"IX","B",682.132,.01)=""
^DD(682.132,0,"NM","MULTIPLE TITLES")=""
^DD(682.132,0,"UP")="682.1"
^DD(682.132,.01,0)="MULTIPLE TITLES^F^^0;1^K:$L(X)>160!($L(X)<1) X"
^DD(682.132,.01,1,0)="^.1"
^DD(682.132,.01,1,1,0)="682.132^B"
^DD(682.132,.01,1,1,1)="S ^LBRY(682.1,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(682.132,.01,1,1,2)="K ^LBRY(682.1,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(682.132,.01,3)="Answer must be 1-160 characters in length."
^DD(682.132,.01,21,0)="^^4^4^2940523^"
^DD(682.132,.01,21,1,0)="This field is for those transactions that may have more than"
^DD(682.132,.01,21,2,0)="one title to be sent in the mail message.  For example, if"
^DD(682.132,.01,21,3,0)="a prediction pattern is changed, then all titles with that"
^DD(682.132,.01,21,4,0)="particular prediction pattern will appear on the mail message."
^DD(682.132,.01,"DT")="2930506"
^DD(682.132,"B","MULTIPLE TITLES",.01)=""
^DD(682.132,"GL",0,1,.01)=""
^DD(682.132,"IX",.01)=""
^DD(682.135,0)="EXPLANATION SUB-FIELD^^.01^1"
^DD(682.135,0,"DT")="2930430"
^DD(682.135,0,"NM","EXPLANATION")=""
^DD(682.135,0,"UP")="682.1"
^DD(682.135,.01,0)="EXPLANATION^W^^0;1^Q"
^DD(682.135,.01,21,0)="^^2^2^2940523^^"
^DD(682.135,.01,21,1,0)="Give an explanation about why a local serial title transaction"
^DD(682.135,.01,21,2,0)="was rejected by the National Librarians."
^DD(682.135,.01,"DT")="2930430"
^DD(682.135,"B","EXPLANATION",.01)=""
^DD(682.135,"GL",0,1,.01)=""
^DD(682.138,0)="DATA EDITED SUB-FIELD^^.01^1"
^DD(682.138,0,"DT")="2940902"
^DD(682.138,0,"NM","DATA EDITED")=""
^DD(682.138,0,"UP")="682.1"
^DD(682.138,.01,0)="DATA EDITED^W^^0;1^Q"
^DD(682.138,.01,21,0)="^^2^2^2940902^"
^DD(682.138,.01,21,1,0)="This is the data that was edited for a 'UTL' transaction."
^DD(682.138,.01,21,2,0)="This will be used for the 'Any TAF Changes' report."
^DD(682.138,.01,"DT")="2940902"
^DD(682.138,"B","DATA EDITED",.01)=""
^DD(682.138,"GL",0,1,.01)=""
^DD(690,0)="FIELD^^18^19"
^DD(690,0,"DDA")="N"
^DD(690,0,"DT")="2920709"
^DD(690,0,"IX","AC",690,.01)=""
^DD(690,0,"IX","B",690,.01)=""
^DD(690,0,"NM","MEDICAL PATIENT")=""
^DD(690,0,"PT",691,1)=""
^DD(690,0,"PT",691.1,1)=""
^DD(690,0,"PT",691.5,1)=""
^DD(690,0,"PT",691.6,1)=""
^DD(690,0,"PT",691.7,1)=""
^DD(690,0,"PT",691.8,1)=""
^DD(690,0,"PT",694,1)=""
^DD(690,0,"PT",694.5,1)=""
^DD(690,0,"PT",698,1)=""
^DD(690,0,"PT",698.1,1)=""
^DD(690,0,"PT",698.2,1)=""
^DD(690,0,"PT",698.3,1)=""
^DD(690,0,"PT",699,.02)=""
^DD(690,0,"PT",699.5,.02)=""
^DD(690,0,"PT",700,1)=""
^DD(690,0,"PT",701,1)=""
^DD(690,0,"VR")="2.3"
^DD(690,0,"VRPK")="MEDICINE"
^DD(690,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(690,.01,1,0)="^.1^^-1"
^DD(690,.01,1,1,0)="690^B"
^DD(690,.01,1,1,1)="S ^MCAR(690,""B"",$E(X,1,30),DA)="""""
^DD(690,.01,1,1,2)="K ^MCAR(690,""B"",$E(X,1,30),DA)"
^DD(690,.01,1,2,0)="690^AC^MUMPS"
^DD(690,.01,1,2,1)="I '$D(^MCAR(690,""AC"")) D RBLD^MCARPROC"
^DD(690,.01,1,2,2)="Q"
^DD(690,.01,1,2,"%D",0)="^^4^4^2920420^^^"
^DD(690,.01,1,2,"%D",1,0)="This cross-reference permits access to medical procedures for a patient"
^DD(690,.01,1,2,"%D",2,0)="in date order, from most recent to least recent.  It is also triggered"
^DD(690,.01,1,2,"%D",3,0)="by the DATE/TIME and MEDICAL PATIENT fields in the various procedure"
^DD(690,.01,1,2,"%D",4,0)="files (#691-#701)."
^DD(690,.01,3)="Please Enter Medical Patient's Name. This File is Cross-referenced whenever a procedure is selected for a patient."
^DD(690,.01,4)=""
^DD(690,.01,10)=""
^DD(690,.01,21,0)="^^3^3^2921116^^^^"
^DD(690,.01,21,1,0)="This field identifies the medical patient's name"
^DD(690,.01,21,2,0)="followed by his/her first name followed by a space and his/her"
^DD(690,.01,21,3,0)="middle initial and a period."
^DD(690,.01,23,0)="^^1^1^2921116^^^^"
^DD(690,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(690,.01,"DT")="2920716"
^DD(690,1,0)="LIVER BIOPSY^S^Y:YES;N:NO;^GI;1^Q"
^DD(690,1,3)="Enter Y for yes or N for no if a liver biopsy has been done."
^DD(690,1,21,0)="^^1^1^2890922^^^^"
^DD(690,1,21,1,0)="This field identifies if a liver biopsy has been done."
^DD(690,1,"DT")="2880725"
^DD(690,2,0)="ALLERGIES^CJ8^^ ; ^X ^DD(690,2,9.3) S X=$S('$D(^DIC(57,+$P(Y(690,2,202),U,1),0)):"""",1:$P(^(0),U,1)) S D0=Y(690,2,80) S D1=Y(690,2,181)"
^DD(690,2,9)="^"
^DD(690,2,9.01)="2.57^.01;690^.01"
^DD(690,2,9.1)=".01:2:57"
^DD(690,2,9.2)="S Y(690,2,80)=$S($D(D0):D0,1:""""),Y(690,2,1)=$S($D(^MCAR(690,D0,0)):^(0),1:""""),D0=$P(Y(690,2,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(690,2,180)=$S($D(D0):D0,1:"""")"
^DD(690,2,9.3)="X ^DD(690,2,9.2) S Y(690,2,181)=$S($D(D1):D1,1:"""") S X=2 K DIC S Y=-1,DIC=""^DPT(D0,""""PA"""","",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y S Y(690,2,202)=$S($D(^DPT(D0,""PA"",D1,0)):^(0),1:"""")"
^DD(690,2,21,0)="^^1^1^2890915^"
^DD(690,2,21,1,0)="This field identifies if the patient has allergies."
^DD(690,3,0)="HISTORY OF BLEEDING DISORDER^S^Y:YES;N:NO;^GI;3^Q"
^DD(690,3,3)="Enter Y for yes or N for no if patient has a history of bleeding disorder."
^DD(690,3,21,0)="^^2^2^2890915^^"
^DD(690,3,21,1,0)="This field identifies if the patient has a history of bleeding disorder."
^DD(690,3,"DT")="2880725"
^DD(690,4,0)="VALVULAR HEART DISEASE^S^Y:YES;N:NO;^GI;4^Q"
^DD(690,4,3)="Enter Y for yes or N for no if the patient has a valvular heart disease."
^DD(690,4,21,0)="^^2^2^2890915^"
^DD(690,4,21,1,0)="This field identifies if the patient has a valvular heart disease."
^DD(690,4,"DT")="2880725"
^DD(690,5,0)="GLAUCOMA^S^Y:YES;N:NO;^GI;5^Q"
^DD(690,5,3)="Enter Y for yes or N for no if patient has glaucoma."
^DD(690,5,21,0)="^^1^1^2890915^"
^DD(690,5,21,1,0)="This field identifies if the patient has glaucoma."
^DD(690,5,"DT")="2880725"
^DD(690,6,0)="HISTORY COMMENTS^F^^GI;6^K:$L(X)>50!($L(X)<1) X"
^DD(690,6,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(690,6,21,0)="1^^1^1^2890915^^"
^DD(690,6,21,1,0)="This field identifies a free text field.  Enter any pertinent history comments."
^DD(690,6,"DT")="2880725"
^DD(690,7,0)="PACING INDICATION^690.07PA^^P;0"
^DD(690,7,12)="CHOOSE PACING INDICATION ONLY"
^DD(690,7,12.1)="S DIC(""S"")=""I $D(^MCAR(694.1,""""C"""",""""PM"""",+Y))"""
^DD(690,7,21,0)="^^1^1^2920323^^"
^DD(690,7,21,1,0)="This field defines the medical rationale for electronic cardiac regulation."
^DD(690,8,0)="RISK FACTOR (PACE)^690.08PA^^P1;0"
^DD(690,8,21,0)="^^2^2^2910315^^"
^DD(690,8,21,1,0)="This field indicates the conditions for which electronic cardiac "
^DD(690,8,21,2,0)="regulation is a hazard for this patient."
^DD(690,9,0)="PSC STATUS^S^1:EAST PSC FOLLOW-UP;2:ARTIFICIAL;3:DEAD;4:REGISTRY ONLY;5:EXPLANT TEST ONLY;6:EXPLANTED,NO REPLACEMENT;7:WEST PSC FOLLOW-UP;8:LOST TO FOLLOW-UP;^P2;1^Q"
^DD(690,9,3)="Please enter Pacemaker Surveillence Center status code."
^DD(690,9,21,0)="^^1^1^2900119^"
^DD(690,9,21,1,0)="This field indicates the Pacemaker Surveillance Center Status."
^DD(690,9,"DT")="2890207"
^DD(690,10,0)="INDICATION FOR FILE CLOSURE^S^1:DEATH;2:LOST TO FOLLOW-UP;3:PACEMAKER REMOVAL;4:DISCHARGE FOR ANOTHER REASON;^P3;1^Q"
^DD(690,10,3)="Please enter code for reason file is to be closed."
^DD(690,10,21,0)="1^^1^1^2890928^"
^DD(690,10,21,1,0)="This field identifies the reason for the file to be closed."
^DD(690,10,"DT")="2890118"
^DD(690,11,0)="CAUSE OF DEATH^S^1:RELATED TO PACEMAKER;2:RELATED TO ELECTRODE;3:CARDIAC-UNRELATED TO PACEMAKER;4:NON-CARDIAC-UNRELATED TO PACEMAKER;5:CAUSE UNKNOWN;^P3;2^Q"
^DD(690,11,3)="Please enter code for cause of death."
^DD(690,11,21,0)="^^1^1^2890926^^"
^DD(690,11,21,1,0)="This field identifies the cause of death."
^DD(690,11,"DT")="2890118"
^DD(690,12,0)="SUDDENNESS OF DEATH^S^1:SUDDEN-WITHIN ONE HOUR OF SYMPTOMS;2:NON-SUDDEN;3:UNKNOWN;^P3;3^Q"
^DD(690,12,3)="Please enter code for reason of sudden death."
^DD(690,12,21,0)="^^1^1^2890926^"
^DD(690,12,21,1,0)="This field identifies the reason for the sudden death."
^DD(690,12,"DT")="2931230"
^DD(690,13,0)="DATE OF FILE CLOSURE^D^^P3;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(690,13,3)="Please enter date file closed."
^DD(690,13,21,0)="^^1^1^2890928^^^"
^DD(690,13,21,1,0)="This field identifies the date when the file is closed."
^DD(690,13,"DT")="2890118"
^DD(690,14,0)="DISCHARGE (PACEMAKER) REASON^F^^P3;5^K:$L(X)>25!($L(X)<1) X"
^DD(690,14,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(690,14,21,0)="1^^1^1^2910408^"
^DD(690,14,21,1,0)="This field identifies the rationale for the release of the patient."
^DD(690,14,"DT")="2890118"
^DD(690,15,0)="TRANSMITTED PACEMAKER REPORTS^690.015DA^^P4;0"
^DD(690,15,21,0)="^^1^1^2900119^"
^DD(690,15,21,1,0)="This field contains the date of each report."
^DD(690,16,0)="DATE OF INITIAL IMPLANT^D^^P3;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(690,16,3)="ENTER THE DATE THAT THE PATIENT FIRST RECEIVED AN IMPLANT"
^DD(690,16,21,0)="^^1^1^2890928^"
^DD(690,16,21,1,0)="This field identifies the date of implant."
^DD(690,16,"DT")="2890524"
^DD(690,17,0)="TELEPHONE FOLLOWUP PROVIDED BY^S^E:VA EASTERN PACEMAKER SURVEILLANCE CENTER;W:VA WESTERN PACEMAKER SURVEILLANCE CENTER;L:LOCAL VAMC;^P2;2^Q"
^DD(690,17,3)="Enter code for location of followup visit."
^DD(690,17,21,0)="^^1^1^2890928^"
^DD(690,17,21,1,0)="This field identifies the location for a follow-up visit."
^DD(690,17,"DT")="2890605"
^DD(690,18,0)="REASON FOR FILE CLOSURE^F^^P3;7^K:$L(X)>50!($L(X)<1) X"
^DD(690,18,3)="Answer must be 1-50 characters in length."
^DD(690,18,21,0)="2^^1^1^2890928^"
^DD(690,18,21,1,0)="This field identifies an extended explanation for the file to be closed."
^DD(690,18,"DT")="2890629"
^DD(690,"B","ALLERGIES",2)=""
^DD(690,"B","CAUSE OF DEATH",11)=""
^DD(690,"B","DATE OF FILE CLOSURE",13)=""
^DD(690,"B","DATE OF INITIAL IMPLANT",16)=""
^DD(690,"B","DISCHARGE (PACEMAKER) REASON",14)=""
^DD(690,"B","GLAUCOMA",5)=""
^DD(690,"B","HISTORY COMMENTS",6)=""
^DD(690,"B","HISTORY OF BLEEDING DISORDER",3)=""
^DD(690,"B","INDICATION FOR FILE CLOSURE",10)=""
^DD(690,"B","LIVER BIOPSY",1)=""
^DD(690,"B","NAME",.01)=""
^DD(690,"B","PACING INDICATION",7)=""
^DD(690,"B","PSC STATUS",9)=""
^DD(690,"B","REASON FOR FILE CLOSURE",18)=""
^DD(690,"B","RISK FACTOR (PACE)",8)=""
^DD(690,"B","SUDDENNESS OF DEATH",12)=""
^DD(690,"B","TELEPHONE FOLLOWUP PROVIDED BY",17)=""
^DD(690,"B","TRANSMITTED PACEMAKER REPORTS",15)=""
^DD(690,"B","VALVULAR HEART DISEASE",4)=""
^DD(690,"GL",0,1,.01)=""
^DD(690,"GL","GI",1,1)=""
^DD(690,"GL","GI",3,3)=""
^DD(690,"GL","GI",4,4)=""
^DD(690,"GL","GI",5,5)=""
^DD(690,"GL","GI",6,6)=""
^DD(690,"GL","P",0,7)=""
^DD(690,"GL","P1",0,8)=""
^DD(690,"GL","P2",1,9)=""
^DD(690,"GL","P2",2,17)=""
^DD(690,"GL","P3",1,10)=""
^DD(690,"GL","P3",2,11)=""
^DD(690,"GL","P3",3,12)=""
^DD(690,"GL","P3",4,13)=""
^DD(690,"GL","P3",5,14)=""
^DD(690,"GL","P3",6,16)=""
^DD(690,"GL","P3",7,18)=""
^DD(690,"GL","P4",0,15)=""
^DD(690,"IX",.01)=""
^DD(690,"RQ",.01)=""
^DD(690,"SB",690.015,15)=""
^DD(690,"SB",690.07,7)=""
^DD(690,"SB",690.08,8)=""
^DD(690.015,0)="TRANSMITTED PACEMAKER REPORTS SUB-FIELD^^.01^1"
^DD(690.015,0,"IX","B",690.015,.01)=""
^DD(690.015,0,"NM","TRANSMITTED PACEMAKER REPORTS")=""
^DD(690.015,0,"UP")="690"
^DD(690.015,.01,0)="DATE REPORT TRANSMITTED^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(690.015,.01,1,0)="^.1"
^DD(690.015,.01,1,1,0)="690.015^B"
^DD(690.015,.01,1,1,1)="S ^MCAR(690,DA(1),""P4"",""B"",$E(X,1,30),DA)="""""
^DD(690.015,.01,1,1,2)="K ^MCAR(690,DA(1),""P4"",""B"",$E(X,1,30),DA)"
^DD(690.015,.01,3)="Enter date and time report transmitted."
^DD(690.015,.01,21,0)="^^2^2^2890629^"
^DD(690.015,.01,21,1,0)="This field stores the date (or date/time) of reports transmitted to national"
^DD(690.015,.01,21,2,0)="pacemaker center.  It is set from the routine MCARPCS4."
^DD(690.015,.01,"DT")="2890524"
^DD(690.015,"B","DATE REPORT TRANSMITTED",.01)=""
^DD(690.015,"GL",0,1,.01)=""
^DD(690.015,"IX",.01)=""
^DD(690.07,0)="PACING INDICATION SUB-FIELD^^.01^1"
^DD(690.07,0,"DT")="2920709"
^DD(690.07,0,"IX","B",690.07,.01)=""
^DD(690.07,0,"NM","PACING INDICATION")=""
^DD(690.07,0,"UP")="690"
^DD(690.07,.01,0)="PACING INDICATION^MP694.1'^MCAR(694.1,^0;1^Q"
^DD(690.07,.01,1,0)="^.1"
^DD(690.07,.01,1,1,0)="690.07^B"
^DD(690.07,.01,1,1,1)="S ^MCAR(690,DA(1),""P"",""B"",$E(X,1,30),DA)="""""
^DD(690.07,.01,1,1,2)="K ^MCAR(690,DA(1),""P"",""B"",$E(X,1,30),DA)"
^DD(690.07,.01,3)="Enter rationale for electronic cardiac regulation."
^DD(690.07,.01,12)="CHOOSE PACING INDICATION CODES ONLY"
^DD(690.07,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(694.1,""""C"""",""""PM"""",+Y))"""
^DD(690.07,.01,21,0)="^^1^1^2920323^"
^DD(690.07,.01,21,1,0)="This field defines the medical rationale for electronic cardiac regulation."
^DD(690.07,.01,"DT")="2890228"
^DD(690.07,"B","PACING INDICATION",.01)=""
^DD(690.07,"GL",0,1,.01)=""
^DD(690.07,"IX",.01)=""
^DD(690.08,0)="RISK FACTOR (PACE) SUB-FIELD^^1^2"
^DD(690.08,0,"IX","B",690.08,.01)=""
^DD(690.08,0,"NM","RISK FACTOR (PACE)")=""
^DD(690.08,0,"UP")="690"
^DD(690.08,.01,0)="RISK FACTOR (PACE)^MP695.4'^MCAR(695.4,^0;1^Q"
^DD(690.08,.01,1,0)="^.1"
^DD(690.08,.01,1,1,0)="690.08^B"
^DD(690.08,.01,1,1,1)="S ^MCAR(690,DA(1),""P1"",""B"",$E(X,1,30),DA)="""""
^DD(690.08,.01,1,1,2)="K ^MCAR(690,DA(1),""P1"",""B"",$E(X,1,30),DA)"
^DD(690.08,.01,3)="Enter conditions which make electronic cardiac regulation a particular hazard for this patient."
^DD(690.08,.01,21,0)="^^2^2^2910315^^"
^DD(690.08,.01,21,1,0)="This field defines the conditions which make electronic cardiac"
^DD(690.08,.01,21,2,0)="regulation a particular hazard for this patient."
^DD(690.08,.01,"DT")="2890112"
^DD(690.08,1,0)="DATE RISK FACTOR REPORTED^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(690.08,1,3)="Please enter date that risk factor is reported."
^DD(690.08,1,21,0)="^^1^1^2900119^"
^DD(690.08,1,21,1,0)="This 'date format' field documents the realization of a hazard."
^DD(690.08,1,"DT")="2890113"
^DD(690.08,"B","DATE RISK FACTOR REPORTED",1)=""
^DD(690.08,"B","RISK FACTOR (PACE)",.01)=""
^DD(690.08,"GL",0,1,.01)=""
^DD(690.08,"GL",0,2,1)=""
^DD(690.08,"IX",.01)=""
^DD(690.1,0)="FIELD^^13^10"
^DD(690.1,0,"DT")="2950425"
^DD(690.1,0,"IX","B",690.1,.01)=""
^DD(690.1,0,"NM","MEDICINE PACKAGE PARAMETERS")=""
^DD(690.1,0,"VR")="2.3"
^DD(690.1,0,"VRPK")="MEDICINE"
^DD(690.1,.01,0)="ONE^RNJ1,0I^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(690.1,.01,1,0)="^.1"
^DD(690.1,.01,1,1,0)="690.1^B"
^DD(690.1,.01,1,1,1)="S ^MCAR(690.1,""B"",$E(X,1,30),DA)="""""
^DD(690.1,.01,1,1,2)="K ^MCAR(690.1,""B"",$E(X,1,30),DA)"
^DD(690.1,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(690.1,.01,21,0)="^^1^1^2920110^"
^DD(690.1,.01,21,1,0)="This field identifies a dummy field which will contain the number one."
^DD(690.1,.01,"DT")="2920110"
^DD(690.1,1,0)="MEDICINE-PCC LINK TURNED ON?^S^Y:YES;^0;2^Q"
^DD(690.1,1,3)="Enter 'Y' to turn on the Medicine-PCC Link"
^DD(690.1,1,21,0)="^^3^3^2930108^^"
^DD(690.1,1,21,1,0)="This field is used by the Medicine package software to indicate whether"
^DD(690.1,1,21,2,0)="a background task should be queued to update PCC software for use in"
^DD(690.1,1,21,3,0)="QUERYMAN data searches."
^DD(690.1,1,"DT")="2920110"
^DD(690.1,2,0)="OE/RR HOOKS TURNED ON?^S^Y:YES;^0;3^Q"
^DD(690.1,2,3)="Enter 'Y' to turn on the Medicine Package Order Entry/Results Reporting Links."
^DD(690.1,2,21,0)="^^2^2^2920729^^"
^DD(690.1,2,21,1,0)="This field is used by the Medicine Package Software to determine whether"
^DD(690.1,2,21,2,0)="to call OE/RR."
^DD(690.1,2,"DT")="2920110"
^DD(690.1,3,0)="IMAGING TURNED ON?^S^Y:YES;^0;4^Q"
^DD(690.1,3,3)="Enter 'YES' to activate the hooks for the DHCP IMAGING."
^DD(690.1,3,21,0)="^^2^2^2920110^"
^DD(690.1,3,21,1,0)="This field is used by the Medicine Package software to determine whether"
^DD(690.1,3,21,2,0)="the DHCP Imaging module is turned on."
^DD(690.1,3,"DT")="2920110"
^DD(690.1,4,0)="RELEASE NOT VERIFIED^S^Y:YES;^0;5^Q"
^DD(690.1,4,21,0)="^^2^2^2950510^"
^DD(690.1,4,21,1,0)="This field is used to control the ability for key providers to release"
^DD(690.1,4,21,2,0)="medicine procedure records without applying an electronic signature."
^DD(690.1,4,"DT")="2930108"
^DD(690.1,5,0)="TASK NUMBER^NJ20,5^^0;6^K:+X'=X!(X>99999999999999)!(X<1)!(X?.E1"".""6N.N) X"
^DD(690.1,5,3)="Type a Number between 1 and 99999999999999, 5 Decimal Digits"
^DD(690.1,5,21,0)="^^2^2^2950510^"
^DD(690.1,5,21,1,0)="This field stores the task number set to transmit the medicine procedure"
^DD(690.1,5,21,2,0)="file sizes to the development mail group."
^DD(690.1,5,"DT")="2931109"
^DD(690.1,6,0)="WORKLOAD REPORTING^S^Y:YES;N:NO;^0;7^Q"
^DD(690.1,6,3)="Turning this field on will automate reports to specified Mail groups and print devices."
^DD(690.1,6,21,0)="^^2^2^2950510^"
^DD(690.1,6,21,1,0)="This field is used to toggle on and off the workload reporting"
^DD(690.1,6,21,2,0)="functionality."
^DD(690.1,6,"DT")="2950425"
^DD(690.1,7,0)="WORKLOAD MAIL GROUP^690.17P^^1;0"
^DD(690.1,7,21,0)="^^2^2^2950510^"
^DD(690.1,7,21,1,0)="This multiple is used to stor the name of mail groups which will receive"
^DD(690.1,7,21,2,0)="workload mail messages."
^DD(690.1,8,0)="WORKLOAD DEVICE^690.18P^^2;0"
^DD(690.1,8,21,0)="^^2^2^2950510^"
^DD(690.1,8,21,1,0)="This multiple is used to specify print devices to receive workload"
^DD(690.1,8,21,2,0)="reporting mail messages."
^DD(690.1,13,0)="NEW PERSON^F^^IN;4^K:$L(X)>6!($L(X)<1) X"
^DD(690.1,13,3)="Answer must be 1-6 characters in length."
^DD(690.1,13,21,0)="^^1^1^2950510^"
^DD(690.1,13,21,1,0)="This field identifies a user of the package."
^DD(690.1,13,"DT")="2931208"
^DD(690.1,"B","IMAGING TURNED ON?",3)=""
^DD(690.1,"B","MEDICINE-PCC LINK TURNED ON?",1)=""
^DD(690.1,"B","NEW PERSON",13)=""
^DD(690.1,"B","OE/RR HOOKS TURNED ON?",2)=""
^DD(690.1,"B","ONE",.01)=""
^DD(690.1,"B","RELEASE NOT VERIFIED",4)=""
^DD(690.1,"B","TASK NUMBER",5)=""
^DD(690.1,"B","WORKLOAD DEVICE",8)=""
^DD(690.1,"B","WORKLOAD MAIL GROUP",7)=""
^DD(690.1,"B","WORKLOAD REPORTING",6)=""
^DD(690.1,"GL",0,1,.01)=""
^DD(690.1,"GL",0,2,1)=""
^DD(690.1,"GL",0,3,2)=""
^DD(690.1,"GL",0,4,3)=""
^DD(690.1,"GL",0,5,4)=""
^DD(690.1,"GL",0,6,5)=""
^DD(690.1,"GL",0,7,6)=""
^DD(690.1,"GL",1,0,7)=""
^DD(690.1,"GL",2,0,8)=""
^DD(690.1,"GL","IN",4,13)=""
^DD(690.1,"IX",.01)=""
^DD(690.1,"RQ",.01)=""
^DD(690.1,"SB",690.17,7)=""
^DD(690.1,"SB",690.18,8)=""
^DD(690.17,0)="WORKLOAD MAIL GROUP SUB-FIELD^^.01^1"
^DD(690.17,0,"DT")="2950425"
^DD(690.17,0,"IX","B",690.17,.01)=""
^DD(690.17,0,"NM","WORKLOAD MAIL GROUP")=""
^DD(690.17,0,"UP")="690.1"
^DD(690.17,.01,0)="WORKLOAD MAIL GROUP^MP3.8'^XMB(3.8,^0;1^Q"
^DD(690.17,.01,1,0)="^.1"
^DD(690.17,.01,1,1,0)="690.17^B"
^DD(690.17,.01,1,1,1)="S ^MCAR(690.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(690.17,.01,1,1,2)="K ^MCAR(690.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(690.17,.01,3)="Members of this mail group will receive reports of work"
^DD(690.17,.01,21,0)="^^1^1^2950510^"
^DD(690.17,.01,21,1,0)="This field references the mail group file."
^DD(690.17,.01,"DT")="2950425"
^DD(690.17,"B","WORKLOAD MAIL GROUP",.01)=""
^DD(690.17,"GL",0,1,.01)=""
^DD(690.17,"IX",.01)=""
^DD(690.18,0)="WORKLOAD DEVICE SUB-FIELD^^.01^1"
^DD(690.18,0,"DT")="2950425"
^DD(690.18,0,"IX","B",690.18,.01)=""
^DD(690.18,0,"NM","WORKLOAD DEVICE")=""
^DD(690.18,0,"UP")="690.1"
^DD(690.18,.01,0)="WORKLOAD DEVICE^MP3.5'^%ZIS(1,^0;1^Q"
^DD(690.18,.01,1,0)="^.1"
^DD(690.18,.01,1,1,0)="690.18^B"
^DD(690.18,.01,1,1,1)="S ^MCAR(690.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(690.18,.01,1,1,2)="K ^MCAR(690.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(690.18,.01,3)="Print devices which will recieve reports when Coded procedures are signed."
^DD(690.18,.01,21,0)="^^1^1^2950510^"
^DD(690.18,.01,21,1,0)="This field references the device file."
^DD(690.18,.01,"DT")="2950425"
^DD(690.18,"B","WORKLOAD DEVICE",.01)=""
^DD(690.18,"GL",0,1,.01)=""
^DD(690.18,"IX",.01)=""
^DD(690.2,0)="FIELD^^5^6"
^DD(690.2,0,"DDA")="N"
^DD(690.2,0,"DT")="2960229"
^DD(690.2,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(690.2,0,"IX","B",690.2,.01)=""
^DD(690.2,0,"IX","C",690.2,1)=""
^DD(690.2,0,"IX","D",690.24,.01)=""
^DD(690.2,0,"NM","MEDICINE VIEW")=""
^DD(690.2,0,"VR")="2.3"
^DD(690.2,0,"VRPK")="MC"
^DD(690.2,.01,0)="PRINT VIEW TEMPLATE NAME^RFX^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(690.2,.01,1,0)="^.1"
^DD(690.2,.01,1,1,0)="690.2^B"
^DD(690.2,.01,1,1,1)="S ^MCAR(690.2,""B"",$E(X,1,60),DA)="""""
^DD(690.2,.01,1,1,2)="K ^MCAR(690.2,""B"",$E(X,1,60),DA)"
^DD(690.2,.01,3)="Answer must be 1-20 characters in length."
^DD(690.2,.01,21,0)="^^1^1^2940426^"
^DD(690.2,.01,21,1,0)="The Name of the print template name."
^DD(690.2,.01,"DT")="2931123"
^DD(690.2,1,0)="PRIMARY FILE^*P1'^DIC(^0;2^S DIC(""S"")=""I X'<690,X<705"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(690.2,1,1,0)="^.1"
^DD(690.2,1,1,1,0)="690.2^C"
^DD(690.2,1,1,1,1)="S ^MCAR(690.2,""C"",$E(X,1,30),DA)="""""
^DD(690.2,1,1,1,2)="K ^MCAR(690.2,""C"",$E(X,1,30),DA)"
^DD(690.2,1,1,1,"%D",0)="^^1^1^2930902^"
^DD(690.2,1,1,1,"%D",1,0)="This allow lookups on file number"
^DD(690.2,1,1,1,"DT")="2930902"
^DD(690.2,1,3)="Only the FileMan FILE NUMBER will be accepted."
^DD(690.2,1,12)="Only Medicine files may be selected."
^DD(690.2,1,12.1)="S DIC(""S"")=""I X'<690,X<705"""
^DD(690.2,1,21,0)="^^2^2^2940623^"
^DD(690.2,1,21,1,0)="This is the procedure file that the print template uses as the primary"
^DD(690.2,1,21,2,0)="file."
^DD(690.2,1,"DT")="2930902"
^DD(690.2,2,0)="FIELD^690.22I^^1;0"
^DD(690.2,3,0)="SUB-FILE^690.23^^2;0"
^DD(690.2,4,0)="PROCEDURE^690.24P^^3;0"
^DD(690.2,5,0)="Type^S^F:Full;B:Brief;C:Custom;^0;3^Q"
^DD(690.2,5,"DT")="2940620"
^DD(690.2,"B","FIELD",2)=""
^DD(690.2,"B","PRIMARY FILE",1)=""
^DD(690.2,"B","PRINT VIEW TEMPLATE NAME",.01)=""
^DD(690.2,"B","PROCEDURE",4)=""
^DD(690.2,"B","SUB-FILE",3)=""
^DD(690.2,"B","Type",5)=""
^DD(690.2,"GL",0,1,.01)=""
^DD(690.2,"GL",0,2,1)=""
^DD(690.2,"GL",0,3,5)=""
^DD(690.2,"GL",1,0,2)=""
^DD(690.2,"GL",2,0,3)=""
^DD(690.2,"GL",3,0,4)=""
^DD(690.2,"IX",.01)=""
^DD(690.2,"IX",1)=""
^DD(690.2,"RQ",.01)=""
^DD(690.2,"SB",690.22,2)=""
^DD(690.2,"SB",690.23,3)=""
^DD(690.2,"SB",690.24,4)=""
^DD(690.22,0)="FIELD SUB-FIELD^^8^9"
^DD(690.22,0,"DT")="2940621"
^DD(690.22,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690.5,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(690.22,0,"IX","B",690.22,.01)=""
^DD(690.22,0,"NM","FIELD")=""
^DD(690.22,0,"UP")="690.2"
^DD(690.22,.01,0)="FIELD NUMBER^MNJ16,6^^0;1^K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"".""7N.N) X"
^DD(690.22,.01,1,0)="^.1"
^DD(690.22,.01,1,1,0)="690.22^B"
^DD(690.22,.01,1,1,1)="S ^MCAR(690.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(690.22,.01,1,1,2)="K ^MCAR(690.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(690.22,.01,3)="Type a Number between .001 and 999999999, 6 Decimal Digits"
^DD(690.22,.01,21,0)="^^1^1^2921120^^"
^DD(690.22,.01,21,1,0)="This is a pointer to the field in the Data Dictionary."
^DD(690.22,.01,"DT")="2921120"
^DD(690.22,1,0)="ORDER ENTRY USAGE^SX^D:DIAGNOSIS;I:INDICATION;T:IDENTIFICATION;O:OTHER;U:UNKNOWN;S:SUMMARY;^0;2^S:X="""" X=U"
^DD(690.22,1,"DT")="2921119"
^DD(690.22,2,0)="ASTM^P690.5'^MCAR(690.5,^0;3^Q"
^DD(690.22,2,"DT")="2931012"
^DD(690.22,3,0)="VALUE TYPE^S^ST:String data;TX:Text;TS:Time stamp;CE:Code entry;^0;4^Q"
^DD(690.22,3,"DT")="2931012"
^DD(690.22,4,0)="UNITS^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(690.22,4,3)="Answer must be 1-20 characters in length."
^DD(690.22,4,"DT")="2931012"
^DD(690.22,5,0)="RANGES^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(690.22,5,3)="Answer must be 1-40 characters in length."
^DD(690.22,5,"DT")="2931012"
^DD(690.22,6,0)="SEG^F^^0;7^K:$L(X)>3!($L(X)<3) X"
^DD(690.22,6,3)="Answer must be 3 characters in length."
^DD(690.22,6,"DT")="2931026"
^DD(690.22,7,0)="PIECE^NJ3,0^^0;8^K:+X'=X!(X>254)!(X<1)!(X?.E1"".""1N.N) X"
^DD(690.22,7,3)="Type a Number between 1 and 254, 0 Decimal Digits"
^DD(690.22,7,"DT")="2931026"
^DD(690.22,8,0)="CODING METHOD^S^ICD9:ICD9 CODING;ASTM:ASTM CODING;DD:DATA DICITIONARY CODING;SUM:SUMMARY CODING;MIS:MISS;INFO:PROGRAMMERS ONLY;OBR:ADDTION TO OBR;IMA:IMAGE;^0;9^Q"
^DD(690.22,8,3)="Enter the segment should be ex: .01|12|""ICD9"""
^DD(690.22,8,"DT")="2940621"
^DD(690.22,"B","ASTM",2)=""
^DD(690.22,"B","CODING METHOD",8)=""
^DD(690.22,"B","FIELD NUMBER",.01)=""
^DD(690.22,"B","ORDER ENTRY USAGE",1)=""
^DD(690.22,"B","PIECE",7)=""
^DD(690.22,"B","RANGES",5)=""
^DD(690.22,"B","SEG",6)=""
^DD(690.22,"B","UNITS",4)=""
^DD(690.22,"B","VALUE TYPE",3)=""
^DD(690.22,"GL",0,1,.01)=""
^DD(690.22,"GL",0,2,1)=""
^DD(690.22,"GL",0,3,2)=""
^DD(690.22,"GL",0,4,3)=""
^DD(690.22,"GL",0,5,4)=""
^DD(690.22,"GL",0,6,5)=""
^DD(690.22,"GL",0,7,6)=""
^DD(690.22,"GL",0,8,7)=""
^DD(690.22,"GL",0,9,8)=""
^DD(690.22,"IX",.01)=""
^DD(690.23,0)="SUB-FILE SUB-FIELD^^1^2"
^DD(690.23,0,"DT")="2960229"
^DD(690.23,0,"IX","B",690.23,.01)=""
^DD(690.23,0,"NM","SUB-FILE")=""
^DD(690.23,0,"UP")="690.2"
^DD(690.23,.01,0)="SUB-FILE^MNJ16,6^^0;1^K:+X'=X!(X>999999999.999)!(X<.001)!(X?.E1"".""7N.N) X"
^DD(690.23,.01,1,0)="^.1"
^DD(690.23,.01,1,1,0)="690.23^B"
^DD(690.23,.01,1,1,1)="S ^MCAR(690.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(690.23,.01,1,1,2)="K ^MCAR(690.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(690.23,.01,3)="Type a Number between .001 and 999999999.999, 6 Decimal Digits"
^DD(690.23,.01,"DT")="2921120"
^DD(690.23,1,0)="SUB-FIELD^690.231I^^1;0"
^DD(690.23,"B","SUB-FIELD",1)=""
^DD(690.23,"B","SUB-FILE",.01)=""
^DD(690.23,"GL",0,1,.01)=""
^DD(690.23,"GL",1,0,1)=""
^DD(690.23,"IX",.01)=""
^DD(690.23,"SB",690.231,1)=""
^DD(690.231,0)="SUB-FIELD SUB-FIELD^^8^9"
^DD(690.231,0,"DT")="2960229"
^DD(690.231,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690.5,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(690.231,0,"IX","B",690.231,.01)=""
^DD(690.231,0,"NM","SUB-FIELD")=""
^DD(690.231,0,"UP")="690.23"
^DD(690.231,.01,0)="SUB-FIELD^MNJ13,3^^0;1^K:+X'=X!(X>999999999.999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(690.231,.01,1,0)="^.1"
^DD(690.231,.01,1,1,0)="690.231^B"
^DD(690.231,.01,1,1,1)="S ^MCAR(690.2,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(690.231,.01,1,1,2)="K ^MCAR(690.2,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(690.231,.01,3)="Type a Number between .001 and 999999999.999, 3 Decimal Digits"
^DD(690.231,.01,"DT")="2921116"
^DD(690.231,1,0)="ORDER ENTRY USAGE^S^D:DIAGNOSIS;I:INDICATION;T:IDENTIFIER;O:OTHER;U:UNKNOWN;S:SUMMARY;^0;2^Q"
^DD(690.231,1,"DT")="2921116"
^DD(690.231,2,0)="ASTM^P690.5'^MCAR(690.5,^0;3^Q"
^DD(690.231,2,"DT")="2931012"
^DD(690.231,3,0)="VALUE TYPE^S^ST:String data;TX:Text;TS:Time stamp;CE:Coded entry;^0;4^Q"
^DD(690.231,3,"DT")="2931012"
^DD(690.231,4,0)="UNITS^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(690.231,4,3)="Answer must be 1-20 characters in length."
^DD(690.231,4,"DT")="2931012"
^DD(690.231,5,0)="RANGES^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(690.231,5,3)="Answer must be 1-40 characters in length."
^DD(690.231,5,"DT")="2931012"
^DD(690.231,6,0)="SEG^F^^0;7^K:$L(X)>3!($L(X)<3) X"
^DD(690.231,6,3)="Answer must be 3 characters in length."
^DD(690.231,6,"DT")="2931026"
^DD(690.231,7,0)="PIECE^NJ3,0^^0;8^K:+X'=X!(X>254)!(X<1)!(X?.E1"".""1N.N) X"
^DD(690.231,7,3)="Type a Number between 1 and 254, 0 Decimal Digits"
^DD(690.231,7,"DT")="2931026"
^DD(690.231,8,0)="CODING^S^ICD9:ICD9 CODING;ASTM:ASTM CODING;DD:DATA DICTIONARY CODING;SUM:SUMMARY CODING;MIS:MISS;INFO:PROGRAMMERS ONLY;OBR:ADDITION TO OBR;^0;9^Q"
^DD(690.231,8,3)="Type a Number between 1 and 254, o Decimal Digits"
^DD(690.231,8,"DT")="2931026"
^DD(690.231,"B","ASTM",2)=""
^DD(690.231,"B","CODING",8)=""
^DD(690.231,"B","ORDER ENTRY USAGE",1)=""
^DD(690.231,"B","PIECE",7)=""
^DD(690.231,"B","RANGES",5)=""
^DD(690.231,"B","SEG",6)=""
^DD(690.231,"B","SUB-FIELD",.01)=""
^DD(690.231,"B","UNITS",4)=""
^DD(690.231,"B","VALUE TYPE",3)=""
^DD(690.231,"GL",0,1,.01)=""
^DD(690.231,"GL",0,2,1)=""
^DD(690.231,"GL",0,3,2)=""
^DD(690.231,"GL",0,4,3)=""
^DD(690.231,"GL",0,5,4)=""
^DD(690.231,"GL",0,6,5)=""
^DD(690.231,"GL",0,7,6)=""
^DD(690.231,"GL",0,8,7)=""
^DD(690.231,"GL",0,9,8)=""
^DD(690.231,"IX",.01)=""
^DD(690.24,0)="PROCEDURE SUB-FIELD^^.01^1"
^DD(690.24,0,"DT")="2931018"
^DD(690.24,0,"IX","B",690.24,.01)=""
^DD(690.24,0,"NM","PROCEDURE")=""
^DD(690.24,0,"UP")="690.2"
^DD(690.24,.01,0)="PROCEDURE^MP697.2'^MCAR(697.2,^0;1^Q"
^DD(690.24,.01,1,0)="^.1"
^DD(690.24,.01,1,1,0)="690.24^B"
^DD(690.24,.01,1,1,1)="S ^MCAR(690.2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(690.24,.01,1,1,2)="K ^MCAR(690.2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(690.24,.01,1,2,0)="690.2^D"
^DD(690.24,.01,1,2,1)="S ^MCAR(690.2,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(690.24,.01,1,2,2)="K ^MCAR(690.2,""D"",$E(X,1,30),DA(1),DA)"
^DD(690.24,.01,1,2,"DT")="2931018"
^DD(690.24,.01,"DT")="2931018"
^DD(690.24,"B","PROCEDURE",.01)=""
^DD(690.24,"GL",0,1,.01)=""
^DD(690.24,"IX",.01)=""
^DD(690.5,0)="FIELD^^2^3"
^DD(690.5,0,"DDA")="N"
^DD(690.5,0,"DT")="2931015"
^DD(690.5,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(690.5,0,"ID","WRITE")="W ""   "",$P(^(0),U,3)"
^DD(690.5,0,"IX","B",690.5,.01)=""
^DD(690.5,0,"IX","C",690.5,1)=""
^DD(690.5,0,"NM","ASTM")=""
^DD(690.5,0,"PT",690.22,2)=""
^DD(690.5,0,"PT",690.231,2)=""
^DD(690.5,0,"VR")="2.3"
^DD(690.5,0,"VRPK")="MEDICINE"
^DD(690.5,.01,0)="CPT CODE^RP81'^ICPT(^0;1^Q"
^DD(690.5,.01,1,0)="^.1"
^DD(690.5,.01,1,1,0)="690.5^B"
^DD(690.5,.01,1,1,1)="S ^MCAR(690.5,""B"",$E(X,1,30),DA)="""""
^DD(690.5,.01,1,1,2)="K ^MCAR(690.5,""B"",$E(X,1,30),DA)"
^DD(690.5,.01,3)=""
^DD(690.5,.01,"DT")="2931007"
^DD(690.5,1,0)="ASTM EXTENSION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(690.5,1,1,0)="^.1"
^DD(690.5,1,1,1,0)="690.5^C"
^DD(690.5,1,1,1,1)="S ^MCAR(690.5,""C"",$E(X,1,30),DA)="""""
^DD(690.5,1,1,1,2)="K ^MCAR(690.5,""C"",$E(X,1,30),DA)"
^DD(690.5,1,1,1,"DT")="2931013"
^DD(690.5,1,3)="Please type in a number from .01 to .99 or &IMP, &REC, or &DEV"
^DD(690.5,1,"DT")="2931013"
^DD(690.5,2,0)="DESCRIPTIONS^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(690.5,2,1,0)="^.1^^0"
^DD(690.5,2,3)="Answer must be 1-50 characters in length."
^DD(690.5,2,"DT")="2931015"
^DD(690.5,"B","ASTM EXTENSION",1)=""
^DD(690.5,"B","CPT CODE",.01)=""
^DD(690.5,"B","DESCRIPTIONS",2)=""
^DD(690.5,"GL",0,1,.01)=""
^DD(690.5,"GL",0,2,1)=""
^DD(690.5,"GL",0,3,2)=""
^DD(690.5,"IX",.01)=""
^DD(690.5,"IX",1)=""
^DD(690.5,"RQ",.01)=""
^DD(690.7,0)="FIELD^^.03^3"
^DD(690.7,0,"DDA")="N"
^DD(690.7,0,"DT")="2980821"
^DD(690.7,0,"IX","B",690.7,.01)=""
^DD(690.7,0,"NM","Instrument HL7 Coding")=""
^DD(690.7,0,"VR")="2.3"
^DD(690.7,0,"VRPK")="MC"
^DD(690.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(690.7,.01,1,0)="^.1"
^DD(690.7,.01,1,1,0)="690.7^B"
^DD(690.7,.01,1,1,1)="S ^MCAR(690.7,""B"",$E(X,1,30),DA)="""""
^DD(690.7,.01,1,1,2)="K ^MCAR(690.7,""B"",$E(X,1,30),DA)"
^DD(690.7,.01,3)="Answer must be 2-30 characters in length."
^DD(690.7,.01,21,0)="^^2^2^3001002^"
^DD(690.7,.01,21,1,0)="This is the name of the clinical instrument or system.  It will be used to"
^DD(690.7,.01,21,2,0)="match against the 4th piece of the MSH record."
^DD(690.7,.01,"DT")="3001002"
^DD(690.7,.02,0)="PROCESSING ROUTINE^RF^^1;1^K:$L(X)>13!($L(X)<3) X"
^DD(690.7,.02,3)="Answer must be 3-13 characters in length."
^DD(690.7,.02,8)=""
^DD(690.7,.02,8.5)=""
^DD(690.7,.02,9)=""
^DD(690.7,.02,21,0)="^^2^2^3000218^^^"
^DD(690.7,.02,21,1,0)="This field will contain the name of the routine used to process"
^DD(690.7,.02,21,2,0)="this instrument."
^DD(690.7,.02,"DT")="3001004"
^DD(690.7,.03,0)="MAIL GROUP FOR ERRORS^P3.8^XMB(3.8,^0;2^Q"
^DD(690.7,.03,21,0)="^^2^2^3001018^"
^DD(690.7,.03,21,1,0)="This field will contain the Mail Group to be notified in the event of an"
^DD(690.7,.03,21,2,0)="error from the device."
^DD(690.7,.03,"DT")="3001018"
^DD(690.7,"B","MAIL GROUP FOR ERRORS",.03)=""
^DD(690.7,"B","NAME",.01)=""
^DD(690.7,"B","PROCESSING ROUTINE",.02)=""
^DD(690.7,"GL",0,1,.01)=""
^DD(690.7,"GL",0,2,.03)=""
^DD(690.7,"GL",1,1,.02)=""
^DD(690.7,"IX",.01)=""
^DD(690.7,"RQ",.01)=""
^DD(690.7,"RQ",.02)=""
^DD(690.97,0)="FIELD^^.06^6"
^DD(690.97,0,"DDA")="N"
^DD(690.97,0,"DT")="2960502"
^DD(690.97,0,"IX","B",690.97,.01)=""
^DD(690.97,0,"NM","MCQ POLLING")=""
^DD(690.97,0,"VR")="2.3"
^DD(690.97,0,"VRPK")="MEDICINE"
^DD(690.97,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(690.97,.01,1,0)="^.1"
^DD(690.97,.01,1,1,0)="690.97^B"
^DD(690.97,.01,1,1,1)="S ^MCAR(690.97,""B"",$E(X,1,30),DA)="""""
^DD(690.97,.01,1,1,2)="K ^MCAR(690.97,""B"",$E(X,1,30),DA)"
^DD(690.97,.01,3)=""
^DD(690.97,.01,"DT")="2960502"
^DD(690.97,.02,0)="TYPE^S^1:PAT;2:PCC;3:DEL;^0;2^Q"
^DD(690.97,.02,"DT")="2960502"
^DD(690.97,.03,0)="DA^NJ19,6^^0;3^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""7N.N) X"
^DD(690.97,.03,3)="Type a Number between 0 and 999999999999, 6 Decimal Digits"
^DD(690.97,.03,"DT")="2960502"
^DD(690.97,.04,0)="FILE^NJ19,6^^0;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""7N.N) X"
^DD(690.97,.04,3)="Type a Number between 0 and 999999999999, 6 Decimal Digits"
^DD(690.97,.04,"DT")="2960502"
^DD(690.97,.05,0)="MCARGDA^NJ19,6^^0;5^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""7N.N) X"
^DD(690.97,.05,3)="Type a Number between 0 and 999999999999, 6 Decimal Digits"
^DD(690.97,.05,"DT")="2960502"
^DD(690.97,.06,0)="MCQDEL^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(690.97,.06,3)="Answer must be 1-30 characters in length."
^DD(690.97,.06,"DT")="2960502"
^DD(690.97,"B","DA",.03)=""
^DD(690.97,"B","DATE/TIME",.01)=""
^DD(690.97,"B","FILE",.04)=""
^DD(690.97,"B","MCARGDA",.05)=""
^DD(690.97,"B","MCQDEL",.06)=""
^DD(690.97,"B","TYPE",.02)=""
^DD(690.97,"GL",0,1,.01)=""
^DD(690.97,"GL",0,2,.02)=""
^DD(690.97,"GL",0,3,.03)=""
^DD(690.97,"GL",0,4,.04)=""
^DD(690.97,"GL",0,5,.05)=""
^DD(690.97,"GL",0,6,.06)=""
^DD(690.97,"IX",.01)=""
^DD(690.97,"RQ",.01)=""
^DD(690.99,0)="FIELD^^.05^5"
^DD(690.99,0,"DDA")="N"
^DD(690.99,0,"DT")="2960417"
^DD(690.99,0,"IX","AA1",690.99,.01)=""
^DD(690.99,0,"IX","AA2",690.99,.02)=""
^DD(690.99,0,"IX","AA3",690.99,.03)=""
^DD(690.99,0,"IX","AA4",690.99,.04)=""
^DD(690.99,0,"IX","B",690.99,.01)=""
^DD(690.99,0,"NM","*NEW PERSON CONVERSION")=""
^DD(690.99,0,"VR")="2.3"
^DD(690.99,0,"VRPK")="MEDICINE"
^DD(690.99,.01,0)="IEN^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(690.99,.01,1,0)="^.1"
^DD(690.99,.01,1,1,0)="690.99^B"
^DD(690.99,.01,1,1,1)="S ^MCAR(690.99,""B"",$E(X,1,30),DA)="""""
^DD(690.99,.01,1,1,2)="K ^MCAR(690.99,""B"",$E(X,1,30),DA)"
^DD(690.99,.01,1,2,0)="690.99^AA1^MUMPS"
^DD(690.99,.01,1,2,1)="D XREF^MCNP2X(DA,X,1,""S"")"
^DD(690.99,.01,1,2,2)="D XREF^MCNP2X(DA,X,1,""K"")"
^DD(690.99,.01,1,2,"DT")="2960417"
^DD(690.99,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(690.99,.01,21,0)="^^2^2^2960417^"
^DD(690.99,.01,21,1,0)="This field contains an internal entry number in the Medicine file"
^DD(690.99,.01,21,2,0)="specified be the File Number field."
^DD(690.99,.01,"DT")="2960417"
^DD(690.99,.02,0)="SUB-IEN^NJ12,0^^0;2^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(690.99,.02,1,0)="^.1"
^DD(690.99,.02,1,1,0)="690.99^AA2^MUMPS"
^DD(690.99,.02,1,1,1)="D XREF^MCNP2X(DA,X,2,""S"")"
^DD(690.99,.02,1,1,2)="D XREF^MCNP2X(DA,X,2,""K"")"
^DD(690.99,.02,1,1,"DT")="2960417"
^DD(690.99,.02,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(690.99,.02,21,0)="^^2^2^2960417^"
^DD(690.99,.02,21,1,0)="This field contains a sub-internal entry number in the Medicine file"
^DD(690.99,.02,21,2,0)="specified be the File Number field."
^DD(690.99,.02,"DT")="2960417"
^DD(690.99,.03,0)="FIELD NUMBER^NJ16,3^^0;3^K:+X'=X!(X>999999999999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(690.99,.03,1,0)="^.1"
^DD(690.99,.03,1,1,0)="690.99^AA3^MUMPS"
^DD(690.99,.03,1,1,1)="D XREF^MCNP2X(DA,X,3,""S"")"
^DD(690.99,.03,1,1,2)="D XREF^MCNP2X(DA,X,3,""K"")"
^DD(690.99,.03,1,1,"DT")="2960417"
^DD(690.99,.03,3)="Type a Number between .001 and 999999999999, 3 Decimal Digits"
^DD(690.99,.03,21,0)="^^2^2^2960417^"
^DD(690.99,.03,21,1,0)="This field contains a field number in the Medicine file specified be the"
^DD(690.99,.03,21,2,0)="File Number field."
^DD(690.99,.03,"DT")="2960417"
^DD(690.99,.04,0)="FILE NUMBER^NJ7,3^^0;4^K:+X'=X!(X>704)!(X<690)!(X?.E1"".""4N.N) X"
^DD(690.99,.04,1,0)="^.1"
^DD(690.99,.04,1,1,0)="690.99^AA4^MUMPS"
^DD(690.99,.04,1,1,1)="D XREF^MCNP2X(DA,X,4,""S"")"
^DD(690.99,.04,1,1,2)="D XREF^MCNP2X(DA,X,4,""K"")"
^DD(690.99,.04,1,1,"DT")="2960417"
^DD(690.99,.04,3)="Type a Number between 690 and 704, 3 Decimal Digits"
^DD(690.99,.04,21,0)="^^1^1^2960417^"
^DD(690.99,.04,21,1,0)="This field contains the file number of a Medicine file."
^DD(690.99,.04,"DT")="2960417"
^DD(690.99,.05,0)="OLD PROVIDER POINTER^NJ12,0^^0;5^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(690.99,.05,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(690.99,.05,21,0)="^^2^2^2960417^"
^DD(690.99,.05,21,1,0)="This field contains the value of the pointer to the Provider file (#6)"
^DD(690.99,.05,21,2,0)="prior to it's conversion."
^DD(690.99,.05,"DT")="2960417"
^DD(690.99,"B","FIELD NUMBER",.03)=""
^DD(690.99,"B","FILE NUMBER",.04)=""
^DD(690.99,"B","IEN",.01)=""
^DD(690.99,"B","OLD PROVIDER POINTER",.05)=""
^DD(690.99,"B","SUB-IEN",.02)=""
^DD(690.99,"GL",0,1,.01)=""
^DD(690.99,"GL",0,2,.02)=""
^DD(690.99,"GL",0,3,.03)=""
^DD(690.99,"GL",0,4,.04)=""
^DD(690.99,"GL",0,5,.05)=""
^DD(690.99,"IX",.01)=""
^DD(690.99,"IX",.02)=""
^DD(690.99,"IX",.03)=""
^DD(690.99,"IX",.04)=""
^DD(690.99,"RQ",.01)=""
^DD(691,0)="FIELD^^2005^109"
^DD(691,0,"DDA")="N"
^DD(691,0,"DT")="2960604"
^DD(691,0,"ID",1)="S ZZ=+$P(^(0),""^"",2) W ""   "",$S($D(^MCAR(690,ZZ,0))#2:$P(^DPT(ZZ,0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"") K ZZ"
^DD(691,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(691,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(691,0,"IX","AC",691,1.1)=""
^DD(691,0,"IX","AD",691,1.2)=""
^DD(691,0,"IX","AE",691,1)=""
^DD(691,0,"IX","AF",691,.01)=""
^DD(691,0,"IX","AG",691,11)=""
^DD(691,0,"IX","AH",691,12)=""
^DD(691,0,"IX","AI",691,2)=""
^DD(691,0,"IX","AJ",691,17)=""
^DD(691,0,"IX","APCE",691,900)=""
^DD(691,0,"IX","B",691,.01)=""
^DD(691,0,"IX","C",691,1)=""
^DD(691,0,"IX","ES",691,1506)=""
^DD(691,0,"NM","ECHO")=""
^DD(691,0,"PT",123,11)=""
^DD(691,0,"PT",123.03,.01)=""
^DD(691,0,"VR")="2.3"
^DD(691,0,"VRPK")="MEDICINE"
^DD(691,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691,.01,1,0)="^.1"
^DD(691,.01,1,1,0)="691^B"
^DD(691,.01,1,1,1)="S ^MCAR(691,""B"",$E(X,1,30),DA)="""""
^DD(691,.01,1,1,2)="K ^MCAR(691,""B"",$E(X,1,30),DA)"
^DD(691,.01,1,2,0)="691^AF^MUMPS"
^DD(691,.01,1,2,1)="S MCARCDIE=""^MCAR(691,"" D CHGDTE1^MCARPROC"
^DD(691,.01,1,2,2)="S MCARCDIE=""^MCAR(691,"" D CHGDTE^MCARPROC"
^DD(691,.01,1,2,"%D",0)="^^3^3^2920420^^^"
^DD(691,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent echo procedure for this"
^DD(691,.01,1,2,"%D",3,0)="patient."
^DD(691,.01,3)="ENTER PATIENT NAME OR DATE AND TIME OF ECHO PROCEDURE"
^DD(691,.01,21,0)="^^1^1^2960521^^^^"
^DD(691,.01,21,1,0)="This field identifies the date and time when the echo was taken."
^DD(691,.01,23,0)="^^1^1^2960521^^^^"
^DD(691,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691,.01,"DT")="2960521"
^DD(691,.02,0)="ID^F^^.1;1^K:$L(X)>10!($L(X)<2) X"
^DD(691,.02,3)="Enter any unique identification number for this ECHO.  2-10 Characters in length.  SSN need not be entered as it is already recorded."
^DD(691,.02,21,0)="^^2^2^2861218^^^^"
^DD(691,.02,21,1,0)="Enter any site specific unique identification number for this ECHO test.  "
^DD(691,.02,21,2,0)="No need to enter the SSN.  SSN is already recorded for this ECHO."
^DD(691,.02,"DT")="2860408"
^DD(691,.03,0)="SUMMARY^RS^N:NORMAL;A:ABNORMAL;B:BORDERLINE;^.2;1^Q"
^DD(691,.03,3)=""
^DD(691,.03,21,0)="1^^1^1^2891023^^"
^DD(691,.03,21,1,0)="This field identifies the result of the echo procedure."
^DD(691,.03,23,0)="^^1^1^2921106^^^"
^DD(691,.03,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,.03,"DT")="2870813"
^DD(691,.04,0)="SYMPTOM^691.08PA^^.3;0"
^DD(691,.04,21,0)="1^^2^2^2960530^^^^"
^DD(691,.04,21,1,0)="This field identifies the medical patients symptoms listed on the"
^DD(691,.04,21,2,0)="procedure request form."
^DD(691,.05,0)="RISK FACTOR^691.09PA^^.4;0"
^DD(691,.05,21,0)="^^2^2^2891024^^^^"
^DD(691,.05,21,1,0)="This field identifies the medical patient's risk factors listed on the"
^DD(691,.05,21,2,0)="procedure request form."
^DD(691,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(691,1,1,0)="^.1"
^DD(691,1,1,1,0)="691^C"
^DD(691,1,1,1,1)="S ^MCAR(691,""C"",$E(X,1,30),DA)="""""
^DD(691,1,1,1,2)="K ^MCAR(691,""C"",$E(X,1,30),DA)"
^DD(691,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(691,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(691,1,1,2,0)="691^AE^MUMPS"
^DD(691,1,1,2,1)="S MCARCDIE=""^MCAR(691,"" D CHGPAT^MCARPROC"
^DD(691,1,1,2,2)="S MCARCDIE=""^MCAR(691,"" D KILL^MCARPROC"
^DD(691,1,1,2,"%D",0)="^^2^2^2920417^"
^DD(691,1,1,2,"%D",1,0)="This cross-reference permits access to medical procedures for a patient"
^DD(691,1,1,2,"%D",2,0)="in date order, from most recent to least recent."
^DD(691,1,3)="Enter patient name."
^DD(691,1,21,0)="^^1^1^2960507^^^^"
^DD(691,1,21,1,0)="This field identifies the medical patient's name."
^DD(691,1,23,0)="^^1^1^2960507^^^^"
^DD(691,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691,1,"DT")="2870710"
^DD(691,1.1,0)="WT LBS^NJ3X,0^^13;1^K:+X'=X!(X>500)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691,1.1,1,0)="^.1"
^DD(691,1.1,1,1,0)="691^AC^MUMPS"
^DD(691,1.1,1,1,1)="D ^MCARBSA"
^DD(691,1.1,1,1,2)="S $P(^MCAR(691,DA,13),U,3)="""" S X="""" D A^MCARBSA"
^DD(691,1.1,1,1,"%D",0)="^^3^3^2920420^^^"
^DD(691,1.1,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(691,1.1,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(691,1.1,1,1,"%D",3,0)="BODY SURFACE AREA field (#2)."
^DD(691,1.1,3)="Weight in Lbs.  Enter a number from 40 to 500."
^DD(691,1.1,21,0)="^^1^1^2891024^^^"
^DD(691,1.1,21,1,0)="This field identifies the medical patient's weight in pounds."
^DD(691,1.1,"DT")="2880210"
^DD(691,1.15,0)="SEX^CJ8^^ ; ^X ^DD(691,1.15,9.4) S X=$P($P(Y(691,1.15,202),$C(59)_$P(Y(691,1.15,201),U,2)_"":"",2),$C(59),1) S D0=Y(691,1.15,80)"
^DD(691,1.15,9)="^"
^DD(691,1.15,9.01)="2^.02;690^.01;691^1"
^DD(691,1.15,9.1)="#1:#.01:SEX"
^DD(691,1.15,9.2)="S Y(691,1.15,80)=$S($D(D0):D0,1:""""),Y(691,1.15,1)=$S($D(^MCAR(691,D0,0)):^(0),1:""""),D0=$P(Y(691,1.15,1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(691,1.15,180)=$S($D(D0):D0,1:"""")"
^DD(691,1.15,9.3)="X ^DD(691,1.15,9.2) S Y(691,1.15,101)=$S($D(^MCAR(690,D0,0)):^(0),1:""""),D0=$P(Y(691,1.15,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(691,1.15,9.4)="X ^DD(691,1.15,9.3) S Y(691,1.15,202)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""""),Y(691,1.15,201)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(691,1.15,21,0)="^^1^1^2920324^"
^DD(691,1.15,21,1,0)="This code tells the gender of the patient."
^DD(691,1.15,"DT")="2900306"
^DD(691,1.2,0)="HT IN^NJ2X,0^^13;2^K:+X'=X!(X>96)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691,1.2,1,0)="^.1"
^DD(691,1.2,1,1,0)="691^AD^MUMPS"
^DD(691,1.2,1,1,1)="D ^MCARBSA"
^DD(691,1.2,1,1,2)="S $P(^MCAR(691,DA,13),U,3)="""" S X="""" D A^MCARBSA"
^DD(691,1.2,1,1,"%D",0)="^^3^3^2920420^^^"
^DD(691,1.2,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(691,1.2,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(691,1.2,1,1,"%D",3,0)="BODY SURFACE AREA field (#2)."
^DD(691,1.2,3)="Height in inches.  Enter a number from 40 to 96."
^DD(691,1.2,21,0)="^^1^1^2891024^^"
^DD(691,1.2,21,1,0)="This field identifies the medical patient's height in inches."
^DD(691,1.2,"DT")="2880210"
^DD(691,2,0)="BODY SURFACE AREA^NJ5,2I^^13;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,2,1,0)="^.1"
^DD(691,2,1,1,0)="691^AI^MUMPS"
^DD(691,2,1,1,1)="D ^MCARLV"
^DD(691,2,1,1,2)="S $P(^MCAR(691,DA,13),U,6)="""""
^DD(691,2,1,1,"%D",0)="^^4^4^2960509^^^"
^DD(691,2,1,1,"%D",1,0)="This cross-reference computes the patient's left ventricular mass from"
^DD(691,2,1,1,"%D",2,0)="the patient's body surface area and the dimensions of the ventricular"
^DD(691,2,1,1,"%D",3,0)="septum, posterior wall, and left ventricular diastole, and inserts the"
^DD(691,2,1,1,"%D",4,0)="computed value into the LV MASS field (#32.8)."
^DD(691,2,1,1,"DT")="2900606"
^DD(691,2,3)="Type a Number between 0 and 99, 2 Decimal Digits"
^DD(691,2,9)="^"
^DD(691,2,9.01)=""
^DD(691,2,9.1)="D ^MCARBSA"
^DD(691,2,21,0)="^^2^2^2960509^^^"
^DD(691,2,21,1,0)="This field identifies the patient's BSA, computed from patient's"
^DD(691,2,21,2,0)="height and weight."
^DD(691,2,"DT")="2960509"
^DD(691,3,0)="RESTING SYSTOLIC BP^NJ3,0^^0;4^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,3,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(691,3,21,0)="^^1^1^2891024^^"
^DD(691,3,21,1,0)="This field identifies the patient's resting systolic blood pressure."
^DD(691,3,"DT")="2990125"
^DD(691,4,0)="RESTING DIASTOLIC BP^NJ3,0^^0;5^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,4,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(691,4,21,0)="^^1^1^2891024^"
^DD(691,4,21,1,0)="This field identifies the patient's resting diastolic blood pressure."
^DD(691,4,"DT")="2990125"
^DD(691,5,0)="RESTING HEART RATE^NJ3,0^^0;6^K:+X'=X!(X>150)!(X<30)!(X?.E1"".""1N.N) X"
^DD(691,5,3)="TYPE A WHOLE NUMBER BETWEEN 30 AND 150"
^DD(691,5,21,0)="^^1^1^2891024^"
^DD(691,5,21,1,0)="This field identifies the patient's resting heart rate."
^DD(691,6,0)="RHYTHM^S^1:NSR;2:A-FIB;3:OTHER;^0;7^Q"
^DD(691,6,3)="Enter code for patient ECG/EKG rhythm."
^DD(691,6,21,0)="^^1^1^2891024^"
^DD(691,6,21,1,0)="This field identifies the patient's current ECG/EKG rhythm."
^DD(691,7,0)="STUDY QUALITY^NJ1,0^^0;8^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,7,3)="TYPE 1 FOR POOR, 2 FOR FAIR, 3 FOR GOOD, AND 4 FOR EXCELLENT"
^DD(691,7,21,0)="^^1^1^2891024^"
^DD(691,7,21,1,0)="This field identifies the technical quality of the procedure."
^DD(691,7.5,0)="STUDY TYPE^691.48SA^^16;0"
^DD(691,8,0)="MED(CARDIOLOGY MEDICATION)^691.01PA^^1;0"
^DD(691,8,21,0)="^^2^2^2901213^^"
^DD(691,8,21,1,0)="This field identifies the medications listed on the medical patient's"
^DD(691,8,21,2,0)="request form."
^DD(691,9,0)="PRE-DX^691.02SA^^2;0"
^DD(691,9,21,0)="^^2^2^2891024^"
^DD(691,9,21,1,0)="This defines the medical patient's pre-diagnosis listed on the "
^DD(691,9,21,2,0)="procedure request form."
^DD(691,10,0)="COMMENT^691.03^^3;0"
^DD(691,10,21,0)="^^1^1^2891024^"
^DD(691,10,21,1,0)="This allows the user to make specific comments on a particular field."
^DD(691,11,0)="SEPTUM^NJ2,0^^4;1^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,11,1,0)="^.1^^0"
^DD(691,11,1,1,0)="691^AG^MUMPS"
^DD(691,11,1,1,1)="D ^MCARLV"
^DD(691,11,1,1,2)="S $P(^MCAR(691,DA,13),U,6)="""""
^DD(691,11,1,1,"%D",0)="^^2^2^2920420^^"
^DD(691,11,1,1,"%D",1,0)="This cross-reference performs the same action as the 'AI' cross-reference"
^DD(691,11,1,1,"%D",2,0)="of the BODY SURFACE AREA field (#2)."
^DD(691,11,1,1,"DT")="2900606"
^DD(691,11,3)="ENTER NUMBER OF MILLIMETERS 0-60"
^DD(691,11,21,0)="^^1^1^2900606^^^^"
^DD(691,11,21,1,0)="This allows the user to enter the dimensions of the ventricular septum."
^DD(691,11,23,0)="^^1^1^2921106^^^"
^DD(691,11,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,11,"DT")="2870623"
^DD(691,12,0)="POSTERIOR WALL^NJ2,0^^4;2^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,12,1,0)="^.1"
^DD(691,12,1,1,0)="691^AH^MUMPS"
^DD(691,12,1,1,1)="D ^MCARLV"
^DD(691,12,1,1,2)="S $P(^MCAR(691,DA,13),U,6)="""""
^DD(691,12,1,1,"%D",0)="^^2^2^2920420^^"
^DD(691,12,1,1,"%D",1,0)="This cross-reference performs the same action as the 'AI' cross-reference"
^DD(691,12,1,1,"%D",2,0)="of the BODY SURFACE AREA field (#2)."
^DD(691,12,1,1,"DT")="2900606"
^DD(691,12,3)="ENTER NUMBER OF MILLIMETERS 0-60"
^DD(691,12,21,0)="^^1^1^2891024^^"
^DD(691,12,21,1,0)="This allows the user to enter the dimensions of the posterior wall."
^DD(691,12,23,0)="^^1^1^2921106^^^"
^DD(691,12,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,12,"DT")="2861106"
^DD(691,13,0)="LT. ATRIUM^NJ3,0^^4;3^K:+X'=X!(X>120)!(X<10)!(X?.E1"".""1N.N) X"
^DD(691,13,3)="ENTER NUMBER OF MILLIMETERS 10-120"
^DD(691,13,21,0)="^^1^1^2891024^^"
^DD(691,13,21,1,0)="This allows the user to enter the dimensions of the left atrium."
^DD(691,13,"DT")="2861106"
^DD(691,14,0)="AORTIC ROOT^NJ3,0^^4;4^K:+X'=X!(X>100)!(X<10)!(X?.E1"".""1N.N) X"
^DD(691,14,3)="ENTER NUMBER OF MILLIMETERS 10-100"
^DD(691,14,21,0)="^^1^1^2891024^^"
^DD(691,14,21,1,0)="This allows the user to enter the dimensions of the aortic root."
^DD(691,14,"DT")="2861106"
^DD(691,15,0)="RT VENTRICLE^NJ3,0^^4;5^K:+X'=X!(X>100)!(X<5)!(X?.E1"".""1N.N) X"
^DD(691,15,3)="ENTER NUMBER OF MILLIMETERS 5-100"
^DD(691,15,21,0)="^^1^1^2891024^^"
^DD(691,15,21,1,0)="This allows the user to enter the dimensions of the right ventricle."
^DD(691,15,"DT")="2861106"
^DD(691,16,0)="ANT. RV WALL^NJ2,0^^4;6^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,16,3)="ENTER NUMBER OF MILLIMETERS 1-20"
^DD(691,16,21,0)="^^2^2^2891024^^^"
^DD(691,16,21,1,0)="This allows the user to enter the dimensions of the anterior right "
^DD(691,16,21,2,0)="ventricular wall."
^DD(691,16,"DT")="2861106"
^DD(691,17,0)="LT. VENT. DIASTOLE^NJ3,0^^4;7^K:+X'=X!(X>150)!(X<20)!(X?.E1"".""1N.N) X"
^DD(691,17,1,0)="^.1"
^DD(691,17,1,1,0)="691^AJ^MUMPS"
^DD(691,17,1,1,1)="D ^MCARLV"
^DD(691,17,1,1,2)="S $P(^MCAR(691,DA,13),U,6)="""""
^DD(691,17,1,1,"%D",0)="^^2^2^2920420^"
^DD(691,17,1,1,"%D",1,0)="This cross-reference performs the same action as the 'AJ' cross-reference"
^DD(691,17,1,1,"%D",2,0)="of the BODY SURFACE AREA field (#2)."
^DD(691,17,1,1,"DT")="2900606"
^DD(691,17,3)="ENTER NUMBER OF MILLIMETERS 20-150"
^DD(691,17,21,0)="^^2^2^2891024^^^"
^DD(691,17,21,1,0)="This allows the user to enter the internal left ventricular "
^DD(691,17,21,2,0)="diastolic dimensions."
^DD(691,17,23,0)="^^1^1^2921106^^^"
^DD(691,17,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,17,"DT")="2861106"
^DD(691,18,0)="LT. VENT. SYSTOLE^NJ3,0^^4;8^K:+X'=X!(X>150)!(X<5)!(X?.E1"".""1N.N) X"
^DD(691,18,3)="ENTER NUMBER OF MILLIMETERS 5-150"
^DD(691,18,21,0)="^^2^2^2891024^^^^"
^DD(691,18,21,1,0)="This allows the user to enter the internal left ventricular "
^DD(691,18,21,2,0)="systolic dimensions."
^DD(691,18,23,0)="^^1^1^2921106^^^"
^DD(691,18,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,18,"DT")="2861106"
^DD(691,19,0)="% FRACT. SHORTENING^CJ8,0^^ ; ^X ^DD(691,19,9.4) S X=$J(Y(691,19,8),Y(691,19,9),X) S X=$J(X,0,0)"
^DD(691,19,9)="^"
^DD(691,19,9.01)="691^18;691^17"
^DD(691,19,9.1)="$J($S(#17="""":"""",#18="""":"""",1:(#17-#18/#17*100)),0,0)"
^DD(691,19,9.2)="S Y(691,19,1)=$S($D(^MCAR(691,D0,4)):^(4),1:"""") S X=$P(Y(691,19,1),U,7)="""",Y(691,19,2)=X S X="""",Y(691,19,3)=X S X=$P(Y(691,19,1),U,8)="""",Y(691,19,4)=X S X="""""
^DD(691,19,9.3)="X ^DD(691,19,9.2) S Y(691,19,5)=X S X=1,Y(691,19,6)=X,Y(691,19,7)=X S X=$P(Y(691,19,1),U,7)-$P(Y(691,19,1),U,8),X=$S($P(Y(691,19,1),U,7):X/$P(Y(691,19,1),U,7),1:""*******"")"
^DD(691,19,9.4)="X ^DD(691,19,9.3) S X=X*100,X=$S(Y(691,19,2):Y(691,19,3),Y(691,19,4):Y(691,19,5),Y(691,19,6):X),Y(691,19,8)=X S X=0,Y(691,19,9)=X S X=0"
^DD(691,19,21,0)="^^2^2^2891024^"
^DD(691,19,21,1,0)="This field identifies the computed percent shortening fraction of the"
^DD(691,19,21,2,0)="left ventricular."
^DD(691,19,23,0)="^^1^1^2921106^^^"
^DD(691,19,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,19,"DT")="2940504"
^DD(691,20,0)="E-SEPT.^NJ3,0^^4;9^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,20,3)="ENTER NUMBER OF MILLIMETERS 1-100"
^DD(691,20,21,0)="^^2^2^2891024^"
^DD(691,20,21,1,0)="This allows the user to enter the E-point of the mitral valve to "
^DD(691,20,21,2,0)="septum dimensions."
^DD(691,20,"DT")="2861106"
^DD(691,21,0)="LV XS AREA, MIT. SYST.^NJ3,0^^5;1^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,21,.1)="LV CROSS-SECTIONAL AREA, MITRAL LEVEL"
^DD(691,21,3)="CENTIMETERS"
^DD(691,21,"DT")="2861106"
^DD(691,22,0)="LV XS AREA, PAP. MUSC. SYST.^NJ3,0^^5;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,22,.1)="LV CROSS-SECTIONAL AREA, PAPILLARY MUSCLE SYSTOLE"
^DD(691,22,3)="CENTIMETERS"
^DD(691,22,"DT")="2861106"
^DD(691,23,0)="LV XS AREA, AP. 4-CH SYST.^NJ3,0^^5;3^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,23,.1)="LV CROSS-SECTIONAL AREA, APICAL 4-CHAMBER VIEW SYSTOLE"
^DD(691,23,3)="CENTIMETERS"
^DD(691,23,"DT")="2861106"
^DD(691,24,0)="LV XS AREA, MIT. DIAST.^NJ3,0^^5;4^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,24,.1)="LV CROSS-SECTIONAL AREA, MITRAL LEVEL DIASTOLE"
^DD(691,24,3)="CENTIMETERS"
^DD(691,24,"DT")="2861106"
^DD(691,25,0)="LV XS AREA, PAP. MUSC. DIAST.^NJ3,0^^5;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,25,.1)="LV CROSS-SECTIONAL AREA, PAPILLARY MUSCLE DIASTOLE"
^DD(691,25,3)="CENTIMETERS"
^DD(691,25,"DT")="2861106"
^DD(691,26,0)="LV XS AREA, AP. 4-CH DIAST.^NJ3,0^^5;6^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691,26,.1)="LV CROSS-SECTIONAL AREA, APICAL 4-CHAMBER VIEW DIASTOLE"
^DD(691,26,3)="CENTIMETERS"
^DD(691,26,"DT")="2861106"
^DD(691,27,0)="% FAS MITRAL LEVEL^CJ8,1^^ ; ^S Y(691,27,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"""") S X=$P(Y(691,27,1),U,4)-$P(Y(691,27,1),U,1),X=$S($P(Y(691,27,1),U,4):X/$P(Y(691,27,1),U,4),1:""*******"") S X=$J(X,0,1)"
^DD(691,27,3)="TYPE A WHOLE NUMBER BETWEEN 25 AND 99"
^DD(691,27,9)="^"
^DD(691,27,9.01)="691^21;691^24"
^DD(691,27,9.1)="(#24-#21)/#24"
^DD(691,27,9.2)="S Y(691,27,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"""") S X=$P(Y(691,27,1),U,4)="""",Y(691,27,2)=X S X="""",Y(691,27,3)=X S X=$P(Y(691,27,1),U,1)="""",Y(691,27,4)=X S X="""""
^DD(691,27,9.3)="X ^DD(691,27,9.2) S Y(691,27,5)=X S X=1,Y(691,27,6)=X S X=$P(Y(691,27,1),U,4)-$P(Y(691,27,1),U,1),X=$S($P(Y(691,27,1),U,4):X/$P(Y(691,27,1),U,4),1:""*******"")"
^DD(691,27,"DT")="2870102"
^DD(691,28,0)="% FAS PAP. MUSCLE^CJ8,1^^ ; ^S Y(691,28,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"""") S X=$P(Y(691,28,1),U,5)-$P(Y(691,28,1),U,2),X=$S($P(Y(691,28,1),U,5):X/$P(Y(691,28,1),U,5),1:""*******"") S X=$J(X,0,1)"
^DD(691,28,3)="TYPE A WHOLE NUMBER BETWEEN 20 AND 99"
^DD(691,28,9)="^"
^DD(691,28,9.01)="691^22;691^25"
^DD(691,28,9.1)="(#25-#22)/#25"
^DD(691,28,9.2)="S Y(691,28,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"""") S X=$P(Y(691,28,1),U,5)="""",Y(691,28,2)=X S X="""",Y(691,28,3)=X S X=$P(Y(691,28,1),U,2)="""",Y(691,28,4)=X S X="""""
^DD(691,28,9.3)="X ^DD(691,28,9.2) S Y(691,28,5)=X S X=1,Y(691,28,6)=X,Y(691,28,7)=X S X=$P(Y(691,28,1),U,5)-$P(Y(691,28,1),U,2),X=$S($P(Y(691,28,1),U,5):X/$P(Y(691,28,1),U,5),1:""*******"")"
^DD(691,28,"DT")="2870102"
^DD(691,29,0)="% FAS AP. 4-CH VIEW^CJ8,1^^ ; ^S Y(691,29,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"""") S X=$P(Y(691,29,1),U,6)-$P(Y(691,29,1),U,3),X=$S($P(Y(691,29,1),U,6):X/$P(Y(691,29,1),U,6),1:""*******"") S X=$J(X,0,1)"
^DD(691,29,3)="TYPE A WHOLE NUMBER BETWEEN 20 AND 99"
^DD(691,29,9)="^"
^DD(691,29,9.01)="691^23;691^26"
^DD(691,29,9.1)="(#26-#23)/#26"
^DD(691,29,9.2)="S Y(691,29,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"""") S X=$P(Y(691,29,1),U,6)="""",Y(691,29,2)=X S X="""",Y(691,29,3)=X S X=$P(Y(691,29,1),U,3)="""",Y(691,29,4)=X S X="""""
^DD(691,29,9.3)="X ^DD(691,29,9.2) S Y(691,29,5)=X S X=1,Y(691,29,6)=X,Y(691,29,7)=X S X=$P(Y(691,29,1),U,6)-$P(Y(691,29,1),U,3),X=$S($P(Y(691,29,1),U,6):X/$P(Y(691,29,1),U,6),1:""*******"")"
^DD(691,29,"DT")="2870102"
^DD(691,30,0)="EDV^NJ5,1^^5;10^K:+X'=X!(X>999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(691,30,3)="ENTER NUMBER IN MILLILITERS, 1 DECIMAL PLACE .1-999"
^DD(691,30,21,0)="^^1^1^2891024^"
^DD(691,30,21,1,0)="This allows the user to enter the left ventricular end diastolic volume."
^DD(691,30,"DT")="2861107"
^DD(691,31,0)="ESV^NJ5,1^^5;11^K:+X'=X!(X>999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(691,31,3)="ENTER NUMBER OF SQUARE CENTIMETERS, 1 DECIMAL PLACE .1-999"
^DD(691,31,21,0)="^^1^1^2891024^"
^DD(691,31,21,1,0)="This allows the user to enter the left ventricular end systolic volume."
^DD(691,31,"DT")="2861107"
^DD(691,31.1,0)="ANGIOGRAPHIC CARDIAC OUTPUT^CJ9^^ ; ^X ^DD(691,31.1,9.4) S X=X*Y,X=$S(Y(691,31.1,2):Y(691,31.1,3),Y(691,31.1,5):Y(691,31.1,6),Y(691,31.1,7):Y(691,31.1,8),Y(691,31.1,9):X)"
^DD(691,31.1,9)="^"
^DD(691,31.1,9.01)="691^31;691^30;691^5"
^DD(691,31.1,9.1)="$S(#5="""":"""",#30="""":"""",#31="""":"""",1:#5*(#30-#31))"
^DD(691,31.1,9.2)="S Y(691,31.1,1)=$S($D(^MCAR(691,D0,0)):^(0),1:""""),Y(691,31.1,4)=$S($D(^(5)):^(5),1:"""") S X=$P(Y(691,31.1,1),U,6)="""",Y(691,31.1,2)=X S X="""",Y(691,31.1,3)=X"
^DD(691,31.1,9.3)="X ^DD(691,31.1,9.2) S X=$P(Y(691,31.1,4),U,10)="""",Y(691,31.1,5)=X S X="""",Y(691,31.1,6)=X S X=$P(Y(691,31.1,4),U,11)="""",Y(691,31.1,7)=X S X="""",Y(691,31.1,8)=X S X=1"
^DD(691,31.1,9.4)="X ^DD(691,31.1,9.3) S Y(691,31.1,9)=X S X=$P(Y(691,31.1,1),U,6),Y(691,31.1,10)=X S X=$P(Y(691,31.1,4),U,10)-$P(Y(691,31.1,4),U,11),Y=X,X=Y(691,31.1,10),X=X"
^DD(691,31.1,21,0)="^^4^4^2960813^"
^DD(691,31.1,21,1,0)="This field computes the Angiographic Cardiac Output from the Resting Heart"
^DD(691,31.1,21,2,0)="Rate (#5), EDV (#30), and ESV (#31)."
^DD(691,31.1,21,3,0)=" "
^DD(691,31.1,21,4,0)="The formula used is:  Heart_Rate * ( EDV - ESV )."
^DD(691,31.1,"DT")="2960813"
^DD(691,32,0)="EF^CJ8,1^^ ; ^X ^DD(691,32,9.3) S X=X*100,X=$S(Y(691,32,2):Y(691,32,3),Y(691,32,4):Y(691,32,5),Y(691,32,6):X) S X=$J(X,0,1)"
^DD(691,32,9)="^"
^DD(691,32,9.01)="691^31;691^30"
^DD(691,32,9.1)="$S('#30:"""",'#31:"""",1:(#30-#31/#30*100))"
^DD(691,32,9.2)="S Y(691,32,1)=$S($D(^MCAR(691,D0,5)):^(5),1:"""") S X='$P(Y(691,32,1),U,10),Y(691,32,2)=X S X="""",Y(691,32,3)=X S X='$P(Y(691,32,1),U,11),Y(691,32,4)=X S X="""""
^DD(691,32,9.3)="X ^DD(691,32,9.2) S Y(691,32,5)=X S X=1,Y(691,32,6)=X,Y(691,32,7)=X S X=$P(Y(691,32,1),U,10)-$P(Y(691,32,1),U,11),X=$S($P(Y(691,32,1),U,10):X/$P(Y(691,32,1),U,10),1:""*******"")"
^DD(691,32,21,0)="^^1^1^2891024^^"
^DD(691,32,21,1,0)="This defines the computed left ventricular ejection fraction."
^DD(691,32,"DT")="2861124"
^DD(691,32.1,0)="ESTIMATED EF^NJ2,0^^13;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,32.1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(691,32.1,21,0)="^^1^1^2891024^"
^DD(691,32.1,21,1,0)="This allows the user to enter the left ventricular ejection fraction."
^DD(691,32.1,"DT")="2870623"
^DD(691,32.2,0)="ESTIMATED EF DESCRIPTOR^S^N:NORMAL;I:INCREASED;MIN:MINIMALLY DEPRESSED;MOD:MODERATELY DEPRESSED;S:SEVERELY DEPRESSED;^13;5^Q"
^DD(691,32.2,3)="Enter code for estimated ejection fraction descriptor."
^DD(691,32.2,21,0)="^^2^2^2891024^"
^DD(691,32.2,21,1,0)="This allows the user to enter the estimated ejection fraction"
^DD(691,32.2,21,2,0)="descriptor."
^DD(691,32.2,"DT")="2870623"
^DD(691,32.8,0)="LV MASS^CJ8,3^^ ; ^D ^MCARLV S X=$J(X,0,3)"
^DD(691,32.8,9)="^"
^DD(691,32.8,9.01)=""
^DD(691,32.8,9.1)="D ^MCARLV"
^DD(691,33,0)="REGIONAL WALL MOTION^691.04PA^^6;0"
^DD(691,33,21,0)="^^2^2^2891024^"
^DD(691,33,21,1,0)="This allows the user to enter multiple left ventricular regional"
^DD(691,33,21,2,0)="wall abnormalities."
^DD(691,33,23,0)="^^1^1^2921106^^^"
^DD(691,33,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,34,0)="DOPPLER^691.05SA^^7;0"
^DD(691,34,21,0)="^^1^1^2891024^^"
^DD(691,34,21,1,0)="This allows the user to enter multiple doppler findings."
^DD(691,34.1,0)="AORTIC MAX VELOCITY^NJ4,2^^8;1^K:+X'=X!(X>8)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,34.1,3)="Meters/sec between 0 and 8, 2 Decimal Digits"
^DD(691,34.1,21,0)="^^1^1^2891024^"
^DD(691,34.1,21,1,0)="This allows the user to enter the calculated aortic maximum velocity."
^DD(691,34.1,"DT")="2870623"
^DD(691,34.2,0)="AORTIC MEAN VELOCITY^NJ4,2^^8;2^K:+X'=X!(X>8)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,34.2,3)="Meters/sec between 0 and 8, 2 Decimal Digits"
^DD(691,34.2,21,0)="^^1^1^2891024^"
^DD(691,34.2,21,1,0)="This allows the user to enter the calculated mean velocity."
^DD(691,34.2,"DT")="2870623"
^DD(691,34.3,0)="AORTIC INTEGRAL ^NJ3,0^^8;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,34.3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)"
^DD(691,34.3,21,0)="^^1^1^2891024^"
^DD(691,34.3,21,1,0)="This allows the user to enter the calculated aortic valve integral."
^DD(691,34.3,"DT")="2870331"
^DD(691,34.4,0)="LVOT MAX VELOCITY^NJ4,2^^8;4^K:+X'=X!(X>8)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,34.4,3)="Meters/sec between 0 and 8, 2 Decimal Digits"
^DD(691,34.4,21,0)="^^2^2^2891024^"
^DD(691,34.4,21,1,0)="This allows the user to enter the left ventricular outflow tract "
^DD(691,34.4,21,2,0)="maximum velocity."
^DD(691,34.4,"DT")="2870623"
^DD(691,34.5,0)="LVOT MEAN VELOCITY^NJ4,2^^8;5^K:+X'=X!(X>8)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,34.5,3)="Meters/sec between 0 and 8, 2 Decimal Digits"
^DD(691,34.5,21,0)="^^2^2^2891024^"
^DD(691,34.5,21,1,0)="This allows the user to enter the left ventricular outflow tract"
^DD(691,34.5,21,2,0)="mean velocity."
^DD(691,34.5,"DT")="2870623"
^DD(691,34.6,0)="LVOT INTEGRAL^NJ3,0^^8;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,34.6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm/sec)"
^DD(691,34.6,21,0)="^^2^2^2891024^"
^DD(691,34.6,21,1,0)="This allows the user to enter the left ventricular outflow tract"
^DD(691,34.6,21,2,0)="integral."
^DD(691,34.6,"DT")="2870331"
^DD(691,34.7,0)="AORTIC MAX PRESSURE GRADIENT^CJ5,1^^ ; ^X ^DD(691,34.7,9.2) S Y=X,X=Y(691,34.7,4),X=X*Y,Y=X,X=Y(691,34.7,1),X=X*Y,Y(691,34.7,5)=X S X=5,Y(691,34.7,6)=X S X=1,X=$J(Y(691,34.7,5),Y(691,34.7,6),X)"
^DD(691,34.7,9)="^"
^DD(691,34.7,9.01)="691^34.1"
^DD(691,34.7,9.02)="S X=4,Y(1)=X,Y(2)=X S X=S(""691^34.1"")/100,Y(3)=X S X=S(""691^34.1"")/100,Y=X,X=Y(3),X=X*Y,Y=X,X=Y(1),X=X*Y S Y=X"
^DD(691,34.7,9.1)="$J(4*((#34.1)*(#34.1)),5,1)"
^DD(691,34.7,9.2)="S Y(691,34.7,3)=$S($D(^MCAR(691,D0,8)):^(8),1:"""") S X=4,Y(691,34.7,1)=X,Y(691,34.7,2)=X S X=$P(Y(691,34.7,3),U,1),Y(691,34.7,4)=X S X=$P(Y(691,34.7,3),U,1)"
^DD(691,34.7,9.3)="X ^DD(691,34.7,9.2) S X=X/100,Y=X,X=Y(691,34.7,4),X=X*Y,Y=X,X=Y(691,34.7,1),X=X*Y,Y(691,34.7,5)=X S X=3,Y(691,34.7,6)=X S X=0"
^DD(691,34.7,9.4)="X ^DD(691,34.7,9.3) S X=X*Y,Y=X,X=Y(691,34.7,5),X=X*Y,X=$S(Y(691,34.7,2):Y(691,34.7,3),Y(691,34.7,4):X),Y(691,34.7,8)=X S X=0,Y(691,34.7,9)=X S X=1"
^DD(691,34.7,21,0)="^^1^1^2891024^"
^DD(691,34.7,21,1,0)="This defines the computed aortic valve maximum pressure gradient."
^DD(691,34.7,"DT")="2880302"
^DD(691,34.8,0)="AORTIC MEAN PRESSURE GRADIENT^NJ3,0^^8;7^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,34.8,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 200 (mm of Hg)"
^DD(691,34.8,21,0)="^^1^1^2891024^"
^DD(691,34.8,21,1,0)="This allows the user to enter the aortic valve mean pressure gradient."
^DD(691,34.8,"DT")="2870331"
^DD(691,34.9,0)="AORTIC ESTIMATED VALVE ORIFICE^NJ3,1^^8;8^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""2N.N) X"
^DD(691,34.9,3)="TYPE A NUMBER BETWEEN 0 AND 4 (cm2  1 Decimal allowed)"
^DD(691,34.9,21,0)="^^2^2^2891024^"
^DD(691,34.9,21,1,0)="This allows the user to enter the calculated aortic valve estimated"
^DD(691,34.9,21,2,0)="orifice."
^DD(691,34.9,"DT")="2870331"
^DD(691,35,0)="MITRAL MAX VELOCITY^NJ4,2^^8;9^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,35,.1)="DOPPLER ESTIMATED MITRAL GRADIENT"
^DD(691,35,3)="Meters/sec between 0 and 3, 2 Decimal Digits"
^DD(691,35,21,0)="^^2^2^2891024^"
^DD(691,35,21,1,0)="This allows the user to enter the calculated mitral valve maximum"
^DD(691,35,21,2,0)="velocity."
^DD(691,35,"DT")="2870623"
^DD(691,35.1,0)="MITRAL MEAN VELOCITY^NJ4,2^^8;10^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,35.1,3)="Meters/sec between 0 and 3, 2 Decimal Digits"
^DD(691,35.1,21,0)="^^1^1^2891024^"
^DD(691,35.1,21,1,0)="This allows the user to enter the mitral valve mean velocity."
^DD(691,35.1,"DT")="2870623"
^DD(691,35.2,0)="MITRAL INTEGRAL^NJ3,0^^8;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,35.2,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)"
^DD(691,35.2,21,0)="^^1^1^2891024^"
^DD(691,35.2,21,1,0)="This allows the user to enter the mitral valve calculated integral."
^DD(691,35.2,"DT")="2870331"
^DD(691,35.3,0)="MITRAL MAX GRADIENT^CJ5,1^^ ; ^X ^DD(691,35.3,9.2) S Y=X,X=Y(691,35.3,4),X=X*Y,Y=X,X=Y(691,35.3,1),X=X*Y,Y(691,35.3,5)=X S X=5,Y(691,35.3,6)=X S X=1,X=$J(Y(691,35.3,5),Y(691,35.3,6),X)"
^DD(691,35.3,9)="^"
^DD(691,35.3,9.01)="691^35"
^DD(691,35.3,9.1)="$J(4*((#35)*(#35)),5,1)"
^DD(691,35.3,9.2)="S Y(691,35.3,3)=$S($D(^MCAR(691,D0,8)):^(8),1:"""") S X=4,Y(691,35.3,1)=X,Y(691,35.3,2)=X S X=$P(Y(691,35.3,3),U,9),Y(691,35.3,4)=X S X=$P(Y(691,35.3,3),U,9)"
^DD(691,35.3,9.3)="X ^DD(691,35.3,9.2) S X=X/100,Y=X,X=Y(691,35.3,4),X=X*Y,Y=X,X=Y(691,35.3,1),X=X*Y,Y(691,35.3,5)=X S X=3,Y(691,35.3,6)=X S X=0"
^DD(691,35.3,21,0)="^^1^1^2891024^"
^DD(691,35.3,21,1,0)="This defines the computed mitral valve maximum gradient."
^DD(691,35.3,"DT")="2880302"
^DD(691,35.4,0)="MITRAL MEAN GRADIENT^NJ2,0^^8;12^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,35.4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 50 (mm of Hg)"
^DD(691,35.4,21,0)="^^1^1^2891024^"
^DD(691,35.4,21,1,0)="This allows the user to enter the mitral valve mean gradient."
^DD(691,35.4,"DT")="2870331"
^DD(691,35.5,0)="MITRAL P 1/2^NJ4,0^^8;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,35.5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1000 (msec)"
^DD(691,35.5,21,0)="^^1^1^2891024^"
^DD(691,35.5,21,1,0)="This allows the user to enter the mitral valve P-1/2 time."
^DD(691,35.5,"DT")="2870331"
^DD(691,35.6,0)="MITRAL EST VALVE ORIFICE^NJ3,1^^8;14^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""2N.N) X"
^DD(691,35.6,3)="TYPE A NUMBER BETWEEN 0 AND 4 (1 Decimal allowed)(mm2)"
^DD(691,35.6,21,0)="^^1^1^2891024^^"
^DD(691,35.6,21,1,0)="This defines the computed mitral valve estimated orifices."
^DD(691,35.6,"DT")="2870331"
^DD(691,35.65,0)="COMPUTED MITRAL VALVE ORIFICE^CJ8,1^^ ; ^S Y(691,35.65,1)=$S($D(^MCAR(691,D0,8)):^(8),1:"""") S X=220,X=$S($P(Y(691,35.65,1),U,13):X/$P(Y(691,35.65,1),U,13),1:""*******"") S X=$J(X,0,1)"
^DD(691,35.65,9)="^"
^DD(691,35.65,9.01)="691^35.5"
^DD(691,35.65,9.1)="220/#35.5"
^DD(691,35.65,21,0)="^^1^1^2891024^"
^DD(691,35.65,21,1,0)="This defines the computed mitral valve orifices."
^DD(691,35.7,0)="PULMONIC MAX VELOCITY^NJ4,2^^12;1^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,35.7,3)="Meters/sec between 0 and 5, 2 Decimal Digits"
^DD(691,35.7,21,0)="^^2^2^2891024^"
^DD(691,35.7,21,1,0)="This allows the user to enter the calculated pulmonic valve "
^DD(691,35.7,21,2,0)="maximum velocity."
^DD(691,35.7,"DT")="2870623"
^DD(691,35.8,0)="PULMONIC MEAN VELOCITY^NJ4,2^^12;2^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,35.8,3)="Meters/sec between 0 and 5, 2 Decimal Digits"
^DD(691,35.8,21,0)="^^2^2^2891024^"
^DD(691,35.8,21,1,0)="This allows the user to enter the calculated pulmonic valve"
^DD(691,35.8,21,2,0)="mean velocity."
^DD(691,35.8,"DT")="2870623"
^DD(691,35.9,0)="PULMONIC INTEGRAL^NJ3,0^^12;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,35.9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (cm)"
^DD(691,35.9,21,0)="^^1^1^2891024^"
^DD(691,35.9,21,1,0)="This allows the user to enter the calculated pulmonic valve integral."
^DD(691,35.9,"DT")="2870331"
^DD(691,36,0)="PULMONIC MAX PRESSURE GRADIENT^CJ5,1^^ ; ^X ^DD(691,36,9.2) S Y=X,X=Y(691,36,4),X=X*Y,Y=X,X=Y(691,36,1),X=X*Y,Y(691,36,5)=X S X=5,Y(691,36,6)=X S X=1,X=$J(Y(691,36,5),Y(691,36,6),X)"
^DD(691,36,.1)="DOPPLER ESTIMATED AORTIC GRADIENT"
^DD(691,36,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 500"
^DD(691,36,9)="^"
^DD(691,36,9.01)="691^35.7"
^DD(691,36,9.1)="$J(4*((#35.7)*(#35.7)),5,1)"
^DD(691,36,9.2)="S Y(691,36,3)=$S($D(^MCAR(691,D0,12)):^(12),1:"""") S X=4,Y(691,36,1)=X,Y(691,36,2)=X S X=$P(Y(691,36,3),U,1),Y(691,36,4)=X S X=$P(Y(691,36,3),U,1)"
^DD(691,36,9.3)="X ^DD(691,36,9.2) S Y(691,36,6)=X S X=$P(Y(691,36,1),U,1)/100,Y(691,36,7)=X S X=$P(Y(691,36,1),U,1)/100,Y=X,X=Y(691,36,7),X=X*Y,Y=X,X=Y(691,36,5),X=X*Y"
^DD(691,36,21,0)="^^1^1^2891024^"
^DD(691,36,21,1,0)="This field identifies the computed pulmonic valve maximum pressure gradient."
^DD(691,36,"DT")="2880302"
^DD(691,36.1,0)="PULMONIC MEAN GRADIENT^NJ3,0^^12;4^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,36.1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 200 (mm of Hg)"
^DD(691,36.1,21,0)="^^2^2^2891024^"
^DD(691,36.1,21,1,0)="This allows the user to enter the calculated pulmonic valve"
^DD(691,36.1,21,2,0)="mean gradient."
^DD(691,36.1,"DT")="2870331"
^DD(691,36.2,0)="TRICUS DIAS MAX VEL (m/s)^NJ6,2^^12;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,36.2,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(691,36.2,21,0)="^^2^2^2901022^^^^"
^DD(691,36.2,21,1,0)="This allows the user to enter the calculated tricuspid valve "
^DD(691,36.2,21,2,0)="maximum velocity."
^DD(691,36.2,"DT")="2901022"
^DD(691,36.3,0)="TRICUSPID MEAN VELOCITY^NJ1,0^^12;6^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,36.3,3)="Type a Number between 0 and 3, 0 Decimal Digits"
^DD(691,36.3,9)="^"
^DD(691,36.3,9.01)="691^36.2"
^DD(691,36.3,9.1)="$S(#36.2:"""",1:#36.2*#36.2*4)"
^DD(691,36.3,9.2)="S Y(691,36.3,1)=$S($D(^MCAR(691,D0,12)):^(12),1:"""") S X=$P(Y(691,36.3,1),U,5),Y(691,36.3,2)=X S X="""",Y(691,36.3,3)=X S X=1,Y(691,36.3,4)=X S X=$P(Y(691,36.3,1),U,5)"
^DD(691,36.3,21,0)="^^1^1^2910409^"
^DD(691,36.3,21,1,0)="This field quantifies the average speed of tricuspid valve flow."
^DD(691,36.3,"DT")="2910409"
^DD(691,36.31,0)="TRICUS DIAS MAX PRESS GRAD^CJ8,0^^ ; ^X ^DD(691,36.31,9.2) S Y(691,36.31,5)=X S X=$P(Y(691,36.31,1),U,5)*$P(Y(691,36.31,1),U,5)*4,X=$S(Y(691,36.31,2):Y(691,36.31,3),Y(691,36.31,4):X)"
^DD(691,36.31,9)="^"
^DD(691,36.31,9.01)="691^36.2"
^DD(691,36.31,9.1)="$S(#36.2="""":"""",1:(#36.2*#36.2)*4)"
^DD(691,36.31,9.2)="S Y(691,36.31,1)=$S($D(^MCAR(691,D0,12)):^(12),1:"""") S X=$P(Y(691,36.31,1),U,5)="""",Y(691,36.31,2)=X S X="""",Y(691,36.31,3)=X S X=1,Y(691,36.31,4)=X"
^DD(691,36.31,21,0)="1^^1^1"
^DD(691,36.31,21,1,0)="This field is computed"
^DD(691,36.4,0)="TRICUS REGURG SYS MAX VEL(m/s)^NJ4,2^^12;7^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,36.4,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(691,36.4,21,0)="^^1^1^2901022^^^^"
^DD(691,36.4,21,1,0)="This allows the user to enter the calculated tricuspid valve integral."
^DD(691,36.4,"DT")="2901022"
^DD(691,36.5,0)="PA SYSTOLIC PRESSURE^NJ6,2^^12;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691,36.5,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(691,36.5,9)="^"
^DD(691,36.5,9.01)="691^36.2"
^DD(691,36.5,9.1)="$J(4*((#36.2)*(#36.2)),5,1)"
^DD(691,36.5,9.2)="S Y(691,36.5,3)=$S($D(^MCAR(691,D0,12)):^(12),1:"""") S X=4,Y(691,36.5,1)=X,Y(691,36.5,2)=X S X=$P(Y(691,36.5,3),U,5),Y(691,36.5,4)=X S X=$P(Y(691,36.5,3),U,5)"
^DD(691,36.5,9.3)="X ^DD(691,36.5,9.2) S X=X/100,Y=X,X=Y(691,36.5,4),X=X*Y,Y=X,X=Y(691,36.5,1),X=X*Y,Y(691,36.5,5)=X S X=3,Y(691,36.5,6)=X S X=0"
^DD(691,36.5,21,0)="^^2^2^2910409^^"
^DD(691,36.5,21,1,0)="This field identifies is the Pulmonary Artery Wedge Pressure in millimeters"
^DD(691,36.5,21,2,0)="of Mercury."
^DD(691,36.5,"DT")="2901022"
^DD(691,36.6,0)="TRICUSPID MEAN GRADIENT^NJ2,0^^12;8^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,36.6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 50 (mm of Hg)"
^DD(691,36.6,21,0)="^^1^1^2910409^"
^DD(691,36.6,21,1,0)="This field identifies the average Tricuspid gradient."
^DD(691,36.6,"DT")="2870331"
^DD(691,37,0)="FINDINGS^691.06PA^^9;0"
^DD(691,37,21,0)="^^1^1^2891024^^"
^DD(691,37,21,1,0)="This allows the user to enter multiple interpreted echo findings."
^DD(691,37,23,0)="^^1^1^2921106^^^"
^DD(691,37,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691,37.5,0)="DIAGNOSIS^691.15PA^^14;0"
^DD(691,37.5,12)="CHOOSE ECHO DIAGNOSIS ONLY"
^DD(691,37.5,12.1)="S MCARNUM=+$O(^MCAR(697.2,""C"",""MCAR(691"",0)),DIC(""S"")=""I $D(^MCAR(697.5,""""D"""",MCARNUM,+Y))"""
^DD(691,37.5,21,0)="^^1^1^2891024^^"
^DD(691,37.5,21,1,0)="This allows the user to enter multiple interpreted echo diagnoses."
^DD(691,37.5,23,0)="^^1^1^2921106^^^"
^DD(691,37.5,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691,38,0)="OTHER CONCLUSION^691.07^^10;0"
^DD(691,38,21,0)="^^2^2^2891024^"
^DD(691,38,21,1,0)="This allows the user to enter additional comments on the findings "
^DD(691,38,21,2,0)="and diagnosis fields."
^DD(691,38,23,0)="^^1^1^2921106^^^"
^DD(691,38,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691,39,0)="CARDIOLOGY ATTENDING^*P200'^VA(200,^11;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691,39,1,0)="^.1"
^DD(691,39,1,1,0)="^^TRIGGER^691^701"
^DD(691,39,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691,39,1,1,1.4)"
^DD(691,39,1,1,1.4)="S DIH=$S($D(^MCAR(691,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691,39,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691,39,1,1,2.1) X ^DD(691,39,1,1,2.4)"
^DD(691,39,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(691,D0,11)):^(11),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(691,39,1,1,2.4)="S DIH=$S($D(^MCAR(691,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691,39,1,1,"%D",0)="^^1^1^2960423^"
^DD(691,39,1,1,"%D",1,0)="This trigger set the primary value field."
^DD(691,39,1,1,"CREATE VALUE")="INTERNAL(CARDIOLOGY ATTENDING)"
^DD(691,39,1,1,"DELETE VALUE")="INTERNAL(CARDIOLOGY ATTENDING)"
^DD(691,39,1,1,"DT")="2960423"
^DD(691,39,1,1,"FIELD")="#701"
^DD(691,39,3)=""
^DD(691,39,12)="Check if this person holds the PROVIDER key."
^DD(691,39,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691,39,21,0)="^^1^1^2960509^^^^"
^DD(691,39,21,1,0)="This field identifies the physician who interpreted the procedure."
^DD(691,39,23,0)="^^1^1^2960509^^^^"
^DD(691,39,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,39,"DT")="2960423"
^DD(691,40,0)="WARD/CLINIC^P44'^SC(^11;2^Q"
^DD(691,40,3)="Enter patient's location."
^DD(691,40,21,0)="^^1^1^2891024^"
^DD(691,40,21,1,0)="This allows the user to enter the medical patients location. "
^DD(691,40,"DT")="2910913"
^DD(691,41,0)="ONSET DATE ATRIAL FIB^D^^11;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(691,41,3)="Enter date of onset of patient's atrial fibrillation ECG/EKG rythm."
^DD(691,41,21,0)="^^2^2^2891024^^"
^DD(691,41,21,1,0)="This allows the user to enter the date of the onset of the patient's"
^DD(691,41,21,2,0)="atrial fibrillation ECG/EKG rhythm."
^DD(691,41,"DT")="2860304"
^DD(691,42,0)="DURATION ATRIAL FIB^F^^11;4^K:$L(X)>12!($L(X)<1) X"
^DD(691,42,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(691,42,21,0)="^^2^2^2891024^^"
^DD(691,42,21,1,0)="This allows the user to enter the duration of the atrial fibrillation"
^DD(691,42,21,2,0)="ECG/EKG rhythm."
^DD(691,42,22)=""
^DD(691,42,"DT")="2860304"
^DD(691,43,0)="CARDIOLOGY FELLOW^*P200'^VA(200,^15;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691,43,3)="Enter name of clinical staff member assigned to patient."
^DD(691,43,12)="Check if this person holds the PROVIDER key."
^DD(691,43,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691,43,21,0)="^^2^2^2960509^^"
^DD(691,43,21,1,0)="This field identifies one of the key members of the clinical"
^DD(691,43,21,2,0)="staff assigned to follow this patient."
^DD(691,43,"DT")="2941025"
^DD(691,44,0)="STUDY PHASE^S^1:PRE-CV;2:POST-CV;3:1 MON CV;4:6 MON CV;^11;6^Q"
^DD(691,44,"DT")="2860304"
^DD(691,45,0)="CARDIOVERSION DATE^D^^11;7^S %DT=""E"" D ^%DT S X=Y K:2910101<X!(2820101>X) X"
^DD(691,45,3)="TYPE A DATE BETWEEN 1/1/1982 AND 1/1/1991"
^DD(691,45,"DT")="2860304"
^DD(691,46,0)="RHYTHM 2^S^1:A-FIB;2:A-FLUTTER;3:NSR;^11;8^Q"
^DD(691,46,"DT")="2860304"
^DD(691,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(691,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(691,600,21,0)="^^1^1^2920324^"
^DD(691,600,21,1,0)="This allows the user to enter the procedure summary information."
^DD(691,600,23,0)="^^1^1^2921106^^^"
^DD(691,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691,600,"DT")="2901128"
^DD(691,700,0)="ICD DIAGNOSIS^691.19P^^ICD;0"
^DD(691,700,21,0)="^^3^3^2930310^^^"
^DD(691,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  This field"
^DD(691,700,21,2,0)="also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(691,700,21,3,0)="the future."
^DD(691,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691,701,5,1,0)="691^39^1"
^DD(691,701,9)="^"
^DD(691,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691,701,21,0)="^^3^3^2920109^"
^DD(691,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(691,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(691,701,21,3,0)="use in transferring data to the PCC."
^DD(691,701,"DT")="2941025"
^DD(691,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(691,900,1,0)="^.1"
^DD(691,900,1,1,0)="691^APCE"
^DD(691,900,1,1,1)="S ^MCAR(691,""APCE"",$E(X,1,30),DA)="""""
^DD(691,900,1,1,2)="K ^MCAR(691,""APCE"",$E(X,1,30),DA)"
^DD(691,900,1,1,"%D",0)="^^1^1^2960517^^"
^DD(691,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(691,900,1,1,"DT")="2960517"
^DD(691,900,21,0)="^^2^2^2920728^^^"
^DD(691,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(691,900,21,2,0)="VISIT file for use by Queryman."
^DD(691,900,"DT")="2960517"
^DD(691,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(691,1000,3)="Enter Consult Order."
^DD(691,1000,21,0)="^^3^3^2910920^^"
^DD(691,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(691,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(691,1000,21,3,0)="Medicine package."
^DD(691,1000,"DT")="2910709"
^DD(691,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(691,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(691,1001,21,0)="^^3^3^2910816"
^DD(691,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(691,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(691,1001,21,3,0)="results are entered in the Medicine package."
^DD(691,1001,"DT")="2910816"
^DD(691,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(691,1500,21,0)="^^2^2^2921229^"
^DD(691,1500,21,1,0)="This field contains the provider who enter the information"
^DD(691,1500,21,2,0)="into the database."
^DD(691,1500,"DT")="2921229"
^DD(691,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>40!($L(X)<1) X"
^DD(691,1501,3)="Answer must be 1-40 characters in length."
^DD(691,1501,"DT")="2921229"
^DD(691,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691,1502,"DT")="2921229"
^DD(691,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(691,1503,.1)="Person you are signing for"
^DD(691,1503,"DT")="2921231"
^DD(691,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>40!($L(X)<1) X"
^DD(691,1504,3)="Answer must be 1-40 characters in length."
^DD(691,1504,"DT")="2921229"
^DD(691,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691,1505,"DT")="2921229"
^DD(691,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASED ON-LINE VERIFIED;ROV:RELEASED OFF-LINE VERIFIED;RNV:RELEASED NOT VERIFIED;S:SUPERSEDED;SRV:RELEASED ON-LINE VERIFIED OF SUPERSEDED;SROV:RELEASED OFF-LINE VERIFIED OF SUPERSEDED;^ES;7^Q"
^DD(691,1506,1,0)="^.1"
^DD(691,1506,1,1,0)="691^ES"
^DD(691,1506,1,1,1)="S ^MCAR(691,""ES"",$E(X,1,30),DA)="""""
^DD(691,1506,1,1,2)="K ^MCAR(691,""ES"",$E(X,1,30),DA)"
^DD(691,1506,1,1,"%D",0)="^^1^1^2930903^"
^DD(691,1506,1,1,"%D",1,0)="This cross-reference allows the look-up by release status."
^DD(691,1506,1,1,"DT")="2930122"
^DD(691,1506,"DT")="2931214"
^DD(691,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691,1507,"DT")="2921229"
^DD(691,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691,1508,"DT")="2921229"
^DD(691,1509,0)="SUPERSEDED^NJ9,0^^ES;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,1509,1,0)="^.1^^0"
^DD(691,1509,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691,1509,"DT")="2930105"
^DD(691,1510,0)="SUPERSEDED BY^NJ9,0^^ES;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,1510,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691,1510,"DT")="2930104"
^DD(691,1511,0)="MARK FOR DELETATION^S^1:MARK FOR DELETATION;^ES;12^Q"
^DD(691,1511,"DT")="2921229"
^DD(691,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(691,1512,3)=""
^DD(691,1512,"DT")="2990831"
^DD(691,1513,0)="SUPERSEDED DATE^D^^ES;14^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691,1513,3)=""
^DD(691,1513,"DT")="2930301"
^DD(691,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691,1514,"DT")="2930212"
^DD(691,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691,1515,"DT")="2930304"
^DD(691,2005,0)="IMAGE^691.02005PA^^2005;0"
^DD(691,2005,21,0)="^^1^1^2920706^^"
^DD(691,2005,21,1,0)="This field points to an entry in the image file."
^DD(691,"B","% FAS AP. 4-CH VIEW",29)=""
^DD(691,"B","% FAS MITRAL LEVEL",27)=""
^DD(691,"B","% FAS PAP. MUSCLE",28)=""
^DD(691,"B","% FRACT. SHORTENING",19)=""
^DD(691,"B","ANGIOGRAPHIC CARDIAC OUTPUT",31.1)=""
^DD(691,"B","ANT. RV WALL",16)=""
^DD(691,"B","AORTIC ESTIMATED VALVE ORIFICE",34.9)=""
^DD(691,"B","AORTIC INTEGRAL ",34.3)=""
^DD(691,"B","AORTIC MAX PRESSURE GRADIENT",34.7)=""
^DD(691,"B","AORTIC MAX VELOCITY",34.1)=""
^DD(691,"B","AORTIC MEAN PRESSURE GRADIENT",34.8)=""
^DD(691,"B","AORTIC MEAN VELOCITY",34.2)=""
^DD(691,"B","AORTIC ROOT",14)=""
^DD(691,"B","BODY SURFACE AREA",2)=""
^DD(691,"B","CARDIOLOGY ATTENDING",39)=""
^DD(691,"B","CARDIOLOGY FELLOW",43)=""
^DD(691,"B","CARDIOVERSION DATE",45)=""
^DD(691,"B","COMMENT",10)=""
^DD(691,"B","COMPUTED MITRAL VALVE ORIFICE",35.65)=""
^DD(691,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(691,"B","CREATION DATE",1514)=""
^DD(691,"B","DATE OF RELEASED",1507)=""
^DD(691,"B","DATE OF VERIFIED",1508)=""
^DD(691,"B","DATE/TIME",.01)=""
^DD(691,"B","DELETER DUZ",1512)=""
^DD(691,"B","DIAGNOSIS",37.5)=""
^DD(691,"B","DOPPLER",34)=""
^DD(691,"B","DURATION ATRIAL FIB",42)=""
^DD(691,"B","E-SEPT.",20)=""
^DD(691,"B","EDV",30)=""
^DD(691,"B","EF",32)=""
^DD(691,"B","ENTERING DATE",1502)=""
^DD(691,"B","ENTERING DUZ",1500)=""
^DD(691,"B","ESTIMATED EF",32.1)=""
^DD(691,"B","ESTIMATED EF DESCRIPTOR",32.2)=""
^DD(691,"B","ESV",31)=""
^DD(691,"B","FINDINGS",37)=""
^DD(691,"B","GMRCO",1001)=""
^DD(691,"B","HT IN",1.2)=""
^DD(691,"B","ICD DIAGNOSIS",700)=""
^DD(691,"B","ID",.02)=""
^DD(691,"B","IMAGE",2005)=""
^DD(691,"B","LT. ATRIUM",13)=""
^DD(691,"B","LT. VENT. DIASTOLE",17)=""
^DD(691,"B","LT. VENT. SYSTOLE",18)=""
^DD(691,"B","LV MASS",32.8)=""
^DD(691,"B","LV XS AREA, AP. 4-CH DIAST.",26)=""
^DD(691,"B","LV XS AREA, AP. 4-CH SYST.",23)=""
^DD(691,"B","LV XS AREA, MIT. DIAST.",24)=""
^DD(691,"B","LV XS AREA, MIT. SYST.",21)=""
^DD(691,"B","LV XS AREA, PAP. MUSC. DIAST.",25)=""
^DD(691,"B","LV XS AREA, PAP. MUSC. SYST.",22)=""
^DD(691,"B","LVOT INTEGRAL",34.6)=""
^DD(691,"B","LVOT MAX VELOCITY",34.4)=""
^DD(691,"B","LVOT MEAN VELOCITY",34.5)=""
^DD(691,"B","MARK FOR DELETATION",1511)=""
^DD(691,"B","MED(CARDIOLOGY MEDICATION)",8)=""
^DD(691,"B","MEDICAL PATIENT",1)=""
^DD(691,"B","MITRAL EST VALVE ORIFICE",35.6)=""
^DD(691,"B","MITRAL INTEGRAL",35.2)=""
^DD(691,"B","MITRAL MAX GRADIENT",35.3)=""
^DD(691,"B","MITRAL MAX VELOCITY",35)=""
^DD(691,"B","MITRAL MEAN GRADIENT",35.4)=""
^DD(691,"B","MITRAL MEAN VELOCITY",35.1)=""
^DD(691,"B","MITRAL P 1/2",35.5)=""
^DD(691,"B","ONSET DATE ATRIAL FIB",41)=""
^DD(691,"B","ORIFN",1000)=""
^DD(691,"B","OTHER CONCLUSION",38)=""
^DD(691,"B","PA SYSTOLIC PRESSURE",36.5)=""
^DD(691,"B","PCC POINTER",900)=""
^DD(691,"B","POSTERIOR WALL",12)=""
^DD(691,"B","PRE-DX",9)=""
^DD(691,"B","PRIMARY PROVIDER",701)=""
^DD(691,"B","PROCEDURE SUMMARY",600)=""
^DD(691,"B","PULMONIC INTEGRAL",35.9)=""
^DD(691,"B","PULMONIC MAX PRESSURE GRADIENT",36)=""
^DD(691,"B","PULMONIC MAX VELOCITY",35.7)=""
^DD(691,"B","PULMONIC MEAN GRADIENT",36.1)=""
^DD(691,"B","PULMONIC MEAN VELOCITY",35.8)=""
^DD(691,"B","Person you are signing for",1503)="1"
^DD(691,"B","REGIONAL WALL MOTION",33)=""
^DD(691,"B","RELEASE CODE",1506)=""
^DD(691,"B","RESTING DIASTOLIC BP",4)=""
^DD(691,"B","RESTING HEART RATE",5)=""
^DD(691,"B","RESTING SYSTOLIC BP",3)=""
^DD(691,"B","RHYTHM",6)=""
^DD(691,"B","RHYTHM 2",46)=""
^DD(691,"B","RISK FACTOR",.05)=""
^DD(691,"B","RT VENTRICLE",15)=""
^DD(691,"B","SEPTUM",11)=""
^DD(691,"B","SEX",1.15)=""
^DD(691,"B","SIGNER VALIDATION CODE",1504)=""
^DD(691,"B","STUDY PHASE",44)=""
^DD(691,"B","STUDY QUALITY",7)=""
^DD(691,"B","STUDY TYPE",7.5)=""
^DD(691,"B","SUMMARY",.03)=""
^DD(691,"B","SUPERSEDED",1509)=""
^DD(691,"B","SUPERSEDED BY",1510)=""
^DD(691,"B","SUPERSEDED DATE",1513)=""
^DD(691,"B","SUPERSEDED NUMBER",1515)=""
^DD(691,"B","SYMPTOM",.04)=""
^DD(691,"B","TRICUS DIAS MAX PRESS GRAD",36.31)=""
^DD(691,"B","TRICUS DIAS MAX VEL (m/s)",36.2)=""
^DD(691,"B","TRICUS REGURG SYS MAX VEL(m/s)",36.4)=""
^DD(691,"B","TRICUSPID MEAN GRADIENT",36.6)=""
^DD(691,"B","TRICUSPID MEAN VELOCITY",36.3)=""
^DD(691,"B","VERIFIER DATE",1505)=""
^DD(691,"B","VERIFYING DUZ",1503)=""
^DD(691,"B","WARD/CLINIC",40)=""
^DD(691,"B","WT LBS",1.1)=""
^DD(691,"GL",0,1,.01)=""
^DD(691,"GL",0,2,1)=""
^DD(691,"GL",0,4,3)=""
^DD(691,"GL",0,5,4)=""
^DD(691,"GL",0,6,5)=""
^DD(691,"GL",0,7,6)=""
^DD(691,"GL",0,8,7)=""
^DD(691,"GL",.1,1,.02)=""
^DD(691,"GL",.2,1,.03)=""
^DD(691,"GL",.2,2,600)=""
^DD(691,"GL",.3,0,.04)=""
^DD(691,"GL",.4,0,.05)=""
^DD(691,"GL",1,0,8)=""
^DD(691,"GL",2,0,9)=""
^DD(691,"GL",3,0,10)=""
^DD(691,"GL",4,1,11)=""
^DD(691,"GL",4,2,12)=""
^DD(691,"GL",4,3,13)=""
^DD(691,"GL",4,4,14)=""
^DD(691,"GL",4,5,15)=""
^DD(691,"GL",4,6,16)=""
^DD(691,"GL",4,7,17)=""
^DD(691,"GL",4,8,18)=""
^DD(691,"GL",4,9,20)=""
^DD(691,"GL",5,1,21)=""
^DD(691,"GL",5,2,22)=""
^DD(691,"GL",5,3,23)=""
^DD(691,"GL",5,4,24)=""
^DD(691,"GL",5,5,25)=""
^DD(691,"GL",5,6,26)=""
^DD(691,"GL",5,10,30)=""
^DD(691,"GL",5,11,31)=""
^DD(691,"GL",6,0,33)=""
^DD(691,"GL",7,0,34)=""
^DD(691,"GL",8,1,34.1)=""
^DD(691,"GL",8,2,34.2)=""
^DD(691,"GL",8,3,34.3)=""
^DD(691,"GL",8,4,34.4)=""
^DD(691,"GL",8,5,34.5)=""
^DD(691,"GL",8,6,34.6)=""
^DD(691,"GL",8,7,34.8)=""
^DD(691,"GL",8,8,34.9)=""
^DD(691,"GL",8,9,35)=""
^DD(691,"GL",8,10,35.1)=""
^DD(691,"GL",8,11,35.2)=""
^DD(691,"GL",8,12,35.4)=""
^DD(691,"GL",8,13,35.5)=""
^DD(691,"GL",8,14,35.6)=""
^DD(691,"GL",9,0,37)=""
^DD(691,"GL",10,0,38)=""
^DD(691,"GL",11,1,39)=""
^DD(691,"GL",11,2,40)=""
^DD(691,"GL",11,3,41)=""
^DD(691,"GL",11,4,42)=""
^DD(691,"GL",11,6,44)=""
^DD(691,"GL",11,7,45)=""
^DD(691,"GL",11,8,46)=""
^DD(691,"GL",12,1,35.7)=""
^DD(691,"GL",12,2,35.8)=""
^DD(691,"GL",12,3,35.9)=""
^DD(691,"GL",12,4,36.1)=""
^DD(691,"GL",12,5,36.2)=""
^DD(691,"GL",12,6,36.3)=""
^DD(691,"GL",12,7,36.4)=""
^DD(691,"GL",12,8,36.6)=""
^DD(691,"GL",12,9,36.5)=""
^DD(691,"GL",13,1,1.1)=""
^DD(691,"GL",13,2,1.2)=""
^DD(691,"GL",13,3,2)=""
^DD(691,"GL",13,4,32.1)=""
^DD(691,"GL",13,5,32.2)=""
^DD(691,"GL",14,0,37.5)=""
^DD(691,"GL",15,1,43)=""
^DD(691,"GL",16,0,7.5)=""
^DD(691,"GL",2005,0,2005)=""
^DD(691,"GL","ES",1,1500)=""
^DD(691,"GL","ES",2,1501)=""
^DD(691,"GL","ES",3,1502)=""
^DD(691,"GL","ES",4,1503)=""
^DD(691,"GL","ES",5,1504)=""
^DD(691,"GL","ES",6,1505)=""
^DD(691,"GL","ES",7,1506)=""
^DD(691,"GL","ES",8,1507)=""
^DD(691,"GL","ES",9,1508)=""
^DD(691,"GL","ES",10,1509)=""
^DD(691,"GL","ES",11,1510)=""
^DD(691,"GL","ES",12,1511)=""
^DD(691,"GL","ES",13,1512)=""
^DD(691,"GL","ES",14,1513)=""
^DD(691,"GL","ES",15,1514)=""
^DD(691,"GL","ES",16,1515)=""
^DD(691,"GL","ICD",0,700)=""
^DD(691,"GL","OR",1,1000)=""
^DD(691,"GL","OR",2,1001)=""
^DD(691,"GL","PCC",1,900)=""
^DD(691,"GL","PROV",1,701)=""
^DD(691,"IX",.01)=""
^DD(691,"IX",1)=""
^DD(691,"IX",1.1)=""
^DD(691,"IX",1.2)=""
^DD(691,"IX",2)=""
^DD(691,"IX",11)=""
^DD(691,"IX",12)=""
^DD(691,"IX",17)=""
^DD(691,"IX",39)=""
^DD(691,"IX",900)=""
^DD(691,"IX",1506)=""
^DD(691,"RQ",.01)=""
^DD(691,"RQ",.03)=""
^DD(691,"RQ",1)=""
^DD(691,"RQ",600)=""
^DD(691,"SB",691.01,8)=""
^DD(691,"SB",691.02,9)=""
^DD(691,"SB",691.02005,2005)=""
^DD(691,"SB",691.03,10)=""
^DD(691,"SB",691.04,33)=""
^DD(691,"SB",691.05,34)=""
^DD(691,"SB",691.06,37)=""
^DD(691,"SB",691.07,38)=""
^DD(691,"SB",691.08,.04)=""
^DD(691,"SB",691.09,.05)=""
^DD(691,"SB",691.15,37.5)=""
^DD(691,"SB",691.19,700)=""
^DD(691,"SB",691.48,7.5)=""
^DD(691.01,0)="MED(CARDIOLOGY MEDICATION) SUB-FIELD^NL^2^3"
^DD(691.01,0,"IX","B",691.01,.01)=""
^DD(691.01,0,"NM","MED(CARDIOLOGY MEDICATION)")=""
^DD(691.01,0,"UP")="691"
^DD(691.01,.01,0)="MED(CARDIOLOGY MEDICATION)^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.01,.01,1,0)="^.1"
^DD(691.01,.01,1,1,0)="691.01^B"
^DD(691.01,.01,1,1,1)="S ^MCAR(691,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(691.01,.01,1,1,2)="K ^MCAR(691,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(691.01,.01,3)="Enter medication listed on patient' request form."
^DD(691.01,.01,12)="CHOOSE ONLY MEDICATIONS MARKED FOR CARDIOLOGY"
^DD(691.01,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"""
^DD(691.01,.01,21,0)="^^2^2^2901213^^"
^DD(691.01,.01,21,1,0)="This field identifies the medications listed on the medical patients"
^DD(691.01,.01,21,2,0)="request form."
^DD(691.01,.01,"DT")="2880822"
^DD(691.01,1,0)="DOSE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(691.01,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(691.01,1,21,0)="^^2^2^2920324^^"
^DD(691.01,1,21,1,0)="This allows the user to enter dosage of medication listed on"
^DD(691.01,1,21,2,0)="the medical patient's request form."
^DD(691.01,1,"DT")="2860903"
^DD(691.01,2,0)="FREQUENCY^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(691.01,2,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(691.01,2,21,0)="^^2^2^2920324^"
^DD(691.01,2,21,1,0)="This allows the user to enter when/how often (frequency)"
^DD(691.01,2,21,2,0)="medication is to be taken."
^DD(691.01,2,"DT")="2880518"
^DD(691.01,"B","DOSE",1)=""
^DD(691.01,"B","FREQUENCY",2)=""
^DD(691.01,"B","MED(CARDIOLOGY MEDICATION)",.01)=""
^DD(691.01,"GL",0,1,.01)=""
^DD(691.01,"GL",0,2,1)=""
^DD(691.01,"GL",0,3,2)=""
^DD(691.01,"IX",.01)=""
^DD(691.02,0)="PRE-DX SUB-FIELD^NL^.01^1"
^DD(691.02,0,"NM","PRE-DX")=""
^DD(691.02,0,"UP")="691"
^DD(691.02,.01,0)="PRE-DX^MS^1:CAD;2:MYOCARDIAL INFARCT;3:VALVULAR DISEASE;4:SBE;5:HTN;6:CARDIOMYOPATHY;7:HCM;8:CHD;9:NORMAL;10:UNKNOWN;^0;1^Q"
^DD(691.02,.01,3)="Enter code for patient pre-diagnosis which is listed on procedure request form."
^DD(691.02,.01,21,0)="^^2^2^2891024^"
^DD(691.02,.01,21,1,0)="This defines the medical patients pre-diagnosis listed on the "
^DD(691.02,.01,21,2,0)="procedure request form."
^DD(691.02,"B","PRE-DX",.01)=""
^DD(691.02,"GL",0,1,.01)=""
^DD(691.02005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(691.02005,0,"DT")="2900713"
^DD(691.02005,0,"IX","B",691.02005,.01)=""
^DD(691.02005,0,"NM","IMAGE")=""
^DD(691.02005,0,"UP")="691"
^DD(691.02005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(691.02005,.01,1,0)="^.1"
^DD(691.02005,.01,1,1,0)="691.02005^B"
^DD(691.02005,.01,1,1,1)="S ^MCAR(691,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(691.02005,.01,1,1,2)="K ^MCAR(691,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(691.02005,.01,21,0)="^^1^1^2920706^"
^DD(691.02005,.01,21,1,0)="This fields points to an object in the Image File."
^DD(691.02005,.01,"DT")="2970630"
^DD(691.02005,"B","IMAGE",.01)=""
^DD(691.02005,"GL",0,1,.01)=""
^DD(691.02005,"IX",.01)=""
^DD(691.03,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(691.03,0,"NM","COMMENT")=""
^DD(691.03,0,"UP")="691"
^DD(691.03,.01,0)="COMMENT^W^^0;1^Q"
^DD(691.03,.01,3)="Enter comments on a particular field."
^DD(691.03,.01,21,0)="^^1^1^2891024^"
^DD(691.03,.01,21,1,0)="This allows the user to make specific comments on a particular field."
^DD(691.03,"B","COMMENT",.01)=""
^DD(691.03,"GL",0,1,.01)=""
^DD(691.04,0)="REGIONAL WALL MOTION SUB-FIELD^NL^1^2"
^DD(691.04,0,"NM","REGIONAL WALL MOTION")=""
^DD(691.04,0,"UP")="691"
^DD(691.04,.01,0)="REGIONAL WALL MOTION^M*P695.1'^MCAR(695.1,^0;1^S DIC(""S"")=""I $P(^MCAR(695.1,+Y,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.04,.01,3)="Enter left ventricular regional wall abnormality."
^DD(691.04,.01,12)="Choose currently defined entry only."
^DD(691.04,.01,12.1)="S DIC(""S"")=""I $P(^MCAR(695.1,+Y,0),U,2)"""
^DD(691.04,.01,21,0)="^^2^2^2891024^"
^DD(691.04,.01,21,1,0)="This allows the user to enter multiple left ventricular regional"
^DD(691.04,.01,21,2,0)="wall abnormalities."
^DD(691.04,.01,23,0)="^^1^1^2921106^^^"
^DD(691.04,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.04,.01,"DT")="2890109"
^DD(691.04,1,0)="MODIFIER^S^1:HYPERKINETIC;2:NORMAL;3:MILDLY HYPOKINETIC;4:HYPOKINETIC;5:AKINETIC;6:DYSKINETIC;7:UNINTERPRETABLE;^0;2^Q"
^DD(691.04,1,3)="Enter code for regional wall."
^DD(691.04,1,21,0)="^^2^2^2920324^"
^DD(691.04,1,21,1,0)="This allows the user to choose a descriptive code for type of"
^DD(691.04,1,21,2,0)="regional wall abnormalities."
^DD(691.04,1,23,0)="^^1^1^2921106^^^"
^DD(691.04,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.04,1,"DT")="2890109"
^DD(691.04,"B","MODIFIER",1)=""
^DD(691.04,"B","REGIONAL WALL MOTION",.01)=""
^DD(691.04,"GL",0,1,.01)=""
^DD(691.04,"GL",0,2,1)=""
^DD(691.05,0)="DOPPLER SUB-FIELD^NL^1^2"
^DD(691.05,0,"NM","DOPPLER")=""
^DD(691.05,0,"UP")="691"
^DD(691.05,.01,0)="DOPPLER^MS^MR:MITRAL REGURGITATION;TR:TRICUSPID REGURGITATION;AR:AORTIC REGURGITATION;PR:PULMONIC REGURGITATION;^0;1^Q"
^DD(691.05,.01,3)="Enter code for doppler findings."
^DD(691.05,.01,21,0)="^^1^1^2891024^^"
^DD(691.05,.01,21,1,0)="This allows the user to enter multiple doppler findings."
^DD(691.05,.01,"DT")="2870625"
^DD(691.05,1,0)="SEVERITY^S^MI:MILD;MO:MODERATE;S:SEVERE;TR:TRACE;N:NONE;^0;2^Q"
^DD(691.05,1,3)="Enter code for severity."
^DD(691.05,1,21,0)="^^2^2^2920324^"
^DD(691.05,1,21,1,0)="This allows the user to choose a descriptive code for type of"
^DD(691.05,1,21,2,0)="doppler finding."
^DD(691.05,1,"DT")="2861121"
^DD(691.05,"B","DOPPLER",.01)=""
^DD(691.05,"B","SEVERITY",1)=""
^DD(691.05,"GL",0,1,.01)=""
^DD(691.05,"GL",0,2,1)=""
^DD(691.06,0)="FINDINGS SUB-FIELD^NL^.01^1"
^DD(691.06,0,"NM","FINDINGS")=""
^DD(691.06,0,"UP")="691"
^DD(691.06,.01,0)="FINDINGS^M*P693'^MCAR(693,^0;1^S DIC(""S"")=""I $P(^MCAR(693,+Y,0),U,4)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.06,.01,3)="Enter echo findings."
^DD(691.06,.01,12)="CHOOSE CARDIOLOGY ENTRIES ONLY"
^DD(691.06,.01,12.1)="S DIC(""S"")=""I $P(^MCAR(693,+Y,0),U,4)=""""C"""""""
^DD(691.06,.01,21,0)="^^1^1^2891024^^"
^DD(691.06,.01,21,1,0)="This allows the user to enter multiple interpreted echo findings."
^DD(691.06,.01,23,0)="^^1^1^2921106^^^"
^DD(691.06,.01,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691.06,.01,"DT")="2890227"
^DD(691.06,"B","FINDINGS",.01)=""
^DD(691.06,"GL",0,1,.01)=""
^DD(691.07,0)="OTHER CONCLUSION SUB-FIELD^NL^.01^1"
^DD(691.07,0,"NM","OTHER CONCLUSION")=""
^DD(691.07,0,"UP")="691"
^DD(691.07,.01,0)="OTHER CONCLUSION^W^^0;1^Q"
^DD(691.07,.01,3)="Enter additional comments on findings and diagnoses."
^DD(691.07,.01,21,0)="^^2^2^2891024^"
^DD(691.07,.01,21,1,0)="This allows the user to enter additional comments on the findings "
^DD(691.07,.01,21,2,0)="and diagnosis fields."
^DD(691.07,.01,23,0)="^^1^1^2921106^^^"
^DD(691.07,.01,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691.07,"B","OTHER CONCLUSION",.01)=""
^DD(691.07,"GL",0,1,.01)=""
^DD(691.08,0)="SYMPTOM SUB-FIELD^^.01^1"
^DD(691.08,0,"DT")="2960530"
^DD(691.08,0,"IX","B",691.08,.01)=""
^DD(691.08,0,"NM","SYMPTOM")=""
^DD(691.08,0,"UP")="691"
^DD(691.08,.01,0)="SYMPTOM^M*P695.5'^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""ECHO"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.08,.01,1,0)="^.1"
^DD(691.08,.01,1,1,0)="691.08^B"
^DD(691.08,.01,1,1,1)="S ^MCAR(691,DA(1),.3,""B"",$E(X,1,30),DA)="""""
^DD(691.08,.01,1,1,2)="K ^MCAR(691,DA(1),.3,""B"",$E(X,1,30),DA)"
^DD(691.08,.01,3)="HISTORY OF PRESENT ILLNESS"
^DD(691.08,.01,12)="Choose only symptons applying to ECHO or Cardiology"
^DD(691.08,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""ECHO"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"""
^DD(691.08,.01,21,0)="1^^2^2^2960530^^^^"
^DD(691.08,.01,21,1,0)="This field identifies the medical patients symptoms listed on the"
^DD(691.08,.01,21,2,0)="procedure request form."
^DD(691.08,.01,"DT")="2960530"
^DD(691.08,"B","SYMPTOM",.01)=""
^DD(691.08,"GL",0,1,.01)=""
^DD(691.08,"IX",.01)=""
^DD(691.09,0)="RISK FACTOR SUB-FIELD^^.01^1"
^DD(691.09,0,"IX","B",691.09,.01)=""
^DD(691.09,0,"NM","RISK FACTOR")=""
^DD(691.09,0,"UP")="691"
^DD(691.09,.01,0)="RISK FACTOR^MP695.4'^MCAR(695.4,^0;1^Q"
^DD(691.09,.01,1,0)="^.1"
^DD(691.09,.01,1,1,0)="691.09^B"
^DD(691.09,.01,1,1,1)="S ^MCAR(691,DA(1),.4,""B"",$E(X,1,30),DA)="""""
^DD(691.09,.01,1,1,2)="K ^MCAR(691,DA(1),.4,""B"",$E(X,1,30),DA)"
^DD(691.09,.01,3)="RELEVANT PAST HISTORY"
^DD(691.09,.01,21,0)="^^2^2^2891024^^^^"
^DD(691.09,.01,21,1,0)="This field identifies the medical patients risk factors listed on the"
^DD(691.09,.01,21,2,0)="procedure request form."
^DD(691.09,.01,"DT")="2860714"
^DD(691.09,"B","RISK FACTOR",.01)=""
^DD(691.09,"GL",0,1,.01)=""
^DD(691.09,"IX",.01)=""
^DD(691.1,0)="FIELD^^2009^102"
^DD(691.1,0,"DDA")="N"
^DD(691.1,0,"DT")="2970317"
^DD(691.1,0,"ID",1)="S ZZ=+$P(^(0),""^"",2) W ""   "",$S($D(^MCAR(690,ZZ,0))#2:$P(^DPT(ZZ,0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"") K ZZ"
^DD(691.1,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(691.1,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(691.1,0,"IX","AC",691.1,1)=""
^DD(691.1,0,"IX","AD",691.1,.01)=""
^DD(691.1,0,"IX","AE",691.1,1.1)=""
^DD(691.1,0,"IX","AF",691.1,1.2)=""
^DD(691.1,0,"IX","APCE",691.1,900)=""
^DD(691.1,0,"IX","B",691.1,.01)=""
^DD(691.1,0,"IX","C",691.1,1)=""
^DD(691.1,0,"IX","ES",691.1,1506)=""
^DD(691.1,0,"NM","CARDIAC CATHETERIZATION")=""
^DD(691.1,0,"PT",123,11)=""
^DD(691.1,0,"PT",123.03,.01)=""
^DD(691.1,0,"VR")="2.3"
^DD(691.1,0,"VRPK")="MC"
^DD(691.1,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.1,.01,1,0)="^.1"
^DD(691.1,.01,1,1,0)="691.1^B"
^DD(691.1,.01,1,1,1)="S ^MCAR(691.1,""B"",$E(X,1,30),DA)="""""
^DD(691.1,.01,1,1,2)="K ^MCAR(691.1,""B"",$E(X,1,30),DA)"
^DD(691.1,.01,1,2,0)="691.1^AD^MUMPS"
^DD(691.1,.01,1,2,1)="S MCARCDIE=""^MCAR(691.1,"" D CHGDTE1^MCARPROC"
^DD(691.1,.01,1,2,2)="S MCARCDIE=""^MCAR(691.1,"" D CHGDTE^MCARPROC"
^DD(691.1,.01,1,2,"%D",0)="^^3^3^2920420^"
^DD(691.1,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.1,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent cardiac catherization"
^DD(691.1,.01,1,2,"%D",3,0)="procedure for this patient."
^DD(691.1,.01,3)="ENTER PATIENT NAME OR DATE AND TIME OF CARDIAC CATHETERIZATION"
^DD(691.1,.01,21,0)="^^1^1^2960521^^^^"
^DD(691.1,.01,21,1,0)="This date/time field identifies the catheterization procedure."
^DD(691.1,.01,23,0)="^^1^1^2960521^^^^"
^DD(691.1,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.1,.01,"DT")="2890112"
^DD(691.1,.02,0)="ID^F^^.1;1^K:$L(X)>10!($L(X)<2) X"
^DD(691.1,.02,3)="Enter any unique identification number for this catheterization 2-10 characters.  SSN need not be entered since it is already entered."
^DD(691.1,.02,21,0)="^^2^2^2900119^"
^DD(691.1,.02,21,1,0)="This field identifies the patient's identification number assigned by the"
^DD(691.1,.02,21,2,0)="medical facility.  In most cases it is the person's social security number."
^DD(691.1,.02,"DT")="2860408"
^DD(691.1,.03,0)="SUMMARY^RS^N:NORMAL;A:ABNORMAL;B:BORDERLINE;^.2;1^Q"
^DD(691.1,.03,3)=""
^DD(691.1,.03,21,0)="^^1^1^2900119^"
^DD(691.1,.03,21,1,0)="This fields contains the gross evaluation of the results of this procedure."
^DD(691.1,.03,23,0)="^^1^1^2921106^^^"
^DD(691.1,.03,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,.03,"DT")="2870813"
^DD(691.1,.04,0)="SYMPTOM^691.43PA^^.3;0"
^DD(691.1,.04,21,0)="^^1^1^2960530^^^^"
^DD(691.1,.04,21,1,0)="This field contains the patient's physical complaints or symptoms."
^DD(691.1,.04,22)=""
^DD(691.1,.05,0)="RISK FACTOR^691.44PA^^.4;0"
^DD(691.1,.05,3)="This entry will match one found in the Risk Factor file."
^DD(691.1,.05,21,0)="^^2^2^2910207^^"
^DD(691.1,.05,21,1,0)="This field contains the morbidity factors which this patient is most"
^DD(691.1,.05,21,2,0)="susceptible to."
^DD(691.1,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(691.1,1,1,0)="^.1"
^DD(691.1,1,1,1,0)="691.1^C"
^DD(691.1,1,1,1,1)="S ^MCAR(691.1,""C"",$E(X,1,30),DA)="""""
^DD(691.1,1,1,1,2)="K ^MCAR(691.1,""C"",$E(X,1,30),DA)"
^DD(691.1,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.1,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(691.1,1,1,2,0)="691.1^AC^MUMPS"
^DD(691.1,1,1,2,1)="S MCARCDIE=""^MCAR(691.1,"" D CHGPAT^MCARPROC Q"
^DD(691.1,1,1,2,2)="S MCARCDIE=""^MCAR(691.1,"" D KILL^MCARPROC Q"
^DD(691.1,1,1,2,"%D",0)="^^3^3^2920420^"
^DD(691.1,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.1,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent cardiac catheterization"
^DD(691.1,1,1,2,"%D",3,0)="procedure for this patient."
^DD(691.1,1,21,0)="^^3^3^2890914^^^"
^DD(691.1,1,21,1,0)="This field identifies the name of the patient"
^DD(691.1,1,21,2,0)="followed by a space(optional), followed by the first name, "
^DD(691.1,1,21,3,0)="followed by a space, followed by the middle initial."
^DD(691.1,1,23,0)="^^1^1^2921106^^^"
^DD(691.1,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.1,1,"DT")="2870710"
^DD(691.1,1.1,0)="WT LBS^NJ3,0^^0;7^K:+X'=X!(X>500)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.1,1.1,1,0)="^.1"
^DD(691.1,1.1,1,1,0)="691.1^AE^MUMPS"
^DD(691.1,1.1,1,1,1)="D CATH^MCARBSA"
^DD(691.1,1.1,1,1,2)="S $P(^MCAR(691.1,DA,0),U,9)="""",X="""" D B^MCARBSA"
^DD(691.1,1.1,1,1,"%D",0)="^^3^3^2920420^"
^DD(691.1,1.1,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(691.1,1.1,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(691.1,1.1,1,1,"%D",3,0)="BODY SURFACE AREA field (#1.3)."
^DD(691.1,1.1,3)="Weight in pounds. Enter a number from 40 to 500."
^DD(691.1,1.1,21,0)="^^1^1^2900119^"
^DD(691.1,1.1,21,1,0)="The weight of the patient at the time of the procedure is stored here."
^DD(691.1,1.1,"DT")="2890802"
^DD(691.1,1.2,0)="HT IN^NJ2,0^^0;8^K:+X'=X!(X>96)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.1,1.2,1,0)="^.1"
^DD(691.1,1.2,1,1,0)="691.1^AF^MUMPS"
^DD(691.1,1.2,1,1,1)="D CATH^MCARBSA"
^DD(691.1,1.2,1,1,2)="S $P(^MCAR(691.1,DA,0),U,9)="""",X="""" D B^MCARBSA"
^DD(691.1,1.2,1,1,"%D",0)="^^3^3^2920420^"
^DD(691.1,1.2,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(691.1,1.2,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(691.1,1.2,1,1,"%D",3,0)="BODY SURFACE AREA field (#1.3)."
^DD(691.1,1.2,3)="Height in Inches.  Type a number from 40 to 96."
^DD(691.1,1.2,21,0)="^^1^1^2900119^"
^DD(691.1,1.2,21,1,0)="The height in inches at the time of the procedure."
^DD(691.1,1.2,"DT")="2890802"
^DD(691.1,1.3,0)="BODY SURFACE AREA^NJ5,2I^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.1,1.3,3)="Calculated from weight and height fields."
^DD(691.1,1.3,21,0)="^^2^2^2900122^"
^DD(691.1,1.3,21,1,0)="This field identifies parameter is calculated by height and weight and"
^DD(691.1,1.3,21,2,0)="stored in square meters."
^DD(691.1,1.3,"DT")="2890803"
^DD(691.1,3,0)="CATH NUMBER^F^^0;4^K:$L(X)>9!($L(X)<1) X"
^DD(691.1,3,3)="Answer must be 1-9 characters in length."
^DD(691.1,3,21,0)="^^2^2^2891024^"
^DD(691.1,3,21,1,0)="This allows the user to enter the cardiac catheterization"
^DD(691.1,3,21,2,0)="procedure number."
^DD(691.1,3,"DT")="2890802"
^DD(691.1,4,0)="REFERRING PHYSICIAN/AGENCY^P697.1^MCAR(697.1,^0;5^Q"
^DD(691.1,4,21,0)="^^2^2^2891024^"
^DD(691.1,4,21,1,0)="This allows the user to enter the referring physician/agency/hospital's"
^DD(691.1,4,21,2,0)="name."
^DD(691.1,4,"DT")="2880518"
^DD(691.1,5,0)="WARD/CLINIC^P44'^SC(^0;6^Q"
^DD(691.1,5,21,0)="^^1^1^2910913^^"
^DD(691.1,5,21,1,0)="This field identifies the in-house patient address."
^DD(691.1,5,"DT")="2910913"
^DD(691.1,6,0)="CCL LOG PROCEDURE^691.11PA^^1;0"
^DD(691.1,6,21,0)="^^1^1^2900122^^"
^DD(691.1,6,21,1,0)="This allows the user to enter the cardiac catheterization procedure."
^DD(691.1,7,0)="TECH COMMENT^691.12^^2;0"
^DD(691.1,7,21,0)="^^2^2^2891024^"
^DD(691.1,7,21,1,0)="This allows the cardiac cath. technician to enter comments pertaining "
^DD(691.1,7,21,2,0)="to the procedure."
^DD(691.1,8,0)="PROCEDURE^691.13PA^^3;0"
^DD(691.1,8,21,0)="^^1^1^2930204^^^"
^DD(691.1,8,21,1,0)="This allows the user to enter multiple cardiac cath. procedure."
^DD(691.1,9,0)="HISTORY^691.14^^4;0"
^DD(691.1,9,21,0)="^^1^1^2891024^"
^DD(691.1,9,21,1,0)="This allows the user to enter a brief medical history."
^DD(691.1,11,0)="HEART MEDICATION^691.16PA^^6;0"
^DD(691.1,11,21,0)="^^2^2^2900122^^"
^DD(691.1,11,21,1,0)="This field documents the cardiac medicines that the patient"
^DD(691.1,11,21,2,0)="is taking at the time of this procedure. (multiple)"
^DD(691.1,12,0)="PHYSICAL EXAM^691.17^^7;0"
^DD(691.1,12,21,0)="^^2^2^2891024^"
^DD(691.1,12,21,1,0)="This allows the user to enter data obtained from medical patient's "
^DD(691.1,12,21,2,0)="physical examination."
^DD(691.1,13,0)="INDICATION^691.18PA^^8;0"
^DD(691.1,13,21,0)="^^2^2^2891024^"
^DD(691.1,13,21,1,0)="This allows the user to enter multiple pre-cardiac catheterization"
^DD(691.1,13,21,2,0)="diagnoses."
^DD(691.1,13,23,0)="^^1^1^2921106^^^"
^DD(691.1,13,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(691.1,13,"DT")="2910823"
^DD(691.1,15,0)="PREMEDICATION^691.2SA^^10;0"
^DD(691.1,15,21,0)="^^2^2^2891024^"
^DD(691.1,15,21,1,0)="This allows the user to enter multiple pre-cardiac catheterization"
^DD(691.1,15,21,2,0)="medications."
^DD(691.1,16,0)="VASCULAR ACCESS^691.21SA^^11;0"
^DD(691.1,16,21,0)="^^2^2^2891024^"
^DD(691.1,16,21,1,0)="This allows the user to enter multiple cardiac catheterization "
^DD(691.1,16,21,2,0)="vascular accesses."
^DD(691.1,17,0)="FLUORO TIME^NJ2,0^^12;1^K:+X'=X!(X>99)!(X<.1)!(X?.E1"".""1N.N) X"
^DD(691.1,17,3)="Type a Number between .1 and 99, 0 Decimal Digits"
^DD(691.1,17,21,0)="^^1^1^2891024^"
^DD(691.1,17,21,1,0)="This allows the user to enter catheterization fluoroscopy time."
^DD(691.1,17,"DT")="2900323"
^DD(691.1,18,0)="USE OF SHEATH^S^A:ARTERY;V:VEIN;B:BOTH ARTERY AND VEIN;N:NEITHER ARTERY NOR VEIN;^12;2^Q"
^DD(691.1,18,21,0)="^^1^1^2891024^"
^DD(691.1,18,21,1,0)="This defines the use of a sheath during cardiac catheterization."
^DD(691.1,19,0)="RIGHT HEART CATHETER^S^C:7F COURNAND;Z:7F ZUCKER;S:7F SWAN GANZ;E:7F EPPENDORF;^12;3^Q"
^DD(691.1,19,21,0)="^^1^1^2891024^"
^DD(691.1,19,21,1,0)="This allows the user to enter the specific right heart catheter used."
^DD(691.1,20,0)="LEFT VENTRICULAR CATHETER^691.22PA^^13;0"
^DD(691.1,20,21,0)="^^1^1^2891024^"
^DD(691.1,20,21,1,0)="This allows the user to enter multiple left ventricular catheters used."
^DD(691.1,21,0)="RIGHT CORONARY CATHETER^691.23PA^^14;0"
^DD(691.1,21,21,0)="^^1^1^2891024^"
^DD(691.1,21,21,1,0)="This allows the user to enter multiple right coronary catheters used."
^DD(691.1,22,0)="LEFT CORONARY CATHETER^691.24PA^^15;0"
^DD(691.1,22,21,0)="^^1^1^2891024^"
^DD(691.1,22,21,1,0)="This allows the user to enter multiple left coronary catheters used."
^DD(691.1,23,0)="AORTOGRAPHY PROJECTION^S^L:LAO;R:RAO;^16;1^Q"
^DD(691.1,23,21,0)="^^1^1^2891024^"
^DD(691.1,23,21,1,0)="This field identifies the view of the aortography projection."
^DD(691.1,24,0)="OTHER PROCEDURE AND COMMENT^691.25^^17;0"
^DD(691.1,24,21,0)="^^1^1^2960514^^"
^DD(691.1,24,21,1,0)="This allows the user to enter unspecified procedures and comments."
^DD(691.1,25,0)="PROTAMINE^F^^18;1^K:$L(X)>20!($L(X)<1) X"
^DD(691.1,25,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH DESCRIBING MG OF PROTAMINE ADMINISTERED"
^DD(691.1,25,21,0)="^^2^2^2891024^"
^DD(691.1,25,21,1,0)="This allows the user to enter the protamine used during the "
^DD(691.1,25,21,2,0)="cardiac catheterization."
^DD(691.1,26,0)="INTERVENTION^691.26S^^19;0"
^DD(691.1,26,21,0)="^^2^2^2891024^"
^DD(691.1,26,21,1,0)="This allows the user to enter multiple cardiac catheterization"
^DD(691.1,26,21,2,0)="interventions."
^DD(691.1,26,23,0)="^^1^1^2921106^^^"
^DD(691.1,26,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,27,0)="RCA NORMALITY^P695.9'^MCAR(695.9,^20;1^Q"
^DD(691.1,27,21,0)="^^1^1^2891024^"
^DD(691.1,27,21,1,0)="This allows the user to enter the right coronary artery normality."
^DD(691.1,27,"DT")="2860210"
^DD(691.1,28,0)="RCA SEGMENT^691.27PA^^21;0"
^DD(691.1,28,21,0)="^^1^1^2891024^"
^DD(691.1,28,21,1,0)="This allows the user to enter multiple right coronary artery segments."
^DD(691.1,28,23,0)="^^1^1^2921106^^^"
^DD(691.1,28,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,29,0)="RCA DISTAL VESSEL^P696.3'^MCAR(696.3,^22;1^Q"
^DD(691.1,29,21,0)="^^1^1^2891024^"
^DD(691.1,29,21,1,0)="This allows the user to enter the right coronary artery distal vessel."
^DD(691.1,29,"DT")="2860210"
^DD(691.1,30,0)="RCA COLLATERAL^S^P:PRESENT;N:NOT PRESENT;^22;2^Q"
^DD(691.1,30,21,0)="^^1^1^2891024^"
^DD(691.1,30,21,1,0)="This allows the user to enter the right coronary artery collateral vessel."
^DD(691.1,31,0)="RCA ORIGIN OF COLLATERAL^691.28PA^^23;0"
^DD(691.1,31,21,0)="^^2^2^2891024^"
^DD(691.1,31,21,1,0)="This allows the user to enter multiple right coronary artery origins"
^DD(691.1,31,21,2,0)="of collateral vessels."
^DD(691.1,32,0)="LEFT MAIN CA NORMALITY^P695.9'^MCAR(695.9,^24;1^Q"
^DD(691.1,32,21,0)="^^1^1^2891024^"
^DD(691.1,32,21,1,0)="This allows the user to enter the left main coronary artery normality."
^DD(691.1,32,"DT")="2860210"
^DD(691.1,33,0)="LMCA NARROWING^691.29PA^^25;0"
^DD(691.1,33,21,0)="^^2^2^2891024^"
^DD(691.1,33,21,1,0)="This allows the user to enter multiple left main coronary"
^DD(691.1,33,21,2,0)="artery narrowings."
^DD(691.1,33,23,0)="^^1^1^2921106^^^"
^DD(691.1,33,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,33.5,0)="LMCA NARROWING #^691.47A^^25.5;0"
^DD(691.1,33.5,21,0)="^^2^2^2960328^^^^"
^DD(691.1,33.5,21,1,0)="This allows the user to enter multiple left main coronary artery"
^DD(691.1,33.5,21,2,0)="narrowings."
^DD(691.1,34,0)="LAD NORMALITY^P695.9'^MCAR(695.9,^26;1^Q"
^DD(691.1,34,21,0)="^^2^2^2891024^"
^DD(691.1,34,21,1,0)="This allows the user to enter the left anterior descending coronary"
^DD(691.1,34,21,2,0)="artery normality."
^DD(691.1,34,"DT")="2860210"
^DD(691.1,35,0)="LAD SEGMENT^691.3PA^^27;0"
^DD(691.1,35,21,0)="^^2^2^2891024^"
^DD(691.1,35,21,1,0)="This allows the user to enter multiple left anterior descending coronary"
^DD(691.1,35,21,2,0)="artery segments."
^DD(691.1,35,23,0)="^^1^1^2921106^^^"
^DD(691.1,35,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,36,0)="LAD DISTAL VESSELS^P696.3'^MCAR(696.3,^28;1^Q"
^DD(691.1,36,21,0)="^^1^1^2891024^"
^DD(691.1,36,21,1,0)="This allows the user to enter the left anterior descending distal vessels."
^DD(691.1,36,"DT")="2860210"
^DD(691.1,37,0)="LAD COLLATERALS^S^N:NONE;P:PRESENT;^28;2^Q"
^DD(691.1,37,21,0)="^^1^1^2891024^"
^DD(691.1,37,21,1,0)="This allows the user to enter left anterior descending collateral vessels."
^DD(691.1,38,0)="LAD ORIGIN OF COLLATERALS^691.31PA^^29;0"
^DD(691.1,38,21,0)="^^2^2^2900122^^"
^DD(691.1,38,21,1,0)="This allows the user to enter the left anterior descending arterial"
^DD(691.1,38,21,2,0)="origin of collaterals (multiple)."
^DD(691.1,39,0)="CIRCUMFLEX NORMALITY^P695.9'^MCAR(695.9,^30;1^Q"
^DD(691.1,39,21,0)="^^1^1^2891024^"
^DD(691.1,39,21,1,0)="This allows the user to enter the circumflex coronary normality."
^DD(691.1,39,"DT")="2860210"
^DD(691.1,40,0)="CIRCUMFLEX SEGMENT^691.32PA^^31;0"
^DD(691.1,40,21,0)="^^1^1^2891025^^"
^DD(691.1,40,21,1,0)="This allows the user to enter multiple circumflex artery segments."
^DD(691.1,40,23,0)="^^1^1^2921106^^^"
^DD(691.1,40,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,41,0)="CIRCUMFLEX DISTAL VESSEL^P696.3'^MCAR(696.3,^32;1^Q"
^DD(691.1,41,21,0)="^^1^1^2891025^^"
^DD(691.1,41,21,1,0)="This allows the user to enter circumflex coronary artery distal vessels."
^DD(691.1,41,"DT")="2860210"
^DD(691.1,42,0)="CIRCUMFLEX COLLATERALS^S^N:NONE;P:PRESENT;^32;2^Q"
^DD(691.1,42,21,0)="^^1^1^2891025^"
^DD(691.1,42,21,1,0)="This allows the user to enter the circumflex coronary artery collaterals."
^DD(691.1,43,0)="CIR. ORIGIN OF COLLATERALS^691.33PA^^33;0"
^DD(691.1,43,21,0)="^^2^2^2900122^^"
^DD(691.1,43,21,1,0)="This allows the user to enter the origin of circumflex collaterals."
^DD(691.1,43,21,2,0)="(multiple)"
^DD(691.1,44,0)="FLUOROSCOPY^691.34SA^^34;0"
^DD(691.1,44,21,0)="^^2^2^2891025^^"
^DD(691.1,44,21,1,0)="This allows the user to enter multiple visualizations of calcium"
^DD(691.1,44,21,2,0)="noted during the cardiac cath."
^DD(691.1,45,0)="DOMINANCE^S^L:LEFT DOMINANCE;R:RIGHT DOMINANCE;B:BALANCED DOMINANCE;^35;1^Q"
^DD(691.1,45,21,0)="^^1^1^2891025^^"
^DD(691.1,45,21,1,0)="This allows the user to enter the dominant coronary tree."
^DD(691.1,46,0)="BYPASS GRAFT?^S^N:NOT PRESENT;P:PRESENT;^35;2^Q"
^DD(691.1,46,21,0)="^^1^1^2891025^^"
^DD(691.1,46,21,1,0)="This allows the user to enter the presence of coronary bypass grafts."
^DD(691.1,46,"DT")="2860804"
^DD(691.1,47,0)="DISTAL ANASTOMOSIS^691.35PA^^36;0"
^DD(691.1,47,21,0)="^^1^1^2891025^^"
^DD(691.1,47,21,1,0)="This allows the user to enter multiple distal anastomosis."
^DD(691.1,48,0)="ANGIOPLASTY SEGMENT^691.36PA^^37;0"
^DD(691.1,48,21,0)="^^1^1^2940823^^"
^DD(691.1,48,21,1,0)="This allows the user to enter multiple angioplasty segments."
^DD(691.1,48,23,0)="^^1^1^2921106^^^"
^DD(691.1,48,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,49,0)="LEFT VENTRICULOGRAPHY^S^N:NORMAL;A:ABNORMAL;G:GLOBAL HYPOKINESIS;NO:NOT PERFORMED;^38;1^Q"
^DD(691.1,49,21,0)="^^2^2^2891025^"
^DD(691.1,49,21,1,0)="This field identifies the field used to enter the performance of a left"
^DD(691.1,49,21,2,0)="ventriculography."
^DD(691.1,50,0)="LEFT VENTRICULAR WALL MOTION^691.39PA^^39;0"
^DD(691.1,50,21,0)="^^1^1^2960327^^^"
^DD(691.1,50,21,1,0)="This allows the user to enter multiple LV wall motion normalities."
^DD(691.1,51,0)="MITRAL REGURGITATION^P696.7'^MCAR(696.7,^40;1^Q"
^DD(691.1,51,21,0)="^^1^1^2891025^"
^DD(691.1,51,21,1,0)="This allows the user to enter the presence of mitral regurgitation."
^DD(691.1,51,"DT")="2860210"
^DD(691.1,51.5,0)="MITRAL REGURGITANT FRACTION^NJ3,0^^40;8^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.1,51.5,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(691.1,51.5,21,0)="^^1^1^2891025^^"
^DD(691.1,51.5,21,1,0)="This allows the user to enter the mitral regurgitation fraction."
^DD(691.1,51.5,"DT")="2870624"
^DD(691.1,51.6,0)="AORTIC REGURGITANT FRACTION^NJ3,0^^40;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.1,51.6,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(691.1,51.6,21,0)="^^1^1^2891025^"
^DD(691.1,51.6,21,1,0)="This allows the user to enter aortic regurgitant fraction."
^DD(691.1,51.6,"DT")="2870624"
^DD(691.1,51.7,0)="TOTAL REGURGITANT FRACTION^NJ3,0^^40;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.1,51.7,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(691.1,51.7,21,0)="^^1^1^2891025^"
^DD(691.1,51.7,21,1,0)="This defines the computed total regurgitant fraction."
^DD(691.1,51.7,"DT")="2870624"
^DD(691.1,52,0)="THROMBUS OM LV GRAM^S^Y:YES;N:NO;^40;2^Q"
^DD(691.1,52,21,0)="^^1^1^2891025^"
^DD(691.1,52,21,1,0)="This allows the user to enter presence of a LV thrombus."
^DD(691.1,53,0)="LV EJECTION FRACTION^NJ2,0^^40;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.1,53,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(691.1,53,21,0)="^^1^1^2891025^"
^DD(691.1,53,21,1,0)="This allows the user to enter the calculated LV ejection fraction."
^DD(691.1,53,23,0)="^^1^1^2921106^^^"
^DD(691.1,53,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,53,"DT")="2870629"
^DD(691.1,54,0)="AORTOGRAPHY^S^0:NONE;1:1+;2:2+;3:3+;4:4+;5:5+;^40;4^Q"
^DD(691.1,54,21,0)="^^1^1^2891025^"
^DD(691.1,54,21,1,0)="This allows the user to enter the aortography projection."
^DD(691.1,55,0)="AORTIC ROOT^S^N:NORMAL;D:DILATED;^40;5^Q"
^DD(691.1,55,21,0)="^^1^1^2960327^^"
^DD(691.1,55,21,1,0)="This allows the user to enter the aortic root dimensions normality."
^DD(691.1,55,"DT")="2960327"
^DD(691.1,56,0)="SINUSES OF VALSALVA^S^2:2 SINUSES OF VALSALVA;3:3 SINUSES OF VALSALVA;^40;6^Q"
^DD(691.1,56,21,0)="^^1^1^2891025^"
^DD(691.1,56,21,1,0)="This allows the user to enter number of sinuses of valsalva."
^DD(691.1,56,"DT")="2880414"
^DD(691.1,57,0)="BYPASS GRAFTS^S^0:NONE;1:ONE;2:TWO;3:THREE;4:FOUR;5:FIVE;^40;7^Q"
^DD(691.1,57,21,0)="^^1^1^2891025^"
^DD(691.1,57,21,1,0)="This allows the user to enter number of coronary bypass grafts."
^DD(691.1,58,0)="COMPLICATION^691.4PA^^41;0"
^DD(691.1,58,21,0)="^^1^1^2891025^"
^DD(691.1,58,21,1,0)="This allows the user to enter multiple cardiac cath. complications."
^DD(691.1,58,23,0)="^^1^1^2921106^^^"
^DD(691.1,58,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,59,0)="INTERPRETATION^*P693.2'^MCAR(693.2,^42;1^S DIC(""S"")=""I $P(^(0),U,2)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.1,59,3)="Enter the interpretation of the cardiac cath procedure."
^DD(691.1,59,12)="CHOOSES CATHETERIZATION CODES ONLY"
^DD(691.1,59,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""C"""""""
^DD(691.1,59,21,0)="^^2^2^2891025^"
^DD(691.1,59,21,1,0)="This allows the user to enter the final interpretation of "
^DD(691.1,59,21,2,0)="the cardiac cath."
^DD(691.1,59,"DT")="2900709"
^DD(691.1,60,0)="CONCLUSION^691.41^^43;0"
^DD(691.1,60,21,0)="^^2^2^2891025^"
^DD(691.1,60,21,1,0)="This allows the user to enter specific statements in reference to"
^DD(691.1,60,21,2,0)="the cardiac cath."
^DD(691.1,60,23,0)="^^1^1^2921106^^^"
^DD(691.1,60,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,61,0)="PLAN^691.42^^44;0"
^DD(691.1,61,21,0)="^^2^2^2891025^"
^DD(691.1,61,21,1,0)="This allows the user to enter specific statements in reference to"
^DD(691.1,61,21,2,0)="the patient's management plan."
^DD(691.1,61,23,0)="^^1^1^2921106^^^"
^DD(691.1,61,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,62,0)="CARDIOLOGY FELLOW^*P200'^VA(200,^45;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.1,62,12)="Check if this person holds the PROVIDER key."
^DD(691.1,62,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.1,62,21,0)="^^1^1^2960509^^^"
^DD(691.1,62,21,1,0)="This allows the user to enter the primary cardiology fellow."
^DD(691.1,62,"DT")="2960509"
^DD(691.1,63,0)="CARDIOLOGY STAFF^*P200'^VA(200,^45;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.1,63,1,0)="^.1"
^DD(691.1,63,1,1,0)="^^TRIGGER^691.1^701"
^DD(691.1,63,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.1,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691.1,63,1,1,1.4)"
^DD(691.1,63,1,1,1.4)="S DIH=$S($D(^MCAR(691.1,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.1,63,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.1,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.1,63,1,1,2.1) X ^DD(691.1,63,1,1,2.4)"
^DD(691.1,63,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(691.1,D0,45)):^(45),1:"""") S X=$P(Y(1),U,2),X=X"
^DD(691.1,63,1,1,2.4)="S DIH=$S($D(^MCAR(691.1,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.1,63,1,1,"%D",0)="^^1^1^2960423^"
^DD(691.1,63,1,1,"%D",1,0)="This trigger is used to populate the generic primary provider field, 701."
^DD(691.1,63,1,1,"CREATE VALUE")="INTERNAL(CARDIOLOGY STAFF)"
^DD(691.1,63,1,1,"DELETE VALUE")="INTERNAL(CARDIOLOGY STAFF)"
^DD(691.1,63,1,1,"DT")="2960423"
^DD(691.1,63,1,1,"FIELD")="#701"
^DD(691.1,63,12)="Check if this person holds the PROVIDER key."
^DD(691.1,63,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.1,63,21,0)="^^1^1^2960509^^^"
^DD(691.1,63,21,1,0)="This allows the user to enter the primary physician in attendance."
^DD(691.1,63,23,0)="^^1^1^2960509^^^^"
^DD(691.1,63,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,63,"DT")="2960509"
^DD(691.1,64,0)="CARDIOLOGY FELLOW-2ND^*P200'^VA(200,^5;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.1,64,3)="Enter name of 2nd Cardiology fellow"
^DD(691.1,64,12)="Check if this person holds the PROVIDER key."
^DD(691.1,64,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.1,64,21,0)="^^1^1^2960509^^^^"
^DD(691.1,64,21,1,0)="This allows the user to enter the secondary cardiology fellow."
^DD(691.1,64,"DT")="2960509"
^DD(691.1,65,0)="CARDIOLOGY STAFF-2ND^*P200'^VA(200,^5;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.1,65,3)="Enter name of 2nd attending physician"
^DD(691.1,65,12)="Check if this person holds the PROVIDER key."
^DD(691.1,65,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.1,65,21,0)="^^1^1^2960509^^^^"
^DD(691.1,65,21,1,0)="This allows the user to enter the secondary physician in attendance."
^DD(691.1,65,"DT")="2960509"
^DD(691.1,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(691.1,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(691.1,600,21,0)="^^3^3^2910415^"
^DD(691.1,600,21,1,0)="This field will be displayed in the"
^DD(691.1,600,21,2,0)="summary areas of Order Entry/Results"
^DD(691.1,600,21,3,0)="Reporting and Health Care Summaries."
^DD(691.1,600,23,0)="^^1^1^2921106^^^"
^DD(691.1,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,600,"DT")="2901128"
^DD(691.1,700,0)="ICD DIAGNOSIS^691.46P^^ICD;0"
^DD(691.1,700,21,0)="^^3^3^2930310^^^"
^DD(691.1,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(691.1,700,21,2,0)="also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used"
^DD(691.1,700,21,3,0)="in the future."
^DD(691.1,700,23,0)="^^1^1^2930310^^^^"
^DD(691.1,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.1,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.1,701,5,1,0)="691.1^63^1"
^DD(691.1,701,12)="Check if this person holds the PROVIDER key."
^DD(691.1,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.1,701,21,0)="^^3^3^2960509^^^"
^DD(691.1,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(691.1,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(691.1,701,21,3,0)="use in transferring data to the PCC."
^DD(691.1,701,"DT")="2960509"
^DD(691.1,899,0)="MARKED FOR DELETION^S^1:MARKED FOR DELETION;^MFD;1^Q"
^DD(691.1,899,21,0)="^^3^3^2950523^"
^DD(691.1,899,21,1,0)="This field is used by lookup operations to screen out such records from"
^DD(691.1,899,21,2,0)="general access by the electronic medical record.  The functionality allows"
^DD(691.1,899,21,3,0)="this record to remain in the system for auditing purposes."
^DD(691.1,899,"DT")="2920731"
^DD(691.1,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(691.1,900,1,0)="^.1"
^DD(691.1,900,1,1,0)="691.1^APCE"
^DD(691.1,900,1,1,1)="S ^MCAR(691.1,""APCE"",$E(X,1,30),DA)="""""
^DD(691.1,900,1,1,2)="K ^MCAR(691.1,""APCE"",$E(X,1,30),DA)"
^DD(691.1,900,1,1,"%D",0)="^^1^1^2960517^^"
^DD(691.1,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(691.1,900,1,1,"DT")="2960517"
^DD(691.1,900,21,0)="^^2^2^2920728^^^"
^DD(691.1,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(691.1,900,21,2,0)="VISIT file for use by Queryman."
^DD(691.1,900,"DT")="2960517"
^DD(691.1,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(691.1,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(691.1,1000,21,0)="^^3^3^2910709^"
^DD(691.1,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(691.1,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(691.1,1000,21,3,0)="Medicine package."
^DD(691.1,1000,"DT")="2910709"
^DD(691.1,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(691.1,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(691.1,1001,21,0)="^^3^3^2960509^"
^DD(691.1,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(691.1,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(691.1,1001,21,3,0)="results are entered in the Medicine package."
^DD(691.1,1001,"DT")="2910816"
^DD(691.1,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(691.1,1500,3)="The Current person updating the procedure"
^DD(691.1,1500,21,0)="^^2^2^2950523^"
^DD(691.1,1500,21,1,0)="This field identifies the individual who created this version of the"
^DD(691.1,1500,21,2,0)="record, the last person to edit the entree."
^DD(691.1,1500,"DT")="2930204"
^DD(691.1,1501,0)="ENTERING ELECTRONIC SIGNATURE^F^^ES;2^K:$L(X)>30!($L(X)<1) X"
^DD(691.1,1501,3)="Answer must be 1-30 characters in length."
^DD(691.1,1501,21,0)="^^1^1^2950523^"
^DD(691.1,1501,21,1,0)="This is the scrambled electronic signature."
^DD(691.1,1501,"DT")="2930204"
^DD(691.1,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.1,1502,3)="The Current Date of the update."
^DD(691.1,1502,21,0)="^^1^1^2950523^"
^DD(691.1,1502,21,1,0)="This is the date and time that the record was entered."
^DD(691.1,1502,"DT")="2930204"
^DD(691.1,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(691.1,1503,3)="The person that sign it."
^DD(691.1,1503,21,0)="^^2^2^2950523^"
^DD(691.1,1503,21,1,0)="This is the New Person file identifier of the person releasing the record."
^DD(691.1,1503,21,2,0)="The person entering the electronic signature is captured here."
^DD(691.1,1503,"DT")="2930204"
^DD(691.1,1504,0)="VERIFIER ELECTRONIC SIGNATURE^F^^ES;5^K:$L(X)>30!($L(X)<1) X"
^DD(691.1,1504,3)="Answer must be 1-30 characters in length."
^DD(691.1,1504,21,0)="^^1^1^2950523^"
^DD(691.1,1504,21,1,0)="This is the electronic signature of the verifier."
^DD(691.1,1504,"DT")="2930204"
^DD(691.1,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.1,1505,3)="The date that the procedure was signed"
^DD(691.1,1505,21,0)="^^1^1^2950523^"
^DD(691.1,1505,21,1,0)="This is the date that the record was verified."
^DD(691.1,1505,"DT")="2930204"
^DD(691.1,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASE ON-LINE VERIFIED;ROV:RELEASE OFF-LINE VERIFIED;RNV:RELEASE NOT VERIFIED;S:SUPERSEDED;SRV:SUPERSEDING RELEASE ON-LINE VERIFIED;SROV:SUPERSEDING RELEASE OFF-LINE VERIFIED;^ES;7^Q"
^DD(691.1,1506,1,0)="^.1"
^DD(691.1,1506,1,1,0)="691.1^ES"
^DD(691.1,1506,1,1,1)="S ^MCAR(691.1,""ES"",$E(X,1,30),DA)="""""
^DD(691.1,1506,1,1,2)="K ^MCAR(691.1,""ES"",$E(X,1,30),DA)"
^DD(691.1,1506,1,1,"%D",0)="^^1^1^2950523^"
^DD(691.1,1506,1,1,"%D",1,0)="This cross-reference allows editing by release status."
^DD(691.1,1506,1,1,"DT")="2930204"
^DD(691.1,1506,3)="Select the current status of the procedure"
^DD(691.1,1506,21,0)="^^1^1^2960509^^"
^DD(691.1,1506,21,1,0)="This field controls the release status of the record."
^DD(691.1,1506,"DT")="2930304"
^DD(691.1,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.1,1507,3)="The that the procedure was mad available to non-key holders."
^DD(691.1,1507,21,0)="^^2^2^2950523^"
^DD(691.1,1507,21,1,0)="This is the date that the record was released to the general medical"
^DD(691.1,1507,21,2,0)="record viewer."
^DD(691.1,1507,"DT")="2930204"
^DD(691.1,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.1,1508,3)="The date that the procedure was verified."
^DD(691.1,1508,21,0)="^^1^1^2950523^"
^DD(691.1,1508,21,1,0)="This is the date and time that the procedure was signed electronically."
^DD(691.1,1508,"DT")="2930204"
^DD(691.1,1509,0)="SUPERSEDED^NJ9,0^^ES;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.1,1509,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.1,1509,21,0)="^^3^3^2950523^"
^DD(691.1,1509,21,1,0)="This indicator controls the process of superseding released records"
^DD(691.1,1509,21,2,0)="which require addendums or changes.  This functionality allows an auditing"
^DD(691.1,1509,21,3,0)="of information which has been available for the medical record."
^DD(691.1,1509,"DT")="2930204"
^DD(691.1,1510,0)="SUPERSEDED BY^NJ9,0^^ES;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.1,1510,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.1,1510,21,0)="^^1^1^2950523^"
^DD(691.1,1510,21,1,0)="This field directs the flow of supersessions of records."
^DD(691.1,1510,"DT")="2930204"
^DD(691.1,1511,0)="MARKED FOR DELETION^S^1:MARKED FOR DELETION;^ES;12^Q"
^DD(691.1,1511,21,0)="^^2^2^2950523^"
^DD(691.1,1511,21,1,0)="This field allows the record to remain in the database but screened from"
^DD(691.1,1511,21,2,0)="the medical record."
^DD(691.1,1511,"DT")="2930204"
^DD(691.1,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(691.1,1512,21,0)="^^1^1^2950523^"
^DD(691.1,1512,21,1,0)="This field documents the identity of the deleter."
^DD(691.1,1512,"DT")="2930204"
^DD(691.1,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(691.1,1513,3)="Do not enter information in this field"
^DD(691.1,1513,21,0)="^^1^1^2950523^"
^DD(691.1,1513,21,1,0)="This is the date and time that the supersession took place."
^DD(691.1,1513,"DT")="2930204"
^DD(691.1,1514,0)="RECORD CREATATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.1,1514,21,0)="^^2^2^2960509^^^"
^DD(691.1,1514,21,1,0)="This field stores the date the original file entry for this procedure was"
^DD(691.1,1514,21,2,0)="made."
^DD(691.1,1514,"DT")="2930204"
^DD(691.1,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.1,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.1,1515,21,0)="^^1^1^2950629^"
^DD(691.1,1515,21,1,0)="This value documents the sequence number of record revisions."
^DD(691.1,1515,"DT")="2930304"
^DD(691.1,2005,0)="IMAGE^691.12005P^^2005;0"
^DD(691.1,2005,21,0)="^^1^1^2910415^"
^DD(691.1,2005,21,1,0)="This field points to an entry in the image file."
^DD(691.1,2006,0)="RESTING HEART RATE^NJ3,0^^CO;1^K:+X'=X!(X>150)!(X<30)!(X?.E1"".""1N.N) X"
^DD(691.1,2006,3)="Type a Number between 30 and 150, 0 Decimal Digits"
^DD(691.1,2006,21,0)="^^1^1^2970306^"
^DD(691.1,2006,21,1,0)="This field identifies the patient's resting heart rate."
^DD(691.1,2006,"DT")="2970306"
^DD(691.1,2007,0)="END DIASTOLIC VOLUME^NJ5,1^^CO;2^K:+X'=X!(X>999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(691.1,2007,3)="Enter Number in Milliliters, 1 Decimal Place .1-999"
^DD(691.1,2007,21,0)="^^1^1^2970306^^"
^DD(691.1,2007,21,1,0)="This allows the user to enter the left ventricular diastolic volume."
^DD(691.1,2007,"DT")="2970306"
^DD(691.1,2008,0)="END SYSTOLIC VOLUME^NJ5,1^^CO;3^K:+X'=X!(X>999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(691.1,2008,3)="Enter Number of Square Centimeters, 1 Decimal Place .1-999"
^DD(691.1,2008,21,0)="^^1^1^2970306^^"
^DD(691.1,2008,21,1,0)="This allows the user to enter the left ventricular end systolic volume."
^DD(691.1,2008,"DT")="2970306"
^DD(691.1,2009,0)="CARDIAC OUTPUT^CJ9^^ ; ^X ^DD(691.1,2009,9.5) S X=$S(Y(691.1,2009,2):Y(691.1,2009,3),Y(691.1,2009,4):Y(691.1,2009,5),Y(691.1,2009,6):Y(691.1,2009,7),Y(691.1,2009,8):X)"
^DD(691.1,2009,9)="^"
^DD(691.1,2009,9.01)="691.1^2008;691.1^2007;691.1^2006"
^DD(691.1,2009,9.1)="$S(#2006="""":"""",#2007="""":"""",#2008="""":"""",1:#2006*(#2007-#2008))"
^DD(691.1,2009,9.2)="S Y(691.1,2009,1)=$S($D(^MCAR(691.1,D0,""CO"")):^(""CO""),1:"""") S X=$P(Y(691.1,2009,1),U,1)="""",Y(691.1,2009,2)=X S X="""",Y(691.1,2009,3)=X S X=$P(Y(691.1,2009,1),U,2)"
^DD(691.1,2009,9.3)="X ^DD(691.1,2009,9.2) S X=X="""",Y(691.1,2009,4)=X S X="""",Y(691.1,2009,5)=X S X=$P(Y(691.1,2009,1),U,3)="""",Y(691.1,2009,6)=X S X="""",Y(691.1,2009,7)=X S X=1"
^DD(691.1,2009,9.4)="X ^DD(691.1,2009,9.3) S Y(691.1,2009,8)=X S X=$P(Y(691.1,2009,1),U,1),Y(691.1,2009,9)=X S X=$P(Y(691.1,2009,1),U,2)-$P(Y(691.1,2009,1),U,3)"
^DD(691.1,2009,9.5)="X ^DD(691.1,2009,9.4) S Y=X,X=Y(691.1,2009,9),X=X*Y"
^DD(691.1,2009,21,0)="^^4^4^2970306^^"
^DD(691.1,2009,21,1,0)="This field computes the Angiographic Cardiac Output from the"
^DD(691.1,2009,21,2,0)="Resting Heart Rate (#2006), EDV (#2007), and ESV (#2008)."
^DD(691.1,2009,21,3,0)="                                                            "
^DD(691.1,2009,21,4,0)="The formula used is:   Heart_Rate * (EDV - ESV)."
^DD(691.1,"B","ANGIOPLASTY SEGMENT",48)=""
^DD(691.1,"B","AORTIC REGURGITANT FRACTION",51.6)=""
^DD(691.1,"B","AORTIC ROOT",55)=""
^DD(691.1,"B","AORTOGRAPHY",54)=""
^DD(691.1,"B","AORTOGRAPHY PROJECTION",23)=""
^DD(691.1,"B","BODY SURFACE AREA",1.3)=""
^DD(691.1,"B","BYPASS GRAFT?",46)=""
^DD(691.1,"B","BYPASS GRAFTS",57)=""
^DD(691.1,"B","CARDIAC OUTPUT",2009)=""
^DD(691.1,"B","CARDIOLOGY FELLOW",62)=""
^DD(691.1,"B","CARDIOLOGY FELLOW-2ND",64)=""
^DD(691.1,"B","CARDIOLOGY STAFF",63)=""
^DD(691.1,"B","CARDIOLOGY STAFF-2ND",65)=""
^DD(691.1,"B","CATH NUMBER",3)=""
^DD(691.1,"B","CCL LOG PROCEDURE",6)=""
^DD(691.1,"B","CIR. ORIGIN OF COLLATERALS",43)=""
^DD(691.1,"B","CIRCUMFLEX COLLATERALS",42)=""
^DD(691.1,"B","CIRCUMFLEX DISTAL VESSEL",41)=""
^DD(691.1,"B","CIRCUMFLEX NORMALITY",39)=""
^DD(691.1,"B","CIRCUMFLEX SEGMENT",40)=""
^DD(691.1,"B","COMPLICATION",58)=""
^DD(691.1,"B","CONCLUSION",60)=""
^DD(691.1,"B","DATE OF RELEASED",1507)=""
^DD(691.1,"B","DATE OF VERIFIED",1508)=""
^DD(691.1,"B","DATE/TIME",.01)=""
^DD(691.1,"B","DELETER DUZ",1512)=""
^DD(691.1,"B","DISTAL ANASTOMOSIS",47)=""
^DD(691.1,"B","DOMINANCE",45)=""
^DD(691.1,"B","END DIASTOLIC VOLUME",2007)=""
^DD(691.1,"B","END SYSTOLIC VOLUME",2008)=""
^DD(691.1,"B","ENTERING DATE",1502)=""
^DD(691.1,"B","ENTERING DUZ",1500)=""
^DD(691.1,"B","ENTERING ELECTRONIC SIGNATURE",1501)=""
^DD(691.1,"B","FLUORO TIME",17)=""
^DD(691.1,"B","FLUOROSCOPY",44)=""
^DD(691.1,"B","GMRCO",1001)=""
^DD(691.1,"B","HEART MEDICATION",11)=""
^DD(691.1,"B","HISTORY",9)=""
^DD(691.1,"B","HT IN",1.2)=""
^DD(691.1,"B","ICD DIAGNOSIS",700)=""
^DD(691.1,"B","ID",.02)=""
^DD(691.1,"B","IMAGE",2005)=""
^DD(691.1,"B","INDICATION",13)=""
^DD(691.1,"B","INTERPRETATION",59)=""
^DD(691.1,"B","INTERVENTION",26)=""
^DD(691.1,"B","LAD COLLATERALS",37)=""
^DD(691.1,"B","LAD DISTAL VESSELS",36)=""
^DD(691.1,"B","LAD NORMALITY",34)=""
^DD(691.1,"B","LAD ORIGIN OF COLLATERALS",38)=""
^DD(691.1,"B","LAD SEGMENT",35)=""
^DD(691.1,"B","LEFT CORONARY CATHETER",22)=""
^DD(691.1,"B","LEFT MAIN CA NORMALITY",32)=""
^DD(691.1,"B","LEFT VENTRICULAR CATHETER",20)=""
^DD(691.1,"B","LEFT VENTRICULAR WALL MOTION",50)=""
^DD(691.1,"B","LEFT VENTRICULOGRAPHY",49)=""
^DD(691.1,"B","LMCA NARROWING",33)=""
^DD(691.1,"B","LMCA NARROWING #",33.5)=""
^DD(691.1,"B","LV EJECTION FRACTION",53)=""
^DD(691.1,"B","MARKED FOR DELETION",899)=""
^DD(691.1,"B","MARKED FOR DELETION",1511)=""
^DD(691.1,"B","MEDICAL PATIENT",1)=""
^DD(691.1,"B","MITRAL REGURGITANT FRACTION",51.5)=""
^DD(691.1,"B","MITRAL REGURGITATION",51)=""
^DD(691.1,"B","ORIFN",1000)=""
^DD(691.1,"B","OTHER PROCEDURE AND COMMENT",24)=""
^DD(691.1,"B","PCC POINTER",900)=""
^DD(691.1,"B","PHYSICAL EXAM",12)=""
^DD(691.1,"B","PLAN",61)=""
^DD(691.1,"B","PREMEDICATION",15)=""
^DD(691.1,"B","PRIMARY PROVIDER",701)=""
^DD(691.1,"B","PROCEDURE",8)=""
^DD(691.1,"B","PROCEDURE SUMMARY",600)=""
^DD(691.1,"B","PROTAMINE",25)=""
^DD(691.1,"B","RCA COLLATERAL",30)=""
^DD(691.1,"B","RCA DISTAL VESSEL",29)=""
^DD(691.1,"B","RCA NORMALITY",27)=""
^DD(691.1,"B","RCA ORIGIN OF COLLATERAL",31)=""
^DD(691.1,"B","RCA SEGMENT",28)=""
^DD(691.1,"B","RECORD CREATATION DATE",1514)=""
^DD(691.1,"B","REFERRING PHYSICIAN/AGENCY",4)=""
^DD(691.1,"B","RELEASE CODE",1506)=""
^DD(691.1,"B","RESTING HEART RATE",2006)=""
^DD(691.1,"B","RIGHT CORONARY CATHETER",21)=""
^DD(691.1,"B","RIGHT HEART CATHETER",19)=""
^DD(691.1,"B","RISK FACTOR",.05)=""
^DD(691.1,"B","SINUSES OF VALSALVA",56)=""
^DD(691.1,"B","SUMMARY",.03)=""
^DD(691.1,"B","SUPERSEDED",1509)=""
^DD(691.1,"B","SUPERSEDED BY",1510)=""
^DD(691.1,"B","SUPERSEDED DATE",1513)=""
^DD(691.1,"B","SUPERSEDED NUMBER",1515)=""
^DD(691.1,"B","SYMPTOM",.04)=""
^DD(691.1,"B","TECH COMMENT",7)=""
^DD(691.1,"B","THROMBUS OM LV GRAM",52)=""
^DD(691.1,"B","TOTAL REGURGITANT FRACTION",51.7)=""
^DD(691.1,"B","USE OF SHEATH",18)=""
^DD(691.1,"B","VASCULAR ACCESS",16)=""
^DD(691.1,"B","VERIFIER DATE",1505)=""
^DD(691.1,"B","VERIFIER ELECTRONIC SIGNATURE",1504)=""
^DD(691.1,"B","VERIFYING DUZ",1503)=""
^DD(691.1,"B","WARD/CLINIC",5)=""
^DD(691.1,"B","WT LBS",1.1)=""
^DD(691.1,"GL",0,1,.01)=""
^DD(691.1,"GL",0,2,1)=""
^DD(691.1,"GL",0,4,3)=""
^DD(691.1,"GL",0,5,4)=""
^DD(691.1,"GL",0,6,5)=""
^DD(691.1,"GL",0,7,1.1)=""
^DD(691.1,"GL",0,8,1.2)=""
^DD(691.1,"GL",0,9,1.3)=""
^DD(691.1,"GL",.1,1,.02)=""
^DD(691.1,"GL",.2,1,.03)=""
^DD(691.1,"GL",.2,2,600)=""
^DD(691.1,"GL",.3,0,.04)=""
^DD(691.1,"GL",.4,0,.05)=""
^DD(691.1,"GL",1,0,6)=""
^DD(691.1,"GL",2,0,7)=""
^DD(691.1,"GL",3,0,8)=""
^DD(691.1,"GL",4,0,9)=""
^DD(691.1,"GL",5,1,64)=""
^DD(691.1,"GL",5,2,65)=""
^DD(691.1,"GL",6,0,11)=""
^DD(691.1,"GL",7,0,12)=""
^DD(691.1,"GL",8,0,13)=""
^DD(691.1,"GL",10,0,15)=""
^DD(691.1,"GL",11,0,16)=""
^DD(691.1,"GL",12,1,17)=""
^DD(691.1,"GL",12,2,18)=""
^DD(691.1,"GL",12,3,19)=""
^DD(691.1,"GL",13,0,20)=""
^DD(691.1,"GL",14,0,21)=""
^DD(691.1,"GL",15,0,22)=""
^DD(691.1,"GL",16,1,23)=""
^DD(691.1,"GL",17,0,24)=""
^DD(691.1,"GL",18,1,25)=""
^DD(691.1,"GL",19,0,26)=""
^DD(691.1,"GL",20,1,27)=""
^DD(691.1,"GL",21,0,28)=""
^DD(691.1,"GL",22,1,29)=""
^DD(691.1,"GL",22,2,30)=""
^DD(691.1,"GL",23,0,31)=""
^DD(691.1,"GL",24,1,32)=""
^DD(691.1,"GL",25,0,33)=""
^DD(691.1,"GL",25.5,0,33.5)=""
^DD(691.1,"GL",26,1,34)=""
^DD(691.1,"GL",27,0,35)=""
^DD(691.1,"GL",28,1,36)=""
^DD(691.1,"GL",28,2,37)=""
^DD(691.1,"GL",29,0,38)=""
^DD(691.1,"GL",30,1,39)=""
^DD(691.1,"GL",31,0,40)=""
^DD(691.1,"GL",32,1,41)=""
^DD(691.1,"GL",32,2,42)=""
^DD(691.1,"GL",33,0,43)=""
^DD(691.1,"GL",34,0,44)=""
^DD(691.1,"GL",35,1,45)=""
^DD(691.1,"GL",35,2,46)=""
^DD(691.1,"GL",36,0,47)=""
^DD(691.1,"GL",37,0,48)=""
^DD(691.1,"GL",38,1,49)=""
^DD(691.1,"GL",39,0,50)=""
^DD(691.1,"GL",40,1,51)=""
^DD(691.1,"GL",40,2,52)=""
^DD(691.1,"GL",40,3,53)=""
^DD(691.1,"GL",40,4,54)=""
^DD(691.1,"GL",40,5,55)=""
^DD(691.1,"GL",40,6,56)=""
^DD(691.1,"GL",40,7,57)=""
^DD(691.1,"GL",40,8,51.5)=""
^DD(691.1,"GL",40,9,51.6)=""
^DD(691.1,"GL",40,10,51.7)=""
^DD(691.1,"GL",41,0,58)=""
^DD(691.1,"GL",42,1,59)=""
^DD(691.1,"GL",43,0,60)=""
^DD(691.1,"GL",44,0,61)=""
^DD(691.1,"GL",45,1,62)=""
^DD(691.1,"GL",45,2,63)=""
^DD(691.1,"GL",2005,0,2005)=""
^DD(691.1,"GL","CO",1,2006)=""
^DD(691.1,"GL","CO",2,2007)=""
^DD(691.1,"GL","CO",3,2008)=""
^DD(691.1,"GL","ES",1,1500)=""
^DD(691.1,"GL","ES",2,1501)=""
^DD(691.1,"GL","ES",3,1502)=""
^DD(691.1,"GL","ES",4,1503)=""
^DD(691.1,"GL","ES",5,1504)=""
^DD(691.1,"GL","ES",6,1505)=""
^DD(691.1,"GL","ES",7,1506)=""
^DD(691.1,"GL","ES",8,1507)=""
^DD(691.1,"GL","ES",9,1508)=""
^DD(691.1,"GL","ES",10,1509)=""
^DD(691.1,"GL","ES",11,1510)=""
^DD(691.1,"GL","ES",12,1511)=""
^DD(691.1,"GL","ES",13,1512)=""
^DD(691.1,"GL","ES",14,1513)=""
^DD(691.1,"GL","ES",15,1514)=""
^DD(691.1,"GL","ES",16,1515)=""
^DD(691.1,"GL","ICD",0,700)=""
^DD(691.1,"GL","MFD",1,899)=""
^DD(691.1,"GL","OR",1,1000)=""
^DD(691.1,"GL","OR",2,1001)=""
^DD(691.1,"GL","PCC",1,900)=""
^DD(691.1,"GL","PROV",1,701)=""
^DD(691.1,"IX",.01)=""
^DD(691.1,"IX",1)=""
^DD(691.1,"IX",1.1)=""
^DD(691.1,"IX",1.2)=""
^DD(691.1,"IX",63)=""
^DD(691.1,"IX",900)=""
^DD(691.1,"IX",1506)=""
^DD(691.1,"RQ",.01)=""
^DD(691.1,"RQ",.03)=""
^DD(691.1,"RQ",1)=""
^DD(691.1,"RQ",600)=""
^DD(691.1,"SB",691.11,6)=""
^DD(691.1,"SB",691.12,7)=""
^DD(691.1,"SB",691.12005,2005)=""
^DD(691.1,"SB",691.13,8)=""
^DD(691.1,"SB",691.14,9)=""
^DD(691.1,"SB",691.16,11)=""
^DD(691.1,"SB",691.17,12)=""
^DD(691.1,"SB",691.18,13)=""
^DD(691.1,"SB",691.2,15)=""
^DD(691.1,"SB",691.21,16)=""
^DD(691.1,"SB",691.22,20)=""
^DD(691.1,"SB",691.23,21)=""
^DD(691.1,"SB",691.24,22)=""
^DD(691.1,"SB",691.25,24)=""
^DD(691.1,"SB",691.26,26)=""
^DD(691.1,"SB",691.27,28)=""
^DD(691.1,"SB",691.28,31)=""
^DD(691.1,"SB",691.29,33)=""
^DD(691.1,"SB",691.3,35)=""
^DD(691.1,"SB",691.31,38)=""
^DD(691.1,"SB",691.32,40)=""
^DD(691.1,"SB",691.33,43)=""
^DD(691.1,"SB",691.34,44)=""
^DD(691.1,"SB",691.35,47)=""
^DD(691.1,"SB",691.36,48)=""
^DD(691.1,"SB",691.39,50)=""
^DD(691.1,"SB",691.4,58)=""
^DD(691.1,"SB",691.41,60)=""
^DD(691.1,"SB",691.42,61)=""
^DD(691.1,"SB",691.43,.04)=""
^DD(691.1,"SB",691.44,.05)=""
^DD(691.1,"SB",691.46,700)=""
^DD(691.1,"SB",691.47,33.5)=""
^DD(691.11,0)="CCL LOG PROCEDURE SUB-FIELD^NL^.01^1"
^DD(691.11,0,"NM","CCL LOG PROCEDURE")=""
^DD(691.11,0,"UP")="691.1"
^DD(691.11,.01,0)="CCL LOG PROCEDURE^MP695.3'^MCAR(695.3,^0;1^Q"
^DD(691.11,.01,21,0)="^^1^1^2900122^^"
^DD(691.11,.01,21,1,0)="This allows the user to enter the cardiac catheterization procedure."
^DD(691.11,.01,"DT")="2870629"
^DD(691.11,"B","CCL LOG PROCEDURE",.01)=""
^DD(691.11,"GL",0,1,.01)=""
^DD(691.12,0)="TECH COMMENT SUB-FIELD^NL^.01^1"
^DD(691.12,0,"NM","TECH COMMENT")=""
^DD(691.12,0,"UP")="691.1"
^DD(691.12,.01,0)="TECH COMMENT^W^^0;1^Q"
^DD(691.12,.01,21,0)="^^2^2^2891024^"
^DD(691.12,.01,21,1,0)="This allows the cardiac cath technician to enter comments pertaining "
^DD(691.12,.01,21,2,0)="to the procedure."
^DD(691.12,"B","TECH COMMENT",.01)=""
^DD(691.12,"GL",0,1,.01)=""
^DD(691.12005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(691.12005,0,"IX","B",691.12005,.01)=""
^DD(691.12005,0,"NM","IMAGE")=""
^DD(691.12005,0,"UP")="691.1"
^DD(691.12005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(691.12005,.01,1,0)="^.1"
^DD(691.12005,.01,1,1,0)="691.12005^B"
^DD(691.12005,.01,1,1,1)="S ^MCAR(691.1,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(691.12005,.01,1,1,2)="K ^MCAR(691.1,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(691.12005,.01,21,0)="^^1^1^2910415^"
^DD(691.12005,.01,21,1,0)="This field points to an entry in the image file."
^DD(691.12005,.01,"DT")="2910225"
^DD(691.12005,"B","IMAGE",.01)=""
^DD(691.12005,"GL",0,1,.01)=""
^DD(691.12005,"IX",.01)=""
^DD(691.13,0)="PROCEDURE SUB-FIELD^NL^.01^1"
^DD(691.13,0,"NM","PROCEDURE")=""
^DD(691.13,0,"UP")="691.1"
^DD(691.13,.01,0)="PROCEDURE^MP695.3'^MCAR(695.3,^0;1^Q"
^DD(691.13,.01,1,0)="^.1^^0"
^DD(691.13,.01,21,0)="^^1^1^2930204^^^"
^DD(691.13,.01,21,1,0)="This allows the user to enter multiple cardiac cath procedure."
^DD(691.13,.01,"DT")="2960410"
^DD(691.13,"B","PROCEDURE",.01)=""
^DD(691.13,"GL",0,1,.01)=""
^DD(691.14,0)="HISTORY SUB-FIELD^NL^.01^1"
^DD(691.14,0,"NM","HISTORY")=""
^DD(691.14,0,"UP")="691.1"
^DD(691.14,.01,0)="HISTORY^W^^0;1^Q"
^DD(691.14,.01,21,0)="^^1^1^2891024^"
^DD(691.14,.01,21,1,0)="This allows the user to enter a brief medical history."
^DD(691.14,"B","HISTORY",.01)=""
^DD(691.14,"GL",0,1,.01)=""
^DD(691.15,0)="DIAGNOSIS SUB-FIELD^^.01^1"
^DD(691.15,0,"DT")="2911023"
^DD(691.15,0,"IX","B",691.15,.01)=""
^DD(691.15,0,"NM","DIAGNOSIS")=""
^DD(691.15,0,"UP")="691"
^DD(691.15,.01,0)="DIAGNOSIS^M*P697.5'^MCAR(697.5,^0;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.ECHO"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.ECHO"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.15,.01,1,0)="^.1"
^DD(691.15,.01,1,1,0)="691.15^B"
^DD(691.15,.01,1,1,1)="S ^MCAR(691,DA(1),14,""B"",$E(X,1,30),DA)="""""
^DD(691.15,.01,1,1,2)="K ^MCAR(691,DA(1),14,""B"",$E(X,1,30),DA)"
^DD(691.15,.01,3)="Enter echo diagnosis."
^DD(691.15,.01,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.ECHO"" D MIX^DIC1 S D=-1"
^DD(691.15,.01,12)="CHOOSE ECHO DIAGNOSIS"
^DD(691.15,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.ECHO"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.ECHO"""
^DD(691.15,.01,21,0)="^^1^1^2891024^^"
^DD(691.15,.01,21,1,0)="This allows the user to enter multiple interpreted echo diagnosis."
^DD(691.15,.01,23,0)="^^1^1^2921106^^^"
^DD(691.15,.01,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691.15,.01,"DT")="2911023"
^DD(691.15,"B","DIAGNOSIS",.01)=""
^DD(691.15,"GL",0,1,.01)=""
^DD(691.15,"IX",.01)=""
^DD(691.16,0)="HEART MEDICATION SUB-FIELD^NL^2^3"
^DD(691.16,0,"IX","B",691.16,.01)=""
^DD(691.16,0,"NM","HEART MEDICATION")=""
^DD(691.16,0,"UP")="691.1"
^DD(691.16,.01,0)="HEART MEDICATION^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.16,.01,1,0)="^.1"
^DD(691.16,.01,1,1,0)="691.16^B"
^DD(691.16,.01,1,1,1)="S ^MCAR(691.1,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(691.16,.01,1,1,2)="K ^MCAR(691.1,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(691.16,.01,12)="CHOOSE CARDIAC MEDICATIONS ONLY"
^DD(691.16,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"""
^DD(691.16,.01,21,0)="^^2^2^2900122^^"
^DD(691.16,.01,21,1,0)="This field documents the cardiac medicines that the patient"
^DD(691.16,.01,21,2,0)="is taking at the time of this procedure. (multiple)"
^DD(691.16,.01,"DT")="2880822"
^DD(691.16,1,0)="DOSE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(691.16,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(691.16,1,21,0)="^^1^1^2920324^"
^DD(691.16,1,21,1,0)="This allows the user to enter dosage of cardiac medicine given."
^DD(691.16,1,"DT")="2860903"
^DD(691.16,2,0)="FREQUENCY^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(691.16,2,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(691.16,2,21,0)="^^2^2^2920324^"
^DD(691.16,2,21,1,0)="This allows the user to enter when/number of times (frequency)"
^DD(691.16,2,21,2,0)="patient should be given cardiac medicine."
^DD(691.16,2,"DT")="2870624"
^DD(691.16,"B","DOSE",1)=""
^DD(691.16,"B","FREQUENCY",2)=""
^DD(691.16,"B","HEART MEDICATION",.01)=""
^DD(691.16,"GL",0,1,.01)=""
^DD(691.16,"GL",0,2,1)=""
^DD(691.16,"GL",0,3,2)=""
^DD(691.16,"IX",.01)=""
^DD(691.17,0)="PHYSICAL EXAM SUB-FIELD^NL^.01^1"
^DD(691.17,0,"NM","PHYSICAL EXAM")=""
^DD(691.17,0,"UP")="691.1"
^DD(691.17,.01,0)="PHYSICAL EXAM^W^^0;1^Q"
^DD(691.17,.01,21,0)="^^2^2^2891024^"
^DD(691.17,.01,21,1,0)="This allows the user to enter a data obtain from medical patient's "
^DD(691.17,.01,21,2,0)="physical examination."
^DD(691.17,"B","PHYSICAL EXAM",.01)=""
^DD(691.17,"GL",0,1,.01)=""
^DD(691.18,0)="INDICATION SUB-FIELD^NL^.01^1"
^DD(691.18,0,"DT")="2911023"
^DD(691.18,0,"NM","INDICATION")=""
^DD(691.18,0,"UP")="691.1"
^DD(691.18,.01,0)="INDICATION^M*P697.5'^MCAR(697.5,^0;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.CATH"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.CATH"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.18,.01,1,0)="^.1^^0"
^DD(691.18,.01,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.CATH"" D MIX^DIC1 S D=-1"
^DD(691.18,.01,12)="CHOOSE ONLY CODES ASSOSCIATED WITH CATHERIZATIONS"
^DD(691.18,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.CATH"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.CATH"""
^DD(691.18,.01,21,0)="^^2^2^2891024^"
^DD(691.18,.01,21,1,0)="This allows the user to enter multiple pre-cardiac catheterization"
^DD(691.18,.01,21,2,0)="diagnosis."
^DD(691.18,.01,23,0)="^^1^1^2921106^^^"
^DD(691.18,.01,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(691.18,.01,"DT")="2911023"
^DD(691.18,"B","INDICATION",.01)=""
^DD(691.18,"GL",0,1,.01)=""
^DD(691.19,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(691.19,0,"DT")="2930310"
^DD(691.19,0,"IX","B",691.19,.01)=""
^DD(691.19,0,"NM","ICD DIAGNOSIS")=""
^DD(691.19,0,"UP")="691"
^DD(691.19,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(691.19,.01,1,0)="^.1"
^DD(691.19,.01,1,1,0)="691.19^B"
^DD(691.19,.01,1,1,1)="S ^MCAR(691,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(691.19,.01,1,1,2)="K ^MCAR(691,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(691.19,.01,21,0)="^^3^3^2930310^^^"
^DD(691.19,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  This field"
^DD(691.19,.01,21,2,0)="also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(691.19,.01,21,3,0)="the future."
^DD(691.19,.01,23,0)="^^1^1^2930310^^^^"
^DD(691.19,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.19,.01,"DT")="2930310"
^DD(691.19,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(691.19,.02,3)="Answer must be 1-80 characters in length."
^DD(691.19,.02,"DT")="2920102"
^DD(691.19,"B","ICD DIAGNOSIS",.01)=""
^DD(691.19,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(691.19,"GL",0,1,.01)=""
^DD(691.19,"GL",0,2,.02)=""
^DD(691.19,"IX",.01)=""
^DD(691.2,0)="PREMEDICATION SUB-FIELD^NL^.01^1"
^DD(691.2,0,"NM","PREMEDICATION")=""
^DD(691.2,0,"UP")="691.1"
^DD(691.2,.01,0)="PREMEDICATION^MS^V:DIAZEPAM;B:DIPHENHYDRAMINE;S:STEROIDS;N:NONE;^0;1^Q"
^DD(691.2,.01,21,0)="^^2^2^2891024^"
^DD(691.2,.01,21,1,0)="This allows the user to enter multiple pre-cardiac catheterization"
^DD(691.2,.01,21,2,0)="medications."
^DD(691.2,"B","PREMEDICATION",.01)=""
^DD(691.2,"GL",0,1,.01)=""
^DD(691.21,0)="VASCULAR ACCESS SUB-FIELD^NL^.01^1"
^DD(691.21,0,"NM","VASCULAR ACCESS")=""
^DD(691.21,0,"UP")="691.1"
^DD(691.21,.01,0)="VASCULAR ACCESS^MS^RFA:RIGHT FEMORAL ARTERY;RFV:RIGHT FEMORAL VEIN;LFA:LEFT FEMORAL ARTERY;LFV:LEFT FEMORAL VEIN;RBA:RIGHT BRACHIAL ARTERY;RBV:RIGHT BRACHIAL VEIN;LBA:LEFT BRACHIAL ARTERY;LBV:LEFT BRACHIAL VEIN;^0;1^Q"
^DD(691.21,.01,21,0)="^^2^2^2891024^"
^DD(691.21,.01,21,1,0)="This allows the user to enter multiple cardiac catheterization "
^DD(691.21,.01,21,2,0)="vascular accesses."
^DD(691.21,"B","VASCULAR ACCESS",.01)=""
^DD(691.21,"GL",0,1,.01)=""
^DD(691.22,0)="LEFT VENTRICULAR CATHETER SUB-FIELD^NL^1^2"
^DD(691.22,0,"NM","LEFT VENTRICULAR CATHETER")=""
^DD(691.22,0,"UP")="691.1"
^DD(691.22,.01,0)="LEFT VENTRICULAR CATHETER^MP695.6'^MCAR(695.6,^0;1^Q"
^DD(691.22,.01,21,0)="^^1^1^2891024^"
^DD(691.22,.01,21,1,0)="This allows the user to enter multiple left ventricular catheters used."
^DD(691.22,.01,"DT")="2860210"
^DD(691.22,1,0)="ADEQUATE^S^1:ADEQUATE;2:POOR;3:INADEQUATE;^0;2^Q"
^DD(691.22,1,3)=""
^DD(691.22,1,21,0)="^^2^2^2920324^"
^DD(691.22,1,21,1,0)="This allows the user to enter the adequacy of the left ventricular"
^DD(691.22,1,21,2,0)="catheter used."
^DD(691.22,1,"DT")="2870626"
^DD(691.22,"B","ADEQUATE",1)=""
^DD(691.22,"B","LEFT VENTRICULAR CATHETER",.01)=""
^DD(691.22,"GL",0,1,.01)=""
^DD(691.22,"GL",0,2,1)=""
^DD(691.23,0)="RIGHT CORONARY CATHETER SUB-FIELD^NL^1^2"
^DD(691.23,0,"NM","RIGHT CORONARY CATHETER")=""
^DD(691.23,0,"UP")="691.1"
^DD(691.23,.01,0)="RIGHT CORONARY CATHETER^MP695.6'^MCAR(695.6,^0;1^Q"
^DD(691.23,.01,21,0)="^^1^1^2891024^"
^DD(691.23,.01,21,1,0)="This allows the user to enter multiple right coronary catheters used."
^DD(691.23,.01,"DT")="2860210"
^DD(691.23,1,0)="ADEQUACY OF ENGAGEMENT^S^1:ADEQUATE;2:POOR;3:INADEQUATE;^0;2^Q"
^DD(691.23,1,3)=""
^DD(691.23,1,21,0)="^^2^2^2920324^"
^DD(691.23,1,21,1,0)="This allows the user to enter the adequacy of the right"
^DD(691.23,1,21,2,0)="coronary catheter used."
^DD(691.23,1,"DT")="2870626"
^DD(691.23,"B","ADEQUACY OF ENGAGEMENT",1)=""
^DD(691.23,"B","RIGHT CORONARY CATHETER",.01)=""
^DD(691.23,"GL",0,1,.01)=""
^DD(691.23,"GL",0,2,1)=""
^DD(691.24,0)="LEFT CORONARY CATHETER SUB-FIELD^NL^1^2"
^DD(691.24,0,"NM","LEFT CORONARY CATHETER")=""
^DD(691.24,0,"UP")="691.1"
^DD(691.24,.01,0)="LEFT CORONARY CATHETER^MP695.6'^MCAR(695.6,^0;1^Q"
^DD(691.24,.01,21,0)="^^1^1^2891024^"
^DD(691.24,.01,21,1,0)="This allows the user to enter multiple left coronary catheters used."
^DD(691.24,.01,"DT")="2860210"
^DD(691.24,1,0)="ADEQUACY OF ENGAGEMENT^S^1:ADEQUATE;2:POOR;3:INADEQUATE;^0;2^Q"
^DD(691.24,1,3)=""
^DD(691.24,1,21,0)="^^2^2^2920324^"
^DD(691.24,1,21,1,0)="This allows the user to enter the adequacy of the left"
^DD(691.24,1,21,2,0)="coronary catheter used."
^DD(691.24,1,"DT")="2870626"
^DD(691.24,"B","ADEQUACY OF ENGAGEMENT",1)=""
^DD(691.24,"B","LEFT CORONARY CATHETER",.01)=""
^DD(691.24,"GL",0,1,.01)=""
^DD(691.24,"GL",0,2,1)=""
^DD(691.25,0)="OTHER PROCEDURE AND COMMENT SUB-FIELD^NL^.01^1"
^DD(691.25,0,"NM","OTHER PROCEDURE AND COMMENT")=""
^DD(691.25,0,"UP")="691.1"
^DD(691.25,.01,0)="OTHER PROCEDURE AND COMMENT^W^^0;1^Q"
^DD(691.25,.01,21,0)="^^1^1^2960514^^"
^DD(691.25,.01,21,1,0)="This allows the user to enter unspecified procedures and comments."
^DD(691.25,.01,"DT")="2960514"
^DD(691.25,"B","OTHER PROCEDURE AND COMMENT",.01)=""
^DD(691.25,"GL",0,1,.01)=""
^DD(691.26,0)="INTERVENTION SUB-FIELD^NL^55^56"
^DD(691.26,0,"NM","INTERVENTION")=""
^DD(691.26,0,"UP")="691.1"
^DD(691.26,.01,0)="INTERVENTION^S^1:BASELINE;2:POST CONTRAST;3:AFTER EXERCISE;4:AFTER DRUGS;9:OTHER;^0;1^Q"
^DD(691.26,.01,3)=""
^DD(691.26,.01,21,0)="^^2^2^2891024^"
^DD(691.26,.01,21,1,0)="This allows the user to enter multiple cardiac catheterization"
^DD(691.26,.01,21,2,0)="interventions."
^DD(691.26,.01,23,0)="^^1^1^2921106^^^"
^DD(691.26,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.26,.01,"DT")="2861216"
^DD(691.26,.5,0)="OTHER INTERVENTION COMMENT^691.45^^2;0"
^DD(691.26,.5,21,0)="^^2^2^2920324^"
^DD(691.26,.5,21,1,0)="This allows the user to enter comments about cardiac catheteriztion"
^DD(691.26,.5,21,2,0)="interventions used."
^DD(691.26,1,0)="RA A WAVE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(691.26,1,3)="TYPE A WHOLE NUMBER BETWEEN -10 AND 99"
^DD(691.26,1,21,0)="^^1^1^2920324^"
^DD(691.26,1,21,1,0)="This allows the user to enter the right atrial A wave pressure."
^DD(691.26,2,0)="RA V WAVE^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(691.26,2,3)="TYPE A WHOLE NUMBER BETWEEN -10 AND 99"
^DD(691.26,2,21,0)="^^1^1^2920324^"
^DD(691.26,2,21,1,0)="This allows the user to enter the right atrial V wave pressure."
^DD(691.26,3,0)="RA MEAN PRESSURE^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(691.26,3,3)="TYPE A WHOLE NUMBER BETWEEN -10 AND 99"
^DD(691.26,3,21,0)="^^2^2^2920324^"
^DD(691.26,3,21,1,0)="This field identifies the right atrial mean pressure measured in millimeters of"
^DD(691.26,3,21,2,0)="mercury."
^DD(691.26,3,23,0)="^^1^1^2921106^^^"
^DD(691.26,3,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.26,4,0)="RA SATURATION^NJ3,0^^0;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,4,21,0)="^^2^2^2920324^"
^DD(691.26,4,21,1,0)="This allows the user to enter the amount of oxygen in the"
^DD(691.26,4,21,2,0)="right atrial blood sample."
^DD(691.26,5,0)="RV SYSTOLIC^NJ3,0^^0;6^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,5,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(691.26,5,21,0)="^^1^1^2920324^"
^DD(691.26,5,21,1,0)="This allows the user to enter the right ventrical systolic pressure."
^DD(691.26,5,"DT")="2870624"
^DD(691.26,6,0)="RV DIASTOLIC^NJ3,0^^0;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,6,21,0)="^^1^1^2920324^"
^DD(691.26,6,21,1,0)="This allows the user to enter the right ventrical diastolic pressure."
^DD(691.26,7,0)="RV SATURATION^NJ3,0^^0;8^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,7,21,0)="^^2^2^2920324^"
^DD(691.26,7,21,1,0)="This allows the user to enter the amount of oxygen in the"
^DD(691.26,7,21,2,0)="right ventricular blood sample."
^DD(691.26,8,0)="PA SYSTOLIC^NJ3,0^^0;9^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,8,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(691.26,8,21,0)="^^1^1^2920324^"
^DD(691.26,8,21,1,0)="This allows the user to enter the pulmonary artery systolic pressure."
^DD(691.26,8,23,0)="^^1^1^2921106^^^"
^DD(691.26,8,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.26,8,"DT")="2870624"
^DD(691.26,9,0)="PA DIASTOLIC^NJ3,0^^0;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,9,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,9,21,0)="^^1^1^2920324^"
^DD(691.26,9,21,1,0)="This allows the user to enter the pulmonary artery diastolic pressure."
^DD(691.26,9,23,0)="^^1^1^2921106^^^"
^DD(691.26,9,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.26,10,0)="PA MEAN^NJ3,0^^0;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,10,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,10,21,0)="^^2^2^2920324^"
^DD(691.26,10,21,1,0)="This allows the user to enter the pulmonary artery mean pressure"
^DD(691.26,10,21,2,0)="in millimeters of mercury."
^DD(691.26,11,0)="PA SATURATION^NJ3,0^^0;12^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,11,21,0)="^^2^2^2920324^"
^DD(691.26,11,21,1,0)="This allows the user to enter the amount of oxygen found in the"
^DD(691.26,11,21,2,0)="pulmonary artery blood sample."
^DD(691.26,12,0)="PCW A WAVE^NJ3,0^^0;13^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,12,21,0)="^^2^2^2920324^"
^DD(691.26,12,21,1,0)="This allows the user to enter the pulmonary capillary A wave"
^DD(691.26,12,21,2,0)="pressure."
^DD(691.26,13,0)="PCW V WAVE^NJ3,0^^0;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,13,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,13,21,0)="^^2^2^2920324^"
^DD(691.26,13,21,1,0)="This allows the user to enter the pulmonary capillary V wave"
^DD(691.26,13,21,2,0)="pressure."
^DD(691.26,14,0)="PCW MEAN^NJ3,0^^0;15^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,14,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,14,21,0)="^^1^1^2920324^"
^DD(691.26,14,21,1,0)="This allows the user to enter the pulmonary capillary mean pressure."
^DD(691.26,14,23,0)="^^1^1^2921106^^^"
^DD(691.26,14,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.26,15,0)="LA A WAVE^NJ3,0^^0;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,15,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,15,21,0)="^^1^1^2920324^"
^DD(691.26,15,21,1,0)="This allows the user to enter the left atrial A wave pressure."
^DD(691.26,16,0)="LA V WAVE^NJ3,0^^0;17^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,16,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,16,21,0)="^^1^1^2920324^"
^DD(691.26,16,21,1,0)="This allows the user to enter the left atrial V wave pressure."
^DD(691.26,17,0)="LA MEAN PRESSURE^NJ3,0^^0;18^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,17,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,17,21,0)="^^1^1^2920324^"
^DD(691.26,17,21,1,0)="This allows the user to enter the left atrial mean pressure."
^DD(691.26,18,0)="LA SATURATION^NJ3,0^^0;19^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,18,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,18,21,0)="^^2^2^2920324^"
^DD(691.26,18,21,1,0)="This allows the user to enter the amount of oxygen found"
^DD(691.26,18,21,2,0)="in the left atrial blood sample."
^DD(691.26,19,0)="LV PRE A^NJ2,0^^0;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,19,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.26,19,21,0)="^^1^1^2920324^"
^DD(691.26,19,21,1,0)="This allows the user to enter the left ventricular pre-wave A pressure."
^DD(691.26,20,0)="LV END DIASTOLIC (Z)^NJ2,0^^0;21^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,20,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.26,20,21,0)="^^2^2^2920324^"
^DD(691.26,20,21,1,0)="This allows the user to enter the left ventricular end"
^DD(691.26,20,21,2,0)="diastolic post contrast."
^DD(691.26,20,23,0)="^^1^1^2921106^^^"
^DD(691.26,20,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.26,21,0)="LV SYSTOLIC^NJ3,0^^0;22^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,21,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 300"
^DD(691.26,21,21,0)="^^2^2^2920324^"
^DD(691.26,21,21,1,0)="This allows the user to enter the left ventricular systolic post"
^DD(691.26,21,21,2,0)="contrast pressure."
^DD(691.26,22,0)="LV SATURATION^NJ2,0^^0;23^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,22,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.26,22,21,0)="^^2^2^2920324^"
^DD(691.26,22,21,1,0)="This allows the user to enter the amount of oxygen found in the"
^DD(691.26,22,21,2,0)="left ventricular blood sample."
^DD(691.26,23,0)="LV SYSTOLIC POST CONTRAST^NJ3,0^^0;24^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,23,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 300"
^DD(691.26,23,21,0)="^^2^2^2920324^"
^DD(691.26,23,21,1,0)="This allows the user to enter the left ventricular systolic post"
^DD(691.26,23,21,2,0)="contrast pressure."
^DD(691.26,24,0)="LV PRE A POST CONTRAST^NJ2,0^^0;25^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,24,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.26,24,21,0)="^^2^2^2920324^"
^DD(691.26,24,21,1,0)="This allows the user to enter the left ventricular pre-A wave"
^DD(691.26,24,21,2,0)="post contrast."
^DD(691.26,25,0)="LV END DIAST (Z) POST CONTRAST^NJ2,0^^0;26^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,25,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.26,25,21,0)="^^2^2^2920324^"
^DD(691.26,25,21,1,0)="This allows the user to enter the left ventricular end diastolic"
^DD(691.26,25,21,2,0)="post contrast."
^DD(691.26,26,0)="LV SATURATION POST CONTRAST^NJ2,0^^0;27^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,26,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.26,26,21,0)="^^2^2^2920324^"
^DD(691.26,26,21,1,0)="This allows the user to enter the amount of oxygen found in "
^DD(691.26,26,21,2,0)="the left ventricular post contrast blood sample."
^DD(691.26,27,0)="AORTIC SYSTOLIC^NJ3,0^^1;1^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,27,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 300"
^DD(691.26,27,21,0)="^^1^1^2920324^"
^DD(691.26,27,21,1,0)="This allows the user to enter the aortic systolic pressure."
^DD(691.26,28,0)="AORTIC DIASTOLIC^NJ3,0^^1;2^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,28,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 300"
^DD(691.26,28,21,0)="^^1^1^2920324^"
^DD(691.26,28,21,1,0)="This allows the user to enter the aortic diastolic pressure."
^DD(691.26,29,0)="AORTIC MEAN PRESSURE^NJ3,0^^1;3^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,29,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 300"
^DD(691.26,29,21,0)="^^2^2^2920324^"
^DD(691.26,29,21,1,0)="This allows the user to enter the aortic mean pressure measured in"
^DD(691.26,29,21,2,0)="millimeters or mercury."
^DD(691.26,30,0)="AORTIC SATURATION^NJ3,0^^1;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,30,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,30,21,0)="^^2^2^2920324^"
^DD(691.26,30,21,1,0)="This allows the user to enter the amount of oxygen found in the"
^DD(691.26,30,21,2,0)="aortic blood sample."
^DD(691.26,31,0)="SVC PRESSURE^NJ3,0^^1;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,31,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,31,21,0)="^^1^1^2920324^"
^DD(691.26,31,21,1,0)="This allows the user to enter the superior vena cava pressure."
^DD(691.26,32,0)="SVC SATURATION^NJ2,0^^1;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,32,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.26,32,21,0)="^^2^2^2920324^"
^DD(691.26,32,21,1,0)="This allows the user to enter the amount of oxygen found in the"
^DD(691.26,32,21,2,0)="superior vena cava blood sample."
^DD(691.26,33,0)="IVC MEAN PRESSURE^NJ3,0^^1;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,33,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,33,21,0)="^^1^1^2920324^"
^DD(691.26,33,21,1,0)="This allows the user to enter the inferior vena cava mean pressure."
^DD(691.26,34,0)="IVC SATURATION^NJ3,0^^1;8^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,34,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100"
^DD(691.26,34,21,0)="^^2^2^2920324^"
^DD(691.26,34,21,1,0)="This allows the user to enter the amount of oxygen found in the"
^DD(691.26,34,21,2,0)="inferior vena cava blood sample."
^DD(691.26,35,0)="C O, ASSUMED FICK, L/MIN^NJ5,2^^1;9^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,35,3)="TYPE A NUMBER BETWEEN 0 AND 20, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,35,21,0)="^^2^2^2920324^"
^DD(691.26,35,21,1,0)="This allows the user to enter cardiac output, assuming fick is"
^DD(691.26,35,21,2,0)="a method of performing cardiac output."
^DD(691.26,36,0)="C I, ASS FICK L/MIN/M2^CJ6,2^^ ; ^S Y(691.26,36,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""""),Y(691.26,36,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=$P(Y(691.26,36,1),U,9),X=$S($P(Y(691.26,36,2),U,9):X/$P(Y(691.26,36,2),U,9),1:""*******"") S X=$J(X,0,2)"
^DD(691.26,36,9)="^"
^DD(691.26,36,9.01)="691.1^1.3;691.26^35"
^DD(691.26,36,9.1)="#35/#1.3"
^DD(691.26,36,21,0)="^^2^2^2920324^^"
^DD(691.26,36,21,1,0)="This cardiac index is computed from the cardiac output, assuming"
^DD(691.26,36,21,2,0)="fick is a method of performing cardiac output."
^DD(691.26,36,"DT")="2920831"
^DD(691.26,38,0)="C O, INDO GREEN, L/MIN^NJ5,2^^1;12^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,38,3)="TYPE A NUMBER BETWEEN 0 AND 20, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,38,21,0)="^^2^2^2920324^"
^DD(691.26,38,21,1,0)="This allows the user to enter cardiac output, assuming indo"
^DD(691.26,38,21,2,0)="green is a method of measuring cardiac output."
^DD(691.26,39,0)="C I, INDO GREEN, L/MIN/M2^CJ6,2^^ ; ^S Y(691.26,39,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""""),Y(691.26,39,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=$P(Y(691.26,39,1),U,12),X=$S($P(Y(691.26,39,2),U,9):X/$P(Y(691.26,39,2),U,9),1:""*******"") S X=$J(X,0,2)"
^DD(691.26,39,9)="^"
^DD(691.26,39,9.01)="691.1^1.3;691.26^38"
^DD(691.26,39,9.1)="#38/#1.3"
^DD(691.26,39,21,0)="^^2^2^2920324^"
^DD(691.26,39,21,1,0)="This field identifies computed from the cardiac output, assuming indo green"
^DD(691.26,39,21,2,0)="is a method of measuring cardiac output."
^DD(691.26,40,0)="C O, THERMO, L/MIN^NJ5,2^^1;14^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,40,3)="TYPE A NUMBER BETWEEN 0 AND 20, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,40,21,0)="^^2^2^2920324^"
^DD(691.26,40,21,1,0)="This allows the user to enter cardiac output, assuming thermo"
^DD(691.26,40,21,2,0)="is a method of measuring cardiac output."
^DD(691.26,41,0)="C I, THERMO, L/MIN/M2^CJ6,2^^ ; ^S Y(691.26,41,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""""),Y(691.26,41,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=$P(Y(691.26,41,1),U,14),X=$S($P(Y(691.26,41,2),U,9):X/$P(Y(691.26,41,2),U,9),1:""*******"") S X=$J(X,0,2)"
^DD(691.26,41,9)="^"
^DD(691.26,41,9.01)="691.1^1.3;691.26^40"
^DD(691.26,41,9.1)="#40/#1.3"
^DD(691.26,41,21,0)="^^2^2^2920324^^"
^DD(691.26,41,21,1,0)="This field identifies computed from the cardiac output, assuming thermo"
^DD(691.26,41,21,2,0)="is a method of measuring cardiac output."
^DD(691.26,42,0)="M V AREA, CM2^NJ4,2^^1;16^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,42,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(691.26,42,21,0)="^^2^2^2920324^"
^DD(691.26,42,21,1,0)="This allows the user to enter the mitral valve area, entered"
^DD(691.26,42,21,2,0)="in centimeters squared."
^DD(691.26,42,"DT")="2870624"
^DD(691.26,43,0)="M V PEAK GRADIENT^NJ5,2^^1;17^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,43,3)="TYPE A NUMBER BETWEEN 0 AND 50, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,43,21,0)="^^1^1^2920324^"
^DD(691.26,43,21,1,0)="This allows the user to enter the mitral valve peak gradient."
^DD(691.26,43,"DT")="2870226"
^DD(691.26,44,0)="M V MEAN GRADIENT^NJ5,2^^1;18^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,44,3)="mm Mercury from 0 to 20, 2 Decimal Places allowed"
^DD(691.26,44,21,0)="^^1^1^2920324^"
^DD(691.26,44,21,1,0)="This allows the user to enter the mitral valve mean gradient."
^DD(691.26,45,0)="A V AREA, CM2^NJ4,2^^1;19^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,45,3)="TYPE A NUMBER OF SQUARE CENTIMETERS BETWEEN 0 AND 5, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,45,21,0)="^^2^2^2920324^"
^DD(691.26,45,21,1,0)="This allows the user to enter the aortic valve area, entered"
^DD(691.26,45,21,2,0)="in centimeters squared."
^DD(691.26,46,0)="A V INDEX, CM2/M2^CJ6,2^^ ; ^S Y(691.26,46,2)=$S($D(^MCAR(691.1,D0,0)):^(0),1:""""),Y(691.26,46,1)=$S($D(^MCAR(691.1,D0,19,D1,1)):^(1),1:"""") S X=$P(Y(691.26,46,1),U,19),X=$S($P(Y(691.26,46,2),U,9):X/$P(Y(691.26,46,2),U,9),1:""*******"") S X=$J(X,0,2)"
^DD(691.26,46,9)="^"
^DD(691.26,46,9.01)="691.1^1.3;691.26^45"
^DD(691.26,46,9.1)="#45/#1.3"
^DD(691.26,46,21,0)="^^2^2^2920324^^"
^DD(691.26,46,21,1,0)="The aortic valve index is calculated from the aortic valve area"
^DD(691.26,46,21,2,0)="and the body surface area."
^DD(691.26,47,0)="A V PEAK GRADIENT^NJ6,2^^1;21^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,47,3)="TYPE A NUMBER BETWEEN 0 AND 200, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,47,21,0)="^^1^1^2920324^"
^DD(691.26,47,21,1,0)="This allows the user to enter the aortic valve peak gradient."
^DD(691.26,47,"DT")="2870226"
^DD(691.26,48,0)="A V MEAN GRADIENT^NJ6,2^^1;22^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,48,3)="Type a Number between 0 and 200, 2 Decimal Digits"
^DD(691.26,48,21,0)="^^1^1^2920324^"
^DD(691.26,48,21,1,0)="This allows the user to enter the aortic valve mean gradient."
^DD(691.26,48,"DT")="2871110"
^DD(691.26,49,0)="SYSTEMIC FLOW^NJ5,2^^1;23^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,49,3)="TYPE A NUMBER BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,49,21,0)="^^2^2^2920324^^"
^DD(691.26,49,21,1,0)="This allows the user to enter the systemic flow, the blood flow"
^DD(691.26,49,21,2,0)="on the left side of the cardiac system."
^DD(691.26,50,0)="PULMONARY FLOW^NJ5,2^^1;24^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,50,3)="TYPE A NUMBER BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,50,21,0)="^^2^2^2920324^"
^DD(691.26,50,21,1,0)="This allows the user to enter the pulmonary flow, the blood flow on"
^DD(691.26,50,21,2,0)="the right side of the cardiac system."
^DD(691.26,51,0)="P/S RATIO^NJ5,2^^1;25^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,51,3)="TYPE A NUMBER BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,51,21,0)="^^1^1^2920324^"
^DD(691.26,51,21,1,0)="This field identifies to the pulmonary flow/systemic flow ratio."
^DD(691.26,52,0)="L-R SHUNT^NJ5,2^^1;26^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,52,3)="TYPE A NUMBER OF MM OF MERCURY BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,52,21,0)="^^3^3^2920324^^"
^DD(691.26,52,21,1,0)="This allows the user to enter the L-R shunt, which refers to the"
^DD(691.26,52,21,2,0)="abnormal flow where the interventricular septum or atrial septum"
^DD(691.26,52,21,3,0)="is involved.  These entries are in millimeters of mercury."
^DD(691.26,53,0)="R-L SHUNT^NJ5,2^^1;27^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.26,53,3)="TYPE A NUMBER OF MM OF MERCURY BETWEEN 0 AND 100, 2 DECIMAL PLACES ALLOWED"
^DD(691.26,53,21,0)="^^3^3^2920324^"
^DD(691.26,53,21,1,0)="This allows the user to enter the R-L shunt, which refers to the"
^DD(691.26,53,21,2,0)="abnormal flow where the interventricular septum or atrial septum"
^DD(691.26,53,21,3,0)="is involved.  These entries are in millimeters of mercury."
^DD(691.26,54,0)="PULM RESIST^NJ4,0^^1;28^K:+X'=X!(X>2000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,54,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2000"
^DD(691.26,54,21,0)="^^1^1^2920706^"
^DD(691.26,54,21,1,0)="This field shows the Pulmonary Resistance."
^DD(691.26,55,0)="SYSTEMIC RESIST^NJ4,0^^1;29^K:+X'=X!(X>2000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.26,55,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 2000"
^DD(691.26,55,21,0)="^^1^1^2920706^"
^DD(691.26,55,21,1,0)="This field shows the Systemic Resistance."
^DD(691.26,"B","A V AREA, CM2",45)=""
^DD(691.26,"B","A V INDEX, CM2/M2",46)=""
^DD(691.26,"B","A V MEAN GRADIENT",48)=""
^DD(691.26,"B","A V PEAK GRADIENT",47)=""
^DD(691.26,"B","AORTIC DIASTOLIC",28)=""
^DD(691.26,"B","AORTIC MEAN PRESSURE",29)=""
^DD(691.26,"B","AORTIC SATURATION",30)=""
^DD(691.26,"B","AORTIC SYSTOLIC",27)=""
^DD(691.26,"B","C I, ASS FICK L/MIN/M2",36)=""
^DD(691.26,"B","C I, INDO GREEN, L/MIN/M2",39)=""
^DD(691.26,"B","C I, THERMO, L/MIN/M2",41)=""
^DD(691.26,"B","C O, ASSUMED FICK, L/MIN",35)=""
^DD(691.26,"B","C O, INDO GREEN, L/MIN",38)=""
^DD(691.26,"B","C O, THERMO, L/MIN",40)=""
^DD(691.26,"B","INTERVENTION",.01)=""
^DD(691.26,"B","IVC MEAN PRESSURE",33)=""
^DD(691.26,"B","IVC SATURATION",34)=""
^DD(691.26,"B","L-R SHUNT",52)=""
^DD(691.26,"B","LA A WAVE",15)=""
^DD(691.26,"B","LA MEAN PRESSURE",17)=""
^DD(691.26,"B","LA SATURATION",18)=""
^DD(691.26,"B","LA V WAVE",16)=""
^DD(691.26,"B","LV END DIAST (Z) POST CONTRAST",25)=""
^DD(691.26,"B","LV END DIASTOLIC (Z)",20)=""
^DD(691.26,"B","LV PRE A",19)=""
^DD(691.26,"B","LV PRE A POST CONTRAST",24)=""
^DD(691.26,"B","LV SATURATION",22)=""
^DD(691.26,"B","LV SATURATION POST CONTRAST",26)=""
^DD(691.26,"B","LV SYSTOLIC",21)=""
^DD(691.26,"B","LV SYSTOLIC POST CONTRAST",23)=""
^DD(691.26,"B","M V AREA, CM2",42)=""
^DD(691.26,"B","M V MEAN GRADIENT",44)=""
^DD(691.26,"B","M V PEAK GRADIENT",43)=""
^DD(691.26,"B","OTHER INTERVENTION COMMENT",.5)=""
^DD(691.26,"B","P/S RATIO",51)=""
^DD(691.26,"B","PA DIASTOLIC",9)=""
^DD(691.26,"B","PA MEAN",10)=""
^DD(691.26,"B","PA SATURATION",11)=""
^DD(691.26,"B","PA SYSTOLIC",8)=""
^DD(691.26,"B","PCW A WAVE",12)=""
^DD(691.26,"B","PCW MEAN",14)=""
^DD(691.26,"B","PCW V WAVE",13)=""
^DD(691.26,"B","PULM RESIST",54)=""
^DD(691.26,"B","PULMONARY FLOW",50)=""
^DD(691.26,"B","R-L SHUNT",53)=""
^DD(691.26,"B","RA A WAVE",1)=""
^DD(691.26,"B","RA MEAN PRESSURE",3)=""
^DD(691.26,"B","RA SATURATION",4)=""
^DD(691.26,"B","RA V WAVE",2)=""
^DD(691.26,"B","RV DIASTOLIC",6)=""
^DD(691.26,"B","RV SATURATION",7)=""
^DD(691.26,"B","RV SYSTOLIC",5)=""
^DD(691.26,"B","SVC PRESSURE",31)=""
^DD(691.26,"B","SVC SATURATION",32)=""
^DD(691.26,"B","SYSTEMIC FLOW",49)=""
^DD(691.26,"B","SYSTEMIC RESIST",55)=""
^DD(691.26,"GL",0,1,.01)=""
^DD(691.26,"GL",0,2,1)=""
^DD(691.26,"GL",0,3,2)=""
^DD(691.26,"GL",0,4,3)=""
^DD(691.26,"GL",0,5,4)=""
^DD(691.26,"GL",0,6,5)=""
^DD(691.26,"GL",0,7,6)=""
^DD(691.26,"GL",0,8,7)=""
^DD(691.26,"GL",0,9,8)=""
^DD(691.26,"GL",0,10,9)=""
^DD(691.26,"GL",0,11,10)=""
^DD(691.26,"GL",0,12,11)=""
^DD(691.26,"GL",0,13,12)=""
^DD(691.26,"GL",0,14,13)=""
^DD(691.26,"GL",0,15,14)=""
^DD(691.26,"GL",0,16,15)=""
^DD(691.26,"GL",0,17,16)=""
^DD(691.26,"GL",0,18,17)=""
^DD(691.26,"GL",0,19,18)=""
^DD(691.26,"GL",0,20,19)=""
^DD(691.26,"GL",0,21,20)=""
^DD(691.26,"GL",0,22,21)=""
^DD(691.26,"GL",0,23,22)=""
^DD(691.26,"GL",0,24,23)=""
^DD(691.26,"GL",0,25,24)=""
^DD(691.26,"GL",0,26,25)=""
^DD(691.26,"GL",0,27,26)=""
^DD(691.26,"GL",1,1,27)=""
^DD(691.26,"GL",1,2,28)=""
^DD(691.26,"GL",1,3,29)=""
^DD(691.26,"GL",1,4,30)=""
^DD(691.26,"GL",1,5,31)=""
^DD(691.26,"GL",1,6,32)=""
^DD(691.26,"GL",1,7,33)=""
^DD(691.26,"GL",1,8,34)=""
^DD(691.26,"GL",1,9,35)=""
^DD(691.26,"GL",1,12,38)=""
^DD(691.26,"GL",1,14,40)=""
^DD(691.26,"GL",1,16,42)=""
^DD(691.26,"GL",1,17,43)=""
^DD(691.26,"GL",1,18,44)=""
^DD(691.26,"GL",1,19,45)=""
^DD(691.26,"GL",1,21,47)=""
^DD(691.26,"GL",1,22,48)=""
^DD(691.26,"GL",1,23,49)=""
^DD(691.26,"GL",1,24,50)=""
^DD(691.26,"GL",1,25,51)=""
^DD(691.26,"GL",1,26,52)=""
^DD(691.26,"GL",1,27,53)=""
^DD(691.26,"GL",1,28,54)=""
^DD(691.26,"GL",1,29,55)=""
^DD(691.26,"GL",2,0,.5)=""
^DD(691.26,"SB",691.45,.5)=""
^DD(691.27,0)="RCA SEGMENT SUB-FIELD^NL^2^4"
^DD(691.27,0,"DT")="2940823"
^DD(691.27,0,"NM","RCA SEGMENT")=""
^DD(691.27,0,"UP")="691.1"
^DD(691.27,.01,0)="RCA SEGMENT^M*P696'X^MCAR(696,^0;1^S DIC(""S"")=""I ($P(^(0),U,2)=""""R"""")!($P(^(0),U,2)=""""Y"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.27,.01,1,0)="^.1^^0"
^DD(691.27,.01,12)="RCA Segments only"
^DD(691.27,.01,12.1)="S DIC(""S"")=""I ($P(^(0),U,2)=""""R"""")!($P(^(0),U,2)=""""Y"""")"""
^DD(691.27,.01,21,0)="^^1^1^2891024^"
^DD(691.27,.01,21,1,0)="This allows the user to enter multiple right coronary artery segments."
^DD(691.27,.01,23,0)="^^1^1^2921106^^^"
^DD(691.27,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.27,.01,"DT")="2960712"
^DD(691.27,1,0)="PERCENT NARROWING^P696.1'^MCAR(696.1,^0;2^Q"
^DD(691.27,1,21,0)="^^1^1^2920324^"
^DD(691.27,1,21,1,0)="This allows the user to enter percent narrowing of the RCA segment."
^DD(691.27,1,23,0)="^^1^1^2921106^^^"
^DD(691.27,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.27,1,"DT")="2860210"
^DD(691.27,1.5,0)="PERCENT NARROWING NUMBER^NJ6,2^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.27,1.5,3)="Type in a percent."
^DD(691.27,1.5,21,0)="^^1^1^2940823^"
^DD(691.27,1.5,21,1,0)="This allow the user tp enter percent narrowing of the RCA segment."
^DD(691.27,1.5,"DT")="2940823"
^DD(691.27,2,0)="MORPHOLOGY^P696.2'^MCAR(696.2,^0;3^Q"
^DD(691.27,2,21,0)="^^1^1^2920324^"
^DD(691.27,2,21,1,0)="This allows the user to enter the lesion morphology."
^DD(691.27,2,"DT")="2860210"
^DD(691.27,"B","MORPHOLOGY",2)=""
^DD(691.27,"B","PERCENT NARROWING",1)=""
^DD(691.27,"B","PERCENT NARROWING NUMBER",1.5)=""
^DD(691.27,"B","RCA SEGMENT",.01)=""
^DD(691.27,"GL",0,1,.01)=""
^DD(691.27,"GL",0,2,1)=""
^DD(691.27,"GL",0,3,2)=""
^DD(691.27,"GL",0,4,1.5)=""
^DD(691.28,0)="RCA ORIGIN OF COLLATERAL SUB-FIELD^NL^1^2"
^DD(691.28,0,"NM","RCA ORIGIN OF COLLATERAL")=""
^DD(691.28,0,"UP")="691.1"
^DD(691.28,.01,0)="RCA ORIGIN OF COLLATERAL^MP696'^MCAR(696,^0;1^Q"
^DD(691.28,.01,21,0)="^^2^2^2891024^"
^DD(691.28,.01,21,1,0)="This allows the user to enter multiple right coronary artery origin"
^DD(691.28,.01,21,2,0)="of collateral vessel."
^DD(691.28,.01,"DT")="2860210"
^DD(691.28,1,0)="RECEIVING VESSEL^P696'^MCAR(696,^0;2^Q"
^DD(691.28,1,21,0)="^^1^1^2920324^"
^DD(691.28,1,21,1,0)="This allows the user to enter the receiving vessel."
^DD(691.28,1,"DT")="2860210"
^DD(691.28,"B","RCA ORIGIN OF COLLATERAL",.01)=""
^DD(691.28,"B","RECEIVING VESSEL",1)=""
^DD(691.28,"GL",0,1,.01)=""
^DD(691.28,"GL",0,2,1)=""
^DD(691.29,0)="LMCA NARROWING SUB-FIELD^NL^1^2"
^DD(691.29,0,"NM","LMCA NARROWING")=""
^DD(691.29,0,"UP")="691.1"
^DD(691.29,.01,0)="LMCA NARROWING^MP696.1'^MCAR(696.1,^0;1^Q"
^DD(691.29,.01,21,0)="^^2^2^2891024^"
^DD(691.29,.01,21,1,0)="This allows the user to enter multiple left main coronary"
^DD(691.29,.01,21,2,0)="artery narrowing."
^DD(691.29,.01,23,0)="^^1^1^2921106^^^"
^DD(691.29,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.29,.01,"DT")="2860210"
^DD(691.29,1,0)="MORPHOLOGY^P696.2'^MCAR(696.2,^0;2^Q"
^DD(691.29,1,21,0)="^^1^1^2920324^"
^DD(691.29,1,21,1,0)="This allows the user to enter lesion morphology."
^DD(691.29,1,"DT")="2860210"
^DD(691.29,"B","LMCA NARROWING",.01)=""
^DD(691.29,"B","MORPHOLOGY",1)=""
^DD(691.29,"GL",0,1,.01)=""
^DD(691.29,"GL",0,2,1)=""
^DD(691.3,0)="LAD SEGMENT SUB-FIELD^NL^2^4"
^DD(691.3,0,"DT")="2940823"
^DD(691.3,0,"NM","LAD SEGMENT")=""
^DD(691.3,0,"UP")="691.1"
^DD(691.3,.01,0)="LAD SEGMENT^M*P696'X^MCAR(696,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=""""L"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.3,.01,12)="LAD Segments only"
^DD(691.3,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""L"""""""
^DD(691.3,.01,21,0)="^^2^2^2891024^"
^DD(691.3,.01,21,1,0)="This allows the user to enter multiple left anterior decending coronary"
^DD(691.3,.01,21,2,0)="artery segments."
^DD(691.3,.01,23,0)="^^1^1^2921106^^^"
^DD(691.3,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.3,.01,"DT")="2870626"
^DD(691.3,1,0)="PERCENT NARROWING^P696.1'^MCAR(696.1,^0;2^Q"
^DD(691.3,1,21,0)="^^2^2^2920324^"
^DD(691.3,1,21,1,0)="This allows the user to enter the percent narrowing of the left"
^DD(691.3,1,21,2,0)="anterior descending coronary artery segment."
^DD(691.3,1,23,0)="^^1^1^2921106^^^"
^DD(691.3,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.3,1,"DT")="2860210"
^DD(691.3,1.5,0)="PERCENT NARROWING #^NJ6,2^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.3,1.5,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(691.3,1.5,21,0)="^^2^2^2950629^"
^DD(691.3,1.5,21,1,0)="This field represents the fraction of the vessels lumenal space which has"
^DD(691.3,1.5,21,2,0)="been occluded by disease."
^DD(691.3,1.5,"DT")="2940823"
^DD(691.3,2,0)="MORPHOLOGY^P696.2'^MCAR(696.2,^0;3^Q"
^DD(691.3,2,21,0)="^^1^1^2920324^"
^DD(691.3,2,21,1,0)="This allows the user to enter the lesion morphology."
^DD(691.3,2,"DT")="2860210"
^DD(691.3,"B","LAD SEGMENT",.01)=""
^DD(691.3,"B","MORPHOLOGY",2)=""
^DD(691.3,"B","PERCENT NARROWING",1)=""
^DD(691.3,"B","PERCENT NARROWING #",1.5)=""
^DD(691.3,"GL",0,1,.01)=""
^DD(691.3,"GL",0,2,1)=""
^DD(691.3,"GL",0,3,2)=""
^DD(691.3,"GL",0,4,1.5)=""
^DD(691.31,0)="LAD ORIGIN OF COLLATERALS SUB-FIELD^NL^1^2"
^DD(691.31,0,"NM","LAD ORIGIN OF COLLATERALS")=""
^DD(691.31,0,"UP")="691.1"
^DD(691.31,.01,0)="LAD ORIGIN OF COLLATERALS^MP696'^MCAR(696,^0;1^Q"
^DD(691.31,.01,21,0)="^^2^2^2900122^^"
^DD(691.31,.01,21,1,0)="This allows the user to enter the left anterior descending arterior"
^DD(691.31,.01,21,2,0)="origin of collaterals (multple)."
^DD(691.31,.01,"DT")="2860210"
^DD(691.31,1,0)="RECEIVING VESSEL^P696'^MCAR(696,^0;2^Q"
^DD(691.31,1,21,0)="^^1^1^2920324^"
^DD(691.31,1,21,1,0)="This allows the user to  enter the receiving vessel."
^DD(691.31,1,"DT")="2860210"
^DD(691.31,"B","LAD ORIGIN OF COLLATERALS",.01)=""
^DD(691.31,"B","RECEIVING VESSEL",1)=""
^DD(691.31,"GL",0,1,.01)=""
^DD(691.31,"GL",0,2,1)=""
^DD(691.32,0)="CIRCUMFLEX SEGMENT SUB-FIELD^NL^2^4"
^DD(691.32,0,"DT")="2940823"
^DD(691.32,0,"NM","CIRCUMFLEX SEGMENT")=""
^DD(691.32,0,"UP")="691.1"
^DD(691.32,.01,0)="CIRCUMFLEX SEGMENT^M*P696'X^MCAR(696,^0;1^S DIC(""S"")=""I ($P(^(0),U,2)=""""C"""")!($P(^(0),U,2)=""""Y"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.32,.01,12)="Circumflex Segments only"
^DD(691.32,.01,12.1)="S DIC(""S"")=""I ($P(^(0),U,2)=""""C"""")!($P(^(0),U,2)=""""Y"""")"""
^DD(691.32,.01,21,0)="^^1^1^2891025^^"
^DD(691.32,.01,21,1,0)="This allows the user to enter multiple circumflex artery segments."
^DD(691.32,.01,23,0)="^^1^1^2921106^^^"
^DD(691.32,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.32,.01,"DT")="2870626"
^DD(691.32,1,0)="PERCENT NARROWING^P696.1'^MCAR(696.1,^0;2^Q"
^DD(691.32,1,21,0)="^^2^2^2920324^"
^DD(691.32,1,21,1,0)="This allows the user to enter the percent narrowing of the "
^DD(691.32,1,21,2,0)="circumflex artery segment."
^DD(691.32,1,23,0)="^^1^1^2921106^^^"
^DD(691.32,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.32,1,"DT")="2860210"
^DD(691.32,1.5,0)="PERCENT NARROWING #^NJ6,2^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.32,1.5,3)="Type a Percentage between 0 and 100, 2 Decimal Digits"
^DD(691.32,1.5,21,0)="^^2^2^2940823^"
^DD(691.32,1.5,21,1,0)="This allows the user to enter the percent narrowing of the circumflex"
^DD(691.32,1.5,21,2,0)="artery segment."
^DD(691.32,1.5,"DT")="2940823"
^DD(691.32,2,0)="MORPHOLOGY^P696.2'^MCAR(696.2,^0;3^Q"
^DD(691.32,2,21,0)="^^1^1^2920324^"
^DD(691.32,2,21,1,0)="This allows the user to enter the lesion morphology."
^DD(691.32,2,"DT")="2860210"
^DD(691.32,"B","CIRCUMFLEX SEGMENT",.01)=""
^DD(691.32,"B","MORPHOLOGY",2)=""
^DD(691.32,"B","PERCENT NARROWING",1)=""
^DD(691.32,"B","PERCENT NARROWING #",1.5)=""
^DD(691.32,"GL",0,1,.01)=""
^DD(691.32,"GL",0,2,1)=""
^DD(691.32,"GL",0,3,2)=""
^DD(691.32,"GL",0,4,1.5)=""
^DD(691.33,0)="CIR. ORIGIN OF COLLATERALS SUB-FIELD^NL^1^2"
^DD(691.33,0,"NM","CIR. ORIGIN OF COLLATERALS")=""
^DD(691.33,0,"UP")="691.1"
^DD(691.33,.01,0)="ORIGIN OF COLLATERALS^MP696'^MCAR(696,^0;1^Q"
^DD(691.33,.01,21,0)="^^2^2^2900122^^"
^DD(691.33,.01,21,1,0)="This allows the user to enter the origin of circumflex collaterals."
^DD(691.33,.01,21,2,0)="(multiple)"
^DD(691.33,.01,"DT")="2860210"
^DD(691.33,1,0)="RECEIVING VESSEL^P696'^MCAR(696,^0;2^Q"
^DD(691.33,1,21,0)="^^1^1^2920324^"
^DD(691.33,1,21,1,0)="This allows the user to enter the receiving vessel."
^DD(691.33,1,"DT")="2860210"
^DD(691.33,"B","ORIGIN OF COLLATERALS",.01)=""
^DD(691.33,"B","RECEIVING VESSEL",1)=""
^DD(691.33,"GL",0,1,.01)=""
^DD(691.33,"GL",0,2,1)=""
^DD(691.34,0)="FLUOROSCOPY SUB-FIELD^NL^.01^1"
^DD(691.34,0,"NM","FLUOROSCOPY")=""
^DD(691.34,0,"UP")="691.1"
^DD(691.34,.01,0)="FLUOROSCOPY^MS^AV:CALCIUM IN AREA OF AORTIC VALVE;MV:CALCIUM IN AREA OF MITRAL VALVE;MA:CALCIUM IN AREA OF MITRAL ANNULUS;LC:CALCIUM IN AREA OF LEFT CORONARIES;RC:CALCIUM IN AREA OF RIGHT CORONARIES;NO:NO CALCIUM NOTED;^0;1^Q"
^DD(691.34,.01,21,0)="^^2^2^2891025^^"
^DD(691.34,.01,21,1,0)="This allows the user to enter multiple visualization of calcium"
^DD(691.34,.01,21,2,0)="noted during the cardiac cath."
^DD(691.34,"B","FLUOROSCOPY",.01)=""
^DD(691.34,"GL",0,1,.01)=""
^DD(691.35,0)="DISTAL ANASTOMOSIS SUB-FIELD^NL^2^4"
^DD(691.35,0,"DT")="2940823"
^DD(691.35,0,"NM","DISTAL ANASTOMOSIS")=""
^DD(691.35,0,"UP")="691.1"
^DD(691.35,.01,0)="DISTAL ANASTOMOSIS^MP696'^MCAR(696,^0;1^Q"
^DD(691.35,.01,21,0)="^^1^1^2891025^^"
^DD(691.35,.01,21,1,0)="This allows the user to enter multiple distal anastamosis."
^DD(691.35,.01,"DT")="2860210"
^DD(691.35,1,0)="PERCENTAGE LESION^P696.1'^MCAR(696.1,^0;2^Q"
^DD(691.35,1,21,0)="^^2^2^2920324^"
^DD(691.35,1,21,1,0)="This allows the user to enter the percentage lesion of the"
^DD(691.35,1,21,2,0)="distal anastamosis."
^DD(691.35,1,"DT")="2860210"
^DD(691.35,1.5,0)="PERCENTAGE LESION #^NJ6,2^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.35,1.5,3)="Type a Percentage between 0 and 100, 2 Decimal Digits"
^DD(691.35,1.5,21,0)="^^2^2^2940823^"
^DD(691.35,1.5,21,1,0)="This allows the user to enter the percentage lesion of the distal"
^DD(691.35,1.5,21,2,0)="anastamosis."
^DD(691.35,1.5,"DT")="2940823"
^DD(691.35,2,0)="LOCATION OF LESION^P696.4'^MCAR(696.4,^0;3^Q"
^DD(691.35,2,21,0)="^^2^2^2920324^"
^DD(691.35,2,21,1,0)="This allows the user to enter the location of the lesion of the"
^DD(691.35,2,21,2,0)="distal anastamosis."
^DD(691.35,2,"DT")="2860210"
^DD(691.35,"B","DISTAL ANASTOMOSIS",.01)=""
^DD(691.35,"B","LOCATION OF LESION",2)=""
^DD(691.35,"B","PERCENTAGE LESION",1)=""
^DD(691.35,"B","PERCENTAGE LESION #",1.5)=""
^DD(691.35,"GL",0,1,.01)=""
^DD(691.35,"GL",0,2,1)=""
^DD(691.35,"GL",0,3,2)=""
^DD(691.35,"GL",0,4,1.5)=""
^DD(691.36,0)="ANGIOPLASTY SEGMENT SUB-FIELD^NL^6^9"
^DD(691.36,0,"DT")="2940823"
^DD(691.36,0,"NM","ANGIOPLASTY SEGMENT")=""
^DD(691.36,0,"UP")="691.1"
^DD(691.36,.01,0)="SEGMENT IF ANGIOPLASTY DONE^MP696'^MCAR(696,^0;1^Q"
^DD(691.36,.01,21,0)="^^1^1^2891025^"
^DD(691.36,.01,21,1,0)="This allows the user to enter multiple angioplasty segments."
^DD(691.36,.01,23,0)="^^1^1^2921106^^^"
^DD(691.36,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.36,.01,"DT")="2860210"
^DD(691.36,1,0)="STARTING % OBSTRUCTION^P696.1'^MCAR(696.1,^0;2^Q"
^DD(691.36,1,21,0)="^^1^1^2920324^"
^DD(691.36,1,21,1,0)="This allows the user to enter the starting percent obstruction."
^DD(691.36,1,23,0)="^^1^1^2921106^^^"
^DD(691.36,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.36,1,"DT")="2860210"
^DD(691.36,1.5,0)="STARTING % OBSTRUCTION #^NJ6,2^^3;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.36,1.5,3)="Type Starting Percentage between 0 and 100, 2 Decimal Digits"
^DD(691.36,1.5,21,0)="^^1^1^2940823^"
^DD(691.36,1.5,21,1,0)="This allow the user to enter the starting percent obstruction."
^DD(691.36,1.5,"DT")="2940823"
^DD(691.36,2,0)="RESULTING % OBSTRUCTION^P696.1'^MCAR(696.1,^0;3^Q"
^DD(691.36,2,21,0)="^^1^1^2920324^"
^DD(691.36,2,21,1,0)="This allows the user to enter the resulting percent obstruction."
^DD(691.36,2,23,0)="^^1^1^2921106^^^"
^DD(691.36,2,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.36,2,"DT")="2860210"
^DD(691.36,2.5,0)="RESULTING % OBSTRUCTION #^NJ6,2^^3;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.36,2.5,3)="Type in Resulting Percentage between 0 and 100, 2 Decimal Digits"
^DD(691.36,2.5,21,0)="^^1^1^2940823^"
^DD(691.36,2.5,21,1,0)="This allows the user to enter the resulting percent obstruction."
^DD(691.36,2.5,"DT")="2940823"
^DD(691.36,3,0)="STARTING GRADIENT^NJ3,0^^0;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.36,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (MM OF MERCURY)"
^DD(691.36,3,21,0)="^^1^1^2920324^"
^DD(691.36,3,21,1,0)="This allows the user to enter the starting gradient."
^DD(691.36,3,23,0)="^^1^1^2921106^^^"
^DD(691.36,3,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.36,4,0)="RESULTING GRADIENT^NJ3,0^^0;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.36,4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 100 (MM OF MERCURY)"
^DD(691.36,4,21,0)="^^1^1^2920324^"
^DD(691.36,4,21,1,0)="This allows the user to enter the resulting gradient."
^DD(691.36,5,0)="INFLATION PRESSURE IN ATM^691.37^^1;0"
^DD(691.36,5,21,0)="^^1^1^2920324^"
^DD(691.36,5,21,1,0)="This allows the user to enter inflation pressure in ATM."
^DD(691.36,6,0)="TOTAL INFLATION TIME (SEC)^NJ3,0^^2;1^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.36,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 200"
^DD(691.36,6,21,0)="^^1^1^2920324^"
^DD(691.36,6,21,1,0)="This allows the user to enter the total inflation time in seconds."
^DD(691.36,6,"DT")="2870320"
^DD(691.36,"B","INFLATION PRESSURE IN ATM",5)=""
^DD(691.36,"B","RESULTING % OBSTRUCTION",2)=""
^DD(691.36,"B","RESULTING % OBSTRUCTION #",2.5)=""
^DD(691.36,"B","RESULTING GRADIENT",4)=""
^DD(691.36,"B","SEGMENT IF ANGIOPLASTY DONE",.01)=""
^DD(691.36,"B","STARTING % OBSTRUCTION",1)=""
^DD(691.36,"B","STARTING % OBSTRUCTION #",1.5)=""
^DD(691.36,"B","STARTING GRADIENT",3)=""
^DD(691.36,"B","TOTAL INFLATION TIME (SEC)",6)=""
^DD(691.36,"GL",0,1,.01)=""
^DD(691.36,"GL",0,2,1)=""
^DD(691.36,"GL",0,3,2)=""
^DD(691.36,"GL",0,4,3)=""
^DD(691.36,"GL",0,5,4)=""
^DD(691.36,"GL",1,0,5)=""
^DD(691.36,"GL",2,1,6)=""
^DD(691.36,"GL",3,1,1.5)=""
^DD(691.36,"GL",3,2,2.5)=""
^DD(691.36,"SB",691.37,5)=""
^DD(691.37,0)="INFLATION PRESSURE IN ATM SUB-FIELD^NL^1^2"
^DD(691.37,0,"NM","INFLATION PRESSURE IN ATM")=""
^DD(691.37,0,"UP")="691.36"
^DD(691.37,.01,0)="INFLATION PRESSURE^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.37,.01,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.37,.01,21,0)="^^1^1^2880414^"
^DD(691.37,.01,21,1,0)="This field identifies between 0 and 99"
^DD(691.37,1,0)="INFLATION TIME IN SEC.^691.38^^1;0"
^DD(691.37,1,21,0)="^^1^1^2960815^^"
^DD(691.37,1,21,1,0)="This allows the user to enter the inflation time in seconds."
^DD(691.37,"B","INFLATION PRESSURE",.01)=""
^DD(691.37,"B","INFLATION TIME IN SEC.",1)=""
^DD(691.37,"GL",0,1,.01)=""
^DD(691.37,"GL",1,0,1)=""
^DD(691.37,"SB",691.38,1)=""
^DD(691.38,0)="INFLATION TIME IN SEC. SUB-FIELD^NL^.01^1"
^DD(691.38,0,"NM","INFLATION TIME IN SEC.")=""
^DD(691.38,0,"UP")="691.37"
^DD(691.38,.01,0)="INFLATION TIME IN SEC.^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.38,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999"
^DD(691.38,.01,21,0)="^^1^1^2920706^"
^DD(691.38,.01,21,1,0)="This allows the user to enter the inflation time in seconds"
^DD(691.38,"B","INFLATION TIME IN SEC.",.01)=""
^DD(691.38,"GL",0,1,.01)=""
^DD(691.39,0)="LEFT VENTRICULAR WALL MOTION SUB-FIELD^NL^1^2"
^DD(691.39,0,"DT")="2960327"
^DD(691.39,0,"NM","LEFT VENTRICULAR WALL MOTION")=""
^DD(691.39,0,"UP")="691.1"
^DD(691.39,.01,0)="LEFT VENTRICULAR WALL MOTION^M*P696.5'X^MCAR(696.5,^0;1^S DIC(""S"")=""I $P(^(0),U,2)"",D=""D"",DIC(""W"")=""W ?10,$P(^(0),U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.39,.01,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(696.5,"",D=""D"",DIC(""W"")=""W ?10,$P(^(0),U)"" D MIX^DIC1 S D=-1"
^DD(691.39,.01,12)="CHOOSES AND ORDERS HEART LOCATIONS"
^DD(691.39,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)"",D=""D"",DIC(""W"")=""W ?10,$P(^(0),U)"""
^DD(691.39,.01,21,0)="^^1^1^2910919^^"
^DD(691.39,.01,21,1,0)="This allows the user to enter multiple LV wall motion normality."
^DD(691.39,.01,"DT")="2911023"
^DD(691.39,1,0)="DESCRIPTION^*S^1:NORMAL;2:HYPOKINETIC;3:AKINETIC;4:DYSKINETIC;5:ANEURYSMAL;6:MILDLY HYPOKINETIC;7:SEVERELY HYPOKINETIC;^0;2^Q"
^DD(691.39,1,3)=""
^DD(691.39,1,12)="ENTRY OF 2-'HYPOKINETIC' NO LONGER ALLOWED, BUT WILL REMAIN FOR PRINT PURPOSES OF PAST DATA. USE '6' OR '7' FOR HYPOKINETIC ENTRY"
^DD(691.39,1,12.1)="S DIC(""S"")=""I Y'=2"""
^DD(691.39,1,21,0)="^^2^2^2960327^^"
^DD(691.39,1,21,1,0)="This allows the user to describe by codes the left ventricular"
^DD(691.39,1,21,2,0)="wall motion."
^DD(691.39,1,"DT")="2960327"
^DD(691.39,"B","DESCRIPTION",1)=""
^DD(691.39,"B","LEFT VENTRICULAR WALL MOTION",.01)=""
^DD(691.39,"GL",0,1,.01)=""
^DD(691.39,"GL",0,2,1)=""
^DD(691.4,0)="COMPLICATION SUB-FIELD^NL^.01^1"
^DD(691.4,0,"NM","COMPLICATION")=""
^DD(691.4,0,"UP")="691.1"
^DD(691.4,.01,0)="COMPLICATION^M*P696.9'^MCAR(696.9,^0;1^S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.4,.01,12)="CHOOSE ONLY COMPLICATIONS ASSOSCIATED WITH CARDIAC CATHERIZATIONS"
^DD(691.4,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",""""C"""",+Y))"""
^DD(691.4,.01,21,0)="^^1^1^2891025^"
^DD(691.4,.01,21,1,0)="This allows the user to enter multiple cardiac cath complication."
^DD(691.4,.01,23,0)="^^1^1^2921106^^^"
^DD(691.4,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.4,.01,"DT")="2881114"
^DD(691.4,"B","COMPLICATION",.01)=""
^DD(691.4,"GL",0,1,.01)=""
^DD(691.41,0)="CONCLUSION SUB-FIELD^NL^.01^1"
^DD(691.41,0,"NM","CONCLUSION")=""
^DD(691.41,0,"UP")="691.1"
^DD(691.41,.01,0)="CONCLUSION^W^^0;1^Q"
^DD(691.41,.01,21,0)="^^2^2^2891025^"
^DD(691.41,.01,21,1,0)="This allows the user to enter specific statements inreference to"
^DD(691.41,.01,21,2,0)="the cardiac cath."
^DD(691.41,.01,23,0)="^^1^1^2921106^^^"
^DD(691.41,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.41,"B","CONCLUSION",.01)=""
^DD(691.41,"GL",0,1,.01)=""
^DD(691.42,0)="PLAN SUB-FIELD^NL^.01^1"
^DD(691.42,0,"NM","PLAN")=""
^DD(691.42,0,"UP")="691.1"
^DD(691.42,.01,0)="PLAN^W^^0;1^Q"
^DD(691.42,.01,21,0)="^^2^2^2891025^"
^DD(691.42,.01,21,1,0)="This allows the user to enter specific statements inreference to"
^DD(691.42,.01,21,2,0)="the patients management plan."
^DD(691.42,.01,23,0)="^^1^1^2921106^^^"
^DD(691.42,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.42,"B","PLAN",.01)=""
^DD(691.42,"GL",0,1,.01)=""
^DD(691.43,0)="SYMPTOM SUB-FIELD^^.01^1"
^DD(691.43,0,"DIK")="MCXCATH"
^DD(691.43,0,"DT")="2960530"
^DD(691.43,0,"IX","B",691.43,.01)=""
^DD(691.43,0,"NM","SYMPTOM")=""
^DD(691.43,0,"UP")="691.1"
^DD(691.43,.01,0)="SYMPTOM^M*P695.5'^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""CATH"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.43,.01,1,0)="^.1"
^DD(691.43,.01,1,1,0)="691.43^B"
^DD(691.43,.01,1,1,1)="S ^MCAR(691.1,DA(1),.3,""B"",$E(X,1,30),DA)="""""
^DD(691.43,.01,1,1,2)="K ^MCAR(691.1,DA(1),.3,""B"",$E(X,1,30),DA)"
^DD(691.43,.01,3)="This entry will match one found in the Symptom file."
^DD(691.43,.01,12)="Choose symptoms applying to CATH or Cardiology only"
^DD(691.43,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""CATH"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"""
^DD(691.43,.01,21,0)="^^1^1^2960530^^^^"
^DD(691.43,.01,21,1,0)="This field contains the patient's physical complaints or symptoms."
^DD(691.43,.01,"DT")="2960530"
^DD(691.43,"B","SYMPTOM",.01)=""
^DD(691.43,"GL",0,1,.01)=""
^DD(691.43,"IX",.01)=""
^DD(691.44,0)="RISK FACTOR SUB-FIELD^^.01^1"
^DD(691.44,0,"IX","B",691.44,.01)=""
^DD(691.44,0,"NM","RISK FACTOR")=""
^DD(691.44,0,"UP")="691.1"
^DD(691.44,.01,0)="RISK FACTOR^MP695.4'^MCAR(695.4,^0;1^Q"
^DD(691.44,.01,1,0)="^.1"
^DD(691.44,.01,1,1,0)="691.44^B"
^DD(691.44,.01,1,1,1)="S ^MCAR(691.1,DA(1),.4,""B"",$E(X,1,30),DA)="""""
^DD(691.44,.01,1,1,2)="K ^MCAR(691.1,DA(1),.4,""B"",$E(X,1,30),DA)"
^DD(691.44,.01,3)="RELEVANT PAST HISTORY"
^DD(691.44,.01,21,0)="^^2^2^2910207^^"
^DD(691.44,.01,21,1,0)="This field contains the morbidity factors which this patient is most"
^DD(691.44,.01,21,2,0)="susceptible to."
^DD(691.44,.01,"DT")="2861007"
^DD(691.44,"B","RISK FACTOR",.01)=""
^DD(691.44,"GL",0,1,.01)=""
^DD(691.44,"IX",.01)=""
^DD(691.45,0)="OTHER INTERVENTION COMMENT SUB-FIELD^^.01^1"
^DD(691.45,0,"NM","OTHER INTERVENTION COMMENT")=""
^DD(691.45,0,"UP")="691.26"
^DD(691.45,.01,0)="OTHER INTERVENTION COMMENT^W^^0;1^Q"
^DD(691.45,.01,3)="Enter an Intervention comment in this word processing field."
^DD(691.45,.01,21,0)="^^2^2^2921006^"
^DD(691.45,.01,21,1,0)="This allows the user to enter comments about cardiac catheterization"
^DD(691.45,.01,21,2,0)="interventions used."
^DD(691.45,.01,"DT")="2861217"
^DD(691.45,"B","OTHER INTERVENTION COMMENT",.01)=""
^DD(691.45,"GL",0,1,.01)=""
^DD(691.46,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(691.46,0,"DT")="2930310"
^DD(691.46,0,"IX","B",691.46,.01)=""
^DD(691.46,0,"NM","ICD DIAGNOSIS")=""
^DD(691.46,0,"UP")="691.1"
^DD(691.46,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(691.46,.01,1,0)="^.1"
^DD(691.46,.01,1,1,0)="691.46^B"
^DD(691.46,.01,1,1,1)="S ^MCAR(691.1,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(691.46,.01,1,1,2)="K ^MCAR(691.1,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(691.46,.01,21,0)="^^3^3^2920102^^"
^DD(691.46,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(691.46,.01,21,2,0)="also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used"
^DD(691.46,.01,21,3,0)="in the future."
^DD(691.46,.01,23,0)="^^1^1^2921106^^^"
^DD(691.46,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.46,.01,"DT")="2930310"
^DD(691.46,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(691.46,.02,3)="Answer must be 1-80 characters in length."
^DD(691.46,.02,21,0)="^^1^1^2950629^"
^DD(691.46,.02,21,1,0)="This field allows the provider to add comments to the diagnostic findings."
^DD(691.46,.02,"DT")="2920102"
^DD(691.46,"B","ICD DIAGNOSIS",.01)=""
^DD(691.46,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(691.46,"GL",0,1,.01)=""
^DD(691.46,"GL",0,2,.02)=""
^DD(691.46,"IX",.01)=""
^DD(691.47,0)="LMCA NARROWING # SUB-FIELD^^1^2"
^DD(691.47,0,"DT")="2950516"
^DD(691.47,0,"IX","B",691.47,.01)=""
^DD(691.47,0,"NM","LMCA NARROWING #")=""
^DD(691.47,0,"UP")="691.1"
^DD(691.47,.01,0)="LMCA NARROWING #^MRNJ5,2X^^0;1^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X S:$D(X) DINUM=X"
^DD(691.47,.01,1,0)="^.1"
^DD(691.47,.01,1,1,0)="691.47^B"
^DD(691.47,.01,1,1,1)="S ^MCAR(691.1,DA(1),25.5,""B"",$E(X,1,30),DA)="""""
^DD(691.47,.01,1,1,2)="K ^MCAR(691.1,DA(1),25.5,""B"",$E(X,1,30),DA)"
^DD(691.47,.01,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(691.47,.01,21,0)="^^2^2^2960402^"
^DD(691.47,.01,21,1,0)="This allows the user to enter a left main coronary artery"
^DD(691.47,.01,21,2,0)="narrowing."
^DD(691.47,.01,"DT")="2950516"
^DD(691.47,1,0)="MORPHOLOGY^P696.2'^MCAR(696.2,^0;2^Q"
^DD(691.47,1,21,0)="^^2^2^2950629^"
^DD(691.47,1,21,1,0)="This field describes the the disease process which caused the lumenal"
^DD(691.47,1,21,2,0)="occlusion."
^DD(691.47,1,"DT")="2940823"
^DD(691.47,"B","LMCA NARROWING #",.01)=""
^DD(691.47,"B","MORPHOLOGY",1)=""
^DD(691.47,"GL",0,1,.01)=""
^DD(691.47,"GL",0,2,1)=""
^DD(691.47,"IX",.01)=""
^DD(691.47,"RQ",.01)=""
^DD(691.48,0)="STUDY TYPE SUB-FIELD^^.01^1"
^DD(691.48,0,"DT")="2960604"
^DD(691.48,0,"IX","B",691.48,.01)=""
^DD(691.48,0,"NM","STUDY TYPE")=""
^DD(691.48,0,"UP")="691"
^DD(691.48,.01,0)="STUDY TYPE^MS^1:TRANSTHORACIC/TRANSCUTANEOUS;2:TEE;3:EXERCISE STRESS;4:PHARMACOLOGIC STRESS;5:INTRA-OPERATIVE;6:CONTRAST;^0;1^Q"
^DD(691.48,.01,1,0)="^.1"
^DD(691.48,.01,1,1,0)="691.48^B"
^DD(691.48,.01,1,1,1)="S ^MCAR(691,DA(1),16,""B"",$E(X,1,30),DA)="""""
^DD(691.48,.01,1,1,2)="K ^MCAR(691,DA(1),16,""B"",$E(X,1,30),DA)"
^DD(691.48,.01,21,0)="^^1^1^2961010^^^"
^DD(691.48,.01,21,1,0)="This field is to track/monitor different types of echocardiographic studies."
^DD(691.48,.01,"DT")="2961010"
^DD(691.48,"B","STUDY TYPE",.01)=""
^DD(691.48,"GL",0,1,.01)=""
^DD(691.48,"IX",.01)=""
^DD(691.5,0)="FIELD^^2005^53"
^DD(691.5,0,"DDA")="N"
^DD(691.5,0,"DT")="2950413"
^DD(691.5,0,"ID",1)="S ZZ=$P(^(0),""^"",2) W ""   "",$S($D(^MCAR(690,ZZ,0))#2:$P(^DPT(ZZ,0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"") K ZZ"
^DD(691.5,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(691.5,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(691.5,0,"IX","AC",691.5,1)=""
^DD(691.5,0,"IX","AD",691.5,.01)=""
^DD(691.5,0,"IX","APCE",691.5,900)=""
^DD(691.5,0,"IX","B",691.5,.01)=""
^DD(691.5,0,"IX","C",691.5,1)=""
^DD(691.5,0,"IX","ES",691.5,1506)=""
^DD(691.5,0,"NM","ELECTROCARDIOGRAM (EKG)")=""
^DD(691.5,0,"PT",123,11)=""
^DD(691.5,0,"PT",123.03,.01)=""
^DD(691.5,0,"VR")="2.3"
^DD(691.5,0,"VRPK")="MEDICINE"
^DD(691.5,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.5,.01,1,0)="^.1"
^DD(691.5,.01,1,1,0)="691.5^B"
^DD(691.5,.01,1,1,1)="S ^MCAR(691.5,""B"",$E(X,1,30),DA)="""""
^DD(691.5,.01,1,1,2)="K ^MCAR(691.5,""B"",$E(X,1,30),DA)"
^DD(691.5,.01,1,2,0)="691.5^AD^MUMPS"
^DD(691.5,.01,1,2,1)="S MCARCDIE=""^MCAR(691.5,"" D CHGDTE1^MCARPROC"
^DD(691.5,.01,1,2,2)="S MCARCDIE=""^MCAR(691.5,"" D CHGDTE^MCARPROC"
^DD(691.5,.01,1,2,"%D",0)="^^3^3^2920420^^"
^DD(691.5,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.5,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent EKG procedure for this"
^DD(691.5,.01,1,2,"%D",3,0)="patient."
^DD(691.5,.01,3)="ENTER PATIENT'S NAME OR DATE AND TIME OF ELECTROCARDIOGRAM"
^DD(691.5,.01,21,0)="^^1^1^2900122^"
^DD(691.5,.01,21,1,0)="This field identifies the specific EKG procedure."
^DD(691.5,.01,23,0)="^^1^1^2921106^^^"
^DD(691.5,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.5,.01,"DT")="2870805"
^DD(691.5,.02,0)="ID^F^^.1;1^K:$L(X)>10!($L(X)<2) X"
^DD(691.5,.02,3)="Enter any unique identification number for this EKG,2 to 10 characters.  SSN need not be entered since it is already entered."
^DD(691.5,.02,21,0)="^^3^3^2900122^"
^DD(691.5,.02,21,1,0)="This field identifies the patient's identification number assigned by the"
^DD(691.5,.02,21,2,0)="medical facility.  In most cases it is the person's social"
^DD(691.5,.02,21,3,0)="security number."
^DD(691.5,.02,"DT")="2860408"
^DD(691.5,.03,0)="SUMMARY^SX^N:NORMAL;A:ABNORMAL;B:BORDERLINE;T:TECHNICALLY UNSATISFACTORY;^.2;1^Q"
^DD(691.5,.03,3)=""
^DD(691.5,.03,21,0)="^^2^2^2940404^^^"
^DD(691.5,.03,21,1,0)="This field contains the gross evaluation of"
^DD(691.5,.03,21,2,0)="the results of this procedure."
^DD(691.5,.03,23,0)="^^1^1^2940404^^^^"
^DD(691.5,.03,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,.03,"DT")="2940404"
^DD(691.5,.04,0)="SYMPTOM^691.51PA^^.3;0"
^DD(691.5,.04,21,0)="^^1^1^2900122^"
^DD(691.5,.04,21,1,0)="This field contains the patient's physical complaints or symptoms."
^DD(691.5,.05,0)="RISK FACTOR^691.52PA^^.4;0"
^DD(691.5,.05,21,0)="^^2^2^2900122^"
^DD(691.5,.05,21,1,0)="This field contains the morbidity factors which this patient "
^DD(691.5,.05,21,2,0)="is most susceptible to in regards to this procedure."
^DD(691.5,.06,0)="HEART MED^691.53PA^^2;0"
^DD(691.5,.06,21,0)="^^3^3^2900122^"
^DD(691.5,.06,21,1,0)="This field documents the cardiac medicines"
^DD(691.5,.06,21,2,0)="that the patient is taking at the time of"
^DD(691.5,.06,21,3,0)="this procedure (multiple)."
^DD(691.5,.07,0)="WEIGHT (LBS)^NJ3,0^^4;3^K:+X'=X!(X>500)!(X<10)!(X?.E1"".""1N.N) X"
^DD(691.5,.07,3)="TYPE A WHOLE NUMBER BETWEEN 10 AND 500"
^DD(691.5,.07,21,0)="^^2^2^2900122^"
^DD(691.5,.07,21,1,0)="The weight of the patient at the time of"
^DD(691.5,.07,21,2,0)="the procedure is stored here."
^DD(691.5,.07,"DT")="2870316"
^DD(691.5,.08,0)="HEIGHT (INCHES)^NJ2,0^^4;4^K:+X'=X!(X>96)!(X<36)!(X?.E1"".""1N.N) X"
^DD(691.5,.08,3)="TYPE A WHOLE NUMBER BETWEEN 36 AND 96"
^DD(691.5,.08,21,0)="^^1^1^2900122^^"
^DD(691.5,.08,21,1,0)="The height of the patient in inches at the time of the procedure."
^DD(691.5,.08,"DT")="2870316"
^DD(691.5,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(691.5,1,1,0)="^.1"
^DD(691.5,1,1,1,0)="691.5^C"
^DD(691.5,1,1,1,1)="S ^MCAR(691.5,""C"",$E(X,1,30),DA)="""""
^DD(691.5,1,1,1,2)="K ^MCAR(691.5,""C"",$E(X,1,30),DA)"
^DD(691.5,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.5,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(691.5,1,1,2,0)="691.5^AC^MUMPS"
^DD(691.5,1,1,2,1)="S MCARCDIE=""^MCAR(691.5,"" D CHGPAT^MCARPROC"
^DD(691.5,1,1,2,2)="S MCARCDIE=""^MCAR(691.5,"" D KILL^MCARPROC"
^DD(691.5,1,1,2,"%D",0)="^^3^3^2920420^"
^DD(691.5,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.5,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent EKG procedure for this"
^DD(691.5,1,1,2,"%D",3,0)="patient."
^DD(691.5,1,3)="Enter patient's name - Last, First MI"
^DD(691.5,1,21,0)="^^4^4^2900122^^"
^DD(691.5,1,21,1,0)="This field identifies the patient's last name followed by a "
^DD(691.5,1,21,2,0)="comma, followed by a space(optional), followed "
^DD(691.5,1,21,3,0)="by the first name, followed by a space,"
^DD(691.5,1,21,4,0)="followed by the middle initial."
^DD(691.5,1,23,0)="^^1^1^2921106^^^"
^DD(691.5,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,1,"DT")="2870710"
^DD(691.5,2,0)="TYPE OF EKG^S^S:STAT RETRIEVAL;R:ROUTINE;O:ORIGINAL;^0;3^Q"
^DD(691.5,2,3)="Enter code for the type of ECG/EKG."
^DD(691.5,2,21,0)="^^1^1^2891025^"
^DD(691.5,2,21,1,0)="This allows the user to enter the type of ECG/EKG."
^DD(691.5,2,"DT")="2890531"
^DD(691.5,3,0)="VENT. RATE^NJ3,0^^0;4^K:+X'=X!(X>400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.5,3,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 400"
^DD(691.5,3,21,0)="^^1^1^2891025^"
^DD(691.5,3,21,1,0)="This allows the user to enter the ventricular rate."
^DD(691.5,3,23,0)="^^1^1^2921106^^^"
^DD(691.5,3,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,3,"DT")="2870604"
^DD(691.5,4,0)="PR INTERVAL^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.5,4,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(691.5,4,21,0)="^^1^1^2891025^"
^DD(691.5,4,21,1,0)="This allows the user to enter ECG/EKG PR interval."
^DD(691.5,4,23,0)="^^1^1^2921106^^^"
^DD(691.5,4,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,4,"DT")="2860320"
^DD(691.5,5,0)="QRS DURATION^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.5,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(691.5,5,21,0)="^^1^1^2891025^"
^DD(691.5,5,21,1,0)="This allows the user to enter the ECG/EKG QRS duration."
^DD(691.5,5,23,0)="^^1^1^2921106^^^"
^DD(691.5,5,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,5,"DT")="2860320"
^DD(691.5,6,0)="QT^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.5,6,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(691.5,6,21,0)="^^1^1^2891025^"
^DD(691.5,6,21,1,0)="This allows the user to enter the QT interval."
^DD(691.5,6,23,0)="^^1^1^2921106^^^"
^DD(691.5,6,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,6,"DT")="2860320"
^DD(691.5,7,0)="QTC^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.5,7,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(691.5,7,21,0)="^^1^1^2891025^"
^DD(691.5,7,21,1,0)="This allows the user to enter the QTC interval."
^DD(691.5,7,"DT")="2860320"
^DD(691.5,8,0)="P AXIS^NJ3,0^^0;9^K:+X'=X!(X>360)!(X<-360)!(X?.E1"".""1N.N) X"
^DD(691.5,8,3)="Type a Number between -360 and 360, 0 Decimal Digits"
^DD(691.5,8,21,0)="^^1^1^2950413^^^^"
^DD(691.5,8,21,1,0)="This allows the user to enter the P axis."
^DD(691.5,8,"DT")="2950413"
^DD(691.5,9,0)="R AXIS^NJ3,0^^0;10^K:+X'=X!(X>360)!(X<-360)!(X?.E1"".""1N.N) X"
^DD(691.5,9,3)="Type a Number between -360 and 360, 0 Decimal Digits"
^DD(691.5,9,21,0)="^^1^1^2950413^^^^"
^DD(691.5,9,21,1,0)="This allows the user to enter the R axis."
^DD(691.5,9,"DT")="2950413"
^DD(691.5,10,0)="T AXIS^NJ3,0^^0;11^K:+X'=X!(X>360)!(X<-360)!(X?.E1"".""1N.N) X"
^DD(691.5,10,3)="Type a Number between -360 and 360, 0 Decimal Digits"
^DD(691.5,10,21,0)="^^1^1^2950413^^^^"
^DD(691.5,10,21,1,0)="This allows the user to enter the T axis."
^DD(691.5,10,"DT")="2950413"
^DD(691.5,11,0)="CONFIRMATION STATUS^S^C:CONFIRMED;U:UNCONFIRMED;^0;12^Q"
^DD(691.5,11,3)="Enter code for confirmation status."
^DD(691.5,11,21,0)="^^1^1^2891025^"
^DD(691.5,11,21,1,0)="This allows the user to enter the ECG/EKG confirmation status."
^DD(691.5,11,"DT")="2860320"
^DD(691.5,12,0)="INTERPRETED BY^*P200'^VA(200,^0;13^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.5,12,1,0)="^.1"
^DD(691.5,12,1,1,0)="^^TRIGGER^691.5^701"
^DD(691.5,12,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.5,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691.5,12,1,1,1.4)"
^DD(691.5,12,1,1,1.4)="S DIH=$S($D(^MCAR(691.5,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.5,12,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.5,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.5,12,1,1,2.1) X ^DD(691.5,12,1,1,2.4)"
^DD(691.5,12,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(691.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X"
^DD(691.5,12,1,1,2.4)="S DIH=$S($D(^MCAR(691.5,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.5,12,1,1,"%D",0)="^^1^1^2960423^"
^DD(691.5,12,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(691.5,12,1,1,"CREATE VALUE")="INTERNAL(#12)"
^DD(691.5,12,1,1,"DELETE VALUE")="INTERNAL(#12)"
^DD(691.5,12,1,1,"DT")="2960423"
^DD(691.5,12,1,1,"FIELD")="#701"
^DD(691.5,12,3)=""
^DD(691.5,12,12)="Check if this person holds the PROVIDER key."
^DD(691.5,12,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.5,12,21,0)="^^1^1^2941024^^^"
^DD(691.5,12,21,1,0)="This allows the user to enter the interpreting physician."
^DD(691.5,12,23,0)="^^1^1^2941024^^^^"
^DD(691.5,12,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,12,"DT")="2960423"
^DD(691.5,13,0)="COMPARISON STATEMENT^F^^1;1^K:$L(X)>100!($L(X)<4) X"
^DD(691.5,13,3)="ANSWER MUST BE 4-100 CHARACTERS IN LENGTH"
^DD(691.5,13,21,0)="^^1^1^2891025^"
^DD(691.5,13,21,1,0)="This allows the user to enter the ECG/EKG comparison statement."
^DD(691.5,13,23,0)="^^1^1^2921106^^^"
^DD(691.5,13,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,13,"DT")="2870225"
^DD(691.5,14,0)="INTERPRETATION CODE (RHYTHM)^691.54PA^^3;0"
^DD(691.5,14,21,0)="^^1^1^2891025^"
^DD(691.5,14,21,1,0)="This allows the user to enter multiple rhythm interpretation codes."
^DD(691.5,14,"DT")="2860423"
^DD(691.5,14.1,0)="INTERPRETATION CODE (CONFIG)^691.55PA^^5;0"
^DD(691.5,14.1,21,0)="^^1^1^2891025^"
^DD(691.5,14.1,21,1,0)="This allows the user to enter multiple configuration interpretation codes."
^DD(691.5,14.2,0)="INTERPRETATION CODE (PACING)^691.56PA^^6;0"
^DD(691.5,14.2,21,0)="^^1^1^2891025^"
^DD(691.5,14.2,21,1,0)="This allows the user to enter multiple pacing interpretation codes."
^DD(691.5,15,0)="DIASTOLIC BP^NJ3,0^^4;1^K:+X'=X!(X>300)!(X<20)!(X?.E1"".""1N.N) X"
^DD(691.5,15,3)="Type a Whole Number between 20 and 300"
^DD(691.5,15,21,0)="^^1^1^2891025^"
^DD(691.5,15,21,1,0)="This allows the user to enter the diastolic blood pressure."
^DD(691.5,15,"DT")="2880414"
^DD(691.5,16,0)="SYSTOLIC BP^NJ3,0^^4;2^K:+X'=X!(X>300)!(X<20)!(X?.E1"".""1N.N) X"
^DD(691.5,16,3)="Type a Whole Number between 20 and 300"
^DD(691.5,16,21,0)="^^1^1^2891025^"
^DD(691.5,16,21,1,0)="This allows the user to enter the systolic blood pressure."
^DD(691.5,16,"DT")="2880414"
^DD(691.5,17,0)="COMMENT^691.517^^7;0"
^DD(691.5,17,21,0)="^^1^1^2891025^"
^DD(691.5,17,21,1,0)="This allows the user to make specific comments regarding the ECG/EKG."
^DD(691.5,18,0)="WARD/CLINIC^P44'^SC(^8;1^Q"
^DD(691.5,18,3)="Enter the in-house patient address."
^DD(691.5,18,21,0)="^^1^1^2910913^^"
^DD(691.5,18,21,1,0)="This field identifies the in-house patient address."
^DD(691.5,18,"DT")="2910913"
^DD(691.5,20,0)="AUTO-INSTRUMENT DIAGNOSIS^691.57^^9;0"
^DD(691.5,20,21,0)="^^2^2^2900122^"
^DD(691.5,20,21,1,0)="This field contains the interpretation of the procedure"
^DD(691.5,20,21,2,0)="generated by the instrument(EKG monitor)."
^DD(691.5,20,23,0)="^^1^1^2921106^^^"
^DD(691.5,20,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691.5,21,0)="AUTOMATED INSTRUMENT DATA ?^D^^A;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.5,21,3)=""
^DD(691.5,21,11,0)="^.2LAP"
^DD(691.5,21,21,0)="^^2^2^2890920^"
^DD(691.5,21,21,1,0)="This field stores the last date that the ECG was successfully"
^DD(691.5,21,21,2,0)="transferred into DHCP system through the automated interface"
^DD(691.5,21,"DT")="2890920"
^DD(691.5,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(691.5,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(691.5,600,21,0)="^^2^2^2910415^"
^DD(691.5,600,21,1,0)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of"
^DD(691.5,600,21,2,0)="Patient Procedures'. "
^DD(691.5,600,23,0)="^^1^1^2921106^^^"
^DD(691.5,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,600,"DT")="2901128"
^DD(691.5,700,0)="ICD DIAGNOSIS^691.58P^^ICD;0"
^DD(691.5,700,21,0)="^^2^2^2930310^^^"
^DD(691.5,700,21,1,0)="This field identifies the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(691.5,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS subfield which will be used in the future."
^DD(691.5,700,23,0)="^^1^1^2930310^^^^"
^DD(691.5,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.5,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.5,701,5,1,0)="691.5^12^1"
^DD(691.5,701,9)="^"
^DD(691.5,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.5,701,21,0)="^^3^3^2920109^"
^DD(691.5,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(691.5,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(691.5,701,21,3,0)="use in transferring data to the PCC."
^DD(691.5,701,"DT")="2941025"
^DD(691.5,899,0)="MARKED FOR DELETION^S^1:MARKED FOR DELETION;^MFD;1^Q"
^DD(691.5,899,"DT")="2920731"
^DD(691.5,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(691.5,900,1,0)="^.1"
^DD(691.5,900,1,1,0)="691.5^APCE"
^DD(691.5,900,1,1,1)="S ^MCAR(691.5,""APCE"",$E(X,1,30),DA)="""""
^DD(691.5,900,1,1,2)="K ^MCAR(691.5,""APCE"",$E(X,1,30),DA)"
^DD(691.5,900,1,1,"%D",0)="^^1^1^2960517^^"
^DD(691.5,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(691.5,900,1,1,"DT")="2960517"
^DD(691.5,900,21,0)="^^2^2^2920728^^^"
^DD(691.5,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(691.5,900,21,2,0)="Visit File for use by Queryman."
^DD(691.5,900,"DT")="2960517"
^DD(691.5,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(691.5,1000,3)="Enter Consult Order."
^DD(691.5,1000,21,0)="^^3^3^2910709^"
^DD(691.5,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(691.5,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(691.5,1000,21,3,0)="Medicine package."
^DD(691.5,1000,"DT")="2910709"
^DD(691.5,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(691.5,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(691.5,1001,21,0)="^^3^3^2910816"
^DD(691.5,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(691.5,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(691.5,1001,21,3,0)="results are entered in the Medicine package."
^DD(691.5,1001,"DT")="2910816"
^DD(691.5,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(691.5,1500,"DT")="2930111"
^DD(691.5,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>30!($L(X)<1) X"
^DD(691.5,1501,3)="Answer must be 1-30 characters in length."
^DD(691.5,1501,"DT")="2930111"
^DD(691.5,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.5,1502,"DT")="2930111"
^DD(691.5,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(691.5,1503,"DT")="2930111"
^DD(691.5,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>40!($L(X)<1) X"
^DD(691.5,1504,3)="Answer must be 1-40 characters in length."
^DD(691.5,1504,"DT")="2930111"
^DD(691.5,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.5,1505,"DT")="2930111"
^DD(691.5,1506,0)="RELEASE STATUS^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASED ON-LINE VERIFIED;ROV:RELEASED OFF-LINE VERIFIED;RNV:RELEASED NOT VERIFIED;S:SUPERSEDED;SRV:RELEASED ON-LINE VERIFIED OF SUPERSEDED;SROV:RELEASED OFF-LINE VERIFIED OF SUPERSEDED;^ES;7^Q"
^DD(691.5,1506,1,0)="^.1"
^DD(691.5,1506,1,1,0)="691.5^ES"
^DD(691.5,1506,1,1,1)="S ^MCAR(691.5,""ES"",$E(X,1,30),DA)="""""
^DD(691.5,1506,1,1,2)="K ^MCAR(691.5,""ES"",$E(X,1,30),DA)"
^DD(691.5,1506,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.5,1506,1,1,"%D",1,0)="This cross-refernce allows look-up by release status."
^DD(691.5,1506,1,1,"DT")="2930119"
^DD(691.5,1506,"DT")="2931214"
^DD(691.5,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.5,1507,"DT")="2930111"
^DD(691.5,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.5,1508,"DT")="2930111"
^DD(691.5,1509,0)="SUPERSEDED^NJ13,0^^ES;10^K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.5,1509,3)="Type a Number between 0 and 9999999999999, 0 Decimal Digits"
^DD(691.5,1509,"DT")="2930111"
^DD(691.5,1510,0)="SUPERSEDED BY^NJ10,0^^ES;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.5,1510,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(691.5,1510,"DT")="2930111"
^DD(691.5,1511,0)="MARK FOR DELETION^S^1:MARK FOR DELETION;^ES;12^Q"
^DD(691.5,1511,"DT")="2930111"
^DD(691.5,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(691.5,1512,"DT")="2930212"
^DD(691.5,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(691.5,1513,3)="Answer must be 1-40 characters in length."
^DD(691.5,1513,"DT")="2930212"
^DD(691.5,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.5,1514,3)="Answer must be 1-30 characters in length."
^DD(691.5,1514,"DT")="2930212"
^DD(691.5,2005,0)="IMAGE^691.52005PA^^2005;0"
^DD(691.5,2005,21,0)="^^2^2^2910415^^"
^DD(691.5,2005,21,1,0)="This field points to an entry"
^DD(691.5,2005,21,2,0)="in the Image File."
^DD(691.5,"B","AUTO-INSTRUMENT DIAGNOSIS",20)=""
^DD(691.5,"B","AUTOMATED INSTRUMENT DATA ?",21)=""
^DD(691.5,"B","COMMENT",17)=""
^DD(691.5,"B","COMPARISON STATEMENT",13)=""
^DD(691.5,"B","CONFIRMATION STATUS",11)=""
^DD(691.5,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(691.5,"B","CREATION DATE",1514)=""
^DD(691.5,"B","DATE OF RELEASED",1507)=""
^DD(691.5,"B","DATE OF VERIFIED",1508)=""
^DD(691.5,"B","DATE/TIME",.01)=""
^DD(691.5,"B","DELETER DUZ",1512)=""
^DD(691.5,"B","DIASTOLIC BP",15)=""
^DD(691.5,"B","ENTERING DATE",1502)=""
^DD(691.5,"B","ENTERING DUZ",1500)=""
^DD(691.5,"B","GMRCO",1001)=""
^DD(691.5,"B","HEART MED",.06)=""
^DD(691.5,"B","HEIGHT (INCHES)",.08)=""
^DD(691.5,"B","ICD DIAGNOSIS",700)=""
^DD(691.5,"B","ID",.02)=""
^DD(691.5,"B","IMAGE",2005)=""
^DD(691.5,"B","INTERPRETATION CODE (CONFIG)",14.1)=""
^DD(691.5,"B","INTERPRETATION CODE (PACING)",14.2)=""
^DD(691.5,"B","INTERPRETATION CODE (RHYTHM)",14)=""
^DD(691.5,"B","INTERPRETED BY",12)=""
^DD(691.5,"B","MARK FOR DELETION",1511)=""
^DD(691.5,"B","MARKED FOR DELETION",899)=""
^DD(691.5,"B","MEDICAL PATIENT",1)=""
^DD(691.5,"B","ORIFN",1000)=""
^DD(691.5,"B","P AXIS",8)=""
^DD(691.5,"B","PCC POINTER",900)=""
^DD(691.5,"B","PR INTERVAL",4)=""
^DD(691.5,"B","PRIMARY PROVIDER",701)=""
^DD(691.5,"B","PROCEDURE SUMMARY",600)=""
^DD(691.5,"B","QRS DURATION",5)=""
^DD(691.5,"B","QT",6)=""
^DD(691.5,"B","QTC",7)=""
^DD(691.5,"B","R AXIS",9)=""
^DD(691.5,"B","RELEASE STATUS",1506)=""
^DD(691.5,"B","RISK FACTOR",.05)=""
^DD(691.5,"B","SIGNER VALIDATION CODE",1504)=""
^DD(691.5,"B","SUMMARY",.03)=""
^DD(691.5,"B","SUPERSEDED",1509)=""
^DD(691.5,"B","SUPERSEDED BY",1510)=""
^DD(691.5,"B","SUPERSEDED DATE",1513)=""
^DD(691.5,"B","SYMPTOM",.04)=""
^DD(691.5,"B","SYSTOLIC BP",16)=""
^DD(691.5,"B","T AXIS",10)=""
^DD(691.5,"B","TYPE OF EKG",2)=""
^DD(691.5,"B","VENT. RATE",3)=""
^DD(691.5,"B","VERIFIER DATE",1505)=""
^DD(691.5,"B","VERIFYING DUZ",1503)=""
^DD(691.5,"B","WARD/CLINIC",18)=""
^DD(691.5,"B","WEIGHT (LBS)",.07)=""
^DD(691.5,"GL",0,1,.01)=""
^DD(691.5,"GL",0,2,1)=""
^DD(691.5,"GL",0,3,2)=""
^DD(691.5,"GL",0,4,3)=""
^DD(691.5,"GL",0,5,4)=""
^DD(691.5,"GL",0,6,5)=""
^DD(691.5,"GL",0,7,6)=""
^DD(691.5,"GL",0,8,7)=""
^DD(691.5,"GL",0,9,8)=""
^DD(691.5,"GL",0,10,9)=""
^DD(691.5,"GL",0,11,10)=""
^DD(691.5,"GL",0,12,11)=""
^DD(691.5,"GL",0,13,12)=""
^DD(691.5,"GL",.1,1,.02)=""
^DD(691.5,"GL",.2,1,.03)=""
^DD(691.5,"GL",.2,2,600)=""
^DD(691.5,"GL",.3,0,.04)=""
^DD(691.5,"GL",.4,0,.05)=""
^DD(691.5,"GL",1,1,13)=""
^DD(691.5,"GL",2,0,.06)=""
^DD(691.5,"GL",3,0,14)=""
^DD(691.5,"GL",4,1,15)=""
^DD(691.5,"GL",4,2,16)=""
^DD(691.5,"GL",4,3,.07)=""
^DD(691.5,"GL",4,4,.08)=""
^DD(691.5,"GL",5,0,14.1)=""
^DD(691.5,"GL",6,0,14.2)=""
^DD(691.5,"GL",7,0,17)=""
^DD(691.5,"GL",8,1,18)=""
^DD(691.5,"GL",9,0,20)=""
^DD(691.5,"GL",2005,0,2005)=""
^DD(691.5,"GL","A",1,21)=""
^DD(691.5,"GL","ES",1,1500)=""
^DD(691.5,"GL","ES",2,1501)=""
^DD(691.5,"GL","ES",3,1502)=""
^DD(691.5,"GL","ES",4,1503)=""
^DD(691.5,"GL","ES",5,1504)=""
^DD(691.5,"GL","ES",6,1505)=""
^DD(691.5,"GL","ES",7,1506)=""
^DD(691.5,"GL","ES",8,1507)=""
^DD(691.5,"GL","ES",9,1508)=""
^DD(691.5,"GL","ES",10,1509)=""
^DD(691.5,"GL","ES",11,1510)=""
^DD(691.5,"GL","ES",12,1511)=""
^DD(691.5,"GL","ES",13,1512)=""
^DD(691.5,"GL","ES",14,1513)=""
^DD(691.5,"GL","ES",15,1514)=""
^DD(691.5,"GL","ICD",0,700)=""
^DD(691.5,"GL","MFD",1,899)=""
^DD(691.5,"GL","OR",1,1000)=""
^DD(691.5,"GL","OR",2,1001)=""
^DD(691.5,"GL","PCC",1,900)=""
^DD(691.5,"GL","PROV",1,701)=""
^DD(691.5,"IX",.01)=""
^DD(691.5,"IX",1)=""
^DD(691.5,"IX",12)=""
^DD(691.5,"IX",900)=""
^DD(691.5,"IX",1506)=""
^DD(691.5,"RQ",.01)=""
^DD(691.5,"RQ",1)=""
^DD(691.5,"RQ",600)=""
^DD(691.5,"SB",691.51,.04)=""
^DD(691.5,"SB",691.517,17)=""
^DD(691.5,"SB",691.52,.05)=""
^DD(691.5,"SB",691.52005,2005)=""
^DD(691.5,"SB",691.53,.06)=""
^DD(691.5,"SB",691.54,14)=""
^DD(691.5,"SB",691.55,14.1)=""
^DD(691.5,"SB",691.56,14.2)=""
^DD(691.5,"SB",691.57,20)=""
^DD(691.5,"SB",691.58,700)=""
^DD(691.51,0)="SYMPTOM SUB-FIELD^^.01^1"
^DD(691.51,0,"IX","B",691.51,.01)=""
^DD(691.51,0,"NM","SYMPTOM")=""
^DD(691.51,0,"UP")="691.5"
^DD(691.51,.01,0)="SYMPTOM^M*P695.5'^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.51,.01,1,0)="^.1"
^DD(691.51,.01,1,1,0)="691.51^B"
^DD(691.51,.01,1,1,1)="S ^MCAR(691.5,DA(1),.3,""B"",$E(X,1,30),DA)="""""
^DD(691.51,.01,1,1,2)="K ^MCAR(691.5,DA(1),.3,""B"",$E(X,1,30),DA)"
^DD(691.51,.01,3)="HISTORY OF PRESENT ILLNESS"
^DD(691.51,.01,12)="CHOOSE CARDIAC SCREENS ONLY"
^DD(691.51,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""C"""",+Y))"""
^DD(691.51,.01,21,0)="^^1^1^2900122^"
^DD(691.51,.01,21,1,0)="This field contains the patient's physical complaints or symptoms."
^DD(691.51,.01,"DT")="2880822"
^DD(691.51,"B","SYMPTOM",.01)=""
^DD(691.51,"GL",0,1,.01)=""
^DD(691.51,"IX",.01)=""
^DD(691.517,0)="COMMENT SUB-FIELD^^.01^1"
^DD(691.517,0,"NM","COMMENT")=""
^DD(691.517,0,"UP")="691.5"
^DD(691.517,.01,0)="COMMENT^W^^0;1^Q"
^DD(691.517,.01,3)="Enter specific comments regarding ECG/EKG."
^DD(691.517,.01,21,0)="^^1^1^2891025^"
^DD(691.517,.01,21,1,0)="This allows the user to make specific comments regarding the ECG/EKG."
^DD(691.517,.01,"DT")="2870807"
^DD(691.517,"B","COMMENT",.01)=""
^DD(691.517,"GL",0,1,.01)=""
^DD(691.52,0)="RISK FACTOR SUB-FIELD^^.01^1"
^DD(691.52,0,"IX","B",691.52,.01)=""
^DD(691.52,0,"NM","RISK FACTOR")=""
^DD(691.52,0,"UP")="691.5"
^DD(691.52,.01,0)="RISK FACTOR^MP695.4'^MCAR(695.4,^0;1^Q"
^DD(691.52,.01,1,0)="^.1"
^DD(691.52,.01,1,1,0)="691.52^B"
^DD(691.52,.01,1,1,1)="S ^MCAR(691.5,DA(1),.4,""B"",$E(X,1,30),DA)="""""
^DD(691.52,.01,1,1,2)="K ^MCAR(691.5,DA(1),.4,""B"",$E(X,1,30),DA)"
^DD(691.52,.01,3)="RELEVANT PAST HISTORY"
^DD(691.52,.01,21,0)="^^2^2^2900122^"
^DD(691.52,.01,21,1,0)="This field contains the morbidity factors which this patient "
^DD(691.52,.01,21,2,0)="is most susceptible to in regards to this procedure."
^DD(691.52,.01,"DT")="2860714"
^DD(691.52,"B","RISK FACTOR",.01)=""
^DD(691.52,"GL",0,1,.01)=""
^DD(691.52,"IX",.01)=""
^DD(691.52005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(691.52005,0,"DT")="2900713"
^DD(691.52005,0,"IX","B",691.52005,.01)=""
^DD(691.52005,0,"NM","IMAGE")=""
^DD(691.52005,0,"UP")="691.5"
^DD(691.52005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(691.52005,.01,1,0)="^.1"
^DD(691.52005,.01,1,1,0)="691.52005^B"
^DD(691.52005,.01,1,1,1)="S ^MCAR(691.5,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(691.52005,.01,1,1,2)="K ^MCAR(691.5,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(691.52005,.01,21,0)="^^2^2^2910415^^"
^DD(691.52005,.01,21,1,0)="This field points to an entry"
^DD(691.52005,.01,21,2,0)="in the Image File."
^DD(691.52005,.01,"DT")="2970630"
^DD(691.52005,"B","IMAGE",.01)=""
^DD(691.52005,"GL",0,1,.01)=""
^DD(691.52005,"IX",.01)=""
^DD(691.53,0)="HEART MED SUB-FIELD^^2^3"
^DD(691.53,0,"IX","B",691.53,.01)=""
^DD(691.53,0,"NM","HEART MED")=""
^DD(691.53,0,"UP")="691.5"
^DD(691.53,.01,0)="HEART MED^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.53,.01,1,0)="^.1"
^DD(691.53,.01,1,1,0)="691.53^B"
^DD(691.53,.01,1,1,1)="S ^MCAR(691.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(691.53,.01,1,1,2)="K ^MCAR(691.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(691.53,.01,3)="Enter cardiac medicine that the patient is taking at the time of this procedure."
^DD(691.53,.01,12)="CHOOSE CARDIAC MEDICATIONS ONLY"
^DD(691.53,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"""
^DD(691.53,.01,21,0)="^^3^3^2900122^"
^DD(691.53,.01,21,1,0)="This field documents the cardiac medicines"
^DD(691.53,.01,21,2,0)="that the patient is taking at the time of"
^DD(691.53,.01,21,3,0)="this procedure (multiple)."
^DD(691.53,.01,"DT")="2880822"
^DD(691.53,1,0)="DOSE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(691.53,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(691.53,1,21,0)="^^2^2^2920324^"
^DD(691.53,1,21,1,0)="This allows the user to enter in the dosage for the cardiac medicine"
^DD(691.53,1,21,2,0)="that the patient is taking at the time of this procedure."
^DD(691.53,1,"DT")="2861217"
^DD(691.53,2,0)="FREQUENCY^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(691.53,2,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(691.53,2,21,0)="^^2^2^2920324^"
^DD(691.53,2,21,1,0)="This allows the user to enter the time/number of times the patient"
^DD(691.53,2,21,2,0)="is to take the cardiac medicine."
^DD(691.53,2,"DT")="2880518"
^DD(691.53,"B","DOSE",1)=""
^DD(691.53,"B","FREQUENCY",2)=""
^DD(691.53,"B","HEART MED",.01)=""
^DD(691.53,"GL",0,1,.01)=""
^DD(691.53,"GL",0,2,1)=""
^DD(691.53,"GL",0,3,2)=""
^DD(691.53,"IX",.01)=""
^DD(691.54,0)="INTERPRETATION CODE (RHYTHM) SUB-FIELD^^1^2"
^DD(691.54,0,"IX","B",691.54,.01)=""
^DD(691.54,0,"NM","INTERPRETATION CODE (RHYTHM)")=""
^DD(691.54,0,"UP")="691.5"
^DD(691.54,.01,0)="INTERPRETATION CODE (RHYTHM)^M*P693.3'X^MCAR(693.3,^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.54,.01,1,0)="^.1"
^DD(691.54,.01,1,1,0)="691.54^B"
^DD(691.54,.01,1,1,1)="S ^MCAR(691.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(691.54,.01,1,1,2)="K ^MCAR(691.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(691.54,.01,3)="Enter rhythm interpretation code."
^DD(691.54,.01,12)="Rhythm Interpretation Codes Only"
^DD(691.54,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""R"""""""
^DD(691.54,.01,21,0)="^^1^1^2891025^"
^DD(691.54,.01,21,1,0)="This allows the user to enter multiple rhythm interpretation codes."
^DD(691.54,.01,"DT")="2870625"
^DD(691.54,1,0)="CODE MODIFIER^S^1:DEFINITE;2:PROBABLE;3:POSSIBLE;4:BORDERLINE;5:CONSIDER;6:CHANGES OR SERIAL;^0;2^Q"
^DD(691.54,1,3)="Enter code to describe rhythm."
^DD(691.54,1,21,0)="^^1^1^2920324^"
^DD(691.54,1,21,1,0)="This allows the user to describe the interpretation code (rhythm)."
^DD(691.54,1,"DT")="2870225"
^DD(691.54,"B","CODE MODIFIER",1)=""
^DD(691.54,"B","INTERPRETATION CODE (RHYTHM)",.01)=""
^DD(691.54,"GL",0,1,.01)=""
^DD(691.54,"GL",0,2,1)=""
^DD(691.54,"IX",.01)=""
^DD(691.55,0)="INTERPRETATION CODE (CONFIG) SUB-FIELD^^1^2"
^DD(691.55,0,"IX","B",691.55,.01)=""
^DD(691.55,0,"NM","INTERPRETATION CODE (CONFIG)")=""
^DD(691.55,0,"UP")="691.5"
^DD(691.55,.01,0)="INTERPRETATION CODE (CONFIG)^M*P693.3'X^MCAR(693.3,^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.55,.01,1,0)="^.1"
^DD(691.55,.01,1,1,0)="691.55^B"
^DD(691.55,.01,1,1,1)="S ^MCAR(691.5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(691.55,.01,1,1,2)="K ^MCAR(691.5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(691.55,.01,3)="Enter config interpretation code."
^DD(691.55,.01,12)="Screen for Configuration Codes only"
^DD(691.55,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(691.55,.01,21,0)="^^1^1^2891025^"
^DD(691.55,.01,21,1,0)="This allows the user to enter multiple config interpretation codes."
^DD(691.55,.01,"DT")="2870625"
^DD(691.55,1,0)="CODE MODIFIER^S^1:DEFINITE;2:PROBABLE;3:POSSIBLE;4:BORDERLINE;5:CONSIDER;6:CHANGES OR SERIAL;^0;2^Q"
^DD(691.55,1,3)="Enter type of interpretation code (config)."
^DD(691.55,1,21,0)="^^2^2^2920324^"
^DD(691.55,1,21,1,0)="This allows the user to describe the type of interpretation code"
^DD(691.55,1,21,2,0)="(config)."
^DD(691.55,1,"DT")="2870625"
^DD(691.55,"B","CODE MODIFIER",1)=""
^DD(691.55,"B","INTERPRETATION CODE (CONFIG)",.01)=""
^DD(691.55,"GL",0,1,.01)=""
^DD(691.55,"GL",0,2,1)=""
^DD(691.55,"IX",.01)=""
^DD(691.56,0)="INTERPRETATION CODE (PACING) SUB-FIELD^^1^2"
^DD(691.56,0,"IX","B",691.56,.01)=""
^DD(691.56,0,"NM","INTERPRETATION CODE (PACING)")=""
^DD(691.56,0,"UP")="691.5"
^DD(691.56,.01,0)="INTERPRETATION CODE (PACING)^M*P693.3'X^MCAR(693.3,^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.56,.01,1,0)="^.1"
^DD(691.56,.01,1,1,0)="691.56^B"
^DD(691.56,.01,1,1,1)="S ^MCAR(691.5,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(691.56,.01,1,1,2)="K ^MCAR(691.5,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(691.56,.01,3)="Enter pacing interpretation code."
^DD(691.56,.01,12)="SCREEN FOR PACING"
^DD(691.56,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""P"""""""
^DD(691.56,.01,21,0)="^^1^1^2891025^"
^DD(691.56,.01,21,1,0)="This allows the user to enter multiple pacing interpretation codes."
^DD(691.56,.01,"DT")="2870625"
^DD(691.56,1,0)="CODE MODIFIER^S^1:DEFINITE;2:PROBABLE;3:POSSIBLE;4:BORDERLINE;5:CONSIDER;6:CHANGES OR SERIAL;^0;2^Q"
^DD(691.56,1,3)="Enter interpretation code (pacing)."
^DD(691.56,1,21,0)="^^2^2^2920324^"
^DD(691.56,1,21,1,0)="This allows the user to describe the type of interpretation code"
^DD(691.56,1,21,2,0)="(pacing)."
^DD(691.56,1,"DT")="2870625"
^DD(691.56,"B","CODE MODIFIER",1)=""
^DD(691.56,"B","INTERPRETATION CODE (PACING)",.01)=""
^DD(691.56,"GL",0,1,.01)=""
^DD(691.56,"GL",0,2,1)=""
^DD(691.56,"IX",.01)=""
^DD(691.57,0)="AUTO-INSTRUMENT DIAGNOSIS SUB-FIELD^^.01^1"
^DD(691.57,0,"NM","AUTO-INSTRUMENT DIAGNOSIS")=""
^DD(691.57,0,"UP")="691.5"
^DD(691.57,.01,0)="AUTO-INSTRUMENT DIAGNOSIS^WL^^0;1^Q"
^DD(691.57,.01,3)="Enter interpretation of the procedure generated by the instrument (EKG monitor).\"
^DD(691.57,.01,21,0)="^^2^2^2900122^"
^DD(691.57,.01,21,1,0)="This field contains the interpretation of the procedure"
^DD(691.57,.01,21,2,0)="generated by the instrument(EKG monitor)."
^DD(691.57,.01,23,0)="^^1^1^2921106^^^"
^DD(691.57,.01,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691.57,.01,"DT")="2890419"
^DD(691.57,"B","AUTO-INSTRUMENT DIAGNOSIS",.01)=""
^DD(691.57,"GL",0,1,.01)=""
^DD(691.58,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(691.58,0,"DT")="2930310"
^DD(691.58,0,"IX","B",691.58,.01)=""
^DD(691.58,0,"NM","ICD DIAGNOSIS")=""
^DD(691.58,0,"UP")="691.5"
^DD(691.58,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(691.58,.01,1,0)="^.1"
^DD(691.58,.01,1,1,0)="691.58^B"
^DD(691.58,.01,1,1,1)="S ^MCAR(691.5,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(691.58,.01,1,1,2)="K ^MCAR(691.5,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(691.58,.01,21,0)="^^2^2^2920102^^"
^DD(691.58,.01,21,1,0)="This field identifies the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(691.58,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS subfield which will be used in the future."
^DD(691.58,.01,23,0)="^^1^1^2921106^^^"
^DD(691.58,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.58,.01,"DT")="2930310"
^DD(691.58,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(691.58,.02,3)="Answer must be 1-80 characters in length."
^DD(691.58,.02,23,0)="^^1^1^2921106^^^"
^DD(691.58,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.58,.02,"DT")="2920102"
^DD(691.58,"B","ICD DIAGNOSIS",.01)=""
^DD(691.58,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(691.58,"GL",0,1,.01)=""
^DD(691.58,"GL",0,2,.02)=""
^DD(691.58,"IX",.01)=""
^DD(691.6,0)="FIELD^^1515^97"
^DD(691.6,0,"DT")="2960530"
^DD(691.6,0,"ID",1)="S ZZ=+$P(^(0),""^"",2) W ""   "",$S($D(^MCAR(690,ZZ,0))#2:$P(^DPT(ZZ,0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"") K ZZ"
^DD(691.6,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(691.6,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(691.6,0,"IX","AC",691.6,1)=""
^DD(691.6,0,"IX","AD",691.6,.01)=""
^DD(691.6,0,"IX","APCE",691.6,900)=""
^DD(691.6,0,"IX","B",691.6,.01)=""
^DD(691.6,0,"IX","C",691.6,1)=""
^DD(691.6,0,"IX","ES",691.6,1506)=""
^DD(691.6,0,"NM","HOLTER")=""
^DD(691.6,0,"PT",123,11)=""
^DD(691.6,0,"PT",123.03,.01)=""
^DD(691.6,0,"VR")="2.3"
^DD(691.6,0,"VRPK")="MEDICINE"
^DD(691.6,.01,0)="HOOK-UP DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,.01,1,0)="^.1"
^DD(691.6,.01,1,1,0)="691.6^B"
^DD(691.6,.01,1,1,1)="S ^MCAR(691.6,""B"",$E(X,1,30),DA)="""""
^DD(691.6,.01,1,1,2)="K ^MCAR(691.6,""B"",$E(X,1,30),DA)"
^DD(691.6,.01,1,2,0)="691.6^AD^MUMPS"
^DD(691.6,.01,1,2,1)="S MCARCDIE=""^MCAR(691.6,"" D CHGDTE1^MCARPROC"
^DD(691.6,.01,1,2,2)="S MCARCDIE=""^MCAR(691.6,"" D CHGDTE^MCARPROC"
^DD(691.6,.01,1,2,"%D",0)="^^3^3^2920420^"
^DD(691.6,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.6,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent Holter procedure for this"
^DD(691.6,.01,1,2,"%D",3,0)="patient."
^DD(691.6,.01,3)="ENTER PATIENT'S NAME OR DATE AND TIME OF HOLTER PROCEDURE"
^DD(691.6,.01,21,0)="^^1^1^2900122^"
^DD(691.6,.01,21,1,0)="This field identifies the specific Holter procedure."
^DD(691.6,.01,23,0)="^^1^1^2921106^^^"
^DD(691.6,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.6,.01,"DT")="2870805"
^DD(691.6,.02,0)="ID^F^^.1;1^K:$L(X)>10!($L(X)<2) X"
^DD(691.6,.02,3)="Enter any unique identification number for this HOLTER procedure, 2 to 10 characters.  SSN need not be entered since this has already been entered."
^DD(691.6,.02,21,0)="^^4^4^2900122^"
^DD(691.6,.02,21,1,0)="This field identifies the patient's identification number"
^DD(691.6,.02,21,2,0)="assigned by the medical facility.  In most"
^DD(691.6,.02,21,3,0)="cases it is the person's social security"
^DD(691.6,.02,21,4,0)="number."
^DD(691.6,.02,"DT")="2860408"
^DD(691.6,.03,0)="SUMMARY^RS^N:NORMAL;A:ABNORMAL;B:BORDERLINE;T:TECHNICALLY UNSATISFACTORY;^.2;1^Q"
^DD(691.6,.03,3)="This field identifies the result of the Holter procedure."
^DD(691.6,.03,21,0)="^^2^2^2910417^^^"
^DD(691.6,.03,21,1,0)="This field contains the gross evaluation of the results "
^DD(691.6,.03,21,2,0)="of this procedure."
^DD(691.6,.03,23,0)="^^1^1^2921106^^^"
^DD(691.6,.03,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,.03,"DT")="2870813"
^DD(691.6,.04,0)="SYMPTOM^691.66PA^^.3;0"
^DD(691.6,.04,21,0)="^^1^1^2960530^^"
^DD(691.6,.04,21,1,0)="This field contains the patient's physical complaints or symptoms."
^DD(691.6,.05,0)="RISK FACTOR^691.67PA^^.4;0"
^DD(691.6,.05,21,0)="^^3^3^2900122^"
^DD(691.6,.05,21,1,0)="This field contains the morbidity factors"
^DD(691.6,.05,21,2,0)="which this patient is most susceptible to"
^DD(691.6,.05,21,3,0)="in regards to this procedure."
^DD(691.6,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(691.6,1,1,0)="^.1"
^DD(691.6,1,1,1,0)="691.6^C"
^DD(691.6,1,1,1,1)="S ^MCAR(691.6,""C"",$E(X,1,30),DA)="""""
^DD(691.6,1,1,1,2)="K ^MCAR(691.6,""C"",$E(X,1,30),DA)"
^DD(691.6,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.6,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(691.6,1,1,2,0)="691.6^AC^MUMPS"
^DD(691.6,1,1,2,1)="S MCARCDIE=""^MCAR(691.6,"" D CHGPAT^MCARPROC"
^DD(691.6,1,1,2,2)="S MCARCDIE=""^MCAR(691.6,"" D KILL^MCARPROC"
^DD(691.6,1,1,2,"%D",0)="^^3^3^2920420^"
^DD(691.6,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.6,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent Holter procedure for this"
^DD(691.6,1,1,2,"%D",3,0)="patient."
^DD(691.6,1,3)="Enter patient's last name, followed by a comma, followed by a space, followed by the first name, followed by a space, followed by the middle initial."
^DD(691.6,1,21,0)="^^4^4^2930601^^"
^DD(691.6,1,21,1,0)="This field identifies the patient's last name, followed by"
^DD(691.6,1,21,2,0)="a comma, followed by a space(optional),"
^DD(691.6,1,21,3,0)="followed by the first name, followed by a"
^DD(691.6,1,21,4,0)="space, followed by the middle initial."
^DD(691.6,1,23,0)="^^1^1^2930601^^^^"
^DD(691.6,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.6,1,"DT")="2870710"
^DD(691.6,2,0)="HT IN^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<50)!(X?.E1"".""1N.N) X"
^DD(691.6,2,3)="TYPE A WHOLE NUMBER BETWEEN 50 AND 100"
^DD(691.6,2,21,0)="^^2^2^2900122^^"
^DD(691.6,2,21,1,0)="This field contains the patient's height"
^DD(691.6,2,21,2,0)="in inches at the time of the procedure."
^DD(691.6,3,0)="WT LBS^NJ3,0^^0;4^K:+X'=X!(X>350)!(X<50)!(X?.E1"".""1N.N) X"
^DD(691.6,3,3)="TYPE A WHOLE NUMBER BETWEEN 50 AND 350"
^DD(691.6,3,21,0)="^^2^2^2900122^"
^DD(691.6,3,21,1,0)="This field contains the weight of the "
^DD(691.6,3,21,2,0)="patient at the time of the procedure."
^DD(691.6,4,0)="REQUESTED BY^*P200'^VA(200,^0;5^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.6,4,3)="Enter medical provider that ordered this procedure."
^DD(691.6,4,12)="Check if this person holds the PROVIDER key."
^DD(691.6,4,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.6,4,21,0)="^^2^2^2930706^^"
^DD(691.6,4,21,1,0)="This field identifies the medical provider"
^DD(691.6,4,21,2,0)="who ordered this procedure."
^DD(691.6,4,"DT")="2940512"
^DD(691.6,5,0)="DATE REQUESTED^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,5,3)="Enter date/time procedure is ordered."
^DD(691.6,5,21,0)="^^1^1^2900122^"
^DD(691.6,5,21,1,0)="This field identifies the time/date the procedure was ordered."
^DD(691.6,5.5,0)="REASON FOR STUDY^691.65SA^^8;0"
^DD(691.6,5.5,21,0)="^^1^1^2900221^^"
^DD(691.6,5.5,21,1,0)="This field contains the rationale for ordering this procedure."
^DD(691.6,5.5,23,0)="^^1^1^2921106^^^"
^DD(691.6,5.5,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(691.6,5.8,0)="OTHER INDICATIONS^691.68^^10;0"
^DD(691.6,5.8,21,0)="^^2^2^2910417^"
^DD(691.6,5.8,21,1,0)="This field identifies field is used to define indications "
^DD(691.6,5.8,21,2,0)="not included in the Reason for Study set."
^DD(691.6,5.8,23,0)="^^1^1^2921106^^^"
^DD(691.6,5.8,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(691.6,6,0)="APPROVED BY^*P200'^VA(200,^0;7^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.6,6,3)="Enter medical provider that approved the request for this procedure."
^DD(691.6,6,12)="Check if this person holds the PROVIDER key."
^DD(691.6,6,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.6,6,21,0)="^^2^2^2900123^^^"
^DD(691.6,6,21,1,0)="This field identifies the medical provider who"
^DD(691.6,6,21,2,0)="approved the request for this procedure."
^DD(691.6,6,"DT")="2940512"
^DD(691.6,7,0)="DATE APPROVED^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,7,3)="Enter date procedure request was approved."
^DD(691.6,7,21,0)="^^2^2^2900123^^"
^DD(691.6,7,21,1,0)="This field is used to document the date of "
^DD(691.6,7,21,2,0)="procedure request approval."
^DD(691.6,8,0)="APPOINTMENT DATE^D^^0;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,8,3)="Enter date procedure is/was scheduled."
^DD(691.6,8,21,0)="^^2^2^2900122^"
^DD(691.6,8,21,1,0)="This field contains the date this procedure"
^DD(691.6,8,21,2,0)="is/was scheduled."
^DD(691.6,10,0)="HOOK-UP BY^*P200'^VA(200,^0;11^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.6,10,3)="Enter medical provider that physically initiated this procedure."
^DD(691.6,10,12)="Only providers can be selected."
^DD(691.6,10,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.6,10,21,0)="^^2^2^2940512^^^"
^DD(691.6,10,21,1,0)="This field identifies the medical provider who"
^DD(691.6,10,21,2,0)="physically initiated this procedure."
^DD(691.6,10,"DT")="2940512"
^DD(691.6,11,0)="RETURN DATE & TIME^D^^0;12^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,11,3)="Enter date/time the patient is scheduled to return.  This date is automatically set to the appointment date/time plus 24 hours by the system."
^DD(691.6,11,21,0)="^^3^3^2900123^^"
^DD(691.6,11,21,1,0)="This field contains the time/date which the patient "
^DD(691.6,11,21,2,0)="is scheduled for return.  This date is automatically "
^DD(691.6,11,21,3,0)="set to the appointment time/date plus 24 hours by the system."
^DD(691.6,12,0)="SCANNED BY^*P200'^VA(200,^0;13^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.6,12,3)="Enter medical provider that performed Holter scan."
^DD(691.6,12,12)="Only providers can be selected."
^DD(691.6,12,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.6,12,21,0)="^^2^2^2900122^"
^DD(691.6,12,21,1,0)="This field documents the medical provider"
^DD(691.6,12,21,2,0)="who performed the Holter scan."
^DD(691.6,12,"DT")="2940512"
^DD(691.6,13,0)="SCANNED DATE^D^^0;14^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,13,3)="Enter date the scanning procedure was performed."
^DD(691.6,13,21,0)="^^2^2^2900122^"
^DD(691.6,13,21,1,0)="This field documents the date the "
^DD(691.6,13,21,2,0)="scanning procedure was performed."
^DD(691.6,14,0)="REVIEWED BY^*P200'^VA(200,^0;15^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.6,14,1,0)="^.1"
^DD(691.6,14,1,1,0)="^^TRIGGER^691.6^701"
^DD(691.6,14,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.6,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691.6,14,1,1,1.4)"
^DD(691.6,14,1,1,1.4)="S DIH=$S($D(^MCAR(691.6,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.6,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.6,14,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.6,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.6,14,1,1,2.1) X ^DD(691.6,14,1,1,2.4)"
^DD(691.6,14,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(691.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X"
^DD(691.6,14,1,1,2.4)="S DIH=$S($D(^MCAR(691.6,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.6,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.6,14,1,1,"%D",0)="^^1^1^2960423^"
^DD(691.6,14,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(691.6,14,1,1,"CREATE VALUE")="INTERNAL(#14)"
^DD(691.6,14,1,1,"DELETE VALUE")="INTERNAL(#14)"
^DD(691.6,14,1,1,"DT")="2960423"
^DD(691.6,14,1,1,"FIELD")="#701"
^DD(691.6,14,3)="Enter the medical provider that reviewed this procedure."
^DD(691.6,14,12)="Only providers can be selected."
^DD(691.6,14,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.6,14,21,0)="^^2^2^2900123^^"
^DD(691.6,14,21,1,0)="This field identifies the medical provider"
^DD(691.6,14,21,2,0)="who reviewed this procedure."
^DD(691.6,14,23,0)="^^1^1^2921106^^^"
^DD(691.6,14,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.6,14,"DT")="2960423"
^DD(691.6,15,0)="REVIEW DATE^D^^0;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,15,3)="Enter the date the review occurred."
^DD(691.6,15,21,0)="^^2^2^2900123^^^"
^DD(691.6,15,21,1,0)="This field documents the"
^DD(691.6,15,21,2,0)="date the review occurred."
^DD(691.6,16,0)="PATIENT CATEGORY^S^I:INPATIENT;O:OUTPATIENT;^0;17^Q"
^DD(691.6,16,3)="Enter code for inpatient or outpatient status."
^DD(691.6,16,21,0)="^^1^1^2900122^"
^DD(691.6,16,21,1,0)="This field defines either inpatient or outpatient status."
^DD(691.6,17,0)="WARD/CLINIC^P44'^SC(^0;18^Q"
^DD(691.6,17,3)=""
^DD(691.6,17,21,0)="^^1^1^2910913^^"
^DD(691.6,17,21,1,0)="This field identifies the in house address of the patient."
^DD(691.6,17,"DT")="2910913"
^DD(691.6,18,0)="HEART MED^691.61PA^^1;0"
^DD(691.6,18,21,0)="^^3^3^2900122^"
^DD(691.6,18,21,1,0)="This field contains the multiple cardiac medicines "
^DD(691.6,18,21,2,0)="that the patient was taking at the time of this"
^DD(691.6,18,21,3,0)="procedure."
^DD(691.6,19,0)="HOLTER RUN NUMBER^NJ5,0^^2;1^K:+X'=X!(X>99999)!(X<2)!(X?.E1"".""1N.N) X"
^DD(691.6,19,3)="TYPE A WHOLE NUMBER BETWEEN 2 AND 99999"
^DD(691.6,19,21,0)="^^2^2^2900122^"
^DD(691.6,19,21,1,0)="This field contains the facility generated"
^DD(691.6,19,21,2,0)="procedure number."
^DD(691.6,20,0)="RECORDER NUMBER^NJ5,0^^2;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.6,20,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(691.6,20,21,0)="^^1^1^2900122^^"
^DD(691.6,20,21,1,0)="This field identifies the recorder used in this procedure."
^DD(691.6,21,0)="BATTERY NUMBER^NJ1,0^^2;3^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.6,21,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 5"
^DD(691.6,21,21,0)="^^1^1^2900123^^"
^DD(691.6,21,21,1,0)="This field identifies the battery used in this procedure."
^DD(691.6,22,0)="MALFUNCTIONS^S^Y:YES;N:NO;^2;4^Q"
^DD(691.6,22,3)="Enter code for whether or not any procedure malfunction occurred."
^DD(691.6,22,21,0)="^^1^1^2900122^"
^DD(691.6,22,21,1,0)="This field documents whether any procedure malfunction occurred."
^DD(691.6,23,0)="MALFUNCTION TYPE^691.62^^3;0"
^DD(691.6,23,21,0)="^^2^2^2900122^"
^DD(691.6,23,21,1,0)="This free text field provides documentation or comments"
^DD(691.6,23,21,2,0)="regarding the malfunction."
^DD(691.6,24,0)="TAPE QUALITY^S^G:GOOD;P:POOR;U:UNREADABLE;^4;1^Q"
^DD(691.6,24,3)="Enter code for gross evaluation of tape quality."
^DD(691.6,24,21,0)="^^2^2^2940714^^"
^DD(691.6,24,21,1,0)="This contains the gross evaluation of the"
^DD(691.6,24,21,2,0)="tape quality."
^DD(691.6,25,0)="TOTAL HOURS^NJ2,0^^4;2^K:+X'=X!(X>99)!(X<2)!(X?.E1"".""1N.N) X"
^DD(691.6,25,3)="TYPE A WHOLE NUMBER BETWEEN 2 AND 99"
^DD(691.6,25,21,0)="^^2^2^2900122^"
^DD(691.6,25,21,1,0)="This field documents the length in"
^DD(691.6,25,21,2,0)="hours of this procedure."
^DD(691.6,26,0)="READABLE HOURS^NJ2,0^^4;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,26,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(691.6,26,21,0)="^^2^2^2900122^"
^DD(691.6,26,21,1,0)="This field documents the length in hours"
^DD(691.6,26,21,2,0)="of distortion free procedure readings."
^DD(691.6,27,0)="AVERAGE HR^NJ3,0^^4;4^K:+X'=X!(X>200)!(X<20)!(X?.E1"".""1N.N) X"
^DD(691.6,27,3)="TYPE A WHOLE NUMBER BETWEEN 20 AND 200"
^DD(691.6,27,21,0)="^^2^2^2900122^"
^DD(691.6,27,21,1,0)="This field contains the average heart rate for the entire"
^DD(691.6,27,21,2,0)="Holter session."
^DD(691.6,27,23,0)="^^1^1^2921106^^^"
^DD(691.6,27,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,28,0)="MAX HR^NJ3,0^^4;5^K:+X'=X!(X>300)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.6,28,3)="TYPE A WHOLE NUMBER BETWEEN 40 AND 300"
^DD(691.6,28,21,0)="^^2^2^2900122^^"
^DD(691.6,28,21,1,0)="This field identifies documents the greatest heart rate"
^DD(691.6,28,21,2,0)="that was monitored during this procedure."
^DD(691.6,28,23,0)="^^1^1^2921106^^^"
^DD(691.6,28,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,28,"DT")="2920710"
^DD(691.6,29,0)="TIME MAX HR^F^^4;6^K:$L(X)>7!($L(X)<5)!'(X?.2N1"":""2N1""AM""!(X?.2N1"":""2N1""PM"")) X"
^DD(691.6,29,3)="Time Maximum Heart rate occurred in format HH:MM followed by AM or PM           Ex: 11:45AM or 6:33PM"
^DD(691.6,29,21,0)="^^2^2^2900122^"
^DD(691.6,29,21,1,0)="This field identifies field documents the exact time"
^DD(691.6,29,21,2,0)="at which maximum heart rate occurred."
^DD(691.6,29,"DT")="2870320"
^DD(691.6,30,0)="MIN HR^NJ3,0^^4;7^K:+X'=X!(X>200)!(X<10)!(X?.E1"".""1N.N) X"
^DD(691.6,30,3)="TYPE A WHOLE NUMBER BETWEEN 10 AND 200"
^DD(691.6,30,21,0)="^^2^2^2900122^^"
^DD(691.6,30,21,1,0)="This field identifies documents the lowest heart rate"
^DD(691.6,30,21,2,0)="that was monitored during this procedure."
^DD(691.6,30,"DT")="2861103"
^DD(691.6,31,0)="TIME MIN HR^F^^4;8^K:$L(X)>7!($L(X)<5)!'(X?.2N1"":""2N1""AM""!(X?.2N1"":""2N1""PM"")) X"
^DD(691.6,31,3)="Time Minimum Heart rate occurred in format HH:MM followed by AM or PM           Ex: 11:22AM or 5:07PM"
^DD(691.6,31,21,0)="^^2^2^2900122^"
^DD(691.6,31,21,1,0)="This documents the time at which minimum"
^DD(691.6,31,21,2,0)="heart rate occurred during this procedure."
^DD(691.6,31,"DT")="2870320"
^DD(691.6,32,0)="QRS TOTAL^NJ6,0^^4;9^K:+X'=X!(X>220000)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(691.6,32,3)="TYPE A WHOLE NUMBER BETWEEN 1000 AND 220000"
^DD(691.6,32,21,0)="^^2^2^2940714^^^^"
^DD(691.6,32,21,1,0)="This field identifies is the total number of ventricular complexes"
^DD(691.6,32,21,2,0)="generated (monitored) during this procedure."
^DD(691.6,32,"DT")="2861103"
^DD(691.6,33,0)="VPBS (VENT)^NJ5,0^^4;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,33,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(691.6,33,21,0)="^^2^2^2940714^^^^"
^DD(691.6,33,21,1,0)="This field identifies is the total number of ventricular"
^DD(691.6,33,21,2,0)="ectopic beats monitored during this procedure."
^DD(691.6,33,"DT")="2870226"
^DD(691.6,34,0)="VPBS PERCENT (VENT)^CJ8,1^^ ; ^X ^DD(691.6,34,9.3) S X=X*100,X=$S(Y(691.6,34,2):Y(691.6,34,3),Y(691.6,34,4):Y(691.6,34,5),Y(691.6,34,6):X) S X=$J(X,0,1)"
^DD(691.6,34,9)="^"
^DD(691.6,34,9.01)="691.6^33;691.6^32"
^DD(691.6,34,9.1)="$S('#32:"""",'#33:"""",1:#33/#32*100)"
^DD(691.6,34,9.2)="S Y(691.6,34,1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"""") S X='$P(Y(691.6,34,1),U,9),Y(691.6,34,2)=X S X="""",Y(691.6,34,3)=X S X='$P(Y(691.6,34,1),U,10)"
^DD(691.6,34,9.3)="X ^DD(691.6,34,9.2) S Y(691.6,34,4)=X S X="""",Y(691.6,34,5)=X S X=1,Y(691.6,34,6)=X S X=$P(Y(691.6,34,1),U,10),X=$S($P(Y(691.6,34,1),U,9):X/$P(Y(691.6,34,1),U,9),1:""*******"")"
^DD(691.6,34,21,0)="^^1^1^2940714^^^^"
^DD(691.6,34,21,1,0)="This field identifies is computed from VPBS(VENT)/QRS TOTAL."
^DD(691.6,34,"DT")="2861231"
^DD(691.6,35,0)="AVE/HR^NJ4,0^^4;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,35,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(691.6,35,21,0)="^^2^2^2910417^"
^DD(691.6,35,21,1,0)="This field identifies the average rate of premature ventricular ectopy per"
^DD(691.6,35,21,2,0)="hour. "
^DD(691.6,36,0)="MAX/HR^NJ4,0^^4;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,36,3)="Highest PVC total per one hour. 0 to 9999"
^DD(691.6,36,21,0)="^^2^2^2900227^^"
^DD(691.6,36,21,1,0)="This field identifies is the maximum number of ventricular ectopy"
^DD(691.6,36,21,2,0)="monitored during any hour of this procedure."
^DD(691.6,37,0)="ISOLATED (VENT)^NJ5,0^^4;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,37,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(691.6,37,21,0)="^^2^2^2900122^"
^DD(691.6,37,21,1,0)="This field identifies is the total number of isolated"
^DD(691.6,37,21,2,0)="ventricular ectopy."
^DD(691.6,37,"DT")="2861103"
^DD(691.6,38,0)="BIGEMINY (VENT)^NJ4,0^^4;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,38,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(691.6,38,21,0)="^^2^2^2900123^^^"
^DD(691.6,38,21,1,0)="This field identifies is the total number of ventricular ectopy"
^DD(691.6,38,21,2,0)="occurring in a bigeminal pattern during this procedure."
^DD(691.6,39,0)="COUPLETS (VENT)^NJ4,0^^4;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,39,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9999"
^DD(691.6,39,21,0)="^^2^2^2900821^^"
^DD(691.6,39,21,1,0)="This field identifies is the total number of ventricular ectopy"
^DD(691.6,39,21,2,0)="occurring in a couplet pattern during this procedure."
^DD(691.6,40,0)="NUM OF RUNS 3 OR MORE (VENT)^NJ5,0^^4;16^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,40,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 10000"
^DD(691.6,40,21,0)="^^3^3^2900123^"
^DD(691.6,40,21,1,0)="This field identifies is the total number of occurrences of"
^DD(691.6,40,21,2,0)="ventricular ectopy in groups of 3 or more"
^DD(691.6,40,21,3,0)="monitored during this procedure."
^DD(691.6,40,"DT")="2861103"
^DD(691.6,40.5,0)="RUNS 100 BPM OR MORE (VENT)^NJ3,0^^9;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,40.5,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.6,40.5,21,0)="^^3^3^2900123^^"
^DD(691.6,40.5,21,1,0)="This field identifies is the total number of occurrences of"
^DD(691.6,40.5,21,2,0)="ventricular tachycardia monitored during this"
^DD(691.6,40.5,21,3,0)="procedure."
^DD(691.6,40.5,"DT")="2870623"
^DD(691.6,41,0)="BEATS IN RUNS (VENT)^NJ5,0^^4;17^K:+X'=X!(X>99999)!(X<3)!(X?.E1"".""1N.N) X"
^DD(691.6,41,3)="TYPE A WHOLE NUMBER BETWEEN 3 AND 99999"
^DD(691.6,41,21,0)="^^3^3^2900123^^"
^DD(691.6,41,21,1,0)="This field identifies is the total number of ventricular"
^DD(691.6,41,21,2,0)="ectopy occurring in groups of 3 or more"
^DD(691.6,41,21,3,0)="monitored during this procedure."
^DD(691.6,41,"DT")="2861103"
^DD(691.6,42,0)="BEATS LONGEST RUN (VENT)^NJ4,0^^4;18^K:+X'=X!(X>9999)!(X<3)!(X?.E1"".""1N.N) X"
^DD(691.6,42,3)="TYPE A WHOLE NUMBER BETWEEN 3 AND 9999"
^DD(691.6,42,21,0)="^^3^3^2900123^"
^DD(691.6,42,21,1,0)="This field identifies is the number of ventricular complexes"
^DD(691.6,42,21,2,0)="that occurred in the longest ventricular"
^DD(691.6,42,21,3,0)="tachycardia event monitored during this procedure."
^DD(691.6,42,23,0)="^^1^1^2921106^^^"
^DD(691.6,42,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,42,"DT")="2861103"
^DD(691.6,43,0)="BEATS FASTEST RUN (VENT)^NJ4,0^^4;19^K:+X'=X!(X>9999)!(X<3)!(X?.E1"".""1N.N) X"
^DD(691.6,43,3)="TYPE A WHOLE NUMBER BETWEEN 3 AND 9999"
^DD(691.6,43,21,0)="^^4^4^2900123^"
^DD(691.6,43,21,1,0)="This field identifies is the total number of ventricular"
^DD(691.6,43,21,2,0)="ectopy occurring in the fastest run of"
^DD(691.6,43,21,3,0)="ventricular ectopy monitored during this"
^DD(691.6,43,21,4,0)="procedure."
^DD(691.6,43,23,0)="^^1^1^2921106^^^"
^DD(691.6,43,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,43,"DT")="2861103"
^DD(691.6,44,0)="BPM IN FASTEST RUN (VENT)^NJ3,0^^4;20^K:+X'=X!(X>300)!(X<20)!(X?.E1"".""1N.N) X"
^DD(691.6,44,3)="TYPE A WHOLE NUMBER BETWEEN 20 AND 300"
^DD(691.6,44,21,0)="^^3^3^2900123^"
^DD(691.6,44,21,1,0)="This field identifies is the highest ventricular rate"
^DD(691.6,44,21,2,0)="occurring in ectopic runs of 3 or more"
^DD(691.6,44,21,3,0)="monitored during this procedure."
^DD(691.6,45,0)="ATRIAL BEATS TOTAL^NJ6,0^^4;21^K:+X'=X!(X>220000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,45,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 220000"
^DD(691.6,45,21,0)="^^2^2^2900123^^"
^DD(691.6,45,21,1,0)="This field identifies is the sum of all P waves monitored"
^DD(691.6,45,21,2,0)="during this procedure."
^DD(691.6,45,"DT")="2861103"
^DD(691.6,46,0)="ECTOPICS (ATR)^NJ6,0^^4;22^K:+X'=X!(X>220000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,46,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 220000"
^DD(691.6,46,21,0)="^^3^3^2900123^^"
^DD(691.6,46,21,1,0)="This field identifies is the total number of atrial "
^DD(691.6,46,21,2,0)="complexes of non-SA node origin monitored"
^DD(691.6,46,21,3,0)="during this procedure."
^DD(691.6,46,"DT")="2861103"
^DD(691.6,47,0)="ECTOPICS PERCENT (ATR)^CJ8,1X^^ ; ^X ^DD(691.6,47,9.3) S X=X*100,X=$S(Y(691.6,47,2):Y(691.6,47,3),Y(691.6,47,4):Y(691.6,47,5),Y(691.6,47,6):X) S X=$J(X,0,1) S:X?1""0""1"".""1""0"" X="""""
^DD(691.6,47,9)="^"
^DD(691.6,47,9.01)="691.6^45;691.6^46"
^DD(691.6,47,9.1)="$S('#46:"""",'#45:"""",1:#46/#45*100)"
^DD(691.6,47,9.2)="S Y(691.6,47,1)=$S($D(^MCAR(691.6,D0,4)):^(4),1:"""") S X='$P(Y(691.6,47,1),U,22),Y(691.6,47,2)=X S X="""",Y(691.6,47,3)=X S X='$P(Y(691.6,47,1),U,21)"
^DD(691.6,47,9.3)="X ^DD(691.6,47,9.2) S Y(691.6,47,4)=X S X="""",Y(691.6,47,5)=X S X=1,Y(691.6,47,6)=X S X=$P(Y(691.6,47,1),U,22),X=$S($P(Y(691.6,47,1),U,21):X/$P(Y(691.6,47,1),U,21),1:""*******"")"
^DD(691.6,47,21,0)="^^1^1^2900221^^"
^DD(691.6,47,21,1,0)="This field identifies is computed from ECTOPICS/ATRIAL BEATS TOTAL."
^DD(691.6,47,"DT")="2870512"
^DD(691.6,48,0)="AV/H (ATR)^NJ3,0^^4;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,48,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(691.6,48,21,0)="^^1^1^2910417^^"
^DD(691.6,48,21,1,0)="This field identifies the average rate of supraventricular ectopy per hour."
^DD(691.6,49,0)="MAX/H (ATR)^NJ3,0^^4;24^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,49,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(691.6,49,21,0)="^^2^2^2900227^^"
^DD(691.6,49,21,1,0)="This field identifies is the maximum number of atrial ectopy"
^DD(691.6,49,21,2,0)="monitored during any hour of this procedure."
^DD(691.6,50,0)="ISOLATED (ATR)^NJ5,0^^4;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,50,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(691.6,50,21,0)="^^2^2^2900123^"
^DD(691.6,50,21,1,0)="This field identifies is the total number of single atrial"
^DD(691.6,50,21,2,0)="ectopy monitored during this procedure."
^DD(691.6,50,"DT")="2870227"
^DD(691.6,50.5,0)="COUPLETS (ATR)^NJ4,0^^4;26^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,50.5,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(691.6,50.5,21,0)="^^2^2^2910417^"
^DD(691.6,50.5,21,1,0)="This field is used to quantify the amount of back-to-back"
^DD(691.6,50.5,21,2,0)="PVC's or PVC's occurring in pairs."
^DD(691.6,50.5,23,0)="^^1^1^2921106^^^"
^DD(691.6,50.5,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,50.5,"DT")="2900821"
^DD(691.6,51,0)="BLOCKED APC (ATR)^NJ5,0^^6;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,51,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999"
^DD(691.6,51,21,0)="^^2^2^2900123^"
^DD(691.6,51,21,1,0)="This field identifies is the total number of non-conducted"
^DD(691.6,51,21,2,0)="atrial ectopy monitored during this procedure."
^DD(691.6,51,"DT")="2870227"
^DD(691.6,52,0)="NUM. RUNS SVT (ATR)^NJ3,0^^6;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,52,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(691.6,52,21,0)="^^3^3^2900123^"
^DD(691.6,52,21,1,0)="This field identifies is the total number of occurrences"
^DD(691.6,52,21,2,0)="of groups of supraventricular tachycardia"
^DD(691.6,52,21,3,0)="monitored during this procedure."
^DD(691.6,53,0)="BTS IN RUNS (ATR)^NJ3,0^^6;3^K:+X'=X!(X>999)!(X<2)!(X?.E1"".""1N.N) X"
^DD(691.6,53,3)="TYPE A WHOLE NUMBER BETWEEN 2 AND 999"
^DD(691.6,53,21,0)="^^3^3^2900123^"
^DD(691.6,53,21,1,0)="This field identifies is the average number of atrial ectopy"
^DD(691.6,53,21,2,0)="occurring in groups of 3 or more monitored during"
^DD(691.6,53,21,3,0)="this procedure."
^DD(691.6,54,0)="BTS LONGEST RUN (ATR)^NJ3,0^^6;4^K:+X'=X!(X>999)!(X<2)!(X?.E1"".""1N.N) X"
^DD(691.6,54,3)="TYPE A WHOLE NUMBER BETWEEN 2 AND 999"
^DD(691.6,54,21,0)="^^2^2^2900123^"
^DD(691.6,54,21,1,0)="This field identifies is the total number of supraventricular ectopy"
^DD(691.6,54,21,2,0)="in the largest group monitored during this procedure."
^DD(691.6,55,0)="BTS FASTEST RUN (ATR)^NJ3,0^^6;5^K:+X'=X!(X>300)!(X<3)!(X?.E1"".""1N.N) X"
^DD(691.6,55,3)="TYPE A WHOLE NUMBER BETWEEN 3 AND 300"
^DD(691.6,55,21,0)="^^2^2^2900123^^"
^DD(691.6,55,21,1,0)="This field identifies is the total number of atrial ectopy monitored "
^DD(691.6,55,21,2,0)="during the fastest run of atrial tachycardia."
^DD(691.6,55,"DT")="2870226"
^DD(691.6,56,0)="BPM FASTEST RUN (ATR)^NJ3,0^^6;6^K:+X'=X!(X>300)!(X<10)!(X?.E1"".""1N.N) X"
^DD(691.6,56,3)="TYPE A WHOLE NUMBER BETWEEN 10 AND 300"
^DD(691.6,56,21,0)="^^2^2^2900123^"
^DD(691.6,56,21,1,0)="This field identifies is the fastest rate of atrial tachycardia"
^DD(691.6,56,21,2,0)="monitored during this procedure(beats/minute)."
^DD(691.6,57,0)="HEART BLOCK^S^A:ABSENT;FD:FIRST DEGREE BLOCK;MI:MOBITZ I SECOND DEGREE, FREQ, RARE;MII:MOBITZ II SECOND DEGREE, FREQ, RARE;TD:THIRD DEGREE HEART BLOCK, FREQ, RARE;^6;7^Q"
^DD(691.6,57,3)="Enter code for degree of heart block monitored during this procedure."
^DD(691.6,57,21,0)="^^2^2^2900123^"
^DD(691.6,57,21,1,0)="This field contains the degree of heart block"
^DD(691.6,57,21,2,0)="monitored during this procedure."
^DD(691.6,57,23,0)="^^1^1^2921106^^^"
^DD(691.6,57,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,58,0)="PAUSES (SINUS)^S^Y:YES;N:NO;^6;8^Q"
^DD(691.6,58,3)="Enter code for whether sinus pauses were monitired during this procedure."
^DD(691.6,58,21,0)="^^2^2^2900123^"
^DD(691.6,58,21,1,0)="This field indicates whether sinus pauses were"
^DD(691.6,58,21,2,0)="monitored during this procedure."
^DD(691.6,59,0)="LONGEST SINUS PAUSE^NJ4,1^^6;9^K:+X'=X!(X>10)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(691.6,59,3)="Type a Number between .1 and 10, 1 Decimal Digit"
^DD(691.6,59,21,0)="^^3^3^2900123^"
^DD(691.6,59,21,1,0)="This field identifies is the length of the longest sinus pause"
^DD(691.6,59,21,2,0)="monitored during this procedure in the range of .1"
^DD(691.6,59,21,3,0)="and 10 seconds."
^DD(691.6,59,"DT")="2871106"
^DD(691.6,60,0)="PAUSES (VENT)^S^Y:YES;N:NO;^6;10^Q"
^DD(691.6,60,3)="Enter code fo whether occurrence of ventricular pauses were monitored during this procedure."
^DD(691.6,60,21,0)="^^2^2^2900123^^"
^DD(691.6,60,21,1,0)="This field indicates the occurrence of ventricular"
^DD(691.6,60,21,2,0)="pauses monitored during this procedure."
^DD(691.6,61,0)="LONGEST PAUSE (VENT)^NJ4,1^^6;11^K:+X'=X!(X>10)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(691.6,61,3)="Type a Number between .1 and 10, 1 Decimal Digit"
^DD(691.6,61,21,0)="^^3^3^2900123^"
^DD(691.6,61,21,1,0)="This field identifies is the longest occurrence of ventricular"
^DD(691.6,61,21,2,0)="pause monitored during this procedure in the"
^DD(691.6,61,21,3,0)="range of .1 and 10 seconds."
^DD(691.6,61,"DT")="2871106"
^DD(691.6,62,0)="INTERPRETATION^691.63^^7;0"
^DD(691.6,62,21,0)="^^4^4^2900123^"
^DD(691.6,62,21,1,0)="This free text field contains the clinical "
^DD(691.6,62,21,2,0)="evaluation of the patient's cardiac condition"
^DD(691.6,62,21,3,0)="based on the information collected by this"
^DD(691.6,62,21,4,0)="procedure."
^DD(691.6,62,23,0)="^^1^1^2921106^^^"
^DD(691.6,62,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691.6,63,0)="COMMENT^691.64^^5;0"
^DD(691.6,63,21,0)="^^2^2^2900123^"
^DD(691.6,63,21,1,0)="This free text field provides an area for the medical"
^DD(691.6,63,21,2,0)="provider to remark on the data collected in this procedure."
^DD(691.6,64,0)="ST LEVEL^NJ4,2^^9;2^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(691.6,64,3)="Type The Number in Millimeters between 0 and 5, 2 Decimal Digits"
^DD(691.6,64,21,0)="^^3^3^2900123^"
^DD(691.6,64,21,1,0)="This field identifies is the level of ST segment deviation from baseline"
^DD(691.6,64,21,2,0)="monitored during this procedure in the range of 0 and 5 "
^DD(691.6,64,21,3,0)="millimeters using 2 decimal digits."
^DD(691.6,64,23,0)="^^1^1^2921106^^^"
^DD(691.6,64,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,64,"DT")="2870923"
^DD(691.6,65,0)="ST LEVEL DEP/ELEV^S^D-SY:DEPRESSION WITH SYMPTOMS;D:DEPRESSION WITHOUT SYMPTOMS;E-SY:ELEVATION WITH SYMPTOMS;E:ELEVATION WITHOUT SYMPTOMS;^9;3^Q"
^DD(691.6,65,3)=""
^DD(691.6,65,21,0)="^^2^2^2900123^"
^DD(691.6,65,21,1,0)="This field contains the evaluation of ST segment deviation"
^DD(691.6,65,21,2,0)="monitored during this procedure."
^DD(691.6,65,23,0)="^^1^1^2921106^^^"
^DD(691.6,65,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,65,"DT")="2870923"
^DD(691.6,66,0)="AUTOMATED INSTRUMENT DATA^D^^A;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,66,3)="Enter last date that ECG was successfully transferred into the DHCP system through the automated interface."
^DD(691.6,66,21,0)="^^2^2^2900510^"
^DD(691.6,66,21,1,0)="This field stores the last date that the ECG was successfully"
^DD(691.6,66,21,2,0)="transferred into the DHCP system through the automated interface."
^DD(691.6,66,"DT")="2900510"
^DD(691.6,67,0)="VENDOR^F^^11;1^K:$L(X)>30!($L(X)<4) X"
^DD(691.6,67,3)="The algorithms used develop the values  generated by the Holter recording devices are vendor specific."
^DD(691.6,67,21,0)="^^1^1^2910417^"
^DD(691.6,67,21,1,0)="This field is used to identify the Holter System Manufacturer."
^DD(691.6,67,"DT")="2901206"
^DD(691.6,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(691.6,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(691.6,600,21,0)="^^2^2^2910417^"
^DD(691.6,600,21,1,0)="This 1-79 character field will be displayed on the Summary of Patient"
^DD(691.6,600,21,2,0)="Procedures. "
^DD(691.6,600,23,0)="^^1^1^2921106^^^"
^DD(691.6,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,600,"DT")="2901128"
^DD(691.6,700,0)="ICD DIAGNOSIS^691.69P^^ICD;0"
^DD(691.6,700,21,0)="^^2^2^2920102^^"
^DD(691.6,700,21,1,0)="This field identifies the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(691.6,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS subfield which will be used in the future."
^DD(691.6,700,23,0)="^^1^1^2921106^^^"
^DD(691.6,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.6,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.6,701,5,1,0)="691.6^14^1"
^DD(691.6,701,9)="^"
^DD(691.6,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.6,701,21,0)="^^3^3^2920109^"
^DD(691.6,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(691.6,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(691.6,701,21,3,0)="use in transferring data to the PCC."
^DD(691.6,701,"DT")="2941025"
^DD(691.6,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(691.6,900,1,0)="^.1"
^DD(691.6,900,1,1,0)="691.6^APCE"
^DD(691.6,900,1,1,1)="S ^MCAR(691.6,""APCE"",$E(X,1,30),DA)="""""
^DD(691.6,900,1,1,2)="K ^MCAR(691.6,""APCE"",$E(X,1,30),DA)"
^DD(691.6,900,1,1,"%D",0)="^^1^1^2960517^^"
^DD(691.6,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(691.6,900,1,1,"DT")="2960517"
^DD(691.6,900,21,0)="^^2^2^2920728^^^"
^DD(691.6,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(691.6,900,21,2,0)="Visit File for use by Queryman."
^DD(691.6,900,"DT")="2960517"
^DD(691.6,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(691.6,1000,3)="Enter Consult Order."
^DD(691.6,1000,21,0)="^^3^3^2910709^"
^DD(691.6,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(691.6,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(691.6,1000,21,3,0)="Medicine package."
^DD(691.6,1000,"DT")="2910709"
^DD(691.6,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(691.6,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(691.6,1001,21,0)="^^3^3^2910816"
^DD(691.6,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(691.6,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(691.6,1001,21,3,0)="results are entered in the Medicine package."
^DD(691.6,1001,"DT")="2910816"
^DD(691.6,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(691.6,1500,"DT")="2930212"
^DD(691.6,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>40!($L(X)<1) X"
^DD(691.6,1501,3)="Answer must be 1-40 characters in length."
^DD(691.6,1501,"DT")="2930212"
^DD(691.6,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,1502,"DT")="2930212"
^DD(691.6,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(691.6,1503,"DT")="2930212"
^DD(691.6,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>40!($L(X)<1) X"
^DD(691.6,1504,3)="Answer must be 1-40 characters in length."
^DD(691.6,1504,"DT")="2930212"
^DD(691.6,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,1505,"DT")="2930212"
^DD(691.6,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASED ON-LINE VERIFIED;ROV:RELEASED OFF-LINE VERIFIED;RNV:RELEASED NOT VERIFIED;S:SUPERSEDED;SRV:RELEASED ON-LINE VERIFIED OF SUPERSEDED;SROV:RELEASED OFF-LINE VERIFIED OF SUPERSEDED;^ES;7^Q"
^DD(691.6,1506,1,0)="^.1"
^DD(691.6,1506,1,1,0)="691.6^ES"
^DD(691.6,1506,1,1,1)="S ^MCAR(691.6,""ES"",$E(X,1,30),DA)="""""
^DD(691.6,1506,1,1,2)="K ^MCAR(691.6,""ES"",$E(X,1,30),DA)"
^DD(691.6,1506,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.6,1506,1,1,"%D",1,0)="This Cross-Referenc allows look-up by release status."
^DD(691.6,1506,1,1,"DT")="2930212"
^DD(691.6,1506,"DT")="2931214"
^DD(691.6,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,1507,"DT")="2930212"
^DD(691.6,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,1508,"DT")="2930212"
^DD(691.6,1509,0)="SUPERSEDED^NJ9,0^^ES;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,1509,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.6,1509,"DT")="2930212"
^DD(691.6,1510,0)="SUPERSEDED BY^NJ9,0^^ES;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,1510,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.6,1510,"DT")="2930212"
^DD(691.6,1511,0)="MARK FOR DELETATION^S^1:MARK FOR DELETION;^ES;12^Q"
^DD(691.6,1511,"DT")="2930212"
^DD(691.6,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(691.6,1512,"DT")="2930212"
^DD(691.6,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(691.6,1513,3)="Answer must be 1-40 characters in length."
^DD(691.6,1513,"DT")="2930212"
^DD(691.6,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.6,1514,"DT")="2930212"
^DD(691.6,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.6,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.6,1515,"DT")="2930304"
^DD(691.6,"B","APPOINTMENT DATE",8)=""
^DD(691.6,"B","APPROVED BY",6)=""
^DD(691.6,"B","ATRIAL BEATS TOTAL",45)=""
^DD(691.6,"B","AUTOMATED INSTRUMENT DATA",66)=""
^DD(691.6,"B","AV/H (ATR)",48)=""
^DD(691.6,"B","AVE/HR",35)=""
^DD(691.6,"B","AVERAGE HR",27)=""
^DD(691.6,"B","BATTERY NUMBER",21)=""
^DD(691.6,"B","BEATS FASTEST RUN (VENT)",43)=""
^DD(691.6,"B","BEATS IN RUNS (VENT)",41)=""
^DD(691.6,"B","BEATS LONGEST RUN (VENT)",42)=""
^DD(691.6,"B","BIGEMINY (VENT)",38)=""
^DD(691.6,"B","BLOCKED APC (ATR)",51)=""
^DD(691.6,"B","BPM FASTEST RUN (ATR)",56)=""
^DD(691.6,"B","BPM IN FASTEST RUN (VENT)",44)=""
^DD(691.6,"B","BTS FASTEST RUN (ATR)",55)=""
^DD(691.6,"B","BTS IN RUNS (ATR)",53)=""
^DD(691.6,"B","BTS LONGEST RUN (ATR)",54)=""
^DD(691.6,"B","COMMENT",63)=""
^DD(691.6,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(691.6,"B","COUPLETS (ATR)",50.5)=""
^DD(691.6,"B","COUPLETS (VENT)",39)=""
^DD(691.6,"B","CREATION DATE",1514)=""
^DD(691.6,"B","DATE APPROVED",7)=""
^DD(691.6,"B","DATE OF RELEASED",1507)=""
^DD(691.6,"B","DATE OF VERIFIED",1508)=""
^DD(691.6,"B","DATE REQUESTED",5)=""
^DD(691.6,"B","DELETER DUZ",1512)=""
^DD(691.6,"B","ECTOPICS (ATR)",46)=""
^DD(691.6,"B","ECTOPICS PERCENT (ATR)",47)=""
^DD(691.6,"B","ENTERING DATE",1502)=""
^DD(691.6,"B","ENTERING DUZ",1500)=""
^DD(691.6,"B","GMRCO",1001)=""
^DD(691.6,"B","HEART BLOCK",57)=""
^DD(691.6,"B","HEART MED",18)=""
^DD(691.6,"B","HOLTER RUN NUMBER",19)=""
^DD(691.6,"B","HOOK-UP BY",10)=""
^DD(691.6,"B","HOOK-UP DATE/TIME",.01)=""
^DD(691.6,"B","HT IN",2)=""
^DD(691.6,"B","ICD DIAGNOSIS",700)=""
^DD(691.6,"B","ID",.02)=""
^DD(691.6,"B","INTERPRETATION",62)=""
^DD(691.6,"B","ISOLATED (ATR)",50)=""
^DD(691.6,"B","ISOLATED (VENT)",37)=""
^DD(691.6,"B","LONGEST PAUSE (VENT)",61)=""
^DD(691.6,"B","LONGEST SINUS PAUSE",59)=""
^DD(691.6,"B","MALFUNCTION TYPE",23)=""
^DD(691.6,"B","MALFUNCTIONS",22)=""
^DD(691.6,"B","MARK FOR DELETATION",1511)=""
^DD(691.6,"B","MAX HR",28)=""
^DD(691.6,"B","MAX/H (ATR)",49)=""
^DD(691.6,"B","MAX/HR",36)=""
^DD(691.6,"B","MEDICAL PATIENT",1)=""
^DD(691.6,"B","MIN HR",30)=""
^DD(691.6,"B","NUM OF RUNS 3 OR MORE (VENT)",40)=""
^DD(691.6,"B","NUM. RUNS SVT (ATR)",52)=""
^DD(691.6,"B","ORIFN",1000)=""
^DD(691.6,"B","OTHER INDICATIONS",5.8)=""
^DD(691.6,"B","PATIENT CATEGORY",16)=""
^DD(691.6,"B","PAUSES (SINUS)",58)=""
^DD(691.6,"B","PAUSES (VENT)",60)=""
^DD(691.6,"B","PCC POINTER",900)=""
^DD(691.6,"B","PRIMARY PROVIDER",701)=""
^DD(691.6,"B","PROCEDURE SUMMARY",600)=""
^DD(691.6,"B","QRS TOTAL",32)=""
^DD(691.6,"B","READABLE HOURS",26)=""
^DD(691.6,"B","REASON FOR STUDY",5.5)=""
^DD(691.6,"B","RECORDER NUMBER",20)=""
^DD(691.6,"B","RELEASE CODE",1506)=""
^DD(691.6,"B","REQUESTED BY",4)=""
^DD(691.6,"B","RETURN DATE & TIME",11)=""
^DD(691.6,"B","REVIEW DATE",15)=""
^DD(691.6,"B","REVIEWED BY",14)=""
^DD(691.6,"B","RISK FACTOR",.05)=""
^DD(691.6,"B","RUNS 100 BPM OR MORE (VENT)",40.5)=""
^DD(691.6,"B","SCANNED BY",12)=""
^DD(691.6,"B","SCANNED DATE",13)=""
^DD(691.6,"B","SIGNER VALIDATION CODE",1504)=""
^DD(691.6,"B","ST LEVEL",64)=""
^DD(691.6,"B","ST LEVEL DEP/ELEV",65)=""
^DD(691.6,"B","SUMMARY",.03)=""
^DD(691.6,"B","SUPERSEDED",1509)=""
^DD(691.6,"B","SUPERSEDED BY",1510)=""
^DD(691.6,"B","SUPERSEDED DATE",1513)=""
^DD(691.6,"B","SUPERSEDED NUMBER",1515)=""
^DD(691.6,"B","SYMPTOM",.04)=""
^DD(691.6,"B","TAPE QUALITY",24)=""
^DD(691.6,"B","TIME MAX HR",29)=""
^DD(691.6,"B","TIME MIN HR",31)=""
^DD(691.6,"B","TOTAL HOURS",25)=""
^DD(691.6,"B","VENDOR",67)=""
^DD(691.6,"B","VERIFIER DATE",1505)=""
^DD(691.6,"B","VERIFYING DUZ",1503)=""
^DD(691.6,"B","VPBS (VENT)",33)=""
^DD(691.6,"B","VPBS PERCENT (VENT)",34)=""
^DD(691.6,"B","WARD/CLINIC",17)=""
^DD(691.6,"B","WT LBS",3)=""
^DD(691.6,"GL",0,1,.01)=""
^DD(691.6,"GL",0,2,1)=""
^DD(691.6,"GL",0,3,2)=""
^DD(691.6,"GL",0,4,3)=""
^DD(691.6,"GL",0,5,4)=""
^DD(691.6,"GL",0,6,5)=""
^DD(691.6,"GL",0,7,6)=""
^DD(691.6,"GL",0,8,7)=""
^DD(691.6,"GL",0,9,8)=""
^DD(691.6,"GL",0,11,10)=""
^DD(691.6,"GL",0,12,11)=""
^DD(691.6,"GL",0,13,12)=""
^DD(691.6,"GL",0,14,13)=""
^DD(691.6,"GL",0,15,14)=""
^DD(691.6,"GL",0,16,15)=""
^DD(691.6,"GL",0,17,16)=""
^DD(691.6,"GL",0,18,17)=""
^DD(691.6,"GL",.1,1,.02)=""
^DD(691.6,"GL",.2,1,.03)=""
^DD(691.6,"GL",.2,2,600)=""
^DD(691.6,"GL",.3,0,.04)=""
^DD(691.6,"GL",.4,0,.05)=""
^DD(691.6,"GL",1,0,18)=""
^DD(691.6,"GL",2,1,19)=""
^DD(691.6,"GL",2,2,20)=""
^DD(691.6,"GL",2,3,21)=""
^DD(691.6,"GL",2,4,22)=""
^DD(691.6,"GL",3,0,23)=""
^DD(691.6,"GL",4,1,24)=""
^DD(691.6,"GL",4,2,25)=""
^DD(691.6,"GL",4,3,26)=""
^DD(691.6,"GL",4,4,27)=""
^DD(691.6,"GL",4,5,28)=""
^DD(691.6,"GL",4,6,29)=""
^DD(691.6,"GL",4,7,30)=""
^DD(691.6,"GL",4,8,31)=""
^DD(691.6,"GL",4,9,32)=""
^DD(691.6,"GL",4,10,33)=""
^DD(691.6,"GL",4,11,35)=""
^DD(691.6,"GL",4,12,36)=""
^DD(691.6,"GL",4,13,37)=""
^DD(691.6,"GL",4,14,38)=""
^DD(691.6,"GL",4,15,39)=""
^DD(691.6,"GL",4,16,40)=""
^DD(691.6,"GL",4,17,41)=""
^DD(691.6,"GL",4,18,42)=""
^DD(691.6,"GL",4,19,43)=""
^DD(691.6,"GL",4,20,44)=""
^DD(691.6,"GL",4,21,45)=""
^DD(691.6,"GL",4,22,46)=""
^DD(691.6,"GL",4,23,48)=""
^DD(691.6,"GL",4,24,49)=""
^DD(691.6,"GL",4,25,50)=""
^DD(691.6,"GL",4,26,50.5)=""
^DD(691.6,"GL",5,0,63)=""
^DD(691.6,"GL",6,1,51)=""
^DD(691.6,"GL",6,2,52)=""
^DD(691.6,"GL",6,3,53)=""
^DD(691.6,"GL",6,4,54)=""
^DD(691.6,"GL",6,5,55)=""
^DD(691.6,"GL",6,6,56)=""
^DD(691.6,"GL",6,7,57)=""
^DD(691.6,"GL",6,8,58)=""
^DD(691.6,"GL",6,9,59)=""
^DD(691.6,"GL",6,10,60)=""
^DD(691.6,"GL",6,11,61)=""
^DD(691.6,"GL",7,0,62)=""
^DD(691.6,"GL",8,0,5.5)=""
^DD(691.6,"GL",9,1,40.5)=""
^DD(691.6,"GL",9,2,64)=""
^DD(691.6,"GL",9,3,65)=""
^DD(691.6,"GL",10,0,5.8)=""
^DD(691.6,"GL",11,1,67)=""
^DD(691.6,"GL","A",1,66)=""
^DD(691.6,"GL","ES",1,1500)=""
^DD(691.6,"GL","ES",2,1501)=""
^DD(691.6,"GL","ES",3,1502)=""
^DD(691.6,"GL","ES",4,1503)=""
^DD(691.6,"GL","ES",5,1504)=""
^DD(691.6,"GL","ES",6,1505)=""
^DD(691.6,"GL","ES",7,1506)=""
^DD(691.6,"GL","ES",8,1507)=""
^DD(691.6,"GL","ES",9,1508)=""
^DD(691.6,"GL","ES",10,1509)=""
^DD(691.6,"GL","ES",11,1510)=""
^DD(691.6,"GL","ES",12,1511)=""
^DD(691.6,"GL","ES",13,1512)=""
^DD(691.6,"GL","ES",14,1513)=""
^DD(691.6,"GL","ES",15,1514)=""
^DD(691.6,"GL","ES",16,1515)=""
^DD(691.6,"GL","ICD",0,700)=""
^DD(691.6,"GL","OR",1,1000)=""
^DD(691.6,"GL","OR",2,1001)=""
^DD(691.6,"GL","PCC",1,900)=""
^DD(691.6,"GL","PROV",1,701)=""
^DD(691.6,"IX",.01)=""
^DD(691.6,"IX",1)=""
^DD(691.6,"IX",14)=""
^DD(691.6,"IX",900)=""
^DD(691.6,"IX",1506)=""
^DD(691.6,"RQ",.01)=""
^DD(691.6,"RQ",.03)=""
^DD(691.6,"RQ",1)=""
^DD(691.6,"RQ",600)=""
^DD(691.6,"SB",691.61,18)=""
^DD(691.6,"SB",691.62,23)=""
^DD(691.6,"SB",691.63,62)=""
^DD(691.6,"SB",691.64,63)=""
^DD(691.6,"SB",691.65,5.5)=""
^DD(691.6,"SB",691.66,.04)=""
^DD(691.6,"SB",691.67,.05)=""
^DD(691.6,"SB",691.68,5.8)=""
^DD(691.6,"SB",691.69,700)=""
^DD(691.61,0)="HEART MED SUB-FIELD^NL^2^3"
^DD(691.61,0,"IX","B",691.61,.01)=""
^DD(691.61,0,"NM","HEART MED")=""
^DD(691.61,0,"UP")="691.6"
^DD(691.61,.01,0)="HEART MED^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.61,.01,1,0)="^.1"
^DD(691.61,.01,1,1,0)="691.61^B"
^DD(691.61,.01,1,1,1)="S ^MCAR(691.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(691.61,.01,1,1,2)="K ^MCAR(691.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(691.61,.01,3)="Enter name of cardiac medication."
^DD(691.61,.01,12)="CHOOSE CARDIAC MEDICATIONS ONLY"
^DD(691.61,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"""
^DD(691.61,.01,21,0)="^^1^1^2900122^"
^DD(691.61,.01,21,1,0)="This field identifies the name of the cardiac medication."
^DD(691.61,.01,"DT")="2880822"
^DD(691.61,1,0)="DOSE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(691.61,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(691.61,1,21,0)="^^1^1^2900122^"
^DD(691.61,1,21,1,0)="This field contains the amount of drug taken at any given time."
^DD(691.61,1,"DT")="2860903"
^DD(691.61,2,0)="FREQUENCY^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(691.61,2,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(691.61,2,21,0)="^^1^1^2900122^"
^DD(691.61,2,21,1,0)="This field contains the rate at which the prescribed dose is given."
^DD(691.61,2,"DT")="2880518"
^DD(691.61,"B","DOSE",1)=""
^DD(691.61,"B","FREQUENCY",2)=""
^DD(691.61,"B","HEART MED",.01)=""
^DD(691.61,"GL",0,1,.01)=""
^DD(691.61,"GL",0,2,1)=""
^DD(691.61,"GL",0,3,2)=""
^DD(691.61,"IX",.01)=""
^DD(691.62,0)="MALFUNCTION TYPE SUB-FIELD^NL^.01^1"
^DD(691.62,0,"NM","MALFUNCTION TYPE")=""
^DD(691.62,0,"UP")="691.6"
^DD(691.62,.01,0)="MALFUNCTION TYPE^W^^0;1^Q"
^DD(691.62,.01,3)="Enter comments regarding any malfunction."
^DD(691.62,.01,21,0)="^^2^2^2900122^"
^DD(691.62,.01,21,1,0)="This free text field provides documentation or comments"
^DD(691.62,.01,21,2,0)="regarding the malfunction."
^DD(691.62,"B","MALFUNCTION TYPE",.01)=""
^DD(691.62,"GL",0,1,.01)=""
^DD(691.63,0)="INTERPRETATION SUB-FIELD^NL^.01^1"
^DD(691.63,0,"NM","INTERPRETATION")=""
^DD(691.63,0,"UP")="691.6"
^DD(691.63,.01,0)="INTERPRETATION^W^^0;1^Q"
^DD(691.63,.01,3)="Enter clinical evaluation of the patient's cardiac condition based on the information collected by this procedure."
^DD(691.63,.01,21,0)="^^4^4^2900123^"
^DD(691.63,.01,21,1,0)="This free text field contains the clinical "
^DD(691.63,.01,21,2,0)="evaluation of the patient's cardiac condition"
^DD(691.63,.01,21,3,0)="based on the information collected by this"
^DD(691.63,.01,21,4,0)="procedure."
^DD(691.63,.01,23,0)="^^1^1^2921106^^^"
^DD(691.63,.01,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(691.63,"B","INTERPRETATION",.01)=""
^DD(691.63,"GL",0,1,.01)=""
^DD(691.64,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(691.64,0,"NM","COMMENT")=""
^DD(691.64,0,"UP")="691.6"
^DD(691.64,.01,0)="COMMENT^W^^0;1^Q"
^DD(691.64,.01,3)="Medical provider should enter remarks on data collected in this procedure."
^DD(691.64,.01,21,0)="^^2^2^2900123^"
^DD(691.64,.01,21,1,0)="This free text field provides an area for the medical"
^DD(691.64,.01,21,2,0)="provider to remark on the data collected in this procedure."
^DD(691.64,"B","COMMENT",.01)=""
^DD(691.64,"GL",0,1,.01)=""
^DD(691.65,0)="REASON FOR STUDY SUB-FIELD^NL^.01^1"
^DD(691.65,0,"NM","REASON FOR STUDY")=""
^DD(691.65,0,"UP")="691.6"
^DD(691.65,.01,0)="REASON FOR STUDY^MS^1:SYNCOPE;2:HX SUDDEN DEATH OR SUSTAINED V-T;3:DOCUMENTED V ECTOPY;4:DOCUMENTED SVT;5:WPW;6:PACEMAKER;7:EFFICACY OF THERAPY;8:LIGHTHEADEDNESS;9:RECENT INFARCT;^0;1^Q"
^DD(691.65,.01,.1)="INDICATION"
^DD(691.65,.01,3)="Enter code for reason procedure is ordered."
^DD(691.65,.01,21,0)="^^1^1^2900221^^"
^DD(691.65,.01,21,1,0)="This field contains the rationale for ordering this procedure."
^DD(691.65,.01,23,0)="^^1^1^2921106^^^"
^DD(691.65,.01,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(691.65,"B","INDICATION",.01)="1"
^DD(691.65,"B","REASON FOR STUDY",.01)=""
^DD(691.65,"GL",0,1,.01)=""
^DD(691.66,0)="SYMPTOM SUB-FIELD^^.01^1"
^DD(691.66,0,"DT")="2960530"
^DD(691.66,0,"IX","B",691.66,.01)=""
^DD(691.66,0,"NM","SYMPTOM")=""
^DD(691.66,0,"UP")="691.6"
^DD(691.66,.01,0)="SYMPTOM^M*P695.5'^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""HOLTER"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.66,.01,1,0)="^.1"
^DD(691.66,.01,1,1,0)="691.66^B"
^DD(691.66,.01,1,1,1)="S ^MCAR(691.6,DA(1),.3,""B"",$E(X,1,30),DA)="""""
^DD(691.66,.01,1,1,2)="K ^MCAR(691.6,DA(1),.3,""B"",$E(X,1,30),DA)"
^DD(691.66,.01,3)="HISTORY OF PRESENT ILLNESS"
^DD(691.66,.01,12)="Choose symptoms applying to HOLTER or Cardiology only"
^DD(691.66,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""HOLTER"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"""
^DD(691.66,.01,21,0)="^^1^1^2960530^^"
^DD(691.66,.01,21,1,0)="This field contains the patients physical complaints or symtoms."
^DD(691.66,.01,"DT")="2960530"
^DD(691.66,"B","SYMPTOM",.01)=""
^DD(691.66,"GL",0,1,.01)=""
^DD(691.66,"IX",.01)=""
^DD(691.67,0)="RISK FACTOR SUB-FIELD^^.01^1"
^DD(691.67,0,"IX","B",691.67,.01)=""
^DD(691.67,0,"NM","RISK FACTOR")=""
^DD(691.67,0,"UP")="691.6"
^DD(691.67,.01,0)="RISK FACTOR^MP695.4'^MCAR(695.4,^0;1^Q"
^DD(691.67,.01,1,0)="^.1"
^DD(691.67,.01,1,1,0)="691.67^B"
^DD(691.67,.01,1,1,1)="S ^MCAR(691.6,DA(1),.4,""B"",$E(X,1,30),DA)="""""
^DD(691.67,.01,1,1,2)="K ^MCAR(691.6,DA(1),.4,""B"",$E(X,1,30),DA)"
^DD(691.67,.01,3)="RELEVANT PAST HISTORY"
^DD(691.67,.01,21,0)="^^3^3^2900122^"
^DD(691.67,.01,21,1,0)="This field contains the morbidity factors"
^DD(691.67,.01,21,2,0)="which this patient is most susceptible to"
^DD(691.67,.01,21,3,0)="in regards to this procedure."
^DD(691.67,.01,"DT")="2860714"
^DD(691.67,"B","RISK FACTOR",.01)=""
^DD(691.67,"GL",0,1,.01)=""
^DD(691.67,"IX",.01)=""
^DD(691.68,0)="OTHER INDICATIONS SUB-FIELD^^.01^1"
^DD(691.68,0,"NM","OTHER INDICATIONS")=""
^DD(691.68,0,"UP")="691.6"
^DD(691.68,.01,0)="OTHER INDICATIONS^W^^0;1^Q"
^DD(691.68,.01,3)="Free Text entry of reason for study."
^DD(691.68,.01,21,0)="^^2^2^2910417^"
^DD(691.68,.01,21,1,0)="This field identifies field is used to define indications "
^DD(691.68,.01,21,2,0)="not included in the Reason for Study set."
^DD(691.68,.01,23,0)="^^1^1^2921106^^^"
^DD(691.68,.01,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(691.68,.01,"DT")="2900221"
^DD(691.68,"B","OTHER INDICATIONS",.01)=""
^DD(691.68,"GL",0,1,.01)=""
^DD(691.69,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(691.69,0,"DT")="2930310"
^DD(691.69,0,"IX","B",691.69,.01)=""
^DD(691.69,0,"NM","ICD DIAGNOSIS")=""
^DD(691.69,0,"UP")="691.6"
^DD(691.69,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(691.69,.01,1,0)="^.1"
^DD(691.69,.01,1,1,0)="691.69^B"
^DD(691.69,.01,1,1,1)="S ^MCAR(691.6,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(691.69,.01,1,1,2)="K ^MCAR(691.6,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(691.69,.01,21,0)="^^2^2^2920102^^"
^DD(691.69,.01,21,1,0)="This field identifies the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(691.69,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS subfield which will be used in the future."
^DD(691.69,.01,23,0)="^^1^1^2921106^^^"
^DD(691.69,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.69,.01,"DT")="2930310"
^DD(691.69,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(691.69,.02,3)="Answer must be 1-80 characters in length."
^DD(691.69,.02,23,0)="^^1^1^2921106^^^"
^DD(691.69,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.69,.02,"DT")="2920102"
^DD(691.69,"B","ICD DIAGNOSIS",.01)=""
^DD(691.69,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(691.69,"GL",0,1,.01)=""
^DD(691.69,"GL",0,2,.02)=""
^DD(691.69,"IX",.01)=""
^DD(691.7,0)="FIELD^^1515^94"
^DD(691.7,0,"DT")="2960530"
^DD(691.7,0,"ID",1)="S ZZ=$P(^(0),""^"",2) W ""   "",$S($D(^MCAR(690,ZZ,0))#2:$P(^DPT(ZZ,0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"") K ZZ"
^DD(691.7,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(691.7,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(691.7,0,"IX","AC",691.7,1)=""
^DD(691.7,0,"IX","AD",691.7,.01)=""
^DD(691.7,0,"IX","APCE",691.7,900)=""
^DD(691.7,0,"IX","B",691.7,.01)=""
^DD(691.7,0,"IX","C",691.7,1)=""
^DD(691.7,0,"IX","ES",691.7,1506)=""
^DD(691.7,0,"NM","EXERCISE TOLERANCE TEST")=""
^DD(691.7,0,"PT",123,11)=""
^DD(691.7,0,"PT",123.03,.01)=""
^DD(691.7,0,"VR")="2.3"
^DD(691.7,0,"VRPK")="MEDICINE"
^DD(691.7,.01,0)="DATE/TIME OF TEST^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.7,.01,1,0)="^.1"
^DD(691.7,.01,1,1,0)="691.7^B"
^DD(691.7,.01,1,1,1)="S ^MCAR(691.7,""B"",$E(X,1,30),DA)="""""
^DD(691.7,.01,1,1,2)="K ^MCAR(691.7,""B"",$E(X,1,30),DA)"
^DD(691.7,.01,1,2,0)="691.7^AD^MUMPS"
^DD(691.7,.01,1,2,1)="S MCARCDIE=""^MCAR(691.7,"" D CHGDTE1^MCARPROC"
^DD(691.7,.01,1,2,2)="S MCARCDIE=""^MCAR(691.7,"" D CHGDTE^MCARPROC"
^DD(691.7,.01,1,2,"%D",0)="^^3^3^2920420^"
^DD(691.7,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.7,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent exercise tolerance test"
^DD(691.7,.01,1,2,"%D",3,0)="procedure for this patient."
^DD(691.7,.01,3)="ENTER PATIENT'S NAME OR DATE AND TIME OF EXERCISE TOLERANCE TEST"
^DD(691.7,.01,21,0)="^^1^1^2940715^^"
^DD(691.7,.01,21,1,0)="This field identifies the precise Exercise Tolerance procedure."
^DD(691.7,.01,23,0)="^^1^1^2940715^^^^"
^DD(691.7,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.7,.01,"DT")="2870805"
^DD(691.7,.02,0)="ID^F^^.1;1^K:$L(X)>10!($L(X)<2) X"
^DD(691.7,.02,3)="Enter any unique identification number, 2 to 10 characters.  SSN need not be entered since it is already entered."
^DD(691.7,.02,21,0)="^^3^3^2900124^^"
^DD(691.7,.02,21,1,0)="This field identifies the patient's identification number assigned"
^DD(691.7,.02,21,2,0)="by the medical facility.  In most cases it is the"
^DD(691.7,.02,21,3,0)="person's social security number."
^DD(691.7,.02,"DT")="2860408"
^DD(691.7,.03,0)="SUMMARY^RS^N:NORMAL;A:ABNORMAL;B:BORDERLINE;T:TECHNICALLY UNSATISFACTORY;^.2;1^Q"
^DD(691.7,.03,3)="This field identifies the result of the ETT procedure."
^DD(691.7,.03,21,0)="^^2^2^2900124^"
^DD(691.7,.03,21,1,0)="This field contains the gross evaluation of"
^DD(691.7,.03,21,2,0)="the results of this procedure."
^DD(691.7,.03,23,0)="^^1^1^2921106^^^"
^DD(691.7,.03,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,.03,"DT")="2870813"
^DD(691.7,.04,0)="SYMPTOM^691.701PA^^.3;0"
^DD(691.7,.04,21,0)="^^1^1^2960603^^^^"
^DD(691.7,.04,21,1,0)="This field contains the patient's physical complaints or symptoms."
^DD(691.7,.05,0)="RISK FACTOR^691.702PA^^.4;0"
^DD(691.7,.05,21,0)="^^3^3^2900124^"
^DD(691.7,.05,21,1,0)="This field contains the morbidity factors which  "
^DD(691.7,.05,21,2,0)="this patient is most susceptible to in regards"
^DD(691.7,.05,21,3,0)="to this procedure."
^DD(691.7,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(691.7,1,1,0)="^.1"
^DD(691.7,1,1,1,0)="691.7^C"
^DD(691.7,1,1,1,1)="S ^MCAR(691.7,""C"",$E(X,1,30),DA)="""""
^DD(691.7,1,1,1,2)="K ^MCAR(691.7,""C"",$E(X,1,30),DA)"
^DD(691.7,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.7,1,1,1,"%D",1,0)="This cross-reference allow looks-up on Patient."
^DD(691.7,1,1,2,0)="691.7^AC^MUMPS"
^DD(691.7,1,1,2,1)="S MCARCDIE=""^MCAR(691.7,"" D CHGPAT^MCARPROC"
^DD(691.7,1,1,2,2)="S MCARCDIE=""^MCAR(691.7,"" D KILL^MCARPROC"
^DD(691.7,1,1,2,"%D",0)="^^3^3^2920420^"
^DD(691.7,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.7,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent exercise tolerance test"
^DD(691.7,1,1,2,"%D",3,0)="procedure for this patient."
^DD(691.7,1,3)="Enter patient's last name, followed by a comma, followed by a space, followed by the first name, followed by a space, followed by the middle initial."
^DD(691.7,1,21,0)="^^4^4^2900124^"
^DD(691.7,1,21,1,0)="This field identifies the patient's last name, followed"
^DD(691.7,1,21,2,0)="by a comma, followed by a space (optional),"
^DD(691.7,1,21,3,0)="followed by the first name, followed by"
^DD(691.7,1,21,4,0)="a space, followed by the middle initial."
^DD(691.7,1,23,0)="^^1^1^2921106^^^"
^DD(691.7,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.7,1,"DT")="2870710"
^DD(691.7,2,0)="DATE/TIME OF APPOINTMENT^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(691.7,2,3)="Enter Date/Time this procedure is scheduled."
^DD(691.7,2,21,0)="^^1^1^2940715^^"
^DD(691.7,2,21,1,0)="This date/time field documents the scheduled time for this procedure."
^DD(691.7,3,0)="REASON FOR TEST^S^A:Overt or Latent C.H.D.;B:Diff. diag. - chest pain etiology;C:Determination of functional capacity;D:Determination of need for cardiac rehab.;E:Research - drug evaluation;F:Screening for employm. or ins.;^0;4^Q"
^DD(691.7,3,3)="Enter the code for rationale of procedure for this patient."
^DD(691.7,3,21,0)="^^2^2^2900124^"
^DD(691.7,3,21,1,0)="This field documents the rationale of the procedure"
^DD(691.7,3,21,2,0)="for this patient."
^DD(691.7,3,23,0)="^^1^1^2921106^^^"
^DD(691.7,3,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(691.7,3,"DT")="2860717"
^DD(691.7,4,0)="HEART MED^691.71PA^^1;0"
^DD(691.7,4,21,0)="^^3^3^2900124^"
^DD(691.7,4,21,1,0)="This field (multiple) contains the cardiac"
^DD(691.7,4,21,2,0)="medicines that the patient is taking at "
^DD(691.7,4,21,3,0)="the time of this procedure."
^DD(691.7,4.5,0)="OTHER MEDICATION^691.74A^^8;0"
^DD(691.7,4.5,21,0)="^^2^2^2900124^"
^DD(691.7,4.5,21,1,0)="This field (multiple) contains the non-cardiac medicines"
^DD(691.7,4.5,21,2,0)="that the patient was taking at the time of this procedure."
^DD(691.7,5,0)="RESTING EKG^691.72^^2;0"
^DD(691.7,5,21,0)="^^2^2^2900124^"
^DD(691.7,5,21,1,0)="This field refers to the latest, pre-exercise"
^DD(691.7,5,21,2,0)="EKG procedure."
^DD(691.7,6,0)="REF. MD^F^^3;1^K:$L(X)>20!($L(X)<3) X"
^DD(691.7,6,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(691.7,6,21,0)="^^1^1^2900124^"
^DD(691.7,6,21,1,0)="This field identifies the referring physician."
^DD(691.7,6,"DT")="2860226"
^DD(691.7,6.1,0)="WT LBS^NJ3,0^^10;1^K:+X'=X!(X>500)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,6.1,3)="TYPE A WHOLE NUMBER BETWEEN 40 AND 500"
^DD(691.7,6.1,21,0)="^^2^2^2900124^"
^DD(691.7,6.1,21,1,0)="This field identifies is the patient's weight in pounds"
^DD(691.7,6.1,21,2,0)="at the time of this procedure."
^DD(691.7,6.1,"DT")="2860226"
^DD(691.7,7,0)="ETT PROTOCOL^S^BR:BRUCE;M:MODIFIED BRUCE;N:NAUGHTON;BA:BALKE;L:LEVEL MODIFIED BRUCE;S:SPECIAL;BL:BLOCKER;MN:MODIFIED NAUGHTON;BI:BICYCLE ERGOMETRY;A:ARM ERGOMETRY;^3;2^Q"
^DD(691.7,7,3)="Enter code for protocol used in this procedure."
^DD(691.7,7,21,0)="^^2^2^2900124^^"
^DD(691.7,7,21,1,0)="This field defines the protocol used "
^DD(691.7,7,21,2,0)="in this procedure."
^DD(691.7,7,23,0)="^^1^1^2921106^^^"
^DD(691.7,7,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,7,"DT")="2870623"
^DD(691.7,8,0)="HYPERVENTILATION^F^^3;3^K:$L(X)>30!($L(X)<1) X"
^DD(691.7,8,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(691.7,8,21,0)="^^2^2^2920324^"
^DD(691.7,8,21,1,0)="This allows the user to enter information about the patient"
^DD(691.7,8,21,2,0)="and hyperventilation."
^DD(691.7,9,0)="RS HR^NJ3,0^^3;4^K:+X'=X!(X>150)!(X<30)!(X?.E1"".""1N.N) X"
^DD(691.7,9,3)="TYPE A WHOLE NUMBER BETWEEN 30 AND 150"
^DD(691.7,9,21,0)="^^1^1^2910417^"
^DD(691.7,9,21,1,0)="This field identifies the resting/supine heart rate."
^DD(691.7,10,0)="RS SBP^NJ3,0^^3;5^K:+X'=X!(X>250)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,10,3)="TYPE A WHOLE NUMBER BETWEEN 40 AND 250"
^DD(691.7,10,21,0)="^^1^1^2910417^"
^DD(691.7,10,21,1,0)="This field identifies the resting/supine systolic blood pressure."
^DD(691.7,10,"DT")="2870227"
^DD(691.7,11,0)="RS DBP^NJ3,0^^3;6^K:+X'=X!(X>150)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,11,3)="Type a Whole Number between 40 and 150"
^DD(691.7,11,21,0)="^^1^1^2910417^^"
^DD(691.7,11,21,1,0)="This field identifies resting/supine Diastolic blood pressure."
^DD(691.7,11,"DT")="2870623"
^DD(691.7,12,0)="RS RPP^CJ8^^ ; ^X ^DD(691.7,12,9.3) S X=$S(Y(691.7,12,2):Y(691.7,12,3),Y(691.7,12,4):Y(691.7,12,5),Y(691.7,12,6):X)"
^DD(691.7,12,9)="^"
^DD(691.7,12,9.01)="120205^10;120205^9"
^DD(691.7,12,9.1)="$S(#9="""":"""",#10="""":"""",1:#9*#10/1000)"
^DD(691.7,12,9.2)="S Y(691.7,12,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(Y(691.7,12,1),U,4)="""",Y(691.7,12,2)=X S X="""",Y(691.7,12,3)=X S X=$P(Y(691.7,12,1),U,5)"
^DD(691.7,12,9.3)="X ^DD(691.7,12,9.2) S X=X="""",Y(691.7,12,4)=X S X="""",Y(691.7,12,5)=X S X=1,Y(691.7,12,6)=X S X=$P(Y(691.7,12,1),U,4)*$P(Y(691.7,12,1),U,5)/1000"
^DD(691.7,12,21,0)="^^2^2^2940526^^"
^DD(691.7,12,21,1,0)="This field identifies a number based on the resting heart rate and resting"
^DD(691.7,12,21,2,0)="systolic pressure. "
^DD(691.7,13,0)="RU HR^NJ3,0^^3;7^K:+X'=X!(X>150)!(X<30)!(X?.E1"".""1N.N) X"
^DD(691.7,13,3)="TYPE A WHOLE NUMBER BETWEEN 30 AND 150"
^DD(691.7,13,21,0)="^^1^1^2910418^"
^DD(691.7,13,21,1,0)="This field identifies the resting/upright heart rate."
^DD(691.7,14,0)="RU SBP^NJ3,0^^3;8^K:+X'=X!(X>250)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,14,3)="TYPE A WHOLE NUMBER BETWEEN 40 AND 250"
^DD(691.7,14,21,0)="^^1^1^2910418^"
^DD(691.7,14,21,1,0)="This field identifies the resting,upright systolic blood pressure."
^DD(691.7,14,"DT")="2870227"
^DD(691.7,15,0)="RU DBP^NJ3,0^^3;9^K:+X'=X!(X>200)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,15,3)="Type a Whole Number between 40 and 200"
^DD(691.7,15,21,0)="^^1^1^2910418^"
^DD(691.7,15,21,1,0)="This field identifies the resting/upright diastolic blood pressure."
^DD(691.7,15,"DT")="2870623"
^DD(691.7,16,0)="RU RPP^CJ8^^ ; ^X ^DD(691.7,16,9.3) S X=$S(Y(691.7,16,2):Y(691.7,16,3),Y(691.7,16,4):Y(691.7,16,5),Y(691.7,16,6):X)"
^DD(691.7,16,9)="^"
^DD(691.7,16,9.01)="120205^14;120205^13"
^DD(691.7,16,9.1)="$S(#13="""":"""",#14="""":"""",1:#13*#14/1000)"
^DD(691.7,16,9.2)="S Y(691.7,16,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(Y(691.7,16,1),U,7)="""",Y(691.7,16,2)=X S X="""",Y(691.7,16,3)=X S X=$P(Y(691.7,16,1),U,8)"
^DD(691.7,16,9.3)="X ^DD(691.7,16,9.2) S X=X="""",Y(691.7,16,4)=X S X="""",Y(691.7,16,5)=X S X=1,Y(691.7,16,6)=X S X=$P(Y(691.7,16,1),U,7)*$P(Y(691.7,16,1),U,8)/1000"
^DD(691.7,16,21,0)="^^2^2^2940715^^^^"
^DD(691.7,16,21,1,0)="This field identifies based on the resting/upright heart rate and systolic"
^DD(691.7,16,21,2,0)="pressure. "
^DD(691.7,17,0)="RS ST^NJ3,1^^3;10^K:+X'=X!(X>5)!(X<-5)!(X?.E1"".""2N.N) X"
^DD(691.7,17,3)="TYPE A NUMBER BETWEEN -5 AND 5"
^DD(691.7,17,21,0)="^^1^1^2910418^^"
^DD(691.7,17,21,1,0)="This field identifies the resting/supine ST elevation."
^DD(691.7,17.5,0)="RU ST^NJ3,1^^7;3^K:+X'=X!(X>5)!(X<-5)!(X?.E1"".""2N.N) X"
^DD(691.7,17.5,3)="TYPE A NUMBER BETWEEN -5 AND 5"
^DD(691.7,17.5,21,0)="^^1^1^2920324^"
^DD(691.7,17.5,21,1,0)="This field identifies the resting/upright ST elevation."
^DD(691.7,18,0)="RS ST SLOPE^NJ3,1^^3;11^K:+X'=X!(X>9)!(X<-9)!(X?.E1"".""2N.N) X"
^DD(691.7,18,3)="TYPE A NUMBER BETWEEN -9 AND 9"
^DD(691.7,18,21,0)="^^1^1^2910417^"
^DD(691.7,18,21,1,0)="This field identifies the resting/supine ST slope."
^DD(691.7,19,0)="RU ST SLOPE^NJ3,1^^3;12^K:+X'=X!(X>2)!(X<-5)!(X?.E1"".""2N.N) X"
^DD(691.7,19,3)="TYPE A NUMBER BETWEEN -5 AND 2"
^DD(691.7,19,21,0)="^^1^1^2910418^"
^DD(691.7,19,21,1,0)="This field identifies the resting/upright ST slope."
^DD(691.7,20,0)="CP TME MIN^NJ2,0^^3;13^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,20,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 20"
^DD(691.7,20,21,0)="^^2^2^2940706^^"
^DD(691.7,20,21,1,0)="Enter the minutes portion of the elapsed time, that the chest pain"
^DD(691.7,20,21,2,0)="occurred."
^DD(691.7,21,0)="CP TME SEC^NJ2,0^^3;14^K:+X'=X!(X>59)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,21,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 59"
^DD(691.7,21,21,0)="^^2^2^2940706^^"
^DD(691.7,21,21,1,0)="Enter the seconds portion of the elapsed time, that the chest pain"
^DD(691.7,21,21,2,0)="occurred."
^DD(691.7,21.5,0)="CP MODIFIER^S^D:DURING EXERCISE;A:AFTER EXERCISE;C:COMBINED;^10;2^Q"
^DD(691.7,21.5,21,0)="^^1^1^2910418^"
^DD(691.7,21.5,21,1,0)="This field qualifies the type of chest pain that the patient experienced."
^DD(691.7,21.5,"DT")="2870320"
^DD(691.7,22,0)="CP TIME TOTAL^CJ8,0^^ ; ^X ^DD(691.7,22,9.3) S X=$S(Y(691.7,22,3):Y(691.7,22,4),Y(691.7,22,5):X)"
^DD(691.7,22,9)="^"
^DD(691.7,22,9.01)="691.7^21;691.7^20"
^DD(691.7,22,9.1)="$S((#20="""")&(#21=""""):"""",1:#20*60+#21)"
^DD(691.7,22,9.2)="S Y(691.7,22,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(Y(691.7,22,1),U,13)="""",Y(691.7,22,2)=X S X=$P(Y(691.7,22,1),U,14)="""",Y=X,X=Y(691.7,22,2),X=X"
^DD(691.7,22,9.3)="X ^DD(691.7,22,9.2) S X=X&Y,Y(691.7,22,3)=X S X="""",Y(691.7,22,4)=X S X=1,Y(691.7,22,5)=X S X=$P(Y(691.7,22,1),U,13)*60+$P(Y(691.7,22,1),U,14)"
^DD(691.7,22,21,0)="^^2^2^2940706^^^"
^DD(691.7,22,21,1,0)="This field is the total time of chest pain in seconds computed from the"
^DD(691.7,22,21,2,0)="two fields, CP TIME MIN and CP TIME SEC."
^DD(691.7,22,"DT")="2940706"
^DD(691.7,23,0)="ONSET CP HR^NJ3,0^^3;15^K:+X'=X!(X>300)!(X<50)!(X?.E1"".""1N.N) X"
^DD(691.7,23,3)="Type a Number between 50 and 300, 0 Decimal Digits"
^DD(691.7,23,21,0)="^^1^1^2910418^"
^DD(691.7,23,21,1,0)="This field identifies the heart rate at the onset of chest pain."
^DD(691.7,23,"DT")="2870623"
^DD(691.7,24,0)="ONSET CP SBP^NJ3,0^^3;16^K:+X'=X!(X>300)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,24,3)="TYPE A WHOLE NUMBER BETWEEN 40 AND 300"
^DD(691.7,24,21,0)="^^1^1^2910418^"
^DD(691.7,24,21,1,0)="This field identifies the systolic blood pressure at the onset of chest pain."
^DD(691.7,24,"DT")="2870227"
^DD(691.7,25,0)="ONSET CP DBP^NJ3,0^^3;17^K:+X'=X!(X>200)!(X<20)!(X?.E1"".""1N.N) X"
^DD(691.7,25,3)="Type a Number between 20 and 200, 0 Decimal Digits"
^DD(691.7,25,21,0)="^^1^1^2940706^^"
^DD(691.7,25,21,1,0)="This field identifies the diastolic blood pressure at the onset of chest pain."
^DD(691.7,25,"DT")="2870623"
^DD(691.7,26,0)="ONSET CP ST^NJ3,1^^3;18^K:+X'=X!(X>1)!(X<-5)!(X?.E1"".""2N.N) X"
^DD(691.7,26,3)="TYPE A NUMBER BETWEEN -5 AND 1,1 DECIMAL PLACE ALLOWED."
^DD(691.7,26,21,0)="^^2^2^2910423^^"
^DD(691.7,26,21,1,0)="This field identifies the ST elevation"
^DD(691.7,26,21,2,0)="at the onset of chest pain."
^DD(691.7,27,0)="ONSET CP ST SLOPE^NJ3,1^^3;19^K:+X'=X!(X>9)!(X<-9)!(X?.E1"".""2N.N) X"
^DD(691.7,27,3)="TYPE A NUMBER BETWEEN -9 AND 9,1 DECIMAL PLACE ALLOWED."
^DD(691.7,27,21,0)="^^1^1^2910423^"
^DD(691.7,27,21,1,0)="This field identifies the ST slope at the onset of chest pain."
^DD(691.7,28,0)="ONSET CP RPP^CJ8,2^^ ; ^X ^DD(691.7,28,9.3) S X=$S(Y(691.7,28,2):Y(691.7,28,3),Y(691.7,28,4):Y(691.7,28,5),Y(691.7,28,6):X)"
^DD(691.7,28,9)="^"
^DD(691.7,28,9.01)="691.7^24;691.7^23"
^DD(691.7,28,9.1)="$S(#23="""":"""",#24="""":"""",1:#23*#24/1000)"
^DD(691.7,28,9.2)="S Y(691.7,28,1)=$S($D(^MCAR(691.7,D0,3)):^(3),1:"""") S X=$P(Y(691.7,28,1),U,15)="""",Y(691.7,28,2)=X S X="""",Y(691.7,28,3)=X S X=$P(Y(691.7,28,1),U,16)="""""
^DD(691.7,28,9.3)="X ^DD(691.7,28,9.2) S Y(691.7,28,4)=X S X="""",Y(691.7,28,5)=X S X=1,Y(691.7,28,6)=X S X=$P(Y(691.7,28,1),U,15)*$P(Y(691.7,28,1),U,16)/1000"
^DD(691.7,28,21,0)="^^1^1^2940526^^"
^DD(691.7,28,21,1,0)="This field identifies the RPP at the onset of chest pain."
^DD(691.7,28,"DT")="2871026"
^DD(691.7,29,0)="PK HR^NJ3,0^^4;1^K:+X'=X!(X>300)!(X<50)!(X?.E1"".""1N.N) X"
^DD(691.7,29,3)="Type a Number between 50 and 300, 0 Decimal Digits"
^DD(691.7,29,21,0)="^^1^1^2910417^"
^DD(691.7,29,21,1,0)="This field identifies the peak heart rate."
^DD(691.7,29,23,0)="^^1^1^2921106^^^"
^DD(691.7,29,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,29,"DT")="2870623"
^DD(691.7,30,0)="PK SBP^NJ3,0^^4;2^K:+X'=X!(X>300)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,30,3)="TYPE A WHOLE NUMBER BETWEEN 40 AND 300"
^DD(691.7,30,21,0)="^^1^1^2910417^"
^DD(691.7,30,21,1,0)="This field identifies the peak systolic blood pressure."
^DD(691.7,30,23,0)="^^1^1^2921106^^^"
^DD(691.7,30,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,30,"DT")="2870227"
^DD(691.7,31,0)="PK DBP^NJ3,0^^4;3^K:+X'=X!(X>200)!(X<40)!(X?.E1"".""1N.N) X"
^DD(691.7,31,3)="Type a Number between 40 and 200, 0 Decimal Digits"
^DD(691.7,31,21,0)="^^1^1^2910417^"
^DD(691.7,31,21,1,0)="This field identifies the peak diastolic blood pressure."
^DD(691.7,31,"DT")="2870623"
^DD(691.7,32,0)="PK EX MPH^NJ3,1^^4;4^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""2N.N) X"
^DD(691.7,32,3)="TYPE A NUMBER BETWEEN 1 AND 7"
^DD(691.7,32,21,0)="^^1^1^2910423^"
^DD(691.7,32,21,1,0)="This field identifies the peak exercise miles per hour."
^DD(691.7,32,23,0)="^^1^1^2921106^^^"
^DD(691.7,32,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,32.1,0)="KILO POND METERS (KPM)^NJ4,0^^10;3^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,32.1,3)="Type a Number between 0 and 3000, 0 Decimal Digits"
^DD(691.7,32.1,21,0)="^^1^1^2910423^"
^DD(691.7,32.1,21,1,0)="This field identifies the kilo pond meters."
^DD(691.7,32.1,"DT")="2870623"
^DD(691.7,32.2,0)="WATTS^NJ3,0^^10;4^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,32.2,3)="Type a Number between 0 and 500, 0 Decimal Digits"
^DD(691.7,32.2,21,0)="^^1^1^2910423^"
^DD(691.7,32.2,21,1,0)="This field identifies the wattage."
^DD(691.7,32.2,"DT")="2870623"
^DD(691.7,33,0)="PK EX GRADE^NJ4,1^^4;5^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""2N.N) X"
^DD(691.7,33,3)="TYPE A NUMBER BETWEEN 1 AND 20,1 DECIMAL PLACE ALLOWED."
^DD(691.7,33,21,0)="^^1^1^2910423^"
^DD(691.7,33,21,1,0)="This field identifies the peak exercise grade."
^DD(691.7,33,23,0)="^^1^1^2921106^^^"
^DD(691.7,33,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,34,0)="METS^NJ4,1^^4;6^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""2N.N) X"
^DD(691.7,34,3)="TYPE A NUMBER BETWEEN 0 AND 20,1 DECIMAL PLACE ALLOWED."
^DD(691.7,34,21,0)="^^2^2^2910423^"
^DD(691.7,34,21,1,0)="This field identifies the METS (Metabolic Equivalents-1 MET=3.5ml of O2"
^DD(691.7,34,21,2,0)="resting). "
^DD(691.7,34,23,0)="^^1^1^2921106^^^"
^DD(691.7,34,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,39,0)="PK ST^NJ3,1^^4;7^K:+X'=X!(X>6.1)!(X<-6.1)!(X?.E1"".""2N.N) X"
^DD(691.7,39,3)="TYPE A NUMBER BETWEEN -6.1 AND 6.1,1 DECIMAL PLACE ALLOWED."
^DD(691.7,39,21,0)="^^1^1^2910417^"
^DD(691.7,39,21,1,0)="This field identifies the peak ST elevation."
^DD(691.7,39,23,0)="^^1^1^2921106^^^"
^DD(691.7,39,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,39,"DT")="2870319"
^DD(691.7,40,0)="PK ST SLOPE^NJ3,1^^4;8^K:+X'=X!(X>9)!(X<-9)!(X?.E1"".""2N.N) X"
^DD(691.7,40,3)="TYPE A NUMBER BETWEEN -9 AND 9,1 DECIMAL PLACE ALLOWED."
^DD(691.7,40,21,0)="^^1^1^2910417^"
^DD(691.7,40,21,1,0)="This field identifies the peak ST slope."
^DD(691.7,40,23,0)="^^1^1^2921106^^^"
^DD(691.7,40,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,42,0)="PK RPP^CJ8^^ ; ^X ^DD(691.7,42,9.3) S X=$S(Y(691.7,42,2):Y(691.7,42,3),Y(691.7,42,4):Y(691.7,42,5),Y(691.7,42,6):X)"
^DD(691.7,42,9)="^"
^DD(691.7,42,9.01)="120205^30;120205^29"
^DD(691.7,42,9.1)="$S(#29="""":"""",#30="""":"""",1:#29*#30/1000)"
^DD(691.7,42,9.2)="S Y(691.7,42,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(Y(691.7,42,1),U,1)="""",Y(691.7,42,2)=X S X="""",Y(691.7,42,3)=X S X=$P(Y(691.7,42,1),U,2)"
^DD(691.7,42,9.3)="X ^DD(691.7,42,9.2) S X=X="""",Y(691.7,42,4)=X S X="""",Y(691.7,42,5)=X S X=1,Y(691.7,42,6)=X S X=$P(Y(691.7,42,1),U,1)*$P(Y(691.7,42,1),U,2)/1000"
^DD(691.7,42,21,0)="^^1^1^2910423^"
^DD(691.7,42,21,1,0)="This field identifies the peak RPP."
^DD(691.7,42,23,0)="^^1^1^2921106^^^"
^DD(691.7,42,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,43,0)="EX TIME^CJ8^^ ; ^X ^DD(691.7,43,9.3) S X=$S(Y(691.7,43,3):Y(691.7,43,4),Y(691.7,43,5):X)"
^DD(691.7,43,9)="^"
^DD(691.7,43,9.01)="691.7^45;691.7^44"
^DD(691.7,43,9.02)="S X=S(""120205^44"")&S(""120205^45"")="""",Y(1)=X S X="""",Y(2)=X S X=1,Y(3)=X S X=60*S(""120205^44"")+S(""120205^45""),X=$S(Y(1):Y(2),Y(3):X) S Y=X"
^DD(691.7,43,9.1)="$S((#44="""")&(#45=""""):"""",1:#44*60+#45)"
^DD(691.7,43,9.2)="S Y(691.7,43,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(Y(691.7,43,1),U,9)="""",Y(691.7,43,2)=X S X=$P(Y(691.7,43,1),U,10)="""",Y=X,X=Y(691.7,43,2),X=X"
^DD(691.7,43,9.3)="X ^DD(691.7,43,9.2) S X=X&Y,Y(691.7,43,3)=X S X="""",Y(691.7,43,4)=X S X=1,Y(691.7,43,5)=X S X=$P(Y(691.7,43,1),U,9)*60+$P(Y(691.7,43,1),U,10)"
^DD(691.7,43,21,0)="^^1^1^2910423^^"
^DD(691.7,43,21,1,0)="This field identifies the time at which exercise began."
^DD(691.7,43,"DT")="2870102"
^DD(691.7,44,0)="EX TIME MIN^NJ2,0^^4;9^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,44,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 20"
^DD(691.7,44,21,0)="^^1^1^2940513^"
^DD(691.7,44,21,1,0)="Enter the minutes portion of the elapsed time, that the exercise occurred."
^DD(691.7,45,0)="EX TIME SEC^NJ4,1^^4;10^K:+X'=X!(X>59.9)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(691.7,45,3)="Type a Number between .1 and 59.9, 1 Decimal Digit"
^DD(691.7,45,21,0)="^^1^1^2940706^^"
^DD(691.7,45,21,1,0)="Enter the seconds portion of the elapsed time, that the exercise occurred."
^DD(691.7,45,"DT")="2940706"
^DD(691.7,46,0)="PREDICTED HR^CJ8^^ ; ^X ^DD(691.7,46,9.4) S Y=X,X=Y(691.7,46,1),X=X-Y S D0=Y(691.7,46,80)"
^DD(691.7,46,9)="^"
^DD(691.7,46,9.01)="2^.033;690^.01;691.7^1"
^DD(691.7,46,9.1)="220-(#1:#.01:#.033)"
^DD(691.7,46,9.2)="S Y(691.7,46,80)=$S($D(D0):D0,1:""""),Y(691.7,46,2)=$S($D(^MCAR(691.7,D0,0)):^(0),1:"""") S X=220,Y(691.7,46,1)=X"
^DD(691.7,46,9.3)="X ^DD(691.7,46,9.2) S D0=$P(Y(691.7,46,2),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(691.7,46,180)=$S($D(D0):D0,1:""""),Y(691.7,46,101)=$S($D(^MCAR(690,D0,0)):^(0),1:"""")"
^DD(691.7,46,9.4)="X ^DD(691.7,46,9.3) S D0=$P(Y(691.7,46,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.033,0),U,5,99) S Y(691.7,46,201)=X S X=Y(691.7,46,201)"
^DD(691.7,46,21,0)="^^1^1^2940526^^"
^DD(691.7,46,21,1,0)="This field identifies the predicted heart rate."
^DD(691.7,46,"DT")="2861231"
^DD(691.7,47,0)="TIME ST - 1^FX^^5;1^K:$L(X)>5!($L(X)<1)!'((X?1.2N."":""1.2N)!(X?1""NA"")) X"
^DD(691.7,47,3)="Enter the time in the format Min:Sec or 'NA' if not applicable.  Minutes and Seconds can be 1 or 2 digits in length."
^DD(691.7,47,21,0)="^^1^1^2910423^"
^DD(691.7,47,21,1,0)="This field identifies time of ST-1."
^DD(691.7,47,"DT")="2900314"
^DD(691.7,48,0)="% TARGET HR^CJ8,0^^ ; ^X ^DD(691.7,48,9.3) S X=$S(Y(691.7,48,2):Y(691.7,48,3),Y(691.7,48,4):X) S X=$J(X,0,0)"
^DD(691.7,48,9)="^"
^DD(691.7,48,9.01)="691.7^46;691.7^29"
^DD(691.7,48,9.02)="S X=S(""691.7^29"")="""",Y(1)=X S X="""",Y(2)=X S X=1,Y(3)=X S X=S(""691.7^29""),X=$S(S(""691.7^46""):X/S(""691.7^46""),1:""*******"")*100,X=$S(Y(1):Y(2),Y(3):X) S Y=X"
^DD(691.7,48,9.1)="$S(#29="""":"""",1:#29/#46*100)"
^DD(691.7,48,9.2)="X $P(^DD(691.7,46,0),U,5,99) S Y(691.7,48,5)=X S Y(691.7,48,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(Y(691.7,48,1),U,1)="""",Y(691.7,48,2)=X S X="""""
^DD(691.7,48,9.3)="X ^DD(691.7,48,9.2) S Y(691.7,48,3)=X S X=1,Y(691.7,48,4)=X S X=$P(Y(691.7,48,1),U,1),X=$S(Y(691.7,48,5):X/Y(691.7,48,5),1:""*******"")*100"
^DD(691.7,48,21,0)="^^1^1^2940526^^^"
^DD(691.7,48,21,1,0)="This field identifies the percentage of target heart rate achieved."
^DD(691.7,48,23,0)="^^1^1^2940526^^^^"
^DD(691.7,48,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,48,"DT")="2870102"
^DD(691.7,49,0)="TIME ST - 2^FX^^5;2^K:$L(X)>5!($L(X)<1)!'((X?1.2N."":""1.2N)!(X?1""NA"")) X"
^DD(691.7,49,3)="Enter the time in the format MIN:SEC or 'NA' if not applicable.  Minutes and seconds can be 1 or 2 digits."
^DD(691.7,49,21,0)="^^1^1^2910423^"
^DD(691.7,49,21,1,0)="This field identifies the time of ST-2."
^DD(691.7,49,"DT")="2900314"
^DD(691.7,50,0)="REASON FOR STOPPING^*P695.8'^MCAR(695.8,^5;3^S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""E"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.7,50,3)="Enter rationale for terminating procedure."
^DD(691.7,50,12)="CHOOSE ETT REASON FOR STOPPING ENTRIES ONLY"
^DD(691.7,50,12.1)="S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""E"""",+Y))"""
^DD(691.7,50,21,0)="^^1^1^2910423^"
^DD(691.7,50,21,1,0)="This field identifies the rationale for terminating the procedure."
^DD(691.7,50,23,0)="^^1^1^2921106^^^"
^DD(691.7,50,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,50,"DT")="2890111"
^DD(691.7,51,0)="ARRHYTHMIAS^S^N:NONE;DP:DEC PVCS;IFP:INC FREQ PVCS;IGC:INC GRADE, COUPLETS;IGT:INC GRADE, TRIPLETS;IVT:INC SUST VT (>10);^5;4^Q"
^DD(691.7,51,3)="Enter code for cardiac rhythm irregularity."
^DD(691.7,51,21,0)="^^1^1^2910423^"
^DD(691.7,51,21,1,0)="This field identifies the documented cardiac rhythm irregularity."
^DD(691.7,52,0)="OTHER EKG CHANGE^691.75^^9;0"
^DD(691.7,52,21,0)="^^1^1^2910423^"
^DD(691.7,52,21,1,0)="This field identifies an irregularity."
^DD(691.7,53,0)="HEART RATE RESPONSE^S^N:NORMAL;A:ABNORMAL;^5;6^Q"
^DD(691.7,53,3)="Enter code for heart rate response."
^DD(691.7,53,21,0)="^^1^1^2910423^^^"
^DD(691.7,53,21,1,0)="This field identifies the heart rate response."
^DD(691.7,53.5,0)="BLOOD PRESSURE RESPONSE^S^SR:SYSTOLIC ROLL-OVER;N:NORMAL;H:HYPERTENSIVE;^7;4^Q"
^DD(691.7,53.5,3)="Enter code for blood pressure response."
^DD(691.7,53.5,21,0)="^^1^1^2910423^"
^DD(691.7,53.5,21,1,0)="This field identifies the blood pressure response."
^DD(691.7,53.5,23,0)="^^1^1^2921106^^^"
^DD(691.7,53.5,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,54,0)="TIME RETURN BASELINE ST^F^^5;7^K:$L(X)>5!($L(X)<3)!'(X?.2N1"":""2N) X"
^DD(691.7,54,3)="ENTER TIME IN FORMAT MINUTES:SECONDS"
^DD(691.7,54,21,0)="^^1^1^2910423^"
^DD(691.7,54,21,1,0)="This field identifies the time that the ST segment returned to baseline."
^DD(691.7,54,"DT")="2870320"
^DD(691.7,55,0)="INTERPRETATION^S^N:NORMAL;A:ABNORMAL;B:BORDERLINE;^5;8^Q"
^DD(691.7,55,3)="Enter code for interpretation."
^DD(691.7,55,21,0)="^^1^1^2910423^"
^DD(691.7,55,21,1,0)="This field identifies the interpretation field."
^DD(691.7,55,"DT")="2860708"
^DD(691.7,56,0)="COMMENT^691.73^^6;0"
^DD(691.7,56,21,0)="^^1^1^2910423^"
^DD(691.7,56,21,1,0)="This field identifies the comment (word-processing) field."
^DD(691.7,57,0)="EKG TECHNICIAN^*P200'^VA(200,^7;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.7,57,3)="Enter staff member resposible for hooking up the patient."
^DD(691.7,57,12)="Only enter Providers!"
^DD(691.7,57,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.7,57,21,0)="^^1^1^2940912^^"
^DD(691.7,57,21,1,0)="This field identifies the staff member responsible for hooking up the patient."
^DD(691.7,57,23,0)="^^1^1^2940912^^^^"
^DD(691.7,57,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,57,"DT")="2940912"
^DD(691.7,58,0)="ATTN PHYS^*P200'^VA(200,^7;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.7,58,1,0)="^.1"
^DD(691.7,58,1,1,0)="^^TRIGGER^691.7^701"
^DD(691.7,58,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.7,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691.7,58,1,1,1.4)"
^DD(691.7,58,1,1,1.4)="S DIH=$S($D(^MCAR(691.7,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.7,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.7,58,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.7,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.7,58,1,1,2.1) X ^DD(691.7,58,1,1,2.4)"
^DD(691.7,58,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(691.7,D0,7)):^(7),1:"""") S X=$P(Y(1),U,2),X=X"
^DD(691.7,58,1,1,2.4)="S DIH=$S($D(^MCAR(691.7,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.7,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.7,58,1,1,"%D",0)="^^1^1^2960423^"
^DD(691.7,58,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(691.7,58,1,1,"CREATE VALUE")="INTERNAL(#58)"
^DD(691.7,58,1,1,"DELETE VALUE")="INTERNAL(#58)"
^DD(691.7,58,1,1,"DT")="2960423"
^DD(691.7,58,1,1,"FIELD")="#701"
^DD(691.7,58,3)="Enter patient's attending physician."
^DD(691.7,58,12)="Only providers can be selected."
^DD(691.7,58,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.7,58,21,0)="^^1^1^2910423^"
^DD(691.7,58,21,1,0)="This field identifies the patient's attending physician."
^DD(691.7,58,23,0)="^^1^1^2921106^^^"
^DD(691.7,58,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,58,"DT")="2960423"
^DD(691.7,59,0)="MPH MOD BRUCE^CJ8,1^^ ; ^X ^DD(691.7,59,9.5) S X=$S(Y(691.7,59,2):Y(691.7,59,3),Y(691.7,59,5):Y(691.7,59,6),Y(691.7,59,7):Y(691.7,59,8),Y(691.7,59,9):Y(691.7,59,10),Y(691.7,59,11):Y(691.7,59,12),Y(691.7,59,13):X)"
^DD(691.7,59,9)="^"
^DD(691.7,59,9.01)="120205^43;120205^32"
^DD(691.7,59,9.1)="$S(#32'="""":#32,#43<540:1.7,#43<720:2.5,#43<900:3.4,#43:4.2,1:"""")"
^DD(691.7,59,9.2)="X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,59,4)=X S Y(691.7,59,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(Y(691.7,59,1),U,4)'="""",Y(691.7,59,2)=X"
^DD(691.7,59,9.3)="X ^DD(691.7,59,9.2) S X=$P(Y(691.7,59,1),U,4),Y(691.7,59,3)=X S X=Y(691.7,59,4)<540,Y(691.7,59,5)=X S X=1.7,Y(691.7,59,6)=X S X=Y(691.7,59,4)<720"
^DD(691.7,59,9.4)="X ^DD(691.7,59,9.3) S Y(691.7,59,7)=X S X=2.5,Y(691.7,59,8)=X S X=Y(691.7,59,4)<900,Y(691.7,59,9)=X S X=3.4,Y(691.7,59,10)=X S X=Y(691.7,59,4)"
^DD(691.7,59,9.5)="X ^DD(691.7,59,9.4) S Y(691.7,59,11)=X S X=4.2,Y(691.7,59,12)=X S X=1,Y(691.7,59,13)=X S X="""""
^DD(691.7,59,21,0)="^^2^2^2910423^"
^DD(691.7,59,21,1,0)="This identifies the MPH MOD BRUCE field (miles/hr of lower intensity"
^DD(691.7,59,21,2,0)="standardized exercise test). "
^DD(691.7,60,0)="MPH SPECIAL^CJ8,1^^ ; ^X ^DD(691.7,60,9.5) S X=$S(Y(691.7,60,2):Y(691.7,60,3),Y(691.7,60,5):Y(691.7,60,6),Y(691.7,60,7):Y(691.7,60,8),Y(691.7,60,9):Y(691.7,60,10),Y(691.7,60,11):Y(691.7,60,12),Y(691.7,60,13):X)"
^DD(691.7,60,9)="^"
^DD(691.7,60,9.01)="120205^43;120205^32"
^DD(691.7,60,9.1)="$S(#32'="""":#32,#43<360:1.7,#43<540:2.5,#43<720:3.4,#43<900:4.2,1:"""")"
^DD(691.7,60,9.2)="X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,60,4)=X S Y(691.7,60,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(Y(691.7,60,1),U,4)'="""",Y(691.7,60,2)=X"
^DD(691.7,60,9.3)="X ^DD(691.7,60,9.2) S X=$P(Y(691.7,60,1),U,4),Y(691.7,60,3)=X S X=Y(691.7,60,4)<360,Y(691.7,60,5)=X S X=1.7,Y(691.7,60,6)=X S X=Y(691.7,60,4)<540"
^DD(691.7,60,9.4)="X ^DD(691.7,60,9.3) S Y(691.7,60,7)=X S X=2.5,Y(691.7,60,8)=X S X=Y(691.7,60,4)<720,Y(691.7,60,9)=X S X=3.4,Y(691.7,60,10)=X S X=Y(691.7,60,4)<900"
^DD(691.7,60,9.5)="X ^DD(691.7,60,9.4) S Y(691.7,60,11)=X S X=4.2,Y(691.7,60,12)=X S X=1,Y(691.7,60,13)=X S X="""""
^DD(691.7,60,21,0)="^^1^1^2910423^"
^DD(691.7,60,21,1,0)="This field identifies the MPH Special field."
^DD(691.7,62,0)="MPH BALKE^CJ8^^ ; ^X ^DD(691.7,62,9.4) S X=$S(Y(691.7,62,2):Y(691.7,62,3),Y(691.7,62,5):Y(691.7,62,6),Y(691.7,62,8):X)"
^DD(691.7,62,9)="^"
^DD(691.7,62,9.01)="120205^43;120205^42;120205^32"
^DD(691.7,62,9.1)="$S(#32'="""":#32,#42<14:2,#43<14:3)"
^DD(691.7,62,9.2)="X $P(^DD(691.7,42,0),U,5,99) S Y(691.7,62,4)=X X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,62,7)=X S Y(691.7,62,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""")"
^DD(691.7,62,9.3)="X ^DD(691.7,62,9.2) S X=$P(Y(691.7,62,1),U,4)'="""",Y(691.7,62,2)=X S X=$P(Y(691.7,62,1),U,4),Y(691.7,62,3)=X S X=Y(691.7,62,4)<14,Y(691.7,62,5)=X S X=2"
^DD(691.7,62,9.4)="X ^DD(691.7,62,9.3) S Y(691.7,62,6)=X S X=Y(691.7,62,7)<14,Y(691.7,62,8)=X S X=3"
^DD(691.7,62,21,0)="^^1^1^2910423^^"
^DD(691.7,62,21,1,0)="This field identifies the MPH BALKE field."
^DD(691.7,65,0)="GRADE SPECIAL^CJ8^^ ; ^X ^DD(691.7,65,9.5) S X=$S(Y(691.7,65,2):Y(691.7,65,3),Y(691.7,65,5):Y(691.7,65,6),Y(691.7,65,7):Y(691.7,65,8),Y(691.7,65,9):Y(691.7,65,10),Y(691.7,65,11):Y(691.7,65,12),Y(691.7,65,13):Y(691.7,65,14),Y(691.7,65,15):X)"
^DD(691.7,65,9)="^"
^DD(691.7,65,9.01)="120205^43;120205^33;120205^32"
^DD(691.7,65,9.1)="$S(#32'="""":#33,#43<180:5,#43<360:10,#43<540:12,#43<720:14,#43<9000:16,1:"""")"
^DD(691.7,65,9.2)="X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,65,4)=X S Y(691.7,65,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(Y(691.7,65,1),U,4)'="""",Y(691.7,65,2)=X"
^DD(691.7,65,9.3)="X ^DD(691.7,65,9.2) S X=$P(Y(691.7,65,1),U,5),Y(691.7,65,3)=X S X=Y(691.7,65,4)<180,Y(691.7,65,5)=X S X=5,Y(691.7,65,6)=X S X=Y(691.7,65,4)<360"
^DD(691.7,65,9.4)="X ^DD(691.7,65,9.3) S Y(691.7,65,7)=X S X=10,Y(691.7,65,8)=X S X=Y(691.7,65,4)<540,Y(691.7,65,9)=X S X=12,Y(691.7,65,10)=X S X=Y(691.7,65,4)<720"
^DD(691.7,65,9.5)="X ^DD(691.7,65,9.4) S Y(691.7,65,11)=X S X=14,Y(691.7,65,12)=X S X=Y(691.7,65,4)<9000,Y(691.7,65,13)=X S X=16,Y(691.7,65,14)=X S X=1,Y(691.7,65,15)=X S X="""""
^DD(691.7,65,21,0)="^^1^1^2910423^"
^DD(691.7,65,21,1,0)="This field identifies the GRADE SPECIAL field."
^DD(691.7,67,0)="GRADE BALKE^CJ8,1^^ ; ^X ^DD(691.7,67,9.5) S X=$S(Y(691.7,67,2):Y(691.7,67,3),Y(691.7,67,5):Y(691.7,67,6),Y(691.7,67,7):Y(691.7,67,8),Y(691.7,67,9):Y(691.7,67,10),Y(691.7,67,11):Y(691.7,67,12),Y(691.7,67,13):Y(691.7,67,14),Y(691.7,67,15):X)"
^DD(691.7,67,9)="^"
^DD(691.7,67,9.01)="120205^43;120205^33"
^DD(691.7,67,9.1)="$S(#33'="""":#33,#43<240:3,#43<360:7,#43<480:10.5,#43<600:14,#43<840:20.5,1:"""")"
^DD(691.7,67,9.2)="X $P(^DD(691.7,43,0),U,5,99) S Y(691.7,67,4)=X S Y(691.7,67,1)=$S($D(^MCAR(691.7,D0,4)):^(4),1:"""") S X=$P(Y(691.7,67,1),U,5)'="""",Y(691.7,67,2)=X"
^DD(691.7,67,9.3)="X ^DD(691.7,67,9.2) S X=$P(Y(691.7,67,1),U,5),Y(691.7,67,3)=X S X=Y(691.7,67,4)<240,Y(691.7,67,5)=X S X=3,Y(691.7,67,6)=X S X=Y(691.7,67,4)<360"
^DD(691.7,67,9.4)="X ^DD(691.7,67,9.3) S Y(691.7,67,7)=X S X=7,Y(691.7,67,8)=X S X=Y(691.7,67,4)<480,Y(691.7,67,9)=X S X=10.5,Y(691.7,67,10)=X S X=Y(691.7,67,4)<600"
^DD(691.7,67,9.5)="X ^DD(691.7,67,9.4) S Y(691.7,67,11)=X S X=14,Y(691.7,67,12)=X S X=Y(691.7,67,4)<840,Y(691.7,67,13)=X S X=20.5,Y(691.7,67,14)=X S X=1,Y(691.7,67,15)=X S X="""""
^DD(691.7,67,21,0)="^^1^1^2910423^"
^DD(691.7,67,21,1,0)="This field identifies the GRADE BALKE field."
^DD(691.7,69,0)="WARD/CLINIC^P44'^SC(^10;5^Q"
^DD(691.7,69,3)="Enter in-house patient location."
^DD(691.7,69,21,0)="^^1^1^2910913^^"
^DD(691.7,69,21,1,0)="This field identifies the in-house patient location."
^DD(691.7,69,"DT")="2910913"
^DD(691.7,70,0)="COMPLICATIONS^691.703P^^11;0"
^DD(691.7,70,21,0)="^^1^1^2910423^"
^DD(691.7,70,21,1,0)="This field identifies the complications field."
^DD(691.7,70,23,0)="^^1^1^2921106^^^"
^DD(691.7,70,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(691.7,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(691.7,600,21,0)="^^2^2^2910424^"
^DD(691.7,600,21,1,0)="Answer must be 1-79 characters in length.  This will appear on"
^DD(691.7,600,21,2,0)="the 'Summary of Patient Procedures.'"
^DD(691.7,600,23,0)="^^1^1^2921106^^^"
^DD(691.7,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,600,"DT")="2901128"
^DD(691.7,700,0)="ICD DIAGNOSIS^691.704P^^ICD;0"
^DD(691.7,700,21,0)="^^2^2^2920102^^"
^DD(691.7,700,21,1,0)="This field contains the ICD9 Diagnosis(es).  There is also a subfield"
^DD(691.7,700,21,2,0)="labeled NARRATIVE DIAGNOSIS which will be used in the future."
^DD(691.7,700,23,0)="^^1^1^2921106^^^"
^DD(691.7,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.7,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.7,701,5,1,0)="691.7^58^1"
^DD(691.7,701,9)="^"
^DD(691.7,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.7,701,21,0)="^^3^3^2920109^"
^DD(691.7,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(691.7,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(691.7,701,21,3,0)="use in transferring data to the PCC."
^DD(691.7,701,"DT")="2941025"
^DD(691.7,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(691.7,900,1,0)="^.1"
^DD(691.7,900,1,1,0)="691.7^APCE"
^DD(691.7,900,1,1,1)="S ^MCAR(691.7,""APCE"",$E(X,1,30),DA)="""""
^DD(691.7,900,1,1,2)="K ^MCAR(691.7,""APCE"",$E(X,1,30),DA)"
^DD(691.7,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(691.7,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(691.7,900,1,1,"DT")="2960517"
^DD(691.7,900,21,0)="^^2^2^2920728^^^"
^DD(691.7,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(691.7,900,21,2,0)="Visit File for use by Queryman."
^DD(691.7,900,"DT")="2960517"
^DD(691.7,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(691.7,1000,3)="Enter Consult Order."
^DD(691.7,1000,21,0)="^^3^3^2910709^"
^DD(691.7,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(691.7,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(691.7,1000,21,3,0)="Medicine package."
^DD(691.7,1000,"DT")="2910709"
^DD(691.7,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(691.7,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(691.7,1001,21,0)="^^3^3^2910816"
^DD(691.7,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(691.7,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(691.7,1001,21,3,0)="results are entered in the Medicine package."
^DD(691.7,1001,"DT")="2910816"
^DD(691.7,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(691.7,1500,"DT")="2930212"
^DD(691.7,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>40!($L(X)<1) X"
^DD(691.7,1501,3)="Answer must be 1-40 characters in length."
^DD(691.7,1501,"DT")="2930212"
^DD(691.7,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.7,1502,"DT")="2930212"
^DD(691.7,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(691.7,1503,"DT")="2930212"
^DD(691.7,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>40!($L(X)<1) X"
^DD(691.7,1504,3)="Answer must be 1-40 characters in length."
^DD(691.7,1504,"DT")="2930212"
^DD(691.7,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.7,1505,"DT")="2930212"
^DD(691.7,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASED ON-LINE VERIFIED;ROV:RELEASED OFF-LINE VERIFIED;RNV:RELEASED NOT VERIFIED;S:SUPERSEDED;SRV:RELEASED ON-LINE VERIFIED OF SUPERSEDED;SROV:RELEASED OFF-LINE VERIFIED OF SUPERSEDED;^ES;7^Q"
^DD(691.7,1506,1,0)="^.1"
^DD(691.7,1506,1,1,0)="691.7^ES"
^DD(691.7,1506,1,1,1)="S ^MCAR(691.7,""ES"",$E(X,1,30),DA)="""""
^DD(691.7,1506,1,1,2)="K ^MCAR(691.7,""ES"",$E(X,1,30),DA)"
^DD(691.7,1506,1,1,"DT")="2930212"
^DD(691.7,1506,"DT")="2931214"
^DD(691.7,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.7,1507,"DT")="2930212"
^DD(691.7,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.7,1508,"DT")="2930212"
^DD(691.7,1509,0)="SUPERSEDED^NJ9,0^^ES;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,1509,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.7,1509,"DT")="2930212"
^DD(691.7,1510,0)="SUPERSEDED BY^NJ9,0^^ES;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,1510,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.7,1510,"DT")="2930212"
^DD(691.7,1511,0)="MARK FOR DELETION^S^1:MARK FOR DELETION;^ES;12^Q"
^DD(691.7,1511,"DT")="2930212"
^DD(691.7,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(691.7,1512,"DT")="2930212"
^DD(691.7,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(691.7,1513,3)="Answer must be 1-40 characters in length."
^DD(691.7,1513,"DT")="2930212"
^DD(691.7,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.7,1514,"DT")="2930212"
^DD(691.7,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.7,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.7,1515,"DT")="2930304"
^DD(691.7,"B","% TARGET HR",48)=""
^DD(691.7,"B","ARRHYTHMIAS",51)=""
^DD(691.7,"B","ATTN PHYS",58)=""
^DD(691.7,"B","BLOOD PRESSURE RESPONSE",53.5)=""
^DD(691.7,"B","COMMENT",56)=""
^DD(691.7,"B","COMPLICATIONS",70)=""
^DD(691.7,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(691.7,"B","CP MODIFIER",21.5)=""
^DD(691.7,"B","CP TIME TOTAL",22)=""
^DD(691.7,"B","CP TME MIN",20)=""
^DD(691.7,"B","CP TME SEC",21)=""
^DD(691.7,"B","CREATION DATE",1514)=""
^DD(691.7,"B","DATE OF RELEASED",1507)=""
^DD(691.7,"B","DATE OF VERIFIED",1508)=""
^DD(691.7,"B","DATE/TIME OF APPOINTMENT",2)=""
^DD(691.7,"B","DATE/TIME OF TEST",.01)=""
^DD(691.7,"B","DELETER DUZ",1512)=""
^DD(691.7,"B","EKG TECHNICIAN",57)=""
^DD(691.7,"B","ENTERING DATE",1502)=""
^DD(691.7,"B","ENTERING DUZ",1500)=""
^DD(691.7,"B","ETT PROTOCOL",7)=""
^DD(691.7,"B","EX TIME",43)=""
^DD(691.7,"B","EX TIME MIN",44)=""
^DD(691.7,"B","EX TIME SEC",45)=""
^DD(691.7,"B","GMRCO",1001)=""
^DD(691.7,"B","GRADE BALKE",67)=""
^DD(691.7,"B","GRADE SPECIAL",65)=""
^DD(691.7,"B","HEART MED",4)=""
^DD(691.7,"B","HEART RATE RESPONSE",53)=""
^DD(691.7,"B","HYPERVENTILATION",8)=""
^DD(691.7,"B","ICD DIAGNOSIS",700)=""
^DD(691.7,"B","ID",.02)=""
^DD(691.7,"B","INTERPRETATION",55)=""
^DD(691.7,"B","KILO POND METERS (KPM)",32.1)=""
^DD(691.7,"B","MARK FOR DELETION",1511)=""
^DD(691.7,"B","MEDICAL PATIENT",1)=""
^DD(691.7,"B","METS",34)=""
^DD(691.7,"B","MPH BALKE",62)=""
^DD(691.7,"B","MPH MOD BRUCE",59)=""
^DD(691.7,"B","MPH SPECIAL",60)=""
^DD(691.7,"B","ONSET CP DBP",25)=""
^DD(691.7,"B","ONSET CP HR",23)=""
^DD(691.7,"B","ONSET CP RPP",28)=""
^DD(691.7,"B","ONSET CP SBP",24)=""
^DD(691.7,"B","ONSET CP ST",26)=""
^DD(691.7,"B","ONSET CP ST SLOPE",27)=""
^DD(691.7,"B","ORIFN",1000)=""
^DD(691.7,"B","OTHER EKG CHANGE",52)=""
^DD(691.7,"B","OTHER MEDICATION",4.5)=""
^DD(691.7,"B","PCC POINTER",900)=""
^DD(691.7,"B","PK DBP",31)=""
^DD(691.7,"B","PK EX GRADE",33)=""
^DD(691.7,"B","PK EX MPH",32)=""
^DD(691.7,"B","PK HR",29)=""
^DD(691.7,"B","PK RPP",42)=""
^DD(691.7,"B","PK SBP",30)=""
^DD(691.7,"B","PK ST",39)=""
^DD(691.7,"B","PK ST SLOPE",40)=""
^DD(691.7,"B","PREDICTED HR",46)=""
^DD(691.7,"B","PRIMARY PROVIDER",701)=""
^DD(691.7,"B","PROCEDURE SUMMARY",600)=""
^DD(691.7,"B","REASON FOR STOPPING",50)=""
^DD(691.7,"B","REASON FOR TEST",3)=""
^DD(691.7,"B","REF. MD",6)=""
^DD(691.7,"B","RELEASE CODE",1506)=""
^DD(691.7,"B","RESTING EKG",5)=""
^DD(691.7,"B","RISK FACTOR",.05)=""
^DD(691.7,"B","RS DBP",11)=""
^DD(691.7,"B","RS HR",9)=""
^DD(691.7,"B","RS RPP",12)=""
^DD(691.7,"B","RS SBP",10)=""
^DD(691.7,"B","RS ST",17)=""
^DD(691.7,"B","RS ST SLOPE",18)=""
^DD(691.7,"B","RU DBP",15)=""
^DD(691.7,"B","RU HR",13)=""
^DD(691.7,"B","RU RPP",16)=""
^DD(691.7,"B","RU SBP",14)=""
^DD(691.7,"B","RU ST",17.5)=""
^DD(691.7,"B","RU ST SLOPE",19)=""
^DD(691.7,"B","SIGNER VALIDATION CODE",1504)=""
^DD(691.7,"B","SUMMARY",.03)=""
^DD(691.7,"B","SUPERSEDED",1509)=""
^DD(691.7,"B","SUPERSEDED BY",1510)=""
^DD(691.7,"B","SUPERSEDED DATE",1513)=""
^DD(691.7,"B","SUPERSEDED NUMBER",1515)=""
^DD(691.7,"B","SYMPTOM",.04)=""
^DD(691.7,"B","TIME RETURN BASELINE ST",54)=""
^DD(691.7,"B","TIME ST - 1",47)=""
^DD(691.7,"B","TIME ST - 2",49)=""
^DD(691.7,"B","VERIFIER DATE",1505)=""
^DD(691.7,"B","VERIFYING DUZ",1503)=""
^DD(691.7,"B","WARD/CLINIC",69)=""
^DD(691.7,"B","WATTS",32.2)=""
^DD(691.7,"B","WT LBS",6.1)=""
^DD(691.7,"GL",0,1,.01)=""
^DD(691.7,"GL",0,2,1)=""
^DD(691.7,"GL",0,3,2)=""
^DD(691.7,"GL",0,4,3)=""
^DD(691.7,"GL",.1,1,.02)=""
^DD(691.7,"GL",.2,1,.03)=""
^DD(691.7,"GL",.2,2,600)=""
^DD(691.7,"GL",.3,0,.04)=""
^DD(691.7,"GL",.4,0,.05)=""
^DD(691.7,"GL",1,0,4)=""
^DD(691.7,"GL",2,0,5)=""
^DD(691.7,"GL",3,1,6)=""
^DD(691.7,"GL",3,2,7)=""
^DD(691.7,"GL",3,3,8)=""
^DD(691.7,"GL",3,4,9)=""
^DD(691.7,"GL",3,5,10)=""
^DD(691.7,"GL",3,6,11)=""
^DD(691.7,"GL",3,7,13)=""
^DD(691.7,"GL",3,8,14)=""
^DD(691.7,"GL",3,9,15)=""
^DD(691.7,"GL",3,10,17)=""
^DD(691.7,"GL",3,11,18)=""
^DD(691.7,"GL",3,12,19)=""
^DD(691.7,"GL",3,13,20)=""
^DD(691.7,"GL",3,14,21)=""
^DD(691.7,"GL",3,15,23)=""
^DD(691.7,"GL",3,16,24)=""
^DD(691.7,"GL",3,17,25)=""
^DD(691.7,"GL",3,18,26)=""
^DD(691.7,"GL",3,19,27)=""
^DD(691.7,"GL",4,1,29)=""
^DD(691.7,"GL",4,2,30)=""
^DD(691.7,"GL",4,3,31)=""
^DD(691.7,"GL",4,4,32)=""
^DD(691.7,"GL",4,5,33)=""
^DD(691.7,"GL",4,6,34)=""
^DD(691.7,"GL",4,7,39)=""
^DD(691.7,"GL",4,8,40)=""
^DD(691.7,"GL",4,9,44)=""
^DD(691.7,"GL",4,10,45)=""
^DD(691.7,"GL",5,1,47)=""
^DD(691.7,"GL",5,2,49)=""
^DD(691.7,"GL",5,3,50)=""
^DD(691.7,"GL",5,4,51)=""
^DD(691.7,"GL",5,6,53)=""
^DD(691.7,"GL",5,7,54)=""
^DD(691.7,"GL",5,8,55)=""
^DD(691.7,"GL",6,0,56)=""
^DD(691.7,"GL",7,1,57)=""
^DD(691.7,"GL",7,2,58)=""
^DD(691.7,"GL",7,3,17.5)=""
^DD(691.7,"GL",7,4,53.5)=""
^DD(691.7,"GL",8,0,4.5)=""
^DD(691.7,"GL",9,0,52)=""
^DD(691.7,"GL",10,1,6.1)=""
^DD(691.7,"GL",10,2,21.5)=""
^DD(691.7,"GL",10,3,32.1)=""
^DD(691.7,"GL",10,4,32.2)=""
^DD(691.7,"GL",10,5,69)=""
^DD(691.7,"GL",11,0,70)=""
^DD(691.7,"GL","ES",1,1500)=""
^DD(691.7,"GL","ES",2,1501)=""
^DD(691.7,"GL","ES",3,1502)=""
^DD(691.7,"GL","ES",4,1503)=""
^DD(691.7,"GL","ES",5,1504)=""
^DD(691.7,"GL","ES",6,1505)=""
^DD(691.7,"GL","ES",7,1506)=""
^DD(691.7,"GL","ES",8,1507)=""
^DD(691.7,"GL","ES",9,1508)=""
^DD(691.7,"GL","ES",10,1509)=""
^DD(691.7,"GL","ES",11,1510)=""
^DD(691.7,"GL","ES",12,1511)=""
^DD(691.7,"GL","ES",13,1512)=""
^DD(691.7,"GL","ES",14,1513)=""
^DD(691.7,"GL","ES",15,1514)=""
^DD(691.7,"GL","ES",16,1515)=""
^DD(691.7,"GL","ICD",0,700)=""
^DD(691.7,"GL","OR",1,1000)=""
^DD(691.7,"GL","OR",2,1001)=""
^DD(691.7,"GL","PCC",1,900)=""
^DD(691.7,"GL","PROV",1,701)=""
^DD(691.7,"IX",.01)=""
^DD(691.7,"IX",1)=""
^DD(691.7,"IX",58)=""
^DD(691.7,"IX",900)=""
^DD(691.7,"IX",1506)=""
^DD(691.7,"RQ",.01)=""
^DD(691.7,"RQ",.03)=""
^DD(691.7,"RQ",1)=""
^DD(691.7,"RQ",600)=""
^DD(691.7,"SB",691.701,.04)=""
^DD(691.7,"SB",691.702,.05)=""
^DD(691.7,"SB",691.703,70)=""
^DD(691.7,"SB",691.704,700)=""
^DD(691.7,"SB",691.71,4)=""
^DD(691.7,"SB",691.72,5)=""
^DD(691.7,"SB",691.73,56)=""
^DD(691.7,"SB",691.74,4.5)=""
^DD(691.7,"SB",691.75,52)=""
^DD(691.701,0)="SYMPTOM SUB-FIELD^^.01^1"
^DD(691.701,0,"DT")="2960530"
^DD(691.701,0,"IX","B",691.701,.01)=""
^DD(691.701,0,"NM","SYMPTOM")=""
^DD(691.701,0,"UP")="691.7"
^DD(691.701,.01,0)="SYMPTOM^M*P695.5'^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""ETT"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.701,.01,1,0)="^.1"
^DD(691.701,.01,1,1,0)="691.701^B"
^DD(691.701,.01,1,1,1)="S ^MCAR(691.7,DA(1),.3,""B"",$E(X,1,30),DA)="""""
^DD(691.701,.01,1,1,2)="K ^MCAR(691.7,DA(1),.3,""B"",$E(X,1,30),DA)"
^DD(691.701,.01,3)="HISTORY OF PRESENT HISTORY"
^DD(691.701,.01,12)="Choose symptoms applying to ETT or Cardiology only"
^DD(691.701,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""ETT"""",+Y))!($D(^MCAR(695.5,""""C"""",""""C"""",+Y)))"""
^DD(691.701,.01,21,0)="^^1^1^2960603^^^"
^DD(691.701,.01,21,1,0)="This field contains the patient's physical complaints or symtoms."
^DD(691.701,.01,"DT")="2960530"
^DD(691.701,"B","SYMPTOM",.01)=""
^DD(691.701,"GL",0,1,.01)=""
^DD(691.701,"IX",.01)=""
^DD(691.702,0)="RISK FACTOR SUB-FIELD^^.01^1"
^DD(691.702,0,"IX","B",691.702,.01)=""
^DD(691.702,0,"NM","RISK FACTOR")=""
^DD(691.702,0,"UP")="691.7"
^DD(691.702,.01,0)="RISK FACTOR^MP695.4'^MCAR(695.4,^0;1^Q"
^DD(691.702,.01,1,0)="^.1"
^DD(691.702,.01,1,1,0)="691.702^B"
^DD(691.702,.01,1,1,1)="S ^MCAR(691.7,DA(1),.4,""B"",$E(X,1,30),DA)="""""
^DD(691.702,.01,1,1,2)="K ^MCAR(691.7,DA(1),.4,""B"",$E(X,1,30),DA)"
^DD(691.702,.01,3)="RELEVANT PAST HISTORY"
^DD(691.702,.01,21,0)="^^3^3^2900124^"
^DD(691.702,.01,21,1,0)="This field contains the morbidity factors which  "
^DD(691.702,.01,21,2,0)="this patient is most susceptible to in regards"
^DD(691.702,.01,21,3,0)="to this procedure."
^DD(691.702,.01,"DT")="2860714"
^DD(691.702,"B","RISK FACTOR",.01)=""
^DD(691.702,"GL",0,1,.01)=""
^DD(691.702,"IX",.01)=""
^DD(691.703,0)="COMPLICATIONS SUB-FIELD^^.01^1"
^DD(691.703,0,"IX","B",691.703,.01)=""
^DD(691.703,0,"NM","COMPLICATIONS")=""
^DD(691.703,0,"UP")="691.7"
^DD(691.703,.01,0)="COMPLICATIONS^M*P696.9'^MCAR(696.9,^0;1^S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",""""E"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.703,.01,1,0)="^.1"
^DD(691.703,.01,1,1,0)="691.703^B"
^DD(691.703,.01,1,1,1)="S ^MCAR(691.7,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(691.703,.01,1,1,2)="K ^MCAR(691.7,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(691.703,.01,3)=""
^DD(691.703,.01,12)="CHOOSE FROM THE SET OF COMPLICATIONS WHICH HAS BEEN ESTABLISHED FOR THIS PROCEDURE."
^DD(691.703,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",""""E"""",+Y))"""
^DD(691.703,.01,21,0)="^^1^1^2910423^"
^DD(691.703,.01,21,1,0)="This field identifies the complications field."
^DD(691.703,.01,23,0)="^^1^1^2921106^^^"
^DD(691.703,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.703,.01,"DT")="2900315"
^DD(691.703,"B","COMPLICATIONS",.01)=""
^DD(691.703,"GL",0,1,.01)=""
^DD(691.703,"IX",.01)=""
^DD(691.704,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(691.704,0,"DT")="2930310"
^DD(691.704,0,"IX","B",691.704,.01)=""
^DD(691.704,0,"NM","ICD DIAGNOSIS")=""
^DD(691.704,0,"UP")="691.7"
^DD(691.704,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(691.704,.01,1,0)="^.1"
^DD(691.704,.01,1,1,0)="691.704^B"
^DD(691.704,.01,1,1,1)="S ^MCAR(691.7,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(691.704,.01,1,1,2)="K ^MCAR(691.7,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(691.704,.01,21,0)="^^2^2^2920102^^"
^DD(691.704,.01,21,1,0)="This field contains the ICD9 Diagnosis(es).  There is also a subfield"
^DD(691.704,.01,21,2,0)="labeled NARRATIVE DIAGNOSIS which will be used in the future."
^DD(691.704,.01,23,0)="^^1^1^2921106^^^"
^DD(691.704,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.704,.01,"DT")="2930310"
^DD(691.704,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(691.704,.02,3)="Answer must be 1-80 characters in length."
^DD(691.704,.02,23,0)="^^1^1^2921106^^^"
^DD(691.704,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.704,.02,"DT")="2920102"
^DD(691.704,"B","ICD DIAGNOSIS",.01)=""
^DD(691.704,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(691.704,"GL",0,1,.01)=""
^DD(691.704,"GL",0,2,.02)=""
^DD(691.704,"IX",.01)=""
^DD(691.71,0)="HEART MED SUB-FIELD^NL^2^3"
^DD(691.71,0,"IX","B",691.71,.01)=""
^DD(691.71,0,"NM","HEART MED")=""
^DD(691.71,0,"UP")="691.7"
^DD(691.71,.01,0)="HEART MED^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.71,.01,1,0)="^.1"
^DD(691.71,.01,1,1,0)="691.71^B"
^DD(691.71,.01,1,1,1)="S ^MCAR(691.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(691.71,.01,1,1,2)="K ^MCAR(691.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(691.71,.01,3)="Enter cardiac medicine that patient is taking at time of this procedure."
^DD(691.71,.01,12)="CHOOSE CARDIAC MEDICATIONS ONLY"
^DD(691.71,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"""
^DD(691.71,.01,21,0)="^^3^3^2900124^"
^DD(691.71,.01,21,1,0)="This field (multiple) contains the cardiac"
^DD(691.71,.01,21,2,0)="medicines that the patient is taking at "
^DD(691.71,.01,21,3,0)="the time of this procedure."
^DD(691.71,.01,"DT")="2880822"
^DD(691.71,1,0)="DOSE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(691.71,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(691.71,1,21,0)="^^2^2^2920324^"
^DD(691.71,1,21,1,0)="This allows the user to enter the dosage of the cardiac medicines"
^DD(691.71,1,21,2,0)="that the patient is taking at the time of this procedure."
^DD(691.71,1,"DT")="2860903"
^DD(691.71,2,0)="FREQUENCY^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(691.71,2,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(691.71,2,21,0)="^^2^2^2920324^"
^DD(691.71,2,21,1,0)="This allows the user to enter the time/number of times (frequency)"
^DD(691.71,2,21,2,0)="the patient takes the cardiac medicine."
^DD(691.71,2,"DT")="2880518"
^DD(691.71,"B","DOSE",1)=""
^DD(691.71,"B","FREQUENCY",2)=""
^DD(691.71,"B","HEART MED",.01)=""
^DD(691.71,"GL",0,1,.01)=""
^DD(691.71,"GL",0,2,1)=""
^DD(691.71,"GL",0,3,2)=""
^DD(691.71,"IX",.01)=""
^DD(691.72,0)="RESTING EKG SUB-FIELD^NL^.01^1"
^DD(691.72,0,"NM","RESTING EKG")=""
^DD(691.72,0,"UP")="691.7"
^DD(691.72,.01,0)="RESTING EKG^W^^0;1^Q"
^DD(691.72,.01,3)="Enter latest, pre-exercise EKG procedure."
^DD(691.72,.01,21,0)="^^2^2^2900124^"
^DD(691.72,.01,21,1,0)="This field refers to the latest, pre-exercise"
^DD(691.72,.01,21,2,0)="EKG procedure."
^DD(691.72,"B","RESTING EKG",.01)=""
^DD(691.72,"GL",0,1,.01)=""
^DD(691.73,0)="COMMENT SUB-FIELD^NL^.01^1"
^DD(691.73,0,"NM","COMMENT")=""
^DD(691.73,0,"UP")="691.7"
^DD(691.73,.01,0)="COMMENT^W^^0;1^Q"
^DD(691.73,.01,3)="Enter comments."
^DD(691.73,.01,21,0)="^^1^1^2910423^"
^DD(691.73,.01,21,1,0)="This field identifies the comment (word-processing) field."
^DD(691.73,"B","COMMENT",.01)=""
^DD(691.73,"GL",0,1,.01)=""
^DD(691.74,0)="OTHER MEDICATION SUB-FIELD^NL^1^2"
^DD(691.74,0,"NM","OTHER MEDICATION")=""
^DD(691.74,0,"UP")="691.7"
^DD(691.74,.01,0)="OTHER MEDICATION^F^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(691.74,.01,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(691.74,.01,21,0)="^^2^2^2900124^"
^DD(691.74,.01,21,1,0)="This field (multiple) contains the non-cardiac medicines"
^DD(691.74,.01,21,2,0)="that the patient was taking at the time of this procedure."
^DD(691.74,1,0)="DOSE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(691.74,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(691.74,1,21,0)="^^2^2^2920324^"
^DD(691.74,1,21,1,0)="This allows the user to enter the dosage of non-cardiac medicines"
^DD(691.74,1,21,2,0)="that the patient was taking at the time of this procedure."
^DD(691.74,"B","DOSE",1)=""
^DD(691.74,"B","OTHER MEDICATION",.01)=""
^DD(691.74,"GL",0,1,.01)=""
^DD(691.74,"GL",0,2,1)=""
^DD(691.75,0)="OTHER EKG CHANGE SUB-FIELD^NL^.01^1"
^DD(691.75,0,"NM","OTHER EKG CHANGE")=""
^DD(691.75,0,"UP")="691.7"
^DD(691.75,.01,0)="OTHER EKG CHANGE^W^^0;1^Q"
^DD(691.75,.01,3)="Enter comments on any irregularities."
^DD(691.75,.01,21,0)="^^1^1^2910423^"
^DD(691.75,.01,21,1,0)="This field identifies an irregularity."
^DD(691.75,"B","OTHER EKG CHANGE",.01)=""
^DD(691.75,"GL",0,1,.01)=""
^DD(691.8,0)="FIELD^^1515^51"
^DD(691.8,0,"DT")="2960226"
^DD(691.8,0,"ID",1)="S ZZ=+$P(^(0),""^"",2) W ""   "",$S($D(^MCAR(690,ZZ,0))#2:$P(^DPT(ZZ,0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"") K ZZ"
^DD(691.8,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(691.8,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(691.8,0,"IX","AC",691.8,1)=""
^DD(691.8,0,"IX","AD",691.8,.01)=""
^DD(691.8,0,"IX","APCE",691.8,900)=""
^DD(691.8,0,"IX","B",691.8,.01)=""
^DD(691.8,0,"IX","C",691.8,1)=""
^DD(691.8,0,"IX","ES",691.8,1506)=""
^DD(691.8,0,"NM","ELECTROPHYSIOLOGY (EP)")=""
^DD(691.8,0,"PT",123,11)=""
^DD(691.8,0,"PT",123.03,.01)=""
^DD(691.8,0,"PT",691.9,.5)=""
^DD(691.8,0,"PT",692,.5)=""
^DD(691.8,0,"VR")="2.3"
^DD(691.8,0,"VRPK")="MEDICINE"
^DD(691.8,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.8,.01,1,0)="^.1"
^DD(691.8,.01,1,1,0)="691.8^B"
^DD(691.8,.01,1,1,1)="S ^MCAR(691.8,""B"",$E(X,1,30),DA)="""""
^DD(691.8,.01,1,1,2)="K ^MCAR(691.8,""B"",$E(X,1,30),DA)"
^DD(691.8,.01,1,2,0)="691.8^AD^MUMPS"
^DD(691.8,.01,1,2,1)="S MCARCDIE=""^MCAR(691.8,"" D CHGDTE1^MCARPROC"
^DD(691.8,.01,1,2,2)="S MCARCDIE=""^MCAR(691.8,"" D CHGDTE^MCARPROC"
^DD(691.8,.01,1,2,"%D",0)="^^3^3^2920420^^"
^DD(691.8,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.8,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent EP procedure for this"
^DD(691.8,.01,1,2,"%D",3,0)="patient."
^DD(691.8,.01,3)="ENTER PATIENT'S NAME OR DATE AND TIME OF ELECTROPHYSIOLOGY"
^DD(691.8,.01,21,0)="^^2^2^2910426^"
^DD(691.8,.01,21,1,0)="This field identifies the date and time that the procedure was"
^DD(691.8,.01,21,2,0)="entered into the database."
^DD(691.8,.01,23,0)="^^1^1^2921106^^^"
^DD(691.8,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.8,.01,"DT")="2870805"
^DD(691.8,.02,0)="ID^F^^.1;1^K:$L(X)>10!($L(X)<2) X"
^DD(691.8,.02,3)="Enter any unique identification for this EP, 2 to 10 characters.  SSN need not be entered since it has been previously entered."
^DD(691.8,.02,21,0)="^^1^1^2910426^^"
^DD(691.8,.02,21,1,0)="This field identifies the patient identifier."
^DD(691.8,.02,"DT")="2870723"
^DD(691.8,.03,0)="SUMMARY^RS^N:NORMAL;A:ABNORMAL;B:BORDERLINE;^.2;1^Q"
^DD(691.8,.03,3)="Enter Code to describe normalcy of procedure performed."
^DD(691.8,.03,21,0)="^^1^1^2910426^"
^DD(691.8,.03,21,1,0)="This field summarizes the results of this procedure."
^DD(691.8,.03,"DT")="2870813"
^DD(691.8,.04,0)="SYMPTOM^691.801PA^^1;0"
^DD(691.8,.04,21,0)="^^1^1^2910426^"
^DD(691.8,.04,21,1,0)="These are the clinical signs of disease."
^DD(691.8,.05,0)="RISK FACTOR^691.802PA^^2;0"
^DD(691.8,.05,21,0)="^^2^2^2910426^"
^DD(691.8,.05,21,1,0)="These are the conditions which contribute to the overall"
^DD(691.8,.05,21,2,0)="percentages of disease."
^DD(691.8,.9,0)="HEART MEDICATION^691.803PA^^3;0"
^DD(691.8,.9,21,0)="^^1^1^2910426^"
^DD(691.8,.9,21,1,0)="This field identifies the medication which the patient has been prescribed"
^DD(691.8,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(691.8,1,1,0)="^.1"
^DD(691.8,1,1,1,0)="691.8^C"
^DD(691.8,1,1,1,1)="S ^MCAR(691.8,""C"",$E(X,1,30),DA)="""""
^DD(691.8,1,1,1,2)="K ^MCAR(691.8,""C"",$E(X,1,30),DA)"
^DD(691.8,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.8,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(691.8,1,1,2,0)="691.8^AC^MUMPS"
^DD(691.8,1,1,2,1)="S MCARCDIE=""^MCAR(691.8,"" D CHGPAT^MCARPROC"
^DD(691.8,1,1,2,2)="S MCARCDIE=""^MCAR(691.8,"" D KILL^MCARPROC"
^DD(691.8,1,1,2,"%D",0)="^^3^3^2920420^^"
^DD(691.8,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(691.8,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent EP procedure for this"
^DD(691.8,1,1,2,"%D",3,0)="patient."
^DD(691.8,1,3)="Enter patients name: Last, First MI"
^DD(691.8,1,21,0)="^^4^4^2910416^"
^DD(691.8,1,21,1,0)="This field identifies the patients last name, followed"
^DD(691.8,1,21,2,0)="by a comma, followed by a space(optional),"
^DD(691.8,1,21,3,0)="followed by the first name, followed by"
^DD(691.8,1,21,4,0)="a space, followed by the middle initial."
^DD(691.8,1,23,0)="^^1^1^2921106^^^"
^DD(691.8,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.8,1,"DT")="2870723"
^DD(691.8,3,0)="HOSPITAL OF STUDY^F^^4;3^K:$L(X)>40!($L(X)<3) X"
^DD(691.8,3,3)="Answer must be 3-40 characters in length."
^DD(691.8,3,21,0)="^^1^1^2910416^"
^DD(691.8,3,21,1,0)="This field defines the facility performing this procedure."
^DD(691.8,3,"DT")="2890920"
^DD(691.8,4,0)="REASON FOR STUDY^F^^4;4^K:$L(X)>120!($L(X)<1) X"
^DD(691.8,4,3)="Answer must be 1-120 characters in length."
^DD(691.8,4,21,0)="^^1^1^2910416^"
^DD(691.8,4,21,1,0)="This field documents the rationale of the procedure for this patient."
^DD(691.8,4,23,0)="^^1^1^2921106^^^"
^DD(691.8,4,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.8,4,"DT")="2891002"
^DD(691.8,5,0)="ARRHYTHMIA DX^691.805PA^^5;0"
^DD(691.8,5,12)="CHOOSE EP DIAGNOSISES ONLY"
^DD(691.8,5,21,0)="^^1^1^2910416^"
^DD(691.8,5,21,1,0)="This field identifies an arrhythmia diagnosis field."
^DD(691.8,6,0)="CARDIAC DX^*P697.5'X^MCAR(697.5,^6;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.CATH"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",(D,MCDF)=""A.CATH"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.8,6,3)="Enter cardiac diagnosis field."
^DD(691.8,6,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.CATH"" D MIX^DIC1"
^DD(691.8,6,12)="CARDIAC CATHERIZATION CODES ONLY"
^DD(691.8,6,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.CATH"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",(D,MCDF)=""A.CATH"""
^DD(691.8,6,21,0)="^^1^1^2910416^"
^DD(691.8,6,21,1,0)="This field identifies a cardiac diagnosis field."
^DD(691.8,6,"DT")="2911023"
^DD(691.8,7,0)="HX^691.87^^7;0"
^DD(691.8,8,0)="EJECTION FRACTION^NJ2,0^^8;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.8,8,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(691.8,8,21,0)="^^1^1^2910416^"
^DD(691.8,8,21,1,0)="This field quantifies the cardiac efficiency."
^DD(691.8,9,0)="EJECTION FRACTION METHOD^S^RVG:RVG;VENT:VENTRICULOGRAPHY;2-DE:2D ECHO;^8;2^Q"
^DD(691.8,9,3)="Enter methodolody used to determine the ejection fraction."
^DD(691.8,9,21,0)="^^1^1^2910416^"
^DD(691.8,9,21,1,0)="This field documents the methodology used to determine the ejection fraction."
^DD(691.8,10,0)="HEART BLOCK^691.804SA^^9;0"
^DD(691.8,10,21,0)="^^1^1^2910416^^"
^DD(691.8,10,21,1,0)="This field defines the state of heart block."
^DD(691.8,11,0)="CAROTID STIMULATION^691.811SA^^10;0"
^DD(691.8,11,21,0)="^^1^1^2910416^"
^DD(691.8,11,21,1,0)="This field documents the episodes of carotid stimulation."
^DD(691.8,12,0)="SVT-TYPE^691.812SA^^11;0"
^DD(691.8,12,21,0)="^^1^1^2910416^"
^DD(691.8,12,21,1,0)="This field defines the SVT-type"
^DD(691.8,13,0)="INTERPRETATION^691.813^^12;0"
^DD(691.8,13,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(691.8,13,21,0)="^^1^1^2910416^"
^DD(691.8,13,21,1,0)="This field documents the clinical interpretation."
^DD(691.8,13,23,0)="^^1^1^2921106^^^"
^DD(691.8,13,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.8,14,0)="COMMENT^691.814^^13;0"
^DD(691.8,14,21,0)="^^1^1^2910416^"
^DD(691.8,14,21,1,0)="This field identifies a word processing comment field."
^DD(691.8,14,23,0)="^^1^1^2921106^^^"
^DD(691.8,14,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.8,15,0)="FOLLOW UP^691.815SA^^14;0"
^DD(691.8,15,21,0)="^^1^1^2910416^"
^DD(691.8,15,21,1,0)="This field documents follow up care/diagnostics."
^DD(691.8,16,0)="CARDIOLOGY STAFF^*P200'^VA(200,^15;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.8,16,1,0)="^.1"
^DD(691.8,16,1,1,0)="^^TRIGGER^691.8^701"
^DD(691.8,16,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.8,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691.8,16,1,1,1.4)"
^DD(691.8,16,1,1,1.4)="S DIH=$S($D(^MCAR(691.8,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.8,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.8,16,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.8,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.8,16,1,1,2.1) X ^DD(691.8,16,1,1,2.4)"
^DD(691.8,16,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(691.8,D0,15)):^(15),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(691.8,16,1,1,2.4)="S DIH=$S($D(^MCAR(691.8,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.8,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.8,16,1,1,"%D",0)="^^1^1^2960423^"
^DD(691.8,16,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(691.8,16,1,1,"CREATE VALUE")="INTERNAL(#16)"
^DD(691.8,16,1,1,"DELETE VALUE")="INTERNAL(#16)"
^DD(691.8,16,1,1,"DT")="2960423"
^DD(691.8,16,1,1,"FIELD")="#701"
^DD(691.8,16,3)="Enter participating clinical staff."
^DD(691.8,16,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.8,16,21,0)="^^1^1^2910416^"
^DD(691.8,16,21,1,0)="This field identifies the participating clinical staff."
^DD(691.8,16,23,0)="^^1^1^2921106^^^"
^DD(691.8,16,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(691.8,16,"DT")="2960423"
^DD(691.8,17,0)="CARDIOLOGY FELLOW^*P200'^VA(200,^15;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.8,17,3)="Enter participating clinical fellow."
^DD(691.8,17,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.8,17,21,0)="^^1^1^2910416^"
^DD(691.8,17,21,1,0)="This field identifies the participating clinical fellow."
^DD(691.8,17,23,0)="^^1^1^2921106^^^"
^DD(691.8,17,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.8,17,"DT")="2941025"
^DD(691.8,18,0)="WARD/CLINIC^P44'^SC(^15;3^Q"
^DD(691.8,18,3)="Enter patient's location."
^DD(691.8,18,21,0)="^^1^1^2910913^^"
^DD(691.8,18,21,1,0)="This field identifies the patient's location."
^DD(691.8,18,"DT")="2910913"
^DD(691.8,19,0)="CARDIOLOGY STAFF-2ND^*P200'^VA(200,^15;4^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.8,19,3)="Enter name of 2nd attending physician"
^DD(691.8,19,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.8,19,21,0)="^^1^1^2910416^"
^DD(691.8,19,21,1,0)="This field identifies the secondary participating staff member."
^DD(691.8,19,"DT")="2941025"
^DD(691.8,20,0)="CARDIOLOGY FELLOW-2ND^*P200'^VA(200,^15;5^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.8,20,3)="Enter name of 2nd cardiology fellow"
^DD(691.8,20,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.8,20,21,0)="^^1^1^2910416^"
^DD(691.8,20,21,1,0)="This field identifies the secondary clinical fellow."
^DD(691.8,20,"DT")="2941025"
^DD(691.8,21,0)="DISCHARGE DATE^691.96D^^16;0"
^DD(691.8,22,0)="FOLLOW UP^691.97S^^17;0"
^DD(691.8,24,0)="CARDIOLOGY STAFF^P200'^VA(200,^19;1^K:'$D(^VA(200,""AK.PROVIDER"",$P(Y,U,2),+Y)) X"
^DD(691.8,24,3)=""
^DD(691.8,24,"DT")="2870108"
^DD(691.8,25,0)="CARDIOLOGY FELLOW^P200'^VA(200,^19;2^K:'$D(^VA(200,""AK.PROVIDER"",$P(Y,U,2),+Y)) X"
^DD(691.8,25,3)=""
^DD(691.8,25,"DT")="2870108"
^DD(691.8,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(691.8,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(691.8,600,21,0)="^^2^2^2910416^"
^DD(691.8,600,21,1,0)="This 1-79 character field is provided as input into the"
^DD(691.8,600,21,2,0)="summary of patient procedures."
^DD(691.8,600,23,0)="^^1^1^2921106^^^"
^DD(691.8,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.8,600,"DT")="2901128"
^DD(691.8,700,0)="ICD DIAGNOSIS^691.806P^^ICD;0"
^DD(691.8,700,21,0)="^^3^3^2920114^^^"
^DD(691.8,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  This field"
^DD(691.8,700,21,2,0)="also contains a subfield labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(691.8,700,21,3,0)="the future."
^DD(691.8,700,23,0)="^^1^1^2921106^^^"
^DD(691.8,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.8,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.8,701,5,1,0)="691.8^16^1"
^DD(691.8,701,9)="^"
^DD(691.8,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.8,701,21,0)="^^3^3^2920109^"
^DD(691.8,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(691.8,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(691.8,701,21,3,0)="use in transferring data to the PCC."
^DD(691.8,701,"DT")="2941025"
^DD(691.8,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(691.8,900,1,0)="^.1"
^DD(691.8,900,1,1,0)="691.8^APCE"
^DD(691.8,900,1,1,1)="S ^MCAR(691.8,""APCE"",$E(X,1,30),DA)="""""
^DD(691.8,900,1,1,2)="K ^MCAR(691.8,""APCE"",$E(X,1,30),DA)"
^DD(691.8,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(691.8,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(691.8,900,1,1,"DT")="2960517"
^DD(691.8,900,21,0)="^^2^2^2920728^^^"
^DD(691.8,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(691.8,900,21,2,0)="Visit File for use by Queryman."
^DD(691.8,900,"DT")="2960517"
^DD(691.8,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(691.8,1000,3)="Enter Consult Order."
^DD(691.8,1000,21,0)="^^3^3^2910709^"
^DD(691.8,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(691.8,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(691.8,1000,21,3,0)="Medicine package."
^DD(691.8,1000,"DT")="2910709"
^DD(691.8,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(691.8,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(691.8,1001,21,0)="^^3^3^2910816"
^DD(691.8,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(691.8,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(691.8,1001,21,3,0)="results are entered in the Medicine package."
^DD(691.8,1001,"DT")="2910816"
^DD(691.8,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(691.8,1500,"DT")="2930212"
^DD(691.8,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>40!($L(X)<1) X"
^DD(691.8,1501,3)="Answer must be 1-40 characters in length."
^DD(691.8,1501,"DT")="2930212"
^DD(691.8,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.8,1502,"DT")="2930212"
^DD(691.8,1503,0)="VERFIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(691.8,1503,"DT")="2930212"
^DD(691.8,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>40!($L(X)<1) X"
^DD(691.8,1504,3)="Answer must be 1-40 characters in length."
^DD(691.8,1504,"DT")="2930212"
^DD(691.8,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.8,1505,"DT")="2930212"
^DD(691.8,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASED ON-LINE VERIFIED;ROV:RELEASED OFF-LINE VERIFIED;RNV:RELEASED NOT VERIFIED;S:SUPERSEDED;SRV:RELEASED ON-LINE VERIFIED OF SUPERSEDED;SROV:RELEASED OFF-LINE VERIFIED OF SUPERSEDED;^ES;7^Q"
^DD(691.8,1506,1,0)="^.1"
^DD(691.8,1506,1,1,0)="691.8^ES"
^DD(691.8,1506,1,1,1)="S ^MCAR(691.8,""ES"",$E(X,1,30),DA)="""""
^DD(691.8,1506,1,1,2)="K ^MCAR(691.8,""ES"",$E(X,1,30),DA)"
^DD(691.8,1506,1,1,"%D",0)="^^1^1^2930903^"
^DD(691.8,1506,1,1,"%D",1,0)="This cross-reference allows look-up by release status."
^DD(691.8,1506,1,1,"DT")="2930212"
^DD(691.8,1506,"DT")="2931214"
^DD(691.8,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.8,1507,"DT")="2930212"
^DD(691.8,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.8,1508,"DT")="2930212"
^DD(691.8,1509,0)="SUPERSEDED^NJ9,0^^ES;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.8,1509,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.8,1509,"DT")="2930212"
^DD(691.8,1510,0)="SUPERSEDED BY^NJ9,0^^ES;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.8,1510,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(691.8,1510,"DT")="2930212"
^DD(691.8,1511,0)="MARK FOR DELETATION^S^1:MARK FOR DELETATION;^ES;12^Q"
^DD(691.8,1511,"DT")="2930212"
^DD(691.8,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(691.8,1512,"DT")="2930212"
^DD(691.8,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(691.8,1513,3)="Answer must be 1-40 characters in length."
^DD(691.8,1513,"DT")="2930212"
^DD(691.8,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.8,1514,"DT")="2930212"
^DD(691.8,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.8,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.8,1515,"DT")="2930304"
^DD(691.8,"B","ARRHYTHMIA DX",5)=""
^DD(691.8,"B","CARDIAC DX",6)=""
^DD(691.8,"B","CARDIOLOGY FELLOW",17)=""
^DD(691.8,"B","CARDIOLOGY FELLOW",25)=""
^DD(691.8,"B","CARDIOLOGY FELLOW-2ND",20)=""
^DD(691.8,"B","CARDIOLOGY STAFF",16)=""
^DD(691.8,"B","CARDIOLOGY STAFF",24)=""
^DD(691.8,"B","CARDIOLOGY STAFF-2ND",19)=""
^DD(691.8,"B","CAROTID STIMULATION",11)=""
^DD(691.8,"B","COMMENT",14)=""
^DD(691.8,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(691.8,"B","CREATION DATE",1514)=""
^DD(691.8,"B","DATE OF RELEASED",1507)=""
^DD(691.8,"B","DATE OF VERIFIED",1508)=""
^DD(691.8,"B","DATE/TIME",.01)=""
^DD(691.8,"B","DELETER DUZ",1512)=""
^DD(691.8,"B","DISCHARGE DATE",21)=""
^DD(691.8,"B","EJECTION FRACTION",8)=""
^DD(691.8,"B","EJECTION FRACTION METHOD",9)=""
^DD(691.8,"B","ENTERING DATE",1502)=""
^DD(691.8,"B","ENTERING DUZ",1500)=""
^DD(691.8,"B","FOLLOW UP",15)=""
^DD(691.8,"B","FOLLOW UP",22)=""
^DD(691.8,"B","GMRCO",1001)=""
^DD(691.8,"B","HEART BLOCK",10)=""
^DD(691.8,"B","HEART MEDICATION",.9)=""
^DD(691.8,"B","HOSPITAL OF STUDY",3)=""
^DD(691.8,"B","HX",7)=""
^DD(691.8,"B","ICD DIAGNOSIS",700)=""
^DD(691.8,"B","ID",.02)=""
^DD(691.8,"B","INTERPRETATION",13)=""
^DD(691.8,"B","MARK FOR DELETATION",1511)=""
^DD(691.8,"B","MEDICAL PATIENT",1)=""
^DD(691.8,"B","ORIFN",1000)=""
^DD(691.8,"B","PCC POINTER",900)=""
^DD(691.8,"B","PRIMARY PROVIDER",701)=""
^DD(691.8,"B","PROCEDURE SUMMARY",600)=""
^DD(691.8,"B","REASON FOR STUDY",4)=""
^DD(691.8,"B","RELEASE CODE",1506)=""
^DD(691.8,"B","RISK FACTOR",.05)=""
^DD(691.8,"B","SIGNER VALIDATION CODE",1504)=""
^DD(691.8,"B","SUMMARY",.03)=""
^DD(691.8,"B","SUPERSEDED",1509)=""
^DD(691.8,"B","SUPERSEDED BY",1510)=""
^DD(691.8,"B","SUPERSEDED DATE",1513)=""
^DD(691.8,"B","SUPERSEDED NUMBER",1515)=""
^DD(691.8,"B","SVT-TYPE",12)=""
^DD(691.8,"B","SYMPTOM",.04)=""
^DD(691.8,"B","VERFIFYING DUZ",1503)=""
^DD(691.8,"B","VERIFIER DATE",1505)=""
^DD(691.8,"B","WARD/CLINIC",18)=""
^DD(691.8,"GL",0,1,.01)=""
^DD(691.8,"GL",0,2,1)=""
^DD(691.8,"GL",.1,1,.02)=""
^DD(691.8,"GL",.2,1,.03)=""
^DD(691.8,"GL",.2,2,600)=""
^DD(691.8,"GL",1,0,.04)=""
^DD(691.8,"GL",2,0,.05)=""
^DD(691.8,"GL",3,0,.9)=""
^DD(691.8,"GL",4,3,3)=""
^DD(691.8,"GL",4,4,4)=""
^DD(691.8,"GL",5,0,5)=""
^DD(691.8,"GL",6,1,6)=""
^DD(691.8,"GL",7,0,7)=""
^DD(691.8,"GL",8,1,8)=""
^DD(691.8,"GL",8,2,9)=""
^DD(691.8,"GL",9,0,10)=""
^DD(691.8,"GL",10,0,11)=""
^DD(691.8,"GL",11,0,12)=""
^DD(691.8,"GL",12,0,13)=""
^DD(691.8,"GL",13,0,14)=""
^DD(691.8,"GL",14,0,15)=""
^DD(691.8,"GL",15,1,16)=""
^DD(691.8,"GL",15,2,17)=""
^DD(691.8,"GL",15,3,18)=""
^DD(691.8,"GL",15,4,19)=""
^DD(691.8,"GL",15,5,20)=""
^DD(691.8,"GL",16,0,21)=""
^DD(691.8,"GL",17,0,22)=""
^DD(691.8,"GL",19,1,24)=""
^DD(691.8,"GL",19,2,25)=""
^DD(691.8,"GL","ES",1,1500)=""
^DD(691.8,"GL","ES",2,1501)=""
^DD(691.8,"GL","ES",3,1502)=""
^DD(691.8,"GL","ES",4,1503)=""
^DD(691.8,"GL","ES",5,1504)=""
^DD(691.8,"GL","ES",6,1505)=""
^DD(691.8,"GL","ES",7,1506)=""
^DD(691.8,"GL","ES",8,1507)=""
^DD(691.8,"GL","ES",9,1508)=""
^DD(691.8,"GL","ES",10,1509)=""
^DD(691.8,"GL","ES",11,1510)=""
^DD(691.8,"GL","ES",12,1511)=""
^DD(691.8,"GL","ES",13,1512)=""
^DD(691.8,"GL","ES",14,1513)=""
^DD(691.8,"GL","ES",15,1514)=""
^DD(691.8,"GL","ES",16,1515)=""
^DD(691.8,"GL","ICD",0,700)=""
^DD(691.8,"GL","OR",1,1000)=""
^DD(691.8,"GL","OR",2,1001)=""
^DD(691.8,"GL","PCC",1,900)=""
^DD(691.8,"GL","PROV",1,701)=""
^DD(691.8,"IX",.01)=""
^DD(691.8,"IX",1)=""
^DD(691.8,"IX",16)=""
^DD(691.8,"IX",900)=""
^DD(691.8,"IX",1506)=""
^DD(691.8,"RQ",.01)=""
^DD(691.8,"RQ",.03)=""
^DD(691.8,"RQ",1)=""
^DD(691.8,"RQ",600)=""
^DD(691.8,"SB",691.801,.04)=""
^DD(691.8,"SB",691.802,.05)=""
^DD(691.8,"SB",691.803,.9)=""
^DD(691.8,"SB",691.804,10)=""
^DD(691.8,"SB",691.805,5)=""
^DD(691.8,"SB",691.806,700)=""
^DD(691.8,"SB",691.811,11)=""
^DD(691.8,"SB",691.812,12)=""
^DD(691.8,"SB",691.813,13)=""
^DD(691.8,"SB",691.814,14)=""
^DD(691.8,"SB",691.815,15)=""
^DD(691.8,"SB",691.87,7)=""
^DD(691.8,"SB",691.96,21)=""
^DD(691.8,"SB",691.97,22)=""
^DD(691.801,0)="SYMPTOM SUB-FIELD^^.01^1"
^DD(691.801,0,"IX","B",691.801,.01)=""
^DD(691.801,0,"NM","SYMPTOM")=""
^DD(691.801,0,"UP")="691.8"
^DD(691.801,.01,0)="SYMPTOM^M*P695.5'^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.801,.01,1,0)="^.1"
^DD(691.801,.01,1,1,0)="691.801^B"
^DD(691.801,.01,1,1,1)="S ^MCAR(691.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(691.801,.01,1,1,2)="K ^MCAR(691.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(691.801,.01,3)="HISTORY OF PRESENT ILLNESS"
^DD(691.801,.01,12)="CHOOSE CARDIAC SYMPTOMS ONLY"
^DD(691.801,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""C"""",+Y))"""
^DD(691.801,.01,21,0)="^^1^1^2910426^"
^DD(691.801,.01,21,1,0)="These are the clinical signs of disease."
^DD(691.801,.01,"DT")="2880822"
^DD(691.801,"B","SYMPTOM",.01)=""
^DD(691.801,"GL",0,1,.01)=""
^DD(691.801,"IX",.01)=""
^DD(691.802,0)="RISK FACTOR SUB-FIELD^^.01^1"
^DD(691.802,0,"IX","B",691.802,.01)=""
^DD(691.802,0,"NM","RISK FACTOR")=""
^DD(691.802,0,"UP")="691.8"
^DD(691.802,.01,0)="RISK FACTOR^MP695.4'^MCAR(695.4,^0;1^Q"
^DD(691.802,.01,1,0)="^.1"
^DD(691.802,.01,1,1,0)="691.802^B"
^DD(691.802,.01,1,1,1)="S ^MCAR(691.8,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(691.802,.01,1,1,2)="K ^MCAR(691.8,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(691.802,.01,3)="RELEVANT PAST HISTORY"
^DD(691.802,.01,21,0)="^^2^2^2910426^"
^DD(691.802,.01,21,1,0)="These are the conditions which contribute to the overall"
^DD(691.802,.01,21,2,0)="percentages of disease."
^DD(691.802,.01,"DT")="2860714"
^DD(691.802,"B","RISK FACTOR",.01)=""
^DD(691.802,"GL",0,1,.01)=""
^DD(691.802,"IX",.01)=""
^DD(691.803,0)="HEART MEDICATION SUB-FIELD^^2^3"
^DD(691.803,0,"IX","B",691.803,.01)=""
^DD(691.803,0,"NM","HEART MEDICATION")=""
^DD(691.803,0,"UP")="691.8"
^DD(691.803,.01,0)="HEART MEDICATION^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.803,.01,1,0)="^.1"
^DD(691.803,.01,1,1,0)="691.803^B"
^DD(691.803,.01,1,1,1)="S ^MCAR(691.8,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(691.803,.01,1,1,2)="K ^MCAR(691.8,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(691.803,.01,3)="Enter medication prescribed to patient. "
^DD(691.803,.01,12)="CHOOSE CARDIAC MEDICATIONS ONLY"
^DD(691.803,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""C"""",+Y))"""
^DD(691.803,.01,21,0)="^^1^1^2910426^"
^DD(691.803,.01,21,1,0)="This field identifies the medication which the patient has been prescribed"
^DD(691.803,.01,"DT")="2880822"
^DD(691.803,1,0)="DOSE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(691.803,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(691.803,1,21,0)="^^2^2^2920324^"
^DD(691.803,1,21,1,0)="This allows the patient to enter dosage of medicine the patient"
^DD(691.803,1,21,2,0)="is taking."
^DD(691.803,1,"DT")="2860905"
^DD(691.803,2,0)="FREQUENCY^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(691.803,2,3)="ANSWER MUST BE 2-10 CHARACTERS IN LENGTH"
^DD(691.803,2,21,0)="^^2^2^2920324^"
^DD(691.803,2,21,1,0)="This allows the user to enter time/number of times (frequency)"
^DD(691.803,2,21,2,0)="patient should take medicine."
^DD(691.803,2,"DT")="2880518"
^DD(691.803,"B","DOSE",1)=""
^DD(691.803,"B","FREQUENCY",2)=""
^DD(691.803,"B","HEART MEDICATION",.01)=""
^DD(691.803,"GL",0,1,.01)=""
^DD(691.803,"GL",0,2,1)=""
^DD(691.803,"GL",0,3,2)=""
^DD(691.803,"IX",.01)=""
^DD(691.804,0)="HEART BLOCK SUB-FIELD^^4^5"
^DD(691.804,0,"NM","HEART BLOCK")=""
^DD(691.804,0,"UP")="691.8"
^DD(691.804,.01,0)="HEART BLOCK^MS^P:PROXIMAL BLOCK;D:DISTAL (INFRA HIS BLOCK);H:INTRA HIS BLOCK;^0;1^Q"
^DD(691.804,.01,3)="Enter code for state of heart block."
^DD(691.804,.01,21,0)="^^1^1^2910416^^"
^DD(691.804,.01,21,1,0)="This field defines the state of heart block."
^DD(691.804,1,0)="UNDERLYING RHYTHM^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(691.804,1,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(691.804,1,21,0)="^^1^1^2910416^"
^DD(691.804,1,21,1,0)="This field identifies describes the rhythm associated with a particular block."
^DD(691.804,2,0)="RESPONSE TO ATROPINE^F^^0;3^K:$L(X)>90!($L(X)<1) X"
^DD(691.804,2,3)="ANSWER MUST BE 1-90 CHARACTERS IN LENGTH"
^DD(691.804,2,21,0)="^^1^1^2910416^"
^DD(691.804,2,21,1,0)="This field quantifies the response to atropine."
^DD(691.804,3,0)="RESPONSE TO EXERCISE^F^^1;1^K:$L(X)>200!($L(X)<1) X"
^DD(691.804,3,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(691.804,3,21,0)="1^^1^1^2910416^^"
^DD(691.804,3,21,1,0)="This field documents the response to exercise."
^DD(691.804,4,0)="RESPONSE TO CAROTID MASSAGE^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(691.804,4,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(691.804,4,21,0)="^^1^1^2910416^"
^DD(691.804,4,21,1,0)="This field documents the response to carotid massage."
^DD(691.804,"B","HEART BLOCK",.01)=""
^DD(691.804,"B","RESPONSE TO ATROPINE",2)=""
^DD(691.804,"B","RESPONSE TO CAROTID MASSAGE",4)=""
^DD(691.804,"B","RESPONSE TO EXERCISE",3)=""
^DD(691.804,"B","UNDERLYING RHYTHM",1)=""
^DD(691.804,"GL",0,1,.01)=""
^DD(691.804,"GL",0,2,1)=""
^DD(691.804,"GL",0,3,2)=""
^DD(691.804,"GL",1,1,3)=""
^DD(691.804,"GL",2,1,4)=""
^DD(691.805,0)="ARRHYTHMIA DX SUB-FIELD^^.01^1"
^DD(691.805,0,"DT")="2911023"
^DD(691.805,0,"IX","B",691.805,.01)=""
^DD(691.805,0,"NM","ARRHYTHMIA DX")=""
^DD(691.805,0,"UP")="691.8"
^DD(691.805,.01,0)="ARRHYTHMIA DX^M*P697.5'^MCAR(697.5,^0;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.EP"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.EP"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.805,.01,1,0)="^.1"
^DD(691.805,.01,1,1,0)="691.805^B"
^DD(691.805,.01,1,1,1)="S ^MCAR(691.8,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(691.805,.01,1,1,2)="K ^MCAR(691.8,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(691.805,.01,3)="Enter arrhythmia diagnosis."
^DD(691.805,.01,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.EP"" D MIX^DIC1 S D=-1"
^DD(691.805,.01,12)="EP DIAGNOSISES ONLY"
^DD(691.805,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.EP"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.EP"""
^DD(691.805,.01,21,0)="^^1^1^2931207^^"
^DD(691.805,.01,21,1,0)="This field identifies an arrhythmia diagnosis field."
^DD(691.805,.01,"DT")="2911023"
^DD(691.805,"B","ARRHYTHMIA DX",.01)=""
^DD(691.805,"GL",0,1,.01)=""
^DD(691.805,"IX",.01)=""
^DD(691.806,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(691.806,0,"DT")="2930310"
^DD(691.806,0,"IX","B",691.806,.01)=""
^DD(691.806,0,"NM","ICD DIAGNOSIS")=""
^DD(691.806,0,"UP")="691.8"
^DD(691.806,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(691.806,.01,1,0)="^.1"
^DD(691.806,.01,1,1,0)="691.806^B"
^DD(691.806,.01,1,1,1)="S ^MCAR(691.8,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(691.806,.01,1,1,2)="K ^MCAR(691.8,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(691.806,.01,21,0)="^^3^3^2920114^^^"
^DD(691.806,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  This field"
^DD(691.806,.01,21,2,0)="also contains a subfield labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(691.806,.01,21,3,0)="the future."
^DD(691.806,.01,23,0)="^^1^1^2921106^^^"
^DD(691.806,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.806,.01,"DT")="2930310"
^DD(691.806,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(691.806,.02,3)="Answer must be 1-80 characters in length."
^DD(691.806,.02,23,0)="^^1^1^2921106^^^"
^DD(691.806,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.806,.02,"DT")="2920102"
^DD(691.806,"B","ICD DIAGNOSIS",.01)=""
^DD(691.806,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(691.806,"GL",0,1,.01)=""
^DD(691.806,"GL",0,2,.02)=""
^DD(691.806,"IX",.01)=""
^DD(691.811,0)="CAROTID STIMULATION SUB-FIELD^^1^2"
^DD(691.811,0,"NM","CAROTID STIMULATION")=""
^DD(691.811,0,"UP")="691.8"
^DD(691.811,.01,0)="CAROTID STIMULATION^MS^R:RT CAROTID PRESSURE;L:LT CAROTID PRESSURE;ND:NOT DONE;^0;1^Q"
^DD(691.811,.01,3)="Enter episodes of carotid stimulation."
^DD(691.811,.01,21,0)="^^1^1^2910416^"
^DD(691.811,.01,21,1,0)="This field documents the episodes of carotid stimulation."
^DD(691.811,1,0)="LONGEST PAUSE^NJ4,1^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(691.811,1,3)="Type a Number between 0 and 99, 1 Decimal Digit"
^DD(691.811,1,21,0)="^^1^1^2910416^"
^DD(691.811,1,21,1,0)="This field describes the longest pause."
^DD(691.811,1,"DT")="2871119"
^DD(691.811,"B","CAROTID STIMULATION",.01)=""
^DD(691.811,"B","LONGEST PAUSE",1)=""
^DD(691.811,"GL",0,1,.01)=""
^DD(691.811,"GL",0,2,1)=""
^DD(691.812,0)="SVT-TYPE SUB-FIELD^^.01^1"
^DD(691.812,0,"IX","B",691.812,.01)=""
^DD(691.812,0,"NM","SVT-TYPE")=""
^DD(691.812,0,"UP")="691.8"
^DD(691.812,.01,0)="SVT-TYPE^MS^1:AVNRT;2:ORTHODROMIC AVRT;3:ANTIDROMIC AVRT;4:SNRT;5:IART;6:ATRIAL FLUTTER;7:ATRIAL FIB;8:AUTOMATIC;^0;1^Q"
^DD(691.812,.01,1,0)="^.1"
^DD(691.812,.01,1,1,0)="691.812^B"
^DD(691.812,.01,1,1,1)="S ^MCAR(691.8,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(691.812,.01,1,1,2)="K ^MCAR(691.8,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(691.812,.01,3)="Enter code for SVT-type."
^DD(691.812,.01,21,0)="^^1^1^2910416^"
^DD(691.812,.01,21,1,0)="This field defines the SVT-type"
^DD(691.812,.01,"DT")="2871008"
^DD(691.812,"B","SVT-TYPE",.01)=""
^DD(691.812,"GL",0,1,.01)=""
^DD(691.812,"IX",.01)=""
^DD(691.813,0)="INTERPRETATION SUB-FIELD^^.01^1"
^DD(691.813,0,"NM","INTERPRETATION")=""
^DD(691.813,0,"UP")="691.8"
^DD(691.813,.01,0)="INTERPRETATION^W^^0;1^Q"
^DD(691.813,.01,3)="Enter comments on clinical interpretation."
^DD(691.813,.01,21,0)="^^1^1^2910416^"
^DD(691.813,.01,21,1,0)="This field documents the clinical interpretation."
^DD(691.813,.01,23,0)="^^1^1^2921106^^^"
^DD(691.813,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.813,"B","INTERPRETATION",.01)=""
^DD(691.813,"GL",0,1,.01)=""
^DD(691.814,0)="COMMENT SUB-FIELD^^.01^1"
^DD(691.814,0,"NM","COMMENT")=""
^DD(691.814,0,"UP")="691.8"
^DD(691.814,.01,0)="COMMENT^W^^0;1^Q"
^DD(691.814,.01,3)="Enter comments."
^DD(691.814,.01,21,0)="^^1^1^2910416^"
^DD(691.814,.01,21,1,0)="This field identifies a word processing comment field."
^DD(691.814,.01,23,0)="^^1^1^2921106^^^"
^DD(691.814,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(691.814,"B","COMMENT",.01)=""
^DD(691.814,"GL",0,1,.01)=""
^DD(691.815,0)="FOLLOW UP SUB-FIELD^^.01^1"
^DD(691.815,0,"NM","FOLLOW UP")=""
^DD(691.815,0,"UP")="691.8"
^DD(691.815,.01,0)="FOLLOW UP^MS^R:RECURRENT VT/VF;H:REHOSPITALIZATION;D:PATIENT DEATH;S:SIDE EFFECTS FROM DRUGS;^0;1^Q"
^DD(691.815,.01,3)="Enter code for follow up care/diagnostics."
^DD(691.815,.01,21,0)="^^1^1^2910416^"
^DD(691.815,.01,21,1,0)="This field documents follow up care/diagnostics."
^DD(691.815,"B","FOLLOW UP",.01)=""
^DD(691.815,"GL",0,1,.01)=""
^DD(691.87,0)="HX SUB-FIELD^^.01^1"
^DD(691.87,0,"DT")="2960226"
^DD(691.87,0,"NM","HX")=""
^DD(691.87,0,"UP")="691.8"
^DD(691.87,.01,0)="HX^W^^0;1^Q"
^DD(691.87,.01,3)="Enter the relevant patient history."
^DD(691.87,.01,21,0)="^^1^1^2960226^"
^DD(691.87,.01,21,1,0)="This field may be used to detail the relevant patient history."
^DD(691.87,.01,"DT")="2960226"
^DD(691.87,"B","HX",.01)=""
^DD(691.87,"GL",0,1,.01)=""
^DD(691.9,0)="FIELD^^701^31"
^DD(691.9,0,"DT")="2930310"
^DD(691.9,0,"IX","AC",691.9,.01)=""
^DD(691.9,0,"IX","B",691.9,.01)=""
^DD(691.9,0,"IX","C",691.9,.5)=""
^DD(691.9,0,"NM","ATRIAL STUDY")=""
^DD(691.9,0,"VR")="2.3"
^DD(691.9,0,"VRPK")="MEDICINE"
^DD(691.9,.01,0)="DATE/TIME^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.9,.01,1,0)="^.1"
^DD(691.9,.01,1,1,0)="691.9^B"
^DD(691.9,.01,1,1,1)="S ^MCAR(691.9,""B"",$E(X,1,30),DA)="""""
^DD(691.9,.01,1,1,2)="K ^MCAR(691.9,""B"",$E(X,1,30),DA)"
^DD(691.9,.01,1,2,0)="691.9^AC^MUMPS"
^DD(691.9,.01,1,2,1)="S MCARGNUM=$O(^MCAR(697.2,""C"",""MCAR(691.8"",0))"
^DD(691.9,.01,1,2,2)="Q"
^DD(691.9,.01,1,2,"%D",0)="3^^3^3^2920421^"
^DD(691.9,.01,1,2,"%D",1,0)="This cross-reference sets the variable 'MCARGNUM' equal to the global"
^DD(691.9,.01,1,2,"%D",2,0)="number of the EP global from the Medicine Procedure/Subspecialty File"
^DD(691.9,.01,1,2,"%D",3,0)="(#697.2)."
^DD(691.9,.01,3)=""
^DD(691.9,.01,21,0)="^^1^1^2910426^^"
^DD(691.9,.01,21,1,0)="This field identifies the specific Atrial Study."
^DD(691.9,.01,"DT")="2920421"
^DD(691.9,.5,0)="EP RECORD^RP691.8'XIO^MCAR(691.8,^0;2^Q"
^DD(691.9,.5,1,0)="^.1"
^DD(691.9,.5,1,1,0)="691.9^C"
^DD(691.9,.5,1,1,1)="S ^MCAR(691.9,""C"",$E(X,1,30),DA)="""""
^DD(691.9,.5,1,1,2)="K ^MCAR(691.9,""C"",$E(X,1,30),DA)"
^DD(691.9,.5,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(691.9,.5,2.1)="X ^DD(""DD"")"
^DD(691.9,.5,21,0)="^^1^1^2930915^^"
^DD(691.9,.5,21,1,0)="This field identifies the electrophysiologic record."
^DD(691.9,.5,"DT")="2870805"
^DD(691.9,1,0)="INTERVENTION^P693.6'^MCAR(693.6,^0;3^Q"
^DD(691.9,1,3)="New Entries to the EP INTERVENTION can only be added through the option on the management menu."
^DD(691.9,1,21,0)="^^1^1^2910426^"
^DD(691.9,1,21,1,0)="This describes the intervention associated with this procedure."
^DD(691.9,1,"DT")="2900307"
^DD(691.9,2,0)="PREMEDICATION^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(691.9,2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(691.9,2,21,0)="^^2^2^2910426^"
^DD(691.9,2,21,1,0)="This documents the medication used prior to the start"
^DD(691.9,2,21,2,0)="of this procedure."
^DD(691.9,3,0)="EKG^691.93DA^^7;0"
^DD(691.9,3,21,0)="^^1^1^2910426^"
^DD(691.9,3,21,1,0)="This field identifies the EKG's associated with this procedure."
^DD(691.9,4,0)="ENTRY SITE^*P697'X^MCAR(697,^0;6^S DIC(""S"")=""I $D(^MCAR(697,""""D"""",$G(MCARGNAM,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.9,4,3)="CHOOSE ONLY ENTRIES ASSOCIATED WITH EP'S"
^DD(691.9,4,4)=""
^DD(691.9,4,12)="CHOOSE ONLY ENTRIES ASSOSCIATED WITH EP'S"
^DD(691.9,4,12.1)="S DIC(""S"")=""I $D(^MCAR(697,""""D"""",$G(MCARGNAM,U),+Y))"""
^DD(691.9,4,21,0)="^^1^1^2910426^"
^DD(691.9,4,21,1,0)="This field describes the catheter entry site used during this procedure."
^DD(691.9,4,"DT")="2920730"
^DD(691.9,5,0)="RECORDING SITE^P693.5'^MCAR(693.5,^0;7^Q"
^DD(691.9,5,21,0)="^^1^1^2910913^^"
^DD(691.9,5,21,1,0)="This field documents the anatomical location of the catheter."
^DD(691.9,5,"DT")="2910909"
^DD(691.9,6,0)="PACING SITE^S^HRA:HIGH RIGHT ATRIUM;LRA:LOW RIGHT ATRIUM;MRA:MID RIGHT ATRIUM;CSD:CORONARY SINUS, DISTAL;CSP:CORONARY SINUS, PROXIMAL;ESO:ESOPHAGEAL PACING;^0;8^Q"
^DD(691.9,6,21,0)="^^1^1^2910429^"
^DD(691.9,6,21,1,0)="This field identifies the anatomical location of the pacing mechanism."
^DD(691.9,6,"DT")="2871123"
^DD(691.9,7,0)="ATRIAL THRESHOLD (mA)^NJ4,1^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(691.9,7,3)="Enter the Atrial Threshold in milliamperes: 0-99, 1 Decimal Digit"
^DD(691.9,7,21,0)="^^1^1^2910913^^"
^DD(691.9,7,21,1,0)="This field identifies the atrial threshold in milliamperes."
^DD(691.9,7,"DT")="2910909"
^DD(691.9,8,0)="P-A INTERVAL^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,8,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(691.9,8,21,0)="^^1^1^2910429^"
^DD(691.9,8,21,1,0)="This field identifies the P-A interval."
^DD(691.9,9,0)="A-H INTERVAL^NJ3,0^^0;11^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,9,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(691.9,9,21,0)="^^1^1^2910429^"
^DD(691.9,9,21,1,0)="This field identifies the A-H interval."
^DD(691.9,10,0)="H-V INTERVAL^NJ3,0^^0;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,10,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(691.9,10,21,0)="^^1^1^2940714^^"
^DD(691.9,10,21,1,0)="This field identifies the H-V interval."
^DD(691.9,11,0)="DRIVE CYCLE LENGTH^691.911A^^1;0"
^DD(691.9,11,21,0)="^^1^1^2940714^^^^"
^DD(691.9,11,21,1,0)="This field identifies the drive cycle length."
^DD(691.9,11,"DT")="2910909"
^DD(691.9,12,0)="MAX 1:1 AV CONDUCTION^NJ3,0^^2;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,12,3)="Type the Number of Milliseconds between 1 and 999, 0 Decimal Digits"
^DD(691.9,12,21,0)="^^1^1^2910429^"
^DD(691.9,12,21,1,0)="This field identifies the maximum 1:1 AV conduction."
^DD(691.9,13,0)="WENCKE CYCLE LENGTH^NJ3,0^^2;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,13,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(691.9,13,21,0)="^^1^1^2910429^"
^DD(691.9,13,21,1,0)="This field identifies the Wencke cycle length."
^DD(691.9,14,0)="BLOCK SITE^S^P:PROXIMAL BLOCK;D:DISTAL;^2;3^Q"
^DD(691.9,14,21,0)="^^1^1^2910429^"
^DD(691.9,14,21,1,0)="This field identifies the block site."
^DD(691.9,14,"DT")="2871123"
^DD(691.9,15,0)="TACHYCARDIA WINDOW^F^^2;4^K:$L(X)>30!($L(X)<1) X"
^DD(691.9,15,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(691.9,15,21,0)="^^1^1^2910429^"
^DD(691.9,15,21,1,0)="This field identifies the tachycardia window."
^DD(691.9,16,0)="TACHYCARDIA CYCLE LENGTH^NJ3,0^^2;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,16,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(691.9,16,21,0)="^^1^1^2910429^"
^DD(691.9,16,21,1,0)="This field identifies the tachycardia cycle length."
^DD(691.9,17,0)="TACHYCARDIA MORPHOLOGY^S^1:NARROW QRS;2:RBBB;3:LBBB;4:RBBB+LAFB;5:RBBB+LPFB;^2;6^Q"
^DD(691.9,17,3)=""
^DD(691.9,17,21,0)="^^1^1^2910429^"
^DD(691.9,17,21,1,0)="This field identifies the tachycardia morphology."
^DD(691.9,17,"DT")="2870702"
^DD(691.9,17.1,0)="PR INTERVAL^NJ3,0^^6;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,17.1,3)="Enter the PR Interval in milliseconds: Whole Number 1-999"
^DD(691.9,17.1,21,0)="^^1^1^2910429^"
^DD(691.9,17.1,21,1,0)="This field identifies the P-R interval."
^DD(691.9,17.1,"DT")="2870702"
^DD(691.9,17.2,0)="RP INTERVAL^NJ3,0^^6;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,17.2,3)="Enter the RP Interval in milliseconds: Whole Number 1-999"
^DD(691.9,17.2,21,0)="^^1^1^2910429^"
^DD(691.9,17.2,21,1,0)="This field identifies the RP interval."
^DD(691.9,17.2,"DT")="2870702"
^DD(691.9,17.3,0)="RP/PR RATIO^CJ8,2^^ ; ^X ^DD(691.9,17.3,9.3) S X=$S(Y(691.9,17.3,2):Y(691.9,17.3,3),Y(691.9,17.3,4):Y(691.9,17.3,5),Y(691.9,17.3,6):X) S X=$J(X,0,2)"
^DD(691.9,17.3,9)="^"
^DD(691.9,17.3,9.01)="691.9^17.2;691.9^17.1"
^DD(691.9,17.3,9.1)="$S(#17.1="""":"""",#17.2="""":"""",1:#17.2/#17.1)"
^DD(691.9,17.3,9.2)="S Y(691.9,17.3,1)=$S($D(^MCAR(691.9,D0,6)):^(6),1:"""") S X=$P(Y(691.9,17.3,1),U,2)="""",Y(691.9,17.3,2)=X S X="""",Y(691.9,17.3,3)=X S X=$P(Y(691.9,17.3,1),U,3)"
^DD(691.9,17.3,9.3)="X ^DD(691.9,17.3,9.2) S X=X="""",Y(691.9,17.3,4)=X S X="""",Y(691.9,17.3,5)=X S X=1,Y(691.9,17.3,6)=X S X=$P(Y(691.9,17.3,1),U,3),X=$S($P(Y(691.9,17.3,1),U,2):X/$P(Y(691.9,17.3,1),U,2),1:""*******"")"
^DD(691.9,17.3,21,0)="^^1^1^2960723^"
^DD(691.9,17.3,21,1,0)="This field identifies the RP/PR ratio."
^DD(691.9,18,0)="ABERRATION^S^RBBB:RBBB;LBBB:LBBB;R+L:RBBB+LBBB;^2;7^Q"
^DD(691.9,18,21,0)="^^1^1^2910429^"
^DD(691.9,18,21,1,0)="This field identifies the aberration found in this study."
^DD(691.9,19,0)="SACT^NJ3,0^^2;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,19,3)="Type the Number of Milliseconds between 1 and 999, 0 Decimal Digits"
^DD(691.9,19,21,0)="^^1^1^2910429^"
^DD(691.9,19,21,1,0)="This field identifies the SACT."
^DD(691.9,19,"DT")="2871123"
^DD(691.9,20,0)="CSART^NJ3,0^^2;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.9,20,3)="Type the Number of Milliseconds between 1 and 999, 0 Decimal Digits"
^DD(691.9,20,21,0)="^^1^1^2910429^"
^DD(691.9,20,21,1,0)="This field identifies the CSART."
^DD(691.9,20,"DT")="2871123"
^DD(691.9,21,0)="BYPASS TRACT^691.921SA^^3;0"
^DD(691.9,21,21,0)="^^1^1^2931207^^^"
^DD(691.9,21,21,1,0)="This field identifies the bypass tract."
^DD(691.9,22,0)="DISCHARGE DATE^691.922DA^^4;0"
^DD(691.9,22,21,0)="^^1^1^2960723^^"
^DD(691.9,22,21,1,0)="This field identifies the discharge date."
^DD(691.9,23,0)="COMMENT^691.923^^5;0"
^DD(691.9,23,21,0)="^^1^1^2910429^"
^DD(691.9,23,21,1,0)="This field identifies the comment field."
^DD(691.9,24,0)="CARDIOLOGY STAFF^*P200'^VA(200,^6;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.9,24,1,0)="^.1"
^DD(691.9,24,1,1,0)="^^TRIGGER^691.9^701"
^DD(691.9,24,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.9,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(691.9,24,1,1,1.4)"
^DD(691.9,24,1,1,1.4)="S DIH=$S($D(^MCAR(691.9,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.9,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.9,24,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(691.9,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(691.9,24,1,1,2.1) X ^DD(691.9,24,1,1,2.4)"
^DD(691.9,24,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(691.9,D0,6)):^(6),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(691.9,24,1,1,2.4)="S DIH=$S($D(^MCAR(691.9,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=691.9,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(691.9,24,1,1,"%D",0)="^^1^1^2960423^"
^DD(691.9,24,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(691.9,24,1,1,"CREATE VALUE")="INTERNAL(#24)"
^DD(691.9,24,1,1,"DELETE VALUE")="INTERNAL(#24)"
^DD(691.9,24,1,1,"DT")="2960423"
^DD(691.9,24,1,1,"FIELD")="#701"
^DD(691.9,24,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.9,24,21,0)="^^1^1^2910429^"
^DD(691.9,24,21,1,0)="This field identifies the cardiology staff attending this procedure."
^DD(691.9,24,"DT")="2960423"
^DD(691.9,700,0)="ICD DIAGNOSIS^691.9001P^^ICD;0"
^DD(691.9,700,21,0)="^^3^3^2920114^"
^DD(691.9,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure. This field"
^DD(691.9,700,21,2,0)="also contains a subfield labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(691.9,700,21,3,0)="the future."
^DD(691.9,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.9,701,5,1,0)="691.9^24^1"
^DD(691.9,701,9)="^"
^DD(691.9,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(691.9,701,21,0)="^^3^3^2920109^"
^DD(691.9,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(691.9,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(691.9,701,21,3,0)="use in transferring data to the PCC."
^DD(691.9,701,"DT")="2941025"
^DD(691.9,"B","A-H INTERVAL",9)=""
^DD(691.9,"B","ABERRATION",18)=""
^DD(691.9,"B","ATRIAL THRESHOLD (mA)",7)=""
^DD(691.9,"B","BLOCK SITE",14)=""
^DD(691.9,"B","BYPASS TRACT",21)=""
^DD(691.9,"B","CARDIOLOGY STAFF",24)=""
^DD(691.9,"B","COMMENT",23)=""
^DD(691.9,"B","CSART",20)=""
^DD(691.9,"B","DATE/TIME",.01)=""
^DD(691.9,"B","DISCHARGE DATE",22)=""
^DD(691.9,"B","DRIVE CYCLE LENGTH",11)=""
^DD(691.9,"B","EKG",3)=""
^DD(691.9,"B","ENTRY SITE",4)=""
^DD(691.9,"B","EP RECORD",.5)=""
^DD(691.9,"B","H-V INTERVAL",10)=""
^DD(691.9,"B","ICD DIAGNOSIS",700)=""
^DD(691.9,"B","INTERVENTION",1)=""
^DD(691.9,"B","MAX 1:1 AV CONDUCTION",12)=""
^DD(691.9,"B","P-A INTERVAL",8)=""
^DD(691.9,"B","PACING SITE",6)=""
^DD(691.9,"B","PR INTERVAL",17.1)=""
^DD(691.9,"B","PREMEDICATION",2)=""
^DD(691.9,"B","PRIMARY PROVIDER",701)=""
^DD(691.9,"B","RECORDING SITE",5)=""
^DD(691.9,"B","RP INTERVAL",17.2)=""
^DD(691.9,"B","RP/PR RATIO",17.3)=""
^DD(691.9,"B","SACT",19)=""
^DD(691.9,"B","TACHYCARDIA CYCLE LENGTH",16)=""
^DD(691.9,"B","TACHYCARDIA MORPHOLOGY",17)=""
^DD(691.9,"B","TACHYCARDIA WINDOW",15)=""
^DD(691.9,"B","WENCKE CYCLE LENGTH",13)=""
^DD(691.9,"GL",0,1,.01)=""
^DD(691.9,"GL",0,2,.5)=""
^DD(691.9,"GL",0,3,1)=""
^DD(691.9,"GL",0,4,2)=""
^DD(691.9,"GL",0,6,4)=""
^DD(691.9,"GL",0,7,5)=""
^DD(691.9,"GL",0,8,6)=""
^DD(691.9,"GL",0,9,7)=""
^DD(691.9,"GL",0,10,8)=""
^DD(691.9,"GL",0,11,9)=""
^DD(691.9,"GL",0,12,10)=""
^DD(691.9,"GL",1,0,11)=""
^DD(691.9,"GL",2,1,12)=""
^DD(691.9,"GL",2,2,13)=""
^DD(691.9,"GL",2,3,14)=""
^DD(691.9,"GL",2,4,15)=""
^DD(691.9,"GL",2,5,16)=""
^DD(691.9,"GL",2,6,17)=""
^DD(691.9,"GL",2,7,18)=""
^DD(691.9,"GL",2,8,19)=""
^DD(691.9,"GL",2,9,20)=""
^DD(691.9,"GL",3,0,21)=""
^DD(691.9,"GL",4,0,22)=""
^DD(691.9,"GL",5,0,23)=""
^DD(691.9,"GL",6,1,24)=""
^DD(691.9,"GL",6,2,17.1)=""
^DD(691.9,"GL",6,3,17.2)=""
^DD(691.9,"GL",7,0,3)=""
^DD(691.9,"GL","ICD",0,700)=""
^DD(691.9,"GL","PROV",1,701)=""
^DD(691.9,"IX",.01)=""
^DD(691.9,"IX",.5)=""
^DD(691.9,"IX",24)=""
^DD(691.9,"RQ",.01)=""
^DD(691.9,"RQ",.5)=""
^DD(691.9,"SB",691.9001,700)=""
^DD(691.9,"SB",691.911,11)=""
^DD(691.9,"SB",691.921,21)=""
^DD(691.9,"SB",691.922,22)=""
^DD(691.9,"SB",691.923,23)=""
^DD(691.9,"SB",691.93,3)=""
^DD(691.9001,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(691.9001,0,"DT")="2930310"
^DD(691.9001,0,"IX","B",691.9001,.01)=""
^DD(691.9001,0,"NM","ICD DIAGNOSIS")=""
^DD(691.9001,0,"UP")="691.9"
^DD(691.9001,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(691.9001,.01,1,0)="^.1"
^DD(691.9001,.01,1,1,0)="691.9001^B"
^DD(691.9001,.01,1,1,1)="S ^MCAR(691.9,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(691.9001,.01,1,1,2)="K ^MCAR(691.9,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(691.9001,.01,21,0)="^^3^3^2920114^"
^DD(691.9001,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure. This field"
^DD(691.9001,.01,21,2,0)="also contains a subfield labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(691.9001,.01,21,3,0)="the future."
^DD(691.9001,.01,"DT")="2930310"
^DD(691.9001,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(691.9001,.02,3)="Answer must be 1-80 characters in length."
^DD(691.9001,.02,"DT")="2920114"
^DD(691.9001,"B","ICD DIAGNOSIS",.01)=""
^DD(691.9001,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(691.9001,"GL",0,1,.01)=""
^DD(691.9001,"GL",0,2,.02)=""
^DD(691.9001,"IX",.01)=""
^DD(691.911,0)="DRIVE CYCLE LENGTH SUB-FIELD^^9^10"
^DD(691.911,0,"NM","DRIVE CYCLE LENGTH")=""
^DD(691.911,0,"UP")="691.9"
^DD(691.911,.01,0)="DRIVE CYCLE LENGTH^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.911,.01,3)="Enter the Drive Cycle Length in milliseconds: Whole Number between 1 and 9999"
^DD(691.911,.01,21,0)="^^1^1^2910913^^"
^DD(691.911,.01,21,1,0)="This field identifies the drive cycle length."
^DD(691.911,.01,"DT")="2910909"
^DD(691.911,1,0)="AERP^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,1,3)="Atrial Effective Refractory Period: Whole Number 0-999"
^DD(691.911,1,21,0)="^^1^1^2920324^"
^DD(691.911,1,21,1,0)="This allows the user to enter the Atrial Effective Refractory Period."
^DD(691.911,2,0)="AFRP^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,2,3)="Atrial Functional Refractory Period:  Whole Number 0-999"
^DD(691.911,2,21,0)="^^1^1^2920324^"
^DD(691.911,2,21,1,0)="This allows the user to enter the Atrial Functional Refractory Period."
^DD(691.911,3,0)="ARRP^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,3,3)="Atrial Relative Refractory Period: Whole Number 0-999"
^DD(691.911,3,21,0)="^^1^1^2920324^"
^DD(691.911,3,21,1,0)="This allows the user to enter the Atrial Relative Refractory Period."
^DD(691.911,4,0)="AVERP^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,4,3)="AV Nodal Effective Refractory Period: Whole Number 0-999"
^DD(691.911,4,21,0)="^^1^1^2920324^"
^DD(691.911,4,21,1,0)="This allows the user to enter the AV Nodal Effective Refractory Period."
^DD(691.911,5,0)="AVFRP^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,5,3)="AV Nodal Functional Refractory Period: Whole Number 0-999"
^DD(691.911,5,21,0)="^^2^2^2920324^"
^DD(691.911,5,21,1,0)="This allows the user to enter the AV Nodal Functional Refractory"
^DD(691.911,5,21,2,0)="Period."
^DD(691.911,6,0)="AVRRP^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,6,3)="AV Nodal Relative Refractory Period: Whole Number 0-999"
^DD(691.911,6,21,0)="^^1^1^2920324^"
^DD(691.911,6,21,1,0)="This allows the user to enter the AV Nodal Relative Refractory Period."
^DD(691.911,7,0)="HPERP^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,7,3)="His Purkinje Effective Refractory Period: Whole Number 0-999"
^DD(691.911,7,21,0)="^^2^2^2920324^"
^DD(691.911,7,21,1,0)="This allows the user to enter the His Purkinje Effective Refractory"
^DD(691.911,7,21,2,0)="Period."
^DD(691.911,8,0)="HPFRP^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,8,3)="His Purkinje Functional Refractory Period: Whole Number 0-999"
^DD(691.911,8,21,0)="^^2^2^2920324^"
^DD(691.911,8,21,1,0)="This allows the user to enter the His Purkinje Functional Refractory"
^DD(691.911,8,21,2,0)="Period."
^DD(691.911,9,0)="HPRRP^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.911,9,3)="His Purkinje Relative Refractory Period: Whole Number 0-999"
^DD(691.911,9,21,0)="^^2^2^2920324^"
^DD(691.911,9,21,1,0)="This allows the user to enter the His Purkinje Relative Refractory "
^DD(691.911,9,21,2,0)="Period."
^DD(691.911,"B","AERP",1)=""
^DD(691.911,"B","AFRP",2)=""
^DD(691.911,"B","ARRP",3)=""
^DD(691.911,"B","AVERP",4)=""
^DD(691.911,"B","AVFRP",5)=""
^DD(691.911,"B","AVRRP",6)=""
^DD(691.911,"B","DRIVE CYCLE LENGTH",.01)=""
^DD(691.911,"B","HPERP",7)=""
^DD(691.911,"B","HPFRP",8)=""
^DD(691.911,"B","HPRRP",9)=""
^DD(691.911,"GL",0,1,.01)=""
^DD(691.911,"GL",0,2,1)=""
^DD(691.911,"GL",0,3,2)=""
^DD(691.911,"GL",0,4,3)=""
^DD(691.911,"GL",0,5,4)=""
^DD(691.911,"GL",0,6,5)=""
^DD(691.911,"GL",0,7,6)=""
^DD(691.911,"GL",0,8,7)=""
^DD(691.911,"GL",0,9,8)=""
^DD(691.911,"GL",0,10,9)=""
^DD(691.921,0)="BYPASS TRACT SUB-FIELD^^10^11"
^DD(691.921,0,"NM","BYPASS TRACT")=""
^DD(691.921,0,"UP")="691.9"
^DD(691.921,.01,0)="BYPASS TRACT^MS^AV:ATRIO-VENTRICULAR CONNECTION;AH:ATRIO-HISIAN TRACT;AF:ATRIO-FASCICULAR TRACT;FV:FASCICULO-VENTRICULAR TRACT;NV:NODO-VENTRICULAR TRACT;NF:NODO-FASCICULAR TRACT;^0;1^Q"
^DD(691.921,.01,21,0)="^^1^1^2930915^^"
^DD(691.921,.01,21,1,0)="This field identifies the bypass tract."
^DD(691.921,.01,"DT")="2871007"
^DD(691.921,1,0)="CONDUCTION^S^A:ANTEGRADE;R:RETROGRADE;BI:BIDIRECTIONAL;^0;2^Q"
^DD(691.921,1,21,0)="^^1^1^2920324^"
^DD(691.921,1,21,1,0)="This allows the user to describe the bypass tract conduction."
^DD(691.921,1,"DT")="2871007"
^DD(691.921,2,0)="ARRHYTHMIA^691.9212S^^1;0"
^DD(691.921,2,21,0)="^^1^1^2931207^^"
^DD(691.921,2,21,1,0)="This allows the user to further describe the type of arrhythmia."
^DD(691.921,3,0)="SHORTEST PRE-EXCITED R-R A FIB^NJ3,0^^2;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.921,3,3)="Type the Number of Milliseconds between 1 and 999, 0 Decimal Digits"
^DD(691.921,3,21,0)="^^2^2^2920324^"
^DD(691.921,3,21,1,0)="This allows the user to enter the shortest pre-excited R to R"
^DD(691.921,3,21,2,0)="(atrial fibrillation) interval, measured in milliseconds."
^DD(691.921,4,0)="SHORTEST R-R POST ISUPREL^NJ3,0^^2;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.921,4,3)="Type the Number of Milliseconds between 0 and 999, 0 Decimal Digits"
^DD(691.921,4,21,0)="^^2^2^2920324^"
^DD(691.921,4,21,1,0)="This allows the user to enter the shortest pre-excited post"
^DD(691.921,4,21,2,0)="isuprel, measured in milliseconds."
^DD(691.921,5,0)="LOCATION OF TRACT^S^1:LEFT FREE WALL;2:POSTEROSEPTAL;3:ANTEROSEPTAL;4:RIGHT FREE WALL;5:LEFT POST PARASEPTAL;6:RIGHT POST PARASEPTAL;7:LEFT ANT PARASEPTAL;8:RIGHT ANT PARASEPTAL;9:MAHAIM;^2;3^Q"
^DD(691.921,5,3)=""
^DD(691.921,5,21,0)="^^1^1^2920324^"
^DD(691.921,5,21,1,0)="This allows the user to describe the location of tract."
^DD(691.921,5,"DT")="2870702"
^DD(691.921,6,0)="V-HRA TIME^NJ3,0^^2;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(691.921,6,3)="Please enter conduction time from ventricle to high right atrium: Whole Number 1 to 999 (milliseconds)"
^DD(691.921,6,21,0)="^^2^2^2920324^"
^DD(691.921,6,21,1,0)="This allows the user to enter the conduction time from"
^DD(691.921,6,21,2,0)="ventricle to high right atrial."
^DD(691.921,7,0)="ANTEGRADE ERP, BYPASS TRACT^NJ3,0^^2;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.921,7,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.921,7,21,0)="^^3^3^2920324^"
^DD(691.921,7,21,1,0)="This allows the user to enter the effective refractory period, "
^DD(691.921,7,21,2,0)="measured in milliseconds.  This is the longest coupling interval"
^DD(691.921,7,21,3,0)="which fails to conduct through the bypass tract, from A1 to A2."
^DD(691.921,8,0)="ANTEGRADE ERP, BYPASS ISUPREL^NJ3,0^^2;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.921,8,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.921,8,21,0)="^^3^3^2920324^"
^DD(691.921,8,21,1,0)="This allows the user to enter the effective refractory period,"
^DD(691.921,8,21,2,0)="measured in milliseconds.  This is the longest coupling interval"
^DD(691.921,8,21,3,0)="which fails to conduct through the bypass isuprel, form A1 to A2."
^DD(691.921,9,0)="RETROGRADE ERP, BYPASS TRACT^NJ3,0^^2;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.921,9,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.921,9,21,0)="^^2^2^2920324^"
^DD(691.921,9,21,1,0)="This allows the user to enter the longest coupling interval"
^DD(691.921,9,21,2,0)="which fails to conduct through the bypass tract."
^DD(691.921,10,0)="RETROGRADE ERP, BYPASS ISUPREL^NJ3,0^^2;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.921,10,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.921,10,21,0)="^^2^2^2920324^"
^DD(691.921,10,21,1,0)="This allows the user to enter the longest coupling interval"
^DD(691.921,10,21,2,0)="which fails to conduct through the bypass isuprel."
^DD(691.921,"B","ANTEGRADE ERP, BYPASS ISUPREL",8)=""
^DD(691.921,"B","ANTEGRADE ERP, BYPASS TRACT",7)=""
^DD(691.921,"B","ARRHYTHMIA",2)=""
^DD(691.921,"B","BYPASS TRACT",.01)=""
^DD(691.921,"B","CONDUCTION",1)=""
^DD(691.921,"B","LOCATION OF TRACT",5)=""
^DD(691.921,"B","RETROGRADE ERP, BYPASS ISUPREL",10)=""
^DD(691.921,"B","RETROGRADE ERP, BYPASS TRACT",9)=""
^DD(691.921,"B","SHORTEST PRE-EXCITED R-R A FIB",3)=""
^DD(691.921,"B","SHORTEST R-R POST ISUPREL",4)=""
^DD(691.921,"B","V-HRA TIME",6)=""
^DD(691.921,"GL",0,1,.01)=""
^DD(691.921,"GL",0,2,1)=""
^DD(691.921,"GL",1,0,2)=""
^DD(691.921,"GL",2,1,3)=""
^DD(691.921,"GL",2,2,4)=""
^DD(691.921,"GL",2,3,5)=""
^DD(691.921,"GL",2,4,6)=""
^DD(691.921,"GL",2,5,7)=""
^DD(691.921,"GL",2,6,8)=""
^DD(691.921,"GL",2,7,9)=""
^DD(691.921,"GL",2,8,10)=""
^DD(691.921,"SB",691.9212,2)=""
^DD(691.9212,0)="ARRHYTHMIA SUB-FIELD^^.01^1"
^DD(691.9212,0,"NM","ARRHYTHMIA")=""
^DD(691.9212,0,"UP")="691.921"
^DD(691.9212,.01,0)="ARRHYTHMIA^MS^AF:ATRIAL FLUTTER;AFIB:ATRIAL FIB;SVT:SVT;OTHER:OTHER;^0;1^Q"
^DD(691.9212,.01,21,0)="^^1^1^2931207^^"
^DD(691.9212,.01,21,1,0)="This allows the user to further describe the type of arrhythmia."
^DD(691.9212,"B","ARRHYTHMIA",.01)=""
^DD(691.9212,"GL",0,1,.01)=""
^DD(691.922,0)="DISCHARGE DATE SUB-FIELD^^1^2"
^DD(691.922,0,"NM","DISCHARGE DATE")=""
^DD(691.922,0,"UP")="691.9"
^DD(691.922,.01,0)="DISCHARGE DATE^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(691.922,.01,3)="This field identifies the discharge date."
^DD(691.922,.01,21,0)="^^1^1^2960723^^"
^DD(691.922,.01,21,1,0)="This field identifies the discharge date."
^DD(691.922,1,0)="MEDICATION ON DISCHARGE^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(691.922,1,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(691.922,"B","DISCHARGE DATE",.01)=""
^DD(691.922,"B","MEDICATION ON DISCHARGE",1)=""
^DD(691.922,"GL",0,1,.01)=""
^DD(691.922,"GL",0,2,1)=""
^DD(691.923,0)="COMMENT SUB-FIELD^^.01^1"
^DD(691.923,0,"NM","COMMENT")=""
^DD(691.923,0,"UP")="691.9"
^DD(691.923,.01,0)="COMMENT^W^^0;1^Q"
^DD(691.923,.01,21,0)="^^1^1^2910429^"
^DD(691.923,.01,21,1,0)="This field identifies the comment field."
^DD(691.923,"B","COMMENT",.01)=""
^DD(691.923,"GL",0,1,.01)=""
^DD(691.93,0)="EKG SUB-FIELD^^9^10"
^DD(691.93,0,"NM","EKG")=""
^DD(691.93,0,"UP")="691.9"
^DD(691.93,.01,0)="DATE/TIME OF EKG^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(691.93,.01,3)="This field identies the EKG's associated with this procedure."
^DD(691.93,.01,21,0)="^^1^1^2910426^"
^DD(691.93,.01,21,1,0)="This field identies the EKG's associated with this procedure."
^DD(691.93,.01,"DT")="2870731"
^DD(691.93,1,0)="RHYTHM^691.931P^^1;0"
^DD(691.93,1,12)="Rhthym Interpretation codes"
^DD(691.93,1,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""R"""""""
^DD(691.93,1,21,0)="^^2^2^2920324^"
^DD(691.93,1,21,1,0)="This allows the user to enter the regular underlying heart"
^DD(691.93,1,21,2,0)="rhythm of the patient."
^DD(691.93,2,0)="ATRIAL CYCLE LENGTH^NJ4,0^^0;3^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.93,2,3)="Type the Number of milliseconds between 0 and 5000, 0 Decimal Digits"
^DD(691.93,2,21,0)="^^1^1^2920324^"
^DD(691.93,2,21,1,0)="This allows the user to enter the atrial cycle length."
^DD(691.93,2,"DT")="2870803"
^DD(691.93,3,0)="VENTRICULAR CYCLE LENGTH^NJ4,0^^0;4^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.93,3,3)="Type the Number in milliseconds between 0 and 5000, 0 Decimal Digits"
^DD(691.93,3,21,0)="^^1^1^2920324^"
^DD(691.93,3,21,1,0)="This allows the user to enter the ventricular cycle length."
^DD(691.93,3,"DT")="2871008"
^DD(691.93,4,0)="QRS DURATION^NJ3,0^^0;5^K:+X'=X!(X>400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.93,4,3)="Type a Number between 0 and 400, 0 Decimal Digits"
^DD(691.93,4,21,0)="^^1^1^2920324^"
^DD(691.93,4,21,1,0)="This allows the user to enter the duration of the QRS wave."
^DD(691.93,4,"DT")="2870803"
^DD(691.93,5,0)="QRS AXIS^NJ3,0^^0;6^K:+X'=X!(X>180)!(X<-180)!(X?.E1"".""1N.N) X"
^DD(691.93,5,3)="Type a Number between -180 and 180, 0 Decimal Digits"
^DD(691.93,5,21,0)="^^1^1^2920324^"
^DD(691.93,5,21,1,0)="This allows the user to enter the QRS axis."
^DD(691.93,5,"DT")="2870803"
^DD(691.93,6,0)="P-R DURATION^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.93,6,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.93,6,21,0)="^^1^1^2920324^"
^DD(691.93,6,21,1,0)="This allows the user to enter the P-R interval duration."
^DD(691.93,6,"DT")="2870731"
^DD(691.93,7,0)="QT^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(691.93,7,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(691.93,7,21,0)="^^1^1^2920324^"
^DD(691.93,7,21,1,0)="This allows the user to enter the QT axis."
^DD(691.93,7,"DT")="2870803"
^DD(691.93,8,0)="QTC^CJ8,0^^ ; ^X ^DD(691.93,8,9.2) D SQR^DIXC S X=$S(X'>0:"""",1:Y) S Y=X,X=Y(691.93,8,2),X=X S X=X,X=$S(Y:X/Y,1:""*******"")*1000 S X=$J(X,0,0)"
^DD(691.93,8,9)="^"
^DD(691.93,8,9.01)="691.93^3;691.93^7"
^DD(691.93,8,9.1)="((QT/1000)/SQUAREROOT((VENTRICULAR CYCLE LENGTH)/1000))*1000"
^DD(691.93,8,9.2)="S Y(691.93,8,1)=$S($D(^MCAR(691.9,D0,7,D1,0)):^(0),1:"""") S X=$P(Y(691.93,8,1),U,8)/1000,Y(691.93,8,2)=X,Y(691.93,8,3)=X S X=$P(Y(691.93,8,1),U,4)/1000"
^DD(691.93,8,21,0)="^^1^1^2920324^"
^DD(691.93,8,21,1,0)="This field is computed from the QT information."
^DD(691.93,8,"DT")="2871015"
^DD(691.93,9,0)="INTERPRETATION^F^^0;10^K:$L(X)>100!($L(X)<1) X"
^DD(691.93,9,3)="ANSWER MUST BE 1-100 CHARACTERS IN LENGTH"
^DD(691.93,9,21,0)="^^1^1^2920324^"
^DD(691.93,9,21,1,0)="This allows the user to enter information from tests."
^DD(691.93,9,"DT")="2871119"
^DD(691.93,"B","ATRIAL CYCLE LENGTH",2)=""
^DD(691.93,"B","DATE/TIME OF EKG",.01)=""
^DD(691.93,"B","INTERPRETATION",9)=""
^DD(691.93,"B","P-R DURATION",6)=""
^DD(691.93,"B","QRS AXIS",5)=""
^DD(691.93,"B","QRS DURATION",4)=""
^DD(691.93,"B","QT",7)=""
^DD(691.93,"B","QTC",8)=""
^DD(691.93,"B","RHYTHM",1)=""
^DD(691.93,"B","VENTRICULAR CYCLE LENGTH",3)=""
^DD(691.93,"GL",0,1,.01)=""
^DD(691.93,"GL",0,3,2)=""
^DD(691.93,"GL",0,4,3)=""
^DD(691.93,"GL",0,5,4)=""
^DD(691.93,"GL",0,6,5)=""
^DD(691.93,"GL",0,7,6)=""
^DD(691.93,"GL",0,8,7)=""
^DD(691.93,"GL",0,10,9)=""
^DD(691.93,"GL",1,0,1)=""
^DD(691.93,"SB",691.931,1)=""
^DD(691.931,0)="RHYTHM SUB-FIELD^^.01^1"
^DD(691.931,0,"IX","B",691.931,.01)=""
^DD(691.931,0,"NM","RHYTHM")=""
^DD(691.931,0,"UP")="691.93"
^DD(691.931,.01,0)="RHYTHM^M*P693.3'^MCAR(693.3,^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(691.931,.01,1,0)="^.1"
^DD(691.931,.01,1,1,0)="691.931^B"
^DD(691.931,.01,1,1,1)="S ^MCAR(691.9,DA(2),7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(691.931,.01,1,1,2)="K ^MCAR(691.9,DA(2),7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(691.931,.01,21,0)="^^2^2^2920324^"
^DD(691.931,.01,21,1,0)="This allows the user to enter the regular underlying heart"
^DD(691.931,.01,21,2,0)="rhythm of the patient."
^DD(691.931,.01,"DT")="2870803"
^DD(691.931,"B","RHYTHM",.01)=""
^DD(691.931,"GL",0,1,.01)=""
^DD(691.931,"IX",.01)=""
^DD(691.96,0)="DISCHARGE DATE SUB-FIELD^NL^1^2"
^DD(691.96,0,"NM","DISCHARGE DATE")=""
^DD(691.96,0,"UP")="691.8"
^DD(691.96,.01,0)="DISCHARGE DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(691.96,1,0)="MEDICATION ON DISCHARGE^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(691.96,1,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(691.96,"B","DISCHARGE DATE",.01)=""
^DD(691.96,"B","MEDICATION ON DISCHARGE",1)=""
^DD(691.96,"GL",0,1,.01)=""
^DD(691.96,"GL",0,2,1)=""
^DD(691.97,0)="FOLLOW UP SUB-FIELD^NL^.01^1"
^DD(691.97,0,"NM","FOLLOW UP")=""
^DD(691.97,0,"UP")="691.8"
^DD(691.97,.01,0)="FOLLOW UP^S^RE:RECURRENT VT/VF;HO:REHOSPITALIZATION;DI:PATIENT DEATH;SE:SIDE EFFECTS FROM DRUG;^0;1^Q"
^DD(691.97,"B","FOLLOW UP",.01)=""
^DD(691.97,"GL",0,1,.01)=""
^DD(692,0)="FIELD^^701^26"
^DD(692,0,"DT")="2930310"
^DD(692,0,"IX","B",692,.01)=""
^DD(692,0,"IX","C",692,.5)=""
^DD(692,0,"NM","VENTRICULAR STUDY")=""
^DD(692,0,"VR")="2.3"
^DD(692,0,"VRPK")="MEDICINE"
^DD(692,.01,0)="DATE/TIME^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(692,.01,1,0)="^.1"
^DD(692,.01,1,1,0)="692^B"
^DD(692,.01,1,1,1)="S ^MCAR(692,""B"",$E(X,1,30),DA)="""""
^DD(692,.01,1,1,2)="K ^MCAR(692,""B"",$E(X,1,30),DA)"
^DD(692,.01,3)=""
^DD(692,.01,21,0)="^^2^2^2910429^"
^DD(692,.01,21,1,0)="This field identifies the date and time the procedure was entered"
^DD(692,.01,21,2,0)="into the database."
^DD(692,.01,"DT")="2920421"
^DD(692,.5,0)="EP RECORD^RP691.8IO^MCAR(691.8,^0;2^Q"
^DD(692,.5,1,0)="^.1"
^DD(692,.5,1,1,0)="692^C"
^DD(692,.5,1,1,1)="S ^MCAR(692,""C"",$E(X,1,30),DA)="""""
^DD(692,.5,1,1,2)="K ^MCAR(692,""C"",$E(X,1,30),DA)"
^DD(692,.5,1,1,"%D",0)="^^1^1^2930903^^"
^DD(692,.5,1,1,"%D",1,0)="This cross-reference allow the linking to the EP file."
^DD(692,.5,2)="S Y(0)=Y X ^DD(""DD"")"
^DD(692,.5,2.1)="X ^DD(""DD"")"
^DD(692,.5,3)="Enter the date and time of the associated Electrophysiology procedure."
^DD(692,.5,21,0)="^^1^1^2910429^"
^DD(692,.5,21,1,0)="This field identifies the EP record identifier."
^DD(692,.5,"DT")="2870805"
^DD(692,.9,0)="INTERVENTION^P693.6'^MCAR(693.6,^0;3^Q"
^DD(692,.9,3)="New entries to the EP INTERVENTION file can only be added through the management menu option."
^DD(692,.9,21,0)="^^1^1^2910429^"
^DD(692,.9,21,1,0)="This field documents intervention necessary for this procedure."
^DD(692,.9,"DT")="2900307"
^DD(692,1,0)="PREMEDICATION^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(692,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(692,1,21,0)="^^1^1^2910429^"
^DD(692,1,21,1,0)="This field documents the medication given before the procedure."
^DD(692,2,0)="EKG^692.02DA^^6;0"
^DD(692,2,21,0)="^^1^1^2910429^"
^DD(692,2,21,1,0)="This field identifies the EKG which is associated with this procedure."
^DD(692,3,0)="ENTRY SITE^*P697'X^MCAR(697,^0;6^S DIC(""S"")=""I $D(^MCAR(697,""""D"""",$G(MCARGNAM,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(692,3,3)="CHOOSE ONLY ENTRIES ASSOCIATED WITH EP'S"
^DD(692,3,4)=""
^DD(692,3,12)="CHOOSE ONLY ENTRY SITES APPLICABLE TO EP'S"
^DD(692,3,12.1)="S DIC(""S"")=""I $D(^MCAR(697,""""D"""",$G(MCARGNAM,U),+Y))"""
^DD(692,3,21,0)="^^1^1^2910429^"
^DD(692,3,21,1,0)="This field identifies the anatomical location of the catheter entry."
^DD(692,3,"DT")="2920730"
^DD(692,4,0)="RECORDING SITE^P693.5'^MCAR(693.5,^0;7^Q"
^DD(692,4,3)="Enter the anatomical location of the recording site."
^DD(692,4,21,0)="^^1^1^2910913^^^"
^DD(692,4,21,1,0)="This field identifies the anatomical location of the recording site."
^DD(692,4,"DT")="2910909"
^DD(692,5,0)="PACING SITE^S^RVA:RT VENTRICULAR APEX;RVOT:RT VENTRICULAR OUTFLOW TRACT;LV:LEFT VENTRICLE;^0;8^Q"
^DD(692,5,3)="Enter the anatomical location of the pacing mechanism."
^DD(692,5,21,0)="^^1^1^2910429^"
^DD(692,5,21,1,0)="This field identifies the anatomical location of the pacing site."
^DD(692,5,"DT")="2870623"
^DD(692,6,0)="VENTRICULAR THRESHOLD (mA)^NJ4,1^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(692,6,3)="Type a Number between 0 and 99, 1 Decimal Digit"
^DD(692,6,21,0)="^^1^1^2910913^^^"
^DD(692,6,21,1,0)="This field identifies the ventricular threshold in milliamperes."
^DD(692,6,"DT")="2910909"
^DD(692,7,0)="DRIVE CYCLE LENGTH^692.07A^^1;0"
^DD(692,7,21,0)="^^1^1^2910913^^"
^DD(692,7,21,1,0)="This field identifies the drive cycle length."
^DD(692,7,"DT")="2910909"
^DD(692,8,0)="BURST PACING (#REP. RESPONSES)^F^^2;1^K:$L(X)>9!($L(X)<1) X"
^DD(692,8,3)="ANSWER MUST BE 1-9 CHARACTERS IN LENGTH"
^DD(692,8,21,0)="^^1^1^2910913^^^"
^DD(692,8,21,1,0)="This field identifies the burst pacing (#rep. responses)."
^DD(692,8,"DT")="2910909"
^DD(692,9,0)="SHORTEST BURST CL^NJ3,0^^2;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(692,9,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(692,9,21,0)="^^1^1^2910913^^"
^DD(692,9,21,1,0)="This field identifies the shortest burst CL."
^DD(692,9,"DT")="2910909"
^DD(692,10,0)="V.T.?^S^Y:SUS. V-T INDUCED;N:NO V-T INDUCED;N-S:NON-SUS. V.T. INDUCED;^2;3^Q"
^DD(692,10,3)="Indicate whether and how ventricular tachycardia was induced."
^DD(692,10,21,0)="^^1^1^2910429^"
^DD(692,10,21,1,0)="This documents the occurrance of ventricular tachycardia."
^DD(692,10,"DT")="2871007"
^DD(692,11,0)="INITIATION SEQUENCE OF VT^F^^2;4^K:$L(X)>50!($L(X)<1) X"
^DD(692,11,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(692,11,21,0)="^^1^1^2910429^"
^DD(692,11,21,1,0)="This defines the initiation of VT."
^DD(692,12,0)="DURATION OF VT/VF^NJ4,0^^2;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(692,12,3)="Enter the duration of VT/VF in seconds: Whole Number 0-9999"
^DD(692,12,21,0)="^^1^1^2910429^"
^DD(692,12,21,1,0)="This field identifies the duration of VT/VF."
^DD(692,13,0)="V-T AXIS^F^^2;6^K:$L(X)>10!($L(X)<1) X"
^DD(692,13,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(692,13,21,0)="^^1^1^2910429^"
^DD(692,13,21,1,0)="This field identifies the V-T axis."
^DD(692,14,0)="V-T CYCLE LENGTH^NJ3,0^^2;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(692,14,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(692,14,21,0)="^^1^1^2910429^"
^DD(692,14,21,1,0)="This field identifies the V-T cycle length."
^DD(692,15,0)="V-T MORPHOLOGY^S^R:RBBB;L:LBBB;N:NON DESC.;V:VARIABLE;^2;8^Q"
^DD(692,15,3)="Enter a code describing the nature of the patient's ventricular tachycardia."
^DD(692,15,21,0)="^^1^1^2910429^"
^DD(692,15,21,1,0)="This field identifies the V-T morphology."
^DD(692,15,"DT")="2910909"
^DD(692,16,0)="TERM. V-T^S^C:EXTERNAL CARDIOVERSION;P:PACED OUT;S:SELF TERMINATION;C+P:CARDIOVERSION+PACE OUT;C+S:CARDIOVERSION+SELF TERM;P+S:PACE OUT+SELF TERM;IC:INTERNAL CARDIOVERSION;^2;9^Q"
^DD(692,16,3)="Enter a code describing how the ventricular tachycardia was terminated."
^DD(692,16,21,0)="^^1^1^2910429^"
^DD(692,16,21,1,0)="This field identifies the term V-T."
^DD(692,17,0)="PACE OUT CYCLE LENGTH OF V-T^NJ3,0^^2;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(692,17,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(692,17,21,0)="^^1^1^2910913^^"
^DD(692,17,21,1,0)="This field identifies the pace out cycle length of V-T."
^DD(692,17,"DT")="2910909"
^DD(692,18,0)="CARDIOVERSION (J)^F^^2;11^K:$L(X)>60!($L(X)<1) X"
^DD(692,18,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(692,18,21,0)="^^1^1^2910913^^"
^DD(692,18,21,1,0)="This documents whether cardioversion was necessary."
^DD(692,18,"DT")="2910909"
^DD(692,19,0)="DISCHARGE DATE^692.019DA^^4;0"
^DD(692,19,21,0)="^^1^1^2910429^"
^DD(692,19,21,1,0)="This field identifies the discharge date."
^DD(692,20,0)="COMMENT^692.01^^3;0"
^DD(692,20,21,0)="^^1^1^2910429^"
^DD(692,20,21,1,0)="This field identifies the comment field."
^DD(692,21,0)="CARDIOLOGY STAFF^*P200'^VA(200,^5;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(692,21,1,0)="^.1"
^DD(692,21,1,1,0)="^^TRIGGER^692^701"
^DD(692,21,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(692,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(692,21,1,1,1.4)"
^DD(692,21,1,1,1.4)="S DIH=$S($D(^MCAR(692,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=692,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(692,21,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(692,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(692,21,1,1,2.1) X ^DD(692,21,1,1,2.4)"
^DD(692,21,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(692,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(692,21,1,1,2.4)="S DIH=$S($D(^MCAR(692,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=692,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(692,21,1,1,"%D",0)="^^1^1^2960423^"
^DD(692,21,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(692,21,1,1,"CREATE VALUE")="INTERNAL(#21)"
^DD(692,21,1,1,"DELETE VALUE")="INTERNAL(#21)"
^DD(692,21,1,1,"DT")="2960423"
^DD(692,21,1,1,"FIELD")="#701"
^DD(692,21,3)="Enter the name of the cardiology staff member attending this procedure."
^DD(692,21,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(692,21,21,0)="^^1^1^2910429^"
^DD(692,21,21,1,0)="This field identifies the cardiology staff assigned to this case."
^DD(692,21,"DT")="2960423"
^DD(692,700,0)="ICD DIAGNOSIS^692.03P^^ICD;0"
^DD(692,700,21,0)="^^3^3^2920114^"
^DD(692,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  This field"
^DD(692,700,21,2,0)="also contains a subfield labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(692,700,21,3,0)="the future."
^DD(692,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(692,701,5,1,0)="692^21^1"
^DD(692,701,9)="^"
^DD(692,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(692,701,21,0)="^^3^3^2920109^"
^DD(692,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(692,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(692,701,21,3,0)="use in transferring data to the PCC."
^DD(692,701,"DT")="2941025"
^DD(692,"B","BURST PACING (#REP. RESPONSES)",8)=""
^DD(692,"B","CARDIOLOGY STAFF",21)=""
^DD(692,"B","CARDIOVERSION (J)",18)=""
^DD(692,"B","COMMENT",20)=""
^DD(692,"B","DATE/TIME",.01)=""
^DD(692,"B","DISCHARGE DATE",19)=""
^DD(692,"B","DRIVE CYCLE LENGTH",7)=""
^DD(692,"B","DURATION OF VT/VF",12)=""
^DD(692,"B","EKG",2)=""
^DD(692,"B","ENTRY SITE",3)=""
^DD(692,"B","EP RECORD",.5)=""
^DD(692,"B","ICD DIAGNOSIS",700)=""
^DD(692,"B","INITIATION SEQUENCE OF VT",11)=""
^DD(692,"B","INTERVENTION",.9)=""
^DD(692,"B","PACE OUT CYCLE LENGTH OF V-T",17)=""
^DD(692,"B","PACING SITE",5)=""
^DD(692,"B","PREMEDICATION",1)=""
^DD(692,"B","PRIMARY PROVIDER",701)=""
^DD(692,"B","RECORDING SITE",4)=""
^DD(692,"B","SHORTEST BURST CL",9)=""
^DD(692,"B","TERM. V-T",16)=""
^DD(692,"B","V-T AXIS",13)=""
^DD(692,"B","V-T CYCLE LENGTH",14)=""
^DD(692,"B","V-T MORPHOLOGY",15)=""
^DD(692,"B","V.T.?",10)=""
^DD(692,"B","VENTRICULAR THRESHOLD (mA)",6)=""
^DD(692,"GL",0,1,.01)=""
^DD(692,"GL",0,2,.5)=""
^DD(692,"GL",0,3,.9)=""
^DD(692,"GL",0,4,1)=""
^DD(692,"GL",0,6,3)=""
^DD(692,"GL",0,7,4)=""
^DD(692,"GL",0,8,5)=""
^DD(692,"GL",0,9,6)=""
^DD(692,"GL",1,0,7)=""
^DD(692,"GL",2,1,8)=""
^DD(692,"GL",2,2,9)=""
^DD(692,"GL",2,3,10)=""
^DD(692,"GL",2,4,11)=""
^DD(692,"GL",2,5,12)=""
^DD(692,"GL",2,6,13)=""
^DD(692,"GL",2,7,14)=""
^DD(692,"GL",2,8,15)=""
^DD(692,"GL",2,9,16)=""
^DD(692,"GL",2,10,17)=""
^DD(692,"GL",2,11,18)=""
^DD(692,"GL",3,0,20)=""
^DD(692,"GL",4,0,19)=""
^DD(692,"GL",5,1,21)=""
^DD(692,"GL",6,0,2)=""
^DD(692,"GL","ICD",0,700)=""
^DD(692,"GL","PROV",1,701)=""
^DD(692,"IX",.01)=""
^DD(692,"IX",.5)=""
^DD(692,"IX",21)=""
^DD(692,"RQ",.01)=""
^DD(692,"RQ",.5)=""
^DD(692,"SB",692.01,20)=""
^DD(692,"SB",692.019,19)=""
^DD(692,"SB",692.02,2)=""
^DD(692,"SB",692.03,700)=""
^DD(692,"SB",692.07,7)=""
^DD(692.01,0)="COMMENT SUB-FIELD^^.01^1"
^DD(692.01,0,"NM","COMMENT")=""
^DD(692.01,0,"UP")="692"
^DD(692.01,.01,0)="COMMENT^W^^0;1^Q"
^DD(692.01,.01,3)="Enter a free-text commentary on this procedure."
^DD(692.01,.01,21,0)="^^1^1^2910429^"
^DD(692.01,.01,21,1,0)="This field identifies the comment field."
^DD(692.01,"B","COMMENT",.01)=""
^DD(692.01,"GL",0,1,.01)=""
^DD(692.019,0)="DISCHARGE DATE SUB-FIELD^^1^2"
^DD(692.019,0,"NM","DISCHARGE DATE")=""
^DD(692.019,0,"UP")="692"
^DD(692.019,.01,0)="DISCHARGE DATE^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(692.019,.01,3)="Enter the discharge date"
^DD(692.019,.01,21,0)="^^1^1^2910429^"
^DD(692.019,.01,21,1,0)="This field identifies the discharge date."
^DD(692.019,1,0)="MEDICATION ON DISCHARGE^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(692.019,1,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(692.019,1,21,0)="^^1^1^2920706^"
^DD(692.019,1,21,1,0)="This allows the user to enter the patient's medications upon discharge."
^DD(692.019,"B","DISCHARGE DATE",.01)=""
^DD(692.019,"B","MEDICATION ON DISCHARGE",1)=""
^DD(692.019,"GL",0,1,.01)=""
^DD(692.019,"GL",0,2,1)=""
^DD(692.02,0)="EKG SUB-FIELD^^9^10"
^DD(692.02,0,"DT")="2920715"
^DD(692.02,0,"NM","EKG")=""
^DD(692.02,0,"UP")="692"
^DD(692.02,.01,0)="DATE/TIME OF EKG^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(692.02,.01,3)="Enter the date and time of an EKG associated with this procedure."
^DD(692.02,.01,21,0)="^^1^1^2910429^"
^DD(692.02,.01,21,1,0)="This field identifies the EKG which is associated with this procedure."
^DD(692.02,.01,"DT")="2870731"
^DD(692.02,1,0)="RHYTHM^692.21P^^1;0"
^DD(692.02,1,12)="Rhythm Interpretation Codes"
^DD(692.02,1,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""R"""""""
^DD(692.02,1,21,0)="^^1^1^2920324^"
^DD(692.02,1,21,1,0)="This allows the user to describe the rhythm."
^DD(692.02,2,0)="ATRIAL CYCLE LENGTH^NJ4,0^^0;3^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(692.02,2,3)="Type the Number of milliseconds between 0 and 5000, 0 Decimal Digits"
^DD(692.02,2,21,0)="^^1^1^2871007^^"
^DD(692.02,2,21,1,0)="Enter Cycle Length in Milliseconds."
^DD(692.02,2,"DT")="2870803"
^DD(692.02,3,0)="VENTRICULAR CYCLE LENGTH^NJ4,0^^0;4^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(692.02,3,3)="Type the Number in milliseconds between 0 and 5000, 0 Decimal Digits"
^DD(692.02,3,21,0)="^^1^1^2871008^^^"
^DD(692.02,3,21,1,0)="Enter Cycle Length in Milliseconds."
^DD(692.02,3,"DT")="2871007"
^DD(692.02,4,0)="QRS DURATION^NJ3,0^^0;5^K:+X'=X!(X>400)!(X<0)!(X?.E1"".""1N.N) X"
^DD(692.02,4,3)="Type a Number between 0 and 400, 0 Decimal Digits"
^DD(692.02,4,21,0)="^^1^1^2920324^"
^DD(692.02,4,21,1,0)="This allows the user to enter the QRS Duration interval."
^DD(692.02,4,"DT")="2870803"
^DD(692.02,5,0)="QRS AXIS^NJ3,0^^0;6^K:+X'=X!(X>180)!(X<-180)!(X?.E1"".""1N.N) X"
^DD(692.02,5,3)="Type a Number between -180 and 180, 0 Decimal Digits"
^DD(692.02,5,21,0)="^^1^1^2920324^"
^DD(692.02,5,21,1,0)="This allows the user to enter the QRS Axis."
^DD(692.02,5,"DT")="2870803"
^DD(692.02,6,0)="P-R DURATION^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(692.02,6,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(692.02,6,21,0)="^^1^1^2920324^"
^DD(692.02,6,21,1,0)="This allows the user to enter the P-R duration."
^DD(692.02,6,"DT")="2870803"
^DD(692.02,7,0)="QT^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(692.02,7,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(692.02,7,21,0)="^^1^1^2920324^"
^DD(692.02,7,21,1,0)="This allows the user to enter the QT axis."
^DD(692.02,7,"DT")="2870803"
^DD(692.02,8,0)="QTC^CJ8,0^^ ; ^X ^DD(692.02,8,9.2) D SQR^DIXC S X=$S(X'>0:"""",1:Y) S Y=X,X=Y(692.02,8,2),X=X S X=X,X=$S(Y:X/Y,1:""*******"")*1000 S X=$J(X,0,0)"
^DD(692.02,8,9)="^"
^DD(692.02,8,9.01)="692.02^3;692.02^7"
^DD(692.02,8,9.1)="((QT/1000)/SQUAREROOT((VENTRICULAR CYCLE LENGTH)/1000))*1000"
^DD(692.02,8,9.2)="S Y(692.02,8,1)=$S($D(^MCAR(692,D0,6,D1,0)):^(0),1:"""") S X=$P(Y(692.02,8,1),U,8)/1000,Y(692.02,8,2)=X,Y(692.02,8,3)=X S X=$P(Y(692.02,8,1),U,4)/1000"
^DD(692.02,8,21,0)="^^1^1^2920324^"
^DD(692.02,8,21,1,0)="This field identifies computed from the QT information."
^DD(692.02,8,"DT")="2871008"
^DD(692.02,9,0)="INTERPRETATION^F^^0;10^K:$L(X)>50!($L(X)<1) X"
^DD(692.02,9,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH"
^DD(692.02,9,21,0)="^^1^1^2920324^"
^DD(692.02,9,21,1,0)="This allows the user to enter information from the tests."
^DD(692.02,9,"DT")="2870803"
^DD(692.02,"B","ATRIAL CYCLE LENGTH",2)=""
^DD(692.02,"B","DATE/TIME OF EKG",.01)=""
^DD(692.02,"B","INTERPRETATION",9)=""
^DD(692.02,"B","P-R DURATION",6)=""
^DD(692.02,"B","QRS AXIS",5)=""
^DD(692.02,"B","QRS DURATION",4)=""
^DD(692.02,"B","QT",7)=""
^DD(692.02,"B","QTC",8)=""
^DD(692.02,"B","RHYTHM",1)=""
^DD(692.02,"B","VENTRICULAR CYCLE LENGTH",3)=""
^DD(692.02,"GL",0,1,.01)=""
^DD(692.02,"GL",0,3,2)=""
^DD(692.02,"GL",0,4,3)=""
^DD(692.02,"GL",0,5,4)=""
^DD(692.02,"GL",0,6,5)=""
^DD(692.02,"GL",0,7,6)=""
^DD(692.02,"GL",0,8,7)=""
^DD(692.02,"GL",0,10,9)=""
^DD(692.02,"GL",1,0,1)=""
^DD(692.02,"SB",692.21,1)=""
^DD(692.03,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(692.03,0,"DT")="2930310"
^DD(692.03,0,"IX","B",692.03,.01)=""
^DD(692.03,0,"NM","ICD DIAGNOSIS")=""
^DD(692.03,0,"UP")="692"
^DD(692.03,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(692.03,.01,1,0)="^.1"
^DD(692.03,.01,1,1,0)="692.03^B"
^DD(692.03,.01,1,1,1)="S ^MCAR(692,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(692.03,.01,1,1,2)="K ^MCAR(692,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(692.03,.01,21,0)="^^3^3^2920114^"
^DD(692.03,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  This field"
^DD(692.03,.01,21,2,0)="also contains a subfield labeled NARRATIVE DIAGNOSIS which will be used in"
^DD(692.03,.01,21,3,0)="the future."
^DD(692.03,.01,"DT")="2930310"
^DD(692.03,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(692.03,.02,3)="Answer must be 1-80 characters in length."
^DD(692.03,.02,"DT")="2920114"
^DD(692.03,"B","ICD DIAGNOSIS",.01)=""
^DD(692.03,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(692.03,"GL",0,1,.01)=""
^DD(692.03,"GL",0,2,.02)=""
^DD(692.03,"IX",.01)=""
^DD(692.07,0)="DRIVE CYCLE LENGTH SUB-FIELD^^6^7"
^DD(692.07,0,"NM","DRIVE CYCLE LENGTH")=""
^DD(692.07,0,"UP")="692"
^DD(692.07,.01,0)="DRIVE CYCLE LENGTH^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(692.07,.01,3)="Type a Whole Number between 1 and 9999"
^DD(692.07,.01,21,0)="^^1^1^2910913^^"
^DD(692.07,.01,21,1,0)="This field identifies the drive cycle length."
^DD(692.07,.01,"DT")="2910909"
^DD(692.07,1,0)="1VES(#REPETITIVE BEATS)^F^^0;2^K:$L(X)>9!($L(X)<1) X"
^DD(692.07,1,3)="Ventricular Extrastimulus: 1 to 9 Characters"
^DD(692.07,1,21,0)="^^1^1^2920324^"
^DD(692.07,1,21,1,0)="This allows the user to enter the Ventricular Extrastimulus."
^DD(692.07,2,0)="VERP (1 VES)^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(692.07,2,3)="Ventricular Effective Refractory Period: Whole Number 1-999"
^DD(692.07,2,21,0)="^^2^2^2920324^"
^DD(692.07,2,21,1,0)="This allows the user to enter the Ventricular Effective Refractory"
^DD(692.07,2,21,2,0)="Period."
^DD(692.07,3,0)="2VES(#REPETITIVE BEATS)^F^^0;4^K:$L(X)>9!($L(X)<1) X"
^DD(692.07,3,3)="Ventricular Extrastimulus: 1 to 9 Characters"
^DD(692.07,3,21,0)="^^1^1^2920324^"
^DD(692.07,3,21,1,0)="This allows the user to enter the Ventricular Extrastimulus."
^DD(692.07,4,0)="VERP (2 VES)^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(692.07,4,3)="Ventricular Effective Refractory Period: Whole Number 1-999"
^DD(692.07,4,21,0)="^^2^2^2920324^^"
^DD(692.07,4,21,1,0)="This allows the user to enter the Ventricular Effective"
^DD(692.07,4,21,2,0)="Refractory Period."
^DD(692.07,5,0)="3VES(#REPETITIVE BEATS)^F^^0;6^K:$L(X)>9!($L(X)<1) X"
^DD(692.07,5,3)="Ventricular Extrastimulus: 1 to 9 Characters"
^DD(692.07,5,21,0)="^^1^1^2920324^"
^DD(692.07,5,21,1,0)="This allows the user to enter the Ventricular Extrastimulus."
^DD(692.07,6,0)="VERP (3 VES)^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(692.07,6,3)="Ventricular Effective Refractory Period: Whole Number 1-999"
^DD(692.07,6,21,0)="^^2^2^2920324^"
^DD(692.07,6,21,1,0)="This allows the user to enter the Ventricular Effective Refractory"
^DD(692.07,6,21,2,0)="Period."
^DD(692.07,"B","1VES(#REPETITIVE BEATS)",1)=""
^DD(692.07,"B","2VES(#REPETITIVE BEATS)",3)=""
^DD(692.07,"B","3VES(#REPETITIVE BEATS)",5)=""
^DD(692.07,"B","DRIVE CYCLE LENGTH",.01)=""
^DD(692.07,"B","VERP (1 VES)",2)=""
^DD(692.07,"B","VERP (2 VES)",4)=""
^DD(692.07,"B","VERP (3 VES)",6)=""
^DD(692.07,"GL",0,1,.01)=""
^DD(692.07,"GL",0,2,1)=""
^DD(692.07,"GL",0,3,2)=""
^DD(692.07,"GL",0,4,3)=""
^DD(692.07,"GL",0,5,4)=""
^DD(692.07,"GL",0,6,5)=""
^DD(692.07,"GL",0,7,6)=""
^DD(692.21,0)="RHYTHM SUB-FIELD^^.01^1"
^DD(692.21,0,"DT")="2920715"
^DD(692.21,0,"IX","B",692.21,.01)=""
^DD(692.21,0,"NM","RHYTHM")=""
^DD(692.21,0,"UP")="692.02"
^DD(692.21,.01,0)="RHYTHM^M*P693.3'^MCAR(693.3,^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(692.21,.01,1,0)="^.1"
^DD(692.21,.01,1,1,0)="692.21^B"
^DD(692.21,.01,1,1,1)="S ^MCAR(692,DA(2),6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(692.21,.01,1,1,2)="K ^MCAR(692,DA(2),6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(692.21,.01,3)="Enter an interpretation of the associated electrocardiogram procedure."
^DD(692.21,.01,21,0)="^^1^1^2920324^"
^DD(692.21,.01,21,1,0)="This allows the user to describe the rhythm. "
^DD(692.21,.01,"DT")="2870803"
^DD(692.21,"B","RHYTHM",.01)=""
^DD(692.21,"GL",0,1,.01)=""
^DD(692.21,"IX",.01)=""
^DD(693,0)="FIELD^^3^4"
^DD(693,0,"DT")="2960509"
^DD(693,0,"IX","B",693,.01)=""
^DD(693,0,"IX","C",693,1)=""
^DD(693,0,"NM","MEDICAL DESCRIPTION")=""
^DD(693,0,"PT",691.06,.01)=""
^DD(693,0,"PT",694.01,.01)=""
^DD(693,0,"PT",700.029,.01)=""
^DD(693,0,"VR")="2.3"
^DD(693,0,"VRPK")="MEDICINE"
^DD(693,.01,0)="NAME^RF^^0;1^K:$L(X)>150!($L(X)<1)!'(X'?1P.E)!(X'?.ANP) X"
^DD(693,.01,1,0)="^.1"
^DD(693,.01,1,1,0)="693^B"
^DD(693,.01,1,1,1)="S ^MCAR(693,""B"",$E(X,1,100),DA)="""""
^DD(693,.01,1,1,2)="K ^MCAR(693,""B"",$E(X,1,100),DA)"
^DD(693,.01,3)="ANSWER MUST BE 1-150 CHARACTERS IN LENGTH"
^DD(693,.01,21,0)="^^2^2^2910426^"
^DD(693,.01,21,1,0)="This field serves as a list of Echo conclusions for the Echo file and"
^DD(693,.01,21,2,0)="a list of Bone Marrow Descriptions for the Hematology file."
^DD(693,1,0)="SYNONYM^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(693,1,1,0)="^.1"
^DD(693,1,1,1,0)="693^C"
^DD(693,1,1,1,1)="S ^MCAR(693,""C"",$E(X,1,30),DA)="""""
^DD(693,1,1,1,2)="K ^MCAR(693,""C"",$E(X,1,30),DA)"
^DD(693,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(693,1,1,1,"%D",1,0)="This cross-reference allow looks by Synonym."
^DD(693,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(693,1,21,0)="^^1^1^2910426^"
^DD(693,1,21,1,0)="This field allows an alternate name for the Medical description."
^DD(693,1,"DT")="2881129"
^DD(693,2,0)="ICD POINTER^P80'^ICD9(^0;3^Q"
^DD(693,2,3)="Enter an ICD diagnosis code with which this description is to be linked."
^DD(693,2,21,0)="^^1^1^2910426^"
^DD(693,2,21,1,0)="This field links the description with an ICD diagnosis."
^DD(693,2,"DT")="2870629"
^DD(693,3,0)="MEDICAL PACKAGE USE^S^C:CARDIOLOGY;H:HEMATOLOGY;P:PULMONARY;^0;4^Q"
^DD(693,3,3)="Enter a code specifying which subspecialty uses this description."
^DD(693,3,21,0)="^^2^2^2960509^^"
^DD(693,3,21,1,0)="This field is used as a screen to separate the Echo conclusions from"
^DD(693,3,21,2,0)="the Hematology bone marrow description"
^DD(693,3,"DT")="2960509"
^DD(693,"B","ICD POINTER",2)=""
^DD(693,"B","MEDICAL PACKAGE USE",3)=""
^DD(693,"B","NAME",.01)=""
^DD(693,"B","SYNONYM",1)=""
^DD(693,"GL",0,1,.01)=""
^DD(693,"GL",0,2,1)=""
^DD(693,"GL",0,3,2)=""
^DD(693,"GL",0,4,3)=""
^DD(693,"IX",.01)=""
^DD(693,"IX",1)=""
^DD(693,"RQ",.01)=""
^DD(693.2,0)="FIELD^^1^2"
^DD(693.2,0,"DDA")="N"
^DD(693.2,0,"DT")="2900713"
^DD(693.2,0,"ID",.001)="W:$D(^("" "")) ""   "",Y"
^DD(693.2,0,"IX","B",693.2,.01)=""
^DD(693.2,0,"NM","INTERPRETATION")=""
^DD(693.2,0,"PT",691.1,59)=""
^DD(693.2,0,"PT",700.022,.01)=""
^DD(693.2,0,"PT",700.023,.01)=""
^DD(693.2,0,"PT",700.024,.01)=""
^DD(693.2,0,"PT",700.026,.01)=""
^DD(693.2,0,"PT",700.027,.01)=""
^DD(693.2,0,"PT",700.033,.01)=""
^DD(693.2,0,"VR")="2.3"
^DD(693.2,0,"VRPK")="MEDICINE"
^DD(693.2,.01,0)="INTERPRETATION^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(693.2,.01,1,0)="^.1"
^DD(693.2,.01,1,1,0)="693.2^B"
^DD(693.2,.01,1,1,1)="S ^MCAR(693.2,""B"",$E(X,1,80),DA)="""""
^DD(693.2,.01,1,1,2)="K ^MCAR(693.2,""B"",$E(X,1,80),DA)"
^DD(693.2,.01,1,1,"DT")="2900718"
^DD(693.2,.01,3)="Answer must be 3-80 characters in length."
^DD(693.2,.01,21,0)="^^2^2^2910426^"
^DD(693.2,.01,21,1,0)="This field contains interpretations for Cardiac Catheterization and"
^DD(693.2,.01,21,2,0)="Pulmonary Function tests."
^DD(693.2,.01,"DT")="2900718"
^DD(693.2,1,0)="MEDICAL PACKAGE USE^S^C:CATHETERIZATION;P:PULMONARY FUNCTION TEST;^0;2^Q"
^DD(693.2,1,3)="Enter a code specifying which subspecialty uses this interpretation."
^DD(693.2,1,21,0)="^^2^2^2910426^"
^DD(693.2,1,21,1,0)="This field is used as a screen to differentiate Catheterization"
^DD(693.2,1,21,2,0)="interpretations from Pulmonary Function Test Interpretations"
^DD(693.2,1,"DT")="2900709"
^DD(693.2,"B","INTERPRETATION",.01)=""
^DD(693.2,"B","MEDICAL PACKAGE USE",1)=""
^DD(693.2,"GL",0,1,.01)=""
^DD(693.2,"GL",0,2,1)=""
^DD(693.2,"IX",.01)=""
^DD(693.2,"RQ",.01)=""
^DD(693.3,0)="FIELD^^2^3"
^DD(693.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(693.3,0,"IX","B",693.3,.01)=""
^DD(693.3,0,"IX","C",693.3,1)=""
^DD(693.3,0,"NM","ECG INTERPRETATION")=""
^DD(693.3,0,"PT",691.54,.01)=""
^DD(693.3,0,"PT",691.55,.01)=""
^DD(693.3,0,"PT",691.56,.01)=""
^DD(693.3,0,"PT",691.931,.01)=""
^DD(693.3,0,"PT",692.21,.01)=""
^DD(693.3,0,"VR")="2.3"
^DD(693.3,0,"VRPK")="MEDICINE"
^DD(693.3,.01,0)="INTERPRETATION^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<4) X"
^DD(693.3,.01,1,0)="^.1"
^DD(693.3,.01,1,1,0)="693.3^B"
^DD(693.3,.01,1,1,1)="S ^MCAR(693.3,""B"",$E(X,1,30),DA)="""""
^DD(693.3,.01,1,1,2)="K ^MCAR(693.3,""B"",$E(X,1,30),DA)"
^DD(693.3,.01,3)="TYPE NAME OF INTERPRETATION,COMMA,MODIFIER(DEFINITE,PROBABLE,POSSIBLE,BORDER LINE,CONSIDER,CHANGES). ABBREVIATIONS ARE DEF,PRO,POS,CON,CHG."
^DD(693.3,.01,21,0)="^^2^2^2910426^"
^DD(693.3,.01,21,1,0)="This field contains the various types of interpretations for EKG's and"
^DD(693.3,.01,21,2,0)="rhythms for Atrial and Ventricular Studies."
^DD(693.3,.01,21,3,0)="of interpretation."
^DD(693.3,.01,"DT")="2870805"
^DD(693.3,1,0)="CODE NUMBER^RF^^0;2^K:$L(X)>4!($L(X)<4)!'(X'?1P.E)!(X'?.ANP) X"
^DD(693.3,1,1,0)="^.1"
^DD(693.3,1,1,1,0)="693.3^C"
^DD(693.3,1,1,1,1)="S ^MCAR(693.3,""C"",$E(X,1,30),DA)="""""
^DD(693.3,1,1,1,2)="K ^MCAR(693.3,""C"",$E(X,1,30),DA)"
^DD(693.3,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(693.3,1,1,1,"%D",1,0)="This cross-reference allow looks-up by code number."
^DD(693.3,1,3)="FOUR DIGIT ECG INTERPRETATION"
^DD(693.3,1,21,0)="^^3^3^2910426^^^^"
^DD(693.3,1,21,1,0)="Four digit code representing ECG interpretation. Digit one is"
^DD(693.3,1,21,2,0)="Broad Category, digit two is location, digit three is Acuteness,"
^DD(693.3,1,21,3,0)="and digit four is Competency of interpretation."
^DD(693.3,1,"DT")="2870805"
^DD(693.3,2,0)="TYPE OF CODE^RS^R:RHYTHM;C:CONFIGURATION;P:PACING;^0;3^Q"
^DD(693.3,2,3)="Enter the type of code:  (R)hythm, (C)onfiguration, or (P)acing."
^DD(693.3,2,21,0)="^^1^1^2910426^"
^DD(693.3,2,21,1,0)="This field is used to separate Rhythm, Configuration, and Pacing codes."
^DD(693.3,2,"DT")="2870618"
^DD(693.3,"B","CODE NUMBER",1)=""
^DD(693.3,"B","INTERPRETATION",.01)=""
^DD(693.3,"B","TYPE OF CODE",2)=""
^DD(693.3,"GL",0,1,.01)=""
^DD(693.3,"GL",0,2,1)=""
^DD(693.3,"GL",0,3,2)=""
^DD(693.3,"IX",.01)=""
^DD(693.3,"IX",1)=""
^DD(693.3,"RQ",.01)=""
^DD(693.3,"RQ",1)=""
^DD(693.3,"RQ",2)=""
^DD(693.5,0)="FIELD^^1^2"
^DD(693.5,0,"DT")="2960524"
^DD(693.5,0,"IX","B",693.5,.01)=""
^DD(693.5,0,"NM","RECORDING SITE")=""
^DD(693.5,0,"PT",691.9,5)=""
^DD(693.5,0,"PT",692,4)=""
^DD(693.5,0,"VR")="2.3"
^DD(693.5,0,"VRPK")="MEDICINE"
^DD(693.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(693.5,.01,1,0)="^.1"
^DD(693.5,.01,1,1,0)="693.5^B"
^DD(693.5,.01,1,1,1)="S ^MCAR(693.5,""B"",$E(X,1,30),DA)="""""
^DD(693.5,.01,1,1,2)="K ^MCAR(693.5,""B"",$E(X,1,30),DA)"
^DD(693.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(693.5,.01,21,0)="^^2^2^2910426^"
^DD(693.5,.01,21,1,0)="This field contains the list of possible placement sites for heart"
^DD(693.5,.01,21,2,0)="catheters.  It is used by the Atrial and Ventricular study files."
^DD(693.5,1,0)="TOPOGRAPHY^P61'^LAB(61,^0;2^Q"
^DD(693.5,1,3)="Enter the topography field."
^DD(693.5,1,21,0)="^^1^1^2910426^"
^DD(693.5,1,21,1,0)="This field identifies a link to the Laboratory Topography file."
^DD(693.5,1,"DT")="2960524"
^DD(693.5,"B","NAME",.01)=""
^DD(693.5,"B","TOPOGRAPHY",1)=""
^DD(693.5,"GL",0,1,.01)=""
^DD(693.5,"GL",0,2,1)=""
^DD(693.5,"IX",.01)=""
^DD(693.5,"RQ",.01)=""
^DD(693.6,0)="FIELD^^.01^1"
^DD(693.6,0,"IX","B",693.6,.01)=""
^DD(693.6,0,"NM","EP INTERVENTION")=""
^DD(693.6,0,"PT",691.9,1)=""
^DD(693.6,0,"PT",692,.9)=""
^DD(693.6,0,"VR")="2.3"
^DD(693.6,0,"VRPK")="MEDICINE"
^DD(693.6,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(693.6,.01,1,0)="^.1"
^DD(693.6,.01,1,1,0)="693.6^B"
^DD(693.6,.01,1,1,1)="S ^MCAR(693.6,""B"",$E(X,1,50),DA)="""""
^DD(693.6,.01,1,1,2)="K ^MCAR(693.6,""B"",$E(X,1,50),DA)"
^DD(693.6,.01,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH"
^DD(693.6,.01,21,0)="^^3^3^2910426^"
^DD(693.6,.01,21,1,0)="This field identifies a list of EP interventions for use by the Atrial and"
^DD(693.6,.01,21,2,0)="Ventricular study files.  This list is locally entered through the Cardiology"
^DD(693.6,.01,21,3,0)="Management menu."
^DD(693.6,.01,"DT")="2871119"
^DD(693.6,"B","NAME",.01)=""
^DD(693.6,"GL",0,1,.01)=""
^DD(693.6,"IX",.01)=""
^DD(693.6,"RQ",.01)=""
^DD(694,0)="FIELD^^2005^81"
^DD(694,0,"DDA")="N"
^DD(694,0,"DT")="2941026"
^DD(694,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(694,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(697.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(697.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(694,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(694,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(694,0,"IX","AC",694,.01)=""
^DD(694,0,"IX","AD",694,1)=""
^DD(694,0,"IX","APCE",694,900)=""
^DD(694,0,"IX","B",694,.01)=""
^DD(694,0,"IX","C",694,1)=""
^DD(694,0,"IX","ES",694,1506)=""
^DD(694,0,"NM","HEMATOLOGY")=""
^DD(694,0,"PT",123,11)=""
^DD(694,0,"PT",123.03,.01)=""
^DD(694,0,"VR")="2.3"
^DD(694,0,"VRPK")="MEDICINE"
^DD(694,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(694,.01,1,0)="^.1"
^DD(694,.01,1,1,0)="694^B"
^DD(694,.01,1,1,1)="S ^MCAR(694,""B"",$E(X,1,30),DA)="""""
^DD(694,.01,1,1,2)="K ^MCAR(694,""B"",$E(X,1,30),DA)"
^DD(694,.01,1,2,0)="694^AC^MUMPS"
^DD(694,.01,1,2,1)="S MCARCDIE=""^MCAR(694,"" D CHGDTE1^MCARPROC"
^DD(694,.01,1,2,2)="S MCARCDIE=""^MCAR(694,"" D CHGDTE^MCARPROC"
^DD(694,.01,1,2,"%D",0)="^^3^3^2920421^"
^DD(694,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(694,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent hematology procedure for"
^DD(694,.01,1,2,"%D",3,0)="this patient."
^DD(694,.01,3)=""
^DD(694,.01,21,0)="^^1^1^2890928^"
^DD(694,.01,21,1,0)="This field identifies the time and date of entry."
^DD(694,.01,"DT")="2880815"
^DD(694,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(694,1,1,0)="^.1"
^DD(694,1,1,1,0)="694^C"
^DD(694,1,1,1,1)="S ^MCAR(694,""C"",$E(X,1,30),DA)="""""
^DD(694,1,1,1,2)="K ^MCAR(694,""C"",$E(X,1,30),DA)"
^DD(694,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(694,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(694,1,1,2,0)="694^AD^MUMPS"
^DD(694,1,1,2,1)="S MCARCDIE=""^MCAR(694,"" D CHGPAT^MCARPROC"
^DD(694,1,1,2,2)="S MCARCDIE=""^MCAR(694,"" D KILL^MCARPROC"
^DD(694,1,1,2,"%D",0)="^^3^3^2920421^"
^DD(694,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AD' index of the MEDICAL"
^DD(694,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent hematology procedure for"
^DD(694,1,1,2,"%D",3,0)="this patient."
^DD(694,1,3)="Enter Date/Time (e.g. 8/9/88@4) or Patient Name"
^DD(694,1,21,0)="^^1^1^2890928^"
^DD(694,1,21,1,0)="This field identifies the medical patient name."
^DD(694,1,"DT")="2880818"
^DD(694,1.5,0)="SUMMARY^RS^N:Normal;A:Abnormal;T:Technically unsatisfactory;ND:Non-Diagnostic;^.2;1^Q"
^DD(694,1.5,3)="Enter the summary code:  N, A, T, or ND."
^DD(694,1.5,21,0)="^^1^1^2910429^"
^DD(694,1.5,21,1,0)="This field summarizes the results of this procedure."
^DD(694,1.5,"DT")="2890308"
^DD(694,2,0)="PROCEDURE^R*P697.2'X^MCAR(697.2,^0;3^S DIC(""S"")=""I $D(^MCAR(697.2,""""D"""",""""H"""",+Y))!$D(^MCAR(697.2,""""D"""",""""HI"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694,2,3)=""
^DD(694,2,12)="Choose Hematology procedure acronym"
^DD(694,2,12.1)="S DIC(""S"")=""I $D(^MCAR(697.2,""""D"""",""""H"""",+Y))!$D(^MCAR(697.2,""""D"""",""""HI"""",+Y))"""
^DD(694,2,21,0)="^^1^1^2970710^^^^"
^DD(694,2,21,1,0)="This field identifies a pointer to the procedure location file."
^DD(694,2,"DT")="2970710"
^DD(694,2.5,0)="ANATOMIC SITE^R*P697'X^MCAR(697,^0;5^S DIC(""S"")=""S FF=$P($G(^MCAR(697.2,+$P($G(^MCAR(694,DA,0)),U,3),0)),U) I $D(^MCAR(697,""""D"""",FF,+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694,2.5,3)="Enter Anatomic site of Hematology procedure"
^DD(694,2.5,4)=""
^DD(694,2.5,12)="Anatomic site of Hematology procedure"
^DD(694,2.5,12.1)="S DIC(""S"")=""S FF=$P($G(^MCAR(697.2,+$P($G(^MCAR(694,DA,0)),U,3),0)),U) I $D(^MCAR(697,""""D"""",FF,+Y))"""
^DD(694,2.5,21,0)="^^1^1^2941026^^^^"
^DD(694,2.5,21,1,0)="This field identifies a pointer to the anatomy file."
^DD(694,2.5,"DT")="2941028"
^DD(694,3,0)="WARD/CLINIC^P44'^SC(^0;4^Q"
^DD(694,3,3)=""
^DD(694,3,21,0)="^^1^1^2910913^^"
^DD(694,3,21,1,0)="This field identifies the in-house location of the patient."
^DD(694,3,"DT")="2910913"
^DD(694,4.1,0)="BIOPSY COMMENTS^F^^0;6^K:$L(X)>100!($L(X)<3) X"
^DD(694,4.1,3)="ANSWER MUST BE 3-100 CHARACTERS IN LENGTH"
^DD(694,4.1,21,0)="^^1^1^2890929^^"
^DD(694,4.1,21,1,0)="This field identifies a free text field, enter any pertinent biopsy comments."
^DD(694,5,0)="ORIGINAL CONSULT DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(694,5,3)="Enter the date and time of the original consult."
^DD(694,5,21,0)="2^^1^1^2890929^^^"
^DD(694,5,21,1,0)="This field identifies the date of consult."
^DD(694,6.5,0)="PROVISIONAL DX REMARKS^F^^1;2^K:$L(X)>120!($L(X)<1) X"
^DD(694,6.5,3)="ANSWER MUST BE 1-120 CHARACTERS IN LENGTH"
^DD(694,6.5,21,0)="^^1^1^2890929^"
^DD(694,6.5,21,1,0)="This field identifies a free text field, enter provisional DX remarks."
^DD(694,6.5,"DT")="2881214"
^DD(694,7,0)="NO. CELLS COUNTED^RNJ3,0X^^4;13^K:'((X=100)!(X=200)!(X=300)) X"
^DD(694,7,3)="Enter 100, 200 or 300"
^DD(694,7,21,0)="^^1^1^2890929^^^"
^DD(694,7,21,1,0)="This field identifies the number of cells counted."
^DD(694,7,"DT")="2890104"
^DD(694,8,0)="CELLULARITY^S^N:NORMAL;I:INCREASED;D:DECREASED;^1;3^Q"
^DD(694,8,3)=""
^DD(694,8,21,0)="^^1^1^2900717^"
^DD(694,8,21,1,0)="One of a set of descriptors of the occurrance of cellularity."
^DD(694,8.1,0)="CELLULARITY MODIFIER^S^SL:SLIGHTLY;MO:MODERATELY;SE:SEVERELY;MA:MARKEDLY;^1;7^Q"
^DD(694,8.1,3)="Enter a code for the degree of cellularity:  SL, MO, SE, or MA."
^DD(694,8.1,21,0)="^^1^1^2900717^"
^DD(694,8.1,21,1,0)="One of a set of adjectives used to further define cellularity."
^DD(694,8.1,"DT")="2920423"
^DD(694,9,0)="M:E RATIO^FX^^1;4^S:X["" "" X=$P(X,"" "",1)_"":""_$P(X,"" "",2) K:$L(X)>6!($L(X)<3)!'(X?1.2N1"":""1.2N) X"
^DD(694,9,3)="Enter a number (1-99), followed by a space or a colon, followed by a number (1-99)  e.g. 1 2  or  1:2"
^DD(694,9,21,0)="^^1^1^2910429^"
^DD(694,9,21,1,0)="This field identifies the M:E ratio."
^DD(694,9,"DT")="2881206"
^DD(694,9.5,0)="IRON STORES^S^0:0;1:1+;2:2+;3:3+;4:4+;^1;6^Q"
^DD(694,9.5,3)="Enter a code from 0-4."
^DD(694,9.5,21,0)="^^1^1^2900717^"
^DD(694,9.5,21,1,0)="From set of positive values."
^DD(694,10,0)="MEGAKARYOCYTES^S^N:NORMAL;I:INCREASED;R:REDUCED;^1;5^Q"
^DD(694,10,3)="Enter a code for the megakaryocyte count:  (N)ormal, (I)ncreased, or (R)educed."
^DD(694,10,21,0)="^^1^1^2910429^"
^DD(694,10,21,1,0)="This field identifies the megakaryocyte count."
^DD(694,10,"DT")="2881118"
^DD(694,10.1,0)="MEGAKARYOCYTES MODIFIER^S^SL:SLIGHTLY;MO:MODERATELY;SE:SEVERLY;MA:MARKEDLY;^1;8^Q"
^DD(694,10.1,3)="Enter a code clarifying the megakaryocyte count behavior:  SL, MO, SE, or MA."
^DD(694,10.1,21,0)="^^1^1^2910429^"
^DD(694,10.1,21,1,0)="This field identifies the megakaryocyte count modifier."
^DD(694,10.1,"DT")="2890308"
^DD(694,12,0)="DIFF(Y/N)^RS^Y:YES;N:NO;^6;1^Q"
^DD(694,12,3)="Enter (Y)es or (N)o."
^DD(694,12,21,0)="^^1^1^2900717^"
^DD(694,12,21,1,0)="This field identifies no."
^DD(694,12,"DT")="2881205"
^DD(694,13,0)="NEUTROPHILS^NJ5,1^^4;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,13,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,13,21,0)="^^1^1^2910429^^"
^DD(694,13,21,1,0)="This field identifies the neutrophil description."
^DD(694,13,"DT")="2881214"
^DD(694,14,0)="BANDS^NJ5,1^^4;12^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,14,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,14,21,0)="^^1^1^2900717^"
^DD(694,14,21,1,0)="The number of bands found."
^DD(694,14,"DT")="2881214"
^DD(694,15,0)="METAMYELOCYTES^NJ5,1^^4;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,15,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,15,21,0)="^^1^1^2910429^"
^DD(694,15,21,1,0)="This field identifies the metamyelocyte count field."
^DD(694,15,"DT")="2881214"
^DD(694,16,0)="MYELOCYTES^NJ5,1^^4;15^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,16,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,16,21,0)="^^1^1^2910429^"
^DD(694,16,21,1,0)="This field identifies the myelocyte count."
^DD(694,16,"DT")="2881214"
^DD(694,17,0)="PROMYELOCYTES^NJ5,1^^4;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,17,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,17,21,0)="^^1^1^2910429^"
^DD(694,17,21,1,0)="This field identifies the promyelocyte count field."
^DD(694,17,"DT")="2881214"
^DD(694,18,0)="MYELOBLASTS^NJ5,1^^4;17^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,18,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,18,21,0)="^^1^1^2910429^"
^DD(694,18,21,1,0)="This field identifies the myeloblast count field."
^DD(694,18,"DT")="2881214"
^DD(694,19,0)="EOSINOPHILS^NJ5,1^^4;18^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,19,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,19,21,0)="^^1^1^2900717^"
^DD(694,19,21,1,0)="Number of eosinophils found."
^DD(694,19,"DT")="2881214"
^DD(694,20,0)="BASOPHILS^NJ5,1^^4;19^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,20,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,20,21,0)="^^1^1^2900717^"
^DD(694,20,21,1,0)="The number of basophils found."
^DD(694,20,"DT")="2881214"
^DD(694,21,0)="LYMPHOCYTES^NJ5,1^^4;20^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,21,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,21,21,0)="^^1^1^2900717^"
^DD(694,21,21,1,0)="The number of lymphocytes found."
^DD(694,21,"DT")="2881214"
^DD(694,22,0)="ORTHOCHROMATIC NORMOBLASTS^NJ5,1^^4;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,22,3)="Type a Number between 0 and 100, 1 Decimal Digit allowed"
^DD(694,22,21,0)="^^1^1^2910429^"
^DD(694,22,21,1,0)="This field identifies the normoblast count filed."
^DD(694,22,"DT")="2881205"
^DD(694,23,0)="POLYCHROMATIC NORMOBLASTS^NJ5,1^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,23,3)="Type a Number between 0 and 100, 1 Decimal Digit allowed"
^DD(694,23,21,0)="^^1^1^2910429^"
^DD(694,23,21,1,0)="This field identifies the polychromatic normoblast count field."
^DD(694,23,"DT")="2881205"
^DD(694,24,0)="BASOPHILIC NORMOBLASTS^NJ5,1^^4;3^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,24,3)="Type a Number between 0 and 100, 1 Decimal Digit allowed"
^DD(694,24,21,0)="^^1^1^2900717^"
^DD(694,24,21,1,0)="The number of basophilic normoblasts found."
^DD(694,24,"DT")="2881205"
^DD(694,25,0)="PRONORMOBLASTS^NJ5,1^^4;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,25,3)="Type a Number between 0 and 100, 1 Decimal Digit allowed"
^DD(694,25,21,0)="^^1^1^2910429^"
^DD(694,25,21,1,0)="This field identifies the pronormoblast count field."
^DD(694,25,"DT")="2881205"
^DD(694,26,0)="LYMPHOBLASTS^NJ5,1^^4;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,26,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694,26,21,0)="^^1^1^2900717^"
^DD(694,26,21,1,0)="Number of lymphoblasts found."
^DD(694,26,"DT")="2881205"
^DD(694,27,0)="PLASMA CELLS^NJ5,1^^4;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,27,3)="Type a Number between 0 and 100, 1 Decimal Digit allowed"
^DD(694,27,21,0)="^^1^1^2910429^"
^DD(694,27,21,1,0)="This field identifies the plasma cell count field."
^DD(694,27,"DT")="2881205"
^DD(694,28,0)="MONOCYTES^NJ5,1^^4;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,28,3)="Type a Number between 0 and 100, 1 Decimal Digit allowed"
^DD(694,28,21,0)="^^1^1^2910429^"
^DD(694,28,21,1,0)="This field identifies the monocyte count field."
^DD(694,28,"DT")="2881205"
^DD(694,29,0)="HISTIOCYTES^NJ5,1^^4;8^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694,29,3)="Type a Number between 0 and 100, 1 Decimal Digit allowed"
^DD(694,29,21,0)="^^1^1^2900717^"
^DD(694,29,21,1,0)="Number of histiocytes found."
^DD(694,29,"DT")="2881205"
^DD(694,30,0)="OTHER CELL TYPE COUNT^NJ3,0^^4;9^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(694,30,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(694,30,21,0)="^^1^1^2910429^"
^DD(694,30,21,1,0)="This field identifies the other cell type count field."
^DD(694,30,"DT")="2881205"
^DD(694,31,0)="OTHER CELL TYPE^F^^4;10^K:$L(X)>50!($L(X)<2) X"
^DD(694,31,3)="Enter other cell type observed (2-50 characters)"
^DD(694,31,21,0)="^^1^1^2910429^"
^DD(694,31,21,1,0)="This field identifies the other cell type descriptor."
^DD(694,31,"DT")="2880825"
^DD(694,34,0)="DATE PERFORMED^D^^0;8^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(694,34,3)="Enter the date and time on which this procedure was performed."
^DD(694,34,21,0)="^^1^1^2900717^"
^DD(694,34,21,1,0)="Documentation of procedure date."
^DD(694,34,"DT")="2890103"
^DD(694,35,0)="FINAL DIAGNOSIS^694.035PA^^8;0"
^DD(694,35,21,0)="^^1^1^2940912^^^"
^DD(694,35,21,1,0)="Enter Medical diagnosis from the medical diagnosis/ICD codes file."
^DD(694,36,0)="DECALCIFICATION OF SPECIMEN^S^Y:YES;N:NO;^9;1^Q"
^DD(694,36,3)="ENTER 'Y' IF THE SPECIMEN HAS BEEN SUBMITTED FOR DECALCIFICATION"
^DD(694,36,21,0)="^^1^1^2900717^"
^DD(694,36,21,1,0)="Did decalcification of the specimen occur?"
^DD(694,36,"DT")="2890104"
^DD(694,37,0)="SPECIMEN SUBMITTED FOR PLASTIC^S^Y:YES;N:NO;^9;2^Q"
^DD(694,37,3)="ENTER 'Y' IF THE SPECIMEN IS FIXED AND SUBMITTED FOR PROCESSING IN PLASTIC"
^DD(694,37,21,0)="^^1^1^2910429^"
^DD(694,37,21,1,0)="This field identifies the specimen submitted for plastic field."
^DD(694,37,"DT")="2890104"
^DD(694,38,0)="PROVISIONAL DX^694.038PA^^10;0"
^DD(694,38,21,0)="^^1^1^2941028^^^^"
^DD(694,38,21,1,0)="This field identifies the provisional diagnosis field."
^DD(694,39,0)="RELEASE REPORT^S^Y:YES;N:NO;^0;9^Q"
^DD(694,39,3)="Enter (Y)es or (N)o."
^DD(694,39,21,0)="^^1^1^2910429^"
^DD(694,39,21,1,0)="This field identifies the release report field."
^DD(694,39,"DT")="2890104"
^DD(694,40,0)="MICROSCOPIC DESCRIPTION^694.01PA^^5;0"
^DD(694,40,21,0)="^^1^1^2920611^^^"
^DD(694,40,21,1,0)="This field identifies the microscopic description field."
^DD(694,41,0)="FINAL DIAGNOSIS REMARKS^694.041^^3;0"
^DD(694,41,21,0)="^^1^1^2930604^^"
^DD(694,41,21,1,0)="Free text field for diagnostic remarks."
^DD(694,43,0)="FIXATIVE^S^F:Formalin;B:B-5;Z:Zenker's;C:Carnoy's;^6;2^Q"
^DD(694,43,3)="Enter the fixative for Bone Marrow Biopsies"
^DD(694,43,21,0)="^^1^1^2890104^^"
^DD(694,43,21,1,0)="This field identifies for BMB only"
^DD(694,43,"DT")="2890104"
^DD(694,44,0)="NUMBER OF PIECES^NJ1,0^^6;3^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(694,44,3)="Type a Number between 1 and 5, 0 Decimal Digits"
^DD(694,44,21,0)="^^1^1^2881205^"
^DD(694,44,21,1,0)="This field identifies for BMB only"
^DD(694,44,"DT")="2881205"
^DD(694,45,0)="PIECE 1^NJ2,0^^6;4^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(694,45,3)="Enter whole millimeter length of piece 1 (1-30)"
^DD(694,45,21,0)="^^1^1^2910429^"
^DD(694,45,21,1,0)="This field is for BMB only."
^DD(694,45,"DT")="2881205"
^DD(694,46,0)="PIECE 2^NJ2,0^^6;5^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(694,46,3)="Enter whole millimeter length of piece 2 (1-30)"
^DD(694,46,21,0)="^^1^1^2881205^"
^DD(694,46,21,1,0)="This field is for BMB only"
^DD(694,46,"DT")="2881205"
^DD(694,47,0)="PIECE 3^NJ2,0^^6;6^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(694,47,3)="Enter whole millimeter length of piece 3 (1-30)"
^DD(694,47,21,0)="^^1^1^2881205^"
^DD(694,47,21,1,0)="This field is for BMB only"
^DD(694,47,"DT")="2881205"
^DD(694,48,0)="PIECE 4^NJ2,0^^6;7^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(694,48,3)="Enter whole millimeter length of piece 4 (1-30)"
^DD(694,48,21,0)="^^1^1^2881205^"
^DD(694,48,21,1,0)="This field is for BMB only"
^DD(694,48,"DT")="2881205"
^DD(694,49,0)="PIECE 5^NJ2,0^^6;8^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(694,49,3)="Enter whole millimeter length of piece 5 (1-30)"
^DD(694,49,21,0)="^^1^1^2881205^"
^DD(694,49,21,1,0)="This field is for BMB only"
^DD(694,49,"DT")="2881205"
^DD(694,50,0)="PERFORMED BY^*P200'^VA(200,^1;11^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694,50,3)="Enter the name of the provider who performed this procedure."
^DD(694,50,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(694,50,21,0)="^^1^1^2910429^"
^DD(694,50,21,1,0)="This field identifies the health care provider who performed this procedure."
^DD(694,50,"DT")="2941025"
^DD(694,51,0)="APPROVED BY^*P200'^VA(200,^1;9^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694,51,1,0)="^.1"
^DD(694,51,1,1,0)="^^TRIGGER^694^701"
^DD(694,51,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(694,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(694,51,1,1,1.4)"
^DD(694,51,1,1,1.4)="S DIH=$S($D(^MCAR(694,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=694,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(694,51,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(694,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(694,51,1,1,2.1) X ^DD(694,51,1,1,2.4)"
^DD(694,51,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(694,D0,1)):^(1),1:"""") S X=$P(Y(1),U,9),X=X"
^DD(694,51,1,1,2.4)="S DIH=$S($D(^MCAR(694,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=694,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(694,51,1,1,"%D",0)="^^1^1^2960423^"
^DD(694,51,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(694,51,1,1,"CREATE VALUE")="INTERNAL(#51)"
^DD(694,51,1,1,"DELETE VALUE")="INTERNAL(#51)"
^DD(694,51,1,1,"DT")="2960423"
^DD(694,51,1,1,"FIELD")="#701"
^DD(694,51,3)="Enter the name of the provider who approved the results."
^DD(694,51,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(694,51,21,0)="^^1^1^2900717^"
^DD(694,51,21,1,0)="This field identifies the health care provider who approved the results."
^DD(694,51,"DT")="2960423"
^DD(694,52,0)="APPROVAL DATE^D^^1;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(694,52,3)="Enter the date on which the results were approved."
^DD(694,52,21,0)="^^1^1^2900717^"
^DD(694,52,21,1,0)="This field identifies the date on which the results were approved."
^DD(694,52,"DT")="2881214"
^DD(694,54,0)="MICRO DESCRIPTION REMARKS^694.054^^7;0"
^DD(694,54,21,0)="^^1^1^2930611^^^^"
^DD(694,54,21,1,0)="This field identifies the micro description remark field."
^DD(694,54,"DT")="2881209"
^DD(694,55,0)="COMPLICATIONS^694.055PA^^2;0"
^DD(694,55,12)="CHOOSE HEMATOLOGY COMPLICATION"
^DD(694,55,12.1)="S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",""""H"""",+Y))"""
^DD(694,55,21,0)="^^1^1^2900717^"
^DD(694,55,21,1,0)="Free text field whose purpose is to document procedural difficulties."
^DD(694,56,0)="PERIPHERAL BLOOD SMEAR^F^^11;1^K:$L(X)>120!($L(X)<1) X"
^DD(694,56,3)="Answer must be 1-120 characters in length."
^DD(694,56,21,0)="^^1^1^2910429^"
^DD(694,56,21,1,0)="This field documents the results of the peripheral smear."
^DD(694,56,"DT")="2890627"
^DD(694,57,0)="INDICATION^694.057P^^12;0"
^DD(694,57,12)="CHOOSE HEMATOLOGY INDICATION"
^DD(694,57,12.1)="S DIC(""S"")=""I $D(^MCAR(694.1,""""C"""",""""H"""",+Y))"""
^DD(694,57,21,0)="^^1^1^2900717^"
^DD(694,57,21,1,0)="Entry from the indication file."
^DD(694,58,0)="OTHER INDICATION^694.058^^13;0"
^DD(694,58,21,0)="^^1^1^2910429^"
^DD(694,58,21,1,0)="This field identifies the other indication field."
^DD(694,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(694,600,3)="Answer must be 1-79 characters in length."
^DD(694,600,21,0)="^^1^1^2920916^^^^"
^DD(694,600,21,1,0)="This 1-79 character field is produced on the summary of patient procedures."
^DD(694,600,"DT")="2920916"
^DD(694,700,0)="ICD DIAGNOSIS^694.02P^^ICD;0"
^DD(694,700,21,0)="^^3^3^2920330^^^^"
^DD(694,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(694,700,21,2,0)="also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used"
^DD(694,700,21,3,0)="in the future."
^DD(694,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694,701,5,1,0)="694^51^1"
^DD(694,701,9)="^"
^DD(694,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(694,701,21,0)="^^3^3^2920109^"
^DD(694,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(694,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(694,701,21,3,0)="use in transferring data to the PCC."
^DD(694,701,"DT")="2941025"
^DD(694,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(694,900,1,0)="^.1"
^DD(694,900,1,1,0)="694^APCE"
^DD(694,900,1,1,1)="S ^MCAR(694,""APCE"",$E(X,1,30),DA)="""""
^DD(694,900,1,1,2)="K ^MCAR(694,""APCE"",$E(X,1,30),DA)"
^DD(694,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(694,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(694,900,1,1,"DT")="2960517"
^DD(694,900,21,0)="^^2^2^2920728^^^"
^DD(694,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(694,900,21,2,0)="Visit File for use by Queryman."
^DD(694,900,"DT")="2960517"
^DD(694,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(694,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(694,1000,21,0)="^^3^3^2910708^"
^DD(694,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(694,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(694,1000,21,3,0)="Medicine package."
^DD(694,1000,"DT")="2910708"
^DD(694,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(694,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(694,1001,21,0)="^^3^3^2910816"
^DD(694,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(694,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(694,1001,21,3,0)="results are entered in the Medicine package."
^DD(694,1001,"DT")="2910816"
^DD(694,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(694,1500,"DT")="2930212"
^DD(694,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>40!($L(X)<1) X"
^DD(694,1501,3)="Answer must be 1-40 characters in length."
^DD(694,1501,"DT")="2930212"
^DD(694,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(694,1502,"DT")="2930212"
^DD(694,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(694,1503,"DT")="2930212"
^DD(694,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>40!($L(X)<1) X"
^DD(694,1504,3)="Answer must be 1-40 characters in length."
^DD(694,1504,"DT")="2930212"
^DD(694,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(694,1505,"DT")="2930212"
^DD(694,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASE ON-LINE VERIFIED;ROV:RELEASE OFF-LINE VERIFIED;RNV:RELEASE NOT VERIFIED;S:SUPERSEDED;SRV:SUPERSEDING RELEASE ON-LINE VERIFIED;SROV:SUPERSEDING RELEASE OFF-LINE VERIFIED;^ES;7^Q"
^DD(694,1506,1,0)="^.1"
^DD(694,1506,1,1,0)="694^ES"
^DD(694,1506,1,1,1)="S ^MCAR(694,""ES"",$E(X,1,30),DA)="""""
^DD(694,1506,1,1,2)="K ^MCAR(694,""ES"",$E(X,1,30),DA)"
^DD(694,1506,1,1,"%D",0)="^^1^1^2930903^"
^DD(694,1506,1,1,"%D",1,0)="This cross-reference allows look-up by release status."
^DD(694,1506,1,1,"DT")="2930212"
^DD(694,1506,"DT")="2930304"
^DD(694,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(694,1507,"DT")="2930212"
^DD(694,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(694,1508,"DT")="2930212"
^DD(694,1509,0)="SUPERSEDED^NJ9,0^^ES;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694,1509,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(694,1509,"DT")="2930212"
^DD(694,1510,0)="SUPERSEDED BY^NJ9,0^^ES;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694,1510,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(694,1510,"DT")="2930212"
^DD(694,1511,0)="MARK FOR DELETION^S^1:MARK FOR DELETION;^ES;12^Q"
^DD(694,1511,"DT")="2930212"
^DD(694,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(694,1512,"DT")="2930212"
^DD(694,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(694,1513,3)="Answer must be 1-40 characters in length."
^DD(694,1513,"DT")="2930212"
^DD(694,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(694,1514,"DT")="2930212"
^DD(694,2005,0)="IMAGE^694.02005P^^2005;0"
^DD(694,2005,21,0)="^^1^1^2910415^"
^DD(694,2005,21,1,0)="This field points to an object in the Image File."
^DD(694,"B","ANATOMIC SITE",2.5)=""
^DD(694,"B","APPROVAL DATE",52)=""
^DD(694,"B","APPROVED BY",51)=""
^DD(694,"B","BANDS",14)=""
^DD(694,"B","BASOPHILIC NORMOBLASTS",24)=""
^DD(694,"B","BASOPHILS",20)=""
^DD(694,"B","BIOPSY COMMENTS",4.1)=""
^DD(694,"B","CELLULARITY",8)=""
^DD(694,"B","CELLULARITY MODIFIER",8.1)=""
^DD(694,"B","COMPLICATIONS",55)=""
^DD(694,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(694,"B","CREATION DATE",1514)=""
^DD(694,"B","DATE OF RELEASED",1507)=""
^DD(694,"B","DATE OF VERIFIED",1508)=""
^DD(694,"B","DATE PERFORMED",34)=""
^DD(694,"B","DATE/TIME",.01)=""
^DD(694,"B","DECALCIFICATION OF SPECIMEN",36)=""
^DD(694,"B","DELETER DUZ",1512)=""
^DD(694,"B","DIFF(Y/N)",12)=""
^DD(694,"B","ENTERING DATE",1502)=""
^DD(694,"B","ENTERING DUZ",1500)=""
^DD(694,"B","EOSINOPHILS",19)=""
^DD(694,"B","FINAL DIAGNOSIS",35)=""
^DD(694,"B","FINAL DIAGNOSIS REMARKS",41)=""
^DD(694,"B","FIXATIVE",43)=""
^DD(694,"B","GMRCO",1001)=""
^DD(694,"B","HISTIOCYTES",29)=""
^DD(694,"B","ICD DIAGNOSIS",700)=""
^DD(694,"B","IMAGE",2005)=""
^DD(694,"B","INDICATION",57)=""
^DD(694,"B","IRON STORES",9.5)=""
^DD(694,"B","LYMPHOBLASTS",26)=""
^DD(694,"B","LYMPHOCYTES",21)=""
^DD(694,"B","M:E RATIO",9)=""
^DD(694,"B","MARK FOR DELETION",1511)=""
^DD(694,"B","MEDICAL PATIENT",1)=""
^DD(694,"B","MEGAKARYOCYTES",10)=""
^DD(694,"B","MEGAKARYOCYTES MODIFIER",10.1)=""
^DD(694,"B","METAMYELOCYTES",15)=""
^DD(694,"B","MICRO DESCRIPTION REMARKS",54)=""
^DD(694,"B","MICROSCOPIC DESCRIPTION",40)=""
^DD(694,"B","MONOCYTES",28)=""
^DD(694,"B","MYELOBLASTS",18)=""
^DD(694,"B","MYELOCYTES",16)=""
^DD(694,"B","NEUTROPHILS",13)=""
^DD(694,"B","NO. CELLS COUNTED",7)=""
^DD(694,"B","NUMBER OF PIECES",44)=""
^DD(694,"B","ORIFN",1000)=""
^DD(694,"B","ORIGINAL CONSULT DATE",5)=""
^DD(694,"B","ORTHOCHROMATIC NORMOBLASTS",22)=""
^DD(694,"B","OTHER CELL TYPE",31)=""
^DD(694,"B","OTHER CELL TYPE COUNT",30)=""
^DD(694,"B","OTHER INDICATION",58)=""
^DD(694,"B","PCC POINTER",900)=""
^DD(694,"B","PERFORMED BY",50)=""
^DD(694,"B","PERIPHERAL BLOOD SMEAR",56)=""
^DD(694,"B","PIECE 1",45)=""
^DD(694,"B","PIECE 2",46)=""
^DD(694,"B","PIECE 3",47)=""
^DD(694,"B","PIECE 4",48)=""
^DD(694,"B","PIECE 5",49)=""
^DD(694,"B","PLASMA CELLS",27)=""
^DD(694,"B","POLYCHROMATIC NORMOBLASTS",23)=""
^DD(694,"B","PRIMARY PROVIDER",701)=""
^DD(694,"B","PROCEDURE",2)=""
^DD(694,"B","PROCEDURE SUMMARY",600)=""
^DD(694,"B","PROMYELOCYTES",17)=""
^DD(694,"B","PRONORMOBLASTS",25)=""
^DD(694,"B","PROVISIONAL DX",38)=""
^DD(694,"B","PROVISIONAL DX REMARKS",6.5)=""
^DD(694,"B","RELEASE CODE",1506)=""
^DD(694,"B","RELEASE REPORT",39)=""
^DD(694,"B","SIGNER VALIDATION CODE",1504)=""
^DD(694,"B","SPECIMEN SUBMITTED FOR PLASTIC",37)=""
^DD(694,"B","SUMMARY",1.5)=""
^DD(694,"B","SUPERSEDED",1509)=""
^DD(694,"B","SUPERSEDED BY",1510)=""
^DD(694,"B","SUPERSEDED DATE",1513)=""
^DD(694,"B","VERIFIER DATE",1505)=""
^DD(694,"B","VERIFYING DUZ",1503)=""
^DD(694,"B","WARD/CLINIC",3)=""
^DD(694,"GL",0,1,.01)=""
^DD(694,"GL",0,2,1)=""
^DD(694,"GL",0,3,2)=""
^DD(694,"GL",0,4,3)=""
^DD(694,"GL",0,5,2.5)=""
^DD(694,"GL",0,6,4.1)=""
^DD(694,"GL",0,7,5)=""
^DD(694,"GL",0,8,34)=""
^DD(694,"GL",0,9,39)=""
^DD(694,"GL",.2,1,1.5)=""
^DD(694,"GL",.2,2,600)=""
^DD(694,"GL",1,2,6.5)=""
^DD(694,"GL",1,3,8)=""
^DD(694,"GL",1,4,9)=""
^DD(694,"GL",1,5,10)=""
^DD(694,"GL",1,6,9.5)=""
^DD(694,"GL",1,7,8.1)=""
^DD(694,"GL",1,8,10.1)=""
^DD(694,"GL",1,9,51)=""
^DD(694,"GL",1,10,52)=""
^DD(694,"GL",1,11,50)=""
^DD(694,"GL",2,0,55)=""
^DD(694,"GL",3,0,41)=""
^DD(694,"GL",4,1,22)=""
^DD(694,"GL",4,2,23)=""
^DD(694,"GL",4,3,24)=""
^DD(694,"GL",4,4,25)=""
^DD(694,"GL",4,5,26)=""
^DD(694,"GL",4,6,27)=""
^DD(694,"GL",4,7,28)=""
^DD(694,"GL",4,8,29)=""
^DD(694,"GL",4,9,30)=""
^DD(694,"GL",4,10,31)=""
^DD(694,"GL",4,11,13)=""
^DD(694,"GL",4,12,14)=""
^DD(694,"GL",4,13,7)=""
^DD(694,"GL",4,14,15)=""
^DD(694,"GL",4,15,16)=""
^DD(694,"GL",4,16,17)=""
^DD(694,"GL",4,17,18)=""
^DD(694,"GL",4,18,19)=""
^DD(694,"GL",4,19,20)=""
^DD(694,"GL",4,20,21)=""
^DD(694,"GL",5,0,40)=""
^DD(694,"GL",6,1,12)=""
^DD(694,"GL",6,2,43)=""
^DD(694,"GL",6,3,44)=""
^DD(694,"GL",6,4,45)=""
^DD(694,"GL",6,5,46)=""
^DD(694,"GL",6,6,47)=""
^DD(694,"GL",6,7,48)=""
^DD(694,"GL",6,8,49)=""
^DD(694,"GL",7,0,54)=""
^DD(694,"GL",8,0,35)=""
^DD(694,"GL",9,1,36)=""
^DD(694,"GL",9,2,37)=""
^DD(694,"GL",10,0,38)=""
^DD(694,"GL",11,1,56)=""
^DD(694,"GL",12,0,57)=""
^DD(694,"GL",13,0,58)=""
^DD(694,"GL",2005,0,2005)=""
^DD(694,"GL","ES",1,1500)=""
^DD(694,"GL","ES",2,1501)=""
^DD(694,"GL","ES",3,1502)=""
^DD(694,"GL","ES",4,1503)=""
^DD(694,"GL","ES",5,1504)=""
^DD(694,"GL","ES",6,1505)=""
^DD(694,"GL","ES",7,1506)=""
^DD(694,"GL","ES",8,1507)=""
^DD(694,"GL","ES",9,1508)=""
^DD(694,"GL","ES",10,1509)=""
^DD(694,"GL","ES",11,1510)=""
^DD(694,"GL","ES",12,1511)=""
^DD(694,"GL","ES",13,1512)=""
^DD(694,"GL","ES",14,1513)=""
^DD(694,"GL","ES",15,1514)=""
^DD(694,"GL","ICD",0,700)=""
^DD(694,"GL","OR",1,1000)=""
^DD(694,"GL","OR",2,1001)=""
^DD(694,"GL","PCC",1,900)=""
^DD(694,"GL","PROV",1,701)=""
^DD(694,"IX",.01)=""
^DD(694,"IX",1)=""
^DD(694,"IX",51)=""
^DD(694,"IX",900)=""
^DD(694,"IX",1506)=""
^DD(694,"RQ",.01)=""
^DD(694,"RQ",1)=""
^DD(694,"RQ",1.5)=""
^DD(694,"RQ",2)=""
^DD(694,"RQ",2.5)=""
^DD(694,"RQ",7)=""
^DD(694,"RQ",12)=""
^DD(694,"RQ",600)=""
^DD(694,"SB",694.01,40)=""
^DD(694,"SB",694.02,700)=""
^DD(694,"SB",694.02005,2005)=""
^DD(694,"SB",694.035,35)=""
^DD(694,"SB",694.038,38)=""
^DD(694,"SB",694.041,41)=""
^DD(694,"SB",694.054,54)=""
^DD(694,"SB",694.055,55)=""
^DD(694,"SB",694.057,57)=""
^DD(694,"SB",694.058,58)=""
^DD(694.01,0)="MICROSCOPIC DESCRIPTION SUB-FIELD^^.01^1"
^DD(694.01,0,"IX","B",694.01,.01)=""
^DD(694.01,0,"NM","MICROSCOPIC DESCRIPTION")=""
^DD(694.01,0,"UP")="694"
^DD(694.01,.01,0)="MICROSCOPIC DESCRIPTION^M*P693'^MCAR(693,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""H"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694.01,.01,1,0)="^.1"
^DD(694.01,.01,1,1,0)="694.01^B"
^DD(694.01,.01,1,1,1)="S ^MCAR(694,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(694.01,.01,1,1,2)="K ^MCAR(694,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(694.01,.01,3)="Enter synonym or first few letters of description.  If not found in list press return and enter Microscopic Description in following free text field"
^DD(694.01,.01,12)="Screens Hematology entries from Medical Description File"
^DD(694.01,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""H"""""""
^DD(694.01,.01,21,0)="^^1^1^2920611^^"
^DD(694.01,.01,21,1,0)="This field identifies the microscopic description field."
^DD(694.01,.01,"DT")="2881129"
^DD(694.01,"B","MICROSCOPIC DESCRIPTION",.01)=""
^DD(694.01,"GL",0,1,.01)=""
^DD(694.01,"IX",.01)=""
^DD(694.02,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(694.02,0,"DT")="2930310"
^DD(694.02,0,"IX","B",694.02,.01)=""
^DD(694.02,0,"NM","ICD DIAGNOSIS")=""
^DD(694.02,0,"UP")="694"
^DD(694.02,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(694.02,.01,1,0)="^.1"
^DD(694.02,.01,1,1,0)="694.02^B"
^DD(694.02,.01,1,1,1)="S ^MCAR(694,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(694.02,.01,1,1,2)="K ^MCAR(694,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(694.02,.01,21,0)="^^3^3^2920330^^^^"
^DD(694.02,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(694.02,.01,21,2,0)="also contains a sub-field labeled NARRATIVE DIAGNOSIS which will be used"
^DD(694.02,.01,21,3,0)="in the future."
^DD(694.02,.01,"DT")="2930310"
^DD(694.02,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(694.02,.02,3)="Answer must be 1-80 characters in length."
^DD(694.02,.02,"DT")="2920102"
^DD(694.02,"B","ICD DIAGNOSIS",.01)=""
^DD(694.02,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(694.02,"GL",0,1,.01)=""
^DD(694.02,"GL",0,2,.02)=""
^DD(694.02,"IX",.01)=""
^DD(694.02005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(694.02005,0,"DT")="2900717"
^DD(694.02005,0,"IX","B",694.02005,.01)=""
^DD(694.02005,0,"NM","IMAGE")=""
^DD(694.02005,0,"UP")="694"
^DD(694.02005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(694.02005,.01,1,0)="^.1"
^DD(694.02005,.01,1,1,0)="694.02005^B"
^DD(694.02005,.01,1,1,1)="S ^MCAR(694,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(694.02005,.01,1,1,2)="K ^MCAR(694,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(694.02005,.01,3)="Enter the 'Image' file object number."
^DD(694.02005,.01,21,0)="^^1^1^2910415^"
^DD(694.02005,.01,21,1,0)="This field points to an object in the Image File."
^DD(694.02005,.01,"DT")="2970630"
^DD(694.02005,"B","IMAGE",.01)=""
^DD(694.02005,"GL",0,1,.01)=""
^DD(694.02005,"IX",.01)=""
^DD(694.035,0)="FINAL DIAGNOSIS SUB-FIELD^^.01^1"
^DD(694.035,0,"DT")="2911028"
^DD(694.035,0,"IX","B",694.035,.01)=""
^DD(694.035,0,"NM","FINAL DIAGNOSIS")=""
^DD(694.035,0,"UP")="694"
^DD(694.035,.01,0)="FINAL DIAGNOSIS^M*P697.5'^MCAR(697.5,^0;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.HF"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.HF"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694.035,.01,1,0)="^.1"
^DD(694.035,.01,1,1,0)="694.035^B"
^DD(694.035,.01,1,1,1)="S ^MCAR(694,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(694.035,.01,1,1,2)="K ^MCAR(694,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(694.035,.01,3)="Enter Final Diagnosis from list"
^DD(694.035,.01,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.HF"" D MIX^DIC1 S D=-1"
^DD(694.035,.01,12)="Screens Hematology entries from Medical Diagnosis File"
^DD(694.035,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.HF"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.HF"""
^DD(694.035,.01,21,0)="^^1^1^2940913^^^"
^DD(694.035,.01,21,1,0)="Enter Medical diagnosis from the medical diagnosis/ICD codes file."
^DD(694.035,.01,"DT")="2911028"
^DD(694.035,"B","FINAL DIAGNOSIS",.01)=""
^DD(694.035,"GL",0,1,.01)=""
^DD(694.035,"IX",.01)=""
^DD(694.038,0)="PROVISIONAL DX SUB-FIELD^^.01^1"
^DD(694.038,0,"DT")="2911028"
^DD(694.038,0,"IX","B",694.038,.01)=""
^DD(694.038,0,"NM","PROVISIONAL DX")=""
^DD(694.038,0,"UP")="694"
^DD(694.038,.01,0)="PROVISIONAL DX^M*P697.5'^MCAR(697.5,^0;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.H"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.H"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694.038,.01,1,0)="^.1"
^DD(694.038,.01,1,1,0)="694.038^B"
^DD(694.038,.01,1,1,1)="S ^MCAR(694,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(694.038,.01,1,1,2)="K ^MCAR(694,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(694.038,.01,3)="Enter provisional diagnosis  or indication for procedure from  list"
^DD(694.038,.01,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.H"" D MIX^DIC1 S D=-1"
^DD(694.038,.01,12)="Screens Hematology diagnosis from Medical Diagnosis File"
^DD(694.038,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.H"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.H"""
^DD(694.038,.01,21,0)="^^1^1^2941028^^^^"
^DD(694.038,.01,21,1,0)="This field identifies the provisional diagnosis field."
^DD(694.038,.01,"DT")="2911028"
^DD(694.038,"B","PROVISIONAL DX",.01)=""
^DD(694.038,"GL",0,1,.01)=""
^DD(694.038,"IX",.01)=""
^DD(694.041,0)="FINAL DIAGNOSIS REMARKS SUB-FIELD^^.01^1"
^DD(694.041,0,"NM","FINAL DIAGNOSIS REMARKS")=""
^DD(694.041,0,"UP")="694"
^DD(694.041,.01,0)="FINAL DIAGNOSIS REMARKS^W^^0;1^Q"
^DD(694.041,.01,3)="Enter free-text comments on the final diagnosis."
^DD(694.041,.01,21,0)="^^1^1^2930604^^"
^DD(694.041,.01,21,1,0)="Free text field for diagnostic remarks."
^DD(694.041,"B","FINAL DIAGNOSIS REMARKS",.01)=""
^DD(694.041,"GL",0,1,.01)=""
^DD(694.054,0)="MICRO DESCRIPTION REMARKS SUB-FIELD^^.01^1"
^DD(694.054,0,"DT")="2930104"
^DD(694.054,0,"NM","MICRO DESCRIPTION REMARKS")=""
^DD(694.054,0,"UP")="694"
^DD(694.054,.01,0)="MICRO DESCRIPTION REMARKS^W^^0;1^Q"
^DD(694.054,.01,"DT")="2930104"
^DD(694.054,"B","MICRO DESCRIPTION REMARKS",.01)=""
^DD(694.054,"GL",0,1,.01)=""
^DD(694.055,0)="COMPLICATIONS SUB-FIELD^^.01^1"
^DD(694.055,0,"DT")="2920715"
^DD(694.055,0,"IX","B",694.055,.01)=""
^DD(694.055,0,"NM","COMPLICATIONS")=""
^DD(694.055,0,"UP")="694"
^DD(694.055,.01,0)="COMPLICATIONS^M*P696.9'^MCAR(696.9,^0;1^S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",""""H"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694.055,.01,1,0)="^.1"
^DD(694.055,.01,1,1,0)="694.055^B"
^DD(694.055,.01,1,1,1)="S ^MCAR(694,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(694.055,.01,1,1,2)="K ^MCAR(694,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(694.055,.01,3)="Enter a code from the Complications File"
^DD(694.055,.01,21,0)="^^1^1^2900717^"
^DD(694.055,.01,21,1,0)="Free text field whose purpose is to document procedural difficulties."
^DD(694.055,.01,"DT")="2890313"
^DD(694.055,"B","COMPLICATIONS",.01)=""
^DD(694.055,"GL",0,1,.01)=""
^DD(694.055,"IX",.01)=""
^DD(694.057,0)="INDICATION SUB-FIELD^^.01^1"
^DD(694.057,0,"IX","B",694.057,.01)=""
^DD(694.057,0,"NM","INDICATION")=""
^DD(694.057,0,"UP")="694"
^DD(694.057,.01,0)="INDICATION^M*P694.1'^MCAR(694.1,^0;1^S DIC(""S"")=""I $D(^MCAR(694.1,""""C"""",""""H"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694.057,.01,1,0)="^.1"
^DD(694.057,.01,1,1,0)="694.057^B"
^DD(694.057,.01,1,1,1)="S ^MCAR(694,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(694.057,.01,1,1,2)="K ^MCAR(694,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(694.057,.01,3)="ENTER HEMATOLOGY INDICATION"
^DD(694.057,.01,21,0)="^^1^1^2900717^"
^DD(694.057,.01,21,1,0)="Entry from the indication file."
^DD(694.057,.01,"DT")="2890829"
^DD(694.057,"B","INDICATION",.01)=""
^DD(694.057,"GL",0,1,.01)=""
^DD(694.057,"IX",.01)=""
^DD(694.058,0)="OTHER INDICATION SUB-FIELD^^.01^1"
^DD(694.058,0,"NM","OTHER INDICATION")=""
^DD(694.058,0,"UP")="694"
^DD(694.058,.01,0)="OTHER INDICATION^W^^0;1^Q"
^DD(694.058,.01,3)="Enter indication for performance if not in list"
^DD(694.058,.01,21,0)="^^1^1^2910429^"
^DD(694.058,.01,21,1,0)="This field identifies the other indication field."
^DD(694.058,.01,"DT")="2890829"
^DD(694.058,"B","OTHER INDICATION",.01)=""
^DD(694.058,"GL",0,1,.01)=""
^DD(694.1,0)="FIELD^^1^2"
^DD(694.1,0,"IX","B",694.1,.01)=""
^DD(694.1,0,"IX","C",694.11,.01)=""
^DD(694.1,0,"NM","INDICATION")=""
^DD(694.1,0,"PT",690.07,.01)=""
^DD(694.1,0,"PT",694.057,.01)=""
^DD(694.1,0,"PT",699.16,.01)=""
^DD(694.1,0,"VR")="2.3"
^DD(694.1,0,"VRPK")="MEDICINE"
^DD(694.1,.01,0)="INDICATION^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(694.1,.01,1,0)="^.1"
^DD(694.1,.01,1,1,0)="694.1^B"
^DD(694.1,.01,1,1,1)="S ^MCAR(694.1,""B"",$E(X,1,100),DA)="""""
^DD(694.1,.01,1,1,2)="K ^MCAR(694.1,""B"",$E(X,1,100),DA)"
^DD(694.1,.01,3)="Answer must be 3-100 characters in length."
^DD(694.1,.01,21,0)="^^2^2^2910426^"
^DD(694.1,.01,21,1,0)="This field contains a list of indications for procedures used by various"
^DD(694.1,.01,21,2,0)="modules and sub-modules of the medicine package."
^DD(694.1,.01,"DT")="2890829"
^DD(694.1,1,0)="MEDICAL TYPE^694.11SA^^1;0"
^DD(694.1,1,21,0)="^^2^2^2910426^"
^DD(694.1,1,21,1,0)="This field identifies field is used to screen indications by medical specialty"
^DD(694.1,1,21,2,0)="or sub-specialty"
^DD(694.1,"B","INDICATION",.01)=""
^DD(694.1,"B","MEDICAL TYPE",1)=""
^DD(694.1,"GL",0,1,.01)=""
^DD(694.1,"GL",1,0,1)=""
^DD(694.1,"IX",.01)=""
^DD(694.1,"RQ",.01)=""
^DD(694.1,"SB",694.11,1)=""
^DD(694.11,0)="MEDICAL TYPE SUB-FIELD^^.01^1"
^DD(694.11,0,"NM","MEDICAL TYPE")=""
^DD(694.11,0,"UP")="694.1"
^DD(694.11,.01,0)="MEDICAL TYPE^S^G:GI;P:PULMONARY;PM:PACEMAKER;H:HEMATOLOGY;^0;1^Q"
^DD(694.11,.01,1,0)="^.1"
^DD(694.11,.01,1,1,0)="694.1^C^MUMPS"
^DD(694.11,.01,1,1,1)="S ^MCAR(694.1,""C"",$E(X,1,30),DA(1))="""""
^DD(694.11,.01,1,1,2)="K ^MCAR(694.1,""C"",$E(X,1,30),DA(1))"
^DD(694.11,.01,1,1,"%D",0)="^^2^2^2920421^"
^DD(694.11,.01,1,1,"%D",1,0)="This cross-reference indexes the entire file in alphabetical order by"
^DD(694.11,.01,1,1,"%D",2,0)="indication and medical type."
^DD(694.11,.01,3)="Enter any applicable (sub-)specialty(ies) to which this procedure should be restricted."
^DD(694.11,.01,21,0)="^^2^2^2910426^"
^DD(694.11,.01,21,1,0)="This field identifies the specific specialty or sub-specialty by which this"
^DD(694.11,.01,21,2,0)="indication is used."
^DD(694.11,.01,"DT")="2890829"
^DD(694.11,"B","MEDICAL TYPE",.01)=""
^DD(694.11,"GL",0,1,.01)=""
^DD(694.11,"IX",.01)=""
^DD(694.5,0)="FIELD^^107^91"
^DD(694.5,0,"DT")="2940523"
^DD(694.5,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(694.5,0,"ID",76)="W:$D(^(10)) ""   "",$E($P(^(10),U,1),4,5)_""-""_$E($P(^(10),U,1),6,7)_""-""_$E($P(^(10),U,1),2,3)"
^DD(694.5,0,"IX","AC",694.5,5)=""
^DD(694.5,0,"IX","AD",694.5,4)=""
^DD(694.5,0,"IX","AE",694.5,6)=""
^DD(694.5,0,"IX","AF",694.5,7)=""
^DD(694.5,0,"IX","AG",694.5,107)=""
^DD(694.5,0,"IX","B",694.5,.01)=""
^DD(694.5,0,"IX","C",694.5,1)=""
^DD(694.5,0,"NM","CARDIAC SURGERY RISK ASSESSMENT")=""
^DD(694.5,0,"VR")="2.3"
^DD(694.5,0,"VRPK")="MEDICINE"
^DD(694.5,.01,0)="DATE OF PHYSICIAN'S ESTIMATE^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(694.5,.01,1,0)="^.1"
^DD(694.5,.01,1,1,0)="694.5^B"
^DD(694.5,.01,1,1,1)="S ^MCAR(694.5,""B"",$E(X,1,30),DA)="""""
^DD(694.5,.01,1,1,2)="K ^MCAR(694.5,""B"",$E(X,1,30),DA)"
^DD(694.5,.01,3)="Enter the date of completion of physician's estimate of operative mortality"
^DD(694.5,.01,21,0)="^^1^1^2910429^^"
^DD(694.5,.01,21,1,0)="The Date of Completion of Physician's Estimate of Operative Mortality"
^DD(694.5,1,0)="PATIENT^RP690^MCAR(690,^0;2^Q"
^DD(694.5,1,1,0)="^.1"
^DD(694.5,1,1,1,0)="694.5^C"
^DD(694.5,1,1,1,1)="S ^MCAR(694.5,""C"",$E(X,1,30),DA)="""""
^DD(694.5,1,1,1,2)="K ^MCAR(694.5,""C"",$E(X,1,30),DA)"
^DD(694.5,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(694.5,1,1,1,"%D",1,0)="This cross-reference allow looks-up by Patient."
^DD(694.5,1,3)="Enter the patient's name"
^DD(694.5,1,21,0)="^^1^1^2910429^"
^DD(694.5,1,21,1,0)="This field identifies the patient's name."
^DD(694.5,1,"DT")="2890816"
^DD(694.5,2,0)="HOSPITAL OF SURGERY^P4'^DIC(4,^0;3^Q"
^DD(694.5,2,3)="Enter the Hospital where Surgery is to be performed."
^DD(694.5,2,21,0)="^^1^1^2910429^"
^DD(694.5,2,21,1,0)="This field identifies the Hospital where Surgery is to be performed."
^DD(694.5,3,0)="AGE^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<15)!(X?.E1"".""1N.N) X"
^DD(694.5,3,3)="Type a Number between 15 and 99, 0 Decimal Digits"
^DD(694.5,3,21,0)="^^1^1^2910429^"
^DD(694.5,3,21,1,0)="This field identifies the patient's age, between 15 and 99."
^DD(694.5,3,22)="List age in years."
^DD(694.5,3,"DT")="2900621"
^DD(694.5,4,0)="HT (IN)^NJ2,0^^0;5^K:+X'=X!(X>86)!(X<48)!(X?.E1"".""1N.N) X"
^DD(694.5,4,1,0)="^.1"
^DD(694.5,4,1,1,0)="694.5^AD^MUMPS"
^DD(694.5,4,1,1,1)="D RISK^MCARBSA"
^DD(694.5,4,1,1,2)="S:$P(^MCAR(694.5,DA,0),U,6)="""" $P(^MCAR(694.5,DA,0),U,9)="""""
^DD(694.5,4,1,1,"%D",0)="^^3^3^2920421^"
^DD(694.5,4,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(694.5,4,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(694.5,4,1,1,"%D",3,0)="BODY SURFACE AREA field (#8)."
^DD(694.5,4,3)="Enter the Height of the Patient in inches, 48-86"
^DD(694.5,4,21,0)="^^1^1^2910429^^^"
^DD(694.5,4,21,1,0)="HEIGHT OF THE PATIENT IN INCHES"
^DD(694.5,4,"DT")="2890816"
^DD(694.5,5,0)="HT (CM)^NJ3,0^^0;6^K:+X'=X!(X>218)!(X<122)!(X?.E1"".""1N.N) X"
^DD(694.5,5,1,0)="^.1"
^DD(694.5,5,1,1,0)="694.5^AC^MUMPS"
^DD(694.5,5,1,1,1)="D RISK^MCARBSA"
^DD(694.5,5,1,1,2)="S:$P(^MCAR(694.5,DA,0),U,5)="""" $P(^MCAR(694.5,DA,0),U,9)="""""
^DD(694.5,5,1,1,"%D",0)="^^3^3^2920421^"
^DD(694.5,5,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(694.5,5,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(694.5,5,1,1,"%D",3,0)="BODY SURFACE AREA field (#8)."
^DD(694.5,5,3)="Enter the height of the patient in centimeters,122-218"
^DD(694.5,5,21,0)="^^1^1^2910429^"
^DD(694.5,5,21,1,0)="Height of the patient in centimeters."
^DD(694.5,5,"DT")="2890816"
^DD(694.5,6,0)="WT (LBS)^NJ3,0^^0;7^K:+X'=X!(X>400)!(X<40)!(X?.E1"".""1N.N) X"
^DD(694.5,6,1,0)="^.1"
^DD(694.5,6,1,1,0)="694.5^AE^MUMPS"
^DD(694.5,6,1,1,1)="D RISK^MCARBSA"
^DD(694.5,6,1,1,2)="S:$P(^MCAR(694.5,DA,0),U,8)="""" $P(^MCAR(694.5,DA,0),U,9)="""""
^DD(694.5,6,1,1,"%D",0)="^^3^3^2920421^"
^DD(694.5,6,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(694.5,6,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(694.5,6,1,1,"%D",3,0)="BODY SURFACE AREA field (#8)."
^DD(694.5,6,3)="Enter the Weight of the Patient in Lbs,40-400"
^DD(694.5,6,21,0)="^^1^1^2910429^"
^DD(694.5,6,21,1,0)="This field identifies the Patient in pounds."
^DD(694.5,6,"DT")="2890816"
^DD(694.5,7,0)="WT (KG)^NJ3,0^^0;8^K:+X'=X!(X>240)!(X<24)!(X?.E1"".""1N.N) X"
^DD(694.5,7,1,0)="^.1"
^DD(694.5,7,1,1,0)="694.5^AF^MUMPS"
^DD(694.5,7,1,1,1)="D RISK^MCARBSA"
^DD(694.5,7,1,1,2)="S:$P(^MCAR(694.5,DA,0),U,7)="""" $P(^MCAR(694.5,DA,0),U,9)="""""
^DD(694.5,7,1,1,"%D",0)="^^3^3^2920421^"
^DD(694.5,7,1,1,"%D",1,0)="This cross-reference computes the patient's body surface area from the"
^DD(694.5,7,1,1,"%D",2,0)="patient's height and weight and inserts the computed value into the"
^DD(694.5,7,1,1,"%D",3,0)="BODY SURFACE AREA field (#8)."
^DD(694.5,7,3)="Type a Number between 24 and 240, 0 Decimal Digits"
^DD(694.5,7,21,0)="^^1^1^2910429^"
^DD(694.5,7,21,1,0)="This field identifies the weight of the Patient in kilograms."
^DD(694.5,7,"DT")="2890816"
^DD(694.5,8,0)="BODY SURFACE AREA^NJ5,2I^^0;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(694.5,8,3)="In Square Meters--This is computed automatically from Weight and Height"
^DD(694.5,8,21,0)="^^1^1^2910429^"
^DD(694.5,8,21,1,0)="Body surface area in square meters, computed from weight and height."
^DD(694.5,8,"DT")="2890816"
^DD(694.5,20,0)="DIABETES^S^Y:YES;N:NO;^1;1^Q"
^DD(694.5,20,3)="'Yes' indicates Glucose Intolerance Requiring Treatment With Oral Hypoglycemic Agents or Insulin Within 30 Days Preceding Heart Surgery"
^DD(694.5,20,21,0)="^^2^2^2910429^"
^DD(694.5,20,21,1,0)="A 'Yes' indicates Glucose Intolerance Requiring Treatment with Oral"
^DD(694.5,20,21,2,0)="Hypoglycemic Agents or Insulin within 30 days Preceding Heart Surgery"
^DD(694.5,21,0)="COPD^S^Y:YES;N:NO;^1;2^Q"
^DD(694.5,21,3)="'Yes' indicates Chronic Obstructive Pulmonary Disease Resulting in Functional Disability, and/or Hospitalization, and/or Requiring Bronchodilator Therapy, and/or FEV1>75% of Predicted"
^DD(694.5,21,21,0)="^^3^3^2940922^^"
^DD(694.5,21,21,1,0)="A 'Yes' indicates Chronic Obstructive Pulmonary Disease Resulting in"
^DD(694.5,21,21,2,0)="Functional Disability, and/or Hospitalization, and/or Requiring"
^DD(694.5,21,21,3,0)="Bronchodilator Therapy, and/or FEV1>75% of Predicted."
^DD(694.5,22,0)="CIGARETTE SMOKING (PACK YEARS)^NJ3,0^^1;3^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,22,3)="In Pack-Years, average number of packs per day times years smoked. (Do not include Pipe,Cigar Smoking, or Chewing Tobacco)"
^DD(694.5,22,21,0)="^^2^2^2910429^"
^DD(694.5,22,21,1,0)="In Pack-Years, average number of packs per day times year smoked."
^DD(694.5,22,21,2,0)="(Do not include Pipe, Cigar Smoking, or Chewing Tobacco)."
^DD(694.5,23,0)="CURRENT SMOKER^S^Y:YES;N:NO;^1;4^Q"
^DD(694.5,23,3)="'YES' Indicates the Patient is a Current Smoker"
^DD(694.5,23,21,0)="^^1^1^2910429^"
^DD(694.5,23,21,1,0)="'Yes' indicates the patient is a current smoker."
^DD(694.5,24,0)="ACTIVE ENDOCARDITIS^S^Y:YES;N:NO;^1;5^Q"
^DD(694.5,24,3)="'YES' if 2 or More Positive Blood Cultures,or New Vegetations, or Acute Valve Dysfunction of Infectious Cause, or On Antibiotic RX for Endocarditis within 2 weeks preceeding Surgery"
^DD(694.5,24,21,0)="^^3^3^2910429^"
^DD(694.5,24,21,1,0)="'Yes' if 2 or More positive blood cultures, or new vegetations, or acute"
^DD(694.5,24,21,2,0)="valve dysfunction of infectious cause, or on antibiotic RX for "
^DD(694.5,24,21,3,0)="endocarditis within 2 weeks preceding surgery."
^DD(694.5,25,0)="I.V. NTG PREOPERATIVELY^S^Y:YES;N:NO;^1;6^Q"
^DD(694.5,25,3)="'YES' indicates I.V. Nitroglycerine Administered within 48 Hours Preceding Surgery"
^DD(694.5,25,21,0)="^^2^2^2910429^"
^DD(694.5,25,21,1,0)="'Yes' indicates I.V. Nitroglycerine administered within 48 hours "
^DD(694.5,25,21,2,0)="preceding surgery."
^DD(694.5,26,0)="ANGIOPLASTY^S^Y:YES;N:NO;^1;7^Q"
^DD(694.5,26,3)="'YES' Indicates Percutaneous Transluminal Coronary Angioplasty Performed or Attempted Within the 24 Hours Preceding Surgery."
^DD(694.5,26,21,0)="^^2^2^2910429^"
^DD(694.5,26,21,1,0)="'Yes' indicates Percutaneous Transluminal Coronary Angioplasty performed"
^DD(694.5,26,21,2,0)="or attempted within the 24 hours preceding surgery."
^DD(694.5,27,0)="PRIOR HEART SURGERY^S^Y:YES;N:NO;^1;8^Q"
^DD(694.5,27,3)="'YES' indicates any form or Prior Heart Surgery Performed through a Thoracotomy During Separate, Preceding Hospitalization"
^DD(694.5,27,21,0)="^^2^2^2910429^"
^DD(694.5,27,21,1,0)="'Yes' indicates any form of Prior Heart Surgery performed through a"
^DD(694.5,27,21,2,0)="Thoracotomy during separate, preceding hospitalization."
^DD(694.5,28,0)="HISTORY OF CHF^S^Y:YES;N:NO;^1;9^Q"
^DD(694.5,28,3)="'YES' Indicates Symptoms of Pulmonary Congestion or Low Cardiac Output Requiring Therapy with Digitalis, and/or Diuretic, and/or an ACE Inhibitor"
^DD(694.5,28,21,0)="^^2^2^2910429^"
^DD(694.5,28,21,1,0)="'Yes' indicates symptoms of Pulmonary Congestion or Low Cardiac Output"
^DD(694.5,28,21,2,0)="Requiring Therapy with Digitalis, and/or Diuretic, and/or an ACE Inhibitor"
^DD(694.5,29,0)="CURRENT DIGITALIS USE^S^Y:YES;N:NO;^1;10^Q"
^DD(694.5,29,3)="'YES' Indicates Use of any Digitalis Preparation (Digoxin, Lanoxin,Digitoxin,etc.) within 2 weeks preceding surgery"
^DD(694.5,29,21,0)="^^2^2^2910429^"
^DD(694.5,29,21,1,0)="'Yes' indicates use of any Digitalis preparation (Digoxin, Lanoxin,"
^DD(694.5,29,21,2,0)="Digitoxin, etc.) within 2 weeks preceding surgery."
^DD(694.5,30,0)="CURRENT DIURETIC USE^S^Y:YES;N:NO;^1;11^Q"
^DD(694.5,30,3)="'YES' Indicates Use of any Diuretic agent with 2 weeks preceding surgery"
^DD(694.5,30,21,0)="^^2^2^2910429^"
^DD(694.5,30,21,1,0)="'Yes' indicates use of any Diuretic agent within 2 weeks preceding"
^DD(694.5,30,21,2,0)="surgery."
^DD(694.5,31,0)="PERIPHERAL VASCULAR DISEASE^S^Y:YES;N:NO;^1;12^Q"
^DD(694.5,31,3)="'YES' Indicates Obstruction of Arteries to Legs Resulting in Symptoms, and/or Surgery, and/or Angiographically Demonstrated Stenosis => 50%"
^DD(694.5,31,21,0)="^^2^2^2910429^"
^DD(694.5,31,21,1,0)="'Yes' indicates obstruction of Arteries to Legs resulting in Symptoms,"
^DD(694.5,31,21,2,0)="and/or Surgery, and/or Angiographically demonstrated Stenosis=>50%."
^DD(694.5,32,0)="CEREBRAL VASCULAR DISEASE^S^Y:YES;N:NO;^1;13^Q"
^DD(694.5,32,3)="'YES' Indicates History of TIA, nonembolic stroke, or angiographic evidence of cerebral arterial obstruction => 50%, or Ulcerated plaque"
^DD(694.5,32,21,0)="^^2^2^2910429^"
^DD(694.5,32,21,1,0)="'Yes' indicates history of TIA, nonembolic stroke, or angiographic evidence"
^DD(694.5,32,21,2,0)="of cerebral arterial obstruction => 50%, or Ulcerated plaque."
^DD(694.5,33,0)="PRIOR MYOCARDIAL INFARCTION^S^1:OCCURED WITHIN 24 HRS OF SURGERY;2:OCCURED BETWEEN 24 HRS AND 7 DAYS OF SURGERY;3:OCCURED BETWEEN 7 DAYS AND NOT MORE THAN 30 DAYS OF SURGERY;4:OCCURED GREATER THAN 30 DAYS OF SURGERY;^1;14^Q"
^DD(694.5,33,3)="Enter 1-4 if two of the following occured: 1)Typical Pain,2) Enzyme Rise and Fall, and 3) New Q-waves on the electrocardiogram"
^DD(694.5,33,21,0)="^^2^2^2910429^"
^DD(694.5,33,21,1,0)="Enter 1-4 if two of the following occurred: 1)Typical Pain, 2)Enzyme"
^DD(694.5,33,21,2,0)="Rise and Fall, and 3) New Q-waves on the electrocardiogram."
^DD(694.5,33.5,0)="PRIOR MI^S^1:None;2:< or equal to 7 days of surg.;3:> 7 days of surg.;^4;13^Q"
^DD(694.5,33.5,3)="Enter a code from 1-3, or ?? for further HELP."
^DD(694.5,33.5,21,0)="^^6^6^2940601^"
^DD(694.5,33.5,21,1,0)="Enter 1 did not occur:"
^DD(694.5,33.5,21,2,0)="      2 occured within a week before surgery:"
^DD(694.5,33.5,21,3,0)="      3 occured more than a week before surgery"
^DD(694.5,33.5,21,4,0)=" "
^DD(694.5,33.5,21,5,0)="if two of the following occurred: a) Typical Pain, b) Enzyme Rise and"
^DD(694.5,33.5,21,6,0)="Fall, and c) New Q-waves on the electrocardiogram."
^DD(694.5,33.5,"DT")="2900516"
^DD(694.5,34,0)="PREOPERATIVE IABP^S^Y:YES;N:NO;^1;15^Q"
^DD(694.5,34,3)="'YES' Indicates intraaortic balloon pump (IABP) in use at sometime during the 48 hours preceding surgery"
^DD(694.5,34,21,0)="^^2^2^2910429^"
^DD(694.5,34,21,1,0)="'Yes' indicates intra-aortic balloon pump (IABP) in use at some time"
^DD(694.5,34,21,2,0)="during the 48 hours preceding surgery."
^DD(694.5,35,0)="UNSTABLE ANGINA^S^Y:YES;N:NO;^1;16^Q"
^DD(694.5,35,3)="'YES' Indicates angina occuring at rest or prolonged angina unresponsive to nitroglycerine"
^DD(694.5,35,21,0)="^^2^2^2910429^"
^DD(694.5,35,21,1,0)="'Yes' indicates angina occurring at rest or prolonged angina unresponsive"
^DD(694.5,35,21,2,0)="to nitroglycerine."
^DD(694.5,35,"DT")="2900515"
^DD(694.5,36,0)="NYHA FUNCTIONAL CLASS^S^1:NO SYMPTOMS AT ANY LEVEL OF ACTIVITY;2:SYMPTOMS ON MORE THAN ORDINARY ACTIVITY;3:SYMPTOMS ON ACTIVITIES OF DAILY LIVING;4:SYMPTOMS AT REST;^1;17^Q"
^DD(694.5,36,3)="Enter the one response that most closely reflects the patient's limitation from heart disease in 2 weeks preceding surgery"
^DD(694.5,36,21,0)="^^12^12^2910429^^^^"
^DD(694.5,36,21,1,0)=" The following functional classes are defined :"
^DD(694.5,36,21,2,0)=" "
^DD(694.5,36,21,3,0)="     I - heart disease with no symptoms limiting activity"
^DD(694.5,36,21,4,0)=" "
^DD(694.5,36,21,5,0)="     II - slight limitation of physical activity by fatigue, dyspnea, "
^DD(694.5,36,21,6,0)="          or angina"
^DD(694.5,36,21,7,0)=" "
^DD(694.5,36,21,8,0)="     III - marked limitation of physical activity by fatigue, dyspnea, "
^DD(694.5,36,21,9,0)="           or angina, but no symptoms at rest"
^DD(694.5,36,21,10,0)=" "
^DD(694.5,36,21,11,0)="     IV - symptoms at rest and/or inability to carry out any physical"
^DD(694.5,36,21,12,0)="          activity without symptoms of dyspnea, fatigue, or angina"
^DD(694.5,36,"DT")="2900516"
^DD(694.5,37,0)="HYPERTENSION^S^Y:YES;N:NO;^1;18^Q"
^DD(694.5,37,3)="'YES' Indicates any history of hypertension requiring therapy, and/or 2 or more blood pressures > 140/95"
^DD(694.5,37,21,0)="^^2^2^2910429^"
^DD(694.5,37,21,1,0)="'Yes' indicates any history of hypertension requiring therapy, and/or"
^DD(694.5,37,21,2,0)="2 or more blood pressures > 140/95."
^DD(694.5,38,0)="PULMONARY RALES^S^Y:YES;N:NO;^1;19^Q"
^DD(694.5,38,3)="'YES' Indicates rales heard at lung base(s) not clearing with cough and not due to pneumonic process within 2 weeks of surgery"
^DD(694.5,38,21,0)="^^2^2^2910429^"
^DD(694.5,38,21,1,0)="'Yes' indicates rales heard at lung base(s) not clearing with cough and"
^DD(694.5,38,21,2,0)="not due to pneumonic process within 2 weeks of surgery."
^DD(694.5,39,0)="RESTING ST-SEGMENT DEPRESSION^S^Y:YES;N:NO;^1;20^Q"
^DD(694.5,39,3)="'YES' Indicates horizontal or downsloping ST-segment depression on the resting electrocardiogram => 0.5 mm within 2 weeks of surgery"
^DD(694.5,39,21,0)="^^2^2^2910429^"
^DD(694.5,39,21,1,0)="'Yes' indicates horizontal or downsloping ST-segment depression on the"
^DD(694.5,39,21,2,0)="resting electrocardiogram => 0.5 mm within 2 weeks of surgery."
^DD(694.5,40,0)="CARDIOMEGALY BY CHEST X-RAY^S^Y:YES;N:NO;^1;21^Q"
^DD(694.5,40,3)="'YES' Indicates overall cardiac enlargement, and/or cardiothoracic ration => 0.5 on chest x-ray within the 30 days preceding surgery"
^DD(694.5,40,21,0)="^^2^2^2910429^"
^DD(694.5,40,21,1,0)="'Yes' indicates overall cardiac enlargement, and/or cardiothoracic ration"
^DD(694.5,40,21,2,0)="=> 0.5 on chest x-ray within the 30 days preceding surgery."
^DD(694.5,41,0)="PLEURAL EFFUSION^S^Y:YES;N:NO;^1;22^Q"
^DD(694.5,41,3)="'YES' Indicates pleural effusion on any chest x-ray in the month preceding surgery"
^DD(694.5,41,21,0)="^^2^2^2910429^"
^DD(694.5,41,21,1,0)="'Yes' indicates pleural effusion on any chest x-ray in the month preceding"
^DD(694.5,41,21,2,0)="surgery."
^DD(694.5,42,0)="SERUM CREATININE (MG/DL)^NJ4,1^^1;23^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694.5,42,3)="Type a Number between 0 and 20, 1 Decimal Digit"
^DD(694.5,42,21,0)="^^1^1^2910429^"
^DD(694.5,42,21,1,0)="This field identifies a number between 0 and 20, 1 decimal digit."
^DD(694.5,42,"DT")="2900621"
^DD(694.5,43,0)="ROOM AIR PaO2^NJ3,0^^1;24^K:+X'=X!(X>105)!(X<20)!(X?.E1"".""1N.N) X"
^DD(694.5,43,3)="Enter the partial pressure of oxygen (in mm Hg) of oxygen in arterial blood while breathing room air for => 15 minutes (20-105)"
^DD(694.5,43,21,0)="^^2^2^2910429^"
^DD(694.5,43,21,1,0)="This field identifies the partial pressure of oxygen (in mm Hg) of oxygen in"
^DD(694.5,43,21,2,0)="arterial blood while breathing room air for => 15 minutes (20-105)."
^DD(694.5,44,0)="FEV1^NJ3,0^^1;25^K:+X'=X!(X>100)!(X<10)!(X?.E1"".""1N.N) X"
^DD(694.5,44,3)="Enter the forced expired volume in 1 second (FEV1) expressed as % of predicted normal value measured within the 6 months preceding surgery (10-100)"
^DD(694.5,44,21,0)="^^3^3^2910429^"
^DD(694.5,44,21,1,0)="This field identifies the forced expired volume in 1 second (FEV1) expressed"
^DD(694.5,44,21,2,0)="as % of predicted normal value measured within the 6 months preceding surgery"
^DD(694.5,44,21,3,0)="(10-100)."
^DD(694.5,45,0)="LV SYSTOLIC PRESSURE (mm Hg)^NJ3,0^^2;1^K:+X'=X!(X>240)!(X<40)!(X?.E1"".""1N.N) X"
^DD(694.5,45,3)="Enter the Left Ventricular Systolic pressure measured at the catherization most closely preceding surgery. Use the 1 most closely reflecting basal conditions (40-240)"
^DD(694.5,45,21,0)="^^3^3^2910429^"
^DD(694.5,45,21,1,0)="This field identifies the Left Ventricular Systolic pressure measured at the"
^DD(694.5,45,21,2,0)="catheterization most closely preceding surgery.  Use the 1 most closely"
^DD(694.5,45,21,3,0)="reflecting basal conditions (40-240)."
^DD(694.5,46,0)="AORTIC SYSTOLIC PRESSURE^NJ3,0^^2;2^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,46,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(694.5,46,21,0)="^^1^1^2910429^"
^DD(694.5,46,21,1,0)="This field identifies a number between 0 and 300, 0 decimal digits."
^DD(694.5,46,"DT")="2900621"
^DD(694.5,47,0)="PA SYSTOLIC PRESSURE (MM HG)^NJ3,0^^2;3^K:+X'=X!(X>150)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,47,3)="Type a Number between 0 and 150, 0 Decimal Digits"
^DD(694.5,47,21,0)="^^1^1^2910429^"
^DD(694.5,47,21,1,0)="This field identifies a number between 0 and 150, 0 decimal digits."
^DD(694.5,47,"DT")="2900621"
^DD(694.5,48,0)="MEAN PA WEDGE PRESSURE (MM HG)^NJ2,0^^2;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,48,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(694.5,48,21,0)="^^1^1^2910429^"
^DD(694.5,48,21,1,0)="This field identifies a number between 0 and 99, 0 decimal digits."
^DD(694.5,48,"DT")="2900621"
^DD(694.5,49,0)="MEAN RA PRESSURE (mm Hg)^NJ2,0^^2;5^K:+X'=X!(X>40)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,49,3)="Average right atrial pressure measured at the catherization most closely preceding surgery. Use the 1 most closely reflecting basal conditions (0-40)"
^DD(694.5,49,21,0)="^^3^3^2910429^"
^DD(694.5,49,21,1,0)="This field identifies the average right atrial pressure measured at the"
^DD(694.5,49,21,2,0)="catheterization most closely preceding surgery.  Use the 1 most closely"
^DD(694.5,49,21,3,0)="reflecting basal conditions (0-40)."
^DD(694.5,50,0)="LV END-DIASTOLIC PRESSURE^NJ2,0^^2;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,50,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(694.5,50,21,0)="^^1^1^2910429^"
^DD(694.5,50,21,1,0)="This field identifies a number between 0 and 99, 0 decimal digits."
^DD(694.5,50,"DT")="2900621"
^DD(694.5,60,0)="LV EJECTION FRACTION^NJ4,2^^3;1^K:+X'=X!(X>.99)!(X<.02)!(X?.E1"".""3N.N) X"
^DD(694.5,60,3)="Left Ventricular ejection fraction measured by catherization,jradionuclide angiogram (MUGA), or echo within 6 months preceding surgery (.02-.99)"
^DD(694.5,60,21,0)="^^3^3^2910429^"
^DD(694.5,60,21,1,0)="This field identifies the left ventricular ejection fraction measures by"
^DD(694.5,60,21,2,0)="catheterization, radionuclide angiogram (MUGA), or echo within 6 months"
^DD(694.5,60,21,3,0)="preceding surgery (.02 - .99)."
^DD(694.5,61,0)="PROXIMAL ANTERIOR SEGMENT^S^1:NORMAL MOTION;2:MILD HYPOKINESIS;3:SEVERE HYPOKINESIS;4:AKINESIS;5:DYSKINESIS;6:FRANK ANEURYSM;^3;2^Q"
^DD(694.5,61,3)="Score right anterior oblique contrast angiogram or apical 2 chamber 2D echo view: 1-6"
^DD(694.5,61,21,0)="^^2^2^2910429^"
^DD(694.5,61,21,1,0)="This field identifies the score of the right anterior oblique contrast"
^DD(694.5,61,21,2,0)="angiogram or apical 2 chamber 2D echo view:  1-6."
^DD(694.5,62,0)="MIDANTERIOR SEGMENT^S^1:NORMAL MOTION;2:MILD HYPOKINESIS;3:SEVERE HYPOKINESIS;4:AKINESIS;5:DYSKINESIS;6:FRANK ANEURYSM;^3;3^Q"
^DD(694.5,62,3)="Score right anterior oblique contrast angiogram or apical 2 chamber 2D echo view: 1-6"
^DD(694.5,62,21,0)="^^2^2^2910429^"
^DD(694.5,62,21,1,0)="This field identifies the score of the right anterior oblique contrast"
^DD(694.5,62,21,2,0)="angiogram or apical 2 chamber 2D echo view:  1-6."
^DD(694.5,63,0)="APEX^S^1:NORMAL MOTION;2:MILD HYPOKINESIS;3:SEVERE HYPOKINESIS;4:AKINESIS;5:DYSKINESIS;6:FRANK ANEURYSM;^3;4^Q"
^DD(694.5,63,3)="Score right anterior oblique contrast angiogram or apical 2 chamber 2D echo view: 1-6"
^DD(694.5,63,21,0)="^^2^2^2910429^"
^DD(694.5,63,21,1,0)="This field identifies the score of the right anterior oblique contrast"
^DD(694.5,63,21,2,0)="angiogram  or apical 2 chamber 2D echo view:  1-6."
^DD(694.5,64,0)="MIDINFERIOR SEGMENT^S^1:NORMAL MOTION;2:MILD HYPOKINESIS;3:SEVERE HYPOKINESIS;4:AKINESIS;5:DYSKINESIS;6:FRANK ANEURYSM;^3;5^Q"
^DD(694.5,64,3)="Score right anterior oblique contrast angiogram or apical 2 chamber 2D echo view: 1-6"
^DD(694.5,64,21,0)="^^2^2^2910429^"
^DD(694.5,64,21,1,0)="This field identifies the score of the right anterior oblique contrast"
^DD(694.5,64,21,2,0)="angiogram or apical 2 chamber 2D echo view:  1-6."
^DD(694.5,65,0)="PROXIMAL INFERIOR SEGMENT^S^1:NORMAL MOTION;2:MILD HYPOKINESIS;3:SEVERE HYPOKINESIS;4:AKINESIS;5:DYSKINESIS;6:FRANK ANEURYSM;^3;6^Q"
^DD(694.5,65,3)="Score right anterior oblique contrast angiogram or apical 2 chamber 2D echo view: 1-6"
^DD(694.5,65,21,0)="^^2^2^2910429^"
^DD(694.5,65,21,1,0)="This field identifies the score of the right anterior oblique contrast"
^DD(694.5,65,21,2,0)="angiogram or apical 2 chamber 2D echo view:  1-6."
^DD(694.5,66,0)="LEFT MAIN CORONARY STENOSIS^NJ3,0^^4;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,66,3)="Give % reduction in luminal diameter of most severe stenosis (0-100)"
^DD(694.5,66,21,0)="^^1^1^2910429^"
^DD(694.5,66,21,1,0)="This gives % reduction in luminal diameter of most severe stenosis (0-100)"
^DD(694.5,66.5,0)="NUMBER OF MAJOR CORONARIES^NJ1,0^^4;14^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,66.5,3)="Type a Number between 0 and 3, 0 Decimal Digits"
^DD(694.5,66.5,21,0)="^^1^1^2910429^"
^DD(694.5,66.5,21,1,0)="This gives number of major coronary arteries (LAD), right with PDA."
^DD(694.5,66.5,"DT")="2940523"
^DD(694.5,67,0)="LEFT ANT. DESC. STENOSIS^NJ3,0^^4;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,67,3)="Give % reduction in luminal diameter of most severe stenosis (0-100)"
^DD(694.5,67,21,0)="^^1^1^2910429^"
^DD(694.5,67,21,1,0)="This gives % reduction in luminal diameter of most severe stenosis (0-100)"
^DD(694.5,68,0)="LEFT ANT. DESC. DISTAL DISEASE^S^0:NO SIGNIFICANT DISTAL DISEASE (< 20% DIAMETER REDUCTION);2:MODERATE DISTAL DISEASE (20-50 % DIAMETER REDUCTION);3:SEVERE DISTAL DISEASE (GREATER THAN OR EQUAL TO 50% DIAMETER REDUCTION);^4;3^Q"
^DD(694.5,68,3)="Score Distal Vessel Disease as 0,2, or 3"
^DD(694.5,68,21,0)="^^1^1^2910429^"
^DD(694.5,68,21,1,0)="Score Distal Vessel Disease as 0, 2, or 3."
^DD(694.5,68,"DT")="2890817"
^DD(694.5,69,0)="RIGHT CORONARY STENOSIS^NJ3,0^^4;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,69,3)="Give % reduction in luminal diameter of most severe stenosis (0-100). Include posterior descending regardless of origin."
^DD(694.5,69,21,0)="^^2^2^2910429^"
^DD(694.5,69,21,1,0)="Gives % reduction in luminal diameter of most severe stenosis (0-100)."
^DD(694.5,69,21,2,0)="Include posterior descending regardless or origin."
^DD(694.5,70,0)="R. COR. DISTAL VES. DISEASE^S^0:NO SIGNIFICANT DISTAL DISEASE (< 20% DIAMETER REDUCTION);2:MODERATE DISTAL DISEASE (20-50 % DIAMETER REDUCTION);3:SEVERE DISTAL DISEASE (GREATER THAN OR EQUAL TO 50% DIAMETER REDUCTION);^4;5^Q"
^DD(694.5,70,3)="Score Distal Vessel Disease as 0,2, or 3"
^DD(694.5,70,21,0)="^^1^1^2910429^"
^DD(694.5,70,21,1,0)="This field identifies the Distal Vessel Disease as 0, 2, or 3."
^DD(694.5,70,"DT")="2890817"
^DD(694.5,71,0)="CIRCUMFLEX CORONARY STENOSIS^NJ3,0^^4;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,71,3)="Give % reduction in luminal diameter of most severe stenosis; include all significant marginals (0-100)"
^DD(694.5,71,21,0)="^^2^2^2910429^"
^DD(694.5,71,21,1,0)="Gives % reduction in luminal diameter of most severe stenosis;"
^DD(694.5,71,21,2,0)="include all significant marginals (0-100)."
^DD(694.5,72,0)="CIRC. COR. DISTAL VES. DISEASE^S^0:NO SIGNIFICANT DISTAL DISEASE (< 20% DIAMETER REDUCTION);2:MODERATE DISTAL DISEASE (20-50 % DIAMETER REDUCTION);3:SEVERE DISTAL DISEASE (GREATER THAN OR EQUAL TO 50% DIAMETER REDUCTION);^4;7^Q"
^DD(694.5,72,3)="Score Distal Vessel Disease as 0,2, or 3"
^DD(694.5,72,21,0)="^^1^1^2910429^"
^DD(694.5,72,21,1,0)="Scores Distal Vessel Disease as 0, 2, or 3."
^DD(694.5,72,"DT")="2890817"
^DD(694.5,73,0)="GENERAL MEDICAL CONDITION^S^0:GOOD;1:FAIR;2:POOR;^4;8^Q"
^DD(694.5,73,3)="Grade according to general nutrition, concomitant non-cardiac diseases, mental status, debility ,etc. (0-2)"
^DD(694.5,73,21,0)="^^2^2^2940706^^"
^DD(694.5,73,21,1,0)="Grades according to general nutrition, concomitant non-cardiac diseases,"
^DD(694.5,73,21,2,0)="mental status, debility, etc. (0-2)."
^DD(694.5,73,"DT")="2940523"
^DD(694.5,74,0)="PRIORITY OF SURGERY^S^1:ELECTIVE;2:URGENT;3:EMERGENT;^4;9^Q"
^DD(694.5,74,3)="Elective indicates No Alteration in Surgical Schedule,Urgent indicates Surgery must be performed within 24-72 hrs,Emergent indicates surgery must be performed within 24 hours of diagnosis."
^DD(694.5,74,21,0)="^^3^3^2910429^"
^DD(694.5,74,21,1,0)="This elective indicates No Alteration in Surgical Schedule, Urgent"
^DD(694.5,74,21,2,0)="indicates Surgery must be performed within 24-72 hours, Emergent indicates"
^DD(694.5,74,21,3,0)="surgery must be performed with 24 hours of diagnosis."
^DD(694.5,74,"DT")="2890817"
^DD(694.5,75,0)="ESTIMATE OF MORTALITY^NJ5,1^^4;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(694.5,75,3)="Type a Number between 0 and 100, 1 Decimal Digit"
^DD(694.5,75,21,0)="^^1^1^2910429^"
^DD(694.5,75,21,1,0)="This field identifies a number between 0 and 100."
^DD(694.5,75,"DT")="2900621"
^DD(694.5,75.5,0)="INTENDED OPERATIVE PROCEDURE^S^1:Coronary Artery Bypass Graft(s) and/or LV Aneurysectomy;2:Aortic Valve Replacement-with or without CABG;3:Mitral Valve Replacement-with or without CABG;4:Great Vessel Repair;5:Any Other Procedure;^4;11^Q"
^DD(694.5,75.5,3)="Enter a code from 1-5."
^DD(694.5,75.5,21,0)="^^1^1^2920324^"
^DD(694.5,75.5,21,1,0)="This allows the user to choose the intended operative procedure."
^DD(694.5,75.5,"DT")="2890825"
^DD(694.5,76,0)="DATE/TIME SURGERY BEGAN^D^^10;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(694.5,76,3)="Enter the date/time surgery began.  If this time and date precedes time and date that physician's estimate of mortality was entered, no estimated risk will be calculated"
^DD(694.5,76,21,0)="^^3^3^2910429^"
^DD(694.5,76,21,1,0)="This field identifies the date/time the surgery began.  If this time and date"
^DD(694.5,76,21,2,0)="precedes time and date that physician's estimate or mortality was entered, no"
^DD(694.5,76,21,3,0)="estimated risk will be calculated."
^DD(694.5,77,0)="BYPASS GRAFTS WITH VEIN^NJ1,0^^10;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,77,3)="Enter the number of distal anastomoses constructed with vein grafts (0-9)"
^DD(694.5,77,21,0)="^^2^2^2910429^"
^DD(694.5,77,21,1,0)="This field identifies the number of distal anastomoses constructed with vein"
^DD(694.5,77,21,2,0)="grafts (0-9)."
^DD(694.5,78,0)="BYPASS GRAFTS WITH ARTERY^NJ1,0^^10;3^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,78,3)="Enter the number of distal anastomoses constructed with an internal mammary artery (0-4)."
^DD(694.5,78,21,0)="^^2^2^2910429^"
^DD(694.5,78,21,1,0)="This field identifies the number of distal anastomoses constructed with an"
^DD(694.5,78,21,2,0)="internal mammary artery (0-4)."
^DD(694.5,79,0)="GREAT VESSEL REPAIR W BYPASS^S^Y:YES;N:NO;^10;4^Q"
^DD(694.5,79,3)="'YES' indicates primary procedure was repair of aorta or other great vessels requiring left heart bypass with or without aortic valve replacement or CABG."
^DD(694.5,79,21,0)="^^3^3^2910429^"
^DD(694.5,79,21,1,0)="'Yes' indicates primary procedure was repair of aorta or other great"
^DD(694.5,79,21,2,0)="vessels requiring left heart bypass with or without aortic valve "
^DD(694.5,79,21,3,0)="replacement or CABG."
^DD(694.5,80,0)="CARDIAC TRANSPLANT^S^Y:YES;N:NO;^10;5^Q"
^DD(694.5,80,3)="'YES' indicates orthotopic or heterotopic transplant.  Heart-Lung transplant should be listed under 'Other'"
^DD(694.5,80,21,0)="^^2^2^2910429^"
^DD(694.5,80,21,1,0)="'Yes' indicates orthotopic or heterotopic transplant.  Heart-lung "
^DD(694.5,80,21,2,0)="transplant should be listed under 'Other'."
^DD(694.5,81,0)="MITRAL VALVE REPLACEMENT^S^Y:YES;N:NO;^10;6^Q"
^DD(694.5,81,3)="'YES' indicates mitral valve replacement was performed with or without additional procedure(s)"
^DD(694.5,81,21,0)="^^2^2^2910429^"
^DD(694.5,81,21,1,0)="'Yes' indicates mitral valve replacement was performed with or without"
^DD(694.5,81,21,2,0)="additional procedure(s)."
^DD(694.5,82,0)="AORTIC VALVE REPLACEMENT^S^Y:YES;N:NO;^10;7^Q"
^DD(694.5,82,3)="'YES' indicates aortic valve replacement was performed with or without additional procedure(s)"
^DD(694.5,82,21,0)="^^2^2^2920420^^"
^DD(694.5,82,21,1,0)="'Yes' indicates aortic valve replacement was performed with or without "
^DD(694.5,82,21,2,0)="additional procedure(s)."
^DD(694.5,83,0)="TRICUSPID VALVE REPLACEMENT^S^Y:YES;N:NO;^10;8^Q"
^DD(694.5,83,3)="'YES' indicates tricuspid valve replacement was performed with or without additional procedure(s)"
^DD(694.5,83,21,0)="^^2^2^2920420^^"
^DD(694.5,83,21,1,0)="'Yes' indicates tricuspid valve replacement was performed with "
^DD(694.5,83,21,2,0)="cardiopulmonary bypass with or without additional procedure(s)."
^DD(694.5,84,0)="VALVE REPAIR^S^Y:YES;N:NO;^10;9^Q"
^DD(694.5,84,3)="'YES' indicates repair of any cardiac valve was performed with cardiopulmonary bypass with or without additional procedure(s)"
^DD(694.5,84,21,0)="^^2^2^2910429^"
^DD(694.5,84,21,1,0)="'Yes' indicates repair of any cardiac valve was performed with "
^DD(694.5,84,21,2,0)="cardiopulmonary bypass with or without additional procedure(s)."
^DD(694.5,85,0)="LV ANEURYSECTOMY OR PLICATION^S^Y:YES;N:NO;^10;10^Q"
^DD(694.5,85,3)="'YES' indicates resection or plication of left ventricular aneurysm with or without additional procedure(s)"
^DD(694.5,85,21,0)="^^2^2^2910429^"
^DD(694.5,85,21,1,0)="'Yes' indicates resection or plication of left ventricular aneurysm with"
^DD(694.5,85,21,2,0)="or without additional procedure(s)."
^DD(694.5,86,0)="OTHER PROCEDURE(S)^694.586PA^^11;0"
^DD(694.5,86,21,0)="^^1^1^2940706^^^"
^DD(694.5,86,21,1,0)="This allows the user to enter information about other procedures."
^DD(694.5,86,22)=""
^DD(694.5,87,0)="TOTAL CROSS CLAMP TIME^NJ3,0^^13;1^K:+X'=X!(X>600)!(X<0)!(X?.E1"".""1N.N) X"
^DD(694.5,87,3)="Enter the total duration of aortic cross clamp time in minutes (0-600)"
^DD(694.5,87,21,0)="^^1^1^2910429^"
^DD(694.5,87,21,1,0)="This enters the total duration of aortic cross clamp time in minutes (0-600)"
^DD(694.5,88,0)="TOTAL CIRCULATORY ARREST^S^Y:YES;N:NO;^13;2^Q"
^DD(694.5,88,3)="Answer 'YES' or 'NO'"
^DD(694.5,88,21,0)="^^1^1^2910429^"
^DD(694.5,88,21,1,0)="Should answer with 'Yes' or 'No'."
^DD(694.5,89,0)="INTEROPERATIVE USE OF BALLOON^S^Y:YES;N:NO;^13;3^Q"
^DD(694.5,89,3)="'YES' indicates  use of intraaortic balloon regardless of whether placed pre- or intra-operatively"
^DD(694.5,89,21,0)="^^2^2^2910429^"
^DD(694.5,89,21,1,0)="'Yes' indicates use of intra-aortic balloon regardless of whether placed"
^DD(694.5,89,21,2,0)="pre- or intra-operatively."
^DD(694.5,90,0)="OPERATIVE DEATH^S^Y:YES;N:NO;^13;4^Q"
^DD(694.5,90,3)="'YES' indicates death from any cause within 30 days of surgery in or out of the hospital, or after 30 days if a direct result of a surgical complication"
^DD(694.5,90,21,0)="^^3^3^2940803^"
^DD(694.5,90,21,1,0)="'Yes' indicates death from any cause within 30 days of surgery in or out"
^DD(694.5,90,21,2,0)="of the hospital, or after 30 days if a direct result of a surgical"
^DD(694.5,90,21,3,0)="complication."
^DD(694.5,91,0)="DATE OF OPERATIVE DEATH^D^^13;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(694.5,91,3)="Enter the date of operative death"
^DD(694.5,91,21,0)="^^1^1^2910429^"
^DD(694.5,91,21,1,0)="This field identifies the date of operative death."
^DD(694.5,92,0)="POSTOPERATIVE IABP^S^Y:YES;N:NO;^13;6^Q"
^DD(694.5,92,3)="'YES' indicates an Intraaortic balloon pump was used at any time during the postoperative hospitilization, regardless of whether it had been placed earlier"
^DD(694.5,92,21,0)="^^3^3^2910429^"
^DD(694.5,92,21,1,0)="'Yes' indicates an Intra-aortic balloon pump was used at any time during the "
^DD(694.5,92,21,2,0)="post operative hospitalization, regardless of whether it had been placed"
^DD(694.5,92,21,3,0)="earlier."
^DD(694.5,93,0)="PERIOPERATIVE MYOCAR. INFARC.^S^Y:YES;N:NO;^13;7^Q"
^DD(694.5,93,3)="'YES' indicates appearance of new or significantly widened Q-waves on postoperative electrocardiogram"
^DD(694.5,93,21,0)="^^2^2^2910429^"
^DD(694.5,93,21,1,0)="'Yes' indicates appearance of new or significantly widened Q-waves on"
^DD(694.5,93,21,2,0)="postoperative electrocardiogram."
^DD(694.5,94,0)="ENDOCARDITIS^S^Y:YES;N:NO;^13;8^Q"
^DD(694.5,94,3)="'YES' incidates new onset of endocarditis diagnosed within the 30 days following surgery"
^DD(694.5,94,21,0)="^^2^2^2910429^"
^DD(694.5,94,21,1,0)="'Yes' indicates new onset of endocarditis diagnosed within the 30 days"
^DD(694.5,94,21,2,0)="following surgery."
^DD(694.5,95,0)="RENAL FAILURE^S^Y:YES;N:NO;^13;9^Q"
^DD(694.5,95,3)="'YES' indicates development of exacerbation of renal failure requiring initiation of dialysis during the postoperative hospitalization."
^DD(694.5,95,21,0)="^^2^2^2910429^"
^DD(694.5,95,21,1,0)="'Yes' indicates development of exacerbation of renal failure requiring"
^DD(694.5,95,21,2,0)="initiation of dialysis during the postoperative hospitalization."
^DD(694.5,96,0)="LOW CARDIAC OUTPUT^S^Y:YES;N:NO;^13;10^Q"
^DD(694.5,96,3)="'YES' indicates cardiac index < 2.0 L/min/M2 for => 6 hours postoperatively or evidence of poor peripheral perfusion (e.g. IABPor sustained use of positive inotropic agents)"
^DD(694.5,96,21,0)="^^3^3^2910429^"
^DD(694.5,96,21,1,0)="'Yes' indicates cardiac index < 2.0 L/min/M2 for => 6 hours postoperative"
^DD(694.5,96,21,2,0)="or evidence of poor peripheral perfusion (e.g. IABP or sustained use of"
^DD(694.5,96,21,3,0)="positive inotropic agents)."
^DD(694.5,96,"DT")="2890825"
^DD(694.5,97,0)="MEDIASTINITIS^S^Y:YES;N:NO;^13;11^Q"
^DD(694.5,97,3)="'YES' indicates any infection below sternum during postoperative hospitalization or appearing within the 30 days following surgery"
^DD(694.5,97,21,0)="^^2^2^2910429^"
^DD(694.5,97,21,1,0)="'Yes' indicates any infection below sternum during postoperative "
^DD(694.5,97,21,2,0)="hospitalization or appearing within the 30 days following surgery."
^DD(694.5,98,0)="REOPERATION FOR BLEEDING^S^Y:YES;N:NO;^13;12^Q"
^DD(694.5,98,3)="'YES' if any reexploration of thorax for excessive bleeding during postoperative hospitalization"
^DD(694.5,98,21,0)="^^2^2^2910429^"
^DD(694.5,98,21,1,0)="'Yes' if any re-exploration of thorax for excessive bleeding during"
^DD(694.5,98,21,2,0)="postoperative hospitalization."
^DD(694.5,99,0)="REPEAT CARDIOPULMONARY BYPASS^S^Y:YES;N:NO;^13;13^Q"
^DD(694.5,99,3)="'YES' indicates any surgical procedure requiring cardio pulmonary bypass during post-operative hospitalization or within 30 days of initial operation."
^DD(694.5,99,21,0)="^^3^3^2910429^"
^DD(694.5,99,21,1,0)="'Yes' indicates any surgical procedure requiring cardiopulmonary bypass"
^DD(694.5,99,21,2,0)="during post-operative hospitalization or within 30 days of initial "
^DD(694.5,99,21,3,0)="operation."
^DD(694.5,100,0)="ON VENTILATOR (48 HRS OR MORE)^S^Y:YES;N:NO;^13;14^Q"
^DD(694.5,100,3)="'YES' indicates total duration of ventilator-assisted respiration during postoperative hospitalization was => 48 hours."
^DD(694.5,100,21,0)="^^2^2^2910429^"
^DD(694.5,100,21,1,0)="'Yes' indicates total duration of ventilator-assisted respiration during"
^DD(694.5,100,21,2,0)="postoperative hospitalization was => 48 hours."
^DD(694.5,101,0)="COMA (24 HRS OR MORE)^S^Y:YES;N:NO;^13;15^Q"
^DD(694.5,101,3)="'YES' indicates significantly impaired level of consciousness (exclude transient disorientation or psychosis) for => 48 hours during postoperative hospilitization"
^DD(694.5,101,21,0)="^^3^3^2910429^"
^DD(694.5,101,21,1,0)="'Yes' indicates significantly impaired level of consciousness (exclude"
^DD(694.5,101,21,2,0)="transient disorientation or psychosis) for => 48 hours during postoperative"
^DD(694.5,101,21,3,0)="hospitalization."
^DD(694.5,102,0)="STROKE^S^Y:YES;N:NO;^13;16^Q"
^DD(694.5,102,3)="'YES' indicates objective neurologic deficit lasting => 30 minutes with onset intra- or post-operatively"
^DD(694.5,102,21,0)="^^2^2^2910429^"
^DD(694.5,102,21,1,0)="'Yes' indicates objective neurologic deficit lasting => 30 minutes"
^DD(694.5,102,21,2,0)="with onset intra- or post-operatively."
^DD(694.5,103,0)="PTCA^S^1:none recent;2:12 - 72 hr;3:<12 hr;^4;12^Q"
^DD(694.5,103,3)="Percutaneous transluminal coronary artery angioplasty."
^DD(694.5,103,21,0)="^^1^1^2910429^"
^DD(694.5,103,21,1,0)="This field identifies percutaneous transluminal coronary artery angioplasty."
^DD(694.5,103,"DT")="2900515"
^DD(694.5,104,0)="LV CONTRACTION SCORE^S^1:I    > 0.54     Normal;2:II   0.45-0.54  Mild dysfunction;3:III  0.35-0.44  Moderate dysfunction;4:IV   0.25-0.34  Severe dysfunction;5:V    <0.25      Very severe dysfunction;0:?    unknown    No LV study;^4;15^Q"
^DD(694.5,104,3)="Enter a code from 0-5 indicating the patient's LV Contraction range."
^DD(694.5,104,21,0)="^^1^1^2910429^"
^DD(694.5,104,21,1,0)="This field identifies the LV Contraction score."
^DD(694.5,104,"DT")="2900516"
^DD(694.5,105,0)="ELECTROPHYSIOLOGIC PROCEDURE^S^Y:YES;N:NO;^4;16^Q"
^DD(694.5,105,3)="Enter (Y)es or (N)o."
^DD(694.5,105,21,0)="^^1^1^2910429^"
^DD(694.5,105,21,1,0)="This field identifies the electrophysiologic procedure."
^DD(694.5,105,"DT")="2900516"
^DD(694.5,106,0)="PHYSICIAN ESTIMATE DATE^D^^4;17^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(694.5,106,3)="Enter a date (and time, if desired)."
^DD(694.5,106,21,0)="^^1^1^2910429^"
^DD(694.5,106,21,1,0)="This field identifies the physician's estimate date."
^DD(694.5,106,"DT")="2900607"
^DD(694.5,107,0)="PHYSICIAN'S ESTIMATE^NJ6,2^^4;18^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(694.5,107,1,0)="^.1"
^DD(694.5,107,1,1,0)="694.5^AG^MUMPS"
^DD(694.5,107,1,1,1)="S $P(^MCAR(694.5,DA,4),U,17)=DT"
^DD(694.5,107,1,1,2)="S $P(^MCAR(694.5,DA,4),U,18)="""""
^DD(694.5,107,1,1,"%D",0)="^^2^2^2920421^"
^DD(694.5,107,1,1,"%D",1,0)="This cross-reference updates the fields PHYSICIAN'S ESTIMATE (#107)"
^DD(694.5,107,1,1,"%D",2,0)="and PHYSICIAN'S ESTIMATE DATE (#106)."
^DD(694.5,107,1,1,"DT")="2900608"
^DD(694.5,107,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(694.5,107,21,0)="^^2^2^2940601^"
^DD(694.5,107,21,1,0)="This field identifies a number between 0 and 100, 2 decimal digits and is"
^DD(694.5,107,21,2,0)="the estimate survival rate of the patient."
^DD(694.5,107,"DT")="2900608"
^DD(694.5,"B","ACTIVE ENDOCARDITIS",24)=""
^DD(694.5,"B","AGE",3)=""
^DD(694.5,"B","ANGIOPLASTY",26)=""
^DD(694.5,"B","AORTIC SYSTOLIC PRESSURE",46)=""
^DD(694.5,"B","AORTIC VALVE REPLACEMENT",82)=""
^DD(694.5,"B","APEX",63)=""
^DD(694.5,"B","BODY SURFACE AREA",8)=""
^DD(694.5,"B","BYPASS GRAFTS WITH ARTERY",78)=""
^DD(694.5,"B","BYPASS GRAFTS WITH VEIN",77)=""
^DD(694.5,"B","CARDIAC TRANSPLANT",80)=""
^DD(694.5,"B","CARDIOMEGALY BY CHEST X-RAY",40)=""
^DD(694.5,"B","CEREBRAL VASCULAR DISEASE",32)=""
^DD(694.5,"B","CIGARETTE SMOKING (PACK YEARS)",22)=""
^DD(694.5,"B","CIRC. COR. DISTAL VES. DISEASE",72)=""
^DD(694.5,"B","CIRCUMFLEX CORONARY STENOSIS",71)=""
^DD(694.5,"B","COMA (24 HRS OR MORE)",101)=""
^DD(694.5,"B","COPD",21)=""
^DD(694.5,"B","CURRENT DIGITALIS USE",29)=""
^DD(694.5,"B","CURRENT DIURETIC USE",30)=""
^DD(694.5,"B","CURRENT SMOKER",23)=""
^DD(694.5,"B","DATE OF OPERATIVE DEATH",91)=""
^DD(694.5,"B","DATE OF PHYSICIAN'S ESTIMATE",.01)=""
^DD(694.5,"B","DATE/TIME SURGERY BEGAN",76)=""
^DD(694.5,"B","DIABETES",20)=""
^DD(694.5,"B","ELECTROPHYSIOLOGIC PROCEDURE",105)=""
^DD(694.5,"B","ENDOCARDITIS",94)=""
^DD(694.5,"B","ESTIMATE OF MORTALITY",75)=""
^DD(694.5,"B","FEV1",44)=""
^DD(694.5,"B","GENERAL MEDICAL CONDITION",73)=""
^DD(694.5,"B","GREAT VESSEL REPAIR W BYPASS",79)=""
^DD(694.5,"B","HISTORY OF CHF",28)=""
^DD(694.5,"B","HOSPITAL OF SURGERY",2)=""
^DD(694.5,"B","HT (CM)",5)=""
^DD(694.5,"B","HT (IN)",4)=""
^DD(694.5,"B","HYPERTENSION",37)=""
^DD(694.5,"B","I.V. NTG PREOPERATIVELY",25)=""
^DD(694.5,"B","INTENDED OPERATIVE PROCEDURE",75.5)=""
^DD(694.5,"B","INTEROPERATIVE USE OF BALLOON",89)=""
^DD(694.5,"B","LEFT ANT. DESC. DISTAL DISEASE",68)=""
^DD(694.5,"B","LEFT ANT. DESC. STENOSIS",67)=""
^DD(694.5,"B","LEFT MAIN CORONARY STENOSIS",66)=""
^DD(694.5,"B","LOW CARDIAC OUTPUT",96)=""
^DD(694.5,"B","LV ANEURYSECTOMY OR PLICATION",85)=""
^DD(694.5,"B","LV CONTRACTION SCORE",104)=""
^DD(694.5,"B","LV EJECTION FRACTION",60)=""
^DD(694.5,"B","LV END-DIASTOLIC PRESSURE",50)=""
^DD(694.5,"B","LV SYSTOLIC PRESSURE (mm Hg)",45)=""
^DD(694.5,"B","MEAN PA WEDGE PRESSURE (MM HG)",48)=""
^DD(694.5,"B","MEAN RA PRESSURE (mm Hg)",49)=""
^DD(694.5,"B","MEDIASTINITIS",97)=""
^DD(694.5,"B","MIDANTERIOR SEGMENT",62)=""
^DD(694.5,"B","MIDINFERIOR SEGMENT",64)=""
^DD(694.5,"B","MITRAL VALVE REPLACEMENT",81)=""
^DD(694.5,"B","NUMBER OF MAJOR CORONARIES",66.5)=""
^DD(694.5,"B","NYHA FUNCTIONAL CLASS",36)=""
^DD(694.5,"B","ON VENTILATOR (48 HRS OR MORE)",100)=""
^DD(694.5,"B","OPERATIVE DEATH",90)=""
^DD(694.5,"B","OTHER PROCEDURE(S)",86)=""
^DD(694.5,"B","PA SYSTOLIC PRESSURE (MM HG)",47)=""
^DD(694.5,"B","PATIENT",1)=""
^DD(694.5,"B","PERIOPERATIVE MYOCAR. INFARC.",93)=""
^DD(694.5,"B","PERIPHERAL VASCULAR DISEASE",31)=""
^DD(694.5,"B","PHYSICIAN ESTIMATE DATE",106)=""
^DD(694.5,"B","PHYSICIAN'S ESTIMATE",107)=""
^DD(694.5,"B","PLEURAL EFFUSION",41)=""
^DD(694.5,"B","POSTOPERATIVE IABP",92)=""
^DD(694.5,"B","PREOPERATIVE IABP",34)=""
^DD(694.5,"B","PRIOR HEART SURGERY",27)=""
^DD(694.5,"B","PRIOR MI",33.5)=""
^DD(694.5,"B","PRIOR MYOCARDIAL INFARCTION",33)=""
^DD(694.5,"B","PRIORITY OF SURGERY",74)=""
^DD(694.5,"B","PROXIMAL ANTERIOR SEGMENT",61)=""
^DD(694.5,"B","PROXIMAL INFERIOR SEGMENT",65)=""
^DD(694.5,"B","PTCA",103)=""
^DD(694.5,"B","PULMONARY RALES",38)=""
^DD(694.5,"B","R. COR. DISTAL VES. DISEASE",70)=""
^DD(694.5,"B","RENAL FAILURE",95)=""
^DD(694.5,"B","REOPERATION FOR BLEEDING",98)=""
^DD(694.5,"B","REPEAT CARDIOPULMONARY BYPASS",99)=""
^DD(694.5,"B","RESTING ST-SEGMENT DEPRESSION",39)=""
^DD(694.5,"B","RIGHT CORONARY STENOSIS",69)=""
^DD(694.5,"B","ROOM AIR PaO2",43)=""
^DD(694.5,"B","SERUM CREATININE (MG/DL)",42)=""
^DD(694.5,"B","STROKE",102)=""
^DD(694.5,"B","TOTAL CIRCULATORY ARREST",88)=""
^DD(694.5,"B","TOTAL CROSS CLAMP TIME",87)=""
^DD(694.5,"B","TRICUSPID VALVE REPLACEMENT",83)=""
^DD(694.5,"B","UNSTABLE ANGINA",35)=""
^DD(694.5,"B","VALVE REPAIR",84)=""
^DD(694.5,"B","WT (KG)",7)=""
^DD(694.5,"B","WT (LBS)",6)=""
^DD(694.5,"GL",0,1,.01)=""
^DD(694.5,"GL",0,2,1)=""
^DD(694.5,"GL",0,3,2)=""
^DD(694.5,"GL",0,4,3)=""
^DD(694.5,"GL",0,5,4)=""
^DD(694.5,"GL",0,6,5)=""
^DD(694.5,"GL",0,7,6)=""
^DD(694.5,"GL",0,8,7)=""
^DD(694.5,"GL",0,9,8)=""
^DD(694.5,"GL",1,1,20)=""
^DD(694.5,"GL",1,2,21)=""
^DD(694.5,"GL",1,3,22)=""
^DD(694.5,"GL",1,4,23)=""
^DD(694.5,"GL",1,5,24)=""
^DD(694.5,"GL",1,6,25)=""
^DD(694.5,"GL",1,7,26)=""
^DD(694.5,"GL",1,8,27)=""
^DD(694.5,"GL",1,9,28)=""
^DD(694.5,"GL",1,10,29)=""
^DD(694.5,"GL",1,11,30)=""
^DD(694.5,"GL",1,12,31)=""
^DD(694.5,"GL",1,13,32)=""
^DD(694.5,"GL",1,14,33)=""
^DD(694.5,"GL",1,15,34)=""
^DD(694.5,"GL",1,16,35)=""
^DD(694.5,"GL",1,17,36)=""
^DD(694.5,"GL",1,18,37)=""
^DD(694.5,"GL",1,19,38)=""
^DD(694.5,"GL",1,20,39)=""
^DD(694.5,"GL",1,21,40)=""
^DD(694.5,"GL",1,22,41)=""
^DD(694.5,"GL",1,23,42)=""
^DD(694.5,"GL",1,24,43)=""
^DD(694.5,"GL",1,25,44)=""
^DD(694.5,"GL",2,1,45)=""
^DD(694.5,"GL",2,2,46)=""
^DD(694.5,"GL",2,3,47)=""
^DD(694.5,"GL",2,4,48)=""
^DD(694.5,"GL",2,5,49)=""
^DD(694.5,"GL",2,6,50)=""
^DD(694.5,"GL",3,1,60)=""
^DD(694.5,"GL",3,2,61)=""
^DD(694.5,"GL",3,3,62)=""
^DD(694.5,"GL",3,4,63)=""
^DD(694.5,"GL",3,5,64)=""
^DD(694.5,"GL",3,6,65)=""
^DD(694.5,"GL",4,1,66)=""
^DD(694.5,"GL",4,2,67)=""
^DD(694.5,"GL",4,3,68)=""
^DD(694.5,"GL",4,4,69)=""
^DD(694.5,"GL",4,5,70)=""
^DD(694.5,"GL",4,6,71)=""
^DD(694.5,"GL",4,7,72)=""
^DD(694.5,"GL",4,8,73)=""
^DD(694.5,"GL",4,9,74)=""
^DD(694.5,"GL",4,10,75)=""
^DD(694.5,"GL",4,11,75.5)=""
^DD(694.5,"GL",4,12,103)=""
^DD(694.5,"GL",4,13,33.5)=""
^DD(694.5,"GL",4,14,66.5)=""
^DD(694.5,"GL",4,15,104)=""
^DD(694.5,"GL",4,16,105)=""
^DD(694.5,"GL",4,17,106)=""
^DD(694.5,"GL",4,18,107)=""
^DD(694.5,"GL",10,1,76)=""
^DD(694.5,"GL",10,2,77)=""
^DD(694.5,"GL",10,3,78)=""
^DD(694.5,"GL",10,4,79)=""
^DD(694.5,"GL",10,5,80)=""
^DD(694.5,"GL",10,6,81)=""
^DD(694.5,"GL",10,7,82)=""
^DD(694.5,"GL",10,8,83)=""
^DD(694.5,"GL",10,9,84)=""
^DD(694.5,"GL",10,10,85)=""
^DD(694.5,"GL",11,0,86)=""
^DD(694.5,"GL",13,1,87)=""
^DD(694.5,"GL",13,2,88)=""
^DD(694.5,"GL",13,3,89)=""
^DD(694.5,"GL",13,4,90)=""
^DD(694.5,"GL",13,5,91)=""
^DD(694.5,"GL",13,6,92)=""
^DD(694.5,"GL",13,7,93)=""
^DD(694.5,"GL",13,8,94)=""
^DD(694.5,"GL",13,9,95)=""
^DD(694.5,"GL",13,10,96)=""
^DD(694.5,"GL",13,11,97)=""
^DD(694.5,"GL",13,12,98)=""
^DD(694.5,"GL",13,13,99)=""
^DD(694.5,"GL",13,14,100)=""
^DD(694.5,"GL",13,15,101)=""
^DD(694.5,"GL",13,16,102)=""
^DD(694.5,"IX",.01)=""
^DD(694.5,"IX",1)=""
^DD(694.5,"IX",4)=""
^DD(694.5,"IX",5)=""
^DD(694.5,"IX",6)=""
^DD(694.5,"IX",7)=""
^DD(694.5,"IX",107)=""
^DD(694.5,"RQ",.01)=""
^DD(694.5,"RQ",1)=""
^DD(694.5,"SB",694.586,86)=""
^DD(694.586,0)="OTHER PROCEDURE(S) SUB-FIELD^^.01^1"
^DD(694.586,0,"IX","B",694.586,.01)=""
^DD(694.586,0,"NM","OTHER PROCEDURE(S)")=""
^DD(694.586,0,"UP")="694.5"
^DD(694.586,.01,0)="OTHER PROCEDURE(S)^M*P699.6'^MCAR(699.6,^0;1^S DIC(""S"")=""I $D(^MCAR(699.6,""""D"""",""""S"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(694.586,.01,1,0)="^.1"
^DD(694.586,.01,1,1,0)="694.586^B"
^DD(694.586,.01,1,1,1)="S ^MCAR(694.5,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(694.586,.01,1,1,2)="K ^MCAR(694.5,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(694.586,.01,3)="Enter an appropriate intervention code."
^DD(694.586,.01,12)="CHOOSES ALLOWABLE PROCEDURES FOR REPORT"
^DD(694.586,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(699.6,""""D"""",""""S"""",+Y))"""
^DD(694.586,.01,21,0)="^^1^1^2940706^^"
^DD(694.586,.01,21,1,0)="This allows the user to enter information about other procedures."
^DD(694.586,.01,"DT")="2890830"
^DD(694.586,"B","OTHER PROCEDURE(S)",.01)=""
^DD(694.586,"GL",0,1,.01)=""
^DD(694.586,"IX",.01)=""
^DD(694.8,0)="FIELD^^9^10"
^DD(694.8,0,"DDA")="N"
^DD(694.8,0,"DT")="2950127"
^DD(694.8,0,"IX","B",694.8,.01)=""
^DD(694.8,0,"IX","C",694.8,2)=""
^DD(694.8,0,"IX","PAR",694.802,.01)=""
^DD(694.8,0,"IX","PS",694.8,9)=""
^DD(694.8,0,"NM","PROCEDURE TERM")=""
^DD(694.8,0,"PT",694.802,.01)=""
^DD(694.8,0,"VR")="2.3"
^DD(694.8,0,"VRPK")="MEDICINE"
^DD(694.8,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>90!($L(X)<1)!'(X'?1P.E) X"
^DD(694.8,.01,1,0)="^.1"
^DD(694.8,.01,1,1,0)="694.8^B"
^DD(694.8,.01,1,1,1)="S ^MCAR(694.8,""B"",$E(X,1,90),DA)="""""
^DD(694.8,.01,1,1,2)="K ^MCAR(694.8,""B"",$E(X,1,90),DA)"
^DD(694.8,.01,1,1,"DT")="2940822"
^DD(694.8,.01,3)="Answer must be 1-90 characters in length."
^DD(694.8,.01,21,0)="^^2^2^2950510^"
^DD(694.8,.01,21,1,0)="This is the name of the procedural term used to identify clinical results"
^DD(694.8,.01,21,2,0)="sets as well as individual result atoms."
^DD(694.8,.01,"DT")="2950307"
^DD(694.8,1,0)="UNITS^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(694.8,1,3)="Answer must be 1-30 characters in length."
^DD(694.8,1,21,0)="^^3^3^2950510^"
^DD(694.8,1,21,1,0)="This generic field available to define the individual elements of the"
^DD(694.8,1,21,2,0)="term.  In the case of atomic terms this field may contain input transform"
^DD(694.8,1,21,3,0)="information."
^DD(694.8,1,"DT")="2940525"
^DD(694.8,2,0)="SYNONYM^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(694.8,2,1,0)="^.1"
^DD(694.8,2,1,1,0)="694.8^C"
^DD(694.8,2,1,1,1)="S ^MCAR(694.8,""C"",$E(X,1,30),DA)="""""
^DD(694.8,2,1,1,2)="K ^MCAR(694.8,""C"",$E(X,1,30),DA)"
^DD(694.8,2,1,1,"%D",0)="^^1^1^2940525^"
^DD(694.8,2,1,1,"%D",1,0)="This allows look-up on Synonym"
^DD(694.8,2,1,1,"DT")="2940525"
^DD(694.8,2,3)="Answer must be 1-30 characters in length."
^DD(694.8,2,21,0)="^^1^1^2950510^"
^DD(694.8,2,21,1,0)="This field is used to specify terms which mean the same as the named term."
^DD(694.8,2,"DT")="2940525"
^DD(694.8,3,0)="CODE^694.801AV^^1;0"
^DD(694.8,3,21,0)="^^2^2^2950510^"
^DD(694.8,3,21,1,0)="This multiple field allows the term to be coded to CPT and ICD procedure"
^DD(694.8,3,21,2,0)="file entries."
^DD(694.8,5,0)="PARENT^694.802PA^^3;0"
^DD(694.8,5,21,0)="^^2^2^2950510^"
^DD(694.8,5,21,1,0)="This field provides a method of screening or associating procedural terms"
^DD(694.8,5,21,2,0)="or atoms which are logically linked by the application."
^DD(694.8,6,0)="STATUS^S^1:INACTIVE;^0;4^Q"
^DD(694.8,6,21,0)="^^3^3^2950510^"
^DD(694.8,6,21,1,0)="This field allows this term to be turned on or off for selection by"
^DD(694.8,6,21,2,0)="current users of the system.  If this term is associated with a result"
^DD(694.8,6,21,3,0)="the term will always be active for display or print."
^DD(694.8,6,"DT")="2940525"
^DD(694.8,7,0)="ENTRY DATE^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(694.8,7,21,0)="^^2^2^2950510^"
^DD(694.8,7,21,1,0)="This field documents the date/time the term was added to the file for"
^DD(694.8,7,21,2,0)="auditing purposes."
^DD(694.8,7,"DT")="2940525"
^DD(694.8,7.1,0)="ENTERING USER^P200'^VA(200,^0;6^Q"
^DD(694.8,7.1,21,0)="^^2^2^2950510^"
^DD(694.8,7.1,21,1,0)="This field identifies the indivual who added this term to the file for"
^DD(694.8,7.1,21,2,0)="auditing purposes."
^DD(694.8,7.1,"DT")="2940525"
^DD(694.8,8,0)="DATE OF INACTIVITY^D^^0;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(694.8,8,21,0)="^^2^2^2950510^"
^DD(694.8,8,21,1,0)="The is date/time field documents the latest time this field was"
^DD(694.8,8,21,2,0)="inactivated."
^DD(694.8,8,"DT")="2940525"
^DD(694.8,9,0)="PROCEDURE/SUBSPECIALTY^P697.2'^MCAR(697.2,^2;1^Q"
^DD(694.8,9,1,0)="^.1"
^DD(694.8,9,1,1,0)="694.8^PS"
^DD(694.8,9,1,1,1)="S ^MCAR(694.8,""PS"",$E(X,1,30),DA)="""""
^DD(694.8,9,1,1,2)="K ^MCAR(694.8,""PS"",$E(X,1,30),DA)"
^DD(694.8,9,1,1,"%D",0)="^^2^2^2950510^"
^DD(694.8,9,1,1,"%D",1,0)="This cross reference provides a lookup by procedure/subspecialty of the"
^DD(694.8,9,1,1,"%D",2,0)="terms which reference them."
^DD(694.8,9,1,1,"DT")="2950413"
^DD(694.8,9,21,0)="^^2^2^2950510^"
^DD(694.8,9,21,1,0)="This field associates the term with a particular data set in the"
^DD(694.8,9,21,2,0)="procedure/subspecialty file."
^DD(694.8,9,"DT")="2950413"
^DD(694.8,"B","CODE",3)=""
^DD(694.8,"B","DATE OF INACTIVITY",8)=""
^DD(694.8,"B","ENTERING USER",7.1)=""
^DD(694.8,"B","ENTRY DATE",7)=""
^DD(694.8,"B","NAME",.01)=""
^DD(694.8,"B","PARENT",5)=""
^DD(694.8,"B","PROCEDURE/SUBSPECIALTY",9)=""
^DD(694.8,"B","STATUS",6)=""
^DD(694.8,"B","SYNONYM",2)=""
^DD(694.8,"B","UNITS",1)=""
^DD(694.8,"GL",0,1,.01)=""
^DD(694.8,"GL",0,2,2)=""
^DD(694.8,"GL",0,3,1)=""
^DD(694.8,"GL",0,4,6)=""
^DD(694.8,"GL",0,5,7)=""
^DD(694.8,"GL",0,6,7.1)=""
^DD(694.8,"GL",0,7,8)=""
^DD(694.8,"GL",1,0,3)=""
^DD(694.8,"GL",2,1,9)=""
^DD(694.8,"GL",3,0,5)=""
^DD(694.8,"IX",.01)=""
^DD(694.8,"IX",2)=""
^DD(694.8,"IX",9)=""
^DD(694.8,"RQ",.01)=""
^DD(694.8,"SB",694.801,3)=""
^DD(694.8,"SB",694.802,5)=""
^DD(694.801,0)="CODE SUB-FIELD^^.04^4"
^DD(694.801,0,"DT")="2940525"
^DD(694.801,0,"IX","B",694.801,.01)=""
^DD(694.801,0,"NM","CODE")=""
^DD(694.801,0,"UP")="694.8"
^DD(694.801,.01,0)="CODE^MV^^0;1^Q"
^DD(694.801,.01,1,0)="^.1^^-1"
^DD(694.801,.01,1,1,0)="694.801^B"
^DD(694.801,.01,1,1,1)="S ^MCAR(694.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(694.801,.01,1,1,2)="K ^MCAR(694.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(694.801,.01,1,1,3)="Required Index for Variable Pointer"
^DD(694.801,.01,21,0)="^^1^1^2950510^"
^DD(694.801,.01,21,1,0)="This is the reference to the appropriate coding system."
^DD(694.801,.01,"DT")="2960613"
^DD(694.801,.01,"V",0)="^.12P^4^2"
^DD(694.801,.01,"V",1,0)="81^CPT CODE^1^CPT^^n"
^DD(694.801,.01,"V",4,0)="80.1^ICD OPERATION/PROCEDURE^2^ICD^n^n"
^DD(694.801,.01,"V","B",80.1,4)=""
^DD(694.801,.01,"V","B",81,1)=""
^DD(694.801,.01,"V","M","CPT CODE",1)=""
^DD(694.801,.01,"V","M","ICD OPERATION/PROCEDURE",4)=""
^DD(694.801,.01,"V","O",1,1)=""
^DD(694.801,.01,"V","O",2,4)=""
^DD(694.801,.01,"V","P","CPT",1)=""
^DD(694.801,.01,"V","P","ICD",4)=""
^DD(694.801,.02,0)="CODING SYSTEM^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(694.801,.02,3)="Answer must be 1-30 characters in length."
^DD(694.801,.02,21,0)="^^2^2^2950510^"
^DD(694.801,.02,21,1,0)="This is the name of the coding system which is reference by the CODE"
^DD(694.801,.02,21,2,0)="field."
^DD(694.801,.02,"DT")="2940525"
^DD(694.801,.03,0)="DATE CODED^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(694.801,.03,21,0)="^^1^1^2950510^"
^DD(694.801,.03,21,1,0)="The date coded is stored here for auditing purposes."
^DD(694.801,.03,"DT")="2940525"
^DD(694.801,.04,0)="CODER ID^P200'^VA(200,^0;4^Q"
^DD(694.801,.04,21,0)="^^1^1^2950510^"
^DD(694.801,.04,21,1,0)="The name of the coder is stored here for auditing purposes."
^DD(694.801,.04,"DT")="2940525"
^DD(694.801,"B","CODE",.01)=""
^DD(694.801,"B","CODER ID",.04)=""
^DD(694.801,"B","CODING SYSTEM",.02)=""
^DD(694.801,"B","DATE CODED",.03)=""
^DD(694.801,"GL",0,1,.01)=""
^DD(694.801,"GL",0,2,.02)=""
^DD(694.801,"GL",0,3,.03)=""
^DD(694.801,"GL",0,4,.04)=""
^DD(694.801,"IX",.01)=""
^DD(694.802,0)="PARENT SUB-FIELD^^.01^1"
^DD(694.802,0,"DT")="2950127"
^DD(694.802,0,"IX","B",694.802,.01)=""
^DD(694.802,0,"NM","PARENT")=""
^DD(694.802,0,"UP")="694.8"
^DD(694.802,.01,0)="PARENT^MP694.8^MCAR(694.8,^0;1^Q"
^DD(694.802,.01,1,0)="^.1"
^DD(694.802,.01,1,1,0)="694.802^B"
^DD(694.802,.01,1,1,1)="S ^MCAR(694.8,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(694.802,.01,1,1,2)="K ^MCAR(694.8,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(694.802,.01,1,2,0)="694.8^PAR^MUMPS"
^DD(694.802,.01,1,2,1)="S ^MCAR(694.8,""PAR"",$E(X,1,30),DA(1))="""""
^DD(694.802,.01,1,2,2)="K ^MCAR(694.8,""PAR"",$E(X,1,30),DA(1))"
^DD(694.802,.01,1,2,"DT")="2950202"
^DD(694.802,.01,21,0)="^^1^1^2950510^"
^DD(694.802,.01,21,1,0)="This reference is to a procedure of which this term or atom is a member."
^DD(694.802,.01,"DT")="2950202"
^DD(694.802,"B","PARENT",.01)=""
^DD(694.802,"GL",0,1,.01)=""
^DD(694.802,"IX",.01)=""
^DD(695,0)="FIELD^^1^2"
^DD(695,0,"IX","B",695,.01)=""
^DD(695,0,"IX","C",695.01,.01)=""
^DD(695,0,"NM","MEDICATION")=""
^DD(695,0,"PT",691.01,.01)=""
^DD(695,0,"PT",691.16,.01)=""
^DD(695,0,"PT",691.53,.01)=""
^DD(695,0,"PT",691.61,.01)=""
^DD(695,0,"PT",691.71,.01)=""
^DD(695,0,"PT",691.803,.01)=""
^DD(695,0,"PT",699.38,.01)=""
^DD(695,0,"PT",701.0201,.01)=""
^DD(695,0,"VR")="2.3"
^DD(695,0,"VRPK")="MEDICINE"
^DD(695,.01,0)="GENERIC NAME^RP50'^PSDRUG(^0;1^S DINUM=X"
^DD(695,.01,1,0)="^.1^^-1"
^DD(695,.01,1,1,0)="695^B"
^DD(695,.01,1,1,1)="S ^MCAR(695,""B"",$E(X,1,30),DA)="""""
^DD(695,.01,1,1,2)="K ^MCAR(695,""B"",$E(X,1,30),DA)"
^DD(695,.01,3)=""
^DD(695,.01,4)="D HELP^MCARSUP"
^DD(695,.01,21,0)="^^3^3^2910426^"
^DD(695,.01,21,1,0)="This field contains a list of drugs used by the various medical specialties."
^DD(695,.01,21,2,0)="This list is built through management options on various Medicine package"
^DD(695,.01,21,3,0)="modules.  It is currently used by Cardiology,GI,Pulmonary, and Rheumatology."
^DD(695,.01,"DT")="2960429"
^DD(695,1,0)="MEDICAL PACKAGE USE^695.01S^^1;0"
^DD(695,1,21,0)="^^2^2^2910426^"
^DD(695,1,21,1,0)="This field is used as a screen to differentiate the various medical"
^DD(695,1,21,2,0)="specialties the drug is used by."
^DD(695,"B","GENERIC NAME",.01)=""
^DD(695,"B","MEDICAL PACKAGE USE",1)=""
^DD(695,"GL",0,1,.01)=""
^DD(695,"GL",1,0,1)=""
^DD(695,"IX",.01)=""
^DD(695,"RQ",.01)=""
^DD(695,"SB",695.01,1)=""
^DD(695.01,0)="MEDICAL PACKAGE USE SUB-FIELD^^.01^1"
^DD(695.01,0,"NM","MEDICAL PACKAGE USE")=""
^DD(695.01,0,"UP")="695"
^DD(695.01,.01,0)="MEDICAL PACKAGE USE^MRSI^C:CARDIOLOGY;G:GI;P:PULMONARY;R:RHEUMATOLOGY;^0;1^Q"
^DD(695.01,.01,1,0)="^.1"
^DD(695.01,.01,1,1,0)="695^C"
^DD(695.01,.01,1,1,1)="S ^MCAR(695,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(695.01,.01,1,1,2)="K ^MCAR(695,""C"",$E(X,1,30),DA(1),DA)"
^DD(695.01,.01,1,1,"%D",0)="^^1^1^2930903^"
^DD(695.01,.01,1,1,"%D",1,0)="This cross-reference allow screening for Medication."
^DD(695.01,.01,3)="Enter the (sub-)specialty(ies) that use this medication."
^DD(695.01,.01,21,0)="^^1^1^2910426^"
^DD(695.01,.01,21,1,0)="This field identifies the specific area of Medicine that uses this drug."
^DD(695.01,.01,"DT")="2901213"
^DD(695.01,"B","MEDICAL PACKAGE USE",.01)=""
^DD(695.01,"GL",0,1,.01)=""
^DD(695.01,"IX",.01)=""
^DD(695.01,"RQ",.01)=""
^DD(695.1,0)="FIELD^^1^2"
^DD(695.1,0,"IX","B",695.1,.01)=""
^DD(695.1,0,"NM","REGIONAL WALL MOTION")=""
^DD(695.1,0,"PT",691.04,.01)=""
^DD(695.1,0,"VR")="2.3"
^DD(695.1,0,"VRPK")="MEDICINE"
^DD(695.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(695.1,.01,1,0)="^.1"
^DD(695.1,.01,1,1,0)="695.1^B"
^DD(695.1,.01,1,1,1)="S ^MCAR(695.1,""B"",$E(X,1,30),DA)="""""
^DD(695.1,.01,1,1,2)="K ^MCAR(695.1,""B"",$E(X,1,30),DA)"
^DD(695.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(695.1,.01,21,0)="^^2^2^2910426^"
^DD(695.1,.01,21,1,0)="This field contains a list of various Regional Wall Motions used by the"
^DD(695.1,.01,21,2,0)="Echo procedure."
^DD(695.1,1,0)="CURRENT ENTRY^S^1:CURRENTLY USED ENTRY.;^0;2^Q"
^DD(695.1,1,3)="Enter 1 if this Wall Motion is being used."
^DD(695.1,1,21,0)="^^3^3^2910426^"
^DD(695.1,1,21,1,0)="This field is used as a screen to differentiate the current list of wall"
^DD(695.1,1,21,2,0)="motions from past lists without removing the data to insure backwards"
^DD(695.1,1,21,3,0)="compatibility on the Echo report."
^DD(695.1,1,"DT")="2890109"
^DD(695.1,"B","CURRENT ENTRY",1)=""
^DD(695.1,"B","NAME",.01)=""
^DD(695.1,"GL",0,1,.01)=""
^DD(695.1,"GL",0,2,1)=""
^DD(695.1,"IX",.01)=""
^DD(695.1,"RQ",.01)=""
^DD(695.3,0)="FIELD^^1^3"
^DD(695.3,0,"DT")="2960524"
^DD(695.3,0,"IX","B",695.3,.01)=""
^DD(695.3,0,"NM","CATH PROCEDURE")=""
^DD(695.3,0,"PT",691.11,.01)=""
^DD(695.3,0,"PT",691.13,.01)=""
^DD(695.3,0,"VR")="2.3"
^DD(695.3,0,"VRPK")="MEDICINE"
^DD(695.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(695.3,.01,1,0)="^.1"
^DD(695.3,.01,1,1,0)="695.3^B"
^DD(695.3,.01,1,1,1)="S ^MCAR(695.3,""B"",$E(X,1,30),DA)="""""
^DD(695.3,.01,1,1,2)="K ^MCAR(695.3,""B"",$E(X,1,30),DA)"
^DD(695.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(695.3,.01,21,0)="^^1^1^2910426^"
^DD(695.3,.01,21,1,0)="This field contains a list of various Cardiac Catheterization procedures."
^DD(695.3,.02,0)="CODE^F^^0;2^K:$L(X)>6!($L(X)<1) X"
^DD(695.3,.02,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(695.3,.02,21,0)="^^2^2^2910426^^"
^DD(695.3,.02,21,1,0)="This field is used as an alphabetic code for the procedure."
^DD(695.3,.02,21,2,0)="It ranges from 1 to 6 characters."
^DD(695.3,1,0)="PROCEDURE FIELD^P61.5'^LAB(61.5,^0;3^Q"
^DD(695.3,1,3)="Enter the Laboratory Procedure Field ID."
^DD(695.3,1,21,0)="^^1^1^2930204^^"
^DD(695.3,1,21,1,0)="This field identifies a link to the Laboratory Procedure Field file"
^DD(695.3,1,"DT")="2960524"
^DD(695.3,"B","CODE",.02)=""
^DD(695.3,"B","NAME",.01)=""
^DD(695.3,"B","PROCEDURE FIELD",1)=""
^DD(695.3,"GL",0,1,.01)=""
^DD(695.3,"GL",0,2,.02)=""
^DD(695.3,"GL",0,3,1)=""
^DD(695.3,"IX",.01)=""
^DD(695.3,"RQ",.01)=""
^DD(695.4,0)="FIELD^^1^2"
^DD(695.4,0,"IX","B",695.4,.01)=""
^DD(695.4,0,"NM","PAST HISTORY AND RISK FACTOR")=""
^DD(695.4,0,"PT",690.08,.01)=""
^DD(695.4,0,"PT",691.09,.01)=""
^DD(695.4,0,"PT",691.44,.01)=""
^DD(695.4,0,"PT",691.52,.01)=""
^DD(695.4,0,"PT",691.67,.01)=""
^DD(695.4,0,"PT",691.702,.01)=""
^DD(695.4,0,"PT",691.802,.01)=""
^DD(695.4,0,"VR")="2.3"
^DD(695.4,0,"VRPK")="MEDICINE"
^DD(695.4,.01,0)="RISK FACTOR^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(695.4,.01,1,0)="^.1"
^DD(695.4,.01,1,1,0)="695.4^B"
^DD(695.4,.01,1,1,1)="S ^MCAR(695.4,""B"",$E(X,1,40),DA)="""""
^DD(695.4,.01,1,1,2)="K ^MCAR(695.4,""B"",$E(X,1,40),DA)"
^DD(695.4,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(695.4,.01,21,0)="^^3^3^2910426^"
^DD(695.4,.01,21,1,0)="This field contains a list of risk factors and past histories that are"
^DD(695.4,.01,21,2,0)="risk factors for use by the Medicine package.  It is currently being used"
^DD(695.4,.01,21,3,0)="by the Cardiology and Pacemaker modules."
^DD(695.4,.01,"DT")="2870630"
^DD(695.4,1,0)="SURGERY RISK FACTOR?^S^1:USED AS CARDIAC SURGERY RISK FACTOR;^0;2^Q"
^DD(695.4,1,3)="ENTER '1' IF THIS RISK FACTOR IS TO BE INCLUDED ON THE OPERATIVE CARDIOLOGY RISK ASSESMENT REPORT"
^DD(695.4,1,"DT")="2890201"
^DD(695.4,"B","RISK FACTOR",.01)=""
^DD(695.4,"B","SURGERY RISK FACTOR?",1)=""
^DD(695.4,"GL",0,1,.01)=""
^DD(695.4,"GL",0,2,1)=""
^DD(695.4,"IX",.01)=""
^DD(695.4,"RQ",.01)=""
^DD(695.5,0)="FIELD^^2^3"
^DD(695.5,0,"DDA")="N"
^DD(695.5,0,"DT")="2960529"
^DD(695.5,0,"IX","B",695.5,.01)=""
^DD(695.5,0,"IX","BA",695.5,.01)=""
^DD(695.5,0,"IX","C",695.52,.01)=""
^DD(695.5,0,"NM","SYMPTOM")=""
^DD(695.5,0,"PT",691.08,.01)=""
^DD(695.5,0,"PT",691.43,.01)=""
^DD(695.5,0,"PT",691.51,.01)=""
^DD(695.5,0,"PT",691.66,.01)=""
^DD(695.5,0,"PT",691.701,.01)=""
^DD(695.5,0,"PT",691.801,.01)=""
^DD(695.5,0,"PT",699.0206,.01)=""
^DD(695.5,0,"PT",699.18,.01)=""
^DD(695.5,0,"VR")="2.3"
^DD(695.5,0,"VRPK")="MEDICINE"
^DD(695.5,.01,0)="NAME^RF^^0;1^K:$L(X)>99!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(695.5,.01,1,0)="^.1"
^DD(695.5,.01,1,1,0)="695.5^B"
^DD(695.5,.01,1,1,1)="S ^MCAR(695.5,""B"",$E(X,1,99),DA)="""""
^DD(695.5,.01,1,1,2)="K ^MCAR(695.5,""B"",$E(X,1,99),DA)"
^DD(695.5,.01,1,2,0)="695.5^BA^KWIC"
^DD(695.5,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^MCAR(695.5,""BA"",I,DA)="""""
^DD(695.5,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^MCAR(695.5,""BA"",I,DA)"
^DD(695.5,.01,1,2,"DT")="2960530"
^DD(695.5,.01,3)="ANSWER MUST BE 3-99 CHARACTERS IN LENGTH"
^DD(695.5,.01,21,0)="^^1^1^2960529^^^^"
^DD(695.5,.01,21,1,0)="This field identifies a list of symptoms for various areas of Medicine."
^DD(695.5,.01,"DT")="2960530"
^DD(695.5,1,0)="FUNCTION FIELD^P61.3'^LAB(61.3,^0;2^Q"
^DD(695.5,1,3)="Enter the Laboratory Function Field ID."
^DD(695.5,1,21,0)="^^1^1^2910426^"
^DD(695.5,1,21,1,0)="This field identifies a link to the Laboratory Function Field file."
^DD(695.5,1,"DT")="2910111"
^DD(695.5,2,0)="MEDICAL USE^695.52SA^^1;0"
^DD(695.5,2,21,0)="^^2^2^2960529^^^^"
^DD(695.5,2,21,1,0)="This field is used as a screen to associate the various symptoms with"
^DD(695.5,2,21,2,0)="the various modules of Medicine."
^DD(695.5,"B","FUNCTION FIELD",1)=""
^DD(695.5,"B","MEDICAL USE",2)=""
^DD(695.5,"B","NAME",.01)=""
^DD(695.5,"GL",0,1,.01)=""
^DD(695.5,"GL",0,2,1)=""
^DD(695.5,"GL",1,0,2)=""
^DD(695.5,"IX",.01)=""
^DD(695.5,"RQ",.01)=""
^DD(695.5,"SB",695.52,2)=""
^DD(695.52,0)="MEDICAL USE SUB-FIELD^^.01^1"
^DD(695.52,0,"DT")="2960529"
^DD(695.52,0,"NM","MEDICAL USE")=""
^DD(695.52,0,"UP")="695.5"
^DD(695.52,.01,0)="MEDICAL USE^MS^C:CARDIOLOGY;G:GI;P:PULMONARY;X:SPECIAL SYMPTOM USED WITH COUGH;ECHO:ECHO;CATH:CATH;HOLTER:HOLTER;ETT:ETT;^0;1^Q"
^DD(695.52,.01,1,0)="^.1"
^DD(695.52,.01,1,1,0)="695.5^C"
^DD(695.52,.01,1,1,1)="S ^MCAR(695.5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(695.52,.01,1,1,2)="K ^MCAR(695.5,""C"",$E(X,1,30),DA(1),DA)"
^DD(695.52,.01,1,1,"%D",0)="^^2^2^2930903^"
^DD(695.52,.01,1,1,"%D",1,0)="This cross-reference is a whole file cross-reference and allow screening of"
^DD(695.52,.01,1,1,"%D",2,0)="Medical use."
^DD(695.52,.01,3)="Enter the subspecialty or instrument that use this symptom."
^DD(695.52,.01,21,0)="^^2^2^2960529^^^^"
^DD(695.52,.01,21,1,0)="This field identifies the specific area of medicine for which this symptom "
^DD(695.52,.01,21,2,0)="is appropriate. "
^DD(695.52,.01,"DT")="2960529"
^DD(695.52,"B","MEDICAL USE",.01)=""
^DD(695.52,"GL",0,1,.01)=""
^DD(695.52,"IX",.01)=""
^DD(695.6,0)="FIELD^^.01^1"
^DD(695.6,0,"IX","B",695.6,.01)=""
^DD(695.6,0,"NM","HEART CATHETER")=""
^DD(695.6,0,"PT",691.22,.01)=""
^DD(695.6,0,"PT",691.23,.01)=""
^DD(695.6,0,"PT",691.24,.01)=""
^DD(695.6,0,"VR")="2.3"
^DD(695.6,0,"VRPK")="MEDICINE"
^DD(695.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(695.6,.01,1,0)="^.1"
^DD(695.6,.01,1,1,0)="695.6^B"
^DD(695.6,.01,1,1,1)="S ^MCAR(695.6,""B"",$E(X,1,30),DA)="""""
^DD(695.6,.01,1,1,2)="K ^MCAR(695.6,""B"",$E(X,1,30),DA)"
^DD(695.6,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(695.6,.01,21,0)="^^2^2^2910426^^"
^DD(695.6,.01,21,1,0)="This field contains a list of the various types of Heart catheters used"
^DD(695.6,.01,21,2,0)="for a heart Catheterization."
^DD(695.6,"B","NAME",.01)=""
^DD(695.6,"GL",0,1,.01)=""
^DD(695.6,"IX",.01)=""
^DD(695.6,"RQ",.01)=""
^DD(695.8,0)="FIELD^^1^2"
^DD(695.8,0,"DT")="2960509"
^DD(695.8,0,"IX","AC",695.8,1)=""
^DD(695.8,0,"IX","B",695.8,.01)=""
^DD(695.8,0,"NM","REASON (MEDICINE)")=""
^DD(695.8,0,"PT",691.7,50)=""
^DD(695.8,0,"PT",698,99)=""
^DD(695.8,0,"PT",698.1,57)=""
^DD(695.8,0,"PT",698.2,57)=""
^DD(695.8,0,"PT",698.3,55)=""
^DD(695.8,0,"PT",700.3229,.01)=""
^DD(695.8,0,"VR")="2.3"
^DD(695.8,0,"VRPK")="MEDICINE"
^DD(695.8,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(695.8,.01,1,0)="^.1"
^DD(695.8,.01,1,1,0)="695.8^B"
^DD(695.8,.01,1,1,1)="S ^MCAR(695.8,""B"",$E(X,1,60),DA)="""""
^DD(695.8,.01,1,1,2)="K ^MCAR(695.8,""B"",$E(X,1,60),DA)"
^DD(695.8,.01,3)="ANSWER MUST BE 3-60 CHARACTERS IN LENGTH"
^DD(695.8,.01,21,0)="^^2^2^2910426^^"
^DD(695.8,.01,21,1,0)="This field holds a list of Medical reasons for various areas of Medicine."
^DD(695.8,.01,21,2,0)="Examples:  Explain reasons for Pacemaker, Reason for stopping for PFT, etc."
^DD(695.8,.01,"DT")="2890118"
^DD(695.8,1,0)="MEDICIAL PACKAGE USE^S^E:REASON FOR STOPPING (ETT);P:REASON FOR PACEMAKER GENERATOR CHANGE;L:PACEMAKER LEAD CHANGE;R:REPROGAMMING PACEMAKER;T:REASON FOR TRANSMITTING REPORT;PF:REASON FOR STOPPING (PFT);^0;2^Q"
^DD(695.8,1,1,0)="^.1"
^DD(695.8,1,1,1,0)="695.8^AC"
^DD(695.8,1,1,1,1)="S ^MCAR(695.8,""AC"",$E(X,1,30),DA)="""""
^DD(695.8,1,1,1,2)="K ^MCAR(695.8,""AC"",$E(X,1,30),DA)"
^DD(695.8,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(695.8,1,1,1,"%D",1,0)="This cross-reference allow screening of reasons."
^DD(695.8,1,3)="Enter E, P, PF, L, R, or T, or ?? for further HELP."
^DD(695.8,1,21,0)="^^2^2^2960509^^"
^DD(695.8,1,21,1,0)="This field is used as a screen to differentiate which area of Medicine the"
^DD(695.8,1,21,2,0)="reason is associated with."
^DD(695.8,1,"DT")="2960509"
^DD(695.8,"B","MEDICIAL PACKAGE USE",1)=""
^DD(695.8,"B","NAME",.01)=""
^DD(695.8,"GL",0,1,.01)=""
^DD(695.8,"GL",0,2,1)=""
^DD(695.8,"IX",.01)=""
^DD(695.8,"IX",1)=""
^DD(695.8,"RQ",.01)=""
^DD(695.9,0)="FIELD^^1^2"
^DD(695.9,0,"DT")="2960524"
^DD(695.9,0,"IX","B",695.9,.01)=""
^DD(695.9,0,"NM","NORMALITY OF CORONARY VESSEL")=""
^DD(695.9,0,"PT",691.1,27)=""
^DD(695.9,0,"PT",691.1,32)=""
^DD(695.9,0,"PT",691.1,34)=""
^DD(695.9,0,"PT",691.1,39)=""
^DD(695.9,0,"VR")="2.3"
^DD(695.9,0,"VRPK")="MEDICINE"
^DD(695.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(695.9,.01,1,0)="^.1"
^DD(695.9,.01,1,1,0)="695.9^B"
^DD(695.9,.01,1,1,1)="S ^MCAR(695.9,""B"",$E(X,1,30),DA)="""""
^DD(695.9,.01,1,1,2)="K ^MCAR(695.9,""B"",$E(X,1,30),DA)"
^DD(695.9,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(695.9,.01,21,0)="^^2^2^2910426^"
^DD(695.9,.01,21,1,0)="This field contains the Coronary Vessel Normalities for various segments"
^DD(695.9,.01,21,2,0)="of the coronary vessel."
^DD(695.9,1,0)="MORPHOLOGY FIELD^P61.1'^LAB(61.1,^0;2^Q"
^DD(695.9,1,3)="Enter the Laboratory Morphology Field ID."
^DD(695.9,1,21,0)="^^1^1^2910426^"
^DD(695.9,1,21,1,0)="This field is a link to the Laboratory Morphology Field file."
^DD(695.9,1,"DT")="2960524"
^DD(695.9,"B","MORPHOLOGY FIELD",1)=""
^DD(695.9,"B","NAME",.01)=""
^DD(695.9,"GL",0,1,.01)=""
^DD(695.9,"GL",0,2,1)=""
^DD(695.9,"IX",.01)=""
^DD(695.9,"RQ",.01)=""
^DD(696,0)="FIELD^^2^3"
^DD(696,0,"DT")="2960524"
^DD(696,0,"IX","B",696,.01)=""
^DD(696,0,"NM","SEGMENT OF CORONARY ARTERIES")=""
^DD(696,0,"PT",691.27,.01)=""
^DD(696,0,"PT",691.28,.01)=""
^DD(696,0,"PT",691.28,1)=""
^DD(696,0,"PT",691.3,.01)=""
^DD(696,0,"PT",691.31,.01)=""
^DD(696,0,"PT",691.31,1)=""
^DD(696,0,"PT",691.32,.01)=""
^DD(696,0,"PT",691.33,.01)=""
^DD(696,0,"PT",691.33,1)=""
^DD(696,0,"PT",691.35,.01)=""
^DD(696,0,"PT",691.36,.01)=""
^DD(696,0,"VR")="2.3"
^DD(696,0,"VRPK")="MEDICINE"
^DD(696,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696,.01,1,0)="^.1"
^DD(696,.01,1,1,0)="696^B"
^DD(696,.01,1,1,1)="S ^MCAR(696,""B"",$E(X,1,30),DA)="""""
^DD(696,.01,1,1,2)="K ^MCAR(696,""B"",$E(X,1,30),DA)"
^DD(696,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(696,.01,21,0)="^^2^2^2910426^"
^DD(696,.01,21,1,0)="This field contains a list of various Coronary Arteries segments for use"
^DD(696,.01,21,2,0)="by the Catheterization sub-module of the Cardiology module."
^DD(696,1,0)="CODE^RS^R:RCA;L:LAD;C:CIRC;X:RCA AND LAD;Y:RCA AND CIRC;Z:LAD AND CIRC;^0;2^Q"
^DD(696,1,3)="Enter R, L, C, X, Y, Z, or ?? for further HELP."
^DD(696,1,21,0)="^^2^2^2910426^"
^DD(696,1,21,1,0)="This field is used as a screen to separate RCA, LAD, and Circumflex"
^DD(696,1,21,2,0)="segments."
^DD(696,1,"DT")="2861217"
^DD(696,2,0)="TOPOGRAPHY^P61'^LAB(61,^0;3^Q"
^DD(696,2,3)="Enter the Laboratory Topography Field ID."
^DD(696,2,21,0)="^^1^1^2910426^"
^DD(696,2,21,1,0)="This field is a link to the Laboratory Topography Field file."
^DD(696,2,"DT")="2960524"
^DD(696,"B","CODE",1)=""
^DD(696,"B","NAME",.01)=""
^DD(696,"B","TOPOGRAPHY",2)=""
^DD(696,"GL",0,1,.01)=""
^DD(696,"GL",0,2,1)=""
^DD(696,"GL",0,3,2)=""
^DD(696,"IX",.01)=""
^DD(696,"RQ",.01)=""
^DD(696,"RQ",1)=""
^DD(696.1,0)="FIELD^^1^2"
^DD(696.1,0,"IX","B",696.1,.01)=""
^DD(696.1,0,"NM","PERCENTAGE LESION")=""
^DD(696.1,0,"PT",691.27,1)=""
^DD(696.1,0,"PT",691.29,.01)=""
^DD(696.1,0,"PT",691.3,1)=""
^DD(696.1,0,"PT",691.32,1)=""
^DD(696.1,0,"PT",691.35,1)=""
^DD(696.1,0,"PT",691.36,1)=""
^DD(696.1,0,"PT",691.36,2)=""
^DD(696.1,0,"VR")="2.3"
^DD(696.1,0,"VRPK")="MEDICINE"
^DD(696.1,.01,0)="NAME^RF^^0;1^K:$L(X)>17!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696.1,.01,1,0)="^.1"
^DD(696.1,.01,1,1,0)="696.1^B"
^DD(696.1,.01,1,1,1)="S ^MCAR(696.1,""B"",$E(X,1,30),DA)="""""
^DD(696.1,.01,1,1,2)="K ^MCAR(696.1,""B"",$E(X,1,30),DA)"
^DD(696.1,.01,3)="ANSWER MUST BE 3-17 CHARACTERS IN LENGTH"
^DD(696.1,.01,21,0)="^^2^2^2910426^"
^DD(696.1,.01,21,1,0)="This field contains a list of various percentage ranges to measure"
^DD(696.1,.01,21,2,0)="narrowing, lesion, and obstruction percentages by the Catheterization file."
^DD(696.1,1,0)="PRESSURE GRADIENT^NJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(696.1,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 200"
^DD(696.1,"B","NAME",.01)=""
^DD(696.1,"B","PRESSURE GRADIENT",1)=""
^DD(696.1,"GL",0,1,.01)=""
^DD(696.1,"GL",0,2,1)=""
^DD(696.1,"IX",.01)=""
^DD(696.1,"RQ",.01)=""
^DD(696.2,0)="FIELD^^1^2"
^DD(696.2,0,"DT")="2960524"
^DD(696.2,0,"IX","B",696.2,.01)=""
^DD(696.2,0,"NM","LESION MORPHOLOGY")=""
^DD(696.2,0,"PT",691.27,2)=""
^DD(696.2,0,"PT",691.29,1)=""
^DD(696.2,0,"PT",691.3,2)=""
^DD(696.2,0,"PT",691.32,2)=""
^DD(696.2,0,"PT",691.47,1)=""
^DD(696.2,0,"VR")="2.3"
^DD(696.2,0,"VRPK")="MEDICINE"
^DD(696.2,.01,0)="NAME^RF^^0;1^K:$L(X)>25!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696.2,.01,1,0)="^.1"
^DD(696.2,.01,1,1,0)="696.2^B"
^DD(696.2,.01,1,1,1)="S ^MCAR(696.2,""B"",$E(X,1,30),DA)="""""
^DD(696.2,.01,1,1,2)="K ^MCAR(696.2,""B"",$E(X,1,30),DA)"
^DD(696.2,.01,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(696.2,.01,21,0)="^^2^2^2910426^"
^DD(696.2,.01,21,1,0)="This file holds the various morphologies for the segment fields and percent"
^DD(696.2,.01,21,2,0)="narrowing field in Catheterization."
^DD(696.2,1,0)="MORPHOLOGY FIELD^P61.1'^LAB(61.1,^0;2^Q"
^DD(696.2,1,3)="Enter the Laboratory Morphology Field ID."
^DD(696.2,1,21,0)="^^1^1^2910426^"
^DD(696.2,1,21,1,0)="This field is a link to the Laboratory Morphology Field file."
^DD(696.2,1,"DT")="2960524"
^DD(696.2,"B","MORPHOLOGY FIELD",1)=""
^DD(696.2,"B","NAME",.01)=""
^DD(696.2,"GL",0,1,.01)=""
^DD(696.2,"GL",0,2,1)=""
^DD(696.2,"IX",.01)=""
^DD(696.2,"RQ",.01)=""
^DD(696.3,0)="FIELD^^.01^1"
^DD(696.3,0,"IX","B",696.3,.01)=""
^DD(696.3,0,"NM","MORPHOLOGY OF DISTAL VESSEL")=""
^DD(696.3,0,"PT",691.1,29)=""
^DD(696.3,0,"PT",691.1,36)=""
^DD(696.3,0,"PT",691.1,41)=""
^DD(696.3,0,"VR")="2.3"
^DD(696.3,0,"VRPK")="MEDICINE"
^DD(696.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696.3,.01,1,0)="^.1"
^DD(696.3,.01,1,1,0)="696.3^B"
^DD(696.3,.01,1,1,1)="S ^MCAR(696.3,""B"",$E(X,1,30),DA)="""""
^DD(696.3,.01,1,1,2)="K ^MCAR(696.3,""B"",$E(X,1,30),DA)"
^DD(696.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(696.3,.01,21,0)="^^2^2^2910426^^"
^DD(696.3,.01,21,1,0)="This field stores the list of morphologies for Distal Vessels for use by"
^DD(696.3,.01,21,2,0)="the Cardiac Catheterization file."
^DD(696.3,"B","NAME",.01)=""
^DD(696.3,"GL",0,1,.01)=""
^DD(696.3,"IX",.01)=""
^DD(696.3,"RQ",.01)=""
^DD(696.4,0)="FIELD^^.01^1"
^DD(696.4,0,"IX","B",696.4,.01)=""
^DD(696.4,0,"NM","BYPASS GRAFT SEGMENT")=""
^DD(696.4,0,"PT",691.35,2)=""
^DD(696.4,0,"VR")="2.3"
^DD(696.4,0,"VRPK")="MEDICINE"
^DD(696.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696.4,.01,1,0)="^.1"
^DD(696.4,.01,1,1,0)="696.4^B"
^DD(696.4,.01,1,1,1)="S ^MCAR(696.4,""B"",$E(X,1,30),DA)="""""
^DD(696.4,.01,1,1,2)="K ^MCAR(696.4,""B"",$E(X,1,30),DA)"
^DD(696.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(696.4,.01,21,0)="^^2^2^2910426^"
^DD(696.4,.01,21,1,0)="This field stores a list of the various locations for Bypass Graft Segments"
^DD(696.4,.01,21,2,0)="for use by the Catheterization sub-module."
^DD(696.4,"B","NAME",.01)=""
^DD(696.4,"GL",0,1,.01)=""
^DD(696.4,"IX",.01)=""
^DD(696.4,"RQ",.01)=""
^DD(696.5,0)="FIELD^^1^2"
^DD(696.5,0,"DT")="2910917"
^DD(696.5,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(696.5,0,"IX","B",696.5,.01)=""
^DD(696.5,0,"IX","C",696.5,.01)=""
^DD(696.5,0,"IX","D",696.5,1)=""
^DD(696.5,0,"NM","LEFT VENTRICULOGRAPHY")=""
^DD(696.5,0,"PT",691.39,.01)=""
^DD(696.5,0,"VR")="2.3"
^DD(696.5,0,"VRPK")="MEDICINE"
^DD(696.5,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696.5,.01,1,0)="^.1"
^DD(696.5,.01,1,1,0)="696.5^B"
^DD(696.5,.01,1,1,1)="S ^MCAR(696.5,""B"",$E(X,1,30),DA)="""""
^DD(696.5,.01,1,1,2)="K ^MCAR(696.5,""B"",$E(X,1,30),DA)"
^DD(696.5,.01,1,2,0)="696.5^C^MUMPS"
^DD(696.5,.01,1,2,1)="S %=$P(^MCAR(696.5,DA,0),U,2) I % S ^MCAR(696.5,""D"",%,DA)="""""
^DD(696.5,.01,1,2,2)="S %=$P(^MCAR(696.5,DA,0),U,2) I % K ^MCAR(696.5,""D"",%,DA)"
^DD(696.5,.01,1,2,"%D",0)="^^1^1^2920421^"
^DD(696.5,.01,1,2,"%D",1,0)="This cross-reference indexes the file numerically by display code."
^DD(696.5,.01,1,2,"DT")="2910919"
^DD(696.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(696.5,.01,21,0)="^^2^2^2910426^"
^DD(696.5,.01,21,1,0)="This file stores a list of Left Ventricular Segments for use by the Cardiac"
^DD(696.5,.01,21,2,0)="Catheterization sub-module."
^DD(696.5,.01,"DT")="2910919"
^DD(696.5,1,0)="DISPLAY CODE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(696.5,1,1,0)="^.1"
^DD(696.5,1,1,1,0)="696.5^D"
^DD(696.5,1,1,1,1)="S ^MCAR(696.5,""D"",$E(X,1,30),DA)="""""
^DD(696.5,1,1,1,2)="K ^MCAR(696.5,""D"",$E(X,1,30),DA)"
^DD(696.5,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(696.5,1,1,1,"%D",1,0)="This cross-reference allow looks-up on Display Code."
^DD(696.5,1,1,1,"DT")="2910919"
^DD(696.5,1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(696.5,1,21,0)="^^1^1^2910917^"
^DD(696.5,1,21,1,0)="This field identifies the order corresponding to a heart diagram."
^DD(696.5,1,"DT")="2910919"
^DD(696.5,"B","DISPLAY CODE",1)=""
^DD(696.5,"B","NAME",.01)=""
^DD(696.5,"GL",0,1,.01)=""
^DD(696.5,"GL",0,2,1)=""
^DD(696.5,"IX",.01)=""
^DD(696.5,"IX",1)=""
^DD(696.5,"RQ",.01)=""
^DD(696.7,0)="FIELD^^.01^1"
^DD(696.7,0,"IX","B",696.7,.01)=""
^DD(696.7,0,"NM","MITRAL REGURG ON LV GRAM")=""
^DD(696.7,0,"PT",691.1,51)=""
^DD(696.7,0,"VR")="2.3"
^DD(696.7,0,"VRPK")="MEDICINE"
^DD(696.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696.7,.01,1,0)="^.1"
^DD(696.7,.01,1,1,0)="696.7^B"
^DD(696.7,.01,1,1,1)="S ^MCAR(696.7,""B"",$E(X,1,30),DA)="""""
^DD(696.7,.01,1,1,2)="K ^MCAR(696.7,""B"",$E(X,1,30),DA)"
^DD(696.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(696.7,.01,21,0)="^^2^2^2910426^"
^DD(696.7,.01,21,1,0)="This file holds the list of allowable Mitral Regurgitations for use by the"
^DD(696.7,.01,21,2,0)="Cardiac Catheterization file."
^DD(696.7,"B","NAME",.01)=""
^DD(696.7,"GL",0,1,.01)=""
^DD(696.7,"IX",.01)=""
^DD(696.7,"RQ",.01)=""
^DD(696.9,0)="FIELD^^1^2"
^DD(696.9,0,"IX","B",696.9,.01)=""
^DD(696.9,0,"IX","C",696.91,.01)=""
^DD(696.9,0,"NM","COMPLICATION")=""
^DD(696.9,0,"PT",691.4,.01)=""
^DD(696.9,0,"PT",691.703,.01)=""
^DD(696.9,0,"PT",694.055,.01)=""
^DD(696.9,0,"PT",699.51,.01)=""
^DD(696.9,0,"PT",699.58,.01)=""
^DD(696.9,0,"VR")="2.3"
^DD(696.9,0,"VRPK")="MEDICINE"
^DD(696.9,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(696.9,.01,1,0)="^.1"
^DD(696.9,.01,1,1,0)="696.9^B"
^DD(696.9,.01,1,1,1)="S ^MCAR(696.9,""B"",$E(X,1,30),DA)="""""
^DD(696.9,.01,1,1,2)="K ^MCAR(696.9,""B"",$E(X,1,30),DA)"
^DD(696.9,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(696.9,.01,21,0)="^^2^2^2910426^"
^DD(696.9,.01,21,1,0)="This field contains a list of complications associated with various medical"
^DD(696.9,.01,21,2,0)="procedures."
^DD(696.9,1,0)="MEDICAL PACKAGE USE^696.91S^^1;0"
^DD(696.9,1,21,0)="^^2^2^2910426^"
^DD(696.9,1,21,1,0)="This field is used as a screen to differentiate the various areas of"
^DD(696.9,1,21,2,0)="Medicine with which this complication is associated."
^DD(696.9,"B","MEDICAL PACKAGE USE",1)=""
^DD(696.9,"B","NAME",.01)=""
^DD(696.9,"GL",0,1,.01)=""
^DD(696.9,"GL",1,0,1)=""
^DD(696.9,"IX",.01)=""
^DD(696.9,"RQ",.01)=""
^DD(696.9,"SB",696.91,1)=""
^DD(696.91,0)="MEDICAL PACKAGE USE SUB-FIELD^^.01^1"
^DD(696.91,0,"NM","MEDICAL PACKAGE USE")=""
^DD(696.91,0,"UP")="696.9"
^DD(696.91,.01,0)="MEDICAL PACKAGE USE^MS^C:CATHETERIZATION;G:GI ENDOSCOPY;P:PULMONARY ENDOSCOPY;O:OUTCOME USED ON SURGICAL RISK ASSESSMENT FORM;H:HEMATOLOGY;E:EXERCISE TOLERANCE TEST;^0;1^Q"
^DD(696.91,.01,1,0)="^.1"
^DD(696.91,.01,1,1,0)="696.9^C^MUMPS"
^DD(696.91,.01,1,1,1)="S ^MCAR(696.9,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(696.91,.01,1,1,2)="K ^MCAR(696.9,""C"",$E(X,1,30),DA(1),DA)"
^DD(696.91,.01,1,1,"%D",0)="^^2^2^2920421^"
^DD(696.91,.01,1,1,"%D",1,0)="This cross-references indexes the entire file in alphabetical order "
^DD(696.91,.01,1,1,"%D",2,0)="by medical package use."
^DD(696.91,.01,3)="Enter the area(s) of Medicine that use this code."
^DD(696.91,.01,21,0)="^^2^2^2910426^"
^DD(696.91,.01,21,1,0)="This field identifies the specific Medical specialty that the complication is"
^DD(696.91,.01,21,2,0)="associated with."
^DD(696.91,.01,"DT")="2910206"
^DD(696.91,"B","MEDICAL PACKAGE USE",.01)=""
^DD(696.91,"GL",0,1,.01)=""
^DD(696.91,"IX",.01)=""
^DD(697,0)="FIELD^^2^4"
^DD(697,0,"DT")="2960524"
^DD(697,0,"IX","B",697,.01)=""
^DD(697,0,"IX","C",697.01,.01)=""
^DD(697,0,"IX","D",697.02,.01)=""
^DD(697,0,"NM","ANATOMY")=""
^DD(697,0,"PT",691.9,4)=""
^DD(697,0,"PT",692,3)=""
^DD(697,0,"PT",694,2.5)=""
^DD(697,0,"PT",699,24)=""
^DD(697,0,"PT",699,204.5)=""
^DD(697,0,"PT",699.01,.01)=""
^DD(697,0,"PT",699.75,2)=""
^DD(697,0,"VR")="2.3"
^DD(697,0,"VRPK")="MEDICINE"
^DD(697,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(697,.01,1,0)="^.1"
^DD(697,.01,1,1,0)="697^B"
^DD(697,.01,1,1,1)="S ^MCAR(697,""B"",$E(X,1,30),DA)="""""
^DD(697,.01,1,1,2)="K ^MCAR(697,""B"",$E(X,1,30),DA)"
^DD(697,.01,3)="Enter the Anatomical Location"
^DD(697,.01,21,0)="^^2^2^2910426^"
^DD(697,.01,21,1,0)="This field contains a list of body locations for use by the various medical"
^DD(697,.01,21,2,0)="procedures."
^DD(697,1,0)="*PROCEDURE^697.01P^^1;0"
^DD(697,1,21,0)="^^2^2^2920716^^"
^DD(697,1,21,1,0)="This field is used as a screen to separate the anatomy list by medical"
^DD(697,1,21,2,0)="procedure."
^DD(697,1,"DT")="2920730"
^DD(697,1.1,0)="PROCEDURE NAME^697.02^^2;0"
^DD(697,1.1,21,0)="^^1^1^2970820^^^^"
^DD(697,1.1,21,1,0)="Enter name of procedure to match that in the Procedure/Subspecialty File."
^DD(697,2,0)="TOPOGRAPHY^P61'^LAB(61,^0;2^Q"
^DD(697,2,3)="Enter the appropriate Laboratory Topography Field."
^DD(697,2,21,0)="^^1^1^2920716^^^^"
^DD(697,2,21,1,0)="This field identifies a link to the Laboratory Topography Field file."
^DD(697,2,"DT")="2960524"
^DD(697,"B","*PROCEDURE",1)=""
^DD(697,"B","NAME",.01)=""
^DD(697,"B","PROCEDURE NAME",1.1)=""
^DD(697,"B","TOPOGRAPHY",2)=""
^DD(697,"GL",0,1,.01)=""
^DD(697,"GL",0,2,2)=""
^DD(697,"GL",1,0,1)=""
^DD(697,"GL",2,0,1.1)=""
^DD(697,"IX",.01)=""
^DD(697,"RQ",.01)=""
^DD(697,"SB",697.01,1)=""
^DD(697,"SB",697.02,1.1)=""
^DD(697.01,0)="*PROCEDURE SUB-FIELD^^.01^1"
^DD(697.01,0,"IX","B",697.01,.01)=""
^DD(697.01,0,"NM","*PROCEDURE")=""
^DD(697.01,0,"UP")="697"
^DD(697.01,.01,0)="PROCEDURE^MP697.2'^MCAR(697.2,^0;1^Q"
^DD(697.01,.01,1,0)="^.1"
^DD(697.01,.01,1,1,0)="697.01^B"
^DD(697.01,.01,1,1,1)="S ^MCAR(697,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(697.01,.01,1,1,2)="K ^MCAR(697,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(697.01,.01,1,2,0)="697^C"
^DD(697.01,.01,1,2,1)="S ^MCAR(697,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(697.01,.01,1,2,2)="K ^MCAR(697,""C"",$E(X,1,30),DA(1),DA)"
^DD(697.01,.01,1,2,"%D",0)="^^1^1^2930903^"
^DD(697.01,.01,1,2,"%D",1,0)="This is a whole file cross-reference that allow look-ups on procedures."
^DD(697.01,.01,3)="Enter the specific medical procedure with which this entry is associated."
^DD(697.01,.01,21,0)="^^2^2^2920716^^"
^DD(697.01,.01,21,1,0)="This field identifies the specific medical procedure which this anatomy is"
^DD(697.01,.01,21,2,0)="associated with."
^DD(697.01,.01,"DT")="2881205"
^DD(697.01,"B","PROCEDURE",.01)=""
^DD(697.01,"GL",0,1,.01)=""
^DD(697.01,"IX",.01)=""
^DD(697.02,0)="PROCEDURE NAME SUB-FIELD^^.01^1"
^DD(697.02,0,"DT")="2920722"
^DD(697.02,0,"IX","B",697.02,.01)=""
^DD(697.02,0,"NM","PROCEDURE NAME")=""
^DD(697.02,0,"UP")="697"
^DD(697.02,.01,0)="PROCEDURE NAME^MFX^^0;1^I $D(X) N DO,DIC,DIX,Y S DIC=""^MCAR(697.2,"",DIC(0)=""QEZ"" D ^DIC S:+Y'=-1 X=$P(Y,U,2) K:+Y<0 X"
^DD(697.02,.01,1,0)="^.1"
^DD(697.02,.01,1,1,0)="697.02^B"
^DD(697.02,.01,1,1,1)="S ^MCAR(697,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(697.02,.01,1,1,2)="K ^MCAR(697,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(697.02,.01,1,2,0)="697^D"
^DD(697.02,.01,1,2,1)="S ^MCAR(697,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(697.02,.01,1,2,2)="K ^MCAR(697,""D"",$E(X,1,30),DA(1),DA)"
^DD(697.02,.01,1,2,"%D",0)="^^1^1^2930903^"
^DD(697.02,.01,1,2,"%D",1,0)="This cross-reference allow looks-up on procedure name."
^DD(697.02,.01,1,2,"DT")="2920722"
^DD(697.02,.01,3)="Enter name of Procedure to match that in the Procedure/Subspecialty File."
^DD(697.02,.01,21,0)="^^1^1^2970820^^^^"
^DD(697.02,.01,21,1,0)="This is a ""free-text"" pointer to the Procedure/Subspecialty File (#697.2)."
^DD(697.02,.01,"DT")="2970820"
^DD(697.02,"B","PROCEDURE NAME",.01)=""
^DD(697.02,"GL",0,1,.01)=""
^DD(697.02,"IX",.01)=""
^DD(697.1,0)="FIELD^^.01^1"
^DD(697.1,0,"IX","B",697.1,.01)=""
^DD(697.1,0,"NM","REFERRING PHYSICIAN/AGENCY")=""
^DD(697.1,0,"PT",691.1,4)=""
^DD(697.1,0,"VR")="2.3"
^DD(697.1,0,"VRPK")="MEDICINE"
^DD(697.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(697.1,.01,1,0)="^.1"
^DD(697.1,.01,1,1,0)="697.1^B"
^DD(697.1,.01,1,1,1)="S ^MCAR(697.1,""B"",$E(X,1,30),DA)="""""
^DD(697.1,.01,1,1,2)="K ^MCAR(697.1,""B"",$E(X,1,30),DA)"
^DD(697.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(697.1,.01,21,0)="^^2^2^2910426^"
^DD(697.1,.01,21,1,0)="This field identifies a list of non-site physicians or referring agencies that"
^DD(697.1,.01,21,2,0)="refer a patient to the VA site for a Catheterization.  This list is LAYGO."
^DD(697.1,"B","NAME",.01)=""
^DD(697.1,"GL",0,1,.01)=""
^DD(697.1,"IX",.01)=""
^DD(697.1,"RQ",.01)=""
^DD(697.2,0)="FIELD^^1001^21"
^DD(697.2,0,"DDA")="N"
^DD(697.2,0,"DT")="2970520"
^DD(697.2,0,"ID",7)="W ""   "",$P(^(0),U,8)"
^DD(697.2,0,"ID","W")="W:$D(MCGEN) ?43,""  Release Contol is turned "",$S($P(^(0),U,14):""on"",1:""off"")"
^DD(697.2,0,"IX","B",697.2,.01)=""
^DD(697.2,0,"IX","BA",697.2,7)=""
^DD(697.2,0,"IX","C",697.2,1)=""
^DD(697.2,0,"IX","D",697.2,3)=""
^DD(697.2,0,"NM","PROCEDURE/SUBSPECIALTY")=""
^DD(697.2,0,"PT",123.3,.05)=""
^DD(697.2,0,"PT",690.24,.01)=""
^DD(697.2,0,"PT",694,2)=""
^DD(697.2,0,"PT",694.8,9)=""
^DD(697.2,0,"PT",697.01,.01)=""
^DD(697.2,0,"PT",697.53,.01)=""
^DD(697.2,0,"PT",699,1)=""
^DD(697.2,0,"PT",699.5,.05)=""
^DD(697.2,0,"PT",699.5,.06)=""
^DD(697.2,0,"PT",699.551,.01)=""
^DD(697.2,0,"PT",699.571,.01)=""
^DD(697.2,0,"PT",699.61,.01)=""
^DD(697.2,0,"VR")="2.3"
^DD(697.2,0,"VRPK")="MC"
^DD(697.2,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(697.2,.01,1,0)="^.1"
^DD(697.2,.01,1,1,0)="697.2^B"
^DD(697.2,.01,1,1,1)="S ^MCAR(697.2,""B"",$E(X,1,30),DA)="""""
^DD(697.2,.01,1,1,2)="K ^MCAR(697.2,""B"",$E(X,1,30),DA)"
^DD(697.2,.01,3)="Answer must be 2-20 characters in length."
^DD(697.2,.01,21,0)="^^1^1^2970122^^^^"
^DD(697.2,.01,21,1,0)="The short names of the various medicine procedures are stored here."
^DD(697.2,.01,"DEL",1,0)="D EN^DDIOL(""Deletion is not allowed!"") I 1"
^DD(697.2,.01,"DT")="2961016"
^DD(697.2,.01,"LAYGO",1,0)="N MC S MC=+$O(^MCAR(697.2,""B"",X,0)) D:MC EN^DDIOL(""A '""_X_""' entry already exists, duplicates are not allowed."") I 'MC"
^DD(697.2,1,0)="GLOBAL LOCATION^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<5)!'(X'?1P.E)!(X'?.ANP) X"
^DD(697.2,1,1,0)="^.1"
^DD(697.2,1,1,1,0)="697.2^C"
^DD(697.2,1,1,1,1)="S ^MCAR(697.2,""C"",$E(X,1,30),DA)="""""
^DD(697.2,1,1,1,2)="K ^MCAR(697.2,""C"",$E(X,1,30),DA)"
^DD(697.2,1,1,1,"%D",0)="^^2^2^2930903^"
^DD(697.2,1,1,1,"%D",1,0)="This cross-reference allow quick access to the global location of the"
^DD(697.2,1,1,1,"%D",2,0)="procedure."
^DD(697.2,1,3)="ANSWER MUST BE 5-10 CHARACTERS IN LENGTH"
^DD(697.2,1,21,0)="^^2^2^2930916^^"
^DD(697.2,1,21,1,0)="This field stores the global reference at which data for this type of"
^DD(697.2,1,21,2,0)="medical procedure is stored."
^DD(697.2,1,"DT")="2920331"
^DD(697.2,1.1,0)="MEDICAL PATIENT FIELD NUMBER^F^^0;12^K:$L(X)>7!($L(X)<1)!'(X?.3N.1""."".3N) X"
^DD(697.2,1.1,3)="Answer must be 1-7 characters in length."
^DD(697.2,1.1,21,0)="^^3^3^2920429^^^"
^DD(697.2,1.1,21,1,0)="This is the field number of the Medical Patient field in the file"
^DD(697.2,1.1,21,2,0)="corresponding to this Procedure/Subspecialty.  The system assumes"
^DD(697.2,1.1,21,3,0)="that the field number is 1 unless another entry is made."
^DD(697.2,1.1,"DT")="2920429"
^DD(697.2,2,0)="SCREEN ONE^F^^0;3^K:$L(X)>16!($L(X)<3) X"
^DD(697.2,2,3)="ANSWER MUST BE 3-16 CHARACTERS IN LENGTH"
^DD(697.2,2,21,0)="^^2^2^2910426^"
^DD(697.2,2,21,1,0)="This holds the name of the first screen for those procedures which have a"
^DD(697.2,2,21,2,0)="screen-oriented entry."
^DD(697.2,2,"DT")="2880429"
^DD(697.2,2.1,0)="BRIEF SCREEN ONE^F^^0;13^K:$L(X)>16!($L(X)<3) X"
^DD(697.2,2.1,3)="Answer must be 3-16 characters in length."
^DD(697.2,2.1,21,0)="^^2^2^2920504^"
^DD(697.2,2.1,21,1,0)="This holds the name of the first screen for those procedures which"
^DD(697.2,2.1,21,2,0)="have a brief screen-oriented entry."
^DD(697.2,2.1,"DT")="2920504"
^DD(697.2,3,0)="TYPE OF PROCEDURE^RS^C:CARDIOLOGY;G:GI;H:HEMATOLOGY;P:PULMONARY ENDOSCOPY;Z:CONSULT;PF:PULMONARY FUNCTION TEST;R:RHEUMATOLOGY;GEN:GENERIC;I:INTERNAL;HI:INTERNAL HEMATOLOGY;N:NEUROLOGY;^0;4^Q"
^DD(697.2,3,1,0)="^.1"
^DD(697.2,3,1,1,0)="697.2^D"
^DD(697.2,3,1,1,1)="S ^MCAR(697.2,""D"",$E(X,1,30),DA)="""""
^DD(697.2,3,1,1,2)="K ^MCAR(697.2,""D"",$E(X,1,30),DA)"
^DD(697.2,3,1,1,"%D",0)="^^1^1^2930903^"
^DD(697.2,3,1,1,"%D",1,0)="This cross-reference allow screening of procedures."
^DD(697.2,3,3)="Enter the medical specialty with which this procedure is associated."
^DD(697.2,3,21,0)="^^2^2^2930730^^^^"
^DD(697.2,3,21,1,0)="This field contains the medical specialty with which the procedure is"
^DD(697.2,3,21,2,0)="associated."
^DD(697.2,3,"DT")="2930927"
^DD(697.2,4,0)="ENTRY POINT OF PRINT ROUTINE^F^^0;5^K:$L(X)>8!($L(X)<1) X"
^DD(697.2,4,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(697.2,4,21,0)="^^2^2^2890130^"
^DD(697.2,4,21,1,0)="This field contains the entry point of the print routine for use with"
^DD(697.2,4,21,2,0)="summary of patient procedures routine (MCARPS)"
^DD(697.2,4,"DT")="2890130"
^DD(697.2,5,0)="PRINT ROUTINE^F^^0;6^K:$L(X)>8!($L(X)<5) X"
^DD(697.2,5,3)="ANSWER MUST BE 5-8 CHARACTERS IN LENGTH"
^DD(697.2,5,21,0)="^^2^2^2890130^"
^DD(697.2,5,21,1,0)="This field holds the print routine name for use in the Summary of Patient"
^DD(697.2,5,21,2,0)="Procedures routine (MCARPS)"
^DD(697.2,5,"DT")="2890130"
^DD(697.2,6,0)="PRINT LINE^F^^0;7^K:$L(X)>8!($L(X)<1) X"
^DD(697.2,6,3)="Answer must be 1-8 characters in length."
^DD(697.2,6,21,0)="^^3^3^2901024^"
^DD(697.2,6,21,1,0)="This field is used if the printing of the report is done in routine"
^DD(697.2,6,21,2,0)="'MCARP'.  It sets the routine line name for use by the print routine"
^DD(697.2,6,21,3,0)="and the 'Summary of Patient Procedures'."
^DD(697.2,6,"DT")="2901024"
^DD(697.2,7,0)="PRINT NAME^RFX^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!($O(^MCAR(697.2,""BA"",X,0))) X"
^DD(697.2,7,1,0)="^.1"
^DD(697.2,7,1,1,0)="697.2^BA"
^DD(697.2,7,1,1,1)="S ^MCAR(697.2,""BA"",$E(X,1,30),DA)="""""
^DD(697.2,7,1,1,2)="K ^MCAR(697.2,""BA"",$E(X,1,30),DA)"
^DD(697.2,7,1,1,"%D",0)="^^2^2^2930903^"
^DD(697.2,7,1,1,"%D",1,0)="This cross-reference allow the quick access to the full name of the"
^DD(697.2,7,1,1,"%D",2,0)="procedure."
^DD(697.2,7,1,1,"DT")="2900629"
^DD(697.2,7,3)="Answer must be 1-30 characters in length."
^DD(697.2,7,21,0)="^^2^2^2960528^"
^DD(697.2,7,21,1,0)="This field stores the full length name of the medical procedure.  This name"
^DD(697.2,7,21,2,0)="is used on the print reports.  The name must be unique."
^DD(697.2,7,"DT")="2960528"
^DD(697.2,8,0)="USED WITH GENERIC MODULE?^S^1:YES;^0;9^Q"
^DD(697.2,8,21,0)="^^2^2^2920129^"
^DD(697.2,8,21,1,0)="This field is used to distinguish those sub-specialties entered through"
^DD(697.2,8,21,2,0)="the Generic module and the individul S.O.A.P. consults."
^DD(697.2,8,"DT")="2920129"
^DD(697.2,9,0)="INPUT TEMPLATE^FX^^0;10^K:$L(X)>30!($L(X)<3)!'$D(^DIE(""B"",X)) X"
^DD(697.2,9,3)="Answer must be 3-30 characters in length, and must uniquely identify an existing Input Template for this file."
^DD(697.2,9,21,0)="^^2^2^2920501^^"
^DD(697.2,9,21,1,0)="This field indicates what input template is to be used by File Manager"
^DD(697.2,9,21,2,0)="in performing *full* line entry/editing of the file in Field 1."
^DD(697.2,9,"DT")="2920501"
^DD(697.2,10,0)="BRIEF INPUT TEMPLATE^FX^^0;11^K:$L(X)>30!($L(X)<3)!'$D(^DIE(""B"",X)) X"
^DD(697.2,10,3)="Answer must be 3-30 characters in length, and must uniquely identify an existing brief Input Template for this file."
^DD(697.2,10,"DT")="2920501"
^DD(697.2,11,0)="MCESON^S^0:OFF;1:ON;^0;14^Q"
^DD(697.2,11,"DT")="2930216"
^DD(697.2,12,0)="MCESKEY^F^^0;15^K:$L(X)>40!($L(X)<1) X"
^DD(697.2,12,3)="Answer must be 1-40 characters in length."
^DD(697.2,12,"DT")="2930216"
^DD(697.2,13,0)="VIEWING OF SUPERSEDED RECORD^S^0:NO;1:YES;^0;16^Q"
^DD(697.2,13,21,0)="^^6^6^2930716^"
^DD(697.2,13,21,1,0)="This field allow the manager to remove previous records that has been"
^DD(697.2,13,21,2,0)="superseded from the general users and key holders."
^DD(697.2,13,21,3,0)="Answering 'Yes' will allow the non-managers to view or print"
^DD(697.2,13,21,4,0)="superseded records."
^DD(697.2,13,21,5,0)="Answering 'No' will only allow the managers to view or print superseded"
^DD(697.2,13,21,6,0)="records from the managers menu."
^DD(697.2,13,"DT")="2930715"
^DD(697.2,14,0)="RNV STATUS ON^S^0:NO;1:YES;^0;17^Q"
^DD(697.2,14,3)="Allows the manager to allow release not verified status"
^DD(697.2,14,21,0)="^^6^6^3030403^"
^DD(697.2,14,21,1,0)="This field allows the manager(s) to remove Release Not Verified as a"
^DD(697.2,14,21,2,0)="Status.  If the Manager answers ""Yes"" to RNV STATUS ON for a particular "
^DD(697.2,14,21,3,0)="Procedure/Subspecialty, then users with the subspecialty provider key"
^DD(697.2,14,21,4,0)="can select Release Not Verified.  If the Manager answers ""No"" to RNV"
^DD(697.2,14,21,5,0)="STATUS ON, the key holder can only select a verified status and must sign"
^DD(697.2,14,21,6,0)="off on it."
^DD(697.2,14,"DT")="3030403"
^DD(697.2,15,0)="VIEW ALL^S^1:YES;^0;18^Q"
^DD(697.2,15,"DT")="2930914"
^DD(697.2,16,0)="LOCALLY DEFINED^S^1:YES;^0;19^Q"
^DD(697.2,16,21,0)="^^1^1^2970327^^^"
^DD(697.2,16,21,1,0)="This field is used to identify if the procedure name is locally defined."
^DD(697.2,16,"DT")="2960524"
^DD(697.2,1000,0)="CPT^697.21PA^^CPT;0"
^DD(697.2,1001,0)="PROCEDURE/SUBSPECIALTY^RS^P:PROCEDURE;S:SUBSPECIALTY;^1;1^Q"
^DD(697.2,1001,3)="Enter P for Procedure, S for Subspecialty"
^DD(697.2,1001,21,0)="^^2^2^2970523^^^^"
^DD(697.2,1001,21,1,0)="This new field is to identify if the entry is a procedure, or a"
^DD(697.2,1001,21,2,0)="subspecialty."
^DD(697.2,1001,"DT")="2970523"
^DD(697.2,"B","BRIEF INPUT TEMPLATE",10)=""
^DD(697.2,"B","BRIEF SCREEN ONE",2.1)=""
^DD(697.2,"B","CPT",1000)=""
^DD(697.2,"B","ENTRY POINT OF PRINT ROUTINE",4)=""
^DD(697.2,"B","GLOBAL LOCATION",1)=""
^DD(697.2,"B","INPUT TEMPLATE",9)=""
^DD(697.2,"B","LOCALLY DEFINED",16)=""
^DD(697.2,"B","MCESKEY",12)=""
^DD(697.2,"B","MCESON",11)=""
^DD(697.2,"B","MEDICAL PATIENT FIELD NUMBER",1.1)=""
^DD(697.2,"B","NAME",.01)=""
^DD(697.2,"B","PRINT LINE",6)=""
^DD(697.2,"B","PRINT NAME",7)=""
^DD(697.2,"B","PRINT ROUTINE",5)=""
^DD(697.2,"B","PROCEDURE/SUBSPECIALTY",1001)=""
^DD(697.2,"B","RNV STATUS ON",14)=""
^DD(697.2,"B","SCREEN ONE",2)=""
^DD(697.2,"B","TYPE OF PROCEDURE",3)=""
^DD(697.2,"B","USED WITH GENERIC MODULE?",8)=""
^DD(697.2,"B","VIEW ALL",15)=""
^DD(697.2,"B","VIEWING OF SUPERSEDED RECORD",13)=""
^DD(697.2,"GL",0,1,.01)=""
^DD(697.2,"GL",0,2,1)=""
^DD(697.2,"GL",0,3,2)=""
^DD(697.2,"GL",0,4,3)=""
^DD(697.2,"GL",0,5,4)=""
^DD(697.2,"GL",0,6,5)=""
^DD(697.2,"GL",0,7,6)=""
^DD(697.2,"GL",0,8,7)=""
^DD(697.2,"GL",0,9,8)=""
^DD(697.2,"GL",0,10,9)=""
^DD(697.2,"GL",0,11,10)=""
^DD(697.2,"GL",0,12,1.1)=""
^DD(697.2,"GL",0,13,2.1)=""
^DD(697.2,"GL",0,14,11)=""
^DD(697.2,"GL",0,15,12)=""
^DD(697.2,"GL",0,16,13)=""
^DD(697.2,"GL",0,17,14)=""
^DD(697.2,"GL",0,18,15)=""
^DD(697.2,"GL",0,19,16)=""
^DD(697.2,"GL",1,1,1001)=""
^DD(697.2,"GL","CPT",0,1000)=""
^DD(697.2,"IX",.01)=""
^DD(697.2,"IX",1)=""
^DD(697.2,"IX",3)=""
^DD(697.2,"IX",7)=""
^DD(697.2,"RQ",.01)=""
^DD(697.2,"RQ",1)=""
^DD(697.2,"RQ",3)=""
^DD(697.2,"RQ",7)=""
^DD(697.2,"RQ",1001)=""
^DD(697.2,"SB",697.21,1000)=""
^DD(697.21,0)="CPT SUB-FIELD^^.01^1"
^DD(697.21,0,"DT")="2960611"
^DD(697.21,0,"IX","B",697.21,.01)=""
^DD(697.21,0,"NM","CPT")=""
^DD(697.21,0,"UP")="697.2"
^DD(697.21,.01,0)="CPT^MP81'^ICPT(^0;1^Q"
^DD(697.21,.01,1,0)="^.1"
^DD(697.21,.01,1,1,0)="697.21^B"
^DD(697.21,.01,1,1,1)="S ^MCAR(697.2,DA(1),""CPT"",""B"",$E(X,1,30),DA)="""""
^DD(697.21,.01,1,1,2)="K ^MCAR(697.2,DA(1),""CPT"",""B"",$E(X,1,30),DA)"
^DD(697.21,.01,3)="Enter the CPT code(s) associated with this procedure."
^DD(697.21,.01,21,0)="^^1^1^2960611^"
^DD(697.21,.01,21,1,0)="This field allows the user to associate CPT codes with a procedure."
^DD(697.21,.01,"DT")="2960611"
^DD(697.21,"B","CPT",.01)=""
^DD(697.21,"GL",0,1,.01)=""
^DD(697.21,"IX",.01)=""
^DD(697.3,0)="FIELD^^.1^10"
^DD(697.3,0,"DDA")="N"
^DD(697.3,0,"DT")="2960710"
^DD(697.3,0,"ID",.08)="W ""   "",$P(^(0),U,7)"
^DD(697.3,0,"IX","AC",697.3,.01)=""
^DD(697.3,0,"IX","B",697.3,.01)=""
^DD(697.3,0,"IX","C",697.3,.08)=""
^DD(697.3,0,"NM","MEDICINE SCREEN (USER)")=""
^DD(697.3,0,"VR")="2.3"
^DD(697.3,0,"VRPK")="MC"
^DD(697.3,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?1P.E) X"
^DD(697.3,.01,1,0)="^.1"
^DD(697.3,.01,1,1,0)="697.3^B"
^DD(697.3,.01,1,1,1)="S ^MCAR(697.3,""B"",$E(X,1,30),DA)="""""
^DD(697.3,.01,1,1,2)="K ^MCAR(697.3,""B"",$E(X,1,30),DA)"
^DD(697.3,.01,1,2,0)="697.3^AC^MUMPS"
^DD(697.3,.01,1,2,1)="Q"
^DD(697.3,.01,1,2,2)="S DJ3=$P(^MCAR(697.3,DA,0),U,3),DJ5=$P(^MCAR(697.3,DA,0),U,5) S:DJ3'="""" DJ3=$O(^MCAR(697.3,""B"",DJ3,0)) S:DJ3 $P(^MCAR(697.3,DJ3,0),""^"",5)="""" S:DJ5'="""" DJ5=$O(^MCAR(697.3,""B"",DJ5,0)) S:DJ5 $P(^MCAR(697.3,DJ5,0),""^"",3)="""" K DJ3,DJ5"
^DD(697.3,.01,1,2,"%D",0)="^^3^3^2930528^^^^"
^DD(697.3,.01,1,2,"%D",1,0)="This cross-reference acts upon deletion of the screen to (1) remove the"
^DD(697.3,.01,1,2,"%D",2,0)="rightlinked pointer from the previous screen and (2) remove the previous"
^DD(697.3,.01,1,2,"%D",3,0)="pointer from the rightlinked screen."
^DD(697.3,.01,1,2,"DT")="2930528"
^DD(697.3,.01,3)="ANSWER MUST BE 3-16 CHARACTERS IN LENGTH"
^DD(697.3,.01,21,0)="^^2^2^2930309^^^^"
^DD(697.3,.01,21,1,0)="This field contains the screen name associated with a display of entries."
^DD(697.3,.01,21,2,0)="The name should start with 'MC' (Medicine Namespace Characters.)"
^DD(697.3,.01,"DT")="2930528"
^DD(697.3,.02,0)="MAXLINE^RNJ2,0^^0;2^K:+X'=X!(X>15)!(X<15)!(X?.E1"".""1N.N) X"
^DD(697.3,.02,3)="Type a Number between 15 and 15"
^DD(697.3,.02,21,0)="^^2^2^2870922^"
^DD(697.3,.02,21,1,0)="This field contains the maximum length used by the screen display.  It"
^DD(697.3,.02,21,2,0)="can not exceed 15 lines.  The system computes this field automatically."
^DD(697.3,.03,0)="PREVIOUS^FX^^0;3^K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^MCAR(697.3,""B"",X)) S DIC(0)=""L"",DIC=""^MCAR(697.3,"" D ^DIC"
^DD(697.3,.03,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(697.3,.03,21,0)="^^3^3^2870922^"
^DD(697.3,.03,21,1,0)="This field is only applicable to multiple page screens.  This field points"
^DD(697.3,.03,21,2,0)="to the previous screen name. It is a free text pointer entered by the"
^DD(697.3,.03,21,3,0)="system automatically."
^DD(697.3,.04,0)="SECURITY^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(697.3,.04,3)="Answer must be 1-10 characters in length."
^DD(697.3,.04,21,0)="^^2^2^2870922^"
^DD(697.3,.04,21,1,0)="This field is set automatically to the write (WR) security of the file"
^DD(697.3,.04,21,2,0)="selected by the user, at the time the file is created."
^DD(697.3,.04,"DT")="2890329"
^DD(697.3,.05,0)="RIGHTLINKED^FX^^0;5^K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^MCAR(697.3,""B"",X)) S DIC(0)=""L"",DIC=""^MCAR(697.3,"" D ^DIC"
^DD(697.3,.05,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(697.3,.05,21,0)="^^3^3^2870923^^"
^DD(697.3,.05,21,1,0)="This field is only applicable to multiple page screens.  This field"
^DD(697.3,.05,21,2,0)="contains the name of the screen to be executed next.  It is a free text"
^DD(697.3,.05,21,3,0)="pointer entered by the system automatically."
^DD(697.3,.06,0)="DD NUMBER^RNJ8,0X^^0;6^S DIC=""^DIC("",DIC(0)=""ENQ"",DIC(""S"")=$S(DUZ(0)'=""@"":""I 1 Q:'$D(^DIC(+Y,0,""""WR""""))  F DJX=1:1:$L(^(""""WR"""")) I DUZ(0)[$E(^(""""WR""""),DJX) Q"",1:""I Y-1"") D ^DIC S X=+Y K:Y'>0 X"
^DD(697.3,.06,3)="Type a Legal Data Definition Number between 0 and 99999999"
^DD(697.3,.06,4)="S ZD=D,X=""?"" S DIC=""^DIC("",DIC(0)=""ENQ"",DIC(""S"")=$S(DUZ(0)'=""@"":""I 1 Q:'$D(^DIC(+Y,0,""""WR""""))  F DJX=1:1:$L(^(""""WR"""")) I DUZ(0)[$E(^(""""WR""""),DJX) Q"",1:""I Y-1"") D ^DIC S DIC=DIE,D=ZD K ZD,DIC(""S"")"
^DD(697.3,.06,21,0)="^^2^2^2960605^^^"
^DD(697.3,.06,21,1,0)="The contents of this field should be a legal Data Definition (DD) number."
^DD(697.3,.06,21,2,0)="It could be a first level."
^DD(697.3,.07,0)="ENTRY DEFINITIONS^697.31I^^1;0"
^DD(697.3,.07,21,0)="^^1^1^2930527^^^"
^DD(697.3,.07,21,1,0)="This field defines the elements that make up the screen."
^DD(697.3,.08,0)="DESCRIPTION^RF^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>64!($L(X)<2) X"
^DD(697.3,.08,1,0)="^.1"
^DD(697.3,.08,1,1,0)="697.3^C"
^DD(697.3,.08,1,1,1)="S ^MCAR(697.3,""C"",$E(X,1,30),DA)="""""
^DD(697.3,.08,1,1,2)="K ^MCAR(697.3,""C"",$E(X,1,30),DA)"
^DD(697.3,.08,1,1,"DT")="2931230"
^DD(697.3,.08,3)="ANSWER MUST BE 2-64 CHARACTERS IN LENGTH"
^DD(697.3,.08,21,0)="^^2^2^2870923^"
^DD(697.3,.08,21,1,0)="The data entered in this field will be displayed at the top of the screen"
^DD(697.3,.08,21,2,0)="display as a title with the current date."
^DD(697.3,.08,"DT")="2931230"
^DD(697.3,.09,0)="FILE LEVEL^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(697.3,.09,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(697.3,.09,21,0)="^^2^2^2870923^"
^DD(697.3,.09,21,1,0)="This field keeps track of the level of the screen display with respect"
^DD(697.3,.09,21,2,0)="to the hierarchy of the file."
^DD(697.3,.09,"DT")="2870923"
^DD(697.3,.1,0)="HIGHEST NUMBER USED^NJ4,1^^0;9^K:+X'=X!(X>99)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(697.3,.1,3)="Type a Number between .1 and 99"
^DD(697.3,.1,21,0)="^^2^2^2870923^"
^DD(697.3,.1,21,1,0)="This field contains the highest number used in the screen display.  It is"
^DD(697.3,.1,21,2,0)="used when continuing adding entries."
^DD(697.3,.1,"DT")="2870923"
^DD(697.3,"B","DD NUMBER",.06)=""
^DD(697.3,"B","DESCRIPTION",.08)=""
^DD(697.3,"B","ENTRY DEFINITIONS",.07)=""
^DD(697.3,"B","FILE LEVEL",.09)=""
^DD(697.3,"B","HIGHEST NUMBER USED",.1)=""
^DD(697.3,"B","MAXLINE",.02)=""
^DD(697.3,"B","NAME",.01)=""
^DD(697.3,"B","PREVIOUS",.03)=""
^DD(697.3,"B","RIGHTLINKED",.05)=""
^DD(697.3,"B","SECURITY",.04)=""
^DD(697.3,"GL",0,1,.01)=""
^DD(697.3,"GL",0,2,.02)=""
^DD(697.3,"GL",0,3,.03)=""
^DD(697.3,"GL",0,4,.04)=""
^DD(697.3,"GL",0,5,.05)=""
^DD(697.3,"GL",0,6,.06)=""
^DD(697.3,"GL",0,7,.08)=""
^DD(697.3,"GL",0,8,.09)=""
^DD(697.3,"GL",0,9,.1)=""
^DD(697.3,"GL",1,0,.07)=""
^DD(697.3,"IX",.01)=""
^DD(697.3,"IX",.08)=""
^DD(697.3,"RQ",.01)=""
^DD(697.3,"RQ",.02)=""
^DD(697.3,"RQ",.06)=""
^DD(697.3,"RQ",.08)=""
^DD(697.3,"SB",697.31,.07)=""
^DD(697.31,0)="ENTRY DEFINITIONS SUB-FIELD^^6^12"
^DD(697.31,0,"DT")="2960710"
^DD(697.31,0,"ID",.11)="W ""   "",$P(^(0),U,13)"
^DD(697.31,0,"IX","A",697.31,.11)=""
^DD(697.31,0,"IX","AC",697.31,.07)=""
^DD(697.31,0,"IX","B",697.31,.01)=""
^DD(697.31,0,"NM","ENTRY DEFINITIONS")=""
^DD(697.31,0,"UP")="697.3"
^DD(697.31,.01,0)="LABEL^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(697.31,.01,1,0)="^.1"
^DD(697.31,.01,1,1,0)="697.31^B"
^DD(697.31,.01,1,1,1)="S ^MCAR(697.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(697.31,.01,1,1,2)="K ^MCAR(697.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(697.31,.01,3)="Enter a 3 to 30 character label for this screen entry.  This label will be displayed when the screen is executed."
^DD(697.31,.01,21,0)="^^5^5^2910426^^^^"
^DD(697.31,.01,21,1,0)="This field identifies new elements to a screen (OPTION 1) select a valid field"
^DD(697.31,.01,21,2,0)="name or field number.  The field name that you select will be the label"
^DD(697.31,.01,21,3,0)="displayed on your screen.  You may change this label as desired."
^DD(697.31,.01,21,4,0)=" To see a list of other commands you can enter at the label prompt type"
^DD(697.31,.01,21,5,0)="up-arrow C (^C)."
^DD(697.31,.02,0)="START X-Y^RF^^0;2^K:$L(X)>11!($L(X)<3) X"
^DD(697.31,.02,3)="ANSWER MUST BE 3-11 CHARACTERS IN LENGTH"
^DD(697.31,.02,21,0)="^^2^2^2910426^"
^DD(697.31,.02,21,1,0)="This field identifies the starting X-Y co-ordinates of the label (including"
^DD(697.31,.02,21,2,0)="the entry  number).  The co-ordinates are in the format: DX=number,DY=number."
^DD(697.31,.03,0)="FIELD LENGTH^RNJ3,0^^0;3^K:+X'=X!(X>200)!(X<3)!(X?.E1"".""1N.N) X"
^DD(697.31,.03,3)="Type a Number between 3 and 200, 0 Decimal Digits"
^DD(697.31,.03,21,0)="^^1^1^2870922^"
^DD(697.31,.03,21,1,0)="This field identifies the length of your data."
^DD(697.31,.03,"DT")="2960710"
^DD(697.31,.04,0)="END X-Y^RF^^0;4^K:$L(X)>11!($L(X)<6) X"
^DD(697.31,.04,3)="ANSWER MUST BE 6-11 CHARACTERS IN LENGTH"
^DD(697.31,.04,21,0)="^^3^3^2910426^"
^DD(697.31,.04,21,1,0)="This field identifies the ending X-Y co-ordinates of the label (Including"
^DD(697.31,.04,21,2,0)="Entry number, the label, and any following punctuation.)  The co-ordinates are"
^DD(697.31,.04,21,3,0)="in the format:  DX=number,DY=number."
^DD(697.31,.05,0)="ATTRIBUTE NR^RNJ11,4^^0;5^K:+X'=X!(X>999999)!(X<-1)!(X?.E1"".""5N.N) X"
^DD(697.31,.05,3)="Type a Number between -1 and 999999, 4 Decimal Digits"
^DD(697.31,.05,21,0)="^^1^1^2910426^"
^DD(697.31,.05,21,1,0)="This field contains the file attribute number for the data."
^DD(697.31,.05,"DT")="2871020"
^DD(697.31,.06,0)="TYPE^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(697.31,.06,3)="Answer must be 1-20 characters in length."
^DD(697.31,.06,21,0)="^^3^3^2920309^^"
^DD(697.31,.06,21,1,0)="This field is similar to the descriptor in the Data Dictionary.  It allows"
^DD(697.31,.06,21,2,0)="the screen management system to decide whether the data is a set of codes,"
^DD(697.31,.06,21,3,0)="free text, pointer file, etc."
^DD(697.31,.06,"DT")="2920309"
^DD(697.31,.07,0)="RD(ONLY)^S^1:YES;0:NO;^0;7^Q"
^DD(697.31,.07,1,0)="^.1"
^DD(697.31,.07,1,1,0)="697.31^AC^MUMPS"
^DD(697.31,.07,1,1,1)="I X=1&(^MCAR(697.3,DA(1),1,DA,0)'[""(R)"") S $P(^(0),U,4)=$P($P(^(0),U,4),""X="",1)_""X=""_($P($P(^(0),U,4),""X="",2)+3) X ^DD(697.31,.07,1,1,1.1) Q"
^DD(697.31,.07,1,1,1.1)="S DIV=$P(^MCAR(697.3,DA(1),1,DA,0),U,1),$P(^(0),U,1)=DIV_""(R)"",^MCAR(697.3,DA(1),1,""B"",DIV_""(R)"",DA)="""" K ^MCAR(697.3,DA(1),1,""B"",DIV,DA),DIV Q"
^DD(697.31,.07,1,1,1.2)="I ^MCAR(697.3,DA(1),1,DA,0)[""(R)"" S DIV2=$P(^(0),""(R)"",1),DIV=$P(^(0),U,10)-3,DIV1=$P(^(0),U,4),DIV1=$P(DIV1,""DX="",1)_""DX=""_DIV X ^DD(697.31,.07,1,1,1.3)"
^DD(697.31,.07,1,1,1.3)="S ^MCAR(697.3,DA(1),1,DA,0)=DIV2_""^""_$P(^MCAR(697.3,DA(1),1,DA,0),""^"",2,3)_""^""_DIV1_""^""_$P(^(0),""^"",5,9)_""^""_DIV_""^""_$P(^(0),""^"",11,15) K DIV,DIV1,DIV2"
^DD(697.31,.07,1,1,2)="I ^MCAR(697.3,DA(1),1,DA,0)[""(R)"" S DIV=$P(^(0),U,1),$P(^(0),U,1)=$P(^(0),""(R)"",1),$P(^(0),U,4)=$P($P(^(0),U,4),""X="",1)_""X=""_($P($P(^(0),U,4),""X="",2)-3) X ^DD(697.31,.07,1,1,2.1) Q"
^DD(697.31,.07,1,1,2.1)="S ^MCAR(697.3,DA(1),1,""B"",$P(^MCAR(697.3,DA(1),1,DA,0),U,1),DA)="""" K ^MCAR(697.3,DA(1),1,""B"",DIV,DA),DIV Q"
^DD(697.31,.07,1,1,"%D",0)="^^2^2^2920421^"
^DD(697.31,.07,1,1,"%D",1,0)="This cross-reference controls the definition of cursor addresses for"
^DD(697.31,.07,1,1,"%D",2,0)="read-only fields."
^DD(697.31,.07,3)="Is this field for display only?"
^DD(697.31,.07,21,0)="^^2^2^2870922^"
^DD(697.31,.07,21,1,0)="This field is used to indicate 'DISPLAY' only of data.  This means no"
^DD(697.31,.07,21,2,0)="updating is allowed."
^DD(697.31,.11,0)="ENTRY NUM^RNJ4,1X^^0;13^K:+X'=X!(X>99.9)!(X<.1)!(X?.E1"".""2N.N)!($D(^MCAR(697.3,DA(1),1,""A"",X))) X"
^DD(697.31,.11,1,0)="^.1"
^DD(697.31,.11,1,1,0)="697.31^A"
^DD(697.31,.11,1,1,1)="S ^MCAR(697.3,DA(1),1,""A"",$E(X,1,30),DA)="""""
^DD(697.31,.11,1,1,2)="K ^MCAR(697.3,DA(1),1,""A"",$E(X,1,30),DA)"
^DD(697.31,.11,1,1,"%D",0)="^^1^1^2930903^"
^DD(697.31,.11,1,1,"%D",1,0)="This cross-reference allow the screen handler to get the Entry number."
^DD(697.31,.11,3)="Type a Number between .1 and 99.9, no duplicates are allowed."
^DD(697.31,.11,21,0)="^^3^3^2910426^^^^"
^DD(697.31,.11,21,1,0)="This field identifies the entry number that shows on the screen for this data"
^DD(697.31,.11,21,2,0)="element. Numbers with a decimal point are used for subtitles, that is no data"
^DD(697.31,.11,21,3,0)="is associated with them."
^DD(697.31,.11,"DT")="2870923"
^DD(697.31,1,0)="POST ACTION CODE^FX^^1;E1,200^K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)"
^DD(697.31,1,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)"
^DD(697.31,1,21,0)="^^2^2^2910426^^^"
^DD(697.31,1,21,1,0)="This field identifies standard MUMPS code that is executed after the"
^DD(697.31,1,21,2,0)="entering/editing of data for this entry."
^DD(697.31,2,0)="PRE ACTION CODE^FX^^2;E1,200^K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)"
^DD(697.31,2,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)"
^DD(697.31,2,21,0)="^^2^2^2910426^^"
^DD(697.31,2,21,1,0)="This field identifies standard MUMPS code that is executed prior to the"
^DD(697.31,2,21,2,0)="entering or editing of data for this entry."
^DD(697.31,5,0)="MULTIPLE SCREEN NAME^FX^^0;12^K:$L(X)>16!($L(X)<4) X ;I $D(X),'$D(^MCAR(697.3,DA(1),""B"",X)) K X"
^DD(697.31,5,3)="This entry is automatically generated by the system."
^DD(697.31,5,21,0)="^^3^3^2910426^^"
^DD(697.31,5,21,1,0)="This field identifies the name of the subscreen to branch to for a multiple"
^DD(697.31,5,21,2,0)="field. This subscreen will be executed ONLY IF the subscreen has more than a"
^DD(697.31,5,21,3,0)=".01 data point."
^DD(697.31,5,"DT")="2901004"
^DD(697.31,6,0)="DEFAULT VALUE^FX^^3;1^K:$L(X)>30!($L(X)<1)!($P(^MCAR(697.3,DA(1),DA,0),""^"",5)=.01)!($P(^(0),""^"",6)[""C"")!($P(^(0),""^"",7)) X"
^DD(697.31,6,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH.  Not applicable to .01, computed, or read only fields"
^DD(697.31,6,21,0)="^^2^2^2870922^^"
^DD(697.31,6,21,1,0)="Enter a legitimate default value for this field.  .01 Fields as well as"
^DD(697.31,6,21,2,0)="computed or read only are not allowed."
^DD(697.31,"B","ATTRIBUTE NR",.05)=""
^DD(697.31,"B","DEFAULT VALUE",6)=""
^DD(697.31,"B","END X-Y",.04)=""
^DD(697.31,"B","ENTRY NUM",.11)=""
^DD(697.31,"B","FIELD LENGTH",.03)=""
^DD(697.31,"B","LABEL",.01)=""
^DD(697.31,"B","MULTIPLE SCREEN NAME",5)=""
^DD(697.31,"B","POST ACTION CODE",1)=""
^DD(697.31,"B","PRE ACTION CODE",2)=""
^DD(697.31,"B","RD(ONLY)",.07)=""
^DD(697.31,"B","START X-Y",.02)=""
^DD(697.31,"B","TYPE",.06)=""
^DD(697.31,"GL",0,1,.01)=""
^DD(697.31,"GL",0,2,.02)=""
^DD(697.31,"GL",0,3,.03)=""
^DD(697.31,"GL",0,4,.04)=""
^DD(697.31,"GL",0,5,.05)=""
^DD(697.31,"GL",0,6,.06)=""
^DD(697.31,"GL",0,7,.07)=""
^DD(697.31,"GL",0,12,5)=""
^DD(697.31,"GL",0,13,.11)=""
^DD(697.31,"GL",1,"E1,200",1)=""
^DD(697.31,"GL",2,"E1,200",2)=""
^DD(697.31,"GL",3,1,6)=""
^DD(697.31,"IX",.01)=""
^DD(697.31,"IX",.07)=""
^DD(697.31,"IX",.11)=""
^DD(697.31,"RQ",.02)=""
^DD(697.31,"RQ",.03)=""
^DD(697.31,"RQ",.04)=""
^DD(697.31,"RQ",.05)=""
^DD(697.31,"RQ",.11)=""
^DD(697.5,0)="FIELD^^4^6"
^DD(697.5,0,"DT")="2960510"
^DD(697.5,0,"IX","B",697.5,.01)=""
^DD(697.5,0,"IX","C",697.5,.01)=""
^DD(697.5,0,"IX","D",697.53,.01)=""
^DD(697.5,0,"IX","E",697.5,.01)=""
^DD(697.5,0,"IX","F",697.53,.01)=""
^DD(697.5,0,"IX","G",697.5,.01)=""
^DD(697.5,0,"IX","H",697.5,2)=""
^DD(697.5,0,"IX","I",697.55,.01)=""
^DD(697.5,0,"NM","MEDICAL DIAGNOSIS/ICD CODES")=""
^DD(697.5,0,"PT",691.15,.01)=""
^DD(697.5,0,"PT",691.18,.01)=""
^DD(697.5,0,"PT",691.8,6)=""
^DD(697.5,0,"PT",691.805,.01)=""
^DD(697.5,0,"PT",694.035,.01)=""
^DD(697.5,0,"PT",694.038,.01)=""
^DD(697.5,0,"PT",699,204)=""
^DD(697.5,0,"PT",699.01,6)=""
^DD(697.5,0,"PT",699.75,.01)=""
^DD(697.5,0,"PT",700.01,.01)=""
^DD(697.5,0,"PT",701.0615,.01)=""
^DD(697.5,0,"VR")="2.3"
^DD(697.5,0,"VRPK")="MEDICINE"
^DD(697.5,.01,0)="DIAGNOSIS^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(697.5,.01,1,0)="^.1"
^DD(697.5,.01,1,1,0)="697.5^B"
^DD(697.5,.01,1,1,1)="S ^MCAR(697.5,""B"",$E(X,1,30),DA)="""""
^DD(697.5,.01,1,1,2)="K ^MCAR(697.5,""B"",$E(X,1,30),DA)"
^DD(697.5,.01,1,2,0)="697.5^C^KWIC"
^DD(697.5,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^MCAR(697.5,""C"",I,DA)="""""
^DD(697.5,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^MCAR(697.5,""C"",I,DA)"
^DD(697.5,.01,1,2,"%D",0)="^^2^2^2920421^"
^DD(697.5,.01,1,2,"%D",1,0)="This cross-reference indexes the file by each key word in the DIAGNOSIS"
^DD(697.5,.01,1,2,"%D",2,0)="field (#1)."
^DD(697.5,.01,1,3,0)="697.5^E^MUMPS"
^DD(697.5,.01,1,3,1)="F %=0:0 S %=$O(^MCAR(697.5,DA,4,%)) Q:%'>0  I $D(^(%,0)) S %1=$P(^(0),U,1) I $L(%1) S ^MCAR(697.5,""A.""_%1,X,DA)="""""
^DD(697.5,.01,1,3,2)="F %=0:0 S %=$O(^MCAR(697.5,DA,4,%)) Q:%'>0  I $D(^(%,0)) S %1=$P(^(0),U,1) I $L(%1) K ^MCAR(697.5,""A.""_%1,X,DA)"
^DD(697.5,.01,1,3,"%D",0)="^^1^1^2920810^^^^"
^DD(697.5,.01,1,3,"%D",1,0)="Sorts Diagnosis by Procedure Types"
^DD(697.5,.01,1,3,"DT")="2920810"
^DD(697.5,.01,1,4,0)="697.5^G^MUMPS"
^DD(697.5,.01,1,4,1)="I $D(^MCAR(697.5,DA,3)) S %=$P(^(3),U),^MCAR(697.5,""A.""_%,X,DA)="""""
^DD(697.5,.01,1,4,2)="I $D(^MCAR(697.5,DA,3)) S %=$P(^(3),U) K ^MCAR(697.5,""A.""_%,X,DA)"
^DD(697.5,.01,1,4,"%D",0)="^^1^1^2920804^^^^"
^DD(697.5,.01,1,4,"%D",1,0)="This stores the list of special diagnosis types"
^DD(697.5,.01,1,4,"DT")="2911026"
^DD(697.5,.01,3)="Answer must be 3-50 characters in length."
^DD(697.5,.01,21,0)="^^1^1^2910426^"
^DD(697.5,.01,21,1,0)="This field identifies a list of diagnoses for the various medical tests."
^DD(697.5,.01,"DT")="2960510"
^DD(697.5,1,0)="ICD CODE^697.51PA^^2;0"
^DD(697.5,1,21,0)="^^4^4^2920716^^^"
^DD(697.5,1,21,1,0)="This field is a multiple field which stores ICD codes for the various"
^DD(697.5,1,21,2,0)="Diagnoses. It is not being used at the present time and is expected to"
^DD(697.5,1,21,3,0)="be converted to a singular field, so as to facilitate looking up diagnoses"
^DD(697.5,1,21,4,0)="by ICD code, in the future."
^DD(697.5,2,0)="SPECIAL DIAGNOSIS TYPE^*S^H:HEMATOLOGY-PROVISIONAL DIAGNOSIS;HF:HEMATOLOGY-FINAL DIAGNOSIS;PC:PFT CONSULT DIAGNOSIS;C:CARDIOLOGY DIAGNOSIS;G:GI DIAGNOSIS;P:PULMONARY DIAGNOSIS;^3;1^Q"
^DD(697.5,2,1,0)="^.1"
^DD(697.5,2,1,1,0)="697.5^H^MUMPS"
^DD(697.5,2,1,1,1)="S ^MCAR(697.5,""A.""_X,$P(^MCAR(697.5,DA,0),U),DA)="""""
^DD(697.5,2,1,1,2)="K ^MCAR(697.5,""A.""_X,$P(^MCAR(697.5,DA,0),U),DA)"
^DD(697.5,2,1,1,"%D",0)="^^1^1^2920804^^"
^DD(697.5,2,1,1,"%D",1,0)="Sets Special Diagnosis Type List"
^DD(697.5,2,1,1,"DT")="2911026"
^DD(697.5,2,3)="Enter the procedure/subspecialty code to which this diagnosis applies."
^DD(697.5,2,12)="Codes C, G, and P are no longer used."
^DD(697.5,2,12.1)="S DIC(""S"")=""I """"^C^G^P^""""'[(U_Y_U)"""
^DD(697.5,2,21,0)="^^2^2^2960510^^^"
^DD(697.5,2,21,1,0)="This field is used as a screen to allow separation of diagnoses within"
^DD(697.5,2,21,2,0)="a specified procedure."
^DD(697.5,2,"DT")="2960510"
^DD(697.5,3,0)="*PROCEDURE^697.53P^^1;0"
^DD(697.5,3,21,0)="^^2^2^2920716^^"
^DD(697.5,3,21,1,0)="This field stores the various procedures with which the diagnosis is"
^DD(697.5,3,21,2,0)="applicable."
^DD(697.5,3,"DT")="2920805"
^DD(697.5,3.1,0)="PROCEDURE NAME^697.55^^4;0"
^DD(697.5,3.1,21,0)="^^1^1^2921016^^"
^DD(697.5,3.1,21,1,0)="This field stores the various procedures with which the diagnosis is applicable."
^DD(697.5,4,0)="INTEGRATOR ICD CODE^P80'^ICD9(^0;2^Q"
^DD(697.5,4,"DT")="2911028"
^DD(697.5,"B","*PROCEDURE",3)=""
^DD(697.5,"B","DIAGNOSIS",.01)=""
^DD(697.5,"B","ICD CODE",1)=""
^DD(697.5,"B","INTEGRATOR ICD CODE",4)=""
^DD(697.5,"B","PROCEDURE NAME",3.1)=""
^DD(697.5,"B","SPECIAL DIAGNOSIS TYPE",2)=""
^DD(697.5,"GL",0,1,.01)=""
^DD(697.5,"GL",0,2,4)=""
^DD(697.5,"GL",1,0,3)=""
^DD(697.5,"GL",2,0,1)=""
^DD(697.5,"GL",3,1,2)=""
^DD(697.5,"GL",4,0,3.1)=""
^DD(697.5,"IX",.01)=""
^DD(697.5,"IX",2)=""
^DD(697.5,"RQ",.01)=""
^DD(697.5,"SB",697.51,1)=""
^DD(697.5,"SB",697.53,3)=""
^DD(697.5,"SB",697.55,3.1)=""
^DD(697.51,0)="ICD CODE SUB-FIELD^^.01^1"
^DD(697.51,0,"IX","B",697.51,.01)=""
^DD(697.51,0,"NM","ICD CODE")=""
^DD(697.51,0,"UP")="697.5"
^DD(697.51,.01,0)="ICD CODE^MP80'^ICD9(^0;1^Q"
^DD(697.51,.01,1,0)="^.1"
^DD(697.51,.01,1,1,0)="697.51^B"
^DD(697.51,.01,1,1,1)="S ^MCAR(697.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(697.51,.01,1,1,2)="K ^MCAR(697.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(697.51,.01,3)="Enter the ICD code with which this diagnosis is associated."
^DD(697.51,.01,21,0)="^^1^1^2920716^^^"
^DD(697.51,.01,21,1,0)="This field identifies the specific ICD code for this diagnosis"
^DD(697.51,.01,"DT")="2890302"
^DD(697.51,"B","ICD CODE",.01)=""
^DD(697.51,"GL",0,1,.01)=""
^DD(697.51,"IX",.01)=""
^DD(697.53,0)="*PROCEDURE SUB-FIELD^^.01^1"
^DD(697.53,0,"IX","B",697.53,.01)=""
^DD(697.53,0,"NM","*PROCEDURE")=""
^DD(697.53,0,"UP")="697.5"
^DD(697.53,.01,0)="PROCEDURE^MP697.2'^MCAR(697.2,^0;1^Q"
^DD(697.53,.01,1,0)="^.1"
^DD(697.53,.01,1,1,0)="697.53^B"
^DD(697.53,.01,1,1,1)="S ^MCAR(697.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(697.53,.01,1,1,2)="K ^MCAR(697.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(697.53,.01,1,2,0)="697.5^D^MUMPS"
^DD(697.53,.01,1,2,1)="S ^MCAR(697.5,""D"",$E(X,1,30),DA(1))="""""
^DD(697.53,.01,1,2,2)="K ^MCAR(697.5,""D"",$E(X,1,30),DA(1))"
^DD(697.53,.01,1,2,"%D",0)="^^2^2^2920805^^"
^DD(697.53,.01,1,2,"%D",1,0)="This cross-reference indexes the entire file in alphabetical order by "
^DD(697.53,.01,1,2,"%D",2,0)="procedure."
^DD(697.53,.01,1,3,0)="697.5^F^MUMPS"
^DD(697.53,.01,1,3,1)="S %=$P(^MCAR(697.2,X,0),U,1) I $L(%) S ^MCAR(697.5,""A.""_%,$P(^MCAR(697.5,DA(1),0),U),DA(1))="""""
^DD(697.53,.01,1,3,2)="S %=$P(^MCAR(697.2,X,0),U,1) I $L(%) K ^MCAR(697.5,""A.""_%,$P(^MCAR(697.5,DA(1),0),U),DA(1))"
^DD(697.53,.01,1,3,"%D",0)="^^1^1^2911021^^^"
^DD(697.53,.01,1,3,"%D",1,0)="Sorts Diagnoses by procedure."
^DD(697.53,.01,1,3,"DT")="2911021"
^DD(697.53,.01,3)="Enter a procedure to which this diagnosis applies."
^DD(697.53,.01,21,0)="^^2^2^2920716^^"
^DD(697.53,.01,21,1,0)="This field identifies the specific procedure that the diagnosis is applicable"
^DD(697.53,.01,21,2,0)="to. "
^DD(697.53,.01,"DT")="2911021"
^DD(697.53,"B","PROCEDURE",.01)=""
^DD(697.53,"GL",0,1,.01)=""
^DD(697.53,"IX",.01)=""
^DD(697.55,0)="PROCEDURE NAME SUB-FIELD^^.01^1"
^DD(697.55,0,"DT")="2920805"
^DD(697.55,0,"IX","B",697.55,.01)=""
^DD(697.55,0,"NM","PROCEDURE NAME")=""
^DD(697.55,0,"UP")="697.5"
^DD(697.55,.01,0)="PROCEDURE NAME^MFX^^0;1^I $D(X) N DO,DIC,Y S DIC=""^MCAR(697.2,"",DIC(0)=""QEZ"" D ^DIC S:+Y'=-1 X=$P(Y,U,2) K:+Y<0 X"
^DD(697.55,.01,1,0)="^.1"
^DD(697.55,.01,1,1,0)="697.55^B"
^DD(697.55,.01,1,1,1)="S ^MCAR(697.5,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(697.55,.01,1,1,2)="K ^MCAR(697.5,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(697.55,.01,1,2,0)="697.5^I^MUMPS"
^DD(697.55,.01,1,2,1)="S ^MCAR(697.5,""A.""_X,$P(^MCAR(697.5,DA(1),0),U),DA(1))="""""
^DD(697.55,.01,1,2,2)="K ^MCAR(697.5,""A.""_X,$P(^MCAR(697.5,DA(1),0),U),DA(1))"
^DD(697.55,.01,1,2,"%D",0)="^^1^1^2920810^^^"
^DD(697.55,.01,1,2,"%D",1,0)="Sorts Diagnoses by procedure."
^DD(697.55,.01,1,2,"DT")="2920805"
^DD(697.55,.01,3)="This field stores the various procedures with which the diagnosis is applicable."
^DD(697.55,.01,"DT")="2940726"
^DD(697.55,"B","PROCEDURE NAME",.01)=""
^DD(697.55,"GL",0,1,.01)=""
^DD(697.55,"IX",.01)=""
^DD(698,0)="FIELD^^1001^40"
^DD(698,0,"DT")="2930310"
^DD(698,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(698,0,"IX","AC",698,.01)=""
^DD(698,0,"IX","AD",698,1)=""
^DD(698,0,"IX","APCE",698,900)=""
^DD(698,0,"IX","B",698,.01)=""
^DD(698,0,"IX","C",698,1)=""
^DD(698,0,"NM","GENERATOR IMPLANT")=""
^DD(698,0,"PT",123,11)=""
^DD(698,0,"PT",123.03,.01)=""
^DD(698,0,"VR")="2.3"
^DD(698,0,"VRPK")="MEDICINE"
^DD(698,.01,0)="DATE/TIME OF IMPLANT^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(698,.01,1,0)="^.1"
^DD(698,.01,1,1,0)="698^B"
^DD(698,.01,1,1,1)="S ^MCAR(698,""B"",$E(X,1,30),DA)="""""
^DD(698,.01,1,1,2)="K ^MCAR(698,""B"",$E(X,1,30),DA)"
^DD(698,.01,1,2,0)="698^AC^MUMPS"
^DD(698,.01,1,2,1)="S MCARCDIE=""^MCAR(698,"" D CHGDTE1^MCARPROC"
^DD(698,.01,1,2,2)="S MCARCDIE=""^MCAR(698,"" D CHGDTE^MCARPROC"
^DD(698,.01,1,2,"%D",0)="^^3^3^2920421^"
^DD(698,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(698,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent generator implant procedure"
^DD(698,.01,1,2,"%D",3,0)="for this patient."
^DD(698,.01,3)="ENTER THE DATE/TIME THAT THE IMPLANT WAS DONE"
^DD(698,.01,21,0)="^^1^1^2891031^"
^DD(698,.01,21,1,0)="This allows analysis based on time."
^DD(698,.01,23,0)="^^1^1^2921106^^^"
^DD(698,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698,.01,"DT")="2890112"
^DD(698,1,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(698,1,1,0)="^.1"
^DD(698,1,1,1,0)="698^C"
^DD(698,1,1,1,1)="S ^MCAR(698,""C"",$E(X,1,30),DA)="""""
^DD(698,1,1,1,2)="K ^MCAR(698,""C"",$E(X,1,30),DA)"
^DD(698,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(698,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(698,1,1,2,0)="698^AD^MUMPS"
^DD(698,1,1,2,1)="S MCARCDIE=""^MCAR(698,"" D CHGPAT^MCARPROC"
^DD(698,1,1,2,2)="S MCARCDIE=""^MCAR(698,"" D KILL^MCARPROC"
^DD(698,1,1,2,"%D",0)="^^3^3^2920421^"
^DD(698,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(698,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent generator implant procedure"
^DD(698,1,1,2,"%D",3,0)="for this patient."
^DD(698,1,3)="Enter the patient's name, SSN, or other identifier"
^DD(698,1,21,0)="^^1^1^2891101^^"
^DD(698,1,21,1,0)="Patient's name."
^DD(698,1,23,0)="^^1^1^2921106^^^"
^DD(698,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698,1,"DT")="2890112"
^DD(698,2,0)="PACEMAKER MODEL^*P698.4'^MCAR(698.4,^0;3^S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""G"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698,2,1,0)="^.1"
^DD(698,2,1,1,0)="^^TRIGGER^698^3"
^DD(698,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,2,1,1,1.1) X ^DD(698,2,1,1,1.4)"
^DD(698,2,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698,2,1,1,1.4)="S DIH=$S($D(^MCAR(698,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698,2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,2,1,1,2.1) X ^DD(698,2,1,1,2.4)"
^DD(698,2,1,1,2.1)="S X=DIV X ^DD(698,2,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698,2,1,1,2.4)="S DIH=$S($D(^MCAR(698,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698,2,1,1,59.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""")"
^DD(698,2,1,1,"%D",0)="^^1^1^2960423^"
^DD(698,2,1,1,"%D",1,0)="This cross-refference triggers the PACEMAKER MANUFACTURER field (#3)."
^DD(698,2,1,1,"CREATE VALUE")="INTERNAL(#2:#2)"
^DD(698,2,1,1,"DELETE VALUE")="INTERNAL(#2:#2)"
^DD(698,2,1,1,"DT")="2960423"
^DD(698,2,1,1,"FIELD")="#3"
^DD(698,2,3)="Enter the manufacturer's production name for this model."
^DD(698,2,12)="CHOOSE GENERATORS ONLY"
^DD(698,2,12.1)="S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""G"""",+Y))"""
^DD(698,2,21,0)="^^1^1^2891031^^"
^DD(698,2,21,1,0)="This field identifies the device by the manufacturer's production name."
^DD(698,2,23,0)="^^1^1^2921106^^^"
^DD(698,2,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,2,"DT")="2960423"
^DD(698,3,0)="PACEMAKER MANUFACTURER^P698.6'^MCAR(698.6,^0;4^Q"
^DD(698,3,3)="Enter the name of the producer of this pacemaker."
^DD(698,3,5,1,0)="698^2^1"
^DD(698,3,9)="^"
^DD(698,3,21,0)="^^1^1^2891031^^"
^DD(698,3,21,1,0)="This field identifies the producer of the pacemaker."
^DD(698,4,0)="PACEMAKER SERIAL NUMBER^F^^0;5^K:$L(X)>12!($L(X)<2) X"
^DD(698,4,3)="ANSWER MUST BE 2-12 CHARACTERS IN LENGTH"
^DD(698,4,21,0)="^^1^1^2891031^"
^DD(698,4,21,1,0)="This field identifies the specific device."
^DD(698,4,23,0)="^^1^1^2921106^^^"
^DD(698,4,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,6,0)="PACING MODE^S^1:AAI;2:VVI;3:DDD;4:DVI;5:AAT;6:VVT;7:VAT;8:VDD;9:AOO;10:VOO;11:DOO;12:OTHER;13:VVIR;^0;6^Q"
^DD(698,6,3)="Enter a code indicating the pacing mode of this unit."
^DD(698,6,21,0)="^^1^1^2920409^^"
^DD(698,6,21,1,0)="This defines the operation established with the device."
^DD(698,6,23,0)="^^1^1^2921106^^^"
^DD(698,6,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,6,"DT")="2920409"
^DD(698,6.1,0)="OTHER PACING MODE EXPLANATION^F^^4;11^K:$L(X)>60!($L(X)<3) X"
^DD(698,6.1,3)="Answer must be 3-60 characters in length."
^DD(698,6.1,21,0)="^^3^3^2920409^"
^DD(698,6.1,21,1,0)="This field permits an explanation of the pacing mode if ""OTHER"" is chosen"
^DD(698,6.1,21,2,0)="at the PACING MODE prompt.  It does not apply if anything besides ""OTHER"""
^DD(698,6.1,21,3,0)="is chosen at the PACING MODE prompt."
^DD(698,6.1,"DT")="2920409"
^DD(698,7,0)="HOSP WHERE IMPLANT OCCURRED^P4'^DIC(4,^0;8^Q"
^DD(698,7,3)="Enter the name of the hospital where this implat was performed."
^DD(698,7,21,0)="^^1^1^2891031^"
^DD(698,7,21,1,0)="This field identifies the facility where the implant procedure was performed."
^DD(698,7,"DT")="2931230"
^DD(698,12,0)="TRANSMITTER MODEL^*P698.4'^MCAR(698.4,^1;3^S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""T"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698,12,1,0)="^.1"
^DD(698,12,1,1,0)="^^TRIGGER^698^13"
^DD(698,12,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,12,1,1,1.1) X ^DD(698,12,1,1,1.4)"
^DD(698,12,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698,12,1,1,1.4)="S DIH=$S($D(^MCAR(698,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698,12,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,12,1,1,2.1) X ^DD(698,12,1,1,2.4)"
^DD(698,12,1,1,2.1)="S X=DIV X ^DD(698,12,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698,12,1,1,2.4)="S DIH=$S($D(^MCAR(698,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698,12,1,1,59.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""")"
^DD(698,12,1,1,"%D",0)="^^1^1^2960423^"
^DD(698,12,1,1,"%D",1,0)="This cross-reference triggers the TRANSMITTER MANUFACTURER field (#13)."
^DD(698,12,1,1,"CREATE VALUE")="INTERNAL(#12:#2)"
^DD(698,12,1,1,"DELETE VALUE")="INTERNAL(#12:#2)"
^DD(698,12,1,1,"DT")="2960423"
^DD(698,12,1,1,"FIELD")="#13"
^DD(698,12,3)="Enter the manufacturer's production name for this transmitter."
^DD(698,12,12)="CHOOSE TELEPHONE TRANSMITTERS ONLY"
^DD(698,12,12.1)="S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""T"""",+Y))"""
^DD(698,12,21,0)="^^1^1^2940803^^"
^DD(698,12,21,1,0)="This field identifies the device by the manufacturer's production name."
^DD(698,12,"DT")="2960423"
^DD(698,13,0)="TRANSMITTER MANUFACTURER^P698.6'^MCAR(698.6,^1;4^Q"
^DD(698,13,3)="Enter the producer of this transmitter."
^DD(698,13,5,1,0)="698^12^1"
^DD(698,13,9)="^"
^DD(698,13,21,0)="^^1^1^2891031^"
^DD(698,13,21,1,0)="This field identifies the producer of the transmitter."
^DD(698,14,0)="LEADS (A,V,AV)^RS^A:ATRIAL;V:VENTRICULAR;AV:BOTH A & V;^0;7^Q"
^DD(698,14,3)="Specify whether (A)trial and/or (V)entricular conductors were established."
^DD(698,14,21,0)="^^1^1^2891031^"
^DD(698,14,21,1,0)="This describes the placement/type of conductors established."
^DD(698,14,"DT")="2890424"
^DD(698,19,0)="IMPLANTATION ETIOLOGY^S^1:CONDUCTION TISSUE FIBROSIS;2:ISCHEMIA;3:POST INFARCTION;4:SURGICAL;5:CONGENITAL;6:MYOCARDIOPATHY;7:VALVULAR HEART DISEASE;8:CAROTID SINUS SYNDROME;9:IDIOPATHIC;10:OTHER;^0;11^Q"
^DD(698,19,3)="Enter a code based on the patient's history leading to this procedure."
^DD(698,19,21,0)="^^1^1^2891031^"
^DD(698,19,21,1,0)="This allows for the storage of historical patient data."
^DD(698,19,23,0)="^^1^1^2921106^^^"
^DD(698,19,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,19,"DT")="2890207"
^DD(698,30,0)="FIRST SCHEDULED F/U VISIT^D^^0;12^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(698,30,3)="Enter the date of the first scheduled follow-up visit."
^DD(698,30,21,0)="^^1^1^2891031^"
^DD(698,30,21,1,0)="This allows documentation of the primary visit."
^DD(698,32,0)="NON-MAG RATE AT BEGIN-OF-LIFE^NJ5,1^^4;1^K:+X'=X!(X>150)!(X<40)!(X?.E1"".""2N.N) X"
^DD(698,32,3)="Type a Number between 40 and 150, 1 Decimal Digit"
^DD(698,32,21,0)="^^1^1^2891031^"
^DD(698,32,21,1,0)="This allows documentation of initial rate."
^DD(698,32,"DT")="2910211"
^DD(698,34,0)="MAGNET RATE AT BEGIN-OF-LIFE^NJ5,1^^4;2^K:+X'=X!(X>150)!(X<40)!(X?.E1"".""2N.N) X"
^DD(698,34,3)="Type a Number between 40 and 150, 1 Decimal Digit"
^DD(698,34,21,0)="^^1^1^2891031^"
^DD(698,34,21,1,0)="This allows documentation of initial rate."
^DD(698,34,"DT")="2910211"
^DD(698,36,0)="NON-MAG PULSE WIDTH AT B-O-L^NJ4,2^^4;3^K:+X'=X!(X>3)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(698,36,3)="Type a Number between .1 and 3, 2 Decimal Digits"
^DD(698,36,21,0)="^^1^1^2891031^"
^DD(698,36,21,1,0)="This allows documentation of initial width."
^DD(698,36,"DT")="2900221"
^DD(698,38,0)="MAGNET PULSE WIDTH AT B-O-L^NJ4,2^^4;4^K:+X'=X!(X>3)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(698,38,3)="Type a Number between .1 and 3, 2 Decimal Digits"
^DD(698,38,21,0)="^^1^1^2891031^"
^DD(698,38,21,1,0)="This allows documentation of initial width."
^DD(698,38,"DT")="2900221"
^DD(698,40,0)="OTHER BEGIN-OF-LIFE INDICATOR^F^^4;9^K:$L(X)>25!($L(X)<3) X"
^DD(698,40,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(698,40,21,0)="^^1^1^2891031^"
^DD(698,40,21,1,0)="This allows other initial documentation."
^DD(698,42,0)="NON-MAG RATE AT END-OF-LIFE^NJ5,1^^4;5^K:+X'=X!(X>150)!(X<20)!(X?.E1"".""2N.N) X"
^DD(698,42,3)="Type a Number between 20 and 150, 1 Decimal Digit"
^DD(698,42,21,0)="^^1^1^2891031^"
^DD(698,42,21,1,0)="This allows documentation of terminal rate."
^DD(698,42,23,0)="^^1^1^2921106^^^"
^DD(698,42,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,42,"DT")="2910211"
^DD(698,44,0)="MAGNET RATE AT END-OF-LIFE^NJ5,1^^4;6^K:+X'=X!(X>150)!(X<20)!(X?.E1"".""2N.N) X"
^DD(698,44,3)="Type a Number between 20 and 150, 1 Decimal Digit"
^DD(698,44,21,0)="^^1^1^2891031^"
^DD(698,44,21,1,0)="This allows documentation of terminal rate."
^DD(698,44,23,0)="^^1^1^2921106^^^"
^DD(698,44,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,44,"DT")="2910211"
^DD(698,46,0)="NON-MAG PULSE WIDTH AT E-O-L^NJ4,2^^4;7^K:+X'=X!(X>3)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(698,46,3)="Type a Number between .1 and 3, 2 Decimal Digits"
^DD(698,46,21,0)="^^1^1^2891031^"
^DD(698,46,21,1,0)="This allows documentation of terminal width."
^DD(698,46,"DT")="2900221"
^DD(698,48,0)="MAGNET PULSE WIDTH AT E-O-L^NJ4,2^^4;8^K:+X'=X!(X>3)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(698,48,3)="Type a Number between .1 and 3, 2 Decimal Digits"
^DD(698,48,21,0)="^^1^1^2891031^"
^DD(698,48,21,1,0)="This allows documentation of terminal width."
^DD(698,48,"DT")="2900221"
^DD(698,50,0)="OTHER END-OF-LIFE INDICATOR^F^^4;10^K:$L(X)>25!($L(X)<3) X"
^DD(698,50,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(698,50,21,0)="^^1^1^2891031^"
^DD(698,50,21,1,0)="This allows documentation of other terminal parameters."
^DD(698,70,0)="NO. PULSE GENERATORS^NJ2,0^^0;13^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(698,70,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(698,70,21,0)="^^1^1^2891031^"
^DD(698,70,21,1,0)="This field identifies the sequential value of this generator."
^DD(698,75,0)="DATE OF LAST PREVIOUS IMPLANT^D^^0;14^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(698,75,3)="Enter the date of the most recent previous implantation, if any."
^DD(698,75,21,0)="^^1^1^2891031^"
^DD(698,75,21,1,0)="This allows documentation of previous implantations."
^DD(698,90,0)="DATE OF INCIPIENT MALFUNCTION^D^^1;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(698,90,3)="Enter the date when the unit began to show signs of failure."
^DD(698,90,21,0)="^^1^1^2891031^"
^DD(698,90,21,1,0)="This allows documentation of malfunction date."
^DD(698,90,23,0)="^^1^1^2921106^^^"
^DD(698,90,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,93,0)="PACING FAILURE (EKG)^698.093SA^^2;0"
^DD(698,93,21,0)="^^1^1^2891101^"
^DD(698,93,21,1,0)="This allows documentation of failures."
^DD(698,93,23,0)="^^1^1^2921106^^^"
^DD(698,93,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,96,0)="EXPLANT DATE^D^^1;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(698,96,3)="Enter the date that this apparatus was removed."
^DD(698,96,21,0)="^^1^1^2891101^"
^DD(698,96,21,1,0)="This allows documentation of generator removal."
^DD(698,99,0)="REASON FOR GENERATOR CHANGE^*P695.8'^MCAR(695.8,^1;2^S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""P"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698,99,3)="Enter the reason for this explant/implant procedure."
^DD(698,99,12)="CHOOSE REASONS FOR EXPLANTING PACEMAKERS ONLY"
^DD(698,99,12.1)="S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""P"""",+Y))"""
^DD(698,99,21,0)="2^^2^2^2891101^^^"
^DD(698,99,21,1,0)="This allows documentation of change "
^DD(698,99,21,2,0)="rationale."
^DD(698,99,23,0)="^^1^1^2921106^^^"
^DD(698,99,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,300,0)="ATTENDING PHYSICIAN^*P200'^VA(200,^3;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698,300,1,0)="^.1"
^DD(698,300,1,1,0)="^^TRIGGER^698^701"
^DD(698,300,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(698,300,1,1,1.4)"
^DD(698,300,1,1,1.4)="S DIH=$S($D(^MCAR(698,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=698,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698,300,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698,300,1,1,2.1) X ^DD(698,300,1,1,2.4)"
^DD(698,300,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(698,D0,3)):^(3),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(698,300,1,1,2.4)="S DIH=$S($D(^MCAR(698,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=698,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698,300,1,1,"%D",0)="^^1^1^2960423^"
^DD(698,300,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(698,300,1,1,"CREATE VALUE")="INTERNAL(#300)"
^DD(698,300,1,1,"DELETE VALUE")="INTERNAL(#300)"
^DD(698,300,1,1,"DT")="2960423"
^DD(698,300,1,1,"FIELD")="#701"
^DD(698,300,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698,300,21,0)="^^2^2^2920114^"
^DD(698,300,21,1,0)="This field identifies the name of the Attending Physician for this Generator"
^DD(698,300,21,2,0)="Implant. "
^DD(698,300,"DT")="2960423"
^DD(698,301,0)="FELLOW-1st^*P200'^VA(200,^3;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698,301,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698,301,21,0)="^^2^2^2920114^"
^DD(698,301,21,1,0)="This field identifies the name of a Cardiology Fellow for this Generator"
^DD(698,301,21,2,0)="Implant. "
^DD(698,301,"DT")="2941025"
^DD(698,302,0)="FELLOW-2nd^*P200'^VA(200,^3;3^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698,302,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698,302,21,0)="^^2^2^2920114^"
^DD(698,302,21,1,0)="This field identifies the name of a second Cardiology Fellow for this"
^DD(698,302,21,2,0)="Generator Implant. "
^DD(698,302,"DT")="2941025"
^DD(698,500,0)="COMMENTS^698.01^^10;0"
^DD(698,500,21,0)="^^1^1^2891101^"
^DD(698,500,21,1,0)="This allows a documentation area of free form."
^DD(698,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(698,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures.'"
^DD(698,600,21,0)="^^3^3^2910426^^^"
^DD(698,600,21,1,0)="This field identifies a required free text summary of the Generator Implant. "
^DD(698,600,21,2,0)="This summary  (up to 79 characters) will appear on the Summary of Patient"
^DD(698,600,21,3,0)="Procedures. "
^DD(698,600,23,0)="^^1^1^2921106^^^"
^DD(698,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,600,"DT")="2901121"
^DD(698,601,0)="SUMMARY^RS^A:ABNORMAL;B:BORDERLINE;N:NORMAL;^.2;1^Q"
^DD(698,601,21,0)="^^3^3^2910426^^"
^DD(698,601,21,1,0)="This field identifies a required summary of the implant"
^DD(698,601,21,2,0)="(Abnormal,Borderline,Normal).  This summary will appear on the Summary of"
^DD(698,601,21,3,0)="Patient Procedures. "
^DD(698,601,"DT")="2901121"
^DD(698,700,0)="ICD DIAGNOSIS^698.02P^^ICD;0"
^DD(698,700,21,0)="^^3^3^2920102^"
^DD(698,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(698,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(698,700,21,3,0)="future."
^DD(698,700,23,0)="^^1^1^2921106^^^"
^DD(698,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698,701,5,1,0)="698^300^1"
^DD(698,701,9)="^"
^DD(698,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698,701,21,0)="^^3^3^2920109^"
^DD(698,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(698,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(698,701,21,3,0)="use in transferring data to the PCC."
^DD(698,701,"DT")="2941025"
^DD(698,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(698,900,1,0)="^.1"
^DD(698,900,1,1,0)="698^APCE"
^DD(698,900,1,1,1)="S ^MCAR(698,""APCE"",$E(X,1,30),DA)="""""
^DD(698,900,1,1,2)="K ^MCAR(698,""APCE"",$E(X,1,30),DA)"
^DD(698,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(698,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(698,900,1,1,"DT")="2960517"
^DD(698,900,21,0)="^^2^2^2920728^^^"
^DD(698,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(698,900,21,2,0)="Visit File for use by Queryman."
^DD(698,900,"DT")="2960517"
^DD(698,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(698,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(698,1000,21,0)="^^3^3^2910709^"
^DD(698,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(698,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(698,1000,21,3,0)="Medicine package."
^DD(698,1000,"DT")="2910709"
^DD(698,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(698,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(698,1001,21,0)="^^3^3^2910816"
^DD(698,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(698,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(698,1001,21,3,0)="results are entered in the Medicine package."
^DD(698,1001,"DT")="2910816"
^DD(698,"B","ATTENDING PHYSICIAN",300)=""
^DD(698,"B","COMMENTS",500)=""
^DD(698,"B","DATE OF INCIPIENT MALFUNCTION",90)=""
^DD(698,"B","DATE OF LAST PREVIOUS IMPLANT",75)=""
^DD(698,"B","DATE/TIME OF IMPLANT",.01)=""
^DD(698,"B","EXPLANT DATE",96)=""
^DD(698,"B","FELLOW-1st",301)=""
^DD(698,"B","FELLOW-2nd",302)=""
^DD(698,"B","FIRST SCHEDULED F/U VISIT",30)=""
^DD(698,"B","GMRCO",1001)=""
^DD(698,"B","HOSP WHERE IMPLANT OCCURRED",7)=""
^DD(698,"B","ICD DIAGNOSIS",700)=""
^DD(698,"B","IMPLANTATION ETIOLOGY",19)=""
^DD(698,"B","LEADS (A,V,AV)",14)=""
^DD(698,"B","MAGNET PULSE WIDTH AT B-O-L",38)=""
^DD(698,"B","MAGNET PULSE WIDTH AT E-O-L",48)=""
^DD(698,"B","MAGNET RATE AT BEGIN-OF-LIFE",34)=""
^DD(698,"B","MAGNET RATE AT END-OF-LIFE",44)=""
^DD(698,"B","MEDICAL PATIENT",1)=""
^DD(698,"B","NO. PULSE GENERATORS",70)=""
^DD(698,"B","NON-MAG PULSE WIDTH AT B-O-L",36)=""
^DD(698,"B","NON-MAG PULSE WIDTH AT E-O-L",46)=""
^DD(698,"B","NON-MAG RATE AT BEGIN-OF-LIFE",32)=""
^DD(698,"B","NON-MAG RATE AT END-OF-LIFE",42)=""
^DD(698,"B","ORIFN",1000)=""
^DD(698,"B","OTHER BEGIN-OF-LIFE INDICATOR",40)=""
^DD(698,"B","OTHER END-OF-LIFE INDICATOR",50)=""
^DD(698,"B","OTHER PACING MODE EXPLANATION",6.1)=""
^DD(698,"B","PACEMAKER MANUFACTURER",3)=""
^DD(698,"B","PACEMAKER MODEL",2)=""
^DD(698,"B","PACEMAKER SERIAL NUMBER",4)=""
^DD(698,"B","PACING FAILURE (EKG)",93)=""
^DD(698,"B","PACING MODE",6)=""
^DD(698,"B","PCC POINTER",900)=""
^DD(698,"B","PRIMARY PROVIDER",701)=""
^DD(698,"B","PROCEDURE SUMMARY",600)=""
^DD(698,"B","REASON FOR GENERATOR CHANGE",99)=""
^DD(698,"B","SUMMARY",601)=""
^DD(698,"B","TRANSMITTER MANUFACTURER",13)=""
^DD(698,"B","TRANSMITTER MODEL",12)=""
^DD(698,"GL",0,1,.01)=""
^DD(698,"GL",0,2,1)=""
^DD(698,"GL",0,3,2)=""
^DD(698,"GL",0,4,3)=""
^DD(698,"GL",0,5,4)=""
^DD(698,"GL",0,6,6)=""
^DD(698,"GL",0,7,14)=""
^DD(698,"GL",0,8,7)=""
^DD(698,"GL",0,11,19)=""
^DD(698,"GL",0,12,30)=""
^DD(698,"GL",0,13,70)=""
^DD(698,"GL",0,14,75)=""
^DD(698,"GL",.2,1,601)=""
^DD(698,"GL",.2,2,600)=""
^DD(698,"GL",1,1,96)=""
^DD(698,"GL",1,2,99)=""
^DD(698,"GL",1,3,12)=""
^DD(698,"GL",1,4,13)=""
^DD(698,"GL",1,6,90)=""
^DD(698,"GL",2,0,93)=""
^DD(698,"GL",3,1,300)=""
^DD(698,"GL",3,2,301)=""
^DD(698,"GL",3,3,302)=""
^DD(698,"GL",4,1,32)=""
^DD(698,"GL",4,2,34)=""
^DD(698,"GL",4,3,36)=""
^DD(698,"GL",4,4,38)=""
^DD(698,"GL",4,5,42)=""
^DD(698,"GL",4,6,44)=""
^DD(698,"GL",4,7,46)=""
^DD(698,"GL",4,8,48)=""
^DD(698,"GL",4,9,40)=""
^DD(698,"GL",4,10,50)=""
^DD(698,"GL",4,11,6.1)=""
^DD(698,"GL",10,0,500)=""
^DD(698,"GL","ICD",0,700)=""
^DD(698,"GL","OR",1,1000)=""
^DD(698,"GL","OR",2,1001)=""
^DD(698,"GL","PCC",1,900)=""
^DD(698,"GL","PROV",1,701)=""
^DD(698,"IX",.01)=""
^DD(698,"IX",1)=""
^DD(698,"IX",2)=""
^DD(698,"IX",12)=""
^DD(698,"IX",300)=""
^DD(698,"IX",900)=""
^DD(698,"RQ",.01)=""
^DD(698,"RQ",1)=""
^DD(698,"RQ",14)=""
^DD(698,"RQ",600)=""
^DD(698,"RQ",601)=""
^DD(698,"SB",698.01,500)=""
^DD(698,"SB",698.02,700)=""
^DD(698,"SB",698.093,93)=""
^DD(698.01,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(698.01,0,"NM","COMMENTS")=""
^DD(698.01,0,"UP")="698"
^DD(698.01,.01,0)="COMMENTS^W^^0;1^Q"
^DD(698.01,.01,3)="Enter free-text remarks on this procedure."
^DD(698.01,.01,21,0)="^^1^1^2891101^^"
^DD(698.01,.01,21,1,0)="This field identifies the free text documentation area."
^DD(698.01,.01,"DT")="2890112"
^DD(698.01,"B","COMMENTS",.01)=""
^DD(698.01,"GL",0,1,.01)=""
^DD(698.02,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(698.02,0,"DT")="2930310"
^DD(698.02,0,"IX","B",698.02,.01)=""
^DD(698.02,0,"NM","ICD DIAGNOSIS")=""
^DD(698.02,0,"UP")="698"
^DD(698.02,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(698.02,.01,1,0)="^.1"
^DD(698.02,.01,1,1,0)="698.02^B"
^DD(698.02,.01,1,1,1)="S ^MCAR(698,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(698.02,.01,1,1,2)="K ^MCAR(698,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(698.02,.01,21,0)="^^3^3^2920102^"
^DD(698.02,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(698.02,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(698.02,.01,21,3,0)="future."
^DD(698.02,.01,23,0)="^^1^1^2921106^^^"
^DD(698.02,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.02,.01,"DT")="2930310"
^DD(698.02,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(698.02,.02,3)="Answer must be 1-80 characters in length."
^DD(698.02,.02,23,0)="^^1^1^2921106^^^"
^DD(698.02,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.02,.02,"DT")="2920102"
^DD(698.02,"B","ICD DIAGNOSIS",.01)=""
^DD(698.02,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(698.02,"GL",0,1,.01)=""
^DD(698.02,"GL",0,2,.02)=""
^DD(698.02,"IX",.01)=""
^DD(698.093,0)="PACING FAILURE (EKG) SUB-FIELD^^1^2"
^DD(698.093,0,"NM","PACING FAILURE (EKG)")=""
^DD(698.093,0,"UP")="698"
^DD(698.093,.01,0)="PACING FAILURE (EKG)^MS^1:LOSS OF CAPTURE;2:UNDERSENSING;3:OVERSENSING;4:RATE DECREASE;5:RATE INCREASE;^0;1^Q"
^DD(698.093,.01,3)="Enter the cause of failure as determined by electrocardiogram."
^DD(698.093,.01,21,0)="^^1^1^2891101^"
^DD(698.093,.01,21,1,0)="This allows documentation of failures."
^DD(698.093,.01,23,0)="^^1^1^2921106^^^"
^DD(698.093,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.093,1,0)="DATE OF FAILURE^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(698.093,1,3)="Enter the date of this failure."
^DD(698.093,1,21,0)="^^1^1^2920324^"
^DD(698.093,1,21,1,0)="This allows the user to enter the date of failure."
^DD(698.093,1,23,0)="^^1^1^2921106^^^"
^DD(698.093,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.093,"B","DATE OF FAILURE",1)=""
^DD(698.093,"B","PACING FAILURE (EKG)",.01)=""
^DD(698.093,"GL",0,1,.01)=""
^DD(698.093,"GL",0,2,1)=""
^DD(698.1,0)="FIELD^^1001^23"
^DD(698.1,0,"DT")="2960202"
^DD(698.1,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(698.1,0,"IX","AC",698.1,.01)=""
^DD(698.1,0,"IX","AD",698.1,1)=""
^DD(698.1,0,"IX","APCE",698.1,900)=""
^DD(698.1,0,"IX","B",698.1,.01)=""
^DD(698.1,0,"IX","C",698.1,1)=""
^DD(698.1,0,"NM","V LEAD IMPLANT")=""
^DD(698.1,0,"PT",123,11)=""
^DD(698.1,0,"PT",123.03,.01)=""
^DD(698.1,0,"VR")="2.3"
^DD(698.1,0,"VRPK")="MEDICINE"
^DD(698.1,.01,0)="DATE/TIME OF IMPLANT^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(698.1,.01,1,0)="^.1"
^DD(698.1,.01,1,1,0)="698.1^B"
^DD(698.1,.01,1,1,1)="S ^MCAR(698.1,""B"",$E(X,1,30),DA)="""""
^DD(698.1,.01,1,1,2)="K ^MCAR(698.1,""B"",$E(X,1,30),DA)"
^DD(698.1,.01,1,2,0)="698.1^AC^MUMPS"
^DD(698.1,.01,1,2,1)="S MCARCDIE=""^MCAR(698.1,"" D CHGDTE1^MCARPROC"
^DD(698.1,.01,1,2,2)="S MCARCDIE=""^MCAR(698.1,"" D CHGDTE^MCARPROC"
^DD(698.1,.01,1,2,"%D",0)="^^3^3^2920421^"
^DD(698.1,.01,1,2,"%D",1,0)="This cross-reference pakes an entry under the 'AC' index of the MEDICAL"
^DD(698.1,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent V lead implant procedure"
^DD(698.1,.01,1,2,"%D",3,0)="for this patient."
^DD(698.1,.01,3)="ENTER THE DATE/TIME THE V LEAD WAS IMPLANTED"
^DD(698.1,.01,21,0)="^^2^2^2910425^"
^DD(698.1,.01,21,1,0)="This field is the date/time that the procedure was entered into "
^DD(698.1,.01,21,2,0)="the database."
^DD(698.1,.01,23,0)="^^1^1^2921106^^^"
^DD(698.1,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.1,1,0)="MEDICAL PATIENT^RP690^MCAR(690,^0;2^Q"
^DD(698.1,1,1,0)="^.1"
^DD(698.1,1,1,1,0)="698.1^C"
^DD(698.1,1,1,1,1)="S ^MCAR(698.1,""C"",$E(X,1,30),DA)="""""
^DD(698.1,1,1,1,2)="K ^MCAR(698.1,""C"",$E(X,1,30),DA)"
^DD(698.1,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(698.1,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(698.1,1,1,2,0)="698.1^AD^MUMPS"
^DD(698.1,1,1,2,1)="S MCARCDIE=""^MCAR(698.1,"" D CHGPAT^MCARPROC"
^DD(698.1,1,1,2,2)="S MCARCDIE=""^MCAR(698.1,"" D KILL^MCARPROC"
^DD(698.1,1,1,2,"%D",0)="^^3^3^2920421^"
^DD(698.1,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(698.1,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent V lead implant procedure"
^DD(698.1,1,1,2,"%D",3,0)="for this patient."
^DD(698.1,1,3)="Enter the patient's name, SSN, or other identifier"
^DD(698.1,1,21,0)="^^1^1^2910425^"
^DD(698.1,1,21,1,0)="This field identifies the field which identifies the patient."
^DD(698.1,1,23,0)="^^1^1^2921106^^^"
^DD(698.1,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.1,1,"DT")="2960202"
^DD(698.1,2,0)="V LEAD MODEL^*P698.4'^MCAR(698.4,^0;3^S DIC(""S"")=""I $P(^MCAR(698.4,+Y,0),U,2)[""""V"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.1,2,1,0)="^.1"
^DD(698.1,2,1,1,0)="^^TRIGGER^698.1^3"
^DD(698.1,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.1,2,1,1,1.1) X ^DD(698.1,2,1,1,1.4)"
^DD(698.1,2,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698.1,2,1,1,1.4)="S DIH=$S($D(^MCAR(698.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.1,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.1,2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.1,2,1,1,2.1) X ^DD(698.1,2,1,1,2.4)"
^DD(698.1,2,1,1,2.1)="S X=DIV X ^DD(698.1,2,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698.1,2,1,1,2.4)="S DIH=$S($D(^MCAR(698.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.1,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.1,2,1,1,59.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^MCAR(698.1,D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""")"
^DD(698.1,2,1,1,"%D",0)="^^1^1^2960423^"
^DD(698.1,2,1,1,"%D",1,0)="This cross-reference triggers the V LEAD MANUFACTURER field (#3)."
^DD(698.1,2,1,1,"CREATE VALUE")="INTERNAL(#2:#2)"
^DD(698.1,2,1,1,"DELETE VALUE")="INTERNAL(#2:#2)"
^DD(698.1,2,1,1,"DT")="2960423"
^DD(698.1,2,1,1,"FIELD")="#3"
^DD(698.1,2,3)="Enter the manufacturer's production name for this trasmitter."
^DD(698.1,2,12)="CHOOSE LEADS THAT ARE V LEADS OR BOTH A AND V LEADS ONLY"
^DD(698.1,2,12.1)="S DIC(""S"")=""I $P(^MCAR(698.4,+Y,0),U,2)[""""V"""""""
^DD(698.1,2,21,0)="^^1^1^2910425^"
^DD(698.1,2,21,1,0)="This field identifies the V Lead Model."
^DD(698.1,2,23,0)="^^1^1^2921106^^^"
^DD(698.1,2,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(698.1,2,"DT")="2960423"
^DD(698.1,3,0)="V LEAD MANUFACTURER^P698.6'^MCAR(698.6,^0;4^Q"
^DD(698.1,3,3)="Enter the producer of this transmitter."
^DD(698.1,3,5,1,0)="698.1^2^1"
^DD(698.1,3,9)="^"
^DD(698.1,3,21,0)="^^1^1^2910425^"
^DD(698.1,3,21,1,0)="This field identifies the V Lead Manufacturer."
^DD(698.1,4,0)="V LEAD SERIAL NUMBER^F^^0;5^K:$L(X)>12!($L(X)<2) X"
^DD(698.1,4,3)="ANSWER MUST BE 2-12 CHARACTERS IN LENGTH"
^DD(698.1,4,21,0)="^^1^1^2910425^"
^DD(698.1,4,21,1,0)="This field identifies the V Lead Serial number."
^DD(698.1,4,23,0)="^^1^1^2921106^^^"
^DD(698.1,4,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(698.1,11,0)="V LEAD THRESHOLD IN VOLTS^NJ4,1^^0;6^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.1,11,3)="Type a Number between 0 and 12, 1 Decimal Digit"
^DD(698.1,11,21,0)="^^1^1^2910425^"
^DD(698.1,11,21,1,0)="This field identifies the V Lead threshold in Volts."
^DD(698.1,12,0)="V LEAD THRESHOLD IN mA'S AT .5^NJ4,1^^0;7^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.1,12,3)="Type a Number between 0 and 12, 1 Decimal Digit"
^DD(698.1,12,21,0)="^^1^1^2910425^"
^DD(698.1,12,21,1,0)="This field identifies the V lead threshold."
^DD(698.1,12,23,0)="^^1^1^2921106^^^"
^DD(698.1,12,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.1,13,0)="V LEAD RESISTANCE (OHMS) AT 5V^NJ7,2^^0;8^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.1,13,3)="Type a Number between 0 and 1000, 2 Decimal Digits"
^DD(698.1,13,21,0)="^^1^1^2910425^"
^DD(698.1,13,21,1,0)="This field identifies the V lead resistance."
^DD(698.1,13,23,0)="^^1^1^2921106^^^"
^DD(698.1,13,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.1,14,0)="R WAVE AMPLITUDE (mV)^NJ4,1^^0;9^K:+X'=X!(X>25)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.1,14,3)="Type a Number between 0 and 25, 1 Decimal Digit"
^DD(698.1,14,21,0)="^^1^1^2910425^^"
^DD(698.1,14,21,1,0)="This field identifies the R wave amplitude."
^DD(698.1,14,23,0)="^^1^1^2921106^^^"
^DD(698.1,14,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.1,15,0)="V LEAD PSA USED^*P698.4'^MCAR(698.4,^0;10^S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""P"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.1,15,12)="CHOOSE PSA EQUIPMENT TYPE ONLY"
^DD(698.1,15,12.1)="S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""P"""",+Y))"""
^DD(698.1,15,21,0)="^^1^1^2910425^"
^DD(698.1,15,21,1,0)="This field identifies the V Lead PSA used."
^DD(698.1,56,0)="EXPLANT DATE^D^^1;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(698.1,56,3)="Enter the date that this apparatus was removed."
^DD(698.1,56,21,0)="^^1^1^2910425^"
^DD(698.1,56,21,1,0)="This field identifies the explant date."
^DD(698.1,56,23,0)="^^1^1^2921106^^^"
^DD(698.1,56,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.1,57,0)="V LEAD EXPLANT REASON^*P695.8'^MCAR(695.8,^1;2^S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""L"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.1,57,3)="Enter the reason for this explant/implant procedure."
^DD(698.1,57,12)="CHOOSE REASONS THAT APPLY TO LEAD EXPLANT ONLY"
^DD(698.1,57,12.1)="S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""L"""",+Y))"""
^DD(698.1,57,21,0)="^^1^1^2910425^"
^DD(698.1,57,21,1,0)="This field identifies the V lead explant rationale."
^DD(698.1,300,0)="ATTENDING PHYSICIAN^*P200'^VA(200,^3;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.1,300,1,0)="^.1"
^DD(698.1,300,1,1,0)="^^TRIGGER^698.1^701"
^DD(698.1,300,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(698.1,300,1,1,1.4)"
^DD(698.1,300,1,1,1.4)="S DIH=$S($D(^MCAR(698.1,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=698.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.1,300,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.1,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698.1,300,1,1,2.1) X ^DD(698.1,300,1,1,2.4)"
^DD(698.1,300,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(698.1,D0,3)):^(3),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(698.1,300,1,1,2.4)="S DIH=$S($D(^MCAR(698.1,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=698.1,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.1,300,1,1,"%D",0)="^^1^1^2960423^"
^DD(698.1,300,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(698.1,300,1,1,"CREATE VALUE")="INTERNAL(#300)"
^DD(698.1,300,1,1,"DELETE VALUE")="INTERNAL(#300)"
^DD(698.1,300,1,1,"DT")="2960423"
^DD(698.1,300,1,1,"FIELD")="#701"
^DD(698.1,300,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.1,300,21,0)="^^2^2^2920114^"
^DD(698.1,300,21,1,0)="This field identifies the name of the Attending Physician for this V-Lead"
^DD(698.1,300,21,2,0)="Implant. "
^DD(698.1,300,"DT")="2960423"
^DD(698.1,301,0)="FELLOW-1st^*P200'^VA(200,^3;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.1,301,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.1,301,21,0)="^^1^1^2920114^"
^DD(698.1,301,21,1,0)="This field identifies the name of a Cardiology Fellow for this V-Lead Implant."
^DD(698.1,301,"DT")="2941025"
^DD(698.1,302,0)="FELLOW-2nd^*P200'^VA(200,^3;3^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.1,302,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.1,302,21,0)="^^2^2^2920114^"
^DD(698.1,302,21,1,0)="This field identifies the name of a Second Cardiology Fellow for this V-Lead"
^DD(698.1,302,21,2,0)="Implant. "
^DD(698.1,302,"DT")="2941025"
^DD(698.1,500,0)="COMMENTS^698.11^^10;0"
^DD(698.1,500,21,0)="^^1^1^2910425^"
^DD(698.1,500,21,1,0)="This field identifies the comment field for this procedure."
^DD(698.1,500,23,0)="^^1^1^2921106^^^"
^DD(698.1,500,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.1,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(698.1,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(698.1,600,21,0)="^^2^2^2910425^"
^DD(698.1,600,21,1,0)="This 1-79 character field is for display on the"
^DD(698.1,600,21,2,0)="medicine procedure summary report."
^DD(698.1,600,23,0)="^^1^1^2921106^^^"
^DD(698.1,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.1,600,"DT")="2901121"
^DD(698.1,601,0)="SUMMARY^RS^A:ABNORMAL;N:NORMAL;^.2;1^Q"
^DD(698.1,601,21,0)="^^1^1^2910425^"
^DD(698.1,601,21,1,0)="This field identifies the procedure summary."
^DD(698.1,601,23,0)="^^1^1^2921106^^^"
^DD(698.1,601,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.1,601,"DT")="2901121"
^DD(698.1,700,0)="ICD DIAGNOSIS^698.12P^^ICD;0"
^DD(698.1,700,21,0)="^^3^3^2920102^"
^DD(698.1,700,21,1,0)="This field contains the ICD Diagnosis(es) for the procedure.  The field"
^DD(698.1,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(698.1,700,21,3,0)="future."
^DD(698.1,700,23,0)="^^1^1^2921106^^^"
^DD(698.1,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.1,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.1,701,5,1,0)="698.1^300^1"
^DD(698.1,701,9)="^"
^DD(698.1,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.1,701,21,0)="^^3^3^2920109^"
^DD(698.1,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(698.1,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(698.1,701,21,3,0)="use in transferring data to the PCC."
^DD(698.1,701,"DT")="2941025"
^DD(698.1,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(698.1,900,1,0)="^.1"
^DD(698.1,900,1,1,0)="698.1^APCE"
^DD(698.1,900,1,1,1)="S ^MCAR(698.1,""APCE"",$E(X,1,30),DA)="""""
^DD(698.1,900,1,1,2)="K ^MCAR(698.1,""APCE"",$E(X,1,30),DA)"
^DD(698.1,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(698.1,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(698.1,900,1,1,"DT")="2960517"
^DD(698.1,900,21,0)="^^2^2^2920728^^^"
^DD(698.1,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(698.1,900,21,2,0)="Visit File for use by Queryman."
^DD(698.1,900,"DT")="2960517"
^DD(698.1,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(698.1,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(698.1,1000,21,0)="^^3^3^2910709^"
^DD(698.1,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(698.1,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(698.1,1000,21,3,0)="Medicine package."
^DD(698.1,1000,"DT")="2910709"
^DD(698.1,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(698.1,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(698.1,1001,21,0)="^^3^3^2910816"
^DD(698.1,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(698.1,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(698.1,1001,21,3,0)="results are entered in the Medicine package."
^DD(698.1,1001,"DT")="2910816"
^DD(698.1,"B","ATTENDING PHYSICIAN",300)=""
^DD(698.1,"B","COMMENTS",500)=""
^DD(698.1,"B","DATE/TIME OF IMPLANT",.01)=""
^DD(698.1,"B","EXPLANT DATE",56)=""
^DD(698.1,"B","FELLOW-1st",301)=""
^DD(698.1,"B","FELLOW-2nd",302)=""
^DD(698.1,"B","GMRCO",1001)=""
^DD(698.1,"B","ICD DIAGNOSIS",700)=""
^DD(698.1,"B","MEDICAL PATIENT",1)=""
^DD(698.1,"B","ORIFN",1000)=""
^DD(698.1,"B","PCC POINTER",900)=""
^DD(698.1,"B","PRIMARY PROVIDER",701)=""
^DD(698.1,"B","PROCEDURE SUMMARY",600)=""
^DD(698.1,"B","R WAVE AMPLITUDE (mV)",14)=""
^DD(698.1,"B","SUMMARY",601)=""
^DD(698.1,"B","V LEAD EXPLANT REASON",57)=""
^DD(698.1,"B","V LEAD MANUFACTURER",3)=""
^DD(698.1,"B","V LEAD MODEL",2)=""
^DD(698.1,"B","V LEAD PSA USED",15)=""
^DD(698.1,"B","V LEAD RESISTANCE (OHMS) AT 5V",13)=""
^DD(698.1,"B","V LEAD SERIAL NUMBER",4)=""
^DD(698.1,"B","V LEAD THRESHOLD IN VOLTS",11)=""
^DD(698.1,"B","V LEAD THRESHOLD IN mA'S AT .5",12)=""
^DD(698.1,"GL",0,1,.01)=""
^DD(698.1,"GL",0,2,1)=""
^DD(698.1,"GL",0,3,2)=""
^DD(698.1,"GL",0,4,3)=""
^DD(698.1,"GL",0,5,4)=""
^DD(698.1,"GL",0,6,11)=""
^DD(698.1,"GL",0,7,12)=""
^DD(698.1,"GL",0,8,13)=""
^DD(698.1,"GL",0,9,14)=""
^DD(698.1,"GL",0,10,15)=""
^DD(698.1,"GL",.2,1,601)=""
^DD(698.1,"GL",.2,2,600)=""
^DD(698.1,"GL",1,1,56)=""
^DD(698.1,"GL",1,2,57)=""
^DD(698.1,"GL",3,1,300)=""
^DD(698.1,"GL",3,2,301)=""
^DD(698.1,"GL",3,3,302)=""
^DD(698.1,"GL",10,0,500)=""
^DD(698.1,"GL","ICD",0,700)=""
^DD(698.1,"GL","OR",1,1000)=""
^DD(698.1,"GL","OR",2,1001)=""
^DD(698.1,"GL","PCC",1,900)=""
^DD(698.1,"GL","PROV",1,701)=""
^DD(698.1,"IX",.01)=""
^DD(698.1,"IX",1)=""
^DD(698.1,"IX",2)=""
^DD(698.1,"IX",300)=""
^DD(698.1,"IX",900)=""
^DD(698.1,"RQ",.01)=""
^DD(698.1,"RQ",1)=""
^DD(698.1,"RQ",600)=""
^DD(698.1,"RQ",601)=""
^DD(698.1,"SB",698.11,500)=""
^DD(698.1,"SB",698.12,700)=""
^DD(698.11,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(698.11,0,"NM","COMMENTS")=""
^DD(698.11,0,"UP")="698.1"
^DD(698.11,.01,0)="COMMENTS^W^^0;1^Q"
^DD(698.11,.01,3)="Enter free-text remarks on this procedure."
^DD(698.11,.01,21,0)="^^1^1^2910425^"
^DD(698.11,.01,21,1,0)="This field identifies the comment field for this procedure."
^DD(698.11,.01,23,0)="^^1^1^2921106^^^"
^DD(698.11,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.11,"B","COMMENTS",.01)=""
^DD(698.11,"GL",0,1,.01)=""
^DD(698.12,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(698.12,0,"DT")="2930310"
^DD(698.12,0,"IX","B",698.12,.01)=""
^DD(698.12,0,"NM","ICD DIAGNOSIS")=""
^DD(698.12,0,"UP")="698.1"
^DD(698.12,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(698.12,.01,1,0)="^.1"
^DD(698.12,.01,1,1,0)="698.12^B"
^DD(698.12,.01,1,1,1)="S ^MCAR(698.1,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(698.12,.01,1,1,2)="K ^MCAR(698.1,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(698.12,.01,21,0)="^^3^3^2920102^"
^DD(698.12,.01,21,1,0)="This field contains the ICD Diagnosis(es) for the procedure.  The field"
^DD(698.12,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(698.12,.01,21,3,0)="future."
^DD(698.12,.01,23,0)="^^1^1^2921106^^^"
^DD(698.12,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.12,.01,"DT")="2930310"
^DD(698.12,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(698.12,.02,3)="Answer must be 1-80 characters in length."
^DD(698.12,.02,23,0)="^^1^1^2921106^^^"
^DD(698.12,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.12,.02,"DT")="2920102"
^DD(698.12,"B","ICD DIAGNOSIS",.01)=""
^DD(698.12,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(698.12,"GL",0,1,.01)=""
^DD(698.12,"GL",0,2,.02)=""
^DD(698.12,"IX",.01)=""
^DD(698.2,0)="FIELD^^1001^23"
^DD(698.2,0,"DT")="2940912"
^DD(698.2,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(698.2,0,"IX","AC",698.2,.01)=""
^DD(698.2,0,"IX","AD",698.2,1)=""
^DD(698.2,0,"IX","APCE",698.2,900)=""
^DD(698.2,0,"IX","B",698.2,.01)=""
^DD(698.2,0,"IX","C",698.2,1)=""
^DD(698.2,0,"NM","A LEAD IMPLANT")=""
^DD(698.2,0,"PT",123,11)=""
^DD(698.2,0,"PT",123.03,.01)=""
^DD(698.2,0,"VR")="2.3"
^DD(698.2,0,"VRPK")="MEDICINE"
^DD(698.2,.01,0)="DATE/TIME OF IMPLANT^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(698.2,.01,1,0)="^.1"
^DD(698.2,.01,1,1,0)="698.2^B"
^DD(698.2,.01,1,1,1)="S ^MCAR(698.2,""B"",$E(X,1,30),DA)="""""
^DD(698.2,.01,1,1,2)="K ^MCAR(698.2,""B"",$E(X,1,30),DA)"
^DD(698.2,.01,1,2,0)="698.2^AC^MUMPS"
^DD(698.2,.01,1,2,1)="S MCARCDIE=""^MCAR(698.2,"" D CHGDTE1^MCARPROC"
^DD(698.2,.01,1,2,2)="S MCARCDIE=""^MCAR(698.2,"" D CHGDTE^MCARPROC"
^DD(698.2,.01,1,2,"%D",0)="^^3^3^2920421^"
^DD(698.2,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AD' index of the MEDICAL"
^DD(698.2,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent A lead implant procedure"
^DD(698.2,.01,1,2,"%D",3,0)="for this patient."
^DD(698.2,.01,3)=""
^DD(698.2,.01,21,0)="^^1^1^2891101^"
^DD(698.2,.01,21,1,0)="This allows analysis based on time."
^DD(698.2,.01,23,0)="^^1^1^2921106^^^"
^DD(698.2,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.2,1,0)="MEDICAL PATIENT^P690^MCAR(690,^0;2^Q"
^DD(698.2,1,1,0)="^.1"
^DD(698.2,1,1,1,0)="698.2^C"
^DD(698.2,1,1,1,1)="S ^MCAR(698.2,""C"",$E(X,1,30),DA)="""""
^DD(698.2,1,1,1,2)="K ^MCAR(698.2,""C"",$E(X,1,30),DA)"
^DD(698.2,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(698.2,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(698.2,1,1,2,0)="698.2^AD^MUMPS"
^DD(698.2,1,1,2,1)="S MCARCDIE=""^MCAR(698.2,"" D CHGPAT^MCARPROC"
^DD(698.2,1,1,2,2)="S MCARCDIE=""^MCAR(698.2,"" D KILL^MCARPROC"
^DD(698.2,1,1,2,"%D",0)="^^3^3^2920421^"
^DD(698.2,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(698.2,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent A lead implant procedure"
^DD(698.2,1,1,2,"%D",3,0)="for this patient."
^DD(698.2,1,3)="Enter the patient's name, SSN, or other identifier"
^DD(698.2,1,21,0)="^^1^1^2891101^^"
^DD(698.2,1,21,1,0)="Patient's name."
^DD(698.2,1,23,0)="^^1^1^2921106^^^"
^DD(698.2,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.2,2,0)="A LEAD MODEL^*P698.4'X^MCAR(698.4,^0;3^S DIC(""S"")=""I $P(^MCAR(698.4,+Y,0),U,2)[""""A"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.2,2,1,0)="^.1"
^DD(698.2,2,1,1,0)="^^TRIGGER^698.2^3"
^DD(698.2,2,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.2,2,1,1,1.1) X ^DD(698.2,2,1,1,1.4)"
^DD(698.2,2,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698.2,2,1,1,1.4)="S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.2,2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698.2,2,1,1,2.1) X ^DD(698.2,2,1,1,2.4)"
^DD(698.2,2,1,1,2.1)="S X=DIV X ^DD(698.2,2,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(698.2,2,1,1,2.4)="S DIH=$S($D(^MCAR(698.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=698.2,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.2,2,1,1,59.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^MCAR(698.2,D0,0)):^(0),1:""""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"""")"
^DD(698.2,2,1,1,"%D",0)="^^1^1^2960423^"
^DD(698.2,2,1,1,"%D",1,0)="This cross-reference triggers the A LEAD MANUFACTURER field (#3)."
^DD(698.2,2,1,1,"CREATE VALUE")="INTERNAL(#2:#2)"
^DD(698.2,2,1,1,"DELETE VALUE")="INTERNAL(#2:#2)"
^DD(698.2,2,1,1,"DT")="2960423"
^DD(698.2,2,1,1,"FIELD")="#3"
^DD(698.2,2,3)="Enter the manufacturer's production name for this transmitter."
^DD(698.2,2,12)="CHOOSE LEADS THAT ARE A LEAD OR BOTH A AND V LEADS ONLY"
^DD(698.2,2,12.1)="S DIC(""S"")=""I $P(^MCAR(698.4,+Y,0),U,2)[""""A"""""""
^DD(698.2,2,21,0)="^^1^1^2940913^^"
^DD(698.2,2,21,1,0)="This field identifies the device by the manufacturer's production name."
^DD(698.2,2,23,0)="^^1^1^2940913^^^^"
^DD(698.2,2,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(698.2,2,"DT")="2960423"
^DD(698.2,3,0)="A LEAD MANUFACTURER^P698.6'^MCAR(698.6,^0;4^Q"
^DD(698.2,3,3)="Enter the producer of this transmitter."
^DD(698.2,3,5,1,0)="698.2^2^1"
^DD(698.2,3,9)="^"
^DD(698.2,3,21,0)="^^1^1^2891101^"
^DD(698.2,3,21,1,0)="This field identifies the producer of the lead."
^DD(698.2,4,0)="A LEAD SERIAL NUMBER^F^^0;5^K:$L(X)>12!($L(X)<2) X"
^DD(698.2,4,3)="ANSWER MUST BE 2-12 CHARACTERS IN LENGTH"
^DD(698.2,4,21,0)="^^1^1^2891101^"
^DD(698.2,4,21,1,0)="This field identifies the specific device."
^DD(698.2,4,23,0)="^^1^1^2921106^^^"
^DD(698.2,4,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(698.2,11,0)="A LEAD THRESHOLD IN VOLTS^NJ4,1^^0;6^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.2,11,3)="Type a Number between 0 and 12, 1 Decimal Digit"
^DD(698.2,11,21,0)="^^1^1^2891101^^"
^DD(698.2,11,21,1,0)="This allows documentation of an initial threshold parameter."
^DD(698.2,11,23,0)="^^1^1^2921106^^^"
^DD(698.2,11,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,11,"DT")="2900221"
^DD(698.2,12,0)="A LEAD THRESHOLD IN mA's AT .5^NJ4,1^^0;7^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.2,12,3)="Type a Number between 0 and 12, 1 Decimal Digit"
^DD(698.2,12,21,0)="^^1^1^2891101^^"
^DD(698.2,12,21,1,0)="This allows documentation of an initial threshold parameter."
^DD(698.2,12,23,0)="^^1^1^2921106^^^"
^DD(698.2,12,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,12,"DT")="2900221"
^DD(698.2,13,0)="A LEAD RESISTANCE (OHMS) AT 5V^NJ7,2^^0;8^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.2,13,3)="Type a Number between 0 and 1000, 2 Decimal Digits"
^DD(698.2,13,21,0)="^^1^1^2891101^^"
^DD(698.2,13,21,1,0)="This allows documentation of an initial resistance parameter."
^DD(698.2,13,23,0)="^^1^1^2921106^^^"
^DD(698.2,13,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,13,"DT")="2900221"
^DD(698.2,14,0)="P WAVE AMPLITUDE (MV)^NJ4,1^^0;9^K:+X'=X!(X>25)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.2,14,3)="Type a Number between 0 and 25, 1 Decimal Digit"
^DD(698.2,14,21,0)="^^1^1^2891101^"
^DD(698.2,14,21,1,0)="This allows documentation of the initial amplitude parameter."
^DD(698.2,14,"DT")="2900221"
^DD(698.2,15,0)="A LEAD PSA USED^*P698.4'^MCAR(698.4,^0;10^S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""P"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.2,15,12)="CHOOSE PSA EQUIPMENT TYPE ONLY"
^DD(698.2,15,12.1)="S DIC(""S"")=""I $D(^MCAR(698.4,""""C"""",""""P"""",+Y))"""
^DD(698.2,15,21,0)="^^1^1^2891101^^"
^DD(698.2,15,21,1,0)="This allows documentation of lead implementation."
^DD(698.2,56,0)="EXPLANT DATE^D^^1;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(698.2,56,3)="Enter the date that this apparatus was removed."
^DD(698.2,56,21,0)="^^1^1^2891101^"
^DD(698.2,56,21,1,0)="This allows documentation of lead removal."
^DD(698.2,56,23,0)="^^1^1^2921106^^^"
^DD(698.2,56,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,57,0)="A LEAD EXPLANT REASON^*P695.8'^MCAR(695.8,^1;2^S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""L"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.2,57,3)="Enter the reason for this explant/implant procedure."
^DD(698.2,57,12)="CHOOSE REASONS ASSOSCIATED WITH 'LEADS' ONLY"
^DD(698.2,57,12.1)="S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""L"""",+Y))"""
^DD(698.2,57,21,0)="^^1^1^2891101^"
^DD(698.2,57,21,1,0)="This allows documentation of explant rationale."
^DD(698.2,57,23,0)="^^1^1^2921106^^^"
^DD(698.2,57,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,300,0)="ATTENDING PHYSICIAN^*P200'^VA(200,^3;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.2,300,1,0)="^.1"
^DD(698.2,300,1,1,0)="^^TRIGGER^698.2^701"
^DD(698.2,300,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(698.2,300,1,1,1.4)"
^DD(698.2,300,1,1,1.4)="S DIH=$S($D(^MCAR(698.2,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=698.2,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.2,300,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698.2,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698.2,300,1,1,2.1) X ^DD(698.2,300,1,1,2.4)"
^DD(698.2,300,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(698.2,D0,3)):^(3),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(698.2,300,1,1,2.4)="S DIH=$S($D(^MCAR(698.2,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=698.2,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(698.2,300,1,1,"%D",0)="^^1^1^2960423^"
^DD(698.2,300,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(698.2,300,1,1,"CREATE VALUE")="INTERNAL(#300)"
^DD(698.2,300,1,1,"DELETE VALUE")="INTERNAL(#300)"
^DD(698.2,300,1,1,"DT")="2960423"
^DD(698.2,300,1,1,"FIELD")="#701"
^DD(698.2,300,3)="Enter the attending Physician"
^DD(698.2,300,12)="Only select Providers!"
^DD(698.2,300,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.2,300,21,0)="^^2^2^2920114^"
^DD(698.2,300,21,1,0)="This field identifies the name of the Attending Physician for this A-Lead"
^DD(698.2,300,21,2,0)="Implant. "
^DD(698.2,300,"DT")="2960423"
^DD(698.2,301,0)="FELLOW-1st^*P200'^VA(200,^3;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.2,301,3)="Enter the 1st Fellow."
^DD(698.2,301,12)="Only allow Providers!"
^DD(698.2,301,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.2,301,21,0)="^^1^1^2920114^"
^DD(698.2,301,21,1,0)="This field identifies the name of a Cardiology Fellow for this A-Lead Implant."
^DD(698.2,301,"DT")="2940912"
^DD(698.2,302,0)="FELLOW-2nd^*P200'^VA(200,^3;3^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.2,302,12)="Only allow Providers!"
^DD(698.2,302,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.2,302,21,0)="^^2^2^2940912^^"
^DD(698.2,302,21,1,0)="This field identifies the name of a second Cardiology Fellow for this A-Lead"
^DD(698.2,302,21,2,0)="Implant. "
^DD(698.2,302,"DT")="2940912"
^DD(698.2,500,0)="COMMENTS^698.21^^10;0"
^DD(698.2,500,21,0)="^^1^1^2891101^"
^DD(698.2,500,21,1,0)="This allows a documentation area of free form."
^DD(698.2,500,23,0)="^^1^1^2921106^^^"
^DD(698.2,500,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(698.2,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(698.2,600,21,0)="^^2^2^2910425^"
^DD(698.2,600,21,1,0)="This 1-79 character field will be displayed on the medical "
^DD(698.2,600,21,2,0)="procedure summary report."
^DD(698.2,600,23,0)="^^1^1^2921106^^^"
^DD(698.2,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,600,"DT")="2901121"
^DD(698.2,601,0)="SUMMARY^RS^A:ABNORMAL;N:NORMAL;^.2;1^Q"
^DD(698.2,601,21,0)="^^1^1^2910425^"
^DD(698.2,601,21,1,0)="This field summarizes the results of the procedure."
^DD(698.2,601,"DT")="2901121"
^DD(698.2,700,0)="ICD DIAGNOSIS^698.22P^^ICD;0"
^DD(698.2,700,21,0)="^^2^2^2920102^"
^DD(698.2,700,21,1,0)="This field identifies the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(698.2,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the future."
^DD(698.2,700,23,0)="^^1^1^2921106^^^"
^DD(698.2,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.2,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.2,701,5,1,0)="698.2^300^1"
^DD(698.2,701,9)="^"
^DD(698.2,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.2,701,21,0)="^^3^3^2920109^"
^DD(698.2,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(698.2,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(698.2,701,21,3,0)="use in transferring data to the PCC."
^DD(698.2,701,"DT")="2941025"
^DD(698.2,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(698.2,900,1,0)="^.1"
^DD(698.2,900,1,1,0)="698.2^APCE"
^DD(698.2,900,1,1,1)="S ^MCAR(698.2,""APCE"",$E(X,1,30),DA)="""""
^DD(698.2,900,1,1,2)="K ^MCAR(698.2,""APCE"",$E(X,1,30),DA)"
^DD(698.2,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(698.2,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(698.2,900,1,1,"DT")="2960517"
^DD(698.2,900,21,0)="^^2^2^2920728^^^"
^DD(698.2,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(698.2,900,21,2,0)="Visit File for use by Queryman."
^DD(698.2,900,"DT")="2960517"
^DD(698.2,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(698.2,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(698.2,1000,21,0)="^^3^3^2910709^"
^DD(698.2,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(698.2,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(698.2,1000,21,3,0)="Medicine package."
^DD(698.2,1000,"DT")="2910709"
^DD(698.2,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(698.2,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(698.2,1001,21,0)="^^3^3^2910816"
^DD(698.2,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(698.2,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(698.2,1001,21,3,0)="results are entered in the Medicine package."
^DD(698.2,1001,"DT")="2910816"
^DD(698.2,"B","A LEAD EXPLANT REASON",57)=""
^DD(698.2,"B","A LEAD MANUFACTURER",3)=""
^DD(698.2,"B","A LEAD MODEL",2)=""
^DD(698.2,"B","A LEAD PSA USED",15)=""
^DD(698.2,"B","A LEAD RESISTANCE (OHMS) AT 5V",13)=""
^DD(698.2,"B","A LEAD SERIAL NUMBER",4)=""
^DD(698.2,"B","A LEAD THRESHOLD IN VOLTS",11)=""
^DD(698.2,"B","A LEAD THRESHOLD IN mA's AT .5",12)=""
^DD(698.2,"B","ATTENDING PHYSICIAN",300)=""
^DD(698.2,"B","COMMENTS",500)=""
^DD(698.2,"B","DATE/TIME OF IMPLANT",.01)=""
^DD(698.2,"B","EXPLANT DATE",56)=""
^DD(698.2,"B","FELLOW-1st",301)=""
^DD(698.2,"B","FELLOW-2nd",302)=""
^DD(698.2,"B","GMRCO",1001)=""
^DD(698.2,"B","ICD DIAGNOSIS",700)=""
^DD(698.2,"B","MEDICAL PATIENT",1)=""
^DD(698.2,"B","ORIFN",1000)=""
^DD(698.2,"B","P WAVE AMPLITUDE (MV)",14)=""
^DD(698.2,"B","PCC POINTER",900)=""
^DD(698.2,"B","PRIMARY PROVIDER",701)=""
^DD(698.2,"B","PROCEDURE SUMMARY",600)=""
^DD(698.2,"B","SUMMARY",601)=""
^DD(698.2,"GL",0,1,.01)=""
^DD(698.2,"GL",0,2,1)=""
^DD(698.2,"GL",0,3,2)=""
^DD(698.2,"GL",0,4,3)=""
^DD(698.2,"GL",0,5,4)=""
^DD(698.2,"GL",0,6,11)=""
^DD(698.2,"GL",0,7,12)=""
^DD(698.2,"GL",0,8,13)=""
^DD(698.2,"GL",0,9,14)=""
^DD(698.2,"GL",0,10,15)=""
^DD(698.2,"GL",.2,1,601)=""
^DD(698.2,"GL",.2,2,600)=""
^DD(698.2,"GL",1,1,56)=""
^DD(698.2,"GL",1,2,57)=""
^DD(698.2,"GL",3,1,300)=""
^DD(698.2,"GL",3,2,301)=""
^DD(698.2,"GL",3,3,302)=""
^DD(698.2,"GL",10,0,500)=""
^DD(698.2,"GL","ICD",0,700)=""
^DD(698.2,"GL","OR",1,1000)=""
^DD(698.2,"GL","OR",2,1001)=""
^DD(698.2,"GL","PCC",1,900)=""
^DD(698.2,"GL","PROV",1,701)=""
^DD(698.2,"IX",.01)=""
^DD(698.2,"IX",1)=""
^DD(698.2,"IX",2)=""
^DD(698.2,"IX",300)=""
^DD(698.2,"IX",900)=""
^DD(698.2,"RQ",.01)=""
^DD(698.2,"RQ",600)=""
^DD(698.2,"RQ",601)=""
^DD(698.2,"SB",698.21,500)=""
^DD(698.2,"SB",698.22,700)=""
^DD(698.21,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(698.21,0,"NM","COMMENTS")=""
^DD(698.21,0,"UP")="698.2"
^DD(698.21,.01,0)="COMMENTS^W^^0;1^Q"
^DD(698.21,.01,3)="Enter free-text remarks on this procedure."
^DD(698.21,.01,21,0)="^^1^1^2891101^"
^DD(698.21,.01,21,1,0)="This allows a documentation area of free form."
^DD(698.21,.01,23,0)="^^1^1^2921106^^^"
^DD(698.21,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.21,"B","COMMENTS",.01)=""
^DD(698.21,"GL",0,1,.01)=""
^DD(698.22,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(698.22,0,"DT")="2930310"
^DD(698.22,0,"IX","B",698.22,.01)=""
^DD(698.22,0,"NM","ICD DIAGNOSIS")=""
^DD(698.22,0,"UP")="698.2"
^DD(698.22,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(698.22,.01,1,0)="^.1"
^DD(698.22,.01,1,1,0)="698.22^B"
^DD(698.22,.01,1,1,1)="S ^MCAR(698.2,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(698.22,.01,1,1,2)="K ^MCAR(698.2,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(698.22,.01,21,0)="^^2^2^2920102^"
^DD(698.22,.01,21,1,0)="This field identifies the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(698.22,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the future."
^DD(698.22,.01,23,0)="^^1^1^2921106^^^"
^DD(698.22,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.22,.01,"DT")="2930310"
^DD(698.22,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(698.22,.02,3)="Answer must be 1-80 characters in length."
^DD(698.22,.02,23,0)="^^1^1^2921106^^^"
^DD(698.22,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.22,.02,"DT")="2920102"
^DD(698.22,"B","ICD DIAGNOSIS",.01)=""
^DD(698.22,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(698.22,"GL",0,1,.01)=""
^DD(698.22,"GL",0,2,.02)=""
^DD(698.22,"IX",.01)=""
^DD(698.3,0)="FIELD^^1001^55"
^DD(698.3,0,"DT")="2941025"
^DD(698.3,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(698.3,0,"IX","AC",698.3,.01)=""
^DD(698.3,0,"IX","AD",698.3,1)=""
^DD(698.3,0,"IX","APCE",698.3,900)=""
^DD(698.3,0,"IX","B",698.3,.01)=""
^DD(698.3,0,"IX","C",698.3,1)=""
^DD(698.3,0,"NM","PACEMAKER SURVEILLANCE")=""
^DD(698.3,0,"PT",123,11)=""
^DD(698.3,0,"PT",123.03,.01)=""
^DD(698.3,0,"VR")="2.3"
^DD(698.3,0,"VRPK")="MEDICINE"
^DD(698.3,.01,0)="DATE/TIME^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(698.3,.01,1,0)="^.1"
^DD(698.3,.01,1,1,0)="698.3^B"
^DD(698.3,.01,1,1,1)="S ^MCAR(698.3,""B"",$E(X,1,30),DA)="""""
^DD(698.3,.01,1,1,2)="K ^MCAR(698.3,""B"",$E(X,1,30),DA)"
^DD(698.3,.01,1,2,0)="698.3^AC^MUMPS"
^DD(698.3,.01,1,2,1)="S MCARCDIE=""^MCAR(698.3,"" D CHGDTE1^MCARPROC"
^DD(698.3,.01,1,2,2)="S MCARCDIE=""^MCAR(698.3,"" D CHGDTE^MCARPROC"
^DD(698.3,.01,1,2,"%D",0)="^^3^3^2920421^"
^DD(698.3,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(698.3,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent pacemaker surveillance"
^DD(698.3,.01,1,2,"%D",3,0)="procedure for this patient."
^DD(698.3,.01,3)="ENTER THE DATE AND TIME OF CLINIC SURVEILLANCE VISIT OR TELEPHONE CONTACT"
^DD(698.3,.01,21,0)="^^1^1^2891101^"
^DD(698.3,.01,21,1,0)="This allows analysis based on time."
^DD(698.3,.01,23,0)="^^1^1^2921106^^^"
^DD(698.3,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.3,1,0)="MEDICAL PATIENT^RP690^MCAR(690,^0;2^Q"
^DD(698.3,1,1,0)="^.1"
^DD(698.3,1,1,1,0)="698.3^C"
^DD(698.3,1,1,1,1)="S ^MCAR(698.3,""C"",$E(X,1,30),DA)="""""
^DD(698.3,1,1,1,2)="K ^MCAR(698.3,""C"",$E(X,1,30),DA)"
^DD(698.3,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(698.3,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(698.3,1,1,2,0)="698.3^AD^MUMPS"
^DD(698.3,1,1,2,1)="S MCARCDIE=""^MCAR(698.3,"" D CHGPAT^MCARPROC"
^DD(698.3,1,1,2,2)="S MCARCDIE=""^MCAR(698.3,"" D KILL^MCARPROC"
^DD(698.3,1,1,2,"%D",0)="^^3^3^2920421^"
^DD(698.3,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(698.3,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent pacemaker surveillance"
^DD(698.3,1,1,2,"%D",3,0)="procedure for this patient."
^DD(698.3,1,3)="Enter the patient's name, SSN, or other identifier"
^DD(698.3,1,21,0)="^^1^1^2891101^"
^DD(698.3,1,21,1,0)="Patient's name."
^DD(698.3,1,23,0)="^^1^1^2921106^^^"
^DD(698.3,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(698.3,2,0)="CALLER^P200'^VA(200,^0;3^Q"
^DD(698.3,2,3)="Enter the surveillance operator."
^DD(698.3,2,21,0)="^^1^1^2950328^^"
^DD(698.3,2,21,1,0)="This field identifies the surveillance operator."
^DD(698.3,3,0)="DATA GATHERING MODE^RS^T:TELEPHONE;C:CLINIC;^0;4^Q"
^DD(698.3,3,3)="Enter T for Telephone or C for Clinic for surveillance technique."
^DD(698.3,3,21,0)="^^1^1^2891101^"
^DD(698.3,3,21,1,0)="This defines the surveillance technique."
^DD(698.3,3,"DT")="2901130"
^DD(698.3,4,0)="PULSE INTERVAL (MSEC) WO MAG^NJ4,0^^0;7^K:+X'=X!(X>3000)!(X<200)!(X?.E1"".""1N.N) X"
^DD(698.3,4,3)="Type a Number between 200 and 3000, 0 Decimal Digits"
^DD(698.3,4,21,0)="^^1^1^2891101^"
^DD(698.3,4,21,1,0)="This allows documentation of a current rate parameter."
^DD(698.3,4,23,0)="^^1^1^2921106^^^"
^DD(698.3,4,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,5,0)="RATE WO MAG^CJ8,1^^ ; ^X ^DD(698.3,5,9.2) S X=$S(Y(698.3,5,2):Y(698.3,5,3),Y(698.3,5,4):X) S X=$J(X,0,1)"
^DD(698.3,5,9)="^"
^DD(698.3,5,9.01)="698.3^4"
^DD(698.3,5,9.1)="$S(#4="""":"""",1:60000/#4)"
^DD(698.3,5,9.2)="S Y(698.3,5,1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=$P(Y(698.3,5,1),U,7)="""",Y(698.3,5,2)=X S X="""",Y(698.3,5,3)=X S X=1,Y(698.3,5,4)=X S X=60000,X=$S($P(Y(698.3,5,1),U,7):X/$P(Y(698.3,5,1),U,7),1:""*******"")"
^DD(698.3,5,21,0)="^^1^1^2891101^"
^DD(698.3,5,21,1,0)="This allows documentation of a current rate parameter."
^DD(698.3,6,0)="PULSE INTERVAL (MSEC) W MAG^NJ4,0^^0;8^K:+X'=X!(X>3000)!(X<200)!(X?.E1"".""1N.N) X"
^DD(698.3,6,3)="Type a Number between 200 and 3000, 0 Decimal Digits"
^DD(698.3,6,21,0)="^^1^1^2891101^"
^DD(698.3,6,21,1,0)="This allows documentation of a current rate parameter."
^DD(698.3,6,23,0)="^^1^1^2921106^^^"
^DD(698.3,6,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,7,0)="RATE W MAG^CJ8,1^^ ; ^X ^DD(698.3,7,9.2) S X=$S(Y(698.3,7,2):Y(698.3,7,3),Y(698.3,7,4):X) S X=$J(X,0,1)"
^DD(698.3,7,9)="^"
^DD(698.3,7,9.01)="698.3^6"
^DD(698.3,7,9.1)="$S(#6="""":"""",1:60000/#6)"
^DD(698.3,7,9.2)="S Y(698.3,7,1)=$S($D(^MCAR(698.3,D0,0)):^(0),1:"""") S X=$P(Y(698.3,7,1),U,8)="""",Y(698.3,7,2)=X S X="""",Y(698.3,7,3)=X S X=1,Y(698.3,7,4)=X S X=60000,X=$S($P(Y(698.3,7,1),U,8):X/$P(Y(698.3,7,1),U,8),1:""*******"")"
^DD(698.3,7,21,0)="^^1^1^2891101^"
^DD(698.3,7,21,1,0)="This allows documentation of a current rate parameter."
^DD(698.3,11,0)="A-V DELAY WO MAG (MSEC)^NJ4,0^^0;11^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,11,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(698.3,11,21,0)="^^1^1^2891101^"
^DD(698.3,11,21,1,0)="This allows documentation of a current rhythm parameter."
^DD(698.3,11,23,0)="^^1^1^2921106^^^"
^DD(698.3,11,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,12,0)="A-V DELAY W MAG (MSEC)^NJ4,0^^0;12^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,12,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(698.3,12,21,0)="^^1^1^2891101^"
^DD(698.3,12,21,1,0)="This allows documentation of a current rhythm parameter."
^DD(698.3,12,23,0)="^^1^1^2921106^^^"
^DD(698.3,12,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,13,0)="BATTERY VOLTAGE^NJ5,2^^0;13^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,13,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(698.3,13,21,0)="^^1^1^2891101^"
^DD(698.3,13,21,1,0)="This allows documentation of current power state."
^DD(698.3,13,"DT")="2910211"
^DD(698.3,14,0)="RESISTANCE^NJ5,2^^0;14^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,14,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(698.3,14,21,0)="^^1^1^2891101^^"
^DD(698.3,14,21,1,0)="This allows documentation of the current ohms parameter."
^DD(698.3,14,"DT")="2910211"
^DD(698.3,15,0)="BASIC RHYTHM^P698.9'^MCAR(698.9,^0;9^Q"
^DD(698.3,15,3)="Enter documentation of the current rhythm, pointer to Non-Magnet ECG Rhythm File (#698.9)."
^DD(698.3,15,21,0)="^^1^1^2891101^"
^DD(698.3,15,21,1,0)="This allows documentation of the current rhythm."
^DD(698.3,15,23,0)="^^1^1^2921106^^^"
^DD(698.3,15,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,15,"DT")="2890113"
^DD(698.3,16,0)="PERCENT OF PACED BEATS^NJ3,0^^0;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,16,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(698.3,16,21,0)="^^1^1^2891101^"
^DD(698.3,16,21,1,0)="This allows documentation of the current rate of generator activity."
^DD(698.3,16,23,0)="^^1^1^2921106^^^"
^DD(698.3,16,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,50,0)="REPROGRAMMED RATE^NJ5,1^^0;15^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.3,50,3)="Type a Number between 0 and 300, 1 Decimal Digit"
^DD(698.3,50,21,0)="^^1^1^2891101^"
^DD(698.3,50,21,1,0)="This allows documentation of rate adjustments."
^DD(698.3,50,23,0)="^^1^1^2921106^^^"
^DD(698.3,50,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,50,"DT")="2910211"
^DD(698.3,51,0)="REPROG. UPPER RATE LIMIT^NJ3,0^^0;16^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,51,3)="Type a Number between 0 and 300, 0 Decimal Digits"
^DD(698.3,51,21,0)="^^1^1^2891101^"
^DD(698.3,51,21,1,0)="This allows documentation of a rate adjustment."
^DD(698.3,51,23,0)="^^1^1^2921106^^^"
^DD(698.3,51,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,52,0)="REPROGRAMMED A-V DELAY (MSECS)^NJ3,0^^0;17^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,52,3)="Type a Number between 0 and 500, 0 Decimal Digits"
^DD(698.3,52,21,0)="^^1^1^2891101^"
^DD(698.3,52,21,1,0)="This allows documentation of a rhythm adjustment."
^DD(698.3,52,23,0)="^^1^1^2921106^^^"
^DD(698.3,52,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,53,0)="REPROGRAMMED HYSTERESIS^NJ3,0^^0;18^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,53,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(698.3,53,21,0)="^^1^1^2891101^"
^DD(698.3,53,21,1,0)="This allows documentation of a hysteresis adjustment."
^DD(698.3,53,23,0)="^^1^1^2921106^^^"
^DD(698.3,53,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,54,0)="REPROGRAMMED PACING MODE^S^1:AAI;2:VVI;3:DDD;4:DVI;5:AAT;6:VVT;7:VAT;8:VDD;9:AOO;10:VOO;11:DOO;12:OTHER;^0;19^Q"
^DD(698.3,54,3)="Enter Code for adjustment to device operations."
^DD(698.3,54,21,0)="^^1^1^2891101^"
^DD(698.3,54,21,1,0)="This allows documentation of an adjustment to device operations."
^DD(698.3,54,23,0)="^^1^1^2921106^^^"
^DD(698.3,54,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,55,0)="REASON FOR REPROGRAMMING^*P695.8'^MCAR(695.8,^0;20^S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""R"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.3,55,3)="Enter adjustment rationale, pointer to Reason (Medicine) File (#695.8)."
^DD(698.3,55,12)="CHOOSE ONLY REPROGRAMMING REASONS"
^DD(698.3,55,12.1)="S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""R"""",+Y))"""
^DD(698.3,55,21,0)="^^1^1^2891101^^"
^DD(698.3,55,21,1,0)="This allows documentation of the adjustment rationale."
^DD(698.3,101,0)="PULSE WIDTH (ATRIAL-MSEC)^NJ4,2^^1;1^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,101,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(698.3,101,21,0)="^^1^1^2891101^"
^DD(698.3,101,21,1,0)="This allows documentation of a pulse segment rate parameter."
^DD(698.3,101,23,0)="^^1^1^2921106^^^"
^DD(698.3,101,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,101,"DT")="2910211"
^DD(698.3,102,0)="MEASURED A-LEAD AMPLITUDE (MV)^NJ5,1^^1;2^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.3,102,3)="Type a Number between 0 and 500, 1 Decimal Digit"
^DD(698.3,102,21,0)="^^1^1^2891101^^"
^DD(698.3,102,21,1,0)="This allows documentation of atrial lead voltage."
^DD(698.3,102,23,0)="^^1^1^2921106^^^"
^DD(698.3,102,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,102,"DT")="2910211"
^DD(698.3,103,0)="RATIO (T/L) (ATRIAL)^NJ6,3^^1;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""4N.N) X"
^DD(698.3,103,3)="Type a Number between 0 and 10, 3 Decimal Digits"
^DD(698.3,103,21,0)="^^1^1^2891101^^"
^DD(698.3,103,21,1,0)="This allows documentation of a performance ratio."
^DD(698.3,103,"DT")="2910211"
^DD(698.3,104,0)="THRESHOLD WIDTH (ATRIAL)^NJ5,2^^1;4^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,104,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(698.3,104,21,0)="^^1^1^2891101^^"
^DD(698.3,104,21,1,0)="This allows documentation of the atrial threshold parameter."
^DD(698.3,104,"DT")="2910211"
^DD(698.3,105,0)="THRESHOLD AMPLITUDE (ATRIAL)^NJ5,2^^1;5^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,105,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(698.3,105,21,0)="^^1^1^2891101^^"
^DD(698.3,105,21,1,0)="This allows documentation of the atrial voltage threshold."
^DD(698.3,105,"DT")="2910211"
^DD(698.3,106,0)="CAPTURE (ATRIAL)^S^Y:YES;N:NO;I:INTERMITTENT;U:UNKNOWN;NA:NOT APPLICABLE;^1;6^Q"
^DD(698.3,106,3)="Enter knowledge of atrial capture."
^DD(698.3,106,21,0)="^^1^1^2891101^"
^DD(698.3,106,21,1,0)="This allows documentation of atrial capture."
^DD(698.3,106,23,0)="^^1^1^2921106^^^"
^DD(698.3,106,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,107,0)="SENSE (ATRIAL)^S^Y:YES;N:NO;I:INTERMITTENT;U:UNKNOWN;NA:NOT APPLICABLE;^1;7^Q"
^DD(698.3,107,3)="Enter knowledge of atrial sense."
^DD(698.3,107,21,0)="^^1^1^2891101^"
^DD(698.3,107,21,1,0)="This allows documentation of atrial sense."
^DD(698.3,107,23,0)="^^1^1^2921106^^^"
^DD(698.3,107,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,121,0)="REPR.PULSE WIDTH (ATRIAL-MSEC)^NJ4,2^^1;8^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,121,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(698.3,121,21,0)="^^1^1^2891101^^"
^DD(698.3,121,21,1,0)="This allows documentation of a pulse segment adjustment."
^DD(698.3,121,23,0)="^^1^1^2921106^^^"
^DD(698.3,121,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,121,"DT")="2910211"
^DD(698.3,122,0)="REPROG. A-AMPLITUDE (VOLTS)^NJ4,1^^1;9^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.3,122,3)="Type a Number between 0 and 12, 1 Decimal Digit"
^DD(698.3,122,21,0)="^^1^1^2891101^"
^DD(698.3,122,21,1,0)="This allows documentation of atrial voltage adjustments."
^DD(698.3,122,23,0)="^^1^1^2921106^^^"
^DD(698.3,122,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,122,"DT")="2910211"
^DD(698.3,123,0)="REPR.SENSITIVITY(ATRIAL-VOLTS)^NJ4,2^^1;10^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,123,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(698.3,123,21,0)="^^1^1^2891101^"
^DD(698.3,123,21,1,0)="This allows documentation of adjustments to atrial sense."
^DD(698.3,123,23,0)="^^1^1^2921106^^^"
^DD(698.3,123,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,123,"DT")="2910211"
^DD(698.3,124,0)="REPR.ATRIAL REFRACTORY PERIOD^NJ4,0^^1;11^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,124,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(698.3,124,21,0)="^^1^1^2891101^^"
^DD(698.3,124,21,1,0)="This allows documentation of adjustments to atrial refraction."
^DD(698.3,124,23,0)="^^1^1^2921106^^^"
^DD(698.3,124,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,201,0)="PULSE WIDTH (VENTRICLE-MSEC)^NJ4,2^^2;1^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,201,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(698.3,201,21,0)="3^^1^1^2891101^"
^DD(698.3,201,21,1,0)="This allows documentation of a pulse segment rate parameter."
^DD(698.3,201,23,0)="^^1^1^2921106^^^"
^DD(698.3,201,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,201,"DT")="2910211"
^DD(698.3,202,0)="MEASURED V-LEAD AMPLITUDE (MV)^NJ5,1^^2;2^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.3,202,3)="Type a Number between 0 and 500, 1 Decimal Digit"
^DD(698.3,202,21,0)="^^1^1^2891101^"
^DD(698.3,202,21,1,0)="This allows documentation of ventricular lead voltage."
^DD(698.3,202,23,0)="^^1^1^2921106^^^"
^DD(698.3,202,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,202,"DT")="2910211"
^DD(698.3,203,0)="RATIO (T/L) (VENTRICLE)^NJ2,0^^2;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,203,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(698.3,203,21,0)="^^1^1^2891101^"
^DD(698.3,203,21,1,0)="This allows documentation of a performance ratio."
^DD(698.3,203,"DT")="2891101"
^DD(698.3,204,0)="THRESHOLD WIDTH (VENTRICLE)^NJ5,2^^2;4^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,204,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(698.3,204,21,0)="^^1^1^2891101^"
^DD(698.3,204,21,1,0)="This allows documentation of the ventricular threshold."
^DD(698.3,204,"DT")="2910211"
^DD(698.3,205,0)="THRESHOLD AMPLITUDE (VENT.)^NJ5,2^^2;5^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,205,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(698.3,205,21,0)="^^1^1^2891101^"
^DD(698.3,205,21,1,0)="This allows documentation of the ventricular voltage threshold."
^DD(698.3,205,"DT")="2910211"
^DD(698.3,206,0)="CAPTURE (VENTRICULAR)^S^Y:YES;N:NO;I:INTERMITTENT;UNK:UNKNOWN;NA:NOT APPLICABLE;^2;6^Q"
^DD(698.3,206,3)="Enter knowledge of ventricular capture."
^DD(698.3,206,21,0)="^^1^1^2891101^"
^DD(698.3,206,21,1,0)="This allows documentation of ventricular capture."
^DD(698.3,206,23,0)="^^1^1^2921106^^^"
^DD(698.3,206,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,207,0)="SENSE (VENTRICULAR)^S^Y:YES;N:NO;I:INTERMITTENT;UNK:UNKNOWN;NA:NOT APPLICABLE;^2;7^Q"
^DD(698.3,207,3)="Enter knowledge of ventricular sense."
^DD(698.3,207,21,0)="^^1^1^2891101^"
^DD(698.3,207,21,1,0)="This allows documentation of ventricular sense."
^DD(698.3,207,23,0)="^^1^1^2921106^^^"
^DD(698.3,207,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,221,0)="REPR.PULSE WIDTH (VENT-MSEC)^NJ4,2^^2;8^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,221,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(698.3,221,21,0)="^^1^1^2891101^"
^DD(698.3,221,21,1,0)="This allows documentation of a pulse segment adjustment."
^DD(698.3,221,23,0)="^^1^1^2921106^^^"
^DD(698.3,221,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,221,"DT")="2910211"
^DD(698.3,222,0)="REPROGR. V-AMPLITUDE (VOLTS)^NJ4,1^^2;9^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""2N.N) X"
^DD(698.3,222,3)="Type a Number between 0 and 12, 1 Decimal Digit"
^DD(698.3,222,21,0)="^^1^1^2891101^"
^DD(698.3,222,21,1,0)="This allows documentation of ventricular voltage adjustments."
^DD(698.3,222,23,0)="^^1^1^2921106^^^"
^DD(698.3,222,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,222,"DT")="2910211"
^DD(698.3,223,0)="REPR.SENSITIVITY (VENTR.-MV)^NJ4,2^^2;10^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""3N.N) X"
^DD(698.3,223,3)="Type a Number between 0 and 5, 2 Decimal Digits"
^DD(698.3,223,21,0)="^^1^1^2891101^"
^DD(698.3,223,21,1,0)="This allows documentation of adjustments to ventricular sense."
^DD(698.3,223,23,0)="^^1^1^2921106^^^"
^DD(698.3,223,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,223,"DT")="2910211"
^DD(698.3,224,0)="REPR. VENT. REFRACTORY PERIOD^NJ4,0^^2;11^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(698.3,224,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(698.3,224,21,0)="^^1^1^2891101^"
^DD(698.3,224,21,1,0)="This allows documentation of adjustments to ventricular refraction."
^DD(698.3,224,23,0)="^^1^1^2921106^^^"
^DD(698.3,224,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,300,0)="ATTENDING PHYSICIAN^*P200'^VA(200,^3;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.3,300,3)="This field identifies the name of the Attending Physician for this Surveillance Entry. "
^DD(698.3,300,12)="Allows only holders of the 'Provider' security key."
^DD(698.3,300,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.3,300,"DT")="2941025"
^DD(698.3,301,0)="FELLOW^*P200'^VA(200,^3;2^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.3,301,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.3,301,21,0)="^^2^2^2920114^^"
^DD(698.3,301,21,1,0)="This field identifies the name of the Cardiology Fellow for this Surveillance"
^DD(698.3,301,21,2,0)="Entry. "
^DD(698.3,301,"DT")="2941025"
^DD(698.3,491,0)="FOLLOWUP COMMENT^F^^4;4^K:$L(X)>60!($L(X)<2) X"
^DD(698.3,491,3)="ANSWER MUST BE 2-60 CHARACTERS IN LENGTH"
^DD(698.3,491,21,0)="^^1^1^2891101^"
^DD(698.3,491,21,1,0)="This allows a documentation area of free form."
^DD(698.3,492,0)="FAST OR SLOW CHECK^S^F:FAST CHECK;S:SLOW CHECK;^4;1^Q"
^DD(698.3,492,3)="Enter F for fast or S for slow check."
^DD(698.3,492,21,0)="^^1^1^2891101^"
^DD(698.3,492,21,1,0)="This allows documentation of fast/slow check."
^DD(698.3,493,0)="NEXT FOLLOW-UP DATE^D^^0;5^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(698.3,493,3)="Enter date/time of next follow-up date."
^DD(698.3,493,21,0)="^^1^1^2891101^"
^DD(698.3,493,21,1,0)="This allows documentation of the scheduled follow-up date."
^DD(698.3,500,0)="COMMENTS^698.31^^10;0"
^DD(698.3,500,21,0)="^^1^1^2891101^"
^DD(698.3,500,21,1,0)="This allows a documentation area of free form."
^DD(698.3,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(698.3,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(698.3,600,21,0)="^^2^2^2910426^^"
^DD(698.3,600,21,1,0)="This field identifies a required free-text summary (1 to 79 characters) of the"
^DD(698.3,600,21,2,0)="surveillance.  This summary will appear on the Summary of Patient Procedures."
^DD(698.3,600,23,0)="^^1^1^2921106^^^"
^DD(698.3,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,600,"DT")="2901121"
^DD(698.3,601,0)="SUMMARY^RS^A:ABNORMAL;B:BORDERLINE;N:NORMAL;^.2;1^Q"
^DD(698.3,601,3)="Enter appropriate code for summary of the surveillance."
^DD(698.3,601,21,0)="^^3^3^2910426^^^"
^DD(698.3,601,21,1,0)="This field identifies a required summary of the surveillance (Normal,"
^DD(698.3,601,21,2,0)="Abnormal, or Borderline).  This will appear on the Summary of Patient"
^DD(698.3,601,21,3,0)="Procedures. "
^DD(698.3,601,23,0)="^^1^1^2921106^^^"
^DD(698.3,601,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,601,"DT")="2901121"
^DD(698.3,700,0)="ICD DIAGNOSIS^698.32P^^ICD;0"
^DD(698.3,700,21,0)="^^3^3^2920102^"
^DD(698.3,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(698.3,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(698.3,700,21,3,0)="future."
^DD(698.3,700,23,0)="^^1^1^2921106^^^"
^DD(698.3,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.3,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(698.3,701,9)="^"
^DD(698.3,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(698.3,701,21,0)="^^3^3^2920109^"
^DD(698.3,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(698.3,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(698.3,701,21,3,0)="use in transferring data to the PCC."
^DD(698.3,701,"DT")="2941025"
^DD(698.3,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(698.3,900,1,0)="^.1"
^DD(698.3,900,1,1,0)="698.3^APCE"
^DD(698.3,900,1,1,1)="S ^MCAR(698.3,""APCE"",$E(X,1,30),DA)="""""
^DD(698.3,900,1,1,2)="K ^MCAR(698.3,""APCE"",$E(X,1,30),DA)"
^DD(698.3,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(698.3,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(698.3,900,1,1,"DT")="2960517"
^DD(698.3,900,21,0)="^^2^2^2920728^^^"
^DD(698.3,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(698.3,900,21,2,0)="Visit File for use by Queryman."
^DD(698.3,900,"DT")="2960517"
^DD(698.3,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(698.3,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(698.3,1000,21,0)="^^3^3^2910709^"
^DD(698.3,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(698.3,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(698.3,1000,21,3,0)="Medicine package."
^DD(698.3,1000,"DT")="2910709"
^DD(698.3,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(698.3,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(698.3,1001,21,0)="^^3^3^2910816"
^DD(698.3,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(698.3,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(698.3,1001,21,3,0)="results are entered in the Medicine package."
^DD(698.3,1001,"DT")="2910816"
^DD(698.3,"B","A-V DELAY W MAG (MSEC)",12)=""
^DD(698.3,"B","A-V DELAY WO MAG (MSEC)",11)=""
^DD(698.3,"B","ATTENDING PHYSICIAN",300)=""
^DD(698.3,"B","BASIC RHYTHM",15)=""
^DD(698.3,"B","BATTERY VOLTAGE",13)=""
^DD(698.3,"B","CALLER",2)=""
^DD(698.3,"B","CAPTURE (ATRIAL)",106)=""
^DD(698.3,"B","CAPTURE (VENTRICULAR)",206)=""
^DD(698.3,"B","COMMENTS",500)=""
^DD(698.3,"B","DATA GATHERING MODE",3)=""
^DD(698.3,"B","DATE/TIME",.01)=""
^DD(698.3,"B","FAST OR SLOW CHECK",492)=""
^DD(698.3,"B","FELLOW",301)=""
^DD(698.3,"B","FOLLOWUP COMMENT",491)=""
^DD(698.3,"B","GMRCO",1001)=""
^DD(698.3,"B","ICD DIAGNOSIS",700)=""
^DD(698.3,"B","MEASURED A-LEAD AMPLITUDE (MV)",102)=""
^DD(698.3,"B","MEASURED V-LEAD AMPLITUDE (MV)",202)=""
^DD(698.3,"B","MEDICAL PATIENT",1)=""
^DD(698.3,"B","NEXT FOLLOW-UP DATE",493)=""
^DD(698.3,"B","ORIFN",1000)=""
^DD(698.3,"B","PCC POINTER",900)=""
^DD(698.3,"B","PERCENT OF PACED BEATS",16)=""
^DD(698.3,"B","PRIMARY PROVIDER",701)=""
^DD(698.3,"B","PROCEDURE SUMMARY",600)=""
^DD(698.3,"B","PULSE INTERVAL (MSEC) W MAG",6)=""
^DD(698.3,"B","PULSE INTERVAL (MSEC) WO MAG",4)=""
^DD(698.3,"B","PULSE WIDTH (ATRIAL-MSEC)",101)=""
^DD(698.3,"B","PULSE WIDTH (VENTRICLE-MSEC)",201)=""
^DD(698.3,"B","RATE W MAG",7)=""
^DD(698.3,"B","RATE WO MAG",5)=""
^DD(698.3,"B","RATIO (T/L) (ATRIAL)",103)=""
^DD(698.3,"B","RATIO (T/L) (VENTRICLE)",203)=""
^DD(698.3,"B","REASON FOR REPROGRAMMING",55)=""
^DD(698.3,"B","REPR. VENT. REFRACTORY PERIOD",224)=""
^DD(698.3,"B","REPR.ATRIAL REFRACTORY PERIOD",124)=""
^DD(698.3,"B","REPR.PULSE WIDTH (ATRIAL-MSEC)",121)=""
^DD(698.3,"B","REPR.PULSE WIDTH (VENT-MSEC)",221)=""
^DD(698.3,"B","REPR.SENSITIVITY (VENTR.-MV)",223)=""
^DD(698.3,"B","REPR.SENSITIVITY(ATRIAL-VOLTS)",123)=""
^DD(698.3,"B","REPROG. A-AMPLITUDE (VOLTS)",122)=""
^DD(698.3,"B","REPROG. UPPER RATE LIMIT",51)=""
^DD(698.3,"B","REPROGR. V-AMPLITUDE (VOLTS)",222)=""
^DD(698.3,"B","REPROGRAMMED A-V DELAY (MSECS)",52)=""
^DD(698.3,"B","REPROGRAMMED HYSTERESIS",53)=""
^DD(698.3,"B","REPROGRAMMED PACING MODE",54)=""
^DD(698.3,"B","REPROGRAMMED RATE",50)=""
^DD(698.3,"B","RESISTANCE",14)=""
^DD(698.3,"B","SENSE (ATRIAL)",107)=""
^DD(698.3,"B","SENSE (VENTRICULAR)",207)=""
^DD(698.3,"B","SUMMARY",601)=""
^DD(698.3,"B","THRESHOLD AMPLITUDE (ATRIAL)",105)=""
^DD(698.3,"B","THRESHOLD AMPLITUDE (VENT.)",205)=""
^DD(698.3,"B","THRESHOLD WIDTH (ATRIAL)",104)=""
^DD(698.3,"B","THRESHOLD WIDTH (VENTRICLE)",204)=""
^DD(698.3,"GL",0,1,.01)=""
^DD(698.3,"GL",0,2,1)=""
^DD(698.3,"GL",0,3,2)=""
^DD(698.3,"GL",0,4,3)=""
^DD(698.3,"GL",0,5,493)=""
^DD(698.3,"GL",0,7,4)=""
^DD(698.3,"GL",0,8,6)=""
^DD(698.3,"GL",0,9,15)=""
^DD(698.3,"GL",0,10,16)=""
^DD(698.3,"GL",0,11,11)=""
^DD(698.3,"GL",0,12,12)=""
^DD(698.3,"GL",0,13,13)=""
^DD(698.3,"GL",0,14,14)=""
^DD(698.3,"GL",0,15,50)=""
^DD(698.3,"GL",0,16,51)=""
^DD(698.3,"GL",0,17,52)=""
^DD(698.3,"GL",0,18,53)=""
^DD(698.3,"GL",0,19,54)=""
^DD(698.3,"GL",0,20,55)=""
^DD(698.3,"GL",.2,1,601)=""
^DD(698.3,"GL",.2,2,600)=""
^DD(698.3,"GL",1,1,101)=""
^DD(698.3,"GL",1,2,102)=""
^DD(698.3,"GL",1,3,103)=""
^DD(698.3,"GL",1,4,104)=""
^DD(698.3,"GL",1,5,105)=""
^DD(698.3,"GL",1,6,106)=""
^DD(698.3,"GL",1,7,107)=""
^DD(698.3,"GL",1,8,121)=""
^DD(698.3,"GL",1,9,122)=""
^DD(698.3,"GL",1,10,123)=""
^DD(698.3,"GL",1,11,124)=""
^DD(698.3,"GL",2,1,201)=""
^DD(698.3,"GL",2,2,202)=""
^DD(698.3,"GL",2,3,203)=""
^DD(698.3,"GL",2,4,204)=""
^DD(698.3,"GL",2,5,205)=""
^DD(698.3,"GL",2,6,206)=""
^DD(698.3,"GL",2,7,207)=""
^DD(698.3,"GL",2,8,221)=""
^DD(698.3,"GL",2,9,222)=""
^DD(698.3,"GL",2,10,223)=""
^DD(698.3,"GL",2,11,224)=""
^DD(698.3,"GL",3,1,300)=""
^DD(698.3,"GL",3,2,301)=""
^DD(698.3,"GL",4,1,492)=""
^DD(698.3,"GL",4,4,491)=""
^DD(698.3,"GL",10,0,500)=""
^DD(698.3,"GL","ICD",0,700)=""
^DD(698.3,"GL","OR",1,1000)=""
^DD(698.3,"GL","OR",2,1001)=""
^DD(698.3,"GL","PCC",1,900)=""
^DD(698.3,"GL","PROV",1,701)=""
^DD(698.3,"IX",.01)=""
^DD(698.3,"IX",1)=""
^DD(698.3,"IX",900)=""
^DD(698.3,"RQ",.01)=""
^DD(698.3,"RQ",1)=""
^DD(698.3,"RQ",3)=""
^DD(698.3,"RQ",600)=""
^DD(698.3,"RQ",601)=""
^DD(698.3,"SB",698.31,500)=""
^DD(698.3,"SB",698.32,700)=""
^DD(698.31,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(698.31,0,"NM","COMMENTS")=""
^DD(698.31,0,"UP")="698.3"
^DD(698.31,.01,0)="COMMENTS^W^^0;1^Q"
^DD(698.31,.01,3)="Enter comments into this word-processing field."
^DD(698.31,.01,21,0)="^^1^1^2891101^"
^DD(698.31,.01,21,1,0)="This allows a documentation area of free form."
^DD(698.31,"B","COMMENTS",.01)=""
^DD(698.31,"GL",0,1,.01)=""
^DD(698.32,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(698.32,0,"DT")="2920102"
^DD(698.32,0,"IX","B",698.32,.01)=""
^DD(698.32,0,"NM","ICD DIAGNOSIS")=""
^DD(698.32,0,"UP")="698.3"
^DD(698.32,.01,0)="ICD DIAGNOSIS^MRP80'^ICD9(^0;1^Q"
^DD(698.32,.01,1,0)="^.1"
^DD(698.32,.01,1,1,0)="698.32^B"
^DD(698.32,.01,1,1,1)="S ^MCAR(698.3,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(698.32,.01,1,1,2)="K ^MCAR(698.3,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(698.32,.01,21,0)="^^3^3^2920102^"
^DD(698.32,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(698.32,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(698.32,.01,21,3,0)="future."
^DD(698.32,.01,23,0)="^^1^1^2921106^^^"
^DD(698.32,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.32,.01,"DT")="2920102"
^DD(698.32,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(698.32,.02,3)="Answer must be 1-80 characters in length."
^DD(698.32,.02,23,0)="^^1^1^2921106^^^"
^DD(698.32,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(698.32,.02,"DT")="2920102"
^DD(698.32,"B","ICD DIAGNOSIS",.01)=""
^DD(698.32,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(698.32,"GL",0,1,.01)=""
^DD(698.32,"GL",0,2,.02)=""
^DD(698.32,"IX",.01)=""
^DD(698.32,"RQ",.01)=""
^DD(698.4,0)="FIELD^^2^3"
^DD(698.4,0,"DDA")="N"
^DD(698.4,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(698.4,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(698.4,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(698.6,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(698.6,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(698.4,0,"IX","B",698.4,.01)=""
^DD(698.4,0,"IX","C",698.4,1)=""
^DD(698.4,0,"IX","D",698.4,2)=""
^DD(698.4,0,"NM","PACEMAKER EQUIPMENT")=""
^DD(698.4,0,"PT",698,2)=""
^DD(698.4,0,"PT",698,12)=""
^DD(698.4,0,"PT",698.1,2)=""
^DD(698.4,0,"PT",698.1,15)=""
^DD(698.4,0,"PT",698.2,2)=""
^DD(698.4,0,"PT",698.2,15)=""
^DD(698.4,0,"VR")="2.3"
^DD(698.4,0,"VRPK")="MEDICINE"
^DD(698.4,.01,0)="MODEL NUMBER/NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(698.4,.01,1,0)="^.1"
^DD(698.4,.01,1,1,0)="698.4^B"
^DD(698.4,.01,1,1,1)="S ^MCAR(698.4,""B"",$E(X,1,50),DA)="""""
^DD(698.4,.01,1,1,2)="K ^MCAR(698.4,""B"",$E(X,1,50),DA)"
^DD(698.4,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(698.4,.01,21,0)="^^1^1^2940913^^^"
^DD(698.4,.01,21,1,0)="This field identifies the model identifier."
^DD(698.4,.01,"DT")="2890223"
^DD(698.4,1,0)="TYPE OF EQUIPMENT^S^G:GENERATOR;A:A LEAD;V:V LEAD;AV:BOTH A LEAD AND V LEAD;P:PSA ANALYZER;T:TELEPHONE TRANSMITTER;^0;2^Q"
^DD(698.4,1,1,0)="^.1"
^DD(698.4,1,1,1,0)="698.4^C"
^DD(698.4,1,1,1,1)="S ^MCAR(698.4,""C"",$E(X,1,30),DA)="""""
^DD(698.4,1,1,1,2)="K ^MCAR(698.4,""C"",$E(X,1,30),DA)"
^DD(698.4,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(698.4,1,1,1,"%D",1,0)="This cross-reference allows look-ups by type of Equipment."
^DD(698.4,1,3)="Enter Code for equipment description."
^DD(698.4,1,21,0)="^^1^1^2910425^"
^DD(698.4,1,21,1,0)="This field identifies the equipment description."
^DD(698.4,1,"DT")="2890127"
^DD(698.4,2,0)="MANUFACTURER^P698.6^MCAR(698.6,^0;3^Q"
^DD(698.4,2,1,0)="^.1"
^DD(698.4,2,1,1,0)="698.4^D"
^DD(698.4,2,1,1,1)="S ^MCAR(698.4,""D"",$E(X,1,30),DA)="""""
^DD(698.4,2,1,1,2)="K ^MCAR(698.4,""D"",$E(X,1,30),DA)"
^DD(698.4,2,1,1,"%D",0)="^^2^2^2920416^"
^DD(698.4,2,1,1,"%D",1,0)="This cross-reference allows the user to see all pacemaker models made"
^DD(698.4,2,1,1,"%D",2,0)="by a particular Manufacturer."
^DD(698.4,2,1,1,"DT")="2920416"
^DD(698.4,2,3)="Enter name of pacemaker manufacturer."
^DD(698.4,2,21,0)="^^1^1^2910425^"
^DD(698.4,2,21,1,0)="This field identifies the manufacturer."
^DD(698.4,2,"DT")="2920416"
^DD(698.4,"B","MANUFACTURER",2)=""
^DD(698.4,"B","MODEL NUMBER/NAME",.01)=""
^DD(698.4,"B","TYPE OF EQUIPMENT",1)=""
^DD(698.4,"GL",0,1,.01)=""
^DD(698.4,"GL",0,2,1)=""
^DD(698.4,"GL",0,3,2)=""
^DD(698.4,"IX",.01)=""
^DD(698.4,"IX",1)=""
^DD(698.4,"IX",2)=""
^DD(698.4,"RQ",.01)=""
^DD(698.6,0)="FIELD^^1^2"
^DD(698.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(698.6,0,"IX","B",698.6,.01)=""
^DD(698.6,0,"IX","C",698.6,1)=""
^DD(698.6,0,"NM","PACEMAKER MANUFACTURER")=""
^DD(698.6,0,"PT",698,3)=""
^DD(698.6,0,"PT",698,13)=""
^DD(698.6,0,"PT",698.1,3)=""
^DD(698.6,0,"PT",698.2,3)=""
^DD(698.6,0,"PT",698.4,2)=""
^DD(698.6,0,"VR")="2.3"
^DD(698.6,0,"VRPK")="MEDICINE"
^DD(698.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(698.6,.01,1,0)="^.1"
^DD(698.6,.01,1,1,0)="698.6^B"
^DD(698.6,.01,1,1,1)="S ^MCAR(698.6,""B"",$E(X,1,30),DA)="""""
^DD(698.6,.01,1,1,2)="K ^MCAR(698.6,""B"",$E(X,1,30),DA)"
^DD(698.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(698.6,.01,21,0)="^^1^1^2910425^"
^DD(698.6,.01,21,1,0)="This field identifies the name of the manufacturer."
^DD(698.6,1,0)="MNEMONIC^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<2) X"
^DD(698.6,1,1,0)="^.1"
^DD(698.6,1,1,1,0)="698.6^C"
^DD(698.6,1,1,1,1)="S ^MCAR(698.6,""C"",$E(X,1,30),DA)="""""
^DD(698.6,1,1,1,2)="K ^MCAR(698.6,""C"",$E(X,1,30),DA)"
^DD(698.6,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(698.6,1,1,1,"%D",1,0)="This cross-reference allows look-ups by Mnemonics."
^DD(698.6,1,3)="Enter Abbreviation to be used on Pacemaker active patient list"
^DD(698.6,1,21,0)="^^1^1^2910425^"
^DD(698.6,1,21,1,0)="This field identifies the abbreviated manufacturer name."
^DD(698.6,1,"DT")="2890208"
^DD(698.6,"B","MNEMONIC",1)=""
^DD(698.6,"B","NAME",.01)=""
^DD(698.6,"GL",0,1,.01)=""
^DD(698.6,"GL",0,2,1)=""
^DD(698.6,"IX",.01)=""
^DD(698.6,"IX",1)=""
^DD(698.6,"RQ",.01)=""
^DD(698.6,"RQ",1)=""
^DD(698.9,0)="FIELD^^2^2"
^DD(698.9,0,"IX","B",698.9,.01)=""
^DD(698.9,0,"IX","D",698.9,2)=""
^DD(698.9,0,"NM","NON-MAGNET ECG RHYTHM")=""
^DD(698.9,0,"PT",698.3,15)=""
^DD(698.9,0,"VR")="2.3"
^DD(698.9,0,"VRPK")="MEDICINE"
^DD(698.9,.01,0)="ECG RHYTHM^RF^^0;1^K:$L(X)>50!($L(X)<5)!'(X'?1P.E) X"
^DD(698.9,.01,1,0)="^.1"
^DD(698.9,.01,1,1,0)="698.9^B"
^DD(698.9,.01,1,1,1)="S ^MCAR(698.9,""B"",$E(X,1,30),DA)="""""
^DD(698.9,.01,1,1,2)="K ^MCAR(698.9,""B"",$E(X,1,30),DA)"
^DD(698.9,.01,3)="ANSWER MUST BE 5-50 CHARACTERS IN LENGTH"
^DD(698.9,.01,21,0)="^^1^1^2910425^"
^DD(698.9,.01,21,1,0)="This field identifies the ECG rhythm."
^DD(698.9,2,0)="ABBREVIATION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(698.9,2,1,0)="^.1"
^DD(698.9,2,1,1,0)="698.9^D"
^DD(698.9,2,1,1,1)="S ^MCAR(698.9,""D"",$E(X,1,30),DA)="""""
^DD(698.9,2,1,1,2)="K ^MCAR(698.9,""D"",$E(X,1,30),DA)"
^DD(698.9,2,1,1,"%D",0)="^^1^1^2930903^"
^DD(698.9,2,1,1,"%D",1,0)="This cross-reference allow looks-up on Abbreviation."
^DD(698.9,2,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(698.9,2,21,0)="^^1^1^2910425^"
^DD(698.9,2,21,1,0)="This field identifies the shortened form of the rhythm identifier."
^DD(698.9,"B","ABBREVIATION",2)=""
^DD(698.9,"B","ECG RHYTHM",.01)=""
^DD(698.9,"GL",0,1,.01)=""
^DD(698.9,"GL",0,3,2)=""
^DD(698.9,"IX",.01)=""
^DD(698.9,"IX",2)=""
^DD(698.9,"RQ",.01)=""
^DD(699,0)="FIELD^^2005^88"
^DD(699,0,"DDA")="N"
^DD(699,0,"DT")="2960515"
^DD(699,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(699,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(697.2,+$P(^(0),U,12),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(697.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(699,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(699,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(699,0,"IX","AC",699,6)=""
^DD(699,0,"IX","ACE",699,6)=""
^DD(699,0,"IX","AD",699,8)=""
^DD(699,0,"IX","AF",699,.01)=""
^DD(699,0,"IX","AG",699,.02)=""
^DD(699,0,"IX","AH",699,202)=""
^DD(699,0,"IX","APCE",699,900)=""
^DD(699,0,"IX","B",699,.01)=""
^DD(699,0,"IX","C",699,.02)=""
^DD(699,0,"IX","D",699,1)=""
^DD(699,0,"IX","ES",699,1506)=""
^DD(699,0,"NM","ENDOSCOPY/CONSULT")=""
^DD(699,0,"PT",123,11)=""
^DD(699,0,"PT",123.03,.01)=""
^DD(699,0,"VR")="2.3"
^DD(699,0,"VRPK")="MEDICINE"
^DD(699,.01,0)="APPOINTMENT DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(699,.01,1,0)="^.1"
^DD(699,.01,1,1,0)="699^B"
^DD(699,.01,1,1,1)="S ^MCAR(699,""B"",$E(X,1,30),DA)="""""
^DD(699,.01,1,1,2)="K ^MCAR(699,""B"",$E(X,1,30),DA)"
^DD(699,.01,1,2,0)="699^AF^MUMPS"
^DD(699,.01,1,2,1)="S MCARCDIE=""^MCAR(699,"" D CHGDTE1^MCARPROC"
^DD(699,.01,1,2,2)="S MCARCDIE=""^MCAR(699,"" D CHGDTE^MCARPROC"
^DD(699,.01,1,2,"%D",0)="^^3^3^2920421^"
^DD(699,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(699,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent endoscopy/consult procedure"
^DD(699,.01,1,2,"%D",3,0)="for this patient."
^DD(699,.01,3)="ENTER SCHEDULED DATE AND TIME FOR THIS PROCEDURE.  IF YOU ARE EDITING AN ALREADY EXISTING PROCEDURE, THE PATIENT NAME CAN BE ENTERED HERE."
^DD(699,.01,21,0)="^^1^1^2910425^"
^DD(699,.01,21,1,0)="This field contains the date/time of the Endoscopy procedure."
^DD(699,.01,23,0)="^^1^1^2921106^^^"
^DD(699,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(699,.01,"DT")="2881117"
^DD(699,.02,0)="MEDICAL PATIENT^RP690X^MCAR(690,^0;2^Q"
^DD(699,.02,1,0)="^.1"
^DD(699,.02,1,1,0)="699^C"
^DD(699,.02,1,1,1)="S ^MCAR(699,""C"",$E(X,1,30),DA)="""""
^DD(699,.02,1,1,2)="K ^MCAR(699,""C"",$E(X,1,30),DA)"
^DD(699,.02,1,1,"%D",0)="^^1^1^2930903^"
^DD(699,.02,1,1,"%D",1,0)="This cross-reference allow look-ups by patient."
^DD(699,.02,1,2,0)="699^AG^MUMPS"
^DD(699,.02,1,2,1)="S MCARCDIE=""^MCAR(699,"" D CHGPAT^MCARPROC"
^DD(699,.02,1,2,2)="S MCARCDIE=""^MCAR(699,"" D KILL^MCARPROC"
^DD(699,.02,1,2,"%D",0)="^^3^3^2920421^"
^DD(699,.02,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(699,.02,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent endoscopy/consult procedure"
^DD(699,.02,1,2,"%D",3,0)="for this patient."
^DD(699,.02,3)="Enter the patient's name, SSN, or other identifier"
^DD(699,.02,21,0)="^^1^1^2910425^"
^DD(699,.02,21,1,0)="This field identifies the name of the patient under-going the procedure."
^DD(699,.02,23,0)="^^1^1^2921106^^^"
^DD(699,.02,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(699,.02,"DT")="2880801"
^DD(699,1,0)="PROCEDURE^R*P697.2'^MCAR(697.2,^0;12^S DIC(""S"")=""I $D(^MCAR(697.2,""""D"""",$G(MCARCODE,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699,1,1,0)="^.1"
^DD(699,1,1,1,0)="699^D"
^DD(699,1,1,1,1)="S ^MCAR(699,""D"",$E(X,1,30),DA)="""""
^DD(699,1,1,1,2)="K ^MCAR(699,""D"",$E(X,1,30),DA)"
^DD(699,1,1,1,"%D",0)="^^1^1^2930903^^"
^DD(699,1,1,1,"%D",1,0)="This cross-reference allows look-ups by procedures."
^DD(699,1,1,1,"DT")="2930324"
^DD(699,1,3)="Enter Procedure, pointer to Procedure Location (#697.2)."
^DD(699,1,12)="CHOOSE PROCEDURES THAT APPLY ONLY TO SPECIFIC AREA OF MEDICINE (GI/PULMONARY)"
^DD(699,1,12.1)="S DIC(""S"")=""I $D(^MCAR(697.2,""""D"""",$G(MCARCODE,U),+Y))"""
^DD(699,1,21,0)="^^1^1^2930204^^"
^DD(699,1,21,1,0)="This field identifies the specific procedure performed, such as colonoscopy."
^DD(699,1,"DT")="2930324"
^DD(699,2,0)="INDICATION FOR PROCEDURE^699.16PA^^1;0"
^DD(699,2,21,0)="^^4^4^2940415^^^"
^DD(699,2,21,1,0)="This field identifies field stores the reason (s) why the Endoscopic procedure"
^DD(699,2,21,2,0)="was performed.  This field has been broken out for GI Endoscopies into"
^DD(699,2,21,3,0)="it's individual elements and is no longer asked by the GI edit templates,"
^DD(699,2,21,4,0)="but continues to be asked for Pulmonary Endoscopies."
^DD(699,2.1,0)="INDICATED THERAPY^699.17PA^^2;0"
^DD(699,2.1,21,0)="^^4^4^2960515^^^^"
^DD(699,2.1,21,1,0)="This field identifies field records the therapeutic manipulations which you"
^DD(699,2.1,21,2,0)="believe you may perform at the time of the examination.  This does not"
^DD(699,2.1,21,3,0)="record the findings of the procedure, but rather the reason for which"
^DD(699,2.1,21,4,0)="the procedure is performed.  Used as an indication for procedure."
^DD(699,2.1,23,0)="^^1^1^2960515^^^^"
^DD(699,2.1,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.2,0)="SIGNS AND SYMPTOMS^699.18PA^^3;0"
^DD(699,2.2,21,0)="^^4^4^2940415^^"
^DD(699,2.2,21,1,0)="This field identifies an indication for procedure that records the specific"
^DD(699,2.2,21,2,0)="sign or symptom for performing the procedure.  The purpose of this field is to"
^DD(699,2.2,21,3,0)="record specific correlation between common symptoms and the Endoscopic"
^DD(699,2.2,21,4,0)="Findings."
^DD(699,2.2,23,0)="^^1^1^2940415^^^^"
^DD(699,2.2,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.3,0)="LOCATION OF PAIN^699.19PA^^4;0"
^DD(699,2.3,21,0)="^^3^3^2910425^^"
^DD(699,2.3,21,1,0)="This field stores the specific location of pain if pain is entered as a"
^DD(699,2.3,21,2,0)="sign or symptom.  This field has been removed from the input templates for"
^DD(699,2.3,21,3,0)="version 2."
^DD(699,2.4,0)="ABNORMAL BOWEL CONSISTENCY^S^1:ALTERNATING;2:BLOODY;3:FORMED;4:HARD;5:SOFT;6:WATERY;^0;3^Q"
^DD(699,2.4,3)="CHOOSE APPROPRIATE DESCRIPTION OF STOOL."
^DD(699,2.4,21,0)="^^3^3^2910425^"
^DD(699,2.4,21,1,0)="This field stores the consistency (alternating, bloody,formed,hard,soft,or"
^DD(699,2.4,21,2,0)="watery) for a patient who has the symptom of abnormal bowel habits.  This"
^DD(699,2.4,21,3,0)="field has been removed from the input templates for version 2."
^DD(699,2.45,0)="ABNORMAL BOWEL DURATION^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(699,2.45,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH."
^DD(699,2.45,21,0)="^^3^3^2910425^"
^DD(699,2.45,21,1,0)="This field stores the length of time the patient has had the abnormal"
^DD(699,2.45,21,2,0)="bowel habits.  This field has been removed from the input templates for"
^DD(699,2.45,21,3,0)="version 2."
^DD(699,2.46,0)="ABNORMAL BOWEL FREQUENCY^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(699,2.46,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH."
^DD(699,2.46,21,0)="^^2^2^2910425^"
^DD(699,2.46,21,1,0)="This field stores the frequency for abnormal bowel habits.  This field has"
^DD(699,2.46,21,2,0)="been removed from the input templates for version 2."
^DD(699,2.5,0)="DISEASE FOLLOWUP^699.35PA^^5;0"
^DD(699,2.5,21,0)="^^3^3^2910425^"
^DD(699,2.5,21,1,0)="This field refers to the patient who is undergoing repeat procedure for"
^DD(699,2.5,21,2,0)="the same (active) disease, such as follow-up on gastric ulcer healing."
^DD(699,2.5,21,3,0)="Used as an indication for procedure."
^DD(699,2.5,23,0)="^^1^1^2921106^^^"
^DD(699,2.5,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.6,0)="FOLLOWUP DEVICE OR THERAPY^699.36PA^^6;0"
^DD(699,2.6,21,0)="^^2^2^2960515^^^^"
^DD(699,2.6,21,1,0)="This field records the type of device or therapy, previously performed,"
^DD(699,2.6,21,2,0)="which needs follow-up.  Used as an indication for procedure."
^DD(699,2.7,0)="SURVEILLANCE^699.37PA^^7;0"
^DD(699,2.7,21,0)="^^3^3^2910425^"
^DD(699,2.7,21,1,0)="This field identifies to the asymptomatic patient who is being re-examined"
^DD(699,2.7,21,2,0)="because of old disease, such as prior colonic polyps. Used as an indication for"
^DD(699,2.7,21,3,0)="procedure for GI Endoscopies."
^DD(699,2.7,23,0)="^^1^1^2921106^^^"
^DD(699,2.7,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.8,0)="PROTOCOL^F^^31;1^K:$L(X)>79!($L(X)<1) X"
^DD(699,2.8,3)="Enter the Protocol: 1-79 characters"
^DD(699,2.8,21,0)="^^3^3^2910425^"
^DD(699,2.8,21,1,0)="This field identifies a mandated endoscopy according to a pre-approved"
^DD(699,2.8,21,2,0)="schedule. The name or number of the protocol should be entered here.  Used as a"
^DD(699,2.8,21,3,0)="GI Endoscopy indication for procedure."
^DD(699,2.8,23,0)="^^1^1^2921106^^^"
^DD(699,2.8,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.8,"DT")="2910114"
^DD(699,2.85,0)="EGD SIMPLE PRIMARY EXAM^F^^31;2^K:$L(X)>50!($L(X)<1) X"
^DD(699,2.85,3)="Answer must be 1-50 characters in length."
^DD(699,2.85,21,0)="^^3^3^2910425^"
^DD(699,2.85,21,1,0)="This field identifies that a PDGE (Primary Diagnostic Gastrointestinal"
^DD(699,2.85,21,2,0)="Endoscopy) was performed in place of an initial screening X-ray, for diagnostic"
^DD(699,2.85,21,3,0)="purposes in an outpatient setting."
^DD(699,2.85,23,0)="^^1^1^2921106^^^"
^DD(699,2.85,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.85,"DT")="2910125"
^DD(699,2.86,0)="LAB OR XRAY^F^^31;3^K:$L(X)>50!($L(X)<1) X"
^DD(699,2.86,3)="Answer must be 1-50 characters in length."
^DD(699,2.86,21,0)="^^3^3^2910425^"
^DD(699,2.86,21,1,0)="This free text field indicates that there is an abnormal X-ray of lab"
^DD(699,2.86,21,2,0)="test suggesting the Endoscopy.  Used as an indication for procedure for"
^DD(699,2.86,21,3,0)="GI Endoscopies."
^DD(699,2.86,23,0)="^^1^1^2921106^^^"
^DD(699,2.86,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.86,"DT")="2910125"
^DD(699,2.87,0)="OCCULT BLOOD^F^^32;1^K:$L(X)>50!($L(X)<1) X"
^DD(699,2.87,3)="Answer must be 1-50 characters in length."
^DD(699,2.87,21,0)="^^2^2^2910425^^"
^DD(699,2.87,21,1,0)="This field identifies a specific indication for procedure.  It indicates that"
^DD(699,2.87,21,2,0)="Occult Blood in the stool is present.  Used for GI Endoscopies."
^DD(699,2.87,23,0)="^^1^1^2921106^^^"
^DD(699,2.87,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.87,"DT")="2910125"
^DD(699,2.88,0)="SPECIMEN COLLECTION^F^^32;2^K:$L(X)>50!($L(X)<1) X"
^DD(699,2.88,3)="Answer must be 1-50 characters in length."
^DD(699,2.88,21,0)="^^3^3^2910425^"
^DD(699,2.88,21,1,0)="This free text field indicates that the procedure is performed to collect"
^DD(699,2.88,21,2,0)="tissue or body fluid to perform other tests.  Used as an indication for"
^DD(699,2.88,21,3,0)="procedure for GI Endoscopies."
^DD(699,2.88,23,0)="^^1^1^2921106^^^"
^DD(699,2.88,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,2.88,"DT")="2910125"
^DD(699,3,0)="INDICATION COMMENT^F^^0;6^K:$L(X)>110!($L(X)<1) X"
^DD(699,3,3)="ANSWER MUST BE 1-110 CHARACTERS IN LENGTH"
^DD(699,3,21,0)="^^2^2^2910425^"
^DD(699,3,21,1,0)="This free text field is used to enhance or add to the specific indications"
^DD(699,3,21,2,0)="for procedure."
^DD(699,3,23,0)="^^1^1^2921106^^^"
^DD(699,3,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699,4,0)="INSTRUMENT^699.05P^^34;0"
^DD(699,4,12)="CHOOSE INSTRUMENTS THAT APPLY ONLY TO GI OR PULMONARY"
^DD(699,4,12.1)="I $P(^(0),U,2)=$G(MCARCODE,U)"
^DD(699,5,0)="MEDICATION USED^699.38P^^8;0"
^DD(699,5,21,0)="^^3^3^2960515^^"
^DD(699,5,21,1,0)="This field identifies field records the type of medication administered for the"
^DD(699,5,21,2,0)="procedure.  It also records the dosage of the medication and the route"
^DD(699,5,21,3,0)="of administration."
^DD(699,6,0)="ENDOSCOPIST^R*P200'^VA(200,^0;8^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699,6,1,0)="^.1"
^DD(699,6,1,1,0)="699^AC"
^DD(699,6,1,1,1)="S ^MCAR(699,""AC"",$E(X,1,30),DA)="""""
^DD(699,6,1,1,2)="K ^MCAR(699,""AC"",$E(X,1,30),DA)"
^DD(699,6,1,1,"%D",0)="^^1^1^2930903^"
^DD(699,6,1,1,"%D",1,0)="This cross-reference allow look-up by Endoscopist."
^DD(699,6,1,2,0)="699^ACE^MUMPS"
^DD(699,6,1,2,1)="S MCARAPDT=$P(^MCAR(699,DA,0),U,1) S:MCARAPDT]"""" ^MCAR(699,""ACE"",MCARAPDT,$E(X,1,30),DA)="""" K MCARPDT"
^DD(699,6,1,2,2)="S MCARAPDT=$P(^MCAR(699,DA,0),U,1) K:MCARAPDT]"""" ^MCAR(699,""ACE"",MCARAPDT,$E(X,1,30),DA) K MCARAPDT"
^DD(699,6,1,2,"%D",0)="^^1^1^2920421^"
^DD(699,6,1,2,"%D",1,0)="This cross-reference indexes the entire file by date/time and endoscopist."
^DD(699,6,1,3,0)="^^TRIGGER^699^701"
^DD(699,6,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(699,6,1,3,1.4)"
^DD(699,6,1,3,1.4)="S DIH=$S($D(^MCAR(699,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=699,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(699,6,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(699,6,1,3,2.1) X ^DD(699,6,1,3,2.4)"
^DD(699,6,1,3,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(699,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X"
^DD(699,6,1,3,2.4)="S DIH=$S($D(^MCAR(699,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=699,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(699,6,1,3,"%D",0)="^^1^1^2960423^"
^DD(699,6,1,3,"%D",1,0)="This trigger sets the primary provider file."
^DD(699,6,1,3,"CREATE VALUE")="INTERNAL(#6)"
^DD(699,6,1,3,"DELETE VALUE")="INTERNAL(#6)"
^DD(699,6,1,3,"DT")="2960423"
^DD(699,6,1,3,"FIELD")="#701"
^DD(699,6,3)="Enter the name of the health care provider who performed the procedure."
^DD(699,6,12)="This screen excludes deactivated entries on the New Person file."
^DD(699,6,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(699,6,21,0)="^^2^2^2941026^^"
^DD(699,6,21,1,0)="This field identifies the name of the provider who performed the"
^DD(699,6,21,2,0)="procedure."
^DD(699,6,23,0)="^^1^1^2941026^^^^"
^DD(699,6,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,6,"DT")="2960423"
^DD(699,7,0)="SECOND ENDOSCOPIST^F^^0;9^K:$L(X)>30!($L(X)<2) X"
^DD(699,7,3)="ENTER SECOND ENDOSCOPIST 2-30 CHARACTERS."
^DD(699,7,21,0)="^^1^1^2941026^^"
^DD(699,7,21,1,0)="This field identifies the name of a second doctor performing the procedure."
^DD(699,8,0)="WHERE PERFORMED^P44'^SC(^0;10^Q"
^DD(699,8,1,0)="^.1"
^DD(699,8,1,1,0)="699^AD"
^DD(699,8,1,1,1)="S ^MCAR(699,""AD"",$E(X,1,30),DA)="""""
^DD(699,8,1,1,2)="K ^MCAR(699,""AD"",$E(X,1,30),DA)"
^DD(699,8,1,1,"%D",0)="^^1^1^2930903^"
^DD(699,8,1,1,"%D",1,0)="This cross-reference allow looks-up on where performed."
^DD(699,8,3)="ENTER HOSPITAL LOCATION WHERE PROCEDURE WAS PERFORMED."
^DD(699,8,4)=""
^DD(699,8,21,0)="^^1^1^2910425^"
^DD(699,8,21,1,0)="This field identifies the hospital location where the procedure was performed."
^DD(699,8,"DT")="2880726"
^DD(699,9,0)="WARD/CLINIC^P44'^SC(^0;11^Q"
^DD(699,9,3)=""
^DD(699,9,21,0)="^^1^1^2910913^^"
^DD(699,9,21,1,0)="This field identifies the in-house location of the patient."
^DD(699,9,"DT")="2910913"
^DD(699,10,0)="TIME STARTED^FX^^9;1^K:$L(X)>4!($L(X)<4)!'(X?4N&(X<2360)&($E(X,3,4)<60)) X"
^DD(699,10,3)="ENTER AS 24 HOUR TIME.  FOUR DIGITS EX. 0900 1430"
^DD(699,10,21,0)="^^2^2^2910425^"
^DD(699,10,21,1,0)="This field identifies the time the procedure was begun in 24 hour time, without"
^DD(699,10,21,2,0)="punctuation.  (EX: 0800, 1630, etc.)"
^DD(699,10,"DT")="2900125"
^DD(699,11,0)="TIME COMPLETED^FX^^9;2^K:$L(X)>4!($L(X)<4)!'(X?4N&(X<2360)&($E(X,3,4)<60)) X"
^DD(699,11,3)="ENTER AS 24 HOUR TIME.  FOUR DIGITS EX. 0900 1430"
^DD(699,11,21,0)="^^2^2^2910425^"
^DD(699,11,21,1,0)="This field identifies the time the procedure was completed in 24 hour time,"
^DD(699,11,21,2,0)="without punctuation (Ex: 0800,1630, etc.)"
^DD(699,11,"DT")="2900125"
^DD(699,12,0)="URGENCY OF PROCEDURE^S^1:ELECTIVE;2:URGENT;3:EMERGENCY;^9;3^Q"
^DD(699,12,3)="Enter Code or elective, urgent, or emergency for procedure."
^DD(699,12,21,0)="^^1^1^2910425^"
^DD(699,12,21,1,0)="This field identifies whether the procedure was elective, urgent, or emergency."
^DD(699,12,"DT")="2880815"
^DD(699,13,0)="PNEUMOPERITONEUM GAS^699.39SA^^13;0"
^DD(699,13,21,0)="^^2^2^2910425^"
^DD(699,13,21,1,0)="This field identifies field contains the type of Pneumoperitoneum Gas used and"
^DD(699,13,21,2,0)="the method of pressure control for Laparoscopy procedures."
^DD(699,14,0)="PREPARATION DIET^S^1:NO CHANGE;2:CLEAR LIQUIDS;3:SUPPLEMENTS;4:OTHER;^15;1^Q"
^DD(699,14,3)="Enter Code for type of oral intake for preparation of colon for colonoscopy."
^DD(699,14,21,0)="^^2^2^2910425^"
^DD(699,14,21,1,0)="This field identifies to the oral intake for preparation of the colon for a "
^DD(699,14,21,2,0)="colonoscopy."
^DD(699,15,0)="DIET COMMENT^F^^15;2^K:$L(X)>30!($L(X)<1) X"
^DD(699,15,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH."
^DD(699,15,21,0)="^^2^2^2910425^^"
^DD(699,15,21,1,0)="This field identifies a comment on the oral intake given for the preparation"
^DD(699,15,21,2,0)="for a colonscopy."
^DD(699,16,0)="BOWEL PREPARATION^699.4SA^^14;0"
^DD(699,16,21,0)="^^2^2^2910425^^"
^DD(699,16,21,1,0)="This field identifies a multiple field which records commonly used laxative"
^DD(699,16,21,2,0)="preparations given for a colonoscopy and the route by which it was given."
^DD(699,17,0)="ENEMAS^S^1:WATER;2:PHOSPHASODA;3:OTHER;^15;3^Q"
^DD(699,17,3)="Enter Code for type of enema given in preparation for a colonoscopy."
^DD(699,17,21,0)="^^1^1^2910425^"
^DD(699,17,21,1,0)="This field records the type of enemas given in preparation for a colonoscopy."
^DD(699,17,"DT")="2900409"
^DD(699,22,0)="COMMON BILE DUCT SIZE (mm)^NJ4,1^^15;4^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""2N.N) X"
^DD(699,22,3)="TYPE A NUMBER BETWEEN 0 AND 50"
^DD(699,22,21,0)="^^2^2^2910425^^"
^DD(699,22,21,1,0)="This field identifies the size in millimeters of the Common Bile Duct.  Used"
^DD(699,22,21,2,0)="for the ERCP Procedure."
^DD(699,23,0)="PANCREATIC DUCT SIZE (mm)^NJ3,1^^15;5^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(699,23,3)="TYPE A NUMBER BETWEEN 0 AND 9"
^DD(699,23,21,0)="^^2^2^2910425^"
^DD(699,23,21,1,0)="This field identifies the size in millimeters of the pancreatic duct.  Used"
^DD(699,23,21,2,0)="for ERCP procedures."
^DD(699,24,0)="DEPTH OF INSERTION^*P697'^MCAR(697,^15;6^S DIC(""S"")=""I $D(^MCAR(697,""""C"""",$G(MCARGNUM,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699,24,3)="CHOOSE THE FURTHEST ANATOMY LOCATION REACHED."
^DD(699,24,4)=""
^DD(699,24,12)="CHOOSE ONLY ANATOMIC LOCATIONS ASSOCIATED WITH THIS PROCEDURE"
^DD(699,24,12.1)="S DIC(""S"")=""I $D(^MCAR(697,""""C"""",$G(MCARGNUM,U),+Y))"""
^DD(699,24,21,0)="^^2^2^2930727^^^"
^DD(699,24,21,1,0)="This field indicates the extent of examination irrespective of the findings"
^DD(699,24,21,2,0)="reported.  This is a pointer to the Anatomy file."
^DD(699,24,"DT")="2880822"
^DD(699,28,0)="RESULTS^699.56PA^^16;0"
^DD(699,28,21,0)="^^2^2^2960515^^"
^DD(699,28,21,1,0)="This field is used to record results of the overall procedure."
^DD(699,28,21,2,0)="This field is labeled 'Findings' for Pulmonary Endoscopies."
^DD(699,28,23,0)="^^1^1^2960515^^^^"
^DD(699,28,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,29,0)="POST-PROC INSTRUMENT CLEANSING^S^1:WASH;2:IMMERSION;3:GAS;4:UNKNOWN;5:OTHER;^15;10^Q"
^DD(699,29,3)="Enter Code for how instruments were cleaned, used for epidemiologic purposes."
^DD(699,29,21,0)="^^2^2^2910425^"
^DD(699,29,21,1,0)="This field describes how the instruments were cleaned following the"
^DD(699,29,21,2,0)="procedure.  This is used for epidemiologic purposes."
^DD(699,30,0)="COMPLICATIONS^699.58PA^^17;0"
^DD(699,30,21,0)="^^3^3^2960515^^^"
^DD(699,30,21,1,0)="This field identifies field indicates any complications encountered during the"
^DD(699,30,21,2,0)="procedure or resulting from the procedure and the result of the"
^DD(699,30,21,3,0)="complication."
^DD(699,30,23,0)="^^1^1^2960515^^^^"
^DD(699,30,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,31,0)="NON-ENDOSCOPIC PROCEDURE^699.59PA^^18;0"
^DD(699,31,21,0)="^^3^3^2910425^"
^DD(699,31,21,1,0)="This field stores the procedure type for a non-endoscopic GI procedure."
^DD(699,31,21,2,0)="It is accessed by entering 'NON-ENDO' at the procedure prompt in the"
^DD(699,31,21,3,0)="GI Endoscopy Enter/Edit."
^DD(699,31.5,0)="CONSULTATION TYPE^P699.82'^MCAR(699.82,^15;11^Q"
^DD(699,31.5,3)="ENTER TYPE OF OFFICE VISIT OR CONSULTATION USING STANDARD CPT TERMINOLOGY."
^DD(699,31.5,21,0)="^^2^2^2920630^^"
^DD(699,31.5,21,1,0)="This field indicates the type of consultation requested.  Used in the"
^DD(699,31.5,21,2,0)="Consult options."
^DD(699,32,0)="SUBJECTIVE^699.66^^20;0"
^DD(699,32,21,0)="^^3^3^2910425^"
^DD(699,32,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699,32,21,2,0)="options and the Non-Endoscopic GI Procedure entry. Both these entries"
^DD(699,32,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699,33,0)="OBJECTIVE^699.67^^21;0"
^DD(699,33,21,0)="^^3^3^2910425^"
^DD(699,33,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699,33,21,2,0)="options and the Non-Endoscopic GI Procedure entry.  Both these entries"
^DD(699,33,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699,34,0)="ASSESSMENT^699.68^^22;0"
^DD(699,34,21,0)="^^3^3^2910425^^^"
^DD(699,34,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699,34,21,2,0)="options and the Non-Endoscopic GI Procedure entry.  Both these entries"
^DD(699,34,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699,34,22)=""
^DD(699,35,0)="PLANNED^699.69^^23;0"
^DD(699,35,21,0)="^^3^3^2910425^"
^DD(699,35,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699,35,21,2,0)="options and the Non-Endoscopic GI Procedure entry.  Both these entries"
^DD(699,35,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699,35.9,0)="DISC ID^F^^15;12^K:$L(X)>10!($L(X)<1) X"
^DD(699,35.9,3)="ENTER A 1-10 CHARACTER UNIQUE ID FOR THIS LASER DISC."
^DD(699,35.9,21,0)="^^1^1^2910425^"
^DD(699,35.9,21,1,0)="This field is not being used at the present time."
^DD(699,36,0)="VIDEO FRAME NUMBER^699.64A^^24;0"
^DD(699,36,21,0)="^^1^1^2910425^"
^DD(699,36,21,1,0)="This field is not being used at the present time."
^DD(699,36.5,0)="VIDEO/AUDIO FILE NAME^699.71A^^28;0"
^DD(699,36.5,21,0)="^^1^1^2910425^"
^DD(699,36.5,21,1,0)="This field is not being used at the present time."
^DD(699,37,0)="*RESERVED^F^^19;1^K:$L(X)>120!($L(X)<1) X"
^DD(699,37,3)="ANSWER MUST BE 1-120 CHARACTERS IN LENGTH"
^DD(699,37,21,0)="^^2^2^2920623^^^"
^DD(699,37,21,1,0)="This free-text field has been superseded by word-processing Field #37.1,"
^DD(699,37,21,2,0)="DIAGNOSIS/DIAGNOSIS SUPPLEMENT."
^DD(699,37,"DT")="2920623"
^DD(699,37.1,0)="DIAGNOSIS/DIAGNOSIS SUPPLEMENT^699.04^^33;0"
^DD(699,37.1,21,0)="^^2^2^2920806^^"
^DD(699,37.1,21,1,0)="This field is used in addition to or instead of the diagnosis list generated"
^DD(699,37.1,21,2,0)="from the impressions."
^DD(699,38,0)="REVISED DIAGNOSIS^F^^19;2^K:$L(X)>120!($L(X)<1) X"
^DD(699,38,3)="ANSWER MUST BE 1-120 CHARACTERS IN LENGTH"
^DD(699,38,21,0)="^^3^3^2910425^"
^DD(699,38,21,1,0)="This field is a free text field used to modify or enhance the primary"
^DD(699,38,21,2,0)="diagnosis.  This field is generally used when there is an unexpected"
^DD(699,38,21,3,0)="Pathology report."
^DD(699,39,0)="DISPOSITION^699.73SA^^25;0"
^DD(699,39,21,0)="^^2^2^2931230^^"
^DD(699,39,21,1,0)="This field identifies field stores post-encounter dispositions modified by a"
^DD(699,39,21,2,0)="date and a free text reason."
^DD(699,39,23,0)="^^1^1^2931230^^^^"
^DD(699,39,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,39,"DT")="2931230"
^DD(699,40,0)="PRESCRIPTION GIVEN^699.74PA^^26;0"
^DD(699,40,21,0)="^^2^2^2910425^"
^DD(699,40,21,1,0)="This field identifies field stores the drug(s) and dosage(s) given as a post-"
^DD(699,40,21,2,0)="encounter prescription."
^DD(699,41,0)="SECONDARY DIAGNOSIS^699.75PA^^27;0"
^DD(699,41,21,0)="^^3^3^2940415^^"
^DD(699,41,21,1,0)="This field identifies one or more diagnoses chosen from the"
^DD(699,41,21,2,0)="list of impressions minus the diagnosis chosen as the primary diagnosis. Each"
^DD(699,41,21,3,0)="diagnosis also has a free text impression field linked with it."
^DD(699,41,23,0)="^^1^1^2940415^^^^"
^DD(699,41,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,50,0)="LOCATION EVALUATED^699.01P^^30;0"
^DD(699,50,21,0)="^^2^2^2940805^^^^"
^DD(699,50,21,1,0)="This field identifies field records the anatomical location evaluated and"
^DD(699,50,21,2,0)="records findings for the location evaluated."
^DD(699,50,23,0)="^^1^1^2940805^^^^"
^DD(699,50,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,200,0)="FELLOW^*P200'^VA(200,^200;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699,200,3)="Enter name of fellow who assisted, pointer to Provider file (#6)."
^DD(699,200,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(699,200,21,0)="^^1^1^2910425^^"
^DD(699,200,21,1,0)="This field identifies the name of a fellow who assisted on the procedure."
^DD(699,200,23,0)="^^1^1^2921106^^^"
^DD(699,200,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,200,"DT")="2941025"
^DD(699,201,0)="SECOND FELLOW^*P200'^VA(200,^29;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699,201,3)="Enter the second fellow involved in this endoscopy."
^DD(699,201,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(699,201,21,0)="^^2^2^2910425^"
^DD(699,201,21,1,0)="This field identifies the name of a second fellow who assisted on the"
^DD(699,201,21,2,0)="procedure. "
^DD(699,201,"DT")="2941025"
^DD(699,202,0)="SUMMARY^RS^N:NORMAL;A:ABNORMAL;I:INCOMPLETE EXAMINATION;^.2;1^Q"
^DD(699,202,1,0)="^.1"
^DD(699,202,1,1,0)="699^AH^MUMPS"
^DD(699,202,1,1,1)="I X=""N"" S $P(^MCAR(699,DA,19),U)=""The Endoscopic Examination was Normal"""
^DD(699,202,1,1,2)="S $P(^MCAR(699,DA,19),U)="""""
^DD(699,202,1,1,"%D",0)="^^2^2^2920421^"
^DD(699,202,1,1,"%D",1,0)="This cross-reference makes an entry into the DIAGNOSIS/DIAGNOSIS SUPPLEMENT"
^DD(699,202,1,1,"%D",2,0)="field (#37) in the event of a normal examination."
^DD(699,202,3)="Enter Code to describe normalcy of procedure performed."
^DD(699,202,21,0)="^^3^3^2910425^"
^DD(699,202,21,1,0)="This field indicates whether the Endoscopy was Normal,Abnormal or "
^DD(699,202,21,2,0)="Incomplete.  This required field appears on the Summary of Patient"
^DD(699,202,21,3,0)="Procedures."
^DD(699,202,23,0)="^^1^1^2921106^^^"
^DD(699,202,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,202,"DT")="2910115"
^DD(699,203,0)="INSTRUCTIONS TO PATIENT^699.0203^^203;0"
^DD(699,203,21,0)="^^2^2^2921125^^"
^DD(699,203,21,1,0)="This field identifies a word processing field which indicates post-procedural"
^DD(699,203,21,2,0)="instructions given to the patient."
^DD(699,204,0)="PRIMARY DIAGNOSIS^P697.5'I^MCAR(697.5,^204;1^Q"
^DD(699,204,21,0)="^^3^3^2910425^"
^DD(699,204,21,1,0)="This field contains a primary diagnosis chosen by the user from the"
^DD(699,204,21,2,0)="list of impressions entered in the location evaluated field.  Once"
^DD(699,204,21,3,0)="this diagnosis is entered it can not be changed or deleted."
^DD(699,204,23,0)="^^1^1^2921106^^^"
^DD(699,204,23,1,0)="ORDER ENTRY TYPE:  DIAGNOSIS"
^DD(699,204,"DT")="2881005"
^DD(699,204.5,0)="PRIMARY DIAGNOSIS ANATOMY^P697'I^MCAR(697,^204;2^Q"
^DD(699,204.5,21,0)="^^2^2^2920324^"
^DD(699,204.5,21,1,0)="This allows the user to enter the Primary Diagnosis Anatomy."
^DD(699,204.5,21,2,0)="Once this is entered it can not be changed or deleted."
^DD(699,204.5,"DT")="2911004"
^DD(699,205,0)="PRIMARY DIAGNOSIS IMPRESSION^F^^205;1^K:$L(X)>60!($L(X)<1) X"
^DD(699,205,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(699,205,21,0)="^^1^1^2910425^"
^DD(699,205,21,1,0)="This contains a free text comment regarding the primary diagnosis."
^DD(699,205,"DT")="2881004"
^DD(699,206,0)="COUGH^699.0206PA^^10;0"
^DD(699,206,12)="CHOOSE ONLY THOSE TYPES OF COUGH"
^DD(699,206,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""X"""",+Y))"""
^DD(699,206,21,0)="^^2^2^2910425^^"
^DD(699,206,21,1,0)="This field stores the type of cough the patient has and the duration"
^DD(699,206,21,2,0)="of the cough.  Used for Pulmonary Endoscopies."
^DD(699,207,0)="PNEUMONIA^699.0207PA^^11;0"
^DD(699,207,12)="CHOOSE LOCATIONS APPLIED TO PNEUMONIAS ONLY"
^DD(699,207,12.1)="S DIC(""S"")=""I $D(^MCAR(699.83,""""C"""",""""P"""",+Y))"""
^DD(699,207,21,0)="^^3^3^2910425^^"
^DD(699,207,21,1,0)="This field identifies field stores the location of pneumonia and the dates"
^DD(699,207,21,2,0)="during which the pneumonia occurred.  This is used as an indication for"
^DD(699,207,21,3,0)="Pulmonary Endoscopies."
^DD(699,208,0)="OTHER FOLLOWUP DEVICE/THERAPY^F^^12;1^K:$L(X)>40!($L(X)<1) X"
^DD(699,208,3)="Answer must be 1-40 characters in length."
^DD(699,208,21,0)="^^3^3^2910425^"
^DD(699,208,21,1,0)="This field identifies a free text field which records the type of device or"
^DD(699,208,21,2,0)="therapy, previously performed, which needs therapy.  This can be used instead"
^DD(699,208,21,3,0)="of or in addition to the pointed to list."
^DD(699,208,"DT")="2910417"
^DD(699,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(699,600,3)="Answer must be 1-79 characters in length.  This statement will appear on the 'Summary of Patient Procedures'"
^DD(699,600,21,0)="^^2^2^2910425^"
^DD(699,600,21,1,0)="This field identifies a free text summary of the Endoscopy (up to 79"
^DD(699,600,21,2,0)="characters).  This required field appears on the Summary of Patient Procedures."
^DD(699,600,23,0)="^^1^1^2921117^^^"
^DD(699,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,600,"DT")="2901015"
^DD(699,700,0)="ICD DIAGNOSIS^699.03P^^ICD;0"
^DD(699,700,21,0)="^^3^3^2920623^^^"
^DD(699,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(699,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(699,700,21,3,0)="future."
^DD(699,700,23,0)="^^1^1^2921106^^^"
^DD(699,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699,701,0)="PRIMARY PROVIDER^P200'^VA(200,^PROV;1^Q"
^DD(699,701,5,1,0)="699^6^3"
^DD(699,701,9)="^"
^DD(699,701,21,0)="^^3^3^2940707^^"
^DD(699,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(699,701,21,2,0)="the file and is located here to provide a standard provider location for"
^DD(699,701,21,3,0)="use in transferring data to the PCC."
^DD(699,701,"DT")="2940614"
^DD(699,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(699,900,1,0)="^.1"
^DD(699,900,1,1,0)="699^APCE"
^DD(699,900,1,1,1)="S ^MCAR(699,""APCE"",$E(X,1,30),DA)="""""
^DD(699,900,1,1,2)="K ^MCAR(699,""APCE"",$E(X,1,30),DA)"
^DD(699,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(699,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(699,900,1,1,"DT")="2960517"
^DD(699,900,21,0)="^^2^2^2920728^^^"
^DD(699,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(699,900,21,2,0)="Visit File for use by Queryman."
^DD(699,900,"DT")="2960517"
^DD(699,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(699,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(699,1000,21,0)="^^3^3^2910703^"
^DD(699,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(699,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(699,1000,21,3,0)="Medicine package."
^DD(699,1000,"DT")="2910703"
^DD(699,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(699,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(699,1001,21,0)="^^3^3^2960614^"
^DD(699,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(699,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(699,1001,21,3,0)="results are entered in the Medicine package."
^DD(699,1001,"DT")="2910816"
^DD(699,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(699,1500,"DT")="2930121"
^DD(699,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>30!($L(X)<1) X"
^DD(699,1501,3)="Answer must be 1-30 characters in length."
^DD(699,1501,"DT")="2930121"
^DD(699,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699,1502,"DT")="2930121"
^DD(699,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(699,1503,"DT")="2930121"
^DD(699,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>30!($L(X)<1) X"
^DD(699,1504,3)="Answer must be 1-30 characters in length."
^DD(699,1504,"DT")="2930121"
^DD(699,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699,1505,"DT")="2930121"
^DD(699,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASED ON-LINE VERIFIED;ROV:RELEASED OFF-LINE VERIFIED;RNV:RELEASED NOT VERIFIED;S:SUPERSEDED;SRV:RELEASED ON-LINE VERIFIED OF SUPERSEDED;SROV:RELEASED OFF-LINE VERIFIED OF SUPERSEDED;^ES;7^Q"
^DD(699,1506,1,0)="^.1"
^DD(699,1506,1,1,0)="699^ES"
^DD(699,1506,1,1,1)="S ^MCAR(699,""ES"",$E(X,1,30),DA)="""""
^DD(699,1506,1,1,2)="K ^MCAR(699,""ES"",$E(X,1,30),DA)"
^DD(699,1506,1,1,"%D",0)="^^1^1^2930903^"
^DD(699,1506,1,1,"%D",1,0)="This cross-reference allows look-up by release status."
^DD(699,1506,1,1,"DT")="2930121"
^DD(699,1506,"DT")="2931214"
^DD(699,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699,1507,"DT")="2930121"
^DD(699,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699,1508,"DT")="2930121"
^DD(699,1509,0)="SUPERSEDED^NJ10,0^^ES;10^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699,1509,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(699,1509,"DT")="2930121"
^DD(699,1510,0)="SUPERSEDED BY^NJ10,0^^ES;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699,1510,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(699,1510,"DT")="2930121"
^DD(699,1511,0)="MARKED FOR DELETION^S^1:MARKED FOR DELETION;^ES;12^Q"
^DD(699,1511,"DT")="2930121"
^DD(699,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(699,1512,"DT")="2930121"
^DD(699,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(699,1513,3)="Answer must be 1-40 characters in length."
^DD(699,1513,"DT")="2930122"
^DD(699,1514,0)="RECORD CREATED^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(699,1514,"DT")="2930202"
^DD(699,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(699,1515,"DT")="2930304"
^DD(699,2005,0)="IMAGE^699.02005P^^2005;0"
^DD(699,2005,21,0)="^^1^1^2910425^^"
^DD(699,2005,21,1,0)="This field points to an object in the Image File."
^DD(699,"B","*RESERVED",37)=""
^DD(699,"B","ABNORMAL BOWEL CONSISTENCY",2.4)=""
^DD(699,"B","ABNORMAL BOWEL DURATION",2.45)=""
^DD(699,"B","ABNORMAL BOWEL FREQUENCY",2.46)=""
^DD(699,"B","APPOINTMENT DATE/TIME",.01)=""
^DD(699,"B","ASSESSMENT",34)=""
^DD(699,"B","BOWEL PREPARATION",16)=""
^DD(699,"B","COMMON BILE DUCT SIZE (mm)",22)=""
^DD(699,"B","COMPLICATIONS",30)=""
^DD(699,"B","CONSULTATION TYPE",31.5)=""
^DD(699,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(699,"B","COUGH",206)=""
^DD(699,"B","DATE OF RELEASED",1507)=""
^DD(699,"B","DATE OF VERIFIED",1508)=""
^DD(699,"B","DELETER DUZ",1512)=""
^DD(699,"B","DEPTH OF INSERTION",24)=""
^DD(699,"B","DIAGNOSIS/DIAGNOSIS SUPPLEMENT",37.1)=""
^DD(699,"B","DIET COMMENT",15)=""
^DD(699,"B","DISC ID",35.9)=""
^DD(699,"B","DISEASE FOLLOWUP",2.5)=""
^DD(699,"B","DISPOSITION",39)=""
^DD(699,"B","EGD SIMPLE PRIMARY EXAM",2.85)=""
^DD(699,"B","ENDOSCOPIST",6)=""
^DD(699,"B","ENEMAS",17)=""
^DD(699,"B","ENTERING DATE",1502)=""
^DD(699,"B","ENTERING DUZ",1500)=""
^DD(699,"B","FELLOW",200)=""
^DD(699,"B","FOLLOWUP DEVICE OR THERAPY",2.6)=""
^DD(699,"B","GMRCO",1001)=""
^DD(699,"B","ICD DIAGNOSIS",700)=""
^DD(699,"B","IMAGE",2005)=""
^DD(699,"B","INDICATED THERAPY",2.1)=""
^DD(699,"B","INDICATION COMMENT",3)=""
^DD(699,"B","INDICATION FOR PROCEDURE",2)=""
^DD(699,"B","INSTRUCTIONS TO PATIENT",203)=""
^DD(699,"B","INSTRUMENT",4)=""
^DD(699,"B","LAB OR XRAY",2.86)=""
^DD(699,"B","LOCATION EVALUATED",50)=""
^DD(699,"B","LOCATION OF PAIN",2.3)=""
^DD(699,"B","MARKED FOR DELETION",1511)=""
^DD(699,"B","MEDICAL PATIENT",.02)=""
^DD(699,"B","MEDICATION USED",5)=""
^DD(699,"B","NON-ENDOSCOPIC PROCEDURE",31)=""
^DD(699,"B","OBJECTIVE",33)=""
^DD(699,"B","OCCULT BLOOD",2.87)=""
^DD(699,"B","ORIFN",1000)=""
^DD(699,"B","OTHER FOLLOWUP DEVICE/THERAPY",208)=""
^DD(699,"B","PANCREATIC DUCT SIZE (mm)",23)=""
^DD(699,"B","PCC POINTER",900)=""
^DD(699,"B","PLANNED",35)=""
^DD(699,"B","PNEUMONIA",207)=""
^DD(699,"B","PNEUMOPERITONEUM GAS",13)=""
^DD(699,"B","POST-PROC INSTRUMENT CLEANSING",29)=""
^DD(699,"B","PREPARATION DIET",14)=""
^DD(699,"B","PRESCRIPTION GIVEN",40)=""
^DD(699,"B","PRIMARY DIAGNOSIS",204)=""
^DD(699,"B","PRIMARY DIAGNOSIS ANATOMY",204.5)=""
^DD(699,"B","PRIMARY DIAGNOSIS IMPRESSION",205)=""
^DD(699,"B","PRIMARY PROVIDER",701)=""
^DD(699,"B","PROCEDURE",1)=""
^DD(699,"B","PROCEDURE SUMMARY",600)=""
^DD(699,"B","PROTOCOL",2.8)=""
^DD(699,"B","RECORD CREATED",1514)=""
^DD(699,"B","RELEASE CODE",1506)=""
^DD(699,"B","RESULTS",28)=""
^DD(699,"B","REVISED DIAGNOSIS",38)=""
^DD(699,"B","SECOND ENDOSCOPIST",7)=""
^DD(699,"B","SECOND FELLOW",201)=""
^DD(699,"B","SECONDARY DIAGNOSIS",41)=""
^DD(699,"B","SIGNER VALIDATION CODE",1504)=""
^DD(699,"B","SIGNS AND SYMPTOMS",2.2)=""
^DD(699,"B","SPECIMEN COLLECTION",2.88)=""
^DD(699,"B","SUBJECTIVE",32)=""
^DD(699,"B","SUMMARY",202)=""
^DD(699,"B","SUPERSEDED",1509)=""
^DD(699,"B","SUPERSEDED BY",1510)=""
^DD(699,"B","SUPERSEDED DATE",1513)=""
^DD(699,"B","SUPERSEDED NUMBER",1515)=""
^DD(699,"B","SURVEILLANCE",2.7)=""
^DD(699,"B","TIME COMPLETED",11)=""
^DD(699,"B","TIME STARTED",10)=""
^DD(699,"B","URGENCY OF PROCEDURE",12)=""
^DD(699,"B","VERIFIER DATE",1505)=""
^DD(699,"B","VERIFYING DUZ",1503)=""
^DD(699,"B","VIDEO FRAME NUMBER",36)=""
^DD(699,"B","VIDEO/AUDIO FILE NAME",36.5)=""
^DD(699,"B","WARD/CLINIC",9)=""
^DD(699,"B","WHERE PERFORMED",8)=""
^DD(699,"GL",0,1,.01)=""
^DD(699,"GL",0,2,.02)=""
^DD(699,"GL",0,3,2.4)=""
^DD(699,"GL",0,4,2.45)=""
^DD(699,"GL",0,5,2.46)=""
^DD(699,"GL",0,6,3)=""
^DD(699,"GL",0,8,6)=""
^DD(699,"GL",0,9,7)=""
^DD(699,"GL",0,10,8)=""
^DD(699,"GL",0,11,9)=""
^DD(699,"GL",0,12,1)=""
^DD(699,"GL",.2,1,202)=""
^DD(699,"GL",.2,2,600)=""
^DD(699,"GL",1,0,2)=""
^DD(699,"GL",2,0,2.1)=""
^DD(699,"GL",3,0,2.2)=""
^DD(699,"GL",4,0,2.3)=""
^DD(699,"GL",5,0,2.5)=""
^DD(699,"GL",6,0,2.6)=""
^DD(699,"GL",7,0,2.7)=""
^DD(699,"GL",8,0,5)=""
^DD(699,"GL",9,1,10)=""
^DD(699,"GL",9,2,11)=""
^DD(699,"GL",9,3,12)=""
^DD(699,"GL",10,0,206)=""
^DD(699,"GL",11,0,207)=""
^DD(699,"GL",12,1,208)=""
^DD(699,"GL",13,0,13)=""
^DD(699,"GL",14,0,16)=""
^DD(699,"GL",15,1,14)=""
^DD(699,"GL",15,2,15)=""
^DD(699,"GL",15,3,17)=""
^DD(699,"GL",15,4,22)=""
^DD(699,"GL",15,5,23)=""
^DD(699,"GL",15,6,24)=""
^DD(699,"GL",15,10,29)=""
^DD(699,"GL",15,11,31.5)=""
^DD(699,"GL",15,12,35.9)=""
^DD(699,"GL",16,0,28)=""
^DD(699,"GL",17,0,30)=""
^DD(699,"GL",18,0,31)=""
^DD(699,"GL",19,1,37)=""
^DD(699,"GL",19,2,38)=""
^DD(699,"GL",20,0,32)=""
^DD(699,"GL",21,0,33)=""
^DD(699,"GL",22,0,34)=""
^DD(699,"GL",23,0,35)=""
^DD(699,"GL",24,0,36)=""
^DD(699,"GL",25,0,39)=""
^DD(699,"GL",26,0,40)=""
^DD(699,"GL",27,0,41)=""
^DD(699,"GL",28,0,36.5)=""
^DD(699,"GL",29,1,201)=""
^DD(699,"GL",30,0,50)=""
^DD(699,"GL",31,1,2.8)=""
^DD(699,"GL",31,2,2.85)=""
^DD(699,"GL",31,3,2.86)=""
^DD(699,"GL",32,1,2.87)=""
^DD(699,"GL",32,2,2.88)=""
^DD(699,"GL",33,0,37.1)=""
^DD(699,"GL",34,0,4)=""
^DD(699,"GL",200,1,200)=""
^DD(699,"GL",203,0,203)=""
^DD(699,"GL",204,1,204)=""
^DD(699,"GL",204,2,204.5)=""
^DD(699,"GL",205,1,205)=""
^DD(699,"GL",2005,0,2005)=""
^DD(699,"GL","ES",1,1500)=""
^DD(699,"GL","ES",2,1501)=""
^DD(699,"GL","ES",3,1502)=""
^DD(699,"GL","ES",4,1503)=""
^DD(699,"GL","ES",5,1504)=""
^DD(699,"GL","ES",6,1505)=""
^DD(699,"GL","ES",7,1506)=""
^DD(699,"GL","ES",8,1507)=""
^DD(699,"GL","ES",9,1508)=""
^DD(699,"GL","ES",10,1509)=""
^DD(699,"GL","ES",11,1510)=""
^DD(699,"GL","ES",12,1511)=""
^DD(699,"GL","ES",13,1512)=""
^DD(699,"GL","ES",14,1513)=""
^DD(699,"GL","ES",15,1514)=""
^DD(699,"GL","ES",16,1515)=""
^DD(699,"GL","ICD",0,700)=""
^DD(699,"GL","OR",1,1000)=""
^DD(699,"GL","OR",2,1001)=""
^DD(699,"GL","PCC",1,900)=""
^DD(699,"GL","PROV",1,701)=""
^DD(699,"IX",.01)=""
^DD(699,"IX",.02)=""
^DD(699,"IX",1)=""
^DD(699,"IX",6)=""
^DD(699,"IX",8)=""
^DD(699,"IX",202)=""
^DD(699,"IX",900)=""
^DD(699,"IX",1506)=""
^DD(699,"RQ",.01)=""
^DD(699,"RQ",.02)=""
^DD(699,"RQ",1)=""
^DD(699,"RQ",6)=""
^DD(699,"RQ",202)=""
^DD(699,"RQ",600)=""
^DD(699,"SB",699.01,50)=""
^DD(699,"SB",699.02005,2005)=""
^DD(699,"SB",699.0203,203)=""
^DD(699,"SB",699.0206,206)=""
^DD(699,"SB",699.0207,207)=""
^DD(699,"SB",699.03,700)=""
^DD(699,"SB",699.04,37.1)=""
^DD(699,"SB",699.05,4)=""
^DD(699,"SB",699.16,2)=""
^DD(699,"SB",699.17,2.1)=""
^DD(699,"SB",699.18,2.2)=""
^DD(699,"SB",699.19,2.3)=""
^DD(699,"SB",699.35,2.5)=""
^DD(699,"SB",699.36,2.6)=""
^DD(699,"SB",699.37,2.7)=""
^DD(699,"SB",699.38,5)=""
^DD(699,"SB",699.39,13)=""
^DD(699,"SB",699.4,16)=""
^DD(699,"SB",699.56,28)=""
^DD(699,"SB",699.58,30)=""
^DD(699,"SB",699.59,31)=""
^DD(699,"SB",699.64,36)=""
^DD(699,"SB",699.66,32)=""
^DD(699,"SB",699.67,33)=""
^DD(699,"SB",699.68,34)=""
^DD(699,"SB",699.69,35)=""
^DD(699,"SB",699.71,36.5)=""
^DD(699,"SB",699.73,39)=""
^DD(699,"SB",699.74,40)=""
^DD(699,"SB",699.75,41)=""
^DD(699.01,0)="LOCATION EVALUATED SUB-FIELD^NL^20^17"
^DD(699.01,0,"DT")="2911024"
^DD(699.01,0,"IX","AC",699.01,6)=""
^DD(699.01,0,"IX","B",699.01,.01)=""
^DD(699.01,0,"NM","LOCATION EVALUATED")=""
^DD(699.01,0,"UP")="699"
^DD(699.01,.01,0)="LOCATION EVALUATED^M*P697'X^MCAR(697,^0;1^S DIC(""S"")=""I $D(^MCAR(697,""""D"""",$G(MCARGNAM,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.01,.01,1,0)="^.1"
^DD(699.01,.01,1,1,0)="699.01^B"
^DD(699.01,.01,1,1,1)="S ^MCAR(699,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(699.01,.01,1,1,2)="K ^MCAR(699,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(699.01,.01,3)="CHOOSE ONLY ANATOMIC LOCATIONS ASSOCIATED WITH THIS PROCEDURE."
^DD(699.01,.01,12)="Choose Anatomic Locations that apply only to the procedure"
^DD(699.01,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697,""""D"""",$G(MCARGNAM,U),+Y))"""
^DD(699.01,.01,21,0)="^^2^2^2910425^^^"
^DD(699.01,.01,21,1,0)="This field identifies field records the anatomical location evaluated and"
^DD(699.01,.01,21,2,0)="records findings for the location evaluated."
^DD(699.01,.01,23,0)="^^1^1^2921106^^^"
^DD(699.01,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.01,.01,"DT")="2920730"
^DD(699.01,2,0)="GROSS^*P699.55'X^MCAR(699.55,^0;3^S DIC(0)=""E"",DIC(""S"")=""I $D(^MCAR(699.55,""""C"""",$G(MCARGNUM,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.01,2,3)="Enter a descriptor of the findings from anatomical location."
^DD(699.01,2,12)="CHOOSE GROSS THAT APPLIES ONLY TO PROCEDURE"
^DD(699.01,2,12.1)="S DIC(""S"")=""I $D(^MCAR(699.55,""""C"""",$G(MCARGNUM,U),+Y))"""
^DD(699.01,2,21,0)="^^1^1^2910425^"
^DD(699.01,2,21,1,0)="This field identifies a descriptor of the findings on the anatomical location."
^DD(699.01,2,23,0)="^^1^1^2921106^^^"
^DD(699.01,2,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.01,2,"DT")="2901010"
^DD(699.01,3,0)="MODIFIER^699.13PA^^1;0"
^DD(699.01,3,12)="CHOOSE ONLY MODIFIERS APPLICABLE TO PROCEDURE"
^DD(699.01,3,12.1)="S DIC(""S"")=""I $D(^MCAR(699.57,""""C"""",$G(MCARGNUM,U),+Y))"""
^DD(699.01,3,21,0)="^^1^1^2910425^"
^DD(699.01,3,21,1,0)="This field identifies a multiple adjective used to modify the Gross descriptor."
^DD(699.01,4,0)="MEASUREMENT^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(699.01,4,3)="Enter Value and Unit. 1-15 Characters, e.g. 3mm,12 mm wide, 3x4 mm"
^DD(699.01,4,21,0)="^^2^2^2910425^"
^DD(699.01,4,21,1,0)="This field identifies the size of the Gross finding (Ex: 4 cm; 4x3 cm; 4 cm"
^DD(699.01,4,21,2,0)="high,etc.) "
^DD(699.01,4,23,0)="^^1^1^2921106^^^"
^DD(699.01,4,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.01,4,"DT")="2901010"
^DD(699.01,5,0)="TECHNIQUE^699.15PA^^2;0"
^DD(699.01,5,12)="CHOOSE ONLY TECHNIQUES THAT ARE APPLICABLE TO THE PROCEDURE"
^DD(699.01,5,12.1)="S DIC(""S"")=""I $D(^MCAR(699.6,""""C"""",$G(MCARGNUM,U),+Y))"""
^DD(699.01,5,21,0)="^^2^2^2910425^"
^DD(699.01,5,21,1,0)="This field identifies subfield indicates the technique(s) used to evaluate the"
^DD(699.01,5,21,2,0)="anatomical location."
^DD(699.01,6,0)="IMPRESSION^*P697.5'^MCAR(697.5,^0;6^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.""""_$G(MCARGNAM,U),$P(^MCAR(697.5,+Y,0),U),+Y))"",(D,MCDF)=""A.""_$G(MCARGNAM,U) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.01,6,1,0)="^.1"
^DD(699.01,6,1,1,0)="699.01^AC^MUMPS"
^DD(699.01,6,1,1,1)="Q"
^DD(699.01,6,1,1,2)="D:$D(^MCAR(699,DA(1),27,""B"",X)) EN1^MCARGD"
^DD(699.01,6,1,1,"%D",0)="^^2^2^2911004^"
^DD(699.01,6,1,1,"%D",1,0)="This X-Ref will delete a secondary diagnosis if the Impression is"
^DD(699.01,6,1,1,"%D",2,0)="deleted and it had been entered as a secondary diagnosis."
^DD(699.01,6,1,1,"DT")="2911004"
^DD(699.01,6,3)="Enter summary of findings for the location evaluation to assist with diagnosis."
^DD(699.01,6,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.""_MCARGNAM D MIX^DIC1"
^DD(699.01,6,12)="CHOOSE ONLY ENTRIES APPLICABLE TO THE PROCEDURE"
^DD(699.01,6,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.""""_$G(MCARGNAM,U),$P(^MCAR(697.5,+Y,0),U),+Y))"",(D,MCDF)=""A.""_$G(MCARGNAM,U)"
^DD(699.01,6,21,0)="^^2^2^2940805^^^^"
^DD(699.01,6,21,1,0)="This field identifies findings for the location evaluated.  It then is"
^DD(699.01,6,21,2,0)="placed on the list of possible diagnoses."
^DD(699.01,6,23,0)="^^1^1^2940805^^^^"
^DD(699.01,6,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.01,6,"DT")="2911024"
^DD(699.01,10,0)="VIDEO FRAME NUMBER^699.02A^^3;0"
^DD(699.01,10,21,0)="^^1^1^2910425^"
^DD(699.01,10,21,1,0)="This field identifies is not being used at the present time."
^DD(699.01,11,0)="STENT TYPE^*P699.7'^MCAR(699.7,^4;1^S DIC(""S"")=""I $P(^(0),U,2)=""""ST"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.01,11,3)="Enter Type of Stent used, pointer to Endoscopic Device File (#699.7)."
^DD(699.01,11,12)="Choose Stent"
^DD(699.01,11,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""ST"""""""
^DD(699.01,11,21,0)="^^2^2^2910425^"
^DD(699.01,11,21,1,0)="This field identifies the type of stent used if INSERTION OF STENT is entered"
^DD(699.01,11,21,2,0)="as a technique.  Used for GI Endoscopies."
^DD(699.01,11,"DT")="2910111"
^DD(699.01,12,0)="STENT SIZE (FR)^NJ4,0^^4;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699.01,12,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(699.01,12,21,0)="^^2^2^2910425^"
^DD(699.01,12,21,1,0)="This field identifies the size of stent used if INSERTION OF STENT is entered"
^DD(699.01,12,21,2,0)="as a technique.  Used for GI Endoscopies."
^DD(699.01,12,"DT")="2901010"
^DD(699.01,13,0)="STENT LENGTH (mm)^NJ1,0^^4;3^K:+X'=X!(X>6)!(X<1)!(X?.E1"".""1N.N) X"
^DD(699.01,13,3)="Type a Number between 1 and 6, 0 Decimal Digits"
^DD(699.01,13,21,0)="^^2^2^2910425^"
^DD(699.01,13,21,1,0)="This field identifies the length of the stent used in millimeters if INSERTION"
^DD(699.01,13,21,2,0)="OF STENT is entered as a technique.  Used for GI Endoscopies."
^DD(699.01,13,"DT")="2901010"
^DD(699.01,14,0)="SPHINCTEROTOME USED^*P699.7'^MCAR(699.7,^4;4^S DIC(""S"")=""I $P(^(0),U,2)=""""SP"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.01,14,3)="Enter type of Sphincterotome, pointer to Endoscopic Device File (#699.7)."
^DD(699.01,14,12)="Choose Sphincterotome"
^DD(699.01,14,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""SP"""""""
^DD(699.01,14,21,0)="^^2^2^2910425^"
^DD(699.01,14,21,1,0)="This field identifies the type of sphincterotome used if SPHINCTEROTOMY is"
^DD(699.01,14,21,2,0)="entered as a technique.  Used for GI Endoscopies."
^DD(699.01,14,"DT")="2910111"
^DD(699.01,15,0)="INCISION SIZE^NJ5,2^^4;5^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(699.01,15,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(699.01,15,21,0)="^^2^2^2910425^"
^DD(699.01,15,21,1,0)="This field identifies the length of the incision made if SPHINCTEROTOMY is"
^DD(699.01,15,21,2,0)="entered as a technique.  Used for GI Endoscopies."
^DD(699.01,15,"DT")="2901010"
^DD(699.01,16,0)="SAVARY BOUGIE DIAMETER^F^^4;6^K:$L(X)>15!($L(X)<3) X"
^DD(699.01,16,3)="Answer must be 3-15 characters in length."
^DD(699.01,16,21,0)="^^2^2^2910425^"
^DD(699.01,16,21,1,0)="This field identifies the diameter of the savary bougie used if DILATION BY"
^DD(699.01,16,21,2,0)="SAVARY BOUGIE is entered as a technique.  Used for GI procedures."
^DD(699.01,16,"DT")="2910111"
^DD(699.01,17,0)="HEATER PROBE: DURATION^F^^4;7^K:$L(X)>20!($L(X)<3) X"
^DD(699.01,17,3)="Answer must be 3-20 characters in length."
^DD(699.01,17,21,0)="^^2^2^2910425^"
^DD(699.01,17,21,1,0)="This field identifies the length of time a heater probe is used if HEATER"
^DD(699.01,17,21,2,0)="PROBE COAGULA- TION is entered as a technique.  Used for GI procedures."
^DD(699.01,17,"DT")="2910111"
^DD(699.01,18,0)="HEATER PROBE: POWER^F^^4;8^K:$L(X)>15!($L(X)<3) X"
^DD(699.01,18,3)="Answer must be 3-15 characters in length."
^DD(699.01,18,21,0)="^^2^2^2910425^^"
^DD(699.01,18,21,1,0)="This field identifies the power of the heater probe used if HEATER PROBE"
^DD(699.01,18,21,2,0)="COAGULATION is entered as a technique.  Used for GI procedures."
^DD(699.01,18,"DT")="2910111"
^DD(699.01,19,0)="GASTROSTOMY TUBE USED^*P699.7'^MCAR(699.7,^4;9^S DIC(""S"")=""I $P(^(0),U,2)=""""G"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.01,19,3)="Enter type of Gastrostomy Tube, pointer to Endoscopic Device File (#699.7)."
^DD(699.01,19,12)="Choose Gastrostomy Tube"
^DD(699.01,19,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""G"""""""
^DD(699.01,19,21,0)="^^2^2^2910425^"
^DD(699.01,19,21,1,0)="This field identifies the specific tube used if GASTROSTOMY TUBE INSERTED is"
^DD(699.01,19,21,2,0)="entered as a technique.  Used for GI procedures."
^DD(699.01,19,"DT")="2910111"
^DD(699.01,20,0)="JEJUNOSTOMY TUBE INSERTED^*P699.7'^MCAR(699.7,^4;10^S DIC(""S"")=""I $P(^(0),U,2)=""""J"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.01,20,3)="Enter Jejunostomy Tube (if used), pointer to Endoscopic Device File (#699.7)."
^DD(699.01,20,12)="Choose Jejunostomy Tube"
^DD(699.01,20,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""J"""""""
^DD(699.01,20,21,0)="^^2^2^2910425^"
^DD(699.01,20,21,1,0)="This field identifies the specific tube used if JEJUNOSTOMY TUBE INSERTED"
^DD(699.01,20,21,2,0)="is entered as a technique.  Used for GI procedures."
^DD(699.01,20,"DT")="2910111"
^DD(699.01,"B","GASTROSTOMY TUBE USED",19)=""
^DD(699.01,"B","GROSS",2)=""
^DD(699.01,"B","HEATER PROBE: DURATION",17)=""
^DD(699.01,"B","HEATER PROBE: POWER",18)=""
^DD(699.01,"B","IMPRESSION",6)=""
^DD(699.01,"B","INCISION SIZE",15)=""
^DD(699.01,"B","JEJUNOSTOMY TUBE INSERTED",20)=""
^DD(699.01,"B","LOCATION EVALUATED",.01)=""
^DD(699.01,"B","MEASUREMENT",4)=""
^DD(699.01,"B","MODIFIER",3)=""
^DD(699.01,"B","SAVARY BOUGIE DIAMETER",16)=""
^DD(699.01,"B","SPHINCTEROTOME USED",14)=""
^DD(699.01,"B","STENT LENGTH (mm)",13)=""
^DD(699.01,"B","STENT SIZE (FR)",12)=""
^DD(699.01,"B","STENT TYPE",11)=""
^DD(699.01,"B","TECHNIQUE",5)=""
^DD(699.01,"B","VIDEO FRAME NUMBER",10)=""
^DD(699.01,"GL",0,1,.01)=""
^DD(699.01,"GL",0,3,2)=""
^DD(699.01,"GL",0,4,4)=""
^DD(699.01,"GL",0,6,6)=""
^DD(699.01,"GL",1,0,3)=""
^DD(699.01,"GL",2,0,5)=""
^DD(699.01,"GL",3,0,10)=""
^DD(699.01,"GL",4,1,11)=""
^DD(699.01,"GL",4,2,12)=""
^DD(699.01,"GL",4,3,13)=""
^DD(699.01,"GL",4,4,14)=""
^DD(699.01,"GL",4,5,15)=""
^DD(699.01,"GL",4,6,16)=""
^DD(699.01,"GL",4,7,17)=""
^DD(699.01,"GL",4,8,18)=""
^DD(699.01,"GL",4,9,19)=""
^DD(699.01,"GL",4,10,20)=""
^DD(699.01,"IX",.01)=""
^DD(699.01,"IX",6)=""
^DD(699.01,"SB",699.02,10)=""
^DD(699.01,"SB",699.13,3)=""
^DD(699.01,"SB",699.15,5)=""
^DD(699.02,0)="VIDEO FRAME NUMBER SUB-FIELD^^.01^1"
^DD(699.02,0,"IX","B",699.02,.01)=""
^DD(699.02,0,"NM","VIDEO FRAME NUMBER")=""
^DD(699.02,0,"UP")="699.01"
^DD(699.02,.01,0)="VIDEO FRAME NUMBER^MNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699.02,.01,1,0)="^.1"
^DD(699.02,.01,1,1,0)="699.02^B"
^DD(699.02,.01,1,1,1)="S ^MCAR(699,DA(2),30,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(699.02,.01,1,1,2)="K ^MCAR(699,DA(2),30,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(699.02,.01,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(699.02,.01,21,0)="^^1^1^2910425^"
^DD(699.02,.01,21,1,0)="This field identifies is not being used at the present time."
^DD(699.02,.01,"DT")="2901010"
^DD(699.02,"B","VIDEO FRAME NUMBER",.01)=""
^DD(699.02,"GL",0,1,.01)=""
^DD(699.02,"IX",.01)=""
^DD(699.02005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(699.02005,0,"DT")="2900713"
^DD(699.02005,0,"IX","B",699.02005,.01)=""
^DD(699.02005,0,"NM","IMAGE")=""
^DD(699.02005,0,"UP")="699"
^DD(699.02005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(699.02005,.01,1,0)="^.1"
^DD(699.02005,.01,1,1,0)="699.02005^B"
^DD(699.02005,.01,1,1,1)="S ^MCAR(699,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(699.02005,.01,1,1,2)="K ^MCAR(699,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(699.02005,.01,3)="Enter the 'Image' file object number."
^DD(699.02005,.01,21,0)="^^1^1^2910425^"
^DD(699.02005,.01,21,1,0)="This field points to an object in the Image File."
^DD(699.02005,.01,"DT")="2901101"
^DD(699.02005,"B","IMAGE",.01)=""
^DD(699.02005,"GL",0,1,.01)=""
^DD(699.02005,"IX",.01)=""
^DD(699.0203,0)="INSTRUCTIONS TO PATIENT SUB-FIELD^^.01^1"
^DD(699.0203,0,"NM","INSTRUCTIONS TO PATIENT")=""
^DD(699.0203,0,"UP")="699"
^DD(699.0203,.01,0)="INSTRUCTIONS TO PATIENT^W^^0;1^Q"
^DD(699.0203,.01,3)="Enter post-procedural instructions to give to patient."
^DD(699.0203,.01,21,0)="^^2^2^2921125^^"
^DD(699.0203,.01,21,1,0)="This field identifies a word processing field which indicates post-proceduriall"
^DD(699.0203,.01,21,2,0)="instructions given to the patient."
^DD(699.0203,.01,"DT")="2880816"
^DD(699.0203,"B","INSTRUCTIONS TO PATIENT",.01)=""
^DD(699.0203,"GL",0,1,.01)=""
^DD(699.0206,0)="COUGH SUB-FIELD^^1^2"
^DD(699.0206,0,"IX","B",699.0206,.01)=""
^DD(699.0206,0,"NM","COUGH")=""
^DD(699.0206,0,"UP")="699"
^DD(699.0206,.01,0)="TYPE OF COUGH^M*P695.5'^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""X"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.0206,.01,1,0)="^.1"
^DD(699.0206,.01,1,1,0)="699.0206^B"
^DD(699.0206,.01,1,1,1)="S ^MCAR(699,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(699.0206,.01,1,1,2)="K ^MCAR(699,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(699.0206,.01,3)="Enter the type of cough the patient has.  This is a pointer to the Symptom File."
^DD(699.0206,.01,12)="CHOOSE ONLY THOSE SYMPTOMS APPLIED TO A COUGH"
^DD(699.0206,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",""""X"""",+Y))"""
^DD(699.0206,.01,21,0)="^^2^2^2910425^"
^DD(699.0206,.01,21,1,0)="This field identifies the type of cough the patient has.  Used in Pulmonary"
^DD(699.0206,.01,21,2,0)="Endoscopy."
^DD(699.0206,.01,"DT")="2881130"
^DD(699.0206,1,0)="DURATION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(699.0206,1,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(699.0206,1,21,0)="^^1^1^2910425^"
^DD(699.0206,1,21,1,0)="This free text subfield indicates the duration of the cough."
^DD(699.0206,1,"DT")="2881201"
^DD(699.0206,"B","DURATION",1)=""
^DD(699.0206,"B","TYPE OF COUGH",.01)=""
^DD(699.0206,"GL",0,1,.01)=""
^DD(699.0206,"GL",0,2,1)=""
^DD(699.0206,"IX",.01)=""
^DD(699.0207,0)="PNEUMONIA SUB-FIELD^^1^2"
^DD(699.0207,0,"IX","B",699.0207,.01)=""
^DD(699.0207,0,"NM","PNEUMONIA")=""
^DD(699.0207,0,"UP")="699"
^DD(699.0207,.01,0)="LOCATION OF PNEUMONIA^M*P699.83'^MCAR(699.83,^0;1^S DIC(""S"")=""I $D(^MCAR(699.83,""""C"""",""""P"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.0207,.01,1,0)="^.1"
^DD(699.0207,.01,1,1,0)="699.0207^B"
^DD(699.0207,.01,1,1,1)="S ^MCAR(699,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(699.0207,.01,1,1,2)="K ^MCAR(699,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(699.0207,.01,3)="Enter Location of Pneumonia, this is a pointer to Location of Pain/Pneumonias File."
^DD(699.0207,.01,12)="CHOOSE LOCATIONS ASSOCIATED WITH PNEUMONIA ONLY"
^DD(699.0207,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(699.83,""""C"""",""""P"""",+Y))"""
^DD(699.0207,.01,21,0)="^^1^1^2910425^"
^DD(699.0207,.01,21,1,0)="This field identifies the anatomical location of the pneumonia."
^DD(699.0207,.01,"DT")="2881130"
^DD(699.0207,1,0)="DATES^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(699.0207,1,3)="This is free text . Dates of Pheumonia should be entered in the format 'STARTING DATE' - 'ENDING DATE'"
^DD(699.0207,1,21,0)="^^2^2^2940912^"
^DD(699.0207,1,21,1,0)="This field identifies a range of dates during which the pneumonia occurred"
^DD(699.0207,1,21,2,0)="and is free text."
^DD(699.0207,1,"DT")="2881130"
^DD(699.0207,"B","DATES",1)=""
^DD(699.0207,"B","LOCATION OF PNEUMONIA",.01)=""
^DD(699.0207,"GL",0,1,.01)=""
^DD(699.0207,"GL",0,2,1)=""
^DD(699.0207,"IX",.01)=""
^DD(699.03,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(699.03,0,"DT")="2930310"
^DD(699.03,0,"IX","B",699.03,.01)=""
^DD(699.03,0,"NM","ICD DIAGNOSIS")=""
^DD(699.03,0,"UP")="699"
^DD(699.03,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(699.03,.01,1,0)="^.1"
^DD(699.03,.01,1,1,0)="699.03^B"
^DD(699.03,.01,1,1,1)="S ^MCAR(699,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(699.03,.01,1,1,2)="K ^MCAR(699,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(699.03,.01,4)=""
^DD(699.03,.01,21,0)="^^3^3^2920623^^^"
^DD(699.03,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(699.03,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(699.03,.01,21,3,0)="future."
^DD(699.03,.01,23,0)="^^1^1^2921106^^^"
^DD(699.03,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.03,.01,"DT")="2930310"
^DD(699.03,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(699.03,.02,3)="Answer must be 1-80 characters in length."
^DD(699.03,.02,23,0)="^^1^1^2921106^^^"
^DD(699.03,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.03,.02,"DT")="2920102"
^DD(699.03,"B","ICD DIAGNOSIS",.01)=""
^DD(699.03,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(699.03,"GL",0,1,.01)=""
^DD(699.03,"GL",0,2,.02)=""
^DD(699.03,"IX",.01)=""
^DD(699.04,0)="DIAGNOSIS/DIAGNOSIS SUPPLEMENT SUB-FIELD^^.01^1"
^DD(699.04,0,"DT")="2920623"
^DD(699.04,0,"NM","DIAGNOSIS/DIAGNOSIS SUPPLEMENT")=""
^DD(699.04,0,"UP")="699"
^DD(699.04,.01,0)="DIAGNOSIS/DIAGNOSIS SUPPLEMENT^W^^0;1^Q"
^DD(699.04,.01,"DT")="2920623"
^DD(699.04,"B","DIAGNOSIS/DIAGNOSIS SUPPLEMENT",.01)=""
^DD(699.04,"GL",0,1,.01)=""
^DD(699.05,0)="INSTRUMENT SUB-FIELD^^.01^1"
^DD(699.05,0,"DT")="2930727"
^DD(699.05,0,"IX","B",699.05,.01)=""
^DD(699.05,0,"NM","INSTRUMENT")=""
^DD(699.05,0,"UP")="699"
^DD(699.05,.01,0)="INSTRUMENT^M*P699.48'^MCAR(699.48,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=$G(MCARCODE,U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.05,.01,1,0)="^.1"
^DD(699.05,.01,1,1,0)="699.05^B"
^DD(699.05,.01,1,1,1)="S ^MCAR(699,DA(1),34,""B"",$E(X,1,30),DA)="""""
^DD(699.05,.01,1,1,2)="K ^MCAR(699,DA(1),34,""B"",$E(X,1,30),DA)"
^DD(699.05,.01,3)="Enter Endoscopic instrument used in procedure, ointer to instrument file (#699.48)"
^DD(699.05,.01,12)="CHOOSE INSTRUMENTS THAT APPLY ONLY TO GI OR PULMONARY"
^DD(699.05,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$G(MCARCODE,U)"""
^DD(699.05,.01,"DT")="2930727"
^DD(699.05,"B","INSTRUMENT",.01)=""
^DD(699.05,"GL",0,1,.01)=""
^DD(699.05,"IX",.01)=""
^DD(699.13,0)="MODIFIER SUB-FIELD^^.01^1"
^DD(699.13,0,"IX","B",699.13,.01)=""
^DD(699.13,0,"NM","MODIFIER")=""
^DD(699.13,0,"UP")="699.01"
^DD(699.13,.01,0)="MODIFIER^M*P699.57'X^MCAR(699.57,^0;1^S DIC(0)=""E"",DIC(""S"")=""I $D(^MCAR(699.57,""""C"""",$G(MCARGNUM,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.13,.01,1,0)="^.1"
^DD(699.13,.01,1,1,0)="699.13^B"
^DD(699.13,.01,1,1,1)="S ^MCAR(699,DA(2),30,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(699.13,.01,1,1,2)="K ^MCAR(699,DA(2),30,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(699.13,.01,3)="Enter adjective used to modify the Gross descriptor."
^DD(699.13,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(699.57,""""C"""",$G(MCARGNUM,U),+Y))"""
^DD(699.13,.01,21,0)="^^1^1^2910425^"
^DD(699.13,.01,21,1,0)="This field identifies a specific adjective used to modify the Gross descriptor."
^DD(699.13,.01,"DT")="2910114"
^DD(699.13,"B","MODIFIER",.01)=""
^DD(699.13,"GL",0,1,.01)=""
^DD(699.13,"IX",.01)=""
^DD(699.15,0)="TECHNIQUE SUB-FIELD^^.01^1"
^DD(699.15,0,"IX","B",699.15,.01)=""
^DD(699.15,0,"NM","TECHNIQUE")=""
^DD(699.15,0,"UP")="699.01"
^DD(699.15,.01,0)="TECHNIQUE^M*P699.6'X^MCAR(699.6,^0;1^S DIC(0)=""E"",DIC(""S"")=""I $D(^MCAR(699.6,""""E"""",$G(MCARGNAM,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.15,.01,1,0)="^.1"
^DD(699.15,.01,1,1,0)="699.15^B"
^DD(699.15,.01,1,1,1)="S ^MCAR(699,DA(2),30,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(699.15,.01,1,1,2)="K ^MCAR(699,DA(2),30,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(699.15,.01,3)="Enter technique used to evaluate the anatomical location."
^DD(699.15,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(699.6,""""E"""",$G(MCARGNAM,U),+Y))"""
^DD(699.15,.01,21,0)="^^2^2^2910425^"
^DD(699.15,.01,21,1,0)="This field identifies the specific technique used to evaluate the anatomical"
^DD(699.15,.01,21,2,0)="location. "
^DD(699.15,.01,23,0)="^^1^1^2921106^^^"
^DD(699.15,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.15,.01,"DT")="2920731"
^DD(699.15,"B","TECHNIQUE",.01)=""
^DD(699.15,"GL",0,1,.01)=""
^DD(699.15,"IX",.01)=""
^DD(699.16,0)="INDICATION FOR PROCEDURE SUB-FIELD^NL^.01^1"
^DD(699.16,0,"IX","B",699.16,.01)=""
^DD(699.16,0,"NM","INDICATION FOR PROCEDURE")=""
^DD(699.16,0,"UP")="699"
^DD(699.16,.01,0)="INDICATION FOR PROCEDURE^M*P694.1'^MCAR(694.1,^0;1^S DIC(""S"")=""I $D(^MCAR(694.1,""""C"""",$G(MCARCODE,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.16,.01,1,0)="^.1"
^DD(699.16,.01,1,1,0)="699.16^B"
^DD(699.16,.01,1,1,1)="S ^MCAR(699,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(699.16,.01,1,1,2)="K ^MCAR(699,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(699.16,.01,3)="CHOOSE NUMBER FOR INDICATION YOU WISH TO SELECT"
^DD(699.16,.01,12)="CHOOSE ENTRIES THAT APPLY ONLY TO SPECIFIC AREA OF MEDICINE"
^DD(699.16,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(694.1,""""C"""",$G(MCARCODE,U),+Y))"""
^DD(699.16,.01,21,0)="^^1^1^2940415^^^"
^DD(699.16,.01,21,1,0)="This contains a specific reason why the procedure was performed."
^DD(699.16,.01,"DT")="2881129"
^DD(699.16,"B","INDICATION FOR PROCEDURE",.01)=""
^DD(699.16,"GL",0,1,.01)=""
^DD(699.16,"IX",.01)=""
^DD(699.17,0)="INDICATED THERAPY SUB-FIELD^NL^.01^1"
^DD(699.17,0,"DT")="2960515"
^DD(699.17,0,"NM","INDICATED THERAPY")=""
^DD(699.17,0,"UP")="699"
^DD(699.17,.01,0)="INDICATED THERAPY^M*P699.6'^MCAR(699.6,^0;1^S DIC(""S"")=""I $P(^MCAR(699.6,+Y,0),U,2)[$S($G(MCARCODE)=""""G"""":1,1:2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.17,.01,3)="ENTER THE THERAPY WHICH YOU PROPOSE TO DO, BEFORE THE PROCEDURE IS        PERFORMED.  THIS MAY BE DIFFERENT THAN THE ACTUAL THERAPY ACCOMPLISHED."
^DD(699.17,.01,12)="CHOOSE ONLY FILE ENTRIES MARKED FOR INDICATED THERAPY"
^DD(699.17,.01,12.1)="S DIC(""S"")=""I $P(^MCAR(699.6,+Y,0),U,2)[$S($G(MCARCODE)=""""G"""":1,1:2)"""
^DD(699.17,.01,21,0)="^^2^2^2960515^^^^"
^DD(699.17,.01,21,1,0)="This field identifies the specific therapeutic manipulation which you believe"
^DD(699.17,.01,21,2,0)="you may perform at the time of the examination."
^DD(699.17,.01,23,0)="^^1^1^2960515^^^^"
^DD(699.17,.01,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699.17,.01,"DT")="2960515"
^DD(699.17,"B","INDICATED THERAPY",.01)=""
^DD(699.17,"GL",0,1,.01)=""
^DD(699.18,0)="SIGNS AND SYMPTOMS SUB-FIELD^NL^.01^1"
^DD(699.18,0,"IX","B",699.18,.01)=""
^DD(699.18,0,"NM","SIGNS AND SYMPTOMS")=""
^DD(699.18,0,"UP")="699"
^DD(699.18,.01,0)="SIGNS AND SYMPTOMS^M*P695.5'X^MCAR(695.5,^0;1^S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",$G(MCARCODE,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.18,.01,1,0)="^.1"
^DD(699.18,.01,1,1,0)="699.18^B"
^DD(699.18,.01,1,1,1)="S ^MCAR(699,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(699.18,.01,1,1,2)="K ^MCAR(699,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(699.18,.01,3)="CHOOSE APPROPRIATE SIGNS OR SYMPTOMS."
^DD(699.18,.01,12)="SYMPTOMS THAT APPLY ONLY TO SPECIFIC AREA OF MEDICINE"
^DD(699.18,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.5,""""C"""",$G(MCARCODE,U),+Y))"""
^DD(699.18,.01,21,0)="^^2^2^2940415^^"
^DD(699.18,.01,21,1,0)="This field identifies the specific sign or symptom used as an indication for"
^DD(699.18,.01,21,2,0)="procedure. "
^DD(699.18,.01,23,0)="^^1^1^2940415^^^^"
^DD(699.18,.01,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699.18,.01,"DT")="2881129"
^DD(699.18,"B","SIGNS AND SYMPTOMS",.01)=""
^DD(699.18,"GL",0,1,.01)=""
^DD(699.18,"IX",.01)=""
^DD(699.19,0)="LOCATION OF PAIN SUB-FIELD^NL^2^3"
^DD(699.19,0,"NM","LOCATION OF PAIN")=""
^DD(699.19,0,"UP")="699"
^DD(699.19,.01,0)="LOCATION OF PAIN^M*P699.83'X^MCAR(699.83,^0;1^S DIC(""S"")=""I $D(^MCAR(699.83,""""C"""",""""G"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.19,.01,3)="Enter location of pain, pointer to Location of Pain/Pneumonias File (#699.83)."
^DD(699.19,.01,12)="CHOOSE LOCATIONS FOR GI PROCEDURES"
^DD(699.19,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(699.83,""""C"""",""""G"""",+Y))"""
^DD(699.19,.01,21,0)="^^1^1^2910425^"
^DD(699.19,.01,21,1,0)="This field identifies the specific location of pain."
^DD(699.19,.01,"DT")="2881129"
^DD(699.19,1,0)="DURATION^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(699.19,1,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH."
^DD(699.19,1,21,0)="^^1^1^2910425^"
^DD(699.19,1,21,1,0)="This field indicates the length of time the pain persists."
^DD(699.19,2,0)="FREQUENCY^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(699.19,2,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH."
^DD(699.19,2,21,0)="^^1^1^2910425^"
^DD(699.19,2,21,1,0)="This field identifies the frequency of the pain."
^DD(699.19,"B","DURATION",1)=""
^DD(699.19,"B","FREQUENCY",2)=""
^DD(699.19,"B","LOCATION OF PAIN",.01)=""
^DD(699.19,"GL",0,1,.01)=""
^DD(699.19,"GL",0,2,1)=""
^DD(699.19,"GL",0,3,2)=""
^DD(699.35,0)="DISEASE FOLLOWUP SUB-FIELD^NL^.01^1"
^DD(699.35,0,"NM","DISEASE FOLLOWUP")=""
^DD(699.35,0,"UP")="699"
^DD(699.35,.01,0)="DISEASE FOLLOWUP^M*P699.84'^MCAR(699.84,^0;1^S DIC(""S"")=""I $P(^(0),U,2)=$G(MCARCODE,U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.35,.01,3)="This refers to repeat procedure for a disease, Pointer to Disease Evaluation File (#699.84)."
^DD(699.35,.01,12)="CHOOSE DISEASE EVALUATIONS THAT APPLY ONLY TO THE AREA OF MEDICINE"
^DD(699.35,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$G(MCARCODE,U)"""
^DD(699.35,.01,21,0)="^^1^1^2910425^"
^DD(699.35,.01,21,1,0)="This field identifies the specific disease or evaluation used as an indication."
^DD(699.35,.01,23,0)="^^1^1^2921106^^^"
^DD(699.35,.01,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699.35,.01,"DT")="2881130"
^DD(699.35,"B","DISEASE FOLLOWUP",.01)=""
^DD(699.35,"GL",0,1,.01)=""
^DD(699.36,0)="FOLLOWUP DEVICE OR THERAPY SUB-FIELD^NL^.01^1"
^DD(699.36,0,"DT")="2960515"
^DD(699.36,0,"NM","FOLLOWUP DEVICE OR THERAPY")=""
^DD(699.36,0,"UP")="699"
^DD(699.36,.01,0)="FOLLOWUP DEVICE OR THERAPY^M*P699.85'^MCAR(699.85,^0;1^S DIC(""S"")=""I $D(^MCAR(699.85,""""D"""",$G(MCARCODE,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.36,.01,3)="Record here the type of device or therapy, previously performed, which needs followup.  Pointer to Followup Device/Therapy File (#699.85)."
^DD(699.36,.01,12)="SCREENS OUT GI AND PULMONNARY ENTRIES"
^DD(699.36,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(699.85,""""D"""",$G(MCARCODE,U),+Y))"""
^DD(699.36,.01,21,0)="^^2^2^2960515^^^^"
^DD(699.36,.01,21,1,0)="This field identifies the specific type of device or therapy, previously"
^DD(699.36,.01,21,2,0)="performed, which needs follow-up."
^DD(699.36,.01,"DT")="2960515"
^DD(699.36,"B","FOLLOWUP DEVICE OR THERAPY",.01)=""
^DD(699.36,"GL",0,1,.01)=""
^DD(699.37,0)="SURVEILLANCE SUB-FIELD^NL^.01^1"
^DD(699.37,0,"NM","SURVEILLANCE")=""
^DD(699.37,0,"UP")="699"
^DD(699.37,.01,0)="SURVEILLANCE^MP699.86'^MCAR(699.86,^0;1^Q"
^DD(699.37,.01,3)="Enter Surveillance disease used as an indication for procedure.  Pointer to Surveillance File (#699.86)."
^DD(699.37,.01,21,0)="^^2^2^2910425^"
^DD(699.37,.01,21,1,0)="This field identifies the specific surveillance disease used as an indication"
^DD(699.37,.01,21,2,0)="for  procedure."
^DD(699.37,.01,23,0)="^^1^1^2921106^^^"
^DD(699.37,.01,23,1,0)="ORDER ENTRY TYPE:  INDICATION"
^DD(699.37,.01,"DT")="2890228"
^DD(699.37,"B","SURVEILLANCE",.01)=""
^DD(699.37,"GL",0,1,.01)=""
^DD(699.38,0)="MEDICATION USED SUB-FIELD^NL^3^4"
^DD(699.38,0,"DT")="2960515"
^DD(699.38,0,"NM","MEDICATION USED")=""
^DD(699.38,0,"UP")="699"
^DD(699.38,.01,0)="MEDICATION USED^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",$G(MCARCODE,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.38,.01,3)="ENTER ANESTHETICS, SCLEROSANTS, INJECTIONS, SPRAYS, ETC. USED DURING THE  PROCEDURE.  ENTER TOTAL DOSE ONLY."
^DD(699.38,.01,12)="CHOOSE ONLY MEDICATIONS BELONGING TO SPECIFIC AREA OF MEDICINE"
^DD(699.38,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",$G(MCARCODE,U),+Y))"""
^DD(699.38,.01,21,0)="^^1^1^2960515^^"
^DD(699.38,.01,21,1,0)="This field identifies the specific medication administered."
^DD(699.38,.01,"DT")="2960515"
^DD(699.38,1,0)="DRUG DOSE ROUTE^S^IM:INTRAMUSCULAR;IV:INTRAVENOUS;O:ORAL;PV:PARAVARICEAL;SM:SUBMUCOSAL;SQ:SUBCUTANEOUS;T:TOPICAL;V:INTRAVARICEAL;^0;2^Q"
^DD(699.38,1,3)="Enter Code from list for Drug Dose Route for GI Endoscopies."
^DD(699.38,1,21,0)="^^2^2^2910425^"
^DD(699.38,1,21,1,0)="This field identifies a set of codes to record the route of administration for"
^DD(699.38,1,21,2,0)="GI Endoscopies."
^DD(699.38,2,0)="TOTAL DOSE (in mg.)^NJ7,2^^0;3^K:+X'=X!(X>9999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(699.38,2,3)="VALUES FROM 0 TO 9999.99 ACCEPTED."
^DD(699.38,2,21,0)="^^2^2^2910425^"
^DD(699.38,2,21,1,0)="This field identifies the total dosage in milligrams of the medication"
^DD(699.38,2,21,2,0)="administered. "
^DD(699.38,3,0)="DRUG DOSE ROUTE-P^S^SQ:SUBCUTANEOUS;IM:INTRAMUSCULAR;IV:INTRAVENOUS;N/P:NASOPHARYNGEAL;LA:LARYNGEAL;TR:TRACHEAL;^0;4^Q"
^DD(699.38,3,3)="Enter Code from list for Drug Dose Route for Pulmonary Endoscopies."
^DD(699.38,3,21,0)="^^2^2^2910425^"
^DD(699.38,3,21,1,0)="This field identifies a set of codes to record the route of administration for"
^DD(699.38,3,21,2,0)="Pulmonary Endoscopies."
^DD(699.38,3,"DT")="2881220"
^DD(699.38,"B","DRUG DOSE ROUTE",1)=""
^DD(699.38,"B","DRUG DOSE ROUTE-P",3)=""
^DD(699.38,"B","MEDICATION USED",.01)=""
^DD(699.38,"B","TOTAL DOSE (in mg.)",2)=""
^DD(699.38,"GL",0,1,.01)=""
^DD(699.38,"GL",0,2,1)=""
^DD(699.38,"GL",0,3,2)=""
^DD(699.38,"GL",0,4,3)=""
^DD(699.39,0)="PNEUMOPERITONEUM GAS SUB-FIELD^NL^1^2"
^DD(699.39,0,"NM","PNEUMOPERITONEUM GAS")=""
^DD(699.39,0,"UP")="699"
^DD(699.39,.01,0)="PNEUMOPERITONEUM GAS^S^A:AIR;C:CO2;N:NO2;O:OTHER;^0;1^Q"
^DD(699.39,.01,3)="Enter Code from list for type of Pneumoperitoneum Gas."
^DD(699.39,.01,21,0)="^^2^2^2910425^"
^DD(699.39,.01,21,1,0)="This field identifies the type of Pneumoperitoneum Gas (Air,CO2,NO2, Other)"
^DD(699.39,.01,21,2,0)="used. "
^DD(699.39,1,0)="PRESSURE CONTROL^S^A:AUTOMATIC;M:MANUAL;^0;2^Q"
^DD(699.39,1,3)="Enter Code to indicate if pressure was controlled manually or automatically."
^DD(699.39,1,21,0)="^^2^2^2910425^"
^DD(699.39,1,21,1,0)="This field identifies whether the pressure was controlled manually or "
^DD(699.39,1,21,2,0)="automatically."
^DD(699.39,"B","PNEUMOPERITONEUM GAS",.01)=""
^DD(699.39,"B","PRESSURE CONTROL",1)=""
^DD(699.39,"GL",0,1,.01)=""
^DD(699.39,"GL",0,2,1)=""
^DD(699.4,0)="BOWEL PREPARATION SUB-FIELD^NL^1^2"
^DD(699.4,0,"NM","BOWEL PREPARATION")=""
^DD(699.4,0,"UP")="699"
^DD(699.4,.01,0)="BOWEL PREPARATION^MS^1:BISCODYL;2:CASTER OIL;3:GOLYTELY;4:MAGNESIUM CITRATE;5:NEOLOID;6:OTHER;7:PHOSPHASODA;^0;1^Q"
^DD(699.4,.01,3)="Enter Code of type of laxative preparation given for a colonosocpy."
^DD(699.4,.01,21,0)="^^1^1^2910425^^"
^DD(699.4,.01,21,1,0)="This field indicates the type of laxative preparation given for a colonoscopy."
^DD(699.4,.01,"DT")="2900409"
^DD(699.4,1,0)="ROUTE^S^PO:ORAL;PR:RECTAL;^0;2^Q"
^DD(699.4,1,3)="Enter Code of method (Oral or Rectal) by which preparation was administered."
^DD(699.4,1,21,0)="^^2^2^2910425^"
^DD(699.4,1,21,1,0)="This field indicates the method (Oral or Rectal) by which the preparation"
^DD(699.4,1,21,2,0)="was administered."
^DD(699.4,"B","BOWEL PREPARATION",.01)=""
^DD(699.4,"B","ROUTE",1)=""
^DD(699.4,"GL",0,1,.01)=""
^DD(699.4,"GL",0,2,1)=""
^DD(699.48,0)="FIELD^^1^2"
^DD(699.48,0,"IX","AC",699.48,.01)=""
^DD(699.48,0,"IX","B",699.48,.01)=""
^DD(699.48,0,"IX","C",699.48,1)=""
^DD(699.48,0,"NM","INSTRUMENT")=""
^DD(699.48,0,"PT",699.05,.01)=""
^DD(699.48,0,"VR")="2.3"
^DD(699.48,0,"VRPK")="MEDICINE"
^DD(699.48,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(699.48,.01,1,0)="^.1"
^DD(699.48,.01,1,1,0)="699.48^B"
^DD(699.48,.01,1,1,1)="S ^MCAR(699.48,""B"",$E(X,1,30),DA)="""""
^DD(699.48,.01,1,1,2)="K ^MCAR(699.48,""B"",$E(X,1,30),DA)"
^DD(699.48,.01,1,2,0)="699.48^AC^MUMPS"
^DD(699.48,.01,1,2,1)="S:$G(MCARCODE)]"""" $P(^MCAR(699.48,DA,0),U,2)=MCARCODE,^MCAR(699.48,""C"",MCARCODE,DA)="""""
^DD(699.48,.01,1,2,1.4)="S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(699.48,.01,1,2,2)="K:$G(MCARCODE)]"""" ^MCAR(699.48,""C"",MCARCODE,DA)"
^DD(699.48,.01,1,2,2.4)="S DIH=$S($D(^MCAR(699.48,DIV(0),0)):^(0),1:""""),DIV=X S %=$P(DIH,U,3,999),DIU=$P(DIH,U,2),^(0)=$P(DIH,U,1,1)_U_DIV_$S(%]"""":U_%,1:""""),DIH=699.48,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(699.48,.01,1,2,"%D",0)="^^1^1^2920421^"
^DD(699.48,.01,1,2,"%D",1,0)="This cross-reference indexes instruments by selected procedures."
^DD(699.48,.01,1,2,"CREATE VALUE")="S X=MCARCODE"
^DD(699.48,.01,1,2,"DELETE VALUE")="S X="""""
^DD(699.48,.01,1,2,"DT")="2960423"
^DD(699.48,.01,1,2,"FIELD")="MEDIC"
^DD(699.48,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(699.48,.01,21,0)="^^2^2^2910426^^"
^DD(699.48,.01,21,1,0)="This field contains instruments used in GI and Pulmonary procedures."
^DD(699.48,.01,21,2,0)="This list is built locally through options on the management menus."
^DD(699.48,.01,"DT")="2900307"
^DD(699.48,1,0)="MEDICAL PACKAGE USE^S^G:GI;P:PULMONARY;^0;2^Q"
^DD(699.48,1,1,0)="^.1"
^DD(699.48,1,1,1,0)="699.48^C"
^DD(699.48,1,1,1,1)="S ^MCAR(699.48,""C"",$E(X,1,30),DA)="""""
^DD(699.48,1,1,1,2)="K ^MCAR(699.48,""C"",$E(X,1,30),DA)"
^DD(699.48,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(699.48,1,1,1,"%D",1,0)="This cross-reference allow screening of Instrument."
^DD(699.48,1,3)="Enter code to establish a screen to distinguish GI instruments from Pulmonary instruments."
^DD(699.48,1,5,1,0)="699.48^.01^2"
^DD(699.48,1,21,0)="^^2^2^2910426^"
^DD(699.48,1,21,1,0)="This field is used as a screen to distinguish GI instruments from Pulmonary"
^DD(699.48,1,21,2,0)="instruments."
^DD(699.48,1,"DT")="2881214"
^DD(699.48,"B","MEDICAL PACKAGE USE",1)=""
^DD(699.48,"B","NAME",.01)=""
^DD(699.48,"GL",0,1,.01)=""
^DD(699.48,"GL",0,2,1)=""
^DD(699.48,"IX",.01)=""
^DD(699.48,"IX",1)=""
^DD(699.48,"RQ",.01)=""
^DD(699.5,0)="FIELD^^2005^41"
^DD(699.5,0,"DDA")="N"
^DD(699.5,0,"DT")="2970523"
^DD(699.5,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(699.5,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(697.2,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(697.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(699.5,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(699.5,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(699.5,0,"IX","AC",699.5,.01)=""
^DD(699.5,0,"IX","AD",699.5,.02)=""
^DD(699.5,0,"IX","APCE",699.5,900)=""
^DD(699.5,0,"IX","B",699.5,.01)=""
^DD(699.5,0,"IX","C",699.5,.02)=""
^DD(699.5,0,"IX","D",699.5,.05)=""
^DD(699.5,0,"NM","GENERALIZED PROCEDURE/CONSULT")=""
^DD(699.5,0,"PT",123.03,.01)=""
^DD(699.5,0,"VR")="2.3"
^DD(699.5,0,"VRPK")="MC"
^DD(699.5,.01,0)="DATE/TIME^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(699.5,.01,1,0)="^.1"
^DD(699.5,.01,1,1,0)="699.5^B"
^DD(699.5,.01,1,1,1)="S ^MCAR(699.5,""B"",$E(X,1,30),DA)="""""
^DD(699.5,.01,1,1,2)="K ^MCAR(699.5,""B"",$E(X,1,30),DA)"
^DD(699.5,.01,1,2,0)="699.5^AC^MUMPS"
^DD(699.5,.01,1,2,1)="S MCARCDIE=""^MCAR(699.5,"" D CHGDTE1^MCARPROC"
^DD(699.5,.01,1,2,2)="S MCARCDIE=""^MCAR(699.5,"" D CHGDTE^MCARPROC"
^DD(699.5,.01,1,2,"%D",0)="^^3^3^2931115^"
^DD(699.5,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the"
^DD(699.5,.01,1,2,"%D",2,0)="MEDICAL PATIENT file (#690) to record the most recent Generalize"
^DD(699.5,.01,1,2,"%D",3,0)="Procedures for this patient."
^DD(699.5,.01,1,2,"DT")="2920129"
^DD(699.5,.01,3)=""
^DD(699.5,.01,"DT")="2920131"
^DD(699.5,.02,0)="MEDICAL PATIENT^RP690^MCAR(690,^0;2^Q"
^DD(699.5,.02,1,0)="^.1"
^DD(699.5,.02,1,1,0)="699.5^C"
^DD(699.5,.02,1,1,1)="S ^MCAR(699.5,""C"",$E(X,1,30),DA)="""""
^DD(699.5,.02,1,1,2)="K ^MCAR(699.5,""C"",$E(X,1,30),DA)"
^DD(699.5,.02,1,1,"%D",0)="^^1^1^2930903^"
^DD(699.5,.02,1,1,"%D",1,0)="This cross-reference allow look-ups on patient."
^DD(699.5,.02,1,1,"DT")="2920102"
^DD(699.5,.02,1,2,0)="699.5^AD^MUMPS"
^DD(699.5,.02,1,2,1)="S MCARCDIE=""^MCAR(699.5,"" D CHGPAT^MCARPROC"
^DD(699.5,.02,1,2,2)="S MCARCDIE=""^MCAR(699.5,"" D KILL^MCARPROC"
^DD(699.5,.02,1,2,"DT")="2920129"
^DD(699.5,.02,"DT")="2920729"
^DD(699.5,.05,0)="SUBSPECIALTY^R*P697.2'^MCAR(697.2,^0;6^S DIC(""S"")=""I $P(^(0),U,9),($P($G(^(1)),U)=""""S"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.5,.05,1,0)="^.1"
^DD(699.5,.05,1,1,0)="699.5^D"
^DD(699.5,.05,1,1,1)="S ^MCAR(699.5,""D"",$E(X,1,30),DA)="""""
^DD(699.5,.05,1,1,2)="K ^MCAR(699.5,""D"",$E(X,1,30),DA)"
^DD(699.5,.05,1,1,"%D",0)="^^2^2^2920211^"
^DD(699.5,.05,1,1,"%D",1,0)="This cross-references the file by the various subspecialties that have"
^DD(699.5,.05,1,1,"%D",2,0)="data entered in the Generic Procedure File."
^DD(699.5,.05,1,1,"DT")="2920211"
^DD(699.5,.05,3)="Enter the Sub-specialty for which data is being entered"
^DD(699.5,.05,12)="Chooses those Sub-specialties which are entered through the Generic Medicine Procedure Sub-module"
^DD(699.5,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,9),($P($G(^(1)),U)=""""S"""")"""
^DD(699.5,.05,21,0)="^^1^1^2970505^^^^"
^DD(699.5,.05,21,1,0)="Only subspecailty in the PROCEDURE/SUBSPECIALTY file will be chosen."
^DD(699.5,.05,"DT")="2970505"
^DD(699.5,.06,0)="PROCEDURE^R*P697.2'^MCAR(697.2,^0;8^S DIC(""S"")=""I $P(^(0),U,9),($P($G(^(1)),U)=""""P"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.5,.06,3)="Enter Procedure name"
^DD(699.5,.06,12)="Choose those procedures which are entered through the Generic Procedure module."
^DD(699.5,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,9),($P($G(^(1)),U)=""""P"""")"""
^DD(699.5,.06,21,0)="^^1^1^2970523^^^^"
^DD(699.5,.06,21,1,0)="Only procedure in the PROCEDURE/SUBSPECIALTY file will be chosen."
^DD(699.5,.06,"DT")="2970523"
^DD(699.5,1,0)="INDICATION^699.52^^1;0"
^DD(699.5,2,0)="PROBLEM ORIENTED CONSULT?^S^1:YES;^0;3^Q"
^DD(699.5,2,21,0)="^^2^2^2940810^^^^"
^DD(699.5,2,21,1,0)="This field is automatically stuffed if an entry is made though the various"
^DD(699.5,2,21,2,0)="Medicine package sub-modules' Problem-Oriented Consult Option."
^DD(699.5,2,"DT")="2920130"
^DD(699.5,2.01,0)="OUTPUT-FORMATTED POC^CJ8^^ ; ^X ^DD(699.5,2.01,9.4) S X=$S(Y(699.5,2.01,3):Y(699.5,2.01,4),Y(699.5,2.01,5):X)"
^DD(699.5,2.01,9)="^"
^DD(699.5,2.01,9.01)="699.5^2"
^DD(699.5,2.01,9.1)="$S(PROBLEM ORIENTED CONSULT?=""YES"":""THIS IS A PROBLEM-ORIENTED CONSULT"",1:""NOT A PROBLEM-ORIENTED CONSULT"")"
^DD(699.5,2.01,9.2)="S Y(699.5,2.01,2)=$C(59)_$S($D(^DD(699.5,2,0)):$P(^(0),U,3),1:""""),Y(699.5,2.01,1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:"""")"
^DD(699.5,2.01,9.3)="X ^DD(699.5,2.01,9.2) S X=$P($P(Y(699.5,2.01,2),$C(59)_$P(Y(699.5,2.01,1),U,3)_"":"",2),$C(59),1)=""YES"",Y(699.5,2.01,3)=X S X=""THIS IS A PROBLEM-ORIENTED CONSULT"""
^DD(699.5,2.01,9.4)="X ^DD(699.5,2.01,9.3) S Y(699.5,2.01,4)=X S X=1,Y(699.5,2.01,5)=X S X=""NOT A PROBLEM-ORIENTED CONSULT"""
^DD(699.5,2.01,21,0)="^^2^2^2920716^^"
^DD(699.5,2.01,21,1,0)="This field formats the PROBLEM ORIENTED CONSULT? field (#2) for the"
^DD(699.5,2.01,21,2,0)="output report."
^DD(699.5,3,0)="INDICATION COMMENT^F^^0;7^K:$L(X)>110!($L(X)<1) X"
^DD(699.5,3,3)="Answer must be 1-110 characters in length."
^DD(699.5,3,21,0)="^^1^1^2920130^"
^DD(699.5,3,21,1,0)="This field is used in the Problem-Oriented Consult Enter/Edit and Print."
^DD(699.5,3,"DT")="2920130"
^DD(699.5,5,0)="MEDICATIONS^699.53P^^4;0"
^DD(699.5,6,0)="PROVIDER/PHYSICIAN^R*P200'^VA(200,^0;4^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.5,6,1,0)="^.1"
^DD(699.5,6,1,1,0)="^^TRIGGER^699.5^701"
^DD(699.5,6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699.5,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(699.5,6,1,1,1.4)"
^DD(699.5,6,1,1,1.4)="S DIH=$S($D(^MCAR(699.5,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=699.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(699.5,6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699.5,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(699.5,6,1,1,2.1) X ^DD(699.5,6,1,1,2.4)"
^DD(699.5,6,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X"
^DD(699.5,6,1,1,2.4)="S DIH=$S($D(^MCAR(699.5,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=699.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(699.5,6,1,1,"%D",0)="^^1^1^2960423^"
^DD(699.5,6,1,1,"%D",1,0)="this trigger sets the primary provider file."
^DD(699.5,6,1,1,"CREATE VALUE")="INTERNAL(#6)"
^DD(699.5,6,1,1,"DELETE VALUE")="INTERNAL(#6)"
^DD(699.5,6,1,1,"DT")="2960423"
^DD(699.5,6,1,1,"FIELD")="#701"
^DD(699.5,6,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(699.5,6,"DT")="2960423"
^DD(699.5,7,0)="TECHNIQUE^699.501P^^2;0"
^DD(699.5,7,12)="Provides list of techniques applicable to the Generic module"
^DD(699.5,7,12.1)="I $P(^(0),U,4)"
^DD(699.5,30,0)="COMPLICATIONS^699.51P^^3;0"
^DD(699.5,31.5,0)="CONSULTATION TYPE^P699.82'^MCAR(699.82,^0;5^Q"
^DD(699.5,31.5,"DT")="2911109"
^DD(699.5,32,0)="SUBJECTIVE^699.532^^20;0"
^DD(699.5,32,"DT")="2920130"
^DD(699.5,33,0)="OBJECTIVE^699.533^^21;0"
^DD(699.5,33,"DT")="2920130"
^DD(699.5,34,0)="ASSESSMENT/FINDINGS^699.534^^22;0"
^DD(699.5,34,"DT")="2920130"
^DD(699.5,35,0)="PLAN^699.535^^35;0"
^DD(699.5,35,"DT")="2920130"
^DD(699.5,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(699.5,600,3)="Answer must be 1-79 characters in length."
^DD(699.5,600,"DT")="2911220"
^DD(699.5,601,0)="SUMMARY^RS^A:ABNORMAL;N:NORMAL;I:INCOMPLETE EXAMINATION;^.2;1^Q"
^DD(699.5,601,"DT")="2911220"
^DD(699.5,700,0)="ICD DIAGNOSIS^699.54P^^ICD;0"
^DD(699.5,700,21,0)="^^4^4^2920102^^"
^DD(699.5,700,21,1,0)="This field is used to store ICD Diagnosises for retrieval by Queryman."
^DD(699.5,700,21,2,0)="The field consists of an ICD Code Subfield and a Narrative Diagnosis"
^DD(699.5,700,21,3,0)="Subfield.  The Narrative Diagnosis Subfield is for future use and is not"
^DD(699.5,700,21,4,0)="used at the present time."
^DD(699.5,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.5,701,5,1,0)="699.5^6^1"
^DD(699.5,701,9)="^"
^DD(699.5,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(699.5,701,21,0)="^^3^3^2920109^"
^DD(699.5,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(699.5,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(699.5,701,21,3,0)="use in transferring data to the PCC."
^DD(699.5,701,"DT")="2941025"
^DD(699.5,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(699.5,900,1,0)="^.1"
^DD(699.5,900,1,1,0)="699.5^APCE"
^DD(699.5,900,1,1,1)="S ^MCAR(699.5,""APCE"",$E(X,1,30),DA)="""""
^DD(699.5,900,1,1,2)="K ^MCAR(699.5,""APCE"",$E(X,1,30),DA)"
^DD(699.5,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(699.5,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(699.5,900,1,1,"DT")="2960517"
^DD(699.5,900,21,0)="^^2^2^2920728^^^"
^DD(699.5,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(699.5,900,21,2,0)="Visit File for use by Queryman."
^DD(699.5,900,"DT")="2960517"
^DD(699.5,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(699.5,1000,21,0)="^^3^3^2920130^"
^DD(699.5,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number"
^DD(699.5,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(699.5,1000,21,3,0)="Medicine package."
^DD(699.5,1000,"DT")="2920130"
^DD(699.5,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(699.5,1001,21,0)="^^3^3^2920130^"
^DD(699.5,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(699.5,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(699.5,1001,21,3,0)="results are entered in the Medicine package."
^DD(699.5,1001,"DT")="2920130"
^DD(699.5,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(699.5,1500,"DT")="2930212"
^DD(699.5,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>40!($L(X)<1) X"
^DD(699.5,1501,3)="Answer must be 1-40 characters in length."
^DD(699.5,1501,"DT")="2930212"
^DD(699.5,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699.5,1502,"DT")="2930212"
^DD(699.5,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(699.5,1503,"DT")="2930212"
^DD(699.5,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>40!($L(X)<1) X"
^DD(699.5,1504,3)="Answer must be 1-40 characters in length."
^DD(699.5,1504,"DT")="2930212"
^DD(699.5,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699.5,1505,"DT")="2930212"
^DD(699.5,1506,0)="RELEASE CODE^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASE ON-LINE VERIFIED;ROV:RELEASE OFF-LINE VERIFIED;RNV:RELEASE NOT VERIFIED;S:SUPERSEDED;SRV:SUPERSEDING RELEASE ON-LINE VERIFIED;SROV:SUPERSEDING RELEASE OFF-LINE VERIFIED;^ES;7^Q"
^DD(699.5,1506,1,0)="^.1^^0"
^DD(699.5,1506,"DT")="2930903"
^DD(699.5,1507,0)="DATE OF RELEASED^RD^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699.5,1507,"DT")="2930212"
^DD(699.5,1508,0)="DATE OF VERIFIED^D^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(699.5,1508,"DT")="2930212"
^DD(699.5,1509,0)="SUPERSEDED^NJ9,0^^ES;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699.5,1509,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(699.5,1509,"DT")="2930212"
^DD(699.5,1510,0)="SUPERSEDED BY^NJ14,0^^ES;11^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699.5,1510,3)="Type a Number between 0 and 99999999999999, 0 Decimal Digits"
^DD(699.5,1510,"DT")="2930708"
^DD(699.5,1511,0)="MARK FOR DELETATION^S^1:MARK FOR DELETION;^ES;12^Q"
^DD(699.5,1511,"DT")="2930212"
^DD(699.5,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(699.5,1512,"DT")="2930212"
^DD(699.5,1513,0)="SUPERSEDED DATE^D^^ES;14^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(699.5,1513,3)=""
^DD(699.5,1513,"DT")="2930304"
^DD(699.5,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(699.5,1514,"DT")="2930212"
^DD(699.5,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(699.5,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(699.5,1515,"DT")="2930304"
^DD(699.5,2005,0)="IMAGE^699.52005P^^2005;0"
^DD(699.5,"B","ASSESSMENT/FINDINGS",34)=""
^DD(699.5,"B","COMPLICATIONS",30)=""
^DD(699.5,"B","CONSULTATION TYPE",31.5)=""
^DD(699.5,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(699.5,"B","CREATION DATE",1514)=""
^DD(699.5,"B","DATE OF RELEASED",1507)=""
^DD(699.5,"B","DATE OF VERIFIED",1508)=""
^DD(699.5,"B","DATE/TIME",.01)=""
^DD(699.5,"B","DELETER DUZ",1512)=""
^DD(699.5,"B","ENTERING DATE",1502)=""
^DD(699.5,"B","ENTERING DUZ",1500)=""
^DD(699.5,"B","GMRCO",1001)=""
^DD(699.5,"B","ICD DIAGNOSIS",700)=""
^DD(699.5,"B","IMAGE",2005)=""
^DD(699.5,"B","INDICATION",1)=""
^DD(699.5,"B","INDICATION COMMENT",3)=""
^DD(699.5,"B","MARK FOR DELETATION",1511)=""
^DD(699.5,"B","MEDICAL PATIENT",.02)=""
^DD(699.5,"B","MEDICATIONS",5)=""
^DD(699.5,"B","OBJECTIVE",33)=""
^DD(699.5,"B","ORIFN",1000)=""
^DD(699.5,"B","OUTPUT-FORMATTED POC",2.01)=""
^DD(699.5,"B","PCC POINTER",900)=""
^DD(699.5,"B","PLAN",35)=""
^DD(699.5,"B","PRIMARY PROVIDER",701)=""
^DD(699.5,"B","PROBLEM ORIENTED CONSULT?",2)=""
^DD(699.5,"B","PROCEDURE",.06)=""
^DD(699.5,"B","PROCEDURE SUMMARY",600)=""
^DD(699.5,"B","PROVIDER/PHYSICIAN",6)=""
^DD(699.5,"B","RELEASE CODE",1506)=""
^DD(699.5,"B","SIGNER VALIDATION CODE",1504)=""
^DD(699.5,"B","SUBJECTIVE",32)=""
^DD(699.5,"B","SUBSPECIALTY",.05)=""
^DD(699.5,"B","SUMMARY",601)=""
^DD(699.5,"B","SUPERSEDED",1509)=""
^DD(699.5,"B","SUPERSEDED BY",1510)=""
^DD(699.5,"B","SUPERSEDED DATE",1513)=""
^DD(699.5,"B","SUPERSEDED NUMBER",1515)=""
^DD(699.5,"B","TECHNIQUE",7)=""
^DD(699.5,"B","VERIFIER DATE",1505)=""
^DD(699.5,"B","VERIFYING DUZ",1503)=""
^DD(699.5,"GL",0,1,.01)=""
^DD(699.5,"GL",0,2,.02)=""
^DD(699.5,"GL",0,3,2)=""
^DD(699.5,"GL",0,4,6)=""
^DD(699.5,"GL",0,5,31.5)=""
^DD(699.5,"GL",0,6,.05)=""
^DD(699.5,"GL",0,7,3)=""
^DD(699.5,"GL",0,8,.06)=""
^DD(699.5,"GL",.2,1,601)=""
^DD(699.5,"GL",.2,2,600)=""
^DD(699.5,"GL",1,0,1)=""
^DD(699.5,"GL",2,0,7)=""
^DD(699.5,"GL",3,0,30)=""
^DD(699.5,"GL",4,0,5)=""
^DD(699.5,"GL",20,0,32)=""
^DD(699.5,"GL",21,0,33)=""
^DD(699.5,"GL",22,0,34)=""
^DD(699.5,"GL",35,0,35)=""
^DD(699.5,"GL",2005,0,2005)=""
^DD(699.5,"GL","ES",1,1500)=""
^DD(699.5,"GL","ES",2,1501)=""
^DD(699.5,"GL","ES",3,1502)=""
^DD(699.5,"GL","ES",4,1503)=""
^DD(699.5,"GL","ES",5,1504)=""
^DD(699.5,"GL","ES",6,1505)=""
^DD(699.5,"GL","ES",7,1506)=""
^DD(699.5,"GL","ES",8,1507)=""
^DD(699.5,"GL","ES",9,1508)=""
^DD(699.5,"GL","ES",10,1509)=""
^DD(699.5,"GL","ES",11,1510)=""
^DD(699.5,"GL","ES",12,1511)=""
^DD(699.5,"GL","ES",13,1512)=""
^DD(699.5,"GL","ES",14,1513)=""
^DD(699.5,"GL","ES",15,1514)=""
^DD(699.5,"GL","ES",16,1515)=""
^DD(699.5,"GL","ICD",0,700)=""
^DD(699.5,"GL","OR",1,1000)=""
^DD(699.5,"GL","OR",2,1001)=""
^DD(699.5,"GL","PCC",1,900)=""
^DD(699.5,"GL","PROV",1,701)=""
^DD(699.5,"IX",.01)=""
^DD(699.5,"IX",.02)=""
^DD(699.5,"IX",.05)=""
^DD(699.5,"IX",6)=""
^DD(699.5,"IX",900)=""
^DD(699.5,"RQ",.01)=""
^DD(699.5,"RQ",.02)=""
^DD(699.5,"RQ",.05)=""
^DD(699.5,"RQ",.06)=""
^DD(699.5,"RQ",6)=""
^DD(699.5,"RQ",600)=""
^DD(699.5,"RQ",601)=""
^DD(699.5,"RQ",1507)=""
^DD(699.5,"SB",699.501,7)=""
^DD(699.5,"SB",699.51,30)=""
^DD(699.5,"SB",699.52,1)=""
^DD(699.5,"SB",699.52005,2005)=""
^DD(699.5,"SB",699.53,5)=""
^DD(699.5,"SB",699.532,32)=""
^DD(699.5,"SB",699.533,33)=""
^DD(699.5,"SB",699.534,34)=""
^DD(699.5,"SB",699.535,35)=""
^DD(699.5,"SB",699.54,700)=""
^DD(699.501,0)="TECHNIQUE SUB-FIELD^^.01^1"
^DD(699.501,0,"DT")="2930519"
^DD(699.501,0,"IX","B",699.501,.01)=""
^DD(699.501,0,"NM","TECHNIQUE")=""
^DD(699.501,0,"UP")="699.5"
^DD(699.501,.01,0)="TECHNIQUE^MP699.6'^MCAR(699.6,^0;1^Q"
^DD(699.501,.01,1,0)="^.1"
^DD(699.501,.01,1,1,0)="699.501^B"
^DD(699.501,.01,1,1,1)="S ^MCAR(699.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(699.501,.01,1,1,2)="K ^MCAR(699.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(699.501,.01,3)="Enter the procedure with which this intervention is associated"
^DD(699.501,.01,"DT")="2930519"
^DD(699.501,"B","TECHNIQUE",.01)=""
^DD(699.501,"GL",0,1,.01)=""
^DD(699.501,"IX",.01)=""
^DD(699.51,0)="COMPLICATIONS SUB-FIELD^^.01^1"
^DD(699.51,0,"DT")="2911109"
^DD(699.51,0,"IX","B",699.51,.01)=""
^DD(699.51,0,"NM","COMPLICATIONS")=""
^DD(699.51,0,"UP")="699.5"
^DD(699.51,.01,0)="COMPLICATIONS^MP696.9'^MCAR(696.9,^0;1^Q"
^DD(699.51,.01,1,0)="^.1"
^DD(699.51,.01,1,1,0)="699.51^B"
^DD(699.51,.01,1,1,1)="S ^MCAR(699.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(699.51,.01,1,1,2)="K ^MCAR(699.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(699.51,.01,"DT")="2911109"
^DD(699.51,"B","COMPLICATIONS",.01)=""
^DD(699.51,"GL",0,1,.01)=""
^DD(699.51,"IX",.01)=""
^DD(699.52,0)="INDICATION SUB-FIELD^^.01^1"
^DD(699.52,0,"DT")="2920129"
^DD(699.52,0,"NM","INDICATION")=""
^DD(699.52,0,"UP")="699.5"
^DD(699.52,.01,0)="INDICATION^W^^0;1^Q"
^DD(699.52,.01,"DT")="2920129"
^DD(699.52,"B","INDICATION",.01)=""
^DD(699.52,"GL",0,1,.01)=""
^DD(699.52005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(699.52005,0,"DT")="2911109"
^DD(699.52005,0,"IX","B",699.52005,.01)=""
^DD(699.52005,0,"NM","IMAGE")=""
^DD(699.52005,0,"UP")="699.5"
^DD(699.52005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(699.52005,.01,1,0)="^.1"
^DD(699.52005,.01,1,1,0)="699.52005^B"
^DD(699.52005,.01,1,1,1)="S ^MCAR(699.5,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(699.52005,.01,1,1,2)="K ^MCAR(699.5,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(699.52005,.01,"DT")="2911109"
^DD(699.52005,"B","IMAGE",.01)=""
^DD(699.52005,"GL",0,1,.01)=""
^DD(699.52005,"IX",.01)=""
^DD(699.53,0)="MEDICATIONS SUB-FIELD^^.01^1"
^DD(699.53,0,"DT")="2911109"
^DD(699.53,0,"IX","B",699.53,.01)=""
^DD(699.53,0,"NM","MEDICATIONS")=""
^DD(699.53,0,"UP")="699.5"
^DD(699.53,.01,0)="MEDICATIONS^MP50'^PSDRUG(^0;1^Q"
^DD(699.53,.01,1,0)="^.1"
^DD(699.53,.01,1,1,0)="699.53^B"
^DD(699.53,.01,1,1,1)="S ^MCAR(699.5,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(699.53,.01,1,1,2)="K ^MCAR(699.5,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(699.53,.01,"DT")="2911109"
^DD(699.53,"B","MEDICATIONS",.01)=""
^DD(699.53,"GL",0,1,.01)=""
^DD(699.53,"IX",.01)=""
^DD(699.532,0)="SUBJECTIVE SUB-FIELD^^.01^1"
^DD(699.532,0,"DT")="2911109"
^DD(699.532,0,"NM","SUBJECTIVE")=""
^DD(699.532,0,"UP")="699.5"
^DD(699.532,.01,0)="SUBJECTIVE^W^^0;1^Q"
^DD(699.532,.01,"DT")="2920130"
^DD(699.532,"B","SUBJECTIVE",.01)=""
^DD(699.532,"GL",0,1,.01)=""
^DD(699.533,0)="OBJECTIVE SUB-FIELD^^.01^1"
^DD(699.533,0,"DT")="2911109"
^DD(699.533,0,"NM","OBJECTIVE")=""
^DD(699.533,0,"UP")="699.5"
^DD(699.533,.01,0)="OBJECTIVE^W^^0;1^Q"
^DD(699.533,.01,"DT")="2920130"
^DD(699.533,"B","OBJECTIVE",.01)=""
^DD(699.533,"GL",0,1,.01)=""
^DD(699.534,0)="ASSESSMENT/FINDINGS SUB-FIELD^^.01^1"
^DD(699.534,0,"DT")="2911109"
^DD(699.534,0,"NM","ASSESSMENT/FINDINGS")=""
^DD(699.534,0,"UP")="699.5"
^DD(699.534,.01,0)="ASSESSMENT/FINDINGS^W^^0;1^Q"
^DD(699.534,.01,"DT")="2920130"
^DD(699.534,"B","ASSESSMENT/FINDINGS",.01)=""
^DD(699.534,"GL",0,1,.01)=""
^DD(699.535,0)="PLAN SUB-FIELD^^.01^1"
^DD(699.535,0,"DT")="2911109"
^DD(699.535,0,"NM","PLAN")=""
^DD(699.535,0,"UP")="699.5"
^DD(699.535,.01,0)="PLAN^W^^0;1^Q"
^DD(699.535,.01,"DT")="2920130"
^DD(699.535,"B","PLAN",.01)=""
^DD(699.535,"GL",0,1,.01)=""
^DD(699.54,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(699.54,0,"DT")="2930310"
^DD(699.54,0,"IX","B",699.54,.01)=""
^DD(699.54,0,"NM","ICD DIAGNOSIS")=""
^DD(699.54,0,"UP")="699.5"
^DD(699.54,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(699.54,.01,1,0)="^.1"
^DD(699.54,.01,1,1,0)="699.54^B"
^DD(699.54,.01,1,1,1)="S ^MCAR(699.5,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(699.54,.01,1,1,2)="K ^MCAR(699.5,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(699.54,.01,21,0)="^^4^4^2920102^^"
^DD(699.54,.01,21,1,0)="This field is used to store ICD Diagnosises for retrieval by Queryman."
^DD(699.54,.01,21,2,0)="The field consists of an ICD Code Subfield and a Narrative Diagnosis"
^DD(699.54,.01,21,3,0)="Subfield.  The Narrative Diagnosis Subfield is for future use and is not"
^DD(699.54,.01,21,4,0)="used at the present time."
^DD(699.54,.01,"DT")="2930310"
^DD(699.54,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(699.54,.02,3)="Answer must be 1-80 characters in length."
^DD(699.54,.02,"DT")="2920102"
^DD(699.54,"B","ICD DIAGNOSIS",.01)=""
^DD(699.54,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(699.54,"GL",0,1,.01)=""
^DD(699.54,"GL",0,2,.02)=""
^DD(699.54,"IX",.01)=""
^DD(699.55,0)="FIELD^^1^2"
^DD(699.55,0,"IX","B",699.55,.01)=""
^DD(699.55,0,"IX","C",699.551,.01)=""
^DD(699.55,0,"NM","GROSS")=""
^DD(699.55,0,"PT",699.01,2)=""
^DD(699.55,0,"VR")="2.3"
^DD(699.55,0,"VRPK")="MEDICINE"
^DD(699.55,.01,0)="NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(699.55,.01,1,0)="^.1"
^DD(699.55,.01,1,1,0)="699.55^B"
^DD(699.55,.01,1,1,1)="S ^MCAR(699.55,""B"",$E(X,1,30),DA)="""""
^DD(699.55,.01,1,1,2)="K ^MCAR(699.55,""B"",$E(X,1,30),DA)"
^DD(699.55,.01,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(699.55,.01,21,0)="^^2^2^2910426^"
^DD(699.55,.01,21,1,0)="This field holds the allowable gross list for the various GI and Pulmonary"
^DD(699.55,.01,21,2,0)="procedures."
^DD(699.55,.01,"DT")="2881017"
^DD(699.55,1,0)="PROCEDURE^699.551P^^1;0"
^DD(699.55,1,21,0)="^^2^2^2910426^"
^DD(699.55,1,21,1,0)="This field identifies field is used to allow a separate gross list for each GI"
^DD(699.55,1,21,2,0)="and Pulmonary Endoscopic procedure."
^DD(699.55,"B","NAME",.01)=""
^DD(699.55,"B","PROCEDURE",1)=""
^DD(699.55,"GL",0,1,.01)=""
^DD(699.55,"GL",1,0,1)=""
^DD(699.55,"IX",.01)=""
^DD(699.55,"RQ",.01)=""
^DD(699.55,"SB",699.551,1)=""
^DD(699.551,0)="PROCEDURE SUB-FIELD^^.01^1"
^DD(699.551,0,"IX","B",699.551,.01)=""
^DD(699.551,0,"NM","PROCEDURE")=""
^DD(699.551,0,"UP")="699.55"
^DD(699.551,.01,0)="PROCEDURE^MRP697.2'^MCAR(697.2,^0;1^Q"
^DD(699.551,.01,1,0)="^.1"
^DD(699.551,.01,1,1,0)="699.551^B"
^DD(699.551,.01,1,1,1)="S ^MCAR(699.55,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(699.551,.01,1,1,2)="K ^MCAR(699.55,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(699.551,.01,1,2,0)="699.55^C"
^DD(699.551,.01,1,2,1)="S ^MCAR(699.55,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(699.551,.01,1,2,2)="K ^MCAR(699.55,""C"",$E(X,1,30),DA(1),DA)"
^DD(699.551,.01,1,2,"%D",0)="^^2^2^2930903^"
^DD(699.551,.01,1,2,"%D",1,0)="This cross-reference allow selecting specific GI or Pulmonary Endoscopic"
^DD(699.551,.01,1,2,"%D",2,0)="procedure."
^DD(699.551,.01,21,0)="^^2^2^2910426^"
^DD(699.551,.01,21,1,0)="This field identifies the specific GI or Pulmonary Endoscopic procedure for"
^DD(699.551,.01,21,2,0)="which the gross is selectable."
^DD(699.551,.01,"DT")="2880808"
^DD(699.551,"B","PROCEDURE",.01)=""
^DD(699.551,"GL",0,1,.01)=""
^DD(699.551,"IX",.01)=""
^DD(699.551,"RQ",.01)=""
^DD(699.56,0)="RESULTS SUB-FIELD^NL^.01^1"
^DD(699.56,0,"DT")="2960515"
^DD(699.56,0,"NM","RESULTS")=""
^DD(699.56,0,"UP")="699"
^DD(699.56,.01,0)="RESULTS^M*P699.81'^MCAR(699.81,^0;1^S DIC(""S"")=""I $D(^MCAR(699.81,""""C"""",$G(MCARCODE,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.56,.01,3)="ENTER RESULTS OF THIS PROCEDURE."
^DD(699.56,.01,12)="CHOOSE RESULTS ASSOSCIATED WITH AREA OF MEDICINE"
^DD(699.56,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(699.81,""""C"""",$G(MCARCODE,U),+Y))"""
^DD(699.56,.01,21,0)="^^1^1^2960515^^^"
^DD(699.56,.01,21,1,0)="This field identifies a result of the overall procedure."
^DD(699.56,.01,23,0)="^^1^1^2960515^^^^"
^DD(699.56,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.56,.01,"DT")="2960515"
^DD(699.56,"B","RESULTS",.01)=""
^DD(699.56,"GL",0,1,.01)=""
^DD(699.57,0)="FIELD^^1^2"
^DD(699.57,0,"IX","B",699.57,.01)=""
^DD(699.57,0,"IX","C",699.571,.01)=""
^DD(699.57,0,"NM","MODIFIER")=""
^DD(699.57,0,"PT",699.13,.01)=""
^DD(699.57,0,"VR")="2.3"
^DD(699.57,0,"VRPK")="MEDICINE"
^DD(699.57,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(699.57,.01,1,0)="^.1"
^DD(699.57,.01,1,1,0)="699.57^B"
^DD(699.57,.01,1,1,1)="S ^MCAR(699.57,""B"",$E(X,1,30),DA)="""""
^DD(699.57,.01,1,1,2)="K ^MCAR(699.57,""B"",$E(X,1,30),DA)"
^DD(699.57,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(699.57,.01,21,0)="^^2^2^2910426^"
^DD(699.57,.01,21,1,0)="This field identifies an adjective list which modifies or enhances the gross"
^DD(699.57,.01,21,2,0)="for GI and Pulmonary Endoscopic procedures."
^DD(699.57,1,0)="PROCEDURE^699.571P^^1;0"
^DD(699.57,1,21,0)="^^2^2^2910429^^"
^DD(699.57,1,21,1,0)="This field is used as a screen to allow separate modifier lists for each"
^DD(699.57,1,21,2,0)="GI and Pulmonary Endoscopic procedure."
^DD(699.57,"B","NAME",.01)=""
^DD(699.57,"B","PROCEDURE",1)=""
^DD(699.57,"GL",0,1,.01)=""
^DD(699.57,"GL",1,0,1)=""
^DD(699.57,"IX",.01)=""
^DD(699.57,"RQ",.01)=""
^DD(699.57,"SB",699.571,1)=""
^DD(699.571,0)="PROCEDURE SUB-FIELD^^.01^1"
^DD(699.571,0,"IX","B",699.571,.01)=""
^DD(699.571,0,"NM","PROCEDURE")=""
^DD(699.571,0,"UP")="699.57"
^DD(699.571,.01,0)="PROCEDURE^MP697.2'^MCAR(697.2,^0;1^Q"
^DD(699.571,.01,1,0)="^.1"
^DD(699.571,.01,1,1,0)="699.571^B"
^DD(699.571,.01,1,1,1)="S ^MCAR(699.57,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(699.571,.01,1,1,2)="K ^MCAR(699.57,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(699.571,.01,1,2,0)="699.57^C"
^DD(699.571,.01,1,2,1)="S ^MCAR(699.57,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(699.571,.01,1,2,2)="K ^MCAR(699.57,""C"",$E(X,1,30),DA(1),DA)"
^DD(699.571,.01,1,2,"%D",0)="^^2^2^2930903^"
^DD(699.571,.01,1,2,"%D",1,0)="This cross-reference allow the selecting of specific GI or Pulmonary"
^DD(699.571,.01,1,2,"%D",2,0)="Endoscopic procedure."
^DD(699.571,.01,21,0)="^^2^2^2910429^^"
^DD(699.571,.01,21,1,0)="This field identifies the specific GI and/or Pulmonary Endoscopic procedure"
^DD(699.571,.01,21,2,0)="that this adjective could be selected to modify the gross."
^DD(699.571,.01,"DT")="2880808"
^DD(699.571,"B","PROCEDURE",.01)=""
^DD(699.571,"GL",0,1,.01)=""
^DD(699.571,"IX",.01)=""
^DD(699.58,0)="COMPLICATIONS SUB-FIELD^NL^1^2"
^DD(699.58,0,"DT")="2960515"
^DD(699.58,0,"NM","COMPLICATIONS")=""
^DD(699.58,0,"UP")="699"
^DD(699.58,.01,0)="COMPLICATIONS^M*P696.9'^MCAR(696.9,^0;1^S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",$G(MCARCODE,U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(699.58,.01,3)="Enter Complication associated with an Endoscopy, pointer to Complication File (#696.9)."
^DD(699.58,.01,12)="CHOOSE ONLY COMPLICATIONS ASSOSCIATED WITH AN ENDOSCOPY"
^DD(699.58,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(696.9,""""C"""",$G(MCARCODE,U),+Y))"""
^DD(699.58,.01,21,0)="^^2^2^2960515^^^"
^DD(699.58,.01,21,1,0)="This field identifies any complications encountered during the procedure or as"
^DD(699.58,.01,21,2,0)="a result of the procedure."
^DD(699.58,.01,23,0)="^^1^1^2960515^^^^"
^DD(699.58,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.58,.01,"DT")="2960515"
^DD(699.58,1,0)="COMP. RESULTS^S^1:REQUIRED NO THERAPY;2:REQUIRED TRANSFUSION;3:REQUIRED MEDICAL THERAPY;4:REQUIRED ENDOSCOPIC THERAPY;5:REQUIRED SURGICAL THERAPY;6:RESULTED IN DEATH;^0;2^Q"
^DD(699.58,1,21,0)="^^2^2^2910425^"
^DD(699.58,1,21,1,0)="This field identifies the result of the complication, ranging from REQUIRED NO"
^DD(699.58,1,21,2,0)="THERAPY to RESULTING IN DEATH."
^DD(699.58,1,23,0)="^^1^1^2921106^^^"
^DD(699.58,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.58,"B","COMP. RESULTS",1)=""
^DD(699.58,"B","COMPLICATIONS",.01)=""
^DD(699.58,"GL",0,1,.01)=""
^DD(699.58,"GL",0,2,1)=""
^DD(699.59,0)="NON-ENDOSCOPIC PROCEDURE SUB-FIELD^NL^.01^1"
^DD(699.59,0,"NM","NON-ENDOSCOPIC PROCEDURE")=""
^DD(699.59,0,"UP")="699"
^DD(699.59,.01,0)="NON-ENDOSCOPIC PROCEDURE^MP699.88'^MCAR(699.88,^0;1^Q"
^DD(699.59,.01,3)="Enter Non-endoscopic Procedure, pointer to Non-Endoscopic Procedure File (#699.88)."
^DD(699.59,.01,21,0)="^^3^3^2910425^"
^DD(699.59,.01,21,1,0)="This field stores the procedure type for a non-endoscopic GI procedure."
^DD(699.59,.01,21,2,0)="It is accessed by entering 'NON-ENDO' at the procedure prompt in the"
^DD(699.59,.01,21,3,0)="GI Endoscopy Enter/Edit."
^DD(699.59,.01,"DT")="2890228"
^DD(699.59,"B","NON-ENDOSCOPIC PROCEDURE",.01)=""
^DD(699.59,"GL",0,1,.01)=""
^DD(699.6,0)="FIELD^^3^5"
^DD(699.6,0,"DT")="2920731"
^DD(699.6,0,"IX","B",699.6,.01)=""
^DD(699.6,0,"IX","BA",699.6,.01)=""
^DD(699.6,0,"IX","C",699.61,.01)=""
^DD(699.6,0,"IX","D",699.6,3)=""
^DD(699.6,0,"IX","E",699.62,.01)=""
^DD(699.6,0,"NM","DIAG/THERAP INTERVENT")=""
^DD(699.6,0,"PT",694.586,.01)=""
^DD(699.6,0,"PT",699.15,.01)=""
^DD(699.6,0,"PT",699.17,.01)=""
^DD(699.6,0,"PT",699.501,.01)=""
^DD(699.6,0,"VR")="2.3"
^DD(699.6,0,"VRPK")="MEDICINE"
^DD(699.6,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(699.6,.01,1,0)="^.1"
^DD(699.6,.01,1,1,0)="699.6^B"
^DD(699.6,.01,1,1,1)="S ^MCAR(699.6,""B"",$E(X,1,30),DA)="""""
^DD(699.6,.01,1,1,2)="K ^MCAR(699.6,""B"",$E(X,1,30),DA)"
^DD(699.6,.01,1,2,0)="699.6^BA^KWIC"
^DD(699.6,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^MCAR(699.6,""BA"",I,DA)="""""
^DD(699.6,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^MCAR(699.6,""BA"",I,DA)"
^DD(699.6,.01,1,2,"%D",0)="^^1^1^2920421^"
^DD(699.6,.01,1,2,"%D",1,0)="This cross-reference indexes intervention techniques by key word."
^DD(699.6,.01,3)="Answer must be 3-60 characters in length."
^DD(699.6,.01,21,0)="^^1^1^2910429^"
^DD(699.6,.01,21,1,0)="This field stores a list of techniques used in various Medical procedures."
^DD(699.6,.01,"DT")="2890830"
^DD(699.6,1,0)="*PROCEDURE^699.61P^^1;0"
^DD(699.6,1,21,0)="^^2^2^2910429^"
^DD(699.6,1,21,1,0)="This field is used as a screen to differentiate which technique is used by"
^DD(699.6,1,21,2,0)="which Medical procedure."
^DD(699.6,1,"DT")="2920731"
^DD(699.6,1.1,0)="PROCEDURE NAME^699.62^^2;0"
^DD(699.6,2,0)="INDICATED THERAPY USE^S^1:INDICATED THERAPY-GI;2:INDICATED THERAPY-PULMONARY;12:INDICATED THERAPY-BOTH;^0;2^Q"
^DD(699.6,2,3)="Enter Code from list to flag if a technique can be used as an 'Indicated Therapy' for Endoscopies."
^DD(699.6,2,21,0)="^^2^2^2910429^"
^DD(699.6,2,21,1,0)="This field is used as a flag to determine whether a technique can be used"
^DD(699.6,2,21,2,0)="as an 'Indicated Therapy' for Endoscopies."
^DD(699.6,2,"DT")="2881129"
^DD(699.6,3,0)="CATH SURGICAL RISK PROCEDURE^S^S:USED ON CATH SURGICAL RISK REPORT;^0;3^Q"
^DD(699.6,3,1,0)="^.1"
^DD(699.6,3,1,1,0)="699.6^D"
^DD(699.6,3,1,1,1)="S ^MCAR(699.6,""D"",$E(X,1,30),DA)="""""
^DD(699.6,3,1,1,2)="K ^MCAR(699.6,""D"",$E(X,1,30),DA)"
^DD(699.6,3,1,1,"%D",0)="^^1^1^2930903^"
^DD(699.6,3,1,1,"%D",1,0)="This cross-reference is used with the Cath Surgical Risk Assessment."
^DD(699.6,3,3)="This procedure can be listed on the Cath Surgical Risk Assessment form"
^DD(699.6,3,21,0)="^^2^2^2910429^^"
^DD(699.6,3,21,1,0)="This field is used to determine whether a technique is selectable for the"
^DD(699.6,3,21,2,0)="Catheterization Surgical Risk entry."
^DD(699.6,3,"DT")="2890830"
^DD(699.6,"B","*PROCEDURE",1)=""
^DD(699.6,"B","CATH SURGICAL RISK PROCEDURE",3)=""
^DD(699.6,"B","INDICATED THERAPY USE",2)=""
^DD(699.6,"B","NAME",.01)=""
^DD(699.6,"B","PROCEDURE NAME",1.1)=""
^DD(699.6,"GL",0,1,.01)=""
^DD(699.6,"GL",0,2,2)=""
^DD(699.6,"GL",0,3,3)=""
^DD(699.6,"GL",1,0,1)=""
^DD(699.6,"GL",2,0,1.1)=""
^DD(699.6,"IX",.01)=""
^DD(699.6,"IX",3)=""
^DD(699.6,"RQ",.01)=""
^DD(699.6,"SB",699.61,1)=""
^DD(699.6,"SB",699.62,1.1)=""
^DD(699.61,0)="*PROCEDURE SUB-FIELD^^.01^1"
^DD(699.61,0,"IX","B",699.61,.01)=""
^DD(699.61,0,"NM","*PROCEDURE")=""
^DD(699.61,0,"UP")="699.6"
^DD(699.61,.01,0)="PROCEDURE^MP697.2'^MCAR(697.2,^0;1^Q"
^DD(699.61,.01,1,0)="^.1"
^DD(699.61,.01,1,1,0)="699.61^B"
^DD(699.61,.01,1,1,1)="S ^MCAR(699.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(699.61,.01,1,1,2)="K ^MCAR(699.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(699.61,.01,1,2,0)="699.6^C"
^DD(699.61,.01,1,2,1)="S ^MCAR(699.6,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(699.61,.01,1,2,2)="K ^MCAR(699.6,""C"",$E(X,1,30),DA(1),DA)"
^DD(699.61,.01,1,2,"%D",0)="^^1^1^2930903^"
^DD(699.61,.01,1,2,"%D",1,0)="This cross-reference allows looks-up on procedure."
^DD(699.61,.01,3)="Enter the procedure with which this intervention is associated."
^DD(699.61,.01,21,0)="^^2^2^2910429^"
^DD(699.61,.01,21,1,0)="This field identifies the specific Medical procedure that this technique is"
^DD(699.61,.01,21,2,0)="applicable to. "
^DD(699.61,.01,"DT")="2890830"
^DD(699.61,"B","PROCEDURE",.01)=""
^DD(699.61,"GL",0,1,.01)=""
^DD(699.61,"IX",.01)=""
^DD(699.62,0)="PROCEDURE NAME SUB-FIELD^^.01^1"
^DD(699.62,0,"DT")="2920731"
^DD(699.62,0,"IX","B",699.62,.01)=""
^DD(699.62,0,"NM","PROCEDURE NAME")=""
^DD(699.62,0,"UP")="699.6"
^DD(699.62,.01,0)="PROCEDURE NAME^MFX^^0;1^I $D(X) N DO,DIC,Y S DIC=""^MCAR(697.2,"",DIC(0)=""QEZ"" D ^DIC S:+Y'=-1 X=$P(Y,U,2) K:+Y<0 X"
^DD(699.62,.01,1,0)="^.1"
^DD(699.62,.01,1,1,0)="699.62^B"
^DD(699.62,.01,1,1,1)="S ^MCAR(699.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(699.62,.01,1,1,2)="K ^MCAR(699.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(699.62,.01,1,2,0)="699.6^E"
^DD(699.62,.01,1,2,1)="S ^MCAR(699.6,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(699.62,.01,1,2,2)="K ^MCAR(699.6,""E"",$E(X,1,30),DA(1),DA)"
^DD(699.62,.01,1,2,"%D",0)="^^2^2^2940426^"
^DD(699.62,.01,1,2,"%D",1,0)="This cross-reference is used to sceen out technique from the procedure"
^DD(699.62,.01,1,2,"%D",2,0)="base on the type of procedure."
^DD(699.62,.01,1,2,"DT")="2920731"
^DD(699.62,.01,3)="Enter the procedure with which this intervention is associated."
^DD(699.62,.01,21,0)="^^1^1^2920731^"
^DD(699.62,.01,21,1,0)="Enter the procedure with which this intervention is associated."
^DD(699.62,.01,"DT")="2940726"
^DD(699.62,"B","PROCEDURE NAME",.01)=""
^DD(699.62,"GL",0,1,.01)=""
^DD(699.62,"IX",.01)=""
^DD(699.64,0)="VIDEO FRAME NUMBER SUB-FIELD^NL^.01^1"
^DD(699.64,0,"NM","VIDEO FRAME NUMBER")=""
^DD(699.64,0,"UP")="699"
^DD(699.64,.01,0)="VIDEO FRAME NUMBER^MNJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(699.64,.01,1,0)="^.1"
^DD(699.64,.01,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99999"
^DD(699.64,.01,21,0)="^^1^1^2910425^"
^DD(699.64,.01,21,1,0)="This field is not being used at the present time."
^DD(699.64,"B","VIDEO FRAME NUMBER",.01)=""
^DD(699.64,"GL",0,1,.01)=""
^DD(699.66,0)="SUBJECTIVE SUB-FIELD^NL^.01^1"
^DD(699.66,0,"NM","SUBJECTIVE")=""
^DD(699.66,0,"UP")="699"
^DD(699.66,.01,0)="SUBJECTIVE^W^^0;1^Q"
^DD(699.66,.01,3)="Enter information in this word-processing field to fit the SOAP format."
^DD(699.66,.01,21,0)="^^3^3^2910425^"
^DD(699.66,.01,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699.66,.01,21,2,0)="options and the Non-Endoscopic GI Procedure entry. Both these entries"
^DD(699.66,.01,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699.66,"B","SUBJECTIVE",.01)=""
^DD(699.66,"GL",0,1,.01)=""
^DD(699.67,0)="OBJECTIVE SUB-FIELD^NL^.01^1"
^DD(699.67,0,"NM","OBJECTIVE")=""
^DD(699.67,0,"UP")="699"
^DD(699.67,.01,0)="OBJECTIVE^W^^0;1^Q"
^DD(699.67,.01,3)="Enter information in this word-processing field to fit the SOAP format."
^DD(699.67,.01,21,0)="^^3^3^2910425^"
^DD(699.67,.01,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699.67,.01,21,2,0)="options and the Non-Endoscopic GI Procedure entry.  Both these entries"
^DD(699.67,.01,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699.67,"B","OBJECTIVE",.01)=""
^DD(699.67,"GL",0,1,.01)=""
^DD(699.68,0)="ASSESSMENT SUB-FIELD^NL^.01^1"
^DD(699.68,0,"NM","ASSESSMENT")=""
^DD(699.68,0,"UP")="699"
^DD(699.68,.01,0)="ASSESSMENT^W^^0;1^Q"
^DD(699.68,.01,3)="Enter information in this word-processing field to fit the SOAP format."
^DD(699.68,.01,21,0)="^^3^3^2910425^^^"
^DD(699.68,.01,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699.68,.01,21,2,0)="options and the Non-Endoscopic GI Procedure entry.  Both these entries"
^DD(699.68,.01,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699.68,"B","ASSESSMENT",.01)=""
^DD(699.68,"GL",0,1,.01)=""
^DD(699.69,0)="PLANNED SUB-FIELD^NL^.01^1"
^DD(699.69,0,"NM","PLANNED")=""
^DD(699.69,0,"UP")="699"
^DD(699.69,.01,0)="PLANNED^W^^0;1^Q"
^DD(699.69,.01,3)="Enter information in this word processing field to fit the SOAP format."
^DD(699.69,.01,21,0)="^^3^3^2910425^"
^DD(699.69,.01,21,1,0)="This field identifies field is used to enter information in the Consult"
^DD(699.69,.01,21,2,0)="options and the Non-Endoscopic GI Procedure entry.  Both these entries"
^DD(699.69,.01,21,3,0)="use the SOAP (Subjective, Objective, Assessment, Planned) format."
^DD(699.69,"B","PLANNED",.01)=""
^DD(699.69,"GL",0,1,.01)=""
^DD(699.7,0)="FIELD^^1^2"
^DD(699.7,0,"DDA")="N"
^DD(699.7,0,"DT")="2910315"
^DD(699.7,0,"IX","B",699.7,.01)=""
^DD(699.7,0,"IX","C",699.7,1)=""
^DD(699.7,0,"NM","ENDOSCOPIC DEVICE")=""
^DD(699.7,0,"PT",699.01,11)=""
^DD(699.7,0,"PT",699.01,14)=""
^DD(699.7,0,"PT",699.01,19)=""
^DD(699.7,0,"PT",699.01,20)=""
^DD(699.7,0,"VR")="2.3"
^DD(699.7,0,"VRPK")="MEDICINE"
^DD(699.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(699.7,.01,1,0)="^.1"
^DD(699.7,.01,1,1,0)="699.7^B"
^DD(699.7,.01,1,1,1)="S ^MCAR(699.7,""B"",$E(X,1,30),DA)="""""
^DD(699.7,.01,1,1,2)="K ^MCAR(699.7,""B"",$E(X,1,30),DA)"
^DD(699.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(699.7,.01,21,0)="^^1^1^2910429^"
^DD(699.7,.01,21,1,0)="This field is used to store the various devices used during an Endoscopy."
^DD(699.7,.01,"DT")="2910315"
^DD(699.7,1,0)="TYPE^S^J:JEJUNOSTOMY TUBE;G:GASTROSTOMY TUBE;SP:SPHINCTEROTOME;ST:STENT;^0;2^Q"
^DD(699.7,1,1,0)="^.1"
^DD(699.7,1,1,1,0)="699.7^C"
^DD(699.7,1,1,1,1)="S ^MCAR(699.7,""C"",$E(X,1,30),DA)="""""
^DD(699.7,1,1,1,2)="K ^MCAR(699.7,""C"",$E(X,1,30),DA)"
^DD(699.7,1,1,1,"%D",0)="^^1^1^2930903^^"
^DD(699.7,1,1,1,"%D",1,0)="This cross-reference allows look-ups by type."
^DD(699.7,1,3)="Enter Code from list to choose endoscopic device."
^DD(699.7,1,21,0)="^^2^2^2910429^"
^DD(699.7,1,21,1,0)="This field is used to separate stents, sphincterotomes, gastrostomy tubes,"
^DD(699.7,1,21,2,0)="and jejunostomy tubes."
^DD(699.7,1,"DT")="2910111"
^DD(699.7,"B","NAME",.01)=""
^DD(699.7,"B","TYPE",1)=""
^DD(699.7,"GL",0,1,.01)=""
^DD(699.7,"GL",0,2,1)=""
^DD(699.7,"IX",.01)=""
^DD(699.7,"IX",1)=""
^DD(699.7,"RQ",.01)=""
^DD(699.71,0)="VIDEO/AUDIO FILE NAME SUB-FIELD^^8^7"
^DD(699.71,0,"IX","B",699.71,.01)=""
^DD(699.71,0,"NM","VIDEO/AUDIO FILE NAME")=""
^DD(699.71,0,"UP")="699"
^DD(699.71,.01,0)="VIDEO/AUDIO FILE NAME^MF^^0;1^K:$L(X)>12!($L(X)<1) X"
^DD(699.71,.01,1,0)="^.1"
^DD(699.71,.01,1,1,0)="699.71^B"
^DD(699.71,.01,1,1,1)="S ^MCAR(699,DA(1),28,""B"",$E(X,1,30),DA)="""""
^DD(699.71,.01,1,1,2)="K ^MCAR(699,DA(1),28,""B"",$E(X,1,30),DA)"
^DD(699.71,.01,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(699.71,.01,21,0)="^^1^1^2910425^"
^DD(699.71,.01,21,1,0)="This field is not being used at the present time."
^DD(699.71,1,0)="DATE/TIME ADDED^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(699.71,1,3)="Add date/time to Video/Audio file."
^DD(699.71,1,21,0)="^^2^2^2920324^"
^DD(699.71,1,21,1,0)="This allows the user to enter the date/time the video/audio"
^DD(699.71,1,21,2,0)="file name is added."
^DD(699.71,3,0)="DATE/TIME MODIFIED^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(699.71,3,3)="Modify date/time from Video/Audio file."
^DD(699.71,3,21,0)="^^2^2^2920324^^"
^DD(699.71,3,21,1,0)="This allows the user to enter the date/time the video/audio "
^DD(699.71,3,21,2,0)="file name is modified."
^DD(699.71,3,22)=""
^DD(699.71,5,0)="COMMENTS-1^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(699.71,5,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(699.71,5,21,0)="^^1^1^2920324^"
^DD(699.71,5,21,1,0)="This allows the user to enter comments."
^DD(699.71,6,0)="COMMENTS-2^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(699.71,6,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(699.71,6,21,0)="^^1^1^2920324^"
^DD(699.71,6,21,1,0)="This allows the user to enter comments."
^DD(699.71,7,0)="COMMENTS-3^F^^0;8^K:$L(X)>40!($L(X)<1) X"
^DD(699.71,7,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(699.71,7,21,0)="^^1^1^2920324^^"
^DD(699.71,7,21,1,0)="This allows the user to enter comments."
^DD(699.71,7,22)=""
^DD(699.71,8,0)="COMMENTS-4^F^^0;9^K:$L(X)>40!($L(X)<1) X"
^DD(699.71,8,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH"
^DD(699.71,8,21,0)="^^1^1^2920324^"
^DD(699.71,8,21,1,0)="This allows the user to enter comments."
^DD(699.71,"B","COMMENTS-1",5)=""
^DD(699.71,"B","COMMENTS-2",6)=""
^DD(699.71,"B","COMMENTS-3",7)=""
^DD(699.71,"B","COMMENTS-4",8)=""
^DD(699.71,"B","DATE/TIME ADDED",1)=""
^DD(699.71,"B","DATE/TIME MODIFIED",3)=""
^DD(699.71,"B","VIDEO/AUDIO FILE NAME",.01)=""
^DD(699.71,"GL",0,1,.01)=""
^DD(699.71,"GL",0,2,1)=""
^DD(699.71,"GL",0,4,3)=""
^DD(699.71,"GL",0,6,5)=""
^DD(699.71,"GL",0,7,6)=""
^DD(699.71,"GL",0,8,7)=""
^DD(699.71,"GL",0,9,8)=""
^DD(699.71,"IX",.01)=""
^DD(699.73,0)="DISPOSITION SUB-FIELD^NL^2^3"
^DD(699.73,0,"IX","B",699.73,.01)=""
^DD(699.73,0,"NM","DISPOSITION")=""
^DD(699.73,0,"UP")="699"
^DD(699.73,.01,0)="DISPOSITION^MS^1:VISIT FOLLOW-UP;2:ENDOSCOPY FOLLOW-UP;3:TEST (LAB OR XRAY);4:CONSULT OTHER SPECIALIST;5:RETURN TO REFERRING MD;6:ADMIT TO HOSPITAL;7:DISCHARGED TO HOME;8:DISCHARGED TO WARD;9:OTHER;^0;1^Q"
^DD(699.73,.01,1,0)="^.1"
^DD(699.73,.01,1,1,0)="699.73^B"
^DD(699.73,.01,1,1,1)="S ^MCAR(699,DA(1),25,""B"",$E(X,1,30),DA)="""""
^DD(699.73,.01,1,1,2)="K ^MCAR(699,DA(1),25,""B"",$E(X,1,30),DA)"
^DD(699.73,.01,3)="An Entry in this field automatically places this patient on Recall List"
^DD(699.73,.01,21,0)="^^1^1^2910425^"
^DD(699.73,.01,21,1,0)="This field identifies the post-encounter disposition entered."
^DD(699.73,.01,23,0)="^^1^1^2921106^^^"
^DD(699.73,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.73,.01,"DT")="2890414"
^DD(699.73,1,0)="FINAL DISPOSITION DATE^RD^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(699.73,1,3)="Enter the date for this disposition."
^DD(699.73,1,21,0)="^^2^2^2910425^"
^DD(699.73,1,21,1,0)="This field identifies the date of the disposition.  This date may be in the"
^DD(699.73,1,21,2,0)="future as in the case of Endoscopy Follow Up entered as the disposition."
^DD(699.73,1,23,0)="^^1^1^2921106^^^"
^DD(699.73,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.73,1,"DT")="2900404"
^DD(699.73,2,0)="REASON^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(699.73,2,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH."
^DD(699.73,2,21,0)="^^1^1^2910425^"
^DD(699.73,2,21,1,0)="This field identifies the reason for the disposition given."
^DD(699.73,2,22)=""
^DD(699.73,"B","DISPOSITION",.01)=""
^DD(699.73,"B","FINAL DISPOSITION DATE",1)=""
^DD(699.73,"B","REASON",2)=""
^DD(699.73,"GL",0,1,.01)=""
^DD(699.73,"GL",0,2,1)=""
^DD(699.73,"GL",0,3,2)=""
^DD(699.73,"IX",.01)=""
^DD(699.73,"RQ",1)=""
^DD(699.74,0)="PRESCRIPTION GIVEN SUB-FIELD^NL^1^2"
^DD(699.74,0,"NM","PRESCRIPTION GIVEN")=""
^DD(699.74,0,"UP")="699"
^DD(699.74,.01,0)="PRESCRIPTION GIVEN^MP50'^PSDRUG(^0;1^Q"
^DD(699.74,.01,3)=""
^DD(699.74,.01,21,0)="^^2^2^2910425^"
^DD(699.74,.01,21,1,0)="This field identifies the name of the formulary drug given as a post-encounter"
^DD(699.74,.01,21,2,0)="prescription."
^DD(699.74,.01,"DT")="2880816"
^DD(699.74,1,0)="DOSAGE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(699.74,1,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH."
^DD(699.74,1,21,0)="^^1^1^2910425^"
^DD(699.74,1,21,1,0)="This field identifies the dosage of the prescribed drug."
^DD(699.74,"B","DOSAGE",1)=""
^DD(699.74,"B","PRESCRIPTION GIVEN",.01)=""
^DD(699.74,"GL",0,1,.01)=""
^DD(699.74,"GL",0,2,1)=""
^DD(699.75,0)="SECONDARY DIAGNOSIS SUB-FIELD^NL^2^3"
^DD(699.75,0,"DT")="2911004"
^DD(699.75,0,"IX","B",699.75,.01)=""
^DD(699.75,0,"NM","SECONDARY DIAGNOSIS")=""
^DD(699.75,0,"UP")="699"
^DD(699.75,.01,0)="SECONDARY DIAGNOSIS^P697.5'^MCAR(697.5,^0;1^Q"
^DD(699.75,.01,1,0)="^.1"
^DD(699.75,.01,1,1,0)="699.75^B"
^DD(699.75,.01,1,1,1)="S ^MCAR(699,DA(1),27,""B"",$E(X,1,30),DA)="""""
^DD(699.75,.01,1,1,2)="K ^MCAR(699,DA(1),27,""B"",$E(X,1,30),DA)"
^DD(699.75,.01,3)=""
^DD(699.75,.01,21,0)="^^2^2^2940415^^"
^DD(699.75,.01,21,1,0)="This field identifies a diagnosis chosen from the list of impressions entered"
^DD(699.75,.01,21,2,0)="minus the diagnosis entered as the primary diagnosis."
^DD(699.75,.01,23,0)="^^1^1^2940415^^^^"
^DD(699.75,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(699.75,.01,"DT")="2881006"
^DD(699.75,1,0)="SECONDARY DIAGNOSIS IMPRESSION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(699.75,1,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(699.75,1,21,0)="^^1^1^2910425^"
^DD(699.75,1,21,1,0)="This contains a free text comment regarding the chosen secondary diagnosis."
^DD(699.75,2,0)="ANATOMY^P697'I^MCAR(697,^0;3^Q"
^DD(699.75,2,3)="Pointer to Anatomy File (#697)."
^DD(699.75,2,21,0)="^^2^2^2920324^"
^DD(699.75,2,21,1,0)="This allows the user to enter the anatomy of the secondary"
^DD(699.75,2,21,2,0)="diagnosis.  Once this is entered, it may not be edited."
^DD(699.75,2,"DT")="2911004"
^DD(699.75,"B","ANATOMY",2)=""
^DD(699.75,"B","SECONDARY DIAGNOSIS",.01)=""
^DD(699.75,"B","SECONDARY DIAGNOSIS IMPRESSION",1)=""
^DD(699.75,"GL",0,1,.01)=""
^DD(699.75,"GL",0,2,1)=""
^DD(699.75,"GL",0,3,2)=""
^DD(699.75,"IX",.01)=""
^DD(699.81,0)="FIELD^^1^2"
^DD(699.81,0,"IX","B",699.81,.01)=""
^DD(699.81,0,"IX","C",699.811,.01)=""
^DD(699.81,0,"IX","D",699.81,.01)=""
^DD(699.81,0,"NM","RESULTS")=""
^DD(699.81,0,"PT",699.56,.01)=""
^DD(699.81,0,"VR")="2.3"
^DD(699.81,0,"VRPK")="MEDICINE"
^DD(699.81,.01,0)="ENDOSCOPIC RESULTS^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(699.81,.01,1,0)="^.1"
^DD(699.81,.01,1,1,0)="699.81^B^MUMPS"
^DD(699.81,.01,1,1,1)="S ^MCAR(699.81,""B"",X,DA)="""""
^DD(699.81,.01,1,1,2)="K ^MCAR(699.81,""B"",X,DA)"
^DD(699.81,.01,1,1,"%D",0)="^^1^1^2920421^"
^DD(699.81,.01,1,1,"%D",1,0)="This cross-reference indexes result names in alphabetical order."
^DD(699.81,.01,1,2,0)="699.81^D^KWIC"
^DD(699.81,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^MCAR(699.81,""D"",I,DA)="""""
^DD(699.81,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^MCAR(699.81,""D"",I,DA)"
^DD(699.81,.01,1,2,"%D",0)="^^1^1^2920421^"
^DD(699.81,.01,1,2,"%D",1,0)="This cross-reference indexes result names by key word."
^DD(699.81,.01,3)="ANSWER MUST BE 3-60 CHARACTERS IN LENGTH"
^DD(699.81,.01,21,0)="^^1^1^2940803^^^^"
^DD(699.81,.01,21,1,0)="This field contains a name of a result applicable to an Endoscopy."
^DD(699.81,.01,"DT")="2881201"
^DD(699.81,1,0)="MEDICAL PACKAGE USE^699.811SA^^1;0"
^DD(699.81,1,21,0)="^^2^2^2910429^"
^DD(699.81,1,21,1,0)="This field is used as a screen to allow results to be selectable by"
^DD(699.81,1,21,2,0)="Medical procedure."
^DD(699.81,"B","ENDOSCOPIC RESULTS",.01)=""
^DD(699.81,"B","MEDICAL PACKAGE USE",1)=""
^DD(699.81,"GL",0,1,.01)=""
^DD(699.81,"GL",1,0,1)=""
^DD(699.81,"IX",.01)=""
^DD(699.81,"SB",699.811,1)=""
^DD(699.811,0)="MEDICAL PACKAGE USE SUB-FIELD^^.01^1"
^DD(699.811,0,"NM","MEDICAL PACKAGE USE")=""
^DD(699.811,0,"UP")="699.81"
^DD(699.811,.01,0)="MEDICAL PACKAGE USE^MRS^G:GI;P:PULMONARY;^0;1^Q"
^DD(699.811,.01,1,0)="^.1"
^DD(699.811,.01,1,1,0)="699.81^C^MUMPS"
^DD(699.811,.01,1,1,1)="S ^MCAR(699.81,""C"",X,DA(1))="""""
^DD(699.811,.01,1,1,2)="K ^MCAR(699.81,""C"",X,DA(1))"
^DD(699.811,.01,1,1,"%D",0)="^^1^1^2920421^"
^DD(699.811,.01,1,1,"%D",1,0)="This cross-reference indexes results by medical procedure."
^DD(699.811,.01,3)="ENTER THE AREA OF MEDICINE WHICH THIS RESULT IS ASSOSCIATED WITH"
^DD(699.811,.01,21,0)="^^2^2^2910429^"
^DD(699.811,.01,21,1,0)="This field identifies the specific Medical procedure that the result is"
^DD(699.811,.01,21,2,0)="applicable to. "
^DD(699.811,.01,"DT")="2881201"
^DD(699.811,"B","MEDICAL PACKAGE USE",.01)=""
^DD(699.811,"GL",0,1,.01)=""
^DD(699.811,"IX",.01)=""
^DD(699.811,"RQ",.01)=""
^DD(699.82,0)="FIELD^^.01^1"
^DD(699.82,0,"DT")="2960220"
^DD(699.82,0,"IX","B",699.82,.01)=""
^DD(699.82,0,"IX","C",699.82,.01)=""
^DD(699.82,0,"NM","CONSULTATION TYPE")=""
^DD(699.82,0,"PT",699,31.5)=""
^DD(699.82,0,"PT",699.5,31.5)=""
^DD(699.82,0,"VR")="2.3"
^DD(699.82,0,"VRPK")="MEDICINE"
^DD(699.82,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(699.82,.01,1,0)="^.1"
^DD(699.82,.01,1,1,0)="699.82^B"
^DD(699.82,.01,1,1,1)="S ^MCAR(699.82,""B"",$E(X,1,30),DA)="""""
^DD(699.82,.01,1,1,2)="K ^MCAR(699.82,""B"",$E(X,1,30),DA)"
^DD(699.82,.01,1,2,0)="699.82^C^KWIC"
^DD(699.82,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^MCAR(699.82,""C"",I,DA)="""""
^DD(699.82,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.82,""C"",I,DA)"
^DD(699.82,.01,1,2,"%D",0)="^^2^2^2920421^"
^DD(699.82,.01,1,2,"%D",1,0)="This cross-reference indexes consultation types alphabetically by key"
^DD(699.82,.01,1,2,"%D",2,0)="word."
^DD(699.82,.01,3)="Answer must be 3-30 characters in length."
^DD(699.82,.01,21,0)="^^2^2^2960220^^"
^DD(699.82,.01,21,1,0)="This field identifies a list of Consultation types for use with the Consult"
^DD(699.82,.01,21,2,0)="enter/edit. "
^DD(699.82,.01,"DT")="2960220"
^DD(699.82,"B","NAME",.01)=""
^DD(699.82,"GL",0,1,.01)=""
^DD(699.82,"IX",.01)=""
^DD(699.82,"RQ",.01)=""
^DD(699.83,0)="FIELD^NL^1^2"
^DD(699.83,0,"DDA")="N"
^DD(699.83,0,"IX","B",699.83,.01)=""
^DD(699.83,0,"IX","C",699.831,.01)=""
^DD(699.83,0,"NM","LOCATION OF PAIN/PNEUMONIAS")=""
^DD(699.83,0,"PT",699.0207,.01)=""
^DD(699.83,0,"PT",699.19,.01)=""
^DD(699.83,0,"VR")="2.3"
^DD(699.83,0,"VRPK")="MEDICINE"
^DD(699.83,.01,0)="NAME^RF^^0;1^K:$L(X)>10!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(699.83,.01,1,0)="^.1"
^DD(699.83,.01,1,1,0)="699.83^B"
^DD(699.83,.01,1,1,1)="S ^MCAR(699.83,""B"",$E(X,1,30),DA)="""""
^DD(699.83,.01,1,1,2)="K ^MCAR(699.83,""B"",$E(X,1,30),DA)"
^DD(699.83,.01,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(699.83,.01,11,0)="^.2LAP"
^DD(699.83,.01,21,0)="^^6^6^2910429^"
^DD(699.83,.01,21,1,0)="This field is pointed to by the Location of Pain field for GI Endoscopies"
^DD(699.83,.01,21,2,0)="and the Location of Pneumonia for Pulmonary Endoscopies.  The data is"
^DD(699.83,.01,21,3,0)="a specified list of sub-anatomies that are commonly used by these two"
^DD(699.83,.01,21,4,0)="fields."
^DD(699.83,.01,21,5,0)="NOTE:  The Location of Pain field has been removed from  the GI Endoscopy"
^DD(699.83,.01,21,6,0)="templates in version 2."
^DD(699.83,1,0)="MEDICAL USE^699.831S^^1;0"
^DD(699.83,1,21,0)="^^2^2^2910429^"
^DD(699.83,1,21,1,0)="This field is used to determine whether an item can be selected for GI"
^DD(699.83,1,21,2,0)="Endoscopies, Pulmonary Endoscopies or both."
^DD(699.83,"B","MEDICAL USE",1)=""
^DD(699.83,"B","NAME",.01)=""
^DD(699.83,"GL",0,1,.01)=""
^DD(699.83,"GL",1,0,1)=""
^DD(699.83,"IX",.01)=""
^DD(699.83,"RQ",.01)=""
^DD(699.83,"SB",699.831,1)=""
^DD(699.831,0)="MEDICAL USE SUB-FIELD^^.01^1"
^DD(699.831,0,"NM","MEDICAL USE")=""
^DD(699.831,0,"UP")="699.83"
^DD(699.831,.01,0)="MEDICAL USE^MRS^G:GI;P:PULMONARY;^0;1^Q"
^DD(699.831,.01,1,0)="^.1"
^DD(699.831,.01,1,1,0)="699.83^C^MUMPS"
^DD(699.831,.01,1,1,1)="S ^MCAR(699.83,""C"",X,DA(1))="""""
^DD(699.831,.01,1,1,2)="K ^MCAR(699.83,""C"",X,DA(1))"
^DD(699.831,.01,1,1,"%D",0)="^^1^1^2920421^"
^DD(699.831,.01,1,1,"%D",1,0)="This cross-reference indexes locations by medical use code."
^DD(699.831,.01,3)="Enter the code for Pulmonary or GI for the Location."
^DD(699.831,.01,21,0)="^^2^2^2910429^"
^DD(699.831,.01,21,1,0)="This field identifies the specific area of Medicine (Pulmonary or GI) for"
^DD(699.831,.01,21,2,0)="which this Location can be selected."
^DD(699.831,.01,"DT")="2881129"
^DD(699.831,"B","MEDICAL USE",.01)=""
^DD(699.831,"GL",0,1,.01)=""
^DD(699.831,"IX",.01)=""
^DD(699.831,"RQ",.01)=""
^DD(699.84,0)="FIELD^^1^2"
^DD(699.84,0,"IX","B",699.84,.01)=""
^DD(699.84,0,"IX","C",699.84,.01)=""
^DD(699.84,0,"NM","DISEASE EVALUATION")=""
^DD(699.84,0,"PT",699.35,.01)=""
^DD(699.84,0,"VR")="2.3"
^DD(699.84,0,"VRPK")="MEDICINE"
^DD(699.84,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(699.84,.01,1,0)="^.1"
^DD(699.84,.01,1,1,0)="699.84^B"
^DD(699.84,.01,1,1,1)="S ^MCAR(699.84,""B"",$E(X,1,45),DA)="""""
^DD(699.84,.01,1,1,2)="K ^MCAR(699.84,""B"",$E(X,1,45),DA)"
^DD(699.84,.01,1,2,0)="699.84^C^KWIC"
^DD(699.84,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^MCAR(699.84,""C"",I,DA)="""""
^DD(699.84,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.84,""C"",I,DA)"
^DD(699.84,.01,1,2,"%D",0)="^^2^2^2920422^"
^DD(699.84,.01,1,2,"%D",1,0)="This cross-reference indexes disease evaluation names alphabetically"
^DD(699.84,.01,1,2,"%D",2,0)="by key word."
^DD(699.84,.01,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(699.84,.01,21,0)="^^2^2^2910429^^"
^DD(699.84,.01,21,1,0)="This field is used to store a list of possible disease follow-ups for GI"
^DD(699.84,.01,21,2,0)="and Pulmonary Endoscopies."
^DD(699.84,.01,"DT")="2881130"
^DD(699.84,1,0)="MEDICAL PACKAGE USE^S^G:GI;P:PULMONARY;^0;2^Q"
^DD(699.84,1,3)="Enter the Code for Pulmonary or GI for the Disease."
^DD(699.84,1,21,0)="^^2^2^2910429^^"
^DD(699.84,1,21,1,0)="This field identifies used as a screen to differentiate GI disease follow-ups"
^DD(699.84,1,21,2,0)="from Pulmonary follow-ups."
^DD(699.84,1,"DT")="2881130"
^DD(699.84,"B","MEDICAL PACKAGE USE",1)=""
^DD(699.84,"B","NAME",.01)=""
^DD(699.84,"GL",0,1,.01)=""
^DD(699.84,"GL",0,2,1)=""
^DD(699.84,"IX",.01)=""
^DD(699.84,"RQ",.01)=""
^DD(699.85,0)="FIELD^^1^2"
^DD(699.85,0,"IX","B",699.85,.01)=""
^DD(699.85,0,"IX","C",699.85,.01)=""
^DD(699.85,0,"IX","D",699.851,.01)=""
^DD(699.85,0,"NM","FOLLOWUP DEVICE/THERAPY")=""
^DD(699.85,0,"PT",699.36,.01)=""
^DD(699.85,0,"VR")="2.3"
^DD(699.85,0,"VRPK")="MEDICINE"
^DD(699.85,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(699.85,.01,1,0)="^.1"
^DD(699.85,.01,1,1,0)="699.85^B"
^DD(699.85,.01,1,1,1)="S ^MCAR(699.85,""B"",$E(X,1,30),DA)="""""
^DD(699.85,.01,1,1,2)="K ^MCAR(699.85,""B"",$E(X,1,30),DA)"
^DD(699.85,.01,1,2,0)="699.85^C^KWIC"
^DD(699.85,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^MCAR(699.85,""C"",I,DA)="""""
^DD(699.85,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.85,""C"",I,DA)"
^DD(699.85,.01,1,2,"%D",0)="^^2^2^2920422^"
^DD(699.85,.01,1,2,"%D",1,0)="This cross-reference indexes followup device therapy names alphabetically"
^DD(699.85,.01,1,2,"%D",2,0)="by key word."
^DD(699.85,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(699.85,.01,21,0)="^^2^2^2910429^"
^DD(699.85,.01,21,1,0)="This field is used to store a list of follow-up devices and therapies"
^DD(699.85,.01,21,2,0)="applicable to Endoscopies."
^DD(699.85,1,0)="MEDICAL PACKAGE USE^699.851SA^^1;0"
^DD(699.85,1,21,0)="^^2^2^2910429^"
^DD(699.85,1,21,1,0)="This field is used to determine whether the follow-up device/therapy is"
^DD(699.85,1,21,2,0)="applicable to GI Endoscopies, Pulmonary Endoscopies or both."
^DD(699.85,"B","MEDICAL PACKAGE USE",1)=""
^DD(699.85,"B","NAME",.01)=""
^DD(699.85,"GL",0,1,.01)=""
^DD(699.85,"GL",1,0,1)=""
^DD(699.85,"IX",.01)=""
^DD(699.85,"RQ",.01)=""
^DD(699.85,"SB",699.851,1)=""
^DD(699.851,0)="MEDICAL PACKAGE USE SUB-FIELD^^.01^1"
^DD(699.851,0,"NM","MEDICAL PACKAGE USE")=""
^DD(699.851,0,"UP")="699.85"
^DD(699.851,.01,0)="MEDICAL PACKAGE USE^MS^G:GI;P:PULMONARY;^0;1^Q"
^DD(699.851,.01,1,0)="^.1"
^DD(699.851,.01,1,1,0)="699.85^D^MUMPS"
^DD(699.851,.01,1,1,1)="S ^MCAR(699.85,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(699.851,.01,1,1,2)="K ^MCAR(699.85,""D"",$E(X,1,30),DA(1),DA)"
^DD(699.851,.01,1,1,"%D",0)="^^2^2^2920422^"
^DD(699.851,.01,1,1,"%D",1,0)="This cross-reference indexes followup device/therapy names by medical"
^DD(699.851,.01,1,1,"%D",2,0)="package use."
^DD(699.851,.01,3)="Enter Code for Pulmonary or GI for the Followup Device/Therapy."
^DD(699.851,.01,21,0)="^^2^2^2910429^"
^DD(699.851,.01,21,1,0)="This field identifies the specific area of Medicine (GI/Pulmonary) to which"
^DD(699.851,.01,21,2,0)="this follow-up device/therapy is applicable to."
^DD(699.851,.01,"DT")="2890404"
^DD(699.851,"B","MEDICAL PACKAGE USE",.01)=""
^DD(699.851,"GL",0,1,.01)=""
^DD(699.851,"IX",.01)=""
^DD(699.86,0)="FIELD^^.01^1"
^DD(699.86,0,"IX","B",699.86,.01)=""
^DD(699.86,0,"IX","C",699.86,.01)=""
^DD(699.86,0,"NM","SURVEILLANCE")=""
^DD(699.86,0,"PT",699.37,.01)=""
^DD(699.86,0,"VR")="2.3"
^DD(699.86,0,"VRPK")="MEDICINE"
^DD(699.86,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(699.86,.01,1,0)="^.1"
^DD(699.86,.01,1,1,0)="699.86^B"
^DD(699.86,.01,1,1,1)="S ^MCAR(699.86,""B"",$E(X,1,30),DA)="""""
^DD(699.86,.01,1,1,2)="K ^MCAR(699.86,""B"",$E(X,1,30),DA)"
^DD(699.86,.01,1,2,0)="699.86^C^KWIC"
^DD(699.86,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^MCAR(699.86,""C"",I,DA)="""""
^DD(699.86,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.86,""C"",I,DA)"
^DD(699.86,.01,1,2,"%D",0)="^^2^2^2920422^"
^DD(699.86,.01,1,2,"%D",1,0)="This cross-reference indexes surveillance names alphabetically by key"
^DD(699.86,.01,1,2,"%D",2,0)="word."
^DD(699.86,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(699.86,.01,21,0)="^^2^2^2910429^"
^DD(699.86,.01,21,1,0)="This field identifies a list of possible surveillances which can be used as an"
^DD(699.86,.01,21,2,0)="indication for procedure for GI Endoscopies."
^DD(699.86,"B","NAME",.01)=""
^DD(699.86,"GL",0,1,.01)=""
^DD(699.86,"IX",.01)=""
^DD(699.86,"RQ",.01)=""
^DD(699.88,0)="FIELD^^.01^1"
^DD(699.88,0,"DT")="2960220"
^DD(699.88,0,"IX","B",699.88,.01)=""
^DD(699.88,0,"IX","C",699.88,.01)=""
^DD(699.88,0,"NM","NON-ENDOSCOPIC PROCEDURE")=""
^DD(699.88,0,"PT",699.59,.01)=""
^DD(699.88,0,"VR")="2.3"
^DD(699.88,0,"VRPK")="MEDICINE"
^DD(699.88,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(699.88,.01,1,0)="^.1"
^DD(699.88,.01,1,1,0)="699.88^B"
^DD(699.88,.01,1,1,1)="S ^MCAR(699.88,""B"",$E(X,1,30),DA)="""""
^DD(699.88,.01,1,1,2)="K ^MCAR(699.88,""B"",$E(X,1,30),DA)"
^DD(699.88,.01,1,2,0)="699.88^C^KWIC"
^DD(699.88,.01,1,2,1)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31,^DD(""KWIC"")'[I S ^MCAR(699.88,""C"",I,DA)="""""
^DD(699.88,.01,1,2,2)="F %=1:1 Q:$P(X,"" "",%,99)=""""  S I=$P(X,"" "",%) I $L(I)>2,$L(I)<31 K ^MCAR(699.88,""C"",I,DA)"
^DD(699.88,.01,1,2,"%D",0)="^^2^2^2920422^"
^DD(699.88,.01,1,2,"%D",1,0)="This cross-reference indexes non-endoscopic procedure names alphabetically"
^DD(699.88,.01,1,2,"%D",2,0)="by key word."
^DD(699.88,.01,3)="Answer must be 3-30 characters in length."
^DD(699.88,.01,21,0)="^^1^1^2960220^^"
^DD(699.88,.01,21,1,0)="This contains a list of GI non-Endoscopic procedures."
^DD(699.88,.01,"DT")="2960220"
^DD(699.88,"B","NAME",.01)=""
^DD(699.88,"GL",0,1,.01)=""
^DD(699.88,"IX",.01)=""
^DD(699.88,"RQ",.01)=""
^DD(700,0)="FIELD^^1515^65"
^DD(700,0,"DDA")="N"
^DD(700,0,"DT")="2960705"
^DD(700,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MCAR(690,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(690,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(700,0,"ID","X1")="W:$D(^(""ES"")) ""   "",@(""$P($P($C(59)_$S($D(^DD(700,1506,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""ES""""),U,7)_"""":"""",2),$C(59),1)"")"
^DD(700,0,"IX","AC",700,.01)=""
^DD(700,0,"IX","AD",700,1)=""
^DD(700,0,"IX","AE",700,1)=""
^DD(700,0,"IX","AF",700.018,.01)=""
^DD(700,0,"IX","APCE",700,900)=""
^DD(700,0,"IX","AS",700.032,.01)=""
^DD(700,0,"IX","AV",700.017,.01)=""
^DD(700,0,"IX","B",700,.01)=""
^DD(700,0,"IX","C",700,1)=""
^DD(700,0,"NM","PULMONARY FUNCTION TESTS")=""
^DD(700,0,"PT",123,11)=""
^DD(700,0,"PT",123.03,.01)=""
^DD(700,0,"VR")="2.3"
^DD(700,0,"VRPK")="MEDICINE"
^DD(700,.01,0)="DATE/TIME^RD^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(700,.01,1,0)="^.1^^-1"
^DD(700,.01,1,1,0)="700^B"
^DD(700,.01,1,1,1)="S ^MCAR(700,""B"",$E(X,1,30),DA)="""""
^DD(700,.01,1,1,2)="K ^MCAR(700,""B"",$E(X,1,30),DA)"
^DD(700,.01,1,2,0)="700^AC^MUMPS"
^DD(700,.01,1,2,1)="S MCARCDIE=""^MCAR(700,"" D CHGDTE1^MCARPROC"
^DD(700,.01,1,2,2)="S MCARCDIE=""^MCAR(700,"" D CHGDTE^MCARPROC"
^DD(700,.01,1,2,"%D",0)="^^3^3^2920422^"
^DD(700,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(700,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent pulmonary function test"
^DD(700,.01,1,2,"%D",3,0)="procedure for this patient."
^DD(700,.01,3)="Enter the date and time of the Pulmonary Function tests."
^DD(700,.01,21,0)="^^1^1^2900213^"
^DD(700,.01,21,1,0)="This field identifies the date/time of the Pulmonary Function tests."
^DD(700,.01,23,0)="^^1^1^2921106^^^"
^DD(700,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(700,.01,"DT")="3001106"
^DD(700,.03,0)="SUMMARY^RS^N:NORMAL;A:ABNORMAL;B:BORDERLINE;T:TECHNICALLY UNSATISFACTORY;^.2;1^Q"
^DD(700,.03,3)="Enter the summary of this procedure (N,A,B,T).  This will appear on the Summary of Patient Procedures and the Health Summary."
^DD(700,.03,21,0)="^^3^3^2910408^"
^DD(700,.03,21,1,0)="This field identifies a brief summary of the PFT for use on the Summary of"
^DD(700,.03,21,2,0)="Patient Procedures and the Health Summary.  The Results portion of OERR is"
^DD(700,.03,21,3,0)="expected to trigger off this field in the future."
^DD(700,.03,23,0)="^^1^1^2921106^^^"
^DD(700,.03,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700,.03,"DT")="2910408"
^DD(700,1,0)="MEDICAL PATIENT^RP690^MCAR(690,^0;2^Q"
^DD(700,1,1,0)="^.1"
^DD(700,1,1,1,0)="700^C"
^DD(700,1,1,1,1)="S ^MCAR(700,""C"",$E(X,1,30),DA)="""""
^DD(700,1,1,1,2)="K ^MCAR(700,""C"",$E(X,1,30),DA)"
^DD(700,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(700,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(700,1,1,2,0)="700^AD^MUMPS"
^DD(700,1,1,2,1)="S MCARCDIE=""^MCAR(700,"" D CHGPAT^MCARPROC"
^DD(700,1,1,2,2)="S MCARCDIE=""^MCAR(700,"" D KILL^MCARPROC"
^DD(700,1,1,2,"%D",0)="^^3^3^2920422^"
^DD(700,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(700,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent pulmonary function test"
^DD(700,1,1,2,"%D",3,0)="procedure for this patient."
^DD(700,1,1,3,0)="700^AE^MUMPS"
^DD(700,1,1,3,1)="S ^MCAR(700,DA,""PV"")=$$MCSEX^MCEF()"
^DD(700,1,1,3,2)="K ^MCAR(700,DA,""PV"")"
^DD(700,1,1,3,"DT")="2950719"
^DD(700,1,3)="Enter the patient's name"
^DD(700,1,21,0)="^^1^1^2900213^"
^DD(700,1,21,1,0)="This field identifies the patient's name."
^DD(700,1,"DT")="3001106"
^DD(700,2,0)="HEIGHT (CM)^NJ3,0^^0;3^K:+X'=X!(X>240)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700,2,1,0)="^.1^^0"
^DD(700,2,3)="Enter the height of the patient in centimeters:  0-240"
^DD(700,2,21,0)="^^1^1^2910408^"
^DD(700,2,21,1,0)="This field identifies the Height of the patient in Centimeters."
^DD(700,2,"DT")="2900809"
^DD(700,3,0)="HEIGHT (INCHES.TENTHS)^NJ6,2^^0;4^K:+X'=X!(X>100)!(X<40)!(X?.E1"".""3N.N) X"
^DD(700,3,1,0)="^.1^^0"
^DD(700,3,3)="Type a Number between 40 and 100, 2 Decimal Digits"
^DD(700,3,21,0)="^^2^2^2990628^^"
^DD(700,3,21,1,0)="This field identifies the height of the patient in inches and tenths of"
^DD(700,3,21,2,0)="inches.  This value will be converted to Centimeters for the report."
^DD(700,3,"DT")="2990628"
^DD(700,4,0)="WEIGHT (POUNDS.TENTHS)^NJ5,1^^0;5^K:+X'=X!(X>500)!(X<50)!(X?.E1"".""2N.N) X"
^DD(700,4,1,0)="^.1^^0"
^DD(700,4,3)="Type a Number between 50 and 500, 1 Decimal Digit"
^DD(700,4,21,0)="^^2^2^2910408^"
^DD(700,4,21,1,0)="This field identifies the weight of the patients in pounds and tenths of"
^DD(700,4,21,2,0)="pounds.  This value will be converted to Kilograms for the report."
^DD(700,4,"DT")="2900810"
^DD(700,5,0)="WEIGHT (KG)^NJ3,0^^0;6^K:+X'=X!(X>228)!(X<22)!(X?.E1"".""1N.N) X"
^DD(700,5,1,0)="^.1^^0"
^DD(700,5,3)="Enter the weight of the patient in kilograms: 22-228"
^DD(700,5,21,0)="^^1^1^2910408^"
^DD(700,5,21,1,0)="This field identifies the weight of the patient in Kilograms."
^DD(700,5,"DT")="2900810"
^DD(700,6,0)="BAROMETRIC PRESSURE^RNJ3,0^^0;7^K:+X'=X!(X>999)!(X<600)!(X?.E1"".""1N.N) X"
^DD(700,6,3)="Enter the Barometric Pressure in Torr units:  600-999"
^DD(700,6,21,0)="^^2^2^2910408^"
^DD(700,6,21,1,0)="This field identifies the Barometric Pressure in Torr units at the time the PFT"
^DD(700,6,21,2,0)="was done"
^DD(700,6,"DT")="2900228"
^DD(700,6.5,0)="ROOM TEMPERATURE (CENTIGRADE)^RNJ2,0^^0;12^K:+X'=X!(X>35)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700,6.5,3)="Enter the room temperature between 0 and 35 in degrees centigrade, 0 Decimal Digits"
^DD(700,6.5,21,0)="^^2^2^2910408^"
^DD(700,6.5,21,1,0)="This field identifies the room temperature in degrees centigrade at the time"
^DD(700,6.5,21,2,0)="the PFT was done"
^DD(700,6.5,"DT")="2910912"
^DD(700,7,0)="SMOKER^RS^Y:YES;N:NO;^0;8^Q"
^DD(700,7,3)="Enter 'Y' if the patient is a smoker, 'N' is the patient is a nonsmoker."
^DD(700,7,21,0)="^^1^1^2910410^^"
^DD(700,7,21,1,0)="This field tells whether the patient is a smoker or a non-smoker."
^DD(700,7,"DT")="2900810"
^DD(700,8,0)="CURRENT BRONCHODILATOR^S^Y:YES;N:NO;^0;9^Q"
^DD(700,8,3)="Enter 'Y' if the patient has used a bronchodilator within 3 hours of the test, 'N' if the patient has not used a bronchodilator within 3 hours of the test."
^DD(700,8,21,0)="^^2^2^2910408^"
^DD(700,8,21,1,0)="This field tells whether the patient had used a Bronchodilator within 4"
^DD(700,8,21,2,0)="hours of the test."
^DD(700,8,"DT")="2910918"
^DD(700,9,0)="WARD/CLINIC^P44'^SC(^0;10^Q"
^DD(700,9,3)="Enter the ward if the patient is an inpatient, or the clinic if the patient is an outpatient."
^DD(700,9,21,0)="^^2^2^2910408^"
^DD(700,9,21,1,0)="This field will be a ward if the patient is an inpatient, a clinic if the"
^DD(700,9,21,2,0)="patient is an outpatient."
^DD(700,9,"DT")="2900228"
^DD(700,10,0)="REFERRING PHYSICIAN^*P200'^VA(200,^0;11^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700,10,3)="Enter the name of the referring physician."
^DD(700,10,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(700,10,21,0)="^^1^1^2910408^"
^DD(700,10,21,1,0)="This field refers to the Physician who ordered the PFT."
^DD(700,10,"DT")="2941025"
^DD(700,11,0)="CONSULT DX^700.01PA^^1;0"
^DD(700,11,21,0)="^^2^2^2941026^^^^"
^DD(700,11,21,1,0)="This field identifies the diagnosis sent to the PFT lab by the Referring"
^DD(700,11,21,2,0)="Physician. "
^DD(700,17,0)="VOLUME STUDY^700.017SA^^3;0"
^DD(700,17,21,0)="^^1^1^2920821^^"
^DD(700,17,21,1,0)="The subfields of this field hold the Volume Study Data for the PFT."
^DD(700,17,23,0)="^^1^1^2921106^^^"
^DD(700,17,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700,17,"DT")="2910301"
^DD(700,18,0)="FLOWS STUDY^700.018SA^^4;0"
^DD(700,18,21,0)="^^1^1^2940728^^^^"
^DD(700,18,21,1,0)="This field identifies stores data of the Flow Study done on the patient."
^DD(700,18,23,0)="^^1^1^2940728^^^^"
^DD(700,18,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700,18,"DT")="2910301"
^DD(700,19,0)="DLCO-SB^NJ5,2^^5;1^K:+X'=X!(X>99.99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(700,19,1,0)="^.1^^0"
^DD(700,19,3)="Type a Number between 1 and 99.99, 2 Decimal Digits"
^DD(700,19,21,0)="^^1^1^2990623^^"
^DD(700,19,21,1,0)="This field identifies the measured Diffusing Capacity."
^DD(700,19,"DT")="3001106"
^DD(700,20,0)="BLOOD GAS^700.02SA^^6;0"
^DD(700,20,21,0)="^^2^2^2950320^^^^"
^DD(700,20,21,1,0)="This field is a multiple field which stores the data for the Arterial"
^DD(700,20,21,2,0)="Blood Gas (ABG) Study."
^DD(700,20,23,0)="^^1^1^2950320^^^^"
^DD(700,20,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700,20,"DT")="2910912"
^DD(700,21,0)="INTERPRETATION BY^700.021PA^^7;0"
^DD(700,21,21,0)="^^1^1^2910410^"
^DD(700,21,21,1,0)="This field identifies the provider who interpreted the PFT"
^DD(700,22,0)="COMP. GEN. VOLUME INTERP.^700.022PA^^8;0"
^DD(700,22.5,0)="VOLUME INTERPRETATION^700.06^^20;0"
^DD(700,23,0)="COMP. GEN. FLOWS INTERP.^700.023PA^^9;0"
^DD(700,23.5,0)="FLOWS INTERPRETATION^700.07^^21;0"
^DD(700,24,0)="COMP. FLOW VOL. LOOP INTERP.^700.024PA^^10;0"
^DD(700,24.5,0)="FLOW VOLUME LOOP INTERP.^700.08^^22;0"
^DD(700,26,0)="COMP. GEN. DIFFUSION INTERP.^700.026PA^^12;0"
^DD(700,26.5,0)="DIFFUSION INTERPRETATION^700.09^^23;0"
^DD(700,27,0)="COMP. GEN. ABG INTERP.^700.027PA^^13;0"
^DD(700,28,0)="PREDICTED VALUE FORMULAS USED^R*P700.1'^MCAR(700.1,^PV;1^S DIC(""S"")=""I $P(^MCAR(700.1,+Y,1),U)=$G(MCSEX,U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700,28,3)="Enter the set of Formulas used for calculating the predicted values for Volumes and Flows."
^DD(700,28,12)="Chooses Predicted Value Formulas For the Sex of Patient"
^DD(700,28,12.1)="S DIC(""S"")=""I $P(^MCAR(700.1,+Y,1),U)=$G(MCSEX,U)"""
^DD(700,28,21,0)="^^2^2^2921229^^"
^DD(700,28,21,1,0)="This field identifies a pointer to the set of formulas used to calculate"
^DD(700,28,21,2,0)="predicted values."
^DD(700,28,23,0)="^^1^1^2921229^"
^DD(700,28,23,1,0)="^^S ACT=ACT-(.132*PRED)"
^DD(700,28,"DT")="2901221"
^DD(700,29,0)="IMPRESSION^700.029P^^15;0"
^DD(700,30,0)="COMMENTS AND RECOMMENDATIONS^700.03^^16;0"
^DD(700,30,21,0)="^^2^2^2940609^^"
^DD(700,30,21,1,0)="This field identifies a word processing field which allows comments and"
^DD(700,30,21,2,0)="recommendations to be entered by the interpreter."
^DD(700,30,"DT")="2900604"
^DD(700,31,0)="REVIEWED BY^*P200'^VA(200,^17;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700,31,1,0)="^.1"
^DD(700,31,1,1,0)="^^TRIGGER^700^701"
^DD(700,31,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(700,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(700,31,1,1,1.4)"
^DD(700,31,1,1,1.4)="S DIH=$S($D(^MCAR(700,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=700,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(700,31,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(700,D0,""PROV"")):^(""PROV""),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(700,31,1,1,2.1) X ^DD(700,31,1,1,2.4)"
^DD(700,31,1,1,2.1)="S X=DIV S Y(1)=$S($D(^MCAR(700,D0,17)):^(17),1:"""") S X=$P(Y(1),U,1),X=X"
^DD(700,31,1,1,2.4)="S DIH=$S($D(^MCAR(700,DIV(0),""PROV"")):^(""PROV""),1:""""),DIV=X S $P(^(""PROV""),U,1)=DIV,DIH=700,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(700,31,1,1,"%D",0)="^^1^1^2960423^"
^DD(700,31,1,1,"%D",1,0)="This trigger sets the primary provider file."
^DD(700,31,1,1,"CREATE VALUE")="INTERNAL(#31)"
^DD(700,31,1,1,"DELETE VALUE")="INTERNAL(#31)"
^DD(700,31,1,1,"DT")="2960423"
^DD(700,31,1,1,"FIELD")="#701"
^DD(700,31,3)="Enter the provider's name who reviewed this test."
^DD(700,31,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(700,31,21,0)="^^1^1^2910410^"
^DD(700,31,21,1,0)="This field identifies the provider who reviewed the PFT."
^DD(700,31,"DT")="2960423"
^DD(700,32,0)="SPECIAL STUDY^700.032S^^S;0"
^DD(700,32,21,0)="^^1^1^2940609^^^^"
^DD(700,32,21,1,0)="This field identifies allows special study data to be entered for this PFT"
^DD(700,32,"DT")="2920821"
^DD(700,33,0)="COMP. GENERATED INTERPRETATION^700.033PA^^24;0"
^DD(700,33,21,0)="^^2^2^2930107^^^"
^DD(700,33,21,1,0)="This field identifies stores the Computer Generated Interpretation(s) for the"
^DD(700,33,21,2,0)="PFT and whether or not the Interpreter accepted the Interpretation."
^DD(700,33.5,0)="FREE TEXT INTERPRETATION^700.04^^25;0"
^DD(700,33.5,21,0)="^^3^3^2910410^^"
^DD(700,33.5,21,1,0)="This field identifies a word processing field which allows the Interpreter to"
^DD(700,33.5,21,2,0)="enter Interpretation(s) in addition to, or instead of, the Computer Generated"
^DD(700,33.5,21,3,0)="Interpretations."
^DD(700,34,0)="TECHNICIAN^R*P200'^VA(200,^0;13^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700,34,3)="Enter the name of the technician who performed the test."
^DD(700,34,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(700,34,21,0)="^^1^1^2910410^"
^DD(700,34,21,1,0)="This field identifies the Technician who performed the PFT."
^DD(700,34,"DT")="2941025"
^DD(700,35,0)="FLOW STUDY MACHINE^S^F:FLOW TURBINE;P:PNEUMOTACH;A:ANEMOMETER;DS:DRY WATER SEAL;WS:WATER SEAL;W:WEDGE;^17;2^Q"
^DD(700,35,3)="Enter the type of machine that the Flow Study(ies) were performed on"
^DD(700,35,21,0)="^^1^1^2910410^"
^DD(700,35,21,1,0)="This field identifies the type of machine used for the Flow Study."
^DD(700,35,"DT")="2900604"
^DD(700,37,0)="DIFFUSING CAPACITY METHOD^S^1:SINGLE BREATH;2:STEADY STATE;^17;4^Q"
^DD(700,37,3)="Enter the method by which the Diffusing Capacity (DLCO) test was performed"
^DD(700,37,21,0)="^^1^1^2910410^"
^DD(700,37,21,1,0)="This field identifies the Method used for the Diffusing Capacity (DLCO) Test."
^DD(700,37,"DT")="2900604"
^DD(700,38,0)="USE RACE CORRECTIONS^S^Y:YES;N:NO;^17;5^Q"
^DD(700,38,3)="Answer 'Yes' or 'No'.  The system has built in corrections for the predicted value formulas for 'Black' or 'Asian' patients. 'Yes' will include these corrections in the Predicted Value Formulas."
^DD(700,38,21,0)="^.001^2^2^3030130^^^^"
^DD(700,38,21,1,0)="This field allows the user to decide whether certain data should be"
^DD(700,38,21,2,0)="race corrected.  Used for Black or Oriental patients."
^DD(700,38,"DT")="2901221"
^DD(700,38.5,0)="RACE CORRECTIONS FOR RACE TYPE^S^B:BLACK;A:ASIAN;^17;7^Q"
^DD(700,38.5,3)="Enter B for BLACK or A for ASIAN."
^DD(700,38.5,21,0)="^^3^3^3030124^"
^DD(700,38.5,21,1,0)="If the 'USE RACE CORRECTIONS' is set to YES and the race value is both "
^DD(700,38.5,21,2,0)="BLACK and ASIAN, this field will store which race type the race "
^DD(700,38.5,21,3,0)="correction will be for."
^DD(700,38.5,23,0)="^.001^1^1^3030124^^^^"
^DD(700,38.5,23,1,0)="This field will store either a 'B' for BLACK or 'A' for ASIAN."
^DD(700,38.5,"DT")="3030124"
^DD(700,39,0)="PATIENT EFFORT^S^E:EXCELLENT;G:GOOD;P:POOR;^17;6^Q"
^DD(700,39,3)="Enter the Code for the correct patient effort."
^DD(700,39,21,0)="^^1^1^2910410^"
^DD(700,39,21,1,0)="This field indicates the patient effort:  GOOD, EXCELLENT, or POOR."
^DD(700,39,"DT")="2900604"
^DD(700,40,0)="RELEASE REPORT^S^Y:YES;N:NO;^2;1^Q"
^DD(700,40,"DT")="2920824"
^DD(700,41,0)="OTHER REASON FOR STOPPING^700.041^^19;0"
^DD(700,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(700,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(700,600,21,0)="^^2^2^2910410^"
^DD(700,600,21,1,0)="This field identifies a required 79 character summary of the PFT.  Will appear"
^DD(700,600,21,2,0)="on the Summary of Patient Procedures."
^DD(700,600,23,0)="^^1^1^2921106^^^"
^DD(700,600,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700,600,"DT")="2901128"
^DD(700,700,0)="ICD DIAGNOSIS^700.05P^^ICD;0"
^DD(700,700,21,0)="^^3^3^2920102^"
^DD(700,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(700,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(700,700,21,3,0)="future."
^DD(700,700,23,0)="^^1^1^2921106^^^"
^DD(700,700,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700,701,5,1,0)="700^31^1"
^DD(700,701,9)="^"
^DD(700,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(700,701,21,0)="^^3^3^2920109^"
^DD(700,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(700,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(700,701,21,3,0)="use in transferring data to the PCC."
^DD(700,701,"DT")="2941025"
^DD(700,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(700,900,1,0)="^.1"
^DD(700,900,1,1,0)="700^APCE"
^DD(700,900,1,1,1)="S ^MCAR(700,""APCE"",$E(X,1,30),DA)="""""
^DD(700,900,1,1,2)="K ^MCAR(700,""APCE"",$E(X,1,30),DA)"
^DD(700,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(700,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(700,900,1,1,"DT")="2960517"
^DD(700,900,21,0)="^^2^2^2920728^^^"
^DD(700,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(700,900,21,2,0)="Visit File for use by Queryman."
^DD(700,900,"DT")="2960517"
^DD(700,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(700,1000,3)="Enter the 'Consult Orders' internal file number.  Pointer to (#100)."
^DD(700,1000,21,0)="^^3^3^2910709^"
^DD(700,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(700,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(700,1000,21,3,0)="Medicine package."
^DD(700,1000,"DT")="2910709"
^DD(700,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(700,1001,3)="Enter the 'Request/Consultation' internal file number.  Pointer to (#123)."
^DD(700,1001,21,0)="^^3^3^2910816"
^DD(700,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(700,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(700,1001,21,3,0)="results are entered in the Medicine package."
^DD(700,1001,"DT")="2920716"
^DD(700,1500,0)="ENTERING DUZ^P200'^VA(200,^ES;1^Q"
^DD(700,1500,"DT")="2930128"
^DD(700,1501,0)="COSIGNER VALIDATION CODE^F^^ES;2^K:$L(X)>30!($L(X)<1) X"
^DD(700,1501,3)="Answer must be 1-30 characters in length."
^DD(700,1501,"DT")="2930128"
^DD(700,1502,0)="ENTERING DATE^D^^ES;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(700,1502,"DT")="2930128"
^DD(700,1503,0)="VERIFYING DUZ^P200'^VA(200,^ES;4^Q"
^DD(700,1503,"DT")="2930128"
^DD(700,1504,0)="SIGNER VALIDATION CODE^F^^ES;5^K:$L(X)>30!($L(X)<1) X"
^DD(700,1504,3)="Answer must be 1-30 characters in length."
^DD(700,1504,"DT")="2930128"
^DD(700,1505,0)="VERIFIER DATE^D^^ES;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(700,1505,"DT")="2930128"
^DD(700,1506,0)="RELEASE STATUS^S^D:DRAFT;PD:PROBLEM DRAFT;RV:RELEASED ON-LINE VERIFIED;ROV:RELEASED OFF-LINE VERIFIED;RNV:RELEASED NOT VERIFIED;S:SUPERSEDED;SRV:RELEASED ON-LINE VERIFIED OF SUPERSEDED;SROV:RELEASED OFF-LINE VERIFIED OF SUPERSEDED;^ES;7^Q"
^DD(700,1506,1,0)="^.1^^0"
^DD(700,1506,"DT")="2931214"
^DD(700,1507,0)="DATE OF RELEASED^D^^ES;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(700,1507,"DT")="2930128"
^DD(700,1508,0)="DATE OF VERIFIED^RD^^ES;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(700,1508,"DT")="2930128"
^DD(700,1509,0)="SUPERSEDED^NJ10,0^^ES;10^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700,1509,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(700,1509,"DT")="2930128"
^DD(700,1510,0)="SUPERSEDED BY^NJ10,0^^ES;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700,1510,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(700,1510,"DT")="2930128"
^DD(700,1511,0)="MARK FOR DELETION^S^1:MARK FOR DELETION;^ES;12^Q"
^DD(700,1511,"DT")="2930128"
^DD(700,1512,0)="DELETER DUZ^P200'^VA(200,^ES;13^Q"
^DD(700,1512,"DT")="2930128"
^DD(700,1513,0)="SUPERSEDED DATE^F^^ES;14^K:$L(X)>40!($L(X)<1) X"
^DD(700,1513,3)="Answer must be 1-40 characters in length."
^DD(700,1513,"DT")="2930128"
^DD(700,1514,0)="CREATION DATE^D^^ES;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(700,1514,3)="Enter the date that this record was created."
^DD(700,1514,"DT")="2930203"
^DD(700,1515,0)="SUPERSEDED NUMBER^NJ3,0^^ES;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700,1515,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(700,1515,"DT")="2930304"
^DD(700,"B","BAROMETRIC PRESSURE",6)=""
^DD(700,"B","BLOOD GAS",20)=""
^DD(700,"B","COMMENTS AND RECOMMENDATIONS",30)=""
^DD(700,"B","COMP. FLOW VOL. LOOP INTERP.",24)=""
^DD(700,"B","COMP. GEN. ABG INTERP.",27)=""
^DD(700,"B","COMP. GEN. DIFFUSION INTERP.",26)=""
^DD(700,"B","COMP. GEN. FLOWS INTERP.",23)=""
^DD(700,"B","COMP. GEN. VOLUME INTERP.",22)=""
^DD(700,"B","COMP. GENERATED INTERPRETATION",33)=""
^DD(700,"B","CONSULT DX",11)=""
^DD(700,"B","COSIGNER VALIDATION CODE",1501)=""
^DD(700,"B","CREATION DATE",1514)=""
^DD(700,"B","CURRENT BRONCHODILATOR",8)=""
^DD(700,"B","DATE OF RELEASED",1507)=""
^DD(700,"B","DATE OF VERIFIED",1508)=""
^DD(700,"B","DATE/TIME",.01)=""
^DD(700,"B","DELETER DUZ",1512)=""
^DD(700,"B","DIFFUSING CAPACITY METHOD",37)=""
^DD(700,"B","DIFFUSION INTERPRETATION",26.5)=""
^DD(700,"B","DLCO-SB",19)=""
^DD(700,"B","ENTERING DATE",1502)=""
^DD(700,"B","ENTERING DUZ",1500)=""
^DD(700,"B","FLOW STUDY MACHINE",35)=""
^DD(700,"B","FLOW VOLUME LOOP INTERP.",24.5)=""
^DD(700,"B","FLOWS INTERPRETATION",23.5)=""
^DD(700,"B","FLOWS STUDY",18)=""
^DD(700,"B","FREE TEXT INTERPRETATION",33.5)=""
^DD(700,"B","GMRCO",1001)=""
^DD(700,"B","HEIGHT (CM)",2)=""
^DD(700,"B","HEIGHT (INCHES.TENTHS)",3)=""
^DD(700,"B","ICD DIAGNOSIS",700)=""
^DD(700,"B","IMPRESSION",29)=""
^DD(700,"B","INTERPRETATION BY",21)=""
^DD(700,"B","MARK FOR DELETION",1511)=""
^DD(700,"B","MEDICAL PATIENT",1)=""
^DD(700,"B","ORIFN",1000)=""
^DD(700,"B","OTHER REASON FOR STOPPING",41)=""
^DD(700,"B","PATIENT EFFORT",39)=""
^DD(700,"B","PCC POINTER",900)=""
^DD(700,"B","PREDICTED VALUE FORMULAS USED",28)=""
^DD(700,"B","PRIMARY PROVIDER",701)=""
^DD(700,"B","PROCEDURE SUMMARY",600)=""
^DD(700,"B","RACE CORRECTIONS FOR RACE TYPE",38.5)=""
^DD(700,"B","REFERRING PHYSICIAN",10)=""
^DD(700,"B","RELEASE REPORT",40)=""
^DD(700,"B","RELEASE STATUS",1506)=""
^DD(700,"B","REVIEWED BY",31)=""
^DD(700,"B","ROOM TEMPERATURE (CENTIGRADE)",6.5)=""
^DD(700,"B","SIGNER VALIDATION CODE",1504)=""
^DD(700,"B","SMOKER",7)=""
^DD(700,"B","SPECIAL STUDY",32)=""
^DD(700,"B","SUMMARY",.03)=""
^DD(700,"B","SUPERSEDED",1509)=""
^DD(700,"B","SUPERSEDED BY",1510)=""
^DD(700,"B","SUPERSEDED DATE",1513)=""
^DD(700,"B","SUPERSEDED NUMBER",1515)=""
^DD(700,"B","TECHNICIAN",34)=""
^DD(700,"B","USE RACE CORRECTIONS",38)=""
^DD(700,"B","VERIFIER DATE",1505)=""
^DD(700,"B","VERIFYING DUZ",1503)=""
^DD(700,"B","VOLUME INTERPRETATION",22.5)=""
^DD(700,"B","VOLUME STUDY",17)=""
^DD(700,"B","WARD/CLINIC",9)=""
^DD(700,"B","WEIGHT (KG)",5)=""
^DD(700,"B","WEIGHT (POUNDS.TENTHS)",4)=""
^DD(700,"GL",0,1,.01)=""
^DD(700,"GL",0,2,1)=""
^DD(700,"GL",0,3,2)=""
^DD(700,"GL",0,4,3)=""
^DD(700,"GL",0,5,4)=""
^DD(700,"GL",0,6,5)=""
^DD(700,"GL",0,7,6)=""
^DD(700,"GL",0,8,7)=""
^DD(700,"GL",0,9,8)=""
^DD(700,"GL",0,10,9)=""
^DD(700,"GL",0,11,10)=""
^DD(700,"GL",0,12,6.5)=""
^DD(700,"GL",0,13,34)=""
^DD(700,"GL",.2,1,.03)=""
^DD(700,"GL",.2,2,600)=""
^DD(700,"GL",1,0,11)=""
^DD(700,"GL",2,1,40)=""
^DD(700,"GL",3,0,17)=""
^DD(700,"GL",4,0,18)=""
^DD(700,"GL",5,1,19)=""
^DD(700,"GL",6,0,20)=""
^DD(700,"GL",7,0,21)=""
^DD(700,"GL",8,0,22)=""
^DD(700,"GL",9,0,23)=""
^DD(700,"GL",10,0,24)=""
^DD(700,"GL",12,0,26)=""
^DD(700,"GL",13,0,27)=""
^DD(700,"GL",15,0,29)=""
^DD(700,"GL",16,0,30)=""
^DD(700,"GL",17,1,31)=""
^DD(700,"GL",17,2,35)=""
^DD(700,"GL",17,4,37)=""
^DD(700,"GL",17,5,38)=""
^DD(700,"GL",17,6,39)=""
^DD(700,"GL",17,7,38.5)=""
^DD(700,"GL",19,0,41)=""
^DD(700,"GL",20,0,22.5)=""
^DD(700,"GL",21,0,23.5)=""
^DD(700,"GL",22,0,24.5)=""
^DD(700,"GL",23,0,26.5)=""
^DD(700,"GL",24,0,33)=""
^DD(700,"GL",25,0,33.5)=""
^DD(700,"GL","ES",1,1500)=""
^DD(700,"GL","ES",2,1501)=""
^DD(700,"GL","ES",3,1502)=""
^DD(700,"GL","ES",4,1503)=""
^DD(700,"GL","ES",5,1504)=""
^DD(700,"GL","ES",6,1505)=""
^DD(700,"GL","ES",7,1506)=""
^DD(700,"GL","ES",8,1507)=""
^DD(700,"GL","ES",9,1508)=""
^DD(700,"GL","ES",10,1509)=""
^DD(700,"GL","ES",11,1510)=""
^DD(700,"GL","ES",12,1511)=""
^DD(700,"GL","ES",13,1512)=""
^DD(700,"GL","ES",14,1513)=""
^DD(700,"GL","ES",15,1514)=""
^DD(700,"GL","ES",16,1515)=""
^DD(700,"GL","ICD",0,700)=""
^DD(700,"GL","OR",1,1000)=""
^DD(700,"GL","OR",2,1001)=""
^DD(700,"GL","PCC",1,900)=""
^DD(700,"GL","PROV",1,701)=""
^DD(700,"GL","PV",1,28)=""
^DD(700,"GL","S",0,32)=""
^DD(700,"IX",.01)=""
^DD(700,"IX",1)=""
^DD(700,"IX",31)=""
^DD(700,"IX",900)=""
^DD(700,"RQ",.01)=""
^DD(700,"RQ",.03)=""
^DD(700,"RQ",1)=""
^DD(700,"RQ",6)=""
^DD(700,"RQ",6.5)=""
^DD(700,"RQ",7)=""
^DD(700,"RQ",28)=""
^DD(700,"RQ",34)=""
^DD(700,"RQ",600)=""
^DD(700,"RQ",1508)=""
^DD(700,"SB",700.01,11)=""
^DD(700,"SB",700.017,17)=""
^DD(700,"SB",700.018,18)=""
^DD(700,"SB",700.02,20)=""
^DD(700,"SB",700.021,21)=""
^DD(700,"SB",700.022,22)=""
^DD(700,"SB",700.023,23)=""
^DD(700,"SB",700.024,24)=""
^DD(700,"SB",700.026,26)=""
^DD(700,"SB",700.027,27)=""
^DD(700,"SB",700.029,29)=""
^DD(700,"SB",700.03,30)=""
^DD(700,"SB",700.032,32)=""
^DD(700,"SB",700.033,33)=""
^DD(700,"SB",700.04,33.5)=""
^DD(700,"SB",700.041,41)=""
^DD(700,"SB",700.05,700)=""
^DD(700,"SB",700.06,22.5)=""
^DD(700,"SB",700.07,23.5)=""
^DD(700,"SB",700.08,24.5)=""
^DD(700,"SB",700.09,26.5)=""
^DD(700.01,0)="CONSULT DX SUB-FIELD^^.01^1"
^DD(700.01,0,"DT")="2911028"
^DD(700.01,0,"IX","B",700.01,.01)=""
^DD(700.01,0,"NM","CONSULT DX")=""
^DD(700.01,0,"UP")="700"
^DD(700.01,.01,0)="CONSULT DX^M*P697.5'^MCAR(697.5,^0;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.PC"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.PC"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.01,.01,1,0)="^.1"
^DD(700.01,.01,1,1,0)="700.01^B"
^DD(700.01,.01,1,1,1)="S ^MCAR(700,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(700.01,.01,1,1,2)="K ^MCAR(700,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(700.01,.01,3)="Enter the consult diagnosis(es) for this patient."
^DD(700.01,.01,4)="I '$D(DJSC) N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.PC"" D MIX^DIC1 S D=-1"
^DD(700.01,.01,12)="Choose Diagnosises marked as Pulmonary Function Test Consult Diagnosises"
^DD(700.01,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.PC"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.PC"""
^DD(700.01,.01,21,0)="^^2^2^2920311^^^^"
^DD(700.01,.01,21,1,0)="This field identifies the diagnosis sent to the PFT lab by the referring"
^DD(700.01,.01,21,2,0)="physician "
^DD(700.01,.01,"DT")="2911028"
^DD(700.01,"B","CONSULT DX",.01)=""
^DD(700.01,"GL",0,1,.01)=""
^DD(700.01,"IX",.01)=""
^DD(700.017,0)="VOLUME STUDY SUB-FIELD^^6^6"
^DD(700.017,0,"DT")="2910912"
^DD(700.017,0,"IX","B",700.017,.01)=""
^DD(700.017,0,"NM","VOLUME STUDY")=""
^DD(700.017,0,"UP")="700"
^DD(700.017,.01,0)="VOLUME STUDY TYPE^MS^B:BODY BOX;I:INERT GAS DILUTION;N:NITROGEN WASH OUT;X:X-RAY PLANIMETRY;^0;1^Q"
^DD(700.017,.01,1,0)="^.1"
^DD(700.017,.01,1,1,0)="700.017^B"
^DD(700.017,.01,1,1,1)="S ^MCAR(700,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(700.017,.01,1,1,2)="K ^MCAR(700,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(700.017,.01,1,2,0)="700^AV^MUMPS"
^DD(700.017,.01,1,2,1)="S ^MCAR(700,""AV"",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)="""""
^DD(700.017,.01,1,2,2)="K ^MCAR(700,""AV"",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)"
^DD(700.017,.01,1,2,"%D",0)="^^2^2^2920422^^"
^DD(700.017,.01,1,2,"%D",1,0)="This cross-reference indexes the date and time of the most recent volume"
^DD(700.017,.01,1,2,"%D",2,0)="study of this type for this pulmonary function test."
^DD(700.017,.01,1,2,"DT")="2900419"
^DD(700.017,.01,3)="Enter the type of Lung Volume Study done."
^DD(700.017,.01,21,0)="^^1^1^2910408^"
^DD(700.017,.01,21,1,0)="This field identifies the type of Volume Study done."
^DD(700.017,.01,23,0)="^^1^1^2921106^^^"
^DD(700.017,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.017,.01,"DT")="2910912"
^DD(700.017,1,0)="TLC^NJ5,2^^0;2^K:+X'=X!(X>15.99)!(X<.05)!(X?.E1"".""3N.N) X"
^DD(700.017,1,3)="Enter the Total Lung Capacity (TLC) measured in Liters:  .05-15.99"
^DD(700.017,1,21,0)="^^1^1^2910408^"
^DD(700.017,1,21,1,0)="This field identifies the Total Lung Capacity measured."
^DD(700.017,1,23,0)="^^1^1^2921106^^^"
^DD(700.017,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.017,1,"DT")="2900410"
^DD(700.017,2,0)="VC^NJ5,2^^0;3^K:+X'=X!(X>15.99)!(X<.05)!(X?.E1"".""3N.N) X"
^DD(700.017,2,3)="Enter the Vital Capacity (VC) measured in Liters:  .05-15.99"
^DD(700.017,2,21,0)="^^1^1^2910408^"
^DD(700.017,2,21,1,0)="This field identifies the measured Vital Capacity."
^DD(700.017,3,0)="FRC^NJ4,2^^0;4^K:+X'=X!(X>9.99)!(X<.05)!(X?.E1"".""3N.N) X"
^DD(700.017,3,3)="Enter the Functional Residual Capacity (FRC) measured in Liters:  .05-9.99"
^DD(700.017,3,21,0)="^^1^1^2910410^^"
^DD(700.017,3,21,1,0)="This field identifies the measured Functional Residual Capacity."
^DD(700.017,3,"DT")="2900410"
^DD(700.017,4,0)="RV^NJ4,2^^0;5^K:+X'=X!(X>9.99)!(X<.05)!(X?.E1"".""3N.N) X"
^DD(700.017,4,3)="Enter the Residual Volume (RV) measured in Liters:  .05-9.99"
^DD(700.017,4,21,0)="^^1^1^2910408^"
^DD(700.017,4,21,1,0)="This field identifies the measured Residual Volume."
^DD(700.017,6,0)="NOTES^F^^0;6^K:$L(X)>60!($L(X)<2) X"
^DD(700.017,6,3)="Enter notes on this volume study:  2-60 characters"
^DD(700.017,6,21,0)="^^2^2^2910408^"
^DD(700.017,6,21,1,0)="This field identifies a free text field for entering a note on the current"
^DD(700.017,6,21,2,0)="Volume Study. "
^DD(700.017,6,"DT")="2900410"
^DD(700.017,"B","FRC",3)=""
^DD(700.017,"B","NOTES",6)=""
^DD(700.017,"B","RV",4)=""
^DD(700.017,"B","TLC",1)=""
^DD(700.017,"B","VC",2)=""
^DD(700.017,"B","VOLUME STUDY TYPE",.01)=""
^DD(700.017,"GL",0,1,.01)=""
^DD(700.017,"GL",0,2,1)=""
^DD(700.017,"GL",0,3,2)=""
^DD(700.017,"GL",0,4,3)=""
^DD(700.017,"GL",0,5,4)=""
^DD(700.017,"GL",0,6,6)=""
^DD(700.017,"IX",.01)=""
^DD(700.018,0)="FLOWS STUDY SUB-FIELD^^6^8"
^DD(700.018,0,"DT")="2910917"
^DD(700.018,0,"IX","B",700.018,.01)=""
^DD(700.018,0,"NM","FLOWS STUDY")=""
^DD(700.018,0,"UP")="700"
^DD(700.018,.01,0)="FLOWS STUDY^MS^S:STANDARD STUDY;B:AFTER BRONCHODILATORS;I:AFTER INHALATION CHALLENGE;X:AFTER EXERCISE;^0;1^Q"
^DD(700.018,.01,1,0)="^.1"
^DD(700.018,.01,1,1,0)="700.018^B"
^DD(700.018,.01,1,1,1)="S ^MCAR(700,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(700.018,.01,1,1,2)="K ^MCAR(700,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(700.018,.01,1,2,0)="700^AF^MUMPS"
^DD(700.018,.01,1,2,1)="S ^MCAR(700,""AF"",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)="""""
^DD(700.018,.01,1,2,2)="K ^MCAR(700,""AF"",$P(^MCAR(700,DA(1),0),U,2),X,9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)"
^DD(700.018,.01,1,2,"%D",0)="^^2^2^2920422^"
^DD(700.018,.01,1,2,"%D",1,0)="This cross-reference indexes the date and time of the most recent flows"
^DD(700.018,.01,1,2,"%D",2,0)="study of this type for this pulmonary function test."
^DD(700.018,.01,1,2,"DT")="2900419"
^DD(700.018,.01,3)="Enter the type of Flows Study done:  Use 'S' for study without or prior to use of inhaled or administered agent, or before exercise"
^DD(700.018,.01,21,0)="^^1^1^2910408^"
^DD(700.018,.01,21,1,0)="This field identifies the type of Flow Study performed."
^DD(700.018,.01,23,0)="^^1^1^2921106^^^"
^DD(700.018,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.018,.01,"DT")="2910912"
^DD(700.018,1,0)="FVC^NJ4,2^^0;2^K:+X'=X!(X>9.99)!(X<.05)!(X?.E1"".""3N.N) X"
^DD(700.018,1,3)="Enter the Forced Vital Capacity (FVC) measured for this study in LITERS:  .05-9.99"
^DD(700.018,1,21,0)="^^1^1^2940728^^"
^DD(700.018,1,21,1,0)="This field identifies the measured Forced Vital Capacity."
^DD(700.018,1,23,0)="^^1^1^2940728^^^^"
^DD(700.018,1,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.018,1,"DT")="2900228"
^DD(700.018,2,0)="FEV1^NJ5,2^^0;3^K:+X'=X!(X>99.99)!(X<.05)!(X?.E1"".""3N.N) X"
^DD(700.018,2,3)="Enter the Forced Expired Volume in Liters: .05-99.99, 2 Decimal Digits"
^DD(700.018,2,21,0)="^^1^1^2940728^^^"
^DD(700.018,2,21,1,0)="This field identifies the measured Forced Expired Volume in 1 second"
^DD(700.018,2,23,0)="^^1^1^2940728^^^^"
^DD(700.018,2,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.018,2,"DT")="2900420"
^DD(700.018,3,0)="PF^NJ6,3^^0;4^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.018,3,3)="Enter the Peak Expiratory Flow in Liters/Sec: 0-20, 3 decimal places."
^DD(700.018,3,21,0)="^^1^1^2910408^"
^DD(700.018,3,21,1,0)="This field identifies the measured Peak Flow."
^DD(700.018,3,"DT")="2910912"
^DD(700.018,4,0)="FEF25-75^NJ6,3^^0;5^K:+X'=X!(X>25)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.018,4,3)="Enter the Forced Expiratory Flow from 25 to 75 percent in Liters/Sec:  0-25, 3 Decimal Digits"
^DD(700.018,4,21,0)="^^1^1^2910408^"
^DD(700.018,4,21,1,0)="This field identifies the measured Forced Expired Flow from 25 to 75 percent."
^DD(700.018,4,"DT")="2910912"
^DD(700.018,5,0)="FEV1/FVC^CJ8,0^^ ; ^S Y(700.018,5,1)=$S($D(^MCAR(700,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(700.018,5,1),U,3),X=$S($P(Y(700.018,5,1),U,2):X/$P(Y(700.018,5,1),U,2),1:""*******"")*100 S X=$J(X,0,0)"
^DD(700.018,5,9)="^"
^DD(700.018,5,9.01)="700.018^1;700.018^2"
^DD(700.018,5,9.1)="FEV1/FVC*100"
^DD(700.018,5,21,0)="^^2^2^2910408^"
^DD(700.018,5,21,1,0)="This computed field is the Forced Expired Volume divided by the Forced"
^DD(700.018,5,21,2,0)="Vital capacity."
^DD(700.018,5.5,0)="MVV^NJ3,0^^0;7^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700.018,5.5,3)="Enter the Maximum Voluntary Ventilation in Liters/Minute:  0-200"
^DD(700.018,5.5,21,0)="^^1^1^2910912^^"
^DD(700.018,5.5,21,1,0)="This field identifies the Maximum Voluntary Ventilation in Liters/Minute"
^DD(700.018,5.5,23,0)="^^1^1^2921106^^^"
^DD(700.018,5.5,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.018,5.5,"DT")="2910917"
^DD(700.018,6,0)="NOTES^F^^0;6^K:$L(X)>60!($L(X)<2) X"
^DD(700.018,6,3)="Enter notes on this study."
^DD(700.018,6,21,0)="^^2^2^2910408^"
^DD(700.018,6,21,1,0)="This field identifies allows the entering of a note (up to 60 characters) on"
^DD(700.018,6,21,2,0)="this Flow Study."
^DD(700.018,6,"DT")="2900228"
^DD(700.018,"B","FEF25-75",4)=""
^DD(700.018,"B","FEV1",2)=""
^DD(700.018,"B","FEV1/FVC",5)=""
^DD(700.018,"B","FLOWS STUDY",.01)=""
^DD(700.018,"B","FVC",1)=""
^DD(700.018,"B","MVV",5.5)=""
^DD(700.018,"B","NOTES",6)=""
^DD(700.018,"B","PF",3)=""
^DD(700.018,"GL",0,1,.01)=""
^DD(700.018,"GL",0,2,1)=""
^DD(700.018,"GL",0,3,2)=""
^DD(700.018,"GL",0,4,3)=""
^DD(700.018,"GL",0,5,4)=""
^DD(700.018,"GL",0,6,6)=""
^DD(700.018,"GL",0,7,5.5)=""
^DD(700.018,"IX",.01)=""
^DD(700.02,0)="BLOOD GAS SUB-FIELD^^10^11"
^DD(700.02,0,"DT")="2950320"
^DD(700.02,0,"IX","B",700.02,.01)=""
^DD(700.02,0,"NM","BLOOD GAS")=""
^DD(700.02,0,"UP")="700"
^DD(700.02,.01,0)="BLOOD GAS^MS^O:100% O2 STUDY;X:POST EXERCISE;S:SUPPLEMENTAL O2 STUDY;R:ROOM AIR;M:MAXIMUM EXERCISE;P:PRE EXERCISE;^0;1^Q"
^DD(700.02,.01,1,0)="^.1^^-1"
^DD(700.02,.01,1,1,0)="700.02^B"
^DD(700.02,.01,1,1,1)="S ^MCAR(700,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(700.02,.01,1,1,2)="K ^MCAR(700,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(700.02,.01,3)="Enter the type of Arterial Blood Gas (ABG) study done on the patient."
^DD(700.02,.01,21,0)="^^1^1^2950320^^"
^DD(700.02,.01,21,1,0)="This field identifies the type of Arterial Blood Gas Study done."
^DD(700.02,.01,23,0)="^^1^1^2950320^^^^"
^DD(700.02,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.02,.01,"DT")="2950320"
^DD(700.02,1,0)="HB^NJ4,1^^0;2^K:+X'=X!(X>25)!(X<1.1)!(X?.E1"".""2N.N) X"
^DD(700.02,1,3)="Enter the oximeter measured Hemoglobin: 1.1-25, 1 Decimal Place."
^DD(700.02,1,21,0)="^^1^1^2910410^"
^DD(700.02,1,21,1,0)="This field identifies the measured Hemoglobin value."
^DD(700.02,1,"DT")="2910912"
^DD(700.02,2,0)="pH^NJ5,3^^0;3^K:+X'=X!(X>8.5)!(X<6.5)!(X?.E1"".""4N.N) X"
^DD(700.02,2,3)="Enter the pH level: 6.5-8.5, 3 Decimal Digits"
^DD(700.02,2,21,0)="^^1^1^2910410^"
^DD(700.02,2,21,1,0)="This field identifies the measured pH level."
^DD(700.02,2,23,0)="^^1^1^2921106^^^"
^DD(700.02,2,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.02,2,"DT")="2910912"
^DD(700.02,3,0)="pCO2^NJ5,1^^0;4^K:+X'=X!(X>150)!(X<5)!(X?.E1"".""2N.N) X"
^DD(700.02,3,3)="Enter Partial Pressure of Carbon Dioxide (pCO2) in mm. Hg.: 5-150, 1 Decimal Digit"
^DD(700.02,3,21,0)="^^2^2^2910410^^"
^DD(700.02,3,21,1,0)="This field identifies the measured Arterial Carbon Dioxide Pressure in mm"
^DD(700.02,3,21,2,0)="Mercury. "
^DD(700.02,3,23,0)="^^1^1^2921106^^^"
^DD(700.02,3,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.02,3,"DT")="2910912"
^DD(700.02,4,0)="pO2^NJ5,1^^0;5^K:+X'=X!(X>725)!(X<0)!(X?.E1"".""2N.N) X"
^DD(700.02,4,3)="Enter Partial Pressure of Oxygen (pO2) in mm. Hg.: 0-725."
^DD(700.02,4,21,0)="^^1^1^2910410^"
^DD(700.02,4,21,1,0)="This field identifies the measured Arterial Oxygen Pressure in mm Mercury."
^DD(700.02,4,23,0)="^^1^1^2921106^^^"
^DD(700.02,4,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.02,4,"DT")="2910912"
^DD(700.02,5,0)="O2HB^NJ5,1^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(700.02,5,3)="Enter measured Oxyhemoglobin Saturation in percent : 0-100, 1 Decimal Place"
^DD(700.02,5,21,0)="^^1^1^2910410^"
^DD(700.02,5,21,1,0)="This field identifies the measured Hemoglobin Oxygen"
^DD(700.02,5,"DT")="2910912"
^DD(700.02,6,0)="COHB^NJ4,1^^0;7^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""2N.N) X"
^DD(700.02,6,3)="Enter the Carboxyhemoglobin Saturation in percent: 0-50, 1 Decimal Digit."
^DD(700.02,6,21,0)="^^1^1^2910410^"
^DD(700.02,6,21,1,0)="This field identifies the measured Carboxyhemoglobin Saturation"
^DD(700.02,6,"DT")="2910912"
^DD(700.02,7,0)="FiO2^NJ5,3^^0;8^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.02,7,3)="Enter the Fraction of Inspired Oxygen:  0-1, 3 Decimal Digits."
^DD(700.02,7,21,0)="^^1^1^2910410^"
^DD(700.02,7,21,1,0)="This field identifies the fraction of Inspired Oxygen"
^DD(700.02,7,"DT")="2910912"
^DD(700.02,8,0)="MHB^NJ4,1^^0;9^K:+X'=X!(X>70)!(X<0)!(X?.E1"".""2N.N) X"
^DD(700.02,8,3)="Enter the Methemoglobin Saturation in percent:  0-70, 1 Decimal Digit."
^DD(700.02,8,21,0)="^^1^1^2910410^"
^DD(700.02,8,21,1,0)="This field identifies the Methemoglobin Saturation"
^DD(700.02,8,"DT")="2910912"
^DD(700.02,9,0)="NOTES^F^^0;10^K:$L(X)>60!($L(X)<2) X"
^DD(700.02,9,3)="Enter notes on this Arterial Blood Gas Study."
^DD(700.02,9,21,0)="^^2^2^2910410^"
^DD(700.02,9,21,1,0)="This field identifies allows a 60 character note to be entered on the Arterial"
^DD(700.02,9,21,2,0)="Blood Gas study"
^DD(700.02,9,"DT")="2900228"
^DD(700.02,10,0)="PATIENT TEMPERATURE^NJ4,1^^0;11^K:+X'=X!(X>45)!(X<30)!(X?.E1"".""2N.N) X"
^DD(700.02,10,3)="Enter the patient temperature in degrees Centigrade:  30-45, 1 decimal place allowed."
^DD(700.02,10,21,0)="^^2^2^2920324^"
^DD(700.02,10,21,1,0)="This allows the user to enter the patient temperature in "
^DD(700.02,10,21,2,0)="degrees Centigrade."
^DD(700.02,10,"DT")="2910917"
^DD(700.02,"B","BLOOD GAS",.01)=""
^DD(700.02,"B","COHB",6)=""
^DD(700.02,"B","FiO2",7)=""
^DD(700.02,"B","HB",1)=""
^DD(700.02,"B","MHB",8)=""
^DD(700.02,"B","NOTES",9)=""
^DD(700.02,"B","O2HB",5)=""
^DD(700.02,"B","PATIENT TEMPERATURE",10)=""
^DD(700.02,"B","pCO2",3)=""
^DD(700.02,"B","pH",2)=""
^DD(700.02,"B","pO2",4)=""
^DD(700.02,"GL",0,1,.01)=""
^DD(700.02,"GL",0,2,1)=""
^DD(700.02,"GL",0,3,2)=""
^DD(700.02,"GL",0,4,3)=""
^DD(700.02,"GL",0,5,4)=""
^DD(700.02,"GL",0,6,5)=""
^DD(700.02,"GL",0,7,6)=""
^DD(700.02,"GL",0,8,7)=""
^DD(700.02,"GL",0,9,8)=""
^DD(700.02,"GL",0,10,9)=""
^DD(700.02,"GL",0,11,10)=""
^DD(700.02,"IX",.01)=""
^DD(700.021,0)="INTERPRETATION BY SUB-FIELD^^.01^1"
^DD(700.021,0,"DT")="2960705"
^DD(700.021,0,"IX","B",700.021,.01)=""
^DD(700.021,0,"NM","INTERPRETATION BY")=""
^DD(700.021,0,"UP")="700"
^DD(700.021,.01,0)="INTERPRETATION BY^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.021,.01,1,0)="^.1"
^DD(700.021,.01,1,1,0)="700.021^B"
^DD(700.021,.01,1,1,1)="S ^MCAR(700,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(700.021,.01,1,1,2)="K ^MCAR(700,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(700.021,.01,3)="Enter the provider who interpreted this test."
^DD(700.021,.01,12)="Check if this person holds the PROVIDER key."
^DD(700.021,.01,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(700.021,.01,21,0)="^^1^1^2910410^"
^DD(700.021,.01,21,1,0)="This field identifies the provider who interpreted the PFT"
^DD(700.021,.01,"DT")="2960705"
^DD(700.021,"B","INTERPRETATION BY",.01)=""
^DD(700.021,"GL",0,1,.01)=""
^DD(700.021,"IX",.01)=""
^DD(700.022,0)="COMP. GEN. VOLUME INTERP. SUB-FIELD^^.01^1"
^DD(700.022,0,"DT")="2900710"
^DD(700.022,0,"IX","B",700.022,.01)=""
^DD(700.022,0,"NM","COMP. GEN. VOLUME INTERP.")=""
^DD(700.022,0,"UP")="700"
^DD(700.022,.01,0)="COMP. GEN. VOLUME INTERP.^M*P693.2'^MCAR(693.2,^0;1^S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""V""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.022,.01,1,0)="^.1"
^DD(700.022,.01,1,1,0)="700.022^B"
^DD(700.022,.01,1,1,1)="S ^MCAR(700,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(700.022,.01,1,1,2)="K ^MCAR(700,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(700.022,.01,1,1,"DT")="2900425"
^DD(700.022,.01,3)=""
^DD(700.022,.01,12)="Choose Volume Interpretations"
^DD(700.022,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""V""""))"""
^DD(700.022,.01,"DT")="2900710"
^DD(700.022,"B","COMP. GEN. VOLUME INTERP.",.01)=""
^DD(700.022,"GL",0,1,.01)=""
^DD(700.022,"IX",.01)=""
^DD(700.023,0)="COMP. GEN. FLOWS INTERP. SUB-FIELD^^.01^1"
^DD(700.023,0,"DT")="2900710"
^DD(700.023,0,"IX","B",700.023,.01)=""
^DD(700.023,0,"NM","COMP. GEN. FLOWS INTERP.")=""
^DD(700.023,0,"UP")="700"
^DD(700.023,.01,0)="COMP. GEN. FLOWS INTERP.^M*P693.2'^MCAR(693.2,^0;1^S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""F""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.023,.01,1,0)="^.1"
^DD(700.023,.01,1,1,0)="700.023^B"
^DD(700.023,.01,1,1,1)="S ^MCAR(700,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(700.023,.01,1,1,2)="K ^MCAR(700,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(700.023,.01,1,1,"DT")="2900425"
^DD(700.023,.01,3)=""
^DD(700.023,.01,12)="Choose Flows Interpretation only"
^DD(700.023,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""F""""))"""
^DD(700.023,.01,"DT")="2900710"
^DD(700.023,"B","COMP. GEN. FLOWS INTERP.",.01)=""
^DD(700.023,"GL",0,1,.01)=""
^DD(700.023,"IX",.01)=""
^DD(700.024,0)="COMP. FLOW VOL. LOOP INTERP. SUB-FIELD^^.01^1"
^DD(700.024,0,"DT")="2900710"
^DD(700.024,0,"IX","B",700.024,.01)=""
^DD(700.024,0,"NM","COMP. FLOW VOL. LOOP INTERP.")=""
^DD(700.024,0,"UP")="700"
^DD(700.024,.01,0)="COMP. FLOW VOL. LOOP INTERP.^M*P693.2'^MCAR(693.2,^0;1^S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""L""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.024,.01,1,0)="^.1"
^DD(700.024,.01,1,1,0)="700.024^B"
^DD(700.024,.01,1,1,1)="S ^MCAR(700,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(700.024,.01,1,1,2)="K ^MCAR(700,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(700.024,.01,1,1,"DT")="2900425"
^DD(700.024,.01,3)=""
^DD(700.024,.01,12)="Choose Flow Volume Loop Interpretations only"
^DD(700.024,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""L""""))"""
^DD(700.024,.01,"DT")="2900710"
^DD(700.024,"B","COMP. FLOW VOL. LOOP INTERP.",.01)=""
^DD(700.024,"GL",0,1,.01)=""
^DD(700.024,"IX",.01)=""
^DD(700.026,0)="COMP. GEN. DIFFUSION INTERP. SUB-FIELD^^.01^1"
^DD(700.026,0,"DT")="2900710"
^DD(700.026,0,"IX","B",700.026,.01)=""
^DD(700.026,0,"NM","COMP. GEN. DIFFUSION INTERP.")=""
^DD(700.026,0,"UP")="700"
^DD(700.026,.01,0)="COMP. GEN. DIFFUSION INTERP.^M*P693.2'^MCAR(693.2,^0;1^S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""D""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.026,.01,1,0)="^.1"
^DD(700.026,.01,1,1,0)="700.026^B"
^DD(700.026,.01,1,1,1)="S ^MCAR(700,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(700.026,.01,1,1,2)="K ^MCAR(700,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(700.026,.01,1,1,"DT")="2900425"
^DD(700.026,.01,3)=""
^DD(700.026,.01,12)="Choose Diffusion Interpretation Entries only"
^DD(700.026,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""D""""))"""
^DD(700.026,.01,"DT")="2900710"
^DD(700.026,"B","COMP. GEN. DIFFUSION INTERP.",.01)=""
^DD(700.026,"GL",0,1,.01)=""
^DD(700.026,"IX",.01)=""
^DD(700.027,0)="COMP. GEN. ABG INTERP. SUB-FIELD^^.01^1"
^DD(700.027,0,"DT")="2900710"
^DD(700.027,0,"IX","B",700.027,.01)=""
^DD(700.027,0,"NM","COMP. GEN. ABG INTERP.")=""
^DD(700.027,0,"UP")="700"
^DD(700.027,.01,0)="COMP. GEN. ABG INTERP.^M*P693.2'^MCAR(693.2,^0;1^S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""A""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.027,.01,1,0)="^.1"
^DD(700.027,.01,1,1,0)="700.027^B"
^DD(700.027,.01,1,1,1)="S ^MCAR(700,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(700.027,.01,1,1,2)="K ^MCAR(700,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(700.027,.01,1,1,"DT")="2900425"
^DD(700.027,.01,3)=""
^DD(700.027,.01,12)="Choose Arterial Blood Gases Interpretations only"
^DD(700.027,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""A""""))"""
^DD(700.027,.01,"DT")="2900710"
^DD(700.027,"B","COMP. GEN. ABG INTERP.",.01)=""
^DD(700.027,"GL",0,1,.01)=""
^DD(700.027,"IX",.01)=""
^DD(700.029,0)="IMPRESSION SUB-FIELD^^.01^1"
^DD(700.029,0,"DT")="2900604"
^DD(700.029,0,"IX","B",700.029,.01)=""
^DD(700.029,0,"NM","IMPRESSION")=""
^DD(700.029,0,"UP")="700"
^DD(700.029,.01,0)="IMPRESSION^M*P693'^MCAR(693,^0;1^S DIC(""S"")=""I $P(^(0),U,4)=""""P"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.029,.01,1,0)="^.1"
^DD(700.029,.01,1,1,0)="700.029^B"
^DD(700.029,.01,1,1,1)="S ^MCAR(700,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(700.029,.01,1,1,2)="K ^MCAR(700,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(700.029,.01,3)="Enter the Impression(s) for this test."
^DD(700.029,.01,12)="SCREEN FOR PFT IMPRESSIONS"
^DD(700.029,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""P"""""""
^DD(700.029,.01,"DT")="2900604"
^DD(700.029,"B","IMPRESSION",.01)=""
^DD(700.029,"GL",0,1,.01)=""
^DD(700.029,"IX",.01)=""
^DD(700.03,0)="COMMENTS AND RECOMMENDATIONS SUB-FIELD^^.01^1"
^DD(700.03,0,"NM","COMMENTS AND RECOMMENDATIONS")=""
^DD(700.03,0,"UP")="700"
^DD(700.03,.01,0)="COMMENTS AND RECOMMENDATIONS^W^^0;1^Q"
^DD(700.03,.01,3)="Enter any comments and recommendations made for this test."
^DD(700.03,.01,21,0)="^^2^2^2940609^^"
^DD(700.03,.01,21,1,0)="This field identifies a word processing field which allows comments and"
^DD(700.03,.01,21,2,0)="recommendations to be entered by the interpreter."
^DD(700.03,.01,"DT")="2900605"
^DD(700.03,"B","COMMENTS AND RECOMMENDATIONS",.01)=""
^DD(700.03,"GL",0,1,.01)=""
^DD(700.032,0)="SPECIAL STUDY SUB-FIELD^^40^39"
^DD(700.032,0,"DT")="2920821"
^DD(700.032,0,"IX","B",700.032,.01)=""
^DD(700.032,0,"NM","SPECIAL STUDY")=""
^DD(700.032,0,"UP")="700"
^DD(700.032,.01,0)="SPECIAL STUDY^MSX^E:EXERCISE;M:MECHANICS;S:SMALL AIRWAY;P:MAXIMUM PRESSURES;^0;1^D ^MCPFTSS"
^DD(700.032,.01,1,0)="^.1"
^DD(700.032,.01,1,1,0)="700.032^B"
^DD(700.032,.01,1,1,1)="S ^MCAR(700,DA(1),""S"",""B"",$E(X,1,30),DA)="""""
^DD(700.032,.01,1,1,2)="K ^MCAR(700,DA(1),""S"",""B"",$E(X,1,30),DA)"
^DD(700.032,.01,1,2,0)="700^AS^MUMPS"
^DD(700.032,.01,1,2,1)="S ^MCAR(700,""AS"",$P(^MCAR(700,DA(1),0),U,2),$E(X,1,30),9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)="""""
^DD(700.032,.01,1,2,2)="K ^MCAR(700,""AS"",$P(^MCAR(700,DA(1),0),U,2),$E(X,1,30),9999999.9999-$P(^MCAR(700,DA(1),0),U),DA(1),DA)"
^DD(700.032,.01,1,2,"%D",0)="^^2^2^2920422^"
^DD(700.032,.01,1,2,"%D",1,0)="This cross-reference indexes the date and time of the most recent special"
^DD(700.032,.01,1,2,"%D",2,0)="study of this type for this pulmonary function test."
^DD(700.032,.01,3)="Enter Code for type of special study."
^DD(700.032,.01,21,0)="^^2^2^2940609^^^^"
^DD(700.032,.01,21,1,0)="This field identifies the type of special study done:  Exercise, Mechanics,"
^DD(700.032,.01,21,2,0)="Small Airway, or Maximum Pressures."
^DD(700.032,.01,"DT")="2920821"
^DD(700.032,1,0)="RESISTANCE,RAW^NJ4,1^^0;2^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""2N.N) X"
^DD(700.032,1,3)="Enter the Specific Airway Resistance in cm H20/Liters per second:  0-20, 1 decimal digit allowed"
^DD(700.032,1,21,0)="^^2^2^2940609^^"
^DD(700.032,1,21,1,0)="This field identifies the Specific Airway Resistance in cm H2O/Liters per"
^DD(700.032,1,21,2,0)="second.  Used in the Mechanics Special Study."
^DD(700.032,1,"DT")="2900911"
^DD(700.032,2,0)="RESISTANCE,SGAW^NJ5,3^^0;3^K:+X'=X!(X>.5)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,2,3)="Enter the Specific Airway Conductance in Liters per second/cm H2O: 0-.5, 3 decimal digits allowed"
^DD(700.032,2,21,0)="^^2^2^2940609^^"
^DD(700.032,2,21,1,0)="This field identifies the Specific Airway Conductance in Liters per second/cm"
^DD(700.032,2,21,2,0)="H2O.  Used in the Mechanics Special Study."
^DD(700.032,2,"DT")="2900911"
^DD(700.032,3,0)="COMPLIANCE,CST^NJ5,3^^0;4^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,3,3)="Enter the Static Compliance in Liters/cm H2O: 0-1, 3 decimal digits allowed"
^DD(700.032,3,21,0)="^^2^2^2910410^"
^DD(700.032,3,21,1,0)="This field identifies the Static Compliance in Liters/cm H2O.  Used in the"
^DD(700.032,3,21,2,0)="Mechanics Special Study."
^DD(700.032,3,"DT")="2900911"
^DD(700.032,4,0)="COMPLIANCE,CDYN^NJ5,3^^0;5^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,4,3)="Enter the Dynamic Compliance in Liters/cm H2O: 0-1, 3 decimal digits allowed"
^DD(700.032,4,21,0)="^^2^2^2940609^^"
^DD(700.032,4,21,1,0)="This field identifies the Dynamic Compliance in Liters/cm H2O.  Used in the"
^DD(700.032,4,21,2,0)="Small Airway Special Study."
^DD(700.032,4,"DT")="2900911"
^DD(700.032,5,0)="FEF50 HE-AIR^NJ6,2^^0;6^K:+X'=X!(X>100)!(X<10)!(X?.E1"".""3N.N) X"
^DD(700.032,5,3)="Enter the Maximum Expiratory at 50% of Vital Capacity breathing air in Liters/second: 10-100, 2 decimal digits allowed"
^DD(700.032,5,21,0)="^^2^2^2940609^^^"
^DD(700.032,5,21,1,0)="This field identifies the Maximum Expiratory at 50% of Vital Capacity"
^DD(700.032,5,21,2,0)="breathing air in Liters/second.  Used in the Small Airway Special Study."
^DD(700.032,5,"DT")="2900911"
^DD(700.032,6,0)="VISOV^NJ6,3^^0;7^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,6,3)="Enter the Lung Volume at which Helium & Air Flow Tracings meet in Liters: 0-10, 3 decimal digits allowed"
^DD(700.032,6,21,0)="^^2^2^2940609^^"
^DD(700.032,6,21,1,0)="This field identifies the Lung Volume at which Helium & Air Flow Tracings meet"
^DD(700.032,6,21,2,0)="in Liters. Used in the Small Airway Special Study."
^DD(700.032,6,"DT")="2900910"
^DD(700.032,7,0)="CV^NJ5,2^^0;8^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,7,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(700.032,7,21,0)="^^2^2^2940609^^^"
^DD(700.032,7,21,1,0)="This field identifies the Closing Volume in Liters.  Used in the Small Airway"
^DD(700.032,7,21,2,0)="Special Study"
^DD(700.032,7,"DT")="2920821"
^DD(700.032,8,0)="CC^NJ6,2^^0;9^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,8,3)="Enter the Closing Capacity in Liters: 0-500, 2 Decimal Digits"
^DD(700.032,8,21,0)="^^2^2^2940609^^"
^DD(700.032,8,21,1,0)="This field identifies the Closing Capacity in Liters.  Used in the Small"
^DD(700.032,8,21,2,0)="Airway Special Study."
^DD(700.032,8,"DT")="2910305"
^DD(700.032,9,0)="VALVE DEAD SPACE^NJ6,2^^0;10^K:+X'=X!(X>100)!(X<5)!(X?.E1"".""3N.N) X"
^DD(700.032,9,3)="Enter the Valve Dead Space: 5-100, 2 Decimal Digits"
^DD(700.032,9,"DT")="2900308"
^DD(700.032,10,0)="VEMAX(BTPS)^NJ3,0^^1;1^K:+X'=X!(X>150)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700.032,10,3)="Type a Number between 0 and 150, 0 Decimal Digits"
^DD(700.032,10,21,0)="^^2^2^2940609^^^"
^DD(700.032,10,21,1,0)="This field identifies the Maximum Expiratory Minute Ventilation at Peak"
^DD(700.032,10,21,2,0)="Exercise in ml/beat.  Used in the Exercise Special Study."
^DD(700.032,10,"DT")="2920821"
^DD(700.032,11,0)="BR^NJ7,3^^1;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,11,3)="Enter the Breathing Reserve in liters:  0- 100, 3 Decimal Digits"
^DD(700.032,11,21,0)="^^2^2^2940609^^"
^DD(700.032,11,21,1,0)="This field identifies the Breathing Reserve in Liters.  Used in the Exercise"
^DD(700.032,11,21,2,0)="Special Study."
^DD(700.032,11,"DT")="2910304"
^DD(700.032,12,0)="VD/VT REST^NJ4,2^^1;14^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,12,3)="Enter the Resting Dead Space to Tidal Volume Ratio: 0- 1, 2 Decimal Digits"
^DD(700.032,12,21,0)="^^2^2^2940609^^"
^DD(700.032,12,21,1,0)="This field identifies the Resting Dead Space to Tidal Volume Ratio.  Used in"
^DD(700.032,12,21,2,0)="the Exercise Special Study."
^DD(700.032,12,"DT")="2910304"
^DD(700.032,12.3,0)="VD/VT MAX^NJ4,2^^1;15^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,12.3,3)="Enter the Maximum Dead Space to Tidal Volume Ratio: 0-1, 2 Decimal Digits"
^DD(700.032,12.3,21,0)="^^2^2^2910410^"
^DD(700.032,12.3,21,1,0)="This field identifies the Maximum Dead Space to Tidal Volume Ratio.  Used in"
^DD(700.032,12.3,21,2,0)="the Exercise Special Study."
^DD(700.032,12.3,"DT")="2910304"
^DD(700.032,12.6,0)="VE/VCO2, AT^NJ6,2^^1;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,12.6,3)="Enter The Ventilatory Equivalent for CO2 at Anaerobic Threshold  0-100, 2 Decimal Digits"
^DD(700.032,12.6,21,0)="^^2^2^2940609^^"
^DD(700.032,12.6,21,1,0)="This field identifies the Ventilatory Equivalent for Carbon Dioxide at"
^DD(700.032,12.6,21,2,0)="Anaerobic Threshold. Used in the Exercise Special Study."
^DD(700.032,12.6,"DT")="2910304"
^DD(700.032,13,0)="CV^NJ6,2^^1;4^K:+X'=X!(X>500)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,13,3)="Enter the Closing Volume in Liters: 0-500, 2 Decimal Digits allowed"
^DD(700.032,13,"DT")="2900910"
^DD(700.032,14,0)="VE REST(BTPS)^NJ4,1^^1;5^K:+X'=X!(X>40)!(X<0)!(X?.E1"".""2N.N) X"
^DD(700.032,14,3)="Type a Number between 0 and 40, 1 Decimal Digit"
^DD(700.032,14,10)=""
^DD(700.032,14,21,0)="^^2^2^2940609^^^"
^DD(700.032,14,21,1,0)="This field identifies the Expiratory Minute Ventilation at Rest in ml/beat. "
^DD(700.032,14,21,2,0)="Used in the Exercise Special Study."
^DD(700.032,14,"DT")="2920821"
^DD(700.032,15,0)="VO2 REST^NJ5,3^^1;6^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,15,3)="Enter the Oxygen Uptake at Rest in Liters/Minute: 0-5, 3 decimal digits allowed"
^DD(700.032,15,21,0)="^^2^2^2940609^^^"
^DD(700.032,15,21,1,0)="This field identifies the Oxygen Uptake at Rest in Liters/Minute.  Used in the"
^DD(700.032,15,21,2,0)="Exercise Special Study."
^DD(700.032,15,"DT")="2900911"
^DD(700.032,16,0)="VO2 MAX^NJ6,3^^1;7^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,16,3)="Type a Number between 0 and 10, 3 Decimal Digits"
^DD(700.032,16,21,0)="^^2^2^2940609^^^"
^DD(700.032,16,21,1,0)="This field identifies the Oxygen Uptake at Peak Exercise in Liters/Minute. "
^DD(700.032,16,21,2,0)="Used in the Exercise Special Study."
^DD(700.032,16,"DT")="2920821"
^DD(700.032,16.5,0)="AT^NJ6,3^^1;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,16.5,3)="Enter the Anaerobic Threshold in Liters: 0- 10, 3 Decimal Digits"
^DD(700.032,16.5,21,0)="^^2^2^2940609^^"
^DD(700.032,16.5,21,1,0)="This field identifies the Anaerobic Threshold in Liters.  Used in the Exercise"
^DD(700.032,16.5,21,2,0)="Special Study."
^DD(700.032,16.5,"DT")="2910304"
^DD(700.032,17,0)="HR REST^NJ6,2^^1;8^K:+X'=X!(X>150)!(X<50)!(X?.E1"".""3N.N) X"
^DD(700.032,17,3)="Enter the Heart Rate at Rest: 50-150, 2 Decimal Digits"
^DD(700.032,17,21,0)="^^2^2^2940609^^"
^DD(700.032,17,21,1,0)="This field identifies the Heart Rate at Rest.  Used in the Exercise Special"
^DD(700.032,17,21,2,0)="Study. "
^DD(700.032,17,"DT")="2900308"
^DD(700.032,18,0)="HR MAX^NJ3,0^^1;9^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700.032,18,3)="Enter the Heart Rate at Peak Exercise in beats/minute: 0-300, no decimal digits"
^DD(700.032,18,21,0)="^^2^2^2940609^^"
^DD(700.032,18,21,1,0)="This field identifies the Heart Rate at Peak Exercise in beats/minute.  Used"
^DD(700.032,18,21,2,0)="in the Exercise Special Study."
^DD(700.032,18,"DT")="2900910"
^DD(700.032,18.2,0)="VO2/HR^NJ7,3^^1;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,18.2,3)="Enter the Oxygen Pulse Maximum in milliliters per beat: 0- 100, 3 Decimal Digits"
^DD(700.032,18.2,21,0)="^^2^2^2920821^^^"
^DD(700.032,18.2,21,1,0)="This field identifies the Oxygen Pulse Maximum in milliliters per beat."
^DD(700.032,18.2,21,2,0)="  Used in the Exercise Special Study."
^DD(700.032,18.2,"DT")="2910304"
^DD(700.032,18.4,0)="BP MAX^FX^^1;12^K:$L(X)>7!($L(X)<4)!'(X?2.3N1""/""1.3N)!($P(X,""/"")<80)!($P(X,""/"")>300)!($P(X,""/"",2)<0)!($P(X,""/"",2)>150) X"
^DD(700.032,18.4,3)="Enter the Maximum Blood Pressure in the Format:  Systolic/Diastolic with the Systolic number range 80-300 and the Diastolic number range 0-150"
^DD(700.032,18.4,21,0)="^^2^2^2920821^^^^"
^DD(700.032,18.4,21,1,0)="This field identifies the Maximum Blood Pressure.  Used in the Exercise"
^DD(700.032,18.4,21,2,0)="Special Study. "
^DD(700.032,18.4,"DT")="2910305"
^DD(700.032,18.6,0)="EKG^S^N:NORMAL;A:ABNORMAL;^1;13^Q"
^DD(700.032,18.6,3)="Enter Code for Normal or Abnormal EKG Special Study."
^DD(700.032,18.6,21,0)="^^2^2^2910410^^"
^DD(700.032,18.6,21,1,0)="This field identifies whether the EKG was Normal or Abnormal.  Used in the"
^DD(700.032,18.6,21,2,0)="Exercise Special Study."
^DD(700.032,18.6,"DT")="2910304"
^DD(700.032,19,0)="RR REST^NJ5,2^^1;10^K:+X'=X!(X>40)!(X<10)!(X?.E1"".""3N.N) X"
^DD(700.032,19,3)="Enter the Respiratory Rate at Rest: 10-40, 2 Decimal Digits"
^DD(700.032,19,21,0)="^^2^2^2940609^^"
^DD(700.032,19,21,1,0)="This field identifies the Respiratory Rate at Rest.  Used in the Exercise"
^DD(700.032,19,21,2,0)="Special Study. "
^DD(700.032,19,"DT")="2900604"
^DD(700.032,20,0)="RR MAX^NJ5,2^^2;1^K:+X'=X!(X>80)!(X<15)!(X?.E1"".""3N.N) X"
^DD(700.032,20,3)="Enter the Respiratory Rate at Peak Exercise: 15-80, 2 Decimal Digits"
^DD(700.032,20,21,0)="^^2^2^2940609^^"
^DD(700.032,20,21,1,0)="This field identifies the Respiratory Rate at Peak Exercise.  Used in the"
^DD(700.032,20,21,2,0)="Exercise Special Study."
^DD(700.032,20,"DT")="2900604"
^DD(700.032,21,0)="W MAX^NJ7,2^^2;2^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,21,3)="Type a Number between 0 and 1000, 2 Decimal Digits"
^DD(700.032,21,21,0)="^^2^2^2940609^^^^"
^DD(700.032,21,21,1,0)="This field identifies the Work Rate in Watts.  Used in the Exercise Special"
^DD(700.032,21,21,2,0)="Study. "
^DD(700.032,21,"DT")="2920821"
^DD(700.032,21.5,0)="WRI/WRT^NJ6,3^^2;6^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.032,21.5,3)="Enter The Work Rate Increment/ Work Rate Time Interval in Watts per minute: 0-50, 3 Decimal Digits"
^DD(700.032,21.5,21,0)="^^2^2^2910410^"
^DD(700.032,21.5,21,1,0)="This field identifies the Work Rate Increment/Work Rate Time Interval ratio in"
^DD(700.032,21.5,21,2,0)="Watts per minute.  Used in the Exercise Special Study."
^DD(700.032,21.5,"DT")="2910304"
^DD(700.032,22,0)="TOTAL TIME^NJ7,2^^2;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,22,3)="Type a Number between 0 and 9999, 2 Decimal Digits"
^DD(700.032,22,21,0)="^^2^2^2940609^^^^"
^DD(700.032,22,21,1,0)="This field identifies the Total Time in minutes of Exercise.  Used in the"
^DD(700.032,22,21,2,0)="Exercise Special Study."
^DD(700.032,22,"DT")="2920821"
^DD(700.032,22.5,0)="HCO3 CHANGE^NJ2,0^^2;10^K:+X'=X!(X>25)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700.032,22.5,3)="Type a Number between 0 and 25, 0 Decimal Digits"
^DD(700.032,22.5,21,0)="^^2^2^2920821^^^"
^DD(700.032,22.5,21,1,0)="This field identifies the change in bicarbonate IN mEq/l."
^DD(700.032,22.5,21,2,0)="Used in the Exercise Special Study. "
^DD(700.032,22.5,"DT")="2920821"
^DD(700.032,23,0)="MAX SPEED^NJ5,2^^2;4^K:+X'=X!(X>25)!(X<1)!(X?.E1"".""3N.N) X"
^DD(700.032,23,3)="Type a Number between 1 and 25, 2 Decimal Digits"
^DD(700.032,23,21,0)="^^2^2^2940609^^^"
^DD(700.032,23,21,1,0)="This field identifies the Maximum Treadmill Speed in MPH at Peak Exercise. "
^DD(700.032,23,21,2,0)="Used in the Exercise Special Study."
^DD(700.032,23,"DT")="2920821"
^DD(700.032,24,0)="MAX GRADE^NJ5,2^^2;5^K:+X'=X!(X>40)!(X<0)!(X?.E1"".""3N.N) X"
^DD(700.032,24,3)="Enter the Maximum Treadmill Grade at Peak Exercise: 0-40, 2 Decimal Digits"
^DD(700.032,24,21,0)="^^2^2^2940609^^"
^DD(700.032,24,21,1,0)="This field identifies the Maximum Treadmill Grade at Peak Exercise.  Used in"
^DD(700.032,24,21,2,0)="the Exercise Special Study."
^DD(700.032,24,"DT")="2900308"
^DD(700.032,28,0)="EXERCISE TESTING MODE^S^1:TREADMILL;2:BIKE ERGOMETER;3:HAND ERGOMETER;^2;9^Q"
^DD(700.032,28,3)="Enter Code for mode of testing."
^DD(700.032,28,21,0)="^^1^1^2940609^^"
^DD(700.032,28,21,1,0)="This field identifies the mode of testing used for an Exercise Special Study."
^DD(700.032,28,"DT")="2900604"
^DD(700.032,29,0)="REASON FOR STOPPING^700.3229PA^^3;0"
^DD(700.032,29,12)="Choose Reason for Stopping assosciated with this special study"
^DD(700.032,29,12.1)="S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""PF"""",+Y))"""
^DD(700.032,29,21,0)="^^2^2^2940609^^"
^DD(700.032,29,21,1,0)="This field identifies the Reason for Stopping an Exercise Special Study. This"
^DD(700.032,29,21,2,0)="subfield points to the REASON (MEDICINE) File."
^DD(700.032,30,0)="OTHER REASON FOR STOPPING^700.042^^4;0"
^DD(700.032,30,21,0)="^^2^2^2910410^"
^DD(700.032,30,21,1,0)="This field identifies a word-processing field to enter Reason(s) for Stopping"
^DD(700.032,30,21,2,0)="for Exercise Special Studies that are not in the REASON (MEDICINE) File."
^DD(700.032,35,0)="PIMAX^NJ3,0^^2;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(700.032,35,3)="Enter the Maximum Inspiratory Pressure in cm H2O: 0-100, 0 Decimal Digits"
^DD(700.032,35,21,0)="^^2^2^2910410^"
^DD(700.032,35,21,1,0)="This field identifies the Maximum Inspiratory Pressure in cm H2O.  Only"
^DD(700.032,35,21,2,0)="element of the Maximum Pressures Special Study."
^DD(700.032,35,"DT")="2910305"
^DD(700.032,39,0)="PATIENT EFFORT (SPEC. STUDIES)^S^G:GOOD;E:EXCELLENT;P:POOR;^2;11^Q"
^DD(700.032,39,"DT")="2910318"
^DD(700.032,40,0)="NOTES^F^^2;8^K:$L(X)>60!($L(X)<2) X"
^DD(700.032,40,3)="Answer must be 2-60 characters in length."
^DD(700.032,40,21,0)="^^2^2^2910410^"
^DD(700.032,40,21,1,0)="This field identifies a 60 character Free Text field which allows the user to"
^DD(700.032,40,21,2,0)="enter a note on the Special Study."
^DD(700.032,40,"DT")="2910305"
^DD(700.032,"B","AT",16.5)=""
^DD(700.032,"B","BP MAX",18.4)=""
^DD(700.032,"B","BR",11)=""
^DD(700.032,"B","CC",8)=""
^DD(700.032,"B","COMPLIANCE,CDYN",4)=""
^DD(700.032,"B","COMPLIANCE,CST",3)=""
^DD(700.032,"B","CV",7)=""
^DD(700.032,"B","CV",13)=""
^DD(700.032,"B","EKG",18.6)=""
^DD(700.032,"B","EXERCISE TESTING MODE",28)=""
^DD(700.032,"B","FEF50 HE-AIR",5)=""
^DD(700.032,"B","HCO3 CHANGE",22.5)=""
^DD(700.032,"B","HR MAX",18)=""
^DD(700.032,"B","HR REST",17)=""
^DD(700.032,"B","MAX GRADE",24)=""
^DD(700.032,"B","MAX SPEED",23)=""
^DD(700.032,"B","NOTES",40)=""
^DD(700.032,"B","OTHER REASON FOR STOPPING",30)=""
^DD(700.032,"B","PATIENT EFFORT (SPEC. STUDIES)",39)=""
^DD(700.032,"B","PIMAX",35)=""
^DD(700.032,"B","REASON FOR STOPPING",29)=""
^DD(700.032,"B","RESISTANCE,RAW",1)=""
^DD(700.032,"B","RESISTANCE,SGAW",2)=""
^DD(700.032,"B","RR MAX",20)=""
^DD(700.032,"B","RR REST",19)=""
^DD(700.032,"B","SPECIAL STUDY",.01)=""
^DD(700.032,"B","TOTAL TIME",22)=""
^DD(700.032,"B","VALVE DEAD SPACE",9)=""
^DD(700.032,"B","VD/VT MAX",12.3)=""
^DD(700.032,"B","VD/VT REST",12)=""
^DD(700.032,"B","VE REST(BTPS)",14)=""
^DD(700.032,"B","VE/VCO2, AT",12.6)=""
^DD(700.032,"B","VEMAX(BTPS)",10)=""
^DD(700.032,"B","VISOV",6)=""
^DD(700.032,"B","VO2 MAX",16)=""
^DD(700.032,"B","VO2 REST",15)=""
^DD(700.032,"B","VO2/HR",18.2)=""
^DD(700.032,"B","W MAX",21)=""
^DD(700.032,"B","WRI/WRT",21.5)=""
^DD(700.032,"GL",0,1,.01)=""
^DD(700.032,"GL",0,2,1)=""
^DD(700.032,"GL",0,3,2)=""
^DD(700.032,"GL",0,4,3)=""
^DD(700.032,"GL",0,5,4)=""
^DD(700.032,"GL",0,6,5)=""
^DD(700.032,"GL",0,7,6)=""
^DD(700.032,"GL",0,8,7)=""
^DD(700.032,"GL",0,9,8)=""
^DD(700.032,"GL",0,10,9)=""
^DD(700.032,"GL",1,1,10)=""
^DD(700.032,"GL",1,2,11)=""
^DD(700.032,"GL",1,3,16.5)=""
^DD(700.032,"GL",1,4,13)=""
^DD(700.032,"GL",1,5,14)=""
^DD(700.032,"GL",1,6,15)=""
^DD(700.032,"GL",1,7,16)=""
^DD(700.032,"GL",1,8,17)=""
^DD(700.032,"GL",1,9,18)=""
^DD(700.032,"GL",1,10,19)=""
^DD(700.032,"GL",1,11,18.2)=""
^DD(700.032,"GL",1,12,18.4)=""
^DD(700.032,"GL",1,13,18.6)=""
^DD(700.032,"GL",1,14,12)=""
^DD(700.032,"GL",1,15,12.3)=""
^DD(700.032,"GL",1,16,12.6)=""
^DD(700.032,"GL",2,1,20)=""
^DD(700.032,"GL",2,2,21)=""
^DD(700.032,"GL",2,3,22)=""
^DD(700.032,"GL",2,4,23)=""
^DD(700.032,"GL",2,5,24)=""
^DD(700.032,"GL",2,6,21.5)=""
^DD(700.032,"GL",2,7,35)=""
^DD(700.032,"GL",2,8,40)=""
^DD(700.032,"GL",2,9,28)=""
^DD(700.032,"GL",2,10,22.5)=""
^DD(700.032,"GL",2,11,39)=""
^DD(700.032,"GL",3,0,29)=""
^DD(700.032,"GL",4,0,30)=""
^DD(700.032,"IX",.01)=""
^DD(700.032,"SB",700.042,30)=""
^DD(700.032,"SB",700.3229,29)=""
^DD(700.033,0)="COMP. GENERATED INTERPRETATION SUB-FIELD^^1^2"
^DD(700.033,0,"DT")="2900710"
^DD(700.033,0,"IX","B",700.033,.01)=""
^DD(700.033,0,"NM","COMP. GENERATED INTERPRETATION")=""
^DD(700.033,0,"UP")="700"
^DD(700.033,.01,0)="COMP. GENERATED INTERPRETATION^P693.2'^MCAR(693.2,^0;1^Q"
^DD(700.033,.01,1,0)="^.1"
^DD(700.033,.01,1,1,0)="700.033^B"
^DD(700.033,.01,1,1,1)="S ^MCAR(700,DA(1),24,""B"",$E(X,1,30),DA)="""""
^DD(700.033,.01,1,1,2)="K ^MCAR(700,DA(1),24,""B"",$E(X,1,30),DA)"
^DD(700.033,.01,1,1,"DT")="2900425"
^DD(700.033,.01,3)="This field stores Computer Generated Interpretation.  Pointer to Interpretation File (#693.2)."
^DD(700.033,.01,12)="Choose Special Studies Interpretations only"
^DD(700.033,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(693.2,+Y,1,""""B"""",""""S""""))"""
^DD(700.033,.01,21,0)="^^1^1^2930107^^"
^DD(700.033,.01,21,1,0)="This field identifies a computer generated interpretation for the PFT."
^DD(700.033,.01,"DT")="2910305"
^DD(700.033,1,0)="ACCEPTED?^S^Y:YES;N:NO;^0;2^Q"
^DD(700.033,1,3)="Enter Y for Yes, N for N if the Interpreter accepted the Computer Generated Interpretation."
^DD(700.033,1,21,0)="^^3^3^2930107^^"
^DD(700.033,1,21,1,0)="This field tell whether or not the Interpreter accepted the Computer"
^DD(700.033,1,21,2,0)="Generated Interpretation.  The Interpretation will appear on the report"
^DD(700.033,1,21,3,0)="ONLY IF the Interpreter accepted the Interpretation."
^DD(700.033,1,"DT")="2910327"
^DD(700.033,"B","ACCEPTED?",1)=""
^DD(700.033,"B","COMP. GENERATED INTERPRETATION",.01)=""
^DD(700.033,"GL",0,1,.01)=""
^DD(700.033,"GL",0,2,1)=""
^DD(700.033,"IX",.01)=""
^DD(700.04,0)="FREE TEXT INTERPRETATION SUB-FIELD^^.01^1"
^DD(700.04,0,"DT")="2900604"
^DD(700.04,0,"IX","B",700.04,.01)=""
^DD(700.04,0,"NM","FREE TEXT INTERPRETATION")=""
^DD(700.04,0,"UP")="700"
^DD(700.04,.01,0)="FREE TEXT INTERPRETATION^W^^0;1^Q"
^DD(700.04,.01,1,0)="^.1"
^DD(700.04,.01,1,1,0)="700.04^B"
^DD(700.04,.01,1,1,1)="S ^MCAR(700,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(700.04,.01,1,1,2)="K ^MCAR(700,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(700.04,.01,3)="Enter the free text interpretation in this word-processing field."
^DD(700.04,.01,21,0)="^^3^3^2910410^"
^DD(700.04,.01,21,1,0)="This field identifies a word processing field which allows the Interpreter to"
^DD(700.04,.01,21,2,0)="enter Interpretation(s) in addition to , or instead of, the Computer Generated"
^DD(700.04,.01,21,3,0)="Interpretations."
^DD(700.04,.01,"DT")="2910315"
^DD(700.04,"B","FREE TEXT INTERPRETATION",.01)=""
^DD(700.04,"GL",0,1,.01)=""
^DD(700.04,"IX",.01)=""
^DD(700.041,0)="OTHER REASON FOR STOPPING SUB-FIELD^^.01^1"
^DD(700.041,0,"DT")="2900604"
^DD(700.041,0,"NM","OTHER REASON FOR STOPPING")=""
^DD(700.041,0,"UP")="700"
^DD(700.041,.01,0)="OTHER REASON FOR STOPPING^W^^0;1^Q"
^DD(700.041,.01,"DT")="2900604"
^DD(700.041,"B","OTHER REASON FOR STOPPING",.01)=""
^DD(700.041,"GL",0,1,.01)=""
^DD(700.042,0)="OTHER REASON FOR STOPPING SUB-FIELD^^.01^1"
^DD(700.042,0,"NM","OTHER REASON FOR STOPPING")=""
^DD(700.042,0,"UP")="700.032"
^DD(700.042,.01,0)="OTHER REASON FOR STOPPING^W^^0;1^Q"
^DD(700.042,.01,3)="Enter Reason for Stopping in this word processing field."
^DD(700.042,.01,21,0)="^^2^2^2910410^"
^DD(700.042,.01,21,1,0)="This field identifies a word-processing field to enter Reason(s) for Stopping"
^DD(700.042,.01,21,2,0)="for Exercise Special Studies that are not in the REASON (MEDICINE) File."
^DD(700.042,.01,"DT")="2910102"
^DD(700.042,"B","OTHER REASON FOR STOPPING",.01)=""
^DD(700.042,"GL",0,1,.01)=""
^DD(700.05,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(700.05,0,"DT")="2930310"
^DD(700.05,0,"IX","B",700.05,.01)=""
^DD(700.05,0,"NM","ICD DIAGNOSIS")=""
^DD(700.05,0,"UP")="700"
^DD(700.05,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(700.05,.01,1,0)="^.1"
^DD(700.05,.01,1,1,0)="700.05^B"
^DD(700.05,.01,1,1,1)="S ^MCAR(700,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(700.05,.01,1,1,2)="K ^MCAR(700,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(700.05,.01,12)="CHOOSE REASON FOR STOPPING ASSOSCIATED WITH PFT"
^DD(700.05,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695.8,""""AC"""",""""PF"""",+Y))"""
^DD(700.05,.01,21,0)="^^3^3^2920102^"
^DD(700.05,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(700.05,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(700.05,.01,21,3,0)="future."
^DD(700.05,.01,23,0)="^^1^1^2921106^^^"
^DD(700.05,.01,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.05,.01,"DT")="2930310"
^DD(700.05,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(700.05,.02,3)="Answer must be 1-80 characters in length."
^DD(700.05,.02,23,0)="^^1^1^2921106^^^"
^DD(700.05,.02,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(700.05,.02,"DT")="2920102"
^DD(700.05,"B","ICD DIAGNOSIS",.01)=""
^DD(700.05,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(700.05,"GL",0,1,.01)=""
^DD(700.05,"GL",0,2,.02)=""
^DD(700.05,"IX",.01)=""
^DD(700.06,0)="VOLUME INTERPRETATION SUB-FIELD^^.01^1"
^DD(700.06,0,"NM","VOLUME INTERPRETATION")=""
^DD(700.06,0,"UP")="700"
^DD(700.06,.01,0)="VOLUME INTERPRETATION^W^^0;1^Q"
^DD(700.06,.01,"DT")="2901221"
^DD(700.06,"B","VOLUME INTERPRETATION",.01)=""
^DD(700.06,"GL",0,1,.01)=""
^DD(700.07,0)="FLOWS INTERPRETATION SUB-FIELD^^.01^1"
^DD(700.07,0,"NM","FLOWS INTERPRETATION")=""
^DD(700.07,0,"UP")="700"
^DD(700.07,.01,0)="FLOWS INTERPRETATION^W^^0;1^Q"
^DD(700.07,.01,"DT")="2901221"
^DD(700.07,"B","FLOWS INTERPRETATION",.01)=""
^DD(700.07,"GL",0,1,.01)=""
^DD(700.08,0)="FLOW VOLUME LOOP INTERP. SUB-FIELD^^.01^1"
^DD(700.08,0,"NM","FLOW VOLUME LOOP INTERP.")=""
^DD(700.08,0,"UP")="700"
^DD(700.08,.01,0)="FLOW VOLUME LOOP INTERP.^W^^0;1^Q"
^DD(700.08,.01,"DT")="2901221"
^DD(700.08,"B","FLOW VOLUME LOOP INTERP.",.01)=""
^DD(700.08,"GL",0,1,.01)=""
^DD(700.09,0)="DIFFUSION INTERPRETATION SUB-FIELD^^.01^1"
^DD(700.09,0,"NM","DIFFUSION INTERPRETATION")=""
^DD(700.09,0,"UP")="700"
^DD(700.09,.01,0)="DIFFUSION INTERPRETATION^W^^0;1^Q"
^DD(700.09,.01,"DT")="2901221"
^DD(700.09,"B","DIFFUSION INTERPRETATION",.01)=""
^DD(700.09,"GL",0,1,.01)=""
^DD(700.1,0)="FIELD^^15^20"
^DD(700.1,0,"DT")="2910917"
^DD(700.1,0,"IX","AC",700.1,.02)=""
^DD(700.1,0,"IX","B",700.1,.01)=""
^DD(700.1,0,"NM","PFT PREDICTED VALUES")=""
^DD(700.1,0,"PT",700,28)=""
^DD(700.1,0,"VR")="2.3"
^DD(700.1,0,"VRPK")="MEDICINE"
^DD(700.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(700.1,.01,1,0)="^.1"
^DD(700.1,.01,1,1,0)="700.1^B"
^DD(700.1,.01,1,1,1)="S ^MCAR(700.1,""B"",$E(X,1,30),DA)="""""
^DD(700.1,.01,1,1,2)="K ^MCAR(700.1,""B"",$E(X,1,30),DA)"
^DD(700.1,.01,3)="Answer must be 1-30 characters in length."
^DD(700.1,.01,21,0)="^^2^2^2910410^^"
^DD(700.1,.01,21,1,0)="This field identifies the name for the set of formulas used to calculate"
^DD(700.1,.01,21,2,0)="predicted values and corrections.  Current entries are Male and Female."
^DD(700.1,.01,"DT")="2910410"
^DD(700.1,.02,0)="SEX TYPE^RS^M:MALE;F:FEMALE;^1;1^Q"
^DD(700.1,.02,1,0)="^.1"
^DD(700.1,.02,1,1,0)="700.1^AC"
^DD(700.1,.02,1,1,1)="S ^MCAR(700.1,""AC"",$E(X,1,30),DA)="""""
^DD(700.1,.02,1,1,2)="K ^MCAR(700.1,""AC"",$E(X,1,30),DA)"
^DD(700.1,.02,1,1,"%D",0)="^^1^1^2920422^^"
^DD(700.1,.02,1,1,"%D",1,0)="This x-ref facilitates screening logic."
^DD(700.1,.02,1,1,"%D",2,0)="in the editing of the file"
^DD(700.1,.02,1,1,"DT")="2920304"
^DD(700.1,.02,3)="Enter the sex for which this set of predicted values formula is used: 'M' for Male; 'F' for Female"
^DD(700.1,.02,21,0)="^^2^2^2920304^^"
^DD(700.1,.02,21,1,0)="This field identifies which Sex the set of formulas are used for:  Male or"
^DD(700.1,.02,21,2,0)="Female. "
^DD(700.1,.02,"DT")="2920304"
^DD(700.1,1,0)="TLC^*P700.2'^MCAR(700.2,^TLC;1^S DIC(""S"")=""I $P(^(0),U,2)=""""TLC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,1,3)="Choose Total Lung Capacity formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,1,12)="Choose Total Lung Capacity formulas only"
^DD(700.1,1,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""TLC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,1,21,0)="^^2^2^2960604^^"
^DD(700.1,1,21,1,0)="This field contains the formula used for calculating the predicted value"
^DD(700.1,1,21,2,0)="of the 'Total Lung Capacity'."
^DD(700.1,1,"DT")="2910314"
^DD(700.1,2,0)="VC^*P700.2'^MCAR(700.2,^VC;1^S DIC(""S"")=""I $P(^(0),U,2)[""""VC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,2,3)="Choose Vital Capacity Formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,2,12)="Choose Vital Capacity formulas only"
^DD(700.1,2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""VC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,2,21,0)="^^2^2^2900802^"
^DD(700.1,2,21,1,0)="This field contains the formula for calculating the predicted value of"
^DD(700.1,2,21,2,0)="the 'Vital Capacity'"
^DD(700.1,2,"DT")="2910314"
^DD(700.1,3,0)="FVC^*P700.2'^MCAR(700.2,^FVC;1^S DIC(""S"")=""I $P(^(0),U,2)[""""FVC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,3,3)="Choose Forced Vital Capacity formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,3,12)="Choose Forced Vital Capacity formulas only"
^DD(700.1,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""FVC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,3,21,0)="^^2^2^2900802^"
^DD(700.1,3,21,1,0)="This contains the formula for calculating the predicted value of the"
^DD(700.1,3,21,2,0)="Forced Vital Capacity"
^DD(700.1,3,"DT")="2910314"
^DD(700.1,4,0)="FRC^*P700.2'^MCAR(700.2,^FRC;1^S DIC(""S"")=""I $P(^(0),U,2)=""""FRC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,4,3)="Choose Functional Residual Capacity formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,4,12)="Choose Functional Residual Capacity formulas only"
^DD(700.1,4,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""FRC"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,4,21,0)="^^2^2^2900802^"
^DD(700.1,4,21,1,0)="This field contains the formula for calculating the predicted value of the"
^DD(700.1,4,21,2,0)="Forced Residual Capacity"
^DD(700.1,4,"DT")="2910314"
^DD(700.1,5,0)="RV^*P700.2'^MCAR(700.2,^RV;1^S DIC(""S"")=""I $P(^(0),U,2)=""""RV"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,5,3)="Choose Residual Volume formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,5,12)="Choose Residual Volumes formulas only"
^DD(700.1,5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""RV"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,5,21,0)="^^2^2^2900802^"
^DD(700.1,5,21,1,0)="This field contains the formula for calculating the predicted value for"
^DD(700.1,5,21,2,0)="the Residual Volume"
^DD(700.1,5,"DT")="2910314"
^DD(700.1,6,0)="FEV1^*P700.2'^MCAR(700.2,^FEV1;1^S DIC(""S"")=""I $P(^(0),U,2)=""""FEV1"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,6,3)="Choose Forced Expiratory Volume (1 sec) formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,6,12)="Choose Forced Expiratory Volume (1 sec) formulas only"
^DD(700.1,6,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""FEV1"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,6,21,0)="^^2^2^2900802^"
^DD(700.1,6,21,1,0)="This field contains the formula for calculating the predicted value for"
^DD(700.1,6,21,2,0)="the Forced Expiratory Volume in 1 second"
^DD(700.1,6,"DT")="2910314"
^DD(700.1,7,0)="PF^*P700.2'^MCAR(700.2,^PF;1^S DIC(""S"")=""I $P(^(0),U,2)=""""PF"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,7,3)="Choose Peak Flow formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,7,4)=""
^DD(700.1,7,12)="Choose Peak Flow formulas only"
^DD(700.1,7,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""PF"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,7,21,0)="^^2^2^2960510^^"
^DD(700.1,7,21,1,0)="This field contains the formula for calculating the predicted value for the"
^DD(700.1,7,21,2,0)="Peak Flow"
^DD(700.1,7,"DT")="2910314"
^DD(700.1,8,0)="FEF25-75^*P700.2'^MCAR(700.2,^FEF2575;1^S DIC(""S"")=""I $P(^(0),U,2)=""""FEF25-75"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,8,3)="Choose Forced Expiratory Flow formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,8,12)="Choose Foreced Expired Flows only"
^DD(700.1,8,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""FEF25-75"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,8,21,0)="^^2^2^2940426^^^^"
^DD(700.1,8,21,1,0)="This field contains the formula for calculating the predicted value of the"
^DD(700.1,8,21,2,0)="Forced Expiratory Flow at 25 to 75 liters"
^DD(700.1,8,"DT")="2910314"
^DD(700.1,8.5,0)="MVV^*P700.2'^MCAR(700.2,^MVV;1^S DIC(""S"")=""I $P(^(0),U,2)=""""MVV"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,8.5,3)="Choose Maximal Voluntary Ventilation formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,8.5,12)="Choose Maximal Voluntary Ventilation formulas only"
^DD(700.1,8.5,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""MVV"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,8.5,21,0)="^^2^2^2900802^"
^DD(700.1,8.5,21,1,0)="This field contains the formula for calculating the predicted value for the"
^DD(700.1,8.5,21,2,0)="Maximal Voluntary Ventilation"
^DD(700.1,8.5,"DT")="2910314"
^DD(700.1,9,0)="DLCO-SB^*P700.2'^MCAR(700.2,^DLCOSB;1^S DIC(""S"")=""I $P(^(0),U,2)=""""DLCO-SB"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,9,3)="Choose Diffusion Capacity formula that you wish to use by entering the formula or the reference name (ex. CRAPO '81)"
^DD(700.1,9,12)="Choose Diffusion Capacity formulas only"
^DD(700.1,9,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""DLCO-SB"""",$P(^MCAR(700.2,+Y,0),U,4)=$P(^MCAR(700.1,DA,1),U)"",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,9,21,0)="^^2^2^2900802^"
^DD(700.1,9,21,1,0)="This field contains the formula for calculating the predicted value for the"
^DD(700.1,9,21,2,0)="Diffusion"
^DD(700.1,9,"DT")="2910314"
^DD(700.1,10,0)="TLC,VC,FVC,FEV1 CORR.-BLACK^*P700.2'^MCAR(700.2,^RC;1^S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""TLC"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,10,3)="Enter the formula for computing the race corrected values for Black patients for  TLC,VC.FVC,FEV1:  ACT refers to the actual measured value"
^DD(700.1,10,12)="ENTER FORMULA FOR RACE CORRECTION FOR BLACKS FOR TLC,VC,FVC,FEV1"
^DD(700.1,10,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""TLC"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,10,21,0)="^^3^3^2910410^"
^DD(700.1,10,21,1,0)="This contains the formula for a race correction for Black patients on"
^DD(700.1,10,21,2,0)="Total Lung Capacity, Vital Capacity, Forced Vital Capacity, and Forced"
^DD(700.1,10,21,3,0)="Expiratory Volume."
^DD(700.1,10,"DT")="2910917"
^DD(700.1,11,0)="TLC,VC,FVC,FEV1 CORR.-ORIENTAL^*P700.2'^MCAR(700.2,^RC;2^S DIC(""S"")=""I $P(^(0),U,11)=""""O"""",$P(^(0),U,2)[""""TLC"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,11,3)="Enter the formula for computing the race corrected values for Oriental patients for TLC,VC,FVC,FEV1:  ACT refers to the actual value of the measurement"
^DD(700.1,11,12)="CHOOSES TLC,VC,FVC,FEV1 RACE CORRECTION FORMULA FOR ORIENTAL PATIENTS"
^DD(700.1,11,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""O"""",$P(^(0),U,2)[""""TLC"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,11,21,0)="^^3^3^2960604^^^"
^DD(700.1,11,21,1,0)="This contains the formula for a race correction for Oriental patients on"
^DD(700.1,11,21,2,0)="Total Lung Capacity, Vital Capacity, Forced Vital Capacity, and Forced"
^DD(700.1,11,21,3,0)="Expiratory Volume."
^DD(700.1,11,"DT")="2910917"
^DD(700.1,12,0)="FRC,RV CORR.-BLACK^*P700.2'^MCAR(700.2,^RC;3^S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""FRC"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,12,3)="Enter the formula for computing the race corrected values for Black patients for FRC,RV:  ACT refers to the actual values of the measurement"
^DD(700.1,12,12)="ENTER FROMULA FOR RACE CORRECTION FOR BLACKS FOR FRC,RV"
^DD(700.1,12,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""FRC"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,12,21,0)="^^2^2^2910410^"
^DD(700.1,12,21,1,0)="This contains the formula for a race correction for Black patients on"
^DD(700.1,12,21,2,0)="Forced Residual Capacity and Residual Volume."
^DD(700.1,12,"DT")="2910917"
^DD(700.1,13,0)="FEF25-75 RACE CORR.-BLACK^*P700.2'^MCAR(700.2,^RC;4^S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""FEF2575"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,13,3)="Enter the formula for computing the corrected FEF25-75 for Black patients:  ACT refers to the acutal measured FEF25-75 Value."
^DD(700.1,13,12)="RACE CORRECTION FORMULA FOR BLACKS FOR FEF25-75"
^DD(700.1,13,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""FEF2575"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,13,21,0)="^^2^2^2910410^^"
^DD(700.1,13,21,1,0)="This contains the formula for a race correction for Black patients on"
^DD(700.1,13,21,2,0)="the Forced Expiratory Flow at 25 to 75 liters."
^DD(700.1,13,"DT")="2910917"
^DD(700.1,13.01,0)="MVV CORR.-BLACK^*P700.2'^MCAR(700.2,^RC;5^S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""MVV"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,13.01,3)="Enter the formula for computing the race corrected values for Black patients for MVV:  ACT refers to the actual measured value"
^DD(700.1,13.01,12)="Enter formula for race correction for Blacks for MVV"
^DD(700.1,13.01,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""B"""",$P(^(0),U,2)[""""MVV"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,13.01,21,0)="^^2^2^2990623^^"
^DD(700.1,13.01,21,1,0)="This contains the formula for a race correction for Black patients for"
^DD(700.1,13.01,21,2,0)="Maximum Voluntary Ventilation."
^DD(700.1,13.01,"DT")="2990623"
^DD(700.1,13.02,0)="MVV CORR.-ORIENTAL^*P700.2'^MCAR(700.2,^RC;6^S DIC(""S"")=""I $P(^(0),U,11)=""""O"""",$P(^(0),U,2)[""""MVV"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,13.02,3)="Enter the formula for computing the race corrected values for Oriental patients for MVV:  ACT refers to the actual measured value"
^DD(700.1,13.02,12)="Enter the formula for computing the race corrected values for Oriental patients for MVV:  ACT refers to the actual measured value"
^DD(700.1,13.02,12.1)="S DIC(""S"")=""I $P(^(0),U,11)=""""O"""",$P(^(0),U,2)[""""MVV"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,13.02,21,0)="^^2^2^2990623^"
^DD(700.1,13.02,21,1,0)="This contains the formula for a race correction for Oriental patients for"
^DD(700.1,13.02,21,2,0)="Maximum Voluntary Ventilation."
^DD(700.1,13.02,"DT")="2990623"
^DD(700.1,14,0)="COHB CORRECTION^*P700.2'^MCAR(700.2,^COHB;1^S DIC(""S"")=""I $P(^(0),U,2)=""""COHB"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,14,3)="Enter the formula for correcting the diffusion for Carboxy:   ACT refers to the actual measured Diffusion"
^DD(700.1,14,12)="CORRECTS THE DIFFUSION FOR CARBOXY"
^DD(700.1,14,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""COHB"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,14,21,0)="^^1^1^2910410^"
^DD(700.1,14,21,1,0)="This contains the formula for correcting the diffusion for Carboxyl."
^DD(700.1,14,"DT")="2910917"
^DD(700.1,15,0)="HB CORRECTION^*P700.2'^MCAR(700.2,^HB;1^S DIC(""S"")=""I $P(^(0),U,2)=""""HB"""""",DIC(""W"")=""D DISP^MCPFTE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(700.1,15,3)="Enter the formula for correcting the diffusion for Hemoglobin:  ACT refers to the actual measured Diffusion."
^DD(700.1,15,12)="CORRECTS THE DIFFUSION FOR HEMOGLOBIN"
^DD(700.1,15,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""HB"""""",DIC(""W"")=""D DISP^MCPFTE"""
^DD(700.1,15,21,0)="^^1^1^2910410^"
^DD(700.1,15,21,1,0)="This contains the formula for correcting the diffusion for Hemoglobin."
^DD(700.1,15,"DT")="2910917"
^DD(700.1,"B","COHB CORRECTION",14)=""
^DD(700.1,"B","DLCO-SB",9)=""
^DD(700.1,"B","FEF25-75",8)=""
^DD(700.1,"B","FEF25-75 RACE CORR.-BLACK",13)=""
^DD(700.1,"B","FEV1",6)=""
^DD(700.1,"B","FRC",4)=""
^DD(700.1,"B","FRC,RV CORR.-BLACK",12)=""
^DD(700.1,"B","FVC",3)=""
^DD(700.1,"B","HB CORRECTION",15)=""
^DD(700.1,"B","MVV",8.5)=""
^DD(700.1,"B","MVV CORR.-BLACK",13.01)=""
^DD(700.1,"B","MVV CORR.-ORIENTAL",13.02)=""
^DD(700.1,"B","NAME",.01)=""
^DD(700.1,"B","PF",7)=""
^DD(700.1,"B","RV",5)=""
^DD(700.1,"B","SEX TYPE",.02)=""
^DD(700.1,"B","TLC",1)=""
^DD(700.1,"B","TLC,VC,FVC,FEV1 CORR.-BLACK",10)=""
^DD(700.1,"B","TLC,VC,FVC,FEV1 CORR.-ORIENTAL",11)=""
^DD(700.1,"B","VC",2)=""
^DD(700.1,"GL",0,1,.01)=""
^DD(700.1,"GL",1,1,.02)=""
^DD(700.1,"GL","COHB",1,14)=""
^DD(700.1,"GL","DLCOSB",1,9)=""
^DD(700.1,"GL","FEF2575",1,8)=""
^DD(700.1,"GL","FEV1",1,6)=""
^DD(700.1,"GL","FRC",1,4)=""
^DD(700.1,"GL","FVC",1,3)=""
^DD(700.1,"GL","HB",1,15)=""
^DD(700.1,"GL","MVV",1,8.5)=""
^DD(700.1,"GL","PF",1,7)=""
^DD(700.1,"GL","RC",1,10)=""
^DD(700.1,"GL","RC",2,11)=""
^DD(700.1,"GL","RC",3,12)=""
^DD(700.1,"GL","RC",4,13)=""
^DD(700.1,"GL","RC",5,13.01)=""
^DD(700.1,"GL","RC",6,13.02)=""
^DD(700.1,"GL","RV",1,5)=""
^DD(700.1,"GL","TLC",1,1)=""
^DD(700.1,"GL","VC",1,2)=""
^DD(700.1,"IX",.01)=""
^DD(700.1,"IX",.02)=""
^DD(700.1,"RQ",.01)=""
^DD(700.1,"RQ",.02)=""
^DD(700.2,0)="FIELD^^9^11"
^DD(700.2,0,"DT")="2960522"
^DD(700.2,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(700.2,0,"ID",3)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(700.2,3,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(700.2,0,"IX","B",700.2,.01)=""
^DD(700.2,0,"IX","C",700.2,2)=""
^DD(700.2,0,"IX","D",700.2,1)=""
^DD(700.2,0,"IX","E",700.2,3)=""
^DD(700.2,0,"NM","PFT FORMULA")=""
^DD(700.2,0,"PT",700.1,1)=""
^DD(700.2,0,"PT",700.1,2)=""
^DD(700.2,0,"PT",700.1,3)=""
^DD(700.2,0,"PT",700.1,4)=""
^DD(700.2,0,"PT",700.1,5)=""
^DD(700.2,0,"PT",700.1,6)=""
^DD(700.2,0,"PT",700.1,7)=""
^DD(700.2,0,"PT",700.1,8)=""
^DD(700.2,0,"PT",700.1,8.5)=""
^DD(700.2,0,"PT",700.1,9)=""
^DD(700.2,0,"PT",700.1,10)=""
^DD(700.2,0,"PT",700.1,11)=""
^DD(700.2,0,"PT",700.1,12)=""
^DD(700.2,0,"PT",700.1,13)=""
^DD(700.2,0,"PT",700.1,13.01)=""
^DD(700.2,0,"PT",700.1,13.02)=""
^DD(700.2,0,"PT",700.1,14)=""
^DD(700.2,0,"PT",700.1,15)=""
^DD(700.2,0,"VR")="2.3"
^DD(700.2,0,"VRPK")="MEDICINE"
^DD(700.2,.01,0)="PFT FORMULA^RF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(700.2,.01,1,0)="^.1"
^DD(700.2,.01,1,1,0)="700.2^B"
^DD(700.2,.01,1,1,1)="S ^MCAR(700.2,""B"",$E(X,1,30),DA)="""""
^DD(700.2,.01,1,1,2)="K ^MCAR(700.2,""B"",$E(X,1,30),DA)"
^DD(700.2,.01,3)="Answer must be 3-50 characters in length."
^DD(700.2,.01,4)=""
^DD(700.2,.01,21,0)="^^2^2^2960522^^^^"
^DD(700.2,.01,21,1,0)="This contains the actual formula used for the calculation of PFT"
^DD(700.2,.01,21,2,0)="predicted values"
^DD(700.2,.01,"DT")="2960522"
^DD(700.2,1,0)="TYPE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<2) X"
^DD(700.2,1,1,0)="^.1"
^DD(700.2,1,1,1,0)="700.2^D"
^DD(700.2,1,1,1,1)="S ^MCAR(700.2,""D"",$E(X,1,30),DA)="""""
^DD(700.2,1,1,1,2)="K ^MCAR(700.2,""D"",$E(X,1,30),DA)"
^DD(700.2,1,1,1,"%D",0)="^^1^1^2920722^"
^DD(700.2,1,1,1,"%D",1,0)="This cross-reference indexes the file by formula type."
^DD(700.2,1,1,1,"DT")="2920722"
^DD(700.2,1,3)="Answer must be 2-35 characters in length."
^DD(700.2,1,21,0)="^^4^4^2990623^^"
^DD(700.2,1,21,1,0)="This field is used to indicate which elements of the PFT the formula"
^DD(700.2,1,21,2,0)="applies to.  For example, a TLC in this field would indicate that this"
^DD(700.2,1,21,3,0)="formula is used for Total Lung Capacity predicted values.  This field"
^DD(700.2,1,21,4,0)="is used as a screen when the formula set is edited."
^DD(700.2,1,"DT")="2920722"
^DD(700.2,2,0)="REFERENCE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(700.2,2,1,0)="^.1"
^DD(700.2,2,1,1,0)="700.2^C"
^DD(700.2,2,1,1,1)="S ^MCAR(700.2,""C"",$E(X,1,30),DA)="""""
^DD(700.2,2,1,1,2)="K ^MCAR(700.2,""C"",$E(X,1,30),DA)"
^DD(700.2,2,1,1,"%D",0)="^^1^1^2930903^"
^DD(700.2,2,1,1,"%D",1,0)="This cross-reference allow looks-up on reference."
^DD(700.2,2,1,1,"DT")="2900801"
^DD(700.2,2,3)="Answer must be 3-30 characters in length."
^DD(700.2,2,21,0)="^^2^2^2910410^"
^DD(700.2,2,21,1,0)="This field contains the name of the person developing the formula and the"
^DD(700.2,2,21,2,0)="year in which it was developed."
^DD(700.2,2,"DT")="2900801"
^DD(700.2,3,0)="SEX TYPE^S^M:MALE;F:FEMALE;^0;4^Q"
^DD(700.2,3,1,0)="^.1"
^DD(700.2,3,1,1,0)="700.2^E"
^DD(700.2,3,1,1,1)="S ^MCAR(700.2,""E"",$E(X,1,30),DA)="""""
^DD(700.2,3,1,1,2)="K ^MCAR(700.2,""E"",$E(X,1,30),DA)"
^DD(700.2,3,1,1,"%D",0)="^^1^1^2930903^"
^DD(700.2,3,1,1,"%D",1,0)="EXis cross-reference allow looks-up on Sex type."
^DD(700.2,3,1,1,"DT")="2930322"
^DD(700.2,3,3)="Enter M or F for appropriate Sex Type Code."
^DD(700.2,3,21,0)="^^1^1^2910410^^"
^DD(700.2,3,21,1,0)="This field indicates whether the formula applies to male or female patients."
^DD(700.2,3,"DT")="2930322"
^DD(700.2,3.5,0)="RACE TYPE^S^B:BLACK;O:ORIENTAL;^0;11^Q"
^DD(700.2,3.5,3)="Enter B for Black or O for Oriental to indicate appropriate formula."
^DD(700.2,3.5,21,0)="^^3^3^2910410^"
^DD(700.2,3.5,21,1,0)="This field is used for doing race corrections on certain PFT elements.  It"
^DD(700.2,3.5,21,2,0)="indicates whether the formula for race correction applies to Black or"
^DD(700.2,3.5,21,3,0)="Oriental patients."
^DD(700.2,3.5,"DT")="2910322"
^DD(700.2,4,0)="CI^NJ7,3^^0;5^K:+X'=X!(X>999.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(700.2,4,3)="Enter the Confidence Interval: 0-999.999"
^DD(700.2,4,21,0)="^^3^3^2920825^^^"
^DD(700.2,4,21,1,0)="This field identifies the confidence interval.  It is subtracted from the"
^DD(700.2,4,21,2,0)="predicted value to give a 95% confidence interval.  Not all elements will have"
^DD(700.2,4,21,3,0)="confidence intervals."
^DD(700.2,4,"DT")="2910314"
^DD(700.2,5,0)="SEE^F^^0;6^K:$L(X)>30!($L(X)<2) X"
^DD(700.2,5,3)="Answer must be 2-30 characters in length."
^DD(700.2,5,21,0)="^^2^2^2910410^"
^DD(700.2,5,21,1,0)="This field identifies the standard error equivalent, ie the amount of variance"
^DD(700.2,5,21,2,0)="in the formula."
^DD(700.2,5,"DT")="2910314"
^DD(700.2,6,0)="METHOD^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(700.2,6,3)="Answer must be 3-30 characters in length."
^DD(700.2,6,21,0)="^^1^1^2910410^"
^DD(700.2,6,21,1,0)="This field identifies the method by which the formula was calculated."
^DD(700.2,6,"DT")="2910314"
^DD(700.2,7,0)="DEMOGRAPHICS^F^^0;8^K:$L(X)>40!($L(X)<3) X"
^DD(700.2,7,3)="Answer must be 3-40 characters in length."
^DD(700.2,7,21,0)="^^2^2^2910410^"
^DD(700.2,7,21,1,0)="This field identifies the type of demographics on which the study was done"
^DD(700.2,7,21,2,0)="which resulted in the formula: ie, Black Males, White Females, etc."
^DD(700.2,7,"DT")="2910314"
^DD(700.2,8,0)="SMOKERS INCLUDED^S^Y:YES;N:NO;^0;9^Q"
^DD(700.2,8,3)="Enter Y for Yes or N for N if smokers were included in the study that resulted in the formula."
^DD(700.2,8,21,0)="^^2^2^2910410^"
^DD(700.2,8,21,1,0)="This field identifies whether or not smokers were included in the study that"
^DD(700.2,8,21,2,0)="resulted in the formula."
^DD(700.2,8,"DT")="2910314"
^DD(700.2,9,0)="ALTITUDE^F^^0;10^K:$L(X)>20!($L(X)<3) X"
^DD(700.2,9,3)="Answer must be 3-20 characters in length."
^DD(700.2,9,21,0)="^^2^2^2910410^"
^DD(700.2,9,21,1,0)="This field identifies the altitude at which the study that resulted in the"
^DD(700.2,9,21,2,0)="formula was done."
^DD(700.2,9,"DT")="2910314"
^DD(700.2,"B","ALTITUDE",9)=""
^DD(700.2,"B","CI",4)=""
^DD(700.2,"B","DEMOGRAPHICS",7)=""
^DD(700.2,"B","METHOD",6)=""
^DD(700.2,"B","PFT FORMULA",.01)=""
^DD(700.2,"B","RACE TYPE",3.5)=""
^DD(700.2,"B","REFERENCE",2)=""
^DD(700.2,"B","SEE",5)=""
^DD(700.2,"B","SEX TYPE",3)=""
^DD(700.2,"B","SMOKERS INCLUDED",8)=""
^DD(700.2,"B","TYPE",1)=""
^DD(700.2,"GL",0,1,.01)=""
^DD(700.2,"GL",0,2,1)=""
^DD(700.2,"GL",0,3,2)=""
^DD(700.2,"GL",0,4,3)=""
^DD(700.2,"GL",0,5,4)=""
^DD(700.2,"GL",0,6,5)=""
^DD(700.2,"GL",0,7,6)=""
^DD(700.2,"GL",0,8,7)=""
^DD(700.2,"GL",0,9,8)=""
^DD(700.2,"GL",0,10,9)=""
^DD(700.2,"GL",0,11,3.5)=""
^DD(700.2,"IX",.01)=""
^DD(700.2,"IX",1)=""
^DD(700.2,"IX",2)=""
^DD(700.2,"IX",3)=""
^DD(700.2,"RQ",.01)=""
^DD(700.2,"RQ",1)=""
^DD(700.3229,0)="REASON FOR STOPPING SUB-FIELD^^.01^1"
^DD(700.3229,0,"DT")="2920716"
^DD(700.3229,0,"IX","B",700.3229,.01)=""
^DD(700.3229,0,"NM","REASON FOR STOPPING")=""
^DD(700.3229,0,"UP")="700.032"
^DD(700.3229,.01,0)="REASON FOR STOPPING^MP695.8'^MCAR(695.8,^0;1^Q"
^DD(700.3229,.01,1,0)="^.1"
^DD(700.3229,.01,1,1,0)="700.3229^B"
^DD(700.3229,.01,1,1,1)="S ^MCAR(700,DA(2),""S"",DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(700.3229,.01,1,1,2)="K ^MCAR(700,DA(2),""S"",DA(1),3,""B"",$E(X,1,30),DA)"
^DD(700.3229,.01,3)="Enter Reason for Stopping.  Pointer to Reason (Medicine) File (#695.8)."
^DD(700.3229,.01,21,0)="^^2^2^2940609^^"
^DD(700.3229,.01,21,1,0)="This field identifies the Reason for Stopping of an Exercise Special Study. "
^DD(700.3229,.01,21,2,0)="This subfield points to the MEDICINE (REASON) File."
^DD(700.3229,.01,"DT")="2920716"
^DD(700.3229,"B","REASON FOR STOPPING",.01)=""
^DD(700.3229,"GL",0,1,.01)=""
^DD(700.3229,"IX",.01)=""
^DD(700.5,0)="FIELD^^7^10"
^DD(700.5,0,"DT")="2900511"
^DD(700.5,0,"IX","B",700.5,.01)=""
^DD(700.5,0,"IX","C",700.5,.06)=""
^DD(700.5,0,"IX","PT",700.5,3)=""
^DD(700.5,0,"NM","MEDICINE AUTO INSTRUMENT INTERFACE SUMMARY")=""
^DD(700.5,0,"VR")="2.3"
^DD(700.5,0,"VRPK")="MEDICINE"
^DD(700.5,.01,0)="DATE/TIME OF TEST^RDX^^0;1^S %DT=""T"" D ^%DT S X=Y K:Y<1 X"
^DD(700.5,.01,1,0)="^.1"
^DD(700.5,.01,1,1,0)="700.5^B"
^DD(700.5,.01,1,1,1)="S ^MCAR(700.5,""B"",$E(X,1,30),DA)="""""
^DD(700.5,.01,1,1,2)="K ^MCAR(700.5,""B"",$E(X,1,30),DA)"
^DD(700.5,.01,3)="Enter date/time of test."
^DD(700.5,.01,21,0)="^^1^1^2890427^^^^"
^DD(700.5,.01,21,1,0)="Date/Time of Test"
^DD(700.5,.01,"DT")="2890427"
^DD(700.5,.05,0)="DATE/TIME INITIAL^DX^^0;6^S %DT=""T"" D ^%DT S X=Y K:Y<1 X"
^DD(700.5,.05,3)="Enter date/time of creation of entry in Bad Data File."
^DD(700.5,.05,21,0)="^^1^1^2890417^"
^DD(700.5,.05,21,1,0)="Date/Time of creation of entry in Bad Data File"
^DD(700.5,.05,"DT")="2890427"
^DD(700.5,.06,0)="DATE/TIME LATEST^DX^^0;9^S %DT=""T"" D ^%DT S X=Y K:Y<1 X"
^DD(700.5,.06,1,0)="^.1"
^DD(700.5,.06,1,1,0)="700.5^C"
^DD(700.5,.06,1,1,1)="S ^MCAR(700.5,""C"",$E(X,1,30),DA)="""""
^DD(700.5,.06,1,1,2)="K ^MCAR(700.5,""C"",$E(X,1,30),DA)"
^DD(700.5,.06,1,1,"%D",0)="^^1^1^2930903^"
^DD(700.5,.06,1,1,"%D",1,0)="This cross-reference allow sorting by the latest date of use."
^DD(700.5,.06,3)="Enter date/time of latest transmission attempt."
^DD(700.5,.06,21,0)="^^1^1^2910410^^"
^DD(700.5,.06,21,1,0)="This field identifies the Date/Time of latest transmission attempt."
^DD(700.5,.06,"DT")="2890602"
^DD(700.5,1,0)="INSTRUMENT NAME^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(700.5,1,3)="Answer must be 1-50 characters in length."
^DD(700.5,1,21,0)="^^1^1^2890417^"
^DD(700.5,1,21,1,0)="Name of Auto instrument on-line when bad data transmission occurred"
^DD(700.5,2,0)="SSN^F^^0;3^K:$L(X)>10!($L(X)<9) X"
^DD(700.5,2,3)="Answer must be 9-10 characters in length."
^DD(700.5,2,21,0)="^^1^1^2890417^"
^DD(700.5,2,21,1,0)="This field identifies SSN portion of data line as received for Auto Instrument"
^DD(700.5,2,"DT")="2890620"
^DD(700.5,3,0)="NAME^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(700.5,3,1,0)="^.1"
^DD(700.5,3,1,1,0)="700.5^PT"
^DD(700.5,3,1,1,1)="S ^MCAR(700.5,""PT"",$E(X,1,30),DA)="""""
^DD(700.5,3,1,1,2)="K ^MCAR(700.5,""PT"",$E(X,1,30),DA)"
^DD(700.5,3,1,1,"%D",0)="^^1^1^2930903^"
^DD(700.5,3,1,1,"%D",1,0)="This cross-reference allow the looks-up by name."
^DD(700.5,3,3)="Answer must be 1-50 characters in length."
^DD(700.5,3,21,0)="^^2^2^2890417^"
^DD(700.5,3,21,1,0)="This field identifies Patient Name portion of data line received form Auto"
^DD(700.5,3,21,2,0)="Instrument "
^DD(700.5,3,"DT")="2890630"
^DD(700.5,4,0)="REASON FOR FAILURE^F^^0;5^K:$L(X)>1!($L(X)<1) X"
^DD(700.5,4,3)="Answer must be 1 character in length."
^DD(700.5,4,21,0)="^^1^1^2890424^^^"
^DD(700.5,4,21,1,0)="Reason for initial failure to pass DHCP validity checks"
^DD(700.5,4,"DT")="2890606"
^DD(700.5,5,0)="ATTEMPTS^NJ6,0^^0;7^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(700.5,5,3)="Type a Number between 1 and 100000, 0 Decimal Digits"
^DD(700.5,5,21,0)="^^1^1^2890417^"
^DD(700.5,5,21,1,0)="Number of attempts at transmission of same bad data record"
^DD(700.5,5,"DT")="2890417"
^DD(700.5,6,0)="ERR^F^^0;8^K:$L(X)>2!($L(X)<1) X"
^DD(700.5,6,3)="Answer must be 1-2 characters in length."
^DD(700.5,6,21,0)="^^2^2^2910410^"
^DD(700.5,6,21,1,0)="This field contains the error code for the last transmission if the"
^DD(700.5,6,21,2,0)="transmission is unsuccessful."
^DD(700.5,6,"DT")="2890607"
^DD(700.5,7,0)="TYPE^RF^^0;10^K:$L(X)>1!($L(X)<1)!'(X?1A.A) X"
^DD(700.5,7,3)="Answer must be 1 character in length."
^DD(700.5,7,21,0)="^^2^2^2910410^"
^DD(700.5,7,21,1,0)="This field indicates the type of transmission: ie 'H' will be a Holter"
^DD(700.5,7,21,2,0)="transmission, etc."
^DD(700.5,7,"DT")="2900511"
^DD(700.5,"B","ATTEMPTS",5)=""
^DD(700.5,"B","DATE/TIME INITIAL",.05)=""
^DD(700.5,"B","DATE/TIME LATEST",.06)=""
^DD(700.5,"B","DATE/TIME OF TEST",.01)=""
^DD(700.5,"B","ERR",6)=""
^DD(700.5,"B","INSTRUMENT NAME",1)=""
^DD(700.5,"B","NAME",3)=""
^DD(700.5,"B","REASON FOR FAILURE",4)=""
^DD(700.5,"B","SSN",2)=""
^DD(700.5,"B","TYPE",7)=""
^DD(700.5,"GL",0,1,.01)=""
^DD(700.5,"GL",0,2,1)=""
^DD(700.5,"GL",0,3,2)=""
^DD(700.5,"GL",0,4,3)=""
^DD(700.5,"GL",0,5,4)=""
^DD(700.5,"GL",0,6,.05)=""
^DD(700.5,"GL",0,7,5)=""
^DD(700.5,"GL",0,8,6)=""
^DD(700.5,"GL",0,9,.06)=""
^DD(700.5,"GL",0,10,7)=""
^DD(700.5,"IX",.01)=""
^DD(700.5,"IX",.06)=""
^DD(700.5,"IX",3)=""
^DD(700.5,"RQ",.01)=""
^DD(700.5,"RQ",7)=""
^DD(701,0)="FIELD^^2005^232"
^DD(701,0,"DDA")="N"
^DD(701,0,"DT")="2950328"
^DD(701,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(701,0,"ID","Z0")="I $D(^(7)),$P(^(7),U,1) S Z=Y,Y=$P(^(7),U,1) W "" "",Y S Y=Z K Z"
^DD(701,0,"IX","AC",701,.01)=""
^DD(701,0,"IX","AD",701,1)=""
^DD(701,0,"IX","AE",701,1)=""
^DD(701,0,"IX","APCE",701,900)=""
^DD(701,0,"IX","B",701,.01)=""
^DD(701,0,"IX","C",701,1)=""
^DD(701,0,"IX","D",701,1.1)=""
^DD(701,0,"NM","RHEUMATOLOGY")=""
^DD(701,0,"PT",123,11)=""
^DD(701,0,"PT",123.03,.01)=""
^DD(701,0,"VR")="2.3"
^DD(701,0,"VRPK")="MEDICINE"
^DD(701,.01,0)="DATE/TIME^RDX^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(701,.01,1,0)="^.1"
^DD(701,.01,1,1,0)="701^B"
^DD(701,.01,1,1,1)="S ^MCAR(701,""B"",$E(X,1,30),DA)="""""
^DD(701,.01,1,1,2)="K ^MCAR(701,""B"",$E(X,1,30),DA)"
^DD(701,.01,1,2,0)="701^AC^MUMPS"
^DD(701,.01,1,2,1)="S MCARCDIE=""^MCAR(701,"" D CHGDTE1^MCARPROC"
^DD(701,.01,1,2,2)="S MCARCDIE=""^MCAR(701,"" D CHGDTE^MCARPROC"
^DD(701,.01,1,2,"%D",0)="^^3^3^2920422^"
^DD(701,.01,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AC' index of the MEDICAL"
^DD(701,.01,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent rheumatology procedure"
^DD(701,.01,1,2,"%D",3,0)="for this patient."
^DD(701,.01,3)="Enter the date and time for this procedure."
^DD(701,.01,21,0)="^^3^3^2940531^"
^DD(701,.01,21,1,0)=" "
^DD(701,.01,21,2,0)="This field identifies the date and time that the data is first entered"
^DD(701,.01,21,3,0)="into the database or when the data was collected."
^DD(701,.01,23,0)="^^1^1^2940531^^^^"
^DD(701,.01,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(701,.01,"DT")="2911209"
^DD(701,1,0)="MEDICAL PATIENT^RP690^MCAR(690,^0;2^Q"
^DD(701,1,1,0)="^.1"
^DD(701,1,1,1,0)="701^C"
^DD(701,1,1,1,1)="S ^MCAR(701,""C"",$E(X,1,30),DA)="""""
^DD(701,1,1,1,2)="K ^MCAR(701,""C"",$E(X,1,30),DA)"
^DD(701,1,1,1,"%D",0)="^^1^1^2930903^"
^DD(701,1,1,1,"%D",1,0)="This cross-reference allows look-ups by patient."
^DD(701,1,1,2,0)="701^AD^MUMPS"
^DD(701,1,1,2,1)="S MCARCDIE=""^MCAR(701,"" D CHGPAT^MCARPROC"
^DD(701,1,1,2,2)="S MCARCDIE=""^MCAR(701,"" D KILL^MCARPROC"
^DD(701,1,1,2,"%D",0)="^^3^3^2920422^"
^DD(701,1,1,2,"%D",1,0)="This cross-reference makes an entry under the 'AD' index of the MEDICAL"
^DD(701,1,1,2,"%D",2,0)="PATIENT file (#690) to record the most recent rheumatology procedure"
^DD(701,1,1,2,"%D",3,0)="for this patient."
^DD(701,1,1,3,0)="701^AE^MUMPS"
^DD(701,1,1,3,1)="S $P(^MCAR(701,DA,7),""^"")=$P(^DPT(X,0),""^"",9)"
^DD(701,1,1,3,2)="S $P(^MCAR(701,DA,7),""^"")="""""
^DD(701,1,1,3,"%D",0)="^^2^2^2920422^"
^DD(701,1,1,3,"%D",1,0)="This cross-reference moves the patient's social security number from"
^DD(701,1,1,3,"%D",2,0)="the PATIENT file (#2) into the rheumatology record."
^DD(701,1,3)="Please select from patient list below."
^DD(701,1,21,0)="^^1^1^2940715^^^^"
^DD(701,1,21,1,0)="This field identifies the patient in the medicine file."
^DD(701,1,23,0)="^^1^1^2940715^^^^"
^DD(701,1,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(701,1,"DT")="2940715"
^DD(701,1.1,0)="SSN^CJ9,0^^ ; ^X ^DD(701,1.1,9.3) S X=$P(Y(701,1.1,201),U,9) S D0=Y(701,1.1,80)"
^DD(701,1.1,1,0)="^.1"
^DD(701,1.1,1,1,0)="701^D"
^DD(701,1.1,1,1,1)="S ^MCAR(701,""D"",$E(X,1,30),DA)="""""
^DD(701,1.1,1,1,2)="K ^MCAR(701,""D"",$E(X,1,30),DA)"
^DD(701,1.1,3)="Answer must be 9-10 characters in length."
^DD(701,1.1,9)="^"
^DD(701,1.1,9.01)="2^.09;690^.01;701^1"
^DD(701,1.1,9.1)="1:.01:.09"
^DD(701,1.1,9.2)="S Y(701,1.1,80)=$S($D(D0):D0,1:""""),Y(701,1.1,1)=$S($D(^MCAR(701,D0,0)):^(0),1:""""),D0=$P(Y(701,1.1,1),U,2) S:'$D(^MCAR(690,+D0,0)) D0=-1 S Y(701,1.1,180)=$S($D(D0):D0,1:"""")"
^DD(701,1.1,9.3)="X ^DD(701,1.1,9.2) S Y(701,1.1,101)=$S($D(^MCAR(690,D0,0)):^(0),1:""""),D0=$P(Y(701,1.1,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(701,1.1,201)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(701,1.1,21,0)="^^1^1^2930903^^"
^DD(701,1.1,21,1,0)="This field identifies the SSN, which is computed."
^DD(701,1.1,"DT")="2901214"
^DD(701,2,0)="BLURRED VISION^S^1:YES;0:NO;^0;3^Q"
^DD(701,2,3)="Enter 'Yes' or 'No' if patient has experienced a blurred vision in the pass six(6) months."
^DD(701,2,21,0)="^^2^2^2910429^^"
^DD(701,2,21,1,0)="Indicates whether the patient experienced"
^DD(701,2,21,2,0)="blurring of vision in the past 6 months."
^DD(701,2,"DT")="2900605"
^DD(701,3,0)="DIZZINESS^S^1:YES;0:NO;^0;4^Q"
^DD(701,3,3)="Enter 'Yes' or 'No' if patient has experienced dizziness in the pass six(6) months."
^DD(701,3,21,0)="^^2^2^2910429^"
^DD(701,3,21,1,0)="Indicates whether the patient experienced dizziness"
^DD(701,3,21,2,0)="in the past 6 months."
^DD(701,3,"DT")="2900605"
^DD(701,4,0)="DRY EYES^S^1:YES;0:NO;^0;5^Q"
^DD(701,4,3)="Enter 'Yes' or 'No' if patient has experienced a dry eyes in the pass six(6) months."
^DD(701,4,21,0)="^^2^2^2910429^"
^DD(701,4,21,1,0)="Indicates whether the patient experienced dry eyes"
^DD(701,4,21,2,0)="in the past 6 months."
^DD(701,4,"DT")="2900605"
^DD(701,5,0)="DRY MOUTH^S^1:YES;0:NO;^0;6^Q"
^DD(701,5,3)="Enter 'Yes' or 'No' if patient has experienced a dry mouth in the pass six(6) months."
^DD(701,5,21,0)="^^2^2^2910429^"
^DD(701,5,21,1,0)="Indicates whether the patient experienced dry mouth"
^DD(701,5,21,2,0)="in the past 6 months."
^DD(701,5,"DT")="2900619"
^DD(701,6,0)="FEVER^S^1:YES;0:NO;^0;7^Q"
^DD(701,6,3)="Enter 'Yes' or 'No' if patient has experienced a fever in the pass six(6) months."
^DD(701,6,21,0)="^^2^2^2910429^"
^DD(701,6,21,1,0)="Indicates whether the patient experienced fever"
^DD(701,6,21,2,0)="in the past 6 months."
^DD(701,6,"DT")="2900605"
^DD(701,7,0)="HEADACHE^S^1:YES;0:NO;^0;8^Q"
^DD(701,7,3)="Enter 'Yes' or 'No' if patient has experienced a headache in the pass six(6) months."
^DD(701,7,21,0)="^^2^2^2910429^"
^DD(701,7,21,1,0)="Indicates whether the patient experienced headache"
^DD(701,7,21,2,0)="in the past 6 months."
^DD(701,8,0)="HEARING DIFFICULTIES^S^1:YES;0:NO;^0;9^Q"
^DD(701,8,3)="Enter 'Yes' or 'No' if patient has experienced hearing difficulties in the pass six(6) months."
^DD(701,8,21,0)="^^2^2^2910429^"
^DD(701,8,21,1,0)="Indicates whether the patient experienced "
^DD(701,8,21,2,0)="hearing difficulties in the past 6 months."
^DD(701,8,"DT")="2900605"
^DD(701,9,0)="INCREASED SWEATING^S^1:YES;0:NO;^0;10^Q"
^DD(701,9,3)="Enter 'Yes' or 'No' if patient has experienced increased sweating in the pass six(6) months."
^DD(701,9,21,0)="^^2^2^2910429^"
^DD(701,9,21,1,0)="Indicates whether the patient experienced increased"
^DD(701,9,21,2,0)="sweating in the past 6 months."
^DD(701,9,"DT")="2900605"
^DD(701,9.1,0)="NIGHT SWEATS^S^1:YES;0:NO;^1;1^Q"
^DD(701,9.1,3)="Enter 'Yes' or 'No' whether patient has experienced night sweats."
^DD(701,9.1,21,0)="^^1^1^2910729^^"
^DD(701,9.1,21,1,0)="Indicates whether the condition of NIGHT Sweats exists."
^DD(701,9.1,"DT")="2910725"
^DD(701,10,0)="LOSS,CHANGE IN TASTE^S^1:YES;0:NO;^0;11^Q"
^DD(701,10,3)="Enter 'Yes' or 'No' if patient has experienced a lose or change in taste in the pass six(6) months."
^DD(701,10,21,0)="^^2^2^2910429^"
^DD(701,10,21,1,0)="Indicates whether the patient experienced loss,"
^DD(701,10,21,2,0)="change in taste in the past 6 months."
^DD(701,10,"DT")="2900605"
^DD(701,11,0)="LOSS OF HAIR^S^1:YES;0:NO;^0;12^Q"
^DD(701,11,3)="Enter 'Yes' or 'No' if patient has experienced loss of hair in the pass six(6) months."
^DD(701,11,21,0)="^^2^2^2910429^"
^DD(701,11,21,1,0)="Indicates whether the patient experienced loss of"
^DD(701,11,21,2,0)="hair in the past 6 months."
^DD(701,11,"DT")="2900607"
^DD(701,12,0)="MOUTH SORES^S^1:YES;0:NO;^0;13^Q"
^DD(701,12,3)="Enter 'Yes' or 'No' if patient has experienced mouth sores in the pass six(6) months."
^DD(701,12,21,0)="^^2^2^2910429^"
^DD(701,12,21,1,0)="Indicates whether the patient experienced mouth"
^DD(701,12,21,2,0)="sores in the past 6 months."
^DD(701,13,0)="RED,IRRITATED EYES^S^1:YES;0:NO;^0;14^Q"
^DD(701,13,3)="Enter 'Yes' or 'No' if patient has experienced red or irritated eyes in the pass six(6) months."
^DD(701,13,21,0)="^^2^2^2910429^"
^DD(701,13,21,1,0)="Indicates whether the patient experienced red,"
^DD(701,13,21,2,0)="irritated eyes over the past 6 months."
^DD(701,13,"DT")="2900607"
^DD(701,14,0)="RINGING IN EARS^S^1:YES;0:NO;^0;15^Q"
^DD(701,14,3)="Enter 'Yes' or 'No' if patient has experienced a ringing in ears in the pass six(6) months."
^DD(701,14,21,0)="^^2^2^2910429^"
^DD(701,14,21,1,0)="Indicates whether the patient experienced ringing"
^DD(701,14,21,2,0)="in ears during the past 6 months."
^DD(701,15,0)="SORE THROAT^S^1:YES;0:NO;^0;16^Q"
^DD(701,15,3)="Enter 'Yes' or 'No' if patient has experienced a sore throat in the pass six(6) months."
^DD(701,15,21,0)="^^2^2^2910429^"
^DD(701,15,21,1,0)="Indicates whether the patient experienced sore throat"
^DD(701,15,21,2,0)="during the past 6 months."
^DD(701,16,0)="CHEST PAIN/TAKING DEEP BREATH^S^1:YES;0:NO;^0;17^Q"
^DD(701,16,3)="Enter 'Yes' or 'No' if patient has experienced CHEST PAIN when taking a DEEP BREATH in the pass six(6) months."
^DD(701,16,21,0)="^^2^2^2910429^"
^DD(701,16,21,1,0)="Indicates whether the patient experienced chest pain/"
^DD(701,16,21,2,0)="taking deep breath during the past 6 months."
^DD(701,16,"DT")="2900607"
^DD(701,17,0)="SHORTNESS OF BREATH^S^1:YES;0:NO;^0;18^Q"
^DD(701,17,3)="Enter 'Yes' or 'No' if patient has experienced shortness of breath in the pass six(6) months."
^DD(701,17,21,0)="^^2^2^2910429^"
^DD(701,17,21,1,0)="Indicates whether the patient experienced shortness"
^DD(701,17,21,2,0)="of breath during the past 6 months."
^DD(701,18,0)="WHEEZING(ASTHMA)^S^1:YES;0:NO;^0;19^Q"
^DD(701,18,3)="Enter 'Yes' or 'No' if patient has been wheezing or had asthma in the pass six(6) months."
^DD(701,18,21,0)="^^2^2^2910429^"
^DD(701,18,21,1,0)="Indicates whether the patient experienced wheezing"
^DD(701,18,21,2,0)="during the past 6 months."
^DD(701,19,0)="BLK/TARRY STOOL(NOT FROM IRON)^S^1:YES;0:NO;^0;20^Q"
^DD(701,19,3)="Enter 'Yes' or 'No' if patient has had black or tarry stool not coused from iron in the pass six(6) months."
^DD(701,19,21,0)="^^2^2^2910501^"
^DD(701,19,21,1,0)="Indicates whether the patient experienced black/tarry stool"
^DD(701,19,21,2,0)="(not caused by iron ingestion) during the last 6 months."
^DD(701,19,"DT")="2900605"
^DD(701,19.1,0)="LIVER PROBLEMS^F^^1;2^K:$L(X)>18!($L(X)<1) X"
^DD(701,19.1,3)="Answer must be 1-18 characters in length."
^DD(701,19.1,21,0)="^^1^1^2910729^^^"
^DD(701,19.1,21,1,0)="Enter a brief description of liver disease."
^DD(701,19.1,"DT")="2910725"
^DD(701,20,0)="CONSTIPATION^S^1:YES;0:NO;^0;21^Q"
^DD(701,20,3)="Enter 'Yes' or 'No' if patient has expenienced constipation in the pass six(6) months."
^DD(701,20,21,0)="^^2^2^2910501^"
^DD(701,20,21,1,0)="Indicates whether the patient experienced constipation"
^DD(701,20,21,2,0)="during the last 6 months."
^DD(701,20,"DT")="2900605"
^DD(701,21,0)="DIARRHEA(FREQUENT,WATERY)^S^1:YES;0:NO;^0;22^Q"
^DD(701,21,3)="Enter 'Yes' or 'No' if patient has experienced diarrhea (frequent,explosive watery bowel movements, severe) in the pass six(6) months."
^DD(701,21,21,0)="^^2^2^2910501^"
^DD(701,21,21,1,0)="Indicates whether the patient experienced diarrhea"
^DD(701,21,21,2,0)="in the last 6 months."
^DD(701,21,"DT")="2900607"
^DD(701,22,0)="DIFFICULTY SWALLOWING^S^1:YES;0:NO;^0;23^Q"
^DD(701,22,3)="Enter 'Yes' or 'No' if patient has had difficulty swallowing or feeling of food getting stuck in the pass six(6) months."
^DD(701,22,21,0)="^^2^2^2910501^"
^DD(701,22,21,1,0)="Indicates whether the patient experienced difficulty"
^DD(701,22,21,2,0)="in swallowing in the last 6 months."
^DD(701,22,"DT")="2900607"
^DD(701,23,0)="GAS(FLATULENCE)^S^1:YES;0:NO;^0;24^Q"
^DD(701,23,3)="Enter 'Yes' or 'No' if patient has had frequent flatulence in the the pass six(6) months."
^DD(701,23,21,0)="^^2^2^2910501^"
^DD(701,23,21,1,0)="Indicates whether the patient experienced gas"
^DD(701,23,21,2,0)="in the last 6 months."
^DD(701,23,"DT")="2900607"
^DD(701,24,0)="HEARTBURN,INDIGESTION,BELCHING^S^1:YES;0:NO;^0;25^Q"
^DD(701,24,3)="Enter 'Yes' or 'No' if patient has experienced heartburn, indigestion or belching in the pass six(6) months."
^DD(701,24,21,0)="^^2^2^2910717^^^"
^DD(701,24,21,1,0)="Indicates whether the patient experienced heartburn,"
^DD(701,24,21,2,0)="indigestion, or belching in the last 6 months."
^DD(701,24,"DT")="2900607"
^DD(701,25,0)="JAUNDICE^S^1:YES;0:NO;^0;26^Q"
^DD(701,25,3)="Enter 'Yes' or 'No' if patient has experienced jaundice in the pass six(6) months."
^DD(701,25,21,0)="^^2^2^2910501^"
^DD(701,25,21,1,0)="Indicates whether the patient experienced jaundice"
^DD(701,25,21,2,0)="in the last 6 months."
^DD(701,26,0)="LOOSE/FREQUENT BOWEL(MILD)^S^1:YES;0:NO;^0;27^Q"
^DD(701,26,3)="Enter 'Yes' or 'No' if patient has experienced loose or frequent bowel movement(mild) in the pass six(6) months."
^DD(701,26,21,0)="^^2^2^2910501^"
^DD(701,26,21,1,0)="Indicates whether the patient experienced loose/"
^DD(701,26,21,2,0)="frequent bowel in the last 6 months."
^DD(701,26,"DT")="2900607"
^DD(701,27,0)="LOSS OF APPETITE^S^1:YES;0:NO;^0;28^Q"
^DD(701,27,3)="Enter 'Yes' or 'No' if patient has experienced loss of appetite in the pass six(6) months."
^DD(701,27,21,0)="^^2^2^2910501^"
^DD(701,27,21,1,0)="Indicates whether the patient experienced loss of"
^DD(701,27,21,2,0)="appetite in the last 6 months."
^DD(701,28,0)="PAIN/CRAMPS LOWER ABDOMEN^S^1:YES;0:NO;^0;29^Q"
^DD(701,28,3)="Enter 'Yes' or 'No' if patient has experienced pain or cramps in the lower abdomen(colon) in the pass six(6) months."
^DD(701,28,21,0)="^^2^2^2910501^"
^DD(701,28,21,1,0)="Indicates whether the patient experienced pain/"
^DD(701,28,21,2,0)="cramps in the lower abdomen in the last 6 months."
^DD(701,28,"DT")="2900607"
^DD(701,29,0)="PAIN/DISCOMFORT UPPER ABDOMEN^S^1:YES;0:NO;^0;30^Q"
^DD(701,29,3)="Enter 'Yes' or 'No' if patient has experienced pain or discomfort in the upper abdomen(stomach) in the pass six(6) months."
^DD(701,29,21,0)="^^2^2^2910501^"
^DD(701,29,21,1,0)="Indicates whether the patient experienced pain/"
^DD(701,29,21,2,0)="discomfort in the upper abdomen in the last 6 months."
^DD(701,29,"DT")="2900607"
^DD(701,30,0)="VOMITING^S^1:YES;0:NO;^0;31^Q"
^DD(701,30,3)="Enter 'Yes' or 'No' if patient has experienced vomiting in the pass six(6) months."
^DD(701,30,21,0)="^^2^2^2910501^"
^DD(701,30,21,1,0)="Indicates whether the patient experienced vomiting"
^DD(701,30,21,2,0)="in the last 6 months."
^DD(701,30,"DT")="2900607"
^DD(701,31,0)="BLOOD IN URINE^S^1:YES;0:NO;^0;32^Q"
^DD(701,31,3)="Enter 'Yes' or 'No' if patient has experienced blood in the urine in the pass six(6) months."
^DD(701,31,21,0)="^^2^2^2940707^^"
^DD(701,31,21,1,0)="Indicates whether the patient experienced blood in the"
^DD(701,31,21,2,0)="urine in the last 6 months."
^DD(701,31,"DT")="2900607"
^DD(701,31.1,0)="URINE PROTEIN^S^1:YES;0:NO;^1;3^Q"
^DD(701,31.1,3)="Enter 'Yes' or 'No' whether the patient has had a history of urine protein."
^DD(701,31.1,21,0)="^^1^1^2940707^^^"
^DD(701,31.1,21,1,0)="Indicates whether the patient has had a history of urine protein."
^DD(701,31.1,"DT")="2910725"
^DD(701,31.5,0)="KIDNEY PROBLEMS^F^^1;4^K:$L(X)>18!($L(X)<1) X"
^DD(701,31.5,3)="Answer must be 1-18 characters in length."
^DD(701,31.5,21,0)="^^1^1^2910729^^"
^DD(701,31.5,21,1,0)="Describes forms of kidney problems in the patient's history."
^DD(701,31.5,"DT")="2910725"
^DD(701,31.8,0)="OTHER^F^^1;10^K:$L(X)>18!($L(X)<1) X"
^DD(701,31.8,3)="Answer must be 1-18 characters in length."
^DD(701,31.8,21,0)="^^1^1^2910730^"
^DD(701,31.8,21,1,0)="A brief description of a relevant condition which cannot be otherwise noted."
^DD(701,31.8,"DT")="2910730"
^DD(701,32,0)="BURNING ON URINATION^S^1:YES;0:NO;^0;33^Q"
^DD(701,32,3)="Enter 'Yes' or 'No' if patient has experienced a burning on urination in the pass six(6) months."
^DD(701,32,21,0)="^^2^2^2910501^"
^DD(701,32,21,1,0)="Indicates whether the patient experienced burning on"
^DD(701,32,21,2,0)="urination in the last 6 months."
^DD(701,32,"DT")="2900607"
^DD(701,33,0)="PREGNANT^S^1:YES;0:NO;^0;34^Q"
^DD(701,33,3)="Enter 'Yes' or 'No' if patient is pregnant."
^DD(701,33,21,0)="^^1^1^2910501^"
^DD(701,33,21,1,0)="Indicates whether the patient is pregnant."
^DD(701,33,"DT")="2900619"
^DD(701,34,0)="IRREGULAR PERIODS^S^1:YES;0:NO;^0;35^Q"
^DD(701,34,3)="Enter 'Yes' or 'No' if patient has had irregular period in the pass six(6) months."
^DD(701,34,21,0)="^^2^2^2910501^"
^DD(701,34,21,1,0)="Indicates whether the patient experienced irregular"
^DD(701,34,21,2,0)="periods in the last 6 months."
^DD(701,34,"DT")="2900608"
^DD(701,35,0)="STIFF IN THE MORNING HOW LONG^NJ2,0^^0;36^K:+X'=X!(X>24)!(X<1)!(X?.E1"".""1N.N) X"
^DD(701,35,3)="Type a Number between 1 and 24, 0 Decimal Digits"
^DD(701,35,21,0)="^^2^2^2940601^^"
^DD(701,35,21,1,0)="Indicates whether the patient experienced stiffness in"
^DD(701,35,21,2,0)="the morning and how long in the last 6 months."
^DD(701,35,"DT")="2910807"
^DD(701,36,0)="JOINT PAIN^S^1:YES;0:NO;^0;37^Q"
^DD(701,36,3)="Enter 'Yes' or 'No' if patient has experienced join pain in the pass six(6) months."
^DD(701,36,21,0)="^^2^2^2910501^"
^DD(701,36,21,1,0)="Indicates whether the patient experienced joint"
^DD(701,36,21,2,0)="pain in the last 6 months."
^DD(701,36,"DT")="2900608"
^DD(701,37,0)="JOINT SWELLING^S^1:YES;0:NO;^0;38^Q"
^DD(701,37,3)="Enter 'Yes' or 'No' if patient has experienced joint swelling in the pass six(6) months."
^DD(701,37,21,0)="^^2^2^2910501^"
^DD(701,37,21,1,0)="Indicates whether the patient experienced joint swelling"
^DD(701,37,21,2,0)="in the last 6 months."
^DD(701,37,"DT")="2900608"
^DD(701,38,0)="LOW BACK PAIN^S^1:YES;0:NO;^0;39^Q"
^DD(701,38,3)="Enter 'Yes' or 'No' if patient has experienced lower back pain in the pass six(6) months."
^DD(701,38,21,0)="^^2^2^2910501^"
^DD(701,38,21,1,0)="Indicates whether the patient experienced low back"
^DD(701,38,21,2,0)="pain in the last 6 months."
^DD(701,38,"DT")="2900608"
^DD(701,39,0)="MUSCLE PAIN^S^1:YES;0:NO;^0;40^Q"
^DD(701,39,3)="Enter 'Yes' or 'No' if patient has experienced muscle pain in the pass six(6) months."
^DD(701,39,21,0)="^^2^2^2910501^"
^DD(701,39,21,1,0)="Indicates whether the patient experienced muscle"
^DD(701,39,21,2,0)="pain in the last 6 months."
^DD(701,39,"DT")="2900608"
^DD(701,40,0)="NECK PAIN^S^1:YES;0:NO;^0;41^Q"
^DD(701,40,3)="Enter 'Yes' or 'No' if patient has experienced neck pain in the pass six(6) months."
^DD(701,40,21,0)="^^2^2^2910501^"
^DD(701,40,21,1,0)="Indicates whether the patient experienced neck"
^DD(701,40,21,2,0)="pain in the last 6 months."
^DD(701,40,"DT")="2900608"
^DD(701,41,0)="NIGHT PAIN^S^1:YES;0:NO;^0;42^Q"
^DD(701,41,3)="Enter 'Yes' or 'No' if patient has experienced night pain in the pass six(6) months."
^DD(701,41,21,0)="^^2^2^2910501^"
^DD(701,41,21,1,0)="Indicates whether the patient experienced night"
^DD(701,41,21,2,0)="pain in the last 6 months."
^DD(701,41,"DT")="2900608"
^DD(701,42,0)="NUMBNESS OR TINGLING^S^1:YES;0:NO;^0;43^Q"
^DD(701,42,3)="Enter 'Yes' or 'No' if patient has experienced numbness or tingling in hands or feet."
^DD(701,42,21,0)="^^2^2^2910501^"
^DD(701,42,21,1,0)="Indicates whether the patient experienced numbness"
^DD(701,42,21,2,0)="or tingling in the last 6 months."
^DD(701,42,"DT")="2900608"
^DD(701,43,0)="SWELLING OF LEGS^S^1:YES;0:NO;^0;44^Q"
^DD(701,43,3)="Enter 'Yes' or 'No' if patient has experienced swelling of legs in the pass six(6) months."
^DD(701,43,21,0)="^^2^2^2910501^"
^DD(701,43,21,1,0)="Indicates whether the patient experienced swelling"
^DD(701,43,21,2,0)="of legs in the last 6 months."
^DD(701,43,"DT")="2900608"
^DD(701,44,0)="WEAKNESS OF MUSCLES^S^1:YES;0:NO;^0;45^Q"
^DD(701,44,3)="Enter 'Yes' or 'No' if patient has experienced weakness of muscles in the pass six(6) months."
^DD(701,44,21,0)="^^2^2^2910501^"
^DD(701,44,21,1,0)="Indicates whether the patient experienced"
^DD(701,44,21,2,0)="weakness of muscles experienced in the last 6 months."
^DD(701,44,"DT")="2900608"
^DD(701,45,0)="DEPRESSION^S^1:YES;0:NO;^0;46^Q"
^DD(701,45,3)="Enter 'Yes' or 'No' if patient has experienced depression in the pass six(6) months."
^DD(701,45,21,0)="^^2^2^2910501^"
^DD(701,45,21,1,0)="Indicates whether the patient experienced"
^DD(701,45,21,2,0)="depression in the last 6 months."
^DD(701,45,"DT")="2900608"
^DD(701,46,0)="INSOMNIA^S^1:YES;0:NO;^0;47^Q"
^DD(701,46,3)="Enter 'Yes' or 'No' if patient has experienced insomnia in the pass six(6) months."
^DD(701,46,21,0)="^^2^2^2910501^"
^DD(701,46,21,1,0)="Indicates whether the patient experienced"
^DD(701,46,21,2,0)="insomnia in the last 6 months."
^DD(701,46,"DT")="2900608"
^DD(701,47,0)="NERVOUSNESS^S^1:YES;0:NO;^0;48^Q"
^DD(701,47,3)="Enter 'Yes' or 'No' if patient has experienced nervousness in the pass six(6) months."
^DD(701,47,21,0)="^^2^2^2910501^^"
^DD(701,47,21,1,0)="Indicates whether the patient experienced"
^DD(701,47,21,2,0)="nervousness in the last 6 months."
^DD(701,47,"DT")="2900608"
^DD(701,48,0)="SEIZURES OR CONVULSION^S^1:YES;0:NO;^0;49^Q"
^DD(701,48,3)="Enter 'Yes' or 'No' if patient has had a seizure or convulsion in the pass six(6) months."
^DD(701,48,21,0)="^^2^2^2910501^"
^DD(701,48,21,1,0)="Indicates whether the patient experienced seizures"
^DD(701,48,21,2,0)="or convulsions in the last 6 months."
^DD(701,48,"DT")="2900608"
^DD(701,49,0)="TIREDNESS^S^1:YES;0:NO;^0;50^Q"
^DD(701,49,3)="Enter 'Yes' or 'No' if patient has experienced tiredness the pass six(6) months."
^DD(701,49,21,0)="^^2^2^2910501^"
^DD(701,49,21,1,0)="Indicates whether the patient experienced"
^DD(701,49,21,2,0)="tiredness in the last 6 months."
^DD(701,49,"DT")="2900608"
^DD(701,50,0)="TROUBLE REMEMBERING/THINKING^S^1:YES;0:NO;^0;51^Q"
^DD(701,50,3)="Enter 'Yes' or 'No' if patient has experienced trouble remembering or thinking in the pass six(6) months."
^DD(701,50,21,0)="^^2^2^2910501^"
^DD(701,50,21,1,0)="Indicates whether the patient experienced trouble"
^DD(701,50,21,2,0)="remembering or thinking in the last 6 months."
^DD(701,50,"DT")="2900608"
^DD(701,51,0)="EASY BRUISING^S^1:YES;0:NO;^0;52^Q"
^DD(701,51,3)="Enter 'Yes' or 'No' if patient has experienced easy bruising in the pass six(6) months."
^DD(701,51,21,0)="^^2^2^2910501^"
^DD(701,51,21,1,0)="Indicates whether the patient experienced easy"
^DD(701,51,21,2,0)="bruising in the last 6 months."
^DD(701,51,"DT")="2900608"
^DD(701,52,0)="FACIAL SKIN TIGHTENING^S^1:YES;0:NO;^0;53^Q"
^DD(701,52,3)="Enter 'Yes' or 'No' if patient has experienced facial skin tightening in the pass six(6) months."
^DD(701,52,21,0)="^^2^2^2910501^"
^DD(701,52,21,1,0)="Indicates whether the patient experienced facial"
^DD(701,52,21,2,0)="skin tightening in the last 6 months."
^DD(701,52,"DT")="2900608"
^DD(701,53,0)="HIVES OR WELTS^S^1:YES;0:NO;^0;54^Q"
^DD(701,53,3)="Enter 'Yes' or 'No' if patient has experienced hives or welts in the pass six(6) months."
^DD(701,53,21,0)="^^2^2^2910501^"
^DD(701,53,21,1,0)="Indicates whether the patient experienced hives"
^DD(701,53,21,2,0)="or welts in the last 6 months."
^DD(701,53,"DT")="2900608"
^DD(701,54,0)="ITCHING^S^1:YES;0:NO;^0;55^Q"
^DD(701,54,3)="Enter 'Yes' or 'No' if patient has experienced itching in the pass six(6) months."
^DD(701,54,21,0)="^^2^2^2910501^"
^DD(701,54,21,1,0)="Indicates whether the patient experienced"
^DD(701,54,21,2,0)="itching in the last 6 months."
^DD(701,54,"DT")="2900608"
^DD(701,55,0)="RASH^S^1:YES;0:NO;^0;56^Q"
^DD(701,55,3)="Enter 'Yes' or 'No' if patient has experienced a rash in the pass six(6) months."
^DD(701,55,21,0)="^^2^2^2910501^"
^DD(701,55,21,1,0)="Indicates whether the patient experienced"
^DD(701,55,21,2,0)="a rash in the last 6 months."
^DD(701,55,"DT")="2900608"
^DD(701,56,0)="RASH OVER CHEEKS^S^1:YES;0:NO;^0;57^Q"
^DD(701,56,3)="Enter 'Yes' or 'No' if patient has experienced rash over cheeks in the pass six(6) months."
^DD(701,56,21,0)="^^2^2^2910501^"
^DD(701,56,21,1,0)="Indicates whether the patient experienced rash"
^DD(701,56,21,2,0)="over cheeks in the last 6 months."
^DD(701,56,"DT")="2900608"
^DD(701,57,0)="SKIN COLOR CHANGE IN FINGER^S^1:YES;0:NO;^0;58^Q"
^DD(701,57,3)="Enter 'Yes' or 'No' if patient has experienced red, white, and blue skin color change in fingers on exposure to cold or with emotional upset in the pass six(6) months."
^DD(701,57,21,0)="^^2^2^2910501^"
^DD(701,57,21,1,0)="Indicates whether the patient experienced skin color"
^DD(701,57,21,2,0)="change in finger in the last 6 months."
^DD(701,57,"DT")="2900608"
^DD(701,58,0)="SUN SENSITIVITY^S^1:YES;0:NO;^0;59^Q"
^DD(701,58,3)="Enter 'Yes' or 'No' if patient has experienced sun sensitivity, unusual skin reaction (not sunburn) in the pass six(6) months."
^DD(701,58,21,0)="^^2^2^2910501^"
^DD(701,58,21,1,0)="Indicates whether the patient experienced sun"
^DD(701,58,21,2,0)="sensitivity in the last 6 months."
^DD(701,58,"DT")="2900608"
^DD(701,59,0)="DISCHARGE FROM PENIS^S^1:YES;0:NO;^0;60^Q"
^DD(701,59,3)="Enter 'Yes' or 'No' if patient has experienced discharge from penis in the pass six(6) months."
^DD(701,59,21,0)="^^2^2^2910501^"
^DD(701,59,21,1,0)="Indicates whether the patient experienced discharge"
^DD(701,59,21,2,0)="from the penis in the last 6 months."
^DD(701,59,"DT")="2900608"
^DD(701,60,0)="IMPOTENCE^S^1:YES;0:NO;^0;61^Q"
^DD(701,60,3)="Enter 'Yes' or 'No' if patient has experienced impotence in the pass six(6) months."
^DD(701,60,21,0)="^^2^2^2910501^"
^DD(701,60,21,1,0)="Indicates whether the patient experienced impotence"
^DD(701,60,21,2,0)="in the last 6 months."
^DD(701,60,"DT")="2900608"
^DD(701,61,0)="RASH/ULCERS ON PENIS^S^1:YES;0:NO;^0;62^Q"
^DD(701,61,3)="Enter 'Yes' or 'No' if patient has experienced a rash or ulcers on penis in the pass six(6) months."
^DD(701,61,21,0)="^^2^2^2910501^"
^DD(701,61,21,1,0)="Indicates whether the patient experienced rash/"
^DD(701,61,21,2,0)="ulcers on the penis in the last 6 months."
^DD(701,61,"DT")="2900608"
^DD(701,62,0)="HEIGHT^NJ3,0^^2;1^K:+X'=X!(X>210)!(X<10)!(X?.E1"".""1N.N) X"
^DD(701,62,3)="Type a Number between 10 and 210 cm, 0 Decimal Digits"
^DD(701,62,21,0)="^^1^1^2910501^"
^DD(701,62,21,1,0)="Indicates the patient's height in centimeters."
^DD(701,62,23,0)="^^1^1^2921106^^^"
^DD(701,62,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(701,62,"DT")="2900619"
^DD(701,63,0)="WEIGHT^NJ5,1^^2;2^K:+X'=X!(X>160)!(X<20)!(X?.E1"".""2N.N) X"
^DD(701,63,3)="Type a Number between 20 and 160 kg, 1 Decimal Digit"
^DD(701,63,21,0)="^^1^1^2910501^"
^DD(701,63,21,1,0)="Indicates the patient's weight in kilograms."
^DD(701,63,23,0)="^^1^1^2921106^^^"
^DD(701,63,23,1,0)="ORDER ENTRY TYPE:  IDENTIFIER"
^DD(701,63,"DT")="2900820"
^DD(701,64,0)="SYSTOLIC PRESSURE^NJ3,0^^2;3^K:+X'=X!(X>310)!(X<50)!(X?.E1"".""1N.N) X"
^DD(701,64,3)="Type a Number between 50 and 310 mmhg, 0 Decimal Digits"
^DD(701,64,21,0)="^^1^1^2910501^"
^DD(701,64,21,1,0)="Indicates systolic blood pressure in millimeters of mercury."
^DD(701,64,23,0)="^^1^1^2921106^^^"
^DD(701,64,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,64,"DT")="2900820"
^DD(701,65,0)="DIASTOLIC PRESSURE^NJ3,0^^2;4^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(701,65,3)="Type a Number between 1 and 300 mmhg, 0 Decimal Digits"
^DD(701,65,21,0)="^^1^1^2910501^"
^DD(701,65,21,1,0)="Indicates diastolic pressure in millimeters of mercury."
^DD(701,65,23,0)="^^1^1^2921106^^^"
^DD(701,65,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,65,"DT")="2900608"
^DD(701,66,0)="PULSE^NJ3,0^^2;5^K:+X'=X!(X>200)!(X<20)!(X?.E1"".""1N.N) X"
^DD(701,66,3)="Type a Number between 20 and 200 /min., 0 Decimal Digits"
^DD(701,66,21,0)="^^1^1^2910501^"
^DD(701,66,21,1,0)="Indicates pulse rate per minute."
^DD(701,66,23,0)="^^1^1^2921106^^^"
^DD(701,66,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,66,"DT")="2900619"
^DD(701,67,0)="UVEITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;6^Q"
^DD(701,67,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appopriately."
^DD(701,67,21,0)="^^1^1^2910729^^"
^DD(701,67,21,1,0)="Indicates the presence of uveitis."
^DD(701,67,"DT")="2900611"
^DD(701,67.5,0)="UVEITIS/IRITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^1;5^Q"
^DD(701,67.5,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,67.5,21,0)="^^1^1^2910729^^^^"
^DD(701,67.5,21,1,0)="Indicates the degree of uveitis/iritis present."
^DD(701,67.5,23,0)="^^1^1^2921106^^^"
^DD(701,67.5,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,67.5,"DT")="2910729"
^DD(701,67.7,0)="CONJUNCTIVITIS/EPISCLERITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^1;6^Q"
^DD(701,67.7,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,67.7,21,0)="^^1^1^2910729^^"
^DD(701,67.7,21,1,0)="Indicates the degree of conjunctivitis/episcleritis present."
^DD(701,67.7,"DT")="2910729"
^DD(701,68,0)="CATARACT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;7^Q"
^DD(701,68,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,68,21,0)="^^1^1^2910501^"
^DD(701,68,21,1,0)="Indicates the presence of a cataract."
^DD(701,68,"DT")="2900611"
^DD(701,69,0)="IRITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;8^Q"
^DD(701,69,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,69,21,0)="^^1^1^2910501^"
^DD(701,69,21,1,0)="Indicates the presence of iritis."
^DD(701,69,"DT")="2900611"
^DD(701,70,0)="ORAL ULCERS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;9^Q"
^DD(701,70,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,70,21,0)="^^1^1^2910501^"
^DD(701,70,21,1,0)="Indicates the patient has oral ulcers."
^DD(701,70,23,0)="^^1^1^2921106^^^"
^DD(701,70,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,70,"DT")="2900611"
^DD(701,71,0)="RALES^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;10^Q"
^DD(701,71,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,71,21,0)="^^1^1^2910501^"
^DD(701,71,21,1,0)="Indicate the degree of rales."
^DD(701,71,23,0)="^^1^1^2921106^^^"
^DD(701,71,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,71,"DT")="2900611"
^DD(701,72,0)="PLEURAL RUB/CLINICAL PLEURISY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;11^Q"
^DD(701,72,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,72,21,0)="^^1^1^2910729^^"
^DD(701,72,21,1,0)="Indicates the degree of pleural rub."
^DD(701,72,23,0)="^^1^1^2921106^^^"
^DD(701,72,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,72,"DT")="2900611"
^DD(701,73,0)="PLEURAL EFFUSION^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;12^Q"
^DD(701,73,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,73,21,0)="^^1^1^2910501^"
^DD(701,73,21,1,0)="Indicates the degree of pleural effusion."
^DD(701,73,"DT")="2900611"
^DD(701,74,0)="PERICARDIAL RUB/PERICARDITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;13^Q"
^DD(701,74,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,74,21,0)="^^1^1^2910729^^"
^DD(701,74,21,1,0)="Indicates the degree of pericardial rub."
^DD(701,74,23,0)="^^1^1^2921106^^^"
^DD(701,74,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,74,"DT")="2910729"
^DD(701,75,0)="SYSTOLIC MURMUR^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;14^Q"
^DD(701,75,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,75,21,0)="^^1^1^2910501^"
^DD(701,75,21,1,0)="Indicates the degree of systolic murmur."
^DD(701,75,"DT")="2900611"
^DD(701,76,0)="DIASTOLIC MURMUR^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;15^Q"
^DD(701,76,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,76,21,0)="^^1^1^2910501^"
^DD(701,76,21,1,0)="Indicates the degree of diastolic murmur."
^DD(701,76,"DT")="2900611"
^DD(701,77,0)="LYMPH NODE ENLARGEMENT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;16^Q"
^DD(701,77,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,77,21,0)="^^1^1^2910501^"
^DD(701,77,21,1,0)="Indicates the degree of lymph node enlargement."
^DD(701,77,"DT")="2931230"
^DD(701,78,0)="MUSCLE TENDERNESS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;17^Q"
^DD(701,78,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,78,21,0)="1^^2^2^2910501^"
^DD(701,78,21,1,0)="Indicates the degree of "
^DD(701,78,21,2,0)="muscle tenderness."
^DD(701,78,"DT")="2900611"
^DD(701,79,0)="MUSCLE WEAKNESS-DISTAL^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;18^Q"
^DD(701,79,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,79,21,0)="^^2^2^2910501^"
^DD(701,79,21,1,0)="Indicates the degree of distal"
^DD(701,79,21,2,0)="muscle weakness."
^DD(701,79,"DT")="2900611"
^DD(701,80,0)="HEPATOMEGALY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;19^Q"
^DD(701,80,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,80,21,0)="^^1^1^2910501^"
^DD(701,80,21,1,0)="Indicates the degree of hepatomegaly."
^DD(701,80,"DT")="2900611"
^DD(701,81,0)="SPLENOMEGALY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;20^Q"
^DD(701,81,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,81,21,0)="^^1^1^2910501^"
^DD(701,81,21,1,0)="Indicates the degree of splenomegaly."
^DD(701,81,"DT")="2900611"
^DD(701,82,0)="MUSCLE WEAKNESS-PROXIMAL^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;21^Q"
^DD(701,82,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,82,21,0)="^^1^1^2910501^"
^DD(701,82,21,1,0)="Indicates the degree of proximal muscle weakness."
^DD(701,82,"DT")="2900611"
^DD(701,83,0)="MUSCLE ATROPHY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;22^Q"
^DD(701,83,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,83,21,0)="^^1^1^2910501^"
^DD(701,83,21,1,0)="Indicates the degree of muscle atrophy."
^DD(701,83,23,0)="^^1^1^2921106^^^"
^DD(701,83,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,83,"DT")="2900611"
^DD(701,84,0)="PSYCHOSIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;23^Q"
^DD(701,84,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,84,21,0)="^^1^1^2910501^"
^DD(701,84,21,1,0)="Indicates the degree of psychosis."
^DD(701,84,23,0)="^^1^1^2921106^^^"
^DD(701,84,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,84,"DT")="2900611"
^DD(701,85,0)="ORGANIC BRAIN SYNDROME^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;24^Q"
^DD(701,85,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,85,21,0)="^^1^1^2910501^"
^DD(701,85,21,1,0)="Indicates the degree of organic brain syndrome."
^DD(701,85,"DT")="2900611"
^DD(701,86,0)="MOTOR NEUROPATHY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;25^Q"
^DD(701,86,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,86,21,0)="^^1^1^2910501^"
^DD(701,86,21,1,0)="Indicates the degree of motor neuropathy."
^DD(701,86,"DT")="2900611"
^DD(701,87,0)="SENSORY NEUROPATHY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;26^Q"
^DD(701,87,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,87,21,0)="^^1^1^2910501^"
^DD(701,87,21,1,0)="Indicates the degree of sensory neuropathy."
^DD(701,87,"DT")="2900611"
^DD(701,88,0)="HELIOTROPE EYELIDS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;27^Q"
^DD(701,88,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,88,21,0)="^^1^1^2910501^"
^DD(701,88,21,1,0)="Indicates the degree of heliotrope eyelids."
^DD(701,88,"DT")="2900611"
^DD(701,89,0)="RASH-MALAR^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;28^Q"
^DD(701,89,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,89,21,0)="^^1^1^2910501^"
^DD(701,89,21,1,0)="Indicates the degree of Rash-Malar."
^DD(701,89,23,0)="^^1^1^2921106^^^"
^DD(701,89,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,89,"DT")="2900611"
^DD(701,89.1,0)="RASH-SLE,NON-MALAR^S^0:NORMAL;1:MILD;2:MODERATE;3:SEVERE;^1;7^Q"
^DD(701,89.1,3)="Enter 0, 1, 2, or 3 for normal, mild, moderate, severe appropriately. "
^DD(701,89.1,21,0)="^^1^1^2910729^^^"
^DD(701,89.1,21,1,0)="Indicates the degree of rash-sle, non-maler present."
^DD(701,89.1,"DT")="2910729"
^DD(701,89.2,0)="RASH-OTHER^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^1;8^Q"
^DD(701,89.2,3)="Enter 0, 1, 2, or 3 for none, mild, moderate or severe appropriately."
^DD(701,89.2,21,0)="^^1^1^2910729^"
^DD(701,89.2,21,1,0)="Indicates the degree of rash-other present."
^DD(701,89.2,23,0)="^^1^1^2921106^^^"
^DD(701,89.2,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,89.2,"DT")="2910729"
^DD(701,90,0)="PSORIASIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;29^Q"
^DD(701,90,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,90,21,0)="^^1^1^2910501^"
^DD(701,90,21,1,0)="Indicates the degree of psoriasis."
^DD(701,90,23,0)="^^1^1^2921106^^^"
^DD(701,90,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,90,"DT")="2900611"
^DD(701,91,0)="RASH-DISCOID^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;30^Q"
^DD(701,91,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,91,21,0)="^^1^1^2910501^"
^DD(701,91,21,1,0)="Indicates the degree of Rash-Discoid."
^DD(701,91,"DT")="2900611"
^DD(701,92,0)="RASH-JRA^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;31^Q"
^DD(701,92,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,92,21,0)="^^1^1^2910501^"
^DD(701,92,21,1,0)="Indicates the degree of Rash-JRA."
^DD(701,92,"DT")="2900611"
^DD(701,93,0)="PALPABLE PURPURA^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;32^Q"
^DD(701,93,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,93,21,0)="1^^1^1^2910501^"
^DD(701,93,21,1,0)="Indicates the degree of palpable purpura."
^DD(701,93,"DT")="2900611"
^DD(701,94,0)="SCLERODACTYLY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;33^Q"
^DD(701,94,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,94,21,0)="^^1^1^2910501^"
^DD(701,94,21,1,0)="Indicates the degree of sclerodactyly."
^DD(701,94,23,0)="^^1^1^2921106^^^"
^DD(701,94,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,94,"DT")="2900611"
^DD(701,95,0)="SCLERODERMA-EXTREMITY^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;34^Q"
^DD(701,95,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,95,21,0)="^^1^1^2910501^"
^DD(701,95,21,1,0)="Indicates the degree of scleroderma of the extremity."
^DD(701,95,23,0)="^^1^1^2921106^^^"
^DD(701,95,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,95,"DT")="2900611"
^DD(701,96,0)="SCLERODERMA-GENERALIZED^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;35^Q"
^DD(701,96,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,96,21,0)="^^1^1^2910501^"
^DD(701,96,21,1,0)="Indicates the degree of scleroderma, generalized."
^DD(701,96,23,0)="^^1^1^2921106^^^"
^DD(701,96,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,96,"DT")="2900611"
^DD(701,97,0)="MORPHEA^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;36^Q"
^DD(701,97,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,97,21,0)="^^1^1^2910501^"
^DD(701,97,21,1,0)="Indicates the degree of morphea."
^DD(701,97,"DT")="2900611"
^DD(701,98,0)="TELANGIECTASIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;37^Q"
^DD(701,98,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,98,21,0)="^^1^1^2910501^"
^DD(701,98,21,1,0)="Indicates the degree of telangiectasis."
^DD(701,98,23,0)="^^1^1^2921106^^^"
^DD(701,98,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,98,"DT")="2900611"
^DD(701,99,0)="CUTANEOUS VASCULTITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;38^Q"
^DD(701,99,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,99,21,0)="^^1^1^2910501^"
^DD(701,99,21,1,0)="Indicates the degree of cutaneous vasculitis."
^DD(701,99,23,0)="^^1^1^2921106^^^"
^DD(701,99,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,99,"DT")="2900611"
^DD(701,100,0)="PERIUNGAL ERYTHEMA^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;39^Q"
^DD(701,100,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,100,21,0)="^^1^1^2910501^"
^DD(701,100,21,1,0)="Indicates the degree of periungual erythema."
^DD(701,100,23,0)="^^1^1^2921106^^^"
^DD(701,100,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,100,"DT")="2900611"
^DD(701,101,0)="KERATODERMIA BLENNORRHAGICA^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;40^Q"
^DD(701,101,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,101,21,0)="^^1^1^2910501^"
^DD(701,101,21,1,0)="Indicates the degree of keratodermia blennorrhagia."
^DD(701,101,"DT")="2900611"
^DD(701,102,0)="KNUCKLE ERYTHEMA^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;41^Q"
^DD(701,102,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,102,21,0)="^^1^1^2910501^^"
^DD(701,102,21,1,0)="Indicates the degree of Knuckle erythema."
^DD(701,102,23,0)="^^1^1^2921106^^^"
^DD(701,102,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,102,"DT")="2900611"
^DD(701,103,0)="DIGITAL ULCERS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;42^Q"
^DD(701,103,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,103,21,0)="^^1^1^2910501^"
^DD(701,103,21,1,0)="Indicates the degree of digital ulcers."
^DD(701,103,23,0)="^^1^1^2921106^^^"
^DD(701,103,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,103,"DT")="2900611"
^DD(701,104,0)="NAIL PITTING^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;43^Q"
^DD(701,104,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,104,21,0)="^^1^1^2910501^"
^DD(701,104,21,1,0)="Indicates the degree of nail pitting."
^DD(701,104,"DT")="2900611"
^DD(701,105,0)="SKIN ULCERS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;44^Q"
^DD(701,105,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,105,21,0)="^^1^1^2910501^"
^DD(701,105,21,1,0)="Indicates the degree skin ulcers."
^DD(701,105,"DT")="2900611"
^DD(701,106,0)="ERYTHEMA NODOSUM^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^2;45^Q"
^DD(701,106,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,106,21,0)="^^1^1^2910501^"
^DD(701,106,21,1,0)="Indicates the degree of erythema nodosum."
^DD(701,106,"DT")="2900611"
^DD(701,107,0)="CURRENT MEDICATION^F^^3;1^K:$L(X)>200!($L(X)<1) X"
^DD(701,107,3)="Answer must be 1-200 characters in length."
^DD(701,107,21,0)="^^1^1^2910501^^"
^DD(701,107,21,1,0)="This field identifies the current medication."
^DD(701,107,"DT")="2901220"
^DD(701,108,0)="PRESCRIBED MEDICATIONS^701.0108^^4;0"
^DD(701,108,3)="Answer must be 1-200 characters in length."
^DD(701,108,21,0)="^^1^1^2910501^"
^DD(701,108,21,1,0)="This field identifies the prescribed medications."
^DD(701,108,"DT")="2900619"
^DD(701,109,0)="SYMMETRICAL ARTHRITIS^S^0:NO;1:YES;^5;1^Q"
^DD(701,109,3)="Enter 'Yes' or 'No' if patient has symmetrical arthritis."
^DD(701,109,21,0)="^^1^1^2910501^"
^DD(701,109,21,1,0)="This field identifies No indicates if the patient has symmetrical arthritis."
^DD(701,109,"DT")="2900619"
^DD(701,110,0)="DACTYLITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;2^Q"
^DD(701,110,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,110,21,0)="^^1^1^2910501^"
^DD(701,110,21,1,0)="Indicates the degree of impairment of dactylitis."
^DD(701,110,"DT")="2900619"
^DD(701,111,0)="TOPHI^S^0:NO;1:YES;^5;3^Q"
^DD(701,111,3)="Enter 'Yes' or 'No' if patient has tophi."
^DD(701,111,21,0)="^^1^1^2910501^"
^DD(701,111,21,1,0)="This field identifies No indicates if the patient has tophi."
^DD(701,111,23,0)="^^1^1^2921106^^^"
^DD(701,111,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,111,"DT")="2900619"
^DD(701,112,0)="SUB-CUTANEOUS NODULES^S^0:NO;1:YES;^5;4^Q"
^DD(701,112,3)="Enter 'Yes' or 'No' if patient has sub-cutaneous nodules."
^DD(701,112,21,0)="^^1^1^2910501^"
^DD(701,112,21,1,0)="This field identifies No indicates if the patient has sub-cutaneous nodules."
^DD(701,112,23,0)="^^1^1^2921106^^^"
^DD(701,112,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,112,"DT")="2900619"
^DD(701,112.5,0)="SUBCUTANEOUS CALCIFICATIONS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^1;9^Q"
^DD(701,112.5,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,112.5,21,0)="^^1^1^2910729^"
^DD(701,112.5,21,1,0)="Indicates the degree of subcutaneous calcifications presently found."
^DD(701,112.5,"DT")="2910729"
^DD(701,113,0)="SYNOVIAL (BAKER'S) CYST^S^0:NO;1:YES;^5;5^Q"
^DD(701,113,3)="Enter 'Yes' or 'No' if patient has synovial cyst."
^DD(701,113,21,0)="^^1^1^2910501^"
^DD(701,113,21,1,0)="This field identifies No indicates if the patient has synovial (Baker's) cyst."
^DD(701,113,"DT")="2900619"
^DD(701,114,0)="HEEL PAIN^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;6^Q"
^DD(701,114,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,114,21,0)="^^1^1^2910501^"
^DD(701,114,21,1,0)="Indicates the degree of impairment of heel pain."
^DD(701,114,"DT")="2900619"
^DD(701,115,0)="TENOSYNOVITIS(TENDON RUBS)^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;7^Q"
^DD(701,115,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriatly."
^DD(701,115,21,0)="^^1^1^2910501^"
^DD(701,115,21,1,0)="Indicates the degree of impairment of tenosynovitis (tendon rubs)"
^DD(701,115,"DT")="2900619"
^DD(701,116,0)="TEMPORAL ARTERY TENDERNESS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;8^Q"
^DD(701,116,3)="Enter 0, 1, 2, or 3 for none, mild, moderately, severe appropriately."
^DD(701,116,21,0)="^^1^1^2910501^"
^DD(701,116,21,1,0)="Indicates the degree of impairment of temporal artery tenderness."
^DD(701,116,"DT")="2900619"
^DD(701,117,0)="COSTOCHONDRITIS^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;9^Q"
^DD(701,117,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,117,21,0)="^^1^1^2910501^"
^DD(701,117,21,1,0)="Indicates the degree of impairment of costochondritis."
^DD(701,117,"DT")="2900619"
^DD(701,118,0)="GRIP STRENGTH-LEFT^NJ3,0^^5;10^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,118,3)="Type a Number between 0 and 300 mmHg, 0 Decimal Digits"
^DD(701,118,21,0)="^^1^1^2910501^"
^DD(701,118,21,1,0)="Indicates left grip strength in millimeters of mercury."
^DD(701,118,23,0)="^^1^1^2921106^^^"
^DD(701,118,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,118,"DT")="2900619"
^DD(701,119,0)="GRIP STRENGTH-RIGHT^NJ3,0^^5;11^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,119,3)="Type a Number between 0 and 300 mmHg, 0 Decimal Digits"
^DD(701,119,21,0)="^^1^1^2910501^"
^DD(701,119,21,1,0)="Indicates right grip strength in millimeters of mercury."
^DD(701,119,23,0)="^^1^1^2921106^^^"
^DD(701,119,23,1,0)="ORDER ENTRY TYPE:  UNKNOWN"
^DD(701,119,"DT")="2900619"
^DD(701,120,0)="SCHOBER TEST (10 cm BASE)^NJ2,0^^5;12^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,120,3)="Type a Number between 0 and 20 cm, 0 Decimal Digits"
^DD(701,120,21,0)="^^1^1^2910501^"
^DD(701,120,21,1,0)="Indicates the results of the Schober test (with a 10 cm base)."
^DD(701,120,"DT")="2900619"
^DD(701,121,0)="CHEST EXPANSION^NJ2,0^^5;13^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,121,3)="Type a Number between 0 and 12 cm, 0 Decimal Digits"
^DD(701,121,21,0)="^^1^1^2910501^"
^DD(701,121,21,1,0)="Indicates expansion of chest between 0 and 12 cm."
^DD(701,121,"DT")="2900619"
^DD(701,122,0)="OCCIPUT-WALL^NJ2,0^^5;14^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,122,3)="Type a Number between 0 and 20 cm, 0 Decimal Digits"
^DD(701,122,21,0)="^^1^1^2910501^"
^DD(701,122,21,1,0)="Indicates occiput - wall between 0 and 20 cm."
^DD(701,122,"DT")="2900619"
^DD(701,123,0)="FINGER-TO-PALM CREASE-LEFT^NJ4,1^^5;15^K:+X'=X!(X>22)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,123,3)="Type a Number between 0 and 22.0 cm, 1 Decimal Digit"
^DD(701,123,21,0)="^^1^1^2910501^"
^DD(701,123,21,1,0)="Indicates left finger-to-palm crease."
^DD(701,123,"DT")="2900620"
^DD(701,124,0)="FINGER-TO-PALM CREASE-RIGHT^NJ4,1^^5;16^K:+X'=X!(X>22)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,124,3)="Type a Number between 0 and 22.0 cm, 1 Decimal Digit"
^DD(701,124,21,0)="^^1^1^2910501^"
^DD(701,124,21,1,0)="Indicates right finger-to-palm crease."
^DD(701,124,"DT")="2900620"
^DD(701,125,0)="INTERINCISOR DISTANCE^NJ2,0^^5;17^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,125,3)="Type a Number between 0 and 60 mm, 0 Decimal Digits"
^DD(701,125,21,0)="^^1^1^2910501^"
^DD(701,125,21,1,0)="Indicates interincisor distance, between 0 and 60 mm."
^DD(701,125,"DT")="2900620"
^DD(701,126,0)="SCHIRMER TEST^NJ2,0^^5;18^K:+X'=X!(X>25)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,126,3)="Type a Number between 0 and 25 mm, 0 Decimal Digits"
^DD(701,126,21,0)="^^1^1^2910501^"
^DD(701,126,21,1,0)="Indicates results of Schirmer test, between 0 and 25 mm."
^DD(701,126,"DT")="2900619"
^DD(701,127,0)="WALK TIME (50 FEET)^NJ2,0^^5;19^K:+X'=X!(X>50)!(X<6)!(X?.E1"".""1N.N) X"
^DD(701,127,3)="Type a Number between 6 and 50 secs., 0 Decimal Digits"
^DD(701,127,21,0)="^^1^1^2910501^"
^DD(701,127,21,1,0)="This field identifies the walk time of 50 feet between 6 and 50 seconds."
^DD(701,127,"DT")="2900619"
^DD(701,128,0)="FUNCTIONAL CLASS (ACR)^S^1:NORMAL;2:ADEQUATE;3:LIMITED;4:INCAPACITATED;^5;20^Q"
^DD(701,128,3)="Enter 1, 2, 3, or 4 for normal, adequate, limited, incapacitated appropriately."
^DD(701,128,21,0)="^^2^2^2910730^^^"
^DD(701,128,21,1,0)="This field identifies the ACR functional class to indicate degree of"
^DD(701,128,21,2,0)="impairment. "
^DD(701,128,"DT")="2910730"
^DD(701,129,0)="DISEASE SEVERITY-PAT. ESTIMATE^S^1:MB (MUCH BETTER);2:B (BETTER);3:S (SAME);4:W (WORSE);5:MW (MUCH WORSE);^5;21^Q"
^DD(701,129,3)="Enter 1,2,3,4, or 5 for Much Better, Better, Same, Worse, or Much Worse appropriately."
^DD(701,129,21,0)="^^1^1^2910501^"
^DD(701,129,21,1,0)="This field identifies the Pat. estimate of disease severity."
^DD(701,129,"DT")="2900821"
^DD(701,130,0)="FINGERS-DIP LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;22^Q"
^DD(701,130,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,130,21,0)="^^1^1^2910501^"
^DD(701,130,21,1,0)="Indicates the degree of impairment of fingers - dip left"
^DD(701,130,"DT")="2900619"
^DD(701,131,0)="FINGERS-DIP RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;23^Q"
^DD(701,131,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,131,21,0)="^^1^1^2910501^"
^DD(701,131,21,1,0)="Indicates the degree of impairment of fingers - dip right."
^DD(701,131,"DT")="2900619"
^DD(701,132,0)="FINGERS-PIP LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;24^Q"
^DD(701,132,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,132,21,0)="^^1^1^2910501^"
^DD(701,132,21,1,0)="Indicates the degree of impairment of fingers - pip left."
^DD(701,132,"DT")="2900619"
^DD(701,133,0)="FINGERS-PIP RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;25^Q"
^DD(701,133,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,133,21,0)="^^1^1^2910501^"
^DD(701,133,21,1,0)="Indicates the degree of impairment of fingers - pip right."
^DD(701,134,0)="MCPS LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;26^Q"
^DD(701,134,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,134,21,0)="^^1^1^2910501^"
^DD(701,134,21,1,0)="Indicates the degree of impairment of MCPS LEFT."
^DD(701,135,0)="MCPS RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;27^Q"
^DD(701,135,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,135,21,0)="^^1^1^2910501^"
^DD(701,135,21,1,0)="Indicates the degree of impairment of MCPS RIGHT."
^DD(701,136,0)="1ST CARPOMETACARPAL L^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;28^Q"
^DD(701,136,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,136,21,0)="^^1^1^2910501^"
^DD(701,136,21,1,0)="Indicates the degree of impairment of first carpometacarpal left."
^DD(701,136,"DT")="2910801"
^DD(701,137,0)="1ST CARPOMETACARPAL R^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;29^Q"
^DD(701,137,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,137,21,0)="^^1^1^2910501^"
^DD(701,137,21,1,0)="Indicates the degree of impairment of first carpometacarpal right."
^DD(701,137,"DT")="2910801"
^DD(701,138,0)="WRIST LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;30^Q"
^DD(701,138,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,138,21,0)="^^1^1^2910501^"
^DD(701,138,21,1,0)="Indicates the degree of impairment of wrist left."
^DD(701,139,0)="WRIST RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;31^Q"
^DD(701,139,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,139,21,0)="^^1^1^2910501^"
^DD(701,139,21,1,0)="Indicates the degree of impairment of wrist right."
^DD(701,140,0)="ELBOW LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;32^Q"
^DD(701,140,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,140,21,0)="^^1^1^2910501^"
^DD(701,140,21,1,0)="Indicates the degree of impairment of elbow left."
^DD(701,141,0)="ELBOW RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;33^Q"
^DD(701,141,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,141,21,0)="^^1^1^2910501^"
^DD(701,141,21,1,0)="Indicates the degree of impairment of elbow right."
^DD(701,142,0)="SHOULDER LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;34^Q"
^DD(701,142,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,142,21,0)="^^1^1^2910501^"
^DD(701,142,21,1,0)="Indicates the degree of impairment of shoulder left."
^DD(701,143,0)="SHOULDER RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;35^Q"
^DD(701,143,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,143,21,0)="^^1^1^2910501^"
^DD(701,143,21,1,0)="Indicates the degree of impairment of shoulder right."
^DD(701,144,0)="STERNOCLAVICULAR LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;36^Q"
^DD(701,144,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,144,21,0)="^^1^1^2910501^"
^DD(701,144,21,1,0)="Indicates the degree of impairment of sternoclavicular left."
^DD(701,145,0)="STERNOCLAVICULAR RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;37^Q"
^DD(701,145,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,145,21,0)="^^1^1^2910501^"
^DD(701,145,21,1,0)="Indicates the degree of impairment of sternoclavicular right."
^DD(701,146,0)="TMJ LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;38^Q"
^DD(701,146,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,146,21,0)="^^1^1^2910501^"
^DD(701,146,21,1,0)="Indicates the degree of impairment of TMJ left."
^DD(701,147,0)="TMJ RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;39^Q"
^DD(701,147,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,147,21,0)="^^1^1^2910501^"
^DD(701,147,21,1,0)="Indicates the degree of impairment of TMJ right."
^DD(701,148,0)="HIP LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;40^Q"
^DD(701,148,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,148,21,0)="^^1^1^2910501^"
^DD(701,148,21,1,0)="Indicates the degree of impairment of hip left."
^DD(701,149,0)="HIP RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;41^Q"
^DD(701,149,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,149,21,0)="^^1^1^2910501^"
^DD(701,149,21,1,0)="Indicates the degree of impairment of hip right."
^DD(701,150,0)="KNEE LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;42^Q"
^DD(701,150,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,150,21,0)="^^1^1^2910501^"
^DD(701,150,21,1,0)="Indicates the degree of impairment of knee left."
^DD(701,151,0)="KNEE RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;43^Q"
^DD(701,151,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,151,21,0)="^^1^1^2910501^"
^DD(701,151,21,1,0)="Indicates the degree of impairment of knee right."
^DD(701,152,0)="ANKLE LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;44^Q"
^DD(701,152,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,152,21,0)="^^1^1^2910501^"
^DD(701,152,21,1,0)="Indicates the degree of impairment of ankle left."
^DD(701,153,0)="ANKLE RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;45^Q"
^DD(701,153,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,153,21,0)="^^1^1^2910501^"
^DD(701,153,21,1,0)="Indicates the degree of impairment of ankle right."
^DD(701,154,0)="MTP LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;46^Q"
^DD(701,154,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,154,21,0)="^^1^1^2910501^"
^DD(701,154,21,1,0)="Indicates the degree of impairment of MTP left."
^DD(701,155,0)="MTP RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;47^Q"
^DD(701,155,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,155,21,0)="^^1^1^2910501^"
^DD(701,155,21,1,0)="Indicates the degree of impairment of MTP right."
^DD(701,156,0)="TOES-PIP LEFT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;48^Q"
^DD(701,156,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,156,21,0)="^^1^1^2910501^"
^DD(701,156,21,1,0)="Indicates the degree of impairment of toes - PIP left."
^DD(701,157,0)="TOES-PIP RIGHT^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;49^Q"
^DD(701,157,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,157,21,0)="^^1^1^2910501^"
^DD(701,157,21,1,0)="Indicates the degree of impairment of toes - PIP right."
^DD(701,158,0)="CERVICAL SPINE^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;50^Q"
^DD(701,158,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,158,21,0)="^^1^1^2940601^^"
^DD(701,158,21,1,0)="Indicates the degree of impairment of cervical spine."
^DD(701,159,0)="LUMBAR SPINE^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^5;51^Q"
^DD(701,159,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,159,21,0)="^^1^1^2910501^"
^DD(701,159,21,1,0)="Indicates the degree of impairment of lumbar spine."
^DD(701,160,0)="COSTOCHONDRAL-LEFT^S^0:NORMAL;1:MILD;2:MODERATE;3:SEVERE;^1;11^Q"
^DD(701,160,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,160,21,0)="^^1^1^2910730^"
^DD(701,160,21,1,0)="Indicates the degree of costochondral disease(left)."
^DD(701,160,"DT")="2910730"
^DD(701,161,0)="COSTOCHONDRAL-RIGHT^S^0:NORMAL;1:MILD;2:MODERATE;3:SEVERE;^1;12^Q"
^DD(701,161,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,161,21,0)="^^1^1^2910730^"
^DD(701,161,21,1,0)="Indicates the degree of costochondral disease(right)."
^DD(701,161,"DT")="2910730"
^DD(701,162,0)="SACROILIAC-LEFT^S^0:NORMAL;1:MILD;2:MODERATE;3:SEVERE;^1;13^Q"
^DD(701,162,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,162,21,0)="^^1^1^2910730^^"
^DD(701,162,21,1,0)="Indicates the degree of sacroiliac disease(left)."
^DD(701,162,"DT")="2910730"
^DD(701,163,0)="SACROILIAC-RIGHT^S^0:NORMAL;1:MILD;2:MODERATE;3:SEVERE;^1;14^Q"
^DD(701,163,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,163,21,0)="^^1^1^2910730^"
^DD(701,163,21,1,0)="Indicates the degree of sacroiliac disease(right)."
^DD(701,163,"DT")="2910730"
^DD(701,164,0)="THORACIC SPINE^S^0:NONE;1:MILD;2:MODERATE;3:SEVERE;^1;15^Q"
^DD(701,164,3)="Enter 0, 1, 2, or 3 for none, mild, moderate, severe appropriately."
^DD(701,164,21,0)="^^1^1^2940601^^"
^DD(701,164,21,1,0)="Indicates the degree of Thoracic spine disease."
^DD(701,164,"DT")="2940601"
^DD(701,201,0)="MEDICATION^701.0201P^^6;0"
^DD(701,201,12)="CHOOSE RHEUMATOLOGY MEDICATIONS ONLY"
^DD(701,201,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""C"""",""""R"""",+Y))"""
^DD(701,201,21,0)="^^1^1^2910501^"
^DD(701,201,21,1,0)="These are the patient's current medications."
^DD(701,295,0)="BP-SYSTOLIC^NJ1,0^^8;7^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,295,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(701,295,21,0)="^^1^1^2910501^"
^DD(701,295,21,1,0)="This field identifies the patient's systolic blood pressure."
^DD(701,295,"DT")="2900622"
^DD(701,296,0)="BP-DIASTOLIC^NJ1,0^^8;8^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,296,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(701,296,21,0)="^^1^1^2910501^"
^DD(701,296,21,1,0)="This field identifies the patient's diastolic blood pressure."
^DD(701,296,"DT")="2900622"
^DD(701,297,0)="DISEASE ACTIVITY COMPOSITE^NJ3,0^^8;9^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(701,297,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(701,297,21,0)="^^1^1^2910501^"
^DD(701,297,21,1,0)="Indicates the patients disease activity composite."
^DD(701,297,"DT")="2901205"
^DD(701,298,0)="DISEASE SEVERITY-PT. ESTIMATE^NJ1,0^^8;10^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,298,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(701,298,21,0)="^^1^1^2910501^"
^DD(701,298,21,1,0)="This field identifies the patient's estimate of the disease severity."
^DD(701,298,"DT")="2900622"
^DD(701,299,0)="DISEASE SEVERITY-MD ESTIMATE^NJ1,0^^8;11^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,299,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(701,299,21,0)="^^1^1^2910501^"
^DD(701,299,21,1,0)="This field identifies the clinician's estimate of the disease severity."
^DD(701,299,"DT")="2900622"
^DD(701,300,0)="PAINSCAL^NJ3,1^^8;12^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,300,3)="Type a Number between 0 and 3, 1 Decimal Digit"
^DD(701,300,21,0)="^^1^1^2910501^"
^DD(701,300,21,1,0)="Indicates the pain scale."
^DD(701,300,"DT")="2901206"
^DD(701,301,0)="DISABILITY INDEX^NJ1,0^^8;13^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,301,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(701,301,21,0)="^^1^1^2910501^"
^DD(701,301,21,1,0)="Indicates the disability index."
^DD(701,301,"DT")="2900622"
^DD(701,302,0)="DRESSING AND GROOMING^NJ1,0^^8;14^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,302,3)="Type a Number between 0 and 3, 0 Decimal Digits"
^DD(701,302,21,0)="^^1^1^2910501^"
^DD(701,302,21,1,0)="Indicates the level of functionality for dressing and grooming."
^DD(701,302,"DT")="2901206"
^DD(701,303,0)="ARISING^NJ1,0^^8;15^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,303,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(701,303,21,0)="^^1^1^2910501^"
^DD(701,303,21,1,0)="Indicates the level of functionality for arising."
^DD(701,303,"DT")="2900622"
^DD(701,304,0)="EATING^NJ3,1^^8;16^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,304,3)="Type a Number between 0 and 3, 1 Decimal Digit"
^DD(701,304,21,0)="^^1^1^2910501^"
^DD(701,304,21,1,0)="Indicates the level of functionality for eating."
^DD(701,304,"DT")="2901206"
^DD(701,305,0)="WALK^NJ3,1^^8;17^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,305,3)="Type a Number between 0 and 3, 1 Decimal Digit"
^DD(701,305,21,0)="^^1^1^2910501^"
^DD(701,305,21,1,0)="Indicates the level of functionality for walking."
^DD(701,305,"DT")="2901206"
^DD(701,306,0)="HYGIENE^NJ1,0^^8;18^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,306,3)="Type a Number between 0 and 3, 0 Decimal Digits"
^DD(701,306,21,0)="^^1^1^2910501^"
^DD(701,306,21,1,0)="Indicates the level of functionality for hygiene."
^DD(701,306,"DT")="2901206"
^DD(701,307,0)="REACH^NJ3,1^^8;19^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,307,3)="Type a Number between 0 and 3, 1 Decimal Digit"
^DD(701,307,21,0)="^^1^1^2910501^"
^DD(701,307,21,1,0)="Indicates the level of functionality for reaching."
^DD(701,307,"DT")="2901206"
^DD(701,308,0)="GRIP-ARA^NJ3,1^^8;20^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,308,3)="Type a Number between 0 and 3, 1 Decimal Digit"
^DD(701,308,21,0)="^^1^1^2910501^"
^DD(701,308,21,1,0)="Indicates the level of functionality for ARA grip."
^DD(701,308,"DT")="2901206"
^DD(701,309,0)="ACTIVITIES^NJ1,0^^8;21^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,309,3)="Type a Number between 0 and 3, 0 Decimal Digits"
^DD(701,309,21,0)="^^1^1^2910501^"
^DD(701,309,21,1,0)="Indicates the level of functionality for activities."
^DD(701,309,"DT")="2901205"
^DD(701,312,0)="OCCUPATION^S^0:NONE;1:PROFESSIONAL-TECH;2:FARMERS;3:MANAGERS;4:CLERICAL;5:SALES;7:OPERATIVES;8:SERVICE;9:FARM LABORERS;10:OTHER LABORERS;^8;24^Q"
^DD(701,312,3)="Select from list below."
^DD(701,312,21,0)="^^1^1^2920324^"
^DD(701,312,21,1,0)="This allows the user to enter occupation from a list of choices."
^DD(701,312,"DT")="2901205"
^DD(701,313,0)="CHART TYPE^S^0:HAQ;1:UNMARKED, RDC VI, OR R;2:RDC VIII;3:RDC IX;4:RDC X;5:RDC XI (1985);6:DEATH INFORMATION;7:DISCHARGE SUMMARY;^8;25^Q"
^DD(701,313,3)="Select from list below."
^DD(701,313,21,0)="^^1^1^2940602^^"
^DD(701,313,21,1,0)="This allows the user to select chart type for the patient."
^DD(701,313,"DT")="2901205"
^DD(701,314,0)="OBSERVER^*P200'^VA(200,^8;26^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(701,314,3)="Enter the name of the provider who saw the patient"
^DD(701,314,12)="allow only care providers to be selected"
^DD(701,314,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(701,314,21,0)="^^1^1^2950328^^^^"
^DD(701,314,21,1,0)="The provider who saw the patient."
^DD(701,314,"DT")="2950328"
^DD(701,315,0)="VISIT TYPE^S^0:CLINIC (PRIOR RDC X;1:HOSPITAL;2:PHONE;3:MAIL;4:INITIAL-COMP;5:RETURN;6:COMP PT ASSESSOR;7:MAIL-OUTSIDE PHY RECO;8:MAIL-OTHER;9:TLI-RENAL VISIT;^8;27^Q"
^DD(701,315,3)="Select from list below."
^DD(701,315,"DT")="2901205"
^DD(701,316,0)="DEC NUMBER^NJ2,0^^8;28^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,316,3)="Type a Number between 0 and 50, 0 Decimal Digits"
^DD(701,316,21,0)="^^1^1^2910701^"
^DD(701,316,21,1,0)="Data entry clerk number."
^DD(701,316,"DT")="2901205"
^DD(701,317,0)="VISIT NUMBER^NJ1,0^^8;29^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,317,3)="Type a Number between 0 and 1, 0 Decimal Digits"
^DD(701,317,21,0)="^^1^1^2910701^"
^DD(701,317,21,1,0)="This field identifies sequentially numbered."
^DD(701,317,"DT")="2900622"
^DD(701,318,0)="LOST OR DEATH STATUS^S^0:CLINIC ALIVE;1:CLINIC LOST;2:CLINIC DEAD;^9;1^Q"
^DD(701,318,3)="Enter appropriate code if patient is dead or lost from the VA files."
^DD(701,318,21,0)="^^1^1^2910701^"
^DD(701,318,21,1,0)="Is patient dead or lost from the VA files."
^DD(701,318,"DT")="2901205"
^DD(701,319,0)="DEATH DATE^D^^9;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(701,319,3)="Enter date of death dd/mm/yy."
^DD(701,319,21,0)="^^1^1^2920324^"
^DD(701,319,21,1,0)="This allows the user to enter the death date of patient."
^DD(701,319,"DT")="2900625"
^DD(701,321,0)="AUTOPSY AVAILABLE^S^0:NO;1:YES;^9;4^Q"
^DD(701,321,3)="Enter 'Yes' or 'No' if autopsy is available."
^DD(701,321,21,0)="^^1^1^2920324^"
^DD(701,321,21,1,0)="This field identifies enter yes or no if autopsy is available."
^DD(701,321,"DT")="2900625"
^DD(701,322,0)="CAUSE OF DEATH^S^1:NOT RHEUM DIS;2:RHEUM DIS;3:RHEUM DIS SURGERY;4:RHEUM DIS DRUG TOXICITY;^9;5^Q"
^DD(701,322,3)="Choose from the list below."
^DD(701,322,21,0)="^^1^1^2940707^^^^"
^DD(701,322,21,1,0)="This allows user to choose cause of death from list."
^DD(701,322,"DT")="2940707"
^DD(701,326,0)="NOTIFIED BY^S^1:PHONE;2:LETTER;3:OBITUARY;4:OTHER;^9;6^Q"
^DD(701,326,3)="Enter 1, 2, 3, 4 for phone, letter, obituary or other appropriately."
^DD(701,326,21,0)="^^1^1^2920324^"
^DD(701,326,21,1,0)="This allows user to choose notification method by list."
^DD(701,326,"DT")="2900627"
^DD(701,327,0)="PERSON PROVIDING NOTIFICATION^F^^9;7^K:$L(X)>30!($L(X)<1) X"
^DD(701,327,3)="Enter the persons name who provided the notification, last name first."
^DD(701,327,21,0)="^^2^2^2920324^"
^DD(701,327,21,1,0)="This allows user to enter the person's name who provided the"
^DD(701,327,21,2,0)="notification, last name first."
^DD(701,327,"DT")="2900627"
^DD(701,328,0)="DEATH NOTIFIED DATE^D^^9;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(701,328,3)="Enter the date when notified."
^DD(701,328,21,0)="^^1^1^2920324^"
^DD(701,328,21,1,0)="This allows user to enter the date when notified."
^DD(701,328,"DT")="2900627"
^DD(701,329,0)="DISEASE SEVERITY-PHY. ESTIMATE^S^1:MB (MUCH BETTER);2:B (BETTER);3:S (SAME);4:W (WORSE);5:MW (MUCH WORSE);^5;52^Q"
^DD(701,329,3)="Enter 1,2,3,4 or 5 for much better, better, same, worse, or much worse appropriately."
^DD(701,329,21,0)="^^1^1^2921105^^"
^DD(701,329,21,1,0)="This allows the user to choose estimate from list."
^DD(701,329,"DT")="2900822"
^DD(701,350,0)="LOW WHITE BLOOD COUNT^S^1:YES;0:NO;^10;1^Q"
^DD(701,350,3)="Enter 'Yes' or 'No' whether patient has a history of low white blood count."
^DD(701,350,21,0)="^^1^1^2910729^"
^DD(701,350,21,1,0)="Indicates the condition of low white blood count."
^DD(701,350,"DT")="2910729"
^DD(701,351,0)="LOW PLATELETS^S^1:YES;0:NO;^10;2^Q"
^DD(701,351,3)="Enter 'Yes' or 'No' whether the patient has had a low platelet count."
^DD(701,351,21,0)="^^1^1^2910729^"
^DD(701,351,21,1,0)="Indicates the condition of low platelet count."
^DD(701,351,"DT")="2910729"
^DD(701,352,0)="LOW RED BLOOD COUNT^S^1:YES;0:NO;^10;3^Q"
^DD(701,352,3)="Enter 'Yes' or 'No' whether the patient has had the condition of low red blood count."
^DD(701,352,21,0)="^^1^1^2910729^"
^DD(701,352,21,1,0)="Indicates the condition of low red blood count."
^DD(701,352,"DT")="2910729"
^DD(701,600,0)="PROCEDURE SUMMARY^RF^^.2;2^K:$L(X)>79!($L(X)<1) X"
^DD(701,600,3)="Answer must be 1-79 characters in length.  This will appear on the 'Summary of Patient Procedures'."
^DD(701,600,21,0)="^^1^1^2920324^^"
^DD(701,600,21,1,0)="This allows user to enter a summary of the procedure."
^DD(701,600,22)=""
^DD(701,600,"DT")="2901128"
^DD(701,601,0)="SUMMARY^RS^N:NORMAL;MI:MILD ABNL;MO:MOD ABNL;S:SEV ABNL;^.2;1^Q"
^DD(701,601,3)="Select from list below."
^DD(701,601,21,0)="^^1^1^2920324^"
^DD(701,601,21,1,0)="This allows user to choose summary code."
^DD(701,601,"DT")="2910215"
^DD(701,602,0)="QUESTDATE^D^^0;63^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(701,602,3)="Enter question date."
^DD(701,602,21,0)="^^1^1^2910701^"
^DD(701,602,21,1,0)="This field identifies the date of the HAQ."
^DD(701,602,"DT")="2901205"
^DD(701,603,0)="HAQADMIN^S^0:CLINIC INTERVIEW;1:HOSPITAL INTERVIEW;2:TELEPHONE;3:MAIL;^0;64^Q"
^DD(701,603,3)="Select from list below."
^DD(701,603,"DT")="2901205"
^DD(701,604,0)="QUESTYPE^S^1:EVERY YEAR;2:EVERY 6 MONTHS;^0;65^Q"
^DD(701,604,"DT")="2901205"
^DD(701,605,0)="STUDY STATUS^S^0:ONGOING;1:LOSS OF FUNDS;2:DEAD;3:WITHDRAWN FROM STUDY;4:DX CHANGED;5:NON-PART REFUSED;6:NON-PART NO RESPONSE;7:TEMP OUT OF STUDY;8:STEY RE-ENTRY;^0;66^Q"
^DD(701,605,3)="Select from list below."
^DD(701,605,21,0)="^^1^1^2920324^"
^DD(701,605,21,1,0)="This allows user to choose code of study status."
^DD(701,605,"DT")="2940913"
^DD(701,606,0)="DRUGSTY^S^1:COHORT I;2:COHORT II;3:COHORT III;4:COHORT IV;5:COHORT V;6:COHORT VI;7:COHORT VII;8:COHORT VIII;^0;67^Q"
^DD(701,606,3)="Select from list below."
^DD(701,606,21,0)="^^2^2^2910701^"
^DD(701,606,21,1,0)="This field identifies a special field to identify patients who are"
^DD(701,606,21,2,0)="participating in a drug research study."
^DD(701,606,"DT")="2901206"
^DD(701,607,0)="QUESTNUM^NJ2,0^^0;68^K:+X'=X!(X>18)!(X<0)!(X?.E1"".""1N.N) X"
^DD(701,607,3)="Type a Number between 0 and 18, 0 Decimal Digits"
^DD(701,607,"DT")="2901206"
^DD(701,608,0)="PMSVIS^S^0:NO;1:YES;^0;69^Q"
^DD(701,608,3)="Enter 'NO' or 'YES'."
^DD(701,608,"DT")="2901206"
^DD(701,609,0)="RISE^NJ3,1^^0;70^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""2N.N) X"
^DD(701,609,3)="Type a Number between 0 and 3, 1 Decimal Digit"
^DD(701,609,21,0)="^^1^1^2910701^"
^DD(701,609,21,1,0)="Summary score of HAQ questions about arising."
^DD(701,609,"DT")="2901206"
^DD(701,610,0)="NAUSEA^S^0:NO;1:YES;^0;71^Q"
^DD(701,610,3)="Enter 0 for No and 1 for Yes if patient has Nausea."
^DD(701,610,21,0)="^^1^1^2920324^"
^DD(701,610,21,1,0)="This allows user to enter yes or no for presence of nausea."
^DD(701,610,"DT")="2901211"
^DD(701,611,0)="HISTORY NARRATIVE^701.0611^^11;0"
^DD(701,611,21,0)="^^1^1^2920324^"
^DD(701,611,21,1,0)="This allows user to enter a history narrative."
^DD(701,611,22)=""
^DD(701,612,0)="END SESSION^F^^12;1^K:$L(X)>1!($L(X)<1) X"
^DD(701,612,3)="Hit the RETURN key to end session."
^DD(701,612,21,0)="^^1^1^2920324^"
^DD(701,612,21,1,0)="This allows user to hit the RETURN key to end session."
^DD(701,612,"DT")="2910103"
^DD(701,613,0)="LABORATORY INFO^P63'^LR(^12;2^Q"
^DD(701,613,3)="This file is a pointer to the Lab Data file (#63)."
^DD(701,613,21,0)="^^1^1^2920324^"
^DD(701,613,21,1,0)="This allows user to enter laboratory information."
^DD(701,613,"DT")="2910110"
^DD(701,614,0)="LAB CHEM^P60'^LAB(60,^12;3^Q"
^DD(701,614,3)="This file is a pointer to the Laboratory Test File (#60)."
^DD(701,614,21,0)="^^1^1^2920324^"
^DD(701,614,21,1,0)="This allows user to enter information to the laboratory test file."
^DD(701,614,"DT")="2910125"
^DD(701,615,0)="DIAGNOSIS^701.0615IP^^13;0"
^DD(701,615,21,0)="^^1^1^2920324^"
^DD(701,615,21,1,0)="This allows user to enter Diagnosis."
^DD(701,700,0)="ICD DIAGNOSIS^701.01P^^ICD;0"
^DD(701,700,21,0)="^^3^3^2930601^^^^"
^DD(701,700,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(701,700,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(701,700,21,3,0)="future."
^DD(701,701,0)="PRIMARY PROVIDER^*P200'^VA(200,^PROV;1^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(701,701,3)="Enter the Primary Provider."
^DD(701,701,12)="Only allow Providers!"
^DD(701,701,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",+Y))"""
^DD(701,701,21,0)="^^3^3^2940912^^^"
^DD(701,701,21,1,0)="This contains the primary provider.  It is triggered by another field in"
^DD(701,701,21,2,0)="the file and is located here to provider a standard provider location for"
^DD(701,701,21,3,0)="use in transferring data to the PCC."
^DD(701,701,"DT")="2940912"
^DD(701,900,0)="PCC POINTER^P9000010'^AUPNVSIT(^PCC;1^Q"
^DD(701,900,1,0)="^.1"
^DD(701,900,1,1,0)="701^APCE"
^DD(701,900,1,1,1)="S ^MCAR(701,""APCE"",$E(X,1,30),DA)="""""
^DD(701,900,1,1,2)="K ^MCAR(701,""APCE"",$E(X,1,30),DA)"
^DD(701,900,1,1,"%D",0)="^^1^1^2960517^"
^DD(701,900,1,1,"%D",1,0)="Pointer to the Visit file."
^DD(701,900,1,1,"DT")="2960517"
^DD(701,900,21,0)="^^2^2^2920728^^^"
^DD(701,900,21,1,0)="This field is used to link the Medicine package results with the PCC"
^DD(701,900,21,2,0)="Visit File for use by Queryman."
^DD(701,900,"DT")="2960517"
^DD(701,1000,0)="ORIFN^P100'^OR(100,^OR;1^Q"
^DD(701,1000,3)="Enter the 'Consult Orders' internal file number."
^DD(701,1000,21,0)="^^3^3^2910709^"
^DD(701,1000,21,1,0)="This field contains a pointer to the 'Consult Orders' internal file number,"
^DD(701,1000,21,2,0)="stored in file 100.  This field is entered when results are entered in the"
^DD(701,1000,21,3,0)="Medicine package."
^DD(701,1000,"DT")="2910709"
^DD(701,1001,0)="GMRCO^P123'^GMR(123,^OR;2^Q"
^DD(701,1001,3)="Enter the 'Request/Consultation' internal file number."
^DD(701,1001,21,0)="^^3^3^2910816"
^DD(701,1001,21,1,0)="This field contains a pointer to the internal number of the consult order"
^DD(701,1001,21,2,0)="stored in the REQUEST/CONSULTATION file (123).  This field is entered when"
^DD(701,1001,21,3,0)="results are entered in the Medicine package."
^DD(701,1001,"DT")="2920716"
^DD(701,1514,0)="CREATION DATE^D^^ES;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(701,1514,"DT")="2930901"
^DD(701,2005,0)="IMAGE^701.02005P^^2005;0"
^DD(701,2005,21,0)="^^1^1^2920706^"
^DD(701,2005,21,1,0)="This field points to an entry in the image file."
^DD(701,"B","1ST CARPOMETACARPAL L",136)=""
^DD(701,"B","1ST CARPOMETACARPAL R",137)=""
^DD(701,"B","ACTIVITIES",309)=""
^DD(701,"B","ANKLE LEFT",152)=""
^DD(701,"B","ANKLE RIGHT",153)=""
^DD(701,"B","ARISING",303)=""
^DD(701,"B","AUTOPSY AVAILABLE",321)=""
^DD(701,"B","BLK/TARRY STOOL(NOT FROM IRON)",19)=""
^DD(701,"B","BLOOD IN URINE",31)=""
^DD(701,"B","BLURRED VISION",2)=""
^DD(701,"B","BP-DIASTOLIC",296)=""
^DD(701,"B","BP-SYSTOLIC",295)=""
^DD(701,"B","BURNING ON URINATION",32)=""
^DD(701,"B","CATARACT",68)=""
^DD(701,"B","CAUSE OF DEATH",322)=""
^DD(701,"B","CERVICAL SPINE",158)=""
^DD(701,"B","CHART TYPE",313)=""
^DD(701,"B","CHEST EXPANSION",121)=""
^DD(701,"B","CHEST PAIN/TAKING DEEP BREATH",16)=""
^DD(701,"B","CONJUNCTIVITIS/EPISCLERITIS",67.7)=""
^DD(701,"B","CONSTIPATION",20)=""
^DD(701,"B","COSTOCHONDRAL-LEFT",160)=""
^DD(701,"B","COSTOCHONDRAL-RIGHT",161)=""
^DD(701,"B","COSTOCHONDRITIS",117)=""
^DD(701,"B","CREATION DATE",1514)=""
^DD(701,"B","CURRENT MEDICATION",107)=""
^DD(701,"B","CUTANEOUS VASCULTITIS",99)=""
^DD(701,"B","DACTYLITIS",110)=""
^DD(701,"B","DATE/TIME",.01)=""
^DD(701,"B","DEATH DATE",319)=""
^DD(701,"B","DEATH NOTIFIED DATE",328)=""
^DD(701,"B","DEC NUMBER",316)=""
^DD(701,"B","DEPRESSION",45)=""
^DD(701,"B","DIAGNOSIS",615)=""
^DD(701,"B","DIARRHEA(FREQUENT,WATERY)",21)=""
^DD(701,"B","DIASTOLIC MURMUR",76)=""
^DD(701,"B","DIASTOLIC PRESSURE",65)=""
^DD(701,"B","DIFFICULTY SWALLOWING",22)=""
^DD(701,"B","DIGITAL ULCERS",103)=""
^DD(701,"B","DISABILITY INDEX",301)=""
^DD(701,"B","DISCHARGE FROM PENIS",59)=""
^DD(701,"B","DISEASE ACTIVITY COMPOSITE",297)=""
^DD(701,"B","DISEASE SEVERITY-MD ESTIMATE",299)=""
^DD(701,"B","DISEASE SEVERITY-PAT. ESTIMATE",129)=""
^DD(701,"B","DISEASE SEVERITY-PHY. ESTIMATE",329)=""
^DD(701,"B","DISEASE SEVERITY-PT. ESTIMATE",298)=""
^DD(701,"B","DIZZINESS",3)=""
^DD(701,"B","DRESSING AND GROOMING",302)=""
^DD(701,"B","DRUGSTY",606)=""
^DD(701,"B","DRY EYES",4)=""
^DD(701,"B","DRY MOUTH",5)=""
^DD(701,"B","EASY BRUISING",51)=""
^DD(701,"B","EATING",304)=""
^DD(701,"B","ELBOW LEFT",140)=""
^DD(701,"B","ELBOW RIGHT",141)=""
^DD(701,"B","END SESSION",612)=""
^DD(701,"B","ERYTHEMA NODOSUM",106)=""
^DD(701,"B","FACIAL SKIN TIGHTENING",52)=""
^DD(701,"B","FEVER",6)=""
^DD(701,"B","FINGER-TO-PALM CREASE-LEFT",123)=""
^DD(701,"B","FINGER-TO-PALM CREASE-RIGHT",124)=""
^DD(701,"B","FINGERS-DIP LEFT",130)=""
^DD(701,"B","FINGERS-DIP RIGHT",131)=""
^DD(701,"B","FINGERS-PIP LEFT",132)=""
^DD(701,"B","FINGERS-PIP RIGHT",133)=""
^DD(701,"B","FUNCTIONAL CLASS (ACR)",128)=""
^DD(701,"B","GAS(FLATULENCE)",23)=""
^DD(701,"B","GMRCO",1001)=""
^DD(701,"B","GRIP STRENGTH-LEFT",118)=""
^DD(701,"B","GRIP STRENGTH-RIGHT",119)=""
^DD(701,"B","GRIP-ARA",308)=""
^DD(701,"B","HAQADMIN",603)=""
^DD(701,"B","HEADACHE",7)=""
^DD(701,"B","HEARING DIFFICULTIES",8)=""
^DD(701,"B","HEARTBURN,INDIGESTION,BELCHING",24)=""
^DD(701,"B","HEEL PAIN",114)=""
^DD(701,"B","HEIGHT",62)=""
^DD(701,"B","HELIOTROPE EYELIDS",88)=""
^DD(701,"B","HEPATOMEGALY",80)=""
^DD(701,"B","HIP LEFT",148)=""
^DD(701,"B","HIP RIGHT",149)=""
^DD(701,"B","HISTORY NARRATIVE",611)=""
^DD(701,"B","HIVES OR WELTS",53)=""
^DD(701,"B","HYGIENE",306)=""
^DD(701,"B","ICD DIAGNOSIS",700)=""
^DD(701,"B","IMAGE",2005)=""
^DD(701,"B","IMPOTENCE",60)=""
^DD(701,"B","INCREASED SWEATING",9)=""
^DD(701,"B","INSOMNIA",46)=""
^DD(701,"B","INTERINCISOR DISTANCE",125)=""
^DD(701,"B","IRITIS",69)=""
^DD(701,"B","IRREGULAR PERIODS",34)=""
^DD(701,"B","ITCHING",54)=""
^DD(701,"B","JAUNDICE",25)=""
^DD(701,"B","JOINT PAIN",36)=""
^DD(701,"B","JOINT SWELLING",37)=""
^DD(701,"B","KERATODERMIA BLENNORRHAGICA",101)=""
^DD(701,"B","KIDNEY PROBLEMS",31.5)=""
^DD(701,"B","KNEE LEFT",150)=""
^DD(701,"B","KNEE RIGHT",151)=""
^DD(701,"B","KNUCKLE ERYTHEMA",102)=""
^DD(701,"B","LAB CHEM",614)=""
^DD(701,"B","LABORATORY INFO",613)=""
^DD(701,"B","LIVER PROBLEMS",19.1)=""
^DD(701,"B","LOOSE/FREQUENT BOWEL(MILD)",26)=""
^DD(701,"B","LOSS OF APPETITE",27)=""
^DD(701,"B","LOSS OF HAIR",11)=""
^DD(701,"B","LOSS,CHANGE IN TASTE",10)=""
^DD(701,"B","LOST OR DEATH STATUS",318)=""
^DD(701,"B","LOW BACK PAIN",38)=""
^DD(701,"B","LOW PLATELETS",351)=""
^DD(701,"B","LOW RED BLOOD COUNT",352)=""
^DD(701,"B","LOW WHITE BLOOD COUNT",350)=""
^DD(701,"B","LUMBAR SPINE",159)=""
^DD(701,"B","LYMPH NODE ENLARGEMENT",77)=""
^DD(701,"B","MCPS LEFT",134)=""
^DD(701,"B","MCPS RIGHT",135)=""
^DD(701,"B","MEDICAL PATIENT",1)=""
^DD(701,"B","MEDICATION",201)=""
^DD(701,"B","MORPHEA",97)=""
^DD(701,"B","MOTOR NEUROPATHY",86)=""
^DD(701,"B","MOUTH SORES",12)=""
^DD(701,"B","MTP LEFT",154)=""
^DD(701,"B","MTP RIGHT",155)=""
^DD(701,"B","MUSCLE ATROPHY",83)=""
^DD(701,"B","MUSCLE PAIN",39)=""
^DD(701,"B","MUSCLE TENDERNESS",78)=""
^DD(701,"B","MUSCLE WEAKNESS-DISTAL",79)=""
^DD(701,"B","MUSCLE WEAKNESS-PROXIMAL",82)=""
^DD(701,"B","NAIL PITTING",104)=""
^DD(701,"B","NAUSEA",610)=""
^DD(701,"B","NECK PAIN",40)=""
^DD(701,"B","NERVOUSNESS",47)=""
^DD(701,"B","NIGHT PAIN",41)=""
^DD(701,"B","NIGHT SWEATS",9.1)=""
^DD(701,"B","NOTIFIED BY",326)=""
^DD(701,"B","NUMBNESS OR TINGLING",42)=""
^DD(701,"B","OBSERVER",314)=""
^DD(701,"B","OCCIPUT-WALL",122)=""
^DD(701,"B","OCCUPATION",312)=""
^DD(701,"B","ORAL ULCERS",70)=""
^DD(701,"B","ORGANIC BRAIN SYNDROME",85)=""
^DD(701,"B","ORIFN",1000)=""
^DD(701,"B","OTHER",31.8)=""
^DD(701,"B","PAIN/CRAMPS LOWER ABDOMEN",28)=""
^DD(701,"B","PAIN/DISCOMFORT UPPER ABDOMEN",29)=""
^DD(701,"B","PAINSCAL",300)=""
^DD(701,"B","PALPABLE PURPURA",93)=""
^DD(701,"B","PCC POINTER",900)=""
^DD(701,"B","PERICARDIAL RUB/PERICARDITIS",74)=""
^DD(701,"B","PERIUNGAL ERYTHEMA",100)=""
^DD(701,"B","PERSON PROVIDING NOTIFICATION",327)=""
^DD(701,"B","PLEURAL EFFUSION",73)=""
^DD(701,"B","PLEURAL RUB/CLINICAL PLEURISY",72)=""
^DD(701,"B","PMSVIS",608)=""
^DD(701,"B","PREGNANT",33)=""
^DD(701,"B","PRESCRIBED MEDICATIONS",108)=""
^DD(701,"B","PRIMARY PROVIDER",701)=""
^DD(701,"B","PROCEDURE SUMMARY",600)=""
^DD(701,"B","PSORIASIS",90)=""
^DD(701,"B","PSYCHOSIS",84)=""
^DD(701,"B","PULSE",66)=""
^DD(701,"B","QUESTDATE",602)=""
^DD(701,"B","QUESTNUM",607)=""
^DD(701,"B","QUESTYPE",604)=""
^DD(701,"B","RALES",71)=""
^DD(701,"B","RASH",55)=""
^DD(701,"B","RASH OVER CHEEKS",56)=""
^DD(701,"B","RASH-DISCOID",91)=""
^DD(701,"B","RASH-JRA",92)=""
^DD(701,"B","RASH-MALAR",89)=""
^DD(701,"B","RASH-OTHER",89.2)=""
^DD(701,"B","RASH-SLE,NON-MALAR",89.1)=""
^DD(701,"B","RASH/ULCERS ON PENIS",61)=""
^DD(701,"B","REACH",307)=""
^DD(701,"B","RED,IRRITATED EYES",13)=""
^DD(701,"B","RINGING IN EARS",14)=""
^DD(701,"B","RISE",609)=""
^DD(701,"B","SACROILIAC-LEFT",162)=""
^DD(701,"B","SACROILIAC-RIGHT",163)=""
^DD(701,"B","SCHIRMER TEST",126)=""
^DD(701,"B","SCHOBER TEST (10 cm BASE)",120)=""
^DD(701,"B","SCLERODACTYLY",94)=""
^DD(701,"B","SCLERODERMA-EXTREMITY",95)=""
^DD(701,"B","SCLERODERMA-GENERALIZED",96)=""
^DD(701,"B","SEIZURES OR CONVULSION",48)=""
^DD(701,"B","SENSORY NEUROPATHY",87)=""
^DD(701,"B","SHORTNESS OF BREATH",17)=""
^DD(701,"B","SHOULDER LEFT",142)=""
^DD(701,"B","SHOULDER RIGHT",143)=""
^DD(701,"B","SKIN COLOR CHANGE IN FINGER",57)=""
^DD(701,"B","SKIN ULCERS",105)=""
^DD(701,"B","SORE THROAT",15)=""
^DD(701,"B","SPLENOMEGALY",81)=""
^DD(701,"B","SSN",1.1)=""
^DD(701,"B","STERNOCLAVICULAR LEFT",144)=""
^DD(701,"B","STERNOCLAVICULAR RIGHT",145)=""
^DD(701,"B","STIFF IN THE MORNING HOW LONG",35)=""
^DD(701,"B","STUDY STATUS",605)=""
^DD(701,"B","SUB-CUTANEOUS NODULES",112)=""
^DD(701,"B","SUBCUTANEOUS CALCIFICATIONS",112.5)=""
^DD(701,"B","SUMMARY",601)=""
^DD(701,"B","SUN SENSITIVITY",58)=""
^DD(701,"B","SWELLING OF LEGS",43)=""
^DD(701,"B","SYMMETRICAL ARTHRITIS",109)=""
^DD(701,"B","SYNOVIAL (BAKER'S) CYST",113)=""
^DD(701,"B","SYSTOLIC MURMUR",75)=""
^DD(701,"B","SYSTOLIC PRESSURE",64)=""
^DD(701,"B","TELANGIECTASIS",98)=""
^DD(701,"B","TEMPORAL ARTERY TENDERNESS",116)=""
^DD(701,"B","TENOSYNOVITIS(TENDON RUBS)",115)=""
^DD(701,"B","THORACIC SPINE",164)=""
^DD(701,"B","TIREDNESS",49)=""
^DD(701,"B","TMJ LEFT",146)=""
^DD(701,"B","TMJ RIGHT",147)=""
^DD(701,"B","TOES-PIP LEFT",156)=""
^DD(701,"B","TOES-PIP RIGHT",157)=""
^DD(701,"B","TOPHI",111)=""
^DD(701,"B","TROUBLE REMEMBERING/THINKING",50)=""
^DD(701,"B","URINE PROTEIN",31.1)=""
^DD(701,"B","UVEITIS",67)=""
^DD(701,"B","UVEITIS/IRITIS",67.5)=""
^DD(701,"B","VISIT NUMBER",317)=""
^DD(701,"B","VISIT TYPE",315)=""
^DD(701,"B","VOMITING",30)=""
^DD(701,"B","WALK",305)=""
^DD(701,"B","WALK TIME (50 FEET)",127)=""
^DD(701,"B","WEAKNESS OF MUSCLES",44)=""
^DD(701,"B","WEIGHT",63)=""
^DD(701,"B","WHEEZING(ASTHMA)",18)=""
^DD(701,"B","WRIST LEFT",138)=""
^DD(701,"B","WRIST RIGHT",139)=""
^DD(701,"GL",0,1,.01)=""
^DD(701,"GL",0,2,1)=""
^DD(701,"GL",0,3,2)=""
^DD(701,"GL",0,4,3)=""
^DD(701,"GL",0,5,4)=""
^DD(701,"GL",0,6,5)=""
^DD(701,"GL",0,7,6)=""
^DD(701,"GL",0,8,7)=""
^DD(701,"GL",0,9,8)=""
^DD(701,"GL",0,10,9)=""
^DD(701,"GL",0,11,10)=""
^DD(701,"GL",0,12,11)=""
^DD(701,"GL",0,13,12)=""
^DD(701,"GL",0,14,13)=""
^DD(701,"GL",0,15,14)=""
^DD(701,"GL",0,16,15)=""
^DD(701,"GL",0,17,16)=""
^DD(701,"GL",0,18,17)=""
^DD(701,"GL",0,19,18)=""
^DD(701,"GL",0,20,19)=""
^DD(701,"GL",0,21,20)=""
^DD(701,"GL",0,22,21)=""
^DD(701,"GL",0,23,22)=""
^DD(701,"GL",0,24,23)=""
^DD(701,"GL",0,25,24)=""
^DD(701,"GL",0,26,25)=""
^DD(701,"GL",0,27,26)=""
^DD(701,"GL",0,28,27)=""
^DD(701,"GL",0,29,28)=""
^DD(701,"GL",0,30,29)=""
^DD(701,"GL",0,31,30)=""
^DD(701,"GL",0,32,31)=""
^DD(701,"GL",0,33,32)=""
^DD(701,"GL",0,34,33)=""
^DD(701,"GL",0,35,34)=""
^DD(701,"GL",0,36,35)=""
^DD(701,"GL",0,37,36)=""
^DD(701,"GL",0,38,37)=""
^DD(701,"GL",0,39,38)=""
^DD(701,"GL",0,40,39)=""
^DD(701,"GL",0,41,40)=""
^DD(701,"GL",0,42,41)=""
^DD(701,"GL",0,43,42)=""
^DD(701,"GL",0,44,43)=""
^DD(701,"GL",0,45,44)=""
^DD(701,"GL",0,46,45)=""
^DD(701,"GL",0,47,46)=""
^DD(701,"GL",0,48,47)=""
^DD(701,"GL",0,49,48)=""
^DD(701,"GL",0,50,49)=""
^DD(701,"GL",0,51,50)=""
^DD(701,"GL",0,52,51)=""
^DD(701,"GL",0,53,52)=""
^DD(701,"GL",0,54,53)=""
^DD(701,"GL",0,55,54)=""
^DD(701,"GL",0,56,55)=""
^DD(701,"GL",0,57,56)=""
^DD(701,"GL",0,58,57)=""
^DD(701,"GL",0,59,58)=""
^DD(701,"GL",0,60,59)=""
^DD(701,"GL",0,61,60)=""
^DD(701,"GL",0,62,61)=""
^DD(701,"GL",0,63,602)=""
^DD(701,"GL",0,64,603)=""
^DD(701,"GL",0,65,604)=""
^DD(701,"GL",0,66,605)=""
^DD(701,"GL",0,67,606)=""
^DD(701,"GL",0,68,607)=""
^DD(701,"GL",0,69,608)=""
^DD(701,"GL",0,70,609)=""
^DD(701,"GL",0,71,610)=""
^DD(701,"GL",.2,1,601)=""
^DD(701,"GL",.2,2,600)=""
^DD(701,"GL",1,1,9.1)=""
^DD(701,"GL",1,2,19.1)=""
^DD(701,"GL",1,3,31.1)=""
^DD(701,"GL",1,4,31.5)=""
^DD(701,"GL",1,5,67.5)=""
^DD(701,"GL",1,6,67.7)=""
^DD(701,"GL",1,7,89.1)=""
^DD(701,"GL",1,8,89.2)=""
^DD(701,"GL",1,9,112.5)=""
^DD(701,"GL",1,10,31.8)=""
^DD(701,"GL",1,11,160)=""
^DD(701,"GL",1,12,161)=""
^DD(701,"GL",1,13,162)=""
^DD(701,"GL",1,14,163)=""
^DD(701,"GL",1,15,164)=""
^DD(701,"GL",2,1,62)=""
^DD(701,"GL",2,2,63)=""
^DD(701,"GL",2,3,64)=""
^DD(701,"GL",2,4,65)=""
^DD(701,"GL",2,5,66)=""
^DD(701,"GL",2,6,67)=""
^DD(701,"GL",2,7,68)=""
^DD(701,"GL",2,8,69)=""
^DD(701,"GL",2,9,70)=""
^DD(701,"GL",2,10,71)=""
^DD(701,"GL",2,11,72)=""
^DD(701,"GL",2,12,73)=""
^DD(701,"GL",2,13,74)=""
^DD(701,"GL",2,14,75)=""
^DD(701,"GL",2,15,76)=""
^DD(701,"GL",2,16,77)=""
^DD(701,"GL",2,17,78)=""
^DD(701,"GL",2,18,79)=""
^DD(701,"GL",2,19,80)=""
^DD(701,"GL",2,20,81)=""
^DD(701,"GL",2,21,82)=""
^DD(701,"GL",2,22,83)=""
^DD(701,"GL",2,23,84)=""
^DD(701,"GL",2,24,85)=""
^DD(701,"GL",2,25,86)=""
^DD(701,"GL",2,26,87)=""
^DD(701,"GL",2,27,88)=""
^DD(701,"GL",2,28,89)=""
^DD(701,"GL",2,29,90)=""
^DD(701,"GL",2,30,91)=""
^DD(701,"GL",2,31,92)=""
^DD(701,"GL",2,32,93)=""
^DD(701,"GL",2,33,94)=""
^DD(701,"GL",2,34,95)=""
^DD(701,"GL",2,35,96)=""
^DD(701,"GL",2,36,97)=""
^DD(701,"GL",2,37,98)=""
^DD(701,"GL",2,38,99)=""
^DD(701,"GL",2,39,100)=""
^DD(701,"GL",2,40,101)=""
^DD(701,"GL",2,41,102)=""
^DD(701,"GL",2,42,103)=""
^DD(701,"GL",2,43,104)=""
^DD(701,"GL",2,44,105)=""
^DD(701,"GL",2,45,106)=""
^DD(701,"GL",3,1,107)=""
^DD(701,"GL",4,0,108)=""
^DD(701,"GL",5,1,109)=""
^DD(701,"GL",5,2,110)=""
^DD(701,"GL",5,3,111)=""
^DD(701,"GL",5,4,112)=""
^DD(701,"GL",5,5,113)=""
^DD(701,"GL",5,6,114)=""
^DD(701,"GL",5,7,115)=""
^DD(701,"GL",5,8,116)=""
^DD(701,"GL",5,9,117)=""
^DD(701,"GL",5,10,118)=""
^DD(701,"GL",5,11,119)=""
^DD(701,"GL",5,12,120)=""
^DD(701,"GL",5,13,121)=""
^DD(701,"GL",5,14,122)=""
^DD(701,"GL",5,15,123)=""
^DD(701,"GL",5,16,124)=""
^DD(701,"GL",5,17,125)=""
^DD(701,"GL",5,18,126)=""
^DD(701,"GL",5,19,127)=""
^DD(701,"GL",5,20,128)=""
^DD(701,"GL",5,21,129)=""
^DD(701,"GL",5,22,130)=""
^DD(701,"GL",5,23,131)=""
^DD(701,"GL",5,24,132)=""
^DD(701,"GL",5,25,133)=""
^DD(701,"GL",5,26,134)=""
^DD(701,"GL",5,27,135)=""
^DD(701,"GL",5,28,136)=""
^DD(701,"GL",5,29,137)=""
^DD(701,"GL",5,30,138)=""
^DD(701,"GL",5,31,139)=""
^DD(701,"GL",5,32,140)=""
^DD(701,"GL",5,33,141)=""
^DD(701,"GL",5,34,142)=""
^DD(701,"GL",5,35,143)=""
^DD(701,"GL",5,36,144)=""
^DD(701,"GL",5,37,145)=""
^DD(701,"GL",5,38,146)=""
^DD(701,"GL",5,39,147)=""
^DD(701,"GL",5,40,148)=""
^DD(701,"GL",5,41,149)=""
^DD(701,"GL",5,42,150)=""
^DD(701,"GL",5,43,151)=""
^DD(701,"GL",5,44,152)=""
^DD(701,"GL",5,45,153)=""
^DD(701,"GL",5,46,154)=""
^DD(701,"GL",5,47,155)=""
^DD(701,"GL",5,48,156)=""
^DD(701,"GL",5,49,157)=""
^DD(701,"GL",5,50,158)=""
^DD(701,"GL",5,51,159)=""
^DD(701,"GL",5,52,329)=""
^DD(701,"GL",6,0,201)=""
^DD(701,"GL",8,7,295)=""
^DD(701,"GL",8,8,296)=""
^DD(701,"GL",8,9,297)=""
^DD(701,"GL",8,10,298)=""
^DD(701,"GL",8,11,299)=""
^DD(701,"GL",8,12,300)=""
^DD(701,"GL",8,13,301)=""
^DD(701,"GL",8,14,302)=""
^DD(701,"GL",8,15,303)=""
^DD(701,"GL",8,16,304)=""
^DD(701,"GL",8,17,305)=""
^DD(701,"GL",8,18,306)=""
^DD(701,"GL",8,19,307)=""
^DD(701,"GL",8,20,308)=""
^DD(701,"GL",8,21,309)=""
^DD(701,"GL",8,24,312)=""
^DD(701,"GL",8,25,313)=""
^DD(701,"GL",8,26,314)=""
^DD(701,"GL",8,27,315)=""
^DD(701,"GL",8,28,316)=""
^DD(701,"GL",8,29,317)=""
^DD(701,"GL",9,1,318)=""
^DD(701,"GL",9,2,319)=""
^DD(701,"GL",9,4,321)=""
^DD(701,"GL",9,5,322)=""
^DD(701,"GL",9,6,326)=""
^DD(701,"GL",9,7,327)=""
^DD(701,"GL",9,8,328)=""
^DD(701,"GL",10,1,350)=""
^DD(701,"GL",10,2,351)=""
^DD(701,"GL",10,3,352)=""
^DD(701,"GL",11,0,611)=""
^DD(701,"GL",12,1,612)=""
^DD(701,"GL",12,2,613)=""
^DD(701,"GL",12,3,614)=""
^DD(701,"GL",13,0,615)=""
^DD(701,"GL",2005,0,2005)=""
^DD(701,"GL","ES",1,1514)=""
^DD(701,"GL","ICD",0,700)=""
^DD(701,"GL","OR",1,1000)=""
^DD(701,"GL","OR",2,1001)=""
^DD(701,"GL","PCC",1,900)=""
^DD(701,"GL","PROV",1,701)=""
^DD(701,"IX",.01)=""
^DD(701,"IX",1)=""
^DD(701,"IX",1.1)=""
^DD(701,"IX",900)=""
^DD(701,"RQ",.01)=""
^DD(701,"RQ",1)=""
^DD(701,"RQ",600)=""
^DD(701,"RQ",601)=""
^DD(701,"SB",701.01,700)=""
^DD(701,"SB",701.0108,108)=""
^DD(701,"SB",701.02005,2005)=""
^DD(701,"SB",701.0201,201)=""
^DD(701,"SB",701.0611,611)=""
^DD(701,"SB",701.0615,615)=""
^DD(701.01,0)="ICD DIAGNOSIS SUB-FIELD^^.02^2"
^DD(701.01,0,"DT")="2930310"
^DD(701.01,0,"IX","B",701.01,.01)=""
^DD(701.01,0,"NM","ICD DIAGNOSIS")=""
^DD(701.01,0,"UP")="701"
^DD(701.01,.01,0)="ICD DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(701.01,.01,1,0)="^.1"
^DD(701.01,.01,1,1,0)="701.01^B"
^DD(701.01,.01,1,1,1)="S ^MCAR(701,DA(1),""ICD"",""B"",$E(X,1,30),DA)="""""
^DD(701.01,.01,1,1,2)="K ^MCAR(701,DA(1),""ICD"",""B"",$E(X,1,30),DA)"
^DD(701.01,.01,4)=""
^DD(701.01,.01,21,0)="^^3^3^2930601^^^^"
^DD(701.01,.01,21,1,0)="This field contains the ICD9 Diagnosis(es) for the procedure.  The field"
^DD(701.01,.01,21,2,0)="also contains a NARRATIVE DIAGNOSIS sub-field which will be used in the"
^DD(701.01,.01,21,3,0)="future."
^DD(701.01,.01,"DT")="2930310"
^DD(701.01,.02,0)="NARRATIVE DIAGNOSIS^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(701.01,.02,3)="Answer must be 1-80 characters in length."
^DD(701.01,.02,"DT")="2920102"
^DD(701.01,"B","ICD DIAGNOSIS",.01)=""
^DD(701.01,"B","NARRATIVE DIAGNOSIS",.02)=""
^DD(701.01,"GL",0,1,.01)=""
^DD(701.01,"GL",0,2,.02)=""
^DD(701.01,"IX",.01)=""
^DD(701.0108,0)="PRESCRIBED MEDICATIONS SUB-FIELD^^.01^1"
^DD(701.0108,0,"NM","PRESCRIBED MEDICATIONS")=""
^DD(701.0108,0,"UP")="701"
^DD(701.0108,.01,0)="PRESCRIBED MEDICATIONS^W^^0;1^Q"
^DD(701.0108,.01,3)="Enter prescribed medications, enter '?' for word processing help"
^DD(701.0108,.01,21,0)="^^1^1^2910501^"
^DD(701.0108,.01,21,1,0)="This field identifies the prescribed medications."
^DD(701.0108,.01,"DT")="2910405"
^DD(701.0108,"B","PRESCRIBED MEDICATIONS",.01)=""
^DD(701.0108,"GL",0,1,.01)=""
^DD(701.02005,0)="IMAGE SUB-FIELD^^.01^1"
^DD(701.02005,0,"DT")="2910514"
^DD(701.02005,0,"IX","B",701.02005,.01)=""
^DD(701.02005,0,"NM","IMAGE")=""
^DD(701.02005,0,"UP")="701"
^DD(701.02005,.01,0)="IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(701.02005,.01,1,0)="^.1"
^DD(701.02005,.01,1,1,0)="701.02005^B"
^DD(701.02005,.01,1,1,1)="S ^MCAR(701,DA(1),2005,""B"",$E(X,1,30),DA)="""""
^DD(701.02005,.01,1,1,2)="K ^MCAR(701,DA(1),2005,""B"",$E(X,1,30),DA)"
^DD(701.02005,.01,21,0)="^^1^1^2920706^"
^DD(701.02005,.01,21,1,0)="This field points to an object in the image file."
^DD(701.02005,.01,"DT")="2910514"
^DD(701.02005,"B","IMAGE",.01)=""
^DD(701.02005,"GL",0,1,.01)=""
^DD(701.02005,"IX",.01)=""
^DD(701.0201,0)="MEDICATION SUB-FIELD^^2^3"
^DD(701.0201,0,"IX","B",701.0201,.01)=""
^DD(701.0201,0,"NM","MEDICATION")=""
^DD(701.0201,0,"UP")="701"
^DD(701.0201,.01,0)="MEDICATION^M*P695'^MCAR(695,^0;1^S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""R"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(701.0201,.01,1,0)="^.1"
^DD(701.0201,.01,1,1,0)="701.0201^B"
^DD(701.0201,.01,1,1,1)="S ^MCAR(701,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(701.0201,.01,1,1,2)="K ^MCAR(701,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(701.0201,.01,3)="Enter the patient's current medications."
^DD(701.0201,.01,12)="CHOOSE RHEUMATOLOGY MEDICATION ENTRIES ONLY"
^DD(701.0201,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(695,""""C"""",""""R"""",+Y))"""
^DD(701.0201,.01,21,0)="^^1^1^2910501^"
^DD(701.0201,.01,21,1,0)="These are the patients current medications."
^DD(701.0201,.01,"DT")="2901213"
^DD(701.0201,1,0)="DOSAGE^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(701.0201,1,3)="Answer must be 1-10 characters in length."
^DD(701.0201,1,21,0)="^^2^2^2920324^"
^DD(701.0201,1,21,1,0)="This allows the user to enter the dosage of the patient's"
^DD(701.0201,1,21,2,0)="current medications."
^DD(701.0201,1,"DT")="2901213"
^DD(701.0201,2,0)="FREQUENCY^F^^0;3^K:$L(X)>10!($L(X)<2) X"
^DD(701.0201,2,3)="Answer must be 2-10 characters in length."
^DD(701.0201,2,21,0)="^^2^2^2920324^"
^DD(701.0201,2,21,1,0)="This allows the user to enter the time/number of times (frequency)"
^DD(701.0201,2,21,2,0)="of the patient's current medications."
^DD(701.0201,2,"DT")="2901213"
^DD(701.0201,"B","DOSAGE",1)=""
^DD(701.0201,"B","FREQUENCY",2)=""
^DD(701.0201,"B","MEDICATION",.01)=""
^DD(701.0201,"GL",0,1,.01)=""
^DD(701.0201,"GL",0,2,1)=""
^DD(701.0201,"GL",0,3,2)=""
^DD(701.0201,"IX",.01)=""
^DD(701.0611,0)="HISTORY NARRATIVE SUB-FIELD^^.01^1"
^DD(701.0611,0,"NM","HISTORY NARRATIVE")=""
^DD(701.0611,0,"UP")="701"
^DD(701.0611,.01,0)="HISTORY NARRATIVE^W^^0;1^Q"
^DD(701.0611,.01,3)="Enter '??' for word processing commands."
^DD(701.0611,.01,21,0)="^^1^1^2920706^"
^DD(701.0611,.01,21,1,0)="This allows user to enter a history narrative."
^DD(701.0611,.01,"DT")="2910102"
^DD(701.0611,"B","HISTORY NARRATIVE",.01)=""
^DD(701.0611,"GL",0,1,.01)=""
^DD(701.0615,0)="DIAGNOSIS SUB-FIELD^^1^2"
^DD(701.0615,0,"DT")="2911023"
^DD(701.0615,0,"IX","AC",701.0615,.01)=""
^DD(701.0615,0,"IX","B",701.0615,.01)=""
^DD(701.0615,0,"NM","DIAGNOSIS")=""
^DD(701.0615,0,"UP")="701"
^DD(701.0615,.01,0)="DIAGNOSIS^M*P697.5'^MCAR(697.5,^0;1^S DIC(""S"")=""I $D(^MCAR(697.5,""""A.RHEUM"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.RHEUM"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(701.0615,.01,1,0)="^.1"
^DD(701.0615,.01,1,1,0)="701.0615^B"
^DD(701.0615,.01,1,1,1)="S ^MCAR(701,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(701.0615,.01,1,1,2)="K ^MCAR(701,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(701.0615,.01,1,2,0)="701.0615^AC^MUMPS"
^DD(701.0615,.01,1,2,1)="D SET^MCRH2"
^DD(701.0615,.01,1,2,2)="D KILL^MCRH2"
^DD(701.0615,.01,1,2,"%D",0)="^^1^1^2920103^"
^DD(701.0615,.01,1,2,"%D",1,0)="This X-Ref sets the ICD node for Queryman searches."
^DD(701.0615,.01,1,2,"DT")="2920103"
^DD(701.0615,.01,3)="Enter the Medical Diagnosis or ICD Code, pointer to file (#697.5)."
^DD(701.0615,.01,4)="Q:$D(DJJ)  N DO S X=""?"",DIC(0)=""X"",DIC=""^MCAR(697.5,"",D=""A.RHEUM"" D MIX^DIC1 S D=-1"
^DD(701.0615,.01,12)="CHOOSE RHEUMATOLOGY DIAGNOSES ONLY"
^DD(701.0615,.01,12.1)="S DIC(""S"")=""I $D(^MCAR(697.5,""""A.RHEUM"""",$P(^MCAR(697.5,+Y,0),U),+Y))"",D=""A.RHEUM"""
^DD(701.0615,.01,21,0)="^^1^1^2920324^"
^DD(701.0615,.01,21,1,0)="This allows user to enter Diagnosis."
^DD(701.0615,.01,"DT")="2920103"
^DD(701.0615,1,0)="DATE OF SYMPTOM^RD^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(701.0615,1,3)="Enter the date this diagnosis was made"
^DD(701.0615,1,21,0)="^^1^1^2920324^"
^DD(701.0615,1,21,1,0)="This allows the user to enter the date this diagnosis was made."
^DD(701.0615,1,"DT")="2910417"
^DD(701.0615,"B","DATE OF SYMPTOM",1)=""
^DD(701.0615,"B","DIAGNOSIS",.01)=""
^DD(701.0615,"GL",0,1,.01)=""
^DD(701.0615,"GL",0,2,1)=""
^DD(701.0615,"IX",.01)=""
^DD(701.0615,"RQ",1)=""
^DD(702,0)="FIELD^^.12^19"
^DD(702,0,"DDA")="N"
^DD(702,0,"DT")="3030513"
^DD(702,0,"ID",.02)="W ""   "",$$FMTE^DILIBF($P(^(0),U,2),5)"
^DD(702,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MDS(702.01,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(702.01,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(702,0,"IX","ACON",702,.05)=""
^DD(702,0,"IX","ACONV",702,.3)=""
^DD(702,0,"IX","ACP",702,.04)=""
^DD(702,0,"IX","AINST",702,.11)=""
^DD(702,0,"IX","AION",702,.12)=""
^DD(702,0,"IX","AS",702,.09)=""
^DD(702,0,"IX","ASD",702,.14)=""
^DD(702,0,"IX","ATIU",702,.06)=""
^DD(702,0,"IX","AUPNV",702,.13)=""
^DD(702,0,"IX","AVISIT",702,.13)=""
^DD(702,0,"IX","B",702,.01)=""
^DD(702,0,"NM","CP TRANSACTION")=""
^DD(702,0,"PT",702.001,.01)=""
^DD(702,0,"PT",703.1,.05)=""
^DD(702,0,"PT",704.202,.01)=""
^DD(702,0,"VR")="1.0"
^DD(702,0,"VRPK")="MD"
^DD(702,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(702,.01,.1)="Patient"
^DD(702,.01,1,0)="^.1^^-1"
^DD(702,.01,1,1,0)="702^B"
^DD(702,.01,1,1,1)="S ^MDD(702,""B"",$E(X,1,30),DA)="""""
^DD(702,.01,1,1,2)="K ^MDD(702,""B"",$E(X,1,30),DA)"
^DD(702,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(702,.01,1,1,"%D",1,0)="Contains the standard Fileman ""B"" index of the file."
^DD(702,.01,3)="Enter a patient name."
^DD(702,.01,21,0)="^.001^2^2^3021112^^^"
^DD(702,.01,21,1,0)="This field contains a pointer to the Patient file (#2) for this"
^DD(702,.01,21,2,0)="transaction."
^DD(702,.01,"DT")="3020703"
^DD(702,.011,0)="SSN (C)^CJ9^^ ; ^X ^DD(702,.011,9.2) S X=$P(Y(702,.011,101),U,9) S D0=Y(702,.011,80)"
^DD(702,.011,.1)="SSN"
^DD(702,.011,9)="^"
^DD(702,.011,9.01)="2^.09;702^.01"
^DD(702,.011,9.1)="#.01:#.09"
^DD(702,.011,9.2)="S Y(702,.011,80)=$S($D(D0):D0,1:""""),Y(702,.011,1)=$S($D(^MDD(702,D0,0)):^(0),1:""""),D0=$P(Y(702,.011,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(702,.011,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(702,.011,21,0)="^.001^2^2^3021112^^^^"
^DD(702,.011,21,1,0)="This field contains the computed value of the patient's SSN from the"
^DD(702,.011,21,2,0)="Patient file (#2)."
^DD(702,.011,"DT")="3000725"
^DD(702,.012,0)="DOB (C)^CJ20^^ ; ^X ^DD(702,.012,9.2) S Y(702,.012,102)=X,Y=$P(Y(702,.012,101),U,3) X:$D(^DD(2,.03,2)) ^(2) S X=Y S D0=Y(702,.012,80)"
^DD(702,.012,.1)="Date of birth"
^DD(702,.012,9)="^"
^DD(702,.012,9.01)="2^.03;702^.01"
^DD(702,.012,9.1)="#.01:#.03"
^DD(702,.012,9.2)="S Y(702,.012,80)=$G(D0),Y(702,.012,1)=$S($D(^MDD(702,D0,0)):^(0),1:""""),D0=$P(Y(702,.012,1),U,1) S:'D0!'$D(^DPT(+D0,0)) D0=-1 S Y(702,.012,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(702,.012,21,0)="1^.001^2^2^3021112^^^^"
^DD(702,.012,21,1,0)="This field contains the computed value of the patient's DOB from the"
^DD(702,.012,21,2,0)="Patient file (#2)."
^DD(702,.012,"DT")="3000725"
^DD(702,.02,0)="CREATED DATE/TIME^RDX^^0;2^S %DT=""ESTXR"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(702,.02,.1)="Date/Time Created"
^DD(702,.02,1,0)="^.1^^0"
^DD(702,.02,3)="Enter the date/time the procedure was entered."
^DD(702,.02,21,0)="^^1^1^3011019^"
^DD(702,.02,21,1,0)="This field contains the date/time the transaction was created."
^DD(702,.02,"DT")="3010226"
^DD(702,.03,0)="CREATED BY^RP200'^VA(200,^0;3^Q"
^DD(702,.03,.1)="Created By"
^DD(702,.03,3)="User who created this transaction."
^DD(702,.03,21,0)="^.001^1^1^3011019^^^"
^DD(702,.03,21,1,0)="This field contains the DUZ of the user that created this transaction."
^DD(702,.03,"DT")="3010402"
^DD(702,.04,0)="CP DEFINITION^RP702.01'^MDS(702.01,^0;4^Q"
^DD(702,.04,.1)="CP Definition"
^DD(702,.04,1,0)="^.1"
^DD(702,.04,1,1,0)="702^ACP"
^DD(702,.04,1,1,1)="S ^MDD(702,""ACP"",$E(X,1,30),DA)="""""
^DD(702,.04,1,1,2)="K ^MDD(702,""ACP"",$E(X,1,30),DA)"
^DD(702,.04,1,1,"%D",0)="^.101^3^3^3021114^^^"
^DD(702,.04,1,1,"%D",1,0)="This cross reference maintains a list of transactions by CP Definition "
^DD(702,.04,1,1,"%D",2,0)="for quick retrieval. It is also used to prevent deletion of CP Definitions"
^DD(702,.04,1,1,"%D",3,0)="that are being pointed to."
^DD(702,.04,1,1,"DT")="3020801"
^DD(702,.04,3)="Enter a CP Procedure Definition."
^DD(702,.04,21,0)="^.001^2^2^3021112^^^^"
^DD(702,.04,21,1,0)="This field contains a pointer to the CP DEFINITION file (#702.01)"
^DD(702,.04,21,2,0)="indicating the procedure of the transaction."
^DD(702,.04,"DT")="3020801"
^DD(702,.05,0)="CONSULT NUMBER^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(702,.05,.1)="Consult Number"
^DD(702,.05,1,0)="^.1"
^DD(702,.05,1,1,0)="702^ACON"
^DD(702,.05,1,1,1)="S ^MDD(702,""ACON"",$E(X,1,30),DA)="""""
^DD(702,.05,1,1,2)="K ^MDD(702,""ACON"",$E(X,1,30),DA)"
^DD(702,.05,1,1,"%D",0)="^^1^1^3011019^"
^DD(702,.05,1,1,"%D",1,0)="This is the cross reference of the Consult."
^DD(702,.05,1,1,"DT")="3010226"
^DD(702,.05,3)="Answer must be 1-30 characters in length."
^DD(702,.05,21,0)="^.001^3^3^3021112^^^^"
^DD(702,.05,21,1,0)="This field contains an Consult number from Request/Consultation file (#123)."
^DD(702,.05,21,2,0)="This field represents the Consult order that is matched up to this transaction."
^DD(702,.05,21,3,0)="(Reference IA #3162)"
^DD(702,.05,"DT")="3020719"
^DD(702,.06,0)="TIU NOTE^P8925'^TIU(8925,^0;6^Q"
^DD(702,.06,.1)="TIU Note"
^DD(702,.06,1,0)="^.1"
^DD(702,.06,1,1,0)="702^ATIU"
^DD(702,.06,1,1,1)="S ^MDD(702,""ATIU"",$E(X,1,30),DA)="""""
^DD(702,.06,1,1,2)="K ^MDD(702,""ATIU"",$E(X,1,30),DA)"
^DD(702,.06,1,1,3)="Cross Reference of the TIU Note"
^DD(702,.06,1,1,"%D",0)="^^1^1^3010226^"
^DD(702,.06,1,1,"%D",1,0)="This is the cross reference of the TIU Note."
^DD(702,.06,1,1,"DT")="3010226"
^DD(702,.06,3)="TIU note for interpretation of this transaction"
^DD(702,.06,21,0)="^.001^3^3^3011019^^^"
^DD(702,.06,21,1,0)="This field contains a pointer to the TIU DOCUMENT file (#8925)"
^DD(702,.06,21,2,0)="representing the note that contains the interpretation of this transaction"
^DD(702,.06,21,3,0)="as well as the links to the associated images.  (Reference IA #3376)"
^DD(702,.06,"DT")="3010226"
^DD(702,.07,0)="VSTRING^F^^0;7^K:$L(X)>50!($L(X)<1) X"
^DD(702,.07,3)="Answer must be 1-50 characters in length."
^DD(702,.07,21,0)="^.001^3^3^3011019^^^"
^DD(702,.07,21,1,0)="This field contains the vstring.  The vstring is in the following format:"
^DD(702,.07,21,2,0)="Visit type_"";""_Visit Date/Time_"";""_Hospital Location (internal entry number"
^DD(702,.07,21,3,0)="of the visit)."
^DD(702,.07,"DT")="3010413"
^DD(702,.08,0)="TRANSACTION MESSAGE^F^^0;8^K:$L(X)>80!($L(X)<1) X"
^DD(702,.08,.1)="Message"
^DD(702,.08,3)="Answer must be 1-80 characters in length."
^DD(702,.08,21,0)="^.001^2^2^3021112^^^^"
^DD(702,.08,21,1,0)="This field contains a short 80 characters text message of the"
^DD(702,.08,21,2,0)="transaction status update."
^DD(702,.08,"DT")="3010226"
^DD(702,.09,0)="TRANSACTION STATUS^S^0:New;1:Submitted;2:Error;3:Complete;4:Ready to Complete;5:Pending Instrument Data;6:Cancelled;^0;9^Q"
^DD(702,.09,.1)="Status"
^DD(702,.09,1,0)="^.1"
^DD(702,.09,1,1,0)="702^AS"
^DD(702,.09,1,1,1)="S ^MDD(702,""AS"",$E(X,1,30),DA)="""""
^DD(702,.09,1,1,2)="K ^MDD(702,""AS"",$E(X,1,30),DA)"
^DD(702,.09,1,1,"%D",0)="^.101^2^2^3061205^^"
^DD(702,.09,1,1,"%D",1,0)="It is a cross reference on the status of the CP study and it"
^DD(702,.09,1,1,"%D",2,0)="is used for quick look up."
^DD(702,.09,1,1,"DT")="3040826"
^DD(702,.09,3)="Status of this transaction."
^DD(702,.09,21,0)="^.001^49^49^3061205^^^^"
^DD(702,.09,21,1,0)="This field contains the status of this transaction. Available statuses "
^DD(702,.09,21,2,0)="are listed below with a description of each."
^DD(702,.09,21,3,0)=" "
^DD(702,.09,21,4,0)="0: New                                                                        "
^DD(702,.09,21,5,0)="This transaction has been created by an external application and needs to "
^DD(702,.09,21,6,0)="be checked-in with the CPUser application and submitted to an instrument."
^DD(702,.09,21,7,0)="An example of this status would be a consent form scanned in via the"
^DD(702,.09,21,8,0)="VistA Imaging Capture Workstation that creates a CP Study record "
^DD(702,.09,21,9,0)="stub with a TIU document but allows further input with the CPUser "
^DD(702,.09,21,10,0)="application."
^DD(702,.09,21,11,0)=" "
^DD(702,.09,21,12,0)="1: Submitted                                                      "
^DD(702,.09,21,13,0)="This transaction has been submitted to the VistA Imaging Background "
^DD(702,.09,21,14,0)="Processor and is awaiting the copy process to place the attachments for "
^DD(702,.09,21,15,0)="the study on the VistA Imaging server.  A study in this status is not "
^DD(702,.09,21,16,0)="accessible until VistA Imaging returns a status of Complete or Error and "
^DD(702,.09,21,17,0)="logs any errors encountered in the submission process."
^DD(702,.09,21,18,0)=" "
^DD(702,.09,21,19,0)="2: Error                                                               "
^DD(702,.09,21,20,0)="This transaction has encountered an error while being submitted to VistA "
^DD(702,.09,21,21,0)="Imaging.  The error may be due to the TIU note creation or a problem with "
^DD(702,.09,21,22,0)="the attachments sent to the VistA Imaging server. Error messages are "
^DD(702,.09,21,23,0)="logged with the transaction and can be reviewed by users when opening the "
^DD(702,.09,21,24,0)="transaction in an error status."
^DD(702,.09,21,25,0)=" "
^DD(702,.09,21,26,0)="3: Complete                                                             "
^DD(702,.09,21,27,0)="This transaction has completed the process and has successfully created a "
^DD(702,.09,21,28,0)="TIU note for interpretation on the selected Consult and if any "
^DD(702,.09,21,29,0)="attachments were included they have been successfully copied to the VistA "
^DD(702,.09,21,30,0)="Imaging server."
^DD(702,.09,21,31,0)=" "
^DD(702,.09,21,32,0)="4: Ready to Complete                                                    "
^DD(702,.09,21,33,0)="This transaction has been checked in and alternatively, if submitted to a "
^DD(702,.09,21,34,0)="bi-directional instrument, has received the data back from the "
^DD(702,.09,21,35,0)="instrument.  Users may open these transactions and view the "
^DD(702,.09,21,36,0)="Consult/Procedure order as well as assign instrument results to the "
^DD(702,.09,21,37,0)="study.  Once these steps have been done this study can be submitted to "
^DD(702,.09,21,38,0)="VistA Imaging."
^DD(702,.09,21,39,0)=" "
^DD(702,.09,21,40,0)="5: Pending Instrument Data                                             "
^DD(702,.09,21,41,0)="This transaction has been submitted to a bi-directional instrument and is "
^DD(702,.09,21,42,0)="awaiting that instrument to return the results of the procedure.  "
^DD(702,.09,21,43,0)="Transactions in this status should not be opened until the instrument has "
^DD(702,.09,21,44,0)="returned the results, assigned them to the study, and marked it as Ready "
^DD(702,.09,21,45,0)="to Complete."
^DD(702,.09,21,46,0)="                                                                      "
^DD(702,.09,21,47,0)="6: Cancelled"
^DD(702,.09,21,48,0)="This transaction has been cancelled when the procedure request in"
^DD(702,.09,21,49,0)="Consult Report Tracking and CPRS has been cancelled or discontinued."
^DD(702,.09,"DT")="3050404"
^DD(702,.091,0)="ERROR MESSAGES^702.091^^.091;0"
^DD(702,.091,21,0)="^^3^3^3021112^"
^DD(702,.091,21,1,0)="This multiple contains the information on the error messages"
^DD(702,.091,21,2,0)="that Clinical Procedures receive from API calls with Consults,"
^DD(702,.091,21,3,0)="TIU, CPRS, and VistA Imaging."
^DD(702,.1,0)="IMAGE^702.1^^.1;0"
^DD(702,.1,.1)="Image Index"
^DD(702,.1,21,0)="^.001^2^2^3021112^^^^"
^DD(702,.1,21,1,0)="This multiple contains the image attachment information for the"
^DD(702,.1,21,2,0)="transaction."
^DD(702,.11,0)="SUBMITTED TO INSTRUMENT^P702.09'^MDS(702.09,^0;11^Q"
^DD(702,.11,1,0)="^.1"
^DD(702,.11,1,1,0)="702^AINST"
^DD(702,.11,1,1,1)="S ^MDD(702,""AINST"",$E(X,1,30),DA)="""""
^DD(702,.11,1,1,2)="K ^MDD(702,""AINST"",$E(X,1,30),DA)"
^DD(702,.11,1,1,"%D",0)="^^3^3^3021114^"
^DD(702,.11,1,1,"%D",1,0)="This cross reference maintains a list of transactions by instrument"
^DD(702,.11,1,1,"%D",2,0)="for quick retrieval. It is also used to prevent deletion of instruments"
^DD(702,.11,1,1,"%D",3,0)="that are being pointed to."
^DD(702,.11,1,1,"DT")="3020801"
^DD(702,.11,21,0)="^^2^2^3030807^"
^DD(702,.11,21,1,0)="Points to the instrument definition that this study was submitted"
^DD(702,.11,21,2,0)="to at the time of check-in."
^DD(702,.11,"DT")="3020801"
^DD(702,.12,0)="INSTRUMENT ORDER NUMBER^F^^0;12^K:$L(X)>22!($L(X)<1) X"
^DD(702,.12,1,0)="^.1"
^DD(702,.12,1,1,0)="702^AION"
^DD(702,.12,1,1,1)="S ^MDD(702,""AION"",$E(X,1,30),DA)="""""
^DD(702,.12,1,1,2)="K ^MDD(702,""AION"",$E(X,1,30),DA)"
^DD(702,.12,1,1,"%D",0)="^^2^2^3030514^"
^DD(702,.12,1,1,"%D",1,0)="This cross reference is used by the GETSTDY^MDRPCOT1 extrinsic to"
^DD(702,.12,1,1,"%D",2,0)="quickly retrieve the study ien from the instrument order number."
^DD(702,.12,1,1,"DT")="3030513"
^DD(702,.12,3)="Answer must be 1-22 characters in length."
^DD(702,.12,21,0)="^^4^4^3030513^"
^DD(702,.12,21,1,0)="Contains the unique order number for this study that is sent to the"
^DD(702,.12,21,2,0)="instrument if it is bi-directional so the results can be auto-matched"
^DD(702,.12,21,3,0)="back to this study by the CP Gateway."
^DD(702,.12,21,4,0)="Field is 1-22 characters and contains only numeric characters."
^DD(702,.12,23,0)="^^3^3^3030513^"
^DD(702,.12,23,1,0)="Generated from $$NOW^XLFDT() padded to 14 characters and stripped"
^DD(702,.12,23,2,0)="of the decimal point. Guaranteed unique by comparison to the AION"
^DD(702,.12,23,3,0)="cross reference in this file."
^DD(702,.12,"DT")="3030513"
^DD(702,.13,0)="VISIT^P9000010'I^AUPNVSIT(^1;1^Q"
^DD(702,.13,.1)="Visit"
^DD(702,.13,1,0)="^.1"
^DD(702,.13,1,1,0)="702^AVISIT"
^DD(702,.13,1,1,1)="S ^MDD(702,""AVISIT"",$E(X,1,30),DA)="""""
^DD(702,.13,1,1,2)="K ^MDD(702,""AVISIT"",$E(X,1,30),DA)"
^DD(702,.13,1,1,3)="Do Not Delete."
^DD(702,.13,1,1,"%D",0)="^.101^3^3^3050425^^"
^DD(702,.13,1,1,"%D",1,0)="This cross reference is used to make sure that"
^DD(702,.13,1,1,"%D",2,0)="a Visit file entry is not deleted as long"
^DD(702,.13,1,1,"%D",3,0)="as there is an entry."
^DD(702,.13,1,1,"DT")="3040629"
^DD(702,.13,1,2,0)="702^AUPNV^MUMPS"
^DD(702,.13,1,2,1)="D ADD^AUPNVSIT"
^DD(702,.13,1,2,2)="D SUB^AUPNVSIT"
^DD(702,.13,1,2,3)="Do Not Delete."
^DD(702,.13,1,2,"%D",0)="^^3^3^3040629^"
^DD(702,.13,1,2,"%D",1,0)="This cross reference tells Visit Tracking how"
^DD(702,.13,1,2,"%D",2,0)="many file entries are using (point to) a Visit"
^DD(702,.13,1,2,"%D",3,0)="file entry."
^DD(702,.13,1,2,"DT")="3040629"
^DD(702,.13,3)="Enter a Visit number."
^DD(702,.13,21,0)="^.001^2^2^3060811^^^^"
^DD(702,.13,21,1,0)="This is the Visit entry returned from PCE."
^DD(702,.13,21,2,0)="(Reference IA# 1902)"
^DD(702,.13,"DT")="3040630"
^DD(702,.14,0)="SCHEDULED DATE/TIME^D^^3;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(702,.14,1,0)="^.1"
^DD(702,.14,1,1,0)="702^ASD"
^DD(702,.14,1,1,1)="S ^MDD(702,""ASD"",$E(X,1,30),DA)="""""
^DD(702,.14,1,1,2)="K ^MDD(702,""ASD"",$E(X,1,30),DA)"
^DD(702,.14,1,1,3)="This is the scheduled date/time needed for sending HL7 message."
^DD(702,.14,1,1,"%D",0)="^^3^3^3070517^"
^DD(702,.14,1,1,"%D",1,0)="This cross reference contains the scheduled date/time as to when"
^DD(702,.14,1,1,"%D",2,0)="the HL7 message should be sent to the device for the CP transaction."
^DD(702,.14,1,1,"%D",3,0)="It is used for easy look up to process the study."
^DD(702,.14,1,1,"DT")="3070517"
^DD(702,.14,21,0)="^^2^2^3070517^"
^DD(702,.14,21,1,0)="This field contains the date/time when the HL7 message"
^DD(702,.14,21,2,0)="should be sent by CP to the device for this CP transaction."
^DD(702,.14,"DT")="3070517"
^DD(702,.3,0)="CONVERSION ID REFERENCE^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^DD(702,.3,1,0)="^.1"
^DD(702,.3,1,1,0)="702^ACONV"
^DD(702,.3,1,1,1)="S ^MDD(702,""ACONV"",$E(X,1,30),DA)="""""
^DD(702,.3,1,1,2)="K ^MDD(702,""ACONV"",$E(X,1,30),DA)"
^DD(702,.3,1,1,3)="Do Not Delete."
^DD(702,.3,1,1,"%D",0)="^.101^3^3^3040920^^^"
^DD(702,.3,1,1,"%D",1,0)="This cross reference is used to keep track of which CP transaction study was"
^DD(702,.3,1,1,"%D",2,0)="created during the Medicine report conversion and which Medicine record it is"
^DD(702,.3,1,1,"%D",3,0)="asscoaited with."
^DD(702,.3,1,1,"DT")="3040920"
^DD(702,.3,3)="Answer must be 1-30 characters in length."
^DD(702,.3,21,0)="^.001^22^22^3040923^^^^"
^DD(702,.3,21,1,0)="This field is the Reference Conversion ID.  It is a variable pointer"
^DD(702,.3,21,2,0)="to the Medicine files.  It indicates which converted Medicine report record"
^DD(702,.3,21,3,0)="is associated with the CP Transaction study.  This field helps to keep track"
^DD(702,.3,21,4,0)="which CP Transaction study was created for the Medicine report conversion."
^DD(702,.3,21,5,0)="This field is a variable pointer to the following files:"
^DD(702,.3,21,6,0)="                                                                  "
^DD(702,.3,21,7,0)="691   ECHO                                   "
^DD(702,.3,21,8,0)="691.1 CARDIAC CATHETERIZATION                  "
^DD(702,.3,21,9,0)="691.5 ELECTROCARDIOGRAM (EKG)                  "
^DD(702,.3,21,10,0)="691.6 HOLTER                               "
^DD(702,.3,21,11,0)="691.7 EXERCISE TOLERANCE TEST                  "
^DD(702,.3,21,12,0)="691.8 ELECTROPHYSIOLOGY (EP)                   "
^DD(702,.3,21,13,0)="694   HEMATOLOGY                            "
^DD(702,.3,21,14,0)="694.5 CARDIAC SURGERY RISK ASSESSMENT          "
^DD(702,.3,21,15,0)="698   GENERATOR IMPLANT                        "
^DD(702,.3,21,16,0)="698.1 V LEAD IMPLANT                          "
^DD(702,.3,21,17,0)="698.2 A LEAD IMPLANT                       "
^DD(702,.3,21,18,0)="698.3 PACEMAKER SURVEILLANCE                   "
^DD(702,.3,21,19,0)="699   ENDOSCOPY/CONSULT                          "
^DD(702,.3,21,20,0)="699.5 GENERALIZED PROCEDURE/CONSULT              "
^DD(702,.3,21,21,0)="700   PULMONARY FUNCTION TESTS                   "
^DD(702,.3,21,22,0)="701   RHEUMATOLOGY           "
^DD(702,.3,"DT")="3040920"
^DD(702,.991,0)="IMAGE COUNT^CJ8,0^^ ; ^S X=0 X ""F Y=0:0 S Y=$O(^MDD(702,D0,.1,Y)) Q:'Y  S X=X+1"" S X=$J(X,0,0)"
^DD(702,.991,.1)="Count"
^DD(702,.991,9)="^"
^DD(702,.991,9.01)=""
^DD(702,.991,9.1)="S X=0 X ""F Y=0:0 S Y=$O(^MDD(702,D0,.1,Y)) Q:'Y  S X=X+1"""
^DD(702,.991,21,0)="^.001^2^2^3021112^^^^"
^DD(702,.991,21,1,0)="Computed field to return the total number of images associated with this"
^DD(702,.991,21,2,0)="transaction."
^DD(702,"B","CONSULT NUMBER",.05)=""
^DD(702,"B","CONVERSION ID REFERENCE",.3)=""
^DD(702,"B","CP DEFINITION",.04)=""
^DD(702,"B","CP Definition",.04)="1"
^DD(702,"B","CREATED BY",.03)=""
^DD(702,"B","CREATED DATE/TIME",.02)=""
^DD(702,"B","Consult Number",.05)="1"
^DD(702,"B","Count",.991)="1"
^DD(702,"B","Created By",.03)="1"
^DD(702,"B","DOB (C)",.012)=""
^DD(702,"B","Date of birth",.012)="1"
^DD(702,"B","Date/Time Created",.02)="1"
^DD(702,"B","ERROR MESSAGES",.091)=""
^DD(702,"B","IMAGE",.1)=""
^DD(702,"B","IMAGE COUNT",.991)=""
^DD(702,"B","INSTRUMENT ORDER NUMBER",.12)=""
^DD(702,"B","Image Index",.1)="1"
^DD(702,"B","Message",.08)="1"
^DD(702,"B","PATIENT",.01)=""
^DD(702,"B","Patient",.01)="1"
^DD(702,"B","SCHEDULED DATE/TIME",.14)=""
^DD(702,"B","SSN",.011)="1"
^DD(702,"B","SSN (C)",.011)=""
^DD(702,"B","SUBMITTED TO INSTRUMENT",.11)=""
^DD(702,"B","Status",.09)="1"
^DD(702,"B","TIU NOTE",.06)=""
^DD(702,"B","TIU Note",.06)="1"
^DD(702,"B","TRANSACTION MESSAGE",.08)=""
^DD(702,"B","TRANSACTION STATUS",.09)=""
^DD(702,"B","VISIT",.13)=""
^DD(702,"B","VSTRING",.07)=""
^DD(702,"B","Visit",.13)="1"
^DD(702,"GL",0,1,.01)=""
^DD(702,"GL",0,2,.02)=""
^DD(702,"GL",0,3,.03)=""
^DD(702,"GL",0,4,.04)=""
^DD(702,"GL",0,5,.05)=""
^DD(702,"GL",0,6,.06)=""
^DD(702,"GL",0,7,.07)=""
^DD(702,"GL",0,8,.08)=""
^DD(702,"GL",0,9,.09)=""
^DD(702,"GL",0,11,.11)=""
^DD(702,"GL",0,12,.12)=""
^DD(702,"GL",.091,0,.091)=""
^DD(702,"GL",.1,0,.1)=""
^DD(702,"GL",1,1,.13)=""
^DD(702,"GL",2,1,.3)=""
^DD(702,"GL",3,1,.14)=""
^DD(702,"IX",.01)=""
^DD(702,"IX",.04)=""
^DD(702,"IX",.05)=""
^DD(702,"IX",.06)=""
^DD(702,"IX",.09)=""
^DD(702,"IX",.11)=""
^DD(702,"IX",.12)=""
^DD(702,"IX",.13)=""
^DD(702,"IX",.14)=""
^DD(702,"IX",.3)=""
^DD(702,"RQ",.01)=""
^DD(702,"RQ",.02)=""
^DD(702,"RQ",.03)=""
^DD(702,"RQ",.04)=""
^DD(702,"SB",702.091,.091)=""
^DD(702,"SB",702.1,.1)=""
^DD(702.001,0)="FIELD^^.03^3"
^DD(702.001,0,"DDA")="N"
^DD(702.001,0,"DT")="3071126"
^DD(702.001,0,"NM","CP_TRANSACTION_TIU_HISTORY")=""
^DD(702.001,0,"VR")="1.0"
^DD(702.001,0,"VRPK")="MD"
^DD(702.001,.01,0)="STUDY_ID^RP702'^MDD(702,^0;1^Q"
^DD(702.001,.01,1,0)="^.1^^0"
^DD(702.001,.01,3)=""
^DD(702.001,.01,21,0)="^^1^1^3071126^"
^DD(702.001,.01,21,1,0)="This field contains a pointer to the CP Transaction file (#702)."
^DD(702.001,.01,"DT")="3071126"
^DD(702.001,.02,0)="TIU_NOTE_ID^RP8925'^TIU(8925,^0;2^Q"
^DD(702.001,.02,1,0)="^.1^^0"
^DD(702.001,.02,21,0)="^^3^3^3071126^"
^DD(702.001,.02,21,1,0)="This field contains a pointer to the TIU Document file (#8925)"
^DD(702.001,.02,21,2,0)="representing the note that contains the interpretation of this"
^DD(702.001,.02,21,3,0)="CP Transaction.  (Reference IA #3376)"
^DD(702.001,.02,"DT")="3071128"
^DD(702.001,.03,0)="DATE_ASSIGNED^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(702.001,.03,21,0)="^^2^2^3071126^"
^DD(702.001,.03,21,1,0)="This field contains the date/time when the TIU note was assigned"
^DD(702.001,.03,21,2,0)="to this transaction."
^DD(702.001,.03,"DT")="3071126"
^DD(702.001,"B","DATE_ASSIGNED",.03)=""
^DD(702.001,"B","STUDY_ID",.01)=""
^DD(702.001,"B","TIU_NOTE_ID",.02)=""
^DD(702.001,"GL",0,1,.01)=""
^DD(702.001,"GL",0,2,.02)=""
^DD(702.001,"GL",0,3,.03)=""
^DD(702.001,"RQ",.01)=""
^DD(702.001,"RQ",.02)=""
^DD(702.001,"RQ",.03)=""
^DD(702.01,0)="FIELD^^.1^10"
^DD(702.01,0,"DDA")="N"
^DD(702.01,0,"DT")="3020722"
^DD(702.01,0,"ID",.02)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(702.01,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(702.01,0,"IX","AINST",702.011,.01)=""
^DD(702.01,0,"IX","ASPEC",702.01,.02)=""
^DD(702.01,0,"IX","B",702.01,.01)=""
^DD(702.01,0,"IX","UC",702.01,.01)=""
^DD(702.01,0,"NM","CP DEFINITION")=""
^DD(702.01,0,"PT",123,1.01)=""
^DD(702.01,0,"PT",123.3,.04)=""
^DD(702.01,0,"PT",702,.04)=""
^DD(702.01,0,"PT",703.91,.02)=""
^DD(702.01,0,"VR")="1.0"
^DD(702.01,0,"VRPK")="MD"
^DD(702.01,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X"
^DD(702.01,.01,.1)="Procedure Name"
^DD(702.01,.01,1,0)="^.1"
^DD(702.01,.01,1,1,0)="702.01^B"
^DD(702.01,.01,1,1,1)="S ^MDS(702.01,""B"",$E(X,1,30),DA)="""""
^DD(702.01,.01,1,1,2)="K ^MDS(702.01,""B"",$E(X,1,30),DA)"
^DD(702.01,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(702.01,.01,1,1,"%D",1,0)="Standard Fileman ""B"" index for the file."
^DD(702.01,.01,1,2,0)="702.01^UC^MUMPS"
^DD(702.01,.01,1,2,1)="S ^MDS(702.01,""UC"",$$UP^XLFSTR(X),DA)="""""
^DD(702.01,.01,1,2,2)="K ^MDS(702.01,""UC"",$$UP^XLFSTR(X),DA)"
^DD(702.01,.01,1,2,"%D",0)="^^1^1^3020805^"
^DD(702.01,.01,1,2,"%D",1,0)="Used to validate a new entry as unique without case sensitivity."
^DD(702.01,.01,1,2,"DT")="3020805"
^DD(702.01,.01,3)="Answer must be 3-30 characters in length."
^DD(702.01,.01,21,0)="^.001^6^6^3020805^^^^"
^DD(702.01,.01,21,1,0)="This field contains the name of the procedure.  It should be descriptive"
^DD(702.01,.01,21,2,0)="of the procedure and contain 3-30 alphanumeric characters.  The first"
^DD(702.01,.01,21,3,0)="character MUST be a letter.  To maintain consistency it is recommended"
^DD(702.01,.01,21,4,0)="that all procedures be entered in UPPERCASE letters as well."
^DD(702.01,.01,21,5,0)=" "
^DD(702.01,.01,21,6,0)="(Reference IA #3139)"
^DD(702.01,.01,"DT")="3020805"
^DD(702.01,.02,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^0;2^Q"
^DD(702.01,.02,.1)="Treating Specialty"
^DD(702.01,.02,1,0)="^.1^^-1"
^DD(702.01,.02,1,1,0)="702.01^ASPEC"
^DD(702.01,.02,1,1,1)="S ^MDS(702.01,""ASPEC"",$E(X,1,30),DA)="""""
^DD(702.01,.02,1,1,2)="K ^MDS(702.01,""ASPEC"",$E(X,1,30),DA)"
^DD(702.01,.02,1,1,"%D",0)="^^2^2^3011019^"
^DD(702.01,.02,1,1,"%D",1,0)="Standard Fileman ""ASPEC"" index for the sub-file on the TREATING "
^DD(702.01,.02,1,1,"%D",2,0)="SPECIALTY field."
^DD(702.01,.02,1,1,"DT")="3001121"
^DD(702.01,.02,3)="Enter the associated Treating Specialty."
^DD(702.01,.02,21,0)="^.001^1^1^3011019^^^^"
^DD(702.01,.02,21,1,0)="This field defines the specialty that this procedure falls under."
^DD(702.01,.02,"DT")="3010223"
^DD(702.01,.03,0)="REQUIRE EXTERNAL DATA^S^0:No;1:Yes;^0;3^Q"
^DD(702.01,.03,.1)="Require External Data"
^DD(702.01,.03,3)="Enter Yes or No"
^DD(702.01,.03,21,0)="^.001^3^3^3030909^^^^"
^DD(702.01,.03,21,1,0)="Setting this field to Yes will force this procedure to be processed"
^DD(702.01,.03,21,2,0)="via the CPUser executable for matching whether or not there are"
^DD(702.01,.03,21,3,0)="instruments associated with it."
^DD(702.01,.03,"DT")="3011211"
^DD(702.01,.04,0)="DEFAULT TIU NOTE^RP8925.1'^TIU(8925.1,^0;4^Q"
^DD(702.01,.04,.1)="TIU Note Title"
^DD(702.01,.04,3)="Enter a TIU Note Title"
^DD(702.01,.04,21,0)="^.001^3^3^3030909^^"
^DD(702.01,.04,21,1,0)="This field contains a TIU Note Title to use as"
^DD(702.01,.04,21,2,0)="the default when CP creates a note for interpretation"
^DD(702.01,.04,21,3,0)="for this procedure.  (Reference IA #3377)"
^DD(702.01,.04,"DT")="3010226"
^DD(702.01,.05,0)="HOSPITAL LOCATION^P44'^SC(^0;5^Q"
^DD(702.01,.05,.1)="Hospital Location"
^DD(702.01,.05,3)="Enter a Hospital Location."
^DD(702.01,.05,21,0)="^.001^2^2^3021112^^^^"
^DD(702.01,.05,21,1,0)="This is the location that will be used when creating the TIU note for"
^DD(702.01,.05,21,2,0)="interpretation.  This location will be used for workload reporting."
^DD(702.01,.05,"DT")="3001127"
^DD(702.01,.06,0)="PROCESSING APPLICATION^S^1:DEFAULT;2:HEMODIALYSIS;^0;6^Q"
^DD(702.01,.06,.1)="Processing Application"
^DD(702.01,.06,21,0)="^.001^4^4^3050719^^^^"
^DD(702.01,.06,21,1,0)="This field is used to indicate if this is a Hemodialysis"
^DD(702.01,.06,21,2,0)="procedure or not.  The field is a set of codes, 1=DEFAULT so"
^DD(702.01,.06,21,3,0)="it will be processed by Clinical Procedures or 2=HEMODIALYSIS"
^DD(702.01,.06,21,4,0)="and the procedure will be processed by the Hemodialysis application."
^DD(702.01,.06,"DT")="3050719"
^DD(702.01,.07,0)="AUTO SUBMIT^S^0:No, manually complete;1:Yes, Submit to VistA Imaging;^0;7^Q"
^DD(702.01,.07,.1)="Auto Submit To VistA Imaging"
^DD(702.01,.07,21,0)="^.001^5^5^3030909^^"
^DD(702.01,.07,21,1,0)="This field only applies to procedures that are performed by instruments with"
^DD(702.01,.07,21,2,0)="Bi-directional interface capabilities.  This field is used to indicate"
^DD(702.01,.07,21,3,0)="whether the image attachment should be automatically submitted to VistA"
^DD(702.01,.07,21,4,0)="Imaging once the procedure is performed and the result is passed to CP or"
^DD(702.01,.07,21,5,0)="the submission process of the image should be done manually with user interface."
^DD(702.01,.07,"DT")="3020729"
^DD(702.01,.08,0)="EXTERNAL DATA DIRECTORY^F^^0;8^K:$L(X)>150!($L(X)<3) X"
^DD(702.01,.08,.1)="External Attachment Directory"
^DD(702.01,.08,3)="Answer must be 3-150 characters in length."
^DD(702.01,.08,21,0)="^.001^2^2^3011019^^^^"
^DD(702.01,.08,21,1,0)="This field contains a reference to a network share where user supplied"
^DD(702.01,.08,21,2,0)="attachments are located for this procedure."
^DD(702.01,.08,"DT")="3020417"
^DD(702.01,.09,0)="ACTIVE^S^0:No;1:Yes;^0;9^Q"
^DD(702.01,.09,.1)="Active"
^DD(702.01,.09,3)="Enter Yes or No."
^DD(702.01,.09,21,0)="^.001^1^1^3011019^^^^"
^DD(702.01,.09,21,1,0)="Yes/No to indicate active procedures that can be linked to Consults."
^DD(702.01,.09,"DT")="3000524"
^DD(702.01,.1,0)="INSTRUMENT^702.011P^^.1;0"
^DD(702.01,.1,21,0)="^.001^2^2^3030909^^"
^DD(702.01,.1,21,1,0)="This multiple contains instruments that generate results for this"
^DD(702.01,.1,21,2,0)="procedure."
^DD(702.01,"B","ACTIVE",.09)=""
^DD(702.01,"B","AUTO SUBMIT",.07)=""
^DD(702.01,"B","Active",.09)="1"
^DD(702.01,"B","Auto Submit To VistA Imaging",.07)="1"
^DD(702.01,"B","DEFAULT TIU NOTE",.04)=""
^DD(702.01,"B","EXTERNAL DATA DIRECTORY",.08)=""
^DD(702.01,"B","External Attachment Directory",.08)="1"
^DD(702.01,"B","HOSPITAL LOCATION",.05)=""
^DD(702.01,"B","Hospital Location",.05)="1"
^DD(702.01,"B","INSTRUMENT",.1)=""
^DD(702.01,"B","NAME",.01)=""
^DD(702.01,"B","PROCESSING APPLICATION",.06)=""
^DD(702.01,"B","Procedure Name",.01)="1"
^DD(702.01,"B","Processing Application",.06)="1"
^DD(702.01,"B","REQUIRE EXTERNAL DATA",.03)=""
^DD(702.01,"B","Require External Data",.03)="1"
^DD(702.01,"B","TIU Note Title",.04)="1"
^DD(702.01,"B","TREATING SPECIALTY",.02)=""
^DD(702.01,"B","Treating Specialty",.02)="1"
^DD(702.01,"GL",0,1,.01)=""
^DD(702.01,"GL",0,2,.02)=""
^DD(702.01,"GL",0,3,.03)=""
^DD(702.01,"GL",0,4,.04)=""
^DD(702.01,"GL",0,5,.05)=""
^DD(702.01,"GL",0,6,.06)=""
^DD(702.01,"GL",0,7,.07)=""
^DD(702.01,"GL",0,8,.08)=""
^DD(702.01,"GL",0,9,.09)=""
^DD(702.01,"GL",.1,0,.1)=""
^DD(702.01,"IX",.01)=""
^DD(702.01,"IX",.02)=""
^DD(702.01,"RQ",.01)=""
^DD(702.01,"RQ",.04)=""
^DD(702.01,"SB",702.011,.1)=""
^DD(702.011,0)="INSTRUMENT SUB-FIELD^^.01^1"
^DD(702.011,0,"DT")="3010214"
^DD(702.011,0,"IX","B",702.011,.01)=""
^DD(702.011,0,"NM","INSTRUMENT")=""
^DD(702.011,0,"UP")="702.01"
^DD(702.011,.01,0)="INSTRUMENT^MP702.09'^MDS(702.09,^0;1^Q"
^DD(702.011,.01,.1)="Instrument"
^DD(702.011,.01,1,0)="^.1"
^DD(702.011,.01,1,1,0)="702.011^B"
^DD(702.011,.01,1,1,1)="S ^MDS(702.01,DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(702.011,.01,1,1,2)="K ^MDS(702.01,DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(702.011,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(702.011,.01,1,1,"%D",1,0)="Standard Fileman ""B"" index for the sub-file."
^DD(702.011,.01,1,2,0)="702.01^AINST"
^DD(702.011,.01,1,2,1)="S ^MDS(702.01,""AINST"",$E(X,1,30),DA(1),DA)="""""
^DD(702.011,.01,1,2,2)="K ^MDS(702.01,""AINST"",$E(X,1,30),DA(1),DA)"
^DD(702.011,.01,1,2,"%D",0)="^^3^3^3021114^"
^DD(702.011,.01,1,2,"%D",1,0)="This cross reference is used to quickly retrieve the available"
^DD(702.011,.01,1,2,"%D",2,0)="instruments for a CP Definition entry as well as prevent instruments"
^DD(702.011,.01,1,2,"%D",3,0)="from being deleted that are still pointed to."
^DD(702.011,.01,1,2,"DT")="3020801"
^DD(702.011,.01,3)="Enter a CP INSTRUMENT."
^DD(702.011,.01,21,0)="^.001^2^2^3021112^^^^"
^DD(702.011,.01,21,1,0)="This field contains a pointer to an instrument in the CP Instrument"
^DD(702.011,.01,21,2,0)="file (#702.09) that generates results for this procedure."
^DD(702.011,.01,"DT")="3020801"
^DD(702.011,"B","INSTRUMENT",.01)=""
^DD(702.011,"B","Instrument",.01)="1"
^DD(702.011,"GL",0,1,.01)=""
^DD(702.011,"IX",.01)=""
^DD(702.09,0)="FIELD^^.307^27"
^DD(702.09,0,"DDA")="N"
^DD(702.09,0,"DT")="3031223"
^DD(702.09,0,"IX","B",702.09,.01)=""
^DD(702.09,0,"IX","UC",702.09,.01)=""
^DD(702.09,0,"NM","CP INSTRUMENT")=""
^DD(702.09,0,"PT",702,.11)=""
^DD(702.09,0,"PT",702.011,.01)=""
^DD(702.09,0,"PT",703.1,.04)=""
^DD(702.09,0,"VR")="1.0"
^DD(702.09,0,"VRPK")="MD"
^DD(702.09,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(702.09,.01,.1)="Instrument Name"
^DD(702.09,.01,1,0)="^.1"
^DD(702.09,.01,1,1,0)="702.09^B"
^DD(702.09,.01,1,1,1)="S ^MDS(702.09,""B"",$E(X,1,30),DA)="""""
^DD(702.09,.01,1,1,2)="K ^MDS(702.09,""B"",$E(X,1,30),DA)"
^DD(702.09,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(702.09,.01,1,1,"%D",1,0)="Standard Fileman ""B"" index for the file."
^DD(702.09,.01,1,2,0)="702.09^UC^MUMPS"
^DD(702.09,.01,1,2,1)="S ^MDS(702.09,""UC"",$$UP^XLFSTR(X),DA)="""""
^DD(702.09,.01,1,2,2)="K ^MDS(702.09,""UC"",$$UP^XLFSTR(X),DA)"
^DD(702.09,.01,1,2,"%D",0)="^^1^1^3020805^"
^DD(702.09,.01,1,2,"%D",1,0)="Used to validate a new entry as unique without case sensitivity."
^DD(702.09,.01,1,2,"DT")="3020805"
^DD(702.09,.01,3)="Answer must be 3-30 characters in length."
^DD(702.09,.01,21,0)="^.001^1^1^3020716^^^^"
^DD(702.09,.01,21,1,0)="Name or mnemonic of instrument - used by vendor in HL7 message header."
^DD(702.09,.01,"DT")="3020805"
^DD(702.09,.02,0)="NOTIFICATION MAILGROUP^P3.8'^XMB(3.8,^0;2^Q"
^DD(702.09,.02,.1)="Notification Mailgroup"
^DD(702.09,.02,21,0)="^.001^3^3^3011105^^"
^DD(702.09,.02,21,1,0)="This field contains a pointer to a VA Mailman Mail Group that will "
^DD(702.09,.02,21,2,0)="receive error messages and other notifications dealing with this device "
^DD(702.09,.02,21,3,0)="from the interface routines."
^DD(702.09,.02,"DT")="3011105"
^DD(702.09,.03,0)="DESCRIPTION^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(702.09,.03,.1)="Description"
^DD(702.09,.03,3)="Answer must be 1-50 characters in length."
^DD(702.09,.03,21,0)="^^2^2^3021112^"
^DD(702.09,.03,21,1,0)="This field contains a short informational description text for the"
^DD(702.09,.03,21,2,0)="instrument."
^DD(702.09,.03,"DT")="3020702"
^DD(702.09,.05,0)="DELETE WHEN SUBMITTED^S^0:No;1:Yes;^0;5^Q"
^DD(702.09,.05,.1)="Delete when submitted"
^DD(702.09,.05,3)="Enter Yes or No."
^DD(702.09,.05,21,0)="^.001^3^3^3011019^^^"
^DD(702.09,.05,21,1,0)="Select 'Yes' if you want files created by this instrument deleted once"
^DD(702.09,.05,21,2,0)="they are successfully copied to the VistA Imaging Server.  Deletion will"
^DD(702.09,.05,21,3,0)="be performed by the VistA Imaging application."
^DD(702.09,.05,"DT")="3010227"
^DD(702.09,.06,0)="PRINTABLE NAME^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(702.09,.06,.1)="Printable Name"
^DD(702.09,.06,3)="Answer must be 3-30 characters in length."
^DD(702.09,.06,21,0)="^.001^1^1^3011019^^^^"
^DD(702.09,.06,21,1,0)="Name of instrument that is printed on reports/etc."
^DD(702.09,.06,"DT")="3000724"
^DD(702.09,.07,0)="DEFAULT FILE EXT^F^^0;7^K:$L(X)>10!($L(X)<1)!'(X?1"".""1.9UL) X"
^DD(702.09,.07,.1)="Default Ext."
^DD(702.09,.07,3)="Enter in a file extension for data uploaded from this instrument (Default .txt)"
^DD(702.09,.07,21,0)="^.001^1^1^3011019^^^^"
^DD(702.09,.07,21,1,0)="Default file extension for vendor instrument reports (e.g. .doc .pdf)."
^DD(702.09,.07,"DT")="3020725"
^DD(702.09,.08,0)="SERIAL NUMBER^F^^0;8^K:$L(X)>50!($L(X)<1) X"
^DD(702.09,.08,.1)="Serial Number"
^DD(702.09,.08,3)="Answer must be 1-50 characters in length."
^DD(702.09,.08,21,0)="^.001^1^1^3011019^^^^"
^DD(702.09,.08,21,1,0)="Vendor serial number of the instrument (for reference only)."
^DD(702.09,.08,"DT")="3000724"
^DD(702.09,.09,0)="ACTIVE^RS^0:No;1:Yes;^0;9^Q"
^DD(702.09,.09,.1)="Active"
^DD(702.09,.09,3)="Enter Yes or No."
^DD(702.09,.09,21,0)="^.001^1^1^3011019^^^^"
^DD(702.09,.09,21,1,0)="Whether or not the instrument is active on the network."
^DD(702.09,.09,"DT")="3000724"
^DD(702.09,.11,0)="PROCESSING ROUTINE^F^^.1;1^K:$L(X)>8!($L(X)<1) X"
^DD(702.09,.11,.1)="M Routine"
^DD(702.09,.11,3)="Answer must be 1-8 characters in length."
^DD(702.09,.11,21,0)="^.001^1^1^3021112^^^^"
^DD(702.09,.11,21,1,0)="Name of the MUMPS routine used to process interface information."
^DD(702.09,.11,"DT")="3020725"
^DD(702.09,.12,0)="PROCESSING CODE^S^M:Medicine;C:CP V1.0;^.1;2^Q"
^DD(702.09,.12,.1)="Pkg Code"
^DD(702.09,.12,3)="Select package this instrument uploads to."
^DD(702.09,.12,21,0)="^.001^1^1^3031223^^^^"
^DD(702.09,.12,21,1,0)="Where data is to be processed - ""M""edicine or ""C""linical Procedures."
^DD(702.09,.12,"DT")="3031223"
^DD(702.09,.13,0)="BI-DIRECTIONAL^S^0:No;1:Yes;^.1;3^Q"
^DD(702.09,.13,.1)="Bi-Directional Instrument"
^DD(702.09,.13,21,0)="^.001^2^2^3021112^^"
^DD(702.09,.13,21,1,0)="'Yes' or 'No"" to indicate if this device can accept HL7 messages from"
^DD(702.09,.13,21,2,0)="VistA."
^DD(702.09,.13,"DT")="3020730"
^DD(702.09,.14,0)="IP ADDRESS^F^^.1;4^K:$L(X)>15!($L(X)<7)!'(X?1.3N1"".""1.3N1"".""1.3N1"".""1.3N) X"
^DD(702.09,.14,.1)="IP Address"
^DD(702.09,.14,3)="Answer must be 7-15 characters in length."
^DD(702.09,.14,21,0)="^^1^1^3021112^"
^DD(702.09,.14,21,1,0)="This field contains the IP address of this instrument."
^DD(702.09,.14,"DT")="3020702"
^DD(702.09,.15,0)="PORT^NJ5,0^^.1;5^K:+X'=X!(X>99999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(702.09,.15,.1)="Port"
^DD(702.09,.15,3)="Type a Number between 1000 and 99999, 0 Decimal Digits"
^DD(702.09,.15,21,0)="^.001^1^1^3021220^^"
^DD(702.09,.15,21,1,0)="This field contains the port number for this instrument."
^DD(702.09,.15,"DT")="3021220"
^DD(702.09,.16,0)="HL7 INSTRUMENT ID^F^^.1;6^K:$L(X)>30!($L(X)<3) X"
^DD(702.09,.16,.1)="HL7 Inst ID"
^DD(702.09,.16,3)="Answer must be 3-30 characters in length."
^DD(702.09,.16,21,0)="^^2^2^3021112^"
^DD(702.09,.16,21,1,0)="This is the name of the actual device where the device name can"
^DD(702.09,.16,21,2,0)="be 'SMC St. Louis'.  This field is used to ID the device."
^DD(702.09,.16,"DT")="3020725"
^DD(702.09,.17,0)="HL7 UNIVERSAL SERVICE ID^F^^.1;7^K:$L(X)>48!($L(X)<1) X"
^DD(702.09,.17,.1)="HL7 Unv Svc ID"
^DD(702.09,.17,3)="Answer must be 1-48 characters in length."
^DD(702.09,.17,21,0)="^^2^2^3021112^"
^DD(702.09,.17,21,1,0)="This field defines what type of procedure the device can perform if the"
^DD(702.09,.17,21,2,0)="device can perform more than one procedure."
^DD(702.09,.17,"DT")="3020725"
^DD(702.09,.18,0)="HL7 LOGICAL LINK^P870'^HLCS(870,^.1;8^Q"
^DD(702.09,.18,.1)="HL7 Link"
^DD(702.09,.18,21,0)="^.001^3^3^3040205^^^^"
^DD(702.09,.18,21,1,0)="This field contains the HL7 Logical Link.  There is one unique link for"
^DD(702.09,.18,21,2,0)="each instrument.  Used to determine where the bi-directional messages are sent."
^DD(702.09,.18,21,3,0)="(Reference IA #1496)"
^DD(702.09,.18,"DT")="3020725"
^DD(702.09,.21,0)="SERVER NAME^F^^.2;1^K:$L(X)>30!($L(X)<1) X"
^DD(702.09,.21,.1)="Server Name"
^DD(702.09,.21,3)="Answer must be 1-30 characters in length."
^DD(702.09,.21,21,0)="^^2^2^3020425^"
^DD(702.09,.21,21,1,0)="Network name of instrument server application"
^DD(702.09,.21,21,2,0)="that generates the attachments."
^DD(702.09,.21,"DT")="3000724"
^DD(702.09,.22,0)="SERVER SHARE^F^^.2;2^K:$L(X)>30!($L(X)<1) X"
^DD(702.09,.22,.1)="Share Name"
^DD(702.09,.22,3)="Answer must be 1-30 characters in length."
^DD(702.09,.22,21,0)="^.001^1^1^3011019^^^^"
^DD(702.09,.22,21,1,0)="Share folder/drive on the instrument server where the report is stored."
^DD(702.09,.22,"DT")="3020801"
^DD(702.09,.23,0)="SERVER PATH^F^^.2;3^K:$L(X)>150!($L(X)<1) X"
^DD(702.09,.23,.1)="Path Name"
^DD(702.09,.23,3)="Answer must be 1-150 characters in length."
^DD(702.09,.23,21,0)="^.001^1^1^3011019^^^^"
^DD(702.09,.23,21,1,0)="Path on the network where the report is stored."
^DD(702.09,.23,"DT")="3020801"
^DD(702.09,.24,0)="SERVER EXECUTABLE^F^^.2;4^K:$L(X)>30!($L(X)<1) X"
^DD(702.09,.24,.1)="Executable Name"
^DD(702.09,.24,3)="Answer must be 1-30 characters in length."
^DD(702.09,.24,21,0)="^.001^1^1^3011019^^^^"
^DD(702.09,.24,21,1,0)="Name of server program that is ran to create the report for the interface."
^DD(702.09,.24,"DT")="3020801"
^DD(702.09,.301,0)="PROCESS UNC^S^0:No;1:Yes;^.3;1^Q"
^DD(702.09,.301,.1)="UNC"
^DD(702.09,.301,3)="Enter Yes or No."
^DD(702.09,.301,21,0)="^.001^1^1^3021112^^^"
^DD(702.09,.301,21,1,0)="Enter 'Yes' or 'No' to indicate if this instrument produces UNC type data."
^DD(702.09,.301,"DT")="3010619"
^DD(702.09,.302,0)="PROCESS TEXT^S^0:No;1:Yes;^.3;2^Q"
^DD(702.09,.302,.1)="Text"
^DD(702.09,.302,3)="Enter Yes or No."
^DD(702.09,.302,21,0)="^.001^1^1^3021112^^^"
^DD(702.09,.302,21,1,0)="Enter 'Yes' or 'No' to indicate if this instrument produces text type data."
^DD(702.09,.302,"DT")="3010619"
^DD(702.09,.303,0)="PROCESS URL^S^0:No;1:Yes;^.3;3^Q"
^DD(702.09,.303,.1)="URL"
^DD(702.09,.303,3)="Enter Yes or No."
^DD(702.09,.303,21,0)="^.001^1^1^3021112^^"
^DD(702.09,.303,21,1,0)="Enter 'Yes' or 'No' to indicate if this instrument produces URL type data."
^DD(702.09,.303,"DT")="3010619"
^DD(702.09,.304,0)="PROCESS DLL^S^0:No;1:Yes;^.3;4^Q"
^DD(702.09,.304,.1)="DLL"
^DD(702.09,.304,3)="Enter Yes or No."
^DD(702.09,.304,21,0)="^.001^1^1^3021112^^"
^DD(702.09,.304,21,1,0)="Enter 'Yes' or 'No' to indicate if this instrument produces DLL type data."
^DD(702.09,.304,"DT")="3010619"
^DD(702.09,.305,0)="PROCESS UUENCODE^S^0:No;1:Yes;^.3;5^Q"
^DD(702.09,.305,.1)="UUEncode"
^DD(702.09,.305,3)="Enter Yes or No."
^DD(702.09,.305,21,0)="^.001^1^1^3021112^^^"
^DD(702.09,.305,21,1,0)="Enter 'Yes'  or 'No"" to indicate if this instrument produces UUENCODE type data."
^DD(702.09,.305,"DT")="3020725"
^DD(702.09,.306,0)="PROCESS XML^S^0:No;1:Yes;^.3;6^Q"
^DD(702.09,.306,.1)="XML"
^DD(702.09,.306,3)="Enter Yes or No."
^DD(702.09,.306,21,0)="^.001^1^1^3021112^^"
^DD(702.09,.306,21,1,0)="Enter 'Yes' or 'No' to indicate if this instrument produces XML type data."
^DD(702.09,.306,"DT")="3010619"
^DD(702.09,.307,0)="PROCESS XMS^S^0:No;1:Yes;^.3;7^Q"
^DD(702.09,.307,.1)="XMS"
^DD(702.09,.307,3)="Enter Yes or No."
^DD(702.09,.307,21,0)="^.001^1^1^3021112^^"
^DD(702.09,.307,21,1,0)="Enter 'Yes' or 'No' to indicate if this instrument produces XMS type data."
^DD(702.09,.307,"DT")="3021204"
^DD(702.09,"B","ACTIVE",.09)=""
^DD(702.09,"B","Active",.09)="1"
^DD(702.09,"B","BI-DIRECTIONAL",.13)=""
^DD(702.09,"B","Bi-Directional Instrument",.13)="1"
^DD(702.09,"B","DEFAULT FILE EXT",.07)=""
^DD(702.09,"B","DELETE WHEN SUBMITTED",.05)=""
^DD(702.09,"B","DESCRIPTION",.03)=""
^DD(702.09,"B","DLL",.304)="1"
^DD(702.09,"B","Default Ext.",.07)="1"
^DD(702.09,"B","Delete when submitted",.05)="1"
^DD(702.09,"B","Description",.03)="1"
^DD(702.09,"B","Executable Name",.24)="1"
^DD(702.09,"B","HL7 INSTRUMENT ID",.16)=""
^DD(702.09,"B","HL7 Inst ID",.16)="1"
^DD(702.09,"B","HL7 LOGICAL LINK",.18)=""
^DD(702.09,"B","HL7 Link",.18)="1"
^DD(702.09,"B","HL7 UNIVERSAL SERVICE ID",.17)=""
^DD(702.09,"B","HL7 Unv Svc ID",.17)="1"
^DD(702.09,"B","IP ADDRESS",.14)=""
^DD(702.09,"B","IP Address",.14)="1"
^DD(702.09,"B","Instrument Name",.01)="1"
^DD(702.09,"B","M Routine",.11)="1"
^DD(702.09,"B","NAME",.01)=""
^DD(702.09,"B","NOTIFICATION MAILGROUP",.02)=""
^DD(702.09,"B","Notification Mailgroup",.02)="1"
^DD(702.09,"B","PORT",.15)=""
^DD(702.09,"B","PRINTABLE NAME",.06)=""
^DD(702.09,"B","PROCESS DLL",.304)=""
^DD(702.09,"B","PROCESS TEXT",.302)=""
^DD(702.09,"B","PROCESS UNC",.301)=""
^DD(702.09,"B","PROCESS URL",.303)=""
^DD(702.09,"B","PROCESS UUENCODE",.305)=""
^DD(702.09,"B","PROCESS XML",.306)=""
^DD(702.09,"B","PROCESS XMS",.307)=""
^DD(702.09,"B","PROCESSING CODE",.12)=""
^DD(702.09,"B","PROCESSING ROUTINE",.11)=""
^DD(702.09,"B","Path Name",.23)="1"
^DD(702.09,"B","Pkg Code",.12)="1"
^DD(702.09,"B","Port",.15)="1"
^DD(702.09,"B","Printable Name",.06)="1"
^DD(702.09,"B","SERIAL NUMBER",.08)=""
^DD(702.09,"B","SERVER EXECUTABLE",.24)=""
^DD(702.09,"B","SERVER NAME",.21)=""
^DD(702.09,"B","SERVER PATH",.23)=""
^DD(702.09,"B","SERVER SHARE",.22)=""
^DD(702.09,"B","Serial Number",.08)="1"
^DD(702.09,"B","Server Name",.21)="1"
^DD(702.09,"B","Share Name",.22)="1"
^DD(702.09,"B","Text",.302)="1"
^DD(702.09,"B","UNC",.301)="1"
^DD(702.09,"B","URL",.303)="1"
^DD(702.09,"B","UUEncode",.305)="1"
^DD(702.09,"B","XML",.306)="1"
^DD(702.09,"B","XMS",.307)="1"
^DD(702.09,"GL",0,1,.01)=""
^DD(702.09,"GL",0,2,.02)=""
^DD(702.09,"GL",0,3,.03)=""
^DD(702.09,"GL",0,5,.05)=""
^DD(702.09,"GL",0,6,.06)=""
^DD(702.09,"GL",0,7,.07)=""
^DD(702.09,"GL",0,8,.08)=""
^DD(702.09,"GL",0,9,.09)=""
^DD(702.09,"GL",.1,1,.11)=""
^DD(702.09,"GL",.1,2,.12)=""
^DD(702.09,"GL",.1,3,.13)=""
^DD(702.09,"GL",.1,4,.14)=""
^DD(702.09,"GL",.1,5,.15)=""
^DD(702.09,"GL",.1,6,.16)=""
^DD(702.09,"GL",.1,7,.17)=""
^DD(702.09,"GL",.1,8,.18)=""
^DD(702.09,"GL",.2,1,.21)=""
^DD(702.09,"GL",.2,2,.22)=""
^DD(702.09,"GL",.2,3,.23)=""
^DD(702.09,"GL",.2,4,.24)=""
^DD(702.09,"GL",.3,1,.301)=""
^DD(702.09,"GL",.3,2,.302)=""
^DD(702.09,"GL",.3,3,.303)=""
^DD(702.09,"GL",.3,4,.304)=""
^DD(702.09,"GL",.3,5,.305)=""
^DD(702.09,"GL",.3,6,.306)=""
^DD(702.09,"GL",.3,7,.307)=""
^DD(702.09,"IX",.01)=""
^DD(702.09,"RQ",.01)=""
^DD(702.09,"RQ",.09)=""
^DD(702.091,0)="ERROR MESSAGES SUB-FIELD^^.09^4"
^DD(702.091,0,"DT")="3010619"
^DD(702.091,0,"IX","B",702.091,.01)=""
^DD(702.091,0,"NM","ERROR MESSAGES")=""
^DD(702.091,0,"UP")="702"
^DD(702.091,.01,0)="ERROR MESSAGES^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(702.091,.01,1,0)="^.1"
^DD(702.091,.01,1,1,0)="702.091^B"
^DD(702.091,.01,1,1,1)="S ^MDD(702,DA(1),.091,""B"",$E(X,1,30),DA)="""""
^DD(702.091,.01,1,1,2)="K ^MDD(702,DA(1),.091,""B"",$E(X,1,30),DA)"
^DD(702.091,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(702.091,.01,1,1,"%D",1,0)="Standard Fileman ""B"" index for the sub-file."
^DD(702.091,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(702.091,.01,21,0)="^.001^2^2^3021112^^"
^DD(702.091,.01,21,1,0)="This field contains a sequential number assigned to the error message"
^DD(702.091,.01,21,2,0)="and it has no meaning."
^DD(702.091,.01,"DT")="3010619"
^DD(702.091,.02,0)="DATE RECEIVED^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(702.091,.02,3)="Enter a Date/Time."
^DD(702.091,.02,21,0)="^^1^1^3011019^"
^DD(702.091,.02,21,1,0)="Date and Time this error message was generated."
^DD(702.091,.02,"DT")="3010619"
^DD(702.091,.03,0)="RECEIVED FROM^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(702.091,.03,3)="Answer must be 1-30 characters in length."
^DD(702.091,.03,21,0)="^.001^2^2^3021112^^^"
^DD(702.091,.03,21,1,0)="This field contains the free text name of the application that generated the"
^DD(702.091,.03,21,2,0)="error during an API call."
^DD(702.091,.03,"DT")="3010619"
^DD(702.091,.09,0)="MESSAGE^F^^0;9^K:$L(X)>150!($L(X)<1) X"
^DD(702.091,.09,3)="Answer must be 1-150 characters in length."
^DD(702.091,.09,21,0)="^.001^1^1^3021112^^"
^DD(702.091,.09,21,1,0)="This is the text of the error message that was generated."
^DD(702.091,.09,"DT")="3010619"
^DD(702.091,"B","DATE RECEIVED",.02)=""
^DD(702.091,"B","ERROR MESSAGES",.01)=""
^DD(702.091,"B","MESSAGE",.09)=""
^DD(702.091,"B","RECEIVED FROM",.03)=""
^DD(702.091,"GL",0,1,.01)=""
^DD(702.091,"GL",0,2,.02)=""
^DD(702.091,"GL",0,3,.03)=""
^DD(702.091,"GL",0,9,.09)=""
^DD(702.091,"IX",.01)=""
^DD(702.1,0)="IMAGE SUB-FIELD^^.1^5"
^DD(702.1,0,"DT")="3010222"
^DD(702.1,0,"IX","B",702.1,.01)=""
^DD(702.1,0,"NM","IMAGE")=""
^DD(702.1,0,"UP")="702"
^DD(702.1,.01,0)="IMAGE^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(702.1,.01,.1)="Image"
^DD(702.1,.01,1,0)="^.1"
^DD(702.1,.01,1,1,0)="702.1^B"
^DD(702.1,.01,1,1,1)="S ^MDD(702,DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(702.1,.01,1,1,2)="K ^MDD(702,DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(702.1,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(702.1,.01,1,1,"%D",1,0)="Standard Fileman ""B"" index for the sub-file."
^DD(702.1,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(702.1,.01,21,0)="^.001^2^2^3021112^^^^"
^DD(702.1,.01,21,1,0)="This is a sequential number assigned to the attached image for this transaction"
^DD(702.1,.01,21,2,0)="and it has no meaning."
^DD(702.1,.01,"DT")="3010216"
^DD(702.1,.02,0)="TYPE^S^I:Instrument data;U:User supplied file;^0;2^Q"
^DD(702.1,.02,.1)="Type"
^DD(702.1,.02,3)="Type of Image"
^DD(702.1,.02,21,0)="^.001^4^4^3021112^^^^"
^DD(702.1,.02,21,1,0)="Type of image attachment to be processed."
^DD(702.1,.02,21,2,0)=" "
^DD(702.1,.02,21,3,0)="'I' FOR Instrument data - image generated from an instrument."
^DD(702.1,.02,21,4,0)="'U' FOR User supplied file - image or file that user supplied."
^DD(702.1,.02,"DT")="3010216"
^DD(702.1,.03,0)="RESULT REPORT^P703.1'^MDD(703.1,^0;3^Q"
^DD(702.1,.03,.1)="Result Report"
^DD(702.1,.03,3)="Enter in a CP RESULT REPORT."
^DD(702.1,.03,21,0)="^.001^2^2^3021112^^^^"
^DD(702.1,.03,21,1,0)="This field contains a pointer to the CP RESULT REPORT file (#703.1) where the"
^DD(702.1,.03,21,2,0)="attachment from the instrument is located."
^DD(702.1,.03,"DT")="3010222"
^DD(702.1,.09,0)="STATUS^S^0:Submitted to server;1:Error in submission;2:Error in filing;3:Copied to server;^0;9^Q"
^DD(702.1,.09,.1)="Status"
^DD(702.1,.09,3)="Status of attachment"
^DD(702.1,.09,21,0)="^.001^13^13^3021112^^^^"
^DD(702.1,.09,21,1,0)="This field contains the status of this image attachment."
^DD(702.1,.09,21,2,0)=" "
^DD(702.1,.09,21,3,0)="'0' FOR Submitted to server - the image has been submitted to VistA Imaging"
^DD(702.1,.09,21,4,0)="                              server."
^DD(702.1,.09,21,5,0)=" "
^DD(702.1,.09,21,6,0)="'1' FOR Error in submission - VistA Imaging has generated error(s) during"
^DD(702.1,.09,21,7,0)="                              image submission."
^DD(702.1,.09,21,8,0)=" "
^DD(702.1,.09,21,9,0)="'2' FOR Error in filing - VistA Imaging has generated error(s) when the"
^DD(702.1,.09,21,10,0)="                          image is being copied over to the Imaging server."
^DD(702.1,.09,21,11,0)=" "
^DD(702.1,.09,21,12,0)="'3' FOR Copied to server - the image is copied over to the VistA Imaging"
^DD(702.1,.09,21,13,0)="                           server successfully."
^DD(702.1,.09,"DT")="3010216"
^DD(702.1,.1,0)="UNC^F^^.1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(702.1,.1,3)="Answer must be 1-245 characters in length."
^DD(702.1,.1,21,0)="^.001^2^2^3021112^^^^"
^DD(702.1,.1,21,1,0)="This field contains the Universal Naming Convention (UNC) for this attachment"
^DD(702.1,.1,21,2,0)="indicating where the image attachment is located."
^DD(702.1,.1,"DT")="3010222"
^DD(702.1,"B","IMAGE",.01)=""
^DD(702.1,"B","Image",.01)="1"
^DD(702.1,"B","RESULT REPORT",.03)=""
^DD(702.1,"B","Result Report",.03)="1"
^DD(702.1,"B","STATUS",.09)=""
^DD(702.1,"B","Status",.09)="1"
^DD(702.1,"B","TYPE",.02)=""
^DD(702.1,"B","Type",.02)="1"
^DD(702.1,"B","UNC",.1)=""
^DD(702.1,"GL",0,1,.01)=""
^DD(702.1,"GL",0,2,.02)=""
^DD(702.1,"GL",0,3,.03)=""
^DD(702.1,"GL",0,9,.09)=""
^DD(702.1,"GL",.1,"E1,245",.1)=""
^DD(702.1,"IX",.01)=""
^DD(703.1,0)="FIELD^^.1^8"
^DD(703.1,0,"DDA")="N"
^DD(703.1,0,"DT")="3021118"
^DD(703.1,0,"IX","ADFN",703.1,.02)=""
^DD(703.1,0,"IX","ADTP",703.1,.03)=""
^DD(703.1,0,"IX","AINST",703.1,.04)=""
^DD(703.1,0,"IX","ASTATUS",703.1,.09)=""
^DD(703.1,0,"IX","ASTUDYID",703.1,.05)=""
^DD(703.1,0,"IX","B",703.1,.01)=""
^DD(703.1,0,"NM","CP RESULT REPORT")=""
^DD(703.1,0,"PT",702.1,.03)=""
^DD(703.1,0,"VR")="1.0"
^DD(703.1,0,"VRPK")="MD"
^DD(703.1,.01,0)="UPLOAD ID^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(703.1,.01,.1)="Upload ID"
^DD(703.1,.01,1,0)="^.1"
^DD(703.1,.01,1,1,0)="703.1^B"
^DD(703.1,.01,1,1,1)="S ^MDD(703.1,""B"",$E(X,1,30),DA)="""""
^DD(703.1,.01,1,1,2)="K ^MDD(703.1,""B"",$E(X,1,30),DA)"
^DD(703.1,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(703.1,.01,1,1,"%D",1,0)="Standard Fileman ""B"" index for the file."
^DD(703.1,.01,3)="Answer must be 1-30 characters in length."
^DD(703.1,.01,21,0)="^.001^1^1^3030516^^^^"
^DD(703.1,.01,21,1,0)="Unique identifier assigned for each upload."
^DD(703.1,.01,"DT")="3010402"
^DD(703.1,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(703.1,.02,.1)="Patient Name"
^DD(703.1,.02,1,0)="^.1"
^DD(703.1,.02,1,1,0)="703.1^ADFN"
^DD(703.1,.02,1,1,1)="S ^MDD(703.1,""ADFN"",$E(X,1,30),DA)="""""
^DD(703.1,.02,1,1,2)="K ^MDD(703.1,""ADFN"",$E(X,1,30),DA)"
^DD(703.1,.02,1,1,"%D",0)="^^1^1^3011019^"
^DD(703.1,.02,1,1,"%D",1,0)="Standard Fileman ""ADFN"" index on the patient IEN."
^DD(703.1,.02,1,1,"DT")="3010216"
^DD(703.1,.02,3)="Enter a patient name."
^DD(703.1,.02,21,0)="^.001^2^2^3011019^^^^"
^DD(703.1,.02,21,1,0)="Pointer to the PATIENT file (#2) of the patient uploaded from the result"
^DD(703.1,.02,21,2,0)="of the instrument."
^DD(703.1,.02,"DT")="3010216"
^DD(703.1,.03,0)="DATE/TIME PERFORMED^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(703.1,.03,.1)="Date/Time Performed"
^DD(703.1,.03,1,0)="^.1"
^DD(703.1,.03,1,1,0)="703.1^ADTP"
^DD(703.1,.03,1,1,1)="S ^MDD(703.1,""ADTP"",$E(X,1,30),DA)="""""
^DD(703.1,.03,1,1,2)="K ^MDD(703.1,""ADTP"",$E(X,1,30),DA)"
^DD(703.1,.03,1,1,"%D",0)="^^2^2^3021114^"
^DD(703.1,.03,1,1,"%D",1,0)="This cross reference is used to quickly purge old entries in the"
^DD(703.1,.03,1,1,"%D",2,0)="CP RESULT REPORT file."
^DD(703.1,.03,1,1,"DT")="3020401"
^DD(703.1,.03,3)="Enter date and time this result was performed."
^DD(703.1,.03,21,0)="^.001^1^1^3011019^^^^"
^DD(703.1,.03,21,1,0)="Date/Time the procedure was performed on the instrument."
^DD(703.1,.03,"DT")="3020401"
^DD(703.1,.04,0)="INSTRUMENT^P702.09'^MDS(702.09,^0;4^Q"
^DD(703.1,.04,.1)="Instrument"
^DD(703.1,.04,1,0)="^.1"
^DD(703.1,.04,1,1,0)="703.1^AINST"
^DD(703.1,.04,1,1,1)="S ^MDD(703.1,""AINST"",$E(X,1,30),DA)="""""
^DD(703.1,.04,1,1,2)="K ^MDD(703.1,""AINST"",$E(X,1,30),DA)"
^DD(703.1,.04,1,1,"DT")="3020801"
^DD(703.1,.04,3)="Enter a CP INSTRUMENT."
^DD(703.1,.04,21,0)="^.001^2^2^3011019^^^^"
^DD(703.1,.04,21,1,0)="Pointer to the CP INSTRUMENT file (#702.9) of the instrument that produced"
^DD(703.1,.04,21,2,0)="these reports."
^DD(703.1,.04,"DT")="3020801"
^DD(703.1,.05,0)="STUDY REFERENCE NUMBER^P702^MDD(702,^0;5^Q"
^DD(703.1,.05,1,0)="^.1"
^DD(703.1,.05,1,1,0)="703.1^ASTUDYID"
^DD(703.1,.05,1,1,1)="S ^MDD(703.1,""ASTUDYID"",$E(X,1,30),DA)="""""
^DD(703.1,.05,1,1,2)="K ^MDD(703.1,""ASTUDYID"",$E(X,1,30),DA)"
^DD(703.1,.05,1,1,"%D",0)="^^1^1^3060823^"
^DD(703.1,.05,1,1,"%D",1,0)="This cross reference provide a quick look up by the study reference ID."
^DD(703.1,.05,1,1,"DT")="3041108"
^DD(703.1,.05,3)=""
^DD(703.1,.05,21,0)="^.001^1^1^3060905^^^^"
^DD(703.1,.05,21,1,0)="This field serves as a reference to the transaction."
^DD(703.1,.05,"DT")="3060905"
^DD(703.1,.06,0)="HL7 REFERENCE NUMBER^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(703.1,.06,3)="Answer must be 1-30 characters in length."
^DD(703.1,.06,21,0)="^.001^3^3^3021112^^"
^DD(703.1,.06,21,1,0)="This field is used to keep the IEN of the HL7 message.  It serves as a"
^DD(703.1,.06,21,2,0)="reference to the message that will be purged once the data has been "
^DD(703.1,.06,21,3,0)="successfully moved to the VistA Imaging server."
^DD(703.1,.06,"DT")="3020903"
^DD(703.1,.09,0)="STATUS^RS^U:Unmatched;M:Matched;P:Pending Gateway Action;^0;9^Q"
^DD(703.1,.09,.1)="Status"
^DD(703.1,.09,1,0)="^.1"
^DD(703.1,.09,1,1,0)="703.1^ASTATUS"
^DD(703.1,.09,1,1,1)="S ^MDD(703.1,""ASTATUS"",$E(X,1,30),DA)="""""
^DD(703.1,.09,1,1,2)="K ^MDD(703.1,""ASTATUS"",$E(X,1,30),DA)"
^DD(703.1,.09,1,1,"%D",0)="^^1^1^3020710^"
^DD(703.1,.09,1,1,"%D",1,0)="Sets the status for the Gateway to find studies to process."
^DD(703.1,.09,1,1,"DT")="3020710"
^DD(703.1,.09,3)="Status of Result Report"
^DD(703.1,.09,21,0)="^.001^5^5^3021118^^^^"
^DD(703.1,.09,21,1,0)="Status of the result."
^DD(703.1,.09,21,2,0)=" "
^DD(703.1,.09,21,3,0)="U:Unmatched - Result not matched to a CP transaction."
^DD(703.1,.09,21,4,0)="M:Matched   - Result matched to a CP transaction."
^DD(703.1,.09,21,5,0)="P:Pending Gateway Action - Result is awaiting CP Gateway action."
^DD(703.1,.09,"DT")="3021118"
^DD(703.1,.1,0)="UPLOAD ITEM^703.11S^^.1;0"
^DD(703.1,.1,21,0)="^.001^1^1^3030909^^^"
^DD(703.1,.1,21,1,0)="This multiple contains information on the upload item."
^DD(703.1,"B","DATE/TIME PERFORMED",.03)=""
^DD(703.1,"B","Date/Time Performed",.03)="1"
^DD(703.1,"B","HL7 REFERENCE NUMBER",.06)=""
^DD(703.1,"B","INSTRUMENT",.04)=""
^DD(703.1,"B","Instrument",.04)="1"
^DD(703.1,"B","PATIENT",.02)=""
^DD(703.1,"B","Patient Name",.02)="1"
^DD(703.1,"B","STATUS",.09)=""
^DD(703.1,"B","STUDY REFERENCE NUMBER",.05)=""
^DD(703.1,"B","Status",.09)="1"
^DD(703.1,"B","UPLOAD ID",.01)=""
^DD(703.1,"B","UPLOAD ITEM",.1)=""
^DD(703.1,"B","Upload ID",.01)="1"
^DD(703.1,"GL",0,1,.01)=""
^DD(703.1,"GL",0,2,.02)=""
^DD(703.1,"GL",0,3,.03)=""
^DD(703.1,"GL",0,4,.04)=""
^DD(703.1,"GL",0,5,.05)=""
^DD(703.1,"GL",0,6,.06)=""
^DD(703.1,"GL",0,9,.09)=""
^DD(703.1,"GL",.1,0,.1)=""
^DD(703.1,"IX",.01)=""
^DD(703.1,"IX",.02)=""
^DD(703.1,"IX",.03)=""
^DD(703.1,"IX",.04)=""
^DD(703.1,"IX",.05)=""
^DD(703.1,"IX",.09)=""
^DD(703.1,"RQ",.01)=""
^DD(703.1,"RQ",.09)=""
^DD(703.1,"SB",703.11,.1)=""
^DD(703.11,0)="UPLOAD ITEM SUB-FIELD^^.2^4"
^DD(703.11,0,"DT")="3020711"
^DD(703.11,0,"IX","B",703.11,.01)=""
^DD(703.11,0,"NM","UPLOAD ITEM")=""
^DD(703.11,0,"UP")="703.1"
^DD(703.11,.01,0)="UPLOAD ITEM^MS^1:Impression Text;2:Report Text;3:Attachment UNC;4:Attachment URL;5:UUEncoded Data;6:DLL;7:XML Data;8:XML Style Sheet;^0;1^Q"
^DD(703.11,.01,.1)="Item"
^DD(703.11,.01,1,0)="^.1"
^DD(703.11,.01,1,1,0)="703.11^B"
^DD(703.11,.01,1,1,1)="S ^MDD(703.1,DA(1),.1,""B"",$E(X,1,30),DA)="""""
^DD(703.11,.01,1,1,2)="K ^MDD(703.1,DA(1),.1,""B"",$E(X,1,30),DA)"
^DD(703.11,.01,1,1,"%D",0)="^^1^1^3011019^"
^DD(703.11,.01,1,1,"%D",1,0)="Standard Fileman ""B"" index for the sub-file."
^DD(703.11,.01,3)="Enter and item."
^DD(703.11,.01,21,0)="^.001^2^2^3021112^^^^"
^DD(703.11,.01,21,1,0)="This field contains the type of data element that can be uploaded from"
^DD(703.11,.01,21,2,0)="the instrument."
^DD(703.11,.01,"DT")="3010618"
^DD(703.11,.02,0)="ATTACHMENT UNC^F^^0;2^K:$L(X)>240!($L(X)<1) X"
^DD(703.11,.02,3)="Answer must be 1-240 characters in length."
^DD(703.11,.02,21,0)="^^2^2^3021112^"
^DD(703.11,.02,21,1,0)="This field contains the Universal Naming Convention (UNC) for this"
^DD(703.11,.02,21,2,0)="attachment.  This indicates where the attachment is located."
^DD(703.11,.02,"DT")="3020711"
^DD(703.11,.1,0)="ITEM VALUE^F^^.1;1^K:$L(X)>245!($L(X)<1) X"
^DD(703.11,.1,.1)="Value"
^DD(703.11,.1,3)="Answer must be 1-245 characters in length."
^DD(703.11,.1,21,0)="^.001^1^1^3030909^^^^"
^DD(703.11,.1,21,1,0)="This field stores uploaded items that are a single string value."
^DD(703.11,.1,"DT")="3010216"
^DD(703.11,.2,0)="ITEM TEXT^703.12^^.2;0"
^DD(703.11,.2,21,0)="^.001^1^1^3021112^^^^"
^DD(703.11,.2,21,1,0)="This word-processing field is used to store uploaded data that is multi-lined."
^DD(703.11,"B","ATTACHMENT UNC",.02)=""
^DD(703.11,"B","ITEM TEXT",.2)=""
^DD(703.11,"B","ITEM VALUE",.1)=""
^DD(703.11,"B","Item",.01)="1"
^DD(703.11,"B","UPLOAD ITEM",.01)=""
^DD(703.11,"B","Value",.1)="1"
^DD(703.11,"GL",0,1,.01)=""
^DD(703.11,"GL",0,2,.02)=""
^DD(703.11,"GL",.1,1,.1)=""
^DD(703.11,"GL",.2,0,.2)=""
^DD(703.11,"IX",.01)=""
^DD(703.11,"SB",703.12,.2)=""
^DD(703.12,0)="ITEM TEXT SUB-FIELD^^.01^1"
^DD(703.12,0,"DT")="3000629"
^DD(703.12,0,"NM","ITEM TEXT")=""
^DD(703.12,0,"UP")="703.11"
^DD(703.12,.01,0)="ITEM TEXT^WL^^0;1^Q"
^DD(703.12,.01,21,0)="^.001^1^1^3011019^^^^"
^DD(703.12,.01,21,1,0)="If the uploaded data is multi-lined, it is stored here."
^DD(703.12,.01,"DT")="3000725"
^DD(703.12,"B","ITEM TEXT",.01)=""
^DD(703.12,"GL",0,1,.01)=""
^DD(703.9,0)="FIELD^^2^6"
^DD(703.9,0,"DDA")="N"
^DD(703.9,0,"DT")="3040915"
^DD(703.9,0,"IX","B",703.9,.01)=""
^DD(703.9,0,"NM","CP CONVERSION")=""
^DD(703.9,0,"SCR")="I +Y=1"
^DD(703.9,0,"VR")="1.0"
^DD(703.9,0,"VRPK")="MD"
^DD(703.9,.01,0)="NAME^RFX^^0;1^K X"
^DD(703.9,.01,1,0)="^.1"
^DD(703.9,.01,1,1,0)="703.9^B"
^DD(703.9,.01,1,1,1)="S ^MDD(703.9,""B"",$E(X,1,30),DA)="""""
^DD(703.9,.01,1,1,2)="K ^MDD(703.9,""B"",$E(X,1,30),DA)"
^DD(703.9,.01,3)="This field is only accessible via the conversion routine."
^DD(703.9,.01,21,0)="^.001^3^3^3041109^^^^"
^DD(703.9,.01,21,1,0)="This field contains the name of the CP conversion."
^DD(703.9,.01,21,2,0)="It is only accessible by the CP conversion routine."
^DD(703.9,.01,21,3,0)="It is exported with one ""DEFAULT"" entry."
^DD(703.9,.02,0)="MODE^S^0:TEST;1:REAL;^0;2^Q"
^DD(703.9,.02,3)="Enter 0 for Test or 1 for Real mode."
^DD(703.9,.02,21,0)="^.001^1^1^3041109^^"
^DD(703.9,.02,21,1,0)="This field indicates if the CP conversion is in test or real mode."
^DD(703.9,.02,"DT")="3030903"
^DD(703.9,.03,0)="ADMINISTRATIVE CLOSURE USER^P200'^VA(200,^0;3^Q"
^DD(703.9,.03,3)="Enter an Administrative Closure person."
^DD(703.9,.03,21,0)="^^3^3^3040630^"
^DD(703.9,.03,21,1,0)="This field points to the New Person file (#200).  It is used to"
^DD(703.9,.03,21,2,0)="indicate the Administrative Closure person used to close the TIU"
^DD(703.9,.03,21,3,0)="documents for the CP conversion."
^DD(703.9,.03,"DT")="3030923"
^DD(703.9,.1,0)="SCRATCH HFS DIRECTORY^F^^.1;1^K:$L(X)>50!($L(X)<1) X"
^DD(703.9,.1,3)="Answer must be 1-50 characters in length."
^DD(703.9,.1,21,0)="^^3^3^3040630^"
^DD(703.9,.1,21,1,0)="This field stores the scratch HFS directory used for the"
^DD(703.9,.1,21,2,0)="CP conversion.  The CP conversion program will use this directory"
^DD(703.9,.1,21,3,0)="to convert the Medicine reports."
^DD(703.9,.1,"DT")="3030103"
^DD(703.9,1,0)="MEDICINE FILE PARAMETERS^703.91P^^1;0"
^DD(703.9,1,8)=""
^DD(703.9,1,9)=""
^DD(703.9,1,21,0)="^.001^2^2^3041109^^^^"
^DD(703.9,1,21,1,0)="This multiple contains the parameter data used for the CP conversion of the"
^DD(703.9,1,21,2,0)="Medicine reports."
^DD(703.9,2,0)="CONVERSION LOG^703.92^^2;0"
^DD(703.9,2,21,0)="^.001^1^1^3040923^^"
^DD(703.9,2,21,1,0)="This multiple is used to store the data for the conversion log."
^DD(703.9,"B","ADMINISTRATIVE CLOSURE USER",.03)=""
^DD(703.9,"B","CONVERSION LOG",2)=""
^DD(703.9,"B","MEDICINE FILE PARAMETERS",1)=""
^DD(703.9,"B","MODE",.02)=""
^DD(703.9,"B","NAME",.01)=""
^DD(703.9,"B","SCRATCH HFS DIRECTORY",.1)=""
^DD(703.9,"GL",0,1,.01)=""
^DD(703.9,"GL",0,2,.02)=""
^DD(703.9,"GL",0,3,.03)=""
^DD(703.9,"GL",.1,1,.1)=""
^DD(703.9,"GL",1,0,1)=""
^DD(703.9,"GL",2,0,2)=""
^DD(703.9,"IX",.01)=""
^DD(703.9,"RQ",.01)=""
^DD(703.9,"SB",703.91,1)=""
^DD(703.9,"SB",703.92,2)=""
^DD(703.91,0)="MEDICINE FILE PARAMETERS SUB-FIELD^^.05^5"
^DD(703.91,0,"DT")="3040915"
^DD(703.91,0,"IX","B",703.91,.01)=""
^DD(703.91,0,"NM","MEDICINE FILE PARAMETERS")=""
^DD(703.91,0,"UP")="703.9"
^DD(703.91,.01,0)="MEDICINE FILE PARAMETERS^MP1'X^DIC(^0;1^S DINUM=+X"
^DD(703.91,.01,1,0)="^.1"
^DD(703.91,.01,1,1,0)="703.91^B"
^DD(703.91,.01,1,1,1)="S ^MDD(703.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(703.91,.01,1,1,2)="K ^MDD(703.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(703.91,.01,21,0)="^.001^3^3^3041109^^^^"
^DD(703.91,.01,21,1,0)="This field points to the File file (#1).  It is used to store the"
^DD(703.91,.01,21,2,0)="Medicine file number that this parameter is pertaining to."
^DD(703.91,.01,21,3,0)="(Reference IA #4507)"
^DD(703.91,.01,"DT")="3021107"
^DD(703.91,.02,0)="CP DEFINITION^P702.01'^MDS(702.01,^0;2^Q"
^DD(703.91,.02,21,0)="^.001^2^2^3041109^^"
^DD(703.91,.02,21,1,0)="This field contains the CP Definition to which the Medicine Report will"
^DD(703.91,.02,21,2,0)="be mapped."
^DD(703.91,.02,"DT")="3021107"
^DD(703.91,.03,0)="CONVERT Y/N^S^0:No;1:Yes;^0;3^Q"
^DD(703.91,.03,21,0)="^.001^2^2^3041109^^"
^DD(703.91,.03,21,1,0)="This field is used as a flag to mark the Medicine Report. Enter"
^DD(703.91,.03,21,2,0)="0 for 'to not convert' or 1 for 'to convert'."
^DD(703.91,.03,"DT")="3030203"
^DD(703.91,.04,0)="CONVERT IF NO STATUS^S^0:No;1:Yes;^0;4^Q"
^DD(703.91,.04,3)=""
^DD(703.91,.04,21,0)="^.001^4^4^3041109^^"
^DD(703.91,.04,21,1,0)="This field is used as a flag to indicate whether the Medicine"
^DD(703.91,.04,21,2,0)="report should be converted or not be converted, if there is"
^DD(703.91,.04,21,3,0)="no status for the report.  The field is 0 for 'not to convert'"
^DD(703.91,.04,21,4,0)="or 1 for 'to convert'."
^DD(703.91,.04,"DT")="3031003"
^DD(703.91,.05,0)="USE TIU NOTE TITLE^*P8925.1'^TIU(8925.1,^0;5^S DIC(""S"")=""I $$ISHISTCP^TIUCP(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(703.91,.05,12)="Restricts title to Historical CP documents only."
^DD(703.91,.05,12.1)="S DIC(""S"")=""I $$ISHISTCP^TIUCP(+Y)"""
^DD(703.91,.05,21,0)="^.001^2^2^3041109^^"
^DD(703.91,.05,21,1,0)="This field stores the Historical TIU note title used for the conversion"
^DD(703.91,.05,21,2,0)="of the Medicine reports to CP reports. (Reference IA #3377 and 3568)"
^DD(703.91,.05,"DT")="3040915"
^DD(703.91,"B","CONVERT IF NO STATUS",.04)=""
^DD(703.91,"B","CONVERT Y/N",.03)=""
^DD(703.91,"B","CP DEFINITION",.02)=""
^DD(703.91,"B","MEDICINE FILE PARAMETERS",.01)=""
^DD(703.91,"B","USE TIU NOTE TITLE",.05)=""
^DD(703.91,"GL",0,1,.01)=""
^DD(703.91,"GL",0,2,.02)=""
^DD(703.91,"GL",0,3,.03)=""
^DD(703.91,"GL",0,4,.04)=""
^DD(703.91,"GL",0,5,.05)=""
^DD(703.91,"IX",.01)=""
^DD(703.92,0)="CONVERSION LOG SUB-FIELD^^.1^6"
^DD(703.92,0,"DT")="3030923"
^DD(703.92,0,"IX","AS",703.92,.02)=""
^DD(703.92,0,"IX","B",703.92,.01)=""
^DD(703.92,0,"NM","CONVERSION LOG")=""
^DD(703.92,0,"UP")="703.9"
^DD(703.92,.01,0)="CONVERSION ID^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(703.92,.01,1,0)="^.1"
^DD(703.92,.01,1,1,0)="703.92^B"
^DD(703.92,.01,1,1,1)="S ^MDD(703.9,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(703.92,.01,1,1,2)="K ^MDD(703.9,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(703.92,.01,3)="Answer must be 1-30 characters in length."
^DD(703.92,.01,21,0)="^.001^20^20^3040923^^^^"
^DD(703.92,.01,21,1,0)="This field is the Conversion ID.  It is a variable pointer to the"
^DD(703.92,.01,21,2,0)="Medicine files.  This field will store an entry for each Medicine file"
^DD(703.92,.01,21,3,0)="record converted. This field is a variable pointer to the following files:"
^DD(703.92,.01,21,4,0)=""
^DD(703.92,.01,21,5,0)="691   ECHO                                   "
^DD(703.92,.01,21,6,0)="691.1 CARDIAC CATHETERIZATION                 "
^DD(703.92,.01,21,7,0)="691.5 ELECTROCARDIOGRAM (EKG)                 "
^DD(703.92,.01,21,8,0)="691.6 HOLTER                               "
^DD(703.92,.01,21,9,0)="691.7 EXERCISE TOLERANCE TEST                 "
^DD(703.92,.01,21,10,0)="691.8 ELECTROPHYSIOLOGY (EP)                  "
^DD(703.92,.01,21,11,0)="694   HEMATOLOGY                            "
^DD(703.92,.01,21,12,0)="694.5 CARDIAC SURGERY RISK ASSESSMENT         "
^DD(703.92,.01,21,13,0)="698   GENERATOR IMPLANT                       "
^DD(703.92,.01,21,14,0)="698.1 V LEAD IMPLANT                          "
^DD(703.92,.01,21,15,0)="698.2 A LEAD IMPLANT                      "
^DD(703.92,.01,21,16,0)="698.3 PACEMAKER SURVEILLANCE                  "
^DD(703.92,.01,21,17,0)="699   ENDOSCOPY/CONSULT                       "
^DD(703.92,.01,21,18,0)="699.5 GENERALIZED PROCEDURE/CONSULT           "
^DD(703.92,.01,21,19,0)="700   PULMONARY FUNCTION TESTS                "
^DD(703.92,.01,21,20,0)="701   RHEUMATOLOGY           "
^DD(703.92,.01,"DT")="3021107"
^DD(703.92,.02,0)="STATUS^S^CR:Converted Real Mode;CT:Converted Test Mode;E:Error;S:Skipped;R:Ready to Convert;^0;2^Q"
^DD(703.92,.02,1,0)="^.1"
^DD(703.92,.02,1,1,0)="703.92^AS"
^DD(703.92,.02,1,1,1)="S ^MDD(703.9,DA(1),2,""AS"",$E(X,1,30),DA)="""""
^DD(703.92,.02,1,1,2)="K ^MDD(703.9,DA(1),2,""AS"",$E(X,1,30),DA)"
^DD(703.92,.02,1,1,"DT")="3021107"
^DD(703.92,.02,21,0)="^.001^7^7^3040923^^^^"
^DD(703.92,.02,21,1,0)="This is the status field of the conversion log.  There are five"
^DD(703.92,.02,21,2,0)="set of codes:            "
^DD(703.92,.02,21,3,0)="CR   WILL STAND FOR: Converted Real Mode      "
^DD(703.92,.02,21,4,0)="CT   WILL STAND FOR: Converted Test Mode    "
^DD(703.92,.02,21,5,0)=" E   WILL STAND FOR: Error               "
^DD(703.92,.02,21,6,0)=" S   WILL STAND FOR: Skipped              "
^DD(703.92,.02,21,7,0)=" R   WILL STAND FOR: Ready to Convert"
^DD(703.92,.02,"DT")="3030923"
^DD(703.92,.03,0)="NEW TIU DOCUMENT IEN^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(703.92,.03,3)="Answer must be 1-15 characters in length."
^DD(703.92,.03,21,0)="^.001^3^3^3051005^^^"
^DD(703.92,.03,21,1,0)="This field contains a pointer to the TIU Document file (#8925)."
^DD(703.92,.03,21,2,0)="(Reference IA #4796).  This will hold the internal entry number"
^DD(703.92,.03,21,3,0)="of the document of the converted medicine report."
^DD(703.92,.03,"DT")="3021107"
^DD(703.92,.04,0)="LINES^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(703.92,.04,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(703.92,.04,21,0)="^^2^2^3040630^"
^DD(703.92,.04,21,1,0)="This field contains the line count of the Medicine report"
^DD(703.92,.04,21,2,0)="that was converted."
^DD(703.92,.04,"DT")="3021107"
^DD(703.92,.05,0)="BYTES^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(703.92,.05,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(703.92,.05,21,0)="^^2^2^3040630^"
^DD(703.92,.05,21,1,0)="This field contains the number of bytes of the Medicine report"
^DD(703.92,.05,21,2,0)="that was converted."
^DD(703.92,.05,"DT")="3021107"
^DD(703.92,.1,0)="ERROR MSG^F^^.1;1^K:$L(X)>250!($L(X)<1) X"
^DD(703.92,.1,3)="Answer must be 1-250 characters in length."
^DD(703.92,.1,21,0)="^^2^2^3040630^"
^DD(703.92,.1,21,1,0)="This field stores the error message during the conversion of"
^DD(703.92,.1,21,2,0)="the Medicine report."
^DD(703.92,.1,"DT")="3021107"
^DD(703.92,"B","BYTES",.05)=""
^DD(703.92,"B","CONVERSION ID",.01)=""
^DD(703.92,"B","ERROR MSG",.1)=""
^DD(703.92,"B","LINES",.04)=""
^DD(703.92,"B","NEW TIU DOCUMENT IEN",.03)=""
^DD(703.92,"B","STATUS",.02)=""
^DD(703.92,"GL",0,1,.01)=""
^DD(703.92,"GL",0,2,.02)=""
^DD(703.92,"GL",0,3,.03)=""
^DD(703.92,"GL",0,4,.04)=""
^DD(703.92,"GL",0,5,.05)=""
^DD(703.92,"GL",.1,1,.1)=""
^DD(703.92,"IX",.01)=""
^DD(703.92,"IX",.02)=""
^DD(704.201,0)="FIELD^^.3^4"
^DD(704.201,0,"DDA")="N"
^DD(704.201,0,"DT")="3060706"
^DD(704.201,0,"IX","B",704.201,.01)=""
^DD(704.201,0,"NM","HEMODIALYSIS ACCESS POINTS")=""
^DD(704.201,0,"VR")="1.0"
^DD(704.201,0,"VRPK")="MD"
^DD(704.201,.01,0)="PATIENT_ID^RP2^DPT(^0;1^Q"
^DD(704.201,.01,1,0)="^.1"
^DD(704.201,.01,1,1,0)="704.201^B"
^DD(704.201,.01,1,1,1)="S ^MDK(704.201,""B"",$E(X,1,30),DA)="""""
^DD(704.201,.01,1,1,2)="K ^MDK(704.201,""B"",$E(X,1,30),DA)"
^DD(704.201,.01,3)=""
^DD(704.201,.01,21,0)="^.001^2^2^3060725^^^^"
^DD(704.201,.01,21,1,0)="This field displays the name of the patient for whom the access"
^DD(704.201,.01,21,2,0)="point of the dialysis treatment history is recorded."
^DD(704.201,.01,"DT")="3060706"
^DD(704.201,.1,0)="ACCESS POINTS^704.2011^^.1;0"
^DD(704.201,.1,21,0)="^^2^2^3060627^"
^DD(704.201,.1,21,1,0)="This field holds the XML in UUEncoded format for this patient's access "
^DD(704.201,.1,21,2,0)="points for dialysis treatments."
^DD(704.201,.2,0)="ACCESS HISTORY^704.2012^^.2;0"
^DD(704.201,.2,21,0)="^^2^2^3060627^"
^DD(704.201,.2,21,1,0)="This field holds the XML in UUEncoded format for this patient's access"
^DD(704.201,.2,21,2,0)="history for dialysis treatments."
^DD(704.201,.3,0)="INFECTION HISTORY^704.2013^^.3;0"
^DD(704.201,.3,21,0)="^^2^2^3060627^"
^DD(704.201,.3,21,1,0)="This field holds the XML in UUEncoded format for this patient's infection"
^DD(704.201,.3,21,2,0)="history for dialysis treatments."
^DD(704.201,"B","ACCESS HISTORY",.2)=""
^DD(704.201,"B","ACCESS POINTS",.1)=""
^DD(704.201,"B","INFECTION HISTORY",.3)=""
^DD(704.201,"B","PATIENT_ID",.01)=""
^DD(704.201,"GL",0,1,.01)=""
^DD(704.201,"GL",.1,0,.1)=""
^DD(704.201,"GL",.2,0,.2)=""
^DD(704.201,"GL",.3,0,.3)=""
^DD(704.201,"IX",.01)=""
^DD(704.201,"RQ",.01)=""
^DD(704.201,"SB",704.2011,.1)=""
^DD(704.201,"SB",704.2012,.2)=""
^DD(704.201,"SB",704.2013,.3)=""
^DD(704.2011,0)="ACCESS POINTS SUB-FIELD^^.01^1"
^DD(704.2011,0,"DT")="3041018"
^DD(704.2011,0,"NM","ACCESS POINTS")=""
^DD(704.2011,0,"UP")="704.201"
^DD(704.2011,.01,0)="ACCESS POINTS^WL^^0;1^Q"
^DD(704.2011,.01,"DT")="3041018"
^DD(704.2011,"B","ACCESS POINTS",.01)=""
^DD(704.2011,"GL",0,1,.01)=""
^DD(704.2012,0)="ACCESS HISTORY SUB-FIELD^^.01^1"
^DD(704.2012,0,"DT")="3041018"
^DD(704.2012,0,"NM","ACCESS HISTORY")=""
^DD(704.2012,0,"UP")="704.201"
^DD(704.2012,.01,0)="ACCESS HISTORY^WL^^0;1^Q"
^DD(704.2012,.01,"DT")="3041018"
^DD(704.2012,"B","ACCESS HISTORY",.01)=""
^DD(704.2012,"GL",0,1,.01)=""
^DD(704.2013,0)="INFECTION HISTORY SUB-FIELD^^.01^1"
^DD(704.2013,0,"DT")="3041018"
^DD(704.2013,0,"NM","INFECTION HISTORY")=""
^DD(704.2013,0,"UP")="704.201"
^DD(704.2013,.01,0)="INFECTION HISTORY^WL^^0;1^Q"
^DD(704.2013,.01,"DT")="3041018"
^DD(704.2013,"B","INFECTION HISTORY",.01)=""
^DD(704.2013,"GL",0,1,.01)=""
^DD(704.202,0)="FIELD^^.07^14"
^DD(704.202,0,"DDA")="N"
^DD(704.202,0,"DT")="3071127"
^DD(704.202,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(704.202,0,"IX","AS",704.202,.09)=""
^DD(704.202,0,"IX","B",704.202,.01)=""
^DD(704.202,0,"IX","C",704.202,.02)=""
^DD(704.202,0,"NM","HEMODIALYSIS STUDY")=""
^DD(704.202,0,"VR")="1.0"
^DD(704.202,0,"VRPK")="MD"
^DD(704.202,.01,0)="ID^RP702^MDD(702,^0;1^Q"
^DD(704.202,.01,1,0)="^.1"
^DD(704.202,.01,1,1,0)="704.202^B"
^DD(704.202,.01,1,1,1)="S ^MDK(704.202,""B"",$E(X,1,30),DA)="""""
^DD(704.202,.01,1,1,2)="K ^MDK(704.202,""B"",$E(X,1,30),DA)"
^DD(704.202,.01,1,2,0)="^^TRIGGER^704.202^.02"
^DD(704.202,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MDK(704.202,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=+$P($G(^MDD(702,DA,0)),U) X ^DD(704.202,.01,1,2,1.4)"
^DD(704.202,.01,1,2,1.4)="S DIH=$G(^MDK(704.202,DIV(0),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=704.202,DIG=.02 D ^DICR"
^DD(704.202,.01,1,2,2)="Q"
^DD(704.202,.01,1,2,"%D",0)="^.101^3^3^3060809^^"
^DD(704.202,.01,1,2,"%D",1,0)="The Patient field will be triggered whenever the ID field"
^DD(704.202,.01,1,2,"%D",2,0)="is entered or updated.  The trigger value will be the "
^DD(704.202,.01,1,2,"%D",3,0)="patient number.  The Patient field cannot be edited."
^DD(704.202,.01,1,2,"CREATE VALUE")="S X=+$P($G(^MDD(702,DA,0)),U)"
^DD(704.202,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(704.202,.01,1,2,"DT")="3060808"
^DD(704.202,.01,1,2,"FIELD")="#.02"
^DD(704.202,.01,3)=""
^DD(704.202,.01,21,0)="^.001^2^2^3060725^^^^"
^DD(704.202,.01,21,1,0)="This field displays the name of the patient whose CP study corresponds"
^DD(704.202,.01,21,2,0)="to this dialysis treatment."
^DD(704.202,.01,"DT")="3060808"
^DD(704.202,.02,0)="PATIENT^P2'I^DPT(^0;2^Q"
^DD(704.202,.02,1,0)="^.1"
^DD(704.202,.02,1,1,0)="704.202^C"
^DD(704.202,.02,1,1,1)="S ^MDK(704.202,""C"",$E(X,1,30),DA)="""""
^DD(704.202,.02,1,1,2)="K ^MDK(704.202,""C"",$E(X,1,30),DA)"
^DD(704.202,.02,1,1,"DT")="3041025"
^DD(704.202,.02,5,1,0)="704.202^.01^2"
^DD(704.202,.02,9)="^"
^DD(704.202,.02,21,0)="^.001^2^2^3060725^^^^"
^DD(704.202,.02,21,1,0)="This field displays the name of the patient whose dialysis treatment"
^DD(704.202,.02,21,2,0)="is stored."
^DD(704.202,.02,"DT")="3060809"
^DD(704.202,.03,0)="STUDY_DATETIME^CD^^ ; ^S X=$P($G(^MDD(702,D0,0)),U,2)"
^DD(704.202,.03,9)="^"
^DD(704.202,.03,9.01)=""
^DD(704.202,.03,9.1)="S X=$P($G(^MDD(702,D0,0)),U,2)"
^DD(704.202,.03,21,0)="^^2^2^3050726^"
^DD(704.202,.03,21,1,0)="Computed field used to allow automated XML creation with appropriate "
^DD(704.202,.03,21,2,0)="tag/value pairs."
^DD(704.202,.03,"DT")="3050726"
^DD(704.202,.04,0)="STUDY_LOCATION^CJ8^^ ; ^S X=$P($G(^MDS(702.01,+$P($G(^MDD(702,D0,0)),U,4),0)),U,5)"
^DD(704.202,.04,9)="^"
^DD(704.202,.04,9.01)=""
^DD(704.202,.04,9.1)="S X=$P($G(^MDS(702.01,+$P($G(^MDD(702,D0,0)),U,4),0)),U,5)"
^DD(704.202,.04,21,0)="^.001^2^2^3060808^^"
^DD(704.202,.04,21,1,0)="Computed field used to allow automated XML creation with appropriate"
^DD(704.202,.04,21,2,0)="tag/value pairs."
^DD(704.202,.04,"DT")="3060808"
^DD(704.202,.05,0)="USER^P200'^VA(200,^0;3^Q"
^DD(704.202,.05,21,0)="^^1^1^3071127^"
^DD(704.202,.05,21,1,0)="This field contains the user who accessed the Hemodialysis study."
^DD(704.202,.05,"DT")="3071127"
^DD(704.202,.06,0)="DATE/TIME ACCESSED^D^^0;4^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(704.202,.06,21,0)="^^2^2^3071127^"
^DD(704.202,.06,21,1,0)="This field displays the date/time when the hemodialysis study was"
^DD(704.202,.06,21,2,0)="accessed by the user."
^DD(704.202,.06,"DT")="3071127"
^DD(704.202,.07,0)="WORKSTATION^F^^0;5^K:$L(X)>45!($L(X)<3) X"
^DD(704.202,.07,3)="Answer must be 3-45 characters in length."
^DD(704.202,.07,21,0)="^^2^2^3071127^"
^DD(704.202,.07,21,1,0)="This field contains the workstation that was used by the user"
^DD(704.202,.07,21,2,0)="to access the hemodialysis study."
^DD(704.202,.07,"DT")="3071127"
^DD(704.202,.09,0)="STATUS^S^0:CLOSED;1:ACTIVE;2:DISABLED;^0;9^Q"
^DD(704.202,.09,1,0)="^.1"
^DD(704.202,.09,1,1,0)="704.202^AS"
^DD(704.202,.09,1,1,1)="S ^MDK(704.202,""AS"",$E(X,1,30),DA)="""""
^DD(704.202,.09,1,1,2)="K ^MDK(704.202,""AS"",$E(X,1,30),DA)"
^DD(704.202,.09,1,1,"DT")="3041025"
^DD(704.202,.09,21,0)="^^1^1^3060809^"
^DD(704.202,.09,21,1,0)="This field contains the status of this procedure."
^DD(704.202,.09,"DT")="3071126"
^DD(704.202,.1,0)="STUDY DATA^704.2021^^.1;0"
^DD(704.202,.1,21,0)="^^1^1^3060809^"
^DD(704.202,.1,21,1,0)="This field contains the study data XML document in UUEncoded format."
^DD(704.202,.2,0)="SUMMARY^704.2022^^.2;0"
^DD(704.202,.2,21,0)="^^1^1^3060809^"
^DD(704.202,.2,21,1,0)="This field contains the summary data XML document in UUEncoded format."
^DD(704.202,.3,0)="FLOWSHEET^704.2023^^.3;0"
^DD(704.202,.3,21,0)="^^1^1^3060809^"
^DD(704.202,.3,21,1,0)="This field contains the flowsheet data XML document in UUEncoded format."
^DD(704.202,.4,0)="MED LOG^704.2024^^.4;0"
^DD(704.202,.4,21,0)="^^1^1^3060809^"
^DD(704.202,.4,21,1,0)="This field contains the med log data XML document in UUEncoded format."
^DD(704.202,.5,0)="NOTE LIST^704.2025^^.5;0"
^DD(704.202,.5,21,0)="^.001^2^2^3060628^^"
^DD(704.202,.5,21,1,0)="This field contains the Note List data XML document in"
^DD(704.202,.5,21,2,0)="UUEncoded format."
^DD(704.202,.6,0)="EVENT LOG^704.2026^^.6;0"
^DD(704.202,.6,21,0)="^^2^2^3060628^"
^DD(704.202,.6,21,1,0)="This field contains the Event Log data XML document in"
^DD(704.202,.6,21,2,0)="UUEncoded format."
^DD(704.202,"B","DATE/TIME ACCESSED",.06)=""
^DD(704.202,"B","EVENT LOG",.6)=""
^DD(704.202,"B","FLOWSHEET",.3)=""
^DD(704.202,"B","ID",.01)=""
^DD(704.202,"B","MED LOG",.4)=""
^DD(704.202,"B","NOTE LIST",.5)=""
^DD(704.202,"B","PATIENT",.02)=""
^DD(704.202,"B","STATUS",.09)=""
^DD(704.202,"B","STUDY DATA",.1)=""
^DD(704.202,"B","STUDY_DATETIME",.03)=""
^DD(704.202,"B","STUDY_LOCATION",.04)=""
^DD(704.202,"B","SUMMARY",.2)=""
^DD(704.202,"B","USER",.05)=""
^DD(704.202,"B","WORKSTATION",.07)=""
^DD(704.202,"GL",0,1,.01)=""
^DD(704.202,"GL",0,2,.02)=""
^DD(704.202,"GL",0,3,.05)=""
^DD(704.202,"GL",0,4,.06)=""
^DD(704.202,"GL",0,5,.07)=""
^DD(704.202,"GL",0,9,.09)=""
^DD(704.202,"GL",.1,0,.1)=""
^DD(704.202,"GL",.2,0,.2)=""
^DD(704.202,"GL",.3,0,.3)=""
^DD(704.202,"GL",.4,0,.4)=""
^DD(704.202,"GL",.5,0,.5)=""
^DD(704.202,"GL",.6,0,.6)=""
^DD(704.202,"IX",.01)=""
^DD(704.202,"IX",.02)=""
^DD(704.202,"IX",.09)=""
^DD(704.202,"RQ",.01)=""
^DD(704.202,"SB",704.2021,.1)=""
^DD(704.202,"SB",704.2022,.2)=""
^DD(704.202,"SB",704.2023,.3)=""
^DD(704.202,"SB",704.2024,.4)=""
^DD(704.202,"SB",704.2025,.5)=""
^DD(704.202,"SB",704.2026,.6)=""
^DD(704.2021,0)="STUDY DATA SUB-FIELD^^.01^1"
^DD(704.2021,0,"DT")="3041025"
^DD(704.2021,0,"NM","STUDY DATA")=""
^DD(704.2021,0,"UP")="704.202"
^DD(704.2021,.01,0)="STUDY DATA^WL^^0;1^Q"
^DD(704.2021,.01,"DT")="3041025"
^DD(704.2021,"B","STUDY DATA",.01)=""
^DD(704.2021,"GL",0,1,.01)=""
^DD(704.2022,0)="SUMMARY SUB-FIELD^^.01^1"
^DD(704.2022,0,"DT")="3041025"
^DD(704.2022,0,"NM","SUMMARY")=""
^DD(704.2022,0,"UP")="704.202"
^DD(704.2022,.01,0)="SUMMARY^WL^^0;1^Q"
^DD(704.2022,.01,"DT")="3041025"
^DD(704.2022,"B","SUMMARY",.01)=""
^DD(704.2022,"GL",0,1,.01)=""
^DD(704.2023,0)="FLOWSHEET SUB-FIELD^^.01^1"
^DD(704.2023,0,"DT")="3041025"
^DD(704.2023,0,"NM","FLOWSHEET")=""
^DD(704.2023,0,"UP")="704.202"
^DD(704.2023,.01,0)="FLOWSHEET^WL^^0;1^Q"
^DD(704.2023,.01,"DT")="3041025"
^DD(704.2023,"B","FLOWSHEET",.01)=""
^DD(704.2023,"GL",0,1,.01)=""
^DD(704.2024,0)="MED LOG SUB-FIELD^^.01^1"
^DD(704.2024,0,"DT")="3041108"
^DD(704.2024,0,"NM","MED LOG")=""
^DD(704.2024,0,"UP")="704.202"
^DD(704.2024,.01,0)="MED LOG^WL^^0;1^Q"
^DD(704.2024,.01,"DT")="3041108"
^DD(704.2024,"B","MED LOG",.01)=""
^DD(704.2024,"GL",0,1,.01)=""
^DD(704.2025,0)="NOTE LIST SUB-FIELD^^.01^1"
^DD(704.2025,0,"DT")="3051012"
^DD(704.2025,0,"NM","NOTE LIST")=""
^DD(704.2025,0,"UP")="704.202"
^DD(704.2025,.01,0)="NOTE LIST^WL^^0;1^Q"
^DD(704.2025,.01,"DT")="3051012"
^DD(704.2025,"B","NOTE LIST",.01)=""
^DD(704.2025,"GL",0,1,.01)=""
^DD(704.2026,0)="EVENT LOG SUB-FIELD^^.01^1"
^DD(704.2026,0,"DT")="3051012"
^DD(704.2026,0,"NM","EVENT LOG")=""
^DD(704.2026,0,"UP")="704.202"
^DD(704.2026,.01,0)="EVENT LOG^WL^^0;1^Q"
^DD(704.2026,.01,"DT")="3051012"
^DD(704.2026,"B","EVENT LOG",.01)=""
^DD(704.2026,"GL",0,1,.01)=""
^DD(704.209,0)="FIELD^^.05^6"
^DD(704.209,0,"DDA")="N"
^DD(704.209,0,"DT")="3060811"
^DD(704.209,0,"IX","B",704.209,.01)=""
^DD(704.209,0,"NM","HEMODIALYSIS SETTINGS")=""
^DD(704.209,0,"VR")="1.0"
^DD(704.209,0,"VRPK")="MD"
^DD(704.209,.01,0)="SETTING NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(704.209,.01,1,0)="^.1"
^DD(704.209,.01,1,1,0)="704.209^B"
^DD(704.209,.01,1,1,1)="S ^MDK(704.209,""B"",$E(X,1,30),DA)="""""
^DD(704.209,.01,1,1,2)="K ^MDK(704.209,""B"",$E(X,1,30),DA)"
^DD(704.209,.01,3)="Answer must be 3-30 characters in length."
^DD(704.209,.01,21,0)="^.001^2^2^3060809^^"
^DD(704.209,.01,21,1,0)="This field contains the descriptive name of the data contained in"
^DD(704.209,.01,21,2,0)="this setting."
^DD(704.209,.01,"DT")="3060809"
^DD(704.209,.02,0)="OWNER^P200^VA(200,^0;2^Q"
^DD(704.209,.02,3)=""
^DD(704.209,.02,21,0)="^.001^2^2^3060807^^^^"
^DD(704.209,.02,21,1,0)="This field displays the owner name of the option setting in the"
^DD(704.209,.02,21,2,0)="Hemodialysis client application."
^DD(704.209,.02,"DT")="3060807"
^DD(704.209,.03,0)="USER^P200'^VA(200,^0;3^Q"
^DD(704.209,.03,21,0)="^^2^2^3060808^"
^DD(704.209,.03,21,1,0)="This field displays the user name that is locking the Hemodialysis"
^DD(704.209,.03,21,2,0)="setting option."
^DD(704.209,.03,"DT")="3060808"
^DD(704.209,.04,0)="DATE/TIME OF LOCK^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(704.209,.04,21,0)="^^2^2^3060808^"
^DD(704.209,.04,21,1,0)="This field will store the date and time of when the Hemodialysis setting "
^DD(704.209,.04,21,2,0)="option was locked for use."
^DD(704.209,.04,"DT")="3060808"
^DD(704.209,.05,0)="PROCESS ID^F^^0;5^K:$L(X)>40!($L(X)<1) X"
^DD(704.209,.05,3)="Answer must be 1-40 characters in length."
^DD(704.209,.05,21,0)="^.001^2^2^3060811^^^"
^DD(704.209,.05,21,1,0)="This field will store the JOB ID of the process that is locking the "
^DD(704.209,.05,21,2,0)="Hemodialysis setting option."
^DD(704.209,.05,"DT")="3060811"
^DD(704.209,.1,0)="XML DOCUMENT^704.2091^^.1;0"
^DD(704.209,.1,21,0)="^^1^1^3060809^"
^DD(704.209,.1,21,1,0)="This field contains the XML document for this setting in UUEncoded format."
^DD(704.209,"B","DATE/TIME OF LOCK",.04)=""
^DD(704.209,"B","OWNER",.02)=""
^DD(704.209,"B","PROCESS ID",.05)=""
^DD(704.209,"B","SETTING NAME",.01)=""
^DD(704.209,"B","USER",.03)=""
^DD(704.209,"B","XML DOCUMENT",.1)=""
^DD(704.209,"GL",0,1,.01)=""
^DD(704.209,"GL",0,2,.02)=""
^DD(704.209,"GL",0,3,.03)=""
^DD(704.209,"GL",0,4,.04)=""
^DD(704.209,"GL",0,5,.05)=""
^DD(704.209,"GL",.1,0,.1)=""
^DD(704.209,"IX",.01)=""
^DD(704.209,"RQ",.01)=""
^DD(704.209,"SB",704.2091,.1)=""
^DD(704.2091,0)="XML DOCUMENT SUB-FIELD^^.01^1"
^DD(704.2091,0,"DT")="3050128"
^DD(704.2091,0,"NM","XML DOCUMENT")=""
^DD(704.2091,0,"UP")="704.209"
^DD(704.2091,.01,0)="XML DOCUMENT^WL^^0;1^Q"
^DD(704.2091,.01,"DT")="3050128"
^DD(704.2091,"B","XML DOCUMENT",.01)=""
^DD(704.2091,"GL",0,1,.01)=""
^DD(705,0)="FIELD^^100^6"
^DD(705,0,"DDA")="N"
^DD(705,0,"DT")="2930325"
^DD(705,0,"IX","ABDC1",705,.01)=""
^DD(705,0,"IX","ABDC2",705,2)=""
^DD(705,0,"IX","ABDC3",705,3)=""
^DD(705,0,"IX","ABDC4",705,4)=""
^DD(705,0,"IX","B",705,.01)=""
^DD(705,0,"NM","EDR EVENT")=""
^DD(705,0,"VR")="1.5"
^DD(705,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(705,.01,1,0)="^.1"
^DD(705,.01,1,1,0)="705^B"
^DD(705,.01,1,1,1)="S ^EDR(705,""B"",$E(X,1,30),DA)="""""
^DD(705,.01,1,1,2)="K ^EDR(705,""B"",$E(X,1,30),DA)"
^DD(705,.01,1,1,"%D",0)="^^1^1^2930514^"
^DD(705,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(705,.01,1,2,0)="705^ABDC1^MUMPS"
^DD(705,.01,1,2,1)="S EDR=$G(^EDR(705,DA,0)) S:$P(EDR,""^"",2)&($P(EDR,""^"",3))&($P(EDR,""^"",4)) ^EDR(705,""ABDC"",X,$P(EDR,""^"",2),$P(EDR,""^"",3),$P(EDR,""^"",4),DA)="""" K EDR"
^DD(705,.01,1,2,2)="S EDR=$G(^EDR(705,DA,0)) K:$P(EDR,""^"",2)&($P(EDR,""^"",3))&($P(EDR,""^"",4)) ^EDR(705,""ABDC"",X,$P(EDR,""^"",2),$P(EDR,""^"",3),$P(EDR,""^"",4),DA) K EDR"
^DD(705,.01,1,2,"%D",0)="^^3^3^2930320^^^"
^DD(705,.01,1,2,"%D",1,0)="This cross reference is used to look up all events for a specific date"
^DD(705,.01,1,2,"%D",2,0)="and patient.  It sets the 'ABDC' cross reference in conjunction with"
^DD(705,.01,1,2,"%D",3,0)="similar cross references on fields 2, 3 and 4."
^DD(705,.01,1,2,"DT")="2930318"
^DD(705,.01,3)="The date of the event."
^DD(705,.01,21,0)="^^1^1^2930505^"
^DD(705,.01,21,1,0)="The date of the event."
^DD(705,.01,"DT")="2930318"
^DD(705,2,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(705,2,1,0)="^.1"
^DD(705,2,1,1,0)="705^ABDC2^MUMPS"
^DD(705,2,1,1,1)="S EDR=$G(^EDR(705,DA,0)) S:$P(EDR,""^"")&($P(EDR,""^"",3))&($P(EDR,""^"",4)) ^EDR(705,""ABDC"",$P(EDR,""^""),X,$P(EDR,""^"",3),$P(EDR,""^"",4),DA)="""" K EDR"
^DD(705,2,1,1,2)="S EDR=$G(^EDR(705,DA,0)) K:$P(EDR,""^"")&($P(EDR,""^"",3))&($P(EDR,""^"",4)) ^EDR(705,""ABDC"",$P(EDR,""^""),X,$P(EDR,""^"",3),$P(EDR,""^"",4),DA) K EDR"
^DD(705,2,1,1,"%D",0)="^^3^3^2930320^^"
^DD(705,2,1,1,"%D",1,0)="This cross reference is used to look up all events for a specific date"
^DD(705,2,1,1,"%D",2,0)="and patient.  It sets the 'ABDC' cross reference in conjunction with"
^DD(705,2,1,1,"%D",3,0)="similar cross references on fields .01, 3 and 4."
^DD(705,2,1,1,"DT")="2930318"
^DD(705,2,3)="The patient associated with the event."
^DD(705,2,21,0)="^^1^1^2930505^"
^DD(705,2,21,1,0)="The patient associated with the event."
^DD(705,2,"DT")="2930318"
^DD(705,3,0)="EVENT NUMBER^RNJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(705,3,1,0)="^.1"
^DD(705,3,1,1,0)="705^ABDC3^MUMPS"
^DD(705,3,1,1,1)="S EDR=$G(^EDR(705,DA,0)) S:$P(EDR,""^"")&($P(EDR,""^"",2))&($P(EDR,""^"",4)) ^EDR(705,""ABDC"",$P(EDR,""^""),$P(EDR,""^"",2),X,$P(EDR,""^"",4),DA)="""" K EDR"
^DD(705,3,1,1,2)="S EDR=$G(^EDR(705,DA,0)) K:$P(EDR,""^"")&($P(EDR,""^"",2))&($P(EDR,""^"",4)) ^EDR(705,""ABDC"",$P(EDR,""^""),$P(EDR,""^"",2),X,$P(EDR,""^"",4),DA) K EDR"
^DD(705,3,1,1,"%D",0)="^^3^3^2930514^"
^DD(705,3,1,1,"%D",1,0)="This cross reference is used to look up all events for a specific date"
^DD(705,3,1,1,"%D",2,0)="and patient.  It sets the 'ABDC' cross reference in conjunction with"
^DD(705,3,1,1,"%D",3,0)="similar cross references on fields .01, 2 and 4."
^DD(705,3,1,1,"DT")="2930318"
^DD(705,3,3)="The event number associated with the event.  Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(705,3,21,0)="^^1^1^2930505^^"
^DD(705,3,21,1,0)="The event number associated with the event."
^DD(705,3,"DT")="2930318"
^DD(705,4,0)="TRANSACTION TYPE NUMBER^RNJ2,0^^0;4^K:+X'=X!(X>13)!(X<1)!(X?.E1"".""1N.N) X"
^DD(705,4,1,0)="^.1"
^DD(705,4,1,1,0)="705^ABDC4^MUMPS"
^DD(705,4,1,1,1)="S EDR=$G(^EDR(705,DA,0)) S:$P(EDR,""^"")&($P(EDR,""^"",2))&($P(EDR,""^"",3)) ^EDR(705,""ABDC"",$P(EDR,""^""),$P(EDR,""^"",2),$P(EDR,""^"",3),X,DA)="""" K EDR"
^DD(705,4,1,1,2)="S EDR=$G(^EDR(705,DA,0)) K:$P(EDR,""^"")&($P(EDR,""^"",2))&($P(EDR,""^"",3)) ^EDR(705,""ABDC"",$P(EDR,""^""),$P(EDR,""^"",2),$P(EDR,""^"",3),X,DA) K EDR"
^DD(705,4,1,1,"%D",0)="^^3^3^2930320^^"
^DD(705,4,1,1,"%D",1,0)="This cross reference is used to look up all events for a specific date"
^DD(705,4,1,1,"%D",2,0)="and patient.  It sets the 'ABDC' cross reference in conjunction with"
^DD(705,4,1,1,"%D",3,0)="similar cross references on fields .01, 2 and 3."
^DD(705,4,1,1,"DT")="2930318"
^DD(705,4,3)="The transaction number associated with the event.  Type a Number between 1 and 13, 0 Decimal Digits"
^DD(705,4,21,0)="^^1^1^2930505^^^"
^DD(705,4,21,1,0)="The transaction number associated with the event."
^DD(705,4,"DT")="2930318"
^DD(705,5,0)="TRANSMISSION NUMBER^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(705,5,3)="A number indicating the HL7 transmission that contained this event.  Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(705,5,21,0)="^^1^1^2930505^^"
^DD(705,5,21,1,0)="A number indicating the HL7 transmission that contained this event."
^DD(705,5,"DT")="2930325"
^DD(705,100,0)="EVENT INFORMATION^RF^^100;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(705,100,3)="A string of information associated with the event.  Answer must be 1-245 characters in length."
^DD(705,100,21,0)="^^2^2^2930623^^"
^DD(705,100,21,1,0)="A string of information associated with the event.  This is the"
^DD(705,100,21,2,0)="information that will be processed and transmitted to the central system."
^DD(705,100,"DT")="2930318"
^DD(705,"B","DATE",.01)=""
^DD(705,"B","EVENT INFORMATION",100)=""
^DD(705,"B","EVENT NUMBER",3)=""
^DD(705,"B","PATIENT",2)=""
^DD(705,"B","TRANSACTION TYPE NUMBER",4)=""
^DD(705,"B","TRANSMISSION NUMBER",5)=""
^DD(705,"GL",0,1,.01)=""
^DD(705,"GL",0,2,2)=""
^DD(705,"GL",0,3,3)=""
^DD(705,"GL",0,4,4)=""
^DD(705,"GL",0,5,5)=""
^DD(705,"GL",100,"E1,245",100)=""
^DD(705,"IX",.01)=""
^DD(705,"IX",2)=""
^DD(705,"IX",3)=""
^DD(705,"IX",4)=""
^DD(705,"RQ",.01)=""
^DD(705,"RQ",2)=""
^DD(705,"RQ",3)=""
^DD(705,"RQ",4)=""
^DD(705,"RQ",100)=""
^DD(711,0)="FIELD^^10^11"
^DD(711,0,"DDA")="N"
^DD(711,0,"DT")="3010303"
^DD(711,0,"IX","A",711,1)=""
^DD(711,0,"IX","AB",711,.01)=""
^DD(711,0,"IX","B",711,.01)=""
^DD(711,0,"IX","C",711,.1)=""
^DD(711,0,"NM","1010EZ MAPPING")=""
^DD(711,0,"PT",712.01,.01)=""
^DD(711,0,"VR")="1.0"
^DD(711,0,"VRPK")="EAS"
^DD(711,.01,0)="ASSIGNED DATA NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(711,.01,1,0)="^.1"
^DD(711,.01,1,1,0)="711^B"
^DD(711,.01,1,1,1)="S ^EAS(711,""B"",$E(X,1,30),DA)="""""
^DD(711,.01,1,1,2)="K ^EAS(711,""B"",$E(X,1,30),DA)"
^DD(711,.01,1,2,0)="711^AB^MUMPS"
^DD(711,.01,1,2,1)="S ^EAS(711,""AB"",X,DA)="""""
^DD(711,.01,1,2,2)="K ^EAS(711,""AB"",X,DA)"
^DD(711,.01,1,2,3)="DO NOT DELETE"
^DD(711,.01,1,2,"DT")="3001012"
^DD(711,.01,3)="Answer must be 3-50 characters in length."
^DD(711,.01,21,0)="^^2^2^3010303^"
^DD(711,.01,21,1,0)="This unique descriptive name is used to group related 10-10EZ"
^DD(711,.01,21,2,0)="data elements."
^DD(711,.01,"DT")="3001009"
^DD(711,.1,0)="DATA KEY^F^^0;2^K:$L(X)>12!($L(X)<1) X"
^DD(711,.1,1,0)="^.1"
^DD(711,.1,1,1,0)="711^C"
^DD(711,.1,1,1,1)="S ^EAS(711,""C"",$E(X,1,30),DA)="""""
^DD(711,.1,1,1,2)="K ^EAS(711,""C"",$E(X,1,30),DA)"
^DD(711,.1,1,1,3)="DO NOT DELETE"
^DD(711,.1,1,1,"DT")="3001009"
^DD(711,.1,3)="Answer must be 1-12 characters in length."
^DD(711,.1,21,0)="^.001^6^6^3010307^^"
^DD(711,.1,21,1,0)="The Data Key is a unique identifier that associates this data element"
^DD(711,.1,21,2,0)="with a specific Section and Question in the On-Line 10-10EZ."
^DD(711,.1,21,3,0)="Format is:  Section_;_Question"
^DD(711,.1,21,4,0)="            where Section and Question refer to specific data locations"
^DD(711,.1,21,5,0)="            on the 10-10EZ; each Section;Question identifier has been"
^DD(711,.1,21,6,0)="            mapped to a particular VistA database field (in most cases)."
^DD(711,.1,"DT")="3001009"
^DD(711,1,0)="ACTIVE^RS^A:ACTIVE;I:INACTIVE;^0;3^Q"
^DD(711,1,1,0)="^.1"
^DD(711,1,1,1,0)="711^A"
^DD(711,1,1,1,1)="S ^EAS(711,""A"",$E(X,1,30),DA)="""""
^DD(711,1,1,1,2)="K ^EAS(711,""A"",$E(X,1,30),DA)"
^DD(711,1,1,1,3)="DO NOT DELETE"
^DD(711,1,1,1,"DT")="3001017"
^DD(711,1,21,0)="^^3^3^3010303^"
^DD(711,1,21,1,0)="This provides a means to inactivate the mapping between a 10-10EZ"
^DD(711,1,21,2,0)="data element and the VistA database without destroying the mapping"
^DD(711,1,21,3,0)="for Applications already processed and filed to VistA."
^DD(711,1,"DT")="3001017"
^DD(711,1.1,0)="INACTIVATE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(711,1.1,21,0)="^^3^3^3010303^"
^DD(711,1.1,21,1,0)="If the mapping between a 10-10EZ data element and the VistA database"
^DD(711,1.1,21,2,0)="is 'inactivated', this field holds the date on which the inactivation"
^DD(711,1.1,21,3,0)="occurred."
^DD(711,1.1,"DT")="3001008"
^DD(711,1.2,0)="VERSION #^RF^^0;5^K:$L(X)>8!($L(X)<1) X"
^DD(711,1.2,3)="Answer must be 1-8 characters in length."
^DD(711,1.2,21,0)="^^2^2^3010303^"
^DD(711,1.2,21,1,0)="The version number of the On-Line 10-10EZ software which utilizes"
^DD(711,1.2,21,2,0)="this 1010EZ-to-VistA mapping."
^DD(711,1.2,"DT")="3001211"
^DD(711,2,0)="MAP-TO FILE^RF^^1;1^K:$L(X)>8!($L(X)<1) X"
^DD(711,2,3)="Answer must be 1-8 characters in length."
^DD(711,2,21,0)="^.001^2^2^3010307^^"
^DD(711,2,21,1,0)="This is the file number of the VistA database file which holds the"
^DD(711,2,21,2,0)="field to which this 10-10EZ data element has been mapped."
^DD(711,2,"DT")="3001006"
^DD(711,3,0)="MAP-TO SUB-FILE^RF^^1;2^K:$L(X)>8!($L(X)<1) X"
^DD(711,3,3)="Answer must be 1-8 characters in length."
^DD(711,3,21,0)="^.001^2^2^3010307^^"
^DD(711,3,21,1,0)="This is the sub-file number of the VistA database sub-file which holds"
^DD(711,3,21,2,0)="the field to which this 10-10EZ data element has been mapped."
^DD(711,3,"DT")="3001006"
^DD(711,4,0)="MAP-TO FIELD^RF^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(711,4,3)="Answer must be 1-8 characters in length."
^DD(711,4,21,0)="^^2^2^3010303^"
^DD(711,4,21,1,0)="This is the field number within the VistA database file or sub-file"
^DD(711,4,21,2,0)="to which this 10-10EZ data element has been mapped."
^DD(711,4,"DT")="3010303"
^DD(711,5,0)="DISPLAY NAME^F^^2;1^K:$L(X)>30!($L(X)<3) X"
^DD(711,5,3)="Answer must be 3-30 characters in length."
^DD(711,5,21,0)="^^2^2^3010303^"
^DD(711,5,21,1,0)="The shortened name for this 10-10EZ data element employed within the"
^DD(711,5,21,2,0)="1010EZ module List Manager interface."
^DD(711,5,"DT")="3001024"
^DD(711,6,0)="DIR(0)^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(711,6,3)="This is Standard MUMPS code."
^DD(711,6,9)="@"
^DD(711,6,21,0)="^^4^4^3010303^"
^DD(711,6,21,1,0)="M code to set DIR(0) for a call to the FileMan Reader can be placed"
^DD(711,6,21,2,0)="here.  If present, this code will be used when the data element is"
^DD(711,6,21,3,0)="being updated within the ""Update Field (UF)"" action of the "
^DD(711,6,21,4,0)="EAS EZ 1010EZ PROCESSING option."
^DD(711,6,"DT")="3001102"
^DD(711,10,0)="TRANSFORM^K^^T;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(711,10,3)="This is Standard MUMPS code."
^DD(711,10,9)="@"
^DD(711,10,21,0)="^^4^4^3010303^"
^DD(711,10,21,1,0)="Certain 10-10EZ data elements cannot be used directly to overwrite"
^DD(711,10,21,2,0)="VistA database fields; instead they require some transformation."
^DD(711,10,21,3,0)="This field contains the M code needed to perform the needed data"
^DD(711,10,21,4,0)="transformation."
^DD(711,10,"DT")="3001006"
^DD(711,"B","ACTIVE",1)=""
^DD(711,"B","ASSIGNED DATA NAME",.01)=""
^DD(711,"B","DATA KEY",.1)=""
^DD(711,"B","DIR(0)",6)=""
^DD(711,"B","DISPLAY NAME",5)=""
^DD(711,"B","INACTIVATE DATE",1.1)=""
^DD(711,"B","MAP-TO FIELD",4)=""
^DD(711,"B","MAP-TO FILE",2)=""
^DD(711,"B","MAP-TO SUB-FILE",3)=""
^DD(711,"B","TRANSFORM",10)=""
^DD(711,"B","VERSION #",1.2)=""
^DD(711,"GL",0,1,.01)=""
^DD(711,"GL",0,2,.1)=""
^DD(711,"GL",0,3,1)=""
^DD(711,"GL",0,4,1.1)=""
^DD(711,"GL",0,5,1.2)=""
^DD(711,"GL",1,1,2)=""
^DD(711,"GL",1,2,3)=""
^DD(711,"GL",1,3,4)=""
^DD(711,"GL",2,1,5)=""
^DD(711,"GL",3,"E1,245",6)=""
^DD(711,"GL","T","E1,245",10)=""
^DD(711,"IX",.01)=""
^DD(711,"IX",.1)=""
^DD(711,"IX",1)=""
^DD(711,"RQ",.01)=""
^DD(711,"RQ",1)=""
^DD(711,"RQ",1.2)=""
^DD(711,"RQ",2)=""
^DD(711,"RQ",3)=""
^DD(711,"RQ",4)=""
^DD(712,0)="FIELD^^13^34"
^DD(712,0,"DDA")="N"
^DD(712,0,"DT")="3010307"
^DD(712,0,"IX","AC",712,3.4)=""
^DD(712,0,"IX","B",712,.01)=""
^DD(712,0,"IX","C",712,1)=""
^DD(712,0,"IX","CLS",712,9.1)=""
^DD(712,0,"IX","D",712,2)=""
^DD(712,0,"IX","FIL",712,7.1)=""
^DD(712,0,"IX","NEW",712,3)=""
^DD(712,0,"IX","PRT",712,6.1)=""
^DD(712,0,"IX","REV",712,5.1)=""
^DD(712,0,"IX","SIG",712,4)=""
^DD(712,0,"IX","W",712,.1)=""
^DD(712,0,"NM","1010EZ HOLDING")=""
^DD(712,0,"PT",2,1010.156)=""
^DD(712,0,"VR")="1.0"
^DD(712,0,"VRPK")="EAS"
^DD(712,.01,0)="APPLICATION #^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<101)!(X?.E1"".""1N.N) X"
^DD(712,.01,1,0)="^.1"
^DD(712,.01,1,1,0)="712^B"
^DD(712,.01,1,1,1)="S ^EAS(712,""B"",$E(X,1,30),DA)="""""
^DD(712,.01,1,1,2)="K ^EAS(712,""B"",$E(X,1,30),DA)"
^DD(712,.01,3)="Type a Number between 101 and 9999999, 0 Decimal Digits"
^DD(712,.01,21,0)="^^2^2^3010302^"
^DD(712,.01,21,1,0)="A unique sequential identifier assigned by the 1010EZ module to"
^DD(712,.01,21,2,0)="each Application."
^DD(712,.01,"DT")="3001006"
^DD(712,.1,0)="WEB SUBMISSION ID^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(712,.1,1,0)="^.1"
^DD(712,.1,1,1,0)="712^W"
^DD(712,.1,1,1,1)="S ^EAS(712,""W"",$E(X,1,30),DA)="""""
^DD(712,.1,1,1,2)="K ^EAS(712,""W"",$E(X,1,30),DA)"
^DD(712,.1,1,1,3)="DO NOT DELETE"
^DD(712,.1,1,1,"%D",0)="^^1^1^3010222^"
^DD(712,.1,1,1,"%D",1,0)="Cross-reference on Web Submission ID."
^DD(712,.1,1,1,"DT")="3010222"
^DD(712,.1,3)="Answer must be 1-20 characters in length."
^DD(712,.1,21,0)="^^2^2^3010302^"
^DD(712,.1,21,1,0)="The unique identifier assigned by the On-Line 10-10EZ software"
^DD(712,.1,21,2,0)="to each submitted Application."
^DD(712,.1,"DT")="3010222"
^DD(712,.2,0)="RELATED MESSAGE #^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(712,.2,3)="Answer must be 1-20 characters in length."
^DD(712,.2,21,0)="^^3^3^3010302^"
^DD(712,.2,21,1,0)="This is the internal entry number of the VistA MailMan message that"
^DD(712,.2,21,2,0)="contains the 10-10EZ Application.  The message was processed by"
^DD(712,.2,21,3,0)="the EAS EZ SERVER into this file."
^DD(712,.2,"DT")="3001008"
^DD(712,1,0)="APPLICANT NAME^F^^0;4^K:$L(X)>45!($L(X)<3) X"
^DD(712,1,1,0)="^.1"
^DD(712,1,1,1,0)="712^C"
^DD(712,1,1,1,1)="S ^EAS(712,""C"",$E(X,1,30),DA)="""""
^DD(712,1,1,1,2)="K ^EAS(712,""C"",$E(X,1,30),DA)"
^DD(712,1,1,1,3)="DO NOT DELETE"
^DD(712,1,1,1,"%D",0)="^^1^1^3010226^"
^DD(712,1,1,1,"%D",1,0)="Used by 'quick lookup' option to retrieve 1010-EZ by Applicant Name."
^DD(712,1,1,1,"DT")="3010226"
^DD(712,1,3)="Answer must be 3-45 characters in length."
^DD(712,1,21,0)="^^1^1^3010302^"
^DD(712,1,21,1,0)="The Applicant's name as entered in the On-Line 10-10EZ."
^DD(712,1,"DT")="3010226"
^DD(712,2,0)="APPLICANT SSN&DOB^F^^0;5^K:$L(X)>24!($L(X)<1) X"
^DD(712,2,1,0)="^.1"
^DD(712,2,1,1,0)="712^D"
^DD(712,2,1,1,1)="S ^EAS(712,""D"",$E(X,1,30),DA)="""""
^DD(712,2,1,1,2)="K ^EAS(712,""D"",$E(X,1,30),DA)"
^DD(712,2,1,1,3)="DO NOT DELETE"
^DD(712,2,1,1,"%D",0)="^^1^1^3010226^"
^DD(712,2,1,1,"%D",1,0)="Used by 'quick lookup' option to retrieve 1010-EZ by Applicant SSN."
^DD(712,2,1,1,"DT")="3010226"
^DD(712,2,3)="Answer must be 1-24 characters in length."
^DD(712,2,21,0)="^^4^4^3010302^"
^DD(712,2,21,1,0)="This free text field contains the Applicant's social security number"
^DD(712,2,21,2,0)="and date of birth as entered in the On-Line 10-10EZ."
^DD(712,2,21,3,0)=" "
^DD(712,2,21,4,0)="Format is: nnn-nn-nnnn_&_mm/dd/yyyy"
^DD(712,2,"DT")="3010226"
^DD(712,3,0)="ENTRY DATE^RD^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,3,1,0)="^.1"
^DD(712,3,1,1,0)="712^NEW^MUMPS"
^DD(712,3,1,1,1)="S ^EAS(712,""NEW"",$E(X,1,30),DA)="""""
^DD(712,3,1,1,2)="K ^EAS(712,""NEW"",$E(X,1,30),DA) D APPINDEX^EASEZU2(DA)"
^DD(712,3,1,1,3)="DO NOT DELETE"
^DD(712,3,1,1,"%D",0)="^.101^2^2^3040514^^"
^DD(712,3,1,1,"%D",1,0)="This ""NEW"" index is used by the 1010EZ processor to obtain the list"
^DD(712,3,1,1,"%D",2,0)="of New Applications."
^DD(712,3,1,1,"DT")="3010228"
^DD(712,3,21,0)="^^2^2^3010302^"
^DD(712,3,21,1,0)="This is the date that the incoming 10-10EZ Application was received"
^DD(712,3,21,2,0)="and entered into this holding file record."
^DD(712,3,"DT")="3010228"
^DD(712,3.1,0)="ENTERED BY^RP200'^VA(200,^0;7^Q"
^DD(712,3.1,21,0)="^.001^6^6^3010303^^^"
^DD(712,3.1,21,1,0)="This field holds the internal entry number of the person in the "
^DD(712,3.1,21,2,0)="NEW PERSON file (#200) responsible for entering the 10-10EZ"
^DD(712,3.1,21,3,0)="Application into this holding file."
^DD(712,3.1,21,4,0)=" "
^DD(712,3.1,21,5,0)="By default, this field will contain the IEN for the VistA"
^DD(712,3.1,21,6,0)="POSTMASTER (i.e., .5)."
^DD(712,3.1,"DT")="3001008"
^DD(712,3.2,0)="SOURCE^RS^W:WEB;V:VISTA;^0;8^Q"
^DD(712,3.2,21,0)="^^3^3^3010302^"
^DD(712,3.2,21,1,0)="The data in this field indicates the source of the 10-10EZ"
^DD(712,3.2,21,2,0)="Application.  By default, all Applications have a source of"
^DD(712,3.2,21,3,0)="""Web""."
^DD(712,3.2,"DT")="3001008"
^DD(712,3.3,0)="VETERAN TYPE^S^1:SC 50-100%;2:SC <50%;3:SC 0%;4:POW;5:PURPLE HEART;6:MIL. RETIREE;7:NSC;^0;9^Q"
^DD(712,3.3,21,0)="^^10^10^3010302^"
^DD(712,3.3,21,1,0)="This field contains the Veteran Type indicator as supplied by"
^DD(712,3.3,21,2,0)="the Applicant to the On-Line 10-10EZ.  The available indicators are:"
^DD(712,3.3,21,3,0)=" "
^DD(712,3.3,21,4,0)="SC 50-100%"
^DD(712,3.3,21,5,0)="SC <50%"
^DD(712,3.3,21,6,0)="SC 0%"
^DD(712,3.3,21,7,0)="POW"
^DD(712,3.3,21,8,0)="PURPLE HEART"
^DD(712,3.3,21,9,0)="MIL. RETIREE"
^DD(712,3.3,21,10,0)="NSC"
^DD(712,3.3,"DT")="3001013"
^DD(712,3.4,0)="LINK TO FILE #2^P2'^DPT(^0;10^Q"
^DD(712,3.4,1,0)="^.1"
^DD(712,3.4,1,1,0)="712^AC"
^DD(712,3.4,1,1,1)="S ^EAS(712,""AC"",$E(X,1,30),DA)="""""
^DD(712,3.4,1,1,2)="K ^EAS(712,""AC"",$E(X,1,30),DA)"
^DD(712,3.4,1,1,3)="DO NOT DELETE"
^DD(712,3.4,1,1,"DT")="3010222"
^DD(712,3.4,21,0)="^^6^6^3010302^"
^DD(712,3.4,21,1,0)="This field contains the internal entry number of the record in the"
^DD(712,3.4,21,2,0)="PATIENT file (#2), which has been linked with the Applicant identified"
^DD(712,3.4,21,3,0)="in this 10-10EZ."
^DD(712,3.4,21,4,0)=" "
^DD(712,3.4,21,5,0)="The linkage is established by the user through the ""Link to Patient File"
^DD(712,3.4,21,6,0)="(LZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,3.4,"DT")="3010222"
^DD(712,3.5,0)="NEW PATIENT^S^1:NEW PATIENT;^0;11^Q"
^DD(712,3.5,21,0)="^^3^3^3010302^"
^DD(712,3.5,21,1,0)="If the user created a new record in the PATIENT file (#2) when "
^DD(712,3.5,21,2,0)="""Link to Patient File (LZ)"" action was performed, then this field"
^DD(712,3.5,21,3,0)="will contain a ""1"".  Otherwise, it is null."
^DD(712,3.5,"DT")="3001016"
^DD(712,3.6,0)="VERSION #^RF^^0;12^K:$L(X)>8!($L(X)<1) X"
^DD(712,3.6,3)="Answer must be 1-8 characters in length."
^DD(712,3.6,21,0)="^.001^2^2^3010303^^"
^DD(712,3.6,21,1,0)="The version number of the On-Line 10-10EZ software which transmitted"
^DD(712,3.6,21,2,0)="the 10-10EZ to VistA."
^DD(712,3.6,"DT")="3001211"
^DD(712,3.7,0)="EXPECT COPY FROM VET^S^1:YES;0:NO;^0;13^Q"
^DD(712,3.7,21,0)="^^10^10^3010302^"
^DD(712,3.7,21,1,0)="When completing the On-Line 10-10EZ, the Applicant must indicate"
^DD(712,3.7,21,2,0)="whether or not he will print the 10-10EZ from the web application"
^DD(712,3.7,21,3,0)="in order to sign and send to the VHA site."
^DD(712,3.7,21,4,0)=" "
^DD(712,3.7,21,5,0)="If this field holds a ""YES"", then the site should expect a signed"
^DD(712,3.7,21,6,0)="copy of the 10-10EZ via surface mail from the Applicant."
^DD(712,3.7,21,7,0)=" "
^DD(712,3.7,21,8,0)="If this fields holds a ""NO"", then site personnel should begin"
^DD(712,3.7,21,9,0)="processing of the 10-10EZ, generate a print-out and send it to"
^DD(712,3.7,21,10,0)="the Applicant for signature."
^DD(712,3.7,"DT")="3001101"
^DD(712,3.8,0)="FINANCIAL DISCLOSURE^S^1:YES;0:NO;^0;14^Q"
^DD(712,3.8,21,0)="^^6^6^3010302^"
^DD(712,3.8,21,1,0)="Applicant's with certain Veteran Type indicators such as ""NSC"", must"
^DD(712,3.8,21,2,0)="indicate during the On-Line 10-10EZ process whether or not they intend"
^DD(712,3.8,21,3,0)="to disclose financial information.  "
^DD(712,3.8,21,4,0)=" "
^DD(712,3.8,21,5,0)="The ""YES"" or ""NO"" in this field indicates whether the Applicant has"
^DD(712,3.8,21,6,0)="agreed to provide financial information."
^DD(712,3.8,"DT")="3001026"
^DD(712,4,0)="DATE SIGNED BY APPLICANT^D^^1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,4,1,0)="^.1"
^DD(712,4,1,1,0)="712^SIG^MUMPS"
^DD(712,4,1,1,1)="S ^EAS(712,""SIG"",$E(X,1,30),DA)="""""
^DD(712,4,1,1,2)="K ^EAS(712,""SIG"",$E(X,1,30),DA) D APPINDEX^EASEZU2(DA)"
^DD(712,4,1,1,3)="DO NOT DELETE"
^DD(712,4,1,1,"%D",0)="^.101^2^2^3040514^^"
^DD(712,4,1,1,"%D",1,0)="This ""SIG"" index is used by the 1010EZ processor to obtain the list"
^DD(712,4,1,1,"%D",2,0)="of Signed Applications."
^DD(712,4,1,1,"DT")="3010228"
^DD(712,4,21,0)="^.001^5^5^3010307^^"
^DD(712,4,21,1,0)="The date in this field is the date the user verified receipt of"
^DD(712,4,21,2,0)="a signed 10-10EZ from the Applicant."
^DD(712,4,21,3,0)=" "
^DD(712,4,21,4,0)="Data is entered into this field when the user takes the ""Verify"
^DD(712,4,21,5,0)="Signature (VZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,4,"DT")="3010228"
^DD(712,4.1,0)="VERIFY DATE^D^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,4.1,21,0)="^.001^5^5^3010307^^"
^DD(712,4.1,21,1,0)="The date in this field is the date the user verified receipt of"
^DD(712,4.1,21,2,0)="a signed 10-10EZ from the Applicant.  "
^DD(712,4.1,21,3,0)="  "
^DD(712,4.1,21,4,0)="Data is entered into this field when the user takes the ""Verify"
^DD(712,4.1,21,5,0)="Signature (VZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,4.1,"DT")="3001006"
^DD(712,4.2,0)="VERIFIED BY^P200'^VA(200,^1;3^Q"
^DD(712,4.2,21,0)="^.001^4^4^3010303^^"
^DD(712,4.2,21,1,0)="This field holds the internal entry number of the person in the "
^DD(712,4.2,21,2,0)="NEW PERSON file (#200) who verified the Applicant's signature on "
^DD(712,4.2,21,3,0)="the printed 10-10EZ form.  This is the user that executed the"
^DD(712,4.2,21,4,0)="""Verify Signature (VZ)"" action."
^DD(712,4.2,"DT")="3001006"
^DD(712,4.3,0)="APPLICANT E-MAIL^F^^1;4^K:$L(X)>45!($L(X)<3) X"
^DD(712,4.3,3)="Answer must be 3-45 characters in length."
^DD(712,4.3,21,0)="^^2^2^3010303^"
^DD(712,4.3,21,1,0)="This is the internet e-mail address supplied by the Applicant in"
^DD(712,4.3,21,2,0)="the On-Line 10-10EZ."
^DD(712,4.3,"DT")="3001017"
^DD(712,4.4,0)="APPOINTMENT REQUESTED^S^1:YES;0:NO;^1;5^Q"
^DD(712,4.4,21,0)="^^2^2^3010303^"
^DD(712,4.4,21,1,0)="This field indicates whether or not the Applicant wishes to "
^DD(712,4.4,21,2,0)="request an appointment at the medical center."
^DD(712,4.4,"DT")="3001114"
^DD(712,4.5,0)="APPLYING TO^F^^1;6^K:$L(X)>6!($L(X)<3) X"
^DD(712,4.5,3)="Answer must be 3-6 characters in length."
^DD(712,4.5,21,0)="^^4^4^3010303^"
^DD(712,4.5,21,1,0)="The Station Number for the facility to which the Applicant has"
^DD(712,4.5,21,2,0)="directed the Application."
^DD(712,4.5,21,3,0)="  "
^DD(712,4.5,21,4,0)="This would indicate the Preferred Facility for Enrollment."
^DD(712,4.5,"DT")="3001115"
^DD(712,5.1,0)="REVIEW DATE^D^^2;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,5.1,1,0)="^.1"
^DD(712,5.1,1,1,0)="712^REV^MUMPS"
^DD(712,5.1,1,1,1)="S ^EAS(712,""REV"",$E(X,1,30),DA)="""""
^DD(712,5.1,1,1,2)="K ^EAS(712,""REV"",$E(X,1,30),DA) D APPINDEX^EASEZU2(DA)"
^DD(712,5.1,1,1,3)="DO NOT DELETE"
^DD(712,5.1,1,1,"%D",0)="^.101^2^2^3040514^^"
^DD(712,5.1,1,1,"%D",1,0)="This ""REV"" index is used by the 1010EZ processor to obtain the list"
^DD(712,5.1,1,1,"%D",2,0)="of In Review Applications."
^DD(712,5.1,1,1,"DT")="3010228"
^DD(712,5.1,21,0)="^.001^5^5^3010307^^"
^DD(712,5.1,21,1,0)="The date in this field is the date the user linked the Applicant to"
^DD(712,5.1,21,2,0)="the site's Patient database.  "
^DD(712,5.1,21,3,0)="  "
^DD(712,5.1,21,4,0)="Data is entered into this field when the user takes the ""Link to"
^DD(712,5.1,21,5,0)="Patient File (LZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,5.1,"DT")="3010228"
^DD(712,5.2,0)="REVIEWED BY^P200'^VA(200,^2;2^Q"
^DD(712,5.2,21,0)="^^4^4^3010303^"
^DD(712,5.2,21,1,0)="This field holds the internal entry number of the person in the "
^DD(712,5.2,21,2,0)="NEW PERSON file (#200) who linked the Applicant with the site's "
^DD(712,5.2,21,3,0)="Patient database.  This is the user that executed the ""Link to"
^DD(712,5.2,21,4,0)="Patient File (LZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,5.2,"DT")="3001006"
^DD(712,6.1,0)="PRINT DATE^D^^2;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,6.1,1,0)="^.1"
^DD(712,6.1,1,1,0)="712^PRT^MUMPS"
^DD(712,6.1,1,1,1)="S ^EAS(712,""PRT"",$E(X,1,30),DA)="""""
^DD(712,6.1,1,1,2)="K ^EAS(712,""PRT"",$E(X,1,30),DA) D APPINDEX^EASEZU2(DA)"
^DD(712,6.1,1,1,3)="DO NOT DELETE"
^DD(712,6.1,1,1,"%D",0)="^.101^2^2^3040514^^^"
^DD(712,6.1,1,1,"%D",1,0)="This ""PRT"" index is used by the 1010EZ processor to obtain the list"
^DD(712,6.1,1,1,"%D",2,0)="of Printed, Pending Signature Applications."
^DD(712,6.1,1,1,"DT")="3010228"
^DD(712,6.1,21,0)="^^7^7^3010303^"
^DD(712,6.1,21,1,0)="The date in this field is the date that the user first printed this"
^DD(712,6.1,21,2,0)="10-10EZ Application.  Data is entered into this field when the user "
^DD(712,6.1,21,3,0)="takes the ""Print 1010EZ (PZ)"" action within the EAS EZ 1010EZ PROCESSING "
^DD(712,6.1,21,4,0)="option."
^DD(712,6.1,21,5,0)="   "
^DD(712,6.1,21,6,0)="The Application may be printed any number of times, but only the"
^DD(712,6.1,21,7,0)="first print data is recorded."
^DD(712,6.1,"DT")="3010228"
^DD(712,6.2,0)="PRINTED BY^P200'^VA(200,^2;4^Q"
^DD(712,6.2,21,0)="^^4^4^3010303^"
^DD(712,6.2,21,1,0)="This field holds the internal entry number of the person in the "
^DD(712,6.2,21,2,0)="NEW PERSON file (#200) who first printed this 10-10EZ Application. "
^DD(712,6.2,21,3,0)="This is the user who first executed the ""Print 1001EZ (PZ)"" action within"
^DD(712,6.2,21,4,0)="the EAS EZ 1010EZ PROCESSING option."
^DD(712,6.2,"DT")="3001006"
^DD(712,7.1,0)="FILING DATE^D^^2;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,7.1,1,0)="^.1"
^DD(712,7.1,1,1,0)="712^FIL^MUMPS"
^DD(712,7.1,1,1,1)="S ^EAS(712,""FIL"",$E(X,1,30),DA)="""""
^DD(712,7.1,1,1,2)="K ^EAS(712,""FIL"",$E(X,1,30),DA) D APPINDEX^EASEZU2(DA)"
^DD(712,7.1,1,1,3)="DO NOT DELETE"
^DD(712,7.1,1,1,"%D",0)="^.101^3^3^3040514^^^"
^DD(712,7.1,1,1,"%D",1,0)="This ""FIL"" index is used by the 1010EZ processor to obtain the list"
^DD(712,7.1,1,1,"%D",2,0)="of Filed Applications.  Filed Applications are removed from "
^DD(712,7.1,1,1,"%D",3,0)="the index 30 days post-filing."
^DD(712,7.1,1,1,"DT")="3040514"
^DD(712,7.1,21,0)="^.001^5^5^3040514^^^"
^DD(712,7.1,21,1,0)="The date in this field is the date the user filed the Application data"
^DD(712,7.1,21,2,0)="to the site's Patient database."
^DD(712,7.1,21,3,0)="  "
^DD(712,7.1,21,4,0)="Data is entered into this field when the user takes the ""File 1010EZ"
^DD(712,7.1,21,5,0)="(FZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,7.1,"DT")="3040514"
^DD(712,7.2,0)="FILED BY^P200'^VA(200,^2;6^Q"
^DD(712,7.2,21,0)="^^4^4^3010303^"
^DD(712,7.2,21,1,0)="This field holds the internal entry number of the person in the "
^DD(712,7.2,21,2,0)="NEW PERSON file (#200) who filed the Application data into the site's "
^DD(712,7.2,21,3,0)="Patient database.  This is the user that executed the ""File 1010EZ"
^DD(712,7.2,21,4,0)="(FZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,7.2,"DT")="3001006"
^DD(712,8.1,0)="UPDATE DATE^D^^2;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,8.1,21,0)="^.001^4^4^3010303^^"
^DD(712,8.1,21,1,0)="The date in this field is the date that the user first updated (i.e.,"
^DD(712,8.1,21,2,0)="directly edited) any 10-10EZ Application data.  Data is entered"
^DD(712,8.1,21,3,0)="into this field the first time the user takes the ""Update Field (UF)"" "
^DD(712,8.1,21,4,0)="action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,8.1,"DT")="3001006"
^DD(712,8.2,0)="UPDATED BY^P200'^VA(200,^2;8^Q"
^DD(712,8.2,21,0)="^.001^4^4^3010303^^"
^DD(712,8.2,21,1,0)="This field holds the internal entry number of the person in the "
^DD(712,8.2,21,2,0)="NEW PERSON file (#200) who first updated any data in this 10-10EZ "
^DD(712,8.2,21,3,0)="Application. This is the user who first executed the ""Update Field (UF)"" "
^DD(712,8.2,21,4,0)="action within the EAS EZ 1010EZ PROCESSING option for this Application."
^DD(712,8.2,"DT")="3001006"
^DD(712,9.1,0)="CLOSE DATE^D^^2;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712,9.1,1,0)="^.1"
^DD(712,9.1,1,1,0)="712^CLS^MUMPS"
^DD(712,9.1,1,1,1)="S ^EAS(712,""CLS"",$E(X,1,30),DA)="""""
^DD(712,9.1,1,1,2)="K ^EAS(712,""CLS"",$E(X,1,30),DA) D APPINDEX^EASEZU2(DA)"
^DD(712,9.1,1,1,3)="DO NOT DELETE"
^DD(712,9.1,1,1,"%D",0)="^.101^3^3^3040514^^"
^DD(712,9.1,1,1,"%D",1,0)="This ""CLS"" index is used by the 1010EZ processor to obtain the list"
^DD(712,9.1,1,1,"%D",2,0)="of Inactivated Applications.  Inactivated Applications are removed from"
^DD(712,9.1,1,1,"%D",3,0)="the index 30 days post-inactivation."
^DD(712,9.1,1,1,"DT")="3010228"
^DD(712,9.1,21,0)="^^5^5^3010303^"
^DD(712,9.1,21,1,0)="The date in this field is the date the user inactivated this 10-10EZ"
^DD(712,9.1,21,2,0)="Application."
^DD(712,9.1,21,3,0)="  "
^DD(712,9.1,21,4,0)="Data is entered into this field when the user takes the ""Inactivate 1010EZ"
^DD(712,9.1,21,5,0)="(IZ)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712,9.1,"DT")="3010228"
^DD(712,9.2,0)="CLOSED BY^P200'^VA(200,^2;10^Q"
^DD(712,9.2,21,0)="^^4^4^3010303^"
^DD(712,9.2,21,1,0)="This field holds the internal entry number of the person in the"
^DD(712,9.2,21,2,0)="NEW PERSON file (#200) who inactivated this 10-10EZ Application."
^DD(712,9.2,21,3,0)="This is the user that executed the ""Inactivate 1010EZ (IZ)"" action"
^DD(712,9.2,21,4,0)="within the EAS EZ 1010EZ PROCESSING option for this Application."
^DD(712,9.2,"DT")="3001006"
^DD(712,9.3,0)="FILING TASK^F^^2;11^K:$L(X)>10!($L(X)<1) X"
^DD(712,9.3,3)="Answer must be 1-10 characters in length."
^DD(712,9.3,21,0)="^^4^4^3010205^"
^DD(712,9.3,21,1,0)="Contains the identity of the background task which will file the data"
^DD(712,9.3,21,2,0)="from the 10-10EZ Holding file to other VistA files."
^DD(712,9.3,21,3,0)=" "
^DD(712,9.3,21,4,0)="This is set from the ZTSK variable returned by the call to ^%ZTLOAD."
^DD(712,9.3,23,0)="^^2^2^3010205^"
^DD(712,9.3,23,1,0)="If this field is not null, then the filing task is still in"
^DD(712,9.3,23,2,0)="process."
^DD(712,9.3,"DT")="3010205"
^DD(712,10,0)="DATA ELEMENTS^712.01PA^^10;0"
^DD(712,10,21,0)="^.001^2^2^3010307^^"
^DD(712,10,21,1,0)="This multiple field holds a subrecord for each data element provided"
^DD(712,10,21,2,0)="by the Applicant in the On-Line 10-10EZ."
^DD(712,12,0)="SERVICES REQUESTED^F^^3;1^K:$L(X)>240!($L(X)<1) X"
^DD(712,12,3)="Answer must be 1-240 characters in length."
^DD(712,12,21,0)="^^2^2^3010303^"
^DD(712,12,21,1,0)="This free text field holds whatever the Applicant entered in the"
^DD(712,12,21,2,0)="On-Line 10-10EZ to indicate the VA services in which he is interested."
^DD(712,12,"DT")="3001114"
^DD(712,13,0)="COMMENTS^712.013^^4;0"
^DD(712,13,21,0)="^^2^2^3010303^"
^DD(712,13,21,1,0)="This word-processing field holds whatever the Applicant entered in the"
^DD(712,13,21,2,0)="On-Line 10-10EZ in the Comments section of the Application."
^DD(712,"B","APPLICANT E-MAIL",4.3)=""
^DD(712,"B","APPLICANT NAME",1)=""
^DD(712,"B","APPLICANT SSN&DOB",2)=""
^DD(712,"B","APPLICATION #",.01)=""
^DD(712,"B","APPLYING TO",4.5)=""
^DD(712,"B","APPOINTMENT REQUESTED",4.4)=""
^DD(712,"B","CLOSE DATE",9.1)=""
^DD(712,"B","CLOSED BY",9.2)=""
^DD(712,"B","COMMENTS",13)=""
^DD(712,"B","DATA ELEMENTS",10)=""
^DD(712,"B","DATE SIGNED BY APPLICANT",4)=""
^DD(712,"B","ENTERED BY",3.1)=""
^DD(712,"B","ENTRY DATE",3)=""
^DD(712,"B","EXPECT COPY FROM VET",3.7)=""
^DD(712,"B","FILED BY",7.2)=""
^DD(712,"B","FILING DATE",7.1)=""
^DD(712,"B","FILING TASK",9.3)=""
^DD(712,"B","FINANCIAL DISCLOSURE",3.8)=""
^DD(712,"B","LINK TO FILE #2",3.4)=""
^DD(712,"B","NEW PATIENT",3.5)=""
^DD(712,"B","PRINT DATE",6.1)=""
^DD(712,"B","PRINTED BY",6.2)=""
^DD(712,"B","RELATED MESSAGE #",.2)=""
^DD(712,"B","REVIEW DATE",5.1)=""
^DD(712,"B","REVIEWED BY",5.2)=""
^DD(712,"B","SERVICES REQUESTED",12)=""
^DD(712,"B","SOURCE",3.2)=""
^DD(712,"B","UPDATE DATE",8.1)=""
^DD(712,"B","UPDATED BY",8.2)=""
^DD(712,"B","VERIFIED BY",4.2)=""
^DD(712,"B","VERIFY DATE",4.1)=""
^DD(712,"B","VERSION #",3.6)=""
^DD(712,"B","VETERAN TYPE",3.3)=""
^DD(712,"B","WEB SUBMISSION ID",.1)=""
^DD(712,"GL",0,1,.01)=""
^DD(712,"GL",0,2,.1)=""
^DD(712,"GL",0,3,.2)=""
^DD(712,"GL",0,4,1)=""
^DD(712,"GL",0,5,2)=""
^DD(712,"GL",0,6,3)=""
^DD(712,"GL",0,7,3.1)=""
^DD(712,"GL",0,8,3.2)=""
^DD(712,"GL",0,9,3.3)=""
^DD(712,"GL",0,10,3.4)=""
^DD(712,"GL",0,11,3.5)=""
^DD(712,"GL",0,12,3.6)=""
^DD(712,"GL",0,13,3.7)=""
^DD(712,"GL",0,14,3.8)=""
^DD(712,"GL",1,1,4)=""
^DD(712,"GL",1,2,4.1)=""
^DD(712,"GL",1,3,4.2)=""
^DD(712,"GL",1,4,4.3)=""
^DD(712,"GL",1,5,4.4)=""
^DD(712,"GL",1,6,4.5)=""
^DD(712,"GL",2,1,5.1)=""
^DD(712,"GL",2,2,5.2)=""
^DD(712,"GL",2,3,6.1)=""
^DD(712,"GL",2,4,6.2)=""
^DD(712,"GL",2,5,7.1)=""
^DD(712,"GL",2,6,7.2)=""
^DD(712,"GL",2,7,8.1)=""
^DD(712,"GL",2,8,8.2)=""
^DD(712,"GL",2,9,9.1)=""
^DD(712,"GL",2,10,9.2)=""
^DD(712,"GL",2,11,9.3)=""
^DD(712,"GL",3,1,12)=""
^DD(712,"GL",4,0,13)=""
^DD(712,"GL",10,0,10)=""
^DD(712,"IX",.01)=""
^DD(712,"IX",.1)=""
^DD(712,"IX",1)=""
^DD(712,"IX",2)=""
^DD(712,"IX",3)=""
^DD(712,"IX",3.4)=""
^DD(712,"IX",4)=""
^DD(712,"IX",5.1)=""
^DD(712,"IX",6.1)=""
^DD(712,"IX",7.1)=""
^DD(712,"IX",9.1)=""
^DD(712,"RQ",.01)=""
^DD(712,"RQ",3)=""
^DD(712,"RQ",3.1)=""
^DD(712,"RQ",3.2)=""
^DD(712,"RQ",3.6)=""
^DD(712,"SB",712.01,10)=""
^DD(712,"SB",712.013,13)=""
^DD(712.01,0)="DATA ELEMENTS SUB-FIELD^^2.1^9"
^DD(712.01,0,"DT")="3010307"
^DD(712.01,0,"IX","B",712.01,.01)=""
^DD(712.01,0,"NM","DATA ELEMENTS")=""
^DD(712.01,0,"UP")="712"
^DD(712.01,.01,0)="DATA ELEMENT ID^MRP711'^EAS(711,^0;1^Q"
^DD(712.01,.01,1,0)="^.1"
^DD(712.01,.01,1,1,0)="712.01^B"
^DD(712.01,.01,1,1,1)="S ^EAS(712,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(712.01,.01,1,1,2)="K ^EAS(712,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(712.01,.01,3)=""
^DD(712.01,.01,21,0)="^.001^2^2^3010307^^"
^DD(712.01,.01,21,1,0)="This field holds an internal entry number to the 1010EZ MAPPING file"
^DD(712.01,.01,21,2,0)="(#711)."
^DD(712.01,.01,"DT")="3010307"
^DD(712.01,.1,0)="MULTIPLE NUMBER^RNJ2,0^^0;2^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(712.01,.1,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(712.01,.1,21,0)="^^7^7^3010303^"
^DD(712.01,.1,21,1,0)="For all data elements except Additional Dependent data, the Multiple"
^DD(712.01,.1,21,2,0)="Number is set the default of 1."
^DD(712.01,.1,21,3,0)=" "
^DD(712.01,.1,21,4,0)="For Additional Dependents, each data element associated with a given"
^DD(712.01,.1,21,5,0)="dependent are grouped by the same, unique Multiple Number.  The first"
^DD(712.01,.1,21,6,0)="Additional Dependent has a Multiple Number of 1, the second Additional"
^DD(712.01,.1,21,7,0)="Dependent has a Multiple Number of 2, and so forth."
^DD(712.01,.1,"DT")="3001010"
^DD(712.01,1,0)="INCOMING DATA^F^^1;1^K:$L(X)>120!($L(X)<1) X"
^DD(712.01,1,3)="Answer must be 1-120 characters in length."
^DD(712.01,1,21,0)="^^2^2^3010303^"
^DD(712.01,1,21,1,0)="This field holds the original, incoming data entered by the Applicant"
^DD(712.01,1,21,2,0)="in the On-Line 10-10EZ Application."
^DD(712.01,1,"DT")="3001120"
^DD(712.01,1.1,0)="ACCEPT^S^1:ACCEPT;2:ALWAYS ACCEPT;-1:NEVER ACCEPT;^0;3^Q"
^DD(712.01,1.1,21,0)="^^3^3^3010303^"
^DD(712.01,1.1,21,1,0)="This field is set to ""1"", if the user has 'accepted' the data."
^DD(712.01,1.1,21,2,0)="The data is accepted if the user executes the ""Accept Field"
^DD(712.01,1.1,21,3,0)="(AF)"" action within the EAS EZ 1010EZ PROCESSING option."
^DD(712.01,1.1,"DT")="3010205"
^DD(712.01,1.2,0)="UPDATE DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(712.01,1.2,21,0)="^^2^2^3010303^"
^DD(712.01,1.2,21,1,0)="The date in this field is the date that the user updated (i.e.,"
^DD(712.01,1.2,21,2,0)="directly edited) this specific 10-10EZ Application data element. "
^DD(712.01,1.2,"DT")="3001031"
^DD(712.01,1.3,0)="UPDATE BY^P200'^VA(200,^0;5^Q"
^DD(712.01,1.3,21,0)="^^5^5^3010303^"
^DD(712.01,1.3,21,1,0)="This field holds the internal entry number of the person in the "
^DD(712.01,1.3,21,2,0)="NEW PERSON file (#200) who updated this specific 10-10EZ Application"
^DD(712.01,1.3,21,3,0)="data element. This is the user who executed the ""Update Field (UF)"" "
^DD(712.01,1.3,21,4,0)="action within the EAS EZ 1010EZ PROCESSING option for this data"
^DD(712.01,1.3,21,5,0)="element."
^DD(712.01,1.3,"DT")="3001031"
^DD(712.01,1.5,0)="UPDATE DATA^F^^1;2^K:$L(X)>120!($L(X)<1) X"
^DD(712.01,1.5,3)="Answer must be 1-120 characters in length."
^DD(712.01,1.5,21,0)="^^2^2^3010303^"
^DD(712.01,1.5,21,1,0)="This field holds the result of the direct edit to the data element"
^DD(712.01,1.5,21,2,0)="by the user when ""Update Field (UF)"" action was executed."
^DD(712.01,1.5,"DT")="3001206"
^DD(712.01,2,0)="REPLACED VISTA DATA^F^^2;1^K:$L(X)>180!($L(X)<1) X"
^DD(712.01,2,3)="Answer must be 1-180 characters in length."
^DD(712.01,2,21,0)="^^7^7^3010303^"
^DD(712.01,2,21,1,0)="If the Applicant was matched to an existing VistA Patient"
^DD(712.01,2,21,2,0)="database record, and if that Patient had existing data for the"
^DD(712.01,2,21,3,0)="database field that correlates with this 10-10EZ data element,"
^DD(712.01,2,21,4,0)="the VistA data will be recorded here before it is overwritten."
^DD(712.01,2,21,5,0)="  "
^DD(712.01,2,21,6,0)="It is therefore possible to restore any overwritten VistA"
^DD(712.01,2,21,7,0)="field in the Patient record that was replaced by 10-10EZ data."
^DD(712.01,2,"DT")="3001031"
^DD(712.01,2.1,0)="IEN LINK^F^^2;2^K:$L(X)>24!($L(X)<1) X"
^DD(712.01,2.1,3)="Answer must be 1-24 characters in length."
^DD(712.01,2.1,21,0)="^^2^2^3010303^"
^DD(712.01,2.1,21,1,0)="This is the internal entry number of the VistA database record that"
^DD(712.01,2.1,21,2,0)="has been matched to the data contained in this 10-10EZ data element."
^DD(712.01,2.1,"DT")="3001016"
^DD(712.01,"B","ACCEPT",1.1)=""
^DD(712.01,"B","DATA ELEMENT ID",.01)=""
^DD(712.01,"B","IEN LINK",2.1)=""
^DD(712.01,"B","INCOMING DATA",1)=""
^DD(712.01,"B","MULTIPLE NUMBER",.1)=""
^DD(712.01,"B","REPLACED VISTA DATA",2)=""
^DD(712.01,"B","UPDATE BY",1.3)=""
^DD(712.01,"B","UPDATE DATA",1.5)=""
^DD(712.01,"B","UPDATE DATE",1.2)=""
^DD(712.01,"GL",0,1,.01)=""
^DD(712.01,"GL",0,2,.1)=""
^DD(712.01,"GL",0,3,1.1)=""
^DD(712.01,"GL",0,4,1.2)=""
^DD(712.01,"GL",0,5,1.3)=""
^DD(712.01,"GL",1,1,1)=""
^DD(712.01,"GL",1,2,1.5)=""
^DD(712.01,"GL",2,1,2)=""
^DD(712.01,"GL",2,2,2.1)=""
^DD(712.01,"IX",.01)=""
^DD(712.01,"RQ",.01)=""
^DD(712.01,"RQ",.1)=""
^DD(712.013,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(712.013,0,"DT")="3001114"
^DD(712.013,0,"NM","COMMENTS")=""
^DD(712.013,0,"UP")="712"
^DD(712.013,.01,0)="COMMENTS^W^^0;1^Q"
^DD(712.013,.01,"DT")="3001114"
^DD(712.013,"B","COMMENTS",.01)=""
^DD(712.013,"GL",0,1,.01)=""
^DD(712.5,0)="FIELD^^.18^13"
^DD(712.5,0,"DDA")="N"
^DD(712.5,0,"DT")="3020730"
^DD(712.5,0,"IX","B",712.5,.01)=""
^DD(712.5,0,"NM","GMT THRESHOLDS")=""
^DD(712.5,0,"VR")="1.0"
^DD(712.5,0,"VRPK")="EAS"
^DD(712.5,.01,0)="GMT EFFECTIVE YEAR^RDI^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(712.5,.01,1,0)="^.1"
^DD(712.5,.01,1,1,0)="712.5^B"
^DD(712.5,.01,1,1,1)="S ^EAS(712.5,""B"",$E(X,1,30),DA)="""""
^DD(712.5,.01,1,1,2)="K ^EAS(712.5,""B"",$E(X,1,30),DA)"
^DD(712.5,.01,3)=""
^DD(712.5,.01,21,0)="^^1^1^3020626^"
^DD(712.5,.01,21,1,0)="This field contains the effective year of the GMT thresholds."
^DD(712.5,.01,"DT")="3071210"
^DD(712.5,.02,0)="FIPS CODE^RNJ5,0I^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(712.5,.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(712.5,.02,21,0)="^^2^2^3020626^"
^DD(712.5,.02,21,1,0)="This field contains the FIPS code associated with the GMT Threshold.  The "
^DD(712.5,.02,21,2,0)="FIPS code is a combination of the STATE and COUNTY codes."
^DD(712.5,.02,"DT")="3071210"
^DD(712.5,.03,0)="STATE^RP5'I^DIC(5,^0;3^Q"
^DD(712.5,.03,3)="Answer must be 2 characters in length"
^DD(712.5,.03,21,0)="^^1^1^3020626^"
^DD(712.5,.03,21,1,0)="This field contains the State Code associated with the GMT Threshold."
^DD(712.5,.03,"DT")="3071210"
^DD(712.5,.04,0)="COUNTY NAME^RFI^^0;4^K:$L(X)>25!($L(X)<1) X"
^DD(712.5,.04,3)="Answer must be 1-25 characters in length."
^DD(712.5,.04,21,0)="^^1^1^3020626^"
^DD(712.5,.04,21,1,0)="This field contains the County Name associated with the GMT Threshold."
^DD(712.5,.04,"DT")="3071210"
^DD(712.5,.05,0)="MSA CODE^RNJ4,0I^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(712.5,.05,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(712.5,.05,21,0)="^^1^1^3020830^"
^DD(712.5,.05,21,1,0)="MSA Code associated with FIPS code for specific metropolitan area."
^DD(712.5,.05,"DT")="3071210"
^DD(712.5,.11,0)="GMT THRESHOLD 1^RNJ9,2I^^1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.11,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.11,21,0)="^^3^3^3020626^"
^DD(712.5,.11,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.11,21,2,0)="with no dependants.  The threshold is set yearly by the U.S. Department "
^DD(712.5,.11,21,3,0)="of Housing and Urban Development."
^DD(712.5,.11,"DT")="3071210"
^DD(712.5,.12,0)="GMT THRESHOLD 2^RNJ9,2I^^1;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.12,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.12,21,0)="^^3^3^3020626^"
^DD(712.5,.12,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.12,21,2,0)="with 1 dependant.  The threshold is set yearly by the U.S. Department of "
^DD(712.5,.12,21,3,0)="Housing and Urban Development."
^DD(712.5,.12,"DT")="3071210"
^DD(712.5,.13,0)="GMT THRESHOLD 3^RNJ9,2I^^1;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.13,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.13,21,0)="^^3^3^3020626^"
^DD(712.5,.13,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.13,21,2,0)="with 2 dependants.  The threshold is set yearly by the U.S. Department of "
^DD(712.5,.13,21,3,0)="Housing and Urban Development."
^DD(712.5,.13,"DT")="3071210"
^DD(712.5,.14,0)="GMT THRESHOLD 4^RNJ9,2I^^1;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.14,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.14,21,0)="^^3^3^3020626^"
^DD(712.5,.14,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.14,21,2,0)="with 3 dependants.  The threshold is set yearly by the U.S. Department of "
^DD(712.5,.14,21,3,0)="Housing and Urban Development."
^DD(712.5,.14,"DT")="3071210"
^DD(712.5,.15,0)="GMT THRESHOLD 5^RNJ9,2I^^1;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.15,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.15,21,0)="^^3^3^3020626^"
^DD(712.5,.15,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.15,21,2,0)="with 4 dependants.  The threshold is set yearly by the U.S. Department of "
^DD(712.5,.15,21,3,0)="Housing and Urban Development."
^DD(712.5,.15,"DT")="3071210"
^DD(712.5,.16,0)="GMT THRESHOLD 6^RNJ9,2I^^1;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.16,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.16,21,0)="^^3^3^3020626^"
^DD(712.5,.16,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.16,21,2,0)="with 5 dependants.  The threshold is set yearly by the U.S. Department of "
^DD(712.5,.16,21,3,0)="Housing and Urban Development."
^DD(712.5,.16,"DT")="3071210"
^DD(712.5,.17,0)="GMT THRESHOLD 7^RNJ9,2I^^1;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.17,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.17,21,0)="^^3^3^3020626^"
^DD(712.5,.17,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.17,21,2,0)="with 6 dependants.  The threshold is set yearly by the U.S. Department of "
^DD(712.5,.17,21,3,0)="Housing and Urban Development."
^DD(712.5,.17,"DT")="3071210"
^DD(712.5,.18,0)="GMT THRESHOLD 8^RNJ9,2I^^1;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(712.5,.18,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(712.5,.18,21,0)="^^3^3^3020626^"
^DD(712.5,.18,21,1,0)="This field contains the geographical income level threshold associated "
^DD(712.5,.18,21,2,0)="with 7 dependants.  The threshold is set yearly by the U.S. Department of "
^DD(712.5,.18,21,3,0)="Housing and Urban Development."
^DD(712.5,.18,"DT")="3071210"
^DD(712.5,"B","COUNTY NAME",.04)=""
^DD(712.5,"B","FIPS CODE",.02)=""
^DD(712.5,"B","GMT EFFECTIVE YEAR",.01)=""
^DD(712.5,"B","GMT THRESHOLD 1",.11)=""
^DD(712.5,"B","GMT THRESHOLD 2",.12)=""
^DD(712.5,"B","GMT THRESHOLD 3",.13)=""
^DD(712.5,"B","GMT THRESHOLD 4",.14)=""
^DD(712.5,"B","GMT THRESHOLD 5",.15)=""
^DD(712.5,"B","GMT THRESHOLD 6",.16)=""
^DD(712.5,"B","GMT THRESHOLD 7",.17)=""
^DD(712.5,"B","GMT THRESHOLD 8",.18)=""
^DD(712.5,"B","MSA CODE",.05)=""
^DD(712.5,"B","STATE",.03)=""
^DD(712.5,"GL",0,1,.01)=""
^DD(712.5,"GL",0,2,.02)=""
^DD(712.5,"GL",0,3,.03)=""
^DD(712.5,"GL",0,4,.04)=""
^DD(712.5,"GL",0,5,.05)=""
^DD(712.5,"GL",1,1,.11)=""
^DD(712.5,"GL",1,2,.12)=""
^DD(712.5,"GL",1,3,.13)=""
^DD(712.5,"GL",1,4,.14)=""
^DD(712.5,"GL",1,5,.15)=""
^DD(712.5,"GL",1,6,.16)=""
^DD(712.5,"GL",1,7,.17)=""
^DD(712.5,"GL",1,8,.18)=""
^DD(712.5,"IX",.01)=""
^DD(712.5,"RQ",.01)=""
^DD(712.5,"RQ",.02)=""
^DD(712.5,"RQ",.03)=""
^DD(712.5,"RQ",.04)=""
^DD(712.5,"RQ",.05)=""
^DD(712.5,"RQ",.11)=""
^DD(712.5,"RQ",.12)=""
^DD(712.5,"RQ",.13)=""
^DD(712.5,"RQ",.14)=""
^DD(712.5,"RQ",.15)=""
^DD(712.5,"RQ",.16)=""
^DD(712.5,"RQ",.17)=""
^DD(712.5,"RQ",.18)=""
^DD(712.6,0)="FIELD^^1^2"
^DD(712.6,0,"DDA")="N"
^DD(712.6,0,"DT")="3021204"
^DD(712.6,0,"IX","B",712.6,.01)=""
^DD(712.6,0,"NM","GMT MSA CODE")=""
^DD(712.6,0,"VR")="1.0"
^DD(712.6,0,"VRPK")="EAS"
^DD(712.6,.01,0)="ZIP CODE^RFI^^0;1^K:$L(X)>5!($L(X)<5) X"
^DD(712.6,.01,.1)="ZIPCODE"
^DD(712.6,.01,1,0)="^.1"
^DD(712.6,.01,1,1,0)="712.6^B"
^DD(712.6,.01,1,1,1)="S ^EAS(712.6,""B"",$E(X,1,30),DA)="""""
^DD(712.6,.01,1,1,2)="K ^EAS(712.6,""B"",$E(X,1,30),DA)"
^DD(712.6,.01,3)="Answer must be 5 characters in length."
^DD(712.6,.01,8)=""
^DD(712.6,.01,21,0)="^^1^1^3020830^"
^DD(712.6,.01,21,1,0)="Valid ZIPCODE."
^DD(712.6,.01,"DT")="3071210"
^DD(712.6,1,0)="MSA CODE^RNJ4,0I^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(712.6,1,1,0)="^.1^^0"
^DD(712.6,1,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(712.6,1,21,0)="^^2^2^3021204^"
^DD(712.6,1,21,1,0)="Metropolitan Statistical Area (MSA) Code associated with ZIPCODE for"
^DD(712.6,1,21,2,0)="specific metropolitan area."
^DD(712.6,1,"DT")="3071210"
^DD(712.6,"B","MSA CODE",1)=""
^DD(712.6,"B","ZIP CODE",.01)=""
^DD(712.6,"B","ZIPCODE",.01)="1"
^DD(712.6,"GL",0,1,.01)=""
^DD(712.6,"GL",0,2,1)=""
^DD(712.6,"IX",.01)=""
^DD(712.6,"RQ",.01)=""
^DD(712.6,"RQ",1)=""
^DD(713,0)="FIELD^^30^11"
^DD(713,0,"DDA")="N"
^DD(713,0,"DT")="3020122"
^DD(713,0,"IX","ALOCK",713,30)=""
^DD(713,0,"IX","B",713,.01)=""
^DD(713,0,"NM","EAS MT PARAMETERS")=""
^DD(713,0,"VR")="1.0"
^DD(713,0,"VRPK")="EAS"
^DD(713,.01,0)="ONE^RFX^^0;1^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""1N.N) X"
^DD(713,.01,1,0)="^.1"
^DD(713,.01,1,1,0)="713^B"
^DD(713,.01,1,1,1)="S ^EAS(713,""B"",$E(X,1,30),DA)="""""
^DD(713,.01,1,1,2)="K ^EAS(713,""B"",$E(X,1,30),DA)"
^DD(713,.01,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 1"
^DD(713,.01,21,0)="^^2^2^3010621^"
^DD(713,.01,21,1,0)="'One' designates the 'one' EAS MT Parameter.  There can only be one set of"
^DD(713,.01,21,2,0)="parameters."
^DD(713,.01,"DT")="3010621"
^DD(713,2,0)="LAST RUN DATE^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(713,2,3)="(No range limit on date)"
^DD(713,2,21,0)="^^3^3^3010621^"
^DD(713,2,21,1,0)="The date and time the last means test letter generator searched for letter"
^DD(713,2,21,2,0)="candidates.  This date may be either a tasked run date or an interactive"
^DD(713,2,21,3,0)="run date."
^DD(713,2,"DT")="3010706"
^DD(713,3,0)="LAST INTERACTIVE USER^P200'^VA(200,^0;3^Q"
^DD(713,3,3)="Enter the user who last ran the letter generator"
^DD(713,3,21,0)="^^1^1^3010621^"
^DD(713,3,21,1,0)="The last user to initiate an interactive letter generation."
^DD(713,3,"DT")="3010621"
^DD(713,4,0)="LAST INTERACTIVE RUN DATE^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:X<1 X"
^DD(713,4,3)="Enter the last interactive run date"
^DD(713,4,21,0)="^^1^1^3010621^"
^DD(713,4,21,1,0)="The date and time the letter generator was last run interactively."
^DD(713,4,"DT")="3010621"
^DD(713,5,0)="PRIMARY PRINT DEVICE^P3.5'^%ZIS(1,^0;5^Q"
^DD(713,5,3)="Enter the primary  print device for the MT letters"
^DD(713,5,21,0)="^^3^3^3010621^"
^DD(713,5,21,1,0)="This the default printer to send the MT letters and 10-10EZ forms to."
^DD(713,5,21,2,0)="This is primarily used when the letter generator is run in a tasked"
^DD(713,5,21,3,0)="environment."
^DD(713,5,"DT")="3011108"
^DD(713,7,0)="MT COMPLETION BULLETIN?^S^1:YES;0:NO;^0;7^Q"
^DD(713,7,3)="Enter ""YES"" to send a completion bulletin when completing a Means Test"
^DD(713,7,21,0)="^^1^1^3010824^"
^DD(713,7,21,1,0)="If YES, a completion bulletin is send upon completion of a Means Test"
^DD(713,7,"DT")="3010824"
^DD(713,8,0)="ALLOW FILTERING BY LOCATION?^S^1:YES;0:NO;^0;8^Q"
^DD(713,8,3)="Enter 'YES' to allow filtering by Preferred Facility, 'NO' to not allow filtering by Facility"
^DD(713,8,21,0)="^^3^3^3020723^"
^DD(713,8,21,1,0)="This switch allows the filtering by PREFERRED FACILITY to be truned on or "
^DD(713,8,21,2,0)="off by the site.  If on, users will be prompted to filter letters for a "
^DD(713,8,21,3,0)="specific Preferred Facility.  "
^DD(713,8,"DT")="3020723"
^DD(713,9,0)="ALLOW OTHER RETURN ADDRESS^S^1:YES;0:NO;^0;9^Q"
^DD(713,9,3)="YES will allow use of other than the primary facility's return address"
^DD(713,9,21,0)="^^4^4^3020702^"
^DD(713,9,21,1,0)="A NO will force all letters to print the primary facility's return "
^DD(713,9,21,2,0)="address on the letters.  A YES will allow the printing of the return "
^DD(713,9,21,3,0)="address listed for the preferred facility as entered in the PATIENT File, "
^DD(713,9,21,4,0)="#2."
^DD(713,9,"DT")="3020702"
^DD(713,10,0)="ENVELOPE OFFSET^NJ1,0^^0;10^K:+X'=X!(X>6)!(X<0)!(X?.E1"".""1N.N) X"
^DD(713,10,3)="Type a Number between 0 and 6, 0 Decimal Digits"
^DD(713,10,21,0)="^.001^3^3^3020122^^^"
^DD(713,10,21,1,0)="Offset for printing means test letters for samll adjustments to fit "
^DD(713,10,21,2,0)="windowed envelopes.  This field should not be changed unless the patient"
^DD(713,10,21,3,0)="address is not aligning with the envelope window."
^DD(713,10,"DT")="3020122"
^DD(713,25,0)="*ADDITIONAL PRINT LOCATIONS^713.025PA^^2;0"
^DD(713,25,"DT")="3020705"
^DD(713,30,0)="IN USE^S^1:YES;0:NO;^L;1^Q"
^DD(713,30,1,0)="^.1"
^DD(713,30,1,1,0)="713^ALOCK"
^DD(713,30,1,1,1)="S ^EAS(713,""ALOCK"",$E(X,1,30),DA)="""""
^DD(713,30,1,1,2)="K ^EAS(713,""ALOCK"",$E(X,1,30),DA)"
^DD(713,30,1,1,"%D",0)="^^1^1^3010706^"
^DD(713,30,1,1,"%D",1,0)="Check for lock status of the automated letters generator"
^DD(713,30,1,1,"DT")="3010706"
^DD(713,30,3)="Yes indicates the letters generator is running, No indicates no process is running"
^DD(713,30,21,0)="^^2^2^3010706^"
^DD(713,30,21,1,0)="This field will be set to YES when an automated MT Letters generator"
^DD(713,30,21,2,0)="process is running.  If no process is running, the field will be NO."
^DD(713,30,"DT")="3010706"
^DD(713,"B","*ADDITIONAL PRINT LOCATIONS",25)=""
^DD(713,"B","ALLOW FILTERING BY LOCATION?",8)=""
^DD(713,"B","ALLOW OTHER RETURN ADDRESS",9)=""
^DD(713,"B","ENVELOPE OFFSET",10)=""
^DD(713,"B","IN USE",30)=""
^DD(713,"B","LAST INTERACTIVE RUN DATE",4)=""
^DD(713,"B","LAST INTERACTIVE USER",3)=""
^DD(713,"B","LAST RUN DATE",2)=""
^DD(713,"B","MT COMPLETION BULLETIN?",7)=""
^DD(713,"B","ONE",.01)=""
^DD(713,"B","PRIMARY PRINT DEVICE",5)=""
^DD(713,"GL",0,1,.01)=""
^DD(713,"GL",0,2,2)=""
^DD(713,"GL",0,3,3)=""
^DD(713,"GL",0,4,4)=""
^DD(713,"GL",0,5,5)=""
^DD(713,"GL",0,7,7)=""
^DD(713,"GL",0,8,8)=""
^DD(713,"GL",0,9,9)=""
^DD(713,"GL",0,10,10)=""
^DD(713,"GL",2,0,25)=""
^DD(713,"GL","L",1,30)=""
^DD(713,"IX",.01)=""
^DD(713,"IX",30)=""
^DD(713,"RQ",.01)=""
^DD(713,"SB",713.025,25)=""
^DD(713.025,0)="*ADDITIONAL PRINT LOCATIONS SUB-FIELD^^1^2"
^DD(713.025,0,"DT")="3011113"
^DD(713.025,0,"IX","B",713.025,.01)=""
^DD(713.025,0,"NM","*ADDITIONAL PRINT LOCATIONS")=""
^DD(713.025,0,"UP")="713"
^DD(713.025,.01,0)="LOCATION^P4'^DIC(4,^0;1^Q"
^DD(713.025,.01,1,0)="^.1"
^DD(713.025,.01,1,1,0)="713.025^B"
^DD(713.025,.01,1,1,1)="S ^EAS(713,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(713.025,.01,1,1,2)="K ^EAS(713,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(713.025,.01,3)="Select Division/Location where letters are to be printed"
^DD(713.025,.01,21,0)="^^5^5^3011113^"
^DD(713.025,.01,21,1,0)="This is the location where the Means Test letters may be printed.  If a"
^DD(713.025,.01,21,2,0)="veteran has specified a Preferred Facility and the printing of letters to"
^DD(713.025,.01,21,3,0)="alternate locations has been activated, then if there is a matching"
^DD(713.025,.01,21,4,0)="facility/location here, the letters will be directed to the associated"
^DD(713.025,.01,21,5,0)="print device."
^DD(713.025,.01,"DT")="3011113"
^DD(713.025,1,0)="PRINT DEVICE AT LOCATION^P3.5'^%ZIS(1,^0;2^Q"
^DD(713.025,1,3)="Enter the print device for this location"
^DD(713.025,1,"DT")="3011109"
^DD(713.025,"B","LOCATION",.01)=""
^DD(713.025,"B","PRINT DEVICE AT LOCATION",1)=""
^DD(713.025,"GL",0,1,.01)=""
^DD(713.025,"GL",0,2,1)=""
^DD(713.025,"IX",.01)=""
^DD(713.1,0)="FIELD^^10^6"
^DD(713.1,0,"DDA")="N"
^DD(713.1,0,"DT")="3010712"
^DD(713.1,0,"IX","AP",713.1,2)=""
^DD(713.1,0,"IX","B",713.1,.01)=""
^DD(713.1,0,"NM","EAS MT PATIENT STATUS")=""
^DD(713.1,0,"PT",713.2,2)=""
^DD(713.1,0,"VR")="1.0"
^DD(713.1,0,"VRPK")="EAS"
^DD(713.1,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(713.1,.01,1,0)="^.1^^-1"
^DD(713.1,.01,1,1,0)="713.1^B"
^DD(713.1,.01,1,1,1)="S ^EAS(713.1,""B"",$E(X,1,30),DA)="""""
^DD(713.1,.01,1,1,2)="K ^EAS(713.1,""B"",$E(X,1,30),DA)"
^DD(713.1,.01,3)="Enter the patient associated with this means test."
^DD(713.1,.01,21,0)="^^1^1^3010720^"
^DD(713.1,.01,21,1,0)="This field contains the patient associated with this annual test."
^DD(713.1,.01,"DT")="3011114"
^DD(713.1,2,0)="PROHIBIT LETTER FROM PRINTING^S^1:YES;0:NO;^0;2^Q"
^DD(713.1,2,1,0)="^.1^^-1"
^DD(713.1,2,1,1,0)="713.1^AP"
^DD(713.1,2,1,1,1)="S ^EAS(713.1,""AP"",$E(X,1,30),DA)="""""
^DD(713.1,2,1,1,2)="K ^EAS(713.1,""AP"",$E(X,1,30),DA)"
^DD(713.1,2,1,1,"%D",0)="^^3^3^3010628^"
^DD(713.1,2,1,1,"%D",1,0)="This cross-reference is used for determining whether a patient has a "
^DD(713.1,2,1,1,"%D",2,0)="prohibit letters flag set.  If the cross-reference exists, then no"
^DD(713.1,2,1,1,"%D",3,0)="letters should be generated."
^DD(713.1,2,1,1,"DT")="3010628"
^DD(713.1,2,3)="Enter 'Y'es to prohibit letters, 'N'o to enable"
^DD(713.1,2,21,0)="^^2^2^3010627^"
^DD(713.1,2,21,1,0)="Setting this field to 'Yes' will prohibit Means Test letters from being"
^DD(713.1,2,21,2,0)="generated by the automated MT letters functionality for this patient."
^DD(713.1,2,"DT")="3011029"
^DD(713.1,3,0)="PROHIBIT LETTER EFFECTIVE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.1,3,3)="Enter date on which the Prohibit letters became effective"
^DD(713.1,3,4)=""
^DD(713.1,3,21,0)="^.001^1^1^3010720^^"
^DD(713.1,3,21,1,0)="The date the prohibit letters became effective for the patient."
^DD(713.1,3,"DT")="3010720"
^DD(713.1,4,0)="WHO ENTERED PROHIBIT FLAG^P200'^VA(200,^0;4^Q"
^DD(713.1,4,1,0)="^.1^^0"
^DD(713.1,4,3)="Enter the user who entered the prohibit flag."
^DD(713.1,4,21,0)="^^2^2^3010720^"
^DD(713.1,4,21,1,0)="This is the user who entered the means test letter prohibit flag for the "
^DD(713.1,4,21,2,0)="patient.  "
^DD(713.1,4,"DT")="3010720"
^DD(713.1,5,0)="DATE PROHIBIT FLAG ENTERED^D^^0;5^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(713.1,5,3)="Enter the date the prohibit flag was entered"
^DD(713.1,5,4)=""
^DD(713.1,5,21,0)="^.001^1^1^3010720^^^"
^DD(713.1,5,21,1,0)="This is the date and time the prohibit flag was entered for the patient."
^DD(713.1,5,"DT")="3010720"
^DD(713.1,10,0)="PROHIBIT LETTER REASON^F^^10;1^K:$L(X)>60!($L(X)<3) X"
^DD(713.1,10,3)="Answer must be 3-60 characters in length"
^DD(713.1,10,21,0)="^^2^2^3010627^"
^DD(713.1,10,21,1,0)="This is a short description of why MT letters are prohibited for the"
^DD(713.1,10,21,2,0)="patient"
^DD(713.1,10,"DT")="3010627"
^DD(713.1,"B","DATE PROHIBIT FLAG ENTERED",5)=""
^DD(713.1,"B","NAME",.01)=""
^DD(713.1,"B","PROHIBIT LETTER EFFECTIVE DATE",3)=""
^DD(713.1,"B","PROHIBIT LETTER FROM PRINTING",2)=""
^DD(713.1,"B","PROHIBIT LETTER REASON",10)=""
^DD(713.1,"B","WHO ENTERED PROHIBIT FLAG",4)=""
^DD(713.1,"GL",0,1,.01)=""
^DD(713.1,"GL",0,2,2)=""
^DD(713.1,"GL",0,3,3)=""
^DD(713.1,"GL",0,4,4)=""
^DD(713.1,"GL",0,5,5)=""
^DD(713.1,"GL",10,1,10)=""
^DD(713.1,"IX",.01)=""
^DD(713.1,"IX",2)=""
^DD(713.1,"RQ",.01)=""
^DD(713.2,0)="FIELD^^19.5^20"
^DD(713.2,0,"DDA")="N"
^DD(713.2,0,"DT")="3010723"
^DD(713.2,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^EAS(713.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(713.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(713.2,0,"ID",3)="W ""   "",$$FMTE^DILIBF($P(^(0),U,3),5)"
^DD(713.2,0,"IX","AC",713.2,4)=""
^DD(713.2,0,"IX","AD",713.2,.01)=""
^DD(713.2,0,"IX","B",713.2,.01)=""
^DD(713.2,0,"IX","C",713.2,2)=""
^DD(713.2,0,"NM","EAS MT LETTER STATUS")=""
^DD(713.2,0,"VR")="1.0"
^DD(713.2,0,"VRPK")="EAS"
^DD(713.2,.001,0)="ENTRY NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(713.2,.001,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(713.2,.001,"DT")="3010720"
^DD(713.2,.01,0)="PROCESSING DATE^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,.01,1,0)="^.1"
^DD(713.2,.01,1,1,0)="713.2^B"
^DD(713.2,.01,1,1,1)="S ^EAS(713.2,""B"",$E(X,1,30),DA)="""""
^DD(713.2,.01,1,1,2)="K ^EAS(713.2,""B"",$E(X,1,30),DA)"
^DD(713.2,.01,1,2,0)="713.2^AD^MUMPS"
^DD(713.2,.01,1,2,1)="S ^EAS(713.2,""AD"",$P(X,""."",1),DA)="""""
^DD(713.2,.01,1,2,2)="K ^EAS(713.2,""AD"",$P(X,""."",1),DA)"
^DD(713.2,.01,1,2,"%D",0)="^.101^1^1^3010720^^"
^DD(713.2,.01,1,2,"%D",1,0)="Cross-reference on processing date, using the date only.  Strips the time"
^DD(713.2,.01,1,2,"DT")="3010720"
^DD(713.2,.01,3)="Enter processing date for entry, time required"
^DD(713.2,.01,21,0)="^^1^1^3010720^"
^DD(713.2,.01,21,1,0)="Initial processing date for the patient's means test anniversary date"
^DD(713.2,.01,"DT")="3010720"
^DD(713.2,2,0)="RECIPIENT^RP713.1'^EAS(713.1,^0;2^Q"
^DD(713.2,2,1,0)="^.1"
^DD(713.2,2,1,1,0)="713.2^C"
^DD(713.2,2,1,1,1)="S ^EAS(713.2,""C"",$E(X,1,30),DA)="""""
^DD(713.2,2,1,1,2)="K ^EAS(713.2,""C"",$E(X,1,30),DA)"
^DD(713.2,2,1,1,"%D",0)="^^1^1^3010712^"
^DD(713.2,2,1,1,"%D",1,0)="Cross-reference by patient in the patient status file, #713.1"
^DD(713.2,2,1,1,"DT")="3010712"
^DD(713.2,2,3)="Select the recipient for the MT letters"
^DD(713.2,2,21,0)="^^2^2^3010720^"
^DD(713.2,2,21,1,0)="Pointer to the EAS MT LETTERS File, The patietn whose means test is coming"
^DD(713.2,2,21,2,0)="due."
^DD(713.2,2,"DT")="3011029"
^DD(713.2,3,0)="MEANS TEST DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,3,1,0)="^.1^^0"
^DD(713.2,3,3)="(No range limit on date)"
^DD(713.2,3,21,0)="^^2^2^3020307^"
^DD(713.2,3,21,1,0)="The current means test date for the patient (from the ANNUAL MEANS TEST"
^DD(713.2,3,21,2,0)="File)"
^DD(713.2,3,"DT")="3020307"
^DD(713.2,4,0)="MEANS TEST RETURNED?^RS^1:YES;0:NO;^0;4^Q"
^DD(713.2,4,1,0)="^.1"
^DD(713.2,4,1,1,0)="713.2^AC"
^DD(713.2,4,1,1,1)="S ^EAS(713.2,""AC"",$E(X,1,30),DA)="""""
^DD(713.2,4,1,1,2)="K ^EAS(713.2,""AC"",$E(X,1,30),DA)"
^DD(713.2,4,1,1,"%D",0)="^^1^1^3010712^"
^DD(713.2,4,1,1,"%D",1,0)="Cross reference on returned/not-returned means tests"
^DD(713.2,4,1,1,"DT")="3010712"
^DD(713.2,4,3)="Enter ""Y""es if returned, ""N""o if it has not"
^DD(713.2,4,21,0)="^^2^2^3010720^"
^DD(713.2,4,21,1,0)="Indicates whether a response (10-10EZ form) has been received in response"
^DD(713.2,4,21,2,0)="to one of the reminder letters."
^DD(713.2,4,"DT")="3010713"
^DD(713.2,5,0)="DATE MEANS TEST RETURNED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,5,3)="(No range limit on date)"
^DD(713.2,5,21,0)="^^1^1^3010720^"
^DD(713.2,5,21,1,0)="Date the completed 10-10EZ form was recieved and processed"
^DD(713.2,5,"DT")="3010720"
^DD(713.2,6,0)="WHO ENTERED RETURNED MT^P200'^VA(200,^0;6^Q"
^DD(713.2,6,3)="Select the user entering the returned MT data"
^DD(713.2,6,21,0)="^^1^1^3010720^"
^DD(713.2,6,21,1,0)="User entering the returned MT letter information"
^DD(713.2,6,"DT")="3010712"
^DD(713.2,7,0)="COMMENTS^713.27^^1;0"
^DD(713.2,8,0)="60-DAY LETTER DATE^D^^6;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,8,1,0)="^.1^^0"
^DD(713.2,8,3)="Enter the 60-day MT anniversary date threshold"
^DD(713.2,8,21,0)="^.001^1^1^3010720^^"
^DD(713.2,8,21,1,0)="Means Test anniversary date minus 60 days"
^DD(713.2,8,"DT")="3020307"
^DD(713.2,9,0)="60-DAY FLAG TO PRINT?^S^1:YES;0:NO;^6;2^Q"
^DD(713.2,9,3)="Enter ""Y""es for flagged, ""N""o for not flagged"
^DD(713.2,9,21,0)="^^1^1^3010720^"
^DD(713.2,9,21,1,0)="Flag indicates the letter is ready for printing"
^DD(713.2,9,"DT")="3010712"
^DD(713.2,10,0)="60-DAY LETTER PRINTED?^S^1:YES;0:NO;^6;3^Q"
^DD(713.2,10,3)="Enter ""Y""es for printed, ""N""o for not printed"
^DD(713.2,10,21,0)="^^1^1^3010720^"
^DD(713.2,10,21,1,0)="The 60-day letter has been printed"
^DD(713.2,10,"DT")="3010712"
^DD(713.2,10.5,0)="60-DAY PRINT DATE^D^^6;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,10.5,3)="Enter date 60-day letter was printed"
^DD(713.2,10.5,21,0)="^^1^1^3010723^"
^DD(713.2,10.5,21,1,0)="60-Day print date"
^DD(713.2,10.5,"DT")="3010723"
^DD(713.2,11,0)="30-DAY LETTER DATE^D^^4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,11,3)="Enter the 30-day MT anniversary date threshold"
^DD(713.2,11,21,0)="^^1^1^3020307^"
^DD(713.2,11,21,1,0)="Means Test anniversary date minus 30 days"
^DD(713.2,11,"DT")="3020307"
^DD(713.2,12,0)="30-DAY FLAG TO PRINT?^S^1:YES;0:NO;^4;2^Q"
^DD(713.2,12,3)="Enter ""Y""es for flagged, ""N""o for not flagged"
^DD(713.2,12,21,0)="^^1^1^3020307^"
^DD(713.2,12,21,1,0)="Flag indicates the letter is ready for printing"
^DD(713.2,12,"DT")="3020307"
^DD(713.2,13,0)="30-DAY LETTER PRINTED?^S^1:YES;0:NO;^4;3^Q"
^DD(713.2,13,3)="Enter ""Y""es if letter printed, ""N""o if it has not"
^DD(713.2,13,21,0)="^^1^1^3020307^"
^DD(713.2,13,21,1,0)="The 30-day letter has been printed"
^DD(713.2,13,"DT")="3020307"
^DD(713.2,13.5,0)="30-DAY PRINT DATE^D^^4;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,13.5,3)="Enter date 30-day letter was printed"
^DD(713.2,13.5,21,0)="^^1^1^3020307^"
^DD(713.2,13.5,21,1,0)="Date the 30-Day letter was printed"
^DD(713.2,13.5,"DT")="3020307"
^DD(713.2,17,0)="ZERO-DAY LETTER DATE^D^^Z;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,17,3)="Enter the 0-day MT anniversary date threshold"
^DD(713.2,17,21,0)="^^1^1^3010720^"
^DD(713.2,17,21,1,0)="Means Test anniversary date minus 0 days"
^DD(713.2,17,"DT")="3010720"
^DD(713.2,18,0)="ZERO-DAY FLAG TO PRINT?^S^1:YES;0:NO;^Z;2^Q"
^DD(713.2,18,3)="Enter ""Y""es for flagged, ""N""o for not flagged"
^DD(713.2,18,21,0)="^^1^1^3010720^"
^DD(713.2,18,21,1,0)="Flag indicates the letter is ready for printing"
^DD(713.2,18,"DT")="3010712"
^DD(713.2,19,0)="ZERO-DAY LETTER PRINTED?^S^1:YES;0:NO;^Z;3^Q"
^DD(713.2,19,3)="Enter ""Y""es if letter printed, ""N""o if it has not"
^DD(713.2,19,21,0)="^^1^1^3010720^"
^DD(713.2,19,21,1,0)="The 0-day letter has been printed"
^DD(713.2,19,"DT")="3010712"
^DD(713.2,19.5,0)="ZERO-DAY PRINT DATE^D^^Z;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(713.2,19.5,3)="Enter date 0-day letter was printed"
^DD(713.2,19.5,21,0)="^^1^1^3010723^"
^DD(713.2,19.5,21,1,0)="0-day letter print date"
^DD(713.2,19.5,"DT")="3010723"
^DD(713.2,"B","30-DAY FLAG TO PRINT?",12)=""
^DD(713.2,"B","30-DAY LETTER DATE",11)=""
^DD(713.2,"B","30-DAY LETTER PRINTED?",13)=""
^DD(713.2,"B","30-DAY PRINT DATE",13.5)=""
^DD(713.2,"B","60-DAY FLAG TO PRINT?",9)=""
^DD(713.2,"B","60-DAY LETTER DATE",8)=""
^DD(713.2,"B","60-DAY LETTER PRINTED?",10)=""
^DD(713.2,"B","60-DAY PRINT DATE",10.5)=""
^DD(713.2,"B","COMMENTS",7)=""
^DD(713.2,"B","DATE MEANS TEST RETURNED",5)=""
^DD(713.2,"B","ENTRY NUMBER",.001)=""
^DD(713.2,"B","MEANS TEST DATE",3)=""
^DD(713.2,"B","MEANS TEST RETURNED?",4)=""
^DD(713.2,"B","PROCESSING DATE",.01)=""
^DD(713.2,"B","RECIPIENT",2)=""
^DD(713.2,"B","WHO ENTERED RETURNED MT",6)=""
^DD(713.2,"B","ZERO-DAY FLAG TO PRINT?",18)=""
^DD(713.2,"B","ZERO-DAY LETTER DATE",17)=""
^DD(713.2,"B","ZERO-DAY LETTER PRINTED?",19)=""
^DD(713.2,"B","ZERO-DAY PRINT DATE",19.5)=""
^DD(713.2,"GL",0,1,.01)=""
^DD(713.2,"GL",0,2,2)=""
^DD(713.2,"GL",0,3,3)=""
^DD(713.2,"GL",0,4,4)=""
^DD(713.2,"GL",0,5,5)=""
^DD(713.2,"GL",0,6,6)=""
^DD(713.2,"GL",1,0,7)=""
^DD(713.2,"GL",4,1,11)=""
^DD(713.2,"GL",4,2,12)=""
^DD(713.2,"GL",4,3,13)=""
^DD(713.2,"GL",4,4,13.5)=""
^DD(713.2,"GL",6,1,8)=""
^DD(713.2,"GL",6,2,9)=""
^DD(713.2,"GL",6,3,10)=""
^DD(713.2,"GL",6,4,10.5)=""
^DD(713.2,"GL","Z",1,17)=""
^DD(713.2,"GL","Z",2,18)=""
^DD(713.2,"GL","Z",3,19)=""
^DD(713.2,"GL","Z",4,19.5)=""
^DD(713.2,"IX",.01)=""
^DD(713.2,"IX",2)=""
^DD(713.2,"IX",4)=""
^DD(713.2,"RQ",.01)=""
^DD(713.2,"RQ",2)=""
^DD(713.2,"RQ",3)=""
^DD(713.2,"RQ",4)=""
^DD(713.2,"SB",713.27,7)=""
^DD(713.27,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(713.27,0,"DT")="3010712"
^DD(713.27,0,"NM","COMMENTS")=""
^DD(713.27,0,"UP")="713.2"
^DD(713.27,.01,0)="COMMENTS^W^^0;1"
^DD(713.27,.01,3)="Enter any comments associated with the returned Means Test"
^DD(713.27,.01,"DT")="3010712"
^DD(713.27,"B","COMMENTS",.01)=""
^DD(713.27,"GL",0,1,.01)=""
^DD(713.3,0)="FIELD^^4^4"
^DD(713.3,0,"DDA")="N"
^DD(713.3,0,"DT")="3020314"
^DD(713.3,0,"IX","B",713.3,.01)=""
^DD(713.3,0,"IX","C",713.3,2)=""
^DD(713.3,0,"NM","EAS MT LETTERS")=""
^DD(713.3,0,"VR")="1.0"
^DD(713.3,0,"VRPK")="EAS"
^DD(713.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(713.3,.01,1,0)="^.1"
^DD(713.3,.01,1,1,0)="713.3^B"
^DD(713.3,.01,1,1,1)="S ^EAS(713.3,""B"",$E(X,1,30),DA)="""""
^DD(713.3,.01,1,1,2)="K ^EAS(713.3,""B"",$E(X,1,30),DA)"
^DD(713.3,.01,3)="The name must be 3 - 30 characters, not numeric or starting with punctuation"
^DD(713.3,.01,21,0)="^^3^3^3010625^"
^DD(713.3,.01,21,1,0)="The name of a letter that has been initially created for automated means"
^DD(713.3,.01,21,2,0)="test letters.  These letters are utilized mostly in the Enrollment"
^DD(713.3,.01,21,3,0)="Application System (EAS) software."
^DD(713.3,.01,"DT")="3010625"
^DD(713.3,2,0)="TYPE^S^1:60-DAY LETTERS;2:30-DAY LETTERS;3:REPORT OF CONTACT;4:ZERO-DAY LETTERS;^0;2^Q"
^DD(713.3,2,1,0)="^.1"
^DD(713.3,2,1,1,0)="713.3^C"
^DD(713.3,2,1,1,1)="S ^EAS(713.3,""C"",$E(X,1,30),DA)="""""
^DD(713.3,2,1,1,2)="K ^EAS(713.3,""C"",$E(X,1,30),DA)"
^DD(713.3,2,1,1,"DT")="3010625"
^DD(713.3,2,3)="Answer must be 3-30 characters in length"
^DD(713.3,2,21,0)="^^2^2^3010716^"
^DD(713.3,2,21,1,0)="This field is used by the Letter Generation routines to select the"
^DD(713.3,2,21,2,0)="appropriate letter to print."
^DD(713.3,2,"DT")="3020314"
^DD(713.3,3,0)="INITIAL SECTION OF LETTER^713.33^^1;0"
^DD(713.3,3,9)=""
^DD(713.3,3,21,0)="^.001^2^2^3011018^^^"
^DD(713.3,3,21,1,0)="Main body of the letter.  Do not modify, changes will be directed as"
^DD(713.3,3,21,2,0)="necessary"
^DD(713.3,3,23,0)="^^4^4^3011018^"
^DD(713.3,3,23,1,0)="This data has been drafted by the Health Administration Service and is"
^DD(713.3,3,23,2,0)="not to be edited or modified at the local level.  Changes to the wording"
^DD(713.3,3,23,3,0)="of this letter field will be distributed by patch as directed by the "
^DD(713.3,3,23,4,0)="HAS Office."
^DD(713.3,4,0)="PREFERRED LOCATION^713.34P^^2;0"
^DD(713.3,4,21,0)="^.001^1^1^3010730^^^"
^DD(713.3,4,21,1,0)="Division related section of the letter"
^DD(713.3,4,"DT")="3011113"
^DD(713.3,"B","INITIAL SECTION OF LETTER",3)=""
^DD(713.3,"B","NAME",.01)=""
^DD(713.3,"B","PREFERRED LOCATION",4)=""
^DD(713.3,"B","TYPE",2)=""
^DD(713.3,"GL",0,1,.01)=""
^DD(713.3,"GL",0,2,2)=""
^DD(713.3,"GL",1,0,3)=""
^DD(713.3,"GL",2,0,4)=""
^DD(713.3,"IX",.01)=""
^DD(713.3,"IX",2)=""
^DD(713.3,"RQ",.01)=""
^DD(713.3,"SB",713.33,3)=""
^DD(713.3,"SB",713.34,4)=""
^DD(713.33,0)="INITIAL SECTION OF LETTER SUB-FIELD^^.01^1"
^DD(713.33,0,"DT")="3010720"
^DD(713.33,0,"NM","INITIAL SECTION OF LETTER")=""
^DD(713.33,0,"UP")="713.3"
^DD(713.33,.01,0)="INITIAL SECTION OF LETTER^WL^^0;1^Q"
^DD(713.33,.01,3)="Enter the initial section of the letter"
^DD(713.33,.01,9)=""
^DD(713.33,.01,21,0)="^.001^4^4^3011018^^^"
^DD(713.33,.01,21,1,0)="The initial section of the letter is the portion of the letter that has"
^DD(713.33,.01,21,2,0)="been pre-\ programmed by the developer to include items such as the"
^DD(713.33,.01,21,3,0)="veteran's name, address, social security number and is in the format of a"
^DD(713.33,.01,21,4,0)="VA style letter."
^DD(713.33,.01,"DT")="3011018"
^DD(713.33,"B","INITIAL SECTION OF LETTER",.01)=""
^DD(713.33,"GL",0,1,.01)=""
^DD(713.34,0)="PREFERRED LOCATION SUB-FIELD^^1^2"
^DD(713.34,0,"DT")="3011113"
^DD(713.34,0,"IX","B",713.34,.01)=""
^DD(713.34,0,"NM","PREFERRED LOCATION")=""
^DD(713.34,0,"UP")="713.3"
^DD(713.34,.01,0)="LOCATION^P4'^DIC(4,^0;1^Q"
^DD(713.34,.01,1,0)="^.1"
^DD(713.34,.01,1,1,0)="713.34^B"
^DD(713.34,.01,1,1,1)="S ^EAS(713.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(713.34,.01,1,1,2)="K ^EAS(713.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(713.34,.01,3)="Select the location for final section of letter"
^DD(713.34,.01,21,0)="^^4^4^3011113^"
^DD(713.34,.01,21,1,0)="This field allows tailoring the letters to specific locations in"
^DD(713.34,.01,21,2,0)="multi-station or Integrated networks.  The Preferred Facility field in the"
^DD(713.34,.01,21,3,0)="PATIENT file, #2, is used as the key in determining which final section to"
^DD(713.34,.01,21,4,0)="print for the veteran's letter."
^DD(713.34,.01,"DT")="3011113"
^DD(713.34,1,0)="FINAL SECTION^713.341^^1;0"
^DD(713.34,"B","FINAL SECTION",1)=""
^DD(713.34,"B","LOCATION",.01)=""
^DD(713.34,"GL",0,1,.01)=""
^DD(713.34,"GL",1,0,1)=""
^DD(713.34,"IX",.01)=""
^DD(713.34,"SB",713.341,1)=""
^DD(713.341,0)="FINAL SECTION SUB-FIELD^^.01^1"
^DD(713.341,0,"DT")="3010730"
^DD(713.341,0,"NM","FINAL SECTION")=""
^DD(713.341,0,"UP")="713.34"
^DD(713.341,.01,0)="FINAL SECTION^WL^^0;1^Q"
^DD(713.341,.01,3)="Enter local data and signature block"
^DD(713.341,.01,21,0)="^^3^3^3010730^"
^DD(713.341,.01,21,1,0)="This is the local information and signature block applicable to the"
^DD(713.341,.01,21,2,0)="facilit that that will be printed for veterans that have specified a"
^DD(713.341,.01,21,3,0)="preferred facility."
^DD(713.341,.01,"DT")="3011109"
^DD(713.341,"B","FINAL SECTION",.01)=""
^DD(713.341,"GL",0,1,.01)=""
^DD(714.1,0)="FIELD^^.02^3"
^DD(714.1,0,"DDA")="N"
^DD(714.1,0,"DT")="3010816"
^DD(714.1,0,"IX","B",714.1,.01)=""
^DD(714.1,0,"NM","LTC CO-PAY EXEMPTION")=""
^DD(714.1,0,"PT",408.31,2.07)=""
^DD(714.1,0,"PT",714.5,.05)=""
^DD(714.1,0,"VR")="1.0"
^DD(714.1,0,"VRPK")="EAS"
^DD(714.1,.001,0)="NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1.N) X"
^DD(714.1,.001,3)="Type a number between 1 and 9999, 0 Decimal Digits"
^DD(714.1,.001,"DT")="3010815"
^DD(714.1,.01,0)="NAME^RF^^0;1^K:$L(X)>65!($L(X)<3)!'(X'?1P.E) X"
^DD(714.1,.01,1,0)="^.1"
^DD(714.1,.01,1,1,0)="714.1^B"
^DD(714.1,.01,1,1,1)="S ^EAS(714.1,""B"",$E(X,1,30),DA)="""""
^DD(714.1,.01,1,1,2)="K ^EAS(714.1,""B"",$E(X,1,30),DA)"
^DD(714.1,.01,3)="Answer must be 3-65 characters in length"
^DD(714.1,.01,"DT")="3010815"
^DD(714.1,.02,0)="ACTIVE?^S^0:NO;1:YES;^0;2^Q"
^DD(714.1,.02,21,0)="^.001^1^1^3010816^^"
^DD(714.1,.02,21,1,0)="This field indicates if the LTC co-pay exemption is active and can be selected as a reason for exemption from LTC co-payments."
^DD(714.1,.02,"DT")="3010816"
^DD(714.1,"B","ACTIVE?",.02)=""
^DD(714.1,"B","NAME",.01)=""
^DD(714.1,"B","NUMBER",.001)=""
^DD(714.1,"GL",0,1,.01)=""
^DD(714.1,"GL",0,2,.02)=""
^DD(714.1,"IX",.01)=""
^DD(714.1,"RQ",.01)=""
^DD(714.5,0)="FIELD^^.09^9"
^DD(714.5,0,"DDA")="N"
^DD(714.5,0,"DT")="3050908"
^DD(714.5,0,"IX","AC",714.5,.02)=""
^DD(714.5,0,"IX","B",714.5,.01)=""
^DD(714.5,0,"NM","EAS LTC MONTHLY MAX CALCULATIONS")=""
^DD(714.5,0,"VR")="1.0"
^DD(714.5,0,"VRPK")="EAS"
^DD(714.5,.01,0)="PATIENT NAME^RP2'I^DPT(^0;1^Q"
^DD(714.5,.01,1,0)="^.1"
^DD(714.5,.01,1,1,0)="714.5^B"
^DD(714.5,.01,1,1,1)="S ^EASPFS(714.5,""B"",$E(X,1,30),DA)="""""
^DD(714.5,.01,1,1,2)="K ^EASPFS(714.5,""B"",$E(X,1,30),DA)"
^DD(714.5,.01,1,2,0)="^^TRIGGER^714.5^.09"
^DD(714.5,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^EASPFS(714.5,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(714.5,.01,1,2,1.4)"
^DD(714.5,.01,1,2,1.4)="S DIH=$G(^EASPFS(714.5,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=714.5,DIG=.09 D ^DICR"
^DD(714.5,.01,1,2,2)="Q"
^DD(714.5,.01,1,2,"CREATE VALUE")="NOW"
^DD(714.5,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(714.5,.01,1,2,"DT")="3050908"
^DD(714.5,.01,1,2,"FIELD")="DATE ADDED"
^DD(714.5,.01,3)="Enter the patient for these LTC calculated amounts."
^DD(714.5,.01,21,0)="^^2^2^3050908^"
^DD(714.5,.01,21,1,0)="This patient field is used to identify who the calculated LTC amounts "
^DD(714.5,.01,21,2,0)="stored in this file relate to."
^DD(714.5,.01,"DT")="3050908"
^DD(714.5,.02,0)="LAST DATE^DIX^^0;2^S %DT=""EX"" D ^%DT S X=Y K:X<1 X I $G(X),$E($$FMADD^XLFDT(X,1),4,5)=$E(X,4,5) K X"
^DD(714.5,.02,1,0)="^.1"
^DD(714.5,.02,1,1,0)="714.5^AC"
^DD(714.5,.02,1,1,1)="S ^EASPFS(714.5,""AC"",$E(X,1,30),DA)="""""
^DD(714.5,.02,1,1,2)="K ^EASPFS(714.5,""AC"",$E(X,1,30),DA)"
^DD(714.5,.02,1,1,"DT")="3050908"
^DD(714.5,.02,3)="Enter the last day of the month to be calculated."
^DD(714.5,.02,21,0)="^^2^2^3050908^"
^DD(714.5,.02,21,1,0)="This is the date these calculated values relate to.  The date value must "
^DD(714.5,.02,21,2,0)="be the last day of the month for the calculation."
^DD(714.5,.02,"DT")="3050908"
^DD(714.5,.03,0)="LTC LOS^NJ6,0I^^0;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(714.5,.03,3)="Enter the Long Term Care total Length of Stay."
^DD(714.5,.03,21,0)="^^3^3^3050908^"
^DD(714.5,.03,21,1,0)="This is the Long Term Care Length of Stay to be used for this "
^DD(714.5,.03,21,2,0)="calculation.  The LOS should exclude pass days, ASIH days and discharge "
^DD(714.5,.03,21,3,0)="date."
^DD(714.5,.03,"DT")="3050908"
^DD(714.5,.04,0)="LTC EXEMPT^SI^0:NO;1:YES;^0;4^Q"
^DD(714.5,.04,3)="Enter if the patient is exempt from LTC copayment."
^DD(714.5,.04,21,0)="^^2^2^3050908^"
^DD(714.5,.04,21,1,0)="This indicator specifies if the patient is designated as exempt for the "
^DD(714.5,.04,21,2,0)="specified date."
^DD(714.5,.04,"DT")="3050908"
^DD(714.5,.05,0)="EXEMPT REASON^P714.1'I^EAS(714.1,^0;5^Q"
^DD(714.5,.05,3)="Enter the reason the patient is exempt."
^DD(714.5,.05,21,0)="^^2^2^3050908^"
^DD(714.5,.05,21,1,0)="This is the reason for the exemption that was specified in the LTC EXEMPT"
^DD(714.5,.05,21,2,0)="(#.04) field."
^DD(714.5,.05,"DT")="3050908"
^DD(714.5,.06,0)="180 DAY MAX CHARGE^NJ8,2I^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(714.5,.06,3)="Enter the 180 day or less max charge."
^DD(714.5,.06,21,0)="^^2^2^3050908^"
^DD(714.5,.06,21,1,0)="This is the calculated value that a patient can be charged for the "
^DD(714.5,.06,21,2,0)="specified month if his stay is 180 days or less."
^DD(714.5,.06,"DT")="3050908"
^DD(714.5,.07,0)="GREATER THAN 180 DAY AMOUNT^NJ8,2I^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(714.5,.07,3)="Enter the greater than 180 day max charge."
^DD(714.5,.07,21,0)="^^2^2^3050908^"
^DD(714.5,.07,21,1,0)="This is the calculated value that a patient can be charged for the "
^DD(714.5,.07,21,2,0)="specified month if his stay is greater than 180 days."
^DD(714.5,.07,"DT")="3050908"
^DD(714.5,.08,0)="MAX OUTPATIENT CHARGE^NJ8,2I^^0;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0)!(X?.E1"".""3.N) X"
^DD(714.5,.08,3)="Enter the max outpatient LTC copay."
^DD(714.5,.08,21,0)="^^2^2^3050908^"
^DD(714.5,.08,21,1,0)="This is the calculated maximum charge the specified patient can be "
^DD(714.5,.08,21,2,0)="charged for LTC outpatient services for the month."
^DD(714.5,.08,"DT")="3050908"
^DD(714.5,.09,0)="DATE ADDED^DI^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(714.5,.09,3)="Enter the date this entry was added."
^DD(714.5,.09,5,1,0)="714.5^.01^2"
^DD(714.5,.09,9)="^"
^DD(714.5,.09,21,0)="^^2^2^3050908^"
^DD(714.5,.09,21,1,0)="This field is automatically populated based on the date this entry is "
^DD(714.5,.09,21,2,0)="added."
^DD(714.5,.09,"DT")="3050908"
^DD(714.5,"B","180 DAY MAX CHARGE",.06)=""
^DD(714.5,"B","DATE ADDED",.09)=""
^DD(714.5,"B","EXEMPT REASON",.05)=""
^DD(714.5,"B","GREATER THAN 180 DAY AMOUNT",.07)=""
^DD(714.5,"B","LAST DATE",.02)=""
^DD(714.5,"B","LTC EXEMPT",.04)=""
^DD(714.5,"B","LTC LOS",.03)=""
^DD(714.5,"B","MAX OUTPATIENT CHARGE",.08)=""
^DD(714.5,"B","PATIENT NAME",.01)=""
^DD(714.5,"GL",0,1,.01)=""
^DD(714.5,"GL",0,2,.02)=""
^DD(714.5,"GL",0,3,.03)=""
^DD(714.5,"GL",0,4,.04)=""
^DD(714.5,"GL",0,5,.05)=""
^DD(714.5,"GL",0,6,.06)=""
^DD(714.5,"GL",0,7,.07)=""
^DD(714.5,"GL",0,8,.08)=""
^DD(714.5,"GL",0,9,.09)=""
^DD(714.5,"IX",.01)=""
^DD(714.5,"IX",.02)=""
^DD(714.5,"RQ",.01)=""
^DD(720,0)="FIELD^^5^6"
^DD(720,0,"DDA")="N"
^DD(720,0,"DT")="2950913"
^DD(720,0,"IX","AC",720,.01)=""
^DD(720,0,"IX","AC1",720,2)=""
^DD(720,0,"IX","B",720,.01)=""
^DD(720,0,"IX","C",720,3)=""
^DD(720,0,"NM","*EVENT CAPTURE PROCEDURE")=""
^DD(720,0,"PT",721,8)=""
^DD(720,0,"VR")="2.0"
^DD(720,0,"VRPK")="EC"
^DD(720,0,"VRRV")=""
^DD(720,.01,0)="PROCEDURE NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(720,.01,1,0)="^.1"
^DD(720,.01,1,1,0)="720^B"
^DD(720,.01,1,1,1)="S ^ECP(""B"",$E(X,1,50),DA)="""""
^DD(720,.01,1,1,2)="K ^ECP(""B"",$E(X,1,50),DA)"
^DD(720,.01,1,2,0)="720^AC^MUMPS"
^DD(720,.01,1,2,1)="I $P(^ECP(DA,0),""^"",3) S ^ECP(""AC"",$P(^(0),""^""),DA)="""""
^DD(720,.01,1,2,2)="K ^ECP(""AC"",$P(^ECP(DA,0),""^""),DA)"
^DD(720,.01,1,2,3)="DO NOT DELETE"
^DD(720,.01,1,2,"%D",0)="^^3^3^2960401^^^"
^DD(720,.01,1,2,"%D",1,0)="This cross reference is used to control the display of categories."
^DD(720,.01,1,2,"%D",2,0)=" "
^DD(720,.01,1,2,"%D",3,0)="Defined as: ^ECP(""AC"",category,DA)="""""
^DD(720,.01,3)="Enter the name of this procedure (3 to 50 characters)."
^DD(720,.01,8.5)="^"
^DD(720,.01,21,0)="^^1^1^2970826^^^^"
^DD(720,.01,21,1,0)="This field contains the name of the procedure selected."
^DD(720,.01,23,0)="^^1^1^2970826^^^"
^DD(720,.01,23,1,0)="The free text name of the procedure for this entry."
^DD(720,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Procedures cannot be deleted."")"
^DD(720,.01,"DT")="2910319"
^DD(720,1,0)="NATIONAL NUMBER^RF^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(720,1,3)="Enter the national number for this procedure. If appropriate, enter a CPT code."
^DD(720,1,21,0)="^^5^5^2960401^^^^"
^DD(720,1,21,1,0)="This field contains the national number assigned to each"
^DD(720,1,21,2,0)="procedure."
^DD(720,1,21,3,0)=" "
^DD(720,1,21,4,0)="If this procedure represents a CPT code, enter the appropriate"
^DD(720,1,21,5,0)="CPT code."
^DD(720,1,23,0)="^^3^3^2960401^"
^DD(720,1,23,1,0)="National number that has been locally assigned to this procedure."
^DD(720,1,23,2,0)="If this procedure represents a CPT code, enter the appropriate"
^DD(720,1,23,3,0)="CPT code."
^DD(720,1,"DT")="2911212"
^DD(720,2,0)="CATEGORY (Y/N)^S^1:YES;0:NO;^0;3^Q"
^DD(720,2,1,0)="^.1"
^DD(720,2,1,1,0)="720^AC1^MUMPS"
^DD(720,2,1,1,1)="D AC^ECDSXREF"
^DD(720,2,1,1,2)="D KILLAC^ECDSXREF"
^DD(720,2,1,1,3)="DO NOT DELETE"
^DD(720,2,1,1,"%D",0)="^^3^3^2960401^^"
^DD(720,2,1,1,"%D",1,0)="This cross reference is used to control the display of categories. When"
^DD(720,2,1,1,"%D",2,0)="looking up categories, only entries for which this field is set to ""YES"""
^DD(720,2,1,1,"%D",3,0)="or ""1"" will be displayed."
^DD(720,2,1,1,"DT")="2960401"
^DD(720,2,3)="Enter ""YES"" or ""1"" to flag this procedure as a category."
^DD(720,2,21,0)="^^5^5^2960401^^"
^DD(720,2,21,1,0)="Enter ""YES"" or ""1"" if this procedure name should be displayed when"
^DD(720,2,21,2,0)="accessing categories. Procedures that do not have ""1"" entered"
^DD(720,2,21,3,0)="for this field will not appear when ""looking up"" categories."
^DD(720,2,21,4,0)="All categories must have ""1"" entered to be recognized by the"
^DD(720,2,21,5,0)="software."
^DD(720,2,23,0)="^^2^2^2960401^"
^DD(720,2,23,1,0)="Flag used to identify categories. Set to ""YES"" or ""1"" to flag this"
^DD(720,2,23,2,0)="procedure as a category."
^DD(720,2,"DT")="2960401"
^DD(720,3,0)="SYNONYM^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(720,3,1,0)="^.1"
^DD(720,3,1,1,0)="720^C"
^DD(720,3,1,1,1)="S ^ECP(""C"",$E(X,1,50),DA)="""""
^DD(720,3,1,1,2)="K ^ECP(""C"",$E(X,1,50),DA)"
^DD(720,3,3)="Enter your local procedure name using 3-50 characters."
^DD(720,3,21,0)="^^2^2^2960401^^^"
^DD(720,3,21,1,0)="This field contains the locally defined name for this category"
^DD(720,3,21,2,0)="or procedure."
^DD(720,3,23,0)="^^1^1^2960401^"
^DD(720,3,23,1,0)="The locally recognized name for this category or procedure."
^DD(720,3,"DT")="2900419"
^DD(720,4,0)="NUMBER OF PROCEDURES^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(720,4,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(720,4,21,0)="^^1^1^2960402^^^"
^DD(720,4,21,1,0)="This field tracks the volume of this procedure."
^DD(720,4,23,0)="^^1^1^2960402^^"
^DD(720,4,23,1,0)="The numeric volume associated with this procedure."
^DD(720,4,"DT")="2890410"
^DD(720,5,0)="VARIABLE POINTER^V^^V;1^Q"
^DD(720,5,3)="Enter the name of the procedure associated with this record."
^DD(720,5,21,0)="^^3^3^2970528^^^^"
^DD(720,5,21,1,0)="The variable pointer created from the NATIONAL NUMBER"
^DD(720,5,21,2,0)="field (1) will be used in the data conversion process for Event"
^DD(720,5,21,3,0)="Capture Version 2.0."
^DD(720,5,23,0)="^^2^2^2970528^^"
^DD(720,5,23,1,0)="Variable pointer to A. CPT file (#81) or B. EC NATIONAL PROCEDURE"
^DD(720,5,23,2,0)="file (#725)."
^DD(720,5,"DT")="2950913"
^DD(720,5,"V",0)="^.12P^2^2"
^DD(720,5,"V",1,0)="81^A^1^A^n^y"
^DD(720,5,"V",2,0)="725^B^2^B^n^y"
^DD(720,5,"V","B",81,1)=""
^DD(720,5,"V","B",725,2)=""
^DD(720,5,"V","M","A",1)=""
^DD(720,5,"V","M","B",2)=""
^DD(720,5,"V","O",1,1)=""
^DD(720,5,"V","O",2,2)=""
^DD(720,5,"V","P","A",1)=""
^DD(720,5,"V","P","B",2)=""
^DD(720,"B","CATEGORY (Y/N)",2)=""
^DD(720,"B","NATIONAL NUMBER",1)=""
^DD(720,"B","NUMBER OF PROCEDURES",4)=""
^DD(720,"B","PROCEDURE NAME",.01)=""
^DD(720,"B","SYNONYM",3)=""
^DD(720,"B","VARIABLE POINTER",5)=""
^DD(720,"GL",0,1,.01)=""
^DD(720,"GL",0,2,1)=""
^DD(720,"GL",0,3,2)=""
^DD(720,"GL",0,4,3)=""
^DD(720,"GL",0,5,4)=""
^DD(720,"GL","V",1,5)=""
^DD(720,"IX",.01)=""
^DD(720,"IX",2)=""
^DD(720,"IX",3)=""
^DD(720,"RQ",.01)=""
^DD(720,"RQ",1)=""
^DD(720.1,0)="FIELD^^1^2"
^DD(720.1,0,"DDA")="N"
^DD(720.1,0,"DT")="2960304"
^DD(720.1,0,"IX","B",720.1,.01)=""
^DD(720.1,0,"NM","EVENT CAPTURE LOG")=""
^DD(720.1,0,"VR")="2.0"
^DD(720.1,0,"VRPK")="EVENT CAPTURE"
^DD(720.1,.01,0)="NAME^RNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(720.1,.01,1,0)="^.1"
^DD(720.1,.01,1,1,0)="720.1^B"
^DD(720.1,.01,1,1,1)="S ^EC(720.1,""B"",$E(X,1,30),DA)="""""
^DD(720.1,.01,1,1,2)="K ^EC(720.1,""B"",$E(X,1,30),DA)"
^DD(720.1,.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(720.1,.01,21,0)="^^1^1^2960401^^^^"
^DD(720.1,.01,21,1,0)="This field is the record number for this entry in the file."
^DD(720.1,.01,23,0)="^^1^1^2960401^^"
^DD(720.1,.01,23,1,0)="Internal entry number of the record."
^DD(720.1,.01,"DT")="2960304"
^DD(720.1,1,0)="CONVERSION (V.2.0) DATE/TIME^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(720.1,1,3)="Enter the date and time the Event Capture V.2.0 software installation ran to completion."
^DD(720.1,1,21,0)="^^2^2^2960401^^^"
^DD(720.1,1,21,1,0)="This field contains the date and time that the Event Capture V.2.0"
^DD(720.1,1,21,2,0)="post installation conversion ran to completion."
^DD(720.1,1,23,0)="^^3^3^2960401^^^"
^DD(720.1,1,23,1,0)="Date and time that the Event Capture V.2.0 post installation"
^DD(720.1,1,23,2,0)="ran to completion. This date information is set during the"
^DD(720.1,1,23,3,0)="installation process."
^DD(720.1,1,"DT")="2960304"
^DD(720.1,"B","CONVERSION (V.2.0) DATE/TIME",1)=""
^DD(720.1,"B","NAME",.01)=""
^DD(720.1,"GL",0,1,.01)=""
^DD(720.1,"GL",0,2,1)=""
^DD(720.1,"IX",.01)=""
^DD(720.1,"RQ",.01)=""
^DD(720.2,0)="FIELD^^99^5"
^DD(720.2,0,"DDA")="N"
^DD(720.2,0,"DT")="2950404"
^DD(720.2,0,"IX","AC",720.2,1)=""
^DD(720.2,0,"IX","AD",720.2,99)=""
^DD(720.2,0,"IX","AP",720.2,.01)=""
^DD(720.2,0,"IX","AST",720.2,.01)=""
^DD(720.2,0,"IX","B",720.2,.01)=""
^DD(720.2,0,"NM","*EVENT CODE SCREENING")=""
^DD(720.2,0,"VR")="2.0"
^DD(720.2,0,"VRPK")="EC"
^DD(720.2,0,"VRRV")=""
^DD(720.2,.01,0)="EVENT CODE^RFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(720.2,.01,1,0)="^.1"
^DD(720.2,.01,1,1,0)="720.2^B"
^DD(720.2,.01,1,1,1)="S ^ECK(""B"",$E(X,1,30),DA)="""""
^DD(720.2,.01,1,1,2)="K ^ECK(""B"",$E(X,1,30),DA)"
^DD(720.2,.01,1,2,0)="720.2^AP^MUMPS"
^DD(720.2,.01,1,2,1)="D AP^ECDSXREF"
^DD(720.2,.01,1,2,2)="D KILLAP^ECDSXREF"
^DD(720.2,.01,1,2,3)="DO NOT DELETE"
^DD(720.2,.01,1,2,"%D",0)="^^11^11^2960402^^^^"
^DD(720.2,.01,1,2,"%D",1,0)="This cross reference creates a subscript for each component"
^DD(720.2,.01,1,2,"%D",2,0)="of the event code screen in a sequence of: location, DSS unit,"
^DD(720.2,.01,1,2,"%D",3,0)="category, procedure, and DA. This cross-reference also"
^DD(720.2,.01,1,2,"%D",4,0)="populates (creates) the ""APP"" cross reference in a sequence"
^DD(720.2,.01,1,2,"%D",5,0)="of: location, DSS unit, procedure, and DA. Only those event"
^DD(720.2,.01,1,2,"%D",6,0)="codes for the selected subscript will be displayed."
^DD(720.2,.01,1,2,"%D",7,0)="  "
^DD(720.2,.01,1,2,"%D",8,0)="Defined as:"
^DD(720.2,.01,1,2,"%D",9,0)="^ECK(""AP"",location,DSS unit,category, procedure,DA)="""""
^DD(720.2,.01,1,2,"%D",10,0)="and"
^DD(720.2,.01,1,2,"%D",11,0)="^ECK(""APP"",location,DSS unit,category,procedure,DA)="""""
^DD(720.2,.01,1,2,"DT")="2960401"
^DD(720.2,.01,1,3,0)="720.2^AST^MUMPS"
^DD(720.2,.01,1,3,1)="D AST^ECDSXREF"
^DD(720.2,.01,1,3,2)="D KAST^ECDSXREF"
^DD(720.2,.01,1,3,3)="DO NOT DELETE"
^DD(720.2,.01,1,3,"%D",0)="^^5^5^2960401^^^"
^DD(720.2,.01,1,3,"%D",1,0)="This cross reference is used to control the display of event"
^DD(720.2,.01,1,3,"%D",2,0)="codes based on the user selected location. Only those codes"
^DD(720.2,.01,1,3,"%D",3,0)="appropriate for the selected location will be displayed."
^DD(720.2,.01,1,3,"%D",4,0)="  "
^DD(720.2,.01,1,3,"%D",5,0)="Defined as: ^ECK(""AST"",location,DA)="""""
^DD(720.2,.01,1,3,"DT")="2960401"
^DD(720.2,.01,3)="Enter the event code screen for this entry."
^DD(720.2,.01,8.5)="^"
^DD(720.2,.01,9)="^"
^DD(720.2,.01,21,0)="^^5^5^2960402^^^^"
^DD(720.2,.01,21,1,0)="This field contains the information that makes up the event code "
^DD(720.2,.01,21,2,0)="screen."
^DD(720.2,.01,21,3,0)=" "
^DD(720.2,.01,21,4,0)="This information is grouped in the following order:"
^DD(720.2,.01,21,5,0)="Location # - DSS Unit # - Category # - Procedure #"
^DD(720.2,.01,23,0)="^^13^13^2960402^^"
^DD(720.2,.01,23,1,0)="The event code screen is defined as:"
^DD(720.2,.01,23,2,0)="Location # - DSS Unit # - Category # - Procedure # "
^DD(720.2,.01,23,3,0)=" "
^DD(720.2,.01,23,4,0)="Location is a pointer to the INSTITUTION file (#4)."
^DD(720.2,.01,23,5,0)=" "
^DD(720.2,.01,23,6,0)="DSS Unit is a pointer the DSS Unit file (#724)."
^DD(720.2,.01,23,7,0)=" "
^DD(720.2,.01,23,8,0)="Category is a pointer to the EVENT CAPTURE PROCEDURE"
^DD(720.2,.01,23,9,0)="file (#720). Category is flagged by the CATEGORY (Y/N)"
^DD(720.2,.01,23,10,0)="field (2)."
^DD(720.2,.01,23,11,0)=" "
^DD(720.2,.01,23,12,0)="Procedure is a pointer to the EVENT CAPTURE PROCEDURE"
^DD(720.2,.01,23,13,0)="file (#720)."
^DD(720.2,.01,"DT")="2960401"
^DD(720.2,1,0)="INACTIVE DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(720.2,1,1,0)="^.1"
^DD(720.2,1,1,1,0)="720.2^AC^MUMPS"
^DD(720.2,1,1,1,1)="D INACT^ECDSXREF"
^DD(720.2,1,1,1,2)="D ACTIV^ECDSXREF"
^DD(720.2,1,1,1,3)="DO NOT DELETE"
^DD(720.2,1,1,1,"%D",0)="^^11^11^2960402^^^^"
^DD(720.2,1,1,1,"%D",1,0)="This cross reference creates a subscript for each component"
^DD(720.2,1,1,1,"%D",2,0)="of the event code screen in a sequence of: location, DSS unit,"
^DD(720.2,1,1,1,"%D",3,0)="category, procedure, and DA. This cross-reference also"
^DD(720.2,1,1,1,"%D",4,0)="populates (creates) the ""APP"" cross reference in a sequence"
^DD(720.2,1,1,1,"%D",5,0)="of: location, DSS unit, procedure, and DA. Only those event"
^DD(720.2,1,1,1,"%D",6,0)="codes for the selected subscript will be displayed."
^DD(720.2,1,1,1,"%D",7,0)="  "
^DD(720.2,1,1,1,"%D",8,0)="Defined as:"
^DD(720.2,1,1,1,"%D",9,0)="^ECK(""AP"",location,DSS unit,category, procedure,DA)="""""
^DD(720.2,1,1,1,"%D",10,0)="and"
^DD(720.2,1,1,1,"%D",11,0)="^ECK(""APP"",location,DSS unit,category,procedure,DA)="""""
^DD(720.2,1,1,1,"DT")="2960401"
^DD(720.2,1,3)="Enter the date this event code screen was inactivated."
^DD(720.2,1,21,0)="^^1^1^2960401^^^"
^DD(720.2,1,21,1,0)="This field contains the date this event code screen was inactivated."
^DD(720.2,1,23,0)="^^1^1^2960401^"
^DD(720.2,1,23,1,0)="Date this screen was inactivated."
^DD(720.2,1,"DT")="2960401"
^DD(720.2,2,0)="CREATION DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(720.2,2,3)="Enter the date this event code screen was created."
^DD(720.2,2,21,0)="^^1^1^2960401^^"
^DD(720.2,2,21,1,0)="This field contains the date this event code screen was created."
^DD(720.2,2,23,0)="^^1^1^2960401^"
^DD(720.2,2,23,1,0)="The date this event code screen was created."
^DD(720.2,52.1,0)="ECSCREEN^V^^EC;1^Q"
^DD(720.2,52.1,3)="Enter the new procedure for this screen."
^DD(720.2,52.1,21,0)="^^4^4^2960401^"
^DD(720.2,52.1,21,1,0)="This field contains the name of the new procedure that was"
^DD(720.2,52.1,21,2,0)="converted during the post installation conversion process."
^DD(720.2,52.1,21,3,0)="Procedures can be selected from either the CPT file (#81) or"
^DD(720.2,52.1,21,4,0)="EC NATIONAL PROCEDURE file (#725)."
^DD(720.2,52.1,23,0)="^^3^3^2960401^"
^DD(720.2,52.1,23,1,0)="A variable pointer to either the A. CPT file (#81) or B. EC"
^DD(720.2,52.1,23,2,0)="NATIONAL PROCEDURE file (#725). The EC NATIONAL"
^DD(720.2,52.1,23,3,0)="PROCEDURE file (#725) also contains all locally defined procedures."
^DD(720.2,52.1,"DT")="2950404"
^DD(720.2,52.1,"V",0)="^.12P^2^2"
^DD(720.2,52.1,"V",1,0)="81^CPT^1^A^n^n"
^DD(720.2,52.1,"V",2,0)="725^EC NATIONAL PROCEDURE^2^B^n^n"
^DD(720.2,52.1,"V","B",81,1)=""
^DD(720.2,52.1,"V","B",725,2)=""
^DD(720.2,52.1,"V","M","CPT",1)=""
^DD(720.2,52.1,"V","M","EC NATIONAL PROCEDURE",2)=""
^DD(720.2,52.1,"V","O",1,1)=""
^DD(720.2,52.1,"V","O",2,2)=""
^DD(720.2,52.1,"V","P","A",1)=""
^DD(720.2,52.1,"V","P","B",2)=""
^DD(720.2,99,0)="WEST ROXBURY CODE^F^^WB;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(720.2,99,1,0)="^.1"
^DD(720.2,99,1,1,0)="720.2^AD"
^DD(720.2,99,1,1,1)="S ^ECK(""AD"",$E(X,1,30),DA)="""""
^DD(720.2,99,1,1,2)="K ^ECK(""AD"",$E(X,1,30),DA)"
^DD(720.2,99,3)="Enter the charge capture code for this event code screen."
^DD(720.2,99,21,0)="^^4^4^2960401^^^^"
^DD(720.2,99,21,1,0)="This field is used to store the charge capture code for data"
^DD(720.2,99,21,2,0)="collected prior to the development of the Event Capture"
^DD(720.2,99,21,3,0)="software. This code will be utilized by DSS pilot sites only."
^DD(720.2,99,21,4,0)="This code is not utilized in the Event Capture software."
^DD(720.2,99,23,0)="^^6^6^2960401^"
^DD(720.2,99,23,1,0)="Charge capture code for this procedure."
^DD(720.2,99,23,2,0)=" "
^DD(720.2,99,23,3,0)="This code will be transmitted to DSS for their use only. This"
^DD(720.2,99,23,4,0)="code is not utilized in the Event Capture software. The sites using"
^DD(720.2,99,23,5,0)="charge capture will locally provide the tools to populate this"
^DD(720.2,99,23,6,0)="field."
^DD(720.2,99,"DT")="2900928"
^DD(720.2,"B","CREATION DATE",2)=""
^DD(720.2,"B","ECSCREEN",52.1)=""
^DD(720.2,"B","EVENT CODE",.01)=""
^DD(720.2,"B","INACTIVE DATE",1)=""
^DD(720.2,"B","WEST ROXBURY CODE",99)=""
^DD(720.2,"GL",0,1,.01)=""
^DD(720.2,"GL",0,2,1)=""
^DD(720.2,"GL",0,3,2)=""
^DD(720.2,"GL","EC",1,52.1)=""
^DD(720.2,"GL","WB",1,99)=""
^DD(720.2,"IX",.01)=""
^DD(720.2,"IX",1)=""
^DD(720.2,"IX",99)=""
^DD(720.2,"RQ",.01)=""
^DD(720.3,0)="FIELD^^99^9"
^DD(720.3,0,"DDA")="N"
^DD(720.3,0,"DT")="2970305"
^DD(720.3,0,"IX","AD",720.3,99)=""
^DD(720.3,0,"IX","AP",720.3,.01)=""
^DD(720.3,0,"IX","AST",720.3,.01)=""
^DD(720.3,0,"IX","B",720.3,.01)=""
^DD(720.3,0,"IX","C",720.3,1)=""
^DD(720.3,0,"IX","SY",720.3,53)=""
^DD(720.3,0,"IX","SYN",720.3,53)=""
^DD(720.3,0,"NM","EC EVENT CODE SCREENS")=""
^DD(720.3,0,"PT",720.5,.02)=""
^DD(720.3,0,"VR")="2.0"
^DD(720.3,0,"VRPK")="EC"
^DD(720.3,.01,0)="EVENT CODE^RFO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(720.3,.01,1,0)="^.1"
^DD(720.3,.01,1,1,0)="720.3^B"
^DD(720.3,.01,1,1,1)="S ^ECJ(""B"",$E(X,1,30),DA)="""""
^DD(720.3,.01,1,1,2)="K ^ECJ(""B"",$E(X,1,30),DA)"
^DD(720.3,.01,1,2,0)="720.3^AP^MUMPS"
^DD(720.3,.01,1,2,1)="D AP^ECDSREF"
^DD(720.3,.01,1,2,2)="D KILLAP^ECDSREF"
^DD(720.3,.01,1,2,3)="DO NOT DELETE"
^DD(720.3,.01,1,2,"%D",0)="^^11^11^2960402^^^^"
^DD(720.3,.01,1,2,"%D",1,0)="This cross reference creates a subscript for each component"
^DD(720.3,.01,1,2,"%D",2,0)="of the event code screen in a sequence of: location, DSS unit,"
^DD(720.3,.01,1,2,"%D",3,0)="category, procedure, and DA. This cross-reference also"
^DD(720.3,.01,1,2,"%D",4,0)="populates (creates) the ""APP"" cross reference in a sequence"
^DD(720.3,.01,1,2,"%D",5,0)="of: location, DSS unit, procedure, and DA. Only those event"
^DD(720.3,.01,1,2,"%D",6,0)="codes for the selected subscript will be displayed."
^DD(720.3,.01,1,2,"%D",7,0)=" "
^DD(720.3,.01,1,2,"%D",8,0)="Defined as:"
^DD(720.3,.01,1,2,"%D",9,0)="^ECJ(""AP"",location,DSS unit,category, procedure,DA)="""""
^DD(720.3,.01,1,2,"%D",10,0)="and"
^DD(720.3,.01,1,2,"%D",11,0)="^ECJ(""APP"",location,DSS unit,category,procedure,DA)="""""
^DD(720.3,.01,1,2,"DT")="2960401"
^DD(720.3,.01,1,3,0)="720.3^AST^MUMPS"
^DD(720.3,.01,1,3,1)="D AST^ECDSREF"
^DD(720.3,.01,1,3,2)="D KAST^ECDSREF"
^DD(720.3,.01,1,3,3)="DO NOT DELETE"
^DD(720.3,.01,1,3,"%D",0)="^^5^5^2960401^^^^"
^DD(720.3,.01,1,3,"%D",1,0)="This cross reference is used to control the display of event"
^DD(720.3,.01,1,3,"%D",2,0)="codes based on the user selected location. Only those codes"
^DD(720.3,.01,1,3,"%D",3,0)="appropriate for the selected location will be displayed."
^DD(720.3,.01,1,3,"%D",4,0)=" "
^DD(720.3,.01,1,3,"%D",5,0)="Defined as: ^ECJ(""AST"",location,DA)="""""
^DD(720.3,.01,1,3,"DT")="2950405"
^DD(720.3,.01,2)="S Y(0)=Y S Y=$P(Y,"";"")_""  (""_$S($E($P(Y,"";"",2))=""I"":""CPT"",1:""NATIONAL PROCEDURE FILE"")_"")"""
^DD(720.3,.01,2.1)="S Y=$P(Y,"";"")_""  (""_$S($E($P(Y,"";"",2))=""I"":""CPT"",1:""NATIONAL PROCEDURE FILE"")_"")"""
^DD(720.3,.01,3)="Enter the event code screen for this entry."
^DD(720.3,.01,8.5)="^"
^DD(720.3,.01,9)="^"
^DD(720.3,.01,21,0)="^^5^5^2960402^^^^"
^DD(720.3,.01,21,1,0)="This field contains the information that makes up the event"
^DD(720.3,.01,21,2,0)="code screen."
^DD(720.3,.01,21,3,0)=" "
^DD(720.3,.01,21,4,0)="This information is grouped in the following order:"
^DD(720.3,.01,21,5,0)="Location # - DSS Unit # - Category # - Procedure #"
^DD(720.3,.01,23,0)="^^15^15^2960402^^^"
^DD(720.3,.01,23,1,0)="The event code screen is defined as:"
^DD(720.3,.01,23,2,0)="Location # - DSS Unit # - Category # - Procedure # "
^DD(720.3,.01,23,3,0)=" "
^DD(720.3,.01,23,4,0)="Location is a pointer to the INSTITUTION file (#4)."
^DD(720.3,.01,23,5,0)=" "
^DD(720.3,.01,23,6,0)="DSS Unit is a pointer the DSS Unit file (#724)."
^DD(720.3,.01,23,7,0)=" "
^DD(720.3,.01,23,8,0)="Category is optionally used within each DSS Unit to group"
^DD(720.3,.01,23,9,0)="procedures. When utilized, category is a pointer to the EVENT "
^DD(720.3,.01,23,10,0)="CAPTURE CATEGORY file (#726). Otherwise it is a zero (0)."
^DD(720.3,.01,23,11,0)="When category is not used and stored as a zero (0), it is shown"
^DD(720.3,.01,23,12,0)="with the name ""None"" on all display screens and reports."
^DD(720.3,.01,23,13,0)=" "
^DD(720.3,.01,23,14,0)="Procedure is a variable pointer to A. CPT file (#81) or "
^DD(720.3,.01,23,15,0)="B. EC NATIONAL PROCEDURE file (#725)."
^DD(720.3,.01,"DT")="2960401"
^DD(720.3,1,0)="INACTIVE DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(720.3,1,1,0)="^.1"
^DD(720.3,1,1,1,0)="720.3^C"
^DD(720.3,1,1,1,1)="S ^ECJ(""C"",$E(X,1,30),DA)="""""
^DD(720.3,1,1,1,2)="K ^ECJ(""C"",$E(X,1,30),DA)"
^DD(720.3,1,1,1,"DT")="2950411"
^DD(720.3,1,3)="Enter the date this event code screen was inactivated."
^DD(720.3,1,21,0)="^^1^1^2960401^^^"
^DD(720.3,1,21,1,0)="This is the date that this event code screen was inactivated."
^DD(720.3,1,23,0)="^^1^1^2960401^"
^DD(720.3,1,23,1,0)="The date this event code screen was inactivated."
^DD(720.3,1,"DT")="2950411"
^DD(720.3,2,0)="CREATION DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(720.3,2,3)="Enter the date this event code screen was created."
^DD(720.3,2,21,0)="^^1^1^2960401^^"
^DD(720.3,2,21,1,0)="This is the date that this event code screen was created."
^DD(720.3,2,23,0)="^^1^1^2960401^"
^DD(720.3,2,23,1,0)="The date this event code screen was created."
^DD(720.3,52.1,0)="PROCEDURE^V^^PRO;1^Q"
^DD(720.3,52.1,.1)="Procedure"
^DD(720.3,52.1,1,0)="^.1^^0"
^DD(720.3,52.1,3)="Enter the new procedure for this screen."
^DD(720.3,52.1,21,0)="^^3^3^2960401^^^"
^DD(720.3,52.1,21,1,0)="This field contains the name of this procedure. Procedures can"
^DD(720.3,52.1,21,2,0)="be selected from either the CPT file (#81) or EC NATIONAL"
^DD(720.3,52.1,21,3,0)="PROCEDURE file (#725)."
^DD(720.3,52.1,23,0)="^^3^3^2960401^^^"
^DD(720.3,52.1,23,1,0)="A variable pointer to either the A. CPT file (#81) or B. EC"
^DD(720.3,52.1,23,2,0)="NATIONAL PROCEDURE file (#725). The EC NATIONAL"
^DD(720.3,52.1,23,3,0)="PROCEDURE file (#725) also contains the locally defined procedures."
^DD(720.3,52.1,"DT")="2950511"
^DD(720.3,52.1,"V",0)="^.12P^2^2"
^DD(720.3,52.1,"V",1,0)="81^CPT^1^A^n^n"
^DD(720.3,52.1,"V",2,0)="725^EC NAT PROCEDURE^2^B^n^n"
^DD(720.3,52.1,"V","B",81,1)=""
^DD(720.3,52.1,"V","B",725,2)=""
^DD(720.3,52.1,"V","M","CPT",1)=""
^DD(720.3,52.1,"V","M","EC NAT PROCEDURE",2)=""
^DD(720.3,52.1,"V","O",1,1)=""
^DD(720.3,52.1,"V","O",2,2)=""
^DD(720.3,52.1,"V","P","A",1)=""
^DD(720.3,52.1,"V","P","B",2)=""
^DD(720.3,53,0)="SYNONYM^F^^PRO;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(720.3,53,.1)="Synonym"
^DD(720.3,53,1,0)="^.1"
^DD(720.3,53,1,1,0)="720.3^SY^MUMPS"
^DD(720.3,53,1,1,1)="S ^ECJ(""SY"",DA,$E(X,1,50))="""""
^DD(720.3,53,1,1,2)="K ^ECJ(""SY"",DA,$E(X,1,50))"
^DD(720.3,53,1,1,3)="DO NOT DELETE"
^DD(720.3,53,1,1,"%D",0)="^^3^3^2960401^^"
^DD(720.3,53,1,1,"%D",1,0)="This cross reference is used in identifying the synonym."
^DD(720.3,53,1,1,"%D",2,0)=" "
^DD(720.3,53,1,1,"%D",3,0)="Defined as: ^ECJ(""SY"",DA,synonym)="""""
^DD(720.3,53,1,1,"DT")="2950511"
^DD(720.3,53,1,2,0)="720.3^SYN^MUMPS"
^DD(720.3,53,1,2,1)="S ^ECJ(""SYN"",$E(X,1,50),DA)="""""
^DD(720.3,53,1,2,2)="K ^ECJ(""SYN"",$E(X,1,50),DA)"
^DD(720.3,53,1,2,3)="DO NOT DELETE"
^DD(720.3,53,1,2,"%D",0)="^^3^3^2960401^"
^DD(720.3,53,1,2,"%D",1,0)="This cross reference is used in identifying the synonym."
^DD(720.3,53,1,2,"%D",2,0)=" "
^DD(720.3,53,1,2,"%D",3,0)="Defined as: ^ECJ(""SYN"",synonym,DA)="""""
^DD(720.3,53,1,2,"DT")="2950511"
^DD(720.3,53,3)="Enter the name that is recognized locally for this event code screen."
^DD(720.3,53,21,0)="^^5^5^2960401^^"
^DD(720.3,53,21,1,0)="This field contains the synonym for the procedure associated with"
^DD(720.3,53,21,2,0)="this event code screen. This synonym can be created locally, using"
^DD(720.3,53,21,3,0)="the Procedure Synonym/Default Volume (Enter/Edit) option, which"
^DD(720.3,53,21,4,0)="will allow easy recognition of standard procedures codes. Access to"
^DD(720.3,53,21,5,0)="this option is restricted to the Event Capture Management Menu."
^DD(720.3,53,23,0)="^^1^1^2960401^"
^DD(720.3,53,23,1,0)="Free text name that is recognized locally for this event code screen."
^DD(720.3,53,"DT")="2950511"
^DD(720.3,54,0)="VOLUME^NJ3,0^^PRO;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(720.3,54,.1)="Volume"
^DD(720.3,54,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(720.3,54,21,0)="^^6^6^2960401^^"
^DD(720.3,54,21,1,0)="This is the default volume associated with this event code screen."
^DD(720.3,54,21,2,0)="It contains the number of procedures performed or the time"
^DD(720.3,54,21,3,0)="actually spent performing the procedures. This default volume"
^DD(720.3,54,21,4,0)="can be created using the Procedure Synonym/Default Volume"
^DD(720.3,54,21,5,0)="(Enter/Edit) option. Access to this option is restricted to the"
^DD(720.3,54,21,6,0)="Event Capture Management Menu. "
^DD(720.3,54,23,0)="^^1^1^2960401^"
^DD(720.3,54,23,1,0)="The numeric volume locally associated with this event code screen."
^DD(720.3,54,"DT")="2950511"
^DD(720.3,55,0)="ASSOCIATED CLINIC^*P44'X^SC(^PRO;4^S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""""" D ^DIC K DIC S DIC=DIE,(X,ECYCLN)=+Y K:'+$$CLNCK^SDUTL2(+Y,0) X"
^DD(720.3,55,.1)="Associated Clinic"
^DD(720.3,55,3)="Enter the clinic associated with this event code screen."
^DD(720.3,55,4)="I $G(ECYCLN)>0 D:'+$$CLNCK^SDUTL2(ECYCLN,1) EN^DDIOL(""     Clinic MUST be corrected before selecting."") K ECYCLN"
^DD(720.3,55,12)="Allows selection of Clinic entries only."
^DD(720.3,55,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""""""
^DD(720.3,55,21,0)="^.001^1^1^3041015^^^"
^DD(720.3,55,21,1,0)="This is the clinic associated with this event code screen."
^DD(720.3,55,23,0)="^.001^3^3^3041015^^"
^DD(720.3,55,23,1,0)="Pointer to the HOSPITAL LOCATION file (#44).  These entries  are"
^DD(720.3,55,23,2,0)="screened by TYPE field (2).  Only entries with a TYPE of C for"
^DD(720.3,55,23,3,0)="Clinic may be selected."
^DD(720.3,55,"DT")="3040428"
^DD(720.3,56,0)="PROCEDURE REASONS INDICATOR^RS^0:NO;1:YES;^PRO;5^Q"
^DD(720.3,56,.1)="Ask Procedure Reason(s) for this Event Code Screen? "
^DD(720.3,56,3)="Will procedure reason(s) be associated with this event code screen?"
^DD(720.3,56,21,0)="^^3^3^2970815^^"
^DD(720.3,56,21,1,0)="If this field is answered 'YES', procedure reason(s) may be added to the"
^DD(720.3,56,21,2,0)="event code screen.  This will allow the user to select a procedure reason"
^DD(720.3,56,21,3,0)="for a patient's procedure during Event Capture data entry."
^DD(720.3,56,23,0)="^^4^4^2970815^"
^DD(720.3,56,23,1,0)="One or more proecedure reasons may be associated with this event code"
^DD(720.3,56,23,2,0)="screen.  During Event Capture data entry, the user will then be allowed to"
^DD(720.3,56,23,3,0)="choose one procedure reason based on the procedure reason(s) entered for"
^DD(720.3,56,23,4,0)="the event code screen."
^DD(720.3,56,"DT")="2970815"
^DD(720.3,99,0)="CHARGE CAPTURE CODE^F^^WB;1^K:$L(X)>50!($L(X)<1) X"
^DD(720.3,99,1,0)="^.1"
^DD(720.3,99,1,1,0)="720.3^AD"
^DD(720.3,99,1,1,1)="S ^ECJ(""AD"",$E(X,1,30),DA)="""""
^DD(720.3,99,1,1,2)="K ^ECJ(""AD"",$E(X,1,30),DA)"
^DD(720.3,99,1,1,3)="DO NOT DELETE"
^DD(720.3,99,1,1,"%D",0)="^^2^2^2960401^^"
^DD(720.3,99,1,1,"%D",1,0)="This cross reference will be used by the Decision Support System (DSS)"
^DD(720.3,99,1,1,"%D",2,0)="Extracts when extracting data to the commercial software."
^DD(720.3,99,1,1,"DT")="2960303"
^DD(720.3,99,3)="Enter the charge capture code for this event code screen."
^DD(720.3,99,21,0)="^^4^4^2960401^^"
^DD(720.3,99,21,1,0)="This field is used to store the charge capture code for data"
^DD(720.3,99,21,2,0)="collected prior to the development of the Event Capture"
^DD(720.3,99,21,3,0)="software. This code will be utilized by DSS pilot sites only."
^DD(720.3,99,21,4,0)="This code is not utilized in the Event Capture software."
^DD(720.3,99,23,0)="^^6^6^2960401^"
^DD(720.3,99,23,1,0)="Charge capture code for this procedure."
^DD(720.3,99,23,2,0)=" "
^DD(720.3,99,23,3,0)="This code will be transmitted to DSS for their use only. This"
^DD(720.3,99,23,4,0)="code is not utilized in the Event Capture software. The sites using"
^DD(720.3,99,23,5,0)="charge capture will locally provide the tools to populate this"
^DD(720.3,99,23,6,0)="field."
^DD(720.3,99,"DT")="2960401"
^DD(720.3,"B","ASSOCIATED CLINIC",55)=""
^DD(720.3,"B","Associated Clinic",55)="1"
^DD(720.3,"B","CHARGE CAPTURE CODE",99)=""
^DD(720.3,"B","CREATION DATE",2)=""
^DD(720.3,"B","EVENT CODE",.01)=""
^DD(720.3,"B","INACTIVE DATE",1)=""
^DD(720.3,"B","PROCEDURE",52.1)=""
^DD(720.3,"B","PROCEDURE REASONS INDICATOR",56)=""
^DD(720.3,"B","Procedure",52.1)="1"
^DD(720.3,"B","SYNONYM",53)=""
^DD(720.3,"B","Synonym",53)="1"
^DD(720.3,"B","VOLUME",54)=""
^DD(720.3,"B","Volume",54)="1"
^DD(720.3,"GL",0,1,.01)=""
^DD(720.3,"GL",0,2,1)=""
^DD(720.3,"GL",0,3,2)=""
^DD(720.3,"GL","PRO",1,52.1)=""
^DD(720.3,"GL","PRO",2,53)=""
^DD(720.3,"GL","PRO",3,54)=""
^DD(720.3,"GL","PRO",4,55)=""
^DD(720.3,"GL","PRO",5,56)=""
^DD(720.3,"GL","WB",1,99)=""
^DD(720.3,"IX",.01)=""
^DD(720.3,"IX",1)=""
^DD(720.3,"IX",53)=""
^DD(720.3,"IX",99)=""
^DD(720.3,"RQ",.01)=""
^DD(720.3,"RQ",56)=""
^DD(720.4,0)="FIELD^^.02^2"
^DD(720.4,0,"DDA")="N"
^DD(720.4,0,"DT")="2970624"
^DD(720.4,0,"IX","B",720.4,.01)=""
^DD(720.4,0,"NM","EC PROCEDURE REASON")=""
^DD(720.4,0,"PT",720.5,.01)=""
^DD(720.4,0,"VR")="2.0"
^DD(720.4,0,"VRPK")="EC"
^DD(720.4,.01,0)="PROCEDURE REASON^F^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(720.4,.01,1,0)="^.1"
^DD(720.4,.01,1,1,0)="720.4^B"
^DD(720.4,.01,1,1,1)="S ^ECR(""B"",$E(X,1,30),DA)="""""
^DD(720.4,.01,1,1,2)="K ^ECR(""B"",$E(X,1,30),DA)"
^DD(720.4,.01,3)="Enter the procedure reason associated with the patient's procedure."
^DD(720.4,.01,21,0)="^^2^2^2970925^^^^"
^DD(720.4,.01,21,1,0)="This field contains the procedure reason used to further define the"
^DD(720.4,.01,21,2,0)="patient's procedure."
^DD(720.4,.01,23,0)="^^2^2^2970925^^^^"
^DD(720.4,.01,23,1,0)="This field is populated during the creation or edit of the event code"
^DD(720.4,.01,23,2,0)="screen defined for the procedure."
^DD(720.4,.01,"DT")="2970624"
^DD(720.4,.02,0)="ACTIVE?^S^0:NO;1:YES;^0;2^Q"
^DD(720.4,.02,3)="Is this procedure reason available for use?"
^DD(720.4,.02,21,0)="^^4^4^2970815^^"
^DD(720.4,.02,21,1,0)="If this field is answered 'YES', the procedure reason will be displayed"
^DD(720.4,.02,21,2,0)="during data entry for the user to select.  If this field is answered 'NO',"
^DD(720.4,.02,21,3,0)="the procedure reason will be considered inactive and will not be displayed"
^DD(720.4,.02,21,4,0)="or selectable during data entry."
^DD(720.4,.02,23,0)="^^1^1^2970815^"
^DD(720.4,.02,23,1,0)="This field will indicate whether a procedure reason is active or inactive."
^DD(720.4,.02,"DT")="2970624"
^DD(720.4,"B","ACTIVE?",.02)=""
^DD(720.4,"B","PROCEDURE REASON",.01)=""
^DD(720.4,"GL",0,1,.01)=""
^DD(720.4,"GL",0,2,.02)=""
^DD(720.4,"IX",.01)=""
^DD(720.5,0)="FIELD^^.02^2"
^DD(720.5,0,"DDA")="N"
^DD(720.5,0,"DT")="2970625"
^DD(720.5,0,"IX","AC",720.5,.01)=""
^DD(720.5,0,"IX","AD",720.5,.02)=""
^DD(720.5,0,"IX","B",720.5,.01)=""
^DD(720.5,0,"NM","EC EVENT CODE SCREENS/PROC REASON LINK")=""
^DD(720.5,0,"PT",721,34)=""
^DD(720.5,0,"VR")="2.0"
^DD(720.5,0,"VRPK")="EC"
^DD(720.5,.01,0)="PROCEDURE REASON^P720.4'^ECR(^0;1^Q"
^DD(720.5,.01,1,0)="^.1"
^DD(720.5,.01,1,1,0)="720.5^B"
^DD(720.5,.01,1,1,1)="S ^ECL(""B"",$E(X,1,30),DA)="""""
^DD(720.5,.01,1,1,2)="K ^ECL(""B"",$E(X,1,30),DA)"
^DD(720.5,.01,1,2,0)="720.5^AC^MUMPS"
^DD(720.5,.01,1,2,1)="D SAC^ECDUTL"
^DD(720.5,.01,1,2,2)="D KAC^ECDUTL"
^DD(720.5,.01,1,2,3)="DO NOT DELETE"
^DD(720.5,.01,1,2,"%D",0)="^^3^3^2970829^^"
^DD(720.5,.01,1,2,"%D",1,0)="This cross reference is used to sort by procedure reason and event code"
^DD(720.5,.01,1,2,"%D",2,0)="screen and is defined as follows:"
^DD(720.5,.01,1,2,"%D",3,0)="        ^ECL(""AC"",procedure reason IEN, event code screen IEN, DA)"
^DD(720.5,.01,1,2,"DT")="2970815"
^DD(720.5,.01,3)="Enter the pointer to the EC Procedure Reason file (#720.4)."
^DD(720.5,.01,21,0)="^^2^2^2970815^"
^DD(720.5,.01,21,1,0)="This field contains the pointer to the procedure reason associated"
^DD(720.5,.01,21,2,0)="with the event code screen."
^DD(720.5,.01,23,0)="^^2^2^2970815^"
^DD(720.5,.01,23,1,0)="This field is populated when a procedure reason is added to an event"
^DD(720.5,.01,23,2,0)="code screen."
^DD(720.5,.01,"DT")="2970815"
^DD(720.5,.02,0)="EVENT CODE SCREEN^P720.3'^ECJ(^0;2^Q"
^DD(720.5,.02,1,0)="^.1"
^DD(720.5,.02,1,1,0)="720.5^AD^MUMPS"
^DD(720.5,.02,1,1,1)="S ^ECL(""AD"",+X,+$P($G(^ECL(DA,0)),""^""),DA)="""""
^DD(720.5,.02,1,1,2)="K ^ECL(""AD"",+X,+$P($G(^ECL(DA,0)),""^""),DA)"
^DD(720.5,.02,1,1,3)="DO NOT DELETE"
^DD(720.5,.02,1,1,"%D",0)="^^3^3^2970829^^^"
^DD(720.5,.02,1,1,"%D",1,0)="This cross reference is used to sort by event code screen and procedure"
^DD(720.5,.02,1,1,"%D",2,0)="reason and is defined as follows:"
^DD(720.5,.02,1,1,"%D",3,0)="        ^ECL(""AD"",event code screen IEN,procedure reason IEN,DA)"
^DD(720.5,.02,1,1,"DT")="2970625"
^DD(720.5,.02,3)="Enter the pointer to the Event Code Screen file (#720.3)."
^DD(720.5,.02,21,0)="^^2^2^2970815^^^^"
^DD(720.5,.02,21,1,0)="This field contains the pointer to the procedure reason associated with"
^DD(720.5,.02,21,2,0)="the event code screen."
^DD(720.5,.02,23,0)="^^2^2^2970815^"
^DD(720.5,.02,23,1,0)="This field is populated when a procedure reason is added to an event"
^DD(720.5,.02,23,2,0)="code screen."
^DD(720.5,.02,"DT")="2970625"
^DD(720.5,"B","EVENT CODE SCREEN",.02)=""
^DD(720.5,"B","PROCEDURE REASON",.01)=""
^DD(720.5,"GL",0,1,.01)=""
^DD(720.5,"GL",0,2,.02)=""
^DD(720.5,"IX",.01)=""
^DD(720.5,"IX",.02)=""
^DD(721,0)="FIELD^^40^41"
^DD(721,0,"DDA")="N"
^DD(721,0,"DT")="2970311"
^DD(721,0,"IX","AC",721,2)=""
^DD(721,0,"IX","AC1",721,2)=""
^DD(721,0,"IX","AC2",721,3)=""
^DD(721,0,"IX","AD",721,31)=""
^DD(721,0,"IX","ADT",721,2)=""
^DD(721,0,"IX","ADT1",721,.01)=""
^DD(721,0,"IX","ADTL",721,3)=""
^DD(721,0,"IX","ADTP",721,1)=""
^DD(721,0,"IX","ADTU",721,6)=""
^DD(721,0,"IX","AE",721,28)=""
^DD(721,0,"IX","APAT",721,1)=""
^DD(721,0,"IX","APAT1",721,2)=""
^DD(721,0,"IX","B",721,.01)=""
^DD(721,0,"IX","C",721,28)=""
^DD(721,0,"NM","EVENT CAPTURE PATIENT")=""
^DD(721,0,"VR")="2.0"
^DD(721,0,"VRPK")="EC"
^DD(721,0,"VRRV")="^EC*2*5"
^DD(721,.01,0)="RECORD NUMBER^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(721,.01,1,0)="^.1"
^DD(721,.01,1,1,0)="721^B"
^DD(721,.01,1,1,1)="S ^ECH(""B"",$E(X,1,30),DA)="""""
^DD(721,.01,1,1,2)="K ^ECH(""B"",$E(X,1,30),DA)"
^DD(721,.01,1,2,0)="721^ADT1^MUMPS"
^DD(721,.01,1,2,1)="Q"
^DD(721,.01,1,2,2)="D KADT^ECDUTL"
^DD(721,.01,1,2,3)="DO NOT DELETE"
^DD(721,.01,1,2,"%D",0)="^^4^4^2960401^^^^"
^DD(721,.01,1,2,"%D",1,0)="This cross reference uses location, patient, DSS unit, and date and time"
^DD(721,.01,1,2,"%D",2,0)="to list data in the package summary reports."
^DD(721,.01,1,2,"%D",3,0)=" "
^DD(721,.01,1,2,"%D",4,0)="Defined as: ^ECH(""ADT"",location,patient,DSS unit,date and time,DA)="""""
^DD(721,.01,1,2,"DT")="2960227"
^DD(721,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits."
^DD(721,.01,21,0)="^^1^1^2960401^^"
^DD(721,.01,21,1,0)="This field contains the record number for this entry."
^DD(721,.01,23,0)="^^1^1^2960401^"
^DD(721,.01,23,1,0)="The internal entry number (IEN) for this record."
^DD(721,.01,"DT")="2960227"
^DD(721,1,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(721,1,1,0)="^.1"
^DD(721,1,1,1,0)="721^APAT^MUMPS"
^DD(721,1,1,1,1)="D APAT^ECDUTL"
^DD(721,1,1,1,2)="D KAPAT^ECDUTL"
^DD(721,1,1,1,3)="DO NOT DELETE"
^DD(721,1,1,1,"%D",0)="^^4^4^2960401^^^"
^DD(721,1,1,1,"%D",1,0)="This cross reference is used in printing patient specific reports in"
^DD(721,1,1,1,"%D",2,0)="the Event Capture software."
^DD(721,1,1,1,"%D",3,0)=" "
^DD(721,1,1,1,"%D",4,0)="Defined as ^ECH(""APAT"",patient,date and time,DA)="""""
^DD(721,1,1,1,"DT")="2960224"
^DD(721,1,1,2,0)="721^ADTP^MUMPS"
^DD(721,1,1,2,1)="D ADTP^ECDUTL"
^DD(721,1,1,2,2)="D KADTP^ECDUTL"
^DD(721,1,1,2,3)="DO NOT DELETE"
^DD(721,1,1,2,"%D",0)="^^4^4^2960401^^"
^DD(721,1,1,2,"%D",1,0)="This cross reference is used in generating patient specific reports"
^DD(721,1,1,2,"%D",2,0)="within the Event Capture software."
^DD(721,1,1,2,"%D",3,0)=" "
^DD(721,1,1,2,"%D",4,0)="Defined as: ^ECH(""ADT"",location,patient,DSS unit,date and time,DA)="""""
^DD(721,1,1,2,"DT")="2960227"
^DD(721,1,3)="Enter the name of the patient for this procedure."
^DD(721,1,21,0)="^^1^1^2960401^^^^"
^DD(721,1,21,1,0)="This is the name of the patient for which this procedure occurred."
^DD(721,1,23,0)="^^1^1^2960401^"
^DD(721,1,23,1,0)="A pointer to the PATIENT file (#2) for this record."
^DD(721,1,"DT")="2960227"
^DD(721,2,0)="DATE/TIME OF PROCEDURE^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(721,2,1,0)="^.1"
^DD(721,2,1,1,0)="721^ADT^MUMPS"
^DD(721,2,1,1,1)="D ADT^ECDUTL"
^DD(721,2,1,1,2)="D KILLADT^ECDUTL"
^DD(721,2,1,1,3)="DO NOT DELETE"
^DD(721,2,1,1,"%D",0)="^^4^4^2960401^^^^"
^DD(721,2,1,1,"%D",1,0)="This cross reference uses location, patient, DSS unit, and date and time "
^DD(721,2,1,1,"%D",2,0)="to list data in the package summary reports."
^DD(721,2,1,1,"%D",3,0)=" "
^DD(721,2,1,1,"%D",4,0)="Defined as: ^ECH(""ADT"",location,patient,DSS unit,date and time,DA)="""""
^DD(721,2,1,1,"DT")="2960227"
^DD(721,2,1,2,0)="721^AC"
^DD(721,2,1,2,1)="S ^ECH(""AC"",$E(X,1,30),DA)="""""
^DD(721,2,1,2,2)="K ^ECH(""AC"",$E(X,1,30),DA)"
^DD(721,2,1,3,0)="721^AC1^MUMPS"
^DD(721,2,1,3,1)="Q:$P(^ECH(DA,0),U,4)']""""  S ^ECH(""AC1"",$P(^(0),U,4),X,DA)="""""
^DD(721,2,1,3,2)="Q:$P(^ECH(DA,0),U,4)']""""  K ^ECH(""AC1"",$P(^(0),U,4),X,DA)"
^DD(721,2,1,3,3)="DO NOT DELETE"
^DD(721,2,1,3,"%D",0)="^^4^4^2960401^^^^"
^DD(721,2,1,3,"%D",1,0)="This cross reference uses location and date and time to list"
^DD(721,2,1,3,"%D",2,0)="data in the package summary reports."
^DD(721,2,1,3,"%D",3,0)=" "
^DD(721,2,1,3,"%D",4,0)="Defined as: ^ECH(""AC1"",location,date and time,DA)="""""
^DD(721,2,1,4,0)="721^APAT1^MUMPS"
^DD(721,2,1,4,1)="D APAT1^ECDUTL"
^DD(721,2,1,4,2)="D KAPAT1^ECDUTL"
^DD(721,2,1,4,3)="DO NOT DELETE"
^DD(721,2,1,4,"%D",0)="^^4^4^2960401^^^"
^DD(721,2,1,4,"%D",1,0)="This cross reference is used in printing patient specific reports in"
^DD(721,2,1,4,"%D",2,0)="the Event Capture software."
^DD(721,2,1,4,"%D",3,0)=" "
^DD(721,2,1,4,"%D",4,0)="Defined as ^ECH(""APAT"",patient,date and time,DA)="""""
^DD(721,2,1,4,"DT")="2960224"
^DD(721,2,3)="Enter   date and time this procedure was performed."
^DD(721,2,21,0)="^^1^1^2961203^^^^"
^DD(721,2,21,1,0)="This field contains the date and time of this procedure."
^DD(721,2,23,0)="^^1^1^2961203^^^^"
^DD(721,2,23,1,0)="Date and time of this patient procedure. Time is now required."
^DD(721,2,"DT")="2961203"
^DD(721,3,0)="LOCATION^R*P4'^DIC(4,^0;4^S DIC(""S"")=""I $D(^DIC(4,""""LOC"""",$P(^DIC(4,+Y,0),""""^""""),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(721,3,1,0)="^.1"
^DD(721,3,1,1,0)="721^AC2^MUMPS"
^DD(721,3,1,1,1)="Q:$P(^ECH(DA,0),U,3)']""""  S ^ECH(""AC1"",X,$P(^(0),U,3),DA)="""""
^DD(721,3,1,1,2)="Q:$P(^ECH(DA,0),U,3)']""""  K ^ECH(""AC1"",X,$P(^(0),U,3),DA)"
^DD(721,3,1,1,3)="DO NOT DELETE"
^DD(721,3,1,1,"%D",0)="^^4^4^2960401^^^"
^DD(721,3,1,1,"%D",1,0)="This cross reference uses location, date time to list data in the"
^DD(721,3,1,1,"%D",2,0)="package summary reports."
^DD(721,3,1,1,"%D",3,0)=" "
^DD(721,3,1,1,"%D",4,0)="Defined as: ^ECH(""AC1"",location,date and time,DA)="""""
^DD(721,3,1,2,0)="721^ADTL^MUMPS"
^DD(721,3,1,2,1)="D ADTL^ECDUTL"
^DD(721,3,1,2,2)="D KADTL^ECDUTL"
^DD(721,3,1,2,3)="DO NOT DELETE"
^DD(721,3,1,2,"%D",0)="^^4^4^2960401^^"
^DD(721,3,1,2,"%D",1,0)="This cross reference is used in creating patient specific reports"
^DD(721,3,1,2,"%D",2,0)="within the Event Capture software."
^DD(721,3,1,2,"%D",3,0)=" "
^DD(721,3,1,2,"%D",4,0)="Defined as: ^ECH(""ADT"",location,patient,DSS unit,date and time,DA)="""""
^DD(721,3,1,2,"DT")="2960227"
^DD(721,3,3)="Enter the name of the location where this procedure was performed."
^DD(721,3,12)="Current Event Capture locations only."
^DD(721,3,12.1)="S DIC(""S"")=""I $D(^DIC(4,""""LOC"""",$P(^DIC(4,+Y,0),""""^""""),+Y))"""
^DD(721,3,21,0)="^^3^3^2960401^^^^"
^DD(721,3,21,1,0)="This is the name of the facility where this procedure was performed."
^DD(721,3,21,2,0)="This facility name is recognized as the location within the Event"
^DD(721,3,21,3,0)="Capture software."
^DD(721,3,23,0)="^^1^1^2960401^"
^DD(721,3,23,1,0)="A pointer to the INSTITUTION file (#4)."
^DD(721,3,"DT")="2960227"
^DD(721,4,0)="SERVICE^RP49'^DIC(49,^0;5^Q"
^DD(721,4,3)="Enter the name of the service associated with this procedure."
^DD(721,4,21,0)="^^2^2^2960401^^^"
^DD(721,4,21,1,0)="This field contains the name of the corresponding service"
^DD(721,4,21,2,0)="associated with this procedure."
^DD(721,4,23,0)="^^1^1^2960401^"
^DD(721,4,23,1,0)="A pointer to the SERVICE/SECTION file (#49)."
^DD(721,4,"DT")="2890406"
^DD(721,5,0)="SECTION^RP723'^ECC(723,^0;6^Q"
^DD(721,5,3)="Enter the name of the medical specialty associated with this procedure."
^DD(721,5,21,0)="^^2^2^2960401^^^"
^DD(721,5,21,1,0)="This field contains the name of the corresponding medical"
^DD(721,5,21,2,0)="specialty for this procedure."
^DD(721,5,23,0)="^^1^1^2960401^"
^DD(721,5,23,1,0)="A pointer to the MEDICAL SPECIALTY file (#723)."
^DD(721,5,"DT")="2891018"
^DD(721,6,0)="DSS UNIT^RP724'^ECD(^0;7^Q"
^DD(721,6,1,0)="^.1"
^DD(721,6,1,1,0)="721^ADTU^MUMPS"
^DD(721,6,1,1,1)="D ADTU^ECDUTL"
^DD(721,6,1,1,2)="D KADTU^ECDUTL"
^DD(721,6,1,1,3)="DO NOT DELETE"
^DD(721,6,1,1,"%D",0)="^^4^4^2960401^"
^DD(721,6,1,1,"%D",1,0)="This cross reference is used in listing data on several package"
^DD(721,6,1,1,"%D",2,0)="summary reports."
^DD(721,6,1,1,"%D",3,0)=" "
^DD(721,6,1,1,"%D",4,0)="Defined as: ^ECH(""ADT"",location,patient,DSS unit,date and time,DA)="""""
^DD(721,6,1,1,"DT")="2960227"
^DD(721,6,3)="Enter the name of the DSS unit associated with this procedure."
^DD(721,6,21,0)="^^1^1^2960401^^"
^DD(721,6,21,1,0)="This is the name of the DSS unit associated with this procedure."
^DD(721,6,23,0)="^^1^1^2960401^"
^DD(721,6,23,1,0)="A pointer to the DSS UNIT file (#724)."
^DD(721,6,"DT")="2960227"
^DD(721,7,0)="CATEGORY^P726'^EC(726,^0;8^Q"
^DD(721,7,3)="Enter the name of the category used to group this procedure."
^DD(721,7,21,0)="^^2^2^2960708^^^^"
^DD(721,7,21,1,0)="This is the name of the category used to group this procedure."
^DD(721,7,21,2,0)="If category is not used, it can be entered as a zero (0)."
^DD(721,7,23,0)="^^1^1^2960708^^"
^DD(721,7,23,1,0)="A pointer to the EVENT CAPTURE CATEGORY file (#726)."
^DD(721,7,"DT")="2950405"
^DD(721,8,0)="PROCEDURE^RV^^0;9^Q"
^DD(721,8,.1)="Procedure"
^DD(721,8,3)="Enter the name of the procedure performed."
^DD(721,8,21,0)="^^3^3^2960401^^^"
^DD(721,8,21,1,0)="This field contains the name of the procedure. Procedures can"
^DD(721,8,21,2,0)="be selected from either the CPT file (#81) or EC NATIONAL"
^DD(721,8,21,3,0)="PROCEDURE file (#725)."
^DD(721,8,23,0)="^^2^2^2960401^"
^DD(721,8,23,1,0)="A variable pointer to either A. CPT file (#81)or EC NATIONAL"
^DD(721,8,23,2,0)="PROCEDURE file (#725)."
^DD(721,8,"DT")="2950516"
^DD(721,8,"V",0)="^.12P^2^2"
^DD(721,8,"V",1,0)="81^CPT^1^A^n^n"
^DD(721,8,"V",2,0)="725^EC NATL PROC^2^B^n^n"
^DD(721,8,"V","B",81,1)=""
^DD(721,8,"V","B",725,2)=""
^DD(721,8,"V","M","CPT",1)=""
^DD(721,8,"V","M","EC NATL PROC",2)=""
^DD(721,8,"V","O",1,1)=""
^DD(721,8,"V","O",2,2)=""
^DD(721,8,"V","P","A",1)=""
^DD(721,8,"V","P","B",2)=""
^DD(721,9,0)="VOLUME^RNJ4,0^^0;10^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(721,9,.1)="Volume"
^DD(721,9,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(721,9,21,0)="^^6^6^2960401^^^^"
^DD(721,9,21,1,0)="This is the volume (number) of each specific procedure"
^DD(721,9,21,2,0)="performed. When representing a time increment, this"
^DD(721,9,21,3,0)="volume can be expressed as 1 for 15 minutes,"
^DD(721,9,21,4,0)="2 for 30 minutes, etc. This allows those sites implementing"
^DD(721,9,21,5,0)="DSS to recognize time utilization on the their commercial"
^DD(721,9,21,6,0)="software."
^DD(721,9,23,0)="^^1^1^2960401^"
^DD(721,9,23,1,0)="A numeric volume for this procedure."
^DD(721,9,"DT")="2950516"
^DD(721,10,0)="*PROVIDER^RP200'^VA(200,^0;11^Q"
^DD(721,10,.1)="Provider"
^DD(721,10,1,0)="^.1^^0"
^DD(721,10,3)="Enter the name of the provider performing this procedure."
^DD(721,10,21,0)="^^6^6^3051202^"
^DD(721,10,21,1,0)="This is the name of the provider performing this procedure."
^DD(721,10,21,2,0)="Provider can be selected from entries in the NEW PERSON"
^DD(721,10,21,3,0)="file (#200)."
^DD(721,10,21,4,0)=" "
^DD(721,10,21,5,0)="Starred for inactivation with EC*2.0*72. Data converted and stored "
^DD(721,10,21,6,0)="in Field #42 'PROVIDER MULTIPLE'."
^DD(721,10,23,0)="^^4^4^3051202^"
^DD(721,10,23,1,0)="A pointer to the NEW PERSON file (#200)."
^DD(721,10,23,2,0)=" "
^DD(721,10,23,3,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^DD(721,10,23,4,0)="in Field #42 'PROVIDER MULTIPLE'."
^DD(721,10,"DT")="3051202"
^DD(721,11,0)="ORDERING SECTION^RP723'^ECC(723,^0;12^Q"
^DD(721,11,.1)="Ordering Section"
^DD(721,11,1,0)="^.1^^0"
^DD(721,11,3)="Enter the name of the section ordering this procedure."
^DD(721,11,21,0)="^^3^3^2961205^^^^"
^DD(721,11,21,1,0)="This is the of name of the section ordering this procedure."
^DD(721,11,21,2,0)="Ordering section can be selected from entries in the"
^DD(721,11,21,3,0)="MEDICAL SPECIALTY file (#723)."
^DD(721,11,23,0)="^^1^1^2961205^^"
^DD(721,11,23,1,0)="A pointer to the MEDICAL SPECIALTY file (#723)."
^DD(721,11,"DT")="2960229"
^DD(721,13,0)="ENTERED/EDITED BY^RP200'^VA(200,^0;13^Q"
^DD(721,13,3)="Enter the name of the person recording this procedure."
^DD(721,13,21,0)="^^2^2^2960401^^^"
^DD(721,13,21,1,0)="This field contains the name of the person entering patient data."
^DD(721,13,21,2,0)="This name can be selected from entries in the NEW PERSON file (#200)."
^DD(721,13,23,0)="^^1^1^2960401^"
^DD(721,13,23,1,0)="A pointer to the NEW PERSON file (#200)."
^DD(721,13,"DT")="2921112"
^DD(721,14,0)="*PROVIDER TYPE^P7'^DIC(7,^0;14^Q"
^DD(721,14,.1)="Provider Type"
^DD(721,14,3)="Enter the name of the classification for the provider who performed this procedure."
^DD(721,14,21,0)="^^3^3^2970805^^^^"
^DD(721,14,21,1,0)="This field contains the name of the classification of the"
^DD(721,14,21,2,0)="provider who performed this procedure."
^DD(721,14,21,3,0)="Starred for deletion with EC*2*5."
^DD(721,14,23,0)="^^3^3^2970805^^^^"
^DD(721,14,23,1,0)="A pointer to the PROVIDER CLASS file (#7)."
^DD(721,14,23,2,0)=" "
^DD(721,14,23,3,0)="Starred for deletion with EC*2*5."
^DD(721,14,"DT")="2970805"
^DD(721,15,0)="*PROVIDER #2^P200'^VA(200,^0;15^Q"
^DD(721,15,.1)="Provider #2"
^DD(721,15,1,0)="^.1^^0"
^DD(721,15,3)="Enter the name of the person who assisted in performing this procedure."
^DD(721,15,21,0)="^^6^6^3051202^"
^DD(721,15,21,1,0)="This is the name of the person who assisted in performing"
^DD(721,15,21,2,0)="this procedure. This name can be selected from entries in"
^DD(721,15,21,3,0)="the NEW PERSON file (#200)."
^DD(721,15,21,4,0)=" "
^DD(721,15,21,5,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^DD(721,15,21,6,0)="in Field #42 'PROVIDER MULTIPLE'."
^DD(721,15,23,0)="^^4^4^3051202^"
^DD(721,15,23,1,0)="A pointer to the NEW PERSON file (#200)."
^DD(721,15,23,2,0)=" "
^DD(721,15,23,3,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^DD(721,15,23,4,0)="in Field #42 'PROVIDER MULTIPLE'."
^DD(721,15,"DT")="3051202"
^DD(721,16,0)="*PROVIDER #2 TYPE^P7'^DIC(7,^0;16^Q"
^DD(721,16,.1)="Provider #2 Type"
^DD(721,16,3)="Enter the name of the classification for the provider who assisted in performing this procedure."
^DD(721,16,21,0)="^^4^4^2970801^^^"
^DD(721,16,21,1,0)="The name of the classification of the provider who"
^DD(721,16,21,2,0)="assisted in performing this procedure."
^DD(721,16,21,3,0)=" "
^DD(721,16,21,4,0)="Starred for deletion with EC*2*5."
^DD(721,16,23,0)="^^3^3^2970801^^"
^DD(721,16,23,1,0)="A pointer to the PROVIDER CLASS file (#7)."
^DD(721,16,23,2,0)=" "
^DD(721,16,23,3,0)="Starred for deletion with EC*2*5."
^DD(721,16,"DT")="2970801"
^DD(721,17,0)="*PROVIDER #3^P200'^VA(200,^0;17^Q"
^DD(721,17,.1)="Provider #3"
^DD(721,17,1,0)="^.1^^0"
^DD(721,17,3)="Enter the name of the person who assisted in performing this procedure."
^DD(721,17,21,0)="^^6^6^3051202^"
^DD(721,17,21,1,0)="This is the name of the person who assisted in performing"
^DD(721,17,21,2,0)="this procedure. This name can be selected from entries in"
^DD(721,17,21,3,0)="the NEW PERSON file (#200)."
^DD(721,17,21,4,0)=" "
^DD(721,17,21,5,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^DD(721,17,21,6,0)="in Field #42 'PROVIDER MULTIPLE'."
^DD(721,17,23,0)="^^4^4^3051202^"
^DD(721,17,23,1,0)="A pointer to the NEW PERSON file (#200)."
^DD(721,17,23,2,0)=" "
^DD(721,17,23,3,0)="Starred for inactivation with EC*2.0*72. Data converted and stored"
^DD(721,17,23,4,0)="in Field #42 'PROVIDER MULTIPLE'."
^DD(721,17,"DT")="3051202"
^DD(721,18,0)="*PROVIDER #3 TYPE^P7'^DIC(7,^0;18^Q"
^DD(721,18,.1)="Provider #3 Type"
^DD(721,18,3)="Enter the name of the classification for the provider who assisted in performing this procedure."
^DD(721,18,21,0)="^^4^4^2970801^^^"
^DD(721,18,21,1,0)="The name of the classification of the provider who"
^DD(721,18,21,2,0)="assisted in performing this procedure."
^DD(721,18,21,3,0)=" "
^DD(721,18,21,4,0)="Starred for deletion with EC*2*5."
^DD(721,18,23,0)="^^3^3^2970801^^"
^DD(721,18,23,1,0)="A pointer to the PROVIDER CLASS file (#7)."
^DD(721,18,23,2,0)=" "
^DD(721,18,23,3,0)="Starred for deletion with EC*2*5."
^DD(721,18,"DT")="2970801"
^DD(721,19,0)="PCE CPT CODE^P81'^ICPT(^P;1^Q"
^DD(721,19,3)="Enter the PCE CPT code for this record."
^DD(721,19,21,0)="^^1^1^2961119^"
^DD(721,19,21,1,0)="The Current Procedural Terminology (CPT) code for the procedure performed."
^DD(721,19,23,0)="^^4^4^2961119^^"
^DD(721,19,23,1,0)="If a CPT code, the procedure pointer pulled from the PROCEDURE field (8)"
^DD(721,19,23,2,0)="in the EVENT CAPTURE PATIENT file (#721).  For national procedures from the"
^DD(721,19,23,3,0)="EC NATIONAL PROCEDURE file (#725), it is the CPT field (4) from the"
^DD(721,19,23,4,0)="EC NATIONAL PROCEDURE file (#725)."
^DD(721,19,"DT")="2961119"
^DD(721,20,0)="PRIMARY ICD-9 CODE^R*P80'X^ICD9(^P;2^N ICDVDT S ICDVDT=$G(ECDT),DIC(""S"")=""I $P($$ICDDX^ICDCODE(+Y,$G(ECDT)),""""^"""",10)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(721,20,.1)="Primary ICD-9 Code (Diagnosis)"
^DD(721,20,3)="Enter the Primary ICD-9 code for this encounter."
^DD(721,20,12)="Allows selection of active codes only."
^DD(721,20,12.1)="S DIC(""S"")=""I $P($$ICDDX^ICDCODE(+Y,$G(ECDT)),""""^"""",10)"""
^DD(721,20,21,0)="^.001^1^1^3040415^^^^"
^DD(721,20,21,1,0)="The Primary ICD-9 (diagnosis) for this encounter."
^DD(721,20,23,0)="^.001^1^1^3040415^^^^"
^DD(721,20,23,1,0)="Primary ICD-9 CODE is derived from the ICD DIAGNOSIS file (#80)."
^DD(721,20,"DT")="3040420"
^DD(721,21,0)="AGENT ORANGE^S^Y:YES;N:NO;U:UNKNOWN;^P;3^Q"
^DD(721,21,3)="Select the appropriate agent orange status for this patient."
^DD(721,21,21,0)="^^5^5^2970122^^"
^DD(721,21,21,1,0)="This field will be used to indicate if this procedure is treating"
^DD(721,21,21,2,0)="a VA patient for a problem that is related to Agent Orange Exposure."
^DD(721,21,21,3,0)=" "
^DD(721,21,21,4,0)="Data is Y if this patient was exposed to agent orange, N if not, or U"
^DD(721,21,21,5,0)="if unknown."
^DD(721,21,23,0)="^^1^1^2970122^^"
^DD(721,21,23,1,0)="Agent Orange exposure is a component of sending certain data to PCE."
^DD(721,21,"DT")="2970309"
^DD(721,22,0)="RADIATION EXPOSURE^S^Y:YES;N:NO;U:UNKNOWN;^P;4^Q"
^DD(721,22,3)="Select the appropriate radiation status for this patient."
^DD(721,22,21,0)="^^6^6^2970122^^"
^DD(721,22,21,1,0)="This field will be used to indicate if this procedure is treating"
^DD(721,22,21,2,0)="a VA patient for a problem that is related to Ionizing Radiation"
^DD(721,22,21,3,0)="Exposure."
^DD(721,22,21,4,0)=" "
^DD(721,22,21,5,0)="Data is Y if this patient claims exposure to ionizing radiation,"
^DD(721,22,21,6,0)="N if not, or U if unknown."
^DD(721,22,23,0)="^^1^1^2970122^^"
^DD(721,22,23,1,0)="Radiation exposure is a component of sending certain data to PCE."
^DD(721,22,"DT")="2961119"
^DD(721,23,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^P;5^Q"
^DD(721,23,3)="Select the appropriate environmental contaminants status for this patient."
^DD(721,23,21,0)="^^4^4^2970122^^"
^DD(721,23,21,1,0)="This field will be used to indicate if this procedure is treating"
^DD(721,23,21,2,0)="a VA patient for a problem that is related to Environmental"
^DD(721,23,21,3,0)="Contaminant Exposure.  Data is Y if this patient claims exposure"
^DD(721,23,21,4,0)="to environmental contaminants, N if not, or U if unknown."
^DD(721,23,23,0)="^^2^2^2970122^^"
^DD(721,23,23,1,0)="Envirnmental contaminants exposure is a component of sending certain data"
^DD(721,23,23,2,0)="to PCE."
^DD(721,23,"DT")="2970309"
^DD(721,24,0)="SERVICE CONNECTED^S^Y:YES;N:NO;^P;6^Q"
^DD(721,24,3)="Select the appropriate service connected status for this patient."
^DD(721,24,21,0)="^^3^3^2970122^^"
^DD(721,24,21,1,0)="This field will be used to indicate if this procedure is treating"
^DD(721,24,21,2,0)="a VA patient for a service connected problem.  Data is Y if this"
^DD(721,24,21,3,0)="patient is service connected or N if not service connected."
^DD(721,24,23,0)="^^1^1^2970122^^"
^DD(721,24,23,1,0)="Service connected status is a component of sending certain data to PCE."
^DD(721,24,"DT")="2961119"
^DD(721,25,0)="SENT TO PCE^S^1:YES;0:NO;^P;7^Q"
^DD(721,25,3)="Enter 1 if data has been sent to PCE, 0 if not."
^DD(721,25,21,0)="^^3^3^2980429^^^"
^DD(721,25,21,1,0)="This field flags data that has been sent from Event Capture to PCE.  If"
^DD(721,25,21,2,0)="sent, this field will contain a 1 (YES = 1).  If not, this field will"
^DD(721,25,21,3,0)="contain null or zero (NO = null or zero)."
^DD(721,25,23,0)="^^1^1^2980429^^^"
^DD(721,25,23,1,0)="Record is flagged 1 when sent to PCE, null or zero if not sent."
^DD(721,25,"DT")="2980429"
^DD(721,26,0)="ASSOCIATED CLINIC^*P44'X^SC(^0;19^S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""""" D ^DIC K DIC S DIC=DIE,(X,ECYCLN)=+Y K:'+$$CLNCK^SDUTL2(+Y,0) X"
^DD(721,26,3)="Enter the clinic associated with this DSS Unit."
^DD(721,26,4)="I $G(ECYCLN)>0 D:'+$$CLNCK^SDUTL2(ECYCLN,1) EN^DDIOL(""     Clinic MUST be corrected before selecting."") K ECYCLN"
^DD(721,26,12)="Allows selection of Clinic entries only."
^DD(721,26,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""""""
^DD(721,26,21,0)="^.001^1^1^3041015^^^^"
^DD(721,26,21,1,0)="This is the clinic associated with this record."
^DD(721,26,23,0)="^.001^3^3^3041015^^^^"
^DD(721,26,23,1,0)="Pointer to the HOSPITAL LOCATION file (#44).  These entries are"
^DD(721,26,23,2,0)="screened by TYPE field (2).  Only entries with a TYPE of C for"
^DD(721,26,23,3,0)="Clinic may be selected."
^DD(721,26,"DT")="3040427"
^DD(721,27,0)="DSS ID^P40.7'^DIC(40.7,^0;20^Q"
^DD(721,27,3)="Enter the DSS ID for this record."
^DD(721,27,21,0)="^^1^1^2970106^^"
^DD(721,27,21,1,0)="The DSS ID, formerly stop code, associated with this patient record."
^DD(721,27,23,0)="^^3^3^2970106^"
^DD(721,27,23,1,0)="Pointer to the CLINIC STOP file (#40.7).  The DSS ID is pulled from the"
^DD(721,27,23,2,0)="STOP CODE NUMBER field (7) in the HOSPITAL LOCATION file (#44).  The"
^DD(721,27,23,3,0)="DSS ID for the clinic associated with this record is pulled."
^DD(721,27,"DT")="2970106"
^DD(721,28,0)="VISIT^P9000010'^AUPNVSIT(^0;21^Q"
^DD(721,28,1,0)="^.1"
^DD(721,28,1,1,0)="721^C"
^DD(721,28,1,1,1)="S ^ECH(""C"",$E(X,1,30),DA)="""""
^DD(721,28,1,1,2)="K ^ECH(""C"",$E(X,1,30),DA)"
^DD(721,28,1,1,3)="This cross reference is required to comply with DBIA 1902."
^DD(721,28,1,1,"%D",0)="^^3^3^2970916^"
^DD(721,28,1,1,"%D",1,0)="This cross reference is used by PCE to assure that an entry in the Visit"
^DD(721,28,1,1,"%D",2,0)="file (#9000010) is not deleted when an entry in another package points to"
^DD(721,28,1,1,"%D",3,0)="that entry."
^DD(721,28,1,1,"DT")="2970916"
^DD(721,28,1,2,0)="721^AE^MUMPS"
^DD(721,28,1,2,1)="D ADD^AUPNVSIT"
^DD(721,28,1,2,2)="D SUB^AUPNVSIT"
^DD(721,28,1,2,3)="This cross reference is required to comply with DBIA 1902."
^DD(721,28,1,2,"%D",0)="^^2^2^2970916^"
^DD(721,28,1,2,"%D",1,0)="This cross reference is used to maintain a dependent entry count in the"
^DD(721,28,1,2,"%D",2,0)="Visit file (#9000010)."
^DD(721,28,1,2,"DT")="2970916"
^DD(721,28,3)="Select the visit associated with this record."
^DD(721,28,21,0)="^^1^1^2970122^"
^DD(721,28,21,1,0)="This is the visit associated with this patient procedure."
^DD(721,28,23,0)="^^1^1^2970122^"
^DD(721,28,23,1,0)="Pointer to the VISIT file (#9000010)."
^DD(721,28,"DT")="2970916"
^DD(721,29,0)="IN/OUTPATIENT^RS^I:INPATIENT;O:OUTPATIENT;^0;22^Q"
^DD(721,29,.1)="Inpatient or Outpatient"
^DD(721,29,3)="Enter a status of inpatient or outpatient for this event."
^DD(721,29,21,0)="^^3^3^2970111^^^"
^DD(721,29,21,1,0)="The status of the patient when this event occurred. The code ""I"""
^DD(721,29,21,2,0)="represents an inpatient event or an ""O"" represents an outpatient"
^DD(721,29,21,3,0)="event occurred."
^DD(721,29,23,0)="^^3^3^2970111^^"
^DD(721,29,23,1,0)="Set of codes that represent an ""I"" for inpatient or an ""O"" for"
^DD(721,29,23,2,0)="an outpatient event. This field is used in determining which"
^DD(721,29,23,3,0)="records to send to the Patient Care Encounter (PCE) software."
^DD(721,29,"DT")="2970122"
^DD(721,30,0)="PCE DATA FEED^F^^PCE;1^K:$L(X)>240!($L(X)<1) X"
^DD(721,30,3)="Answer must be 1-240 characters in length."
^DD(721,30,21,0)="^.001^2^2^3051205^^^^"
^DD(721,30,21,1,0)="The field contains the ECS data formatted to feed the Patient Care"
^DD(721,30,21,2,0)="Encounter (PCE) software."
^DD(721,30,23,0)="^^6^6^3051205^"
^DD(721,30,23,1,0)="Data stored at this node is transmitted to PCE and contains the following:-"
^DD(721,30,23,2,0)="date/time~patient dfn~hospital location~institution~dss id~provider #1 "
^DD(721,30,23,3,0)="(no longer populated with EC*2.0*72)~provider 2 (not populated)~provider 3"
^DD(721,30,23,4,0)="(not populated)~volume~cpt code~diagnosis~agent orange~radiation"
^DD(721,30,23,5,0)="~enviromental contaminants~service connected~ecs national # & name"
^DD(721,30,23,6,0)="~eligibility~military sexual trauma~head/neck cancer~combat veteran"
^DD(721,30,"DT")="2970116"
^DD(721,31,0)="SEND TO PCE^D^^SEND;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(721,31,1,0)="^.1"
^DD(721,31,1,1,0)="721^AD"
^DD(721,31,1,1,1)="S ^ECH(""AD"",$E(X,1,30),DA)="""""
^DD(721,31,1,1,2)="K ^ECH(""AD"",$E(X,1,30),DA)"
^DD(721,31,1,1,3)="Do not delete."
^DD(721,31,1,1,"%D",0)="^^2^2^2970115^"
^DD(721,31,1,1,"%D",1,0)="This cross reference controls the data that is ready to send to the"
^DD(721,31,1,1,"%D",2,0)="Patient Care Encounter (PCE) software."
^DD(721,31,1,1,"DT")="2970115"
^DD(721,31,3)="Enter the date/time to flag this record ready to send to PCE."
^DD(721,31,21,0)="^^2^2^2970115^"
^DD(721,31,21,1,0)="This flag controls the ECS data that is ready to send to PCE.  If this"
^DD(721,31,21,2,0)="record should be sent to PCE, this flag will be set with a date."
^DD(721,31,"DT")="2970115"
^DD(721,32,0)="CHECKOUT D/T^D^^P;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(721,32,3)="Enter the checkout date and time for this patient event."
^DD(721,32,21,0)="^^1^1^2970225^"
^DD(721,32,21,1,0)="This field contains the checkout date and time of this procedure."
^DD(721,32,23,0)="^^3^3^2970226^^"
^DD(721,32,23,1,0)="Checkout date and time of this patient procedure."
^DD(721,32,23,2,0)="The checkout date and time is generated when the nighly background"
^DD(721,32,23,3,0)="job is run."
^DD(721,32,"DT")="2970225"
^DD(721,33,0)="REASON^F^^R;1^K:$L(X)>200!($L(X)<1) X"
^DD(721,33,3)="Answer must be 1-200 characters in length."
^DD(721,33,21,0)="^^2^2^2970311^"
^DD(721,33,21,1,0)="This field contains the reasons why this patient record was not"
^DD(721,33,21,2,0)="sent to the Patient Care Encounter (PCE) software."
^DD(721,33,23,0)="^^2^2^2970311^"
^DD(721,33,23,1,0)="Free text field that may contain multiples reasons.  Each reason"
^DD(721,33,23,2,0)="will be delimited by a semi-colon."
^DD(721,33,"DT")="2970311"
^DD(721,34,0)="PROCEDURE REASON^*P720.5'^ECL(^0;23^S DIC(""S"")=""I $P(^(0),U,2)=$$GETSCRN^ECDSUTIL(DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(721,34,.1)="Procedure Reason"
^DD(721,34,3)="Enter applicable procedure reason for the patient's procedure."
^DD(721,34,12)="Only allow procedure reason(s) associated with the event code screen."
^DD(721,34,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=$$GETSCRN^ECDSUTIL(DA)"""
^DD(721,34,21,0)="^^3^3^2970815^^^"
^DD(721,34,21,1,0)="A procedure reason for the patient's procedure may be selected during data"
^DD(721,34,21,2,0)="entry.  The user may only select procedure reason(s) which were previously"
^DD(721,34,21,3,0)="entered during the creation or edit of the associated event code screen."
^DD(721,34,23,0)="^^2^2^2970815^"
^DD(721,34,23,1,0)="This field contains the procedure reason for the patient's procedure and"
^DD(721,34,23,2,0)="is a pointer to the EC Event Code Screens/Procedure Reason file (#720.5)."
^DD(721,34,"DT")="2970815"
^DD(721,35,0)="MILITARY SEXUAL TRAUMA^S^Y:YES;N:NO;U:UNKNOWN;^P;9^Q"
^DD(721,35,3)="Select the appropriate military sexual trauma status for this patient."
^DD(721,35,21,0)="^^5^5^2990407^^^"
^DD(721,35,21,1,0)="This field will be used to indicate if this procedure is treating"
^DD(721,35,21,2,0)="a VA patient for a problem that is related to Military Sexual Trauma."
^DD(721,35,21,3,0)=" "
^DD(721,35,21,4,0)="Data is Y if this patient treatment is related to military sexual trauma,"
^DD(721,35,21,5,0)="N if not, or U if unknown."
^DD(721,35,23,0)="^^1^1^2990407^^"
^DD(721,35,23,1,0)="Military Sexual Trauma is a component of sending certain data to PCE."
^DD(721,35,"DT")="2990407"
^DD(721,36,0)="CPT MODIFIER^721.036PA^^MOD;0"
^DD(721,36,10)=""
^DD(721,36,21,0)="^^1^1^2991006^"
^DD(721,36,21,1,0)="This is a multiple field.  It points to the CPT MODIFIER file #81.3."
^DD(721,36,"DT")="2990706"
^DD(721,37,0)="PCE CPT MODIFIER^F^^PCE1;1^K:$L(X)>60!($L(X)<2)!'($L(X)>60!($L(X)<2)) X"
^DD(721,37,3)="This field is stuffed with the modifiers entered for the CPT procedure code."
^DD(721,37,10)="Field #36 multiple separated by semicolon (;)."
^DD(721,37,21,0)="^^1^1^2990927^^^^"
^DD(721,37,21,1,0)="The modifiers associated with the CPT procedure code that will be passed to PCE."
^DD(721,37,23,0)="^^3^3^2990927^^^^"
^DD(721,37,23,1,0)="PCE CPT MODIFIER is derived from the multiple CPT MODIFIER field 36.  The "
^DD(721,37,23,2,0)="modifiers are separated by semicolon (;).  The source of the CPT modifiers is "
^DD(721,37,23,3,0)="the MODIFIER field (#.01) of the CPT MODIFIER file (#81.3)."
^DD(721,37,"DT")="2990702"
^DD(721,38,0)="SECONDARY ICD-9 CODE^721.038PA^^DX;0"
^DD(721,38,12)="Selects only active ICD-9 codes."
^DD(721,38,12.1)="S DIC(""S"")=""I '$P(^(0),""""^"""",9)"""
^DD(721,38,21,0)="^^1^1^3000403^^^^"
^DD(721,38,21,1,0)="The secondary ICD-9 diagnoses code for the procedure performed."
^DD(721,38,23,0)="^^1^1^3000403^^"
^DD(721,38,23,1,0)="This field originates from the ICD-9 file #80."
^DD(721,39,0)="HEAD/NECK CANCER^S^Y:YES;N:NO;U:UNKNOWN;^P;10^Q"
^DD(721,39,3)="Select the appropriate status if this procedure is treating a problem related to Head/Neck Cancer."
^DD(721,39,21,0)="^.001^2^2^3021016^^^"
^DD(721,39,21,1,0)="This field indicates that the EC procedure represents treatment of a"
^DD(721,39,21,2,0)="VA patient for a problem that is related to Head and/or Neck Cancer."
^DD(721,39,"DT")="3020930"
^DD(721,40,0)="COMBAT VETERAN^S^Y:YES;N:NO;U:UNKNOWN;^P;11^Q"
^DD(721,40,3)="Select the appropriate status if this procedure is treating a problem related to Combat Veteran."
^DD(721,40,21,0)="^.001^2^2^3031030^^^"
^DD(721,40,21,1,0)="This field indicates that the EC procedure represents treatment of a"
^DD(721,40,21,2,0)="VA patient for a problem that is related to Combat Veteran."
^DD(721,40,"DT")="3031030"
^DD(721,42,0)="PROVIDER MULTIPLE^721.042PA^^PRV;0"
^DD(721,42,21,0)="^.001^5^5^3060320^^"
^DD(721,42,21,1,0)="This is the provider(s) giving patient care for this encounter."
^DD(721,42,21,2,0)=" "
^DD(721,42,21,3,0)="Prior to the installation of EC*2.0*72 provider data was stored in fields "
^DD(721,42,21,4,0)="#10, #15 and #17.  EC*2.0*72 converted and stored these fields' data in "
^DD(721,42,21,5,0)="this field #42,""PROVIDER MULTIPLE""."
^DD(721,42,23,0)="^.001^1^1^3060320^^^^"
^DD(721,42,23,1,0)="This is a pointer to the NEW PERSON file #200."
^DD(721,"B","*PROVIDER",10)=""
^DD(721,"B","*PROVIDER #2",15)=""
^DD(721,"B","*PROVIDER #2 TYPE",16)=""
^DD(721,"B","*PROVIDER #3",17)=""
^DD(721,"B","*PROVIDER #3 TYPE",18)=""
^DD(721,"B","*PROVIDER TYPE",14)=""
^DD(721,"B","AGENT ORANGE",21)=""
^DD(721,"B","ASSOCIATED CLINIC",26)=""
^DD(721,"B","CATEGORY",7)=""
^DD(721,"B","CHECKOUT D/T",32)=""
^DD(721,"B","COMBAT VETERAN",40)=""
^DD(721,"B","CPT MODIFIER",36)=""
^DD(721,"B","DATE/TIME OF PROCEDURE",2)=""
^DD(721,"B","DSS ID",27)=""
^DD(721,"B","DSS UNIT",6)=""
^DD(721,"B","ENTERED/EDITED BY",13)=""
^DD(721,"B","ENVIRONMENTAL CONTAMINANTS",23)=""
^DD(721,"B","HEAD/NECK CANCER",39)=""
^DD(721,"B","IN/OUTPATIENT",29)=""
^DD(721,"B","Inpatient or Outpatient",29)="1"
^DD(721,"B","LOCATION",3)=""
^DD(721,"B","MILITARY SEXUAL TRAUMA",35)=""
^DD(721,"B","ORDERING SECTION",11)=""
^DD(721,"B","Ordering Section",11)="1"
^DD(721,"B","PATIENT",1)=""
^DD(721,"B","PCE CPT CODE",19)=""
^DD(721,"B","PCE CPT MODIFIER",37)=""
^DD(721,"B","PCE DATA FEED",30)=""
^DD(721,"B","PRIMARY ICD-9 CODE",20)=""
^DD(721,"B","PROCEDURE",8)=""
^DD(721,"B","PROCEDURE REASON",34)=""
^DD(721,"B","PROVIDER MULTIPLE",42)=""
^DD(721,"B","Primary ICD-9 Code (Diagnosis)",20)="1"
^DD(721,"B","Procedure",8)="1"
^DD(721,"B","Procedure Reason",34)="1"
^DD(721,"B","Provider",10)="1"
^DD(721,"B","Provider #2",15)="1"
^DD(721,"B","Provider #2 Type",16)="1"
^DD(721,"B","Provider #3",17)="1"
^DD(721,"B","Provider #3 Type",18)="1"
^DD(721,"B","Provider Type",14)="1"
^DD(721,"B","RADIATION EXPOSURE",22)=""
^DD(721,"B","REASON",33)=""
^DD(721,"B","RECORD NUMBER",.01)=""
^DD(721,"B","SECONDARY ICD-9 CODE",38)=""
^DD(721,"B","SECTION",5)=""
^DD(721,"B","SEND TO PCE",31)=""
^DD(721,"B","SENT TO PCE",25)=""
^DD(721,"B","SERVICE",4)=""
^DD(721,"B","SERVICE CONNECTED",24)=""
^DD(721,"B","VISIT",28)=""
^DD(721,"B","VOLUME",9)=""
^DD(721,"B","Volume",9)="1"
^DD(721,"GL",0,1,.01)=""
^DD(721,"GL",0,2,1)=""
^DD(721,"GL",0,3,2)=""
^DD(721,"GL",0,4,3)=""
^DD(721,"GL",0,5,4)=""
^DD(721,"GL",0,6,5)=""
^DD(721,"GL",0,7,6)=""
^DD(721,"GL",0,8,7)=""
^DD(721,"GL",0,9,8)=""
^DD(721,"GL",0,10,9)=""
^DD(721,"GL",0,11,10)=""
^DD(721,"GL",0,12,11)=""
^DD(721,"GL",0,13,13)=""
^DD(721,"GL",0,14,14)=""
^DD(721,"GL",0,15,15)=""
^DD(721,"GL",0,16,16)=""
^DD(721,"GL",0,17,17)=""
^DD(721,"GL",0,18,18)=""
^DD(721,"GL",0,19,26)=""
^DD(721,"GL",0,20,27)=""
^DD(721,"GL",0,21,28)=""
^DD(721,"GL",0,22,29)=""
^DD(721,"GL",0,23,34)=""
^DD(721,"GL","DX",0,38)=""
^DD(721,"GL","MOD",0,36)=""
^DD(721,"GL","P",1,19)=""
^DD(721,"GL","P",2,20)=""
^DD(721,"GL","P",3,21)=""
^DD(721,"GL","P",4,22)=""
^DD(721,"GL","P",5,23)=""
^DD(721,"GL","P",6,24)=""
^DD(721,"GL","P",7,25)=""
^DD(721,"GL","P",8,32)=""
^DD(721,"GL","P",9,35)=""
^DD(721,"GL","P",10,39)=""
^DD(721,"GL","P",11,40)=""
^DD(721,"GL","PCE",1,30)=""
^DD(721,"GL","PCE1",1,37)=""
^DD(721,"GL","PRV",0,42)=""
^DD(721,"GL","R",1,33)=""
^DD(721,"GL","SEND",1,31)=""
^DD(721,"IX",.01)=""
^DD(721,"IX",1)=""
^DD(721,"IX",2)=""
^DD(721,"IX",3)=""
^DD(721,"IX",6)=""
^DD(721,"IX",28)=""
^DD(721,"IX",31)=""
^DD(721,"RQ",.01)=""
^DD(721,"RQ",1)=""
^DD(721,"RQ",2)=""
^DD(721,"RQ",3)=""
^DD(721,"RQ",4)=""
^DD(721,"RQ",5)=""
^DD(721,"RQ",6)=""
^DD(721,"RQ",8)=""
^DD(721,"RQ",9)=""
^DD(721,"RQ",10)=""
^DD(721,"RQ",11)=""
^DD(721,"RQ",13)=""
^DD(721,"RQ",20)=""
^DD(721,"RQ",29)=""
^DD(721,"SB",721.036,36)=""
^DD(721,"SB",721.038,38)=""
^DD(721,"SB",721.042,42)=""
^DD(721.036,0)="CPT MODIFIER SUB-FIELD^^.01^1"
^DD(721.036,0,"DT")="2990706"
^DD(721.036,0,"IX","B",721.036,.01)=""
^DD(721.036,0,"NM","CPT MODIFIER")=""
^DD(721.036,0,"UP")="721"
^DD(721.036,.01,0)="CPT MODIFIER^M*P81.3'^DIC(81.3,^0;1^S DIC(""S"")=""D MODSCN^ECUTL()"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(721.036,.01,.1)=""
^DD(721.036,.01,1,0)="^.1"
^DD(721.036,.01,1,1,0)="721.036^B"
^DD(721.036,.01,1,1,1)="S ^ECH(DA(1),""MOD"",""B"",$E(X,1,30),DA)="""""
^DD(721.036,.01,1,1,2)="K ^ECH(DA(1),""MOD"",""B"",$E(X,1,30),DA)"
^DD(721.036,.01,3)="Enter a modifier that is valid for the CPT procedure code."
^DD(721.036,.01,10)="Internal entry number in CPT MODIFIER file (#81.3)."
^DD(721.036,.01,12)="Check to ensure CPT modifier can be used with the CPT code."
^DD(721.036,.01,12.1)="S DIC(""S"")=""D MODSCN^ECUTL()"""
^DD(721.036,.01,21,0)="^^3^3^2990927^^^^"
^DD(721.036,.01,21,1,0)="CPT Modifiers provide the ability to refine CPT procedure codes to better "
^DD(721.036,.01,21,2,0)="reflect procedures performed, which supports VHA's ability to track work done, "
^DD(721.036,.01,21,3,0)="as well as meets billing requirements. "
^DD(721.036,.01,23,0)="^^2^2^2990927^^^^"
^DD(721.036,.01,23,1,0)="The source of the CPT modifiers is the MODIFIER field (#.01) of the CPT"
^DD(721.036,.01,23,2,0)="MODIFIER file (#81.3)."
^DD(721.036,.01,"DT")="2990707"
^DD(721.036,"B","CPT MODIFIER",.01)=""
^DD(721.036,"GL",0,1,.01)=""
^DD(721.036,"IX",.01)=""
^DD(721.038,0)="SECONDARY ICD-9 CODE SUB-FIELD^^.01^1"
^DD(721.038,0,"DT")="3000403"
^DD(721.038,0,"IX","B",721.038,.01)=""
^DD(721.038,0,"NM","SECONDARY ICD-9 CODE")=""
^DD(721.038,0,"UP")="721"
^DD(721.038,.01,0)="SECONDARY ICD-9 CODE^M*P80'X^ICD9(^0;1^N ICDVDT S ICDVDT=$G(ECDT),DIC(""S"")=""I $P($$ICDDX^ICDCODE(+Y,$G(ECDT)),""""^"""",10)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(721.038,.01,1,0)="^.1"
^DD(721.038,.01,1,1,0)="721.038^B"
^DD(721.038,.01,1,1,1)="S ^ECH(DA(1),""DX"",""B"",$E(X,1,30),DA)="""""
^DD(721.038,.01,1,1,2)="K ^ECH(DA(1),""DX"",""B"",$E(X,1,30),DA)"
^DD(721.038,.01,3)="Enter the secondary ICD-9 code for this procedure."
^DD(721.038,.01,12)="Allows selection of active codes only."
^DD(721.038,.01,12.1)="S DIC(""S"")=""I $P($$ICDDX^ICDCODE(+Y,$G(ECDT)),""""^"""",10)"""
^DD(721.038,.01,21,0)="^^1^1^3000403^^"
^DD(721.038,.01,21,1,0)="The secondary ICD-9 diagnoses code for the procedure performed."
^DD(721.038,.01,23,0)="^^1^1^3000403^^"
^DD(721.038,.01,23,1,0)="This field originates from the ICD-9 file #80."
^DD(721.038,.01,"DT")="3040420"
^DD(721.038,"B","SECONDARY ICD-9 CODE",.01)=""
^DD(721.038,"GL",0,1,.01)=""
^DD(721.038,"IX",.01)=""
^DD(721.042,0)="PROVIDER MULTIPLE SUB-FIELD^^.02^2"
^DD(721.042,0,"DT")="3050805"
^DD(721.042,0,"IX","B",721.042,.01)=""
^DD(721.042,0,"NM","PROVIDER MULTIPLE")=""
^DD(721.042,0,"UP")="721"
^DD(721.042,.01,0)="PROVIDER^MRP200'^VA(200,^0;1^Q"
^DD(721.042,.01,1,0)="^.1"
^DD(721.042,.01,1,1,0)="721.042^B"
^DD(721.042,.01,1,1,1)="S ^ECH(DA(1),""PRV"",""B"",$E(X,1,30),DA)="""""
^DD(721.042,.01,1,1,2)="K ^ECH(DA(1),""PRV"",""B"",$E(X,1,30),DA)"
^DD(721.042,.01,3)="Enter the name of the provider performing this procedure."
^DD(721.042,.01,21,0)="^^8^8^3060320^"
^DD(721.042,.01,21,1,0)="This field indicates whether the provider is the primary or secondary "
^DD(721.042,.01,21,2,0)="caregiver for the encounter."
^DD(721.042,.01,21,3,0)=" "
^DD(721.042,.01,21,4,0)="The primary provider is usually the physician responsible for THIS"
^DD(721.042,.01,21,5,0)="PARTICULAR encounter."
^DD(721.042,.01,21,6,0)=" "
^DD(721.042,.01,21,7,0)="Secondary providers are those providers who also provided care for this "
^DD(721.042,.01,21,8,0)="encounter."
^DD(721.042,.01,23,0)="^.001^1^1^3060320^^^^"
^DD(721.042,.01,23,1,0)="A pointer to file #200."
^DD(721.042,.01,"DT")="3050805"
^DD(721.042,.02,0)="PRIMARY/SECONDARY^S^P:PRIMARY;S:SECONDARY;^0;2^Q"
^DD(721.042,.02,3)="Enter whether this is the primary or secondary provider."
^DD(721.042,.02,21,0)="^.001^2^2^3060320^^"
^DD(721.042,.02,21,1,0)="This field indicates whether the provider was the primary or secondary"
^DD(721.042,.02,21,2,0)="caregiver for the encounter.                    "
^DD(721.042,.02,"DT")="3050805"
^DD(721.042,"B","PRIMARY/SECONDARY",.02)=""
^DD(721.042,"B","PROVIDER",.01)=""
^DD(721.042,"GL",0,1,.01)=""
^DD(721.042,"GL",0,2,.02)=""
^DD(721.042,"IX",.01)=""
^DD(721.042,"RQ",.01)=""
^DD(723,0)="FIELD^^.01^1"
^DD(723,0,"DDA")="N"
^DD(723,0,"IX","B",723,.01)=""
^DD(723,0,"NM","MEDICAL SPECIALTY")=""
^DD(723,0,"PT",130,125)=""
^DD(723,0,"PT",721,5)=""
^DD(723,0,"PT",721,11)=""
^DD(723,0,"PT",724,2)=""
^DD(723,0,"VR")="2.0"
^DD(723,0,"VRPK")="EVENT CAPTURE"
^DD(723,.01,0)="NAME^RFX^^0;1^K X D EN^DDIOL(""Editing is not permitted."")"
^DD(723,.01,1,0)="^.1"
^DD(723,.01,1,1,0)="723^B"
^DD(723,.01,1,1,1)="S ^ECC(723,""B"",$E(X,1,30),DA)="""""
^DD(723,.01,1,1,2)="K ^ECC(723,""B"",$E(X,1,30),DA)"
^DD(723,.01,3)="Enter the name of this medical specialty (3 to 30 characters)."
^DD(723,.01,8.5)="^"
^DD(723,.01,21,0)="^^3^3^2960401^^"
^DD(723,.01,21,1,0)="This is the name of the medical specialty. This information will"
^DD(723,.01,21,2,0)="be used when entering procedures within the Event Capture"
^DD(723,.01,21,3,0)="software."
^DD(723,.01,23,0)="^^1^1^2960401^"
^DD(723,.01,23,1,0)="Free text name of the medical specialty for this entry."
^DD(723,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""Medical Specialty entries cannot be deleted."")"
^DD(723,.01,"DT")="2930125"
^DD(723,"B","NAME",.01)=""
^DD(723,"GL",0,1,.01)=""
^DD(723,"IX",.01)=""
^DD(723,"RQ",.01)=""
^DD(724,0)="FIELD^^13^13"
^DD(724,0,"DT")="2970309"
^DD(724,0,"ID",4)="W ""   "",$P(^(0),U,5)"
^DD(724,0,"IX","AC",724,3)=""
^DD(724,0,"IX","AOLD",724,6)=""
^DD(724,0,"IX","ASER",724,1)=""
^DD(724,0,"IX","B",724,.01)=""
^DD(724,0,"IX","C",724,4)=""
^DD(724,0,"NM","DSS UNIT")=""
^DD(724,0,"PT",200.72,.01)=""
^DD(724,0,"PT",721,6)=""
^DD(724,0,"PT",727.815,9)=""
^DD(724,0,"PT",727.825,9)=""
^DD(724,0,"PT",509850.8,727.8251)=""
^DD(724,0,"PT",509850.8,727.8252)=""
^DD(724,0,"VR")="2.0"
^DD(724,0,"VRPK")="EC"
^DD(724,0,"VRRV")="EC*2*5"
^DD(724,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(724,.01,.1)="Name"
^DD(724,.01,1,0)="^.1"
^DD(724,.01,1,1,0)="724^B"
^DD(724,.01,1,1,1)="S ^ECD(""B"",$E(X,1,30),DA)="""""
^DD(724,.01,1,1,2)="K ^ECD(""B"",$E(X,1,30),DA)"
^DD(724,.01,3)="Enter the name of the DSS unit for this entry (3 to 30 characters)."
^DD(724,.01,4)=""
^DD(724,.01,8.5)="^"
^DD(724,.01,21,0)="^^1^1^2960401^^"
^DD(724,.01,21,1,0)="This field contains the name of this DSS unit."
^DD(724,.01,23,0)="^^1^1^2960401^"
^DD(724,.01,23,1,0)="Free text name of this DSS unit."
^DD(724,.01,"DEL",.01,0)="I 1 D EN^DDIOL(""Inactivate using the Event Capture software. Do not delete."")"
^DD(724,.01,"DT")="2970107"
^DD(724,1,0)="SERVICE^RP49'^DIC(49,^0;2^Q"
^DD(724,1,.1)="Service"
^DD(724,1,1,0)="^.1"
^DD(724,1,1,1,0)="724^ASER"
^DD(724,1,1,1,1)="S ^ECD(""ASER"",$E(X,1,30),DA)="""""
^DD(724,1,1,1,2)="K ^ECD(""ASER"",$E(X,1,30),DA)"
^DD(724,1,3)="Enter the name of the service associated with this DSS unit."
^DD(724,1,8.5)="^"
^DD(724,1,21,0)="^^3^3^2960401^^"
^DD(724,1,21,1,0)="This is the name of the service associated with this DSS unit."
^DD(724,1,21,2,0)="You can select service from entries in the SERVICE/SECTION"
^DD(724,1,21,3,0)="file (#49)."
^DD(724,1,23,0)="^^1^1^2960401^"
^DD(724,1,23,1,0)="A pointer to the SERVICE/SECTION file (#49)."
^DD(724,1,"DT")="2910520"
^DD(724,2,0)="MEDICAL SPECIALTY^RP723'^ECC(723,^0;3^Q"
^DD(724,2,.1)="Medical Specialty"
^DD(724,2,3)="Enter the name of the medical specialty associated with this DSS unit."
^DD(724,2,8.5)="^"
^DD(724,2,21,0)="^^3^3^2960401^^"
^DD(724,2,21,1,0)="This is the name of the medical specialty associated with this DSS unit."
^DD(724,2,21,2,0)="You can select a medical specialty from entries in the MEDICAL"
^DD(724,2,21,3,0)="SPECIALTY file (#723)."
^DD(724,2,23,0)="^^1^1^2960401^"
^DD(724,2,23,1,0)="A pointer to the MEDICAL SPECIALTY file (#723)."
^DD(724,2,"DT")="2910520"
^DD(724,3,0)="COST CENTER^RP420.1'^PRCD(420.1,^0;4^Q"
^DD(724,3,.1)="Cost Center"
^DD(724,3,1,0)="^.1"
^DD(724,3,1,1,0)="724^AC"
^DD(724,3,1,1,1)="S ^ECD(""AC"",$E(X,1,30),DA)="""""
^DD(724,3,1,1,2)="K ^ECD(""AC"",$E(X,1,30),DA)"
^DD(724,3,1,1,"DT")="2911106"
^DD(724,3,3)="Enter the cost center associated with this DSS unit."
^DD(724,3,8.5)="^"
^DD(724,3,21,0)="^^3^3^2960401^^"
^DD(724,3,21,1,0)="This is the cost center associated with this DSS unit. You"
^DD(724,3,21,2,0)="can select cost center from entries in the COST CENTER"
^DD(724,3,21,3,0)="file (#420.1)."
^DD(724,3,23,0)="^^1^1^2960401^"
^DD(724,3,23,1,0)="A pointer to the COST CENTER file (#420.1)."
^DD(724,3,"DT")="2911106"
^DD(724,4,0)="UNIT NUMBER^FX^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1)!($E(X)="" "") X"
^DD(724,4,.1)="DSS UNIT Number"
^DD(724,4,1,0)="^.1"
^DD(724,4,1,1,0)="724^C"
^DD(724,4,1,1,1)="S ^ECD(""C"",$E(X,1,30),DA)="""""
^DD(724,4,1,1,2)="K ^ECD(""C"",$E(X,1,30),DA)"
^DD(724,4,3)="Enter a number to identify this DSS unit locally at your site (1 to 14 characters)."
^DD(724,4,21,0)="^^2^2^2980504^^^^"
^DD(724,4,21,1,0)="This field contains a number that is used locally to identify"
^DD(724,4,21,2,0)="and classify DSS units."
^DD(724,4,23,0)="^^2^2^2980504^^^"
^DD(724,4,23,1,0)="A free text identification number that is used locally for"
^DD(724,4,23,2,0)="DSS units."
^DD(724,4,"DT")="2980504"
^DD(724,5,0)="INACTIVE (Y/N)^S^1:YES;0:NO;^0;6^Q"
^DD(724,5,3)="Enter ""YES"" or ""1"" if this DSS Unit is inactive."
^DD(724,5,21,0)="^^6^6^2960401^^^"
^DD(724,5,21,1,0)="This field tracks the active or inactive status of this DSS unit."
^DD(724,5,21,2,0)="An inactive DSS unit is set to ""YES"" or ""1"". An active DSS"
^DD(724,5,21,3,0)="unit is set to ""NO"", ""0"", or a null."
^DD(724,5,21,4,0)=" "
^DD(724,5,21,5,0)="DSS units that are inactive cannot be selected for use during"
^DD(724,5,21,6,0)="data entry."
^DD(724,5,23,0)="^^2^2^2960401^^"
^DD(724,5,23,1,0)="Set of codes for this DSS unit defined as ""YES"" or ""1"" for inactive."
^DD(724,5,23,2,0)="Active is defined as ""NO"", ""0"", or a null."
^DD(724,5,"DT")="2900625"
^DD(724,6,0)="*OLD NUMBER^NJ5,0I^^0;7^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(724,6,1,0)="^.1"
^DD(724,6,1,1,0)="724^AOLD"
^DD(724,6,1,1,1)="S ^ECD(""AOLD"",$E(X,1,30),DA)="""""
^DD(724,6,1,1,2)="K ^ECD(""AOLD"",$E(X,1,30),DA)"
^DD(724,6,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(724,6,21,0)="^^4^4^2960401^^"
^DD(724,6,21,1,0)="This field was utilized when converting DSS units from"
^DD(724,6,21,2,0)="being stored in the SERVICE/SECTION file (#49) to the"
^DD(724,6,21,3,0)="DSS UNIT file (# 724). This field will be deleted"
^DD(724,6,21,4,0)="in a future release of Event Capture."
^DD(724,6,23,0)="^^2^2^2960401^"
^DD(724,6,23,1,0)="The internal entry number (IEN) for this DSS unit when"
^DD(724,6,23,2,0)="it was stored in the SERVICE/SECTION file (#49)."
^DD(724,6,"DT")="2960401"
^DD(724,7,0)="USE FOR EVENT CAPTURE^S^1:YES;0:NO;^0;8^Q"
^DD(724,7,3)="Enter ""YES"" or ""1"" if flagged for use in Event Capture."
^DD(724,7,21,0)="^^7^7^2960401^^"
^DD(724,7,21,1,0)="This field contains a flag set for use in the Event Capture"
^DD(724,7,21,2,0)="software."
^DD(724,7,21,3,0)=" "
^DD(724,7,21,4,0)="If this flag is set to ""YES"" or ""1"", this DSS unit will be"
^DD(724,7,21,5,0)="displayed to users of the Event Capture software."
^DD(724,7,21,6,0)="If this flag is set to ""NO"", ""0"", or a null, this DSS unit will"
^DD(724,7,21,7,0)="not be displayed to users of the Event Capture software."
^DD(724,7,23,0)="^^5^5^2960401^^^"
^DD(724,7,23,1,0)="Set of codes for flagging this DSS unit for use in the Event"
^DD(724,7,23,2,0)="Capture software. If set to ""YES"" or ""1"", this DSS unit"
^DD(724,7,23,3,0)="may utilized within the Event Capture software. Is set to ""NO"","
^DD(724,7,23,4,0)="""0"", or a null, this DSS unit will not be recognized by the"
^DD(724,7,23,5,0)="software."
^DD(724,7,"DT")="2920604"
^DD(724,8,0)="*USE FOR IFCAP^S^1:YES;0:NO;^0;9^Q"
^DD(724,8,3)="Enter ""1"" if this unit may be selected for item allocation in IFCAP."
^DD(724,8,21,0)="^^6^6^2960401^^"
^DD(724,8,21,1,0)="This field was created for identifying DSS units to be utilized"
^DD(724,8,21,2,0)="within the IFCAP software. This was part of the pilot project."
^DD(724,8,21,3,0)="This data is not used by the Event Capture V.2.0 software."
^DD(724,8,21,4,0)=" "
^DD(724,8,21,5,0)="This field will be removed in a future release of the Event"
^DD(724,8,21,6,0)="Capture software."
^DD(724,8,23,0)="^^2^2^2960401^^^"
^DD(724,8,23,1,0)="Set of codes. ""YES"" or ""1"" for use by IFCAP. ""NO"", ""0"","
^DD(724,8,23,2,0)="or a null for not being utilized by IFCAP."
^DD(724,8,"DT")="2960401"
^DD(724,9,0)="ASSOCIATED STOP CODE^*P40.7'^DIC(40.7,^0;10^S DIC(""S"")=""I $P(^(0),U,3)=""""""""!($P(^(0),U,3)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(724,9,.1)="Associated Stop Code"
^DD(724,9,3)="Select the DSS ID (Clinic Stop Code) associated with this DSS Unit."
^DD(724,9,12)="Screen to prevent selection of Inactive DSS IDs."
^DD(724,9,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""""""!($P(^(0),U,3)'<DT)"""
^DD(724,9,21,0)="^^1^1^2970912^^^^"
^DD(724,9,21,1,0)="This field indicates a DSS ID associated with the DSS unit."
^DD(724,9,23,0)="^^3^3^2970912^^^^"
^DD(724,9,23,1,0)="This field indicates the DSS ID in the Clinic Stop file (40.7) that is"
^DD(724,9,23,2,0)="associated with the DSS Unit.  The Associated Stop Code field is a pointer"
^DD(724,9,23,3,0)="to the Clinic Stop file (40.7)."
^DD(724,9,"DT")="2970822"
^DD(724,10,0)="CATEGORY (Y/N)^RS^1:YES;0:NO;^0;11^Q"
^DD(724,10,.1)="Category (Y/N)"
^DD(724,10,1,0)="^.1^^0"
^DD(724,10,3)="Enter ""YES"" or ""1"" to allow categories to group procedures during data entry."
^DD(724,10,21,0)="^.001^10^10^3040212^^^"
^DD(724,10,21,1,0)="This field tracks the use of categories during an Event"
^DD(724,10,21,2,0)="Capture data entry session."
^DD(724,10,21,3,0)=" "
^DD(724,10,21,4,0)="If you would like to utilize categories to group procedures"
^DD(724,10,21,5,0)="during data entry, this field should be set to ""YES"" or ""1""."
^DD(724,10,21,6,0)="When set to ""NO"", ""0"", or a null, categories will not be"
^DD(724,10,21,7,0)="used during data entry."
^DD(724,10,21,8,0)="Once event code screen(s) have been defined for the DSS Unit the"
^DD(724,10,21,9,0)="user cannot update the category field.  If event code screens"
^DD(724,10,21,10,0)="have not been defined then user can edit the category field."
^DD(724,10,23,0)="^.001^7^7^3040212^^"
^DD(724,10,23,1,0)="Set of codes. ""YES"" or ""1"" allows use of categories"
^DD(724,10,23,2,0)="to group procedures during an Event Capture data"
^DD(724,10,23,3,0)="entry session. ""NO"", ""0"", or a null does not allow"
^DD(724,10,23,4,0)="the use of categories during data entry."
^DD(724,10,23,5,0)="Once event code screen(s) have been defined for the DSS Unit the"
^DD(724,10,23,6,0)="user cannot update the category field.  If event code screens"
^DD(724,10,23,7,0)="have not been defined then user can edit the category field."
^DD(724,10,"DT")="2970107"
^DD(724,11,0)="DATA ENTRY DATE/TIME DEFAULT^S^N:NOW;X:NONE;^0;12^Q"
^DD(724,11,.1)="Data Entry Date/Time Default"
^DD(724,11,3)="Enter ""N"" for NOW or ""X"" for no data entry date and time default."
^DD(724,11,21,0)="^^9^9^2970305^^^^"
^DD(724,11,21,1,0)="This field contains the default date and time for all data"
^DD(724,11,21,2,0)="entry within this DSS unit. The default may be set"
^DD(724,11,21,3,0)="for  for NOW or ""X"" for NONE."
^DD(724,11,21,4,0)=" "
^DD(724,11,21,5,0)="When set for ""N"", time is included in the default. When set to ""X"""
^DD(724,11,21,6,0)="or null a default date and time is not set. During all data entry"
^DD(724,11,21,7,0)="within this DSS unit, the selected default will be used as"
^DD(724,11,21,8,0)="the VA FileMan date default within the routine.  It may be"
^DD(724,11,21,9,0)="changed as necessary for individual data entry operations."
^DD(724,11,23,0)="^^3^3^2970305^^^^"
^DD(724,11,23,1,0)="Date and time default used during data entry."
^DD(724,11,23,2,0)="Set of codes. ""N"" for NOW (time inclusive),"
^DD(724,11,23,3,0)="""X"" or null for no default."
^DD(724,11,"DT")="2970309"
^DD(724,13,0)="SEND TO PCE^S^A:Send All Records;O:Send Outpatient Only;N:Send No Records;^0;14^Q"
^DD(724,13,.1)="Send to PCE"
^DD(724,13,3)="Select the method to send your data, by DSS Unit, to PCE."
^DD(724,13,21,0)="^^6^6^2970128^"
^DD(724,13,21,1,0)="This field controls the method of sending data, by DSS Unit, to the"
^DD(724,13,21,2,0)="PCE software.  If this field contains an O, only outpatient data, for"
^DD(724,13,21,3,0)="this DSS Unit, will be filed with PCE.  If the field contains an A,"
^DD(724,13,21,4,0)="all records, for this DSS Unit, will be filed with PCE.  If the field"
^DD(724,13,21,5,0)="contains an N or is null, no filing will occur.  This field is exported"
^DD(724,13,21,6,0)="null."
^DD(724,13,23,0)="^^2^2^2970128^"
^DD(724,13,23,1,0)="Set of codes that control sending data, by DSS Unit, to the PCE"
^DD(724,13,23,2,0)="software."
^DD(724,13,"DT")="2970128"
^DD(724,"B","*OLD NUMBER",6)=""
^DD(724,"B","*USE FOR IFCAP",8)=""
^DD(724,"B","ASSOCIATED STOP CODE",9)=""
^DD(724,"B","Associated Stop Code",9)="1"
^DD(724,"B","CATEGORY (Y/N)",10)=""
^DD(724,"B","COST CENTER",3)=""
^DD(724,"B","Category (Y/N)",10)="1"
^DD(724,"B","Cost Center",3)="1"
^DD(724,"B","DATA ENTRY DATE/TIME DEFAULT",11)=""
^DD(724,"B","DSS UNIT Number",4)="1"
^DD(724,"B","Data Entry Date/Time Default",11)="1"
^DD(724,"B","INACTIVE (Y/N)",5)=""
^DD(724,"B","MEDICAL SPECIALTY",2)=""
^DD(724,"B","Medical Specialty",2)="1"
^DD(724,"B","NAME",.01)=""
^DD(724,"B","Name",.01)="1"
^DD(724,"B","SEND TO PCE",13)=""
^DD(724,"B","SERVICE",1)=""
^DD(724,"B","Send to PCE",13)="1"
^DD(724,"B","Service",1)="1"
^DD(724,"B","UNIT NUMBER",4)=""
^DD(724,"B","USE FOR EVENT CAPTURE",7)=""
^DD(724,"GL",0,1,.01)=""
^DD(724,"GL",0,2,1)=""
^DD(724,"GL",0,3,2)=""
^DD(724,"GL",0,4,3)=""
^DD(724,"GL",0,5,4)=""
^DD(724,"GL",0,6,5)=""
^DD(724,"GL",0,7,6)=""
^DD(724,"GL",0,8,7)=""
^DD(724,"GL",0,9,8)=""
^DD(724,"GL",0,10,9)=""
^DD(724,"GL",0,11,10)=""
^DD(724,"GL",0,12,11)=""
^DD(724,"GL",0,14,13)=""
^DD(724,"IX",.01)=""
^DD(724,"IX",1)=""
^DD(724,"IX",3)=""
^DD(724,"IX",4)=""
^DD(724,"IX",6)=""
^DD(724,"RQ",.01)=""
^DD(724,"RQ",1)=""
^DD(724,"RQ",2)=""
^DD(724,"RQ",3)=""
^DD(724,"RQ",10)=""
^DD(725,0)="FIELD^^4^5"
^DD(725,0,"DDA")="N"
^DD(725,0,"DT")="2970107"
^DD(725,0,"IX","B",725,.01)=""
^DD(725,0,"IX","C",725,3)=""
^DD(725,0,"IX","D",725,1)=""
^DD(725,0,"IX","DL",725,1)=""
^DD(725,0,"IX","E",725,1)=""
^DD(725,0,"NM","EC NATIONAL PROCEDURE")=""
^DD(725,0,"PT",720,5)=""
^DD(725,0,"PT",720.2,52.1)=""
^DD(725,0,"PT",720.3,52.1)=""
^DD(725,0,"PT",721,8)=""
^DD(725,0,"PT",509850.615,.01)=""
^DD(725,0,"VR")="2.0"
^DD(725,0,"VRPK")="EC"
^DD(725,0,"VRRV")="^EC*2*6^EC*2*12^EC*2*16^EC*2*20^EC*2*21^EC*2*22^EC*2*26^EC*2*27^EC*2*27^EC*2*28^EC*2*35^EC*2*37^EC*2*40^EC*2*43^EC*2*45^EC*2*48^EC*2*52^EC*2*60^EC*2*67^EC*2*70^EC*2*71^EC*2*74^EC*2*77^EC*2*79^EC*2*80^EC*2*81^EC*2*85^EC*2*89^EC*2*93^EC*2*96"
^DD(725,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45)!($L(X)>50) X I $D(X) K X D EN^DDIOL(""Additions, changes, or deletions are not allowed. Use the Event Capture software to update this file."")"
^DD(725,.01,1,0)="^.1^^-1"
^DD(725,.01,1,1,0)="725^B"
^DD(725,.01,1,1,1)="S ^EC(725,""B"",$E(X,1,63),DA)="""""
^DD(725,.01,1,1,2)="K ^EC(725,""B"",$E(X,1,63),DA)"
^DD(725,.01,1,1,"%D",0)="^^6^6^2960507^^^^"
^DD(725,.01,1,1,"%D",1,0)="This ""B"" cross reference was modified to display 63 characters"
^DD(725,.01,1,1,"%D",2,0)="instead of the standard 30 characters."
^DD(725,.01,1,1,"%D",3,0)=" "
^DD(725,.01,1,1,"%D",4,0)="Please note that all ^DIC lookups into this file where DIC(0)[""X"""
^DD(725,.01,1,1,"%D",5,0)="will not find an exact match when the name is greater than 30"
^DD(725,.01,1,1,"%D",6,0)="characters in length."
^DD(725,.01,3)="Enter the name of this procedure (3 to 50 characters)."
^DD(725,.01,8.5)="^"
^DD(725,.01,21,0)="^^4^4^2960401^^"
^DD(725,.01,21,1,0)="This field contains the name of the procedure for this entry."
^DD(725,.01,21,2,0)="A national procedure name cannot be edited or deleted. A local"
^DD(725,.01,21,3,0)="procedure name can be modified using the tools provided on the"
^DD(725,.01,21,4,0)="Event Capture Management Menu within the Event Capture software."
^DD(725,.01,23,0)="^^1^1^2960401^"
^DD(725,.01,23,1,0)="Free text name of the procedure for this entry."
^DD(725,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Deletions are not allowed."")"
^DD(725,.01,"DT")="2970109"
^DD(725,1,0)="NATIONAL NUMBER^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1U4AN) X I $D(X),($D(^EC(725,""E"",X)))!($D(^EC(725,""E"",$$UP^XLFSTR(X)))) D EN^DDIOL(""Duplicate national number is not allowed."") K X"
^DD(725,1,.1)="National Number"
^DD(725,1,1,0)="^.1"
^DD(725,1,1,1,0)="725^D^MUMPS"
^DD(725,1,1,1,1)="S:DA<90000 ^EC(725,""D"",$E(X,1,30),DA)="""""
^DD(725,1,1,1,2)="K ^EC(725,""D"",$E(X,1,30),DA)"
^DD(725,1,1,1,3)="DO NOT DELETE"
^DD(725,1,1,1,"%D",0)="^^4^4^2981105^^^^"
^DD(725,1,1,1,"%D",1,0)="This cross reference uses the national number order for reports."
^DD(725,1,1,1,"%D",2,0)="Only national procedures are set in this cross reference."
^DD(725,1,1,1,"%D",3,0)=" "
^DD(725,1,1,1,"%D",4,0)="Defined as: ^EC(725,""D"",procedure,DA)="""""
^DD(725,1,1,1,"DT")="2950511"
^DD(725,1,1,2,0)="725^DL^MUMPS"
^DD(725,1,1,2,1)="S:DA>90000 ^EC(725,""DL"",$E(X,1,30),DA)="""""
^DD(725,1,1,2,2)="K ^EC(725,""DL"",$E(X,1,30),DA)"
^DD(725,1,1,2,3)="DO NOT DELETE"
^DD(725,1,1,2,"%D",0)="^^5^5^2981105^^^^"
^DD(725,1,1,2,"%D",1,0)="This cross reference sets local procedures into local procedure number"
^DD(725,1,1,2,"%D",2,0)="order for reports. Local procedures are stored as internal"
^DD(725,1,1,2,"%D",3,0)="entry number higher than 90000."
^DD(725,1,1,2,"%D",4,0)=" "
^DD(725,1,1,2,"%D",5,0)="Defined as: ^EC(725,""DL"",procedure,DA)="""""
^DD(725,1,1,2,"DT")="2950511"
^DD(725,1,1,3,0)="725^E"
^DD(725,1,1,3,1)="S ^EC(725,""E"",$E(X,1,30),DA)="""""
^DD(725,1,1,3,2)="K ^EC(725,""E"",$E(X,1,30),DA)"
^DD(725,1,1,3,"%D",0)="^^2^2^2981105^^"
^DD(725,1,1,3,"%D",1,0)="This cross reference lists all National Numbers to insure uniqueness of"
^DD(725,1,1,3,"%D",2,0)="selection."
^DD(725,1,1,3,"DT")="2950620"
^DD(725,1,3)="Enter the national number for this procedure (1 uppercase alpha followed by 4 alphanumerics)."
^DD(725,1,8.5)="^"
^DD(725,1,9)="^"
^DD(725,1,21,0)="^.001^7^7^3010823^^^^"
^DD(725,1,21,1,0)="This field contains the national number for this procedure."
^DD(725,1,21,2,0)="The national number is distributed with the national entries."
^DD(725,1,21,3,0)=" "
^DD(725,1,21,4,0)="If you add a procedure locally, you should define a unique"
^DD(725,1,21,5,0)="national number for your local procedure. The first"
^DD(725,1,21,6,0)="character must be an uppercase alpha character"
^DD(725,1,21,7,0)="followed by 4 alphanumeric characters."
^DD(725,1,23,0)="^.001^2^2^3010823^^^"
^DD(725,1,23,1,0)="Free text national number composed of 1 uppercase"
^DD(725,1,23,2,0)="alpha character followed by 4 alphanumeric characters."
^DD(725,1,"DT")="2950620"
^DD(725,2,0)="INACTIVE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(725,2,3)="Enter date this procedure was inactivated."
^DD(725,2,21,0)="^^13^13^2960401^^^"
^DD(725,2,21,1,0)="This field contains the inactive date for this procedure."
^DD(725,2,21,2,0)=" "
^DD(725,2,21,3,0)="National procedures will be determined inactive by the"
^DD(725,2,21,4,0)="Decision Support System (DSS) Program Office and updated"
^DD(725,2,21,5,0)="with subsequent releases of the Event Capture software."
^DD(725,2,21,6,0)=" "
^DD(725,2,21,7,0)="Options within the Event Capture Management Menu"
^DD(725,2,21,8,0)="provide users the ability to inactivate any locally"
^DD(725,2,21,9,0)="defined procedures. These local inactive procedures"
^DD(725,2,21,10,0)="may be reactivated for use in the Event Capture"
^DD(725,2,21,11,0)="software. You can reactivate an inactive procedure by"
^DD(725,2,21,12,0)="entering an ""@"" at the date prompt using the"
^DD(725,2,21,13,0)="Activate/Inactivate Local Procedures option."
^DD(725,2,23,0)="^^2^2^2960401^"
^DD(725,2,23,1,0)="Date field that represents the inactive date for this"
^DD(725,2,23,2,0)="procedure."
^DD(725,2,"DT")="2950222"
^DD(725,3,0)="SYNONYM^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3) X"
^DD(725,3,1,0)="^.1"
^DD(725,3,1,1,0)="725^C"
^DD(725,3,1,1,1)="S ^EC(725,""C"",$E(X,1,30),DA)="""""
^DD(725,3,1,1,2)="K ^EC(725,""C"",$E(X,1,30),DA)"
^DD(725,3,1,1,3)="DO NOT DELETE"
^DD(725,3,1,1,"%D",0)="^^1^1^2960401^^"
^DD(725,3,1,1,"%D",1,0)="This cross reference is used for look-up on synonyms."
^DD(725,3,1,1,"DT")="2950222"
^DD(725,3,3)="Enter the synonym name for this procedure (3 to 50 characters)."
^DD(725,3,21,0)="^^2^2^2960401^^"
^DD(725,3,21,1,0)="This field contains the synonym for this procedure. Synonym is"
^DD(725,3,21,2,0)="the locally recognized name for this procedure."
^DD(725,3,23,0)="^^1^1^2960401^"
^DD(725,3,23,1,0)="Free text name of this synonym."
^DD(725,3,"DT")="2950222"
^DD(725,4,0)="CPT^*P81'^ICPT(^0;5^S DIC(""S"")=""I $P($$CPT^ICPTCOD(+Y),""""^"""",7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(725,4,3)="Enter the CPT code equivalent for this national procedure."
^DD(725,4,12)="Allows selection of active CPT codes only."
^DD(725,4,12.1)="S DIC(""S"")=""I $P($$CPT^ICPTCOD(+Y),""""^"""",7)"""
^DD(725,4,21,0)="^.001^2^2^3030328^^^^"
^DD(725,4,21,1,0)="The Current Procedural Terminology (CPT) code equivalent for this"
^DD(725,4,21,2,0)="national or local procedure."
^DD(725,4,23,0)="^.001^1^1^3030328^^^^"
^DD(725,4,23,1,0)="The national or local procedure pointer to the CPT file (#81)."
^DD(725,4,"DT")="3030328"
^DD(725,"B","CPT",4)=""
^DD(725,"B","INACTIVE DATE",2)=""
^DD(725,"B","NAME",.01)=""
^DD(725,"B","NATIONAL NUMBER",1)=""
^DD(725,"B","National Number",1)="1"
^DD(725,"B","SYNONYM",3)=""
^DD(725,"GL",0,1,.01)=""
^DD(725,"GL",0,2,1)=""
^DD(725,"GL",0,3,2)=""
^DD(725,"GL",0,4,3)=""
^DD(725,"GL",0,5,4)=""
^DD(725,"IX",.01)=""
^DD(725,"IX",1)=""
^DD(725,"IX",3)=""
^DD(725,"RQ",.01)=""
^DD(725,"RQ",1)=""
^DD(726,0)="FIELD^^2^3"
^DD(726,0,"DDA")="N"
^DD(726,0,"DT")="2950801"
^DD(726,0,"IX","B",726,.01)=""
^DD(726,0,"IX","C",726,2)=""
^DD(726,0,"NM","EVENT CAPTURE CATEGORY")=""
^DD(726,0,"PT",721,7)=""
^DD(726,0,"VR")="2.0"
^DD(726,0,"VRPK")="EVENT CAPTURE"
^DD(726,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(726,.01,.1)="Category"
^DD(726,.01,1,0)="^.1^^-1"
^DD(726,.01,1,1,0)="726^B"
^DD(726,.01,1,1,1)="S ^EC(726,""B"",$E(X,1,30),DA)="""""
^DD(726,.01,1,1,2)="K ^EC(726,""B"",$E(X,1,30),DA)"
^DD(726,.01,3)="Enter the name of this category (3 to 30 characters)."
^DD(726,.01,21,0)="^^3^3^2960402^^^^"
^DD(726,.01,21,1,0)="This is the name of the category. This is a locally defined"
^DD(726,.01,21,2,0)="name. Each site should create their categories using the Event"
^DD(726,.01,21,3,0)="Capture Management Menu options within the software."
^DD(726,.01,23,0)="^^1^1^2960402^^^^"
^DD(726,.01,23,1,0)="Free text name for this category entry."
^DD(726,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Categories cannot be deleted."")"
^DD(726,.01,"DT")="2960501"
^DD(726,1,0)="DT CREATE^DI^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(726,1,3)="Enter the date this category was created."
^DD(726,1,9)="^"
^DD(726,1,21,0)="^^1^1^2960401^^"
^DD(726,1,21,1,0)="This field contains the date the category was created."
^DD(726,1,23,0)="^^1^1^2960401^"
^DD(726,1,23,1,0)="Date that represents the date this category was created."
^DD(726,1,"DT")="2950323"
^DD(726,2,0)="DT INACTIVE^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(726,2,.1)="Inactive Date"
^DD(726,2,1,0)="^.1"
^DD(726,2,1,1,0)="726^C"
^DD(726,2,1,1,1)="S ^EC(726,""C"",$E(X,1,30),DA)="""""
^DD(726,2,1,1,2)="K ^EC(726,""C"",$E(X,1,30),DA)"
^DD(726,2,1,1,"%D",0)="^^1^1^2950323^"
^DD(726,2,1,1,"%D",1,0)="This cross reference lists all the inactive categories."
^DD(726,2,1,1,"DT")="2950323"
^DD(726,2,3)="Enter the date this category was inactivated."
^DD(726,2,21,0)="^^5^5^2960401^^"
^DD(726,2,21,1,0)="This field contains the date this category was inactivated. The"
^DD(726,2,21,2,0)="category may be reactivated by entering an ""@"" at"
^DD(726,2,21,3,0)="the date prompt thus deleting the inactive date. An Activate/"
^DD(726,2,21,4,0)="Inactivate Local Category option is provided on the"
^DD(726,2,21,5,0)="Event Capture Management Menu to update this field."
^DD(726,2,23,0)="^^1^1^2960401^"
^DD(726,2,23,1,0)="Date that represents the date this category was inactivated."
^DD(726,2,"DT")="2950425"
^DD(726,"B","Category",.01)="1"
^DD(726,"B","DT CREATE",1)=""
^DD(726,"B","DT INACTIVE",2)=""
^DD(726,"B","Inactive Date",2)="1"
^DD(726,"B","NAME",.01)=""
^DD(726,"GL",0,1,.01)=""
^DD(726,"GL",0,2,1)=""
^DD(726,"GL",0,3,2)=""
^DD(726,"IX",.01)=""
^DD(726,"IX",2)=""
^DD(726,"RQ",.01)=""
^DD(727,0)="FIELD^^301^19"
^DD(727,0,"DT")="2950731"
^DD(727,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(727,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(727,0,"IX","AB",727.0301,.01)=""
^DD(727,0,"IX","AC",727,1)=""
^DD(727,0,"IX","AD",727,2)=""
^DD(727,0,"IX","AE",727,3)=""
^DD(727,0,"IX","AT",727,300)=""
^DD(727,0,"IX","B",727,.01)=""
^DD(727,0,"IX","C",727,2)=""
^DD(727,0,"IX","D",727,2)=""
^DD(727,0,"IX","E",727,6)=""
^DD(727,0,"NM","DSS EXTRACT LOG")=""
^DD(727,0,"PT",727,10)=""
^DD(727,0,"PT",727.802,2)=""
^DD(727,0,"PT",727.804,2)=""
^DD(727,0,"PT",727.805,2)=""
^DD(727,0,"PT",727.806,2)=""
^DD(727,0,"PT",727.808,2)=""
^DD(727,0,"PT",727.809,2)=""
^DD(727,0,"PT",727.81,2)=""
^DD(727,0,"PT",727.811,2)=""
^DD(727,0,"PT",727.812,2)=""
^DD(727,0,"PT",727.813,2)=""
^DD(727,0,"PT",727.814,2)=""
^DD(727,0,"PT",727.815,2)=""
^DD(727,0,"PT",727.816,2)=""
^DD(727,0,"PT",727.817,2)=""
^DD(727,0,"PT",727.818,2)=""
^DD(727,0,"PT",727.819,2)=""
^DD(727,0,"PT",727.82,2)=""
^DD(727,0,"PT",727.821,2)=""
^DD(727,0,"PT",727.822,2)=""
^DD(727,0,"PT",727.823,2)=""
^DD(727,0,"PT",727.824,2)=""
^DD(727,0,"PT",727.825,2)=""
^DD(727,0,"PT",727.826,2)=""
^DD(727,0,"PT",727.827,2)=""
^DD(727,0,"PT",727.829,2)=""
^DD(727,0,"PT",727.832,2)=""
^DD(727,0,"PT",728.113,10)=""
^DD(727,0,"PT",728.904,8)=""
^DD(727,0,"VR")="3.0"
^DD(727,0,"VRPK")="DSS EXTRACTS"
^DD(727,.01,0)="RECORD NUMBER^RNJ9,0I^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727,.01,1,0)="^.1"
^DD(727,.01,1,1,0)="727^B"
^DD(727,.01,1,1,1)="S ^ECX(727,""B"",$E(X,1,30),DA)="""""
^DD(727,.01,1,1,2)="K ^ECX(727,""B"",$E(X,1,30),DA)"
^DD(727,.01,1,1,"DT")="2941101"
^DD(727,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(727,.01,21,0)="^^2^2^2970501^^^"
^DD(727,.01,21,1,0)="The record numbers will be sequential and be reused at some point"
^DD(727,.01,21,2,0)="in the future."
^DD(727,.01,"DT")="2970501"
^DD(727,1,0)="EXTRACT DATE^DI^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(727,1,1,0)="^.1"
^DD(727,1,1,1,0)="727^AC"
^DD(727,1,1,1,1)="S ^ECX(727,""AC"",$E(X,1,30),DA)="""""
^DD(727,1,1,1,2)="K ^ECX(727,""AC"",$E(X,1,30),DA)"
^DD(727,1,21,0)="^^1^1^2911105^^"
^DD(727,1,21,1,0)="The date the DSS extract was run."
^DD(727,1,"DT")="2910219"
^DD(727,2,0)="TYPE^FI^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1) X"
^DD(727,2,1,0)="^.1"
^DD(727,2,1,1,0)="727^AD"
^DD(727,2,1,1,1)="S ^ECX(727,""AD"",$E(X,1,30),DA)="""""
^DD(727,2,1,1,2)="K ^ECX(727,""AD"",$E(X,1,30),DA)"
^DD(727,2,1,2,0)="727^C"
^DD(727,2,1,2,1)="S ^ECX(727,""C"",$E(X,1,30),DA)="""""
^DD(727,2,1,2,2)="K ^ECX(727,""C"",$E(X,1,30),DA)"
^DD(727,2,1,2,"DT")="2941101"
^DD(727,2,1,3,0)="727^D^MUMPS"
^DD(727,2,1,3,1)="S ^ECX(727,""D"",$TR(X,""zxcvbnmasdfghjklqwertyuiop"",""ZXCVBNMASDFGHJKLQWERTYUIOP""),DA)="""""
^DD(727,2,1,3,2)="K ^ECX(727,""D"",$TR(X,""zxcvbnmasdfghjklqwertyuiop"",""ZXCVBNMASDFGHJKLQWERTYUIOP""),DA)"
^DD(727,2,1,3,"%D",0)="^^1^1^2941101^"
^DD(727,2,1,3,"%D",1,0)="Upper case for lookup"
^DD(727,2,1,3,"DT")="2941101"
^DD(727,2,3)="Answer must be 1-20 characters in length."
^DD(727,2,21,0)="^^2^2^2930810^^^^"
^DD(727,2,21,1,0)="The type of extract that was run.  Example: Admission for MAS Admission"
^DD(727,2,21,2,0)="extract."
^DD(727,2,23,0)="^^1^1^2930810^"
^DD(727,2,23,1,0)="Taken from the variable ECPACK used in the extract routines."
^DD(727,2,"DT")="2941101"
^DD(727,3,0)="START DATE/TIME^DI^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(727,3,1,0)="^.1"
^DD(727,3,1,1,0)="727^AE"
^DD(727,3,1,1,1)="S ^ECX(727,""AE"",$E(X,1,30),DA)="""""
^DD(727,3,1,1,2)="K ^ECX(727,""AE"",$E(X,1,30),DA)"
^DD(727,3,1,1,"%D",0)="^^1^1^3051026^"
^DD(727,3,1,1,"%D",1,0)="Cross reference of start/date and time."
^DD(727,3,1,1,"DT")="3051026"
^DD(727,3,21,0)="^^1^1^2971107^^^^"
^DD(727,3,21,1,0)="The beginning date covered by the extract."
^DD(727,3,"DT")="3051026"
^DD(727,4,0)="END DATE/TIME^DI^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(727,4,21,0)="^^1^1^2911105^^^"
^DD(727,4,21,1,0)="The ending date covered by the extract."
^DD(727,4,"DT")="2910219"
^DD(727,5,0)="NUMBER OF RECORDS^NJ6,0I^^0;6^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727,5,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(727,5,21,0)="^^1^1^2911112^^^^"
^DD(727,5,21,1,0)="The number of records included in this extract."
^DD(727,5,"DT")="2910219"
^DD(727,6,0)="HEADER FOR MESSAGE^FI^^HEAD;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(727,6,1,0)="^.1"
^DD(727,6,1,1,0)="727^E"
^DD(727,6,1,1,1)="S ^ECX(727,""E"",$E(X,1,30),DA)="""""
^DD(727,6,1,1,2)="K ^ECX(727,""E"",$E(X,1,30),DA)"
^DD(727,6,1,1,"DT")="2941101"
^DD(727,6,3)="Answer must be 1-30 characters in length."
^DD(727,6,21,0)="^^2^2^2911105^"
^DD(727,6,21,1,0)="The header for the extract run.  Example: ADMISSIONS/DEMOG for the"
^DD(727,6,21,2,0)="MAS Admissions extract."
^DD(727,6,"DT")="2941101"
^DD(727,7,0)="FILE NUMBER^NJ8,4I^^FILE;1^K:+X'=X!(X>999)!(X<727)!(X?.E1"".""5N.N) X"
^DD(727,7,3)="Type a Number between 727 and 999, 4 Decimal Digits"
^DD(727,7,21,0)="^^2^2^2911105^^^"
^DD(727,7,21,1,0)="An indicator (pointer) of the file in ECX in which the data for this"
^DD(727,7,21,2,0)="extract can be found."
^DD(727,7,"DT")="2911112"
^DD(727,8,0)="GROUP^FI^^GRP;1^K:$L(X)>20!($L(X)<1) X"
^DD(727,8,3)="Answer must be 1-20 characters in length."
^DD(727,8,21,0)="^^4^4^2950317^^"
^DD(727,8,21,1,0)="The mail group to which this extract summary message was sent."
^DD(727,8,21,2,0)="The actual mail group name will be ""DSS-""group name."
^DD(727,8,21,3,0)="Example: ADM for the mail group DSS-ADMS for the MAS Admission"
^DD(727,8,21,4,0)="extract."
^DD(727,8,"DT")="2911112"
^DD(727,9,0)="PURGED^DI^^PURG;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(727,9,21,0)="^^2^2^2911112^"
^DD(727,9,21,1,0)="The date on which the data for this extract was deleted from the local"
^DD(727,9,21,2,0)="extract file."
^DD(727,9,23,0)="^^2^2^2911112^"
^DD(727,9,23,1,0)="This date is set when data is deleted from the corresponding local"
^DD(727,9,23,2,0)="extract file."
^DD(727,9,"DT")="2960216"
^DD(727,10,0)="OTHER IFCAP EXTRACT^P727'^ECX(727,^IFCAP;1^Q"
^DD(727,10,21,0)="^^5^5^2950411^^"
^DD(727,10,21,1,0)="The combined IFCAP extract consists of two separate extracts, the"
^DD(727,10,21,2,0)="detailed extract and the summary extract.  This field is used to"
^DD(727,10,21,3,0)="link the two so that they can be purged simultaneously.  Like all"
^DD(727,10,21,4,0)="fields in this file, it is set by the extract routines and should"
^DD(727,10,21,5,0)="not be edited."
^DD(727,10,23,0)="^^1^1^2950411^"
^DD(727,10,23,1,0)="Pointer to the DSS EXTRACT LOG file (#727)."
^DD(727,10,"DT")="2921102"
^DD(727,11,0)="QUEUED^NJ9,0^^Q;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727,11,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727,11,21,0)="6^^4^4^2950411^"
^DD(727,11,21,1,0)="This field will contain the number of the task (ZTSK) for this queued"
^DD(727,11,21,2,0)="transmission.  It is set by the transmit routine (ECXTRANS) when the"
^DD(727,11,21,3,0)="job is queued and cleared by the same routine when the transmission is"
^DD(727,11,21,4,0)="completed. This field should not be edited directly via VA FileMan."
^DD(727,11,23,0)="^^4^4^2950411^^"
^DD(727,11,23,1,0)="The variable ZTSK is set into this field by line SET^ECXTRANS when the"
^DD(727,11,23,2,0)="job is queued to run and cleared by line CLEAN^ECXTRANS when the job"
^DD(727,11,23,3,0)="completes.  It is used to prevent the user from queuing the same"
^DD(727,11,23,4,0)="transmission twice.  This field should not be edited via VA FileMan."
^DD(727,11,"DT")="2930505"
^DD(727,12,0)="LOCAL EXTRACT^SI^L:LOCAL;^L;1^Q"
^DD(727,12,21,0)="^^4^4^2950411^^"
^DD(727,12,21,1,0)="This field will be set for any extract designed to be transmitted to"
^DD(727,12,21,2,0)="some local non-DHCP database rather than to the commercial vendor"
^DD(727,12,21,3,0)="database.  If this field is set, this extract can not be chosen for"
^DD(727,12,21,4,0)="transmission to the commercial vendor."
^DD(727,12,23,0)="^^3^3^2950411^^^"
^DD(727,12,23,1,0)="This field is used in a DIC(""S"") screen in routine ECXTRANS to prevent"
^DD(727,12,23,2,0)="an extract intended for local use to be transmitted to the commercial"
^DD(727,12,23,3,0)="vendor."
^DD(727,12,"DT")="2930805"
^DD(727,13,0)="VERSION^F^^VER;1^K:$L(X)>3!($L(X)<1) X"
^DD(727,13,3)="Answer must be 1-3 characters in length."
^DD(727,13,21,0)="^^4^4^2960214^^"
^DD(727,13,21,1,0)="This field contains a version identifier to be used as part of"
^DD(727,13,21,2,0)="the header in transmissions to Austin.  It can then be used by"
^DD(727,13,21,3,0)="the SAS programs at Austin to change the processing logic as"
^DD(727,13,21,4,0)="versions change."
^DD(727,13,23,0)="^^2^2^2960214^^^"
^DD(727,13,23,1,0)="Picked up in line START+2^ECXTRANS and padded to a length of 3"
^DD(727,13,23,2,0)="and tacked onto the header at START+7"
^DD(727,13,"DT")="2950731"
^DD(727,14,0)="EXTRACT LOGIC^F^^VER;2^K:$L(X)>5!($L(X)<4)!'(X?4N.1N.1A.1"" "") X"
^DD(727,14,3)="Enter the fiscal year extract logic used"
^DD(727,14,21,0)="^^3^3^3030710^"
^DD(727,14,21,1,0)="Fiscal year extract logic used when extracting the data.  Format of is the"
^DD(727,14,21,2,0)="extract year + an optional revision denotion (ex: ""2004"", ""2004A"","
^DD(727,14,21,3,0)="""20041"").  Note that ""2004"" and ""2004 "" are considered the same value."
^DD(727,14,"DT")="3030710"
^DD(727,15,0)="DIVISION^RP4'^DIC(4,^DIV;1^Q"
^DD(727,15,.1)="Division"
^DD(727,15,3)="Enter the division of the user that completed the extract."
^DD(727,15,10)="The DSS Extract software (ECXTRAC)."
^DD(727,15,21,0)="^^3^3^2980805^^^"
^DD(727,15,21,1,0)="This field indicates the division of the user that generated the extract."
^DD(727,15,21,2,0)="This field will also indicate the division from which information was"
^DD(727,15,21,3,0)="extracted for prosthetics extracts."
^DD(727,15,23,0)="^^4^4^2980805^^"
^DD(727,15,23,1,0)="ECXTRAC defines the value of this field.  To address the divisional"
^DD(727,15,23,2,0)="considerations at some hospitals with prosthetic services, this field"
^DD(727,15,23,3,0)="was added and will indicated the division for which the prosthetic"
^DD(727,15,23,4,0)="extract contains information."
^DD(727,15,"DT")="2980715"
^DD(727,16,0)="USER^P200'^VA(200,^0;7^Q"
^DD(727,16,21,0)="^.001^2^2^3050510^^"
^DD(727,16,21,1,0)="Internal Entry Number (IEN) from the New Person File (#200) of the user"
^DD(727,16,21,2,0)="that ran the specified extract."
^DD(727,16,"DT")="3050420"
^DD(727,300,0)="TRANSMITTED^DI^^TR;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(727,300,1,0)="^.1"
^DD(727,300,1,1,0)="727^AT"
^DD(727,300,1,1,1)="S ^ECX(727,""AT"",$E(X,1,30),DA)="""""
^DD(727,300,1,1,2)="K ^ECX(727,""AT"",$E(X,1,30),DA)"
^DD(727,300,1,1,3)="This cross reference is essental for managing and purging data in several files.  DO NOT DELETE."
^DD(727,300,1,1,"DT")="2910803"
^DD(727,300,21,0)="^^3^3^2911105^"
^DD(727,300,21,1,0)="This field is set when the entries for this file are transmitted to"
^DD(727,300,21,2,0)="the commercial vendor.  This field and the cross reference are"
^DD(727,300,21,3,0)="essential for managing and purging data in this file."
^DD(727,300,23,0)="^^2^2^2911105^"
^DD(727,300,23,1,0)="The date when these file entries were loaded into a mail message for"
^DD(727,300,23,2,0)="transmission, set by the transmit routine."
^DD(727,300,"DT")="2930805"
^DD(727,301,0)="MESSAGE NUMBER^727.0301A^^1;0"
^DD(727,301,21,0)="^^2^2^2950411^^"
^DD(727,301,21,1,0)="This multiple holds the message numbers sent to the Austin Automation"
^DD(727,301,21,2,0)="Center for this extract."
^DD(727,"B","DIVISION",15)=""
^DD(727,"B","Division",15)="1"
^DD(727,"B","END DATE/TIME",4)=""
^DD(727,"B","EXTRACT DATE",1)=""
^DD(727,"B","EXTRACT LOGIC",14)=""
^DD(727,"B","FILE NUMBER",7)=""
^DD(727,"B","GROUP",8)=""
^DD(727,"B","HEADER FOR MESSAGE",6)=""
^DD(727,"B","LOCAL EXTRACT",12)=""
^DD(727,"B","MESSAGE NUMBER",301)=""
^DD(727,"B","NUMBER OF RECORDS",5)=""
^DD(727,"B","OTHER IFCAP EXTRACT",10)=""
^DD(727,"B","PURGED",9)=""
^DD(727,"B","QUEUED",11)=""
^DD(727,"B","RECORD NUMBER",.01)=""
^DD(727,"B","START DATE/TIME",3)=""
^DD(727,"B","TRANSMITTED",300)=""
^DD(727,"B","TYPE",2)=""
^DD(727,"B","USER",16)=""
^DD(727,"B","VERSION",13)=""
^DD(727,"GL",0,1,.01)=""
^DD(727,"GL",0,2,1)=""
^DD(727,"GL",0,3,2)=""
^DD(727,"GL",0,4,3)=""
^DD(727,"GL",0,5,4)=""
^DD(727,"GL",0,6,5)=""
^DD(727,"GL",0,7,16)=""
^DD(727,"GL",1,0,301)=""
^DD(727,"GL","DIV",1,15)=""
^DD(727,"GL","FILE",1,7)=""
^DD(727,"GL","GRP",1,8)=""
^DD(727,"GL","HEAD",1,6)=""
^DD(727,"GL","IFCAP",1,10)=""
^DD(727,"GL","L",1,12)=""
^DD(727,"GL","PURG",1,9)=""
^DD(727,"GL","Q",1,11)=""
^DD(727,"GL","TR",1,300)=""
^DD(727,"GL","VER",1,13)=""
^DD(727,"GL","VER",2,14)=""
^DD(727,"IX",.01)=""
^DD(727,"IX",1)=""
^DD(727,"IX",2)=""
^DD(727,"IX",3)=""
^DD(727,"IX",6)=""
^DD(727,"IX",300)=""
^DD(727,"RQ",.01)=""
^DD(727,"RQ",15)=""
^DD(727,"SB",727.0301,301)=""
^DD(727.0301,0)="MESSAGE NUMBER SUB-FIELD^^.01^1"
^DD(727.0301,0,"IX","B",727.0301,.01)=""
^DD(727.0301,0,"NM","MESSAGE NUMBER")=""
^DD(727.0301,0,"UP")="727"
^DD(727.0301,.01,0)="MESSAGE NUMBER^MNJ12,0X^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.0301,.01,1,0)="^.1"
^DD(727.0301,.01,1,1,0)="727.0301^B"
^DD(727.0301,.01,1,1,1)="S ^ECX(727,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(727.0301,.01,1,1,2)="K ^ECX(727,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(727.0301,.01,1,2,0)="727^AB"
^DD(727.0301,.01,1,2,1)="S ^ECX(727,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(727.0301,.01,1,2,2)="K ^ECX(727,""AB"",$E(X,1,30),DA(1),DA)"
^DD(727.0301,.01,1,2,3)="Do not delete"
^DD(727.0301,.01,1,2,"%D",0)="^^3^3^2940210^"
^DD(727.0301,.01,1,2,"%D",1,0)="This cross reference is used to manage the deletion of entries in"
^DD(727.0301,.01,1,2,"%D",2,0)="this sub file when confirmation messages are received from the AAC."
^DD(727.0301,.01,1,2,"%D",3,0)=" "
^DD(727.0301,.01,1,2,"DT")="2940210"
^DD(727.0301,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(727.0301,.01,21,0)="8^^7^7^2950411^^"
^DD(727.0301,.01,21,1,0)="This field holds the message number of a message for this extract which"
^DD(727.0301,.01,21,2,0)="was sent to the Austin Automation Center.  It is created by routine"
^DD(727.0301,.01,21,3,0)="ECXTRANS when the message was transmitted and deleted by routine"
^DD(727.0301,.01,21,4,0)="ECXMDELE when the confirmation message is received from the Austin"
^DD(727.0301,.01,21,5,0)="Automation Center.  A necessary and sufficient condition for an extract"
^DD(727.0301,.01,21,6,0)="to have been successfully transmitted to the Austin Automation Center is"
^DD(727.0301,.01,21,7,0)="the existence of TRANSMITTED field (#300) and no entries in this multiple."
^DD(727.0301,.01,23,0)="6^^5^5^2950411^^"
^DD(727.0301,.01,23,1,0)="Created at line SETM^ECXTRANS at the time of transmission to the"
^DD(727.0301,.01,23,2,0)="Austin Automation Center and deleted at line DEL^ECXMDELE when the"
^DD(727.0301,.01,23,3,0)="confirmation message is received from the Austin Automation Center."
^DD(727.0301,.01,23,4,0)="For this deletion to occur, the server option S.ECXMDELE@<this site> must"
^DD(727.0301,.01,23,5,0)="be a remote member of the mail group DMS."
^DD(727.0301,.01,"DT")="2940210"
^DD(727.0301,"B","MESSAGE NUMBER",.01)=""
^DD(727.0301,"GL",0,1,.01)=""
^DD(727.0301,"IX",.01)=""
^DD(727.1,0)="FIELD^^13^14"
^DD(727.1,0,"DDA")="N"
^DD(727.1,0,"DT")="3030710"
^DD(727.1,0,"IX","AC",727.1,7)=""
^DD(727.1,0,"IX","AF",727.1,1)=""
^DD(727.1,0,"IX","B",727.1,.01)=""
^DD(727.1,0,"IX","C",727.1,8)=""
^DD(727.1,0,"NM","EXTRACT DEFINITIONS")=""
^DD(727.1,0,"VR")="3.0"
^DD(727.1,0,"VRPK")="ECX"
^DD(727.1,.01,0)="EXTRACT NAME^RFI^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(727.1,.01,1,0)="^.1"
^DD(727.1,.01,1,1,0)="727.1^B"
^DD(727.1,.01,1,1,1)="S ^ECX(727.1,""B"",$E(X,1,30),DA)="""""
^DD(727.1,.01,1,1,2)="K ^ECX(727.1,""B"",$E(X,1,30),DA)"
^DD(727.1,.01,3)="Answer must be 1-30 characters in length."
^DD(727.1,.01,21,0)="^^1^1^2930415^^^^"
^DD(727.1,.01,21,1,0)="The name of the extract."
^DD(727.1,.01,"DT")="2950421"
^DD(727.1,1,0)="FILE NUMBER^RNJ7,3I^^0;2^K:+X'=X!(X>728)!(X<727)!(X?.E1"".""4N.N) X"
^DD(727.1,1,1,0)="^.1"
^DD(727.1,1,1,1,0)="727.1^AF"
^DD(727.1,1,1,1,1)="S ^ECX(727.1,""AF"",$E(X,1,30),DA)="""""
^DD(727.1,1,1,1,2)="K ^ECX(727.1,""AF"",$E(X,1,30),DA)"
^DD(727.1,1,1,1,3)="DO NOT DELETE"
^DD(727.1,1,1,1,"%D",0)="^^2^2^2930415^^"
^DD(727.1,1,1,1,"%D",1,0)="This cross reference is essential for determing the frequency and date"
^DD(727.1,1,1,1,"%D",2,0)="range for package extracts.  Do not delete."
^DD(727.1,1,1,1,"DT")="2930129"
^DD(727.1,1,3)="Type a Number between 727 and 728, 3 Decimal Digits"
^DD(727.1,1,21,0)="^^1^1^2930129^"
^DD(727.1,1,21,1,0)="The number of the file into which this extract places data."
^DD(727.1,1,23,0)="^^4^4^2930129^"
^DD(727.1,1,23,1,0)="The AF cross reference on this file is used by the extract routines,"
^DD(727.1,1,23,2,0)="using the variable ECFILE, to determine the frequency with which the"
^DD(727.1,1,23,3,0)="extract is run and, from the frequency, the starting and ending days"
^DD(727.1,1,23,4,0)="for the extract."
^DD(727.1,1,"DT")="2940428"
^DD(727.1,2,0)="FREQUENCY^S^D:DAILY;W:WEEKLY;M:MONTHLY;^0;3^Q"
^DD(727.1,2,21,0)="^^5^5^2940225^^^^"
^DD(727.1,2,21,1,0)="This field determines the frequency with which this extract will be"
^DD(727.1,2,21,2,0)="run.  Daily extracts are run for a single day, T-X, where X is the"
^DD(727.1,2,21,3,0)="number entered in the DAYS AGO field in this file.  Weekly extracts"
^DD(727.1,2,21,4,0)="are run for the week ending on T-X.  Monthly extracts are run for"
^DD(727.1,2,21,5,0)="the previous month."
^DD(727.1,2,23,0)="^^2^2^2940225^^^^"
^DD(727.1,2,23,1,0)="This field is used by the extract routines to determine the starting"
^DD(727.1,2,23,2,0)="and ending dates for the extract."
^DD(727.1,2,"DT")="2940225"
^DD(727.1,3,0)="DAYS AGO^RNJ2,0^^0;4^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.1,3,3)="Type a Number between 1 and 30, 0 Decimal Digits"
^DD(727.1,3,21,0)="^^4^4^2930811^^"
^DD(727.1,3,21,1,0)="This field is used for daily and weekly extracts to determine how"
^DD(727.1,3,21,2,0)="many days ago the extract should look for data.  For daily extracts,"
^DD(727.1,3,21,3,0)="the date would be T-X, for weekly extracts, the date range would"
^DD(727.1,3,21,4,0)="be from T-X-7 to T-X."
^DD(727.1,3,23,0)="^^2^2^2930811^^"
^DD(727.1,3,23,1,0)="Used by the extract routines to determine the date for a daily extract"
^DD(727.1,3,23,2,0)="or the date range for a weekly extract."
^DD(727.1,3,"DT")="2930129"
^DD(727.1,4,0)="ROUTINE^FI^^ROU;1^K:$L(X)>8!($L(X)<1)!'(X?1""ECX"".UN) X"
^DD(727.1,4,3)="Answer must be 1-8 characters in length."
^DD(727.1,4,21,0)="^^2^2^2930811^^"
^DD(727.1,4,21,1,0)="The name of the routine which performs this extract.  Data is loaded"
^DD(727.1,4,21,2,0)="into this field at creation time as should not be edited in the field"
^DD(727.1,4,23,0)="^^4^4^2930811^^"
^DD(727.1,4,23,1,0)="Data in this field is used to queue the initial extract.  Once the"
^DD(727.1,4,23,2,0)="extract manager specifies the frequency, days offset, start date"
^DD(727.1,4,23,3,0)="(which is not a data element in this file), the extract setup"
^DD(727.1,4,23,4,0)="calls %ZTLOAD to queue QUE^routine at the proper time."
^DD(727.1,4,"DT")="2940324"
^DD(727.1,5,0)="OFFSET^NJ2,0^^0;5^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.1,5,3)="The offset, in days, for the daily local extract"
^DD(727.1,5,21,0)="^^2^2^2980706^^"
^DD(727.1,5,21,1,0)="This field is used by the local daily extract to determine how many days"
^DD(727.1,5,21,2,0)="back to look for data"
^DD(727.1,5,"DT")="2930827"
^DD(727.1,6,0)="QUEUED^SI^1:YES;^0;6^Q"
^DD(727.1,6,21,0)="^^6^6^2990601^^^"
^DD(727.1,6,21,1,0)="This field is set by the software when the extract is queued to"
^DD(727.1,6,21,2,0)="run.  Once this field is set, other data elements should be"
^DD(727.1,6,21,3,0)="changed only with extreme care.  Changing either the frequency or"
^DD(727.1,6,21,4,0)="the days ago field could result in a date range being missed and"
^DD(727.1,6,21,5,0)="not extracted for trasmission to TSI."
^DD(727.1,6,21,6,0)=" "
^DD(727.1,6,"DT")="2940324"
^DD(727.1,7,0)="TYPE^RF^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(727.1,7,1,0)="^.1"
^DD(727.1,7,1,1,0)="727.1^AC"
^DD(727.1,7,1,1,1)="S ^ECX(727.1,""AC"",$E(X,1,30),DA)="""""
^DD(727.1,7,1,1,2)="K ^ECX(727.1,""AC"",$E(X,1,30),DA)"
^DD(727.1,7,1,1,"DT")="2980706"
^DD(727.1,7,3)="Answer must be 3-30 characters in length."
^DD(727.1,7,21,0)="^^3^3^2970925^"
^DD(727.1,7,21,1,0)="This is the print name for the extract.  It has an important use in"
^DD(727.1,7,21,2,0)="supplying a data element to the TYPE field (#2) of the DSS EXTRACT"
^DD(727.1,7,21,3,0)="LOG file (#727)."
^DD(727.1,7,23,0)="^^5^5^2970925^"
^DD(727.1,7,23,1,0)="A free text field; only 1st character is capitalized.  Used as"
^DD(727.1,7,23,2,0)="print name for the extract."
^DD(727.1,7,23,3,0)=" "
^DD(727.1,7,23,4,0)="This data element is also hard-coded into the SETUP code unit of"
^DD(727.1,7,23,5,0)="each extract routine using variable ECPACK."
^DD(727.1,7,"DT")="2980706"
^DD(727.1,8,0)="HEADER CODE^RF^^0;8^K:$L(X)>3!($L(X)<3) X"
^DD(727.1,8,1,0)="^.1"
^DD(727.1,8,1,1,0)="727.1^C"
^DD(727.1,8,1,1,1)="S ^ECX(727.1,""C"",$E(X,1,30),DA)="""""
^DD(727.1,8,1,1,2)="K ^ECX(727.1,""C"",$E(X,1,30),DA)"
^DD(727.1,8,1,1,3)="Do not delete this cross-reference."
^DD(727.1,8,1,1,"%D",0)="^^2^2^2970925^"
^DD(727.1,8,1,1,"%D",1,0)="This cross-reference will be used by all the extract audit report"
^DD(727.1,8,1,1,"%D",2,0)="routines to obtain defining information on the extract."
^DD(727.1,8,1,1,"DT")="2970925"
^DD(727.1,8,3)="Answer must be 3 characters in length."
^DD(727.1,8,21,0)="^^2^2^2970925^^"
^DD(727.1,8,21,1,0)="The unique 3-letter identifier code for the extract type.  Needed for"
^DD(727.1,8,21,2,0)="the header record in each extract transmission."
^DD(727.1,8,23,0)="^^4^4^2970925^^"
^DD(727.1,8,23,1,0)="A 3-character identifying code; each character is an uppercase alpha."
^DD(727.1,8,23,2,0)=" "
^DD(727.1,8,23,3,0)="This data element is also hard-coded into the SETUP code unit of"
^DD(727.1,8,23,4,0)="each extract routine using variable ECHEAD."
^DD(727.1,8,"DT")="2970925"
^DD(727.1,9,0)="GROUP^RF^^0;9^K:$L(X)>5!($L(X)<2) X"
^DD(727.1,9,3)="Answer must be 2-5 characters in length."
^DD(727.1,9,21,0)="^^1^1^2970925^"
^DD(727.1,9,21,1,0)="This code identifies the data group to which the extract belongs."
^DD(727.1,9,23,0)="^^4^4^2970925^"
^DD(727.1,9,23,1,0)="A 2-5 character identifying code; each character is an uppercase alpha."
^DD(727.1,9,23,2,0)=" "
^DD(727.1,9,23,3,0)="This data element is also hard-coded into the SETUP code unit of"
^DD(727.1,9,23,4,0)="each extract routine using variable ECGRP."
^DD(727.1,9,"DT")="2970925"
^DD(727.1,10,0)="AUDIT DESCRIPTION^727.11^^1;0"
^DD(727.1,11,0)="RUNNING PIECE^RNJ2,0^^0;10^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.1,11,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(727.1,11,21,0)="^^3^3^2980706^^"
^DD(727.1,11,21,1,0)="This numeric provides the position of the data element which indicates"
^DD(727.1,11,21,2,0)="whether an extract of this type is currently running or is queued to"
^DD(727.1,11,21,3,0)="run."
^DD(727.1,11,23,0)="^^2^2^2980706^"
^DD(727.1,11,23,1,0)="The piece of the ^ECX(728,1,7.1) node indicated in this field will"
^DD(727.1,11,23,2,0)="contain an ""R"", if the extract is currently running or queued to run."
^DD(727.1,11,"DT")="2980706"
^DD(727.1,12,0)="MAX. LINES PER MESSAGE^RNJ3,0^^0;11^K:+X'=X!(X>500)!(X<2)!(X?.E1"".""1N.N) X"
^DD(727.1,12,3)="Type a Number between 2 and 500, 0 Decimal Digits"
^DD(727.1,12,21,0)="^^10^10^2990326^^"
^DD(727.1,12,21,1,0)="This number is the maximum number of lines per transmission message"
^DD(727.1,12,21,2,0)="allowed for this extract type."
^DD(727.1,12,21,3,0)="  "
^DD(727.1,12,21,4,0)="A default value of 200 is usually acceptable for most extracts."
^DD(727.1,12,21,5,0)="However, for some (e.g., CLI, ADM) lower values are recommended."
^DD(727.1,12,21,6,0)=" "
^DD(727.1,12,21,7,0)="It may be possible in some cases to set a value greater than 200,"
^DD(727.1,12,21,8,0)="thus reducing the total number of transmission messages needed for"
^DD(727.1,12,21,9,0)="the extract.  However, if the transmission message becomes larger"
^DD(727.1,12,21,10,0)="than 32 Kbytes, it will be rejected by AAC."
^DD(727.1,12,"DT")="2990327"
^DD(727.1,13,0)="INACTIVE^S^1:YES;0:NO;^0;12^Q"
^DD(727.1,13,3)="Enter YES if this extract is inactive"
^DD(727.1,13,21,0)="^^1^1^3030710^"
^DD(727.1,13,21,1,0)="Denotes whether or not this extract is considered inactive."
^DD(727.1,13,"DT")="3030710"
^DD(727.1,"B","AUDIT DESCRIPTION",10)=""
^DD(727.1,"B","DAYS AGO",3)=""
^DD(727.1,"B","EXTRACT NAME",.01)=""
^DD(727.1,"B","FILE NUMBER",1)=""
^DD(727.1,"B","FREQUENCY",2)=""
^DD(727.1,"B","GROUP",9)=""
^DD(727.1,"B","HEADER CODE",8)=""
^DD(727.1,"B","INACTIVE",13)=""
^DD(727.1,"B","MAX. LINES PER MESSAGE",12)=""
^DD(727.1,"B","OFFSET",5)=""
^DD(727.1,"B","QUEUED",6)=""
^DD(727.1,"B","ROUTINE",4)=""
^DD(727.1,"B","RUNNING PIECE",11)=""
^DD(727.1,"B","TYPE",7)=""
^DD(727.1,"GL",0,1,.01)=""
^DD(727.1,"GL",0,2,1)=""
^DD(727.1,"GL",0,3,2)=""
^DD(727.1,"GL",0,4,3)=""
^DD(727.1,"GL",0,5,5)=""
^DD(727.1,"GL",0,6,6)=""
^DD(727.1,"GL",0,7,7)=""
^DD(727.1,"GL",0,8,8)=""
^DD(727.1,"GL",0,9,9)=""
^DD(727.1,"GL",0,10,11)=""
^DD(727.1,"GL",0,11,12)=""
^DD(727.1,"GL",0,12,13)=""
^DD(727.1,"GL",1,0,10)=""
^DD(727.1,"GL","ROU",1,4)=""
^DD(727.1,"IX",.01)=""
^DD(727.1,"IX",1)=""
^DD(727.1,"IX",7)=""
^DD(727.1,"IX",8)=""
^DD(727.1,"RQ",.01)=""
^DD(727.1,"RQ",1)=""
^DD(727.1,"RQ",3)=""
^DD(727.1,"RQ",7)=""
^DD(727.1,"RQ",8)=""
^DD(727.1,"RQ",9)=""
^DD(727.1,"RQ",11)=""
^DD(727.1,"RQ",12)=""
^DD(727.1,"SB",727.11,10)=""
^DD(727.11,0)="AUDIT DESCRIPTION SUB-FIELD^^.01^1"
^DD(727.11,0,"DT")="2971030"
^DD(727.11,0,"NM","AUDIT DESCRIPTION")=""
^DD(727.11,0,"UP")="727.1"
^DD(727.11,.01,0)="AUDIT DESCRIPTION^WL^^0;1^Q"
^DD(727.11,.01,21,0)="^^2^2^2971030^^"
^DD(727.11,.01,21,1,0)="The information contained here provides user instructions on the "
^DD(727.11,.01,21,2,0)="recommended method for verifying the extract audit report."
^DD(727.11,.01,"DT")="2971030"
^DD(727.11,"B","AUDIT DESCRIPTION",.01)=""
^DD(727.11,"GL",0,1,.01)=""
^DD(727.2,0)="FIELD^^4^5"
^DD(727.2,0,"DDA")="N"
^DD(727.2,0,"DT")="3030915"
^DD(727.2,0,"IX","B",727.2,.01)=""
^DD(727.2,0,"IX","S",727.21,2)=""
^DD(727.2,0,"NM","DSS LAB TESTS")=""
^DD(727.2,0,"VR")="3.0"
^DD(727.2,0,"VRPK")="ECX"
^DD(727.2,.01,0)="NAME^RFIX^^0;1^K X"
^DD(727.2,.01,.1)="Name"
^DD(727.2,.01,1,0)="^.1"
^DD(727.2,.01,1,1,0)="727.2^B"
^DD(727.2,.01,1,1,1)="S ^ECX(727.2,""B"",$E(X,1,30),DA)="""""
^DD(727.2,.01,1,1,2)="K ^ECX(727.2,""B"",$E(X,1,30),DA)"
^DD(727.2,.01,1,1,"DT")="2950310"
^DD(727.2,.01,3)="This field is pre-set, no local entries should be made."
^DD(727.2,.01,9)="^"
^DD(727.2,.01,21,0)="^.001^4^4^3030916^^^^"
^DD(727.2,.01,21,1,0)="The DSS LAB TEST file (#727.2) has ONE top level file entry which stores"
^DD(727.2,.01,21,2,0)="local data (i.e., local lab test names and blood/urine/feces specimen names)"
^DD(727.2,.01,21,3,0)="for each of the laboratory tests that are tracked using the Decision Support"
^DD(727.2,.01,21,4,0)="System. This entry is called ""LOCAL DSS LAR SETUP""."
^DD(727.2,.01,23,0)="^.001^1^1^3030916^^^^"
^DD(727.2,.01,23,1,0)="This field is distributed pre-set, no local entries should be made."
^DD(727.2,.01,"DT")="2961213"
^DD(727.2,1,0)="DSS LAB TEST^727.21^^1;0"
^DD(727.2,2,0)="BLOOD SPECIMEN^727.22P^^BL;0"
^DD(727.2,3,0)="URINE SPECIMEN^727.23P^^UR;0"
^DD(727.2,4,0)="FECES SPECIMEN^727.24P^^FE;0"
^DD(727.2,"B","BLOOD SPECIMEN",2)=""
^DD(727.2,"B","DSS LAB TEST",1)=""
^DD(727.2,"B","FECES SPECIMEN",4)=""
^DD(727.2,"B","NAME",.01)=""
^DD(727.2,"B","Name",.01)="1"
^DD(727.2,"B","URINE SPECIMEN",3)=""
^DD(727.2,"GL",0,1,.01)=""
^DD(727.2,"GL",1,0,1)=""
^DD(727.2,"GL","BL",0,2)=""
^DD(727.2,"GL","FE",0,4)=""
^DD(727.2,"GL","UR",0,3)=""
^DD(727.2,"IX",.01)=""
^DD(727.2,"RQ",.01)=""
^DD(727.2,"SB",727.21,1)=""
^DD(727.2,"SB",727.22,2)=""
^DD(727.2,"SB",727.23,3)=""
^DD(727.2,"SB",727.24,4)=""
^DD(727.21,0)="DSS LAB TEST SUB-FIELD^^2^3"
^DD(727.21,0,"DT")="3030915"
^DD(727.21,0,"IX","B",727.21,.01)=""
^DD(727.21,0,"NM","DSS LAB TEST")=""
^DD(727.21,0,"UP")="727.2"
^DD(727.21,.01,0)="DSS LAB TEST^MRFIX^^0;1^K X"
^DD(727.21,.01,1,0)="^.1"
^DD(727.21,.01,1,1,0)="727.21^B"
^DD(727.21,.01,1,1,1)="S ^ECX(727.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(727.21,.01,1,1,2)="K ^ECX(727.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(727.21,.01,3)="Enter name of laboratory test to be tracked for DSS."
^DD(727.21,.01,8.5)="^"
^DD(727.21,.01,9)="^"
^DD(727.21,.01,21,0)="^.001^2^2^3030916^^^"
^DD(727.21,.01,21,1,0)="This is the laboratory test which will be tracked for the Decision Support"
^DD(727.21,.01,21,2,0)="System."
^DD(727.21,.01,23,0)="^.001^2^2^3030916^^^^"
^DD(727.21,.01,23,1,0)="This entry is pre-determined by the DSS Program office and distributed"
^DD(727.21,.01,23,2,0)="with the DSS Extracts software."
^DD(727.21,.01,"DEL",.01,0)="I 1 W !?10,""THIS LAB TEST MAY NOT BE DELETED"""
^DD(727.21,.01,"DT")="2961213"
^DD(727.21,1,0)="LOCAL LAB TEST NAME^727.211P^^LOC;0"
^DD(727.21,1,21,0)="^.001^2^2^3030916^^^^"
^DD(727.21,1,21,1,0)="This is the data name in the LABORATORY TEST file (#60) that"
^DD(727.21,1,21,2,0)="corresponds to this laboratory test."
^DD(727.21,1,23,0)="^.001^3^3^3030916^^^^"
^DD(727.21,1,23,1,0)="Pointer to the NAME field (.01) of the LABORATORY TEST file (#60)."
^DD(727.21,1,23,2,0)="Entries will be screened to allow only individually orderable (atomic)"
^DD(727.21,1,23,3,0)="tests and tests which are linked to a National VA Lab Code."
^DD(727.21,2,0)="SOURCE^SI^B:BLOOD;U:URINE;F:FECES;^0;2^Q"
^DD(727.21,2,1,0)="^.1"
^DD(727.21,2,1,1,0)="727.2^S"
^DD(727.21,2,1,1,1)="S ^ECX(727.2,""S"",$E(X,1,30),DA(1),DA)="""""
^DD(727.21,2,1,1,2)="K ^ECX(727.2,""S"",$E(X,1,30),DA(1),DA)"
^DD(727.21,2,1,1,3)="DO NOT DELETE!!"
^DD(727.21,2,1,1,"%D",0)="^^1^1^2961213^"
^DD(727.21,2,1,1,"%D",1,0)="This cross reference is used to sort DSS Lab Tests by source of specimen."
^DD(727.21,2,1,1,"DT")="2961213"
^DD(727.21,2,3)="Enter the type of SPECIMEN to be used for this DSS Lab Test."
^DD(727.21,2,21,0)="^.001^2^2^3030916^^^"
^DD(727.21,2,21,1,0)="This flag is used to denote which specimen type should be used in the"
^DD(727.21,2,21,2,0)="search criteria for this DSS Lab Test."
^DD(727.21,2,23,0)="^.001^2^2^3030916^^^"
^DD(727.21,2,23,1,0)="This flag is used to denote which specimen type should be used in the"
^DD(727.21,2,23,2,0)="search criteria for this DSS Lab Test.  B=Blood, U=Urine, F=Feces"
^DD(727.21,2,"DEL",2,0)="I 1 W !?10,""THIS SOURCE FLAG MAY NOT BE DELETED"""
^DD(727.21,2,"DT")="3030915"
^DD(727.21,"B","DSS LAB TEST",.01)=""
^DD(727.21,"B","LOCAL LAB TEST NAME",1)=""
^DD(727.21,"B","SOURCE",2)=""
^DD(727.21,"GL",0,1,.01)=""
^DD(727.21,"GL",0,2,2)=""
^DD(727.21,"GL","LOC",0,1)=""
^DD(727.21,"IX",.01)=""
^DD(727.21,"IX",2)=""
^DD(727.21,"RQ",.01)=""
^DD(727.21,"SB",727.211,1)=""
^DD(727.211,0)="LOCAL LAB TEST NAME SUB-FIELD^^.01^1"
^DD(727.211,0,"DT")="2970226"
^DD(727.211,0,"IX","B",727.211,.01)=""
^DD(727.211,0,"NM","LOCAL LAB TEST NAME")=""
^DD(727.211,0,"UP")="727.21"
^DD(727.211,.01,0)="LOCAL LAB TEST NAME^M*P60'O^LAB(60,^0;1^S DIC(""S"")=""I $L($P(^(0),U,5)),$G(^(64))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(727.211,.01,1,0)="^.1"
^DD(727.211,.01,1,1,0)="727.211^B"
^DD(727.211,.01,1,1,1)="S ^ECX(727.2,DA(2),1,DA(1),""LOC"",""B"",$E(X,1,30),DA)="""""
^DD(727.211,.01,1,1,2)="K ^ECX(727.2,DA(2),1,DA(1),""LOC"",""B"",$E(X,1,30),DA)"
^DD(727.211,.01,3)="Enter a corresponding lab test (from the LABORATORY TEST file (#60)) for this DSS lab test."
^DD(727.211,.01,12)="Only atomic tests and tests which are linked to a National VA Lab Code."
^DD(727.211,.01,12.1)="S DIC(""S"")=""I $L($P(^(0),U,5)),$G(^(64))"""
^DD(727.211,.01,21,0)="^.001^2^2^3030916^^^^"
^DD(727.211,.01,21,1,0)="This is the corresponding data name in the LABORATORY TEST file (#60) for"
^DD(727.211,.01,21,2,0)="this laboratory test."
^DD(727.211,.01,23,0)="^.001^1^1^3030916^^^^"
^DD(727.211,.01,23,1,0)="Pointer to the NAME field (.01) of the LABORATORY TEST file (#60)."
^DD(727.211,.01,"DT")="2970226"
^DD(727.211,"B","LOCAL LAB TEST NAME",.01)=""
^DD(727.211,"GL",0,1,.01)=""
^DD(727.211,"IX",.01)=""
^DD(727.22,0)="BLOOD SPECIMEN SUB-FIELD^^.01^1"
^DD(727.22,0,"DT")="2961213"
^DD(727.22,0,"IX","B",727.22,.01)=""
^DD(727.22,0,"NM","BLOOD SPECIMEN")=""
^DD(727.22,0,"UP")="727.2"
^DD(727.22,.01,0)="BLOOD SPECIMEN^MP61'X^LAB(61,^0;1^S:$D(X) DINUM=X"
^DD(727.22,.01,1,0)="^.1"
^DD(727.22,.01,1,1,0)="727.22^B"
^DD(727.22,.01,1,1,1)="S ^ECX(727.2,DA(1),""BL"",""B"",$E(X,1,30),DA)="""""
^DD(727.22,.01,1,1,2)="K ^ECX(727.2,DA(1),""BL"",""B"",$E(X,1,30),DA)"
^DD(727.22,.01,3)="Enter a specimen locally considered to be a BLOOD SPECIMEN."
^DD(727.22,.01,21,0)="^.001^2^2^3030916^^^^"
^DD(727.22,.01,21,1,0)="This field contains all of the specimens a facility considers to be blood"
^DD(727.22,.01,21,2,0)="specimens."
^DD(727.22,.01,23,0)="^.001^1^1^3030916^^^^"
^DD(727.22,.01,23,1,0)="Pointer to the NAME field (.01) of the TOPOGRAPHY FIELD file (#61)."
^DD(727.22,.01,"DT")="2961217"
^DD(727.22,"B","BLOOD SPECIMEN",.01)=""
^DD(727.22,"GL",0,1,.01)=""
^DD(727.22,"IX",.01)=""
^DD(727.23,0)="URINE SPECIMEN SUB-FIELD^^.01^1"
^DD(727.23,0,"DT")="2961213"
^DD(727.23,0,"IX","B",727.23,.01)=""
^DD(727.23,0,"NM","URINE SPECIMEN")=""
^DD(727.23,0,"UP")="727.2"
^DD(727.23,.01,0)="URINE SPECIMEN^MP61'X^LAB(61,^0;1^S:$D(X) DINUM=X"
^DD(727.23,.01,1,0)="^.1"
^DD(727.23,.01,1,1,0)="727.23^B"
^DD(727.23,.01,1,1,1)="S ^ECX(727.2,DA(1),""UR"",""B"",$E(X,1,30),DA)="""""
^DD(727.23,.01,1,1,2)="K ^ECX(727.2,DA(1),""UR"",""B"",$E(X,1,30),DA)"
^DD(727.23,.01,3)="Enter a specimen locally considered to be a URINE SPECIMEN."
^DD(727.23,.01,21,0)="^.001^2^2^3030916^^^^"
^DD(727.23,.01,21,1,0)="This field contains all of the specimens a facility considers to be urine"
^DD(727.23,.01,21,2,0)="specimens."
^DD(727.23,.01,23,0)="^.001^1^1^3030916^^^^"
^DD(727.23,.01,23,1,0)="Pointer to the NAME field (.01) of the TOPOGRAPHY FIELD file (#61)."
^DD(727.23,.01,"DT")="2961217"
^DD(727.23,"B","URINE SPECIMEN",.01)=""
^DD(727.23,"GL",0,1,.01)=""
^DD(727.23,"IX",.01)=""
^DD(727.24,0)="FECES SPECIMEN SUB-FIELD^^.01^1"
^DD(727.24,0,"DT")="3030515"
^DD(727.24,0,"IX","B",727.24,.01)=""
^DD(727.24,0,"NM","FECES SPECIMEN")=""
^DD(727.24,0,"UP")="727.2"
^DD(727.24,.01,0)="FECES SPECIMEN^MP61'X^LAB(61,^0;1^S:$D(X) DINUM=X"
^DD(727.24,.01,1,0)="^.1"
^DD(727.24,.01,1,1,0)="727.24^B"
^DD(727.24,.01,1,1,1)="S ^ECX(727.2,DA(1),""FE"",""B"",$E(X,1,30),DA)="""""
^DD(727.24,.01,1,1,2)="K ^ECX(727.2,DA(1),""FE"",""B"",$E(X,1,30),DA)"
^DD(727.24,.01,3)="Enter a specimen locally considered to be a FECES SPECIMEN."
^DD(727.24,.01,21,0)="^.001^2^2^3030916^^^"
^DD(727.24,.01,21,1,0)="This field contains all of the specimens a facility considers to be feces"
^DD(727.24,.01,21,2,0)="specimens."
^DD(727.24,.01,23,0)="^^1^1^3030916^"
^DD(727.24,.01,23,1,0)="Pointer to the NAME field (.01) of the TOPOGRAPHY FIELD file (#61)."
^DD(727.24,.01,"DT")="3030515"
^DD(727.24,"B","FECES SPECIMEN",.01)=""
^DD(727.24,"GL",0,1,.01)=""
^DD(727.24,"IX",.01)=""
^DD(727.3,0)="FIELD^^1^2"
^DD(727.3,0,"DT")="2980716"
^DD(727.3,0,"IX","B",727.3,.01)=""
^DD(727.3,0,"IX","C",727.3,1)=""
^DD(727.3,0,"NM","DSS DIVISION IDENTIFIER")=""
^DD(727.3,0,"VR")="3.0"
^DD(727.3,0,"VRPK")="ECX"
^DD(727.3,.01,0)="MEDICAL CENTER DIVISION^RP40.8'^DG(40.8,^0;1^Q"
^DD(727.3,.01,1,0)="^.1"
^DD(727.3,.01,1,1,0)="727.3^B"
^DD(727.3,.01,1,1,1)="S ^ECX(727.3,""B"",$E(X,1,30),DA)="""""
^DD(727.3,.01,1,1,2)="K ^ECX(727.3,""B"",$E(X,1,30),DA)"
^DD(727.3,.01,3)=""
^DD(727.3,.01,8.5)="^"
^DD(727.3,.01,9)="^"
^DD(727.3,.01,21,0)="^^3^3^2980701^"
^DD(727.3,.01,21,1,0)="Only existing entries in the MEDICAL CENTER DIVISION file (#40.8) may"
^DD(727.3,.01,21,2,0)="be selected.  The division must be active during the current fiscal "
^DD(727.3,.01,21,3,0)="year."
^DD(727.3,.01,"DT")="2980701"
^DD(727.3,1,0)="DSS DIVISION IDENTIFIER^RFX^^0;2^K:$L(X)>1!($L(X)<1)!(X?.P) X"
^DD(727.3,1,1,0)="^.1"
^DD(727.3,1,1,1,0)="727.3^C"
^DD(727.3,1,1,1,1)="S ^ECX(727.3,""C"",$E(X,1,30),DA)="""""
^DD(727.3,1,1,1,2)="K ^ECX(727.3,""C"",$E(X,1,30),DA)"
^DD(727.3,1,1,1,"%D",0)="^^1^1^2980714^"
^DD(727.3,1,1,1,"%D",1,0)="Regular cross-reference on DSS Division Identifier."
^DD(727.3,1,1,1,"DT")="2980714"
^DD(727.3,1,3)="Answer must be a unique code, 1 character in length."
^DD(727.3,1,8.5)="^"
^DD(727.3,1,9)="^"
^DD(727.3,1,21,0)="^^6^6^2980721^^^"
^DD(727.3,1,21,1,0)="Sites should use the same value as they have established on DSS in Austin"
^DD(727.3,1,21,2,0)="for the medical center division."
^DD(727.3,1,21,3,0)=" "
^DD(727.3,1,21,4,0)="Exactly one alphanumeric character."
^DD(727.3,1,21,5,0)="Numerics: 1-9 (0 not allowed)."
^DD(727.3,1,21,6,0)="Alphas: A-Z (lowercase not allowed)."
^DD(727.3,1,"DT")="2980721"
^DD(727.3,"B","DSS DIVISION IDENTIFIER",1)=""
^DD(727.3,"B","MEDICAL CENTER DIVISION",.01)=""
^DD(727.3,"GL",0,1,.01)=""
^DD(727.3,"GL",0,2,1)=""
^DD(727.3,"IX",.01)=""
^DD(727.3,"IX",1)=""
^DD(727.3,"RQ",.01)=""
^DD(727.3,"RQ",1)=""
^DD(727.4,0)="FIELD^^1^2"
^DD(727.4,0,"DT")="2980701"
^DD(727.4,0,"IX","B",727.4,.01)=""
^DD(727.4,0,"NM","DSS WARD")=""
^DD(727.4,0,"VR")="3.0"
^DD(727.4,0,"VRPK")="ECX"
^DD(727.4,.01,0)="MEDICAL CENTER WARD^RP42'^DIC(42,^0;1^Q"
^DD(727.4,.01,1,0)="^.1"
^DD(727.4,.01,1,1,0)="727.4^B"
^DD(727.4,.01,1,1,1)="S ^ECX(727.4,""B"",$E(X,1,30),DA)="""""
^DD(727.4,.01,1,1,2)="K ^ECX(727.4,""B"",$E(X,1,30),DA)"
^DD(727.4,.01,3)=""
^DD(727.4,.01,8.5)="^"
^DD(727.4,.01,9)="^"
^DD(727.4,.01,"DT")="2980701"
^DD(727.4,1,0)="DSS DEPARTMENT^RF^^0;2^K:$L(X)>7!($L(X)<4) X"
^DD(727.4,1,3)="Answer must be 4-7 characters in length."
^DD(727.4,1,8.5)="^"
^DD(727.4,1,9)="^"
^DD(727.4,1,21,0)="^^16^16^2980701^"
^DD(727.4,1,21,1,0)="The DSS Department code consists of a minimum of 4 characters as:"
^DD(727.4,1,21,2,0)="  "
^DD(727.4,1,21,3,0)="     ABBCxxx"
^DD(727.4,1,21,4,0)="  "
^DD(727.4,1,21,5,0)="Derived as follows:"
^DD(727.4,1,21,6,0)="  "
^DD(727.4,1,21,7,0)="A  = DSS CODE in NATIONAL SERVICE file (#730)"
^DD(727.4,1,21,8,0)="BB = DSS PRODUCTION UNIT CODE in DSS PRODUCTION UNIT file (#729) "
^DD(727.4,1,21,9,0)="C  = DSS DIVISION IDENTIFIER in DSS DIVISION IDENTIFIER file (#727.3)"
^DD(727.4,1,21,10,0)="  "
^DD(727.4,1,21,11,0)="xxx = A suffix of not more than three characters which must be numeric"
^DD(727.4,1,21,12,0)="      digits or uppercase alpha characters.  The first character of the"
^DD(727.4,1,21,13,0)="      string may be ""-"", but that is not recommended."
^DD(727.4,1,21,14,0)="  "
^DD(727.4,1,21,15,0)="This field should not be edited through FileMan.  Use the appropriate"
^DD(727.4,1,21,16,0)="DSS EXTRACTS option."
^DD(727.4,1,"DT")="2980701"
^DD(727.4,"B","DSS DEPARTMENT",1)=""
^DD(727.4,"B","MEDICAL CENTER WARD",.01)=""
^DD(727.4,"GL",0,1,.01)=""
^DD(727.4,"GL",0,2,1)=""
^DD(727.4,"IX",.01)=""
^DD(727.4,"RQ",.01)=""
^DD(727.4,"RQ",1)=""
^DD(727.5,0)="FIELD^^1^2"
^DD(727.5,0,"DDA")="N"
^DD(727.5,0,"DT")="3030919"
^DD(727.5,0,"IX","AC",727.51,.01)=""
^DD(727.5,0,"IX","AX",727.51,.02)=""
^DD(727.5,0,"IX","B",727.5,.01)=""
^DD(727.5,0,"NM","DSS MH TESTS")=""
^DD(727.5,0,"VR")="3.0"
^DD(727.5,0,"VRPK")="ECX"
^DD(727.5,.01,0)="TEST NAME^RF^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(727.5,.01,1,0)="^.1"
^DD(727.5,.01,1,1,0)="727.5^B"
^DD(727.5,.01,1,1,1)="S ^ECX(727.5,""B"",$E(X,1,30),DA)="""""
^DD(727.5,.01,1,1,2)="K ^ECX(727.5,""B"",$E(X,1,30),DA)"
^DD(727.5,.01,3)="Answer must be 1-250 characters in length"
^DD(727.5,.01,21,0)="^.001^1^1^3030919^^^^"
^DD(727.5,.01,21,1,0)="This field is the MH INSTRUMENT test name."
^DD(727.5,.01,23,0)="^.001^1^1^3030919^^^^"
^DD(727.5,.01,23,1,0)="New entries in file #727.5 should only be made by the program office, and will be distributed via national patch releases."
^DD(727.5,.01,"DT")="3030919"
^DD(727.5,1,0)="ACTIVATION DATE^727.51DA^^1;0"
^DD(727.5,1,23,0)="^^3^3^2990511^^"
^DD(727.5,1,23,1,0)="Activation date data should not entered by the site.  Activiation"
^DD(727.5,1,23,2,0)="and inactivation dates are determined by the program office, and"
^DD(727.5,1,23,3,0)="will be distributed by national patch releases."
^DD(727.5,"B","ACTIVATION DATE",1)=""
^DD(727.5,"B","TEST NAME",.01)=""
^DD(727.5,"GL",0,1,.01)=""
^DD(727.5,"GL",1,0,1)=""
^DD(727.5,"IX",.01)=""
^DD(727.5,"RQ",.01)=""
^DD(727.5,"SB",727.51,1)=""
^DD(727.51,0)="ACTIVATION DATE SUB-FIELD^^.02^2"
^DD(727.51,0,"DT")="2990511"
^DD(727.51,0,"IX","B",727.51,.01)=""
^DD(727.51,0,"NM","ACTIVATION DATE")=""
^DD(727.51,0,"UP")="727.5"
^DD(727.51,.01,0)="ACTIVATION DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(727.51,.01,1,0)="^.1"
^DD(727.51,.01,1,1,0)="727.51^B"
^DD(727.51,.01,1,1,1)="S ^ECX(727.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(727.51,.01,1,1,2)="K ^ECX(727.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(727.51,.01,1,2,0)="727.5^AC^MUMPS"
^DD(727.51,.01,1,2,1)="S ^ECX(727.5,""AC"",DA(1),$E(X,1,30))="""""
^DD(727.51,.01,1,2,2)="K ^ECX(727.5,""AC"",DA(1),$E(X,1,30))"
^DD(727.51,.01,1,2,3)="DO NOT DELETE"
^DD(727.51,.01,1,2,"%D",0)="^^4^4^2990715^^"
^DD(727.51,.01,1,2,"%D",1,0)="This is a cross-reference of TEST NAME (i.e., IEN in file #601)"
^DD(727.51,.01,1,2,"%D",2,0)="with ACTIVATION DATE."
^DD(727.51,.01,1,2,"%D",3,0)=" "
^DD(727.51,.01,1,2,"%D",4,0)="So: ^ECX(727.5,""AC"",test ien,activation date)="""""
^DD(727.51,.01,1,2,"DT")="2990715"
^DD(727.51,.01,21,0)="^^4^4^2990511^"
^DD(727.51,.01,21,1,0)="This is the date on which the Mental Health Instrument becomes"
^DD(727.51,.01,21,2,0)="""active"" for DSS Extracts.  Result data for the test will be placed"
^DD(727.51,.01,21,3,0)="in the DSS Mental Health extract for tests completed on or after"
^DD(727.51,.01,21,4,0)="this date."
^DD(727.51,.01,"DT")="2990715"
^DD(727.51,.02,0)="INACTIVATION DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(727.51,.02,1,0)="^.1"
^DD(727.51,.02,1,1,0)="727.5^AX^MUMPS"
^DD(727.51,.02,1,1,1)="S ^ECX(727.5,""AX"",DA(1),$E(X,1,30))="""""
^DD(727.51,.02,1,1,2)="K ^ECX(727.5,""AX"",DA(1),$E(X,1,30))"
^DD(727.51,.02,1,1,3)="DO NOT DELETE"
^DD(727.51,.02,1,1,"%D",0)="^^4^4^2990715^^"
^DD(727.51,.02,1,1,"%D",1,0)="This is a cross-reference of TEST NAME (i.e., IEN in file #601)"
^DD(727.51,.02,1,1,"%D",2,0)="with INACTIVATION DATE."
^DD(727.51,.02,1,1,"%D",3,0)="  "
^DD(727.51,.02,1,1,"%D",4,0)="So: ^ECX(727.5,""AX"",test ien,inactivation date)="""""
^DD(727.51,.02,1,1,"DT")="2990715"
^DD(727.51,.02,21,0)="^^4^4^2990511^"
^DD(727.51,.02,21,1,0)="This is the date on which the Mental Health Instrument becomes"
^DD(727.51,.02,21,2,0)="""inactive"" for DSS Extracts.  Result data for the test will not be "
^DD(727.51,.02,21,3,0)="placed in the DSS Mental Health extract for tests completed on or after"
^DD(727.51,.02,21,4,0)="this date."
^DD(727.51,.02,23,0)="^^3^3^2990511^"
^DD(727.51,.02,23,1,0)="Inactivation date data should not entered by the site.  Activiation"
^DD(727.51,.02,23,2,0)="and inactivation dates are determined by the program office, and"
^DD(727.51,.02,23,3,0)="will be distributed by national patch releases."
^DD(727.51,.02,"DT")="2990715"
^DD(727.51,"B","ACTIVATION DATE",.01)=""
^DD(727.51,"B","INACTIVATION DATE",.02)=""
^DD(727.51,"GL",0,1,.01)=""
^DD(727.51,"GL",0,2,.02)=""
^DD(727.51,"IX",.01)=""
^DD(727.51,"IX",.02)=""
^DD(727.7,0)="FIELD^^1^2"
^DD(727.7,0,"DDA")="N"
^DD(727.7,0,"DT")="3020730"
^DD(727.7,0,"IX","B",727.7,.01)=""
^DD(727.7,0,"NM","LAB RESULTS TRANSLATION")=""
^DD(727.7,0,"VR")="3.0"
^DD(727.7,0,"VRPK")="ECX"
^DD(727.7,.01,0)="RESULT^RFX^^0;1^K:$L(X)>30!($L(X)<1) X S X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^DD(727.7,.01,1,0)="^.1"
^DD(727.7,.01,1,1,0)="727.7^B"
^DD(727.7,.01,1,1,1)="S ^ECX(727.7,""B"",$E(X,1,30),DA)="""""
^DD(727.7,.01,1,1,2)="K ^ECX(727.7,""B"",$E(X,1,30),DA)"
^DD(727.7,.01,3)="Answer must be 1-30 characters in length"
^DD(727.7,.01,21,0)="^^4^4^3020731^"
^DD(727.7,.01,21,1,0)="Lab results free text value for conversion."
^DD(727.7,.01,21,2,0)=" "
^DD(727.7,.01,21,3,0)="Note: All lower case characters entered into this field are converted to "
^DD(727.7,.01,21,4,0)="upper case."
^DD(727.7,.01,"DT")="3020731"
^DD(727.7,1,0)="TRANSLATION CODE^RS^0:Negative, Non-Reactive;1:Positive, Reactive;2:Borderline, Indeterminate;3:Test Not Performed, Qty not sufficient or other reason;5:Result cannot be translated;^0;2^Q"
^DD(727.7,1,3)="Enter the translation code."
^DD(727.7,1,21,0)="^.001^1^1^3020730^^^"
^DD(727.7,1,21,1,0)="Numerice Translation Code that the Result will be translated to."
^DD(727.7,1,"DT")="3020730"
^DD(727.7,"B","RESULT",.01)=""
^DD(727.7,"B","TRANSLATION CODE",1)=""
^DD(727.7,"GL",0,1,.01)=""
^DD(727.7,"GL",0,2,1)=""
^DD(727.7,"IX",.01)=""
^DD(727.7,"RQ",.01)=""
^DD(727.7,"RQ",1)=""
^DD(727.802,0)="FIELD^^75^87"
^DD(727.802,0,"DDA")="N"
^DD(727.802,0,"DIK")="ECX802"
^DD(727.802,0,"DIKOLD")="ECX802"
^DD(727.802,0,"DT")="3021009"
^DD(727.802,0,"IX","AC",727.802,2)=""
^DD(727.802,0,"NM","ADMISSION EXTRACT")=""
^DD(727.802,0,"VR")="3.0"
^DD(727.802,0,"VRPK")="ECX"
^DD(727.802,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.802,.01,.1)="Sequence Number"
^DD(727.802,.01,1,0)="^.1^^0"
^DD(727.802,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.802,.01,21,0)="^.001^1^1^3000906^^^^"
^DD(727.802,.01,21,1,0)="The record number for this extract entry."
^DD(727.802,.01,23,0)="^.001^1^1^3000906^^^^"
^DD(727.802,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.802,.01,"DT")="3000906"
^DD(727.802,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.802,1,.1)="Year/Month"
^DD(727.802,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.802,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.802,1,3)="Answer must be 6 characters in length."
^DD(727.802,1,21,0)="^^2^2^2990505^^^^"
^DD(727.802,1,21,1,0)="A six character string representing the year and the month"
^DD(727.802,1,21,2,0)="for which this extract was performed."
^DD(727.802,1,23,0)="^^1^1^2990505^^^^"
^DD(727.802,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.802,1,"DT")="2971002"
^DD(727.802,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.802,2,.1)="Extract Number"
^DD(727.802,2,1,0)="^.1"
^DD(727.802,2,1,1,0)="727.802^AC"
^DD(727.802,2,1,1,1)="S ^ECX(727.802,""AC"",$E(X,1,30),DA)="""""
^DD(727.802,2,1,1,2)="K ^ECX(727.802,""AC"",$E(X,1,30),DA)"
^DD(727.802,2,1,1,3)="DO NOT DELETE."
^DD(727.802,2,1,1,"%D",0)="^^2^2^2990511^^^^"
^DD(727.802,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.802,2,1,1,"%D",2,0)="in this file."
^DD(727.802,2,1,1,"DT")="2910802"
^DD(727.802,2,3)="Enter the extract number for this entry."
^DD(727.802,2,21,0)="^^2^2^2990505^^^^"
^DD(727.802,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.802,2,21,2,0)="extract."
^DD(727.802,2,23,0)="^^2^2^2990505^^^^"
^DD(727.802,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.802,2,23,2,0)="pick up the header for the mail message."
^DD(727.802,2,"DT")="2960731"
^DD(727.802,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.802,3,.1)="Facility"
^DD(727.802,3,3)="Enter the station number where this extract was performed."
^DD(727.802,3,21,0)="^^1^1^2990505^^^^"
^DD(727.802,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.802,3,23,0)="^^3^3^2990505^^^^"
^DD(727.802,3,23,1,0)="An indicator of the division where this event happened.  It is derived"
^DD(727.802,3,23,2,0)="from the DIVISION field (.015) of the WARD LOCATION file (#42) which"
^DD(727.802,3,23,3,0)="points to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.802,3,"DT")="2961014"
^DD(727.802,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.802,4,.1)="Patient No. - DFN"
^DD(727.802,4,3)="Enter the name of the patient for this extract record."
^DD(727.802,4,21,0)="^^1^1^2990505^^^^"
^DD(727.802,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.802,4,23,0)="^^3^3^2990505^^^^"
^DD(727.802,4,23,1,0)="Pointer to the PATIENT file (#2). This data represents the patient DFN. "
^DD(727.802,4,23,2,0)="Using the ""ATT1"" cross reference on the PATIENT MOVEMENT file (#405), "
^DD(727.802,4,23,3,0)="the PATIENT NO. - DFN data is derived from the PATIENT field (.03)."
^DD(727.802,4,"DT")="2961014"
^DD(727.802,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.802,5,.1)="Social Security Number"
^DD(727.802,5,3)=""
^DD(727.802,5,21,0)="^^4^4^2990505^^^^"
^DD(727.802,5,21,1,0)="The patient's social security number."
^DD(727.802,5,21,2,0)=" "
^DD(727.802,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.802,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.802,5,23,0)="^^6^6^2990505^^^^"
^DD(727.802,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.802,5,23,2,0)="(4) in the ADMISSION EXTRACT file (#727.802), SSN data is derived from "
^DD(727.802,5,23,3,0)="the SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.802,5,23,4,0)=" "
^DD(727.802,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.802,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.802,5,"DT")="2960731"
^DD(727.802,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.802,6,.1)="Name"
^DD(727.802,6,3)="Your answer must be 4 characters in length."
^DD(727.802,6,21,0)="^^1^1^2990505^^^^"
^DD(727.802,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.802,6,23,0)="^^4^4^2990505^^^"
^DD(727.802,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,6,23,2,0)="in the ADMISSION EXTRACT file (#727.802), NAME data is derived from the"
^DD(727.802,6,23,3,0)="NAME field  (.01) in the PATIENT file (#2). The first four characters of"
^DD(727.802,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.802,6,"DT")="2960731"
^DD(727.802,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,7,.1)="In Out Patient Indicator"
^DD(727.802,7,3)="Answer must be 1 character in length."
^DD(727.802,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.802,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for"
^DD(727.802,7,21,2,0)="this extract entry."
^DD(727.802,7,23,0)="^.001^4^4^3011129^^^"
^DD(727.802,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.802,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.802,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.802,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.802,7,"DT")="3011129"
^DD(727.802,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.802,8,.1)="Day"
^DD(727.802,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.802,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.802,8,3)="Answer must be 8 characters in length."
^DD(727.802,8,21,0)="^^2^2^2990507^^^^"
^DD(727.802,8,21,1,0)="This 8-character string represents the date on which the admission"
^DD(727.802,8,21,2,0)="occurred."
^DD(727.802,8,23,0)="^^8^8^2990507^^^^"
^DD(727.802,8,23,1,0)="Data source:"
^DD(727.802,8,23,2,0)=" "
^DD(727.802,8,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.802,8,23,4,0)=" "
^DD(727.802,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.802,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.802,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.802,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.802,8,"DT")="2970924"
^DD(727.802,9,0)="PRIMARY CARE TEAM^F^^0;10^K:$L(X)>4!($L(X)<1) X"
^DD(727.802,9,.1)="Primary Care Team"
^DD(727.802,9,3)="Enter primary care team assigned to this patient."
^DD(727.802,9,21,0)="^^1^1^2961030^^^^"
^DD(727.802,9,21,1,0)="The primary care team assigned to this patient."
^DD(727.802,9,23,0)="^^6^6^2961030^^^^"
^DD(727.802,9,23,1,0)="Using the DATE/TIME field (.01) from the PATIENT MOVEMENT file (#405) "
^DD(727.802,9,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.802,9,23,3,0)="in the ADMISSION EXTRACT file (#727.802), a call is made to the "
^DD(727.802,9,23,4,0)="Scheduling API, OUTPTTM^SDUTL3. The API returns the team's internal "
^DD(727.802,9,23,5,0)="entry number and name from the TEAM file (#404.51). Only the pointer "
^DD(727.802,9,23,6,0)="(IEN) to File 404.51 is transmitted."
^DD(727.802,9,"DT")="2961030"
^DD(727.802,10,0)="SEX^S^M:MALE;F:FEMALE;^0;11^Q"
^DD(727.802,10,.1)="Sex"
^DD(727.802,10,3)="Enter the patient's sex."
^DD(727.802,10,21,0)="^^1^1^2990505^^^^"
^DD(727.802,10,21,1,0)="Data is M if this patient is a male, or F if female."
^DD(727.802,10,23,0)="^^3^3^2990505^^"
^DD(727.802,10,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,10,23,2,0)="in the ADMISSION EXTRACT file (#727.802), this data is derived from the"
^DD(727.802,10,23,3,0)="SEX field (.02) in the PATIENT file (#2)."
^DD(727.802,10,"DT")="2960801"
^DD(727.802,11,0)="DATE OF BIRTH^FO^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.802,11,.1)="Date of Birth"
^DD(727.802,11,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.802,11,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.802,11,3)="Answer must be 8 characters in length."
^DD(727.802,11,21,0)="^^2^2^2990505^^^^"
^DD(727.802,11,21,1,0)="The patient's date of birth between December 31,1870 and today's date"
^DD(727.802,11,21,2,0)="represented by an 8-character numeric string."
^DD(727.802,11,23,0)="^^9^9^2990505^^^^"
^DD(727.802,11,23,1,0)="Data source:"
^DD(727.802,11,23,2,0)=" "
^DD(727.802,11,23,3,0)="PATIENT MOVEMENT file (#405); PATIENT field (#.03)"
^DD(727.802,11,23,4,0)="   then to PATIENT file (#2); DATE OF BIRTH field (#.03)"
^DD(727.802,11,23,5,0)=" "
^DD(727.802,11,23,6,0)="If Date of Birth cannot be determined, then January 1, 1942, is"
^DD(727.802,11,23,7,0)="used as default.  The data element is always exactly 8 numberic"
^DD(727.802,11,23,8,0)="characters in length.  Format is YYYYMMDD.  Year 2000 compliant"
^DD(727.802,11,23,9,0)="per vendor."
^DD(727.802,11,"DT")="2970924"
^DD(727.802,12,0)="RELIGION^P13'^DIC(13,^0;13^Q"
^DD(727.802,12,.1)="Religion"
^DD(727.802,12,3)="Enter the patient's religious preference."
^DD(727.802,12,21,0)="^^1^1^2990510^^^^"
^DD(727.802,12,21,1,0)="The current religious preference of this patient."
^DD(727.802,12,23,0)="^^4^4^2990510^^"
^DD(727.802,12,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.802,12,23,2,0)="in the ADMISSION EXTRACT file (#727.802), RELIGION data is derived from"
^DD(727.802,12,23,3,0)="the RELIGIOUS PREFERENCE field (#.08) in the PATIENT file (#2). It is a"
^DD(727.802,12,23,4,0)="pointer to the RELIGION file (#13)."
^DD(727.802,12,"DT")="2960801"
^DD(727.802,13,0)="EMPLOYMENT STATUS^S^1:EMPLOYED FULL TIME;2:EMPLOYED PART TIME;3:NOT EMPLOYED;4:SELF EMPLOYED;5:RETIRED;6:ACTIVE DUTY MILITARY;9:UNKNOWN;^0;14^Q"
^DD(727.802,13,.1)="Employment Status"
^DD(727.802,13,3)="Select the appropriate employment status."
^DD(727.802,13,21,0)="^^1^1^2990510^^^^"
^DD(727.802,13,21,1,0)="The patient's current employment status."
^DD(727.802,13,23,0)="^^4^4^2990510^^"
^DD(727.802,13,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.802,13,23,2,0)="in the ADMISSION EXTRACT file (#727.802), EMPLOYMENT STATUS data is"
^DD(727.802,13,23,3,0)="derived from the EMPLOYMENT STATUS field (#.31115) in the PATIENT file"
^DD(727.802,13,23,4,0)="(#2)."
^DD(727.802,13,"DT")="2960801"
^DD(727.802,14,0)="HEALTH INSURANCE^S^Y:YES;N:NO;U:UNKNOWN;^0;15^Q"
^DD(727.802,14,.1)="Health Insurance"
^DD(727.802,14,3)="Select the appropriate health insurance status."
^DD(727.802,14,21,0)="^^2^2^2990510^^^^"
^DD(727.802,14,21,1,0)="Data is Y if the patient is covered by a health insurance policy, N if"
^DD(727.802,14,21,2,0)="the patient isn't covered by any policy, or U if unknown."
^DD(727.802,14,23,0)="^^4^4^2990510^^^^"
^DD(727.802,14,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.802,14,23,2,0)="(#4) in the ADMISSION EXTRACT file (#727.802), a call is made to the "
^DD(727.802,14,23,3,0)="Integrated Billing API, INSURED^IBCNS1. The API returns 1 if the "
^DD(727.802,14,23,4,0)="patient is insured, or 0 if the patient is uninsured."
^DD(727.802,14,"DT")="2960801"
^DD(727.802,15,0)="STATE^F^^0;16^K:$L(X)>2!($L(X)<2) X"
^DD(727.802,15,.1)="State"
^DD(727.802,15,3)="Enter the VA STATE CODE for this patient."
^DD(727.802,15,21,0)="^^1^1^2980708^^^^"
^DD(727.802,15,21,1,0)="The state in which the patient resides."
^DD(727.802,15,23,0)="^^5^5^2980708^^"
^DD(727.802,15,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,15,23,2,0)="in the ADMISSION EXTRACT file (#727.802), STATE data is derived from the"
^DD(727.802,15,23,3,0)="STATE field (.115) in the PATIENT file (#2) which points to the STATE file"
^DD(727.802,15,23,4,0)="(#5). For the STATE file entry, data transmitted is the two character VA"
^DD(727.802,15,23,5,0)="STATE CODE, field (2)."
^DD(727.802,15,"DT")="2960801"
^DD(727.802,16,0)="COUNTY^F^^0;17^K:$L(X)>3!($L(X)<3) X"
^DD(727.802,16,.1)=""
^DD(727.802,16,3)=""
^DD(727.802,16,21,0)="^^1^1^2990505^^^^"
^DD(727.802,16,21,1,0)="County in which the patient resides."
^DD(727.802,16,23,0)="^^6^6^2990505^^^^"
^DD(727.802,16,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,16,23,2,0)="in the ADMISSION EXTRACT file (#727.802), data is taken from the"
^DD(727.802,16,23,3,0)="COUNTY field (.117) in the PATIENT file (#2), which points to a subfile"
^DD(727.802,16,23,4,0)="record in the COUNTY multiple field (#3) of the STATE file (#5).  The"
^DD(727.802,16,23,5,0)="three character VA COUNTY CODE field (#2) within the COUNTY multiple "
^DD(727.802,16,23,6,0)="field (#3) is used."
^DD(727.802,16,"DT")="2990505"
^DD(727.802,17,0)="ZIP+4^F^^0;18^K:$L(X)>10!($L(X)<5) X"
^DD(727.802,17,.1)=""
^DD(727.802,17,3)=""
^DD(727.802,17,21,0)="^^1^1^2990524^^^^"
^DD(727.802,17,21,1,0)="Zip code for the city in which the patient resides."
^DD(727.802,17,23,0)="^^3^3^2990524^^^^"
^DD(727.802,17,23,1,0)="The patient's zipcode with optional 4-digit extension as found in"
^DD(727.802,17,23,2,0)="the ZIP+4 field (#.1112) of the patient's record in the PATIENT"
^DD(727.802,17,23,3,0)="file (#2)."
^DD(727.802,17,"DT")="2990517"
^DD(727.802,18,0)="ELIGIBILITY^F^^0;19^K:$L(X)>3!($L(X)<1) X"
^DD(727.802,18,.1)="Eligibility"
^DD(727.802,18,3)="Answer must be 1-3 characters in length."
^DD(727.802,18,21,0)="^^1^1^2990607^^^^"
^DD(727.802,18,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.802,18,23,0)="^^11^11^2990607^^^^"
^DD(727.802,18,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,18,23,2,0)="in the ADMISSION EXTRACT file (#727.802), ELIGIBILITY data is derived from"
^DD(727.802,18,23,3,0)="the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file (#2)."
^DD(727.802,18,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8)."
^DD(727.802,18,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (8) in the"
^DD(727.802,18,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS"
^DD(727.802,18,23,7,0)="ELIGIBILITY CODE file (#8.1). "
^DD(727.802,18,23,8,0)=" "
^DD(727.802,18,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.802,18,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.802,18,23,11,0)="two or three numeric characters."
^DD(727.802,18,"DT")="2980708"
^DD(727.802,19,0)="VETERAN^S^Y:YES;N:NO;^0;20^Q"
^DD(727.802,19,.1)="Veteran"
^DD(727.802,19,3)="Select the appropriate veteran status for this patient."
^DD(727.802,19,21,0)="^^1^1^2961014^^^^"
^DD(727.802,19,21,1,0)="Data is Y if this patient is a veteran, N if not."
^DD(727.802,19,23,0)="^^3^3^2961014^^"
^DD(727.802,19,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,19,23,2,0)="in the ADMISSION EXTRACT file (#727.802), VETERAN data is derived from the"
^DD(727.802,19,23,3,0)="VETERAN (Y/N)? field (1901) in the PATIENT file (#2)."
^DD(727.802,19,"DT")="2960801"
^DD(727.802,20,0)="VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^0;21^Q"
^DD(727.802,20,.1)="Vietnam"
^DD(727.802,20,3)="Select the appropriate Vietnam service status for this patient."
^DD(727.802,20,21,0)="^^1^1^2990524^^^^"
^DD(727.802,20,21,1,0)="Data is Y if this patient served in Vietnam, N if not, or U if unknown."
^DD(727.802,20,23,0)="^^3^3^2990524^^"
^DD(727.802,20,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,20,23,2,0)="in the ADMISSION EXTRACT file (#727.802), VIETNAM data is derived from the"
^DD(727.802,20,23,3,0)="VIETNAM SERVICE INDICATED? field (.32101) in the PATIENT file (#2)."
^DD(727.802,20,"DT")="2960801"
^DD(727.802,21,0)="AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;22^Q"
^DD(727.802,21,.1)=""
^DD(727.802,21,3)=""
^DD(727.802,21,21,0)="^^2^2^2990505^^^^"
^DD(727.802,21,21,1,0)="Data is Y if this patient was exposed to agent orange, N if not, or U if"
^DD(727.802,21,21,2,0)="unknown."
^DD(727.802,21,23,0)="^^6^6^2990505^^^"
^DD(727.802,21,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,21,23,2,0)="in the ADMISSION EXTRACT file (#727.802), AGENT ORANGE data is derived"
^DD(727.802,21,23,3,0)="from the AGENT ORANGE EXPOS. INDICATED? field (.32102) in the PATIENT file"
^DD(727.802,21,23,4,0)="(#2)."
^DD(727.802,21,23,5,0)="  "
^DD(727.802,21,23,6,0)="The status indicator is returned by SVC^VADPT."
^DD(727.802,21,"DT")="2990505"
^DD(727.802,22,0)="RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;23^Q"
^DD(727.802,22,.1)=""
^DD(727.802,22,3)=""
^DD(727.802,22,21,0)="^^2^2^2990505^^^^"
^DD(727.802,22,21,1,0)="Data is Y if this patient claims exposure to ionizing radiation, N if "
^DD(727.802,22,21,2,0)="not, or U if unknown."
^DD(727.802,22,23,0)="^^5^5^2990505^^^"
^DD(727.802,22,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,22,23,2,0)="in the ADMISSION EXTRACT file (#727.802), RADIATION data is derived from"
^DD(727.802,22,23,3,0)="the RADIATION EXPOSURE INDICATED? field (.32103) in the PATIENT file (#2)."
^DD(727.802,22,23,4,0)=" "
^DD(727.802,22,23,5,0)="The status indicator is returned by SVC^VADPT."
^DD(727.802,22,"DT")="2990505"
^DD(727.802,23,0)="POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;24^Q"
^DD(727.802,23,.1)=""
^DD(727.802,23,3)=""
^DD(727.802,23,21,0)="^^2^2^2990505^^^^"
^DD(727.802,23,21,1,0)="Data is Y if this patient was confined as a prisoner of war, N if not,"
^DD(727.802,23,21,2,0)="or U if unknown."
^DD(727.802,23,23,0)="^^5^5^2990505^^^"
^DD(727.802,23,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.802,23,23,2,0)="in the ADMISSION EXTRACT file (#727.802), POW data is derived from the POW"
^DD(727.802,23,23,3,0)="STATUS INDICATED? field (.525) in the PATIENT file (#2)."
^DD(727.802,23,23,4,0)=" "
^DD(727.802,23,23,5,0)="The status indicator is returned by SVC^VADPT."
^DD(727.802,23,"DT")="2990505"
^DD(727.802,24,0)="PERIOD OF SERVICE^F^^0;25^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,24,.1)="Period of Service"
^DD(727.802,24,3)="Enter the period of service code from the PERIOD OF SERVICE file (#21)."
^DD(727.802,24,21,0)="^^2^2^2990524^^^^"
^DD(727.802,24,21,1,0)="The period of service which best classifies this patient based on "
^DD(727.802,24,21,2,0)="eligibility code."
^DD(727.802,24,23,0)="^^7^7^2990524^^^"
^DD(727.802,24,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.802,24,23,2,0)="in the ADMISSION EXTRACT file (#727.802), PERIOD OF SERVICE data is"
^DD(727.802,24,23,3,0)="derived from the PERIOD OF SERVICE field (#.323) in the PATIENT file (#2)."
^DD(727.802,24,23,4,0)="This field is a pointer to the PERIOD OF SERVICE file (#21). Using the"
^DD(727.802,24,23,5,0)="period of service pointer, the data is derived from the CODE field (#.03)"
^DD(727.802,24,23,6,0)="in the PERIOD OF SERVICE file (#21). This code is a single alpha numeric"
^DD(727.802,24,23,7,0)="character."
^DD(727.802,24,"DT")="2960801"
^DD(727.802,25,0)="MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^0;26^Q"
^DD(727.802,25,.1)="Means Test"
^DD(727.802,25,3)="Select the appropriate means test category."
^DD(727.802,25,21,0)="^^1^1^2990510^^^^"
^DD(727.802,25,21,1,0)="The current means test category for this patient."
^DD(727.802,25,23,0)="^^6^6^2990510^^"
^DD(727.802,25,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.802,25,23,2,0)="in the ADMISSION EXTRACT file (#727.802), MEANS TEST data is derived from"
^DD(727.802,25,23,3,0)="the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file (#2). This"
^DD(727.802,25,23,4,0)="field is a pointer to the MEANS TEST STATUS file (#408.32).  Using the"
^DD(727.802,25,23,5,0)="means test pointer, the data is derived from the CODE field (#.02) in the"
^DD(727.802,25,23,6,0)="MEANS TEST STATUS file (#408.32)."
^DD(727.802,25,"DT")="2961024"
^DD(727.802,26,0)="MARITAL STATUS^P11'^DIC(11,^0;27^Q"
^DD(727.802,26,.1)="Marital Status"
^DD(727.802,26,3)="Enter the marital status for this patient."
^DD(727.802,26,21,0)="^^1^1^2990524^^^^"
^DD(727.802,26,21,1,0)="Current marital status for this patient."
^DD(727.802,26,23,0)="^^4^4^2990524^^^"
^DD(727.802,26,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.802,26,23,2,0)="in the ADMISSION EXTRACT file (#727.802), MARITAL STATUS data is derived"
^DD(727.802,26,23,3,0)="from the MARITAL STATUS field (#.05) in the PATIENT file (#2). MARITAL"
^DD(727.802,26,23,4,0)="STATUS is a pointer to the MARITAL STATUS file (#11)."
^DD(727.802,26,"DT")="2960801"
^DD(727.802,27,0)="WARD^P44'^SC(^0;28^Q"
^DD(727.802,27,.1)="Ward"
^DD(727.802,27,3)="Enter the current ward location for this patient."
^DD(727.802,27,21,0)="^^1^1^2990510^^^^"
^DD(727.802,27,21,1,0)="Current ward for this patient."
^DD(727.802,27,23,0)="^^8^8^2990512^^^^"
^DD(727.802,27,23,1,0)="Using the ""ATT1"" cross reference on the PATIENT MOVEMENT file (#405) and "
^DD(727.802,27,23,2,0)="the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in the"
^DD(727.802,27,23,3,0)="ADMISSION EXTRACT file (#727.802), WARD data is derived from the WARD"
^DD(727.802,27,23,4,0)="LOCATION field (#.06) in the PATIENT MOVEMENT file (#405). This ward data"
^DD(727.802,27,23,5,0)="is a pointer to the WARD LOCATION file (#42). Using the ward pointer, the"
^DD(727.802,27,23,6,0)="data is derived from the HOSPITAL LOCATION FILE POINTER field (#44) in the"
^DD(727.802,27,23,7,0)="WARD LOCATION file (#42) which is a pointer to the HOSPITAL LOCATION file"
^DD(727.802,27,23,8,0)="(#44)."
^DD(727.802,27,"DT")="2960806"
^DD(727.802,28,0)="TREATING SPECIALTY^F^^0;29^K:$L(X)>3!($L(X)<2) X"
^DD(727.802,28,.1)="Treating Specialty"
^DD(727.802,28,3)="PTF Code from Specialty File (42.4)"
^DD(727.802,28,21,0)="^^2^2^3070502^"
^DD(727.802,28,21,1,0)="The PTF CODE of the treating specialty associated with this extract"
^DD(727.802,28,21,2,0)="record."
^DD(727.802,28,23,0)="^.001^9^9^3070502^^"
^DD(727.802,28,23,1,0)="Using the ""ATT1"" cross reference on the PATIENT MOVEMENT file (#405) and "
^DD(727.802,28,23,2,0)="the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the"
^DD(727.802,28,23,3,0)="ADMISSION EXTRACT file (#727.802), TREATING SPECIALTY data is derived from"
^DD(727.802,28,23,4,0)="the FACILITY TREATING SPECIALTY field (#.09) in the PATIENT MOVEMENT file"
^DD(727.802,28,23,5,0)="(#405). This facility treating specialty data is a pointer to the FACILITY"
^DD(727.802,28,23,6,0)="TREATING SPECIALTY file (#45.7). Using the SPECIALTY field (#1) in the"
^DD(727.802,28,23,7,0)="FACILITY TREATING SPECIALTY file (#45.7), the pointer to the SPECIALTY"
^DD(727.802,28,23,8,0)="file (#42.4) is obtained.  Then, the PTF Code is obtained and stored "
^DD(727.802,28,23,9,0)="instead of the actual specialty code."
^DD(727.802,28,"DT")="3070413"
^DD(727.802,29,0)="ATTENDING PHYSICIAN^F^^0;30^K:$L(X)>11!($L(X)<1) X"
^DD(727.802,29,.1)="Attending Physician"
^DD(727.802,29,3)="Enter attending physician for this patient."
^DD(727.802,29,21,0)="^^1^1^2980608^^^^"
^DD(727.802,29,21,1,0)="The attending physician assigned to this patient with this movement."
^DD(727.802,29,23,0)="^^6^6^2980608^^^^"
^DD(727.802,29,23,1,0)="Using the ""ATT1"" cross reference on the PATIENT MOVEMENT file (#405) and"
^DD(727.802,29,23,2,0)="the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in the"
^DD(727.802,29,23,3,0)="ADMISSION EXTRACT file (#727.802), ATTENDING PHYSICIAN data is derived"
^DD(727.802,29,23,4,0)="from the ATTENDING PHYSICIAN field (.19) in the PATIENT MOVEMENT file"
^DD(727.802,29,23,5,0)="(#405). This attending physician data is a pointer to the NEW PERSON file"
^DD(727.802,29,23,6,0)="(#200). This data is stored as ""2""_pointer value."
^DD(727.802,29,"DT")="2961015"
^DD(727.802,30,0)="MOVEMENT FILE #^P405'^DGPM(^0;31^Q"
^DD(727.802,30,.1)=""
^DD(727.802,30,3)="Enter the current movement number for this patient."
^DD(727.802,30,21,0)="^^1^1^2990510^^^^"
^DD(727.802,30,21,1,0)="Current movement number for this patient."
^DD(727.802,30,23,0)="^^5^5^2990510^^^^"
^DD(727.802,30,23,1,0)="Pointer to the PATIENT MOVEMENT file (#405). Using the ""ATT1"" cross "
^DD(727.802,30,23,2,0)="reference on the PATIENT MOVEMENT file (#405) and the patient pointer "
^DD(727.802,30,23,3,0)="(DFN) stored in the PATIENT NO. - DFN field (#4) in the ADMISSION EXTRACT"
^DD(727.802,30,23,4,0)="file (#727.802), this is a pointer to the file #405 record for the"
^DD(727.802,30,23,5,0)="patient's admission."
^DD(727.802,30,"DT")="2990510"
^DD(727.802,31,0)="DRG^P80.2'^ICD(^0;32^Q"
^DD(727.802,31,3)="Enter the appropriate DRG for this patient."
^DD(727.802,31,21,0)="^^1^1^2990510^^^^"
^DD(727.802,31,21,1,0)="Current DRG for this patient with this movement."
^DD(727.802,31,23,0)="^^7^7^2990510^^^"
^DD(727.802,31,23,1,0)="Using the ""ATT1"" cross reference on the PATIENT MOVEMENT file (#405) and"
^DD(727.802,31,23,2,0)="the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in the"
^DD(727.802,31,23,3,0)="ADMISSION EXTRACT file (#727.802), DRG data is derived from the PTF ENTRY"
^DD(727.802,31,23,4,0)="field (#,16) in PATIENT MOVEMENT file (#405). This PTF entry data is a"
^DD(727.802,31,23,5,0)="pointer to the PTF file (#45). Uses the TRANSFER DRG field (#20) within the"
^DD(727.802,31,23,6,0)="501 field (#50) multiple in the PTF file (#45) to obtain the pointer value"
^DD(727.802,31,23,7,0)="to the DRG file (#80.2)."
^DD(727.802,31,"DT")="2910803"
^DD(727.802,32,0)="DIAGNOSIS^F^^0;33^K:$L(X)>7!($L(X)<1) X"
^DD(727.802,32,.1)="Diagnosis"
^DD(727.802,32,3)="Your answer must be 1 to 7 characters in length."
^DD(727.802,32,21,0)="^^1^1^2990510^^^^"
^DD(727.802,32,21,1,0)="ICD diagnosis for this patient."
^DD(727.802,32,23,0)="^^9^9^2990510^^^"
^DD(727.802,32,23,1,0)="Using the ""ATT1"" cross reference on the PATIENT MOVEMENT file (#405) "
^DD(727.802,32,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4) in"
^DD(727.802,32,23,3,0)="the ADMISSION EXTRACT file (#727.802), DIAGNOSIS data is derived from the"
^DD(727.802,32,23,4,0)="PTF ENTRY field (.16) in the PATIENT MOVEMENT file (#405).  This PTF entry"
^DD(727.802,32,23,5,0)="data is a pointer to the PTF file (#45). Uses the ICD 1 field (#5) within"
^DD(727.802,32,23,6,0)="the 501 field (#50) multiple in the PTF file (#45) to obtain the pointer"
^DD(727.802,32,23,7,0)="value to the ICD DIAGNOSIS file (#80). This ICD diagnosis pointer value is"
^DD(727.802,32,23,8,0)="used to pull the DIAGNOSIS data from the CODE NUMBER field (#.01) in the"
^DD(727.802,32,23,9,0)="ICD DIAGNOSIS file (#80)."
^DD(727.802,32,"DT")="2961024"
^DD(727.802,33,0)="TIME^FO^^0;34^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.802,33,.1)="Time"
^DD(727.802,33,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.802,33,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.802,33,3)="Answer must be 6 characters in length."
^DD(727.802,33,21,0)="^^2^2^2970922^^^^"
^DD(727.802,33,21,1,0)="A 6-character numeric string which represents the time of day at"
^DD(727.802,33,21,2,0)="which the admission occurred."
^DD(727.802,33,23,0)="^^6^6^2970922^^^^"
^DD(727.802,33,23,1,0)="Data source:"
^DD(727.802,33,23,2,0)=" "
^DD(727.802,33,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.802,33,23,4,0)=" "
^DD(727.802,33,23,5,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.802,33,23,6,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.802,33,"DT")="2970924"
^DD(727.802,34,0)="PRIMARY CARE PROVIDER^F^^0;35^K:$L(X)>11!($L(X)<1) X"
^DD(727.802,34,.1)="Primary Care Provider"
^DD(727.802,34,3)="Enter primary care provider assigned to this patient."
^DD(727.802,34,21,0)="^^1^1^2980708^^^^"
^DD(727.802,34,21,1,0)="The primary care provider assigned to this patient."
^DD(727.802,34,23,0)="^^8^8^2980708^^^^"
^DD(727.802,34,23,1,0)="Using the DATE/TIME field (.01) from the PATIENT MOVEMENT file (#405) "
^DD(727.802,34,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.802,34,23,3,0)="in the ADMISSION EXTRACT file (#727.802), a call is made to the "
^DD(727.802,34,23,4,0)="Scheduling API, OUTPTPR^SDUTL3. The API returns the provider's internal "
^DD(727.802,34,23,5,0)="entry number and name from the NEW PERSON file (#200). "
^DD(727.802,34,23,6,0)=" "
^DD(727.802,34,23,7,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.802,34,23,8,0)="is ""200""."
^DD(727.802,34,"DT")="2961015"
^DD(727.802,35,0)="RACE^F^^0;36^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,35,.1)="Race"
^DD(727.802,35,3)="Enter race ABBREVIATION for this patient."
^DD(727.802,35,21,0)="^^1^1^2990606^^^^"
^DD(727.802,35,21,1,0)="Race ABBREVIATION for this patient."
^DD(727.802,35,23,0)="^^3^3^2990606^^^^"
^DD(727.802,35,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4),"
^DD(727.802,35,23,2,0)="RACE data is shown as the ABBREVIATION field (2) of the RACE file (#10)"
^DD(727.802,35,23,3,0)="entry pointed to by the RACE field (.06) in the PATIENT file (#2)."
^DD(727.802,35,"DT")="2961014"
^DD(727.802,36,0)="PRIMARY WARD PROVIDER^F^^0;37^K:$L(X)>11!($L(X)<1) X"
^DD(727.802,36,3)="Answer must be 1-11 characters in length."
^DD(727.802,36,21,0)="^^2^2^2980608^^^^"
^DD(727.802,36,21,1,0)="The Primary Provider associated with the Facility Treating Specialty"
^DD(727.802,36,21,2,0)="for this Admission."
^DD(727.802,36,23,0)="^^10^10^2980608^^^^"
^DD(727.802,36,23,1,0)="Source:"
^DD(727.802,36,23,2,0)="field #.08; file #405"
^DD(727.802,36,23,3,0)=" "
^DD(727.802,36,23,4,0)="The PRIMARY CARE PHYSICIAN field (#.08) associated with the PATIENT"
^DD(727.802,36,23,5,0)="MOVEMENT file (#405) record for the Treating Specialty Change record"
^DD(727.802,36,23,6,0)="related to the Admission record."
^DD(727.802,36,23,7,0)=" "
^DD(727.802,36,23,8,0)="The value obtained is a pointer to the NEW PERSON file (#200).  A ""2"""
^DD(727.802,36,23,9,0)="is prefixed to the pointer value to indicate that it points to file"
^DD(727.802,36,23,10,0)="#200."
^DD(727.802,36,"DT")="2980126"
^DD(727.802,37,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.802,37,3)="Answer must be 1-10 characters in length."
^DD(727.802,37,21,0)="^^1^1^2990507^^"
^DD(727.802,37,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.802,37,23,0)="^^2^2^2990507^^"
^DD(727.802,37,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.802,37,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.802,37,"DT")="2990504"
^DD(727.802,38,0)="DSS DEPT.^F^^1;2^K:$L(X)>10!($L(X)<4) X"
^DD(727.802,38,3)="Answer must be 4-10 characters in length."
^DD(727.802,38,21,0)="^^2^2^2990702^^^^"
^DD(727.802,38,21,1,0)="The DSS Department code for the ward.  Must contain at least"
^DD(727.802,38,21,2,0)="four characters to be a valid code."
^DD(727.802,38,23,0)="^^15^15^2990702^^^^"
^DD(727.802,38,23,1,0)="The DSS Department code for the ward associated with the admission"
^DD(727.802,38,23,2,0)="movement record.  This code is found in the DSS WARD file (#727.4)"
^DD(727.802,38,23,3,0)="using the value of the WARD LOCATION field (#.06) of the PATIENT"
^DD(727.802,38,23,4,0)="MOVEMENT file (#405) record for the patient's admission movement."
^DD(727.802,38,23,5,0)="The value found in WARD LOCATION is a pointer to the WARD LOCATION"
^DD(727.802,38,23,6,0)="file (#42)."
^DD(727.802,38,23,7,0)=" "
^DD(727.802,38,23,8,0)="Each record in file #727.4 has a #.01 field which points to a record"
^DD(727.802,38,23,9,0)="in file #42, and the internal entry number of the file #727.4 is set"
^DD(727.802,38,23,10,0)="to be the same as the record in file #42 to which it points.  Therefore,"
^DD(727.802,38,23,11,0)="the WARD LOCATION field (#.06) can be used as a pointer to file #727.4"
^DD(727.802,38,23,12,0)="as well."
^DD(727.802,38,23,13,0)="  "
^DD(727.802,38,23,14,0)="Data for this field is taken from the DSS DEPARTMENT field (#1) of"
^DD(727.802,38,23,15,0)="the file #727.4 record."
^DD(727.802,38,"DT")="2980708"
^DD(727.802,39,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.802,39,3)="Answer must be 1-8 characters in length."
^DD(727.802,39,21,0)="^^1^1^3070827^"
^DD(727.802,39,21,1,0)="Currently NULL."
^DD(727.802,39,23,0)="^^1^1^3070827^"
^DD(727.802,39,23,1,0)="Currently NULL."
^DD(727.802,39,"DT")="3070426"
^DD(727.802,40,0)="PLACEHOLDER^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.802,40,3)="Answer must be 1-8 characters in length."
^DD(727.802,40,21,0)="^^1^1^3070827^"
^DD(727.802,40,21,1,0)="Currently NULL."
^DD(727.802,40,23,0)="^^1^1^3070827^"
^DD(727.802,40,23,1,0)="Currently NULL."
^DD(727.802,40,"DT")="3070426"
^DD(727.802,41,0)="PLACEHOLDER^F^^1;5^K:$L(X)>8!($L(X)<1) X"
^DD(727.802,41,3)="Answer must be 1-8 characters in length."
^DD(727.802,41,21,0)="^^1^1^3070827^"
^DD(727.802,41,21,1,0)="Currently NULL."
^DD(727.802,41,23,0)="^^1^1^3070827^"
^DD(727.802,41,23,1,0)="Currently NULL."
^DD(727.802,41,"DT")="3070426"
^DD(727.802,42,0)="ADMISSION ELIGIBILITY^F^^1;6^K:$L(X)>3!($L(X)<1) X"
^DD(727.802,42,3)="Answer must be 1-3 characters in length."
^DD(727.802,42,21,0)="^^1^1^2990504^^^"
^DD(727.802,42,21,1,0)="The eligibility of the patient for this specific admission."
^DD(727.802,42,23,0)="^^11^11^2990504^^^"
^DD(727.802,42,23,1,0)="The Admission Eligibility is derived from the ADMITTING ELIGIBILITY"
^DD(727.802,42,23,2,0)="field (#.2) of the PATIENT MOVEMENT file (#405) record associated "
^DD(727.802,42,23,3,0)="with this patient admission."
^DD(727.802,42,23,4,0)=" "
^DD(727.802,42,23,5,0)="Field (#.2) points to the ELIGIBILITY CODE file (#8).  Then the"
^DD(727.802,42,23,6,0)="MAS ELIGIBILITY CODE field (#8) of file #8 points to the MAS"
^DD(727.802,42,23,7,0)="ELIGIBILITY CODE file (#8.1).  "
^DD(727.802,42,23,8,0)=" "
^DD(727.802,42,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.802,42,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.802,42,23,11,0)="two or three numeric characters."
^DD(727.802,42,"DT")="2980708"
^DD(727.802,43,0)="MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;^1;7^Q"
^DD(727.802,43,3)=""
^DD(727.802,43,21,0)="^^5^5^2990505^^^^"
^DD(727.802,43,21,1,0)="The MST Status of the patient on the date of the outpatient encounter."
^DD(727.802,43,21,2,0)="Possible status values are:"
^DD(727.802,43,21,3,0)="Y = Yes, screened reports MST"
^DD(727.802,43,21,4,0)="N = Screened, does not report MST"
^DD(727.802,43,21,5,0)="D = Screened, declines to answer"
^DD(727.802,43,23,0)="^^5^5^2990505^^^^"
^DD(727.802,43,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual"
^DD(727.802,43,23,2,0)="trauma claims and effective dates.  The patients MST status is stored"
^DD(727.802,43,23,3,0)="in the MST STATUS field (#3).  A call will be made to"
^DD(727.802,43,23,4,0)="$$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO.  DFN "
^DD(727.802,43,23,5,0)="field and the date in the DAY field."
^DD(727.802,43,"DT")="2990505"
^DD(727.802,45,0)="SHARING AGREEMENT PAYOR^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,45,3)="Answer must be 1 character in length."
^DD(727.802,45,21,0)="^^1^1^2990505^^^^"
^DD(727.802,45,21,1,0)="An indicator used for patients participating in sharing agreements."
^DD(727.802,45,23,0)="14^^15^15^2990505^^^^"
^DD(727.802,45,23,1,0)="The ALIAS sub-field (#.01) of the ALIAS multiple field (#1) of the"
^DD(727.802,45,23,2,0)="PATIENT file (#2) is used to indicate a patient who participates in "
^DD(727.802,45,23,3,0)="a sharing agreement. If the #.01 field contains any one of the "
^DD(727.802,45,23,4,0)="specified key words, then the patient is considered to be included "
^DD(727.802,45,23,5,0)="for Sharing Agreement information. The keywords are: SHARING AGREEMENT,"
^DD(727.802,45,23,6,0)="CHAMPVA, CHAMPUS, TRICARE, CAT C, CATEGORY C."
^DD(727.802,45,23,7,0)="  "
^DD(727.802,45,23,8,0)="A one character code for the keyword found in the ALIAS multiple "
^DD(727.802,45,23,9,0)="field is obtained by the following conversion:"
^DD(727.802,45,23,10,0)="SHARING AGREEMENT = A"
^DD(727.802,45,23,11,0)="TRICARE = B"
^DD(727.802,45,23,12,0)="CAT C = C"
^DD(727.802,45,23,13,0)="CATEGORY C = C"
^DD(727.802,45,23,14,0)="CHAMPVA = D"
^DD(727.802,45,23,15,0)="CHAMPUS = E"
^DD(727.802,45,"DT")="2990504"
^DD(727.802,46,0)="SHARING AGREEMENT INSURANCE^F^^1;10^K:$L(X)>11!($L(X)<1) X"
^DD(727.802,46,3)="Answer must be 1-11 characters in length."
^DD(727.802,46,21,0)="^^2^2^2990505^^^^"
^DD(727.802,46,21,1,0)="Used to indicate insurer, if patient participates in a"
^DD(727.802,46,21,2,0)="sharing agreement."
^DD(727.802,46,23,0)="^^5^5^2990505^^^^"
^DD(727.802,46,23,1,0)="Data will be taken from the INSURANCE TYPE sub-field (#.01) of the"
^DD(727.802,46,23,2,0)="INSURANCE TYPE field (#.3121), sub-file #2.312, of the PATIENT file"
^DD(727.802,46,23,3,0)="(#2).  This is a pointer value for the INSURANCE COMPANY file (#36)."
^DD(727.802,46,23,4,0)="Only the first insurance company found in the multiple field is used."
^DD(727.802,46,23,5,0)="The data is stored as free text."
^DD(727.802,46,"DT")="2990504"
^DD(727.802,47,0)="ENROLLMENT LOCATION^F^^1;11^K:$L(X)>7!($L(X)<3) X"
^DD(727.802,47,3)="Answer must be 3-7 characters in length"
^DD(727.802,47,21,0)="^^2^2^3020808^"
^DD(727.802,47,21,1,0)="The facility that the patient chooses to designate as his preferred"
^DD(727.802,47,21,2,0)="location for care."
^DD(727.802,47,23,0)="^^5^5^2990505^^"
^DD(727.802,47,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2)"
^DD(727.802,47,23,2,0)="is defined as the facility that the patient chooses to designate"
^DD(727.802,47,23,3,0)="as his preferred location for care.  The PREFERRED FACILITY field"
^DD(727.802,47,23,4,0)="(# 27.02) is a pointer to the INSTITUTION file (#4).  From file #4,"
^DD(727.802,47,23,5,0)="the value in the STATION NUMBER field (#99) is used."
^DD(727.802,47,"DT")="3020808"
^DD(727.802,48,0)="PC PROVIDER PERSON CLASS^F^^1;12^K:$L(X)>7!($L(X)<7) X"
^DD(727.802,48,3)="Answer must be 7 characters in length."
^DD(727.802,48,21,0)="^^2^2^2981027^^"
^DD(727.802,48,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.802,48,21,2,0)="associated with this record."
^DD(727.802,48,23,0)="^^6^6^2981027^^"
^DD(727.802,48,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.802,48,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.802,48,23,3,0)="extract record."
^DD(727.802,48,23,4,0)="  "
^DD(727.802,48,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.802,48,23,6,0)="7 characters in length."
^DD(727.802,48,"DT")="2981026"
^DD(727.802,49,0)="ASSOCIATE PC PROVIDER^F^^1;13^K:$L(X)>11!($L(X)<2) X"
^DD(727.802,49,3)="Answer must be 2-11 characters in length."
^DD(727.802,49,21,0)="^^4^4^2990504^"
^DD(727.802,49,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.802,49,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.802,49,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.802,49,21,4,0)="character 2."
^DD(727.802,49,23,0)="^^2^2^2990504^"
^DD(727.802,49,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.802,49,23,2,0)="the PCMM application."
^DD(727.802,49,"DT")="2990504"
^DD(727.802,50,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;14^K:$L(X)>7!($L(X)<7) X"
^DD(727.802,50,3)="Answer must be 7 characters in length."
^DD(727.802,50,21,0)="^^4^4^2990505^^"
^DD(727.802,50,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.802,50,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.802,50,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.802,50,21,4,0)="exactly 7 characters in length. "
^DD(727.802,50,23,0)="^^3^3^2990505^^"
^DD(727.802,50,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.802,50,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.802,50,23,3,0)="PERS is the IEN from file #200."
^DD(727.802,50,"DT")="2990504"
^DD(727.802,51,0)="PLACEHOLDER^F^^1;15^K:$L(X)>8!($L(X)<1) X"
^DD(727.802,51,3)="Answer must be 1-8 characters in length."
^DD(727.802,51,21,0)="^^1^1^3070827^"
^DD(727.802,51,21,1,0)="Currently NULL."
^DD(727.802,51,23,0)="^^1^1^3070827^"
^DD(727.802,51,23,1,0)="Currently NULL."
^DD(727.802,51,"DT")="3070426"
^DD(727.802,52,0)="DOM, PRRTP AND SAARTP^F^^1;16^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,52,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.802,52,21,0)="^^7^7^3001017^"
^DD(727.802,52,21,1,0)=" Indicates if a patient is admitted to a DOM, PRRTP, or a SAARTP at the"
^DD(727.802,52,21,2,0)="time hospital service is provided. "
^DD(727.802,52,21,3,0)="Domicilliary"
^DD(727.802,52,21,4,0)=" "
^DD(727.802,52,21,5,0)="(DOM)"
^DD(727.802,52,21,6,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.802,52,21,7,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.802,52,"DT")="3001011"
^DD(727.802,53,0)="ENROLLMENT CATEGORY^F^^1;17^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,53,3)="Answer must be 1 character in length."
^DD(727.802,53,21,0)="^^1^1^3001011^"
^DD(727.802,53,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.802,53,"DT")="3000614"
^DD(727.802,54,0)="ENROLLMENT STATUS^F^^1;18^K:$L(X)>2!($L(X)<1) X"
^DD(727.802,54,3)="Answer must be 1-2 characters in length."
^DD(727.802,54,21,0)="^^1^1^3001011^"
^DD(727.802,54,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.802,54,"DT")="3000614"
^DD(727.802,55,0)="PLACEHOLDER^F^^1;19^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,55,3)="Answer must be 1 character in length."
^DD(727.802,55,"DT")="3040301"
^DD(727.802,56,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;20^Q"
^DD(727.802,56,.1)="Purple Heart Indicator"
^DD(727.802,56,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.802,56,21,0)="^.001^1^1^3021009^^^^"
^DD(727.802,56,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient. "
^DD(727.802,56,23,0)="^^2^2^3021009^"
^DD(727.802,56,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.802,56,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.802,56,"DT")="3021009"
^DD(727.802,57,0)="OBSERVATION PATIENT INDICATOR^F^^1;21^K:$L(X)>4!($L(X)<1) X"
^DD(727.802,57,3)="Answer must be 1-4 characters in length. "
^DD(727.802,57,21,0)="^.001^2^2^3011212^^"
^DD(727.802,57,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.802,57,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.802,57,"DT")="3010814"
^DD(727.802,58,0)="ENCOUNTER NUMBER^F^^1;22^K:$L(X)>18!($L(X)<1) X"
^DD(727.802,58,3)="Answer must be 1-18 characters in length"
^DD(727.802,58,21,0)="^^3^3^3011212^"
^DD(727.802,58,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.802,58,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.802,58,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.802,58,"DT")="3010503"
^DD(727.802,59,0)="AGENT ORANGE LOCATION^F^^1;23^K:$L(X)>2!($L(X)<2) X"
^DD(727.802,59,3)="Answer must be 2 characters in length"
^DD(727.802,59,21,0)="^^1^1^3011212^"
^DD(727.802,59,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.802,59,"DT")="3010503"
^DD(727.802,60,0)="PRODUCTION DIVISION CODE^F^^1;24^K:$L(X)>6!($L(X)<3) X"
^DD(727.802,60,3)="Answer must be 3-6 characters in length."
^DD(727.802,60,21,0)="^.001^2^2^3060719^^^^"
^DD(727.802,60,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.802,60,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.802,60,23,0)="^^6^6^3060719^"
^DD(727.802,60,23,1,0)="Data comes from the WARD LOCATION field (#.06) in the PATIENT MOVEMENT"
^DD(727.802,60,23,2,0)="file (#405). This value is a pointer to the WARD LOCATION file (#42) which"
^DD(727.802,60,23,3,0)="in turn is used to get the DIVISION field (#.015) in the WARD LOCATION"
^DD(727.802,60,23,4,0)="file (#42), a pointer to the MEDICAL CENTER DIVISION file (#40.8). This"
^DD(727.802,60,23,5,0)="value is then used to call the API GETDIV^ECXDEPT to get the STATION"
^DD(727.802,60,23,6,0)="NUMBER field (#99) from the INSTITUTION file (#4)."
^DD(727.802,60,"DT")="3020812"
^DD(727.802,61,0)="POW LOCATION^P22'^DIC(22,^1;25^Q"
^DD(727.802,61,.1)="POW Location"
^DD(727.802,61,3)="Enter the patient's POW location."
^DD(727.802,61,21,0)="^^9^9^3021009^"
^DD(727.802,61,21,1,0)="If POW status is indicated, then this is the POW confinement "
^DD(727.802,61,21,2,0)="location/period."
^DD(727.802,61,21,3,0)=" "
^DD(727.802,61,21,4,0)=" 1      WORLD WAR I"
^DD(727.802,61,21,5,0)=" 2      WORLD WAR II - EUROPE"
^DD(727.802,61,21,6,0)=" 3      WORLD WAR II - PACIFIC"
^DD(727.802,61,21,7,0)=" 4      KOREAN"
^DD(727.802,61,21,8,0)=" 5      VIETNAM"
^DD(727.802,61,21,9,0)=" 6      OTHER"
^DD(727.802,61,23,0)="^^3^3^3021009^"
^DD(727.802,61,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.802,61,23,2,0)="pointer value to the POW PERIOD file (#22). The location indicator is"
^DD(727.802,61,23,3,0)="returned by SVC^VADPT."
^DD(727.802,61,"DT")="3021009"
^DD(727.802,62,0)="SOURCE OF ADMISSION^S^1:HOSPITAL;2:NHCU;3:DOMICILIARY;4:MILITARY HOSPITAL;5:CNH;^1;26^Q"
^DD(727.802,62,.1)="Source of Admission"
^DD(727.802,62,3)="Answer must be 1 character in length"
^DD(727.802,62,21,0)="^^1^1^3021009^^^"
^DD(727.802,62,21,1,0)="Indicates where the admission took place."
^DD(727.802,62,23,0)="^^3^3^3021210^"
^DD(727.802,62,23,1,0)="Obtained via the PTF file (#45), SOURCE OF ADMISSION field (#20) which is "
^DD(727.802,62,23,2,0)="a pointer to the SOURCE OF ADMISSION file (#45.1), PLACE OF ADMISSION "
^DD(727.802,62,23,3,0)="field (#11)."
^DD(727.802,62,"DT")="3021210"
^DD(727.802,63,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;27^Q"
^DD(727.802,63,.1)="Head and Neck Cancer Indicator"
^DD(727.802,63,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.802,63,21,0)="^^1^1^3020827^"
^DD(727.802,63,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.802,63,23,0)="^^3^3^3020827^"
^DD(727.802,63,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.802,63,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.802,63,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.802,63,"DT")="3020827"
^DD(727.802,64,0)="ETHNICITY^F^^1;28^K:$L(X)>6!($L(X)<1) X"
^DD(727.802,64,.1)="Ethnicity"
^DD(727.802,64,3)="Answer must be 1-6 characters in length"
^DD(727.802,64,21,0)="^^1^1^3021210^^"
^DD(727.802,64,21,1,0)="The patient's PTF ethnicity code."
^DD(727.802,64,23,0)="^^8^8^3021210^"
^DD(727.802,64,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.802,64,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.802,64,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.802,64,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.802,64,23,5,0)=" "
^DD(727.802,64,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.802,64,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.802,64,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.802,64,"DT")="3021210"
^DD(727.802,65,0)="RACE 1^F^^1;29^K:$L(X)>6!($L(X)<1) X"
^DD(727.802,65,.1)="Race 1"
^DD(727.802,65,3)="Answer must be 1-6 characters in length"
^DD(727.802,65,21,0)="^^1^1^3020828^^"
^DD(727.802,65,21,1,0)="The patient's PTF Race code(s)."
^DD(727.802,65,23,0)="^^10^10^3020828^^^^"
^DD(727.802,65,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.802,65,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.802,65,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.802,65,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.802,65,23,5,0)=" "
^DD(727.802,65,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.802,65,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.802,65,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.802,65,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.802,65,23,10,0)="the only value included in the RACE1 field."
^DD(727.802,65,"DT")="3020828"
^DD(727.802,66,0)="ENROLLMENT PRIORITY^F^^1;30^K:$L(X)>2!($L(X)<1) X"
^DD(727.802,66,3)="Answer must be 1-2 characters in length."
^DD(727.802,66,21,0)="^^2^2^3040317^"
^DD(727.802,66,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the"
^DD(727.802,66,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11.     "
^DD(727.802,66,23,0)="^^19^19^3040317^"
^DD(727.802,66,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the"
^DD(727.802,66,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.802,66,23,3,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:   "
^DD(727.802,66,23,4,0)=" "
^DD(727.802,66,23,5,0)="                                '1' FOR GROUP 1 "
^DD(727.802,66,23,6,0)="                                '2' FOR GROUP 2 "
^DD(727.802,66,23,7,0)="                                '3' FOR GROUP 3 "
^DD(727.802,66,23,8,0)="                                '4' FOR GROUP 4 "
^DD(727.802,66,23,9,0)="                                '5' FOR GROUP 5 "
^DD(727.802,66,23,10,0)="                                '6' FOR GROUP 6 "
^DD(727.802,66,23,11,0)="                                '7' FOR GROUP 7 "
^DD(727.802,66,23,12,0)="                                '8' FOR GROUP 8 "
^DD(727.802,66,23,13,0)=" "
^DD(727.802,66,23,14,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.802,66,23,15,0)=" "
^DD(727.802,66,23,16,0)="                                '1' FOR a "
^DD(727.802,66,23,17,0)="                                '3' FOR c "
^DD(727.802,66,23,18,0)="                                '5' FOR e "
^DD(727.802,66,23,19,0)="                                '7' FOR g "
^DD(727.802,66,"DT")="3040301"
^DD(727.802,67,0)="USER ENROLLEE^F^^1;31^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,67,3)="Answer must be 1 character in length."
^DD(727.802,67,21,0)="^^4^4^3040317^"
^DD(727.802,67,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.802,67,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.802,67,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.802,67,21,4,0)="year's value is contained. "
^DD(727.802,67,23,0)="^^4^4^3040317^"
^DD(727.802,67,23,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.802,67,23,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.802,67,23,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.802,67,23,4,0)="year's value is contained. "
^DD(727.802,67,"DT")="3040301"
^DD(727.802,68,0)="PATIENT TYPE^F^^1;32^K:$L(X)>2!($L(X)<1) X"
^DD(727.802,68,3)="Answer must be 1-2 characters in length."
^DD(727.802,68,21,0)="^^3^3^3040317^"
^DD(727.802,68,21,1,0)="""PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.802,68,21,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT File "
^DD(727.802,68,21,3,0)="#2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.802,68,23,0)="^^17^17^3040317^"
^DD(727.802,68,23,1,0)="""PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.802,68,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT File "
^DD(727.802,68,23,3,0)="#2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.802,68,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.802,68,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.802,68,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.802,68,23,7,0)=" "
^DD(727.802,68,23,8,0)="AC= ACTIVE DUTY"
^DD(727.802,68,23,9,0)="AL= ALLIED VETERAN"
^DD(727.802,68,23,10,0)="CO= COLLATERAL"
^DD(727.802,68,23,11,0)="EM= EMPLOYEE"
^DD(727.802,68,23,12,0)="IN= INELIGIBLE"
^DD(727.802,68,23,13,0)="MI= MILITARY RETIREE"
^DD(727.802,68,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.802,68,23,15,0)="NS= NSC VETERAN"
^DD(727.802,68,23,16,0)="SC= SC VETERAN"
^DD(727.802,68,23,17,0)="TR= TRICARE"
^DD(727.802,68,"DT")="3040301"
^DD(727.802,69,0)="CV STATUS ELIGIBILITY^F^^1;33^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,69,3)="Answer must be 1 character in length."
^DD(727.802,69,21,0)="^.001^3^3^3040318^^^^"
^DD(727.802,69,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of API $$CVEDT^DGCV (DFN."
^DD(727.802,69,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the Patient"
^DD(727.802,69,21,3,0)="File #2 to determine CV Status."
^DD(727.802,69,23,0)="^^11^11^3040318^"
^DD(727.802,69,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN."
^DD(727.802,69,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the Patient"
^DD(727.802,69,23,3,0)="File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.802,69,23,4,0)="1^3010106^0) and the first piece is resolved as follows."
^DD(727.802,69,23,5,0)=" "
^DD(727.802,69,23,6,0)=" 1 - veteran qualifies as a CV"
^DD(727.802,69,23,7,0)=" 0 - veteran does not qualify as a CV"
^DD(727.802,69,23,8,0)="-1 - bad DFN"
^DD(727.802,69,23,9,0)=" "
^DD(727.802,69,23,10,0)="Based on this result the field will be set to 'Y' for 'YES' or 'E' for "
^DD(727.802,69,23,11,0)="'ELIGIBILITY EXPIRED' or 'NULL' for not eligible."
^DD(727.802,69,"DT")="3040301"
^DD(727.802,70,0)="CV ELIGIBILITY END DATE^F^^1;34^K:$L(X)>8!($L(X)<1) X"
^DD(727.802,70,3)="Answer must be 1-8 characters in length."
^DD(727.802,70,21,0)="^.001^3^3^3040318^^"
^DD(727.802,70,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.802,70,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.802,70,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.802,70,23,0)="^.001^4^4^3040318^^"
^DD(727.802,70,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.802,70,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.802,70,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces "
^DD(727.802,70,23,4,0)="(i.e. 1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.802,70,"DT")="3040301"
^DD(727.802,71,0)="ENCOUNTER CV^F^^1;35^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,71,3)="Answer must be 1 character in length."
^DD(727.802,71,21,0)="^^3^3^3040317^"
^DD(727.802,71,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.802,71,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # 2 "
^DD(727.802,71,21,3,0)="to determine CV Status."
^DD(727.802,71,23,0)="^^10^10^3040317^"
^DD(727.802,71,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.802,71,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # 2 "
^DD(727.802,71,23,3,0)="to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). The"
^DD(727.802,71,23,4,0)="third piece returns:"
^DD(727.802,71,23,5,0)=" "
^DD(727.802,71,23,6,0)="1 - vet was eligible on date specified"
^DD(727.802,71,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.802,71,23,8,0)=" "
^DD(727.802,71,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.802,71,23,10,0)="'NULL' for 'NO'."
^DD(727.802,71,"DT")="3040301"
^DD(727.802,72,0)="NATIONAL PATIENT RECORD FLAG^F^^1;36^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,72,3)="Answer must be 1 character in length."
^DD(727.802,72,21,0)="^^6^6^3040317^"
^DD(727.802,72,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.802,72,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.802,72,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.802,72,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.802,72,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.802,72,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is NULL."
^DD(727.802,72,23,0)="^^6^6^3040317^"
^DD(727.802,72,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.802,72,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.802,72,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.802,72,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.802,72,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.802,72,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is NULL."
^DD(727.802,72,"DT")="3040301"
^DD(727.802,73,0)="ATTENDING PHYSICIAN PC^F^^1;37^K:$L(X)>7!($L(X)<7) X"
^DD(727.802,73,3)="Answer must be 7 characters in length."
^DD(727.802,73,21,0)="^.001^3^3^3050819^^"
^DD(727.802,73,21,1,0)="The VA Code of the Person Class of the Attending Physician associated "
^DD(727.802,73,21,2,0)="with this record. The VA Code is always of the form ""V""_six numeric "
^DD(727.802,73,21,3,0)="digits; exactly 7."
^DD(727.802,73,23,0)="^^3^3^3050819^"
^DD(727.802,73,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.802,73,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.802,73,23,3,0)="(#200)."
^DD(727.802,73,"DT")="3050819"
^DD(727.802,74,0)="PRIMARY WARD PROVIDER PC^F^^1;38^K:$L(X)>7!($L(X)<7) X"
^DD(727.802,74,3)="Answer must be 7 characters in length."
^DD(727.802,74,21,0)="^.001^2^2^3050819^^"
^DD(727.802,74,21,1,0)="The VA Code of the Person Class of the Primary Ward Provider associated "
^DD(727.802,74,21,2,0)="with this record."
^DD(727.802,74,23,0)="^^3^3^3050819^"
^DD(727.802,74,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.802,74,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.802,74,23,3,0)="#200."
^DD(727.802,74,"DT")="3050819"
^DD(727.802,75,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:N;U:UNKNOWN;^1;39^Q"
^DD(727.802,75,21,0)="^.001^3^3^3050819^^"
^DD(727.802,75,21,1,0)="This field is used to indicate that this visit represents treatment of a"
^DD(727.802,75,21,2,0)="VA patient for a problem that is related to Persian Gulf Exposure or "
^DD(727.802,75,21,3,0)="Somalia."
^DD(727.802,75,23,0)="^^7^7^3050819^"
^DD(727.802,75,23,1,0)="This field is derived from the ENVIRONMENTAL CONTAMINANTS field (#.322013)"
^DD(727.802,75,23,2,0)="in the Patient File (#2) using the patient's DFN. The status indicator is"
^DD(727.802,75,23,3,0)="returned by SVC^VADPT. The field values are:"
^DD(727.802,75,23,4,0)=" "
^DD(727.802,75,23,5,0)=" Y = YES"
^DD(727.802,75,23,6,0)=" N = NO"
^DD(727.802,75,23,7,0)=" U = UNKNOWN"
^DD(727.802,75,"DT")="3050819"
^DD(727.802,76,0)="ERI^F^^1;40^K:$L(X)>2!($L(X)<1) X"
^DD(727.802,76,3)="Answer must be 1-2 characters in length."
^DD(727.802,76,21,0)="^.001^2^2^3060731^^^"
^DD(727.802,76,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.802,76,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.802,76,23,0)="^.001^4^4^3060731^^^"
^DD(727.802,76,23,1,0)="This field length is extracted from the EMERGENCY RESPONSE INDICATOR"
^DD(727.802,76,23,2,0)="field (#.181) located in the PATIENT file (#2). Values are:"
^DD(727.802,76,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.802,76,23,4,0)="    Null"
^DD(727.802,76,"DT")="3060731"
^DD(727.802,77,0)="AGENT ORANGE ENC INDICATOR^F^^1;41^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,77,.1)=" "
^DD(727.802,77,3)="Answer must be 1 character in length."
^DD(727.802,77,21,0)="^^5^5^3060719^"
^DD(727.802,77,21,1,0)="Indicates the appropriate response for agent orange as related to "
^DD(727.802,77,21,2,0)="this patient's episode of care:"
^DD(727.802,77,21,3,0)="  Y = Yes"
^DD(727.802,77,21,4,0)="  N = No"
^DD(727.802,77,21,5,0)="  Null"
^DD(727.802,77,23,0)="^^6^6^3060719^"
^DD(727.802,77,23,1,0)="Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "
^DD(727.802,77,23,2,0)="(#405) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.802,77,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the agent orange indicator"
^DD(727.802,77,23,4,0)="stored at the AGENT ORANGE EXPOSURE field (#80002) in the VISIT file"
^DD(727.802,77,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.802,77,23,6,0)="""AO""."
^DD(727.802,77,"DT")="3060621"
^DD(727.802,78,0)="ENCOUNTER EC^F^^1;42^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,78,3)="Answer must be 1 character in length."
^DD(727.802,78,21,0)="^^5^5^3060719^"
^DD(727.802,78,21,1,0)="Indicates the appropriate response for environmental contaminant as "
^DD(727.802,78,21,2,0)="related to this patient's episode of care:"
^DD(727.802,78,21,3,0)="  Y = Yes"
^DD(727.802,78,21,4,0)="  N = No"
^DD(727.802,78,21,5,0)="  Null"
^DD(727.802,78,23,0)="^^6^6^3060719^"
^DD(727.802,78,23,1,0)="Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "
^DD(727.802,78,23,2,0)="(#405) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.802,78,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI return the environmental contaminant"
^DD(727.802,78,23,4,0)="indicator stored at the PERSIAN GULF EXPOSURE field (#80004) in the VISIT"
^DD(727.802,78,23,5,0)="file (#9000010). The value will be stored in the output array subscripted"
^DD(727.802,78,23,6,0)="by ""PGE""."
^DD(727.802,78,"DT")="3060621"
^DD(727.802,79,0)="ENC HEAD/NECK CA^F^^1;43^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,79,3)="Answer must be 1 character in length."
^DD(727.802,79,21,0)="^.001^5^5^3060719^^"
^DD(727.802,79,21,1,0)="Indicates the appropriate response for head/neck cancer as related"
^DD(727.802,79,21,2,0)="to this patient's episode of care:"
^DD(727.802,79,21,3,0)="  Y = Yes"
^DD(727.802,79,21,4,0)="  N = No"
^DD(727.802,79,21,5,0)="  Null"
^DD(727.802,79,23,0)="^.001^6^6^3060719^^"
^DD(727.802,79,23,1,0)="Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "
^DD(727.802,79,23,2,0)="(#405) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.802,79,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the head/neck cancer data"
^DD(727.802,79,23,4,0)="stored at the HEAD AND/OR NECK CANCER field (#80006) in the VISIT file"
^DD(727.802,79,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.802,79,23,6,0)="""HNC""."
^DD(727.802,79,"DT")="3060623"
^DD(727.802,80,0)="ENCOUNTER MST^F^^1;44^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,80,3)="Answer must be 1 character in length."
^DD(727.802,80,21,0)="^^5^5^3060719^"
^DD(727.802,80,21,1,0)="Indicates the appropriate response for military sexual trauma as related"
^DD(727.802,80,21,2,0)="to this patient's episode of care:"
^DD(727.802,80,21,3,0)="  Y = Yes"
^DD(727.802,80,21,4,0)="  N = No"
^DD(727.802,80,21,5,0)="  Null"
^DD(727.802,80,23,0)="^^6^6^3060719^"
^DD(727.802,80,23,1,0)="Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "
^DD(727.802,80,23,2,0)="(#405) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.802,80,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the military sexual trauma"
^DD(727.802,80,23,4,0)="data stored at the MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file"
^DD(727.802,80,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.802,80,23,6,0)="""MST""."
^DD(727.802,80,"DT")="3060623"
^DD(727.802,81,0)="RADIATION ENCOUNTER INDICATOR^F^^1;45^K:$L(X)>1!($L(X)<1) X"
^DD(727.802,81,3)="Answer must be 1 character in length."
^DD(727.802,81,21,0)="^^5^5^3060719^"
^DD(727.802,81,21,1,0)="Indicates the appropriate response for ionizing radiation exposure as"
^DD(727.802,81,21,2,0)="related to this patient's episode of care:"
^DD(727.802,81,21,3,0)="  Y = Yes"
^DD(727.802,81,21,4,0)="  N = No"
^DD(727.802,81,21,5,0)="  Null"
^DD(727.802,81,23,0)="^^6^6^3060719^"
^DD(727.802,81,23,1,0)="Using the VISIT FILE ENTRY field (#.27) in the PATIENT MOVEMENT file "
^DD(727.802,81,23,2,0)="(#405) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.802,81,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the ionizing radiation"
^DD(727.802,81,23,4,0)="exposure indicator stored at the IONIZING RADIATION EXPOSURE field "
^DD(727.802,81,23,5,0)="(#80003) in the VISIT file (#9000010). The value will be stored in the"
^DD(727.802,81,23,6,0)="output array subscripted by ""IR""."
^DD(727.802,81,"DT")="3060623"
^DD(727.802,82,0)="OEF/OIF^F^^2;1^K:$L(X)>9!($L(X)<1) X"
^DD(727.802,82,3)="Answer must be 1-9 characters in length."
^DD(727.802,82,21,0)="^.001^3^3^3070816^^"
^DD(727.802,82,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.802,82,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.802,82,21,3,0)="reflects the OEF or OIF where this patient was in combat."
^DD(727.802,82,23,0)="^.001^12^12^3070816^^"
^DD(727.802,82,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.802,82,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.802,82,23,3,0)="reflects the OEF or OIF where this patient was in combat. The value of "
^DD(727.802,82,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.802,82,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.802,82,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.802,82,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.802,82,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.802,82,23,9,0)="field values are one or more combinations of the following: "
^DD(727.802,82,23,10,0)="OEF = Operation Enduring Freedom"
^DD(727.802,82,23,11,0)="OIF = Operation Iraqi Freedom"
^DD(727.802,82,23,12,0)="UNK = Unknown OEF/OIF"
^DD(727.802,82,"DT")="3070816"
^DD(727.802,83,0)="OEF/OIF RETURN DATE^F^^2;2^K:$L(X)>8!($L(X)<1) X"
^DD(727.802,83,3)="Answer must be 1-8 characters in length."
^DD(727.802,83,21,0)="^.001^2^2^3070502^^"
^DD(727.802,83,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.802,83,21,2,0)="the end date of military pay for this OEF/OIF deployment."
^DD(727.802,83,23,0)="^^6^6^3070502^"
^DD(727.802,83,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.802,83,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.802,83,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.802,83,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.802,83,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.802,83,23,6,0)="tours, this field contains only most recent return date."
^DD(727.802,83,"DT")="3070502"
^DD(727.802,84,0)="ASSOCIATE PC PROVIDER NPI^F^^2;3^K:$L(X)>15!($L(X)<1) X"
^DD(727.802,84,3)="Answer must be 1-15 characters in length."
^DD(727.802,84,21,0)="^^2^2^3070502^"
^DD(727.802,84,21,1,0)="Standard unique life-long identifier of the associate primary care "
^DD(727.802,84,21,2,0)="provider. This field has a length of fifteen characters."
^DD(727.802,84,23,0)="^^3^3^3070502^"
^DD(727.802,84,23,1,0)="Standard unique life-long identifier of the associate primary care "
^DD(727.802,84,23,2,0)="provider. This field has a length of fifteen characters. The qualified "
^DD(727.802,84,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.802,84,"DT")="3070502"
^DD(727.802,85,0)="ATTENDING PHYSICIAN NPI^F^^2;4^K:$L(X)>15!($L(X)<1) X"
^DD(727.802,85,3)="Answer must be 1-15 characters in length."
^DD(727.802,85,21,0)="^.001^2^2^3070502^^"
^DD(727.802,85,21,1,0)="Standard unique life-long identifier of the attending physician. This "
^DD(727.802,85,21,2,0)="field has a length of fifteen characters. "
^DD(727.802,85,23,0)="^^3^3^3070502^"
^DD(727.802,85,23,1,0)="Standard unique life-long identifier of the attending physician. This "
^DD(727.802,85,23,2,0)="field has a length of fifteen characters.  The qualified identifier is "
^DD(727.802,85,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.802,85,"DT")="3070502"
^DD(727.802,86,0)="PRIMARY CARE PROVIDER NPI^F^^2;5^K:$L(X)>15!($L(X)<1) X"
^DD(727.802,86,3)="Answer must be 1-15 characters in length."
^DD(727.802,86,21,0)="^^2^2^3070502^"
^DD(727.802,86,21,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.802,86,21,2,0)="field has a length of fifteen characters."
^DD(727.802,86,23,0)="^^3^3^3070502^"
^DD(727.802,86,23,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.802,86,23,2,0)="field has a length of fifteen characters. The qualified identifier is "
^DD(727.802,86,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI. "
^DD(727.802,86,"DT")="3070502"
^DD(727.802,87,0)="PRIMARY WARD PROVIDER NPI^F^^2;6^K:$L(X)>15!($L(X)<1) X"
^DD(727.802,87,3)="Answer must be 1-15 characters in length."
^DD(727.802,87,21,0)="^^2^2^3070502^"
^DD(727.802,87,21,1,0)="A standard unique life-long identifier of the primary ward provider. This "
^DD(727.802,87,21,2,0)="field has a length of fifteen characters."
^DD(727.802,87,23,0)="^^3^3^3070502^"
^DD(727.802,87,23,1,0)="A standard unique life-long identifier of the primary ward provider. This "
^DD(727.802,87,23,2,0)="field has a length of fifteen characters.  The qualified identifier is "
^DD(727.802,87,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI. "
^DD(727.802,87,"DT")="3070502"
^DD(727.802,"B"," ",77)="1"
^DD(727.802,"B","ADMISSION ELIGIBILITY",42)=""
^DD(727.802,"B","AGENT ORANGE ENC INDICATOR",77)=""
^DD(727.802,"B","AGENT ORANGE LOCATION",59)=""
^DD(727.802,"B","AGENT ORANGE STATUS",21)=""
^DD(727.802,"B","ASSOC. PC PROV. PERSON CLASS",50)=""
^DD(727.802,"B","ASSOCIATE PC PROVIDER",49)=""
^DD(727.802,"B","ASSOCIATE PC PROVIDER NPI",84)=""
^DD(727.802,"B","ATTENDING PHYSICIAN",29)=""
^DD(727.802,"B","ATTENDING PHYSICIAN NPI",85)=""
^DD(727.802,"B","ATTENDING PHYSICIAN PC",73)=""
^DD(727.802,"B","Attending Physician",29)="1"
^DD(727.802,"B","COUNTY",16)=""
^DD(727.802,"B","CV ELIGIBILITY END DATE",70)=""
^DD(727.802,"B","CV STATUS ELIGIBILITY",69)=""
^DD(727.802,"B","DATE OF BIRTH",11)=""
^DD(727.802,"B","DAY",8)=""
^DD(727.802,"B","DIAGNOSIS",32)=""
^DD(727.802,"B","DOM, PRRTP AND SAARTP",52)=""
^DD(727.802,"B","DRG",31)=""
^DD(727.802,"B","DSS DEPT.",38)=""
^DD(727.802,"B","Date of Birth",11)="1"
^DD(727.802,"B","Day",8)="1"
^DD(727.802,"B","Diagnosis",32)="1"
^DD(727.802,"B","ELIGIBILITY",18)=""
^DD(727.802,"B","EMPLOYMENT STATUS",13)=""
^DD(727.802,"B","ENC HEAD/NECK CA",79)=""
^DD(727.802,"B","ENCOUNTER CV",71)=""
^DD(727.802,"B","ENCOUNTER EC",78)=""
^DD(727.802,"B","ENCOUNTER MST",80)=""
^DD(727.802,"B","ENCOUNTER NUMBER",58)=""
^DD(727.802,"B","ENROLLMENT CATEGORY",53)=""
^DD(727.802,"B","ENROLLMENT LOCATION",47)=""
^DD(727.802,"B","ENROLLMENT PRIORITY",66)=""
^DD(727.802,"B","ENROLLMENT STATUS",54)=""
^DD(727.802,"B","ENVIRONMENTAL CONTAMINANTS",75)=""
^DD(727.802,"B","ERI",76)=""
^DD(727.802,"B","ETHNICITY",64)=""
^DD(727.802,"B","EXTRACT NUMBER",2)=""
^DD(727.802,"B","Eligibility",18)="1"
^DD(727.802,"B","Employment Status",13)="1"
^DD(727.802,"B","Ethnicity",64)="1"
^DD(727.802,"B","Extract Number",2)="1"
^DD(727.802,"B","FACILITY",3)=""
^DD(727.802,"B","Facility",3)="1"
^DD(727.802,"B","HEAD & NECK CANCER INDICATOR",63)=""
^DD(727.802,"B","HEALTH INSURANCE",14)=""
^DD(727.802,"B","Head and Neck Cancer Indicator",63)="1"
^DD(727.802,"B","Health Insurance",14)="1"
^DD(727.802,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.802,"B","In Out Patient Indicator",7)="1"
^DD(727.802,"B","MARITAL STATUS",26)=""
^DD(727.802,"B","MASTER PATIENT INDEX",37)=""
^DD(727.802,"B","MEANS TEST",25)=""
^DD(727.802,"B","MOVEMENT FILE #",30)=""
^DD(727.802,"B","MST STATUS",43)=""
^DD(727.802,"B","Marital Status",26)="1"
^DD(727.802,"B","Means Test",25)="1"
^DD(727.802,"B","NAME",6)=""
^DD(727.802,"B","NATIONAL PATIENT RECORD FLAG",72)=""
^DD(727.802,"B","Name",6)="1"
^DD(727.802,"B","OBSERVATION PATIENT INDICATOR",57)=""
^DD(727.802,"B","OEF/OIF",82)=""
^DD(727.802,"B","OEF/OIF RETURN DATE",83)=""
^DD(727.802,"B","PATIENT NO. - DFN",4)=""
^DD(727.802,"B","PATIENT TYPE",68)=""
^DD(727.802,"B","PC PROVIDER PERSON CLASS",48)=""
^DD(727.802,"B","PERIOD OF SERVICE",24)=""
^DD(727.802,"B","PLACEHOLDER",39)=""
^DD(727.802,"B","PLACEHOLDER",40)=""
^DD(727.802,"B","PLACEHOLDER",41)=""
^DD(727.802,"B","PLACEHOLDER",51)=""
^DD(727.802,"B","PLACEHOLDER",55)=""
^DD(727.802,"B","POW LOCATION",61)=""
^DD(727.802,"B","POW Location",61)="1"
^DD(727.802,"B","POW STATUS",23)=""
^DD(727.802,"B","PRIMARY CARE PROVIDER",34)=""
^DD(727.802,"B","PRIMARY CARE PROVIDER NPI",86)=""
^DD(727.802,"B","PRIMARY CARE TEAM",9)=""
^DD(727.802,"B","PRIMARY WARD PROVIDER",36)=""
^DD(727.802,"B","PRIMARY WARD PROVIDER NPI",87)=""
^DD(727.802,"B","PRIMARY WARD PROVIDER PC",74)=""
^DD(727.802,"B","PRODUCTION DIVISION CODE",60)=""
^DD(727.802,"B","PURPLE HEART INDICATOR",56)=""
^DD(727.802,"B","Patient No. - DFN",4)="1"
^DD(727.802,"B","Period of Service",24)="1"
^DD(727.802,"B","Primary Care Provider",34)="1"
^DD(727.802,"B","Primary Care Team",9)="1"
^DD(727.802,"B","Purple Heart Indicator",56)="1"
^DD(727.802,"B","RACE",35)=""
^DD(727.802,"B","RACE 1",65)=""
^DD(727.802,"B","RADIATION ENCOUNTER INDICATOR",81)=""
^DD(727.802,"B","RADIATION STATUS",22)=""
^DD(727.802,"B","RELIGION",12)=""
^DD(727.802,"B","Race",35)="1"
^DD(727.802,"B","Race 1",65)="1"
^DD(727.802,"B","Religion",12)="1"
^DD(727.802,"B","SEQUENCE NUMBER",.01)=""
^DD(727.802,"B","SEX",10)=""
^DD(727.802,"B","SHARING AGREEMENT INSURANCE",46)=""
^DD(727.802,"B","SHARING AGREEMENT PAYOR",45)=""
^DD(727.802,"B","SOURCE OF ADMISSION",62)=""
^DD(727.802,"B","SSN",5)=""
^DD(727.802,"B","STATE",15)=""
^DD(727.802,"B","Sequence Number",.01)="1"
^DD(727.802,"B","Sex",10)="1"
^DD(727.802,"B","Social Security Number",5)="1"
^DD(727.802,"B","Source of Admission",62)="1"
^DD(727.802,"B","State",15)="1"
^DD(727.802,"B","TIME",33)=""
^DD(727.802,"B","TREATING SPECIALTY",28)=""
^DD(727.802,"B","Time",33)="1"
^DD(727.802,"B","Treating Specialty",28)="1"
^DD(727.802,"B","USER ENROLLEE",67)=""
^DD(727.802,"B","VETERAN",19)=""
^DD(727.802,"B","VIETNAM",20)=""
^DD(727.802,"B","Veteran",19)="1"
^DD(727.802,"B","Vietnam",20)="1"
^DD(727.802,"B","WARD",27)=""
^DD(727.802,"B","Ward",27)="1"
^DD(727.802,"B","YEAR MONTH",1)=""
^DD(727.802,"B","Year/Month",1)="1"
^DD(727.802,"B","ZIP+4",17)=""
^DD(727.802,"GL",0,1,.01)=""
^DD(727.802,"GL",0,2,1)=""
^DD(727.802,"GL",0,3,2)=""
^DD(727.802,"GL",0,4,3)=""
^DD(727.802,"GL",0,5,4)=""
^DD(727.802,"GL",0,6,5)=""
^DD(727.802,"GL",0,7,6)=""
^DD(727.802,"GL",0,8,7)=""
^DD(727.802,"GL",0,9,8)=""
^DD(727.802,"GL",0,10,9)=""
^DD(727.802,"GL",0,11,10)=""
^DD(727.802,"GL",0,12,11)=""
^DD(727.802,"GL",0,13,12)=""
^DD(727.802,"GL",0,14,13)=""
^DD(727.802,"GL",0,15,14)=""
^DD(727.802,"GL",0,16,15)=""
^DD(727.802,"GL",0,17,16)=""
^DD(727.802,"GL",0,18,17)=""
^DD(727.802,"GL",0,19,18)=""
^DD(727.802,"GL",0,20,19)=""
^DD(727.802,"GL",0,21,20)=""
^DD(727.802,"GL",0,22,21)=""
^DD(727.802,"GL",0,23,22)=""
^DD(727.802,"GL",0,24,23)=""
^DD(727.802,"GL",0,25,24)=""
^DD(727.802,"GL",0,26,25)=""
^DD(727.802,"GL",0,27,26)=""
^DD(727.802,"GL",0,28,27)=""
^DD(727.802,"GL",0,29,28)=""
^DD(727.802,"GL",0,30,29)=""
^DD(727.802,"GL",0,31,30)=""
^DD(727.802,"GL",0,32,31)=""
^DD(727.802,"GL",0,33,32)=""
^DD(727.802,"GL",0,34,33)=""
^DD(727.802,"GL",0,35,34)=""
^DD(727.802,"GL",0,36,35)=""
^DD(727.802,"GL",0,37,36)=""
^DD(727.802,"GL",1,1,37)=""
^DD(727.802,"GL",1,2,38)=""
^DD(727.802,"GL",1,3,39)=""
^DD(727.802,"GL",1,4,40)=""
^DD(727.802,"GL",1,5,41)=""
^DD(727.802,"GL",1,6,42)=""
^DD(727.802,"GL",1,7,43)=""
^DD(727.802,"GL",1,9,45)=""
^DD(727.802,"GL",1,10,46)=""
^DD(727.802,"GL",1,11,47)=""
^DD(727.802,"GL",1,12,48)=""
^DD(727.802,"GL",1,13,49)=""
^DD(727.802,"GL",1,14,50)=""
^DD(727.802,"GL",1,15,51)=""
^DD(727.802,"GL",1,16,52)=""
^DD(727.802,"GL",1,17,53)=""
^DD(727.802,"GL",1,18,54)=""
^DD(727.802,"GL",1,19,55)=""
^DD(727.802,"GL",1,20,56)=""
^DD(727.802,"GL",1,21,57)=""
^DD(727.802,"GL",1,22,58)=""
^DD(727.802,"GL",1,23,59)=""
^DD(727.802,"GL",1,24,60)=""
^DD(727.802,"GL",1,25,61)=""
^DD(727.802,"GL",1,26,62)=""
^DD(727.802,"GL",1,27,63)=""
^DD(727.802,"GL",1,28,64)=""
^DD(727.802,"GL",1,29,65)=""
^DD(727.802,"GL",1,30,66)=""
^DD(727.802,"GL",1,31,67)=""
^DD(727.802,"GL",1,32,68)=""
^DD(727.802,"GL",1,33,69)=""
^DD(727.802,"GL",1,34,70)=""
^DD(727.802,"GL",1,35,71)=""
^DD(727.802,"GL",1,36,72)=""
^DD(727.802,"GL",1,37,73)=""
^DD(727.802,"GL",1,38,74)=""
^DD(727.802,"GL",1,39,75)=""
^DD(727.802,"GL",1,40,76)=""
^DD(727.802,"GL",1,41,77)=""
^DD(727.802,"GL",1,42,78)=""
^DD(727.802,"GL",1,43,79)=""
^DD(727.802,"GL",1,44,80)=""
^DD(727.802,"GL",1,45,81)=""
^DD(727.802,"GL",2,1,82)=""
^DD(727.802,"GL",2,2,83)=""
^DD(727.802,"GL",2,3,84)=""
^DD(727.802,"GL",2,4,85)=""
^DD(727.802,"GL",2,5,86)=""
^DD(727.802,"GL",2,6,87)=""
^DD(727.802,"IX",2)=""
^DD(727.802,"RQ",.01)=""
^DD(727.804,0)="FIELD^^56^56"
^DD(727.804,0,"DDA")="N"
^DD(727.804,0,"DIK")="ECX804"
^DD(727.804,0,"DIKOLD")="ECX804"
^DD(727.804,0,"DT")="3020828"
^DD(727.804,0,"IX","AC",727.804,2)=""
^DD(727.804,0,"NM","CLINIC NOSHOW EXTRACT")=""
^DD(727.804,0,"VR")="3.0"
^DD(727.804,0,"VRPK")="ECX"
^DD(727.804,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.804,.01,.1)=""
^DD(727.804,.01,1,0)="^.1^^0"
^DD(727.804,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.804,.01,21,0)="^^1^1^2990505^^^^"
^DD(727.804,.01,21,1,0)="The record number for this extract entry."
^DD(727.804,.01,23,0)="^^1^1^2990505^^^^"
^DD(727.804,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.804,.01,"DT")="2990505"
^DD(727.804,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.804,1,.1)="Year/Month"
^DD(727.804,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.804,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.804,1,3)="Answer must be 6 characters in length."
^DD(727.804,1,21,0)="^^2^2^2970918^^^^"
^DD(727.804,1,21,1,0)="A six character string representing the year and the month"
^DD(727.804,1,21,2,0)="for which this extract was performed."
^DD(727.804,1,23,0)="^^1^1^2970918^^^^"
^DD(727.804,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.804,1,"DT")="2970924"
^DD(727.804,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.804,2,.1)="Extract Number"
^DD(727.804,2,1,0)="^.1"
^DD(727.804,2,1,1,0)="727.804^AC"
^DD(727.804,2,1,1,1)="S ^ECX(727.804,""AC"",$E(X,1,30),DA)="""""
^DD(727.804,2,1,1,2)="K ^ECX(727.804,""AC"",$E(X,1,30),DA)"
^DD(727.804,2,1,1,3)="DO NOT DELETE."
^DD(727.804,2,1,1,"%D",0)="^^2^2^2960808^^"
^DD(727.804,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.804,2,1,1,"%D",2,0)="in this file."
^DD(727.804,2,1,1,"DT")="2910802"
^DD(727.804,2,3)="Enter the extract number for this extract."
^DD(727.804,2,21,0)="^^2^2^2960814^^^^"
^DD(727.804,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.804,2,21,2,0)="extract."
^DD(727.804,2,23,0)="^^2^2^2960814^^^^"
^DD(727.804,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.804,2,23,2,0)="pick up the header for the mail message."
^DD(727.804,2,"DT")="2960814"
^DD(727.804,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.804,3,.1)="Facility"
^DD(727.804,3,3)="Enter the station number where this extract was performed."
^DD(727.804,3,21,0)="^^1^1^2961014^^^^"
^DD(727.804,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.804,3,23,0)="^^3^3^2961014^^^^"
^DD(727.804,3,23,1,0)="An indicator of the division where this event happened.  It is derived"
^DD(727.804,3,23,2,0)="from the DIVISION field (3.5) of the HOSPITAL LOCATION file (#44) which"
^DD(727.804,3,23,3,0)="points to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.804,3,"DT")="2961014"
^DD(727.804,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.804,4,.1)="Patient No. - DFN"
^DD(727.804,4,3)="Enter the name of the patient for this extract record."
^DD(727.804,4,21,0)="^^1^1^2990504^^^^"
^DD(727.804,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.804,4,23,0)="^^4^4^2990504^^^^"
^DD(727.804,4,23,1,0)="Pointer to the NAME field (.01) of the PATIENT file (#2). This data "
^DD(727.804,4,23,2,0)="represents the patient DFN. PATIENT NO. - DFN data is derived from the"
^DD(727.804,4,23,3,0)="PATIENT field (.01) within the APPOINTMENT field (1900) multiple of the"
^DD(727.804,4,23,4,0)="HOSPITAL LOCATION file (#44)."
^DD(727.804,4,"DT")="2961014"
^DD(727.804,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.804,5,.1)="Social Security Number"
^DD(727.804,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.804,5,21,0)="^^4^4^2990504^^^^"
^DD(727.804,5,21,1,0)="The patient's social security number."
^DD(727.804,5,21,2,0)=" "
^DD(727.804,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.804,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.804,5,23,0)="^^6^6^2990504^^"
^DD(727.804,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.804,5,23,2,0)="in the CLINIC NOSHOW EXTRACT file (#727.804), SSN data is derived from the"
^DD(727.804,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.804,5,23,4,0)=" "
^DD(727.804,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.804,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.804,5,"DT")="2960814"
^DD(727.804,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.804,6,.1)="Name"
^DD(727.804,6,3)="Your answer must be 4 characters in length."
^DD(727.804,6,21,0)="^^1^1^2960814^^^^"
^DD(727.804,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.804,6,23,0)="^^4^4^2961014^"
^DD(727.804,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.804,6,23,2,0)="in the CLINIC NOSHOW EXTRACT file (#727.804), NAME data is derived from"
^DD(727.804,6,23,3,0)="the NAME field (.01) in the PATIENT file (#2). The first four characters"
^DD(727.804,6,23,4,0)="of the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.804,6,"DT")="2960814"
^DD(727.804,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.804,7,.1)="In Out Patient Indicator"
^DD(727.804,7,3)="Answer must be 1 character in length."
^DD(727.804,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.804,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for"
^DD(727.804,7,21,2,0)="this extract entry."
^DD(727.804,7,23,0)="^.001^4^4^3011129^^"
^DD(727.804,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.804,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.804,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.804,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.804,7,"DT")="3011129"
^DD(727.804,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.804,8,.1)="Day"
^DD(727.804,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.804,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.804,8,3)="Answer must be 8 characters in length."
^DD(727.804,8,21,0)="^^2^2^2970918^^^^"
^DD(727.804,8,21,1,0)="This 8-character string represents the date on which the clinic"
^DD(727.804,8,21,2,0)="appointment was scheduled to occur."
^DD(727.804,8,23,0)="^^10^10^2970923^^^^"
^DD(727.804,8,23,1,0)="Data source:"
^DD(727.804,8,23,2,0)=" "
^DD(727.804,8,23,3,0)="HOSPITAL LOCATION file (#44); APPOINTMENT sub-file (#44.001);"
^DD(727.804,8,23,4,0)="   APPOINTMENT DATE/TIME field (#.01)"
^DD(727.804,8,23,5,0)=" "
^DD(727.804,8,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.804,8,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.804,8,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.804,8,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.804,8,23,10,0)="Year 2000 compliant per vendor."
^DD(727.804,8,"DT")="2970924"
^DD(727.804,9,0)="PLACEHOLDER1^F^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.804,9,.1)="Placeholder1"
^DD(727.804,9,3)="Answer must be 1 character in length."
^DD(727.804,9,21,0)="^^1^1^2970915^^^^"
^DD(727.804,9,21,1,0)="A placeholder for future use."
^DD(727.804,9,"DT")="2970915"
^DD(727.804,10,0)="MOVEMENT FILE #^P405'^DGPM(^0;11^Q"
^DD(727.804,10,.1)="Movement File Number"
^DD(727.804,10,3)="Enter the patient movement number associated with this extract record."
^DD(727.804,10,21,0)="^^1^1^2960814^^"
^DD(727.804,10,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.804,10,23,0)="^^4^4^2961014^^^^"
^DD(727.804,10,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.804,10,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.804,10,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.804,10,23,4,0)="(#405)."
^DD(727.804,10,"DT")="2960814"
^DD(727.804,12,0)="TREATING SPECIALTY^P42.4'^DIC(42.4,^0;12^Q"
^DD(727.804,12,.1)="Treating Specialty"
^DD(727.804,12,3)="Enter the name of the treating specialty associated with this extract record."
^DD(727.804,12,21,0)="^^2^2^2960814^^^"
^DD(727.804,12,21,1,0)="Enter the name of the treating specialty associated with this extract "
^DD(727.804,12,21,2,0)="record."
^DD(727.804,12,23,0)="^^6^6^2961015^^^^"
^DD(727.804,12,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.804,12,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.804,12,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.804,12,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.804,12,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.804,12,23,6,0)="SPECIALTY file (#42.4)."
^DD(727.804,12,"DT")="2960814"
^DD(727.804,13,0)="DATE OF BIRTH^FO^^0;13^K:$L(X)>8!($L(X)<8) X"
^DD(727.804,13,.1)="Date of Birth"
^DD(727.804,13,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.804,13,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.804,13,3)="Answer must be 8 characters in length."
^DD(727.804,13,21,0)="^^1^1^2970918^^^^"
^DD(727.804,13,21,1,0)="The patient's date of birth between December 31,1870 and today's date."
^DD(727.804,13,23,0)="^^10^10^2971113^^^^"
^DD(727.804,13,23,1,0)="Data source:"
^DD(727.804,13,23,2,0)=" "
^DD(727.804,13,23,3,0)="HOSPITAL LOCATION file (#44); APPOINTMENT sub-file (#44.0001);"
^DD(727.804,13,23,4,0)="   PATIENT sub-file (#44.003); PATIENT field (#.01)"
^DD(727.804,13,23,5,0)="   then to PATIENT file (#2); DATE OF BIRTH field (#.03)"
^DD(727.804,13,23,6,0)=" "
^DD(727.804,13,23,7,0)="If Date of Birth cannot be determined, then January 1, 1942, is"
^DD(727.804,13,23,8,0)="used as default.  The data element is always exactly 8 numberic"
^DD(727.804,13,23,9,0)="characters in length.  Format is YYYYMMDD.  Year 2000 compliant"
^DD(727.804,13,23,10,0)="per vendor."
^DD(727.804,13,"DT")="2970924"
^DD(727.804,14,0)="ELIGIBILITY^F^^0;14^K:$L(X)>3!($L(X)<1) X"
^DD(727.804,14,.1)="Eligibility"
^DD(727.804,14,3)="Answer must be 1-3 characters in length."
^DD(727.804,14,21,0)="^^1^1^2990504^^^^"
^DD(727.804,14,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.804,14,23,0)="^^11^11^2990504^^^^"
^DD(727.804,14,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.804,14,23,2,0)="in the CLINIC NOSHOW EXTRACT file (#727.804), ELIGIBILITY data is derived "
^DD(727.804,14,23,3,0)="from the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file (#2)."
^DD(727.804,14,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8)."
^DD(727.804,14,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (8) in the"
^DD(727.804,14,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS"
^DD(727.804,14,23,7,0)="ELIGIBILITY CODE file (#8.1). "
^DD(727.804,14,23,8,0)=" "
^DD(727.804,14,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.804,14,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.804,14,23,11,0)="two or three numeric characters."
^DD(727.804,14,"DT")="2990504"
^DD(727.804,15,0)="VETERAN^S^Y:YES;N:NO;^0;15^Q"
^DD(727.804,15,.1)="Veteran"
^DD(727.804,15,3)="Select the appropriate veteran status for this patient."
^DD(727.804,15,21,0)="^^1^1^2960814^^"
^DD(727.804,15,21,1,0)="Data is Y if the patient is a veteran, N if not."
^DD(727.804,15,23,0)="^^3^3^2961014^"
^DD(727.804,15,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.804,15,23,2,0)="in the CLINIC NOSHOW EXTRACT file (#727.804), VETERAN data is derived from"
^DD(727.804,15,23,3,0)="the VETERAN (Y/N)? field (1901) in the PATIENT file (#2)."
^DD(727.804,15,"DT")="2960814"
^DD(727.804,16,0)="TIME^FO^^0;16^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.804,16,.1)="Time"
^DD(727.804,16,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.804,16,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.804,16,3)="Answer must be 6 characters in length."
^DD(727.804,16,21,0)="^^2^2^2970918^^^^"
^DD(727.804,16,21,1,0)="A 6-character data element which represents the time for which"
^DD(727.804,16,21,2,0)="the appointment was scheduled."
^DD(727.804,16,23,0)="^^8^8^2970918^^^^"
^DD(727.804,16,23,1,0)="A six-character string of format HHMMSS which represents the time"
^DD(727.804,16,23,2,0)="(military time) of the appointment."
^DD(727.804,16,23,3,0)=" "
^DD(727.804,16,23,4,0)="HOSPITAL LOCATION file (#44); APPOINTMENT sub-file (#44.001);"
^DD(727.804,16,23,5,0)="   APPOINTMENT DATA/TIME field (#.01)"
^DD(727.804,16,23,6,0)="  "
^DD(727.804,16,23,7,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.804,16,23,8,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.804,16,"DT")="2970924"
^DD(727.804,17,0)="PRIMARY CARE TEAM^F^^0;17^K:$L(X)>4!($L(X)<1) X"
^DD(727.804,17,.1)="Primary Care Team"
^DD(727.804,17,3)="Enter primary care team assigned to this patient."
^DD(727.804,17,21,0)="^^1^1^2961106^^"
^DD(727.804,17,21,1,0)="The primary care team assigned to this patient."
^DD(727.804,17,23,0)="^^7^7^2961106^"
^DD(727.804,17,23,1,0)="Using the APPOINTMENT DATE/TIME field (.01) in the APPOINTMENT field "
^DD(727.804,17,23,2,0)="(1900) multiple of the HOSPITAL LOCATION file (#44) and the patient "
^DD(727.804,17,23,3,0)="pointer (DFN) stored in the PATIENT NO. - DFN field (4) in the CLINIC "
^DD(727.804,17,23,4,0)="NOSHOW EXTRACT file (#727.804), a call is made to the Scheduling API, "
^DD(727.804,17,23,5,0)="OUTPTTM^SDUTL3. The API returns the team's internal entry number and "
^DD(727.804,17,23,6,0)="name from the TEAM file (#404.51). Only the pointer (IEN) to File "
^DD(727.804,17,23,7,0)="404.51 is transmitted."
^DD(727.804,17,"DT")="2961106"
^DD(727.804,18,0)="PRIMARY CARE PROVIDER^F^^0;18^K:$L(X)>11!($L(X)<1) X"
^DD(727.804,18,.1)="Primary Care Provider"
^DD(727.804,18,3)="Enter primary care provider assigned to this patient."
^DD(727.804,18,21,0)="^^1^1^2980708^^^"
^DD(727.804,18,21,1,0)="The primary care provider assigned to this patient."
^DD(727.804,18,23,0)="^^9^9^2980708^^^"
^DD(727.804,18,23,1,0)="Using the APPOINTMENT DATE/TIME field (.01) in the APPOINTMENT field "
^DD(727.804,18,23,2,0)="(1900) multiple of the HOSPITAL LOCATION file (#44) and the patient "
^DD(727.804,18,23,3,0)="pointer (DFN) stored in the PATIENT NO. - DFN field (4) in the CLINIC "
^DD(727.804,18,23,4,0)="NOSHOW EXTRACT file (#727.804), a call is made to the Scheduling API, "
^DD(727.804,18,23,5,0)="OUTPTPR^SDUTL3. The API returns the provider's internal entry number "
^DD(727.804,18,23,6,0)="and name from the NEW PERSON file (#200). "
^DD(727.804,18,23,7,0)=" "
^DD(727.804,18,23,8,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.804,18,23,9,0)="is ""200""."
^DD(727.804,18,"DT")="2961015"
^DD(727.804,19,0)="PROVIDER^F^^0;19^K:$L(X)>11!($L(X)<1) X"
^DD(727.804,19,.1)="Provider"
^DD(727.804,19,3)="Enter provider for this record."
^DD(727.804,19,21,0)="^^1^1^2980925^^^"
^DD(727.804,19,21,1,0)="The provider assigned to this patient."
^DD(727.804,19,23,0)="^^1^1^2980925^^^"
^DD(727.804,19,23,1,0)="This field marked as a placeholder for future use."
^DD(727.804,19,"DT")="2961015"
^DD(727.804,20,0)="RACE^F^^0;20^K:$L(X)>1!($L(X)<1) X"
^DD(727.804,20,.1)="Race"
^DD(727.804,20,3)="Enter race ABBREVIATION for this patient."
^DD(727.804,20,21,0)="^^1^1^2961106^^^"
^DD(727.804,20,21,1,0)="Race ABBREVIATION for this patient."
^DD(727.804,20,23,0)="^^3^3^2961106^^"
^DD(727.804,20,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4),"
^DD(727.804,20,23,2,0)="RACE data is shown as the ABBREVIATION of the RACE file (#10) entry"
^DD(727.804,20,23,3,0)="pointed to by the RACE field (.06) in the PATIENT file (#2)."
^DD(727.804,20,"DT")="2961014"
^DD(727.804,21,0)="DSS IDENTIFIER^F^^0;21^K:$L(X)>6!($L(X)<6) X"
^DD(727.804,21,.1)="DSS Identifier"
^DD(727.804,21,3)="Answer must be 6 characters in length."
^DD(727.804,21,21,0)="^^3^3^2971106^^^"
^DD(727.804,21,21,1,0)="The DSS Identifier consists of the primary and secondary stop codes"
^DD(727.804,21,21,2,0)="associated with this clinic.  It is exactly 6 numeric characters in "
^DD(727.804,21,21,3,0)="length."
^DD(727.804,21,23,0)="^^19^19^2971113^^^^"
^DD(727.804,21,23,1,0)="Data source:"
^DD(727.804,21,23,2,0)=" "
^DD(727.804,21,23,3,0)="CLINICS AND STOP CODES file (#728.44); DSS STOP CODE field (#3)"
^DD(727.804,21,23,4,0)="   and DSS CREDIT STOP CODE field (#4)"
^DD(727.804,21,23,5,0)="  "
^DD(727.804,21,23,6,0)="If field #3 is null, then use"
^DD(727.804,21,23,7,0)="   CLINICS AND STOP CODES file (#728.44); STOP CODE field (#1)"
^DD(727.804,21,23,8,0)="   and CREDIT STOP CODE (#2)"
^DD(727.804,21,23,9,0)="  "
^DD(727.804,21,23,10,0)="If field #1 is null, then use"
^DD(727.804,21,23,11,0)="   HOSPITAL LOCATION file (#44); STOP CODE NUMBER field (#8)"
^DD(727.804,21,23,12,0)="   and CREDIT STOP CODE field (#2503)"
^DD(727.804,21,23,13,0)="  "
^DD(727.804,21,23,14,0)="If field #8 is null, then use default of ""000000""."
^DD(727.804,21,23,15,0)=" "
^DD(727.804,21,23,16,0)="However, if the ACTION TO SEND field (#5) of file #728.44 for"
^DD(727.804,21,23,17,0)="the clinic is set to ""1"" (i.e., SEND STOP CODE), then ONLY the"
^DD(727.804,21,23,18,0)="primary stop code is used.  The secondary stop code (i.e., credit"
^DD(727.804,21,23,19,0)="stop code) is set to ""000""."
^DD(727.804,21,"DT")="2970915"
^DD(727.804,22,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.804,22,3)="Answer must be 1-10 characters in length."
^DD(727.804,22,21,0)="^^1^1^2990504^"
^DD(727.804,22,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.804,22,23,0)="^^2^2^2990504^"
^DD(727.804,22,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.804,22,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.804,22,"DT")="2990504"
^DD(727.804,23,0)="DSS DEPT.^F^^1;2^K:$L(X)>10!($L(X)<4) X"
^DD(727.804,23,3)="Answer must be 4-10 characters in length."
^DD(727.804,23,21,0)="^^1^1^2990506^"
^DD(727.804,23,21,1,0)="The DSS Department Code for the clinic product."
^DD(727.804,23,23,0)="^^2^2^2990506^"
^DD(727.804,23,23,1,0)="A free text field of 4-10 characters; data not yet available."
^DD(727.804,23,23,2,0)="Field is set to null."
^DD(727.804,23,"DT")="2990506"
^DD(727.804,24,0)="PC PROVIDER NPI^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.804,24,3)="Answer must be 1-8 characters in length."
^DD(727.804,24,21,0)="^^1^1^2990506^"
^DD(727.804,24,21,1,0)="The Primary Care Provider's National Provider Identifier code."
^DD(727.804,24,23,0)="^^4^4^2990506^"
^DD(727.804,24,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.804,24,23,2,0)="field will hold the Primary Care Provider NPI."
^DD(727.804,24,23,3,0)="   "
^DD(727.804,24,23,4,0)="Field will be set to null until data becomes available."
^DD(727.804,24,"DT")="2990506"
^DD(727.804,25,0)="PROVIDER NPI^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.804,25,3)="Answer must be 1-8 characters in length."
^DD(727.804,25,21,0)="^^1^1^2990506^^^^"
^DD(727.804,25,21,1,0)="The Provider's National Provider Identifier code."
^DD(727.804,25,23,0)="^^4^4^2990506^^^"
^DD(727.804,25,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.804,25,23,2,0)="field will hold the Provider NPI."
^DD(727.804,25,23,3,0)="   "
^DD(727.804,25,23,4,0)="Field will be set to null until data becomes available."
^DD(727.804,25,"DT")="2990506"
^DD(727.804,26,0)="PC PROVIDER PERSON CLASS^F^^1;5^K:$L(X)>7!($L(X)<7) X"
^DD(727.804,26,3)="Answer must be 7 characters in length."
^DD(727.804,26,21,0)="^^2^2^2981026^"
^DD(727.804,26,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.804,26,21,2,0)="associated with this record."
^DD(727.804,26,23,0)="^^6^6^2981026^"
^DD(727.804,26,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.804,26,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.804,26,23,3,0)="extract record."
^DD(727.804,26,23,4,0)="  "
^DD(727.804,26,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.804,26,23,6,0)="7 characters in length."
^DD(727.804,26,"DT")="2981026"
^DD(727.804,27,0)="PROVIDER PERSON CLASS^F^^1;6^K:$L(X)>7!($L(X)<7) X"
^DD(727.804,27,3)="Answer must be 7 characters in length."
^DD(727.804,27,21,0)="^^1^1^2990505^"
^DD(727.804,27,21,1,0)="The VA code associated with the active Person Class of the provider."
^DD(727.804,27,23,0)="^^3^3^2990505^"
^DD(727.804,27,23,1,0)="A call to $$GET^XUA4A72(PERS,DATE) will be made using the IEN in the"
^DD(727.804,27,23,2,0)="PROVIDER and the date in the DAY field.  The VA Code is always of the"
^DD(727.804,27,23,3,0)="form ""V""_six numeric digits; exactly 7 characters in length. "
^DD(727.804,27,"DT")="2990505"
^DD(727.804,28,0)="POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;7^Q"
^DD(727.804,28,21,0)="^^1^1^2990505^"
^DD(727.804,28,21,1,0)="The patient's POW status. May be set to Y(es), N(o), or U(nknown)."
^DD(727.804,28,23,0)="^^2^2^2990505^^^"
^DD(727.804,28,23,1,0)="PATIENT file (#2); POW STATUS INDICATED? field (#.525)."
^DD(727.804,28,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.804,28,"DT")="2990505"
^DD(727.804,29,0)="POW LOCATION^P22'^DIC(22,^1;8^Q"
^DD(727.804,29,21,0)="^^9^9^2990505^"
^DD(727.804,29,21,1,0)="If POW Status is indicated, then this is the POW confinement"
^DD(727.804,29,21,2,0)="location/period. "
^DD(727.804,29,21,3,0)=" "
^DD(727.804,29,21,4,0)=" 1      WORLD WAR I"
^DD(727.804,29,21,5,0)=" 2      WORLD WAR II - EUROPE"
^DD(727.804,29,21,6,0)=" 3      WORLD WAR II - PACIFIC"
^DD(727.804,29,21,7,0)=" 4      KOREAN"
^DD(727.804,29,21,8,0)=" 5      VIETNAM"
^DD(727.804,29,21,9,0)=" 6      OTHER"
^DD(727.804,29,23,0)="^^3^3^2990505^^"
^DD(727.804,29,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.804,29,23,2,0)="pointer value to the POW PERIOD file (#22)."
^DD(727.804,29,23,3,0)="The location indicator is returned by SVC^VADPT."
^DD(727.804,29,"DT")="2990505"
^DD(727.804,30,0)="RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;9^Q"
^DD(727.804,30,21,0)="^^1^1^2990505^"
^DD(727.804,30,21,1,0)="The patient's Ionizing Radiation status. (Y/N/U)"
^DD(727.804,30,23,0)="^^2^2^2990505^"
^DD(727.804,30,23,1,0)="PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103)."
^DD(727.804,30,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.804,30,"DT")="2990505"
^DD(727.804,31,0)="AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;10^Q"
^DD(727.804,31,21,0)="^^1^1^2990505^"
^DD(727.804,31,21,1,0)="The patient's Agent Orange status."
^DD(727.804,31,23,0)="^^2^2^2990505^"
^DD(727.804,31,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102)."
^DD(727.804,31,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.804,31,"DT")="2990505"
^DD(727.804,32,0)="SHARING AGREEMENT PAYOR^F^^1;11^K:$L(X)>1!($L(X)<1) X"
^DD(727.804,32,3)="Answer must be 1 character in length."
^DD(727.804,32,21,0)="^^1^1^2990505^"
^DD(727.804,32,21,1,0)="An indicator used for patients participating in sharing agreements."
^DD(727.804,32,23,0)="^^15^15^2990505^"
^DD(727.804,32,23,1,0)="The ALIAS sub-field (#.01) of the ALIAS multiple field (#1) of the"
^DD(727.804,32,23,2,0)="PATIENT file (#2) is used to indicate a patient who participates in "
^DD(727.804,32,23,3,0)="a sharing agreement. If the #.01 field contains any one of the "
^DD(727.804,32,23,4,0)="specified key words, then the patient is considered to be included "
^DD(727.804,32,23,5,0)="for Sharing Agreement information. The keywords are: SHARING AGREEMENT,"
^DD(727.804,32,23,6,0)="CHAMPVA, CHAMPUS, TRICARE, CAT C, CATEGORY C."
^DD(727.804,32,23,7,0)="  "
^DD(727.804,32,23,8,0)="A one character code for the keyword found in the ALIAS multiple "
^DD(727.804,32,23,9,0)="field is obtained by the following conversion:"
^DD(727.804,32,23,10,0)="SHARING AGREEMENT = A"
^DD(727.804,32,23,11,0)="TRICARE = B"
^DD(727.804,32,23,12,0)="CAT C = C"
^DD(727.804,32,23,13,0)="CATEGORY C = C"
^DD(727.804,32,23,14,0)="CHAMPVA = D"
^DD(727.804,32,23,15,0)="CHAMPUS = E"
^DD(727.804,32,"DT")="2990505"
^DD(727.804,33,0)="SHARING AGREEMENT INSURANCE^F^^1;12^K:$L(X)>11!($L(X)<1) X"
^DD(727.804,33,3)="Answer must be 1-11 characters in length."
^DD(727.804,33,21,0)="^^2^2^2990505^"
^DD(727.804,33,21,1,0)="Used to indicate insurer, if patient participates in a"
^DD(727.804,33,21,2,0)="sharing agreement."
^DD(727.804,33,23,0)="^^5^5^2990505^"
^DD(727.804,33,23,1,0)="Data will be taken from the INSURANCE TYPE sub-field (#.01) of the"
^DD(727.804,33,23,2,0)="INSURANCE TYPE field (#.3121), sub-file #2.312, of the PATIENT file"
^DD(727.804,33,23,3,0)="(#2).  This is a pointer value for the INSURANCE COMPANY file (#36)."
^DD(727.804,33,23,4,0)="Only the first insurance company found in the multiple field is used."
^DD(727.804,33,23,5,0)="The data is stored as free text."
^DD(727.804,33,"DT")="2990505"
^DD(727.804,34,0)="MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;^1;13^Q"
^DD(727.804,34,21,0)="^^5^5^2990505^^"
^DD(727.804,34,21,1,0)="The MST Status of the patient on the date of the outpatient encounter."
^DD(727.804,34,21,2,0)="Possible status values are:"
^DD(727.804,34,21,3,0)="Y = Yes, screened reports MST"
^DD(727.804,34,21,4,0)="N = Screened, does not report MST"
^DD(727.804,34,21,5,0)="D = Screened, declines to answer"
^DD(727.804,34,23,0)="^^5^5^2990505^^"
^DD(727.804,34,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual"
^DD(727.804,34,23,2,0)="trauma claims and effective dates.  The patients MST status is stored"
^DD(727.804,34,23,3,0)="in the MST STATUS field (#3).  A call will be made to"
^DD(727.804,34,23,4,0)="$$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO.  DFN "
^DD(727.804,34,23,5,0)="field and the date in the DAY field."
^DD(727.804,34,"DT")="2990505"
^DD(727.804,35,0)="ENROLLMENT LOCATION^F^^1;14^K:$L(X)>7!($L(X)<3) X"
^DD(727.804,35,3)="Answer must be 3-7 characters in length"
^DD(727.804,35,21,0)="^^2^2^3020808^"
^DD(727.804,35,21,1,0)="The facility that the patient chooses to designate as his preferred"
^DD(727.804,35,21,2,0)="location for care."
^DD(727.804,35,23,0)="^^5^5^2990505^"
^DD(727.804,35,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2)"
^DD(727.804,35,23,2,0)="is defined as the facility that the patient chooses to designate"
^DD(727.804,35,23,3,0)="as his preferred location for care.  The PREFERRED FACILITY field"
^DD(727.804,35,23,4,0)="(# 27.02) is a pointer to the INSTITUTION file (#4).  From file #4,"
^DD(727.804,35,23,5,0)="the value in the STATION NUMBER field (#99) is used."
^DD(727.804,35,"DT")="3020808"
^DD(727.804,36,0)="STATE^F^^1;15^K:$L(X)>2!($L(X)<2) X"
^DD(727.804,36,3)="Answer must be 2 characters in length."
^DD(727.804,36,21,0)="^^1^1^2990505^"
^DD(727.804,36,21,1,0)="The state in which the patient resides."
^DD(727.804,36,23,0)="^^4^4^2990505^^"
^DD(727.804,36,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.804,36,23,2,0)="in the extract record, data is derived from the STATE field (#.115) in the"
^DD(727.804,36,23,3,0)="PATIENT file (#2) which points to the STATE file (#5).  From the STATE file"
^DD(727.804,36,23,4,0)="record, the two-character VA STATE CODE field (#2) is used."
^DD(727.804,36,"DT")="2990505"
^DD(727.804,37,0)="COUNTY^F^^1;16^K:$L(X)>3!($L(X)<3) X"
^DD(727.804,37,3)="Answer must be 3 characters in length."
^DD(727.804,37,21,0)="^^1^1^2990505^"
^DD(727.804,37,21,1,0)="The county in which the patient resides."
^DD(727.804,37,23,0)="^^5^5^2990505^^"
^DD(727.804,37,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.804,37,23,2,0)="(#4) in the extract record, data is derived from the COUNTY field (#.117)"
^DD(727.804,37,23,3,0)="in the PATIENT file (#2), which points to a subfile record in the COUNTY"
^DD(727.804,37,23,4,0)="multiple field (#3) of the STATE file (#5).  The three-character VA COUNTY"
^DD(727.804,37,23,5,0)="CODE field (#2) within the COUNTY multiple field is used."
^DD(727.804,37,"DT")="2990505"
^DD(727.804,38,0)="ZIP+4^F^^1;17^K:$L(X)>10!($L(X)<5) X"
^DD(727.804,38,3)="Answer must be 5-10 characters in length."
^DD(727.804,38,21,0)="^^2^2^2990505^"
^DD(727.804,38,21,1,0)="The patient's Zipcode with optional 4-digit extension."
^DD(727.804,38,21,2,0)="For example: 11223-1234"
^DD(727.804,38,23,0)="^^1^1^2990505^"
^DD(727.804,38,23,1,0)="PATIENT file (#2); ZIP+4 field (#.1112)."
^DD(727.804,38,"DT")="2990505"
^DD(727.804,39,0)="SEX^RS^M:MALE;F:FEMALE;^1;18^Q"
^DD(727.804,39,21,0)="^^1^1^2990506^"
^DD(727.804,39,21,1,0)="Data is M if this patient is a male, or F if female."
^DD(727.804,39,23,0)="^^3^3^2990506^"
^DD(727.804,39,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4),"
^DD(727.804,39,23,2,0)="this data element is derived from the SEX field (#.02) in the PATIENT "
^DD(727.804,39,23,3,0)="file (#2)."
^DD(727.804,39,"DT")="2990506"
^DD(727.804,40,0)="ASSOCIATE PC PROVIDER^F^^1;19^K:$L(X)>11!($L(X)<2) X"
^DD(727.804,40,3)="Answer must be 2-11 characters in length."
^DD(727.804,40,21,0)="^^4^4^2990505^"
^DD(727.804,40,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.804,40,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.804,40,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.804,40,21,4,0)="character 2."
^DD(727.804,40,23,0)="^^2^2^2990505^"
^DD(727.804,40,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.804,40,23,2,0)="the PCMM application."
^DD(727.804,40,"DT")="2990505"
^DD(727.804,41,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;20^K:$L(X)>7!($L(X)<7) X"
^DD(727.804,41,3)="Answer must be 7 characters in length."
^DD(727.804,41,21,0)="^^4^4^2990505^"
^DD(727.804,41,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.804,41,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.804,41,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.804,41,21,4,0)="exactly 7 characters in length. "
^DD(727.804,41,23,0)="^^3^3^2990505^"
^DD(727.804,41,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.804,41,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.804,41,23,3,0)="PERS is the IEN from file #200."
^DD(727.804,41,"DT")="2990505"
^DD(727.804,42,0)="ASSOCIATE PC PROVIDER NPI^F^^1;21^K:$L(X)>8!($L(X)<1) X"
^DD(727.804,42,3)="Answer must be 1-8 characters in length."
^DD(727.804,42,21,0)="^^1^1^2990506^"
^DD(727.804,42,21,1,0)="The Associate Primary Care Provider's National Provider Identifier code."
^DD(727.804,42,23,0)="^^2^2^2990506^"
^DD(727.804,42,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.804,42,23,2,0)="field will hold the Associate Primary Care Provider NPI."
^DD(727.804,42,"DT")="2990506"
^DD(727.804,43,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;22^K:$L(X)>1!($L(X)<1) X"
^DD(727.804,43,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.804,43,21,0)="^^7^7^3001011^"
^DD(727.804,43,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.804,43,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.804,43,21,3,0)=" "
^DD(727.804,43,21,4,0)=" "
^DD(727.804,43,21,5,0)="Domiciliary (DOM)"
^DD(727.804,43,21,6,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.804,43,21,7,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.804,43,"DT")="3001010"
^DD(727.804,44,0)="ENROLLMENT CATEGORY^F^^1;23^K:$L(X)>1!($L(X)<1) X"
^DD(727.804,44,3)="Answer must be 1 character in length."
^DD(727.804,44,21,0)="^.001^1^1^3001013^^"
^DD(727.804,44,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.804,44,"DT")="3000614"
^DD(727.804,45,0)="ENROLLMENT STATUS^F^^1;24^K:$L(X)>2!($L(X)<1) X"
^DD(727.804,45,3)="Answer must be 1-2 characters in length."
^DD(727.804,45,21,0)="^^1^1^3001011^"
^DD(727.804,45,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.804,45,"DT")="3000614"
^DD(727.804,46,0)="ENROLLMENT PRIORITY^F^^1;25^K:$L(X)>1!($L(X)<1) X"
^DD(727.804,46,3)="Answer must be 1 character in length."
^DD(727.804,46,21,0)="^^1^1^3001011^"
^DD(727.804,46,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.804,46,"DT")="3000614"
^DD(727.804,47,0)="PERIOD OF SERVICE^F^^1;26^K:$L(X)>4!($L(X)<1) X"
^DD(727.804,47,3)="Answer must be 1-4 characters in length."
^DD(727.804,47,21,0)="^^2^2^3001011^"
^DD(727.804,47,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.804,47,21,2,0)="eligibility code."
^DD(727.804,47,"DT")="3000614"
^DD(727.804,48,0)="OBSERVATION PATIENT INDICATOR^F^^1;27^K:$L(X)>4!($L(X)<1) X"
^DD(727.804,48,3)="Answer must be 1-4 characters in length. "
^DD(727.804,48,21,0)="^^2^2^3011212^"
^DD(727.804,48,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.804,48,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.804,48,"DT")="3010814"
^DD(727.804,49,0)="ENCOUNTER NUMBER^F^^1;28^K:$L(X)>18!($L(X)<1) X"
^DD(727.804,49,3)="Answer must be 1-18 characters in length"
^DD(727.804,49,21,0)="^^3^3^3011212^"
^DD(727.804,49,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.804,49,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.804,49,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.804,49,"DT")="3010504"
^DD(727.804,50,0)="AGENT ORANGE LOCATION^F^^1;29^K:$L(X)>2!($L(X)<2) X"
^DD(727.804,50,3)="Answer must be 2 characters in length"
^DD(727.804,50,21,0)="^^1^1^3011212^"
^DD(727.804,50,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.804,50,"DT")="3010504"
^DD(727.804,51,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;30^Q"
^DD(727.804,51,21,0)="^^2^2^3011212^"
^DD(727.804,51,21,1,0)="This field indicates whether or not the patient is a Purple Heart"
^DD(727.804,51,21,2,0)="recipient."
^DD(727.804,51,"DT")="3010504"
^DD(727.804,52,0)="CLINIC NAME^P44'^SC(^1;31^Q"
^DD(727.804,52,21,0)="^^1^1^3011212^"
^DD(727.804,52,21,1,0)="This field contains the six-character name of the clinic."
^DD(727.804,52,"DT")="3010504"
^DD(727.804,53,0)="PRODUCTION DIVISION CODE^F^^1;32^K:$L(X)>6!($L(X)<3) X"
^DD(727.804,53,3)="Answer must be 3-6 characters in length."
^DD(727.804,53,21,0)="^.001^2^2^3021008^^"
^DD(727.804,53,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.804,53,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.804,53,23,0)="^^2^2^3021008^"
^DD(727.804,53,23,1,0)="Data comes from the STATION NUMBER field (#99) of the INSTITUTION"
^DD(727.804,53,23,2,0)="file (#4)."
^DD(727.804,53,"DT")="3020812"
^DD(727.804,54,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;33^Q"
^DD(727.804,54,.1)="Head and Neck Cancer Indicator"
^DD(727.804,54,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.804,54,21,0)="^^1^1^3020828^"
^DD(727.804,54,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.804,54,23,0)="^^3^3^3020828^"
^DD(727.804,54,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.804,54,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.804,54,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.804,54,"DT")="3020828"
^DD(727.804,55,0)="ETHNICITY^F^^1;34^K:$L(X)>6!($L(X)<1) X"
^DD(727.804,55,.1)="Ethnicity"
^DD(727.804,55,3)="Answer must be 1-6 characters in length"
^DD(727.804,55,21,0)="^^1^1^3020828^"
^DD(727.804,55,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.804,55,23,0)="^^8^8^3021210^"
^DD(727.804,55,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.804,55,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.804,55,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.804,55,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.804,55,23,5,0)=" "
^DD(727.804,55,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.804,55,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.804,55,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.804,55,"DT")="3021210"
^DD(727.804,56,0)="RACE 1^F^^1;35^K:$L(X)>6!($L(X)<1) X"
^DD(727.804,56,.1)="Race 1"
^DD(727.804,56,3)="Answer must be 1-6 characters in length"
^DD(727.804,56,21,0)="^^1^1^3020828^"
^DD(727.804,56,21,1,0)="The patient's PTF Race code(s)."
^DD(727.804,56,23,0)="^^10^10^3020828^"
^DD(727.804,56,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.804,56,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.804,56,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.804,56,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.804,56,23,5,0)=" "
^DD(727.804,56,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.804,56,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.804,56,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.804,56,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.804,56,23,10,0)="the only value included in the RACE1 field."
^DD(727.804,56,"DT")="3020828"
^DD(727.804,"B","AGENT ORANGE LOCATION",50)=""
^DD(727.804,"B","AGENT ORANGE STATUS",31)=""
^DD(727.804,"B","ASSOC. PC PROV. PERSON CLASS",41)=""
^DD(727.804,"B","ASSOCIATE PC PROVIDER",40)=""
^DD(727.804,"B","ASSOCIATE PC PROVIDER NPI",42)=""
^DD(727.804,"B","CLINIC NAME",52)=""
^DD(727.804,"B","COUNTY",37)=""
^DD(727.804,"B","DATE OF BIRTH",13)=""
^DD(727.804,"B","DAY",8)=""
^DD(727.804,"B","DOM,PRRTP AND SAARTP INDICATOR",43)=""
^DD(727.804,"B","DSS DEPT.",23)=""
^DD(727.804,"B","DSS IDENTIFIER",21)=""
^DD(727.804,"B","DSS Identifier",21)="1"
^DD(727.804,"B","Date of Birth",13)="1"
^DD(727.804,"B","Day",8)="1"
^DD(727.804,"B","ELIGIBILITY",14)=""
^DD(727.804,"B","ENCOUNTER NUMBER",49)=""
^DD(727.804,"B","ENROLLMENT CATEGORY",44)=""
^DD(727.804,"B","ENROLLMENT LOCATION",35)=""
^DD(727.804,"B","ENROLLMENT PRIORITY",46)=""
^DD(727.804,"B","ENROLLMENT STATUS",45)=""
^DD(727.804,"B","ETHNICITY",55)=""
^DD(727.804,"B","EXTRACT NUMBER",2)=""
^DD(727.804,"B","Eligibility",14)="1"
^DD(727.804,"B","Ethnicity",55)="1"
^DD(727.804,"B","Extract Number",2)="1"
^DD(727.804,"B","FACILITY",3)=""
^DD(727.804,"B","Facility",3)="1"
^DD(727.804,"B","HEAD & NECK CANCER INDICATOR",54)=""
^DD(727.804,"B","Head and Neck Cancer Indicator",54)="1"
^DD(727.804,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.804,"B","In Out Patient Indicator",7)="1"
^DD(727.804,"B","MASTER PATIENT INDEX",22)=""
^DD(727.804,"B","MOVEMENT FILE #",10)=""
^DD(727.804,"B","MST STATUS",34)=""
^DD(727.804,"B","Movement File Number",10)="1"
^DD(727.804,"B","NAME",6)=""
^DD(727.804,"B","Name",6)="1"
^DD(727.804,"B","OBSERVATION PATIENT INDICATOR",48)=""
^DD(727.804,"B","PATIENT NO. - DFN",4)=""
^DD(727.804,"B","PC PROVIDER NPI",24)=""
^DD(727.804,"B","PC PROVIDER PERSON CLASS",26)=""
^DD(727.804,"B","PERIOD OF SERVICE",47)=""
^DD(727.804,"B","PLACEHOLDER1",9)=""
^DD(727.804,"B","POW LOCATION",29)=""
^DD(727.804,"B","POW STATUS",28)=""
^DD(727.804,"B","PRIMARY CARE PROVIDER",18)=""
^DD(727.804,"B","PRIMARY CARE TEAM",17)=""
^DD(727.804,"B","PRODUCTION DIVISION CODE",53)=""
^DD(727.804,"B","PROVIDER",19)=""
^DD(727.804,"B","PROVIDER NPI",25)=""
^DD(727.804,"B","PROVIDER PERSON CLASS",27)=""
^DD(727.804,"B","PURPLE HEART INDICATOR",51)=""
^DD(727.804,"B","Patient No. - DFN",4)="1"
^DD(727.804,"B","Placeholder1",9)="1"
^DD(727.804,"B","Primary Care Provider",18)="1"
^DD(727.804,"B","Primary Care Team",17)="1"
^DD(727.804,"B","Provider",19)="1"
^DD(727.804,"B","RACE",20)=""
^DD(727.804,"B","RACE 1",56)=""
^DD(727.804,"B","RADIATION STATUS",30)=""
^DD(727.804,"B","Race",20)="1"
^DD(727.804,"B","Race 1",56)="1"
^DD(727.804,"B","SEQUENCE NUMBER",.01)=""
^DD(727.804,"B","SEX",39)=""
^DD(727.804,"B","SHARING AGREEMENT INSURANCE",33)=""
^DD(727.804,"B","SHARING AGREEMENT PAYOR",32)=""
^DD(727.804,"B","SSN",5)=""
^DD(727.804,"B","STATE",36)=""
^DD(727.804,"B","Social Security Number",5)="1"
^DD(727.804,"B","TIME",16)=""
^DD(727.804,"B","TREATING SPECIALTY",12)=""
^DD(727.804,"B","Time",16)="1"
^DD(727.804,"B","Treating Specialty",12)="1"
^DD(727.804,"B","VETERAN",15)=""
^DD(727.804,"B","Veteran",15)="1"
^DD(727.804,"B","YEAR MONTH",1)=""
^DD(727.804,"B","Year/Month",1)="1"
^DD(727.804,"B","ZIP+4",38)=""
^DD(727.804,"GL",0,1,.01)=""
^DD(727.804,"GL",0,2,1)=""
^DD(727.804,"GL",0,3,2)=""
^DD(727.804,"GL",0,4,3)=""
^DD(727.804,"GL",0,5,4)=""
^DD(727.804,"GL",0,6,5)=""
^DD(727.804,"GL",0,7,6)=""
^DD(727.804,"GL",0,8,7)=""
^DD(727.804,"GL",0,9,8)=""
^DD(727.804,"GL",0,10,9)=""
^DD(727.804,"GL",0,11,10)=""
^DD(727.804,"GL",0,12,12)=""
^DD(727.804,"GL",0,13,13)=""
^DD(727.804,"GL",0,14,14)=""
^DD(727.804,"GL",0,15,15)=""
^DD(727.804,"GL",0,16,16)=""
^DD(727.804,"GL",0,17,17)=""
^DD(727.804,"GL",0,18,18)=""
^DD(727.804,"GL",0,19,19)=""
^DD(727.804,"GL",0,20,20)=""
^DD(727.804,"GL",0,21,21)=""
^DD(727.804,"GL",1,1,22)=""
^DD(727.804,"GL",1,2,23)=""
^DD(727.804,"GL",1,3,24)=""
^DD(727.804,"GL",1,4,25)=""
^DD(727.804,"GL",1,5,26)=""
^DD(727.804,"GL",1,6,27)=""
^DD(727.804,"GL",1,7,28)=""
^DD(727.804,"GL",1,8,29)=""
^DD(727.804,"GL",1,9,30)=""
^DD(727.804,"GL",1,10,31)=""
^DD(727.804,"GL",1,11,32)=""
^DD(727.804,"GL",1,12,33)=""
^DD(727.804,"GL",1,13,34)=""
^DD(727.804,"GL",1,14,35)=""
^DD(727.804,"GL",1,15,36)=""
^DD(727.804,"GL",1,16,37)=""
^DD(727.804,"GL",1,17,38)=""
^DD(727.804,"GL",1,18,39)=""
^DD(727.804,"GL",1,19,40)=""
^DD(727.804,"GL",1,20,41)=""
^DD(727.804,"GL",1,21,42)=""
^DD(727.804,"GL",1,22,43)=""
^DD(727.804,"GL",1,23,44)=""
^DD(727.804,"GL",1,24,45)=""
^DD(727.804,"GL",1,25,46)=""
^DD(727.804,"GL",1,26,47)=""
^DD(727.804,"GL",1,27,48)=""
^DD(727.804,"GL",1,28,49)=""
^DD(727.804,"GL",1,29,50)=""
^DD(727.804,"GL",1,30,51)=""
^DD(727.804,"GL",1,31,52)=""
^DD(727.804,"GL",1,32,53)=""
^DD(727.804,"GL",1,33,54)=""
^DD(727.804,"GL",1,34,55)=""
^DD(727.804,"GL",1,35,56)=""
^DD(727.804,"IX",2)=""
^DD(727.804,"RQ",.01)=""
^DD(727.804,"RQ",39)=""
^DD(727.805,0)="FIELD^^24^25"
^DD(727.805,0,"DIK")="ECX805"
^DD(727.805,0,"DIKOLD")="ECX805"
^DD(727.805,0,"DT")="3020626"
^DD(727.805,0,"IX","AC",727.805,2)=""
^DD(727.805,0,"NM","NURSING EXTRACT")=""
^DD(727.805,0,"VR")="3.0"
^DD(727.805,0,"VRPK")="ECX"
^DD(727.805,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.805,.01,.1)="Sequence Number"
^DD(727.805,.01,1,0)="^.1^^0"
^DD(727.805,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.805,.01,21,0)="^^1^1^2960815^^^^"
^DD(727.805,.01,21,1,0)="The record number for this extract entry."
^DD(727.805,.01,23,0)="^^1^1^2960815^^"
^DD(727.805,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.805,.01,"DT")="2980812"
^DD(727.805,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.805,1,.1)="Year/Month"
^DD(727.805,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.805,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.805,1,3)="Answer must be 6 characters in length."
^DD(727.805,1,21,0)="2^^2^2^2970918^^"
^DD(727.805,1,21,1,0)="A six character string representing the year and the month"
^DD(727.805,1,21,2,0)="for which this extract was performed."
^DD(727.805,1,23,0)="^^1^1^2970918^^^^"
^DD(727.805,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.805,1,"DT")="2970924"
^DD(727.805,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.805,2,.1)="Extract Number"
^DD(727.805,2,1,0)="^.1"
^DD(727.805,2,1,1,0)="727.805^AC"
^DD(727.805,2,1,1,1)="S ^ECX(727.805,""AC"",$E(X,1,30),DA)="""""
^DD(727.805,2,1,1,2)="K ^ECX(727.805,""AC"",$E(X,1,30),DA)"
^DD(727.805,2,1,1,3)="DO NOT DELETE."
^DD(727.805,2,1,1,"%D",0)="^^2^2^2960808^^"
^DD(727.805,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.805,2,1,1,"%D",2,0)="in this file."
^DD(727.805,2,1,1,"DT")="2910802"
^DD(727.805,2,3)="Enter the extract number for this extract."
^DD(727.805,2,21,0)="^^2^2^2960815^^^^"
^DD(727.805,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.805,2,21,2,0)="extract."
^DD(727.805,2,23,0)="^^2^2^2960815^^^^"
^DD(727.805,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.805,2,23,2,0)="pick up the header for the mail message."
^DD(727.805,2,"DT")="2960815"
^DD(727.805,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.805,3,.1)="Facility"
^DD(727.805,3,3)="Enter the station number where this extract was performed."
^DD(727.805,3,21,0)="^^1^1^2961017^^^^"
^DD(727.805,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.805,3,23,0)="^^4^4^2961017^^^^"
^DD(727.805,3,23,1,0)="An indicator of the division where this event happened. Using the NAME "
^DD(727.805,3,23,2,0)="field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "
^DD(727.805,3,23,3,0)="derived from the STATION NUMBER field (99) for that pointer number in "
^DD(727.805,3,23,4,0)="the INSTITUTION file (#4)."
^DD(727.805,3,"DT")="2961017"
^DD(727.805,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.805,4,.1)="Patient No. - DFN"
^DD(727.805,4,3)="Enter the name of the patient for this extract record."
^DD(727.805,4,21,0)="^^1^1^2990504^^^^"
^DD(727.805,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.805,4,23,0)="^^3^3^2990504^^"
^DD(727.805,4,23,1,0)="Pointer to the NAME field (.01) of the PATIENT file (#2). This data "
^DD(727.805,4,23,2,0)="represents the patient DFN. PATIENT NO. - DFN data is derived from the"
^DD(727.805,4,23,3,0)="NAME field (.02) of the NURS CLASSIFICATION file (#214.6)."
^DD(727.805,4,"DT")="2961017"
^DD(727.805,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.805,5,.1)="Social Security Number"
^DD(727.805,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.805,5,21,0)="^^4^4^2990504^^^^"
^DD(727.805,5,21,1,0)="The patient's social security number."
^DD(727.805,5,21,2,0)=" "
^DD(727.805,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.805,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.805,5,23,0)="^^6^6^2990504^^^"
^DD(727.805,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.805,5,23,2,0)="in the NURSING EXTRACT file (#727.805), SSN data is derived from the"
^DD(727.805,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.805,5,23,4,0)=" "
^DD(727.805,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.805,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.805,5,"DT")="2960815"
^DD(727.805,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.805,6,.1)="Name"
^DD(727.805,6,3)="Your answer must be 4 characters in length."
^DD(727.805,6,21,0)="^^1^1^2960815^^^^"
^DD(727.805,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.805,6,23,0)="^^4^4^2961017^"
^DD(727.805,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.805,6,23,2,0)="in the NURSING EXTRACT file (#727.805), NAME data is derived from the NAME"
^DD(727.805,6,23,3,0)="field (.01) in the PATIENT file (#2). The first four characters of the"
^DD(727.805,6,23,4,0)="first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.805,6,"DT")="2960815"
^DD(727.805,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.805,7,.1)="In Out Patient Indicator"
^DD(727.805,7,3)="Answer must be 1 character in length."
^DD(727.805,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.805,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for"
^DD(727.805,7,21,2,0)="this extract entry."
^DD(727.805,7,23,0)="^.001^4^4^3011129^^^^"
^DD(727.805,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.805,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.805,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.805,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.805,7,"DT")="3011128"
^DD(727.805,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.805,8,.1)="Day"
^DD(727.805,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.805,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.805,8,3)="Answer must be 8 characters in length."
^DD(727.805,8,21,0)="^^2^2^2970918^^^^"
^DD(727.805,8,21,1,0)="This 8-character string represents the date on which the Nursing"
^DD(727.805,8,21,2,0)="classification was done."
^DD(727.805,8,23,0)="^^9^9^2970923^^^^"
^DD(727.805,8,23,1,0)="Data source:"
^DD(727.805,8,23,2,0)=" "
^DD(727.805,8,23,3,0)="NURS CLASSIFICATION file (#214.6); CLASSIFICATION DATE/TIME field (#.01)"
^DD(727.805,8,23,4,0)=" "
^DD(727.805,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.805,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.805,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.805,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.805,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.805,8,"DT")="2970924"
^DD(727.805,9,0)="ACUITY LEVEL^F^^0;10^K:$L(X)>1!($L(X)<1)!'(""ABCDEFGHP12345""[X) X"
^DD(727.805,9,.1)="Acuity Level"
^DD(727.805,9,3)="Your answer must be 1 character in length."
^DD(727.805,9,21,0)="^^1^1^2960815^^^^"
^DD(727.805,9,21,1,0)="The patient's current Nursing AMIS classification or acuity rating."
^DD(727.805,9,23,0)="^^2^2^2960815^^^^"
^DD(727.805,9,23,1,0)="ACUITY LEVEL is derived from the CATEGORY field (1) in the NURS "
^DD(727.805,9,23,2,0)="CLASSIFICATION file (#214.6)."
^DD(727.805,9,"DT")="2960815"
^DD(727.805,10,0)="ENTERED BY^S^C:COMPUTER;U:USER;^0;11^Q"
^DD(727.805,10,.1)="Entered By"
^DD(727.805,10,3)="Enter C if computer generated, or U if user generated."
^DD(727.805,10,21,0)="^^2^2^2960815^^"
^DD(727.805,10,21,1,0)="Enter C if the classification was computer generated, or U if it was "
^DD(727.805,10,21,2,0)="user (RN) generated."
^DD(727.805,10,23,0)="^^2^2^2960815^^"
^DD(727.805,10,23,1,0)="ENTERED BY is derived from the ENTERED BY field (3) in the NURS "
^DD(727.805,10,23,2,0)="CLASSIFICATION file (#214.6)."
^DD(727.805,10,"DT")="2960815"
^DD(727.805,11,0)="CLASSIFIER^P200'^VA(200,^0;12^Q"
^DD(727.805,11,.1)="Classifier"
^DD(727.805,11,3)="Enter the name of the person who made the classification."
^DD(727.805,11,21,0)="^^2^2^2960815^^^^"
^DD(727.805,11,21,1,0)="Identifies the person making the classification.  Pointer to the "
^DD(727.805,11,21,2,0)="NEW PERSON FILE (#200)"
^DD(727.805,11,23,0)="^^2^2^2960815^^^^"
^DD(727.805,11,23,1,0)="CLASSIFIER is derived from the CLASSIFIER field (4) in the NURS "
^DD(727.805,11,23,2,0)="CLASSIFICATION file (#214.6)."
^DD(727.805,11,"DT")="2960815"
^DD(727.805,12,0)="NURSE LOCATION^P211.4'^NURSF(211.4,^0;13^Q"
^DD(727.805,12,.1)="Nurse Location"
^DD(727.805,12,3)="Enter the ward on which the patient is classified."
^DD(727.805,12,21,0)="^^2^2^2990512^^^^"
^DD(727.805,12,21,1,0)="Ward on which the patient is classified. Points to the NURS LOCATION "
^DD(727.805,12,21,2,0)="file (#211.4)."
^DD(727.805,12,23,0)="^^3^3^2990512^^^^"
^DD(727.805,12,23,1,0)="NURSE LOCATION is derived from the NURS LOCATION field (6) in the NURS "
^DD(727.805,12,23,2,0)="CLASSIFICATION file (#214.6) which is a pointer to the NURS LOCATION "
^DD(727.805,12,23,3,0)="file (#211.4)."
^DD(727.805,12,"DT")="2960815"
^DD(727.805,13,0)="NURSING BEDSECTION^P213.3'^NURSF(213.3,^0;14^Q"
^DD(727.805,13,.1)="Nursing Bedsection"
^DD(727.805,13,3)="Enter the nursing bedsection for which the patient is classified."
^DD(727.805,13,21,0)="^^2^2^2960815^^^^"
^DD(727.805,13,21,1,0)="Nursing bedsection for which the patient is classified. Points to the "
^DD(727.805,13,21,2,0)="NURS AMIS WARD file (#213.3)."
^DD(727.805,13,23,0)="^^3^3^2960815^^^"
^DD(727.805,13,23,1,0)="NURSING BEDSECTION is derived from the NURSING BED SECTION field (7) in "
^DD(727.805,13,23,2,0)="the NURS CLASSIFICATION file (#214.6) which is a pointer to the NURS "
^DD(727.805,13,23,3,0)="AMIS WARD file (#213.3)."
^DD(727.805,13,"DT")="2960815"
^DD(727.805,14,0)="MOVEMENT FILE #^P405'^DGPM(^0;15^Q"
^DD(727.805,14,.1)="Movement File Number"
^DD(727.805,14,3)="Enter the patient movement number associated with this extract record."
^DD(727.805,14,21,0)="^^1^1^2960815^^"
^DD(727.805,14,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.805,14,23,0)="^^4^4^2960815^^"
^DD(727.805,14,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.805,14,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.805,14,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.805,14,23,4,0)="(#405)."
^DD(727.805,14,"DT")="2960815"
^DD(727.805,15,0)="TREATING SPECIALTY^F^^0;16^K:$L(X)>3!($L(X)<2) X"
^DD(727.805,15,.1)="Treating Specialty"
^DD(727.805,15,3)="Answer must be 2-3 characters in length"
^DD(727.805,15,21,0)="^^2^2^3070502^"
^DD(727.805,15,21,1,0)="The PTF CODE of the treating specialty associated with this extract"
^DD(727.805,15,21,2,0)="record."
^DD(727.805,15,23,0)="^.001^7^7^3070502^^"
^DD(727.805,15,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.805,15,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.805,15,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.805,15,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.805,15,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.805,15,23,6,0)="SPECIALTY file (#42.4).  Then, the PTF Code is obtained and stored "
^DD(727.805,15,23,7,0)="instead of the actual specialty code."
^DD(727.805,15,"DT")="3070420"
^DD(727.805,16,0)="ADMISSION DATE^FO^^0;17^K:$L(X)>8!($L(X)<8) X"
^DD(727.805,16,.1)="Admission Date"
^DD(727.805,16,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.805,16,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.805,16,3)="Answer must be 8 characters in length."
^DD(727.805,16,21,0)="^^2^2^2970918^^^^"
^DD(727.805,16,21,1,0)="This 8-character string represents the date on which the admission"
^DD(727.805,16,21,2,0)="for this patient occurred."
^DD(727.805,16,23,0)="^^10^10^2971113^^^^"
^DD(727.805,16,23,1,0)="Data source:"
^DD(727.805,16,23,2,0)=" "
^DD(727.805,16,23,3,0)="NURS CLASSIFICATION file (#214.6); NAME field (#.02)"
^DD(727.805,16,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.805,16,23,5,0)=" "
^DD(727.805,16,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.805,16,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.805,16,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.805,16,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.805,16,23,10,0)="Year 2000 compliant per vendor."
^DD(727.805,16,"DT")="2970924"
^DD(727.805,17,0)="ADMISSION TIME^FO^^0;18^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.805,17,.1)="Admission Time"
^DD(727.805,17,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.805,17,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.805,17,3)="Answer must be 6 characters in length."
^DD(727.805,17,21,0)="^^2^2^2970918^^^^"
^DD(727.805,17,21,1,0)="A 6-character numeric string which represents the time of day at"
^DD(727.805,17,21,2,0)="which the patient admission occurred."
^DD(727.805,17,23,0)="^^6^6^2971113^^^^"
^DD(727.805,17,23,1,0)="Data source:"
^DD(727.805,17,23,2,0)=" "
^DD(727.805,17,23,3,0)="NURS CLASSIFICATION file (#214.6); NAME field (#.02)"
^DD(727.805,17,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.805,17,23,5,0)=" "
^DD(727.805,17,23,6,0)="Format is YYYYMMDD; Year 2000 compliant per vendor."
^DD(727.805,17,"DT")="2970924"
^DD(727.805,18,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.805,18,3)="Answer must be 1-10 characters in length."
^DD(727.805,18,21,0)="^^1^1^2990504^"
^DD(727.805,18,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.805,18,23,0)="^^2^2^2990504^"
^DD(727.805,18,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.805,18,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.805,18,"DT")="2990504"
^DD(727.805,19,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.805,19,.1)=""
^DD(727.805,19,3)="Answer must be 1-10 characters in length."
^DD(727.805,19,21,0)="^.001^2^2^3040318^^^"
^DD(727.805,19,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.805,19,21,2,0)="the Nursing care product."
^DD(727.805,19,23,0)="^^12^12^3040318^"
^DD(727.805,19,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.805,19,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.805,19,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.805,19,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.805,19,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.805,19,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.805,19,23,7,0)=" "
^DD(727.805,19,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as"
^DD(727.805,19,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.805,19,23,10,0)="designations are made. If no match is found in file 727.6 an error"
^DD(727.805,19,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.805,19,23,12,0)="group identifying the problem."
^DD(727.805,19,"DT")="3040302"
^DD(727.805,20,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;3^K:$L(X)>1!($L(X)<1) X"
^DD(727.805,20,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.805,20,21,0)="^^8^8^3001020^"
^DD(727.805,20,21,1,0)=" "
^DD(727.805,20,21,2,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is"
^DD(727.805,20,21,3,0)="admitted to either a DOM, PRRTP or SAARTP at the time hospital"
^DD(727.805,20,21,4,0)="service is provided."
^DD(727.805,20,21,5,0)="Domiciliary"
^DD(727.805,20,21,6,0)="(DOM)"
^DD(727.805,20,21,7,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.805,20,21,8,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.805,20,"DT")="3001010"
^DD(727.805,21,0)="OBSERVATION PATIENT INDICATOR^F^^1;4^K:$L(X)>4!($L(X)<1) X"
^DD(727.805,21,3)="Answer must be 1-4 characters in length. "
^DD(727.805,21,21,0)="^.001^2^2^3011212^^"
^DD(727.805,21,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.805,21,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.805,21,"DT")="3010814"
^DD(727.805,22,0)="ENCOUNTER NUMBER^F^^1;5^K:$L(X)>18!($L(X)<1) X"
^DD(727.805,22,3)="Answer must be 1-18 characters in length"
^DD(727.805,22,21,0)="^.001^3^3^3011212^^"
^DD(727.805,22,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.805,22,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.805,22,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.805,22,"DT")="3010503"
^DD(727.805,23,0)="PRODUCTION DIVISION CODE^F^^1;6^K:$L(X)>6!($L(X)<3) X"
^DD(727.805,23,3)="Answer must be 3-6 characters in length."
^DD(727.805,23,21,0)="^.001^2^2^3021008^^"
^DD(727.805,23,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.805,23,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.805,23,23,0)="^^2^2^3021008^"
^DD(727.805,23,23,1,0)="Data comes from the STATION NUMBER field (#99) of the INSTITUTION"
^DD(727.805,23,23,2,0)="file (#4)."
^DD(727.805,23,"DT")="3020812"
^DD(727.805,24,0)="DSS IP #^NJ7,0^^1;7^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.805,24,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.805,24,21,0)="^.001^2^2^3040318^^^"
^DD(727.805,24,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.805,24,21,2,0)="patient care product."
^DD(727.805,24,23,0)="^.001^10^10^3041027^^"
^DD(727.805,24,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.805,24,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.805,24,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.805,24,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.805,24,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.805,24,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.805,24,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.805,24,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.805,24,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.805,24,23,10,0)="group identifying the problem. "
^DD(727.805,24,"DT")="3031113"
^DD(727.805,"B","ACUITY LEVEL",9)=""
^DD(727.805,"B","ADMISSION DATE",16)=""
^DD(727.805,"B","ADMISSION TIME",17)=""
^DD(727.805,"B","Acuity Level",9)="1"
^DD(727.805,"B","Admission Date",16)="1"
^DD(727.805,"B","Admission Time",17)="1"
^DD(727.805,"B","CLASSIFIER",11)=""
^DD(727.805,"B","Classifier",11)="1"
^DD(727.805,"B","DAY",8)=""
^DD(727.805,"B","DOM,PRRTP AND SAARTP INDICATOR",20)=""
^DD(727.805,"B","DSS IP #",24)=""
^DD(727.805,"B","DSS PRODUCT DEPARTMENT",19)=""
^DD(727.805,"B","Day",8)="1"
^DD(727.805,"B","ENCOUNTER NUMBER",22)=""
^DD(727.805,"B","ENTERED BY",10)=""
^DD(727.805,"B","EXTRACT NUMBER",2)=""
^DD(727.805,"B","Entered By",10)="1"
^DD(727.805,"B","Extract Number",2)="1"
^DD(727.805,"B","FACILITY",3)=""
^DD(727.805,"B","Facility",3)="1"
^DD(727.805,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.805,"B","In Out Patient Indicator",7)="1"
^DD(727.805,"B","MASTER PATIENT INDEX",18)=""
^DD(727.805,"B","MOVEMENT FILE #",14)=""
^DD(727.805,"B","Movement File Number",14)="1"
^DD(727.805,"B","NAME",6)=""
^DD(727.805,"B","NURSE LOCATION",12)=""
^DD(727.805,"B","NURSING BEDSECTION",13)=""
^DD(727.805,"B","Name",6)="1"
^DD(727.805,"B","Nurse Location",12)="1"
^DD(727.805,"B","Nursing Bedsection",13)="1"
^DD(727.805,"B","OBSERVATION PATIENT INDICATOR",21)=""
^DD(727.805,"B","PATIENT NO. - DFN",4)=""
^DD(727.805,"B","PRODUCTION DIVISION CODE",23)=""
^DD(727.805,"B","Patient No. - DFN",4)="1"
^DD(727.805,"B","SEQUENCE NUMBER",.01)=""
^DD(727.805,"B","SSN",5)=""
^DD(727.805,"B","Sequence Number",.01)="1"
^DD(727.805,"B","Social Security Number",5)="1"
^DD(727.805,"B","TREATING SPECIALTY",15)=""
^DD(727.805,"B","Treating Specialty",15)="1"
^DD(727.805,"B","YEAR MONTH",1)=""
^DD(727.805,"B","Year/Month",1)="1"
^DD(727.805,"GL",0,1,.01)=""
^DD(727.805,"GL",0,2,1)=""
^DD(727.805,"GL",0,3,2)=""
^DD(727.805,"GL",0,4,3)=""
^DD(727.805,"GL",0,5,4)=""
^DD(727.805,"GL",0,6,5)=""
^DD(727.805,"GL",0,7,6)=""
^DD(727.805,"GL",0,8,7)=""
^DD(727.805,"GL",0,9,8)=""
^DD(727.805,"GL",0,10,9)=""
^DD(727.805,"GL",0,11,10)=""
^DD(727.805,"GL",0,12,11)=""
^DD(727.805,"GL",0,13,12)=""
^DD(727.805,"GL",0,14,13)=""
^DD(727.805,"GL",0,15,14)=""
^DD(727.805,"GL",0,16,15)=""
^DD(727.805,"GL",0,17,16)=""
^DD(727.805,"GL",0,18,17)=""
^DD(727.805,"GL",1,1,18)=""
^DD(727.805,"GL",1,2,19)=""
^DD(727.805,"GL",1,3,20)=""
^DD(727.805,"GL",1,4,21)=""
^DD(727.805,"GL",1,5,22)=""
^DD(727.805,"GL",1,6,23)=""
^DD(727.805,"GL",1,7,24)=""
^DD(727.805,"IX",2)=""
^DD(727.805,"RQ",.01)=""
^DD(727.806,0)="FIELD^^62^63"
^DD(727.806,0,"DDA")="N"
^DD(727.806,0,"DIK")="ECX806"
^DD(727.806,0,"DIKOLD")="ECX806"
^DD(727.806,0,"DT")="3021009"
^DD(727.806,0,"IX","AC",727.806,2)=""
^DD(727.806,0,"NM","DENTAL EXTRACT")=""
^DD(727.806,0,"VR")="3.0"
^DD(727.806,0,"VRPK")="ECX"
^DD(727.806,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.806,.01,.1)="Sequence Number"
^DD(727.806,.01,1,0)="^.1^^0"
^DD(727.806,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.806,.01,21,0)="^^1^1^2960909^^^^"
^DD(727.806,.01,21,1,0)="The record number for this extract entry."
^DD(727.806,.01,23,0)="^^1^1^2960909^^^"
^DD(727.806,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.806,.01,"DT")="2980812"
^DD(727.806,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.806,1,.1)="Year/Month"
^DD(727.806,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.806,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.806,1,3)="Answer must be 6 characters in length."
^DD(727.806,1,21,0)="^^2^2^2970918^^^^"
^DD(727.806,1,21,1,0)="A six character string representing the year and the month"
^DD(727.806,1,21,2,0)="for which this extract was performed."
^DD(727.806,1,23,0)="^^1^1^2970918^^^^"
^DD(727.806,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.806,1,"DT")="2970924"
^DD(727.806,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.806,2,.1)="Extract Number"
^DD(727.806,2,1,0)="^.1"
^DD(727.806,2,1,1,0)="727.806^AC"
^DD(727.806,2,1,1,1)="S ^ECX(727.806,""AC"",$E(X,1,30),DA)="""""
^DD(727.806,2,1,1,2)="K ^ECX(727.806,""AC"",$E(X,1,30),DA)"
^DD(727.806,2,1,1,3)="DO NOT DELETE."
^DD(727.806,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.806,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.806,2,1,1,"%D",2,0)="in this file."
^DD(727.806,2,1,1,"DT")="2910802"
^DD(727.806,2,3)="Enter the extract number for this extract."
^DD(727.806,2,21,0)="^^2^2^2960909^^^^"
^DD(727.806,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.806,2,21,2,0)="extract."
^DD(727.806,2,23,0)="^^2^2^2960909^^^^"
^DD(727.806,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.806,2,23,2,0)="pick up the header for the mail message."
^DD(727.806,2,"DT")="2960909"
^DD(727.806,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.806,3,.1)="Facility"
^DD(727.806,3,3)="Enter the station number where this extract was performed."
^DD(727.806,3,21,0)="^^1^1^2990702^^^^"
^DD(727.806,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.806,3,23,0)="^^3^3^2990702^^^^"
^DD(727.806,3,23,1,0)="An indicator of the division where this event happened. It is derived "
^DD(727.806,3,23,2,0)="from the STATION.DIVISION field (.3) of the DENTAL TREATMENT (AMIS) file "
^DD(727.806,3,23,3,0)="(#221)."
^DD(727.806,3,"DT")="2961016"
^DD(727.806,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.806,4,.1)="Patient No. - DFN"
^DD(727.806,4,3)="Enter the name of the patient for this extract record."
^DD(727.806,4,21,0)="^^1^1^2990504^^^^"
^DD(727.806,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.806,4,23,0)="^^2^2^2990504^^^^"
^DD(727.806,4,23,1,0)="Derived from the PATIENT (POINTER) field (3) in the DENTAL TREATMENT "
^DD(727.806,4,23,2,0)="(AMIS) file (#221). This field is a pointer to the PATIENT file (#2)."
^DD(727.806,4,"DT")="2961016"
^DD(727.806,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.806,5,.1)="Social Security Number"
^DD(727.806,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.806,5,21,0)="^^4^4^2990504^^^^"
^DD(727.806,5,21,1,0)="The patient's social security number."
^DD(727.806,5,21,2,0)=" "
^DD(727.806,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.806,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.806,5,23,0)="^^6^6^2990504^^^^"
^DD(727.806,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.806,5,23,2,0)="(4) in the DENTAL EXTRACT file (#727.806), SSN data is derived from the "
^DD(727.806,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.806,5,23,4,0)=" "
^DD(727.806,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.806,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.806,5,"DT")="2960909"
^DD(727.806,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.806,6,.1)="Name"
^DD(727.806,6,3)="Your answer must be 4 characters in length."
^DD(727.806,6,21,0)="^^1^1^2961021^^^^"
^DD(727.806,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.806,6,23,0)="^^4^4^2961021^^^^"
^DD(727.806,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.806,6,23,2,0)="(4) in the DENTAL EXTRACT file (#727.806), NAME data is derived from the "
^DD(727.806,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). The first four characters of "
^DD(727.806,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.806,6,"DT")="2960909"
^DD(727.806,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.806,7,.1)="In Out Patient Indicator"
^DD(727.806,7,3)="Answer must be 1 character in length."
^DD(727.806,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.806,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for"
^DD(727.806,7,21,2,0)="this extract entry."
^DD(727.806,7,23,0)="^.001^4^4^3011129^^^^"
^DD(727.806,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.806,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.806,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.806,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.806,7,"DT")="3011129"
^DD(727.806,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.806,8,.1)="Day"
^DD(727.806,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.806,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.806,8,3)="Answer must be 8 characters in length."
^DD(727.806,8,21,0)="^^2^2^2970918^^^^"
^DD(727.806,8,21,1,0)="This 8-character string represents the date on which the Dental"
^DD(727.806,8,21,2,0)="procedure was performed."
^DD(727.806,8,23,0)="^^9^9^2970923^^^^"
^DD(727.806,8,23,1,0)="Data source:"
^DD(727.806,8,23,2,0)=" "
^DD(727.806,8,23,3,0)="DENTAL TREATMENT (AMIS) file (#221); DATE field (#.01)"
^DD(727.806,8,23,4,0)=" "
^DD(727.806,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.806,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.806,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.806,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.806,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.806,8,"DT")="2970924"
^DD(727.806,9,0)="PROVIDER^F^^0;10^K:$L(X)>11!($L(X)<1) X"
^DD(727.806,9,.1)="Provider"
^DD(727.806,9,3)="Enter provider who saw this patient."
^DD(727.806,9,21,0)="^^1^1^2980608^^^^"
^DD(727.806,9,21,1,0)="Provider of medical care for this patient for this extract."
^DD(727.806,9,23,0)="^^4^4^2980608^^^^"
^DD(727.806,9,23,1,0)="Provider is derived from the DENTAL PROVIDER field (.5) in the DENTAL "
^DD(727.806,9,23,2,0)="TREATMENT (AMIS) file. DENTAL PROVIDER is a pointer to the DENTAL "
^DD(727.806,9,23,3,0)="PROVIDER file (#220.5). It is preceded by a 1 if it is a pointer to File "
^DD(727.806,9,23,4,0)="16 or a 2 if it is a pointer to File 200."
^DD(727.806,9,"DT")="2961016"
^DD(727.806,10,0)="SCREENING/COMPLETE EXAM^S^S:SCREENING;C:COMPLETE;^0;11^Q"
^DD(727.806,10,.1)="Screening/Complete Exam"
^DD(727.806,10,3)="Select S for screening or C for complete exam."
^DD(727.806,10,21,0)="^^1^1^2960909^^^"
^DD(727.806,10,21,1,0)="Exam will be S for screening or C for complete."
^DD(727.806,10,23,0)="^^2^2^2960909^^^"
^DD(727.806,10,23,1,0)="Derived from the SCREENING/COMPLETE EXAM field (6) of the DENTAL "
^DD(727.806,10,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,10,"DT")="2960909"
^DD(727.806,11,0)="ADMIN PROCEDURE^S^1:ADMIN PROCEDURE;^0;12^Q"
^DD(727.806,11,.1)="Admin Procedure"
^DD(727.806,11,3)="Enter 1 or A for an administrative procedure."
^DD(727.806,11,21,0)="^.001^3^3^3021003^^^^"
^DD(727.806,11,21,1,0)="An entry should be made in this field when a case, a service or a "
^DD(727.806,11,21,2,0)="procedure has been administratively completed or terminated without an "
^DD(727.806,11,21,3,0)="actual patient visit (i.e., chart review, telephone call, death, etc.)."
^DD(727.806,11,23,0)="^.001^2^2^3021003^^^^"
^DD(727.806,11,23,1,0)="Derived from the ADMIN PROCEDURE field (7) of the DENTAL TREATMENT "
^DD(727.806,11,23,2,0)="(AMIS) file (#221)."
^DD(727.806,11,"DT")="2960909"
^DD(727.806,12,0)="X-RAYS EXTRAORAL #^NJ1,0^^0;13^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,12,.1)="Number of Extraoral X-Rays"
^DD(727.806,12,3)="Enter a number between 0 and 4, 0 decimal digits."
^DD(727.806,12,21,0)="^^2^2^2960909^^^"
^DD(727.806,12,21,1,0)="Enter the number of EXTRAORAL radiographs taken on this patient for "
^DD(727.806,12,21,2,0)="panoramic, cephalometric or other extraoral procedures."
^DD(727.806,12,23,0)="^^2^2^2960909^^^"
^DD(727.806,12,23,1,0)="Derived from the X-RAYS EXTRAORAL # field (8) of the DENTAL TREATMENT "
^DD(727.806,12,23,2,0)="(AMIS) file (#221)."
^DD(727.806,12,"DT")="2960910"
^DD(727.806,13,0)="X-RAYS INTRAORAL #^NJ2,0^^0;14^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,13,.1)="Number of Intraoral X-Rays"
^DD(727.806,13,3)="Enter a number between 0 and 24, 0 decimal digits."
^DD(727.806,13,21,0)="^^2^2^2960909^^"
^DD(727.806,13,21,1,0)="Enter the number of INTRAORAL radiographs taken for this patient for PA, "
^DD(727.806,13,21,2,0)="bitewing, occlusal and other intraoral procedures."
^DD(727.806,13,23,0)="^^2^2^2960909^^"
^DD(727.806,13,23,1,0)="Derived from the X-RAYS INTRAORAL # field (10) of the DENTAL TREATMENT "
^DD(727.806,13,23,2,0)="(AMIS) file (#221)."
^DD(727.806,13,"DT")="2960910"
^DD(727.806,14,0)="PROPHY NATURAL DENTITION^S^1:YES;^0;15^Q"
^DD(727.806,14,.1)="Prophy Natural Dentition"
^DD(727.806,14,3)="Enter a 1 or Y for yes."
^DD(727.806,14,21,0)="^^3^3^2960909^^^"
^DD(727.806,14,21,1,0)="In special circumstances, when a patient is of such a difficult nature"
^DD(727.806,14,21,2,0)="that two or more appointments are needed to complete the prophylaxis,"
^DD(727.806,14,21,3,0)="credit for each treatment episode may be recorded."
^DD(727.806,14,23,0)="^^2^2^2960909^^^"
^DD(727.806,14,23,1,0)="Derived from the PROPHY NATURAL DENTITION field (11) of the DENTAL "
^DD(727.806,14,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,14,"DT")="2960909"
^DD(727.806,15,0)="PROPHY DENTURE^S^1:YES;^0;16^Q"
^DD(727.806,15,.1)="Prophy Denture"
^DD(727.806,15,3)="Enter a 1 or Y for yes if the patient had one or more complete and/or partial removable prostheses cleaned and polished by any provider."
^DD(727.806,15,21,0)="^^3^3^2960909^^^"
^DD(727.806,15,21,1,0)="If a patient had a prophylaxis of natural dentition and a removable"
^DD(727.806,15,21,2,0)="prosthesis cleaned on the same visit, an entry can be made for both"
^DD(727.806,15,21,3,0)="procedures."
^DD(727.806,15,23,0)="^^2^2^2960909^^^"
^DD(727.806,15,23,1,0)="Derived from the PROPHY DENTURE field (12) of the DENTAL TREATMENT "
^DD(727.806,15,23,2,0)="(AMIS) file (#221)."
^DD(727.806,15,"DT")="2960909"
^DD(727.806,16,0)="OPERATING ROOM^S^1:YES;^0;17^Q"
^DD(727.806,16,.1)="Operating Room"
^DD(727.806,16,3)="Enter a 1 or Y for yes if this patient was treated in the operating room."
^DD(727.806,16,21,0)="^^2^2^2960909^^^^"
^DD(727.806,16,21,1,0)="Patient was treated in the operating room. These cases must be credited "
^DD(727.806,16,21,2,0)="to a dental staff provider or a dental consultant or attending."
^DD(727.806,16,23,0)="^^2^2^2960909^^^^"
^DD(727.806,16,23,1,0)="Derived from the OPERATING ROOM field (38) of the DENTAL TREATMENT "
^DD(727.806,16,23,2,0)="(AMIS) file (#221)."
^DD(727.806,16,"DT")="2960909"
^DD(727.806,17,0)="NEOPLASM CONFIRMED MALIGNANT #^NJ1,0^^0;18^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,17,.1)="Number of Neoplasm Confirmed Malignant"
^DD(727.806,17,3)="Enter a number between 0 and 2, 0 decimal digits."
^DD(727.806,17,21,0)="^^2^2^2960909^^"
^DD(727.806,17,21,1,0)="The number of confirmed malignant neoplasms initially recognized by"
^DD(727.806,17,21,2,0)="a member of the Dental Service."
^DD(727.806,17,23,0)="^^2^2^2960909^^"
^DD(727.806,17,23,1,0)="Derived from the NEOPLASM CONFIRMED MALIGNANT # field (14) of the DENTAL "
^DD(727.806,17,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,17,"DT")="2960910"
^DD(727.806,18,0)="NEOPLASM REMOVED #^NJ1,0^^0;19^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,18,.1)="Number of Neoplasm Removed"
^DD(727.806,18,3)="Enter a number between 0 and 4, 0 decimal digits."
^DD(727.806,18,21,0)="^^1^1^2960909^^"
^DD(727.806,18,21,1,0)="The number of neoplasms removed including excisional biopsies."
^DD(727.806,18,23,0)="^^2^2^2960909^^"
^DD(727.806,18,23,1,0)="Derived from the NEOPLASM REMOVED # field (15) of the DENTAL TREATMENT "
^DD(727.806,18,23,2,0)="(AMIS) file (#221)."
^DD(727.806,18,"DT")="2960910"
^DD(727.806,19,0)="BIOPSY/SMEAR #^NJ1,0^^0;20^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,19,.1)="Number of Biopsies/Smears"
^DD(727.806,19,3)="Enter a number between 0 and 4, 0 decimal digits."
^DD(727.806,19,21,0)="^^2^2^2960909^^"
^DD(727.806,19,21,1,0)="The number of incisional biopsies plus the number of cytological smears"
^DD(727.806,19,21,2,0)="taken."
^DD(727.806,19,23,0)="^^2^2^2960909^^"
^DD(727.806,19,23,1,0)="Derived from the BIOPSY/SMEAR # field (16) of the DENTAL TREATMENT "
^DD(727.806,19,23,2,0)="(AMIS) file (#221)."
^DD(727.806,19,"DT")="2960910"
^DD(727.806,20,0)="FRACTURE #^NJ1,0^^0;21^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,20,.1)="Number of Fractures"
^DD(727.806,20,3)="Enter a number between 0 and 4, 0 decimal digits."
^DD(727.806,20,21,0)="^^2^2^2960909^^"
^DD(727.806,20,21,1,0)="The number of maxillofacial fractures (surgical sites or procedures)"
^DD(727.806,20,21,2,0)="reduced."
^DD(727.806,20,23,0)="^^2^2^2960909^^"
^DD(727.806,20,23,1,0)="Derived from the FRACTURE # field (17) of the DENTAL TREATMENT (AMIS) "
^DD(727.806,20,23,2,0)="file (#221)."
^DD(727.806,20,"DT")="2960910"
^DD(727.806,21,0)="PATIENT CATEGORY^P220.2'^DIC(220.2,^0;22^Q"
^DD(727.806,21,.1)="Patient Category"
^DD(727.806,21,3)="Select the appropriate patient category for this sitting."
^DD(727.806,21,21,0)="^^1^1^2961021^^^^"
^DD(727.806,21,21,1,0)="The appropriate patient category for this dental sitting."
^DD(727.806,21,23,0)="^^3^3^2961021^^^^"
^DD(727.806,21,23,1,0)="Derived from the PATIENT CATEGORY field (4.5) of the DENTAL TREATMENT "
^DD(727.806,21,23,2,0)="(AMIS) file (#221). This field is a pointer to the DENTAL CLASSIFICATION "
^DD(727.806,21,23,3,0)="file (#220.2)."
^DD(727.806,21,"DT")="2960909"
^DD(727.806,22,0)="OTHER SIGNIF. SURG. (CTV)^NJ2,0^^0;23^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,22,.1)="Other Signif. Surg. (CTV)"
^DD(727.806,22,3)="Enter a number between 0 and 99, 0 decimal digits."
^DD(727.806,22,21,0)="^^1^1^2960909^^"
^DD(727.806,22,21,1,0)="The weighted value (CTV's) for the surgical procedure performed."
^DD(727.806,22,23,0)="^^2^2^2960909^^"
^DD(727.806,22,23,1,0)="Derived from the OTHER SIGNIF. SURG. (CTV) field (19) of the DENTAL "
^DD(727.806,22,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,22,"DT")="2960909"
^DD(727.806,23,0)="SURFACES RESTORED #^NJ2,0^^0;24^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,23,.1)="Number of Surfaces Restored"
^DD(727.806,23,3)="Enter a number between 0 and 24, 0 decimal digits."
^DD(727.806,23,21,0)="^^1^1^2960909^^"
^DD(727.806,23,21,1,0)="The number of surfaces restored with permanent restorative material."
^DD(727.806,23,23,0)="^^2^2^2960909^^"
^DD(727.806,23,23,1,0)="Derived from the SURFACES RESTORED # field (21) of the DENTAL TREATMENT "
^DD(727.806,23,23,2,0)="(AMIS) file (#221)."
^DD(727.806,23,"DT")="2960910"
^DD(727.806,24,0)="ROOT CANAL THERAPY #^NJ1,0^^0;25^K:+X'=X!(X>8)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,24,.1)="Number of Root Canal Therapy"
^DD(727.806,24,3)="Enter a number between 0 and 8, 0 decimal digits."
^DD(727.806,24,21,0)="^^1^1^2960909^^"
^DD(727.806,24,21,1,0)="The number of root canals permanently filled."
^DD(727.806,24,23,0)="^^2^2^2960909^^"
^DD(727.806,24,23,1,0)="Derived from the ROOT CANAL THERAPY # field (22) of the DENTAL TREATMENT "
^DD(727.806,24,23,2,0)="(AMIS) file (#221)."
^DD(727.806,24,"DT")="2960910"
^DD(727.806,25,0)="PERIDONTAL QUADS (SURGICAL) #^NJ1,0^^0;26^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,25,.1)="Peridontal Quads (Surgical) Number"
^DD(727.806,25,3)="Enter a number between 0 and 4, 0 decimal digits."
^DD(727.806,25,21,0)="^^1^1^2960909^^"
^DD(727.806,25,21,1,0)="The number of quadrant equivalents of periodontal surgery."
^DD(727.806,25,23,0)="^^2^2^2960909^^"
^DD(727.806,25,23,1,0)="Derived from the PERIODONTAL QUADS (SURGICAL) # field (23) of the DENTAL "
^DD(727.806,25,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,25,"DT")="2960909"
^DD(727.806,26,0)="PERIO QUADS (ROOT PLANE) #^NJ1,0^^0;27^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,26,.1)="Number of Perio Quads (Root Plane)"
^DD(727.806,26,3)="Enter a number between 0 and 4, 0 decimal digits."
^DD(727.806,26,21,0)="^^2^2^2960909^^"
^DD(727.806,26,21,1,0)="The number of quadrant equivalents of subgingival curettage and/or"
^DD(727.806,26,21,2,0)="root planing."
^DD(727.806,26,23,0)="^^2^2^2960909^^"
^DD(727.806,26,23,1,0)="Derived from the PERIO QUADS (ROOT PLANE) # field (24) of the DENTAL "
^DD(727.806,26,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,26,"DT")="2960910"
^DD(727.806,27,0)="PATIENT ED (CTV)^S^0:NONE;3:INDIVIDUAL;4:GROUP;^0;28^Q"
^DD(727.806,27,.1)="Patient Ed (CTV)"
^DD(727.806,27,3)="Enter a 0 or N for none, a 3 or I for individual, or a 4 or G for group patient instruction."
^DD(727.806,27,21,0)="^^1^1^2960909^^^^"
^DD(727.806,27,21,1,0)="The weighted value of preventive dentistry instructions."
^DD(727.806,27,23,0)="^^3^3^2960909^^^^"
^DD(727.806,27,23,1,0)="Derived from the PATIENT ED. (CTV) field (25) of the DENTAL TREATMENT "
^DD(727.806,27,23,2,0)="(AMIS) file (#221). Your answer must be 0 for none, 3 for individual or "
^DD(727.806,27,23,3,0)="4 for group."
^DD(727.806,27,"DT")="2960909"
^DD(727.806,28,0)="SPOT CHECK EXAM^S^1:STAFF;3:FEE;^0;29^Q"
^DD(727.806,28,.1)="Spot Check Exam"
^DD(727.806,28,3)="Enter a 1 or S for staff dentist or a 3 or F for fee dentist."
^DD(727.806,28,21,0)="^^2^2^2960909^^^^"
^DD(727.806,28,21,1,0)="Spot check examination was performed on this patient by staff or a fee"
^DD(727.806,28,21,2,0)="dentist."
^DD(727.806,28,23,0)="^^2^2^2960909^^^^"
^DD(727.806,28,23,1,0)="Derived from the SPOT CHECK EXAM field (6.7) of the DENTAL TREATMENT "
^DD(727.806,28,23,2,0)="(AMIS) file (#221). Your answer must be 1 for staff or 3 for fee."
^DD(727.806,28,"DT")="2960909"
^DD(727.806,29,0)="INDIVIDUAL CROWNS #^NJ2,0^^0;30^K:+X'=X!(X>28)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,29,.1)="Number of Individual Crowns"
^DD(727.806,29,3)="Enter a number between 0 and 28, 0 decimal digits."
^DD(727.806,29,21,0)="^^1^1^2960909^^"
^DD(727.806,29,21,1,0)="The number of permanent crowns cemented."
^DD(727.806,29,23,0)="^^2^2^2960909^^"
^DD(727.806,29,23,1,0)="Derived from the INDIVIDUAL CROWNS # field (27) of the DENTAL TREATMENT "
^DD(727.806,29,23,2,0)="(AMIS) file (#221)."
^DD(727.806,29,"DT")="2960910"
^DD(727.806,30,0)="POST & CORES #^NJ2,0^^0;31^K:+X'=X!(X>28)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,30,.1)="Number of Post and Cores"
^DD(727.806,30,3)="Enter a number between 0 and 28, 0 decimal digits."
^DD(727.806,30,21,0)="^^2^2^2960909^^"
^DD(727.806,30,21,1,0)="The number of teeth on which a post/core or overdenture coping was"
^DD(727.806,30,21,2,0)="cemented."
^DD(727.806,30,23,0)="^^2^2^2960909^^"
^DD(727.806,30,23,1,0)="Derived from the POST & CORES # field (28) of the DENTAL TREATMENT "
^DD(727.806,30,23,2,0)="(AMIS) file (#221)."
^DD(727.806,30,"DT")="2960910"
^DD(727.806,31,0)="FIXED PARTIALS (ABUT) #^NJ2,0^^0;32^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,31,.1)="Number of Fixed Partials (Abut)"
^DD(727.806,31,3)="Enter a number between 0 and 24, 0 decimal digits."
^DD(727.806,31,21,0)="^^1^1^2960909^^"
^DD(727.806,31,21,1,0)="The number of abut units contained in the fixed prosthesis inserted."
^DD(727.806,31,23,0)="^^2^2^2960909^^"
^DD(727.806,31,23,1,0)="Derived from the FIXED PARTIALS (ABUT) # field (29) of the DENTAL "
^DD(727.806,31,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,31,"DT")="2960910"
^DD(727.806,32,0)="FIXED PARTIALS (PONT ONLY) #^NJ2,0^^0;33^K:+X'=X!(X>28)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,32,.1)="Number of Fixed Partials (Pont Only)"
^DD(727.806,32,3)="Enter a number between 0 and 28, 0 decimal digits."
^DD(727.806,32,21,0)="^^1^1^2960909^^"
^DD(727.806,32,21,1,0)="The number of PONTIC UNITS contained in the fixed prosthesis inserted."
^DD(727.806,32,23,0)="^^2^2^2960909^^"
^DD(727.806,32,23,1,0)="Derived from the FIXED PARTIALS (PONT ONLY) # field (30) of the DENTAL "
^DD(727.806,32,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,32,"DT")="2960910"
^DD(727.806,33,0)="REMOVABLE PARTIALS #^NJ1,0^^0;34^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,33,.1)="Number of Removable Partials"
^DD(727.806,33,3)="Enter a number between 0 and 2, 0 decimal digits."
^DD(727.806,33,21,0)="^^1^1^2960909^^"
^DD(727.806,33,21,1,0)="The number of R.P.D.s that were delivered to the patient."
^DD(727.806,33,23,0)="^^2^2^2960909^^"
^DD(727.806,33,23,1,0)="Derived from the REMOVABLE PARTIALS # field (31) of the DENTAL TREATMENT "
^DD(727.806,33,23,2,0)="(AMIS) file (#221)."
^DD(727.806,33,"DT")="2960910"
^DD(727.806,34,0)="COMPLETE DENTURES #^NJ1,0^^0;35^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,34,.1)="Number of Complete Dentures"
^DD(727.806,34,3)="Enter a number between 0 and 2, 0 decimal digits."
^DD(727.806,34,21,0)="^^2^2^2960909^^"
^DD(727.806,34,21,1,0)="The number of COMPLETE DENTURE units (each separate prosthesis is one"
^DD(727.806,34,21,2,0)="unit) delivered to the patient."
^DD(727.806,34,23,0)="^^2^2^2960909^^"
^DD(727.806,34,23,1,0)="Derived from the COMPLETE DENTURES # field (32) of the DENTAL TREATMENT "
^DD(727.806,34,23,2,0)="(AMIS) file (#221)."
^DD(727.806,34,"DT")="2960910"
^DD(727.806,35,0)="PROSTHETIC REPAIR #^NJ1,0^^0;36^K:+X'=X!(X>2)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,35,.1)="Number of Prosthetic Repairs"
^DD(727.806,35,3)="Enter a number between 0 and 2, 0 decimal digits."
^DD(727.806,35,21,0)="^^2^2^2960909^^^"
^DD(727.806,35,21,1,0)="The number of removable dentures and special appliances that were "
^DD(727.806,35,21,2,0)="repaired for this patient."
^DD(727.806,35,22)="type a number between 0 and 2."
^DD(727.806,35,23,0)="^^2^2^2960909^^^"
^DD(727.806,35,23,1,0)="Derived from the PROSTHETIC REPAIR # field (33) of the DENTAL TREATMENT "
^DD(727.806,35,23,2,0)="(AMIS) file (#221)."
^DD(727.806,35,"DT")="2960910"
^DD(727.806,36,0)="SPLINT AND SPEC. PROCESS (CTV)^NJ2,0^^0;37^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,36,.1)="Splint and Spec. Process (CTV)"
^DD(727.806,36,3)="Enter a number between 0 and 99, 0 decimal digits."
^DD(727.806,36,21,0)="^^2^2^2960909^^^"
^DD(727.806,36,21,1,0)="Contains the weighted values (CTV) assigned to special appliance "
^DD(727.806,36,21,2,0)="delivered to or disposed of for the patient."
^DD(727.806,36,23,0)="^^2^2^2960909^^^"
^DD(727.806,36,23,1,0)="Derived from the SPLINTS & SPEC. PROCS. (CTV) field (34) of the DENTAL "
^DD(727.806,36,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,36,"DT")="2960909"
^DD(727.806,37,0)="EXTRACTIONS #^NJ2,0^^0;38^K:+X'=X!(X>29)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,37,.1)="Number of Extractions"
^DD(727.806,37,3)="Enter a number between 0 and 29, 0 decimal digits."
^DD(727.806,37,21,0)="^^2^2^2960909^^"
^DD(727.806,37,21,1,0)="The number of non-impacted (erupted) teeth extracted. These are simple "
^DD(727.806,37,21,2,0)="extractions where no surgical techniques are involved."
^DD(727.806,37,22)="Enter a whole # between 0-29."
^DD(727.806,37,23,0)="^^2^2^2960909^^"
^DD(727.806,37,23,1,0)="Derived from the EXTRACTIONS # field (35) of the DENTAL TREATMENT (AMIS) "
^DD(727.806,37,23,2,0)="file (#221)."
^DD(727.806,37,"DT")="2960910"
^DD(727.806,38,0)="SURGICAL EXTRACTIONS #^NJ1,0^^0;39^K:+X'=X!(X>6)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,38,.1)="Number of Surgical Extractions"
^DD(727.806,38,3)="Enter a number between 0 and 6 indicating the number of teeth surgically extracted."
^DD(727.806,38,21,0)="^^3^3^2960909^^"
^DD(727.806,38,21,1,0)="This includes any type of impaction or an erupted tooth where an "
^DD(727.806,38,21,2,0)="intentional flap is required. Also includes all post-operative care and "
^DD(727.806,38,21,3,0)="instructions."
^DD(727.806,38,23,0)="^^2^2^2960909^^"
^DD(727.806,38,23,1,0)="Derived from the SURGICAL EXTRACTIONS # field (36) of the DENTAL "
^DD(727.806,38,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,38,"DT")="2960910"
^DD(727.806,39,0)="OTHER SIG TREATMENT (CTV)^NJ2,0^^0;40^K:+X'=X!(X>39)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,39,.1)="Other Significant Treatment (CTV)"
^DD(727.806,39,3)="Enter a whole number between 0 and 39 indicating the weighted values (CTV) of the procedure performed."
^DD(727.806,39,21,0)="^^1^1^2960909^^"
^DD(727.806,39,21,1,0)="Contains weighted values for procedures (CTV)."
^DD(727.806,39,23,0)="^^2^2^2960909^^"
^DD(727.806,39,23,1,0)="Derived from the OTHER SIGNIFICANT TREAT (CTV) field (37) of the DENTAL "
^DD(727.806,39,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,39,"DT")="2960909"
^DD(727.806,40,0)="DIVISION (STATION DIVISION)^F^^0;41^K:$L(X)>7!($L(X)<1) X"
^DD(727.806,40,.1)="Division (Station Division)"
^DD(727.806,40,3)="Answer must be 1-7 characters in length."
^DD(727.806,40,21,0)="^^1^1^2960909^^^^"
^DD(727.806,40,21,1,0)="Contains the appropriate station number for this entry."
^DD(727.806,40,23,0)="^^3^3^2960909^^^^"
^DD(727.806,40,23,1,0)="Derived from the STATION.DIVISION field (.3) of the DENTAL TREATMENT "
^DD(727.806,40,23,2,0)="(AMIS) file (#221). This field matches a STATION.DIVISION field (.01) "
^DD(727.806,40,23,3,0)="entry in the DENTAL SITE PARAMETERS file (#225)."
^DD(727.806,40,"DT")="2990517"
^DD(727.806,41,0)="COMPLETIONS/TERMINATIONS^S^2:COMPLETION;3:TERMINATION;^0;42^Q"
^DD(727.806,41,.1)="Completions/Terminations"
^DD(727.806,41,3)="Enter 2 or C for a completion, or 3 or T for a termination."
^DD(727.806,41,21,0)="^^1^1^2960909^^"
^DD(727.806,41,21,1,0)="Contains a code indicating completion or termination of a case."
^DD(727.806,41,23,0)="^^2^2^2960909^^"
^DD(727.806,41,23,1,0)="Derived from the COMPLETIONS/TERMINATIONS field (7.1) of the DENTAL "
^DD(727.806,41,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,41,"DT")="2960909"
^DD(727.806,42,0)="INTERDISCIPLINARY CONSULT^S^1:INTERDISCIPLINARY CONSULT;^0;43^Q"
^DD(727.806,42,.1)="Interdisciplinary Consult"
^DD(727.806,42,3)="Enter 1 or I for Interdisciplinary consult."
^DD(727.806,42,21,0)="^^1^1^2960910^^^^"
^DD(727.806,42,21,1,0)="Contains all consults instituted via forms 513 and 10-10m."
^DD(727.806,42,23,0)="^^2^2^2960910^^^^"
^DD(727.806,42,23,1,0)="Derived from the INTERDISCIPLINARY CONSULT field (6.2) of the DENTAL "
^DD(727.806,42,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,42,"DT")="2960910"
^DD(727.806,43,0)="EVALUATIONS^S^1:Evaluation;^0;44^Q"
^DD(727.806,43,.1)="Evaluations"
^DD(727.806,43,3)="Enter a 1 or an E for an evaluation."
^DD(727.806,43,21,0)="^^1^1^2960910^^^"
^DD(727.806,43,21,1,0)="Describes the professional evaluations not to exceed one per visit."
^DD(727.806,43,23,0)="^^2^2^2960910^^^"
^DD(727.806,43,23,1,0)="Derived from the EVALUATION field (6.4) of the DENTAL TREATMENT (AMIS) "
^DD(727.806,43,23,2,0)="file (#221)."
^DD(727.806,43,"DT")="2960910"
^DD(727.806,44,0)="PRE AUTHORIZATION/2ND OPINION^S^2:PRE-AUTH/2ND OPINION;^0;45^Q"
^DD(727.806,44,.1)="Pre-authorization/2nd Opinion"
^DD(727.806,44,3)="Enter a 2 for a pre-authorization/second opinion exam."
^DD(727.806,44,21,0)="^^4^4^2960910^^"
^DD(727.806,44,21,1,0)="A pre-authorization exam is performed on a fee basis patient in order"
^DD(727.806,44,21,2,0)="to determine treatment needs prior to authorization of the patient to"
^DD(727.806,44,21,3,0)="a fee-for-service provider.  A second opinion exam is performed when"
^DD(727.806,44,21,4,0)="the original estimate on a fee basis dental case exceeds $500.00."
^DD(727.806,44,23,0)="^^2^2^2960910^^"
^DD(727.806,44,23,1,0)="Derived from the PRE AUTH/2ND OPINION EXAM field (6.6) of the DENTAL "
^DD(727.806,44,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,44,"DT")="2960910"
^DD(727.806,45,0)="SPOT CHECK DISCREPANCY^NJ1,0^^0;46^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.806,45,.1)="Spot Check Discrepancy"
^DD(727.806,45,3)="Enter a number between 0 and 3, 0 decimal digits."
^DD(727.806,45,21,0)="^^3^3^2960910^^^"
^DD(727.806,45,21,1,0)="Indicates the category of discrepancy. 1 is a minor discrepancy only. "
^DD(727.806,45,21,2,0)="2 is a major discrepancy, quality only. 3 is a major discrepancy, "
^DD(727.806,45,21,3,0)="misrepresentation only."
^DD(727.806,45,23,0)="^^2^2^2960910^^^"
^DD(727.806,45,23,1,0)="Derived from the SPOT CHECK DISCREPANCY # field (6.8) of the DENTAL "
^DD(727.806,45,23,2,0)="TREATMENT (AMIS) file (#221)."
^DD(727.806,45,"DT")="2960910"
^DD(727.806,46,0)="MOVEMENT FILE #^P405'^DGPM(^0;47^Q"
^DD(727.806,46,.1)="Movement File Number"
^DD(727.806,46,3)="Enter the patient movement number associated with this extract record."
^DD(727.806,46,21,0)="^^1^1^2960910^^"
^DD(727.806,46,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.806,46,23,0)="^^4^4^2960910^^"
^DD(727.806,46,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.806,46,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.806,46,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.806,46,23,4,0)="(#405)."
^DD(727.806,46,"DT")="2960910"
^DD(727.806,47,0)="TREATING SPECIALTY^P42.4'^DIC(42.4,^0;48^Q"
^DD(727.806,47,.1)="Treating Specialty"
^DD(727.806,47,3)="Enter the name of the treating specialty associated with this extract record."
^DD(727.806,47,21,0)="^^1^1^2960910^^^^"
^DD(727.806,47,21,1,0)="The name of the treating specialty associated with this extract record."
^DD(727.806,47,23,0)="^^6^6^2990512^^^^"
^DD(727.806,47,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.806,47,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.806,47,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.806,47,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.806,47,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.806,47,23,6,0)="SPECIALTY file (#42.4)."
^DD(727.806,47,"DT")="2960910"
^DD(727.806,48,0)="PRIMARY CARE TEAM^F^^0;49^K:$L(X)>4!($L(X)<1) X"
^DD(727.806,48,.1)="Primary Care Team"
^DD(727.806,48,3)="Enter primary care team assigned to this patient."
^DD(727.806,48,21,0)="^^1^1^2961031^^^^"
^DD(727.806,48,21,1,0)="The primary care team assigned to this patient."
^DD(727.806,48,23,0)="^^6^6^2961031^^"
^DD(727.806,48,23,1,0)="Using the DATE field (.01) from the DENTAL TREATMENT (AMIS) file (#221) "
^DD(727.806,48,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.806,48,23,3,0)="in the DENTAL EXTRACT file (#727.806), a call is made to the Scheduling "
^DD(727.806,48,23,4,0)="API, OUTPTTM^SDUTL3. The API returns the team's internal entry number "
^DD(727.806,48,23,5,0)="and name from the TEAM file (#404.51). Only the pointer (IEN) to File "
^DD(727.806,48,23,6,0)="404.51 is transmitted."
^DD(727.806,48,"DT")="2961031"
^DD(727.806,49,0)="PRIMARY CARE PROVIDER^F^^0;50^K:$L(X)>11!($L(X)<1) X"
^DD(727.806,49,.1)="Primary Care Provider"
^DD(727.806,49,3)="Enter primary care provider assigned to this patient."
^DD(727.806,49,21,0)="^^1^1^2980819^^^^"
^DD(727.806,49,21,1,0)="The primary care provider assigned to this patient."
^DD(727.806,49,23,0)="^^8^8^2980819^^^^"
^DD(727.806,49,23,1,0)="Using the DATE field (.01) from the DENTAL TREATMENT (AMIS) file (#221) "
^DD(727.806,49,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.806,49,23,3,0)="in the DENTAL EXTRACT file (#727.806), a call is made to the Scheduling "
^DD(727.806,49,23,4,0)="API, OUTPTPR^SDUTL3. The API returns the provider's internal entry "
^DD(727.806,49,23,5,0)="number and name from the NEW PERSON file (#200). "
^DD(727.806,49,23,6,0)=" "
^DD(727.806,49,23,7,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.806,49,23,8,0)="is ""200""."
^DD(727.806,49,"DT")="2961016"
^DD(727.806,50,0)="TIME^FO^^0;51^K:$L(X)>6!($L(X)<6) X"
^DD(727.806,50,.1)="Time"
^DD(727.806,50,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.806,50,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.806,50,3)="Answer must be 6 characters in length."
^DD(727.806,50,21,0)="^^2^2^2970918^^^^"
^DD(727.806,50,21,1,0)="A 6-character numeric string which represents the Dental "
^DD(727.806,50,21,2,0)="procedure time."
^DD(727.806,50,23,0)="^^6^6^2970918^^^^"
^DD(727.806,50,23,1,0)="Data source:"
^DD(727.806,50,23,2,0)=" "
^DD(727.806,50,23,3,0)="DENTAL TREATMENT (AMIS) file (#221); DATE field (#.01)"
^DD(727.806,50,23,4,0)=" "
^DD(727.806,50,23,5,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.806,50,23,6,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.806,50,"DT")="2970924"
^DD(727.806,51,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.806,51,3)="Answer must be 1-10 characters in length."
^DD(727.806,51,21,0)="^^1^1^2990504^"
^DD(727.806,51,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.806,51,23,0)="^^2^2^2990504^"
^DD(727.806,51,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.806,51,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.806,51,"DT")="2990504"
^DD(727.806,52,0)="DSS DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.806,52,.1)="DSS Department"
^DD(727.806,52,3)="Answer must be 1-10 characters in length"
^DD(727.806,52,21,0)="^^2^2^3021009^"
^DD(727.806,52,21,1,0)="The DSS Department Code for the Dental product.  This field is "
^DD(727.806,52,21,2,0)="currently not populated."
^DD(727.806,52,23,0)="^^1^1^3021009^^"
^DD(727.806,52,23,1,0)="Field is currently set to null."
^DD(727.806,52,"DT")="3021009"
^DD(727.806,53,0)="PROVIDER NPI^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.806,53,3)="Answer must be 1-8 characters in length."
^DD(727.806,53,21,0)="^^1^1^2990506^"
^DD(727.806,53,21,1,0)="The Provider's National Provider Identifier code."
^DD(727.806,53,23,0)="^^4^4^2990506^"
^DD(727.806,53,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.806,53,23,2,0)="field will hold the Provider NPI."
^DD(727.806,53,23,3,0)="   "
^DD(727.806,53,23,4,0)="Field will be set to null until data becomes available."
^DD(727.806,53,"DT")="2990506"
^DD(727.806,54,0)="PC PROVIDER NPI^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.806,54,3)="Answer must be 1-8 characters in length."
^DD(727.806,54,21,0)="^^1^1^2990506^^^"
^DD(727.806,54,21,1,0)="The Primary Care Provider's National Provider Identifier code."
^DD(727.806,54,23,0)="^^4^4^2990506^^"
^DD(727.806,54,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.806,54,23,2,0)="field will hold the Primary Care Provider NPI."
^DD(727.806,54,23,3,0)="   "
^DD(727.806,54,23,4,0)="Field will be set to null until data becomes available."
^DD(727.806,54,"DT")="2990506"
^DD(727.806,55,0)="PC PROVIDER PERSON CLASS^F^^1;5^K:$L(X)>7!($L(X)<7) X"
^DD(727.806,55,3)="Answer must be 7 characters in length."
^DD(727.806,55,21,0)="^^2^2^2981026^"
^DD(727.806,55,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.806,55,21,2,0)="associated with this record."
^DD(727.806,55,23,0)="^^6^6^2981026^"
^DD(727.806,55,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.806,55,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.806,55,23,3,0)="extract record."
^DD(727.806,55,23,4,0)="  "
^DD(727.806,55,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.806,55,23,6,0)="7 characters in length."
^DD(727.806,55,"DT")="2981026"
^DD(727.806,56,0)="ASSOCIATE PC PROVIDER^F^^1;6^K:$L(X)>11!($L(X)<2) X"
^DD(727.806,56,3)="Answer must be 2-11 characters in length."
^DD(727.806,56,21,0)="^^4^4^2990504^"
^DD(727.806,56,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.806,56,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.806,56,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.806,56,21,4,0)="character 2."
^DD(727.806,56,23,0)="^^2^2^2990504^"
^DD(727.806,56,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.806,56,23,2,0)="the PCMM application."
^DD(727.806,56,"DT")="2990504"
^DD(727.806,57,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;7^K:$L(X)>7!($L(X)<7) X"
^DD(727.806,57,3)="Answer must be 7 characters in length."
^DD(727.806,57,21,0)="^^4^4^2990505^^"
^DD(727.806,57,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.806,57,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.806,57,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.806,57,21,4,0)="exactly 7 characters in length. "
^DD(727.806,57,23,0)="^^3^3^2990505^^"
^DD(727.806,57,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.806,57,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.806,57,23,3,0)="PERS is the IEN from file #200."
^DD(727.806,57,"DT")="2990504"
^DD(727.806,58,0)="ASSOCIATE PC PROVIDER NPI^F^^1;8^K:$L(X)>8!($L(X)<1) X"
^DD(727.806,58,3)="Answer must be 1-8 characters in length."
^DD(727.806,58,21,0)="^^1^1^2990507^"
^DD(727.806,58,21,1,0)="The Associate Primary Care PRovider's National Provider Identifier."
^DD(727.806,58,23,0)="^^2^2^2990507^"
^DD(727.806,58,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.806,58,23,2,0)="field will hold the Associate Primary Care Provider NPI."
^DD(727.806,58,"DT")="2990507"
^DD(727.806,59,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.806,59,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.806,59,21,0)="^.001^8^8^3001012^^"
^DD(727.806,59,21,1,0)=" "
^DD(727.806,59,21,2,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is"
^DD(727.806,59,21,3,0)="admitted to either a DOM, PRRTP or SAARTP at the time hospital"
^DD(727.806,59,21,4,0)="service is provided."
^DD(727.806,59,21,5,0)="Domiciliary"
^DD(727.806,59,21,6,0)="(DOM)"
^DD(727.806,59,21,7,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.806,59,21,8,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.806,59,"DT")="3001010"
^DD(727.806,60,0)="OBSERVATION PATIENT INDICATOR^F^^1;10^K:$L(X)>4!($L(X)<1) X"
^DD(727.806,60,3)="Answer must be 1-4 characters in length."
^DD(727.806,60,21,0)="^.001^2^2^3011212^^"
^DD(727.806,60,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.806,60,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.806,60,"DT")="3010814"
^DD(727.806,61,0)="ENCOUNTER NUMBER^F^^1;11^K:$L(X)>18!($L(X)<1) X"
^DD(727.806,61,3)="Answer must be 1-18 characters in length"
^DD(727.806,61,21,0)="^.001^3^3^3011212^^"
^DD(727.806,61,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.806,61,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.806,61,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.806,61,"DT")="3010503"
^DD(727.806,62,0)="PRODUCTION DIVISION CODE^F^^1;12^K:$L(X)>6!($L(X)<2) X"
^DD(727.806,62,3)="Answer must be 2-6 characters in length."
^DD(727.806,62,21,0)="^.001^2^2^3021008^^^^"
^DD(727.806,62,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.806,62,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.806,62,23,0)="^.001^2^2^3021008^^"
^DD(727.806,62,23,1,0)="Data comes from the STATION NUMBER field (#99) of the INSTITUTION"
^DD(727.806,62,23,2,0)="file (#4)."
^DD(727.806,62,"DT")="3020501"
^DD(727.806,"B","ADMIN PROCEDURE",11)=""
^DD(727.806,"B","ASSOC. PC PROV. PERSON CLASS",57)=""
^DD(727.806,"B","ASSOCIATE PC PROVIDER",56)=""
^DD(727.806,"B","ASSOCIATE PC PROVIDER NPI",58)=""
^DD(727.806,"B","Admin Procedure",11)="1"
^DD(727.806,"B","BIOPSY/SMEAR #",19)=""
^DD(727.806,"B","COMPLETE DENTURES #",34)=""
^DD(727.806,"B","COMPLETIONS/TERMINATIONS",41)=""
^DD(727.806,"B","Completions/Terminations",41)="1"
^DD(727.806,"B","DAY",8)=""
^DD(727.806,"B","DIVISION (STATION DIVISION)",40)=""
^DD(727.806,"B","DOM,PRRTP AND SAARTP INDICATOR",59)=""
^DD(727.806,"B","DSS DEPARTMENT",52)=""
^DD(727.806,"B","DSS Department",52)="1"
^DD(727.806,"B","Day",8)="1"
^DD(727.806,"B","Division (Station Division)",40)="1"
^DD(727.806,"B","ENCOUNTER NUMBER",61)=""
^DD(727.806,"B","EVALUATIONS",43)=""
^DD(727.806,"B","EXTRACT NUMBER",2)=""
^DD(727.806,"B","EXTRACTIONS #",37)=""
^DD(727.806,"B","Evaluations",43)="1"
^DD(727.806,"B","Extract Number",2)="1"
^DD(727.806,"B","FACILITY",3)=""
^DD(727.806,"B","FIXED PARTIALS (ABUT) #",31)=""
^DD(727.806,"B","FIXED PARTIALS (PONT ONLY) #",32)=""
^DD(727.806,"B","FRACTURE #",20)=""
^DD(727.806,"B","Facility",3)="1"
^DD(727.806,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.806,"B","INDIVIDUAL CROWNS #",29)=""
^DD(727.806,"B","INTERDISCIPLINARY CONSULT",42)=""
^DD(727.806,"B","In Out Patient Indicator",7)="1"
^DD(727.806,"B","Interdisciplinary Consult",42)="1"
^DD(727.806,"B","MASTER PATIENT INDEX",51)=""
^DD(727.806,"B","MOVEMENT FILE #",46)=""
^DD(727.806,"B","Movement File Number",46)="1"
^DD(727.806,"B","NAME",6)=""
^DD(727.806,"B","NEOPLASM CONFIRMED MALIGNANT #",17)=""
^DD(727.806,"B","NEOPLASM REMOVED #",18)=""
^DD(727.806,"B","Name",6)="1"
^DD(727.806,"B","Number of Biopsies/Smears",19)="1"
^DD(727.806,"B","Number of Complete Dentures",34)="1"
^DD(727.806,"B","Number of Extractions",37)="1"
^DD(727.806,"B","Number of Extraoral X-Rays",12)="1"
^DD(727.806,"B","Number of Fractures",20)="1"
^DD(727.806,"B","Number of Individual Crowns",29)="1"
^DD(727.806,"B","Number of Intraoral X-Rays",13)="1"
^DD(727.806,"B","Number of Neoplasm Removed",18)="1"
^DD(727.806,"B","Number of Post and Cores",30)="1"
^DD(727.806,"B","Number of Prosthetic Repairs",35)="1"
^DD(727.806,"B","Number of Removable Partials",33)="1"
^DD(727.806,"B","Number of Root Canal Therapy",24)="1"
^DD(727.806,"B","Number of Surfaces Restored",23)="1"
^DD(727.806,"B","Number of Surgical Extractions",38)="1"
^DD(727.806,"B","OBSERVATION PATIENT INDICATOR",60)=""
^DD(727.806,"B","OPERATING ROOM",16)=""
^DD(727.806,"B","OTHER SIG TREATMENT (CTV)",39)=""
^DD(727.806,"B","OTHER SIGNIF. SURG. (CTV)",22)=""
^DD(727.806,"B","Operating Room",16)="1"
^DD(727.806,"B","Other Signif. Surg. (CTV)",22)="1"
^DD(727.806,"B","PATIENT CATEGORY",21)=""
^DD(727.806,"B","PATIENT ED (CTV)",27)=""
^DD(727.806,"B","PATIENT NO. - DFN",4)=""
^DD(727.806,"B","PC PROVIDER NPI",54)=""
^DD(727.806,"B","PC PROVIDER PERSON CLASS",55)=""
^DD(727.806,"B","PERIDONTAL QUADS (SURGICAL) #",25)=""
^DD(727.806,"B","PERIO QUADS (ROOT PLANE) #",26)=""
^DD(727.806,"B","POST & CORES #",30)=""
^DD(727.806,"B","PRE AUTHORIZATION/2ND OPINION",44)=""
^DD(727.806,"B","PRIMARY CARE PROVIDER",49)=""
^DD(727.806,"B","PRIMARY CARE TEAM",48)=""
^DD(727.806,"B","PRODUCTION DIVISION CODE",62)=""
^DD(727.806,"B","PROPHY DENTURE",15)=""
^DD(727.806,"B","PROPHY NATURAL DENTITION",14)=""
^DD(727.806,"B","PROSTHETIC REPAIR #",35)=""
^DD(727.806,"B","PROVIDER",9)=""
^DD(727.806,"B","PROVIDER NPI",53)=""
^DD(727.806,"B","Patient Category",21)="1"
^DD(727.806,"B","Patient Ed (CTV)",27)="1"
^DD(727.806,"B","Patient No. - DFN",4)="1"
^DD(727.806,"B","Pre-authorization/2nd Opinion",44)="1"
^DD(727.806,"B","Primary Care Provider",49)="1"
^DD(727.806,"B","Primary Care Team",48)="1"
^DD(727.806,"B","Prophy Denture",15)="1"
^DD(727.806,"B","Prophy Natural Dentition",14)="1"
^DD(727.806,"B","Provider",9)="1"
^DD(727.806,"B","REMOVABLE PARTIALS #",33)=""
^DD(727.806,"B","ROOT CANAL THERAPY #",24)=""
^DD(727.806,"B","SCREENING/COMPLETE EXAM",10)=""
^DD(727.806,"B","SEQUENCE NUMBER",.01)=""
^DD(727.806,"B","SPLINT AND SPEC. PROCESS (CTV)",36)=""
^DD(727.806,"B","SPOT CHECK DISCREPANCY",45)=""
^DD(727.806,"B","SPOT CHECK EXAM",28)=""
^DD(727.806,"B","SSN",5)=""
^DD(727.806,"B","SURFACES RESTORED #",23)=""
^DD(727.806,"B","SURGICAL EXTRACTIONS #",38)=""
^DD(727.806,"B","Screening/Complete Exam",10)="1"
^DD(727.806,"B","Sequence Number",.01)="1"
^DD(727.806,"B","Social Security Number",5)="1"
^DD(727.806,"B","Splint and Spec. Process (CTV)",36)="1"
^DD(727.806,"B","Spot Check Discrepancy",45)="1"
^DD(727.806,"B","Spot Check Exam",28)="1"
^DD(727.806,"B","TIME",50)=""
^DD(727.806,"B","TREATING SPECIALTY",47)=""
^DD(727.806,"B","Time",50)="1"
^DD(727.806,"B","Treating Specialty",47)="1"
^DD(727.806,"B","X-RAYS EXTRAORAL #",12)=""
^DD(727.806,"B","X-RAYS INTRAORAL #",13)=""
^DD(727.806,"B","YEAR MONTH",1)=""
^DD(727.806,"B","Year/Month",1)="1"
^DD(727.806,"GL",0,1,.01)=""
^DD(727.806,"GL",0,2,1)=""
^DD(727.806,"GL",0,3,2)=""
^DD(727.806,"GL",0,4,3)=""
^DD(727.806,"GL",0,5,4)=""
^DD(727.806,"GL",0,6,5)=""
^DD(727.806,"GL",0,7,6)=""
^DD(727.806,"GL",0,8,7)=""
^DD(727.806,"GL",0,9,8)=""
^DD(727.806,"GL",0,10,9)=""
^DD(727.806,"GL",0,11,10)=""
^DD(727.806,"GL",0,12,11)=""
^DD(727.806,"GL",0,13,12)=""
^DD(727.806,"GL",0,14,13)=""
^DD(727.806,"GL",0,15,14)=""
^DD(727.806,"GL",0,16,15)=""
^DD(727.806,"GL",0,17,16)=""
^DD(727.806,"GL",0,18,17)=""
^DD(727.806,"GL",0,19,18)=""
^DD(727.806,"GL",0,20,19)=""
^DD(727.806,"GL",0,21,20)=""
^DD(727.806,"GL",0,22,21)=""
^DD(727.806,"GL",0,23,22)=""
^DD(727.806,"GL",0,24,23)=""
^DD(727.806,"GL",0,25,24)=""
^DD(727.806,"GL",0,26,25)=""
^DD(727.806,"GL",0,27,26)=""
^DD(727.806,"GL",0,28,27)=""
^DD(727.806,"GL",0,29,28)=""
^DD(727.806,"GL",0,30,29)=""
^DD(727.806,"GL",0,31,30)=""
^DD(727.806,"GL",0,32,31)=""
^DD(727.806,"GL",0,33,32)=""
^DD(727.806,"GL",0,34,33)=""
^DD(727.806,"GL",0,35,34)=""
^DD(727.806,"GL",0,36,35)=""
^DD(727.806,"GL",0,37,36)=""
^DD(727.806,"GL",0,38,37)=""
^DD(727.806,"GL",0,39,38)=""
^DD(727.806,"GL",0,40,39)=""
^DD(727.806,"GL",0,41,40)=""
^DD(727.806,"GL",0,42,41)=""
^DD(727.806,"GL",0,43,42)=""
^DD(727.806,"GL",0,44,43)=""
^DD(727.806,"GL",0,45,44)=""
^DD(727.806,"GL",0,46,45)=""
^DD(727.806,"GL",0,47,46)=""
^DD(727.806,"GL",0,48,47)=""
^DD(727.806,"GL",0,49,48)=""
^DD(727.806,"GL",0,50,49)=""
^DD(727.806,"GL",0,51,50)=""
^DD(727.806,"GL",1,1,51)=""
^DD(727.806,"GL",1,2,52)=""
^DD(727.806,"GL",1,3,53)=""
^DD(727.806,"GL",1,4,54)=""
^DD(727.806,"GL",1,5,55)=""
^DD(727.806,"GL",1,6,56)=""
^DD(727.806,"GL",1,7,57)=""
^DD(727.806,"GL",1,8,58)=""
^DD(727.806,"GL",1,9,59)=""
^DD(727.806,"GL",1,10,60)=""
^DD(727.806,"GL",1,11,61)=""
^DD(727.806,"GL",1,12,62)=""
^DD(727.806,"IX",2)=""
^DD(727.806,"RQ",.01)=""
^DD(727.808,0)="FIELD^^34^37"
^DD(727.808,0,"DIK")="ECX808"
^DD(727.808,0,"DIKOLD")="ECX808"
^DD(727.808,0,"DT")="3020627"
^DD(727.808,0,"IX","AC",727.808,2)=""
^DD(727.808,0,"NM","PHYSICAL MOVEMENT EXTRACT")=""
^DD(727.808,0,"VR")="3.0"
^DD(727.808,0,"VRPK")="ECX"
^DD(727.808,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.808,.01,.1)="Sequence Number"
^DD(727.808,.01,1,0)="^.1^^0"
^DD(727.808,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.808,.01,21,0)="^^1^1^2960910^^^^"
^DD(727.808,.01,21,1,0)="The record number for this extract entry."
^DD(727.808,.01,23,0)="^^1^1^2960910^^^^"
^DD(727.808,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.808,.01,"DT")="2980812"
^DD(727.808,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.808,1,.1)="Year/Month"
^DD(727.808,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.808,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.808,1,3)="Answer must be 6 characters in length."
^DD(727.808,1,21,0)="^^2^2^2970922^^^^"
^DD(727.808,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.808,1,21,2,0)="for which this extract was performed."
^DD(727.808,1,23,0)="^^1^1^2970922^^^^"
^DD(727.808,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.808,1,"DT")="2970924"
^DD(727.808,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.808,2,.1)="Extract Number"
^DD(727.808,2,1,0)="^.1"
^DD(727.808,2,1,1,0)="727.808^AC"
^DD(727.808,2,1,1,1)="S ^ECX(727.808,""AC"",$E(X,1,30),DA)="""""
^DD(727.808,2,1,1,2)="K ^ECX(727.808,""AC"",$E(X,1,30),DA)"
^DD(727.808,2,1,1,3)="DO NOT DELETE."
^DD(727.808,2,1,1,"%D",0)="^^2^2^2961009^^"
^DD(727.808,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.808,2,1,1,"%D",2,0)="in this file."
^DD(727.808,2,1,1,"DT")="2910802"
^DD(727.808,2,3)="Enter the extract number for this extract."
^DD(727.808,2,21,0)="^^2^2^2960910^^^^"
^DD(727.808,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.808,2,21,2,0)="extract."
^DD(727.808,2,23,0)="^^2^2^2960910^^^^"
^DD(727.808,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.808,2,23,2,0)="pick up the header for the mail message."
^DD(727.808,2,"DT")="2960910"
^DD(727.808,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.808,3,.1)="Facility"
^DD(727.808,3,3)="Enter the station number where this extract was performed."
^DD(727.808,3,21,0)="^^1^1^2961014^^^^"
^DD(727.808,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.808,3,23,0)="^^3^3^2961014^^^^"
^DD(727.808,3,23,1,0)="An indicator of the division where this event happened.  It is derived"
^DD(727.808,3,23,2,0)="from the DIVISION field (.015) of the WARD LOCATION file (#42) which"
^DD(727.808,3,23,3,0)="points to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.808,3,"DT")="2961014"
^DD(727.808,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.808,4,.1)="Patient No. - DFN"
^DD(727.808,4,3)="Enter the name of the patient for this extract record."
^DD(727.808,4,21,0)="^^1^1^2990504^^^^"
^DD(727.808,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.808,4,23,0)="^^4^4^2990504^^^"
^DD(727.808,4,23,1,0)="Pointer to the PATIENT file (#2). This data represents the patient DFN. "
^DD(727.808,4,23,2,0)="Using the ""ATT2"" or ""ATT3"" cross reference on the PATIENT MOVEMENT file "
^DD(727.808,4,23,3,0)="(#405), the PATIENT NO. - DFN data is derived from the PATIENT field"
^DD(727.808,4,23,4,0)="(.03)."
^DD(727.808,4,"DT")="2961014"
^DD(727.808,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.808,5,.1)="Social Security Number"
^DD(727.808,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.808,5,21,0)="^^4^4^2990504^^^^"
^DD(727.808,5,21,1,0)="The patient's social security number."
^DD(727.808,5,21,2,0)=" "
^DD(727.808,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.808,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.808,5,23,0)="^^6^6^2990504^^^"
^DD(727.808,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.808,5,23,2,0)="in the PHYSICAL MOVEMENT EXTRACT file (#727.808), SSN data is derived from"
^DD(727.808,5,23,3,0)="the SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.808,5,23,4,0)=" "
^DD(727.808,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.808,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.808,5,"DT")="2960911"
^DD(727.808,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.808,6,.1)="Name"
^DD(727.808,6,3)="Your answer must be 4 characters in length."
^DD(727.808,6,21,0)="^^1^1^2961021^^^^"
^DD(727.808,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.808,6,23,0)="^^5^5^2961021^^"
^DD(727.808,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.808,6,23,2,0)="in the PHYSICAL MOVEMENT EXTRACT file (#727.808), NAME data is derived"
^DD(727.808,6,23,3,0)="from the NAME field (.01) in the PATIENT file (#2). The first four"
^DD(727.808,6,23,4,0)="characters of the first "","" piece are used, padded with trailing spaces"
^DD(727.808,6,23,5,0)="if necessary."
^DD(727.808,6,"DT")="2960911"
^DD(727.808,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.808,7,.1)="In Out Patient Indicator"
^DD(727.808,7,3)="Answer must be 1 character in length."
^DD(727.808,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.808,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for"
^DD(727.808,7,21,2,0)="this extract entry."
^DD(727.808,7,23,0)="^.001^4^4^3011129^^^^"
^DD(727.808,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.808,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.808,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.808,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.808,7,"DT")="3011129"
^DD(727.808,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.808,8,.1)="Day"
^DD(727.808,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.808,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.808,8,3)="Answer must be 8 characters in length."
^DD(727.808,8,21,0)="^^2^2^2970922^^^^"
^DD(727.808,8,21,1,0)="This 8-character numeric string represents the date of the physical"
^DD(727.808,8,21,2,0)="movement."
^DD(727.808,8,23,0)="^^9^9^2970923^^^^"
^DD(727.808,8,23,1,0)="Data source:"
^DD(727.808,8,23,2,0)=" "
^DD(727.808,8,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.808,8,23,4,0)=" "
^DD(727.808,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.808,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.808,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.808,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.808,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.808,8,"DT")="2970924"
^DD(727.808,9,0)="PRODUCT^F^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.808,9,.1)="Product"
^DD(727.808,9,3)="Your answer must be 1 character in length."
^DD(727.808,9,21,0)="^^2^2^2960911^^"
^DD(727.808,9,21,1,0)="The product or feeder key for this extract as defined by the DSS "
^DD(727.808,9,21,2,0)="Program Office."
^DD(727.808,9,23,0)="^^1^1^2961014^^^^"
^DD(727.808,9,23,1,0)="For the Physical Movement extract, the PRODUCT field is null."
^DD(727.808,9,"DT")="2960911"
^DD(727.808,10,0)="ADMISSION DATE^FO^^0;11^K:$L(X)>8!($L(X)<8) X"
^DD(727.808,10,.1)="Admission Date"
^DD(727.808,10,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.808,10,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.808,10,3)="Answer must be 8 characters in length."
^DD(727.808,10,21,0)="^^2^2^2970923^^^^"
^DD(727.808,10,21,1,0)="This 8-character string represents the date on which the admission"
^DD(727.808,10,21,2,0)="associated with this physical movement occurred."
^DD(727.808,10,23,0)="^^10^10^2971113^^^^"
^DD(727.808,10,23,1,0)="Data source:"
^DD(727.808,10,23,2,0)=" "
^DD(727.808,10,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.808,10,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.808,10,23,5,0)=" "
^DD(727.808,10,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.808,10,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.808,10,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.808,10,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.808,10,23,10,0)="Year 2000 compliant per vendor."
^DD(727.808,10,"DT")="2970924"
^DD(727.808,11,0)="DISCHARGE DATE^FO^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.808,11,.1)="Discharge Date"
^DD(727.808,11,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.808,11,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.808,11,3)="Answer must be 8 characters in length."
^DD(727.808,11,21,0)="^^2^2^2990507^^^^"
^DD(727.808,11,21,1,0)="This 8-character string represents the date on which the Discharge"
^DD(727.808,11,21,2,0)="occurred for discharge-type movements."
^DD(727.808,11,23,0)="^^8^8^2990507^^^^"
^DD(727.808,11,23,1,0)="Data source:"
^DD(727.808,11,23,2,0)=" "
^DD(727.808,11,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.808,11,23,4,0)=" "
^DD(727.808,11,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.808,11,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.808,11,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.808,11,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.808,11,"DT")="2970924"
^DD(727.808,12,0)="MOVEMENT FILE #^P405'^DGPM(^0;13^Q"
^DD(727.808,12,.1)="Movement File Number"
^DD(727.808,12,3)="Enter the patient movement number associated with this extract record."
^DD(727.808,12,21,0)="^^1^1^2960911^^"
^DD(727.808,12,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.808,12,23,0)="^^3^3^2961014^^^"
^DD(727.808,12,23,1,0)="The ^DGPM(""ATT2"" or ""ATT3"",DATE,D0) cross reference is used to "
^DD(727.808,12,23,2,0)="obtain the current movement number associated with this patient. "
^DD(727.808,12,23,3,0)="It is a pointer to the PATIENT MOVEMENT file (#405)."
^DD(727.808,12,"DT")="2960911"
^DD(727.808,13,0)="TYPE^F^^0;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.808,13,.1)="Type"
^DD(727.808,13,3)="Your answer must be 1 character in length."
^DD(727.808,13,21,0)="^^2^2^2960911^^^^"
^DD(727.808,13,21,1,0)="The type of movement for this patient, either transfer (2) or "
^DD(727.808,13,21,2,0)="discharge (3)."
^DD(727.808,13,23,0)="^^2^2^2961014^^^^"
^DD(727.808,13,23,1,0)="Using the ""ATT""_TYPE cross reference where TYPE=2 (transfer) or "
^DD(727.808,13,23,2,0)="TYPE=3 (discharge)."
^DD(727.808,13,"DT")="2960911"
^DD(727.808,14,0)="LOSING WARD^P44'^SC(^0;15^Q"
^DD(727.808,14,.1)="Losing Ward"
^DD(727.808,14,3)="Enter the ward from which this patient was transferred."
^DD(727.808,14,21,0)="^^1^1^2960911^^^^"
^DD(727.808,14,21,1,0)="The ward from which this patient was transferred."
^DD(727.808,14,23,0)="^^4^4^2961014^^^^"
^DD(727.808,14,23,1,0)="LOSING WARD is derived from HOSPITAL LOCATION FILE POINTER field (44) of "
^DD(727.808,14,23,2,0)="the WARD LOCATION file (#42) as pointed to by the WARD LOCATION field "
^DD(727.808,14,23,3,0)="(.06) of the PATIENT MOVEMENT file (#405). LOSING WARD is a pointer to "
^DD(727.808,14,23,4,0)="the HOSPITAL LOCATION file (#44)."
^DD(727.808,14,"DT")="2960911"
^DD(727.808,15,0)="TREATING SPECIALTY^F^^0;16^K:$L(X)>3!($L(X)<2) X"
^DD(727.808,15,.1)="Treating Specialty"
^DD(727.808,15,3)="PTF Code from Specialty File (42.4)"
^DD(727.808,15,21,0)="^^2^2^3070502^"
^DD(727.808,15,21,1,0)="The PTF CODE of the treating specialty associated with this extract"
^DD(727.808,15,21,2,0)="record."
^DD(727.808,15,23,0)="^.001^1^1^3070502^^"
^DD(727.808,15,23,1,0)="For the Physical Movement extract, the TREATING SPECIALTY field is null."
^DD(727.808,15,"DT")="3070413"
^DD(727.808,16,0)="LOSING WARD LOS^NJ4,0^^0;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.808,16,.1)="Losing Ward LOS"
^DD(727.808,16,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(727.808,16,21,0)="^^1^1^2980120^^^^"
^DD(727.808,16,21,1,0)="Length of stay on losing ward."
^DD(727.808,16,23,0)="^^8^8^2980120^^^^"
^DD(727.808,16,23,1,0)="Calculated as current movement date minus the date (DATE/TIME "
^DD(727.808,16,23,2,0)="field (#.01) of the PATIENT MOVEMENT file (#405)) of the previous"
^DD(727.808,16,23,3,0)="physical movement."
^DD(727.808,16,23,4,0)="OR "
^DD(727.808,16,23,5,0)="Calculated as current movement date minus the date (DATE/TIME"
^DD(727.808,16,23,6,0)="field (#.01) of the PATIENT MOVEMENT file (#405) record pointed"
^DD(727.808,16,23,7,0)="to by the ADMISSION/CHECK-IN MOVEMENT field (#.14) of the "
^DD(727.808,16,23,8,0)="current movement record."
^DD(727.808,16,"DT")="2980120"
^DD(727.808,17,0)="PLACEHOLDER1^F^^0;18^K:$L(X)>11!($L(X)<1) X"
^DD(727.808,17,.1)="Placeholder1"
^DD(727.808,17,3)=""
^DD(727.808,17,21,0)="^^1^1^2980120^^^^"
^DD(727.808,17,21,1,0)="A placeholder."
^DD(727.808,17,23,0)="^^1^1^2980120^^^^"
^DD(727.808,17,23,1,0)="For future development; always set to null."
^DD(727.808,17,"DT")="2980120"
^DD(727.808,18,0)="MOVEMENT TYPE^P405.2'^DG(405.2,^0;19^Q"
^DD(727.808,18,.1)="Movement Type"
^DD(727.808,18,3)="Enter the patient movement type associated with this extract record."
^DD(727.808,18,21,0)="^^1^1^2970723^^^^"
^DD(727.808,18,21,1,0)="THE MAS movement type for this movement."
^DD(727.808,18,23,0)="^^3^3^2970723^^^^"
^DD(727.808,18,23,1,0)="MOVEMENT TYPE is derived from the MAS MOVEMENT TYPE field (.18) of "
^DD(727.808,18,23,2,0)="the PATIENT MOVEMENT file (#405). It is a pointer to the MAS MOVEMENT "
^DD(727.808,18,23,3,0)="TYPE file (#405.2)."
^DD(727.808,18,"DT")="2960911"
^DD(727.808,19,0)="MOV TIME^FO^^0;20^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.808,19,.1)="MOV Time"
^DD(727.808,19,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.808,19,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.808,19,3)="Answer must be 6 characters in length."
^DD(727.808,19,21,0)="^^2^2^2970922^^^^"
^DD(727.808,19,21,1,0)="This 6-character numeric string represents the time of day at"
^DD(727.808,19,21,2,0)="which the physical movement occurred."
^DD(727.808,19,23,0)="^^6^6^2970923^^^^"
^DD(727.808,19,23,1,0)="Data source:"
^DD(727.808,19,23,2,0)=" "
^DD(727.808,19,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.808,19,23,4,0)=" "
^DD(727.808,19,23,5,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.808,19,23,6,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.808,19,"DT")="2970924"
^DD(727.808,20,0)="GAINING WARD^P44'^SC(^0;21^Q"
^DD(727.808,20,.1)="Gaining Ward"
^DD(727.808,20,3)="Enter the ward to which this patient was moved."
^DD(727.808,20,21,0)="^^2^2^2961014^^^"
^DD(727.808,20,21,1,0)="The ward to which this patient was moved. This is null for discharge "
^DD(727.808,20,21,2,0)="type movements."
^DD(727.808,20,23,0)="^^4^4^2961014^^^"
^DD(727.808,20,23,1,0)="GAINING WARD is derived from the HOSPITAL LOCATION FILE POINTER field "
^DD(727.808,20,23,2,0)="(44) of the WARD LOCATION file (#42) as pointed to by the WARD LOCATION "
^DD(727.808,20,23,3,0)="field (.06) of the PATIENT MOVEMENT file (#405). GAINING WARD is a "
^DD(727.808,20,23,4,0)="pointer to the HOSPITAL LOCATION file (#44)."
^DD(727.808,20,"DT")="2960911"
^DD(727.808,21,0)="ADMISSION TIME^FO^^0;22^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.808,21,.1)="Admission Time"
^DD(727.808,21,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.808,21,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.808,21,3)="Answer must be 6 characters in length."
^DD(727.808,21,21,0)="^^2^2^2970922^^^^"
^DD(727.808,21,21,1,0)="A 6-character numeric string which represents the time of day at"
^DD(727.808,21,21,2,0)="which the admission associated with the physical movement occurred."
^DD(727.808,21,23,0)="^^7^7^2971113^^^^"
^DD(727.808,21,23,1,0)="Data source:"
^DD(727.808,21,23,2,0)=" "
^DD(727.808,21,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.808,21,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.808,21,23,5,0)=" "
^DD(727.808,21,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.808,21,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.808,21,"DT")="2970924"
^DD(727.808,22,0)="PLACEHOLDER2^F^^0;23^K:$L(X)>11!($L(X)<1) X"
^DD(727.808,22,.1)="Placeholder2"
^DD(727.808,22,3)="Answer must be 1-11 characters in length."
^DD(727.808,22,21,0)="^^1^1^2980120^^"
^DD(727.808,22,21,1,0)="A placeholder."
^DD(727.808,22,23,0)="^^1^1^2980120^^"
^DD(727.808,22,23,1,0)="For future development; always set to null."
^DD(727.808,22,"DT")="2980120"
^DD(727.808,23,0)="PLACEHOLDER3^F^^0;24^K:$L(X)>11!($L(X)<1) X"
^DD(727.808,23,.1)="Placeholder3"
^DD(727.808,23,3)="Answer must be 1-11 characters in length."
^DD(727.808,23,21,0)="^^1^1^2980120^^"
^DD(727.808,23,21,1,0)="To be used for future development; currently set to null."
^DD(727.808,23,23,0)="^^1^1^2980120^^"
^DD(727.808,23,23,1,0)="For future development; always set to null."
^DD(727.808,23,"DT")="2980120"
^DD(727.808,24,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.808,24,3)="Answer must be 1-10 characters in length."
^DD(727.808,24,21,0)="^^1^1^2990504^"
^DD(727.808,24,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.808,24,23,0)="^^2^2^2990504^"
^DD(727.808,24,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.808,24,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.808,24,"DT")="2990504"
^DD(727.808,25,0)="DSS DEPT.^F^^1;2^K:$L(X)>10!($L(X)<4) X"
^DD(727.808,25,3)="Answer must be 4-10 characters in length."
^DD(727.808,25,21,0)="^^2^2^2990510^^^^"
^DD(727.808,25,21,1,0)="The DSS Department code for the Losing Ward.  Must contain at least"
^DD(727.808,25,21,2,0)="four characters to be a valid code."
^DD(727.808,25,23,0)="^^15^15^2990510^^"
^DD(727.808,25,23,1,0)="The DSS Department code for the ward associated with the physical"
^DD(727.808,25,23,2,0)="movement record.  This code is found in the DSS WARD file (#727.4)"
^DD(727.808,25,23,3,0)="using the value of the WARD LOCATION field (#.06) of the PATIENT"
^DD(727.808,25,23,4,0)="MOVEMENT file (#405) record for the patient's admission movement."
^DD(727.808,25,23,5,0)="The value found in WARD LOCATION is a pointer to the WARD LOCATION"
^DD(727.808,25,23,6,0)="file (#42)."
^DD(727.808,25,23,7,0)=" "
^DD(727.808,25,23,8,0)="Each record in file #727.4 has a #.01 field which points to a record"
^DD(727.808,25,23,9,0)="in file #42, and the internal entry number of the file #727.4 is set"
^DD(727.808,25,23,10,0)="to be the same as the record in file #42 to which it points.  Therefore,"
^DD(727.808,25,23,11,0)="the WARD LOCATION field (#.06) can be used as a pointer to file #727.4"
^DD(727.808,25,23,12,0)="as well."
^DD(727.808,25,23,13,0)="  "
^DD(727.808,25,23,14,0)="Data for this field is taken from the DSS DEPARTMENT field (#1) of"
^DD(727.808,25,23,15,0)="the file #727.4 record for the Losing Ward."
^DD(727.808,25,"DT")="2980708"
^DD(727.808,26,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;3^K:$L(X)>1!($L(X)<1) X"
^DD(727.808,26,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.808,26,21,0)="^^6^6^3001106^"
^DD(727.808,26,21,1,0)="Indicates if a patient is admitted to a a DOM, PRRTP, or a"
^DD(727.808,26,21,2,0)="SARRTP at the time that the hospital service is provided. "
^DD(727.808,26,21,3,0)="Domiciliary"
^DD(727.808,26,21,4,0)="(DOM)"
^DD(727.808,26,21,5,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.808,26,21,6,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.808,26,"DT")="3001010"
^DD(727.808,27,0)="OBSERVATION PATIENT INDICATOR^F^^1;4^K:$L(X)>4!($L(X)<1) X"
^DD(727.808,27,3)="Answer must be 1-4 characters in length. "
^DD(727.808,27,21,0)="^^2^2^3011212^"
^DD(727.808,27,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.808,27,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.808,27,"DT")="3010814"
^DD(727.808,28,0)="ENCOUNTER NUMBER^F^^1;5^K:$L(X)>18!($L(X)<1) X"
^DD(727.808,28,3)="Answer must be 1-18 characters in length"
^DD(727.808,28,21,0)="^^3^3^3011212^"
^DD(727.808,28,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.808,28,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.808,28,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.808,28,"DT")="3010514"
^DD(727.808,29,0)="DISCHARGE PC PROVIDER^F^^1;6^K:$L(X)>11!($L(X)<2) X"
^DD(727.808,29,3)="Answer must be 2-11 characters in length"
^DD(727.808,29,21,0)="^^1^1^3011212^"
^DD(727.808,29,21,1,0)="This field contains the primary care provider at the time of discharge."
^DD(727.808,29,"DT")="3010514"
^DD(727.808,30,0)="DISCHARGE PC TEAM^F^^1;7^K:$L(X)>4!($L(X)<1) X"
^DD(727.808,30,3)="Answer must be 1-4 characters in length"
^DD(727.808,30,21,0)="^^2^2^3011212^"
^DD(727.808,30,21,1,0)="This field contains the primary care team assigned to the patient at the"
^DD(727.808,30,21,2,0)="time of discharge."
^DD(727.808,30,"DT")="3010514"
^DD(727.808,31,0)="DISCHARGE ASSOC PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X"
^DD(727.808,31,3)="Answer must be 2-11 characters in length"
^DD(727.808,31,21,0)="^^2^2^3011212^"
^DD(727.808,31,21,1,0)="This field contains the associate primary care provider at the time of"
^DD(727.808,31,21,2,0)="discharge."
^DD(727.808,31,"DT")="3010514"
^DD(727.808,32,0)="PRODUCTION DIVISION CODE^F^^1;9^K:$L(X)>6!($L(X)<3) X"
^DD(727.808,32,3)="Answer must be 3-6 characters in length."
^DD(727.808,32,21,0)="^.001^2^2^3060719^^^^"
^DD(727.808,32,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.808,32,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.808,32,23,0)="^^7^7^3060719^"
^DD(727.808,32,23,1,0)="Data comes from the WARD AT DISCHARGE field (#200) in the PATIENT "
^DD(727.808,32,23,2,0)="MOVEMENT file (#405). This value is then use to get the NAME field (#.01)"
^DD(727.808,32,23,3,0)="in the WARD LOCATION file (#42) which in turn is used to get the DIVISION"
^DD(727.808,32,23,4,0)="field (#.015) in the WARD LOCATION file (#42) which is a pointer to the"
^DD(727.808,32,23,5,0)="MEDICAL CENTER DIVISION file (#40.8). This value is then used to call the"
^DD(727.808,32,23,6,0)="API GETDIV^ECXDEPT to get the STATION NUMBER field (#99) from the"
^DD(727.808,32,23,7,0)="INSTITUTION file (#4)."
^DD(727.808,32,"DT")="3020812"
^DD(727.808,33,0)="DISCHARGE PC PROV PERSON CLASS^F^^1;10^K:$L(X)>7!($L(X)<1) X"
^DD(727.808,33,3)="Answer must be 1-7 characters in length."
^DD(727.808,33,21,0)="^.001^3^3^3050425^^"
^DD(727.808,33,21,1,0)="The VA Code of the Person Class of the Interpreting Radiologist associated"
^DD(727.808,33,21,2,0)="with this record. The VA Code is always of the form ""V""_six numeric"
^DD(727.808,33,21,3,0)="digits; exactly 7."
^DD(727.808,33,23,0)="^^3^3^3050425^"
^DD(727.808,33,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.808,33,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.808,33,23,3,0)="#200."
^DD(727.808,33,"DT")="3050420"
^DD(727.808,34,0)="DISCHARGE ASSOC PC PROVIDER PC^F^^1;11^K:$L(X)>7!($L(X)<1) X"
^DD(727.808,34,3)="Answer must be 1-7 characters in length."
^DD(727.808,34,21,0)="^.001^3^3^3050425^^"
^DD(727.808,34,21,1,0)="The VA Code of the Person Class of the Interpreting Radiologist associated"
^DD(727.808,34,21,2,0)="with this record. The VA Code is always of the form ""V""_six numeric"
^DD(727.808,34,21,3,0)="digits; exactly 7."
^DD(727.808,34,23,0)="^^3^3^3050425^"
^DD(727.808,34,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.808,34,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.808,34,23,3,0)="#200."
^DD(727.808,34,"DT")="3050420"
^DD(727.808,35,0)="DISCH ASSOC PC PROV NPI^F^^1;12^K:$L(X)>15!($L(X)<1) X"
^DD(727.808,35,3)="Answer must be 1-15 characters in length."
^DD(727.808,35,21,0)="^^3^3^3070504^"
^DD(727.808,35,21,1,0)="A standard unique life-long identifier of the patient's associate primary "
^DD(727.808,35,21,2,0)="care provider from the losing ward.  This field has a length of fifteen "
^DD(727.808,35,21,3,0)="characters."
^DD(727.808,35,23,0)="^.001^4^4^3070504^^"
^DD(727.808,35,23,1,0)="DISCHARGE ASSOC PC PROV. NPI is a standard unique life-long identifier of "
^DD(727.808,35,23,2,0)="the patient's associate primary care provider from the losing ward.  The "
^DD(727.808,35,23,3,0)="qualified identifier shall be retrieved via the supporting Kernel"
^DD(727.808,35,23,4,0)="API:$$NPI^XUSNPI."
^DD(727.808,35,"DT")="3070504"
^DD(727.808,36,0)="DISCHARGE PC PROVIDER NPI^F^^1;13^K:$L(X)>15!($L(X)<1) X"
^DD(727.808,36,3)="Answer must be 1-15 characters in length."
^DD(727.808,36,21,0)="^^3^3^3070504^"
^DD(727.808,36,21,1,0)="A standard unique life-long identifier of the patient's primary care "
^DD(727.808,36,21,2,0)="provider from the losing ward. This field has a length of fifteen "
^DD(727.808,36,21,3,0)="characters."
^DD(727.808,36,23,0)="^.001^3^3^3070504^^"
^DD(727.808,36,23,1,0)="DISCHARGE PC PROVIDER NPI is a standard unique life-long identifier of the"
^DD(727.808,36,23,2,0)="patient's primary care provider from the losing ward.  The qualified "
^DD(727.808,36,23,3,0)="identifier shall be retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.808,36,"DT")="3070504"
^DD(727.808,"B","ADMISSION DATE",10)=""
^DD(727.808,"B","ADMISSION TIME",21)=""
^DD(727.808,"B","Admission Date",10)="1"
^DD(727.808,"B","Admission Time",21)="1"
^DD(727.808,"B","DAY",8)=""
^DD(727.808,"B","DISCH ASSOC PC PROV NPI",35)=""
^DD(727.808,"B","DISCHARGE ASSOC PC PROVIDER",31)=""
^DD(727.808,"B","DISCHARGE ASSOC PC PROVIDER PC",34)=""
^DD(727.808,"B","DISCHARGE DATE",11)=""
^DD(727.808,"B","DISCHARGE PC PROV PERSON CLASS",33)=""
^DD(727.808,"B","DISCHARGE PC PROVIDER",29)=""
^DD(727.808,"B","DISCHARGE PC PROVIDER NPI",36)=""
^DD(727.808,"B","DISCHARGE PC TEAM",30)=""
^DD(727.808,"B","DOM,PRRTP AND SAARTP INDICATOR",26)=""
^DD(727.808,"B","DSS DEPT.",25)=""
^DD(727.808,"B","Day",8)="1"
^DD(727.808,"B","Discharge Date",11)="1"
^DD(727.808,"B","ENCOUNTER NUMBER",28)=""
^DD(727.808,"B","EXTRACT NUMBER",2)=""
^DD(727.808,"B","Extract Number",2)="1"
^DD(727.808,"B","FACILITY",3)=""
^DD(727.808,"B","Facility",3)="1"
^DD(727.808,"B","GAINING WARD",20)=""
^DD(727.808,"B","Gaining Ward",20)="1"
^DD(727.808,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.808,"B","In Out Patient Indicator",7)="1"
^DD(727.808,"B","LOSING WARD",14)=""
^DD(727.808,"B","LOSING WARD LOS",16)=""
^DD(727.808,"B","Losing Ward",14)="1"
^DD(727.808,"B","Losing Ward LOS",16)="1"
^DD(727.808,"B","MASTER PATIENT INDEX",24)=""
^DD(727.808,"B","MOV TIME",19)=""
^DD(727.808,"B","MOV Time",19)="1"
^DD(727.808,"B","MOVEMENT FILE #",12)=""
^DD(727.808,"B","MOVEMENT TYPE",18)=""
^DD(727.808,"B","Movement File Number",12)="1"
^DD(727.808,"B","Movement Type",18)="1"
^DD(727.808,"B","NAME",6)=""
^DD(727.808,"B","Name",6)="1"
^DD(727.808,"B","OBSERVATION PATIENT INDICATOR",27)=""
^DD(727.808,"B","PATIENT NO. - DFN",4)=""
^DD(727.808,"B","PLACEHOLDER1",17)=""
^DD(727.808,"B","PLACEHOLDER2",22)=""
^DD(727.808,"B","PLACEHOLDER3",23)=""
^DD(727.808,"B","PRODUCT",9)=""
^DD(727.808,"B","PRODUCTION DIVISION CODE",32)=""
^DD(727.808,"B","Patient No. - DFN",4)="1"
^DD(727.808,"B","Placeholder1",17)="1"
^DD(727.808,"B","Placeholder2",22)="1"
^DD(727.808,"B","Placeholder3",23)="1"
^DD(727.808,"B","Product",9)="1"
^DD(727.808,"B","SEQUENCE NUMBER",.01)=""
^DD(727.808,"B","SSN",5)=""
^DD(727.808,"B","Sequence Number",.01)="1"
^DD(727.808,"B","Social Security Number",5)="1"
^DD(727.808,"B","TREATING SPECIALTY",15)=""
^DD(727.808,"B","TYPE",13)=""
^DD(727.808,"B","Treating Specialty",15)="1"
^DD(727.808,"B","Type",13)="1"
^DD(727.808,"B","YEAR MONTH",1)=""
^DD(727.808,"B","Year/Month",1)="1"
^DD(727.808,"GL",0,1,.01)=""
^DD(727.808,"GL",0,2,1)=""
^DD(727.808,"GL",0,3,2)=""
^DD(727.808,"GL",0,4,3)=""
^DD(727.808,"GL",0,5,4)=""
^DD(727.808,"GL",0,6,5)=""
^DD(727.808,"GL",0,7,6)=""
^DD(727.808,"GL",0,8,7)=""
^DD(727.808,"GL",0,9,8)=""
^DD(727.808,"GL",0,10,9)=""
^DD(727.808,"GL",0,11,10)=""
^DD(727.808,"GL",0,12,11)=""
^DD(727.808,"GL",0,13,12)=""
^DD(727.808,"GL",0,14,13)=""
^DD(727.808,"GL",0,15,14)=""
^DD(727.808,"GL",0,16,15)=""
^DD(727.808,"GL",0,17,16)=""
^DD(727.808,"GL",0,18,17)=""
^DD(727.808,"GL",0,19,18)=""
^DD(727.808,"GL",0,20,19)=""
^DD(727.808,"GL",0,21,20)=""
^DD(727.808,"GL",0,22,21)=""
^DD(727.808,"GL",0,23,22)=""
^DD(727.808,"GL",0,24,23)=""
^DD(727.808,"GL",1,1,24)=""
^DD(727.808,"GL",1,2,25)=""
^DD(727.808,"GL",1,3,26)=""
^DD(727.808,"GL",1,4,27)=""
^DD(727.808,"GL",1,5,28)=""
^DD(727.808,"GL",1,6,29)=""
^DD(727.808,"GL",1,7,30)=""
^DD(727.808,"GL",1,8,31)=""
^DD(727.808,"GL",1,9,32)=""
^DD(727.808,"GL",1,10,33)=""
^DD(727.808,"GL",1,11,34)=""
^DD(727.808,"GL",1,12,35)=""
^DD(727.808,"GL",1,13,36)=""
^DD(727.808,"IX",2)=""
^DD(727.808,"RQ",.01)=""
^DD(727.809,0)="FIELD^^74^82"
^DD(727.809,0,"DDA")="N"
^DD(727.809,0,"DIK")="ECX809"
^DD(727.809,0,"DIKOLD")="ECX809"
^DD(727.809,0,"DT")="3021010"
^DD(727.809,0,"IX","AC",727.809,2)=""
^DD(727.809,0,"NM","UNIT DOSE LOCAL EXTRACT")=""
^DD(727.809,0,"VR")="3.0"
^DD(727.809,0,"VRPK")="ECX"
^DD(727.809,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.809,.01,.1)="Sequence Number"
^DD(727.809,.01,1,0)="^.1^^0"
^DD(727.809,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.809,.01,21,0)="^^1^1^2960913^^^^"
^DD(727.809,.01,21,1,0)="The record number for this extract entry."
^DD(727.809,.01,23,0)="^^1^1^2960913^^^"
^DD(727.809,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.809,.01,"DT")="2980812"
^DD(727.809,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.809,1,.1)="Year/Month"
^DD(727.809,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.809,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.809,1,3)="Answer must be 6 characters in length."
^DD(727.809,1,21,0)="^^2^2^2970922^^^^"
^DD(727.809,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.809,1,21,2,0)="for which this extract was performed."
^DD(727.809,1,23,0)="^^1^1^2970922^^^^"
^DD(727.809,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.809,1,"DT")="2970924"
^DD(727.809,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.809,2,.1)="Extract Number"
^DD(727.809,2,1,0)="^.1"
^DD(727.809,2,1,1,0)="727.809^AC"
^DD(727.809,2,1,1,1)="S ^ECX(727.809,""AC"",$E(X,1,30),DA)="""""
^DD(727.809,2,1,1,2)="K ^ECX(727.809,""AC"",$E(X,1,30),DA)"
^DD(727.809,2,1,1,3)="DO NOT DELETE."
^DD(727.809,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.809,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.809,2,1,1,"%D",2,0)="in this file."
^DD(727.809,2,1,1,"DT")="2910802"
^DD(727.809,2,3)="Enter the extract number for this extract."
^DD(727.809,2,21,0)="^^2^2^2960913^^^^"
^DD(727.809,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.809,2,21,2,0)="extract."
^DD(727.809,2,23,0)="^^2^2^2960913^^^^"
^DD(727.809,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.809,2,23,2,0)="pick up the header for the mail message."
^DD(727.809,2,"DT")="2960913"
^DD(727.809,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.809,3,.1)="Facility"
^DD(727.809,3,3)="Enter the station number where this extract was performed."
^DD(727.809,3,21,0)="^^1^1^2960913^^^^"
^DD(727.809,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.809,3,23,0)="^^3^3^2960913^^^^"
^DD(727.809,3,23,1,0)="An indicator of the division where this event happened. It is derived"
^DD(727.809,3,23,2,0)="from the DIVISION field (.015) of the WARD LOCATION file (#42) which"
^DD(727.809,3,23,3,0)="points to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.809,3,"DT")="2961018"
^DD(727.809,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.809,4,.1)="Patient No. - DFN"
^DD(727.809,4,3)="Enter the name of the patient for this extract record."
^DD(727.809,4,21,0)="^^1^1^2990504^^^^"
^DD(727.809,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.809,4,23,0)="^^3^3^2990504^^^^"
^DD(727.809,4,23,1,0)="Pointer to the NAME field (.01) of the PATIENT file (#2). PATIENT NO. -"
^DD(727.809,4,23,2,0)="DFN data is derived from the DFN field (1) of the UNIT DOSE EXTRACT "
^DD(727.809,4,23,3,0)="DATA file (#728.904)."
^DD(727.809,4,"DT")="2961018"
^DD(727.809,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.809,5,.1)="Social Security Number"
^DD(727.809,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.809,5,21,0)="^^4^4^2990504^^^^"
^DD(727.809,5,21,1,0)="The patient's social security number."
^DD(727.809,5,21,2,0)=" "
^DD(727.809,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.809,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.809,5,23,0)="^^6^6^2990504^^^^"
^DD(727.809,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.809,5,23,2,0)="in the UNIT DOSE LOCAL EXTRACT file (#727.809), SSN data is derived from"
^DD(727.809,5,23,3,0)="the SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.809,5,23,4,0)=" "
^DD(727.809,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.809,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.809,5,"DT")="2960913"
^DD(727.809,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.809,6,.1)="Name"
^DD(727.809,6,3)="Your answer must be 4 characters in length."
^DD(727.809,6,21,0)="^^1^1^2961021^^^^"
^DD(727.809,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.809,6,23,0)="^^4^4^2961021^^"
^DD(727.809,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.809,6,23,2,0)="in the UNIT DOSE LOCAL EXTRACT file (#727.809), NAME data is derived from"
^DD(727.809,6,23,3,0)="the NAME field (.01) in the PATIENT file (#2). The first four characters"
^DD(727.809,6,23,4,0)="of the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.809,6,"DT")="2960913"
^DD(727.809,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,7,.1)="In Out Patient Indicator"
^DD(727.809,7,3)="Answer must be 1 character in length."
^DD(727.809,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.809,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.809,7,21,2,0)="extract entry."
^DD(727.809,7,23,0)="^.001^4^4^3011129^^^^"
^DD(727.809,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.809,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.809,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.809,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.809,7,"DT")="3011129"
^DD(727.809,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.809,8,.1)="Day"
^DD(727.809,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.809,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.809,8,3)="Answer must be 8 characters in length."
^DD(727.809,8,21,0)="^^2^2^2970922^^^^"
^DD(727.809,8,21,1,0)="This 8-character string represents the date on which the Unit Dose "
^DD(727.809,8,21,2,0)="event (dispense or return) occurred."
^DD(727.809,8,23,0)="^^15^15^2970923^^^^"
^DD(727.809,8,23,1,0)="Data source:"
^DD(727.809,8,23,2,0)=" "
^DD(727.809,8,23,3,0)="(1) UNIT DOSE EXTRACT DATA file (#728.904); DATE field (#2)"
^DD(727.809,8,23,4,0)="Data is inserted in this field by Pharmacy routines PSGPLF and"
^DD(727.809,8,23,5,0)="PSGAMSA; these routines derive the data from --"
^DD(727.809,8,23,6,0)="(2) UNIT DOSE PICK LIST STATS file (#57.6); DATE field (#.01)"
^DD(727.809,8,23,7,0)="    PICK LIST file (#53.5); START DATE/TIME field (#.03)"
^DD(727.809,8,23,8,0)="    or"
^DD(727.809,8,23,9,0)="    DT (i.e., FileMan variable for Today's Date)"
^DD(727.809,8,23,10,0)=" "
^DD(727.809,8,23,11,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.809,8,23,12,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.809,8,23,13,0)="then a default is used.  The default date value is the value of the "
^DD(727.809,8,23,14,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.809,8,23,15,0)="Year 2000 compliant per vendor."
^DD(727.809,8,"DT")="2970924"
^DD(727.809,9,0)="VA DRUG CLASSIFICATION^F^^0;10^K:$L(X)>5!($L(X)<5) X"
^DD(727.809,9,.1)="VA Drug Classification"
^DD(727.809,9,3)="Your answer must be 5 characters in length."
^DD(727.809,9,21,0)="^^1^1^2990510^^^^"
^DD(727.809,9,21,1,0)="The VA Drug Classification for the item in this order."
^DD(727.809,9,23,0)="^^3^3^2990510^^^^"
^DD(727.809,9,23,1,0)="Derived from the VA CLASSIFICATION field (#2) in the DRUG file (#50) "
^DD(727.809,9,23,2,0)="for the drug identified by the DRUG field (#3) in the UNIT DOSE EXTRACT "
^DD(727.809,9,23,3,0)="DATA file (#728.904)."
^DD(727.809,9,"DT")="2960913"
^DD(727.809,10,0)="QUANTITY^NJ8,2^^0;11^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(727.809,10,.1)="Quantity"
^DD(727.809,10,3)="Enter a number between 0 and 10000, 2 decimal digits."
^DD(727.809,10,21,0)="^^1^1^2960913^^^^"
^DD(727.809,10,21,1,0)="Quantity dispensed."
^DD(727.809,10,23,0)="^^2^2^2960913^^^^"
^DD(727.809,10,23,1,0)="QUANTITY is derived from the QUANTITY field (4) of the UNIT DOSE EXTRACT "
^DD(727.809,10,23,2,0)="DATA file (#728.904)."
^DD(727.809,10,"DT")="2960913"
^DD(727.809,11,0)="WARD^P44'^SC(^0;12^Q"
^DD(727.809,11,.1)="Ward"
^DD(727.809,11,3)="Enter the ward location for this patient."
^DD(727.809,11,21,0)="^^1^1^2960913^^"
^DD(727.809,11,21,1,0)="This is the location of the patient when he received the medication."
^DD(727.809,11,23,0)="^^5^5^2960913^^^"
^DD(727.809,11,23,1,0)="Ward is derived from the WARD field (5) in the UNIT DOSE EXTRACT DATA "
^DD(727.809,11,23,2,0)="file (#728.904) which is a pointer to the WARD LOCATION file (#42). "
^DD(727.809,11,23,3,0)="Using the ward pointer, the data is derived from the HOSPITAL LOCATION "
^DD(727.809,11,23,4,0)="FILE POINTER field (44) in the WARD LOCATION file (#42) which is a "
^DD(727.809,11,23,5,0)="pointer to the HOSPITAL LOCATION file (#44)."
^DD(727.809,11,"DT")="2960913"
^DD(727.809,12,0)="PROVIDER^F^^0;13^K:$L(X)>11!($L(X)<1) X"
^DD(727.809,12,.1)="Provider"
^DD(727.809,12,3)="Enter provider assigned to this patient."
^DD(727.809,12,21,0)="^^1^1^2980608^^^^"
^DD(727.809,12,21,1,0)="The provider assigned to this patient."
^DD(727.809,12,23,0)="^^3^3^2980608^^^^"
^DD(727.809,12,23,1,0)="PROVIDER data is derived from the PROVIDER field (6) of the UNIT DOSE "
^DD(727.809,12,23,2,0)="EXTRACT DATA file (#728.904). It is a pointer to the NEW PERSON file "
^DD(727.809,12,23,3,0)="(#200). This data is stored as ""2""_pointer value."
^DD(727.809,12,"DT")="2961018"
^DD(727.809,13,0)="COST^NJ8,2^^0;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(727.809,13,.1)="Cost"
^DD(727.809,13,3)="Enter a dollar amount between 0 and 10000, 2 decimal digits."
^DD(727.809,13,21,0)="^^1^1^2990510^^^^"
^DD(727.809,13,21,1,0)="Cost of drug dispensed for this patient."
^DD(727.809,13,23,0)="^^2^2^2990510^^^^"
^DD(727.809,13,23,1,0)="COST data is derived from the TOTAL COST field (7) of the UNIT DOSE "
^DD(727.809,13,23,2,0)="EXTRACT DATA file (#728.904)."
^DD(727.809,13,"DT")="2960913"
^DD(727.809,14,0)="MOVEMENT FILE #^P405'^DGPM(^0;15^Q"
^DD(727.809,14,.1)="Movement File Number"
^DD(727.809,14,3)="Enter the patient movement number associated with this extract record."
^DD(727.809,14,21,0)="^^1^1^2960913^^"
^DD(727.809,14,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.809,14,23,0)="^^4^4^2960913^^"
^DD(727.809,14,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.809,14,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.809,14,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.809,14,23,4,0)="(#405)."
^DD(727.809,14,"DT")="2960913"
^DD(727.809,15,0)="TREATING SPECIALTY^F^^0;16^K:$L(X)>3!($L(X)<2) X"
^DD(727.809,15,.1)="Treating Specialty"
^DD(727.809,15,3)="Answer must be 2-3 characters in length"
^DD(727.809,15,21,0)="^^2^2^3070502^"
^DD(727.809,15,21,1,0)="The PTF CODE of the treating specialty associated with this extract"
^DD(727.809,15,21,2,0)="record."
^DD(727.809,15,23,0)="^.001^7^7^3070502^^"
^DD(727.809,15,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.809,15,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.809,15,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.809,15,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.809,15,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.809,15,23,6,0)="SPECIALTY file (#42.4). Then, the PTF Code is obtained and stored "
^DD(727.809,15,23,7,0)="instead of the actual specialty code."
^DD(727.809,15,"DT")="3070420"
^DD(727.809,16,0)="NDC^F^^0;17^K:$L(X)>15!($L(X)<1) X"
^DD(727.809,16,.1)="National Drug Code"
^DD(727.809,16,3)="Your answer must be 1 to 15 characters in length."
^DD(727.809,16,21,0)="^^1^1^2990510^^^"
^DD(727.809,16,21,1,0)="This is the National Drug Code for the drug/supply item in this order."
^DD(727.809,16,23,0)="^^3^3^2990510^^^^"
^DD(727.809,16,23,1,0)="Derived from the NDC field (#31) in the DRUG file (#50) for the drug "
^DD(727.809,16,23,2,0)="identified by the DRUG field (#3) in the UNIT DOSE EXTRACT DATA file "
^DD(727.809,16,23,3,0)="(#728.904)."
^DD(727.809,16,"DT")="2960913"
^DD(727.809,17,0)="NEW FEEDER KEY^F^^0;18^K:$L(X)>19!($L(X)<17) X"
^DD(727.809,17,.1)="New Feeder Key"
^DD(727.809,17,3)="Answer must be 17-19 characters in length."
^DD(727.809,17,21,0)="^^5^5^2990510^^^^"
^DD(727.809,17,21,1,0)="The Feeder Key for the drug in this record.  The format of the Feeder Key"
^DD(727.809,17,21,2,0)="depends on the version of NATIONAL DRUG FILE installed at the site.  If the"
^DD(727.809,17,21,3,0)="site is running NDF v4.0 (or later), the Feeder Key has a 17-digit format."
^DD(727.809,17,21,4,0)="If the site is running an earlier version of NDF, then the Feeder Key has"
^DD(727.809,17,21,5,0)="a 19-digit format."
^DD(727.809,17,23,0)="^^20^20^2990510^^^^"
^DD(727.809,17,23,1,0)="NEW FEEDER KEY is derived for the drug identified by the DRUG field "
^DD(727.809,17,23,2,0)="(#6) in the PRESCRIPTION file (#52), which is a pointer to the DRUG"
^DD(727.809,17,23,3,0)="file (#50)."
^DD(727.809,17,23,4,0)="  "
^DD(727.809,17,23,5,0)="If the sites is running a version of NDF prior to NDF v4.0:"
^DD(727.809,17,23,6,0)="The NATIONAL DRUG FILE ENTRY field (#20) from the DRUG file (#50),"
^DD(727.809,17,23,7,0)="which is a pointer to the NATIONAL DRUG file (#50.6), is padded to"
^DD(727.809,17,23,8,0)="4 digits.  The PSNDF VA PRODUCT NAME ENTRY field (#22) from the "
^DD(727.809,17,23,9,0)="DRUG file (#50), which is a pointer to the VA Product Name in the"
^DD(727.809,17,23,10,0)="NATIONAL DRUG file (#50.6), is padded to 3 digits. These two data"
^DD(727.809,17,23,11,0)="elements are concatenated together to form a 7-digit string."
^DD(727.809,17,23,12,0)="This is concatenated with a 12-digit code derived from the NDC field"
^DD(727.809,17,23,13,0)="(#31) from the DRUG file (#50) to form a 19-digit Feeder Key."
^DD(727.809,17,23,14,0)="  "
^DD(727.809,17,23,15,0)="If the site is running NDF v4.0 (or later):"
^DD(727.809,17,23,16,0)="The PSNDF VA PRODUCT NAME ENTRY field (#22) from the DRUG file (#50), "
^DD(727.809,17,23,17,0)="which is a pointer to the VA PRODUCT file (#50.68) is padded to 5"
^DD(727.809,17,23,18,0)="digits.  This is concatenated with a 12-digit code derived from the"
^DD(727.809,17,23,19,0)="NDC field (#31) from the DRUG file (#50) to form a 17-digit Feeder"
^DD(727.809,17,23,20,0)="Key."
^DD(727.809,17,"DT")="2990510"
^DD(727.809,18,0)="INVESTIGATIONAL^S^I:INVESTIGATIONAL;^0;19^Q"
^DD(727.809,18,.1)="Investigational"
^DD(727.809,18,3)="Enter I if the drug is investigational."
^DD(727.809,18,21,0)="^^2^2^2960913^^"
^DD(727.809,18,21,1,0)="This field contains the letter I if the drug in this record is "
^DD(727.809,18,21,2,0)="investigational. Otherwise it is null."
^DD(727.809,18,23,0)="^^2^2^2960913^^"
^DD(727.809,18,23,1,0)="Derived from the DEA, SPECIAL HDLG field (3) in the DRUG file (#50)."
^DD(727.809,18,23,2,0)="If the DEA, SPECIAL HDLG field contains an I, this field is set to I."
^DD(727.809,18,"DT")="2960913"
^DD(727.809,19,0)="UDP TIME^FO^^0;20^K:$L(X)>6!($L(X)<6) X"
^DD(727.809,19,.1)="UDP Time"
^DD(727.809,19,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.809,19,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.809,19,3)="Answer must be 6 characters in length."
^DD(727.809,19,21,0)="^^1^1^2970918^^^^"
^DD(727.809,19,21,1,0)="A 6-character numeric string representing a time data element."
^DD(727.809,19,23,0)="^^15^15^2970918^^^^"
^DD(727.809,19,23,1,0)="Data source:"
^DD(727.809,19,23,2,0)=" "
^DD(727.809,19,23,3,0)="(1) UNIT DOSE EXTRACT DATA file (#728.904); DATE field (#2)"
^DD(727.809,19,23,4,0)="Data is inserted in this field by Pharmacy routines PSGPLF and"
^DD(727.809,19,23,5,0)="PSGAMSA; these routines derive the data from --"
^DD(727.809,19,23,6,0)="(2) UNIT DOSE PICK LIST STATS file (#57.6); DATE field (#.01)"
^DD(727.809,19,23,7,0)="    PICK LIST file (#53.5); START DATE/TIME field (#.03)"
^DD(727.809,19,23,8,0)="    where only the 1st ""."" piece (date) is used."
^DD(727.809,19,23,9,0)="    or"
^DD(727.809,19,23,10,0)="    DT (i.e., FileMan variable for Today's Date)"
^DD(727.809,19,23,11,0)=" "
^DD(727.809,19,23,12,0)="The source for this data element does NOT provide any time information;"
^DD(727.809,19,23,13,0)="only date is provided.  Consequently, the UDP TIME field is always"
^DD(727.809,19,23,14,0)="set to ""000000""."
^DD(727.809,19,23,15,0)=" "
^DD(727.809,19,"DT")="2970924"
^DD(727.809,20,0)="ADMISSION DATE^FO^^0;21^K:$L(X)>8!($L(X)<8) X"
^DD(727.809,20,.1)="Admission Date"
^DD(727.809,20,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.809,20,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.809,20,3)="Answer must be 8 characters in length."
^DD(727.809,20,21,0)="^^2^2^2970922^^^^"
^DD(727.809,20,21,1,0)="This 8-character string represents the date on which the admission"
^DD(727.809,20,21,2,0)="associated with this Unit Dose event occurred."
^DD(727.809,20,23,0)="^^10^10^2971113^^^^"
^DD(727.809,20,23,1,0)="Data source:"
^DD(727.809,20,23,2,0)=" "
^DD(727.809,20,23,3,0)="UNIT DOSE EXTRACT DATA file (#728.904); DFN field (#1)"
^DD(727.809,20,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.809,20,23,5,0)=" "
^DD(727.809,20,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.809,20,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.809,20,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.809,20,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.809,20,23,10,0)="Year 2000 compliant per vendor."
^DD(727.809,20,"DT")="2970924"
^DD(727.809,21,0)="ADMISSION TIME^FO^^0;22^K:$L(X)>6!($L(X)<6) X"
^DD(727.809,21,.1)="Admission Time"
^DD(727.809,21,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.809,21,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.809,21,3)="Answer must be 6 characters in length."
^DD(727.809,21,21,0)="^^2^2^2970922^^^^"
^DD(727.809,21,21,1,0)="A 6-character numeric string which represents the time of day at"
^DD(727.809,21,21,2,0)="which the admission associated with the Unit Dose event occurred."
^DD(727.809,21,23,0)="^^12^12^2971113^^^^"
^DD(727.809,21,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns "
^DD(727.809,21,23,2,0)="the internal file number of the admission associated with this movement. "
^DD(727.809,21,23,3,0)="ADMISSION TIME is derived from the DATE/TIME field (.01) of the PATIENT "
^DD(727.809,21,23,4,0)="MOVEMENT file (#405) for the movement found in VAIP(13). ADMISSION TIME "
^DD(727.809,21,23,5,0)="is padded with trailing zeros to six digits."
^DD(727.809,21,23,6,0)="Data source:"
^DD(727.809,21,23,7,0)=" "
^DD(727.809,21,23,8,0)="UNIT DOSE EXTRACT DATA file (#728.904); DFN field (#1)"
^DD(727.809,21,23,9,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.809,21,23,10,0)=" "
^DD(727.809,21,23,11,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.809,21,23,12,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.809,21,"DT")="2970924"
^DD(727.809,22,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.809,22,3)="Answer must be 1-10 characters in length."
^DD(727.809,22,21,0)="^^1^1^2990504^"
^DD(727.809,22,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.809,22,23,0)="^^2^2^2990504^"
^DD(727.809,22,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.809,22,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.809,22,"DT")="2990504"
^DD(727.809,23,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.809,23,.1)=""
^DD(727.809,23,3)="Answer must be 1-10 characters in length"
^DD(727.809,23,21,0)="^.001^2^2^3040318^^^^"
^DD(727.809,23,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.809,23,21,2,0)="the Pharmacy care product."
^DD(727.809,23,23,0)="^^12^12^3040318^"
^DD(727.809,23,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.809,23,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.809,23,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.809,23,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.809,23,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.809,23,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.809,23,23,7,0)=" "
^DD(727.809,23,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as "
^DD(727.809,23,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.809,23,23,10,0)="designations are made. If no match is found in file 727.6 an error "
^DD(727.809,23,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.809,23,23,12,0)="group identifying the problem."
^DD(727.809,23,"DT")="3040302"
^DD(727.809,24,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.809,24,3)="Answer must be 1-8 characters in length."
^DD(727.809,24,21,0)="^^1^1^3070827^"
^DD(727.809,24,21,1,0)="Currently NULL."
^DD(727.809,24,23,0)="^^1^1^3070827^"
^DD(727.809,24,23,1,0)="Currently NULL."
^DD(727.809,24,"DT")="3070426"
^DD(727.809,25,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;4^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,25,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.809,25,21,0)="^^5^5^3001020^"
^DD(727.809,25,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.809,25,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.809,25,21,3,0)="Domiciliary (DOM)"
^DD(727.809,25,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.809,25,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.809,25,"DT")="3001010"
^DD(727.809,26,0)="OBSERVATION PATIENT INDICATOR^F^^1;5^K:$L(X)>4!($L(X)<1) X"
^DD(727.809,26,3)="Answer must be 1-4 characters in length."
^DD(727.809,26,21,0)="^^2^2^3011212^"
^DD(727.809,26,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.809,26,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.809,26,"DT")="3010814"
^DD(727.809,27,0)="ENCOUNTER NUMBER^F^^1;6^K:$L(X)>18!($L(X)<1) X"
^DD(727.809,27,3)="Answer must be 1-18 characters in length"
^DD(727.809,27,21,0)="^^3^3^3011212^"
^DD(727.809,27,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.809,27,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.809,27,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.809,27,"DT")="3010503"
^DD(727.809,28,0)="PRODUCTION DIVISION CODE^F^^1;7^K:$L(X)>6!($L(X)<3) X"
^DD(727.809,28,3)="Answer must be 3-6 characters in length"
^DD(727.809,28,21,0)="^.001^2^2^3060719^^^^"
^DD(727.809,28,21,1,0)="Represents the division where the work took place.  This is the facility "
^DD(727.809,28,21,2,0)="number (i.e. 523AA)."
^DD(727.809,28,23,0)="^^6^6^3060719^"
^DD(727.809,28,23,1,0)="Data comes from the WARD field (#5) of the UNIT DOSE EXTRACT DATA "
^DD(727.809,28,23,2,0)="file (#727.904), which is a pointer to the WARD LOCATION file (#42)."
^DD(727.809,28,23,3,0)="This value is then used to get the DIVISION field (#.015), a pointer to "
^DD(727.809,28,23,4,0)="the MEDICAL CENTER DIVISION file (#40.8), which is then used to call API "
^DD(727.809,28,23,5,0)="GETDIV^ECXDEPT to get the STATION NUMBER field (#99) from the INSTITUTION"
^DD(727.809,28,23,6,0)="file (#4).                                                    "
^DD(727.809,28,"DT")="3020719"
^DD(727.809,29,0)="MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUCATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^1;8^Q"
^DD(727.809,29,.1)="Means Test"
^DD(727.809,29,3)="Select the appropriate means test category."
^DD(727.809,29,21,0)="^^1^1^3020607^"
^DD(727.809,29,21,1,0)="The current means test category for this patient."
^DD(727.809,29,23,0)="^^6^6^3020607^"
^DD(727.809,29,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.809,29,23,2,0)="in the UNIT DOSE LOCAL EXTRACT file (#727.809), MEANS TEST data is derived"
^DD(727.809,29,23,3,0)="from the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file (#2)."
^DD(727.809,29,23,4,0)="This field is a pointer to the MEANS TEST STATUS file (#408.32).  Using"
^DD(727.809,29,23,5,0)="the means test pointer, the data is derived from the CODE field (#.02) in"
^DD(727.809,29,23,6,0)="the MEANS TEST STATUS file (#408.32)."
^DD(727.809,29,"DT")="3020607"
^DD(727.809,30,0)="ELIGIBILITY^F^^1;9^K:$L(X)>3!($L(X)<1) X"
^DD(727.809,30,.1)="Eligibility"
^DD(727.809,30,3)="Answer must be 1-3 characters in length"
^DD(727.809,30,21,0)="^^1^1^3020612^^"
^DD(727.809,30,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.809,30,23,0)="^^11^11^3020612^"
^DD(727.809,30,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.809,30,23,2,0)="in the UNIT DOSE LOCAL EXTRACT file (#727.809), ELIGIBILITY data is"
^DD(727.809,30,23,3,0)="derived from the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file"
^DD(727.809,30,23,4,0)="(#2). PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file"
^DD(727.809,30,23,5,0)="(#8). The data is derived from the MAS ELIGIBILITY CODE field (8) in the"
^DD(727.809,30,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS"
^DD(727.809,30,23,7,0)="ELIGIBILITY CODE file (#8.1)."
^DD(727.809,30,23,8,0)=" "
^DD(727.809,30,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.809,30,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.809,30,23,11,0)="two or three numeric characters."
^DD(727.809,30,"DT")="3020612"
^DD(727.809,31,0)="DATE OF BIRTH^F^^1;10^K:$L(X)>8!($L(X)<8) X"
^DD(727.809,31,.1)="Date of Birth"
^DD(727.809,31,3)="Answer must be 8 characters in length."
^DD(727.809,31,21,0)="^.001^2^2^3020612^^^"
^DD(727.809,31,21,1,0)="The patient's date of birth between December 31,1870 and today's date"
^DD(727.809,31,21,2,0)="represented by an 8-character numeric string."
^DD(727.809,31,23,0)="^^9^9^3020612^"
^DD(727.809,31,23,1,0)="Data source:"
^DD(727.809,31,23,2,0)=" "
^DD(727.809,31,23,3,0)="PATIENT MOVEMENT file (#405); PATIENT field (#.03)"
^DD(727.809,31,23,4,0)="then to PATIENT file (#2); DATE OF BIRTH field (#.03)"
^DD(727.809,31,23,5,0)=" "
^DD(727.809,31,23,6,0)="If Date of Birth cannot be determined, then January 1, 1942, is"
^DD(727.809,31,23,7,0)="used as default.  The data element is always exactly 8 numberic"
^DD(727.809,31,23,8,0)="characters in length.  Format is YYYYMMDD.  Year 2000 compliant"
^DD(727.809,31,23,9,0)="per vendor."
^DD(727.809,31,"DT")="3020612"
^DD(727.809,32,0)="SEX^S^M:MALE;F:FEMALE;^1;11^Q"
^DD(727.809,32,.1)="Sex"
^DD(727.809,32,3)="Enter the sex of the patient."
^DD(727.809,32,21,0)="^.001^1^1^3020607^^"
^DD(727.809,32,21,1,0)="The sex of the patient.  M(ale) or F(emale)."
^DD(727.809,32,23,0)="^^2^2^3020607^"
^DD(727.809,32,23,1,0)="Data is taken from the SEX field (#.02) of the patient's record in"
^DD(727.809,32,23,2,0)="the PATIENT file (#2)."
^DD(727.809,32,"DT")="3020607"
^DD(727.809,33,0)="STATE^F^^1;12^K:$L(X)>2!($L(X)<2) X"
^DD(727.809,33,.1)="State"
^DD(727.809,33,3)="Answer must be 2 characters in length."
^DD(727.809,33,21,0)="^.001^1^1^3020607^^"
^DD(727.809,33,21,1,0)="The state in which the patient resides."
^DD(727.809,33,23,0)="^^5^5^3020607^"
^DD(727.809,33,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.809,33,23,2,0)="in the UNIT DOSE LOCAL EXTRACT file (#727.809), data is derived from the"
^DD(727.809,33,23,3,0)="STATE field (#.115) in the PATIENT file (#2) which points to the STATE"
^DD(727.809,33,23,4,0)="file (#5). From the STATE file record, use the two character VA STATE CODE"
^DD(727.809,33,23,5,0)="field (#2)."
^DD(727.809,33,"DT")="3020607"
^DD(727.809,34,0)="COUNTY^F^^1;13^K:$L(X)>3!($L(X)<3) X"
^DD(727.809,34,.1)="County"
^DD(727.809,34,3)="Answer must be 3 characters in length."
^DD(727.809,34,21,0)="^.001^1^1^3020607^^"
^DD(727.809,34,21,1,0)="The county in which the patient resides."
^DD(727.809,34,23,0)="^^9^9^3020607^"
^DD(727.809,34,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.809,34,23,2,0)="in the UNIT DOSE LOCAL EXTRACT file (#727.809), data is taken from the"
^DD(727.809,34,23,3,0)="COUNTY field (#.117) in the PATIENT file (#2) which points to a subfile"
^DD(727.809,34,23,4,0)="record in the COUNTY multiple field (#3) of the STATE file (#5).  A"
^DD(727.809,34,23,5,0)="pointer to the STATE file (#5) is obtained from the STATE field (#.115) of"
^DD(727.809,34,23,6,0)="the file #2 record."
^DD(727.809,34,23,7,0)=" "
^DD(727.809,34,23,8,0)="From the subfile record of field #3 of file #5, use the value of the "
^DD(727.809,34,23,9,0)="VA COUNTY CODE field (#2)."
^DD(727.809,34,"DT")="3020607"
^DD(727.809,35,0)="ZIP+4^F^^1;14^K:$L(X)>10!($L(X)<5) X"
^DD(727.809,35,.1)="Zip+4"
^DD(727.809,35,3)="Answer must be 5-10 characters in length."
^DD(727.809,35,21,0)="^.001^1^1^3020607^^"
^DD(727.809,35,21,1,0)="The patient's zipcode with optional 4-digit extension."
^DD(727.809,35,23,0)="^^3^3^3020607^"
^DD(727.809,35,23,1,0)="The patient's zipcode with optional 4-digit extension as found in"
^DD(727.809,35,23,2,0)="the ZIP+4 field (#.1112) of the patient's record in the PATIENT"
^DD(727.809,35,23,3,0)="file (#2)."
^DD(727.809,35,"DT")="3020607"
^DD(727.809,36,0)="VETERAN^S^Y:YES;N:NO;^1;15^Q"
^DD(727.809,36,.1)="Veteran"
^DD(727.809,36,3)="Select the appropriate veteran status for this patient."
^DD(727.809,36,21,0)="^.001^1^1^3020607^^"
^DD(727.809,36,21,1,0)="Data is Y if the patient is a veteran, N if not."
^DD(727.809,36,23,0)="^^3^3^3020607^"
^DD(727.809,36,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.809,36,23,2,0)="in the UNIT DOSE LOCAL EXTRACT file (#727.809), VETERAN data is derived"
^DD(727.809,36,23,3,0)="from the VETERAN (Y/N)? field (1901) in the PATIENT file (#2)."
^DD(727.809,36,"DT")="3020607"
^DD(727.809,37,0)="PERIOD OF SERVICE^F^^1;16^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,37,.1)="Period of Service"
^DD(727.809,37,3)="Answer must be 1 character in length"
^DD(727.809,37,21,0)="^.001^2^2^3020607^^"
^DD(727.809,37,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.809,37,21,2,0)="eligibility code."
^DD(727.809,37,23,0)="^.001^2^2^3020607^^"
^DD(727.809,37,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.809,37,23,2,0)="the Patient file (#2)."
^DD(727.809,37,"DT")="3020607"
^DD(727.809,38,0)="POW STATUS^S^Y:YES;N:NO;U:UKNOWN;^1;17^Q"
^DD(727.809,38,.1)="POW Status"
^DD(727.809,38,3)="Enter the patient's POW Status."
^DD(727.809,38,21,0)="^^1^1^3020610^^"
^DD(727.809,38,21,1,0)="The patient's POW status. May be set to Y(es), N(o), or U(nknown)."
^DD(727.809,38,23,0)="^^2^2^3020610^"
^DD(727.809,38,23,1,0)="PATIENT file (#2); POW STATUS INDICATED? field (#.525)."
^DD(727.809,38,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.809,38,"DT")="3020610"
^DD(727.809,39,0)="POW LOCATION^P22'^DIC(22,^1;18^Q"
^DD(727.809,39,.1)="POW Location"
^DD(727.809,39,3)="Enter the patient's POW location."
^DD(727.809,39,21,0)="^^9^9^3020610^^^"
^DD(727.809,39,21,1,0)="If POW Status is indicated, then this is the POW confinement"
^DD(727.809,39,21,2,0)="location/period. "
^DD(727.809,39,21,3,0)=" "
^DD(727.809,39,21,4,0)=" 1      WORLD WAR I"
^DD(727.809,39,21,5,0)=" 2      WORLD WAR II - EUROPE"
^DD(727.809,39,21,6,0)=" 3      WORLD WAR II - PACIFIC"
^DD(727.809,39,21,7,0)=" 4      KOREAN"
^DD(727.809,39,21,8,0)=" 5      VIETNAM"
^DD(727.809,39,21,9,0)=" 6      OTHER"
^DD(727.809,39,23,0)="^^3^3^3020612^"
^DD(727.809,39,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.809,39,23,2,0)="pointer value to the POW PERIOD file (#22).  The location indicator is"
^DD(727.809,39,23,3,0)="returned by SVC^VADPT."
^DD(727.809,39,"DT")="3020612"
^DD(727.809,40,0)="RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;19^Q"
^DD(727.809,40,.1)="Radiation Status"
^DD(727.809,40,3)="Enter the Radiation Status for the patient."
^DD(727.809,40,21,0)="^^1^1^3020610^"
^DD(727.809,40,21,1,0)="The patient's Ionizing Radiation status. (Y/N/U)"
^DD(727.809,40,23,0)="^^2^2^3020610^"
^DD(727.809,40,23,1,0)="PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103)."
^DD(727.809,40,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.809,40,"DT")="3020610"
^DD(727.809,41,0)="AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;20^Q"
^DD(727.809,41,.1)="Agent Orange Status"
^DD(727.809,41,3)="Enter the Agent Orange Status for the patient."
^DD(727.809,41,21,0)="^^1^1^3020610^^"
^DD(727.809,41,21,1,0)="The patient's Agent Orange status."
^DD(727.809,41,23,0)="^^2^2^3020610^"
^DD(727.809,41,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102)."
^DD(727.809,41,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.809,41,"DT")="3020610"
^DD(727.809,42,0)="AGENT ORANGE LOCATION^F^^1;21^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,42,.1)="Agent Orange Location"
^DD(727.809,42,3)="Answer must be 1 character in length"
^DD(727.809,42,21,0)="^^5^5^3020610^"
^DD(727.809,42,21,1,0)="If AGENT ORANGE STATUS is indicated then this is the Agent Orange Exposure"
^DD(727.809,42,21,2,0)="Location."
^DD(727.809,42,21,3,0)=" "
^DD(727.809,42,21,4,0)="'K' FOR KOREAN DMZ"
^DD(727.809,42,21,5,0)="'V' FOR VIETNAM"
^DD(727.809,42,23,0)="^^3^3^3020610^"
^DD(727.809,42,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOSURE LOCATION field (.3213). "
^DD(727.809,42,23,2,0)="This is a pointer value to the POW PERIOD file (#22). The location"
^DD(727.809,42,23,3,0)="indicator is returned by SVC^VADPT."
^DD(727.809,42,"DT")="3020612"
^DD(727.809,43,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;22^Q"
^DD(727.809,43,.1)="Purple Heart Indicator"
^DD(727.809,43,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.809,43,21,0)="^^4^4^3020610^"
^DD(727.809,43,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.809,43,21,2,0)=" "
^DD(727.809,43,21,3,0)="'Y'  Yes"
^DD(727.809,43,21,4,0)="'N'  No"
^DD(727.809,43,23,0)="^^2^2^3020610^"
^DD(727.809,43,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.809,43,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.809,43,"DT")="3020610"
^DD(727.809,44,0)="MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;^1;23^Q"
^DD(727.809,44,.1)="MST Status"
^DD(727.809,44,3)="Enter the patient's MST Status."
^DD(727.809,44,21,0)="^^5^5^3020610^^"
^DD(727.809,44,21,1,0)="The MST Status of the patient on the date of the outpatient encounter."
^DD(727.809,44,21,2,0)="Possible status values are:"
^DD(727.809,44,21,3,0)="Y = Yes, screened reports MST"
^DD(727.809,44,21,4,0)="N = Screened, does not report MST"
^DD(727.809,44,21,5,0)="D = Screened, declines to answer"
^DD(727.809,44,23,0)="^^5^5^3020610^"
^DD(727.809,44,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual"
^DD(727.809,44,23,2,0)="trauma claims and effective dates.  The patients MST status is stored"
^DD(727.809,44,23,3,0)="in the MST STATUS field (#3).  A call will be made to"
^DD(727.809,44,23,4,0)="$$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO.  DFN "
^DD(727.809,44,23,5,0)="field and the date in the DAY field."
^DD(727.809,44,"DT")="3020610"
^DD(727.809,45,0)="CNH/SH STATUS^F^^1;24^K:$L(X)>3!($L(X)<1) X"
^DD(727.809,45,.1)="CNH/SH Status"
^DD(727.809,45,3)="Answer must be 1-3 characters in length"
^DD(727.809,45,21,0)="^^5^5^3020610^"
^DD(727.809,45,21,1,0)="Answer yes if the patient is in a contract nursing home now.  Otherwise,"
^DD(727.809,45,21,2,0)="answer no."
^DD(727.809,45,21,3,0)=" "
^DD(727.809,45,21,4,0)="'Y'  Yes"
^DD(727.809,45,21,5,0)="'N'  No"
^DD(727.809,45,23,0)="^^1^1^3020610^"
^DD(727.809,45,23,1,0)="PATIENT file (#2); CNH CURRENT field (#148)."
^DD(727.809,45,"DT")="3020610"
^DD(727.809,46,0)="ENROLLMENT LOCATION^F^^1;25^K:$L(X)>7!($L(X)<3) X"
^DD(727.809,46,.1)="Enrollment Location"
^DD(727.809,46,3)="Answer must be 3-7 characters in length"
^DD(727.809,46,21,0)="^^2^2^3020610^"
^DD(727.809,46,21,1,0)="The facility that the patient chooses to designate as his"
^DD(727.809,46,21,2,0)="preferred location for care."
^DD(727.809,46,23,0)="^^5^5^3020610^"
^DD(727.809,46,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2)"
^DD(727.809,46,23,2,0)="is defined as the facility that the patient chooses to designate"
^DD(727.809,46,23,3,0)="as his preferred location for care.  The PREFERRED FACILITY field"
^DD(727.809,46,23,4,0)="(# 27.02) is a pointer to the INSTITUTION file (#4).  From file #4,"
^DD(727.809,46,23,5,0)="the value in the STATION NUMBER field (#99) is used."
^DD(727.809,46,"DT")="3020610"
^DD(727.809,47,0)="ENROLLMENT CATEGORY^F^^1;26^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,47,.1)="Enrollment Category"
^DD(727.809,47,3)="Answer must be 1 character in length"
^DD(727.809,47,21,0)="^^1^1^3020610^"
^DD(727.809,47,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.809,47,23,0)="^^2^2^3020610^"
^DD(727.809,47,23,1,0)="ENROLLMENT CATEGORY is derived from the standard call DGENA4 using the"
^DD(727.809,47,23,2,0)="INPUT patient DFN and the ENROLLMENT STATUS."
^DD(727.809,47,"DT")="3020610"
^DD(727.809,48,0)="ENROLLMENT STATUS^F^^1;27^K:$L(X)>2!($L(X)<1) X"
^DD(727.809,48,.1)="Enrollment Status"
^DD(727.809,48,3)="Answer must be 1-2 characters in length"
^DD(727.809,48,21,0)="^^1^1^3020610^"
^DD(727.809,48,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.809,48,23,0)="^^3^3^3020610^"
^DD(727.809,48,23,1,0)="ENROLLEMENT STATUS is derived from the PATIENT ENROLLMENT file (#27.11)"
^DD(727.809,48,23,2,0)="ENROLLMENT STATUS field (#.04) which is a pointer to the ENROLLMENT STATUS"
^DD(727.809,48,23,3,0)="file (#27.15)."
^DD(727.809,48,"DT")="3020610"
^DD(727.809,49,0)="PLACEHOLDER^F^^1;28^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,49,.1)=""
^DD(727.809,49,3)="Answer must be 1 character in length"
^DD(727.809,49,"DT")="3040301"
^DD(727.809,50,0)="PRIMARY CARE TEAM^F^^1;29^K:$L(X)>4!($L(X)<1) X"
^DD(727.809,50,.1)="Primary Care Team"
^DD(727.809,50,3)="Enter primary care team assigned to this patient."
^DD(727.809,50,21,0)="^^1^1^3020611^^"
^DD(727.809,50,21,1,0)="The primary care team assigned to this patient."
^DD(727.809,50,23,0)="^^6^6^3020611^"
^DD(727.809,50,23,1,0)="Using the DATE field (#2) from the UNIT DOSE EXTRACT DATA file (728.904)"
^DD(727.809,50,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.809,50,23,3,0)="in the the UNIT DOSE LOCAL EXTRACT file (#727.809), a call is made to the"
^DD(727.809,50,23,4,0)="Scheduling API, OUTPTTM^SDUTL3. The API returns the team's internal entry"
^DD(727.809,50,23,5,0)="number and name from the TEAM file (#404.51). Only the pointer (IEN) to"
^DD(727.809,50,23,6,0)="File 404.51 is transmitted."
^DD(727.809,50,"DT")="3020611"
^DD(727.809,51,0)="PRIMARY CARE PROVIDER^F^^1;30^K:$L(X)>11!($L(X)<1) X"
^DD(727.809,51,.1)="Primary Care Provider"
^DD(727.809,51,3)="Enter primary care provider assigned to this patient."
^DD(727.809,51,21,0)="^^1^1^3020611^"
^DD(727.809,51,21,1,0)="The primary care provider assigned to this patient."
^DD(727.809,51,23,0)="^^8^8^3020611^"
^DD(727.809,51,23,1,0)="Using the DATE field (#2) from the UNIT DOSE EXTRACT DATA file"
^DD(727.809,51,23,2,0)="(728.904) and the patient pointer (DFN) stored in the PATIENT NO. - DFN"
^DD(727.809,51,23,3,0)="field (#4) in the the UNIT DOSE LOCAL EXTRACT file (#727.809), a call is"
^DD(727.809,51,23,4,0)="made to the Scheduling API, OUTPTPR^SDUTL3. The API returns the provider's"
^DD(727.809,51,23,5,0)="internal entry number and name from the NEW PERSON file (#200)."
^DD(727.809,51,23,6,0)=" "
^DD(727.809,51,23,7,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.809,51,23,8,0)="is ""200""."
^DD(727.809,51,"DT")="3020611"
^DD(727.809,52,0)="PLACEHOLDER^F^^1;31^K:$L(X)>8!($L(X)<1) X"
^DD(727.809,52,.1)=""
^DD(727.809,52,3)="Answer must be 1-8 characters in length"
^DD(727.809,52,21,0)="^^1^1^3070827^"
^DD(727.809,52,21,1,0)="Currently NULL."
^DD(727.809,52,23,0)="^^1^1^3070827^"
^DD(727.809,52,23,1,0)="Currently NULL."
^DD(727.809,52,"DT")="3070426"
^DD(727.809,53,0)="PC PROVIDER PERSON CLASS^F^^1;32^K:$L(X)>7!($L(X)<7) X"
^DD(727.809,53,.1)="PC Provider Person Class"
^DD(727.809,53,3)="Answer must be 7 characters in length"
^DD(727.809,53,21,0)="^^2^2^3020611^"
^DD(727.809,53,21,1,0)="The VA code associate with the active Person Class of the Primary"
^DD(727.809,53,21,2,0)="Care Provider."
^DD(727.809,53,23,0)="^^3^3^3020611^"
^DD(727.809,53,23,1,0)="A call to $$GET^XUA4A72(PERS,DATE) will be made using the IEN in the"
^DD(727.809,53,23,2,0)="PROVIDER and the date in the DAY field.  The VA Code is always of the"
^DD(727.809,53,23,3,0)="form ""V""_six numeric digits; exactly 7 characters in length. "
^DD(727.809,53,"DT")="3020611"
^DD(727.809,54,0)="ASSOCIATE PC PROVIDER^F^^1;33^K:$L(X)>11!($L(X)<2) X"
^DD(727.809,54,.1)="Associate PC Provider"
^DD(727.809,54,3)="Answer must be 2-11 characters in length"
^DD(727.809,54,21,0)="^^4^4^3020611^^^"
^DD(727.809,54,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.809,54,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.809,54,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.809,54,21,4,0)="character 2."
^DD(727.809,54,23,0)="^^9^9^3020611^"
^DD(727.809,54,23,1,0)="Using the DATE field (#2) from the UNIT DOSE EXTRACT DATA file"
^DD(727.809,54,23,2,0)="(728.904) and the patient pointer (DFN) stored in the PATIENT NO. - DFN"
^DD(727.809,54,23,3,0)="field (#4) in the the UNIT DOSE LOCAL EXTRACT file (#727.809), a call is"
^DD(727.809,54,23,4,0)="made to the Scheduling API, OUTPTPR^SDUTL3. The API returns the"
^DD(727.809,54,23,5,0)="Associate PC Provider's internal entry number and name from the NEW PERSON"
^DD(727.809,54,23,6,0)="file (#200)."
^DD(727.809,54,23,7,0)=" "
^DD(727.809,54,23,8,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.809,54,23,9,0)="is ""200""."
^DD(727.809,54,"DT")="3020611"
^DD(727.809,55,0)="PLACEHOLDER^F^^1;34^K:$L(X)>8!($L(X)<1) X"
^DD(727.809,55,.1)=""
^DD(727.809,55,3)="Answer must be 1-8 characters in length"
^DD(727.809,55,21,0)="^.001^1^1^3070827^^"
^DD(727.809,55,21,1,0)="Currently NULL."
^DD(727.809,55,23,0)="^.001^1^1^3070827^^"
^DD(727.809,55,23,1,0)="Currently NULL."
^DD(727.809,55,"DT")="3070426"
^DD(727.809,56,0)="ASSOC. PC PROV. PERSON CLASS ^F^^1;35^K:$L(X)>7!($L(X)<7) X"
^DD(727.809,56,.1)="Associate PC Provider Person Class"
^DD(727.809,56,3)="Answer must be 7 characters in length"
^DD(727.809,56,21,0)="^^4^4^3020611^"
^DD(727.809,56,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.809,56,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.809,56,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.809,56,21,4,0)="exactly 7 characters in length. "
^DD(727.809,56,23,0)="^^3^3^3020611^"
^DD(727.809,56,23,1,0)="A call to $$GET^XUA4A72(PERS,DATE) will be made using the IEN in the"
^DD(727.809,56,23,2,0)="PROVIDER and the date in the DAY field.  The VA Code is always of the"
^DD(727.809,56,23,3,0)="form ""V""_six numeric digits; exactly 7 characters in length."
^DD(727.809,56,"DT")="3020611"
^DD(727.809,57,0)="ORDERING DATE^F^^2;1^K:$L(X)>8!($L(X)<8) X"
^DD(727.809,57,.1)="Ordering Date"
^DD(727.809,57,3)="Answer must be 8 characters in length."
^DD(727.809,57,21,0)="^^1^1^3020611^"
^DD(727.809,57,21,1,0)="The date the order was started."
^DD(727.809,57,23,0)="^^3^3^3020611^"
^DD(727.809,57,23,1,0)="UNIT DOSE EXTRACT DATA file (728.904); ORDER DATE field (#9).  ORDER DATE"
^DD(727.809,57,23,2,0)="is the START DATE/TIME field (#10) of the UNIT DOSE multiple (file 55.06)"
^DD(727.809,57,23,3,0)="of the PHARMACY PATIENT file (55).  The format is YYYYMMDD."
^DD(727.809,57,"DT")="3020611"
^DD(727.809,58,0)="ORDERING STOP CODE^F^^2;2^K:$L(X)>3!($L(X)<3) X"
^DD(727.809,58,3)="Answer must be 3 characters in length"
^DD(727.809,58,21,0)="^.001^1^1^3050613^^^"
^DD(727.809,58,21,1,0)="The ordering clinic's stop code."
^DD(727.809,58,23,0)="^^15^15^3050613^"
^DD(727.809,58,23,1,0)="For outpatients the stop code is the primary stop code for the clinic"
^DD(727.809,58,23,2,0)="(first 3 characters of the DSS Identifier field of this extract). If none"
^DD(727.809,58,23,3,0)="exists, the value is set to null."
^DD(727.809,58,23,4,0)="                             "
^DD(727.809,58,23,5,0)="For observation patients the stop code is translated using the following"
^DD(727.809,58,23,6,0)="table."
^DD(727.809,58,23,7,0)=" "
^DD(727.809,58,23,8,0)="Treating Specialty      Observation Stop Code"
^DD(727.809,58,23,9,0)="       18                      293"
^DD(727.809,58,23,10,0)="       23                      295"
^DD(727.809,58,23,11,0)="       24                      290"
^DD(727.809,58,23,12,0)="       36                      296"
^DD(727.809,58,23,13,0)="       41                      294"
^DD(727.809,58,23,14,0)="       65                      291"
^DD(727.809,58,23,15,0)="       94                      292"
^DD(727.809,58,"DT")="3020611"
^DD(727.809,59,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^2;3^Q"
^DD(727.809,59,.1)="Head and Neck Cancer Indicator"
^DD(727.809,59,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.809,59,21,0)="^^1^1^3020829^^^"
^DD(727.809,59,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.809,59,23,0)="^^3^3^3020829^"
^DD(727.809,59,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.809,59,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.809,59,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.809,59,"DT")="3020829"
^DD(727.809,60,0)="ETHNICITY^F^^2;4^K:$L(X)>6!($L(X)<1) X"
^DD(727.809,60,.1)="Ethnicity"
^DD(727.809,60,3)="Answer must be 1-6 characters in length."
^DD(727.809,60,21,0)="^^1^1^3020829^"
^DD(727.809,60,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.809,60,23,0)="^^8^8^3021210^"
^DD(727.809,60,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.809,60,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.809,60,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.809,60,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.809,60,23,5,0)=" "
^DD(727.809,60,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.809,60,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.809,60,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.809,60,"DT")="3021210"
^DD(727.809,61,0)="RACE 1^F^^2;5^K:$L(X)>6!($L(X)<1) X"
^DD(727.809,61,.1)="Race 1"
^DD(727.809,61,3)="Answer must be 1-6 characters in length"
^DD(727.809,61,21,0)="^^1^1^3020829^"
^DD(727.809,61,21,1,0)="The patient's PTF Race code(s)."
^DD(727.809,61,23,0)="^^8^8^3020829^"
^DD(727.809,61,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.809,61,23,2,0)="(4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.809,61,23,3,0)="file (#10.2) pointed to by the EHNICITY INFORMATION field (#.01) of the "
^DD(727.809,61,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.809,61,23,5,0)=" "
^DD(727.809,61,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.809,61,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.809,61,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.809,61,"DT")="3020829"
^DD(727.809,62,0)="BCMA DRUG DISPENSED^P50'^PSDRUG(^2;6^Q"
^DD(727.809,62,.1)="BCMA Drug Dispensed"
^DD(727.809,62,21,0)="^.001^2^2^3030624^^^"
^DD(727.809,62,21,1,0)="Pointer to the drug file.  Contains the actual medication scanned for this"
^DD(727.809,62,21,2,0)="entry."
^DD(727.809,62,23,0)="^.001^4^4^3030624^^"
^DD(727.809,62,23,1,0)="BCMA DRUG DISPENSED field is a pointer to the DRUG file (#50).  BCMA DRUG "
^DD(727.809,62,23,2,0)="DISPENSED field is derived from the DISPENSED DRUG field (.01) of the "
^DD(727.809,62,23,3,0)="DISPENSED DRUG multiple (sub-file #53.795) of the BCMA MEDICATION LOG "
^DD(727.809,62,23,4,0)="file (#53.79)."
^DD(727.809,62,"DT")="3030624"
^DD(727.809,63,0)="BCMA DOSE GIVEN^NJ5,2^^2;7^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""3N.N) X"
^DD(727.809,63,.1)="BCMA Dose Given"
^DD(727.809,63,3)="Type a Number between 0 and 50, 2 Decimal Digits"
^DD(727.809,63,21,0)="^.001^1^1^3030624^^"
^DD(727.809,63,21,1,0)="Actual number of units given."
^DD(727.809,63,23,0)="^^3^3^3030624^"
^DD(727.809,63,23,1,0)="BCMA DOSE GIVEN field is derived from the DOSE GIVEN field (.03) of the "
^DD(727.809,63,23,2,0)="DISPENSED DRUG multiple (sub-file #53.795) of the BCMA MEDICATION LOG "
^DD(727.809,63,23,3,0)="file (#53.79)."
^DD(727.809,63,"DT")="3030624"
^DD(727.809,64,0)="BCMA UNIT OF ADMINISTRATION^F^^2;8^K:$L(X)>40!($L(X)<1) X"
^DD(727.809,64,.1)="BCMA Unit of Administration"
^DD(727.809,64,3)="Answer must be 1-40 characters in length."
^DD(727.809,64,21,0)="^.001^1^1^3030624^^"
^DD(727.809,64,21,1,0)="Unit of administration (i.e. TABLET, ML, VIAL)."
^DD(727.809,64,23,0)="^^3^3^3030624^"
^DD(727.809,64,23,1,0)="BCMA UNIT OF ADMINISTRATION field is derived from the UNIT OF ADMINSTRATION "
^DD(727.809,64,23,2,0)="field (.04) of the DISPENSED DRUG multiple (sub-file #53.795) of the BCMA "
^DD(727.809,64,23,3,0)="MEDICATION LOG file (#53.79)."
^DD(727.809,64,"DT")="3030624"
^DD(727.809,65,0)="BCMA ICU FLAG^F^^2;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,65,.1)="BCMA ICU Flag"
^DD(727.809,65,3)="Answer must be 1 character in length"
^DD(727.809,65,21,0)="^^1^1^3030624^"
^DD(727.809,65,21,1,0)="Enter the ICU flag."
^DD(727.809,65,"DT")="3030624"
^DD(727.809,66,0)="ORDERING PROVIDER PERSON CLASS^F^^2;10^K:$L(X)>7!($L(X)<7) X"
^DD(727.809,66,.1)="Ordering Provider Person Class"
^DD(727.809,66,3)="Answer must be 7 characters in length"
^DD(727.809,66,21,0)="^.001^2^2^3030625^^"
^DD(727.809,66,21,1,0)="The VA code of the Person Class of the Ordering Provider as of the date of "
^DD(727.809,66,21,2,0)="this extract record."
^DD(727.809,66,23,0)="^.001^4^4^3030625^^"
^DD(727.809,66,23,1,0)="ORDERING PROVIDER PERSON CLASS format of the field will be V999999, where "
^DD(727.809,66,23,2,0)="the 999999 will be six numeric digits.  ORDERING PROVIDER PERSON CLASS is "
^DD(727.809,66,23,3,0)="the Active Person which is determined by $$GET^XUA4A72(PERS,DATE), where "
^DD(727.809,66,23,4,0)="PERS is the IEN from NEW PERSON file (#200)."
^DD(727.809,66,"DT")="3030624"
^DD(727.809,67,0)="DSS IP #^NJ7,0^^2;11^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.809,67,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.809,67,21,0)="^^2^2^3040318^"
^DD(727.809,67,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.809,67,21,2,0)="patient care product."
^DD(727.809,67,23,0)="^^10^10^3041027^"
^DD(727.809,67,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.809,67,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.809,67,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.809,67,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.809,67,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.809,67,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.809,67,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.809,67,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.809,67,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.809,67,23,10,0)="group identifying the problem."
^DD(727.809,67,"DT")="3031113"
^DD(727.809,68,0)="ENROLLMENT PRIORITY^F^^2;12^K:$L(X)>2!($L(X)<1) X"
^DD(727.809,68,3)="Answer must be 1-2 characters in length."
^DD(727.809,68,21,0)="^^2^2^3040317^"
^DD(727.809,68,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.809,68,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.809,68,23,0)="^^20^20^3041027^"
^DD(727.809,68,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.809,68,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.809,68,23,3,0)=" "
^DD(727.809,68,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.809,68,23,5,0)=" "
^DD(727.809,68,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.809,68,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.809,68,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.809,68,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.809,68,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.809,68,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.809,68,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.809,68,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.809,68,23,14,0)=" "
^DD(727.809,68,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.809,68,23,16,0)=" "
^DD(727.809,68,23,17,0)="                                'a' FOR 1 "
^DD(727.809,68,23,18,0)="                                'c' FOR 3 "
^DD(727.809,68,23,19,0)="                                'e' FOR 5 "
^DD(727.809,68,23,20,0)="                                'g' FOR 7   "
^DD(727.809,68,"DT")="3040301"
^DD(727.809,69,0)="USER ENROLLEE^F^^2;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,69,3)="Answer must be 1 character in length."
^DD(727.809,69,21,0)="^.001^4^4^3040317^^"
^DD(727.809,69,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.809,69,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.809,69,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.809,69,21,4,0)="year's value is contained. "
^DD(727.809,69,"DT")="3040301"
^DD(727.809,70,0)="PATIENT TYPE^F^^2;14^K:$L(X)>2!($L(X)<1) X"
^DD(727.809,70,3)="Answer must be 1-2 characters in length."
^DD(727.809,70,21,0)="^^3^3^3040317^"
^DD(727.809,70,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.809,70,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.809,70,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.809,70,23,0)="^^17^17^3040317^"
^DD(727.809,70,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.809,70,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.809,70,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.809,70,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.809,70,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.809,70,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.809,70,23,7,0)=" "
^DD(727.809,70,23,8,0)="AC= ACTIVE DUTY"
^DD(727.809,70,23,9,0)="AL= ALLIED VETERAN"
^DD(727.809,70,23,10,0)="CO= COLLATERAL"
^DD(727.809,70,23,11,0)="EM= EMPLOYEE"
^DD(727.809,70,23,12,0)="IN= INELIGIBLE"
^DD(727.809,70,23,13,0)="MI= MILITARY RETIREE"
^DD(727.809,70,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.809,70,23,15,0)="NS= NSC VETERAN"
^DD(727.809,70,23,16,0)="SC= SC VETERAN"
^DD(727.809,70,23,17,0)="TR= TRICARE"
^DD(727.809,70,"DT")="3040301"
^DD(727.809,71,0)="CV STATUS ELIGIBILITY^F^^2;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,71,3)="Answer must be 1 character in length."
^DD(727.809,71,21,0)="^.001^3^3^3040318^^^"
^DD(727.809,71,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.809,71,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.809,71,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.809,71,23,0)="^^11^11^3040318^"
^DD(727.809,71,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.809,71,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.809,71,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.809,71,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.809,71,23,5,0)=" "
^DD(727.809,71,23,6,0)=" 1 - qualifies as a CV"
^DD(727.809,71,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.809,71,23,8,0)="-1 - bad DFN or date"
^DD(727.809,71,23,9,0)=" "
^DD(727.809,71,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.809,71,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.809,71,"DT")="3040301"
^DD(727.809,72,0)="CV ELIGIBILITY END DATE^F^^2;16^K:$L(X)>8!($L(X)<1) X"
^DD(727.809,72,3)="Answer must be 1-8 characters in length."
^DD(727.809,72,21,0)="^^3^3^3040317^"
^DD(727.809,72,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.809,72,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.809,72,21,3,0)="Patient File #2 to determine CV Status.  "
^DD(727.809,72,23,0)="^^4^4^3040317^"
^DD(727.809,72,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.809,72,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.809,72,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.809,72,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.809,72,"DT")="3040301"
^DD(727.809,73,0)="ENCOUNTER CV^F^^2;17^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,73,3)="Answer must be 1 character in length."
^DD(727.809,73,21,0)="^^3^3^3040317^"
^DD(727.809,73,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.809,73,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.809,73,21,3,0)="2 to determine CV Status.  "
^DD(727.809,73,23,0)="^^10^10^3040317^"
^DD(727.809,73,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.809,73,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.809,73,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.809,73,23,4,0)="The third piece returns:"
^DD(727.809,73,23,5,0)=" "
^DD(727.809,73,23,6,0)="1 - vet was eligible on date specified"
^DD(727.809,73,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.809,73,23,8,0)=" "
^DD(727.809,73,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.809,73,23,10,0)="'NULL' for 'NO'."
^DD(727.809,73,"DT")="3040301"
^DD(727.809,74,0)="NATIONAL PATIENT RECORD FLAG^F^^2;18^K:$L(X)>1!($L(X)<1) X"
^DD(727.809,74,3)="Answer must be 1 character in length."
^DD(727.809,74,21,0)="^^7^7^3040317^"
^DD(727.809,74,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.809,74,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.809,74,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.809,74,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.809,74,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.809,74,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.809,74,21,7,0)="NULL."
^DD(727.809,74,23,0)="^^7^7^3040317^"
^DD(727.809,74,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.809,74,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.809,74,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.809,74,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.809,74,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.809,74,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.809,74,23,7,0)="NULL."
^DD(727.809,74,"DT")="3040301"
^DD(727.809,75,0)="ERI^F^^2;19^K:$L(X)>2!($L(X)<1) X"
^DD(727.809,75,3)="Answer must be 1-2 characters in length."
^DD(727.809,75,21,0)="^.001^2^2^3060731^^^"
^DD(727.809,75,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.809,75,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.809,75,23,0)="^.001^4^4^3060731^^^^"
^DD(727.809,75,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.809,75,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.809,75,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.809,75,23,4,0)="    Null"
^DD(727.809,75,"DT")="3060731"
^DD(727.809,76,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^2;20^Q"
^DD(727.809,76,21,0)="^.001^2^2^3060626^^"
^DD(727.809,76,21,1,0)="This field is used to indicate that this patient claim exposure while"
^DD(727.809,76,21,2,0)="serving in the Persian Gulf or Somalia."
^DD(727.809,76,23,0)="^^8^8^3060626^"
^DD(727.809,76,23,1,0)="This field is derived from the ENVIRONMENTAL CONTAMINANTS field (#.322013)"
^DD(727.809,76,23,2,0)="in the Patient File (#2) using the patient's DFN. The status indicator is"
^DD(727.809,76,23,3,0)="returned by SVC^VADPT. The SVC^VADPT called is made from routine"
^DD(727.809,76,23,4,0)="PAT^ECXUTL3. The field values are:"
^DD(727.809,76,23,5,0)=" "
^DD(727.809,76,23,6,0)=" Y = YES"
^DD(727.809,76,23,7,0)=" N = NO"
^DD(727.809,76,23,8,0)=" U = UNKNOWN"
^DD(727.809,76,"DT")="3060626"
^DD(727.809,77,0)="OEF/OIF^F^^2;21^K:$L(X)>9!($L(X)<1) X"
^DD(727.809,77,3)="Answer must be 1-9 characters in length."
^DD(727.809,77,21,0)="^^3^3^3070502^"
^DD(727.809,77,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.809,77,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.809,77,21,3,0)="reflects the OEF or OIF where this patient was in combat."
^DD(727.809,77,23,0)="^^12^12^3070502^"
^DD(727.809,77,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.809,77,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.809,77,23,3,0)="reflects the OEF or OIF where this patient was in combat. The value of "
^DD(727.809,77,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.809,77,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.809,77,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.809,77,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.809,77,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.809,77,23,9,0)="field values are one or more combinations of the following: "
^DD(727.809,77,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.809,77,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.809,77,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.809,77,"DT")="3070502"
^DD(727.809,78,0)="OEF/OIF RETURN DATE^F^^2;22^K:$L(X)>8!($L(X)<1) X"
^DD(727.809,78,3)="Answer must be 1-8 characters in length."
^DD(727.809,78,21,0)="^^3^3^3070502^"
^DD(727.809,78,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.809,78,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.809,78,21,3,0)="has a format equal to YYYYMMDD."
^DD(727.809,78,23,0)="^^3^3^3070502^"
^DD(727.809,78,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.809,78,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.809,78,23,3,0)="has a format equal to YYYYMMDD."
^DD(727.809,78,"DT")="3070502"
^DD(727.809,79,0)="ASSOCIATE PC PROVIDER NPI^F^^2;23^K:$L(X)>15!($L(X)<1) X"
^DD(727.809,79,3)="Answer must be 1-15 characters in length."
^DD(727.809,79,21,0)="^^2^2^3070502^"
^DD(727.809,79,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.809,79,21,2,0)="provider. This field has a length of fifteen characters."
^DD(727.809,79,23,0)="^^3^3^3070502^"
^DD(727.809,79,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.809,79,23,2,0)="provider. This field has a length of fifteen characters. The qualified "
^DD(727.809,79,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.809,79,"DT")="3070502"
^DD(727.809,80,0)="PRIMARY CARE PROVIDER NPI^F^^2;24^K:$L(X)>15!($L(X)<1) X"
^DD(727.809,80,3)="Answer must be 1-15 characters in length."
^DD(727.809,80,21,0)="^^2^2^3070502^"
^DD(727.809,80,21,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.809,80,21,2,0)="field has a length of fifteen characters."
^DD(727.809,80,23,0)="^^3^3^3070502^"
^DD(727.809,80,23,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.809,80,23,2,0)="field has a length of fifteen characters. The qualified identifier is "
^DD(727.809,80,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI. "
^DD(727.809,80,"DT")="3070502"
^DD(727.809,81,0)="PROVIDER NPI^F^^2;25^K:$L(X)>15!($L(X)<1) X"
^DD(727.809,81,3)="Answer must be 1-15 characters in length."
^DD(727.809,81,21,0)="^^2^2^3070502^"
^DD(727.809,81,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.809,81,21,2,0)="health care services. This field has a length of fifteen characters. "
^DD(727.809,81,23,0)="^^4^4^3070502^"
^DD(727.809,81,23,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.809,81,23,2,0)="health care services. This field has a length of fifteen characters. The "
^DD(727.809,81,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.809,81,23,4,0)="$$NPI^XUSNPI.  "
^DD(727.809,81,"DT")="3070502"
^DD(727.809,"B","ADMISSION DATE",20)=""
^DD(727.809,"B","ADMISSION TIME",21)=""
^DD(727.809,"B","AGENT ORANGE LOCATION",42)=""
^DD(727.809,"B","AGENT ORANGE STATUS",41)=""
^DD(727.809,"B","ASSOC. PC PROV. PERSON CLASS ",56)=""
^DD(727.809,"B","ASSOCIATE PC PROVIDER",54)=""
^DD(727.809,"B","ASSOCIATE PC PROVIDER NPI",79)=""
^DD(727.809,"B","Admission Date",20)="1"
^DD(727.809,"B","Admission Time",21)="1"
^DD(727.809,"B","Agent Orange Location",42)="1"
^DD(727.809,"B","Agent Orange Status",41)="1"
^DD(727.809,"B","Associate PC Provider",54)="1"
^DD(727.809,"B","BCMA DOSE GIVEN",63)=""
^DD(727.809,"B","BCMA DRUG DISPENSED",62)=""
^DD(727.809,"B","BCMA Dose Given",63)="1"
^DD(727.809,"B","BCMA Drug Dispensed",62)="1"
^DD(727.809,"B","BCMA ICU FLAG",65)=""
^DD(727.809,"B","BCMA ICU Flag",65)="1"
^DD(727.809,"B","BCMA UNIT OF ADMINISTRATION",64)=""
^DD(727.809,"B","BCMA Unit of Administration",64)="1"
^DD(727.809,"B","CNH/SH STATUS",45)=""
^DD(727.809,"B","CNH/SH Status",45)="1"
^DD(727.809,"B","COST",13)=""
^DD(727.809,"B","COUNTY",34)=""
^DD(727.809,"B","CV ELIGIBILITY END DATE",72)=""
^DD(727.809,"B","CV STATUS ELIGIBILITY",71)=""
^DD(727.809,"B","Cost",13)="1"
^DD(727.809,"B","County",34)="1"
^DD(727.809,"B","DATE OF BIRTH",31)=""
^DD(727.809,"B","DAY",8)=""
^DD(727.809,"B","DOM,PRRTP AND SAARTP INDICATOR",25)=""
^DD(727.809,"B","DSS IP #",67)=""
^DD(727.809,"B","DSS PRODUCT DEPARTMENT",23)=""
^DD(727.809,"B","Date of Birth",31)="1"
^DD(727.809,"B","Day",8)="1"
^DD(727.809,"B","ELIGIBILITY",30)=""
^DD(727.809,"B","ENCOUNTER CV",73)=""
^DD(727.809,"B","ENCOUNTER NUMBER",27)=""
^DD(727.809,"B","ENROLLMENT CATEGORY",47)=""
^DD(727.809,"B","ENROLLMENT LOCATION",46)=""
^DD(727.809,"B","ENROLLMENT PRIORITY",68)=""
^DD(727.809,"B","ENROLLMENT STATUS",48)=""
^DD(727.809,"B","ENVIRONMENTAL CONTAMINANTS",76)=""
^DD(727.809,"B","ERI",75)=""
^DD(727.809,"B","ETHNICITY",60)=""
^DD(727.809,"B","EXTRACT NUMBER",2)=""
^DD(727.809,"B","Eligibility",30)="1"
^DD(727.809,"B","Enrollment Category",47)="1"
^DD(727.809,"B","Enrollment Location",46)="1"
^DD(727.809,"B","Enrollment Status",48)="1"
^DD(727.809,"B","Ethnicity",60)="1"
^DD(727.809,"B","Extract Number",2)="1"
^DD(727.809,"B","FACILITY",3)=""
^DD(727.809,"B","Facility",3)="1"
^DD(727.809,"B","HEAD & NECK CANCER INDICATOR",59)=""
^DD(727.809,"B","Head and Neck Cancer Indicator",59)="1"
^DD(727.809,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.809,"B","INVESTIGATIONAL",18)=""
^DD(727.809,"B","In Out Patient Indicator",7)="1"
^DD(727.809,"B","Investigational",18)="1"
^DD(727.809,"B","MASTER PATIENT INDEX",22)=""
^DD(727.809,"B","MEANS TEST",29)=""
^DD(727.809,"B","MOVEMENT FILE #",14)=""
^DD(727.809,"B","MST STATUS",44)=""
^DD(727.809,"B","MST Status",44)="1"
^DD(727.809,"B","Means Test",29)="1"
^DD(727.809,"B","Movement File Number",14)="1"
^DD(727.809,"B","NAME",6)=""
^DD(727.809,"B","NATIONAL PATIENT RECORD FLAG",74)=""
^DD(727.809,"B","NDC",16)=""
^DD(727.809,"B","NEW FEEDER KEY",17)=""
^DD(727.809,"B","Name",6)="1"
^DD(727.809,"B","National Drug Code",16)="1"
^DD(727.809,"B","New Feeder Key",17)="1"
^DD(727.809,"B","OBSERVATION PATIENT INDICATOR",26)=""
^DD(727.809,"B","OEF/OIF",77)=""
^DD(727.809,"B","OEF/OIF RETURN DATE",78)=""
^DD(727.809,"B","ORDERING DATE",57)=""
^DD(727.809,"B","ORDERING PROVIDER PERSON CLASS",66)=""
^DD(727.809,"B","ORDERING STOP CODE",58)=""
^DD(727.809,"B","Ordering Date",57)="1"
^DD(727.809,"B","Ordering Provider Person Class",66)="1"
^DD(727.809,"B","PATIENT NO. - DFN",4)=""
^DD(727.809,"B","PATIENT TYPE",70)=""
^DD(727.809,"B","PC PROVIDER PERSON CLASS",53)=""
^DD(727.809,"B","PC Provider Person Class",53)="1"
^DD(727.809,"B","PERIOD OF SERVICE",37)=""
^DD(727.809,"B","PLACEHOLDER",24)=""
^DD(727.809,"B","PLACEHOLDER",49)=""
^DD(727.809,"B","PLACEHOLDER",52)=""
^DD(727.809,"B","PLACEHOLDER",55)=""
^DD(727.809,"B","POW LOCATION",39)=""
^DD(727.809,"B","POW Location",39)="1"
^DD(727.809,"B","POW STATUS",38)=""
^DD(727.809,"B","POW Status",38)="1"
^DD(727.809,"B","PRIMARY CARE PROVIDER",51)=""
^DD(727.809,"B","PRIMARY CARE PROVIDER NPI",80)=""
^DD(727.809,"B","PRIMARY CARE TEAM",50)=""
^DD(727.809,"B","PRODUCTION DIVISION CODE",28)=""
^DD(727.809,"B","PROVIDER",12)=""
^DD(727.809,"B","PROVIDER NPI",81)=""
^DD(727.809,"B","PURPLE HEART INDICATOR",43)=""
^DD(727.809,"B","Patient No. - DFN",4)="1"
^DD(727.809,"B","Period of Service",37)="1"
^DD(727.809,"B","Primary Care Provider",51)="1"
^DD(727.809,"B","Primary Care Team",50)="1"
^DD(727.809,"B","Provider",12)="1"
^DD(727.809,"B","Purple Heart Indicator",43)="1"
^DD(727.809,"B","QUANTITY",10)=""
^DD(727.809,"B","Quantity",10)="1"
^DD(727.809,"B","RACE 1",61)=""
^DD(727.809,"B","RADIATION STATUS",40)=""
^DD(727.809,"B","Race 1",61)="1"
^DD(727.809,"B","Radiation Status",40)="1"
^DD(727.809,"B","SEQUENCE NUMBER",.01)=""
^DD(727.809,"B","SEX",32)=""
^DD(727.809,"B","SSN",5)=""
^DD(727.809,"B","STATE",33)=""
^DD(727.809,"B","Sequence Number",.01)="1"
^DD(727.809,"B","Sex",32)="1"
^DD(727.809,"B","Social Security Number",5)="1"
^DD(727.809,"B","State",33)="1"
^DD(727.809,"B","TREATING SPECIALTY",15)=""
^DD(727.809,"B","Treating Specialty",15)="1"
^DD(727.809,"B","UDP TIME",19)=""
^DD(727.809,"B","UDP Time",19)="1"
^DD(727.809,"B","USER ENROLLEE",69)=""
^DD(727.809,"B","VA DRUG CLASSIFICATION",9)=""
^DD(727.809,"B","VA Drug Classification",9)="1"
^DD(727.809,"B","VETERAN",36)=""
^DD(727.809,"B","Veteran",36)="1"
^DD(727.809,"B","WARD",11)=""
^DD(727.809,"B","Ward",11)="1"
^DD(727.809,"B","YEAR MONTH",1)=""
^DD(727.809,"B","Year/Month",1)="1"
^DD(727.809,"B","ZIP+4",35)=""
^DD(727.809,"B","Zip+4",35)="1"
^DD(727.809,"GL",0,1,.01)=""
^DD(727.809,"GL",0,2,1)=""
^DD(727.809,"GL",0,3,2)=""
^DD(727.809,"GL",0,4,3)=""
^DD(727.809,"GL",0,5,4)=""
^DD(727.809,"GL",0,6,5)=""
^DD(727.809,"GL",0,7,6)=""
^DD(727.809,"GL",0,8,7)=""
^DD(727.809,"GL",0,9,8)=""
^DD(727.809,"GL",0,10,9)=""
^DD(727.809,"GL",0,11,10)=""
^DD(727.809,"GL",0,12,11)=""
^DD(727.809,"GL",0,13,12)=""
^DD(727.809,"GL",0,14,13)=""
^DD(727.809,"GL",0,15,14)=""
^DD(727.809,"GL",0,16,15)=""
^DD(727.809,"GL",0,17,16)=""
^DD(727.809,"GL",0,18,17)=""
^DD(727.809,"GL",0,19,18)=""
^DD(727.809,"GL",0,20,19)=""
^DD(727.809,"GL",0,21,20)=""
^DD(727.809,"GL",0,22,21)=""
^DD(727.809,"GL",1,1,22)=""
^DD(727.809,"GL",1,2,23)=""
^DD(727.809,"GL",1,3,24)=""
^DD(727.809,"GL",1,4,25)=""
^DD(727.809,"GL",1,5,26)=""
^DD(727.809,"GL",1,6,27)=""
^DD(727.809,"GL",1,7,28)=""
^DD(727.809,"GL",1,8,29)=""
^DD(727.809,"GL",1,9,30)=""
^DD(727.809,"GL",1,10,31)=""
^DD(727.809,"GL",1,11,32)=""
^DD(727.809,"GL",1,12,33)=""
^DD(727.809,"GL",1,13,34)=""
^DD(727.809,"GL",1,14,35)=""
^DD(727.809,"GL",1,15,36)=""
^DD(727.809,"GL",1,16,37)=""
^DD(727.809,"GL",1,17,38)=""
^DD(727.809,"GL",1,18,39)=""
^DD(727.809,"GL",1,19,40)=""
^DD(727.809,"GL",1,20,41)=""
^DD(727.809,"GL",1,21,42)=""
^DD(727.809,"GL",1,22,43)=""
^DD(727.809,"GL",1,23,44)=""
^DD(727.809,"GL",1,24,45)=""
^DD(727.809,"GL",1,25,46)=""
^DD(727.809,"GL",1,26,47)=""
^DD(727.809,"GL",1,27,48)=""
^DD(727.809,"GL",1,28,49)=""
^DD(727.809,"GL",1,29,50)=""
^DD(727.809,"GL",1,30,51)=""
^DD(727.809,"GL",1,31,52)=""
^DD(727.809,"GL",1,32,53)=""
^DD(727.809,"GL",1,33,54)=""
^DD(727.809,"GL",1,34,55)=""
^DD(727.809,"GL",1,35,56)=""
^DD(727.809,"GL",2,1,57)=""
^DD(727.809,"GL",2,2,58)=""
^DD(727.809,"GL",2,3,59)=""
^DD(727.809,"GL",2,4,60)=""
^DD(727.809,"GL",2,5,61)=""
^DD(727.809,"GL",2,6,62)=""
^DD(727.809,"GL",2,7,63)=""
^DD(727.809,"GL",2,8,64)=""
^DD(727.809,"GL",2,9,65)=""
^DD(727.809,"GL",2,10,66)=""
^DD(727.809,"GL",2,11,67)=""
^DD(727.809,"GL",2,12,68)=""
^DD(727.809,"GL",2,13,69)=""
^DD(727.809,"GL",2,14,70)=""
^DD(727.809,"GL",2,15,71)=""
^DD(727.809,"GL",2,16,72)=""
^DD(727.809,"GL",2,17,73)=""
^DD(727.809,"GL",2,18,74)=""
^DD(727.809,"GL",2,19,75)=""
^DD(727.809,"GL",2,20,76)=""
^DD(727.809,"GL",2,21,77)=""
^DD(727.809,"GL",2,22,78)=""
^DD(727.809,"GL",2,23,79)=""
^DD(727.809,"GL",2,24,80)=""
^DD(727.809,"GL",2,25,81)=""
^DD(727.809,"IX",2)=""
^DD(727.809,"RQ",.01)=""
^DD(727.81,0)="FIELD^^83^97"
^DD(727.81,0,"DDA")="N"
^DD(727.81,0,"DIK")="ECX810"
^DD(727.81,0,"DIKOLD")="ECX810"
^DD(727.81,0,"DT")="3021009"
^DD(727.81,0,"IX","AC",727.81,2)=""
^DD(727.81,0,"NM","PRESCRIPTION EXTRACT")=""
^DD(727.81,0,"VR")="3.0"
^DD(727.81,0,"VRPK")="ECX"
^DD(727.81,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.81,.01,.1)="Sequence Number"
^DD(727.81,.01,1,0)="^.1^^0"
^DD(727.81,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.81,.01,21,0)="^^1^1^2960918^^^^"
^DD(727.81,.01,21,1,0)="The record number for this extract entry."
^DD(727.81,.01,23,0)="^^1^1^2960918^^^"
^DD(727.81,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.81,.01,"DT")="2980812"
^DD(727.81,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.81,1,.1)="Year/Month"
^DD(727.81,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.81,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.81,1,3)="Answer must be 6 characters in length."
^DD(727.81,1,21,0)="^^2^2^2970918^^^^"
^DD(727.81,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.81,1,21,2,0)="for which this extract was performed."
^DD(727.81,1,23,0)="^^1^1^2970918^^^^"
^DD(727.81,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.81,1,"DT")="2970924"
^DD(727.81,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.81,2,.1)="Extract Number"
^DD(727.81,2,1,0)="^.1"
^DD(727.81,2,1,1,0)="727.81^AC"
^DD(727.81,2,1,1,1)="S ^ECX(727.81,""AC"",$E(X,1,30),DA)="""""
^DD(727.81,2,1,1,2)="K ^ECX(727.81,""AC"",$E(X,1,30),DA)"
^DD(727.81,2,1,1,3)="DO NOT DELETE."
^DD(727.81,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.81,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.81,2,1,1,"%D",2,0)="in this file."
^DD(727.81,2,1,1,"DT")="2910802"
^DD(727.81,2,3)="Enter the extract number for this extract."
^DD(727.81,2,21,0)="^^2^2^2960918^^^^"
^DD(727.81,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.81,2,21,2,0)="extract."
^DD(727.81,2,23,0)="^^2^2^2960918^^^^"
^DD(727.81,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.81,2,23,2,0)="pick up the header for the mail message."
^DD(727.81,2,"DT")="2960918"
^DD(727.81,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.81,3,.1)="Facility"
^DD(727.81,3,3)="Enter the station number where this extract was performed."
^DD(727.81,3,21,0)="^^1^1^2960918^^^^"
^DD(727.81,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.81,3,23,0)="^^4^4^2960918^^^^"
^DD(727.81,3,23,1,0)="An indicator of the division where this event happened. Using the NAME "
^DD(727.81,3,23,2,0)="field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "
^DD(727.81,3,23,3,0)="derived from the STATION NUMBER field (99) for that pointer number in "
^DD(727.81,3,23,4,0)="the INSTITUTION file (#4)."
^DD(727.81,3,"DT")="2961015"
^DD(727.81,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.81,4,.1)="Patient No. - DFN"
^DD(727.81,4,3)="Enter the name of the patient for this extract record."
^DD(727.81,4,21,0)="^^1^1^2990504^^^^"
^DD(727.81,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.81,4,23,0)="^^3^3^2990504^^^^"
^DD(727.81,4,23,1,0)="Derived from the PATIENT field (2) in the PRESCRIPTION file (#52). "
^DD(727.81,4,23,2,0)="PATIENT NO. - DFN is a pointer to the NAME field (.01) of the PATIENT "
^DD(727.81,4,23,3,0)="file (#2). This data represents the patient DFN."
^DD(727.81,4,"DT")="2961015"
^DD(727.81,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.81,5,.1)="Social Security Number"
^DD(727.81,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.81,5,21,0)="^^4^4^2990504^^^^"
^DD(727.81,5,21,1,0)="The patient's social security number."
^DD(727.81,5,21,2,0)=" "
^DD(727.81,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.81,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.81,5,23,0)="^^6^6^2990504^^^"
^DD(727.81,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.81,5,23,2,0)="in the PRESCRIPTION EXTRACT file (#727.81), SSN data is derived from the"
^DD(727.81,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.81,5,23,4,0)=" "
^DD(727.81,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.81,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.81,5,"DT")="2960918"
^DD(727.81,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.81,6,.1)="Name"
^DD(727.81,6,3)="Your answer must be 4 characters in length."
^DD(727.81,6,21,0)="^^1^1^2961021^^^^"
^DD(727.81,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.81,6,23,0)="^^4^4^2961021^^"
^DD(727.81,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.81,6,23,2,0)="in the PRESCRIPTION EXTRACT file (#727.81), NAME data is derived from the"
^DD(727.81,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). The first four characters of"
^DD(727.81,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.81,6,"DT")="2960918"
^DD(727.81,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,7,.1)="In Out Patient Indicator"
^DD(727.81,7,3)="Answer must be 1 character in length."
^DD(727.81,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.81,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for"
^DD(727.81,7,21,2,0)="this extract entry."
^DD(727.81,7,"DT")="3011129"
^DD(727.81,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.81,8,.1)="Day"
^DD(727.81,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.81,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.81,8,3)="Answer must be 8 characters in length."
^DD(727.81,8,21,0)="^^2^2^2970918^^^^"
^DD(727.81,8,21,1,0)="This 8-character string represents the date on which the Prescription"
^DD(727.81,8,21,2,0)="fill/refill was released."
^DD(727.81,8,23,0)="^^19^19^2971113^^^^"
^DD(727.81,8,23,1,0)="If the version of Outpatient Pharmacy is prior to V. 6.0, DAY is "
^DD(727.81,8,23,2,0)="derived from $E(DATE,6,7) where date is the FILL DATE field (22) of "
^DD(727.81,8,23,3,0)="the PRESCRIPTION file (#52)."
^DD(727.81,8,23,4,0)="  "
^DD(727.81,8,23,5,0)="Data source for Outpatient Pharmacy v6.0 and later:"
^DD(727.81,8,23,6,0)=" "
^DD(727.81,8,23,7,0)="PRESCRIPTION file (#52); REFILL sub-file (#52.1); "
^DD(727.81,8,23,8,0)="   RELEASED DATE/TIME field (#17)"
^DD(727.81,8,23,9,0)="   "
^DD(727.81,8,23,10,0)="or"
^DD(727.81,8,23,11,0)="   "
^DD(727.81,8,23,12,0)="PRESCRIPTION file (#52); PARTIAL DATE sub-file (#52.2);"
^DD(727.81,8,23,13,0)="   RELEASED DATE/TIME field (#8)"
^DD(727.81,8,23,14,0)=" "
^DD(727.81,8,23,15,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.81,8,23,16,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.81,8,23,17,0)="then a default is used.  The default date value is the value of the "
^DD(727.81,8,23,18,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.81,8,23,19,0)="Year 2000 compliant per vendor."
^DD(727.81,8,"DT")="2970924"
^DD(727.81,9,0)="DIVISION^P59'^PS(59,^0;10^Q"
^DD(727.81,9,.1)="Division"
^DD(727.81,9,3)="Enter the outpatient pharmacy site."
^DD(727.81,9,21,0)="^^1^1^2961015^^^"
^DD(727.81,9,21,1,0)="The outpatient pharmacy site for this extract entry."
^DD(727.81,9,23,0)="^^7^7^2961015^^^^"
^DD(727.81,9,23,1,0)="For new prescriptions, DIVISION is derived from the DIVISION field "
^DD(727.81,9,23,2,0)="(20) of the PRESCRIPTION file (#52). For refill prescriptions, "
^DD(727.81,9,23,3,0)="DIVISION is derived from the DIVISION field (8) within the REFILL "
^DD(727.81,9,23,4,0)="multiple (52) of the PRESCRIPTION file (#52). For partial prescriptions, "
^DD(727.81,9,23,5,0)="DIVISION is derived from the DIVISION field (.09) within the PARTIAL "
^DD(727.81,9,23,6,0)="DATE multiple (60) of the PRESCRIPTION file (#52). DIVISION is a pointer "
^DD(727.81,9,23,7,0)="to the OUTPATIENT SITE file (#59)"
^DD(727.81,9,"DT")="2960918"
^DD(727.81,10,0)="PROVIDER^F^^0;11^K:$L(X)>11!($L(X)<1) X"
^DD(727.81,10,.1)="Provider"
^DD(727.81,10,3)="Enter provider for this record."
^DD(727.81,10,21,0)="^^1^1^2980608^^^^"
^DD(727.81,10,21,1,0)="The provider assigned to this patient."
^DD(727.81,10,23,0)="^^9^9^2980608^^^^"
^DD(727.81,10,23,1,0)="Derived from the PROVIDER field (4) in the PRESCRIPTION file (#52) "
^DD(727.81,10,23,2,0)="for new prescriptions, or from the PROVIDER field (15) within the REFILL "
^DD(727.81,10,23,3,0)="multiple (52) in the PRESCRIPTION file (#52) for refill prescriptions, "
^DD(727.81,10,23,4,0)="or from the PROVIDER field (6) within the PARTIAL DATE multiple (60) in "
^DD(727.81,10,23,5,0)="the PRESCRIPTION file (#52) for partial prescriptions."
^DD(727.81,10,23,6,0)="  "
^DD(727.81,10,23,7,0)="If PROVIDER is a pointer to the NEW PERSON file (#200), it is stored as "
^DD(727.81,10,23,8,0)="""2""_pointer value. If PROVIDER is a pointer to the PROVIDER file (#6), "
^DD(727.81,10,23,9,0)="it is stored as ""6""_pointer value."
^DD(727.81,10,"DT")="2961015"
^DD(727.81,11,0)="VA DRUG CLASSIFICATION^F^^0;12^K:$L(X)>5!($L(X)<5) X"
^DD(727.81,11,.1)="VA Drug Classification"
^DD(727.81,11,3)="Your answer must be 5 characters in length."
^DD(727.81,11,21,0)="^^1^1^2980702^^"
^DD(727.81,11,21,1,0)="The VA Drug Classification for the drug/supply item in this prescription."
^DD(727.81,11,23,0)="^^2^2^2980702^^"
^DD(727.81,11,23,1,0)="Derived from the VA CLASSIFICATION field (2) in the DRUG file (#50) for"
^DD(727.81,11,23,2,0)="the drug identified by the DRUG field (6) in the PRESCRIPTION file (#52)."
^DD(727.81,11,"DT")="2960918"
^DD(727.81,12,0)="MAIL^F^^0;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,12,.1)="Mail"
^DD(727.81,12,3)="Your answer must be 1 character in length."
^DD(727.81,12,21,0)="^^2^2^2990525^^^^"
^DD(727.81,12,21,1,0)="Data will be 1 if this prescription was mailed from the VAMC or a 2 "
^DD(727.81,12,21,2,0)="if mailed from a CMOP."
^DD(727.81,12,23,0)="^^6^6^2990525^^^^"
^DD(727.81,12,23,1,0)="Derived from the MAIL/WINDOW field (#11) in the PRESCRIPTION file "
^DD(727.81,12,23,2,0)="(#52) for new prescriptions, or from the MAIL/WINDOW field (#2) within "
^DD(727.81,12,23,3,0)="the REFILL multiple (#52) in the PRESCRIPTION file (#52) for refill "
^DD(727.81,12,23,4,0)="prescriptions, or from the MAIL/WINDOW field (#.02) within the PARTIAL "
^DD(727.81,12,23,5,0)="DATE multiple (#60) in the PRESCRIPTION file (#52) for partial "
^DD(727.81,12,23,6,0)="prescriptions."
^DD(727.81,12,"DT")="2960918"
^DD(727.81,13,0)="PROVIDER PERSON CLASS^F^^0;14^K:$L(X)>7!($L(X)<7) X"
^DD(727.81,13,.1)=""
^DD(727.81,13,3)="Answer must be 7 characters in length."
^DD(727.81,13,21,0)="^^1^1^2990505^^^"
^DD(727.81,13,21,1,0)="The VA code associate with the active Person Class of the provider."
^DD(727.81,13,23,0)="^^3^3^2990505^^^"
^DD(727.81,13,23,1,0)="A call to $$GET^XUA4A72(PERS,DATE) will be made using the IEN in the"
^DD(727.81,13,23,2,0)="PROVIDER and the date in the DAY field.  The VA Code is always of the"
^DD(727.81,13,23,3,0)="form ""V""_six numeric digits; exactly 7 characters in length. "
^DD(727.81,13,"DT")="2990505"
^DD(727.81,14,0)="NEW^F^^0;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,14,.1)="New"
^DD(727.81,14,3)="Your answer must be 1 character in length."
^DD(727.81,14,21,0)="^^1^1^2980702^^^^"
^DD(727.81,14,21,1,0)="Data will be 1 if this is a new prescription."
^DD(727.81,14,23,0)="^^17^17^2980702^^^"
^DD(727.81,14,23,1,0)="If the version of Outpatient Pharmacy is prior to V. 6.0, examine "
^DD(727.81,14,23,2,0)="the ""AD"" cross reference on the FILL DATE field (22) of the "
^DD(727.81,14,23,3,0)="PRESCRIPTION file (#52) for new prescriptions or the REFILL DATE "
^DD(727.81,14,23,4,0)="field (.01) within the REFILL multiple (52) of the PRESCRIPTION "
^DD(727.81,14,23,5,0)="file (#52) for refill prescriptions. Cross reference is "
^DD(727.81,14,23,6,0)="^PSRX(""AD"",DATE,D0,REFILL# or 0 for new RX)."
^DD(727.81,14,23,7,0)="  "
^DD(727.81,14,23,8,0)="If the version of Outpatient Pharmacy is V. 6.0 or greater:"
^DD(727.81,14,23,9,0)="1.  Examine the ""AL"" cross reference on the RELEASED DATE/TIME "
^DD(727.81,14,23,10,0)="field (31) of the PRESCRIPTION file (#52) for new prescriptions or the "
^DD(727.81,14,23,11,0)="RELEASED DATE/TIME field (17) within the REFILL multiple (52) of the "
^DD(727.81,14,23,12,0)="PRESCRIPTION file (#52) for refill prescriptions. Cross reference is "
^DD(727.81,14,23,13,0)="^PSRX(""AL"",DATE,D0,REFILL# or 0 for new RX)."
^DD(727.81,14,23,14,0)="2.  Examine the ""AM"" cross reference on the RELEASED DATE/TIME "
^DD(727.81,14,23,15,0)="field (8) within the PARTIAL DATE multiple (60) of the PRESCRIPTION "
^DD(727.81,14,23,16,0)="file (#52) for partial prescriptions. Cross reference is "
^DD(727.81,14,23,17,0)="^PSRX(""AM"",DATE,D0,PARTIAL_REFILL#)."
^DD(727.81,14,"DT")="2960918"
^DD(727.81,15,0)="PLACEHOLDER2^F^^0;16^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,15,.1)="Placeholder2"
^DD(727.81,15,3)="Your answer must be 1 character in length."
^DD(727.81,15,21,0)="^^1^1^2961021^^"
^DD(727.81,15,21,1,0)="This field marked as a placeholder for future use."
^DD(727.81,15,23,0)="^^1^1^2961021^^"
^DD(727.81,15,23,1,0)="This field marked as a placeholder for future use."
^DD(727.81,15,"DT")="2961015"
^DD(727.81,16,0)="QUANTITY^F^^0;17^K:$L(X)>8!($L(X)<1) X"
^DD(727.81,16,.1)="Quantity"
^DD(727.81,16,3)="Answer must be 1-8 characters in length"
^DD(727.81,16,21,0)="^^1^1^2961015^^^"
^DD(727.81,16,21,1,0)="Quantity of drug dispensed."
^DD(727.81,16,23,0)="^^5^5^2961015^^^^"
^DD(727.81,16,23,1,0)="Derived from the QTY field (7) in the PRESCRIPTION file (#52) for new "
^DD(727.81,16,23,2,0)="prescriptions, or from the QTY field (1) within the REFILL multiple (52) "
^DD(727.81,16,23,3,0)="in the PRESCRIPTION file (#52) for refill prescriptions, or from the QTY "
^DD(727.81,16,23,4,0)="field (.04) within the PARTIAL DATE multiple (60) in the PRESCRIPTION "
^DD(727.81,16,23,5,0)="file (#52) for partial prescriptions."
^DD(727.81,16,"DT")="3001005"
^DD(727.81,17,0)="COST^NJ8,2^^0;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(727.81,17,.1)="Cost"
^DD(727.81,17,3)="Enter a dollar amount between 0 and 10000, 2 decimal digits."
^DD(727.81,17,21,0)="^^1^1^2961015^^^"
^DD(727.81,17,21,1,0)="Cost of drug dispensed."
^DD(727.81,17,23,0)="^^14^14^2961015^^^^"
^DD(727.81,17,23,1,0)="Cost is calculated as quantity * price."
^DD(727.81,17,23,2,0)="  "
^DD(727.81,17,23,3,0)="Quantity is derived from the QTY field (7) in the PRESCRIPTION file "
^DD(727.81,17,23,4,0)="(#52) for new prescriptions, or from the QTY field (1) within the REFILL "
^DD(727.81,17,23,5,0)="multiple (52) in the PRESCRIPTION file (#52) for refill prescriptions, "
^DD(727.81,17,23,6,0)="or from the QTY field (.04) within the PARTIAL DATE multiple (60) in the "
^DD(727.81,17,23,7,0)="PRESCRIPTION file (#52) for partial prescriptions."
^DD(727.81,17,23,8,0)="  "
^DD(727.81,17,23,9,0)="Price is derived from the UNIT PRICE OF DRUG is field (17) in the "
^DD(727.81,17,23,10,0)="PRESCRIPTION file (#52) for new prescriptions, or from the CURRENT UNIT "
^DD(727.81,17,23,11,0)="PRICE OF DRUG field (1.2) within the REFILL multiple (52) in the "
^DD(727.81,17,23,12,0)="PRESCRIPTION file (#52) for refill prescriptions, or from the CURRENT "
^DD(727.81,17,23,13,0)="UNIT PRICE OF DRUG field (.042) within the PARTIAL DATE multiple (60) in "
^DD(727.81,17,23,14,0)="the PRESCRIPTION file (#52) for partial prescriptions."
^DD(727.81,17,"DT")="2960918"
^DD(727.81,18,0)="PLACEHOLDER3^F^^0;19^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,18,.1)="Placeholder3"
^DD(727.81,18,3)="Answer must be 1 character in length."
^DD(727.81,18,21,0)="^^1^1^2961021^^"
^DD(727.81,18,21,1,0)="This field marked as a placeholder for future use."
^DD(727.81,18,23,0)="^^1^1^2961021^^^"
^DD(727.81,18,23,1,0)="This field marked as a placeholder for future use."
^DD(727.81,18,"DT")="2961015"
^DD(727.81,19,0)="MOVEMENT FILE #^P405'^DGPM(^0;20^Q"
^DD(727.81,19,.1)="Movement File Number"
^DD(727.81,19,3)="Enter the patient movement number associated with this extract record."
^DD(727.81,19,21,0)="^^1^1^2961015^^^^"
^DD(727.81,19,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.81,19,23,0)="^^4^4^2961015^^^^"
^DD(727.81,19,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.81,19,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.81,19,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.81,19,23,4,0)="(#405)."
^DD(727.81,19,"DT")="2960918"
^DD(727.81,20,0)="TREATING SPECIALTY^F^^0;21^K:$L(X)>3!($L(X)<2) X"
^DD(727.81,20,.1)="Treating Specialty"
^DD(727.81,20,3)="Answer must be 2-3 characters in length"
^DD(727.81,20,21,0)="^^3^3^3070502^"
^DD(727.81,20,21,1,0)="The treating specialty PTF CODE assigned to this patient when the"
^DD(727.81,20,21,2,0)="prescription was issued, if the patient was an inpatient at that time."
^DD(727.81,20,21,3,0)="Otherwise, this field is null."
^DD(727.81,20,23,0)="^.001^7^7^3070502^^^"
^DD(727.81,20,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.81,20,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.81,20,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.81,20,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.81,20,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.81,20,23,6,0)="SPECIALTY file (#42.4).  Then, the PTF Code is obtained and stored "
^DD(727.81,20,23,7,0)="instead of the actual specialty code."
^DD(727.81,20,"DT")="3070420"
^DD(727.81,21,0)="PLACEHOLDER4^F^^0;22^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,21,.1)="Placeholder4"
^DD(727.81,21,3)="Your answer must be 1 character in length."
^DD(727.81,21,21,0)="^^1^1^2961021^^"
^DD(727.81,21,21,1,0)="This field marked as a placeholder for future use."
^DD(727.81,21,23,0)="^^1^1^2961021^^"
^DD(727.81,21,23,1,0)="This field marked as a placeholder for future use."
^DD(727.81,21,"DT")="2961015"
^DD(727.81,22,0)="UNIT OF ISSUE^F^^0;23^K:$L(X)>10!($L(X)<1) X"
^DD(727.81,22,.1)="Unit of Issue"
^DD(727.81,22,3)="Answer must be 1-10 characters in length."
^DD(727.81,22,21,0)="^^1^1^2961015^^^"
^DD(727.81,22,21,1,0)="This units in which this item was dispensed."
^DD(727.81,22,23,0)="^^3^3^2961015^^^"
^DD(727.81,22,23,1,0)="Derived from the DISPENSE UNIT field (14.5) in the DRUG file (#50) "
^DD(727.81,22,23,2,0)="for the drug identified by the DRUG field (6) in the PRESCRIPTION "
^DD(727.81,22,23,3,0)="file (#52)."
^DD(727.81,22,"DT")="2961015"
^DD(727.81,23,0)="DATE OF BIRTH^FO^^0;24^K:$L(X)>8!($L(X)<8) X"
^DD(727.81,23,.1)="Date of Birth"
^DD(727.81,23,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.81,23,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.81,23,3)="Answer must be 8 characters in length."
^DD(727.81,23,21,0)="^^2^2^2970918^^^^"
^DD(727.81,23,21,1,0)="The patient's date of birth between December 31,1870 and today's date"
^DD(727.81,23,21,2,0)="represented by an 8-character numeric string."
^DD(727.81,23,23,0)="^^9^9^2971113^^^^"
^DD(727.81,23,23,1,0)="Data source:"
^DD(727.81,23,23,2,0)=" "
^DD(727.81,23,23,3,0)="PRESCRIPTION file (#52); PATIENT field (#2)"
^DD(727.81,23,23,4,0)="   then to PATIENT file (#2); DATE OF BIRTH field (#.03)"
^DD(727.81,23,23,5,0)=" "
^DD(727.81,23,23,6,0)="If Date of Birth cannot be determined, then January 1, 1942, is"
^DD(727.81,23,23,7,0)="used as default.  The data element is always exactly 8 numberic"
^DD(727.81,23,23,8,0)="characters in length.  Format is YYYYMMDD.  Year 2000 compliant"
^DD(727.81,23,23,9,0)="per vendor."
^DD(727.81,23,"DT")="2970924"
^DD(727.81,24,0)="ELIGIBILITY^RF^^0;25^K:$L(X)>3!($L(X)<1) X"
^DD(727.81,24,.1)="Eligibility"
^DD(727.81,24,3)="Answer must be 1-3 characters in length."
^DD(727.81,24,21,0)="^^1^1^2990504^^^^"
^DD(727.81,24,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.81,24,23,0)="^^11^11^2990504^^^^"
^DD(727.81,24,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.81,24,23,2,0)="in the PRESCRIPTION EXTRACT file (#727.81), ELIGIBILITY data is derived "
^DD(727.81,24,23,3,0)="from the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file (#2). "
^DD(727.81,24,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8). "
^DD(727.81,24,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (8) in the "
^DD(727.81,24,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS "
^DD(727.81,24,23,7,0)="ELIGIBILITY CODE file (#8.1). "
^DD(727.81,24,23,8,0)=" "
^DD(727.81,24,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.81,24,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.81,24,23,11,0)="two or three numeric characters."
^DD(727.81,24,"DT")="2990504"
^DD(727.81,25,0)="VETERAN^S^Y:YES;N:NO;^0;26^Q"
^DD(727.81,25,.1)="Veteran"
^DD(727.81,25,3)="Select the appropriate veteran status for this patient."
^DD(727.81,25,21,0)="^^1^1^2961021^^^^"
^DD(727.81,25,21,1,0)="Data is Y if the patient is a veteran, N if not."
^DD(727.81,25,23,0)="^^3^3^2961021^^"
^DD(727.81,25,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.81,25,23,2,0)="in the PRESCRIPTION EXTRACT file (#727.81), VETERAN data is derived from"
^DD(727.81,25,23,3,0)="the VETERAN (Y/N)? field (1901) in the PATIENT file (#2)."
^DD(727.81,25,"DT")="2960918"
^DD(727.81,26,0)="COPAY^RS^1:YES;0:NO;^0;27^Q"
^DD(727.81,26,.1)="Copay"
^DD(727.81,26,3)="Enter 1 if this prescription was billed for copay."
^DD(727.81,26,21,0)="^^1^1^2961015^^^^"
^DD(727.81,26,21,1,0)="This field indicates whether this prescription was billed for copay."
^DD(727.81,26,23,0)="^^5^5^2961015^^^^"
^DD(727.81,26,23,1,0)="Derived from the existence of the IB NUMBER field (106) in the "
^DD(727.81,26,23,2,0)="PRESCRIPTION file (#52) for new prescriptions or from the IB NUMBER "
^DD(727.81,26,23,3,0)="field (9) within the REFILL multiple (52) in the PRESCRIPTION file "
^DD(727.81,26,23,4,0)="(#52) for refill prescriptions. If that field is not null, the "
^DD(727.81,26,23,5,0)="prescription was billed for copay and this field is set to 1."
^DD(727.81,26,"DT")="2960918"
^DD(727.81,27,0)="FEEDER KEY^RF^^0;28^K:$L(X)>19!($L(X)<17) X"
^DD(727.81,27,.1)="Feeder Key"
^DD(727.81,27,3)="Answer must be 17-19 characters in length."
^DD(727.81,27,21,0)="^^5^5^2990510^^^^"
^DD(727.81,27,21,1,0)="The Feeder Key for the drug in this record.  The format of the Feeder Key"
^DD(727.81,27,21,2,0)="depends on the version of NATIONAL DRUG FILE installed at the site.  If the"
^DD(727.81,27,21,3,0)="site is running NDF v4.0 (or later), the Feeder Key has a 17-digit format."
^DD(727.81,27,21,4,0)="If the site is running an earlier version of NDF, then the Feeder Key has"
^DD(727.81,27,21,5,0)="a 19-digit format."
^DD(727.81,27,23,0)="^^20^20^2990510^^^^"
^DD(727.81,27,23,1,0)="FEEDER KEY is derived for the drug identified by the DRUG field (#6) "
^DD(727.81,27,23,2,0)="in the PRESCRIPTION file (#52), which is a pointer to the DRUG file"
^DD(727.81,27,23,3,0)="(#50)."
^DD(727.81,27,23,4,0)="  "
^DD(727.81,27,23,5,0)="If the sites is running a version of NDF prior to NDF v4.0:"
^DD(727.81,27,23,6,0)="The NATIONAL DRUG FILE ENTRY field (#20) from the DRUG file (#50),"
^DD(727.81,27,23,7,0)="which is a pointer to the NATIONAL DRUG file (#50.6), is padded to"
^DD(727.81,27,23,8,0)="4 digits.  The PSNDF VA PRODUCT NAME ENTRY field (#22) from the "
^DD(727.81,27,23,9,0)="DRUG file (#50), which is a pointer to the VA Product Name in the"
^DD(727.81,27,23,10,0)="NATIONAL DRUG file (#50.6), is padded to 3 digits. These two data"
^DD(727.81,27,23,11,0)="elements are concatenated together to form a 7-digit string."
^DD(727.81,27,23,12,0)="This is concatenated with a 12-digit code derived from the NDC field"
^DD(727.81,27,23,13,0)="(#31) from the DRUG file (#50) to form a 19-digit Feeder Key."
^DD(727.81,27,23,14,0)="  "
^DD(727.81,27,23,15,0)="If the site is running NDF v4.0 (or later):"
^DD(727.81,27,23,16,0)="The PSNDF VA PRODUCT NAME ENTRY field (#22) from the DRUG file (#50), "
^DD(727.81,27,23,17,0)="which is a pointer to the VA PRODUCT file (#50.68) is padded to 5"
^DD(727.81,27,23,18,0)="digits.  This is concatenated with a 12-digit code derived from the"
^DD(727.81,27,23,19,0)="NDC field (#31) from the DRUG file (#50) to form a 17-digit Feeder"
^DD(727.81,27,23,20,0)="Key."
^DD(727.81,27,"DT")="2990510"
^DD(727.81,28,0)="INVESTIGATIONAL^S^I:INVESTIGATIONAL;^0;29^Q"
^DD(727.81,28,.1)="Investigational"
^DD(727.81,28,3)="Enter I if the drug is investigational."
^DD(727.81,28,21,0)="^^2^2^2961015^^^"
^DD(727.81,28,21,1,0)="This field contains the letter I if the drug in this record is "
^DD(727.81,28,21,2,0)="investigational. Otherwise it is null."
^DD(727.81,28,23,0)="^^2^2^2961015^^^^"
^DD(727.81,28,23,1,0)="Derived from the DEA, SPECIAL HDLG field (3) in the DRUG file (#50)."
^DD(727.81,28,23,2,0)="If the DEA, SPECIAL HDLG field contains an I, this field is set to I."
^DD(727.81,28,"DT")="2960918"
^DD(727.81,29,0)="DAYS SUPPLY^NJ3,0^^0;30^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.81,29,.1)="Days Supply"
^DD(727.81,29,3)="Enter a number between 1 and 31, 0 decimal digits."
^DD(727.81,29,21,0)="^^1^1^2961015^^^"
^DD(727.81,29,21,1,0)="The number of days covered by this prescription."
^DD(727.81,29,23,0)="^^6^6^2961015^^^"
^DD(727.81,29,23,1,0)="Derived from the DAYS SUPPLY field (8) in the PRESCRIPTION file "
^DD(727.81,29,23,2,0)="(#52) for new prescriptions, or from the DAYS SUPPLY field (1.1) "
^DD(727.81,29,23,3,0)="within the REFILL multiple (52) in the PRESCRIPTION file (#52) for "
^DD(727.81,29,23,4,0)="refill prescriptions, or from the DAYS SUPPLY field (.041) within the "
^DD(727.81,29,23,5,0)="PARTIAL DATE multiple (60) in the PRESCRIPTION file (#52) for partial "
^DD(727.81,29,23,6,0)="prescriptions."
^DD(727.81,29,"DT")="2960918"
^DD(727.81,30,0)="PRIMARY CARE TEAM^F^^0;31^K:$L(X)>4!($L(X)<1) X"
^DD(727.81,30,.1)="Primary Care Team"
^DD(727.81,30,3)="Enter primary care team assigned to this patient."
^DD(727.81,30,21,0)="^^1^1^2961030^^^^"
^DD(727.81,30,21,1,0)="The primary care team assigned to this patient."
^DD(727.81,30,23,0)="^^6^6^2961030^^^"
^DD(727.81,30,23,1,0)="Using the RELEASED DATE/TIME (V. 6 or >) field or the FILL DATE (V. <6)"
^DD(727.81,30,23,2,0)="field from the PRESCRIPTION file (#52) and the patient pointer (DFN)"
^DD(727.81,30,23,3,0)="stored in the PATIENT NO. - DFN field (4) in the PRESCRIPTION EXTRACT"
^DD(727.81,30,23,4,0)="file (#727.81), a call is made to the Scheduling API, OUTPTTM^SDUTL3. "
^DD(727.81,30,23,5,0)="The API returns the team's internal entry number and name from the TEAM "
^DD(727.81,30,23,6,0)="file (#404.51). Only the pointer (IEN) to File 404.51 is transmitted."
^DD(727.81,30,"DT")="2961030"
^DD(727.81,31,0)="PRIMARY CARE PROVIDER^F^^0;32^K:$L(X)>11!($L(X)<1) X"
^DD(727.81,31,.1)="Primary Care Provider"
^DD(727.81,31,3)="Enter primary care provider assigned to this patient."
^DD(727.81,31,21,0)="^^1^1^2980708^^^^"
^DD(727.81,31,21,1,0)="The primary care provider assigned to this patient."
^DD(727.81,31,23,0)="^^9^9^2980708^^^^"
^DD(727.81,31,23,1,0)="Using the RELEASED DATE/TIME (V. 6 or >) field or the FILL DATE (V. <6)"
^DD(727.81,31,23,2,0)="field from the PRESCRIPTION file (#52) and the patient pointer (DFN)"
^DD(727.81,31,23,3,0)="stored in the PATIENT NO. - DFN field (4) in the PRESCRIPTION EXTRACT"
^DD(727.81,31,23,4,0)="file (#727.81), a call is made to the Scheduling API, OUTPTPR^SDUTL3. "
^DD(727.81,31,23,5,0)="The API returns the provider's internal entry number and name from the "
^DD(727.81,31,23,6,0)="NEW PERSON file (#200). "
^DD(727.81,31,23,7,0)=" "
^DD(727.81,31,23,8,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.81,31,23,9,0)="is ""200""."
^DD(727.81,31,"DT")="2961015"
^DD(727.81,32,0)="TIME^FO^^0;33^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.81,32,.1)="Time"
^DD(727.81,32,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.81,32,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.81,32,3)="Answer must be 6 characters in length."
^DD(727.81,32,21,0)="^^2^2^2970918^^^^"
^DD(727.81,32,21,1,0)="A 6-character numeric string that represents the time of day at"
^DD(727.81,32,21,2,0)="which the Presription fill/refill was released."
^DD(727.81,32,23,0)="^^15^15^2971113^^^^"
^DD(727.81,32,23,1,0)="If the version of Outpatient Pharmacy is prior to V. 6.0, TIME is "
^DD(727.81,32,23,2,0)="derived from the FILL DATE field (22) of the PRESCRIPTION file (#52)."
^DD(727.81,32,23,3,0)="  "
^DD(727.81,32,23,4,0)="Data source for Outpatient Pharmacy v6.0 and later:"
^DD(727.81,32,23,5,0)=" "
^DD(727.81,32,23,6,0)="PRESCRIPTION file (#52); REFILL sub-file (#52.1); "
^DD(727.81,32,23,7,0)="   RELEASED DATE/TIME field (#17)"
^DD(727.81,32,23,8,0)="   "
^DD(727.81,32,23,9,0)="or"
^DD(727.81,32,23,10,0)="   "
^DD(727.81,32,23,11,0)="PRESCRIPTION file (#52); PARTIAL DATE sub-file (#52.2);"
^DD(727.81,32,23,12,0)="   RELEASED DATE/TIME field (#8)"
^DD(727.81,32,23,13,0)="  "
^DD(727.81,32,23,14,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.81,32,23,15,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.81,32,"DT")="2970924"
^DD(727.81,33,0)="RACE^F^^0;34^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,33,.1)="Race"
^DD(727.81,33,3)="Enter race ABBREVIATION for this patient."
^DD(727.81,33,21,0)="^^1^1^2961029^^^^"
^DD(727.81,33,21,1,0)="Race ABBREVIATION for this patient."
^DD(727.81,33,23,0)="^^3^3^2961029^^^"
^DD(727.81,33,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4),"
^DD(727.81,33,23,2,0)="RACE data is shown as the ABBREVIATION field (2) of the RACE file (#10)"
^DD(727.81,33,23,3,0)="entry pointed to by the RACE field (.06) in the PATIENT file (#2)."
^DD(727.81,33,"DT")="2961015"
^DD(727.81,34,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.81,34,3)="Answer must be 1-10 characters in length."
^DD(727.81,34,21,0)="^^1^1^2990504^"
^DD(727.81,34,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.81,34,23,0)="^^2^2^2990504^"
^DD(727.81,34,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.81,34,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.81,34,"DT")="2990504"
^DD(727.81,35,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.81,35,.1)=""
^DD(727.81,35,3)="Answer must be 1-10 characters in length"
^DD(727.81,35,21,0)="^.001^2^2^3040318^^^^"
^DD(727.81,35,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.81,35,21,2,0)="the Pharmacy care product."
^DD(727.81,35,23,0)="^^12^12^3040318^"
^DD(727.81,35,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.81,35,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.81,35,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.81,35,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.81,35,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.81,35,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.81,35,23,7,0)=" "
^DD(727.81,35,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as"
^DD(727.81,35,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.81,35,23,10,0)="designations are made.. If no match is found in file 727.6 an error"
^DD(727.81,35,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.81,35,23,12,0)="group identifying the problem."
^DD(727.81,35,"DT")="3040302"
^DD(727.81,36,0)="SEX^S^M:MALE;F:FEMALE;^1;3^Q"
^DD(727.81,36,21,0)="^^1^1^2980708^"
^DD(727.81,36,21,1,0)="The sex of the patient.  M(ale) or F(emale)."
^DD(727.81,36,23,0)="^^2^2^2980708^"
^DD(727.81,36,23,1,0)="Data is taken from the SEX field (#.02) of the patient's record in"
^DD(727.81,36,23,2,0)="the PATIENT file (#2)."
^DD(727.81,36,"DT")="2980708"
^DD(727.81,37,0)="ZIP+4^F^^1;4^K:$L(X)>10!($L(X)<5) X"
^DD(727.81,37,3)="Answer must be 5-10 characters in length."
^DD(727.81,37,21,0)="^^1^1^2980708^"
^DD(727.81,37,21,1,0)="The patient's zipcode with optional 4-digit extension."
^DD(727.81,37,23,0)="^^3^3^2980708^"
^DD(727.81,37,23,1,0)="The patient's zipcode with optional 4-digit extension as found in"
^DD(727.81,37,23,2,0)="the ZIP+4 field (#.1112) of the patient's record in the PATIENT"
^DD(727.81,37,23,3,0)="file (#2)."
^DD(727.81,37,"DT")="2980708"
^DD(727.81,38,0)="PLACEHOLDER^F^^1;5^K:$L(X)>8!($L(X)<1) X"
^DD(727.81,38,3)="Answer must be 1-8 characters in length."
^DD(727.81,38,21,0)="^^1^1^3070827^"
^DD(727.81,38,21,1,0)="Currently NULL."
^DD(727.81,38,23,0)="^^1^1^3070827^"
^DD(727.81,38,23,1,0)="Currently NULL."
^DD(727.81,38,"DT")="3070426"
^DD(727.81,39,0)="PLACEHOLDER^F^^1;6^K:$L(X)>8!($L(X)<1) X"
^DD(727.81,39,3)="Answer must be 1-8 characters in length."
^DD(727.81,39,21,0)="^.001^1^1^3070827^^"
^DD(727.81,39,21,1,0)="Currently NULL."
^DD(727.81,39,23,0)="^.001^1^1^3070827^^"
^DD(727.81,39,23,1,0)="Currently NULL."
^DD(727.81,39,"DT")="3070426"
^DD(727.81,40,0)="STATE^F^^1;7^K:$L(X)>2!($L(X)<2) X"
^DD(727.81,40,3)="Answer must be 2 characters in length."
^DD(727.81,40,21,0)="^^1^1^2980713^^"
^DD(727.81,40,21,1,0)="The state in which the patient resides."
^DD(727.81,40,23,0)="^^4^4^2980713^^"
^DD(727.81,40,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.81,40,23,2,0)="in the ADMISSION EXTRACT file (#727.802), data is derived from the STATE"
^DD(727.81,40,23,3,0)="field (#.115) in the PATIENT file (#2) which points to the STATE file (#5)."
^DD(727.81,40,23,4,0)="From the STATE file record, use the two character VA STATE CODE field (#2)."
^DD(727.81,40,"DT")="2980708"
^DD(727.81,41,0)="COUNTY^F^^1;8^K:$L(X)>3!($L(X)<3) X"
^DD(727.81,41,3)="Answer must be 3 characters in length."
^DD(727.81,41,21,0)="^^1^1^2980713^^"
^DD(727.81,41,21,1,0)="The county in which the patient resides."
^DD(727.81,41,23,0)="^^9^9^2980713^^"
^DD(727.81,41,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.81,41,23,2,0)="in the ADMISSION EXTRACT file (#727.802), data is taken from the"
^DD(727.81,41,23,3,0)="COUNTY field (#.117) in the PATIENT file (#2) which points to a subfile"
^DD(727.81,41,23,4,0)="record in the COUNTY multiple field (#3) of the STATE file (#5).  A pointer "
^DD(727.81,41,23,5,0)="to the STATE file (#5) is obtained from the STATE field (#.115) of the "
^DD(727.81,41,23,6,0)="file #2 record."
^DD(727.81,41,23,7,0)="  "
^DD(727.81,41,23,8,0)="From the subfile record of field #3 of file #5, use the value of the "
^DD(727.81,41,23,9,0)="VA COUNTY CODE field (#2)."
^DD(727.81,41,"DT")="2980708"
^DD(727.81,42,0)="PC PROVIDER PERSON CLASS^F^^1;9^K:$L(X)>7!($L(X)<7) X"
^DD(727.81,42,3)="Answer must be 7 characters in length."
^DD(727.81,42,21,0)="^^2^2^2981026^"
^DD(727.81,42,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.81,42,21,2,0)="associated with this record."
^DD(727.81,42,23,0)="^^6^6^2981026^"
^DD(727.81,42,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.81,42,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.81,42,23,3,0)="extract record."
^DD(727.81,42,23,4,0)="  "
^DD(727.81,42,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.81,42,23,6,0)="7 characters in length."
^DD(727.81,42,"DT")="2981026"
^DD(727.81,43,0)="POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;10^Q"
^DD(727.81,43,3)=""
^DD(727.81,43,21,0)="^^1^1^2990505^"
^DD(727.81,43,21,1,0)="The patient's POW status. May be set to Y(es), N(o), or U(nknown)."
^DD(727.81,43,23,0)="^^2^2^2990505^^"
^DD(727.81,43,23,1,0)="PATIENT file (#2); POW STATUS INDICATED? field (#.525)."
^DD(727.81,43,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.81,43,"DT")="2990505"
^DD(727.81,44,0)="POW LOCATION^P22'^DIC(22,^1;11^Q"
^DD(727.81,44,21,0)="^^9^9^2990505^"
^DD(727.81,44,21,1,0)="If POW Status is indicated, then this is the POW confinement"
^DD(727.81,44,21,2,0)="location/period. "
^DD(727.81,44,21,3,0)=" "
^DD(727.81,44,21,4,0)=" 1      WORLD WAR I"
^DD(727.81,44,21,5,0)=" 2      WORLD WAR II - EUROPE"
^DD(727.81,44,21,6,0)=" 3      WORLD WAR II - PACIFIC"
^DD(727.81,44,21,7,0)=" 4      KOREAN"
^DD(727.81,44,21,8,0)=" 5      VIETNAM"
^DD(727.81,44,21,9,0)=" 6      OTHER"
^DD(727.81,44,23,0)="^^3^3^2990505^^"
^DD(727.81,44,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.81,44,23,2,0)="pointer value to the POW PERIOD file (#22)."
^DD(727.81,44,23,3,0)="The location indicator is returned by SVC^VADPT."
^DD(727.81,44,"DT")="2990505"
^DD(727.81,45,0)="RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;12^Q"
^DD(727.81,45,21,0)="^^1^1^2990505^"
^DD(727.81,45,21,1,0)="The patient's Ionizing Radiation status. (Y/N/U)"
^DD(727.81,45,23,0)="^^2^2^2990505^"
^DD(727.81,45,23,1,0)="PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103)."
^DD(727.81,45,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.81,45,"DT")="2990505"
^DD(727.81,46,0)="AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;13^Q"
^DD(727.81,46,21,0)="^^1^1^2990505^^"
^DD(727.81,46,21,1,0)="The patient's Agent Orange status."
^DD(727.81,46,23,0)="^^2^2^2990505^^"
^DD(727.81,46,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102)."
^DD(727.81,46,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.81,46,"DT")="2990505"
^DD(727.81,47,0)="SHARING AGREEMENT PAYOR^F^^1;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,47,3)="Answer must be 1 character in length."
^DD(727.81,47,21,0)="^^1^1^2990505^"
^DD(727.81,47,21,1,0)="An indicator used for patients participating in sharing agreements."
^DD(727.81,47,23,0)="^^15^15^2990505^"
^DD(727.81,47,23,1,0)="The ALIAS sub-field (#.01) of the ALIAS multiple field (#1) of the"
^DD(727.81,47,23,2,0)="PATIENT file (#2) is used to indicate a patient who participates in "
^DD(727.81,47,23,3,0)="a sharing agreement. If the #.01 field contains any one of the "
^DD(727.81,47,23,4,0)="specified key words, then the patient is considered to be included "
^DD(727.81,47,23,5,0)="for Sharing Agreement information. The keywords are: SHARING AGREEMENT,"
^DD(727.81,47,23,6,0)="CHAMPVA, CHAMPUS, TRICARE, CAT C, CATEGORY C."
^DD(727.81,47,23,7,0)="  "
^DD(727.81,47,23,8,0)="A one character code for the keyword found in the ALIAS multiple "
^DD(727.81,47,23,9,0)="field is obtained by the following conversion:"
^DD(727.81,47,23,10,0)="SHARING AGREEMENT = A"
^DD(727.81,47,23,11,0)="TRICARE = B"
^DD(727.81,47,23,12,0)="CAT C = C"
^DD(727.81,47,23,13,0)="CATEGORY C = C"
^DD(727.81,47,23,14,0)="CHAMPVA = D"
^DD(727.81,47,23,15,0)="CHAMPUS = E"
^DD(727.81,47,"DT")="2990505"
^DD(727.81,48,0)="SHARING AGREEMENT INSURANCE^F^^1;15^K:$L(X)>11!($L(X)<1) X"
^DD(727.81,48,3)="Answer must be 1-11 characters in length."
^DD(727.81,48,21,0)="^^2^2^2990505^^"
^DD(727.81,48,21,1,0)="Used to indicate insurer, if patient participates in a"
^DD(727.81,48,21,2,0)="sharing agreement."
^DD(727.81,48,23,0)="^^5^5^2990505^^"
^DD(727.81,48,23,1,0)="Data will be taken from the INSURANCE TYPE sub-field (#.01) of the"
^DD(727.81,48,23,2,0)="INSURANCE TYPE field (#.3121), sub-file #2.312, of the PATIENT file"
^DD(727.81,48,23,3,0)="(#2).  This is a pointer value for the INSURANCE COMPANY file (#36)."
^DD(727.81,48,23,4,0)="Only the first insurance company found in the multiple field is used."
^DD(727.81,48,23,5,0)="The data is stored as free text."
^DD(727.81,48,"DT")="2990505"
^DD(727.81,49,0)="MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;^1;16^Q"
^DD(727.81,49,21,0)="^^5^5^2990505^"
^DD(727.81,49,21,1,0)="The MST Status of the patient on the date of the outpatient encounter."
^DD(727.81,49,21,2,0)="Possible status values are:"
^DD(727.81,49,21,3,0)="Y = Yes, screened reports MST"
^DD(727.81,49,21,4,0)="N = Screened, does not report MST"
^DD(727.81,49,21,5,0)="D = Screened, declines to answer"
^DD(727.81,49,23,0)="^^5^5^2990505^"
^DD(727.81,49,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual"
^DD(727.81,49,23,2,0)="trauma claims and effective dates.  The patients MST status is stored"
^DD(727.81,49,23,3,0)="in the MST STATUS field (#3).  A call will be made to"
^DD(727.81,49,23,4,0)="$$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO.  DFN "
^DD(727.81,49,23,5,0)="field and the date in the DAY field."
^DD(727.81,49,"DT")="2990505"
^DD(727.81,50,0)="ENROLLMENT LOCATION^F^^1;17^K:$L(X)>7!($L(X)<3) X"
^DD(727.81,50,3)="Answer must be 3-7 characters in length"
^DD(727.81,50,21,0)="^^2^2^3020808^"
^DD(727.81,50,21,1,0)="The facility that the patient chooses to designate as his preferred"
^DD(727.81,50,21,2,0)="location for care."
^DD(727.81,50,23,0)="^^5^5^3020808^^"
^DD(727.81,50,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2)"
^DD(727.81,50,23,2,0)="is defined as the facility that the patient chooses to designate"
^DD(727.81,50,23,3,0)="as his preferred location for care.  The PREFERRED FACILITY field"
^DD(727.81,50,23,4,0)="(# 27.02) is a pointer to the INSTITUTION file (#4).  From file #4,"
^DD(727.81,50,23,5,0)="the value in the STATION NUMBER field (#99) is used."
^DD(727.81,50,"DT")="3020808"
^DD(727.81,51,0)="ASSOCIATE PC PROVIDER^F^^1;18^K:$L(X)>11!($L(X)<2) X"
^DD(727.81,51,3)="Answer must be 2-11 characters in length."
^DD(727.81,51,21,0)="^^4^4^2990505^"
^DD(727.81,51,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.81,51,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.81,51,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.81,51,21,4,0)="character 2."
^DD(727.81,51,23,0)="^^2^2^2990505^"
^DD(727.81,51,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.81,51,23,2,0)="the PCMM application."
^DD(727.81,51,"DT")="2990505"
^DD(727.81,52,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;19^K:$L(X)>7!($L(X)<7) X"
^DD(727.81,52,3)="Answer must be 7 characters in length."
^DD(727.81,52,21,0)="^^4^4^2990505^"
^DD(727.81,52,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.81,52,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.81,52,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.81,52,21,4,0)="exactly 7 characters in length. "
^DD(727.81,52,23,0)="^^3^3^2990505^"
^DD(727.81,52,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.81,52,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.81,52,23,3,0)="PERS is the IEN from file #200."
^DD(727.81,52,"DT")="2990505"
^DD(727.81,53,0)="PLACEHOLDER^F^^1;20^K:$L(X)>8!($L(X)<1) X"
^DD(727.81,53,3)="Answer must be 1-8 characters in length."
^DD(727.81,53,21,0)="^^1^1^3070827^"
^DD(727.81,53,21,1,0)="Currently NULL."
^DD(727.81,53,23,0)="^^1^1^3070827^"
^DD(727.81,53,23,1,0)="Currently NULL."
^DD(727.81,53,"DT")="3070426"
^DD(727.81,54,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;21^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,54,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.81,54,21,0)="^^8^8^3001020^"
^DD(727.81,54,21,1,0)=" "
^DD(727.81,54,21,2,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is"
^DD(727.81,54,21,3,0)="admitted to either a DOM, PRRTP or SAARTP at the time hospital"
^DD(727.81,54,21,4,0)="service is provided."
^DD(727.81,54,21,5,0)="Domiciliary"
^DD(727.81,54,21,6,0)="(DOM)"
^DD(727.81,54,21,7,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.81,54,21,8,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.81,54,"DT")="3001010"
^DD(727.81,55,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;22^Q"
^DD(727.81,55,.1)="Purple Heart Indicator"
^DD(727.81,55,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.81,55,21,0)="^^1^1^3021009^^"
^DD(727.81,55,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.81,55,23,0)="^^2^2^3021009^"
^DD(727.81,55,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.81,55,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.81,55,"DT")="3021009"
^DD(727.81,56,0)="ENROLLMENT CATEGORY^F^^1;23^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,56,3)="Answer must be 1 character in length."
^DD(727.81,56,21,0)="^^1^1^3001020^"
^DD(727.81,56,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.81,56,"DT")="3000614"
^DD(727.81,57,0)="ENROLLMENT STATUS^F^^1;24^K:$L(X)>2!($L(X)<1) X"
^DD(727.81,57,3)="Answer must be 1-2 characters in length."
^DD(727.81,57,21,0)="^^1^1^3001020^"
^DD(727.81,57,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.81,57,"DT")="3000614"
^DD(727.81,58,0)="PLACEHOLDER^F^^1;25^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,58,3)="Answer must be 1 character in length."
^DD(727.81,58,"DT")="3040301"
^DD(727.81,59,0)="CNHU STATUS^F^^1;26^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,59,3)="Answer must be 1 character in length."
^DD(727.81,59,"DT")="3000614"
^DD(727.81,60,0)="PERIOD OF SERVICE^F^^1;27^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,60,3)="Answer must be 1 character in length."
^DD(727.81,60,21,0)="^^2^2^3001020^"
^DD(727.81,60,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.81,60,21,2,0)="eligibility code."
^DD(727.81,60,23,0)="^^2^2^3001020^"
^DD(727.81,60,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.81,60,23,2,0)="the Patient file (#2)."
^DD(727.81,60,"DT")="3000614"
^DD(727.81,61,0)="OBSERVATION PATIENT INDICATOR^F^^1;28^K:$L(X)>4!($L(X)<1) X"
^DD(727.81,61,3)="Answer must be 1-4 characters in length."
^DD(727.81,61,21,0)="^^2^2^3011212^"
^DD(727.81,61,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.81,61,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.81,61,"DT")="3010814"
^DD(727.81,62,0)="ENCOUNTER NUMBER^F^^1;29^K:$L(X)>18!($L(X)<1) X"
^DD(727.81,62,3)="Answer must be 1-18 characters in length"
^DD(727.81,62,21,0)="^^3^3^3011212^"
^DD(727.81,62,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.81,62,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.81,62,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.81,62,"DT")="3010509"
^DD(727.81,63,0)="AGENT ORANGE LOCATION^F^^1;30^K:$L(X)>2!($L(X)<2) X"
^DD(727.81,63,3)="Answer must be 2 characters in length"
^DD(727.81,63,21,0)="^^1^1^3011212^"
^DD(727.81,63,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.81,63,"DT")="3010509"
^DD(727.81,64,0)="ORDERING PHYSICIAN^F^^1;31^K:$L(X)>11!($L(X)<2) X"
^DD(727.81,64,3)="Answer must be 2-11 characters in length"
^DD(727.81,64,21,0)="^.001^1^1^3011212^^"
^DD(727.81,64,21,1,0)="For future development; currently set to null."
^DD(727.81,64,"DT")="3010511"
^DD(727.81,65,0)="ORDERING STOP CODE^F^^1;32^K:$L(X)>3!($L(X)<3) X"
^DD(727.81,65,3)="Answer must be 3 characters in length"
^DD(727.81,65,21,0)="^.001^1^1^3011212^^"
^DD(727.81,65,21,1,0)="This field contains the stop code associated with the order."
^DD(727.81,65,"DT")="3010509"
^DD(727.81,66,0)="ORDERING DATE^F^^1;33^K:$L(X)>8!($L(X)<8) X"
^DD(727.81,66,3)="Answer must be 8 characters in length"
^DD(727.81,66,21,0)="^.001^1^1^3011212^^"
^DD(727.81,66,21,1,0)="This field contains the date of the order in YYYYMMDD format."
^DD(727.81,66,"DT")="3010509"
^DD(727.81,67,0)="CNH/SH STATUS^F^^1;34^K:$L(X)>3!($L(X)<3) X"
^DD(727.81,67,3)="Answer must be 3 characters in length"
^DD(727.81,67,21,0)="^.001^2^2^3011212^^"
^DD(727.81,67,21,1,0)="This field is used to indicate whether a patient is currently in "
^DD(727.81,67,21,2,0)="a contract nursing home/state home."
^DD(727.81,67,"DT")="3010509"
^DD(727.81,68,0)="PRODUCTION DIVISION CODE^F^^1;35^K:$L(X)>6!($L(X)<3) X"
^DD(727.81,68,3)="Answer must be 3-6 characters in length."
^DD(727.81,68,21,0)="^.001^2^2^3060719^^^"
^DD(727.81,68,21,1,0)="Represents the division where the work took place.  Contains the facility"
^DD(727.81,68,21,2,0)="number (i.e. 523AA)."
^DD(727.81,68,23,0)="^^5^5^3060719^"
^DD(727.81,68,23,1,0)="Data comes from either the a) DIVISION field (#20) of the PRESCRIPTION"
^DD(727.81,68,23,2,0)="file (#52) or b) the DIVISION field (#.09) of subfile (#52.2) [PARTIAL "
^DD(727.81,68,23,3,0)="DATE field (#60)]. These fields point to the OUTPATIENT SITE file (#59)."
^DD(727.81,68,23,4,0)="This value is then used to call the api PREDIV^ECXDEPT RADDIV^ECXDEPT to"
^DD(727.81,68,23,5,0)="get the STATION NUMBER field (#99) from the INSTITUTION file (#4)."
^DD(727.81,68,"DT")="3030123"
^DD(727.81,69,0)="MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^1;36^Q"
^DD(727.81,69,.1)="Means Test"
^DD(727.81,69,3)="Select the appropriate means test category."
^DD(727.81,69,21,0)="^^1^1^3021009^^^"
^DD(727.81,69,21,1,0)="The current means test category for this patient."
^DD(727.81,69,23,0)="^^6^6^3021009^"
^DD(727.81,69,23,1,0)="Using the patient pointer (DFN) stored in the "
^DD(727.81,69,23,2,0)="PATIENT NO. - DFN field (#4), MEANS TEST data is derived from the CURRENT"
^DD(727.81,69,23,3,0)="MEANS TEST STATUS field (#.14) in the PATIENT file (#2)."
^DD(727.81,69,23,4,0)="This field is a pointer to the MEANS TEST STATUS file (#408.32).  Using"
^DD(727.81,69,23,5,0)="the means test pointer, the data is derived from the CODE field (#.02) in"
^DD(727.81,69,23,6,0)="the MEANS TEST STATUS file (#408.32)."
^DD(727.81,69,"DT")="3021009"
^DD(727.81,70,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;37^Q"
^DD(727.81,70,.1)="Head and Neck Cancer Indicator"
^DD(727.81,70,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.81,70,21,0)="^^1^1^3020828^"
^DD(727.81,70,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.81,70,23,0)="^^3^3^3020828^"
^DD(727.81,70,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.81,70,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.81,70,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.81,70,"DT")="3020828"
^DD(727.81,71,0)="ETHNICITY^F^^1;38^K:$L(X)>6!($L(X)<1) X"
^DD(727.81,71,.1)="Ethnicity"
^DD(727.81,71,3)="Answer must be 1-6 characters in length"
^DD(727.81,71,21,0)="^^1^1^3020828^"
^DD(727.81,71,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.81,71,23,0)="^^8^8^3021210^"
^DD(727.81,71,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.81,71,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.81,71,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.81,71,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.81,71,23,5,0)=" "
^DD(727.81,71,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.81,71,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.81,71,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.81,71,"DT")="3021210"
^DD(727.81,72,0)="RACE 1^F^^1;39^K:$L(X)>6!($L(X)<1) X"
^DD(727.81,72,.1)="Race 1"
^DD(727.81,72,3)="Answer must be 1-6 characters in length"
^DD(727.81,72,21,0)="^^1^1^3020828^"
^DD(727.81,72,21,1,0)="The patient's PTF Race code(s)."
^DD(727.81,72,23,0)="^^10^10^3020828^"
^DD(727.81,72,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.81,72,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.81,72,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.81,72,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.81,72,23,5,0)=" "
^DD(727.81,72,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.81,72,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.81,72,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.81,72,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.81,72,23,10,0)="the only value included in the RACE1 field."
^DD(727.81,72,"DT")="3020828"
^DD(727.81,73,0)="DSS IP #^NJ7,0^^1;40^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.81,73,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.81,73,21,0)="^.001^2^2^3040318^^"
^DD(727.81,73,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.81,73,21,2,0)="patient care product."
^DD(727.81,73,23,0)="^.001^10^10^3041027^^"
^DD(727.81,73,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.81,73,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.81,73,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.81,73,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.81,73,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.81,73,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.81,73,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.81,73,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.81,73,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.81,73,23,10,0)="group identifying the problem. "
^DD(727.81,73,"DT")="3031113"
^DD(727.81,74,0)="ENROLLMENT PRIORITY^F^^1;41^K:$L(X)>2!($L(X)<1) X"
^DD(727.81,74,3)="Answer must be 1-2 characters in length."
^DD(727.81,74,21,0)="^.001^2^2^3041027^^"
^DD(727.81,74,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.81,74,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.81,74,23,0)="^.001^20^20^3041027^^"
^DD(727.81,74,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.81,74,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.81,74,23,3,0)=" "
^DD(727.81,74,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.81,74,23,5,0)=" "
^DD(727.81,74,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.81,74,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.81,74,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.81,74,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.81,74,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.81,74,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.81,74,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.81,74,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.81,74,23,14,0)=" "
^DD(727.81,74,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.81,74,23,16,0)=" "
^DD(727.81,74,23,17,0)="                                'a' FOR 1 "
^DD(727.81,74,23,18,0)="                                'c' FOR 3 "
^DD(727.81,74,23,19,0)="                                'e' FOR 5 "
^DD(727.81,74,23,20,0)="                                'g' FOR 7   "
^DD(727.81,74,"DT")="3040301"
^DD(727.81,75,0)="USER ENROLLEE^F^^1;42^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,75,3)="Answer must be 1 character in length."
^DD(727.81,75,21,0)="^^4^4^3040317^"
^DD(727.81,75,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.81,75,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.81,75,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.81,75,21,4,0)="year's value is contained. "
^DD(727.81,75,"DT")="3040301"
^DD(727.81,76,0)="PATIENT TYPE^F^^2;1^K:$L(X)>2!($L(X)<1) X"
^DD(727.81,76,3)="Answer must be 1-2 characters in length."
^DD(727.81,76,21,0)="^^3^3^3040317^"
^DD(727.81,76,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.81,76,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.81,76,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.81,76,23,0)="^^17^17^3040317^"
^DD(727.81,76,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.81,76,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.81,76,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.81,76,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.81,76,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.81,76,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.81,76,23,7,0)=" "
^DD(727.81,76,23,8,0)="AC= ACTIVE DUTY"
^DD(727.81,76,23,9,0)="AL= ALLIED VETERAN"
^DD(727.81,76,23,10,0)="CO= COLLATERAL"
^DD(727.81,76,23,11,0)="EM= EMPLOYEE"
^DD(727.81,76,23,12,0)="IN= INELIGIBLE"
^DD(727.81,76,23,13,0)="MI= MILITARY RETIREE"
^DD(727.81,76,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.81,76,23,15,0)="NS= NSC VETERAN"
^DD(727.81,76,23,16,0)="SC= SC VETERAN"
^DD(727.81,76,23,17,0)="TR= TRICARE"
^DD(727.81,76,"DT")="3040301"
^DD(727.81,77,0)="CV STATUS ELIGIBILITY^F^^2;2^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,77,3)="Answer must be 1 character in length."
^DD(727.81,77,21,0)="^.001^3^3^3040318^^^"
^DD(727.81,77,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.81,77,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.81,77,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.81,77,23,0)="^^11^11^3040318^"
^DD(727.81,77,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.81,77,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.81,77,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.81,77,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.81,77,23,5,0)=" "
^DD(727.81,77,23,6,0)=" 1 - qualifies as a CV"
^DD(727.81,77,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.81,77,23,8,0)="-1 - bad DFN or date"
^DD(727.81,77,23,9,0)=" "
^DD(727.81,77,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.81,77,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.81,77,"DT")="3040317"
^DD(727.81,78,0)="CV ELIGIBILITY END DATE^F^^2;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.81,78,3)="Answer must be 1-8 characters in length."
^DD(727.81,78,21,0)="^^3^3^3040317^"
^DD(727.81,78,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.81,78,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.81,78,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.81,78,23,0)="^^4^4^3040317^"
^DD(727.81,78,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.81,78,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.81,78,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.81,78,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.81,78,"DT")="3040301"
^DD(727.81,79,0)="ENCOUNTER CV^F^^2;4^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,79,3)="Answer must be 1 character in length."
^DD(727.81,79,21,0)="^^3^3^3040317^"
^DD(727.81,79,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.81,79,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.81,79,21,3,0)="2 to determine CV Status."
^DD(727.81,79,23,0)="^^10^10^3040317^"
^DD(727.81,79,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.81,79,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.81,79,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.81,79,23,4,0)="The third piece returns:"
^DD(727.81,79,23,5,0)=" "
^DD(727.81,79,23,6,0)="1 - vet was eligible on date specified"
^DD(727.81,79,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.81,79,23,8,0)=" "
^DD(727.81,79,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.81,79,23,10,0)="'NULL' for 'NO'."
^DD(727.81,79,"DT")="3040301"
^DD(727.81,80,0)="NATIONAL PATIENT RECORD FLAG^F^^2;5^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,80,3)="Answer must be 1 character in length."
^DD(727.81,80,21,0)="^^7^7^3040317^"
^DD(727.81,80,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.81,80,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.81,80,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.81,80,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.81,80,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.81,80,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.81,80,21,7,0)="NULL."
^DD(727.81,80,23,0)="^^7^7^3040317^"
^DD(727.81,80,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.81,80,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.81,80,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.81,80,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.81,80,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.81,80,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.81,80,23,7,0)="NULL."
^DD(727.81,80,"DT")="3040301"
^DD(727.81,81,0)="RX PATIENT STATUS^F^^2;6^K:$L(X)>3!($L(X)<1) X"
^DD(727.81,81,3)="Answer must be 1-3 characters in length."
^DD(727.81,81,21,0)="^.001^2^2^3040407^^"
^DD(727.81,81,21,1,0)="RX PATIENT STATUS indicates the status of the patient at the time the "
^DD(727.81,81,21,2,0)="medication was filled."
^DD(727.81,81,23,0)="^^13^13^3040407^"
^DD(727.81,81,23,1,0)="RX PATIENT STATUS indicates the status of the patient at the time the "
^DD(727.81,81,23,2,0)="medication was filled. RX Patient Status is extracted from the Rx PATIENT "
^DD(727.81,81,23,3,0)="STATUS (File #53) Field # 6 entitled: SC/A&A/OTHER/INPATIENT/NVA. "
^DD(727.81,81,23,4,0)=" "
^DD(727.81,81,23,5,0)="The 3-character value for this field shall be an abbreviated version of"
^DD(727.81,81,23,6,0)="the DATA TYPE/set of codes of this required field. The values are as"
^DD(727.81,81,23,7,0)="follows: "
^DD(727.81,81,23,8,0)=" "
^DD(727.81,81,23,9,0)="SC  = SERVICE CONNECTED "
^DD(727.81,81,23,10,0)="AA  = A&A "
^DD(727.81,81,23,11,0)="OTH = OTHER "
^DD(727.81,81,23,12,0)="INP = INPATIENT "
^DD(727.81,81,23,13,0)="NON = NON-VA"
^DD(727.81,81,"DT")="3040407"
^DD(727.81,82,0)="NON VA PRESCRIBER^F^^2;7^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,82,3)="Answer must be 1 character in length."
^DD(727.81,82,21,0)="^.001^2^2^3040407^^"
^DD(727.81,82,21,1,0)="NON VA PRESCRIBER is extracted from the New Person File #200, Field "
^DD(727.81,82,21,2,0)="#53.91 entitled: NON-VA PRESCRIBER."
^DD(727.81,82,23,0)="^^5^5^3040407^"
^DD(727.81,82,23,1,0)="NON VA PRESCRIBER is extracted from the New Person File #200, Field "
^DD(727.81,82,23,2,0)="#53.91 entitled: NON-VA PRESCRIBER. The one character value for this "
^DD(727.81,82,23,3,0)="field shall be ""Y  or NULL based on the following codes:"
^DD(727.81,82,23,4,0)=" "
^DD(727.81,82,23,5,0)="Y =  YES Null =  NO.  "
^DD(727.81,82,"DT")="3040407"
^DD(727.81,83,0)="RX ORDER NUMBER^NJ9,0^^2;8^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.81,83,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.81,83,21,0)="^^2^2^3050526^"
^DD(727.81,83,21,1,0)="This field contains the prescription number which shall be a whole number "
^DD(727.81,83,21,2,0)="between 1 and 999999999."
^DD(727.81,83,23,0)="^^2^2^3050526^"
^DD(727.81,83,23,1,0)="This field is populated from the RX # field (#.01) located in the"
^DD(727.81,83,23,2,0)="Prescription file (#52)."
^DD(727.81,83,"DT")="3050405"
^DD(727.81,84,0)="ERI^F^^2;9^K:$L(X)>2!($L(X)<1) X"
^DD(727.81,84,3)="Answer must be 1-2 characters in length."
^DD(727.81,84,21,0)="^.001^2^2^3060731^^"
^DD(727.81,84,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.81,84,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.81,84,23,0)="^.001^4^4^3060731^^"
^DD(727.81,84,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.81,84,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.81,84,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.81,84,23,4,0)="    Null"
^DD(727.81,84,"DT")="3060731"
^DD(727.81,85,0)="AGENT ORANGE ENC INDICATOR^F^^2;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,85,3)="Answer must be 1 character in length."
^DD(727.81,85,21,0)="^^5^5^3060719^"
^DD(727.81,85,21,1,0)="Indicates the appropriate response for agent orange as related to this"
^DD(727.81,85,21,2,0)="patient's episode of care:"
^DD(727.81,85,21,3,0)="  Y = Yes"
^DD(727.81,85,21,4,0)="  N = No"
^DD(727.81,85,21,5,0)="  Null"
^DD(727.81,85,23,0)="^^2^2^3060719^"
^DD(727.81,85,23,1,0)="This value is retrieved from the AGENT ORANGE EXPOSURE field (#118) in"
^DD(727.81,85,23,2,0)="the PRESCRIPTION (#52) file."
^DD(727.81,85,"DT")="3060626"
^DD(727.81,86,0)="ENCOUNTER EC^F^^2;11^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,86,3)="Answer must be 1 character in length."
^DD(727.81,86,21,0)="^.001^5^5^3060626^^^"
^DD(727.81,86,21,1,0)="Indicate the appropriate response for environmental contaminant as"
^DD(727.81,86,21,2,0)="related to this patient's episode of care:"
^DD(727.81,86,21,3,0)="  Y = Yes"
^DD(727.81,86,21,4,0)="  N = No"
^DD(727.81,86,21,5,0)="  Null"
^DD(727.81,86,23,0)="^.001^2^2^3060626^^"
^DD(727.81,86,23,1,0)="This value will be retrieved from the ENVIRONMENTAL CONTAMINANT field #120"
^DD(727.81,86,23,2,0)="in the PRESCRIPTION #52 file."
^DD(727.81,86,"DT")="3060626"
^DD(727.81,87,0)="ENC HEAD/NECK CA^F^^2;12^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,87,3)="Answer must be 1 character in length."
^DD(727.81,87,21,0)="^^5^5^3060719^"
^DD(727.81,87,21,1,0)="Indicates the appropriate response for head/neck cancer as related to this"
^DD(727.81,87,21,2,0)="patient's episode of care:"
^DD(727.81,87,21,3,0)="  Y = Yes"
^DD(727.81,87,21,4,0)="  N = No"
^DD(727.81,87,21,5,0)="  Null"
^DD(727.81,87,23,0)="^^2^2^3060719^"
^DD(727.81,87,23,1,0)="This value is retrieved from the HEAD AND/OR NECK CANCER field (#121)"
^DD(727.81,87,23,2,0)="in the PRESCRIPTION (#52) file."
^DD(727.81,87,"DT")="3060626"
^DD(727.81,88,0)="ENCOUNTER MST^F^^2;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,88,3)="Answer must be 1 character in length."
^DD(727.81,88,21,0)="^.001^5^5^3060719^^"
^DD(727.81,88,21,1,0)="Indicates the appropriate response for military sexual trauma as related"
^DD(727.81,88,21,2,0)="to this patient's episode of care:"
^DD(727.81,88,21,3,0)="  Y = Yes"
^DD(727.81,88,21,4,0)="  N = No"
^DD(727.81,88,21,5,0)="  Null"
^DD(727.81,88,23,0)="^.001^2^2^3060719^^"
^DD(727.81,88,23,1,0)="This value is retrieved from the MILITARY SEXUAL TRAUMA field (#117) in"
^DD(727.81,88,23,2,0)="the PRESCRIPTION (#52) file."
^DD(727.81,88,"DT")="3060626"
^DD(727.81,89,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^2;14^Q"
^DD(727.81,89,21,0)="^^2^2^3060719^"
^DD(727.81,89,21,1,0)="This field is used to indicate that this patient claim exposure while "
^DD(727.81,89,21,2,0)="serving in the Persian Gulf or Somalia."
^DD(727.81,89,23,0)="^.001^8^8^3060719^^^^"
^DD(727.81,89,23,1,0)="This field is derived from the ENVIRONMENTAL CONTAMINANTS field (#.322013)"
^DD(727.81,89,23,2,0)="in the Patient File (#2) using the patient's DFN. The status indicator is"
^DD(727.81,89,23,3,0)="returned by SVC^VADPT. The SVC^VADPT called is made from routine"
^DD(727.81,89,23,4,0)="PAT^ECXUTL3. The field values are:"
^DD(727.81,89,23,5,0)=" "
^DD(727.81,89,23,6,0)=" Y = YES"
^DD(727.81,89,23,7,0)=" N = NO"
^DD(727.81,89,23,8,0)=" U = UNKNOWN"
^DD(727.81,89,"DT")="3060621"
^DD(727.81,90,0)="RADIATION ENCOUNTER INDICATOR^F^^2;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.81,90,3)="Answer must be 1 character in length."
^DD(727.81,90,21,0)="^^6^6^3060829^"
^DD(727.81,90,21,1,0)="Indicates the appropriate response for ionizing radiation exposure"
^DD(727.81,90,21,2,0)="encounter as related to this patient's episode of care:"
^DD(727.81,90,21,3,0)=" "
^DD(727.81,90,21,4,0)="  Y = Yes"
^DD(727.81,90,21,5,0)="  N = No"
^DD(727.81,90,21,6,0)="  Null"
^DD(727.81,90,23,0)="^.001^2^2^3060829^^^"
^DD(727.81,90,23,1,0)="This value is retrieved from the IONIZING RADIATION EXPOSURE field (#119)"
^DD(727.81,90,23,2,0)="in the PRESCRIPTION (#52) file."
^DD(727.81,90,"DT")="3060626"
^DD(727.81,91,0)="SERVICE CONNECTED RX^S^Y:YES;N:NO;^2;16^Q"
^DD(727.81,91,21,0)="^^2^2^3060712^"
^DD(727.81,91,21,1,0)="This field will indicate whether this prescription is for a service "
^DD(727.81,91,21,2,0)="connected condition."
^DD(727.81,91,23,0)="^^7^7^3060712^"
^DD(727.81,91,23,1,0)="The value is retrieved from the Prescription file (#52), SERVICE "
^DD(727.81,91,23,2,0)="CONNECTED field (#116). Possible values:"
^DD(727.81,91,23,3,0)=" "
^DD(727.81,91,23,4,0)="'Y' - Yes"
^DD(727.81,91,23,5,0)="'N' - No"
^DD(727.81,91,23,6,0)=" "
^DD(727.81,91,23,7,0)="The value is retrieved via the DIQ^PSODI pharmacy API."
^DD(727.81,91,"DT")="3060712"
^DD(727.81,92,0)="OEF/OIF^F^^2;17^K:$L(X)>9!($L(X)<1) X"
^DD(727.81,92,3)="Answer must be 1-9 characters in length."
^DD(727.81,92,21,0)="^.001^3^3^3070502^^"
^DD(727.81,92,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.81,92,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.81,92,21,3,0)="reflects the OEF or OIF where this patient was in combat."
^DD(727.81,92,23,0)="^.001^12^12^3070502^^"
^DD(727.81,92,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.81,92,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.81,92,23,3,0)="reflects the OEF or OIF where this patient was in combat. The value of "
^DD(727.81,92,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.81,92,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.81,92,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.81,92,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.81,92,23,8,0)="for this field are  concatenated into this 9-character field. Possible "
^DD(727.81,92,23,9,0)="field values are one or more combinations of the following: "
^DD(727.81,92,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.81,92,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.81,92,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.81,92,"DT")="3070502"
^DD(727.81,93,0)="OEF/OIF RETURN DATE^F^^2;18^K:$L(X)>8!($L(X)<1) X"
^DD(727.81,93,3)="Answer must be 1-8 characters in length."
^DD(727.81,93,21,0)="^^3^3^3070502^"
^DD(727.81,93,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.81,93,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.81,93,21,3,0)="has a format equal to YYYYMMDD."
^DD(727.81,93,23,0)="^^6^6^3070502^"
^DD(727.81,93,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.81,93,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.81,93,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.81,93,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.81,93,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.81,93,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.81,93,"DT")="3070502"
^DD(727.81,94,0)="ASSOCIATE PC PROVIDER NPI^F^^2;19^K:$L(X)>15!($L(X)<1) X"
^DD(727.81,94,3)="Answer must be 1-15 characters in length."
^DD(727.81,94,21,0)="^^2^2^3070502^"
^DD(727.81,94,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.81,94,21,2,0)="provider. This field has a length of fifteen characters."
^DD(727.81,94,23,0)="^^3^3^3070502^"
^DD(727.81,94,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.81,94,23,2,0)="provider. This field has a length of fifteen characters. The qualified "
^DD(727.81,94,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.81,94,"DT")="3070502"
^DD(727.81,95,0)="PRIMARY CARE PROVIDER NPI^F^^2;20^K:$L(X)>15!($L(X)<1) X"
^DD(727.81,95,3)="Answer must be 1-15 characters in length."
^DD(727.81,95,21,0)="^^2^2^3070502^"
^DD(727.81,95,21,1,0)="A standard unique life-long identifier of the primary care provider.   "
^DD(727.81,95,21,2,0)="This field has a length of fifteen characters."
^DD(727.81,95,23,0)="^^3^3^3070502^"
^DD(727.81,95,23,1,0)="A standard unique life-long identifier of the primary care provider.   "
^DD(727.81,95,23,2,0)="This field has a length of fifteen characters. The qualified identifier "
^DD(727.81,95,23,3,0)="is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.81,95,"DT")="3070502"
^DD(727.81,96,0)="PROVIDER NPI^F^^2;21^K:$L(X)>15!($L(X)<1) X"
^DD(727.81,96,3)="Answer must be 1-15 characters in length."
^DD(727.81,96,21,0)="^^2^2^3070502^"
^DD(727.81,96,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.81,96,21,2,0)="health care services.  This field has a length of fifteen characters. "
^DD(727.81,96,23,0)="^^4^4^3070502^"
^DD(727.81,96,23,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.81,96,23,2,0)="health care services.  This field has a length of fifteen characters. The "
^DD(727.81,96,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.81,96,23,4,0)="$$NPI^XUSNPI."
^DD(727.81,96,"DT")="3070502"
^DD(727.81,"B","AGENT ORANGE ENC INDICATOR",85)=""
^DD(727.81,"B","AGENT ORANGE LOCATION",63)=""
^DD(727.81,"B","AGENT ORANGE STATUS",46)=""
^DD(727.81,"B","ASSOC. PC PROV. PERSON CLASS",52)=""
^DD(727.81,"B","ASSOCIATE PC PROVIDER",51)=""
^DD(727.81,"B","ASSOCIATE PC PROVIDER NPI",94)=""
^DD(727.81,"B","CNH/SH STATUS",67)=""
^DD(727.81,"B","CNHU STATUS",59)=""
^DD(727.81,"B","COPAY",26)=""
^DD(727.81,"B","COST",17)=""
^DD(727.81,"B","COUNTY",41)=""
^DD(727.81,"B","CV ELIGIBILITY END DATE",78)=""
^DD(727.81,"B","CV STATUS ELIGIBILITY",77)=""
^DD(727.81,"B","Copay",26)="1"
^DD(727.81,"B","Cost",17)="1"
^DD(727.81,"B","DATE OF BIRTH",23)=""
^DD(727.81,"B","DAY",8)=""
^DD(727.81,"B","DAYS SUPPLY",29)=""
^DD(727.81,"B","DIVISION",9)=""
^DD(727.81,"B","DOM,PRRTP AND SAARTP INDICATOR",54)=""
^DD(727.81,"B","DSS IP #",73)=""
^DD(727.81,"B","DSS PRODUCT DEPARTMENT",35)=""
^DD(727.81,"B","Date of Birth",23)="1"
^DD(727.81,"B","Day",8)="1"
^DD(727.81,"B","Days Supply",29)="1"
^DD(727.81,"B","Division",9)="1"
^DD(727.81,"B","ELIGIBILITY",24)=""
^DD(727.81,"B","ENC HEAD/NECK CA",87)=""
^DD(727.81,"B","ENCOUNTER CV",79)=""
^DD(727.81,"B","ENCOUNTER EC",86)=""
^DD(727.81,"B","ENCOUNTER MST",88)=""
^DD(727.81,"B","ENCOUNTER NUMBER",62)=""
^DD(727.81,"B","ENROLLMENT CATEGORY",56)=""
^DD(727.81,"B","ENROLLMENT LOCATION",50)=""
^DD(727.81,"B","ENROLLMENT PRIORITY",74)=""
^DD(727.81,"B","ENROLLMENT STATUS",57)=""
^DD(727.81,"B","ENVIRONMENTAL CONTAMINANTS",89)=""
^DD(727.81,"B","ERI",84)=""
^DD(727.81,"B","ETHNICITY",71)=""
^DD(727.81,"B","EXTRACT NUMBER",2)=""
^DD(727.81,"B","Eligibility",24)="1"
^DD(727.81,"B","Ethnicity",71)="1"
^DD(727.81,"B","Extract Number",2)="1"
^DD(727.81,"B","FACILITY",3)=""
^DD(727.81,"B","FEEDER KEY",27)=""
^DD(727.81,"B","Facility",3)="1"
^DD(727.81,"B","Feeder Key",27)="1"
^DD(727.81,"B","HEAD & NECK CANCER INDICATOR",70)=""
^DD(727.81,"B","Head and Neck Cancer Indicator",70)="1"
^DD(727.81,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.81,"B","INVESTIGATIONAL",28)=""
^DD(727.81,"B","In Out Patient Indicator",7)="1"
^DD(727.81,"B","Investigational",28)="1"
^DD(727.81,"B","MAIL",12)=""
^DD(727.81,"B","MASTER PATIENT INDEX",34)=""
^DD(727.81,"B","MEANS TEST",69)=""
^DD(727.81,"B","MOVEMENT FILE #",19)=""
^DD(727.81,"B","MST STATUS",49)=""
^DD(727.81,"B","Mail",12)="1"
^DD(727.81,"B","Means Test",69)="1"
^DD(727.81,"B","Movement File Number",19)="1"
^DD(727.81,"B","NAME",6)=""
^DD(727.81,"B","NATIONAL PATIENT RECORD FLAG",80)=""
^DD(727.81,"B","NEW",14)=""
^DD(727.81,"B","NON VA PRESCRIBER",82)=""
^DD(727.81,"B","Name",6)="1"
^DD(727.81,"B","New",14)="1"
^DD(727.81,"B","OBSERVATION PATIENT INDICATOR",61)=""
^DD(727.81,"B","OEF/OIF",92)=""
^DD(727.81,"B","OEF/OIF RETURN DATE",93)=""
^DD(727.81,"B","ORDERING DATE",66)=""
^DD(727.81,"B","ORDERING PHYSICIAN",64)=""
^DD(727.81,"B","ORDERING STOP CODE",65)=""
^DD(727.81,"B","PATIENT NO. - DFN",4)=""
^DD(727.81,"B","PATIENT TYPE",76)=""
^DD(727.81,"B","PC PROVIDER PERSON CLASS",42)=""
^DD(727.81,"B","PERIOD OF SERVICE",60)=""
^DD(727.81,"B","PLACEHOLDER",38)=""
^DD(727.81,"B","PLACEHOLDER",39)=""
^DD(727.81,"B","PLACEHOLDER",53)=""
^DD(727.81,"B","PLACEHOLDER",58)=""
^DD(727.81,"B","PLACEHOLDER2",15)=""
^DD(727.81,"B","PLACEHOLDER3",18)=""
^DD(727.81,"B","PLACEHOLDER4",21)=""
^DD(727.81,"B","POW LOCATION",44)=""
^DD(727.81,"B","POW STATUS",43)=""
^DD(727.81,"B","PRIMARY CARE PROVIDER",31)=""
^DD(727.81,"B","PRIMARY CARE PROVIDER NPI",95)=""
^DD(727.81,"B","PRIMARY CARE TEAM",30)=""
^DD(727.81,"B","PRODUCTION DIVISION CODE",68)=""
^DD(727.81,"B","PROVIDER",10)=""
^DD(727.81,"B","PROVIDER NPI",96)=""
^DD(727.81,"B","PROVIDER PERSON CLASS",13)=""
^DD(727.81,"B","PURPLE HEART INDICATOR",55)=""
^DD(727.81,"B","Patient No. - DFN",4)="1"
^DD(727.81,"B","Placeholder2",15)="1"
^DD(727.81,"B","Placeholder3",18)="1"
^DD(727.81,"B","Placeholder4",21)="1"
^DD(727.81,"B","Primary Care Provider",31)="1"
^DD(727.81,"B","Primary Care Team",30)="1"
^DD(727.81,"B","Provider",10)="1"
^DD(727.81,"B","Purple Heart Indicator",55)="1"
^DD(727.81,"B","QUANTITY",16)=""
^DD(727.81,"B","Quantity",16)="1"
^DD(727.81,"B","RACE",33)=""
^DD(727.81,"B","RACE 1",72)=""
^DD(727.81,"B","RADIATION ENCOUNTER INDICATOR",90)=""
^DD(727.81,"B","RADIATION STATUS",45)=""
^DD(727.81,"B","RX ORDER NUMBER",83)=""
^DD(727.81,"B","RX PATIENT STATUS",81)=""
^DD(727.81,"B","Race",33)="1"
^DD(727.81,"B","Race 1",72)="1"
^DD(727.81,"B","SEQUENCE NUMBER",.01)=""
^DD(727.81,"B","SERVICE CONNECTED RX",91)=""
^DD(727.81,"B","SEX",36)=""
^DD(727.81,"B","SHARING AGREEMENT INSURANCE",48)=""
^DD(727.81,"B","SHARING AGREEMENT PAYOR",47)=""
^DD(727.81,"B","SSN",5)=""
^DD(727.81,"B","STATE",40)=""
^DD(727.81,"B","Sequence Number",.01)="1"
^DD(727.81,"B","Social Security Number",5)="1"
^DD(727.81,"B","TIME",32)=""
^DD(727.81,"B","TREATING SPECIALTY",20)=""
^DD(727.81,"B","Time",32)="1"
^DD(727.81,"B","Treating Specialty",20)="1"
^DD(727.81,"B","UNIT OF ISSUE",22)=""
^DD(727.81,"B","USER ENROLLEE",75)=""
^DD(727.81,"B","Unit of Issue",22)="1"
^DD(727.81,"B","VA DRUG CLASSIFICATION",11)=""
^DD(727.81,"B","VA Drug Classification",11)="1"
^DD(727.81,"B","VETERAN",25)=""
^DD(727.81,"B","Veteran",25)="1"
^DD(727.81,"B","YEAR MONTH",1)=""
^DD(727.81,"B","Year/Month",1)="1"
^DD(727.81,"B","ZIP+4",37)=""
^DD(727.81,"GL",0,1,.01)=""
^DD(727.81,"GL",0,2,1)=""
^DD(727.81,"GL",0,3,2)=""
^DD(727.81,"GL",0,4,3)=""
^DD(727.81,"GL",0,5,4)=""
^DD(727.81,"GL",0,6,5)=""
^DD(727.81,"GL",0,7,6)=""
^DD(727.81,"GL",0,8,7)=""
^DD(727.81,"GL",0,9,8)=""
^DD(727.81,"GL",0,10,9)=""
^DD(727.81,"GL",0,11,10)=""
^DD(727.81,"GL",0,12,11)=""
^DD(727.81,"GL",0,13,12)=""
^DD(727.81,"GL",0,14,13)=""
^DD(727.81,"GL",0,15,14)=""
^DD(727.81,"GL",0,16,15)=""
^DD(727.81,"GL",0,17,16)=""
^DD(727.81,"GL",0,18,17)=""
^DD(727.81,"GL",0,19,18)=""
^DD(727.81,"GL",0,20,19)=""
^DD(727.81,"GL",0,21,20)=""
^DD(727.81,"GL",0,22,21)=""
^DD(727.81,"GL",0,23,22)=""
^DD(727.81,"GL",0,24,23)=""
^DD(727.81,"GL",0,25,24)=""
^DD(727.81,"GL",0,26,25)=""
^DD(727.81,"GL",0,27,26)=""
^DD(727.81,"GL",0,28,27)=""
^DD(727.81,"GL",0,29,28)=""
^DD(727.81,"GL",0,30,29)=""
^DD(727.81,"GL",0,31,30)=""
^DD(727.81,"GL",0,32,31)=""
^DD(727.81,"GL",0,33,32)=""
^DD(727.81,"GL",0,34,33)=""
^DD(727.81,"GL",1,1,34)=""
^DD(727.81,"GL",1,2,35)=""
^DD(727.81,"GL",1,3,36)=""
^DD(727.81,"GL",1,4,37)=""
^DD(727.81,"GL",1,5,38)=""
^DD(727.81,"GL",1,6,39)=""
^DD(727.81,"GL",1,7,40)=""
^DD(727.81,"GL",1,8,41)=""
^DD(727.81,"GL",1,9,42)=""
^DD(727.81,"GL",1,10,43)=""
^DD(727.81,"GL",1,11,44)=""
^DD(727.81,"GL",1,12,45)=""
^DD(727.81,"GL",1,13,46)=""
^DD(727.81,"GL",1,14,47)=""
^DD(727.81,"GL",1,15,48)=""
^DD(727.81,"GL",1,16,49)=""
^DD(727.81,"GL",1,17,50)=""
^DD(727.81,"GL",1,18,51)=""
^DD(727.81,"GL",1,19,52)=""
^DD(727.81,"GL",1,20,53)=""
^DD(727.81,"GL",1,21,54)=""
^DD(727.81,"GL",1,22,55)=""
^DD(727.81,"GL",1,23,56)=""
^DD(727.81,"GL",1,24,57)=""
^DD(727.81,"GL",1,25,58)=""
^DD(727.81,"GL",1,26,59)=""
^DD(727.81,"GL",1,27,60)=""
^DD(727.81,"GL",1,28,61)=""
^DD(727.81,"GL",1,29,62)=""
^DD(727.81,"GL",1,30,63)=""
^DD(727.81,"GL",1,31,64)=""
^DD(727.81,"GL",1,32,65)=""
^DD(727.81,"GL",1,33,66)=""
^DD(727.81,"GL",1,34,67)=""
^DD(727.81,"GL",1,35,68)=""
^DD(727.81,"GL",1,36,69)=""
^DD(727.81,"GL",1,37,70)=""
^DD(727.81,"GL",1,38,71)=""
^DD(727.81,"GL",1,39,72)=""
^DD(727.81,"GL",1,40,73)=""
^DD(727.81,"GL",1,41,74)=""
^DD(727.81,"GL",1,42,75)=""
^DD(727.81,"GL",2,1,76)=""
^DD(727.81,"GL",2,2,77)=""
^DD(727.81,"GL",2,3,78)=""
^DD(727.81,"GL",2,4,79)=""
^DD(727.81,"GL",2,5,80)=""
^DD(727.81,"GL",2,6,81)=""
^DD(727.81,"GL",2,7,82)=""
^DD(727.81,"GL",2,8,83)=""
^DD(727.81,"GL",2,9,84)=""
^DD(727.81,"GL",2,10,85)=""
^DD(727.81,"GL",2,11,86)=""
^DD(727.81,"GL",2,12,87)=""
^DD(727.81,"GL",2,13,88)=""
^DD(727.81,"GL",2,14,89)=""
^DD(727.81,"GL",2,15,90)=""
^DD(727.81,"GL",2,16,91)=""
^DD(727.81,"GL",2,17,92)=""
^DD(727.81,"GL",2,18,93)=""
^DD(727.81,"GL",2,19,94)=""
^DD(727.81,"GL",2,20,95)=""
^DD(727.81,"GL",2,21,96)=""
^DD(727.81,"IX",2)=""
^DD(727.81,"RQ",.01)=""
^DD(727.81,"RQ",24)=""
^DD(727.81,"RQ",26)=""
^DD(727.81,"RQ",27)=""
^DD(727.811,0)="FIELD^^76^94"
^DD(727.811,0,"DIK")="ECX811"
^DD(727.811,0,"DIKOLD")="ECX811"
^DD(727.811,0,"DT")="3021009"
^DD(727.811,0,"IX","AC",727.811,2)=""
^DD(727.811,0,"NM","SURGERY EXTRACT")=""
^DD(727.811,0,"VR")="3.0"
^DD(727.811,0,"VRPK")="ECX"
^DD(727.811,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.811,.01,.1)="Sequence Number"
^DD(727.811,.01,1,0)="^.1^^0"
^DD(727.811,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.811,.01,21,0)="^^1^1^2961002^^^^"
^DD(727.811,.01,21,1,0)="The record number for this extract entry."
^DD(727.811,.01,23,0)="^^1^1^2961002^^^"
^DD(727.811,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.811,.01,"DT")="2980812"
^DD(727.811,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.811,1,.1)="Year/Month"
^DD(727.811,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.811,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.811,1,3)="Answer must be 6 characters in length."
^DD(727.811,1,21,0)="^^2^2^2970912^^^^"
^DD(727.811,1,21,1,0)="A six character string representing the year and the month"
^DD(727.811,1,21,2,0)="for which this extract was performed."
^DD(727.811,1,23,0)="^^1^1^2970912^^^^"
^DD(727.811,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.811,1,"DT")="2970924"
^DD(727.811,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.811,2,.1)="Extract Number"
^DD(727.811,2,1,0)="^.1"
^DD(727.811,2,1,1,0)="727.811^AC"
^DD(727.811,2,1,1,1)="S ^ECX(727.811,""AC"",$E(X,1,30),DA)="""""
^DD(727.811,2,1,1,2)="K ^ECX(727.811,""AC"",$E(X,1,30),DA)"
^DD(727.811,2,1,1,3)="DO NOT DELETE."
^DD(727.811,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.811,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.811,2,1,1,"%D",2,0)="in this file."
^DD(727.811,2,1,1,"DT")="2910802"
^DD(727.811,2,3)="Enter the extract number for this extract."
^DD(727.811,2,21,0)="^^2^2^2961002^^^^"
^DD(727.811,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.811,2,21,2,0)="extract."
^DD(727.811,2,23,0)="^^2^2^2961002^^^^"
^DD(727.811,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.811,2,23,2,0)="pick up the header for the mail message."
^DD(727.811,2,"DT")="2961002"
^DD(727.811,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,3,.1)="Facility"
^DD(727.811,3,3)="Answer must be 1-7 characters in length."
^DD(727.811,3,21,0)="^^2^2^2970912^^^^"
^DD(727.811,3,21,1,0)="Identifies the Surgery site/division for this extract record."
^DD(727.811,3,21,2,0)="It represents the station number from the INSTITUTION file (#4)."
^DD(727.811,3,23,0)="^^7^7^2970912^^^^"
^DD(727.811,3,23,1,0)="If there is data in the DIVISION field (50) of the SURGERY file (#130) "
^DD(727.811,3,23,2,0)="for the extract record, this pointer to the INSTITUTION file (#4) is "
^DD(727.811,3,23,3,0)="used. Otherwise, FACILITY is derived as follows. Using the NAME field "
^DD(727.811,3,23,4,0)="(#.01) pointer from the DSS EXTRACTS file (#728), FACILITY is derived "
^DD(727.811,3,23,5,0)="from the STATION NUMBER field (#99) for that pointer number in the "
^DD(727.811,3,23,6,0)="INSTITUTION file (#4). An indicator of the division where this event "
^DD(727.811,3,23,7,0)="happened."
^DD(727.811,3,"DT")="2970911"
^DD(727.811,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.811,4,.1)="Patient No. - DFN"
^DD(727.811,4,3)="Enter the name of the patient for this extract record."
^DD(727.811,4,21,0)="^^1^1^2990504^^^^"
^DD(727.811,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.811,4,23,0)="^^3^3^2990504^^^"
^DD(727.811,4,23,1,0)="Derived from the PATIENT (.01) field in the SURGERY file (#130). "
^DD(727.811,4,23,2,0)="PATIENT NO. - DFN is a pointer to the NAME field (.01) of the PATIENT "
^DD(727.811,4,23,3,0)="file (#2). This data represents the patient DFN."
^DD(727.811,4,"DT")="2961018"
^DD(727.811,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.811,5,.1)="Social Security Number"
^DD(727.811,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.811,5,21,0)="^^4^4^2990504^^^^"
^DD(727.811,5,21,1,0)="The patient's social security number."
^DD(727.811,5,21,2,0)=" "
^DD(727.811,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.811,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.811,5,23,0)="^^6^6^2990504^^^"
^DD(727.811,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.811,5,23,2,0)="in the SURGERY EXTRACT file (#727.811), SSN data is derived from the"
^DD(727.811,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.811,5,23,4,0)=" "
^DD(727.811,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.811,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.811,5,"DT")="2961002"
^DD(727.811,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.811,6,.1)="Name"
^DD(727.811,6,3)="Your answer must be 4 characters in length."
^DD(727.811,6,21,0)="^^1^1^2961021^^^^"
^DD(727.811,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.811,6,23,0)="^^4^4^2961021^^^"
^DD(727.811,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.811,6,23,2,0)="in the SURGERY EXTRACT file (#727.811), NAME data is derived from the NAME"
^DD(727.811,6,23,3,0)="field (.01) in the PATIENT file (#2). The first four characters of the"
^DD(727.811,6,23,4,0)="first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.811,6,"DT")="2961002"
^DD(727.811,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,7,.1)="In Out Patient Indicator"
^DD(727.811,7,3)="Answer must be 1 character in length."
^DD(727.811,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.811,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for"
^DD(727.811,7,21,2,0)="this extract."
^DD(727.811,7,23,0)="^.001^2^2^3011129^^^^"
^DD(727.811,7,23,1,0)="In FY2002, this field has been changed and will contain ""O""=Outpatient"
^DD(727.811,7,23,2,0)="or ""I""=Inpatient."
^DD(727.811,7,"DT")="3011129"
^DD(727.811,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.811,8,.1)="Day"
^DD(727.811,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.811,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.811,8,3)="Answer must be 8 characters in length."
^DD(727.811,8,21,0)="^^2^2^2980126^^^^"
^DD(727.811,8,21,1,0)="This 8-character string represents the date on which the procedure"
^DD(727.811,8,21,2,0)="associated with this Surgery extract record was performed."
^DD(727.811,8,23,0)="^^9^9^2980126^^^^"
^DD(727.811,8,23,1,0)="Date source:"
^DD(727.811,8,23,2,0)=" "
^DD(727.811,8,23,3,0)="SURGERY file (#130); DATE OF OPERATION field (#.09)"
^DD(727.811,8,23,4,0)=" "
^DD(727.811,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.811,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.811,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.811,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.811,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.811,8,"DT")="2970924"
^DD(727.811,9,0)="CASE NUMBER^F^^0;10^K:$L(X)>12!($L(X)<1) X"
^DD(727.811,9,.1)="Case Number"
^DD(727.811,9,3)="Answer must be 1-12 characters in length."
^DD(727.811,9,21,0)="^^1^1^2970912^^^^"
^DD(727.811,9,21,1,0)="This character string represents in IEN in the SURGERY file (#130)."
^DD(727.811,9,23,0)="^^2^2^2970912^^^^"
^DD(727.811,9,23,1,0)="CASE NUMBER is the internal entry number (IEN) of the entry from the "
^DD(727.811,9,23,2,0)="SURGERY file (#130) for this extract record. "
^DD(727.811,9,"DT")="2970911"
^DD(727.811,10,0)="SURGICAL SPECIALTY^F^^0;11^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(727.811,10,.1)="Surgical Specialty"
^DD(727.811,10,3)="Your answer must be 3 characters in length."
^DD(727.811,10,21,0)="^^1^1^2970729^^^^"
^DD(727.811,10,21,1,0)="The surgical specialty credited for doing this operative procedure."
^DD(727.811,10,23,0)="^^6^6^2970729^^^^"
^DD(727.811,10,23,1,0)="Derived from the NATIONAL SURGICAL SPECIALTY field (1) in the LOCAL "
^DD(727.811,10,23,2,0)="SURGICAL SPECIALTY file (#137.45) for the pointer value found in the "
^DD(727.811,10,23,3,0)="SURGERY SPECIALTY field (.04) of the SURGERY file (#130). SURGICAL "
^DD(727.811,10,23,4,0)="SPECIALTY is the three digit CODE field (.01) from the SURGICAL "
^DD(727.811,10,23,5,0)="SPECIALTY file (#45.3). If no surgical specialty is found, this field "
^DD(727.811,10,23,6,0)="is sent as 999."
^DD(727.811,10,"DT")="2961002"
^DD(727.811,11,0)="OR ROOM NUMBER^F^^0;12^K:$L(X)>6!($L(X)<1) X"
^DD(727.811,11,.1)="OR Room Number"
^DD(727.811,11,3)="Answer must be 1-6 characters in length."
^DD(727.811,11,21,0)="^^3^3^2970912^^^^"
^DD(727.811,11,21,1,0)="This character string represents an IEN to the HOSPITAL LOCATION"
^DD(727.811,11,21,2,0)="file (#44) for the operating room where the principal operation"
^DD(727.811,11,21,3,0)="was performed."
^DD(727.811,11,23,0)="^^5^5^2970912^^^^"
^DD(727.811,11,23,1,0)="Derived from the OPERATING ROOM field (#.02) in the SURGERY file (#130). "
^DD(727.811,11,23,2,0)="Field #.02 points to the OPERATING ROOM file (#131.7), which in turn is "
^DD(727.811,11,23,3,0)="a pointer to the HOSPITAL LOCATION file (#44)."
^DD(727.811,11,23,4,0)=" "
^DD(727.811,11,23,5,0)="The character string stored in this field represents an IEN in file #44."
^DD(727.811,11,"DT")="2970911"
^DD(727.811,12,0)="SURGEON^F^^0;13^K:$L(X)>11!($L(X)<1) X"
^DD(727.811,12,.1)="Surgeon"
^DD(727.811,12,3)="Enter person performing the major portion of the principal operative procedure."
^DD(727.811,12,21,0)="^^2^2^2980608^^^^"
^DD(727.811,12,21,1,0)="The person performing the major portion of the principal operative"
^DD(727.811,12,21,2,0)="procedure."
^DD(727.811,12,23,0)="^^5^5^2980608^^^^"
^DD(727.811,12,23,1,0)="Derived from the SURGEON field (.14) in the SURGERY file (#130) for "
^DD(727.811,12,23,2,0)="the surgical case. If the case is a non-OR surgical procedure, the "
^DD(727.811,12,23,3,0)="PROVIDER field (123) from the SURGERY file (#130) is used. In either "
^DD(727.811,12,23,4,0)="occurrence, it is a pointer to the NEW PERSON file (#200). This data "
^DD(727.811,12,23,5,0)="is stored as ""2""_pointer value."
^DD(727.811,12,"DT")="2961018"
^DD(727.811,13,0)="ATTENDING SURGEON^F^^0;14^K:$L(X)>11!($L(X)<1) X"
^DD(727.811,13,.1)="Attending Surgeon"
^DD(727.811,13,3)="The attending staff surgeon responsible for this case."
^DD(727.811,13,21,0)="^^1^1^2980608^^^^"
^DD(727.811,13,21,1,0)="The attending staff surgeon responsible for this case."
^DD(727.811,13,23,0)="^^5^5^2980608^^^^"
^DD(727.811,13,23,1,0)="Derived from the ATTEND SURG field (.164) in the SURGERY file (#130) "
^DD(727.811,13,23,2,0)="for the surgical case. If the case is a non-OR surgical procedure, the "
^DD(727.811,13,23,3,0)="ATTEND PROVIDER field (124) from the SURGERY file (#130) is used. In "
^DD(727.811,13,23,4,0)="either occurrence, it is a pointer to the NEW PERSON file (#200). This "
^DD(727.811,13,23,5,0)="data is stored as ""2""_pointer value."
^DD(727.811,13,"DT")="2961018"
^DD(727.811,14,0)="ANESTHESIA SUPERVISOR^F^^0;15^K:$L(X)>11!($L(X)<1) X"
^DD(727.811,14,.1)="Anesthesia Supervisor"
^DD(727.811,14,3)="Enter the anesthesiology staff supervisor."
^DD(727.811,14,21,0)="^^1^1^2980608^^^^"
^DD(727.811,14,21,1,0)="This is the anesthesiology staff supervisor."
^DD(727.811,14,23,0)="^^3^3^2980608^^^^"
^DD(727.811,14,23,1,0)="Derived from the ANESTHESIOLOGIST SUPVR field (.34) in the SURGERY "
^DD(727.811,14,23,2,0)="file (#130) for the surgical case. This field is a pointer to the NEW "
^DD(727.811,14,23,3,0)="PERSON file (#200) and is stored as ""2""_pointer value."
^DD(727.811,14,"DT")="2961018"
^DD(727.811,15,0)="ANESTHESIA TECHNIQUE^S^S:SPINAL;E:EPIDURAL;O:OTHER;G:GENERAL;M:MONITORED ANESTHESIA CARE;L:LOCAL;^0;16^Q"
^DD(727.811,15,.1)="Anesthesia Technique"
^DD(727.811,15,3)="Enter the anesthesia technique used for this surgical case."
^DD(727.811,15,21,0)="^^2^2^2970729^^^^"
^DD(727.811,15,21,1,0)="The code corresponding to the type of anesthesia technique used "
^DD(727.811,15,21,2,0)="during this case."
^DD(727.811,15,23,0)="^^3^3^2970729^^^^"
^DD(727.811,15,23,1,0)="Derived from the ANESTHESIA TECHNIQUE field (.01) within the ANESTHESIA "
^DD(727.811,15,23,2,0)="TECHNIQUE multiple (.37) of the SURGERY file (#130). This anesthesia "
^DD(727.811,15,23,3,0)="technique is the principal technique."
^DD(727.811,15,"DT")="2961002"
^DD(727.811,16,0)="PRIMARY/SECONDARY/PROSTHETICS^F^^0;17^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,16,.1)="Primary/Secondary/Prosthetics"
^DD(727.811,16,3)="Your answer must be 1 character in length."
^DD(727.811,16,21,0)="^^1^1^2970729^^^^"
^DD(727.811,16,21,1,0)="The indicator if this is a primary, secondary or prostheses."
^DD(727.811,16,23,0)="^^4^4^2970729^^^^"
^DD(727.811,16,23,1,0)="Data is P for primary when the extract record is for a principal "
^DD(727.811,16,23,2,0)="procedure. It is S for secondary when the extract record is for other "
^DD(727.811,16,23,3,0)="procedure. It is I for implants (prostheses) when the extract record is "
^DD(727.811,16,23,4,0)="for a prosthesis item."
^DD(727.811,16,"DT")="2961002"
^DD(727.811,17,0)="CPT^F^^0;18^K:$L(X)>8!($L(X)<5) X"
^DD(727.811,17,.1)="Current Procedural Terminology"
^DD(727.811,17,3)="Enter CPT Code, ""-"", and 2 character modifier."
^DD(727.811,17,21,0)="^^2^2^2990505^^^^"
^DD(727.811,17,21,1,0)="The Current Procedural Terminology (CPT) code for the operative "
^DD(727.811,17,21,2,0)="procedure."
^DD(727.811,17,23,0)="^^6^6^2990505^^^^"
^DD(727.811,17,23,1,0)="For the principal procedure, CPT is derived from the CPT CODE field "
^DD(727.811,17,23,2,0)="(.01) in the CPT file (#81) as defined by the PRINCIPAL PROCEDURE CODE "
^DD(727.811,17,23,3,0)="field (27) in the SURGERY file (#130)."
^DD(727.811,17,23,4,0)="If the extract record is for a secondary procedure, CPT is derived "
^DD(727.811,17,23,5,0)="from the OTHER PROCEDURE CPT CODE field (3) within the OTHER PROCEDURES "
^DD(727.811,17,23,6,0)="multiple (.42) in the SURGERY file (#130)."
^DD(727.811,17,"DT")="2961018"
^DD(727.811,19,0)="PATIENT TIME^F^^0;20^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,19,.1)="Patient Time"
^DD(727.811,19,3)="Your answer must be 1 to 4 characters in length."
^DD(727.811,19,21,0)="^.001^1^1^3000804^^^^"
^DD(727.811,19,21,1,0)="The time, in 15 minute increments, the patient was in the OR."
^DD(727.811,19,23,0)="^.001^2^2^3000804^^^^"
^DD(727.811,19,23,1,0)="Derived from the TIME PAT OUT OR field (.232) minus the TIME PAT IN OR "
^DD(727.811,19,23,2,0)="field (.205) in the SURGERY file (#130)."
^DD(727.811,19,"DT")="3000804"
^DD(727.811,20,0)="OPERATION TIME^F^^0;21^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,20,.1)="Operation Time"
^DD(727.811,20,3)="Your answer must be 1 to 4 characters in length."
^DD(727.811,20,21,0)="^.001^1^1^3000804^^^^"
^DD(727.811,20,21,1,0)="The time, in 15 minute increments, of the principal operative procedure."
^DD(727.811,20,23,0)="^.001^5^5^3000804^^^^"
^DD(727.811,20,23,1,0)="Derived from the TIME OPERATION ENDS field (.23) minus the TIME OPERATION "
^DD(727.811,20,23,2,0)="BEGAN field (.22) in the SURGERY file (#130) for the surgical case. If the "
^DD(727.811,20,23,3,0)="case is a non-OR surgical precede, OPERATION TIME is derived from the TIME "
^DD(727.811,20,23,4,0)="PROCEDURE ENDED field (122) minus the TIME PROCEDURE BEGAN field (121) in "
^DD(727.811,20,23,5,0)="the SURGERY file (#130)."
^DD(727.811,20,"DT")="2961002"
^DD(727.811,21,0)="ANESTHESIA TIME^F^^0;22^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,21,.1)="Anesthesia Time"
^DD(727.811,21,3)="Your answer must be 1 to 4 characters in length."
^DD(727.811,21,21,0)="^.001^1^1^3000804^^^^"
^DD(727.811,21,21,1,0)="The time, in 15 minute increments, of the anesthesia care administered."
^DD(727.811,21,23,0)="^.001^2^2^3000804^^^^"
^DD(727.811,21,23,1,0)="Derived from the ANES CARE END TIME field (.24) minus the ANES CARE START "
^DD(727.811,21,23,2,0)="TIME field (.21) in the SURGERY file (#130)."
^DD(727.811,21,"DT")="2961002"
^DD(727.811,22,0)="PROSTHESIS^F^^0;23^K:$L(X)>10!($L(X)<1) X"
^DD(727.811,22,.1)="Prosthesis"
^DD(727.811,22,3)="Answer must be 1-10 characters in length."
^DD(727.811,22,21,0)="^^2^2^2990510^^^^"
^DD(727.811,22,21,1,0)="The character string in this field represents an IEN in the "
^DD(727.811,22,21,2,0)="PROSTHESIS file (#130.9)."
^DD(727.811,22,23,0)="^^6^6^2990510^^^"
^DD(727.811,22,23,1,0)="Derived from the PROSTHESIS ITEM field (#.01) within the PROSTHESIS "
^DD(727.811,22,23,2,0)="INSTALLED multiple (#.47) in the SURGERY file (#130). PROSTHESIS ITEM  "
^DD(727.811,22,23,3,0)="is a pointer to the PROSTHESIS file (#131.9)."
^DD(727.811,22,23,4,0)=" "
^DD(727.811,22,23,5,0)="The character string in this field represents an IEN in the PROSTHESIS"
^DD(727.811,22,23,6,0)="file (#130.9)."
^DD(727.811,22,"DT")="2970911"
^DD(727.811,23,0)="QUANTITY^NJ2,0^^0;24^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1.N) X"
^DD(727.811,23,.1)="Quantity"
^DD(727.811,23,3)="Type a number between 1 and 99, 0 Decimal Digits"
^DD(727.811,23,21,0)="^^2^2^3021010^^"
^DD(727.811,23,21,1,0)="This field is obsolete and has been replaced by the NEW QUANTITY field in"
^DD(727.811,23,21,2,0)="this file."
^DD(727.811,23,23,0)="^^1^1^3021010^"
^DD(727.811,23,23,1,0)="Field is set to null."
^DD(727.811,23,"DT")="3021010"
^DD(727.811,25,0)="MOVEMENT FILE #^P405'^DGPM(^0;26^Q"
^DD(727.811,25,.1)="Movement File Number"
^DD(727.811,25,3)="Enter the patient movement number associated with this extract record."
^DD(727.811,25,21,0)="^^1^1^2961002^^^"
^DD(727.811,25,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.811,25,23,0)="^^4^4^2961002^^^"
^DD(727.811,25,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.811,25,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.811,25,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.811,25,23,4,0)="(#405)."
^DD(727.811,25,"DT")="2961002"
^DD(727.811,26,0)="TREATING SPECIALTY^F^^0;27^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,26,.1)="Treating Specialty"
^DD(727.811,26,3)="Answer must be 1-4 characters in length."
^DD(727.811,26,21,0)="^^2^2^2990510^^^^"
^DD(727.811,26,21,1,0)="The character string in this field represents an IEN in the "
^DD(727.811,26,21,2,0)="SPECIALTY file (#42.4)."
^DD(727.811,26,23,0)="^^9^9^2990512^^^^"
^DD(727.811,26,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.811,26,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.811,26,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.811,26,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.811,26,23,5,0)="(#45.7), is used to get the SPECIALTY field (#1) which points to the "
^DD(727.811,26,23,6,0)="SPECIALTY file (#42.4)."
^DD(727.811,26,23,7,0)=" "
^DD(727.811,26,23,8,0)="That pointer value is stored here as a character string; this field"
^DD(727.811,26,23,9,0)="represents and IEN in file #42.4."
^DD(727.811,26,"DT")="2970911"
^DD(727.811,27,0)="CANCELLED^S^C:C;^0;28^Q"
^DD(727.811,27,.1)="Cancelled"
^DD(727.811,27,3)="Enter C if the procedure was cancelled."
^DD(727.811,27,21,0)="^^2^2^2970912^^^^"
^DD(727.811,27,21,1,0)="If set, this field indicates that the surgical procedure was cancelled "
^DD(727.811,27,21,2,0)="after being started."
^DD(727.811,27,23,0)="^^7^7^2970912^^^^"
^DD(727.811,27,23,1,0)="If cancellation information exists (^SRF(D0,30)) or"
^DD(727.811,27,23,2,0)="for a regular procedure (not a non-OR procedure ^SRF(D0,NON)), "
^DD(727.811,27,23,3,0)="there is no data in the TIME PAT IN OR field (.205),"
^DD(727.811,27,23,4,0)="then the extract record is not sent as per 2/7/94 decision."
^DD(727.811,27,23,5,0)=" "
^DD(727.811,27,23,6,0)="This field is being retained for backward compatibility; essentially"
^DD(727.811,27,23,7,0)="it serves as a placeholder in the data line."
^DD(727.811,27,"DT")="2970911"
^DD(727.811,28,0)="TIME^FO^^0;29^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.811,28,.1)="Time"
^DD(727.811,28,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.811,28,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.811,28,3)="Answer must be 6 characters in length."
^DD(727.811,28,21,0)="^^1^1^2970912^^^^"
^DD(727.811,28,21,1,0)="The military time when the patient entered the OR."
^DD(727.811,28,23,0)="^^6^6^2970923^^^^"
^DD(727.811,28,23,1,0)="Data source:"
^DD(727.811,28,23,2,0)=" "
^DD(727.811,28,23,3,0)="SURGERY file (#130); TIME PAT IN OR field (#.205)"
^DD(727.811,28,23,4,0)=" "
^DD(727.811,28,23,5,0)="The character string is always consists of exactly 6 numerics.  The"
^DD(727.811,28,23,6,0)="field default is ""000300"" for Year 2000 compliance per vendor."
^DD(727.811,28,"DT")="2970924"
^DD(727.811,29,0)="OR TYPE^F^^0;30^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,29,.1)="OR Type"
^DD(727.811,29,3)="Answer must be 1-4 characters in length."
^DD(727.811,29,21,0)="^^3^3^2990510^^^^"
^DD(727.811,29,21,1,0)="The OR TYPE of the operating room where this procedure was done."
^DD(727.811,29,21,2,0)="This field is a character string which represents an IEN in the"
^DD(727.811,29,21,3,0)="OPERATING ROOM TYPE file (#134)."
^DD(727.811,29,23,0)="^^7^7^2990510^^^^"
^DD(727.811,29,23,1,0)="For the OPERATING ROOM field (#.02) identified in the SURGERY file "
^DD(727.811,29,23,2,0)="(#130), OR TYPE is derived from the TYPE field (#9) in the OPERATING "
^DD(727.811,29,23,3,0)="ROOM file (#131.7). It is a pointer to the OPERATING ROOM TYPE file "
^DD(727.811,29,23,4,0)="(#134) which is a national standard operating room types list."
^DD(727.811,29,23,5,0)=" "
^DD(727.811,29,23,6,0)="That pointer value is stored here as a character string; this field"
^DD(727.811,29,23,7,0)="then represents an IEN in file #134."
^DD(727.811,29,"DT")="2970911"
^DD(727.811,30,0)="ATTENDING'S SERVICE^F^^0;31^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,30,.1)="Attending's Service"
^DD(727.811,30,3)="Answer must be 1-4 characters in length."
^DD(727.811,30,21,0)="^.001^3^3^3001101^^^^"
^DD(727.811,30,21,1,0)="The service to which the attending surgeon is assigned."
^DD(727.811,30,21,2,0)="The character string in this field represents an IEN in the NATIONAL"
^DD(727.811,30,21,3,0)="SERVICE file (#730)."
^DD(727.811,30,23,0)="^.001^10^10^3001101^^^^"
^DD(727.811,30,23,1,0)="ATTENDING'S SERVICE is an IEN in the NATIONAL SERVICE file (#730). "
^DD(727.811,30,23,2,0)=" "
^DD(727.811,30,23,3,0)="It is derived from the SERVICE/SECTION field (#29) in the NEW PERSON file "
^DD(727.811,30,23,4,0)="(#200) for the ATTENDING SURGEON field (#13) in the SURGERY EXTRACT file "
^DD(727.811,30,23,5,0)="(#727.811) which is a pointer to the SERVICE/SECTION file (#49). "
^DD(727.811,30,23,6,0)="The pointer value found in the NATIONAL SERVICE field (#730) of the "
^DD(727.811,30,23,7,0)="SERVICE/SECTION file (#49) points to the NATIONAL SERVICE file (#730). "
^DD(727.811,30,23,8,0)=" "
^DD(727.811,30,23,9,0)="The pointer value to file #730 is stored in this field as a character"
^DD(727.811,30,23,10,0)="string."
^DD(727.811,30,"DT")="2970911"
^DD(727.811,31,0)="NON-OR DSS IDENTIFIER^F^^0;32^K:$L(X)>10!($L(X)<1) X"
^DD(727.811,31,.1)=""
^DD(727.811,31,3)="Your answer must be 1 to 10 characters in length."
^DD(727.811,31,21,0)="^^1^1^2990510^^^^"
^DD(727.811,31,21,1,0)="The DSS UNIT IDENTIFIER for the non-OR location for this procedure."
^DD(727.811,31,23,0)="^^5^5^2990510^^^^"
^DD(727.811,31,23,1,0)="For a non-OR procedure, the NON-OR LOCATION field (119) in the SURGERY "
^DD(727.811,31,23,2,0)="file (#130) points to the HOSPITAL LOCATION file (#44). The pointer is "
^DD(727.811,31,23,3,0)="used to examine the DSS UNIT IDENTIFIER field (8) in the CLINIC AND STOP "
^DD(727.811,31,23,4,0)="CODES file (#728.44), to determine if this clinic is used for non-OR "
^DD(727.811,31,23,5,0)="surgical procedures."
^DD(727.811,31,"DT")="2990510"
^DD(727.811,32,0)="RECOVERY ROOM (PACU) TIME^F^^0;33^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,32,.1)="Recovery Room (PACU) Time"
^DD(727.811,32,3)="Your answer must be 1 to 4 characters in length."
^DD(727.811,32,21,0)="^.001^2^2^3000804^^^^"
^DD(727.811,32,21,1,0)="The time, in 15 minute increments, that the patient spent in the"
^DD(727.811,32,21,2,0)="post anesthesia care unit."
^DD(727.811,32,23,0)="^.001^2^2^3000804^^^^"
^DD(727.811,32,23,1,0)="Derived from the PAC(U) DISCH TIME field (1.18) minus the ADMIT PAC(U) "
^DD(727.811,32,23,2,0)="TIME field (1.17) in the SURGERY file (#130)."
^DD(727.811,32,"DT")="2961002"
^DD(727.811,34,0)="PRIMARY CARE TEAM^F^^0;35^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,34,.1)="Primary Care Team"
^DD(727.811,34,3)="Enter primary care team assigned to this patient."
^DD(727.811,34,21,0)="^^1^1^2961031^^^^"
^DD(727.811,34,21,1,0)="The primary care team assigned to this patient."
^DD(727.811,34,23,0)="^^6^6^2961031^^^"
^DD(727.811,34,23,1,0)="Using the DATE OF OPERATION field (.09) from the SURGERY file (#130) "
^DD(727.811,34,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.811,34,23,3,0)="in the SURGERY EXTRACT file (#727.811), a call is made to the Scheduling "
^DD(727.811,34,23,4,0)="API, OUTPTTM^SDUTL3. The API returns the team's internal entry number "
^DD(727.811,34,23,5,0)="and name from the TEAM file (#404.51). Only the pointer (IEN) to File "
^DD(727.811,34,23,6,0)="404.51 is transmitted."
^DD(727.811,34,"DT")="2961031"
^DD(727.811,35,0)="PRIMARY CARE PROVIDER^F^^0;36^K:$L(X)>11!($L(X)<1) X"
^DD(727.811,35,.1)="Primary Care Provider"
^DD(727.811,35,3)="Enter primary care provider assigned to this patient."
^DD(727.811,35,21,0)="^^1^1^2980708^^^^"
^DD(727.811,35,21,1,0)="The primary care provider assigned to this patient."
^DD(727.811,35,23,0)="^^8^8^2980708^^^^"
^DD(727.811,35,23,1,0)="Using the DATE OF OPERATION field (.09) from the SURGERY file (#130) "
^DD(727.811,35,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.811,35,23,3,0)="in the SURGERY EXTRACT file (#727.811), a call is made to the Scheduling "
^DD(727.811,35,23,4,0)="API, OUTPTPR^SDUTL3. The API returns the provider's internal entry "
^DD(727.811,35,23,5,0)="number and name from the NEW PERSON file (#200). "
^DD(727.811,35,23,6,0)=" "
^DD(727.811,35,23,7,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.811,35,23,8,0)="is ""200""."
^DD(727.811,35,"DT")="2961018"
^DD(727.811,36,0)="ADMISSION DATE^FO^^0;37^K:$L(X)>8!($L(X)<8) X"
^DD(727.811,36,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.811,36,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.811,36,3)="Answer must be 8 characters in length."
^DD(727.811,36,21,0)="^^2^2^2980130^^^^"
^DD(727.811,36,21,1,0)="This 8-character string represents the date on which the Admission"
^DD(727.811,36,21,2,0)="associated with this Surgery extract record took place."
^DD(727.811,36,23,0)="^^8^8^2980130^^^^"
^DD(727.811,36,23,1,0)="Source:"
^DD(727.811,36,23,2,0)="field #.01; file #405"
^DD(727.811,36,23,3,0)=" "
^DD(727.811,36,23,4,0)="If the patient on whom the surgical procedure was performed was an"
^DD(727.811,36,23,5,0)="inpatient on the procedure date, then a call to IN5^VADPT returns"
^DD(727.811,36,23,6,0)="the Admission Date in VAIP(13,1)."
^DD(727.811,36,23,7,0)=" "
^DD(727.811,36,23,8,0)="The date is expanded to Y2K format appropriate to DSS of YYYYMMDD."
^DD(727.811,36,"DT")="2970924"
^DD(727.811,37,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.811,37,3)="Answer must be 1-10 characters in length."
^DD(727.811,37,21,0)="^^1^1^2990504^"
^DD(727.811,37,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.811,37,23,0)="^^2^2^2990504^"
^DD(727.811,37,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.811,37,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.811,37,"DT")="2990504"
^DD(727.811,38,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.811,38,.1)=""
^DD(727.811,38,3)="Answer must be 1-10 characters in length."
^DD(727.811,38,21,0)="^.001^2^2^3040318^^"
^DD(727.811,38,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.811,38,21,2,0)="the Surgery care product."
^DD(727.811,38,23,0)="^^12^12^3040318^"
^DD(727.811,38,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.811,38,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.811,38,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.811,38,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.811,38,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.811,38,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.811,38,23,7,0)=" "
^DD(727.811,38,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as "
^DD(727.811,38,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.811,38,23,10,0)="designations are made. If no match is found in file 727.6 an error "
^DD(727.811,38,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.811,38,23,12,0)="group identifying the problem."
^DD(727.811,38,"DT")="3040302"
^DD(727.811,39,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.811,39,3)="Answer must be 1-8 characters in length."
^DD(727.811,39,21,0)="^^1^1^3070827^"
^DD(727.811,39,21,1,0)="Currently NULL."
^DD(727.811,39,23,0)="^^1^1^3070827^"
^DD(727.811,39,23,1,0)="Currently NULL."
^DD(727.811,39,"DT")="3070426"
^DD(727.811,40,0)="PLACEHOLDER^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.811,40,3)="Answer must be 1-8 characters in length."
^DD(727.811,40,21,0)="^.001^1^1^3070827^^"
^DD(727.811,40,21,1,0)="Currently NULL."
^DD(727.811,40,23,0)="^.001^1^1^3070827^^"
^DD(727.811,40,23,1,0)="Currently NULL."
^DD(727.811,40,"DT")="3070426"
^DD(727.811,41,0)="PLACEHOLDER^F^^1;5^K:$L(X)>8!($L(X)<1) X"
^DD(727.811,41,3)="Answer must be 1-8 characters in length."
^DD(727.811,41,21,0)="^^1^1^3070827^"
^DD(727.811,41,21,1,0)="Currently NULL."
^DD(727.811,41,23,0)="^^1^1^3070827^"
^DD(727.811,41,23,1,0)="Currently NULL."
^DD(727.811,41,"DT")="3070426"
^DD(727.811,42,0)="PLACEHOLDER^F^^1;6^K:$L(X)>8!($L(X)<1) X"
^DD(727.811,42,3)="Answer must be 1-8 characters in length."
^DD(727.811,42,21,0)="^.001^1^1^3070827^^"
^DD(727.811,42,21,1,0)="Currently NULL."
^DD(727.811,42,23,0)="^.001^1^1^3070827^^"
^DD(727.811,42,23,1,0)="Currently NULL."
^DD(727.811,42,"DT")="3070426"
^DD(727.811,43,0)="PC PROVIDER PERSON CLASS^F^^1;7^K:$L(X)>7!($L(X)<7) X"
^DD(727.811,43,3)="Answer must be 7 characters in length."
^DD(727.811,43,21,0)="^^2^2^2981026^"
^DD(727.811,43,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.811,43,21,2,0)="associated with this record."
^DD(727.811,43,23,0)="^^6^6^2981026^"
^DD(727.811,43,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.811,43,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.811,43,23,3,0)="extract record."
^DD(727.811,43,23,4,0)="  "
^DD(727.811,43,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.811,43,23,6,0)="7 characters in length."
^DD(727.811,43,"DT")="2981026"
^DD(727.811,44,0)="ASSOCIATE PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X"
^DD(727.811,44,3)="Answer must be 2-11 characters in length."
^DD(727.811,44,21,0)="^^4^4^2990505^"
^DD(727.811,44,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.811,44,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.811,44,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.811,44,21,4,0)="character 2."
^DD(727.811,44,23,0)="^^2^2^2990505^"
^DD(727.811,44,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.811,44,23,2,0)="the PCMM application."
^DD(727.811,44,"DT")="2990505"
^DD(727.811,45,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;9^K:$L(X)>7!($L(X)<7) X"
^DD(727.811,45,3)="Answer must be 7 characters in length."
^DD(727.811,45,21,0)="^^4^4^2990505^"
^DD(727.811,45,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.811,45,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.811,45,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.811,45,21,4,0)="exactly 7 characters in length. "
^DD(727.811,45,23,0)="^^3^3^2990505^"
^DD(727.811,45,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.811,45,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.811,45,23,3,0)="PERS is the IEN from file #200."
^DD(727.811,45,"DT")="2990505"
^DD(727.811,46,0)="PLACEHOLDER^F^^1;10^K:$L(X)>8!($L(X)<1) X"
^DD(727.811,46,3)="Answer must be 1-8 characters in length."
^DD(727.811,46,21,0)="^^1^1^3070827^"
^DD(727.811,46,21,1,0)="Currently NULL."
^DD(727.811,46,23,0)="^^1^1^3070827^"
^DD(727.811,46,23,1,0)="Currently NULL."
^DD(727.811,46,"DT")="3070426"
^DD(727.811,47,0)="CPT CODE QUANTITY MODIFIERS^F^^1;11^K:$L(X)>17!($L(X)<1) X"
^DD(727.811,47,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.811,47,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.811,47,3)="Answer must be 1-17 characters in length."
^DD(727.811,47,21,0)="^^2^2^3001020^"
^DD(727.811,47,21,1,0)="Displays CPT code, how many times it appears in the record, and its"
^DD(727.811,47,21,2,0)="associated modifiers."
^DD(727.811,47,"DT")="3000620"
^DD(727.811,48,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,48,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.811,48,21,0)="^^5^5^3001020^"
^DD(727.811,48,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.811,48,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.811,48,21,3,0)="Domiciliary (DOM)"
^DD(727.811,48,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.811,48,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.811,48,"DT")="3001010"
^DD(727.811,49,0)="ENROLLMENT CATEGORY^F^^1;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,49,3)="Answer must be 1 character in length."
^DD(727.811,49,21,0)="^^1^1^3001020^"
^DD(727.811,49,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.811,49,"DT")="3000620"
^DD(727.811,50,0)="ENROLLMENT STATUS^F^^1;14^K:$L(X)>2!($L(X)<1) X"
^DD(727.811,50,3)="Answer must be 1-2 characters in length."
^DD(727.811,50,21,0)="^^1^1^3001020^"
^DD(727.811,50,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.811,50,"DT")="3000620"
^DD(727.811,51,0)="PLACEHOLDER^F^^1;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,51,3)="Answer must be 1 character in length."
^DD(727.811,51,"DT")="3040301"
^DD(727.811,52,0)="PERIOD OF SERVICE^F^^1;16^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,52,3)="Answer must be 1 character in length."
^DD(727.811,52,21,0)="^.001^2^2^3001020^^"
^DD(727.811,52,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.811,52,21,2,0)="eligibility code. "
^DD(727.811,52,23,0)="^^2^2^3001020^"
^DD(727.811,52,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.811,52,23,2,0)="the Patient file (#2)"
^DD(727.811,52,"DT")="3000620"
^DD(727.811,53,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;17^Q"
^DD(727.811,53,.1)="Purple Heart Indicator"
^DD(727.811,53,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.811,53,21,0)="^.001^1^1^3021009^^^"
^DD(727.811,53,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.811,53,23,0)="^^2^2^3021009^"
^DD(727.811,53,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.811,53,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.811,53,"DT")="3021009"
^DD(727.811,54,0)="OBSERVATION PATIENT INDICATOR^F^^1;18^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,54,3)="Answer must be 1-4 characters in length."
^DD(727.811,54,21,0)="^^2^2^3011212^"
^DD(727.811,54,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.811,54,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.811,54,"DT")="3010814"
^DD(727.811,55,0)="ENCOUNTER NUMBER^F^^1;19^K:$L(X)>18!($L(X)<1) X"
^DD(727.811,55,3)="Answer must be 1-18 characters in length"
^DD(727.811,55,21,0)="^^3^3^3011212^"
^DD(727.811,55,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.811,55,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.811,55,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.811,55,"DT")="3010503"
^DD(727.811,56,0)="AGENT ORANGE LOCATION^F^^1;20^K:$L(X)>2!($L(X)<2) X"
^DD(727.811,56,3)="Answer must be 2 characters in length"
^DD(727.811,56,21,0)="^^1^1^3011212^"
^DD(727.811,56,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.811,56,"DT")="3010503"
^DD(727.811,57,0)="PRODUCTION DIVISION CODE^F^^1;21^K:$L(X)>6!($L(X)<3) X"
^DD(727.811,57,3)="Answer must be 3-6 characters in length."
^DD(727.811,57,21,0)="^.001^2^2^3060713^^^^"
^DD(727.811,57,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.811,57,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.811,57,23,0)="^^4^4^3060719^"
^DD(727.811,57,23,1,0)="Data comes from the DIVISION field (#50) of the SURGERY file (#130) which "
^DD(727.811,57,23,2,0)="is a pointer to the INSTITUTION file (#4). This value is then used to call"
^DD(727.811,57,23,3,0)="the API RADDIV^ECXDEPT to get the STATION NUMBER field (#99) from the"
^DD(727.811,57,23,4,0)="INSTITUTION file (#4)."
^DD(727.811,57,"DT")="3020812"
^DD(727.811,58,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;22^Q"
^DD(727.811,58,.1)="Head and Neck Cancer Indicator"
^DD(727.811,58,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.811,58,21,0)="^^1^1^3020829^"
^DD(727.811,58,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.811,58,23,0)="^^3^3^3020829^"
^DD(727.811,58,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.811,58,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.811,58,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.811,58,"DT")="3020829"
^DD(727.811,59,0)="ETHNICITY^F^^1;23^K:$L(X)>6!($L(X)<1) X"
^DD(727.811,59,.1)="Ethnicity"
^DD(727.811,59,3)="Answer must be 1-6 characters in length"
^DD(727.811,59,21,0)="^^1^1^3020829^"
^DD(727.811,59,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.811,59,23,0)="^^8^8^3021210^"
^DD(727.811,59,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.811,59,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.811,59,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.811,59,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.811,59,23,5,0)=" "
^DD(727.811,59,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.811,59,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.811,59,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.811,59,"DT")="3021210"
^DD(727.811,60,0)="RACE 1^F^^1;24^K:$L(X)>6!($L(X)<1) X"
^DD(727.811,60,.1)="Race 1"
^DD(727.811,60,3)="Answer must be 1-6 characters in length"
^DD(727.811,60,21,0)="^^1^1^3020829^"
^DD(727.811,60,21,1,0)="The patient's PTF Race code(s)."
^DD(727.811,60,23,0)="^^10^10^3020829^"
^DD(727.811,60,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.811,60,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.811,60,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.811,60,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.811,60,23,5,0)=" "
^DD(727.811,60,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.811,60,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.811,60,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.811,60,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.811,60,23,10,0)="the only value included in the RACE1 field."
^DD(727.811,60,"DT")="3020829"
^DD(727.811,61,0)="NEW QUANTITY^NJ5,0^^1;25^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1.N) X"
^DD(727.811,61,.1)="New Quantity"
^DD(727.811,61,3)="Type a number between 1 and 99999, 0 Decimal Digits"
^DD(727.811,61,21,0)="^^2^2^3021010^^"
^DD(727.811,61,21,1,0)="The quantity of the prosthetic device(s) used for this operative"
^DD(727.811,61,21,2,0)="procedure."
^DD(727.811,61,23,0)="^^3^3^3021010^"
^DD(727.811,61,23,1,0)="Derived from the QUANTITY field (#7) within the PROSTHESIS INSTALLED "
^DD(727.811,61,23,2,0)="multiple (#.47) in the SURGERY file (#130) for the PROSTHESIS ITEM "
^DD(727.811,61,23,3,0)="referred to in the PROSTHESIS field (#22) of this file."
^DD(727.811,61,"DT")="3021010"
^DD(727.811,62,0)="DSS IP #^NJ7,0^^1;26^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.811,62,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.811,62,21,0)="^.001^2^2^3040318^^"
^DD(727.811,62,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.811,62,21,2,0)="patient care product."
^DD(727.811,62,23,0)="^.001^10^10^3041027^^"
^DD(727.811,62,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.811,62,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.811,62,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.811,62,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.811,62,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.811,62,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.811,62,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.811,62,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.811,62,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.811,62,23,10,0)="group identifying the problem. "
^DD(727.811,62,"DT")="3031113"
^DD(727.811,63,0)="ENROLLMENT PRIORITY^F^^1;27^K:$L(X)>2!($L(X)<1) X"
^DD(727.811,63,3)="Answer must be 1-2 characters in length."
^DD(727.811,63,21,0)="^.001^2^2^3041027^^"
^DD(727.811,63,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.811,63,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.811,63,23,0)="^^20^20^3041027^"
^DD(727.811,63,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.811,63,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.811,63,23,3,0)=" "
^DD(727.811,63,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.811,63,23,5,0)=" "
^DD(727.811,63,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.811,63,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.811,63,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.811,63,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.811,63,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.811,63,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.811,63,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.811,63,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.811,63,23,14,0)=" "
^DD(727.811,63,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.811,63,23,16,0)=" "
^DD(727.811,63,23,17,0)="                                'a' FOR 1 "
^DD(727.811,63,23,18,0)="                                'c' FOR 3 "
^DD(727.811,63,23,19,0)="                                'e' FOR 5 "
^DD(727.811,63,23,20,0)="                                'g' FOR 7   "
^DD(727.811,63,"DT")="3040301"
^DD(727.811,64,0)="USER ENROLLEE^F^^1;28^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,64,3)="Answer must be 1 character in length."
^DD(727.811,64,21,0)="^^4^4^3040317^"
^DD(727.811,64,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.811,64,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.811,64,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.811,64,21,4,0)="year's value is contained. "
^DD(727.811,64,"DT")="3040301"
^DD(727.811,65,0)="PATIENT TYPE^F^^1;29^K:$L(X)>2!($L(X)<1) X"
^DD(727.811,65,3)="Answer must be 1-2 characters in length."
^DD(727.811,65,21,0)="^^3^3^3040317^"
^DD(727.811,65,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.811,65,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.811,65,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.811,65,23,0)="^^17^17^3040317^"
^DD(727.811,65,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.811,65,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.811,65,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.811,65,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.811,65,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.811,65,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.811,65,23,7,0)=" "
^DD(727.811,65,23,8,0)="AC= ACTIVE DUTY"
^DD(727.811,65,23,9,0)="AL= ALLIED VETERAN"
^DD(727.811,65,23,10,0)="CO= COLLATERAL"
^DD(727.811,65,23,11,0)="EM= EMPLOYEE"
^DD(727.811,65,23,12,0)="IN= INELIGIBLE"
^DD(727.811,65,23,13,0)="MI= MILITARY RETIREE"
^DD(727.811,65,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.811,65,23,15,0)="NS= NSC VETERAN"
^DD(727.811,65,23,16,0)="SC= SC VETERAN"
^DD(727.811,65,23,17,0)="TR= TRICARE"
^DD(727.811,65,"DT")="3040301"
^DD(727.811,66,0)="CV STATUS ELIGIBILITY^F^^1;30^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,66,3)="Answer must be 1 character in length."
^DD(727.811,66,21,0)="^.001^3^3^3040318^^"
^DD(727.811,66,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.811,66,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.811,66,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.811,66,23,0)="^^11^11^3040318^"
^DD(727.811,66,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.811,66,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.811,66,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.811,66,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.811,66,23,5,0)=" "
^DD(727.811,66,23,6,0)=" 1 - qualifies as a CV"
^DD(727.811,66,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.811,66,23,8,0)="-1 - bad DFN or date"
^DD(727.811,66,23,9,0)=" "
^DD(727.811,66,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.811,66,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.811,66,"DT")="3040301"
^DD(727.811,67,0)="CV ELIGIBILITY END DATE^F^^1;31^K:$L(X)>8!($L(X)<1) X"
^DD(727.811,67,3)="Answer must be 1-8 characters in length."
^DD(727.811,67,21,0)="^^3^3^3040317^"
^DD(727.811,67,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.811,67,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.811,67,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.811,67,23,0)="^^4^4^3040317^"
^DD(727.811,67,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.811,67,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.811,67,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.811,67,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.811,67,"DT")="3040301"
^DD(727.811,68,0)="ENCOUNTER CV^F^^1;32^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,68,3)="Answer must be 1 character in length."
^DD(727.811,68,20,0)="^.3LA^^0"
^DD(727.811,68,21,0)="^^3^3^3040317^"
^DD(727.811,68,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.811,68,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.811,68,21,3,0)="2 to determine CV Status."
^DD(727.811,68,23,0)="^^10^10^3040317^"
^DD(727.811,68,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.811,68,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.811,68,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.811,68,23,4,0)="The third piece returns:"
^DD(727.811,68,23,5,0)=" "
^DD(727.811,68,23,6,0)="1 - vet was eligible on date specified"
^DD(727.811,68,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.811,68,23,8,0)=" "
^DD(727.811,68,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.811,68,23,10,0)="'NULL' for 'NO'."
^DD(727.811,68,"DT")="3040301"
^DD(727.811,69,0)="ROOM CLEANING TIME^F^^1;33^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,69,3)="Answer must be 1-4 characters in length."
^DD(727.811,69,21,0)="^^5^5^3040317^"
^DD(727.811,69,21,1,0)="ROOM CLEANING TIME field shall contain the time (converted to 15-minute "
^DD(727.811,69,21,2,0)="increments) required to clean the room.  Current practice is to assign "
^DD(727.811,69,21,3,0)="the same time (2 15-minute increments) to all cases, no matter what the "
^DD(727.811,69,21,4,0)="actual time was, divide by 2 if surgical staff was performing concurrent"
^DD(727.811,69,21,5,0)="surgical procedures."
^DD(727.811,69,23,0)="^^9^9^3040317^"
^DD(727.811,69,23,1,0)="ROOM CLEANING TIME field shall contain the time (converted to 15-minute "
^DD(727.811,69,23,2,0)="increments) required to clean the room.  Current practice is to assign "
^DD(727.811,69,23,3,0)="the same time (2 15-minute increments) to all cases, no matter what the "
^DD(727.811,69,23,4,0)="actual time was divide by 2 if concurrent surgery.  "
^DD(727.811,69,23,5,0)=" "
^DD(727.811,69,23,6,0)="This is derived from the Room Cleaning Time associated with the case for "
^DD(727.811,69,23,7,0)="which the record is being created; in the OR CLEAN UP TIME field.  If the "
^DD(727.811,69,23,8,0)="value in OR CLEAN UP TIME = 0 or null, the field is set to 2 (2 15-minute"
^DD(727.811,69,23,9,0)="increments). "
^DD(727.811,69,"DT")="3040301"
^DD(727.811,70,0)="HOLDING AREA TIME^F^^1;34^K:$L(X)>4!($L(X)<1) X"
^DD(727.811,70,3)="Answer must be 1-4 characters in length."
^DD(727.811,70,21,0)="^^2^2^3040317^"
^DD(727.811,70,21,1,0)="HOLDING AREA TIME field shall contain the time (in 15-minute increments) "
^DD(727.811,70,21,2,0)="that the the patient spent in the holding area."
^DD(727.811,70,23,0)="^.001^7^7^3040317^^"
^DD(727.811,70,23,1,0)="HOLDING AREA TIME field shall contain the time (in 15-minute increments) "
^DD(727.811,70,23,2,0)="that the the patient spent in the holding area, divide by 2 if doing "
^DD(727.811,70,23,3,0)="clnical staff are doing concurrent surgeries."
^DD(727.811,70,23,4,0)=" "
^DD(727.811,70,23,5,0)="This is derived by subtracting the TIME PT IN HOLD AREA from TIME PT IN OR"
^DD(727.811,70,23,6,0)="and converting the result into the number of 15-minute increments.  If the"
^DD(727.811,70,23,7,0)="TIME PT IN HOLD AREA = 0 or null, set the extract field to null."
^DD(727.811,70,"DT")="3040301"
^DD(727.811,71,0)="NATIONAL PATIENT RECORD FLAG^F^^1;35^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,71,3)="Answer must be 1 character in length."
^DD(727.811,71,21,0)="^^7^7^3040317^"
^DD(727.811,71,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.811,71,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.811,71,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.811,71,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.811,71,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.811,71,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.811,71,21,7,0)="NULL."
^DD(727.811,71,23,0)="^^6^6^3040317^"
^DD(727.811,71,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.811,71,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.811,71,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.811,71,23,4,0)="established at a National level. NATIONAL PATIENT RECORD FLAG is retrieved"
^DD(727.811,71,23,5,0)="via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is ""Y  if the"
^DD(727.811,71,23,6,0)="Category I flag is present and active, otherwise it is NULL."
^DD(727.811,71,"DT")="3040301"
^DD(727.811,72,0)="PRINCIPAL ANESTHETIST^F^^1;36^K:$L(X)>11!($L(X)<1) X"
^DD(727.811,72,3)="Answer must be 1-11 characters in length."
^DD(727.811,72,21,0)="^^4^4^3050929^"
^DD(727.811,72,21,1,0)="This is the name of the principal anesthesiologist or CRNA (or surgeon, if"
^DD(727.811,72,21,2,0)="local anesthesia). This field is extracted from field (#.31) PRINC "
^DD(727.811,72,21,3,0)="ANESTHETIST located in the Surgery file (#130) and it is preceded by a "
^DD(727.811,72,21,4,0)="'2'."
^DD(727.811,72,"DT")="3050929"
^DD(727.811,73,0)="SURGEON PERSON CLASS^F^^1;37^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,73,3)="Answer must be 1-7 characters in length."
^DD(727.811,73,21,0)="^.001^3^3^3050425^^^^"
^DD(727.811,73,21,1,0)="The VA Code of the Person Class of the Surgeon associated with this"
^DD(727.811,73,21,2,0)="record. The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.811,73,21,3,0)="7."
^DD(727.811,73,23,0)="^.001^3^3^3050425^^"
^DD(727.811,73,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.811,73,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.811,73,23,3,0)="#200."
^DD(727.811,73,"DT")="3050405"
^DD(727.811,74,0)="ATTENDING SURGEON PC^F^^2;1^K:$L(X)>7!($L(X)<7) X"
^DD(727.811,74,3)="Answer must be 7 characters in length."
^DD(727.811,74,21,0)="^.001^3^3^3050426^^"
^DD(727.811,74,21,1,0)="The VA Code of the Person Class of the Attending Surgeon associated with"
^DD(727.811,74,21,2,0)="this record. The VA Code is always of the form ""V""_six numeric digits;"
^DD(727.811,74,21,3,0)="exactly 7."
^DD(727.811,74,23,0)="^.001^3^3^3050426^^^"
^DD(727.811,74,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.811,74,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.811,74,23,3,0)="#200."
^DD(727.811,74,"DT")="3050426"
^DD(727.811,75,0)="ANESTHESIA SUPERVISOR PC^F^^2;2^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,75,3)="Answer must be 1-7 characters in length."
^DD(727.811,75,21,0)="^.001^3^3^3050425^^^^"
^DD(727.811,75,21,1,0)="The VA Code of the Person Class of the Anesthesia Supervisor associated"
^DD(727.811,75,21,2,0)="with this record. The VA Code is always of the form ""V""_six numeric"
^DD(727.811,75,21,3,0)="digits; exactly 7."
^DD(727.811,75,23,0)="^^3^3^3050425^"
^DD(727.811,75,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.811,75,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.811,75,23,3,0)="#200."
^DD(727.811,75,"DT")="3050405"
^DD(727.811,76,0)="PRINCIPAL ANESTHETIST PC^F^^2;3^K:$L(X)>7!($L(X)<7) X"
^DD(727.811,76,.1)=""
^DD(727.811,76,3)="Answer must be 7 characters in length."
^DD(727.811,76,21,0)="^^3^3^3050929^"
^DD(727.811,76,21,1,0)="The field will hold the VA Code associated with the active Person Class "
^DD(727.811,76,21,2,0)="of the Principal Anesthetist. The VA Code is always of the form ""V""_six "
^DD(727.811,76,21,3,0)="numeric digits; exactly 7."
^DD(727.811,76,23,0)="^.001^3^3^3050929^^^^"
^DD(727.811,76,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.811,76,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.811,76,23,3,0)="#200."
^DD(727.811,76,"DT")="3050929"
^DD(727.811,77,0)="ERI^F^^2;4^K:$L(X)>2!($L(X)<1) X"
^DD(727.811,77,3)="Answer must be 1-2 characters in length."
^DD(727.811,77,21,0)="^.001^2^2^3060731^^"
^DD(727.811,77,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.811,77,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.811,77,23,0)="^.001^4^4^3060731^^^"
^DD(727.811,77,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.811,77,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.811,77,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.811,77,23,4,0)="    Null"
^DD(727.811,77,"DT")="3060731"
^DD(727.811,78,0)="AGENT ORANGE ENC INDICATOR^F^^2;5^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,78,3)="Answer must be 1 character in length."
^DD(727.811,78,21,0)="^.001^5^5^3060628^^^^"
^DD(727.811,78,21,1,0)="Indicate the appropriate response for agent orange as related to"
^DD(727.811,78,21,2,0)="this patient's episode of care:"
^DD(727.811,78,21,3,0)="  Y = Yes"
^DD(727.811,78,21,4,0)="  N = No"
^DD(727.811,78,21,5,0)="  Null"
^DD(727.811,78,23,0)="^^5^5^3060719^"
^DD(727.811,78,23,1,0)="Using the VISIT field (#.015) in the SURGERY file (#130) a call is made to"
^DD(727.811,78,23,2,0)="API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI"
^DD(727.811,78,23,3,0)="will return the agent orange indicator stored at the AGENT ORANGE EXPOSURE"
^DD(727.811,78,23,4,0)="field (#80002) in the VISIT file (#9000010). The value will be stored "
^DD(727.811,78,23,5,0)="in the output array subscripted ""AO""."
^DD(727.811,78,"DT")="3060626"
^DD(727.811,79,0)="ENC HEAD/NECK CA^F^^2;6^K:$L(X)>1!($L(X)<1) X"
^DD(727.811,79,3)="Answer must be 1 character in length."
^DD(727.811,79,21,0)="^^5^5^3060719^"
^DD(727.811,79,21,1,0)="Indicates the appropriate response for head/neck cancer as related to this"
^DD(727.811,79,21,2,0)="patient's episode of care:"
^DD(727.811,79,21,3,0)="  Y = Yes"
^DD(727.811,79,21,4,0)="  N = No"
^DD(727.811,79,21,5,0)="  Null"
^DD(727.811,79,23,0)="^^5^5^3060719^"
^DD(727.811,79,23,1,0)="Using the VISIT field (#.015) in the SURGERY file (#130) a call is made to"
^DD(727.811,79,23,2,0)="API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The ENCEVENT^PXAPI"
^DD(727.811,79,23,3,0)="will return the head/neck cancer data stored at the HEAD AND/OR NECK"
^DD(727.811,79,23,4,0)="CANCER field (#80006) in the VISIT file (#9000010). The value will be"
^DD(727.811,79,23,5,0)="stored in the output array subscripted by ""HNC""."
^DD(727.811,79,"DT")="3060628"
^DD(727.811,80,0)="OEF/OIF^F^^2;7^K:$L(X)>9!($L(X)<1) X"
^DD(727.811,80,3)="Answer must be 1-9 characters in length."
^DD(727.811,80,21,0)="^^3^3^3070502^"
^DD(727.811,80,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.811,80,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.811,80,21,3,0)="reflects the OEF or OIF where this patient was in combat."
^DD(727.811,80,23,0)="^^12^12^3070502^"
^DD(727.811,80,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.811,80,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.811,80,23,3,0)="reflects the OEF or OIF where this patient was in combat. The value of "
^DD(727.811,80,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.811,80,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.811,80,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.811,80,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.811,80,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.811,80,23,9,0)="field values are one or more combinations of the following: "
^DD(727.811,80,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.811,80,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.811,80,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.811,80,"DT")="3070502"
^DD(727.811,81,0)="OEF/OIF RETURN DATE^F^^2;8^K:$L(X)>8!($L(X)<1) X"
^DD(727.811,81,3)="Answer must be 1-8 characters in length."
^DD(727.811,81,21,0)="^^3^3^3070502^"
^DD(727.811,81,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.811,81,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.811,81,21,3,0)="has a format equal to YYYYMMDD."
^DD(727.811,81,23,0)="^^6^6^3070502^"
^DD(727.811,81,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.811,81,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.811,81,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.811,81,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.811,81,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.811,81,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.811,81,"DT")="3070502"
^DD(727.811,82,0)="CLINIC POINTER^F^^2;9^K:$L(X)>6!($L(X)<1) X"
^DD(727.811,82,3)="Answer must be 1-6 characters in length."
^DD(727.811,82,21,0)="^^2^2^3070502^"
^DD(727.811,82,21,1,0)="This applies to outpatients only.  (Value is Null for inpatients) This "
^DD(727.811,82,21,2,0)="field is six characters in length.   "
^DD(727.811,82,23,0)="^^11^11^3070502^"
^DD(727.811,82,23,1,0)="This applies to outpatients only.  (Value is Null for inpatients) This "
^DD(727.811,82,23,2,0)="field is six characters in length. * If a case is for Non-OR portion of"
^DD(727.811,82,23,3,0)="the Surgery package, the value for the CLINIC POINTER is retrieved from"
^DD(727.811,82,23,4,0)="the ASSOCIATED CLINIC field (#.021) located in the SURGERY file (#130).  "
^DD(727.811,82,23,5,0)="If that value in the ASSOCIATED CLINIC is NULL, then the value is obtained"
^DD(727.811,82,23,6,0)="from the NON-OR LOCATION field (#119), which is a pointer to the HOSPITAL"
^DD(727.811,82,23,7,0)="LOCATION file (#44), located in the SURGERY file (#130). * If a case is"
^DD(727.811,82,23,8,0)="not for Non-OR portion of the Surgery package, the value for the CLINIC"
^DD(727.811,82,23,9,0)="POINTER is retrieved from the SURGICAL SPECIALTY field (#.04) located in"
^DD(727.811,82,23,10,0)="the SURGERY file (#130), which is a pointer to the  LOCAL SURGICAL"
^DD(727.811,82,23,11,0)="SPECIALTY file (#137.45), for the ASSOCIATED CLINIC field (#2)."
^DD(727.811,82,"DT")="3070502"
^DD(727.811,83,0)="CREDIT STOP^F^^2;10^K:$L(X)>3!($L(X)<1) X"
^DD(727.811,83,3)="Answer must be 1-3 characters in length."
^DD(727.811,83,21,0)="^^2^2^3070502^"
^DD(727.811,83,21,1,0)="This applies only to outpatients.This field has a length of three "
^DD(727.811,83,21,2,0)="characters."
^DD(727.811,83,23,0)="^^6^6^3070502^"
^DD(727.811,83,23,1,0)="This applies only to outpatients.This field has a length of three "
^DD(727.811,83,23,2,0)="characters. The clinic associated with the Surgery Specialty is a pointer "
^DD(727.811,83,23,3,0)="to the HOSPITAL LOCATION File (#44).  CREDIT STOP is field (#2503) in the "
^DD(727.811,83,23,4,0)="HOSPITAL LOCATION File (#44).  Follow pointer to clinic entry in Clinic "
^DD(727.811,83,23,5,0)="Stop File (#40.7) to obtain three-character code. (Value is Null for "
^DD(727.811,83,23,6,0)="inpatients.) "
^DD(727.811,83,"DT")="3070502"
^DD(727.811,84,0)="STOP CODE^F^^2;11^K:$L(X)>3!($L(X)<1) X"
^DD(727.811,84,3)="Answer must be 1-3 characters in length."
^DD(727.811,84,21,0)="^^2^2^3070502^"
^DD(727.811,84,21,1,0)="This applies only to outpatients. This field has a length of three "
^DD(727.811,84,21,2,0)="characters. "
^DD(727.811,84,23,0)="^^4^4^3070502^"
^DD(727.811,84,23,1,0)="This applies only to outpatients. This field has a length of three "
^DD(727.811,84,23,2,0)="characters.  The clinic associated with the Surgery Specialty is a "
^DD(727.811,84,23,3,0)="pointer to the HOSPITAL LOCATION file (#44).  STOP CODE is field (#8) in "
^DD(727.811,84,23,4,0)="the HOSPITAL LOCATION file (#44). (Value is Null for inpatients.) "
^DD(727.811,84,"DT")="3070502"
^DD(727.811,85,0)="PRINC POSTOP DIAGNOSIS CODE^F^^2;12^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,85,3)="Answer must be 1-7 characters in length."
^DD(727.811,85,21,0)="^^1^1^3070502^"
^DD(727.811,85,21,1,0)="This field has a length of seven characters. "
^DD(727.811,85,23,0)="^^4^4^3070502^"
^DD(727.811,85,23,1,0)="This field has a length of seven characters. The value for this field is "
^DD(727.811,85,23,2,0)="retrieved from the PRIN POSTOP DIAGNOSIS CODE field (#.03), which is a "
^DD(727.811,85,23,3,0)="pointer to the ICD DIAGNOSIS file (#80),  located in the  SURGERY "
^DD(727.811,85,23,4,0)="PROCEDURE/DIAGNOSIS CODES file (#136).  "
^DD(727.811,85,"DT")="3070502"
^DD(727.811,86,0)="OTHER POSTOP DIAGNOSIS CODE #1^F^^2;13^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,86,3)="Answer must be 1-7 characters in length."
^DD(727.811,86,21,0)="^^1^1^3070502^"
^DD(727.811,86,21,1,0)="This field has a length of seven characters."
^DD(727.811,86,23,0)="^^5^5^3070502^"
^DD(727.811,86,23,1,0)="This field has a length of seven characters.  The value for this field is "
^DD(727.811,86,23,2,0)="retrieved from the OTHER POSTOP DIAGNOSIS CODES field (#4), which is a "
^DD(727.811,86,23,3,0)="pointer to Multiple (#136.04).  The OTHER POSTOP DIAGNOSIS CODE field "
^DD(727.811,86,23,4,0)="(#.01) located on MULTIPLE (#136.04) points to the ICD Diagnosis File "
^DD(727.811,86,23,5,0)="(#80)."
^DD(727.811,86,"DT")="3070502"
^DD(727.811,87,0)="OTHER POSTOP DIAGNOSIS CODE #2^F^^2;14^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,87,3)="Answer must be 1-7 characters in length."
^DD(727.811,87,21,0)="^^1^1^3070502^"
^DD(727.811,87,21,1,0)="This field has a length of seven characters.  "
^DD(727.811,87,23,0)="^^5^5^3070502^"
^DD(727.811,87,23,1,0)="This field has a length of seven characters.  The value for this field is "
^DD(727.811,87,23,2,0)="retrieved from the OTHER POSTOP DIAGNOSIS CODES field (#4), which is a "
^DD(727.811,87,23,3,0)="pointer to Multiple (#136.04).  The OTHER POSTOP DIAGNOSIS CODE field "
^DD(727.811,87,23,4,0)="(#.01) located on MULTIPLE (#136.04) points to the ICD Diagnosis File "
^DD(727.811,87,23,5,0)="(#80)."
^DD(727.811,87,"DT")="3070502"
^DD(727.811,88,0)="OTHER POSTOP DIAGNOSIS CODE #3^F^^2;15^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,88,3)="Answer must be 1-7 characters in length."
^DD(727.811,88,21,0)="^^1^1^3070502^"
^DD(727.811,88,21,1,0)="This field is seven characters in length."
^DD(727.811,88,23,0)="^^5^5^3070502^"
^DD(727.811,88,23,1,0)="This field is seven characters in length. The value for this field is "
^DD(727.811,88,23,2,0)="retrieved from the OTHER POSTOP DIAGNOSIS CODES field (#4), which is a "
^DD(727.811,88,23,3,0)="pointer to Multiple (#136.04).  The OTHER POSTOP DIAGNOSIS CODE field "
^DD(727.811,88,23,4,0)="(#.01) located on MULTIPLE (#136.04) points to the ICD Diagnosis File "
^DD(727.811,88,23,5,0)="(#80)."
^DD(727.811,88,"DT")="3070502"
^DD(727.811,89,0)="OTHER POSTOP DIAGNOSIS CODE #4^F^^2;16^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,89,3)="Answer must be 1-7 characters in length."
^DD(727.811,89,21,0)="^^1^1^3070502^"
^DD(727.811,89,21,1,0)="This field has a length of seven characters. "
^DD(727.811,89,23,0)="^^5^5^3070502^"
^DD(727.811,89,23,1,0)="This field has a length of seven characters. The value for this field is "
^DD(727.811,89,23,2,0)="retrieved from the OTHER POSTOP DIAGNOSIS CODES field (#4), which is a "
^DD(727.811,89,23,3,0)="pointer to Multiple (#136.04).  The OTHER POSTOP DIAGNOSIS CODE field "
^DD(727.811,89,23,4,0)="(#.01) located on MULTIPLE (#136.04) points to the ICD Diagnosis File "
^DD(727.811,89,23,5,0)="(#80)."
^DD(727.811,89,"DT")="3070502"
^DD(727.811,90,0)="OTHER POSTOP DIAGNOSIS CODE #5^F^^2;17^K:$L(X)>7!($L(X)<1) X"
^DD(727.811,90,3)="Answer must be 1-7 characters in length."
^DD(727.811,90,21,0)="^^1^1^3070502^"
^DD(727.811,90,21,1,0)="This field has a length of seven characters."
^DD(727.811,90,23,0)="^^5^5^3070502^"
^DD(727.811,90,23,1,0)="This field has a length of seven characters.  The value for this field is "
^DD(727.811,90,23,2,0)="retrieved from the OTHER POSTOP DIAGNOSIS CODES field (#4), which is a "
^DD(727.811,90,23,3,0)="pointer to Multiple (#136.04).  The OTHER POSTOP DIAGNOSIS CODE field "
^DD(727.811,90,23,4,0)="(#.01) located on MULTIPLE (#136.04) points to the ICD Diagnosis File "
^DD(727.811,90,23,5,0)="(#80)."
^DD(727.811,90,"DT")="3070502"
^DD(727.811,91,0)="ANESTHESIA SUPERVISOR NPI^F^^2;18^K:$L(X)>15!($L(X)<1) X"
^DD(727.811,91,3)="Answer must be 1-15 characters in length."
^DD(727.811,91,21,0)="^^3^3^3070502^"
^DD(727.811,91,21,1,0)="A standard unique life-long identifier of the person who oversaw and/or "
^DD(727.811,91,21,2,0)="signed off on the anesthesia for the surgical procedure. This field has a "
^DD(727.811,91,21,3,0)="length of fifteen characters."
^DD(727.811,91,23,0)="^^4^4^3070502^"
^DD(727.811,91,23,1,0)="A standard unique life-long identifier of the person who oversaw and/or "
^DD(727.811,91,23,2,0)="signed off on the anesthesia for the surgical procedure. This field has a "
^DD(727.811,91,23,3,0)="length of fifteen characters.  The qualified identifier is retrieved via "
^DD(727.811,91,23,4,0)="the supporting Kernel API: $$NPI^XUSNPI. "
^DD(727.811,91,"DT")="3070502"
^DD(727.811,92,0)="ASSOCIATE PC PROVIDER NPI^F^^2;19^K:$L(X)>15!($L(X)<1) X"
^DD(727.811,92,3)="Answer must be 1-15 characters in length."
^DD(727.811,92,21,0)="^^2^2^3070502^"
^DD(727.811,92,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.811,92,21,2,0)="provider.  This field has a length of fifteen characters. "
^DD(727.811,92,23,0)="^^3^3^3070502^"
^DD(727.811,92,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.811,92,23,2,0)="provider.  This field has a length of fifteen characters. The qualified "
^DD(727.811,92,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.811,92,"DT")="3070502"
^DD(727.811,93,0)="ATTENDING SURGEON NPI^F^^2;20^K:$L(X)>15!($L(X)<1) X"
^DD(727.811,93,3)="Answer must be 1-15 characters in length."
^DD(727.811,93,21,0)="^^3^3^3070502^"
^DD(727.811,93,21,1,0)="A standard unique life-long identifier of the person who oversaw and/or "
^DD(727.811,93,21,2,0)="signed off on the surgical procedure.  This field has a length of fifteen "
^DD(727.811,93,21,3,0)="characters."
^DD(727.811,93,23,0)="^^4^4^3070502^"
^DD(727.811,93,23,1,0)="A standard unique life-long identifier of the person who oversaw and/or "
^DD(727.811,93,23,2,0)="signed off on the surgical procedure.  This field has a length of fifteen "
^DD(727.811,93,23,3,0)="characters. The qualified identifier is retrieved via the supporting "
^DD(727.811,93,23,4,0)="Kernel API: $$NPI^XUSNPI."
^DD(727.811,93,"DT")="3070502"
^DD(727.811,94,0)="PRIMARY CARE PROVIDER NPI^F^^2;21^K:$L(X)>15!($L(X)<1) X"
^DD(727.811,94,3)="Answer must be 1-15 characters in length."
^DD(727.811,94,21,0)="^^2^2^3070502^"
^DD(727.811,94,21,1,0)="A standard unique life-long identifier of the primary care provider.  "
^DD(727.811,94,21,2,0)="This field has a length of fifteen characters."
^DD(727.811,94,23,0)="^^3^3^3070502^"
^DD(727.811,94,23,1,0)="A standard unique life-long identifier of the primary care provider.  "
^DD(727.811,94,23,2,0)="This field has a length of fifteen characters. The qualified identifier "
^DD(727.811,94,23,3,0)="is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.811,94,"DT")="3070502"
^DD(727.811,95,0)="PRINCIPLE ANESTHETIST NPI^F^^2;22^K:$L(X)>15!($L(X)<1) X"
^DD(727.811,95,3)="Answer must be 1-15 characters in length."
^DD(727.811,95,21,0)="^^3^3^3070502^"
^DD(727.811,95,21,1,0)="A standard unique life-long identifier of the principal anesthesiologist "
^DD(727.811,95,21,2,0)="or Certified Registered Nurse Anesthetist (CRNA) who provided anesthesia "
^DD(727.811,95,21,3,0)="for the surgical procedure. This field has a length of fifteen characters."
^DD(727.811,95,23,0)="^^5^5^3070502^"
^DD(727.811,95,23,1,0)="A standard unique life-long identifier of the principal anesthesiologist "
^DD(727.811,95,23,2,0)="or Certified Registered Nurse Anesthetist (CRNA) who provided anesthesia "
^DD(727.811,95,23,3,0)="for the surgical procedure. This field has a length of fifteen "
^DD(727.811,95,23,4,0)="characters. The qualified identifier is retrieved via the supporting "
^DD(727.811,95,23,5,0)="Kernel API: $$NPI^XUSNPI."
^DD(727.811,95,"DT")="3070502"
^DD(727.811,96,0)="SURGEON NPI^F^^2;23^K:$L(X)>15!($L(X)<1) X"
^DD(727.811,96,3)="Answer must be 1-15 characters in length."
^DD(727.811,96,21,0)="^^2^2^3070502^"
^DD(727.811,96,21,1,0)="A standard unique life-long identifier of the person who performed the "
^DD(727.811,96,21,2,0)="surgical procedure.  This field has a length of fifteen characters. "
^DD(727.811,96,23,0)="^^4^4^3070502^"
^DD(727.811,96,23,1,0)="A standard unique life-long identifier of the person who performed the "
^DD(727.811,96,23,2,0)="surgical procedure.  This field has a length of fifteen characters. The "
^DD(727.811,96,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.811,96,23,4,0)="$$NPI^XUSNPI."
^DD(727.811,96,"DT")="3070502"
^DD(727.811,"B","ADMISSION DATE",36)=""
^DD(727.811,"B","AGENT ORANGE ENC INDICATOR",78)=""
^DD(727.811,"B","AGENT ORANGE LOCATION",56)=""
^DD(727.811,"B","ANESTHESIA SUPERVISOR",14)=""
^DD(727.811,"B","ANESTHESIA SUPERVISOR NPI",91)=""
^DD(727.811,"B","ANESTHESIA SUPERVISOR PC",75)=""
^DD(727.811,"B","ANESTHESIA TECHNIQUE",15)=""
^DD(727.811,"B","ANESTHESIA TIME",21)=""
^DD(727.811,"B","ASSOC. PC PROV. PERSON CLASS",45)=""
^DD(727.811,"B","ASSOCIATE PC PROVIDER",44)=""
^DD(727.811,"B","ASSOCIATE PC PROVIDER NPI",92)=""
^DD(727.811,"B","ATTENDING SURGEON",13)=""
^DD(727.811,"B","ATTENDING SURGEON NPI",93)=""
^DD(727.811,"B","ATTENDING SURGEON PC",74)=""
^DD(727.811,"B","ATTENDING'S SERVICE",30)=""
^DD(727.811,"B","Anesthesia Supervisor",14)="1"
^DD(727.811,"B","Anesthesia Technique",15)="1"
^DD(727.811,"B","Anesthesia Time",21)="1"
^DD(727.811,"B","Attending Surgeon",13)="1"
^DD(727.811,"B","Attending's Service",30)="1"
^DD(727.811,"B","CANCELLED",27)=""
^DD(727.811,"B","CASE NUMBER",9)=""
^DD(727.811,"B","CLINIC POINTER",82)=""
^DD(727.811,"B","CPT",17)=""
^DD(727.811,"B","CPT CODE QUANTITY MODIFIERS",47)=""
^DD(727.811,"B","CREDIT STOP",83)=""
^DD(727.811,"B","CV ELIGIBILITY END DATE",67)=""
^DD(727.811,"B","CV STATUS ELIGIBILITY",66)=""
^DD(727.811,"B","Cancelled",27)="1"
^DD(727.811,"B","Case Number",9)="1"
^DD(727.811,"B","Current Procedural Terminology",17)="1"
^DD(727.811,"B","DAY",8)=""
^DD(727.811,"B","DOM,PRRTP AND SAARTP INDICATOR",48)=""
^DD(727.811,"B","DSS IP #",62)=""
^DD(727.811,"B","DSS PRODUCT DEPARTMENT",38)=""
^DD(727.811,"B","Day",8)="1"
^DD(727.811,"B","ENC HEAD/NECK CA",79)=""
^DD(727.811,"B","ENCOUNTER CV",68)=""
^DD(727.811,"B","ENCOUNTER NUMBER",55)=""
^DD(727.811,"B","ENROLLMENT CATEGORY",49)=""
^DD(727.811,"B","ENROLLMENT PRIORITY",63)=""
^DD(727.811,"B","ENROLLMENT STATUS",50)=""
^DD(727.811,"B","ERI",77)=""
^DD(727.811,"B","ETHNICITY",59)=""
^DD(727.811,"B","EXTRACT NUMBER",2)=""
^DD(727.811,"B","Ethnicity",59)="1"
^DD(727.811,"B","Extract Number",2)="1"
^DD(727.811,"B","FACILITY",3)=""
^DD(727.811,"B","Facility",3)="1"
^DD(727.811,"B","HEAD & NECK CANCER INDICATOR",58)=""
^DD(727.811,"B","HOLDING AREA TIME",70)=""
^DD(727.811,"B","Head and Neck Cancer Indicator",58)="1"
^DD(727.811,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.811,"B","In Out Patient Indicator",7)="1"
^DD(727.811,"B","MASTER PATIENT INDEX",37)=""
^DD(727.811,"B","MOVEMENT FILE #",25)=""
^DD(727.811,"B","Movement File Number",25)="1"
^DD(727.811,"B","NAME",6)=""
^DD(727.811,"B","NATIONAL PATIENT RECORD FLAG",71)=""
^DD(727.811,"B","NEW QUANTITY",61)=""
^DD(727.811,"B","NON-OR DSS IDENTIFIER",31)=""
^DD(727.811,"B","Name",6)="1"
^DD(727.811,"B","New Quantity",61)="1"
^DD(727.811,"B","OBSERVATION PATIENT INDICATOR",54)=""
^DD(727.811,"B","OEF/OIF",80)=""
^DD(727.811,"B","OEF/OIF RETURN DATE",81)=""
^DD(727.811,"B","OPERATION TIME",20)=""
^DD(727.811,"B","OR ROOM NUMBER",11)=""
^DD(727.811,"B","OR Room Number",11)="1"
^DD(727.811,"B","OR TYPE",29)=""
^DD(727.811,"B","OR Type",29)="1"
^DD(727.811,"B","OTHER POSTOP DIAGNOSIS CODE #1",86)=""
^DD(727.811,"B","OTHER POSTOP DIAGNOSIS CODE #2",87)=""
^DD(727.811,"B","OTHER POSTOP DIAGNOSIS CODE #3",88)=""
^DD(727.811,"B","OTHER POSTOP DIAGNOSIS CODE #4",89)=""
^DD(727.811,"B","OTHER POSTOP DIAGNOSIS CODE #5",90)=""
^DD(727.811,"B","Operation Time",20)="1"
^DD(727.811,"B","PATIENT NO. - DFN",4)=""
^DD(727.811,"B","PATIENT TIME",19)=""
^DD(727.811,"B","PATIENT TYPE",65)=""
^DD(727.811,"B","PC PROVIDER PERSON CLASS",43)=""
^DD(727.811,"B","PERIOD OF SERVICE",52)=""
^DD(727.811,"B","PLACEHOLDER",39)=""
^DD(727.811,"B","PLACEHOLDER",40)=""
^DD(727.811,"B","PLACEHOLDER",41)=""
^DD(727.811,"B","PLACEHOLDER",42)=""
^DD(727.811,"B","PLACEHOLDER",46)=""
^DD(727.811,"B","PLACEHOLDER",51)=""
^DD(727.811,"B","PRIMARY CARE PROVIDER",35)=""
^DD(727.811,"B","PRIMARY CARE PROVIDER NPI",94)=""
^DD(727.811,"B","PRIMARY CARE TEAM",34)=""
^DD(727.811,"B","PRIMARY/SECONDARY/PROSTHETICS",16)=""
^DD(727.811,"B","PRINC POSTOP DIAGNOSIS CODE",85)=""
^DD(727.811,"B","PRINCIPAL ANESTHETIST",72)=""
^DD(727.811,"B","PRINCIPAL ANESTHETIST PC",76)=""
^DD(727.811,"B","PRINCIPLE ANESTHETIST NPI",95)=""
^DD(727.811,"B","PRODUCTION DIVISION CODE",57)=""
^DD(727.811,"B","PROSTHESIS",22)=""
^DD(727.811,"B","PURPLE HEART INDICATOR",53)=""
^DD(727.811,"B","Patient No. - DFN",4)="1"
^DD(727.811,"B","Patient Time",19)="1"
^DD(727.811,"B","Primary Care Provider",35)="1"
^DD(727.811,"B","Primary Care Team",34)="1"
^DD(727.811,"B","Primary/Secondary/Prosthetics",16)="1"
^DD(727.811,"B","Prosthesis",22)="1"
^DD(727.811,"B","Purple Heart Indicator",53)="1"
^DD(727.811,"B","QUANTITY",23)=""
^DD(727.811,"B","Quantity",23)="1"
^DD(727.811,"B","RACE 1",60)=""
^DD(727.811,"B","RECOVERY ROOM (PACU) TIME",32)=""
^DD(727.811,"B","ROOM CLEANING TIME",69)=""
^DD(727.811,"B","Race 1",60)="1"
^DD(727.811,"B","Recovery Room (PACU) Time",32)="1"
^DD(727.811,"B","SEQUENCE NUMBER",.01)=""
^DD(727.811,"B","SSN",5)=""
^DD(727.811,"B","STOP CODE",84)=""
^DD(727.811,"B","SURGEON",12)=""
^DD(727.811,"B","SURGEON NPI",96)=""
^DD(727.811,"B","SURGEON PERSON CLASS",73)=""
^DD(727.811,"B","SURGICAL SPECIALTY",10)=""
^DD(727.811,"B","Sequence Number",.01)="1"
^DD(727.811,"B","Social Security Number",5)="1"
^DD(727.811,"B","Surgeon",12)="1"
^DD(727.811,"B","Surgical Specialty",10)="1"
^DD(727.811,"B","TIME",28)=""
^DD(727.811,"B","TREATING SPECIALTY",26)=""
^DD(727.811,"B","Time",28)="1"
^DD(727.811,"B","Treating Specialty",26)="1"
^DD(727.811,"B","USER ENROLLEE",64)=""
^DD(727.811,"B","YEAR MONTH",1)=""
^DD(727.811,"B","Year/Month",1)="1"
^DD(727.811,"GL",0,1,.01)=""
^DD(727.811,"GL",0,2,1)=""
^DD(727.811,"GL",0,3,2)=""
^DD(727.811,"GL",0,4,3)=""
^DD(727.811,"GL",0,5,4)=""
^DD(727.811,"GL",0,6,5)=""
^DD(727.811,"GL",0,7,6)=""
^DD(727.811,"GL",0,8,7)=""
^DD(727.811,"GL",0,9,8)=""
^DD(727.811,"GL",0,10,9)=""
^DD(727.811,"GL",0,11,10)=""
^DD(727.811,"GL",0,12,11)=""
^DD(727.811,"GL",0,13,12)=""
^DD(727.811,"GL",0,14,13)=""
^DD(727.811,"GL",0,15,14)=""
^DD(727.811,"GL",0,16,15)=""
^DD(727.811,"GL",0,17,16)=""
^DD(727.811,"GL",0,18,17)=""
^DD(727.811,"GL",0,20,19)=""
^DD(727.811,"GL",0,21,20)=""
^DD(727.811,"GL",0,22,21)=""
^DD(727.811,"GL",0,23,22)=""
^DD(727.811,"GL",0,24,23)=""
^DD(727.811,"GL",0,26,25)=""
^DD(727.811,"GL",0,27,26)=""
^DD(727.811,"GL",0,28,27)=""
^DD(727.811,"GL",0,29,28)=""
^DD(727.811,"GL",0,30,29)=""
^DD(727.811,"GL",0,31,30)=""
^DD(727.811,"GL",0,32,31)=""
^DD(727.811,"GL",0,33,32)=""
^DD(727.811,"GL",0,35,34)=""
^DD(727.811,"GL",0,36,35)=""
^DD(727.811,"GL",0,37,36)=""
^DD(727.811,"GL",1,1,37)=""
^DD(727.811,"GL",1,2,38)=""
^DD(727.811,"GL",1,3,39)=""
^DD(727.811,"GL",1,4,40)=""
^DD(727.811,"GL",1,5,41)=""
^DD(727.811,"GL",1,6,42)=""
^DD(727.811,"GL",1,7,43)=""
^DD(727.811,"GL",1,8,44)=""
^DD(727.811,"GL",1,9,45)=""
^DD(727.811,"GL",1,10,46)=""
^DD(727.811,"GL",1,11,47)=""
^DD(727.811,"GL",1,12,48)=""
^DD(727.811,"GL",1,13,49)=""
^DD(727.811,"GL",1,14,50)=""
^DD(727.811,"GL",1,15,51)=""
^DD(727.811,"GL",1,16,52)=""
^DD(727.811,"GL",1,17,53)=""
^DD(727.811,"GL",1,18,54)=""
^DD(727.811,"GL",1,19,55)=""
^DD(727.811,"GL",1,20,56)=""
^DD(727.811,"GL",1,21,57)=""
^DD(727.811,"GL",1,22,58)=""
^DD(727.811,"GL",1,23,59)=""
^DD(727.811,"GL",1,24,60)=""
^DD(727.811,"GL",1,25,61)=""
^DD(727.811,"GL",1,26,62)=""
^DD(727.811,"GL",1,27,63)=""
^DD(727.811,"GL",1,28,64)=""
^DD(727.811,"GL",1,29,65)=""
^DD(727.811,"GL",1,30,66)=""
^DD(727.811,"GL",1,31,67)=""
^DD(727.811,"GL",1,32,68)=""
^DD(727.811,"GL",1,33,69)=""
^DD(727.811,"GL",1,34,70)=""
^DD(727.811,"GL",1,35,71)=""
^DD(727.811,"GL",1,36,72)=""
^DD(727.811,"GL",1,37,73)=""
^DD(727.811,"GL",2,1,74)=""
^DD(727.811,"GL",2,2,75)=""
^DD(727.811,"GL",2,3,76)=""
^DD(727.811,"GL",2,4,77)=""
^DD(727.811,"GL",2,5,78)=""
^DD(727.811,"GL",2,6,79)=""
^DD(727.811,"GL",2,7,80)=""
^DD(727.811,"GL",2,8,81)=""
^DD(727.811,"GL",2,9,82)=""
^DD(727.811,"GL",2,10,83)=""
^DD(727.811,"GL",2,11,84)=""
^DD(727.811,"GL",2,12,85)=""
^DD(727.811,"GL",2,13,86)=""
^DD(727.811,"GL",2,14,87)=""
^DD(727.811,"GL",2,15,88)=""
^DD(727.811,"GL",2,16,89)=""
^DD(727.811,"GL",2,17,90)=""
^DD(727.811,"GL",2,18,91)=""
^DD(727.811,"GL",2,19,92)=""
^DD(727.811,"GL",2,20,93)=""
^DD(727.811,"GL",2,21,94)=""
^DD(727.811,"GL",2,22,95)=""
^DD(727.811,"GL",2,23,96)=""
^DD(727.811,"IX",2)=""
^DD(727.811,"RQ",.01)=""
^DD(727.812,0)="FIELD^^60^67"
^DD(727.812,0,"DDA")="N"
^DD(727.812,0,"DT")="3021009"
^DD(727.812,0,"IX","AC",727.812,2)=""
^DD(727.812,0,"NM","MENTAL HEALTH EXTRACT")=""
^DD(727.812,0,"VR")="3.0"
^DD(727.812,0,"VRPK")="ECX"
^DD(727.812,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.812,.01,1,0)="^.1^^0"
^DD(727.812,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.812,.01,21,0)="^^1^1^2990505^"
^DD(727.812,.01,21,1,0)="The record number for this extract entry."
^DD(727.812,.01,23,0)="^^2^2^2990505^"
^DD(727.812,.01,23,1,0)="The internal entry number (IEN) for this record. "
^DD(727.812,.01,23,2,0)="This entry is DINUMed."
^DD(727.812,.01,"DT")="2990726"
^DD(727.812,1,0)="YEAR MONTH^RF^^0;2^K:$L(X)>6!($L(X)<6) X"
^DD(727.812,1,3)="Answer must be 6 characters in length."
^DD(727.812,1,21,0)="^^2^2^2990505^"
^DD(727.812,1,21,1,0)="A six character string representing the year and the month"
^DD(727.812,1,21,2,0)="for which this extract was performed."
^DD(727.812,1,23,0)="^^1^1^2990505^"
^DD(727.812,1,23,1,0)="Format is YYYYMM; Year 2000 compliant."
^DD(727.812,1,"DT")="2990505"
^DD(727.812,2,0)="EXTRACT NUMBER^RP727'^ECX(727,^0;3^Q"
^DD(727.812,2,1,0)="^.1"
^DD(727.812,2,1,1,0)="727.812^AC^MUMPS"
^DD(727.812,2,1,1,1)="S ^ECX(727.812,""AC"",$E(X,1,30),DA)="""""
^DD(727.812,2,1,1,2)="K ^ECX(727.812,""AC"",$E(X,1,30),DA)"
^DD(727.812,2,1,1,3)="DO NOT DELETE"
^DD(727.812,2,1,1,"%D",0)="^^2^2^2990726^^"
^DD(727.812,2,1,1,"%D",1,0)="The ""AC"" cross-reference is essential for managing and purging data"
^DD(727.812,2,1,1,"%D",2,0)="in this file."
^DD(727.812,2,1,1,"DT")="2990511"
^DD(727.812,2,21,0)="^^2^2^2990505^"
^DD(727.812,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.812,2,21,2,0)="extract."
^DD(727.812,2,23,0)="^^2^2^2990505^"
^DD(727.812,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.812,2,23,2,0)="pick up the header for the MailMan transmission message."
^DD(727.812,2,"DT")="2990511"
^DD(727.812,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<3) X"
^DD(727.812,3,3)="Answer must be 3-7 characters in length."
^DD(727.812,3,21,0)="^^2^2^2990505^"
^DD(727.812,3,21,1,0)="Identifies the facility associated with the extract data by its "
^DD(727.812,3,21,2,0)="station number."
^DD(727.812,3,23,0)="^^2^2^2990505^"
^DD(727.812,3,23,1,0)="STATION NUMBER field (#99) of the INSTITUTION file (#4) record"
^DD(727.812,3,23,2,0)="pointed to by the NAME field (#.01) of the DSS EXTRACTS file (#728)."
^DD(727.812,3,"DT")="2990505"
^DD(727.812,4,0)="PATIENT NO. - DFN^RP2'^DPT(^0;5^Q"
^DD(727.812,4,21,0)="^^2^2^2990505^"
^DD(727.812,4,21,1,0)="Internal entry number of the PATIENT file (#2) record identifying the"
^DD(727.812,4,21,2,0)="patient associated with the Mental Health information."
^DD(727.812,4,23,0)="^^5^5^2990505^"
^DD(727.812,4,23,1,0)="One of three possible sources:"
^DD(727.812,4,23,2,0)="(1) NAME field (#.01) of the PSYCH INSTRUMENT PATIENT file (#601.2)"
^DD(727.812,4,23,3,0)="(2) NAME field (#.02) of the ADDICTION SEVERITY INDEX file (#604)"
^DD(727.812,4,23,4,0)="(3) PATIENT NAME field (#.02) of the DIAGNOSTIC RESULTS - MENTAL "
^DD(727.812,4,23,5,0)="    HEALTH file (#627.8)"
^DD(727.812,4,"DT")="2990505"
^DD(727.812,5,0)="SSN^RF^^0;6^K:$L(X)>10!($L(X)<9) X"
^DD(727.812,5,3)="Answer must be 9-10 characters in length."
^DD(727.812,5,21,0)="^^4^4^2990505^"
^DD(727.812,5,21,1,0)="The patient's social security number."
^DD(727.812,5,21,2,0)=" "
^DD(727.812,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.812,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.812,5,23,0)="^^6^6^2990505^"
^DD(727.812,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.812,5,23,2,0)="(#4) of this extract file (#727.812), SSN data is derived from "
^DD(727.812,5,23,3,0)="the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2)."
^DD(727.812,5,23,4,0)=" "
^DD(727.812,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.812,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.812,5,"DT")="2990505"
^DD(727.812,6,0)="NAME^RF^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.812,6,3)="Answer must be 4 characters in length."
^DD(727.812,6,21,0)="^^1^1^2990505^"
^DD(727.812,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.812,6,23,0)="^^4^4^2990505^"
^DD(727.812,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.812,6,23,2,0)="(#4) of this extract file (#727.812), NAME data is derived from the"
^DD(727.812,6,23,3,0)="NAME field (#.01) in the PATIENT file (#2). The first four characters of"
^DD(727.812,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.812,6,"DT")="2990505"
^DD(727.812,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,7,3)="Answer must be 1 character in length."
^DD(727.812,7,21,0)="^.001^2^2^3011129^^^"
^DD(727.812,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient on the"
^DD(727.812,7,21,2,0)="date in the DAY field (#8) for this extract record."
^DD(727.812,7,23,0)="^.001^2^2^3011129^^^^"
^DD(727.812,7,23,1,0)="In FY2002, this field has been changed and will contain ""O""=Outpatient"
^DD(727.812,7,23,2,0)="or ""I""=Inpatient."
^DD(727.812,7,"DT")="3011129"
^DD(727.812,8,0)="DAY^RF^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.812,8,3)="Answer must be 8 characters in length."
^DD(727.812,8,21,0)="^^2^2^2990505^"
^DD(727.812,8,21,1,0)="Date in format YYYYMMDD; date with which the Mental Health extract"
^DD(727.812,8,21,2,0)="data is associated."
^DD(727.812,8,23,0)="^^13^13^2990505^^^"
^DD(727.812,8,23,1,0)="One of three possible sources:"
^DD(727.812,8,23,2,0)="(1) COMPLETION DATE field (#.01) of the DATE field (#1), #601.22 "
^DD(727.812,8,23,3,0)="    sub-file, of the (#1) INSTRUMENT field, #601.21 sub-file, of "
^DD(727.812,8,23,4,0)="    the PSYCH INSTRUMENT PATIENT file (#601.1)"
^DD(727.812,8,23,5,0)="(2) DATE OF INTERVIEW field (#.05) of the ADDICTION SEVERITY INDEX "
^DD(727.812,8,23,6,0)="    file (#604)"
^DD(727.812,8,23,7,0)="(3) DATE/TIME OF DIAGNOSIS  field (#.03) of the DIAGNOSTIC RESULTS - "
^DD(727.812,8,23,8,0)="    MENTAL HEALTH file (#627.8)"
^DD(727.812,8,23,9,0)="  "
^DD(727.812,8,23,10,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.812,8,23,11,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.812,8,23,12,0)="then a default is used.  The default date value is the value of the "
^DD(727.812,8,23,13,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.812,8,"DT")="2990505"
^DD(727.812,9,0)="PLACEHOLDER^RF^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,9,3)="Answer must be 1 character in length."
^DD(727.812,9,"DT")="3040301"
^DD(727.812,10,0)="ADMISSION DATE^F^^0;11^K:$L(X)>8!($L(X)<8) X"
^DD(727.812,10,3)="Answer must be 8 characters in length."
^DD(727.812,10,21,0)="^^3^3^2990507^"
^DD(727.812,10,21,1,0)="This 8-character string represents the date on which the admission"
^DD(727.812,10,21,2,0)="occurred, if the patient referenced in the PATIENT NO. - DFN field is"
^DD(727.812,10,21,3,0)="an inpatient on the date shown in the DAY field."
^DD(727.812,10,23,0)="^^5^5^2990507^"
^DD(727.812,10,23,1,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.812,10,23,2,0)=" "
^DD(727.812,10,23,3,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.812,10,23,4,0)="is YYYYMMDD; for example, 19970923.  The standard FM date for the "
^DD(727.812,10,23,5,0)="admission is returned by IN5^VADPT."
^DD(727.812,10,"DT")="2990506"
^DD(727.812,11,0)="DISCHARGE DATE^F^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.812,11,3)="Answer must be 8 characters in length."
^DD(727.812,11,21,0)="^^4^4^2990507^"
^DD(727.812,11,21,1,0)="This 8-character string represents the date on which the discharge"
^DD(727.812,11,21,2,0)="occurred, if the patient referenced in the PATIENT NO. - DFN field"
^DD(727.812,11,21,3,0)="was an inpatient on the date shown in the DAY field, but has been"
^DD(727.812,11,21,4,0)="discharged before the run date of the extract."
^DD(727.812,11,23,0)="^^5^5^2990507^"
^DD(727.812,11,23,1,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.812,11,23,2,0)=" "
^DD(727.812,11,23,3,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.812,11,23,4,0)="is YYYYMMDD; for example, 19970923.  The standard FM date for the "
^DD(727.812,11,23,5,0)="discharge is returned by IN5^VADPT."
^DD(727.812,11,"DT")="2990506"
^DD(727.812,12,0)="DSS IDENTIFIER^F^^0;13^K:$L(X)>6!($L(X)<6) X"
^DD(727.812,12,3)="Answer must be 6 characters in length."
^DD(727.812,12,21,0)="^^5^5^2990507^"
^DD(727.812,12,21,1,0)="The DSS Identifier is defined as the stop code pair associated with an"
^DD(727.812,12,21,2,0)="outpatient encounter.  The Mental Health data currently being extracted"
^DD(727.812,12,21,3,0)="cannot be associated with a specific patient encounter.  Therefore, a "
^DD(727.812,12,21,4,0)="new unique DSS Identifier will be used for every Mental Health extract"
^DD(727.812,12,21,5,0)="record."
^DD(727.812,12,23,0)="^^2^2^2990507^"
^DD(727.812,12,23,1,0)="The DSS Identifier has not yet been determined.  The field will be set"
^DD(727.812,12,23,2,0)="to null."
^DD(727.812,12,"DT")="2990506"
^DD(727.812,13,0)="PRIMARY CARE TEAM^F^^0;14^K:$L(X)>4!($L(X)<1) X"
^DD(727.812,13,3)="Answer must be 1-4 characters in length."
^DD(727.812,13,21,0)="^^1^1^2990507^"
^DD(727.812,13,21,1,0)="The Primary Care Team assigned to this patient."
^DD(727.812,13,23,0)="^^5^5^2990507^"
^DD(727.812,13,23,1,0)="The date in the DAY field ((#8) along with the patient pointer in the"
^DD(727.812,13,23,2,0)="PATIENT NO. - DFN field (#4) of the extract record is used to make a"
^DD(727.812,13,23,3,0)="call to the Scheduling API, OUTPTTM^SDUTL3.  The pointer (IEN) to the "
^DD(727.812,13,23,4,0)="TEAM file (#404.51), retuned by the API, is used.  The data is stored"
^DD(727.812,13,23,5,0)="as free text."
^DD(727.812,13,"DT")="2990506"
^DD(727.812,14,0)="PRIMARY CARE PROVIDER^F^^0;15^K:$L(X)>11!($L(X)<2) X"
^DD(727.812,14,3)="Answer must be 2-11 characters in length."
^DD(727.812,14,21,0)="^^1^1^2990507^"
^DD(727.812,14,21,1,0)="The Primary Care Provider assigned to this patient."
^DD(727.812,14,23,0)="^^7^7^2990507^"
^DD(727.812,14,23,1,0)="The date in the DAY field ((#8) along with the patient pointer in the"
^DD(727.812,14,23,2,0)="PATIENT NO. - DFN field (#4) of the extract record is used to make a"
^DD(727.812,14,23,3,0)="call to the Scheduling API, OUTPTTM^SDUTL3.  The pointer (IEN) to the "
^DD(727.812,14,23,4,0)="NEW PERSON file (#200), retuned by the API, is used."
^DD(727.812,14,23,5,0)=" "
^DD(727.812,14,23,6,0)="A ""2"" is prefixed to the pointer value to indicate that the source"
^DD(727.812,14,23,7,0)="file is ""200"", and the data is stored as free text."
^DD(727.812,14,"DT")="2990506"
^DD(727.812,15,0)="PLACEHOLDER^F^^0;16^K:$L(X)>8!($L(X)<1) X"
^DD(727.812,15,3)="Answer must be 1-8 characters in length."
^DD(727.812,15,21,0)="^^1^1^3070827^"
^DD(727.812,15,21,1,0)="Currently NULL."
^DD(727.812,15,23,0)="^^1^1^3070827^"
^DD(727.812,15,23,1,0)="Currently NULL."
^DD(727.812,15,"DT")="3070426"
^DD(727.812,16,0)="PC PROVIDER PERSON CLASS^F^^0;17^K:$L(X)>7!($L(X)<7) X"
^DD(727.812,16,3)="Answer must be 7 characters in length."
^DD(727.812,16,21,0)="^^4^4^2990507^^"
^DD(727.812,16,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.812,16,21,2,0)="of the Primary Care Provider as assigned by through the PCMM application."
^DD(727.812,16,21,3,0)="The VA Code is always of the form ""V""_six numeric digits; exactly 7 "
^DD(727.812,16,21,4,0)="characters in length. "
^DD(727.812,16,23,0)="^^3^3^2990507^^"
^DD(727.812,16,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.812,16,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.812,16,23,3,0)="PERS is the IEN from file #200."
^DD(727.812,16,"DT")="2990506"
^DD(727.812,17,0)="PROVIDER^RF^^0;18^K:$L(X)>11!($L(X)<2) X"
^DD(727.812,17,3)="Answer must be 2-11 characters in length."
^DD(727.812,17,21,0)="^^2^2^2990507^"
^DD(727.812,17,21,1,0)="The person who administered or ordered the Mental Health test/interview"
^DD(727.812,17,21,2,0)="associated with this extract record."
^DD(727.812,17,23,0)="^^11^11^2990507^"
^DD(727.812,17,23,1,0)="A pointer to the NEW PERSON file (#200) is obtained from one of three"
^DD(727.812,17,23,2,0)="possible sources:"
^DD(727.812,17,23,3,0)="(1) ORDERED BY field (#2) of the DATE field (#1), #601.22 sub-file, of"
^DD(727.812,17,23,4,0)="the (#1) INSTRUMENT field, #601.21 sub-file, of the PSYCH INSTRUMENT "
^DD(727.812,17,23,5,0)="PATIENT file (#601.2)."
^DD(727.812,17,23,6,0)="(2) INTERVIEWER field (#.09) of the ADDICTION SEVERITY INDEX file (#604)."
^DD(727.812,17,23,7,0)="(3) DIAGNOSIS BY field (#.04) of the DIAGNOSTIC RESULTS - MENTAL HEALTH"
^DD(727.812,17,23,8,0)="file (#627.8)."
^DD(727.812,17,23,9,0)="  "
^DD(727.812,17,23,10,0)="A numeric character 2 is prefixed to the IEN, and it is stored as free"
^DD(727.812,17,23,11,0)="text."
^DD(727.812,17,"DT")="2990506"
^DD(727.812,18,0)="PLACEHOLDER^F^^0;19^K:$L(X)>8!($L(X)<1) X"
^DD(727.812,18,3)="Answer must be 1-8 characters in length."
^DD(727.812,18,21,0)="^^1^1^3070827^"
^DD(727.812,18,21,1,0)="Currently NULL."
^DD(727.812,18,23,0)="^^1^1^3070827^"
^DD(727.812,18,23,1,0)="Currently NULL."
^DD(727.812,18,"DT")="3070426"
^DD(727.812,19,0)="PROVIDER PERSON CLASS^F^^0;20^K:$L(X)>7!($L(X)<7) X"
^DD(727.812,19,3)="Answer must be 7 characters in length."
^DD(727.812,19,21,0)="^^3^3^2990507^^"
^DD(727.812,19,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.812,19,21,2,0)="of the Provider. The VA Code is always of the form ""V""_six numeric digits;"
^DD(727.812,19,21,3,0)="exactly 7 characters in length. "
^DD(727.812,19,23,0)="^^3^3^2990507^^^"
^DD(727.812,19,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.812,19,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.812,19,23,3,0)="PERS is the IEN from file #200."
^DD(727.812,19,"DT")="2990506"
^DD(727.812,20,0)="TEST NAME^RF^^0;21^K:$L(X)>5!($L(X)<3) X"
^DD(727.812,20,3)="Answer must be 3-5 characters in length."
^DD(727.812,20,21,0)="^^2^2^2990507^"
^DD(727.812,20,21,1,0)="The acronym that represents the name of test, interview, or diagnostic data"
^DD(727.812,20,21,2,0)="contained in this extract record."
^DD(727.812,20,23,0)="^^11^11^2990507^"
^DD(727.812,20,23,1,0)="The acronym placed in this field will depend upon which Mental Health file"
^DD(727.812,20,23,2,0)="is the source of the data."
^DD(727.812,20,23,3,0)="  "
^DD(727.812,20,23,4,0)="(1) If data is extracted from the PSYCH INSTRUMENT PATIENT file (#601.2),"
^DD(727.812,20,23,5,0)="then TEST NAME is derived from the INSTRUMENT field (#.01) of the MH"
^DD(727.812,20,23,6,0)="INSTRUMENT file (#601) which is pointed to by the INSTRUMENT field (#.01)"
^DD(727.812,20,23,7,0)="of the INSTRUMENT field (#1), sub-file #601.21, of file #601.2."
^DD(727.812,20,23,8,0)="(2) If data is extracted from the ADDICTION SEVERITY INDEX file (#604),"
^DD(727.812,20,23,9,0)="then TEST NAME is ASI."
^DD(727.812,20,23,10,0)="(3) If data is extracted from the DIAGNOSTIC RESULTS - MENTAL HEALTH file "
^DD(727.812,20,23,11,0)="(#627.8), then TEST NAME is GAF."
^DD(727.812,20,"DT")="2990506"
^DD(727.812,21,0)="TEST IEN^NJ4,0^^0;22^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.812,21,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(727.812,21,21,0)="^^2^2^2990510^^"
^DD(727.812,21,21,1,0)="The internal entry number in the MH INSTRUMENT file (#601) for the test"
^DD(727.812,21,21,2,0)="data, if appropriate."
^DD(727.812,21,23,0)="^^8^8^2990510^^"
^DD(727.812,21,23,1,0)="If data is extracted from the PSYCH INSTRUMENT PATIENT file (#601.2),"
^DD(727.812,21,23,2,0)="then TEST IEN will be the internal entry number of file MH INSTRUMENT"
^DD(727.812,21,23,3,0)="file (#601) contained in the INSTRUMENT field (#.01) of the INSTRUMENT"
^DD(727.812,21,23,4,0)="field (#1), sub-file #601.21, of file #601.2."
^DD(727.812,21,23,5,0)="  "
^DD(727.812,21,23,6,0)="If data is extracted form the ADDICTION SEVERITY INDEX file (#604) or"
^DD(727.812,21,23,7,0)="the DIAGNOSTIC RESULTS - MENTAL HEALTH file (#627.8), then TEST IEN"
^DD(727.812,21,23,8,0)="is null."
^DD(727.812,21,"DT")="2990506"
^DD(727.812,22,0)="SCALE NUMBER^NJ3,0^^0;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.812,22,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(727.812,22,21,0)="^^2^2^2990728^^"
^DD(727.812,22,21,1,0)="SCALE NUMBER is an identifying element for data extracted from PSYCH"
^DD(727.812,22,21,2,0)="INSTRUMENT PATIENT file (#601.2)."
^DD(727.812,22,23,0)="^^8^8^2990728^^"
^DD(727.812,22,23,1,0)="If data is extracted from PSYCH INSTRUMENT PATIENT file (#601.2), then"
^DD(727.812,22,23,2,0)="this field contains data taken from the SCALE NUMBER field (#.01) of"
^DD(727.812,22,23,3,0)="the TEST SCALE NUMBER field (#16), sub-file #601.01, of the MH "
^DD(727.812,22,23,4,0)="INSTRUMENT file (#601)."
^DD(727.812,22,23,5,0)="  "
^DD(727.812,22,23,6,0)="If data is extracted form the ADDICTION SEVERITY INDEX file (#604) or"
^DD(727.812,22,23,7,0)="the DIAGNOSTIC RESULTS - MENTAL HEALTH file (#627.8), then SCALE"
^DD(727.812,22,23,8,0)="NUMBER is null."
^DD(727.812,22,"DT")="2990729"
^DD(727.812,23,0)="SCALE NAME^F^^0;24^K:$L(X)>10!($L(X)<3) X"
^DD(727.812,23,3)="Answer must be 3-10 characters in length."
^DD(727.812,23,21,0)="^^3^3^2990507^"
^DD(727.812,23,21,1,0)="SCALE NAME is an identifying element for data extracted from PSYCH"
^DD(727.812,23,21,2,0)="INSTRUMENT PATIENT file (#601.2) or from the ADDICTION SEVERITY"
^DD(727.812,23,21,3,0)="INDEX file (#604)."
^DD(727.812,23,23,0)="^^12^12^2990507^"
^DD(727.812,23,23,1,0)="If data is extracted from PSYCH INSTRUMENT PATIENT file (#601.2),"
^DD(727.812,23,23,2,0)="then this field contains data taken from the SCALE NAME field (#.5)"
^DD(727.812,23,23,3,0)="of the TEST SCALE NUMBER field (#16), sub-file #601.01, of the MH"
^DD(727.812,23,23,4,0)="INSTRUMENT file (#601)."
^DD(727.812,23,23,5,0)="  "
^DD(727.812,23,23,6,0)="If data is extracted from the ADDICTION SEVERITY INDEX file (#604),"
^DD(727.812,23,23,7,0)="then SCALE NAME will be one of the seven standard composite score"
^DD(727.812,23,23,8,0)="names which are part of the ASI evaluation.  These are Medical,"
^DD(727.812,23,23,9,0)="Emp/Sup, Alcohol, Drug, Legal, Family, and Psych."
^DD(727.812,23,23,10,0)="  "
^DD(727.812,23,23,11,0)="If data is extracted from the DIAGNOSTIC RESULTS - MENTAL HEALTH"
^DD(727.812,23,23,12,0)="file (#627.8), then SCALE NAME is null."
^DD(727.812,23,"DT")="2990729"
^DD(727.812,24,0)="TEST SCORE^F^^0;25^K:$L(X)>5!($L(X)<1) X"
^DD(727.812,24,3)="Answer must be 1-5 characters in length."
^DD(727.812,24,21,0)="^^3^3^2990507^"
^DD(727.812,24,21,1,0)="TEST SCORE contains the score for a Mental Health test, which is"
^DD(727.812,24,21,2,0)="expressed as a single, overall score, and which is not expressed as"
^DD(727.812,24,21,3,0)="one or more scale scores."
^DD(727.812,24,23,0)="^^13^13^2990507^"
^DD(727.812,24,23,1,0)="If data is extracted from PSYCH INSTRUMENT PATIENT file (#601.2),"
^DD(727.812,24,23,2,0)="the TEST SCORE field will contain the resulting score calculated for"
^DD(727.812,24,23,3,0)="the following tests: DOM80, DOM81, DOM82, and DOMG.  For all other"
^DD(727.812,24,23,4,0)="tests contained in the MH INSTRUMENT file (#601) that are pointed to"
^DD(727.812,24,23,5,0)="by the INSTRUMENT field (#.01) of the INSTRUMENT field (#1), sub-file"
^DD(727.812,24,23,6,0)="#601.21, of file #601.2, TEST SCORE will be set to null."
^DD(727.812,24,23,7,0)="  "
^DD(727.812,24,23,8,0)="If data is extracted from the ADDICTION SEVERITY INDEX file (#604),"
^DD(727.812,24,23,9,0)="then TEST SCORE will be set to null."
^DD(727.812,24,23,10,0)="  "
^DD(727.812,24,23,11,0)="If data is extracted from the DIAGNOSTIC RESULTS - MENTAL HEALTH file"
^DD(727.812,24,23,12,0)="(#627.8), the TEST SCORE will contain data from the AXIS 5 field (#65)"
^DD(727.812,24,23,13,0)="of file #627.8."
^DD(727.812,24,"DT")="2990506"
^DD(727.812,25,0)="SCALE SCORE^F^^0;26^K:$L(X)>6!($L(X)<1) X"
^DD(727.812,25,3)="Answer must be 1-6 characters in length."
^DD(727.812,25,21,0)="^^2^2^2990507^"
^DD(727.812,25,21,1,0)="SCALE SCORE contains the score of one scale of a Mental Health "
^DD(727.812,25,21,2,0)="test, which is expressed as one or more scale scores."
^DD(727.812,25,23,0)="^^15^15^2990507^"
^DD(727.812,25,23,1,0)="If data is extracted from PSYCH INSTRUMENT PATIENT file (#601.2),"
^DD(727.812,25,23,2,0)="the SCALE SCORE field will contain the resulting score calculated"
^DD(727.812,25,23,3,0)="for one scale associated with the following tests: BDI, CRS, CAGE,"
^DD(727.812,25,23,4,0)="or ZUNG.  For all other tests contained in the MH INSTRUMENT file"
^DD(727.812,25,23,5,0)="(#601) that are pointed to by the INSTRUMENT field (#.01) of the"
^DD(727.812,25,23,6,0)="INSTRUMENT field (#1), sub-file #601.21, of file #601.2, SCALE SCORE"
^DD(727.812,25,23,7,0)="will be set to null."
^DD(727.812,25,23,8,0)="  "
^DD(727.812,25,23,9,0)="If data is extracted from the ADDICTION SEVERITY INDEX file (#604),"
^DD(727.812,25,23,10,0)="then SCALE SCORE will be the score associated with one of the seven"
^DD(727.812,25,23,11,0)="standard composite score names that are part of the ASI evaluation."
^DD(727.812,25,23,12,0)="These are Medical, Emp/Sup, Alcohol, Drug, Legal, Family, and Psych."
^DD(727.812,25,23,13,0)="  "
^DD(727.812,25,23,14,0)="If data is extracted from the DIAGNOSTIC RESULTS - MENTAL HEALTH file"
^DD(727.812,25,23,15,0)="(#627.8), the SCALE SCORE will be null."
^DD(727.812,25,"DT")="2990506"
^DD(727.812,26,0)="ATTENDING PHYSICIAN^F^^0;27^K:$L(X)>11!($L(X)<2) X"
^DD(727.812,26,3)="Answer must be 2-11 characters in length."
^DD(727.812,26,21,0)="^^4^4^2991014^^"
^DD(727.812,26,21,1,0)="If the patient identified in the PATIENT NO.  DFN field (#4) was"
^DD(727.812,26,21,2,0)="an inpatient on the date contained the DAY field (#8), then ATTENDING"
^DD(727.812,26,21,3,0)="PHYSICIAN will refer to the provider who was the ward-attending"
^DD(727.812,26,21,4,0)="physician for the patient."
^DD(727.812,26,23,0)="^^5^5^2991014^^"
^DD(727.812,26,23,1,0)="Data will be taken from the ATTENDING PHYSICIAN field (#.19) of"
^DD(727.812,26,23,2,0)="the PATIENT MOVEMENT file (#405) record for a treating specialty"
^DD(727.812,26,23,3,0)="movement.  Using the date in the DAY field (#8) and the patient"
^DD(727.812,26,23,4,0)="pointer stored in the PATIENT NO. - DFN field (#4), a call is made"
^DD(727.812,26,23,5,0)="to IN5^VADPT which returns the pertinent patient movement data."
^DD(727.812,26,"DT")="2990506"
^DD(727.812,27,0)="WARD PROVIDER^F^^0;28^K:$L(X)>11!($L(X)<2) X"
^DD(727.812,27,3)="Answer must be 2-11 characters in length."
^DD(727.812,27,21,0)="^^4^4^2991014^^"
^DD(727.812,27,21,1,0)="If the patient identified in the PATIENT NO.  DFN field (#4) was"
^DD(727.812,27,21,2,0)="an inpatient on the date contained the DAY field (#8), then WARD"
^DD(727.812,27,21,3,0)="PROVIDER will refer to the provider who was the primary ward"
^DD(727.812,27,21,4,0)="provider for the patient."
^DD(727.812,27,23,0)="^^5^5^2991014^^"
^DD(727.812,27,23,1,0)="Data will be taken from the PRIAMRY CARE PHYSICIAN field (#.08) of"
^DD(727.812,27,23,2,0)="the PATIENT MOVEMENT file (#405) record for a treating specialty"
^DD(727.812,27,23,3,0)="movement.  Using the date in the DAY field (#8) and the patient"
^DD(727.812,27,23,4,0)="pointer stored in the PATIENT NO. - DFN field (#4), a call is made"
^DD(727.812,27,23,5,0)="to IN5^VADPT which returns the pertinent patient movement data."
^DD(727.812,27,"DT")="2990506"
^DD(727.812,28,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.812,28,3)="Answer must be 1-10 characters in length."
^DD(727.812,28,21,0)="^^1^1^2990507^"
^DD(727.812,28,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.812,28,23,0)="^^2^2^2990507^"
^DD(727.812,28,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.812,28,23,2,0)="in an FY2000 enhancement to the VistA system."
^DD(727.812,28,"DT")="2990506"
^DD(727.812,29,0)="ASSOCIATE PC PROVIDER^F^^1;2^K:$L(X)>11!($L(X)<2) X"
^DD(727.812,29,3)="Answer must be 2-11 characters in length."
^DD(727.812,29,21,0)="^^4^4^2990507^"
^DD(727.812,29,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.812,29,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.812,29,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.812,29,21,4,0)="character 2."
^DD(727.812,29,23,0)="^^2^2^2990507^"
^DD(727.812,29,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.812,29,23,2,0)="the PCMM application."
^DD(727.812,29,"DT")="2990506"
^DD(727.812,30,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.812,30,3)="Answer must be 1-8 characters in length."
^DD(727.812,30,21,0)="^.001^1^1^3070827^^"
^DD(727.812,30,21,1,0)="Currently NULL."
^DD(727.812,30,23,0)="^.001^1^1^3070827^^"
^DD(727.812,30,23,1,0)="Currently NULL."
^DD(727.812,30,"DT")="3070426"
^DD(727.812,31,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;4^K:$L(X)>7!($L(X)<7) X"
^DD(727.812,31,3)="Answer must be 7 characters in length."
^DD(727.812,31,21,0)="^^4^4^2990507^^"
^DD(727.812,31,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.812,31,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.812,31,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.812,31,21,4,0)="exactly 7 characters in length. "
^DD(727.812,31,23,0)="^^3^3^2990507^^"
^DD(727.812,31,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.812,31,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.812,31,23,3,0)="PERS is the IEN from file #200."
^DD(727.812,31,"DT")="2990506"
^DD(727.812,32,0)="CLASS FOR ASI^S^1:FULL;2:LITE;3:FOLLOW-UP;4:ASI-MV;^1;5^Q"
^DD(727.812,32,21,0)="^^5^5^3020522^"
^DD(727.812,32,21,1,0)="Classification for ASI data only."
^DD(727.812,32,21,2,0)="1 = FULL"
^DD(727.812,32,21,3,0)="2 = LITE"
^DD(727.812,32,21,4,0)="3 = FOLLOW-UP"
^DD(727.812,32,21,5,0)="4 = ASI-MV"
^DD(727.812,32,23,0)="^^1^1^3020522^^^"
^DD(727.812,32,23,1,0)="CLASS field (#.04) of the ADDICTION SEVERITY INDEX file (#604)."
^DD(727.812,32,"DT")="3020522"
^DD(727.812,33,0)="SPECIAL FOR ASI^S^1:PATIENT TERMINATED;2:PATIENT REFUSED;3:PATIENT UNABLE TO RESPOND;N:INTERVIEW COMPLETED;^1;6^Q"
^DD(727.812,33,21,0)="^^5^5^2990506^"
^DD(727.812,33,21,1,0)="Signifies completion status for ASI data only."
^DD(727.812,33,21,2,0)="1 = PATIENT TERMINATED "
^DD(727.812,33,21,3,0)="2 = PATIENT REFUSED "
^DD(727.812,33,21,4,0)="3 = PATIENT UNABLE TO RESPOND"
^DD(727.812,33,21,5,0)="N = INTERVIEW COMPLETED"
^DD(727.812,33,23,0)="^^1^1^2990506^"
^DD(727.812,33,23,1,0)="SPECIAL field (#.11) of the ADDICTION SEVERITY INDEX file (#604)."
^DD(727.812,33,"DT")="2990506"
^DD(727.812,34,0)="ASI ENCOUNTER DATE^D^^1;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(727.812,34,21,0)="^^1^1^3001019^"
^DD(727.812,34,21,1,0)="The date the patient had the ASI encounter."
^DD(727.812,34,23,0)="^^1^1^3001019^"
^DD(727.812,34,23,1,0)="The ASI Encounter Date is derived from the ASI Progress Note."
^DD(727.812,34,"DT")="3000614"
^DD(727.812,35,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;8^Q"
^DD(727.812,35,.1)="Purple Heart Indicator"
^DD(727.812,35,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.812,35,21,0)="^^1^1^3021009^^"
^DD(727.812,35,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.812,35,23,0)="^^2^2^3021009^"
^DD(727.812,35,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.812,35,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.812,35,"DT")="3021009"
^DD(727.812,36,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,36,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.812,36,21,0)="^^5^5^3001019^"
^DD(727.812,36,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.812,36,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.812,36,21,3,0)="Domiciliary (DOM)"
^DD(727.812,36,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.812,36,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.812,36,"DT")="3001010"
^DD(727.812,37,0)="ENROLLMENT CATEGORY^F^^1;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,37,3)="Answer must be 1 character in length."
^DD(727.812,37,21,0)="^^1^1^3001019^"
^DD(727.812,37,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.812,37,"DT")="3000614"
^DD(727.812,38,0)="ENROLLMENT STATUS^F^^1;11^K:$L(X)>2!($L(X)<1) X"
^DD(727.812,38,3)="Answer must be 1-2 characters in length."
^DD(727.812,38,21,0)="^^1^1^3001020^"
^DD(727.812,38,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.812,38,"DT")="3000614"
^DD(727.812,39,0)="PLACEHOLDER^F^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,39,3)="Answer must be 1 character in length."
^DD(727.812,39,"DT")="3040301"
^DD(727.812,40,0)="PERIOD OF SERVICE^F^^1;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,40,3)="Answer must be 1 character in length."
^DD(727.812,40,21,0)="^^2^2^3001020^"
^DD(727.812,40,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.812,40,21,2,0)="eligibility code."
^DD(727.812,40,23,0)="^^2^2^3001020^"
^DD(727.812,40,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.812,40,23,2,0)="the Patient file (#2)."
^DD(727.812,40,"DT")="3000614"
^DD(727.812,41,0)="OBSERVATION PATIENT INDICATOR^F^^1;14^K:$L(X)>4!($L(X)<1) X"
^DD(727.812,41,3)="Answer must be 1-4 characters in length."
^DD(727.812,41,21,0)="^^2^2^3011212^"
^DD(727.812,41,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.812,41,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.812,41,"DT")="3010814"
^DD(727.812,42,0)="ENCOUNTER NUMBER^F^^1;15^K:$L(X)>18!($L(X)<1) X"
^DD(727.812,42,3)="Answer must be 1-18 characters in length"
^DD(727.812,42,21,0)="^^3^3^3011212^"
^DD(727.812,42,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.812,42,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.812,42,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.812,42,"DT")="3010503"
^DD(727.812,43,0)="AGENT ORANGE LOCATION^F^^1;16^K:$L(X)>2!($L(X)<2) X"
^DD(727.812,43,3)="Answer must be 2 characters in length"
^DD(727.812,43,21,0)="^^1^1^3011212^"
^DD(727.812,43,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.812,43,"DT")="3010503"
^DD(727.812,44,0)="PATIENT BIRTH DATE^F^^1;17^K:$L(X)>8!($L(X)<8) X"
^DD(727.812,44,3)="Answer must be 8 characters in length"
^DD(727.812,44,21,0)="^^1^1^3011212^"
^DD(727.812,44,21,1,0)="This field contains the patient's birth date in YYYYMMDD format."
^DD(727.812,44,"DT")="3010503"
^DD(727.812,45,0)="PRODUCTION DIVISION CODE^F^^1;18^K:$L(X)>6!($L(X)<1) X"
^DD(727.812,45,3)="Answer must be 1-6 characters in length."
^DD(727.812,45,21,0)="^.001^2^2^3060719^^^^"
^DD(727.812,45,21,1,0)="This is the 3-6 character division where the work took place.  This data"
^DD(727.812,45,21,2,0)="would correspond to the entries in the Institution (#4) file."
^DD(727.812,45,23,0)="^^5^5^3060719^"
^DD(727.812,45,23,1,0)="Data comes from the DIVISION field (#16), subfile (#200.02), of the NEW"
^DD(727.812,45,23,2,0)="PERSON file (#200). The DIVISION field (#.01) is a pointer to the "
^DD(727.812,45,23,3,0)="INSTITUTION file (#4). This value is then used to call the API"
^DD(727.812,45,23,4,0)="RADDIV^ECXDEPT to get the STATION NUMBER field (#99) from the INSTITUTION"
^DD(727.812,45,23,5,0)="file (#4)."
^DD(727.812,45,"DT")="3020429"
^DD(727.812,46,0)="DSS PRODUCT DEPARTMENT^F^^1;19^K:$L(X)>10!($L(X)<1) X"
^DD(727.812,46,.1)=""
^DD(727.812,46,3)="Answer must be 1-10 characters in length"
^DD(727.812,46,21,0)="^.001^2^2^3040318^^"
^DD(727.812,46,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.812,46,21,2,0)="the Mental care product."
^DD(727.812,46,23,0)="^^12^12^3040318^"
^DD(727.812,46,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.812,46,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.812,46,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.812,46,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.812,46,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.812,46,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.812,46,23,7,0)=" "
^DD(727.812,46,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as"
^DD(727.812,46,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.812,46,23,10,0)="designations are made. If no match is found in file 727.6 an error"
^DD(727.812,46,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.812,46,23,12,0)="group identifying the problem."
^DD(727.812,46,"DT")="3040302"
^DD(727.812,47,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;20^Q"
^DD(727.812,47,.1)="Head and Neck Cancer Indicator"
^DD(727.812,47,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.812,47,21,0)="^^1^1^3020828^"
^DD(727.812,47,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.812,47,23,0)="^^3^3^3020828^"
^DD(727.812,47,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.812,47,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.812,47,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.812,47,"DT")="3020828"
^DD(727.812,48,0)="ETHNICITY^F^^1;21^K:$L(X)>6!($L(X)<1) X"
^DD(727.812,48,.1)="Ethnicity"
^DD(727.812,48,3)="Answer must be 1-6 characters in length"
^DD(727.812,48,21,0)="^^1^1^3020828^"
^DD(727.812,48,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.812,48,23,0)="^^8^8^3021210^"
^DD(727.812,48,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.812,48,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.812,48,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.812,48,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.812,48,23,5,0)=" "
^DD(727.812,48,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.812,48,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.812,48,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.812,48,"DT")="3021210"
^DD(727.812,49,0)="RACE 1^F^^1;22^K:$L(X)>6!($L(X)<1) X"
^DD(727.812,49,.1)="Race 1"
^DD(727.812,49,3)="Answer must be 1-6 characters in length"
^DD(727.812,49,21,0)="^^1^1^3020828^"
^DD(727.812,49,21,1,0)="The patient's PTF Race code(s)."
^DD(727.812,49,23,0)="^^10^10^3020828^"
^DD(727.812,49,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.812,49,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.812,49,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.812,49,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.812,49,23,5,0)=" "
^DD(727.812,49,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.812,49,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.812,49,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.812,49,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.812,49,23,10,0)="the only value included in the RACE1 field."
^DD(727.812,49,"DT")="3020828"
^DD(727.812,50,0)="DSS IP #^NJ7,0^^1;23^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.812,50,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.812,50,21,0)="^.001^2^2^3040318^^^^"
^DD(727.812,50,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.812,50,21,2,0)="patient care product."
^DD(727.812,50,23,0)="^^10^10^3041027^"
^DD(727.812,50,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.812,50,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.812,50,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.812,50,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.812,50,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.812,50,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.812,50,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.812,50,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.812,50,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.812,50,23,10,0)="group identifying the problem."
^DD(727.812,50,"DT")="3040301"
^DD(727.812,51,0)="ENROLLMENT PRIORITY^F^^1;24^K:$L(X)>2!($L(X)<1) X"
^DD(727.812,51,3)="Answer must be 1-2 characters in length."
^DD(727.812,51,21,0)="^^2^2^3040317^"
^DD(727.812,51,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.812,51,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.812,51,23,0)="^^20^20^3041027^"
^DD(727.812,51,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.812,51,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.812,51,23,3,0)=" "
^DD(727.812,51,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.812,51,23,5,0)=" "
^DD(727.812,51,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.812,51,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.812,51,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.812,51,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.812,51,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.812,51,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.812,51,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.812,51,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.812,51,23,14,0)=" "
^DD(727.812,51,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.812,51,23,16,0)=" "
^DD(727.812,51,23,17,0)="                                'a' FOR 1 "
^DD(727.812,51,23,18,0)="                                'c' FOR 3 "
^DD(727.812,51,23,19,0)="                                'e' FOR 5 "
^DD(727.812,51,23,20,0)="                                'g' FOR 7   "
^DD(727.812,51,"DT")="3040226"
^DD(727.812,52,0)="USER ENROLLEE^F^^1;25^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,52,3)="Answer must be 1 character in length."
^DD(727.812,52,21,0)="^^4^4^3040317^"
^DD(727.812,52,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.812,52,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.812,52,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.812,52,21,4,0)="year's value is contained. "
^DD(727.812,52,"DT")="3040226"
^DD(727.812,53,0)="DIVISION^F^^1;26^K:$L(X)>3!($L(X)<1) X"
^DD(727.812,53,3)="Answer must be 1-3 characters in length."
^DD(727.812,53,21,0)="^.001^4^4^3040922^^^^"
^DD(727.812,53,21,1,0)="The medical center division associated with the extract data. For DSS"
^DD(727.812,53,21,2,0)="purposes, this must correspond to the labor pool that generated the "
^DD(727.812,53,21,3,0)="workload. The division identifier is taken from the DSS DIVISION "
^DD(727.812,53,21,4,0)="IDENTIFIER file (#727.3)."
^DD(727.812,53,23,0)="^.001^11^11^3040922^^^^"
^DD(727.812,53,23,1,0)="The DIVISION field is then derived as follows:"
^DD(727.812,53,23,2,0)=" "
^DD(727.812,53,23,3,0)="(1) A pointer to the INSTITUTION file (#4) is obtained using the pointer"
^DD(727.812,53,23,4,0)="to file #200. This is taken from the DIVISION field (#.01) of the first"
^DD(727.812,53,23,5,0)="sub-record of the DIVISION field (#16), sub-file #200.02. "
^DD(727.812,53,23,6,0)=" "
^DD(727.812,53,23,7,0)="(2) A record in the MEDICAL CENTER DIVISION file (#40.8) which points "
^DD(727.812,53,23,8,0)="to the same file #4 record"
^DD(727.812,53,23,9,0)=" "
^DD(727.812,53,23,10,0)="(3) The IDENTIFIER field (#1) of the DSS DIVISION IDENTIFIER file "
^DD(727.812,53,23,11,0)="(#727.3) record which points to the same Medical Center Division."
^DD(727.812,53,"DT")="3040922"
^DD(727.812,54,0)="PATIENT TYPE^F^^1;27^K:$L(X)>2!($L(X)<1) X"
^DD(727.812,54,3)="Answer must be 1-2 characters in length."
^DD(727.812,54,21,0)="^^3^3^3040317^"
^DD(727.812,54,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.812,54,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.812,54,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.812,54,23,0)="^^17^17^3040317^"
^DD(727.812,54,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.812,54,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.812,54,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.812,54,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.812,54,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.812,54,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.812,54,23,7,0)=" "
^DD(727.812,54,23,8,0)="AC= ACTIVE DUTY"
^DD(727.812,54,23,9,0)="AL= ALLIED VETERAN"
^DD(727.812,54,23,10,0)="CO= COLLATERAL"
^DD(727.812,54,23,11,0)="EM= EMPLOYEE"
^DD(727.812,54,23,12,0)="IN= INELIGIBLE"
^DD(727.812,54,23,13,0)="MI= MILITARY RETIREE"
^DD(727.812,54,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.812,54,23,15,0)="NS= NSC VETERAN"
^DD(727.812,54,23,16,0)="SC= SC VETERAN"
^DD(727.812,54,23,17,0)="TR= TRICARE"
^DD(727.812,54,"DT")="3040226"
^DD(727.812,55,0)="CV STATUS ELIGIBILITY^F^^1;28^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,55,3)="Answer must be 1 character in length."
^DD(727.812,55,21,0)="^.001^3^3^3040318^^^"
^DD(727.812,55,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.812,55,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.812,55,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.812,55,23,0)="^^11^11^3040318^"
^DD(727.812,55,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.812,55,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.812,55,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.812,55,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.812,55,23,5,0)=" "
^DD(727.812,55,23,6,0)=" 1 - qualifies as a CV"
^DD(727.812,55,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.812,55,23,8,0)="-1 - bad DFN or date"
^DD(727.812,55,23,9,0)=" "
^DD(727.812,55,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.812,55,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.812,55,"DT")="3040317"
^DD(727.812,56,0)="CV ELIGIBILITY END DATE^F^^1;29^K:$L(X)>8!($L(X)<1) X"
^DD(727.812,56,3)="Answer must be 1-8 characters in length."
^DD(727.812,56,21,0)="^^3^3^3040317^"
^DD(727.812,56,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.812,56,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.812,56,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.812,56,23,0)="^^4^4^3040317^"
^DD(727.812,56,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.812,56,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.812,56,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.812,56,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.812,56,"DT")="3040226"
^DD(727.812,57,0)="ENCOUNTER CV^F^^1;30^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,57,3)="Answer must be 1 character in length."
^DD(727.812,57,20,0)="^.3LA^1^1"
^DD(727.812,57,20,1,0)="\"
^DD(727.812,57,21,0)="^^3^3^3040317^"
^DD(727.812,57,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.812,57,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.812,57,21,3,0)="2 to determine CV Status."
^DD(727.812,57,23,0)="^.001^10^10^3040317^^"
^DD(727.812,57,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.812,57,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.812,57,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.812,57,23,4,0)="The third piece returns:"
^DD(727.812,57,23,5,0)=" "
^DD(727.812,57,23,6,0)="1 - vet was eligible on date specified"
^DD(727.812,57,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.812,57,23,8,0)=" "
^DD(727.812,57,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.812,57,23,10,0)="'NULL' for 'NO'."
^DD(727.812,57,"DT")="3040226"
^DD(727.812,58,0)="NATIONAL PATIENT RECORD FLAG^F^^1;31^K:$L(X)>1!($L(X)<1) X"
^DD(727.812,58,3)="Answer must be 1 character in length."
^DD(727.812,58,21,0)="^^7^7^3040317^"
^DD(727.812,58,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.812,58,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.812,58,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.812,58,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.812,58,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.812,58,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.812,58,21,7,0)="NULL."
^DD(727.812,58,23,0)="^^7^7^3040317^"
^DD(727.812,58,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.812,58,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.812,58,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.812,58,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.812,58,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.812,58,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.812,58,23,7,0)="NULL."
^DD(727.812,58,"DT")="3040226"
^DD(727.812,59,0)="ATTENDING PHYSICIAN PC^F^^1;32^K:$L(X)>7!($L(X)<1) X"
^DD(727.812,59,3)="Answer must be 1-7 characters in length."
^DD(727.812,59,21,0)="^.001^3^3^3050606^^^^"
^DD(727.812,59,21,1,0)="The field will hold the VA Code associated with the active Person Class of"
^DD(727.812,59,21,2,0)="the Attending Physician. The VA Code is always of the form ""V""_six numeric"
^DD(727.812,59,21,3,0)="digits; exactly 7."
^DD(727.812,59,23,0)="^.001^3^3^3050606^^"
^DD(727.812,59,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.812,59,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.812,59,23,3,0)="#200."
^DD(727.812,59,"DT")="3050405"
^DD(727.812,60,0)="WARD PROVIDER PERSON CLASS^F^^1;33^K:$L(X)>7!($L(X)<1) X"
^DD(727.812,60,3)="Answer must be 1-7 characters in length."
^DD(727.812,60,21,0)="^.001^3^3^3050425^^^"
^DD(727.812,60,21,1,0)="The field will hold the VA Code associated with the active Person Class of"
^DD(727.812,60,21,2,0)="the Attending Physician. The VA Code is always of the form ""V""_six numeric"
^DD(727.812,60,21,3,0)="digits; exactly 7."
^DD(727.812,60,23,0)="^^3^3^3050425^"
^DD(727.812,60,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.812,60,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.812,60,23,3,0)="#200."
^DD(727.812,60,"DT")="3050405"
^DD(727.812,61,0)="AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;34^Q"
^DD(727.812,61,21,0)="^.001^2^2^3060719^^^^"
^DD(727.812,61,21,1,0)="Data is Y if this patient was exposed to agent orange, N if not, or U if"
^DD(727.812,61,21,2,0)="unknown."
^DD(727.812,61,23,0)="^^5^5^3060719^"
^DD(727.812,61,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.812,61,23,2,0)="in the MENTAL HEALTH EXTRACT (#727.812), the api $$PAT^ECXUTL3 is called"
^DD(727.812,61,23,3,0)="to obtain the value for Agent Orange. AGENT ORANGE data is derived from"
^DD(727.812,61,23,4,0)="the AGENT ORANGE EXPOS. INDICATED? field (#.32102) in the PATIENT file"
^DD(727.812,61,23,5,0)="(#2)."
^DD(727.812,61,"DT")="3060707"
^DD(727.812,62,0)="ASSOCIATE PC PROVIDER NPI^F^^1;35^K:$L(X)>15!($L(X)<1) X"
^DD(727.812,62,3)="Answer must be 1-15 characters in length."
^DD(727.812,62,21,0)="^^2^2^3070504^"
^DD(727.812,62,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.812,62,21,2,0)="provider. This field has a length of fifteen characters."
^DD(727.812,62,23,0)="^.001^3^3^3070504^^"
^DD(727.812,62,23,1,0)="ASSOCIATE PC PROVIDER NPI is a standard unique life-long identifier of "
^DD(727.812,62,23,2,0)="the associate primary care provider.  The qualified identifier shall be "
^DD(727.812,62,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.812,62,"DT")="3070504"
^DD(727.812,63,0)="ATTENDING PHYSICIAN NPI^F^^1;36^K:$L(X)>15!($L(X)<1) X"
^DD(727.812,63,3)="Answer must be 1-15 characters in length."
^DD(727.812,63,21,0)="^^2^2^3070504^"
^DD(727.812,63,21,1,0)="A standard unique life-long identifier of the attending physician.  This "
^DD(727.812,63,21,2,0)="field has a length of fifteen characters. "
^DD(727.812,63,23,0)="^.001^3^3^3070504^^"
^DD(727.812,63,23,1,0)="ATTENDING PHYSICIAN NPI is a standard unique life-long identifier of the "
^DD(727.812,63,23,2,0)="attending physician.  The qualified identifier shall be retrieved via the"
^DD(727.812,63,23,3,0)="supporting Kernel API:$$NPI^XUSNPI."
^DD(727.812,63,"DT")="3070504"
^DD(727.812,64,0)="PRIMARY CARE PROVIDER NPI^F^^1;37^K:$L(X)>15!($L(X)<1) X"
^DD(727.812,64,3)="Answer must be 1-15 characters in length."
^DD(727.812,64,21,0)="^^2^2^3070504^"
^DD(727.812,64,21,1,0)="A standard unique life-long identifier of the primary care provider.  "
^DD(727.812,64,21,2,0)="This field has a length of fifteen characters. "
^DD(727.812,64,23,0)="^.001^3^3^3070504^^"
^DD(727.812,64,23,1,0)="PRIMARY CARE PROVIDER NPI is a standard unique life-long identifier of "
^DD(727.812,64,23,2,0)="the primary care provider.  The qualified identifier shall be "
^DD(727.812,64,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.812,64,"DT")="3070504"
^DD(727.812,65,0)="PROVIDER NPI^F^^2;1^K:$L(X)>15!($L(X)<1) X"
^DD(727.812,65,3)="Answer must be 1-15 characters in length."
^DD(727.812,65,21,0)="^^2^2^3070504^"
^DD(727.812,65,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.812,65,21,2,0)="health care services. This field has a length of fifteen characters. "
^DD(727.812,65,23,0)="^.001^3^3^3070504^^"
^DD(727.812,65,23,1,0)="PROVIDER NPI is a standard unique life-long identifier of the individuals "
^DD(727.812,65,23,2,0)="providing health care services.  The qualified identifier shall be "
^DD(727.812,65,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.812,65,"DT")="3070504"
^DD(727.812,66,0)="WARD PROVIDER NPI^F^^2;2^K:$L(X)>15!($L(X)<1) X"
^DD(727.812,66,3)="Answer must be 1-15 characters in length."
^DD(727.812,66,21,0)="^^2^2^3070504^"
^DD(727.812,66,21,1,0)="A standard unique life-long identifier of the ward provider.  This field "
^DD(727.812,66,21,2,0)="has a length of fifteen characters."
^DD(727.812,66,23,0)="^.001^3^3^3070504^^"
^DD(727.812,66,23,1,0)="WARD PROVIDER NPI is a standard unique life-long identifier of the ward "
^DD(727.812,66,23,2,0)="provider.  The qualified identifier shall be retrieved via the supporting"
^DD(727.812,66,23,3,0)="Kernel API:$$NPI^XUSNPI."
^DD(727.812,66,"DT")="3070504"
^DD(727.812,"B","ADMISSION DATE",10)=""
^DD(727.812,"B","AGENT ORANGE LOCATION",43)=""
^DD(727.812,"B","AGENT ORANGE STATUS",61)=""
^DD(727.812,"B","ASI ENCOUNTER DATE",34)=""
^DD(727.812,"B","ASSOC. PC PROV. PERSON CLASS",31)=""
^DD(727.812,"B","ASSOCIATE PC PROVIDER",29)=""
^DD(727.812,"B","ASSOCIATE PC PROVIDER NPI",62)=""
^DD(727.812,"B","ATTENDING PHYSICIAN",26)=""
^DD(727.812,"B","ATTENDING PHYSICIAN NPI",63)=""
^DD(727.812,"B","ATTENDING PHYSICIAN PC",59)=""
^DD(727.812,"B","CLASS FOR ASI",32)=""
^DD(727.812,"B","CV ELIGIBILITY END DATE",56)=""
^DD(727.812,"B","CV STATUS ELIGIBILITY",55)=""
^DD(727.812,"B","DAY",8)=""
^DD(727.812,"B","DISCHARGE DATE",11)=""
^DD(727.812,"B","DIVISION",53)=""
^DD(727.812,"B","DOM,PRRTP AND SAARTP INDICATOR",36)=""
^DD(727.812,"B","DSS IDENTIFIER",12)=""
^DD(727.812,"B","DSS IP #",50)=""
^DD(727.812,"B","DSS PRODUCT DEPARTMENT",46)=""
^DD(727.812,"B","ENCOUNTER CV",57)=""
^DD(727.812,"B","ENCOUNTER NUMBER",42)=""
^DD(727.812,"B","ENROLLMENT CATEGORY",37)=""
^DD(727.812,"B","ENROLLMENT PRIORITY",51)=""
^DD(727.812,"B","ENROLLMENT STATUS",38)=""
^DD(727.812,"B","ETHNICITY",48)=""
^DD(727.812,"B","EXTRACT NUMBER",2)=""
^DD(727.812,"B","Ethnicity",48)="1"
^DD(727.812,"B","FACILITY",3)=""
^DD(727.812,"B","HEAD & NECK CANCER INDICATOR",47)=""
^DD(727.812,"B","Head and Neck Cancer Indicator",47)="1"
^DD(727.812,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.812,"B","MASTER PATIENT INDEX",28)=""
^DD(727.812,"B","NAME",6)=""
^DD(727.812,"B","NATIONAL PATIENT RECORD FLAG",58)=""
^DD(727.812,"B","OBSERVATION PATIENT INDICATOR",41)=""
^DD(727.812,"B","PATIENT BIRTH DATE",44)=""
^DD(727.812,"B","PATIENT NO. - DFN",4)=""
^DD(727.812,"B","PATIENT TYPE",54)=""
^DD(727.812,"B","PC PROVIDER PERSON CLASS",16)=""
^DD(727.812,"B","PERIOD OF SERVICE",40)=""
^DD(727.812,"B","PLACEHOLDER",9)=""
^DD(727.812,"B","PLACEHOLDER",15)=""
^DD(727.812,"B","PLACEHOLDER",18)=""
^DD(727.812,"B","PLACEHOLDER",30)=""
^DD(727.812,"B","PLACEHOLDER",39)=""
^DD(727.812,"B","PRIMARY CARE PROVIDER",14)=""
^DD(727.812,"B","PRIMARY CARE PROVIDER NPI",64)=""
^DD(727.812,"B","PRIMARY CARE TEAM",13)=""
^DD(727.812,"B","PRODUCTION DIVISION CODE",45)=""
^DD(727.812,"B","PROVIDER",17)=""
^DD(727.812,"B","PROVIDER NPI",65)=""
^DD(727.812,"B","PROVIDER PERSON CLASS",19)=""
^DD(727.812,"B","PURPLE HEART INDICATOR",35)=""
^DD(727.812,"B","Purple Heart Indicator",35)="1"
^DD(727.812,"B","RACE 1",49)=""
^DD(727.812,"B","Race 1",49)="1"
^DD(727.812,"B","SCALE NAME",23)=""
^DD(727.812,"B","SCALE NUMBER",22)=""
^DD(727.812,"B","SCALE SCORE",25)=""
^DD(727.812,"B","SEQUENCE NUMBER",.01)=""
^DD(727.812,"B","SPECIAL FOR ASI",33)=""
^DD(727.812,"B","SSN",5)=""
^DD(727.812,"B","TEST IEN",21)=""
^DD(727.812,"B","TEST NAME",20)=""
^DD(727.812,"B","TEST SCORE",24)=""
^DD(727.812,"B","USER ENROLLEE",52)=""
^DD(727.812,"B","WARD PROVIDER",27)=""
^DD(727.812,"B","WARD PROVIDER NPI",66)=""
^DD(727.812,"B","WARD PROVIDER PERSON CLASS",60)=""
^DD(727.812,"B","YEAR MONTH",1)=""
^DD(727.812,"GL",0,1,.01)=""
^DD(727.812,"GL",0,2,1)=""
^DD(727.812,"GL",0,3,2)=""
^DD(727.812,"GL",0,4,3)=""
^DD(727.812,"GL",0,5,4)=""
^DD(727.812,"GL",0,6,5)=""
^DD(727.812,"GL",0,7,6)=""
^DD(727.812,"GL",0,8,7)=""
^DD(727.812,"GL",0,9,8)=""
^DD(727.812,"GL",0,10,9)=""
^DD(727.812,"GL",0,11,10)=""
^DD(727.812,"GL",0,12,11)=""
^DD(727.812,"GL",0,13,12)=""
^DD(727.812,"GL",0,14,13)=""
^DD(727.812,"GL",0,15,14)=""
^DD(727.812,"GL",0,16,15)=""
^DD(727.812,"GL",0,17,16)=""
^DD(727.812,"GL",0,18,17)=""
^DD(727.812,"GL",0,19,18)=""
^DD(727.812,"GL",0,20,19)=""
^DD(727.812,"GL",0,21,20)=""
^DD(727.812,"GL",0,22,21)=""
^DD(727.812,"GL",0,23,22)=""
^DD(727.812,"GL",0,24,23)=""
^DD(727.812,"GL",0,25,24)=""
^DD(727.812,"GL",0,26,25)=""
^DD(727.812,"GL",0,27,26)=""
^DD(727.812,"GL",0,28,27)=""
^DD(727.812,"GL",1,1,28)=""
^DD(727.812,"GL",1,2,29)=""
^DD(727.812,"GL",1,3,30)=""
^DD(727.812,"GL",1,4,31)=""
^DD(727.812,"GL",1,5,32)=""
^DD(727.812,"GL",1,6,33)=""
^DD(727.812,"GL",1,7,34)=""
^DD(727.812,"GL",1,8,35)=""
^DD(727.812,"GL",1,9,36)=""
^DD(727.812,"GL",1,10,37)=""
^DD(727.812,"GL",1,11,38)=""
^DD(727.812,"GL",1,12,39)=""
^DD(727.812,"GL",1,13,40)=""
^DD(727.812,"GL",1,14,41)=""
^DD(727.812,"GL",1,15,42)=""
^DD(727.812,"GL",1,16,43)=""
^DD(727.812,"GL",1,17,44)=""
^DD(727.812,"GL",1,18,45)=""
^DD(727.812,"GL",1,19,46)=""
^DD(727.812,"GL",1,20,47)=""
^DD(727.812,"GL",1,21,48)=""
^DD(727.812,"GL",1,22,49)=""
^DD(727.812,"GL",1,23,50)=""
^DD(727.812,"GL",1,24,51)=""
^DD(727.812,"GL",1,25,52)=""
^DD(727.812,"GL",1,26,53)=""
^DD(727.812,"GL",1,27,54)=""
^DD(727.812,"GL",1,28,55)=""
^DD(727.812,"GL",1,29,56)=""
^DD(727.812,"GL",1,30,57)=""
^DD(727.812,"GL",1,31,58)=""
^DD(727.812,"GL",1,32,59)=""
^DD(727.812,"GL",1,33,60)=""
^DD(727.812,"GL",1,34,61)=""
^DD(727.812,"GL",1,35,62)=""
^DD(727.812,"GL",1,36,63)=""
^DD(727.812,"GL",1,37,64)=""
^DD(727.812,"GL",2,1,65)=""
^DD(727.812,"GL",2,2,66)=""
^DD(727.812,"GR","\",57,1)=""
^DD(727.812,"IX",2)=""
^DD(727.812,"RQ",.01)=""
^DD(727.812,"RQ",1)=""
^DD(727.812,"RQ",2)=""
^DD(727.812,"RQ",4)=""
^DD(727.812,"RQ",5)=""
^DD(727.812,"RQ",6)=""
^DD(727.812,"RQ",8)=""
^DD(727.812,"RQ",9)=""
^DD(727.812,"RQ",17)=""
^DD(727.812,"RQ",20)=""
^DD(727.813,0)="FIELD^^37^42"
^DD(727.813,0,"DDA")="N"
^DD(727.813,0,"DIK")="ECX813"
^DD(727.813,0,"DIKOLD")="ECX813"
^DD(727.813,0,"DT")="3020626"
^DD(727.813,0,"IX","AC",727.813,2)=""
^DD(727.813,0,"NM","LABORATORY EXTRACT")=""
^DD(727.813,0,"VR")="3.0"
^DD(727.813,0,"VRPK")="ECX"
^DD(727.813,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.813,.01,.1)="Sequence Number"
^DD(727.813,.01,1,0)="^.1^^0"
^DD(727.813,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.813,.01,21,0)="^^1^1^2960730^^^^"
^DD(727.813,.01,21,1,0)="The record number for this extract entry."
^DD(727.813,.01,23,0)="^^1^1^2960730^^^^"
^DD(727.813,.01,23,1,0)="The internal entry number (IEN) for this record.  This entry is DINUMed."
^DD(727.813,.01,"DT")="2980812"
^DD(727.813,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.813,1,.1)="Year/Month"
^DD(727.813,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.813,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.813,1,3)="Answer must be 6 characters in length."
^DD(727.813,1,21,0)="^^2^2^2970922^^^^"
^DD(727.813,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.813,1,21,2,0)="for which this extract was performed."
^DD(727.813,1,23,0)="^^1^1^2970922^^^^"
^DD(727.813,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.813,1,"DT")="2970924"
^DD(727.813,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.813,2,.1)="Extract Number"
^DD(727.813,2,1,0)="^.1"
^DD(727.813,2,1,1,0)="727.813^AC"
^DD(727.813,2,1,1,1)="S ^ECX(727.813,""AC"",$E(X,1,30),DA)="""""
^DD(727.813,2,1,1,2)="K ^ECX(727.813,""AC"",$E(X,1,30),DA)"
^DD(727.813,2,1,1,3)="DO NOT DELETE."
^DD(727.813,2,1,1,"%D",0)="^^2^2^2960808^^^^"
^DD(727.813,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.813,2,1,1,"%D",2,0)="in this file."
^DD(727.813,2,1,1,"DT")="2910802"
^DD(727.813,2,3)="Enter the extract number for this extract."
^DD(727.813,2,21,0)="^^2^2^2960730^^^^"
^DD(727.813,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.813,2,21,2,0)="extract."
^DD(727.813,2,23,0)="^^2^2^2960730^^^^"
^DD(727.813,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.813,2,23,2,0)="pick up the header for the mail message."
^DD(727.813,2,"DT")="2960730"
^DD(727.813,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.813,3,.1)="Facility"
^DD(727.813,3,3)="Answer must be 1-7 characters in length."
^DD(727.813,3,21,0)="^^1^1^2990510^^^^"
^DD(727.813,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.813,3,23,0)="^^4^4^2990510^^^^"
^DD(727.813,3,23,1,0)="An indicator of the division where this event happened. Using the NAME "
^DD(727.813,3,23,2,0)="field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "
^DD(727.813,3,23,3,0)="derived from the STATION NUMBER field (99) for that pointer number in "
^DD(727.813,3,23,4,0)="the INSTITUTION file (#4)."
^DD(727.813,3,"DT")="2990510"
^DD(727.813,4,0)="PATIENT NO. - DFN^NJ2,0^^0;5^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.813,4,.1)="Patient No. - DFN"
^DD(727.813,4,3)="Enter a number between 0 and 999999999, 0 decimal digits."
^DD(727.813,4,21,0)="^^10^10^2990504^^^"
^DD(727.813,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.813,4,21,2,0)="  "
^DD(727.813,4,21,3,0)="The entity to which this extract applies. "
^DD(727.813,4,21,4,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,4,21,5,0)="It could be an inpatient, a referral patient, or a research subject "
^DD(727.813,4,21,6,0)="(which could be a patient, animal, tissue sample, etc.)."
^DD(727.813,4,21,7,0)=" "
^DD(727.813,4,21,8,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,4,21,9,0)="The patient to whom this extract applies. It could be an inpatient or a "
^DD(727.813,4,21,10,0)="referral patient."
^DD(727.813,4,23,0)="^^10^10^2990504^^^"
^DD(727.813,4,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,4,23,2,0)="Internal entry number in the PATIENT file (#2), or the REFERRAL  "
^DD(727.813,4,23,3,0)="file (#67), or the RESEARCH file (#67.1). Derived from the NAME field "
^DD(727.813,4,23,4,0)="(.03) as defined from the PARENT FILE field (.02) in the LAB DATA file "
^DD(727.813,4,23,5,0)="(#63)."
^DD(727.813,4,23,6,0)=" "
^DD(727.813,4,23,7,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,4,23,8,0)="Internal entry number in the PATIENT file (#2) or the REFERRAL PATIENT "
^DD(727.813,4,23,9,0)="file (#67).  Derived from the NAME field (.03) as defined from the PARENT"
^DD(727.813,4,23,10,0)="FILE field (.02) in the LAB DATA file (#63)."
^DD(727.813,4,"DT")="2961017"
^DD(727.813,5,0)="SSN IDENTIFYING NUMBER^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.813,5,.1)="Social Security Identifying Number"
^DD(727.813,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.813,5,21,0)="^^5^5^2990504^^^^"
^DD(727.813,5,21,1,0)="The patient's social security number or the identifying number for a"
^DD(727.813,5,21,2,0)="non-patient entity."
^DD(727.813,5,21,3,0)=" "
^DD(727.813,5,21,4,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.813,5,21,5,0)="patient"" and will not be included in the extract.  "
^DD(727.813,5,23,0)="^^16^16^2990504^^^^"
^DD(727.813,5,23,1,0)="SSN or identifying number as defined by one of two methods:"
^DD(727.813,5,23,2,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,5,23,3,0)="   If the PARENT FILE field (.02) in the LAB DATA file (#63) is"
^DD(727.813,5,23,4,0)="   a. PATIENT file (#2) = SOCIAL SECURITY NUMBER field (.09)"
^DD(727.813,5,23,5,0)="   b. REFERRAL PATIENT file (#67) = ""000123456"""
^DD(727.813,5,23,6,0)="   c. RESEARCH file (#67.1) = ""888888888"""
^DD(727.813,5,23,7,0)=" "
^DD(727.813,5,23,8,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,5,23,9,0)="   If the PATIENT field (9) of the ACCESSION WKLD CODE TIME field (1) "
^DD(727.813,5,23,10,0)="   multiple within the WKLD CODE field (1) multiple within the DATE "
^DD(727.813,5,23,11,0)="   field (.03) multiple of the WKLD DATA file (#64.1) is"
^DD(727.813,5,23,12,0)="   a. PATIENT file (#2) = SOCIAL SECURITY NUMBER field (.09)"
^DD(727.813,5,23,13,0)="   b. REFERRAL PATIENT file (#67) = ""000123456"""
^DD(727.813,5,23,14,0)=" "
^DD(727.813,5,23,15,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.813,5,23,16,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.813,5,"DT")="2961017"
^DD(727.813,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.813,6,.1)="Name"
^DD(727.813,6,3)="Your answer must be 4 characters in length."
^DD(727.813,6,21,0)="^^1^1^2961127^^^^"
^DD(727.813,6,21,1,0)="The first four characters of the patient's last name or entity's name."
^DD(727.813,6,23,0)="^^16^16^2961127^^"
^DD(727.813,6,23,1,0)="Free text first four characters of the patient's or entity's last name "
^DD(727.813,6,23,2,0)="as determined by one of two methods:"
^DD(727.813,6,23,3,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,6,23,4,0)="   If the PARENT FILE field (.02) in the LAB DATA file (#63) is "
^DD(727.813,6,23,5,0)="   a. PATIENT file (#2) = NAME field (.01) in the PATIENT file (#2). "
^DD(727.813,6,23,6,0)="   b. REFERRAL PATIENT file (#67) = ""RFRL"""
^DD(727.813,6,23,7,0)="   c. RESEARCH file (#67.1) = ""RSCH"""
^DD(727.813,6,23,8,0)=" "
^DD(727.813,6,23,9,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,6,23,10,0)="   If the PATIENT field (9) of the ACCESSION WKLD CODE TIME field (1) "
^DD(727.813,6,23,11,0)="   multiple within the WKLD CODE field (1) multiple within the DATE "
^DD(727.813,6,23,12,0)="   field (.03) multiple of the WKLD DATA file (#64.1) is"
^DD(727.813,6,23,13,0)="   a. PATIENT file (#2) = NAME field (.01) in the PATIENT file (#2). "
^DD(727.813,6,23,14,0)="   b. REFERRAL PATIENT file (#67) = ""RFRL"""
^DD(727.813,6,23,15,0)=" "
^DD(727.813,6,23,16,0)="If necessary, trailing spaces are padded to equal 4 characters. "
^DD(727.813,6,"AUDIT")=""
^DD(727.813,6,"DT")="2960730"
^DD(727.813,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.813,7,.1)="In Out Patient Indicator"
^DD(727.813,7,3)="Answer must be 1 character in length."
^DD(727.813,7,21,0)="^.001^2^2^3011129^^^^"
^DD(727.813,7,21,1,0)="Indicates whether the patient or entity was an inpatient or an "
^DD(727.813,7,21,2,0)="outpatient for this extract.  "
^DD(727.813,7,23,0)="^.001^4^4^3011129^^^^"
^DD(727.813,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.813,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.813,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.813,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.813,7,"DT")="3011129"
^DD(727.813,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.813,8,.1)="Day"
^DD(727.813,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.813,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.813,8,3)="Answer must be 8 characters in length."
^DD(727.813,8,21,0)="^^2^2^3000309^^^^"
^DD(727.813,8,21,1,0)="This 8-character numeric string represents the collected date of"
^DD(727.813,8,21,2,0)="the Laboratory test."
^DD(727.813,8,23,0)="^^16^16^3000309^^^^"
^DD(727.813,8,23,1,0)="Data source --"
^DD(727.813,8,23,2,0)=" "
^DD(727.813,8,23,3,0)="For Lab Extract:"
^DD(727.813,8,23,4,0)="   Data is inserted in this field by Laboratory routine ECXLABN"
^DD(727.813,8,23,5,0)="   and is derived from WKLD LOG file (#64.03) DATE/TIME COLLECTED "
^DD(727.813,8,23,6,0)="   field (#12)."
^DD(727.813,8,23,7,0)="      The value in field #12 of file #64.03 originated from "
^DD(727.813,8,23,8,0)="      routine LRCAPDSS and is derived from WKLD DATA file (#64.1); "
^DD(727.813,8,23,9,0)="      sub-file ACCESSION WKLD CODE TIME (#64.1111); INVERSE DATE "
^DD(727.813,8,23,10,0)="      COMPLETED field (#21)"
^DD(727.813,8,23,11,0)=" "
^DD(727.813,8,23,12,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.813,8,23,13,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.813,8,23,14,0)="then a default is used.  The default date value is the value of the "
^DD(727.813,8,23,15,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.813,8,23,16,0)="Year 2000 compliant per vendor."
^DD(727.813,8,"DT")="2970924"
^DD(727.813,9,0)="ACCESSION AREA^F^^0;10^K:$L(X)>5!($L(X)<1) X"
^DD(727.813,9,.1)="Accession Area"
^DD(727.813,9,3)="Answer must be 1-5 characters in length."
^DD(727.813,9,21,0)="^^5^5^2990510^^^^"
^DD(727.813,9,21,1,0)="If the patient is a regular medical center patient, this field holds"
^DD(727.813,9,21,2,0)="a pointer to file #68."
^DD(727.813,9,21,3,0)=" "
^DD(727.813,9,21,4,0)="If the patient is a referral, this field holds the Agency Code of"
^DD(727.813,9,21,5,0)="the referring Institution."
^DD(727.813,9,23,0)="^^22^22^2990510^^^^"
^DD(727.813,9,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,9,23,2,0)="   AREA field (.01) in the ACCESSION file (#68) as pointed to by the "
^DD(727.813,9,23,3,0)="   ACCESSION AREA field (3) within the TEST multiple (6) within the "
^DD(727.813,9,23,4,0)="   SPECIMEN multiple (1) of the LAB ORDER ENTRY file (#69). "
^DD(727.813,9,23,5,0)=" "
^DD(727.813,9,23,6,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,9,23,7,0)="   Source:"
^DD(727.813,9,23,8,0)="   Field #14; file #64.03"
^DD(727.813,9,23,9,0)="   File d#6; sub-file #64.1111; sub-file #64.111; sub-file #64.11;"
^DD(727.813,9,23,10,0)="     file #64.1"
^DD(727.813,9,23,11,0)="   OR"
^DD(727.813,9,23,12,0)="   Field #14; file #64.03"
^DD(727.813,9,23,13,0)="   Field #95; file #4"
^DD(727.813,9,23,14,0)="  "
^DD(727.813,9,23,15,0)="   For laboratory procedure on a routine medical center patient,"
^DD(727.813,9,23,16,0)="   this field will contain the internal record number of the "
^DD(727.813,9,23,17,0)="   Accession Area in the ACCESSION file (#68)."
^DD(727.813,9,23,18,0)="  "
^DD(727.813,9,23,19,0)="   For procedure on a referral patient, this field will contain"
^DD(727.813,9,23,20,0)="   the 2-character Agency Code from the AGENCY CODE field (#95)"
^DD(727.813,9,23,21,0)="   of the INSTITUTION file (#4) record which represents the "
^DD(727.813,9,23,22,0)="   referring Institution."
^DD(727.813,9,"DT")="2980120"
^DD(727.813,10,0)="ABBREVIATION^F^^0;11^K:$L(X)>5!($L(X)<1) X"
^DD(727.813,10,.1)="Abbreviation"
^DD(727.813,10,3)="Your answer must be 1 to 5 characters in length."
^DD(727.813,10,21,0)="^^1^1^2990510^^^^"
^DD(727.813,10,21,1,0)="The abbreviation for the accession area associated with this event."
^DD(727.813,10,23,0)="^^10^10^2990510^^^^"
^DD(727.813,10,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,10,23,2,0)="   ABBREVIATION field (.09) of the ACCESSION file (#68) as pointed to by "
^DD(727.813,10,23,3,0)="   the ACCESSION AREA field (3) within the TEST multiple (6) within the "
^DD(727.813,10,23,4,0)="   SPECIMEN # multiple (1) of the LAB ORDER ENTRY file (#69)."
^DD(727.813,10,23,5,0)=" "
^DD(727.813,10,23,6,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,10,23,7,0)="   ABBREVIATION field (.09) in the ACCESSION file (#68) as pointed to by "
^DD(727.813,10,23,8,0)="   the MAJ. SECT. field (6) of the ACCESSION WKLD CODE TIME field "
^DD(727.813,10,23,9,0)="   (1) multiple within the WKLD CODE field (1) multiple within the DATE "
^DD(727.813,10,23,10,0)="   field (.03) multiple of the WKLD DATA file (#64.1)."
^DD(727.813,10,"DT")="2960730"
^DD(727.813,11,0)="TEST^P60'^LAB(60,^0;12^Q"
^DD(727.813,11,.1)="Test"
^DD(727.813,11,3)="Enter the lab test for this entry."
^DD(727.813,11,21,0)="^^1^1^2990510^^^^"
^DD(727.813,11,21,1,0)="The lab test associated with this event for this patient or entity.  "
^DD(727.813,11,23,0)="^^10^10^2990510^^^^"
^DD(727.813,11,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,11,23,2,0)="   NAME field (.01) in the LABORATORY TEST FILE (#60) as pointed to by "
^DD(727.813,11,23,3,0)="   TEST/PROCEDURE field (.01) of the TEST multiple (6) within the "
^DD(727.813,11,23,4,0)="   SPECIMEN # multiple (1) of the LAB ORDER ENTRY file (#69)."
^DD(727.813,11,23,5,0)=" "
^DD(727.813,11,23,6,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,11,23,7,0)="   NAME field (.01) in the LABORATORY TEST FILE (#60) as pointed to by"
^DD(727.813,11,23,8,0)="   the LAB TEST field (1) of the ACCESSION WKLD CODE TIME field (1) "
^DD(727.813,11,23,9,0)="   multiple within the WKLD CODE field (1) multiple within the DATE "
^DD(727.813,11,23,10,0)="   field (.03) multiple of the WKLD DATA file (#64.1)."
^DD(727.813,11,"DT")="2960730"
^DD(727.813,12,0)="URGENCY OF TEST^P62.05'^LAB(62.05,^0;13^Q"
^DD(727.813,12,.1)="Urgency of Test"
^DD(727.813,12,3)="Enter urgency of test completed."
^DD(727.813,12,21,0)="^^1^1^2990510^^^^"
^DD(727.813,12,21,1,0)="The urgency of the test completed."
^DD(727.813,12,23,0)="^^10^10^2990510^^^^"
^DD(727.813,12,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,12,23,2,0)="   URGENCY field (.01) in the URGENCY FILE (#62.05) as pointed to by "
^DD(727.813,12,23,3,0)="   URGENCY field (1) of the TEST multiple (6) within the SPECIMEN # "
^DD(727.813,12,23,4,0)="   multiple (1) of the LAB ORDER ENTRY file (#69). "
^DD(727.813,12,23,5,0)=" "
^DD(727.813,12,23,6,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,12,23,7,0)="   URGENCY field (.01) in the URGENCY FILE (#62.05) as pointed to by"
^DD(727.813,12,23,8,0)="   the URGENCY field (22) of the ACCESSION WKLD CODE TIME field (1) "
^DD(727.813,12,23,9,0)="   multiple within the WKLD CODE field (1) multiple within the DATE "
^DD(727.813,12,23,10,0)="   field (.03) multiple of the WKLD DATA file (#64.1)."
^DD(727.813,12,"DT")="2960730"
^DD(727.813,13,0)="TREATING SPECIALTY^F^^0;14^K:$L(X)>3!($L(X)<2) X"
^DD(727.813,13,.1)="Treating Specialty"
^DD(727.813,13,3)="Answer must be 2-3 characters in length"
^DD(727.813,13,21,0)="^^2^2^3070502^"
^DD(727.813,13,21,1,0)="Indicates treating specialty PTF CODE for this patient or entity.  Will be"
^DD(727.813,13,21,2,0)="set to null for outpatients."
^DD(727.813,13,23,0)="^.001^17^17^3070502^^"
^DD(727.813,13,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,13,23,2,0)="   This field is initialized to a null, indicating an outpatient "
^DD(727.813,13,23,3,0)="   status. If a call to IN5^VADPT (using the patient IEN and the event "
^DD(727.813,13,23,4,0)="   date) returns a patient movement number (indicating inpatient "
^DD(727.813,13,23,5,0)="   status), then the value of VAIP(8), which is the pointer to the "
^DD(727.813,13,23,6,0)="   FACILITY TREATING SPECIALTY file (#45.7), is used to get the "
^DD(727.813,13,23,7,0)="   SPECIALTY field (1) which points to the SPECIALTY file (#42.4). "
^DD(727.813,13,23,8,0)=" "
^DD(727.813,13,23,9,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,13,23,10,0)="   NAME field (.01) in the SPECIALTY file (#42.4), as pointed to by the "
^DD(727.813,13,23,11,0)="   NAME field (.01) in the FACILITY TREATING SPECIALTY file (#45.7), as "
^DD(727.813,13,23,12,0)="   pointed to by the TREATING SPECIALTY field (16) of the ACCESSION WKLD "
^DD(727.813,13,23,13,0)="   CODE TIME field (1) multiple within the WKLD CODE field (1) multiple "
^DD(727.813,13,23,14,0)="   within the DATE field (.03) multiple of the WKLD DATA file (#64.1)."
^DD(727.813,13,23,15,0)=" "
^DD(727.813,13,23,16,0)="Then, the PTF Code is obtained and stored instead of the actual specialty"
^DD(727.813,13,23,17,0)="code."
^DD(727.813,13,"DT")="3070420"
^DD(727.813,14,0)="LOCATION^F^^0;15^K:$L(X)>20!($L(X)<1) X"
^DD(727.813,14,.1)="Location"
^DD(727.813,14,3)="Answer must be 1-20 characters in length."
^DD(727.813,14,21,0)="^^1^1^2990701^^^^"
^DD(727.813,14,21,1,0)="The service/location from which the original order came."
^DD(727.813,14,23,0)="^^14^14^2990701^^^^"
^DD(727.813,14,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,14,23,2,0)="   NAME field (.01) of the HOSPITAL LOCATION file (#44) as pointed to by "
^DD(727.813,14,23,3,0)="   the ORDERING LOCATION field (23) within the SPECIMEN # multiple (1) "
^DD(727.813,14,23,4,0)="   of the LAB ORDER ENTRY file (#69). "
^DD(727.813,14,23,5,0)=" "
^DD(727.813,14,23,6,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,14,23,7,0)="   NAME field (.01) of the HOSPITAL LOCATION file (#44) as pointed to by "
^DD(727.813,14,23,8,0)="   the ORDERING LOCATION field (20) of the ACCESSION WKLD CODE TIME "
^DD(727.813,14,23,9,0)="   field (1) multiple within the WKLD CODE field (1) multiple within the "
^DD(727.813,14,23,10,0)="   DATE field (.03) multiple of the WKLD DATA file (#64.1)."
^DD(727.813,14,23,11,0)=" "
^DD(727.813,14,23,12,0)="In the case of the Lab Extract with LMIP Codes, this field may sometimes "
^DD(727.813,14,23,13,0)="be null since Lab allows ""non-standard"" locations to be entered and "
^DD(727.813,14,23,14,0)="these entries would be of no help to the purpose of this extract."
^DD(727.813,14,"DT")="2980708"
^DD(727.813,15,0)="PROVIDER^F^^0;16^K:$L(X)>11!($L(X)<1) X"
^DD(727.813,15,.1)="Provider"
^DD(727.813,15,3)="Enter provider for this record."
^DD(727.813,15,21,0)="^^1^1^2980708^^^^"
^DD(727.813,15,21,1,0)="The provider assigned to this patient or entity.  "
^DD(727.813,15,23,0)="^^14^14^2980708^^^^"
^DD(727.813,15,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,15,23,2,0)="   NAME field (.01) of the PROVIDER file (#6) or the NAME field (.01) of "
^DD(727.813,15,23,3,0)="   the NEW PERSON file (#200) as pointed to by the PROVIDER field (7) "
^DD(727.813,15,23,4,0)="   within the SPECIMEN # multiple (1) of the LAB ORDER ENTRY file (#69). "
^DD(727.813,15,23,5,0)=" "
^DD(727.813,15,23,6,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,15,23,7,0)="   NAME field (.01) of the PROVIDER file (#6) or the NAME field (.01) of "
^DD(727.813,15,23,8,0)="   the NEW PERSON file (#200) as pointed to by the PROVIDER field (15) "
^DD(727.813,15,23,9,0)="   of the ACCESSION WKLD CODE TIME field (1) multiple within the WKLD "
^DD(727.813,15,23,10,0)="   CODE field (1) multiple within the DATE field (.03) multiple of the "
^DD(727.813,15,23,11,0)="   WKLD DATA file (#64.1)."
^DD(727.813,15,23,12,0)=" "
^DD(727.813,15,23,13,0)="The pointer value for the provider will be prefixed by ""6"" if found in"
^DD(727.813,15,23,14,0)="file #6; it will be prefixed by ""2"" if found in file #200."
^DD(727.813,15,"DT")="2961017"
^DD(727.813,16,0)="MOVEMENT FILE #^P405'^DGPM(^0;17^Q"
^DD(727.813,16,.1)="Movement File Number"
^DD(727.813,16,3)="Enter the movement number associated with this patient or null for an entity. "
^DD(727.813,16,21,0)="^^3^3^2960731^^^^"
^DD(727.813,16,21,1,0)="Movement number from the PATIENT MOVEMENT file (#405) associated with "
^DD(727.813,16,21,2,0)="this event for a patient.  This field will be set to null for non-"
^DD(727.813,16,21,3,0)="patient or outpatient events."
^DD(727.813,16,23,0)="^^5^5^2960731^^^^"
^DD(727.813,16,23,1,0)="This field is initialized to a null, indicating an outpatient status.  "
^DD(727.813,16,23,2,0)="If a call to IN5^VADPT (using the patient IEN and the event date) "
^DD(727.813,16,23,3,0)="returns a patient movement number (indicating inpatient status), then "
^DD(727.813,16,23,4,0)="this field is set to the value of VAIP(1), which is the pointer to the "
^DD(727.813,16,23,5,0)="PATIENT MOVEMENT file (#405). "
^DD(727.813,16,"DT")="2960730"
^DD(727.813,17,0)="FILE^F^^0;18^K:$L(X)>5!($L(X)<1) X"
^DD(727.813,17,.1)="File"
^DD(727.813,17,3)="Your answer must be 1 to 5 characters in length."
^DD(727.813,17,21,0)="^^2^2^2990510^^^^"
^DD(727.813,17,21,1,0)="Parent file from which entity was extracted, i.e., PATIENT file (#2), "
^DD(727.813,17,21,2,0)="REFERRAL PATIENT file (#67), or RESEARCH file (#67.1)."
^DD(727.813,17,23,0)="^^14^14^2990510^^^^"
^DD(727.813,17,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,17,23,2,0)="   If the PARENT FILE field (.02) of the LAB DATA file (#63) as pointed "
^DD(727.813,17,23,3,0)="   to by the LRDFN field (.01) within the SPECIMEN # multiple (1) of the "
^DD(727.813,17,23,4,0)="   LAB ORDER ENTRY file (#69) is"
^DD(727.813,17,23,5,0)="   a. 2 = PATIENT file (#2)"
^DD(727.813,17,23,6,0)="   b. 67 = REFERRAL PATIENT file (#67)"
^DD(727.813,17,23,7,0)="   c. 67.1 = RESEARCH file (#67.1)."
^DD(727.813,17,23,8,0)=" "
^DD(727.813,17,23,9,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,17,23,10,0)="   If the PATIENT field (9) of the ACCESSION WKLD CODE TIME field (1) "
^DD(727.813,17,23,11,0)="   multiple within the WKLD CODE field (1) multiple within the DATE "
^DD(727.813,17,23,12,0)="   field (.03) contains"
^DD(727.813,17,23,13,0)="   a. ^DPT( = PATIENT file (#2)"
^DD(727.813,17,23,14,0)="   b. ^LRT(67, = REFERRAL PATIENT file (#67)"
^DD(727.813,17,"DT")="2961022"
^DD(727.813,18,0)="TIME^FO^^0;19^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.813,18,.1)="Time"
^DD(727.813,18,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.813,18,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.813,18,3)="Answer must be 6 characters in length."
^DD(727.813,18,21,0)="^^2^2^3000309^^^^"
^DD(727.813,18,21,1,0)="A 6-character numeric string that represents the time of day"
^DD(727.813,18,21,2,0)="at which the Laboratory test was collected."
^DD(727.813,18,23,0)="^^13^13^3000309^^^^"
^DD(727.813,18,23,1,0)="Data source --"
^DD(727.813,18,23,2,0)=" "
^DD(727.813,18,23,3,0)="For Lab Extract:"
^DD(727.813,18,23,4,0)="   Data is inserted in this field by Laboratory routine ECXLABN"
^DD(727.813,18,23,5,0)="   and is derived from WKLD LOG file (#64.03) DATE/TIME COLLECTED"
^DD(727.813,18,23,6,0)="   field (#12)."
^DD(727.813,18,23,7,0)="      The value in field #12 of file #64.03 originated from"
^DD(727.813,18,23,8,0)="      routine LRCAPDSS and is derived from WKLD DATA file (#64.1);"
^DD(727.813,18,23,9,0)="      sub-file ACCESSION WKLD CODE TIME (#64.1111); INVERSE DATE"
^DD(727.813,18,23,10,0)="      COMPLETED field (#21)"
^DD(727.813,18,23,11,0)=" "
^DD(727.813,18,23,12,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.813,18,23,13,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.813,18,"DT")="2970924"
^DD(727.813,19,0)="WORKLOAD CODE^F^^0;20^K:$L(X)>10!($L(X)<1) X"
^DD(727.813,19,.1)="Workload Code"
^DD(727.813,19,3)="Your answer must be 1 to 10 characters in length."
^DD(727.813,19,21,0)="^^3^3^2990510^^^^"
^DD(727.813,19,21,1,0)="For Lab Extract with LMIP Codes, this is the workload code for this event."
^DD(727.813,19,21,2,0)="This corresponds to a CAP code.  For Lab Extract without LMIP Codes, this"
^DD(727.813,19,21,3,0)="field is set to null."
^DD(727.813,19,23,0)="^^7^7^2990510^^^^"
^DD(727.813,19,23,1,0)="1. For Lab Extract without LMIP Codes:"
^DD(727.813,19,23,2,0)="   This field is set to null.  "
^DD(727.813,19,23,3,0)=" "
^DD(727.813,19,23,4,0)="2. For Lab Extract with LMIP Codes:"
^DD(727.813,19,23,5,0)="   WKLD CODE field (1) of the WKLD CODE file (#64) as pointed to by the"
^DD(727.813,19,23,6,0)="   WKLD CODE field (.01) of the WKLD CODE field (1) multiple within the"
^DD(727.813,19,23,7,0)="   DATE field (.03) multiple of the WKLD DATA file (#64.1)."
^DD(727.813,19,"DT")="2961017"
^DD(727.813,20,0)="PRIMARY CARE TEAM^F^^0;21^K:$L(X)>4!($L(X)<1) X"
^DD(727.813,20,.1)="Primary Care Team"
^DD(727.813,20,3)="Enter primary care team assigned to this patient."
^DD(727.813,20,21,0)="^^1^1^3041122^^^^"
^DD(727.813,20,21,1,0)="The primary care team assigned to this patient."
^DD(727.813,20,23,0)="^^12^12^3041122^^^^"
^DD(727.813,20,23,1,0)="The DATE COLLECTED is defined by one of two methods. For Lab Extract "
^DD(727.813,20,23,2,0)="without LMIP Codes, DATE COLLECTED is defined by the DATE ORDERED field "
^DD(727.813,20,23,3,0)="(.01) of the LAB ORDER ENTRY file (#69). For Lab Extract with LMIP "
^DD(727.813,20,23,4,0)="Codes, DATE COLLECTED is defined by the DATE ORDERED field (11) of the "
^DD(727.813,20,23,5,0)="ACCESSION WKLD CODE TIME field (1) multiple within the WKLD CODE field "
^DD(727.813,20,23,6,0)="(1) multiple within the DATE field (.03) multiple of the WKLD DATA file "
^DD(727.813,20,23,7,0)="(#64.1)."
^DD(727.813,20,23,8,0)="  "
^DD(727.813,20,23,9,0)="Using the DATE COLLECTED and the patient pointer (DFN) stored in the "
^DD(727.813,20,23,10,0)="PATIENT NO. - DFN field (4) in the LABORATORY EXTRACT file (#727.813), a "
^DD(727.813,20,23,11,0)="call is made to the Scheduling API, OUTPTTM^SDUTL3. The API returns the "
^DD(727.813,20,23,12,0)="team's internal entry number and name from the TEAM file (#404.51). Only the pointer (IEN) to File 404.51 is transmitted."
^DD(727.813,20,"DT")="3041122"
^DD(727.813,21,0)="PRIMARY CARE PROVIDER^F^^0;22^K:$L(X)>11!($L(X)<1) X"
^DD(727.813,21,.1)="Primary Care Provider"
^DD(727.813,21,3)="Enter primary care provider assigned to this patient."
^DD(727.813,21,21,0)="^^1^1^3041122^^^^"
^DD(727.813,21,21,1,0)="The primary care provider assigned to this patient."
^DD(727.813,21,23,0)="^^16^16^3041122^^^^"
^DD(727.813,21,23,1,0)="The DATE COLLECTED is defined by one of two methods. For Lab Extract "
^DD(727.813,21,23,2,0)="without LMIP Codes, DATE COLLECTED is defined by the DATE ORDERED field "
^DD(727.813,21,23,3,0)="(.01) of the LAB ORDER ENTRY file (#69). For Lab Extract with LMIP "
^DD(727.813,21,23,4,0)="Codes, DATE COLLECTED is defined by the DATE ORDERED field (11) of the "
^DD(727.813,21,23,5,0)="ACCESSION WKLD CODE TIME field (1) multiple within the WKLD CODE field "
^DD(727.813,21,23,6,0)="(1) multiple within the DATE field (.03) multiple of the WKLD DATA file "
^DD(727.813,21,23,7,0)="(#64.1)."
^DD(727.813,21,23,8,0)="  "
^DD(727.813,21,23,9,0)="Using the DATE COLLECTED and the patient pointer (DFN) stored in the "
^DD(727.813,21,23,10,0)="PATIENT NO. - DFN field (4) in the LABORATORY EXTRACT file (#727.813), a "
^DD(727.813,21,23,11,0)="call is made to the Scheduling API, OUTPTPR^SDUTL3. The API returns the "
^DD(727.813,21,23,12,0)="provider's internal entry number and name from the NEW PERSON file "
^DD(727.813,21,23,13,0)="(#200). "
^DD(727.813,21,23,14,0)=" "
^DD(727.813,21,23,15,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.813,21,23,16,0)="is ""200""."
^DD(727.813,21,"DT")="3041122"
^DD(727.813,22,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.813,22,3)="Answer must be 1-10 characters in length."
^DD(727.813,22,21,0)="^^1^1^2990504^"
^DD(727.813,22,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.813,22,23,0)="^^2^2^2990504^"
^DD(727.813,22,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.813,22,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.813,22,"DT")="2990504"
^DD(727.813,23,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.813,23,.1)=""
^DD(727.813,23,3)="Answer must be 1-10 characters in length."
^DD(727.813,23,21,0)="^.001^2^2^3040318^^"
^DD(727.813,23,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.813,23,21,2,0)="the Laboratory care product."
^DD(727.813,23,23,0)="^^12^12^3040318^"
^DD(727.813,23,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.813,23,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.813,23,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.813,23,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.813,23,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.813,23,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.813,23,23,7,0)=" "
^DD(727.813,23,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as"
^DD(727.813,23,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.813,23,23,10,0)="designations are made. If no match is found in file 727.6 an error"
^DD(727.813,23,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.813,23,23,12,0)="group identifying the problem."
^DD(727.813,23,"DT")="3040302"
^DD(727.813,24,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.813,24,3)="Answer must be 1-8 characters in length."
^DD(727.813,24,21,0)="^^1^1^3070827^"
^DD(727.813,24,21,1,0)="Currently NULL."
^DD(727.813,24,23,0)="^^1^1^3070827^"
^DD(727.813,24,23,1,0)="Currently NULL."
^DD(727.813,24,"DT")="3070426"
^DD(727.813,25,0)="PLACEHOLDER^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.813,25,3)="Answer must be 1-8 characters in length."
^DD(727.813,25,21,0)="^^1^1^3070827^"
^DD(727.813,25,21,1,0)="Currently NULL."
^DD(727.813,25,23,0)="^^1^1^3070827^"
^DD(727.813,25,23,1,0)="Currently NULL."
^DD(727.813,25,"DT")="3070426"
^DD(727.813,26,0)="PC PROVIDER PERSON CLASS^F^^1;5^K:$L(X)>7!($L(X)<7) X"
^DD(727.813,26,3)="Answer must be 7 characters in length."
^DD(727.813,26,21,0)="^^2^2^2981026^"
^DD(727.813,26,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.813,26,21,2,0)="associated with this record."
^DD(727.813,26,23,0)="^^6^6^2981026^"
^DD(727.813,26,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.813,26,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.813,26,23,3,0)="extract record."
^DD(727.813,26,23,4,0)="  "
^DD(727.813,26,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.813,26,23,6,0)="7 characters in length."
^DD(727.813,26,"DT")="2981026"
^DD(727.813,27,0)="ASSOCIATE PC PROVIDER^F^^1;6^K:$L(X)>11!($L(X)<2) X"
^DD(727.813,27,3)="Answer must be 2-11 characters in length."
^DD(727.813,27,21,0)="^^4^4^2990505^^"
^DD(727.813,27,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.813,27,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.813,27,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.813,27,21,4,0)="character 2."
^DD(727.813,27,23,0)="^^2^2^2990505^^"
^DD(727.813,27,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.813,27,23,2,0)="the PCMM application."
^DD(727.813,27,"DT")="2990504"
^DD(727.813,28,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;7^K:$L(X)>7!($L(X)<7) X"
^DD(727.813,28,3)="Answer must be 7 characters in length."
^DD(727.813,28,21,0)="^^4^4^2990505^^^"
^DD(727.813,28,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.813,28,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.813,28,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.813,28,21,4,0)="exactly 7 characters in length. "
^DD(727.813,28,23,0)="^^3^3^2990505^^^"
^DD(727.813,28,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.813,28,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.813,28,23,3,0)="PERS is the IEN from file #200."
^DD(727.813,28,"DT")="2990504"
^DD(727.813,29,0)="PLACEHOLDER^F^^1;8^K:$L(X)>8!($L(X)<1) X"
^DD(727.813,29,3)="Answer must be 1-8 characters in length."
^DD(727.813,29,21,0)="^^1^1^3070827^"
^DD(727.813,29,21,1,0)="Currently NULL."
^DD(727.813,29,23,0)="^^1^1^3070827^"
^DD(727.813,29,23,1,0)="Currently NULL."
^DD(727.813,29,"DT")="3070426"
^DD(727.813,30,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.813,30,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.813,30,21,0)="^.001^5^5^3001023^^"
^DD(727.813,30,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.813,30,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.813,30,21,3,0)="Domiciliary (DOM)"
^DD(727.813,30,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.813,30,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.813,30,"DT")="3001010"
^DD(727.813,31,0)="OBSERVATION PATIENT INDICATOR^F^^1;10^K:$L(X)>4!($L(X)<1) X"
^DD(727.813,31,3)="Answer must be 1-4 characters in length."
^DD(727.813,31,21,0)="^^2^2^3011212^"
^DD(727.813,31,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.813,31,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.813,31,"DT")="3010814"
^DD(727.813,32,0)="ENCOUNTER NUMBER^F^^1;11^K:$L(X)>18!($L(X)<1) X"
^DD(727.813,32,3)="Answer must be 1-18 characters in length"
^DD(727.813,32,21,0)="^^3^3^3011212^"
^DD(727.813,32,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.813,32,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.813,32,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.813,32,"DT")="3010509"
^DD(727.813,33,0)="ORDERING STOP CODE^F^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(727.813,33,3)="Answer must be 3 characters in length"
^DD(727.813,33,21,0)="^^1^1^3011212^"
^DD(727.813,33,21,1,0)="This field contains the stop code associated with the order."
^DD(727.813,33,"DT")="3010509"
^DD(727.813,34,0)="ORDERING DATE^F^^1;13^K:$L(X)>8!($L(X)<8) X"
^DD(727.813,34,3)="Answer must be 8 characters in length"
^DD(727.813,34,21,0)="^^1^1^3011212^"
^DD(727.813,34,21,1,0)="This field contains the date of the order in YYYYMMDD format."
^DD(727.813,34,"DT")="3010509"
^DD(727.813,35,0)="PRODUCTION DIVISION^F^^1;14^K:$L(X)>6!($L(X)<3) X"
^DD(727.813,35,3)="Answer must be 3-6 characters in length."
^DD(727.813,35,21,0)="^.001^2^2^3021008^^"
^DD(727.813,35,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.813,35,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.813,35,23,0)="^^2^2^3021008^"
^DD(727.813,35,23,1,0)="Data comes from the STATION NUMBER field (#99) of the INSTITUTION "
^DD(727.813,35,23,2,0)="file (#4)."
^DD(727.813,35,"DT")="3020626"
^DD(727.813,36,0)="DSS IP #^NJ7,0^^1;15^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.813,36,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.813,36,21,0)="^.001^2^2^3040318^^"
^DD(727.813,36,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.813,36,21,2,0)="patient care product."
^DD(727.813,36,23,0)="^.001^10^10^3041027^^"
^DD(727.813,36,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.813,36,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.813,36,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.813,36,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.813,36,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.813,36,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.813,36,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.813,36,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.813,36,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.813,36,23,10,0)="group identifying the problem. "
^DD(727.813,36,"DT")="3031113"
^DD(727.813,37,0)="ORDERING PROVIDER PERSON CLASS^F^^1;16^K:$L(X)>7!($L(X)<1) X"
^DD(727.813,37,3)="Answer must be 1-7 characters in length."
^DD(727.813,37,21,0)="^^3^3^3040317^"
^DD(727.813,37,21,1,0)="The ORDERING PROVIDER PERSON CLASS is derived via the Laboratory File # 63"
^DD(727.813,37,21,2,0)="which points to the New Person File # 200 for provider. File #200 points "
^DD(727.813,37,21,3,0)="to the Person Class File #8932.1 for Person Class.  "
^DD(727.813,37,23,0)="^^3^3^3040317^"
^DD(727.813,37,23,1,0)="The ORDERING PROVIDER PERSON CLASS is derived via the Laboratory File # 63"
^DD(727.813,37,23,2,0)="which points to the New Person File # 200 for provider. File #200 points "
^DD(727.813,37,23,3,0)="to the Person Class File #8932.1 for Person Class.  "
^DD(727.813,37,"DT")="3040303"
^DD(727.813,38,0)="ERI^F^^1;17^K:$L(X)>2!($L(X)<1) X"
^DD(727.813,38,3)="Answer must be 1-2 characters in length."
^DD(727.813,38,21,0)="^.001^2^2^3060731^^"
^DD(727.813,38,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.813,38,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.813,38,23,0)="^.001^4^4^3060731^^"
^DD(727.813,38,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.813,38,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.813,38,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.813,38,23,4,0)="    Null"
^DD(727.813,38,"DT")="3060731"
^DD(727.813,39,0)="ASSOCIATE PC PROVIDER NPI^F^^1;18^K:$L(X)>15!($L(X)<1) X"
^DD(727.813,39,3)="Answer must be 1-15 characters in length."
^DD(727.813,39,21,0)="^^2^2^3070502^"
^DD(727.813,39,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.813,39,21,2,0)="provider.  This field has a length of fifteen characters. "
^DD(727.813,39,23,0)="^.001^3^3^3070502^^"
^DD(727.813,39,23,1,0)="ASSOCIATE PC PROVIDER NPI is a standard unique life-long identifer of the "
^DD(727.813,39,23,2,0)="associate primary care provider.  The qualified identifier shall be "
^DD(727.813,39,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.813,39,"DT")="3070504"
^DD(727.813,40,0)="PRIMARY CARE PROVIDER NPI^F^^1;19^K:$L(X)>15!($L(X)<1) X"
^DD(727.813,40,3)="Answer must be 1-15 characters in length."
^DD(727.813,40,21,0)="^^2^2^3070502^"
^DD(727.813,40,21,1,0)="A standard unique life-long identifier of the primary care provider.  "
^DD(727.813,40,21,2,0)="This field has a length of fifteen characters."
^DD(727.813,40,23,0)="^.001^3^3^3070502^^"
^DD(727.813,40,23,1,0)="PRIMARY CARE PROVIDER NPI is a standard unique life-long identifier of "
^DD(727.813,40,23,2,0)="the primary care provider.  The qualified identifier shall be "
^DD(727.813,40,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.813,40,"DT")="3070504"
^DD(727.813,41,0)="PROVIDER NPI^F^^1;20^K:$L(X)>15!($L(X)<1) X"
^DD(727.813,41,3)="Answer must be 1-15 characters in length."
^DD(727.813,41,21,0)="^^2^2^3070502^"
^DD(727.813,41,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.813,41,21,2,0)="health care services.  This field has a length of fifteen characters."
^DD(727.813,41,23,0)="^.001^3^3^3070502^^"
^DD(727.813,41,23,1,0)="PROVIDER NPI is a standard unique life-long identifier of the individuals "
^DD(727.813,41,23,2,0)="providing health care services.  The qualified identifier shall be "
^DD(727.813,41,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.813,41,"DT")="3070504"
^DD(727.813,"B","ABBREVIATION",10)=""
^DD(727.813,"B","ACCESSION AREA",9)=""
^DD(727.813,"B","ASSOC. PC PROV. PERSON CLASS",28)=""
^DD(727.813,"B","ASSOCIATE PC PROVIDER",27)=""
^DD(727.813,"B","ASSOCIATE PC PROVIDER NPI",39)=""
^DD(727.813,"B","Abbreviation",10)="1"
^DD(727.813,"B","Accession Area",9)="1"
^DD(727.813,"B","DAY",8)=""
^DD(727.813,"B","DOM,PRRTP AND SAARTP INDICATOR",30)=""
^DD(727.813,"B","DSS IP #",36)=""
^DD(727.813,"B","DSS PRODUCT DEPARTMENT",23)=""
^DD(727.813,"B","Day",8)="1"
^DD(727.813,"B","ENCOUNTER NUMBER",32)=""
^DD(727.813,"B","ERI",38)=""
^DD(727.813,"B","EXTRACT NUMBER",2)=""
^DD(727.813,"B","Extract Number",2)="1"
^DD(727.813,"B","FACILITY",3)=""
^DD(727.813,"B","FILE",17)=""
^DD(727.813,"B","Facility",3)="1"
^DD(727.813,"B","File",17)="1"
^DD(727.813,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.813,"B","In Out Patient Indicator",7)="1"
^DD(727.813,"B","LOCATION",14)=""
^DD(727.813,"B","Location",14)="1"
^DD(727.813,"B","MASTER PATIENT INDEX",22)=""
^DD(727.813,"B","MOVEMENT FILE #",16)=""
^DD(727.813,"B","Movement File Number",16)="1"
^DD(727.813,"B","NAME",6)=""
^DD(727.813,"B","Name",6)="1"
^DD(727.813,"B","OBSERVATION PATIENT INDICATOR",31)=""
^DD(727.813,"B","ORDERING DATE",34)=""
^DD(727.813,"B","ORDERING PROVIDER PERSON CLASS",37)=""
^DD(727.813,"B","ORDERING STOP CODE",33)=""
^DD(727.813,"B","PATIENT NO. - DFN",4)=""
^DD(727.813,"B","PC PROVIDER PERSON CLASS",26)=""
^DD(727.813,"B","PLACEHOLDER",24)=""
^DD(727.813,"B","PLACEHOLDER",25)=""
^DD(727.813,"B","PLACEHOLDER",29)=""
^DD(727.813,"B","PRIMARY CARE PROVIDER",21)=""
^DD(727.813,"B","PRIMARY CARE PROVIDER NPI",40)=""
^DD(727.813,"B","PRIMARY CARE TEAM",20)=""
^DD(727.813,"B","PRODUCTION DIVISION",35)=""
^DD(727.813,"B","PROVIDER",15)=""
^DD(727.813,"B","PROVIDER NPI",41)=""
^DD(727.813,"B","Patient No. - DFN",4)="1"
^DD(727.813,"B","Primary Care Provider",21)="1"
^DD(727.813,"B","Primary Care Team",20)="1"
^DD(727.813,"B","Provider",15)="1"
^DD(727.813,"B","SEQUENCE NUMBER",.01)=""
^DD(727.813,"B","SSN IDENTIFYING NUMBER",5)=""
^DD(727.813,"B","Sequence Number",.01)="1"
^DD(727.813,"B","TEST",11)=""
^DD(727.813,"B","TIME",18)=""
^DD(727.813,"B","TREATING SPECIALTY",13)=""
^DD(727.813,"B","Test",11)="1"
^DD(727.813,"B","Time",18)="1"
^DD(727.813,"B","Treating Specialty",13)="1"
^DD(727.813,"B","URGENCY OF TEST",12)=""
^DD(727.813,"B","Urgency of Test",12)="1"
^DD(727.813,"B","WORKLOAD CODE",19)=""
^DD(727.813,"B","Workload Code",19)="1"
^DD(727.813,"B","YEAR MONTH",1)=""
^DD(727.813,"B","Year/Month",1)="1"
^DD(727.813,"GL",0,1,.01)=""
^DD(727.813,"GL",0,2,1)=""
^DD(727.813,"GL",0,3,2)=""
^DD(727.813,"GL",0,4,3)=""
^DD(727.813,"GL",0,5,4)=""
^DD(727.813,"GL",0,6,5)=""
^DD(727.813,"GL",0,7,6)=""
^DD(727.813,"GL",0,8,7)=""
^DD(727.813,"GL",0,9,8)=""
^DD(727.813,"GL",0,10,9)=""
^DD(727.813,"GL",0,11,10)=""
^DD(727.813,"GL",0,12,11)=""
^DD(727.813,"GL",0,13,12)=""
^DD(727.813,"GL",0,14,13)=""
^DD(727.813,"GL",0,15,14)=""
^DD(727.813,"GL",0,16,15)=""
^DD(727.813,"GL",0,17,16)=""
^DD(727.813,"GL",0,18,17)=""
^DD(727.813,"GL",0,19,18)=""
^DD(727.813,"GL",0,20,19)=""
^DD(727.813,"GL",0,21,20)=""
^DD(727.813,"GL",0,22,21)=""
^DD(727.813,"GL",1,1,22)=""
^DD(727.813,"GL",1,2,23)=""
^DD(727.813,"GL",1,3,24)=""
^DD(727.813,"GL",1,4,25)=""
^DD(727.813,"GL",1,5,26)=""
^DD(727.813,"GL",1,6,27)=""
^DD(727.813,"GL",1,7,28)=""
^DD(727.813,"GL",1,8,29)=""
^DD(727.813,"GL",1,9,30)=""
^DD(727.813,"GL",1,10,31)=""
^DD(727.813,"GL",1,11,32)=""
^DD(727.813,"GL",1,12,33)=""
^DD(727.813,"GL",1,13,34)=""
^DD(727.813,"GL",1,14,35)=""
^DD(727.813,"GL",1,15,36)=""
^DD(727.813,"GL",1,16,37)=""
^DD(727.813,"GL",1,17,38)=""
^DD(727.813,"GL",1,18,39)=""
^DD(727.813,"GL",1,19,40)=""
^DD(727.813,"GL",1,20,41)=""
^DD(727.813,"IX",2)=""
^DD(727.813,"RQ",.01)=""
^DD(727.814,0)="FIELD^^42^48"
^DD(727.814,0,"DIK")="ECX814"
^DD(727.814,0,"DIKOLD")="ECX814"
^DD(727.814,0,"DT")="3021010"
^DD(727.814,0,"IX","AC",727.814,2)=""
^DD(727.814,0,"NM","RADIOLOGY EXTRACT")=""
^DD(727.814,0,"VR")="3.0"
^DD(727.814,0,"VRPK")="ECX"
^DD(727.814,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.814,.01,.1)="Sequence Number"
^DD(727.814,.01,1,0)="^.1^^0"
^DD(727.814,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.814,.01,21,0)="^.001^1^1^3000606^^^^"
^DD(727.814,.01,21,1,0)="The record number for this extract entry."
^DD(727.814,.01,23,0)="^.001^1^1^3000606^^^^"
^DD(727.814,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.814,.01,"DT")="2980812"
^DD(727.814,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.814,1,.1)="Year/Month"
^DD(727.814,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.814,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.814,1,3)="Answer must be 6 characters in length."
^DD(727.814,1,21,0)="^^2^2^2970918^^^^"
^DD(727.814,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.814,1,21,2,0)="for which this extract was performed."
^DD(727.814,1,23,0)="^^1^1^2970918^^^^"
^DD(727.814,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.814,1,"DT")="2970924"
^DD(727.814,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.814,2,.1)="Extract Number"
^DD(727.814,2,1,0)="^.1"
^DD(727.814,2,1,1,0)="727.814^AC"
^DD(727.814,2,1,1,1)="S ^ECX(727.814,""AC"",$E(X,1,30),DA)="""""
^DD(727.814,2,1,1,2)="K ^ECX(727.814,""AC"",$E(X,1,30),DA)"
^DD(727.814,2,1,1,3)="DO NOT DELETE."
^DD(727.814,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.814,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.814,2,1,1,"%D",2,0)="in this file."
^DD(727.814,2,1,1,"DT")="2910802"
^DD(727.814,2,3)="Enter the extract number for this extract."
^DD(727.814,2,21,0)="^^2^2^2961004^^^^"
^DD(727.814,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.814,2,21,2,0)="extract."
^DD(727.814,2,23,0)="^^2^2^2961004^^^^"
^DD(727.814,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.814,2,23,2,0)="pick up the header for the mail message."
^DD(727.814,2,"DT")="2961004"
^DD(727.814,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.814,3,.1)="Facility"
^DD(727.814,3,3)="Enter the station number where this extract was performed."
^DD(727.814,3,21,0)="^^1^1^2971113^^^^"
^DD(727.814,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.814,3,23,0)="^^4^4^2971113^^^^"
^DD(727.814,3,23,1,0)="Derived from the HOSPITAL DIVISION field (3) within the REGISTERED "
^DD(727.814,3,23,2,0)="EXAMS multiple (2) in the RAD/NUC MED PATIENT file (#70). HOSPITAL "
^DD(727.814,3,23,3,0)="DIVISION points to the RAD/NUC MED DIVISION file (#79) which in turn "
^DD(727.814,3,23,4,0)="points to the INSTITUTION file (#4)."
^DD(727.814,3,"DT")="2961017"
^DD(727.814,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.814,4,.1)="Patient No. - DFN"
^DD(727.814,4,3)="Enter the name of the patient for this extract record."
^DD(727.814,4,21,0)="^^1^1^2990504^^^^"
^DD(727.814,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.814,4,23,0)="^^3^3^2990504^^^^"
^DD(727.814,4,23,1,0)="Derived from the NAME field (.01) of the RAD/NUC MED PATIENT file (#70), "
^DD(727.814,4,23,2,0)="which is DINUMed to the PATIENT file (#2). This data represents the "
^DD(727.814,4,23,3,0)="patient DFN."
^DD(727.814,4,"DT")="2961018"
^DD(727.814,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.814,5,.1)="Social Security Number"
^DD(727.814,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.814,5,21,0)="^^4^4^2990504^^^^"
^DD(727.814,5,21,1,0)="The patient's social security number."
^DD(727.814,5,21,2,0)=" "
^DD(727.814,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.814,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.814,5,23,0)="^^6^6^2990504^^^"
^DD(727.814,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.814,5,23,2,0)="in the RADIOLOGY EXTRACT file (#727.814), SSN data is derived from the"
^DD(727.814,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.814,5,23,4,0)=" "
^DD(727.814,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.814,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.814,5,"DT")="2961004"
^DD(727.814,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.814,6,.1)="Name"
^DD(727.814,6,3)="Your answer must be 4 characters in length."
^DD(727.814,6,21,0)="^^1^1^2961022^^^^"
^DD(727.814,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.814,6,23,0)="^^4^4^2961022^^"
^DD(727.814,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.814,6,23,2,0)="in the RADIOLOGY EXTRACT file (#727.814), NAME data is derived from the"
^DD(727.814,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). The first four characters of"
^DD(727.814,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.814,6,"DT")="2961004"
^DD(727.814,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.814,7,.1)="In Out Patient Indicator"
^DD(727.814,7,3)="Answer must be 1 character in length."
^DD(727.814,7,21,0)="^.001^2^2^3011206^^^^"
^DD(727.814,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.814,7,21,2,0)="extract entry."
^DD(727.814,7,23,0)="^.001^4^4^3011206^^^^"
^DD(727.814,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.814,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.814,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.814,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.814,7,"DT")="3011129"
^DD(727.814,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.814,8,.1)="Day"
^DD(727.814,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.814,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.814,8,3)="Answer must be 8 characters in length."
^DD(727.814,8,21,0)="^^2^2^2970918^^^^"
^DD(727.814,8,21,1,0)="An 8-character numeric string that represents the date on which the"
^DD(727.814,8,21,2,0)="Radiology procedure was performed."
^DD(727.814,8,23,0)="^^10^10^2970923^^^^"
^DD(727.814,8,23,1,0)="Data source:"
^DD(727.814,8,23,2,0)=" "
^DD(727.814,8,23,3,0)="RAD/NUC MED PATIENT file (#70); REGISTERED EXAMS sub-file (#70.02)"
^DD(727.814,8,23,4,0)="   EXAM DATE field (#.01)"
^DD(727.814,8,23,5,0)=" "
^DD(727.814,8,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.814,8,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.814,8,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.814,8,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.814,8,23,10,0)="Year 2000 compliant per vendor."
^DD(727.814,8,"DT")="2970924"
^DD(727.814,9,0)="CPT CODE & MODIFIERS^FO^^0;10^K:$L(X)>15!($L(X)<5) X"
^DD(727.814,9,.1)=""
^DD(727.814,9,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.814,9,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.814,9,3)="Answer must be 5-15 characters in length."
^DD(727.814,9,21,0)="^^5^5^2990505^^^^"
^DD(727.814,9,21,1,0)="The Current Procedural Terminology (CPT) code for the radiology "
^DD(727.814,9,21,2,0)="procedure performed."
^DD(727.814,9,21,3,0)=" "
^DD(727.814,9,21,4,0)="The 5 character CPT Code is followed by upto five (5) 2-character CPT"
^DD(727.814,9,21,5,0)="code modifiers."
^DD(727.814,9,23,0)="^^9^9^2990505^^^^"
^DD(727.814,9,23,1,0)="Derived from the CPT CODE field (9) in the RAD/NUC MED PROCEDURES file "
^DD(727.814,9,23,2,0)="(#71) for the procedure identified in the RADIOLOGY PROCEDURE field (2) "
^DD(727.814,9,23,3,0)="of the EXAMINATIONS multiple (50) of the REGISTERED EXAMS multiple (2) "
^DD(727.814,9,23,4,0)="in the RAD/NUC MED PATIENT file (#70). CPT CODE is a pointer to the CPT "
^DD(727.814,9,23,5,0)="CODE field (.01) in the CPT file (#81)."
^DD(727.814,9,23,6,0)=" "
^DD(727.814,9,23,7,0)="The source of CPT modifiers is the MODIFIER field (#.01) of the CPT"
^DD(727.814,9,23,8,0)="MODIFIER file (#81.3).  It is not known at this time where the Radiology"
^DD(727.814,9,23,9,0)="package will store those modifiers."
^DD(727.814,9,"DT")="2990614"
^DD(727.814,10,0)="PROCEDURE^P71'^RAMIS(71,^0;11^Q"
^DD(727.814,10,.1)="Procedure"
^DD(727.814,10,3)="Enter the radiology procedure associated with this case."
^DD(727.814,10,21,0)="^^1^1^2971113^^^^"
^DD(727.814,10,21,1,0)="The radiology procedure associated with this case."
^DD(727.814,10,23,0)="^^4^4^2971113^^^^"
^DD(727.814,10,23,1,0)="Derived from the RADIOLOGY PROCEDURE field (2) within the EXAMINATIONS "
^DD(727.814,10,23,2,0)="multiple (50) of the REGISTERED EXAMS multiple (2) of the RAD/NUC MED "
^DD(727.814,10,23,3,0)="PATIENT file (#70). This field in a pointer to the RAD/NUC MED"
^DD(727.814,10,23,4,0)="PROCEDURES file (#71)."
^DD(727.814,10,"DT")="2961004"
^DD(727.814,11,0)="IMAGING LOCATION^P79.1'^RA(79.1,^0;12^Q"
^DD(727.814,11,.1)="Imaging Location"
^DD(727.814,11,3)="Enter name of the imaging location where this radiology exam was performed."
^DD(727.814,11,21,0)="^^1^1^2971113^^^^"
^DD(727.814,11,21,1,0)="The imaging location where this radiology exam was performed."
^DD(727.814,11,23,0)="^^3^3^2971113^^^^"
^DD(727.814,11,23,1,0)="Derived from the IMAGING LOCATION field (4) within the REGISTERED EXAMS "
^DD(727.814,11,23,2,0)="multiple (2) of the RAD/NUC MED PATIENT file (#70). It is a pointer to the "
^DD(727.814,11,23,3,0)="IMAGING LOCATIONS file (#79.1)."
^DD(727.814,11,"DT")="2961004"
^DD(727.814,12,0)="LOCATION (WARD OR CLINIC)^P44'^SC(^0;13^Q"
^DD(727.814,12,.1)="Location (Ward or Clinic)"
^DD(727.814,12,3)="Enter the ward or clinic of the patient at the time of the radiologic exam."
^DD(727.814,12,21,0)="^^1^1^2971113^^^^"
^DD(727.814,12,21,1,0)="The patient's ward or clinic location."
^DD(727.814,12,23,0)="^^10^10^2971113^^^^"
^DD(727.814,12,23,1,0)="Derived from the WARD field (6) within the EXAMINATIONS multiple (50) of "
^DD(727.814,12,23,2,0)="the REGISTERED EXAMS multiple (2) of the RAD/NUC MED PATIENT file (#70). "
^DD(727.814,12,23,3,0)="Using this WARD LOCATION file (#42) pointer, the data is derived from "
^DD(727.814,12,23,4,0)="the HOSPITAL LOCATION FILE POINTER field (44) in the WARD LOCATION file "
^DD(727.814,12,23,5,0)="(#42) which is a pointer to the HOSPITAL LOCATION file (#44)."
^DD(727.814,12,23,6,0)="  "
^DD(727.814,12,23,7,0)="If the patient is not assigned to a ward, data is derived from the "
^DD(727.814,12,23,8,0)="PRINCIPAL CLINIC field (8) within the EXAMINATIONS multiple (50) of the "
^DD(727.814,12,23,9,0)="REGISTERED EXAMS multiple (2) of the RAD/NUC MED PATIENT file (#70). "
^DD(727.814,12,23,10,0)="PRINCIPAL CLINIC is a pointer to the HOSPITAL LOCATION file (#44)."
^DD(727.814,12,"DT")="2961004"
^DD(727.814,13,0)="SERVICE^P49'^DIC(49,^0;14^Q"
^DD(727.814,13,.1)="Service"
^DD(727.814,13,3)="Enter the name of the service."
^DD(727.814,13,21,0)="^^1^1^2961004^^^^"
^DD(727.814,13,21,1,0)="Indicates the name of the service treating the patient."
^DD(727.814,13,23,0)="^^3^3^2971113^^^^"
^DD(727.814,13,23,1,0)="Derived from the SERVICE field (7) within the EXAMINATIONS multiple (50) "
^DD(727.814,13,23,2,0)="of the REGISTERED EXAMS multiple (2) of the RAD/NUC MED PATIENT file "
^DD(727.814,13,23,3,0)="(#70). SERVICE is a pointer to the HOSPITAL SERVICE file (#49)."
^DD(727.814,13,"DT")="2961004"
^DD(727.814,14,0)="DIAGNOSTIC CODE^P78.3'^RA(78.3,^0;15^Q"
^DD(727.814,14,.1)="Diagnostic Code"
^DD(727.814,14,3)="Enter the diagnostic code associated with this exam."
^DD(727.814,14,21,0)="^^1^1^2971113^^^^"
^DD(727.814,14,21,1,0)="Indicates the diagnostic code associated with this exam."
^DD(727.814,14,23,0)="^^4^4^2971113^^^^"
^DD(727.814,14,23,1,0)="Derived from the PRIMARY DIAGNOSTIC CODE field (13) within the "
^DD(727.814,14,23,2,0)="EXAMINATIONS multiple (50) of the REGISTERED EXAMS multiple (2) of "
^DD(727.814,14,23,3,0)="the RAD/NUC MED PATIENT file (#70). DIAGNOSTIC CODE is a pointer to "
^DD(727.814,14,23,4,0)="the DIAGNOSTIC CODES file (#78.3)."
^DD(727.814,14,"DT")="2961004"
^DD(727.814,15,0)="REQUESTING PHYSICIAN^F^^0;16^K:$L(X)>11!($L(X)<1) X"
^DD(727.814,15,.1)="Requesting Physician"
^DD(727.814,15,3)="Your answer must be 1 to 11 characters in length."
^DD(727.814,15,21,0)="^^1^1^2980608^^^^"
^DD(727.814,15,21,1,0)="Indicates the person requesting this radiology exam."
^DD(727.814,15,23,0)="^^6^6^2980608^^^^"
^DD(727.814,15,23,1,0)="Derived from the REQUESTING PHYSICIAN field (14) within the EXAMINATIONS "
^DD(727.814,15,23,2,0)="multiple (50) of the REGISTERED EXAMS multiple (2) of the RAD/NUC MED "
^DD(727.814,15,23,3,0)="PATIENT file (#70). If REQUESTING PHYSICIAN is a pointer to the NEW "
^DD(727.814,15,23,4,0)="PERSON file (#200), it is stored as ""2""_pointer value. If REQUESTING "
^DD(727.814,15,23,5,0)="PHYSICIAN is a pointer to the PROVIDER file (#6), it is stored as "
^DD(727.814,15,23,6,0)="""6""_pointer value."
^DD(727.814,15,"DT")="2961018"
^DD(727.814,16,0)="MODIFIERS^F^^0;17^K:$L(X)>15!($L(X)<1) X"
^DD(727.814,16,.1)="Modifiers"
^DD(727.814,16,3)="Your answer must be 1 to 15 characters in length."
^DD(727.814,16,21,0)="^^1^1^2971113^^^^"
^DD(727.814,16,21,1,0)="Indicates radiology modifiers associated with this exam."
^DD(727.814,16,23,0)="^^5^5^2971113^^^^"
^DD(727.814,16,23,1,0)="Derived from the MODIFIERS field (.01) within the MODIFIERS multiple "
^DD(727.814,16,23,2,0)="(#125) of the EXAMINATIONS multiple (50) within the REGISTERED EXAMS "
^DD(727.814,16,23,3,0)="multiple (2) of the RAD/NUC MED PATIENT file (#70). This field consists of "
^DD(727.814,16,23,4,0)="a string of pointers to the PROCEDURE MODIFIERS file (#71.2) separated "
^DD(727.814,16,23,5,0)="by semi-colons (;)."
^DD(727.814,16,"DT")="2961022"
^DD(727.814,17,0)="MOVEMENT FILE #^P405'^DGPM(^0;18^Q"
^DD(727.814,17,.1)="Movement File Number"
^DD(727.814,17,3)="Enter the patient movement number associated with this extract record."
^DD(727.814,17,21,0)="^^1^1^2961004^^"
^DD(727.814,17,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.814,17,23,0)="^^4^4^2961004^^"
^DD(727.814,17,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.814,17,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.814,17,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.814,17,23,4,0)="(#405)."
^DD(727.814,17,"DT")="2961004"
^DD(727.814,18,0)="TREATING SPECIALTY^P42.4'^DIC(42.4,^0;19^Q"
^DD(727.814,18,.1)="Treating Specialty"
^DD(727.814,18,3)="Enter the name of the treating specialty associated with this extract record."
^DD(727.814,18,21,0)="^^1^1^2961004^^"
^DD(727.814,18,21,1,0)="The name of the treating specialty associated with this extract record."
^DD(727.814,18,23,0)="^^6^6^2961004^^^"
^DD(727.814,18,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.814,18,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.814,18,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.814,18,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.814,18,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.814,18,23,6,0)="SPECIALTY file (#42.4)."
^DD(727.814,18,"DT")="2961004"
^DD(727.814,19,0)="TIME^FO^^0;20^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.814,19,.1)="Time"
^DD(727.814,19,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.814,19,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.814,19,3)="Answer must be 6 characters in length."
^DD(727.814,19,21,0)="^^2^2^2971113^^^^"
^DD(727.814,19,21,1,0)="A 6-character numeric string that represents the time of day when"
^DD(727.814,19,21,2,0)="this Radiology procedure was performed."
^DD(727.814,19,23,0)="^^7^7^2971113^^^^"
^DD(727.814,19,23,1,0)="Data source:"
^DD(727.814,19,23,2,0)=" "
^DD(727.814,19,23,3,0)="RAD/NUC MED PATIENT file (#70); REGISTERED EXAMS sub-file (#70.02)"
^DD(727.814,19,23,4,0)="   EXAM DATE field (#.01)"
^DD(727.814,19,23,5,0)=" "
^DD(727.814,19,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.814,19,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.814,19,"DT")="2970924"
^DD(727.814,20,0)="IMAGING TYPE^P79.2'^RA(79.2,^0;21^Q"
^DD(727.814,20,.1)="Imaging Type"
^DD(727.814,20,3)="Enter the type of imaging used for this radiology exam."
^DD(727.814,20,21,0)="^^1^1^2971113^^^^"
^DD(727.814,20,21,1,0)="The type of imaging used for this radiology exam."
^DD(727.814,20,23,0)="^^3^3^2971113^^^^"
^DD(727.814,20,23,1,0)="Derived from the TYPE OF IMAGING field (2) within the REGISTERED EXAMS "
^DD(727.814,20,23,2,0)="multiple (2) of the RAD/NUC MED PATIENT file (#70). It is a pointer to the "
^DD(727.814,20,23,3,0)="IMAGING TYPE file (#79.2)."
^DD(727.814,20,"DT")="2961004"
^DD(727.814,21,0)="PRIMARY CARE TEAM^F^^0;22^K:$L(X)>4!($L(X)<1) X"
^DD(727.814,21,.1)="Primary Care Team"
^DD(727.814,21,3)="Enter primary care team assigned to this patient."
^DD(727.814,21,21,0)="^^1^1^2961031^^^"
^DD(727.814,21,21,1,0)="The primary care team assigned to this patient."
^DD(727.814,21,23,0)="^^6^6^2971113^^^"
^DD(727.814,21,23,1,0)="Using the EXAM DATE field (.01) within the REGISTERED EXAMS multiple "
^DD(727.814,21,23,2,0)="(2) of the RAD/NUC MED PATIENT file (#70) and the patient pointer (DFN) "
^DD(727.814,21,23,3,0)="stored in the PATIENT NO. - DFN field (4) in the RADIOLOGY EXTRACT file "
^DD(727.814,21,23,4,0)="(#727.814), a call is made to the Scheduling API, OUTPTTM^SDUTL3. The "
^DD(727.814,21,23,5,0)="API returns the team's internal entry number and name from the TEAM file "
^DD(727.814,21,23,6,0)="(#404.51). Only the pointer (IEN) to File 404.51 is transmitted."
^DD(727.814,21,"DT")="2961031"
^DD(727.814,22,0)="PRIMARY CARE PROVIDER^F^^0;23^K:$L(X)>11!($L(X)<1) X"
^DD(727.814,22,.1)="Primary Care Provider"
^DD(727.814,22,3)="Enter primary care provider assigned to this patient."
^DD(727.814,22,21,0)="^^1^1^2980708^^^^"
^DD(727.814,22,21,1,0)="The primary care provider assigned to this patient."
^DD(727.814,22,23,0)="^^9^9^2980708^^^^"
^DD(727.814,22,23,1,0)="Using the EXAM DATE field (.01) within the REGISTERED EXAMS multiple "
^DD(727.814,22,23,2,0)="(2) of the RAD/NUC MED PATIENT file (#70) and the patient pointer (DFN) "
^DD(727.814,22,23,3,0)="stored in the PATIENT NO. - DFN field (4) in the RADIOLOGY EXTRACT file "
^DD(727.814,22,23,4,0)="(#727.814), a call is made to the Scheduling API, OUTPTPR^SDUTL3. The "
^DD(727.814,22,23,5,0)="API returns the provider's internal entry number and name from the NEW "
^DD(727.814,22,23,6,0)="PERSON file (#200). "
^DD(727.814,22,23,7,0)=" "
^DD(727.814,22,23,8,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.814,22,23,9,0)="is ""200""."
^DD(727.814,22,"DT")="2961018"
^DD(727.814,23,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.814,23,3)="Answer must be 1-10 characters in length."
^DD(727.814,23,21,0)="^^1^1^2990504^"
^DD(727.814,23,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.814,23,23,0)="^^2^2^2990504^"
^DD(727.814,23,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.814,23,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.814,23,"DT")="2990504"
^DD(727.814,24,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.814,24,.1)=""
^DD(727.814,24,3)="Answer must be 1-10 characters in length"
^DD(727.814,24,21,0)="^.001^2^2^3040318^^^"
^DD(727.814,24,21,1,0)="The nationally definded DSS Intermediate Department Number designated to "
^DD(727.814,24,21,2,0)="the Radiology care product."
^DD(727.814,24,23,0)="^^12^12^3040318^"
^DD(727.814,24,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.814,24,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.814,24,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.814,24,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.814,24,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.814,24,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.814,24,23,7,0)=" "
^DD(727.814,24,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as "
^DD(727.814,24,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.814,24,23,10,0)="designations are made. If no match is found in file 727.6 an error "
^DD(727.814,24,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.814,24,23,12,0)="group identifying the problem."
^DD(727.814,24,"DT")="3040302"
^DD(727.814,25,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.814,25,3)="Answer must be 1-8 characters in length."
^DD(727.814,25,21,0)="^^1^1^3070827^"
^DD(727.814,25,21,1,0)="Currently NULL."
^DD(727.814,25,23,0)="^^1^1^3070827^"
^DD(727.814,25,23,1,0)="Currently NULL."
^DD(727.814,25,"DT")="3070426"
^DD(727.814,26,0)="PLACEHOLDER^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.814,26,3)="Answer must be 1-8 characters in length."
^DD(727.814,26,21,0)="^^1^1^3070827^"
^DD(727.814,26,21,1,0)="Currently NULL."
^DD(727.814,26,23,0)="^^1^1^3070827^"
^DD(727.814,26,23,1,0)="Currently NULL."
^DD(727.814,26,"DT")="3070426"
^DD(727.814,27,0)="PC PROVIDER PERSON CLASS^F^^1;5^K:$L(X)>7!($L(X)<7) X"
^DD(727.814,27,3)="Answer must be 7 characters in length."
^DD(727.814,27,21,0)="^^2^2^2981026^"
^DD(727.814,27,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.814,27,21,2,0)="associated with this record."
^DD(727.814,27,23,0)="^^6^6^2981026^"
^DD(727.814,27,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.814,27,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.814,27,23,3,0)="extract record."
^DD(727.814,27,23,4,0)="  "
^DD(727.814,27,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.814,27,23,6,0)="7 characters in length."
^DD(727.814,27,"DT")="2981026"
^DD(727.814,28,0)="ASSOCIATE PC PROVIDER^F^^1;6^K:$L(X)>11!($L(X)<2) X"
^DD(727.814,28,3)="Answer must be 2-11 characters in length."
^DD(727.814,28,21,0)="^^4^4^2990505^"
^DD(727.814,28,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.814,28,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.814,28,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.814,28,21,4,0)="character 2."
^DD(727.814,28,23,0)="^^2^2^2990505^"
^DD(727.814,28,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.814,28,23,2,0)="the PCMM application."
^DD(727.814,28,"DT")="2990505"
^DD(727.814,29,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;7^K:$L(X)>7!($L(X)<7) X"
^DD(727.814,29,3)="Answer must be 7 characters in length."
^DD(727.814,29,21,0)="^^4^4^2990505^^"
^DD(727.814,29,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.814,29,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.814,29,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.814,29,21,4,0)="exactly 7 characters in length. "
^DD(727.814,29,23,0)="^^3^3^2990505^^"
^DD(727.814,29,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.814,29,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.814,29,23,3,0)="PERS is the IEN from file #200."
^DD(727.814,29,"DT")="2990505"
^DD(727.814,30,0)="PLACEHOLDER^F^^1;8^K:$L(X)>8!($L(X)<1) X"
^DD(727.814,30,3)="Answer must be 1-8 characters in length."
^DD(727.814,30,21,0)="^.001^1^1^3070827^^"
^DD(727.814,30,21,1,0)="Currently NULL."
^DD(727.814,30,23,0)="^.001^1^1^3070827^^"
^DD(727.814,30,23,1,0)="Currently NULL."
^DD(727.814,30,"DT")="3070426"
^DD(727.814,31,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.814,31,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.814,31,21,0)="^^5^5^3001020^"
^DD(727.814,31,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.814,31,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.814,31,21,3,0)="Domiciliary (DOM)"
^DD(727.814,31,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.814,31,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.814,31,"DT")="3001010"
^DD(727.814,32,0)="OBSERVATION PATIENT INDICATOR^F^^1;10^K:$L(X)>4!($L(X)<1) X"
^DD(727.814,32,3)="Answer must be 1-4 characters in length."
^DD(727.814,32,21,0)="^^2^2^3011212^"
^DD(727.814,32,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.814,32,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.814,32,"DT")="3010814"
^DD(727.814,33,0)="ENCOUNTER NUMBER^F^^1;11^K:$L(X)>18!($L(X)<1) X"
^DD(727.814,33,3)="Answer must be 1-18 characters in length"
^DD(727.814,33,21,0)="^^3^3^3011212^"
^DD(727.814,33,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.814,33,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.814,33,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.814,33,"DT")="3010509"
^DD(727.814,34,0)="RAD STOP CODE^F^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(727.814,34,3)="Answer must be 3 characters in length"
^DD(727.814,34,21,0)="^^2^2^3050913^"
^DD(727.814,34,21,1,0)="This field contains the stop code associated with the order and it "
^DD(727.814,34,21,2,0)="represents the IMAGING LOCATION field (#4) of sub-file (#70.02)."
^DD(727.814,34,23,0)="^.001^2^2^3050913^^"
^DD(727.814,34,23,1,0)="This field is populated from the RAD/NUC MED PATIENT (#70) sub-file "
^DD(727.814,34,23,2,0)="REGISTERED EXAMS (#70.02) field (#4) IMAGING LOCATION."
^DD(727.814,34,"DT")="3050405"
^DD(727.814,35,0)="ORDERING DATE^F^^1;13^K:$L(X)>8!($L(X)<8) X"
^DD(727.814,35,3)="Answer must be 8 characters in length"
^DD(727.814,35,21,0)="^^1^1^3011212^"
^DD(727.814,35,21,1,0)="This field contains the date of the order in YYYYMMDD format."
^DD(727.814,35,"DT")="3010509"
^DD(727.814,36,0)="PRODUCTION DIVISION CODE^F^^1;14^K:$L(X)>6!($L(X)<3) X"
^DD(727.814,36,3)="Answer must be 3-6 characters in length."
^DD(727.814,36,21,0)="^.001^2^2^3021008^^^^"
^DD(727.814,36,21,1,0)="Represents the division that provided the work.  this code is the"
^DD(727.814,36,21,2,0)="facility number (i.e. 523AA)."
^DD(727.814,36,23,0)="^.001^2^2^3021008^^"
^DD(727.814,36,23,1,0)="This data comes from the STATION NUMBER field (#99) in the INSTITUTION"
^DD(727.814,36,23,2,0)="file (#4)."
^DD(727.814,36,"DT")="3020501"
^DD(727.814,37,0)="DSS IP #^NJ7,0^^1;15^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.814,37,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.814,37,21,0)="^.001^2^2^3040318^^^"
^DD(727.814,37,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.814,37,21,2,0)="patient care product."
^DD(727.814,37,23,0)="^.001^10^10^3041027^^"
^DD(727.814,37,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.814,37,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.814,37,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.814,37,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.814,37,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.814,37,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.814,37,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.814,37,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.814,37,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.814,37,23,10,0)="group identifying the problem. "
^DD(727.814,37,"DT")="3031113"
^DD(727.814,38,0)="ORDERING PROVIDER PERSON CLASS^F^^1;16^K:$L(X)>7!($L(X)<1) X"
^DD(727.814,38,3)="Answer must be 1-7 characters in length."
^DD(727.814,38,21,0)="^.001^7^7^3050425^^^"
^DD(727.814,38,21,1,0)="ORDERING PROVIDER PERSON CLASS shall be seven characters in length and "
^DD(727.814,38,21,2,0)="will hold the VA code associated with the active person class of the "
^DD(727.814,38,21,3,0)="Ordering Provider. The format of the field shall be V999999, where the "
^DD(727.814,38,21,4,0)="999999 will be six numeric digits. ORDERING PROVIDER PERSON CLASS value "
^DD(727.814,38,21,5,0)="is based on the REQUESTING PHYSICIAN field (#13). Once this is located,"
^DD(727.814,38,21,6,0)="then the New Person file (#200) points to the Person Class file (#8932.1)"
^DD(727.814,38,21,7,0)="for person class.  "
^DD(727.814,38,23,0)="^^3^3^3050425^"
^DD(727.814,38,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.814,38,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.814,38,23,3,0)="#200."
^DD(727.814,38,"DT")="3040301"
^DD(727.814,39,0)="INTERPRETING RADIOLOGIST^F^^1;17^K:$L(X)>11!($L(X)<1) X"
^DD(727.814,39,3)="Answer must be 1-11 characters in length."
^DD(727.814,39,21,0)="^.001^3^3^3050426^^^^"
^DD(727.814,39,21,1,0)="This is the IEN of the New Person file (#200) entry and it indicates the"
^DD(727.814,39,21,2,0)="person interpreting this radiology exam. The IEN of the New Person file"
^DD(727.814,39,21,3,0)="(#200) shall be prefixed with a '2'."
^DD(727.814,39,"DT")="3050405"
^DD(727.814,40,0)="INTERPRETING RADIOLOGIST PC^F^^1;18^K:$L(X)>7!($L(X)<1) X"
^DD(727.814,40,3)="Answer must be 1-7 characters in length."
^DD(727.814,40,21,0)="^.001^3^3^3050426^^^^"
^DD(727.814,40,21,1,0)="The VA Code of the Person Class of the Interpreting Radiologist associated"
^DD(727.814,40,21,2,0)="with this record. The VA Code is always of the form ""V""_six numeric"
^DD(727.814,40,21,3,0)="digits; exactly 7."
^DD(727.814,40,23,0)="^.001^3^3^3050426^^"
^DD(727.814,40,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.814,40,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.814,40,23,3,0)="#200."
^DD(727.814,40,"DT")="3050405"
^DD(727.814,41,0)="CLINIC NAME^NJ8,0^^1;19^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.814,41,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(727.814,41,21,0)="^.001^2^2^3050526^^^^"
^DD(727.814,41,21,1,0)="This field identifies the specific clinic ordering the radiology exam. "
^DD(727.814,41,21,2,0)="The clinic IEN should be retrieved from the Hospital Location file (#44)."
^DD(727.814,41,23,0)="^^4^4^3050526^"
^DD(727.814,41,23,1,0)="This field identifies the specific clinic (IEN) ordering the radiology"
^DD(727.814,41,23,2,0)="exam. The clinic name is retrieved from the RAD/NUC MED PATIENT file (#70)"
^DD(727.814,41,23,3,0)="sub-file (#70.03) PRINCIPAL CLINIC field (#8) which is a pointer to"
^DD(727.814,41,23,4,0)="HOSPITAL LOCATION FILE (#44)."
^DD(727.814,41,"DT")="3050405"
^DD(727.814,42,0)="CLINIC STOP CODE^F^^1;20^K:$L(X)>3!($L(X)<3) X"
^DD(727.814,42,3)="Answer must be 3 characters in length."
^DD(727.814,42,21,0)="^.001^3^3^3050425^^^^"
^DD(727.814,42,21,1,0)="This is the ordering stop code of the clinic that ordered the radiology "
^DD(727.814,42,21,2,0)="exam. This value is retrieved from the Hospital Location file (#44) field"
^DD(727.814,42,21,3,0)="(#8) 'STOP CODE NUMBER' and it is a pointer to CLINIC STOP file (#40.7)."
^DD(727.814,42,"DT")="3050405"
^DD(727.814,43,0)="ERI^F^^1;21^K:$L(X)>2!($L(X)<1) X"
^DD(727.814,43,3)="Answer must be 1-2 characters in length."
^DD(727.814,43,21,0)="^.001^2^2^3060731^^"
^DD(727.814,43,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.814,43,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.814,43,23,0)="^.001^4^4^3060731^^^"
^DD(727.814,43,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.814,43,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.814,43,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.814,43,23,4,0)="    Null"
^DD(727.814,43,"DT")="3060731"
^DD(727.814,44,0)="ASSOCIATE PC PROVIDER NPI^F^^1;22^K:$L(X)>15!($L(X)<1) X"
^DD(727.814,44,3)="Answer must be 1-15 characters in length."
^DD(727.814,44,21,0)="^^2^2^3070504^"
^DD(727.814,44,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.814,44,21,2,0)="provider. This field has a length of fifteen characters. "
^DD(727.814,44,23,0)="^.001^3^3^3070504^^"
^DD(727.814,44,23,1,0)="ASSOCIATE PC PROVIDER NPI is a standard unique life-long identifier of "
^DD(727.814,44,23,2,0)="the associate primary care provider.  The qualified identifier shall be "
^DD(727.814,44,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.814,44,"DT")="3070504"
^DD(727.814,45,0)="INTERPRETING RADIOLOGIST NPI^F^^1;23^K:$L(X)>15!($L(X)<1) X"
^DD(727.814,45,3)="Answer must be 1-15 characters in length."
^DD(727.814,45,21,0)="^^2^2^3070504^"
^DD(727.814,45,21,1,0)="A standard unique life-long identifier of the radiologist who interpreted "
^DD(727.814,45,21,2,0)="the radiology exam. This field has a length of fifteen characters."
^DD(727.814,45,23,0)="^.001^3^3^3070504^^"
^DD(727.814,45,23,1,0)="INTERPRETING RADIOLOGIST NPI is a standard unique life-long identifier of "
^DD(727.814,45,23,2,0)="the radiologist who interpreted the radiology exam.  The qualified "
^DD(727.814,45,23,3,0)="identifier shall be retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.814,45,"DT")="3070504"
^DD(727.814,46,0)="PRIMARY CARE PROVIDER NPI^F^^1;24^K:$L(X)>15!($L(X)<1) X"
^DD(727.814,46,3)="Answer must be 1-15 characters in length."
^DD(727.814,46,21,0)="^^2^2^3070504^"
^DD(727.814,46,21,1,0)="A standard unique life-long identifier of the primary care provider.  "
^DD(727.814,46,21,2,0)="This field has a length of fifteen characters."
^DD(727.814,46,23,0)="^.001^3^3^3070504^^"
^DD(727.814,46,23,1,0)="PRIMARY CARE PROVIDER NPI is a standard unique life-long identifier of the"
^DD(727.814,46,23,2,0)="priamry care provider.  The qualified identifier shall be retrieved via"
^DD(727.814,46,23,3,0)="the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.814,46,"DT")="3070504"
^DD(727.814,47,0)="REQUESTING PHYSICIAN NPI^F^^1;25^K:$L(X)>15!($L(X)<1) X"
^DD(727.814,47,3)="Answer must be 1-15 characters in length."
^DD(727.814,47,21,0)="^^2^2^3070504^"
^DD(727.814,47,21,1,0)="A standard unique life-long identifier of the physician who requested the "
^DD(727.814,47,21,2,0)="radiology exam.  This field has a length of fifteen characters."
^DD(727.814,47,23,0)="^.001^3^3^3070504^^"
^DD(727.814,47,23,1,0)="REQUESTING PHYSICIAN NPI is a standard unique life-long identifier of the "
^DD(727.814,47,23,2,0)="physician who requested the radiology exam.  The qualified identifier "
^DD(727.814,47,23,3,0)="shall be retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.814,47,"DT")="3070504"
^DD(727.814,"B","ASSOC. PC PROV. PERSON CLASS",29)=""
^DD(727.814,"B","ASSOCIATE PC PROVIDER",28)=""
^DD(727.814,"B","ASSOCIATE PC PROVIDER NPI",44)=""
^DD(727.814,"B","CLINIC NAME",41)=""
^DD(727.814,"B","CLINIC STOP CODE",42)=""
^DD(727.814,"B","CPT CODE & MODIFIERS",9)=""
^DD(727.814,"B","DAY",8)=""
^DD(727.814,"B","DIAGNOSTIC CODE",14)=""
^DD(727.814,"B","DOM,PRRTP AND SAARTP INDICATOR",31)=""
^DD(727.814,"B","DSS IP #",37)=""
^DD(727.814,"B","DSS PRODUCT DEPARTMENT",24)=""
^DD(727.814,"B","Day",8)="1"
^DD(727.814,"B","Diagnostic Code",14)="1"
^DD(727.814,"B","ENCOUNTER NUMBER",33)=""
^DD(727.814,"B","ERI",43)=""
^DD(727.814,"B","EXTRACT NUMBER",2)=""
^DD(727.814,"B","Extract Number",2)="1"
^DD(727.814,"B","FACILITY",3)=""
^DD(727.814,"B","Facility",3)="1"
^DD(727.814,"B","IMAGING LOCATION",11)=""
^DD(727.814,"B","IMAGING TYPE",20)=""
^DD(727.814,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.814,"B","INTERPRETING RADIOLOGIST",39)=""
^DD(727.814,"B","INTERPRETING RADIOLOGIST NPI",45)=""
^DD(727.814,"B","INTERPRETING RADIOLOGIST PC",40)=""
^DD(727.814,"B","Imaging Location",11)="1"
^DD(727.814,"B","Imaging Type",20)="1"
^DD(727.814,"B","In Out Patient Indicator",7)="1"
^DD(727.814,"B","LOCATION (WARD OR CLINIC)",12)=""
^DD(727.814,"B","Location (Ward or Clinic)",12)="1"
^DD(727.814,"B","MASTER PATIENT INDEX",23)=""
^DD(727.814,"B","MODIFIERS",16)=""
^DD(727.814,"B","MOVEMENT FILE #",17)=""
^DD(727.814,"B","Modifiers",16)="1"
^DD(727.814,"B","Movement File Number",17)="1"
^DD(727.814,"B","NAME",6)=""
^DD(727.814,"B","Name",6)="1"
^DD(727.814,"B","OBSERVATION PATIENT INDICATOR",32)=""
^DD(727.814,"B","ORDERING DATE",35)=""
^DD(727.814,"B","ORDERING PROVIDER PERSON CLASS",38)=""
^DD(727.814,"B","PATIENT NO. - DFN",4)=""
^DD(727.814,"B","PC PROVIDER PERSON CLASS",27)=""
^DD(727.814,"B","PLACEHOLDER",25)=""
^DD(727.814,"B","PLACEHOLDER",26)=""
^DD(727.814,"B","PLACEHOLDER",30)=""
^DD(727.814,"B","PRIMARY CARE PROVIDER",22)=""
^DD(727.814,"B","PRIMARY CARE PROVIDER NPI",46)=""
^DD(727.814,"B","PRIMARY CARE TEAM",21)=""
^DD(727.814,"B","PROCEDURE",10)=""
^DD(727.814,"B","PRODUCTION DIVISION CODE",36)=""
^DD(727.814,"B","Patient No. - DFN",4)="1"
^DD(727.814,"B","Primary Care Provider",22)="1"
^DD(727.814,"B","Primary Care Team",21)="1"
^DD(727.814,"B","Procedure",10)="1"
^DD(727.814,"B","RAD STOP CODE",34)=""
^DD(727.814,"B","REQUESTING PHYSICIAN",15)=""
^DD(727.814,"B","REQUESTING PHYSICIAN NPI",47)=""
^DD(727.814,"B","Requesting Physician",15)="1"
^DD(727.814,"B","SEQUENCE NUMBER",.01)=""
^DD(727.814,"B","SERVICE",13)=""
^DD(727.814,"B","SSN",5)=""
^DD(727.814,"B","Sequence Number",.01)="1"
^DD(727.814,"B","Service",13)="1"
^DD(727.814,"B","Social Security Number",5)="1"
^DD(727.814,"B","TIME",19)=""
^DD(727.814,"B","TREATING SPECIALTY",18)=""
^DD(727.814,"B","Time",19)="1"
^DD(727.814,"B","Treating Specialty",18)="1"
^DD(727.814,"B","YEAR MONTH",1)=""
^DD(727.814,"B","Year/Month",1)="1"
^DD(727.814,"GL",0,1,.01)=""
^DD(727.814,"GL",0,2,1)=""
^DD(727.814,"GL",0,3,2)=""
^DD(727.814,"GL",0,4,3)=""
^DD(727.814,"GL",0,5,4)=""
^DD(727.814,"GL",0,6,5)=""
^DD(727.814,"GL",0,7,6)=""
^DD(727.814,"GL",0,8,7)=""
^DD(727.814,"GL",0,9,8)=""
^DD(727.814,"GL",0,10,9)=""
^DD(727.814,"GL",0,11,10)=""
^DD(727.814,"GL",0,12,11)=""
^DD(727.814,"GL",0,13,12)=""
^DD(727.814,"GL",0,14,13)=""
^DD(727.814,"GL",0,15,14)=""
^DD(727.814,"GL",0,16,15)=""
^DD(727.814,"GL",0,17,16)=""
^DD(727.814,"GL",0,18,17)=""
^DD(727.814,"GL",0,19,18)=""
^DD(727.814,"GL",0,20,19)=""
^DD(727.814,"GL",0,21,20)=""
^DD(727.814,"GL",0,22,21)=""
^DD(727.814,"GL",0,23,22)=""
^DD(727.814,"GL",1,1,23)=""
^DD(727.814,"GL",1,2,24)=""
^DD(727.814,"GL",1,3,25)=""
^DD(727.814,"GL",1,4,26)=""
^DD(727.814,"GL",1,5,27)=""
^DD(727.814,"GL",1,6,28)=""
^DD(727.814,"GL",1,7,29)=""
^DD(727.814,"GL",1,8,30)=""
^DD(727.814,"GL",1,9,31)=""
^DD(727.814,"GL",1,10,32)=""
^DD(727.814,"GL",1,11,33)=""
^DD(727.814,"GL",1,12,34)=""
^DD(727.814,"GL",1,13,35)=""
^DD(727.814,"GL",1,14,36)=""
^DD(727.814,"GL",1,15,37)=""
^DD(727.814,"GL",1,16,38)=""
^DD(727.814,"GL",1,17,39)=""
^DD(727.814,"GL",1,18,40)=""
^DD(727.814,"GL",1,19,41)=""
^DD(727.814,"GL",1,20,42)=""
^DD(727.814,"GL",1,21,43)=""
^DD(727.814,"GL",1,22,44)=""
^DD(727.814,"GL",1,23,45)=""
^DD(727.814,"GL",1,24,46)=""
^DD(727.814,"GL",1,25,47)=""
^DD(727.814,"IX",2)=""
^DD(727.814,"RQ",.01)=""
^DD(727.815,0)="FIELD^^82^97"
^DD(727.815,0,"DDA")="N"
^DD(727.815,0,"DIK")="ECX815"
^DD(727.815,0,"DIKOLD")="ECX815"
^DD(727.815,0,"DT")="3021010"
^DD(727.815,0,"IX","AC",727.815,2)=""
^DD(727.815,0,"IX","AC",727.825,2)=""
^DD(727.815,0,"NM","EVENT CAPTURE LOCAL EXTRACT")=""
^DD(727.815,0,"VR")="3.0"
^DD(727.815,0,"VRPK")="ECX"
^DD(727.815,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.815,.01,.1)="Sequence Number"
^DD(727.815,.01,1,0)="^.1^^0"
^DD(727.815,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.815,.01,21,0)="^^1^1^2960401^^^^"
^DD(727.815,.01,21,1,0)="The record number for this extract entry."
^DD(727.815,.01,23,0)="^^2^2^2960401^^^^"
^DD(727.815,.01,23,1,0)="The internal entry number (IEN) for this record."
^DD(727.815,.01,23,2,0)="This entry is DINUMed."
^DD(727.815,.01,"DT")="2980812"
^DD(727.815,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.815,1,.1)="Year/Month"
^DD(727.815,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.815,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.815,1,3)="Answer must be 6 characters in length."
^DD(727.815,1,21,0)="^^2^2^2970922^^^^"
^DD(727.815,1,21,1,0)="A six character string representing the year and the month"
^DD(727.815,1,21,2,0)="for which this extract was performed."
^DD(727.815,1,23,0)="^^1^1^2970922^^^^"
^DD(727.815,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.815,1,"DT")="2970924"
^DD(727.815,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.815,2,.1)="Extract Number"
^DD(727.815,2,1,0)="^.1"
^DD(727.815,2,1,1,0)="727.815^AC"
^DD(727.815,2,1,1,1)="S ^ECX(727.815,""AC"",$E(X,1,30),DA)="""""
^DD(727.815,2,1,1,2)="K ^ECX(727.815,""AC"",$E(X,1,30),DA)"
^DD(727.815,2,1,1,3)="DO NOT DELETE"
^DD(727.815,2,1,1,"%D",0)="^^2^2^2960401^"
^DD(727.815,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.815,2,1,1,"%D",2,0)="in this file."
^DD(727.815,2,1,1,"DT")="2910802"
^DD(727.815,2,3)="Enter the extract number for this extract."
^DD(727.815,2,21,0)="^^1^1^2970603^^^^"
^DD(727.815,2,21,1,0)="The DSS extract log entry for this Event Capture extract."
^DD(727.815,2,23,0)="^^2^2^2970603^^^^"
^DD(727.815,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose"
^DD(727.815,2,23,2,0)="is to pick up the header for the mail message."
^DD(727.815,2,"DT")="2950317"
^DD(727.815,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,3,.1)="Facility"
^DD(727.815,3,3)="Enter the station number where this extract was performed."
^DD(727.815,3,21,0)="1^^1^1^2960401^^^"
^DD(727.815,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.815,3,23,0)="^^3^3^2960401^^^^"
^DD(727.815,3,23,1,0)="A free text field that represents the STATION NUMBER field (99)"
^DD(727.815,3,23,2,0)="from the INSTITUTION file (#4). It is derived from the LOCATION"
^DD(727.815,3,23,3,0)="field (3) in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,3,"DT")="2951204"
^DD(727.815,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.815,4,.1)="Patient No. - DFN"
^DD(727.815,4,3)="Enter the name of the patient for this extract record."
^DD(727.815,4,21,0)="1^^1^1^2990504^^^^"
^DD(727.815,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.815,4,23,0)="^^3^3^2990504^^^^"
^DD(727.815,4,23,1,0)="A pointer to the PATIENT file (#2). This patient pointer is"
^DD(727.815,4,23,2,0)="pulled from the PATIENT field (1) in the EVENT CAPTURE"
^DD(727.815,4,23,3,0)="PATIENT file (#721)."
^DD(727.815,4,"DT")="2971030"
^DD(727.815,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.815,5,.1)="Social Security Number"
^DD(727.815,5,3)="Enter the social security number for this patient's extract record."
^DD(727.815,5,21,0)="^^5^5^2990504^^^^"
^DD(727.815,5,21,1,0)="The social security number (SSN) for the patient associated"
^DD(727.815,5,21,2,0)="with this extract record."
^DD(727.815,5,21,3,0)=" "
^DD(727.815,5,21,4,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.815,5,21,5,0)="patient"" and will not be included in the extract.  "
^DD(727.815,5,23,0)="^^5^5^2990504^^^^"
^DD(727.815,5,23,1,0)="The social security number extracted from the SSN field (.09)"
^DD(727.815,5,23,2,0)="from the PATIENT file (#2)."
^DD(727.815,5,23,3,0)=" "
^DD(727.815,5,23,4,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.815,5,23,5,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.815,5,"DT")="2910802"
^DD(727.815,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.815,6,.1)="Name"
^DD(727.815,6,3)="Enter the first four characters of this patients last name."
^DD(727.815,6,21,0)="^^2^2^2960401^^^^"
^DD(727.815,6,21,1,0)="The first four characters of the patient's last name associated"
^DD(727.815,6,21,2,0)="with this extract record."
^DD(727.815,6,23,0)="^^4^4^2960401^^^"
^DD(727.815,6,23,1,0)="Free text first four characters of the patients last name."
^DD(727.815,6,23,2,0)="This is extracted from the patient's name stored in the"
^DD(727.815,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). If necessary,"
^DD(727.815,6,23,4,0)="trailing spaces are padded to equal 4 characters."
^DD(727.815,6,"DT")="2910802"
^DD(727.815,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,7,.1)="In Out Patient Indicator"
^DD(727.815,7,3)="Answer must be 1 character in length."
^DD(727.815,7,21,0)="^.001^2^2^3011207^^^^"
^DD(727.815,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.815,7,21,2,0)="extract entry."
^DD(727.815,7,23,0)="^.001^4^4^3011207^^^^"
^DD(727.815,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.815,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.815,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.815,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.815,7,"DT")="3011129"
^DD(727.815,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.815,8,.1)="Day"
^DD(727.815,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.815,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.815,8,3)="Answer must be 8 characters in length."
^DD(727.815,8,21,0)="^^3^3^2970922^^^^"
^DD(727.815,8,21,1,0)="This 8-character string represents the date on which the procedure"
^DD(727.815,8,21,2,0)="associated with this Event Capture Patient extract record"
^DD(727.815,8,21,3,0)="was performed."
^DD(727.815,8,23,0)="^^9^9^2970923^^^^"
^DD(727.815,8,23,1,0)="The day when this event occurred. Date is pulled from the"
^DD(727.815,8,23,2,0)="DATE/TIME OF PROCEDURE field (2) in the EVENT CAPTURE"
^DD(727.815,8,23,3,0)="PATIENT file (#721). "
^DD(727.815,8,23,4,0)=" "
^DD(727.815,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.815,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.815,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.815,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.815,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.815,8,"DT")="2970924"
^DD(727.815,9,0)="DSS UNIT^P724'^ECD(^0;10^Q"
^DD(727.815,9,.1)="DSS Unit"
^DD(727.815,9,3)="Enter the name of the DSS unit for this extract record."
^DD(727.815,9,21,0)="^^1^1^2990702^^^"
^DD(727.815,9,21,1,0)="This is the name of the DSS unit for this extract record."
^DD(727.815,9,23,0)="^^3^3^2990702^^^^"
^DD(727.815,9,23,1,0)="A pointer to the DSS UNIT file (#724). DSS unit pointer"
^DD(727.815,9,23,2,0)="is pulled from the DSS UNIT field (6) in the EVENT CAPTURE"
^DD(727.815,9,23,3,0)="PATIENT file (#721)."
^DD(727.815,9,"DT")="2910828"
^DD(727.815,10,0)="CATEGORY^F^^0;11^K:$L(X)>6!($L(X)<1) X"
^DD(727.815,10,.1)="Category"
^DD(727.815,10,3)="Answer must be 1-6 characters in length."
^DD(727.815,10,21,0)="1^^2^2^2970911^^^"
^DD(727.815,10,21,1,0)="This field contains the IEN in file #726 for the Category associated"
^DD(727.815,10,21,2,0)="with this extract record."
^DD(727.815,10,23,0)="^^4^4^2970911^^^^"
^DD(727.815,10,23,1,0)="A character string which represents the IEN of the Category"
^DD(727.815,10,23,2,0)="in the EVENT CAPTURE CATEGORY file (#726)."
^DD(727.815,10,23,3,0)="Category is pulled from the CATEGORY field (7) in the"
^DD(727.815,10,23,4,0)="EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,10,"DT")="2970911"
^DD(727.815,11,0)="PROCEDURE^F^^0;12^K:$L(X)>8!($L(X)<5) X"
^DD(727.815,11,.1)="Procedure"
^DD(727.815,11,3)="Answer must be 5-8 characters in length."
^DD(727.815,11,21,0)="1^.001^2^2^3020425^^^^"
^DD(727.815,11,21,1,0)="This field contains the name of the procedure selected"
^DD(727.815,11,21,2,0)="for this extract record."
^DD(727.815,11,23,0)="^.001^8^8^3020425^^"
^DD(727.815,11,23,1,0)="The procedure pointer is pulled from the PROCEDURE field (8) in the EVENT"
^DD(727.815,11,23,2,0)="CAPTURE PATIENT file (#721).  For CPT codes from the CPT file (#81), it is"
^DD(727.815,11,23,3,0)="the CPT code (.01)_volume.  Volume is pulled from the VOLUME field (9) in"
^DD(727.815,11,23,4,0)="the EVENT CAPTURE PATIENT file (#721) and is padded to the left with"
^DD(727.815,11,23,5,0)="zeros.  For national procedures from the EC NATIONAL PROCEDURE file"
^DD(727.815,11,23,6,0)="(#725), it is the NATIONAL NUMBER field (1)_""N"". For local procedures from"
^DD(727.815,11,23,7,0)="the EC NATIONAL PROCEDURE file (#725), it is the NATIONAL NUMBER field"
^DD(727.815,11,23,8,0)="(1)_""L""."
^DD(727.815,11,"DT")="2971030"
^DD(727.815,12,0)="VOLUME^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.815,12,.1)="Volume"
^DD(727.815,12,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(727.815,12,21,0)="^^1^1^2960401^^"
^DD(727.815,12,21,1,0)="This field tracks the volume of this specific procedure performed."
^DD(727.815,12,23,0)="^^3^3^2960401^^"
^DD(727.815,12,23,1,0)="Numeric volume for this procedure associated with this extract"
^DD(727.815,12,23,2,0)="record. Volume is pulled from the VOLUME field (9) in the"
^DD(727.815,12,23,3,0)="EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,12,"DT")="2911108"
^DD(727.815,13,0)="COST CENTER^F^^0;14^K:$L(X)>8!($L(X)<6) X"
^DD(727.815,13,.1)="Cost Center"
^DD(727.815,13,3)="Enter the cost center associated with this extract record."
^DD(727.815,13,21,0)="^^1^1^2990510^^^^"
^DD(727.815,13,21,1,0)="This is the cost center associated with this extract record."
^DD(727.815,13,23,0)="^^3^3^2990510^^^^"
^DD(727.815,13,23,1,0)="A pointer to the COST CENTER file (#420.1). Cost center"
^DD(727.815,13,23,2,0)="is derived from the COST CENTER field (3) in the DSS UNIT"
^DD(727.815,13,23,3,0)="file (#724)."
^DD(727.815,13,"DT")="2951204"
^DD(727.815,14,0)="ORDERING SECTION^F^^0;15^K:$L(X)>3!($L(X)<1) X"
^DD(727.815,14,.1)="Ordering Section"
^DD(727.815,14,3)="Answer must be 1-3 characters in length."
^DD(727.815,14,21,0)="^^2^2^2970912^^^^"
^DD(727.815,14,21,1,0)="This is the IEN in file #723 of the Ordering Section associated with"
^DD(727.815,14,21,2,0)="this extract record."
^DD(727.815,14,23,0)="^^4^4^2970912^^^^"
^DD(727.815,14,23,1,0)="This character string represents the IEN of the Ordering Section"
^DD(727.815,14,23,2,0)="in the MEDICAL SPECIALTY file (#723)."
^DD(727.815,14,23,3,0)="The Ordering Section is pulled from the ORDERING SECTION field (#11) "
^DD(727.815,14,23,4,0)="in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,14,"DT")="2990517"
^DD(727.815,15,0)="SECTION^F^^0;16^K:$L(X)>3!($L(X)<1) X"
^DD(727.815,15,.1)="Section"
^DD(727.815,15,3)="Answer must be 1-3 characters in length."
^DD(727.815,15,21,0)="^^2^2^2970912^^^^"
^DD(727.815,15,21,1,0)="This is the IEN in file #723 of the Medical Specialty of the DSS Unit "
^DD(727.815,15,21,2,0)="associated with this extract record."
^DD(727.815,15,23,0)="^^4^4^2970912^^^^"
^DD(727.815,15,23,1,0)="This character string represents an IEN in the MEDICAL"
^DD(727.815,15,23,2,0)="SPECIALTY file (#723)."
^DD(727.815,15,23,3,0)="The data is pulled from the SECTION field (#5) in the EVENT"
^DD(727.815,15,23,4,0)="CAPTURE PATIENT file (#721)."
^DD(727.815,15,"DT")="2990517"
^DD(727.815,16,0)="PROVIDER^F^^0;17^K:$L(X)>11!($L(X)<2) X"
^DD(727.815,16,.1)="Provider"
^DD(727.815,16,3)="Answer must be 2-11 characters in length."
^DD(727.815,16,21,0)="^^4^4^2980608^^^^"
^DD(727.815,16,21,1,0)="This character string is an IEN for the NEW PERSON file (#200);"
^DD(727.815,16,21,2,0)="a '2' has been appended to the beginning of the character string."
^DD(727.815,16,21,3,0)="It represents the Provider who performed the procedure associated"
^DD(727.815,16,21,4,0)="with the Event Capture Patient record."
^DD(727.815,16,23,0)="^^4^4^2980608^^^^"
^DD(727.815,16,23,1,0)="A character string of format ""2""_IEN, where IEN is the internal "
^DD(727.815,16,23,2,0)="entry number for the Provider in the NEW PERSON file (#200)."
^DD(727.815,16,23,3,0)="Data is derived from the PROVIDER field (#10) in the EVENT CAPTURE "
^DD(727.815,16,23,4,0)="PATIENT file (#721)."
^DD(727.815,16,"DT")="2990517"
^DD(727.815,17,0)="PROVIDER PERSON CLASS^F^^0;18^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,17,3)="Answer must be 1-7 characters in length."
^DD(727.815,17,21,0)="^^2^2^3001016^"
^DD(727.815,17,21,1,0)="Provider Person class is the VA code of the Person Class of the Provider"
^DD(727.815,17,21,2,0)="as of the date of this record.  "
^DD(727.815,17,23,0)="^^2^2^3001016^"
^DD(727.815,17,23,1,0)="Provider Person Class is derived from the New Person File #200, field"
^DD(727.815,17,23,2,0)="(#5):file #8932.1."
^DD(727.815,17,"DT")="3000801"
^DD(727.815,18,0)="PROVIDER #2^F^^0;19^K:$L(X)>11!($L(X)<2) X"
^DD(727.815,18,.1)="Provider #2"
^DD(727.815,18,3)="Answer must be 2-11 characters in length."
^DD(727.815,18,21,0)="^^4^4^2980608^^^^"
^DD(727.815,18,21,1,0)="This character string is an IEN for the NEW PERSON file (#200);"
^DD(727.815,18,21,2,0)="a '2' has been appended to the beginning of the character string."
^DD(727.815,18,21,3,0)="It represents the assisting Provider who performed the procedure "
^DD(727.815,18,21,4,0)="associated with the Event Capture Patient record."
^DD(727.815,18,23,0)="^^4^4^2980608^^^^"
^DD(727.815,18,23,1,0)="A character string of format ""2""_IEN, where IEN is the internal "
^DD(727.815,18,23,2,0)="entry number for the Provider in the NEW PERSON file (#200)."
^DD(727.815,18,23,3,0)="Data is pulled from the PROVIDER #2 field (#16) in the EVENT CAPTURE"
^DD(727.815,18,23,4,0)="PATIENT file (#721)."
^DD(727.815,18,"DT")="2990517"
^DD(727.815,19,0)="PROVIDER #2 PERSON CLASS^F^^0;20^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,19,3)="Answer must be 1-7 characters in length."
^DD(727.815,19,21,0)="^.001^3^3^3001103^^"
^DD(727.815,19,21,1,0)="Provider #2"
^DD(727.815,19,21,2,0)="Person class is the VA code of the Person Class of the Provider"
^DD(727.815,19,21,3,0)="as of the date of this record"
^DD(727.815,19,23,0)="^.001^2^2^3001103^^^^"
^DD(727.815,19,23,1,0)="Provider Person Class is derived from the New Person File #200, field"
^DD(727.815,19,23,2,0)="(#5):file #8932.1."
^DD(727.815,19,"DT")="3001103"
^DD(727.815,20,0)="PROVIDER #3^F^^0;21^K:$L(X)>11!($L(X)<2) X"
^DD(727.815,20,.1)="Provider #3"
^DD(727.815,20,3)="Answer must be 2-11 characters in length."
^DD(727.815,20,21,0)="1^^4^4^2980608^^^^"
^DD(727.815,20,21,1,0)="This character string is an IEN for the NEW PERSON file (#200);"
^DD(727.815,20,21,2,0)="a '2' has been appended to the beginning of the character string."
^DD(727.815,20,21,3,0)="It represents an assisting Provider who performed the procedure "
^DD(727.815,20,21,4,0)="associated with the Event Capture Patient record."
^DD(727.815,20,23,0)="^^4^4^2980608^^^^"
^DD(727.815,20,23,1,0)="A character string of format ""2""_IEN, where IEN is the internal "
^DD(727.815,20,23,2,0)="entry number for the Provider in the NEW PERSON file (#200)."
^DD(727.815,20,23,3,0)="Data is pulled from the PROVIDER #3 field (#17) in the EVENT CAPTURE"
^DD(727.815,20,23,4,0)="PATIENT file (#721)."
^DD(727.815,20,"DT")="2990517"
^DD(727.815,21,0)="PROVIDER #3 PERSON CLASS^F^^0;22^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,21,3)="Enter the name of the classification for the provider who assisted in performing this procedure."
^DD(727.815,21,21,0)="^^3^3^3001103^"
^DD(727.815,21,21,1,0)="Provider #3"
^DD(727.815,21,21,2,0)="Person class is the VA code of the Person Class of the Provider"
^DD(727.815,21,21,3,0)="as of the date of this record.  "
^DD(727.815,21,23,0)="^.001^2^2^3001103^^"
^DD(727.815,21,23,1,0)="Provider Person Class is derived from the New Person File #200, field"
^DD(727.815,21,23,2,0)="(#5):file #8932.1."
^DD(727.815,21,"DT")="3001103"
^DD(727.815,22,0)="PLACEHOLDER4^F^^0;23^Q"
^DD(727.815,22,3)="Enter the charge capture code for this extract record."
^DD(727.815,22,"DT")="2910828"
^DD(727.815,23,0)="MOVEMENT FILE #^P405'^DGPM(^0;24^Q"
^DD(727.815,23,.1)="Movement File Number"
^DD(727.815,23,3)="Enter the patient movement number associated with this extract record."
^DD(727.815,23,21,0)="^^1^1^2960401^^^^"
^DD(727.815,23,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.815,23,23,0)="^^1^1^2960401^^^^"
^DD(727.815,23,23,1,0)="A pointer to the PATIENT MOVEMENT file (#405)."
^DD(727.815,23,"DT")="2911216"
^DD(727.815,24,0)="TREATING SPECIALTY^F^^0;25^K:$L(X)>6!($L(X)<1) X"
^DD(727.815,24,.1)="Treating Specialty"
^DD(727.815,24,3)="Answer must be 1-6 characters in length."
^DD(727.815,24,21,0)="^^3^3^2970912^^^^"
^DD(727.815,24,21,1,0)="The IEN in file #42.4 of the Specialty associated with the patient"
^DD(727.815,24,21,2,0)="on the date of the Event Capture procedure.  Only applicable"
^DD(727.815,24,21,3,0)="if the patient was an inpatient on the date of the procedure."
^DD(727.815,24,23,0)="^^8^8^2970912^^^^"
^DD(727.815,24,23,1,0)="A character string which represents an IEN in the SPECIALTY file (#42.4)."
^DD(727.815,24,23,2,0)=" "
^DD(727.815,24,23,3,0)="This field is initialized to a null, indicating an outpatient status. If"
^DD(727.815,24,23,4,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a"
^DD(727.815,24,23,5,0)="patient movement number (indicating inpatient status), then the value of"
^DD(727.815,24,23,6,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.815,24,23,7,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.815,24,23,8,0)="SPECIALTY file (#42.4)."
^DD(727.815,24,"DT")="2970911"
^DD(727.815,25,0)="TIME^FO^^0;26^K:$L(X)>6!($L(X)<6) X"
^DD(727.815,25,.1)="Time"
^DD(727.815,25,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.815,25,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.815,25,3)="Answer must be 6 characters in length."
^DD(727.815,25,21,0)="^^1^1^2970922^^^^"
^DD(727.815,25,21,1,0)="The time when the Event Capture procedure was performed."
^DD(727.815,25,23,0)="^^9^9^2970922^^^^"
^DD(727.815,25,23,1,0)="A six-character string of format HHMMSS which represents the time"
^DD(727.815,25,23,2,0)="(military time) when the procedure was performed."
^DD(727.815,25,23,3,0)=" "
^DD(727.815,25,23,4,0)="Time is extracted from the date information pulled from the"
^DD(727.815,25,23,5,0)="DATE/TIME OF PROCEDURE field (#2) in the EVENT CAPTURE"
^DD(727.815,25,23,6,0)="PATIENT file (#721). "
^DD(727.815,25,23,7,0)=" "
^DD(727.815,25,23,8,0)="A default of ""000300"" will be used if field #2 of file #721 does"
^DD(727.815,25,23,9,0)="not have a time portion."
^DD(727.815,25,"DT")="2970924"
^DD(727.815,26,0)="PRIMARY CARE TEAM^F^^0;27^K:$L(X)>4!($L(X)<1) X"
^DD(727.815,26,.1)="Primary Care Team"
^DD(727.815,26,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.815,26,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.815,26,3)="Enter primary care team assigned to this patient."
^DD(727.815,26,21,0)="^^1^1^2961106^^^"
^DD(727.815,26,21,1,0)="The primary care team assigned to this patient."
^DD(727.815,26,23,0)="^^6^6^2961106^"
^DD(727.815,26,23,1,0)="Using the DATE/TIME OF PROCEDURE field (2) from the EVENT CAPTURE "
^DD(727.815,26,23,2,0)="PATIENT file (#721) and the patient pointer (DFN) stored in the PATIENT "
^DD(727.815,26,23,3,0)="NO. - DFN field (4) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), "
^DD(727.815,26,23,4,0)="a call is made to the Scheduling API, OUTPTTM^SDUTL3. The API returns "
^DD(727.815,26,23,5,0)="the team's internal entry number and name from the TEAM file (#404.51). "
^DD(727.815,26,23,6,0)="Only the pointer (IEN) to File 404.51 is transmitted."
^DD(727.815,26,"DT")="2961106"
^DD(727.815,27,0)="PRIMARY CARE PROVIDER^F^^0;28^K:$L(X)>11!($L(X)<1) X"
^DD(727.815,27,.1)="Primary Care Provider"
^DD(727.815,27,3)="Enter primary care provider assigned to this patient."
^DD(727.815,27,21,0)="^^1^1^2980708^^^^"
^DD(727.815,27,21,1,0)="The primary care provider assigned to this patient."
^DD(727.815,27,23,0)="^^9^9^2980708^^^"
^DD(727.815,27,23,1,0)="Using the DATE/TIME OF PROCEDURE field (2) from the EVENT CAPTURE "
^DD(727.815,27,23,2,0)="PATIENT file (#721) and the patient pointer (DFN) stored in the PATIENT "
^DD(727.815,27,23,3,0)="NO. - DFN field (4) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), "
^DD(727.815,27,23,4,0)="a call is made to the Scheduling API, OUTPTPR^SDUTL3. The API returns "
^DD(727.815,27,23,5,0)="the provider's internal entry number and name from the NEW PERSON file "
^DD(727.815,27,23,6,0)="(#200). "
^DD(727.815,27,23,7,0)=" "
^DD(727.815,27,23,8,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.815,27,23,9,0)="is ""200""."
^DD(727.815,27,"DT")="2961017"
^DD(727.815,28,0)="PCE CPT CODE & MODIFIERS^FO^^0;29^K:$L(X)>15!($L(X)<5) X"
^DD(727.815,28,.1)=""
^DD(727.815,28,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.815,28,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.815,28,3)="Answer must be 5-15 characters in length."
^DD(727.815,28,21,0)="^^5^5^2990507^^^^"
^DD(727.815,28,21,1,0)="The Current Procedural Terminology (CPT) code for the procedure "
^DD(727.815,28,21,2,0)="performed."
^DD(727.815,28,21,3,0)=" "
^DD(727.815,28,21,4,0)="The 5 character CPT Code is followed by upto five (5) 2-character CPT"
^DD(727.815,28,21,5,0)="code modifiers."
^DD(727.815,28,23,0)="^^6^6^2990507^^^^"
^DD(727.815,28,23,1,0)="PCE CPT CODE is derived from the PCE CPT CODE field (#19) in the EVENT "
^DD(727.815,28,23,2,0)="CAPTURE PATIENT file (#721)."
^DD(727.815,28,23,3,0)=" "
^DD(727.815,28,23,4,0)="The source of CPT modifiers is the MODIFIER field (#.01) of the CPT"
^DD(727.815,28,23,5,0)="MODIFIER file (#81.3).  It is not known at this time where the Event"
^DD(727.815,28,23,6,0)="Capture package will store those modifiers."
^DD(727.815,28,"DT")="2990614"
^DD(727.815,29,0)="ICD-9 CODE^F^^0;30^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,29,.1)="ICD-9 Code"
^DD(727.815,29,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.815,29,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.815,29,3)="Enter the ICD-9 code for this record."
^DD(727.815,29,21,0)="^.001^1^1^3001013^^^^"
^DD(727.815,29,21,1,0)="The ICD-9 for the procedure performed."
^DD(727.815,29,23,0)="^.001^3^3^3001013^^^^"
^DD(727.815,29,23,1,0)="ICD-9 CODE is derived from the ICD-9 CODE field (20) in the EVENT "
^DD(727.815,29,23,2,0)="CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "
^DD(727.815,29,23,3,0)="(#80)."
^DD(727.815,29,"DT")="2961106"
^DD(727.815,30,0)="SECONDARY ICD9 CODE #1^F^^0;31^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,30,.1)="ICD-9 Code"
^DD(727.815,30,3)="Enter the ICD-9 code for this record."
^DD(727.815,30,21,0)="1"
^DD(727.815,30,21,1,0)="The ICD-9 for the procedure performed."
^DD(727.815,30,23,0)="^.001^3^3^3001016^^^^"
^DD(727.815,30,23,1,0)="ICD-9 CODE is derived from the ICD-9 CODE field (20) in the EVENT "
^DD(727.815,30,23,2,0)="CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "
^DD(727.815,30,23,3,0)="(#80)."
^DD(727.815,30,"DT")="3001102"
^DD(727.815,31,0)="SECONDARY ICD9 CODE #2^F^^0;32^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,31,.1)="SECONDARY ICD9 CODE #2"
^DD(727.815,31,3)="Enter the ICD-9 code for this record."
^DD(727.815,31,21,0)="^.001^1^1^3001018^^^^"
^DD(727.815,31,21,1,0)="The ICD-9 for the procedure performed."
^DD(727.815,31,23,0)="^.001^3^3^3001018^^^^"
^DD(727.815,31,23,1,0)="ICD-9 CODE is derived from the ICD-9 CODE field (20) in the EVENT "
^DD(727.815,31,23,2,0)="CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "
^DD(727.815,31,23,3,0)="(#80)."
^DD(727.815,31,"DT")="3001018"
^DD(727.815,32,0)="SECONDARY ICD9 CODE #3^F^^0;33^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,32,.1)="SECONDARY ICD9 CODE #3"
^DD(727.815,32,3)="Enter the ICD-9 code for this record."
^DD(727.815,32,21,0)="^.001^1^1^3001018^^^^"
^DD(727.815,32,21,1,0)="The ICD-9 for the procedure performed."
^DD(727.815,32,23,0)="^.001^3^3^3001018^^^^"
^DD(727.815,32,23,1,0)="ICD-9 CODE is derived from the ICD-9 CODE field (20) in the EVENT "
^DD(727.815,32,23,2,0)="CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "
^DD(727.815,32,23,3,0)="(#80)."
^DD(727.815,32,"DT")="3001018"
^DD(727.815,33,0)="SECONDARY ICD9 CODE #4^F^^0;34^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,33,.1)="SECONMDARY ICD9 CODE #4"
^DD(727.815,33,3)="Enter the ICD-9 code for this record."
^DD(727.815,33,21,0)="^.001^1^1^3001018^^^^"
^DD(727.815,33,21,1,0)="The ICD-9 for the procedure performed."
^DD(727.815,33,23,0)="^.001^3^3^3001018^^^^"
^DD(727.815,33,23,1,0)="ICD-9 CODE is derived from the ICD-9 CODE field (20) in the EVENT "
^DD(727.815,33,23,2,0)="CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "
^DD(727.815,33,23,3,0)="(#80)."
^DD(727.815,33,"DT")="3001018"
^DD(727.815,34,0)="AGENT ORANGE^S^Y:YES;N:NO;U:UNKNOWN;^0;35^Q"
^DD(727.815,34,.1)="Agent Orange"
^DD(727.815,34,3)="Select the appropriate agent orange status for this patient."
^DD(727.815,34,21,0)="^.001^2^2^3001016^^^^"
^DD(727.815,34,21,1,0)="Data is Y if this patient was exposed to agent orange, N if not, "
^DD(727.815,34,21,2,0)="or U if unknown."
^DD(727.815,34,23,0)="^.001^2^2^3001016^^^^"
^DD(727.815,34,23,1,0)="AGENT ORANGE data is derived from the AGENT ORANGE field (21) in the "
^DD(727.815,34,23,2,0)="EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,34,"DT")="2961017"
^DD(727.815,35,0)="RADIATION EXPOSURE^S^Y:YES;N:NO;U:UNKNOWN;^0;36^Q"
^DD(727.815,35,.1)="Radiation Exposure"
^DD(727.815,35,3)="Select the appropriate radiation status for this patient."
^DD(727.815,35,21,0)="^.001^2^2^3001016^^^^"
^DD(727.815,35,21,1,0)="Data is Y if this patient claims exposure to ionizing radiation, "
^DD(727.815,35,21,2,0)="N if not, or U if unknown."
^DD(727.815,35,23,0)="^.001^2^2^3001016^^^^"
^DD(727.815,35,23,1,0)="RADIATION EXPOSURE data is derived from the RADIATION EXPOSURE field "
^DD(727.815,35,23,2,0)="(22) in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,35,"DT")="2961017"
^DD(727.815,36,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^0;37^Q"
^DD(727.815,36,.1)="Environmental Contaminants"
^DD(727.815,36,3)="Select the appropriate environmental contaminants status for this patient."
^DD(727.815,36,21,0)="^.001^2^2^3001018^^^^"
^DD(727.815,36,21,1,0)="Data is Y if this patient claims exposure to environmental contaminants, "
^DD(727.815,36,21,2,0)="N if not, U if unknown."
^DD(727.815,36,23,0)="^.001^2^2^3001018^^^^"
^DD(727.815,36,23,1,0)="ENVIRONMENTAL CONTAMINANTS data is derived from the ENVIRONMENTAL "
^DD(727.815,36,23,2,0)="CONTAMINANTS field (23) in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,36,"DT")="2961017"
^DD(727.815,37,0)="SERVICE CONNECTED^S^Y:YES;N:NO;^0;38^Q"
^DD(727.815,37,.1)="Service Connected"
^DD(727.815,37,3)="Select the appropriate service connected status for this patient."
^DD(727.815,37,21,0)="^^1^1^2961119^^^^"
^DD(727.815,37,21,1,0)="Data is Y if this patient is service connected, N if not."
^DD(727.815,37,23,0)="^^2^2^2961119^^^^"
^DD(727.815,37,23,1,0)="SERVICE CONNECTED data is derived from the SERVICE CONNECTED field (24) "
^DD(727.815,37,23,2,0)="in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.815,37,"DT")="2961017"
^DD(727.815,38,0)="SENT TO PCE^S^Y:YES;N:NO;^0;39^Q"
^DD(727.815,38,.1)="Sent to PCE"
^DD(727.815,38,3)="Enter Y if data has been sent to PCE, N if not."
^DD(727.815,38,21,0)="^^1^1^2961119^^"
^DD(727.815,38,21,1,0)="This field flags data that has been sent from Event Capture to PCE."
^DD(727.815,38,23,0)="^^1^1^2961119^^"
^DD(727.815,38,23,1,0)="Record is flagged Y when sent to PCE, N or null if not sent."
^DD(727.815,38,"DT")="2961022"
^DD(727.815,39,0)="PLACEHOLDER5^^^0;40^Q"
^DD(727.815,39,3)="Answer must be 1-10 characters in length."
^DD(727.815,39,"DT")="2990504"
^DD(727.815,40,0)="DSS IDENTIFIER^F^^0;41^K:$L(X)>6!($L(X)<6) X"
^DD(727.815,40,.1)="DSS Identifier"
^DD(727.815,40,3)="Answer must be 6 characters in length."
^DD(727.815,40,21,0)="^^4^4^2970912^^^^"
^DD(727.815,40,21,1,0)="The DSS Identifier represents the primary and secondary stop codes of"
^DD(727.815,40,21,2,0)="the Associated Clinic in the Event Capture Patient record, OR it is"
^DD(727.815,40,21,3,0)="the Associated Stop Code of the DSS Unit in the Event Capture Patient"
^DD(727.815,40,21,4,0)="record.  This data element is always exactly 6 characters in length."
^DD(727.815,40,23,0)="^^22^22^2971113^^^^"
^DD(727.815,40,23,1,0)="The DSS Identifier represents the primary and secondary stop codes of"
^DD(727.815,40,23,2,0)="the Associated Clinic in the Event Capture Patient record, OR it is"
^DD(727.815,40,23,3,0)="the Associated Stop Code of the DSS Unit in the Event Capture Patient"
^DD(727.815,40,23,4,0)="record.  This data element is always exactly 6 characters in length."
^DD(727.815,40,23,5,0)=" "
^DD(727.815,40,23,6,0)="If the secondary stop code is not known, then ""000"" will be "
^DD(727.815,40,23,7,0)="used as the 2nd 3-characters. If the primary stop code is not"
^DD(727.815,40,23,8,0)="known, then ""000000"" will be used.  If the DSS Unit does not have"
^DD(727.815,40,23,9,0)="an Associated Stop Code, then ""000000"" will be used."
^DD(727.815,40,23,10,0)=" "
^DD(727.815,40,23,11,0)="The source of the data is:"
^DD(727.815,40,23,12,0)=" "
^DD(727.815,40,23,13,0)="   (1) EVENT CAPTURE PATIENT file (#721); ASSOCIATED CLINIC field (#26)"
^DD(727.815,40,23,14,0)="   (2) HOSPITAL LOCATION file (#44); STOP CODE NUMBER field (#8)"
^DD(727.815,40,23,15,0)="       and CREDIT STOP CODE field (#2503)"
^DD(727.815,40,23,16,0)="   (3) CLINIC STOP file (#40.7); AMIS REPORTING STOP CODE field (#1)"
^DD(727.815,40,23,17,0)="  "
^DD(727.815,40,23,18,0)="OR"
^DD(727.815,40,23,19,0)="  "
^DD(727.815,40,23,20,0)="   (1) EVENT CAPTURE PATIENT file (#721); DSS UNIT field (#6)"
^DD(727.815,40,23,21,0)="   (2) DSS UNIT file (#724); ASSOCIATED STOP CODE field (#9)"
^DD(727.815,40,23,22,0)="   (3) CLINIC STOP file (#40.7); AMIS REPORTING STOP CODE field (#1)"
^DD(727.815,40,"DT")="2970911"
^DD(727.815,41,0)="PLACEHOLDER1^F^^0;42^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,41,.1)=""
^DD(727.815,41,3)="Answer must be 1 character in length."
^DD(727.815,41,21,0)="^^1^1^2980708^^^^"
^DD(727.815,41,21,1,0)="Placeholder; null."
^DD(727.815,41,"DT")="2980708"
^DD(727.815,42,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.815,42,3)="Answer must be 1-10 characters in length."
^DD(727.815,42,21,0)="^^1^1^2990505^^"
^DD(727.815,42,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.815,42,23,0)="^^2^2^2990505^^"
^DD(727.815,42,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.815,42,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.815,42,"DT")="2990504"
^DD(727.815,43,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.815,43,.1)=""
^DD(727.815,43,3)="Answer must be 1-10 characters in length"
^DD(727.815,43,21,0)="^^1^1^3040921^"
^DD(727.815,43,21,1,0)="The DSS Department Code for the patient care product."
^DD(727.815,43,23,0)="^.001^3^3^3040921^^^^"
^DD(727.815,43,23,1,0)="Obtained from the DSS UNIT field (#6), EVENT CAPTURE PATIENT file"
^DD(727.815,43,23,2,0)="(#721) which is a pointer to the UNIT NUMBER field (#4) of the DSS UNIT"
^DD(727.815,43,23,3,0)="file (#724)."
^DD(727.815,43,"DT")="3040302"
^DD(727.815,44,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,44,3)="Answer must be 1-8 characters in length."
^DD(727.815,44,21,0)="^^1^1^3070827^"
^DD(727.815,44,21,1,0)="Currently NULL."
^DD(727.815,44,23,0)="^^1^1^3070827^"
^DD(727.815,44,23,1,0)="Currently NULL."
^DD(727.815,44,"DT")="3070426"
^DD(727.815,45,0)="PLACEHOLDER^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,45,3)="Answer must be 1-8 characters in length."
^DD(727.815,45,21,0)="^^1^1^3070827^"
^DD(727.815,45,21,1,0)="Currently NULL."
^DD(727.815,45,23,0)="^^1^1^3070827^"
^DD(727.815,45,23,1,0)="Currently NULL."
^DD(727.815,45,"DT")="3070426"
^DD(727.815,46,0)="PLACEHOLDER^F^^1;5^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,46,3)="Answer must be 1-8 characters in length."
^DD(727.815,46,21,0)="^.001^1^1^3070827^^"
^DD(727.815,46,21,1,0)="Currently NULL."
^DD(727.815,46,23,0)="^.001^1^1^3070827^^"
^DD(727.815,46,23,1,0)="Currently NULL."
^DD(727.815,46,"DT")="3070426"
^DD(727.815,47,0)="PC PROVIDER PERSON CLASS^F^^1;6^K:$L(X)>7!($L(X)<7) X"
^DD(727.815,47,3)="Answer must be 7 characters in length."
^DD(727.815,47,21,0)="^^2^2^2981103^^^"
^DD(727.815,47,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.815,47,21,2,0)="associated with this record."
^DD(727.815,47,23,0)="^^6^6^2981103^^"
^DD(727.815,47,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.815,47,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.815,47,23,3,0)="extract record."
^DD(727.815,47,23,4,0)="  "
^DD(727.815,47,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.815,47,23,6,0)="7 characters in length."
^DD(727.815,47,"DT")="2981103"
^DD(727.815,48,0)="PLACEHOLDER^F^^1;7^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,48,3)="Answer must be 1-8 characters in length."
^DD(727.815,48,21,0)="^.001^1^1^3070827^^"
^DD(727.815,48,21,1,0)="Currently NULL."
^DD(727.815,48,23,0)="^.001^1^1^3070827^^"
^DD(727.815,48,23,1,0)="Currently NULL."
^DD(727.815,48,"DT")="3070426"
^DD(727.815,49,0)="ASSOCIATE PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X"
^DD(727.815,49,3)="Answer must be 2-11 characters in length."
^DD(727.815,49,21,0)="^^4^4^2990506^"
^DD(727.815,49,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.815,49,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.815,49,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.815,49,21,4,0)="character 2."
^DD(727.815,49,23,0)="^^2^2^2990506^"
^DD(727.815,49,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.815,49,23,2,0)="the PCMM application."
^DD(727.815,49,"DT")="2990506"
^DD(727.815,50,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;9^K:$L(X)>7!($L(X)<7) X"
^DD(727.815,50,3)="Answer must be 7 characters in length."
^DD(727.815,50,21,0)="^^4^4^2990506^"
^DD(727.815,50,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.815,50,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.815,50,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.815,50,21,4,0)="exactly 7 characters in length. "
^DD(727.815,50,23,0)="^^3^3^2990506^"
^DD(727.815,50,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.815,50,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.815,50,23,3,0)="PERS is the IEN from file #200."
^DD(727.815,50,"DT")="2990506"
^DD(727.815,51,0)="PLACEHOLDER^F^^1;10^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,51,3)="Answer must be 1-8 characters in length."
^DD(727.815,51,21,0)="^^1^1^3070827^"
^DD(727.815,51,21,1,0)="Currently NULL."
^DD(727.815,51,23,0)="^^1^1^3070827^"
^DD(727.815,51,23,1,0)="Currently NULL."
^DD(727.815,51,"DT")="3070426"
^DD(727.815,52,0)="DIVISION^F^^1;11^K:$L(X)>7!($L(X)<3) X"
^DD(727.815,52,3)="Answer must be 3-7 characters in length."
^DD(727.815,52,21,0)="^^1^1^2990806^"
^DD(727.815,52,21,1,0)="The Division field will not be used in the Event Capture extract."
^DD(727.815,52,23,0)="^^1^1^2990806^"
^DD(727.815,52,23,1,0)="The Division field will always be null."
^DD(727.815,52,"DT")="2990806"
^DD(727.815,53,0)="MST STATUS^F^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,53,3)="Answer must be 1 character in length."
^DD(727.815,53,21,0)="^^3^3^3001016^"
^DD(727.815,53,21,1,0)=" "
^DD(727.815,53,21,2,0)="An indicator if a veteran reports he/she is a victim of sexual trauma that"
^DD(727.815,53,21,3,0)="occurred while on active duty."
^DD(727.815,53,23,0)="^^2^2^3001016^"
^DD(727.815,53,23,1,0)="MST Status is derived from the MST History file (#29.11) MST status field"
^DD(727.815,53,23,2,0)="(#3). "
^DD(727.815,53,"DT")="3000802"
^DD(727.815,54,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,54,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.815,54,21,0)="^^5^5^3001018^"
^DD(727.815,54,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.815,54,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.815,54,21,3,0)="Domiciliary (DOM)"
^DD(727.815,54,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.815,54,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.815,54,"DT")="3001010"
^DD(727.815,55,0)="DATE OF BIRTH^F^^1;14^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,55,3)="Answer must be 1-8 characters in length."
^DD(727.815,55,21,0)="^^3^3^3001018^"
^DD(727.815,55,21,1,0)="When a patient was born. Possible values for Date of Birth are between"
^DD(727.815,55,21,2,0)="December 31, 1870 and today's date. This is represented by an 8-character"
^DD(727.815,55,21,3,0)="numeric string in the YYYYMMDD format. "
^DD(727.815,55,"DT")="3000802"
^DD(727.815,56,0)="ENROLLMENT CATEGORY^F^^1;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,56,3)="Answer must be 1 character in length."
^DD(727.815,56,21,0)="^^1^1^3001018^"
^DD(727.815,56,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.815,56,"DT")="3000802"
^DD(727.815,57,0)="ENROLLMENT STATUS^F^^1;16^K:$L(X)>2!($L(X)<1) X"
^DD(727.815,57,3)="Answer must be 1-2 characters in length."
^DD(727.815,57,21,0)="^^1^1^3001018^"
^DD(727.815,57,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.815,57,"DT")="3000802"
^DD(727.815,58,0)="PLACEHOLDER^F^^1;17^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,58,3)="Answer must be 1 character in length."
^DD(727.815,58,"DT")="3040226"
^DD(727.815,59,0)="PERIOD OF SERVICE^F^^1;18^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,59,3)="Answer must be 1 character in length."
^DD(727.815,59,21,0)="^^2^2^3001018^"
^DD(727.815,59,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.815,59,21,2,0)="eligibility code. "
^DD(727.815,59,23,0)="^^2^2^3001018^"
^DD(727.815,59,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.815,59,23,2,0)="the Patient file (#2). "
^DD(727.815,59,"DT")="3000802"
^DD(727.815,60,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;19^Q"
^DD(727.815,60,.1)="Purple Heart Indicator"
^DD(727.815,60,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.815,60,21,0)="^^1^1^3021009^^"
^DD(727.815,60,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.815,60,23,0)="^^2^2^3021009^"
^DD(727.815,60,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.815,60,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.815,60,"DT")="3021009"
^DD(727.815,61,0)="OBSERVATION PATIENT INDICATOR^F^^1;20^K:$L(X)>4!($L(X)<1) X"
^DD(727.815,61,3)="Answer must be 1-4 characters in length."
^DD(727.815,61,21,0)="^.001^2^2^3011212^^"
^DD(727.815,61,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.815,61,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.815,61,"DT")="3010814"
^DD(727.815,62,0)="ENCOUNTER NUMBER^F^^1;21^K:$L(X)>18!($L(X)<1) X"
^DD(727.815,62,3)="Answer must be 1-18 characters in length"
^DD(727.815,62,21,0)="^^3^3^3011212^"
^DD(727.815,62,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.815,62,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.815,62,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.815,62,"DT")="3010504"
^DD(727.815,63,0)="AGENT ORANGE LOCATION^F^^1;22^K:$L(X)>2!($L(X)<2) X"
^DD(727.815,63,3)="Answer must be 2 characters in length"
^DD(727.815,63,21,0)="^.001^1^1^3011212^^"
^DD(727.815,63,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.815,63,"DT")="3010504"
^DD(727.815,64,0)="ORDERING DIVISION^F^^1;23^K:$L(X)>7!($L(X)<1) X"
^DD(727.815,64,3)="Answer must be 1-7 characters in length"
^DD(727.815,64,21,0)="^.001^1^1^3011212^^"
^DD(727.815,64,21,1,0)="For future development; currently set to null."
^DD(727.815,64,"DT")="3010504"
^DD(727.815,65,0)="CONTRACT START DATE^F^^1;24^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,65,3)="Answer must be 1-8 characters in length"
^DD(727.815,65,21,0)="^^1^1^3011212^"
^DD(727.815,65,21,1,0)="For future development; currently set to null."
^DD(727.815,65,"DT")="3010504"
^DD(727.815,66,0)="CONTRACT END DATE^F^^1;25^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,66,3)="Answer must be 1-8 characters in length"
^DD(727.815,66,21,0)="^^1^1^3011212^"
^DD(727.815,66,21,1,0)="For future development; currently set to null."
^DD(727.815,66,"DT")="3010504"
^DD(727.815,67,0)="CONTRACT TYPE^F^^1;26^K:$L(X)>5!($L(X)<1) X"
^DD(727.815,67,3)="Answer must be 1-5 characters in length"
^DD(727.815,67,21,0)="^^1^1^3011212^"
^DD(727.815,67,21,1,0)="For future development; currently set to null."
^DD(727.815,67,"DT")="3010504"
^DD(727.815,68,0)="CNH/SH STATUS^F^^1;27^K:$L(X)>3!($L(X)<3) X"
^DD(727.815,68,3)="Answer must be 3 characters in length"
^DD(727.815,68,21,0)="^^2^2^3011212^"
^DD(727.815,68,21,1,0)="This field is used to indicate whether a patient is currently in "
^DD(727.815,68,21,2,0)="a contract nursing home/state home."
^DD(727.815,68,"DT")="3010504"
^DD(727.815,69,0)="PRODUCTION DIVISION CODE^F^^1;28^K:$L(X)>6!($L(X)<3) X"
^DD(727.815,69,3)="Answer must be 3-6 characters in length."
^DD(727.815,69,21,0)="^.001^2^2^3021008^^"
^DD(727.815,69,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.815,69,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.815,69,23,0)="^^2^2^3021008^"
^DD(727.815,69,23,1,0)="Data comes from the STATION NUMBER field (#99) of the INSTITUTION "
^DD(727.815,69,23,2,0)="file (#4)."
^DD(727.815,69,"DT")="3021008"
^DD(727.815,70,0)="ELIGIBILITY^F^^1;29^K:$L(X)>3!($L(X)<1) X"
^DD(727.815,70,.1)="Eligibility"
^DD(727.815,70,3)="Answer must be 1-3 characters in length"
^DD(727.815,70,21,0)="^^1^1^3021010^^^"
^DD(727.815,70,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.815,70,23,0)="^^10^10^3021010^"
^DD(727.815,70,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.815,70,23,2,0)="(#4), ELIGIBILITY data is derived from the PRIMARY ELIGIBILITY CODE field"
^DD(727.815,70,23,3,0)="(#.361) in the PATIENT file (#2). PRIMARY ELIGIBILITY CODE is a pointer to"
^DD(727.815,70,23,4,0)="the ELIGIBILITY CODE file (#8). The data is derived from the MAS"
^DD(727.815,70,23,5,0)="ELIGIBILITY CODE field (#8) in the ELIGIBILITY CODE file (#8) which in"
^DD(727.815,70,23,6,0)="turn is a pointer to the MAS ELIGIBILITY CODE file (#8.1)."
^DD(727.815,70,23,7,0)=" "
^DD(727.815,70,23,8,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.815,70,23,9,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.815,70,23,10,0)="two or three numeric characters."
^DD(727.815,70,"DT")="3021010"
^DD(727.815,71,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;30^Q"
^DD(727.815,71,.1)="Head and Neck Cancer Indicator"
^DD(727.815,71,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.815,71,21,0)="^^1^1^3020828^"
^DD(727.815,71,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.815,71,23,0)="^^3^3^3020828^"
^DD(727.815,71,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.815,71,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.815,71,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.815,71,"DT")="3020828"
^DD(727.815,72,0)="ETHNICITY^F^^1;31^K:$L(X)>6!($L(X)<1) X"
^DD(727.815,72,.1)="Ethnicity"
^DD(727.815,72,3)="Answer must be 1-6 characters in length"
^DD(727.815,72,21,0)="^^1^1^3020828^"
^DD(727.815,72,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.815,72,23,0)="^^8^8^3021210^"
^DD(727.815,72,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.815,72,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.815,72,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.815,72,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.815,72,23,5,0)=" "
^DD(727.815,72,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.815,72,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.815,72,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.815,72,"DT")="3021210"
^DD(727.815,73,0)="RACE 1^F^^1;32^K:$L(X)>6!($L(X)<1) X"
^DD(727.815,73,3)="Answer must be 1-6 characters in length"
^DD(727.815,73,21,0)="^^1^1^3020828^"
^DD(727.815,73,21,1,0)="The patient's PTF Race code(s)."
^DD(727.815,73,23,0)="^^10^10^3021210^"
^DD(727.815,73,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.815,73,23,2,0)="(#4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.815,73,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.815,73,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.815,73,23,5,0)=" "
^DD(727.815,73,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.815,73,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.815,73,23,8,0)="(SELF-IDENTIFICATION), will be included in the RACE 1 field.  If any of"
^DD(727.815,73,23,9,0)="the RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that"
^DD(727.815,73,23,10,0)="will be the only value included in the RACE1 field."
^DD(727.815,73,"DT")="3021210"
^DD(727.815,74,0)="ENROLLMENT LOCATION^F^^1;33^K:$L(X)>7!($L(X)<3) X"
^DD(727.815,74,.1)="Enrollment Location"
^DD(727.815,74,3)="Answer must be 3-7 characters in length"
^DD(727.815,74,21,0)="^.001^2^2^3030624^^"
^DD(727.815,74,21,1,0)="The facility that the patient chooses to designate as his preferred location "
^DD(727.815,74,21,2,0)="for care."
^DD(727.815,74,23,0)="^.001^5^5^3030624^^"
^DD(727.815,74,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2) is defined as "
^DD(727.815,74,23,2,0)="the facility that the patient chooses to designate as his preferred location "
^DD(727.815,74,23,3,0)="for care.  The PREFERRED FACILITY field (# 27.02) is a pointer to the "
^DD(727.815,74,23,4,0)="INSTITUTION file (#4).  From the INSTITUTION file #4, the value in the "
^DD(727.815,74,23,5,0)="STATION NUMBER field (#99) is used."
^DD(727.815,74,"DT")="3030624"
^DD(727.815,75,0)="DSS IP #^NJ7,0^^1;34^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.815,75,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(727.815,75,21,0)="^^2^2^3040317^"
^DD(727.815,75,21,1,0)="The nationally defined DSS Intermediate Product Number designated to "
^DD(727.815,75,21,2,0)="the Event Capture care product"
^DD(727.815,75,23,0)="^^10^10^3041027^"
^DD(727.815,75,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.815,75,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.815,75,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.815,75,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.815,75,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.815,75,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.815,75,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.815,75,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.815,75,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.815,75,23,10,0)="group identifying the problem."
^DD(727.815,75,"DT")="3040225"
^DD(727.815,76,0)="ENROLLMENT PRIORITY^F^^1;35^K:$L(X)>2!($L(X)<1) X"
^DD(727.815,76,3)="Answer must be 1-2 characters in length."
^DD(727.815,76,21,0)="^^2^2^3040317^"
^DD(727.815,76,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.815,76,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.815,76,23,0)="^^20^20^3041027^"
^DD(727.815,76,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.815,76,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.815,76,23,3,0)=" "
^DD(727.815,76,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.815,76,23,5,0)=" "
^DD(727.815,76,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.815,76,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.815,76,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.815,76,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.815,76,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.815,76,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.815,76,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.815,76,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.815,76,23,14,0)=" "
^DD(727.815,76,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.815,76,23,16,0)=" "
^DD(727.815,76,23,17,0)="                                'a' FOR 1 "
^DD(727.815,76,23,18,0)="                                'c' FOR 3 "
^DD(727.815,76,23,19,0)="                                'e' FOR 5 "
^DD(727.815,76,23,20,0)="                                'g' FOR 7   "
^DD(727.815,76,"DT")="3040226"
^DD(727.815,77,0)="USER ENROLLEE^F^^1;36^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,77,3)="Answer must be 1 character in length."
^DD(727.815,77,21,0)="^^4^4^3040317^"
^DD(727.815,77,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.815,77,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.815,77,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.815,77,21,4,0)="year's value is contained. "
^DD(727.815,77,"DT")="3040226"
^DD(727.815,78,0)="PATIENT TYPE^F^^1;37^K:$L(X)>2!($L(X)<1) X"
^DD(727.815,78,3)="Answer must be 1-2 characters in length."
^DD(727.815,78,21,0)="^^3^3^3040317^"
^DD(727.815,78,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.815,78,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.815,78,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.815,78,23,0)="^^17^17^3040317^"
^DD(727.815,78,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.815,78,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.815,78,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.815,78,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.815,78,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.815,78,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.815,78,23,7,0)=" "
^DD(727.815,78,23,8,0)="AC= ACTIVE DUTY"
^DD(727.815,78,23,9,0)="AL= ALLIED VETERAN"
^DD(727.815,78,23,10,0)="CO= COLLATERAL"
^DD(727.815,78,23,11,0)="EM= EMPLOYEE"
^DD(727.815,78,23,12,0)="IN= INELIGIBLE"
^DD(727.815,78,23,13,0)="MI= MILITARY RETIREE"
^DD(727.815,78,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.815,78,23,15,0)="NS= NSC VETERAN"
^DD(727.815,78,23,16,0)="SC= SC VETERAN"
^DD(727.815,78,23,17,0)="TR= TRICARE"
^DD(727.815,78,"DT")="3040226"
^DD(727.815,79,0)="CV STATUS ELIGIBILITY^F^^1;38^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,79,3)="Answer must be 1 character in length."
^DD(727.815,79,21,0)="^.001^3^3^3041104^^^^"
^DD(727.815,79,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.815,79,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.815,79,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.815,79,23,0)="^.001^11^11^3041104^^"
^DD(727.815,79,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.815,79,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.815,79,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.815,79,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.815,79,23,5,0)=" "
^DD(727.815,79,23,6,0)=" 1 - qualifies as a CV"
^DD(727.815,79,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.815,79,23,8,0)="-1 - bad DFN or date"
^DD(727.815,79,23,9,0)=" "
^DD(727.815,79,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.815,79,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.815,79,"DT")="3040226"
^DD(727.815,80,0)="CV ELIGIBILITY END DATE^F^^2;1^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,80,3)="Answer must be 1-8 characters in length."
^DD(727.815,80,21,0)="^^3^3^3040317^"
^DD(727.815,80,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.815,80,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.815,80,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.815,80,23,0)="^^4^4^3040317^"
^DD(727.815,80,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.815,80,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.815,80,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.815,80,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.815,80,"DT")="3040226"
^DD(727.815,81,0)="ENCOUNTER CV^F^^2;2^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,81,3)="Answer must be 1 character in length."
^DD(727.815,81,21,0)="^^3^3^3040317^"
^DD(727.815,81,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.815,81,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.815,81,21,3,0)="2 to determine CV Status."
^DD(727.815,81,23,0)="^^10^10^3040317^"
^DD(727.815,81,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.815,81,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.815,81,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.815,81,23,4,0)="The third piece returns:"
^DD(727.815,81,23,5,0)=" "
^DD(727.815,81,23,6,0)="1 - vet was eligible on date specified"
^DD(727.815,81,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.815,81,23,8,0)=" "
^DD(727.815,81,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.815,81,23,10,0)="'NULL' for 'NO'."
^DD(727.815,81,"DT")="3040226"
^DD(727.815,82,0)="NATIONAL PATIENT RECORD FLAG^F^^2;3^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,82,3)="Answer must be 1 character in length."
^DD(727.815,82,21,0)="^^7^7^3040317^"
^DD(727.815,82,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.815,82,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.815,82,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.815,82,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.815,82,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.815,82,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.815,82,21,7,0)="NULL."
^DD(727.815,82,23,0)="^^7^7^3040317^"
^DD(727.815,82,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.815,82,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.815,82,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.815,82,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.815,82,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.815,82,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.815,82,23,7,0)="NULL."
^DD(727.815,82,"DT")="3040226"
^DD(727.815,83,0)="ERI^F^^2;4^K:$L(X)>2!($L(X)<1) X"
^DD(727.815,83,3)="Answer must be 1-2 characters in length."
^DD(727.815,83,21,0)="^.001^2^2^3060731^^"
^DD(727.815,83,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.815,83,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.815,83,23,0)="^.001^4^4^3060731^^^"
^DD(727.815,83,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.815,83,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.815,83,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.815,83,23,4,0)="    Null"
^DD(727.815,83,"DT")="3060731"
^DD(727.815,84,0)="AGENT ORANGE ENC INDICATOR^F^^2;5^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,84,3)="Answer must be 1 character in length."
^DD(727.815,84,21,0)="^^5^5^3060719^"
^DD(727.815,84,21,1,0)="Indicates the appropriate response for agent orange as related to"
^DD(727.815,84,21,2,0)="this patient's episode of care:"
^DD(727.815,84,21,3,0)="  Y = Yes"
^DD(727.815,84,21,4,0)="  N = No"
^DD(727.815,84,21,5,0)="  Null"
^DD(727.815,84,23,0)="^^5^5^3060721^"
^DD(727.815,84,23,1,0)="Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721)"
^DD(727.815,84,23,2,0)="a call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI."
^DD(727.815,84,23,3,0)="The ENCEVENT^PXAPI returns the agent orange indicator stored at the AGENT"
^DD(727.815,84,23,4,0)="ORANGE EXPOSURE field (#80002) in the VISIT file (#9000010)."
^DD(727.815,84,23,5,0)="The value will be stored in the output array subscripted by ""AO""."
^DD(727.815,84,"DT")="3060621"
^DD(727.815,85,0)="ENCOUNTER EC^F^^2;6^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,85,3)="Answer must be 1 character in length."
^DD(727.815,85,21,0)="^.001^5^5^3060721^^"
^DD(727.815,85,21,1,0)="Indicates the appropriate response for environmental contaminant as"
^DD(727.815,85,21,2,0)="related to this patient's episode of care:"
^DD(727.815,85,21,3,0)="  Y = Yes"
^DD(727.815,85,21,4,0)="  N = No"
^DD(727.815,85,21,5,0)="  Null"
^DD(727.815,85,23,0)="^.001^5^5^3060721^^"
^DD(727.815,85,23,1,0)="Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721)"
^DD(727.815,85,23,2,0)="a call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI."
^DD(727.815,85,23,3,0)="The ENCEVENT^PXAPI returns the environmental contaminant indicator stored"
^DD(727.815,85,23,4,0)="at the PERSIAN GULF EXPOSURE field (#80004) in the VISIT file (#9000010)."
^DD(727.815,85,23,5,0)="The value will be stored in the output array subscripted by ""PGE""."
^DD(727.815,85,"DT")="3060623"
^DD(727.815,86,0)="ENC HEAD/NECK CA^F^^2;7^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,86,3)="Answer must be 1 character in length."
^DD(727.815,86,21,0)="^^5^5^3060719^"
^DD(727.815,86,21,1,0)="Indicates the appropriate response for head/neck cancer as related to"
^DD(727.815,86,21,2,0)="this patient's episode of care:"
^DD(727.815,86,21,3,0)="  Y = Yes"
^DD(727.815,86,21,4,0)="  N = No"
^DD(727.815,86,21,5,0)="  Null"
^DD(727.815,86,23,0)="^.001^5^5^3060719^^"
^DD(727.815,86,23,1,0)="Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721)"
^DD(727.815,86,23,2,0)="a call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI."
^DD(727.815,86,23,3,0)="The ENCEVENT^PXAPI returns the head/neck cancer data stored at the"
^DD(727.815,86,23,4,0)="HEAD AND/OR NECK CANCER field (#80006) in the VISIT file (#9000010). The"
^DD(727.815,86,23,5,0)="value will be stored in the output array subscripted by ""HNC""."
^DD(727.815,86,"DT")="3060623"
^DD(727.815,87,0)="ENCOUNTER MST^F^^2;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,87,3)="Answer must be 1 character in length."
^DD(727.815,87,21,0)="^^5^5^3060719^"
^DD(727.815,87,21,1,0)="Indicates the appropriate response for military sexual trauma as related"
^DD(727.815,87,21,2,0)="to this patient's episode of care:"
^DD(727.815,87,21,3,0)="  Y = Yes"
^DD(727.815,87,21,4,0)="  N = No"
^DD(727.815,87,21,5,0)="  Null"
^DD(727.815,87,23,0)="^^5^5^3060719^"
^DD(727.815,87,23,1,0)="Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721) a"
^DD(727.815,87,23,2,0)="call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI. The"
^DD(727.815,87,23,3,0)="ENCEVENT^PXAPI returns the military sexual trauma data stored at the"
^DD(727.815,87,23,4,0)="MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file (#9000010). The"
^DD(727.815,87,23,5,0)="value will be stored in the output array subscripted by ""MST""."
^DD(727.815,87,"DT")="3060623"
^DD(727.815,88,0)="RADIATION ENCOUNTER INDICATOR^F^^2;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.815,88,3)="Answer must be 1 character in length."
^DD(727.815,88,21,0)="^^5^5^3060719^"
^DD(727.815,88,21,1,0)="Indicates the appropriate response for radiation exposure as related to"
^DD(727.815,88,21,2,0)="this patient's episode of care:"
^DD(727.815,88,21,3,0)="  Y = Yes"
^DD(727.815,88,21,4,0)="  N = No"
^DD(727.815,88,21,5,0)="  Null"
^DD(727.815,88,23,0)="^^6^6^3060719^"
^DD(727.815,88,23,1,0)="Using the VISIT field (#28) in the EVENT CAPTURE PATIENT file (#721) a"
^DD(727.815,88,23,2,0)="call is made to API VISIT^ECXSCX1 which in turn calls ENCEVENT^PXAPI."
^DD(727.815,88,23,3,0)="The ENCEVENT^PXAPI returns the ionizing radiation exposure indicator"
^DD(727.815,88,23,4,0)="stored at the IONIZING RADIATION EXPOSURE field (#80003) in the VISIT file"
^DD(727.815,88,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.815,88,23,6,0)="""IR"". "
^DD(727.815,88,"DT")="3060623"
^DD(727.815,89,0)="NUTRITION DIAGNOSIS^F^^2;10^K:$L(X)>8!($L(X)<8) X"
^DD(727.815,89,3)="Answer must be 8 characters in length."
^DD(727.815,89,"DT")="3060619"
^DD(727.815,90,0)="OEF/OIF^F^^2;11^K:$L(X)>9!($L(X)<1) X"
^DD(727.815,90,3)="Answer must be 1-9 characters in length."
^DD(727.815,90,21,0)="^^3^3^3070502^"
^DD(727.815,90,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.815,90,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.815,90,21,3,0)="reflects the OEF or OIF where this patient was in combat. "
^DD(727.815,90,23,0)="^^12^12^3070502^"
^DD(727.815,90,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.815,90,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.815,90,23,3,0)="reflects the OEF or OIF where this patient was in combat.  The value of "
^DD(727.815,90,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.815,90,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.815,90,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.815,90,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.815,90,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.815,90,23,9,0)="field values are one or more combinations of the following: "
^DD(727.815,90,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.815,90,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.815,90,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.815,90,"DT")="3070502"
^DD(727.815,91,0)="OEF/OIF RETURN DATE^F^^2;12^K:$L(X)>8!($L(X)<1) X"
^DD(727.815,91,3)="Answer must be 1-8 characters in length."
^DD(727.815,91,21,0)="^^3^3^3070502^"
^DD(727.815,91,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.815,91,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.815,91,21,3,0)="has a format equal to YYYYMMDD."
^DD(727.815,91,23,0)="^^6^6^3070502^"
^DD(727.815,91,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.815,91,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.815,91,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.815,91,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.815,91,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.815,91,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.815,91,"DT")="3070502"
^DD(727.815,92,0)="ASSOCIATE PC PROVIDER NPI^F^^2;13^K:$L(X)>15!($L(X)<1) X"
^DD(727.815,92,3)="Answer must be 1-15 characters in length."
^DD(727.815,92,21,0)="^^2^2^3070502^"
^DD(727.815,92,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.815,92,21,2,0)="provider. This field has a length of fifteen characters."
^DD(727.815,92,23,0)="^^3^3^3070502^"
^DD(727.815,92,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.815,92,23,2,0)="provider. This field has a length of fifteen characters The qualified "
^DD(727.815,92,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.815,92,"DT")="3070502"
^DD(727.815,93,0)="PRIMARY CARE PROVIDER NPI^F^^2;14^K:$L(X)>15!($L(X)<1) X"
^DD(727.815,93,3)="Answer must be 1-15 characters in length."
^DD(727.815,93,21,0)="^^2^2^3070502^"
^DD(727.815,93,21,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.815,93,21,2,0)="field has a length of fifteen characters."
^DD(727.815,93,23,0)="^^3^3^3070502^"
^DD(727.815,93,23,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.815,93,23,2,0)="field has a length of fifteen characters.  The qualified identifier is "
^DD(727.815,93,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.815,93,"DT")="3070502"
^DD(727.815,94,0)="PROVIDER NPI^F^^2;15^K:$L(X)>15!($L(X)<1) X"
^DD(727.815,94,3)="Answer must be 1-15 characters in length."
^DD(727.815,94,21,0)="^^2^2^3070502^"
^DD(727.815,94,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.815,94,21,2,0)="health care services. This field has a length of fifteen characters."
^DD(727.815,94,23,0)="^^4^4^3070502^"
^DD(727.815,94,23,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.815,94,23,2,0)="health care services. This field has a length of fifteen characters. The "
^DD(727.815,94,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.815,94,23,4,0)="$$NPI^XUSNPI."
^DD(727.815,94,"DT")="3070502"
^DD(727.815,95,0)="PROVIDER #2 NPI^F^^2;16^K:$L(X)>15!($L(X)<1) X"
^DD(727.815,95,3)="Answer must be 1-15 characters in length."
^DD(727.815,95,21,0)="^^2^2^3070502^"
^DD(727.815,95,21,1,0)="A standard unique life-long identifier of the second assisting provider "
^DD(727.815,95,21,2,0)="of health care services. This field has a length of fifteen characters. "
^DD(727.815,95,23,0)="^^4^4^3070502^"
^DD(727.815,95,23,1,0)="A standard unique life-long identifier of the second assisting provider "
^DD(727.815,95,23,2,0)="of health care services. This field has a length of fifteen characters.  "
^DD(727.815,95,23,3,0)="The qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.815,95,23,4,0)="$$NPI^XUSNPI."
^DD(727.815,95,"DT")="3070502"
^DD(727.815,96,0)="PROVIDER #3 NPI^F^^2;17^K:$L(X)>15!($L(X)<1) X"
^DD(727.815,96,3)="Answer must be 1-15 characters in length."
^DD(727.815,96,21,0)="^^2^2^3070502^"
^DD(727.815,96,21,1,0)="A standard unique life-long identifier of the third assisting provider of "
^DD(727.815,96,21,2,0)="health care services. This field has a length of fifteen characters. "
^DD(727.815,96,23,0)="^^4^4^3070502^"
^DD(727.815,96,23,1,0)="A standard unique life-long identifier of the third assisting provider of "
^DD(727.815,96,23,2,0)="health care services. This field has a length of fifteen characters.  The "
^DD(727.815,96,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.815,96,23,4,0)="$$NPI^XUSNPI."
^DD(727.815,96,"DT")="3070502"
^DD(727.815,"B","AGENT ORANGE",34)=""
^DD(727.815,"B","AGENT ORANGE ENC INDICATOR",84)=""
^DD(727.815,"B","AGENT ORANGE LOCATION",63)=""
^DD(727.815,"B","ASSOC. PC PROV. PERSON CLASS",50)=""
^DD(727.815,"B","ASSOCIATE PC PROVIDER",49)=""
^DD(727.815,"B","ASSOCIATE PC PROVIDER NPI",92)=""
^DD(727.815,"B","Agent Orange",34)="1"
^DD(727.815,"B","CATEGORY",10)=""
^DD(727.815,"B","CNH/SH STATUS",68)=""
^DD(727.815,"B","CONTRACT END DATE",66)=""
^DD(727.815,"B","CONTRACT START DATE",65)=""
^DD(727.815,"B","CONTRACT TYPE",67)=""
^DD(727.815,"B","COST CENTER",13)=""
^DD(727.815,"B","CV ELIGIBILITY END DATE",80)=""
^DD(727.815,"B","CV STATUS ELIGIBILITY",79)=""
^DD(727.815,"B","Category",10)="1"
^DD(727.815,"B","Cost Center",13)="1"
^DD(727.815,"B","DATE OF BIRTH",55)=""
^DD(727.815,"B","DAY",8)=""
^DD(727.815,"B","DIVISION",52)=""
^DD(727.815,"B","DOM,PRRTP AND SAARTP INDICATOR",54)=""
^DD(727.815,"B","DSS IDENTIFIER",40)=""
^DD(727.815,"B","DSS IP #",75)=""
^DD(727.815,"B","DSS Identifier",40)="1"
^DD(727.815,"B","DSS PRODUCT DEPARTMENT",43)=""
^DD(727.815,"B","DSS UNIT",9)=""
^DD(727.815,"B","DSS Unit",9)="1"
^DD(727.815,"B","Day",8)="1"
^DD(727.815,"B","ELIGIBILITY",70)=""
^DD(727.815,"B","ENC HEAD/NECK CA",86)=""
^DD(727.815,"B","ENCOUNTER CV",81)=""
^DD(727.815,"B","ENCOUNTER EC",85)=""
^DD(727.815,"B","ENCOUNTER MST",87)=""
^DD(727.815,"B","ENCOUNTER NUMBER",62)=""
^DD(727.815,"B","ENROLLMENT CATEGORY",56)=""
^DD(727.815,"B","ENROLLMENT LOCATION",74)=""
^DD(727.815,"B","ENROLLMENT PRIORITY",76)=""
^DD(727.815,"B","ENROLLMENT STATUS",57)=""
^DD(727.815,"B","ENVIRONMENTAL CONTAMINANTS",36)=""
^DD(727.815,"B","ERI",83)=""
^DD(727.815,"B","ETHNICITY",72)=""
^DD(727.815,"B","EXTRACT NUMBER",2)=""
^DD(727.815,"B","Eligibility",70)="1"
^DD(727.815,"B","Enrollment Location",74)="1"
^DD(727.815,"B","Environmental Contaminants",36)="1"
^DD(727.815,"B","Ethnicity",72)="1"
^DD(727.815,"B","Extract Number",2)="1"
^DD(727.815,"B","FACILITY",3)=""
^DD(727.815,"B","Facility",3)="1"
^DD(727.815,"B","HEAD & NECK CANCER INDICATOR",71)=""
^DD(727.815,"B","Head and Neck Cancer Indicator",71)="1"
^DD(727.815,"B","ICD-9 CODE",29)=""
^DD(727.815,"B","ICD-9 Code",29)="1"
^DD(727.815,"B","ICD-9 Code",30)="1"
^DD(727.815,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.815,"B","In Out Patient Indicator",7)="1"
^DD(727.815,"B","MASTER PATIENT INDEX",42)=""
^DD(727.815,"B","MOVEMENT FILE #",23)=""
^DD(727.815,"B","MST STATUS",53)=""
^DD(727.815,"B","Movement File Number",23)="1"
^DD(727.815,"B","NAME",6)=""
^DD(727.815,"B","NATIONAL PATIENT RECORD FLAG",82)=""
^DD(727.815,"B","NUTRITION DIAGNOSIS",89)=""
^DD(727.815,"B","Name",6)="1"
^DD(727.815,"B","OBSERVATION PATIENT INDICATOR",61)=""
^DD(727.815,"B","OEF/OIF",90)=""
^DD(727.815,"B","OEF/OIF RETURN DATE",91)=""
^DD(727.815,"B","ORDERING DIVISION",64)=""
^DD(727.815,"B","ORDERING SECTION",14)=""
^DD(727.815,"B","Ordering Section",14)="1"
^DD(727.815,"B","PATIENT NO. - DFN",4)=""
^DD(727.815,"B","PATIENT TYPE",78)=""
^DD(727.815,"B","PC PROVIDER PERSON CLASS",47)=""
^DD(727.815,"B","PCE CPT CODE & MODIFIERS",28)=""
^DD(727.815,"B","PERIOD OF SERVICE",59)=""
^DD(727.815,"B","PLACEHOLDER",44)=""
^DD(727.815,"B","PLACEHOLDER",45)=""
^DD(727.815,"B","PLACEHOLDER",46)=""
^DD(727.815,"B","PLACEHOLDER",48)=""
^DD(727.815,"B","PLACEHOLDER",51)=""
^DD(727.815,"B","PLACEHOLDER",58)=""
^DD(727.815,"B","PLACEHOLDER1",41)=""
^DD(727.815,"B","PLACEHOLDER4",22)=""
^DD(727.815,"B","PLACEHOLDER5",39)=""
^DD(727.815,"B","PRIMARY CARE PROVIDER",27)=""
^DD(727.815,"B","PRIMARY CARE PROVIDER NPI",93)=""
^DD(727.815,"B","PRIMARY CARE TEAM",26)=""
^DD(727.815,"B","PROCEDURE",11)=""
^DD(727.815,"B","PRODUCTION DIVISION CODE",69)=""
^DD(727.815,"B","PROVIDER",16)=""
^DD(727.815,"B","PROVIDER #2",18)=""
^DD(727.815,"B","PROVIDER #2 NPI",95)=""
^DD(727.815,"B","PROVIDER #2 PERSON CLASS",19)=""
^DD(727.815,"B","PROVIDER #3",20)=""
^DD(727.815,"B","PROVIDER #3 NPI",96)=""
^DD(727.815,"B","PROVIDER #3 PERSON CLASS",21)=""
^DD(727.815,"B","PROVIDER NPI",94)=""
^DD(727.815,"B","PROVIDER PERSON CLASS",17)=""
^DD(727.815,"B","PURPLE HEART INDICATOR",60)=""
^DD(727.815,"B","Patient No. - DFN",4)="1"
^DD(727.815,"B","Primary Care Provider",27)="1"
^DD(727.815,"B","Primary Care Team",26)="1"
^DD(727.815,"B","Procedure",11)="1"
^DD(727.815,"B","Provider",16)="1"
^DD(727.815,"B","Provider #2",18)="1"
^DD(727.815,"B","Provider #3",20)="1"
^DD(727.815,"B","Purple Heart Indicator",60)="1"
^DD(727.815,"B","RACE 1",73)=""
^DD(727.815,"B","RADIATION ENCOUNTER INDICATOR",88)=""
^DD(727.815,"B","RADIATION EXPOSURE",35)=""
^DD(727.815,"B","Radiation Exposure",35)="1"
^DD(727.815,"B","SECONDARY ICD9 CODE #1",30)=""
^DD(727.815,"B","SECONDARY ICD9 CODE #2",31)="1"
^DD(727.815,"B","SECONDARY ICD9 CODE #3",32)="1"
^DD(727.815,"B","SECONDARY ICD9 CODE #4",33)=""
^DD(727.815,"B","SECONMDARY ICD9 CODE #4",33)="1"
^DD(727.815,"B","SECTION",15)=""
^DD(727.815,"B","SENT TO PCE",38)=""
^DD(727.815,"B","SEQUENCE NUMBER",.01)=""
^DD(727.815,"B","SERVICE CONNECTED",37)=""
^DD(727.815,"B","SSN",5)=""
^DD(727.815,"B","Section",15)="1"
^DD(727.815,"B","Sent to PCE",38)="1"
^DD(727.815,"B","Sequence Number",.01)="1"
^DD(727.815,"B","Service Connected",37)="1"
^DD(727.815,"B","Social Security Number",5)="1"
^DD(727.815,"B","TIME",25)=""
^DD(727.815,"B","TREATING SPECIALTY",24)=""
^DD(727.815,"B","Time",25)="1"
^DD(727.815,"B","Treating Specialty",24)="1"
^DD(727.815,"B","USER ENROLLEE",77)=""
^DD(727.815,"B","VOLUME",12)=""
^DD(727.815,"B","Volume",12)="1"
^DD(727.815,"B","YEAR MONTH",1)=""
^DD(727.815,"B","Year/Month",1)="1"
^DD(727.815,"GL",0,1,.01)=""
^DD(727.815,"GL",0,2,1)=""
^DD(727.815,"GL",0,3,2)=""
^DD(727.815,"GL",0,4,3)=""
^DD(727.815,"GL",0,5,4)=""
^DD(727.815,"GL",0,6,5)=""
^DD(727.815,"GL",0,7,6)=""
^DD(727.815,"GL",0,8,7)=""
^DD(727.815,"GL",0,9,8)=""
^DD(727.815,"GL",0,10,9)=""
^DD(727.815,"GL",0,11,10)=""
^DD(727.815,"GL",0,12,11)=""
^DD(727.815,"GL",0,13,12)=""
^DD(727.815,"GL",0,14,13)=""
^DD(727.815,"GL",0,15,14)=""
^DD(727.815,"GL",0,16,15)=""
^DD(727.815,"GL",0,17,16)=""
^DD(727.815,"GL",0,18,17)=""
^DD(727.815,"GL",0,19,18)=""
^DD(727.815,"GL",0,20,19)=""
^DD(727.815,"GL",0,21,20)=""
^DD(727.815,"GL",0,22,21)=""
^DD(727.815,"GL",0,23,22)=""
^DD(727.815,"GL",0,24,23)=""
^DD(727.815,"GL",0,25,24)=""
^DD(727.815,"GL",0,26,25)=""
^DD(727.815,"GL",0,27,26)=""
^DD(727.815,"GL",0,28,27)=""
^DD(727.815,"GL",0,29,28)=""
^DD(727.815,"GL",0,30,29)=""
^DD(727.815,"GL",0,31,30)=""
^DD(727.815,"GL",0,32,31)=""
^DD(727.815,"GL",0,33,32)=""
^DD(727.815,"GL",0,34,33)=""
^DD(727.815,"GL",0,35,34)=""
^DD(727.815,"GL",0,36,35)=""
^DD(727.815,"GL",0,37,36)=""
^DD(727.815,"GL",0,38,37)=""
^DD(727.815,"GL",0,39,38)=""
^DD(727.815,"GL",0,40,39)=""
^DD(727.815,"GL",0,41,40)=""
^DD(727.815,"GL",0,42,41)=""
^DD(727.815,"GL",1,1,42)=""
^DD(727.815,"GL",1,2,43)=""
^DD(727.815,"GL",1,3,44)=""
^DD(727.815,"GL",1,4,45)=""
^DD(727.815,"GL",1,5,46)=""
^DD(727.815,"GL",1,6,47)=""
^DD(727.815,"GL",1,7,48)=""
^DD(727.815,"GL",1,8,49)=""
^DD(727.815,"GL",1,9,50)=""
^DD(727.815,"GL",1,10,51)=""
^DD(727.815,"GL",1,11,52)=""
^DD(727.815,"GL",1,12,53)=""
^DD(727.815,"GL",1,13,54)=""
^DD(727.815,"GL",1,14,55)=""
^DD(727.815,"GL",1,15,56)=""
^DD(727.815,"GL",1,16,57)=""
^DD(727.815,"GL",1,17,58)=""
^DD(727.815,"GL",1,18,59)=""
^DD(727.815,"GL",1,19,60)=""
^DD(727.815,"GL",1,20,61)=""
^DD(727.815,"GL",1,21,62)=""
^DD(727.815,"GL",1,22,63)=""
^DD(727.815,"GL",1,23,64)=""
^DD(727.815,"GL",1,24,65)=""
^DD(727.815,"GL",1,25,66)=""
^DD(727.815,"GL",1,26,67)=""
^DD(727.815,"GL",1,27,68)=""
^DD(727.815,"GL",1,28,69)=""
^DD(727.815,"GL",1,29,70)=""
^DD(727.815,"GL",1,30,71)=""
^DD(727.815,"GL",1,31,72)=""
^DD(727.815,"GL",1,32,73)=""
^DD(727.815,"GL",1,33,74)=""
^DD(727.815,"GL",1,34,75)=""
^DD(727.815,"GL",1,35,76)=""
^DD(727.815,"GL",1,36,77)=""
^DD(727.815,"GL",1,37,78)=""
^DD(727.815,"GL",1,38,79)=""
^DD(727.815,"GL",2,1,80)=""
^DD(727.815,"GL",2,2,81)=""
^DD(727.815,"GL",2,3,82)=""
^DD(727.815,"GL",2,4,83)=""
^DD(727.815,"GL",2,5,84)=""
^DD(727.815,"GL",2,6,85)=""
^DD(727.815,"GL",2,7,86)=""
^DD(727.815,"GL",2,8,87)=""
^DD(727.815,"GL",2,9,88)=""
^DD(727.815,"GL",2,10,89)=""
^DD(727.815,"GL",2,11,90)=""
^DD(727.815,"GL",2,12,91)=""
^DD(727.815,"GL",2,13,92)=""
^DD(727.815,"GL",2,14,93)=""
^DD(727.815,"GL",2,15,94)=""
^DD(727.815,"GL",2,16,95)=""
^DD(727.815,"GL",2,17,96)=""
^DD(727.815,"IX",2)=""
^DD(727.815,"RQ",.01)=""
^DD(727.816,0)="FIELD^^20^21"
^DD(727.816,0,"DDA")="N"
^DD(727.816,0,"DT")="2990510"
^DD(727.816,0,"IX","AC",727.816,2)=""
^DD(727.816,0,"NM","CLINIC I EXTRACT")=""
^DD(727.816,0,"VR")="3.0"
^DD(727.816,0,"VRPK")="ECX"
^DD(727.816,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.816,.01,1,0)="^.1^^0"
^DD(727.816,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.816,.01,21,0)="^^1^1^2990505^"
^DD(727.816,.01,21,1,0)="The record number for this extract entry."
^DD(727.816,.01,23,0)="^^2^2^2990505^"
^DD(727.816,.01,23,1,0)="The internal entry number (IEN) for this record. "
^DD(727.816,.01,23,2,0)="This entry is DINUMed."
^DD(727.816,.01,"DT")="2990726"
^DD(727.816,1,0)="YEAR MONTH^RF^^0;2^K:$L(X)>6!($L(X)<6) X"
^DD(727.816,1,3)="Answer must be 6 characters in length."
^DD(727.816,1,21,0)="^^2^2^2990505^"
^DD(727.816,1,21,1,0)="A six character string representing the year and the month"
^DD(727.816,1,21,2,0)="for which this extract was performed."
^DD(727.816,1,23,0)="^^1^1^2990505^"
^DD(727.816,1,23,1,0)="Format is YYYYMM; Year 2000 compliant."
^DD(727.816,1,"DT")="2990505"
^DD(727.816,2,0)="EXTRACT NUMBER^RP727'^ECX(727,^0;3^Q"
^DD(727.816,2,1,0)="^.1"
^DD(727.816,2,1,1,0)="727.816^AC^MUMPS"
^DD(727.816,2,1,1,1)="S ^ECX(727.816,""AC"",$E(X,1,30),DA)="""""
^DD(727.816,2,1,1,2)="K ^ECX(727.816,""AC"",$E(X,1,30),DA)"
^DD(727.816,2,1,1,3)="DO NOT DELETE"
^DD(727.816,2,1,1,"%D",0)="^^2^2^2990726^^"
^DD(727.816,2,1,1,"%D",1,0)="The ""AC"" cross-reference is essential for managing and purging data"
^DD(727.816,2,1,1,"%D",2,0)="in this file."
^DD(727.816,2,1,1,"DT")="2990511"
^DD(727.816,2,21,0)="^^2^2^2990505^"
^DD(727.816,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.816,2,21,2,0)="extract."
^DD(727.816,2,23,0)="^^2^2^2990505^"
^DD(727.816,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.816,2,23,2,0)="pick up the header for the MailMan transmission message."
^DD(727.816,2,"DT")="2990511"
^DD(727.816,3,0)="FACILITY^RF^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.816,3,3)="Answer must be 1-7 characters in length."
^DD(727.816,3,21,0)="^^1^1^2990505^"
^DD(727.816,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.816,3,23,0)="^^13^13^2990505^^^"
^DD(727.816,3,23,1,0)="An indicator of the division responsible for the patient encounter. "
^DD(727.816,3,23,2,0)="It is a pointer to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.816,3,23,3,0)=" "
^DD(727.816,3,23,4,0)="For scheduled appointments and appended EKG visits, it is taken"
^DD(727.816,3,23,5,0)="from the DIVISION field (3.5) of the HOSPITAL LOCATION file (#44)."
^DD(727.816,3,23,6,0)=" "
^DD(727.816,3,23,7,0)="For dispositions, stand-alones, and appended lab and x-ray visits, "
^DD(727.816,3,23,8,0)="it is derived from the LOCATION field (#.04)in the OUTPATIENT ENCOUNTER"
^DD(727.816,3,23,9,0)="file (#409.68).  The LOCATION field points to the HOSPITAL LOCATION"
^DD(727.816,3,23,10,0)="file (#44).  The DIVISION field (#3.5) of the pointed-to file #44"
^DD(727.816,3,23,11,0)="record is used."
^DD(727.816,3,23,12,0)=" "
^DD(727.816,3,23,13,0)="The data is stored as free text."
^DD(727.816,3,"DT")="2990505"
^DD(727.816,4,0)="PATIENT NO. - DFN^RP2'^DPT(^0;5^Q"
^DD(727.816,4,21,0)="^^2^2^2990505^"
^DD(727.816,4,21,1,0)="Internal entry number of the PATIENT file (#2) record identifying the"
^DD(727.816,4,21,2,0)="patient associated with the clinic visit information."
^DD(727.816,4,23,0)="^^9^9^2990505^"
^DD(727.816,4,23,1,0)="This field points to a record in the PATIENT file (#2)."
^DD(727.816,4,23,2,0)="  "
^DD(727.816,4,23,3,0)="For scheduled appointments and appended EKG visits, it is taken"
^DD(727.816,4,23,4,0)="from the PATIENT field (#.01) within the APPOINTMENT field (#1900) "
^DD(727.816,4,23,5,0)="multiple of the HOSPITAL LOCATION file (#44)."
^DD(727.816,4,23,6,0)="  "
^DD(727.816,4,23,7,0)="For dispositions, stand-alones, and appended lab and x-ray visits, "
^DD(727.816,4,23,8,0)="it is taken from the PATIENT field (#.02) in the OUTPATIENT "
^DD(727.816,4,23,9,0)="ENCOUNTER file (#409.68)."
^DD(727.816,4,"DT")="2990505"
^DD(727.816,5,0)="SSN^RF^^0;6^K:$L(X)>10!($L(X)<9) X"
^DD(727.816,5,3)="Answer must be 9-10 characters in length."
^DD(727.816,5,21,0)="^^4^4^2990505^"
^DD(727.816,5,21,1,0)="The patient's social security number."
^DD(727.816,5,21,2,0)=" "
^DD(727.816,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.816,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.816,5,23,0)="^^6^6^2990505^"
^DD(727.816,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.816,5,23,2,0)="(#4) of this extract file (#727.816), SSN data is derived from "
^DD(727.816,5,23,3,0)="the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2)."
^DD(727.816,5,23,4,0)=" "
^DD(727.816,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.816,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.816,5,"DT")="2990505"
^DD(727.816,6,0)="NAME^RF^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.816,6,3)="Answer must be 4 characters in length."
^DD(727.816,6,21,0)="^^1^1^2990505^"
^DD(727.816,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.816,6,23,0)="^^4^4^2990505^"
^DD(727.816,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.816,6,23,2,0)="(#4) of this extract file (#727.816), NAME data is derived from the"
^DD(727.816,6,23,3,0)="NAME field (#.01) in the PATIENT file (#2). The first four characters of"
^DD(727.816,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.816,6,"DT")="2990505"
^DD(727.816,7,0)="IN OUT PATIENT INDICATOR^RF^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.816,7,3)="Answer must be 1 character in length."
^DD(727.816,7,21,0)="^^2^2^2990505^"
^DD(727.816,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient on the"
^DD(727.816,7,21,2,0)="date in the DAY field (#8) for this extract record."
^DD(727.816,7,23,0)="^^8^8^2990505^"
^DD(727.816,7,23,1,0)="This status indicator corresponds to an internal entry number in the "
^DD(727.816,7,23,2,0)="LOCATION TYPE file (#40.9), where IEN=1 is the Clinic location, "
^DD(727.816,7,23,3,0)="and IEN=3 is the Ward location."
^DD(727.816,7,23,4,0)="  "
^DD(727.816,7,23,5,0)="This field is initialized to a 1, indicating an outpatient status. "
^DD(727.816,7,23,6,0)="If a call to IN5^VADPT (using the patient DFN and the event date) "
^DD(727.816,7,23,7,0)="returns a patient movement number, then the field is reset to a 3 "
^DD(727.816,7,23,8,0)="indicating inpatient status."
^DD(727.816,7,"DT")="2990505"
^DD(727.816,8,0)="DAY^RF^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.816,8,3)="Answer must be 8 characters in length."
^DD(727.816,8,21,0)="^^2^2^2990505^^"
^DD(727.816,8,21,1,0)="Date in format YYYYMMDD; date with which the clinic visit extract"
^DD(727.816,8,21,2,0)="data is associated."
^DD(727.816,8,23,0)="^^11^11^2990505^^"
^DD(727.816,8,23,1,0)="For scheduled appointments and appended EKG visits -- "
^DD(727.816,8,23,2,0)="HOSPITAL LOCATION file (#44); APPOINTMENT sub-file (#44.001);"
^DD(727.816,8,23,3,0)="   APPOINTMENT DATE/TIME field (#.01)"
^DD(727.816,8,23,4,0)=" "
^DD(727.816,8,23,5,0)="For dispositions, stand-alones, and appended lab and x-ray visits --"
^DD(727.816,8,23,6,0)="OUTPATIENT ENCOUNTER file (#409.68); DATE field (#.01)"
^DD(727.816,8,23,7,0)=" "
^DD(727.816,8,23,8,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.816,8,23,9,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.816,8,23,10,0)="then a default is used.  The default date value is the value of the "
^DD(727.816,8,23,11,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.816,8,"DT")="2990505"
^DD(727.816,9,0)="FEEDER KEY^RF^^0;10^K:$L(X)>14!($L(X)<14) X"
^DD(727.816,9,3)="Answer must be 14 characters in length."
^DD(727.816,9,21,0)="^^7^7^2990505^"
^DD(727.816,9,21,1,0)="Feeder key is a fixed length field. The ACTION TO SEND field (#5) of the "
^DD(727.816,9,21,2,0)="CLINIC AND STOP CODES file (#728.44) for this clinic determines the "
^DD(727.816,9,21,3,0)="construction of this key. It is derived from DSS selected stop codes and "
^DD(727.816,9,21,4,0)="credit stop codes (or MAS selected stop codes and credit stop codes in "
^DD(727.816,9,21,5,0)="the absence of DSS selected ones), length of appointment, clinic "
^DD(727.816,9,21,6,0)="internal entry number in the CLINICS AND STOP CODES file (#728.44),"
^DD(727.816,9,21,7,0)="and whether or not this was a no show appointment."
^DD(727.816,9,23,0)="^^36^36^2990505^"
^DD(727.816,9,23,1,0)="The feeder key is a 14 character code of the form SSSCCCTTTPPPPN;"
^DD(727.816,9,23,2,0)="where"
^DD(727.816,9,23,3,0)="   SSS = primary stop code"
^DD(727.816,9,23,4,0)="   CCC = secondary stop code"
^DD(727.816,9,23,5,0)="   TTT = appointment length in minutes"
^DD(727.816,9,23,6,0)="   PPPP = National Clinic code"
^DD(727.816,9,23,7,0)="   N = no-show indicator"
^DD(727.816,9,23,8,0)="  "
^DD(727.816,9,23,9,0)="One of three transmission styles may be assigned to the clinic in the "
^DD(727.816,9,23,10,0)="CLINICS AND STOP CODES file (#728.44)."
^DD(727.816,9,23,11,0)="  "
^DD(727.816,9,23,12,0)="For all styles, SSS and CCC are taken from the CLINICS AND STOP "
^DD(727.816,9,23,13,0)="CODES file (#728.44).  The DSS STOP CODE field (#3) and DSS CEDIT "
^DD(727.816,9,23,14,0)="STOP CODE field (#4) are used for SSS and CCC respectively.  If field #3"
^DD(727.816,9,23,15,0)="is null, then the STOP CODE field (#1) and CREDIT STOP CODE field "
^DD(727.816,9,23,16,0)="(#2) are used.  If field #1 is null, then data is taken from the STOP CODE "
^DD(727.816,9,23,17,0)="NUMBER field (#8) and the CREDIT STOP CODE field (#2503) of "
^DD(727.816,9,23,18,0)="the HOSPITAL LOCATION file (#44).  If field #8 is null, then both"
^DD(727.816,9,23,19,0)="SSS and CCC are set to ""000""."
^DD(727.816,9,23,20,0)="   "
^DD(727.816,9,23,21,0)="For style 1, CCC is always ""000"" and PPPP is always ""0000""."
^DD(727.816,9,23,22,0)="  "
^DD(727.816,9,23,23,0)="Styles 2 and 3, defined in previous versions of DSS Extracts, are no longer"
^DD(727.816,9,23,24,0)="valid."
^DD(727.816,9,23,25,0)="   "
^DD(727.816,9,23,26,0)="For style 4,  PPPP is the National Clinic code assigned to this clinic; "
^DD(727.816,9,23,27,0)="it is taken from the NATIONAL CLINIC filed (#7) of file #728.44.  The"
^DD(727.816,9,23,28,0)="original source if this data is the NATIONAL CLINIC file (#728,441)."
^DD(727.816,9,23,29,0)="   "
^DD(727.816,9,23,30,0)="For style 5, PPPP is always ""0000""."
^DD(727.816,9,23,31,0)="  "
^DD(727.816,9,23,32,0)="In all styles, N is set to ""N"" if the STATUS field (#3) in the APPOINMENT "
^DD(727.816,9,23,33,0)="sub-file (#2.98) of the PATIENT file (#2) is set to ""NO-SHOW""."
^DD(727.816,9,23,34,0)="   "
^DD(727.816,9,23,35,0)="In all styles SSS, CCC, TTT and PPPP are padded with leading zeroes as"
^DD(727.816,9,23,36,0)="needed; the Feeder is always exactly 14 characters."
^DD(727.816,9,"DT")="2990505"
^DD(727.816,10,0)="TREATING SPECIALTY^P42.4'^DIC(42.4,^0;11^Q"
^DD(727.816,10,21,0)="^^2^2^2990506^"
^DD(727.816,10,21,1,0)="The treating specialty associated with this extract record, if the"
^DD(727.816,10,21,2,0)="patient is an inpatient."
^DD(727.816,10,23,0)="^^6^6^2990506^"
^DD(727.816,10,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.816,10,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.816,10,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.816,10,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.816,10,23,5,0)="(#45.7), is used to get the SPECIALTY field (#1) which points to the "
^DD(727.816,10,23,6,0)="SPECIALTY file (#42.4)."
^DD(727.816,10,"DT")="2990506"
^DD(727.816,11,0)="ENCOUNTER ELIGIBILITY^F^^0;12^K:$L(X)>3!($L(X)<1) X"
^DD(727.816,11,3)="Answer must be 1-3 characters in length."
^DD(727.816,11,21,0)="^^1^1^2990506^"
^DD(727.816,11,21,1,0)="The patient's eligibility for this outpatient encounter."
^DD(727.816,11,23,0)="^^9^9^2990506^"
^DD(727.816,11,23,1,0)="In the OUTPATIENT ENCOUNTER file (#409.68), the ELIGIBILITY OF ENCOUNTER"
^DD(727.816,11,23,2,0)="field (#.13) points to the ELIGIBILITY CODE file (#8)."
^DD(727.816,11,23,3,0)="   "
^DD(727.816,11,23,4,0)="Then the MAS ELIGIBILITY CODE field (#8) of file #8 points to the"
^DD(727.816,11,23,5,0)="MAS ELIGIBILITY CODE file (#8.1).  "
^DD(727.816,11,23,6,0)="  "
^DD(727.816,11,23,7,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.816,11,23,8,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.816,11,23,9,0)="two or three numeric characters."
^DD(727.816,11,"DT")="2990506"
^DD(727.816,12,0)="PRIMARY CARE PROVIDER^F^^0;13^K:$L(X)>11!($L(X)<2) X"
^DD(727.816,12,3)="Answer must be 2-11 characters in length."
^DD(727.816,12,21,0)="^^1^1^2990510^^^^"
^DD(727.816,12,21,1,0)="The Primary Care Provider assigned to this patient."
^DD(727.816,12,23,0)="^^14^14^2990510^^^^"
^DD(727.816,12,23,1,0)="For scheduled appointments and appended EKG visits, use the "
^DD(727.816,12,23,2,0)="APPOINTMENT DATE/TIME field (#.01) in the APPOINTMENT field (#1900) "
^DD(727.816,12,23,3,0)="multiple of the HOSPITAL LOCATION file (#44)."
^DD(727.816,12,23,4,0)="  "
^DD(727.816,12,23,5,0)="For dispositions, stand-alones, and appended lab and x-ray visits, "
^DD(727.816,12,23,6,0)="use the DATE field (#.01) in the OUTPATIENT ENCOUNTER file (#409.68)."
^DD(727.816,12,23,7,0)="  "
^DD(727.816,12,23,8,0)="The date along with the patient pointer (DFN) stored in the PATIENT "
^DD(727.816,12,23,9,0)="NO. - DFN field (4) of the extract record is used to make a call to"
^DD(727.816,12,23,10,0)="the Scheduling API, OUTPTPR^SDUTL3. The pointer (IEN) to the NEW "
^DD(727.816,12,23,11,0)="PERSON file (#200), retuned by the API, is used."
^DD(727.816,12,23,12,0)=" "
^DD(727.816,12,23,13,0)="A ""2"" is prefixed to the pointer value to indicate that the source"
^DD(727.816,12,23,14,0)="file is ""200"", and the data is stored as free text."
^DD(727.816,12,"DT")="2990510"
^DD(727.816,13,0)="PC PROVIDER PERSON CLASS^F^^0;14^K:$L(X)>7!($L(X)<7) X"
^DD(727.816,13,3)="Answer must be 7 characters in length."
^DD(727.816,13,21,0)="^^4^4^2990510^^^^"
^DD(727.816,13,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.816,13,21,2,0)="of the Primary Care Provider as assigned by through the PCMM application."
^DD(727.816,13,21,3,0)="The VA Code is always of the form ""V""_six numeric digits;  exactly 7 "
^DD(727.816,13,21,4,0)="characters in length. "
^DD(727.816,13,23,0)="^^4^4^2990510^^^^"
^DD(727.816,13,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.816,13,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.816,13,23,3,0)="PERS is the IEN from file #200."
^DD(727.816,13,23,4,0)=" "
^DD(727.816,13,"DT")="2990510"
^DD(727.816,14,0)="PC PROVIDER NPI^F^^0;15^K:$L(X)>8!($L(X)<1) X"
^DD(727.816,14,3)="Answer must be 1-8 characters in length."
^DD(727.816,14,21,0)="^^1^1^2990510^^^^"
^DD(727.816,14,21,1,0)="The Primary Care Provider's National Provider Identifier code."
^DD(727.816,14,23,0)="^^4^4^2990510^^^^"
^DD(727.816,14,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.816,14,23,2,0)="field will hold the Primary Care Providerovider NPI."
^DD(727.816,14,23,3,0)=" "
^DD(727.816,14,23,4,0)="Field will be set to null until data becomes available."
^DD(727.816,14,"DT")="2990510"
^DD(727.816,15,0)="ASSOCIATE PC PROVIDER^F^^0;16^K:$L(X)>11!($L(X)<2) X"
^DD(727.816,15,3)="Answer must be 2-11 characters in length."
^DD(727.816,15,21,0)="^^4^4^2990506^"
^DD(727.816,15,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.816,15,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.816,15,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.816,15,21,4,0)="character 2."
^DD(727.816,15,23,0)="^^2^2^2990506^"
^DD(727.816,15,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.816,15,23,2,0)="the PCMM application."
^DD(727.816,15,"DT")="2990506"
^DD(727.816,16,0)="ASSOC. PC PROV. PERSON CLASS^F^^0;17^K:$L(X)>7!($L(X)<7) X"
^DD(727.816,16,3)="Answer must be 7 characters in length."
^DD(727.816,16,21,0)="^^4^4^2990506^"
^DD(727.816,16,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.816,16,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.816,16,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.816,16,21,4,0)="exactly 7 characters in length. "
^DD(727.816,16,23,0)="^^3^3^2990506^"
^DD(727.816,16,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.816,16,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.816,16,23,3,0)="PERS is the IEN from file #200."
^DD(727.816,16,"DT")="2990506"
^DD(727.816,17,0)="ASSOCIATE PC PROVIDER NPI^F^^0;18^K:$L(X)>8!($L(X)<1) X"
^DD(727.816,17,3)="Answer must be 1-8 characters in length."
^DD(727.816,17,21,0)="^^1^1^2990507^"
^DD(727.816,17,21,1,0)="The Associate Primary Care Provider's National Provider Identifier."
^DD(727.816,17,23,0)="^^2^2^2990507^"
^DD(727.816,17,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.816,17,23,2,0)="field will hold the Associate Primary Care Provider NPI."
^DD(727.816,17,"DT")="2990507"
^DD(727.816,18,0)="CLINIC^P44'^SC(^0;19^Q"
^DD(727.816,18,21,0)="^^2^2^2990507^"
^DD(727.816,18,21,1,0)="Reference to the Clinic (if any) associated with the patient"
^DD(727.816,18,21,2,0)="encounter."
^DD(727.816,18,23,0)="^^2^2^2990507^"
^DD(727.816,18,23,1,0)="Internal entry number of the Clinic from the HOSPITAL LOCATION "
^DD(727.816,18,23,2,0)="file (#44)."
^DD(727.816,18,"DT")="2990507"
^DD(727.816,19,0)="CPT CODES & MODIFIERS^RFO^^1;1^K:$L(X)>120!($L(X)<120) X"
^DD(727.816,19,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.816,19,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.816,19,3)="Answer must be 120 characters in length."
^DD(727.816,19,21,0)="^^10^10^2990507^"
^DD(727.816,19,21,1,0)="The primary CPT code and modifier(s) followed by secondary CPT code(s)"
^DD(727.816,19,21,2,0)="and modifier(s) in a concatenated string.  Only the first CPT code is"
^DD(727.816,19,21,3,0)="required.  Each CPT code is exactly 5 characters and each modifier is "
^DD(727.816,19,21,4,0)="exactly 2 characters.  Each CPT code plus modifier(s) string is exactly"
^DD(727.816,19,21,5,0)="15 characters in length.  If there are fewer than 5 modifiers, then the"
^DD(727.816,19,21,6,0)="segment must be padded to the right with space characters."
^DD(727.816,19,21,7,0)="  "
^DD(727.816,19,21,8,0)="There may be fewer than 8 CPT codes for a visit record, but the total"
^DD(727.816,19,21,9,0)="length of field #18 is always 120 characters, many of which may be "
^DD(727.816,19,21,10,0)="space characters (i.e., ASCII code 32)."
^DD(727.816,19,23,0)="^^15^15^2990507^"
^DD(727.816,19,23,1,0)="Using the internal entry number for the encounter in the OUTPATIENT"
^DD(727.816,19,23,2,0)="ENCOUNTER file (#409.68), the VISIT FILE ENTRY field (#.05) is"
^DD(727.816,19,23,3,0)="determined. This entry is used to make a call to the Patient Care "
^DD(727.816,19,23,4,0)="Encounter API, ENCEVENT^PXAPI. The API returns all visit data in the "
^DD(727.816,19,23,5,0)="^TMP(""PXKENC"",$J) array."
^DD(727.816,19,23,6,0)="  "
^DD(727.816,19,23,7,0)="If a Primary Provider is specified for this patient visit, then the"
^DD(727.816,19,23,8,0)="first CPT code associated with that Primary Provider is used as the"
^DD(727.816,19,23,9,0)="primary CPT code.  Otherwise, the first CPT code listed in the array"
^DD(727.816,19,23,10,0)="is used as the primary CPT code.  The remaining CPT codes are used"
^DD(727.816,19,23,11,0)="as secondary CPT codes, upto a total of 7 secondary CPT codes."
^DD(727.816,19,23,12,0)="  "
^DD(727.816,19,23,13,0)="Modifiers are found in the CPT MODIFIERS file (#81.3), but it is not"
^DD(727.816,19,23,14,0)="known at this time how modifiers will be stored in the Visit file"
^DD(727.816,19,23,15,0)="structure."
^DD(727.816,19,"DT")="2990614"
^DD(727.816,20,0)="PRIMARY CARE TEAM^F^^1;2^K:$L(X)>4!($L(X)<1) X"
^DD(727.816,20,3)="Answer must be 1-4 characters in length."
^DD(727.816,20,21,0)="^^1^1^2990510^"
^DD(727.816,20,21,1,0)="The primary care team assigned to this patient."
^DD(727.816,20,23,0)="^^12^12^2990510^"
^DD(727.816,20,23,1,0)="For scheduled appointments and appended EKG visits, use the "
^DD(727.816,20,23,2,0)="APPOINTMENT DATE/TIME field (#.01) in the APPOINTMENT field (#1900) "
^DD(727.816,20,23,3,0)="multiple of the HOSPITAL LOCATION file (#44)."
^DD(727.816,20,23,4,0)="  "
^DD(727.816,20,23,5,0)="For dispositions, stand-alones, and appended lab and x-ray visits, "
^DD(727.816,20,23,6,0)="use the DATE field (#.01) in the OUTPATIENT ENCOUNTER file (#409.68)."
^DD(727.816,20,23,7,0)="  "
^DD(727.816,20,23,8,0)="The date along with the patient pointer (DFN) stored in the PATIENT "
^DD(727.816,20,23,9,0)="NO. - DFN field (#4) of the extract record is used to make a call to"
^DD(727.816,20,23,10,0)="the Scheduling API, OUTPTTM^SDUTL3.  The pointer (IEN) to the TEAM "
^DD(727.816,20,23,11,0)="file (#404.51), retuned by the API, is used.  The data is stored as"
^DD(727.816,20,23,12,0)="free text."
^DD(727.816,20,"DT")="2990510"
^DD(727.816,"B","ASSOC. PC PROV. PERSON CLASS",16)=""
^DD(727.816,"B","ASSOCIATE PC PROVIDER",15)=""
^DD(727.816,"B","ASSOCIATE PC PROVIDER NPI",17)=""
^DD(727.816,"B","CLINIC",18)=""
^DD(727.816,"B","CPT CODES & MODIFIERS",19)=""
^DD(727.816,"B","DAY",8)=""
^DD(727.816,"B","ENCOUNTER ELIGIBILITY",11)=""
^DD(727.816,"B","EXTRACT NUMBER",2)=""
^DD(727.816,"B","FACILITY",3)=""
^DD(727.816,"B","FEEDER KEY",9)=""
^DD(727.816,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.816,"B","NAME",6)=""
^DD(727.816,"B","PATIENT NO. - DFN",4)=""
^DD(727.816,"B","PC PROVIDER NPI",14)=""
^DD(727.816,"B","PC PROVIDER PERSON CLASS",13)=""
^DD(727.816,"B","PRIMARY CARE PROVIDER",12)=""
^DD(727.816,"B","PRIMARY CARE TEAM",20)=""
^DD(727.816,"B","SEQUENCE NUMBER",.01)=""
^DD(727.816,"B","SSN",5)=""
^DD(727.816,"B","TREATING SPECIALTY",10)=""
^DD(727.816,"B","YEAR MONTH",1)=""
^DD(727.816,"GL",0,1,.01)=""
^DD(727.816,"GL",0,2,1)=""
^DD(727.816,"GL",0,3,2)=""
^DD(727.816,"GL",0,4,3)=""
^DD(727.816,"GL",0,5,4)=""
^DD(727.816,"GL",0,6,5)=""
^DD(727.816,"GL",0,7,6)=""
^DD(727.816,"GL",0,8,7)=""
^DD(727.816,"GL",0,9,8)=""
^DD(727.816,"GL",0,10,9)=""
^DD(727.816,"GL",0,11,10)=""
^DD(727.816,"GL",0,12,11)=""
^DD(727.816,"GL",0,13,12)=""
^DD(727.816,"GL",0,14,13)=""
^DD(727.816,"GL",0,15,14)=""
^DD(727.816,"GL",0,16,15)=""
^DD(727.816,"GL",0,17,16)=""
^DD(727.816,"GL",0,18,17)=""
^DD(727.816,"GL",0,19,18)=""
^DD(727.816,"GL",1,1,19)=""
^DD(727.816,"GL",1,2,20)=""
^DD(727.816,"IX",2)=""
^DD(727.816,"RQ",.01)=""
^DD(727.816,"RQ",1)=""
^DD(727.816,"RQ",2)=""
^DD(727.816,"RQ",3)=""
^DD(727.816,"RQ",4)=""
^DD(727.816,"RQ",5)=""
^DD(727.816,"RQ",6)=""
^DD(727.816,"RQ",7)=""
^DD(727.816,"RQ",8)=""
^DD(727.816,"RQ",9)=""
^DD(727.816,"RQ",19)=""
^DD(727.817,0)="FIELD^^39^44"
^DD(727.817,0,"DDA")="N"
^DD(727.817,0,"DIK")="ECX817"
^DD(727.817,0,"DIKOLD")="ECX817"
^DD(727.817,0,"DT")="3020627"
^DD(727.817,0,"IX","AC",727.817,2)=""
^DD(727.817,0,"NM","TREATING SPECIALTY CHANGE EXTRACT")=""
^DD(727.817,0,"VR")="3.0"
^DD(727.817,0,"VRPK")="ECX"
^DD(727.817,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.817,.01,.1)="Sequence Number"
^DD(727.817,.01,1,0)="^.1^^0"
^DD(727.817,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.817,.01,21,0)="^^1^1^2961004^^^^"
^DD(727.817,.01,21,1,0)="The record number for this extract entry."
^DD(727.817,.01,23,0)="^^1^1^2961004^^^^"
^DD(727.817,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.817,.01,"DT")="2980812"
^DD(727.817,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.817,1,.1)="Year/Month"
^DD(727.817,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.817,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.817,1,3)="Answer must be 6 characters in length."
^DD(727.817,1,21,0)="^^2^2^2970922^^^^"
^DD(727.817,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.817,1,21,2,0)="for which this extract was performed."
^DD(727.817,1,23,0)="^^1^1^2970922^^^^"
^DD(727.817,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.817,1,"DT")="2970924"
^DD(727.817,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.817,2,.1)="Extract Number"
^DD(727.817,2,1,0)="^.1"
^DD(727.817,2,1,1,0)="727.817^AC"
^DD(727.817,2,1,1,1)="S ^ECX(727.817,""AC"",$E(X,1,30),DA)="""""
^DD(727.817,2,1,1,2)="K ^ECX(727.817,""AC"",$E(X,1,30),DA)"
^DD(727.817,2,1,1,3)="DO NOT DELETE."
^DD(727.817,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.817,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.817,2,1,1,"%D",2,0)="in this file."
^DD(727.817,2,1,1,"DT")="2910802"
^DD(727.817,2,3)="Enter the extract number for this extract."
^DD(727.817,2,21,0)="^^2^2^2961004^^^^"
^DD(727.817,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.817,2,21,2,0)="extract."
^DD(727.817,2,23,0)="^^2^2^2961004^^^^"
^DD(727.817,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.817,2,23,2,0)="pick up the header for the mail message."
^DD(727.817,2,"DT")="2961004"
^DD(727.817,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.817,3,.1)="Facility"
^DD(727.817,3,3)="Enter the station number where this extract was performed."
^DD(727.817,3,21,0)="^^1^1^2980723^^^^"
^DD(727.817,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.817,3,23,0)="^^1^1^2980723^^^^"
^DD(727.817,3,23,1,0)="For the Treating Specialty Change extract, the FACILITY field is null."
^DD(727.817,3,"DT")="2961015"
^DD(727.817,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.817,4,.1)="Patient No. - DFN"
^DD(727.817,4,3)="Enter the name of the patient for this extract record."
^DD(727.817,4,21,0)="^^1^1^2990504^^^^"
^DD(727.817,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.817,4,23,0)="^^3^3^2990504^^^^"
^DD(727.817,4,23,1,0)="Derived from the PATIENT field (.03) in the PATIENT MOVEMENT file "
^DD(727.817,4,23,2,0)="(#405), which is a pointer to the PATIENT file (#2). This data "
^DD(727.817,4,23,3,0)="represents the patient DFN."
^DD(727.817,4,"DT")="2961015"
^DD(727.817,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.817,5,.1)="Social Security Number"
^DD(727.817,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.817,5,21,0)="^^4^4^2990504^^^^"
^DD(727.817,5,21,1,0)="The patient's social security number."
^DD(727.817,5,21,2,0)=" "
^DD(727.817,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.817,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.817,5,23,0)="^^7^7^2990504^^^"
^DD(727.817,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN "
^DD(727.817,5,23,2,0)="field (4) in the TREATING SPECIALTY CHANGE EXTRACT file (#727.817), "
^DD(727.817,5,23,3,0)="SSN data is derived from the SOCIAL SECURITY NUMBER field (.09) in "
^DD(727.817,5,23,4,0)="the PATIENT file (#2)."
^DD(727.817,5,23,5,0)=" "
^DD(727.817,5,23,6,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.817,5,23,7,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.817,5,"DT")="2961004"
^DD(727.817,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.817,6,.1)="Name"
^DD(727.817,6,3)="Your answer must be 4 characters in length."
^DD(727.817,6,21,0)="^^1^1^2961023^^^^"
^DD(727.817,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.817,6,23,0)="^^5^5^2961023^^"
^DD(727.817,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN "
^DD(727.817,6,23,2,0)="field (4) in the TREATING SPECIALTY CHANGE EXTRACT file (#727.817), "
^DD(727.817,6,23,3,0)="NAME data is derived from the NAME field (.01) in the PATIENT file "
^DD(727.817,6,23,4,0)="(#2). The first four characters of the first "","" piece are used, "
^DD(727.817,6,23,5,0)="padded with trailing spaces if necessary."
^DD(727.817,6,"DT")="2961004"
^DD(727.817,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.817,7,.1)="In Out Patient Indicator"
^DD(727.817,7,3)="Answer must be 1 character in length."
^DD(727.817,7,21,0)="^.001^2^2^3011206^^^^"
^DD(727.817,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.817,7,21,2,0)="extract entry."
^DD(727.817,7,23,0)="^^4^4^3011206^"
^DD(727.817,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.817,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.817,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.817,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.817,7,"DT")="3011206"
^DD(727.817,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.817,8,.1)="Day"
^DD(727.817,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.817,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.817,8,3)="Answer must be 8 characters in length."
^DD(727.817,8,21,0)="^^2^2^2970922^^^^"
^DD(727.817,8,21,1,0)="An 8-character numeric string that represents the date on which"
^DD(727.817,8,21,2,0)="the Treating Specialty change took place."
^DD(727.817,8,23,0)="^^9^9^2970923^^^^"
^DD(727.817,8,23,1,0)="Data source:"
^DD(727.817,8,23,2,0)=" "
^DD(727.817,8,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.817,8,23,4,0)=" "
^DD(727.817,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.817,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.817,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.817,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.817,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.817,8,"DT")="2970924"
^DD(727.817,9,0)="PRODUCT^F^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.817,9,.1)="Product"
^DD(727.817,9,3)="The product or feeder key for this extract."
^DD(727.817,9,21,0)="^^1^1^2961015^^^"
^DD(727.817,9,21,1,0)="The product or feeder key for this extract."
^DD(727.817,9,23,0)="^^1^1^2961015^^^"
^DD(727.817,9,23,1,0)="For the Treating Specialty Change extract, the PRODUCT field is null."
^DD(727.817,9,"DT")="2961004"
^DD(727.817,9,"V",0)="^.12P"
^DD(727.817,10,0)="ADMISSION DATE^FO^^0;11^K:$L(X)>8!($L(X)<8) X"
^DD(727.817,10,.1)="Admission Date"
^DD(727.817,10,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.817,10,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.817,10,3)="Answer must be 8 characters in length."
^DD(727.817,10,21,0)="^^2^2^2970922^^^^"
^DD(727.817,10,21,1,0)="An 8-character numeric string that represents the date of the Admission"
^DD(727.817,10,21,2,0)="associated with this Treating Specialty change."
^DD(727.817,10,23,0)="^^10^10^2970923^^^^"
^DD(727.817,10,23,1,0)="Data source:"
^DD(727.817,10,23,2,0)=" "
^DD(727.817,10,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.817,10,23,4,0)="PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01)"
^DD(727.817,10,23,5,0)=" "
^DD(727.817,10,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.817,10,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.817,10,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.817,10,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.817,10,23,10,0)="Year 2000 compliant per vendor."
^DD(727.817,10,"DT")="2970924"
^DD(727.817,11,0)="DISCHARGE DATE^FO^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.817,11,.1)="Discharge Date"
^DD(727.817,11,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.817,11,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.817,11,3)="Answer must be 8 characters in length."
^DD(727.817,11,21,0)="^^3^3^2970922^^^^"
^DD(727.817,11,21,1,0)="An 8-character numeric string that represents the date of Discharge"
^DD(727.817,11,21,2,0)="associated with this Treating Specialty change, if it is the last"
^DD(727.817,11,21,3,0)="specialty change prior to discharge.  Otherwise, this field is null."
^DD(727.817,11,23,0)="^^9^9^2970923^^^^"
^DD(727.817,11,23,1,0)="Data source:"
^DD(727.817,11,23,2,0)=" "
^DD(727.817,11,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.817,11,23,4,0)=" "
^DD(727.817,11,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.817,11,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.817,11,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.817,11,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.817,11,23,9,0)="Year 2000 compliant per vendor."
^DD(727.817,11,"DT")="2970924"
^DD(727.817,12,0)="MOVEMENT FILE #^P405'^DGPM(^0;13^Q"
^DD(727.817,12,.1)="Movement File Number"
^DD(727.817,12,3)="Enter the patient movement number associated with this extract record."
^DD(727.817,12,21,0)="^^1^1^2961004^^"
^DD(727.817,12,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.817,12,23,0)="^^3^3^2961004^^"
^DD(727.817,12,23,1,0)="The ^DGPM(""ATT3"" or ""ATT6"",DATE,D0) cross reference is used to "
^DD(727.817,12,23,2,0)="obtain the current movement number associated with this patient. "
^DD(727.817,12,23,3,0)="It is a pointer to the PATIENT MOVEMENT file (#405)."
^DD(727.817,12,"DT")="2961004"
^DD(727.817,13,0)="TYPE^F^^0;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.817,13,.1)="Type"
^DD(727.817,13,3)="Your answer must be 1 character in length."
^DD(727.817,13,21,0)="^^1^1^2970708^^^^"
^DD(727.817,13,21,1,0)="The type of movement for this patient."
^DD(727.817,13,23,0)="^^1^1^2970708^^^^"
^DD(727.817,13,23,1,0)="Using the ""ATT""_TYPE cross reference where TYPE=6 (specialty change)."
^DD(727.817,13,"DT")="2961004"
^DD(727.817,14,0)="NEW TREATING SPECIALTY^F^^0;15^K:$L(X)>3!($L(X)<2) X"
^DD(727.817,14,.1)="New Treating Specialty"
^DD(727.817,14,3)="PTF Code from Specialty File (42.4)"
^DD(727.817,14,21,0)="^^2^2^3070502^"
^DD(727.817,14,21,1,0)="The Specialty PTF CODE associated with the Facility Treating Specialty to"
^DD(727.817,14,21,2,0)="which patient is being moved."
^DD(727.817,14,23,0)="^.001^10^10^3070502^^^"
^DD(727.817,14,23,1,0)="Source:"
^DD(727.817,14,23,2,0)="Field #.09; file #405"
^DD(727.817,14,23,3,0)="Field #7; file #45.7"
^DD(727.817,14,23,4,0)=" "
^DD(727.817,14,23,5,0)="PTF Code of SPECIALTY file (#42.4) derived from SPECIALTY"
^DD(727.817,14,23,6,0)="field (#1) and PTF CODE (#7) of FACILITY TREATING SPECIALTY file (#45.7)"
^DD(727.817,14,23,7,0)="record pointed to by FACILITY TREATING SPECIALTY field (#.09) of PATIENT"
^DD(727.817,14,23,8,0)="MOVEMENT file (#405) record.  The movement record is the current treating"
^DD(727.817,14,23,9,0)="specialty movement.  Then, the PTF Code is obtained and stored instead of"
^DD(727.817,14,23,10,0)="the actual specialty code."
^DD(727.817,14,"DT")="3070413"
^DD(727.817,15,0)="LOSING TREATING SPECIALTY^F^^0;16^K:$L(X)>3!($L(X)<2) X"
^DD(727.817,15,.1)="Losing Treating Specialty"
^DD(727.817,15,3)="Answer must be 2-3 characters in length."
^DD(727.817,15,21,0)="^^4^4^3070502^"
^DD(727.817,15,21,1,0)="The Specialty PTF CODE associated with the losing Facility Treating"
^DD(727.817,15,21,2,0)="Specialty for this patient movement.  If this movement is not an actual"
^DD(727.817,15,21,3,0)="treating specialty change, then it is possible for this field to be the"
^DD(727.817,15,21,4,0)="same as NEW TREATING SPECIALTY field (#14)."
^DD(727.817,15,23,0)="^.001^15^15^3070502^^"
^DD(727.817,15,23,1,0)="Using the ""ATT3"" or ""ATT6"" cross reference on the PATIENT MOVEMENT file "
^DD(727.817,15,23,2,0)="(#405) and the patient pointer (DFN) stored in the PATIENT NO. - DFN "
^DD(727.817,15,23,3,0)="field (4) in the TREATING SPECIALTY CHANGE EXTRACT file (#727.817), "
^DD(727.817,15,23,4,0)="NEW TREATING SPECIALTY data is derived from the FACILITY TREATING "
^DD(727.817,15,23,5,0)="SPECIALTY field (.09) in the PATIENT MOVEMENT file (#405). This facility "
^DD(727.817,15,23,6,0)="treating specialty data is a pointer to the FACILITY TREATING SPECIALTY "
^DD(727.817,15,23,7,0)="file (#45.7). Using the SPECIALTY field (1) in the FACILITY TREATING "
^DD(727.817,15,23,8,0)="SPECIALTY file (#45.7), the pointer to the SPECIALTY file (#42.4) is "
^DD(727.817,15,23,9,0)="obtained."
^DD(727.817,15,23,10,0)=" "
^DD(727.817,15,23,11,0)="This Specialty is then the LOSING Specialty for the Treating Specialty"
^DD(727.817,15,23,12,0)="change occurring on the date in the TRT extract record.  "
^DD(727.817,15,23,13,0)=" "
^DD(727.817,15,23,14,0)="Then, the PTF Code is obtained and stored instead of the actual specialty"
^DD(727.817,15,23,15,0)="code."
^DD(727.817,15,"DT")="3070502"
^DD(727.817,16,0)="LOSING TREATING SPECIALTY LOS^NJ4,0^^0;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.817,16,.1)="Losing TS LOS"
^DD(727.817,16,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(727.817,16,21,0)="^^1^1^2980723^^^^"
^DD(727.817,16,21,1,0)="The length of stay on the losing treating specialty."
^DD(727.817,16,23,0)="^^7^7^2980723^^^^"
^DD(727.817,16,23,1,0)="Calculated as current treating specialty date minus the date (DATE/TIME "
^DD(727.817,16,23,2,0)="field (.01) of the PATIENT MOVEMENT file (#405)) of the last treating "
^DD(727.817,16,23,3,0)="specialty change."
^DD(727.817,16,23,4,0)=" "
^DD(727.817,16,23,5,0)="This field will only be used for actual treating specialty changes.  "
^DD(727.817,16,23,6,0)="For file #405 records which reflect provider-only changes this "
^DD(727.817,16,23,7,0)="field will be null."
^DD(727.817,16,"DT")="2980116"
^DD(727.817,17,0)="LOSING ATTENDING PHYSICIAN^F^^0;18^K:$L(X)>11!($L(X)<1) X"
^DD(727.817,17,.1)="Losing Attending Physician"
^DD(727.817,17,3)="Enter attending physician assigned to this patient."
^DD(727.817,17,21,0)="^^2^2^2980609^^^^"
^DD(727.817,17,21,1,0)="The Attending Physician associated with the previous treating"
^DD(727.817,17,21,2,0)="specialty change record in file #405."
^DD(727.817,17,23,0)="^^4^4^2980609^^^^"
^DD(727.817,17,23,1,0)="Derived from the ATTENDING PHYSICIAN field (.19) of the PATIENT MOVEMENT "
^DD(727.817,17,23,2,0)="file (#405). If ATTENDING PHYSICIAN is a pointer to the NEW PERSON file "
^DD(727.817,17,23,3,0)="(#200), it is stored as ""2""_pointer value. If ATTENDING PHYSICIAN is a "
^DD(727.817,17,23,4,0)="pointer to the PROVIDER file (#6), it is stored as ""6""_pointer value."
^DD(727.817,17,"DT")="2980120"
^DD(727.817,18,0)="MOVEMENT TYPE^P405.2'^DG(405.2,^0;19^Q"
^DD(727.817,18,.1)="Movement Type"
^DD(727.817,18,3)="Enter the patient movement number associated with this extract record."
^DD(727.817,18,21,0)="^^1^1^2970708^^^"
^DD(727.817,18,21,1,0)="The MAS movement type for this movement."
^DD(727.817,18,23,0)="^^3^3^2970708^^^"
^DD(727.817,18,23,1,0)="MOVEMENT TYPE is derived from the MAS MOVEMENT TYPE field (.18) of "
^DD(727.817,18,23,2,0)="the PATIENT MOVEMENT file (#405). It is a pointer to the MAS MOVEMENT "
^DD(727.817,18,23,3,0)="TYPE file (#405.2)."
^DD(727.817,18,"DT")="2961004"
^DD(727.817,19,0)="TRT TIME^FO^^0;20^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.817,19,.1)="TRT Time"
^DD(727.817,19,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.817,19,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.817,19,3)="Answer must be 6 characters in length."
^DD(727.817,19,21,0)="^^2^2^2970922^^^^"
^DD(727.817,19,21,1,0)="A 6-character numeric string representing the time of day when the"
^DD(727.817,19,21,2,0)="Treating Specialty change took place."
^DD(727.817,19,23,0)="^^7^7^2970922^^^^"
^DD(727.817,19,23,1,0)="Data source:"
^DD(727.817,19,23,2,0)=" "
^DD(727.817,19,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01);"
^DD(727.817,19,23,4,0)="   2nd ""."" piece only."
^DD(727.817,19,23,5,0)=" "
^DD(727.817,19,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.817,19,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.817,19,"DT")="2970924"
^DD(727.817,20,0)="ADMISSION TIME^FO^^0;21^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.817,20,.1)="Admission Time"
^DD(727.817,20,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.817,20,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.817,20,3)="Answer must be 6 characters in length."
^DD(727.817,20,21,0)="^^2^2^2970922^^^^"
^DD(727.817,20,21,1,0)="A 6-character numeric string that represent the time of day of the"
^DD(727.817,20,21,2,0)="Admission associated with this Treating Specialty change."
^DD(727.817,20,23,0)="^^7^7^2970922^^^^"
^DD(727.817,20,23,1,0)="Data source:"
^DD(727.817,20,23,2,0)=" "
^DD(727.817,20,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.817,20,23,4,0)="PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01)"
^DD(727.817,20,23,5,0)=" "
^DD(727.817,20,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.817,20,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.817,20,"DT")="2970924"
^DD(727.817,21,0)="NEW PRIMARY WARD PROVIDER^F^^0;22^K:$L(X)>11!($L(X)<1) X"
^DD(727.817,21,.1)="New Primary Ward Provider"
^DD(727.817,21,3)="Answer must be 1-11 characters in length."
^DD(727.817,21,21,0)="^^2^2^2980608^^^^"
^DD(727.817,21,21,1,0)="The new Primary Provider associated with the current patient"
^DD(727.817,21,21,2,0)="movement record in file #405."
^DD(727.817,21,23,0)="^^10^10^2980608^^^^"
^DD(727.817,21,23,1,0)="Source:"
^DD(727.817,21,23,2,0)="Field #.08; file #405"
^DD(727.817,21,23,3,0)="  "
^DD(727.817,21,23,4,0)="Internal entry number of NEW PERSON file (#200) derived from the "
^DD(727.817,21,23,5,0)="PRIMARY CARE PHYSICIAN field (#.08) of the PATIENT MOVEMENT file"
^DD(727.817,21,23,6,0)="(#405). The movement record here is the current treating specialty"
^DD(727.817,21,23,7,0)="movement."
^DD(727.817,21,23,8,0)="  "
^DD(727.817,21,23,9,0)="A ""2"" is prefixed to this pointer value, if the pointer references"
^DD(727.817,21,23,10,0)="file #200."
^DD(727.817,21,"DT")="2980120"
^DD(727.817,22,0)="NEW ATTENDING PHYSICIAN^F^^0;23^K:$L(X)>11!($L(X)<1) X"
^DD(727.817,22,.1)="New Attending Physician"
^DD(727.817,22,3)="Answer must be 1-11 characters in length."
^DD(727.817,22,21,0)="^^2^2^2980608^^^"
^DD(727.817,22,21,1,0)="The new Attending Physician associated with the current patient"
^DD(727.817,22,21,2,0)="movement record in file #405."
^DD(727.817,22,23,0)="^^10^10^2980608^^^"
^DD(727.817,22,23,1,0)="Source:"
^DD(727.817,22,23,2,0)="Field #.19; file #405"
^DD(727.817,22,23,3,0)="  "
^DD(727.817,22,23,4,0)="Internal entry number of NEW PERSON file (#200) derived from the "
^DD(727.817,22,23,5,0)="ATTENDING PHYSICIAN field (#.19) of the PATIENT MOVEMENT file"
^DD(727.817,22,23,6,0)="(#405). The movement record here is the current treating specialty"
^DD(727.817,22,23,7,0)="movement."
^DD(727.817,22,23,8,0)="  "
^DD(727.817,22,23,9,0)="A ""2"" is prefixed to this pointer value, if the pointer references"
^DD(727.817,22,23,10,0)="file #200."
^DD(727.817,22,"DT")="2980120"
^DD(727.817,23,0)="LOSING PRIMARY WARD PROVIDER^F^^0;24^K:$L(X)>11!($L(X)<1) X"
^DD(727.817,23,.1)="Losing Primary Ward Provider"
^DD(727.817,23,3)="Answer must be 1-11 characters in length."
^DD(727.817,23,21,0)="^^2^2^2980609^^^^"
^DD(727.817,23,21,1,0)="The losing Primary Provider for the patient movement; i.e., the Primary"
^DD(727.817,23,21,2,0)="Provider of the previous treating specialty chnage record."
^DD(727.817,23,23,0)="^^11^11^2980609^^^^"
^DD(727.817,23,23,1,0)="Source:"
^DD(727.817,23,23,2,0)="Field #.08; file #405"
^DD(727.817,23,23,3,0)="  "
^DD(727.817,23,23,4,0)="Internal entry number of NEW PERSON file (#200) derived from the"
^DD(727.817,23,23,5,0)="PRIMARY CARE PHYSICIAN field (#.08) of the PATIENT MOVEMENT file "
^DD(727.817,23,23,6,0)="(#405). The movement record is not the current treating specialty "
^DD(727.817,23,23,7,0)="movement, but the one which corresponds to the previous treating "
^DD(727.817,23,23,8,0)="specialty or provider change."
^DD(727.817,23,23,9,0)="  "
^DD(727.817,23,23,10,0)="A ""2"" is prefixed to this pointer value, if the pointer references"
^DD(727.817,23,23,11,0)="file #200."
^DD(727.817,23,"DT")="2980120"
^DD(727.817,24,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.817,24,3)="Answer must be 1-10 characters in length."
^DD(727.817,24,21,0)="^^1^1^2990504^"
^DD(727.817,24,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.817,24,23,0)="^^2^2^2990504^"
^DD(727.817,24,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.817,24,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.817,24,"DT")="2990504"
^DD(727.817,25,0)="DSS DEPT.^F^^1;2^K:$L(X)>10!($L(X)<4) X"
^DD(727.817,25,3)="Answer must be 4-10 characters in length."
^DD(727.817,25,21,0)="^^1^1^2990506^"
^DD(727.817,25,21,1,0)="The DSS Department Code for the ward product."
^DD(727.817,25,23,0)="^^2^2^2990506^"
^DD(727.817,25,23,1,0)="A free text field of 4-10 characters; data not yet available."
^DD(727.817,25,23,2,0)="Field is set to null."
^DD(727.817,25,"DT")="2990506"
^DD(727.817,26,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.817,26,3)="Answer must be 1-8 characters in length."
^DD(727.817,26,21,0)="^^1^1^3070827^"
^DD(727.817,26,21,1,0)="Currently NULL."
^DD(727.817,26,23,0)="^^1^1^3070827^"
^DD(727.817,26,23,1,0)="Currently NULL."
^DD(727.817,26,"DT")="3070426"
^DD(727.817,27,0)="PLACEHOLDER^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.817,27,3)="Answer must be 1-8 characters in length."
^DD(727.817,27,21,0)="^.001^1^1^3070827^^"
^DD(727.817,27,21,1,0)="Currently NULL."
^DD(727.817,27,23,0)="^.001^1^1^3070827^^"
^DD(727.817,27,23,1,0)="Currently NULL."
^DD(727.817,27,"DT")="3070426"
^DD(727.817,28,0)="PLACEHOLDER^F^^1;5^K:$L(X)>8!($L(X)<1) X"
^DD(727.817,28,3)="Answer must be 1-8 characters in length."
^DD(727.817,28,21,0)="^^1^1^3070827^"
^DD(727.817,28,21,1,0)="Currently NULL."
^DD(727.817,28,23,0)="^^1^1^3070827^"
^DD(727.817,28,23,1,0)="Currently NULL."
^DD(727.817,28,"DT")="3070426"
^DD(727.817,29,0)="PLACEHOLDER^F^^1;6^K:$L(X)>8!($L(X)<1) X"
^DD(727.817,29,3)="Answer must be 1-8 characters in length."
^DD(727.817,29,21,0)="^^1^1^3070827^"
^DD(727.817,29,21,1,0)="Currently NULL."
^DD(727.817,29,23,0)="^^1^1^3070827^"
^DD(727.817,29,23,1,0)="Currently NULL."
^DD(727.817,29,"DT")="3070426"
^DD(727.817,30,0)="ATTENDING PHYSICIAN LOS^NJ4,0^^1;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.817,30,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(727.817,30,21,0)="^^1^1^2980714^"
^DD(727.817,30,21,1,0)="The patient's length of stay with the losing attending physician."
^DD(727.817,30,"DT")="2980723"
^DD(727.817,31,0)="PRIMARY WARD PROVIDER LOS^NJ4,0^^1;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.817,31,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(727.817,31,21,0)="^^1^1^2980714^"
^DD(727.817,31,21,1,0)="The patient's length of stay with the losing primary ward provider."
^DD(727.817,31,"DT")="2980723"
^DD(727.817,32,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.817,32,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.817,32,21,0)="^.001^8^8^3001012^^"
^DD(727.817,32,21,1,0)=" "
^DD(727.817,32,21,2,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is"
^DD(727.817,32,21,3,0)="admitted to either a DOM, PRRTP or SAARTP at the time hospital"
^DD(727.817,32,21,4,0)="service is provided."
^DD(727.817,32,21,5,0)="Domiciliary"
^DD(727.817,32,21,6,0)="(DOM)"
^DD(727.817,32,21,7,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.817,32,21,8,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.817,32,"DT")="3001010"
^DD(727.817,33,0)="OBSERVATION PATIENT INDICATOR^F^^1;10^K:$L(X)>4!($L(X)<1) X"
^DD(727.817,33,3)="Answer must be 1-4 characters in length."
^DD(727.817,33,21,0)="^^2^2^3011212^"
^DD(727.817,33,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.817,33,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.817,33,"DT")="3010814"
^DD(727.817,34,0)="ENCOUNTER NUMBER^F^^1;11^K:$L(X)>18!($L(X)<1) X"
^DD(727.817,34,3)="Answer must be 1-18 characters in length"
^DD(727.817,34,21,0)="^^3^3^3011212^"
^DD(727.817,34,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.817,34,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.817,34,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.817,34,"DT")="3010503"
^DD(727.817,35,0)="PRODUCTION DIVISION CODE^F^^1;12^K:$L(X)>6!($L(X)<3) X"
^DD(727.817,35,3)="Answer must be 3-6 characters in length."
^DD(727.817,35,21,0)="^.001^2^2^3021008^^"
^DD(727.817,35,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.817,35,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.817,35,23,0)="^^2^2^3021008^"
^DD(727.817,35,23,1,0)="Data comes from the FACILITY NUMBER field (#1) of the MEDICAL CENTER"
^DD(727.817,35,23,2,0)="DIVISION file (#40.8)."
^DD(727.817,35,"DT")="3020812"
^DD(727.817,36,0)="LOSING ATTENDING PHYSICIAN PC^F^^1;13^K:$L(X)>7!($L(X)<1) X"
^DD(727.817,36,3)="Answer must be 1-7 characters in length."
^DD(727.817,36,21,0)="^.001^3^3^3050425^^^"
^DD(727.817,36,21,1,0)="The VA Code of the Person Class of the Losing Attending Physician"
^DD(727.817,36,21,2,0)="associated with this record. The VA Code is always of the form ""V""_six"
^DD(727.817,36,21,3,0)="numeric digits; exactly 7."
^DD(727.817,36,23,0)="^^3^3^3050425^"
^DD(727.817,36,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.817,36,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.817,36,23,3,0)="#200."
^DD(727.817,36,"DT")="3050405"
^DD(727.817,37,0)="NEW PRIMARY WARD PROVIDER PC^F^^1;14^K:$L(X)>7!($L(X)<1) X"
^DD(727.817,37,3)="Answer must be 1-7 characters in length."
^DD(727.817,37,21,0)="^.001^3^3^3050425^^^"
^DD(727.817,37,21,1,0)="The VA Code of the Person Class of the New Primary Ward Provider"
^DD(727.817,37,21,2,0)="associated with this record. The VA Code is always of the form ""V""_six"
^DD(727.817,37,21,3,0)="numeric digits; exactly 7."
^DD(727.817,37,23,0)="^^3^3^3050425^"
^DD(727.817,37,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.817,37,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.817,37,23,3,0)="#200."
^DD(727.817,37,"DT")="3050405"
^DD(727.817,38,0)="NEW ATTENDING PHYSICIAN PC^F^^1;15^K:$L(X)>7!($L(X)<1) X"
^DD(727.817,38,3)="Answer must be 1-7 characters in length."
^DD(727.817,38,21,0)="^.001^3^3^3050502^^^^"
^DD(727.817,38,21,1,0)="The VA Code of the Person Class of the New Attending Provider associated"
^DD(727.817,38,21,2,0)="with this record. The VA Code is always of the form ""V""_six numeric"
^DD(727.817,38,21,3,0)="digits; exactly 7."
^DD(727.817,38,23,0)="^.001^3^3^3050502^^"
^DD(727.817,38,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.817,38,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.817,38,23,3,0)="#200."
^DD(727.817,38,"DT")="3050502"
^DD(727.817,39,0)="LOSING PRIMARY WARD PROV PC^F^^1;16^K:$L(X)>7!($L(X)<1) X"
^DD(727.817,39,3)="Answer must be 1-7 characters in length."
^DD(727.817,39,21,0)="^.001^3^3^3050425^^^^"
^DD(727.817,39,21,1,0)="The VA Code of the Person Class of the Losing Primary Ward Provider"
^DD(727.817,39,21,2,0)="associated with this record. The VA Code is always of the form ""V""_six"
^DD(727.817,39,21,3,0)="numeric digits; exactly 7."
^DD(727.817,39,23,0)="^^3^3^3050425^"
^DD(727.817,39,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.817,39,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.817,39,23,3,0)="#200."
^DD(727.817,39,"DT")="3050405"
^DD(727.817,40,0)="LOSING ATTENDING PHYSICIAN NPI^F^^1;17^K:$L(X)>15!($L(X)<1) X"
^DD(727.817,40,3)="Answer must be 1-15 characters in length."
^DD(727.817,40,21,0)="^^3^3^3070504^"
^DD(727.817,40,21,1,0)="A standard unique life-long identifier of the attending physician "
^DD(727.817,40,21,2,0)="associated with the previous treating specialty change record. This field "
^DD(727.817,40,21,3,0)="has a length of fifteen characters. "
^DD(727.817,40,23,0)="^.001^4^4^3070504^^"
^DD(727.817,40,23,1,0)="LOSING ATTENDING PHYSICIAN NPI is a standard unique life-long identifier "
^DD(727.817,40,23,2,0)="of the attending physician associated with the previous treating specialty"
^DD(727.817,40,23,3,0)="change record in File (#405).  The qualified identifier shall be retrieved"
^DD(727.817,40,23,4,0)="via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.817,40,"DT")="3070504"
^DD(727.817,41,0)="LOSING PRIM WARD PROVIDER NPI^F^^1;18^K:$L(X)>15!($L(X)<1) X"
^DD(727.817,41,3)="Answer must be 1-15 characters in length."
^DD(727.817,41,21,0)="^^4^4^3070504^"
^DD(727.817,41,21,1,0)="A standard unique life-long identifier of the losing primary ward "
^DD(727.817,41,21,2,0)="provider for the patient movement (i.e., the Primary Provider of the "
^DD(727.817,41,21,3,0)="previous treating specialty change record). This field has a length of "
^DD(727.817,41,21,4,0)="fifteen characters."
^DD(727.817,41,23,0)="^.001^5^5^3070504^^"
^DD(727.817,41,23,1,0)="LOSING PRIM WARD PROVIDER NPI is a standard unique life-long identifier "
^DD(727.817,41,23,2,0)="of the losing primary ward provider for the patient movement (i.e., the "
^DD(727.817,41,23,3,0)="Primary Provider of the previous treating specialty change record).  The "
^DD(727.817,41,23,4,0)="qualified identifier shall be retrieved via the supporting Kernel"
^DD(727.817,41,23,5,0)="API:$$NPI^XUSNPI."
^DD(727.817,41,"DT")="3070504"
^DD(727.817,42,0)="NEW ATTENDING PHYSICIAN NPI^F^^1;19^K:$L(X)>15!($L(X)<1) X"
^DD(727.817,42,3)="Answer must be 1-15 characters in length."
^DD(727.817,42,21,0)="^.001^3^3^3070504^^"
^DD(727.817,42,21,1,0)="A standard unique life-long identifier of the new attending physician "
^DD(727.817,42,21,2,0)="associated with the current patient movement record in the PATIENT "
^DD(727.817,42,21,3,0)="MOVEMENT File (#405). This field has a length of fifteen characters."
^DD(727.817,42,23,0)="^.001^4^4^3070504^^^"
^DD(727.817,42,23,1,0)="NEW ATTENDING PHYSICIAN NPI is a standard unique life-long identifier of "
^DD(727.817,42,23,2,0)="the new attending physician associated with the current patient movement "
^DD(727.817,42,23,3,0)="record in File (#405).  The qualified identifier shall be retrieved via"
^DD(727.817,42,23,4,0)="the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.817,42,"DT")="3070504"
^DD(727.817,43,0)="NEW PRIMARY WARD PROVIDER NPI^F^^1;20^K:$L(X)>15!($L(X)<1) X"
^DD(727.817,43,3)="Answer must be 1-15 characters in length."
^DD(727.817,43,21,0)="^^3^3^3070504^"
^DD(727.817,43,21,1,0)="A standard unique life-long identifier of the new primary ward provider "
^DD(727.817,43,21,2,0)="associated with the current patient movement record in PATIENT MOVEMENT "
^DD(727.817,43,21,3,0)="File (#405).  This field has a length of fifteen characters."
^DD(727.817,43,23,0)="^.001^4^4^3070504^^"
^DD(727.817,43,23,1,0)="NEW PRIMARY WARD PROVIDER NPI is a standard unique life-long identifier "
^DD(727.817,43,23,2,0)="of the new primary ward provider associated with the current movement "
^DD(727.817,43,23,3,0)="record in File (#405).  The qualified identifier shall be retrieved via"
^DD(727.817,43,23,4,0)="the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.817,43,"DT")="3070504"
^DD(727.817,"B","ADMISSION DATE",10)=""
^DD(727.817,"B","ADMISSION TIME",20)=""
^DD(727.817,"B","ATTENDING PHYSICIAN LOS",30)=""
^DD(727.817,"B","Admission Date",10)="1"
^DD(727.817,"B","Admission Time",20)="1"
^DD(727.817,"B","DAY",8)=""
^DD(727.817,"B","DISCHARGE DATE",11)=""
^DD(727.817,"B","DOM,PRRTP AND SAARTP INDICATOR",32)=""
^DD(727.817,"B","DSS DEPT.",25)=""
^DD(727.817,"B","Day",8)="1"
^DD(727.817,"B","Discharge Date",11)="1"
^DD(727.817,"B","ENCOUNTER NUMBER",34)=""
^DD(727.817,"B","EXTRACT NUMBER",2)=""
^DD(727.817,"B","Extract Number",2)="1"
^DD(727.817,"B","FACILITY",3)=""
^DD(727.817,"B","Facility",3)="1"
^DD(727.817,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.817,"B","In Out Patient Indicator",7)="1"
^DD(727.817,"B","LOSING ATTENDING PHYSICIAN",17)=""
^DD(727.817,"B","LOSING ATTENDING PHYSICIAN NPI",40)=""
^DD(727.817,"B","LOSING ATTENDING PHYSICIAN PC",36)=""
^DD(727.817,"B","LOSING PRIM WARD PROVIDER NPI",41)=""
^DD(727.817,"B","LOSING PRIMARY WARD PROV PC",39)=""
^DD(727.817,"B","LOSING PRIMARY WARD PROVIDER",23)=""
^DD(727.817,"B","LOSING TREATING SPECIALTY",15)=""
^DD(727.817,"B","LOSING TREATING SPECIALTY LOS",16)=""
^DD(727.817,"B","Losing Attending Physician",17)="1"
^DD(727.817,"B","Losing Primary Ward Provider",23)="1"
^DD(727.817,"B","Losing TS LOS",16)="1"
^DD(727.817,"B","Losing Treating Specialty",15)="1"
^DD(727.817,"B","MASTER PATIENT INDEX",24)=""
^DD(727.817,"B","MOVEMENT FILE #",12)=""
^DD(727.817,"B","MOVEMENT TYPE",18)=""
^DD(727.817,"B","Movement File Number",12)="1"
^DD(727.817,"B","Movement Type",18)="1"
^DD(727.817,"B","NAME",6)=""
^DD(727.817,"B","NEW ATTENDING PHYSICIAN",22)=""
^DD(727.817,"B","NEW ATTENDING PHYSICIAN NPI",42)=""
^DD(727.817,"B","NEW ATTENDING PHYSICIAN PC",38)=""
^DD(727.817,"B","NEW PRIMARY WARD PROVIDER",21)=""
^DD(727.817,"B","NEW PRIMARY WARD PROVIDER NPI",43)=""
^DD(727.817,"B","NEW PRIMARY WARD PROVIDER PC",37)=""
^DD(727.817,"B","NEW TREATING SPECIALTY",14)=""
^DD(727.817,"B","Name",6)="1"
^DD(727.817,"B","New Attending Physician",22)="1"
^DD(727.817,"B","New Primary Ward Provider",21)="1"
^DD(727.817,"B","New Treating Specialty",14)="1"
^DD(727.817,"B","OBSERVATION PATIENT INDICATOR",33)=""
^DD(727.817,"B","PATIENT NO. - DFN",4)=""
^DD(727.817,"B","PLACEHOLDER",26)=""
^DD(727.817,"B","PLACEHOLDER",27)=""
^DD(727.817,"B","PLACEHOLDER",28)=""
^DD(727.817,"B","PLACEHOLDER",29)=""
^DD(727.817,"B","PRIMARY WARD PROVIDER LOS",31)=""
^DD(727.817,"B","PRODUCT",9)=""
^DD(727.817,"B","PRODUCTION DIVISION CODE",35)=""
^DD(727.817,"B","Patient No. - DFN",4)="1"
^DD(727.817,"B","Product",9)="1"
^DD(727.817,"B","SEQUENCE NUMBER",.01)=""
^DD(727.817,"B","SSN",5)=""
^DD(727.817,"B","Sequence Number",.01)="1"
^DD(727.817,"B","Social Security Number",5)="1"
^DD(727.817,"B","TRT TIME",19)=""
^DD(727.817,"B","TRT Time",19)="1"
^DD(727.817,"B","TYPE",13)=""
^DD(727.817,"B","Type",13)="1"
^DD(727.817,"B","YEAR MONTH",1)=""
^DD(727.817,"B","Year/Month",1)="1"
^DD(727.817,"GL",0,1,.01)=""
^DD(727.817,"GL",0,2,1)=""
^DD(727.817,"GL",0,3,2)=""
^DD(727.817,"GL",0,4,3)=""
^DD(727.817,"GL",0,5,4)=""
^DD(727.817,"GL",0,6,5)=""
^DD(727.817,"GL",0,7,6)=""
^DD(727.817,"GL",0,8,7)=""
^DD(727.817,"GL",0,9,8)=""
^DD(727.817,"GL",0,10,9)=""
^DD(727.817,"GL",0,11,10)=""
^DD(727.817,"GL",0,12,11)=""
^DD(727.817,"GL",0,13,12)=""
^DD(727.817,"GL",0,14,13)=""
^DD(727.817,"GL",0,15,14)=""
^DD(727.817,"GL",0,16,15)=""
^DD(727.817,"GL",0,17,16)=""
^DD(727.817,"GL",0,18,17)=""
^DD(727.817,"GL",0,19,18)=""
^DD(727.817,"GL",0,20,19)=""
^DD(727.817,"GL",0,21,20)=""
^DD(727.817,"GL",0,22,21)=""
^DD(727.817,"GL",0,23,22)=""
^DD(727.817,"GL",0,24,23)=""
^DD(727.817,"GL",1,1,24)=""
^DD(727.817,"GL",1,2,25)=""
^DD(727.817,"GL",1,3,26)=""
^DD(727.817,"GL",1,4,27)=""
^DD(727.817,"GL",1,5,28)=""
^DD(727.817,"GL",1,6,29)=""
^DD(727.817,"GL",1,7,30)=""
^DD(727.817,"GL",1,8,31)=""
^DD(727.817,"GL",1,9,32)=""
^DD(727.817,"GL",1,10,33)=""
^DD(727.817,"GL",1,11,34)=""
^DD(727.817,"GL",1,12,35)=""
^DD(727.817,"GL",1,13,36)=""
^DD(727.817,"GL",1,14,37)=""
^DD(727.817,"GL",1,15,38)=""
^DD(727.817,"GL",1,16,39)=""
^DD(727.817,"GL",1,17,40)=""
^DD(727.817,"GL",1,18,41)=""
^DD(727.817,"GL",1,19,42)=""
^DD(727.817,"GL",1,20,43)=""
^DD(727.817,"IX",2)=""
^DD(727.817,"RQ",.01)=""
^DD(727.818,0)="FIELD^^35^36"
^DD(727.818,0,"DDA")="N"
^DD(727.818,0,"DT")="2990510"
^DD(727.818,0,"IX","AC",727.818,2)=""
^DD(727.818,0,"NM","CLINIC II EXTRACT")=""
^DD(727.818,0,"VR")="3.0"
^DD(727.818,0,"VRPK")="ECX"
^DD(727.818,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.818,.01,1,0)="^.1^^0"
^DD(727.818,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.818,.01,21,0)="^^1^1^2990505^"
^DD(727.818,.01,21,1,0)="The record number for this extract entry."
^DD(727.818,.01,23,0)="^^2^2^2990505^"
^DD(727.818,.01,23,1,0)="The internal entry number (IEN) for this record. "
^DD(727.818,.01,23,2,0)="This entry is DINUMed."
^DD(727.818,.01,"DT")="2990726"
^DD(727.818,1,0)="YEAR MONTH^RF^^0;2^K:$L(X)>6!($L(X)<6) X"
^DD(727.818,1,3)="Answer must be 6 characters in length."
^DD(727.818,1,21,0)="^^2^2^2990505^"
^DD(727.818,1,21,1,0)="A six character string representing the year and the month"
^DD(727.818,1,21,2,0)="for which this extract was performed."
^DD(727.818,1,23,0)="^^1^1^2990505^"
^DD(727.818,1,23,1,0)="Format is YYYYMM; Year 2000 compliant."
^DD(727.818,1,"DT")="2990505"
^DD(727.818,2,0)="EXTRACT NUMBER^RP727'^ECX(727,^0;3^Q"
^DD(727.818,2,1,0)="^.1"
^DD(727.818,2,1,1,0)="727.818^AC^MUMPS"
^DD(727.818,2,1,1,1)="S ^ECX(727.818,""AC"",$E(X,1,30),DA)="""""
^DD(727.818,2,1,1,2)="K ^ECX(727.818,""AC"",$E(X,1,30),DA)"
^DD(727.818,2,1,1,3)="DO NOT DELETE"
^DD(727.818,2,1,1,"%D",0)="^^2^2^2990726^^"
^DD(727.818,2,1,1,"%D",1,0)="The ""AC"" cross-reference is essential for managing and purging data"
^DD(727.818,2,1,1,"%D",2,0)="in this file."
^DD(727.818,2,1,1,"DT")="2990726"
^DD(727.818,2,21,0)="^^2^2^2990505^"
^DD(727.818,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.818,2,21,2,0)="extract."
^DD(727.818,2,23,0)="^^2^2^2990505^"
^DD(727.818,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.818,2,23,2,0)="pick up the header for the MailMan transmission message."
^DD(727.818,2,"DT")="2990726"
^DD(727.818,3,0)="FACILITY^RF^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.818,3,3)="Answer must be 1-7 characters in length."
^DD(727.818,3,21,0)="^^1^1^2990505^"
^DD(727.818,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.818,3,23,0)="^^13^13^2990505^"
^DD(727.818,3,23,1,0)="An indicator of the division responsible for the patient encounter."
^DD(727.818,3,23,2,0)="It is a pointer to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.818,3,23,3,0)=" "
^DD(727.818,3,23,4,0)="For scheduled appointments and appended EKG visits, it is taken"
^DD(727.818,3,23,5,0)="from the DIVISION field (3.5) of the HOSPITAL LOCATION file (#44)."
^DD(727.818,3,23,6,0)=" "
^DD(727.818,3,23,7,0)="For dispositions, stand-alones, and appended lab and x-ray visits, "
^DD(727.818,3,23,8,0)="it is derived from the LOCATION field (#.04)in the OUTPATIENT ENCOUNTER"
^DD(727.818,3,23,9,0)="file (#409.68).  The LOCATION field points to the HOSPITAL LOCATION"
^DD(727.818,3,23,10,0)="file (#44).  The DIVISION field (#3.5) of the pointed-to file #44"
^DD(727.818,3,23,11,0)="record is used."
^DD(727.818,3,23,12,0)=" "
^DD(727.818,3,23,13,0)="The data is stored as free text."
^DD(727.818,3,"DT")="2990505"
^DD(727.818,4,0)="PATIENT NO. - DFN^RP2'^DPT(^0;5^Q"
^DD(727.818,4,21,0)="^^2^2^2990505^"
^DD(727.818,4,21,1,0)="Internal entry number of the PATIENT file (#2) record identifying the"
^DD(727.818,4,21,2,0)="patient associated with the clinic visit information."
^DD(727.818,4,23,0)="^^9^9^2990505^"
^DD(727.818,4,23,1,0)="This field points to a record in the PATIENT file (#2)."
^DD(727.818,4,23,2,0)="  "
^DD(727.818,4,23,3,0)="For scheduled appointments and appended EKG visits, it is taken"
^DD(727.818,4,23,4,0)="from the PATIENT field (#.01) within the APPOINTMENT field (#1900) "
^DD(727.818,4,23,5,0)="multiple of the HOSPITAL LOCATION file (#44)."
^DD(727.818,4,23,6,0)="  "
^DD(727.818,4,23,7,0)="For dispositions, stand-alones, and appended lab and x-ray visits, "
^DD(727.818,4,23,8,0)="it is taken from the PATIENT field (#.02) in the OUTPATIENT "
^DD(727.818,4,23,9,0)="ENCOUNTER file (#409.68)."
^DD(727.818,4,"DT")="2990505"
^DD(727.818,5,0)="SSN^RF^^0;6^K:$L(X)>10!($L(X)<9) X"
^DD(727.818,5,3)="Answer must be 9-10 characters in length."
^DD(727.818,5,21,0)="^^4^4^2990505^"
^DD(727.818,5,21,1,0)="The patient's social security number."
^DD(727.818,5,21,2,0)=" "
^DD(727.818,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.818,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.818,5,23,0)="^^6^6^2990505^"
^DD(727.818,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.818,5,23,2,0)="(#4) of this extract file (#727.818), SSN data is derived from "
^DD(727.818,5,23,3,0)="the SOCIAL SECURITY NUMBER field (#.09) in the PATIENT file (#2)."
^DD(727.818,5,23,4,0)=" "
^DD(727.818,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.818,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.818,5,"DT")="2990505"
^DD(727.818,6,0)="NAME^RF^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.818,6,3)="Answer must be 4 characters in length."
^DD(727.818,6,21,0)="^^1^1^2990505^"
^DD(727.818,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.818,6,23,0)="^^4^4^2990505^"
^DD(727.818,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.818,6,23,2,0)="(#4) of this extract file (#727.818), NAME data is derived from the"
^DD(727.818,6,23,3,0)="NAME field (#.01) in the PATIENT file (#2). The first four characters of"
^DD(727.818,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.818,6,"DT")="2990505"
^DD(727.818,7,0)="IN OUT PATIENT INDICATOR^RF^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.818,7,3)="Answer must be 1 character in length."
^DD(727.818,7,21,0)="^^2^2^2990505^"
^DD(727.818,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient on the"
^DD(727.818,7,21,2,0)="date in the DAY field (#8) for this extract record."
^DD(727.818,7,23,0)="^^8^8^2990505^"
^DD(727.818,7,23,1,0)="This status indicator corresponds to an internal entry number in the "
^DD(727.818,7,23,2,0)="LOCATION TYPE file (#40.9), where IEN=1 is the Clinic location, "
^DD(727.818,7,23,3,0)="and IEN=3 is the Ward location."
^DD(727.818,7,23,4,0)="  "
^DD(727.818,7,23,5,0)="This field is initialized to a 1, indicating an outpatient status. "
^DD(727.818,7,23,6,0)="If a call to IN5^VADPT (using the patient DFN and the event date) "
^DD(727.818,7,23,7,0)="returns a patient movement number, then the field is reset to a 3 "
^DD(727.818,7,23,8,0)="indicating inpatient status."
^DD(727.818,7,"DT")="2990505"
^DD(727.818,8,0)="DAY^RF^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.818,8,3)="Answer must be 8 characters in length."
^DD(727.818,8,21,0)="^^2^2^2990505^"
^DD(727.818,8,21,1,0)="Date in format YYYYMMDD; date with which the clinic visit extract"
^DD(727.818,8,21,2,0)="data is associated."
^DD(727.818,8,23,0)="^^11^11^2990505^"
^DD(727.818,8,23,1,0)="For scheduled appointments and appended EKG visits -- "
^DD(727.818,8,23,2,0)="HOSPITAL LOCATION file (#44); APPOINTMENT sub-file (#44.001);"
^DD(727.818,8,23,3,0)="   APPOINTMENT DATE/TIME field (#.01)"
^DD(727.818,8,23,4,0)=" "
^DD(727.818,8,23,5,0)="For dispositions, stand-alones, and appended lab and x-ray visits --"
^DD(727.818,8,23,6,0)="OUTPATIENT ENCOUNTER file (#409.68); DATE field (#.01)"
^DD(727.818,8,23,7,0)=" "
^DD(727.818,8,23,8,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.818,8,23,9,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.818,8,23,10,0)="then a default is used.  The default date value is the value of the "
^DD(727.818,8,23,11,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.818,8,"DT")="2990505"
^DD(727.818,9,0)="PRIMARY STOP CODE^RF^^0;10^K:$L(X)>3!($L(X)<3) X"
^DD(727.818,9,3)="Answer must be 3 characters in length."
^DD(727.818,9,21,0)="^^3^3^2990505^"
^DD(727.818,9,21,1,0)="Primary Stop Code is a fixed length field of 3 numeric characters. "
^DD(727.818,9,21,2,0)="The ACTION TO SEND field (#5) of the CLINIC AND STOP CODES file (#728.44)"
^DD(727.818,9,21,3,0)="for the clinic determines the how the data is derived. "
^DD(727.818,9,23,0)="^^4^4^2990505^^"
^DD(727.818,9,23,1,0)="Primary Stop Code is taken from the CLINICS AND STOP CODES file (#728.44)."
^DD(727.818,9,23,2,0)="The DSS STOP CODE field (#3) is used.  If field #3 is null, then the STOP"
^DD(727.818,9,23,3,0)="CODE field (#1) is used.  If field #1 is null, then data is taken from the "
^DD(727.818,9,23,4,0)="STOP CODE NUMBER field (#8) of the HOSPITAL LOCATION file (#44)."
^DD(727.818,9,"DT")="2990505"
^DD(727.818,10,0)="MASTER PATIENT INDEX^F^^0;11^K:$L(X)>10!($L(X)<1) X"
^DD(727.818,10,3)="Answer must be 1-10 characters in length."
^DD(727.818,10,21,0)="^^1^1^2990505^"
^DD(727.818,10,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.818,10,23,0)="^^2^2^2990505^"
^DD(727.818,10,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.818,10,23,2,0)="in an FY2000 enhancement to the VistA system."
^DD(727.818,10,"DT")="2990505"
^DD(727.818,11,0)="SEX^RS^M:MALE;F:FEMALE;^0;12^Q"
^DD(727.818,11,21,0)="^^1^1^2990505^"
^DD(727.818,11,21,1,0)="Data is M if this patient is a male, or F if female."
^DD(727.818,11,23,0)="^^3^3^2990505^"
^DD(727.818,11,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4),"
^DD(727.818,11,23,2,0)="this data element is derived from the SEX field (#.02) in the PATIENT "
^DD(727.818,11,23,3,0)="file (#2)."
^DD(727.818,11,"DT")="2990505"
^DD(727.818,12,0)="DATE OF BIRTH^RF^^0;13^K:$L(X)>8!($L(X)<8) X"
^DD(727.818,12,3)="Answer must be 8 characters in length."
^DD(727.818,12,21,0)="^^2^2^2990505^"
^DD(727.818,12,21,1,0)="The patient's date of birth between December 31,1870 and today's date"
^DD(727.818,12,21,2,0)="represented by an 8-character numeric string."
^DD(727.818,12,23,0)="^^8^8^2990505^"
^DD(727.818,12,23,1,0)="Using the pointer value in the PATIENT NO. - DFN field (#4) of the"
^DD(727.818,12,23,2,0)="extract record, data is taken from the DATE OF BIRTH field (#.03)"
^DD(727.818,12,23,3,0)="of the PATIENT file (#2). "
^DD(727.818,12,23,4,0)=" "
^DD(727.818,12,23,5,0)="If Date of Birth cannot be determined, then January 1, 1942, is"
^DD(727.818,12,23,6,0)="used as default.  The data element is always exactly 8 numberic"
^DD(727.818,12,23,7,0)="characters in length.  Format is YYYYMMDD.  Year 2000 compliant"
^DD(727.818,12,23,8,0)="per vendor."
^DD(727.818,12,"DT")="2990505"
^DD(727.818,13,0)="ELIGIBILITY^RF^^0;14^K:$L(X)>3!($L(X)<1) X"
^DD(727.818,13,3)="Answer must be 1-3 characters in length."
^DD(727.818,13,21,0)="^^1^1^2990506^^"
^DD(727.818,13,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.818,13,23,0)="^^11^11^2990506^^"
^DD(727.818,13,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field"
^DD(727.818,13,23,2,0)="(#4) of the extract record, ELIGIBILITY data is derived from the "
^DD(727.818,13,23,3,0)="PRIMARY ELIGIBILITY CODE field (#.361) in the PATIENT file (#2)."
^DD(727.818,13,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8)."
^DD(727.818,13,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (#8) in the"
^DD(727.818,13,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS"
^DD(727.818,13,23,7,0)="ELIGIBILITY CODE file (#8.1). "
^DD(727.818,13,23,8,0)=" "
^DD(727.818,13,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.818,13,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.818,13,23,11,0)="two or three numeric characters."
^DD(727.818,13,"DT")="2990505"
^DD(727.818,14,0)="VETERAN^RS^Y:YES;N:NO;^0;15^Q"
^DD(727.818,14,21,0)="^^1^1^2990505^"
^DD(727.818,14,21,1,0)="Data is Y if this patient is a veteran, N if not."
^DD(727.818,14,23,0)="^^3^3^2990505^"
^DD(727.818,14,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN"
^DD(727.818,14,23,2,0)="field (#4) of the extract record, VETERAN data is derived from the"
^DD(727.818,14,23,3,0)="VETERAN (Y/N)? field (#1901) in the PATIENT file (#2)."
^DD(727.818,14,"DT")="2990505"
^DD(727.818,15,0)="RACE^RF^^0;16^K:$L(X)>1!($L(X)<1) X"
^DD(727.818,15,3)="Answer must be 1 character in length."
^DD(727.818,15,21,0)="^^1^1^2990505^"
^DD(727.818,15,21,1,0)="Race ABBREVIATION for this patient."
^DD(727.818,15,23,0)="^^4^4^2990505^"
^DD(727.818,15,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.818,15,23,2,0)="(#4), RACE data is taken from the ABBREVIATION field (#2) of the "
^DD(727.818,15,23,3,0)="RACE file (#10) record pointed to by the RACE field (#.06) in the "
^DD(727.818,15,23,4,0)="PATIENT file (#2)."
^DD(727.818,15,"DT")="2990505"
^DD(727.818,16,0)="POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;17^Q"
^DD(727.818,16,21,0)="^^1^1^2990505^"
^DD(727.818,16,21,1,0)="The patient's POW status. May be set to Y(es), N(o), or U(nknown)."
^DD(727.818,16,23,0)="^^2^2^2990505^"
^DD(727.818,16,23,1,0)="PATIENT file (#2); POW STATUS INDICATED? field (#.525)."
^DD(727.818,16,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.818,16,"DT")="2990505"
^DD(727.818,17,0)="POW LOCATION^P22'^DIC(22,^0;18^Q"
^DD(727.818,17,21,0)="^^9^9^2990505^"
^DD(727.818,17,21,1,0)="If POW Status is indicated, then this is the POW confinement"
^DD(727.818,17,21,2,0)="location/period. "
^DD(727.818,17,21,3,0)=" "
^DD(727.818,17,21,4,0)=" 1      WORLD WAR I"
^DD(727.818,17,21,5,0)=" 2      WORLD WAR II - EUROPE"
^DD(727.818,17,21,6,0)=" 3      WORLD WAR II - PACIFIC"
^DD(727.818,17,21,7,0)=" 4      KOREAN"
^DD(727.818,17,21,8,0)=" 5      VIETNAM"
^DD(727.818,17,21,9,0)=" 6      OTHER"
^DD(727.818,17,23,0)="^^3^3^2990505^"
^DD(727.818,17,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.818,17,23,2,0)="pointer value to the POW PERIOD file (#22). "
^DD(727.818,17,23,3,0)="The location indicator is returned by SVC^VADPT."
^DD(727.818,17,"DT")="2990505"
^DD(727.818,18,0)="RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;19^Q"
^DD(727.818,18,21,0)="^^1^1^2990505^"
^DD(727.818,18,21,1,0)="The patient's Ionizing Radiation status. (Y/N/U)"
^DD(727.818,18,23,0)="^^2^2^2990505^"
^DD(727.818,18,23,1,0)="PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103)."
^DD(727.818,18,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.818,18,"DT")="2990505"
^DD(727.818,19,0)="AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^0;20^Q"
^DD(727.818,19,21,0)="^^1^1^2990505^"
^DD(727.818,19,21,1,0)="The patient's Agent Orange status."
^DD(727.818,19,23,0)="^^2^2^2990505^"
^DD(727.818,19,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102)."
^DD(727.818,19,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.818,19,"DT")="2990505"
^DD(727.818,20,0)="MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;^0;21^Q"
^DD(727.818,20,21,0)="^^5^5^2990505^"
^DD(727.818,20,21,1,0)="The MST Status of the patient on the date of the outpatient encounter."
^DD(727.818,20,21,2,0)="Possible status values are:"
^DD(727.818,20,21,3,0)="Y = Yes, screened reports MST"
^DD(727.818,20,21,4,0)="N = Screened, does not report MST"
^DD(727.818,20,21,5,0)="D = Screened, declines to answer"
^DD(727.818,20,23,0)="^^5^5^2990505^"
^DD(727.818,20,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual"
^DD(727.818,20,23,2,0)="trauma claims and effective dates.  The patients MST status is stored"
^DD(727.818,20,23,3,0)="in the MST STATUS field (#3).  A call will be made to"
^DD(727.818,20,23,4,0)="$$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO.  DFN "
^DD(727.818,20,23,5,0)="field and the date in the DAY field."
^DD(727.818,20,"DT")="2990505"
^DD(727.818,21,0)="STATE^RF^^0;22^K:$L(X)>2!($L(X)<2) X"
^DD(727.818,21,3)="Answer must be 2 characters in length."
^DD(727.818,21,21,0)="^^1^1^2990505^"
^DD(727.818,21,21,1,0)="The state in which the patient resides."
^DD(727.818,21,23,0)="^^4^4^2990505^^"
^DD(727.818,21,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.818,21,23,2,0)="in the extract record, data is derived from the STATE field (#.115) in the"
^DD(727.818,21,23,3,0)="PATIENT file (#2) which points to the STATE file (#5).  From the STATE file"
^DD(727.818,21,23,4,0)="record, the two-character VA STATE CODE field (#2) is used."
^DD(727.818,21,"DT")="2990505"
^DD(727.818,22,0)="COUNTY^RF^^0;23^K:$L(X)>3!($L(X)<3) X"
^DD(727.818,22,3)="Answer must be 3 characters in length."
^DD(727.818,22,21,0)="^^1^1^2990505^"
^DD(727.818,22,21,1,0)="The county in which the patient resides."
^DD(727.818,22,23,0)="^^5^5^2990505^"
^DD(727.818,22,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.818,22,23,2,0)="(#4) in the extract record, data is derived from the COUNTY field (#.117)"
^DD(727.818,22,23,3,0)="in the PATIENT file (#2), which points to a subfile record in the COUNTY"
^DD(727.818,22,23,4,0)="multiple field (#3) of the STATE file (#5).  The three-character VA COUNTY"
^DD(727.818,22,23,5,0)="CODE field (#2) within the COUNTY multiple field is used."
^DD(727.818,22,"DT")="2990505"
^DD(727.818,23,0)="ZIP+4^RF^^0;24^K:$L(X)>10!($L(X)<5) X"
^DD(727.818,23,3)="Answer must be 5-10 characters in length."
^DD(727.818,23,21,0)="^^1^1^2990505^"
^DD(727.818,23,21,1,0)="The patient's zipcode with optional 4-digit extension."
^DD(727.818,23,23,0)="^^3^3^2990505^"
^DD(727.818,23,23,1,0)="The patient's zipcode with optional 4-digit extension as found in"
^DD(727.818,23,23,2,0)="the ZIP+4 field (#.1112) of the patient's record in the PATIENT"
^DD(727.818,23,23,3,0)="file (#2)."
^DD(727.818,23,"DT")="2990505"
^DD(727.818,24,0)="ENROLLMENT LOCATION^F^^0;25^K:$L(X)>7!($L(X)<3) X"
^DD(727.818,24,3)="Answer must be 3-7 characters in length."
^DD(727.818,24,21,0)="^^2^2^2990505^"
^DD(727.818,24,21,1,0)="The facility that the patient chooses to designate as his"
^DD(727.818,24,21,2,0)="preferred location for care."
^DD(727.818,24,23,0)="^^5^5^2990505^"
^DD(727.818,24,23,1,0)="The PREFERRED FACILITY field (#27.02) of the PATIENT file (#2)"
^DD(727.818,24,23,2,0)="is defined as the facility that the patient chooses to designate"
^DD(727.818,24,23,3,0)="as his preferred location for care.  The PREFERRED FACILITY field"
^DD(727.818,24,23,4,0)="(#27.02) is a pointer to the INSTITUTION file (#4).  From file #4,"
^DD(727.818,24,23,5,0)="the value in the STATION NUMBER field (#99) is used."
^DD(727.818,24,"DT")="2990505"
^DD(727.818,25,0)="PLACEHOLDER1^F^^0;26^K:$L(X)>1!($L(X)<1) X"
^DD(727.818,25,3)="Answer must be 1 character in length."
^DD(727.818,25,21,0)="^^2^2^2990510^^^^"
^DD(727.818,25,21,1,0)="The primary care team assigned to this patient."
^DD(727.818,25,21,2,0)="Placeholder for future use."
^DD(727.818,25,23,0)="^^1^1^2990510^^^^"
^DD(727.818,25,23,1,0)="Placeholder; null."
^DD(727.818,25,"DT")="2990510"
^DD(727.818,26,0)="PROVIDER^F^^0;27^K:$L(X)>11!($L(X)<2) X"
^DD(727.818,26,3)="Answer must be 2-11 characters in length."
^DD(727.818,26,21,0)="^^2^2^2990510^^^^"
^DD(727.818,26,21,1,0)="The provider primarily responsible for services to the patient"
^DD(727.818,26,21,2,0)="during the clinic visit."
^DD(727.818,26,23,0)="^^10^10^2990510^^^^"
^DD(727.818,26,23,1,0)="Using the internal entry number for the encounter in the OUTPATIENT "
^DD(727.818,26,23,2,0)="ENCOUNTER file (#409.68), the VISIT FILE ENTRY field (#.05) is "
^DD(727.818,26,23,3,0)="determined. This entry is used to make a call to the Patient Care "
^DD(727.818,26,23,4,0)="Encounter API, ENCEVENT^PXAPI. The API returns all visit data in the "
^DD(727.818,26,23,5,0)="TMP(""PXKENC"",$J) array. The first provider identified as ""primary"" "
^DD(727.818,26,23,6,0)="from the array is used. A default value of null is used if no "
^DD(727.818,26,23,7,0)="""primary"" provider is found."
^DD(727.818,26,23,8,0)=" "
^DD(727.818,26,23,9,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.818,26,23,10,0)="is ""200"", and the data is stored as free text."
^DD(727.818,26,"DT")="2990510"
^DD(727.818,27,0)="PROVIDER PERSON CLASS^F^^0;28^K:$L(X)>7!($L(X)<7) X"
^DD(727.818,27,3)="Answer must be 7 characters in length."
^DD(727.818,27,21,0)="^^2^2^2990510^^^^"
^DD(727.818,27,21,1,0)="The VA Code of the Person Class of the primary Provider of services"
^DD(727.818,27,21,2,0)="during the clinic visit."
^DD(727.818,27,23,0)="^^10^10^2990510^^^^"
^DD(727.818,27,23,1,0)="The NEW PERSON file (#200) record for the Provider contains pointer"
^DD(727.818,27,23,2,0)="fields to the PERSON CLASS file (#8932.1).  This data is returned"
^DD(727.818,27,23,3,0)="by $$GET^XUA4A71(PERS,DATE), where PERS is the IEN from file #200."
^DD(727.818,27,23,4,0)="   "
^DD(727.818,27,23,5,0)="The field will hold the VA Code associated with the active Person"
^DD(727.818,27,23,6,0)="Class of the primary Provider associated with the extracted clinic"
^DD(727.818,27,23,7,0)="visit."
^DD(727.818,27,23,8,0)="  "
^DD(727.818,27,23,9,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.818,27,23,10,0)="7 characters in length."
^DD(727.818,27,"DT")="2990510"
^DD(727.818,28,0)="PROVIDER NPI^F^^0;29^K:$L(X)>8!($L(X)<1) X"
^DD(727.818,28,3)="Answer must be 1-8 characters in length."
^DD(727.818,28,21,0)="^^1^1^2990510^^^^"
^DD(727.818,28,21,1,0)="The Provider's National Provider Identifier code."
^DD(727.818,28,23,0)="^^4^4^2990510^^^^"
^DD(727.818,28,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.818,28,23,2,0)="field will hold the Provider NPI."
^DD(727.818,28,23,3,0)=" "
^DD(727.818,28,23,4,0)="Field will be set to null until data becomes available."
^DD(727.818,28,"DT")="2990510"
^DD(727.818,29,0)="SHARING AGREEMENT PAYOR^F^^0;30^K:$L(X)>1!($L(X)<1) X"
^DD(727.818,29,3)="Answer must be 1 character in length."
^DD(727.818,29,21,0)="^^1^1^2990505^"
^DD(727.818,29,21,1,0)="An indicator used for patients participating in sharing agreements."
^DD(727.818,29,23,0)="^^15^15^2990505^"
^DD(727.818,29,23,1,0)="The ALIAS sub-field (#.01) of the ALIAS multiple field (#1) of the"
^DD(727.818,29,23,2,0)="PATIENT file (#2) is used to indicate a patient who participates in "
^DD(727.818,29,23,3,0)="a sharing agreement. If the #.01 field contains any one of the "
^DD(727.818,29,23,4,0)="specified key words, then the patient is considered to be included "
^DD(727.818,29,23,5,0)="for Sharing Agreement information. The keywords are: SHARING AGREEMENT,"
^DD(727.818,29,23,6,0)="CHAMPVA, CHAMPUS, TRICARE, CAT C, CATEGORY C."
^DD(727.818,29,23,7,0)="  "
^DD(727.818,29,23,8,0)="A one character code for the keyword found in the ALIAS multiple "
^DD(727.818,29,23,9,0)="field is obtained by the following conversion:"
^DD(727.818,29,23,10,0)="SHARING AGREEMENT = A"
^DD(727.818,29,23,11,0)="TRICARE = B"
^DD(727.818,29,23,12,0)="CAT C = C"
^DD(727.818,29,23,13,0)="CATEGORY C = C"
^DD(727.818,29,23,14,0)="CHAMPVA = D"
^DD(727.818,29,23,15,0)="CHAMPUS = E"
^DD(727.818,29,"DT")="2990505"
^DD(727.818,30,0)="SHARING AGREEMENT INSURANCE^F^^0;31^K:$L(X)>11!($L(X)<1) X"
^DD(727.818,30,3)="Answer must be 1-11 characters in length."
^DD(727.818,30,21,0)="^^2^2^2990505^"
^DD(727.818,30,21,1,0)="Used to indicate insurer, if patient participates in a"
^DD(727.818,30,21,2,0)="sharing agreement."
^DD(727.818,30,23,0)="^^5^5^2990505^"
^DD(727.818,30,23,1,0)="Data will be taken from the INSURANCE TYPE sub-field (#.01) of the"
^DD(727.818,30,23,2,0)="INSURANCE TYPE field (#.3121), sub-file #2.312, of the PATIENT file"
^DD(727.818,30,23,3,0)="(#2).  This is a pointer value for the INSURANCE COMPANY file (#36)."
^DD(727.818,30,23,4,0)="Only the first insurance company found in the multiple field is used."
^DD(727.818,30,23,5,0)="The data is stored as free text."
^DD(727.818,30,"DT")="2990505"
^DD(727.818,31,0)="RADIATION ENCOUNTER INDICATOR^S^Y:YES;N:NO;^0;32^Q"
^DD(727.818,31,21,0)="^^2^2^2990505^"
^DD(727.818,31,21,1,0)="Indicates whether treatment provided during this encounter was related"
^DD(727.818,31,21,2,0)="to the patient's ionizing radiation exposure."
^DD(727.818,31,23,0)="^^3^3^2990505^"
^DD(727.818,31,23,1,0)="In the OUTPATIENT ENCOUNTER file (#409.68), the VISIT FILE ENTRY field "
^DD(727.818,31,23,2,0)="(#.05) points to the VISIT file (#9000010).  From VISIT file (#9000010),"
^DD(727.818,31,23,3,0)="data is taken from the IONIZING RADIATION EXPOSURE field (#80003)."
^DD(727.818,31,"DT")="2990505"
^DD(727.818,32,0)="AO ENCOUNTER INDICATOR^S^Y:YES;N:NO;^0;33^Q"
^DD(727.818,32,21,0)="^^2^2^2990505^"
^DD(727.818,32,21,1,0)="Indicates whether treatment provided during this encounter was related"
^DD(727.818,32,21,2,0)="to the patient's Agent Orange exposure."
^DD(727.818,32,23,0)="^^3^3^2990505^^"
^DD(727.818,32,23,1,0)="In the OUTPATIENT ENCOUNTER file (#409.68), the VISIT FILE ENTRY field "
^DD(727.818,32,23,2,0)="(#.05) points to the VISIT file (#9000010).  From VISIT file (#9000010),"
^DD(727.818,32,23,3,0)="data is taken from the AGENT ORANGE EXPOSURE field (#80002)."
^DD(727.818,32,"DT")="2990505"
^DD(727.818,33,0)="MST ENCOUNTER INDICATOR^S^Y:YES;N:NO;^0;34^Q"
^DD(727.818,33,21,0)="^^2^2^2990505^"
^DD(727.818,33,21,1,0)="Indicates whether treatment provided during this encounter was related"
^DD(727.818,33,21,2,0)="to the patient's military sexual trauma."
^DD(727.818,33,23,0)="^^3^3^2990505^"
^DD(727.818,33,23,1,0)="In the OUTPATIENT ENCOUNTER file (#409.68), the VISIT FILE ENTRY field "
^DD(727.818,33,23,2,0)="(#.05) points to the VISIT file (#9000010).  From VISIT file (#9000010),"
^DD(727.818,33,23,3,0)="data is taken from the MILITARY SEXUAL TRAUMA field (#80005)."
^DD(727.818,33,"DT")="2990505"
^DD(727.818,34,0)="DSS DEPT.^F^^0;35^K:$L(X)>10!($L(X)<1) X"
^DD(727.818,34,3)="Answer must be 1-10 characters in length."
^DD(727.818,34,21,0)="^^1^1^2990506^^"
^DD(727.818,34,21,1,0)="The DSS Department Code for the clinic product."
^DD(727.818,34,23,0)="^^2^2^2990506^^"
^DD(727.818,34,23,1,0)="A free text field of 4-10 characters; data not yet available."
^DD(727.818,34,23,2,0)="Field is set to null."
^DD(727.818,34,"DT")="2990506"
^DD(727.818,35,0)="ICD-9 CODES^RF^^1;1^K:$L(X)>63!($L(X)<63) X"
^DD(727.818,35,3)="Answer must be 63 characters in length."
^DD(727.818,35,21,0)="^^4^4^2990510^^"
^DD(727.818,35,21,1,0)="The primary ICD-9 code followed by upto eight secondary IDC-9 codes"
^DD(727.818,35,21,2,0)="concatenated together in a string.  Only the primary IDC-9 code is"
^DD(727.818,35,21,3,0)="required.  Each ICD-9 code is composed of exactly 7 characters,"
^DD(727.818,35,21,4,0)="padded on the right with space characters as needed."
^DD(727.818,35,23,0)="^^13^13^2990510^^"
^DD(727.818,35,23,1,0)="Using a pointer to the VISIT file (#9000010) a call to the PCE API,"
^DD(727.818,35,23,2,0)="ENCEVENT^PXAPI, is made.  This returns ICD-9 data as pointers to the"
^DD(727.818,35,23,3,0)="ICD DIAGNOSIS file (#80).  A default value of 799.9 is used if no"
^DD(727.818,35,23,4,0)="""primary"" ICD-9 code is found.  The remaining ICD-9 pointers values "
^DD(727.818,35,23,5,0)="are used tp obtain secondary ICD-9 codes, upto a total of 8 secondary"
^DD(727.818,35,23,6,0)="codes."
^DD(727.818,35,23,7,0)=" "
^DD(727.818,35,23,8,0)="Each ICD-9 code is composed of a minimum of 4 characters, i.e.,"
^DD(727.818,35,23,9,0)="3 alphanumerics followed by a decimal point."
^DD(727.818,35,23,10,0)="  "
^DD(727.818,35,23,11,0)="There may be fewer than 9 ICD-9 codes for a visit record, but the"
^DD(727.818,35,23,12,0)="total length of field #36 is always 63 characters, many of which may"
^DD(727.818,35,23,13,0)="be space characters (i.e., ASCII code 32)."
^DD(727.818,35,"DT")="2990507"
^DD(727.818,"B","AGENT ORANGE STATUS",19)=""
^DD(727.818,"B","AO ENCOUNTER INDICATOR",32)=""
^DD(727.818,"B","COUNTY",22)=""
^DD(727.818,"B","DATE OF BIRTH",12)=""
^DD(727.818,"B","DAY",8)=""
^DD(727.818,"B","DSS DEPT.",34)=""
^DD(727.818,"B","ELIGIBILITY",13)=""
^DD(727.818,"B","ENROLLMENT LOCATION",24)=""
^DD(727.818,"B","EXTRACT NUMBER",2)=""
^DD(727.818,"B","FACILITY",3)=""
^DD(727.818,"B","ICD-9 CODES",35)=""
^DD(727.818,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.818,"B","MASTER PATIENT INDEX",10)=""
^DD(727.818,"B","MST ENCOUNTER INDICATOR",33)=""
^DD(727.818,"B","MST STATUS",20)=""
^DD(727.818,"B","NAME",6)=""
^DD(727.818,"B","PATIENT NO. - DFN",4)=""
^DD(727.818,"B","PLACEHOLDER1",25)=""
^DD(727.818,"B","POW LOCATION",17)=""
^DD(727.818,"B","POW STATUS",16)=""
^DD(727.818,"B","PRIMARY STOP CODE",9)=""
^DD(727.818,"B","PROVIDER",26)=""
^DD(727.818,"B","PROVIDER NPI",28)=""
^DD(727.818,"B","PROVIDER PERSON CLASS",27)=""
^DD(727.818,"B","RACE",15)=""
^DD(727.818,"B","RADIATION ENCOUNTER INDICATOR",31)=""
^DD(727.818,"B","RADIATION STATUS",18)=""
^DD(727.818,"B","SEQUENCE NUMBER",.01)=""
^DD(727.818,"B","SEX",11)=""
^DD(727.818,"B","SHARING AGREEMENT INSURANCE",30)=""
^DD(727.818,"B","SHARING AGREEMENT PAYOR",29)=""
^DD(727.818,"B","SSN",5)=""
^DD(727.818,"B","STATE",21)=""
^DD(727.818,"B","VETERAN",14)=""
^DD(727.818,"B","YEAR MONTH",1)=""
^DD(727.818,"B","ZIP+4",23)=""
^DD(727.818,"GL",0,1,.01)=""
^DD(727.818,"GL",0,2,1)=""
^DD(727.818,"GL",0,3,2)=""
^DD(727.818,"GL",0,4,3)=""
^DD(727.818,"GL",0,5,4)=""
^DD(727.818,"GL",0,6,5)=""
^DD(727.818,"GL",0,7,6)=""
^DD(727.818,"GL",0,8,7)=""
^DD(727.818,"GL",0,9,8)=""
^DD(727.818,"GL",0,10,9)=""
^DD(727.818,"GL",0,11,10)=""
^DD(727.818,"GL",0,12,11)=""
^DD(727.818,"GL",0,13,12)=""
^DD(727.818,"GL",0,14,13)=""
^DD(727.818,"GL",0,15,14)=""
^DD(727.818,"GL",0,16,15)=""
^DD(727.818,"GL",0,17,16)=""
^DD(727.818,"GL",0,18,17)=""
^DD(727.818,"GL",0,19,18)=""
^DD(727.818,"GL",0,20,19)=""
^DD(727.818,"GL",0,21,20)=""
^DD(727.818,"GL",0,22,21)=""
^DD(727.818,"GL",0,23,22)=""
^DD(727.818,"GL",0,24,23)=""
^DD(727.818,"GL",0,25,24)=""
^DD(727.818,"GL",0,26,25)=""
^DD(727.818,"GL",0,27,26)=""
^DD(727.818,"GL",0,28,27)=""
^DD(727.818,"GL",0,29,28)=""
^DD(727.818,"GL",0,30,29)=""
^DD(727.818,"GL",0,31,30)=""
^DD(727.818,"GL",0,32,31)=""
^DD(727.818,"GL",0,33,32)=""
^DD(727.818,"GL",0,34,33)=""
^DD(727.818,"GL",0,35,34)=""
^DD(727.818,"GL",1,1,35)=""
^DD(727.818,"IX",2)=""
^DD(727.818,"RQ",.01)=""
^DD(727.818,"RQ",1)=""
^DD(727.818,"RQ",2)=""
^DD(727.818,"RQ",3)=""
^DD(727.818,"RQ",4)=""
^DD(727.818,"RQ",5)=""
^DD(727.818,"RQ",6)=""
^DD(727.818,"RQ",7)=""
^DD(727.818,"RQ",8)=""
^DD(727.818,"RQ",9)=""
^DD(727.818,"RQ",11)=""
^DD(727.818,"RQ",12)=""
^DD(727.818,"RQ",13)=""
^DD(727.818,"RQ",14)=""
^DD(727.818,"RQ",15)=""
^DD(727.818,"RQ",21)=""
^DD(727.818,"RQ",22)=""
^DD(727.818,"RQ",23)=""
^DD(727.818,"RQ",35)=""
^DD(727.819,0)="FIELD^^79^86"
^DD(727.819,0,"DDA")="N"
^DD(727.819,0,"DIK")="ECX819"
^DD(727.819,0,"DIKOLD")="ECX819"
^DD(727.819,0,"DT")="3021010"
^DD(727.819,0,"IX","AC",727.819,2)=""
^DD(727.819,0,"NM","IV DETAIL EXTRACT")=""
^DD(727.819,0,"VR")="3.0"
^DD(727.819,0,"VRPK")="ECX"
^DD(727.819,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.819,.01,.1)="Sequence Number"
^DD(727.819,.01,1,0)="^.1^^0"
^DD(727.819,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.819,.01,21,0)="^^1^1^2960925^^^^"
^DD(727.819,.01,21,1,0)="The record number for this extract entry."
^DD(727.819,.01,23,0)="^^1^1^2960925^^^"
^DD(727.819,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.819,.01,"DT")="2980812"
^DD(727.819,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.819,1,.1)="Year/Month"
^DD(727.819,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.819,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.819,1,3)="Answer must be 6 characters in length."
^DD(727.819,1,21,0)="^^2^2^2970922^^^^"
^DD(727.819,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.819,1,21,2,0)="for which this extract was performed."
^DD(727.819,1,23,0)="^^1^1^2970922^^^^"
^DD(727.819,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.819,1,"DT")="2970924"
^DD(727.819,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.819,2,.1)="Extract Number"
^DD(727.819,2,1,0)="^.1"
^DD(727.819,2,1,1,0)="727.819^AC"
^DD(727.819,2,1,1,1)="S ^ECX(727.819,""AC"",$E(X,1,30),DA)="""""
^DD(727.819,2,1,1,2)="K ^ECX(727.819,""AC"",$E(X,1,30),DA)"
^DD(727.819,2,1,1,3)="DO NOT DELETE."
^DD(727.819,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.819,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.819,2,1,1,"%D",2,0)="in this file."
^DD(727.819,2,1,1,"DT")="2910802"
^DD(727.819,2,3)="Enter the extract number for this extract."
^DD(727.819,2,21,0)="^^2^2^2960925^^^^"
^DD(727.819,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.819,2,21,2,0)="extract."
^DD(727.819,2,23,0)="^^2^2^2960925^^^^"
^DD(727.819,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.819,2,23,2,0)="pick up the header for the mail message."
^DD(727.819,2,"DT")="2960925"
^DD(727.819,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.819,3,.1)="Facility"
^DD(727.819,3,3)="Enter the station number where this extract was performed."
^DD(727.819,3,21,0)="^^1^1^2990810^^^^"
^DD(727.819,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.819,3,23,0)="^^14^14^2990810^^^^"
^DD(727.819,3,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,3,23,2,0)="An indicator of the division where this event happened. Using the NAME "
^DD(727.819,3,23,3,0)="field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "
^DD(727.819,3,23,4,0)="derived from the STATION NUMBER field (99) for that pointer number in "
^DD(727.819,3,23,5,0)="the INSTITUTION file (#4)."
^DD(727.819,3,23,6,0)="  "
^DD(727.819,3,23,7,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,3,23,8,0)="For inpatients: "
^DD(727.819,3,23,9,0)="Derived from the DIVISION field (3.5) in the HOSPITAL LOCATION "
^DD(727.819,3,23,10,0)="file (#44) for the ward identified in the WARD LOCATION file (#42)."
^DD(727.819,3,23,11,0)="For outpatients with IV orders: "
^DD(727.819,3,23,12,0)="Derived from the DIVISION field (.02) in the IV ROOM file (#59.5) for "
^DD(727.819,3,23,13,0)="the IV room identified by the IV ROOM field (.22) in the IV multiple "
^DD(727.819,3,23,14,0)="(100) of the PHARMACY PATIENT file (#55)."
^DD(727.819,3,"DT")="2961017"
^DD(727.819,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.819,4,.1)="Patient No. - DFN"
^DD(727.819,4,3)="Enter the name of the patient for this extract record."
^DD(727.819,4,21,0)="^^1^1^2990504^^^^"
^DD(727.819,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.819,4,23,0)="^^10^10^2990504^^"
^DD(727.819,4,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,4,23,2,0)="Derived from the PATIENT field (.01) within the PATIENT multiple "
^DD(727.819,4,23,3,0)="(8) within the IV DRUG multiple (2) within the DATE multiple (2) of "
^DD(727.819,4,23,4,0)="the IV STATS file (#50.8). PATIENT NO. - DFN is a pointer to the NAME"
^DD(727.819,4,23,5,0)="field (.01) of the PATIENT file (#2). This data represents the patient"
^DD(727.819,4,23,6,0)="DFN."
^DD(727.819,4,23,7,0)="  "
^DD(727.819,4,23,8,0)="For sites running Inpatient Medications V. 4.5 or higher: Pointer to the"
^DD(727.819,4,23,9,0)="NAME field (.01) of the PATIENT file (#2). PATIENT NO. - DFN data is"
^DD(727.819,4,23,10,0)="derived from the DFN field (1) of the IV EXTRACT DATA file (#728.113)."
^DD(727.819,4,"DT")="2961017"
^DD(727.819,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.819,5,.1)="Social Security Number"
^DD(727.819,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.819,5,21,0)="^^4^4^2990504^^^^"
^DD(727.819,5,21,1,0)="The patient's social security number."
^DD(727.819,5,21,2,0)=" "
^DD(727.819,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.819,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.819,5,23,0)="^^6^6^2990504^^"
^DD(727.819,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.819,5,23,2,0)="in the IV DETAIL EXTRACT file (#727.819), SSN data is derived from the"
^DD(727.819,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.819,5,23,4,0)=" "
^DD(727.819,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.819,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.819,5,"DT")="2960925"
^DD(727.819,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.819,6,.1)="Name"
^DD(727.819,6,3)="Your answer must be 4 characters in length."
^DD(727.819,6,21,0)="^^1^1^2960925^^^^"
^DD(727.819,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.819,6,23,0)="^^4^4^2961017^"
^DD(727.819,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.819,6,23,2,0)="in the IV DETAIL EXTRACT file (#727.819), NAME data is derived from the"
^DD(727.819,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). The first four characters of"
^DD(727.819,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.819,6,"DT")="2960925"
^DD(727.819,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,7,.1)="In Out Patient Indicator"
^DD(727.819,7,3)="Answer must be 1 character in length."
^DD(727.819,7,21,0)="^.001^2^2^3011206^^^^"
^DD(727.819,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.819,7,21,2,0)="extract entry."
^DD(727.819,7,23,0)="^.001^3^3^3011206^^"
^DD(727.819,7,23,1,0)="This field formerly contained a 1=Outpatient or 3=Inpatient. In FY2002,"
^DD(727.819,7,23,2,0)="this field has been changed to free text and will contain ""O""=Outpatient"
^DD(727.819,7,23,3,0)="or ""I""=Inpatient."
^DD(727.819,7,"DT")="3011206"
^DD(727.819,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.819,8,.1)="Day"
^DD(727.819,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.819,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.819,8,3)="Answer must be 8 characters in length."
^DD(727.819,8,21,0)="^^2^2^2970922^^^^"
^DD(727.819,8,21,1,0)="An 8-character numeric string that represents the date on which the"
^DD(727.819,8,21,2,0)="IV medication was dispensed."
^DD(727.819,8,23,0)="^^15^15^2970923^^^^"
^DD(727.819,8,23,1,0)="Data source:"
^DD(727.819,8,23,2,0)="  "
^DD(727.819,8,23,3,0)="For sites running a version prior to Inpatient Medications v4.5 --"
^DD(727.819,8,23,4,0)="IV STATS file (#50.8); DATE sub-file (#50.803); DATE field (#.01)"
^DD(727.819,8,23,5,0)=" "
^DD(727.819,8,23,6,0)="For sites running Inpatient Medications v4.5 or higher:"
^DD(727.819,8,23,7,0)="IV EXTRACT DATA file (#728.113); DATE/TIME field (#4)"
^DD(727.819,8,23,8,0)="which is set by routine PSIVSTAT and is always the current date/time,"
^DD(727.819,8,23,9,0)="i.e., NOW."
^DD(727.819,8,23,10,0)=" "
^DD(727.819,8,23,11,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.819,8,23,12,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.819,8,23,13,0)="then a default is used.  The default date value is the value of the "
^DD(727.819,8,23,14,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.819,8,23,15,0)="Year 2000 compliant per vendor."
^DD(727.819,8,"DT")="2970924"
^DD(727.819,9,0)="VA DRUG CLASSIFICATION^F^^0;10^K:$L(X)>5!($L(X)<5) X"
^DD(727.819,9,.1)="VA Drug Classification"
^DD(727.819,9,3)="Your answer must be 5 characters in length."
^DD(727.819,9,21,0)="^^1^1^2961127^^^^"
^DD(727.819,9,21,1,0)="The VA Drug Classification for the item in this order."
^DD(727.819,9,23,0)="^^18^18^2971113^^^^"
^DD(727.819,9,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,9,23,2,0)="Derived from the VA CLASSIFICATION field (2) in the DRUG file (#50) "
^DD(727.819,9,23,3,0)="for the drug identified by the GENERIC DRUG field (1) in either the "
^DD(727.819,9,23,4,0)="IV ADDITIVES file (#52.6) for additives or the IV SOLUTIONS file "
^DD(727.819,9,23,5,0)="(#52.7) for solutions."
^DD(727.819,9,23,6,0)="  "
^DD(727.819,9,23,7,0)="Using the ""AC"" cross reference on the IV STATS file (#50.8) and a "
^DD(727.819,9,23,8,0)="^TMP( array built from the ""AC"" cross reference, GENERIC DRUG is "
^DD(727.819,9,23,9,0)="derived from the following:"
^DD(727.819,9,23,10,0)=" the IV DRUG field (.01),"
^DD(727.819,9,23,11,0)=" the TYPE field (6), and"
^DD(727.819,9,23,12,0)=" the IEN of the additive or solution for the IV DRUG within the IV DRUG "
^DD(727.819,9,23,13,0)=" multiple (2) of the DATE multiple (2) of the IV STATS file (#50.8)."
^DD(727.819,9,23,14,0)="  "
^DD(727.819,9,23,15,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,9,23,16,0)="Derived from the VA CLASSIFICATION field (2) in the DRUG file (#50) "
^DD(727.819,9,23,17,0)="for the drug identified by the DRUG field (3) in the IV EXTRACT DATA "
^DD(727.819,9,23,18,0)="file (#728.113)."
^DD(727.819,9,"DT")="2960925"
^DD(727.819,10,0)="QUANTITY^NJ8,2^^0;11^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(727.819,10,.1)="Quantity"
^DD(727.819,10,3)="Enter a number between 0 and 10000, 2 decimal digits."
^DD(727.819,10,21,0)="^^1^1^2990511^^^^"
^DD(727.819,10,21,1,0)="Quantity dispensed."
^DD(727.819,10,23,0)="^^12^12^2990511^^^^"
^DD(727.819,10,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,10,23,2,0)="Derived from the DISPENSED UNITS (PATIENT) field (1) minus the RETURNED "
^DD(727.819,10,23,3,0)="UNITS (PATIENT) field (2) minus the CANCELED UNITS (PATIENT) field (5). "
^DD(727.819,10,23,4,0)="These fields are in the PATIENT multiple (8) of the IV DRUG multiple (2) "
^DD(727.819,10,23,5,0)="within the DATE multiple (2) of the IV STATS file (#50.8)."
^DD(727.819,10,23,6,0)="  "
^DD(727.819,10,23,7,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,10,23,8,0)="Quantity is calculated by incrementing a counter based upon the value "
^DD(727.819,10,23,9,0)="found in the TRANSACTION TYPE field (5) in the IV EXTRACT DATA file "
^DD(727.819,10,23,10,0)="(#728.113). If TRANSACTION TYPE equals 1 for DISPENSED, the counter is "
^DD(727.819,10,23,11,0)="incremented by 1; if 4 for CANCELED, no change is made to the counter; "
^DD(727.819,10,23,12,0)="if 2 for RETURNED or 3 for DESTROYED, the counter is decremented by 1."
^DD(727.819,10,"DT")="2960925"
^DD(727.819,11,0)="WARD^P44'^SC(^0;12^Q"
^DD(727.819,11,.1)="Ward"
^DD(727.819,11,3)="Enter the ward location for this patient."
^DD(727.819,11,21,0)="^^1^1^2990810^^^^"
^DD(727.819,11,21,1,0)="The ward on which this patient's IV drug was administered."
^DD(727.819,11,23,0)="^^16^16^2990810^^^^"
^DD(727.819,11,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,11,23,2,0)="Ward is derived from the WARD PTR field (4) in the PATIENT multiple "
^DD(727.819,11,23,3,0)="(8) of the IV DRUG multiple (2) within the DATE multiple (2) of the "
^DD(727.819,11,23,4,0)="IV STATS file (#50.8) which is a pointer to the WARD LOCATION file "
^DD(727.819,11,23,5,0)="(#42). Using the ward pointer, the data is derived from the HOSPITAL "
^DD(727.819,11,23,6,0)="LOCATION FILE POINTER field (44) in the WARD LOCATION file (#42) which "
^DD(727.819,11,23,7,0)="is a pointer to the HOSPITAL LOCATION file (#44). For outpatient IVs, "
^DD(727.819,11,23,8,0)="WARD is set to ""CLI""."
^DD(727.819,11,23,9,0)="  "
^DD(727.819,11,23,10,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,11,23,11,0)="This field is initialized to .5, indicating an outpatient status. A "
^DD(727.819,11,23,12,0)="call is made to IN5^VADPT using the patient IEN and the event date. "
^DD(727.819,11,23,13,0)="If data is returned identifying an inpatient episode, the value of "
^DD(727.819,11,23,14,0)="VAIP(5), ward location, is used to get the HOSPITAL LOCATION FILE "
^DD(727.819,11,23,15,0)="POINTER field (44) in the WARD LOCATION file (#42) which is a pointer "
^DD(727.819,11,23,16,0)="to the HOSPITAL LOCATION file (#44)."
^DD(727.819,11,"DT")="2960925"
^DD(727.819,13,0)="COST^NJ8,2^^0;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>10000)!(X<0) X"
^DD(727.819,13,.1)="Cost"
^DD(727.819,13,3)="Enter a dollar amount between 0 and 10000, 2 decimal digits."
^DD(727.819,13,21,0)="^^1^1^2960925^^"
^DD(727.819,13,21,1,0)="Cost of drug dispensed for this patient."
^DD(727.819,13,23,0)="^^10^10^2960925^^^"
^DD(727.819,13,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,13,23,2,0)="COST is derived from the QUANTITY field (10) in the IV DETAIL EXTRACT "
^DD(727.819,13,23,3,0)="file (#727.819) multiplied by the price. Price comes from the AVERAGE "
^DD(727.819,13,23,4,0)="DRUG COST PER UNIT field (4) of the IV DRUG multiple (2) within the DATE "
^DD(727.819,13,23,5,0)="multiple (2) of the IV STATS file (#50.8)."
^DD(727.819,13,23,6,0)="  "
^DD(727.819,13,23,7,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,13,23,8,0)="Calculated by multiplying the COST field (12) in the IV EXTRACT DATA "
^DD(727.819,13,23,9,0)="file (#728.113) by the QUANTITY field (10) in the IV DETAIL EXTRACT "
^DD(727.819,13,23,10,0)="file (#727.819) above."
^DD(727.819,13,"DT")="2960925"
^DD(727.819,14,0)="MOVEMENT FILE #^P405'^DGPM(^0;14^Q"
^DD(727.819,14,.1)="Movement File Number"
^DD(727.819,14,3)="Enter the patient movement number associated with this extract record."
^DD(727.819,14,21,0)="^^1^1^2961017^^^"
^DD(727.819,14,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.819,14,23,0)="^^4^4^2961017^^^"
^DD(727.819,14,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.819,14,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.819,14,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.819,14,23,4,0)="(#405)."
^DD(727.819,14,"DT")="2960925"
^DD(727.819,15,0)="TREATING SPECIALTY^F^^0;15^K:$L(X)>3!($L(X)<2) X"
^DD(727.819,15,.1)="Treating Specialty"
^DD(727.819,15,3)="Answer must be 2-3 characters in length"
^DD(727.819,15,21,0)="^^2^2^3070502^"
^DD(727.819,15,21,1,0)="The PTF CODE of the treating specialty associated with this extract"
^DD(727.819,15,21,2,0)="record."
^DD(727.819,15,23,0)="^.001^9^9^3070502^^"
^DD(727.819,15,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.819,15,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.819,15,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.819,15,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.819,15,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.819,15,23,6,0)="SPECIALTY file (#42.4)."
^DD(727.819,15,23,7,0)=" "
^DD(727.819,15,23,8,0)="Then, the PTF Code is obtained and stored instead of the actual specialty"
^DD(727.819,15,23,9,0)="code."
^DD(727.819,15,"DT")="3070420"
^DD(727.819,16,0)="NDC^F^^0;16^K:$L(X)>15!($L(X)<1) X"
^DD(727.819,16,.1)="National Drug Code"
^DD(727.819,16,3)="Your answer must be 1 to 15 characters in length."
^DD(727.819,16,21,0)="^^1^1^2990511^^^^"
^DD(727.819,16,21,1,0)="This is the National Drug Code for the drug/supply item in this order."
^DD(727.819,16,23,0)="^^17^17^2990511^^^^"
^DD(727.819,16,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,16,23,2,0)="Derived from the NDC field (31) in the DRUG file (#50) for the drug "
^DD(727.819,16,23,3,0)="identified by the GENERIC DRUG field (1) in either the IV ADDITIVES "
^DD(727.819,16,23,4,0)="file (#52.6) for additives or the IV SOLUTIONS file (#52.7) for "
^DD(727.819,16,23,5,0)="solutions."
^DD(727.819,16,23,6,0)="  "
^DD(727.819,16,23,7,0)="Using the ""AC"" cross reference on the IV STATS file (#50.8) and a "
^DD(727.819,16,23,8,0)="^TMP( array built from the ""AC"" cross reference, GENERIC DRUG is "
^DD(727.819,16,23,9,0)="derived from the following:"
^DD(727.819,16,23,10,0)=" the IV DRUG field (.01),"
^DD(727.819,16,23,11,0)=" the TYPE field (6), and"
^DD(727.819,16,23,12,0)=" the IEN of the additive or solution for the IV DRUG within the IV DRUG "
^DD(727.819,16,23,13,0)=" multiple (2) of the DATE multiple (2) of the IV STATS file (#50.8)."
^DD(727.819,16,23,14,0)="  "
^DD(727.819,16,23,15,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,16,23,16,0)="Derived from the NDC field (31) in the DRUG file (#50) for the drug "
^DD(727.819,16,23,17,0)="identified by the DRUG field (3) in the IV EXTRACT DATA file (#728.113)."
^DD(727.819,16,"DT")="2960925"
^DD(727.819,17,0)="INVESTIGATIONAL^S^I:INVESTIGATIONAL;^0;17^Q"
^DD(727.819,17,.1)="Investigational"
^DD(727.819,17,3)="Enter I if the drug is investigational."
^DD(727.819,17,21,0)="^^2^2^2990511^^^"
^DD(727.819,17,21,1,0)="This field contains the letter I if the drug in this record is "
^DD(727.819,17,21,2,0)="investigational. Otherwise it is null."
^DD(727.819,17,23,0)="^^2^2^2990511^^^"
^DD(727.819,17,23,1,0)="Derived from the DEA, SPECIAL HDLG field (3) in the DRUG file (#50)."
^DD(727.819,17,23,2,0)="If the DEA, SPECIAL HDLG field contains an I, this field is set to I."
^DD(727.819,17,"DT")="2960925"
^DD(727.819,18,0)="PHARMACY IV DISPENSING FEE^F^^0;18^K:$L(X)>2!($L(X)<1) X"
^DD(727.819,18,.1)="Pharmacy IV Dispensing Fee"
^DD(727.819,18,3)="Your answer must be 1 to 2 characters in length."
^DD(727.819,18,21,0)="^^2^2^2990511^^^^"
^DD(727.819,18,21,1,0)="The type of IV dispensed - A for admixture, C for chemotherapy, "
^DD(727.819,18,21,2,0)="H for hyperal, P for piggyback, or S for syringe."
^DD(727.819,18,23,0)="^^12^12^2990511^^^"
^DD(727.819,18,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,18,23,2,0)="This field is set to null."
^DD(727.819,18,23,3,0)="  "
^DD(727.819,18,23,4,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,18,23,5,0)="Derived from the TYPE field (11) of the IV EXTRACT DATA file (#728.113). "
^DD(727.819,18,23,6,0)="TYPE is the type of IV dispensed - A for admixture, C for chemotherapy, "
^DD(727.819,18,23,7,0)="H for hyperal, P for piggyback, or S for syringe."
^DD(727.819,18,23,8,0)="  "
^DD(727.819,18,23,9,0)="If the TYPE is H for hyperal (TPN), the SOLUTION VOLUME is calculated. "
^DD(727.819,18,23,10,0)="This field is sent as H1 if the volume is less than or equal 1000 ML, "
^DD(727.819,18,23,11,0)="H2 if the volume is less than or equal 2000 ML, and H3 if the volume is "
^DD(727.819,18,23,12,0)="greater than 2000 ML."
^DD(727.819,18,"DT")="2960925"
^DD(727.819,19,0)="NEW FEEDER KEY^F^^0;19^K:$L(X)>19!($L(X)<17) X"
^DD(727.819,19,.1)="New Feeder Key"
^DD(727.819,19,3)="Answer must be 17-19 characters in length."
^DD(727.819,19,21,0)="^^5^5^2990510^^^^"
^DD(727.819,19,21,1,0)="The Feeder Key for the drug in this record.  The format of the Feeder Key"
^DD(727.819,19,21,2,0)="depends on the version of NATIONAL DRUG FILE installed at the site.  If the"
^DD(727.819,19,21,3,0)="site is running NDF v4.0 (or later), the Feeder Key has a 17-digit format."
^DD(727.819,19,21,4,0)="If the site is running an earlier version of NDF, then the Feeder Key has"
^DD(727.819,19,21,5,0)="a 19-digit format."
^DD(727.819,19,23,0)="^^20^20^2990510^^^^"
^DD(727.819,19,23,1,0)="NEW FEEDER KEY is derived for the drug identified by the DRUG field "
^DD(727.819,19,23,2,0)="(#6) in the PRESCRIPTION file (#52), which is a pointer to the DRUG"
^DD(727.819,19,23,3,0)="file (#50)."
^DD(727.819,19,23,4,0)="  "
^DD(727.819,19,23,5,0)="If the sites is running a version of NDF prior to NDF v4.0:"
^DD(727.819,19,23,6,0)="The NATIONAL DRUG FILE ENTRY field (#20) from the DRUG file (#50),"
^DD(727.819,19,23,7,0)="which is a pointer to the NATIONAL DRUG file (#50.6), is padded to"
^DD(727.819,19,23,8,0)="4 digits.  The PSNDF VA PRODUCT NAME ENTRY field (#22) from the "
^DD(727.819,19,23,9,0)="DRUG file (#50), which is a pointer to the VA Product Name in the"
^DD(727.819,19,23,10,0)="NATIONAL DRUG file (#50.6), is padded to 3 digits. These two data"
^DD(727.819,19,23,11,0)="elements are concatenated together to form a 7-digit string."
^DD(727.819,19,23,12,0)="This is concatenated with a 12-digit code derived from the NDC field"
^DD(727.819,19,23,13,0)="(#31) from the DRUG file (#50) to form a 19-digit Feeder Key."
^DD(727.819,19,23,14,0)="  "
^DD(727.819,19,23,15,0)="If the site is running NDF v4.0 (or later):"
^DD(727.819,19,23,16,0)="The PSNDF VA PRODUCT NAME ENTRY field (#22) from the DRUG file (#50), "
^DD(727.819,19,23,17,0)="which is a pointer to the VA PRODUCT file (#50.68) is padded to 5"
^DD(727.819,19,23,18,0)="digits.  This is concatenated with a 12-digit code derived from the"
^DD(727.819,19,23,19,0)="NDC field (#31) from the DRUG file (#50) to form a 17-digit Feeder"
^DD(727.819,19,23,20,0)="Key."
^DD(727.819,19,"DT")="2990510"
^DD(727.819,20,0)="TOTAL DOSES PER DAY^F^^0;20^K:$L(X)>20!($L(X)<1) X"
^DD(727.819,20,.1)="Total Doses Per Day"
^DD(727.819,20,3)="Your answer must be 1 to 20 characters in length."
^DD(727.819,20,21,0)="^^1^1^2990511^^^"
^DD(727.819,20,21,1,0)="The total doses per day including units."
^DD(727.819,20,23,0)="^^9^9^2990511^^^"
^DD(727.819,20,23,1,0)="For sites running a version of Inpatient Medications prior to V. 4.5:"
^DD(727.819,20,23,2,0)="This field is set to null."
^DD(727.819,20,23,3,0)="  "
^DD(727.819,20,23,4,0)="For sites running Inpatient Medications V. 4.5 or higher:"
^DD(727.819,20,23,5,0)="For additives, TOTAL DOSES PER DAY is derived from the ADDITIVE STRENGTH "
^DD(727.819,20,23,6,0)="field (6) and the ADDITIVE STRENGTH UNITS field (7) from the IV EXTRACT "
^DD(727.819,20,23,7,0)="DATA file (#728.113)."
^DD(727.819,20,23,8,0)="For solutions, TOTAL DOSES PER DAY is derived from the SOLUTION VOLUME"
^DD(727.819,20,23,9,0)="field (8), recorded in MLs, from the IV EXTRACT DATA file (#728.113)."
^DD(727.819,20,"DT")="2960925"
^DD(727.819,21,0)="PRIMARY CARE TEAM^F^^0;21^K:$L(X)>4!($L(X)<1) X"
^DD(727.819,21,.1)="Primary Care Team"
^DD(727.819,21,3)="Enter primary care team assigned to this patient."
^DD(727.819,21,21,0)="^^1^1^2961104^^^^"
^DD(727.819,21,21,1,0)="The primary care team assigned to this patient."
^DD(727.819,21,23,0)="^^11^11^2961104^^^^"
^DD(727.819,21,23,1,0)="DATE is defined by one of two methods. For sites running a version of "
^DD(727.819,21,23,2,0)="Inpatient Medications prior to V. 4.5, DATE is defined by the DATE field "
^DD(727.819,21,23,3,0)="(.01) of the DATE multiple (2) in the IV STATS file (#50.8). For sites "
^DD(727.819,21,23,4,0)="running Inpatient Medications V. 4.5 or higher, DATE is defined by the "
^DD(727.819,21,23,5,0)="DATE/TIME field (4) of the IV EXTRACT DATA file (#728.113)."
^DD(727.819,21,23,6,0)="  "
^DD(727.819,21,23,7,0)="Using the DATE and the patient pointer (DFN) stored in the PATIENT NO. - "
^DD(727.819,21,23,8,0)="DFN field (4) in the IV DETAIL EXTRACT file (#727.819), a call is made "
^DD(727.819,21,23,9,0)="to the Scheduling API, OUTPTTM^SDUTL3. The API returns the team's "
^DD(727.819,21,23,10,0)="internal entry number and name from the TEAM file (#404.51). Only the "
^DD(727.819,21,23,11,0)="pointer (IEN) to File 404.51 is transmitted."
^DD(727.819,21,"DT")="2961104"
^DD(727.819,22,0)="PRIMARY CARE PROVIDER^F^^0;22^K:$L(X)>11!($L(X)<1) X"
^DD(727.819,22,.1)="Primary Care Provider"
^DD(727.819,22,3)="Enter primary care provider assigned to this patient."
^DD(727.819,22,21,0)="^^1^1^2980708^^^^"
^DD(727.819,22,21,1,0)="The primary care provider assigned to this patient."
^DD(727.819,22,23,0)="^^13^13^2980708^^^^"
^DD(727.819,22,23,1,0)="DATE is defined by one of two methods. For sites running a version of "
^DD(727.819,22,23,2,0)="Inpatient Medications prior to V. 4.5, DATE is defined by the DATE field "
^DD(727.819,22,23,3,0)="(.01) of the DATE multiple (2) in the IV STATS file (#50.8). For sites "
^DD(727.819,22,23,4,0)="running Inpatient Medications V. 4.5 or higher, DATE is defined by the "
^DD(727.819,22,23,5,0)="DATE/TIME field (4) of the IV EXTRACT DATA file (#728.113)."
^DD(727.819,22,23,6,0)="  "
^DD(727.819,22,23,7,0)="Using the DATE and the patient pointer (DFN) stored in the PATIENT NO. - "
^DD(727.819,22,23,8,0)="DFN field (4) in the IV DETAIL EXTRACT file (#727.819), a call is made "
^DD(727.819,22,23,9,0)="to the Scheduling API, OUTPTPR^SDUTL3. The API returns the provider's "
^DD(727.819,22,23,10,0)="internal entry number and name from the NEW PERSON file (#200). "
^DD(727.819,22,23,11,0)=" "
^DD(727.819,22,23,12,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.819,22,23,13,0)="is ""200""."
^DD(727.819,22,"DT")="2961017"
^DD(727.819,23,0)="IVP TIME^FO^^0;23^K:$L(X)>6!($L(X)<6) X"
^DD(727.819,23,.1)="IVP Time"
^DD(727.819,23,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.819,23,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.819,23,3)="Answer must be 6 characters in length."
^DD(727.819,23,21,0)="^^2^2^2970922^^^^"
^DD(727.819,23,21,1,0)="A 6-character numeric string representing the time of day when the IV"
^DD(727.819,23,21,2,0)="medication was dispensed."
^DD(727.819,23,23,0)="^^12^12^2970922^^^^"
^DD(727.819,23,23,1,0)="Data source:"
^DD(727.819,23,23,2,0)=" "
^DD(727.819,23,23,3,0)="For sites running a version prior to Inpatient Medications v4.5 --"
^DD(727.819,23,23,4,0)="IV STATS file (#50.8); DATE sub-file (#50.803); DATE field (#.01)"
^DD(727.819,23,23,5,0)=" "
^DD(727.819,23,23,6,0)="For sites running Inpatient Medications v4.5 or higher:"
^DD(727.819,23,23,7,0)="IV EXTRACT DATA file (#728.113); DATE/TIME field (#4)"
^DD(727.819,23,23,8,0)="which is set by routine PSIVSTAT and is always the current date/time,"
^DD(727.819,23,23,9,0)="i.e., NOW."
^DD(727.819,23,23,10,0)=" "
^DD(727.819,23,23,11,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.819,23,23,12,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.819,23,"DT")="2970924"
^DD(727.819,24,0)="ADMISSION DATE^FO^^0;24^K:$L(X)>8!($L(X)<8) X"
^DD(727.819,24,.1)="Admission Date"
^DD(727.819,24,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.819,24,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.819,24,3)="Answer must be 8 characters in length."
^DD(727.819,24,21,0)="^^2^2^2970922^^^^"
^DD(727.819,24,21,1,0)="An 8-character numeric string that represents the Admission date for"
^DD(727.819,24,21,2,0)="IV medications dispensed to inpatients."
^DD(727.819,24,23,0)="^^10^10^2971113^^^^"
^DD(727.819,24,23,1,0)="Data source:"
^DD(727.819,24,23,2,0)=" "
^DD(727.819,24,23,3,0)="IV EXTRACT DATA file (#728.113); DFN field (#1)"
^DD(727.819,24,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.819,24,23,5,0)=" "
^DD(727.819,24,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.819,24,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.819,24,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.819,24,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.819,24,23,10,0)="Year 2000 compliant per vendor."
^DD(727.819,24,"DT")="2970924"
^DD(727.819,25,0)="ADMISSION TIME^FO^^0;25^K:$L(X)>6!($L(X)<6) X"
^DD(727.819,25,.1)="Admission Time"
^DD(727.819,25,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.819,25,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.819,25,3)="Answer must be 6 characters in length."
^DD(727.819,25,21,0)="^^2^2^2970922^^^^"
^DD(727.819,25,21,1,0)="A 6-character numeric string that represents the time of the patient's"
^DD(727.819,25,21,2,0)="Admission for IV medications dispensed to inpatients."
^DD(727.819,25,23,0)="^^7^7^2971113^^^^"
^DD(727.819,25,23,1,0)="Data source:"
^DD(727.819,25,23,2,0)=" "
^DD(727.819,25,23,3,0)="IV EXTRACT DATA file (#728.113); DFN field (#1)"
^DD(727.819,25,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.819,25,23,5,0)=" "
^DD(727.819,25,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.819,25,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.819,25,"DT")="2970924"
^DD(727.819,26,0)="DSS IDENTIFIER FOR ENCOUNTER^F^^0;26^K:$L(X)>6!($L(X)<6) X"
^DD(727.819,26,3)="Answer must be 6 characters in length."
^DD(727.819,26,21,0)="^^3^3^2980925^^^^"
^DD(727.819,26,21,1,0)="If the IV was provided to an outpatient, this field contains the"
^DD(727.819,26,21,2,0)="DSS Identifier for the clinic associated with the outpatient"
^DD(727.819,26,21,3,0)="encounter."
^DD(727.819,26,23,0)="1^^3^3^2980925^^"
^DD(727.819,26,23,1,0)="File #728.113 contains a pointer to HOSPITAL LOCATION (file #44)."
^DD(727.819,26,23,2,0)="Using this pointer, obtain the primary and secondary clinic"
^DD(727.819,26,23,3,0)="stop codes from the CLINIC AND STOP CODES file (#728.44)."
^DD(727.819,26,"DT")="2970922"
^DD(727.819,27,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.819,27,3)="Answer must be 1-10 characters in length."
^DD(727.819,27,21,0)="^^1^1^2990504^"
^DD(727.819,27,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.819,27,23,0)="^^2^2^2990504^"
^DD(727.819,27,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.819,27,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.819,27,"DT")="2990504"
^DD(727.819,28,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.819,28,.1)=""
^DD(727.819,28,3)="Answer must be 1-10 characters in length"
^DD(727.819,28,21,0)="^.001^2^2^3040318^^^^"
^DD(727.819,28,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.819,28,21,2,0)="the Pharmacy care product."
^DD(727.819,28,23,0)="^^12^12^3040318^"
^DD(727.819,28,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.819,28,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.819,28,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.819,28,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.819,28,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.819,28,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.819,28,23,7,0)=" "
^DD(727.819,28,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as"
^DD(727.819,28,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.819,28,23,10,0)="designations are made.. If no match is found in file 727.6 an error"
^DD(727.819,28,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.819,28,23,12,0)="group identifying the problem."
^DD(727.819,28,"DT")="3040302"
^DD(727.819,29,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.819,29,3)="Answer must be 1-8 characters in length."
^DD(727.819,29,21,0)="^^1^1^3070827^"
^DD(727.819,29,21,1,0)="Currently NULL."
^DD(727.819,29,23,0)="^^1^1^3070827^"
^DD(727.819,29,23,1,0)="Currently NULL."
^DD(727.819,29,"DT")="3070426"
^DD(727.819,30,0)="PC PROVIDER PERSON CLASS^F^^1;4^K:$L(X)>7!($L(X)<7) X"
^DD(727.819,30,3)="Answer must be 7 characters in length."
^DD(727.819,30,21,0)="^^2^2^2981026^"
^DD(727.819,30,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.819,30,21,2,0)="associated with this record."
^DD(727.819,30,23,0)="^^6^6^2981026^"
^DD(727.819,30,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.819,30,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.819,30,23,3,0)="extract record."
^DD(727.819,30,23,4,0)="  "
^DD(727.819,30,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.819,30,23,6,0)="7 characters in length."
^DD(727.819,30,"DT")="2981026"
^DD(727.819,31,0)="ASSOCIATE PC PROVIDER^F^^1;5^K:$L(X)>11!($L(X)<2) X"
^DD(727.819,31,3)="Answer must be 2-11 characters in length."
^DD(727.819,31,21,0)="^^4^4^2990504^"
^DD(727.819,31,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.819,31,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.819,31,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.819,31,21,4,0)="character 2."
^DD(727.819,31,23,0)="^^2^2^2990504^"
^DD(727.819,31,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.819,31,23,2,0)="the PCMM application."
^DD(727.819,31,"DT")="2990504"
^DD(727.819,32,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;6^K:$L(X)>7!($L(X)<7) X"
^DD(727.819,32,3)="Answer must be 7 characters in length."
^DD(727.819,32,21,0)="^^4^4^2990505^^"
^DD(727.819,32,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.819,32,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.819,32,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.819,32,21,4,0)="exactly 7 characters in length. "
^DD(727.819,32,23,0)="^^3^3^2990505^^"
^DD(727.819,32,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.819,32,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.819,32,23,3,0)="PERS is the IEN from file #200."
^DD(727.819,32,"DT")="2990504"
^DD(727.819,33,0)="PLACEHOLDER^F^^1;7^K:$L(X)>8!($L(X)<1) X"
^DD(727.819,33,3)="Answer must be 1-8 characters in length."
^DD(727.819,33,21,0)="^^1^1^3070827^"
^DD(727.819,33,21,1,0)="Currently NULL."
^DD(727.819,33,23,0)="^^1^1^3070827^"
^DD(727.819,33,23,1,0)="Currently NULL."
^DD(727.819,33,"DT")="3070426"
^DD(727.819,34,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,34,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.819,34,21,0)="^^5^5^3001019^"
^DD(727.819,34,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.819,34,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.819,34,21,3,0)="Domiciliary (DOM)"
^DD(727.819,34,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.819,34,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.819,34,"DT")="3001010"
^DD(727.819,35,0)="OBSERVATION PATIENT INDICATOR^F^^1;9^K:$L(X)>4!($L(X)<1) X"
^DD(727.819,35,3)="Answer must be 1-4 characters in length."
^DD(727.819,35,21,0)="^^2^2^3011212^"
^DD(727.819,35,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.819,35,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.819,35,"DT")="3010814"
^DD(727.819,36,0)="ENCOUNTER NUMBER^F^^1;10^K:$L(X)>18!($L(X)<1) X"
^DD(727.819,36,3)="Answer must be 1-18 characters in length"
^DD(727.819,36,21,0)="^^3^3^3011212^"
^DD(727.819,36,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.819,36,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.819,36,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.819,36,"DT")="3010504"
^DD(727.819,37,0)="ORDERING PROVIDER^F^^1;11^K:$L(X)>11!($L(X)<2) X"
^DD(727.819,37,3)="Answer must be 2-11 characters in length"
^DD(727.819,37,21,0)="^^3^3^3011212^"
^DD(727.819,37,21,1,0)="This field contains the provider responsible for the order (prefaced with"
^DD(727.819,37,21,2,0)="a '2') and is a reference to the PROVIDER field (#.06) within the IV"
^DD(727.819,37,21,3,0)="multiple (#100) of the PHARMACY PATIENT file (#55)."
^DD(727.819,37,"DT")="3010508"
^DD(727.819,38,0)="ORDERING STOP CODE^F^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(727.819,38,3)="Answer must be 3 characters in length"
^DD(727.819,38,21,0)="^.001^2^2^3050613^^"
^DD(727.819,38,21,1,0)="This field contains the stop code associated with the order. This field is"
^DD(727.819,38,21,2,0)="set for outpatients only."
^DD(727.819,38,23,0)="^^15^15^3050613^"
^DD(727.819,38,23,1,0)="For outpatients the stop code is the primary stop code for the clinic"
^DD(727.819,38,23,2,0)="(first 3 characters of the DSS Identifier field of this extract). If none"
^DD(727.819,38,23,3,0)="exists, the value is set to null."
^DD(727.819,38,23,4,0)=" "
^DD(727.819,38,23,5,0)="For observation patients the stop code is translated using the following"
^DD(727.819,38,23,6,0)="table."
^DD(727.819,38,23,7,0)=" "
^DD(727.819,38,23,8,0)="Treating Specialty      Observation Stop Code"
^DD(727.819,38,23,9,0)="       18                      293"
^DD(727.819,38,23,10,0)="       23                      295"
^DD(727.819,38,23,11,0)="       24                      290"
^DD(727.819,38,23,12,0)="       36                      296"
^DD(727.819,38,23,13,0)="       41                      294"
^DD(727.819,38,23,14,0)="       65                      291"
^DD(727.819,38,23,15,0)="       94                      292"
^DD(727.819,38,"DT")="3021002"
^DD(727.819,39,0)="ORDERING DATE^F^^1;13^K:$L(X)>8!($L(X)<8) X"
^DD(727.819,39,3)="Answer must be 8 characters in length"
^DD(727.819,39,21,0)="^.001^1^1^3011212^^^"
^DD(727.819,39,21,1,0)="This field contains the date of the order in YYYYMMDD format."
^DD(727.819,39,"DT")="3010508"
^DD(727.819,40,0)="REQUESTING PHYSICIAN^F^^1;14^K:$L(X)>11!($L(X)<2) X"
^DD(727.819,40,3)="Answer must be 2-11 characters in length"
^DD(727.819,40,21,0)="^^1^1^3011212^"
^DD(727.819,40,21,1,0)="For future development; currently set to null."
^DD(727.819,40,"DT")="3010508"
^DD(727.819,41,0)="PRODUCTION DIVISION CODE^F^^1;15^K:$L(X)>6!($L(X)<3) X"
^DD(727.819,41,3)="Answer must be 3-6 characters in length"
^DD(727.819,41,21,0)="^.001^2^2^3060630^^^^"
^DD(727.819,41,21,1,0)="Represents the division where the work took place.  This is the facility"
^DD(727.819,41,21,2,0)="number where the work took place."
^DD(727.819,41,23,0)="^.001^4^4^3060630^^"
^DD(727.819,41,23,1,0)="Data comes from the DIVISION field (#.02) of the IV ROOM file (#59.5), "
^DD(727.819,41,23,2,0)="which is a pointer to the MEDICAL CENTER DIVISION file (#40.8). This value"
^DD(727.819,41,23,3,0)="is then used to call the api GETDIV^ECXDEPT to get the STATION NUMBER"
^DD(727.819,41,23,4,0)="field (#99) from the INSTITUTION file (#4).           "
^DD(727.819,41,"DT")="3020719"
^DD(727.819,42,0)="MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^1;16^Q"
^DD(727.819,42,.1)="Means Test"
^DD(727.819,42,3)="Select the appropriate means test category."
^DD(727.819,42,21,0)="^^1^1^3020612^"
^DD(727.819,42,21,1,0)="The current means test category for this patient."
^DD(727.819,42,23,0)="^^6^6^3020612^"
^DD(727.819,42,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.819,42,23,2,0)="in the IV DETAIL EXTRACT file (#727.819), MEANS TEST data is derived"
^DD(727.819,42,23,3,0)="from the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file (#2)."
^DD(727.819,42,23,4,0)="This field is a pointer to the MEANS TEST STATUS file (#408.32).  Using"
^DD(727.819,42,23,5,0)="the means test pointer, the data is derived from the CODE field (#.02) in"
^DD(727.819,42,23,6,0)="the MEANS TEST STATUS file (#408.32)."
^DD(727.819,42,"DT")="3020612"
^DD(727.819,43,0)="ELIGIBILITY^F^^1;17^K:$L(X)>3!($L(X)<1) X"
^DD(727.819,43,.1)="Eligibility"
^DD(727.819,43,3)="Answer must be 1-3 characters in length"
^DD(727.819,43,21,0)="^^1^1^3020612^"
^DD(727.819,43,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.819,43,23,0)="^^11^11^3020612^"
^DD(727.819,43,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.819,43,23,2,0)="in the IV DETAIL EXTRACT file (#727.819), ELIGIBILITY data is derived from"
^DD(727.819,43,23,3,0)="the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file (#2)."
^DD(727.819,43,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8)."
^DD(727.819,43,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (8) in the"
^DD(727.819,43,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS"
^DD(727.819,43,23,7,0)="ELIGIBILITY CODE file (#8.1)."
^DD(727.819,43,23,8,0)=" "
^DD(727.819,43,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.819,43,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.819,43,23,11,0)="two or three numeric characters."
^DD(727.819,43,"DT")="3020612"
^DD(727.819,44,0)="DATE OF BIRTH^F^^1;18^K:$L(X)>8!($L(X)<8) X"
^DD(727.819,44,.1)="Date of Birth"
^DD(727.819,44,3)="Answer must be 8 characters in length"
^DD(727.819,44,21,0)="^^2^2^3020612^"
^DD(727.819,44,21,1,0)="The patient's date of birth between December 31,1870 and today's date"
^DD(727.819,44,21,2,0)="represented by an 8-character numeric string."
^DD(727.819,44,23,0)="^^9^9^3020612^"
^DD(727.819,44,23,1,0)="Data source:"
^DD(727.819,44,23,2,0)=" "
^DD(727.819,44,23,3,0)="PATIENT MOVEMENT file (#405); PATIENT field (#.03)"
^DD(727.819,44,23,4,0)="then to PATIENT file (#2); DATE OF BIRTH field (#.03)"
^DD(727.819,44,23,5,0)=" "
^DD(727.819,44,23,6,0)="If Date of Birth cannot be determined, then January 1, 1942, is"
^DD(727.819,44,23,7,0)="used as default.  The data element is always exactly 8 numberic"
^DD(727.819,44,23,8,0)="characters in length.  Format is YYYYMMDD.  Year 2000 compliant"
^DD(727.819,44,23,9,0)="per vendor."
^DD(727.819,44,"DT")="3020612"
^DD(727.819,45,0)="SEX^S^M:MALE;F:FEMALE;^1;19^Q"
^DD(727.819,45,.1)="Sex"
^DD(727.819,45,3)="Enter the sex of the patient."
^DD(727.819,45,21,0)="^^1^1^3020612^"
^DD(727.819,45,21,1,0)="The sex of the patient.  M(ale) or F(emale)."
^DD(727.819,45,23,0)="^^2^2^3020612^"
^DD(727.819,45,23,1,0)="Data is taken from the SEX field (#.02) of the patient's record in"
^DD(727.819,45,23,2,0)="the PATIENT file (#2)."
^DD(727.819,45,"DT")="3020612"
^DD(727.819,46,0)="STATE^F^^1;20^K:$L(X)>2!($L(X)<2) X"
^DD(727.819,46,.1)="State"
^DD(727.819,46,3)="Answer must be 2 characters in length"
^DD(727.819,46,21,0)="^^1^1^3020612^"
^DD(727.819,46,21,1,0)="The state in which the patient resides."
^DD(727.819,46,23,0)="^^5^5^3020612^"
^DD(727.819,46,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.819,46,23,2,0)="in the IV DETAIL EXTRACT file (#727.819), data is derived from the STATE"
^DD(727.819,46,23,3,0)="field (#.115) in the PATIENT file (#2) which points to the STATE file"
^DD(727.819,46,23,4,0)="(#5). From the STATE file record, use the two character VA STATE CODE"
^DD(727.819,46,23,5,0)="field (#2)."
^DD(727.819,46,"DT")="3020612"
^DD(727.819,47,0)="COUNTY^F^^1;21^K:$L(X)>3!($L(X)<3) X"
^DD(727.819,47,.1)="County"
^DD(727.819,47,3)="Answer must be 3 characters in length"
^DD(727.819,47,21,0)="^^1^1^3020612^"
^DD(727.819,47,21,1,0)="The county in which the patient resides."
^DD(727.819,47,23,0)="^^9^9^3020612^"
^DD(727.819,47,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.819,47,23,2,0)="in the IV DETAIL EXTRACT file (#727.819), data is taken from the COUNTY"
^DD(727.819,47,23,3,0)="field (#.117) in the PATIENT file (#2) which points to a subfile record in"
^DD(727.819,47,23,4,0)="the COUNTY multiple field (#3) of the STATE file (#5).  A pointer to the"
^DD(727.819,47,23,5,0)="STATE file (#5) is obtained from the STATE field (#.115) of the file #2"
^DD(727.819,47,23,6,0)="record."
^DD(727.819,47,23,7,0)=" "
^DD(727.819,47,23,8,0)="From the subfile record of field #3 of file #5, use the value of the "
^DD(727.819,47,23,9,0)="VA COUNTY CODE field (#2)."
^DD(727.819,47,"DT")="3020612"
^DD(727.819,48,0)="ZIP+4^F^^1;22^K:$L(X)>10!($L(X)<5) X"
^DD(727.819,48,.1)="Zip+4"
^DD(727.819,48,3)="Answer must be 5-10 characters in length"
^DD(727.819,48,21,0)="^^1^1^3020612^"
^DD(727.819,48,21,1,0)="The patient's zipcode with optional 4-digit extension."
^DD(727.819,48,23,0)="^^3^3^3020612^"
^DD(727.819,48,23,1,0)="The patient's zipcode with optional 4-digit extension as found in"
^DD(727.819,48,23,2,0)="the ZIP+4 field (#.1112) of the patient's record in the PATIENT"
^DD(727.819,48,23,3,0)="file (#2)."
^DD(727.819,48,"DT")="3020612"
^DD(727.819,49,0)="VETERAN^S^Y:YES;N:NO;^1;23^Q"
^DD(727.819,49,.1)="Veteran"
^DD(727.819,49,3)="Select the appropriate veteran status for this patient."
^DD(727.819,49,21,0)="^^1^1^3020612^"
^DD(727.819,49,21,1,0)="Data is Y if the patient is a veteran, N if not."
^DD(727.819,49,23,0)="^^3^3^3020612^"
^DD(727.819,49,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.819,49,23,2,0)="in the IV DETAIL EXTRACT file (#727.819), VETERAN data is derived from the"
^DD(727.819,49,23,3,0)="VETERAN (Y/N)? field (1901) in the PATIENT file (#2)."
^DD(727.819,49,"DT")="3020612"
^DD(727.819,50,0)="PERIOD OF SERVICE^F^^1;24^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,50,.1)="Period of Service"
^DD(727.819,50,3)="Answer must be 1 character in length"
^DD(727.819,50,21,0)="^^2^2^3020612^"
^DD(727.819,50,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.819,50,21,2,0)="eligibility code."
^DD(727.819,50,23,0)="^^2^2^3020612^^"
^DD(727.819,50,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.819,50,23,2,0)="the Patient file (#2)."
^DD(727.819,50,"DT")="3020612"
^DD(727.819,51,0)="POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;25^Q"
^DD(727.819,51,.1)="POW Status"
^DD(727.819,51,3)="Enter the patient's POW status."
^DD(727.819,51,21,0)="^^1^1^3020612^"
^DD(727.819,51,21,1,0)="The patient's POW status. May be set to Y(es), N(o), or U(nknown)."
^DD(727.819,51,23,0)="^^2^2^3020612^"
^DD(727.819,51,23,1,0)="PATIENT file (#2); POW STATUS INDICATED? field (#.525)."
^DD(727.819,51,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.819,51,"DT")="3020612"
^DD(727.819,52,0)="POW LOCATION^P22'^DIC(22,^1;26^Q"
^DD(727.819,52,.1)="POW Location"
^DD(727.819,52,3)="Enter the patient's POW location."
^DD(727.819,52,21,0)="^^9^9^3020612^^"
^DD(727.819,52,21,1,0)="If POW Status is indicated, then this is the POW confinement"
^DD(727.819,52,21,2,0)="location/period. "
^DD(727.819,52,21,3,0)=" "
^DD(727.819,52,21,4,0)=" 1      WORLD WAR I"
^DD(727.819,52,21,5,0)=" 2      WORLD WAR II - EUROPE"
^DD(727.819,52,21,6,0)=" 3      WORLD WAR II - PACIFIC"
^DD(727.819,52,21,7,0)=" 4      KOREAN"
^DD(727.819,52,21,8,0)=" 5      VIETNAM"
^DD(727.819,52,21,9,0)=" 6      OTHER"
^DD(727.819,52,23,0)="^^3^3^3020612^"
^DD(727.819,52,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.819,52,23,2,0)="pointer value to the POW PERIOD file (#22). The location indicator is"
^DD(727.819,52,23,3,0)="returned by SVC^VADPT."
^DD(727.819,52,"DT")="3020612"
^DD(727.819,53,0)="RADIATION STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;27^Q"
^DD(727.819,53,.1)="Radiation Status"
^DD(727.819,53,3)="Enter the Radiation Status for the patient."
^DD(727.819,53,21,0)="^^1^1^3020612^"
^DD(727.819,53,21,1,0)="The patient's Ionizing Radiation status. (Y/N/U)"
^DD(727.819,53,23,0)="^^2^2^3020612^"
^DD(727.819,53,23,1,0)="PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103)."
^DD(727.819,53,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.819,53,"DT")="3020612"
^DD(727.819,54,0)="AGENT ORANGE STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;28^Q"
^DD(727.819,54,.1)="Agent Orange Satus"
^DD(727.819,54,3)="Enter the Agent Orange Status for the patient."
^DD(727.819,54,21,0)="^^1^1^3020612^"
^DD(727.819,54,21,1,0)="The patient's Agent Orange status."
^DD(727.819,54,23,0)="^^2^2^3020612^"
^DD(727.819,54,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102)."
^DD(727.819,54,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.819,54,"DT")="3020612"
^DD(727.819,55,0)="AGENT ORANGE LOCATION^F^^1;29^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,55,3)="Answer must be 1 character in length"
^DD(727.819,55,21,0)="^^5^5^3020612^"
^DD(727.819,55,21,1,0)="If AGENT ORANGE STATUS is indicated then this is the Agent Orange Exposure"
^DD(727.819,55,21,2,0)="Location."
^DD(727.819,55,21,3,0)=" "
^DD(727.819,55,21,4,0)="'K' FOR KOREAN DMZ"
^DD(727.819,55,21,5,0)="'V' FOR VIETNAM"
^DD(727.819,55,23,0)="^^3^3^3020612^"
^DD(727.819,55,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOSURE LOCATION field (.3213). "
^DD(727.819,55,23,2,0)="This is a pointer value to the POW PERIOD file (#22). The location"
^DD(727.819,55,23,3,0)="indicator is returned by SVC^VADPT."
^DD(727.819,55,"DT")="3020612"
^DD(727.819,56,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;30^Q"
^DD(727.819,56,.1)="Purple Heart Indicator"
^DD(727.819,56,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.819,56,21,0)="^^4^4^3020612^"
^DD(727.819,56,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.819,56,21,2,0)=" "
^DD(727.819,56,21,3,0)="'Y'  Yes"
^DD(727.819,56,21,4,0)="'N'  No"
^DD(727.819,56,23,0)="^^2^2^3020612^"
^DD(727.819,56,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.819,56,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.819,56,"DT")="3020612"
^DD(727.819,57,0)="MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;^1;31^Q"
^DD(727.819,57,.1)="MST Status"
^DD(727.819,57,3)="Enter the patient's MST Status."
^DD(727.819,57,21,0)="^^5^5^3020612^"
^DD(727.819,57,21,1,0)="The MST Status of the patient on the date of the outpatient encounter."
^DD(727.819,57,21,2,0)="Possible status values are:"
^DD(727.819,57,21,3,0)="Y = Yes, screened reports MST"
^DD(727.819,57,21,4,0)="N = Screened, does not report MST"
^DD(727.819,57,21,5,0)="D = Screened, declines to answer"
^DD(727.819,57,23,0)="^^5^5^3020612^"
^DD(727.819,57,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual"
^DD(727.819,57,23,2,0)="trauma claims and effective dates.  The patients MST status is stored"
^DD(727.819,57,23,3,0)="in the MST STATUS field (#3).  A call will be made to"
^DD(727.819,57,23,4,0)="$$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO.  DFN "
^DD(727.819,57,23,5,0)="field and the date in the DAY field."
^DD(727.819,57,"DT")="3020612"
^DD(727.819,58,0)="ENROLLMENT LOCATION^F^^1;32^K:$L(X)>7!($L(X)<3) X"
^DD(727.819,58,.1)="Enrollment Location"
^DD(727.819,58,3)="Answer must be 3-7 characters in length"
^DD(727.819,58,21,0)="^^2^2^3020612^"
^DD(727.819,58,21,1,0)="The facility that the patient chooses to designate as his"
^DD(727.819,58,21,2,0)="preferred location for care."
^DD(727.819,58,23,0)="^^5^5^3020612^"
^DD(727.819,58,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2)"
^DD(727.819,58,23,2,0)="is defined as the facility that the patient chooses to designate"
^DD(727.819,58,23,3,0)="as his preferred location for care.  The PREFERRED FACILITY field"
^DD(727.819,58,23,4,0)="(# 27.02) is a pointer to the INSTITUTION file (#4).  From file #4,"
^DD(727.819,58,23,5,0)="the value in the STATION NUMBER field (#99) is used."
^DD(727.819,58,"DT")="3020612"
^DD(727.819,59,0)="ENROLLMENT CATEGORY^F^^1;33^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,59,.1)="Enrollment Category"
^DD(727.819,59,3)="Answer must be 1 character in length"
^DD(727.819,59,21,0)="^^1^1^3020612^"
^DD(727.819,59,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.819,59,23,0)="^^2^2^3020612^"
^DD(727.819,59,23,1,0)="ENROLLMENT CATEGORY is derived from the standard call DGENA4 using the"
^DD(727.819,59,23,2,0)="INPUT patient DFN and the ENROLLMENT STATUS."
^DD(727.819,59,"DT")="3020612"
^DD(727.819,60,0)="ENROLLMENT STATUS^F^^1;34^K:$L(X)>2!($L(X)<1) X"
^DD(727.819,60,.1)="Enrollment Status"
^DD(727.819,60,3)="Answer must be 1-2 characters in length"
^DD(727.819,60,21,0)="^^1^1^3020612^"
^DD(727.819,60,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.819,60,23,0)="^^3^3^3020612^"
^DD(727.819,60,23,1,0)="ENROLLEMENT STATUS is derived from the PATIENT ENROLLMENT file (#27.11)"
^DD(727.819,60,23,2,0)="ENROLLMENT STATUS field (#.04) which is a pointer to the ENROLLMENT STATUS"
^DD(727.819,60,23,3,0)="file (#27.15)."
^DD(727.819,60,"DT")="3020612"
^DD(727.819,61,0)="PLACEHOLDER^F^^1;35^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,61,.1)=""
^DD(727.819,61,3)="Answer must be 1 character in length"
^DD(727.819,61,"DT")="3040301"
^DD(727.819,62,0)="CNH/SH STATUS^F^^1;36^K:$L(X)>3!($L(X)<1) X"
^DD(727.819,62,.1)="CNH/SH Status"
^DD(727.819,62,3)="Answer must be 1-3 characters in length"
^DD(727.819,62,21,0)="^^5^5^3020612^"
^DD(727.819,62,21,1,0)="Answer yes if the patient is in a contract nursing home now.  Otherwise,"
^DD(727.819,62,21,2,0)="answer no."
^DD(727.819,62,21,3,0)=" "
^DD(727.819,62,21,4,0)="'Y'  Yes"
^DD(727.819,62,21,5,0)="'N'  No"
^DD(727.819,62,23,0)="^^1^1^3020612^"
^DD(727.819,62,23,1,0)="PATIENT file (#2); CNH CURRENT field (#148)."
^DD(727.819,62,"DT")="3020612"
^DD(727.819,63,0)="PLACEHOLDER^F^^1;37^K:$L(X)>11!($L(X)<1) X"
^DD(727.819,63,3)="Answer must be 1-11 characters in length"
^DD(727.819,63,21,0)="^^1^1^3070827^"
^DD(727.819,63,21,1,0)="Currently NULL."
^DD(727.819,63,23,0)="^^1^1^3070827^"
^DD(727.819,63,23,1,0)="Currently NULL."
^DD(727.819,63,"DT")="3070426"
^DD(727.819,64,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^2;1^Q"
^DD(727.819,64,.1)="Head and Neck Cancer Indicator"
^DD(727.819,64,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.819,64,21,0)="^^1^1^3020828^^^^"
^DD(727.819,64,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.819,64,23,0)="^^3^3^3020828^"
^DD(727.819,64,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.819,64,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.819,64,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.819,64,"DT")="3020828"
^DD(727.819,65,0)="ETHNICITY^F^^2;2^K:$L(X)>6!($L(X)<1) X"
^DD(727.819,65,.1)="Ethnicity"
^DD(727.819,65,3)="Answer must be 1-6 characters in length"
^DD(727.819,65,21,0)="^^1^1^3020828^"
^DD(727.819,65,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.819,65,23,0)="^^8^8^3021210^"
^DD(727.819,65,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field"
^DD(727.819,65,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.819,65,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.819,65,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.819,65,23,5,0)=" "
^DD(727.819,65,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.819,65,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.819,65,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.819,65,"DT")="3021210"
^DD(727.819,66,0)="RACE 1^F^^2;3^K:$L(X)>6!($L(X)<1) X"
^DD(727.819,66,.1)="Race 1"
^DD(727.819,66,3)="Answer must be 1-6 characters in length"
^DD(727.819,66,21,0)="^^1^1^3020828^^"
^DD(727.819,66,21,1,0)="The patient's PTF Race code(s)."
^DD(727.819,66,23,0)="^^10^10^3020828^"
^DD(727.819,66,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.819,66,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.819,66,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.819,66,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.819,66,23,5,0)=" "
^DD(727.819,66,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.819,66,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.819,66,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.819,66,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.819,66,23,10,0)="the only value included in the RACE1 field."
^DD(727.819,66,"DT")="3020828"
^DD(727.819,67,0)="BCMA DRUG DISPENSED^P50'^PSDRUG(^2;4^Q"
^DD(727.819,67,.1)="BCMA Drug Dispensed"
^DD(727.819,67,21,0)="^.001^4^4^3030624^^^"
^DD(727.819,67,21,1,0)="BCMA DRUG DISPENSED field is a pointer to the DRUG file (#50).  BCMA DRUG "
^DD(727.819,67,21,2,0)="DISPENSED field is derived from the DISPENSED DRUG field (.01) of the "
^DD(727.819,67,21,3,0)="DISPENSED DRUG multiple (sub-file #53.795) of the BCMA MEDICATION LOG "
^DD(727.819,67,21,4,0)="file (#53.79)."
^DD(727.819,67,23,0)="^.001^4^4^3030624^^"
^DD(727.819,67,23,1,0)="BCMA DRUG DISPENSED field is a pointer to the DRUG file (#50)."
^DD(727.819,67,23,2,0)="BCMA DRUG DISPENSED field si derived from the DISPENSED DRUG field"
^DD(727.819,67,23,3,0)="(.01) of the DISPENSED DRUG multiple (sub-file #53.795) of the"
^DD(727.819,67,23,4,0)="BCMA MEDICATION LOG file (#53.79)."
^DD(727.819,67,"DT")="3030624"
^DD(727.819,68,0)="BCMA DOSE GIVEN^NJ5,2^^2;5^K:+X'=X!(X>50)!(X<0)!(X?.E1"".""3N.N) X"
^DD(727.819,68,.1)="BCMA Dose Given"
^DD(727.819,68,3)="Type a Number between 0 and 50, 2 Decimal Digits"
^DD(727.819,68,21,0)="^.001^1^1^3030624^^^^"
^DD(727.819,68,21,1,0)="Actual number of units given."
^DD(727.819,68,23,0)="^.001^3^3^3030624^^"
^DD(727.819,68,23,1,0)="BCMA DOSE GIVEN field is derived from the DOSE GIVEN field (.03) of the "
^DD(727.819,68,23,2,0)="DISPENSED DRUG multiple (sub-file #53.795) of the BCMA MEDICATION LOG "
^DD(727.819,68,23,3,0)="file (#53.79)."
^DD(727.819,68,"DT")="3030624"
^DD(727.819,69,0)="BCMA UNIT OF ADMINISTRATION^F^^2;6^K:$L(X)>40!($L(X)<1) X"
^DD(727.819,69,.1)="BCMA Unit of Administration"
^DD(727.819,69,3)="Answer must be 1-40 characters in length."
^DD(727.819,69,21,0)="^.001^1^1^3030624^^"
^DD(727.819,69,21,1,0)="Unit of administration (i.e. TABLET, ML, VIAL)"
^DD(727.819,69,23,0)="^^3^3^3030624^"
^DD(727.819,69,23,1,0)="BCMA UNIT OF ADMINISTRATION field is derived from the UNIT OF ADMINSTRATION "
^DD(727.819,69,23,2,0)="field (.04) of the DISPENSED DRUG multiple (sub-file #53.795) of the BCMA "
^DD(727.819,69,23,3,0)="MEDICATION LOG file (#53.79)."
^DD(727.819,69,"DT")="3030624"
^DD(727.819,70,0)="BCMA ICU FLAG^F^^2;7^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,70,.1)="BCMA ICU Flag"
^DD(727.819,70,3)="Answer must be 1 character in length."
^DD(727.819,70,21,0)="^.001^1^1^3030624^^"
^DD(727.819,70,21,1,0)="ICU Flag."
^DD(727.819,70,"DT")="3030624"
^DD(727.819,71,0)="ORDERING PROVIDER PERSON CLASS^F^^2;8^K:$L(X)>7!($L(X)<7) X"
^DD(727.819,71,.1)="Ordering Provider Person Class"
^DD(727.819,71,3)="Answer must be 7 characters in length."
^DD(727.819,71,21,0)="^.001^2^2^3030624^^"
^DD(727.819,71,21,1,0)="The VA code of the Person Class of the Ordering Provider as of the"
^DD(727.819,71,21,2,0)="date of this extract record."
^DD(727.819,71,23,0)="^^5^5^3030624^"
^DD(727.819,71,23,1,0)="ORDERING PROVIDER PERSON CLASS format of the field will be V999999, where"
^DD(727.819,71,23,2,0)="999999 wil be six numeric digits."
^DD(727.819,71,23,3,0)=""
^DD(727.819,71,23,4,0)="ORDERING PROVIDER PERSON CLASS is the Active Person which is determined by"
^DD(727.819,71,23,5,0)="$$GET^AU4A71(PERS,DATE), where PERS is the IEN from NEW PERSON file (#200)."
^DD(727.819,71,"DT")="3030624"
^DD(727.819,72,0)="DSS IP #^NJ7,0^^2;9^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.819,72,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.819,72,21,0)="^^2^2^3040318^"
^DD(727.819,72,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.819,72,21,2,0)="patient care product."
^DD(727.819,72,23,0)="^.001^10^10^3041027^^"
^DD(727.819,72,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.819,72,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.819,72,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.819,72,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.819,72,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.819,72,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.819,72,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.819,72,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.819,72,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.819,72,23,10,0)="group identifying the problem. "
^DD(727.819,72,"DT")="3031113"
^DD(727.819,73,0)="ENROLLMENT PRIORITY^F^^2;10^K:$L(X)>2!($L(X)<1) X"
^DD(727.819,73,3)="Answer must be 1-2 characters in length."
^DD(727.819,73,21,0)="^.001^2^2^3041027^^^"
^DD(727.819,73,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.819,73,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.819,73,23,0)="^.001^20^20^3041027^^"
^DD(727.819,73,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.819,73,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.819,73,23,3,0)=" "
^DD(727.819,73,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.819,73,23,5,0)=" "
^DD(727.819,73,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.819,73,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.819,73,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.819,73,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.819,73,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.819,73,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.819,73,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.819,73,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.819,73,23,14,0)=" "
^DD(727.819,73,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.819,73,23,16,0)=" "
^DD(727.819,73,23,17,0)="                                'a' FOR 1 "
^DD(727.819,73,23,18,0)="                                'c' FOR 3 "
^DD(727.819,73,23,19,0)="                                'e' FOR 5 "
^DD(727.819,73,23,20,0)="                                'g' FOR 7   "
^DD(727.819,73,"DT")="3040226"
^DD(727.819,74,0)="USER ENROLLEE^F^^2;11^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,74,3)="Answer must be 1 character in length."
^DD(727.819,74,21,0)="^^4^4^3040317^"
^DD(727.819,74,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.819,74,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.819,74,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.819,74,21,4,0)="year's value is contained. "
^DD(727.819,74,"DT")="3040226"
^DD(727.819,75,0)="PATIENT TYPE^F^^2;12^K:$L(X)>2!($L(X)<1) X"
^DD(727.819,75,3)="Answer must be 1-2 characters in length."
^DD(727.819,75,21,0)="^^3^3^3040317^"
^DD(727.819,75,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.819,75,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.819,75,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.819,75,23,0)="^^17^17^3040317^"
^DD(727.819,75,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.819,75,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.819,75,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.819,75,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.819,75,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.819,75,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.819,75,23,7,0)=" "
^DD(727.819,75,23,8,0)="AC= ACTIVE DUTY"
^DD(727.819,75,23,9,0)="AL= ALLIED VETERAN"
^DD(727.819,75,23,10,0)="CO= COLLATERAL"
^DD(727.819,75,23,11,0)="EM= EMPLOYEE"
^DD(727.819,75,23,12,0)="IN= INELIGIBLE"
^DD(727.819,75,23,13,0)="MI= MILITARY RETIREE"
^DD(727.819,75,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.819,75,23,15,0)="NS= NSC VETERAN"
^DD(727.819,75,23,16,0)="SC= SC VETERAN"
^DD(727.819,75,23,17,0)="TR= TRICARE"
^DD(727.819,75,"DT")="3040226"
^DD(727.819,76,0)="CV STATUS ELIGIBILITY^F^^2;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,76,3)="Answer must be 1 character in length."
^DD(727.819,76,21,0)="^.001^3^3^3040318^^^"
^DD(727.819,76,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.819,76,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.819,76,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.819,76,23,0)="^^11^11^3040318^"
^DD(727.819,76,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.819,76,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.819,76,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.819,76,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.819,76,23,5,0)=" "
^DD(727.819,76,23,6,0)=" 1 - qualifies as a CV"
^DD(727.819,76,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.819,76,23,8,0)="-1 - bad DFN or date"
^DD(727.819,76,23,9,0)=" "
^DD(727.819,76,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.819,76,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.819,76,"DT")="3040226"
^DD(727.819,77,0)="CV ELIGIBILITY END DATE^F^^2;14^K:$L(X)>8!($L(X)<1) X"
^DD(727.819,77,3)="Answer must be 1-8 characters in length."
^DD(727.819,77,21,0)="^^3^3^3040317^"
^DD(727.819,77,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.819,77,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.819,77,21,3,0)="Patient File #2 to determine CV Status.  "
^DD(727.819,77,23,0)="^^4^4^3040317^"
^DD(727.819,77,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.819,77,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.819,77,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.819,77,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.819,77,"DT")="3040226"
^DD(727.819,78,0)="ENCOUNTER CV^F^^2;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,78,3)="Answer must be 1 character in length."
^DD(727.819,78,21,0)="^^3^3^3040317^"
^DD(727.819,78,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.819,78,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.819,78,21,3,0)="2 to determine CV Status."
^DD(727.819,78,23,0)="^^10^10^3040317^"
^DD(727.819,78,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.819,78,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.819,78,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.819,78,23,4,0)="The third piece returns:"
^DD(727.819,78,23,5,0)=" "
^DD(727.819,78,23,6,0)="1 - vet was eligible on date specified"
^DD(727.819,78,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.819,78,23,8,0)=" "
^DD(727.819,78,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.819,78,23,10,0)="'NULL' for 'NO'."
^DD(727.819,78,"DT")="3040226"
^DD(727.819,79,0)="NATIONAL PATIENT RECORD FLAG^F^^2;16^K:$L(X)>1!($L(X)<1) X"
^DD(727.819,79,3)="Answer must be 1 character in length."
^DD(727.819,79,21,0)="^^7^7^3040317^"
^DD(727.819,79,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.819,79,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.819,79,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.819,79,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.819,79,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.819,79,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.819,79,21,7,0)="NULL."
^DD(727.819,79,23,0)="^^7^7^3040317^"
^DD(727.819,79,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.819,79,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.819,79,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.819,79,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.819,79,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.819,79,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.819,79,23,7,0)="NULL."
^DD(727.819,79,"DT")="3040226"
^DD(727.819,80,0)="ERI^F^^2;17^K:$L(X)>2!($L(X)<1) X"
^DD(727.819,80,3)="Answer must be 1-2 characters in length."
^DD(727.819,80,21,0)="^.001^2^2^3060731^^"
^DD(727.819,80,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.819,80,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.819,80,23,0)="^.001^4^4^3060731^^^"
^DD(727.819,80,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.819,80,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.819,80,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.819,80,23,4,0)="    Null"
^DD(727.819,80,"DT")="3060731"
^DD(727.819,81,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^2;18^Q"
^DD(727.819,81,21,0)="^.001^2^2^3060719^^^"
^DD(727.819,81,21,1,0)="This field is used to indicate that this patient claim exposure while"
^DD(727.819,81,21,2,0)="serving in the Persian Gulf or Somalia."
^DD(727.819,81,23,0)="^.001^8^8^3060719^^"
^DD(727.819,81,23,1,0)="This field is derived from the ENVIRONMENTAL CONTAMINANTS field (#.322013)"
^DD(727.819,81,23,2,0)="in the Patient File (#2) using the patient's DFN. The status indicator is"
^DD(727.819,81,23,3,0)="returned by SVC^VADPT. The SVC^VADPT called is made from routine"
^DD(727.819,81,23,4,0)="PAT^ECXUTL3. The field values are:"
^DD(727.819,81,23,5,0)=" "
^DD(727.819,81,23,6,0)=" Y = YES"
^DD(727.819,81,23,7,0)=" N = NO"
^DD(727.819,81,23,8,0)=" U = UNKNOWN"
^DD(727.819,81,"DT")="3060626"
^DD(727.819,82,0)="OEF/OIF^F^^2;19^K:$L(X)>9!($L(X)<1) X"
^DD(727.819,82,3)="Answer must be 1-9 characters in length."
^DD(727.819,82,21,0)="^^3^3^3070502^"
^DD(727.819,82,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.819,82,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.819,82,21,3,0)="reflects the OEF or OIF where this patient was in combat."
^DD(727.819,82,23,0)="^.001^12^12^3070504^^"
^DD(727.819,82,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.819,82,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.819,82,23,3,0)="reflects the OEF or OIF where this patient was in combat.  The value of "
^DD(727.819,82,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.819,82,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.819,82,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.819,82,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.819,82,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.819,82,23,9,0)="field values are one or more combinations of the following: "
^DD(727.819,82,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.819,82,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.819,82,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.819,82,"DT")="3070502"
^DD(727.819,83,0)="OEF/OIF RETURN DATE^F^^2;20^K:$L(X)>8!($L(X)<1) X"
^DD(727.819,83,3)="Answer must be 1-8 characters in length."
^DD(727.819,83,21,0)="^^3^3^3070502^"
^DD(727.819,83,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.819,83,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.819,83,21,3,0)="has a format equal to YYYYMMDD. "
^DD(727.819,83,23,0)="^^6^6^3070502^"
^DD(727.819,83,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.819,83,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.819,83,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.819,83,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.819,83,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.819,83,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.819,83,"DT")="3070502"
^DD(727.819,84,0)="ASSOCIATE PC PROVIDER NPI^F^^2;21^K:$L(X)>15!($L(X)<1) X"
^DD(727.819,84,3)="Answer must be 1-15 characters in length."
^DD(727.819,84,21,0)="^^2^2^3070502^"
^DD(727.819,84,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.819,84,21,2,0)="provider.  This field has a length of fifteen characters."
^DD(727.819,84,23,0)="^^3^3^3070502^"
^DD(727.819,84,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.819,84,23,2,0)="provider.  This field has a length of fifteen characters. The qualified "
^DD(727.819,84,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.819,84,"DT")="3070502"
^DD(727.819,85,0)="ORDERING PROVIDER NPI^F^^2;22^K:$L(X)>15!($L(X)<1) X"
^DD(727.819,85,3)="Answer must be 1-15 characters in length."
^DD(727.819,85,21,0)="^^2^2^3070502^"
^DD(727.819,85,21,1,0)="A standard unique life-long identifier of the provider who ordered the "
^DD(727.819,85,21,2,0)="intravenous product. This field has a length of fifteen characters."
^DD(727.819,85,23,0)="^^4^4^3070502^"
^DD(727.819,85,23,1,0)="A standard unique life-long identifier of the provider who ordered the "
^DD(727.819,85,23,2,0)="intravenous product. This field has a length of fifteen characters.  The "
^DD(727.819,85,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.819,85,23,4,0)="$$NPI^XUSNPI."
^DD(727.819,85,"DT")="3070502"
^DD(727.819,86,0)="PRIMARY CARE PROVIDER NPI^F^^2;23^K:$L(X)>15!($L(X)<1) X"
^DD(727.819,86,3)="Answer must be 1-15 characters in length."
^DD(727.819,86,21,0)="^^2^2^3070502^"
^DD(727.819,86,21,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.819,86,21,2,0)="field has a length of fifteen characters. "
^DD(727.819,86,23,0)="^^3^3^3070502^"
^DD(727.819,86,23,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.819,86,23,2,0)="field has a length of fifteen characters. The qualified identifier is "
^DD(727.819,86,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.819,86,"DT")="3070502"
^DD(727.819,"B","ADMISSION DATE",24)=""
^DD(727.819,"B","ADMISSION TIME",25)=""
^DD(727.819,"B","AGENT ORANGE LOCATION",55)=""
^DD(727.819,"B","AGENT ORANGE STATUS",54)=""
^DD(727.819,"B","ASSOC. PC PROV. PERSON CLASS",32)=""
^DD(727.819,"B","ASSOCIATE PC PROVIDER",31)=""
^DD(727.819,"B","ASSOCIATE PC PROVIDER NPI",84)=""
^DD(727.819,"B","Admission Date",24)="1"
^DD(727.819,"B","Admission Time",25)="1"
^DD(727.819,"B","Agent Orange Satus",54)="1"
^DD(727.819,"B","BCMA DOSE GIVEN",68)=""
^DD(727.819,"B","BCMA DRUG DISPENSED",67)=""
^DD(727.819,"B","BCMA Dose Given",68)="1"
^DD(727.819,"B","BCMA Drug Dispensed",67)="1"
^DD(727.819,"B","BCMA ICU FLAG",70)=""
^DD(727.819,"B","BCMA ICU Flag",70)="1"
^DD(727.819,"B","BCMA UNIT OF ADMINISTRATION",69)=""
^DD(727.819,"B","BCMA Unit of Administration",69)="1"
^DD(727.819,"B","CNH/SH STATUS",62)=""
^DD(727.819,"B","CNH/SH Status",62)="1"
^DD(727.819,"B","COST",13)=""
^DD(727.819,"B","COUNTY",47)=""
^DD(727.819,"B","CV ELIGIBILITY END DATE",77)=""
^DD(727.819,"B","CV STATUS ELIGIBILITY",76)=""
^DD(727.819,"B","Cost",13)="1"
^DD(727.819,"B","County",47)="1"
^DD(727.819,"B","DATE OF BIRTH",44)=""
^DD(727.819,"B","DAY",8)=""
^DD(727.819,"B","DOM,PRRTP AND SAARTP INDICATOR",34)=""
^DD(727.819,"B","DSS IDENTIFIER FOR ENCOUNTER",26)=""
^DD(727.819,"B","DSS IP #",72)=""
^DD(727.819,"B","DSS PRODUCT DEPARTMENT",28)=""
^DD(727.819,"B","Date of Birth",44)="1"
^DD(727.819,"B","Day",8)="1"
^DD(727.819,"B","ELIGIBILITY",43)=""
^DD(727.819,"B","ENCOUNTER CV",78)=""
^DD(727.819,"B","ENCOUNTER NUMBER",36)=""
^DD(727.819,"B","ENROLLMENT CATEGORY",59)=""
^DD(727.819,"B","ENROLLMENT LOCATION",58)=""
^DD(727.819,"B","ENROLLMENT PRIORITY",73)=""
^DD(727.819,"B","ENROLLMENT STATUS",60)=""
^DD(727.819,"B","ENVIRONMENTAL CONTAMINANTS",81)=""
^DD(727.819,"B","ERI",80)=""
^DD(727.819,"B","ETHNICITY",65)=""
^DD(727.819,"B","EXTRACT NUMBER",2)=""
^DD(727.819,"B","Eligibility",43)="1"
^DD(727.819,"B","Enrollment Category",59)="1"
^DD(727.819,"B","Enrollment Location",58)="1"
^DD(727.819,"B","Enrollment Status",60)="1"
^DD(727.819,"B","Ethnicity",65)="1"
^DD(727.819,"B","Extract Number",2)="1"
^DD(727.819,"B","FACILITY",3)=""
^DD(727.819,"B","Facility",3)="1"
^DD(727.819,"B","HEAD & NECK CANCER INDICATOR",64)=""
^DD(727.819,"B","Head and Neck Cancer Indicator",64)="1"
^DD(727.819,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.819,"B","INVESTIGATIONAL",17)=""
^DD(727.819,"B","IVP TIME",23)=""
^DD(727.819,"B","IVP Time",23)="1"
^DD(727.819,"B","In Out Patient Indicator",7)="1"
^DD(727.819,"B","Investigational",17)="1"
^DD(727.819,"B","MASTER PATIENT INDEX",27)=""
^DD(727.819,"B","MEANS TEST",42)=""
^DD(727.819,"B","MOVEMENT FILE #",14)=""
^DD(727.819,"B","MST STATUS",57)=""
^DD(727.819,"B","MST Status",57)="1"
^DD(727.819,"B","Means Test",42)="1"
^DD(727.819,"B","Movement File Number",14)="1"
^DD(727.819,"B","NAME",6)=""
^DD(727.819,"B","NATIONAL PATIENT RECORD FLAG",79)=""
^DD(727.819,"B","NDC",16)=""
^DD(727.819,"B","NEW FEEDER KEY",19)=""
^DD(727.819,"B","Name",6)="1"
^DD(727.819,"B","National Drug Code",16)="1"
^DD(727.819,"B","New Feeder Key",19)="1"
^DD(727.819,"B","OBSERVATION PATIENT INDICATOR",35)=""
^DD(727.819,"B","OEF/OIF",82)=""
^DD(727.819,"B","OEF/OIF RETURN DATE",83)=""
^DD(727.819,"B","ORDERING DATE",39)=""
^DD(727.819,"B","ORDERING PROVIDER",37)=""
^DD(727.819,"B","ORDERING PROVIDER NPI",85)=""
^DD(727.819,"B","ORDERING PROVIDER PERSON CLASS",71)=""
^DD(727.819,"B","ORDERING STOP CODE",38)=""
^DD(727.819,"B","Ordering Provider Person Class",71)="1"
^DD(727.819,"B","PATIENT NO. - DFN",4)=""
^DD(727.819,"B","PATIENT TYPE",75)=""
^DD(727.819,"B","PC PROVIDER PERSON CLASS",30)=""
^DD(727.819,"B","PERIOD OF SERVICE",50)=""
^DD(727.819,"B","PHARMACY IV DISPENSING FEE",18)=""
^DD(727.819,"B","PLACEHOLDER",29)=""
^DD(727.819,"B","PLACEHOLDER",33)=""
^DD(727.819,"B","PLACEHOLDER",61)=""
^DD(727.819,"B","PLACEHOLDER",63)=""
^DD(727.819,"B","POW LOCATION",52)=""
^DD(727.819,"B","POW Location",52)="1"
^DD(727.819,"B","POW STATUS",51)=""
^DD(727.819,"B","POW Status",51)="1"
^DD(727.819,"B","PRIMARY CARE PROVIDER",22)=""
^DD(727.819,"B","PRIMARY CARE PROVIDER NPI",86)=""
^DD(727.819,"B","PRIMARY CARE TEAM",21)=""
^DD(727.819,"B","PRODUCTION DIVISION CODE",41)=""
^DD(727.819,"B","PURPLE HEART INDICATOR",56)=""
^DD(727.819,"B","Patient No. - DFN",4)="1"
^DD(727.819,"B","Period of Service",50)="1"
^DD(727.819,"B","Pharmacy IV Dispensing Fee",18)="1"
^DD(727.819,"B","Primary Care Provider",22)="1"
^DD(727.819,"B","Primary Care Team",21)="1"
^DD(727.819,"B","Purple Heart Indicator",56)="1"
^DD(727.819,"B","QUANTITY",10)=""
^DD(727.819,"B","Quantity",10)="1"
^DD(727.819,"B","RACE 1",66)=""
^DD(727.819,"B","RADIATION STATUS",53)=""
^DD(727.819,"B","REQUESTING PHYSICIAN",40)=""
^DD(727.819,"B","Race 1",66)="1"
^DD(727.819,"B","Radiation Status",53)="1"
^DD(727.819,"B","SEQUENCE NUMBER",.01)=""
^DD(727.819,"B","SEX",45)=""
^DD(727.819,"B","SSN",5)=""
^DD(727.819,"B","STATE",46)=""
^DD(727.819,"B","Sequence Number",.01)="1"
^DD(727.819,"B","Sex",45)="1"
^DD(727.819,"B","Social Security Number",5)="1"
^DD(727.819,"B","State",46)="1"
^DD(727.819,"B","TOTAL DOSES PER DAY",20)=""
^DD(727.819,"B","TREATING SPECIALTY",15)=""
^DD(727.819,"B","Total Doses Per Day",20)="1"
^DD(727.819,"B","Treating Specialty",15)="1"
^DD(727.819,"B","USER ENROLLEE",74)=""
^DD(727.819,"B","VA DRUG CLASSIFICATION",9)=""
^DD(727.819,"B","VA Drug Classification",9)="1"
^DD(727.819,"B","VETERAN",49)=""
^DD(727.819,"B","Veteran",49)="1"
^DD(727.819,"B","WARD",11)=""
^DD(727.819,"B","Ward",11)="1"
^DD(727.819,"B","YEAR MONTH",1)=""
^DD(727.819,"B","Year/Month",1)="1"
^DD(727.819,"B","ZIP+4",48)=""
^DD(727.819,"B","Zip+4",48)="1"
^DD(727.819,"GL",0,1,.01)=""
^DD(727.819,"GL",0,2,1)=""
^DD(727.819,"GL",0,3,2)=""
^DD(727.819,"GL",0,4,3)=""
^DD(727.819,"GL",0,5,4)=""
^DD(727.819,"GL",0,6,5)=""
^DD(727.819,"GL",0,7,6)=""
^DD(727.819,"GL",0,8,7)=""
^DD(727.819,"GL",0,9,8)=""
^DD(727.819,"GL",0,10,9)=""
^DD(727.819,"GL",0,11,10)=""
^DD(727.819,"GL",0,12,11)=""
^DD(727.819,"GL",0,13,13)=""
^DD(727.819,"GL",0,14,14)=""
^DD(727.819,"GL",0,15,15)=""
^DD(727.819,"GL",0,16,16)=""
^DD(727.819,"GL",0,17,17)=""
^DD(727.819,"GL",0,18,18)=""
^DD(727.819,"GL",0,19,19)=""
^DD(727.819,"GL",0,20,20)=""
^DD(727.819,"GL",0,21,21)=""
^DD(727.819,"GL",0,22,22)=""
^DD(727.819,"GL",0,23,23)=""
^DD(727.819,"GL",0,24,24)=""
^DD(727.819,"GL",0,25,25)=""
^DD(727.819,"GL",0,26,26)=""
^DD(727.819,"GL",1,1,27)=""
^DD(727.819,"GL",1,2,28)=""
^DD(727.819,"GL",1,3,29)=""
^DD(727.819,"GL",1,4,30)=""
^DD(727.819,"GL",1,5,31)=""
^DD(727.819,"GL",1,6,32)=""
^DD(727.819,"GL",1,7,33)=""
^DD(727.819,"GL",1,8,34)=""
^DD(727.819,"GL",1,9,35)=""
^DD(727.819,"GL",1,10,36)=""
^DD(727.819,"GL",1,11,37)=""
^DD(727.819,"GL",1,12,38)=""
^DD(727.819,"GL",1,13,39)=""
^DD(727.819,"GL",1,14,40)=""
^DD(727.819,"GL",1,15,41)=""
^DD(727.819,"GL",1,16,42)=""
^DD(727.819,"GL",1,17,43)=""
^DD(727.819,"GL",1,18,44)=""
^DD(727.819,"GL",1,19,45)=""
^DD(727.819,"GL",1,20,46)=""
^DD(727.819,"GL",1,21,47)=""
^DD(727.819,"GL",1,22,48)=""
^DD(727.819,"GL",1,23,49)=""
^DD(727.819,"GL",1,24,50)=""
^DD(727.819,"GL",1,25,51)=""
^DD(727.819,"GL",1,26,52)=""
^DD(727.819,"GL",1,27,53)=""
^DD(727.819,"GL",1,28,54)=""
^DD(727.819,"GL",1,29,55)=""
^DD(727.819,"GL",1,30,56)=""
^DD(727.819,"GL",1,31,57)=""
^DD(727.819,"GL",1,32,58)=""
^DD(727.819,"GL",1,33,59)=""
^DD(727.819,"GL",1,34,60)=""
^DD(727.819,"GL",1,35,61)=""
^DD(727.819,"GL",1,36,62)=""
^DD(727.819,"GL",1,37,63)=""
^DD(727.819,"GL",2,1,64)=""
^DD(727.819,"GL",2,2,65)=""
^DD(727.819,"GL",2,3,66)=""
^DD(727.819,"GL",2,4,67)=""
^DD(727.819,"GL",2,5,68)=""
^DD(727.819,"GL",2,6,69)=""
^DD(727.819,"GL",2,7,70)=""
^DD(727.819,"GL",2,8,71)=""
^DD(727.819,"GL",2,9,72)=""
^DD(727.819,"GL",2,10,73)=""
^DD(727.819,"GL",2,11,74)=""
^DD(727.819,"GL",2,12,75)=""
^DD(727.819,"GL",2,13,76)=""
^DD(727.819,"GL",2,14,77)=""
^DD(727.819,"GL",2,15,78)=""
^DD(727.819,"GL",2,16,79)=""
^DD(727.819,"GL",2,17,80)=""
^DD(727.819,"GL",2,18,81)=""
^DD(727.819,"GL",2,19,82)=""
^DD(727.819,"GL",2,20,83)=""
^DD(727.819,"GL",2,21,84)=""
^DD(727.819,"GL",2,22,85)=""
^DD(727.819,"GL",2,23,86)=""
^DD(727.819,"IX",2)=""
^DD(727.819,"RQ",.01)=""
^DD(727.82,0)="FIELD^^35^36"
^DD(727.82,0,"DDA")="N"
^DD(727.82,0,"DIK")="ECX820"
^DD(727.82,0,"DIKOLD")="ECX820"
^DD(727.82,0,"DT")="2970922"
^DD(727.82,0,"IX","AC",727.82,2)=""
^DD(727.82,0,"IX","AINV",727.82,.01)=""
^DD(727.82,0,"IX","AM",727.82,1)=""
^DD(727.82,0,"NM","ADMISSION SETUP EXTRACT")=""
^DD(727.82,0,"VR")="3.0"
^DD(727.82,0,"VRPK")="DSS EXTRACTS"
^DD(727.82,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.82,.01,.1)="Sequence Number"
^DD(727.82,.01,1,0)="^.1"
^DD(727.82,.01,1,1,0)="727.82^AINV^MUMPS"
^DD(727.82,.01,1,1,1)="S ^ECX(727.82,""AINV"",-X,DA)="""""
^DD(727.82,.01,1,1,2)="K ^ECX(727.82,""AINV"",-X,DA)"
^DD(727.82,.01,1,1,3)="DO NOT DELETE."
^DD(727.82,.01,1,1,"%D",0)="^^3^3^2960808^^^"
^DD(727.82,.01,1,1,"%D",1,0)="This is an inverse entry cross reference.  It is used to find the"
^DD(727.82,.01,1,1,"%D",2,0)="last entry in the file.  It is essential for the management of the"
^DD(727.82,.01,1,1,"%D",3,0)="extract and the purge of extract data."
^DD(727.82,.01,1,1,"DT")="2921016"
^DD(727.82,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.82,.01,21,0)="^^1^1^2961011^^^^"
^DD(727.82,.01,21,1,0)="The record number for this extract entry."
^DD(727.82,.01,23,0)="^^1^1^2961011^^"
^DD(727.82,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.82,.01,"DT")="2961011"
^DD(727.82,1,0)="YEAR MONTH^FO^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.82,1,.1)="Year/Month"
^DD(727.82,1,1,0)="^.1"
^DD(727.82,1,1,1,0)="727.82^AM"
^DD(727.82,1,1,1,1)="S ^ECX(727.82,""AM"",$E(X,1,30),DA)="""""
^DD(727.82,1,1,1,2)="K ^ECX(727.82,""AM"",$E(X,1,30),DA)"
^DD(727.82,1,1,1,3)="DO NOT DELETE"
^DD(727.82,1,1,1,"%D",0)="^^3^3^2930623^^"
^DD(727.82,1,1,1,"%D",1,0)="This cross reference is essential for moving data into file 727.802 to"
^DD(727.82,1,1,1,"%D",2,0)="be transmitted to the DSS package.  DO NOT DELETE OR MODIFY."
^DD(727.82,1,1,1,"%D",3,0)=" "
^DD(727.82,1,1,1,"DT")="2921226"
^DD(727.82,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.82,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.82,1,3)="Answer must be 6 characters in length."
^DD(727.82,1,21,0)="^^2^2^2970922^^^^"
^DD(727.82,1,21,1,0)="A six character string representing the year and the month"
^DD(727.82,1,21,2,0)="for which this extract was performed."
^DD(727.82,1,23,0)="^^1^1^2970922^^^^"
^DD(727.82,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.82,1,"DT")="2970924"
^DD(727.82,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.82,2,.1)="Extract Number"
^DD(727.82,2,1,0)="^.1"
^DD(727.82,2,1,1,0)="727.82^AC"
^DD(727.82,2,1,1,1)="S ^ECX(727.82,""AC"",$E(X,1,30),DA)="""""
^DD(727.82,2,1,1,2)="K ^ECX(727.82,""AC"",$E(X,1,30),DA)"
^DD(727.82,2,1,1,3)="DO NOT DELETE."
^DD(727.82,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.82,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.82,2,1,1,"%D",2,0)="in this file."
^DD(727.82,2,1,1,"DT")="2910802"
^DD(727.82,2,3)="Enter the extract number for this extract."
^DD(727.82,2,21,0)="^^2^2^2961011^^^^"
^DD(727.82,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.82,2,21,2,0)="extract."
^DD(727.82,2,23,0)="^^2^2^2961011^^^^"
^DD(727.82,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.82,2,23,2,0)="pick up the header for the mail message."
^DD(727.82,2,"DT")="2961011"
^DD(727.82,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.82,3,.1)="Facility"
^DD(727.82,3,3)="Enter the station number where this extract was performed."
^DD(727.82,3,21,0)="^^1^1^2961011^^^^"
^DD(727.82,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.82,3,23,0)="^^3^3^2961011^^^^"
^DD(727.82,3,23,1,0)="An indicator of the division where this event happened. It is derived"
^DD(727.82,3,23,2,0)="from the DIVISION field (.015) of the WARD LOCATION file (#42) which"
^DD(727.82,3,23,3,0)="points to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.82,3,"DT")="2961015"
^DD(727.82,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.82,4,.1)="Patient No. - DFN"
^DD(727.82,4,3)="Enter the name of the patient for this extract record."
^DD(727.82,4,21,0)="^^1^1^2961011^^^^"
^DD(727.82,4,21,1,0)="The name of the patient for this extract record."
^DD(727.82,4,23,0)="^^3^3^2961016^"
^DD(727.82,4,23,1,0)="Pointer to the PATIENT file (#2). This data represents the patient DFN. "
^DD(727.82,4,23,2,0)="Using the ""ATID1"" cross reference on the PATIENT MOVEMENT file (#405), "
^DD(727.82,4,23,3,0)="the PATIENT NO. - DFN data is derived from the PATIENT field (.03)."
^DD(727.82,4,"DT")="2961015"
^DD(727.82,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.82,5,.1)="Social Security Number"
^DD(727.82,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.82,5,21,0)="^^1^1^2961011^^^^"
^DD(727.82,5,21,1,0)="The patient's social security number."
^DD(727.82,5,23,0)="^^3^3^2961015^"
^DD(727.82,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,5,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), SSN data is derived from"
^DD(727.82,5,23,3,0)="the SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.82,5,"DT")="2961011"
^DD(727.82,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.82,6,.1)="Name"
^DD(727.82,6,3)="Your answer must be 4 characters in length."
^DD(727.82,6,21,0)="^^1^1^2961011^^^^"
^DD(727.82,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.82,6,23,0)="^^4^4^2961015^"
^DD(727.82,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,6,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), NAME data is derived from"
^DD(727.82,6,23,3,0)="the NAME field (.01) in the PATIENT file (#2). The first four characters"
^DD(727.82,6,23,4,0)="of the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.82,6,"DT")="2961011"
^DD(727.82,7,0)="IN OUT PATIENT INDICATOR^P40.9'^DIC(40.9,^0;8^Q"
^DD(727.82,7,.1)="In Out Patient Indicator"
^DD(727.82,7,3)="Enter the appropriate inpatient or outpatient indicator."
^DD(727.82,7,21,0)="^^2^2^2961011^^^^"
^DD(727.82,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.82,7,21,2,0)="extract entry."
^DD(727.82,7,23,0)="^^2^2^2961011^^^"
^DD(727.82,7,23,1,0)="For the Admission Setup extract this field is set to 3, indicating "
^DD(727.82,7,23,2,0)="inpatient status in the LOCATION TYPE file (#40.9)."
^DD(727.82,7,"DT")="2961011"
^DD(727.82,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.82,8,.1)="Day"
^DD(727.82,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.82,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.82,8,3)="Answer must be 8 characters in length."
^DD(727.82,8,21,0)="^^2^2^2970922^^^^"
^DD(727.82,8,21,1,0)="This 8-character string represents the date on which the admission"
^DD(727.82,8,21,2,0)="occurred."
^DD(727.82,8,23,0)="^^9^9^2970923^^^^"
^DD(727.82,8,23,1,0)="Data source:"
^DD(727.82,8,23,2,0)=" "
^DD(727.82,8,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.82,8,23,4,0)=" "
^DD(727.82,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.82,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.82,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.82,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.82,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.82,8,"DT")="2970924"
^DD(727.82,9,0)="PRIMARY CARE TEAM^F^^0;10^K:$L(X)>4!($L(X)<1) X"
^DD(727.82,9,.1)="Primary Care Team"
^DD(727.82,9,3)="Enter primary care team assigned to this patient."
^DD(727.82,9,21,0)="^^1^1^2961030^^^^"
^DD(727.82,9,21,1,0)="The primary care team assigned to this patient."
^DD(727.82,9,23,0)="^^6^6^2961030^^^^"
^DD(727.82,9,23,1,0)="Using the DATE/TIME field (.01) from the PATIENT MOVEMENT file (#405) "
^DD(727.82,9,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.82,9,23,3,0)="in the ADMISSION SETUP EXTRACT file (#727.82), a call is made to the "
^DD(727.82,9,23,4,0)="Scheduling API, OUTPTTM^SDUTL3. The API returns the team's internal "
^DD(727.82,9,23,5,0)="entry number and name from the TEAM file (#404.51). Only the pointer "
^DD(727.82,9,23,6,0)="(IEN) to File 404.51 is transmitted."
^DD(727.82,9,"DT")="2961030"
^DD(727.82,10,0)="SEX^S^M:MALE;F:FEMALE;^0;11^Q"
^DD(727.82,10,.1)="Sex"
^DD(727.82,10,3)="Enter the patient's sex."
^DD(727.82,10,21,0)="^^1^1^2961015^^^^"
^DD(727.82,10,21,1,0)="Data is M if this patient is a male, or F if female."
^DD(727.82,10,23,0)="^^3^3^2961015^"
^DD(727.82,10,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,10,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), this data is derived from"
^DD(727.82,10,23,3,0)="the SEX field (.02) in the PATIENT file (#2)."
^DD(727.82,10,"DT")="2961011"
^DD(727.82,11,0)="DATE OF BIRTH^FO^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.82,11,.1)="Date of Birth"
^DD(727.82,11,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.82,11,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.82,11,3)="Answer must be 8 characters in length."
^DD(727.82,11,21,0)="^^2^2^2970922^^^^"
^DD(727.82,11,21,1,0)="The patient's date of birth between December 31,1870 and today's date"
^DD(727.82,11,21,2,0)="represented by an 8-character numeric string."
^DD(727.82,11,23,0)="^^9^9^2971113^^^"
^DD(727.82,11,23,1,0)="Data source:"
^DD(727.82,11,23,2,0)=" "
^DD(727.82,11,23,3,0)="PATIENT MOVEMENT file (#405); PATIENT field (#.03)"
^DD(727.82,11,23,4,0)="   then to PATIENT file (#2); DATE OF BIRTH field (#.03)"
^DD(727.82,11,23,5,0)=" "
^DD(727.82,11,23,6,0)="If Date of Birth cannot be determined, then January 1, 1942, is"
^DD(727.82,11,23,7,0)="used as default.  The data element is always exactly 8 numberic"
^DD(727.82,11,23,8,0)="characters in length.  Format is YYYYMMDD.  Year 2000 compliant"
^DD(727.82,11,23,9,0)="per vendor."
^DD(727.82,11,"DT")="2970924"
^DD(727.82,12,0)="RELIGION^P13'^DIC(13,^0;13^Q"
^DD(727.82,12,.1)="Religion"
^DD(727.82,12,3)="Enter the patient's religious preference."
^DD(727.82,12,21,0)="^^1^1^2961011^^^"
^DD(727.82,12,21,1,0)="The current religious preference of this patient."
^DD(727.82,12,23,0)="^^4^4^2961015^"
^DD(727.82,12,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,12,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), RELIGION data is derived"
^DD(727.82,12,23,3,0)="from the RELIGIOUS PREFERENCE field (.08) in the PATIENT file (#2). It is"
^DD(727.82,12,23,4,0)="a pointer to the RELIGION file (#13)."
^DD(727.82,12,"DT")="2961011"
^DD(727.82,13,0)="EMPLOYMENT STATUS^S^1:EMPLOYED FULL TIME;2:EMPLOYED PART TIME;3:NOT EMPLOYED;4:SELF EMPLOYED;5:RETIRED;6:ACTIVE DUTY MILITARY;9:UNKNOWN;^0;14^Q"
^DD(727.82,13,.1)="Employment Status"
^DD(727.82,13,3)="Select the appropriate employment status."
^DD(727.82,13,21,0)="^^1^1^2961011^^"
^DD(727.82,13,21,1,0)="The patient's current employment status."
^DD(727.82,13,23,0)="^^4^4^2961015^"
^DD(727.82,13,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,13,23,2,0)="in the ADMISSION EXTRACT file (#727.802), EMPLOYMENT STATUS data is"
^DD(727.82,13,23,3,0)="derived from the EMPLOYMENT STATUS field (.31115) in the PATIENT file"
^DD(727.82,13,23,4,0)="(#2)."
^DD(727.82,13,"DT")="2961011"
^DD(727.82,14,0)="HEALTH INSURANCE^S^Y:YES;N:NO;U:UNKNOWN;^0;15^Q"
^DD(727.82,14,.1)="Health Insurance"
^DD(727.82,14,3)="Select the appropriate health insurance status."
^DD(727.82,14,21,0)="^^2^2^2961125^^^"
^DD(727.82,14,21,1,0)="Data is Y if the patient is covered by a health insurance policy, N if"
^DD(727.82,14,21,2,0)="the patient isn't covered by any policy, or U if unknown."
^DD(727.82,14,23,0)="^^4^4^2961125^^"
^DD(727.82,14,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.82,14,23,2,0)="(4) in the ADMISSION EXTRACT file (#727.802), a call is made to the "
^DD(727.82,14,23,3,0)="Integrated Billing API, INSURED^IBCNS1. The API returns 1 if the "
^DD(727.82,14,23,4,0)="patient is insured or 0 if the patient is not insured."
^DD(727.82,14,"DT")="2961011"
^DD(727.82,15,0)="STATE^F^^0;16^K:$L(X)>2!($L(X)<2) X"
^DD(727.82,15,.1)="State"
^DD(727.82,15,3)="Enter the VA STATE CODE for this patient."
^DD(727.82,15,21,0)="^^1^1^2961011^^"
^DD(727.82,15,21,1,0)="The state in which the patient resides."
^DD(727.82,15,23,0)="^^5^5^2961015^"
^DD(727.82,15,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,15,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), STATE data is derived from"
^DD(727.82,15,23,3,0)="the STATE field (.115) in the PATIENT file (#2) which points to the STATE"
^DD(727.82,15,23,4,0)="file (#5). For the STATE file entry, data transmitted is the two character"
^DD(727.82,15,23,5,0)="VA STATE CODE, field (2)."
^DD(727.82,15,"DT")="2961011"
^DD(727.82,16,0)="COUNTY^F^^0;17^K:$L(X)>3!($L(X)<3) X"
^DD(727.82,16,.1)="County"
^DD(727.82,16,3)="Enter the VA COUNTY CODE for this patient."
^DD(727.82,16,21,0)="^^1^1^2961011^^^"
^DD(727.82,16,21,1,0)="County in which patient resides."
^DD(727.82,16,23,0)="^^5^5^2961015^"
^DD(727.82,16,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,16,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), COUNTY data is derived from"
^DD(727.82,16,23,3,0)="the COUNTY field (.117) in the PATIENT file (#2). The data transmitted is"
^DD(727.82,16,23,4,0)="the three character VA COUNTY CODE, field (2) within the COUNTY field (3)"
^DD(727.82,16,23,5,0)="multiple of the STATE file (#5)."
^DD(727.82,16,"DT")="2961011"
^DD(727.82,17,0)="ZIP CODE^F^^0;18^K:$L(X)>5!($L(X)<5) X"
^DD(727.82,17,.1)="Zip Code"
^DD(727.82,17,3)="Your answer must be 5 characters in length."
^DD(727.82,17,21,0)="^^1^1^2961011^^"
^DD(727.82,17,21,1,0)="Zip code for the city in which the patient resides."
^DD(727.82,17,23,0)="^^3^3^2961015^"
^DD(727.82,17,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,17,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), ZIP CODE data is derived"
^DD(727.82,17,23,3,0)="from the ZIP CODE field (.116) in the PATIENT file (#2)."
^DD(727.82,17,"DT")="2961011"
^DD(727.82,18,0)="ELIGIBILITY^F^^0;19^K:$L(X)>1!($L(X)<1)!'(X?1U) X"
^DD(727.82,18,.1)="Eligibility"
^DD(727.82,18,3)="Your answer must be 1 character in length."
^DD(727.82,18,21,0)="^^1^1^2961011^^^^"
^DD(727.82,18,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.82,18,23,0)="^^9^9^2961015^"
^DD(727.82,18,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,18,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), ELIGIBILITY data is derived"
^DD(727.82,18,23,3,0)="from the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file (#2)."
^DD(727.82,18,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8)."
^DD(727.82,18,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (8) in the"
^DD(727.82,18,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS"
^DD(727.82,18,23,7,0)="ELIGIBILITY CODE file (#8.1). The MAS eligibility code pointer value is"
^DD(727.82,18,23,8,0)="converted to an alpha character representative of it's number, i.e., 1"
^DD(727.82,18,23,9,0)="converts to A, 2 converts to B, etc."
^DD(727.82,18,"DT")="2961011"
^DD(727.82,19,0)="VETERAN^S^Y:YES;N:NO;^0;20^Q"
^DD(727.82,19,.1)="Veteran"
^DD(727.82,19,3)="Select the appropriate veteran status for this patient."
^DD(727.82,19,21,0)="^^1^1^2961011^^"
^DD(727.82,19,21,1,0)="Data is Y if this patient is a veteran, N if not."
^DD(727.82,19,23,0)="^^3^3^2961015^"
^DD(727.82,19,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,19,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), VETERAN data is derived"
^DD(727.82,19,23,3,0)="from the VETERAN (Y/N)? field (1901) in the PATIENT file (#2)."
^DD(727.82,19,"DT")="2961011"
^DD(727.82,20,0)="VIETNAM^S^Y:YES;N:NO;U:UNKNOWN;^0;21^Q"
^DD(727.82,20,.1)="Vietnam"
^DD(727.82,20,3)="Select the appropriate Vietnam service status for this patient."
^DD(727.82,20,21,0)="^^1^1^2961011^^"
^DD(727.82,20,21,1,0)="Data is Y if this patient served in Vietnam, N if not, or U if unknown."
^DD(727.82,20,23,0)="^^4^4^2961015^"
^DD(727.82,20,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT  NO. - DFN field (4)"
^DD(727.82,20,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), VIETNAM data is derived"
^DD(727.82,20,23,3,0)="from the VIETNAM SERVICE INDICATED? field (.32101) in the PATIENT file"
^DD(727.82,20,23,4,0)="(#2)."
^DD(727.82,20,"DT")="2961011"
^DD(727.82,21,0)="AGENT ORANGE^S^Y:YES;N:NO;U:UNKNOWN;^0;22^Q"
^DD(727.82,21,.1)="Agent Orange"
^DD(727.82,21,3)="Select the appropriate agent orange status for this patient."
^DD(727.82,21,21,0)="^^2^2^2961023^^^^"
^DD(727.82,21,21,1,0)="Data is Y if this patient was exposed to agent orange, N if not, "
^DD(727.82,21,21,2,0)="or U if unknown."
^DD(727.82,21,23,0)="^^4^4^2961023^^^"
^DD(727.82,21,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,21,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), AGENT ORANGE data is"
^DD(727.82,21,23,3,0)="derived from the AGENT ORANGE EXPOS. INDICATED? field (.32102) in the"
^DD(727.82,21,23,4,0)="PATIENT file (#2)."
^DD(727.82,21,"DT")="2961011"
^DD(727.82,22,0)="RADIATION^S^Y:YES;N:NO;U:UNKNOWN;^0;23^Q"
^DD(727.82,22,.1)="Radiation"
^DD(727.82,22,3)="Select the appropriate radiation status for this patient."
^DD(727.82,22,21,0)="^^2^2^2961016^^^"
^DD(727.82,22,21,1,0)="Data is Y if this patient claims exposure to ionizing radiation, N if "
^DD(727.82,22,21,2,0)="not, or U if unknown."
^DD(727.82,22,23,0)="^^4^4^2961016^^"
^DD(727.82,22,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,22,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), RADIATION data is derived"
^DD(727.82,22,23,3,0)="from the RADIATION EXPOSURE INDICATED? field (.32103) in the PATIENT file"
^DD(727.82,22,23,4,0)="(#2)."
^DD(727.82,22,"DT")="2961011"
^DD(727.82,23,0)="POW^S^Y:YES;N:NO;U:UNKNOWN;^0;24^Q"
^DD(727.82,23,.1)="Prisoner of War"
^DD(727.82,23,3)="Select the appropriate POW status for this patient."
^DD(727.82,23,21,0)="^^2^2^2961011^^"
^DD(727.82,23,21,1,0)="Data is Y if this patient was confined as a prisoner of war, N if not,"
^DD(727.82,23,21,2,0)="or U if unknown."
^DD(727.82,23,23,0)="^^3^3^2961015^"
^DD(727.82,23,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,23,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), POW data is derived from"
^DD(727.82,23,23,3,0)="the POW STATUS INDICATED? field (.525) in the PATIENT file (#2)."
^DD(727.82,23,"DT")="2961011"
^DD(727.82,24,0)="PERIOD OF SERVICE^F^^0;25^K:$L(X)>1!($L(X)<1) X"
^DD(727.82,24,.1)="Period of Service"
^DD(727.82,24,3)="Enter the period of service code from the PERIOD OF SERVICE file (#21)."
^DD(727.82,24,21,0)="^^2^2^2961011^^^"
^DD(727.82,24,21,1,0)="The period of service which best classifies this patient based on"
^DD(727.82,24,21,2,0)="eligibility code."
^DD(727.82,24,23,0)="^^7^7^2961015^"
^DD(727.82,24,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,24,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), PERIOD OF SERVICE data is"
^DD(727.82,24,23,3,0)="derived from the PERIOD OF SERVICE field (.323) in the PATIENT file (#2)."
^DD(727.82,24,23,4,0)="This field is a pointer to the PERIOD OF SERVICE file (#21). Using the"
^DD(727.82,24,23,5,0)="period of service pointer, the data is derived from the CODE field (.03)"
^DD(727.82,24,23,6,0)="in the PERIOD OF SERVICE file (#21). This code is a single alpha numeric"
^DD(727.82,24,23,7,0)="character."
^DD(727.82,24,"DT")="2961011"
^DD(727.82,25,0)="MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^0;26^Q"
^DD(727.82,25,.1)="Means Test"
^DD(727.82,25,3)="Select the appropriate means test category."
^DD(727.82,25,21,0)="^^1^1^2961011^^^^"
^DD(727.82,25,21,1,0)="The current means test category for this patient."
^DD(727.82,25,23,0)="^^6^6^2961015^"
^DD(727.82,25,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,25,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), MEANS TEST data is derived"
^DD(727.82,25,23,3,0)="from the CURRENT MEANS TEST STATUS field (.14) in the PATIENT file (#2)."
^DD(727.82,25,23,4,0)="This field is a pointer to the MEANS TEST STATUS file (#408.32).  Using"
^DD(727.82,25,23,5,0)="the means test pointer, the data is derived from the CODE field (.02) in"
^DD(727.82,25,23,6,0)="the MEANS TEST STATUS file (#408.32)."
^DD(727.82,25,"DT")="2961024"
^DD(727.82,26,0)="MARITAL STATUS^P11'^DIC(11,^0;27^Q"
^DD(727.82,26,.1)="Marital Status"
^DD(727.82,26,3)="Enter the marital status for this patient."
^DD(727.82,26,21,0)="^^1^1^2961011^^"
^DD(727.82,26,21,1,0)="Current marital status for this patient."
^DD(727.82,26,23,0)="^^4^4^2961015^"
^DD(727.82,26,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.82,26,23,2,0)="in the ADMISSION SETUP EXTRACT file (#727.82), MARITAL STATUS data is"
^DD(727.82,26,23,3,0)="derived from the MARITAL STATUS field (.05) in the PATIENT file (#2)."
^DD(727.82,26,23,4,0)="MARITAL STATUS is a pointer to the MARITAL STATUS file (#11)."
^DD(727.82,26,"DT")="2961011"
^DD(727.82,27,0)="WARD^P44'^SC(^0;28^Q"
^DD(727.82,27,.1)="Ward"
^DD(727.82,27,3)="Enter the current ward location for this patient."
^DD(727.82,27,21,0)="^^1^1^2961015^^^"
^DD(727.82,27,21,1,0)="Current ward for this patient."
^DD(727.82,27,23,0)="^^8^8^2961015^"
^DD(727.82,27,23,1,0)="Using the ""ATID1"" cross reference on the PATIENT MOVEMENT file (#405) "
^DD(727.82,27,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in"
^DD(727.82,27,23,3,0)="the ADMISSION SETUP EXTRACT file (#727.82), WARD data is derived from the"
^DD(727.82,27,23,4,0)="WARD LOCATION field (.06) in the PATIENT MOVEMENT file (#405). This ward"
^DD(727.82,27,23,5,0)="data is a pointer to the WARD LOCATION file (#42). Using the ward pointer,"
^DD(727.82,27,23,6,0)="the data is derived from the HOSPITAL LOCATION FILE POINTER field (44) in"
^DD(727.82,27,23,7,0)="the WARD LOCATION file (#42) which is a pointer to the HOSPITAL LOCATION"
^DD(727.82,27,23,8,0)="file (#44)."
^DD(727.82,27,"DT")="2961011"
^DD(727.82,28,0)="TREATING SPECIALTY^P42.4'^DIC(42.4,^0;29^Q"
^DD(727.82,28,.1)="Treating Specialty"
^DD(727.82,28,3)="Enter the name of the treating specialty associated with this extract record."
^DD(727.82,28,21,0)="^^1^1^2961015^^^^"
^DD(727.82,28,21,1,0)="The name of the treating specialty associated with this extract record."
^DD(727.82,28,23,0)="^^8^8^2961015^"
^DD(727.82,28,23,1,0)="Using the ""ATID1"" cross reference on the PATIENT MOVEMENT file (#405) "
^DD(727.82,28,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in"
^DD(727.82,28,23,3,0)="the ADMISSION SETUP EXTRACT file (#727.82), TREATING SPECIALTY data is"
^DD(727.82,28,23,4,0)="derived from the FACILITY TREATING SPECIALTY field (.09) in the PATIENT"
^DD(727.82,28,23,5,0)="MOVEMENT file (#405). This facility treating specialty data is a pointer"
^DD(727.82,28,23,6,0)="to the FACILITY TREATING SPECIALTY file (#45.7). Using the SPECIALTY field"
^DD(727.82,28,23,7,0)="(1) in the FACILITY TREATING SPECIALTY file (#45.7), the pointer to the"
^DD(727.82,28,23,8,0)="SPECIALTY file (#42.4) is obtained."
^DD(727.82,28,"DT")="2960918"
^DD(727.82,29,0)="ATTENDING PHYSICIAN^F^^0;30^K:$L(X)>11!($L(X)<1) X"
^DD(727.82,29,.1)="Attending Physician"
^DD(727.82,29,3)="Enter attending physician for this patient."
^DD(727.82,29,21,0)="^^1^1^2961025^^^^"
^DD(727.82,29,21,1,0)="The attending physician assigned to this patient with this movement."
^DD(727.82,29,23,0)="^^6^6^2961025^^"
^DD(727.82,29,23,1,0)="Using the ""ATID1"" cross reference on the PATIENT MOVEMENT file (#405) "
^DD(727.82,29,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in"
^DD(727.82,29,23,3,0)="the ADMISSION SETUP EXTRACT file (#727.82), ATTENDING PHYSICIAN data is"
^DD(727.82,29,23,4,0)="derived from the ATTENDING PHYSICIAN field (.19) in the PATIENT MOVEMENT"
^DD(727.82,29,23,5,0)="file (#405). This attending physician data is a pointer to the NEW PERSON"
^DD(727.82,29,23,6,0)="file (#200). This data is stored as ""2""_pointer value."
^DD(727.82,29,"DT")="2961015"
^DD(727.82,30,0)="EPISODE NUMBER^P405'^DGPM(^0;31^Q"
^DD(727.82,30,.1)="Episode Number"
^DD(727.82,30,3)="Enter the current movement number for this patient."
^DD(727.82,30,21,0)="^^1^1^2961015^^^"
^DD(727.82,30,21,1,0)="Current movement number for this patient."
^DD(727.82,30,23,0)="^^6^6^2961015^"
^DD(727.82,30,23,1,0)="Pointer to the PATIENT MOVEMENT file (#405). Using the ""ATID1"" cross "
^DD(727.82,30,23,2,0)="reference on the PATIENT MOVEMENT file (#405) and the patient pointer "
^DD(727.82,30,23,3,0)="(DFN) stored in the PATIENT NO. - DFN field (4) in the ADMISSION SETUP"
^DD(727.82,30,23,4,0)="EXTRACT file (#727.82), EPISODE NUMBER is the movement number (IEN)"
^DD(727.82,30,23,5,0)="associated with the PATIENT field (.03) in the PATIENT MOVEMENT file"
^DD(727.82,30,23,6,0)="(#405)."
^DD(727.82,30,"DT")="2961011"
^DD(727.82,31,0)="DRG^P80.2'^ICD(^0;32^Q"
^DD(727.82,31,3)="Enter the appropriate DRG for this patient."
^DD(727.82,31,21,0)="^^1^1^2961015^^^^"
^DD(727.82,31,21,1,0)="Current DRG for this patient with this movement."
^DD(727.82,31,23,0)="^^7^7^2961015^"
^DD(727.82,31,23,1,0)="Using the ""ATID1"" cross reference on the PATIENT MOVEMENT file (#405) "
^DD(727.82,31,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in"
^DD(727.82,31,23,3,0)="the ADMISSION SETUP EXTRACT file (#727.82), DRG data is derived from the"
^DD(727.82,31,23,4,0)="PTF ENTRY field (.16) in PATIENT MOVEMENT file (#405). This PTF entry data"
^DD(727.82,31,23,5,0)="is a pointer to the PTF file (#45). Uses the TRANSFER DRG field (20)"
^DD(727.82,31,23,6,0)="within the 501 field (50) multiple in the PTF file (#45) to obtain the"
^DD(727.82,31,23,7,0)="pointer value to the DRG file (#80.2)."
^DD(727.82,31,"DT")="2910803"
^DD(727.82,32,0)="DIAGNOSIS^F^^0;33^K:$L(X)>7!($L(X)<1) X"
^DD(727.82,32,.1)="Diagnosis"
^DD(727.82,32,3)="Your answer must be 1 to 7 characters in length."
^DD(727.82,32,21,0)="^^1^1^2961015^^^^"
^DD(727.82,32,21,1,0)="ICD diagnosis for this patient."
^DD(727.82,32,23,0)="^^9^9^2961015^"
^DD(727.82,32,23,1,0)="Using the ""ATID1"" cross reference on the PATIENT MOVEMENT file (#405) "
^DD(727.82,32,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) in"
^DD(727.82,32,23,3,0)="the ADMISSION SETUP EXTRACT file (#727.82), DIAGNOSIS data is derived from"
^DD(727.82,32,23,4,0)="the PTF ENTRY field (.16) in the PATIENT MOVEMENT file (#405). This PTF"
^DD(727.82,32,23,5,0)="entry data is a pointer to the PTF file (#45). Uses the ICD 1 field (5)"
^DD(727.82,32,23,6,0)="within the 501 field (50) multiple in the PTF file (#45) to obtain the"
^DD(727.82,32,23,7,0)="pointer value to the ICD DIAGNOSIS file (#80). This ICD diagnosis pointer"
^DD(727.82,32,23,8,0)="value is used to pull the DIAGNOSIS data from the CODE NUMBER field (.01)"
^DD(727.82,32,23,9,0)="in the ICD DIAGNOSIS file (#80)."
^DD(727.82,32,"DT")="2961011"
^DD(727.82,33,0)="TIME^FO^^0;34^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.82,33,.1)="Time"
^DD(727.82,33,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.82,33,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.82,33,3)="Answer must be 6 characters in length."
^DD(727.82,33,21,0)="^^2^2^2970922^^^"
^DD(727.82,33,21,1,0)="A 6-character numeric string which represents the time of day at"
^DD(727.82,33,21,2,0)="which the admission occurred."
^DD(727.82,33,23,0)="^^6^6^2970922^^^"
^DD(727.82,33,23,1,0)="Data source:"
^DD(727.82,33,23,2,0)=" "
^DD(727.82,33,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.82,33,23,4,0)=" "
^DD(727.82,33,23,5,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.82,33,23,6,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.82,33,"DT")="2970924"
^DD(727.82,34,0)="PRIMARY CARE PROVIDER^F^^0;35^K:$L(X)>11!($L(X)<1) X"
^DD(727.82,34,.1)="Primary Care Provider"
^DD(727.82,34,3)="Enter primary care provider assigned to this patient."
^DD(727.82,34,21,0)="^^1^1^2961030^^^"
^DD(727.82,34,21,1,0)="The primary care provider assigned to this patient."
^DD(727.82,34,23,0)="^^6^6^2961030^^"
^DD(727.82,34,23,1,0)="Using the DATE/TIME field (.01) from the PATIENT MOVEMENT file (#405) "
^DD(727.82,34,23,2,0)="and the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4) "
^DD(727.82,34,23,3,0)="in the ADMISSION SETUP EXTRACT file (#727.82), a call is made to the "
^DD(727.82,34,23,4,0)="Scheduling API, OUTPTPR^SDUTL3. The API returns the provider's internal "
^DD(727.82,34,23,5,0)="entry number and name from the NEW PERSON file (#200). Only the pointer "
^DD(727.82,34,23,6,0)="(IEN) to File 200 is transmitted."
^DD(727.82,34,"DT")="2961015"
^DD(727.82,35,0)="RACE^F^^0;36^K:$L(X)>1!($L(X)<1) X"
^DD(727.82,35,.1)="Race"
^DD(727.82,35,3)="Enter race ABBREVIATION for this patient."
^DD(727.82,35,21,0)="^^1^1^2961025^^"
^DD(727.82,35,21,1,0)="Race ABBREVIATION for this patient."
^DD(727.82,35,23,0)="^^3^3^2961025^"
^DD(727.82,35,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.82,35,23,2,0)="(4), RACE data is shown as the ABBREVIATION field (2) of the RACE file "
^DD(727.82,35,23,3,0)="(#10) entry pointed to by the RACE field (.06) in the PATIENT file (#2)."
^DD(727.82,35,"DT")="2961025"
^DD(727.82,"B","AGENT ORANGE",21)=""
^DD(727.82,"B","ATTENDING PHYSICIAN",29)=""
^DD(727.82,"B","Agent Orange",21)="1"
^DD(727.82,"B","Attending Physician",29)="1"
^DD(727.82,"B","COUNTY",16)=""
^DD(727.82,"B","County",16)="1"
^DD(727.82,"B","DATE OF BIRTH",11)=""
^DD(727.82,"B","DAY",8)=""
^DD(727.82,"B","DIAGNOSIS",32)=""
^DD(727.82,"B","DRG",31)=""
^DD(727.82,"B","Date of Birth",11)="1"
^DD(727.82,"B","Day",8)="1"
^DD(727.82,"B","Diagnosis",32)="1"
^DD(727.82,"B","ELIGIBILITY",18)=""
^DD(727.82,"B","EMPLOYMENT STATUS",13)=""
^DD(727.82,"B","EPISODE NUMBER",30)=""
^DD(727.82,"B","EXTRACT NUMBER",2)=""
^DD(727.82,"B","Eligibility",18)="1"
^DD(727.82,"B","Employment Status",13)="1"
^DD(727.82,"B","Episode Number",30)="1"
^DD(727.82,"B","Extract Number",2)="1"
^DD(727.82,"B","FACILITY",3)=""
^DD(727.82,"B","Facility",3)="1"
^DD(727.82,"B","HEALTH INSURANCE",14)=""
^DD(727.82,"B","Health Insurance",14)="1"
^DD(727.82,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.82,"B","In Out Patient Indicator",7)="1"
^DD(727.82,"B","MARITAL STATUS",26)=""
^DD(727.82,"B","MEANS TEST",25)=""
^DD(727.82,"B","Marital Status",26)="1"
^DD(727.82,"B","Means Test",25)="1"
^DD(727.82,"B","NAME",6)=""
^DD(727.82,"B","Name",6)="1"
^DD(727.82,"B","PATIENT NO. - DFN",4)=""
^DD(727.82,"B","PERIOD OF SERVICE",24)=""
^DD(727.82,"B","POW",23)=""
^DD(727.82,"B","PRIMARY CARE PROVIDER",34)=""
^DD(727.82,"B","PRIMARY CARE TEAM",9)=""
^DD(727.82,"B","Patient No. - DFN",4)="1"
^DD(727.82,"B","Period of Service",24)="1"
^DD(727.82,"B","Primary Care Provider",34)="1"
^DD(727.82,"B","Primary Care Team",9)="1"
^DD(727.82,"B","Prisoner of War",23)="1"
^DD(727.82,"B","RACE",35)=""
^DD(727.82,"B","RADIATION",22)=""
^DD(727.82,"B","RELIGION",12)=""
^DD(727.82,"B","Race",35)="1"
^DD(727.82,"B","Radiation",22)="1"
^DD(727.82,"B","Religion",12)="1"
^DD(727.82,"B","SEQUENCE NUMBER",.01)=""
^DD(727.82,"B","SEX",10)=""
^DD(727.82,"B","SSN",5)=""
^DD(727.82,"B","STATE",15)=""
^DD(727.82,"B","Sequence Number",.01)="1"
^DD(727.82,"B","Sex",10)="1"
^DD(727.82,"B","Social Security Number",5)="1"
^DD(727.82,"B","State",15)="1"
^DD(727.82,"B","TIME",33)=""
^DD(727.82,"B","TREATING SPECIALTY",28)=""
^DD(727.82,"B","Time",33)="1"
^DD(727.82,"B","Treating Specialty",28)="1"
^DD(727.82,"B","VETERAN",19)=""
^DD(727.82,"B","VIETNAM",20)=""
^DD(727.82,"B","Veteran",19)="1"
^DD(727.82,"B","Vietnam",20)="1"
^DD(727.82,"B","WARD",27)=""
^DD(727.82,"B","Ward",27)="1"
^DD(727.82,"B","YEAR MONTH",1)=""
^DD(727.82,"B","Year/Month",1)="1"
^DD(727.82,"B","ZIP CODE",17)=""
^DD(727.82,"B","Zip Code",17)="1"
^DD(727.82,"GL",0,1,.01)=""
^DD(727.82,"GL",0,2,1)=""
^DD(727.82,"GL",0,3,2)=""
^DD(727.82,"GL",0,4,3)=""
^DD(727.82,"GL",0,5,4)=""
^DD(727.82,"GL",0,6,5)=""
^DD(727.82,"GL",0,7,6)=""
^DD(727.82,"GL",0,8,7)=""
^DD(727.82,"GL",0,9,8)=""
^DD(727.82,"GL",0,10,9)=""
^DD(727.82,"GL",0,11,10)=""
^DD(727.82,"GL",0,12,11)=""
^DD(727.82,"GL",0,13,12)=""
^DD(727.82,"GL",0,14,13)=""
^DD(727.82,"GL",0,15,14)=""
^DD(727.82,"GL",0,16,15)=""
^DD(727.82,"GL",0,17,16)=""
^DD(727.82,"GL",0,18,17)=""
^DD(727.82,"GL",0,19,18)=""
^DD(727.82,"GL",0,20,19)=""
^DD(727.82,"GL",0,21,20)=""
^DD(727.82,"GL",0,22,21)=""
^DD(727.82,"GL",0,23,22)=""
^DD(727.82,"GL",0,24,23)=""
^DD(727.82,"GL",0,25,24)=""
^DD(727.82,"GL",0,26,25)=""
^DD(727.82,"GL",0,27,26)=""
^DD(727.82,"GL",0,28,27)=""
^DD(727.82,"GL",0,29,28)=""
^DD(727.82,"GL",0,30,29)=""
^DD(727.82,"GL",0,31,30)=""
^DD(727.82,"GL",0,32,31)=""
^DD(727.82,"GL",0,33,32)=""
^DD(727.82,"GL",0,34,33)=""
^DD(727.82,"GL",0,35,34)=""
^DD(727.82,"GL",0,36,35)=""
^DD(727.82,"IX",.01)=""
^DD(727.82,"IX",1)=""
^DD(727.82,"IX",2)=""
^DD(727.82,"RQ",.01)=""
^DD(727.821,0)="FIELD^^21^22"
^DD(727.821,0,"DIK")="ECX821"
^DD(727.821,0,"DIKOLD")="ECX821"
^DD(727.821,0,"DT")="2970922"
^DD(727.821,0,"IX","AC",727.821,2)=""
^DD(727.821,0,"IX","AINV",727.821,.01)=""
^DD(727.821,0,"IX","AM",727.821,1)=""
^DD(727.821,0,"NM","PHYSICAL MOVEMENT SETUP EXTRACT")=""
^DD(727.821,0,"VR")="3.0"
^DD(727.821,0,"VRPK")="DSS EXTRACTS"
^DD(727.821,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.821,.01,.1)="Sequence Number"
^DD(727.821,.01,1,0)="^.1"
^DD(727.821,.01,1,1,0)="727.821^AINV^MUMPS"
^DD(727.821,.01,1,1,1)="S ^ECX(727.821,""AINV"",-X,DA)="""""
^DD(727.821,.01,1,1,2)="K ^ECX(727.821,""AINV"",-X,DA)"
^DD(727.821,.01,1,1,3)="DO NOT DELETE."
^DD(727.821,.01,1,1,"%D",0)="^^3^3^2960808^^"
^DD(727.821,.01,1,1,"%D",1,0)="This is an inverse entry cross reference.  It is used to find the"
^DD(727.821,.01,1,1,"%D",2,0)="last entry in the file.  It is essential for the management of the"
^DD(727.821,.01,1,1,"%D",3,0)="extract and the purge of extract data."
^DD(727.821,.01,1,1,"DT")="2921016"
^DD(727.821,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.821,.01,21,0)="^^1^1^2961015^^^^"
^DD(727.821,.01,21,1,0)="The record number for this extract entry."
^DD(727.821,.01,23,0)="^^1^1^2961015^^^"
^DD(727.821,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.821,.01,"DT")="2961015"
^DD(727.821,1,0)="YEAR MONTH^FO^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.821,1,.1)="Year/Month"
^DD(727.821,1,1,0)="^.1"
^DD(727.821,1,1,1,0)="727.821^AM"
^DD(727.821,1,1,1,1)="S ^ECX(727.821,""AM"",$E(X,1,30),DA)="""""
^DD(727.821,1,1,1,2)="K ^ECX(727.821,""AM"",$E(X,1,30),DA)"
^DD(727.821,1,1,1,3)="DO NOT DELETE"
^DD(727.821,1,1,1,"%D",0)="^^5^5^2921226^"
^DD(727.821,1,1,1,"%D",1,0)="This cross reference is essential for moving data from this file to file"
^DD(727.821,1,1,1,"%D",2,0)="727.808 to be transfered to the DSS software."
^DD(727.821,1,1,1,"%D",3,0)=" "
^DD(727.821,1,1,1,"%D",4,0)="DO NO DELETE OR MODIFY."
^DD(727.821,1,1,1,"%D",5,0)=" "
^DD(727.821,1,1,1,"DT")="2921226"
^DD(727.821,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.821,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.821,1,3)="Answer must be 6 characters in length."
^DD(727.821,1,21,0)="^^2^2^2970922^^^^"
^DD(727.821,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.821,1,21,2,0)="for which this extract was performed."
^DD(727.821,1,23,0)="^^1^1^2970922^^^^"
^DD(727.821,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.821,1,"DT")="2970924"
^DD(727.821,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.821,2,.1)="Extract Number"
^DD(727.821,2,1,0)="^.1"
^DD(727.821,2,1,1,0)="727.821^AC"
^DD(727.821,2,1,1,1)="S ^ECX(727.821,""AC"",$E(X,1,30),DA)="""""
^DD(727.821,2,1,1,2)="K ^ECX(727.821,""AC"",$E(X,1,30),DA)"
^DD(727.821,2,1,1,3)="DO NOT DELETE."
^DD(727.821,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.821,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.821,2,1,1,"%D",2,0)="in this file."
^DD(727.821,2,1,1,"DT")="2910802"
^DD(727.821,2,3)="Enter the extract number for this extract."
^DD(727.821,2,21,0)="^^2^2^2961015^^^^"
^DD(727.821,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.821,2,21,2,0)="extract."
^DD(727.821,2,23,0)="^^2^2^2961015^^^^"
^DD(727.821,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.821,2,23,2,0)="pick up the header for the mail message."
^DD(727.821,2,"DT")="2961015"
^DD(727.821,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.821,3,.1)="Facility"
^DD(727.821,3,3)="Enter the station number where this extract was performed."
^DD(727.821,3,21,0)="^^1^1^2961015^^^^"
^DD(727.821,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.821,3,23,0)="^^3^3^2961015^^^^"
^DD(727.821,3,23,1,0)="An indicator of the division where this event happened.  It is derived"
^DD(727.821,3,23,2,0)="from the DIVISION field (.015) of the WARD LOCATION file (#42) which"
^DD(727.821,3,23,3,0)="points to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.821,3,"DT")="2961016"
^DD(727.821,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.821,4,.1)="Patient No. - DFN"
^DD(727.821,4,3)="Enter the name of the patient for this extract record."
^DD(727.821,4,21,0)="^^1^1^2961016^^^^"
^DD(727.821,4,21,1,0)="The name of the patient for this extract record."
^DD(727.821,4,23,0)="^^3^3^2961016^^"
^DD(727.821,4,23,1,0)="Pointer to the PATIENT file (#2). This data represents the patient DFN. "
^DD(727.821,4,23,2,0)="Using the ""ATID1"" cross reference on the PATIENT MOVEMENT file (#405), "
^DD(727.821,4,23,3,0)="the PATIENT NO. - DFN data is derived from the PATIENT field (.03)."
^DD(727.821,4,"DT")="2961016"
^DD(727.821,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.821,5,.1)="Social Security Number"
^DD(727.821,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.821,5,21,0)="^^1^1^2961016^^^^"
^DD(727.821,5,21,1,0)="The patient's social security number."
^DD(727.821,5,23,0)="^^4^4^2961016^"
^DD(727.821,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.821,5,23,2,0)="in the PHYSICAL MOVEMENT SETUP EXTRACT file (#727.821), SSN data is"
^DD(727.821,5,23,3,0)="derived from the SOCIAL SECURITY NUMBER field (.09) in the PATIENT file"
^DD(727.821,5,23,4,0)="(#2)."
^DD(727.821,5,"DT")="2961015"
^DD(727.821,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.821,6,.1)="Name"
^DD(727.821,6,3)="Your answer must be 4 characters in length."
^DD(727.821,6,21,0)="^^1^1^2961016^^^^"
^DD(727.821,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.821,6,23,0)="^^5^5^2961016^"
^DD(727.821,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.821,6,23,2,0)="in the PHYSICAL MOVEMENT SETUP EXTRACT file (#727.821), NAME data is"
^DD(727.821,6,23,3,0)="derived from the NAME field (.01) in the PATIENT file (#2). The first four"
^DD(727.821,6,23,4,0)="characters of the first "","" piece are used, padded with trailing spaces if"
^DD(727.821,6,23,5,0)="necessary."
^DD(727.821,6,"DT")="2961015"
^DD(727.821,7,0)="IN OUT PATIENT INDICATOR^P40.9'^DIC(40.9,^0;8^Q"
^DD(727.821,7,.1)="In Out Patient Indicator"
^DD(727.821,7,3)="Enter the appropriate inpatient or outpatient indicator."
^DD(727.821,7,21,0)="^^2^2^2961015^^^^"
^DD(727.821,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.821,7,21,2,0)="extract entry."
^DD(727.821,7,23,0)="^^4^4^2961015^^^^"
^DD(727.821,7,23,1,0)="This field is initialized to a 1, indicating an outpatient status. If "
^DD(727.821,7,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.821,7,23,3,0)="patient movement number, then the field is reset to a 3 indicating "
^DD(727.821,7,23,4,0)="inpatient status."
^DD(727.821,7,"DT")="2961015"
^DD(727.821,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.821,8,.1)="Day"
^DD(727.821,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.821,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.821,8,3)="Answer must be 8 characters in length."
^DD(727.821,8,21,0)="^^2^2^2970922^^^^"
^DD(727.821,8,21,1,0)="This 8-character numeric string represents the date of the physical"
^DD(727.821,8,21,2,0)="movement."
^DD(727.821,8,23,0)="^^9^9^2970923^^^^"
^DD(727.821,8,23,1,0)="Data source:"
^DD(727.821,8,23,2,0)=" "
^DD(727.821,8,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.821,8,23,4,0)=" "
^DD(727.821,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.821,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.821,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.821,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.821,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.821,8,"DT")="2970924"
^DD(727.821,9,0)="PRODUCT^F^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.821,9,.1)="Product"
^DD(727.821,9,3)="Your answer must be 1 character in length."
^DD(727.821,9,21,0)="^^2^2^2961016^^^"
^DD(727.821,9,21,1,0)="The product or feeder key for this extract as defined by the DSS "
^DD(727.821,9,21,2,0)="Program Office."
^DD(727.821,9,23,0)="^^1^1^2961016^^^"
^DD(727.821,9,23,1,0)="For the Physical Movement Setup extract, the PRODUCT field is null."
^DD(727.821,9,"DT")="2961015"
^DD(727.821,10,0)="ADMISSION DATE^FO^^0;11^K:$L(X)>8!($L(X)<8) X"
^DD(727.821,10,.1)="Admission Date"
^DD(727.821,10,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.821,10,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.821,10,3)="Answer must be 8 characters in length."
^DD(727.821,10,21,0)="^^2^2^2970922^^^^"
^DD(727.821,10,21,1,0)="This 8-character string represents the date on which the admission"
^DD(727.821,10,21,2,0)="associated with this physical movement occurred."
^DD(727.821,10,23,0)="^^10^10^2971113^^^^"
^DD(727.821,10,23,1,0)="Data source:"
^DD(727.821,10,23,2,0)=" "
^DD(727.821,10,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.821,10,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.821,10,23,5,0)=" "
^DD(727.821,10,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.821,10,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.821,10,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.821,10,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.821,10,23,10,0)="Year 2000 compliant per vendor."
^DD(727.821,10,"DT")="2970924"
^DD(727.821,11,0)="DISCHARGE DATE^FO^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.821,11,.1)="Discharge Date"
^DD(727.821,11,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.821,11,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.821,11,3)="Answer must be 8 characters in length."
^DD(727.821,11,21,0)="^^2^2^2970922^^^^"
^DD(727.821,11,21,1,0)="This 8-charcter numeric string represents the date on which an\"
^DD(727.821,11,21,2,0)="associated patient Discharge occurred."
^DD(727.821,11,23,0)="^^3^3^2970923^^^^"
^DD(727.821,11,23,1,0)="For the Physical Movement Setup extract, the DISCHARGE DATE field is null."
^DD(727.821,11,23,2,0)=" "
^DD(727.821,11,23,3,0)="Format is YYYYMMDD; Year 2000 compliant per vendor."
^DD(727.821,11,"DT")="2970924"
^DD(727.821,12,0)="MOVEMENT FILE #^P405'^DGPM(^0;13^Q"
^DD(727.821,12,.1)="Movement File Number"
^DD(727.821,12,3)="Enter the patient movement number associated with this extract record."
^DD(727.821,12,21,0)="^^1^1^2961015^^"
^DD(727.821,12,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.821,12,23,0)="^^3^3^2961015^^"
^DD(727.821,12,23,1,0)="The ^DGPM(""APMV"",DFN,CORRES_ADM,INVERSE_DATE,D0) cross reference is "
^DD(727.821,12,23,2,0)="used to obtain the current movement number associated with this patient."
^DD(727.821,12,23,3,0)="It is a pointer to the PATIENT MOVEMENT file (#405)."
^DD(727.821,12,"DT")="2961015"
^DD(727.821,13,0)="TYPE^F^^0;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.821,13,.1)="Type"
^DD(727.821,13,3)="Your answer must be 1 character in length."
^DD(727.821,13,21,0)="^^2^2^2961016^"
^DD(727.821,13,21,1,0)="The type of movement for this patient, either transfer (2) or discharge"
^DD(727.821,13,21,2,0)="(3)."
^DD(727.821,13,23,0)="^^2^2^2961016^^^"
^DD(727.821,13,23,1,0)="For the Physical Movement Setup extract, the TYPE field is set to 2 "
^DD(727.821,13,23,2,0)="for transfer."
^DD(727.821,13,"DT")="2961015"
^DD(727.821,14,0)="LOSING WARD^P44'^SC(^0;15^Q"
^DD(727.821,14,.1)="Losing Ward"
^DD(727.821,14,3)="Enter the ward from which this patient was transferred."
^DD(727.821,14,21,0)="^^1^1^2961016^^^^"
^DD(727.821,14,21,1,0)="The ward from which this patient was transferred."
^DD(727.821,14,23,0)="^^4^4^2961016^^^^"
^DD(727.821,14,23,1,0)="LOSING WARD is derived from HOSPITAL LOCATION FILE POINTER field (44) of "
^DD(727.821,14,23,2,0)="the WARD LOCATION file (#42) as pointed to by the WARD LOCATION field "
^DD(727.821,14,23,3,0)="(.06) of the PATIENT MOVEMENT file (#405). LOSING WARD is a pointer to "
^DD(727.821,14,23,4,0)="the HOSPITAL LOCATION file (#44)."
^DD(727.821,14,"DT")="2961015"
^DD(727.821,15,0)="TREATING SPECIALTY^P42.4'^DIC(42.4,^0;16^Q"
^DD(727.821,15,.1)="Treating Specialty"
^DD(727.821,15,3)="Enter the name of the treating specialty associated with this extract record."
^DD(727.821,15,21,0)="^^1^1^2961016^^^^"
^DD(727.821,15,21,1,0)="The name of the treating specialty associated with this extract record."
^DD(727.821,15,23,0)="^^2^2^2961016^^^^"
^DD(727.821,15,23,1,0)="For the Physical Movement Setup extract, the TREATING SPECIALTY field is "
^DD(727.821,15,23,2,0)="null."
^DD(727.821,15,"DT")="2961015"
^DD(727.821,16,0)="DURATION^NJ4,0^^0;17^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.821,16,.1)="Duration"
^DD(727.821,16,3)="Enter a number between 0 and 5000, 0 decimal digits."
^DD(727.821,16,21,0)="^^1^1^2961016^^^^"
^DD(727.821,16,21,1,0)="Duration of stay within this movement."
^DD(727.821,16,23,0)="^^4^4^2961016^"
^DD(727.821,16,23,1,0)="Calculated as current movement date minus the date (DATE/TIME field (.01)"
^DD(727.821,16,23,2,0)="of the PATIENT MOVEMENT file (#405)) of the last physical movement"
^DD(727.821,16,23,3,0)="(ADMISSION/CHECK-IN MOVEMENT field (.14) of the PATIENT MOVEMENT file"
^DD(727.821,16,23,4,0)="(#405))."
^DD(727.821,16,"DT")="2961015"
^DD(727.821,17,0)="ATTENDING PHYSICIAN^F^^0;18^K:$L(X)>11!($L(X)<1) X"
^DD(727.821,17,.1)="Attending Physician"
^DD(727.821,17,3)="Enter attending physician assigned to this patient."
^DD(727.821,17,21,0)="^^1^1^2961025^^^^"
^DD(727.821,17,21,1,0)="The attending physician assigned to this patient with this movement."
^DD(727.821,17,23,0)="^^2^2^2961025^^^^"
^DD(727.821,17,23,1,0)="For the Physical Movement Setup extract, the ATTENDING PHYSICIAN "
^DD(727.821,17,23,2,0)="field is null."
^DD(727.821,17,"DT")="2961025"
^DD(727.821,18,0)="MOVEMENT TYPE^P405.2'^DG(405.2,^0;19^Q"
^DD(727.821,18,.1)="Movement Type"
^DD(727.821,18,3)="Enter the patient movement number associated with this extract record."
^DD(727.821,18,21,0)="^^1^1^2961016^^^"
^DD(727.821,18,21,1,0)="THE MAS movement type for this movement."
^DD(727.821,18,23,0)="^^3^3^2961016^^^"
^DD(727.821,18,23,1,0)="MOVEMENT TYPE is derived from the MAS MOVEMENT TYPE field (.18) of "
^DD(727.821,18,23,2,0)="the PATIENT MOVEMENT file (#405). It is a pointer to the MAS MOVEMENT "
^DD(727.821,18,23,3,0)="TYPE file (#405.2)."
^DD(727.821,18,"DT")="2961015"
^DD(727.821,19,0)="MOV TIME^FO^^0;20^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.821,19,.1)="MOV Time"
^DD(727.821,19,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.821,19,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.821,19,3)="Answer must be 6 characters in length."
^DD(727.821,19,21,0)="^^2^2^2970922^^"
^DD(727.821,19,21,1,0)="This 6-character numeric string represents the time of day at"
^DD(727.821,19,21,2,0)="which the physical movement occurred."
^DD(727.821,19,23,0)="^^6^6^2970922^^"
^DD(727.821,19,23,1,0)="Data source:"
^DD(727.821,19,23,2,0)=" "
^DD(727.821,19,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.821,19,23,4,0)=" "
^DD(727.821,19,23,5,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.821,19,23,6,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.821,19,"DT")="2970924"
^DD(727.821,20,0)="GAINING WARD^P44'^SC(^0;21^Q"
^DD(727.821,20,3)="Enter the ward to which this patient was moved."
^DD(727.821,20,21,0)="^^2^2^2961016^^^"
^DD(727.821,20,21,1,0)="The ward to which this patient was moved. This is null for discharge "
^DD(727.821,20,21,2,0)="type movements."
^DD(727.821,20,23,0)="^^4^4^2961016^^"
^DD(727.821,20,23,1,0)="GAINING WARD is derived from the HOSPITAL LOCATION FILE POINTER field "
^DD(727.821,20,23,2,0)="(44) of the WARD LOCATION file (#42) as pointed to by the WARD LOCATION "
^DD(727.821,20,23,3,0)="field (.06) of the PATIENT MOVEMENT file (#405). GAINING WARD is a "
^DD(727.821,20,23,4,0)="pointer to the HOSPITAL LOCATION file (#44)."
^DD(727.821,20,"DT")="2961015"
^DD(727.821,21,0)="ADMISSION TIME^FO^^0;22^K:$L(X)>6!($L(X)<6) X"
^DD(727.821,21,.1)="Admission Time"
^DD(727.821,21,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.821,21,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.821,21,3)="Answer must be 6 characters in length."
^DD(727.821,21,21,0)="^^2^2^2970922^^^"
^DD(727.821,21,21,1,0)="A 6-character numeric string which represents the time of day at"
^DD(727.821,21,21,2,0)="which the admission associated with the physical movement occurred."
^DD(727.821,21,23,0)="^^7^7^2971113^^^"
^DD(727.821,21,23,1,0)="Data source:"
^DD(727.821,21,23,2,0)=" "
^DD(727.821,21,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.821,21,23,4,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.821,21,23,5,0)=" "
^DD(727.821,21,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.821,21,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.821,21,"DT")="2970924"
^DD(727.821,"B","ADMISSION DATE",10)=""
^DD(727.821,"B","ADMISSION TIME",21)=""
^DD(727.821,"B","ATTENDING PHYSICIAN",17)=""
^DD(727.821,"B","Admission Date",10)="1"
^DD(727.821,"B","Admission Time",21)="1"
^DD(727.821,"B","Attending Physician",17)="1"
^DD(727.821,"B","DAY",8)=""
^DD(727.821,"B","DISCHARGE DATE",11)=""
^DD(727.821,"B","DURATION",16)=""
^DD(727.821,"B","Day",8)="1"
^DD(727.821,"B","Discharge Date",11)="1"
^DD(727.821,"B","Duration",16)="1"
^DD(727.821,"B","EXTRACT NUMBER",2)=""
^DD(727.821,"B","Extract Number",2)="1"
^DD(727.821,"B","FACILITY",3)=""
^DD(727.821,"B","Facility",3)="1"
^DD(727.821,"B","GAINING WARD",20)=""
^DD(727.821,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.821,"B","In Out Patient Indicator",7)="1"
^DD(727.821,"B","LOSING WARD",14)=""
^DD(727.821,"B","Losing Ward",14)="1"
^DD(727.821,"B","MOV TIME",19)=""
^DD(727.821,"B","MOV Time",19)="1"
^DD(727.821,"B","MOVEMENT FILE #",12)=""
^DD(727.821,"B","MOVEMENT TYPE",18)=""
^DD(727.821,"B","Movement File Number",12)="1"
^DD(727.821,"B","Movement Type",18)="1"
^DD(727.821,"B","NAME",6)=""
^DD(727.821,"B","Name",6)="1"
^DD(727.821,"B","PATIENT NO. - DFN",4)=""
^DD(727.821,"B","PRODUCT",9)=""
^DD(727.821,"B","Patient No. - DFN",4)="1"
^DD(727.821,"B","Product",9)="1"
^DD(727.821,"B","SEQUENCE NUMBER",.01)=""
^DD(727.821,"B","SSN",5)=""
^DD(727.821,"B","Sequence Number",.01)="1"
^DD(727.821,"B","Social Security Number",5)="1"
^DD(727.821,"B","TREATING SPECIALTY",15)=""
^DD(727.821,"B","TYPE",13)=""
^DD(727.821,"B","Treating Specialty",15)="1"
^DD(727.821,"B","Type",13)="1"
^DD(727.821,"B","YEAR MONTH",1)=""
^DD(727.821,"B","Year/Month",1)="1"
^DD(727.821,"GL",0,1,.01)=""
^DD(727.821,"GL",0,2,1)=""
^DD(727.821,"GL",0,3,2)=""
^DD(727.821,"GL",0,4,3)=""
^DD(727.821,"GL",0,5,4)=""
^DD(727.821,"GL",0,6,5)=""
^DD(727.821,"GL",0,7,6)=""
^DD(727.821,"GL",0,8,7)=""
^DD(727.821,"GL",0,9,8)=""
^DD(727.821,"GL",0,10,9)=""
^DD(727.821,"GL",0,11,10)=""
^DD(727.821,"GL",0,12,11)=""
^DD(727.821,"GL",0,13,12)=""
^DD(727.821,"GL",0,14,13)=""
^DD(727.821,"GL",0,15,14)=""
^DD(727.821,"GL",0,16,15)=""
^DD(727.821,"GL",0,17,16)=""
^DD(727.821,"GL",0,18,17)=""
^DD(727.821,"GL",0,19,18)=""
^DD(727.821,"GL",0,20,19)=""
^DD(727.821,"GL",0,21,20)=""
^DD(727.821,"GL",0,22,21)=""
^DD(727.821,"IX",.01)=""
^DD(727.821,"IX",1)=""
^DD(727.821,"IX",2)=""
^DD(727.821,"RQ",.01)=""
^DD(727.822,0)="FIELD^^20^21"
^DD(727.822,0,"DIK")="ECX822"
^DD(727.822,0,"DIKOLD")="ECX822"
^DD(727.822,0,"DT")="2970922"
^DD(727.822,0,"IX","AC",727.822,2)=""
^DD(727.822,0,"IX","AINV",727.822,.01)=""
^DD(727.822,0,"IX","AM",727.822,1)=""
^DD(727.822,0,"NM","TREATING SPECIALTY CHANGE SETUP EXTRACT")=""
^DD(727.822,0,"VR")="3.0"
^DD(727.822,0,"VRPK")="DSS EXTRACTS"
^DD(727.822,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.822,.01,.1)="Sequence Number"
^DD(727.822,.01,1,0)="^.1"
^DD(727.822,.01,1,1,0)="727.822^AINV^MUMPS"
^DD(727.822,.01,1,1,1)="S ^ECX(727.822,""AINV"",-X,DA)="""""
^DD(727.822,.01,1,1,2)="K ^ECX(727.822,""AINV"",-X,DA)"
^DD(727.822,.01,1,1,3)="DO NOT DELETE."
^DD(727.822,.01,1,1,"%D",0)="^^3^3^2960808^^"
^DD(727.822,.01,1,1,"%D",1,0)="This is an inverse entry cross reference.  It is used to find the"
^DD(727.822,.01,1,1,"%D",2,0)="last entry in the file.  It is essential for the management of the"
^DD(727.822,.01,1,1,"%D",3,0)="extract and the purge of extract data."
^DD(727.822,.01,1,1,"DT")="2921016"
^DD(727.822,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.822,.01,21,0)="^^1^1^2961015^^^^"
^DD(727.822,.01,21,1,0)="The record number for this extract entry."
^DD(727.822,.01,23,0)="^^1^1^2961015^^^"
^DD(727.822,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.822,.01,"DT")="2961015"
^DD(727.822,1,0)="YEAR MONTH^FO^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.822,1,.1)="Year/Month"
^DD(727.822,1,1,0)="^.1"
^DD(727.822,1,1,1,0)="727.822^AM"
^DD(727.822,1,1,1,1)="S ^ECX(727.822,""AM"",$E(X,1,30),DA)="""""
^DD(727.822,1,1,1,2)="K ^ECX(727.822,""AM"",$E(X,1,30),DA)"
^DD(727.822,1,1,1,3)="DO NOT DELETE"
^DD(727.822,1,1,1,"%D",0)="^^5^5^2921226^"
^DD(727.822,1,1,1,"%D",1,0)="This cross reference is essential for moving data from this file to file"
^DD(727.822,1,1,1,"%D",2,0)="727.817 to be transfered to the DSS software."
^DD(727.822,1,1,1,"%D",3,0)=" "
^DD(727.822,1,1,1,"%D",4,0)="DO NOT DELETE OR MODIFY."
^DD(727.822,1,1,1,"%D",5,0)=" "
^DD(727.822,1,1,1,"DT")="2921226"
^DD(727.822,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.822,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.822,1,3)="Answer must be 6 characters in length."
^DD(727.822,1,21,0)="^^2^2^2970922^^^^"
^DD(727.822,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.822,1,21,2,0)="for which this extract was performed."
^DD(727.822,1,23,0)="^^1^1^2970922^^^^"
^DD(727.822,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.822,1,"DT")="2970924"
^DD(727.822,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.822,2,.1)="Extract Number"
^DD(727.822,2,1,0)="^.1"
^DD(727.822,2,1,1,0)="727.822^AC"
^DD(727.822,2,1,1,1)="S ^ECX(727.822,""AC"",$E(X,1,30),DA)="""""
^DD(727.822,2,1,1,2)="K ^ECX(727.822,""AC"",$E(X,1,30),DA)"
^DD(727.822,2,1,1,3)="DO NOT DELETE."
^DD(727.822,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.822,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.822,2,1,1,"%D",2,0)="in this file."
^DD(727.822,2,1,1,"DT")="2910802"
^DD(727.822,2,3)="Enter the extract number for this extract."
^DD(727.822,2,21,0)="^^2^2^2961015^^^^"
^DD(727.822,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.822,2,21,2,0)="extract."
^DD(727.822,2,23,0)="^^2^2^2961015^^^^"
^DD(727.822,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.822,2,23,2,0)="pick up the header for the mail message."
^DD(727.822,2,"DT")="2961015"
^DD(727.822,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.822,3,.1)="Facility"
^DD(727.822,3,3)="Enter the station number where this extract was performed."
^DD(727.822,3,21,0)="^^1^1^2961015^^^^"
^DD(727.822,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.822,3,23,0)="^^2^2^2961015^^^^"
^DD(727.822,3,23,1,0)="For the Treating Specialty Change Setup extract, the FACILITY field "
^DD(727.822,3,23,2,0)="is null."
^DD(727.822,3,"DT")="2961016"
^DD(727.822,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.822,4,.1)="Patient No. - DFN"
^DD(727.822,4,3)="Enter the name of the patient for this extract record."
^DD(727.822,4,21,0)="^^1^1^2961016^^^^"
^DD(727.822,4,21,1,0)="The name of the patient for this extract record."
^DD(727.822,4,23,0)="^^3^3^2961016^^^^"
^DD(727.822,4,23,1,0)="Derived from the PATIENT field (.03) in the PATIENT MOVEMENT file "
^DD(727.822,4,23,2,0)="(#405), which is a pointer to the PATIENT file (#2). This data "
^DD(727.822,4,23,3,0)="represents the patient DFN."
^DD(727.822,4,"DT")="2961016"
^DD(727.822,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.822,5,.1)="Social Security Number"
^DD(727.822,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.822,5,21,0)="^^1^1^2961015^^^^"
^DD(727.822,5,21,1,0)="The patient's social security number."
^DD(727.822,5,23,0)="^^4^4^2961016^"
^DD(727.822,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.822,5,23,2,0)="in the TREATING SPECIALTY CHANGE SETUP EXTRACT file (#727.822), SSN data"
^DD(727.822,5,23,3,0)="is derived from the SOCIAL SECURITY NUMBER field (.09) in the PATIENT file"
^DD(727.822,5,23,4,0)="(#2)."
^DD(727.822,5,"DT")="2961015"
^DD(727.822,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.822,6,.1)="Name"
^DD(727.822,6,3)="Your answer must be 4 characters in length."
^DD(727.822,6,21,0)="^^1^1^2961015^^^^"
^DD(727.822,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.822,6,23,0)="^^5^5^2961016^"
^DD(727.822,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.822,6,23,2,0)="in the TREATING SPECIALTY CHANGE SETUP EXTRACT file (#727.822), NAME data"
^DD(727.822,6,23,3,0)="is derived from the NAME field (.01) in the PATIENT file (#2). The first"
^DD(727.822,6,23,4,0)="four characters of the first "","" piece are used, padded with trailing"
^DD(727.822,6,23,5,0)="spaces if necessary."
^DD(727.822,6,"DT")="2961015"
^DD(727.822,7,0)="IN OUT PATIENT INDICATOR^P40.9'^DIC(40.9,^0;8^Q"
^DD(727.822,7,.1)="In Out Patient Indicator"
^DD(727.822,7,3)="Enter the appropriate inpatient or outpatient indicator."
^DD(727.822,7,21,0)="^^2^2^2961015^^^^"
^DD(727.822,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.822,7,21,2,0)="extract entry."
^DD(727.822,7,23,0)="^^2^2^2961015^^^"
^DD(727.822,7,23,1,0)="For the Treating Specialty Change Setup extract this field is set to 3, "
^DD(727.822,7,23,2,0)="indicating inpatient status in the LOCATION TYPE file (#40.9)."
^DD(727.822,7,"DT")="2961015"
^DD(727.822,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.822,8,.1)="Day"
^DD(727.822,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.822,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.822,8,3)="Answer must be 8 characters in length."
^DD(727.822,8,21,0)="^^2^2^2970922^^^^"
^DD(727.822,8,21,1,0)="An 8-character numeric string that represents the date on which"
^DD(727.822,8,21,2,0)="the Treating Specialty change took place."
^DD(727.822,8,23,0)="^^9^9^2970923^^^^"
^DD(727.822,8,23,1,0)="Data source:"
^DD(727.822,8,23,2,0)=" "
^DD(727.822,8,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.822,8,23,4,0)=" "
^DD(727.822,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.822,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.822,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.822,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.822,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.822,8,"DT")="2970924"
^DD(727.822,9,0)="PRODUCT^F^^0;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.822,9,.1)="Product"
^DD(727.822,9,3)="The product or feeder key for this extract."
^DD(727.822,9,21,0)="^^1^1^2961016^^^"
^DD(727.822,9,21,1,0)="The product or feeder key for this extract."
^DD(727.822,9,23,0)="^^2^2^2961016^"
^DD(727.822,9,23,1,0)="For the Treating Specialty Change Setup extract, the PRODUCT field is"
^DD(727.822,9,23,2,0)="null."
^DD(727.822,9,"DT")="2961015"
^DD(727.822,10,0)="ADMISSION DATE^FO^^0;11^K:$L(X)>8!($L(X)<8) X"
^DD(727.822,10,.1)="Admission Date"
^DD(727.822,10,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.822,10,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.822,10,3)="Answer must be 8 characters in length."
^DD(727.822,10,21,0)="^^2^2^2970922^^^"
^DD(727.822,10,21,1,0)="An 8-character numeric string that represents the date of the Admission"
^DD(727.822,10,21,2,0)="associated with this Treating Specialty change."
^DD(727.822,10,23,0)="^^10^10^2971113^^^^"
^DD(727.822,10,23,1,0)="Data source:"
^DD(727.822,10,23,2,0)=" "
^DD(727.822,10,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.822,10,23,4,0)="   then to PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01)"
^DD(727.822,10,23,5,0)=" "
^DD(727.822,10,23,6,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.822,10,23,7,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.822,10,23,8,0)="then a default is used.  The default date value is the value of the "
^DD(727.822,10,23,9,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.822,10,23,10,0)="Year 2000 compliant per vendor."
^DD(727.822,10,"DT")="2970924"
^DD(727.822,11,0)="DISCHARGE DATE^FO^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.822,11,.1)="Discharge Date"
^DD(727.822,11,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.822,11,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.822,11,3)="Answer must be 8 characters in length."
^DD(727.822,11,21,0)="^^2^2^2970922^^^"
^DD(727.822,11,21,1,0)="This 8-character numeric string represents a Discharge date associated"
^DD(727.822,11,21,2,0)="with the Treating Specialty change."
^DD(727.822,11,23,0)="^^4^4^2970923^^^^"
^DD(727.822,11,23,1,0)="For the Treating Specialty Change Setup extract, the DISCHARGE DATE "
^DD(727.822,11,23,2,0)="field is null."
^DD(727.822,11,23,3,0)=" "
^DD(727.822,11,23,4,0)="Format is YYYYMMDD; Year 2000 compliant per vendor."
^DD(727.822,11,"DT")="2970924"
^DD(727.822,12,0)="MOVEMENT FILE #^P405'^DGPM(^0;13^Q"
^DD(727.822,12,.1)="Movement File Number"
^DD(727.822,12,3)="Enter the patient movement number associated with this extract record."
^DD(727.822,12,21,0)="^^1^1^2961015^^^"
^DD(727.822,12,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.822,12,23,0)="^^3^3^2961015^^^"
^DD(727.822,12,23,1,0)="The ^DGPM(""ATS"",DFN,ADM,INV_DATE, cross reference is used to "
^DD(727.822,12,23,2,0)="obtain the current movement number associated with this patient. "
^DD(727.822,12,23,3,0)="It is a pointer to the PATIENT MOVEMENT file (#405)."
^DD(727.822,12,"DT")="2961015"
^DD(727.822,13,0)="TYPE^F^^0;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.822,13,.1)="Type"
^DD(727.822,13,3)="Your answer must be 1 character in length."
^DD(727.822,13,21,0)="^^1^1^2961015^^"
^DD(727.822,13,21,1,0)="The type of movement for this patient."
^DD(727.822,13,23,0)="^^1^1^2961015^^"
^DD(727.822,13,23,1,0)="Using the ""ATT""_TYPE cross reference where TYPE=6 (specialty change)."
^DD(727.822,13,"DT")="2961015"
^DD(727.822,14,0)="GAINING WARD^P44'^SC(^0;15^Q"
^DD(727.822,14,.1)="Gaining Ward"
^DD(727.822,14,3)="Enter the patient's ward."
^DD(727.822,14,21,0)="^^1^1^2961016^^^^"
^DD(727.822,14,21,1,0)="The ward on which this patient was placed."
^DD(727.822,14,23,0)="^^2^2^2961016^"
^DD(727.822,14,23,1,0)="For the Treating Specialty Change Setup extract, the GAINING WARD field is"
^DD(727.822,14,23,2,0)="null."
^DD(727.822,14,"DT")="2961016"
^DD(727.822,15,0)="NEW TREATING SPECIALTY^P42.4'^DIC(42.4,^0;16^Q"
^DD(727.822,15,.1)="New Treating Specialty"
^DD(727.822,15,3)="Enter the name of the treating specialty associated with this extract record."
^DD(727.822,15,21,0)="^^1^1^2961016^^^^"
^DD(727.822,15,21,1,0)="The name of the treating specialty associated with this extract record."
^DD(727.822,15,23,0)="^^5^5^2961016^"
^DD(727.822,15,23,1,0)="NEW TREATING SPECIALTY is derived from the FACILITY TREATING SPECIALTY"
^DD(727.822,15,23,2,0)="field (.09) in the PATIENT MOVEMENT file (#405). This facility treating"
^DD(727.822,15,23,3,0)="specialty data is a pointer to the FACILITY TREATING SPECIALTY file"
^DD(727.822,15,23,4,0)="(#45.7). Using the SPECIALTY field (1) in the FACILITY TREATING SPECIALTY"
^DD(727.822,15,23,5,0)="file (#45.7), the pointer to the SPECIALTY file (#42.4) is obtained."
^DD(727.822,15,"DT")="2961016"
^DD(727.822,16,0)="DURATION^NJ4,0^^0;17^K:+X'=X!(X>5000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.822,16,.1)="Duration"
^DD(727.822,16,3)="Enter a number between 0 and 5000, 0 decimal digits."
^DD(727.822,16,21,0)="^^1^1^2961015^^^"
^DD(727.822,16,21,1,0)="Duration of stay within this movement."
^DD(727.822,16,23,0)="^^3^3^2961015^^^"
^DD(727.822,16,23,1,0)="Calculated as current treating specialty date minus the date (DATE/TIME "
^DD(727.822,16,23,2,0)="field (.01) of the PATIENT MOVEMENT file (#405)) of the last treating "
^DD(727.822,16,23,3,0)="specialty change."
^DD(727.822,16,"DT")="2961015"
^DD(727.822,17,0)="ATTENDING PHYSICIAN^F^^0;18^K:$L(X)>11!($L(X)<1) X"
^DD(727.822,17,.1)="Attending Physician"
^DD(727.822,17,3)="Enter attending physician for this patient."
^DD(727.822,17,21,0)="^^1^1^2961025^^^^"
^DD(727.822,17,21,1,0)="The attending physician assigned to this patient with this movement."
^DD(727.822,17,23,0)="^^4^4^2961025^^^^"
^DD(727.822,17,23,1,0)="Derived from the ATTENDING PHYSICIAN field (.19) of the PATIENT MOVEMENT "
^DD(727.822,17,23,2,0)="file (#405). If ATTENDING PHYSICIAN is a pointer to the NEW PERSON file "
^DD(727.822,17,23,3,0)="(#200), it is stored as ""2""_pointer value. If ATTENDING PHYSICIAN is a "
^DD(727.822,17,23,4,0)="pointer to the PROVIDER file (#6), it is stored as ""6""_pointer value."
^DD(727.822,17,"DT")="2961016"
^DD(727.822,18,0)="MOVEMENT TYPE^P405.2'^DG(405.2,^0;19^Q"
^DD(727.822,18,.1)="Movement Type"
^DD(727.822,18,3)="Enter the patient movement number associated with this extract record."
^DD(727.822,18,21,0)="^^1^1^2961016^^^"
^DD(727.822,18,21,1,0)="The MAS movement type for this movement."
^DD(727.822,18,23,0)="^^3^3^2961016^^^"
^DD(727.822,18,23,1,0)="MOVEMENT TYPE is derived from the MAS MOVEMENT TYPE field (.18) of "
^DD(727.822,18,23,2,0)="the PATIENT MOVEMENT file (#405). It is a pointer to the MAS MOVEMENT "
^DD(727.822,18,23,3,0)="TYPE file (#405.2)."
^DD(727.822,18,"DT")="2961015"
^DD(727.822,19,0)="TRT TIME^FO^^0;20^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.822,19,.1)="TRT Time"
^DD(727.822,19,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.822,19,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.822,19,3)="Answer must be 6 characters in length."
^DD(727.822,19,21,0)="^^2^2^2970922^^"
^DD(727.822,19,21,1,0)="A 6-character numeric string representing the time of day when the"
^DD(727.822,19,21,2,0)="Treating Specialty change took place."
^DD(727.822,19,23,0)="^^7^7^2970922^^"
^DD(727.822,19,23,1,0)="Data source:"
^DD(727.822,19,23,2,0)=" "
^DD(727.822,19,23,3,0)="PATIENT MOVEMENT file (#405); DATE/TIME field (#.01);"
^DD(727.822,19,23,4,0)="   2nd ""."" piece only."
^DD(727.822,19,23,5,0)=" "
^DD(727.822,19,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.822,19,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.822,19,"DT")="2970924"
^DD(727.822,20,0)="ADMISSION TIME^FO^^0;21^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.822,20,.1)="Admission Time"
^DD(727.822,20,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.822,20,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.822,20,3)="Answer must be 6 characters in length."
^DD(727.822,20,21,0)="^^2^2^2970922^^^"
^DD(727.822,20,21,1,0)="A 6-character numeric string that represent the time of day of the"
^DD(727.822,20,21,2,0)="Admission associated with this Treating Specialty change."
^DD(727.822,20,23,0)="^^7^7^2971113^^^"
^DD(727.822,20,23,1,0)="Data source:"
^DD(727.822,20,23,2,0)=" "
^DD(727.822,20,23,3,0)="PATIENT MOVEMENT file (#405); ADMISSION/CHECK-IN MOVEMENT field (#.14)"
^DD(727.822,20,23,4,0)="   then to PATIENT MOVEMENT FILE (#405); DATE/TIME (#.01)"
^DD(727.822,20,23,5,0)=" "
^DD(727.822,20,23,6,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.822,20,23,7,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.822,20,"DT")="2970924"
^DD(727.822,"B","ADMISSION DATE",10)=""
^DD(727.822,"B","ADMISSION TIME",20)=""
^DD(727.822,"B","ATTENDING PHYSICIAN",17)=""
^DD(727.822,"B","Admission Date",10)="1"
^DD(727.822,"B","Admission Time",20)="1"
^DD(727.822,"B","Attending Physician",17)="1"
^DD(727.822,"B","DAY",8)=""
^DD(727.822,"B","DISCHARGE DATE",11)=""
^DD(727.822,"B","DURATION",16)=""
^DD(727.822,"B","Day",8)="1"
^DD(727.822,"B","Discharge Date",11)="1"
^DD(727.822,"B","Duration",16)="1"
^DD(727.822,"B","EXTRACT NUMBER",2)=""
^DD(727.822,"B","Extract Number",2)="1"
^DD(727.822,"B","FACILITY",3)=""
^DD(727.822,"B","Facility",3)="1"
^DD(727.822,"B","GAINING WARD",14)=""
^DD(727.822,"B","Gaining Ward",14)="1"
^DD(727.822,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.822,"B","In Out Patient Indicator",7)="1"
^DD(727.822,"B","MOVEMENT FILE #",12)=""
^DD(727.822,"B","MOVEMENT TYPE",18)=""
^DD(727.822,"B","Movement File Number",12)="1"
^DD(727.822,"B","Movement Type",18)="1"
^DD(727.822,"B","NAME",6)=""
^DD(727.822,"B","NEW TREATING SPECIALTY",15)=""
^DD(727.822,"B","Name",6)="1"
^DD(727.822,"B","New Treating Specialty",15)="1"
^DD(727.822,"B","PATIENT NO. - DFN",4)=""
^DD(727.822,"B","PRODUCT",9)=""
^DD(727.822,"B","Patient No. - DFN",4)="1"
^DD(727.822,"B","Product",9)="1"
^DD(727.822,"B","SEQUENCE NUMBER",.01)=""
^DD(727.822,"B","SSN",5)=""
^DD(727.822,"B","Sequence Number",.01)="1"
^DD(727.822,"B","Social Security Number",5)="1"
^DD(727.822,"B","TRT TIME",19)=""
^DD(727.822,"B","TRT Time",19)="1"
^DD(727.822,"B","TYPE",13)=""
^DD(727.822,"B","Type",13)="1"
^DD(727.822,"B","YEAR MONTH",1)=""
^DD(727.822,"B","Year/Month",1)="1"
^DD(727.822,"GL",0,1,.01)=""
^DD(727.822,"GL",0,2,1)=""
^DD(727.822,"GL",0,3,2)=""
^DD(727.822,"GL",0,4,3)=""
^DD(727.822,"GL",0,5,4)=""
^DD(727.822,"GL",0,6,5)=""
^DD(727.822,"GL",0,7,6)=""
^DD(727.822,"GL",0,8,7)=""
^DD(727.822,"GL",0,9,8)=""
^DD(727.822,"GL",0,10,9)=""
^DD(727.822,"GL",0,11,10)=""
^DD(727.822,"GL",0,12,11)=""
^DD(727.822,"GL",0,13,12)=""
^DD(727.822,"GL",0,14,13)=""
^DD(727.822,"GL",0,15,14)=""
^DD(727.822,"GL",0,16,15)=""
^DD(727.822,"GL",0,17,16)=""
^DD(727.822,"GL",0,18,17)=""
^DD(727.822,"GL",0,19,18)=""
^DD(727.822,"GL",0,20,19)=""
^DD(727.822,"GL",0,21,20)=""
^DD(727.822,"IX",.01)=""
^DD(727.822,"IX",1)=""
^DD(727.822,"IX",2)=""
^DD(727.822,"RQ",.01)=""
^DD(727.823,0)="FIELD^^17^18"
^DD(727.823,0,"DDA")="N"
^DD(727.823,0,"DIK")="ECX823"
^DD(727.823,0,"DIKOLD")="ECX823"
^DD(727.823,0,"DT")="3000614"
^DD(727.823,0,"IX","AC",727.823,2)=""
^DD(727.823,0,"NM","PAI EXTRACT")=""
^DD(727.823,0,"VR")="3.0"
^DD(727.823,0,"VRPK")="ECX"
^DD(727.823,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.823,.01,.1)="Sequence Number"
^DD(727.823,.01,1,0)="^.1^^0"
^DD(727.823,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.823,.01,21,0)="^^1^1^2961008^^^^"
^DD(727.823,.01,21,1,0)="The record number for this extract entry."
^DD(727.823,.01,23,0)="^^1^1^2961008^^^^"
^DD(727.823,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.823,.01,"DT")="2980812"
^DD(727.823,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.823,1,.1)="Year/Month"
^DD(727.823,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.823,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.823,1,3)="Answer must be 6 characters in length."
^DD(727.823,1,21,0)="^^2^2^2970922^^^^"
^DD(727.823,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.823,1,21,2,0)="for which this extract was performed."
^DD(727.823,1,23,0)="^^1^1^2970922^^^^"
^DD(727.823,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.823,1,"DT")="2970924"
^DD(727.823,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.823,2,.1)="Extract Number"
^DD(727.823,2,1,0)="^.1"
^DD(727.823,2,1,1,0)="727.823^AC"
^DD(727.823,2,1,1,1)="S ^ECX(727.823,""AC"",$E(X,1,30),DA)="""""
^DD(727.823,2,1,1,2)="K ^ECX(727.823,""AC"",$E(X,1,30),DA)"
^DD(727.823,2,1,1,3)="DO NOT DELETE."
^DD(727.823,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.823,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.823,2,1,1,"%D",2,0)="in this file."
^DD(727.823,2,1,1,"DT")="2910802"
^DD(727.823,2,3)="Enter the extract number for this extract."
^DD(727.823,2,21,0)="^^2^2^2961008^^^^"
^DD(727.823,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.823,2,21,2,0)="extract."
^DD(727.823,2,23,0)="^^2^2^2961008^^^^"
^DD(727.823,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.823,2,23,2,0)="pick up the header for the mail message."
^DD(727.823,2,"DT")="2961008"
^DD(727.823,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.823,3,.1)="Facility"
^DD(727.823,3,3)="Enter the station number where this extract was performed."
^DD(727.823,3,21,0)="^^1^1^2961014^^^^"
^DD(727.823,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.823,3,23,0)="^^1^1^2961014^^^^"
^DD(727.823,3,23,1,0)="For the PAI extract, the FACILITY field is null."
^DD(727.823,3,"DT")="2961014"
^DD(727.823,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.823,4,.1)="Patient No. - DFN"
^DD(727.823,4,3)="Enter the name of the patient for this extract record."
^DD(727.823,4,21,0)="^^1^1^2990504^^^^"
^DD(727.823,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.823,4,23,0)="^^2^2^2990504^^^^"
^DD(727.823,4,23,1,0)="Derived from the NAME field (.01) in the PAF file (#45.9). NAME is a "
^DD(727.823,4,23,2,0)="pointer to the PATIENT file (#2). This data represents the patient DFN."
^DD(727.823,4,"DT")="2961015"
^DD(727.823,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.823,5,.1)="Social Security Number"
^DD(727.823,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.823,5,21,0)="^^4^4^2990504^^^^"
^DD(727.823,5,21,1,0)="The patient's social security number."
^DD(727.823,5,21,2,0)=" "
^DD(727.823,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.823,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.823,5,23,0)="^^6^6^2990504^^"
^DD(727.823,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.823,5,23,2,0)="in the PAI EXTRACT file (#727.823), SSN data is derived from the SOCIAL"
^DD(727.823,5,23,3,0)="SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.823,5,23,4,0)=" "
^DD(727.823,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.823,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.823,5,"DT")="2961008"
^DD(727.823,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.823,6,.1)="Name"
^DD(727.823,6,3)="Your answer must be 4 characters in length."
^DD(727.823,6,21,0)="^^1^1^2961015^^^^"
^DD(727.823,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.823,6,23,0)="^^4^4^2961015^"
^DD(727.823,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.823,6,23,2,0)="in the PAI EXTRACT file (#727.823), NAME data is derived from the NAME"
^DD(727.823,6,23,3,0)="field (.01) in the PATIENT file (#2). The first four characters of the"
^DD(727.823,6,23,4,0)="first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.823,6,"DT")="2961008"
^DD(727.823,7,0)="IN OUT PATIENT INDICATOR^P40.9'^DIC(40.9,^0;8^Q"
^DD(727.823,7,.1)="In Out Patient Indicator"
^DD(727.823,7,3)="Enter the appropriate inpatient or outpatient indicator."
^DD(727.823,7,21,0)="^^2^2^2961015^^^^"
^DD(727.823,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.823,7,21,2,0)="extract entry."
^DD(727.823,7,23,0)="^^2^2^2961015^^^^"
^DD(727.823,7,23,1,0)="For the PAI extract this field is set to 3, indicating inpatient status "
^DD(727.823,7,23,2,0)="in the LOCATION TYPE file (#40.9)."
^DD(727.823,7,"DT")="2961008"
^DD(727.823,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.823,8,.1)="Day"
^DD(727.823,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.823,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.823,8,3)="Answer must be 8 characters in length."
^DD(727.823,8,21,0)="^^2^2^2970922^^^^"
^DD(727.823,8,21,1,0)="A 6-character numeric string that represents tha date on which the"
^DD(727.823,8,21,2,0)="patient classification occurred."
^DD(727.823,8,23,0)="^^9^9^2970923^^^^"
^DD(727.823,8,23,1,0)="Data source:"
^DD(727.823,8,23,2,0)=" "
^DD(727.823,8,23,3,0)="PAF file (#45.9); ASSESSMENT DATE field (#2)"
^DD(727.823,8,23,4,0)=" "
^DD(727.823,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.823,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.823,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.823,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.823,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.823,8,"DT")="2970924"
^DD(727.823,9,0)="ADMISSION DATE^RFO^^0;10^K:$L(X)>8!($L(X)<8) X"
^DD(727.823,9,.1)="Admission Date"
^DD(727.823,9,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.823,9,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.823,9,3)="Answer must be 8 characters in length."
^DD(727.823,9,21,0)="^^2^2^2970922^^^^"
^DD(727.823,9,21,1,0)="This 8-character string represents the date on which the"
^DD(727.823,9,21,2,0)="patient Admission took place."
^DD(727.823,9,23,0)="^^11^11^2971113^^^^"
^DD(727.823,9,23,1,0)="DATE."
^DD(727.823,9,23,2,0)="Data source:"
^DD(727.823,9,23,3,0)=" "
^DD(727.823,9,23,4,0)="PAF file (#45.9); DATE OF ADMISSION/TRANSFER IN field (#7)"
^DD(727.823,9,23,5,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.823,9,23,6,0)=" "
^DD(727.823,9,23,7,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.823,9,23,8,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.823,9,23,9,0)="then a default is used.  The default date value is the value of the "
^DD(727.823,9,23,10,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.823,9,23,11,0)="Year 2000 compliant per vendor."
^DD(727.823,9,"DT")="2970924"
^DD(727.823,10,0)="ADMISSION TIME^FO^^0;11^K:$L(X)>6!($L(X)<6) X"
^DD(727.823,10,.1)="Admission Time"
^DD(727.823,10,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.823,10,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.823,10,3)="Answer must be 6 characters in length."
^DD(727.823,10,21,0)="^^2^2^2970922^^^"
^DD(727.823,10,21,1,0)="A 6-character numeric string that represents the time of day"
^DD(727.823,10,21,2,0)="at which the patient Admission occurred."
^DD(727.823,10,23,0)="^^12^12^2971113^^^^"
^DD(727.823,10,23,1,0)="Derived by using the DATE OF ADMISSION/TRANSFER IN field (7) in the "
^DD(727.823,10,23,2,0)="PAF file (#45.9) to find the corresponding admission in the PATIENT "
^DD(727.823,10,23,3,0)="MOVEMENT file (#405). The TIME portion of the DATE/TIME field (.01) "
^DD(727.823,10,23,4,0)="for that admission in the PATIENT MOVEMENT file (#405) is the ADMISSION "
^DD(727.823,10,23,5,0)="TIME, padded with trailing zeroes to six digits."
^DD(727.823,10,23,6,0)="Data source:"
^DD(727.823,10,23,7,0)=" "
^DD(727.823,10,23,8,0)="PAF file (#45.9); DATE OF ADMISSION/TRANSFER IN field (#7)"
^DD(727.823,10,23,9,0)="   then to PATIENT MOVEMENT file (#405); DATE/TIME field (#.01)"
^DD(727.823,10,23,10,0)=" "
^DD(727.823,10,23,11,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.823,10,23,12,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.823,10,"DT")="2970924"
^DD(727.823,11,0)="TRANSFER/ADMISSION DATE^FO^^0;12^K:$L(X)>8!($L(X)<8) X"
^DD(727.823,11,.1)="Transfer/Admission Date"
^DD(727.823,11,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.823,11,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.823,11,3)="Answer must be 8 characters in length."
^DD(727.823,11,21,0)="^^2^2^2970922^^^^"
^DD(727.823,11,21,1,0)="An 8-character numeric string that represents the date on which the"
^DD(727.823,11,21,2,0)="patient was admitted or transferred to the long-term ward."
^DD(727.823,11,23,0)="^^9^9^2970923^^^^"
^DD(727.823,11,23,1,0)="Data source:"
^DD(727.823,11,23,2,0)=" "
^DD(727.823,11,23,3,0)="PAF file (#45.9); DATE OF ADMISSION/TRANSFER in field (#7)"
^DD(727.823,11,23,4,0)=" "
^DD(727.823,11,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.823,11,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.823,11,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.823,11,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.823,11,23,9,0)="Year 2000 compliant per vendor."
^DD(727.823,11,"DT")="2970924"
^DD(727.823,12,0)="TRANSFER/ADMISSION TIME^FO^^0;13^K:$L(X)>6!($L(X)<6) X"
^DD(727.823,12,.1)="Transfer/Admission Time"
^DD(727.823,12,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.823,12,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.823,12,3)="Answer must be 6 characters in length."
^DD(727.823,12,21,0)="^^2^2^2970922^^^^"
^DD(727.823,12,21,1,0)="A 6-character numeric string that represents the time of day at which"
^DD(727.823,12,21,2,0)="the patient's admission or transfer to the long-term ward occurred."
^DD(727.823,12,23,0)="^^6^6^2970922^^^^"
^DD(727.823,12,23,1,0)="Data source:"
^DD(727.823,12,23,2,0)=" "
^DD(727.823,12,23,3,0)="PAF file (#45.9); DATE OF ADMISSION/TRANSFER in field (#7)"
^DD(727.823,12,23,4,0)=" "
^DD(727.823,12,23,5,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.823,12,23,6,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.823,12,"DT")="2970924"
^DD(727.823,13,0)="RACE^F^^0;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.823,13,.1)="Race"
^DD(727.823,13,3)="Enter race ABBREVIATION for this patient."
^DD(727.823,13,21,0)="^^1^1^2961015^^"
^DD(727.823,13,21,1,0)="Race ABBREVIATION for this patient."
^DD(727.823,13,23,0)="^^3^3^2961015^"
^DD(727.823,13,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4),"
^DD(727.823,13,23,2,0)="RACE data is shown as the ABBREVIATION field (2) of the RACE file (#10)"
^DD(727.823,13,23,3,0)="entry pointed to by the RACE field (.06) in the PATIENT file (#2)."
^DD(727.823,13,"DT")="2961015"
^DD(727.823,14,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.823,14,3)="Answer must be 1-10 characters in length."
^DD(727.823,14,21,0)="^^1^1^2990504^"
^DD(727.823,14,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.823,14,23,0)="^^2^2^2990504^"
^DD(727.823,14,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.823,14,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.823,14,"DT")="2990504"
^DD(727.823,15,0)="DSS DEPT.^F^^1;2^K:$L(X)>10!($L(X)<4) X"
^DD(727.823,15,3)="Answer must be 4-10 characters in length."
^DD(727.823,15,21,0)="^^1^1^2990506^^^"
^DD(727.823,15,21,1,0)="The DSS Department Code for the patient care product."
^DD(727.823,15,23,0)="^^2^2^2990506^^"
^DD(727.823,15,23,1,0)="A free text field of 4-10 characters; data not yet available."
^DD(727.823,15,23,2,0)="Field is set to null."
^DD(727.823,15,"DT")="2990506"
^DD(727.823,16,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;3^K:$L(X)>1!($L(X)<1) X"
^DD(727.823,16,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.823,16,21,0)="^^8^8^3001011^"
^DD(727.823,16,21,1,0)=" "
^DD(727.823,16,21,2,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is"
^DD(727.823,16,21,3,0)="admitted to either a DOM, PRRTP or SAARTP at the time hospital"
^DD(727.823,16,21,4,0)="service is provided."
^DD(727.823,16,21,5,0)="Domiciliary"
^DD(727.823,16,21,6,0)="(DOM)"
^DD(727.823,16,21,7,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.823,16,21,8,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.823,16,"DT")="3001010"
^DD(727.823,17,0)="EXTENDED OP INDICATOR^F^^1;4^K:$L(X)>4!($L(X)<1) X"
^DD(727.823,17,3)="Answer must be 1-4 characters in length. This field has yet to be defined by BTSO."
^DD(727.823,17,21,0)="^.001^1^1^3001012^^"
^DD(727.823,17,21,1,0)="Indicates that a patient is an Extended Outpatient. "
^DD(727.823,17,"DT")="3000614"
^DD(727.823,"B","ADMISSION DATE",9)=""
^DD(727.823,"B","ADMISSION TIME",10)=""
^DD(727.823,"B","Admission Date",9)="1"
^DD(727.823,"B","Admission Time",10)="1"
^DD(727.823,"B","DAY",8)=""
^DD(727.823,"B","DOM,PRRTP AND SAARTP INDICATOR",16)=""
^DD(727.823,"B","DSS DEPT.",15)=""
^DD(727.823,"B","Day",8)="1"
^DD(727.823,"B","EXTENDED OP INDICATOR",17)=""
^DD(727.823,"B","EXTRACT NUMBER",2)=""
^DD(727.823,"B","Extract Number",2)="1"
^DD(727.823,"B","FACILITY",3)=""
^DD(727.823,"B","Facility",3)="1"
^DD(727.823,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.823,"B","In Out Patient Indicator",7)="1"
^DD(727.823,"B","MASTER PATIENT INDEX",14)=""
^DD(727.823,"B","NAME",6)=""
^DD(727.823,"B","Name",6)="1"
^DD(727.823,"B","PATIENT NO. - DFN",4)=""
^DD(727.823,"B","Patient No. - DFN",4)="1"
^DD(727.823,"B","RACE",13)=""
^DD(727.823,"B","Race",13)="1"
^DD(727.823,"B","SEQUENCE NUMBER",.01)=""
^DD(727.823,"B","SSN",5)=""
^DD(727.823,"B","Sequence Number",.01)="1"
^DD(727.823,"B","Social Security Number",5)="1"
^DD(727.823,"B","TRANSFER/ADMISSION DATE",11)=""
^DD(727.823,"B","TRANSFER/ADMISSION TIME",12)=""
^DD(727.823,"B","Transfer/Admission Date",11)="1"
^DD(727.823,"B","Transfer/Admission Time",12)="1"
^DD(727.823,"B","YEAR MONTH",1)=""
^DD(727.823,"B","Year/Month",1)="1"
^DD(727.823,"GL",0,1,.01)=""
^DD(727.823,"GL",0,2,1)=""
^DD(727.823,"GL",0,3,2)=""
^DD(727.823,"GL",0,4,3)=""
^DD(727.823,"GL",0,5,4)=""
^DD(727.823,"GL",0,6,5)=""
^DD(727.823,"GL",0,7,6)=""
^DD(727.823,"GL",0,8,7)=""
^DD(727.823,"GL",0,9,8)=""
^DD(727.823,"GL",0,10,9)=""
^DD(727.823,"GL",0,11,10)=""
^DD(727.823,"GL",0,12,11)=""
^DD(727.823,"GL",0,13,12)=""
^DD(727.823,"GL",0,14,13)=""
^DD(727.823,"GL",1,1,14)=""
^DD(727.823,"GL",1,2,15)=""
^DD(727.823,"GL",1,3,16)=""
^DD(727.823,"GL",1,4,17)=""
^DD(727.823,"IX",2)=""
^DD(727.823,"RQ",.01)=""
^DD(727.823,"RQ",9)=""
^DD(727.824,0)="FIELD^^29^30"
^DD(727.824,0,"DDA")="N"
^DD(727.824,0,"DIK")="ECX824"
^DD(727.824,0,"DIKOLD")="ECX824"
^DD(727.824,0,"DT")="3020903"
^DD(727.824,0,"IX","AC",727.824,2)=""
^DD(727.824,0,"NM","LAB RESULTS EXTRACT")=""
^DD(727.824,0,"VR")="3.0"
^DD(727.824,0,"VRPK")="ECX"
^DD(727.824,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.824,.01,.1)="Sequence Number"
^DD(727.824,.01,1,0)="^.1^^0"
^DD(727.824,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(727.824,.01,21,0)="^^1^1^2961009^^^^"
^DD(727.824,.01,21,1,0)="The record number for this extract entry."
^DD(727.824,.01,23,0)="^^1^1^2961009^^^"
^DD(727.824,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(727.824,.01,"DT")="2980812"
^DD(727.824,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.824,1,.1)="Year/Month"
^DD(727.824,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.824,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.824,1,3)="Answer must be 6 characters in length."
^DD(727.824,1,21,0)="^^2^2^2970923^^^^"
^DD(727.824,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.824,1,21,2,0)="for which this extract was performed."
^DD(727.824,1,23,0)="^^1^1^2970923^^^^"
^DD(727.824,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.824,1,"DT")="2970924"
^DD(727.824,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.824,2,.1)="Extract Number"
^DD(727.824,2,1,0)="^.1"
^DD(727.824,2,1,1,0)="727.824^AC"
^DD(727.824,2,1,1,1)="S ^ECX(727.824,""AC"",$E(X,1,30),DA)="""""
^DD(727.824,2,1,1,2)="K ^ECX(727.824,""AC"",$E(X,1,30),DA)"
^DD(727.824,2,1,1,3)="DO NOT DELETE."
^DD(727.824,2,1,1,"%D",0)="^^2^2^2960808^"
^DD(727.824,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.824,2,1,1,"%D",2,0)="in this file."
^DD(727.824,2,1,1,"DT")="2910802"
^DD(727.824,2,3)="Enter the extract number for this extract."
^DD(727.824,2,21,0)="^^2^2^2961009^^^^"
^DD(727.824,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this "
^DD(727.824,2,21,2,0)="extract."
^DD(727.824,2,23,0)="^^2^2^2961009^^^^"
^DD(727.824,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.824,2,23,2,0)="pick up the header for the mail message."
^DD(727.824,2,"DT")="2961009"
^DD(727.824,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.824,3,.1)="Facility"
^DD(727.824,3,3)="Enter the station number where this extract was performed."
^DD(727.824,3,21,0)="^^1^1^2961009^^^^"
^DD(727.824,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.824,3,23,0)="^^4^4^2961009^^^"
^DD(727.824,3,23,1,0)="An indicator of the division where this event happened. Using the NAME "
^DD(727.824,3,23,2,0)="field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is "
^DD(727.824,3,23,3,0)="derived from the STATION NUMBER field (99) for that pointer number in "
^DD(727.824,3,23,4,0)="the INSTITUTION file (#4)."
^DD(727.824,3,"DT")="2961018"
^DD(727.824,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.824,4,.1)="Patient No. - DFN"
^DD(727.824,4,3)="Enter the name of the patient for this extract record."
^DD(727.824,4,21,0)="^^1^1^2990504^^^^"
^DD(727.824,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.824,4,23,0)="^^3^3^2990504^^^^"
^DD(727.824,4,23,1,0)="Pointer to the NAME field (.01) of the PATIENT file (#2). This data "
^DD(727.824,4,23,2,0)="represents the patient DFN. PATIENT NO. - DFN data is derived from the"
^DD(727.824,4,23,3,0)="NAME field (.03) in the LAB DATA file.(#63)"
^DD(727.824,4,"DT")="2961018"
^DD(727.824,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.824,5,.1)="Social Security Number"
^DD(727.824,5,3)="Your answer must be 9 to 10 characters in length."
^DD(727.824,5,21,0)="^^4^4^2990504^^^^"
^DD(727.824,5,21,1,0)="The patient's social security number."
^DD(727.824,5,21,2,0)=" "
^DD(727.824,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.824,5,21,4,0)="patient"" and will not be included in the extract.  "
^DD(727.824,5,23,0)="^^6^6^2990504^^"
^DD(727.824,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT No. - DFN field (4)"
^DD(727.824,5,23,2,0)="in the LAB RESULTS EXTRACT file (#727.824), SSN data is derived from the"
^DD(727.824,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.824,5,23,4,0)=" "
^DD(727.824,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.824,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.824,5,"DT")="2961009"
^DD(727.824,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.824,6,.1)="Name"
^DD(727.824,6,3)="Your answer must be 4 characters in length."
^DD(727.824,6,21,0)="^^1^1^2961018^^^^"
^DD(727.824,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.824,6,23,0)="^^4^4^2961018^"
^DD(727.824,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT No. - DFN field (4)"
^DD(727.824,6,23,2,0)="in the LAB RESULTS EXTRACT file (#727.824), NAME data is derived from the"
^DD(727.824,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). The first four characters of"
^DD(727.824,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.824,6,"DT")="2961009"
^DD(727.824,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.824,7,.1)="In Out Patient Indicator"
^DD(727.824,7,3)="Answer must be 1 character in length."
^DD(727.824,7,21,0)="^.001^2^2^3011206^^^^"
^DD(727.824,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.824,7,21,2,0)="extract entry."
^DD(727.824,7,23,0)="^^4^4^3011206^"
^DD(727.824,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.824,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.824,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.824,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.824,7,"DT")="3011206"
^DD(727.824,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.824,8,.1)="Day"
^DD(727.824,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.824,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.824,8,3)="Answer must be 8 characters in length."
^DD(727.824,8,21,0)="^^2^2^3030114^"
^DD(727.824,8,21,1,0)="An 8-character numeric string that represents the date on which"
^DD(727.824,8,21,2,0)="the Laboratory specimen was taken."
^DD(727.824,8,23,0)="^^12^12^3030114^"
^DD(727.824,8,23,1,0)="Data source:"
^DD(727.824,8,23,2,0)=" "
^DD(727.824,8,23,3,0)="LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)"
^DD(727.824,8,23,4,0)="   "
^DD(727.824,8,23,5,0)="LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);"
^DD(727.824,8,23,6,0)="   DATE/TIME SPECIMEN TAKEN field (#.01)"
^DD(727.824,8,23,7,0)=" "
^DD(727.824,8,23,8,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.824,8,23,9,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.824,8,23,10,0)="then a default is used.  The default date value is the value of the "
^DD(727.824,8,23,11,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.824,8,23,12,0)="Year 2000 compliant per vendor."
^DD(727.824,8,"DT")="3030114"
^DD(727.824,9,0)="TEST CODE^RF^^0;10^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(727.824,9,.1)="Test Code"
^DD(727.824,9,3)="Your answer must be 4 characters in length."
^DD(727.824,9,21,0)="^^1^1^2990511^^^^"
^DD(727.824,9,21,1,0)="The coded value of the lab test as specified by the vendor."
^DD(727.824,9,23,0)="^^4^4^2990511^^^^"
^DD(727.824,9,23,1,0)="The internal entry number of the test in the DSS LAB TEST multiple"
^DD(727.824,9,23,2,0)="field (#1), sub-file #727.21, of the DSS LAB TESTS file (#727.2)."
^DD(727.824,9,23,3,0)="The IEN is padded on the left with zeroes so that the data element"
^DD(727.824,9,23,4,0)="is always exactly 4 digits."
^DD(727.824,9,"DT")="2961009"
^DD(727.824,10,0)="RESULTS^NJ10,4^^0;11^K:+X'=X!(X>10000)!(X<-10000)!(X?.E1"".""5N.N) X"
^DD(727.824,10,.1)="Results"
^DD(727.824,10,3)="Enter a number between -10000 and 10000, 4 decimal digits."
^DD(727.824,10,21,0)="^^1^1^2961009^^"
^DD(727.824,10,21,1,0)="The result of the lab test."
^DD(727.824,10,23,0)="^^3^3^2961009^"
^DD(727.824,10,23,1,0)="Results of the test identified in the CHEM, HEM, TOX, RIA, SER, etc. "
^DD(727.824,10,23,2,0)="multiple (4) within the LAB DATA file (#63). (First ""^"" piece of "
^DD(727.824,10,23,3,0)="^LR(LRDFN,""CH"",INVERSE_DATE,TEST_IEN).)"
^DD(727.824,10,"DT")="2961009"
^DD(727.824,12,0)="HI/LO INDICATOR^S^H:HIGH;L:LOW;^0;12^Q"
^DD(727.824,12,.1)="Hi/Lo Indicator"
^DD(727.824,12,3)="Enter H for high or L for low."
^DD(727.824,12,21,0)="^^1^1^2961009^^"
^DD(727.824,12,21,1,0)="An indication of whether the results were abnormally high or low."
^DD(727.824,12,23,0)="^^3^3^2961009^"
^DD(727.824,12,23,1,0)="Results indicator of the test identified in the CHEM, HEM, TOX, RIA, "
^DD(727.824,12,23,2,0)="SER, etc. multiple (4) within the LAB DATA file (#63). (Second ""^"" "
^DD(727.824,12,23,3,0)="piece of ^LR(LRDFN,""CH"",INVERSE_DATE,TEST_IEN).)"
^DD(727.824,12,"DT")="2961009"
^DD(727.824,13,0)="DATE ORDERED^FO^^0;13^K:$L(X)>8!($L(X)<8) X"
^DD(727.824,13,.1)="Date Ordered"
^DD(727.824,13,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.824,13,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.824,13,3)="Answer must be 8 characters in length."
^DD(727.824,13,21,0)="^^2^2^2970923^^^^"
^DD(727.824,13,21,1,0)="An 8-character numeric string that represents the date on which"
^DD(727.824,13,21,2,0)="the Laboratory test was ordered."
^DD(727.824,13,23,0)="^^12^12^2971113^^^^"
^DD(727.824,13,23,1,0)="Data source:"
^DD(727.824,13,23,2,0)=" "
^DD(727.824,13,23,3,0)="LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)"
^DD(727.824,13,23,4,0)="   "
^DD(727.824,13,23,5,0)="LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);"
^DD(727.824,13,23,6,0)="   DATE/TIME SPECIMEN TAKEN field (#.01)"
^DD(727.824,13,23,7,0)=" "
^DD(727.824,13,23,8,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.824,13,23,9,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.824,13,23,10,0)="then a default is used.  The default date value is the value of the "
^DD(727.824,13,23,11,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.824,13,23,12,0)="Year 2000 compliant per vendor."
^DD(727.824,13,"DT")="2970924"
^DD(727.824,14,0)="TIME ORDERED^FO^^0;14^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.824,14,.1)="Time Ordered"
^DD(727.824,14,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.824,14,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.824,14,3)="Answer must be 6 characters in length"
^DD(727.824,14,21,0)="^^2^2^2970923^^^^"
^DD(727.824,14,21,1,0)="A 6-character numeric string that represents the time of day at which"
^DD(727.824,14,21,2,0)="the Laboratory test was ordered."
^DD(727.824,14,23,0)="^^8^8^2970923^^^^"
^DD(727.824,14,23,1,0)="Data source:"
^DD(727.824,14,23,2,0)=" "
^DD(727.824,14,23,3,0)="LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)"
^DD(727.824,14,23,4,0)="LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);"
^DD(727.824,14,23,5,0)="   DATE/TIME SPECIMEN TAKEN field (#.01)"
^DD(727.824,14,23,6,0)=" "
^DD(727.824,14,23,7,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.824,14,23,8,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.824,14,"DT")="2970924"
^DD(727.824,15,0)="DATE RESULTS READY^FO^^0;15^K:$L(X)>8!($L(X)<8) X"
^DD(727.824,15,.1)="Date Results Ready"
^DD(727.824,15,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.824,15,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.824,15,3)="Answer must be 8 characters in length."
^DD(727.824,15,21,0)="^^2^2^2970923^^^"
^DD(727.824,15,21,1,0)="An 8-character numeric string that represents the date on which"
^DD(727.824,15,21,2,0)="the Laboratory test result was ready for reporting."
^DD(727.824,15,23,0)="^^12^12^2971113^^^^"
^DD(727.824,15,23,1,0)="Data source:"
^DD(727.824,15,23,2,0)=" "
^DD(727.824,15,23,3,0)="LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)"
^DD(727.824,15,23,4,0)="  "
^DD(727.824,15,23,5,0)="LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);"
^DD(727.824,15,23,6,0)="   DATE REPORT COMPLETED field (#.03)"
^DD(727.824,15,23,7,0)=" "
^DD(727.824,15,23,8,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.824,15,23,9,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.824,15,23,10,0)="then a default is used.  The default date value is the value of the "
^DD(727.824,15,23,11,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.824,15,23,12,0)="Year 2000 compliant per vendor."
^DD(727.824,15,"DT")="2970924"
^DD(727.824,16,0)="TIME RESULTS READY^RFO^^0;16^K:$L(X)>6!($L(X)<6) X"
^DD(727.824,16,.1)="Time Results Ready"
^DD(727.824,16,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.824,16,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.824,16,3)="Answer must be 6 characters in length."
^DD(727.824,16,21,0)="^^2^2^2970923^^^^"
^DD(727.824,16,21,1,0)="A 6-character numeric string that represents the time of day at"
^DD(727.824,16,21,2,0)="which the Laboratory test result was ready for reporting."
^DD(727.824,16,23,0)="^^9^9^2971113^^^^"
^DD(727.824,16,23,1,0)="Data source:"
^DD(727.824,16,23,2,0)=" "
^DD(727.824,16,23,3,0)="LAB DSS LAR EXTRACT file (#64.036); DATE RESULTS AVAIL field (#5)"
^DD(727.824,16,23,4,0)="   "
^DD(727.824,16,23,5,0)="LAB DATA file (#63); CHEM, HEM, TOX, RIA, SER, etc. sub-file (#63.04);"
^DD(727.824,16,23,6,0)="   DATE REPORT COMPLETED field (#.03)"
^DD(727.824,16,23,7,0)=" "
^DD(727.824,16,23,8,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.824,16,23,9,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.824,16,"DT")="2970924"
^DD(727.824,17,0)="MOVEMENT FILE #^P405'^DGPM(^0;17^Q"
^DD(727.824,17,.1)="Movement File Number"
^DD(727.824,17,3)="Enter the patient movement number associated with this extract record."
^DD(727.824,17,21,0)="^^1^1^2961009^"
^DD(727.824,17,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.824,17,23,0)="^^4^4^2961009^"
^DD(727.824,17,23,1,0)="A call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.824,17,23,2,0)="patient movement number (indicating inpatient status). This field is set "
^DD(727.824,17,23,3,0)="to the value of VAIP(1), which is a pointer to the PATIENT MOVEMENT file "
^DD(727.824,17,23,4,0)="(#405)."
^DD(727.824,17,"DT")="2961009"
^DD(727.824,18,0)="TREATING SPECIALTY^F^^0;18^K:$L(X)>3!($L(X)<2) X"
^DD(727.824,18,.1)="Treating Specialty"
^DD(727.824,18,3)="Answer must be 2-3 characters in length"
^DD(727.824,18,21,0)="^^2^2^3070502^"
^DD(727.824,18,21,1,0)="The PTF CODE of the treating specialty associated with this extract"
^DD(727.824,18,21,2,0)="record."
^DD(727.824,18,23,0)="^.001^9^9^3070502^^"
^DD(727.824,18,23,1,0)="This field is initialized to a null, indicating an outpatient status. If "
^DD(727.824,18,23,2,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a "
^DD(727.824,18,23,3,0)="patient movement number (indicating inpatient status), then the value of "
^DD(727.824,18,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.824,18,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.824,18,23,6,0)="SPECIALTY file (#42.4)."
^DD(727.824,18,23,7,0)=" "
^DD(727.824,18,23,8,0)="Then, the PTF Code is obtained and stored instead of the actual specialty"
^DD(727.824,18,23,9,0)="code."
^DD(727.824,18,"DT")="3070420"
^DD(727.824,19,0)="WORKLOAD CODE^F^^0;19^K:$L(X)>10!($L(X)<1) X"
^DD(727.824,19,.1)="Workload Code"
^DD(727.824,19,3)="Enter the workload code for this event."
^DD(727.824,19,21,0)="^^1^1^2990511^^^^"
^DD(727.824,19,21,1,0)="The workload code for this event which corresponds to a CAP code."
^DD(727.824,19,23,0)="^^4^4^2990511^^^^"
^DD(727.824,19,23,1,0)="WKLD CODE field (1) of the WKLD CODE file (#64) as pointed to by the "
^DD(727.824,19,23,2,0)="NATIONAL VA LAB CODE field (64) of the LABORATORY TEST file (#60) as"
^DD(727.824,19,23,3,0)="pointed to by the LOCAL LAB TEST NAME field (1) multiple within the DSS"
^DD(727.824,19,23,4,0)="LAB TEST field (1) multiple of the DSS LAB TESTS file (#727.2)."
^DD(727.824,19,"DT")="2961018"
^DD(727.824,20,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.824,20,3)="Answer must be 1-10 characters in length."
^DD(727.824,20,21,0)="^^1^1^2990504^"
^DD(727.824,20,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.824,20,23,0)="^^2^2^2990504^"
^DD(727.824,20,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.824,20,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.824,20,"DT")="2990504"
^DD(727.824,21,0)="DSS DEPT.^F^^1;2^K:$L(X)>10!($L(X)<4) X"
^DD(727.824,21,3)="Answer must be 4-10 characters in length."
^DD(727.824,21,21,0)="^^1^1^2990506^^^"
^DD(727.824,21,21,1,0)="The DSS Department Code for the Laboratory product."
^DD(727.824,21,23,0)="^^2^2^2990506^^"
^DD(727.824,21,23,1,0)="A free text field of 4-10 characters; data not yet available."
^DD(727.824,21,23,2,0)="Field is set to null."
^DD(727.824,21,"DT")="2990506"
^DD(727.824,22,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;3^K:$L(X)>1!($L(X)<1) X"
^DD(727.824,22,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.824,22,21,0)="^^5^5^3001020^"
^DD(727.824,22,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.824,22,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.824,22,21,3,0)="Domiciliary (DOM)"
^DD(727.824,22,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.824,22,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.824,22,"DT")="3001010"
^DD(727.824,23,0)="TIME COLLECTED^F^^1;4^K:$L(X)>6!($L(X)<1) X"
^DD(727.824,23,3)="Answer must be 1-6 characters in length."
^DD(727.824,23,21,0)="^^1^1^3001020^"
^DD(727.824,23,21,1,0)="Time of day specimen was collected."
^DD(727.824,23,"DT")="3000614"
^DD(727.824,24,0)="OBSERVATION PATIENT INDICATOR^F^^1;5^K:$L(X)>4!($L(X)<1) X"
^DD(727.824,24,3)="Answer must be 1-4 characters in length."
^DD(727.824,24,21,0)="^.001^2^2^3011212^^"
^DD(727.824,24,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.824,24,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.824,24,"DT")="3010814"
^DD(727.824,25,0)="ENCOUNTER NUMBER^F^^1;6^K:$L(X)>18!($L(X)<1) X"
^DD(727.824,25,3)="Answer must be 1-18 characters in length"
^DD(727.824,25,21,0)="^.001^3^3^3011212^^"
^DD(727.824,25,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.824,25,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.824,25,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.824,25,"DT")="3010503"
^DD(727.824,26,0)="PRODUCTION DIVISION CODE^F^^1;7^K:$L(X)>6!($L(X)<3) X"
^DD(727.824,26,3)="Answer must be 3-6 characters in length."
^DD(727.824,26,21,0)="^.001^2^2^3021008^^"
^DD(727.824,26,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.824,26,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.824,26,23,0)="^^2^2^3021008^"
^DD(727.824,26,23,1,0)="Data comes from the STATION NUMBER field (#99) of the INSTITUTION "
^DD(727.824,26,23,2,0)="file (#4)."
^DD(727.824,26,"DT")="3021008"
^DD(727.824,27,0)="LAB RESULTS TRANSLATION^F^^1;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.824,27,.1)="Lab Results Translation"
^DD(727.824,27,3)="Answer must be 1 character in length"
^DD(727.824,27,21,0)="^^1^1^3020903^"
^DD(727.824,27,21,1,0)="The translation code for free text entries in the RESULTS field (#10)."
^DD(727.824,27,23,0)="^^3^3^3020903^"
^DD(727.824,27,23,1,0)="For free text results entered in the RESULTS field (#10), the LAB RESULTS "
^DD(727.824,27,23,2,0)="TRANSLATION is derived from the TRANSLATION CODE field (#1) of the LAB"
^DD(727.824,27,23,3,0)="RESULTS TRANSLATION file (#727.7)."
^DD(727.824,27,"DT")="3020903"
^DD(727.824,28,0)="ORDERING PROVIDER^F^^1;9^K:$L(X)>11!($L(X)<1) X"
^DD(727.824,28,3)="Answer must be 1-11 characters in length."
^DD(727.824,28,21,0)="^^2^2^3040317^"
^DD(727.824,28,21,1,0)="ORDERING PROVIDER is derived by pointing to the New Person File # 200 for "
^DD(727.824,28,21,2,0)="field indicating Provider."
^DD(727.824,28,23,0)="^^2^2^3040317^"
^DD(727.824,28,23,1,0)="ORDERING PROVIDER is derived by pointing to the New Person File # 200 for "
^DD(727.824,28,23,2,0)="field indicating Provider."
^DD(727.824,28,"DT")="3040226"
^DD(727.824,29,0)="ORDERING PROVIDER PERSON CLASS^F^^1;10^K:$L(X)>7!($L(X)<1) X"
^DD(727.824,29,3)="Answer must be 1-7 characters in length."
^DD(727.824,29,21,0)="^^3^3^3040317^"
^DD(727.824,29,21,1,0)="ORDERING PROVIDER PERSON CLASS is derived by first pointing to the New "
^DD(727.824,29,21,2,0)="Person File # 200 for provider.  File # 200 then points to the Person "
^DD(727.824,29,21,3,0)="Class File # 8932.1 to check for Person Class."
^DD(727.824,29,23,0)="^^3^3^3040317^"
^DD(727.824,29,23,1,0)="ORDERING PROVIDER PERSON CLASS is derived by first pointing to the New "
^DD(727.824,29,23,2,0)="Person File # 200 for provider.  File # 200 then points to the Person "
^DD(727.824,29,23,3,0)="Class File # 8932.1 to check for Person Class."
^DD(727.824,29,"DT")="3040226"
^DD(727.824,30,0)="ORDERING PROVIDER NPI^F^^1;11^K:$L(X)>15!($L(X)<1) X"
^DD(727.824,30,3)="Answer must be 1-15 characters in length."
^DD(727.824,30,21,0)="^^2^2^3070502^"
^DD(727.824,30,21,1,0)="A standard unique life-long identifier of the provider who ordered the "
^DD(727.824,30,21,2,0)="lab test.  This field has a length of fifteen characters."
^DD(727.824,30,23,0)="^.001^3^3^3070502^^"
^DD(727.824,30,23,1,0)="ORDERING PROVIDER NPI is a standard unique life-long identifier of the "
^DD(727.824,30,23,2,0)="provider who ordered the lab test.  The qualified identifier shall be "
^DD(727.824,30,23,3,0)="retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.824,30,"DT")="3070504"
^DD(727.824,"B","DATE ORDERED",13)=""
^DD(727.824,"B","DATE RESULTS READY",15)=""
^DD(727.824,"B","DAY",8)=""
^DD(727.824,"B","DOM,PRRTP AND SAARTP INDICATOR",22)=""
^DD(727.824,"B","DSS DEPT.",21)=""
^DD(727.824,"B","Date Ordered",13)="1"
^DD(727.824,"B","Date Results Ready",15)="1"
^DD(727.824,"B","Day",8)="1"
^DD(727.824,"B","ENCOUNTER NUMBER",25)=""
^DD(727.824,"B","EXTRACT NUMBER",2)=""
^DD(727.824,"B","Extract Number",2)="1"
^DD(727.824,"B","FACILITY",3)=""
^DD(727.824,"B","Facility",3)="1"
^DD(727.824,"B","HI/LO INDICATOR",12)=""
^DD(727.824,"B","Hi/Lo Indicator",12)="1"
^DD(727.824,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.824,"B","In Out Patient Indicator",7)="1"
^DD(727.824,"B","LAB RESULTS TRANSLATION",27)=""
^DD(727.824,"B","Lab Results Translation",27)="1"
^DD(727.824,"B","MASTER PATIENT INDEX",20)=""
^DD(727.824,"B","MOVEMENT FILE #",17)=""
^DD(727.824,"B","Movement File Number",17)="1"
^DD(727.824,"B","NAME",6)=""
^DD(727.824,"B","Name",6)="1"
^DD(727.824,"B","OBSERVATION PATIENT INDICATOR",24)=""
^DD(727.824,"B","ORDERING PROVIDER",28)=""
^DD(727.824,"B","ORDERING PROVIDER NPI",30)=""
^DD(727.824,"B","ORDERING PROVIDER PERSON CLASS",29)=""
^DD(727.824,"B","PATIENT NO. - DFN",4)=""
^DD(727.824,"B","PRODUCTION DIVISION CODE",26)=""
^DD(727.824,"B","Patient No. - DFN",4)="1"
^DD(727.824,"B","RESULTS",10)=""
^DD(727.824,"B","Results",10)="1"
^DD(727.824,"B","SEQUENCE NUMBER",.01)=""
^DD(727.824,"B","SSN",5)=""
^DD(727.824,"B","Sequence Number",.01)="1"
^DD(727.824,"B","Social Security Number",5)="1"
^DD(727.824,"B","TEST CODE",9)=""
^DD(727.824,"B","TIME COLLECTED",23)=""
^DD(727.824,"B","TIME ORDERED",14)=""
^DD(727.824,"B","TIME RESULTS READY",16)=""
^DD(727.824,"B","TREATING SPECIALTY",18)=""
^DD(727.824,"B","Test Code",9)="1"
^DD(727.824,"B","Time Ordered",14)="1"
^DD(727.824,"B","Time Results Ready",16)="1"
^DD(727.824,"B","Treating Specialty",18)="1"
^DD(727.824,"B","WORKLOAD CODE",19)=""
^DD(727.824,"B","Workload Code",19)="1"
^DD(727.824,"B","YEAR MONTH",1)=""
^DD(727.824,"B","Year/Month",1)="1"
^DD(727.824,"GL",0,1,.01)=""
^DD(727.824,"GL",0,2,1)=""
^DD(727.824,"GL",0,3,2)=""
^DD(727.824,"GL",0,4,3)=""
^DD(727.824,"GL",0,5,4)=""
^DD(727.824,"GL",0,6,5)=""
^DD(727.824,"GL",0,7,6)=""
^DD(727.824,"GL",0,8,7)=""
^DD(727.824,"GL",0,9,8)=""
^DD(727.824,"GL",0,10,9)=""
^DD(727.824,"GL",0,11,10)=""
^DD(727.824,"GL",0,12,12)=""
^DD(727.824,"GL",0,13,13)=""
^DD(727.824,"GL",0,14,14)=""
^DD(727.824,"GL",0,15,15)=""
^DD(727.824,"GL",0,16,16)=""
^DD(727.824,"GL",0,17,17)=""
^DD(727.824,"GL",0,18,18)=""
^DD(727.824,"GL",0,19,19)=""
^DD(727.824,"GL",1,1,20)=""
^DD(727.824,"GL",1,2,21)=""
^DD(727.824,"GL",1,3,22)=""
^DD(727.824,"GL",1,4,23)=""
^DD(727.824,"GL",1,5,24)=""
^DD(727.824,"GL",1,6,25)=""
^DD(727.824,"GL",1,7,26)=""
^DD(727.824,"GL",1,8,27)=""
^DD(727.824,"GL",1,9,28)=""
^DD(727.824,"GL",1,10,29)=""
^DD(727.824,"GL",1,11,30)=""
^DD(727.824,"IX",2)=""
^DD(727.824,"RQ",.01)=""
^DD(727.824,"RQ",9)=""
^DD(727.824,"RQ",16)=""
^DD(727.825,0)="FIELD^^82^97"
^DD(727.825,0,"DDA")="N"
^DD(727.825,0,"DIK")="ECX825"
^DD(727.825,0,"DIKOLD")="ECX825"
^DD(727.825,0,"DT")="3021010"
^DD(727.825,0,"IX","AC",727.815,2)=""
^DD(727.825,0,"IX","AC",727.825,2)=""
^DD(727.825,0,"NM","QUASAR EXTRACT")=""
^DD(727.825,0,"VR")="3.0"
^DD(727.825,0,"VRPK")="ECX"
^DD(727.825,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.825,.01,.1)="Sequence Number"
^DD(727.825,.01,1,0)="^.1^^0"
^DD(727.825,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.825,.01,21,0)="^^1^1^2960401^^^^"
^DD(727.825,.01,21,1,0)="The record number for this extract entry."
^DD(727.825,.01,23,0)="^^2^2^2960401^^^^"
^DD(727.825,.01,23,1,0)="The internal entry number (IEN) for this record."
^DD(727.825,.01,23,2,0)="This entry is DINUMed."
^DD(727.825,.01,"DT")="2980812"
^DD(727.825,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.825,1,.1)="Year/Month"
^DD(727.825,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.825,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.825,1,3)="Answer must be 6 characters in length."
^DD(727.825,1,21,0)="^^2^2^2970922^^^^"
^DD(727.825,1,21,1,0)="A six character string representing the year and the month"
^DD(727.825,1,21,2,0)="for which this extract was performed."
^DD(727.825,1,23,0)="^^1^1^2970922^^^^"
^DD(727.825,1,23,1,0)="Format is YYYYMM; Year 2000 compliant per vendor."
^DD(727.825,1,"DT")="2970924"
^DD(727.825,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.825,2,.1)="Extract Number"
^DD(727.825,2,1,0)="^.1"
^DD(727.825,2,1,1,0)="727.815^AC"
^DD(727.825,2,1,1,1)="S ^ECX(727.825,""AC"",$E(X,1,30),DA)="""""
^DD(727.825,2,1,1,2)="K ^ECX(727.825,""AC"",$E(X,1,30),DA)"
^DD(727.825,2,1,1,3)="DO NOT DELETE"
^DD(727.825,2,1,1,"%D",0)="^.101^2^2^3001024^^"
^DD(727.825,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data"
^DD(727.825,2,1,1,"%D",2,0)="in this file."
^DD(727.825,2,1,1,"DT")="2910802"
^DD(727.825,2,3)="Enter the extract number for this extract."
^DD(727.825,2,21,0)="^^1^1^2970603^^^^"
^DD(727.825,2,21,1,0)="The DSS extract log entry for this Event Capture extract."
^DD(727.825,2,21,2,0)="for this extract."
^DD(727.825,2,23,0)="^^2^2^2970603^^^^"
^DD(727.825,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose"
^DD(727.825,2,23,2,0)="is to pick up the header for the mail message."
^DD(727.825,2,"DT")="2950317"
^DD(727.825,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,3,.1)="Facility"
^DD(727.825,3,3)="Enter the station number where this extract was performed."
^DD(727.825,3,21,0)="1^^1^1^2960401^^^"
^DD(727.825,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.825,3,23,0)="^^3^3^2960401^^^^"
^DD(727.825,3,23,1,0)="A free text field that represents the STATION NUMBER field (99)"
^DD(727.825,3,23,2,0)="from the INSTITUTION file (#4). It is derived from the LOCATION"
^DD(727.825,3,23,3,0)="field (3) in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,3,"DT")="2951204"
^DD(727.825,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.825,4,.1)="Patient No. - DFN"
^DD(727.825,4,3)="Enter the name of the patient for this extract record."
^DD(727.825,4,21,0)="1^^1^1^2990504^^^^"
^DD(727.825,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.825,4,23,0)="^^3^3^2990504^^^^"
^DD(727.825,4,23,1,0)="A pointer to the PATIENT file (#2). This patient pointer is"
^DD(727.825,4,23,2,0)="pulled from the PATIENT field (1) in the EVENT CAPTURE"
^DD(727.825,4,23,3,0)="PATIENT file (#721)."
^DD(727.825,4,23,4,0)="PATIENT file (#2)."
^DD(727.825,4,"DT")="2971030"
^DD(727.825,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.825,5,.1)="Social Security Number"
^DD(727.825,5,3)="Enter the social security number for this patient's extract record."
^DD(727.825,5,21,0)="^^5^5^2990504^^^^"
^DD(727.825,5,21,1,0)="The social security number (SSN) for the patient associated"
^DD(727.825,5,21,2,0)="with this extract record."
^DD(727.825,5,21,3,0)=" "
^DD(727.825,5,21,4,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.825,5,21,5,0)="patient"" and will not be included in the extract.  "
^DD(727.825,5,23,0)="^^5^5^2990504^^^^"
^DD(727.825,5,23,1,0)="The social security number extracted from the SSN field (.09)"
^DD(727.825,5,23,2,0)="from the PATIENT file (#2)."
^DD(727.825,5,23,3,0)=" "
^DD(727.825,5,23,4,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.825,5,23,5,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.825,5,23,6,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.825,5,"DT")="2910802"
^DD(727.825,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.825,6,.1)="Name"
^DD(727.825,6,3)="Enter the first four characters of this patients last name."
^DD(727.825,6,21,0)="^^2^2^2960401^^^^"
^DD(727.825,6,21,1,0)="The first four characters of the patient's last name associated"
^DD(727.825,6,21,2,0)="with this extract record."
^DD(727.825,6,23,0)="^^4^4^2960401^^^"
^DD(727.825,6,23,1,0)="Free text first four characters of the patients last name."
^DD(727.825,6,23,2,0)="This is extracted from the patient's name stored in the"
^DD(727.825,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). If necessary,"
^DD(727.825,6,23,4,0)="trailing spaces are padded to equal 4 characters."
^DD(727.825,6,"DT")="2910802"
^DD(727.825,7,0)="IN OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,7,.1)="In Out Patient Indicator"
^DD(727.825,7,3)="Answer must be 1 character in length."
^DD(727.825,7,21,0)="^.001^2^2^3011207^^^^"
^DD(727.825,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this "
^DD(727.825,7,21,2,0)="extract entry."
^DD(727.825,7,23,0)="^.001^4^4^3011207^^^^"
^DD(727.825,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.825,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.825,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.825,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.825,7,"DT")="3011129"
^DD(727.825,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.825,8,.1)="Day"
^DD(727.825,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.825,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.825,8,3)="Answer must be 8 characters in length."
^DD(727.825,8,21,0)="^^3^3^2970922^^^^"
^DD(727.825,8,21,1,0)="This 8-character string represents the date on which the procedure"
^DD(727.825,8,21,2,0)="associated with this Event Capture Patient extract record"
^DD(727.825,8,21,3,0)="was performed."
^DD(727.825,8,23,0)="^^9^9^2970923^^^^"
^DD(727.825,8,23,1,0)="The day when this event occurred. Date is pulled from the"
^DD(727.825,8,23,2,0)="DATE/TIME OF PROCEDURE field (2) in the EVENT CAPTURE"
^DD(727.825,8,23,3,0)="PATIENT file (#721). "
^DD(727.825,8,23,4,0)=" "
^DD(727.825,8,23,5,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.825,8,23,6,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined, "
^DD(727.825,8,23,7,0)="then a default is used.  The default date value is the value of the "
^DD(727.825,8,23,8,0)="YEAR MONTH field (#1) concatenated with ""01"" for the day (DD) portion."
^DD(727.825,8,23,9,0)="Year 2000 compliant per vendor."
^DD(727.825,8,"DT")="2970924"
^DD(727.825,9,0)="DSS UNIT^P724'^ECD(^0;10^Q"
^DD(727.825,9,.1)="DSS Unit"
^DD(727.825,9,3)="Enter the name of the DSS unit for this extract record."
^DD(727.825,9,21,0)="^^1^1^2990702^^^"
^DD(727.825,9,21,1,0)="This is the name of the DSS unit for this extract record."
^DD(727.825,9,23,0)="^^3^3^2990702^^^^"
^DD(727.825,9,23,1,0)="A pointer to the DSS UNIT file (#724). DSS unit pointer"
^DD(727.825,9,23,2,0)="is pulled from the DSS UNIT field (6) in the EVENT CAPTURE"
^DD(727.825,9,23,3,0)="PATIENT file (#721)."
^DD(727.825,9,23,4,0)="(#509850.8)."
^DD(727.825,9,"DT")="2910828"
^DD(727.825,10,0)="CATEGORY^F^^0;11^K:$L(X)>6!($L(X)<1) X"
^DD(727.825,10,.1)="Category"
^DD(727.825,10,3)="Answer must be 1-6 characters in length."
^DD(727.825,10,21,0)="1^^2^2^2970911^^^"
^DD(727.825,10,21,1,0)="This field contains the IEN in file #726 for the Category associated"
^DD(727.825,10,21,2,0)="with this extract record."
^DD(727.825,10,23,0)="^^4^4^2970911^^^^"
^DD(727.825,10,23,1,0)="A character string which represents the IEN of the Category"
^DD(727.825,10,23,2,0)="in the EVENT CAPTURE CATEGORY file (#726)."
^DD(727.825,10,23,3,0)="Category is pulled from the CATEGORY field (7) in the"
^DD(727.825,10,23,4,0)="EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,10,"DT")="2970911"
^DD(727.825,11,0)="PROCEDURE^F^^0;12^K:$L(X)>8!($L(X)<5) X"
^DD(727.825,11,.1)="Procedure"
^DD(727.825,11,3)="Answer must be 5-8 characters in length."
^DD(727.825,11,21,0)="1^.001^2^2^3020424^^^^"
^DD(727.825,11,21,1,0)="This field contains the name of the procedure selected"
^DD(727.825,11,21,2,0)="for this extract record."
^DD(727.825,11,23,0)="^.001^12^12^3020424^^"
^DD(727.825,11,23,1,0)="For divisions using CPT codes, the procedure pointer is pulled from the"
^DD(727.825,11,23,2,0)="PROCEDURE CODE field (.01) of the PROCEDURE CODE multiple (10) of the A&SP"
^DD(727.825,11,23,3,0)="CLINIC VISIT file (#509850.6).  The CPT CODE (.01) from the CPT file (#81)"
^DD(727.825,11,23,4,0)="is concatenated with the volume (2 digits padded to the right with zeros)."
^DD(727.825,11,23,5,0)="Volume is pulled from the VOLUME field (.03) of the PROCEDURE CODE"
^DD(727.825,11,23,6,0)="multiple (10) of the A&SP CLINIC VISIT file (#509850.6)."
^DD(727.825,11,23,7,0)=" "
^DD(727.825,11,23,8,0)="For divisions using Event Capture Procedure codes, the procedure pointer"
^DD(727.825,11,23,9,0)="is pulled from the EVENT CAPTURE PROCEDURE field (.01) of the EVENT"
^DD(727.825,11,23,10,0)="CAPTURE PROECEDURE multiple (15) of the A&SP CLINIC VISIT file"
^DD(727.825,11,23,11,0)="(#509850.6). The NATIONAL NUMBER (1) from the EC NATIONAL PROCEDURE file"
^DD(727.825,11,23,12,0)="(#725) is concatenated with ""N"" for national codes or ""L"" for local codes."
^DD(727.825,11,"DT")="2971030"
^DD(727.825,12,0)="VOLUME^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.825,12,.1)="Volume"
^DD(727.825,12,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(727.825,12,21,0)="^^1^1^2960401^^"
^DD(727.825,12,21,1,0)="This field tracks the volume of this specific procedure performed."
^DD(727.825,12,23,0)="^^3^3^2960401^^"
^DD(727.825,12,23,1,0)="Numeric volume for this procedure associated with this extract"
^DD(727.825,12,23,2,0)="record. Volume is pulled from the VOLUME field (9) in the"
^DD(727.825,12,23,3,0)="EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,12,"DT")="2911108"
^DD(727.825,13,0)="COST CENTER^F^^0;14^K:$L(X)>8!($L(X)<6) X"
^DD(727.825,13,.1)="Cost Center"
^DD(727.825,13,3)="Enter the cost center associated with this extract record."
^DD(727.825,13,21,0)="^^1^1^2990510^^^^"
^DD(727.825,13,21,1,0)="This is the cost center associated with this extract record."
^DD(727.825,13,23,0)="^^3^3^2990510^^^^"
^DD(727.825,13,23,1,0)="A pointer to the COST CENTER file (#420.1). Cost center"
^DD(727.825,13,23,2,0)="is derived from the COST CENTER field (3) in the DSS UNIT"
^DD(727.825,13,23,3,0)="file (#724)."
^DD(727.825,13,23,4,0)="(727.8252) in the A&SP SITE PARAMETER file (#509850.8)."
^DD(727.825,13,"DT")="2951204"
^DD(727.825,14,0)="ORDERING SECTION^F^^0;15^K:$L(X)>3!($L(X)<1) X"
^DD(727.825,14,.1)="Ordering Section"
^DD(727.825,14,3)="Answer must be 1-3 characters in length."
^DD(727.825,14,21,0)="^^2^2^2970912^^^^"
^DD(727.825,14,21,1,0)="This is the IEN in file #723 of the Ordering Section associated with"
^DD(727.825,14,21,2,0)="this extract record."
^DD(727.825,14,23,0)="^^4^4^2970912^^^^"
^DD(727.825,14,23,1,0)="This character string represents the IEN of the Ordering Section"
^DD(727.825,14,23,2,0)="in the MEDICAL SPECIALTY file (#723)."
^DD(727.825,14,23,3,0)="The Ordering Section is pulled from the ORDERING SECTION field (#11) "
^DD(727.825,14,23,4,0)="in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,14,23,5,0)="(#727.8251) or from the SPEECH PATHOLOGY DSS UNIT LINK field (#727.8252) "
^DD(727.825,14,23,6,0)="in the A&SP SITE PARAMETER file (#509850.8)."
^DD(727.825,14,"DT")="2990517"
^DD(727.825,15,0)="SECTION^F^^0;16^K:$L(X)>3!($L(X)<1) X"
^DD(727.825,15,.1)="Section"
^DD(727.825,15,3)="Answer must be 1-3 characters in length."
^DD(727.825,15,21,0)="^^2^2^2970912^^^^"
^DD(727.825,15,21,1,0)="This is the IEN in file #723 of the Medical Specialty of the DSS Unit "
^DD(727.825,15,21,2,0)="associated with this extract record."
^DD(727.825,15,23,0)="^^4^4^2970912^^^^"
^DD(727.825,15,23,1,0)="This character string represents an IEN in the MEDICAL"
^DD(727.825,15,23,2,0)="SPECIALTY file (#723)."
^DD(727.825,15,23,3,0)="The data is pulled from the SECTION field (#5) in the EVENT"
^DD(727.825,15,23,4,0)="CAPTURE PATIENT file (#721)."
^DD(727.825,15,23,5,0)="or from the SPEECH PATHOLOGY DSS UNIT LINK field (#727.8252) in the  "
^DD(727.825,15,23,6,0)="A&SP SITE PARAMETER file (#509850.8)."
^DD(727.825,15,"DT")="2990517"
^DD(727.825,16,0)="PROVIDER^F^^0;17^K:$L(X)>11!($L(X)<2) X"
^DD(727.825,16,.1)="Provider"
^DD(727.825,16,3)="Answer must be 2-11 characters in length."
^DD(727.825,16,21,0)="^^4^4^2980608^^^^"
^DD(727.825,16,21,1,0)="This character string is an IEN for the NEW PERSON file (#200);"
^DD(727.825,16,21,2,0)="a '2' has been appended to the beginning of the character string."
^DD(727.825,16,21,3,0)="It represents the Provider who performed the procedure associated"
^DD(727.825,16,21,4,0)="with the Event Capture Patient record."
^DD(727.825,16,23,0)="^^4^4^2980608^^^^"
^DD(727.825,16,23,1,0)="A character string of format ""2""_IEN, where IEN is the internal "
^DD(727.825,16,23,2,0)="entry number for the Provider in the NEW PERSON file (#200)."
^DD(727.825,16,23,3,0)="Data is derived from the PROVIDER field (#10) in the EVENT CAPTURE "
^DD(727.825,16,23,4,0)="PATIENT file (#721)."
^DD(727.825,16,"DT")="2990517"
^DD(727.825,17,0)="PROVIDER PERSON CLASS^F^^0;18^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,17,.1)="DSS ID Digit 1"
^DD(727.825,17,3)="Answer must be 1-7 characters in length."
^DD(727.825,17,21,0)="^^2^2^3001012^"
^DD(727.825,17,21,1,0)="Provider Person class is the VA code of the Person Class of the Provider as "
^DD(727.825,17,21,2,0)="of the date of this record."
^DD(727.825,17,"DT")="3000801"
^DD(727.825,18,0)="PROVIDER #2^F^^0;19^K:$L(X)>11!($L(X)<2) X"
^DD(727.825,18,.1)="Provider #2"
^DD(727.825,18,3)="Answer must be 2-11 characters in length."
^DD(727.825,18,21,0)="^^4^4^2980608^^^^"
^DD(727.825,18,21,1,0)="This character string is an IEN for the NEW PERSON file (#200);"
^DD(727.825,18,21,2,0)="a '2' has been appended to the beginning of the character string."
^DD(727.825,18,21,3,0)="It represents the assisting Provider who performed the procedure "
^DD(727.825,18,21,4,0)="associated with the Event Capture Patient record."
^DD(727.825,18,23,0)="^^4^4^2980608^^^^"
^DD(727.825,18,23,1,0)="A character string of format ""2""_IEN, where IEN is the internal "
^DD(727.825,18,23,2,0)="entry number for the Provider in the NEW PERSON file (#200)."
^DD(727.825,18,23,3,0)="Data is pulled from the PROVIDER #2 field (#16) in the EVENT CAPTURE"
^DD(727.825,18,23,4,0)="PATIENT file (#721)."
^DD(727.825,18,"DT")="2990517"
^DD(727.825,19,0)="PROVIDER #2 PERSON CLASS^F^^0;20^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,19,.1)="DSS ID Digit 2"
^DD(727.825,19,3)="Answer must be 1-7 characters in length."
^DD(727.825,19,21,0)="^.001^2^2^3001103^^^"
^DD(727.825,19,21,1,0)="Provider2 Person class is the VA code of the Person Class of the Provider"
^DD(727.825,19,21,2,0)="as of the date of this record."
^DD(727.825,19,"DT")="3001103"
^DD(727.825,20,0)="PROVIDER #3^F^^0;21^K:$L(X)>11!($L(X)<2) X"
^DD(727.825,20,.1)="Provider #3"
^DD(727.825,20,3)="Answer must be 2-11 characters in length."
^DD(727.825,20,21,0)="1^.001^4^4^3001103^^^^"
^DD(727.825,20,21,1,0)="This character string is an IEN for the NEW PERSON file (#200);"
^DD(727.825,20,21,2,0)="a '2' has been appended to the beginning of the character string."
^DD(727.825,20,21,3,0)="It represents an assisting Provider who performed the procedure "
^DD(727.825,20,21,4,0)="associated with the Event Capture Patient record."
^DD(727.825,20,23,0)="^.001^4^4^3001103^^^^"
^DD(727.825,20,23,1,0)="A character string of format ""2""_IEN, where IEN is the internal "
^DD(727.825,20,23,2,0)="entry number for the Provider in the NEW PERSON file (#200)."
^DD(727.825,20,23,3,0)="Data is pulled from the PROVIDER #3 field (#17) in the EVENT CAPTURE"
^DD(727.825,20,23,4,0)="PATIENT file (#721)."
^DD(727.825,20,"DT")="2990517"
^DD(727.825,21,0)="PROVIDER #3 PERSON CLASS^F^^0;22^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,21,.1)="DSS ID Digit 3"
^DD(727.825,21,3)="Enter the third digit of the AMIS REPORTING STOP CODE."
^DD(727.825,21,21,0)="2"
^DD(727.825,21,21,1,0)="Provider3 Person class is the VA code of the Person Class of the Provider"
^DD(727.825,21,21,2,0)="as of the date of this record."
^DD(727.825,21,"DT")="3001103"
^DD(727.825,22,0)="PLACEHOLDER4^F^^0;23^Q"
^DD(727.825,22,.1)="Placeholder4"
^DD(727.825,22,3)="This field marked as a placeholder for future use."
^DD(727.825,22,"DT")="2961016"
^DD(727.825,23,0)="MOVEMENT FILE #^P405'^DGPM(^0;24^Q"
^DD(727.825,23,.1)="Movement File Number"
^DD(727.825,23,3)="Enter the patient movement number associated with this extract record."
^DD(727.825,23,21,0)="^^1^1^2960401^^^^"
^DD(727.825,23,21,1,0)="Current patient movement record associated with this extract record."
^DD(727.825,23,23,0)="^^1^1^2960401^^^^"
^DD(727.825,23,23,1,0)="A pointer to the PATIENT MOVEMENT file (#405)."
^DD(727.825,23,"DT")="2911216"
^DD(727.825,24,0)="TREATING SPECIALTY^F^^0;25^K:$L(X)>6!($L(X)<1) X"
^DD(727.825,24,.1)="Treating Specialty"
^DD(727.825,24,3)="Answer must be 1-6 characters in length."
^DD(727.825,24,21,0)="^^3^3^2970912^^^^"
^DD(727.825,24,21,1,0)="The IEN in file #42.4 of the Specialty associated with the patient"
^DD(727.825,24,21,2,0)="on the date of the Event Capture procedure.  Only applicable"
^DD(727.825,24,21,3,0)="if the patient was an inpatient on the date of the procedure."
^DD(727.825,24,23,0)="^^8^8^2970912^^^^"
^DD(727.825,24,23,1,0)="A character string which represents an IEN in the SPECIALTY file (#42.4)."
^DD(727.825,24,23,2,0)=" "
^DD(727.825,24,23,3,0)="This field is initialized to a null, indicating an outpatient status. If"
^DD(727.825,24,23,4,0)="a call to IN5^VADPT (using the patient IEN and the event date) returns a"
^DD(727.825,24,23,5,0)="patient movement number (indicating inpatient status), then the value of"
^DD(727.825,24,23,6,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file "
^DD(727.825,24,23,7,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the "
^DD(727.825,24,23,8,0)="SPECIALTY file (#42.4)."
^DD(727.825,24,"DT")="2970911"
^DD(727.825,25,0)="TIME^FO^^0;26^K:$L(X)>6!($L(X)<6) X"
^DD(727.825,25,.1)="Time"
^DD(727.825,25,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.825,25,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,0)"
^DD(727.825,25,3)="Answer must be 6 characters in length."
^DD(727.825,25,21,0)="^^1^1^2970922^^^^"
^DD(727.825,25,21,1,0)="The time when the Event Capture procedure was performed."
^DD(727.825,25,21,2,0)="on the date of the Event Capture procedure.  Only applicable"
^DD(727.825,25,21,3,0)="if the patient was an inpatient on the date of the procedure."
^DD(727.825,25,23,0)="^^9^9^2970922^^^^"
^DD(727.825,25,23,1,0)="A six-character string of format HHMMSS which represents the time"
^DD(727.825,25,23,2,0)="(military time) when the procedure was performed."
^DD(727.825,25,23,3,0)=" "
^DD(727.825,25,23,4,0)="Time is extracted from the date information pulled from the"
^DD(727.825,25,23,5,0)="DATE/TIME OF PROCEDURE field (#2) in the EVENT CAPTURE"
^DD(727.825,25,23,6,0)="PATIENT file (#721). "
^DD(727.825,25,23,7,0)=" "
^DD(727.825,25,23,8,0)="A default of ""000300"" will be used if field #2 of file #721 does"
^DD(727.825,25,23,9,0)="not have a time portion."
^DD(727.825,25,"DT")="2970924"
^DD(727.825,26,0)="PRIMARY CARE TEAM^F^^0;27^K:$L(X)>4!($L(X)<1) X"
^DD(727.825,26,.1)="Primary Care Team"
^DD(727.825,26,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.825,26,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.825,26,3)="Enter primary care team assigned to this patient."
^DD(727.825,26,21,0)="^^1^1^2961106^^^"
^DD(727.825,26,21,1,0)="The primary care team assigned to this patient."
^DD(727.825,26,21,2,0)="was performed."
^DD(727.825,26,23,0)="^^6^6^2961106^"
^DD(727.825,26,23,1,0)="Using the DATE/TIME OF PROCEDURE field (2) from the EVENT CAPTURE "
^DD(727.825,26,23,2,0)="PATIENT file (#721) and the patient pointer (DFN) stored in the PATIENT "
^DD(727.825,26,23,3,0)="NO. - DFN field (4) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), "
^DD(727.825,26,23,4,0)="a call is made to the Scheduling API, OUTPTTM^SDUTL3. The API returns "
^DD(727.825,26,23,5,0)="the team's internal entry number and name from the TEAM file (#404.51). "
^DD(727.825,26,23,6,0)="Only the pointer (IEN) to File 404.51 is transmitted."
^DD(727.825,26,"DT")="2961106"
^DD(727.825,27,0)="PRIMARY CARE PROVIDER^F^^0;28^K:$L(X)>11!($L(X)<1) X"
^DD(727.825,27,.1)="Primary Care Provider"
^DD(727.825,27,3)="Enter primary care provider assigned to this patient."
^DD(727.825,27,21,0)="^^1^1^2980708^^^^"
^DD(727.825,27,21,1,0)="The primary care provider assigned to this patient."
^DD(727.825,27,23,0)="^^9^9^2980708^^^"
^DD(727.825,27,23,1,0)="Using the DATE/TIME OF PROCEDURE field (2) from the EVENT CAPTURE "
^DD(727.825,27,23,2,0)="PATIENT file (#721) and the patient pointer (DFN) stored in the PATIENT "
^DD(727.825,27,23,3,0)="NO. - DFN field (4) in the EVENT CAPTURE LOCAL EXTRACT file (#727.815), "
^DD(727.825,27,23,4,0)="a call is made to the Scheduling API, OUTPTPR^SDUTL3. The API returns "
^DD(727.825,27,23,5,0)="the provider's internal entry number and name from the NEW PERSON file "
^DD(727.825,27,23,6,0)="(#200). "
^DD(727.825,27,23,7,0)=" "
^DD(727.825,27,23,8,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.825,27,23,9,0)="is ""200""."
^DD(727.825,27,"DT")="2961017"
^DD(727.825,28,0)="PCE CPT CODE & MODIFIERS^FO^^0;29^K:$L(X)>15!($L(X)<5) X"
^DD(727.825,28,.1)=""
^DD(727.825,28,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.825,28,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.825,28,3)="Answer must be 5-15 characters in length."
^DD(727.825,28,21,0)="^.001^5^5^3001012^^^^"
^DD(727.825,28,21,1,0)="The Current Procedural Terminology (CPT) code for the procedure "
^DD(727.825,28,21,2,0)="performed."
^DD(727.825,28,21,3,0)=" "
^DD(727.825,28,21,4,0)="The 5 character CPT Code is followed by upto five (5) 2-character CPT"
^DD(727.825,28,21,5,0)="code modifiers."
^DD(727.825,28,23,0)="^.001^6^6^3001012^^^^"
^DD(727.825,28,23,1,0)="PCE CPT CODE is derived from the PCE CPT CODE field (#19) in the EVENT "
^DD(727.825,28,23,2,0)="CAPTURE PATIENT file (#721)."
^DD(727.825,28,23,3,0)=" "
^DD(727.825,28,23,4,0)="The source of CPT modifiers is the MODIFIER field (#.01) of the CPT"
^DD(727.825,28,23,5,0)="MODIFIER file (#81.3).  It is not known at this time where the Event"
^DD(727.825,28,23,6,0)="Capture package will store those modifiers."
^DD(727.825,28,23,7,0)="A ""2"" is prefixed to the pointer value to indicate that the source file"
^DD(727.825,28,23,8,0)="is ""200""."
^DD(727.825,28,"DT")="2990614"
^DD(727.825,29,0)="ICD-9 CODE^F^^0;30^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,29,.1)="ICD-9 Code"
^DD(727.825,29,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.825,29,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.825,29,3)="Enter the ICD-9 code for this record."
^DD(727.825,29,21,0)="^.001^1^1^3001013^^^^"
^DD(727.825,29,21,1,0)="The ICD-9 for the procedure performed."
^DD(727.825,29,21,2,0)="extract record."
^DD(727.825,29,21,3,0)=" "
^DD(727.825,29,21,4,0)="The 5 character CPT Code is followed by upto five (5) 2-character CPT"
^DD(727.825,29,21,5,0)="code modifiers."
^DD(727.825,29,23,0)="^.001^3^3^3001013^^^^"
^DD(727.825,29,23,1,0)="ICD-9 CODE is derived from the ICD-9 CODE field (20) in the EVENT "
^DD(727.825,29,23,2,0)="CAPTURE PATIENT file (#721) which points to the ICD DIAGNOSIS file "
^DD(727.825,29,23,3,0)="(#80)."
^DD(727.825,29,23,4,0)=" "
^DD(727.825,29,23,5,0)="The source of CPT modifiers is the MODIFIER field (#.01) of the CPT"
^DD(727.825,29,23,6,0)="MODIFIER file (#81.3).  It is not known at this time where the QUASAR"
^DD(727.825,29,23,7,0)="package will store those modifiers."
^DD(727.825,29,"DT")="2961106"
^DD(727.825,30,0)="SECONDARY ICD9 CODE #1^F^^0;31^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,30,.1)="ICD-9 Code"
^DD(727.825,30,3)="Answer must be 1-7 characters in length."
^DD(727.825,30,21,0)="^.001^1^1^3001016^^^^"
^DD(727.825,30,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.825,30,23,0)="^.001^7^7^3001016^^^^"
^DD(727.825,30,23,1,0)="The diagnostic code pointer is derived from the first entry in the "
^DD(727.825,30,23,2,0)="DIAGNOSTIC CODE field (38) in the A&SP CLINIC VISIT file (#509850.6). It "
^DD(727.825,30,23,3,0)="is a pointer to the A&SP DIAGNOSTIC CONDITION file (#509850.1) which is "
^DD(727.825,30,23,4,0)="a DINUMed pointer to the ICD DIAGNOSIS file (#80). The first code "
^DD(727.825,30,23,5,0)="entered is always assumed to be the primary complaint. Subsequent codes "
^DD(727.825,30,23,6,0)="are assumed to be secondary complaints. Using the pointer, ICD-9 CODE is "
^DD(727.825,30,23,7,0)="derived from the ICD DIAGNOSIS file (#80)."
^DD(727.825,30,"DT")="3000801"
^DD(727.825,31,0)="SECONDARY ICD9 CODE #2^F^^0;32^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,31,.1)=""
^DD(727.825,31,3)="Answer must be 1-7 characters in length."
^DD(727.825,31,21,0)="^.001^1^1^3001016^^^^"
^DD(727.825,31,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.825,31,21,2,0)="DIAGNOSTIC CODE field (3) in the A&SP CLINIC VISIT file (#509850.6). It "
^DD(727.825,31,21,3,0)="is a pointer to the A&SP DIAGNOSTIC CONDITION file (#509850.1) which is "
^DD(727.825,31,21,4,0)="a DINUMed pointer to the ICD DIAGNOSIS file (#80). The first code "
^DD(727.825,31,21,5,0)="entered is always assumed to be the primary complaint. Subsequent codes "
^DD(727.825,31,21,6,0)="are assumed to be secondary complaints. Using the pointer, ICD-9 CODE is "
^DD(727.825,31,21,7,0)="derived from the ICD DIAGNOSIS file (#80)."
^DD(727.825,31,23,0)="^.001^7^7^3001016^^^^"
^DD(727.825,31,23,1,0)="The diagnostic code pointer is derived from the first entry in the "
^DD(727.825,31,23,2,0)="DIAGNOSTIC CODE field (38) in the A&SP CLINIC VISIT file (#509850.6). It "
^DD(727.825,31,23,3,0)="is a pointer to the A&SP DIAGNOSTIC CONDITION file (#509850.1) which is "
^DD(727.825,31,23,4,0)="a DINUMed pointer to the ICD DIAGNOSIS file (#80). The first code "
^DD(727.825,31,23,5,0)="entered is always assumed to be the primary complaint. Subsequent codes "
^DD(727.825,31,23,6,0)="are assumed to be secondary complaints. Using the pointer, ICD-9 CODE is "
^DD(727.825,31,23,7,0)="derived from the ICD DIAGNOSIS file (#80)."
^DD(727.825,31,"DT")="3001013"
^DD(727.825,32,0)="SECONDARY ICD9 CODE #3^F^^0;33^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,32,.1)=""
^DD(727.825,32,3)="Answer must be 1-7 characters in length."
^DD(727.825,32,21,0)="^.001^1^1^3001016^^^^"
^DD(727.825,32,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.825,32,23,0)="^.001^7^7^3001016^^^^"
^DD(727.825,32,23,1,0)="The diagnostic code pointer is derived from the first entry in the "
^DD(727.825,32,23,2,0)="DIAGNOSTIC CODE field (38) in the A&SP CLINIC VISIT file (#509850.6). It "
^DD(727.825,32,23,3,0)="is a pointer to the A&SP DIAGNOSTIC CONDITION file (#509850.1) which is "
^DD(727.825,32,23,4,0)="a DINUMed pointer to the ICD DIAGNOSIS file (#80). The first code "
^DD(727.825,32,23,5,0)="entered is always assumed to be the primary complaint. Subsequent codes "
^DD(727.825,32,23,6,0)="are assumed to be secondary complaints. Using the pointer, ICD-9 CODE is "
^DD(727.825,32,23,7,0)="derived from the ICD DIAGNOSIS file (#80)."
^DD(727.825,32,"DT")="3001013"
^DD(727.825,33,0)="SECONDARY ICD9 CODE #4^F^^0;34^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,33,.1)=""
^DD(727.825,33,3)="Answer must be 1-7 characters in length."
^DD(727.825,33,21,0)="^.001^1^1^3001016^^^^"
^DD(727.825,33,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.825,33,21,2,0)="DIAGNOSTIC CODE field (3) in the A&SP CLINIC VISIT file (#509850.6). It "
^DD(727.825,33,21,3,0)="is a pointer to the A&SP DIAGNOSTIC CONDITION file (#509850.1) which is "
^DD(727.825,33,21,4,0)="a DINUMed pointer to the ICD DIAGNOSIS file (#80). The first code "
^DD(727.825,33,21,5,0)="entered is always assumed to be the primary complaint. Subsequent codes "
^DD(727.825,33,21,6,0)="are assumed to be secondary complaints. Using the pointer, ICD-9 CODE is "
^DD(727.825,33,21,7,0)="derived from the ICD DIAGNOSIS file (#80)."
^DD(727.825,33,23,0)="^.001^7^7^3001016^^^^"
^DD(727.825,33,23,1,0)="The diagnostic code pointer is derived from the first entry in the "
^DD(727.825,33,23,2,0)="DIAGNOSTIC CODE field (38) in the A&SP CLINIC VISIT file (#509850.6). It "
^DD(727.825,33,23,3,0)="is a pointer to the A&SP DIAGNOSTIC CONDITION file (#509850.1) which is "
^DD(727.825,33,23,4,0)="a DINUMed pointer to the ICD DIAGNOSIS file (#80). The first code "
^DD(727.825,33,23,5,0)="entered is always assumed to be the primary complaint. Subsequent codes "
^DD(727.825,33,23,6,0)="are assumed to be secondary complaints. Using the pointer, ICD-9 CODE is "
^DD(727.825,33,23,7,0)="derived from the ICD DIAGNOSIS file (#80)."
^DD(727.825,33,"DT")="3001013"
^DD(727.825,34,0)="AGENT ORANGE^S^Y:YES;N:NO;U:UNKNOWN;^0;35^Q"
^DD(727.825,34,.1)="Agent Orange"
^DD(727.825,34,3)="Select the appropriate agent orange status for this patient."
^DD(727.825,34,21,0)="^.001^2^2^3001016^^^^"
^DD(727.825,34,21,1,0)="Data is Y if this patient was exposed to agent orange, N if not, "
^DD(727.825,34,21,2,0)="or U if unknown."
^DD(727.825,34,23,0)="^.001^2^2^3001016^^^^"
^DD(727.825,34,23,1,0)="AGENT ORANGE data is derived from the AGENT ORANGE field (21) in the "
^DD(727.825,34,23,2,0)="EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,34,23,3,0)="from the SERVICE CONNECTED? field (.301) in the PATIENT file (#2)."
^DD(727.825,34,"DT")="2961017"
^DD(727.825,35,0)="RADIATION EXPOSURE^S^Y:YES;N:NO;U:UNKNOWN;^0;36^Q"
^DD(727.825,35,.1)="Radiation Exposure"
^DD(727.825,35,3)="Select the appropriate radiation status for this patient."
^DD(727.825,35,21,0)="^.001^2^2^3001016^^^^"
^DD(727.825,35,21,1,0)="Data is Y if this patient claims exposure to ionizing radiation, "
^DD(727.825,35,21,2,0)="N if not, or U if unknown."
^DD(727.825,35,23,0)="^.001^2^2^3001016^^^^"
^DD(727.825,35,23,1,0)="RADIATION EXPOSURE data is derived from the RADIATION EXPOSURE field "
^DD(727.825,35,23,2,0)="(22) in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,35,"DT")="2961017"
^DD(727.825,36,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^0;37^Q"
^DD(727.825,36,.1)="Environmental Contaminants"
^DD(727.825,36,3)="Select the appropriate environmental contaminants status for this patient."
^DD(727.825,36,21,0)="^.001^2^2^3001016^^^^"
^DD(727.825,36,21,1,0)="Data is Y if this patient claims exposure to environmental contaminants, "
^DD(727.825,36,21,2,0)="N if not, U if unknown."
^DD(727.825,36,23,0)="^.001^2^2^3001016^^^^"
^DD(727.825,36,23,1,0)="ENVIRONMENTAL CONTAMINANTS data is derived from the ENVIRONMENTAL "
^DD(727.825,36,23,2,0)="CONTAMINANTS field (23) in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,36,"DT")="2961017"
^DD(727.825,37,0)="SERVICE CONNECTED^S^Y:YES;N:NO;^0;38^Q"
^DD(727.825,37,.1)="Service Connected"
^DD(727.825,37,3)="Select the appropriate service connected status for this patient."
^DD(727.825,37,21,0)="^.001^1^1^3001016^^^^"
^DD(727.825,37,21,1,0)="Data is Y if this patient is service connected, N if not."
^DD(727.825,37,21,2,0)="clinic associated with the A&SP CLINIC VISIT (file #509850.6) "
^DD(727.825,37,21,3,0)="record.  This identifier will be exactly 6 characters in length.  "
^DD(727.825,37,21,4,0)="The first 3 characters will identify the primary stop code.  "
^DD(727.825,37,21,5,0)="The second three characters will identify the credit stop code, "
^DD(727.825,37,21,6,0)="if any."
^DD(727.825,37,23,0)="^.001^2^2^3001016^^^^"
^DD(727.825,37,23,1,0)="SERVICE CONNECTED data is derived from the SERVICE CONNECTED field (24) "
^DD(727.825,37,23,2,0)="in the EVENT CAPTURE PATIENT file (#721)."
^DD(727.825,37,23,3,0)="record.  This identifier will be exactly 6 characters in length.  "
^DD(727.825,37,23,4,0)="The first 3 characters will identify the primary stop code.  "
^DD(727.825,37,23,5,0)="The second three characters will identify the secondary stop"
^DD(727.825,37,23,6,0)="code.  If the secondary stop code (credit stop code) is not"
^DD(727.825,37,23,7,0)="known, then ""000"" will be used as the last 3 characters of the"
^DD(727.825,37,23,8,0)="data element."
^DD(727.825,37,23,9,0)="  "
^DD(727.825,37,23,10,0)="Data source:"
^DD(727.825,37,23,11,0)=" "
^DD(727.825,37,23,12,0)="   (1) A&SP CLINIC VISIT file (#509850.6); CLINIC LOCATION field (#2.6)"
^DD(727.825,37,23,13,0)="   (2) HOSPITAL LOCATION file (#44); STOP CODE NUMBER field (#8) "
^DD(727.825,37,23,14,0)="       and CREDIT STOP CODE field (#2503)"
^DD(727.825,37,23,15,0)="   (3) CLINIC STOP file (#40.7); AMIS REPORTING STOP CODE field (#1)"
^DD(727.825,37,"DT")="2961017"
^DD(727.825,38,0)="SENT TO PCE^S^Y:YES;N:NO;^0;39^Q"
^DD(727.825,38,.1)="Sent to PCE"
^DD(727.825,38,3)="Enter Y if data has been sent to PCE, N if not."
^DD(727.825,38,8.5)=""
^DD(727.825,38,9)=""
^DD(727.825,38,21,0)="^.001^1^1^3001016^^^"
^DD(727.825,38,21,1,0)="This field flags data that has been sent from Event Capture to PCE."
^DD(727.825,38,23,0)="^.001^1^1^3001016^^^"
^DD(727.825,38,23,1,0)="Record is flagged Y when sent to PCE, N or null if not sent."
^DD(727.825,38,"DT")="2961022"
^DD(727.825,39,0)="PLACEHOLDER5^^^0;40^Q"
^DD(727.825,39,3)="Answer must be 1-10 characters in length."
^DD(727.825,39,21,0)="^^1^1^2990504^"
^DD(727.825,39,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.825,39,23,0)="^^2^2^2990504^"
^DD(727.825,39,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.825,39,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.825,39,"DT")="2990504"
^DD(727.825,40,0)="DSS IDENTIFIER^F^^0;41^K:$L(X)>6!($L(X)<6) X"
^DD(727.825,40,.1)="DSS Identifier"
^DD(727.825,40,3)="Answer must be 6 characters in length."
^DD(727.825,40,21,0)="^.001^4^4^3001016^^^^"
^DD(727.825,40,21,1,0)="The DSS Identifier represents the primary and secondary stop codes of"
^DD(727.825,40,21,2,0)="the Associated Clinic in the Event Capture Patient record, OR it is"
^DD(727.825,40,21,3,0)="the Associated Stop Code of the DSS Unit in the Event Capture Patient"
^DD(727.825,40,21,4,0)="record.  This data element is always exactly 6 characters in length."
^DD(727.825,40,23,0)="^.001^22^22^3001016^^^^"
^DD(727.825,40,23,1,0)="The DSS Identifier represents the primary and secondary stop codes of"
^DD(727.825,40,23,2,0)="the Associated Clinic in the Event Capture Patient record, OR it is"
^DD(727.825,40,23,3,0)="the Associated Stop Code of the DSS Unit in the Event Capture Patient"
^DD(727.825,40,23,4,0)="record.  This data element is always exactly 6 characters in length."
^DD(727.825,40,23,5,0)=" "
^DD(727.825,40,23,6,0)="If the secondary stop code is not known, then ""000"" will be "
^DD(727.825,40,23,7,0)="used as the 2nd 3-characters. If the primary stop code is not"
^DD(727.825,40,23,8,0)="known, then ""000000"" will be used.  If the DSS Unit does not have"
^DD(727.825,40,23,9,0)="an Associated Stop Code, then ""000000"" will be used."
^DD(727.825,40,23,10,0)=" "
^DD(727.825,40,23,11,0)="The source of the data is:"
^DD(727.825,40,23,12,0)=" "
^DD(727.825,40,23,13,0)="   (1) EVENT CAPTURE PATIENT file (#721); ASSOCIATED CLINIC field (#26)"
^DD(727.825,40,23,14,0)="   (2) HOSPITAL LOCATION file (#44); STOP CODE NUMBER field (#8)"
^DD(727.825,40,23,15,0)="       and CREDIT STOP CODE field (#2503)"
^DD(727.825,40,23,16,0)="   (3) CLINIC STOP file (#40.7); AMIS REPORTING STOP CODE field (#1)"
^DD(727.825,40,23,17,0)="  "
^DD(727.825,40,23,18,0)="OR"
^DD(727.825,40,23,19,0)="  "
^DD(727.825,40,23,20,0)="   (1) EVENT CAPTURE PATIENT file (#721); DSS UNIT field (#6)"
^DD(727.825,40,23,21,0)="   (2) DSS UNIT file (#724); ASSOCIATED STOP CODE field (#9)"
^DD(727.825,40,23,22,0)="   (3) CLINIC STOP file (#40.7); AMIS REPORTING STOP CODE field (#1)"
^DD(727.825,40,"DT")="2970911"
^DD(727.825,41,0)="PLACEHOLDER1^F^^0;42^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,41,.1)=""
^DD(727.825,41,3)="Answer must be 1 character in length."
^DD(727.825,41,21,0)="^^1^1^2980708^^^^"
^DD(727.825,41,21,1,0)="Placeholder; null."
^DD(727.825,41,23,0)="^^4^4^2990506^"
^DD(727.825,41,23,1,0)="When National Provider Identifier (NPI) codes become available, this"
^DD(727.825,41,23,2,0)="field will hold the Provider NPI."
^DD(727.825,41,23,3,0)="   "
^DD(727.825,41,23,4,0)="Field will be set to null until data becomes available."
^DD(727.825,41,"DT")="2980708"
^DD(727.825,42,0)="MASTER PATIENT INDEX^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(727.825,42,3)="Answer must be 1-10 characters in length."
^DD(727.825,42,21,0)="^^1^1^2990505^^"
^DD(727.825,42,21,1,0)="A national VA system identifier which uniquely identifies a patient."
^DD(727.825,42,23,0)="^^2^2^2990505^^"
^DD(727.825,42,23,1,0)="The source is not known at this time, but will likely become available "
^DD(727.825,42,23,2,0)="in an FY2000 enhancement to the Vista system."
^DD(727.825,42,23,3,0)="   "
^DD(727.825,42,23,4,0)="Field will be set to null until data becomes available."
^DD(727.825,42,"DT")="2990504"
^DD(727.825,43,0)="DSS PRODUCT DEPARTMENT^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(727.825,43,.1)=""
^DD(727.825,43,3)="Answer must be 1-10 characters in length"
^DD(727.825,43,21,0)="^.001^1^1^3040921^^^"
^DD(727.825,43,21,1,0)="The DSS Department Code for the patient care product."
^DD(727.825,43,23,0)="^.001^4^4^3040921^^"
^DD(727.825,43,23,1,0)="Obtained from either the AUDIOLOGY DSS UNIT LINK field (#727.8251) or"
^DD(727.825,43,23,2,0)="SPEECH PATHOLOGY DSS UNIT LINK field (#727.8252) of the A&SP SITE"
^DD(727.825,43,23,3,0)="PARAMTETERS file (#509850.8) which is a pointer to the UNIT NUMBER field"
^DD(727.825,43,23,4,0)="(#4) of the DSS UNIT file (#724)."
^DD(727.825,43,"DT")="3040302"
^DD(727.825,44,0)="PLACEHOLDER^F^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,44,3)="Answer must be 1-8 characters in length."
^DD(727.825,44,21,0)="^^1^1^3070827^"
^DD(727.825,44,21,1,0)="Currently NULL."
^DD(727.825,44,23,0)="^^1^1^3070827^"
^DD(727.825,44,23,1,0)="Currently NULL."
^DD(727.825,44,"DT")="3070426"
^DD(727.825,45,0)="PLACEHOLDER^F^^1;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,45,3)="Answer must be 1-8 characters in length."
^DD(727.825,45,21,0)="^^1^1^3070827^"
^DD(727.825,45,21,1,0)="Currently NULL."
^DD(727.825,45,23,0)="^^1^1^3070827^"
^DD(727.825,45,23,1,0)="Currently NULL."
^DD(727.825,45,"DT")="3070426"
^DD(727.825,46,0)="PLACEHOLDER^F^^1;5^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,46,3)="Answer must be 1-8 characters in length."
^DD(727.825,46,21,0)="^.001^1^1^3070827^^"
^DD(727.825,46,21,1,0)="Currently NULL."
^DD(727.825,46,23,0)="^.001^1^1^3070827^^"
^DD(727.825,46,23,1,0)="Currently NULL."
^DD(727.825,46,"DT")="3070426"
^DD(727.825,47,0)="PC PROVIDER PERSON CLASS^F^^1;6^K:$L(X)>7!($L(X)<7) X"
^DD(727.825,47,3)="Answer must be 7 characters in length."
^DD(727.825,47,21,0)="^^2^2^2981103^^^"
^DD(727.825,47,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.825,47,21,2,0)="associated with this record."
^DD(727.825,47,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.825,47,21,4,0)="exactly 7 characters in length. "
^DD(727.825,47,23,0)="^^6^6^2981103^^"
^DD(727.825,47,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.825,47,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.825,47,23,3,0)="extract record."
^DD(727.825,47,23,4,0)="  "
^DD(727.825,47,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.825,47,23,6,0)="7 characters in length."
^DD(727.825,47,"DT")="2981103"
^DD(727.825,48,0)="PLACEHOLDER^F^^1;7^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,48,3)="Answer must be 1-8 characters in length."
^DD(727.825,48,21,0)="^^1^1^3070827^"
^DD(727.825,48,21,1,0)="Currently NULL."
^DD(727.825,48,23,0)="^^1^1^3070827^"
^DD(727.825,48,23,1,0)="Currently NULL."
^DD(727.825,48,"DT")="3070426"
^DD(727.825,49,0)="ASSOCIATE PC PROVIDER^F^^1;8^K:$L(X)>11!($L(X)<2) X"
^DD(727.825,49,3)="Answer must be 2-11 characters in length."
^DD(727.825,49,21,0)="^^4^4^2990506^"
^DD(727.825,49,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.825,49,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.825,49,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.825,49,21,4,0)="character 2."
^DD(727.825,49,23,0)="^^2^2^2990506^"
^DD(727.825,49,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.825,49,23,2,0)="the PCMM application."
^DD(727.825,49,23,3,0)="to the MEDICAL CENTER DIVISION file (#40.8)."
^DD(727.825,49,23,4,0)=" "
^DD(727.825,49,23,5,0)="Using the INSTITUTION FILE POINTER field (#.07) of the file #40.8"
^DD(727.825,49,23,6,0)="record, the STATION NUMBER field (#99) will be obtained from the"
^DD(727.825,49,23,7,0)="INSTITUTION file (#4)."
^DD(727.825,49,"DT")="2990506"
^DD(727.825,50,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;9^K:$L(X)>7!($L(X)<7) X"
^DD(727.825,50,3)="Answer must be 7 characters in length."
^DD(727.825,50,21,0)="^^4^4^2990506^"
^DD(727.825,50,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.825,50,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.825,50,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.825,50,21,4,0)="exactly 7 characters in length. "
^DD(727.825,50,23,0)="^^3^3^2990506^"
^DD(727.825,50,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.825,50,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.825,50,23,3,0)="PERS is the IEN from file #200."
^DD(727.825,50,"DT")="2990506"
^DD(727.825,51,0)="PLACEHOLDER^F^^1;10^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,51,3)="Answer must be 1-8 characters in length."
^DD(727.825,51,21,0)="^^1^1^3070827^"
^DD(727.825,51,21,1,0)="Currently NULL."
^DD(727.825,51,23,0)="^^1^1^3070827^"
^DD(727.825,51,23,1,0)="Currently NULL."
^DD(727.825,51,"DT")="3070426"
^DD(727.825,52,0)="DIVISION^F^^1;11^K:$L(X)>7!($L(X)<3) X"
^DD(727.825,52,3)="Answer must be 3-7 characters in length."
^DD(727.825,52,21,0)="^.001^2^2^3001011^^^^"
^DD(727.825,52,21,1,0)="This is the division at which the visit took place.  The division entered "
^DD(727.825,52,21,2,0)="must be defined in the MEDICAL CENTER DIVISION file."
^DD(727.825,52,23,0)="^.001^3^3^3001011^^^^"
^DD(727.825,52,23,1,0)="The DIVISION field for this file is obtained from the DIVISION field (#60), of"
^DD(727.825,52,23,2,0)="the AS&P CLINIC VISIT file (#509850.6), which points to the MEDICAL CENTER"
^DD(727.825,52,23,3,0)="DIVISION file (#40.8)."
^DD(727.825,52,"DT")="2990806"
^DD(727.825,53,0)="MST STATUS^F^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,53,3)="Answer must be 1 character in length."
^DD(727.825,53,21,0)="^^2^2^3001016^"
^DD(727.825,53,21,1,0)="An indicator if a veteran reports he/she is a victim of sexual trauma that"
^DD(727.825,53,21,2,0)="occurred while on active duty."
^DD(727.825,53,23,0)="^^2^2^3001016^"
^DD(727.825,53,23,1,0)="MST Status is derived from the MST History file (#29.11) MST status field"
^DD(727.825,53,23,2,0)="(#3)."
^DD(727.825,53,"DT")="3000802"
^DD(727.825,54,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,54,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.825,54,21,0)="^^5^5^3001016^"
^DD(727.825,54,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.825,54,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.825,54,21,3,0)="Domiciliary (DOM)"
^DD(727.825,54,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.825,54,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.825,54,"DT")="3001010"
^DD(727.825,55,0)="DATE OF BIRTH^F^^1;14^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,55,3)="Answer must be 1-8 characters in length."
^DD(727.825,55,21,0)="^^3^3^3001016^"
^DD(727.825,55,21,1,0)="When a patient was born. Possible values for Date of Birth are between"
^DD(727.825,55,21,2,0)="December 31, 1870 and today's date. This is represented by an 8-character"
^DD(727.825,55,21,3,0)="numeric string in the YYYYMMDD format. "
^DD(727.825,55,"DT")="3000802"
^DD(727.825,56,0)="ENROLLMENT CATEGORY^F^^1;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,56,3)="Answer must be 1 character in length."
^DD(727.825,56,21,0)="^^1^1^3001016^"
^DD(727.825,56,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.825,56,"DT")="3000802"
^DD(727.825,57,0)="ENROLLMENT STATUS^F^^1;16^K:$L(X)>2!($L(X)<1) X"
^DD(727.825,57,3)="Answer must be 1-2 characters in length."
^DD(727.825,57,21,0)="^^1^1^3020808^"
^DD(727.825,57,21,1,0)="Derived from the Patient Enrollment File #27.11."
^DD(727.825,57,"DT")="3020808"
^DD(727.825,58,0)="PLACEHOLDER^F^^1;17^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,58,3)="Answer must be 1 character in length."
^DD(727.825,58,"DT")="3040226"
^DD(727.825,59,0)="PERIOD OF SERVICE^F^^1;18^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,59,3)="Answer must be 1 character in length."
^DD(727.825,59,21,0)="^.001^2^2^3001016^^"
^DD(727.825,59,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.825,59,21,2,0)="eligibility code. "
^DD(727.825,59,23,0)="^^2^2^3001016^"
^DD(727.825,59,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.825,59,23,2,0)="the Patient file (#2)."
^DD(727.825,59,"DT")="3000802"
^DD(727.825,60,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;19^Q"
^DD(727.825,60,.1)="Purple Heart Indicator"
^DD(727.825,60,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.825,60,21,0)="^^1^1^3021009^^"
^DD(727.825,60,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.825,60,23,0)="^^2^2^3021009^^"
^DD(727.825,60,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.825,60,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.825,60,"DT")="3021009"
^DD(727.825,61,0)="OBSERVATION PATIENT INDICATOR^F^^1;20^K:$L(X)>4!($L(X)<1) X"
^DD(727.825,61,3)="Answer must be 1-4 characters in length."
^DD(727.825,61,21,0)="^^2^2^3011212^"
^DD(727.825,61,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.825,61,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.825,61,"DT")="3010814"
^DD(727.825,62,0)="ENCOUNTER NUMBER^F^^1;21^K:$L(X)>18!($L(X)<1) X"
^DD(727.825,62,3)="Answer must be 1-18 characters in length"
^DD(727.825,62,21,0)="^^3^3^3011212^"
^DD(727.825,62,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.825,62,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.825,62,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.825,62,"DT")="3010504"
^DD(727.825,63,0)="AGENT ORANGE LOCATION^F^^1;22^K:$L(X)>2!($L(X)<2) X"
^DD(727.825,63,3)="Answer must be 2 characters in length"
^DD(727.825,63,21,0)="^^1^1^3011212^"
^DD(727.825,63,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.825,63,"DT")="3010504"
^DD(727.825,64,0)="ORDERING DIVISION^F^^1;23^K:$L(X)>7!($L(X)<1) X"
^DD(727.825,64,3)="Answer must be 1-7 characters in length"
^DD(727.825,64,21,0)="^.001^1^1^3020812^^"
^DD(727.825,64,21,1,0)="For future development; currently set to null."
^DD(727.825,64,"DT")="3010504"
^DD(727.825,65,0)="CONTRACT START DATE^F^^1;24^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,65,3)="Answer must be 1-8 characters in length"
^DD(727.825,65,21,0)="^^1^1^3011212^"
^DD(727.825,65,21,1,0)="For future development; currently set to null."
^DD(727.825,65,"DT")="3010504"
^DD(727.825,66,0)="CONTRACT END DATE^F^^1;25^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,66,3)="Answer must be 1-8 characters in length"
^DD(727.825,66,21,0)="^^1^1^3011212^"
^DD(727.825,66,21,1,0)="For future development; currently set to null."
^DD(727.825,66,"DT")="3010504"
^DD(727.825,67,0)="CONTRACT TYPE^F^^1;26^K:$L(X)>5!($L(X)<1) X"
^DD(727.825,67,3)="Answer must be 1-5 characters in length"
^DD(727.825,67,21,0)="^^1^1^3011212^"
^DD(727.825,67,21,1,0)="For future development; currently set to null."
^DD(727.825,67,"DT")="3010504"
^DD(727.825,68,0)="CNH/SH STATUS^F^^1;27^K:$L(X)>3!($L(X)<3) X"
^DD(727.825,68,3)="Answer must be 3 characters in length"
^DD(727.825,68,21,0)="^^2^2^3011212^"
^DD(727.825,68,21,1,0)="This field is used to indicate whether a patient is currently in "
^DD(727.825,68,21,2,0)="a contract nursing home/state home."
^DD(727.825,68,"DT")="3010504"
^DD(727.825,69,0)="PRODUCTION DIVISION CODE^F^^1;28^K:$L(X)>6!($L(X)<3) X"
^DD(727.825,69,3)="Answer must be 3-6 characters in length."
^DD(727.825,69,21,0)="^.001^2^2^3060630^^^^"
^DD(727.825,69,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.825,69,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.825,69,23,0)="^.001^4^4^3060630^^"
^DD(727.825,69,23,1,0)="Data comes from the DIVISION field (#60) of the A&SP CLINIC VISIT file"
^DD(727.825,69,23,2,0)="(#509850.6), which is a pointer to the MEDICAL CENTER DIVISION file"
^DD(727.825,69,23,3,0)="(#40.8). This value is then used to call the api GETDIV^ECXDEPT to"
^DD(727.825,69,23,4,0)="get the STATION NUMBER field (#99) from the INSTITUTION file (#4)."
^DD(727.825,69,"DT")="3020812"
^DD(727.825,70,0)="ELIGIBILITY^F^^1;29^K:$L(X)>3!($L(X)<1) X"
^DD(727.825,70,.1)="Eligibility"
^DD(727.825,70,3)="Answer must be 1-3 characters in length"
^DD(727.825,70,21,0)="^^1^1^3021010^^"
^DD(727.825,70,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.825,70,23,0)="^^10^10^3021010^"
^DD(727.825,70,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.825,70,23,2,0)="(#4), ELIGIBILITY data is derived from the PRIMARY ELIGIBILITY CODE field"
^DD(727.825,70,23,3,0)="(#.361) in the PATIENT file (#2). PRIMARY ELIGIBILITY CODE is a pointer to"
^DD(727.825,70,23,4,0)="the ELIGIBILITY CODE file (#8). The data is derived from the MAS"
^DD(727.825,70,23,5,0)="ELIGIBILITY CODE field (#8) in the ELIGIBILITY CODE file (#8) which in"
^DD(727.825,70,23,6,0)="turn is a pointer to the MAS ELIGIBILITY CODE file (#8.1)."
^DD(727.825,70,23,7,0)=" "
^DD(727.825,70,23,8,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.825,70,23,9,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.825,70,23,10,0)="two or three numeric characters."
^DD(727.825,70,"DT")="3021010"
^DD(727.825,71,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;30^Q"
^DD(727.825,71,.1)="Head and Neck Cancer Indicator"
^DD(727.825,71,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.825,71,21,0)="^^1^1^3020828^"
^DD(727.825,71,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.825,71,23,0)="^^3^3^3020828^"
^DD(727.825,71,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.825,71,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.825,71,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.825,71,"DT")="3020828"
^DD(727.825,72,0)="ETHNICITY^F^^1;31^K:$L(X)>6!($L(X)<1) X"
^DD(727.825,72,.1)="Ethnicity"
^DD(727.825,72,3)="Answer must be 1-6 characters in length"
^DD(727.825,72,21,0)="^^1^1^3020828^"
^DD(727.825,72,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.825,72,23,0)="^^8^8^3020828^"
^DD(727.825,72,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.825,72,23,2,0)="(4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY"
^DD(727.825,72,23,3,0)="file (#10.2) pointed to by the EHNICITY INFORMATION field (#.01) of the"
^DD(727.825,72,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.825,72,23,5,0)=" "
^DD(727.825,72,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the"
^DD(727.825,72,23,7,0)="EHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION),"
^DD(727.825,72,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.825,72,"DT")="3020828"
^DD(727.825,73,0)="RACE 1^F^^1;32^K:$L(X)>6!($L(X)<1) X"
^DD(727.825,73,.1)="Race 1"
^DD(727.825,73,3)="Answer must be 1-6 characters in length"
^DD(727.825,73,21,0)="^^1^1^3020828^"
^DD(727.825,73,21,1,0)="The patient's PTF Race code(s)."
^DD(727.825,73,23,0)="^^10^10^3020828^"
^DD(727.825,73,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.825,73,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.825,73,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.825,73,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.825,73,23,5,0)=" "
^DD(727.825,73,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.825,73,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.825,73,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.825,73,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.825,73,23,10,0)="the only value included in the RACE1 field."
^DD(727.825,73,"DT")="3020828"
^DD(727.825,74,0)="ENROLLMENT LOCATION^F^^1;33^K:$L(X)>7!($L(X)<3) X"
^DD(727.825,74,.1)="Enrollment Location"
^DD(727.825,74,3)="Answer must be 3-7 characters in length"
^DD(727.825,74,21,0)="^^2^2^3030624^"
^DD(727.825,74,21,1,0)="The facility that the patient chooses to designate as his preferred location"
^DD(727.825,74,21,2,0)="for care."
^DD(727.825,74,23,0)="^^5^5^3030624^"
^DD(727.825,74,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2) is defined as"
^DD(727.825,74,23,2,0)="the facility that the patient chooses to designate as his preferred location"
^DD(727.825,74,23,3,0)="for care.  The PREFERRED FACILITY field (# 27.02) is a pointer to the"
^DD(727.825,74,23,4,0)="INSTITUTION file (#4).  From the INSTITUTION file #4, the value in the"
^DD(727.825,74,23,5,0)="STATION NUMBER field (#99) is used."
^DD(727.825,74,"DT")="3030624"
^DD(727.825,75,0)="DSS IP #^NJ7,0^^1;34^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.825,75,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(727.825,75,21,0)="^.001^2^2^3040318^^^^"
^DD(727.825,75,21,1,0)="The nationally defined DSS Intermediate Product Number designated to "
^DD(727.825,75,21,2,0)="the Quasar care product."
^DD(727.825,75,23,0)="^.001^10^10^3041027^^"
^DD(727.825,75,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.825,75,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.825,75,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.825,75,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.825,75,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.825,75,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.825,75,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.825,75,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.825,75,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.825,75,23,10,0)="group identifying the problem. "
^DD(727.825,75,"DT")="3040225"
^DD(727.825,76,0)="ENROLLMENT PRIORITY^F^^1;35^K:$L(X)>2!($L(X)<1) X"
^DD(727.825,76,3)="Answer must be 1-2 characters in length."
^DD(727.825,76,21,0)="^.001^2^2^3041027^^"
^DD(727.825,76,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the"
^DD(727.825,76,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.825,76,23,0)="^^20^20^3041027^"
^DD(727.825,76,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.825,76,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.825,76,23,3,0)=" "
^DD(727.825,76,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.825,76,23,5,0)=" "
^DD(727.825,76,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.825,76,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.825,76,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.825,76,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.825,76,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.825,76,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.825,76,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.825,76,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.825,76,23,14,0)=" "
^DD(727.825,76,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.825,76,23,16,0)=" "
^DD(727.825,76,23,17,0)="                                'a' FOR 1 "
^DD(727.825,76,23,18,0)="                                'c' FOR 3 "
^DD(727.825,76,23,19,0)="                                'e' FOR 5 "
^DD(727.825,76,23,20,0)="                                'g' FOR 7   "
^DD(727.825,76,"DT")="3040226"
^DD(727.825,77,0)="USER ENROLLEE^F^^1;36^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,77,3)="Answer must be 1 character in length."
^DD(727.825,77,21,0)="^^4^4^3040317^"
^DD(727.825,77,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.825,77,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.825,77,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.825,77,21,4,0)="year's value is contained. "
^DD(727.825,77,"DT")="3040226"
^DD(727.825,78,0)="PATIENT TYPE^F^^1;37^K:$L(X)>2!($L(X)<1) X"
^DD(727.825,78,3)="Answer must be 1-2 characters in length."
^DD(727.825,78,21,0)="^^3^3^3040317^"
^DD(727.825,78,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.825,78,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.825,78,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.825,78,23,0)="^^17^17^3040317^"
^DD(727.825,78,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.825,78,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.825,78,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.825,78,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.825,78,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.825,78,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.825,78,23,7,0)=" "
^DD(727.825,78,23,8,0)="AC= ACTIVE DUTY"
^DD(727.825,78,23,9,0)="AL= ALLIED VETERAN"
^DD(727.825,78,23,10,0)="CO= COLLATERAL"
^DD(727.825,78,23,11,0)="EM= EMPLOYEE"
^DD(727.825,78,23,12,0)="IN= INELIGIBLE"
^DD(727.825,78,23,13,0)="MI= MILITARY RETIREE"
^DD(727.825,78,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.825,78,23,15,0)="NS= NSC VETERAN"
^DD(727.825,78,23,16,0)="SC= SC VETERAN"
^DD(727.825,78,23,17,0)="TR= TRICARE"
^DD(727.825,78,"DT")="3040226"
^DD(727.825,79,0)="CV STATUS ELIGIBILITY^F^^1;38^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,79,3)="Answer must be 1 character in length."
^DD(727.825,79,21,0)="^.001^3^3^3040318^^^"
^DD(727.825,79,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.825,79,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.825,79,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.825,79,23,0)="^^11^11^3040318^"
^DD(727.825,79,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.825,79,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.825,79,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.825,79,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.825,79,23,5,0)=" "
^DD(727.825,79,23,6,0)=" 1 - qualifies as a CV"
^DD(727.825,79,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.825,79,23,8,0)="-1 - bad DFN or date"
^DD(727.825,79,23,9,0)=" "
^DD(727.825,79,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.825,79,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.825,79,"DT")="3040226"
^DD(727.825,80,0)="CV ELIGIBILITY END DATE^F^^2;1^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,80,3)="Answer must be 1-8 characters in length."
^DD(727.825,80,21,0)="^^3^3^3040317^"
^DD(727.825,80,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.825,80,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.825,80,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.825,80,23,0)="^^4^4^3040317^"
^DD(727.825,80,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.825,80,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.825,80,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.825,80,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.825,80,"DT")="3040226"
^DD(727.825,81,0)="ENCOUNTER CV^F^^2;2^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,81,3)="Answer must be 1 character in length."
^DD(727.825,81,21,0)="^^3^3^3040317^"
^DD(727.825,81,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.825,81,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.825,81,21,3,0)="2 to determine CV Status."
^DD(727.825,81,23,0)="^^10^10^3040317^"
^DD(727.825,81,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.825,81,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.825,81,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.825,81,23,4,0)="The third piece returns:"
^DD(727.825,81,23,5,0)=" "
^DD(727.825,81,23,6,0)="1 - vet was eligible on date specified"
^DD(727.825,81,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.825,81,23,8,0)=" "
^DD(727.825,81,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.825,81,23,10,0)="'NULL' for 'NO'."
^DD(727.825,81,"DT")="3040226"
^DD(727.825,82,0)="NATIONAL PATIENT RECORD FLAG^F^^2;3^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,82,3)="Answer must be 1 character in length."
^DD(727.825,82,21,0)="^^7^7^3040317^"
^DD(727.825,82,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.825,82,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.825,82,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.825,82,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.825,82,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.825,82,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.825,82,21,7,0)="NULL."
^DD(727.825,82,23,0)="^^7^7^3040317^"
^DD(727.825,82,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.825,82,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.825,82,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.825,82,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.825,82,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.825,82,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.825,82,23,7,0)="NULL."
^DD(727.825,82,"DT")="3040226"
^DD(727.825,83,0)="ERI^F^^2;4^K:$L(X)>2!($L(X)<1) X"
^DD(727.825,83,3)="Answer must be 1-2 characters in length."
^DD(727.825,83,21,0)="^.001^2^2^3060731^^"
^DD(727.825,83,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.825,83,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.825,83,23,0)="^.001^4^4^3060731^^^"
^DD(727.825,83,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.825,83,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.825,83,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.825,83,23,4,0)="    Null"
^DD(727.825,83,"DT")="3060731"
^DD(727.825,84,0)="AGENT ORANGE ENC INDICATOR^F^^2;5^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,84,3)="Answer must be 1 character in length."
^DD(727.825,84,21,0)="^^5^5^3060719^"
^DD(727.825,84,21,1,0)="Indicates the appropriate response for agent orange as related to"
^DD(727.825,84,21,2,0)="this patient's episode of care:"
^DD(727.825,84,21,3,0)="  Y = Yes"
^DD(727.825,84,21,4,0)="  N = No"
^DD(727.825,84,21,5,0)="  Null"
^DD(727.825,84,23,0)="^^6^6^3060719^"
^DD(727.825,84,23,1,0)="Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file"
^DD(727.825,84,23,2,0)="(#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.825,84,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the agent orange indicator"
^DD(727.825,84,23,4,0)="stored at the AGENT ORANGE EXPOSURE field (#80002) in the VISIT file"
^DD(727.825,84,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.825,84,23,6,0)="""AO""."
^DD(727.825,84,"DT")="3060621"
^DD(727.825,85,0)="ENCOUNTER EC^F^^2;6^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,85,3)="Answer must be 1 character in length."
^DD(727.825,85,21,0)="^^5^5^3060719^"
^DD(727.825,85,21,1,0)="Indicates the appropriate response for environmental contaminant as"
^DD(727.825,85,21,2,0)="related to this patient's episode of care:"
^DD(727.825,85,21,3,0)="  Y = Yes"
^DD(727.825,85,21,4,0)="  N = No"
^DD(727.825,85,21,5,0)="  Null"
^DD(727.825,85,23,0)="^^6^6^3060719^"
^DD(727.825,85,23,1,0)="Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file"
^DD(727.825,85,23,2,0)="(#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.825,85,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the environmental"
^DD(727.825,85,23,4,0)="contaminant indicator stored at the PERSIAN GULF EXPOSURE field (#80004)"
^DD(727.825,85,23,5,0)="in the VISIT file (#9000010). The value will be stored in the output array"
^DD(727.825,85,23,6,0)="subscripted by ""PGE""."
^DD(727.825,85,"DT")="3060623"
^DD(727.825,86,0)="ENC HEAD/NECK CA^F^^2;7^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,86,3)="Answer must be 1 character in length."
^DD(727.825,86,21,0)="^^5^5^3060719^"
^DD(727.825,86,21,1,0)="Indicates the appropriate response for head/neck cancer as related to"
^DD(727.825,86,21,2,0)="this patient's episode of care:"
^DD(727.825,86,21,3,0)="  Y = Yes"
^DD(727.825,86,21,4,0)="  N = No"
^DD(727.825,86,21,5,0)="  Null"
^DD(727.825,86,23,0)="^^6^6^3060719^"
^DD(727.825,86,23,1,0)="Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file"
^DD(727.825,86,23,2,0)="(#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.825,86,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the head/neck cancer data"
^DD(727.825,86,23,4,0)="stored at the HEAD AND/OR NECK CANCER field (#80006) in the VISIT file"
^DD(727.825,86,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.825,86,23,6,0)="""HNC""."
^DD(727.825,86,"DT")="3060623"
^DD(727.825,87,0)="ENCOUNTER MST^F^^2;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,87,3)="Answer must be 1 character in length."
^DD(727.825,87,21,0)="^^5^5^3060719^"
^DD(727.825,87,21,1,0)="Indicates the appropriate response for military sexual trauma as related"
^DD(727.825,87,21,2,0)="to this patient's episode of care:"
^DD(727.825,87,21,3,0)="  Y = Yes"
^DD(727.825,87,21,4,0)="  N = No"
^DD(727.825,87,21,5,0)="  Null"
^DD(727.825,87,23,0)="^^6^6^3060719^"
^DD(727.825,87,23,1,0)="Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file"
^DD(727.825,87,23,2,0)="(#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.825,87,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the military sexual trauma"
^DD(727.825,87,23,4,0)="stored at the MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file"
^DD(727.825,87,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.825,87,23,6,0)="""MST""."
^DD(727.825,87,"DT")="3060623"
^DD(727.825,88,0)="RADIATION ENCOUNTER INDICATOR^F^^2;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.825,88,3)="Answer must be 1 character in length."
^DD(727.825,88,21,0)="^^5^5^3060719^"
^DD(727.825,88,21,1,0)="Indicates the appropriate response for radiation exposure as related to"
^DD(727.825,88,21,2,0)="this patient's episode of care:"
^DD(727.825,88,21,3,0)="  Y = Yes"
^DD(727.825,88,21,4,0)="  N = No"
^DD(727.825,88,21,5,0)="  Null"
^DD(727.825,88,23,0)="^^6^6^3060719^"
^DD(727.825,88,23,1,0)="Using the PCE VISIT IEN field (#125) in the A&SP CLINIC VISIT file"
^DD(727.825,88,23,2,0)="(#509850.6) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.825,88,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the ionizing radiation"
^DD(727.825,88,23,4,0)="exposure indicator stored at the IONIZING RADIATION EXPOSURE field "
^DD(727.825,88,23,5,0)="(#80003) in the VISIT file (#9000010). The value will be stored in the"
^DD(727.825,88,23,6,0)="output array subscripted by ""IR""."
^DD(727.825,88,"DT")="3060623"
^DD(727.825,89,0)="NUTRITION DIAGNOSIS^F^^2;10^K:$L(X)>8!($L(X)<8) X"
^DD(727.825,89,3)="Answer must be 8 characters in length."
^DD(727.825,89,"DT")="3060619"
^DD(727.825,90,0)="OEF/OIF^F^^2;11^K:$L(X)>9!($L(X)<1) X"
^DD(727.825,90,3)="Answer must be 1-9 characters in length."
^DD(727.825,90,21,0)="^^3^3^3070502^"
^DD(727.825,90,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.825,90,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.825,90,21,3,0)="reflects the OEF or OIF where this patient was in combat."
^DD(727.825,90,23,0)="^^12^12^3070502^"
^DD(727.825,90,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.825,90,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.825,90,23,3,0)="reflects the OEF or OIF where this patient was in combat.  The value of "
^DD(727.825,90,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.825,90,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.825,90,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.825,90,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.825,90,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.825,90,23,9,0)="field values are one or more combinations of the following: "
^DD(727.825,90,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.825,90,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.825,90,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.825,90,"DT")="3070502"
^DD(727.825,91,0)="OEF/OIF RETURN DATE^F^^2;12^K:$L(X)>8!($L(X)<1) X"
^DD(727.825,91,3)="Answer must be 1-8 characters in length."
^DD(727.825,91,21,0)="^^3^3^3070502^"
^DD(727.825,91,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.825,91,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.825,91,21,3,0)="has a format equal to YYYYMMDD. "
^DD(727.825,91,23,0)="^^6^6^3070502^"
^DD(727.825,91,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.825,91,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.825,91,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.825,91,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.825,91,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.825,91,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.825,91,"DT")="3070502"
^DD(727.825,92,0)="ASSOCIATE PC PROVIDER NPI^F^^2;13^K:$L(X)>15!($L(X)<1) X"
^DD(727.825,92,3)="Answer must be 1-15 characters in length."
^DD(727.825,92,21,0)="^^2^2^3070502^"
^DD(727.825,92,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.825,92,21,2,0)="provider, which has a field length of fifteen characters. "
^DD(727.825,92,23,0)="^^3^3^3070502^"
^DD(727.825,92,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.825,92,23,2,0)="provider, which has a field length of fifteen characters. The qualified "
^DD(727.825,92,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.825,92,"DT")="3070502"
^DD(727.825,93,0)="PRIMARY CARE PROVIDER NPI^F^^2;14^K:$L(X)>15!($L(X)<1) X"
^DD(727.825,93,3)="Answer must be 1-15 characters in length."
^DD(727.825,93,21,0)="^^2^2^3070502^"
^DD(727.825,93,21,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.825,93,21,2,0)="field has a length of fifteen characters."
^DD(727.825,93,23,0)="^^3^3^3070502^"
^DD(727.825,93,23,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.825,93,23,2,0)="field has a length of fifteen characters.  The qualified identifier is "
^DD(727.825,93,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.825,93,"DT")="3070502"
^DD(727.825,94,0)="PROVIDER NPI^F^^2;15^K:$L(X)>15!($L(X)<1) X"
^DD(727.825,94,3)="Answer must be 1-15 characters in length."
^DD(727.825,94,21,0)="^^2^2^3070502^"
^DD(727.825,94,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.825,94,21,2,0)="health care services.  This field has a length of fifteen characters. "
^DD(727.825,94,23,0)="^^4^4^3070502^"
^DD(727.825,94,23,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.825,94,23,2,0)="health care services.  This field has a length of fifteen characters. The "
^DD(727.825,94,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.825,94,23,4,0)="$$NPI^XUSNPI."
^DD(727.825,94,"DT")="3070502"
^DD(727.825,95,0)="PROVIDER #2 NPI^F^^2;16^K:$L(X)>15!($L(X)<1) X"
^DD(727.825,95,3)="Answer must be 1-15 characters in length."
^DD(727.825,95,21,0)="^^2^2^3070502^"
^DD(727.825,95,21,1,0)="A standard unique life-long identifier of the second assisting provider "
^DD(727.825,95,21,2,0)="of health care service. This field has a length of fifteen characters."
^DD(727.825,95,23,0)="^^4^4^3070502^"
^DD(727.825,95,23,1,0)="A standard unique life-long identifier of the second assisting provider "
^DD(727.825,95,23,2,0)="of health care service. This field has a length of fifteen characters.  "
^DD(727.825,95,23,3,0)="The qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.825,95,23,4,0)="$$NPI^XUSNPI."
^DD(727.825,95,"DT")="3070502"
^DD(727.825,96,0)="PROVIDER #3 NPI^F^^2;17^K:$L(X)>15!($L(X)<1) X"
^DD(727.825,96,3)="Answer must be 1-15 characters in length."
^DD(727.825,96,21,0)="^^2^2^3070502^"
^DD(727.825,96,21,1,0)="A standard unique life-long identifier of the third assisting provider of "
^DD(727.825,96,21,2,0)="health care services. This field has a length of fifteen characters. "
^DD(727.825,96,23,0)="^^4^4^3070502^"
^DD(727.825,96,23,1,0)="A standard unique life-long identifier of the third assisting provider of "
^DD(727.825,96,23,2,0)="health care services. This field has a length of fifteen characters.  The "
^DD(727.825,96,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.825,96,23,4,0)="$$NPI^XUSNPI."
^DD(727.825,96,"DT")="3070502"
^DD(727.825,"B","AGENT ORANGE",34)=""
^DD(727.825,"B","AGENT ORANGE ENC INDICATOR",84)=""
^DD(727.825,"B","AGENT ORANGE LOCATION",63)=""
^DD(727.825,"B","ASSOC. PC PROV. PERSON CLASS",50)=""
^DD(727.825,"B","ASSOCIATE PC PROVIDER",49)=""
^DD(727.825,"B","ASSOCIATE PC PROVIDER NPI",92)=""
^DD(727.825,"B","Agent Orange",34)="1"
^DD(727.825,"B","CATEGORY",10)=""
^DD(727.825,"B","CNH/SH STATUS",68)=""
^DD(727.825,"B","CONTRACT END DATE",66)=""
^DD(727.825,"B","CONTRACT START DATE",65)=""
^DD(727.825,"B","CONTRACT TYPE",67)=""
^DD(727.825,"B","COST CENTER",13)=""
^DD(727.825,"B","CV ELIGIBILITY END DATE",80)=""
^DD(727.825,"B","CV STATUS ELIGIBILITY",79)=""
^DD(727.825,"B","Category",10)="1"
^DD(727.825,"B","Cost Center",13)="1"
^DD(727.825,"B","DATE OF BIRTH",55)=""
^DD(727.825,"B","DAY",8)=""
^DD(727.825,"B","DIVISION",52)=""
^DD(727.825,"B","DOM,PRRTP AND SAARTP INDICATOR",54)=""
^DD(727.825,"B","DSS ID Digit 1",17)="1"
^DD(727.825,"B","DSS ID Digit 2",19)="1"
^DD(727.825,"B","DSS ID Digit 3",21)="1"
^DD(727.825,"B","DSS IDENTIFIER",40)=""
^DD(727.825,"B","DSS IP #",75)=""
^DD(727.825,"B","DSS Identifier",40)="1"
^DD(727.825,"B","DSS PRODUCT DEPARTMENT",43)=""
^DD(727.825,"B","DSS UNIT",9)=""
^DD(727.825,"B","DSS Unit",9)="1"
^DD(727.825,"B","Day",8)="1"
^DD(727.825,"B","ELIGIBILITY",70)=""
^DD(727.825,"B","ENC HEAD/NECK CA",86)=""
^DD(727.825,"B","ENCOUNTER CV",81)=""
^DD(727.825,"B","ENCOUNTER EC",85)=""
^DD(727.825,"B","ENCOUNTER MST",87)=""
^DD(727.825,"B","ENCOUNTER NUMBER",62)=""
^DD(727.825,"B","ENROLLMENT CATEGORY",56)=""
^DD(727.825,"B","ENROLLMENT LOCATION",74)=""
^DD(727.825,"B","ENROLLMENT PRIORITY",76)=""
^DD(727.825,"B","ENROLLMENT STATUS",57)=""
^DD(727.825,"B","ENVIRONMENTAL CONTAMINANTS",36)=""
^DD(727.825,"B","ERI",83)=""
^DD(727.825,"B","ETHNICITY",72)=""
^DD(727.825,"B","EXTRACT NUMBER",2)=""
^DD(727.825,"B","Eligibility",70)="1"
^DD(727.825,"B","Enrollment Location",74)="1"
^DD(727.825,"B","Environmental Contaminants",36)="1"
^DD(727.825,"B","Ethnicity",72)="1"
^DD(727.825,"B","Extract Number",2)="1"
^DD(727.825,"B","FACILITY",3)=""
^DD(727.825,"B","Facility",3)="1"
^DD(727.825,"B","HEAD & NECK CANCER INDICATOR",71)=""
^DD(727.825,"B","Head and Neck Cancer Indicator",71)="1"
^DD(727.825,"B","ICD-9 CODE",29)=""
^DD(727.825,"B","ICD-9 Code",29)="1"
^DD(727.825,"B","ICD-9 Code",30)="1"
^DD(727.825,"B","IN OUT PATIENT INDICATOR",7)=""
^DD(727.825,"B","In Out Patient Indicator",7)="1"
^DD(727.825,"B","MASTER PATIENT INDEX",42)=""
^DD(727.825,"B","MOVEMENT FILE #",23)=""
^DD(727.825,"B","MST STATUS",53)=""
^DD(727.825,"B","Movement File Number",23)="1"
^DD(727.825,"B","NAME",6)=""
^DD(727.825,"B","NATIONAL PATIENT RECORD FLAG",82)=""
^DD(727.825,"B","NUTRITION DIAGNOSIS",89)=""
^DD(727.825,"B","Name",6)="1"
^DD(727.825,"B","OBSERVATION PATIENT INDICATOR",61)=""
^DD(727.825,"B","OEF/OIF",90)=""
^DD(727.825,"B","OEF/OIF RETURN DATE",91)=""
^DD(727.825,"B","ORDERING DIVISION",64)=""
^DD(727.825,"B","ORDERING SECTION",14)=""
^DD(727.825,"B","Ordering Section",14)="1"
^DD(727.825,"B","PATIENT NO. - DFN",4)=""
^DD(727.825,"B","PATIENT TYPE",78)=""
^DD(727.825,"B","PC PROVIDER PERSON CLASS",47)=""
^DD(727.825,"B","PCE CPT CODE & MODIFIERS",28)=""
^DD(727.825,"B","PERIOD OF SERVICE",59)=""
^DD(727.825,"B","PLACEHOLDER",44)=""
^DD(727.825,"B","PLACEHOLDER",45)=""
^DD(727.825,"B","PLACEHOLDER",46)=""
^DD(727.825,"B","PLACEHOLDER",48)=""
^DD(727.825,"B","PLACEHOLDER",51)=""
^DD(727.825,"B","PLACEHOLDER",58)=""
^DD(727.825,"B","PLACEHOLDER1",41)=""
^DD(727.825,"B","PLACEHOLDER4",22)=""
^DD(727.825,"B","PLACEHOLDER5",39)=""
^DD(727.825,"B","PRIMARY CARE PROVIDER",27)=""
^DD(727.825,"B","PRIMARY CARE PROVIDER NPI",93)=""
^DD(727.825,"B","PRIMARY CARE TEAM",26)=""
^DD(727.825,"B","PROCEDURE",11)=""
^DD(727.825,"B","PRODUCTION DIVISION CODE",69)=""
^DD(727.825,"B","PROVIDER",16)=""
^DD(727.825,"B","PROVIDER #2",18)=""
^DD(727.825,"B","PROVIDER #2 NPI",95)=""
^DD(727.825,"B","PROVIDER #2 PERSON CLASS",19)=""
^DD(727.825,"B","PROVIDER #3",20)=""
^DD(727.825,"B","PROVIDER #3 NPI",96)=""
^DD(727.825,"B","PROVIDER #3 PERSON CLASS",21)=""
^DD(727.825,"B","PROVIDER NPI",94)=""
^DD(727.825,"B","PROVIDER PERSON CLASS",17)=""
^DD(727.825,"B","PURPLE HEART INDICATOR",60)=""
^DD(727.825,"B","Patient No. - DFN",4)="1"
^DD(727.825,"B","Placeholder4",22)="1"
^DD(727.825,"B","Primary Care Provider",27)="1"
^DD(727.825,"B","Primary Care Team",26)="1"
^DD(727.825,"B","Procedure",11)="1"
^DD(727.825,"B","Provider",16)="1"
^DD(727.825,"B","Provider #2",18)="1"
^DD(727.825,"B","Provider #3",20)="1"
^DD(727.825,"B","Purple Heart Indicator",60)="1"
^DD(727.825,"B","RACE 1",73)=""
^DD(727.825,"B","RADIATION ENCOUNTER INDICATOR",88)=""
^DD(727.825,"B","RADIATION EXPOSURE",35)=""
^DD(727.825,"B","Race 1",73)="1"
^DD(727.825,"B","Radiation Exposure",35)="1"
^DD(727.825,"B","SECONDARY ICD9 CODE #1",30)=""
^DD(727.825,"B","SECONDARY ICD9 CODE #2",31)=""
^DD(727.825,"B","SECONDARY ICD9 CODE #3",32)=""
^DD(727.825,"B","SECONDARY ICD9 CODE #4",33)=""
^DD(727.825,"B","SECTION",15)=""
^DD(727.825,"B","SENT TO PCE",38)=""
^DD(727.825,"B","SEQUENCE NUMBER",.01)=""
^DD(727.825,"B","SERVICE CONNECTED",37)=""
^DD(727.825,"B","SSN",5)=""
^DD(727.825,"B","Section",15)="1"
^DD(727.825,"B","Sent to PCE",38)="1"
^DD(727.825,"B","Sequence Number",.01)="1"
^DD(727.825,"B","Service Connected",37)="1"
^DD(727.825,"B","Social Security Number",5)="1"
^DD(727.825,"B","TIME",25)=""
^DD(727.825,"B","TREATING SPECIALTY",24)=""
^DD(727.825,"B","Time",25)="1"
^DD(727.825,"B","Treating Specialty",24)="1"
^DD(727.825,"B","USER ENROLLEE",77)=""
^DD(727.825,"B","VOLUME",12)=""
^DD(727.825,"B","Volume",12)="1"
^DD(727.825,"B","YEAR MONTH",1)=""
^DD(727.825,"B","Year/Month",1)="1"
^DD(727.825,"GL",0,1,.01)=""
^DD(727.825,"GL",0,2,1)=""
^DD(727.825,"GL",0,3,2)=""
^DD(727.825,"GL",0,4,3)=""
^DD(727.825,"GL",0,5,4)=""
^DD(727.825,"GL",0,6,5)=""
^DD(727.825,"GL",0,7,6)=""
^DD(727.825,"GL",0,8,7)=""
^DD(727.825,"GL",0,9,8)=""
^DD(727.825,"GL",0,10,9)=""
^DD(727.825,"GL",0,11,10)=""
^DD(727.825,"GL",0,12,11)=""
^DD(727.825,"GL",0,13,12)=""
^DD(727.825,"GL",0,14,13)=""
^DD(727.825,"GL",0,15,14)=""
^DD(727.825,"GL",0,16,15)=""
^DD(727.825,"GL",0,17,16)=""
^DD(727.825,"GL",0,18,17)=""
^DD(727.825,"GL",0,19,18)=""
^DD(727.825,"GL",0,20,19)=""
^DD(727.825,"GL",0,21,20)=""
^DD(727.825,"GL",0,22,21)=""
^DD(727.825,"GL",0,23,22)=""
^DD(727.825,"GL",0,24,23)=""
^DD(727.825,"GL",0,25,24)=""
^DD(727.825,"GL",0,26,25)=""
^DD(727.825,"GL",0,27,26)=""
^DD(727.825,"GL",0,28,27)=""
^DD(727.825,"GL",0,29,28)=""
^DD(727.825,"GL",0,30,29)=""
^DD(727.825,"GL",0,31,30)=""
^DD(727.825,"GL",0,32,31)=""
^DD(727.825,"GL",0,33,32)=""
^DD(727.825,"GL",0,34,33)=""
^DD(727.825,"GL",0,35,34)=""
^DD(727.825,"GL",0,36,35)=""
^DD(727.825,"GL",0,37,36)=""
^DD(727.825,"GL",0,38,37)=""
^DD(727.825,"GL",0,39,38)=""
^DD(727.825,"GL",0,40,39)=""
^DD(727.825,"GL",0,41,40)=""
^DD(727.825,"GL",0,42,41)=""
^DD(727.825,"GL",1,1,42)=""
^DD(727.825,"GL",1,2,43)=""
^DD(727.825,"GL",1,3,44)=""
^DD(727.825,"GL",1,4,45)=""
^DD(727.825,"GL",1,5,46)=""
^DD(727.825,"GL",1,6,47)=""
^DD(727.825,"GL",1,7,48)=""
^DD(727.825,"GL",1,8,49)=""
^DD(727.825,"GL",1,9,50)=""
^DD(727.825,"GL",1,10,51)=""
^DD(727.825,"GL",1,11,52)=""
^DD(727.825,"GL",1,12,53)=""
^DD(727.825,"GL",1,13,54)=""
^DD(727.825,"GL",1,14,55)=""
^DD(727.825,"GL",1,15,56)=""
^DD(727.825,"GL",1,16,57)=""
^DD(727.825,"GL",1,17,58)=""
^DD(727.825,"GL",1,18,59)=""
^DD(727.825,"GL",1,19,60)=""
^DD(727.825,"GL",1,20,61)=""
^DD(727.825,"GL",1,21,62)=""
^DD(727.825,"GL",1,22,63)=""
^DD(727.825,"GL",1,23,64)=""
^DD(727.825,"GL",1,24,65)=""
^DD(727.825,"GL",1,25,66)=""
^DD(727.825,"GL",1,26,67)=""
^DD(727.825,"GL",1,27,68)=""
^DD(727.825,"GL",1,28,69)=""
^DD(727.825,"GL",1,29,70)=""
^DD(727.825,"GL",1,30,71)=""
^DD(727.825,"GL",1,31,72)=""
^DD(727.825,"GL",1,32,73)=""
^DD(727.825,"GL",1,33,74)=""
^DD(727.825,"GL",1,34,75)=""
^DD(727.825,"GL",1,35,76)=""
^DD(727.825,"GL",1,36,77)=""
^DD(727.825,"GL",1,37,78)=""
^DD(727.825,"GL",1,38,79)=""
^DD(727.825,"GL",2,1,80)=""
^DD(727.825,"GL",2,2,81)=""
^DD(727.825,"GL",2,3,82)=""
^DD(727.825,"GL",2,4,83)=""
^DD(727.825,"GL",2,5,84)=""
^DD(727.825,"GL",2,6,85)=""
^DD(727.825,"GL",2,7,86)=""
^DD(727.825,"GL",2,8,87)=""
^DD(727.825,"GL",2,9,88)=""
^DD(727.825,"GL",2,10,89)=""
^DD(727.825,"GL",2,11,90)=""
^DD(727.825,"GL",2,12,91)=""
^DD(727.825,"GL",2,13,92)=""
^DD(727.825,"GL",2,14,93)=""
^DD(727.825,"GL",2,15,94)=""
^DD(727.825,"GL",2,16,95)=""
^DD(727.825,"GL",2,17,96)=""
^DD(727.825,"IX",2)=""
^DD(727.825,"RQ",.01)=""
^DD(727.826,0)="FIELD^^74^87"
^DD(727.826,0,"DDA")="N"
^DD(727.826,0,"DIK")="ECX826"
^DD(727.826,0,"DIKOLD")="ECX826"
^DD(727.826,0,"DT")="3021009"
^DD(727.826,0,"IX","AC",727.826,2)=""
^DD(727.826,0,"NM","PROSTHETICS EXTRACT")=""
^DD(727.826,0,"VR")="3.0"
^DD(727.826,0,"VRPK")="ECX"
^DD(727.826,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.826,.01,.1)="Sequence Number"
^DD(727.826,.01,1,0)="^.1^^0"
^DD(727.826,.01,3)="Enter a Number between 1 and 999999999, 0 Decimal Digits."
^DD(727.826,.01,10)="Software generated for each individual record in the extract."
^DD(727.826,.01,21,0)="^^2^2^2980714^^"
^DD(727.826,.01,21,1,0)="The Record Number for this extract entry.  Included in the Header for the"
^DD(727.826,.01,21,2,0)="extract.  The file is DINUMed on this field."
^DD(727.826,.01,23,0)="^^1^1^2980714^^"
^DD(727.826,.01,23,1,0)="The Internal Entry Number (IEN) for this record.  The entry is DINUMed."
^DD(727.826,.01,"DT")="2981215"
^DD(727.826,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.826,1,.1)="Year Month"
^DD(727.826,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.826,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.826,1,3)="Answer must be six characters in length."
^DD(727.826,1,10)="Software generated for all records in the extracted year and month."
^DD(727.826,1,21,0)="^^2^2^2980714^^"
^DD(727.826,1,21,1,0)="Six digit textual number representing the year and month the extract was"
^DD(727.826,1,21,2,0)="completed.  Included in the Header for the extract."
^DD(727.826,1,23,0)="^^1^1^2980714^^"
^DD(727.826,1,23,1,0)="Generated by the extract software (ECXTRAC and ECXPRO)."
^DD(727.826,1,"DT")="2980714"
^DD(727.826,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.826,2,.1)="Extract Number"
^DD(727.826,2,1,0)="^.1"
^DD(727.826,2,1,1,0)="727.826^AC"
^DD(727.826,2,1,1,1)="S ^ECX(727.826,""AC"",$E(X,1,30),DA)="""""
^DD(727.826,2,1,1,2)="K ^ECX(727.826,""AC"",$E(X,1,30),DA)"
^DD(727.826,2,1,1,3)="DO NOT DELETE!"
^DD(727.826,2,1,1,"%D",0)="^^2^2^2980722^"
^DD(727.826,2,1,1,"%D",1,0)="This cross reference is essential for purging and managing data in this"
^DD(727.826,2,1,1,"%D",2,0)="file."
^DD(727.826,2,1,1,"DT")="2980722"
^DD(727.826,2,3)="Enter the extract number for this extract."
^DD(727.826,2,10)="Software generated from the associated entry in the Extract Log file."
^DD(727.826,2,21,0)="^^2^2^2980714^^"
^DD(727.826,2,21,1,0)="Corresponding entry in the DSS Extract Log file (#727) for this extract."
^DD(727.826,2,21,2,0)="Used to identify the header in the extract transmission."
^DD(727.826,2,23,0)="^^1^1^2980714^"
^DD(727.826,2,23,1,0)="Generated by the extract software (ECXTRAC and ECXPRO)."
^DD(727.826,2,"DT")="2980722"
^DD(727.826,3,0)="FACILITY^RF^^0;4^K:$L(X)>5!($L(X)<3) X"
^DD(727.826,3,.1)="Facility"
^DD(727.826,3,3)="Answer must be 3-5 characters in length."
^DD(727.826,3,10)="Station field (#8) in the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,3,21,0)="^^2^2^2981116^^^^"
^DD(727.826,3,21,1,0)="The Station Number of the Facility where the Prosthetics transaction is"
^DD(727.826,3,21,2,0)="completed."
^DD(727.826,3,23,0)="^^3^3^2981116^^^^"
^DD(727.826,3,23,1,0)="The Station Number is expected to be at least 3 characters in length."
^DD(727.826,3,23,2,0)="If the Station Number is longer than 5 characters, the first 5 characters"
^DD(727.826,3,23,3,0)="will be stored in this field.  "
^DD(727.826,3,"DT")="2981116"
^DD(727.826,4,0)="PATIENT NO. DFN^RP2'^DPT(^0;5^Q"
^DD(727.826,4,.1)="Patient No. DFN"
^DD(727.826,4,3)="Enter the name of the patient for this extract record."
^DD(727.826,4,10)="PATIENT NAME (#.02) of the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,4,21,0)="^^4^4^2990504^^^"
^DD(727.826,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.826,4,21,2,0)=" "
^DD(727.826,4,21,3,0)="PATIENT NO. DFN is the DFN of the patient for whom the prosthetic device"
^DD(727.826,4,21,4,0)="is provided.  This field is required for creation of the extract record."
^DD(727.826,4,23,0)="^^4^4^2990504^^"
^DD(727.826,4,23,1,0)="PATIENT NAME field (#.02) of the RECORD OF PROS APPLIANCE/REPAIR file"
^DD(727.826,4,23,2,0)="(#660).  This in turns points to the NAME field (#.01) of the PROSTHETICS"
^DD(727.826,4,23,3,0)="PROSTHETICS PATIENT file (#665).  This then points to the NAME field (.01)"
^DD(727.826,4,23,4,0)="of the PATIENT file (#2)."
^DD(727.826,4,"DT")="2980714"
^DD(727.826,5,0)="SSN^RFX^^0;6^K:$L(X)>10!($L(X)<9)!'(X?9N!X?9N1""P"") X"
^DD(727.826,5,.1)="Social Security Number"
^DD(727.826,5,3)="Enter the Patient's Social Security Number."
^DD(727.826,5,10)="Derived from the patient in the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,5,21,0)="^^5^5^2990504^^^"
^DD(727.826,5,21,1,0)="The patient's Social Security Number.  This field is required for creation"
^DD(727.826,5,21,2,0)="of the extract record."
^DD(727.826,5,21,3,0)=" "
^DD(727.826,5,21,4,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.826,5,21,5,0)="patient"" and will not be included in the extract.  "
^DD(727.826,5,23,0)="^^7^7^2990504^^"
^DD(727.826,5,23,1,0)="SSN is derived from the PATIENT NAME field (#.02) of the RECORD OF PROS"
^DD(727.826,5,23,2,0)="APPLIANCE/REPAIR file (#660).  This in turn points to the NAME field (#.01)"
^DD(727.826,5,23,3,0)="of the PROSTHETICS PATIENT file (#665).  This then points to the SSN field"
^DD(727.826,5,23,4,0)="(#.09) of the PATIENT file (#2)."
^DD(727.826,5,23,5,0)=" "
^DD(727.826,5,23,6,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with"
^DD(727.826,5,23,7,0)="an SSN beginning with ""00000"" will not be included in the extract."
^DD(727.826,5,"DT")="2980714"
^DD(727.826,6,0)="NAME^RF^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.826,6,.1)="Name"
^DD(727.826,6,3)="Enter the first four characters of the patient's last name."
^DD(727.826,6,10)="Derived from the patient in the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,6,21,0)="^^2^2^2980714^^"
^DD(727.826,6,21,1,0)="The first four characters of the patient's last name.  This field is"
^DD(727.826,6,21,2,0)="required for creation of the extract record."
^DD(727.826,6,23,0)="^^4^4^2980714^"
^DD(727.826,6,23,1,0)="NAME is derived from the PATIENT NAME field (#.02) of the RECORD OF PROS"
^DD(727.826,6,23,2,0)="APPLIANCE/REPAIR file (#660).  This in turn points to the NAME field"
^DD(727.826,6,23,3,0)="(#.01) of the PROSTHETICS PATIENT file (#665).  If the patient's last "
^DD(727.826,6,23,4,0)="name is shorter than 4 characters, spaces will pad the end of the field."
^DD(727.826,6,"DT")="2980714"
^DD(727.826,7,0)="IN OUTPATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,7,.1)="IN Outpatient Indicator"
^DD(727.826,7,3)="Answer must be 1 character in length."
^DD(727.826,7,10)=""
^DD(727.826,7,21,0)="^.001^2^2^3011207^^^"
^DD(727.826,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for the"
^DD(727.826,7,21,2,0)="Prosthetic service extracted."
^DD(727.826,7,23,0)="^^4^4^3011207^"
^DD(727.826,7,23,1,0)="This field formerly contained the pointer to the LOCATION TYPE file"
^DD(727.826,7,23,2,0)="(#40.9) which was either 1=Outpatient or 3=Inpatient.  Pointing to this"
^DD(727.826,7,23,3,0)="file has become obsolete, and in FY2002 this field has been changed to"
^DD(727.826,7,23,4,0)="free text and will contain ""O""=Outpatient or ""I""=Inpatient."
^DD(727.826,7,"DT")="3011207"
^DD(727.826,8,0)="DATE OF SERVICE^RFO^^0;9^K:$L(X)>8!($L(X)<8)!'(X?8N) X"
^DD(727.826,8,.1)="Date of Service"
^DD(727.826,8,1,0)="^.1"
^DD(727.826,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.826,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.826,8,3)="Enter the delivery date of the patient's prosthetic record."
^DD(727.826,8,10)="The DELIVERY DATE (#10) in the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,8,21,0)="^^4^4^2981106^^^"
^DD(727.826,8,21,1,0)="DATE OF SERVICE is defined as the Delivery Date of the patient's prosthetic"
^DD(727.826,8,21,2,0)="record and is used as the determining date range when generating the"
^DD(727.826,8,21,3,0)="Prosthetics Extract.  This field is required for creation of the extract"
^DD(727.826,8,21,4,0)="record."
^DD(727.826,8,23,0)="^^2^2^2981106^^"
^DD(727.826,8,23,1,0)="DATE OF SERVICE is derived from the DELIVERY DATE (#10) in the RECORD OF"
^DD(727.826,8,23,2,0)="PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,8,"DT")="2980722"
^DD(727.826,9,0)="FEEDER LOCATION^RF^^0;10^K:$L(X)>10!($L(X)<6) X"
^DD(727.826,9,.1)="Feeder Location"
^DD(727.826,9,3)="Answer must be 6-10 characters in length."
^DD(727.826,9,10)="Data in the RECORD OF PROS APPLIANCE/REPAIR file (#660).  See Technical Description."
^DD(727.826,9,21,0)="^^27^27^2990511^^^^"
^DD(727.826,9,21,1,0)="If this is a Lab Transaction and the extract header and/or Prosthetic"
^DD(727.826,9,21,2,0)="    Station is equal to the Receiving Station, the FEEDER LOCATION is"
^DD(727.826,9,21,3,0)="    constructed as follows:"
^DD(727.826,9,21,4,0)="1) 3-digit station number of the Receiving Station, concatenated with LAB. "
^DD(727.826,9,21,5,0)="    An example is XXXLAB, where XXX is the Receiving Station number, or"
^DD(727.826,9,21,6,0)="2) 5-digit station number of the Receiving Station  (includes the 2-letter"
^DD(727.826,9,21,7,0)="    division suffix)  concatenated with LAB.  An example is XXXXXLAB, where"
^DD(727.826,9,21,8,0)="    XXXXX is the Receiving Station number."
^DD(727.826,9,21,9,0)="  "
^DD(727.826,9,21,10,0)="If this is a Lab Transaction and the extract header and/or Prosthetic"
^DD(727.826,9,21,11,0)="    Station is equal to the Requesting Station, the FEEDER LOCATION is"
^DD(727.826,9,21,12,0)="    constructed as follows:"
^DD(727.826,9,21,13,0)="1) 3-digit station number of the Requesting Station, concatenated with ORD."
^DD(727.826,9,21,14,0)="    An example is XXXORD, where XXX is the Requesting Station number, or"
^DD(727.826,9,21,15,0)="2) 5-digit station number of the Requesting Station (includes the 2-letter"
^DD(727.826,9,21,16,0)="    division suffix) concatenated with ORD.  An example is XXXXXORD, where"
^DD(727.826,9,21,17,0)="    XXXXX is the Requesting Station number."
^DD(727.826,9,21,18,0)=" "
^DD(727.826,9,21,19,0)="If this is not a Lab Transaction, the FEEDER LOCATION is constructed as"
^DD(727.826,9,21,20,0)="    follows:"
^DD(727.826,9,21,21,0)="1) 3-digit Station number concatenated with NONL.  An example is XXXNONL,"
^DD(727.826,9,21,22,0)="    where XXX is the Station number, or"
^DD(727.826,9,21,23,0)="2) 5-digit Station number (includes the 2-letter division suffix),"
^DD(727.826,9,21,24,0)="    concatenated with NONL.  An example is XXXXXNONL, where XXXXX is the"
^DD(727.826,9,21,25,0)="    Station number."
^DD(727.826,9,21,26,0)=" "
^DD(727.826,9,21,27,0)="This field is required for creation of the extract record."
^DD(727.826,9,23,0)="^^9^9^2990511^^^^"
^DD(727.826,9,23,1,0)="Data for the FEEDER LOCATION (FDR LOC) is derived from the RECORD OF PROS"
^DD(727.826,9,23,2,0)="    APPLIANCE/REPAIR file (#660).  Depending how the FEEDER LOCATION is"
^DD(727.826,9,23,3,0)="    constructed, data is derived from the following fields in the RECORD OF"
^DD(727.826,9,23,4,0)="    PROS APPLIANCE/REPAIR file (#660):"
^DD(727.826,9,23,5,0)="1) RECEIVING STATION (#70).  RECEIVING STATION is a pointer to the"
^DD(727.826,9,23,6,0)="    INSTITUTION file (#4)."
^DD(727.826,9,23,7,0)="2) REQUESTING STATION (#40).  RECEIVING STATION is a pointer to the"
^DD(727.826,9,23,8,0)="    INSTITUTION file (#4)."
^DD(727.826,9,23,9,0)="3) STATION (#8).  STATION is a pointer to the INSTITUTION file (#4)."
^DD(727.826,9,"DT")="2981224"
^DD(727.826,10,0)="FEEDER KEY^RF^^0;11^K:$L(X)>20!($L(X)<7) X"
^DD(727.826,10,.1)="Feeder Key"
^DD(727.826,10,3)="Answer must be 7-20 characters in length."
^DD(727.826,10,10)="Data in the RECORD OF PROS APPLIANCE/REPAIR file (#660).  See Technical Description."
^DD(727.826,10,21,0)="^^39^39^2981117^^^"
^DD(727.826,10,21,1,0)="FEEDER KEY is the concatenation of the following elements.  They are listed"
^DD(727.826,10,21,2,0)="    in the order they are to appear in the FEEDER KEY."
^DD(727.826,10,21,3,0)=" "
^DD(727.826,10,21,4,0)="1) HCPCS Code - This is the 5-digit HCPCS Code in the patient's prosthetic"
^DD(727.826,10,21,5,0)="    record."
^DD(727.826,10,21,6,0)=" "
^DD(727.826,10,21,7,0)="2) Type of Transaction - This is the Type of Transaction code in the"
^DD(727.826,10,21,8,0)="      patient's prosthetic record."
^DD(727.826,10,21,9,0)="   (a) If Type of Transaction in the patient's prosthetic record is ""X"""
^DD(727.826,10,21,10,0)="       (Repair), the Type of Transaction code in the FEEDER KEY is X."
^DD(727.826,10,21,11,0)="   (b) If the Type of Transaction in the patient's prosthetic record is "
^DD(727.826,10,21,12,0)="       ""I"" (Initial Issue),  ""R"" (Replace) or ""S"" (Spare), the Type of"
^DD(727.826,10,21,13,0)="       Transaction code in the FEEDER KEY is N."
^DD(727.826,10,21,14,0)="   (c) Type of Transaction is considered the first suffix of the FEEDER"
^DD(727.826,10,21,15,0)="       KEY."
^DD(727.826,10,21,16,0)=" "
^DD(727.826,10,21,17,0)="3) Source - This is the Source in the patient's prosthetic record."
^DD(727.826,10,21,18,0)="   (a) If Source in the patient's prosthetic record is VA, the Source code"
^DD(727.826,10,21,19,0)="       in the FEEDER KEY is V (VA)."
^DD(727.826,10,21,20,0)="   (b) If Source in the patient's prosthetic record is Commercial, the"
^DD(727.826,10,21,21,0)="       Source code in the FEEDER KEY is C (Commercial)."
^DD(727.826,10,21,22,0)="   (c) Source is considered the second suffix of the FEEDER KEY."
^DD(727.826,10,21,23,0)=" "
^DD(727.826,10,21,24,0)="4) Station - If this is a Lab Transaction, the station is either the"
^DD(727.826,10,21,25,0)="      Requesting or Receiving Station.  "
^DD(727.826,10,21,26,0)="   (a) 3-digit Receiving Station concatenated with REC if the FEEDER"
^DD(727.826,10,21,27,0)="       LOCATION ends in ORD, or"
^DD(727.826,10,21,28,0)="   (b) 5-digit Receiving Station (includes the 2-letter division suffix)"
^DD(727.826,10,21,29,0)="       concatenated with REC if the FEEDER LOCATION ends in ORD, or"
^DD(727.826,10,21,30,0)="   (c) 3-digit Requesting Station concatenated with REQ if the FEEDER"
^DD(727.826,10,21,31,0)="       LOCATION ends in LAB, or"
^DD(727.826,10,21,32,0)="   (d) 5-digit Requesting Station (includes the 2-letter division suffix)"
^DD(727.826,10,21,33,0)="       concatenated with REQ if the FEEDER LOCATION ends in LAB."
^DD(727.826,10,21,34,0)="   (e) Station is considered the third suffix of the FEEDER KEY."
^DD(727.826,10,21,35,0)=" "
^DD(727.826,10,21,36,0)="5) If this is a Non-Lab Transaction, there is no third suffix for the"
^DD(727.826,10,21,37,0)="      FEEDER KEY."
^DD(727.826,10,21,38,0)=" "
^DD(727.826,10,21,39,0)="This field is required for creation of the extract record."
^DD(727.826,10,23,0)="^^13^13^2981117^^^"
^DD(727.826,10,23,1,0)="Data for the FEEDER KEY is derived from the RECORD OF PROS APPLIANCE/REPAIR"
^DD(727.826,10,23,2,0)="    file (#660).  Depending how the FEEDER KEY is constructed, the"
^DD(727.826,10,23,3,0)="    components for the FEEDER KEY are derived from the following fields in"
^DD(727.826,10,23,4,0)="    the RECORD OF PROS APPLIANCE/REPAIR file (#660):"
^DD(727.826,10,23,5,0)="1) HCPCS (#4.1) - HCPCS is a pointer to the CPT CODE field (#.01) of the"
^DD(727.826,10,23,6,0)="    CPT file (#81)"
^DD(727.826,10,23,7,0)="2) TYPE OF TRANSACTION (#2)"
^DD(727.826,10,23,8,0)="3) SOURCE (#12)"
^DD(727.826,10,23,9,0)="4) RECEIVING STATION (#70).  RECEIVING STATION is a pointer to the"
^DD(727.826,10,23,10,0)="    INSTITUTION file (#4)."
^DD(727.826,10,23,11,0)="5) REQUESTING STATION (#40).  REQUESTING STATION is a pointer to the"
^DD(727.826,10,23,12,0)="    INSTITUTION file (#4)."
^DD(727.826,10,23,13,0)="6) STATION (#8).  STATION is a pointer to the INSTITUTION file (#4)."
^DD(727.826,10,"DT")="2981224"
^DD(727.826,11,0)="QUANTITY^F^^0;12^K:$L(X)>8!($L(X)<1) X"
^DD(727.826,11,.1)="Quantity"
^DD(727.826,11,3)="Answer must be 1-8 characters in length"
^DD(727.826,11,10)="QUANTITY is derived from the QTY (#5) in RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,11,21,0)="^^2^2^2981117^^^^"
^DD(727.826,11,21,1,0)="QUANTITY is defined as the number of units issues or repaired as indicated"
^DD(727.826,11,21,2,0)="in the patient's prosthetic record."
^DD(727.826,11,23,0)="^^3^3^2981117^^^^"
^DD(727.826,11,23,1,0)="Derived from the QTY field (#5) in the RECORD OF PROS APPLIANCE/REPAIR"
^DD(727.826,11,23,2,0)="file (#660).  If the quantity is not known, a default value of 1 will"
^DD(727.826,11,23,3,0)="be assigned to the extract record.  "
^DD(727.826,11,"DT")="3001005"
^DD(727.826,12,0)="PRIMARY CARE TEAM^F^^0;13^K:$L(X)>4!($L(X)<1) X"
^DD(727.826,12,.1)="Primary Care Team"
^DD(727.826,12,3)="Answer must be 1-4 characters in length."
^DD(727.826,12,10)="OUTPTTM^SDUTL3 returns the teams IEN from the Team file (404.51)."
^DD(727.826,12,21,0)="^^2^2^2981117^^^^"
^DD(727.826,12,21,1,0)="PRIMARY CARE TEAM indicates the primary care team entry assigned to the"
^DD(727.826,12,21,2,0)="patient for whom the prosthetic service is provided."
^DD(727.826,12,23,0)="^^3^3^2981117^^^^"
^DD(727.826,12,23,1,0)="From the DATE OF SERVICE field and the patient's DFN, OUTPTTM^SDUTL3"
^DD(727.826,12,23,2,0)="returns the teams IEN from the TEAM file (404.51).  This pointer is"
^DD(727.826,12,23,3,0)="transmitted to Austin.  "
^DD(727.826,12,"DT")="2981116"
^DD(727.826,13,0)="PRIMARY CARE PROVIDER^F^^0;14^K:$L(X)>11!($L(X)<2) X"
^DD(727.826,13,.1)="Primary Care Provider"
^DD(727.826,13,3)="Answer must be 2-11 characters in length."
^DD(727.826,13,10)=""
^DD(727.826,13,21,0)="^^2^2^2981117^^^^"
^DD(727.826,13,21,1,0)="PRIMARY CARE PROVIDER is the primary care provider of the patient for"
^DD(727.826,13,21,2,0)="whom the prosthetic service is provided."
^DD(727.826,13,23,0)="^^3^3^2981117^^^^"
^DD(727.826,13,23,1,0)="From the DATE OF SERVICE field and the patient's DFN, OUTPTPR^SDUTL3"
^DD(727.826,13,23,2,0)="returns the provider's New Person file record IEN.  The New Person IEN"
^DD(727.826,13,23,3,0)="is transmitted to Austin with ""2"" concatenated on the front.  "
^DD(727.826,13,"DT")="2981117"
^DD(727.826,14,0)="PCE CPT/HCPCS CODE & MODIFIERS^RFO^^0;15^K:$L(X)>15!($L(X)<5) X"
^DD(727.826,14,.1)=""
^DD(727.826,14,1,0)="^.1"
^DD(727.826,14,2)="S Y(0)=Y S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.826,14,2.1)="S Y=$$CPTOUT^ECXUTL3(Y)"
^DD(727.826,14,3)="Answer must be 5-15 characters in length."
^DD(727.826,14,10)="Derived from the HCPCS field (4.1) in the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,14,21,0)="^^5^5^2990507^^^^"
^DD(727.826,14,21,1,0)="The CPT code identified by the Prosthesis HCPCS.  This field is required"
^DD(727.826,14,21,2,0)="for creation of the extract record."
^DD(727.826,14,21,3,0)=" "
^DD(727.826,14,21,4,0)="The 5 character CPT/HCPCS Code is followed by upto five (5) 2-character"
^DD(727.826,14,21,5,0)="CPT code modifiers."
^DD(727.826,14,23,0)="^^7^7^2990507^^^^"
^DD(727.826,14,23,1,0)="PCE CPT/HCPCS CODE is derived from the HCPCS (#4.1) field in the RECORD"
^DD(727.826,14,23,2,0)="OF PROS APPLIANCE/REPAIR file (#660).  HCPCS (#4.1) is a pointer to the"
^DD(727.826,14,23,3,0)="respective CPT CODE field (#.01) in the CPT file (#81)."
^DD(727.826,14,23,4,0)=" "
^DD(727.826,14,23,5,0)="The source of CPT modifiers is the MODIFIER field (#.01) of the"
^DD(727.826,14,23,6,0)="CPT MODIFIER file (#81.3).  It is not known at this time where the "
^DD(727.826,14,23,7,0)="Prosthetics package will store those modifiers."
^DD(727.826,14,"DT")="2990614"
^DD(727.826,15,0)="ICD-9 CODE^F^^0;16^K:$L(X)>7!($L(X)<1) X"
^DD(727.826,15,.1)="ICD-9 Code"
^DD(727.826,15,3)="Enter the Prosthetics ICD-9 code."
^DD(727.826,15,10)="No source currently exists in Prosthetics.  This field will be populated at a future time."
^DD(727.826,15,21,0)="^.001^1^1^3000801^^^^"
^DD(727.826,15,21,1,0)="ICD-9 CODE is the diagnostic code for the patient's prosthetic record."
^DD(727.826,15,23,0)="^.001^2^2^3000801^^^^"
^DD(727.826,15,23,1,0)="This field is not yet used by the Prosthetics Extract as the ICD-9 field"
^DD(727.826,15,23,2,0)="is not available in Prosthetics."
^DD(727.826,15,"DT")="2980714"
^DD(727.826,16,0)="SECONDARY ICD-9 CODE 1^F^^0;17^K:$L(X)>7!($L(X)<1) X"
^DD(727.826,16,.1)=""
^DD(727.826,16,3)="Answer must be 1-7 characters in length."
^DD(727.826,16,10)=""
^DD(727.826,16,21,0)="^^1^1^3001020^"
^DD(727.826,16,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.826,16,"DT")="3000801"
^DD(727.826,17,0)="SECONDARY ICD-9 CODE 2^F^^0;18^K:$L(X)>7!($L(X)<1) X"
^DD(727.826,17,.1)=""
^DD(727.826,17,3)="Answer must be 1-7 characters in length."
^DD(727.826,17,10)=""
^DD(727.826,17,21,0)="^^1^1^3001020^"
^DD(727.826,17,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.826,17,"DT")="3000801"
^DD(727.826,18,0)="SECONDARY ICD-9 CODE 3^F^^0;19^K:$L(X)>7!($L(X)<1) X"
^DD(727.826,18,.1)=""
^DD(727.826,18,3)="Answer must be 1-7 characters in length."
^DD(727.826,18,10)=""
^DD(727.826,18,21,0)="^^1^1^3001020^"
^DD(727.826,18,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.826,18,"DT")="3000801"
^DD(727.826,19,0)="SECONDARY ICD-9 CODE 4^F^^0;20^K:$L(X)>7!($L(X)<1) X"
^DD(727.826,19,.1)=""
^DD(727.826,19,3)="Answer must be 1-7 characters in length."
^DD(727.826,19,10)=""
^DD(727.826,19,21,0)="^^1^1^3001020^"
^DD(727.826,19,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.826,19,"DT")="3000801"
^DD(727.826,20,0)="AGENT ORANGE STATUS^S^Y:Agent Orange exposure claimed;N:Agent Orange exposure not claimed;U:Agent Orange exposure not known;^0;21^Q"
^DD(727.826,20,.1)="Agent Orange Status"
^DD(727.826,20,3)="Enter Y - Agent Orange exposure; N - No Agent Orange exposure; U - Agent Orange Exposure is unknown"
^DD(727.826,20,10)="AGENT ORANGE EXPOS. INDICATED field (#.32102) from the Patient file (#2) as derived from DFN."
^DD(727.826,20,21,0)="^^2^2^2990505^^^^"
^DD(727.826,20,21,1,0)="AGENT ORANGE STATUS indicates if the prosthetics patient claims exposure"
^DD(727.826,20,21,2,0)="to Agent Orange."
^DD(727.826,20,23,0)="^^6^6^2990505^^^"
^DD(727.826,20,23,1,0)="This field is derived from the AGENT ORANGE EXPOS. INDICATED field"
^DD(727.826,20,23,2,0)="(#.32102) in the Patient file (#2) using the patient's DFN.  The field will"
^DD(727.826,20,23,3,0)="have a NULL value if the Patient file (#2) record does not indicate a"
^DD(727.826,20,23,4,0)="status."
^DD(727.826,20,23,5,0)=" "
^DD(727.826,20,23,6,0)="The status indicator is returned by SVC^VADPT."
^DD(727.826,20,"DT")="2980714"
^DD(727.826,21,0)="RADIATION EXPOSURE STATUS^S^Y:Radiation Exposure claimed;N:Radiation Exposure not claimed;U:Radiation Exposure not known;^0;22^Q"
^DD(727.826,21,.1)="Radiation Exposure Status"
^DD(727.826,21,3)="Enter Y - Radiation exposure; N - No Radiation exposure; U - Radiation Exposure is unknown"
^DD(727.826,21,10)="RADIATION EXPOSURE INDICATED field (#.32103) from the Patient file (#2) as derived from DFN."
^DD(727.826,21,21,0)="^^2^2^2990505^^^"
^DD(727.826,21,21,1,0)="RADIATION EXPOSURE STATUS indicates if the prosthetics patient claims"
^DD(727.826,21,21,2,0)="exposure to radiation."
^DD(727.826,21,23,0)="^^5^5^2990505^^^"
^DD(727.826,21,23,1,0)="This field is derived from the RADIATION EXPOSURE INDICATED field (#.32103)"
^DD(727.826,21,23,2,0)="in the Patient file (#2) using the patient's DFN.  This field will have"
^DD(727.826,21,23,3,0)="a NULL value if the Patient file (#2) record does not indicate a status."
^DD(727.826,21,23,4,0)=" "
^DD(727.826,21,23,5,0)="The status indicator is returned by SVC^VADPT."
^DD(727.826,21,"DT")="2980714"
^DD(727.826,22,0)="ENVIRONMENT CONTAMINANTS STAT^S^Y:Environmental Contaminants exposure claimed;N:Environmental Contaminants exposure not claimed;U:Environmental Contaminants exposure not known;^0;23^Q"
^DD(727.826,22,.1)="Environmental Contaminants Status"
^DD(727.826,22,3)="Enter Y - Environmental Contaminants exposure; N - No Environmental Contaminants exposure; U - Environmental Contaminants exposure is unknown"
^DD(727.826,22,10)="ENVIRONMENTAL CONTAMINANTS field (#.322013) from the Patient file (#2) as derived from DFN."
^DD(727.826,22,21,0)="^^2^2^2980714^^"
^DD(727.826,22,21,1,0)="ENVIRONMENT CONTAMINANTS STAT indicates if the prosthetics patient"
^DD(727.826,22,21,2,0)="claims exposure to Environmental Contaminants."
^DD(727.826,22,23,0)="^^3^3^2980714^"
^DD(727.826,22,23,1,0)="This field is derived from the ENVIRONMENTAL CONTAMINANTS field (#.322013)"
^DD(727.826,22,23,2,0)="in the Patient file (#2) using the patient's DFN.  The field will have"
^DD(727.826,22,23,3,0)="a NULL value if the Patient file (#2) record does not indicate a status."
^DD(727.826,22,"DT")="2980714"
^DD(727.826,23,0)="PATIENT ELIGIBILITY^F^^0;24^K:$L(X)>3!($L(X)<1) X"
^DD(727.826,23,.1)="Patient Eligibility"
^DD(727.826,23,3)="Answer must be 1-3 characters in length."
^DD(727.826,23,10)="PATIENT ELIGIBILITY field (#.361) from the Patient file (#2) as derived from DFN."
^DD(727.826,23,21,0)="^^1^1^2990504^^^^"
^DD(727.826,23,21,1,0)="PATIENT ELIGIBILITY is the patient's primary eligibility code."
^DD(727.826,23,23,0)="^^11^11^2990504^^^^"
^DD(727.826,23,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.826,23,23,2,0)="in the PROSTHETICS EXTRACT file (#727.826), ELIGIBILITY data is derived from"
^DD(727.826,23,23,3,0)="the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file (#2)."
^DD(727.826,23,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8)."
^DD(727.826,23,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (8) in the"
^DD(727.826,23,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS"
^DD(727.826,23,23,7,0)="ELIGIBILITY CODE file (#8.1). "
^DD(727.826,23,23,8,0)=" "
^DD(727.826,23,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.826,23,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.826,23,23,11,0)="two or three numeric characters."
^DD(727.826,23,"DT")="2981117"
^DD(727.826,24,0)="COST OF TRANSACTION^F^^0;25^K:$L(X)>6!($L(X)<1) X"
^DD(727.826,24,.1)="Cost of Transaction"
^DD(727.826,24,3)="Answer must be 1-6 characters in length."
^DD(727.826,24,10)="TOTAL COST (#14) or TOTAL LAB COST (#48) from the RECORD OF PROS APPLIANCE/REPAIR file."
^DD(727.826,24,21,0)="^^24^24^2990511^^^"
^DD(727.826,24,21,1,0)="COST OF TRANSACTION is the value found in TOTAL COST in the patient's"
^DD(727.826,24,21,2,0)="    prosthetic record when the Form Requested On is one of the following."
^DD(727.826,24,21,3,0)="    These forms designate commercial acquisition methods:"
^DD(727.826,24,21,4,0)="1)  PSC, represented by 1."
^DD(727.826,24,21,5,0)="2)  2421, represented by 2."
^DD(727.826,24,21,6,0)="3)  2237, represented by 3."
^DD(727.826,24,21,7,0)="4)  2529-7, represented by 5."
^DD(727.826,24,21,8,0)="5)  2474, represented by 6."
^DD(727.826,24,21,9,0)="6)  2431, represented by 7."
^DD(727.826,24,21,10,0)="7)  2914, represented by 8."
^DD(727.826,24,21,11,0)="8)  OTHER, represented by 9."
^DD(727.826,24,21,12,0)="9)  2520, represented by 10."
^DD(727.826,24,21,13,0)="10) VISA, represented by 14"
^DD(727.826,24,21,14,0)=" "
^DD(727.826,24,21,15,0)="COST OF TRANSACTION is the value found in TOTAL LAB COST in the patient's"
^DD(727.826,24,21,16,0)="    prosthetic record when the Form Requested On is the following"
^DD(727.826,24,21,17,0)="    (designating a Lab Transaction): "
^DD(727.826,24,21,18,0)="1)  2529-3, represented by 4."
^DD(727.826,24,21,19,0)=" "
^DD(727.826,24,21,20,0)="COST OF TRANSACTION has a value of zero when the Form Requested On is one"
^DD(727.826,24,21,21,0)="    of the following, which designates a stock or inventory issue:"
^DD(727.826,24,21,22,0)="1)  STOCK ISSUE, represented by 11."
^DD(727.826,24,21,23,0)="2)  INVENTORY ISSUE, represented by 12."
^DD(727.826,24,21,24,0)=" "
^DD(727.826,24,23,0)="^^7^7^2990511^^^"
^DD(727.826,24,23,1,0)="COST OF TRANSACTION is derived from the RECORD OF PROS APPLIANCE/REPAIR"
^DD(727.826,24,23,2,0)="    file (#660).  Depending on how the COST OF TRANSACTION is constructed,"
^DD(727.826,24,23,3,0)="    data is derived from the following fields in the RECORD OF PROS"
^DD(727.826,24,23,4,0)="    APPLIANCE/REPAIR file (#660):"
^DD(727.826,24,23,5,0)="1) TOTAL COST (#14)"
^DD(727.826,24,23,6,0)="2) TOTAL LAB COST (#48)"
^DD(727.826,24,23,7,0)="3) FORM REQUESTED ON (#11)"
^DD(727.826,24,"DT")="2981215"
^DD(727.826,25,0)="LAB LABOR COST^F^^0;26^K:$L(X)>6!($L(X)<1) X"
^DD(727.826,25,.1)="Lab Labor Cost"
^DD(727.826,25,3)="Answer must be 1-6 characters in length."
^DD(727.826,25,10)="TOTAL LABOR COST (#46) in the RECORD OF PROS APPLIANCE/REPAIR file."
^DD(727.826,25,21,0)="^^1^1^2981117^^^^"
^DD(727.826,25,21,1,0)="The LAB LABOR COST is the total cost of labor to perform the job."
^DD(727.826,25,23,0)="^^13^13^2981117^^^"
^DD(727.826,25,23,1,0)="LAB LABOR COST is derived from the TOTAL LABOR COST (#46) in the RECORD"
^DD(727.826,25,23,2,0)="OF PROS APPLIANCE/REPAIR file.  The following algorithm is defined:"
^DD(727.826,25,23,3,0)=" "
^DD(727.826,25,23,4,0)="a) If the patient's prosthetic record indicates a Lab Transaction, the"
^DD(727.826,25,23,5,0)="   value of LAB LABOR COST is equal to the value found for TOTAL LABOR"
^DD(727.826,25,23,6,0)="   COST."
^DD(727.826,25,23,7,0)=" "
^DD(727.826,25,23,8,0)="b) If the patient's prosthetic record is not a Lab Transaction, the value"
^DD(727.826,25,23,9,0)="   of LAB LABOR COST is zero."
^DD(727.826,25,23,10,0)=" "
^DD(727.826,25,23,11,0)="c) If LAB LABOR COST is not known, and the patient's prosthetic record"
^DD(727.826,25,23,12,0)="   indicates a Lab Transaction, a zero value is assigned to the extract"
^DD(727.826,25,23,13,0)="   record."
^DD(727.826,25,"DT")="2981117"
^DD(727.826,26,0)="LAB MATERIAL COST^F^^0;27^K:$L(X)>6!($L(X)<1) X"
^DD(727.826,26,.1)="Lab Material Cost"
^DD(727.826,26,3)="Answer must be 1-6 characters in length."
^DD(727.826,26,10)="TOTAL MATERIAL COST (#47) in the RECORD OF PROS APPLIANCE/REPAIR file."
^DD(727.826,26,21,0)="^^2^2^2981117^^^"
^DD(727.826,26,21,1,0)="LAB MATERIAL COST is the cost of all materials required to complete the"
^DD(727.826,26,21,2,0)="prosthesis."
^DD(727.826,26,23,0)="^^16^16^2981117^^"
^DD(727.826,26,23,1,0)="The LAB MATERIAL COST is derived from the RECORD OF PROS APPLIANCE/REPAIR"
^DD(727.826,26,23,2,0)="according to the following algorithm:"
^DD(727.826,26,23,3,0)="a) If the patient's prosthetic record indicates a Lab Transaction, the"
^DD(727.826,26,23,4,0)="   value of LAB MATERIAL COST is equal to the value found for TOTAL"
^DD(727.826,26,23,5,0)="   MATERIAL COST."
^DD(727.826,26,23,6,0)=" "
^DD(727.826,26,23,7,0)="b) If the patient's prosthetic record is not a Lab Transaction, the value"
^DD(727.826,26,23,8,0)="   of LAB MATERIAL COST is zero."
^DD(727.826,26,23,9,0)=" "
^DD(727.826,26,23,10,0)="c) If LAB MATERIAL COST is not known, and the patient's prosthetic record"
^DD(727.826,26,23,11,0)="   indicates a Lab Transaction, a zero value is assigned to the extract"
^DD(727.826,26,23,12,0)="   record."
^DD(727.826,26,23,13,0)=" "
^DD(727.826,26,23,14,0)="d) LAB MATERIAL COST shall allow for values which are reported in dollars"
^DD(727.826,26,23,15,0)="   and cents.  The actual value shall be extracted, including the decimal"
^DD(727.826,26,23,16,0)="   point."
^DD(727.826,26,"DT")="2981117"
^DD(727.826,27,0)="BILLING STATUS^S^1:SC/OP (Service Connected Outpatient);2:SC/IP (Service Connected Inpatient);3:NSC/IP (Non Service Connected Inpatient);4:NSC/OP (Non Service Connected Outpatient);5:Other (Patient Category unknown);^0;28^Q"
^DD(727.826,27,.1)="Billing Status"
^DD(727.826,27,3)="Enter the Prosthetic Patient Category for utilization."
^DD(727.826,27,10)="BILLING STATUS is derived from PATIENT CATEGORY in the RECORD OF PROS APPLIANCE/REPAIR file (#660)"
^DD(727.826,27,21,0)="^^1^1^2990511^^^"
^DD(727.826,27,21,1,0)="BILLING STATUS is the prosthetics utilization status."
^DD(727.826,27,23,0)="^^3^3^2990511^^"
^DD(727.826,27,23,1,0)="BILLING STATUS is derived from the PATIENT CATEGORY field (#62) in the"
^DD(727.826,27,23,2,0)="RECORD OF PROS APPLIANCE/REPAIR file (#660) for the prosthetic device"
^DD(727.826,27,23,3,0)="record extracted."
^DD(727.826,27,"DT")="2980715"
^DD(727.826,28,0)="VET/NON VET^S^Y:Patient is a veteran;N:Patient is not a veteran;^0;29^Q"
^DD(727.826,28,.1)="Vet/Non Vet"
^DD(727.826,28,3)="Enter Y to indicate the patient is a veteran and N to indicate the patient is not a veteran."
^DD(727.826,28,10)="VET/NON VET is derived from the VETERAN (Y/N) field in the Patient file using DFN."
^DD(727.826,28,21,0)="^^1^1^2980715^^"
^DD(727.826,28,21,1,0)="VET/NON VET indicates if the patient is a veteran."
^DD(727.826,28,23,0)="^^3^3^2980715^"
^DD(727.826,28,23,1,0)="VET/NON VET is pulled from the VETERAN (Y/N) field (#1901) in the Patient"
^DD(727.826,28,23,2,0)="file (#2).  If the veteran's status is not known, a NULL value will be"
^DD(727.826,28,23,3,0)="assigned to the the VET/NON VET field."
^DD(727.826,28,"DT")="2980715"
^DD(727.826,29,0)="TYPE OF TRANSACTION^S^I:Initial issue;R:Replacement;S:Spare;X:Repair;^0;30^Q"
^DD(727.826,29,.1)="Type of Transaction"
^DD(727.826,29,3)="Enter I to indicate an initial prosthetic issue, R for replacement, S for a spare prosthesis and X for a repaired prosthesis."
^DD(727.826,29,10)="TYPE OF TRANSACTION field (#2) in the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,29,21,0)="^^2^2^2981222^^^"
^DD(727.826,29,21,1,0)="TYPE OF TRANSACTION is the code that best describes the prosthetic"
^DD(727.826,29,21,2,0)="transaction."
^DD(727.826,29,23,0)="^^3^3^2981222^^"
^DD(727.826,29,23,1,0)="The TYPE OF TRANSACTION is derived from the TYPE OF TRANSACTION field (#2)"
^DD(727.826,29,23,2,0)="in the RECORD OF PROS APPLIANCE/REPAIR file (#660).  If the TYPE OF"
^DD(727.826,29,23,3,0)="TRANSACTION is not known, NULL is assigned to the field."
^DD(727.826,29,"DT")="2980715"
^DD(727.826,30,0)="REQUESTING STATION^F^^0;31^K:$L(X)>5!($L(X)<3) X"
^DD(727.826,30,.1)="Requesting Station"
^DD(727.826,30,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.826,30,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.826,30,3)="Answer must be 3-5 characters in length."
^DD(727.826,30,10)="STATION NUMBER (#99) in the INSTITUTION file pointed to by REQESTING STATION in file #660."
^DD(727.826,30,21,0)="^^2^2^2981117^^^^"
^DD(727.826,30,21,1,0)="REQUESTING STATION is the facility that initiates the request for a Lab"
^DD(727.826,30,21,2,0)="prosthetic."
^DD(727.826,30,23,0)="^^4^4^2981117^^^"
^DD(727.826,30,23,1,0)="REQUESTING STATION is derived by pulling the STATION NUMBER in the"
^DD(727.826,30,23,2,0)="INSTITUTION file (#4) as pointed to by the REQUESTING STATION (#40) in the"
^DD(727.826,30,23,3,0)="RECORD OF PROS APPLIANCE/REPAIR (#660).  Only the first five characters"
^DD(727.826,30,23,4,0)="of the STATION NUMBER will be extracted.  "
^DD(727.826,30,"DT")="2981117"
^DD(727.826,31,0)="RECEIVING STATION^F^^0;32^K:$L(X)>5!($L(X)<3) X"
^DD(727.826,31,.1)="Receiving Station"
^DD(727.826,31,3)="Answer must be 3-5 characters in length."
^DD(727.826,31,10)="STATION NUMBER (#99) in the INSTITUTION file pointed to by RECEIVING STATION in file #660."
^DD(727.826,31,21,0)="^^2^2^2981117^^^^"
^DD(727.826,31,21,1,0)="RECEIVING STATION is the Lab facility filling the Lab request and providing"
^DD(727.826,31,21,2,0)="the prosthetic to the REQUESTING STATION."
^DD(727.826,31,23,0)="^^4^4^2981117^^^"
^DD(727.826,31,23,1,0)="RECEIVING STATION is derived by pulling the STATION NUMBER in the "
^DD(727.826,31,23,2,0)="INSTITUTION file (#4) as pointed to by the RECEIVING STATION (#70) in the"
^DD(727.826,31,23,3,0)="RECORD OF PROS APPLIANCE/REPAIR (#660).  Only the first five characters"
^DD(727.826,31,23,4,0)="of the STATION NUMBER will be extracted.  "
^DD(727.826,31,"DT")="2981117"
^DD(727.826,32,0)="PSAS HCPCS CODE^F^^0;33^K:$L(X)>15!($L(X)<5) X"
^DD(727.826,32,.1)="AMIS Grouper"
^DD(727.826,32,1,0)="^.1"
^DD(727.826,32,3)="Answer must be 5-15 characters in length."
^DD(727.826,32,10)=""
^DD(727.826,32,21,0)="^^2^2^2990105^^^^"
^DD(727.826,32,21,1,0)="This field is used to hold the PSAS HCPCS Code from the Prosthetics"
^DD(727.826,32,21,2,0)="record being extracted."
^DD(727.826,32,23,0)="^^4^4^2990105^^^"
^DD(727.826,32,23,1,0)="The PSAS HCPCS field (#4.5) of the RECORD OF PROS APPLIANCE/REPAIR"
^DD(727.826,32,23,2,0)="file (#660) is used.  It is a pointer to the PROSTHETICS HCPCS file "
^DD(727.826,32,23,3,0)="(#661.1).  The HCPCS field (#.01) of file #661.1 is placed in this"
^DD(727.826,32,23,4,0)="extract record field."
^DD(727.826,32,"DT")="2990802"
^DD(727.826,33,0)="ZIP CODE^F^^1;1^K:$L(X)>10!($L(X)<5) X"
^DD(727.826,33,.1)="ZIP Code"
^DD(727.826,33,3)="Enter the ZIP or ZIP+4 for the prosthetics patient."
^DD(727.826,33,10)="ZIP+4 (.1112) in the Patient file (#2) as referenced by DFN."
^DD(727.826,33,21,0)="^^2^2^2980715^^"
^DD(727.826,33,21,1,0)="ZIP CODE is the patient ZIP+4 as indicated in the patient's Patient file"
^DD(727.826,33,21,2,0)="(#2) record."
^DD(727.826,33,23,0)="^^3^3^2980715^"
^DD(727.826,33,23,1,0)="ZIP CODE is derived from the ZIP+4 field in the Patient file for the"
^DD(727.826,33,23,2,0)="record indicated by the (prosthetics patient) DFN.  The value of ZIP CODE"
^DD(727.826,33,23,3,0)="may be either the 5 digit ZIP CODE or the ZIP+4 code."
^DD(727.826,33,"DT")="2980715"
^DD(727.826,34,0)="DATE OF BIRTH^FO^^1;2^K:$L(X)>8!($L(X)<8) X"
^DD(727.826,34,.1)="Date of Birth"
^DD(727.826,34,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.826,34,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.826,34,3)="Enter the patient's birthday in the format YYYYMMDD."
^DD(727.826,34,10)="DATE OF BIRTH (#.03) in the Patient file."
^DD(727.826,34,21,0)="^^1^1^2990505^^^"
^DD(727.826,34,21,1,0)="The patient data of birth."
^DD(727.826,34,23,0)="^^3^3^2990505^^"
^DD(727.826,34,23,1,0)="DATE OF BIRTH is derived from the DATE OF BIRTH field (#.03) in the"
^DD(727.826,34,23,2,0)="Patient file (#2) referenced by the patient's DFN.  DATE OF BIRTH will be"
^DD(727.826,34,23,3,0)="stored in the format YYYYMMDD."
^DD(727.826,34,"DT")="2980715"
^DD(727.826,35,0)="SEX^S^M:MALE;F:FEMALE;^1;3^Q"
^DD(727.826,35,.1)=""
^DD(727.826,35,3)=""
^DD(727.826,35,10)="SEX (.02) in the Patient file (#2) as referenced by DFN."
^DD(727.826,35,21,0)="^^1^1^2990505^^^^"
^DD(727.826,35,21,1,0)="Data is M if this patient is a male, or F if female."
^DD(727.826,35,23,0)="^^3^3^2990505^^^^"
^DD(727.826,35,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4),"
^DD(727.826,35,23,2,0)="this data element is derived from the SEX field (#.02) in the PATIENT "
^DD(727.826,35,23,3,0)="file (#2)."
^DD(727.826,35,"DT")="2990505"
^DD(727.826,36,0)="AMIS GROUPER^NJ8,0^^1;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.826,36,.1)="AMIS Grouper"
^DD(727.826,36,1,0)="^.1"
^DD(727.826,36,3)="Enter the specific grouper number that is used to indicate what parts combine to create a prosthetic device."
^DD(727.826,36,10)="AMIS GROUPER field (#68) of the RECORD OF PROS APPLIANCE/REPAIR file (#660)."
^DD(727.826,36,21,0)="^^2^2^2980715^^^"
^DD(727.826,36,21,1,0)="AMIS GROUPER holds the AMIS Grouper number that indicates what items"
^DD(727.826,36,21,2,0)="combine to create a prosthetic device."
^DD(727.826,36,23,0)="^^3^3^2980715^^"
^DD(727.826,36,23,1,0)="AMIS GROUPER is derived from the AMIS GROUPER field (#68) in the RECORD OF"
^DD(727.826,36,23,2,0)="PROS APPLIANCE/REPAIR file (#660).  The field is used to sort prosthetic"
^DD(727.826,36,23,3,0)="items that combine to create a prosthesis.  Decimals are not allowed."
^DD(727.826,36,"DT")="2980722"
^DD(727.826,37,0)="PLACEHOLDER^F^^1;5^K:$L(X)>8!($L(X)<1) X"
^DD(727.826,37,.1)=""
^DD(727.826,37,3)="Enter the National Provider Index for the Primary Care Provider."
^DD(727.826,37,10)=""
^DD(727.826,37,21,0)="^^1^1^3070827^"
^DD(727.826,37,21,1,0)="Currently NULL."
^DD(727.826,37,23,0)="^^1^1^3070827^"
^DD(727.826,37,23,1,0)="Currently NULL."
^DD(727.826,37,"DT")="3070426"
^DD(727.826,38,0)="MASTER PATIENT INDEX^F^^1;6^K:$L(X)>10!($L(X)<1) X"
^DD(727.826,38,.1)="Master Patient Index"
^DD(727.826,38,3)="Enter the Master Patient Index for the prosthetics patient."
^DD(727.826,38,10)="Not yet available."
^DD(727.826,38,21,0)="^^2^2^2990504^^^"
^DD(727.826,38,21,1,0)="This field is a placeholder that will be populated when the MPI becomes"
^DD(727.826,38,21,2,0)="available."
^DD(727.826,38,23,0)="^^1^1^2990504^^"
^DD(727.826,38,23,1,0)="The data for this field is not yet available."
^DD(727.826,38,"DT")="2980715"
^DD(727.826,39,0)="DSS PRODUCT DEPARTMENT^F^^1;7^K:$L(X)>10!($L(X)<1) X"
^DD(727.826,39,.1)=""
^DD(727.826,39,3)="Answer must be 1-10 characters in length"
^DD(727.826,39,10)=""
^DD(727.826,39,21,0)="^.001^2^2^3040318^^"
^DD(727.826,39,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.826,39,21,2,0)="the Prosthetic care product."
^DD(727.826,39,23,0)="^^12^12^3040318^"
^DD(727.826,39,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.826,39,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.826,39,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.826,39,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.826,39,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.826,39,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.826,39,23,7,0)=" "
^DD(727.826,39,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as"
^DD(727.826,39,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.826,39,23,10,0)="designations are made.. If no match is found in file 727.6 an error"
^DD(727.826,39,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.826,39,23,12,0)="group identifying the problem."
^DD(727.826,39,"DT")="3040302"
^DD(727.826,40,0)="PC PROVIDER PERSON CLASS^F^^1;8^K:$L(X)>7!($L(X)<7) X"
^DD(727.826,40,3)="Answer must be 7 characters in length."
^DD(727.826,40,21,0)="^^2^2^2981026^"
^DD(727.826,40,21,1,0)="The VA Code of the Person Class of the Primary Care Provider "
^DD(727.826,40,21,2,0)="associated with this record."
^DD(727.826,40,23,0)="^^6^6^2981026^"
^DD(727.826,40,23,1,0)="The field will hold the VA Code associated with the active Person"
^DD(727.826,40,23,2,0)="Class of the patient's Primary Care Provider as of the date of this"
^DD(727.826,40,23,3,0)="extract record."
^DD(727.826,40,23,4,0)="  "
^DD(727.826,40,23,5,0)="The VA Code is always of the form ""V""_six numeric digits; exactly"
^DD(727.826,40,23,6,0)="7 characters in length."
^DD(727.826,40,"DT")="2981026"
^DD(727.826,41,0)="RACE^F^^1;9^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,41,3)="Answer must be 1 character in length."
^DD(727.826,41,21,0)="^^1^1^2990505^"
^DD(727.826,41,21,1,0)="Race ABBREVIATION for this patient."
^DD(727.826,41,23,0)="^^5^5^2990505^"
^DD(727.826,41,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4),"
^DD(727.826,41,23,2,0)="RACE data is shown as the ABBREVIATION field (#2) of the RACE file (#10)"
^DD(727.826,41,23,3,0)="entry pointed to by the RACE field (#.06) in the PATIENT file (#2)."
^DD(727.826,41,23,4,0)=" "
^DD(727.826,41,23,5,0)="Patient race is returned by DEM^VADPT."
^DD(727.826,41,"DT")="2990505"
^DD(727.826,42,0)="POW STATUS^S^Y:YES;N:NO;U:UNKNOWN;^1;10^Q"
^DD(727.826,42,21,0)="^^1^1^2990505^^"
^DD(727.826,42,21,1,0)="The patient's POW status. May be set to Y(es), N(o), or U(nknown)."
^DD(727.826,42,23,0)="^^2^2^2990505^^"
^DD(727.826,42,23,1,0)="PATIENT file (#2); POW STATUS INDICATED? field (#.525)."
^DD(727.826,42,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.826,42,"DT")="2990505"
^DD(727.826,43,0)="POW LOCATION^F^^1;11^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,43,3)="Answer must be 1 character in length."
^DD(727.826,43,21,0)="^^9^9^2990505^"
^DD(727.826,43,21,1,0)="If POW Status is indicated, then this is the POW confinement"
^DD(727.826,43,21,2,0)="location/period. "
^DD(727.826,43,21,3,0)=" "
^DD(727.826,43,21,4,0)=" 1      WORLD WAR I"
^DD(727.826,43,21,5,0)=" 2      WORLD WAR II - EUROPE"
^DD(727.826,43,21,6,0)=" 3      WORLD WAR II - PACIFIC"
^DD(727.826,43,21,7,0)=" 4      KOREAN"
^DD(727.826,43,21,8,0)=" 5      VIETNAM"
^DD(727.826,43,21,9,0)=" 6      OTHER"
^DD(727.826,43,23,0)="^^3^3^2990505^"
^DD(727.826,43,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.826,43,23,2,0)="pointer value to the POW PERIOD file (#22)."
^DD(727.826,43,23,3,0)="The location indicator is returned by SVC^VADPT."
^DD(727.826,43,"DT")="2990505"
^DD(727.826,44,0)="SHARING AGREEMENT PAYOR^F^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,44,3)="Answer must be 1 character in length."
^DD(727.826,44,21,0)="^^1^1^2990505^"
^DD(727.826,44,21,1,0)="An indicator used for patients participating in sharing agreements."
^DD(727.826,44,23,0)="^^15^15^2990505^"
^DD(727.826,44,23,1,0)="The ALIAS sub-field (#.01) of the ALIAS multiple field (#1) of the"
^DD(727.826,44,23,2,0)="PATIENT file (#2) is used to indicate a patient who participates in "
^DD(727.826,44,23,3,0)="a sharing agreement. If the #.01 field contains any one of the "
^DD(727.826,44,23,4,0)="specified key words, then the patient is considered to be included "
^DD(727.826,44,23,5,0)="for Sharing Agreement information. The keywords are: SHARING AGREEMENT,"
^DD(727.826,44,23,6,0)="CHAMPVA, CHAMPUS, TRICARE, CAT C, CATEGORY C."
^DD(727.826,44,23,7,0)="  "
^DD(727.826,44,23,8,0)="A one character code for the keyword found in the ALIAS multiple "
^DD(727.826,44,23,9,0)="field is obtained by the following conversion:"
^DD(727.826,44,23,10,0)="SHARING AGREEMENT = A"
^DD(727.826,44,23,11,0)="TRICARE = B"
^DD(727.826,44,23,12,0)="CAT C = C"
^DD(727.826,44,23,13,0)="CATEGORY C = C"
^DD(727.826,44,23,14,0)="CHAMPVA = D"
^DD(727.826,44,23,15,0)="CHAMPUS = E"
^DD(727.826,44,"DT")="2990505"
^DD(727.826,45,0)="SHARING AGREEMENT INSURANCE^F^^1;13^K:$L(X)>11!($L(X)<1) X"
^DD(727.826,45,3)="Answer must be 1-11 characters in length."
^DD(727.826,45,21,0)="^^2^2^2990505^"
^DD(727.826,45,21,1,0)="Used to indicate insurer, if patient participates in a"
^DD(727.826,45,21,2,0)="sharing agreement."
^DD(727.826,45,23,0)="^^5^5^2990505^"
^DD(727.826,45,23,1,0)="Data will be taken from the INSURANCE TYPE sub-field (#.01) of the"
^DD(727.826,45,23,2,0)="INSURANCE TYPE field (#.3121), sub-file #2.312, of the PATIENT file"
^DD(727.826,45,23,3,0)="(#2).  This is a pointer value for the INSURANCE COMPANY file (#36)."
^DD(727.826,45,23,4,0)="Only the first insurance company found in the multiple field is used."
^DD(727.826,45,23,5,0)="The data is stored as free text."
^DD(727.826,45,"DT")="2990505"
^DD(727.826,46,0)="MST STATUS^S^Y:Yes, screened reports MST;N:Screened, does not report MST;D:Screened, declines to answer;^1;14^Q"
^DD(727.826,46,3)="Answer must be 2-11 characters in length."
^DD(727.826,46,21,0)="^^5^5^2990505^"
^DD(727.826,46,21,1,0)="The MST Status of the patient on the date of the outpatient encounter."
^DD(727.826,46,21,2,0)="Possible status values are:"
^DD(727.826,46,21,3,0)="Y = Yes, screened reports MST"
^DD(727.826,46,21,4,0)="N = Screened, does not report MST"
^DD(727.826,46,21,5,0)="D = Screened, declines to answer"
^DD(727.826,46,23,0)="^^5^5^2990505^"
^DD(727.826,46,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual"
^DD(727.826,46,23,2,0)="trauma claims and effective dates.  The patients MST status is stored"
^DD(727.826,46,23,3,0)="in the MST STATUS field (#3).  A call will be made to"
^DD(727.826,46,23,4,0)="$$GETSTAT^DGMSTAPI(DFN,DGDATE) using the DFN in the PATIENT NO.  DFN "
^DD(727.826,46,23,5,0)="field and the date in the DAY field."
^DD(727.826,46,"DT")="2990505"
^DD(727.826,47,0)="ENROLLMENT LOCATION^F^^1;15^K:$L(X)>7!($L(X)<3) X"
^DD(727.826,47,3)="Answer must be 3-7 characters in length"
^DD(727.826,47,21,0)="^^2^2^3020808^"
^DD(727.826,47,21,1,0)="The facility that the patient chooses to designate as his preferred"
^DD(727.826,47,21,2,0)="location for care."
^DD(727.826,47,23,0)="^^5^5^3020808^^"
^DD(727.826,47,23,1,0)="The PREFERRED FACILITY field (# 27.02) of the PATIENT file (#2)"
^DD(727.826,47,23,2,0)="is defined as the facility that the patient chooses to designate"
^DD(727.826,47,23,3,0)="as his preferred location for care.  The PREFERRED FACILITY field"
^DD(727.826,47,23,4,0)="(# 27.02) is a pointer to the INSTITUTION file (#4).  From file #4,"
^DD(727.826,47,23,5,0)="the value in the STATION NUMBER field (#99) is used."
^DD(727.826,47,"DT")="3020808"
^DD(727.826,48,0)="STATE^F^^1;16^K:$L(X)>2!($L(X)<2) X"
^DD(727.826,48,3)="Answer must be 2 characters in length."
^DD(727.826,48,21,0)="^^1^1^2990505^"
^DD(727.826,48,21,1,0)="The state in which the patient resides."
^DD(727.826,48,23,0)="^^4^4^2990505^^"
^DD(727.826,48,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.826,48,23,2,0)="in the extract record, data is derived from the STATE field (#.115) in the"
^DD(727.826,48,23,3,0)="PATIENT file (#2) which points to the STATE file (#5).  From the STATE file"
^DD(727.826,48,23,4,0)="record, the two-character VA STATE CODE field (#2) is used."
^DD(727.826,48,"DT")="2990505"
^DD(727.826,49,0)="COUNTY^F^^1;17^K:$L(X)>3!($L(X)<3) X"
^DD(727.826,49,3)="Answer must be 3 characters in length."
^DD(727.826,49,21,0)="^^1^1^2990505^"
^DD(727.826,49,21,1,0)="The county in which the patient resides."
^DD(727.826,49,23,0)="^^5^5^2990505^^"
^DD(727.826,49,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.826,49,23,2,0)="(#4) in the extract record, data is derived from the COUNTY field (#.117)"
^DD(727.826,49,23,3,0)="in the PATIENT file (#2), which points to a subfile record in the COUNTY"
^DD(727.826,49,23,4,0)="multiple field (#3) of the STATE file (#5).  The three-character VA COUNTY"
^DD(727.826,49,23,5,0)="CODE field (#2) within the COUNTY multiple field is used."
^DD(727.826,49,"DT")="2990505"
^DD(727.826,50,0)="ASSOCIATE PC PROVIDER^F^^1;18^K:$L(X)>11!($L(X)<2) X"
^DD(727.826,50,3)="Answer must be 2-11 characters in length."
^DD(727.826,50,21,0)="^^4^4^2990505^"
^DD(727.826,50,21,1,0)="This is a reference to the NEW PERSON file (#200) for the provider who"
^DD(727.826,50,21,2,0)="is the patients Associate Provider for Primary Care as assigned with"
^DD(727.826,50,21,3,0)="the PCMM application.  The IEN to file #200 is prefixed with the "
^DD(727.826,50,21,4,0)="character 2."
^DD(727.826,50,23,0)="^^2^2^2990505^"
^DD(727.826,50,23,1,0)="This data element will be obtained by use of a function provided by"
^DD(727.826,50,23,2,0)="the PCMM application."
^DD(727.826,50,"DT")="2990505"
^DD(727.826,51,0)="ASSOC. PC PROV. PERSON CLASS^F^^1;19^K:$L(X)>7!($L(X)<7) X"
^DD(727.826,51,3)="Answer must be 7 characters in length."
^DD(727.826,51,21,0)="^^4^4^2990505^"
^DD(727.826,51,21,1,0)="The field will hold the VA Code associated with the active Person Class"
^DD(727.826,51,21,2,0)="of the Associate Primary Care Provider as assigned by through the PCMM"
^DD(727.826,51,21,3,0)="appilcation.  The VA Code is always of the form ""V""_six numeric digits;  "
^DD(727.826,51,21,4,0)="exactly 7 characters in length. "
^DD(727.826,51,23,0)="^^3^3^2990505^"
^DD(727.826,51,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1."
^DD(727.826,51,23,2,0)="Active Person Class is determined by $$GET^XUA4A71(PERS,DATE), where "
^DD(727.826,51,23,3,0)="PERS is the IEN from file #200."
^DD(727.826,51,"DT")="2990505"
^DD(727.826,52,0)="PLACEHOLDER^F^^1;20^K:$L(X)>8!($L(X)<1) X"
^DD(727.826,52,3)="Answer must be 1-8 characters in length."
^DD(727.826,52,21,0)="^^1^1^3070827^"
^DD(727.826,52,21,1,0)="Currently NULL."
^DD(727.826,52,23,0)="^^1^1^3070827^"
^DD(727.826,52,23,1,0)="Currently NULL."
^DD(727.826,52,"DT")="3070426"
^DD(727.826,53,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;21^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,53,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.826,53,21,0)="^^7^7^3001020^"
^DD(727.826,53,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is"
^DD(727.826,53,21,2,0)="admitted to either a DOM, PRRTP or SAARTP at the time hospital"
^DD(727.826,53,21,3,0)="service is provided."
^DD(727.826,53,21,4,0)="Domiciliary"
^DD(727.826,53,21,5,0)="(DOM)"
^DD(727.826,53,21,6,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.826,53,21,7,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.826,53,"DT")="3001010"
^DD(727.826,54,0)="ENROLLMENT CATEGORY^F^^1;22^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,54,3)="Answer must be 1 character in length."
^DD(727.826,54,21,0)="^^1^1^3001020^"
^DD(727.826,54,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.826,54,"DT")="3000801"
^DD(727.826,55,0)="ENROLLMENT STATUS^F^^1;23^K:$L(X)>2!($L(X)<1) X"
^DD(727.826,55,3)="Answer must be 1-2 characters in length."
^DD(727.826,55,21,0)="^^1^1^3001020^"
^DD(727.826,55,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.826,55,"DT")="3000801"
^DD(727.826,56,0)="PLACEHOLDER^F^^1;24^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,56,3)="Answer must be 1 character in length."
^DD(727.826,56,"DT")="3040301"
^DD(727.826,57,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^1;25^Q"
^DD(727.826,57,.1)="Purple Heart Indicator"
^DD(727.826,57,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.826,57,21,0)="^^1^1^3021009^^"
^DD(727.826,57,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.826,57,23,0)="^^2^2^3021009^"
^DD(727.826,57,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.826,57,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.826,57,"DT")="3021009"
^DD(727.826,58,0)="PERIOD OF SERVICE^F^^1;26^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,58,3)="Answer must be 1 character in length."
^DD(727.826,58,21,0)="^^2^2^3001020^"
^DD(727.826,58,21,1,0)="The period of service that best classifies the patient based on"
^DD(727.826,58,21,2,0)="eligibility code. "
^DD(727.826,58,"DT")="3000801"
^DD(727.826,59,0)="OBSERVATION PATIENT INDICATOR^F^^1;27^K:$L(X)>4!($L(X)<1) X"
^DD(727.826,59,3)="Answer must be 1-4 characters in length."
^DD(727.826,59,21,0)="^^2^2^3011212^"
^DD(727.826,59,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.826,59,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.826,59,"DT")="3010814"
^DD(727.826,60,0)="ENCOUNTER NUMBER^F^^1;28^K:$L(X)>18!($L(X)<1) X"
^DD(727.826,60,3)="Answer must be 1-18 characters in length"
^DD(727.826,60,21,0)="^^3^3^3011212^"
^DD(727.826,60,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.826,60,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.826,60,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.826,60,"DT")="3010509"
^DD(727.826,61,0)="AGENT ORANGE LOCATION^F^^1;29^K:$L(X)>2!($L(X)<2) X"
^DD(727.826,61,3)="Answer must be 2 characters in length"
^DD(727.826,61,21,0)="^^1^1^3011212^"
^DD(727.826,61,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.826,61,"DT")="3010509"
^DD(727.826,62,0)="CNH/SH STATUS^F^^1;30^K:$L(X)>3!($L(X)<3) X"
^DD(727.826,62,3)="Answer must be 3 characters in length"
^DD(727.826,62,21,0)="^^2^2^3011212^"
^DD(727.826,62,21,1,0)="This field is used to indicate whether a patient is currently in "
^DD(727.826,62,21,2,0)="a contract nursing home/state home."
^DD(727.826,62,"DT")="3010509"
^DD(727.826,63,0)="PRODUCTION DIVISION CODE^F^^1;31^K:$L(X)>6!($L(X)<3) X"
^DD(727.826,63,3)="Answer must be 3-6 characters in length."
^DD(727.826,63,21,0)="^.001^2^2^3021008^^"
^DD(727.826,63,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.826,63,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.826,63,23,0)="^^2^2^3021008^"
^DD(727.826,63,23,1,0)="Data comes from the STATION NUMBER field (#99) of the INSTITUTION"
^DD(727.826,63,23,2,0)="file (#4)."
^DD(727.826,63,"DT")="3020812"
^DD(727.826,64,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^1;32^Q"
^DD(727.826,64,.1)="Head and Neck Cancer Indicator"
^DD(727.826,64,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.826,64,21,0)="^^1^1^3020829^"
^DD(727.826,64,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.826,64,23,0)="^^3^3^3020829^"
^DD(727.826,64,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.826,64,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.826,64,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.826,64,"DT")="3020829"
^DD(727.826,65,0)="ETHNICITY^F^^1;33^K:$L(X)>6!($L(X)<1) X"
^DD(727.826,65,.1)="Ethnicity"
^DD(727.826,65,3)="Answer must be 1-6 characters in length"
^DD(727.826,65,21,0)="^^1^1^3020829^"
^DD(727.826,65,21,1,0)="The patient's PTF Ethnicity code."
^DD(727.826,65,23,0)="^^8^8^3021210^"
^DD(727.826,65,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.826,65,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.826,65,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.826,65,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.826,65,23,5,0)=" "
^DD(727.826,65,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.826,65,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.826,65,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.826,65,"DT")="3021210"
^DD(727.826,66,0)="RACE 1^F^^1;34^K:$L(X)>6!($L(X)<1) X"
^DD(727.826,66,.1)="Race 1"
^DD(727.826,66,3)="Answer must be 1-6 characters in length"
^DD(727.826,66,21,0)="^^1^1^3020829^"
^DD(727.826,66,21,1,0)="The patient's PTF Race code(s)."
^DD(727.826,66,23,0)="^^10^10^3020829^"
^DD(727.826,66,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.826,66,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.826,66,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.826,66,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.826,66,23,5,0)=" "
^DD(727.826,66,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.826,66,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.826,66,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.826,66,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.826,66,23,10,0)="the only value included in the RACE1 field."
^DD(727.826,66,"DT")="3020829"
^DD(727.826,67,0)="DSS IP #^NJ7,0^^1;35^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.826,67,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.826,67,21,0)="^.001^2^2^3040318^^"
^DD(727.826,67,21,1,0)="The nationally defined DSS Intermediate Product Number designated to the "
^DD(727.826,67,21,2,0)="patient care product."
^DD(727.826,67,23,0)="^^10^10^3041027^"
^DD(727.826,67,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.826,67,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.826,67,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.826,67,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.826,67,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.826,67,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.826,67,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.826,67,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.826,67,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.826,67,23,10,0)="group identifying the problem."
^DD(727.826,67,"DT")="3031113"
^DD(727.826,68,0)="ENROLLMENT PRIORITY^F^^1;36^K:$L(X)>2!($L(X)<1) X"
^DD(727.826,68,3)="Answer must be 1-2 characters in length."
^DD(727.826,68,21,0)="^^2^2^3040317^"
^DD(727.826,68,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.826,68,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.826,68,23,0)="^^20^20^3041027^"
^DD(727.826,68,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.826,68,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.826,68,23,3,0)=" "
^DD(727.826,68,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.826,68,23,5,0)=" "
^DD(727.826,68,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.826,68,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.826,68,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.826,68,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.826,68,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.826,68,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.826,68,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.826,68,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.826,68,23,14,0)=" "
^DD(727.826,68,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.826,68,23,16,0)=" "
^DD(727.826,68,23,17,0)="                                'a' FOR 1 "
^DD(727.826,68,23,18,0)="                                'c' FOR 3 "
^DD(727.826,68,23,19,0)="                                'e' FOR 5 "
^DD(727.826,68,23,20,0)="                                'g' FOR 7   "
^DD(727.826,68,"DT")="3040301"
^DD(727.826,69,0)="USER ENROLLEE^F^^1;37^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,69,3)="Answer must be 1 character in length."
^DD(727.826,69,21,0)="^^4^4^3040317^"
^DD(727.826,69,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.826,69,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.826,69,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.826,69,21,4,0)="year's value is contained. "
^DD(727.826,69,"DT")="3040301"
^DD(727.826,70,0)="PATIENT TYPE^F^^1;38^K:$L(X)>2!($L(X)<1) X"
^DD(727.826,70,3)="Answer must be 1-2 characters in length."
^DD(727.826,70,21,0)="^^3^3^3040317^"
^DD(727.826,70,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.826,70,21,2,0)="at a VA facility. It is determined by the TYPE field of the PATIENT "
^DD(727.826,70,21,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391."
^DD(727.826,70,23,0)="^^17^17^3040317^"
^DD(727.826,70,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.826,70,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT "
^DD(727.826,70,23,3,0)="File #2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.826,70,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.826,70,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.826,70,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.826,70,23,7,0)=" "
^DD(727.826,70,23,8,0)="AC= ACTIVE DUTY"
^DD(727.826,70,23,9,0)="AL= ALLIED VETERAN"
^DD(727.826,70,23,10,0)="CO= COLLATERAL"
^DD(727.826,70,23,11,0)="EM= EMPLOYEE"
^DD(727.826,70,23,12,0)="IN= INELIGIBLE"
^DD(727.826,70,23,13,0)="MI= MILITARY RETIREE"
^DD(727.826,70,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.826,70,23,15,0)="NS= NSC VETERAN"
^DD(727.826,70,23,16,0)="SC= SC VETERAN"
^DD(727.826,70,23,17,0)="TR= TRICARE"
^DD(727.826,70,"DT")="3040301"
^DD(727.826,71,0)="CV STATUS ELIGIBILITY^F^^1;39^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,71,3)="Answer must be 1 character in length."
^DD(727.826,71,21,0)="^.001^3^3^3040318^^"
^DD(727.826,71,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.826,71,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.826,71,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.826,71,23,0)="^^11^11^3040318^"
^DD(727.826,71,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.826,71,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.826,71,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.826,71,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.826,71,23,5,0)=" "
^DD(727.826,71,23,6,0)=" 1 - qualifies as a CV"
^DD(727.826,71,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.826,71,23,8,0)="-1 - bad DFN or date"
^DD(727.826,71,23,9,0)=" "
^DD(727.826,71,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.826,71,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.826,71,"DT")="3040301"
^DD(727.826,72,0)="CV ELIGIBILITY END DATE^F^^1;40^K:$L(X)>8!($L(X)<1) X"
^DD(727.826,72,3)="Answer must be 1-8 characters in length."
^DD(727.826,72,21,0)="^^3^3^3040317^"
^DD(727.826,72,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.826,72,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.826,72,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.826,72,23,0)="^^4^4^3040317^"
^DD(727.826,72,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.826,72,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.826,72,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.826,72,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.826,72,"DT")="3040301"
^DD(727.826,73,0)="ENCOUNTER CV^F^^1;41^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,73,3)="Answer must be 1 character in length."
^DD(727.826,73,21,0)="^^3^3^3040317^"
^DD(727.826,73,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.826,73,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.826,73,21,3,0)="2 to determine CV Status."
^DD(727.826,73,23,0)="^^10^10^3040317^"
^DD(727.826,73,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.826,73,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.826,73,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.826,73,23,4,0)="The third piece returns:"
^DD(727.826,73,23,5,0)=" "
^DD(727.826,73,23,6,0)="1 - vet was eligible on date specified"
^DD(727.826,73,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.826,73,23,8,0)=" "
^DD(727.826,73,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.826,73,23,10,0)="'NULL' for 'NO'."
^DD(727.826,73,"DT")="3040301"
^DD(727.826,74,0)="NATIONAL PATIENT RECORD FLAG^F^^1;42^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,74,3)="Answer must be 1 character in length."
^DD(727.826,74,21,0)="^^7^7^3040317^"
^DD(727.826,74,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.826,74,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.826,74,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.826,74,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.826,74,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.826,74,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.826,74,21,7,0)="NULL."
^DD(727.826,74,23,0)="^^7^7^3040317^"
^DD(727.826,74,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File # "
^DD(727.826,74,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient "
^DD(727.826,74,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are "
^DD(727.826,74,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is "
^DD(727.826,74,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is "
^DD(727.826,74,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is "
^DD(727.826,74,23,7,0)="NULL."
^DD(727.826,74,"DT")="3040301"
^DD(727.826,75,0)="ERI^F^^1;43^K:$L(X)>2!($L(X)<1) X"
^DD(727.826,75,3)="Answer must be 1-2 characters in length."
^DD(727.826,75,21,0)="^.001^2^2^3060731^^"
^DD(727.826,75,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.826,75,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.826,75,23,0)="^.001^4^4^3060731^^^"
^DD(727.826,75,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.826,75,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.826,75,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.826,75,23,4,0)="    Null"
^DD(727.826,75,"DT")="3060731"
^DD(727.826,76,0)="AGENT ORANGE ENC INDICATOR^F^^1;44^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,76,3)="Answer must be 1 character in length."
^DD(727.826,76,21,0)="^.001^5^5^3060719^^"
^DD(727.826,76,21,1,0)="Indicates the appropriate response for agent orange as related to"
^DD(727.826,76,21,2,0)="this patient's episode of care:"
^DD(727.826,76,21,3,0)="  Y = Yes"
^DD(727.826,76,21,4,0)="  N = No"
^DD(727.826,76,21,5,0)="  Null"
^DD(727.826,76,23,0)="^.001^5^5^3060719^^"
^DD(727.826,76,23,1,0)="Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file"
^DD(727.826,76,23,2,0)="(#606) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.826,76,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the agent orange indicator"
^DD(727.826,76,23,4,0)="stored at the AGENT ORANGE EXPOSURE field (#80002) in the VISIT file"
^DD(727.826,76,23,5,0)="(#9000010). The value will be stored in the output array subscripted ""AO""."
^DD(727.826,76,"DT")="3060626"
^DD(727.826,77,0)="ENCOUNTER EC^F^^1;45^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,77,3)="Answer must be 1 character in length."
^DD(727.826,77,21,0)="^^5^5^3060719^"
^DD(727.826,77,21,1,0)="Indicates the appropriate response for environmental contaminant as"
^DD(727.826,77,21,2,0)="related to this patient's episode of care:"
^DD(727.826,77,21,3,0)="  Y = Yes"
^DD(727.826,77,21,4,0)="  N = No"
^DD(727.826,77,21,5,0)="  Null"
^DD(727.826,77,23,0)="^^6^6^3060719^"
^DD(727.826,77,23,1,0)="Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file"
^DD(727.826,77,23,2,0)="(#606) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.826,77,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the environmental contaminant"
^DD(727.826,77,23,4,0)="indicator stored at the PERSIAN GULF EXPOSUR field (#80004) in the VISIT"
^DD(727.826,77,23,5,0)="file (#9000010). The value will be stored in the output array subscripted"
^DD(727.826,77,23,6,0)="""PGE""."
^DD(727.826,77,"DT")="3060623"
^DD(727.826,78,0)="ENC HEAD/NECK CA^F^^1;46^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,78,3)="Answer must be 1 character in length."
^DD(727.826,78,21,0)="^^5^5^3060719^"
^DD(727.826,78,21,1,0)="Indicates the appropriate response for head/neck cancer as related to"
^DD(727.826,78,21,2,0)="this patient's episode of care:"
^DD(727.826,78,21,3,0)="  Y = Yes"
^DD(727.826,78,21,4,0)="  N = No"
^DD(727.826,78,21,5,0)="  Null"
^DD(727.826,78,23,0)="^^6^6^3060719^"
^DD(727.826,78,23,1,0)="Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file"
^DD(727.826,78,23,2,0)="(#606) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.826,78,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the head/neck cancer data"
^DD(727.826,78,23,4,0)="stored at the HEAD AND/OR NECK CANCER field (#80006) in the VISIT file"
^DD(727.826,78,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.826,78,23,6,0)="""HNC""."
^DD(727.826,78,"DT")="3060623"
^DD(727.826,79,0)="ENCOUNTER MST^F^^1;47^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,79,3)="Answer must be 1 character in length."
^DD(727.826,79,21,0)="^^5^5^3060719^"
^DD(727.826,79,21,1,0)="Indicates the appropriate response for military sexual trauma as related"
^DD(727.826,79,21,2,0)="to this patient's episode of care:"
^DD(727.826,79,21,3,0)="  Y = Yes"
^DD(727.826,79,21,4,0)="  N = No"
^DD(727.826,79,21,5,0)="  Null"
^DD(727.826,79,23,0)="^^6^6^3060719^"
^DD(727.826,79,23,1,0)="Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file"
^DD(727.826,79,23,2,0)="(#606) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.826,79,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the military sexual trauma"
^DD(727.826,79,23,4,0)="data stored at the MILITARY SEXUAL TRAUMA field (#80005) in the VISIT file"
^DD(727.826,79,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.826,79,23,6,0)="""MST""."
^DD(727.826,79,"DT")="3060623"
^DD(727.826,80,0)="RADIATION ENCOUNTER INDICATOR^F^^1;48^K:$L(X)>1!($L(X)<1) X"
^DD(727.826,80,3)="Answer must be 1 character in length."
^DD(727.826,80,21,0)="^^5^5^3060719^"
^DD(727.826,80,21,1,0)="Indicates the appropriate response for radiation exposure as related to"
^DD(727.826,80,21,2,0)="this patient's episode of care:"
^DD(727.826,80,21,3,0)="  Y = Yes"
^DD(727.826,80,21,4,0)="  N = No"
^DD(727.826,80,21,5,0)="  Null"
^DD(727.826,80,23,0)="^^6^6^3060719^"
^DD(727.826,80,23,1,0)="Using the PCE field (#8.12) in the RECORD OF PROS APPLIANCE/REPAIR file"
^DD(727.826,80,23,2,0)="(#606) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.826,80,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the ionizing radiation"
^DD(727.826,80,23,4,0)="exposure indicator stored at the IONIZING RADIATION EXPOSURE field "
^DD(727.826,80,23,5,0)="(#80003) in the VISIT file (#9000010). The value will be stored in the"
^DD(727.826,80,23,6,0)="output array subscripted by ""IR""."
^DD(727.826,80,"DT")="3060626"
^DD(727.826,81,0)="OEF/OIF^F^^2;1^K:$L(X)>9!($L(X)<1) X"
^DD(727.826,81,3)="Answer must be 1-9 characters in length."
^DD(727.826,81,21,0)="^^4^4^3070502^"
^DD(727.826,81,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.826,81,21,2,0)="health care services.  This field has a length of fifteen characters. The "
^DD(727.826,81,21,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.826,81,21,4,0)="$$NPI^XUSNPI."
^DD(727.826,81,23,0)="^^12^12^3070502^"
^DD(727.826,81,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.826,81,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.826,81,23,3,0)="reflects the OEF or OIF where this patient was in combat.  The value of "
^DD(727.826,81,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.826,81,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.826,81,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.826,81,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.826,81,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.826,81,23,9,0)="field values are one or more combinations of the following: "
^DD(727.826,81,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.826,81,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.826,81,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.826,81,"DT")="3070502"
^DD(727.826,82,0)="OEF/OIF RETURN DATE^F^^2;2^K:$L(X)>8!($L(X)<1) X"
^DD(727.826,82,3)="Answer must be 1-8 characters in length."
^DD(727.826,82,21,0)="^^3^3^3070502^"
^DD(727.826,82,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.826,82,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.826,82,21,3,0)="has a format equal to YYYYMMDD."
^DD(727.826,82,23,0)="^^6^6^3070502^"
^DD(727.826,82,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.826,82,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.826,82,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.826,82,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.826,82,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.826,82,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.826,82,"DT")="3070502"
^DD(727.826,83,0)="NPPD CODE^F^^2;3^K:$L(X)>10!($L(X)<1) X"
^DD(727.826,83,3)="Answer must be 1-10 characters in length."
^DD(727.826,83,21,0)="^.001^5^5^3071108^^"
^DD(727.826,83,21,1,0)="This field has a length of ten characters. The value is derived from the "
^DD(727.826,83,21,2,0)="PROSTHETIC HCPCS File (#661.1), field (#5) NPPD REPAIR CODE, if the "
^DD(727.826,83,21,3,0)="record is a repair record.  The value is derived from the PROSTHETIC "
^DD(727.826,83,21,4,0)="HCPCS File (#661.1), field (#6) NPPD NEW CODE, if the record is for a new "
^DD(727.826,83,21,5,0)="issue.  "
^DD(727.826,83,23,0)="^.001^8^8^3071108^^"
^DD(727.826,83,23,1,0)="This field has a length of ten characters. The value is derived from the "
^DD(727.826,83,23,2,0)="PROSTHETIC HCPCS File (#661.1), field (#5) NPPD REPAIR CODE, if the "
^DD(727.826,83,23,3,0)="record is a repair record.  The value is derived from the PROSTHETIC "
^DD(727.826,83,23,4,0)="HCPCS File (#661.1), field (#6) NPPD NEW CODE, if the record is for a new "
^DD(727.826,83,23,5,0)="issue.  "
^DD(727.826,83,23,6,0)="Note:  The PROSTHETICS (PRO) EXTRACT File (#727.826) already stores "
^DD(727.826,83,23,7,0)="whether the record is for repair or a new issue in the TYPE OF "
^DD(727.826,83,23,8,0)="TRANSACTION field (#29)."
^DD(727.826,83,"DT")="3070502"
^DD(727.826,84,0)="NPPD ENTRY DATE^F^^2;4^K:$L(X)>8!($L(X)<1) X"
^DD(727.826,84,3)="Answer must be 1-8 characters in length."
^DD(727.826,84,21,0)="^^3^3^3070502^"
^DD(727.826,84,21,1,0)="This field has a length of eight characters. Format equals YYYYMMDD.  The "
^DD(727.826,84,21,2,0)="date value is retrieved from the PROSTHETICS HCPCS File (#660), field "
^DD(727.826,84,21,3,0)="(#.01) ENTRY DATE."
^DD(727.826,84,23,0)="^.001^3^3^3070502^^"
^DD(727.826,84,23,1,0)="This field has a length of eight characters. Format equals YYYYMMDD.  The "
^DD(727.826,84,23,2,0)="date value is retrieved from the PROSTHETICS HCPCS File (#660), field "
^DD(727.826,84,23,3,0)="(#.01) ENTRY DATE."
^DD(727.826,84,"DT")="3070504"
^DD(727.826,85,0)="ASSOCIATE PC PROVIDER NPI^F^^2;5^K:$L(X)>15!($L(X)<1) X"
^DD(727.826,85,3)="Answer must be 1-15 characters in length."
^DD(727.826,85,21,0)="^^2^2^3070502^"
^DD(727.826,85,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.826,85,21,2,0)="provider.  This field has a length of fifteen characters."
^DD(727.826,85,23,0)="^^3^3^3070502^"
^DD(727.826,85,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.826,85,23,2,0)="provider.  This field has a length of fifteen characters. The qualified "
^DD(727.826,85,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.826,85,"DT")="3070502"
^DD(727.826,86,0)="PRIMARY CARE PROVIDER NPI^F^^2;6^K:$L(X)>15!($L(X)<1) X"
^DD(727.826,86,3)="Answer must be 1-15 characters in length."
^DD(727.826,86,21,0)="^^2^2^3070502^"
^DD(727.826,86,21,1,0)="A standard unique life-long identifier of the primary care provider.  "
^DD(727.826,86,21,2,0)="This field has a length of fifteen characters. "
^DD(727.826,86,23,0)="^^3^3^3070502^"
^DD(727.826,86,23,1,0)="A standard unique life-long identifier of the primary care provider.  "
^DD(727.826,86,23,2,0)="This field has a length of fifteen characters. The qualified identifier "
^DD(727.826,86,23,3,0)="is retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.826,86,"DT")="3070502"
^DD(727.826,"B","AGENT ORANGE ENC INDICATOR",76)=""
^DD(727.826,"B","AGENT ORANGE LOCATION",61)=""
^DD(727.826,"B","AGENT ORANGE STATUS",20)=""
^DD(727.826,"B","AMIS GROUPER",36)=""
^DD(727.826,"B","AMIS Grouper",32)="1"
^DD(727.826,"B","AMIS Grouper",36)="1"
^DD(727.826,"B","ASSOC. PC PROV. PERSON CLASS",51)=""
^DD(727.826,"B","ASSOCIATE PC PROVIDER",50)=""
^DD(727.826,"B","ASSOCIATE PC PROVIDER NPI",85)=""
^DD(727.826,"B","Agent Orange Status",20)="1"
^DD(727.826,"B","BILLING STATUS",27)=""
^DD(727.826,"B","Billing Status",27)="1"
^DD(727.826,"B","CNH/SH STATUS",62)=""
^DD(727.826,"B","COST OF TRANSACTION",24)=""
^DD(727.826,"B","COUNTY",49)=""
^DD(727.826,"B","CV ELIGIBILITY END DATE",72)=""
^DD(727.826,"B","CV STATUS ELIGIBILITY",71)=""
^DD(727.826,"B","Cost of Transaction",24)="1"
^DD(727.826,"B","DATE OF BIRTH",34)=""
^DD(727.826,"B","DATE OF SERVICE",8)=""
^DD(727.826,"B","DOM,PRRTP AND SAARTP INDICATOR",53)=""
^DD(727.826,"B","DSS IP #",67)=""
^DD(727.826,"B","DSS PRODUCT DEPARTMENT",39)=""
^DD(727.826,"B","Date of Birth",34)="1"
^DD(727.826,"B","Date of Service",8)="1"
^DD(727.826,"B","ENC HEAD/NECK CA",78)=""
^DD(727.826,"B","ENCOUNTER CV",73)=""
^DD(727.826,"B","ENCOUNTER EC",77)=""
^DD(727.826,"B","ENCOUNTER MST",79)=""
^DD(727.826,"B","ENCOUNTER NUMBER",60)=""
^DD(727.826,"B","ENROLLMENT CATEGORY",54)=""
^DD(727.826,"B","ENROLLMENT LOCATION",47)=""
^DD(727.826,"B","ENROLLMENT PRIORITY",68)=""
^DD(727.826,"B","ENROLLMENT STATUS",55)=""
^DD(727.826,"B","ENVIRONMENT CONTAMINANTS STAT",22)=""
^DD(727.826,"B","ERI",75)=""
^DD(727.826,"B","ETHNICITY",65)=""
^DD(727.826,"B","EXTRACT NUMBER",2)=""
^DD(727.826,"B","Ethnicity",65)="1"
^DD(727.826,"B","Extract Number",2)="1"
^DD(727.826,"B","FACILITY",3)=""
^DD(727.826,"B","FEEDER KEY",10)=""
^DD(727.826,"B","FEEDER LOCATION",9)=""
^DD(727.826,"B","Facility",3)="1"
^DD(727.826,"B","Feeder Key",10)="1"
^DD(727.826,"B","Feeder Location",9)="1"
^DD(727.826,"B","HEAD & NECK CANCER INDICATOR",64)=""
^DD(727.826,"B","Head and Neck Cancer Indicator",64)="1"
^DD(727.826,"B","ICD-9 CODE",15)=""
^DD(727.826,"B","ICD-9 Code",15)="1"
^DD(727.826,"B","IN OUTPATIENT INDICATOR",7)=""
^DD(727.826,"B","IN Outpatient Indicator",7)="1"
^DD(727.826,"B","LAB LABOR COST",25)=""
^DD(727.826,"B","LAB MATERIAL COST",26)=""
^DD(727.826,"B","Lab Labor Cost",25)="1"
^DD(727.826,"B","Lab Material Cost",26)="1"
^DD(727.826,"B","MASTER PATIENT INDEX",38)=""
^DD(727.826,"B","MST STATUS",46)=""
^DD(727.826,"B","Master Patient Index",38)="1"
^DD(727.826,"B","NAME",6)=""
^DD(727.826,"B","NATIONAL PATIENT RECORD FLAG",74)=""
^DD(727.826,"B","NPPD CODE",83)=""
^DD(727.826,"B","NPPD ENTRY DATE",84)=""
^DD(727.826,"B","Name",6)="1"
^DD(727.826,"B","OBSERVATION PATIENT INDICATOR",59)=""
^DD(727.826,"B","OEF/OIF",81)=""
^DD(727.826,"B","OEF/OIF RETURN DATE",82)=""
^DD(727.826,"B","PATIENT ELIGIBILITY",23)=""
^DD(727.826,"B","PATIENT NO. DFN",4)=""
^DD(727.826,"B","PATIENT TYPE",70)=""
^DD(727.826,"B","PC PROVIDER PERSON CLASS",40)=""
^DD(727.826,"B","PCE CPT/HCPCS CODE & MODIFIERS",14)=""
^DD(727.826,"B","PERIOD OF SERVICE",58)=""
^DD(727.826,"B","PLACEHOLDER",37)=""
^DD(727.826,"B","PLACEHOLDER",52)=""
^DD(727.826,"B","PLACEHOLDER",56)=""
^DD(727.826,"B","POW LOCATION",43)=""
^DD(727.826,"B","POW STATUS",42)=""
^DD(727.826,"B","PRIMARY CARE PROVIDER",13)=""
^DD(727.826,"B","PRIMARY CARE PROVIDER NPI",86)=""
^DD(727.826,"B","PRIMARY CARE TEAM",12)=""
^DD(727.826,"B","PRODUCTION DIVISION CODE",63)=""
^DD(727.826,"B","PSAS HCPCS CODE",32)=""
^DD(727.826,"B","PURPLE HEART INDICATOR",57)=""
^DD(727.826,"B","Patient Eligibility",23)="1"
^DD(727.826,"B","Patient No. DFN",4)="1"
^DD(727.826,"B","Primary Care Provider",13)="1"
^DD(727.826,"B","Primary Care Team",12)="1"
^DD(727.826,"B","Purple Heart Indicator",57)="1"
^DD(727.826,"B","QUANTITY",11)=""
^DD(727.826,"B","Quantity",11)="1"
^DD(727.826,"B","RACE",41)=""
^DD(727.826,"B","RACE 1",66)=""
^DD(727.826,"B","RADIATION ENCOUNTER INDICATOR",80)=""
^DD(727.826,"B","RADIATION EXPOSURE STATUS",21)=""
^DD(727.826,"B","RECEIVING STATION",31)=""
^DD(727.826,"B","REQUESTING STATION",30)=""
^DD(727.826,"B","Race 1",66)="1"
^DD(727.826,"B","Radiation Exposure Status",21)="1"
^DD(727.826,"B","Receiving Station",31)="1"
^DD(727.826,"B","Requesting Station",30)="1"
^DD(727.826,"B","SECONDARY ICD-9 CODE 1",16)=""
^DD(727.826,"B","SECONDARY ICD-9 CODE 2",17)=""
^DD(727.826,"B","SECONDARY ICD-9 CODE 3",18)=""
^DD(727.826,"B","SECONDARY ICD-9 CODE 4",19)=""
^DD(727.826,"B","SEQUENCE NUMBER",.01)=""
^DD(727.826,"B","SEX",35)=""
^DD(727.826,"B","SHARING AGREEMENT INSURANCE",45)=""
^DD(727.826,"B","SHARING AGREEMENT PAYOR",44)=""
^DD(727.826,"B","SSN",5)=""
^DD(727.826,"B","STATE",48)=""
^DD(727.826,"B","Sequence Number",.01)="1"
^DD(727.826,"B","Social Security Number",5)="1"
^DD(727.826,"B","TYPE OF TRANSACTION",29)=""
^DD(727.826,"B","Type of Transaction",29)="1"
^DD(727.826,"B","USER ENROLLEE",69)=""
^DD(727.826,"B","VET/NON VET",28)=""
^DD(727.826,"B","Vet/Non Vet",28)="1"
^DD(727.826,"B","YEAR MONTH",1)=""
^DD(727.826,"B","Year Month",1)="1"
^DD(727.826,"B","ZIP CODE",33)=""
^DD(727.826,"B","ZIP Code",33)="1"
^DD(727.826,"GL",0,1,.01)=""
^DD(727.826,"GL",0,2,1)=""
^DD(727.826,"GL",0,3,2)=""
^DD(727.826,"GL",0,4,3)=""
^DD(727.826,"GL",0,5,4)=""
^DD(727.826,"GL",0,6,5)=""
^DD(727.826,"GL",0,7,6)=""
^DD(727.826,"GL",0,8,7)=""
^DD(727.826,"GL",0,9,8)=""
^DD(727.826,"GL",0,10,9)=""
^DD(727.826,"GL",0,11,10)=""
^DD(727.826,"GL",0,12,11)=""
^DD(727.826,"GL",0,13,12)=""
^DD(727.826,"GL",0,14,13)=""
^DD(727.826,"GL",0,15,14)=""
^DD(727.826,"GL",0,16,15)=""
^DD(727.826,"GL",0,17,16)=""
^DD(727.826,"GL",0,18,17)=""
^DD(727.826,"GL",0,19,18)=""
^DD(727.826,"GL",0,20,19)=""
^DD(727.826,"GL",0,21,20)=""
^DD(727.826,"GL",0,22,21)=""
^DD(727.826,"GL",0,23,22)=""
^DD(727.826,"GL",0,24,23)=""
^DD(727.826,"GL",0,25,24)=""
^DD(727.826,"GL",0,26,25)=""
^DD(727.826,"GL",0,27,26)=""
^DD(727.826,"GL",0,28,27)=""
^DD(727.826,"GL",0,29,28)=""
^DD(727.826,"GL",0,30,29)=""
^DD(727.826,"GL",0,31,30)=""
^DD(727.826,"GL",0,32,31)=""
^DD(727.826,"GL",0,33,32)=""
^DD(727.826,"GL",1,1,33)=""
^DD(727.826,"GL",1,2,34)=""
^DD(727.826,"GL",1,3,35)=""
^DD(727.826,"GL",1,4,36)=""
^DD(727.826,"GL",1,5,37)=""
^DD(727.826,"GL",1,6,38)=""
^DD(727.826,"GL",1,7,39)=""
^DD(727.826,"GL",1,8,40)=""
^DD(727.826,"GL",1,9,41)=""
^DD(727.826,"GL",1,10,42)=""
^DD(727.826,"GL",1,11,43)=""
^DD(727.826,"GL",1,12,44)=""
^DD(727.826,"GL",1,13,45)=""
^DD(727.826,"GL",1,14,46)=""
^DD(727.826,"GL",1,15,47)=""
^DD(727.826,"GL",1,16,48)=""
^DD(727.826,"GL",1,17,49)=""
^DD(727.826,"GL",1,18,50)=""
^DD(727.826,"GL",1,19,51)=""
^DD(727.826,"GL",1,20,52)=""
^DD(727.826,"GL",1,21,53)=""
^DD(727.826,"GL",1,22,54)=""
^DD(727.826,"GL",1,23,55)=""
^DD(727.826,"GL",1,24,56)=""
^DD(727.826,"GL",1,25,57)=""
^DD(727.826,"GL",1,26,58)=""
^DD(727.826,"GL",1,27,59)=""
^DD(727.826,"GL",1,28,60)=""
^DD(727.826,"GL",1,29,61)=""
^DD(727.826,"GL",1,30,62)=""
^DD(727.826,"GL",1,31,63)=""
^DD(727.826,"GL",1,32,64)=""
^DD(727.826,"GL",1,33,65)=""
^DD(727.826,"GL",1,34,66)=""
^DD(727.826,"GL",1,35,67)=""
^DD(727.826,"GL",1,36,68)=""
^DD(727.826,"GL",1,37,69)=""
^DD(727.826,"GL",1,38,70)=""
^DD(727.826,"GL",1,39,71)=""
^DD(727.826,"GL",1,40,72)=""
^DD(727.826,"GL",1,41,73)=""
^DD(727.826,"GL",1,42,74)=""
^DD(727.826,"GL",1,43,75)=""
^DD(727.826,"GL",1,44,76)=""
^DD(727.826,"GL",1,45,77)=""
^DD(727.826,"GL",1,46,78)=""
^DD(727.826,"GL",1,47,79)=""
^DD(727.826,"GL",1,48,80)=""
^DD(727.826,"GL",2,1,81)=""
^DD(727.826,"GL",2,2,82)=""
^DD(727.826,"GL",2,3,83)=""
^DD(727.826,"GL",2,4,84)=""
^DD(727.826,"GL",2,5,85)=""
^DD(727.826,"GL",2,6,86)=""
^DD(727.826,"IX",2)=""
^DD(727.826,"RQ",.01)=""
^DD(727.826,"RQ",3)=""
^DD(727.826,"RQ",4)=""
^DD(727.826,"RQ",5)=""
^DD(727.826,"RQ",6)=""
^DD(727.826,"RQ",8)=""
^DD(727.826,"RQ",9)=""
^DD(727.826,"RQ",10)=""
^DD(727.826,"RQ",14)=""
^DD(727.827,0)="FIELD^^85^93"
^DD(727.827,0,"DDA")="N"
^DD(727.827,0,"DIK")="ECX827"
^DD(727.827,0,"DIKOLD")="ECX827"
^DD(727.827,0,"DT")="3021009"
^DD(727.827,0,"IX","AC",727.827,2)=""
^DD(727.827,0,"NM","CLINIC EXTRACT")=""
^DD(727.827,0,"VR")="3.0"
^DD(727.827,0,"VRPK")="ECX"
^DD(727.827,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.827,.01,.1)="Sequence Number"
^DD(727.827,.01,1,0)="^.1^^0"
^DD(727.827,.01,3)="Enter a Number between 1 and 999999999, 0 Decimal Digits."
^DD(727.827,.01,10)="Software generated for each individual record in the extract."
^DD(727.827,.01,21,0)="^^2^2^2980714^^"
^DD(727.827,.01,21,1,0)="The Record Number for this extract entry.  Included in the Header for the"
^DD(727.827,.01,21,2,0)="extract.  The file is DINUMed on this field."
^DD(727.827,.01,23,0)="^^1^1^2980714^^"
^DD(727.827,.01,23,1,0)="The Internal Entry Number (IEN) for this record.  The entry is DINUMed."
^DD(727.827,.01,"DT")="2981215"
^DD(727.827,1,0)="YEAR MONTH^RFO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.827,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.827,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.827,1,3)="Answer must be 6 characters in length"
^DD(727.827,1,"DT")="3040211"
^DD(727.827,2,0)="EXTRACT NUMBER^RP727'^ECX(727,^0;3^Q"
^DD(727.827,2,1,0)="^.1"
^DD(727.827,2,1,1,0)="727.827^AC"
^DD(727.827,2,1,1,1)="S ^ECX(727.827,""AC"",$E(X,1,30),DA)="""""
^DD(727.827,2,1,1,2)="K ^ECX(727.827,""AC"",$E(X,1,30),DA)"
^DD(727.827,2,1,1,"DT")="3000509"
^DD(727.827,2,"DT")="3000509"
^DD(727.827,3,0)="FACILITY^RF^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,3,3)="Answer must be 1-7 characters in length."
^DD(727.827,3,21,0)="^^1^1^3001101^"
^DD(727.827,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.827,3,"DT")="3000509"
^DD(727.827,4,0)="PATIENT NO. - DFN^RP2'^DPT(^0;5^Q"
^DD(727.827,4,21,0)="^^1^1^3001101^"
^DD(727.827,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.827,4,"DT")="3000509"
^DD(727.827,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9) X"
^DD(727.827,5,3)="Answer must be 9-10 characters in length."
^DD(727.827,5,21,0)="^^1^1^3001101^"
^DD(727.827,5,21,1,0)="The patient's social security number."
^DD(727.827,5,"DT")="3000509"
^DD(727.827,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.827,6,3)="Answer must be 4 characters in length."
^DD(727.827,6,21,0)="^^1^1^3001101^"
^DD(727.827,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.827,6,"DT")="3000509"
^DD(727.827,7,0)="IN/OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,7,3)="Answer must be 1 character in length."
^DD(727.827,7,21,0)="^.001^2^2^3011207^^"
^DD(727.827,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this"
^DD(727.827,7,21,2,0)="extract entry."
^DD(727.827,7,23,0)="^^3^3^3011207^"
^DD(727.827,7,23,1,0)="This field formerly contained the the value 1=Outpatient or 3=Inpatient."
^DD(727.827,7,23,2,0)="In FY2002, this field has been changed to free text and will contain"
^DD(727.827,7,23,3,0)="""O""=Outpatient or ""I""=Inpatient."
^DD(727.827,7,"DT")="3000509"
^DD(727.827,8,0)="DAY^FO^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.827,8,.1)="Day"
^DD(727.827,8,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.827,8,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.827,8,21,0)="^^1^1^3001101^"
^DD(727.827,8,21,1,0)="This 8-character string represents the date on which the visit occurred."
^DD(727.827,8,"DT")="3000509"
^DD(727.827,9,0)="FEEDER KEY^F^^0;10^K:$L(X)>14!($L(X)<14) X"
^DD(727.827,9,3)="Answer must be 14 characters in length."
^DD(727.827,9,21,0)="^^4^4^3001101^"
^DD(727.827,9,21,1,0)="14-character code in the form of SSSCCCTTTPPPPN.  The transmission style"
^DD(727.827,9,21,2,0)="chosen for the clinic determines these characters.  Includes stop code,"
^DD(727.827,9,21,3,0)="credit stop code, or alternate stop codes, and time length of appointment,"
^DD(727.827,9,21,4,0)="clinic alpha indicator, and no show flag."
^DD(727.827,9,"DT")="3000509"
^DD(727.827,10,0)="OVERBOOKED INDICATOR^S^O:OVERBOOKED;^0;11^Q"
^DD(727.827,10,3)="O for Overbooked. Null for anything else."
^DD(727.827,10,21,0)="^^1^1^3001101^"
^DD(727.827,10,21,1,0)="Indicates if this was an overbook appointment for this appointment."
^DD(727.827,10,"DT")="3000927"
^DD(727.827,11,0)="CLINIC NAME^P44'^SC(^0;12^Q"
^DD(727.827,11,21,0)="^^1^1^3001101^"
^DD(727.827,11,21,1,0)="HOSPITAL LOCATION file #44"
^DD(727.827,11,"DT")="3000509"
^DD(727.827,12,0)="TREATING SPECIALITY^F^^0;13^K:$L(X)>3!($L(X)<2) X"
^DD(727.827,12,3)="Answer must be 2-3 characters in length"
^DD(727.827,12,21,0)="^^2^2^3070502^"
^DD(727.827,12,21,1,0)="The PTF CODE of the treating specialty associated with this extract "
^DD(727.827,12,21,2,0)="record."
^DD(727.827,12,"DT")="3070420"
^DD(727.827,13,0)="TIME^F^^0;14^K:$L(X)>6!($L(X)<6) X"
^DD(727.827,13,3)="Answer must be 6 characters in length."
^DD(727.827,13,21,0)="^^1^1^3001101^"
^DD(727.827,13,21,1,0)="Time for this clinic visit (6-digit military time)"
^DD(727.827,13,"DT")="3000509"
^DD(727.827,14,0)="PRIMARY CARE TEAM^F^^0;15^K:$L(X)>4!($L(X)<1) X"
^DD(727.827,14,3)="Answer must be 1-4 characters in length."
^DD(727.827,14,21,0)="^^1^1^3001101^"
^DD(727.827,14,21,1,0)="TEAM file (#404.51)"
^DD(727.827,14,"DT")="3000509"
^DD(727.827,15,0)="PRIMARY CARE PROVIDER^F^^0;16^K:$L(X)>11!($L(X)<2) X"
^DD(727.827,15,3)="Answer must be 2-11 characters in length."
^DD(727.827,15,21,0)="^^2^2^3001101^"
^DD(727.827,15,21,1,0)="The primary care provider assigned to this patient through the PCMM"
^DD(727.827,15,21,2,0)="module."
^DD(727.827,15,"DT")="3000509"
^DD(727.827,16,0)="PRIMARY CARE PRV PERSON CLASS^F^^0;17^K:$L(X)>7!($L(X)<7) X"
^DD(727.827,16,3)="Answer must be 7 characters in length."
^DD(727.827,16,21,0)="^^2^2^3001101^"
^DD(727.827,16,21,1,0)="The VA code of the Person Class of the Primary Care Provider as of the"
^DD(727.827,16,21,2,0)="date of this extract record. "
^DD(727.827,16,"DT")="3000509"
^DD(727.827,17,0)="PROVIDER^F^^0;18^K:$L(X)>11!($L(X)<2) X"
^DD(727.827,17,3)="Answer must be 2-11 characters in length."
^DD(727.827,17,21,0)="^^1^1^3001101^"
^DD(727.827,17,21,1,0)="The provider associated with the patient encounter."
^DD(727.827,17,"DT")="3000509"
^DD(727.827,18,0)="PROVIDER PERSON CLASS^F^^0;19^K:$L(X)>7!($L(X)<7) X"
^DD(727.827,18,3)="Answer must be 7 characters in length."
^DD(727.827,18,21,0)="^^1^1^3001101^"
^DD(727.827,18,21,1,0)="The VA Code of the Person Class of the Provider for this record."
^DD(727.827,18,"DT")="3000509"
^DD(727.827,19,0)="CPT CODE QTY & MODIFIERS #1^F^^0;20^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,19,3)="Answer must be 1-17 characters in length."
^DD(727.827,19,21,0)="^.001^2^2^3001103^^"
^DD(727.827,19,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,19,21,2,0)="appears in the record, and up to 5 two character CPT modifiers."
^DD(727.827,19,"DT")="3001103"
^DD(727.827,20,0)="CPT CODE QTY & MODIFIERS #2^F^^0;21^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,20,3)="Answer must be 1-17 characters in length."
^DD(727.827,20,21,0)="^.001^2^2^3001103^^"
^DD(727.827,20,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,20,21,2,0)="appears in the record, and up to 5 two character CPT modifiers. "
^DD(727.827,20,"DT")="3001103"
^DD(727.827,21,0)="CPT CODE QTY & MODIFIERS #3^F^^0;22^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,21,3)="Answer must be 1-17 characters in length."
^DD(727.827,21,21,0)="^.001^2^2^3001103^^"
^DD(727.827,21,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,21,21,2,0)="appears in the record, and up to 5 two character CPT modifiers."
^DD(727.827,21,"DT")="3001103"
^DD(727.827,22,0)="CPT CODE QTY & MODIFIERS #4^F^^0;23^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,22,3)="Answer must be 1-17 characters in length."
^DD(727.827,22,21,0)="^^2^2^3001101^"
^DD(727.827,22,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,22,21,2,0)="appears in the record, and up to 5 two character CPT modifiers."
^DD(727.827,22,"DT")="3001103"
^DD(727.827,23,0)="CPT CODE QTY AND MODIFERS #5^F^^0;24^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,23,3)="Answer must be 1-17 characters in length."
^DD(727.827,23,21,0)="^.001^2^2^3001103^^^"
^DD(727.827,23,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,23,21,2,0)="appears in the record, and up to 5 two character CPT modifiers."
^DD(727.827,23,"DT")="3001103"
^DD(727.827,24,0)="CPT CODE QTY AND MODIFIERS #6^F^^1;1^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,24,3)="Answer must be 1-17 characters in length."
^DD(727.827,24,21,0)="^.001^2^2^3001103^^"
^DD(727.827,24,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,24,21,2,0)="appears in the record, and up to 5 two character CPT modifiers."
^DD(727.827,24,"DT")="3001103"
^DD(727.827,25,0)="CPT CODE QTY AND MODIFERS #7^F^^1;2^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,25,3)="Answer must be 1-17 characters in length."
^DD(727.827,25,21,0)="^^2^2^3001101^"
^DD(727.827,25,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,25,21,2,0)="appears in the record, and up to 5 two character CPT modifiers."
^DD(727.827,25,"DT")="3001103"
^DD(727.827,26,0)="CPT CODE QTY AND MODIFIERS #8^F^^1;3^K:$L(X)>17!($L(X)<1) X"
^DD(727.827,26,3)="Answer must be 1-17 characters in length."
^DD(727.827,26,21,0)="^^2^2^3001101^"
^DD(727.827,26,21,1,0)="5 character CPT Code, the Quantity or how many times the unique code"
^DD(727.827,26,21,2,0)="appears in the record, and up to 5 two character CPT modifiers."
^DD(727.827,26,"DT")="3001103"
^DD(727.827,27,0)="PRIMARY ICD9 CODE^F^^1;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,27,3)="Answer must be 1-7 characters in length."
^DD(727.827,27,21,0)="^^1^1^3001101^"
^DD(727.827,27,21,1,0)="The ICD-9 code(s) for this clinic visit."
^DD(727.827,27,"DT")="3000509"
^DD(727.827,28,0)="SECONDARY ICD9 1^F^^1;5^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,28,3)="Answer must be 1-7 characters in length."
^DD(727.827,28,21,0)="^^1^1^3001101^"
^DD(727.827,28,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.827,28,"DT")="3000509"
^DD(727.827,29,0)="SECONDARY ICD9 2^F^^1;6^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,29,3)="Answer must be 1-7 characters in length."
^DD(727.827,29,21,0)="^^1^1^3001101^"
^DD(727.827,29,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.827,29,"DT")="3000509"
^DD(727.827,30,0)="SECONDARY ICD9 3^F^^1;7^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,30,3)="Answer must be 1-7 characters in length."
^DD(727.827,30,21,0)="^^1^1^3001101^"
^DD(727.827,30,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.827,30,"DT")="3000509"
^DD(727.827,31,0)="SECONDARY ICD9 4^F^^1;8^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,31,3)="Answer must be 1-7 characters in length."
^DD(727.827,31,21,0)="^^1^1^3001101^"
^DD(727.827,31,21,1,0)="This field contains the ICD9 diagnostic code for this extract record."
^DD(727.827,31,"DT")="3000509"
^DD(727.827,32,0)="DATE OF BIRTH^F^^1;9^K:$L(X)>8!($L(X)<1) X"
^DD(727.827,32,3)="Answer must be 1-8 characters in length."
^DD(727.827,32,21,0)="^.001^3^3^3001102^^"
^DD(727.827,32,21,1,0)="When a patient was born. Possible values for Date of Birth are between"
^DD(727.827,32,21,2,0)="December 31, 1870 and today's date. This is represented by an 8-character"
^DD(727.827,32,21,3,0)="numeric string in the YYYYMMDD format."
^DD(727.827,32,"DT")="3000615"
^DD(727.827,33,0)="ELIGIBILITY^F^^1;10^K:$L(X)>3!($L(X)<3) X"
^DD(727.827,33,3)="Answer must be 3 characters in length."
^DD(727.827,33,21,0)="^^1^1^3001102^"
^DD(727.827,33,21,1,0)="Appropriate eligibility code based on veteran or non-veteran status."
^DD(727.827,33,"DT")="3000509"
^DD(727.827,34,0)="VETERAN^S^N:NO;Y:YES;^1;11^Q"
^DD(727.827,34,21,0)="^^1^1^3001102^"
^DD(727.827,34,21,1,0)="Data is Y if this patient is a veteran, N if not."
^DD(727.827,34,"DT")="3000509"
^DD(727.827,35,0)="RACE^F^^1;12^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,35,3)="Answer must be 1 character in length."
^DD(727.827,35,21,0)="^^1^1^3001102^"
^DD(727.827,35,21,1,0)="Race abbreviation for this patient. "
^DD(727.827,35,"DT")="3000509"
^DD(727.827,36,0)="POW STATUS^S^N:NO;Y:YES;^1;13^Q"
^DD(727.827,36,21,0)="^^1^1^3001102^"
^DD(727.827,36,21,1,0)="The patient's POW status."
^DD(727.827,36,"DT")="3000509"
^DD(727.827,37,0)="POW LOCATION^F^^1;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,37,3)="Answer must be 1 character in length."
^DD(727.827,37,21,0)="^^1^1^3001102^"
^DD(727.827,37,21,1,0)="If POW Status is indicated, this is the POW confinement location/period."
^DD(727.827,37,"DT")="3000509"
^DD(727.827,38,0)="RADIATION STATUS^S^N:NO;Y:YES;^1;15^Q"
^DD(727.827,38,21,0)="^^1^1^3001102^"
^DD(727.827,38,21,1,0)="Data is Y if this patient claims exposure to ionizing radiation, N if not."
^DD(727.827,38,"DT")="3000509"
^DD(727.827,39,0)="RADIATION ENCOUNTER INDICATOR^S^N:NO;Y:YES;^1;16^Q"
^DD(727.827,39,21,0)="^^1^1^3001102^"
^DD(727.827,39,21,1,0)="Treatment related to radiation exposure?  (Y/N)"
^DD(727.827,39,"DT")="3000509"
^DD(727.827,40,0)="AGENT ORANGE STATUS^S^N:NO;Y:YES;U:UNKOWN;^1;17^Q"
^DD(727.827,40,21,0)="^.001^1^1^3001103^^"
^DD(727.827,40,21,1,0)="Data is Y if this patient was exposed to agent orange, N if not."
^DD(727.827,40,"DT")="3001103"
^DD(727.827,41,0)="AGENT ORANGE ENC INDICATOR^S^N:NO;Y:YES;^1;18^Q"
^DD(727.827,41,21,0)="^^1^1^3001102^"
^DD(727.827,41,21,1,0)="Treatment related to Agent Orange exposure?  (Y/N)"
^DD(727.827,41,"DT")="3000509"
^DD(727.827,42,0)="MASTER PATIENT INDEX^F^^1;19^K:$L(X)>10!($L(X)<10) X"
^DD(727.827,42,3)="Answer must be 10 characters in length."
^DD(727.827,42,21,0)="^^1^1^3001102^"
^DD(727.827,42,21,1,0)="Unique national VA patient identifier"
^DD(727.827,42,"DT")="3000509"
^DD(727.827,43,0)="DSS PRODUCT DEPARTMENT^F^^1;20^K:$L(X)>10!($L(X)<1) X"
^DD(727.827,43,.1)=""
^DD(727.827,43,3)="Answer must be 1-10 characters in length."
^DD(727.827,43,21,0)="^^2^2^3040318^"
^DD(727.827,43,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(727.827,43,21,2,0)="the patient care product being provided."
^DD(727.827,43,23,0)="^^12^12^3040318^"
^DD(727.827,43,23,1,0)="DSS PRODUCT DEPARTMENT field value is determined via the following "
^DD(727.827,43,23,2,0)="process: The DSS Product Department and IP Number File # 727.6 is"
^DD(727.827,43,23,3,0)="populated via site specific HL7 messages generated by AAC extracts which"
^DD(727.827,43,23,4,0)="run on a monthly basis.  The file is then used by the DSS extract routines"
^DD(727.827,43,23,5,0)="to identify and to populate the DSS PRODUCT DEPARTMENT and DSS IP# fields"
^DD(727.827,43,23,6,0)="in the DSS extract files before transmitting them to AAC."
^DD(727.827,43,23,7,0)=" "
^DD(727.827,43,23,8,0)="Using the combination of Feeder System, Feeder Location and Feeder Key as"
^DD(727.827,43,23,9,0)="an identifier for each individual record matches are resolved and the "
^DD(727.827,43,23,10,0)="designations are made.. If no match is found in file 727.6 an error"
^DD(727.827,43,23,11,0)="message is generated and a bulletin is triggered and sent to a DSS mail"
^DD(727.827,43,23,12,0)="group identifying the problem."
^DD(727.827,43,"DT")="3040302"
^DD(727.827,44,0)="SEX^S^M:MALE;F:FEMALE;^1;21^Q"
^DD(727.827,44,21,0)="^^1^1^3001102^"
^DD(727.827,44,21,1,0)="M for Male; F for Female"
^DD(727.827,44,"DT")="3000509"
^DD(727.827,45,0)="ZIP+4^F^^1;22^K:$L(X)>10!($L(X)<5) X"
^DD(727.827,45,3)="Answer must be 5-10 characters in length."
^DD(727.827,45,21,0)="^^1^1^3001102^"
^DD(727.827,45,21,1,0)="5-digit Zip code or nnnnn-nnnn Zip+4."
^DD(727.827,45,"DT")="3000509"
^DD(727.827,46,0)="PLACEHOLDER^F^^1;23^K:$L(X)>8!($L(X)<1) X"
^DD(727.827,46,3)="Answer must be 1-8 characters in length."
^DD(727.827,46,21,0)="^^1^1^3070827^"
^DD(727.827,46,21,1,0)="Currently NULL."
^DD(727.827,46,23,0)="^^1^1^3070827^"
^DD(727.827,46,23,1,0)="Currently NULL."
^DD(727.827,46,"DT")="3070426"
^DD(727.827,47,0)="PLACEHOLDER^F^^1;24^K:$L(X)>8!($L(X)<1) X"
^DD(727.827,47,3)="Answer must be 1-8 characters in length."
^DD(727.827,47,21,0)="^^1^1^3070827^"
^DD(727.827,47,21,1,0)="Currently NULL."
^DD(727.827,47,23,0)="^^1^1^3070827^"
^DD(727.827,47,23,1,0)="Currently NULL."
^DD(727.827,47,"DT")="3070426"
^DD(727.827,48,0)="ENCOUNTER ELIGIBILITY^F^^1;25^K:$L(X)>3!($L(X)<3) X"
^DD(727.827,48,3)="Answer must be 3 characters in length."
^DD(727.827,48,21,0)="^^1^1^3001102^"
^DD(727.827,48,21,1,0)="An eligibility code associated with the patient visit."
^DD(727.827,48,"DT")="3000509"
^DD(727.827,49,0)="MST STATUS^S^N:NO;Y:YES;U:UNKNOWN;D:DENIED;^1;26^Q"
^DD(727.827,49,21,0)="^^1^1^3001102^"
^DD(727.827,49,21,1,0)="Military sexual trauma? (Y/N/U/D)"
^DD(727.827,49,"DT")="3000509"
^DD(727.827,50,0)="MST ENCOUNTER INDICATOR^S^N:NO;Y:YES;^1;27^Q"
^DD(727.827,50,21,0)="^^1^1^3001102^"
^DD(727.827,50,21,1,0)="Treatment related to Military Sexual Trauma?  (Y/N)"
^DD(727.827,50,"DT")="3000509"
^DD(727.827,51,0)="SHARING AGREEMENT PAYOR^F^^1;28^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,51,3)="Answer must be 1 character in length."
^DD(727.827,51,21,0)="^^1^1^3001102^"
^DD(727.827,51,21,1,0)="An indicator used for patients participating in sharing agreements"
^DD(727.827,51,"DT")="3000509"
^DD(727.827,52,0)="SHARING AGREEMENT INSURANCE CO^F^^1;29^K:$L(X)>11!($L(X)<1) X"
^DD(727.827,52,3)="Answer must be 1-11 characters in length."
^DD(727.827,52,21,0)="^^2^2^3001102^"
^DD(727.827,52,21,1,0)="Used to indicate insurer(s) for patients who participate in sharing"
^DD(727.827,52,21,2,0)="agreements."
^DD(727.827,52,"DT")="3000509"
^DD(727.827,53,0)="ENROLLMENT LOCATION^F^^1;30^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,53,3)="Answer must be 1-7 characters in length."
^DD(727.827,53,21,0)="^^2^2^3001102^"
^DD(727.827,53,21,1,0)="The facility that the patient chooses to designate as his preferred"
^DD(727.827,53,21,2,0)="location for care.  "
^DD(727.827,53,"DT")="3000509"
^DD(727.827,54,0)="STATE CODE^F^^1;31^K:$L(X)>2!($L(X)<2) X"
^DD(727.827,54,3)="Answer must be 2 characters in length."
^DD(727.827,54,21,0)="^^1^1^3001102^"
^DD(727.827,54,21,1,0)="The state in which the patient resides."
^DD(727.827,54,"DT")="3000509"
^DD(727.827,55,0)="COUNTY CODE^F^^1;32^K:$L(X)>3!($L(X)<3) X"
^DD(727.827,55,3)="Answer must be 3 characters in length."
^DD(727.827,55,21,0)="^^1^1^3001102^"
^DD(727.827,55,21,1,0)="County in which the patient resides."
^DD(727.827,55,"DT")="3000509"
^DD(727.827,56,0)="ASSOCIATE PC PROVIDER^F^^1;33^K:$L(X)>11!($L(X)<1) X"
^DD(727.827,56,3)="Answer must be 1-11 characters in length."
^DD(727.827,56,21,0)="^^2^2^3001102^"
^DD(727.827,56,21,1,0)="The associate primary care provider assigned to this patient through the"
^DD(727.827,56,21,2,0)="PCMM module."
^DD(727.827,56,"DT")="3000509"
^DD(727.827,57,0)="ASSOCIATE PC PROV PERSON CLASS^F^^1;34^K:$L(X)>7!($L(X)<1) X"
^DD(727.827,57,3)="Answer must be 1-7 characters in length."
^DD(727.827,57,21,0)="^^2^2^3001102^"
^DD(727.827,57,21,1,0)="The VA code of the Person Class of the Associate Primary Care Provider as"
^DD(727.827,57,21,2,0)="of the date of this extract record."
^DD(727.827,57,"DT")="3000509"
^DD(727.827,58,0)="PLACEHOLDER^F^^1;35^K:$L(X)>8!($L(X)<1) X"
^DD(727.827,58,3)="Answer must be 1-8 characters in length."
^DD(727.827,58,21,0)="^.001^1^1^3070827^^"
^DD(727.827,58,21,1,0)="Currently NULL."
^DD(727.827,58,23,0)="^.001^1^1^3070827^^"
^DD(727.827,58,23,1,0)="Currently NULL."
^DD(727.827,58,"DT")="3070426"
^DD(727.827,59,0)="DOM,PRRTP AND SAARTP INDICATOR^F^^1;36^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,59,3)="Answer must be 1 character in length. DOM, PRRTP and SARTP Indicator indicates the patient status at the time of hospital service."
^DD(727.827,59,21,0)="^^5^5^3001102^"
^DD(727.827,59,21,1,0)="DOM, PRRTP and SAARTP Indicator indicates if the patient is admitted to"
^DD(727.827,59,21,2,0)="either a DOM, PRRTP or SAARTP at the time hospital service is provided."
^DD(727.827,59,21,3,0)="Domiciliary (DOM)"
^DD(727.827,59,21,4,0)="Psychiatric Residential Rehabilitation Treatment Program (PRRTP)"
^DD(727.827,59,21,5,0)="Substance Abuse Residential Rehabiltation Treatment Program (SARRTP)"
^DD(727.827,59,"DT")="3001010"
^DD(727.827,60,0)="ENROLLMENT CATEGORY^F^^1;37^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,60,3)="Answer must be 1 character in length."
^DD(727.827,60,21,0)="^^1^1^3001102^"
^DD(727.827,60,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.827,60,"DT")="3000509"
^DD(727.827,61,0)="ENROLLMENT STATUS^F^^2;1^K:$L(X)>2!($L(X)<1) X"
^DD(727.827,61,3)="Answer must be 1-2 characters in length."
^DD(727.827,61,21,0)="^^1^1^3001102^"
^DD(727.827,61,21,1,0)="Derived from the Patient Enrollment File #27.11"
^DD(727.827,61,"DT")="3000509"
^DD(727.827,62,0)="PLACEHOLDER^F^^2;2^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,62,3)="Answer must be 1 character in length."
^DD(727.827,62,"DT")="3040226"
^DD(727.827,63,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^2;3^Q"
^DD(727.827,63,.1)="Purple Heart Indicator"
^DD(727.827,63,3)="Enter the Purple Heart Indicator for the patient."
^DD(727.827,63,21,0)="^^1^1^3021009^^"
^DD(727.827,63,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient. "
^DD(727.827,63,23,0)="^^2^2^3021009^"
^DD(727.827,63,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531)."
^DD(727.827,63,23,2,0)="The status indicator is returned by SVC^VADPT."
^DD(727.827,63,"DT")="3021009"
^DD(727.827,64,0)="PERIOD OF SERVICE^F^^2;4^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,64,3)="Answer must be 1 character in length."
^DD(727.827,64,21,0)="^^2^2^3001102^"
^DD(727.827,64,21,1,0)="The period of service, which best classifies this patient based on"
^DD(727.827,64,21,2,0)="eligibility code"
^DD(727.827,64,"DT")="3000509"
^DD(727.827,65,0)="OBSERVATION PATIENT INDICATOR^F^^2;5^K:$L(X)>4!($L(X)<1) X"
^DD(727.827,65,3)="Answer must be 1-4 characters in length."
^DD(727.827,65,21,0)="^^2^2^3011212^"
^DD(727.827,65,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.827,65,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.827,65,"DT")="3010814"
^DD(727.827,66,0)="ENCOUNTER NUMBER^F^^2;6^K:$L(X)>18!($L(X)<1) X"
^DD(727.827,66,3)="Answer must be 1-18 characters in length"
^DD(727.827,66,21,0)="^^3^3^3011212^"
^DD(727.827,66,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.827,66,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.827,66,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.827,66,"DT")="3010503"
^DD(727.827,67,0)="AGENT ORANGE LOCATION^F^^2;7^K:$L(X)>2!($L(X)<2) X"
^DD(727.827,67,3)="Answer must be 2 characters in length"
^DD(727.827,67,21,0)="^^1^1^3011212^"
^DD(727.827,67,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.827,67,"DT")="3010420"
^DD(727.827,68,0)="PRODUCTION DIVISION CODE^F^^2;8^K:$L(X)>6!($L(X)<3) X"
^DD(727.827,68,3)="Answer must be 3-6 characters in length."
^DD(727.827,68,21,0)="^.001^2^2^3060630^^^^"
^DD(727.827,68,21,1,0)="Data represents the medical center division the work was performed in."
^DD(727.827,68,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.827,68,23,0)="^^4^4^3060719^"
^DD(727.827,68,23,1,0)="Data comes from the DIVISION field (#3.5) of the HOSPITAL LOCATION"
^DD(727.827,68,23,2,0)="file (#44), which is a pointer to the MEDICAL CENTER DIVISION file "
^DD(727.827,68,23,3,0)="(#40.8). This value is then used to call the API GETDIV^ECXDEPT to"
^DD(727.827,68,23,4,0)="get the STATION NUMBER field (#99) from the INSTITUTION file (#4)."
^DD(727.827,68,"DT")="3020812"
^DD(727.827,69,0)="APPOINTMENT TYPE^S^1:COMPENSATION & PENSION;2:CLASS II DENTAL;3:ORGAN DONORS;4:EMPLOYEE;5:PRIMA FACIA;6:RESEARCH;7:COLLATERAL OF VET.;8:SHARING AGREEMENT;9:REGULAR;10:COMPUTER GENERATED;^2;9^Q"
^DD(727.827,69,.1)="Appointment Type"
^DD(727.827,69,3)="Enter the type of appointment this patient has."
^DD(727.827,69,21,0)="^^1^1^3021009^^"
^DD(727.827,69,21,1,0)="Indicates the type of appointment the patient is scheduled for."
^DD(727.827,69,23,0)="^^3^3^3021009^"
^DD(727.827,69,23,1,0)="Obtained from the PATIENT file (#2), APPOINTMENT sub-file (#2.98), "
^DD(727.827,69,23,2,0)="APPOINTMENT TYPE field (#9.5) which is a pointer to the APPOINTMENT TYPE"
^DD(727.827,69,23,3,0)="FILE (#409.1)."
^DD(727.827,69,"DT")="3021009"
^DD(727.827,70,0)="PURPOSE OF VISIT^S^1:C&P Exam;2:10-10;3:Scheduled Appointment;4:Unscheduled Visit;^2;10^Q"
^DD(727.827,70,.1)="Purpose of Visit"
^DD(727.827,70,3)="Enter the reason for this appointment."
^DD(727.827,70,21,0)="^^6^6^3021009^"
^DD(727.827,70,21,1,0)="Indicates the reason the patient has an appointment."
^DD(727.827,70,21,2,0)="Choices are:"
^DD(727.827,70,21,3,0)="                 '1' FOR C&P; "
^DD(727.827,70,21,4,0)="                 '2' FOR 10-10; "
^DD(727.827,70,21,5,0)="                 '3' FOR SCHEDULED VISIT; "
^DD(727.827,70,21,6,0)="                 '4' FOR UNSCHED. VISIT; "
^DD(727.827,70,23,0)="^^2^2^3021009^"
^DD(727.827,70,23,1,0)="Obtained from the PATIENT file (#2), APPOINTMENT sub-file (#2.98), "
^DD(727.827,70,23,2,0)="PURPOSE OF VISIT field (#9)."
^DD(727.827,70,"DT")="3021009"
^DD(727.827,71,0)="MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^2;11^Q"
^DD(727.827,71,.1)="Means Test"
^DD(727.827,71,3)="Select the appropriate means test category."
^DD(727.827,71,21,0)="^^1^1^3021009^^^"
^DD(727.827,71,21,1,0)="The current means test category for this patient."
^DD(727.827,71,23,0)="^^6^6^3021009^^"
^DD(727.827,71,23,1,0)="Using the patient pointer (DFN) stored in the "
^DD(727.827,71,23,2,0)="PATIENT NO. - DFN field (#4), MEANS TEST data is derived from the CURRENT"
^DD(727.827,71,23,3,0)="MEANS TEST STATUS field (#.14) in the PATIENT file (#2)."
^DD(727.827,71,23,4,0)="This field is a pointer to the MEANS TEST STATUS file (#408.32).  Using"
^DD(727.827,71,23,5,0)="the means test pointer, the data is derived from the CODE field (#.02) in"
^DD(727.827,71,23,6,0)="the MEANS TEST STATUS file (#408.32)."
^DD(727.827,71,"DT")="3021009"
^DD(727.827,72,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^2;12^Q"
^DD(727.827,72,.1)="Head and Neck Cancer Indicator"
^DD(727.827,72,3)="Enter the Head & Neck Cancer Indicator for the patient."
^DD(727.827,72,21,0)="^^1^1^3020828^"
^DD(727.827,72,21,1,0)="Identifies whether treatment was for head and/or neck cancer."
^DD(727.827,72,23,0)="^^3^3^3020828^"
^DD(727.827,72,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.827,72,23,2,0)="(4), a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK "
^DD(727.827,72,23,3,0)="CA DX field (#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.827,72,"DT")="3020828"
^DD(727.827,73,0)="ETHNICITY^F^^2;13^K:$L(X)>6!($L(X)<1) X"
^DD(727.827,73,.1)="Ethnicity"
^DD(727.827,73,3)="Answer must be 1-6 characters in length"
^DD(727.827,73,21,0)="^^1^1^3021219^^"
^DD(727.827,73,21,1,0)="The patient's PTF ethnicity code."
^DD(727.827,73,23,0)="^^8^8^3021219^^^"
^DD(727.827,73,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.827,73,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY "
^DD(727.827,73,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the "
^DD(727.827,73,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.827,73,23,5,0)=" "
^DD(727.827,73,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the "
^DD(727.827,73,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION), "
^DD(727.827,73,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.827,73,"DT")="3021219"
^DD(727.827,74,0)="RACE 1^F^^2;14^K:$L(X)>6!($L(X)<1) X"
^DD(727.827,74,.1)="Race 1"
^DD(727.827,74,3)="Answer must be 1-6 characters in length"
^DD(727.827,74,21,0)="^^1^1^3020828^"
^DD(727.827,74,21,1,0)="The patient's PTF Race code(s)."
^DD(727.827,74,23,0)="^^10^10^3020828^"
^DD(727.827,74,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field "
^DD(727.827,74,23,2,0)="(4), RACE 1 is derived from the PTF VALUE field (#5) of the RACE file"
^DD(727.827,74,23,3,0)="(#10) pointed to by the RACE INFORMATION field (#.01) of the "
^DD(727.827,74,23,4,0)="RACE INFORMATION subfile (#2.02) of the PATIENT file (#2)."
^DD(727.827,74,23,5,0)=" "
^DD(727.827,74,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.827,74,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.827,74,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.827,74,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.827,74,23,10,0)="the only value included in the RACE1 field."
^DD(727.827,74,"DT")="3020828"
^DD(727.827,75,0)="CBOC STATUS INDICATOR^F^^2;15^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,75,.1)="CBOC Status Indicator"
^DD(727.827,75,3)="Answer must be 1 character in length."
^DD(727.827,75,21,0)="^.001^3^3^3030624^^^"
^DD(727.827,75,21,1,0)="CBOC STATUS INDICATOR field values are 'Y' for yes, the facility where the"
^DD(727.827,75,21,2,0)="patient was seen is a CBOC; or null will be sent if the facility where the"
^DD(727.827,75,21,3,0)="patient was seen is not a CBOC."
^DD(727.827,75,23,0)="^.001^3^3^3030624^^"
^DD(727.827,75,23,1,0)="CBOC STATUS INDICATOR field is a pointer to the FACILITY TYPE file (#4.1)."
^DD(727.827,75,23,2,0)="CBOC STATUS INDICATOR field is derived from the FACILITY TYPE field (#13)"
^DD(727.827,75,23,3,0)="of the INSTITUTION file (#4).  "
^DD(727.827,75,"DT")="3030624"
^DD(727.827,76,0)="DSS IP #^NJ7,0^^2;16^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.827,76,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(727.827,76,21,0)="^.001^2^2^3040318^^"
^DD(727.827,76,21,1,0)="The nationally defined DSS Intermediate Product Number designated to "
^DD(727.827,76,21,2,0)="the patient care product being provided."
^DD(727.827,76,23,0)="^.001^10^10^3041027^^"
^DD(727.827,76,23,1,0)="DSS IP# field value is determined via the following process:  The DSS "
^DD(727.827,76,23,2,0)="PRODUCT DEPARTMENT AND IP NUMBER file (#727.6) is populated via site "
^DD(727.827,76,23,3,0)="specific HL7 messages generated by AAC extracts which run on a monthly "
^DD(727.827,76,23,4,0)="basis.  The file is then used by the DSS extract routines to identify and "
^DD(727.827,76,23,5,0)="to populate the DSS PRODUCT DEPARTMENT and DSS IP # fields in the DSS "
^DD(727.827,76,23,6,0)="extract files before transmitting them to AAC. Using the combination of "
^DD(727.827,76,23,7,0)="Feeder System, Feeder Location and Feeder Key as an identifier for each "
^DD(727.827,76,23,8,0)="individual record does the matches.  If no match is found an error "
^DD(727.827,76,23,9,0)="message is generated and a bulletin is triggered and sent to a DSS mail "
^DD(727.827,76,23,10,0)="group identifying the problem. "
^DD(727.827,76,"DT")="3031113"
^DD(727.827,77,0)="ENROLLMENT PRIORITY^F^^2;17^K:$L(X)>2!($L(X)<1) X"
^DD(727.827,77,3)="Answer must be 1-2 characters in length."
^DD(727.827,77,21,0)="^^2^2^3041027^"
^DD(727.827,77,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.827,77,21,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11."
^DD(727.827,77,23,0)="^^20^20^3041027^"
^DD(727.827,77,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.827,77,23,2,0)="enrollment priority subgroup from the Patient Enrollment File #27.11. "
^DD(727.827,77,23,3,0)=" "
^DD(727.827,77,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.827,77,23,5,0)=" "
^DD(727.827,77,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.827,77,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.827,77,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.827,77,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.827,77,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.827,77,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.827,77,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.827,77,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.827,77,23,14,0)=" "
^DD(727.827,77,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.827,77,23,16,0)=" "
^DD(727.827,77,23,17,0)="                                'a' FOR 1 "
^DD(727.827,77,23,18,0)="                                'c' FOR 3 "
^DD(727.827,77,23,19,0)="                                'e' FOR 5 "
^DD(727.827,77,23,20,0)="                                'g' FOR 7   "
^DD(727.827,77,"DT")="3040226"
^DD(727.827,78,0)="USER ENROLLEE^F^^2;18^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,78,3)="Answer must be 1 character in length."
^DD(727.827,78,21,0)="^.001^4^4^3040317^^"
^DD(727.827,78,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.827,78,21,2,0)="27.11, when a user has a current or future fiscal year in the VistA User "
^DD(727.827,78,21,3,0)="Enrollee Status field set value to 'U' and Null if no date or a past "
^DD(727.827,78,21,4,0)="year's value is contained. "
^DD(727.827,78,"DT")="3040226"
^DD(727.827,79,0)="PATIENT TYPE^F^^2;19^K:$L(X)>2!($L(X)<1) X"
^DD(727.827,79,3)="Answer must be 1-2 characters in length."
^DD(727.827,79,21,0)="^^3^3^3040317^"
^DD(727.827,79,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen at"
^DD(727.827,79,21,2,0)="a VA facility. It is determined by the TYPE field of the PATIENT File #2"
^DD(727.827,79,21,3,0)="which points to the TYPE OF PATIENT entries in File #391."
^DD(727.827,79,23,0)="^^17^17^3040317^"
^DD(727.827,79,23,1,0)="PATIENT TYPE refers to the various types of patient which might be seen "
^DD(727.827,79,23,2,0)="at a VA facility.  It is determined by the TYPE field of the PATIENT File "
^DD(727.827,79,23,3,0)="#2 which points to the TYPE OF PATIENT entries in File #391. Every "
^DD(727.827,79,23,4,0)="patient added to the system must have a TYPE specified. It best "
^DD(727.827,79,23,5,0)="classifies a patient as one of the following values listed below.  "
^DD(727.827,79,23,6,0)="PATIENT TYPE field value shall contain only the first two characters:"
^DD(727.827,79,23,7,0)=" "
^DD(727.827,79,23,8,0)="AC= ACTIVE DUTY"
^DD(727.827,79,23,9,0)="AL= ALLIED VETERAN"
^DD(727.827,79,23,10,0)="CO= COLLATERAL"
^DD(727.827,79,23,11,0)="EM= EMPLOYEE"
^DD(727.827,79,23,12,0)="IN= INELIGIBLE"
^DD(727.827,79,23,13,0)="MI= MILITARY RETIREE"
^DD(727.827,79,23,14,0)="NO= NON-VETERAN (OTHER)"
^DD(727.827,79,23,15,0)="NS= NSC VETERAN"
^DD(727.827,79,23,16,0)="SC= SC VETERAN"
^DD(727.827,79,23,17,0)="TR= TRICARE"
^DD(727.827,79,"DT")="3040226"
^DD(727.827,80,0)="CV STATUS ELIGIBILITY^F^^2;20^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,80,3)="Answer must be 1 character in length."
^DD(727.827,80,21,0)="^.001^3^3^3040318^^^^"
^DD(727.827,80,21,1,0)="CV STATUS ELIGIBILITY is determined by the use of API $$CVEDT^DGCV (DFN.  "
^DD(727.827,80,21,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the Patient"
^DD(727.827,80,21,3,0)="File #2 to determine CV Status."
^DD(727.827,80,23,0)="^^11^11^3040318^"
^DD(727.827,80,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.827,80,23,2,0)="DATE) that checks the Combat Vet End Date field .5295 from the Patient "
^DD(727.827,80,23,3,0)="File #2 to determine CV Status.  API returns three pieces i.e. "
^DD(727.827,80,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.827,80,23,5,0)=" "
^DD(727.827,80,23,6,0)=" 1 - qualifies as a CV"
^DD(727.827,80,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.827,80,23,8,0)="-1 - bad DFN or date"
^DD(727.827,80,23,9,0)=" "
^DD(727.827,80,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.827,80,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.827,80,"DT")="3040317"
^DD(727.827,81,0)="CV ELIGIBILITY END DATE^F^^2;21^K:$L(X)>8!($L(X)<1) X"
^DD(727.827,81,3)="Answer must be 1-8 characters in length."
^DD(727.827,81,21,0)="^^3^3^3040317^"
^DD(727.827,81,21,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.827,81,21,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.827,81,21,3,0)="Patient File #2 to determine CV Status."
^DD(727.827,81,23,0)="^^4^4^3040317^"
^DD(727.827,81,23,1,0)="CV ELIGIBILITY END DATE is determined by the use of  API $$CVEDT^DGCV "
^DD(727.827,81,23,2,0)="(DFN. DATE) that checks the Combat Vet End Date field .5295 from the "
^DD(727.827,81,23,3,0)="Patient File #2 to determine CV Status.  API returns three pieces (i.e. "
^DD(727.827,81,23,4,0)="1^3010106^0) the 2nd piece is the Combat Vet End Date."
^DD(727.827,81,"DT")="3040226"
^DD(727.827,82,0)="ENCOUNTER CV^F^^2;22^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,82,3)="Answer must be 1 character in length."
^DD(727.827,82,21,0)="^^3^3^3040317^"
^DD(727.827,82,21,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE)"
^DD(727.827,82,21,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # 2"
^DD(727.827,82,21,3,0)="to determine CV Status."
^DD(727.827,82,23,0)="^^10^10^3040317^"
^DD(727.827,82,23,1,0)="ENCOUNTER CV is determined by the use of  API $$CVEDT^DGCV (DFN. DATE) "
^DD(727.827,82,23,2,0)="that checks the Combat Vet End Date field .5295 from the Patient File # "
^DD(727.827,82,23,3,0)="2 to determine CV Status.   API returns three pieces (i.e. 1^3010106^0). "
^DD(727.827,82,23,4,0)="The third piece returns:"
^DD(727.827,82,23,5,0)=" "
^DD(727.827,82,23,6,0)="1 - vet was eligible on date specified"
^DD(727.827,82,23,7,0)="0 - vet was not eligible on date specified"
^DD(727.827,82,23,8,0)=" "
^DD(727.827,82,23,9,0)="Based on these returns, the value for this field shall be Y =Yes, or "
^DD(727.827,82,23,10,0)="'NULL' for 'NO'."
^DD(727.827,82,"DT")="3040226"
^DD(727.827,83,0)="NATIONAL PATIENT RECORD FLAG^F^^2;23^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,83,3)="Answer must be 1 character in length."
^DD(727.827,83,21,0)="^^6^6^3040317^"
^DD(727.827,83,21,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File #"
^DD(727.827,83,21,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient"
^DD(727.827,83,21,3,0)="Record Flags that can be assigned to a patient. Category I flags are"
^DD(727.827,83,21,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is"
^DD(727.827,83,21,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is"
^DD(727.827,83,21,6,0)="""Y  if the Category I flag is present and active, otherwise it is NULL."
^DD(727.827,83,23,0)="^^6^6^3040317^"
^DD(727.827,83,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File #"
^DD(727.827,83,23,2,0)="26.15.  This file contains a list of the Category 1 (National) Patient"
^DD(727.827,83,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are"
^DD(727.827,83,23,4,0)="established at a National level.   NATIONAL PATIENT RECORD FLAG is"
^DD(727.827,83,23,5,0)="retrieved via an API  $$GETACT^DGPFAPI(DFN, TARGET_ROOT . Field value is"
^DD(727.827,83,23,6,0)="""Y  if the Category I flag is present and active, otherwise it is NULL."
^DD(727.827,83,"DT")="3040226"
^DD(727.827,84,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^2;24^Q"
^DD(727.827,84,21,0)="^.001^2^2^3050801^^^^"
^DD(727.827,84,21,1,0)="This field indicates if the patient claims exposure to environmental "
^DD(727.827,84,21,2,0)="contaminants while serving in the Persian Gulf or Somalia."
^DD(727.827,84,23,0)="^^7^7^3050801^"
^DD(727.827,84,23,1,0)="This field is derived from the ENVIRONMENTAL CONTAMINANTS field (#.322013)"
^DD(727.827,84,23,2,0)="in the Patient File (#2) using the patient's DFN. The status indicator "
^DD(727.827,84,23,3,0)="is returned by SVC^VADPT. The field values are:"
^DD(727.827,84,23,4,0)=" "
^DD(727.827,84,23,5,0)=" Y = YES"
^DD(727.827,84,23,6,0)=" N = NO"
^DD(727.827,84,23,7,0)=" U = UNKNOWN"
^DD(727.827,84,"DT")="3050405"
^DD(727.827,85,0)="ENCOUNTER EC^S^Y:YES;^2;25^Q"
^DD(727.827,85,21,0)="^.001^3^3^3050425^^^^"
^DD(727.827,85,21,1,0)="This field indicates whether treatment provided during this patient "
^DD(727.827,85,21,2,0)="encounter is related to exposure to environmental contaminants while "
^DD(727.827,85,21,3,0)="serving in the Persian Gulf or Somalia."
^DD(727.827,85,23,0)="^.001^4^4^3050425^^^^"
^DD(727.827,85,23,1,0)="Using the pointer to the VISIT file (#90000.10) a call to the PCE API "
^DD(727.827,85,23,2,0)="ENCEVENT^PXAPI is made. This call returns visit data including whether "
^DD(727.827,85,23,3,0)="the visit was related to the patient's exposure to environmental "
^DD(727.827,85,23,4,0)="contaminants while serving in the Persian Gulf or Somalia."
^DD(727.827,85,"DT")="3050405"
^DD(727.827,86,0)="ERI^F^^2;26^K:$L(X)>2!($L(X)<1) X"
^DD(727.827,86,3)="Answer must be 1-2 characters in length."
^DD(727.827,86,21,0)="^.001^2^2^3060731^^"
^DD(727.827,86,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.827,86,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.827,86,23,0)="^.001^4^4^3060731^^^"
^DD(727.827,86,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.827,86,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.827,86,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.827,86,23,4,0)="    Null"
^DD(727.827,86,"DT")="3060731"
^DD(727.827,87,0)="ENC HEAD/NECK CA^F^^2;27^K:$L(X)>1!($L(X)<1) X"
^DD(727.827,87,3)="Answer must be 1 character in length."
^DD(727.827,87,21,0)="^^5^5^3060719^"
^DD(727.827,87,21,1,0)="Indicates the appropriate response for head/neck cancer as related to this"
^DD(727.827,87,21,2,0)="patient's episode of care:"
^DD(727.827,87,21,3,0)="  Y = Yes"
^DD(727.827,87,21,4,0)="  N = No"
^DD(727.827,87,21,5,0)="  Null"
^DD(727.827,87,23,0)="^^6^6^3060719^"
^DD(727.827,87,23,1,0)="Using the VISIT FILE ENTRY field (#.05) in the OUTPATIENT ENCOUNTER file"
^DD(727.827,87,23,2,0)="(#409.68) a call is made to API VISIT^ECXSCX1 which in turn calls"
^DD(727.827,87,23,3,0)="ENCEVENT^PXAPI. The ENCEVENT^PXAPI returns the head/neck cancer data"
^DD(727.827,87,23,4,0)="stored at the HEAD AND/OR NECK CANCER field (#80006) in the VISIT file"
^DD(727.827,87,23,5,0)="(#9000010). The value will be stored in the output array subscripted by"
^DD(727.827,87,23,6,0)="""HNC""."
^DD(727.827,87,"DT")="3060628"
^DD(727.827,88,0)="OEF/OIF^F^^2;28^K:$L(X)>9!($L(X)<1) X"
^DD(727.827,88,3)="Answer must be 1-9 characters in length."
^DD(727.827,88,21,0)="^^3^3^3070502^"
^DD(727.827,88,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.827,88,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.827,88,21,3,0)="reflects the OEF or OIF where this patient was in combat."
^DD(727.827,88,23,0)="^^12^12^3070502^"
^DD(727.827,88,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.827,88,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.827,88,23,3,0)="reflects the OEF or OIF where this patient was in combat. The value of "
^DD(727.827,88,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.827,88,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.827,88,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.827,88,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.827,88,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.827,88,23,9,0)="field values are one or more combinations of the following: "
^DD(727.827,88,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.827,88,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.827,88,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.827,88,"DT")="3070502"
^DD(727.827,89,0)="OEF/OIF RETURN DATE^F^^2;29^K:$L(X)>8!($L(X)<1) X"
^DD(727.827,89,3)="Answer must be 1-8 characters in length."
^DD(727.827,89,21,0)="^^2^2^3070502^"
^DD(727.827,89,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.827,89,21,2,0)="the end date of military pay for this OEF/OIF deployment. "
^DD(727.827,89,23,0)="^^6^6^3070502^"
^DD(727.827,89,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.827,89,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.827,89,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.827,89,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.827,89,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.827,89,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.827,89,"DT")="3070502"
^DD(727.827,90,0)="ASSOCIATE PC PROVIDER NPI^F^^2;30^K:$L(X)>15!($L(X)<1) X"
^DD(727.827,90,3)="Answer must be 1-15 characters in length."
^DD(727.827,90,21,0)="^^2^2^3070502^"
^DD(727.827,90,21,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.827,90,21,2,0)="provider. This field has a length of fifteen characters."
^DD(727.827,90,23,0)="^^3^3^3070502^"
^DD(727.827,90,23,1,0)="A standard unique life-long identifier of the associate primary care "
^DD(727.827,90,23,2,0)="provider. This field has a length of fifteen characters.   The qualified "
^DD(727.827,90,23,3,0)="identifier is retrieved via the supporting Kernel API: $$NPI^XUSNPI. "
^DD(727.827,90,"DT")="3070502"
^DD(727.827,91,0)="PRIMARY CARE PROVIDER NPI^F^^2;31^K:$L(X)>15!($L(X)<1) X"
^DD(727.827,91,3)="Answer must be 1-15 characters in length."
^DD(727.827,91,21,0)="^^2^2^3070502^"
^DD(727.827,91,21,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.827,91,21,2,0)="field has a length of fifteen characters."
^DD(727.827,91,23,0)="^^3^3^3070502^"
^DD(727.827,91,23,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.827,91,23,2,0)="field has a length of fifteen characters.  The qualified identifier is "
^DD(727.827,91,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.827,91,"DT")="3070502"
^DD(727.827,92,0)="PROVIDER NPI^F^^2;32^K:$L(X)>15!($L(X)<1) X"
^DD(727.827,92,3)="Answer must be 1-15 characters in length."
^DD(727.827,92,21,0)="^^2^2^3070502^"
^DD(727.827,92,21,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.827,92,21,2,0)="health care services. This field has a length of fifteen characters."
^DD(727.827,92,23,0)="^^4^4^3070502^"
^DD(727.827,92,23,1,0)="A standard unique life-long identifier of the individuals providing "
^DD(727.827,92,23,2,0)="health care services. This field has a length of fifteen characters.  The "
^DD(727.827,92,23,3,0)="qualified identifier is retrieved via the supporting Kernel API: "
^DD(727.827,92,23,4,0)="$$NPI^XUSNPI."
^DD(727.827,92,"DT")="3070502"
^DD(727.827,"B","AGENT ORANGE ENC INDICATOR",41)=""
^DD(727.827,"B","AGENT ORANGE LOCATION",67)=""
^DD(727.827,"B","AGENT ORANGE STATUS",40)=""
^DD(727.827,"B","APPOINTMENT TYPE",69)=""
^DD(727.827,"B","ASSOCIATE PC PROV PERSON CLASS",57)=""
^DD(727.827,"B","ASSOCIATE PC PROVIDER",56)=""
^DD(727.827,"B","ASSOCIATE PC PROVIDER NPI",90)=""
^DD(727.827,"B","Appointment Type",69)="1"
^DD(727.827,"B","CBOC STATUS INDICATOR",75)=""
^DD(727.827,"B","CBOC Status Indicator",75)="1"
^DD(727.827,"B","CLINIC NAME",11)=""
^DD(727.827,"B","COUNTY CODE",55)=""
^DD(727.827,"B","CPT CODE QTY & MODIFIERS #1",19)=""
^DD(727.827,"B","CPT CODE QTY & MODIFIERS #2",20)=""
^DD(727.827,"B","CPT CODE QTY & MODIFIERS #3",21)=""
^DD(727.827,"B","CPT CODE QTY & MODIFIERS #4",22)=""
^DD(727.827,"B","CPT CODE QTY AND MODIFERS #5",23)=""
^DD(727.827,"B","CPT CODE QTY AND MODIFERS #7",25)=""
^DD(727.827,"B","CPT CODE QTY AND MODIFIERS #6",24)=""
^DD(727.827,"B","CPT CODE QTY AND MODIFIERS #8",26)=""
^DD(727.827,"B","CV ELIGIBILITY END DATE",81)=""
^DD(727.827,"B","CV STATUS ELIGIBILITY",80)=""
^DD(727.827,"B","DATE OF BIRTH",32)=""
^DD(727.827,"B","DAY",8)=""
^DD(727.827,"B","DOM,PRRTP AND SAARTP INDICATOR",59)=""
^DD(727.827,"B","DSS IP #",76)=""
^DD(727.827,"B","DSS PRODUCT DEPARTMENT",43)=""
^DD(727.827,"B","Day",8)="1"
^DD(727.827,"B","ELIGIBILITY",33)=""
^DD(727.827,"B","ENC HEAD/NECK CA",87)=""
^DD(727.827,"B","ENCOUNTER CV",82)=""
^DD(727.827,"B","ENCOUNTER EC",85)=""
^DD(727.827,"B","ENCOUNTER ELIGIBILITY",48)=""
^DD(727.827,"B","ENCOUNTER NUMBER",66)=""
^DD(727.827,"B","ENROLLMENT CATEGORY",60)=""
^DD(727.827,"B","ENROLLMENT LOCATION",53)=""
^DD(727.827,"B","ENROLLMENT PRIORITY",77)=""
^DD(727.827,"B","ENROLLMENT STATUS",61)=""
^DD(727.827,"B","ENVIRONMENTAL CONTAMINANTS",84)=""
^DD(727.827,"B","ERI",86)=""
^DD(727.827,"B","ETHNICITY",73)=""
^DD(727.827,"B","EXTRACT NUMBER",2)=""
^DD(727.827,"B","Ethnicity",73)="1"
^DD(727.827,"B","FACILITY",3)=""
^DD(727.827,"B","FEEDER KEY",9)=""
^DD(727.827,"B","HEAD & NECK CANCER INDICATOR",72)=""
^DD(727.827,"B","Head and Neck Cancer Indicator",72)="1"
^DD(727.827,"B","IN/OUT PATIENT INDICATOR",7)=""
^DD(727.827,"B","MASTER PATIENT INDEX",42)=""
^DD(727.827,"B","MEANS TEST",71)=""
^DD(727.827,"B","MST ENCOUNTER INDICATOR",50)=""
^DD(727.827,"B","MST STATUS",49)=""
^DD(727.827,"B","Means Test",71)="1"
^DD(727.827,"B","NAME",6)=""
^DD(727.827,"B","NATIONAL PATIENT RECORD FLAG",83)=""
^DD(727.827,"B","OBSERVATION PATIENT INDICATOR",65)=""
^DD(727.827,"B","OEF/OIF",88)=""
^DD(727.827,"B","OEF/OIF RETURN DATE",89)=""
^DD(727.827,"B","OVERBOOKED INDICATOR",10)=""
^DD(727.827,"B","PATIENT NO. - DFN",4)=""
^DD(727.827,"B","PATIENT TYPE",79)=""
^DD(727.827,"B","PERIOD OF SERVICE",64)=""
^DD(727.827,"B","PLACEHOLDER",46)=""
^DD(727.827,"B","PLACEHOLDER",47)=""
^DD(727.827,"B","PLACEHOLDER",58)=""
^DD(727.827,"B","PLACEHOLDER",62)=""
^DD(727.827,"B","POW LOCATION",37)=""
^DD(727.827,"B","POW STATUS",36)=""
^DD(727.827,"B","PRIMARY CARE PROVIDER",15)=""
^DD(727.827,"B","PRIMARY CARE PROVIDER NPI",91)=""
^DD(727.827,"B","PRIMARY CARE PRV PERSON CLASS",16)=""
^DD(727.827,"B","PRIMARY CARE TEAM",14)=""
^DD(727.827,"B","PRIMARY ICD9 CODE",27)=""
^DD(727.827,"B","PRODUCTION DIVISION CODE",68)=""
^DD(727.827,"B","PROVIDER",17)=""
^DD(727.827,"B","PROVIDER NPI",92)=""
^DD(727.827,"B","PROVIDER PERSON CLASS",18)=""
^DD(727.827,"B","PURPLE HEART INDICATOR",63)=""
^DD(727.827,"B","PURPOSE OF VISIT",70)=""
^DD(727.827,"B","Purple Heart Indicator",63)="1"
^DD(727.827,"B","Purpose of Visit",70)="1"
^DD(727.827,"B","RACE",35)=""
^DD(727.827,"B","RACE 1",74)=""
^DD(727.827,"B","RADIATION ENCOUNTER INDICATOR",39)=""
^DD(727.827,"B","RADIATION STATUS",38)=""
^DD(727.827,"B","Race 1",74)="1"
^DD(727.827,"B","SECONDARY ICD9 1",28)=""
^DD(727.827,"B","SECONDARY ICD9 2",29)=""
^DD(727.827,"B","SECONDARY ICD9 3",30)=""
^DD(727.827,"B","SECONDARY ICD9 4",31)=""
^DD(727.827,"B","SEQUENCE NUMBER",.01)=""
^DD(727.827,"B","SEX",44)=""
^DD(727.827,"B","SHARING AGREEMENT INSURANCE CO",52)=""
^DD(727.827,"B","SHARING AGREEMENT PAYOR",51)=""
^DD(727.827,"B","SSN",5)=""
^DD(727.827,"B","STATE CODE",54)=""
^DD(727.827,"B","Sequence Number",.01)="1"
^DD(727.827,"B","TIME",13)=""
^DD(727.827,"B","TREATING SPECIALITY",12)=""
^DD(727.827,"B","USER ENROLLEE",78)=""
^DD(727.827,"B","VETERAN",34)=""
^DD(727.827,"B","YEAR MONTH",1)=""
^DD(727.827,"B","ZIP+4",45)=""
^DD(727.827,"GL",0,1,.01)=""
^DD(727.827,"GL",0,2,1)=""
^DD(727.827,"GL",0,3,2)=""
^DD(727.827,"GL",0,4,3)=""
^DD(727.827,"GL",0,5,4)=""
^DD(727.827,"GL",0,6,5)=""
^DD(727.827,"GL",0,7,6)=""
^DD(727.827,"GL",0,8,7)=""
^DD(727.827,"GL",0,9,8)=""
^DD(727.827,"GL",0,10,9)=""
^DD(727.827,"GL",0,11,10)=""
^DD(727.827,"GL",0,12,11)=""
^DD(727.827,"GL",0,13,12)=""
^DD(727.827,"GL",0,14,13)=""
^DD(727.827,"GL",0,15,14)=""
^DD(727.827,"GL",0,16,15)=""
^DD(727.827,"GL",0,17,16)=""
^DD(727.827,"GL",0,18,17)=""
^DD(727.827,"GL",0,19,18)=""
^DD(727.827,"GL",0,20,19)=""
^DD(727.827,"GL",0,21,20)=""
^DD(727.827,"GL",0,22,21)=""
^DD(727.827,"GL",0,23,22)=""
^DD(727.827,"GL",0,24,23)=""
^DD(727.827,"GL",1,1,24)=""
^DD(727.827,"GL",1,2,25)=""
^DD(727.827,"GL",1,3,26)=""
^DD(727.827,"GL",1,4,27)=""
^DD(727.827,"GL",1,5,28)=""
^DD(727.827,"GL",1,6,29)=""
^DD(727.827,"GL",1,7,30)=""
^DD(727.827,"GL",1,8,31)=""
^DD(727.827,"GL",1,9,32)=""
^DD(727.827,"GL",1,10,33)=""
^DD(727.827,"GL",1,11,34)=""
^DD(727.827,"GL",1,12,35)=""
^DD(727.827,"GL",1,13,36)=""
^DD(727.827,"GL",1,14,37)=""
^DD(727.827,"GL",1,15,38)=""
^DD(727.827,"GL",1,16,39)=""
^DD(727.827,"GL",1,17,40)=""
^DD(727.827,"GL",1,18,41)=""
^DD(727.827,"GL",1,19,42)=""
^DD(727.827,"GL",1,20,43)=""
^DD(727.827,"GL",1,21,44)=""
^DD(727.827,"GL",1,22,45)=""
^DD(727.827,"GL",1,23,46)=""
^DD(727.827,"GL",1,24,47)=""
^DD(727.827,"GL",1,25,48)=""
^DD(727.827,"GL",1,26,49)=""
^DD(727.827,"GL",1,27,50)=""
^DD(727.827,"GL",1,28,51)=""
^DD(727.827,"GL",1,29,52)=""
^DD(727.827,"GL",1,30,53)=""
^DD(727.827,"GL",1,31,54)=""
^DD(727.827,"GL",1,32,55)=""
^DD(727.827,"GL",1,33,56)=""
^DD(727.827,"GL",1,34,57)=""
^DD(727.827,"GL",1,35,58)=""
^DD(727.827,"GL",1,36,59)=""
^DD(727.827,"GL",1,37,60)=""
^DD(727.827,"GL",2,1,61)=""
^DD(727.827,"GL",2,2,62)=""
^DD(727.827,"GL",2,3,63)=""
^DD(727.827,"GL",2,4,64)=""
^DD(727.827,"GL",2,5,65)=""
^DD(727.827,"GL",2,6,66)=""
^DD(727.827,"GL",2,7,67)=""
^DD(727.827,"GL",2,8,68)=""
^DD(727.827,"GL",2,9,69)=""
^DD(727.827,"GL",2,10,70)=""
^DD(727.827,"GL",2,11,71)=""
^DD(727.827,"GL",2,12,72)=""
^DD(727.827,"GL",2,13,73)=""
^DD(727.827,"GL",2,14,74)=""
^DD(727.827,"GL",2,15,75)=""
^DD(727.827,"GL",2,16,76)=""
^DD(727.827,"GL",2,17,77)=""
^DD(727.827,"GL",2,18,78)=""
^DD(727.827,"GL",2,19,79)=""
^DD(727.827,"GL",2,20,80)=""
^DD(727.827,"GL",2,21,81)=""
^DD(727.827,"GL",2,22,82)=""
^DD(727.827,"GL",2,23,83)=""
^DD(727.827,"GL",2,24,84)=""
^DD(727.827,"GL",2,25,85)=""
^DD(727.827,"GL",2,26,86)=""
^DD(727.827,"GL",2,27,87)=""
^DD(727.827,"GL",2,28,88)=""
^DD(727.827,"GL",2,29,89)=""
^DD(727.827,"GL",2,30,90)=""
^DD(727.827,"GL",2,31,91)=""
^DD(727.827,"GL",2,32,92)=""
^DD(727.827,"IX",2)=""
^DD(727.827,"RQ",.01)=""
^DD(727.827,"RQ",1)=""
^DD(727.827,"RQ",2)=""
^DD(727.827,"RQ",3)=""
^DD(727.827,"RQ",4)=""
^DD(727.829,0)="FIELD^^21^30"
^DD(727.829,0,"DDA")="N"
^DD(727.829,0,"DT")="3041202"
^DD(727.829,0,"IX","AC",727.829,2)=""
^DD(727.829,0,"IX","B",727.829,.01)=""
^DD(727.829,0,"NM","BLOOD BANK EXTRACT")=""
^DD(727.829,0,"VR")="3.0"
^DD(727.829,0,"VRPK")="ECX"
^DD(727.829,.01,0)="SEQUENCE NUMBER^RNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(727.829,.01,1,0)="^.1"
^DD(727.829,.01,1,1,0)="727.829^B"
^DD(727.829,.01,1,1,1)="S ^ECX(727.829,""B"",$E(X,1,30),DA)="""""
^DD(727.829,.01,1,1,2)="K ^ECX(727.829,""B"",$E(X,1,30),DA)"
^DD(727.829,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.829,.01,21,0)="^^1^1^3041202^"
^DD(727.829,.01,21,1,0)="The record number for this extract entry."
^DD(727.829,.01,23,0)="^^2^2^3041202^"
^DD(727.829,.01,23,1,0)="The internal entry number (IEN) for this record.  This entry is DINUMed."
^DD(727.829,.01,23,2,0)="It is not transmitted to the AAC.  Part of the header for extract record."
^DD(727.829,.01,"DT")="3041202"
^DD(727.829,1,0)="YEAR MONTH^FO^^0;2^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(727.829,1,.1)="Year/Month"
^DD(727.829,1,2)="S Y(0)=Y S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.829,1,2.1)="S Y=$$ECXYMX^ECXUTL(Y)"
^DD(727.829,1,3)="format is YYYYMM"
^DD(727.829,1,21,0)="^^2^2^3041202^"
^DD(727.829,1,21,1,0)="A six character numeric string representing the year and the month"
^DD(727.829,1,21,2,0)="for which this extract was performed."
^DD(727.829,1,23,0)="^^1^1^3041202^"
^DD(727.829,1,23,1,0)="Not transmitted to the AAC.  Part of header for extract record."
^DD(727.829,1,"DT")="3050301"
^DD(727.829,2,0)="EXTRACT NUMBER^P727'^ECX(727,^0;3^Q"
^DD(727.829,2,.1)="Extract Number"
^DD(727.829,2,1,0)="^.1"
^DD(727.829,2,1,1,0)="727.829^AC"
^DD(727.829,2,1,1,1)="S ^ECX(727.829,""AC"",$E(X,1,30),DA)="""""
^DD(727.829,2,1,1,2)="K ^ECX(727.829,""AC"",$E(X,1,30),DA)"
^DD(727.829,2,1,1,3)="DO NOT DELETE"
^DD(727.829,2,1,1,"%D",0)="^.101^2^2^3041213^^"
^DD(727.829,2,1,1,"%D",1,0)="This cross reference is essential for managing and purging data in this"
^DD(727.829,2,1,1,"%D",2,0)="file."
^DD(727.829,2,1,1,"DT")="3041213"
^DD(727.829,2,3)="Enter the extract number for this extract."
^DD(727.829,2,21,0)="^.001^2^2^3041202^^^"
^DD(727.829,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this"
^DD(727.829,2,21,2,0)="extract."
^DD(727.829,2,23,0)="^^2^2^3041202^"
^DD(727.829,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.829,2,23,2,0)="pick up the header for the mail message.  Not transmitted to the AAC."
^DD(727.829,2,"DT")="3041213"
^DD(727.829,3,0)="FACILITY^F^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.829,3,.1)="Facility"
^DD(727.829,3,3)="Answer must be 1-7 characters in length."
^DD(727.829,3,21,0)="^.001^1^1^3040513^^^"
^DD(727.829,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.829,3,23,0)="^.001^4^4^3040513^^"
^DD(727.829,3,23,1,0)="An indicator of the division where this event happened. Using the NAME"
^DD(727.829,3,23,2,0)="field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is"
^DD(727.829,3,23,3,0)="derived from the STATION NUMBER field (99) for that pointer number in"
^DD(727.829,3,23,4,0)="the INSTITUTION file (#4)."
^DD(727.829,3,"DT")="3040513"
^DD(727.829,4,0)="PATIENT NO. - DFN^P2'^DPT(^0;5^Q"
^DD(727.829,4,.1)="Patient No. - DFN"
^DD(727.829,4,3)=""
^DD(727.829,4,21,0)="^.001^1^1^3041202^^^"
^DD(727.829,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.829,4,23,0)="^^1^1^3041202^"
^DD(727.829,4,23,1,0)="Defined as the IEN of a given record entry in the PATIENT file (#2)."
^DD(727.829,4,"DT")="3041202"
^DD(727.829,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9) X"
^DD(727.829,5,3)="Answer must be 9-10 characters in length."
^DD(727.829,5,21,0)="^^1^1^3041202^^"
^DD(727.829,5,21,1,0)="The patient's social security number."
^DD(727.829,5,23,0)="^^1^1^3041202^"
^DD(727.829,5,23,1,0)="Obtained from field .09 of the PATIENT file (#2) using DFN."
^DD(727.829,5,"DT")="3041202"
^DD(727.829,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.829,6,3)="First 4 characters of patient's last name padding with spaces if necessary"
^DD(727.829,6,21,0)="^^1^1^3041202^^"
^DD(727.829,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.829,6,23,0)="^^1^1^3041202^"
^DD(727.829,6,23,1,0)="Field is retrieved from .01 field of PATIENT file (#2) using DFN."
^DD(727.829,6,"DT")="3041202"
^DD(727.829,7,0)="IN/OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.829,7,3)="'O'- Outpatient, 'I'- Inpatient"
^DD(727.829,7,21,0)="^.001^2^2^3041202^^^"
^DD(727.829,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this"
^DD(727.829,7,21,2,0)="extract entry."
^DD(727.829,7,23,0)="^^3^3^3041202^"
^DD(727.829,7,23,1,0)="This field formerly contained the the value 1=Outpatient or 3=Inpatient."
^DD(727.829,7,23,2,0)="In FY2002, this field has been changed to free text and will contain"
^DD(727.829,7,23,3,0)="""O""=Outpatient or ""I""=Inpatient.  Determined by a call to IN5^VADPT."
^DD(727.829,7,"DT")="3041202"
^DD(727.829,8,0)="ENCOUNTER NUMBER^F^^0;9^K:$L(X)>18!($L(X)<1) X"
^DD(727.829,8,.1)="Encounter Number"
^DD(727.829,8,3)="Answer must be 1-18 characters in length."
^DD(727.829,8,21,0)="^^3^3^3041202^^"
^DD(727.829,8,21,1,0)="This field is derived from the inpatient/outpatient status, SSN,"
^DD(727.829,8,21,2,0)="admit/visit date, treating specialty, observation patient indicator, and"
^DD(727.829,8,21,3,0)="DSS Identifier or feeder key values in the record."
^DD(727.829,8,23,0)="^^15^15^3041202^"
^DD(727.829,8,23,1,0)="Determined by the following:  If IN/OUT PATIENT INDICATOR = 'I', the "
^DD(727.829,8,23,2,0)="ENCOUNTER NUMBER is the Patient SSN concatenated with the Admit Date "
^DD(727.829,8,23,3,0)="concatenated with the letter 'I'."
^DD(727.829,8,23,4,0)=" "
^DD(727.829,8,23,5,0)="If the IN/OUT PATIENT INDICATOR field is 'O' and the OBSERVATION PATIENT"
^DD(727.829,8,23,6,0)="INDICATOR field is 'NO', then encounter is presumed to be an Outpatient"
^DD(727.829,8,23,7,0)="Encounter and the ENCOUNTER NUMBER field is the Patient SSN concatenated"
^DD(727.829,8,23,8,0)="with the Julian Date of Visit concatenated with Stop Code.   For the LBB"
^DD(727.829,8,23,9,0)="Extract the Outpatient Stop Code is always = '108' (SSSSSSSSSS+YYDDD+108)."
^DD(727.829,8,23,10,0)=" "
^DD(727.829,8,23,11,0)="If the IN/OUT PATIENT INDICATOR field is 'O' and the OBSERVATION PATIENT"
^DD(727.829,8,23,12,0)="INDICATOR field is equal to 'YES', then the ENCOUNTER NUMBER is the"
^DD(727.829,8,23,13,0)="Patient SSN concatenated with the Admit Julian Date concatenated with the"
^DD(727.829,8,23,14,0)="Observation Stop Code.  SSSSSSSSSS+YYDDD+CCC.   Found using"
^DD(727.829,8,23,15,0)="ENCNUM^ECXUTL4."
^DD(727.829,8,"DT")="3041202"
^DD(727.829,9,0)="DATE OF TRANSFUSION^FO^^0;10^K:$L(X)>8!($L(X)<8) X"
^DD(727.829,9,.1)="Date of Transfusion"
^DD(727.829,9,2)="S Y(0)=Y S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.829,9,2.1)="S Y=$$ECXDATEX^ECXUTL(Y)"
^DD(727.829,9,3)="Format is YYYYMMDD"
^DD(727.829,9,21,0)="^^1^1^3041202^^"
^DD(727.829,9,21,1,0)="This field contains the date of the blood component transfusion."
^DD(727.829,9,23,0)="^^2^2^3041202^"
^DD(727.829,9,23,1,0)="Obtained from field .01 of the TRANSFUSION RECORD sub-file (#63.017) of "
^DD(727.829,9,23,2,0)="the LAB DATA file (#63)."
^DD(727.829,9,"DT")="3050209"
^DD(727.829,10,0)="TIME OF TRANSFUSION^FO^^0;11^K:$L(X)>6!($L(X)<6) X"
^DD(727.829,10,.1)="Time of Transfusion"
^DD(727.829,10,2)="S Y(0)=Y S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.829,10,2.1)="S Y=$$ECXTIMEX^ECXUTL(Y,1)"
^DD(727.829,10,3)="Format is HHMMSS"
^DD(727.829,10,21,0)="^^2^2^3041202^"
^DD(727.829,10,21,1,0)="A 6-character numeric string that represents the time of day"
^DD(727.829,10,21,2,0)="the blood component transfusion was performed."
^DD(727.829,10,23,0)="^^2^2^3041202^"
^DD(727.829,10,23,1,0)="If time cannot be determined, use 000001 as a default.  Field .01 of the "
^DD(727.829,10,23,2,0)="TRANSFUSION RECORD sub-file (#63.017) of the LAB DATA file (#63)."
^DD(727.829,10,"DT")="3050209"
^DD(727.829,11,0)="COMPONENT^F^^0;12^K:$L(X)>15!($L(X)<1) X"
^DD(727.829,11,.1)="Component"
^DD(727.829,11,3)="Answer must be 1-15 characters in length"
^DD(727.829,11,21,0)="^^1^1^3041202^^^"
^DD(727.829,11,21,1,0)="This is the name of the blood bank product transfused."
^DD(727.829,11,23,0)="^^3^3^3041202^^"
^DD(727.829,11,23,1,0)="Obtained from field .02 of the TRANSFUSION RECORD sub-file (#63.017) of"
^DD(727.829,11,23,2,0)="the LAB DATA file (#63) which is a pointer to the Blood Bank product file "
^DD(727.829,11,23,3,0)="(#65)."
^DD(727.829,11,"DT")="3041202"
^DD(727.829,12,0)="COMPONENT ABBREVIATION^F^^0;13^K:$L(X)>4!($L(X)<1) X"
^DD(727.829,12,.1)="Component Abbreviation"
^DD(727.829,12,3)="Answer must be 1-4 characters in length."
^DD(727.829,12,21,0)="^^2^2^3041202^"
^DD(727.829,12,21,1,0)="This is the abbreviation for the component, taken from the BLOOD PRODUCT"
^DD(727.829,12,21,2,0)="file (#66)."
^DD(727.829,12,23,0)="^^3^3^3041202^"
^DD(727.829,12,23,1,0)="Use COMPONENT (field .02 of the TRANSFUSION RECORD sub-file (#63.017) to "
^DD(727.829,12,23,2,0)="obtain COMPONENT ABBREVIATION from field .02 of the BLOOD PRODUCT file "
^DD(727.829,12,23,3,0)="(#66)."
^DD(727.829,12,"DT")="3041202"
^DD(727.829,13,0)="NUMBER OF UNITS^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1.N) X"
^DD(727.829,13,.1)="Number Of Units"
^DD(727.829,13,3)="Type a number between 1 and 99, 0 Decimal Digits"
^DD(727.829,13,21,0)="^^1^1^3041202^^"
^DD(727.829,13,21,1,0)="This is the number of units that were transfused."
^DD(727.829,13,23,0)="^^2^2^3041202^"
^DD(727.829,13,23,1,0)="Field .07 of the TRANSFUSION RECORD sub-file (#63.017) of the LAB DATA "
^DD(727.829,13,23,2,0)="file (#63).  If units is blank use default of 1."
^DD(727.829,13,"DT")="3041202"
^DD(727.829,14,0)="VOLUME^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(727.829,14,.1)="Volume"
^DD(727.829,14,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(727.829,14,21,0)="^^1^1^3041202^"
^DD(727.829,14,21,1,0)="This is the volume, in milliliters, of the component or unit transfused."
^DD(727.829,14,23,0)="^^2^2^3041202^"
^DD(727.829,14,23,1,0)="Field .1 of the TRANSFUSION RECORD sub-file (#63.017) of the LAB DATA "
^DD(727.829,14,23,2,0)="file (#63)."
^DD(727.829,14,"DT")="3041202"
^DD(727.829,15,0)="REACTION^S^Y:YES;N:NO;^0;16^Q"
^DD(727.829,15,.1)="Feeder Location"
^DD(727.829,15,3)=""
^DD(727.829,15,21,0)="^^1^1^3041202^"
^DD(727.829,15,21,1,0)="Indicates a transfusion reaction."
^DD(727.829,15,23,0)="^^2^2^3041202^"
^DD(727.829,15,23,1,0)="Field .08 of the TRANSFUSION RECORD sub-file (#63.017) of the LAB DATA "
^DD(727.829,15,23,2,0)="file (#63)."
^DD(727.829,15,"DT")="3041202"
^DD(727.829,16,0)="REACTION TYPE^F^^0;17^K:$L(X)>10!($L(X)<2) X"
^DD(727.829,16,3)="Answer must be 2-10 characters in length."
^DD(727.829,16,21,0)="^.001^1^1^3060719^^^^"
^DD(727.829,16,21,1,0)="Type of reaction from transfusion"
^DD(727.829,16,23,0)="^^3^3^3060719^"
^DD(727.829,16,23,1,0)="Field (#.11) of the TRANSFUSION RECORDS sub-file (#63.017) of the LAB DATA"
^DD(727.829,16,23,2,0)="file (#63) which is a pointer to field (#.01) of the BLOOD BANK UTILITY"
^DD(727.829,16,23,3,0)="file (#65.4)."
^DD(727.829,16,"DT")="3060524"
^DD(727.829,17,0)="FEEDER LOCATION^F^^0;18^K:$L(X)>9!($L(X)<1) X"
^DD(727.829,17,3)="Answer must be 1-9 characters in length"
^DD(727.829,17,21,0)="^^2^2^3041202^"
^DD(727.829,17,21,1,0)="Feeder locations are station-specific locations that are specific to each"
^DD(727.829,17,21,2,0)="extract.  "
^DD(727.829,17,23,0)="^^1^1^3041202^"
^DD(727.829,17,23,1,0)="Feeder Location in Blood Bank extract is BB concatenated with Facility."
^DD(727.829,17,"DT")="3041202"
^DD(727.829,18,0)="DSS PRODUCT DEPARTMENT^F^^0;19^K:$L(X)>10!($L(X)<1) X"
^DD(727.829,18,3)="Answer must be 1-10 characters in length"
^DD(727.829,18,21,0)="^^3^3^3041202^"
^DD(727.829,18,21,1,0)="The nationally defined and designated intermediate product dept number "
^DD(727.829,18,21,2,0)="designated to the patient care product being delivered for standardized "
^DD(727.829,18,21,3,0)="workload reporting purposes."
^DD(727.829,18,23,0)="^^1^1^3041202^"
^DD(727.829,18,23,1,0)="Obtained from the DSS PRODUCT DEPARTMENT AND IP NUMBER file (#727.6).  "
^DD(727.829,18,"DT")="3041202"
^DD(727.829,19,0)="DSS IP #^F^^0;20^K:$L(X)>7!($L(X)<1) X"
^DD(727.829,19,3)="Answer must be 1-7 characters in length"
^DD(727.829,19,21,0)="^^1^1^3041202^"
^DD(727.829,19,21,1,0)="same description recorded in field 18 of this file."
^DD(727.829,19,"DT")="3041202"
^DD(727.829,20,0)="ORDERING PROVIDER^F^^0;21^K:$L(X)>11!($L(X)<1) X"
^DD(727.829,20,3)="Answer must be 1-11 characters in length."
^DD(727.829,20,21,0)="^^4^4^3050426^"
^DD(727.829,20,21,1,0)="This is the IEN of the New Person file (#200) entry and it indicates the"
^DD(727.829,20,21,2,0)="provider that ordered the blood transfusion. The IEN of the New Person "
^DD(727.829,20,21,3,0)="file (#200) shall be prefixed with a '2'. This field is extracted from the"
^DD(727.829,20,21,4,0)="PHYSICIAN field (#6.2) located in the Blood Inventory file (#65)."
^DD(727.829,20,"DT")="3050426"
^DD(727.829,21,0)="ORDERING PROVIDER PERSON CLASS^F^^0;22^K:$L(X)>7!($L(X)<7) X"
^DD(727.829,21,3)="Answer must be 7 characters in length."
^DD(727.829,21,21,0)="^.001^3^3^3050426^^"
^DD(727.829,21,21,1,0)="The VA Code of the Person Class of the Ordering Provider associated"
^DD(727.829,21,21,2,0)="with this record. The VA Code is always of the form ""V""_six numeric"
^DD(727.829,21,21,3,0)="digits; exactly 7."
^DD(727.829,21,23,0)="^^3^3^3050426^"
^DD(727.829,21,23,1,0)="NEW PERSON file #200, Field #5; file #8932.1. Active Person Class is "
^DD(727.829,21,23,2,0)="determined by $$GET^XUA4A72(PERS,DATE), where PERS is the IEN from file "
^DD(727.829,21,23,3,0)="#200."
^DD(727.829,21,"DT")="3050426"
^DD(727.829,22,0)="ERI^F^^0;23^K:$L(X)>2!($L(X)<1) X"
^DD(727.829,22,3)="Answer must be 1-2 characters in length."
^DD(727.829,22,21,0)="^.001^2^2^3060731^^"
^DD(727.829,22,21,1,0)="This field identifies patients from impacted zip code areas designated by"
^DD(727.829,22,21,2,0)="the Federal Emergency Management Agency (FEMA)."
^DD(727.829,22,23,0)="^.001^4^4^3060731^^^"
^DD(727.829,22,23,1,0)="This field is extracted from the EMERGENCY RESPONSE INDICATOR field"
^DD(727.829,22,23,2,0)="(#.181) located in the PATIENT file (#2). Values are:"
^DD(727.829,22,23,3,0)="    ""K"" = Hurricane Katrina"
^DD(727.829,22,23,4,0)="    Null"
^DD(727.829,22,"DT")="3060731"
^DD(727.829,23,0)="UNIT MODIFIED^S^Y:YES;N:NO;^0;24^Q"
^DD(727.829,23,3)="Answer must be ""Y"" or ""N""."
^DD(727.829,23,21,0)="^.001^2^2^3060914^^"
^DD(727.829,23,21,1,0)="The value for this field is Y or N depending on whether there is a "
^DD(727.829,23,21,2,0)="value in the UNIT MODIFICATION field (#24)."
^DD(727.829,23,23,0)="^.001^4^4^3060914^^"
^DD(727.829,23,23,1,0)="The value for this field is determined from the UNIT MODIFICATION field"
^DD(727.829,23,23,2,0)="(#24)."
^DD(727.829,23,23,3,0)="    If UNIT MODIFICATION has a value then UNIT MODIFIED=""Y"""
^DD(727.829,23,23,4,0)="    If UNIT MODIFICATION has no value then UNIT MODIFIED=""N"""
^DD(727.829,23,"DT")="3060515"
^DD(727.829,24,0)="UNIT MODIFICATION^F^^0;25^K:$L(X)>6!($L(X)<1) X"
^DD(727.829,24,3)="Answer must be 1-6 characters in length."
^DD(727.829,24,21,0)="^.001^2^2^3060630^^"
^DD(727.829,24,21,1,0)="This field is used to indicate whether the product(s) will be divided"
^DD(727.829,24,21,2,0)="units or a pool."
^DD(727.829,24,23,0)="^^13^13^3060719^"
^DD(727.829,24,23,1,0)="This field is a combination of values retrieved from the MODIFICATION"
^DD(727.829,24,23,2,0)="CRITERIA field (#.06) and MODIFY TO field (#3), subfile (#66.03), taken"
^DD(727.829,24,23,3,0)="from the BLOOD PRODUCT file (#66). The value has a maximum length of six"
^DD(727.829,24,23,4,0)="characters and consist of:"
^DD(727.829,24,23,5,0)="   D = DIVIDED"
^DD(727.829,24,23,6,0)="   P = POOLED"
^DD(727.829,24,23,7,0)="   W = WASHED"
^DD(727.829,24,23,8,0)="   F = FROZEN"
^DD(727.829,24,23,9,0)="   L = LEUKOCYTE POOR"
^DD(727.829,24,23,10,0)="   R = REJUVENATED"
^DD(727.829,24,23,11,0)="   G = DEGLYCEROLIZED"
^DD(727.829,24,23,12,0)="   I = IRRADIATED"
^DD(727.829,24,23,13,0)="   S = SEPARATED"
^DD(727.829,24,"DT")="3060630"
^DD(727.829,25,0)="REQUESTING PROVIDER^F^^0;26^K:$L(X)>11!($L(X)<1) X"
^DD(727.829,25,3)="Answer must be 1-11 characters in length."
^DD(727.829,25,21,0)="^.001^2^2^3060705^^^^"
^DD(727.829,25,21,1,0)="This is the provider who requested the testing/type and cross match for "
^DD(727.829,25,21,2,0)="the transfusion."
^DD(727.829,25,23,0)="^^5^5^3060719^"
^DD(727.829,25,23,1,0)="Data comes from the PROVIDER field (#6.5) of subfile (#68.02). Subfile "
^DD(727.829,25,23,2,0)="(#68.02) is the ACCESSION NUMBER field (#1) in subfile (#68.01). Subfile"
^DD(727.829,25,23,3,0)="(#68.01) is the DATE field (#2) in the ACCESSION file (#68)."
^DD(727.829,25,23,4,0)=" "
^DD(727.829,25,23,5,0)="The value of this field is prefixed with a '2'."
^DD(727.829,25,"DT")="3060509"
^DD(727.829,26,0)="REQUESTING PROVIDER PC^F^^0;27^K:$L(X)>7!($L(X)<7) X"
^DD(727.829,26,3)="Answer must be 7 characters in length."
^DD(727.829,26,21,0)="^.001^3^3^3060829^^"
^DD(727.829,26,21,1,0)="The field holds the VA Code associated with the active Person Class"
^DD(727.829,26,21,2,0)="of the Requesting Provider. The VA Code is always exactly 7 characters "
^DD(727.829,26,21,3,0)="in length in the form Vnnnnnn where n represents a numeric digit."
^DD(727.829,26,23,0)="^.001^5^5^3060829^^"
^DD(727.829,26,23,1,0)="Data comes from the PROVIDER field (#6.5) of subfile (#68.02). Subfile "
^DD(727.829,26,23,2,0)="(#68.02) is the ACCESSION NUMBER field (#1) in subfile (#68.01). Subfile"
^DD(727.829,26,23,3,0)="(#68.01) is the DATE field (#2) in the ACCESSION file (#68). The Person"
^DD(727.829,26,23,4,0)="Class is determined by calling the API $$GET^XUA4A71. The Person Class"
^DD(727.829,26,23,5,0)="must be active."
^DD(727.829,26,"DT")="3060829"
^DD(727.829,27,0)="PRODUCTION DIVISION CODE^F^^0;28^K:$L(X)>6!($L(X)<3) X"
^DD(727.829,27,3)="Answer must be 3-6 characters in length."
^DD(727.829,27,21,0)="^.001^2^2^3060719^^^^"
^DD(727.829,27,21,1,0)="Data represents the medical center division the work was performed in. "
^DD(727.829,27,21,2,0)="This field corresponds to an entry in the INSTITUTION file (#4)."
^DD(727.829,27,23,0)="^^3^3^3060719^"
^DD(727.829,27,23,1,0)="Data comes from the DIV field (#26) of subfile (#68.02). Subfile (#68.02)"
^DD(727.829,27,23,2,0)="is the ACCESSION NUMBER field (#1) in subfile (#68.01). Subfile (#68.01)"
^DD(727.829,27,23,3,0)="is the DATE field (#2) in the ACCESSION file (#68)."
^DD(727.829,27,"DT")="3060524"
^DD(727.829,28,0)="ORDERING PROVIDER NPI^F^^0;29^K:$L(X)>15!($L(X)<1) X"
^DD(727.829,28,3)="Answer must be 1-15 characters in length."
^DD(727.829,28,21,0)="^^2^2^3070504^"
^DD(727.829,28,21,1,0)="A standard unique life-long identifier of the provider who ordered the "
^DD(727.829,28,21,2,0)="type and cross match.  This field has a length of fifteen characters. "
^DD(727.829,28,23,0)="^.001^3^3^3070504^^"
^DD(727.829,28,23,1,0)="ORDERING PROVIDER NPI is a standard unique life-long identifier of the "
^DD(727.829,28,23,2,0)="provider who ordered the type and cross match. The qualified identifier"
^DD(727.829,28,23,3,0)="shall be retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.829,28,"DT")="3070504"
^DD(727.829,29,0)="REQUESTING PROVIDER NPI^F^^1;1^K:$L(X)>15!($L(X)<1) X"
^DD(727.829,29,3)="Answer must be 1-15 characters in length."
^DD(727.829,29,21,0)="^^2^2^3070504^"
^DD(727.829,29,21,1,0)="A standard unique life-long identifier of the provider who requested the "
^DD(727.829,29,21,2,0)="transfusion.  This field has a length of fifteen characters. "
^DD(727.829,29,23,0)="^.001^3^3^3070504^^"
^DD(727.829,29,23,1,0)="REQUESTING PROVIDER NPI is a standard unique life-long identifier of the "
^DD(727.829,29,23,2,0)="provider who requested the transfusion.  The qualified identifier shall "
^DD(727.829,29,23,3,0)="be retrieved via the supporting Kernel API:$$NPI^XUSNPI."
^DD(727.829,29,"DT")="3070504"
^DD(727.829,"B","COMPONENT",11)=""
^DD(727.829,"B","COMPONENT ABBREVIATION",12)=""
^DD(727.829,"B","Component",11)="1"
^DD(727.829,"B","Component Abbreviation",12)="1"
^DD(727.829,"B","DATE OF TRANSFUSION",9)=""
^DD(727.829,"B","DSS IP #",19)=""
^DD(727.829,"B","DSS PRODUCT DEPARTMENT",18)=""
^DD(727.829,"B","Date of Transfusion",9)="1"
^DD(727.829,"B","ENCOUNTER NUMBER",8)=""
^DD(727.829,"B","ERI",22)=""
^DD(727.829,"B","EXTRACT NUMBER",2)=""
^DD(727.829,"B","Encounter Number",8)="1"
^DD(727.829,"B","Extract Number",2)="1"
^DD(727.829,"B","FACILITY",3)=""
^DD(727.829,"B","FEEDER LOCATION",17)=""
^DD(727.829,"B","Facility",3)="1"
^DD(727.829,"B","Feeder Location",15)="1"
^DD(727.829,"B","IN/OUT PATIENT INDICATOR",7)=""
^DD(727.829,"B","NAME",6)=""
^DD(727.829,"B","NUMBER OF UNITS",13)=""
^DD(727.829,"B","Number Of Units",13)="1"
^DD(727.829,"B","ORDERING PROVIDER",20)=""
^DD(727.829,"B","ORDERING PROVIDER NPI",28)=""
^DD(727.829,"B","ORDERING PROVIDER PERSON CLASS",21)=""
^DD(727.829,"B","PATIENT NO. - DFN",4)=""
^DD(727.829,"B","PRODUCTION DIVISION CODE",27)=""
^DD(727.829,"B","Patient No. - DFN",4)="1"
^DD(727.829,"B","REACTION",15)=""
^DD(727.829,"B","REACTION TYPE",16)=""
^DD(727.829,"B","REQUESTING PROVIDER",25)=""
^DD(727.829,"B","REQUESTING PROVIDER NPI",29)=""
^DD(727.829,"B","REQUESTING PROVIDER PC",26)=""
^DD(727.829,"B","SEQUENCE NUMBER",.01)=""
^DD(727.829,"B","SSN",5)=""
^DD(727.829,"B","TIME OF TRANSFUSION",10)=""
^DD(727.829,"B","Time of Transfusion",10)="1"
^DD(727.829,"B","UNIT MODIFICATION",24)=""
^DD(727.829,"B","UNIT MODIFIED",23)=""
^DD(727.829,"B","VOLUME",14)=""
^DD(727.829,"B","Volume",14)="1"
^DD(727.829,"B","YEAR MONTH",1)=""
^DD(727.829,"B","Year/Month",1)="1"
^DD(727.829,"GL",0,1,.01)=""
^DD(727.829,"GL",0,2,1)=""
^DD(727.829,"GL",0,3,2)=""
^DD(727.829,"GL",0,4,3)=""
^DD(727.829,"GL",0,5,4)=""
^DD(727.829,"GL",0,6,5)=""
^DD(727.829,"GL",0,7,6)=""
^DD(727.829,"GL",0,8,7)=""
^DD(727.829,"GL",0,9,8)=""
^DD(727.829,"GL",0,10,9)=""
^DD(727.829,"GL",0,11,10)=""
^DD(727.829,"GL",0,12,11)=""
^DD(727.829,"GL",0,13,12)=""
^DD(727.829,"GL",0,14,13)=""
^DD(727.829,"GL",0,15,14)=""
^DD(727.829,"GL",0,16,15)=""
^DD(727.829,"GL",0,17,16)=""
^DD(727.829,"GL",0,18,17)=""
^DD(727.829,"GL",0,19,18)=""
^DD(727.829,"GL",0,20,19)=""
^DD(727.829,"GL",0,21,20)=""
^DD(727.829,"GL",0,22,21)=""
^DD(727.829,"GL",0,23,22)=""
^DD(727.829,"GL",0,24,23)=""
^DD(727.829,"GL",0,25,24)=""
^DD(727.829,"GL",0,26,25)=""
^DD(727.829,"GL",0,27,26)=""
^DD(727.829,"GL",0,28,27)=""
^DD(727.829,"GL",0,29,28)=""
^DD(727.829,"GL",1,1,29)=""
^DD(727.829,"IX",.01)=""
^DD(727.829,"IX",2)=""
^DD(727.829,"RQ",.01)=""
^DD(727.831,0)="FIELD^^6^6"
^DD(727.831,0,"DDA")="N"
^DD(727.831,0,"DT")="3010830"
^DD(727.831,0,"IX","B",727.831,.01)=""
^DD(727.831,0,"NM","DSS TREATING SPECIALTY TRANSLATION")=""
^DD(727.831,0,"VR")="3.0"
^DD(727.831,0,"VRPK")="ECX"
^DD(727.831,.01,0)="TREATING SPECIALTY^RP42.4'^DIC(42.4,^0;1^S:$D(X) DINUM=X"
^DD(727.831,.01,.1)="TREATING SPECIALTY LOCATION"
^DD(727.831,.01,1,0)="^.1"
^DD(727.831,.01,1,1,0)="727.831^B"
^DD(727.831,.01,1,1,1)="S ^ECX(727.831,""B"",$E(X,1,30),DA)="""""
^DD(727.831,.01,1,1,2)="K ^ECX(727.831,""B"",$E(X,1,30),DA)"
^DD(727.831,.01,3)="Enter treating specialty as indicated in the TREATING SPECIALTY file (#42.4)."
^DD(727.831,.01,10)="Data is a pointer to file 42.4."
^DD(727.831,.01,21,0)="^^3^3^3010627^"
^DD(727.831,.01,21,1,0)="The treating specialty location.  This field points to the TREATING"
^DD(727.831,.01,21,2,0)="SPECIALTY file (#42.4).  This field is DINUMed.  This file is maintained"
^DD(727.831,.01,21,3,0)="by the DSS package and should not be altered in any way."
^DD(727.831,.01,"DT")="3010627"
^DD(727.831,2,0)="DOM/PRRTP/SARRTP CODE^S^P:GEN. PRRTP;T:PTSD PRRTP;S:DOM. PRRTP;H:HOMELESS CWT/TR;A:SA CWT/TR;D:DOMICILIARY;B:PTSD CWT/TR;C:GEN. CWT/TR;^0;2^Q"
^DD(727.831,2,3)="Enter P for GEN. PRRTP, T for PTSD PRRTP, S for DOM. PRRTP, H for HOMELESS CWT/TR, A for SA CWT/TR, D for DOMICILIARY, B for PTSD CWT/TR, C for GEN. CWT/TR"
^DD(727.831,2,21,0)="^^2^2^3010830^"
^DD(727.831,2,21,1,0)="This field contains the DOM/PRRTP/SARRTP code the patient is admitted to"
^DD(727.831,2,21,2,0)="at time of service."
^DD(727.831,2,"DT")="3010830"
^DD(727.831,3,0)="IN/OUT CODE^NJ2,0^^0;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(727.831,3,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(727.831,3,21,0)="^^1^1^3010830^"
^DD(727.831,3,21,1,0)="Old inpatient/outpatient code, used by the PAI extract only at this time."
^DD(727.831,3,"DT")="3010830"
^DD(727.831,4,0)="OBSERVATION PAT INDICATOR^S^Y:YES;N:NO;^0;4^Q"
^DD(727.831,4,3)="ENTER 'Y' for 'YES', 'N' for 'NO'."
^DD(727.831,4,21,0)="^^2^2^3011212^"
^DD(727.831,4,21,1,0)="This field contains the observation patient indicator which is based"
^DD(727.831,4,21,2,0)="on the treating specialty and inpat/outpat code values of the record."
^DD(727.831,4,"DT")="3011211"
^DD(727.831,5,0)="INPAT/OUTPAT CODE^S^I:INPATIENT;O:OUTPATIENT;^0;5^Q"
^DD(727.831,5,3)="Enter an 'I' for inpatient or 'O' for outpatient."
^DD(727.831,5,21,0)="^^3^3^3011212^"
^DD(727.831,5,21,1,0)="This field contains the inpatient/outpatient status which is based"
^DD(727.831,5,21,2,0)="on the treating specialty value of the record.  It replaces the IN/OUT"
^DD(727.831,5,21,3,0)="CODE field (#3) of this file."
^DD(727.831,5,"DT")="3011211"
^DD(727.831,6,0)="OBSERVATION STOP CODE^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(727.831,6,3)="Type a number between 1 and 999, 0 Decimal Digits"
^DD(727.831,6,21,0)="^^2^2^3011212^"
^DD(727.831,6,21,1,0)="This field contains the observation stop code which is based on the"
^DD(727.831,6,21,2,0)="treating specialty value of the record."
^DD(727.831,6,"DT")="3011211"
^DD(727.831,"B","DOM/PRRTP/SARRTP CODE",2)=""
^DD(727.831,"B","IN/OUT CODE",3)=""
^DD(727.831,"B","INPAT/OUTPAT CODE",5)=""
^DD(727.831,"B","OBSERVATION PAT INDICATOR",4)=""
^DD(727.831,"B","OBSERVATION STOP CODE",6)=""
^DD(727.831,"B","TREATING SPECIALTY",.01)=""
^DD(727.831,"B","TREATING SPECIALTY LOCATION",.01)="1"
^DD(727.831,"GL",0,1,.01)=""
^DD(727.831,"GL",0,2,2)=""
^DD(727.831,"GL",0,3,3)=""
^DD(727.831,"GL",0,4,4)=""
^DD(727.831,"GL",0,5,5)=""
^DD(727.831,"GL",0,6,6)=""
^DD(727.831,"IX",.01)=""
^DD(727.831,"RQ",.01)=""
^DD(727.832,0)="FIELD^^58^64"
^DD(727.832,0,"DDA")="N"
^DD(727.832,0,"DT")="3060705"
^DD(727.832,0,"IX","AC",727.832,2)=""
^DD(727.832,0,"IX","B",727.832,.01)=""
^DD(727.832,0,"NM","NUTRITION EXTRACT")=""
^DD(727.832,0,"VR")="3.0"
^DD(727.832,0,"VRPK")="ECX"
^DD(727.832,.01,0)="SEQUENCE NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(727.832,.01,1,0)="^.1"
^DD(727.832,.01,1,1,0)="727.832^B"
^DD(727.832,.01,1,1,1)="S ^ECX(727.832,""B"",$E(X,1,30),DA)="""""
^DD(727.832,.01,1,1,2)="K ^ECX(727.832,""B"",$E(X,1,30),DA)"
^DD(727.832,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(727.832,.01,21,0)="^.001^2^2^3060721^^^^"
^DD(727.832,.01,21,1,0)="The Record Number for this extract entry. Included in the Header for the"
^DD(727.832,.01,21,2,0)="extract. The file is DINUMed on this field."
^DD(727.832,.01,23,0)="^.001^1^1^3060721^^^^"
^DD(727.832,.01,23,1,0)="The Internal Entry Number (IEN) for this record.  The entry is DINUMed."
^DD(727.832,.01,"DT")="3060705"
^DD(727.832,1,0)="YEAR MONTH^F^^0;2^K:$L(X)>6!($L(X)<6) X"
^DD(727.832,1,3)="Answer must be 6 characters in length."
^DD(727.832,1,21,0)="^.001^2^2^3060721^^^"
^DD(727.832,1,21,1,0)="A six character numeric string representing the year and the month for"
^DD(727.832,1,21,2,0)="which this extract was performed."
^DD(727.832,1,23,0)="^.001^1^1^3060721^^"
^DD(727.832,1,23,1,0)="Format is YYYYMM."
^DD(727.832,1,"DT")="3060308"
^DD(727.832,2,0)="EXTRACT NUMBER^RP727'^ECX(727,^0;3^Q"
^DD(727.832,2,1,0)="^.1"
^DD(727.832,2,1,1,0)="727.832^AC"
^DD(727.832,2,1,1,1)="S ^ECX(727.832,""AC"",$E(X,1,30),DA)="""""
^DD(727.832,2,1,1,2)="K ^ECX(727.832,""AC"",$E(X,1,30),DA)"
^DD(727.832,2,1,1,"DT")="3060816"
^DD(727.832,2,21,0)="^^2^2^3060711^"
^DD(727.832,2,21,1,0)="The corresponding entry in the DSS EXTRACT LOG file (#727) for this"
^DD(727.832,2,21,2,0)="extract."
^DD(727.832,2,23,0)="^^2^2^3060711^"
^DD(727.832,2,23,1,0)="A pointer to the DSS EXTRACT LOG file (#727). The primary purpose is to"
^DD(727.832,2,23,2,0)="pick up the header for the mail message."
^DD(727.832,2,"DT")="3060816"
^DD(727.832,3,0)="FACILITY^RF^^0;4^K:$L(X)>7!($L(X)<1) X"
^DD(727.832,3,3)="Answer must be 1-7 characters in length."
^DD(727.832,3,21,0)="^.001^1^1^3060721^^^"
^DD(727.832,3,21,1,0)="Identifies the facility for this extract record."
^DD(727.832,3,23,0)="^^4^4^3060721^"
^DD(727.832,3,23,1,0)="An indicator of the division where this event happened. Using the NAME"
^DD(727.832,3,23,2,0)="field (.01) pointer from the DSS EXTRACTS file (#728), FACILITY is derived"
^DD(727.832,3,23,3,0)="from the STATION NUMBER field (#99) for that pointer number in the"
^DD(727.832,3,23,4,0)="INSTITUTION file (#4)."
^DD(727.832,3,"DT")="3060308"
^DD(727.832,4,0)="PATIENT NO. - DFN^RP2'^DPT(^0;5^Q"
^DD(727.832,4,21,0)="^.001^1^1^3060711^^^"
^DD(727.832,4,21,1,0)="An identifying number for the patient at the local site."
^DD(727.832,4,23,0)="^^4^4^3060721^"
^DD(727.832,4,23,1,0)="Derived from the PATIENT field (#.01) in the NUTRITION PERSON file (#115)."
^DD(727.832,4,23,2,0)="PATIENT NO. - DFN/IEN is a pointer to the NAME field (.01) of the PATIENT"
^DD(727.832,4,23,3,0)="file (#2) or a pointer to the NEW PERSON file (#200). This data represents"
^DD(727.832,4,23,4,0)="the patient DFN or the new person file's IEN."
^DD(727.832,4,"DT")="3060308"
^DD(727.832,5,0)="SSN^F^^0;6^K:$L(X)>10!($L(X)<9) X"
^DD(727.832,5,3)="Answer must be 9-10 characters in length."
^DD(727.832,5,21,0)="^^4^4^3060711^"
^DD(727.832,5,21,1,0)="The patient's social security number."
^DD(727.832,5,21,2,0)=" "
^DD(727.832,5,21,3,0)="Any patient with an SSN beginning with ""00000"" is considered a ""test"
^DD(727.832,5,21,4,0)="patient"" and will not be included in the extract."
^DD(727.832,5,23,0)="^.001^6^6^3060721^^"
^DD(727.832,5,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.832,5,23,2,0)="in the NUTRITION EXTRACT file (#727.832), SSN data is derived from the"
^DD(727.832,5,23,3,0)="SOCIAL SECURITY NUMBER field (.09) in the PATIENT file (#2)."
^DD(727.832,5,23,4,0)=" "
^DD(727.832,5,23,5,0)="""Test"" patient status is determined in PAT^ECXUTL3.  Any patient with an"
^DD(727.832,5,23,6,0)="SSN beginning with ""00000"" will not be included in the extract."
^DD(727.832,5,"DT")="3060308"
^DD(727.832,6,0)="NAME^F^^0;7^K:$L(X)>4!($L(X)<4) X"
^DD(727.832,6,3)="Answer must be 4 characters in length."
^DD(727.832,6,21,0)="^.001^1^1^3060711^^^"
^DD(727.832,6,21,1,0)="The first four characters of the patient's last name."
^DD(727.832,6,23,0)="^^4^4^3060721^"
^DD(727.832,6,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.832,6,23,2,0)="in the NUTRITION EXTRACT file (#727.832), NAME data is derived from the"
^DD(727.832,6,23,3,0)="NAME field (.01) in the PATIENT file (#2). The first four characters of"
^DD(727.832,6,23,4,0)="the first "","" piece are used, padded with trailing spaces if necessary."
^DD(727.832,6,"DT")="3060308"
^DD(727.832,7,0)="IN/OUT PATIENT INDICATOR^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,7,3)="Answer must be 1 character in length."
^DD(727.832,7,21,0)="^.001^2^2^3060711^^^^"
^DD(727.832,7,21,1,0)="Indicates whether the patient was an inpatient or an outpatient for this"
^DD(727.832,7,21,2,0)="extract entry."
^DD(727.832,7,23,0)="^^6^6^3060721^"
^DD(727.832,7,23,1,0)="Using the date and patient's DFN a call is made to IN5^VADPT "
^DD(727.832,7,23,2,0)="registration's API to determine if the patient was an inpatient on the "
^DD(727.832,7,23,3,0)="date the meal was provided."
^DD(727.832,7,23,4,0)=" "
^DD(727.832,7,23,5,0)="""O"" = Outpatient "
^DD(727.832,7,23,6,0)="""I"" = Inpatient"
^DD(727.832,7,"DT")="3060308"
^DD(727.832,8,0)="DAY^F^^0;9^K:$L(X)>8!($L(X)<8) X"
^DD(727.832,8,3)="Answer must be 8 characters in length."
^DD(727.832,8,21,0)="^^2^2^3060721^"
^DD(727.832,8,21,1,0)="This 8-character string represents the date on which the service was"
^DD(727.832,8,21,2,0)="provided."
^DD(727.832,8,23,0)="^.001^4^4^3060721^^"
^DD(727.832,8,23,1,0)="This field is always exactly 8 numeric characters in length.  The format"
^DD(727.832,8,23,2,0)="is YYYYMMDD; for example, 19970923.  If the date cannot be determined,"
^DD(727.832,8,23,3,0)="then a default is used.  The default date value is the value of the YEAR"
^DD(727.832,8,23,4,0)="MONTH field (#1) concatenated with ""01"" for the day (DD) portion. "
^DD(727.832,8,"DT")="3060308"
^DD(727.832,9,0)="TIME^F^^0;10^K:$L(X)>6!($L(X)<6) X"
^DD(727.832,9,3)="Answer must be 6 characters in length."
^DD(727.832,9,21,0)="^^1^1^3060721^"
^DD(727.832,9,21,1,0)="Time the service was provided (6-digit military time)."
^DD(727.832,9,23,0)="^.001^2^2^3060721^^"
^DD(727.832,9,23,1,0)="This field is always exactly 6 numeric characters in length; if time"
^DD(727.832,9,23,2,0)="cannot be determined, then ""000300"" is used as default."
^DD(727.832,9,"DT")="3060308"
^DD(727.832,10,0)="TREATING SPECIALTY^F^^0;11^K:$L(X)>3!($L(X)<2) X"
^DD(727.832,10,3)="Answer must be 2-3 characters in length"
^DD(727.832,10,21,0)="^.001^2^2^3070502^^"
^DD(727.832,10,21,1,0)="The PTF CODE of the treating specialty associated with this extract record"
^DD(727.832,10,21,2,0)="form the SPECIALTY file (#42.4)."
^DD(727.832,10,23,0)="^.001^9^9^3070502^^"
^DD(727.832,10,23,1,0)="This field is initialized to a null, indicating an outpatient status. If a"
^DD(727.832,10,23,2,0)="call to IN5^VADPT (using the patient IEN and the event date) returns a"
^DD(727.832,10,23,3,0)="patient movement number (indicating inpatient status), then the value of"
^DD(727.832,10,23,4,0)="VAIP(8), which is the pointer to the FACILITY TREATING SPECIALTY file"
^DD(727.832,10,23,5,0)="(#45.7), is used to get the SPECIALTY field (1) which points to the"
^DD(727.832,10,23,6,0)="SPECIALTY file (#42.4). "
^DD(727.832,10,23,7,0)=" "
^DD(727.832,10,23,8,0)="Then, the PTF Code is obtained and stored instead of the actual specialty"
^DD(727.832,10,23,9,0)="code."
^DD(727.832,10,"DT")="3070420"
^DD(727.832,11,0)="ORDERING PROVIDER^F^^0;12^K:$L(X)>11!($L(X)<2) X"
^DD(727.832,11,3)="Answer must be 2-11 characters in length."
^DD(727.832,11,21,0)="^^2^2^3060721^"
^DD(727.832,11,21,1,0)="The IEN for the New Person file (#200) for the provider that ordered the"
^DD(727.832,11,21,2,0)="diet for the patient preceded by a 2."
^DD(727.832,11,23,0)="^.001^13^13^3060721^^"
^DD(727.832,11,23,1,0)="Inpatient diets, inpatient supplemental feedings and inpatient tube "
^DD(727.832,11,23,2,0)="feedings use the entry number for the Order file (#100) and use it to"
^DD(727.832,11,23,3,0)="retrieve CURRENT AGENT/PROVIDER field (#1) which is a pointer to the NEW "
^DD(727.832,11,23,4,0)="PERSON file (#200) and prefix it with a '2'."
^DD(727.832,11,23,5,0)=" "
^DD(727.832,11,23,6,0)="inpatient standing orders have no ordering provider."
^DD(727.832,11,23,7,0)=" "
^DD(727.832,11,23,8,0)="Outpatient recurring meals use the entry number for Order file (#100) and "
^DD(727.832,11,23,9,0)="use it to retrieve CURRENT AGENT/PROVIDER field (#1) which is a "
^DD(727.832,11,23,10,0)="pointer to the NEW PERSON file (#200) and prefix it with a '2'."
^DD(727.832,11,23,11,0)=" "
^DD(727.832,11,23,12,0)="Outpatient tube feedings, outpatient special meals and outpatient guest "
^DD(727.832,11,23,13,0)="meals have no ordering provider."
^DD(727.832,11,"DT")="3060504"
^DD(727.832,12,0)="ORDERING PROVIDER PERSON CLASS^F^^0;13^K:$L(X)>7!($L(X)<7) X"
^DD(727.832,12,3)="Answer must be 7 characters in length."
^DD(727.832,12,21,0)="^.001^3^3^3060711^^^^"
^DD(727.832,12,21,1,0)="VA Code of the Person Class of the patient's Ordering Provider. The VA "
^DD(727.832,12,21,2,0)="Code is always of the form ""V  + six numeric digits. In DSS this is "
^DD(727.832,12,21,3,0)="called Provider Type."
^DD(727.832,12,23,0)="^.001^2^2^3060721^^^"
^DD(727.832,12,23,1,0)="Provider Person Class is derived from the New Person File (#200), field"
^DD(727.832,12,23,2,0)="(#5) from Person Class file (#8932.1) using GET^XUA4A72 Kernel's API."
^DD(727.832,12,"DT")="3060504"
^DD(727.832,13,0)="PRIMARY CARE PROVIDER^F^^0;14^K:$L(X)>11!($L(X)<2) X"
^DD(727.832,13,3)="Answer must be 2-11 characters in length."
^DD(727.832,13,21,0)="^.001^1^1^3060721^^^"
^DD(727.832,13,21,1,0)="The primary care provider assigned to this patient."
^DD(727.832,13,23,0)="^^4^4^3060721^"
^DD(727.832,13,23,1,0)="Using the patient's DFN and the date of service a call is made to the "
^DD(727.832,13,23,2,0)="OUTPTPR^SDUTL3 API to retrieve the primary care team provider. The API "
^DD(727.832,13,23,3,0)="returns the IEN for the NEW PERSON file (#200) and the IEN is prefixed "
^DD(727.832,13,23,4,0)="with a '2'."
^DD(727.832,13,"DT")="3060504"
^DD(727.832,14,0)="PRIMARY CARE PRV PERSON CLASS^F^^0;15^K:$L(X)>7!($L(X)<7) X"
^DD(727.832,14,3)="Answer must be 7 characters in length."
^DD(727.832,14,21,0)="^.001^3^3^3060710^^^"
^DD(727.832,14,21,1,0)="VA Code of the Person Class of the patient s Primary Care Provider. The "
^DD(727.832,14,21,2,0)="VA Code is always of the form ""V  + six numeric digits. In DSS this is "
^DD(727.832,14,21,3,0)="called Provider Type."
^DD(727.832,14,23,0)="^^2^2^3060721^"
^DD(727.832,14,23,1,0)="Provider Person Class is derived from the New Person File (#200), field"
^DD(727.832,14,23,2,0)="(#5) from Person Class file (#8932.1) using GET^XUA4A72 Kernel's API."
^DD(727.832,14,"DT")="3060504"
^DD(727.832,15,0)="PRIMARY CARE TEAM^F^^0;16^K:$L(X)>4!($L(X)<1) X"
^DD(727.832,15,3)="Answer must be 1-4 characters in length."
^DD(727.832,15,21,0)="^.001^1^1^3060711^^^^"
^DD(727.832,15,21,1,0)="The primary care team assigned to this patient - TEAM file (#404.51)"
^DD(727.832,15,23,0)="^^4^4^3060721^"
^DD(727.832,15,23,1,0)="Using the patient's IEN from file (#2) and the date of encounter a call is"
^DD(727.832,15,23,2,0)="made to the Scheduling API, OUTPTTM^SDUTL3. The API returns the team's"
^DD(727.832,15,23,3,0)="internal entry number and name from the TEAM file (#404.51). Only the"
^DD(727.832,15,23,4,0)="pointer (IEN) to File (#404.51) is transmitted."
^DD(727.832,15,"DT")="3060504"
^DD(727.832,16,0)="MASTER PATIENT INDEX^F^^0;17^K:$L(X)>10!($L(X)<10) X"
^DD(727.832,16,3)="Answer must be 10 characters in length."
^DD(727.832,16,21,0)="^.001^1^1^3060711^^^^"
^DD(727.832,16,21,1,0)="A national VA system identifier that uniquely identifies a patient."
^DD(727.832,16,23,0)="^^2^2^3060721^"
^DD(727.832,16,23,1,0)="Using the patient'e IEN for the patient file (#2) a call is made to the "
^DD(727.832,16,23,2,0)="GETICN^MPIF001 API to retrieve the patient's ICN."
^DD(727.832,16,"DT")="3060504"
^DD(727.832,17,0)="DATE OF BIRTH^F^^0;18^K:$L(X)>8!($L(X)<1) X"
^DD(727.832,17,3)="Answer must be 1-8 characters in length."
^DD(727.832,17,21,0)="^.001^1^1^3060711^^^"
^DD(727.832,17,21,1,0)="Patient's date of birth."
^DD(727.832,17,23,0)="^^6^6^3060721^"
^DD(727.832,17,23,1,0)="NUTRITION PATIENT file (#115); NAME field (#.01) then to PATIENT file"
^DD(727.832,17,23,2,0)="(#2); DATE OF BIRTH field (#.03)"
^DD(727.832,17,23,3,0)=" "
^DD(727.832,17,23,4,0)="If Date of Birth cannot be determined, then January 1, 1942, is used as"
^DD(727.832,17,23,5,0)="default.  The data element is always exactly 8 numberic characters in"
^DD(727.832,17,23,6,0)="length.  Format is YYYYMMDD."
^DD(727.832,17,"DT")="3060504"
^DD(727.832,18,0)="SEX^S^M:MALE;F:FEMALE;^0;19^Q"
^DD(727.832,18,21,0)="^.001^1^1^3060711^^^"
^DD(727.832,18,21,1,0)="M for Male; F for Female"
^DD(727.832,18,23,0)="^^2^2^3060711^"
^DD(727.832,18,23,1,0)="Data is taken from the SEX field (#.02) of the patient's record in the"
^DD(727.832,18,23,2,0)="PATIENT file (#2)."
^DD(727.832,18,"DT")="3060504"
^DD(727.832,19,0)="RACE 1^F^^0;20^K:$L(X)>6!($L(X)<1) X"
^DD(727.832,19,3)="Answer must be 1-6 characters in length."
^DD(727.832,19,21,0)="^^1^1^3060711^"
^DD(727.832,19,21,1,0)="The patient's PTF Race code(s)."
^DD(727.832,19,23,0)="^.001^10^10^3060711^^"
^DD(727.832,19,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4),"
^DD(727.832,19,23,2,0)="RACE 1 is derived from the PTF VALUE field (#5) of the RACE file (#10)"
^DD(727.832,19,23,3,0)="pointed to by the RACE INFORMATION field (#.01) of the RACE INFORMATION"
^DD(727.832,19,23,4,0)="subfile (#2.02) of the PATIENT file (#2)."
^DD(727.832,19,23,5,0)=" "
^DD(727.832,19,23,6,0)="Only those RACE INFORMATION values in the RACE INFORMATION subfile (#2.03)"
^DD(727.832,19,23,7,0)="where the METHOD OF COLLECTION field (#.02) set to 1"
^DD(727.832,19,23,8,0)="(SELF-IDENTIFICATION), will be include in the RACE 1 field.  If any of the"
^DD(727.832,19,23,9,0)="RACE INFORMATION values returned is ""C"" (DECLINED TO ANSWER), that will be"
^DD(727.832,19,23,10,0)="the only value included in the RACE1 field."
^DD(727.832,19,"DT")="3060504"
^DD(727.832,20,0)="ETHNICITY^F^^0;21^K:$L(X)>6!($L(X)<1) X"
^DD(727.832,20,3)="Answer must be 1-6 characters in length."
^DD(727.832,20,21,0)="^^6^6^3060711^"
^DD(727.832,20,21,1,0)="Indicates the patient s Ethnicity. Possible  values are:"
^DD(727.832,20,21,2,0)="                                                                      "
^DD(727.832,20,21,3,0)="D = Declined to Answer"
^DD(727.832,20,21,4,0)="H = Hispanic or Latino"
^DD(727.832,20,21,5,0)="N = Not Hispanic or Latino"
^DD(727.832,20,21,6,0)="U = Unknown by Patient"""
^DD(727.832,20,23,0)="^^8^8^3060711^"
^DD(727.832,20,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field"
^DD(727.832,20,23,2,0)="(#4), ETHNICITY is derived from the PTF VALUE field (#5) of the ETHNICITY"
^DD(727.832,20,23,3,0)="file (#10.2) pointed to by the ETHNICITY INFORMATION field (#.01) of the"
^DD(727.832,20,23,4,0)="ETHNICITY INFORMATION subfile (#2.06) of the PATIENT file (#2)."
^DD(727.832,20,23,5,0)="                                 "
^DD(727.832,20,23,6,0)="The above will occur only if the METHOD OF COLLECTION field (#.02) of the"
^DD(727.832,20,23,7,0)="ETHNICITY INFORMATION subfile (#2.06) is set to 1 (SELF-IDENTIFICATION),"
^DD(727.832,20,23,8,0)="otherwise ETHNICITY with be set to null."
^DD(727.832,20,"DT")="3060504"
^DD(727.832,21,0)="VETERAN^S^N:NO;Y:YES;^0;22^Q"
^DD(727.832,21,21,0)="^.001^1^1^3060711^^"
^DD(727.832,21,21,1,0)="Veteran Status  -  'Y' or 'N'"
^DD(727.832,21,23,0)="^^3^3^3060721^"
^DD(727.832,21,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.832,21,23,2,0)="in the NUTRITION EXTRACT file (#727.832), VETERAN data is derived from the"
^DD(727.832,21,23,3,0)="VETERAN (Y/N)? field (1901) in the PATIENT file (#2)."
^DD(727.832,21,"DT")="3060504"
^DD(727.832,22,0)="ENROLLMENT STATUS^F^^0;23^K:$L(X)>2!($L(X)<1) X"
^DD(727.832,22,3)="Answer must be 1-2 characters in length."
^DD(727.832,22,21,0)="^.001^1^1^3060711^^"
^DD(727.832,22,21,1,0)="Derived from the Patient Enrollment file (#27.11)"
^DD(727.832,22,23,0)="^^3^3^3060721^"
^DD(727.832,22,23,1,0)="Using the patient's DFN call the UESTAT^EASUER enrollment status API and "
^DD(727.832,22,23,2,0)="check the USER ENROLLEE VALID THROUGH field (#.3617) to determine is the "
^DD(727.832,22,23,3,0)="patient enro0llment status is current."
^DD(727.832,22,"DT")="3060504"
^DD(727.832,23,0)="ENROLLMENT LOCATION^F^^0;24^K:$L(X)>7!($L(X)<1) X"
^DD(727.832,23,3)="Answer must be 1-7 characters in length."
^DD(727.832,23,21,0)="^.001^2^2^3060711^^"
^DD(727.832,23,21,1,0)="The facility that the patient chooses to designate as his preferred "
^DD(727.832,23,21,2,0)="location for care."
^DD(727.832,23,23,0)="^^5^5^3060721^"
^DD(727.832,23,23,1,0)="The PREFERRED FACILITY field (#27.02) of the PATIENT file (#2) is defined"
^DD(727.832,23,23,2,0)="as the facility that the patient chooses to designate as his preferred"
^DD(727.832,23,23,3,0)="location for care.  The PREFERRED FACILITY field (# 27.02) is a pointer to"
^DD(727.832,23,23,4,0)="the INSTITUTION file (#4).  From file (#4), the value in the STATION"
^DD(727.832,23,23,5,0)="NUMBER field (#99) is used."
^DD(727.832,23,"DT")="3060504"
^DD(727.832,24,0)="ENROLLMENT CATEGORY^F^^0;25^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,24,3)="Answer must be 1 character in length."
^DD(727.832,24,21,0)="^.001^2^2^3060711^^"
^DD(727.832,24,21,1,0)="Patient's enrollment category which is derived from the Patient "
^DD(727.832,24,21,2,0)="Enrollment file (#27.11)"
^DD(727.832,24,23,0)="^^4^4^3060711^"
^DD(727.832,24,23,1,0)="Using the patient's IEN form the PATIENT file (#2) call STATUS^DGENA "
^DD(727.832,24,23,2,0)="Registration's API and retrieve the ENROLLMENT CTAEGORY field (#.02)"
^DD(727.832,24,23,3,0)="associated with the current enrollment status from the ENROLLMENT "
^DD(727.832,24,23,4,0)="STATUS file (#27.15)."
^DD(727.832,24,"DT")="3060504"
^DD(727.832,25,0)="ENROLLMENT PRIORITY^F^^0;26^K:$L(X)>2!($L(X)<1) X"
^DD(727.832,25,3)="Answer must be 1-2 characters in length."
^DD(727.832,25,21,0)="^^2^2^3060721^"
^DD(727.832,25,21,1,0)="ENROLLMENT PRIORITY field contains the enrollment piority group and the "
^DD(727.832,25,21,2,0)="enrollment priority subgroup from the Patient Enrollment file (#27.11)."
^DD(727.832,25,23,0)="^^20^20^3060721^"
^DD(727.832,25,23,1,0)="ENROLLMENT PRIORITY field contains the enrollment priority group and the "
^DD(727.832,25,23,2,0)="enrollment priority subgroup from the Patient Enrollment file (#27.11). "
^DD(727.832,25,23,3,0)=" "
^DD(727.832,25,23,4,0)="ENROLLMENT PRIORITY Groups determined for a patient enrollment include:"
^DD(727.832,25,23,5,0)=" "
^DD(727.832,25,23,6,0)="                                '1' FOR GROUP 1 "
^DD(727.832,25,23,7,0)="                                '2' FOR GROUP 2 "
^DD(727.832,25,23,8,0)="                                '3' FOR GROUP 3 "
^DD(727.832,25,23,9,0)="                                '4' FOR GROUP 4 "
^DD(727.832,25,23,10,0)="                                '5' FOR GROUP 5 "
^DD(727.832,25,23,11,0)="                                '6' FOR GROUP 6 "
^DD(727.832,25,23,12,0)="                                '7' FOR GROUP 7 "
^DD(727.832,25,23,13,0)="                                '8' FOR GROUP 8 "
^DD(727.832,25,23,14,0)=" "
^DD(727.832,25,23,15,0)="ENROLLMENT PRIORITY Subgroups determined for a patient enrollment include:"
^DD(727.832,25,23,16,0)=" "
^DD(727.832,25,23,17,0)="                                'a' FOR 1 "
^DD(727.832,25,23,18,0)="                                'c' FOR 3 "
^DD(727.832,25,23,19,0)="                                'e' FOR 5 "
^DD(727.832,25,23,20,0)="                                'g' FOR 7   "
^DD(727.832,25,"DT")="3060504"
^DD(727.832,26,0)="ELIGIBILITY^F^^0;27^K:$L(X)>3!($L(X)<3) X"
^DD(727.832,26,3)="Answer must be 3 characters in length."
^DD(727.832,26,21,0)="^^2^2^3060721^"
^DD(727.832,26,21,1,0)="Patient's Primary Eligibility converted to NPCD eligibility code; "
^DD(727.832,26,21,2,0)="Eligibility code is based on veteran or non-veteran status."
^DD(727.832,26,23,0)="^^11^11^3060721^"
^DD(727.832,26,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4)"
^DD(727.832,26,23,2,0)="in the NUTRITION EXTRACT file (#727.832), ELIGIBILITY data is derived from"
^DD(727.832,26,23,3,0)="the PRIMARY ELIGIBILITY CODE field (.361) in the PATIENT file (#2). "
^DD(727.832,26,23,4,0)="PRIMARY ELIGIBILITY CODE is a pointer to the ELIGIBILITY CODE file (#8). "
^DD(727.832,26,23,5,0)="The data is derived from the MAS ELIGIBILITY CODE field (8) in the "
^DD(727.832,26,23,6,0)="ELIGIBILITY CODE file (#8) which in turn is a pointer to the MAS "
^DD(727.832,26,23,7,0)="ELIGIBILITY CODE file (#8.1). "
^DD(727.832,26,23,8,0)=" "
^DD(727.832,26,23,9,0)="The pointer value to file #8.1 is converted by ELIG^ECXUTL3 to the"
^DD(727.832,26,23,10,0)="corresponding eligibility code used by NPCD.  This code is composed of"
^DD(727.832,26,23,11,0)="two or three numeric characters."
^DD(727.832,26,"DT")="3060504"
^DD(727.832,27,0)="PERIOD OF SERVICE^F^^0;28^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,27,3)="Answer must be 1 character in length."
^DD(727.832,27,21,0)="^.001^2^2^3060711^^"
^DD(727.832,27,21,1,0)="The period of service, which best classifies this patient based on "
^DD(727.832,27,21,2,0)="eligibility code."
^DD(727.832,27,23,0)="^^2^2^3060711^"
^DD(727.832,27,23,1,0)="Period of Service is derived from the Period of Service field (#.323) in"
^DD(727.832,27,23,2,0)="the Patient file (#2)."
^DD(727.832,27,"DT")="3060504"
^DD(727.832,28,0)="AGENT ORANGE STATUS^S^N:NO;Y:YES;U:UNKNOWN;^0;29^Q"
^DD(727.832,28,21,0)="^.001^1^1^3060711^^"
^DD(727.832,28,21,1,0)="Agent Orange Exposure? Y/N/U"
^DD(727.832,28,23,0)="^^2^2^3060711^"
^DD(727.832,28,23,1,0)="PATIENT file (#2); AGENT ORANGE EXPOS. INDICATED? field (#.32102).  The"
^DD(727.832,28,23,2,0)="status indicator is returned by SVC^VADPT."
^DD(727.832,28,"DT")="3060504"
^DD(727.832,29,0)="AGENT ORANGE LOCATION^F^^0;30^K:$L(X)>2!($L(X)<2) X"
^DD(727.832,29,3)="Answer must be 2 characters in length."
^DD(727.832,29,21,0)="^^1^1^3060711^"
^DD(727.832,29,21,1,0)="This field contains the Agent Orange exposure location."
^DD(727.832,29,23,0)="^.001^2^2^3060711^^"
^DD(727.832,29,23,1,0)="Using the Patient Pointer (DFN), AGENT ORANGE LOCATION is derived from "
^DD(727.832,29,23,2,0)="the AGENT ORANGE EXPOSURE LOCATION field (.3213) of the PATIENT FILE (#2)."
^DD(727.832,29,"DT")="3060504"
^DD(727.832,30,0)="RADIATION STATUS^S^N:NO;Y:YES;^0;31^Q"
^DD(727.832,30,21,0)="^^1^1^3060711^"
^DD(727.832,30,21,1,0)="The patient's Ionizing Radiation status. (Y/N/U)"
^DD(727.832,30,23,0)="^.001^2^2^3060711^^"
^DD(727.832,30,23,1,0)="PATIENT file (#2); RADIATION EXPOSURE INDICATED? field (#.32103).  The"
^DD(727.832,30,23,2,0)="status indicator is returned by SVC^VADPT."
^DD(727.832,30,"DT")="3060504"
^DD(727.832,31,0)="ENVIRONMENTAL CONTAMINANTS^S^Y:YES;N:NO;U:UNKNOWN;^0;32^Q"
^DD(727.832,31,21,0)="^.001^2^2^3060711^^"
^DD(727.832,31,21,1,0)="This field indicates if the patient claims exposure to environmental "
^DD(727.832,31,21,2,0)="contaminants while serving in the Persian Gulf or Somalia."
^DD(727.832,31,23,0)="^^8^8^3060711^"
^DD(727.832,31,23,1,0)="This field is derived from the ENVIRONMENTAL CONTAMINANTS field (#.322013)"
^DD(727.832,31,23,2,0)="in the Patient File (#2) using the patient's DFN. The status indicator is"
^DD(727.832,31,23,3,0)="returned by SVC^VADPT. The SVC^VADPT called is made from routine"
^DD(727.832,31,23,4,0)="PAT^ECXUTL3. The field values are: "
^DD(727.832,31,23,5,0)=" "
^DD(727.832,31,23,6,0)="  Y = YES "
^DD(727.832,31,23,7,0)="  N = NO "
^DD(727.832,31,23,8,0)="  U = UNKNOWN"
^DD(727.832,31,"DT")="3060504"
^DD(727.832,32,0)="MST STATUS^S^N:NO;Y:YES;U:UNKNOWN;D:DENIED;^0;33^Q"
^DD(727.832,32,21,0)="^^1^1^3060711^"
^DD(727.832,32,21,1,0)="Military sexual trauma? (Y/N/U/D)"
^DD(727.832,32,23,0)="^^4^4^3060711^"
^DD(727.832,32,23,1,0)="The MST HISTORY file (#29.11) holds data regarding military sexual trauma"
^DD(727.832,32,23,2,0)="claims and effective dates.  The patients MST status is stored in the MST"
^DD(727.832,32,23,3,0)="STATUS field (#3).  A call will be made to $$GETSTAT^DGMSTAPI(DFN,DGDATE)"
^DD(727.832,32,23,4,0)="using the DFN in the PATIENT NO.  DFN field and the date in the DAY field."
^DD(727.832,32,"DT")="3060504"
^DD(727.832,33,0)="HEAD & NECK CANCER INDICATOR^S^Y:YES;N:NO;^0;34^Q"
^DD(727.832,33,21,0)="^.001^3^3^3060711^^"
^DD(727.832,33,21,1,0)="Identifies whether treatment is for Head and/or Neck Cancer. Values are "
^DD(727.832,33,21,2,0)="""Y  = Yes, the treatment is for Head/Neck Cancer or ""N  = No, treatment "
^DD(727.832,33,21,3,0)="is not related to Head/Neck cancer."
^DD(727.832,33,23,0)="^^3^3^3060711^"
^DD(727.832,33,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (4),"
^DD(727.832,33,23,2,0)="a call is made to $$GETCUR^DGNTAPI to retrieve the HEAD/NECK CA DX field"
^DD(727.832,33,23,3,0)="(#2.01) of the NOSE AND THROAT RADIUM HISTORY file (#28.11)."
^DD(727.832,33,"DT")="3060504"
^DD(727.832,34,0)="POW STATUS^S^N:NO;Y:YES;^0;35^Q"
^DD(727.832,34,21,0)="^.001^1^1^3060711^^^^"
^DD(727.832,34,21,1,0)="Indicates if patient was confined as a Prisoner of War "
^DD(727.832,34,23,0)="^.001^2^2^3060711^^"
^DD(727.832,34,23,1,0)="PATIENT file (#2); POW STATUS INDICATED? field (#.525).  The status"
^DD(727.832,34,23,2,0)="indicator is returned by SVC^VADPT."
^DD(727.832,34,"DT")="3060504"
^DD(727.832,35,0)="POW LOCATION^F^^0;36^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,35,3)="Answer must be 1 character in length."
^DD(727.832,35,21,0)="^.001^2^2^3060711^^^"
^DD(727.832,35,21,1,0)="If POW Status is indicated, this is the POW confinement location/period. "
^DD(727.832,35,21,2,0)="POW PERIOD file (#22)"
^DD(727.832,35,23,0)="^.001^3^3^3060711^^"
^DD(727.832,35,23,1,0)="PATIENT file (#2); POW CONFINEMENT LOCATION field (#.526).  This is a"
^DD(727.832,35,23,2,0)="pointer value to the POW PERIOD file (#22).  The location indicator is"
^DD(727.832,35,23,3,0)="returned by SVC^VADPT.  "
^DD(727.832,35,"DT")="3060504"
^DD(727.832,36,0)="PURPLE HEART INDICATOR^S^Y:YES;N:NO;^0;37^Q"
^DD(727.832,36,21,0)="^^1^1^3060711^"
^DD(727.832,36,21,1,0)="Indicates whether or not a patient is a Purple Heart recipient."
^DD(727.832,36,23,0)="^^2^2^3060711^"
^DD(727.832,36,23,1,0)="PATIENT file (#2); CURRENT PH INDICATOR field (#.531).The status indicator"
^DD(727.832,36,23,2,0)="is returned by SVC^VADPT."
^DD(727.832,36,"DT")="3060504"
^DD(727.832,37,0)="MEANS TEST^S^A:CATEGORY A;B:CATEGORY B;C:CATEGORY C;P:PENDING ADJUDICATION;R:REQUIRES MEANS TEST;N:MEANS TEST NOT REQUIRED;E:EXEMPT;I:INCOMPLETE;L:NO LONGER APPLICABLE;M:NON-EXEMPT;^0;38^Q"
^DD(727.832,37,21,0)="^.001^12^12^3060721^^"
^DD(727.832,37,21,1,0)="The current means test category for this patient - MEANS TEST STATUS file "
^DD(727.832,37,21,2,0)="(#408.32). Values are:"
^DD(727.832,37,21,3,0)="                                                                                       'A' FOR CATEGORY A;   "
^DD(727.832,37,21,4,0)="'B' FOR CATEGORY B; "
^DD(727.832,37,21,5,0)="'C' FOR CATEGORY C; "
^DD(727.832,37,21,6,0)="'P' FOR PENDING ADJUDICATION; "
^DD(727.832,37,21,7,0)="'R' FOR REQUIRES MEANS TEST; "
^DD(727.832,37,21,8,0)="'N' FOR MEANS TEST NOT REQUIRED; "
^DD(727.832,37,21,9,0)="'E' FOR EXEMPT; "
^DD(727.832,37,21,10,0)="'I' FOR INCOMPLETE; "
^DD(727.832,37,21,11,0)="'L' FOR NO LONGER APPLICABLE; "
^DD(727.832,37,21,12,0)="'M' FOR NON-EXEMPT. "
^DD(727.832,37,23,0)="^^6^6^3060721^"
^DD(727.832,37,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field"
^DD(727.832,37,23,2,0)="(#4) in the NUTRITION EXTRACT FILE (#727.832), MEANS TEST data is derived"
^DD(727.832,37,23,3,0)="from the CURRENT MEANS TEST STATUS field (#.14) in the PATIENT file"
^DD(727.832,37,23,4,0)="(#2).  This field is a pointer to the MEANS TEST STATUS file (#408.32).  "
^DD(727.832,37,23,5,0)="Using the means test pointer, the data is derived from the CODE field"
^DD(727.832,37,23,6,0)="(#.02) in the MEANS TEST STATUS file (#408.32)."
^DD(727.832,37,"DT")="3060504"
^DD(727.832,38,0)="STATE CODE^F^^0;39^K:$L(X)>2!($L(X)<2) X"
^DD(727.832,38,3)="Answer must be 2 characters in length."
^DD(727.832,38,21,0)="^.001^1^1^3060721^^^"
^DD(727.832,38,21,1,0)="The state in which the patient resides"
^DD(727.832,38,23,0)="^.001^5^5^3060721^^"
^DD(727.832,38,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.832,38,23,2,0)="in the NUTRITION EXTRACT file (#727.832), data is derived from the STATE"
^DD(727.832,38,23,3,0)="field (#.115) in the PATIENT file (#2) which points to the STATE file"
^DD(727.832,38,23,4,0)="(#5).  From the STATE file record, use the two character VA STATE CODE"
^DD(727.832,38,23,5,0)="field (#2)."
^DD(727.832,38,"DT")="3060504"
^DD(727.832,39,0)="COUNTY CODE^F^^0;40^K:$L(X)>3!($L(X)<3) X"
^DD(727.832,39,3)="Answer must be 3 characters in length."
^DD(727.832,39,21,0)="^.001^1^1^3060721^^^"
^DD(727.832,39,21,1,0)="The county in which the patient resides"
^DD(727.832,39,23,0)="^^9^9^3060721^"
^DD(727.832,39,23,1,0)="Using the patient pointer (DFN) stored in the PATIENT NO. - DFN field (#4)"
^DD(727.832,39,23,2,0)="in the NUTRITION EXTRACT file (#727.832), data is taken from the COUNTY"
^DD(727.832,39,23,3,0)="field (#.117) in the PATIENT file (#2) which points to a subfile record in"
^DD(727.832,39,23,4,0)="the COUNTY multiple field (#3) of the STATE file (#5).  A pointer to the"
^DD(727.832,39,23,5,0)="STATE file (#5) is obtained from the STATE field (#.115) of the file (#2)"
^DD(727.832,39,23,6,0)="record."
^DD(727.832,39,23,7,0)=" "
^DD(727.832,39,23,8,0)="From the subfile record of field (#3) of file (#5), use the value of"
^DD(727.832,39,23,9,0)="the VA COUNTY CODE field (#2)."
^DD(727.832,39,"DT")="3060504"
^DD(727.832,40,0)="ZIP+4^F^^1;1^K:$L(X)>10!($L(X)<5) X"
^DD(727.832,40,3)="Answer must be 5-10 characters in length."
^DD(727.832,40,21,0)="^.001^3^3^3060711^^"
^DD(727.832,40,21,1,0)="Zip+4 is the zip code for the city in which the patient resides using "
^DD(727.832,40,21,2,0)="format nnnnn-nnnn. The 5 character zip code is provided if the zip + 4 is "
^DD(727.832,40,21,3,0)="not available."
^DD(727.832,40,23,0)="^^2^2^3060711^"
^DD(727.832,40,23,1,0)="The patient's zip code with optional 4-digit extension as found in the"
^DD(727.832,40,23,2,0)="ZIP+4 field (#.1112) of the patient's record in the PATIENT file (#2)."
^DD(727.832,40,"DT")="3060504"
^DD(727.832,41,0)="OBSERVATION PATIENT INDICATOR^F^^1;2^K:$L(X)>4!($L(X)<1) X"
^DD(727.832,41,3)="Answer must be 1-4 characters in length."
^DD(727.832,41,21,0)="^^2^2^3060711^"
^DD(727.832,41,21,1,0)="This field is derived from the inpatient/outpatient status, treating"
^DD(727.832,41,21,2,0)="specialty, and DSS Identifier or feeder key values in the record."
^DD(727.832,41,"DT")="3060504"
^DD(727.832,42,0)="RRTP, PRRTP, SAARTP INDICATOR^F^^1;3^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,42,3)="Answer must be 1 character in length."
^DD(727.832,42,21,0)="^^4^4^3060711^"
^DD(727.832,42,21,1,0)="This field contains the RRTP, PRRTP or SAARTP code the patient is admitted"
^DD(727.832,42,21,2,0)="to at time of service. DOM is not longer used. It has been changed to "
^DD(727.832,42,21,3,0)="Residential Rehabilitation Treatment Program (RRTP) at the time the "
^DD(727.832,42,21,4,0)="hospital service is provided."
^DD(727.832,42,"DT")="3060504"
^DD(727.832,43,0)="ENCOUNTER NUMBER^F^^1;4^K:$L(X)>18!($L(X)<1) X"
^DD(727.832,43,3)="Answer must be 1-18 characters in length."
^DD(727.832,43,21,0)="^.001^8^8^3060711^^"
^DD(727.832,43,21,1,0)="The unique number assigned to each encounter within DSS - Inpatient   "
^DD(727.832,43,21,2,0)="Build inpatient encounter number in standard DSS fashion   SSN + Current "
^DD(727.832,43,21,3,0)="Admit Date (YYMMDD)+ ""I  (letter I)  Where SSN is from the SSN field (#5) "
^DD(727.832,43,21,4,0)="and Admission Date is from the Admission Date field (#58) "
^DD(727.832,43,21,5,0)=" "
^DD(727.832,43,21,6,0)="Outpatient   Concatenate SSN + Date + ""NUT  where SSN is from extract "
^DD(727.832,43,21,7,0)="field (#5) Where SSN is from the SSN field (#5) and the Date is the "
^DD(727.832,43,21,8,0)="5-character Julian value from the DAY field (#8)"
^DD(727.832,43,"DT")="3060504"
^DD(727.832,44,0)="PATIENT DIVISION^F^^1;5^K:$L(X)>6!($L(X)<1) X"
^DD(727.832,44,3)="Answer must be 1-6 characters in length."
^DD(727.832,44,21,0)="^.001^1^1^3060711^^^"
^DD(727.832,44,21,1,0)="Division in which patient's bed is located"
^DD(727.832,44,23,0)="^^5^5^3060721^"
^DD(727.832,44,23,1,0)="Using the movement record, identify the ward associated with the record "
^DD(727.832,44,23,2,0)="and retrieve the facility associated with the ward which is a pointer to"
^DD(727.832,44,23,3,0)="the Medical Center Division file (#40.8), then use field (#.07) which is a"
^DD(727.832,44,23,4,0)="pointer to the Institution file (#4). Use the GETDIV^ECXDEPT API and"
^DD(727.832,44,23,5,0)="retrieve the value from field (#99)."
^DD(727.832,44,"DT")="3060504"
^DD(727.832,45,0)="FOOD PRODUCTION DIVISION^F^^1;6^K:$L(X)>6!($L(X)<1) X"
^DD(727.832,45,3)="Answer must be 1-6 characters in length."
^DD(727.832,45,21,0)="^^3^3^3060721^"
^DD(727.832,45,21,1,0)="Division in which the kitchen is located. Take the value in the PRODUCTION"
^DD(727.832,45,21,2,0)="LOCATION field located on the DSS Nutrition Division Worksheet and return"
^DD(727.832,45,21,3,0)="the value of the ASSIGNED DIVISION field (#1)."
^DD(727.832,45,23,0)="^^3^3^3060721^"
^DD(727.832,45,23,1,0)="Use DSS NUTRITION DIVISION WORKSHEET file (#728.46) and resolve the FOOD "
^DD(727.832,45,23,2,0)="PRODUCTION DIVISION by looking for the name using the ""B"" cross "
^DD(727.832,45,23,3,0)="reference. Return the value for ASSIGNED DIVISION field (#1)."
^DD(727.832,45,"DT")="3060504"
^DD(727.832,46,0)="DELIVERY DIVISION^F^^1;7^K:$L(X)>6!($L(X)<1) X"
^DD(727.832,46,3)="Answer must be 1-6 characters in length."
^DD(727.832,46,21,0)="^.001^3^3^3060711^^"
^DD(727.832,46,21,1,0)="Division in which the meal was delivered.  Take the value in the DELIVERY "
^DD(727.832,46,21,2,0)="LOCATION field located on the DSS Nutrition Division Worksheet and return "
^DD(727.832,46,21,3,0)="the value of the Division that is determined there."
^DD(727.832,46,23,0)="^^3^3^3060721^"
^DD(727.832,46,23,1,0)="Using the delivery location go to the DSS NUTRITION DIVISION WORKSHEET  "
^DD(727.832,46,23,2,0)="file (#727.46) find the location name and retrieve the designated division"
^DD(727.832,46,23,3,0)="mapped to the delivery location."
^DD(727.832,46,"DT")="3060504"
^DD(727.832,47,0)="PRODUCT FEEDER KEY^F^^1;8^K:$L(X)>15!($L(X)<1) X"
^DD(727.832,47,3)="Answer must be 1-15 characters in length."
^DD(727.832,47,21,0)="^^1^1^3060711^"
^DD(727.832,47,21,1,0)="Standardized DSS product assigned by DSS NUTRITION PRODUCT worksheet."
^DD(727.832,47,23,0)="^^4^4^3060711^"
^DD(727.832,47,23,1,0)="The nutrition product is mapped to an assigned product in the DSS"
^DD(727.832,47,23,2,0)="NUTRITION PRODUCT WORKSHEET FILE (#728.45). Using the nutrition product "
^DD(727.832,47,23,3,0)="name do a lookup and retrieve the value for ASSIGNED PRODUT field (#1)  "
^DD(727.832,47,23,4,0)="of file (#728.45)."
^DD(727.832,47,"DT")="3060504"
^DD(727.832,48,0)="FOOD PRODUCTION FACILITY^F^^1;9^K:$L(X)>10!($L(X)<1) X"
^DD(727.832,48,3)="Answer must be 1-10 characters in length."
^DD(727.832,48,21,0)="^^1^1^3060711^"
^DD(727.832,48,21,1,0)="Kitchen location where product was prepared.  "
^DD(727.832,48,23,0)="^^14^14^3060721^"
^DD(727.832,48,23,1,0)="If inpatient = from #115.1.13 (dietetic ward) points to #119.6 (nutrition"
^DD(727.832,48,23,2,0)="location) which points to #119.72.2 (production facility)"
^DD(727.832,48,23,3,0)="or"
^DD(727.832,48,23,4,0)="If outpatient = If #115.16.1 (outpatient recurring meal) is present, then "
^DD(727.832,48,23,5,0)="use #115.16.2 (outpatient location) to point to (#119.6) (nutrition"
^DD(727.832,48,23,6,0)="location) which points to #119.72.2 (production facility)"
^DD(727.832,48,23,7,0)="or  "
^DD(727.832,48,23,8,0)="If #115.16.19 (outpatient tube feeding) is present then use #115.17.2 "
^DD(727.832,48,23,9,0)="(outpatient location) use to point to (#119.6) (nutrition location) which"
^DD(727.832,48,23,10,0)="points to #119.72.2 (production facility)     "
^DD(727.832,48,23,11,0)="or "
^DD(727.832,48,23,12,0)="If #115.18.5 (outpatient guest meal) is present then use #115.18.4 "
^DD(727.832,48,23,13,0)="(outpatient location) use to point to (#119.6) (nutrition location) which"
^DD(727.832,48,23,14,0)="points to #119.72.2 (production facility)"
^DD(727.832,48,"DT")="3060504"
^DD(727.832,49,0)="DELIVERY LOCATION TYPE^F^^1;10^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,49,3)="Answer must be 1 character in length."
^DD(727.832,49,21,0)="^^1^1^3060711^"
^DD(727.832,49,21,1,0)="Delivery point for product (Tray, Cafeteria or Dining Room) "
^DD(727.832,49,23,0)="^^4^4^3060721^"
^DD(727.832,49,23,1,0)="Use NUTRITION PATIENT file (#115) ADMISSION field (#1), DIET field (#3), "
^DD(727.832,49,23,2,0)="TYPE OF SERVICE field (#7). It is associated with the specific diet that"
^DD(727.832,49,23,3,0)="was delivered on the date in the DAY field Extract should fill with ""T"","
^DD(727.832,49,23,4,0)="""D"", or ""C"""
^DD(727.832,49,"DT")="3060504"
^DD(727.832,50,0)="DELIVERY FEEDER LOCATION^F^^1;11^K:$L(X)>10!($L(X)<1) X"
^DD(727.832,50,3)="Answer must be 1-10 characters in length."
^DD(727.832,50,21,0)="^^14^14^3070511^"
^DD(727.832,50,21,1,0)="Product Quantity - For Tube Feedings, the collection of GM is allowed in "
^DD(727.832,50,21,2,0)="addition to ML.  There are two source fields for this QUANTITY "
^DD(727.832,50,21,3,0)="information. For Tube Feedings with grams use the QUANTITY field; for "
^DD(727.832,50,21,4,0)="Tube Feeding liquid use PRODUCT ML'S/ DAY field."
^DD(727.832,50,21,5,0)=" "
^DD(727.832,50,21,6,0)="Outpatient - If outpatient tube feeding is present (#115.16.19), and "
^DD(727.832,50,21,7,0)="QUANTITY in (#115.16.19.2) is populated and contains 'GM' then use this "
^DD(727.832,50,21,8,0)="value. Otherwise fill with value from PRODUCT ML'S/DAY (#115.16.19.3) and "
^DD(727.832,50,21,9,0)="if null fill with ""1"" (one). "
^DD(727.832,50,21,10,0)=" "
^DD(727.832,50,21,11,0)="Inpatient - If TUBE FEEDING (#115.1.40) is present, and QUANTITY in "
^DD(727.832,50,21,12,0)="(#115.1.40.3.2) is populated and contains 'GM' then use this value. "
^DD(727.832,50,21,13,0)="Otherwise fill with value from PRODUCT ML'S/DAY field (#115.1.40.3.3) and "
^DD(727.832,50,21,14,0)="if null fill with ""1"" (one).  "
^DD(727.832,50,23,0)="^^14^14^3070511^"
^DD(727.832,50,23,1,0)="Product Quantity - For Tube Feedings, the collection of GM is allowed in "
^DD(727.832,50,23,2,0)="addition to ML.  There are two source fields for this QUANTITY "
^DD(727.832,50,23,3,0)="information. For Tube Feedings with grams use the QUANTITY field; for "
^DD(727.832,50,23,4,0)="Tube Feeding liquid use PRODUCT ML'S/ DAY field."
^DD(727.832,50,23,5,0)=" "
^DD(727.832,50,23,6,0)="Outpatient - If outpatient tube feeding is present (#115.16.19), and "
^DD(727.832,50,23,7,0)="QUANTITY in (#115.16.19.2) is populated and contains 'GM' then use this "
^DD(727.832,50,23,8,0)="value. Otherwise fill with value from PRODUCT ML'S/DAY (#115.16.19.3) and "
^DD(727.832,50,23,9,0)="if null fill with ""1"" (one). "
^DD(727.832,50,23,10,0)=" "
^DD(727.832,50,23,11,0)="Inpatient - If TUBE FEEDING (#115.1.40) is present, and QUANTITY in "
^DD(727.832,50,23,12,0)="(#115.1.40.3.2) is populated and contains 'GM' then use this value. "
^DD(727.832,50,23,13,0)="Otherwise fill with value from PRODUCT ML'S/DAY field (#115.1.40.3.3) and "
^DD(727.832,50,23,14,0)="if null fill with ""1"" (one).  "
^DD(727.832,50,"DT")="3060504"
^DD(727.832,51,0)="QUANTITY^F^^1;12^K:$L(X)>4!($L(X)<1) X"
^DD(727.832,51,3)="Answer must be 1-4 characters in length."
^DD(727.832,51,21,0)="^^20^20^3070511^"
^DD(727.832,51,21,1,0)="The logic for the DELIVERY FEEDER LOCATION, VistA field (#50)/DSS field "
^DD(727.832,51,21,2,0)="(#48), which is located on the NUTRITION (NUT) EXTRACT file (#727.832), "
^DD(727.832,51,21,3,0)="shall be modified for DELIVERY LOCATION TYPEs = 'T' or 'D'.  The patient "
^DD(727.832,51,21,4,0)="location where the product was delivered depends upon the value in the "
^DD(727.832,51,21,5,0)="DELIVERY LOCATION TYPE field.  The ASSOCIATED MAS WARD and  ASSOCIATED "
^DD(727.832,51,21,6,0)="HOSPITAL LOCATION fields shall be used in the logic for determining the "
^DD(727.832,51,21,7,0)="value for this field."
^DD(727.832,51,21,8,0)=" "
^DD(727.832,51,21,9,0)="If the DELIVERY LOCATION TYPE = ""T"" or ""D"" for inpatients, the DIETETIC "
^DD(727.832,51,21,10,0)="WARD (#115.1.13) shall be used to point to the ASSOCIATED MAS WARD (#2.5) "
^DD(727.832,51,21,11,0)="multiple (#119.63) in the  NUTRITION LOCATION file (#119.6) which includes"
^DD(727.832,51,21,12,0)="the ASSOCIATED MAS WARD sub-field (#.01). The .01 field is a pointer to"
^DD(727.832,51,21,13,0)="the HOSPITAL LOCATION FILE POINTER  field (#44) in the WARD LOCATION file"
^DD(727.832,51,21,14,0)="(#42),which is a pointer to  HOSPITAL LOCATION file (#44)."
^DD(727.832,51,21,15,0)=" "
^DD(727.832,51,21,16,0)="If the DELIVERY LOCATION TYPE = ""T"" or ""D"" for outpatients, the DIETETIC "
^DD(727.832,51,21,17,0)="WARD (#115.1.13) shall be used to point to the ASSOCIATED HOSPITAL "
^DD(727.832,51,21,18,0)="LOCATION (#2.6)  multiple (#119.64) in the NUTRITION LOCATION file "
^DD(727.832,51,21,19,0)="(#119.6) which includes the   ASSOCIATED HOSPITAL LOCATION sub-field "
^DD(727.832,51,21,20,0)="(#.01). The .01 field is pointer  to the  HOSPITAL LOCATION file (#44).   "
^DD(727.832,51,23,0)="^.001^19^19^3070511^^"
^DD(727.832,51,23,1,0)="The logic for the DELIVERY FEEDER LOCATION, VistA field (#50)/DSS field "
^DD(727.832,51,23,2,0)="(#48), which is located on the NUTRITION (NUT) EXTRACT file (#727.832), "
^DD(727.832,51,23,3,0)="shall be modified for DELIVERY LOCATION TYPEs = 'T' or 'D'.  The patient "
^DD(727.832,51,23,4,0)="location where the product was delivered depends upon the value in the "
^DD(727.832,51,23,5,0)="DELIVERY LOCATION TYPE field.  The ASSOCIATED MAS WARD and  ASSOCIATED "
^DD(727.832,51,23,6,0)="HOSPITAL LOCATION fields shall be used in the logic for determining the "
^DD(727.832,51,23,7,0)="value for this field."
^DD(727.832,51,23,8,0)="If the DELIVERY LOCATION TYPE = ""T"" or ""D"" for inpatients, the DIETETIC "
^DD(727.832,51,23,9,0)="WARD (#115.1.13) shall be used to point to the ASSOCIATED MAS WARD (#2.5) "
^DD(727.832,51,23,10,0)="multiple (#119.63)                    in the  NUTRITION LOCATION file "
^DD(727.832,51,23,11,0)="(#119.6) which includes the ASSOCIATED MAS WARD sub-field (#.01). The .01 "
^DD(727.832,51,23,12,0)="field is a pointer to the HOSPITAL LOCATION FILE POINTER  field (#44) in "
^DD(727.832,51,23,13,0)="the WARD LOCATION file (#42),which is a pointer to  HOSPITAL LOCATION "
^DD(727.832,51,23,14,0)="file (#44). "
^DD(727.832,51,23,15,0)="If the DELIVERY LOCATION TYPE = ""T"" or ""D"" for outpatients, the DIETETIC "
^DD(727.832,51,23,16,0)="WARD (#115.1.13) shall be used to point to the ASSOCIATED HOSPITAL "
^DD(727.832,51,23,17,0)="LOCATION (#2.6)  multiple (#119.64) in the NUTRITION LOCATION file "
^DD(727.832,51,23,18,0)="(#119.6) which includes the   ASSOCIATED HOSPITAL LOCATION sub-field "
^DD(727.832,51,23,19,0)="(#.01). The .01 field is pointer  to the  HOSPITAL LOCATION file (#44).   "
^DD(727.832,51,"DT")="3060504"
^DD(727.832,52,0)="CBOC STATUS^F^^1;13^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,52,3)="Answer must be 1 character in length."
^DD(727.832,52,21,0)="^.001^2^2^3060711^^^^"
^DD(727.832,52,21,1,0)="Community Based Outpatient Clinic (CBOC) values are ""Y"" (yes) the patient "
^DD(727.832,52,21,2,0)="was seen in a CBOC or Null if the patient was not seen in a CBOC."
^DD(727.832,52,23,0)="^.001^3^3^3060711^^"
^DD(727.832,52,23,1,0)="CBOC STATUS INDICATOR field is a pointer to the FACILITY TYPE file"
^DD(727.832,52,23,2,0)="(#4.1).  CBOC STATUS INDICATOR field is derived from the FACILITY TYPE"
^DD(727.832,52,23,3,0)="field (#13) of the INSTITUTION file (#4)."
^DD(727.832,52,"DT")="3060504"
^DD(727.832,53,0)="USER ENROLLEE^F^^1;14^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,53,3)="Answer must be 1 character in length."
^DD(727.832,53,21,0)="^^4^4^3060721^"
^DD(727.832,53,21,1,0)="User enrollee is determined by checking the Patient Enrollment file "
^DD(727.832,53,21,2,0)="(#27.11), when a user has a current or future fiscal year in the VistA"
^DD(727.832,53,21,3,0)="User Enrollee Status field set value to 'U' and Null if no date or a past"
^DD(727.832,53,21,4,0)="year's value is contained."
^DD(727.832,53,23,0)="^.001^4^4^3060721^^"
^DD(727.832,53,23,1,0)="Value is determined by the use of an API: I $$UESTAT^EASUER(DFN) S "
^DD(727.832,53,23,2,0)="ECXEUESTA='U'.- If a veteran has a User Enrollee status for the current "
^DD(727.832,53,23,3,0)="or future fiscal year, field is set to 'U'. If there is a past date or no"
^DD(727.832,53,23,4,0)="date, send Null."
^DD(727.832,53,"DT")="3060504"
^DD(727.832,54,0)="PATIENT TYPE^F^^1;15^K:$L(X)>2!($L(X)<1) X"
^DD(727.832,54,3)="Answer must be 1-2 characters in length."
^DD(727.832,54,21,0)="^^3^3^3060721^"
^DD(727.832,54,21,1,0)="PATIENT TYPE refers to the various types of patient which might be seen at"
^DD(727.832,54,21,2,0)="a VA facility. It is determined by the TYPE field of the PATIENT File (#2)"
^DD(727.832,54,21,3,0)="which points to the TYPE OF PATIENT entries in File (#391)."
^DD(727.832,54,23,0)="^.001^17^17^3060721^^"
^DD(727.832,54,23,1,0)="Refers to the various types of patients which might be seen at a VA "
^DD(727.832,54,23,2,0)="facility. It is determined by looking at the TYPE field of the PATIENT "
^DD(727.832,54,23,3,0)="file (#2) which points to the TYPE OF PATIENT entries in file (#391). "
^DD(727.832,54,23,4,0)="PATIENT TYPE best classifies a patient as one of the following values "
^DD(727.832,54,23,5,0)="listed below. The value for PATIENT TYPE shall contain only the first two"
^DD(727.832,54,23,6,0)="characters:"
^DD(727.832,54,23,7,0)=" "
^DD(727.832,54,23,8,0)="AC= ACTIVE DUTY"
^DD(727.832,54,23,9,0)="AL= ALLIED VETERAN"
^DD(727.832,54,23,10,0)="CO= COLLATERAL"
^DD(727.832,54,23,11,0)="EM= EMPLOYEE"
^DD(727.832,54,23,12,0)="IN= INELIGIBLE"
^DD(727.832,54,23,13,0)="MI= MILITARY RETIREE"
^DD(727.832,54,23,14,0)="NO= NON-VETERAN (OTHER)   "
^DD(727.832,54,23,15,0)="NS= NSC VETERAN   "
^DD(727.832,54,23,16,0)="SC= SC VETERAN   "
^DD(727.832,54,23,17,0)="TR= TRICARE  "
^DD(727.832,54,"DT")="3060504"
^DD(727.832,55,0)="CV STATUS ELIGIBILITY^F^^1;16^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,55,3)="Answer must be 1 character in length."
^DD(727.832,55,21,0)="^.001^3^3^3060711^^"
^DD(727.832,55,21,1,0)="Determined by the use of API $$CVEDT^DGCV (DFN. DATE) that checks the "
^DD(727.832,55,21,2,0)="Combat Vet End Date field (#.5295) from the Patient File (#2) to determine"
^DD(727.832,55,21,3,0)="CV Status.  "
^DD(727.832,55,23,0)="^^11^11^3060721^"
^DD(727.832,55,23,1,0)="CV STATUS ELIGIBILITY is determined by the use of  API $$CVEDT^DGCV (DFN. "
^DD(727.832,55,23,2,0)="DATE) that checks the Combat Vet End Date field (#.5295) from the Patient"
^DD(727.832,55,23,3,0)="File (#2) to determine CV Status.  API returns three pieces i.e. "
^DD(727.832,55,23,4,0)="1^3010106^0, the first piece is resolved as follows."
^DD(727.832,55,23,5,0)=" "
^DD(727.832,55,23,6,0)=" 1 - qualifies as a CV"
^DD(727.832,55,23,7,0)=" 0 - does not qualify as a CV"
^DD(727.832,55,23,8,0)="-1 - bad DFN or date"
^DD(727.832,55,23,9,0)=" "
^DD(727.832,55,23,10,0)="Based on these returns,  the value for this field shall be 'Y' for 'YES', "
^DD(727.832,55,23,11,0)="E for 'ELIGIBILITY EXPIRED' or 'NULL' for 'NOT ELIGIBLE'."
^DD(727.832,55,"DT")="3060504"
^DD(727.832,56,0)="NATIONAL PATIENT RECORD FLAG^F^^1;17^K:$L(X)>1!($L(X)<1) X"
^DD(727.832,56,3)="Answer must be 1 character in length."
^DD(727.832,56,21,0)="^^1^1^3060721^"
^DD(727.832,56,21,1,0)="Does the patient have a national patient record flag?"
^DD(727.832,56,23,0)="^^8^8^3060721^"
^DD(727.832,56,23,1,0)="NATIONAL PATIENT RECORD FLAG is located in the PRF National Flag File (#"
^DD(727.832,56,23,2,0)="26.15).  This file contains a list of the Category 1 (National) Patient"
^DD(727.832,56,23,3,0)="Record Flags that can be assigned to a patient. Category I flags are"
^DD(727.832,56,23,4,0)="established at a National level.   "
^DD(727.832,56,23,5,0)=" "
^DD(727.832,56,23,6,0)="NATIONAL PATIENT RECORD FLAG is retrieved via an API $$GETACT^DGPFAPI."
^DD(727.832,56,23,7,0)="Field value is ""Y "" if the Category I flag is present and active,"
^DD(727.832,56,23,8,0)="otherwise it is NULL."
^DD(727.832,56,"DT")="3060504"
^DD(727.832,57,0)="ERI^F^^1;18^K:$L(X)>2!($L(X)<1) X"
^DD(727.832,57,3)="Answer must be 1-2 characters in length."
^DD(727.832,57,21,0)="^^1^1^3060711^"
^DD(727.832,57,21,1,0)="Does patient have an emergency response indicator?"
^DD(727.832,57,23,0)="^.001^3^3^3060711^^"
^DD(727.832,57,23,1,0)="designated by the Federal Emergency Management Agency (FEMA). This field "
^DD(727.832,57,23,2,0)="is extracted from the EMERGENCY RESPONSE INDICATOR field (#.181) located "
^DD(727.832,57,23,3,0)="in the PATIENT file (#2). Values: K = Hurricane Katrina or Null."
^DD(727.832,57,"DT")="3060504"
^DD(727.832,58,0)="ADMISSION DATE^F^^1;19^K:$L(X)>8!($L(X)<1) X"
^DD(727.832,58,3)="Answer must be 1-8 characters in length."
^DD(727.832,58,21,0)="^^1^1^3060711^"
^DD(727.832,58,21,1,0)="Date on which the patient's admission occurred."
^DD(727.832,58,23,0)="^^2^2^3060711^"
^DD(727.832,58,23,1,0)="The field is 8 numeric characters in length. Format is YYYYMMDD. It is"
^DD(727.832,58,23,2,0)="retrieved from the  NUTRITION PERSON file (#115), ADMISSION field (.01)."
^DD(727.832,58,"DT")="3060504"
^DD(727.832,59,0)="OEF/OIF^F^^1;20^K:$L(X)>9!($L(X)<1) X"
^DD(727.832,59,3)="Answer must be 1-9 characters in length."
^DD(727.832,59,21,0)="^^3^3^3070502^"
^DD(727.832,59,21,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.832,59,21,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.832,59,21,3,0)="reflects the OEF or OIF where this patient was in combat. "
^DD(727.832,59,23,0)="^^12^12^3070502^"
^DD(727.832,59,23,1,0)="The Military Operation in which the patient was in combat during the "
^DD(727.832,59,23,2,0)="specified time period. This field is a length of nine characters and "
^DD(727.832,59,23,3,0)="reflects the OEF or OIF where this patient was in combat.  The value of "
^DD(727.832,59,23,4,0)="this field is derived from the LOCATION OF SERVICE field (#.01) from "
^DD(727.832,59,23,5,0)="SERVICE [OEF OR OIF] sub-file (#2.3215) of field (#.3215) located in the "
^DD(727.832,59,23,6,0)="PATIENT File (#2).  DSS will capture once, each location where the "
^DD(727.832,59,23,7,0)="veteran served. In order to accommodate multiple locations, the values "
^DD(727.832,59,23,8,0)="for this field are concatenated into this 9-character field. Possible "
^DD(727.832,59,23,9,0)="field values are one or more combinations of the following: "
^DD(727.832,59,23,10,0)="OEF =  Operation Enduring Freedom"
^DD(727.832,59,23,11,0)="OIF  =  Operation Iraqi Freedom"
^DD(727.832,59,23,12,0)="UNK =  Unknown OEF/OIF"
^DD(727.832,59,"DT")="3070502"
^DD(727.832,60,0)="OEF/OIF RETURN DATE^F^^1;21^K:$L(X)>8!($L(X)<1) X"
^DD(727.832,60,3)="Answer must be 1-8 characters in length."
^DD(727.832,60,21,0)="^^3^3^3070502^"
^DD(727.832,60,21,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.832,60,21,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.832,60,21,3,0)="has a format equal to YYYYMMDD."
^DD(727.832,60,23,0)="^^6^6^3070502^"
^DD(727.832,60,23,1,0)="The date the patient left the OEF/OIF area, if known. Otherwise, it is "
^DD(727.832,60,23,2,0)="the end date of military pay for this OEF/OIF deployment. This date field "
^DD(727.832,60,23,3,0)="has a format equal to YYYYMMDD.  The value of this field is derived from "
^DD(727.832,60,23,4,0)="the OEF/OIF TO DATE field (#.03) from sub-file (#2.3215) of field "
^DD(727.832,60,23,5,0)="(#.3215) located in the PATIENT file (#2).  In cases of multiple OEF/OIF "
^DD(727.832,60,23,6,0)="tours, this field contains only most recent return date. "
^DD(727.832,60,"DT")="3070502"
^DD(727.832,61,0)="TF UNITS^F^^1;22^K:$L(X)>2!($L(X)<1) X"
^DD(727.832,61,3)="Answer must be 1-2 characters in length."
^DD(727.832,61,21,0)="^^9^9^3070502^"
^DD(727.832,61,21,1,0)="This field has a length of  two characters.  If this record is for a tube "
^DD(727.832,61,21,2,0)="feeding and if the value in the NUT Extract QUANTITY VistA field "
^DD(727.832,61,21,3,0)="(#51)/DSS field (#49) is from the QUANTITY field from (#115.1.40.3), then "
^DD(727.832,61,21,4,0)="the value for this field is GM.  Otherwise, a check is made to validate "
^DD(727.832,61,21,5,0)="that the record is a tube feeding; and, if it is, the value for this "
^DD(727.832,61,21,6,0)="field is ML.  Possible field values are:"
^DD(727.832,61,21,7,0)="GM"
^DD(727.832,61,21,8,0)="ML "
^DD(727.832,61,21,9,0)="Null"
^DD(727.832,61,23,0)="^^9^9^3070502^"
^DD(727.832,61,23,1,0)="This field has a length of  two characters.  If this record is for a tube "
^DD(727.832,61,23,2,0)="feeding and if the value in the NUT Extract QUANTITY VistA field "
^DD(727.832,61,23,3,0)="(#51)/DSS field (#49) is from the QUANTITY field from (#115.1.40.3), then "
^DD(727.832,61,23,4,0)="the value for this field is GM.  Otherwise, a check is made to validate "
^DD(727.832,61,23,5,0)="that the record is a tube feeding; and, if it is, the value for this "
^DD(727.832,61,23,6,0)="field is ML.  Possible field values are:"
^DD(727.832,61,23,7,0)="GM"
^DD(727.832,61,23,8,0)="ML "
^DD(727.832,61,23,9,0)="Null"
^DD(727.832,61,"DT")="3070502"
^DD(727.832,62,0)="ORDERING PROVIDER NPI^F^^1;23^K:$L(X)>15!($L(X)<1) X"
^DD(727.832,62,3)="Answer must be 1-15 characters in length."
^DD(727.832,62,21,0)="^^3^3^3070502^"
^DD(727.832,62,21,1,0)="A standard unique life-long identifier of the ordering provider who "
^DD(727.832,62,21,2,0)="ordered the patient feeding.  This field has a length of fifteen "
^DD(727.832,62,21,3,0)="characters. "
^DD(727.832,62,23,0)="^^4^4^3070502^"
^DD(727.832,62,23,1,0)="A standard unique life-long identifier of the ordering provider who "
^DD(727.832,62,23,2,0)="ordered the patient feeding.  This field has a length of fifteen "
^DD(727.832,62,23,3,0)="characters.  The qualified identifier is retrieved via the supporting "
^DD(727.832,62,23,4,0)="Kernel API: $$NPI^XUSNPI."
^DD(727.832,62,"DT")="3070502"
^DD(727.832,63,0)="PRIMARY CARE PROVIDER NPI^F^^1;24^K:$L(X)>15!($L(X)<1) X"
^DD(727.832,63,3)="Answer must be 1-15 characters in length."
^DD(727.832,63,21,0)="^^2^2^3070827^"
^DD(727.832,63,21,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.832,63,21,2,0)="field has a length of fifteen characters."
^DD(727.832,63,23,0)="^^3^3^3070827^"
^DD(727.832,63,23,1,0)="A standard unique life-long identifier of the primary care provider. This "
^DD(727.832,63,23,2,0)="field has a length of fifteen characters.  The qualified identifier is "
^DD(727.832,63,23,3,0)="retrieved via the supporting Kernel API: $$NPI^XUSNPI."
^DD(727.832,63,"DT")="3070827"
^DD(727.832,"B","ADMISSION DATE",58)=""
^DD(727.832,"B","AGENT ORANGE LOCATION",29)=""
^DD(727.832,"B","AGENT ORANGE STATUS",28)=""
^DD(727.832,"B","CBOC STATUS",52)=""
^DD(727.832,"B","COUNTY CODE",39)=""
^DD(727.832,"B","CV STATUS ELIGIBILITY",55)=""
^DD(727.832,"B","DATE OF BIRTH",17)=""
^DD(727.832,"B","DAY",8)=""
^DD(727.832,"B","DELIVERY DIVISION",46)=""
^DD(727.832,"B","DELIVERY FEEDER LOCATION",50)=""
^DD(727.832,"B","DELIVERY LOCATION TYPE",49)=""
^DD(727.832,"B","ELIGIBILITY",26)=""
^DD(727.832,"B","ENCOUNTER NUMBER",43)=""
^DD(727.832,"B","ENROLLMENT CATEGORY",24)=""
^DD(727.832,"B","ENROLLMENT LOCATION",23)=""
^DD(727.832,"B","ENROLLMENT PRIORITY",25)=""
^DD(727.832,"B","ENROLLMENT STATUS",22)=""
^DD(727.832,"B","ENVIRONMENTAL CONTAMINANTS",31)=""
^DD(727.832,"B","ERI",57)=""
^DD(727.832,"B","ETHNICITY",20)=""
^DD(727.832,"B","EXTRACT NUMBER",2)=""
^DD(727.832,"B","FACILITY",3)=""
^DD(727.832,"B","FOOD PRODUCTION DIVISION",45)=""
^DD(727.832,"B","FOOD PRODUCTION FACILITY",48)=""
^DD(727.832,"B","HEAD & NECK CANCER INDICATOR",33)=""
^DD(727.832,"B","IN/OUT PATIENT INDICATOR",7)=""
^DD(727.832,"B","MASTER PATIENT INDEX",16)=""
^DD(727.832,"B","MEANS TEST",37)=""
^DD(727.832,"B","MST STATUS",32)=""
^DD(727.832,"B","NAME",6)=""
^DD(727.832,"B","NATIONAL PATIENT RECORD FLAG",56)=""
^DD(727.832,"B","OBSERVATION PATIENT INDICATOR",41)=""
^DD(727.832,"B","OEF/OIF",59)=""
^DD(727.832,"B","OEF/OIF RETURN DATE",60)=""
^DD(727.832,"B","ORDERING PROVIDER",11)=""
^DD(727.832,"B","ORDERING PROVIDER NPI",62)=""
^DD(727.832,"B","ORDERING PROVIDER PERSON CLASS",12)=""
^DD(727.832,"B","PATIENT DIVISION",44)=""
^DD(727.832,"B","PATIENT NO. - DFN",4)=""
^DD(727.832,"B","PATIENT TYPE",54)=""
^DD(727.832,"B","PERIOD OF SERVICE",27)=""
^DD(727.832,"B","POW LOCATION",35)=""
^DD(727.832,"B","POW STATUS",34)=""
^DD(727.832,"B","PRIMARY CARE PROVIDER",13)=""
^DD(727.832,"B","PRIMARY CARE PROVIDER NPI",63)=""
^DD(727.832,"B","PRIMARY CARE PRV PERSON CLASS",14)=""
^DD(727.832,"B","PRIMARY CARE TEAM",15)=""
^DD(727.832,"B","PRODUCT FEEDER KEY",47)=""
^DD(727.832,"B","PURPLE HEART INDICATOR",36)=""
^DD(727.832,"B","QUANTITY",51)=""
^DD(727.832,"B","RACE 1",19)=""
^DD(727.832,"B","RADIATION STATUS",30)=""
^DD(727.832,"B","RRTP, PRRTP, SAARTP INDICATOR",42)=""
^DD(727.832,"B","SEQUENCE NUMBER",.01)=""
^DD(727.832,"B","SEX",18)=""
^DD(727.832,"B","SSN",5)=""
^DD(727.832,"B","STATE CODE",38)=""
^DD(727.832,"B","TF UNITS",61)=""
^DD(727.832,"B","TIME",9)=""
^DD(727.832,"B","TREATING SPECIALTY",10)=""
^DD(727.832,"B","USER ENROLLEE",53)=""
^DD(727.832,"B","VETERAN",21)=""
^DD(727.832,"B","YEAR MONTH",1)=""
^DD(727.832,"B","ZIP+4",40)=""
^DD(727.832,"GL",0,1,.01)=""
^DD(727.832,"GL",0,2,1)=""
^DD(727.832,"GL",0,3,2)=""
^DD(727.832,"GL",0,4,3)=""
^DD(727.832,"GL",0,5,4)=""
^DD(727.832,"GL",0,6,5)=""
^DD(727.832,"GL",0,7,6)=""
^DD(727.832,"GL",0,8,7)=""
^DD(727.832,"GL",0,9,8)=""
^DD(727.832,"GL",0,10,9)=""
^DD(727.832,"GL",0,11,10)=""
^DD(727.832,"GL",0,12,11)=""
^DD(727.832,"GL",0,13,12)=""
^DD(727.832,"GL",0,14,13)=""
^DD(727.832,"GL",0,15,14)=""
^DD(727.832,"GL",0,16,15)=""
^DD(727.832,"GL",0,17,16)=""
^DD(727.832,"GL",0,18,17)=""
^DD(727.832,"GL",0,19,18)=""
^DD(727.832,"GL",0,20,19)=""
^DD(727.832,"GL",0,21,20)=""
^DD(727.832,"GL",0,22,21)=""
^DD(727.832,"GL",0,23,22)=""
^DD(727.832,"GL",0,24,23)=""
^DD(727.832,"GL",0,25,24)=""
^DD(727.832,"GL",0,26,25)=""
^DD(727.832,"GL",0,27,26)=""
^DD(727.832,"GL",0,28,27)=""
^DD(727.832,"GL",0,29,28)=""
^DD(727.832,"GL",0,30,29)=""
^DD(727.832,"GL",0,31,30)=""
^DD(727.832,"GL",0,32,31)=""
^DD(727.832,"GL",0,33,32)=""
^DD(727.832,"GL",0,34,33)=""
^DD(727.832,"GL",0,35,34)=""
^DD(727.832,"GL",0,36,35)=""
^DD(727.832,"GL",0,37,36)=""
^DD(727.832,"GL",0,38,37)=""
^DD(727.832,"GL",0,39,38)=""
^DD(727.832,"GL",0,40,39)=""
^DD(727.832,"GL",1,1,40)=""
^DD(727.832,"GL",1,2,41)=""
^DD(727.832,"GL",1,3,42)=""
^DD(727.832,"GL",1,4,43)=""
^DD(727.832,"GL",1,5,44)=""
^DD(727.832,"GL",1,6,45)=""
^DD(727.832,"GL",1,7,46)=""
^DD(727.832,"GL",1,8,47)=""
^DD(727.832,"GL",1,9,48)=""
^DD(727.832,"GL",1,10,49)=""
^DD(727.832,"GL",1,11,50)=""
^DD(727.832,"GL",1,12,51)=""
^DD(727.832,"GL",1,13,52)=""
^DD(727.832,"GL",1,14,53)=""
^DD(727.832,"GL",1,15,54)=""
^DD(727.832,"GL",1,16,55)=""
^DD(727.832,"GL",1,17,56)=""
^DD(727.832,"GL",1,18,57)=""
^DD(727.832,"GL",1,19,58)=""
^DD(727.832,"GL",1,20,59)=""
^DD(727.832,"GL",1,21,60)=""
^DD(727.832,"GL",1,22,61)=""
^DD(727.832,"GL",1,23,62)=""
^DD(727.832,"GL",1,24,63)=""
^DD(727.832,"IX",.01)=""
^DD(727.832,"IX",2)=""
^DD(727.832,"RQ",.01)=""
^DD(727.832,"RQ",2)=""
^DD(727.832,"RQ",3)=""
^DD(727.832,"RQ",4)=""
^DD(728,0)="FIELD^^70^68"
^DD(728,0,"DDA")="N"
^DD(728,0,"DT")="3031003"
^DD(728,0,"IX","B",728,.01)=""
^DD(728,0,"NM","DSS EXTRACTS")=""
^DD(728,0,"VR")="3.0"
^DD(728,0,"VRPK")="ECX"
^DD(728,.01,0)="NAME^RP4'^DIC(4,^0;1^Q"
^DD(728,.01,1,0)="^.1^^-1"
^DD(728,.01,1,1,0)="728^B"
^DD(728,.01,1,1,1)="S ^ECX(728,""B"",$E(X,1,30),DA)="""""
^DD(728,.01,1,1,2)="K ^ECX(728,""B"",$E(X,1,30),DA)"
^DD(728,.01,3)="Enter your DSS location or station number."
^DD(728,.01,21,0)="^.001^2^2^3031006^^^^"
^DD(728,.01,21,1,0)="This field contains a pointer to the corresponding location (station number)"
^DD(728,.01,21,2,0)="entry in the INSTITUTION file (#4)."
^DD(728,.01,23,0)="^.001^1^1^3031006^^^^"
^DD(728,.01,23,1,0)="Pointer to the INSTITUTION file (#4)."
^DD(728,.01,"DT")="3031003"
^DD(728,.5,0)="LAB LMIP^SI^0:NO;1:YES;^LMIP;1^Q"
^DD(728,.5,3)="Enter ""YES"" if you are ready to send LMIP Codes for LAB Extract."
^DD(728,.5,21,0)="^^15^15^2960605^"
^DD(728,.5,21,1,0)="This field is a flag that indicates whether a facility is ready to send "
^DD(728,.5,21,2,0)="LMIP codes for the LAB Extract. To answer ""YES"" to this question, the "
^DD(728,.5,21,3,0)="site must be able to answer ""YES"" to BOTH of the following questions:"
^DD(728,.5,21,4,0)=" "
^DD(728,.5,21,5,0)="1. They are in DSS Implementation Round 5 or higher, OR they are in IR1 "
^DD(728,.5,21,6,0)="   through IR4 and are extracting data for FY97 or beyond."
^DD(728,.5,21,7,0)="2. All Lab CO directives for LMIP have been completed at their facility."
^DD(728,.5,21,8,0)="   This means that their Lab Service has matched all entries in the "
^DD(728,.5,21,9,0)="   LABORATORY TEST file (#60) to an LMIP code and therefore they are "
^DD(728,.5,21,10,0)="   ready to use the new DSS LAB Extract version that sends only the LMIP "
^DD(728,.5,21,11,0)="   codes to DSS for their initial LAB Feeder Key Values."
^DD(728,.5,21,12,0)=" "
^DD(728,.5,21,13,0)="**NOTE** Once this field is set to ""YES"", the facility is not asked any "
^DD(728,.5,21,14,0)="of these questions again and will automatically use the new DSS LAB "
^DD(728,.5,21,15,0)="Extract version for all future extracts."
^DD(728,.5,"DT")="2970523"
^DD(728,7,0)="LAST DATE LAB^D^^7;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,7,3)="Enter the last date that information was extracted for Laboratory."
^DD(728,7,21,0)="^^2^2^2950314^^^^"
^DD(728,7,21,1,0)="This field contains the last date that Laboratory information was"
^DD(728,7,21,2,0)="extracted to the DSS software."
^DD(728,7,23,0)="^^2^2^2960625^^"
^DD(728,7,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,7,23,2,0)="the VA FileMan."
^DD(728,7,"DT")="2900522"
^DD(728,8,0)="LAST DATE OP PHARMACY^D^^7;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,8,3)="Enter the last date that information was extracted for Outpatient Pharmacy."
^DD(728,8,21,0)="^^2^2^2950314^^^"
^DD(728,8,21,1,0)="This field contains the last date that Outpatient Pharmacy information"
^DD(728,8,21,2,0)="was extracted to the DSS software."
^DD(728,8,23,0)="^^2^2^2951018^"
^DD(728,8,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,8,23,2,0)="the VA FileMan."
^DD(728,8,"DT")="2900522"
^DD(728,9,0)="LAST DATE EC^D^^7;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,9,3)="Enter the last date that information was extracted for Event Capture."
^DD(728,9,21,0)="^^2^2^2950314^^^^"
^DD(728,9,21,1,0)="This field contains the last date that Event Capture information was"
^DD(728,9,21,2,0)="extracted to the DSS software."
^DD(728,9,23,0)="^^2^2^2951018^"
^DD(728,9,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,9,23,2,0)="the VA FileMan."
^DD(728,9,"DT")="2940328"
^DD(728,10,0)="LAST DATE ADT^D^^7;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,10,3)="Enter the last date that information was extracted for ADT."
^DD(728,10,21,0)="^^2^2^2950315^^^^"
^DD(728,10,21,1,0)="This field contains the last date that MAS admission/discharge/transfer"
^DD(728,10,21,2,0)="information was extracted to the DSS software."
^DD(728,10,23,0)="^^2^2^2951018^"
^DD(728,10,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,10,23,2,0)="the VA FileMan."
^DD(728,10,"DT")="2900821"
^DD(728,11,0)="LAST DATE SURGERY^D^^7;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,11,3)="Enter the last date that information was extracted for Surgery."
^DD(728,11,21,0)="^^2^2^2950314^^^^"
^DD(728,11,21,1,0)="This field contains the last date that Surgery information was extracted"
^DD(728,11,21,2,0)="to the DSS software."
^DD(728,11,23,0)="^^2^2^2951018^"
^DD(728,11,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,11,23,2,0)="the VA FileMan."
^DD(728,11,"DT")="2900614"
^DD(728,12,0)="LAST DATE RADIOLOGY^D^^7;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,12,3)="Enter the last date that information was extracted for Radiology."
^DD(728,12,21,0)="^^2^2^2950314^^^^"
^DD(728,12,21,1,0)="This field contains the last date that Radiology information was extracted"
^DD(728,12,21,2,0)="to the DSS software."
^DD(728,12,23,0)="^^2^2^2951018^"
^DD(728,12,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,12,23,2,0)="the VA FileMan."
^DD(728,12,"DT")="2900821"
^DD(728,13,0)="LAST DATE NURSING^D^^7;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,13,3)="Enter the last date that information was extracted for Nursing."
^DD(728,13,21,0)="^^2^2^2950314^^"
^DD(728,13,21,1,0)="This field contains the last date that Nursing information was extracted "
^DD(728,13,21,2,0)="to the DSS software."
^DD(728,13,23,0)="^^2^2^2951018^"
^DD(728,13,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,13,23,2,0)="the VA FileMan."
^DD(728,13,"DT")="2901210"
^DD(728,14,0)="LAST DATE UD MEDS^D^^7;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,14,3)="Enter the last date that information was extracted for Pharmacy Unit Dose."
^DD(728,14,21,0)="^^2^2^2951018^^^"
^DD(728,14,21,1,0)="This field contains the last date that Pharmacy Unit Dose information"
^DD(728,14,21,2,0)="was extracted to the DSS software."
^DD(728,14,23,0)="^^2^2^2951018^"
^DD(728,14,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,14,23,2,0)="the VA FileMan."
^DD(728,14,"DT")="2910214"
^DD(728,15,0)="LAST DATE DENTAL^D^^7;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,15,3)="Enter the last date that information was extracted for Dental."
^DD(728,15,21,0)="^^2^2^2950314^^"
^DD(728,15,21,1,0)="This field contains the last date that Dental information was extracted"
^DD(728,15,21,2,0)="to the DSS software."
^DD(728,15,23,0)="^^2^2^2951018^"
^DD(728,15,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,15,23,2,0)="the VA FileMan."
^DD(728,15,"DT")="2910228"
^DD(728,16,0)="LAST DATE IFCAP^D^^7;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,16,3)="Enter the last date that information was extracted for IFCAP."
^DD(728,16,21,0)="^^2^2^2950314^^"
^DD(728,16,21,1,0)="This field contains the last date that IFCAP/DSS Unit information was"
^DD(728,16,21,2,0)="extracted to the DSS software."
^DD(728,16,23,0)="^^2^2^2951018^"
^DD(728,16,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,16,23,2,0)="the VA FileMan."
^DD(728,16,"DT")="2910228"
^DD(728,17,0)="LAST DATE CLINIC VISITS^D^^7;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,17,3)="Enter the last date that information was extracted for Clinic Visits."
^DD(728,17,21,0)="^^2^2^2950314^^"
^DD(728,17,21,1,0)="This field contains the last date that Clinic Visits information was"
^DD(728,17,21,2,0)="extracted to the DSS software."
^DD(728,17,23,0)="^^2^2^2951018^"
^DD(728,17,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,17,23,2,0)="the VA FileMan."
^DD(728,17,"DT")="2910322"
^DD(728,18,0)="LAST DATE WARD STOCK^D^^7;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,18,3)="Enter the last date that information was extracted for Ward Stock."
^DD(728,18,21,0)="^^2^2^2950314^^"
^DD(728,18,21,1,0)="This field contains the last date that Ward Stock information was extracted"
^DD(728,18,21,2,0)="to the DSS software."
^DD(728,18,23,0)="^^2^2^2951018^"
^DD(728,18,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,18,23,2,0)="the VA FileMan."
^DD(728,18,"DT")="2910514"
^DD(728,19,0)="LAST DATE ADMISSIONS^D^^7;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,19,3)="Enter the last date that information was extracted for Patient Admissions."
^DD(728,19,21,0)="^^2^2^2990413^^^^"
^DD(728,19,21,1,0)="This field contains the last date that Patient Admissions information"
^DD(728,19,21,2,0)="was extracted to the DSS software."
^DD(728,19,23,0)="^^2^2^2990413^^^^"
^DD(728,19,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,19,23,2,0)="the VA FileMan."
^DD(728,19,"DT")="2910603"
^DD(728,20,0)="LAST DATE MOVEMENT^D^^7;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,20,3)="Enter the last date that information was extracted for Patient Movement."
^DD(728,20,21,0)="^^2^2^2950314^^"
^DD(728,20,21,1,0)="This field contains the last date that Patient Movement information was"
^DD(728,20,21,2,0)="extracted to the DSS software."
^DD(728,20,23,0)="^^2^2^2951018^"
^DD(728,20,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,20,23,2,0)="the VA FileMan."
^DD(728,20,"DT")="2910603"
^DD(728,21,0)="LAST DATE NO SHOWS^D^^7;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,21,3)="Enter the last date that information was extracted for Clinic No-Shows."
^DD(728,21,21,0)="^^2^2^2950314^^"
^DD(728,21,21,1,0)="This field contains the last date that Clinic No-Shows information was"
^DD(728,21,21,2,0)="extracted to the DSS software."
^DD(728,21,23,0)="^^2^2^2951018^"
^DD(728,21,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,21,23,2,0)="the VA FileMan."
^DD(728,21,"DT")="2910604"
^DD(728,22,0)="LAB^S^R:RUNNING;^7.1;1^Q"
^DD(728,22,3)="Enter R if the extract is currently running."
^DD(728,22,21,0)="^^1^1^2950314^^"
^DD(728,22,21,1,0)="This field contains data if the Laboratory extract is currently running."
^DD(728,22,23,0)="^^2^2^2951018^"
^DD(728,22,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,22,23,2,0)="the VA FileMan."
^DD(728,22,"DT")="2910613"
^DD(728,23,0)="OP^S^R:RUNNING;^7.1;2^Q"
^DD(728,23,3)="Enter R if the extract is currently running."
^DD(728,23,21,0)="^^2^2^2950314^^^"
^DD(728,23,21,1,0)="This fields contains data if the Outpatient Pharmacy extract is currently"
^DD(728,23,21,2,0)="running."
^DD(728,23,23,0)="^^2^2^2951018^"
^DD(728,23,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,23,23,2,0)="the VA FileMan."
^DD(728,23,"DT")="2910613"
^DD(728,24,0)="EC^S^R:RUNNING;^7.1;3^Q"
^DD(728,24,3)="Enter R if the extract is currently running."
^DD(728,24,21,0)="^^1^1^2950314^^^"
^DD(728,24,21,1,0)="This field contains data if the Event Capture extract is currently running."
^DD(728,24,23,0)="^^2^2^2951018^"
^DD(728,24,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,24,23,2,0)="the VA FileMan."
^DD(728,24,"DT")="2910613"
^DD(728,25,0)="SURGERY^S^R:RUNNING;^7.1;5^Q"
^DD(728,25,3)="Enter R if the extract is currently running."
^DD(728,25,21,0)="^^1^1^2970929^^^"
^DD(728,25,21,1,0)="This field contains data if the Surgery extract is currently running."
^DD(728,25,23,0)="^^2^2^2970929^^"
^DD(728,25,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,25,23,2,0)="the VA FileMan."
^DD(728,25,"DT")="2910613"
^DD(728,26,0)="RADIOLOGY^S^R:RUNNING;^7.1;6^Q"
^DD(728,26,3)="Enter R if the extract is currently running."
^DD(728,26,21,0)="^^1^1^2950314^^"
^DD(728,26,21,1,0)="This field contains data if the Radiology extract is currently running."
^DD(728,26,23,0)="^^2^2^2951018^"
^DD(728,26,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,26,23,2,0)="the VA FileMan."
^DD(728,26,"DT")="2910613"
^DD(728,27,0)="NURSING^S^R:RUNNING;^7.1;7^Q"
^DD(728,27,3)="Enter R if the extract is currently running."
^DD(728,27,21,0)="^^1^1^2950314^^"
^DD(728,27,21,1,0)="This field contains data if the Nursing extract is currently running."
^DD(728,27,23,0)="^^2^2^2951018^"
^DD(728,27,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,27,23,2,0)="the VA FileMan."
^DD(728,27,"DT")="2910613"
^DD(728,28,0)="UD^S^R:RUNNING;^7.1;8^Q"
^DD(728,28,3)="Enter R if the extract is currently running."
^DD(728,28,21,0)="^^2^2^2951018^^^"
^DD(728,28,21,1,0)="This field contains data if the Pharmacy Unit Dose extract is currently"
^DD(728,28,21,2,0)="running."
^DD(728,28,23,0)="^^2^2^2951018^"
^DD(728,28,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,28,23,2,0)="the VA FileMan."
^DD(728,28,"DT")="2910613"
^DD(728,29,0)="ADT^S^R:RUNNING;^7.1;4^Q"
^DD(728,29,3)="Enter R if the extract is currently running."
^DD(728,29,21,0)="^^2^2^2950315^^"
^DD(728,29,21,1,0)="This field contains data if the MAS Admission/Discharge/Transfer extract"
^DD(728,29,21,2,0)="is currently running."
^DD(728,29,23,0)="^^2^2^2951018^"
^DD(728,29,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,29,23,2,0)="the VA FileMan."
^DD(728,29,"DT")="2910613"
^DD(728,30,0)="DENTAL^S^R:RUNNING;^7.1;9^Q"
^DD(728,30,3)="Enter R if the extract is currently running."
^DD(728,30,21,0)="^^1^1^2950315^^^"
^DD(728,30,21,1,0)="This field contains data if the Dental extract is currently running."
^DD(728,30,23,0)="^^2^2^2951018^"
^DD(728,30,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,30,23,2,0)="the VA FileMan."
^DD(728,30,"DT")="2910613"
^DD(728,31,0)="IFCAP^S^R:RUNNING;^7.1;10^Q"
^DD(728,31,3)="Enter R if the extract is currently running."
^DD(728,31,21,0)="^^2^2^2950315^^"
^DD(728,31,21,1,0)="This field contains data if the IFCAP/DSS Unit extract is currently"
^DD(728,31,21,2,0)="running."
^DD(728,31,23,0)="^^2^2^2951018^"
^DD(728,31,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,31,23,2,0)="the VA FileMan."
^DD(728,31,"DT")="2910613"
^DD(728,32,0)="CLINIC^S^R:RUNNING;^7.1;11^Q"
^DD(728,32,3)="Enter R if the extract is currently running."
^DD(728,32,21,0)="^^1^1^2951018^^^"
^DD(728,32,21,1,0)="This field contains data if the Clinic Visit extract is currently running."
^DD(728,32,23,0)="^^2^2^2951018^"
^DD(728,32,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,32,23,2,0)="the VA FileMan."
^DD(728,32,"DT")="2910613"
^DD(728,33,0)="WARD STOCK^S^R:RUNNING;^7.1;12^Q"
^DD(728,33,3)="Enter R if the extract is currently running."
^DD(728,33,21,0)="^^1^1^2950315^^"
^DD(728,33,21,1,0)="This field contains data if the Ward Stock extract is currently running."
^DD(728,33,23,0)="^^2^2^2951018^"
^DD(728,33,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,33,23,2,0)="the VA FileMan."
^DD(728,33,"DT")="2910613"
^DD(728,34,0)="ADMISSIONS^S^R:RUNNING;^7.1;13^Q"
^DD(728,34,3)="Enter R if the extract is currently running."
^DD(728,34,21,0)="^^2^2^2990413^^^^"
^DD(728,34,21,1,0)="This field contains data if the Patient Admissions extract is currently"
^DD(728,34,21,2,0)="running."
^DD(728,34,23,0)="^^2^2^2990413^^^^"
^DD(728,34,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,34,23,2,0)="the VA FileMan."
^DD(728,34,"DT")="2910613"
^DD(728,35,0)="MOVES^S^R:RUNNING;^7.1;14^Q"
^DD(728,35,3)="Enter R if the extract is currently running."
^DD(728,35,21,0)="^^2^2^2950315^^"
^DD(728,35,21,1,0)="This field contains data if the Patient Movements extract is currently"
^DD(728,35,21,2,0)="running."
^DD(728,35,23,0)="^^2^2^2951018^"
^DD(728,35,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,35,23,2,0)="the VA FileMan."
^DD(728,35,"DT")="2910613"
^DD(728,36,0)="NO SHOW^S^R:RUNNING;^7.1;15^Q"
^DD(728,36,3)="Enter R if the extract is currently running."
^DD(728,36,21,0)="^^1^1^2950315^^"
^DD(728,36,21,1,0)="This field contains data if the Clinic No-Show extract is currently running."
^DD(728,36,23,0)="^^2^2^2951018^"
^DD(728,36,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,36,23,2,0)="the VA FileMan."
^DD(728,36,"DT")="2910613"
^DD(728,37,0)="LAST DATE IVS^D^^7;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,37,3)="Enter the last date that information was extracted for Pharmacy IV."
^DD(728,37,21,0)="^^2^2^2980707^^^^"
^DD(728,37,21,1,0)="This field contains the last date that the Pharmacy IV information was"
^DD(728,37,21,2,0)="extracted to the DSS software."
^DD(728,37,23,0)="^^2^2^2980707^^^^"
^DD(728,37,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,37,23,2,0)="the VA FileMan."
^DD(728,37,"DT")="2911204"
^DD(728,38,0)="IVS^S^R:RUNNING;^7.1;16^Q"
^DD(728,38,3)="Enter R if the extract is currently running."
^DD(728,38,21,0)="^^1^1^2951018^^^^"
^DD(728,38,21,1,0)="This field contains data if the Pharmacy IV extract is currently running."
^DD(728,38,23,0)="^^2^2^2951018^^^^"
^DD(728,38,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,38,23,2,0)="the VA FileMan."
^DD(728,38,"DT")="2911204"
^DD(728,39,0)="LAST DATE TREATING SPECIALTY^D^^7;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,39,3)="Enter the last date that information was extracted for Treating Specialty Change."
^DD(728,39,21,0)="^^2^2^2951018^^^^"
^DD(728,39,21,1,0)="This field contains the last date that the Treating Specialty Change"
^DD(728,39,21,2,0)="information was extracted to the DSS software."
^DD(728,39,23,0)="^^2^2^2951018^^^^"
^DD(728,39,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,39,23,2,0)="the VA FileMan."
^DD(728,39,"DT")="2920410"
^DD(728,40,0)="TREATING SPEC^S^R:RUNNING;^7.1;17^Q"
^DD(728,40,3)="Enter R if the extract is currently running."
^DD(728,40,21,0)="^^2^2^2951018^^^"
^DD(728,40,21,1,0)="This field contains data if the Treating Specialty Change extract is"
^DD(728,40,21,2,0)="currently running."
^DD(728,40,23,0)="^^2^2^2951018^^^"
^DD(728,40,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,40,23,2,0)="the VA FileMan."
^DD(728,40,"DT")="2920410"
^DD(728,41,0)="LAST DATE IFCAP SUMMARY^D^^7;18^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,41,3)="Enter the last date that information was extracted for the IFCAP Summary."
^DD(728,41,21,0)="^^2^2^2951018^^^"
^DD(728,41,21,1,0)="This field contains the last date that IFCAP Summary information was"
^DD(728,41,21,2,0)="extracted to the DSS software."
^DD(728,41,23,0)="^^2^2^2951018^"
^DD(728,41,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,41,23,2,0)="the VA FileMan."
^DD(728,41,"DT")="2920826"
^DD(728,42,0)="IFCAP SUMMARY^S^R:RUNNING;^7.1;18^Q"
^DD(728,42,3)="Enter R if the extract is currently running."
^DD(728,42,21,0)="^^1^1^2950315^^"
^DD(728,42,21,1,0)="This field comntains data if the IFCAP Summary extract is currently running."
^DD(728,42,23,0)="^^2^2^2951018^"
^DD(728,42,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,42,23,2,0)="the VA FileMan."
^DD(728,42,"DT")="2920826"
^DD(728,43,0)="LAST DATE IV DETAIL^D^^7;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,43,3)="Enter the last date that information was extracted for the Pharmacy IV Detail."
^DD(728,43,21,0)="^^2^2^2980707^^^^"
^DD(728,43,21,1,0)="This field contains the last date that the Pharmacy IV Detail information"
^DD(728,43,21,2,0)="was extracted to the DSS software."
^DD(728,43,23,0)="^^2^2^2980707^^"
^DD(728,43,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,43,23,2,0)="the VA FileMan."
^DD(728,43,"DT")="2920922"
^DD(728,44,0)="IV DETAIL^S^R:RUNNING;^7.1;19^Q"
^DD(728,44,3)="Enter R if the extract is currently running."
^DD(728,44,21,0)="^^2^2^2951025^^^^"
^DD(728,44,21,1,0)="This field contains data if the Pharmacy IV Detail extract is currently"
^DD(728,44,21,2,0)="running."
^DD(728,44,23,0)="^^2^2^2951025^^^^"
^DD(728,44,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,44,23,2,0)="the VA FileMan."
^DD(728,44,"DT")="2920922"
^DD(728,45,0)="SETUP DATE^D^^S;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,45,3)="Enter the date that the Setup information was extracted."
^DD(728,45,21,0)="^^2^2^2951018^^^^"
^DD(728,45,21,1,0)="This field contains the last date that the Setup information"
^DD(728,45,21,2,0)="was extracted to the DSS software."
^DD(728,45,23,0)="^^2^2^2951018^"
^DD(728,45,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,45,23,2,0)="the VA FileMan."
^DD(728,45,"DT")="2921222"
^DD(728,46,0)="SETUP RUNNING^S^R:RUNNING;^S;2^Q"
^DD(728,46,3)="Enter R if the extract is currently running."
^DD(728,46,21,0)="^^1^1^2951018^^^"
^DD(728,46,21,1,0)="This field contains data if the Setup extract is running."
^DD(728,46,23,0)="^^2^2^2951018^"
^DD(728,46,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,46,23,2,0)="the VA FileMan."
^DD(728,46,"DT")="2921222"
^DD(728,47,0)="LAST DATE PAI^D^^7;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,47,3)="Enter the last date that information was extracted for PAI."
^DD(728,47,21,0)="^^2^2^2950315^^^"
^DD(728,47,21,1,0)="This field contains the last date that the PAI information was"
^DD(728,47,21,2,0)="extracted to the DSS software."
^DD(728,47,23,0)="^^2^2^2951018^^^^"
^DD(728,47,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,47,23,2,0)="the VA FileMan."
^DD(728,47,"DT")="2930106"
^DD(728,48,0)="PAI^S^R:RUNNING;^7.1;20^Q"
^DD(728,48,3)="Enter R if the extract is currently running."
^DD(728,48,21,0)="^^1^1^2950315^^"
^DD(728,48,21,1,0)="This field contains data if the PAI extract is currently running."
^DD(728,48,23,0)="^^2^2^2951018^^^"
^DD(728,48,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,48,23,2,0)="the VA FileMan."
^DD(728,48,"DT")="2930106"
^DD(728,49,0)="AUSTIN QUEUE NAME^FX^^QUEUE;1^K:$L(X)>3!($L(X)<3)!'(X?1""DM""1U)!(X=$P($G(^(""QUEUE"")),""^"",2)) X"
^DD(728,49,3)="Enter the three character identifier of the assigned Austin queue for your site."
^DD(728,49,21,0)="^^3^3^2960130^^^^"
^DD(728,49,21,1,0)="The name of the queue in Austin to which DSS data will be sent.  This"
^DD(728,49,21,2,0)="should be of the two characters DM followed by a single upper case"
^DD(728,49,21,3,0)="letter."
^DD(728,49,23,0)="7^^6^6^2960130^^^"
^DD(728,49,23,1,0)="This field determines the Austin queue to which data is sent."
^DD(728,49,23,2,0)="During implementation, sites at different stages may be asked"
^DD(728,49,23,3,0)="to direct transmission to different queues.  This field is used"
^DD(728,49,23,4,0)="by the routine ECXTRANS.  The entry in this field should begin"
^DD(728,49,23,5,0)="with the two letters DM.  The third letter will be assigned by"
^DD(728,49,23,6,0)="the Austin Automation Center."
^DD(728,49,"DT")="3030715"
^DD(728,50,0)="LAST DATE LAB RESULTS^D^^7;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,50,3)="Enter the last date that information was extracted for Lab Results."
^DD(728,50,21,0)="^^2^2^2951018^^^"
^DD(728,50,21,1,0)="This field contains the last date that the Laboratory Results information"
^DD(728,50,21,2,0)="was extracted to the DSS software."
^DD(728,50,23,0)="^^2^2^2951018^^"
^DD(728,50,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,50,23,2,0)="the VA FileMan."
^DD(728,50,"DT")="2950307"
^DD(728,51,0)="LAB RESULTS^S^R:RUNNING;^7.1;21^Q"
^DD(728,51,3)="Enter R if the extract is currently running."
^DD(728,51,21,0)="^^2^2^2951018^^"
^DD(728,51,21,1,0)="This field contains data if the Laboratory Results extract is currently"
^DD(728,51,21,2,0)="running."
^DD(728,51,23,0)="^^2^2^2951018^"
^DD(728,51,23,1,0)="This data is set by the extract routine.  Must not be manipulated via"
^DD(728,51,23,2,0)="the VA FileMan."
^DD(728,51,"DT")="2950307"
^DD(728,52,0)="RECIPIENT^D^^R1;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,52,3)="Enter the last date that Recipient information was extracted."
^DD(728,52,21,0)="^^2^2^2951018^^^"
^DD(728,52,21,1,0)="This field contains the last date that the Recipient information was"
^DD(728,52,21,2,0)="extracted to the Rational Meds software."
^DD(728,52,23,0)="^^2^2^2951018^^^^"
^DD(728,52,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,52,23,2,0)="the VA FileMan."
^DD(728,52,"DT")="2950728"
^DD(728,53,0)="PROVIDER^D^^R1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,53,3)="Enter the last date that Provider information was extracted."
^DD(728,53,21,0)="^^2^2^2951018^^"
^DD(728,53,21,1,0)="This field contains the last date that the Provider information was"
^DD(728,53,21,2,0)="extracted to the Rational Meds software."
^DD(728,53,23,0)="^^2^2^2951018^^"
^DD(728,53,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,53,23,2,0)="the VA FileMan."
^DD(728,53,"DT")="2950728"
^DD(728,54,0)="PHARMACY^D^^R1;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,54,3)="Enter the last date that Pharmacy Claim information was extracted."
^DD(728,54,21,0)="^^1^1^2951127^^^^"
^DD(728,54,21,1,0)="Enter the last date that Hospital Claim information was extracted."
^DD(728,54,23,0)="^^2^2^2951127^^^^"
^DD(728,54,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,54,23,2,0)="the VA FileMan."
^DD(728,54,"DT")="2950728"
^DD(728,55,0)="HOSPITAL^D^^R1;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,55,3)="Enter the last date that Hospital Claim information was extracted."
^DD(728,55,21,0)="^^2^2^2951018^^^"
^DD(728,55,21,1,0)="This field contains the last date that the Hospital Claim information"
^DD(728,55,21,2,0)="was extracted to the Rational Meds software."
^DD(728,55,23,0)="^^2^2^2951018^^^"
^DD(728,55,23,1,0)="This date is set by the extract routine.  Must not be manipulated via"
^DD(728,55,23,2,0)="the VA FileMan."
^DD(728,55,"DT")="2950728"
^DD(728,56,0)="IV CLAIM^D^^R1;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,56,21,0)="^^1^1^2951127^"
^DD(728,56,21,1,0)="The last date for which the Rational Meds IV claim was extracted."
^DD(728,56,23,0)="^^2^2^2951127^"
^DD(728,56,23,1,0)="This field is set by the extract routine and should not be"
^DD(728,56,23,2,0)="manipulated by using VA FileMan."
^DD(728,56,"DT")="2951127"
^DD(728,57,0)="LAST DATE QUASAR^D^^7;22^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,57,.1)="Last Date QUASAR"
^DD(728,57,3)="Enter the last date that information was extracted for QUASAR."
^DD(728,57,21,0)="^^2^2^2980706^^^^"
^DD(728,57,21,1,0)="This field contains the last date that Audiology and Speech Pathology"
^DD(728,57,21,2,0)="information was extracted to the DSS software."
^DD(728,57,23,0)="^^2^2^2980706^^^"
^DD(728,57,23,1,0)="This date is set by the extract routine.  It must not be manipulated"
^DD(728,57,23,2,0)="via VA FileMan."
^DD(728,57,"DT")="2960625"
^DD(728,58,0)="QUASAR^S^R:RUNNING;^7.1;22^Q"
^DD(728,58,3)="Enter R if the extract is currently running."
^DD(728,58,21,0)="^^1^1^2980706^^^"
^DD(728,58,21,1,0)="This field contains data if the QUASAR extract is currently running."
^DD(728,58,23,0)="^^2^2^2980706^^"
^DD(728,58,23,1,0)="This data is set by the extract routine.  It must not be manipulated"
^DD(728,58,23,2,0)="via VA FileMan."
^DD(728,58,"DT")="2960625"
^DD(728,59,0)="LAST DATE PROSTHETICS^728.059P^^1;0"
^DD(728,59,10)="The routine ^ECXTRAC adds entries as new Prosthetics Divisions are encountered."
^DD(728,59,21,0)="^^2^2^2980722^^^"
^DD(728,59,21,1,0)="This sub-file/field contains DSS Prosthetics divisions and their"
^DD(728,59,21,2,0)="respective LAST DATE(s) extracted."
^DD(728,59,23,0)="^^7^7^2980722^^^"
^DD(728,59,23,1,0)="This sub-file/field(s) are populated by the ECXTRAC routine.  The routine"
^DD(728,59,23,2,0)="looks for a given division as a Prosthetics extract processes.  If the"
^DD(728,59,23,3,0)="division is not an entry in this sub-file, it is added.  The respecitive"
^DD(728,59,23,4,0)="LAST DATE processed is also updated in this sub-file."
^DD(728,59,23,5,0)=" "
^DD(728,59,23,6,0)="This sub-file is DINUMed on the pointer to the Institution file (#4) in"
^DD(728,59,23,7,0)="the .01 field."
^DD(728,60,0)="PROSTHETICS^S^R:RUNNING;^7.1;23^Q"
^DD(728,60,21,0)="^^1^1^2980706^"
^DD(728,60,21,1,0)="This field contains data if the PROSTHETICS extract is currently running."
^DD(728,60,23,0)="^^2^2^2980706^"
^DD(728,60,23,1,0)="This data is set by the extract routine.  It must not be manipulated"
^DD(728,60,23,2,0)="via VA FileMan."
^DD(728,60,"DT")="2980706"
^DD(728,61,0)="LAST DATE MENTAL HEALTH^D^^7;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,61,21,0)="^^1^1^2990511^"
^DD(728,61,21,1,0)="The last date for which Mental Health data was extracted."
^DD(728,61,"DT")="2990511"
^DD(728,62,0)="MENTAL HEALTH^S^R:RUNNING;^7.1;24^Q"
^DD(728,62,21,0)="^^2^2^2990511^"
^DD(728,62,21,1,0)="If the Mental Health extract is running or queued to run, that is"
^DD(728,62,21,2,0)="indicated here."
^DD(728,62,"DT")="2990511"
^DD(728,63,0)="LAST DATE CLINIC I^D^^7;25^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,63,21,0)="^^1^1^2990511^"
^DD(728,63,21,1,0)="The last date for which Clinic Visit data was extracted."
^DD(728,63,"DT")="2990511"
^DD(728,64,0)="CLINIC I^S^R:RUNNING;^7.1;25^Q"
^DD(728,64,21,0)="^^2^2^2990511^"
^DD(728,64,21,1,0)="If the Clinic Visit extract is running or queued to run, that will"
^DD(728,64,21,2,0)="be indicated here."
^DD(728,64,"DT")="2990511"
^DD(728,65,0)="LAST DATE CLINIC II^D^^7;26^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728,65,21,0)="^^1^1^2990511^"
^DD(728,65,21,1,0)="Last date for which Clinic Visit data was extracted."
^DD(728,65,"DT")="2990511"
^DD(728,66,0)="CLINIC II^S^R:RUNNING;^7.1;26^Q"
^DD(728,66,21,0)="^^2^2^2990511^"
^DD(728,66,21,1,0)="If the Clinic Visit extract is running or queued to run, it will"
^DD(728,66,21,2,0)="be indicated here."
^DD(728,66,"DT")="2990511"
^DD(728,67,0)="AUSTIN TEST QUEUE NAME^FX^^QUEUE;2^K:$L(X)>3!($L(X)<3)!'(X?3U)!(X=$P($G(^(""QUEUE"")),""^"",1)) X"
^DD(728,67,3)="Enter the three character identifier of the Austin test queue"
^DD(728,67,21,0)="^^3^3^3030710^"
^DD(728,67,21,1,0)="The name of the test queue in Austin to which DSS data will be sent.  This"
^DD(728,67,21,2,0)="should be 3 upper case letters and can not be the same value as AUSTIN"
^DD(728,67,21,3,0)="QUEUE NAME (field #49)."
^DD(728,67,"DT")="3030711"
^DD(728,68,0)="CBOC REPORT VIEWED INDICATOR^728.068A^^2;0"
^DD(728,69,0)="LAST DATE LBB^D^^7;27^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(728,69,3)="(No range limit on date)"
^DD(728,69,21,0)="^^2^2^3050302^"
^DD(728,69,21,1,0)="This field contains the last date that blood bank data was extracted to"
^DD(728,69,21,2,0)="the DSS software."
^DD(728,69,23,0)="^^2^2^3050302^"
^DD(728,69,23,1,0)="This date is set by the extract routine.  Must not be manipulated via the "
^DD(728,69,23,2,0)="VA FileMan."
^DD(728,69,"DT")="3050302"
^DD(728,70,0)="LBB STATUS^S^R:RUNNING;^7.1;27^Q"
^DD(728,70,3)="Populated by the software"
^DD(728,70,21,0)="^^1^1^3041124^"
^DD(728,70,21,1,0)="Used to inform the user that the extract is presently running.  "
^DD(728,70,"DT")="3041124"
^DD(728,71,0)="LAST DATE NUT^D^^7;28^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728,71,21,0)="^.001^2^2^3060531^^"
^DD(728,71,21,1,0)="This field contains the last date that nutrition data was extracted to the"
^DD(728,71,21,2,0)="DSS software."
^DD(728,71,23,0)="^^2^2^3060531^"
^DD(728,71,23,1,0)="This date is set by the extract routine. Must not be manipulated via the"
^DD(728,71,23,2,0)="VA FileMan."
^DD(728,71,"DT")="3060531"
^DD(728,72,0)="NUT STATUS^S^R:RUNNING;^7.1;28^Q"
^DD(728,72,21,0)="^.001^1^1^3060531^^"
^DD(728,72,21,1,0)="Used to inform the user that the extract is presently running."
^DD(728,72,23,0)="^^2^2^3060531^"
^DD(728,72,23,1,0)="This data is set by the extract routine.  It must not be manipulated"
^DD(728,72,23,2,0)="via VA FileMan."
^DD(728,72,"DT")="3060531"
^DD(728,"B","ADMISSIONS",34)=""
^DD(728,"B","ADT",29)=""
^DD(728,"B","AUSTIN QUEUE NAME",49)=""
^DD(728,"B","AUSTIN TEST QUEUE NAME",67)=""
^DD(728,"B","CBOC REPORT VIEWED INDICATOR",68)=""
^DD(728,"B","CLINIC",32)=""
^DD(728,"B","CLINIC I",64)=""
^DD(728,"B","CLINIC II",66)=""
^DD(728,"B","DENTAL",30)=""
^DD(728,"B","EC",24)=""
^DD(728,"B","HOSPITAL",55)=""
^DD(728,"B","IFCAP",31)=""
^DD(728,"B","IFCAP SUMMARY",42)=""
^DD(728,"B","IV CLAIM",56)=""
^DD(728,"B","IV DETAIL",44)=""
^DD(728,"B","IVS",38)=""
^DD(728,"B","LAB",22)=""
^DD(728,"B","LAB LMIP",.5)=""
^DD(728,"B","LAB RESULTS",51)=""
^DD(728,"B","LAST DATE ADMISSIONS",19)=""
^DD(728,"B","LAST DATE ADT",10)=""
^DD(728,"B","LAST DATE CLINIC I",63)=""
^DD(728,"B","LAST DATE CLINIC II",65)=""
^DD(728,"B","LAST DATE CLINIC VISITS",17)=""
^DD(728,"B","LAST DATE DENTAL",15)=""
^DD(728,"B","LAST DATE EC",9)=""
^DD(728,"B","LAST DATE IFCAP",16)=""
^DD(728,"B","LAST DATE IFCAP SUMMARY",41)=""
^DD(728,"B","LAST DATE IV DETAIL",43)=""
^DD(728,"B","LAST DATE IVS",37)=""
^DD(728,"B","LAST DATE LAB",7)=""
^DD(728,"B","LAST DATE LAB RESULTS",50)=""
^DD(728,"B","LAST DATE LBB",69)=""
^DD(728,"B","LAST DATE MENTAL HEALTH",61)=""
^DD(728,"B","LAST DATE MOVEMENT",20)=""
^DD(728,"B","LAST DATE NO SHOWS",21)=""
^DD(728,"B","LAST DATE NURSING",13)=""
^DD(728,"B","LAST DATE NUT",71)=""
^DD(728,"B","LAST DATE OP PHARMACY",8)=""
^DD(728,"B","LAST DATE PAI",47)=""
^DD(728,"B","LAST DATE PROSTHETICS",59)=""
^DD(728,"B","LAST DATE QUASAR",57)=""
^DD(728,"B","LAST DATE RADIOLOGY",12)=""
^DD(728,"B","LAST DATE SURGERY",11)=""
^DD(728,"B","LAST DATE TREATING SPECIALTY",39)=""
^DD(728,"B","LAST DATE UD MEDS",14)=""
^DD(728,"B","LAST DATE WARD STOCK",18)=""
^DD(728,"B","LBB STATUS",70)=""
^DD(728,"B","Last Date QUASAR",57)="1"
^DD(728,"B","MENTAL HEALTH",62)=""
^DD(728,"B","MOVES",35)=""
^DD(728,"B","NAME",.01)=""
^DD(728,"B","NO SHOW",36)=""
^DD(728,"B","NURSING",27)=""
^DD(728,"B","NUT STATUS",72)=""
^DD(728,"B","OP",23)=""
^DD(728,"B","PAI",48)=""
^DD(728,"B","PHARMACY",54)=""
^DD(728,"B","PROSTHETICS",60)=""
^DD(728,"B","PROVIDER",53)=""
^DD(728,"B","QUASAR",58)=""
^DD(728,"B","RADIOLOGY",26)=""
^DD(728,"B","RECIPIENT",52)=""
^DD(728,"B","SETUP DATE",45)=""
^DD(728,"B","SETUP RUNNING",46)=""
^DD(728,"B","SURGERY",25)=""
^DD(728,"B","TREATING SPEC",40)=""
^DD(728,"B","UD",28)=""
^DD(728,"B","WARD STOCK",33)=""
^DD(728,"GL",0,1,.01)=""
^DD(728,"GL",1,0,59)=""
^DD(728,"GL",2,0,68)=""
^DD(728,"GL",7,1,7)=""
^DD(728,"GL",7,2,8)=""
^DD(728,"GL",7,3,9)=""
^DD(728,"GL",7,4,10)=""
^DD(728,"GL",7,5,11)=""
^DD(728,"GL",7,6,12)=""
^DD(728,"GL",7,7,13)=""
^DD(728,"GL",7,8,14)=""
^DD(728,"GL",7,9,15)=""
^DD(728,"GL",7,10,16)=""
^DD(728,"GL",7,11,17)=""
^DD(728,"GL",7,12,18)=""
^DD(728,"GL",7,13,19)=""
^DD(728,"GL",7,14,20)=""
^DD(728,"GL",7,15,21)=""
^DD(728,"GL",7,16,37)=""
^DD(728,"GL",7,17,39)=""
^DD(728,"GL",7,18,41)=""
^DD(728,"GL",7,19,43)=""
^DD(728,"GL",7,20,47)=""
^DD(728,"GL",7,21,50)=""
^DD(728,"GL",7,22,57)=""
^DD(728,"GL",7,24,61)=""
^DD(728,"GL",7,25,63)=""
^DD(728,"GL",7,26,65)=""
^DD(728,"GL",7,27,69)=""
^DD(728,"GL",7,28,71)=""
^DD(728,"GL",7.1,1,22)=""
^DD(728,"GL",7.1,2,23)=""
^DD(728,"GL",7.1,3,24)=""
^DD(728,"GL",7.1,4,29)=""
^DD(728,"GL",7.1,5,25)=""
^DD(728,"GL",7.1,6,26)=""
^DD(728,"GL",7.1,7,27)=""
^DD(728,"GL",7.1,8,28)=""
^DD(728,"GL",7.1,9,30)=""
^DD(728,"GL",7.1,10,31)=""
^DD(728,"GL",7.1,11,32)=""
^DD(728,"GL",7.1,12,33)=""
^DD(728,"GL",7.1,13,34)=""
^DD(728,"GL",7.1,14,35)=""
^DD(728,"GL",7.1,15,36)=""
^DD(728,"GL",7.1,16,38)=""
^DD(728,"GL",7.1,17,40)=""
^DD(728,"GL",7.1,18,42)=""
^DD(728,"GL",7.1,19,44)=""
^DD(728,"GL",7.1,20,48)=""
^DD(728,"GL",7.1,21,51)=""
^DD(728,"GL",7.1,22,58)=""
^DD(728,"GL",7.1,23,60)=""
^DD(728,"GL",7.1,24,62)=""
^DD(728,"GL",7.1,25,64)=""
^DD(728,"GL",7.1,26,66)=""
^DD(728,"GL",7.1,27,70)=""
^DD(728,"GL",7.1,28,72)=""
^DD(728,"GL","LMIP",1,.5)=""
^DD(728,"GL","QUEUE",1,49)=""
^DD(728,"GL","QUEUE",2,67)=""
^DD(728,"GL","R1",1,52)=""
^DD(728,"GL","R1",2,53)=""
^DD(728,"GL","R1",3,54)=""
^DD(728,"GL","R1",4,55)=""
^DD(728,"GL","R1",5,56)=""
^DD(728,"GL","S",1,45)=""
^DD(728,"GL","S",2,46)=""
^DD(728,"IX",.01)=""
^DD(728,"RQ",.01)=""
^DD(728,"SB",728.059,59)=""
^DD(728,"SB",728.068,68)=""
^DD(728.059,0)="LAST DATE PROSTHETICS SUB-FIELD^^1^2"
^DD(728.059,0,"DT")="2980722"
^DD(728.059,0,"IX","B",728.059,.01)=""
^DD(728.059,0,"NM","LAST DATE PROSTHETICS")=""
^DD(728.059,0,"UP")="728"
^DD(728.059,.01,0)="DIVISION^P4^DIC(4,^0;1^Q"
^DD(728.059,.01,.1)="Division"
^DD(728.059,.01,1,0)="^.1"
^DD(728.059,.01,1,1,0)="728.059^B"
^DD(728.059,.01,1,1,1)="S ^ECX(728,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(728.059,.01,1,1,2)="K ^ECX(728,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(728.059,.01,3)="Enter the Division for the Prosthetics extract"
^DD(728.059,.01,10)="Routine ECXTRAC populates this field as a Prosthetics extract processes."
^DD(728.059,.01,21,0)="^^2^2^2980722^^^"
^DD(728.059,.01,21,1,0)="This field indicates the division for which Prosthetics information has"
^DD(728.059,.01,21,2,0)="been extracted."
^DD(728.059,.01,23,0)="^^6^6^2980722^^"
^DD(728.059,.01,23,1,0)="This field is populated by ^ECXTRAC.  If the Prosthetics division that"
^DD(728.059,.01,23,2,0)="the Prosthetics extract is processing is not an entry in this file, it"
^DD(728.059,.01,23,3,0)="is added."
^DD(728.059,.01,23,4,0)=" "
^DD(728.059,.01,23,5,0)="This field is a pointer to the Institution file (#4) and the IEN for the"
^DD(728.059,.01,23,6,0)="sub-file is DINUMed on this value."
^DD(728.059,.01,"DT")="2980722"
^DD(728.059,1,0)="LAST DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(728.059,1,3)="Enter the last date that information was extracted for Prosthetics."
^DD(728.059,1,10)="ECXTRAC populates this field during the Prosthetics extract process."
^DD(728.059,1,21,0)="^^2^2^2980722^^"
^DD(728.059,1,21,1,0)="The LAST DATE field indicates the last date that the prosthetics extract"
^DD(728.059,1,21,2,0)="was completed for the division indicated in the Division (.01) field."
^DD(728.059,1,23,0)="^^3^3^2980722^"
^DD(728.059,1,23,1,0)="This field is populated by ^ECXTRAC when the DSS Prosthetics extract is"
^DD(728.059,1,23,2,0)="processing.  It is the end date the user enters when generating the"
^DD(728.059,1,23,3,0)="Prosthetics extract."
^DD(728.059,1,"DT")="2980722"
^DD(728.059,"B","DIVISION",.01)=""
^DD(728.059,"B","Division",.01)="1"
^DD(728.059,"B","LAST DATE",1)=""
^DD(728.059,"GL",0,1,.01)=""
^DD(728.059,"GL",0,2,1)=""
^DD(728.059,"IX",.01)=""
^DD(728.068,0)="CBOC REPORT VIEWED INDICATOR SUB-FIELD^^.01^1"
^DD(728.068,0,"DT")="3031003"
^DD(728.068,0,"IX","B",728.068,.01)=""
^DD(728.068,0,"NM","CBOC REPORT VIEWED INDICATOR")=""
^DD(728.068,0,"UP")="728"
^DD(728.068,.01,0)="CBOC REPORT VIEWED INDICATOR^NJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(728.068,.01,1,0)="^.1"
^DD(728.068,.01,1,1,0)="728.068^B"
^DD(728.068,.01,1,1,1)="S ^ECX(728,DA(1),""CBOC"",""B"",$E(X,1,30),DA)="""""
^DD(728.068,.01,1,1,2)="K ^ECX(728,DA(1),""CBOC"",""B"",$E(X,1,30),DA)"
^DD(728.068,.01,1,1,"%D",0)="^^1^1^3031006^"
^DD(728.068,.01,1,1,"%D",1,0)="CBOC Cross Reference"
^DD(728.068,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(728.068,.01,"DT")="3031006"
^DD(728.068,"B","CBOC REPORT VIEWED INDICATOR",.01)=""
^DD(728.068,"GL",0,1,.01)=""
^DD(728.068,"IX",.01)=""
^DD(728.113,0)="FIELD^^16^17"
^DD(728.113,0,"DT")="2961101"
^DD(728.113,0,"IX","A",728.113,2)=""
^DD(728.113,0,"IX","AC",728.113,10)=""
^DD(728.113,0,"IX","AINV",728.113,.01)=""
^DD(728.113,0,"IX","AREV",728.113,2)=""
^DD(728.113,0,"NM","IV EXTRACT DATA")=""
^DD(728.113,0,"VR")="3.0"
^DD(728.113,0,"VRPK")="DSS EXTRACTS"
^DD(728.113,.01,0)="SEQUENCE NUMBER^RNJ6,0XI^^0;1^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(728.113,.01,.1)="Sequence Number"
^DD(728.113,.01,1,0)="^.1"
^DD(728.113,.01,1,1,0)="728.113^AINV^MUMPS"
^DD(728.113,.01,1,1,1)="S ^ECX(728.113,""AINV"",-X,DA)="""""
^DD(728.113,.01,1,1,2)="K ^ECX(728.113,""AINV"",-X,DA)"
^DD(728.113,.01,1,1,3)="DO NOT DELETE."
^DD(728.113,.01,1,1,"%D",0)="^^3^3^2960919^^^^"
^DD(728.113,.01,1,1,"%D",1,0)="This is an inverse entry cross reference.  It is used to find the"
^DD(728.113,.01,1,1,"%D",2,0)="last entry in the file.  It is essential for the management of the"
^DD(728.113,.01,1,1,"%D",3,0)="data held in this file."
^DD(728.113,.01,1,1,"DT")="2950926"
^DD(728.113,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(728.113,.01,21,0)="^^1^1^2960919^"
^DD(728.113,.01,21,1,0)="The record number for this extract entry."
^DD(728.113,.01,23,0)="^^1^1^2960919^"
^DD(728.113,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(728.113,.01,"DT")="2960919"
^DD(728.113,1,0)="DFN^P2'I^DPT(^0;2^Q"
^DD(728.113,1,.1)="Patient Number"
^DD(728.113,1,3)="Enter the name of the patient for this extract record."
^DD(728.113,1,21,0)="^^2^2^2960919^^^^"
^DD(728.113,1,21,1,0)="Enter the name of the patient receiving medication for this extract "
^DD(728.113,1,21,2,0)="record."
^DD(728.113,1,23,0)="^^3^3^2960919^^^"
^DD(728.113,1,23,1,0)="Derived from the NAME field (.01) in the PHARMACY PATIENT file (#55) "
^DD(728.113,1,23,2,0)="which is DINUMed to the PATIENT file (#2). This data represents the "
^DD(728.113,1,23,3,0)="patient DFN."
^DD(728.113,1,"DT")="2960919"
^DD(728.113,2,0)="ORDER NUMBER^NJ5,0I^^0;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(728.113,2,.1)="Order Number"
^DD(728.113,2,1,0)="^.1"
^DD(728.113,2,1,1,0)="728.113^A^MUMPS"
^DD(728.113,2,1,1,1)="S ^ECX(728.113,""A"",$P($P(^ECX(728.113,DA,0),""^"",5),"".""),$P(^ECX(728.113,DA,0),""^"",2),X,DA)="""""
^DD(728.113,2,1,1,2)="K ^ECX(728.113,""A"",$P($P(^ECX(728.113,DA,0),""^"",5),"".""),$P(^ECX(728.113,DA,0),""^"",2),X,DA)"
^DD(728.113,2,1,1,3)="DO NOT DELETE"
^DD(728.113,2,1,1,"%D",0)="^^2^2^2961118^^^^"
^DD(728.113,2,1,1,"%D",1,0)="This cross reference, DATE/TIME, DFN, ORDER NUMBER is used to extract"
^DD(728.113,2,1,1,"%D",2,0)="data from this file into the IV DETAIL EXTRACT file (#727.819)."
^DD(728.113,2,1,1,"DT")="2961118"
^DD(728.113,2,1,2,0)="728.113^AREV^MUMPS"
^DD(728.113,2,1,2,1)="S ^ECX(728.113,""AREV"",9999999-($P($P(^ECX(728.113,DA,0),""^"",5),""."")),$P(^ECX(728.113,DA,0),""^"",2),X,DA)="""""
^DD(728.113,2,1,2,2)="K ^ECX(728.113,""AREV"",9999999-($P($P(^ECX(728.113,DA,0),""^"",5),""."")),$P(^ECX(728.113,DA,0),""^"",2),X,DA)"
^DD(728.113,2,1,2,3)="DO NOT DELETE"
^DD(728.113,2,1,2,"%D",0)="^^3^3^2961118^^^^"
^DD(728.113,2,1,2,"%D",1,0)="This inverse cross reference, DATE/TIME, DFN, ORDER NUMBER is used "
^DD(728.113,2,1,2,"%D",2,0)="to identify dates prior to the START DATE selected for the IV DETAIL"
^DD(728.113,2,1,2,"%D",3,0)="EXTRACT."
^DD(728.113,2,1,2,"DT")="2961118"
^DD(728.113,2,3)="Enter a number between 1 and 99999, 0 decimal digits."
^DD(728.113,2,21,0)="^^1^1^2960919^^^^"
^DD(728.113,2,21,1,0)="This is the internal entry number of the order."
^DD(728.113,2,23,0)="^^2^2^2960919^"
^DD(728.113,2,23,1,0)="Derived from the ORDER NUMBER field (.01) within the IV multiple (100) "
^DD(728.113,2,23,2,0)="of the PHARMACY PATIENT file (#55)."
^DD(728.113,2,"DT")="2961118"
^DD(728.113,3,0)="DRUG^P50'I^PSDRUG(^0;4^Q"
^DD(728.113,3,.1)="Drug"
^DD(728.113,3,3)="Enter the drug dispensed."
^DD(728.113,3,21,0)="^^1^1^2960919^^^"
^DD(728.113,3,21,1,0)="This is the item dispensed as identified in the local DRUG file (#50)."
^DD(728.113,3,23,0)="^^11^11^2960919^^"
^DD(728.113,3,23,1,0)="A pointer to the DRUG file (#50)."
^DD(728.113,3,23,2,0)="  "
^DD(728.113,3,23,3,0)="For an IV additive, DRUG is derived from the GENERIC DRUG field (1) "
^DD(728.113,3,23,4,0)="in the IV ADDITIVES file (#52.6) for the ADDITIVE (.01) identified in "
^DD(728.113,3,23,5,0)="the ADDITIVE multiple (1) within the IV multiple (100) of the PHARMACY "
^DD(728.113,3,23,6,0)="PATIENT file (#55)."
^DD(728.113,3,23,7,0)="  "
^DD(728.113,3,23,8,0)="For an IV solution, DRUG is derived from the GENERIC DRUG field (1) "
^DD(728.113,3,23,9,0)="in the IV SOLUTIONS file (#52.7) for the SOLUTION (.01) identified in "
^DD(728.113,3,23,10,0)="the SOLUTION multiple (3) within the IV multiple (100) of the PHARMACY "
^DD(728.113,3,23,11,0)="PATIENT file (#55)."
^DD(728.113,3,"DT")="2960919"
^DD(728.113,4,0)="DATE/TIME^DI^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(728.113,4,.1)="Date/Time"
^DD(728.113,4,3)="Enter the date/time this drug was dispensed."
^DD(728.113,4,21,0)="^^1^1^2961101^^^^"
^DD(728.113,4,21,1,0)="This is the date/time of the transaction."
^DD(728.113,4,23,0)="^^2^2^2971113^^^"
^DD(728.113,4,23,1,0)="DATE/TIME is calculated and stored in the DATE OF TRANSACTION field (3) "
^DD(728.113,4,23,2,0)="within the TRANSACTION NUMBER multiple (1) of the IV STATS file (#50.8)."
^DD(728.113,4,"DT")="2961101"
^DD(728.113,5,0)="TRANSACTION TYPE^SI^1:DISPENSED;2:RETURNED;3:DESTROYED;4:CANCELED;^0;6^Q"
^DD(728.113,5,.1)="Transaction Type"
^DD(728.113,5,3)="Enter the status of the IV transaction."
^DD(728.113,5,21,0)="^^1^1^2960919^^^^"
^DD(728.113,5,21,1,0)="This is the type of the transaction."
^DD(728.113,5,23,0)="^^4^4^2960919^"
^DD(728.113,5,23,1,0)="TRANSACTION TYPE defines the status of the IV order: 1 for dispensed, "
^DD(728.113,5,23,2,0)="2 for returned, 3 for destroyed, or 4 for canceled. This data comes "
^DD(728.113,5,23,3,0)="from the STATUS field (2) within the TRANSACTION NUMBER multiple (1) "
^DD(728.113,5,23,4,0)="of the IV STATS file (#50.8)."
^DD(728.113,5,"DT")="2960919"
^DD(728.113,6,0)="ADDITIVE STRENGTH^FI^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(728.113,6,.1)="Additive Strength"
^DD(728.113,6,3)="Your answer must be 1 to 30 characters in length."
^DD(728.113,6,21,0)="^^2^2^2960919^^^^"
^DD(728.113,6,21,1,0)="This is the amount of the additive used in the manufacturing of this "
^DD(728.113,6,21,2,0)="IV order."
^DD(728.113,6,23,0)="^^2^2^2960919^"
^DD(728.113,6,23,1,0)="Derived from the STRENGTH field (.02) within the ADDITIVE multiple (1) "
^DD(728.113,6,23,2,0)="within the IV multiple (100) of the PHARMACY PATIENT file (#55)."
^DD(728.113,6,"DT")="2960919"
^DD(728.113,7,0)="ADDITIVE STRENGTH UNITS^FI^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(728.113,7,.1)="Additive Strength Units"
^DD(728.113,7,3)="Your answer must be 1 to 20 characters in length."
^DD(728.113,7,21,0)="^^1^1^2960919^^^^"
^DD(728.113,7,21,1,0)="This is the units in which the strength of this additive is measured."
^DD(728.113,7,23,0)="^^3^3^2960919^"
^DD(728.113,7,23,1,0)="Derived from the DRUG UNIT field (2) in the IV ADDITIVES file (#52.6) "
^DD(728.113,7,23,2,0)="for the ADDITIVE (.01) identified in the ADDITIVE multiple (1) within "
^DD(728.113,7,23,3,0)="the IV multiple (100) in the PHARMACY PATIENT file (#55)."
^DD(728.113,7,"DT")="2960919"
^DD(728.113,8,0)="SOLUTION VOLUME^NJ5,0I^^0;9^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(728.113,8,.1)="Solution Volume"
^DD(728.113,8,3)="Enter a number between 1 and 10000, 0 decimal digits."
^DD(728.113,8,21,0)="^^1^1^2960925^^^"
^DD(728.113,8,21,1,0)="The volume (in MLs) of this solution in this order."
^DD(728.113,8,23,0)="^^2^2^2960925^^"
^DD(728.113,8,23,1,0)="Derived from the VOLUME field (1) within the SOLUTION multiple (3) "
^DD(728.113,8,23,2,0)="within the IV multiple (100) of the PHARMACY PATIENT file (#55)."
^DD(728.113,8,"DT")="2960919"
^DD(728.113,9,0)="PROVIDER^FI^^0;10^K:$L(X)>12!($L(X)<1) X"
^DD(728.113,9,.1)="Provider"
^DD(728.113,9,3)="Your answer must be 1 to 12 characters in length."
^DD(728.113,9,21,0)="^^1^1^2960919^^"
^DD(728.113,9,21,1,0)="This is the provider responsible for this medication order."
^DD(728.113,9,23,0)="^^3^3^2960919^"
^DD(728.113,9,23,1,0)="Derived from the PROVIDER field (.06) within the IV multiple (100) "
^DD(728.113,9,23,2,0)="of the PHARMACY PATIENT file (#55). Provider is a pointer to the NEW "
^DD(728.113,9,23,3,0)="PERSON file (#200)."
^DD(728.113,9,"DT")="2960919"
^DD(728.113,10,0)="EXTRACT NUMBER^P727'^ECX(727,^1;1^Q"
^DD(728.113,10,.1)="Extract Number"
^DD(728.113,10,1,0)="^.1"
^DD(728.113,10,1,1,0)="728.113^AC"
^DD(728.113,10,1,1,1)="S ^ECX(728.113,""AC"",$E(X,1,30),DA)="""""
^DD(728.113,10,1,1,2)="K ^ECX(728.113,""AC"",$E(X,1,30),DA)"
^DD(728.113,10,1,1,3)="DO NOT DELETE."
^DD(728.113,10,1,1,"%D",0)="^^4^4^2960919^^^^"
^DD(728.113,10,1,1,"%D",1,0)="This cross reference is essential to manage the transfer of data"
^DD(728.113,10,1,1,"%D",2,0)="from this file to the IV DETAIL EXTRACT file (#727.819) and utimately "
^DD(728.113,10,1,1,"%D",3,0)="to the commercial DSS software. It is also used to control purging "
^DD(728.113,10,1,1,"%D",4,0)="of this file."
^DD(728.113,10,1,1,"DT")="2951103"
^DD(728.113,10,3)="Enter the extract number for this medication dispensing action."
^DD(728.113,10,21,0)="^^1^1^2960919^^^"
^DD(728.113,10,21,1,0)="Pointer to the corresponding entry in the DSS EXTRACT LOG file (#727)."
^DD(728.113,10,23,0)="^^4^4^2960919^"
^DD(728.113,10,23,1,0)="This entry and the corresponding cross reference are set when data is "
^DD(728.113,10,23,2,0)="extracted from this file into the IV DETAIL EXTRACT file (#727.819). "
^DD(728.113,10,23,3,0)="The cross reference on this field is used to control extracting data "
^DD(728.113,10,23,4,0)="from this file and also used to permit purging of data in this file."
^DD(728.113,10,"DT")="2960919"
^DD(728.113,11,0)="TYPE^F^^0;11^K:$L(X)>5!($L(X)<1) X"
^DD(728.113,11,.1)="Type"
^DD(728.113,11,3)="Your answer must be 1 to 5 characters in length."
^DD(728.113,11,21,0)="^^2^2^2960919^^"
^DD(728.113,11,21,1,0)="The type of IV dispensed - A for admixture, C for chemotherapy, H for "
^DD(728.113,11,21,2,0)="hyperal, P for piggyback, or S for syringe."
^DD(728.113,11,23,0)="^^2^2^2960919^"
^DD(728.113,11,23,1,0)="Derived from the TYPE field (.04) within the IV multiple (100) of "
^DD(728.113,11,23,2,0)="the PHARMACY PATIENT file (#55)."
^DD(728.113,11,"DT")="2960919"
^DD(728.113,12,0)="COST^NJ9,3^^0;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(728.113,12,.1)="Cost"
^DD(728.113,12,3)="Enter a number between 0 and 99999, 3 decimal digits."
^DD(728.113,12,21,0)="^^1^1^2960919^^"
^DD(728.113,12,21,1,0)="Cost of this item."
^DD(728.113,12,23,0)="^^9^9^2960919^"
^DD(728.113,12,23,1,0)="For an IV additive, COST is derived from the AVERAGE DRUG COST PER "
^DD(728.113,12,23,2,0)="UNIT field (7) in the IV ADDITIVES file (#52.6) for the ADDITIVE (.01) "
^DD(728.113,12,23,3,0)="identified in the ADDITIVE multiple (1) within the IV multiple (100) "
^DD(728.113,12,23,4,0)="of the PHARMACY PATIENT file (#55)."
^DD(728.113,12,23,5,0)="  "
^DD(728.113,12,23,6,0)="For an IV solution, COST is derived from the AVERAGE DRUG COST field (7) "
^DD(728.113,12,23,7,0)="in the IV SOLUTIONS file (#52.7) for the SOLUTION (.01) identified in "
^DD(728.113,12,23,8,0)="the SOLUTION multiple (3) within the IV multiple (100) of the PHARMACY "
^DD(728.113,12,23,9,0)="PATIENT file (#55)."
^DD(728.113,12,"DT")="2960919"
^DD(728.113,13,0)="CLINIC^P44'^SC(^0;13^Q"
^DD(728.113,13,21,0)="^^2^2^2980722^^"
^DD(728.113,13,21,1,0)="If the patient is an outpatient, this holds a pointer to the clinic"
^DD(728.113,13,21,2,0)="where the outpatient visit was held."
^DD(728.113,13,"DT")="2980713"
^DD(728.113,14,0)="ORDER DATE^D^^0;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(728.113,14,.1)="Order Date"
^DD(728.113,14,3)="Enter the date/time the order was made."
^DD(728.113,14,21,0)="^.001^1^1^3051014^^"
^DD(728.113,14,21,1,0)="This is the date/time the medication was ordered."
^DD(728.113,14,23,0)="^.001^2^2^3051014^^"
^DD(728.113,14,23,1,0)="Derived from the START DATE/TIME field (#.02) in the IV Multiple (file"
^DD(728.113,14,23,2,0)="55.01) of the PHARMACY PATIENT file (#55)."
^DD(728.113,14,"DT")="3051014"
^DD(728.113,15,0)="IV ROOM^F^^0;15^K:$L(X)>30!($L(X)<1) X"
^DD(728.113,15,3)="Answer must be 1-30 characters in length."
^DD(728.113,15,21,0)="^.001^1^1^3051014^^"
^DD(728.113,15,21,1,0)="IV room where IV was prepared for administration."
^DD(728.113,15,23,0)="^^3^3^3051014^"
^DD(728.113,15,23,1,0)="The value is resolved by retrieving the value from Pharmacy Patient file "
^DD(728.113,15,23,2,0)="(#55), IV Sub file (#55.01), IV Room field (#.22) which is a pointer to "
^DD(728.113,15,23,3,0)="IV ROOM file (#59.5)."
^DD(728.113,15,"DT")="3051014"
^DD(728.113,16,0)="VERIFICATION DATE^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(728.113,16,21,0)="^.001^2^2^3051014^^"
^DD(728.113,16,21,1,0)="This is the date the order was acknowledged (through OE/RR) by the nurse "
^DD(728.113,16,21,2,0)="if it exist, otherwise this is the date and time the order was entered."
^DD(728.113,16,23,0)="^^3^3^3051014^"
^DD(728.113,16,23,1,0)="This value is retrieved from Pharmacy Patient file (#55), IV Subfile "
^DD(728.113,16,23,2,0)="(#55.01), DATE VERIFIED BY NURSE field (#17) if exist. Otherwise it uses"
^DD(728.113,16,23,3,0)="LOGIN DATE/TIME field (#.21) and if it does not exist it leaves it null."
^DD(728.113,16,"DT")="3051014"
^DD(728.113,"B","ADDITIVE STRENGTH",6)=""
^DD(728.113,"B","ADDITIVE STRENGTH UNITS",7)=""
^DD(728.113,"B","Additive Strength",6)="1"
^DD(728.113,"B","Additive Strength Units",7)="1"
^DD(728.113,"B","CLINIC",13)=""
^DD(728.113,"B","COST",12)=""
^DD(728.113,"B","Cost",12)="1"
^DD(728.113,"B","DATE/TIME",4)=""
^DD(728.113,"B","DFN",1)=""
^DD(728.113,"B","DRUG",3)=""
^DD(728.113,"B","Date/Time",4)="1"
^DD(728.113,"B","Drug",3)="1"
^DD(728.113,"B","EXTRACT NUMBER",10)=""
^DD(728.113,"B","Extract Number",10)="1"
^DD(728.113,"B","IV ROOM",15)=""
^DD(728.113,"B","ORDER DATE",14)=""
^DD(728.113,"B","ORDER NUMBER",2)=""
^DD(728.113,"B","Order Date",14)="1"
^DD(728.113,"B","Order Number",2)="1"
^DD(728.113,"B","PROVIDER",9)=""
^DD(728.113,"B","Patient Number",1)="1"
^DD(728.113,"B","Provider",9)="1"
^DD(728.113,"B","SEQUENCE NUMBER",.01)=""
^DD(728.113,"B","SOLUTION VOLUME",8)=""
^DD(728.113,"B","Sequence Number",.01)="1"
^DD(728.113,"B","Solution Volume",8)="1"
^DD(728.113,"B","TRANSACTION TYPE",5)=""
^DD(728.113,"B","TYPE",11)=""
^DD(728.113,"B","Transaction Type",5)="1"
^DD(728.113,"B","Type",11)="1"
^DD(728.113,"B","VERIFICATION DATE",16)=""
^DD(728.113,"GL",0,1,.01)=""
^DD(728.113,"GL",0,2,1)=""
^DD(728.113,"GL",0,3,2)=""
^DD(728.113,"GL",0,4,3)=""
^DD(728.113,"GL",0,5,4)=""
^DD(728.113,"GL",0,6,5)=""
^DD(728.113,"GL",0,7,6)=""
^DD(728.113,"GL",0,8,7)=""
^DD(728.113,"GL",0,9,8)=""
^DD(728.113,"GL",0,10,9)=""
^DD(728.113,"GL",0,11,11)=""
^DD(728.113,"GL",0,12,12)=""
^DD(728.113,"GL",0,13,13)=""
^DD(728.113,"GL",0,14,14)=""
^DD(728.113,"GL",0,15,15)=""
^DD(728.113,"GL",0,16,16)=""
^DD(728.113,"GL",1,1,10)=""
^DD(728.113,"IX",.01)=""
^DD(728.113,"IX",2)=""
^DD(728.113,"IX",10)=""
^DD(728.113,"RQ",.01)=""
^DD(728.44,0)="FIELD^^10^11"
^DD(728.44,0,"DDA")="N"
^DD(728.44,0,"DT")="3040113"
^DD(728.44,0,"IX","AC",728.44,6)=""
^DD(728.44,0,"IX","B",728.44,.01)=""
^DD(728.44,0,"NM","CLINICS AND STOP CODES")=""
^DD(728.44,0,"VR")="3.0"
^DD(728.44,0,"VRPK")="ECX"
^DD(728.44,.01,0)="CLINIC NAME^RP44XI^SC(^0;1^K X W !,""Entries into this file may be made only by using the DSS software"",!!"
^DD(728.44,.01,1,0)="^.1"
^DD(728.44,.01,1,1,0)="728.44^B"
^DD(728.44,.01,1,1,1)="S ^ECX(728.44,""B"",$E(X,1,30),DA)="""""
^DD(728.44,.01,1,1,2)="K ^ECX(728.44,""B"",$E(X,1,30),DA)"
^DD(728.44,.01,1,1,"DT")="2961212"
^DD(728.44,.01,3)="Enter the clinic name."
^DD(728.44,.01,21,0)="^^1^1^2970903^^^^"
^DD(728.44,.01,21,1,0)="The name of the clinic."
^DD(728.44,.01,23,0)="^^1^1^2970903^^^^"
^DD(728.44,.01,23,1,0)="Pointer to the HOSPITAL LOCATION file (#44)."
^DD(728.44,.01,"DEL",.01,0)="I 1 W !,""Entries must not be deleted from this file!,"",!!"
^DD(728.44,.01,"DT")="2961212"
^DD(728.44,1,0)="STOP CODE^FI^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(728.44,1,3)="Answer must be 1-30 characters in length."
^DD(728.44,1,8.5)="^"
^DD(728.44,1,9)="^"
^DD(728.44,1,21,0)="^.001^2^2^3040113^^^^"
^DD(728.44,1,21,1,0)="The stop code for this clinic as determined by Medical Administration"
^DD(728.44,1,21,2,0)="Service (MAS)."
^DD(728.44,1,23,0)="^.001^1^1^3040113^^^^"
^DD(728.44,1,23,1,0)="Stop code from the HOSPITAL LOCATION file (#44) for this clinic."
^DD(728.44,1,"DT")="2971106"
^DD(728.44,2,0)="CREDIT STOP CODE^FI^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(728.44,2,3)="Answer must be 1-30 characters in length."
^DD(728.44,2,8.5)="^"
^DD(728.44,2,9)="^"
^DD(728.44,2,10)=""
^DD(728.44,2,21,0)="^^3^3^2970527^^^^"
^DD(728.44,2,21,1,0)="The credit stop code, if none exists, for this clinic as determined"
^DD(728.44,2,21,2,0)="by Medical Administration Service (MAS)."
^DD(728.44,2,21,3,0)=" "
^DD(728.44,2,23,0)="^^1^1^2970527^^^"
^DD(728.44,2,23,1,0)="The credit stop code for this clinic in the HOSPITAL LOCATION file (#44)."
^DD(728.44,2,"DT")="2910312"
^DD(728.44,3,0)="DSS STOP CODE^NJ3,0X^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X Q:'$D(X)  N ECXSC S ECXSC=$O(^DIC(40.7,""C"",X,"""")) I ECXSC'="""" K:(""PE""'[$P(^DIC(40.7,ECXSC,0),U,6))!($P(^(0),U,7)>DT) X"
^DD(728.44,3,3)="Enter a valid Stop Code with restriction type of ""Primary"" or ""Either""."
^DD(728.44,3,21,0)="^.001^5^5^3041015^^^^"
^DD(728.44,3,21,1,0)="Three digit Stop Code number assigned to "
^DD(728.44,3,21,2,0)="specific location. Each Stop Code number"
^DD(728.44,3,21,3,0)="represents a type of care or Service/treating"
^DD(728.44,3,21,4,0)="specialty (clinics only). Stop code must have"
^DD(728.44,3,21,5,0)="a restriction type of Primary or Either."
^DD(728.44,3,23,0)="^.001^2^2^3041015^^^^"
^DD(728.44,3,23,1,0)="Stop code is verified by existence in File# 40.7"
^DD(728.44,3,23,2,0)="Node ^DIC(40.7,""C"",stop code,pointer) must exist."
^DD(728.44,3,"DT")="3040506"
^DD(728.44,4,0)="DSS CREDIT STOP CODE^NJ3,0X^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X Q:'$D(X)  N ECXSC S ECXSC=$O(^DIC(40.7,""C"",X,"""")) I ECXSC'="""" K:(""SE""'[$P(^DIC(40.7,ECXSC,0),U,6))!($P(^(0),U,7)>DT) X"
^DD(728.44,4,3)="Enter a valid Stop Code with restriction type of ""Secondary"" or ""Either""."
^DD(728.44,4,21,0)="^.001^6^6^3041015^^^"
^DD(728.44,4,21,1,0)="Appointments to this clinic will receive this"
^DD(728.44,4,21,2,0)="Stop Code credit in addition to the 'normal'"
^DD(728.44,4,21,3,0)="Stop Code credit if a Stop Code different from"
^DD(728.44,4,21,4,0)="the 'normal' Stop Code for this clinic is"
^DD(728.44,4,21,5,0)="entered here.  Credit Stop Code must have a"
^DD(728.44,4,21,6,0)="restriction type of Secondary or Either."
^DD(728.44,4,23,0)="^.001^2^2^3041015^^^^"
^DD(728.44,4,23,1,0)="Credit Stop code is verified by existence in File# 40.7"
^DD(728.44,4,23,2,0)="Node ^DIC(40.7,""C"",stop code,pointer) must exists."
^DD(728.44,4,"DT")="3040506"
^DD(728.44,5,0)="ACTION TO SEND^S^1:SEND STOP CODE;4:SEND BOTH AS ONE RECORD WITH NATIONAL CODE;5:SEND BOTH AS ONE RECORD WITHOUT NATIONAL CODE;6:DO NOT SEND;7:SEND BOTH AS ONE RECORD WITH DSS PRODUCT DEPARTMENT;^0;6^Q"
^DD(728.44,5,3)="Select the appropriate stop code action."
^DD(728.44,5,21,0)="^.001^2^2^3040322^^^^"
^DD(728.44,5,21,1,0)="This determines how alternate stop code and alternate credit stop"
^DD(728.44,5,21,2,0)="codes are combined to form a feeder key for this clinic."
^DD(728.44,5,23,0)="^.001^2^2^3040322^^^^"
^DD(728.44,5,23,1,0)="This field is used in routine ECXSCX to create the feeder key for"
^DD(728.44,5,23,2,0)="this clinic."
^DD(728.44,5,"DT")="3040322"
^DD(728.44,6,0)="DATE LAST REVIEWED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728.44,6,1,0)="^.1"
^DD(728.44,6,1,1,0)="728.44^AC^MUMPS"
^DD(728.44,6,1,1,1)="S ^ECX(728.44,""A1"",-X,DA)="""""
^DD(728.44,6,1,1,2)="K ^ECX(728.44,""A1"",-X,DA)"
^DD(728.44,6,1,1,3)="DO NOT DELETE."
^DD(728.44,6,1,1,"%D",0)="^^2^2^2960808^^^"
^DD(728.44,6,1,1,"%D",1,0)="An inverse date cross reference to tell the user when data in this file"
^DD(728.44,6,1,1,"%D",2,0)="was last reviewed."
^DD(728.44,6,1,1,"DT")="2920924"
^DD(728.44,6,3)="Enter the date this data was reviewed."
^DD(728.44,6,8.5)="^"
^DD(728.44,6,9)="^"
^DD(728.44,6,21,0)="^^1^1^2950314^^"
^DD(728.44,6,21,1,0)="The date this data in this file was last reviewed."
^DD(728.44,6,23,0)="^^2^2^2950314^^"
^DD(728.44,6,23,1,0)="This field is used to prompt users that the data in this file might"
^DD(728.44,6,23,2,0)="need to be reviewed."
^DD(728.44,6,"DT")="2920924"
^DD(728.44,7,0)="NATIONAL CODE^RP728.441'^ECX(728.441,^0;8^Q"
^DD(728.44,7,3)="Enter the appropriate national code."
^DD(728.44,7,21,0)="^.001^2^2^3031030^^^^"
^DD(728.44,7,21,1,0)="A pointer to the NATIONAL CLINIC file (#728.441) to provide a way to send"
^DD(728.44,7,21,2,0)="a national identifier to the commercial software when using action code 4."
^DD(728.44,7,23,0)="^.001^3^3^3031030^^^^"
^DD(728.44,7,23,1,0)="Pointer to the NATIONAL CLINIC file (#728.441)."
^DD(728.44,7,23,2,0)="Used to provide a way to send a national identifier to the commercial"
^DD(728.44,7,23,3,0)="software when data from the ACTION TO SEND field (#5) is code 4."
^DD(728.44,7,"DT")="2950414"
^DD(728.44,8,0)="DSS UNIT IDENTIFIER^FX^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(728.44,8,1,0)="^.1^^0"
^DD(728.44,8,3)="The identifier if this clinic is used for non-OR surgical procedures."
^DD(728.44,8,21,0)="^^2^2^2970729^^^^"
^DD(728.44,8,21,1,0)="This field will identify clinics which are used for non-OR"
^DD(728.44,8,21,2,0)="procedures in the Surgery package."
^DD(728.44,8,"DT")="2940621"
^DD(728.44,9,0)="INACTIVE DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(728.44,9,3)="Enter the date this clinic became inactive."
^DD(728.44,9,21,0)="^^1^1^2960717^^^^"
^DD(728.44,9,21,1,0)="This is the date that MAS inactivated this clinic."
^DD(728.44,9,23,0)="^^1^1^2960717^^"
^DD(728.44,9,23,1,0)="From the INACTIVE DATE field (2505) in the HOSPITAL LOCATION file (#44)."
^DD(728.44,9,"DT")="2960717"
^DD(728.44,10,0)="DSS PRODUCT DEPARTMENT^F^^0;11^K:$L(X)>10!($L(X)<1) X"
^DD(728.44,10,3)="Answer must be 1-10 characters in length."
^DD(728.44,10,21,0)="^^2^2^3041012^"
^DD(728.44,10,21,1,0)="The nationally defined DSS Intermediate Department Number designated to "
^DD(728.44,10,21,2,0)="the patient care product being provided."
^DD(728.44,10,"DT")="3040223"
^DD(728.44,"B","ACTION TO SEND",5)=""
^DD(728.44,"B","CLINIC NAME",.01)=""
^DD(728.44,"B","CREDIT STOP CODE",2)=""
^DD(728.44,"B","DATE LAST REVIEWED",6)=""
^DD(728.44,"B","DSS CREDIT STOP CODE",4)=""
^DD(728.44,"B","DSS PRODUCT DEPARTMENT",10)=""
^DD(728.44,"B","DSS STOP CODE",3)=""
^DD(728.44,"B","DSS UNIT IDENTIFIER",8)=""
^DD(728.44,"B","INACTIVE DATE",9)=""
^DD(728.44,"B","NATIONAL CODE",7)=""
^DD(728.44,"B","STOP CODE",1)=""
^DD(728.44,"GL",0,1,.01)=""
^DD(728.44,"GL",0,2,1)=""
^DD(728.44,"GL",0,3,2)=""
^DD(728.44,"GL",0,4,3)=""
^DD(728.44,"GL",0,5,4)=""
^DD(728.44,"GL",0,6,5)=""
^DD(728.44,"GL",0,7,6)=""
^DD(728.44,"GL",0,8,7)=""
^DD(728.44,"GL",0,9,8)=""
^DD(728.44,"GL",0,10,9)=""
^DD(728.44,"GL",0,11,10)=""
^DD(728.44,"IX",.01)=""
^DD(728.44,"IX",6)=""
^DD(728.44,"RQ",.01)=""
^DD(728.44,"RQ",7)=""
^DD(728.441,0)="FIELD^^2^3"
^DD(728.441,0,"DT")="3031008"
^DD(728.441,0,"IX","B",728.441,.01)=""
^DD(728.441,0,"NM","NATIONAL CLINIC")=""
^DD(728.441,0,"PT",728.44,7)=""
^DD(728.441,0,"VR")="3.0"
^DD(728.441,0,"VRPK")="DSS EXTRACTS"
^DD(728.441,.01,0)="CODE^RFI^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4UN) X"
^DD(728.441,.01,1,0)="^.1"
^DD(728.441,.01,1,1,0)="728.441^B"
^DD(728.441,.01,1,1,1)="S ^ECX(728.441,""B"",$E(X,1,30),DA)="""""
^DD(728.441,.01,1,1,2)="K ^ECX(728.441,""B"",$E(X,1,30),DA)"
^DD(728.441,.01,3)="Answer must be 4 characters in length."
^DD(728.441,.01,21,0)="^.001^1^1^3031008^^^^"
^DD(728.441,.01,21,1,0)="The national standard four character code for the clinic."
^DD(728.441,.01,23,0)="^.001^5^5^3031008^^^^"
^DD(728.441,.01,23,1,0)="This file is pointed to by the NATIONAL CODE field (#7) of the CLINICS AND"
^DD(728.441,.01,23,2,0)="STOP CODES file (#728.44) and is used to send a nationally standard"
^DD(728.441,.01,23,3,0)="clinic code to the commercial software for clinics where the ACTION"
^DD(728.441,.01,23,4,0)="TO SEND field (#5) from the CLINICS AND STOP CODES file (#728.44)"
^DD(728.441,.01,23,5,0)="is 4 (SEND BOTH AS ONE RECORD WITH NATIONAL CODE)"
^DD(728.441,.01,"DT")="3031008"
^DD(728.441,1,0)="SHORT DESCRIPTION^RF^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(728.441,1,3)="Answer must be 3-50 characters in length."
^DD(728.441,1,21,0)="^^2^2^2950314^^^"
^DD(728.441,1,21,1,0)="The short description for the type of clinic represented by this"
^DD(728.441,1,21,2,0)="national code."
^DD(728.441,1,"DT")="2960612"
^DD(728.441,2,0)="LONG DESCRIPTION^728.4412^^1;0"
^DD(728.441,2,21,0)="^^3^3^2950314^^^"
^DD(728.441,2,21,1,0)="The long description for the type of clinic represented by this code."
^DD(728.441,2,21,2,0)="This discription may be used to provide guidance in assigning"
^DD(728.441,2,21,3,0)="national codes to clinics."
^DD(728.441,"B","CODE",.01)=""
^DD(728.441,"B","LONG DESCRIPTION",2)=""
^DD(728.441,"B","SHORT DESCRIPTION",1)=""
^DD(728.441,"GL",0,1,.01)=""
^DD(728.441,"GL",0,2,1)=""
^DD(728.441,"GL",1,0,2)=""
^DD(728.441,"IX",.01)=""
^DD(728.441,"RQ",.01)=""
^DD(728.441,"RQ",1)=""
^DD(728.441,"SB",728.4412,2)=""
^DD(728.4412,0)="LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(728.4412,0,"NM","LONG DESCRIPTION")=""
^DD(728.4412,0,"UP")="728.441"
^DD(728.4412,.01,0)="LONG DESCRIPTION^W^^0;1^Q"
^DD(728.4412,.01,3)="Enter the full description for this national clinic code."
^DD(728.4412,.01,21,0)="^^3^3^2950314^^^"
^DD(728.4412,.01,21,1,0)="The long description for the type of clinic represented by this code."
^DD(728.4412,.01,21,2,0)="This discription may be used to provide guidance in assigning"
^DD(728.4412,.01,21,3,0)="national codes to clinics."
^DD(728.4412,.01,"DT")="2940310"
^DD(728.4412,"B","LONG DESCRIPTION",.01)=""
^DD(728.4412,"GL",0,1,.01)=""
^DD(728.45,0)="FIELD^^1^2"
^DD(728.45,0,"DDA")="N"
^DD(728.45,0,"DT")="3060814"
^DD(728.45,0,"IX","B",728.45,.01)=""
^DD(728.45,0,"NM","DSS NUTRITION PRODUCT WORKSHEET")=""
^DD(728.45,0,"VR")="3.0"
^DD(728.45,0,"VRPK")="ECX"
^DD(728.45,.01,0)="NAME^RSX^PD:PRODUCTION DIET;SF:SUPPLEMENTAL FEEDING;TF:TUBE FEEDING;SO:STANDING ORDER;^0;1^S DIC(""S"")=""I $E($G(^(""""I"""")))'=""""Y"""""""
^DD(728.45,.01,1,0)="^.1"
^DD(728.45,.01,1,1,0)="728.45^B"
^DD(728.45,.01,1,1,1)="S ^ECX(728.45,""B"",$E(X,1,30),DA)="""""
^DD(728.45,.01,1,1,2)="K ^ECX(728.45,""B"",$E(X,1,30),DA)"
^DD(728.45,.01,3)=""
^DD(728.45,.01,21,0)="^.001^7^7^3060814^^^^"
^DD(728.45,.01,21,1,0)="This value identifies the nutrition diet and it can be one of the "
^DD(728.45,.01,21,2,0)="following four diets."
^DD(728.45,.01,21,3,0)=" "
^DD(728.45,.01,21,4,0)="Production Diet"
^DD(728.45,.01,21,5,0)="Supplemental Feeding"
^DD(728.45,.01,21,6,0)="Tube Feeding"
^DD(728.45,.01,21,7,0)="Standing Order"
^DD(728.45,.01,23,0)="^.001^9^9^3060814^^^^"
^DD(728.45,.01,23,1,0)="A new worksheet has been created entitled Nutrition Product Worksheet. "
^DD(728.45,.01,23,2,0)=" "
^DD(728.45,.01,23,3,0)="This worksheet allows the DSS site teams to assign standardized DSS"
^DD(728.45,.01,23,4,0)="Product (Feeder Key) values to each diet within each category."
^DD(728.45,.01,23,5,0)=" "
^DD(728.45,.01,23,6,0)="Production Diet"
^DD(728.45,.01,23,7,0)="Supplemental Feeding"
^DD(728.45,.01,23,8,0)="Tube Feeding"
^DD(728.45,.01,23,9,0)="Standing Order"
^DD(728.45,.01,"DT")="3060814"
^DD(728.45,1,0)="DIET^728.451V^^1;0"
^DD(728.45,"B","DIET",1)=""
^DD(728.45,"B","NAME",.01)=""
^DD(728.45,"GL",0,1,.01)=""
^DD(728.45,"GL",1,0,1)=""
^DD(728.45,"IX",.01)=""
^DD(728.45,"RQ",.01)=""
^DD(728.45,"SB",728.451,1)=""
^DD(728.451,0)="DIET SUB-FIELD^^1^2"
^DD(728.451,0,"DT")="3060508"
^DD(728.451,0,"IX","B",728.451,.01)=""
^DD(728.451,0,"NM","DIET")=""
^DD(728.451,0,"UP")="728.45"
^DD(728.451,.01,0)="DIET^MVX^^0;1^Q"
^DD(728.451,.01,1,0)="^.1^^-1"
^DD(728.451,.01,1,1,0)="728.451^B"
^DD(728.451,.01,1,1,1)="S ^ECX(728.45,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(728.451,.01,1,1,2)="K ^ECX(728.45,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(728.451,.01,3)=""
^DD(728.451,.01,21,0)="^.001^1^1^3060808^^"
^DD(728.451,.01,21,1,0)="This value identifies the specific diet within each category."
^DD(728.451,.01,23,0)="^.001^7^7^3060808^^"
^DD(728.451,.01,23,1,0)="This field is a variable pointer and it points to a different file for "
^DD(728.451,.01,23,2,0)="each category."
^DD(728.451,.01,23,3,0)=" "
^DD(728.451,.01,23,4,0)="Production Diets file (#116.2)"
^DD(728.451,.01,23,5,0)="Supplemental Feedings (#118)"
^DD(728.451,.01,23,6,0)="Tubefeedings (#118.2) "
^DD(728.451,.01,23,7,0)="Standing Orders (#118.3)"
^DD(728.451,.01,"DT")="3060808"
^DD(728.451,.01,"V",0)="^.12P^4^4"
^DD(728.451,.01,"V",1,0)="116.2^Production Diets^1^PD^n^n"
^DD(728.451,.01,"V",2,0)="118^Supplemental Feedings^2^SF^n^n"
^DD(728.451,.01,"V",3,0)="118.2^Tubefeedings^3^TF^n^n"
^DD(728.451,.01,"V",4,0)="118.3^Standing Orders^4^SO^n^n"
^DD(728.451,.01,"V","B",116.2,1)=""
^DD(728.451,.01,"V","B",118,2)=""
^DD(728.451,.01,"V","B",118.2,3)=""
^DD(728.451,.01,"V","B",118.3,4)=""
^DD(728.451,.01,"V","M","Production Diets",1)=""
^DD(728.451,.01,"V","M","Standing Orders",4)=""
^DD(728.451,.01,"V","M","Supplemental Feedings",2)=""
^DD(728.451,.01,"V","M","Tubefeedings",3)=""
^DD(728.451,.01,"V","O",1,1)=""
^DD(728.451,.01,"V","O",2,2)=""
^DD(728.451,.01,"V","O",3,3)=""
^DD(728.451,.01,"V","O",4,4)=""
^DD(728.451,.01,"V","P","PD",1)=""
^DD(728.451,.01,"V","P","SF",2)=""
^DD(728.451,.01,"V","P","SO",4)=""
^DD(728.451,.01,"V","P","TF",3)=""
^DD(728.451,1,0)="ASSIGNED PRODUCT^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(728.451,1,1,0)="^.1^^0"
^DD(728.451,1,3)="Answer must be 1-40 characters in length."
^DD(728.451,1,21,0)="^^2^2^3060713^"
^DD(728.451,1,21,1,0)="This value identifies the DSS standardized product designation for each"
^DD(728.451,1,21,2,0)="diet item from the different nutrition files for national reporting."
^DD(728.451,1,23,0)="^^2^2^3060713^"
^DD(728.451,1,23,1,0)="The value in this field is the national reporting feeder key "
^DD(728.451,1,23,2,0)="designated by DSS to be used by the nutrition extract."
^DD(728.451,1,"DT")="3060515"
^DD(728.451,"B","ASSIGNED PRODUCT",1)=""
^DD(728.451,"B","DIET",.01)=""
^DD(728.451,"GL",0,1,.01)=""
^DD(728.451,"GL",0,2,1)=""
^DD(728.451,"IX",.01)=""
^DD(728.46,0)="FIELD^^1^2"
^DD(728.46,0,"DDA")="N"
^DD(728.46,0,"DT")="3060509"
^DD(728.46,0,"IX","B",728.46,.01)=""
^DD(728.46,0,"NM","DSS NUTRITION DIVISION WORKSHEET")=""
^DD(728.46,0,"VR")="3.0"
^DD(728.46,0,"VRPK")="ECX"
^DD(728.46,.01,0)="LOCATION NAME^RV^^0;1^Q"
^DD(728.46,.01,1,0)="^.1"
^DD(728.46,.01,1,1,0)="728.46^B"
^DD(728.46,.01,1,1,1)="S ^ECX(728.46,""B"",$E(X,1,30),DA)="""""
^DD(728.46,.01,1,1,2)="K ^ECX(728.46,""B"",$E(X,1,30),DA)"
^DD(728.46,.01,3)=""
^DD(728.46,.01,21,0)="^.001^2^2^3060713^^^"
^DD(728.46,.01,21,1,0)="This field allows sites to associate standardized division values to  "
^DD(728.46,.01,21,2,0)="production and service (delivery) locations for N&FS files."
^DD(728.46,.01,23,0)="^.001^3^3^3060713^^^"
^DD(728.46,.01,23,1,0)="This field points to Production Facility file (#119.71) and Service Point"
^DD(728.46,.01,23,2,0)="file (#119.72) and it allows DSS site teams to associate standardized"
^DD(728.46,.01,23,3,0)="division values to the N&FS locations."
^DD(728.46,.01,"DT")="3060509"
^DD(728.46,.01,"V",0)="^.12P^2^2"
^DD(728.46,.01,"V",1,0)="119.71^PRODUCTION FACILITY^1^PF^n^n"
^DD(728.46,.01,"V",2,0)="119.72^SERVICE POINT^2^SP^n^n"
^DD(728.46,.01,"V","B",119.71,1)=""
^DD(728.46,.01,"V","B",119.72,2)=""
^DD(728.46,.01,"V","M","PRODUCTION FACILITY",1)=""
^DD(728.46,.01,"V","M","SERVICE POINT",2)=""
^DD(728.46,.01,"V","O",1,1)=""
^DD(728.46,.01,"V","O",2,2)=""
^DD(728.46,.01,"V","P","PF",1)=""
^DD(728.46,.01,"V","P","SP",2)=""
^DD(728.46,1,0)="ASSIGNED DIVISION^P4'^DIC(4,^0;2^Q"
^DD(728.46,1,21,0)="^.001^2^2^3060509^^^"
^DD(728.46,1,21,1,0)="This field allows sites to associate standardized division values to "
^DD(728.46,1,21,2,0)="production and service (delivery) locations for N&FS files."
^DD(728.46,1,23,0)="^.001^2^2^3060509^^^"
^DD(728.46,1,23,1,0)="This field points to the Institution file (#4) and it allows DSS site "
^DD(728.46,1,23,2,0)="teams to associate standardized division values to N&FS locations."
^DD(728.46,1,"DT")="3060509"
^DD(728.46,"B","ASSIGNED DIVISION",1)=""
^DD(728.46,"B","LOCATION NAME",.01)=""
^DD(728.46,"GL",0,1,.01)=""
^DD(728.46,"GL",0,2,1)=""
^DD(728.46,"IX",.01)=""
^DD(728.46,"RQ",.01)=""
^DD(728.506,0)="FIELD^^2^3"
^DD(728.506,0,"IX","AP",728.5061,.01)=""
^DD(728.506,0,"IX","B",728.506,.01)=""
^DD(728.506,0,"NM","DSS DRUG PRODUCT CODE")=""
^DD(728.506,0,"VR")="3.0"
^DD(728.506,0,"VRPK")="DSS EXTRACTS"
^DD(728.506,.01,0)="DSS DRUG PRODUCT CODE^RNJ3,0XI^^0;1^K:+X'=X!(X>500)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(728.506,.01,1,0)="^.1"
^DD(728.506,.01,1,1,0)="728.506^B"
^DD(728.506,.01,1,1,1)="S ^ECX(728.506,""B"",$E(X,1,30),DA)="""""
^DD(728.506,.01,1,1,2)="K ^ECX(728.506,""B"",$E(X,1,30),DA)"
^DD(728.506,.01,3)="Type a Number between 1 and 500, 0 Decimal Digits"
^DD(728.506,.01,9)="^"
^DD(728.506,.01,21,0)="^^4^4^2950314^^^^"
^DD(728.506,.01,21,1,0)="This is the product code as determined by the DSS pharmaceutical task"
^DD(728.506,.01,21,2,0)="force.  The DESCRIPTION field (#1) indicates how this code is determined"
^DD(728.506,.01,21,3,0)="by a combination of VA drug classification, route of administration, and"
^DD(728.506,.01,21,4,0)="(in some cases) by specific generic name of a particular item."
^DD(728.506,.01,"DT")="2950314"
^DD(728.506,1,0)="DESCRIPTION^FI^^0;2^K:$L(X)>200!($L(X)<3) X"
^DD(728.506,1,3)="Answer must be 3-200 characters in length."
^DD(728.506,1,21,0)="^^1^1^2950314^^"
^DD(728.506,1,21,1,0)="VA classification description."
^DD(728.506,1,"DT")="2900514"
^DD(728.506,2,0)="IDENTIFIER^728.5061A^^1;0"
^DD(728.506,2,9)="^"
^DD(728.506,2,21,0)="^^2^2^2950314^"
^DD(728.506,2,21,1,0)="Drug identifier composed of two numbers, separated by the letter ""A"","
^DD(728.506,2,21,2,0)="that represents drug and dose form from the NATIONAL DRUG file (#50.6)."
^DD(728.506,"B","DESCRIPTION",1)=""
^DD(728.506,"B","DSS DRUG PRODUCT CODE",.01)=""
^DD(728.506,"B","IDENTIFIER",2)=""
^DD(728.506,"GL",0,1,.01)=""
^DD(728.506,"GL",0,2,1)=""
^DD(728.506,"GL",1,0,2)=""
^DD(728.506,"IX",.01)=""
^DD(728.506,"RQ",.01)=""
^DD(728.506,"SB",728.5061,2)=""
^DD(728.5061,0)="IDENTIFIER SUB-FIELD^^.01^1"
^DD(728.5061,0,"IX","B",728.5061,.01)=""
^DD(728.5061,0,"NM","IDENTIFIER")=""
^DD(728.5061,0,"UP")="728.506"
^DD(728.5061,.01,0)="IDENTIFIER^FI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<3)!'(X?1.N1""A""1.N) X"
^DD(728.5061,.01,1,0)="^.1"
^DD(728.5061,.01,1,1,0)="728.5061^B"
^DD(728.5061,.01,1,1,1)="S ^ECX(728.506,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(728.5061,.01,1,1,2)="K ^ECX(728.506,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(728.5061,.01,1,2,0)="728.506^AP^MUMPS"
^DD(728.5061,.01,1,2,1)="S ^ECX(728.506,""AP"",X,DA(1))="""""
^DD(728.5061,.01,1,2,2)="K ^ECX(728.506,""AP"",X,DA(1))"
^DD(728.5061,.01,1,2,3)="DO NOT DELETE."
^DD(728.5061,.01,1,2,"%D",0)="^^4^4^2960808^^^^"
^DD(728.5061,.01,1,2,"%D",1,0)="This cross reference is used to find the DSS drug product code"
^DD(728.5061,.01,1,2,"%D",2,0)="for a drug selected out of the DRUG file (#50) based on information"
^DD(728.5061,.01,1,2,"%D",3,0)="which links that drug to the NATIONAL DRUG file (#50.6) and defines"
^DD(728.5061,.01,1,2,"%D",4,0)="the elements which were used to define drug product codes."
^DD(728.5061,.01,3)="Answer must be 3-25 characters in length."
^DD(728.5061,.01,9)="^"
^DD(728.5061,.01,21,0)="^^2^2^2950314^^^"
^DD(728.5061,.01,21,1,0)="Drug identifier composed of two numbers, separated by the letter ""A"","
^DD(728.5061,.01,21,2,0)="that represent drug and dose form from the NATIONAL DRUG file (#50.6)."
^DD(728.5061,.01,"DT")="2900514"
^DD(728.5061,"B","IDENTIFIER",.01)=""
^DD(728.5061,"GL",0,1,.01)=""
^DD(728.5061,"IX",.01)=""
^DD(728.904,0)="FIELD^^9^11"
^DD(728.904,0,"DDA")="N"
^DD(728.904,0,"DIK")="ECX8904"
^DD(728.904,0,"DIKOLD")="ECX8904"
^DD(728.904,0,"DT")="2961101"
^DD(728.904,0,"IX","A",728.904,2)=""
^DD(728.904,0,"IX","AC",728.904,8)=""
^DD(728.904,0,"IX","AINV",728.904,.01)=""
^DD(728.904,0,"NM","UNIT DOSE EXTRACT DATA")=""
^DD(728.904,0,"VR")="3.0"
^DD(728.904,0,"VRPK")="DSS EXTRACTS"
^DD(728.904,.01,0)="SEQUENCE NUMBER^RNJ6,0XI^^0;1^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(728.904,.01,.1)="Sequence Number"
^DD(728.904,.01,1,0)="^.1"
^DD(728.904,.01,1,1,0)="728.904^AINV^MUMPS"
^DD(728.904,.01,1,1,1)="S ^ECX(728.904,""AINV"",-X,DA)="""""
^DD(728.904,.01,1,1,2)="K ^ECX(728.904,""AINV"",-X,DA)"
^DD(728.904,.01,1,1,3)="DO NOT DELETE."
^DD(728.904,.01,1,1,"%D",0)="^^3^3^2960912^^^^"
^DD(728.904,.01,1,1,"%D",1,0)="This is an inverse entry cross reference. It is used to find the"
^DD(728.904,.01,1,1,"%D",2,0)="last entry in the file. It is essential for the management of the "
^DD(728.904,.01,1,1,"%D",3,0)="data held in this file."
^DD(728.904,.01,1,1,"DT")="2950926"
^DD(728.904,.01,3)="Enter a number between 1 and 999999999, 0 decimal digits."
^DD(728.904,.01,21,0)="^^1^1^2960912^^^"
^DD(728.904,.01,21,1,0)="The record number for this extract entry."
^DD(728.904,.01,23,0)="^^1^1^2960912^"
^DD(728.904,.01,23,1,0)="The internal entry number (IEN) for this record. This entry is DINUMed."
^DD(728.904,.01,"DT")="2960912"
^DD(728.904,1,0)="DFN^P2'I^DPT(^0;2^Q"
^DD(728.904,1,.1)="Patient Number"
^DD(728.904,1,3)="Enter the name of the patient for this extract record."
^DD(728.904,1,21,0)="^^2^2^2960912^^^^"
^DD(728.904,1,21,1,0)="Enter the name of the patient receiving medication for this extract "
^DD(728.904,1,21,2,0)="record."
^DD(728.904,1,23,0)="^^4^4^2960912^^^"
^DD(728.904,1,23,1,0)="Derived from the PATIENT field (.01) within the PATIENT multiple (1) "
^DD(728.904,1,23,2,0)="of the PICK LIST file (#53.5). Patient is a pointer to the PHARMACY "
^DD(728.904,1,23,3,0)="PATIENT file (#55) which is DINUMed to the PATIENT file (#2). This "
^DD(728.904,1,23,4,0)="data represents the patient DFN."
^DD(728.904,1,"DT")="2960912"
^DD(728.904,2,0)="DATE^DI^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(728.904,2,.1)="Date"
^DD(728.904,2,1,0)="^.1"
^DD(728.904,2,1,1,0)="728.904^A"
^DD(728.904,2,1,1,1)="S ^ECX(728.904,""A"",$E(X,1,30),DA)="""""
^DD(728.904,2,1,1,2)="K ^ECX(728.904,""A"",$E(X,1,30),DA)"
^DD(728.904,2,1,1,3)="DO NOT DELETE."
^DD(728.904,2,1,1,"%D",0)="^^1^1^2960912^^"
^DD(728.904,2,1,1,"%D",1,0)="This cross reference is essential."
^DD(728.904,2,1,1,"DT")="2911112"
^DD(728.904,2,3)="Enter the date/time this drug was dispensed."
^DD(728.904,2,21,0)="^^1^1^2970611^^^^"
^DD(728.904,2,21,1,0)="This is the date/time when the medication was dispensed."
^DD(728.904,2,23,0)="^^2^2^2971113^^^^"
^DD(728.904,2,23,1,0)="Date is derived from the START DATE/TIME field (.03) of the PICK LIST "
^DD(728.904,2,23,2,0)="file (#53.5)."
^DD(728.904,2,"DT")="2961101"
^DD(728.904,2.5,0)="ORDER NUMBER^NJ10,0^^0;10^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(728.904,2.5,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(728.904,2.5,21,0)="^^1^1^3040922^"
^DD(728.904,2.5,21,1,0)="Unit Dose Order number associated with patient record."
^DD(728.904,2.5,"DT")="3040922"
^DD(728.904,3,0)="DRUG^P50'I^PSDRUG(^0;4^Q"
^DD(728.904,3,.1)="Drug"
^DD(728.904,3,3)="Enter the drug dispensed."
^DD(728.904,3,21,0)="^^1^1^2960912^^^^"
^DD(728.904,3,21,1,0)="This is the item dispensed as identified in the local DRUG file (#50)."
^DD(728.904,3,23,0)="^^3^3^2960912^^^"
^DD(728.904,3,23,1,0)="Drug is derived from the DISPENSE DRUG field (.01) within the DISPENSE "
^DD(728.904,3,23,2,0)="DRUG multiple (2) within the UNIT DOSE multiple (62) of the PHARMACY "
^DD(728.904,3,23,3,0)="PATIENT file (#55). It is a pointer to the DRUG file (#50)."
^DD(728.904,3,"DT")="2960912"
^DD(728.904,4,0)="QUANTITY^NJ5,0I^^0;5^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(728.904,4,.1)="Quantity"
^DD(728.904,4,3)="Enter a number between 1 and 10000, 0 decimal digits."
^DD(728.904,4,21,0)="^^1^1^2960912^^^"
^DD(728.904,4,21,1,0)="This is the number of items dispensed."
^DD(728.904,4,23,0)="^^3^3^2960912^"
^DD(728.904,4,23,1,0)="Quantity is derived from the #DOSES ACTUALLY DISPENSED field (.03) "
^DD(728.904,4,23,2,0)="within the DISPENSE DRUG multiple (1) within the ORDER multiple (1) "
^DD(728.904,4,23,3,0)="within the PATIENT multiple (1) of the PICK LIST file (#53.5)."
^DD(728.904,4,"DT")="2960912"
^DD(728.904,5,0)="WARD^P42'I^DIC(42,^0;6^Q"
^DD(728.904,5,.1)="Ward"
^DD(728.904,5,3)="Enter the ward location for this patient."
^DD(728.904,5,21,0)="^^1^1^2960912^^^"
^DD(728.904,5,21,1,0)="This is the location of the patient when he received the medication."
^DD(728.904,5,23,0)="^^3^3^2960912^^"
^DD(728.904,5,23,1,0)="Derived from the WARD field (.03) within the PATIENT multiple (1) of "
^DD(728.904,5,23,2,0)="the PICK LIST file (#53.5). WARD is a pointer to the WARD LOCATION "
^DD(728.904,5,23,3,0)="file (#42)."
^DD(728.904,5,"DT")="2960912"
^DD(728.904,6,0)="PROVIDER^FI^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(728.904,6,.1)="Provider"
^DD(728.904,6,3)="Your answer must be 1 to 30 characters in length."
^DD(728.904,6,21,0)="^^1^1^2960912^^^^"
^DD(728.904,6,21,1,0)="This is the provider responsible for this medication order."
^DD(728.904,6,23,0)="^^3^3^2960912^^"
^DD(728.904,6,23,1,0)="Derived from the PROVIDER field (1) within the UNIT DOSE multiple "
^DD(728.904,6,23,2,0)="(62) of the PHARMACY PATIENT file (#55). Provider is the NEW PERSON "
^DD(728.904,6,23,3,0)="file (#200) pointer number concatenated with "";200""."
^DD(728.904,6,"DT")="2960912"
^DD(728.904,7,0)="TOTAL COST^NJ5,0I^^0;8^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(728.904,7,.1)="Total Cost"
^DD(728.904,7,3)="Enter a number between 0 and 10000, 0 decimal digits."
^DD(728.904,7,21,0)="^^1^1^2960912^^^"
^DD(728.904,7,21,1,0)="This is the total cost of the items dispensed in this order."
^DD(728.904,7,23,0)="^^3^3^2960912^"
^DD(728.904,7,23,1,0)="Total cost is derived from the PRICE PER DISPENSE UNIT field (16) of the "
^DD(728.904,7,23,2,0)="DRUG file (#50) multiplied by the #DOSES ACTUALLY DISPENSED field (.03) "
^DD(728.904,7,23,3,0)="within the DISPENSE DRUG multiple (1) of the PICK LIST file (#53.5)."
^DD(728.904,7,"DT")="2960912"
^DD(728.904,8,0)="EXTRACT NUMBER^P727'^ECX(727,^1;1^Q"
^DD(728.904,8,.1)="Extract Number"
^DD(728.904,8,1,0)="^.1"
^DD(728.904,8,1,1,0)="728.904^AC"
^DD(728.904,8,1,1,1)="S ^ECX(728.904,""AC"",$E(X,1,30),DA)="""""
^DD(728.904,8,1,1,2)="K ^ECX(728.904,""AC"",$E(X,1,30),DA)"
^DD(728.904,8,1,1,3)="DO NOT DELETE."
^DD(728.904,8,1,1,"%D",0)="^^5^5^2960913^^^^"
^DD(728.904,8,1,1,"%D",1,0)="This cross reference is essential for managing the transfer of data"
^DD(728.904,8,1,1,"%D",2,0)="from this to file the UNIT DOSE LOCAL EXTRACT file (#727.809) and "
^DD(728.904,8,1,1,"%D",3,0)="ultimately to the commercial DSS software. It is also used to control "
^DD(728.904,8,1,1,"%D",4,0)="purging of data from this file. This cross reference must not be "
^DD(728.904,8,1,1,"%D",5,0)="modified."
^DD(728.904,8,1,1,"DT")="2911112"
^DD(728.904,8,3)="Enter the extract number for this medication dispensing action."
^DD(728.904,8,21,0)="^^1^1^2960912^^^^"
^DD(728.904,8,21,1,0)="Pointer to the corresponding entry in the DSS EXTRACT LOG file (#727)."
^DD(728.904,8,23,0)="^^4^4^2960912^^^^"
^DD(728.904,8,23,1,0)="This entry and the corresponding cross reference are set when data is"
^DD(728.904,8,23,2,0)="extracted from this file into the UNIT DOSE LOCAL EXTRACT file (#727.809)."
^DD(728.904,8,23,3,0)="The cross reference on this field is used to control extracting data"
^DD(728.904,8,23,4,0)="from this file and also used to permit purging of data in this file."
^DD(728.904,8,"DT")="2960912"
^DD(728.904,9,0)="ORDER DATE^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(728.904,9,.1)="Order Date"
^DD(728.904,9,3)="Enter the date/time the order was made."
^DD(728.904,9,21,0)="^.001^1^1^3020612^^"
^DD(728.904,9,21,1,0)="This is the date/time the medication was ordered."
^DD(728.904,9,23,0)="^^2^2^3020612^"
^DD(728.904,9,23,1,0)="Derived from the START DATE/TIME field (#10) in the UNIT DOSE Multiple"
^DD(728.904,9,23,2,0)="(file 55.06) of the PHARMACY PATIENT file (#55)."
^DD(728.904,9,"DT")="3020612"
^DD(728.904,"B","DATE",2)=""
^DD(728.904,"B","DFN",1)=""
^DD(728.904,"B","DRUG",3)=""
^DD(728.904,"B","Date",2)="1"
^DD(728.904,"B","Drug",3)="1"
^DD(728.904,"B","EXTRACT NUMBER",8)=""
^DD(728.904,"B","Extract Number",8)="1"
^DD(728.904,"B","ORDER DATE",9)=""
^DD(728.904,"B","ORDER NUMBER",2.5)=""
^DD(728.904,"B","Order Date",9)="1"
^DD(728.904,"B","PROVIDER",6)=""
^DD(728.904,"B","Patient Number",1)="1"
^DD(728.904,"B","Provider",6)="1"
^DD(728.904,"B","QUANTITY",4)=""
^DD(728.904,"B","Quantity",4)="1"
^DD(728.904,"B","SEQUENCE NUMBER",.01)=""
^DD(728.904,"B","Sequence Number",.01)="1"
^DD(728.904,"B","TOTAL COST",7)=""
^DD(728.904,"B","Total Cost",7)="1"
^DD(728.904,"B","WARD",5)=""
^DD(728.904,"B","Ward",5)="1"
^DD(728.904,"GL",0,1,.01)=""
^DD(728.904,"GL",0,2,1)=""
^DD(728.904,"GL",0,3,2)=""
^DD(728.904,"GL",0,4,3)=""
^DD(728.904,"GL",0,5,4)=""
^DD(728.904,"GL",0,6,5)=""
^DD(728.904,"GL",0,7,6)=""
^DD(728.904,"GL",0,8,7)=""
^DD(728.904,"GL",0,9,9)=""
^DD(728.904,"GL",0,10,2.5)=""
^DD(728.904,"GL",1,1,8)=""
^DD(728.904,"IX",.01)=""
^DD(728.904,"IX",2)=""
^DD(728.904,"IX",8)=""
^DD(728.904,"RQ",.01)=""
^DD(729,0)="FIELD^^2^3"
^DD(729,0,"DDA")="N"
^DD(729,0,"DT")="2980630"
^DD(729,0,"ID",1)="W ""   "",$P(^(0),U,3)"
^DD(729,0,"IX","B",729,.01)=""
^DD(729,0,"NM","DSS PRODUCTION UNIT")=""
^DD(729,0,"VR")="3.0"
^DD(729,0,"VRPK")="ECX"
^DD(729,.01,0)="DSS PRODUCTION UNIT CODE^RF^^0;1^K X"
^DD(729,.01,1,0)="^.1"
^DD(729,.01,1,1,0)="729^B"
^DD(729,.01,1,1,1)="S ^ECX(729,""B"",$E(X,1,30),DA)="""""
^DD(729,.01,1,1,2)="K ^ECX(729,""B"",$E(X,1,30),DA)"
^DD(729,.01,3)="Answer must be 2 characters in length."
^DD(729,.01,8.5)="^"
^DD(729,.01,9)="^"
^DD(729,.01,21,0)="^^6^6^2980701^^"
^DD(729,.01,21,1,0)="A unique two-character code for the DSS Production Unit.  DSS Production"
^DD(729,.01,21,2,0)="Units and associated codes are provided by the Bedford Technical Services"
^DD(729,.01,21,3,0)="Office."
^DD(729,.01,21,4,0)=" "
^DD(729,.01,21,5,0)="The two characters may consist of any numeric digit or any uppercase"
^DD(729,.01,21,6,0)="alphabetic character."
^DD(729,.01,"DT")="2980702"
^DD(729,1,0)="LONG DESCRIPTION^RF^^0;3^K:$L(X)>80!($L(X)<3) X"
^DD(729,1,3)="Answer must be 3-80 characters in length."
^DD(729,1,8.5)="^"
^DD(729,1,9)="^"
^DD(729,1,21,0)="^^4^4^2980701^"
^DD(729,1,21,1,0)="A descriptive phrase which defines the DSS Production Unit."
^DD(729,1,21,2,0)=" "
^DD(729,1,21,3,0)="As with all information associated with DSS Production Units, this"
^DD(729,1,21,4,0)="is provided by the Bedford Technical Services Office."
^DD(729,1,"DT")="2980630"
^DD(729,2,0)="SHORT DESCRIPTION^F^^0;4^K:$L(X)>10!($L(X)<3) X"
^DD(729,2,3)="Answer must be 3-10 characters in length."
^DD(729,2,8.5)="^"
^DD(729,2,9)="^"
^DD(729,2,21,0)="^^6^6^2980701^"
^DD(729,2,21,1,0)="An acronym-like character string which identifies the DSS Production"
^DD(729,2,21,2,0)="Unit."
^DD(729,2,21,3,0)=" "
^DD(729,2,21,4,0)="The string may be no more than 10 characters in length.  It may contain"
^DD(729,2,21,5,0)="uppercase letters, numeric digits, and certain special characters (e.g.,"
^DD(729,2,21,6,0)="""/"", ""-"", and <space>)."
^DD(729,2,"DT")="2980630"
^DD(729,"B","DSS PRODUCTION UNIT CODE",.01)=""
^DD(729,"B","LONG DESCRIPTION",1)=""
^DD(729,"B","SHORT DESCRIPTION",2)=""
^DD(729,"GL",0,1,.01)=""
^DD(729,"GL",0,3,1)=""
^DD(729,"GL",0,4,2)=""
^DD(729,"IX",.01)=""
^DD(729,"RQ",.01)=""
^DD(729,"RQ",1)=""
^DD(730,0)="FIELD^^747^7"
^DD(730,0,"DDA")="N"
^DD(730,0,"DT")="2910128"
^DD(730,0,"IX","ALS",730,2)=""
^DD(730,0,"IX","B",730,.01)=""
^DD(730,0,"IX","C",730,3)=""
^DD(730,0,"NM","NATIONAL SERVICE")=""
^DD(730,0,"PT",49,730)=""
^DD(730,0,"PT",200,747.1)=""
^DD(730,0,"PT",200,747.114)=""
^DD(730,0,"PT",453,747.23)=""
^DD(730,0,"PT",731.01,.01)=""
^DD(730,0,"PT",731.02,5)=""
^DD(730,0,"PT",731.5,1)=""
^DD(730,0,"PT",731.701,.01)=""
^DD(730,0,"PT",742,.08)=""
^DD(730,0,"PT",742.01,.01)=""
^DD(730,0,"PT",745.115,.01)=""
^DD(730,0,"PT",785,5)=""
^DD(730,0,"PT",785.5,5)=""
^DD(730,0,"VR")="2"
^DD(730,.01,0)="NAME^RFIX^^0;1^K X W !!,*7,""Additions, Changes and Deletions are not allowed"",*7,!!"
^DD(730,.01,.1)="SERVICE NAME"
^DD(730,.01,1,0)="^.1"
^DD(730,.01,1,1,0)="730^B"
^DD(730,.01,1,1,1)="S ^ECC(730,""B"",$E(X,1,30),DA)="""""
^DD(730,.01,1,1,2)="K ^ECC(730,""B"",$E(X,1,30),DA)"
^DD(730,.01,3)="Answer must be 3-35 characters in length."
^DD(730,.01,8.5)="^"
^DD(730,.01,9)="^"
^DD(730,.01,21,0)="^^1^1^2920927^^^^"
^DD(730,.01,21,1,0)="Free-text name of this national service."
^DD(730,.01,"DEL",.01,0)="I 1 W !,?10,""National Services cannot be DELETED!!"""
^DD(730,.01,"DT")="2901218"
^DD(730,1,0)="ROUTING SYMBOL^F^^0;2^K:$L(X)>7!($L(X)<2) X"
^DD(730,1,3)="Answer must be 2-7 characters in length."
^DD(730,1,8.5)="^"
^DD(730,1,21,0)="^^1^1^2901130^"
^DD(730,1,21,1,0)="Routing symbol for national service selected."
^DD(730,2,0)="LOCAL SERVICE?^S^0:NO;1:YES;^0;3^Q"
^DD(730,2,1,0)="^.1"
^DD(730,2,1,1,0)="730^ALS^MUMPS"
^DD(730,2,1,1,1)="S:$P(^ECC(730,DA,0),U,3)=1 ^ECC(730,""ALS"",DA)="""""
^DD(730,2,1,1,2)="K:$P(^ECC(730,DA,0),U,3)'=1 ^ECC(730,""ALS"",DA)"
^DD(730,2,3)="Indicate if this 'national' service exists as a 'local' service."
^DD(730,2,21,0)="^^2^2^2901015^^^^"
^DD(730,2,21,1,0)="Does this service exist at the local site?  If so, answer with a"
^DD(730,2,21,2,0)="""Y"" or ""1"", if not, answer with ""N"", ""0"", or press return."
^DD(730,2,"DT")="2901015"
^DD(730,3,0)="DSS SERVICE CODE^FI^^0;4^K:$L(X)>1!($L(X)<1) X"
^DD(730,3,1,0)="^.1"
^DD(730,3,1,1,0)="730^C"
^DD(730,3,1,1,1)="S ^ECC(730,""C"",$E(X,1,30),DA)="""""
^DD(730,3,1,1,2)="K ^ECC(730,""C"",$E(X,1,30),DA)"
^DD(730,3,1,1,"%D",0)="^^1^1^2980714^"
^DD(730,3,1,1,"%D",1,0)="Regular cross-reference on DSS Service Code."
^DD(730,3,1,1,"DT")="2980714"
^DD(730,3,3)="Answer must be 1 character in length."
^DD(730,3,8.5)="^"
^DD(730,3,9)="^"
^DD(730,3,21,0)="^^3^3^2980714^^"
^DD(730,3,21,1,0)="DSS National Service Code for clinical services.  Data is provided"
^DD(730,3,21,2,0)="by DSS Bedford Technical Service Office and is not editable by the "
^DD(730,3,21,3,0)="local site."
^DD(730,3,23,0)="^^2^2^2980714^^"
^DD(730,3,23,1,0)="Exactly one alphanumeric character; if alpha then must "
^DD(730,3,23,2,0)="be uppercase."
^DD(730,3,"DT")="2980715"
^DD(730,4,0)="VA COST CENTER^FI^^0;5^K:$L(X)>3!($L(X)<3) X"
^DD(730,4,3)="Answer must be 3 characters in length."
^DD(730,4,8.5)="^"
^DD(730,4,9)="^"
^DD(730,4,21,0)="^^3^3^2980714^"
^DD(730,4,21,1,0)="VA Cost Center associated with the service.  Data is provided"
^DD(730,4,21,2,0)="by DSS Bedford Technical Service Office and is not editable by the "
^DD(730,4,21,3,0)="local site."
^DD(730,4,23,0)="^^1^1^2980714^"
^DD(730,4,23,1,0)="A code consisting of three numeric characters."
^DD(730,4,"DT")="2980714"
^DD(730,10,0)="T&L UNIT^730.01PA^^TL;0"
^DD(730,10,21,0)="^^1^1^2901024^^"
^DD(730,10,21,1,0)="Identify the T&L units which are associated with this 'local' service."
^DD(730,747,0)="GENERAL PRIVILEGE^730.0747^^QAR;0"
^DD(730,747,21,0)="^^2^2^2910129^"
^DD(730,747,21,1,0)="General Privilege associated with this National Service.  Used by the"
^DD(730,747,21,2,0)="Credentials Tracking module of the Quality Assurance package."
^DD(730,"B","DSS SERVICE CODE",3)=""
^DD(730,"B","GENERAL PRIVILEGE",747)=""
^DD(730,"B","LOCAL SERVICE?",2)=""
^DD(730,"B","NAME",.01)=""
^DD(730,"B","ROUTING SYMBOL",1)=""
^DD(730,"B","SERVICE NAME",.01)="1"
^DD(730,"B","T&L UNIT",10)=""
^DD(730,"B","VA COST CENTER",4)=""
^DD(730,"GL",0,1,.01)=""
^DD(730,"GL",0,2,1)=""
^DD(730,"GL",0,3,2)=""
^DD(730,"GL",0,4,3)=""
^DD(730,"GL",0,5,4)=""
^DD(730,"GL","QAR",0,747)=""
^DD(730,"GL","TL",0,10)=""
^DD(730,"IX",.01)=""
^DD(730,"IX",2)=""
^DD(730,"IX",3)=""
^DD(730,"RQ",.01)=""
^DD(730,"SB",730.01,10)=""
^DD(730,"SB",730.0747,747)=""
^DD(730.01,0)="T&L UNIT SUB-FIELD^^.01^1"
^DD(730.01,0,"ACT")="W:$S('$D(DIC(""W"")):1,1:DIC(""W"")="""") ""        "",$P(^PRST(455.5,+Y,0),U,2)"
^DD(730.01,0,"IX","B",730.01,.01)=""
^DD(730.01,0,"NM","T&L UNIT")=""
^DD(730.01,0,"UP")="730"
^DD(730.01,.01,0)="T&L UNIT^XM*P455.5'^PRST(455.5,^0;1^S DIC(""W"")=""W """"        """",$P(^PRST(455.5,+Y,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(730.01,.01,1,0)="^.1"
^DD(730.01,.01,1,1,0)="730.01^B"
^DD(730.01,.01,1,1,1)="S ^ECC(730,DA(1),""TL"",""B"",$E(X,1,30),DA)="""""
^DD(730.01,.01,1,1,2)="K ^ECC(730,DA(1),""TL"",""B"",$E(X,1,30),DA)"
^DD(730.01,.01,3)="Enter all T&L units for this service."
^DD(730.01,.01,12)=" "
^DD(730.01,.01,12.1)="S DIC(""W"")=""W """"        """",$P(^PRST(455.5,+Y,0),U,2)"""
^DD(730.01,.01,21,0)="^^1^1^2901024^"
^DD(730.01,.01,21,1,0)="Identify the T&L units which are associated with this 'local' service."
^DD(730.01,.01,"DT")="2901101"
^DD(730.01,"B","T&L UNIT",.01)=""
^DD(730.01,"GL",0,1,.01)=""
^DD(730.01,"IX",.01)=""
^DD(730.0747,0)="GENERAL PRIVILEGE SUB-FIELD^^.01^1"
^DD(730.0747,0,"DT")="2910128"
^DD(730.0747,0,"NM","GENERAL PRIVILEGE")=""
^DD(730.0747,0,"UP")="730"
^DD(730.0747,.01,0)="GENERAL PRIVILEGE^W^^0;1^Q"
^DD(730.0747,.01,21,0)="^^1^1^2920731^"
^DD(730.0747,.01,21,1,0)="This is a free text field to put in the general privileges for a Service."
^DD(730.0747,.01,"DT")="2910129"
^DD(730.0747,"B","GENERAL PRIVILEGE",.01)=""
^DD(730.0747,"GL",0,1,.01)=""
^DD(731,0)="FIELD^^40^6"
^DD(731,0,"IX","B",731,.01)=""
^DD(731,0,"NM","VAMC MANAGEMENT")=""
^DD(731,.01,0)="FISCAL YEAR^RFX^^0;1^K:X'?2N X I $D(X) S DINUM=$S(+X<70:""3""_X,1:""2""_X)"
^DD(731,.01,.1)="FY"
^DD(731,.01,1,0)="^.1"
^DD(731,.01,1,1,0)="731^B"
^DD(731,.01,1,1,1)="S ^ECT(731,""B"",$E(X,1,30),DA)="""""
^DD(731,.01,1,1,2)="K ^ECT(731,""B"",$E(X,1,30),DA)"
^DD(731,.01,3)="Enter the two digit code for the Fiscal Year."
^DD(731,.01,21,0)="^^3^3^2910116^^^^"
^DD(731,.01,21,1,0)="Enter the fiscal year for which VAMC management data is to be collected."
^DD(731,.01,21,2,0)="This is the 2-digit code representing the fiscal year, i.e., 89 stands"
^DD(731,.01,21,3,0)="for fiscal year 1989."
^DD(731,.01,"DT")="2901022"
^DD(731,1,0)="TOTAL ASSIGNED FTEE^NJ8,3^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(731,1,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(731,1,21,0)="^^1^1^2910116^^^^"
^DD(731,1,21,1,0)="Enter the total assigned FTEE for the VAMC for the selected fiscal year."
^DD(731,1,"DT")="2910116"
^DD(731,10,0)="SERVICE^731.01PA^^10;0"
^DD(731,10,21,0)="^^2^2^2901022^"
^DD(731,10,21,1,0)="Service is a pointer to the National Service file.  Choose the service"
^DD(731,10,21,2,0)="for which FTEE data is to be entered."
^DD(731,20,0)="CONTRACT^731.02AI^^20;0"
^DD(731,20,21,0)="^^1^1^2901103^"
^DD(731,20,21,1,0)="Enter the contract number which uniquely identifies the contract."
^DD(731,30,0)="INPATIENT WORKLOAD^731.03A^^30;0"
^DD(731,30,21,0)="^^2^2^2901221^^^^"
^DD(731,30,21,1,0)="This multiple contains workload data for the VAMC, nursing home,"
^DD(731,30,21,2,0)="or domiciliary."
^DD(731,40,0)="OUTPATIENT WORKLOAD^731.04PA^^40;0"
^DD(731,40,21,0)="^^1^1^2901106^"
^DD(731,40,21,1,0)="This multiple contains workload data for all outpatient facilities."
^DD(731,"B","CONTRACT",20)=""
^DD(731,"B","FISCAL YEAR",.01)=""
^DD(731,"B","FY",.01)="1"
^DD(731,"B","INPATIENT WORKLOAD",30)=""
^DD(731,"B","OUTPATIENT WORKLOAD",40)=""
^DD(731,"B","SERVICE",10)=""
^DD(731,"B","TOTAL ASSIGNED FTEE",1)=""
^DD(731,"GL",0,1,.01)=""
^DD(731,"GL",0,2,1)=""
^DD(731,"GL",10,0,10)=""
^DD(731,"GL",20,0,20)=""
^DD(731,"GL",30,0,30)=""
^DD(731,"GL",40,0,40)=""
^DD(731,"IX",.01)=""
^DD(731,"RQ",.01)=""
^DD(731,"SB",731.01,10)=""
^DD(731,"SB",731.02,20)=""
^DD(731,"SB",731.03,30)=""
^DD(731,"SB",731.04,40)=""
^DD(731.01,0)="SERVICE SUB-FIELD^^1^2"
^DD(731.01,0,"NM","SERVICE")=""
^DD(731.01,0,"UP")="731"
^DD(731.01,.01,0)="SERVICE^MP730'X^ECC(730,^0;1^S:$D(X)#2 DINUM=X"
^DD(731.01,.01,1,0)="^.1^^0"
^DD(731.01,.01,3)="Select SERVICE for which FTEE data will be entered."
^DD(731.01,.01,21,0)="^^2^2^2901022^^"
^DD(731.01,.01,21,1,0)="Service is a pointer to the National Service file.  Choose the service"
^DD(731.01,.01,21,2,0)="for which FTEE data is to be entered."
^DD(731.01,.01,"DT")="2901022"
^DD(731.01,1,0)="ASSIGNED FTEE^NJ8,3^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(731.01,1,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(731.01,1,21,0)="^^1^1^2901022^"
^DD(731.01,1,21,1,0)="Enter the assigned FTEE for the service for this fiscal year."
^DD(731.01,1,"DT")="2910116"
^DD(731.01,"B","ASSIGNED FTEE",1)=""
^DD(731.01,"B","SERVICE",.01)=""
^DD(731.01,"GL",0,1,.01)=""
^DD(731.01,"GL",0,2,1)=""
^DD(731.02,0)="CONTRACT SUB-FIELD^^5^6"
^DD(731.02,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(731.02,0,"IX","B",731.02,.01)=""
^DD(731.02,0,"NM","CONTRACT")=""
^DD(731.02,0,"UP")="731"
^DD(731.02,.01,0)="CONTRACT #^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(731.02,.01,1,0)="^.1"
^DD(731.02,.01,1,1,0)="731.02^B"
^DD(731.02,.01,1,1,1)="S ^ECT(731,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(731.02,.01,1,1,2)="K ^ECT(731,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(731.02,.01,3)="Answer must be 1-20 characters in length."
^DD(731.02,.01,21,0)="^^1^1^2901103^^"
^DD(731.02,.01,21,1,0)="Enter the contract number which uniquely identifies the contract."
^DD(731.02,.01,"DT")="2901103"
^DD(731.02,1,0)="DESCRIPTION^RF^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(731.02,1,3)="Answer must be 1-45 characters in length."
^DD(731.02,1,21,0)="^^2^2^2901103^^"
^DD(731.02,1,21,1,0)="What it the purpose of the contract?  For example, 'FIRE ALARM SYSTEM"
^DD(731.02,1,21,2,0)="MAINTENANCE' or 'DISPOSAL OF TRASH & NON-EDIBLE GARBAGE'."
^DD(731.02,1,"DT")="2901103"
^DD(731.02,2,0)="TYPE^S^1:MAINTENANCE;2:SERVICE;3:SHARING;4:CONSTRUCTION;^0;3^Q"
^DD(731.02,2,3)="Indicate type of contract: maintenance, service, sharing, or construction."
^DD(731.02,2,21,0)="^^2^2^2910115^^"
^DD(731.02,2,21,1,0)="Indicate the type of contract:  enter '1' for maintenance,"
^DD(731.02,2,21,2,0)="'2' for service, '3' for sharing, or '4' for construction."
^DD(731.02,2,"DT")="2910115"
^DD(731.02,3,0)="AMOUNT^NJ10,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(731.02,3,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(731.02,3,21,0)="^^1^1^2901103^^"
^DD(731.02,3,21,1,0)="Enter the dollar amount of the contract."
^DD(731.02,3,"DT")="2901103"
^DD(731.02,4,0)="VENDOR^P440'^PRC(440,^0;5^Q"
^DD(731.02,4,3)="Select vendor for contract."
^DD(731.02,4,21,0)="^^1^1^2901103^^"
^DD(731.02,4,21,1,0)="Select the contract vendor."
^DD(731.02,4,"DT")="2901103"
^DD(731.02,5,0)="RESPONSIBLE SERVICE^*P730'^ECC(730,^0;6^S DIC(""S"")=""I $D(^ECC(730,""""ALS"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(731.02,5,3)="Enter the service which is responsible for the contract."
^DD(731.02,5,12)="Select only services which have been identified as 'local' services."
^DD(731.02,5,12.1)="S DIC(""S"")=""I $D(^ECC(730,""""ALS"""",+Y))"""
^DD(731.02,5,21,0)="^^1^1^2901103^^^"
^DD(731.02,5,21,1,0)="Enter the service which is responsible for the contract."
^DD(731.02,5,"DT")="2901103"
^DD(731.02,"B","AMOUNT",3)=""
^DD(731.02,"B","CONTRACT #",.01)=""
^DD(731.02,"B","DESCRIPTION",1)=""
^DD(731.02,"B","RESPONSIBLE SERVICE",5)=""
^DD(731.02,"B","TYPE",2)=""
^DD(731.02,"B","VENDOR",4)=""
^DD(731.02,"GL",0,1,.01)=""
^DD(731.02,"GL",0,2,1)=""
^DD(731.02,"GL",0,3,2)=""
^DD(731.02,"GL",0,4,3)=""
^DD(731.02,"GL",0,5,4)=""
^DD(731.02,"GL",0,6,5)=""
^DD(731.02,"IX",.01)=""
^DD(731.02,"RQ",1)=""
^DD(731.03,0)="INPATIENT WORKLOAD SUB-FIELD^^2^3"
^DD(731.03,0,"IX","B",731.03,.01)=""
^DD(731.03,0,"NM","INPATIENT WORKLOAD")=""
^DD(731.03,0,"UP")="731"
^DD(731.03,.01,0)="INPATIENT NAME^MF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(731.03,.01,.1)="NAME"
^DD(731.03,.01,1,0)="^.1"
^DD(731.03,.01,1,1,0)="731.03^B"
^DD(731.03,.01,1,1,1)="S ^ECT(731,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(731.03,.01,1,1,2)="K ^ECT(731,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(731.03,.01,3)="Answer must be 3-40 characters in length."
^DD(731.03,.01,21,0)="^^1^1^2901221^^^^"
^DD(731.03,.01,21,1,0)="Field contains the name of the VAMC, nursing home, or domiciliary."
^DD(731.03,.01,"DT")="2901106"
^DD(731.03,1,0)="DIVISION^P40.8'^DG(40.8,^0;2^Q"
^DD(731.03,1,21,0)="^^1^1^2901106^"
^DD(731.03,1,21,1,0)="Enter the division from the Medical Center Division file - #40.8."
^DD(731.03,1,"DT")="2901106"
^DD(731.03,2,0)="DISCHARGES^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(731.03,2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(731.03,2,21,0)="^^2^2^2901106^"
^DD(731.03,2,21,1,0)="Enter the total number of discharges for the fiscal year for"
^DD(731.03,2,21,2,0)="the inpatient entry."
^DD(731.03,2,"DT")="2901106"
^DD(731.03,"B","DISCHARGES",2)=""
^DD(731.03,"B","DIVISION",1)=""
^DD(731.03,"B","INPATIENT NAME",.01)=""
^DD(731.03,"B","NAME",.01)="1"
^DD(731.03,"GL",0,1,.01)=""
^DD(731.03,"GL",0,2,1)=""
^DD(731.03,"GL",0,3,2)=""
^DD(731.03,"IX",.01)=""
^DD(731.04,0)="OUTPATIENT WORKLOAD SUB-FIELD^^1^2"
^DD(731.04,0,"NM","OUTPATIENT WORKLOAD")=""
^DD(731.04,0,"UP")="731"
^DD(731.04,.01,0)="OUTPATIENT NAME^MP40.8'X^DG(40.8,^0;1^S:$D(X)#2 DINUM=X"
^DD(731.04,.01,.1)="NAME"
^DD(731.04,.01,1,0)="^.1^^0"
^DD(731.04,.01,21,0)="^^1^1^2901106^"
^DD(731.04,.01,21,1,0)="Field contains the name of the outpatient facility."
^DD(731.04,.01,"DT")="2901106"
^DD(731.04,1,0)="VISITS^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(731.04,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(731.04,1,21,0)="^^2^2^2901109^^"
^DD(731.04,1,21,1,0)="For the selected fiscal year, enter the total number of outpatient"
^DD(731.04,1,21,2,0)="visits for this facility."
^DD(731.04,1,"DT")="2901109"
^DD(731.04,"B","NAME",.01)="1"
^DD(731.04,"B","OUTPATIENT NAME",.01)=""
^DD(731.04,"B","VISITS",1)=""
^DD(731.04,"GL",0,1,.01)=""
^DD(731.04,"GL",0,2,1)=""
^DD(731.5,0)="FIELD^^30^12"
^DD(731.5,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ECC(730,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(730,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(731.5,0,"IX","B",731.5,.01)=""
^DD(731.5,0,"NM","VAMC PLANNED EQUIPMENT")=""
^DD(731.5,.01,0)="ITEM NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(731.5,.01,.1)="PLANNED EQUIPMENT ITEM"
^DD(731.5,.01,1,0)="^.1"
^DD(731.5,.01,1,1,0)="731.5^B"
^DD(731.5,.01,1,1,1)="S ^ECT(731.5,""B"",$E(X,1,30),DA)="""""
^DD(731.5,.01,1,1,2)="K ^ECT(731.5,""B"",$E(X,1,30),DA)"
^DD(731.5,.01,3)="Answer must be 3-30 characters in length."
^DD(731.5,.01,21,0)="^^1^1^2901008^"
^DD(731.5,.01,21,1,0)="Enter the name of an item which VAMC plans to purchase."
^DD(731.5,1,0)="SERVICE^RP730'^ECC(730,^0;2^Q"
^DD(731.5,1,3)="Enter the service wishing to procure the item."
^DD(731.5,1,21,0)="^^2^2^2910116^^"
^DD(731.5,1,21,1,0)="Service is a pointer to the National Service file.  Choose the service"
^DD(731.5,1,21,2,0)="that wishes to procure the item."
^DD(731.5,1,"DT")="2901010"
^DD(731.5,2,0)="HIGH TECH EQT ITEM?^RS^0:NO;1:YES;^0;3^Q"
^DD(731.5,2,.1)="HIGH TECHNOLOGY EQUIPMENT LIST ITEM?"
^DD(731.5,2,3)="Is item from the regional high technology equipment list?"
^DD(731.5,2,21,0)="^^3^3^2901010^"
^DD(731.5,2,21,1,0)="Is the planned equipment item from the regional unfunded high"
^DD(731.5,2,21,2,0)="technology equipment list?  If yes, answer with a ""1"" or ""Y""."
^DD(731.5,2,21,3,0)="If not, answer with a ""0"" or ""N""."
^DD(731.5,2,"DT")="2901010"
^DD(731.5,3,0)="ADP EQT ITEM?^RS^0:NO;1:YES;^0;4^Q"
^DD(731.5,3,.1)="IRM/ADP EQUIPMENT ITEM?"
^DD(731.5,3,3)="Indicate if the item is for IRM/ADP."
^DD(731.5,3,21,0)="^^2^2^2901010^"
^DD(731.5,3,21,1,0)="Is the planned equipment item for IRM/ADP?  If so, answer with a"
^DD(731.5,3,21,2,0)="""1"" or ""Y"".  If not, answer with a ""0"" or ""N""."
^DD(731.5,3,"DT")="2901010"
^DD(731.5,4,0)="ADDITIONAL/REPLACEMENT?^RS^A:ADDITIONAL;R:REPLACEMENT;^0;5^Q"
^DD(731.5,4,.1)="ADDITIONAL OR REPLACEMENT ITEM?"
^DD(731.5,4,3)="Indicate if item is additional or replacement."
^DD(731.5,4,21,0)="^^2^2^2901010^"
^DD(731.5,4,21,1,0)="If the item is 'additional' equipment, enter 'A'; if 'replacement',"
^DD(731.5,4,21,2,0)="enter 'R'."
^DD(731.5,4,"DT")="2901010"
^DD(731.5,5,0)="PRIORITY^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(731.5,5,1,0)="^.1^^0"
^DD(731.5,5,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(731.5,5,21,0)="^^3^3^2901221^^"
^DD(731.5,5,21,1,0)="Indicate the level of importance for purchasing purposes."
^DD(731.5,5,21,2,0)="Number 1 indicates highest level of importance.  Number 999"
^DD(731.5,5,21,3,0)="indicates lowest possible level of importance."
^DD(731.5,5,"DT")="2901012"
^DD(731.5,6,0)="COST^NJ10,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(731.5,6,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(731.5,6,21,0)="^^1^1^2901010^"
^DD(731.5,6,21,1,0)="Enter the estimated cost of the planned purchase item."
^DD(731.5,6,"DT")="2901010"
^DD(731.5,20,0)="REQUEST DATE^RD^^1;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(731.5,20,3)="Enter date item was requested."
^DD(731.5,20,21,0)="^^2^2^2901009^^^^"
^DD(731.5,20,21,1,0)="Enter the date the item was requested.  Date may be exact, i.e."
^DD(731.5,20,21,2,0)="JAN 21,1991 or imprecise, i.e. JAN 1991."
^DD(731.5,20,"DT")="2901009"
^DD(731.5,21,0)="DATE APPROVED^D^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(731.5,21,3)="Enter date item was approved."
^DD(731.5,21,21,0)="^^1^1^2901008^"
^DD(731.5,21,21,1,0)="Enter the date the item was approved for purchase."
^DD(731.5,22,0)="DATE PROCURED^D^^1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(731.5,22,3)="Enter date item was procured."
^DD(731.5,22,21,0)="^^1^1^2901008^"
^DD(731.5,22,21,1,0)="Enter the date the item was purchased."
^DD(731.5,23,0)="STATUS^RS^A:APPROVED TO BE PURCHASED;P:APPROVED AND PURCHASED;N:NOT YET APPROVED OR PURCHASED;^1;4^Q"
^DD(731.5,23,3)="Enter the status of the planned item."
^DD(731.5,23,21,0)="^^3^3^2901009^^"
^DD(731.5,23,21,1,0)="Enter the status of the item: 'A' for Approved to be purchased,"
^DD(731.5,23,21,2,0)="'P' for approved and Purchased, and 'N' for Not yet approved"
^DD(731.5,23,21,3,0)="or purchased."
^DD(731.5,23,"DT")="2901009"
^DD(731.5,30,0)="JUSTIFICATION^731.51^^2;0"
^DD(731.5,30,21,0)="^^1^1^2901214^^^"
^DD(731.5,30,21,1,0)="Enter the justification for the planned equipment item."
^DD(731.5,"B","ADDITIONAL/REPLACEMENT?",4)=""
^DD(731.5,"B","ADP EQT ITEM?",3)=""
^DD(731.5,"B","COST",6)=""
^DD(731.5,"B","DATE APPROVED",21)=""
^DD(731.5,"B","DATE PROCURED",22)=""
^DD(731.5,"B","HIGH TECH EQT ITEM?",2)=""
^DD(731.5,"B","IRM/ADP EQUIPMENT ITEM?",3)="1"
^DD(731.5,"B","ITEM NAME",.01)=""
^DD(731.5,"B","JUSTIFICATION",30)=""
^DD(731.5,"B","PLANNED EQUIPMENT ITEM",.01)="1"
^DD(731.5,"B","PRIORITY",5)=""
^DD(731.5,"B","REQUEST DATE",20)=""
^DD(731.5,"B","SERVICE",1)=""
^DD(731.5,"B","STATUS",23)=""
^DD(731.5,"GL",0,1,.01)=""
^DD(731.5,"GL",0,2,1)=""
^DD(731.5,"GL",0,3,2)=""
^DD(731.5,"GL",0,4,3)=""
^DD(731.5,"GL",0,5,4)=""
^DD(731.5,"GL",0,6,5)=""
^DD(731.5,"GL",0,7,6)=""
^DD(731.5,"GL",1,1,20)=""
^DD(731.5,"GL",1,2,21)=""
^DD(731.5,"GL",1,3,22)=""
^DD(731.5,"GL",1,4,23)=""
^DD(731.5,"GL",2,0,30)=""
^DD(731.5,"IX",.01)=""
^DD(731.5,"RQ",.01)=""
^DD(731.5,"RQ",1)=""
^DD(731.5,"RQ",2)=""
^DD(731.5,"RQ",3)=""
^DD(731.5,"RQ",4)=""
^DD(731.5,"RQ",20)=""
^DD(731.5,"RQ",23)=""
^DD(731.5,"SB",731.51,30)=""
^DD(731.51,0)="JUSTIFICATION SUB-FIELD^^.01^1"
^DD(731.51,0,"NM","JUSTIFICATION")=""
^DD(731.51,0,"UP")="731.5"
^DD(731.51,.01,0)="JUSTIFICATION^W^^0;1^Q"
^DD(731.51,.01,3)="Enter a description or comment as justification."
^DD(731.51,.01,21,0)="^^1^1^2901214^^"
^DD(731.51,.01,21,1,0)="Enter the justification for the planned equipment item."
^DD(731.51,"B","JUSTIFICATION",.01)=""
^DD(731.51,"GL",0,1,.01)=""
^DD(731.7,0)="FIELD^^10^3"
^DD(731.7,0,"ID","WRITE")="W ""     YEAR: ""_(1700+$E(Y,1,3)),""     PAY PERIOD: ""_$E(Y,4,5)"
^DD(731.7,0,"IX","B",731.7,.01)=""
^DD(731.7,0,"NM","VAMC STAFFING")=""
^DD(731.7,.01,0)="PAY PERIOD^RFXI^^0;1^K:$L(X)>5!($L(X)<5)!'(X?5N) X I $D(X) S DINUM=X"
^DD(731.7,.01,1,0)="^.1"
^DD(731.7,.01,1,1,0)="731.7^B"
^DD(731.7,.01,1,1,1)="S ^ECT(731.7,""B"",$E(X,1,30),DA)="""""
^DD(731.7,.01,1,1,2)="K ^ECT(731.7,""B"",$E(X,1,30),DA)"
^DD(731.7,.01,3)="Answer must be 5 characters in length."
^DD(731.7,.01,21,0)="^^3^3^2901221^^^^"
^DD(731.7,.01,21,1,0)="This field contains the year/pay period in the form of the first three"
^DD(731.7,.01,21,2,0)="characters being the VA FileMan year (i.e., 290 for 1990) and the next"
^DD(731.7,.01,21,3,0)="two characters being the pay period (01 to 27)."
^DD(731.7,.01,"DT")="2901016"
^DD(731.7,1,0)="DATE ENDING^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(731.7,1,3)="Enter last day of the pay period."
^DD(731.7,1,21,0)="^^1^1^2901012^"
^DD(731.7,1,21,1,0)="Enter the month, day, and year of the last day of the pay period."
^DD(731.7,10,0)="SERVICE^731.701PA^^1;0"
^DD(731.7,10,21,0)="^^2^2^2901017^^^"
^DD(731.7,10,21,1,0)="Service is a pointer to the National Service file.  Choose the service"
^DD(731.7,10,21,2,0)="for which staffing data is to be entered."
^DD(731.7,"B","DATE ENDING",1)=""
^DD(731.7,"B","PAY PERIOD",.01)=""
^DD(731.7,"B","SERVICE",10)=""
^DD(731.7,"GL",0,1,.01)=""
^DD(731.7,"GL",0,2,1)=""
^DD(731.7,"GL",1,0,10)=""
^DD(731.7,"IX",.01)=""
^DD(731.7,"RQ",.01)=""
^DD(731.7,"SB",731.701,10)=""
^DD(731.701,0)="SERVICE SUB-FIELD^^3^4"
^DD(731.701,0,"NM","SERVICE")=""
^DD(731.701,0,"UP")="731.7"
^DD(731.701,.01,0)="SERVICE^MP730'X^ECC(730,^0;1^S:$D(X)#2 DINUM=X"
^DD(731.701,.01,1,0)="^.1^^0"
^DD(731.701,.01,3)="Select SERVICE for which staffing data will be entered."
^DD(731.701,.01,21,0)="^^2^2^2901017^^^"
^DD(731.701,.01,21,1,0)="Service is a pointer to the National Service file.  Choose the service"
^DD(731.701,.01,21,2,0)="for which staffing data is to be entered."
^DD(731.701,.01,"DT")="2901017"
^DD(731.701,1,0)="ASSIGNED FTEE^NJ8,3^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(731.701,1,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(731.701,1,21,0)="^^1^1^2901012^^"
^DD(731.701,1,21,1,0)="Enter the assigned FTEE for the service for this pay period."
^DD(731.701,1,"DT")="2910116"
^DD(731.701,2,0)="NONCUMULATIVE FTEE^NJ8,3^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(731.701,2,.1)="NON-CUM FTEE"
^DD(731.701,2,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(731.701,2,21,0)="^^1^1^2901012^"
^DD(731.701,2,21,1,0)="Enter the noncumulative FTEE for the service for this pay period."
^DD(731.701,2,"DT")="2910116"
^DD(731.701,3,0)="CUM FTEE FYTD^NJ8,3^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(731.701,3,.1)="CUMULATIVE FTEE FISCAL YEAR TO DATE"
^DD(731.701,3,3)="Type a Number between 0 and 9999, 3 Decimal Digits"
^DD(731.701,3,21,0)="^^2^2^2901012^"
^DD(731.701,3,21,1,0)="Enter the cumulative FTEE fiscal year to date for the service for"
^DD(731.701,3,21,2,0)="this pay period."
^DD(731.701,3,"DT")="2910116"
^DD(731.701,"B","ASSIGNED FTEE",1)=""
^DD(731.701,"B","CUM FTEE FYTD",3)=""
^DD(731.701,"B","NON-CUM FTEE",2)="1"
^DD(731.701,"B","NONCUMULATIVE FTEE",2)=""
^DD(731.701,"B","SERVICE",.01)=""
^DD(731.701,"GL",0,1,.01)=""
^DD(731.701,"GL",0,2,1)=""
^DD(731.701,"GL",0,3,2)=""
^DD(731.701,"GL",0,4,3)=""
^DD(740,0)="FIELD^^755^67"
^DD(740,0,"DDA")="N"
^DD(740,0,"DT")="2980305"
^DD(740,0,"IX","B",740,.01)=""
^DD(740,0,"IX","B",741.97,.01)=""
^DD(740,0,"NM","QUALITY ASSURANCE SITE PARAMETERS")=""
^DD(740,0,"VR")="2.0"
^DD(740,0,"VRPK")="QAN"
^DD(740,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(740,.001,3)="Please enter '1', only one entry allowed."
^DD(740,.001,21,0)="^^2^2^2930208^"
^DD(740,.001,21,1,0)="This file has DINUM set to one (1).  The only valid entry for this field"
^DD(740,.001,21,2,0)="is 1."
^DD(740,.001,"DT")="2891010"
^DD(740,.01,0)="NAME^P4'X^DIC(4,^0;1^S DINUM=1"
^DD(740,.01,.1)="SITE NAME"
^DD(740,.01,1,0)="^.1"
^DD(740,.01,1,1,0)="740^B"
^DD(740,.01,1,1,1)="S ^QA(740,""B"",$E(X,1,30),DA)="""""
^DD(740,.01,1,1,2)="K ^QA(740,""B"",$E(X,1,30),DA)"
^DD(740,.01,3)="Please enter your station name or number."
^DD(740,.01,21,0)="^^1^1^2910329^^"
^DD(740,.01,21,1,0)="This is the name of this institution."
^DD(740,.01,"DT")="2911121"
^DD(740,740.01,0)="EWS MAIL GROUP/SERVER^F^^0;2^K:$L(X)>32!($L(X)<5)!'(X?1U1"".""3.30NUP) X"
^DD(740,740.01,3)="Answer must be 5-32 characters in length."
^DD(740,740.01,21,0)="^^3^3^2910911^^^^"
^DD(740,740.01,21,1,0)="Enter the mail group or server name that the Early Warning System"
^DD(740,740.01,21,2,0)="bulletin should be sent to.  For mail groups you should enter"
^DD(740,740.01,21,3,0)="G.(MAILGROUP).  For mail servers you should enter S.(MAILSERVER)."
^DD(740,740.01,"DT")="2920402"
^DD(740,740.02,0)="EWS DOMAIN^FX^^0;3^S DIC=4.2,DIC(0)=""EMNQ"" D ^DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(740,740.02,3)="Answer must be 1-12 characters in length."
^DD(740,740.02,4)="N D,X S D=""B"",DIC=""^DIC(4.2,"",DIC(0)=""AEMNQ"" D DQ^DICQ Q"
^DD(740,740.02,21,0)="^^2^2^2910715^^^"
^DD(740,740.02,21,1,0)="Enter the domain name that the Early Warning System bulletins"
^DD(740,740.02,21,2,0)="should be sent to."
^DD(740,740.02,"DT")="2910610"
^DD(740,740.03,0)="NQADB MAIL GROUP/SERVER^F^^0;4^K:$L(X)>32!($L(X)<5)!'(X?1U1"".""3.30NUP) X"
^DD(740,740.03,3)="Answer must be 5-32 characters in length."
^DD(740,740.03,21,0)="^^3^3^2910708^"
^DD(740,740.03,21,1,0)="Enter the mail group or server name that the NQADB bulletin should be sent "
^DD(740,740.03,21,2,0)="to.  For mail groups you should enter, G.MAILGROUP.  For mail servers"
^DD(740,740.03,21,3,0)="you should enter, S.MAILSERVER."
^DD(740,740.03,"DT")="2920402"
^DD(740,740.04,0)="NQADB DOMAIN^FX^^0;5^S DIC=4.2,DIC(0)=""EMNQ"" D ^DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(740,740.04,3)="Answer must be 1-12 characters in length."
^DD(740,740.04,4)="N D,X S D=""B"",DIC=""^DIC(4.2,"",DIC(0)=""AEMNQ"" D DQ^DICQ Q"
^DD(740,740.04,21,0)="^^1^1^2910708^"
^DD(740,740.04,21,1,0)="Enter the domain name that the NQADB bulletins should be sent to."
^DD(740,740.04,"DT")="2910708"
^DD(740,740.05,0)="EWS LOCAL MAIL GROUP^P3.8'^XMB(3.8,^0;6^Q"
^DD(740,740.05,3)="Enter the mail group at your site that the automatic EWS bulletins should be sent to."
^DD(740,740.05,21,0)="^^4^4^2910725^^"
^DD(740,740.05,21,1,0)="This field contains the local mail group that the EWS bulletins"
^DD(740,740.05,21,2,0)="should be sent to.  This will allow the member(s) of the mail"
^DD(740,740.05,21,3,0)="group to save the EWS bulletins in their own mail baskets and to"
^DD(740,740.05,21,4,0)="check the status of those bulletins."
^DD(740,740.05,"DT")="2910724"
^DD(740,740.06,0)="MAIL GROUP (IRM)^P3.8'^XMB(3.8,^0;7^Q"
^DD(740,740.06,3)="Enter a mail group in which IRM will receive diagnostic messages."
^DD(740,740.06,21,0)="^^2^2^2930210^^"
^DD(740,740.06,21,1,0)="This field contains a mail group in which IRM will receive diagnostic"
^DD(740,740.06,21,2,0)="messages pertaining to the QM module."
^DD(740,740.06,"DT")="2930210"
^DD(740,740.07,0)="IRM MAIL GROUP SWITCH^S^1:YES;^0;8^Q"
^DD(740,740.07,3)="Enter 'Y'es if diagnostic mail is to be delivered to IRM."
^DD(740,740.07,21,0)="^^2^2^2930210^"
^DD(740,740.07,21,1,0)=" "
^DD(740,740.07,21,2,0)="Indicates if diagnostic mail is to be delivered to IRM."
^DD(740,740.07,"DT")="2930210"
^DD(740,740.99,0)="VERSION (QAQ)^F^^VER;5^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X"
^DD(740,740.99,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(740,740.99,21,0)="^^1^1^2930208^"
^DD(740,740.99,21,1,0)="Indicates the version of the QM Integration Module package."
^DD(740,740.99,"DT")="2921022"
^DD(740,741.01,0)="PEER REVIEW DAYS^NJ3,0^^OS;1^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(740,741.01,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(740,741.01,20,0)="^.3LA^1^1"
^DD(740,741.01,20,1,0)="QAOS"
^DD(740,741.01,21,0)="^^2^2^2891010^^^"
^DD(740,741.01,21,1,0)="This is the allowable number of days between the completion of the"
^DD(740,741.01,21,2,0)="Clinical Review and the completion of the Peer Review."
^DD(740,741.01,"DT")="2900201"
^DD(740,741.02,0)="MANAGEMENT REVIEW DAYS^NJ3,0^^OS;2^K:+X'=X!(X>365)!(X<0)!(X?.E1"".""1N.N) X"
^DD(740,741.02,3)="Type a Number between 0 and 365, 0 Decimal Digits"
^DD(740,741.02,20,0)="^.3LA^1^1"
^DD(740,741.02,20,1,0)="QAOS"
^DD(740,741.02,21,0)="^^2^2^2891010^^^"
^DD(740,741.02,21,1,0)="This is the number of allowable days between the completion of the"
^DD(740,741.02,21,2,0)="Clinical Review and the completion of the Management Review."
^DD(740,741.02,"DT")="2900201"
^DD(740,741.03,0)="CLINICAL WORKSHEET PART 1^RS^0:NO;1:YES;^OS;3^Q"
^DD(740,741.03,3)="ENTER 'YES' TO PRINT PART 1 OF THE CLINICAL WORKSHEET."
^DD(740,741.03,20,0)="^.3LA^1^1"
^DD(740,741.03,20,1,0)="QAOS"
^DD(740,741.03,21,0)="^^3^3^2900206^^^^"
^DD(740,741.03,21,1,0)="This field controls the printing of PART 1 of the CLINICAL WORKSHEET."
^DD(740,741.03,21,2,0)="        0- 'NO', do not print part 1."
^DD(740,741.03,21,3,0)="        1- 'YES', print part 1."
^DD(740,741.03,"DT")="2891010"
^DD(740,741.04,0)="AUTO-PRINT CLINICAL WORKSHEET^RS^0:NO;1:YES;^OS;4^Q"
^DD(740,741.04,3)="ENTER 'YES' TO PRINT CLINICAL WORKSHEETS AS PART OF THE AUTO ENROLL PROCESS."
^DD(740,741.04,20,0)="^.3LA^1^1"
^DD(740,741.04,20,1,0)="QAOS"
^DD(740,741.04,21,0)="^^4^4^2900503^^^^"
^DD(740,741.04,21,1,0)="This field controls whether or not Clinical Worksheets are automatically"
^DD(740,741.04,21,2,0)="printed as part of the Auto Enrollment process."
^DD(740,741.04,21,3,0)="       0- 'NO', do not print Clinical Worksheets."
^DD(740,741.04,21,4,0)="       1- 'YES', print Clinical Worksheets."
^DD(740,741.04,"DT")="2891010"
^DD(740,741.05,0)="DEFAULT OS DEVICE^RFXO^^OS;5^D EN1^QAQAUTL K:Y<0 X"
^DD(740,741.05,2)="S Y(0)=Y S Y=$P(Y,"";"")"
^DD(740,741.05,2.1)="S Y=$P(Y,"";"")"
^DD(740,741.05,3)="ENTER THE DEFAULT 'OCCURRENCE SCREEN' PRINTER DEVICE."
^DD(740,741.05,4)="D EN3^QAQAUTL(740,741.05)"
^DD(740,741.05,20,0)="^.3LA^1^1"
^DD(740,741.05,20,1,0)="QAOS"
^DD(740,741.05,21,0)="^^2^2^2920924^^^^"
^DD(740,741.05,21,1,0)="This field contains the default printer device for OCCURRENCE SCREEN."
^DD(740,741.05,21,2,0)="Auto-Print Clinical Worksheets will be routed to this device."
^DD(740,741.05,"DT")="2930819"
^DD(740,741.06,0)="MIN TIME BETWEEN LOGOUT & ADM^NJ4,1^^OS;6^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""2N.N) X"
^DD(740,741.06,3)="Type a Number between 0 and 24, up to 1 Decimal Digit"
^DD(740,741.06,21,0)="^^6^6^2910509^^^"
^DD(740,741.06,21,1,0)="Enter the minimum time, in hours, between a disposition log out and an"
^DD(740,741.06,21,2,0)="admission.  This time is used when auto enrolling admissions within 3"
^DD(740,741.06,21,3,0)="days following unscheduled ambulatory care visits.  If the time between"
^DD(740,741.06,21,4,0)="the log out and the admission is less than this time, the event will not"
^DD(740,741.06,21,5,0)="be captured.  If the time is greater than or equal to this time, it will"
^DD(740,741.06,21,6,0)="be captured."
^DD(740,741.06,"DT")="2910503"
^DD(740,741.07,0)="SCHEDULED ADMISSION CLINIC^740.01PA^^OS1;0"
^DD(740,741.07,21,0)="^^3^3^2930208^"
^DD(740,741.07,21,1,0)="This field contains the clinic(s) that are used to schedule patient"
^DD(740,741.07,21,2,0)="admissions.  The data entered in this field is used by the auto enroll to"
^DD(740,741.07,21,3,0)="determine which admissions are scheduled."
^DD(740,741.07,"DT")="2921109"
^DD(740,741.08,0)="SURGERY PACKAGE INSTALLED^S^1:YES;0:NO;^OS;7^Q"
^DD(740,741.08,3)="Enter Y(es) if the DHCP Surgery package is installed at your site."
^DD(740,741.08,21,0)="^^2^2^2920421^"
^DD(740,741.08,21,1,0)="If this field is answered Y(es) the auto enroll will scan the Surgery"
^DD(740,741.08,21,2,0)="package for screen 107, Return to the O.R. in the same admission."
^DD(740,741.08,"DT")="2920421"
^DD(740,741.09,0)="ALLOW MULT PATIENT SELECTION^S^1:YES;0:NO;^OS;8^Q"
^DD(740,741.09,3)="Enter Y(es) to select several patients to edit at once."
^DD(740,741.09,21,0)="^^5^5^2930217^"
^DD(740,741.09,21,1,0)="Entering Y(es) at this prompt will allow you to select several patients"
^DD(740,741.09,21,2,0)="at once for editing.  Patients may be selected in the normal manner,"
^DD(740,741.09,21,3,0)="i.e., by name, SSN, etc., or by an occurrence date range.  The selected"
^DD(740,741.09,21,4,0)="patients will then be brought up sequentially for editing.  Entering"
^DD(740,741.09,21,5,0)="N(o) will allow you to select only one patient at a time."
^DD(740,741.09,21,6,0)="Multiple patient selection will work in the following options:"
^DD(740,741.09,21,7,0)=" 1) Quick Exception Edit"
^DD(740,741.09,21,8,0)=" 2) Validation/Confirmation"
^DD(740,741.09,21,9,0)=" 3) Delete Occurrence Screen Record"
^DD(740,741.09,21,10,0)=" 4) Reopen Closed/Deleted Occurrence Screen Record"
^DD(740,741.09,"DT")="2920805"
^DD(740,741.1,0)="MULTI-DIVISIONAL OS FACILITY^S^0:NO;1:YES;^OS;9^Q"
^DD(740,741.1,3)="Enter Y(es) if this is a multi-divisional facility."
^DD(740,741.1,21,0)="^^5^5^2971122^^"
^DD(740,741.1,21,1,0)=" "
^DD(740,741.1,21,2,0)="This field is used in conjunction with the DIVISION field to determine"
^DD(740,741.1,21,3,0)="which output device the auto enroll reports will be sent to.  Answering"
^DD(740,741.1,21,4,0)="Y(es) to this field will allow you to select a different auto enroll"
^DD(740,741.1,21,5,0)="output device for each division."
^DD(740,741.1,"DT")="2971122"
^DD(740,741.11,0)="OS HOSPITAL DIVISION^740.02IPA^^OS2;0"
^DD(740,741.11,"DT")="2971122"
^DD(740,741.97,0)="*SCREEN FILE CONVERSION DATE^D^^QAO;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(740,741.97,3)="Enter the date the screen file entries were DINUMed."
^DD(740,741.97,21,0)="^^4^4^2910809^"
^DD(740,741.97,21,1,0)="This field contains the date that the entries in the screen file #741.1"
^DD(740,741.97,21,2,0)="were DINUMed.  This field is used to prevent the conversion from being"
^DD(740,741.97,21,3,0)="run twice.  Running this conversion twice would not corrupt the data,"
^DD(740,741.97,21,4,0)="but it could potentially waste a lot of time."
^DD(740,741.97,"DT")="2910809"
^DD(740,741.98,0)="*SEVERITY CONVERSION DATE^D^^QAO;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(740,741.98,3)="Enter the date that the severity levels were converted."
^DD(740,741.98,21,0)="^^3^3^2910809^^^^"
^DD(740,741.98,21,1,0)="This field contains the date that the severity levels in file #741.8"
^DD(740,741.98,21,2,0)="were converted from a seven point scale to a four point scale.  This"
^DD(740,741.98,21,3,0)="field is used to prevent the conversion from being run twice."
^DD(740,741.98,"DT")="2910613"
^DD(740,741.99,0)="VERSION (QAO)^F^^VER;1^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X"
^DD(740,741.99,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(740,741.99,21,0)="^^1^1^2930208^"
^DD(740,741.99,21,1,0)="Indicates the version of the Occurrence Screen package."
^DD(740,741.99,21,2,0)="installed with QAO."
^DD(740,741.99,"DT")="2921022"
^DD(740,742.01,0)="MAIL GROUP (QAN)^P3.8'^XMB(3.8,^QAN;1^Q"
^DD(740,742.01,3)="Enter the MAILGROUP the bulletin should be sent to."
^DD(740,742.01,21,0)="^^2^2^2930204^^^^"
^DD(740,742.01,21,1,0)="Indicates the MAILGROUP where the mail message should be sent."
^DD(740,742.01,21,2,0)="A proper recipient should be specified at this time."
^DD(740,742.01,"DT")="2930204"
^DD(740,742.02,0)="BULLETIN SENT (QAN)^S^1:YES;^QAN;2^Q"
^DD(740,742.02,3)="Enter whether the bulletin should be fired off to the specified mailgroup."
^DD(740,742.02,21,0)="^^1^1^2910916^^^"
^DD(740,742.02,21,1,0)="Indicates whether a bulletin will be sent off to the specified mailgroup."
^DD(740,742.02,"DT")="2930204"
^DD(740,742.03,0)="RESPONSIBLE PERSON SWITCH^S^0:OFF;1:ON;^QAN;3^Q"
^DD(740,742.03,3)="Enter whether the field 'Resposible Person' should be asked."
^DD(740,742.03,21,0)="^^1^1^2930129^"
^DD(740,742.03,21,1,0)="Indicates whether or not the 'Responsible Person' field should be asked."
^DD(740,742.03,"DT")="2930129"
^DD(740,742.04,0)="QM TIME FRAME^NJ2,0^^QAN;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(740,742.04,3)="Enter the number of days after which you will receive a warning."
^DD(740,742.04,21,0)="^^5^5^2931012^"
^DD(740,742.04,21,1,0)="     This field hold the number of days the user wishes to wait before the"
^DD(740,742.04,21,2,0)="system warns the user of potential negligence in filing a 'VA 10-2633"
^DD(740,742.04,21,3,0)="Report Of Special Incident Involving A Beneficiary' form.  This is only"
^DD(740,742.04,21,4,0)="for incident events that do not require immediate notification to the"
^DD(740,742.04,21,5,0)="region."
^DD(740,742.04,"DT")="2931012"
^DD(740,742.99,0)="VERSION (QAN)^F^^VER;6^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X"
^DD(740,742.99,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(740,742.99,21,0)="^^1^1^2930208^^^"
^DD(740,742.99,21,1,0)="Indicates the version of the Incident Reporting package."
^DD(740,742.99,"DT")="2921022"
^DD(740,743.01,0)="DAY WEEKLY TIME FRAME BEGINS^S^0:Sunday;1:Monday;2:Tuesday;3:Wednesday;4:Thursday;5:Friday;6:Saturday;^QAM;1^Q"
^DD(740,743.01,3)="Enter the day the weekly time frame begins."
^DD(740,743.01,21,0)="^^3^3^2910115^^"
^DD(740,743.01,21,1,0)="This field contains the day of the week that the weekly time frame"
^DD(740,743.01,21,2,0)="begins.  This data is used by auto enroll for the update of the"
^DD(740,743.01,21,3,0)="history file."
^DD(740,743.01,"DT")="2901210"
^DD(740,743.02,0)="MONITORING SYSTEM DEVICE^RFXO^^QAM;2^D EN1^QAQAUTL K:Y<0 X"
^DD(740,743.02,2)="S Y(0)=Y S Y=$P(Y,"";"")"
^DD(740,743.02,2.1)="S Y=$P(Y,"";"")"
^DD(740,743.02,3)="ENTER THE DEFAULT 'MONITORING SYSTEM' PRINTER DEVICE."
^DD(740,743.02,4)="D EN3^QAQAUTL(740,743.02)"
^DD(740,743.02,20,0)="^.3LA^1^1"
^DD(740,743.02,20,1,0)="QAM"
^DD(740,743.02,21,0)="^^2^2^2910717^^^^"
^DD(740,743.02,21,1,0)="This field contains the default printer device for the Monitoring"
^DD(740,743.02,21,2,0)="System.  Auto-Print Fall Out Reports will be routed to this device. "
^DD(740,743.02,"DT")="2910717"
^DD(740,743.03,0)="MAX DAYS PER MANUAL AUTO RUN^NJ2,0^^QAM;3^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""1N.N) X"
^DD(740,743.03,3)="Type a Number between 1 and 31, 0 Decimal Digits"
^DD(740,743.03,21,0)="^^2^2^2930910^"
^DD(740,743.03,21,1,0)="This field gives the maximum number of auto enroll runs that may"
^DD(740,743.03,21,2,0)="be run consecutively."
^DD(740,743.03,"DT")="2910109"
^DD(740,743.04,0)="TIME BETWEEN MANUAL AUTO RUNS^NJ3,0^^QAM;4^K:+X'=X!(X>120)!(X<1)!(X?.E1"".""1N.N) X"
^DD(740,743.04,3)="Type the number of minutes between 1 and 120, 0 decimal digits."
^DD(740,743.04,21,0)="^^2^2^2910115^"
^DD(740,743.04,21,1,0)="This field contains the number of minutes between queued runs of"
^DD(740,743.04,21,2,0)="auto enroll."
^DD(740,743.04,"DT")="2910109"
^DD(740,743.05,0)="MANUAL AUTO RUN ALLOWED TIMES^FX^^QAM;5^K:$L(X)>9!($L(X)<9)!'(X?4N1""-""4N) X D:$D(X) EN5^QAQAUTL"
^DD(740,743.05,3)="Enter the range of times a manual auto enroll may run."
^DD(740,743.05,21,0)="^^4^4^2910115^"
^DD(740,743.05,21,1,0)="This field contains the range of time during which auto enroll may be"
^DD(740,743.05,21,2,0)="manually queued to run.  The format is HHMM-HHMM, where HH = Hours"
^DD(740,743.05,21,3,0)="(00-23), and MM = Minutes (00-59).  The second time must be greater"
^DD(740,743.05,21,4,0)="than the first."
^DD(740,743.05,"DT")="2910322"
^DD(740,743.06,0)="ALLOW USE OF `[' IN GROUP EDIT^S^1:YES;0:NO;^QAM;6^Q"
^DD(740,743.06,3)="Enter Y(es) if the contains operator ([) is allowed in the group edit."
^DD(740,743.06,21,0)="^^3^3^2910321^^"
^DD(740,743.06,21,1,0)="If this field is set to YES the user may enter [GROUP MEMBER at the"
^DD(740,743.06,21,2,0)="Select GROUP MEMBER prompt to select all entries that contain the text"
^DD(740,743.06,21,3,0)="GROUP MEMBER as part of their name."
^DD(740,743.06,"DT")="2910221"
^DD(740,743.99,0)="VERSION (QAM)^F^^VER;2^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X"
^DD(740,743.99,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(740,743.99,21,0)="^^1^1^2930208^"
^DD(740,743.99,21,1,0)="Indicates the version of the Monitoring System package."
^DD(740,743.99,"DT")="2921022"
^DD(740,745.01,0)="DISPLAY ISSUE CODES?^S^1:YES;0:NO;^QAC;1^Q"
^DD(740,745.01,3)="Enter YES if you want to display Issue Codes and Services that were previously selected."
^DD(740,745.01,21,0)="^^3^3^2941214^"
^DD(740,745.01,21,1,0)="While editing a contact record, if you want to display all the Issue Codes"
^DD(740,745.01,21,2,0)="and Services you previously selected prior to the prompt Issue Codes,"
^DD(740,745.01,21,3,0)="enter YES at this prompt."
^DD(740,745.01,"DT")="2941207"
^DD(740,745.02,0)="AUTOMATIC ROC ALERT^S^1:YES;0:NO;^QAC;2^Q"
^DD(740,745.02,3)="Enter 'YES' to automatically send ROC alerts to entries in the Refer Contact To field."
^DD(740,745.02,21,0)="^^4^4^2950201^"
^DD(740,745.02,21,1,0)="If this field contains a 'YES', an alert for a Patient Rep Report of"
^DD(740,745.02,21,2,0)="Contact will be sent automatically to the entries in the Refer Contact To"
^DD(740,745.02,21,3,0)="field.  Responses from each alert will be automatically laid into the"
^DD(740,745.02,21,4,0)="Resolution field for review/edit by the Patient Representative."
^DD(740,745.02,"DT")="2941214"
^DD(740,745.99,0)="VERSION (QAC)^F^^VER;7^K:$L(X)>8!($L(X)<1) X"
^DD(740,745.99,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(740,745.99,21,0)="^^1^1^2931019^"
^DD(740,745.99,21,1,0)="Indicates the version of the Patient Representative package."
^DD(740,745.99,"DT")="2931019"
^DD(740,747.01,0)="1ST ADDRESS LINE^F^^RC;1^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.01,3)="Answer must be 3-30 characters in length."
^DD(740,747.01,21,0)="^^1^1^2921217^"
^DD(740,747.01,21,1,0)="This field contains the 1st address line for the Facility."
^DD(740,747.01,"DT")="2891030"
^DD(740,747.02,0)="2ND ADDRESS LINE^F^^RC;2^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.02,3)="Answer must be 3-30 characters in length."
^DD(740,747.02,21,0)="^^1^1^2921217^"
^DD(740,747.02,21,1,0)="This field contains the 2nd address line for the Facility."
^DD(740,747.02,"DT")="2891030"
^DD(740,747.03,0)="CITY^F^^RC;3^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.03,3)="Answer must be 3-30 characters in length."
^DD(740,747.03,21,0)="^^1^1^2921217^"
^DD(740,747.03,21,1,0)="This field contains the city of the Facility."
^DD(740,747.03,"DT")="2891030"
^DD(740,747.04,0)="STATE^P5'^DIC(5,^RC;4^Q"
^DD(740,747.04,21,0)="^^2^2^2921217^"
^DD(740,747.04,21,1,0)="This field is a pointer to the State File and contains the State of the"
^DD(740,747.04,21,2,0)="Facility."
^DD(740,747.04,"DT")="2891030"
^DD(740,747.05,0)="ZIP ^F^^RC;5^K:$L(X)>10!($L(X)<5) X"
^DD(740,747.05,3)="Answer must be 5-10 characters in length."
^DD(740,747.05,21,0)="^^1^1^2921217^"
^DD(740,747.05,21,1,0)="This field contains the zip code of the Facility."
^DD(740,747.05,"DT")="2891030"
^DD(740,747.06,0)="MAIN TELE. NO.^F^^RC;6^K:$L(X)>14!($L(X)<7) X"
^DD(740,747.06,3)="Answer must be 7-14 characters in length."
^DD(740,747.06,21,0)="^^1^1^2910401^"
^DD(740,747.06,21,1,0)="Please use the format:(XXX)111-1111"
^DD(740,747.06,"DT")="2891030"
^DD(740,747.07,0)="COORD. SEC. NAME^F^^RC;7^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.07,3)="Answer must be 3-30 characters in length."
^DD(740,747.07,21,0)="^^1^1^2921217^^^^"
^DD(740,747.07,21,1,0)="Name of the Credentialing Coordinator's Secretary."
^DD(740,747.07,"DT")="2891030"
^DD(740,747.08,0)="COORDINATOR^F^^RC;8^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.08,3)="Answer must be 3-30 characters in length."
^DD(740,747.08,21,0)="^^1^1^2921217^^^^"
^DD(740,747.08,21,1,0)="Name of Coordinator for the Credentialing process."
^DD(740,747.08,"DT")="2891030"
^DD(740,747.09,0)="COORD. TELE.^F^^RC;9^K:$L(X)>25!($L(X)<4) X"
^DD(740,747.09,3)="Answer must be 4-25 characters in length."
^DD(740,747.09,21,0)="^^1^1^2921217^"
^DD(740,747.09,21,1,0)="This field contains the Coordinator's telephone number."
^DD(740,747.09,"DT")="2891030"
^DD(740,747.1,0)="PERSONNEL CHIEF^F^^RC;10^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.1,3)="Answer must be 3-30 characters in length."
^DD(740,747.1,21,0)="^^1^1^2921217^"
^DD(740,747.1,21,1,0)="This field contains the name of the Personnel Chief for the Facility."
^DD(740,747.1,"DT")="2891030"
^DD(740,747.11,0)="DIRECTOR NAME^F^^RC1;1^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.11,3)="Answer must be 3-30 characters in length."
^DD(740,747.11,21,0)="^^1^1^2921217^"
^DD(740,747.11,21,1,0)="This field contains the name of the Director for the Facility."
^DD(740,747.11,"DT")="2891030"
^DD(740,747.12,0)="APPLICANT NAME^CJ30^^ ; ^S X=$S($D(SELAPP):SELAPP,1:"""")"
^DD(740,747.12,9)="^"
^DD(740,747.12,9.01)=""
^DD(740,747.12,9.1)="S X=$S($D(SELAPP):SELAPP,1:"""")"
^DD(740,747.12,21,0)="^^1^1^2930105^"
^DD(740,747.12,21,1,0)="This field is a computed field and requires no input."
^DD(740,747.12,21,2,0)="date.  The user will not have to input data to this field."
^DD(740,747.13,0)="PERSONNEL ROUTING SYM^F^^RC1;2^K:$L(X)>9!($L(X)<2) X"
^DD(740,747.13,3)="Answer must be 2-9 characters in length."
^DD(740,747.13,21,0)="^^1^1^2921217^"
^DD(740,747.13,21,1,0)="This field contains the mail routing symbol for the Personnel Service."
^DD(740,747.13,"DT")="2891030"
^DD(740,747.14,0)="COORD. ROUTING SYM^F^^RC1;3^K:$L(X)>9!($L(X)<2) X"
^DD(740,747.14,3)="Answer must be 2-9 characters in length."
^DD(740,747.14,21,0)="^^2^2^2921217^"
^DD(740,747.14,21,1,0)="This field contains the mail routing symbol for the Credentialing"
^DD(740,747.14,21,2,0)="Coordinator."
^DD(740,747.14,"DT")="2891102"
^DD(740,747.15,0)="COORD. TITLE^F^^RC1;4^K:$L(X)>35!($L(X)<3) X"
^DD(740,747.15,3)="Answer must be 3-35 characters in length."
^DD(740,747.15,21,0)="^^1^1^2921217^"
^DD(740,747.15,21,1,0)="This field contains the official title of the Credentialing Coordinator."
^DD(740,747.15,"DT")="2900209"
^DD(740,747.16,0)="FSMB DOMAIN^FX^^RC1;5^S DIC=4.2,DIC(0)=""EMNQ"" D ^DIC S X=$P(Y,""^"",2) K:Y'>0 X"
^DD(740,747.16,3)="Answer must be 1-12 characters in length."
^DD(740,747.16,4)="S D=""B"",DIC=""^DIC(4.2,"",DIC(0)=""AEMNQ"" D DQ^DICQ"
^DD(740,747.16,21,0)="^^2^2^2910821^^^^"
^DD(740,747.16,21,1,0)="This field is used to input the server name and Domain if your region"
^DD(740,747.16,21,2,0)="decides to use the FSMB portion of this package.  ie S.QARFSMB@ISC-CHICAGO."
^DD(740,747.16,"DT")="2910305"
^DD(740,747.2,0)="CHIEF OF STAFF^F^^RC1;6^K:$L(X)>30!($L(X)<3) X"
^DD(740,747.2,3)="Answer must be 3-30 characters in length."
^DD(740,747.2,21,0)="^^1^1^2921015^^^"
^DD(740,747.2,21,1,0)="Name of Chief of Staff for this facility."
^DD(740,747.2,"DT")="2910913"
^DD(740,747.21,0)="C.O.S TELE.#^F^^RC1;7^K:$L(X)>15!($L(X)<7) X"
^DD(740,747.21,3)="Please Use format (999)123-1234"
^DD(740,747.21,21,0)="^^1^1^2920731^"
^DD(740,747.21,21,1,0)="This field contains the telephone number of the Chief of Staff."
^DD(740,747.21,"DT")="2910913"
^DD(740,747.23,0)="C.O.S. ROUTING SYM^F^^RC1;8^K:$L(X)>9!($L(X)<2) X"
^DD(740,747.23,3)="Answer must be 2-9 characters in length."
^DD(740,747.23,21,0)="^^1^1^2921217^"
^DD(740,747.23,21,1,0)="This field contains the mail routing symbol for the Chief of Staff."
^DD(740,747.23,"DT")="2910913"
^DD(740,747.99,0)="VERSION (QAR)^F^^VER;4^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X"
^DD(740,747.99,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(740,747.99,21,0)="^^1^1^2930208^"
^DD(740,747.99,21,1,0)="Indicates the version of the Credentials Tracking package."
^DD(740,747.99,21,2,0)="installed with QAR."
^DD(740,747.99,"DT")="2921022"
^DD(740,748.99,0)="VERSION (QAP)^F^^VER;3^K:$L(X)>8!($L(X)<1)!'(X?1N.ANP) X"
^DD(740,748.99,3)="Enter the version of this package currently running, (1-8 characters)."
^DD(740,748.99,21,0)="^^1^1^2930208^"
^DD(740,748.99,21,1,0)="Indicates the version of the Survey Generator package."
^DD(740,748.99,"DT")="2921022"
^DD(740,749,0)="MULTI-DIVISIONAL PAT REP FACILITY^S^0:NO;1:YES;^QAC;3^Q"
^DD(740,749,3)="Enter Y(ES) if facility is multi-divisional for Pet. Rep."
^DD(740,749,21,0)="^^3^3^2971122^"
^DD(740,749,21,1,0)="This field is set to YES if the facility has been integrated via"
^DD(740,749,21,2,0)="the DBIA process, and has one computer system and database for"
^DD(740,749,21,3,0)="more than one station."
^DD(740,749,"DT")="2971122"
^DD(740,750,0)="PAT REP HOSPITAL DIVISION^740.03PA^^QAC2;0"
^DD(740,751,0)="MULTI-DIVISIONAL INCID REP FACILITY^S^1:YES;0:NO;^QAN;5^Q"
^DD(740,751,3)="Enter '1' if your site has integrated through NDBI."
^DD(740,751,21,0)="^^2^2^2990722^^"
^DD(740,751,21,1,0)="This field holds a '1' or 'YES' if the station is an NDBI integrated "
^DD(740,751,21,2,0)="Facility, with more than one Medical Center using one database."
^DD(740,751,"DT")="2971209"
^DD(740,752,0)="IR HOSPITAL DIVISION^740.0752PA^^QAN2;0"
^DD(740,752,21,0)="^^3^3^2990727^"
^DD(740,752,21,1,0)="This field is a pointer to the INSTITUTION file (#4).  It is used by "
^DD(740,752,21,2,0)="integrated sites to store the names of the Medical Centers in the"
^DD(740,752,21,3,0)="integrated group."
^DD(740,753,0)="QAC LAST RECORD^NJ9,0^^QAC;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(740,753,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(740,753,21,0)="^^3^3^3000301^"
^DD(740,753,21,1,0)="This field holds the IEN from file #745.1 of the last record that has been"
^DD(740,753,21,2,0)="rolled up to the national database.  The records are rolled up by a daily"
^DD(740,753,21,3,0)="tasked job run by routines QACMAIL0 and ^QACMAIL1."
^DD(740,753,"DT")="3000301"
^DD(740,754,0)="QAC ROLLUP TASK^NJ15,0^^QAC;5^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(740,754,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(740,754,21,0)="^^5^5^3000413^"
^DD(740,754,21,1,0)="This field will hold the task number of the latest data rollup for the"
^DD(740,754,21,2,0)="Patient Representative package.  This task number will be checked before"
^DD(740,754,21,3,0)="tasking the daily rollup to see if there is already a copy of the job on"
^DD(740,754,21,4,0)="the task list.  This will prevent multiple copies of the job from being"
^DD(740,754,21,5,0)="tasked."
^DD(740,754,"DT")="3000413"
^DD(740,755,0)="QAN TIME REQUIRED^S^1:YES;0:NO;^QAN;6^Q"
^DD(740,755,3)="Enter '1' or 'Yes' if your site requires a time be entered in the Date of Incident field."
^DD(740,755,21,0)="^.001^2^2^3000509^^"
^DD(740,755,21,1,0)="Field set to '1' or 'Yes' if site requires Date of Incident to include"
^DD(740,755,21,2,0)="time of day."
^DD(740,755,"DT")="3000509"
^DD(740,"B","*SCREEN FILE CONVERSION DATE",741.97)=""
^DD(740,"B","*SEVERITY CONVERSION DATE",741.98)=""
^DD(740,"B","1ST ADDRESS LINE",747.01)=""
^DD(740,"B","2ND ADDRESS LINE",747.02)=""
^DD(740,"B","ALLOW MULT PATIENT SELECTION",741.09)=""
^DD(740,"B","ALLOW USE OF `[' IN GROUP EDIT",743.06)=""
^DD(740,"B","APPLICANT NAME",747.12)=""
^DD(740,"B","AUTO-PRINT CLINICAL WORKSHEET",741.04)=""
^DD(740,"B","AUTOMATIC ROC ALERT",745.02)=""
^DD(740,"B","BULLETIN SENT (QAN)",742.02)=""
^DD(740,"B","C.O.S TELE.#",747.21)=""
^DD(740,"B","C.O.S. ROUTING SYM",747.23)=""
^DD(740,"B","CHIEF OF STAFF",747.2)=""
^DD(740,"B","CITY",747.03)=""
^DD(740,"B","CLINICAL WORKSHEET PART 1",741.03)=""
^DD(740,"B","COORD. ROUTING SYM",747.14)=""
^DD(740,"B","COORD. SEC. NAME",747.07)=""
^DD(740,"B","COORD. TELE.",747.09)=""
^DD(740,"B","COORD. TITLE",747.15)=""
^DD(740,"B","COORDINATOR",747.08)=""
^DD(740,"B","DAY WEEKLY TIME FRAME BEGINS",743.01)=""
^DD(740,"B","DEFAULT OS DEVICE",741.05)=""
^DD(740,"B","DIRECTOR NAME",747.11)=""
^DD(740,"B","DISPLAY ISSUE CODES?",745.01)=""
^DD(740,"B","EWS DOMAIN",740.02)=""
^DD(740,"B","EWS LOCAL MAIL GROUP",740.05)=""
^DD(740,"B","EWS MAIL GROUP/SERVER",740.01)=""
^DD(740,"B","FSMB DOMAIN",747.16)=""
^DD(740,"B","IR HOSPITAL DIVISION",752)=""
^DD(740,"B","IRM MAIL GROUP SWITCH",740.07)=""
^DD(740,"B","MAIL GROUP (IRM)",740.06)=""
^DD(740,"B","MAIL GROUP (QAN)",742.01)=""
^DD(740,"B","MAIN TELE. NO.",747.06)=""
^DD(740,"B","MANAGEMENT REVIEW DAYS",741.02)=""
^DD(740,"B","MANUAL AUTO RUN ALLOWED TIMES",743.05)=""
^DD(740,"B","MAX DAYS PER MANUAL AUTO RUN",743.03)=""
^DD(740,"B","MIN TIME BETWEEN LOGOUT & ADM",741.06)=""
^DD(740,"B","MONITORING SYSTEM DEVICE",743.02)=""
^DD(740,"B","MULTI-DIVISIONAL INCID REP FACILITY",751)=""
^DD(740,"B","MULTI-DIVISIONAL OS FACILITY",741.1)=""
^DD(740,"B","MULTI-DIVISIONAL PAT REP FACILITY",749)=""
^DD(740,"B","NAME",.01)=""
^DD(740,"B","NQADB DOMAIN",740.04)=""
^DD(740,"B","NQADB MAIL GROUP/SERVER",740.03)=""
^DD(740,"B","NUMBER",.001)=""
^DD(740,"B","OS HOSPITAL DIVISION",741.11)=""
^DD(740,"B","PAT REP HOSPITAL DIVISION",750)=""
^DD(740,"B","PEER REVIEW DAYS",741.01)=""
^DD(740,"B","PERSONNEL CHIEF",747.1)=""
^DD(740,"B","PERSONNEL ROUTING SYM",747.13)=""
^DD(740,"B","QAC LAST RECORD",753)=""
^DD(740,"B","QAC ROLLUP TASK",754)=""
^DD(740,"B","QAN TIME REQUIRED",755)=""
^DD(740,"B","QM TIME FRAME",742.04)=""
^DD(740,"B","RESPONSIBLE PERSON SWITCH",742.03)=""
^DD(740,"B","SCHEDULED ADMISSION CLINIC",741.07)=""
^DD(740,"B","SITE NAME",.01)="1"
^DD(740,"B","STATE",747.04)=""
^DD(740,"B","SURGERY PACKAGE INSTALLED",741.08)=""
^DD(740,"B","TIME BETWEEN MANUAL AUTO RUNS",743.04)=""
^DD(740,"B","VERSION (QAC)",745.99)=""
^DD(740,"B","VERSION (QAM)",743.99)=""
^DD(740,"B","VERSION (QAN)",742.99)=""
^DD(740,"B","VERSION (QAO)",741.99)=""
^DD(740,"B","VERSION (QAP)",748.99)=""
^DD(740,"B","VERSION (QAQ)",740.99)=""
^DD(740,"B","VERSION (QAR)",747.99)=""
^DD(740,"B","ZIP ",747.05)=""
^DD(740,"GL",0,1,.01)=""
^DD(740,"GL",0,2,740.01)=""
^DD(740,"GL",0,3,740.02)=""
^DD(740,"GL",0,4,740.03)=""
^DD(740,"GL",0,5,740.04)=""
^DD(740,"GL",0,6,740.05)=""
^DD(740,"GL",0,7,740.06)=""
^DD(740,"GL",0,8,740.07)=""
^DD(740,"GL","OS",1,741.01)=""
^DD(740,"GL","OS",2,741.02)=""
^DD(740,"GL","OS",3,741.03)=""
^DD(740,"GL","OS",4,741.04)=""
^DD(740,"GL","OS",5,741.05)=""
^DD(740,"GL","OS",6,741.06)=""
^DD(740,"GL","OS",7,741.08)=""
^DD(740,"GL","OS",8,741.09)=""
^DD(740,"GL","OS",9,741.1)=""
^DD(740,"GL","OS1",0,741.07)=""
^DD(740,"GL","OS2",0,741.11)=""
^DD(740,"GL","QAC",1,745.01)=""
^DD(740,"GL","QAC",2,745.02)=""
^DD(740,"GL","QAC",3,749)=""
^DD(740,"GL","QAC",4,753)=""
^DD(740,"GL","QAC",5,754)=""
^DD(740,"GL","QAC2",0,750)=""
^DD(740,"GL","QAM",1,743.01)=""
^DD(740,"GL","QAM",2,743.02)=""
^DD(740,"GL","QAM",3,743.03)=""
^DD(740,"GL","QAM",4,743.04)=""
^DD(740,"GL","QAM",5,743.05)=""
^DD(740,"GL","QAM",6,743.06)=""
^DD(740,"GL","QAN",1,742.01)=""
^DD(740,"GL","QAN",2,742.02)=""
^DD(740,"GL","QAN",3,742.03)=""
^DD(740,"GL","QAN",4,742.04)=""
^DD(740,"GL","QAN",5,751)=""
^DD(740,"GL","QAN",6,755)=""
^DD(740,"GL","QAN2",0,752)=""
^DD(740,"GL","QAO",1,741.98)=""
^DD(740,"GL","QAO",2,741.97)=""
^DD(740,"GL","RC",1,747.01)=""
^DD(740,"GL","RC",2,747.02)=""
^DD(740,"GL","RC",3,747.03)=""
^DD(740,"GL","RC",4,747.04)=""
^DD(740,"GL","RC",5,747.05)=""
^DD(740,"GL","RC",6,747.06)=""
^DD(740,"GL","RC",7,747.07)=""
^DD(740,"GL","RC",8,747.08)=""
^DD(740,"GL","RC",9,747.09)=""
^DD(740,"GL","RC",10,747.1)=""
^DD(740,"GL","RC1",1,747.11)=""
^DD(740,"GL","RC1",2,747.13)=""
^DD(740,"GL","RC1",3,747.14)=""
^DD(740,"GL","RC1",4,747.15)=""
^DD(740,"GL","RC1",5,747.16)=""
^DD(740,"GL","RC1",6,747.2)=""
^DD(740,"GL","RC1",7,747.21)=""
^DD(740,"GL","RC1",8,747.23)=""
^DD(740,"GL","VER",1,741.99)=""
^DD(740,"GL","VER",2,743.99)=""
^DD(740,"GL","VER",3,748.99)=""
^DD(740,"GL","VER",4,747.99)=""
^DD(740,"GL","VER",5,740.99)=""
^DD(740,"GL","VER",6,742.99)=""
^DD(740,"GL","VER",7,745.99)=""
^DD(740,"GR","QAM",743.02,1)=""
^DD(740,"GR","QAOS",741.01,1)=""
^DD(740,"GR","QAOS",741.02,1)=""
^DD(740,"GR","QAOS",741.03,1)=""
^DD(740,"GR","QAOS",741.04,1)=""
^DD(740,"GR","QAOS",741.05,1)=""
^DD(740,"IX",.01)=""
^DD(740,"RQ",741.03)=""
^DD(740,"RQ",741.04)=""
^DD(740,"RQ",741.05)=""
^DD(740,"RQ",743.02)=""
^DD(740,"SB",740.01,741.07)=""
^DD(740,"SB",740.02,741.11)=""
^DD(740,"SB",740.03,750)=""
^DD(740,"SB",740.0752,752)=""
^DD(740.01,0)="SCHEDULED ADMISSION CLINIC SUB-FIELD^^.01^1"
^DD(740.01,0,"DT")="2920331"
^DD(740.01,0,"IX","B",740.01,.01)=""
^DD(740.01,0,"NM","SCHEDULED ADMISSION CLINIC")=""
^DD(740.01,0,"UP")="740"
^DD(740.01,.01,0)="SCHEDULED ADMISSION CLINIC^M*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(740.01,.01,1,0)="^.1"
^DD(740.01,.01,1,1,0)="740.01^B"
^DD(740.01,.01,1,1,1)="S ^QA(740,DA(1),""OS1"",""B"",$E(X,1,30),DA)="""""
^DD(740.01,.01,1,1,2)="K ^QA(740,DA(1),""OS1"",""B"",$E(X,1,30),DA)"
^DD(740.01,.01,3)="Enter the clinic(s) used to schedule patient admissions."
^DD(740.01,.01,12)="Only clinics are selectable."
^DD(740.01,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)=""""C"""""""
^DD(740.01,.01,21,0)="^^3^3^2930208^^"
^DD(740.01,.01,21,1,0)="This field contains the clinic(s) that are used to schedule patient"
^DD(740.01,.01,21,2,0)="admissions.  The data entered in this field is used by the auto"
^DD(740.01,.01,21,3,0)="enroll to determine which admissions are scheduled."
^DD(740.01,.01,"DT")="2921109"
^DD(740.01,"B","SCHEDULED ADMISSION CLINIC",.01)=""
^DD(740.01,"GL",0,1,.01)=""
^DD(740.01,"IX",.01)=""
^DD(740.02,0)="OS HOSPITAL DIVISION SUB-FIELD^^.02^2"
^DD(740.02,0,"DT")="2920924"
^DD(740.02,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(740.02,0,"IX","B",740.02,.01)=""
^DD(740.02,0,"NM","OS HOSPITAL DIVISION")=""
^DD(740.02,0,"UP")="740"
^DD(740.02,.01,0)="OS HOSPITAL DIVISION^MP40.8'X^DG(40.8,^0;1^S DINUM=X"
^DD(740.02,.01,1,0)="^.1"
^DD(740.02,.01,1,1,0)="740.02^B"
^DD(740.02,.01,1,1,1)="S ^QA(740,DA(1),""OS2"",""B"",$E(X,1,30),DA)="""""
^DD(740.02,.01,1,1,2)="K ^QA(740,DA(1),""OS2"",""B"",$E(X,1,30),DA)"
^DD(740.02,.01,3)="Enter a division at your facility."
^DD(740.02,.01,21,0)="^^3^3^2971203^^^^"
^DD(740.02,.01,21,1,0)=" "
^DD(740.02,.01,21,2,0)="Enter a division at your facility.  This field is used to control the"
^DD(740.02,.01,21,3,0)="automatic reports generated by the auto enroll process."
^DD(740.02,.01,"DT")="2971122"
^DD(740.02,.02,0)="DEVICE^RFXO^^0;2^D EN1^QAQAUTL K:Y<0 X"
^DD(740.02,.02,2)="S Y(0)=Y S Y=$P(Y,"";"")"
^DD(740.02,.02,2.1)="S Y=$P(Y,"";"")"
^DD(740.02,.02,3)="Enter the auto enroll device for this division."
^DD(740.02,.02,4)="D EN3^QAQAUTL(740.02,.02)"
^DD(740.02,.02,21,0)="^^3^3^2920924^"
^DD(740.02,.02,21,1,0)=" "
^DD(740.02,.02,21,2,0)="This field contains the default printer device for this hospital division."
^DD(740.02,.02,21,3,0)="All auto enroll output for this division will be sent to this device."
^DD(740.02,.02,"DT")="2920924"
^DD(740.02,"B","DEVICE",.02)=""
^DD(740.02,"B","OS HOSPITAL DIVISION",.01)=""
^DD(740.02,"GL",0,1,.01)=""
^DD(740.02,"GL",0,2,.02)=""
^DD(740.02,"IX",.01)=""
^DD(740.02,"RQ",.02)=""
^DD(740.03,0)="PAT REP HOSPITAL DIVISION SUB-FIELD^^.01^1"
^DD(740.03,0,"DT")="2971122"
^DD(740.03,0,"IX","B",740.03,.01)=""
^DD(740.03,0,"NM","PAT REP HOSPITAL DIVISION")=""
^DD(740.03,0,"UP")="740"
^DD(740.03,.01,0)="PAT REP HOSPITAL DIVISION^MP4'^DIC(4,^0;1^Q"
^DD(740.03,.01,1,0)="^.1"
^DD(740.03,.01,1,1,0)="740.03^B"
^DD(740.03,.01,1,1,1)="S ^QA(740,DA(1),""QAC2"",""B"",$E(X,1,30),DA)="""""
^DD(740.03,.01,1,1,2)="K ^QA(740,DA(1),""QAC2"",""B"",$E(X,1,30),DA)"
^DD(740.03,.01,3)="Enter the name of the station(s) in your integration group."
^DD(740.03,.01,21,0)="^^3^3^2971209^^^"
^DD(740.03,.01,21,1,0)="This field stores the names of the stations contained in an integration"
^DD(740.03,.01,21,2,0)="group.  The field is used for determining which station initiated a"
^DD(740.03,.01,21,3,0)="Report of Contact from within an integration group."
^DD(740.03,.01,"DT")="2971122"
^DD(740.03,"B","PAT REP HOSPITAL DIVISION",.01)=""
^DD(740.03,"GL",0,1,.01)=""
^DD(740.03,"IX",.01)=""
^DD(740.0752,0)="IR HOSPITAL DIVISION SUB-FIELD^^.01^1"
^DD(740.0752,0,"DT")="2971209"
^DD(740.0752,0,"IX","B",740.0752,.01)=""
^DD(740.0752,0,"NM","IR HOSPITAL DIVISION")=""
^DD(740.0752,0,"UP")="740"
^DD(740.0752,.01,0)="IR HOSPITAL DIVISION^MP4'^DIC(4,^0;1^Q"
^DD(740.0752,.01,1,0)="^.1"
^DD(740.0752,.01,1,1,0)="740.0752^B"
^DD(740.0752,.01,1,1,1)="S ^QA(740,DA(1),""QAN2"",""B"",$E(X,1,30),DA)="""""
^DD(740.0752,.01,1,1,2)="K ^QA(740,DA(1),""QAN2"",""B"",$E(X,1,30),DA)"
^DD(740.0752,.01,3)="Enter the name of the station(s) in your Integration Group."
^DD(740.0752,.01,21,0)="^^3^3^2990727^"
^DD(740.0752,.01,21,1,0)="A multiple field holding a pointer to the INSTITUTION file (#4)."
^DD(740.0752,.01,21,2,0)="It is used by integrated sites for the member Hospitals in the"
^DD(740.0752,.01,21,3,0)="integrated group."
^DD(740.0752,.01,"DT")="2971209"
^DD(740.0752,"B","IR HOSPITAL DIVISION",.01)=""
^DD(740.0752,"GL",0,1,.01)=""
^DD(740.0752,"IX",.01)=""
^DD(740.1,0)="FIELD^^1^5"
^DD(740.1,0,"DDA")="N"
^DD(740.1,0,"DT")="2920804"
^DD(740.1,0,"IX","B",740.1,.01)=""
^DD(740.1,0,"NM","AD HOC MACRO")=""
^DD(740.1,0,"VR")="1.7"
^DD(740.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(740.1,.01,1,0)="^.1"
^DD(740.1,.01,1,1,0)="740.1^B"
^DD(740.1,.01,1,1,1)="S ^QA(740.1,""B"",$E(X,1,30),DA)="""""
^DD(740.1,.01,1,1,2)="K ^QA(740.1,""B"",$E(X,1,30),DA)"
^DD(740.1,.01,3)="Answer must be 3-30 characters in length."
^DD(740.1,.01,21,0)="^^1^1^2911115^^"
^DD(740.1,.01,21,1,0)="This field contains the name for the sort/print macro."
^DD(740.1,.01,"DT")="2911009"
^DD(740.1,.02,0)="TYPE^RS^s:SORT;p:PRINT;^0;2^Q"
^DD(740.1,.02,3)="Enter S(ort) or P(rint) to describe this macro's type."
^DD(740.1,.02,21,0)="^^1^1^2911115^^"
^DD(740.1,.02,21,1,0)="This field describes what type of macro this is, i.e. sort or print."
^DD(740.1,.02,"DT")="2911008"
^DD(740.1,.03,0)="PARENT FILE^RP1'^DIC(^0;3^Q"
^DD(740.1,.03,3)="Enter the file associated with this macro."
^DD(740.1,.03,12)="You may select only QAQ application group files."
^DD(740.1,.03,12.1)="S DIC(""S"")=""I $D(^DIC(""""AC"""",""""QAQ"""",+Y))"""
^DD(740.1,.03,21,0)="^^3^3^2911115^^"
^DD(740.1,.03,21,1,0)="The parent file is the file that this macro belongs to.  A macro"
^DD(740.1,.03,21,2,0)="built on one particular parent file will only work with that same"
^DD(740.1,.03,21,3,0)="file."
^DD(740.1,.03,"DT")="2920103"
^DD(740.1,.04,0)="CHECKSUM^RNJ12,0^^0;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(740.1,.04,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(740.1,.04,21,0)="^^2^2^2920804^"
^DD(740.1,.04,21,1,0)="This field contains the checksum value of the sort/print menu that"
^DD(740.1,.04,21,2,0)="this macro was created from."
^DD(740.1,.04,"DT")="2920804"
^DD(740.1,1,0)="FIELD^740.11A^^FLD;0"
^DD(740.1,1,21,0)="^^3^3^2911115^^^"
^DD(740.1,1,21,1,0)="This multiple field contains the data elements that the user chose"
^DD(740.1,1,21,2,0)="when building the macro.  The order of entries in this field is"
^DD(740.1,1,21,3,0)="the same as the order in which they were chosen by the user."
^DD(740.1,"B","CHECKSUM",.04)=""
^DD(740.1,"B","FIELD",1)=""
^DD(740.1,"B","NAME",.01)=""
^DD(740.1,"B","PARENT FILE",.03)=""
^DD(740.1,"B","TYPE",.02)=""
^DD(740.1,"GL",0,1,.01)=""
^DD(740.1,"GL",0,2,.02)=""
^DD(740.1,"GL",0,3,.03)=""
^DD(740.1,"GL",0,4,.04)=""
^DD(740.1,"GL","FLD",0,1)=""
^DD(740.1,"IX",.01)=""
^DD(740.1,"RQ",.01)=""
^DD(740.1,"RQ",.02)=""
^DD(740.1,"RQ",.03)=""
^DD(740.1,"RQ",.04)=""
^DD(740.1,"SB",740.11,1)=""
^DD(740.11,0)="FIELD SUB-FIELD^^4^5"
^DD(740.11,0,"DT")="2920324"
^DD(740.11,0,"IX","B",740.11,.01)=""
^DD(740.11,0,"NM","FIELD")=""
^DD(740.11,0,"UP")="740.1"
^DD(740.11,.01,0)="MENU SELECTION^MF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(740.11,.01,1,0)="^.1"
^DD(740.11,.01,1,1,0)="740.11^B"
^DD(740.11,.01,1,1,1)="S ^QA(740.1,DA(1),""FLD"",""B"",$E(X,1,30),DA)="""""
^DD(740.11,.01,1,1,2)="K ^QA(740.1,DA(1),""FLD"",""B"",$E(X,1,30),DA)"
^DD(740.11,.01,3)="Answer must be 1-80 characters in length."
^DD(740.11,.01,21,0)="^^2^2^2920324^^^^"
^DD(740.11,.01,21,1,0)="This field contains the menu item number that was chosen by the user."
^DD(740.11,.01,21,2,0)="Also includes any prefixes entered by the user."
^DD(740.11,.01,"DT")="2920324"
^DD(740.11,1,0)="FIELD STRING^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(740.11,1,3)="Answer must be 1-80 characters in length."
^DD(740.11,1,21,0)="^^4^4^2920324^^^"
^DD(740.11,1,21,1,0)="This field contains the BY or FLDS string for this particular menu"
^DD(740.11,1,21,2,0)="choice.  It will include the field number and any prefix added by"
^DD(740.11,1,21,3,0)="the user.  It will also include any formatting characters added"
^DD(740.11,1,21,4,0)="automatically by the ad hoc report mechanism."
^DD(740.11,1,"DT")="2920324"
^DD(740.11,2,0)="ASK FROM/TO VALUES^S^1:YES;0:NO;^0;3^Q"
^DD(740.11,2,3)="Enter Y(es) if you want to be asked a FROM/TO sort range."
^DD(740.11,2,21,0)="^^3^3^2911115^^^"
^DD(740.11,2,21,1,0)="This field determines if the user should be asked a FROM/TO range on"
^DD(740.11,2,21,2,0)="the sort for this field.  The data for this field is created when the"
^DD(740.11,2,21,3,0)="macro is saved.  This field is only used for sort macros."
^DD(740.11,2,"DT")="2911008"
^DD(740.11,3,0)="FROM^F^^FRTO;1^K:$L(X)>60!($L(X)<1) X"
^DD(740.11,3,3)="Answer must be 1-45 characters in length."
^DD(740.11,3,21,0)="^^2^2^2911115^^^"
^DD(740.11,3,21,1,0)="Enter the FROM, or starting, value for the sort on this field."
^DD(740.11,3,21,2,0)="This field is only used for sort macros."
^DD(740.11,3,"DT")="2911008"
^DD(740.11,4,0)="TO^F^^FRTO;2^K:$L(X)>60!($L(X)<1) X"
^DD(740.11,4,3)="Answer must be 1-45 characters in length."
^DD(740.11,4,21,0)="^^2^2^2911115^^^"
^DD(740.11,4,21,1,0)="Enter the TO, or ending, value for the sort on this field."
^DD(740.11,4,21,2,0)="This field is only used for sort macros."
^DD(740.11,4,"DT")="2911008"
^DD(740.11,"B","ASK FROM/TO VALUES",2)=""
^DD(740.11,"B","FIELD STRING",1)=""
^DD(740.11,"B","FROM",3)=""
^DD(740.11,"B","MENU SELECTION",.01)=""
^DD(740.11,"B","TO",4)=""
^DD(740.11,"GL",0,1,.01)=""
^DD(740.11,"GL",0,2,1)=""
^DD(740.11,"GL",0,3,2)=""
^DD(740.11,"GL","FRTO",1,3)=""
^DD(740.11,"GL","FRTO",2,4)=""
^DD(740.11,"IX",.01)=""
^DD(740.5,0)="FIELD^^1^3"
^DD(740.5,0,"DDA")="N"
^DD(740.5,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(740.5,0,"IX","AA1",740.5,.01)=""
^DD(740.5,0,"IX","AA2",740.5,.02)=""
^DD(740.5,0,"IX","B",740.5,.01)=""
^DD(740.5,0,"IX","C",740.51,.01)=""
^DD(740.5,0,"NM","QA AUDIT")=""
^DD(740.5,0,"PT",741,27)=""
^DD(740.5,0,"PT",742,50)=""
^DD(740.5,0,"PT",742.4,50)=""
^DD(740.5,0,"PT",743.1,100)=""
^DD(740.5,0,"VR")="1.7"
^DD(740.5,.01,0)="NAME^RP1'XI^DIC(^0;1^K:'((X'<740)&(X<750)) X"
^DD(740.5,.01,.1)="QA FILE NAME"
^DD(740.5,.01,1,0)="^.1"
^DD(740.5,.01,1,1,0)="740.5^B"
^DD(740.5,.01,1,1,1)="S ^QA(740.5,""B"",$E(X,1,30),DA)="""""
^DD(740.5,.01,1,1,2)="K ^QA(740.5,""B"",$E(X,1,30),DA)"
^DD(740.5,.01,1,2,0)="740.5^AA1^MUMPS"
^DD(740.5,.01,1,2,1)="S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""""),QA(2)=$P(QA,""^"",2) S:QA(2)'="""" ^QA(740.5,""AA"",X,QA(2),DA)="""" K QA"
^DD(740.5,.01,1,2,2)="S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""""),QA(2)=$P(QA,""^"",2) K:QA(2)'="""" ^QA(740.5,""AA"",X,QA(2),DA) K QA"
^DD(740.5,.01,3)="Please enter the name of a QA file."
^DD(740.5,.01,21,0)="^^1^1^2891024^^^"
^DD(740.5,.01,21,1,0)="This is the QA FILE that is being audited."
^DD(740.5,.01,"DT")="2891120"
^DD(740.5,.02,0)="ENTRY^RNJ9,0IO^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(740.5,.02,1,0)="^.1"
^DD(740.5,.02,1,1,0)="740.5^AA2^MUMPS"
^DD(740.5,.02,1,1,1)="S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""""),QA(1)=$P(QA,""^"") S:QA(1)'="""" ^QA(740.5,""AA"",QA(1),X,DA)="""" K QA"
^DD(740.5,.02,1,1,2)="S QA=$S($D(^QA(740.5,DA,0)):^(0),1:""""),QA(1)=$P(QA,""^"") K:QA(1)'="""" ^QA(740.5,""AA"",QA(1),X,DA) K QA"
^DD(740.5,.02,2)="S Y(0)=Y N %,C D EN2^QAQAUTL"
^DD(740.5,.02,2.1)="N %,C D EN2^QAQAUTL"
^DD(740.5,.02,3)="Enter the Internal Entry Number between 1 and 999999999"
^DD(740.5,.02,21,0)="^^1^1^2911001^^^"
^DD(740.5,.02,21,1,0)="This is the IEN of the file entry being audited."
^DD(740.5,.02,"DT")="2891120"
^DD(740.5,1,0)="AUDIT TRAIL^740.51DAI^^1;0"
^DD(740.5,1,21,0)="^^1^1^2891024^^^"
^DD(740.5,1,21,1,0)="This is the trail of the activity associated with the IEN of the file."
^DD(740.5,"B","AUDIT TRAIL",1)=""
^DD(740.5,"B","ENTRY",.02)=""
^DD(740.5,"B","NAME",.01)=""
^DD(740.5,"B","QA FILE NAME",.01)="1"
^DD(740.5,"GL",0,1,.01)=""
^DD(740.5,"GL",0,2,.02)=""
^DD(740.5,"GL",1,0,1)=""
^DD(740.5,"IX",.01)=""
^DD(740.5,"IX",.02)=""
^DD(740.5,"RQ",.01)=""
^DD(740.5,"RQ",.02)=""
^DD(740.5,"SB",740.51,1)=""
^DD(740.51,0)="AUDIT TRAIL SUB-FIELD^^.04^4"
^DD(740.51,0,"IX","B",740.51,.01)=""
^DD(740.51,0,"NM","AUDIT TRAIL")=""
^DD(740.51,0,"UP")="740.5"
^DD(740.51,.01,0)="DATE/TIME^RDI^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(740.51,.01,1,0)="^.1"
^DD(740.51,.01,1,1,0)="740.51^B"
^DD(740.51,.01,1,1,1)="S ^QA(740.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(740.51,.01,1,1,2)="K ^QA(740.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(740.51,.01,1,2,0)="740.5^C"
^DD(740.51,.01,1,2,1)="S ^QA(740.5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(740.51,.01,1,2,2)="K ^QA(740.5,""C"",$E(X,1,30),DA(1),DA)"
^DD(740.51,.01,3)="Please enter 'NOW' or the appropriate Date/Time with Seconds."
^DD(740.51,.01,21,0)="^^1^1^2891024^^^"
^DD(740.51,.01,21,1,0)="This is the precise date and time that this activity was audited."
^DD(740.51,.01,"DT")="2890823"
^DD(740.51,.02,0)="USER^RP200'I^VA(200,^0;2^Q"
^DD(740.51,.02,3)="Please enter the DUZ of the entering person."
^DD(740.51,.02,21,0)="^^1^1^2891024^^"
^DD(740.51,.02,21,1,0)="This is the DUZ of the entering person.  (IEN of file 200)"
^DD(740.51,.02,"DT")="2890823"
^DD(740.51,.03,0)="ACTION^RSI^c:CLOSE;d:DELETE;e:EDIT;o:OPEN;^0;3^Q"
^DD(740.51,.03,3)="Please enter the action performed on the entry being audited."
^DD(740.51,.03,21,0)="^^1^1^2891024^^"
^DD(740.51,.03,21,1,0)="This is the action that was performed on the entry being audited."
^DD(740.51,.03,"DT")="2890823"
^DD(740.51,.04,0)="COMMENT^RFI^^0;4^K:$L(X)>220!($L(X)<1) X"
^DD(740.51,.04,3)="Answer must be 1-220 characters in length."
^DD(740.51,.04,21,0)="^^2^2^2891024^^"
^DD(740.51,.04,21,1,0)="This is any comment that will help identify the source or reason that"
^DD(740.51,.04,21,2,0)="precipitated this audit to be created."
^DD(740.51,.04,"DT")="2890823"
^DD(740.51,"B","ACTION",.03)=""
^DD(740.51,"B","COMMENT",.04)=""
^DD(740.51,"B","DATE/TIME",.01)=""
^DD(740.51,"B","USER",.02)=""
^DD(740.51,"GL",0,1,.01)=""
^DD(740.51,"GL",0,2,.02)=""
^DD(740.51,"GL",0,3,.03)=""
^DD(740.51,"GL",0,4,.04)=""
^DD(740.51,"IX",.01)=""
^DD(740.51,"RQ",.01)=""
^DD(740.51,"RQ",.02)=""
^DD(740.51,"RQ",.03)=""
^DD(740.51,"RQ",.04)=""
^DD(741,0)="FIELD^^28^29"
^DD(741,0,"DDA")="N"
^DD(741,0,"DT")="2930913"
^DD(741,0,"ID",1)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(741,0,"ID",3)="S %I=Y,Y=$S('$D(^(""SCRN"")):"""",$D(^QA(741.1,+$P(^(""SCRN""),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(741.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(741,0,"ID",11)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,11)_"""":"""",2),$C(59),1)"")"
^DD(741,0,"IX","AA1",741,.01)=""
^DD(741,0,"IX","AA2",741,1)=""
^DD(741,0,"IX","AA3",741,3)=""
^DD(741,0,"IX","AC",741,14)=""
^DD(741,0,"IX","AD",741,11)=""
^DD(741,0,"IX","AED",741,1)=""
^DD(741,0,"IX","AOCID",741,.01)=""
^DD(741,0,"IX","AOCID2",741,1)=""
^DD(741,0,"IX","ARCD",741,28)=""
^DD(741,0,"IX","ATED",741,1)=""
^DD(741,0,"IX","AUDIT",741,27)=""
^DD(741,0,"IX","AVAL",741,18)=""
^DD(741,0,"IX","B",741,.01)=""
^DD(741,0,"IX","C",741,1)=""
^DD(741,0,"IX","D",741,3)=""
^DD(741,0,"IX","E",741,2)=""
^DD(741,0,"NM","QA OCCURRENCE SCREEN")=""
^DD(741,0,"VR")="3.0"
^DD(741,.01,0)="QA PATIENT^RP2'^DPT(^0;1^Q"
^DD(741,.01,1,0)="^.1"
^DD(741,.01,1,1,0)="741^B"
^DD(741,.01,1,1,1)="S ^QA(741,""B"",$E(X,1,30),DA)="""""
^DD(741,.01,1,1,2)="K ^QA(741,""B"",$E(X,1,30),DA)"
^DD(741,.01,1,2,0)="741^AA1^MUMPS"
^DD(741,.01,1,2,1)="S QA=$S($D(^QA(741,DA,0)):^(0),1:""""),QA(""SCRN"")=$S($D(^(""SCRN"")):+^(""SCRN""),1:""""),QA(3)=$P(QA,""^"",3) S:(QA(3)]"""")&(QA(""SCRN"")]"""") ^QA(741,""AA"",QA(""SCRN""),QA(3),X,DA)="""" K QA"
^DD(741,.01,1,2,2)="S QA=$S($D(^QA(741,DA,0)):^(0),1:""""),QA(""SCRN"")=$S($D(^(""SCRN"")):+^(""SCRN""),1:""""),QA(3)=$P(QA,""^"",3) K:(QA(3)]"""")&(QA(""SCRN"")]"""") ^QA(741,""AA"",QA(""SCRN""),QA(3),X,DA) K QA"
^DD(741,.01,1,3,0)="741^AOCID^MUMPS"
^DD(741,.01,1,3,1)="D ^QAOSOCID"
^DD(741,.01,1,3,2)="D KILL^QAOSOCID"
^DD(741,.01,1,4,0)="^^TRIGGER^741^11"
^DD(741,.01,1,4,1)="X ^DD(741,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""0"" X ^DD(741,.01,1,4,1.4)"
^DD(741,.01,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)="""""
^DD(741,.01,1,4,1.4)="S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(741,.01,1,4,2)="X ^DD(741,.01,1,4,2.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""0"" X ^DD(741,.01,1,4,2.4)"
^DD(741,.01,1,4,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)="""""
^DD(741,.01,1,4,2.4)="S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(741,.01,1,4,"CREATE CONDITION")="STATUS="""""
^DD(741,.01,1,4,"CREATE VALUE")="""0"""
^DD(741,.01,1,4,"DELETE CONDITION")="STATUS="""""
^DD(741,.01,1,4,"DELETE VALUE")="""0"""
^DD(741,.01,1,4,"FIELD")="STATUS"
^DD(741,.01,3)="Enter a patient who has met one of the screens."
^DD(741,.01,21,0)="^^3^3^2910820^^^^"
^DD(741,.01,21,1,0)="Select a patient who has met one of the screens.  A patient may be"
^DD(741,.01,21,2,0)="selected by: Name, SSN, Last four digits of SSN, or Last initial and"
^DD(741,.01,21,3,0)="last four digits of SSN."
^DD(741,.01,"DEL",1,0)="S QADL=1 I 0"
^DD(741,.01,"DT")="2900103"
^DD(741,.02,0)="ASSOCIATED ADMISSION^*P405'^DGPM(^0;2^S DIC(""S"")=""S QA(1)=^DGPM(+Y,0),QA(2)=^QA(741,D0,0) I $P(QA(1),""""^"""",2)=1,$P(QA(1),""""^"""",3)=+QA(2),$P(QA(2),""""^"""",3)\1'<(QA(1)\1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741,.02,3)="Enter the MAS admission movement associated with this patient."
^DD(741,.02,12)="You may select this patient's admission movements whose dates are less than or equal to the occurrence date."
^DD(741,.02,12.1)="S DIC(""S"")=""S QA(1)=^DGPM(+Y,0),QA(2)=^QA(741,D0,0) I $P(QA(1),""""^"""",2)=1,$P(QA(1),""""^"""",3)=+QA(2),$P(QA(2),""""^"""",3)\1'<(QA(1)\1)"""
^DD(741,.02,21,0)="^^2^2^2920325^^^^"
^DD(741,.02,21,1,0)="This field contains the MAS admission movement associated with this"
^DD(741,.02,21,2,0)="occurrence."
^DD(741,.02,"DT")="2920325"
^DD(741,1,0)="DATE^RDX^^0;3^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(741,1,1,0)="^.1"
^DD(741,1,1,1,0)="741^C"
^DD(741,1,1,1,1)="S ^QA(741,""C"",$E(X,1,30),DA)="""""
^DD(741,1,1,1,2)="K ^QA(741,""C"",$E(X,1,30),DA)"
^DD(741,1,1,2,0)="741^AA2^MUMPS"
^DD(741,1,1,2,1)="S QA=$S($D(^QA(741,DA,0)):^(0),1:""""),QA(""SCRN"")=$S($D(^(""SCRN"")):+^(""SCRN""),1:""""),QA(1)=$P(QA,""^"") S:(QA(1)]"""")&(QA(""SCRN"")]"""") ^QA(741,""AA"",QA(""SCRN""),X,QA(1),DA)="""" K QA"
^DD(741,1,1,2,2)="S QA=$S($D(^QA(741,DA,0)):^(0),1:""""),QA(""SCRN"")=$S($D(^(""SCRN"")):+^(""SCRN""),1:""""),QA(1)=$P(QA,""^"") K:(QA(1)]"""")&(QA(""SCRN"")]"""") ^QA(741,""AA"",QA(""SCRN""),X,QA(1),DA) K QA"
^DD(741,1,1,3,0)="741^AOCID2^MUMPS"
^DD(741,1,1,3,1)="D ^QAOSOCID"
^DD(741,1,1,3,2)="D KILL^QAOSOCID"
^DD(741,1,1,4,0)="741^ATED^MUMPS"
^DD(741,1,1,4,1)="S X1=$P(^QA(741,DA,0),""^"",14),(QAQAX,X2)=X I X1>0,X2>0 D ^%DTC N QAQAXREF,QAQADICT,QAQAFLD S $P(^QA(741,DA,0),""^"",15)=X,QAQADICT=741,QAQAFLD=15 D ENSET^QAQAXREF S X=QAQAX K QAQAX Q"
^DD(741,1,1,4,2)="N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA,0),""^"",15),QAQADICT=741,QAQAFLD=15 D ENKILL^QAQAXREF S $P(^QA(741,DA,0),""^"",15)="""" S X=QAQAX Q"
^DD(741,1,1,4,"DT")="2911002"
^DD(741,1,1,5,0)="741^AED^MUMPS"
^DD(741,1,1,5,1)="D ENLAPSO^QAOSLAPS"
^DD(741,1,1,5,2)="Q"
^DD(741,1,1,5,"DT")="2911002"
^DD(741,1,3)="Enter the date/(time) of the occurrence"
^DD(741,1,21,0)="^^2^2^2891024^"
^DD(741,1,21,1,0)="This is the date the occurrence took place.  For auto enrolled occurrences"
^DD(741,1,21,2,0)="it is the date that this occurrence was picked up by auto enroll."
^DD(741,1,"DT")="2911002"
^DD(741,2,0)="OCCURRENCE IDENTIFIER^RFI^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<7) X"
^DD(741,2,1,0)="^.1"
^DD(741,2,1,2,0)="741^E"
^DD(741,2,1,2,1)="S ^QA(741,""E"",$E(X,1,30),DA)="""""
^DD(741,2,1,2,2)="K ^QA(741,""E"",$E(X,1,30),DA)"
^DD(741,2,1,2,"DT")="2920825"
^DD(741,2,3)="Answer must be 7 characters in length."
^DD(741,2,21,0)="^^2^2^2900726^^^"
^DD(741,2,21,1,0)="This identifier is computed from the patient's name, SSN, occurrence date"
^DD(741,2,21,2,0)="and internal entry number in the occurrence screen file."
^DD(741,2,"DT")="2930810"
^DD(741,3,0)="SCREEN^R*P741.1'^QA(741.1,^SCRN;1^S DIC(""S"")=""I $P(^(0),""""^"""",4)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741,3,1,0)="^.1"
^DD(741,3,1,1,0)="741^D"
^DD(741,3,1,1,1)="S ^QA(741,""D"",$E(X,1,30),DA)="""""
^DD(741,3,1,1,2)="K ^QA(741,""D"",$E(X,1,30),DA)"
^DD(741,3,1,2,0)="741^AA3^MUMPS"
^DD(741,3,1,2,1)="S QA=$S($D(^QA(741,DA,0)):^(0),1:""""),QA(1)=$P(QA,""^""),QA(3)=$P(QA,""^"",3) S:(QA(1)]"""")&(QA(3)]"""") ^QA(741,""AA"",X,QA(3),QA(1),DA)="""" K QA"
^DD(741,3,1,2,2)="S QA=$S($D(^QA(741,DA,0)):^(0),1:""""),QA(1)=$P(QA,""^""),QA(3)=$P(QA,""^"",3) K:(QA(1)]"""")&(QA(3)]"""") ^QA(741,""AA"",X,QA(3),QA(1),DA) K QA"
^DD(741,3,3)="Enter the screen that describes this occurrence."
^DD(741,3,12)="Only National and Local screens may be selected."
^DD(741,3,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)'=1"""
^DD(741,3,21,0)="^^1^1^2891024^"
^DD(741,3,21,1,0)="This is the screen that best describes this patient's occurrence."
^DD(741,3,"DT")="2910528"
^DD(741,4,0)="WARD/CLINIC^*P44'^SC(^0;5^S DIC(""S"")=""S QA=$P(^(0),""""^"""",3) I QA=""""W""""!(QA=""""C"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741,4,.1)=""
^DD(741,4,3)="Enter the ward/clinic the occurrence took place on."
^DD(741,4,12)="Select the ward/clinic on which the occurrence took place."
^DD(741,4,12.1)="S DIC(""S"")=""S QA=$P(^(0),""""^"""",3) I QA=""""W""""!(QA=""""C"""")"""
^DD(741,4,21,0)="^^2^2^2910911^^^^"
^DD(741,4,21,1,0)="This is the ward/clinic of the occurrence as defined by the"
^DD(741,4,21,2,0)="Occurrence Screen circular."
^DD(741,4,"DT")="2900123"
^DD(741,5,0)="SERVICE^P49'^DIC(49,^0;6^Q"
^DD(741,5,3)="Enter the service associated with this occurrence."
^DD(741,5,21,0)="^^1^1^2891024^^"
^DD(741,5,21,1,0)="This is the service associated with this occurrence."
^DD(741,5,"DT")="2890524"
^DD(741,6,0)="TREATING SPECIALTY/BEDSECTION^P45.7'^DIC(45.7,^0;7^Q"
^DD(741,6,3)="Enter the treating specialty associated with this occurrence."
^DD(741,6,21,0)="^^1^1^2891024^"
^DD(741,6,21,1,0)="This is the treating specialty associated with this occurrence."
^DD(741,6,"DT")="2890524"
^DD(741,7,0)="MEDICAL TEAM^P741.93'^QA(741.93,^0;8^Q"
^DD(741,7,3)="Enter the medical team associated with this occurrence."
^DD(741,7,21,0)="^^1^1^2891024^"
^DD(741,7,21,1,0)="This is the medical team associated with this occurrence."
^DD(741,7,"DT")="2890524"
^DD(741,8,0)="ATTENDING PHYSICIAN^P200'^VA(200,^0;9^Q"
^DD(741,8,.1)="ATTENDING PHYSICIAN CODE "
^DD(741,8,3)="Enter the patient's attending physician."
^DD(741,8,21,0)="^^1^1^2891024^"
^DD(741,8,21,1,0)="This is the patient's attending physician."
^DD(741,8,"DT")="2930913"
^DD(741,9,0)="RESIDENT/PROVIDER^P200'^VA(200,^0;10^Q"
^DD(741,9,.1)="RESIDENT/PROVIDER CODE"
^DD(741,9,3)="Enter the patient's resident/provider."
^DD(741,9,21,0)="^^1^1^2891024^"
^DD(741,9,21,1,0)="This is the patient's resident/provider."
^DD(741,9,"DT")="2930913"
^DD(741,10,0)="REVIEWER^741.01IPA^^REVR;0"
^DD(741,10,21,0)="^^2^2^2920828^^^^"
^DD(741,10,21,1,0)="This is where the reviewer data for Clinical, Peer, and Management reviews"
^DD(741,10,21,2,0)="is entered or changed."
^DD(741,11,0)="STATUS^S^0:OPEN;1:CLOSED;2:DELETED;^0;11^Q"
^DD(741,11,1,0)="^.1"
^DD(741,11,1,1,0)="741^AD"
^DD(741,11,1,1,1)="S ^QA(741,""AD"",$E(X,1,30),DA)="""""
^DD(741,11,1,1,2)="K ^QA(741,""AD"",$E(X,1,30),DA)"
^DD(741,11,3)="Enter the status of this occurrence."
^DD(741,11,5,1,0)="741^.01^4"
^DD(741,11,5,2,0)="741^14^2"
^DD(741,11,21,0)="^^5^5^2911001^^"
^DD(741,11,21,1,0)="This is the status of this occurrence record.  Occurrences are automatically"
^DD(741,11,21,2,0)="marked as open when they are first entered into the system.  When a final"
^DD(741,11,21,3,0)="disposition date is entered they are marked as closed.  An occurrence may"
^DD(741,11,21,4,0)="be marked as deleted at any time by using the delete occurrence screen"
^DD(741,11,21,5,0)="record option in the manager menu."
^DD(741,11,"DT")="2890818"
^DD(741,12,0)="PEER DUE DATE^DI^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(741,12,3)="Enter the date by which the peer review is due."
^DD(741,12,21,0)="^^3^3^2891024^"
^DD(741,12,21,1,0)="This is the date all peer reviews should be completed by.  It is computed"
^DD(741,12,21,2,0)="by adding the peer review days entry in the parameters file to the date"
^DD(741,12,21,3,0)="the clinical review was completed."
^DD(741,12,"DT")="2891206"
^DD(741,13,0)="MANAGEMENT DUE DATE^DI^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(741,13,3)="Enter the date by which the management review is due."
^DD(741,13,21,0)="^^3^3^2891024^"
^DD(741,13,21,1,0)="This is the date by which all management reviews should be completed. It is"
^DD(741,13,21,2,0)="computed by adding the management review days entry from the parameters"
^DD(741,13,21,3,0)="file to the date the clinical review was completed."
^DD(741,13,"DT")="2891206"
^DD(741,14,0)="FINAL DISPOSITION DATE^DX^^0;14^S %DT=""EXP"",%DT(0)=$P(^QA(741,D0,0),""^"",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X"
^DD(741,14,1,0)="^.1"
^DD(741,14,1,1,0)="741^AC^MUMPS"
^DD(741,14,1,1,1)="S (QAQAX,X1)=X,X2=$P(^QA(741,DA,0),""^"",3) I X1>0,X2>0 D ^%DTC N QAQAXREF,QAQADICT,QAQAFLD S $P(^QA(741,DA,0),""^"",15)=X,QAQADICT=741,QAQAFLD=15 D ENSET^QAQAXREF S X=QAQAX K QAQAX Q"
^DD(741,14,1,1,2)="N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA,0),""^"",15),QAQADICT=741,QAQAFLD=15 D ENKILL^QAQAXREF S $P(^QA(741,DA,0),""^"",15)="""" S X=QAQAX K QAQAX Q"
^DD(741,14,1,2,0)="^^TRIGGER^741^11"
^DD(741,14,1,2,1)="X ^DD(741,14,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""1"" X ^DD(741,14,1,2,1.4)"
^DD(741,14,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)=""OPEN"""
^DD(741,14,1,2,1.4)="S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(741,14,1,2,2)="X ^DD(741,14,1,2,2.3) I X S X=DIV S Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""0"" X ^DD(741,14,1,2,2.4)"
^DD(741,14,1,2,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(2)=$C(59)_$S($D(^DD(741,11,0)):$P(^(0),U,3),1:""""),Y(1)=$S($D(^QA(741,D0,0)):^(0),1:"""") S X=$P($P(Y(2),$C(59)_$P(Y(1),U,11)_"":"",2),$C(59),1)=""CLOSED"""
^DD(741,14,1,2,2.4)="S DIH=$S($D(^QA(741,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,11)=DIV,DIH=741,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(741,14,1,2,"CREATE CONDITION")="STATUS=""OPEN"""
^DD(741,14,1,2,"CREATE VALUE")="""1"""
^DD(741,14,1,2,"DELETE CONDITION")="STATUS=""CLOSED"""
^DD(741,14,1,2,"DELETE VALUE")="""0"""
^DD(741,14,1,2,"DT")="2911002"
^DD(741,14,1,2,"FIELD")="STATUS"
^DD(741,14,3)="Please enter the date of the final disposition."
^DD(741,14,4)="D EN2^QAOSDDUT"
^DD(741,14,21,0)="^^3^3^2891024^^"
^DD(741,14,21,1,0)="This is the date of the final disposition.  Only the last final disposition"
^DD(741,14,21,2,0)="is tracked.  Some options allow this date to be entered manually, while"
^DD(741,14,21,3,0)="others automatically store the current date."
^DD(741,14,"DT")="2930106"
^DD(741,15,0)="TOTAL ELAPSED DAYS^NJ3,0^^0;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741,15,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(741,15,21,0)="^^1^1^2891024^"
^DD(741,15,21,1,0)="This is the number of days between the occurrence date and the final disposition date."
^DD(741,15,"DT")="2890525"
^DD(741,16,0)="FINAL DISPOSITION REACHED BY^*P741.2'^QA(741.2,^0;16^S DIC(""S"")=""I $P(^(0),""""^"""",2)<5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741,16,3)="Enter the review level that reached the final disposition."
^DD(741,16,12)="Only Clinical, Peer, Management and Committee are selectable."
^DD(741,16,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)<5"""
^DD(741,16,21,0)="^^3^3^2891024^^"
^DD(741,16,21,1,0)="This field tracks which review level entered a final disposition.  Some"
^DD(741,16,21,2,0)="options allow data to be entered manually while others automatically"
^DD(741,16,21,3,0)="store the data."
^DD(741,16,"DT")="2921013"
^DD(741,17,0)="COMMITTEE^741.017PA^^CMTE;0"
^DD(741,17,21,0)="^^1^1^2920831^^^^"
^DD(741,17,21,1,0)="This is where all data on committee reviews is stored."
^DD(741,18,0)="*DATE VALIDATED/CONFIRMED^DX^^0;17^S %DT=""EXP"",%DT(0)=$P(^QA(741,D0,0),""^"",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X"
^DD(741,18,.1)="DATE VALIDATED/CONFIRMED"
^DD(741,18,1,0)="^.1"
^DD(741,18,1,1,0)="741^AVAL"
^DD(741,18,1,1,1)="S ^QA(741,""AVAL"",$E(X,1,30),DA)="""""
^DD(741,18,1,1,2)="K ^QA(741,""AVAL"",$E(X,1,30),DA)"
^DD(741,18,3)="Enter the date this occurrence was validated/confirmed."
^DD(741,18,4)="D EN2^QAOSDDUT"
^DD(741,18,21,0)="^^1^1^2891024^"
^DD(741,18,21,1,0)="This is the date the occurrence was validated/confirmed."
^DD(741,18,"DT")="2930106"
^DD(741,19,0)="SEVERITY OF OUTCOME^P741.8'O^QA(741.8,^0;18^Q"
^DD(741,19,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741,19,2.1)="S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741,19,3)="Enter the severity of outcome."
^DD(741,19,21,0)="^^1^1^2930615^"
^DD(741,19,21,1,0)="This is the severity of outcome for the occurrence."
^DD(741,19,"DT")="2900315"
^DD(741,20,0)="*QUALITY OF CARE SCALE^*P741.6'O^QA(741.6,^0;19^S DIC(""S"")=""I $P(^QA(741.6,+Y,0),""""^"""",3)[""""V"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741,20,.1)="QUALITY OF CARE SCALE"
^DD(741,20,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741,20,2.1)="S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741,20,3)="Enter the quality of care."
^DD(741,20,12)="Select only those levels of care allowed for validation/confirmation."
^DD(741,20,12.1)="S DIC(""S"")=""I $P(^QA(741.6,+Y,0),""""^"""",3)[""""V"""""""
^DD(741,20,21,0)="^^1^1^2891103^^"
^DD(741,20,21,1,0)="This is the validated/confirmed quality of care."
^DD(741,20,"DT")="2921013"
^DD(741,21,0)="*VALIDATED/CONFIRMED^S^1:EQUIPMENT PROBLEMS;2:SYSTEM PROBLEMS;3:EQUIPMENT & SYSTEM PROBLEMS;^0;20^Q"
^DD(741,21,.1)="VALIDATED/CONFIRMED"
^DD(741,21,3)="Enter the appropriate validation/confirmation code."
^DD(741,21,21,0)="^^1^1^2910614^^"
^DD(741,21,21,1,0)="This is the type of problem that led to this occurrence."
^DD(741,21,"DT")="2921013"
^DD(741,22,0)="*VALIDATION COMMENT^F^^1;1^K:$L(X)>187!($L(X)<1) X"
^DD(741,22,.1)="VALIDATION COMMENT"
^DD(741,22,3)="Answer must be 1-187 characters in length."
^DD(741,22,21,0)="^^1^1^2930615^"
^DD(741,22,21,1,0)="Enter any comment regarding the validation of this occurrence."
^DD(741,22,"DT")="2921013"
^DD(741,24,0)="PEER ATTRIBUTION (INDIVIDUAL)^741.024PA^^ATRI;0"
^DD(741,24,21,0)="^^2^2^2891024^"
^DD(741,24,21,1,0)="This is where the occurrence is attributed to the individuals involved"
^DD(741,24,21,2,0)="in this patient's care."
^DD(741,25,0)="PEER ATTRIBUTION (MED TEAM)^741.025PA^^ATRT;0"
^DD(741,25,21,0)="^^1^1^2930203^^"
^DD(741,25,21,1,0)="This is where the medical team attribution data is stored."
^DD(741,26,0)="PEER ATTRIBUTION (HOSP LOC)^741.026PA^^ATRL;0"
^DD(741,26,21,0)="^^1^1^2900206^^"
^DD(741,26,21,1,0)="This is where the data is stored for the attribution to hospital location."
^DD(741,27,0)="AUDIT^P740.5'^QA(740.5,^AUDIT;1^Q"
^DD(741,27,1,0)="^.1"
^DD(741,27,1,1,0)="741^AUDIT^MUMPS"
^DD(741,27,1,1,1)="Q"
^DD(741,27,1,1,2)="N QAUDIT S QAUDIT(""FILE"")=741,QAUDIT(""DA"")=DA D:$D(QADL) ^QAQADLAU K QADL Q"
^DD(741,27,1,1,"DT")="2910703"
^DD(741,27,3)="Enter the audit file pointer."
^DD(741,27,9)="^"
^DD(741,27,21,0)="^^3^3^2891206^^"
^DD(741,27,21,1,0)="This is a pointer to the audit file entry for this occurrence screen"
^DD(741,27,21,2,0)="record.  The audit file contains data on what was done to this record"
^DD(741,27,21,3,0)="and when it was done."
^DD(741,27,"DT")="2910703"
^DD(741,28,0)="RECORD CREATION DATE^D^^0;21^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(741,28,1,0)="^.1"
^DD(741,28,1,1,0)="741^ARCD"
^DD(741,28,1,1,1)="S ^QA(741,""ARCD"",$E(X,1,30),DA)="""""
^DD(741,28,1,1,2)="K ^QA(741,""ARCD"",$E(X,1,30),DA)"
^DD(741,28,1,1,"DT")="2920318"
^DD(741,28,3)="Enter the date this record was entered into the Occurrence Screen file."
^DD(741,28,21,0)="^^3^3^2930615^"
^DD(741,28,21,1,0)="This field is automatically set to TODAY whenever a new record"
^DD(741,28,21,2,0)="is entered into this file.  The record creation date is used by"
^DD(741,28,21,3,0)="auto enroll to count the occurrences that are entered manually."
^DD(741,28,"DT")="2920318"
^DD(741,"B","*DATE VALIDATED/CONFIRMED",18)=""
^DD(741,"B","*QUALITY OF CARE SCALE",20)=""
^DD(741,"B","*VALIDATED/CONFIRMED",21)=""
^DD(741,"B","*VALIDATION COMMENT",22)=""
^DD(741,"B","ASSOCIATED ADMISSION",.02)=""
^DD(741,"B","ATTENDING PHYSICIAN",8)=""
^DD(741,"B","ATTENDING PHYSICIAN CODE ",8)="1"
^DD(741,"B","AUDIT",27)=""
^DD(741,"B","COMMITTEE",17)=""
^DD(741,"B","DATE",1)=""
^DD(741,"B","DATE VALIDATED/CONFIRMED",18)="1"
^DD(741,"B","FINAL DISPOSITION DATE",14)=""
^DD(741,"B","FINAL DISPOSITION REACHED BY",16)=""
^DD(741,"B","MANAGEMENT DUE DATE",13)=""
^DD(741,"B","MEDICAL TEAM",7)=""
^DD(741,"B","OCCURRENCE IDENTIFIER",2)=""
^DD(741,"B","PEER ATTRIBUTION (HOSP LOC)",26)=""
^DD(741,"B","PEER ATTRIBUTION (INDIVIDUAL)",24)=""
^DD(741,"B","PEER ATTRIBUTION (MED TEAM)",25)=""
^DD(741,"B","PEER DUE DATE",12)=""
^DD(741,"B","QA PATIENT",.01)=""
^DD(741,"B","QUALITY OF CARE SCALE",20)="1"
^DD(741,"B","RECORD CREATION DATE",28)=""
^DD(741,"B","RESIDENT/PROVIDER",9)=""
^DD(741,"B","RESIDENT/PROVIDER CODE",9)="1"
^DD(741,"B","REVIEWER",10)=""
^DD(741,"B","SCREEN",3)=""
^DD(741,"B","SERVICE",5)=""
^DD(741,"B","SEVERITY OF OUTCOME",19)=""
^DD(741,"B","STATUS",11)=""
^DD(741,"B","TOTAL ELAPSED DAYS",15)=""
^DD(741,"B","TREATING SPECIALTY/BEDSECTION",6)=""
^DD(741,"B","VALIDATED/CONFIRMED",21)="1"
^DD(741,"B","VALIDATION COMMENT",22)="1"
^DD(741,"B","WARD/CLINIC",4)=""
^DD(741,"GL",0,1,.01)=""
^DD(741,"GL",0,2,.02)=""
^DD(741,"GL",0,3,1)=""
^DD(741,"GL",0,4,2)=""
^DD(741,"GL",0,5,4)=""
^DD(741,"GL",0,6,5)=""
^DD(741,"GL",0,7,6)=""
^DD(741,"GL",0,8,7)=""
^DD(741,"GL",0,9,8)=""
^DD(741,"GL",0,10,9)=""
^DD(741,"GL",0,11,11)=""
^DD(741,"GL",0,12,12)=""
^DD(741,"GL",0,13,13)=""
^DD(741,"GL",0,14,14)=""
^DD(741,"GL",0,15,15)=""
^DD(741,"GL",0,16,16)=""
^DD(741,"GL",0,17,18)=""
^DD(741,"GL",0,18,19)=""
^DD(741,"GL",0,19,20)=""
^DD(741,"GL",0,20,21)=""
^DD(741,"GL",0,21,28)=""
^DD(741,"GL",1,1,22)=""
^DD(741,"GL","ATRI",0,24)=""
^DD(741,"GL","ATRL",0,26)=""
^DD(741,"GL","ATRT",0,25)=""
^DD(741,"GL","AUDIT",1,27)=""
^DD(741,"GL","CMTE",0,17)=""
^DD(741,"GL","REVR",0,10)=""
^DD(741,"GL","SCRN",1,3)=""
^DD(741,"IX",.01)=""
^DD(741,"IX",1)=""
^DD(741,"IX",2)=""
^DD(741,"IX",3)=""
^DD(741,"IX",11)=""
^DD(741,"IX",14)=""
^DD(741,"IX",18)=""
^DD(741,"IX",27)=""
^DD(741,"IX",28)=""
^DD(741,"RQ",.01)=""
^DD(741,"RQ",1)=""
^DD(741,"RQ",2)=""
^DD(741,"RQ",3)=""
^DD(741,"SB",741.01,10)=""
^DD(741,"SB",741.017,17)=""
^DD(741,"SB",741.024,24)=""
^DD(741,"SB",741.025,25)=""
^DD(741,"SB",741.026,26)=""
^DD(741.01,0)="REVIEWER SUB-FIELD^^10^13"
^DD(741.01,0,"DT")="2921022"
^DD(741.01,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(741.01,0,"ID","WRITE.03")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(49,+$P(^(0),U,10),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(49,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(741.01,0,"IX","ADUES",741.01,1)=""
^DD(741.01,0,"IX","ALAPSE",741.01,1)=""
^DD(741.01,0,"IX","AONLY1",741.01,9)=""
^DD(741.01,0,"IX","B",741.01,.01)=""
^DD(741.01,0,"NM","REVIEWER")=""
^DD(741.01,0,"UP")="741"
^DD(741.01,.01,0)="REVIEW LEVEL^M*P741.2'X^QA(741.2,^0;1^S QA=$O(^QA(741.2,""C"",1,0)),DIC(""S"")=""I $P(^(0),""""^"""",2)'>3&(('$D(^QA(741,DA,""""REVR"""",""""B"""",QA))!(+Y'=QA)))"" D ^DIC K DIC S DIC=DIE,X=+Y K QA K:Y<0 X"
^DD(741.01,.01,1,0)="^.1"
^DD(741.01,.01,1,1,0)="741.01^B"
^DD(741.01,.01,1,1,1)="S ^QA(741,DA(1),""REVR"",""B"",$E(X,1,30),DA)="""""
^DD(741.01,.01,1,1,2)="K ^QA(741,DA(1),""REVR"",""B"",$E(X,1,30),DA)"
^DD(741.01,.01,3)="Enter the level or type of review."
^DD(741.01,.01,4)=""
^DD(741.01,.01,12)="  "
^DD(741.01,.01,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)'>3"""
^DD(741.01,.01,21,0)="^^3^3^2920601^^^"
^DD(741.01,.01,21,1,0)="This is the type of review being entered or edited.  Multiple Peer and"
^DD(741.01,.01,21,2,0)="Management reviews are allowed, but only one Clinical review may"
^DD(741.01,.01,21,3,0)="be entered."
^DD(741.01,.01,"DT")="2891013"
^DD(741.01,.02,0)="NAME^R*P200'^VA(200,^0;2^S DIC(""S"")=""S QA=$P(^QA(741,DA(1),""""REVR"""",DA,0),""""^""""),QA=$P(^QA(741.2,QA,0),""""^"""",2) I ((QA=1)&($D(^XUSEC(""""QAOSCLIN"""",+Y))))!(QA>1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741.01,.02,.1)="REVIEWER NAME"
^DD(741.01,.02,3)="Enter the name of the reviewer."
^DD(741.01,.02,12)="Clinical reviewers must hold the Clinical reviewer key to be selectable."
^DD(741.01,.02,12.1)="S DIC(""S"")=""S QA=$P(^QA(741,DA(1),""""REVR"""",DA,0),""""^""""),QA=$P(^QA(741.2,QA,0),""""^"""",2) I ((QA=1)&($D(^XUSEC(""""QAOSCLIN"""",+Y))))!(QA>1)"""
^DD(741.01,.02,21,0)="^^1^1^2891024^"
^DD(741.01,.02,21,1,0)="This is the name of the person who has performed this review."
^DD(741.01,.02,"DT")="2921022"
^DD(741.01,.03,0)="REVIEWING SERVICE^P49'X^DIC(49,^0;10^D EN4^QAOSDDUT"
^DD(741.01,.03,3)="Enter the service performing this Peer review."
^DD(741.01,.03,21,0)="^^5^5^2921013^"
^DD(741.01,.03,21,1,0)="This field is used to enter the service/section that is conducting the"
^DD(741.01,.03,21,2,0)="Peer review of this occurrence.  Once the FINAL PEER REVIEW PER SERVICE"
^DD(741.01,.03,21,3,0)="field has been answered Y(es) this field may no longer be edited.  To"
^DD(741.01,.03,21,4,0)="change the service, change FINAL PEER REVIEW PER SERVICE to N(o); the"
^DD(741.01,.03,21,5,0)="service may then be edited."
^DD(741.01,.03,"DT")="2921013"
^DD(741.01,1,0)="DATE REVIEW COMPLETED^RDX^^0;3^S %DT=""EXP"" S:$D(QAOSD0)#2 %DT(0)=$P(^QA(741,QAOSD0,0),""^"",3)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X"
^DD(741.01,1,1,0)="^.1"
^DD(741.01,1,1,1,0)="741.01^ALAPSE^MUMPS"
^DD(741.01,1,1,1,1)="D ENLAPSE^QAOSLAPS"
^DD(741.01,1,1,1,2)="N QAQAXREF,QAQADICT,QAQAFLD S QAQAX=X,X=$P(^QA(741,DA(1),""REVR"",DA,0),""^"",8),QAQADICT=741.01,QAQAFLD=8 D ENKILL^QAQAXREF S $P(^QA(741,DA(1),""REVR"",DA,0),""^"",8)="""" S X=QAQAX K QAQAX"
^DD(741.01,1,1,2,0)="741.01^ADUES^MUMPS"
^DD(741.01,1,1,2,1)="D ENDUES^QAOSLAPS"
^DD(741.01,1,1,2,2)="S QA(""DA"")=DA,DA=DA(1),QAQAX=X F QA=12:1:13 N QAQAXREF,QAQADICT,QAQAFLD S X=$P(^QA(741,DA,0),""^"",QA),QAQADICT=741,QAQAFLD=QA D ENKILL^QAQAXREF S $P(^QA(741,DA,0),""^"",QA)="""" I QA=13 S DA=QA(""DA""),X=QAQAX K QAQAX"
^DD(741.01,1,3)="Enter the date this reviewer finished the review."
^DD(741.01,1,4)="D EN2^QAOSDDUT"
^DD(741.01,1,21,0)="^^1^1^2930106^^^^"
^DD(741.01,1,21,1,0)="This is the date the reviewer completed the review."
^DD(741.01,1,"DT")="2930106"
^DD(741.01,2,0)="REASON FOR EXCEPTION^741.12PA^^1;0"
^DD(741.01,2,21,0)="^^1^1^2900123^^"
^DD(741.01,2,21,1,0)="This is where the screen exception data is entered."
^DD(741.01,3,0)="PRIMARY REASON CLIN REFERRAL^*P741.4'O^QA(741.4,^0;4^S DIC(""S"")=""D EN6^QAOSDDUT"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741.01,3,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.4,+Y(0),0),""^"")_""  ""_$S($D(^(2))#2:$P(^(2),""^""),1:"""")"
^DD(741.01,3,2.1)="S:+Y(0) Y=$P(^QA(741.4,+Y(0),0),""^"")_""  ""_$S($D(^(2))#2:$P(^(2),""^""),1:"""")"
^DD(741.01,3,3)="Enter the primary reason for Clinical referral."
^DD(741.01,3,12)="Each Screen has its own reasons for referral"
^DD(741.01,3,12.1)="S DIC(""S"")=""D EN6^QAOSDDUT"""
^DD(741.01,3,21,0)="^^2^2^2910820^^"
^DD(741.01,3,21,1,0)="This is the field the Clinical reviewer enters to describe the primary"
^DD(741.01,3,21,2,0)="reason the occurrence was referred to the next level of review."
^DD(741.01,3,"DT")="2910501"
^DD(741.01,4,0)="FINDINGS^*P741.6'O^QA(741.6,^0;5^S DIC(""S"")=""D EN8^QAOSDDUT"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741.01,4,.1)=""
^DD(741.01,4,1,0)="^.1^^0"
^DD(741.01,4,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.01,4,2.1)="S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.01,4,3)="Enter the findings of this reviewer."
^DD(741.01,4,12)="Appropriate Findings determined by Review Level"
^DD(741.01,4,12.1)="S DIC(""S"")=""D EN8^QAOSDDUT"""
^DD(741.01,4,21,0)="^^1^1^2930615^"
^DD(741.01,4,21,1,0)="This is the finding of the reviewer at this review level."
^DD(741.01,4,"DT")="2921019"
^DD(741.01,5,0)="ACTION^741.15PA^^2;0"
^DD(741.01,5,21,0)="^^1^1^2891024^"
^DD(741.01,5,21,1,0)="This is where the action to be taken data is stored."
^DD(741.01,6,0)="*SEVERITY OF OUTCOME^P741.8'O^QA(741.8,^0;6^Q"
^DD(741.01,6,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.01,6,2.1)="S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.01,6,3)="Enter the severity of outcome for this occurrence."
^DD(741.01,6,21,0)="^^2^2^2910911^^"
^DD(741.01,6,21,1,0)="This is the severity of outcome of this occurrence, enter the one that "
^DD(741.01,6,21,2,0)="best describes the occurrence."
^DD(741.01,6,"DT")="2921013"
^DD(741.01,7,0)="*COMMENTS^FX^^0;7^K X"
^DD(741.01,7,3)="This field is no longer in use, use the word processing comment field."
^DD(741.01,7,21,0)="^^2^2^2920831^^^^"
^DD(741.01,7,21,1,0)="This is where the reviewer may enter a short comment about the occurrence"
^DD(741.01,7,21,2,0)="or the review of the occurrence."
^DD(741.01,7,23,0)="^^1^1^2920831^^"
^DD(741.01,7,23,1,0)="The data in this field has been moved to field #10 (word processing)."
^DD(741.01,7,"DT")="2920831"
^DD(741.01,8,0)="ELAPSED DAYS^NJ3,0I^^0;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.01,8,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(741.01,8,21,0)="^^2^2^2910911^^^"
^DD(741.01,8,21,1,0)="This is the elapsed days from the date of the occurrence to the date the"
^DD(741.01,8,21,2,0)="reviewer finished the review."
^DD(741.01,8,"DT")="2891206"
^DD(741.01,9,0)="FINAL PEER REVIEW PER SERVICE^SX^1:YES;0:NO;^0;9^D EN3^QAOSDDUT"
^DD(741.01,9,1,0)="^.1"
^DD(741.01,9,1,2,0)="741.01^AONLY1"
^DD(741.01,9,1,2,1)="S ^QA(741,DA(1),""REVR"",""AONLY1"",$E(X,1,30),DA)="""""
^DD(741.01,9,1,2,2)="K ^QA(741,DA(1),""REVR"",""AONLY1"",$E(X,1,30),DA)"
^DD(741.01,9,3)="Enter 'YES' if this is the final review of this occurrence, otherwise 'NO'"
^DD(741.01,9,21,0)="^^4^4^2930615^"
^DD(741.01,9,21,1,0)="This question should be answered Y(es) if the Peer review for this service"
^DD(741.01,9,21,2,0)="contains the final findings.  If this prompt is answered Y(es) the data"
^DD(741.01,9,21,3,0)="from this peer review will be used on the Summary of Occurrence Screen"
^DD(741.01,9,21,4,0)="(Semi-Annual) report."
^DD(741.01,9,"DT")="2930810"
^DD(741.01,10,0)="COMMENTS^741.02^^3;0"
^DD(741.01,10,21,0)="^^2^2^2920828^^^"
^DD(741.01,10,21,1,0)="This is where the reviewer may enter a comment about the occurrence"
^DD(741.01,10,21,2,0)="or the review of the occurrence."
^DD(741.01,"B","*COMMENTS",7)=""
^DD(741.01,"B","*SEVERITY OF OUTCOME",6)=""
^DD(741.01,"B","ACTION",5)=""
^DD(741.01,"B","COMMENTS",10)=""
^DD(741.01,"B","DATE REVIEW COMPLETED",1)=""
^DD(741.01,"B","ELAPSED DAYS",8)=""
^DD(741.01,"B","FINAL PEER REVIEW PER SERVICE",9)=""
^DD(741.01,"B","FINDINGS",4)=""
^DD(741.01,"B","NAME",.02)=""
^DD(741.01,"B","PRIMARY REASON CLIN REFERRAL",3)=""
^DD(741.01,"B","REASON FOR EXCEPTION",2)=""
^DD(741.01,"B","REVIEW LEVEL",.01)=""
^DD(741.01,"B","REVIEWER NAME",.02)="1"
^DD(741.01,"B","REVIEWING SERVICE",.03)=""
^DD(741.01,"GL",0,1,.01)=""
^DD(741.01,"GL",0,2,.02)=""
^DD(741.01,"GL",0,3,1)=""
^DD(741.01,"GL",0,4,3)=""
^DD(741.01,"GL",0,5,4)=""
^DD(741.01,"GL",0,6,6)=""
^DD(741.01,"GL",0,7,7)=""
^DD(741.01,"GL",0,8,8)=""
^DD(741.01,"GL",0,9,9)=""
^DD(741.01,"GL",0,10,.03)=""
^DD(741.01,"GL",1,0,2)=""
^DD(741.01,"GL",2,0,5)=""
^DD(741.01,"GL",3,0,10)=""
^DD(741.01,"IX",.01)=""
^DD(741.01,"IX",1)=""
^DD(741.01,"IX",9)=""
^DD(741.01,"RQ",.02)=""
^DD(741.01,"RQ",1)=""
^DD(741.01,"SB",741.02,10)=""
^DD(741.01,"SB",741.12,2)=""
^DD(741.01,"SB",741.15,5)=""
^DD(741.017,0)="COMMITTEE SUB-FIELD^^10^6"
^DD(741.017,0,"DT")="2920828"
^DD(741.017,0,"IX","B",741.017,.01)=""
^DD(741.017,0,"NM","COMMITTEE")=""
^DD(741.017,0,"UP")="741"
^DD(741.017,.01,0)="COMMITTEE^MP741.97'^QA(741.97,^0;1^Q"
^DD(741.017,.01,1,0)="^.1"
^DD(741.017,.01,1,1,0)="741.017^B"
^DD(741.017,.01,1,1,1)="S ^QA(741,DA(1),""CMTE"",""B"",$E(X,1,30),DA)="""""
^DD(741.017,.01,1,1,2)="K ^QA(741,DA(1),""CMTE"",""B"",$E(X,1,30),DA)"
^DD(741.017,.01,3)="Enter the committee conducting this review."
^DD(741.017,.01,21,0)="^^1^1^2891024^^^"
^DD(741.017,.01,21,1,0)="This is the name of the committee that is conducting this review."
^DD(741.017,.01,"DT")="2890719"
^DD(741.017,1,0)="*FINDINGS^*P741.6'O^QA(741.6,^0;2^S DIC(""S"")=""I $P(^(0),""""^"""",3)[""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741.017,1,.1)="FINDINGS"
^DD(741.017,1,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.017,1,2.1)="S:+Y(0) Y=$P(^QA(741.6,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.017,1,3)="Enter the findings of this committee review."
^DD(741.017,1,12)="Only equipment and system problem findings are selectable."
^DD(741.017,1,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)[""""C"""""""
^DD(741.017,1,21,0)="^^1^1^2910911^^^^"
^DD(741.017,1,21,1,0)="This is the findings of this committee review."
^DD(741.017,1,"DT")="2910509"
^DD(741.017,2,0)="*SEVERITY OF OUTCOME^P741.8'O^QA(741.8,^0;3^Q"
^DD(741.017,2,.1)="SEVERITY OF OUTCOME"
^DD(741.017,2,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.017,2,2.1)="S:+Y(0) Y=$P(^QA(741.8,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",2)"
^DD(741.017,2,3)="Enter the severity of outcome."
^DD(741.017,2,21,0)="^^1^1^2891024^"
^DD(741.017,2,21,1,0)="This is the severity of outcome as determined by this committee."
^DD(741.017,2,"DT")="2910509"
^DD(741.017,3,0)="*COMMENTS^FX^^0;4^K X"
^DD(741.017,3,3)="This field is no longer in use, use the word processing comment field."
^DD(741.017,3,21,0)="^^2^2^2920831^^^^"
^DD(741.017,3,21,1,0)="This field may be used to enter a comment on the occurrence"
^DD(741.017,3,21,2,0)="or the committee's review of the occurrence."
^DD(741.017,3,23,0)="^^1^1^2920831^"
^DD(741.017,3,23,1,0)="The data in this field has been moved to field #10 (word processing)."
^DD(741.017,3,"DT")="2920831"
^DD(741.017,4,0)="CONFIRMED ISSUE^S^1:EQUIPMENT PROBLEMS;2:SYSTEM PROBLEMS;3:EQUIPMENT & SYSTEM PROBLEMS;4:NONE;^0;5^Q"
^DD(741.017,4,3)="Enter the confirmed issue type."
^DD(741.017,4,21,0)="^^1^1^2910614^^"
^DD(741.017,4,21,1,0)="This is the confirmed issue type."
^DD(741.017,4,"DT")="2910614"
^DD(741.017,10,0)="COMMENTS^741.027^^1;0"
^DD(741.017,10,21,0)="^^2^2^2920828^"
^DD(741.017,10,21,1,0)="This is where the committee may enter a comment about the occurrence"
^DD(741.017,10,21,2,0)="or the review of the occurrence."
^DD(741.017,"B","*COMMENTS",3)=""
^DD(741.017,"B","*FINDINGS",1)=""
^DD(741.017,"B","*SEVERITY OF OUTCOME",2)=""
^DD(741.017,"B","COMMENTS",10)=""
^DD(741.017,"B","COMMITTEE",.01)=""
^DD(741.017,"B","CONFIRMED ISSUE",4)=""
^DD(741.017,"B","FINDINGS",1)="1"
^DD(741.017,"B","SEVERITY OF OUTCOME",2)="1"
^DD(741.017,"GL",0,1,.01)=""
^DD(741.017,"GL",0,2,1)=""
^DD(741.017,"GL",0,3,2)=""
^DD(741.017,"GL",0,4,3)=""
^DD(741.017,"GL",0,5,4)=""
^DD(741.017,"GL",1,0,10)=""
^DD(741.017,"IX",.01)=""
^DD(741.017,"SB",741.027,10)=""
^DD(741.02,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(741.02,0,"DT")="2920828"
^DD(741.02,0,"NM","COMMENTS")=""
^DD(741.02,0,"UP")="741.01"
^DD(741.02,.01,0)="COMMENTS^W^^0;1^Q"
^DD(741.02,.01,3)="Enter a comment on the occurrence."
^DD(741.02,.01,21,0)="^^2^2^2920828^"
^DD(741.02,.01,21,1,0)="This is where the reviewer may enter a comment about the occurrence"
^DD(741.02,.01,21,2,0)="or the review of the occurrence."
^DD(741.02,.01,"DT")="2920828"
^DD(741.02,"B","COMMENTS",.01)=""
^DD(741.02,"GL",0,1,.01)=""
^DD(741.024,0)="PEER ATTRIBUTION (INDIVIDUAL) SUB-FIELD^^.02^2"
^DD(741.024,0,"DT")="2930202"
^DD(741.024,0,"IX","B",741.024,.01)=""
^DD(741.024,0,"NM","PEER ATTRIBUTION (INDIVIDUAL)")=""
^DD(741.024,0,"UP")="741"
^DD(741.024,.01,0)="PEER ATTRIBUTION (INDIVIDUAL)^MP200'^VA(200,^0;1^Q"
^DD(741.024,.01,1,0)="^.1"
^DD(741.024,.01,1,1,0)="741.024^B"
^DD(741.024,.01,1,1,1)="S ^QA(741,DA(1),""ATRI"",""B"",$E(X,1,30),DA)="""""
^DD(741.024,.01,1,1,2)="K ^QA(741,DA(1),""ATRI"",""B"",$E(X,1,30),DA)"
^DD(741.024,.01,3)="Enter individual(s) involved with problem."
^DD(741.024,.01,21,0)="^^1^1^2891024^"
^DD(741.024,.01,21,1,0)="This is the individual(s) involved with this patient's care."
^DD(741.024,.01,"DT")="2890818"
^DD(741.024,.02,0)="SERVICE^P49'^DIC(49,^0;2^Q"
^DD(741.024,.02,3)="Enter a service for this individual."
^DD(741.024,.02,21,0)="^^1^1^2930203^"
^DD(741.024,.02,21,1,0)="This is the service assigning responsibility to the individual."
^DD(741.024,.02,"DT")="2930202"
^DD(741.024,"B","PEER ATTRIBUTION (INDIVIDUAL)",.01)=""
^DD(741.024,"B","SERVICE",.02)=""
^DD(741.024,"GL",0,1,.01)=""
^DD(741.024,"GL",0,2,.02)=""
^DD(741.024,"IX",.01)=""
^DD(741.025,0)="PEER ATTRIBUTION (MED TEAM) SUB-FIELD^^.02^2"
^DD(741.025,0,"DT")="2930203"
^DD(741.025,0,"IX","B",741.025,.01)=""
^DD(741.025,0,"NM","PEER ATTRIBUTION (MED TEAM)")=""
^DD(741.025,0,"UP")="741"
^DD(741.025,.01,0)="PEER ATTRIBUTION (MED TEAM)^MP741.93'^QA(741.93,^0;1^Q"
^DD(741.025,.01,1,0)="^.1"
^DD(741.025,.01,1,1,0)="741.025^B"
^DD(741.025,.01,1,1,1)="S ^QA(741,DA(1),""ATRT"",""B"",$E(X,1,30),DA)="""""
^DD(741.025,.01,1,1,2)="K ^QA(741,DA(1),""ATRT"",""B"",$E(X,1,30),DA)"
^DD(741.025,.01,3)="Enter Medical Team(s) involved with problem."
^DD(741.025,.01,21,0)="^^1^1^2910911^^"
^DD(741.025,.01,21,1,0)="This is the medical team that was involved in the patient's care."
^DD(741.025,.01,"DT")="2890705"
^DD(741.025,.02,0)="SERVICE^P49'^DIC(49,^0;2^Q"
^DD(741.025,.02,3)="Enter a service for this medical team."
^DD(741.025,.02,21,0)="^^1^1^2930203^"
^DD(741.025,.02,21,1,0)="This is the service assigning responsibility to the medical team."
^DD(741.025,.02,"DT")="2930203"
^DD(741.025,"B","PEER ATTRIBUTION (MED TEAM)",.01)=""
^DD(741.025,"B","SERVICE",.02)=""
^DD(741.025,"GL",0,1,.01)=""
^DD(741.025,"GL",0,2,.02)=""
^DD(741.025,"IX",.01)=""
^DD(741.026,0)="PEER ATTRIBUTION (HOSP LOC) SUB-FIELD^^.02^2"
^DD(741.026,0,"DT")="2930203"
^DD(741.026,0,"IX","B",741.026,.01)=""
^DD(741.026,0,"NM","PEER ATTRIBUTION (HOSP LOC)")=""
^DD(741.026,0,"UP")="741"
^DD(741.026,.01,0)="PEER ATTRIBUTION (HOSP LOC)^MP44'^SC(^0;1^Q"
^DD(741.026,.01,1,0)="^.1"
^DD(741.026,.01,1,1,0)="741.026^B"
^DD(741.026,.01,1,1,1)="S ^QA(741,DA(1),""ATRL"",""B"",$E(X,1,30),DA)="""""
^DD(741.026,.01,1,1,2)="K ^QA(741,DA(1),""ATRL"",""B"",$E(X,1,30),DA)"
^DD(741.026,.01,3)="Enter Hospital Location(s) involved with problem."
^DD(741.026,.01,21,0)="^^1^1^2900206^^^"
^DD(741.026,.01,21,1,0)="This is the hospital location involved with this patient's care."
^DD(741.026,.01,"DT")="2890705"
^DD(741.026,.02,0)="SERVICE^P49'^DIC(49,^0;2^Q"
^DD(741.026,.02,3)="Enter a service for this hospital location."
^DD(741.026,.02,21,0)="^^1^1^2930203^"
^DD(741.026,.02,21,1,0)="This is the service assigning responsibility to the hospital location."
^DD(741.026,.02,"DT")="2930203"
^DD(741.026,"B","PEER ATTRIBUTION (HOSP LOC)",.01)=""
^DD(741.026,"B","SERVICE",.02)=""
^DD(741.026,"GL",0,1,.01)=""
^DD(741.026,"GL",0,2,.02)=""
^DD(741.026,"IX",.01)=""
^DD(741.027,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(741.027,0,"DT")="2920828"
^DD(741.027,0,"NM","COMMENTS")=""
^DD(741.027,0,"UP")="741.017"
^DD(741.027,.01,0)="COMMENTS^W^^0;1^Q"
^DD(741.027,.01,3)="Enter a comment on the occurrence."
^DD(741.027,.01,21,0)="^^2^2^2920831^^^"
^DD(741.027,.01,21,1,0)="This is where the committee may enter a comment about the occurrence"
^DD(741.027,.01,21,2,0)="or the review of the occurrence."
^DD(741.027,.01,"DT")="2920828"
^DD(741.027,"B","COMMENTS",.01)=""
^DD(741.027,"GL",0,1,.01)=""
^DD(741.1,0)="FIELD^^200^5"
^DD(741.1,0,"DDA")="N"
^DD(741.1,0,"DT")="2920302"
^DD(741.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(741.1,0,"IX","AM",741.1,200)=""
^DD(741.1,0,"IX","B",741.1,.01)=""
^DD(741.1,0,"IX","BA",741.1,.01)=""
^DD(741.1,0,"IX","C",741.1,2)=""
^DD(741.1,0,"NM","QA OCCURRENCE SCREEN CRITERIA")=""
^DD(741.1,0,"PT",741,3)=""
^DD(741.1,0,"PT",741.4,2)=""
^DD(741.1,0,"PT",741.5,1)=""
^DD(741.1,0,"VR")="3.0"
^DD(741.1,.01,0)="CODE^RFX^^0;1^K:X[""""""""!($A(X)=45)!(X<(201-($D(QAQINST)#2*100))) X I $D(X) K:$L(X)>6!($L(X)<3)!((X'?3N)&(X'?3N1"".""1.2N))!(X'=+X) X S:$D(X) DINUM=X"
^DD(741.1,.01,1,0)="^.1"
^DD(741.1,.01,1,1,0)="741.1^B"
^DD(741.1,.01,1,1,1)="S ^QA(741.1,""B"",$E(X,1,30),DA)="""""
^DD(741.1,.01,1,1,2)="K ^QA(741.1,""B"",$E(X,1,30),DA)"
^DD(741.1,.01,1,2,0)="741.1^BA^MUMPS"
^DD(741.1,.01,1,2,1)="S ^QA(741.1,""BA"",X\1,DA)="""""
^DD(741.1,.01,1,2,2)="K ^QA(741.1,""BA"",X\1,DA)"
^DD(741.1,.01,3)="Answer with a number from 201 to 999.99."
^DD(741.1,.01,21,0)="^^3^3^2930708^"
^DD(741.1,.01,21,1,0)="VAMCs may enter their own screens (201 through 999.99), but may not change"
^DD(741.1,.01,21,2,0)="existing national screens (101.1,102,107,109). Screens may not have any"
^DD(741.1,.01,21,3,0)="trailing zeros or decimal points."
^DD(741.1,.01,"DT")="2930708"
^DD(741.1,1,0)="SCREEN^FX^^0;2^K:+$L(X)>90!($L(X)<1) X"
^DD(741.1,1,.1)="TEXT"
^DD(741.1,1,3)="Answer must be 1-90 characters in length."
^DD(741.1,1,21,0)="^^1^1^2891024^"
^DD(741.1,1,21,1,0)="This is the short description of the screen."
^DD(741.1,1,"DT")="2890829"
^DD(741.1,2,0)="EXPANDED SCREEN^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>120!($L(X)<1) X"
^DD(741.1,2,.1)="EXPANDED TEXT"
^DD(741.1,2,1,0)="^.1"
^DD(741.1,2,1,1,0)="741.1^C"
^DD(741.1,2,1,1,1)="S ^QA(741.1,""C"",$E(X,1,30),DA)="""""
^DD(741.1,2,1,1,2)="K ^QA(741.1,""C"",$E(X,1,30),DA)"
^DD(741.1,2,3)="Answer must be 1-120 characters in length."
^DD(741.1,2,21,0)="^^1^1^2891024^"
^DD(741.1,2,21,1,0)="This is the long description of the screen."
^DD(741.1,2,"DT")="2890829"
^DD(741.1,100,0)="SCREEN STATUS^*S^1:INACTIVE;N:NATIONAL;L:LOCAL;^0;4^Q"
^DD(741.1,100,3)="Enter the appropriate screen status."
^DD(741.1,100,12)="Nationally mandated screens may not be changed."
^DD(741.1,100,12.1)="S DIC(""S"")=""I $S($P(^QA(741.1,D0,0),""""^"""",4)=""""N"""":0,Y=""""N"""":0,1:1)"""
^DD(741.1,100,21,0)="^^4^4^2910430^^"
^DD(741.1,100,21,1,0)="This field controls the auto enroll of the various screens.  National"
^DD(741.1,100,21,2,0)="and local screens will be auto enrolled if possible.  This field is"
^DD(741.1,100,21,3,0)="also used by the semi-annual report, any combinations of screen statuses"
^DD(741.1,100,21,4,0)="may be included on the report."
^DD(741.1,100,"DT")="2910701"
^DD(741.1,200,0)="ASSOCIATED MONITOR^P743'^QA(743,^0;5^Q"
^DD(741.1,200,1,0)="^.1"
^DD(741.1,200,1,1,0)="741.1^AM"
^DD(741.1,200,1,1,1)="S ^QA(741.1,""AM"",$E(X,1,30),DA)="""""
^DD(741.1,200,1,1,2)="K ^QA(741.1,""AM"",$E(X,1,30),DA)"
^DD(741.1,200,1,1,"DT")="2920302"
^DD(741.1,200,3)="Enter the monitor that is associated with this screen."
^DD(741.1,200,21,0)="^^2^2^2920302^"
^DD(741.1,200,21,1,0)="This field is used to link the monitor and the screen for the purposes"
^DD(741.1,200,21,2,0)="of the auto enroll functions."
^DD(741.1,200,"DT")="2920302"
^DD(741.1,"B","ASSOCIATED MONITOR",200)=""
^DD(741.1,"B","CODE",.01)=""
^DD(741.1,"B","EXPANDED SCREEN",2)=""
^DD(741.1,"B","EXPANDED TEXT",2)="1"
^DD(741.1,"B","SCREEN",1)=""
^DD(741.1,"B","SCREEN STATUS",100)=""
^DD(741.1,"B","TEXT",1)="1"
^DD(741.1,"GL",0,1,.01)=""
^DD(741.1,"GL",0,2,1)=""
^DD(741.1,"GL",0,3,2)=""
^DD(741.1,"GL",0,4,100)=""
^DD(741.1,"GL",0,5,200)=""
^DD(741.1,"IX",.01)=""
^DD(741.1,"IX",2)=""
^DD(741.1,"IX",200)=""
^DD(741.1,"RQ",.01)=""
^DD(741.12,0)="REASON FOR EXCEPTION SUB-FIELD^^.01^1"
^DD(741.12,0,"DT")="2910501"
^DD(741.12,0,"IX","B",741.12,.01)=""
^DD(741.12,0,"NM","REASON FOR EXCEPTION")=""
^DD(741.12,0,"UP")="741.01"
^DD(741.12,.01,0)="REASON FOR EXCEPTION^M*P741.5'^QA(741.5,^0;1^S DIC(""S"")=""D EN5^QAOSDDUT"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741.12,.01,1,0)="^.1"
^DD(741.12,.01,1,1,0)="741.12^B"
^DD(741.12,.01,1,1,1)="S ^QA(741,DA(2),""REVR"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(741.12,.01,1,1,2)="K ^QA(741,DA(2),""REVR"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(741.12,.01,3)="Enter the screen exception(s) if any apply."
^DD(741.12,.01,12)="Each Occurrence Screen has its own exceptions"
^DD(741.12,.01,12.1)="S DIC(""S"")=""D EN5^QAOSDDUT"""
^DD(741.12,.01,21,0)="^^2^2^2900123^^"
^DD(741.12,.01,21,1,0)="This is where an occurrence may be marked as an exception to the screens."
^DD(741.12,.01,21,2,0)="Multiple exceptions may be entered."
^DD(741.12,.01,"DT")="2910501"
^DD(741.12,"B","REASON FOR EXCEPTION",.01)=""
^DD(741.12,"GL",0,1,.01)=""
^DD(741.12,"IX",.01)=""
^DD(741.15,0)="ACTION SUB-FIELD^^.01^1"
^DD(741.15,0,"DT")="2910501"
^DD(741.15,0,"IX","B",741.15,.01)=""
^DD(741.15,0,"NM","ACTION")=""
^DD(741.15,0,"UP")="741.01"
^DD(741.15,.01,0)="ACTION^M*P741.7'O^QA(741.7,^0;1^S DIC(""S"")=""D EN7^QAOSDDUT"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(741.15,.01,1,0)="^.1"
^DD(741.15,.01,1,1,0)="741.15^B"
^DD(741.15,.01,1,1,1)="S ^QA(741,DA(2),""REVR"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(741.15,.01,1,1,2)="K ^QA(741,DA(2),""REVR"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(741.15,.01,2)="S Y(0)=Y S:+Y(0) Y=$P(^QA(741.7,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",3)"
^DD(741.15,.01,2.1)="S:+Y(0) Y=$P(^QA(741.7,+Y(0),0),""^"")_""  ""_$P(^(0),""^"",3)"
^DD(741.15,.01,3)="Enter the recommended Action(s)."
^DD(741.15,.01,12)="Authorized Actions determined by Review Level"
^DD(741.15,.01,12.1)="S DIC(""S"")=""D EN7^QAOSDDUT"""
^DD(741.15,.01,21,0)="^^2^2^2891024^"
^DD(741.15,.01,21,1,0)="This is the action this reviewer has determined should be taken."
^DD(741.15,.01,21,2,0)="Multiple actions may be entered."
^DD(741.15,.01,"DT")="2910501"
^DD(741.15,"B","ACTION",.01)=""
^DD(741.15,"GL",0,1,.01)=""
^DD(741.15,"IX",.01)=""
^DD(741.2,0)="FIELD^^1^2"
^DD(741.2,0,"DDA")="N"
^DD(741.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(741.2,0,"IX","B",741.2,.01)=""
^DD(741.2,0,"IX","C",741.2,1)=""
^DD(741.2,0,"NM","QA OCCURRENCE REVIEW LEVEL")=""
^DD(741.2,0,"PT",741,16)=""
^DD(741.2,0,"PT",741.01,.01)=""
^DD(741.2,0,"VR")="3.0"
^DD(741.2,.01,0)="LEVEL^RFI^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(741.2,.01,1,0)="^.1"
^DD(741.2,.01,1,1,0)="741.2^B"
^DD(741.2,.01,1,1,1)="S ^QA(741.2,""B"",$E(X,1,30),DA)="""""
^DD(741.2,.01,1,1,2)="K ^QA(741.2,""B"",$E(X,1,30),DA)"
^DD(741.2,.01,3)="Answer must be 1-30 characters in length."
^DD(741.2,.01,21,0)="^^1^1^2930208^"
^DD(741.2,.01,21,1,0)="This field contains the the names of the different levels of review."
^DD(741.2,.01,"DT")="2890525"
^DD(741.2,1,0)="REVIEW LEVEL NUMBER^RNJ1,0I^^0;2^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(741.2,1,1,0)="^.1"
^DD(741.2,1,1,1,0)="741.2^C"
^DD(741.2,1,1,1,1)="S ^QA(741.2,""C"",$E(X,1,30),DA)="""""
^DD(741.2,1,1,1,2)="K ^QA(741.2,""C"",$E(X,1,30),DA)"
^DD(741.2,1,3)="Type a Number between 1 and 5, 0 Decimal Digits"
^DD(741.2,1,21,0)="^^2^2^2930208^"
^DD(741.2,1,21,1,0)="This field contains the number associated with the different levels of"
^DD(741.2,1,21,2,0)="review."
^DD(741.2,1,"DT")="2891013"
^DD(741.2,"B","LEVEL",.01)=""
^DD(741.2,"B","REVIEW LEVEL NUMBER",1)=""
^DD(741.2,"GL",0,1,.01)=""
^DD(741.2,"GL",0,2,1)=""
^DD(741.2,"IX",.01)=""
^DD(741.2,"IX",1)=""
^DD(741.2,"RQ",.01)=""
^DD(741.2,"RQ",1)=""
^DD(741.3,0)="FIELD^^.01^1"
^DD(741.3,0,"DDA")="N"
^DD(741.3,0,"IX","B",741.3,.01)=""
^DD(741.3,0,"NM","*QA OCCURRENCE CLINICAL REVIEWER")=""
^DD(741.3,0,"VR")="3.0"
^DD(741.3,.01,0)="*NAME^RP200'^VA(200,^0;1^Q"
^DD(741.3,.01,.1)="NAME"
^DD(741.3,.01,1,0)="^.1"
^DD(741.3,.01,1,1,0)="741.3^B"
^DD(741.3,.01,1,1,1)="S ^QA(741.3,""B"",$E(X,1,30),DA)="""""
^DD(741.3,.01,1,1,2)="K ^QA(741.3,""B"",$E(X,1,30),DA)"
^DD(741.3,.01,3)="Enter a clinical reviewer."
^DD(741.3,.01,21,0)="^^1^1^2891024^"
^DD(741.3,.01,21,1,0)="This is the name of a person who is permitted to do clinical reviews."
^DD(741.3,.01,"DT")="2921022"
^DD(741.3,"B","*NAME",.01)=""
^DD(741.3,"B","NAME",.01)="1"
^DD(741.3,"GL",0,1,.01)=""
^DD(741.3,"IX",.01)=""
^DD(741.3,"RQ",.01)=""
^DD(741.4,0)="FIELD^^3^4"
^DD(741.4,0,"DDA")="N"
^DD(741.4,0,"ID",2)="S %I=Y,Y=$S('$D(^(1)):"""",$D(^QA(741.1,+$P(^(1),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(741.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(741.4,0,"ID",3)="W:$D(^(2)) ""   "",$P(^(2),U,1)"
^DD(741.4,0,"IX","AC",741.4,2)=""
^DD(741.4,0,"IX","AC1",741.4,.01)=""
^DD(741.4,0,"IX","B",741.4,.01)=""
^DD(741.4,0,"IX","C",741.4,3)=""
^DD(741.4,0,"NM","QA OCCURRENCE CLINICAL REFERRAL")=""
^DD(741.4,0,"PT",741.01,3)=""
^DD(741.4,0,"VR")="3.0"
^DD(741.4,.01,0)="REASON (SCREEN CODE)^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1)!(X'?1.2N.1U) X"
^DD(741.4,.01,1,0)="^.1"
^DD(741.4,.01,1,1,0)="741.4^B"
^DD(741.4,.01,1,1,1)="S ^QA(741.4,""B"",$E(X,1,30),DA)="""""
^DD(741.4,.01,1,1,2)="K ^QA(741.4,""B"",$E(X,1,30),DA)"
^DD(741.4,.01,1,2,0)="741.4^AC1^MUMPS"
^DD(741.4,.01,1,2,1)="S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),""^"",2),1:"""") S:QA]"""" ^QA(741.4,""AC"",QA,+X+($A(X,$L(X))/100),DA)="""" K QA"
^DD(741.4,.01,1,2,2)="S QA=$S($D(^QA(741.4,DA,1))#2:$P(^(1),""^"",2),1:"""") K:QA]"""" ^QA(741.4,""AC"",QA,+X+($A(X,$L(X))/100),DA) K QA"
^DD(741.4,.01,3)="Answer must be 1-3 characters in length."
^DD(741.4,.01,21,0)="^^3^3^2900112^^^"
^DD(741.4,.01,21,1,0)="This is a short code used to identify the reason for clinical referral."
^DD(741.4,.01,21,2,0)="It must be one to two digits and it may be followed by one upper case"
^DD(741.4,.01,21,3,0)="letter, e.g., 4, 12, 1B, 23X, etc."
^DD(741.4,.01,"DT")="2900202"
^DD(741.4,1,0)="REASON - EXPANDED^F^^1;1^K:$L(X)>225!($L(X)<1) X"
^DD(741.4,1,3)="Answer must be 1-225 characters in length."
^DD(741.4,1,21,0)="^^1^1^2900112^"
^DD(741.4,1,21,1,0)="This is the long version of the reason for clinical referral."
^DD(741.4,1,"DT")="2900202"
^DD(741.4,2,0)="SCREEN^P741.1'^QA(741.1,^1;2^Q"
^DD(741.4,2,1,0)="^.1"
^DD(741.4,2,1,1,0)="741.4^AC^MUMPS"
^DD(741.4,2,1,1,1)="S QA=$P(^QA(741.4,DA,0),""^""),^QA(741.4,""AC"",X,+QA+($A(QA,$L(QA))/100),DA)="""" K QA"
^DD(741.4,2,1,1,2)="S QA=$P(^QA(741.4,DA,0),""^"") K ^QA(741.4,""AC"",X,+QA+($A(QA,$L(QA))/100),DA),QA"
^DD(741.4,2,21,0)="^^2^2^2900112^"
^DD(741.4,2,21,1,0)="This is the screen that this reason for clinical referral is"
^DD(741.4,2,21,2,0)="associated with."
^DD(741.4,2,"DT")="2900202"
^DD(741.4,3,0)="REASON - SHORT^F^^2;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>111!($L(X)<1) X"
^DD(741.4,3,1,0)="^.1"
^DD(741.4,3,1,1,0)="741.4^C"
^DD(741.4,3,1,1,1)="S ^QA(741.4,""C"",$E(X,1,30),DA)="""""
^DD(741.4,3,1,1,2)="K ^QA(741.4,""C"",$E(X,1,30),DA)"
^DD(741.4,3,3)="Answer must be 1-111 characters in length."
^DD(741.4,3,21,0)="^^1^1^2900112^"
^DD(741.4,3,21,1,0)="This is the shortened version of the reason for clinical referral."
^DD(741.4,3,"DT")="2900202"
^DD(741.4,"B","REASON (SCREEN CODE)",.01)=""
^DD(741.4,"B","REASON - EXPANDED",1)=""
^DD(741.4,"B","REASON - SHORT",3)=""
^DD(741.4,"B","SCREEN",2)=""
^DD(741.4,"GL",0,1,.01)=""
^DD(741.4,"GL",1,1,1)=""
^DD(741.4,"GL",1,2,2)=""
^DD(741.4,"GL",2,1,3)=""
^DD(741.4,"IX",.01)=""
^DD(741.4,"IX",2)=""
^DD(741.4,"IX",3)=""
^DD(741.4,"RQ",.01)=""
^DD(741.5,0)="FIELD^^100^4"
^DD(741.5,0,"DDA")="N"
^DD(741.5,0,"DT")="2910524"
^DD(741.5,0,"ID",.02)="W ""   "",$P(^(0),U,3)"
^DD(741.5,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^QA(741.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(741.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(741.5,0,"IX","B",741.5,.01)=""
^DD(741.5,0,"IX","C",741.5,1)=""
^DD(741.5,0,"IX","D",741.5,.02)=""
^DD(741.5,0,"NM","QA OCCURRENCE EXCEPTION")=""
^DD(741.5,0,"PT",741.12,.01)=""
^DD(741.5,0,"VR")="3.0"
^DD(741.5,.01,0)="REASON^RF^^0;1^K:$L(X)>100!($L(X)<3) X"
^DD(741.5,.01,1,0)="^.1"
^DD(741.5,.01,1,1,0)="741.5^B"
^DD(741.5,.01,1,1,1)="S ^QA(741.5,""B"",$E(X,1,30),DA)="""""
^DD(741.5,.01,1,1,2)="K ^QA(741.5,""B"",$E(X,1,30),DA)"
^DD(741.5,.01,3)="Answer must be 3-100 characters in length."
^DD(741.5,.01,21,0)="^^1^1^2891024^"
^DD(741.5,.01,21,1,0)="This is the text of the reason for exception to the screen."
^DD(741.5,.01,"DT")="2890717"
^DD(741.5,.02,0)="CODE^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(741.5,.02,1,0)="^.1"
^DD(741.5,.02,1,1,0)="741.5^D"
^DD(741.5,.02,1,1,1)="S ^QA(741.5,""D"",$E(X,1,30),DA)="""""
^DD(741.5,.02,1,1,2)="K ^QA(741.5,""D"",$E(X,1,30),DA)"
^DD(741.5,.02,3)="Answer must be 1-3 characters in length."
^DD(741.5,.02,21,0)="^^1^1^2891024^"
^DD(741.5,.02,21,1,0)="This is a short mnemonic code for this exception."
^DD(741.5,.02,"DT")="2900726"
^DD(741.5,1,0)="SCREEN^P741.1'^QA(741.1,^0;2^Q"
^DD(741.5,1,1,0)="^.1"
^DD(741.5,1,1,1,0)="741.5^C"
^DD(741.5,1,1,1,1)="S ^QA(741.5,""C"",$E(X,1,30),DA)="""""
^DD(741.5,1,1,1,2)="K ^QA(741.5,""C"",$E(X,1,30),DA)"
^DD(741.5,1,3)="Enter the associated screen."
^DD(741.5,1,21,0)="^^1^1^2891024^"
^DD(741.5,1,21,1,0)="This is the screen this exception is associated with."
^DD(741.5,1,"DT")="2890717"
^DD(741.5,100,0)="EXCEPTION STATUS^S^1:INACTIVE;0:ACTIVE;^0;4^Q"
^DD(741.5,100,3)="Enter 1 if this exception should no longer be used."
^DD(741.5,100,21,0)="^^1^1^2910524^"
^DD(741.5,100,21,1,0)="If this field is set to inactive the exception is no longer selectable."
^DD(741.5,100,"DT")="2910524"
^DD(741.5,"B","CODE",.02)=""
^DD(741.5,"B","EXCEPTION STATUS",100)=""
^DD(741.5,"B","REASON",.01)=""
^DD(741.5,"B","SCREEN",1)=""
^DD(741.5,"GL",0,1,.01)=""
^DD(741.5,"GL",0,2,1)=""
^DD(741.5,"GL",0,3,.02)=""
^DD(741.5,"GL",0,4,100)=""
^DD(741.5,"IX",.01)=""
^DD(741.5,"IX",.02)=""
^DD(741.5,"IX",1)=""
^DD(741.5,"RQ",.01)=""
^DD(741.5,"RQ",.02)=""
^DD(741.6,0)="FIELD^^2^3"
^DD(741.6,0,"DDA")="N"
^DD(741.6,0,"DT")="2910613"
^DD(741.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(741.6,0,"IX","B",741.6,.01)=""
^DD(741.6,0,"IX","C",741.6,1)=""
^DD(741.6,0,"NM","QA OCCURRENCE FINDINGS")=""
^DD(741.6,0,"PT",741,20)=""
^DD(741.6,0,"PT",741.01,4)=""
^DD(741.6,0,"PT",741.017,1)=""
^DD(741.6,0,"VR")="3.0"
^DD(741.6,.01,0)="CODE^RNJ2,0^^0;1^K:+X'=X!(X>16)!(X<1)!(X?.E1"".""1N.N) X"
^DD(741.6,.01,1,0)="^.1"
^DD(741.6,.01,1,1,0)="741.6^B"
^DD(741.6,.01,1,1,1)="S ^QA(741.6,""B"",$E(X,1,30),DA)="""""
^DD(741.6,.01,1,1,2)="K ^QA(741.6,""B"",$E(X,1,30),DA)"
^DD(741.6,.01,3)="Type a Number between 1 and 16, 0 Decimal Digits"
^DD(741.6,.01,21,0)="^^1^1^2930615^"
^DD(741.6,.01,21,1,0)="This field contains the code number associated with this finding."
^DD(741.6,.01,"DT")="2900502"
^DD(741.6,1,0)="FINDINGS^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<1) X"
^DD(741.6,1,.1)=""
^DD(741.6,1,1,0)="^.1"
^DD(741.6,1,1,1,0)="741.6^C"
^DD(741.6,1,1,1,1)="S ^QA(741.6,""C"",$E(X,1,30),DA)="""""
^DD(741.6,1,1,1,2)="K ^QA(741.6,""C"",$E(X,1,30),DA)"
^DD(741.6,1,3)="Answer must be 1-200 characters in length."
^DD(741.6,1,21,0)="^^1^1^2930208^"
^DD(741.6,1,21,1,0)="This field contains the text of the finding."
^DD(741.6,1,"DT")="2910715"
^DD(741.6,2,0)="TYPE^RFX^^0;3^K:$L(X)>4!($L(X)<1) X D:$D(X)#2 EN1^QAOSDDUT(""12CV"")"
^DD(741.6,2,3)="Enter 1 for Clinical Reviewer, 2 for Peer Reviewer, C For Committee Reviewer, V for Confirmation/Validation, or a combination of these codes."
^DD(741.6,2,21,0)="^^4^4^2930208^"
^DD(741.6,2,21,1,0)="This field defines which review levels may choose which findings.  Valid"
^DD(741.6,2,21,2,0)="entries for this field are: 1 (Clinical review), 2 (Peer review), C"
^DD(741.6,2,21,3,0)="(Committee review), V (Confirmation/Validation review).  This field may"
^DD(741.6,2,21,4,0)="contain any non-repeating combination of these codes."
^DD(741.6,2,"DT")="2921020"
^DD(741.6,"B","CODE",.01)=""
^DD(741.6,"B","FINDINGS",1)=""
^DD(741.6,"B","TYPE",2)=""
^DD(741.6,"GL",0,1,.01)=""
^DD(741.6,"GL",0,2,1)=""
^DD(741.6,"GL",0,3,2)=""
^DD(741.6,"IX",.01)=""
^DD(741.6,"IX",1)=""
^DD(741.6,"RQ",.01)=""
^DD(741.6,"RQ",1)=""
^DD(741.6,"RQ",2)=""
^DD(741.7,0)="FIELD^^2^3"
^DD(741.7,0,"DDA")="N"
^DD(741.7,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(741.7,0,"IX","B",741.7,.01)=""
^DD(741.7,0,"IX","C",741.7,2)=""
^DD(741.7,0,"NM","QA OCCURRENCE ACTION")=""
^DD(741.7,0,"PT",741.15,.01)=""
^DD(741.7,0,"VR")="3.0"
^DD(741.7,.01,0)="CODE^RNJ4,1I^^0;1^K:+X'=X!(X>22)!(X<1)!(X?.E1"".""2N.N) X"
^DD(741.7,.01,1,0)="^.1"
^DD(741.7,.01,1,1,0)="741.7^B"
^DD(741.7,.01,1,1,1)="S ^QA(741.7,""B"",$E(X,1,30),DA)="""""
^DD(741.7,.01,1,1,2)="K ^QA(741.7,""B"",$E(X,1,30),DA)"
^DD(741.7,.01,3)="Type a Number between 1 and 22, 1 Decimal Digit"
^DD(741.7,.01,21,0)="^^1^1^2930208^"
^DD(741.7,.01,21,1,0)="This field contains the code number associated with the action."
^DD(741.7,.01,"DT")="2910502"
^DD(741.7,1,0)="TYPE^FX^^0;2^K:$L(X)>3!($L(X)<1) X D:$D(X)#2 EN1^QAOSDDUT(""123"")"
^DD(741.7,1,3)="Enter 1 for Clinical Reviewer, 2 for Peer Reviewer, 3 for Management Reviewer, or a combination of these codes."
^DD(741.7,1,21,0)="^^4^4^2930208^"
^DD(741.7,1,21,1,0)="This field defines which review levels may choose which actions.  Valid"
^DD(741.7,1,21,2,0)="entries for this field are: 1 (Clinical review), 2 (Peer review), 3"
^DD(741.7,1,21,3,0)="(Management review).  This field may contain any non-repeating combination"
^DD(741.7,1,21,4,0)="of these codes."
^DD(741.7,1,"DT")="2921020"
^DD(741.7,2,0)="ACTION^RFI^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X"
^DD(741.7,2,1,0)="^.1"
^DD(741.7,2,1,1,0)="741.7^C"
^DD(741.7,2,1,1,1)="S ^QA(741.7,""C"",$E(X,1,30),DA)="""""
^DD(741.7,2,1,1,2)="K ^QA(741.7,""C"",$E(X,1,30),DA)"
^DD(741.7,2,3)="Answer must be 1-100 characters in length."
^DD(741.7,2,21,0)="^^1^1^2930208^"
^DD(741.7,2,21,1,0)="This field contains the text of the action."
^DD(741.7,2,"DT")="2890616"
^DD(741.7,"B","ACTION",2)=""
^DD(741.7,"B","CODE",.01)=""
^DD(741.7,"B","TYPE",1)=""
^DD(741.7,"GL",0,1,.01)=""
^DD(741.7,"GL",0,2,1)=""
^DD(741.7,"GL",0,3,2)=""
^DD(741.7,"IX",.01)=""
^DD(741.7,"IX",2)=""
^DD(741.7,"RQ",.01)=""
^DD(741.7,"RQ",2)=""
^DD(741.8,0)="FIELD^^1^2"
^DD(741.8,0,"DDA")="N"
^DD(741.8,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(741.8,0,"IX","B",741.8,.01)=""
^DD(741.8,0,"IX","C",741.8,1)=""
^DD(741.8,0,"NM","QA OCCURRENCE SEVERITY OF OUTCOME")=""
^DD(741.8,0,"PT",741,19)=""
^DD(741.8,0,"PT",741.01,6)=""
^DD(741.8,0,"PT",741.017,2)=""
^DD(741.8,0,"VR")="3.0"
^DD(741.8,.01,0)="SEVERITY LEVEL^RNJ2,0I^^0;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.8,.01,1,0)="^.1"
^DD(741.8,.01,1,1,0)="741.8^B"
^DD(741.8,.01,1,1,1)="S ^QA(741.8,""B"",$E(X,1,30),DA)="""""
^DD(741.8,.01,1,1,2)="K ^QA(741.8,""B"",$E(X,1,30),DA)"
^DD(741.8,.01,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(741.8,.01,21,0)="^^1^1^2930208^"
^DD(741.8,.01,21,1,0)="This field contains the severity level number."
^DD(741.8,1,0)="SEVERITY^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(741.8,1,1,0)="^.1"
^DD(741.8,1,1,1,0)="741.8^C"
^DD(741.8,1,1,1,1)="S ^QA(741.8,""C"",$E(X,1,30),DA)="""""
^DD(741.8,1,1,1,2)="K ^QA(741.8,""C"",$E(X,1,30),DA)"
^DD(741.8,1,3)="Answer must be 1-50 characters in length."
^DD(741.8,1,21,0)="^^1^1^2930208^"
^DD(741.8,1,21,1,0)="This field contains the severity level text."
^DD(741.8,1,"DT")="2890531"
^DD(741.8,"B","SEVERITY",1)=""
^DD(741.8,"B","SEVERITY LEVEL",.01)=""
^DD(741.8,"GL",0,1,.01)=""
^DD(741.8,"GL",0,2,1)=""
^DD(741.8,"IX",.01)=""
^DD(741.8,"IX",1)=""
^DD(741.8,"RQ",.01)=""
^DD(741.8,"RQ",1)=""
^DD(741.9,0)="FIELD^^1^2"
^DD(741.9,0,"DDA")="N"
^DD(741.9,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(741.9,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(741.9,0,"IX","B",741.9,.01)=""
^DD(741.9,0,"NM","QA OCCURRENCE TREATING SPECIALTY")=""
^DD(741.9,0,"VR")="3.0"
^DD(741.9,.01,0)="TREATING SPECIALTY^RP45.7'^DIC(45.7,^0;1^Q"
^DD(741.9,.01,1,0)="^.1"
^DD(741.9,.01,1,1,0)="741.9^B"
^DD(741.9,.01,1,1,1)="S ^QA(741.9,""B"",$E(X,1,30),DA)="""""
^DD(741.9,.01,1,1,2)="K ^QA(741.9,""B"",$E(X,1,30),DA)"
^DD(741.9,.01,3)="Enter a treating speciality whose care type is to be defined."
^DD(741.9,.01,21,0)="^^3^3^2891024^"
^DD(741.9,.01,21,1,0)="This is a treating specialty used by your site which you want to"
^DD(741.9,.01,21,2,0)="associate with a particular type of care.  All treating specialties in"
^DD(741.9,.01,21,3,0)="use at your facility that you wish to screen should be entered here."
^DD(741.9,.01,"DT")="2891016"
^DD(741.9,1,0)="TYPE OF CARE^RS^A:ACUTE CARE;S:SPECIAL CARE;I:INTERMEDIATE CARE;N:NHCU;P:PSYCHIATRY;^0;2^Q"
^DD(741.9,1,3)="Enter type of care for this treating specialty."
^DD(741.9,1,21,0)="^^2^2^2891024^"
^DD(741.9,1,21,1,0)="This describes the type of care for each treating specialty.  Each"
^DD(741.9,1,21,2,0)="treating specialty should be associated with only one type of care."
^DD(741.9,1,"DT")="2891020"
^DD(741.9,"B","TREATING SPECIALTY",.01)=""
^DD(741.9,"B","TYPE OF CARE",1)=""
^DD(741.9,"GL",0,1,.01)=""
^DD(741.9,"GL",0,2,1)=""
^DD(741.9,"IX",.01)=""
^DD(741.9,"RQ",.01)=""
^DD(741.9,"RQ",1)=""
^DD(741.93,0)="FIELD^^.01^1"
^DD(741.93,0,"DDA")="N"
^DD(741.93,0,"IX","B",741.93,.01)=""
^DD(741.93,0,"NM","QA OCCURRENCE MEDICAL TEAM")=""
^DD(741.93,0,"PT",741,7)=""
^DD(741.93,0,"PT",741.025,.01)=""
^DD(741.93,0,"VR")="3.0"
^DD(741.93,.01,0)="DESIGNATION^RF^^0;1^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(741.93,.01,1,0)="^.1"
^DD(741.93,.01,1,1,0)="741.93^B"
^DD(741.93,.01,1,1,1)="S ^QA(741.93,""B"",$E(X,1,40),DA)="""""
^DD(741.93,.01,1,1,2)="K ^QA(741.93,""B"",$E(X,1,40),DA)"
^DD(741.93,.01,3)="Answer must be 1-40 characters in length."
^DD(741.93,.01,21,0)="^^2^2^2891024^"
^DD(741.93,.01,21,1,0)="This is the name of a medical team to be used in the occurrence screen"
^DD(741.93,.01,21,2,0)="package."
^DD(741.93,"B","DESIGNATION",.01)=""
^DD(741.93,"GL",0,1,.01)=""
^DD(741.93,"IX",.01)=""
^DD(741.93,"RQ",.01)=""
^DD(741.95,0)="FIELD^^9^11"
^DD(741.95,0,"DDA")="N"
^DD(741.95,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(741.95,0,"IX","AA1",741.95,.01)=""
^DD(741.95,0,"IX","AA2",741.95,.02)=""
^DD(741.95,0,"IX","B",741.95,.01)=""
^DD(741.95,0,"NM","*QA OCCURRENCE NUMBER CASES SCREENED")=""
^DD(741.95,0,"VR")="3.0"
^DD(741.95,.01,0)="*BEGINNING DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(741.95,.01,.1)="BEGINNING DATE"
^DD(741.95,.01,1,0)="^.1"
^DD(741.95,.01,1,1,0)="741.95^B"
^DD(741.95,.01,1,1,1)="S ^QA(741.95,""B"",$E(X,1,30),DA)="""""
^DD(741.95,.01,1,1,2)="K ^QA(741.95,""B"",$E(X,1,30),DA)"
^DD(741.95,.01,1,2,0)="741.95^AA1^MUMPS"
^DD(741.95,.01,1,2,1)="S QA(2)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),""^"",2),1:"""") S:QA(2)]"""" ^QA(741.95,""AA"",X,QA(2),DA)="""" K QA"
^DD(741.95,.01,1,2,2)="S QA(2)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),""^"",2),1:"""") K:QA(2)]"""" ^QA(741.95,""AA"",X,QA(2),DA) K QA"
^DD(741.95,.01,3)="Enter the beginning date of the reporting period."
^DD(741.95,.01,21,0)="^^1^1^2891024^"
^DD(741.95,.01,21,1,0)="This is the beginning date for this range of totals."
^DD(741.95,.01,"DT")="2910509"
^DD(741.95,.02,0)="*ENDING DATE^RDX^^0;2^S %DT=""EX"",%DT(0)=+^QA(741.95,DA,0) D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(741.95,.02,.1)="ENDING DATE"
^DD(741.95,.02,1,0)="^.1"
^DD(741.95,.02,1,1,0)="741.95^AA2^MUMPS"
^DD(741.95,.02,1,1,1)="S QA(1)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),""^"",1),1:"""") S:QA(1)]"""" ^QA(741.95,""AA"",QA(1),X,DA)="""" K QA"
^DD(741.95,.02,1,1,2)="S QA(1)=$S($D(^QA(741.95,DA,0))#2:$P(^(0),""^"",1),1:"""") K:QA(1)]"""" ^QA(741.95,""AA"",QA(1),X,DA) K QA"
^DD(741.95,.02,3)="Enter the ending date of the reporting period."
^DD(741.95,.02,21,0)="^^1^1^2891024^"
^DD(741.95,.02,21,1,0)="This is the ending date for this range of totals."
^DD(741.95,.02,"DT")="2910509"
^DD(741.95,1,0)="*ADMISSIONS TO ACUTE CARE^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,1,.1)="ADMISSIONS TO ACUTE CARE"
^DD(741.95,1,3)="Type a Number between 0 and 999999"
^DD(741.95,1,21,0)="^^2^2^2891016^"
^DD(741.95,1,21,1,0)="Number of admissions to acute care during reporting period."
^DD(741.95,1,21,2,0)="(Used by screens 101, 108, and 109.)"
^DD(741.95,1,"DT")="2910509"
^DD(741.95,2,0)="*AMBULATORY CARE VISITS^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,2,.1)="AMBULATORY CARE VISITS"
^DD(741.95,2,3)="Type a Number between 0 and 999999"
^DD(741.95,2,21,0)="^^2^2^2891016^"
^DD(741.95,2,21,1,0)="Number of ambulatory care visits during reporting period."
^DD(741.95,2,21,2,0)="(Used by screen 102.)"
^DD(741.95,2,"DT")="2910509"
^DD(741.95,3,0)="*AMBULATORY SURGERY PROCEDURES^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,3,.1)="AMBULATORY SURGERY PROCEDURES"
^DD(741.95,3,3)="Type a Number between 0 and 999999"
^DD(741.95,3,21,0)="^^2^2^2891016^"
^DD(741.95,3,21,1,0)="Number of ambulatory surgery procedures during reporting period."
^DD(741.95,3,21,2,0)="(Used by screen 103.)"
^DD(741.95,3,"DT")="2910509"
^DD(741.95,4,0)="*DISCHARGES FROM ACUTE TO NHCU^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,4,.1)="DISCHARGES FROM ACUTE TO NHCU"
^DD(741.95,4,3)="Type a Number between 0 and 999999"
^DD(741.95,4,21,0)="^^2^2^2891016^"
^DD(741.95,4,21,1,0)="Number of discharges from acute care to NHCU during reporting period."
^DD(741.95,4,21,2,0)="(Used by screen 104.1.)"
^DD(741.95,4,"DT")="2910509"
^DD(741.95,5,0)="*PATs TREATED IN NHCU^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,5,.1)="PATs TREATED IN NHCU"
^DD(741.95,5,3)="Type a Number between 0 and 999999"
^DD(741.95,5,21,0)="^^2^2^2891016^"
^DD(741.95,5,21,1,0)="Number of patients treated in NHCU during reporting period."
^DD(741.95,5,21,2,0)="(Used by screen 104.2.)"
^DD(741.95,5,"DT")="2910509"
^DD(741.95,6,0)="*TRFs FROM ACUTE TO INTERM MED^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,6,.1)="TRFs FROM ACUTE TO INTERM MED"
^DD(741.95,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(741.95,6,21,0)="^^3^3^2910911^^"
^DD(741.95,6,21,1,0)="Number of transfers from acute care to intermediate medicine during"
^DD(741.95,6,21,2,0)="reporting period."
^DD(741.95,6,21,3,0)="(Used by screen 105.1.)"
^DD(741.95,6,"DT")="2910509"
^DD(741.95,7,0)="*PATs TREATED IN INTERM MED^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,7,.1)="PATs TREATED IN INTERM MED"
^DD(741.95,7,3)="Type a Number between 0 and 999999"
^DD(741.95,7,21,0)="^^3^3^2891016^"
^DD(741.95,7,21,1,0)="Number of patients treated in intermediate medicine during reporting"
^DD(741.95,7,21,2,0)="period."
^DD(741.95,7,21,3,0)="(Used by screen 105.2.)"
^DD(741.95,7,"DT")="2910509"
^DD(741.95,8,0)="*TRFs FROM SPECIAL CARE UNITS^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,8,.1)="TRFs FROM SPECIAL CARE UNITS"
^DD(741.95,8,3)="Type a Number between 0 and 999999"
^DD(741.95,8,21,0)="^^2^2^2891016^"
^DD(741.95,8,21,1,0)="Number of transfers from special care units during reporting period."
^DD(741.95,8,21,2,0)="(Used by screen 106.1.)"
^DD(741.95,8,"DT")="2910509"
^DD(741.95,9,0)="*PATs TREATED IN SURG SERVICE^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.95,9,.1)="PATs TREATED IN SURG SERVICE"
^DD(741.95,9,3)="Type a Number between 0 and 999999"
^DD(741.95,9,21,0)="^^2^2^2891016^"
^DD(741.95,9,21,1,0)="Number of patients treated in surgical service during reporting period."
^DD(741.95,9,21,2,0)="(Used by screens 106.2 and 107.)"
^DD(741.95,9,"DT")="2910509"
^DD(741.95,"B","*ADMISSIONS TO ACUTE CARE",1)=""
^DD(741.95,"B","*AMBULATORY CARE VISITS",2)=""
^DD(741.95,"B","*AMBULATORY SURGERY PROCEDURES",3)=""
^DD(741.95,"B","*BEGINNING DATE",.01)=""
^DD(741.95,"B","*DISCHARGES FROM ACUTE TO NHCU",4)=""
^DD(741.95,"B","*ENDING DATE",.02)=""
^DD(741.95,"B","*PATs TREATED IN INTERM MED",7)=""
^DD(741.95,"B","*PATs TREATED IN NHCU",5)=""
^DD(741.95,"B","*PATs TREATED IN SURG SERVICE",9)=""
^DD(741.95,"B","*TRFs FROM ACUTE TO INTERM MED",6)=""
^DD(741.95,"B","*TRFs FROM SPECIAL CARE UNITS",8)=""
^DD(741.95,"B","ADMISSIONS TO ACUTE CARE",1)="1"
^DD(741.95,"B","AMBULATORY CARE VISITS",2)="1"
^DD(741.95,"B","AMBULATORY SURGERY PROCEDURES",3)="1"
^DD(741.95,"B","BEGINNING DATE",.01)="1"
^DD(741.95,"B","DISCHARGES FROM ACUTE TO NHCU",4)="1"
^DD(741.95,"B","ENDING DATE",.02)="1"
^DD(741.95,"B","PATs TREATED IN INTERM MED",7)="1"
^DD(741.95,"B","PATs TREATED IN NHCU",5)="1"
^DD(741.95,"B","PATs TREATED IN SURG SERVICE",9)="1"
^DD(741.95,"B","TRFs FROM ACUTE TO INTERM MED",6)="1"
^DD(741.95,"B","TRFs FROM SPECIAL CARE UNITS",8)="1"
^DD(741.95,"GL",0,1,.01)=""
^DD(741.95,"GL",0,2,.02)=""
^DD(741.95,"GL",0,3,1)=""
^DD(741.95,"GL",0,4,2)=""
^DD(741.95,"GL",0,5,3)=""
^DD(741.95,"GL",0,6,4)=""
^DD(741.95,"GL",0,7,5)=""
^DD(741.95,"GL",0,8,6)=""
^DD(741.95,"GL",0,9,7)=""
^DD(741.95,"GL",0,10,8)=""
^DD(741.95,"GL",0,11,9)=""
^DD(741.95,"IX",.01)=""
^DD(741.95,"IX",.02)=""
^DD(741.95,"RQ",.01)=""
^DD(741.95,"RQ",.02)=""
^DD(741.97,0)="FIELD^^1^2"
^DD(741.97,0,"DDA")="N"
^DD(741.97,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(741.97,0,"IX","B",741.97,.01)=""
^DD(741.97,0,"IX","C",741.97,1)=""
^DD(741.97,0,"NM","QA OCCURRENCE COMMITTEE")=""
^DD(741.97,0,"PT",741.017,.01)=""
^DD(741.97,0,"VR")="3.0"
^DD(741.97,.01,0)="COMMITTEE^RF^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(741.97,.01,1,0)="^.1"
^DD(741.97,.01,1,1,0)="741.97^B"
^DD(741.97,.01,1,1,1)="S ^QA(741.97,""B"",$E(X,1,50),DA)="""""
^DD(741.97,.01,1,1,2)="K ^QA(741.97,""B"",$E(X,1,50),DA)"
^DD(741.97,.01,3)="Answer must be 3-50 characters in length."
^DD(741.97,.01,21,0)="^^1^1^2891024^"
^DD(741.97,.01,21,1,0)="This is the name of a committee that can conduct occurrence screen reviews."
^DD(741.97,.01,"DT")="2890815"
^DD(741.97,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(741.97,1,1,0)="^.1"
^DD(741.97,1,1,1,0)="741.97^C"
^DD(741.97,1,1,1,1)="S ^QA(741.97,""C"",$E(X,1,30),DA)="""""
^DD(741.97,1,1,1,2)="K ^QA(741.97,""C"",$E(X,1,30),DA)"
^DD(741.97,1,3)="Answer must be 1-10 characters in length."
^DD(741.97,1,21,0)="^^1^1^2891024^"
^DD(741.97,1,21,1,0)="This is a short mnemonic code for this committee."
^DD(741.97,1,"DT")="2890815"
^DD(741.97,"B","ABBREVIATION",1)=""
^DD(741.97,"B","COMMITTEE",.01)=""
^DD(741.97,"GL",0,1,.01)=""
^DD(741.97,"GL",0,2,1)=""
^DD(741.97,"IX",.01)=""
^DD(741.97,"IX",1)=""
^DD(741.97,"RQ",.01)=""
^DD(741.99,0)="FIELD^^99^16"
^DD(741.99,0,"DDA")="N"
^DD(741.99,0,"DT")="2930208"
^DD(741.99,0,"IX","B",741.99,.01)=""
^DD(741.99,0,"NM","QA OCCURRENCE AUTO RUN DATES")=""
^DD(741.99,0,"VR")="3.0"
^DD(741.99,.01,0)="AUTO ENROLL RUN DATE^RD^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(741.99,.01,1,0)="^.1"
^DD(741.99,.01,1,1,0)="741.99^B"
^DD(741.99,.01,1,1,1)="S ^QA(741.99,""B"",$E(X,1,30),DA)="""""
^DD(741.99,.01,1,1,2)="K ^QA(741.99,""B"",$E(X,1,30),DA)"
^DD(741.99,.01,3)="This field contains the date auto enroll ran."
^DD(741.99,.01,21,0)="^^1^1^2930208^"
^DD(741.99,.01,21,1,0)="This field contains the date that auto enroll ran."
^DD(741.99,.01,"DT")="2930208"
^DD(741.99,1,0)="*TOTAL 101^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,1,.1)="TOTAL 101"
^DD(741.99,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,1,21,0)="^^1^1^2930208^^"
^DD(741.99,1,21,1,0)="This field contains the total number of screen 101 records auto enrolled."
^DD(741.99,1,"DT")="2910701"
^DD(741.99,1.1,0)="TOTAL 101.1^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,1.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,1.1,21,0)="^^2^2^2930208^"
^DD(741.99,1.1,21,1,0)="This field contains the total number of screen 101.1 records auto"
^DD(741.99,1.1,21,2,0)="enrolled."
^DD(741.99,1.1,"DT")="2910701"
^DD(741.99,2,0)="TOTAL 102^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,2,21,0)="^^1^1^2930208^"
^DD(741.99,2,21,1,0)="This field contains the total number of screen 102 records auto enrolled."
^DD(741.99,3,0)="*TOTAL 103^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,3,.1)="TOTAL 103"
^DD(741.99,3,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,3,21,0)="^^1^1^2930208^"
^DD(741.99,3,21,1,0)="This field contains the total number of screen 103 records auto enrolled."
^DD(741.99,3,"DT")="2910618"
^DD(741.99,4.1,0)="*TOTAL 104.1^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,4.1,.1)="TOTAL 104.1"
^DD(741.99,4.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,4.1,21,0)="^^2^2^2930208^"
^DD(741.99,4.1,21,1,0)="This field contains the total number of screen 104.1 records auto"
^DD(741.99,4.1,21,2,0)="enrolled."
^DD(741.99,4.1,"DT")="2910618"
^DD(741.99,4.2,0)="*TOTAL 104.2^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,4.2,.1)="TOTAL 104.2"
^DD(741.99,4.2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,4.2,21,0)="^^2^2^2930208^^"
^DD(741.99,4.2,21,1,0)="This field contains the total number of screen 104.2 records auto"
^DD(741.99,4.2,21,2,0)="enrolled."
^DD(741.99,4.2,"DT")="2910618"
^DD(741.99,5.1,0)="*TOTAL 105.1^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,5.1,.1)="TOTAL 105.1"
^DD(741.99,5.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,5.1,21,0)="^^2^2^2930208^"
^DD(741.99,5.1,21,1,0)="This field contains the total number of screen 105.1 records auto"
^DD(741.99,5.1,21,2,0)="enrolled."
^DD(741.99,5.1,"DT")="2910618"
^DD(741.99,5.2,0)="*TOTAL 105.2^NJ4,0^^0;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,5.2,.1)="TOTAL 105.2"
^DD(741.99,5.2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,5.2,21,0)="^^2^2^2930208^"
^DD(741.99,5.2,21,1,0)="This field contains the total number of screen 105.2 records auto"
^DD(741.99,5.2,21,2,0)="enrolled."
^DD(741.99,5.2,"DT")="2910618"
^DD(741.99,6.1,0)="TOTAL 106.1^NJ4,0^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,6.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,6.1,21,0)="^^2^2^2930208^"
^DD(741.99,6.1,21,1,0)="This field contains the total number of screen 106.1 records auto"
^DD(741.99,6.1,21,2,0)="enrolled."
^DD(741.99,6.2,0)="*TOTAL 106.2^NJ4,0^^0;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,6.2,.1)="TOTAL 106.2"
^DD(741.99,6.2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,6.2,21,0)="^^2^2^2930208^"
^DD(741.99,6.2,21,1,0)="This field contains the total number of screen 106.2 records auto"
^DD(741.99,6.2,21,2,0)="enrolled."
^DD(741.99,6.2,"DT")="2910618"
^DD(741.99,7,0)="TOTAL 107^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,7,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,7,21,0)="^^1^1^2930208^"
^DD(741.99,7,21,1,0)="This field contains the total number of screen 107 records auto enrolled."
^DD(741.99,8,0)="TOTAL 108^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,8,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,8,21,0)="^^1^1^2930208^"
^DD(741.99,8,21,1,0)="This field contains the total number of screen 108 records auto enrolled."
^DD(741.99,9,0)="TOTAL 109^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,9,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,9,21,0)="^^1^1^2930208^^"
^DD(741.99,9,21,1,0)="This field contains the total number of screen 109 records auto enrolled."
^DD(741.99,10,0)="TOTAL PATIENTS AUTO ENROLLED^CJ8,0^^ ; ^X ^DD(741.99,10,9.3) S X=X+$P(Y(741.99,10,1),U,12)+$P(Y(741.99,10,1),U,13)+$P(Y(741.99,10,1),U,15) S X=$J(X,0,0)"
^DD(741.99,10,9)="^"
^DD(741.99,10,9.01)="741.99^99;741.99^9;741.99^8;741.99^7;741.99^6.2;741.99^6.1;741.99^5.2;741.99^5.1;741.99^4.2;741.99^4.1;741.99^3;741.99^2;741.99^1.1;741.99^1"
^DD(741.99,10,9.1)="#1+#1.1+#2+#3+#4.1+#4.2+#5.1+#5.2+#6.1+#6.2+#7+#8+#9+#99"
^DD(741.99,10,9.2)="S Y(741.99,10,1)=$S($D(^QA(741.99,D0,0)):^(0),1:"""") S X=$P(Y(741.99,10,1),U,2)+$P(Y(741.99,10,1),U,14)+$P(Y(741.99,10,1),U,3)+$P(Y(741.99,10,1),U,4)+$P(Y(741.99,10,1),U,5)"
^DD(741.99,10,9.3)="X ^DD(741.99,10,9.2) S X=X+$P(Y(741.99,10,1),U,6)+$P(Y(741.99,10,1),U,7)+$P(Y(741.99,10,1),U,8)+$P(Y(741.99,10,1),U,9)+$P(Y(741.99,10,1),U,10)+$P(Y(741.99,10,1),U,11)"
^DD(741.99,10,21,0)="^^1^1^2930208^"
^DD(741.99,10,21,1,0)="This field computes the sum of all the 'TOTAL #' fields in the file."
^DD(741.99,99,0)="TOTAL 199^NJ4,0^^0;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(741.99,99,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(741.99,99,21,0)="^^1^1^2930208^"
^DD(741.99,99,21,1,0)="This field contains the total number of screen 199 records auto enrolled."
^DD(741.99,99,"DT")="2920812"
^DD(741.99,"B","*TOTAL 101",1)=""
^DD(741.99,"B","*TOTAL 103",3)=""
^DD(741.99,"B","*TOTAL 104.1",4.1)=""
^DD(741.99,"B","*TOTAL 104.2",4.2)=""
^DD(741.99,"B","*TOTAL 105.1",5.1)=""
^DD(741.99,"B","*TOTAL 105.2",5.2)=""
^DD(741.99,"B","*TOTAL 106.2",6.2)=""
^DD(741.99,"B","AUTO ENROLL RUN DATE",.01)=""
^DD(741.99,"B","TOTAL 101",1)="1"
^DD(741.99,"B","TOTAL 101.1",1.1)=""
^DD(741.99,"B","TOTAL 102",2)=""
^DD(741.99,"B","TOTAL 103",3)="1"
^DD(741.99,"B","TOTAL 104.1",4.1)="1"
^DD(741.99,"B","TOTAL 104.2",4.2)="1"
^DD(741.99,"B","TOTAL 105.1",5.1)="1"
^DD(741.99,"B","TOTAL 105.2",5.2)="1"
^DD(741.99,"B","TOTAL 106.1",6.1)=""
^DD(741.99,"B","TOTAL 106.2",6.2)="1"
^DD(741.99,"B","TOTAL 107",7)=""
^DD(741.99,"B","TOTAL 108",8)=""
^DD(741.99,"B","TOTAL 109",9)=""
^DD(741.99,"B","TOTAL 199",99)=""
^DD(741.99,"B","TOTAL PATIENTS AUTO ENROLLED",10)=""
^DD(741.99,"GL",0,1,.01)=""
^DD(741.99,"GL",0,2,1)=""
^DD(741.99,"GL",0,3,2)=""
^DD(741.99,"GL",0,4,3)=""
^DD(741.99,"GL",0,5,4.1)=""
^DD(741.99,"GL",0,6,4.2)=""
^DD(741.99,"GL",0,7,5.1)=""
^DD(741.99,"GL",0,8,5.2)=""
^DD(741.99,"GL",0,9,6.1)=""
^DD(741.99,"GL",0,10,6.2)=""
^DD(741.99,"GL",0,11,7)=""
^DD(741.99,"GL",0,12,8)=""
^DD(741.99,"GL",0,13,9)=""
^DD(741.99,"GL",0,14,1.1)=""
^DD(741.99,"GL",0,15,99)=""
^DD(741.99,"IX",.01)=""
^DD(741.99,"RQ",.01)=""
^DD(742,0)="FIELD^^50^16"
^DD(742,0,"DDA")="N"
^DD(742,0,"DT")="2950915"
^DD(742,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^QA(742.4,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(742.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(742,0,"IX","AA1",742,.01)=""
^DD(742,0,"IX","AA2",742,.03)=""
^DD(742,0,"IX","AC",742,.01)=""
^DD(742,0,"IX","ACN",742,.03)=""
^DD(742,0,"IX","B",742,.01)=""
^DD(742,0,"IX","BCS",742,.03)=""
^DD(742,0,"IX","BPID",742,.02)=""
^DD(742,0,"IX","BPRS",742,.13)=""
^DD(742,0,"IX","BPT",742,.05)=""
^DD(742,0,"IX","BS5",742,.02)=""
^DD(742,0,"IX","BSER",742,.08)=""
^DD(742,0,"IX","BTS",742,.07)=""
^DD(742,0,"IX","BWD",742,.06)=""
^DD(742,0,"NM","QA PATIENT INCIDENT REVIEW")=""
^DD(742,0,"VR")="2"
^DD(742,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(742,.01,1,0)="^.1^^-1"
^DD(742,.01,1,1,0)="742^B"
^DD(742,.01,1,1,1)="S ^QA(742,""B"",$E(X,1,30),DA)="""""
^DD(742,.01,1,1,2)="K ^QA(742,""B"",$E(X,1,30),DA)"
^DD(742,.01,1,1,3)="Do not delete!"
^DD(742,.01,1,2,0)="742^AC^MUMPS"
^DD(742,.01,1,2,1)="I $D(X),'$D(^QA(742,""AC"",$E(X,1,30))) S ^QA(742,""AC"",$E(X,1,30),DA)="""""
^DD(742,.01,1,2,2)="I $D(X),$D(^QA(742,""AC"",$E(X,1,30),DA)) K ^QA(742,""AC"",$E(X,1,30),DA) S QAN(""NXT"")=+$O(^QA(742,""AC"",$E(X,1,30),"""")) X:QAN(""NXT"")>0 ^DD(742,.01,1,2,1) K QAN(""NXT"")"
^DD(742,.01,1,2,3)="Do not delete!"
^DD(742,.01,1,2,"%D",0)="^^2^2^2911023^^"
^DD(742,.01,1,2,"%D",1,0)="If a particular patient is added to our file more than once, this mumps"
^DD(742,.01,1,2,"%D",2,0)="x-ref grabs the first entry for the patient and files the entry."
^DD(742,.01,1,2,"DT")="2911010"
^DD(742,.01,1,3,0)="742^AA1^MUMPS"
^DD(742,.01,1,3,1)="S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""""),QAN(3)=$P(QAN,U,3) S:QAN(3)]"""" ^QA(742,""AA"",X,QAN(3),DA)="""" K QAN"
^DD(742,.01,1,3,2)="S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""""),QAN(3)=$P(QAN,U,3) K:QAN(3)]"""" ^QA(742,""AA"",X,QAN(3),DA) K QAN"
^DD(742,.01,1,3,3)="DO NOT DELETE!"
^DD(742,.01,1,3,"%D",0)="^^1^1^2911120^"
^DD(742,.01,1,3,"%D",1,0)="Helps for look-ups associated with patients and incidents."
^DD(742,.01,1,3,"DT")="2911120"
^DD(742,.01,3)="Please enter the appropriate patient who has been through an incident."
^DD(742,.01,21,0)="^^1^1^2911023^^^"
^DD(742,.01,21,1,0)="This is the patient involved in the incident."
^DD(742,.01,23,0)="^^1^1^2911023^^^"
^DD(742,.01,23,1,0)="Pointer to the patient file. ^DPT(2,"
^DD(742,.01,"DEL",1,0)="I 1 W !!?5,*7,""Patient entries CANNOT be deleted."""
^DD(742,.01,"DT")="2920709"
^DD(742,.02,0)="PATIENT ID^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<6) X I $D(X) K:X'?2.A4N X"
^DD(742,.02,1,0)="^.1^^-1"
^DD(742,.02,1,1,0)="742^BPID"
^DD(742,.02,1,1,1)="S ^QA(742,""BPID"",$E(X,1,30),DA)="""""
^DD(742,.02,1,1,2)="K ^QA(742,""BPID"",$E(X,1,30),DA)"
^DD(742,.02,1,1,3)="Do not delete."
^DD(742,.02,1,1,"%D",0)="^^1^1^2911023^^"
^DD(742,.02,1,1,"%D",1,0)="Identifies a patient without exposing his/her true identity."
^DD(742,.02,1,1,"DT")="2910423"
^DD(742,.02,1,2,0)="742^BS5^MUMPS"
^DD(742,.02,1,2,1)="Q:$P(^QA(742,DA,0),U,2)']""""  S QANN(1)=$P(^QA(742,DA,0),U,2),QANN(2)=$L(QANN(1)) S:QANN(2)=6 ^QA(742,""BS5"",$E(QANN(1),2)_$E(QANN(1),3,6),DA)="""" S:QANN(2)=7 ^QA(742,""BS5"",$E(QANN(1),3)_$E(QANN(1),4,7),DA)="""" K QANN"
^DD(742,.02,1,2,2)="Q:$P(^QA(742,DA,0),U,2)']""""  S QANN(1)=$P(^QA(742,DA,0),U,2),QANN(2)=$L(QANN(1)) K:QANN(2)=6 ^QA(742,""BS5"",$E(QANN(1),2)_$E(QANN(1),3,6),DA) K:QANN(2)=7 ^QA(742,""BS5"",$E(QANN(1),3)_$E(QANN(1),4,7),DA) K QANN"
^DD(742,.02,1,2,3)="DO NOT DELETE"
^DD(742,.02,1,2,"%D",0)="^^2^2^2911023^^"
^DD(742,.02,1,2,"%D",1,0)="Allow the lookup on the first letter of the last name and the last four "
^DD(742,.02,1,2,"%D",2,0)="SSN numbers."
^DD(742,.02,1,2,"DT")="2910823"
^DD(742,.02,3)="Answer must be 6-7 characters in length."
^DD(742,.02,21,0)="^^1^1^2920713^"
^DD(742,.02,21,1,0)="This field indentifies the patient without exposing his/her identity."
^DD(742,.02,"DT")="2911217"
^DD(742,.03,0)="CASE NUMBER^P742.4'^QA(742.4,^0;3^Q"
^DD(742,.03,1,0)="^.1"
^DD(742,.03,1,1,0)="742^BCS"
^DD(742,.03,1,1,1)="S ^QA(742,""BCS"",$E(X,1,30),DA)="""""
^DD(742,.03,1,1,2)="K ^QA(742,""BCS"",$E(X,1,30),DA)"
^DD(742,.03,1,1,3)="DO NOT DELETE!"
^DD(742,.03,1,1,"%D",0)="^^1^1^2911023^"
^DD(742,.03,1,1,"%D",1,0)="Cross Reference on the Case Number for the incident."
^DD(742,.03,1,1,"DT")="2910425"
^DD(742,.03,1,2,0)="742^ACN^MUMPS"
^DD(742,.03,1,2,1)="S ^QA(742.4,""ACN"",DA,$E(X,1,30))="""""
^DD(742,.03,1,2,2)="K ^QA(742.4,""ACN"",DA,$E(X,1,30))"
^DD(742,.03,1,2,3)="Do not delete."
^DD(742,.03,1,2,"DT")="2920226"
^DD(742,.03,1,3,0)="742^AA2^MUMPS"
^DD(742,.03,1,3,1)="S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""""),QAN(1)=$P(QAN,U) S:QAN(1)]"""" ^QA(742,""AA"",QAN(1),X,DA)="""" K QAN"
^DD(742,.03,1,3,2)="S QAN=$S($D(^QA(742,DA,0))#2:^(0),1:""""),QAN(1)=$P(QAN,U) K:QAN(1)]"""" ^QA(742,""AA"",QAN(1),X,DA) K QAN"
^DD(742,.03,1,3,3)="DO NOT DELETE!"
^DD(742,.03,1,3,"%D",0)="^^1^1^2911120^^"
^DD(742,.03,1,3,"%D",1,0)="Helps in lookups for patients and incidents."
^DD(742,.03,1,3,"DT")="2911120"
^DD(742,.03,3)="Enter the appropriate case number."
^DD(742,.03,21,0)="^^1^1^2910425^^^"
^DD(742,.03,21,1,0)="Indicates the incident case number."
^DD(742,.03,"DT")="2920226"
^DD(742,.04,0)="DATE OF ADMISSION^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(742,.04,3)="Enter the date of admission for this patient."
^DD(742,.04,21,0)="^^1^1^2910423^"
^DD(742,.04,21,1,0)="Indicates the date of admission to the hospital."
^DD(742,.04,"DT")="2910423"
^DD(742,.05,0)="PATIENT TYPE^S^0:OUTPATIENT;1:INPATIENT;^0;5^Q"
^DD(742,.05,1,0)="^.1"
^DD(742,.05,1,1,0)="742^BPT"
^DD(742,.05,1,1,1)="S ^QA(742,""BPT"",$E(X,1,30),DA)="""""
^DD(742,.05,1,1,2)="K ^QA(742,""BPT"",$E(X,1,30),DA)"
^DD(742,.05,1,1,"DT")="2910509"
^DD(742,.05,3)="Enter whether the patient is currently in the hospital."
^DD(742,.05,21,0)="^^1^1^2910429^^"
^DD(742,.05,21,1,0)="Indicates whether the patient is an inpatient."
^DD(742,.05,"DT")="2910612"
^DD(742,.06,0)="WARD/CLINIC^*P44'^SC(^0;6^S DIC(""S"")=""I $P(^(0),U,3)=""""C""""!($P(^(0),U,3)=""""W"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(742,.06,1,0)="^.1"
^DD(742,.06,1,1,0)="742^BWD"
^DD(742,.06,1,1,1)="S ^QA(742,""BWD"",$E(X,1,30),DA)="""""
^DD(742,.06,1,1,2)="K ^QA(742,""BWD"",$E(X,1,30),DA)"
^DD(742,.06,1,1,"DT")="2910509"
^DD(742,.06,3)="Enter the ward/clinic location for the patient."
^DD(742,.06,12)="Choice of ONLY wards or clinics."
^DD(742,.06,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C""""!($P(^(0),U,3)=""""W"""")"""
^DD(742,.06,21,0)="^^1^1^2910820^^^^"
^DD(742,.06,21,1,0)="Indicates the ward/clinic the patient belongs to."
^DD(742,.06,"DT")="2910820"
^DD(742,.07,0)="TREATING SPECIALTY^*P45.7'^DIC(45.7,^0;7^S DIC(""S"")=""S QANCN=$P($G(^QA(742,DA,0)),U,3),QANDT=$P($G(^QA(742.4,+QANCN,0)),U,3) I $$ACTIVE^DGACT(45.7,Y,QANDT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(742,.07,1,0)="^.1"
^DD(742,.07,1,1,0)="742^BTS"
^DD(742,.07,1,1,1)="S ^QA(742,""BTS"",$E(X,1,30),DA)="""""
^DD(742,.07,1,1,2)="K ^QA(742,""BTS"",$E(X,1,30),DA)"
^DD(742,.07,1,1,3)="DO NOT DELETE"
^DD(742,.07,1,1,"DT")="2910627"
^DD(742,.07,3)="Enter the appropriate Treating Specialty."
^DD(742,.07,12)="Screening of active Treating Specialty"
^DD(742,.07,12.1)="S DIC(""S"")=""S QANCN=$P($G(^QA(742,DA,0)),U,3),QANDT=$P($G(^QA(742.4,+QANCN,0)),U,3) I $$ACTIVE^DGACT(45.7,Y,QANDT)"""
^DD(742,.07,21,0)="^^1^1^2910625^"
^DD(742,.07,21,1,0)="Contains the Treating Specialty for the patient."
^DD(742,.07,"DT")="2950915"
^DD(742,.08,0)="SERVICE^P730'^ECC(730,^0;8^Q"
^DD(742,.08,1,0)="^.1"
^DD(742,.08,1,1,0)="742^BSER"
^DD(742,.08,1,1,1)="S ^QA(742,""BSER"",$E(X,1,30),DA)="""""
^DD(742,.08,1,1,2)="K ^QA(742,""BSER"",$E(X,1,30),DA)"
^DD(742,.08,1,1,3)="DO NOT DELETE"
^DD(742,.08,1,1,"DT")="2910627"
^DD(742,.08,3)="Enter the appropriate Service for the patient."
^DD(742,.08,21,0)="^^1^1^2910625^"
^DD(742,.08,21,1,0)="Contains the Service for the patient."
^DD(742,.08,"DT")="2910627"
^DD(742,.09,0)="FALL ASSESSMENT SCORE^F^^0;9^K:$L(X)>3!($L(X)<1) X"
^DD(742,.09,3)="Answer must be 1-3 characters in length."
^DD(742,.09,21,0)="^^1^1^2910628^^^"
^DD(742,.09,21,1,0)="Contains the Assessment Score for a fall."
^DD(742,.09,"DT")="2910628"
^DD(742,.1,0)="SEVERITY LEVEL^S^0:NO INJURY OR DISABILITY;1:MINOR;2:MAJOR;3:DEATH;^0;10^Q"
^DD(742,.1,3)="Enter the Severity Level for the incident."
^DD(742,.1,21,0)="^^1^1^2910625^"
^DD(742,.1,21,1,0)="Contains the Severity Level of the incident."
^DD(742,.1,"DT")="2911104"
^DD(742,.11,0)="MEDICATION ERRORS^*P742.13'^QA(742.13,^0;11^S DIC(""S"")=""I +$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(742,.11,3)="Enter the Medication Errors as they apply to the patient."
^DD(742,.11,12)="Checks for active Medication Errors."
^DD(742,.11,12.1)="S DIC(""S"")=""I +$P(^(0),U,2)"""
^DD(742,.11,21,0)="^^1^1^2920407^^"
^DD(742,.11,21,1,0)="Contains the Medication Errors for the patient."
^DD(742,.11,"DT")="2920407"
^DD(742,.12,0)="RESPONSIBLE SERVICE^742.01PA^^1;0"
^DD(742,.12,21,0)="^^1^1^2910628^^^"
^DD(742,.12,21,1,0)="Enter the Responsible Service(s) for the incident."
^DD(742,.13,0)="PATIENT RECORD STATUS^S^1:OPEN;0:CLOSED;-1:DELETED;^0;12^Q"
^DD(742,.13,1,0)="^.1"
^DD(742,.13,1,1,0)="742^BPRS"
^DD(742,.13,1,1,1)="S ^QA(742,""BPRS"",$E(X,1,30),DA)="""""
^DD(742,.13,1,1,2)="K ^QA(742,""BPRS"",$E(X,1,30),DA)"
^DD(742,.13,1,1,"%D",0)="^^1^1^2911120^"
^DD(742,.13,1,1,"%D",1,0)="Tracks the status of a patient."
^DD(742,.13,1,1,"DT")="2911120"
^DD(742,.13,3)="Enter the Patient Record Status."
^DD(742,.13,21,0)="^^2^2^2920713^"
^DD(742,.13,21,1,0)="Contains the status of the patient record.  '1' for open, '0' for closed, "
^DD(742,.13,21,2,0)="and '-1' for deleted."
^DD(742,.13,"DT")="2911120"
^DD(742,.14,0)="MEDICATION ERRORS (OTHER)^F^^0;13^K:$L(X)>30!($L(X)<3) X"
^DD(742,.14,3)="Answer must be 3-30 characters in length."
^DD(742,.14,21,0)="^^2^2^2910625^"
^DD(742,.14,21,1,0)="Contains the type of medication error not found in the QA Medication Error"
^DD(742,.14,21,2,0)="file."
^DD(742,.14,"DT")="2910625"
^DD(742,.15,0)="INCIDENT RELATED DIAGNOSIS^742.02A^^2;0"
^DD(742,.15,21,0)="^^1^1^2920512^^"
^DD(742,.15,21,1,0)="Contains the appropriate patient diagnosis to date for the patient."
^DD(742,.15,"DT")="2911212"
^DD(742,50,0)="PATIENT AUDIT TRAIL^P740.5'^QA(740.5,^0;14^Q"
^DD(742,50,3)="Pointer to QA Audit file."
^DD(742,50,21,0)="^^1^1^2920317^"
^DD(742,50,21,1,0)="Files changes in the QA patient Event file in the QA Audit file."
^DD(742,50,"DT")="2920317"
^DD(742,"B","CASE NUMBER",.03)=""
^DD(742,"B","DATE OF ADMISSION",.04)=""
^DD(742,"B","FALL ASSESSMENT SCORE",.09)=""
^DD(742,"B","INCIDENT RELATED DIAGNOSIS",.15)=""
^DD(742,"B","MEDICATION ERRORS",.11)=""
^DD(742,"B","MEDICATION ERRORS (OTHER)",.14)=""
^DD(742,"B","PATIENT",.01)=""
^DD(742,"B","PATIENT AUDIT TRAIL",50)=""
^DD(742,"B","PATIENT ID",.02)=""
^DD(742,"B","PATIENT RECORD STATUS",.13)=""
^DD(742,"B","PATIENT TYPE",.05)=""
^DD(742,"B","RESPONSIBLE SERVICE",.12)=""
^DD(742,"B","SERVICE",.08)=""
^DD(742,"B","SEVERITY LEVEL",.1)=""
^DD(742,"B","TREATING SPECIALTY",.07)=""
^DD(742,"B","WARD/CLINIC",.06)=""
^DD(742,"GL",0,1,.01)=""
^DD(742,"GL",0,2,.02)=""
^DD(742,"GL",0,3,.03)=""
^DD(742,"GL",0,4,.04)=""
^DD(742,"GL",0,5,.05)=""
^DD(742,"GL",0,6,.06)=""
^DD(742,"GL",0,7,.07)=""
^DD(742,"GL",0,8,.08)=""
^DD(742,"GL",0,9,.09)=""
^DD(742,"GL",0,10,.1)=""
^DD(742,"GL",0,11,.11)=""
^DD(742,"GL",0,12,.13)=""
^DD(742,"GL",0,13,.14)=""
^DD(742,"GL",0,14,50)=""
^DD(742,"GL",1,0,.12)=""
^DD(742,"GL",2,0,.15)=""
^DD(742,"IX",.01)=""
^DD(742,"IX",.02)=""
^DD(742,"IX",.03)=""
^DD(742,"IX",.05)=""
^DD(742,"IX",.06)=""
^DD(742,"IX",.07)=""
^DD(742,"IX",.08)=""
^DD(742,"IX",.13)=""
^DD(742,"RQ",.01)=""
^DD(742,"SB",742.01,.12)=""
^DD(742,"SB",742.02,.15)=""
^DD(742.01,0)="RESPONSIBLE SERVICE SUB-FIELD^^.01^1"
^DD(742.01,0,"DT")="2910625"
^DD(742.01,0,"IX","B",742.01,.01)=""
^DD(742.01,0,"NM","RESPONSIBLE SERVICE")=""
^DD(742.01,0,"UP")="742"
^DD(742.01,.01,0)="RESPONSIBLE SERVICE^MP730'^ECC(730,^0;1^Q"
^DD(742.01,.01,1,0)="^.1"
^DD(742.01,.01,1,1,0)="742.01^B"
^DD(742.01,.01,1,1,1)="S ^QA(742,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(742.01,.01,1,1,2)="K ^QA(742,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(742.01,.01,3)="Enter the Responsible Service for the incident. "
^DD(742.01,.01,21,0)="^^1^1^2910830^^^"
^DD(742.01,.01,21,1,0)="Enter the Responsible Service(s) for the incident."
^DD(742.01,.01,"DT")="2910625"
^DD(742.01,"B","RESPONSIBLE SERVICE",.01)=""
^DD(742.01,"GL",0,1,.01)=""
^DD(742.01,"IX",.01)=""
^DD(742.02,0)="INCIDENT RELATED DIAGNOSIS SUB-FIELD^^.01^1"
^DD(742.02,0,"DT")="2910626"
^DD(742.02,0,"IX","B",742.02,.01)=""
^DD(742.02,0,"NM","INCIDENT RELATED DIAGNOSIS")=""
^DD(742.02,0,"UP")="742"
^DD(742.02,.01,0)="INCIDENT RELATED DIAGNOSIS^MF^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(742.02,.01,1,0)="^.1"
^DD(742.02,.01,1,1,0)="742.02^B"
^DD(742.02,.01,1,1,1)="S ^QA(742,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(742.02,.01,1,1,2)="K ^QA(742,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(742.02,.01,3)="Enter the appropriate patient diagnosis.  Answer must be 3-60 characters in length."
^DD(742.02,.01,21,0)="^^1^1^2920512^^"
^DD(742.02,.01,21,1,0)="Contains the appropriate patient diagnosis to date for the patient."
^DD(742.02,.01,"DT")="2911212"
^DD(742.02,"B","INCIDENT RELATED DIAGNOSIS",.01)=""
^DD(742.02,"GL",0,1,.01)=""
^DD(742.02,"IX",.01)=""
^DD(742.1,0)="FIELD^^.07^6"
^DD(742.1,0,"DDA")="N"
^DD(742.1,0,"DT")="2920727"
^DD(742.1,0,"IX","B",742.1,.01)=""
^DD(742.1,0,"IX","BUPPER",742.1,.01)=""
^DD(742.1,0,"NM","QA INCIDENTS")=""
^DD(742.1,0,"PT",742.4,.02)=""
^DD(742.1,0,"PT",742.6,.04)=""
^DD(742.1,0,"VR")="2"
^DD(742.1,.001,0)="INCIDENT NUMBER^FX^^ ^K:X[""""""""!($A(X)=45)!(X<200) X I $D(X) K:$L(X)>6!($L(X)<3)!((X'?3N)&(X'?3N1"".""1.2N)) X D:$D(^QA(742.1,+X,0)) EN3^QANAUX1 S:$D(X) DINUM=X"
^DD(742.1,.001,3)="Answer must be 3-6 numbers in length, greater than or equal to 200, with or without two decimal places."
^DD(742.1,.001,21,0)="^^3^3^2910821^^"
^DD(742.1,.001,21,1,0)="Incident Number links a unique number with a particular incident.  All"
^DD(742.1,.001,21,2,0)="local incidents must have numbers of 200 or greater.  This number may"
^DD(742.1,.001,21,3,0)="or may not have two decimal places."
^DD(742.1,.001,"DT")="2910821"
^DD(742.1,.01,0)="INCIDENT^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(742.1,.01,1,0)="^.1"
^DD(742.1,.01,1,1,0)="742.1^B"
^DD(742.1,.01,1,1,1)="S ^QA(742.1,""B"",$E(X,1,30),DA)="""""
^DD(742.1,.01,1,1,2)="K ^QA(742.1,""B"",$E(X,1,30),DA)"
^DD(742.1,.01,1,1,3)="Do not delete!"
^DD(742.1,.01,1,2,0)="742.1^BUPPER"
^DD(742.1,.01,1,2,1)="S ^QA(742.1,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(742.1,.01,1,2,2)="K ^QA(742.1,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(742.1,.01,1,2,3)="DO NOT DELETE"
^DD(742.1,.01,1,2,"%D",0)="^^1^1^2920519^^^"
^DD(742.1,.01,1,2,"%D",1,0)="Cross Reference files the uppercase text of the incident."
^DD(742.1,.01,1,2,"DT")="2910708"
^DD(742.1,.01,3)="Answer must be 3-60 characters in length."
^DD(742.1,.01,21,0)="^^1^1^2920401^^^"
^DD(742.1,.01,21,1,0)="This field contains the types of incidents found within a hospital."
^DD(742.1,.01,"DEL",1,0)="I 1 W !,*7,""ENTRIES CANNOT BE DELETED!"""
^DD(742.1,.01,"DT")="2910708"
^DD(742.1,.02,0)="VA FORM 10-2633^S^1:YES;2:POSSIBLE;^0;2^Q"
^DD(742.1,.02,3)="Enter whether form VA 10-2633 is required for this incident."
^DD(742.1,.02,21,0)="^^1^1^2910423^"
^DD(742.1,.02,21,1,0)="Indicates whether form VA 10-2633 is required for this incident."
^DD(742.1,.02,"DT")="2910619"
^DD(742.1,.04,0)="INVESTIGATION OF THE INCIDENT^S^1:YES;2:POSSIBLE;^0;4^Q"
^DD(742.1,.04,3)="Enter whether the incident requires an investigation."
^DD(742.1,.04,21,0)="^^1^1^2910423^"
^DD(742.1,.04,21,1,0)="Indicates whether the incident requires an investigation."
^DD(742.1,.04,"DT")="2910619"
^DD(742.1,.06,0)="OTHER QA REPORT FORMS^742.16A^^1;0"
^DD(742.1,.06,21,0)="^^1^1^2910619^"
^DD(742.1,.06,21,1,0)="Contains the applicable QA Report Form(s) for this incident."
^DD(742.1,.07,0)="SCREEN STATUS^S^1:INACTIVE;N:NATIONAL;L:LOCAL;^0;6^Q"
^DD(742.1,.07,3)="Enter the screen status for the incident"
^DD(742.1,.07,12)="National screens cannot be changed."
^DD(742.1,.07,12.1)="S DIC(""S"")=""I $S($P(^QA(742.1,D0,0),""""^"""",6)=""""N"""":0,Y=""""N"""":0,1:1)"""
^DD(742.1,.07,21,0)="^^1^1^2920401^^^^"
^DD(742.1,.07,21,1,0)="Contains the status for the incident."
^DD(742.1,.07,"DT")="2920401"
^DD(742.1,"B","INCIDENT",.01)=""
^DD(742.1,"B","INCIDENT NUMBER",.001)=""
^DD(742.1,"B","INVESTIGATION OF THE INCIDENT",.04)=""
^DD(742.1,"B","OTHER QA REPORT FORMS",.06)=""
^DD(742.1,"B","SCREEN STATUS",.07)=""
^DD(742.1,"B","VA FORM 10-2633",.02)=""
^DD(742.1,"GL",0,1,.01)=""
^DD(742.1,"GL",0,2,.02)=""
^DD(742.1,"GL",0,4,.04)=""
^DD(742.1,"GL",0,6,.07)=""
^DD(742.1,"GL",1,0,.06)=""
^DD(742.1,"IX",.01)=""
^DD(742.1,"RQ",.01)=""
^DD(742.1,"SB",742.16,.06)=""
^DD(742.13,0)="FIELD^^.02^3"
^DD(742.13,0,"DDA")="N"
^DD(742.13,0,"DT")="2921002"
^DD(742.13,0,"IX","B",742.13,.01)=""
^DD(742.13,0,"IX","BSTAT",742.13,.02)=""
^DD(742.13,0,"IX","BUPPER",742.13,.01)=""
^DD(742.13,0,"NM","QA MEDICATION ERRORS")=""
^DD(742.13,0,"PT",742,.11)=""
^DD(742.13,0,"VR")="2"
^DD(742.13,.001,0)="NUMBER^NJ3,0X^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(742.13,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(742.13,.001,21,0)="^^1^1^2920407^"
^DD(742.13,.001,21,1,0)="Holds the IEN of the Medication Error entry."
^DD(742.13,.001,"DT")="2920407"
^DD(742.13,.01,0)="MEDICATION ERRORS^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(742.13,.01,1,0)="^.1"
^DD(742.13,.01,1,1,0)="742.13^B"
^DD(742.13,.01,1,1,1)="S ^QA(742.13,""B"",$E(X,1,30),DA)="""""
^DD(742.13,.01,1,1,2)="K ^QA(742.13,""B"",$E(X,1,30),DA)"
^DD(742.13,.01,1,1,3)="Do not delete!"
^DD(742.13,.01,1,2,0)="742.13^BUPPER^MUMPS"
^DD(742.13,.01,1,2,1)="S ^QA(742.13,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(742.13,.01,1,2,2)="K ^QA(742.13,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(742.13,.01,1,2,3)="Do not delete!"
^DD(742.13,.01,1,2,"%D",0)="^^1^1^2911023^"
^DD(742.13,.01,1,2,"%D",1,0)="Cross Reference files the uppercase text of the Medication Error."
^DD(742.13,.01,1,2,"DT")="2910502"
^DD(742.13,.01,3)="Answer must be 3-60 characters in length."
^DD(742.13,.01,21,0)="^^1^1^2910502^^"
^DD(742.13,.01,21,1,0)="Indicates medication errors as they pertain to the patient."
^DD(742.13,.01,"DEL",1,0)="I 1 W !,*7,""ENTRIES CANNOT BE DELETED!"""
^DD(742.13,.01,"DT")="2910502"
^DD(742.13,.02,0)="STATUS^RS^1:ACTIVE;^0;2^Q"
^DD(742.13,.02,1,0)="^.1"
^DD(742.13,.02,1,1,0)="742.13^BSTAT"
^DD(742.13,.02,1,1,1)="S ^QA(742.13,""BSTAT"",$E(X,1,30),DA)="""""
^DD(742.13,.02,1,1,2)="K ^QA(742.13,""BSTAT"",$E(X,1,30),DA)"
^DD(742.13,.02,1,1,3)="Do not delete."
^DD(742.13,.02,1,1,"%D",0)="^^1^1^2921002^"
^DD(742.13,.02,1,1,"%D",1,0)="Indicates the status of the Medication Error."
^DD(742.13,.02,1,1,"DT")="2921002"
^DD(742.13,.02,3)="Enter the status of the Medication Error.  '1' is active."
^DD(742.13,.02,21,0)="^^1^1^2921002^"
^DD(742.13,.02,21,1,0)="This field indicates whether the Medication Error is active."
^DD(742.13,.02,"DT")="2921002"
^DD(742.13,"B","MEDICATION ERRORS",.01)=""
^DD(742.13,"B","NUMBER",.001)=""
^DD(742.13,"B","STATUS",.02)=""
^DD(742.13,"GL",0,1,.01)=""
^DD(742.13,"GL",0,2,.02)=""
^DD(742.13,"IX",.01)=""
^DD(742.13,"IX",.02)=""
^DD(742.13,"RQ",.01)=""
^DD(742.13,"RQ",.02)=""
^DD(742.14,0)="FIELD^^.02^3"
^DD(742.14,0,"DDA")="N"
^DD(742.14,0,"DT")="2920407"
^DD(742.14,0,"IX","B",742.14,.01)=""
^DD(742.14,0,"IX","BSTAT",742.14,.02)=""
^DD(742.14,0,"IX","BUPPER",742.14,.01)=""
^DD(742.14,0,"NM","QA COMPLICATIONS LEADING TO DEATH")=""
^DD(742.14,0,"PT",742.4,.15)=""
^DD(742.14,0,"PT",742.61,.01)=""
^DD(742.14,0,"VR")="2"
^DD(742.14,.001,0)="NUMBER^NJ3,0X^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(742.14,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(742.14,.001,21,0)="^^1^1^2920407^^^"
^DD(742.14,.001,21,1,0)="Holds the IEN of the QA Type of Death entry."
^DD(742.14,.001,"DT")="2920407"
^DD(742.14,.01,0)="DEATH TYPE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(742.14,.01,1,0)="^.1"
^DD(742.14,.01,1,1,0)="742.14^B"
^DD(742.14,.01,1,1,1)="S ^QA(742.14,""B"",$E(X,1,30),DA)="""""
^DD(742.14,.01,1,1,2)="K ^QA(742.14,""B"",$E(X,1,30),DA)"
^DD(742.14,.01,1,1,3)="Do not delete!"
^DD(742.14,.01,1,2,0)="742.14^BUPPER^MUMPS"
^DD(742.14,.01,1,2,1)="S ^QA(742.14,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(742.14,.01,1,2,2)="K ^QA(742.14,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(742.14,.01,1,2,3)="Do not delete!"
^DD(742.14,.01,1,2,"%D",0)="^^2^2^2911023^^"
^DD(742.14,.01,1,2,"%D",1,0)="Cross Reference files the uppercase text of the specific Complication"
^DD(742.14,.01,1,2,"%D",2,0)="Leading To Death."
^DD(742.14,.01,1,2,"DT")="2910903"
^DD(742.14,.01,3)="Answer must be 3-60 characters in length."
^DD(742.14,.01,21,0)="^^1^1^2910614^"
^DD(742.14,.01,21,1,0)="Input the reason for the death."
^DD(742.14,.01,"DEL",1,0)="I 1 W !,*7,""ENTRIES CANNOT BE DELETED!"""
^DD(742.14,.01,"DT")="2910903"
^DD(742.14,.02,0)="STATUS^S^1:ACTIVE;^0;2^Q"
^DD(742.14,.02,1,0)="^.1"
^DD(742.14,.02,1,1,0)="742.14^BSTAT"
^DD(742.14,.02,1,1,1)="S ^QA(742.14,""BSTAT"",$E(X,1,30),DA)="""""
^DD(742.14,.02,1,1,2)="K ^QA(742.14,""BSTAT"",$E(X,1,30),DA)"
^DD(742.14,.02,1,1,3)="Do not delete."
^DD(742.14,.02,1,1,"DT")="2920402"
^DD(742.14,.02,3)="Enter the Status for this particular Type of Death."
^DD(742.14,.02,21,0)="^^1^1^2920402^^"
^DD(742.14,.02,21,1,0)="Denotes whether the particular Type of Death is active or inactive."
^DD(742.14,.02,"DT")="2920402"
^DD(742.14,"B","DEATH TYPE",.01)=""
^DD(742.14,"B","NUMBER",.001)=""
^DD(742.14,"B","STATUS",.02)=""
^DD(742.14,"GL",0,1,.01)=""
^DD(742.14,"GL",0,2,.02)=""
^DD(742.14,"IX",.01)=""
^DD(742.14,"IX",.02)=""
^DD(742.14,"RQ",.01)=""
^DD(742.16,0)="OTHER QA REPORT FORMS SUB-FIELD^^.01^1"
^DD(742.16,0,"DT")="2920727"
^DD(742.16,0,"IX","B",742.16,.01)=""
^DD(742.16,0,"NM","OTHER QA REPORT FORMS")=""
^DD(742.16,0,"UP")="742.1"
^DD(742.16,.01,0)="OTHER QA REPORT FORMS^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(742.16,.01,1,0)="^.1"
^DD(742.16,.01,1,1,0)="742.16^B"
^DD(742.16,.01,1,1,1)="S ^QA(742.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(742.16,.01,1,1,2)="K ^QA(742.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(742.16,.01,3)="Answer must be 1-30 characters in length."
^DD(742.16,.01,21,0)="^^1^1^2920727^^^"
^DD(742.16,.01,21,1,0)="Enter other report forms as they are applicable."
^DD(742.16,.01,"DT")="2920727"
^DD(742.16,"B","OTHER QA REPORT FORMS",.01)=""
^DD(742.16,"GL",0,1,.01)=""
^DD(742.16,"IX",.01)=""
^DD(742.4,0)="FIELD^^52^25"
^DD(742.4,0,"DDA")="N"
^DD(742.4,0,"DT")="2930827"
^DD(742.4,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^QA(742.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(742.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(742.4,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(742.4,0,"IX","AA1",742.4,.01)=""
^DD(742.4,0,"IX","AA2",742.4,.02)=""
^DD(742.4,0,"IX","AA3",742.4,.03)=""
^DD(742.4,0,"IX","ACS",742.4,.09)=""
^DD(742.4,0,"IX","ADTH",742.4,.15)=""
^DD(742.4,0,"IX","ANCS",742.4,.17)=""
^DD(742.4,0,"IX","B",742.4,.01)=""
^DD(742.4,0,"IX","BDT",742.4,.03)=""
^DD(742.4,0,"IX","BINC",742.4,.02)=""
^DD(742.4,0,"IX","BLOC",742.4,.04)=""
^DD(742.4,0,"NM","QA INCIDENT REPORT")=""
^DD(742.4,0,"PT",742,.03)=""
^DD(742.4,0,"VR")="2"
^DD(742.4,.01,0)="CASE NUMBER^FX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>13!($L(X)<7) X"
^DD(742.4,.01,1,0)="^.1^^-1"
^DD(742.4,.01,1,1,0)="742.4^B"
^DD(742.4,.01,1,1,1)="S ^QA(742.4,""B"",$E(X,1,30),DA)="""""
^DD(742.4,.01,1,1,2)="K ^QA(742.4,""B"",$E(X,1,30),DA)"
^DD(742.4,.01,1,1,3)="Do not delete!"
^DD(742.4,.01,1,2,0)="742.4^AA1^MUMPS"
^DD(742.4,.01,1,2,1)="S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""""),QAN(2)=$P(QAN,U,2),QAN(3)=$P(QAN,U,3) S:QAN(2)]""""&(QAN(3)]"""") ^QA(742.4,""AA"",QAN(3),QAN(2),X,DA)="""" K QAN"
^DD(742.4,.01,1,2,2)="S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""""),QAN(2)=$P(QAN,U,2),QAN(3)=$P(QAN,U,3) K:QAN(2)]""""&(QAN(3)]"""") ^QA(742.4,""AA"",QAN(3),QAN(2),X,DA) K QAN"
^DD(742.4,.01,1,2,3)="Do not delete!"
^DD(742.4,.01,1,2,"%D",0)="^^2^2^2911023^"
^DD(742.4,.01,1,2,"%D",1,0)="Cross Reference files the Case Number, Incident, and the Date of the "
^DD(742.4,.01,1,2,"%D",2,0)="Incident for ease of data retrieval."
^DD(742.4,.01,1,2,"DT")="2910425"
^DD(742.4,.01,3)="Answer must be 7-13 characters in length."
^DD(742.4,.01,21,0)="^^1^1^2910424^^"
^DD(742.4,.01,21,1,0)="Indicates the case number for this particular incident."
^DD(742.4,.01,"DEL",1,0)="I 1 W !!?5,*7,""Incident entries CANNOT be deleted."""
^DD(742.4,.01,"DT")="2910516"
^DD(742.4,.02,0)="INCIDENT^R*P742.1'^QA(742.1,^0;2^S DIC(""S"")=""I $P(^(0),U,6)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(742.4,.02,1,0)="^.1"
^DD(742.4,.02,1,1,0)="742.4^AA2^MUMPS"
^DD(742.4,.02,1,1,1)="S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""""),QAN(1)=$P(QAN,U),QAN(3)=$P(QAN,U,3) S:QAN(1)]""""&(QAN(3)]"""") ^QA(742.4,""AA"",QAN(3),X,QAN(1),DA)="""" K QAN"
^DD(742.4,.02,1,1,2)="S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""""),QAN(1)=$P(QAN,U),QAN(3)=$P(QAN,U,3) K:QAN(1)]""""&(QAN(3)]"""") ^QA(742.4,""AA"",QAN(3),X,QAN(1),DA) K QAN"
^DD(742.4,.02,1,1,3)="Do not delete!"
^DD(742.4,.02,1,1,"%D",0)="^^2^2^2911023^"
^DD(742.4,.02,1,1,"%D",1,0)="Cross Reference links the Case Number, Incident, and the Date of the  "
^DD(742.4,.02,1,1,"%D",2,0)="Incident for ease of data retrieval."
^DD(742.4,.02,1,1,"DT")="2910425"
^DD(742.4,.02,1,2,0)="742.4^BINC"
^DD(742.4,.02,1,2,1)="S ^QA(742.4,""BINC"",$E(X,1,30),DA)="""""
^DD(742.4,.02,1,2,2)="K ^QA(742.4,""BINC"",$E(X,1,30),DA)"
^DD(742.4,.02,1,2,"DT")="2910429"
^DD(742.4,.02,3)="Enter the incident on which to base this report."
^DD(742.4,.02,12)="Screens out inactives."
^DD(742.4,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,6)'=1"""
^DD(742.4,.02,21,0)="^^1^1^2910628^^^^"
^DD(742.4,.02,21,1,0)="Indicates the type of incident for this record."
^DD(742.4,.02,"DT")="2920401"
^DD(742.4,.03,0)="DATE OF INCIDENT^RD^^0;3^S %DT=""PETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(742.4,.03,1,0)="^.1"
^DD(742.4,.03,1,1,0)="742.4^AA3^MUMPS"
^DD(742.4,.03,1,1,1)="S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""""),QAN(1)=$P(QAN,U),QAN(2)=$P(QAN,U,2) S:QAN(2)]""""&(QAN(1)]"""") ^QA(742.4,""AA"",X,QAN(2),QAN(1),DA)="""" K QAN"
^DD(742.4,.03,1,1,2)="S QAN=$S($D(^QA(742.4,DA,0))#2:^(0),1:""""),QAN(1)=$P(QAN,U),QAN(2)=$P(QAN,U,2) K:QAN(1)]""""&(QAN(2)]"""") ^QA(742.4,""AA"",X,QAN(2),QAN(1),DA) K QAN"
^DD(742.4,.03,1,1,3)="Do not delete!"
^DD(742.4,.03,1,1,"DT")="2910425"
^DD(742.4,.03,1,2,0)="742.4^BDT"
^DD(742.4,.03,1,2,1)="S ^QA(742.4,""BDT"",$E(X,1,30),DA)="""""
^DD(742.4,.03,1,2,2)="K ^QA(742.4,""BDT"",$E(X,1,30),DA)"
^DD(742.4,.03,1,2,"%D",0)="^^1^1^2911104^"
^DD(742.4,.03,1,2,"%D",1,0)="Regular cross reference for date of an incident. "
^DD(742.4,.03,1,2,"DT")="2911104"
^DD(742.4,.03,3)="Enter the date of the incident."
^DD(742.4,.03,21,0)="^^1^1^2910806^^"
^DD(742.4,.03,21,1,0)="Indicates the date of the incident."
^DD(742.4,.03,"DT")="2911104"
^DD(742.4,.04,0)="INCIDENT LOCATION^*P742.5'^QA(742.5,^0;4^S DIC(""S"")=""I +$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(742.4,.04,1,0)="^.1"
^DD(742.4,.04,1,1,0)="742.4^BLOC"
^DD(742.4,.04,1,1,1)="S ^QA(742.4,""BLOC"",$E(X,1,30),DA)="""""
^DD(742.4,.04,1,1,2)="K ^QA(742.4,""BLOC"",$E(X,1,30),DA)"
^DD(742.4,.04,1,1,3)="Do not delete."
^DD(742.4,.04,1,1,"%D",0)="^^1^1^2920528^"
^DD(742.4,.04,1,1,"%D",1,0)="X-ref on incident location field."
^DD(742.4,.04,1,1,"DT")="2920528"
^DD(742.4,.04,3)="Enter the location of the incident."
^DD(742.4,.04,12)="Enter only active incident locations."
^DD(742.4,.04,12.1)="S DIC(""S"")=""I +$P(^(0),U,2)"""
^DD(742.4,.04,21,0)="^^1^1^2910701^^^^"
^DD(742.4,.04,21,1,0)="Indicates the location of the incident."
^DD(742.4,.04,"DT")="2920528"
^DD(742.4,.05,0)="INCIDENT DESCRIPTION^742.41^^1;0"
^DD(742.4,.05,21,0)="^^1^1^2910625^"
^DD(742.4,.05,21,1,0)="Contains the description of the incident."
^DD(742.4,.06,0)="PERSON REPORTING THE INCIDENT^P200'^VA(200,^0;5^Q"
^DD(742.4,.06,3)="Enter the person reporting the incident."
^DD(742.4,.06,21,0)="^^1^1^2910625^"
^DD(742.4,.06,21,1,0)="Contains the person who reported the incident."
^DD(742.4,.06,"DT")="2910625"
^DD(742.4,.07,0)="TITLE OF THE REPORTING PERSON^P3.1'^DIC(3.1,^0;6^Q"
^DD(742.4,.07,3)="Enter the title of the reporting person."
^DD(742.4,.07,21,0)="^^1^1^2910701^^^^"
^DD(742.4,.07,21,1,0)="Enter the title of the reporting person."
^DD(742.4,.07,"DT")="2910625"
^DD(742.4,.08,0)="WITNESSED^S^0:NO;1:YES;^0;7^Q"
^DD(742.4,.08,3)="Enter whether the incident had a witness."
^DD(742.4,.08,21,0)="^^1^1^2910625^"
^DD(742.4,.08,21,1,0)="Contains whether the incident had a witness."
^DD(742.4,.08,"DT")="2910628"
^DD(742.4,.09,0)="LOCAL CASE STATUS^S^0:CLOSED;1:OPEN;2:DELETED;3:QUICK;^0;8^Q"
^DD(742.4,.09,1,0)="^.1"
^DD(742.4,.09,1,1,0)="742.4^ACS"
^DD(742.4,.09,1,1,1)="S ^QA(742.4,""ACS"",$E(X,1,30),DA)="""""
^DD(742.4,.09,1,1,2)="K ^QA(742.4,""ACS"",$E(X,1,30),DA)"
^DD(742.4,.09,1,1,"%D",0)="^^1^1^2910830^"
^DD(742.4,.09,1,1,"%D",1,0)="X-REF FOR THE LOCAL CASE STATUS."
^DD(742.4,.09,1,1,"DT")="2910830"
^DD(742.4,.09,3)="Enter the case status for the incident."
^DD(742.4,.09,21,0)="^^1^1^2910806^^"
^DD(742.4,.09,21,1,0)="Contains the case status for the incident."
^DD(742.4,.09,"DT")="2920108"
^DD(742.4,.1,0)="VA 10-2633 DATE CREATED^DX^^0;9^S %DT=""ETX"",%DT(0)=$P(^QA(742.4,D0,0),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(742.4,.1,3)="Enter the date form VA 10-2633 was created. "
^DD(742.4,.1,21,0)="^^1^1^2910625^^"
^DD(742.4,.1,21,1,0)="Contains the date the form VA 10-2633 was created."
^DD(742.4,.1,"DT")="2910625"
^DD(742.4,.11,0)="VA 10-2633 DATE COMPLETED^DX^^0;10^S %DT=""ETX"",%DT(0)=$P(^QA(742.4,D0,0),U,9)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(742.4,.11,3)="Enter the date the form VA 10-2633 was completed. "
^DD(742.4,.11,21,0)="^^1^1^2910625^^"
^DD(742.4,.11,21,1,0)="Contains the date the form VA 10-2633 was completed."
^DD(742.4,.11,"DT")="2910625"
^DD(742.4,.12,0)="LEVEL OF REVIEW^S^1:NONE;2:ADMINISTRATIVE INVESTIGATION;3:OTHER;4:M&M/PEER REVIEW;^0;11^Q"
^DD(742.4,.12,3)="Enter the level of review for the incident."
^DD(742.4,.12,21,0)="^^1^1^2910625^^"
^DD(742.4,.12,21,1,0)="Contains the type of level of review."
^DD(742.4,.12,"DT")="2930827"
^DD(742.4,.13,0)="LR DATE INITIATED^DX^^0;12^S %DT=""ETX"",%DT(0)=$P(^QA(742.4,D0,0),U,3)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(742.4,.13,3)="Enter the date the level of review was initiated."
^DD(742.4,.13,21,0)="^^1^1^2910625^^"
^DD(742.4,.13,21,1,0)="Contains the date the level of review was initiated."
^DD(742.4,.13,"DT")="2910625"
^DD(742.4,.14,0)="LR DATE COMPLETED^DX^^0;13^S %DT=""ETX"",%DT(0)=$P(^QA(742.4,D0,0),U,12)\1 D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(742.4,.14,3)="Enter the date the level of review was completed."
^DD(742.4,.14,21,0)="^^1^1^2910625^"
^DD(742.4,.14,21,1,0)="Contains the date the level of review was completed. "
^DD(742.4,.14,"DT")="2910625"
^DD(742.4,.15,0)="QA TYPE OF DEATH^*P742.14'^QA(742.14,^0;14^S DIC(""S"")=""I +$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(742.4,.15,1,0)="^.1"
^DD(742.4,.15,1,1,0)="742.4^ADTH"
^DD(742.4,.15,1,1,1)="S ^QA(742.4,""ADTH"",$E(X,1,30),DA)="""""
^DD(742.4,.15,1,1,2)="K ^QA(742.4,""ADTH"",$E(X,1,30),DA)"
^DD(742.4,.15,1,1,"%D",0)="^^1^1^2910830^"
^DD(742.4,.15,1,1,"%D",1,0)="X-REF FOR THE TYPE OF DEATH."
^DD(742.4,.15,1,1,"DT")="2910830"
^DD(742.4,.15,3)="Enter the reason for death."
^DD(742.4,.15,12)="Valid Types of Death are active Types of Death."
^DD(742.4,.15,12.1)="S DIC(""S"")=""I +$P(^(0),U,2)"""
^DD(742.4,.15,21,0)="^^1^1^2910625^"
^DD(742.4,.15,21,1,0)="Contains the reason for the patient's death."
^DD(742.4,.15,"DT")="2920402"
^DD(742.4,.16,0)="MEDICAL CENTER ACTION^742.42SA^^2;0"
^DD(742.4,.16,21,0)="^^1^1^2920507^^"
^DD(742.4,.16,21,1,0)="Contains the action(s) taken by the medical center."
^DD(742.4,.16,"DT")="2910628"
^DD(742.4,.17,0)="NATIONAL CASE STATUS^S^0:CLOSED;1:OPEN;2:DELETED;3:QUICK;4:FULL;^0;15^Q"
^DD(742.4,.17,1,0)="^.1"
^DD(742.4,.17,1,1,0)="742.4^ANCS"
^DD(742.4,.17,1,1,1)="S ^QA(742.4,""ANCS"",$E(X,1,30),DA)="""""
^DD(742.4,.17,1,1,2)="K ^QA(742.4,""ANCS"",$E(X,1,30),DA)"
^DD(742.4,.17,1,1,"%D",0)="^^1^1^2910830^"
^DD(742.4,.17,1,1,"%D",1,0)="X-REF FOR THE NATIONAL CASE STATUS."
^DD(742.4,.17,1,1,"DT")="2910830"
^DD(742.4,.17,3)="Enter the National Case Status for the incident."
^DD(742.4,.17,21,0)="^^1^1^2910708^^^"
^DD(742.4,.17,21,1,0)="Indicates the case status on the national level."
^DD(742.4,.17,"DT")="2910830"
^DD(742.4,.18,0)="PATIENT ABUSE ALLEGED/PROVEN^S^0:ALLEGED;1:PROVEN;^0;16^Q"
^DD(742.4,.18,3)="Enter whether the Patient Abuse was alleged or proven."
^DD(742.4,.18,21,0)="^^2^2^2920713^"
^DD(742.4,.18,21,1,0)="Indicates whether the incident of patient abuse was proven.  '1' for a "
^DD(742.4,.18,21,2,0)="proven case, '0' for an alleged case."
^DD(742.4,.18,"DT")="2910701"
^DD(742.4,.19,0)="BENEFICIARY QUARTERLY REPORT^S^1:YES;0:NO;^0;17^Q"
^DD(742.4,.19,3)="Enter whether the Beneficiary Quarterly Report can be generated from the incident."
^DD(742.4,.19,21,0)="^^2^2^2910701^"
^DD(742.4,.19,21,1,0)="Indicates whether the Beneficiary Quarterly Report can be generated based"
^DD(742.4,.19,21,2,0)="on the incident."
^DD(742.4,.19,"DT")="2910701"
^DD(742.4,.2,0)="PERTINENT INFORMATION^742.43^^3;0"
^DD(742.4,.2,21,0)="^^1^1^2910703^"
^DD(742.4,.2,21,1,0)="Contains any Pertinent Information as it applies to the incident."
^DD(742.4,.21,0)="INCIDENT TRANSMITTED TO DATABASE^S^1:TRANSMITTED;0:NOT TRANSMITTED;^0;18^Q"
^DD(742.4,.21,3)="Enter whether the Incident has been previously rolled up to the system."
^DD(742.4,.21,21,0)="^^2^2^2921006^^^"
^DD(742.4,.21,21,1,0)="This field flags whether an incident has been 'rolled' up to the regional"
^DD(742.4,.21,21,2,0)="NQABD system."
^DD(742.4,.21,"DT")="2980522"
^DD(742.4,.22,0)="LEVEL OF REVIEW (OTHER)^F^^0;19^K:$L(X)>30!($L(X)<3) X"
^DD(742.4,.22,3)="Answer must be 3-30 characters in length."
^DD(742.4,.22,21,0)="^^2^2^2920109^"
^DD(742.4,.22,21,1,0)="Contains the Level of Review type which is not contained in the Level of "
^DD(742.4,.22,21,2,0)="Review field."
^DD(742.4,.22,"DT")="2920109"
^DD(742.4,.23,0)="INCIDENT SUMMARY DATA^S^1:YES;^0;21^Q"
^DD(742.4,.23,3)="Enter whether Incident Summary Data has been used for the Quarterly Summary."
^DD(742.4,.23,21,0)="^^1^1^2920325^"
^DD(742.4,.23,21,1,0)="Denotes whether Incident Data has been used for the Quarterly Summary."
^DD(742.4,.23,"DT")="2920325"
^DD(742.4,50,0)="INCIDENT AUDIT TRAIL^P740.5'^QA(740.5,^0;20^Q"
^DD(742.4,50,3)="Pointer to the QA Audit file."
^DD(742.4,50,21,0)="^^1^1^2920317^"
^DD(742.4,50,21,1,0)="Files any changes to the QA Incident file to the QA Audit file."
^DD(742.4,50,"DT")="2920317"
^DD(742.4,52,0)="DIVISION^*P4'^DIC(4,^0;22^S DIC(""S"")=""I $D(^QA(740,1,""""QAN2"""",""""B"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(742.4,52,3)="Choice to be made from entries in site's QA Site Parameter file (#740)."
^DD(742.4,52,12)="Choice to be made from entries in site's QA Site parameter file (#740)."
^DD(742.4,52,12.1)="S DIC(""S"")=""I $D(^QA(740,1,""""QAN2"""",""""B"""",Y))"""
^DD(742.4,52,"DT")="2971224"
^DD(742.4,"B","BENEFICIARY QUARTERLY REPORT",.19)=""
^DD(742.4,"B","CASE NUMBER",.01)=""
^DD(742.4,"B","DATE OF INCIDENT",.03)=""
^DD(742.4,"B","DIVISION",52)=""
^DD(742.4,"B","INCIDENT",.02)=""
^DD(742.4,"B","INCIDENT AUDIT TRAIL",50)=""
^DD(742.4,"B","INCIDENT DESCRIPTION",.05)=""
^DD(742.4,"B","INCIDENT LOCATION",.04)=""
^DD(742.4,"B","INCIDENT SUMMARY DATA",.23)=""
^DD(742.4,"B","INCIDENT TRANSMITTED TO DATABASE",.21)=""
^DD(742.4,"B","LEVEL OF REVIEW",.12)=""
^DD(742.4,"B","LEVEL OF REVIEW (OTHER)",.22)=""
^DD(742.4,"B","LOCAL CASE STATUS",.09)=""
^DD(742.4,"B","LR DATE COMPLETED",.14)=""
^DD(742.4,"B","LR DATE INITIATED",.13)=""
^DD(742.4,"B","MEDICAL CENTER ACTION",.16)=""
^DD(742.4,"B","NATIONAL CASE STATUS",.17)=""
^DD(742.4,"B","PATIENT ABUSE ALLEGED/PROVEN",.18)=""
^DD(742.4,"B","PERSON REPORTING THE INCIDENT",.06)=""
^DD(742.4,"B","PERTINENT INFORMATION",.2)=""
^DD(742.4,"B","QA TYPE OF DEATH",.15)=""
^DD(742.4,"B","TITLE OF THE REPORTING PERSON",.07)=""
^DD(742.4,"B","VA 10-2633 DATE COMPLETED",.11)=""
^DD(742.4,"B","VA 10-2633 DATE CREATED",.1)=""
^DD(742.4,"B","WITNESSED",.08)=""
^DD(742.4,"GL",0,1,.01)=""
^DD(742.4,"GL",0,2,.02)=""
^DD(742.4,"GL",0,3,.03)=""
^DD(742.4,"GL",0,4,.04)=""
^DD(742.4,"GL",0,5,.06)=""
^DD(742.4,"GL",0,6,.07)=""
^DD(742.4,"GL",0,7,.08)=""
^DD(742.4,"GL",0,8,.09)=""
^DD(742.4,"GL",0,9,.1)=""
^DD(742.4,"GL",0,10,.11)=""
^DD(742.4,"GL",0,11,.12)=""
^DD(742.4,"GL",0,12,.13)=""
^DD(742.4,"GL",0,13,.14)=""
^DD(742.4,"GL",0,14,.15)=""
^DD(742.4,"GL",0,15,.17)=""
^DD(742.4,"GL",0,16,.18)=""
^DD(742.4,"GL",0,17,.19)=""
^DD(742.4,"GL",0,18,.21)=""
^DD(742.4,"GL",0,19,.22)=""
^DD(742.4,"GL",0,20,50)=""
^DD(742.4,"GL",0,21,.23)=""
^DD(742.4,"GL",0,22,52)=""
^DD(742.4,"GL",1,0,.05)=""
^DD(742.4,"GL",2,0,.16)=""
^DD(742.4,"GL",3,0,.2)=""
^DD(742.4,"IX",.01)=""
^DD(742.4,"IX",.02)=""
^DD(742.4,"IX",.03)=""
^DD(742.4,"IX",.04)=""
^DD(742.4,"IX",.09)=""
^DD(742.4,"IX",.15)=""
^DD(742.4,"IX",.17)=""
^DD(742.4,"RQ",.02)=""
^DD(742.4,"RQ",.03)=""
^DD(742.4,"SB",742.41,.05)=""
^DD(742.4,"SB",742.42,.16)=""
^DD(742.4,"SB",742.43,.2)=""
^DD(742.41,0)="INCIDENT DESCRIPTION SUB-FIELD^^.01^1"
^DD(742.41,0,"DT")="2910625"
^DD(742.41,0,"NM","INCIDENT DESCRIPTION")=""
^DD(742.41,0,"UP")="742.4"
^DD(742.41,.01,0)="INCIDENT DESCRIPTION^W^^0;1^Q"
^DD(742.41,.01,3)="Enter the description of the incident."
^DD(742.41,.01,21,0)="^^1^1^2910625^"
^DD(742.41,.01,21,1,0)="Contains the description of the incident."
^DD(742.41,.01,"DT")="2910625"
^DD(742.41,"B","INCIDENT DESCRIPTION",.01)=""
^DD(742.41,"GL",0,1,.01)=""
^DD(742.42,0)="MEDICAL CENTER ACTION SUB-FIELD^^.01^1"
^DD(742.42,0,"DT")="2920507"
^DD(742.42,0,"IX","B",742.42,.01)=""
^DD(742.42,0,"NM","MEDICAL CENTER ACTION")=""
^DD(742.42,0,"UP")="742.4"
^DD(742.42,.01,0)="MEDICAL CENTER ACTION^MS^1:CHANGE IN POLICY/PROCEDURE;2:EDUCATION/TRAINING;3:SYSTEMS CHANGE;4:DISCIPLINARY;5:DISTRICT COUNSEL NOTIFIED;6:NONE INDICATED;^0;1^Q"
^DD(742.42,.01,1,0)="^.1"
^DD(742.42,.01,1,1,0)="742.42^B"
^DD(742.42,.01,1,1,1)="S ^QA(742.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(742.42,.01,1,1,2)="K ^QA(742.4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(742.42,.01,3)="Enter the appropriate medical center action."
^DD(742.42,.01,21,0)="^^1^1^2920507^^^"
^DD(742.42,.01,21,1,0)="Contains the action taken by the medical center."
^DD(742.42,.01,"DT")="2920507"
^DD(742.42,"B","MEDICAL CENTER ACTION",.01)=""
^DD(742.42,"GL",0,1,.01)=""
^DD(742.42,"IX",.01)=""
^DD(742.43,0)="PERTINENT INFORMATION SUB-FIELD^^.01^1"
^DD(742.43,0,"DT")="2910703"
^DD(742.43,0,"NM","PERTINENT INFORMATION")=""
^DD(742.43,0,"UP")="742.4"
^DD(742.43,.01,0)="PERTINENT INFORMATION^W^^0;1^Q"
^DD(742.43,.01,3)="Enter any Pertinent Information as it applies to the incident."
^DD(742.43,.01,21,0)="^^1^1^2910703^"
^DD(742.43,.01,21,1,0)="Contains any Pertinent Information as it applies to the incident."
^DD(742.43,.01,"DT")="2910703"
^DD(742.43,"B","PERTINENT INFORMATION",.01)=""
^DD(742.43,"GL",0,1,.01)=""
^DD(742.5,0)="FIELD^^.02^3"
^DD(742.5,0,"DDA")="N"
^DD(742.5,0,"DT")="2920722"
^DD(742.5,0,"IX","B",742.5,.01)=""
^DD(742.5,0,"IX","BSTAT",742.5,.02)=""
^DD(742.5,0,"IX","BUPPER",742.5,.01)=""
^DD(742.5,0,"NM","QA INCIDENT LOCATION")=""
^DD(742.5,0,"PT",742.4,.04)=""
^DD(742.5,0,"VR")="2"
^DD(742.5,.001,0)="INCIDENT LOCATION NUMBER^FX^^ ^K:X[""""""""!($A(X)=45)!(X<200) X I $D(X) K:$L(X)>6!($L(X)<3)!((X'?3N)&(X'?3N1"".""1.2N)) X D:$D(^QA(742.1,+X,0)) EN3^QANAUX1 S:$D(X) DINUM=X"
^DD(742.5,.001,3)="Answer must be 3-6 numbers in length, greater than or equal to 200, with or without two decimal places."
^DD(742.5,.001,21,0)="^^3^3^2920722^"
^DD(742.5,.001,21,1,0)="Incident Location Number links a unique number with a particular incident."
^DD(742.5,.001,21,2,0)="All local incident locations must have numbers of 200 or greater.  This"
^DD(742.5,.001,21,3,0)="number may or may not have two decimal places."
^DD(742.5,.001,"DT")="2920722"
^DD(742.5,.01,0)="INCIDENT LOCATION^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(742.5,.01,1,0)="^.1"
^DD(742.5,.01,1,1,0)="742.5^B"
^DD(742.5,.01,1,1,1)="S ^QA(742.5,""B"",$E(X,1,30),DA)="""""
^DD(742.5,.01,1,1,2)="K ^QA(742.5,""B"",$E(X,1,30),DA)"
^DD(742.5,.01,1,1,3)="Do not delete!"
^DD(742.5,.01,1,2,0)="742.5^BUPPER"
^DD(742.5,.01,1,2,1)="S ^QA(742.5,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(742.5,.01,1,2,2)="K ^QA(742.5,""BUPPER"",$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(742.5,.01,1,2,3)="Do not delete!"
^DD(742.5,.01,1,2,"%D",0)="^^1^1^2911023^"
^DD(742.5,.01,1,2,"%D",1,0)="Cross Reference files the uppercase text of the Incident Location."
^DD(742.5,.01,1,2,"DT")="2910710"
^DD(742.5,.01,3)="Answer must be 3-30 characters in length."
^DD(742.5,.01,21,0)="^^1^1^2910614^"
^DD(742.5,.01,21,1,0)="Location where the incident has taken place."
^DD(742.5,.01,"DEL",1,0)="I 1 W !,*7,""Incident Locations CANNOT be deleted."""
^DD(742.5,.01,"DT")="2910710"
^DD(742.5,.02,0)="LOCATION STATUS^S^1:ACTIVE;^0;2^Q"
^DD(742.5,.02,1,0)="^.1"
^DD(742.5,.02,1,1,0)="742.5^BSTAT"
^DD(742.5,.02,1,1,1)="S ^QA(742.5,""BSTAT"",$E(X,1,30),DA)="""""
^DD(742.5,.02,1,1,2)="K ^QA(742.5,""BSTAT"",$E(X,1,30),DA)"
^DD(742.5,.02,1,1,3)="Do not delete."
^DD(742.5,.02,1,1,"%D",0)="^^1^1^2920428^"
^DD(742.5,.02,1,1,"%D",1,0)="Indicates the status of an Incident Location."
^DD(742.5,.02,1,1,"DT")="2920428"
^DD(742.5,.02,3)="Enter if the location is currently valid."
^DD(742.5,.02,21,0)="^^1^1^2920429^^"
^DD(742.5,.02,21,1,0)="Indicates whether a location is currently active on the system."
^DD(742.5,.02,"DT")="2920429"
^DD(742.5,"B","INCIDENT LOCATION",.01)=""
^DD(742.5,"B","INCIDENT LOCATION NUMBER",.001)=""
^DD(742.5,"B","LOCATION STATUS",.02)=""
^DD(742.5,"GL",0,1,.01)=""
^DD(742.5,"GL",0,2,.02)=""
^DD(742.5,"IX",.01)=""
^DD(742.5,"IX",.02)=""
^DD(742.5,"RQ",.01)=""
^DD(742.6,0)="FIELD^^1^18"
^DD(742.6,0,"DDA")="N"
^DD(742.6,0,"DT")="2920326"
^DD(742.6,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(742.6,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(742.6,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(742.6,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^QA(742.1,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(742.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(742.6,0,"IX","AA1",742.6,.01)=""
^DD(742.6,0,"IX","AA2",742.6,.02)=""
^DD(742.6,0,"IX","AA3",742.6,.03)=""
^DD(742.6,0,"IX","AA4",742.6,.04)=""
^DD(742.6,0,"IX","B",742.6,.01)=""
^DD(742.6,0,"IX","BINC",742.6,.04)=""
^DD(742.6,0,"IX","BTYPE",742.6,.03)=""
^DD(742.6,0,"IX","QDATE",742.6,.02)=""
^DD(742.6,0,"NM","QA INCIDENT SUMMARY")=""
^DD(742.6,0,"VR")="2"
^DD(742.6,.01,0)="MEDICAL CENTER^P4'^DIC(4,^0;1^Q"
^DD(742.6,.01,1,0)="^.1"
^DD(742.6,.01,1,1,0)="742.6^B"
^DD(742.6,.01,1,1,1)="S ^QA(742.6,""B"",$E(X,1,30),DA)="""""
^DD(742.6,.01,1,1,2)="K ^QA(742.6,""B"",$E(X,1,30),DA)"
^DD(742.6,.01,1,2,0)="742.6^AA1^MUMPS"
^DD(742.6,.01,1,2,1)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) S:A4BV(2)]""""&(A4BV(3)]"""")&(A4BV(4)]"""") ^QA(742.6,""AA"",X,A4BV(2),A4BV(3),A4BV(4),DA)="""" K A4BV"
^DD(742.6,.01,1,2,2)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) K:A4BV(2)]""""&(A4BV(3)]"""")&(A4BV(4)]"""") ^QA(742.6,""AA"",X,A4BV(2),A4BV(3),A4BV(4),DA) K A4BV"
^DD(742.6,.01,1,2,3)="Do not delete."
^DD(742.6,.01,1,2,"%D",0)="^^2^2^2920310^"
^DD(742.6,.01,1,2,"%D",1,0)="Mumps x-ref to link medical center, date, patient type, and incident type"
^DD(742.6,.01,1,2,"%D",2,0)="together."
^DD(742.6,.01,1,2,"DT")="2920310"
^DD(742.6,.01,3)="Enter the Medical Center where the incident occurred."
^DD(742.6,.01,21,0)="^^1^1^2920309^"
^DD(742.6,.01,21,1,0)="This is the Medical Center where the incident occurred. "
^DD(742.6,.01,23,0)="^^1^1^2920309^"
^DD(742.6,.01,23,1,0)="Pointer to the Institution File."
^DD(742.6,.01,"DT")="2920310"
^DD(742.6,.02,0)="DATE^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(742.6,.02,1,0)="^.1"
^DD(742.6,.02,1,1,0)="742.6^AA2^MUMPS"
^DD(742.6,.02,1,1,1)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(1)=$P(A4BV,U),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) S:A4BV(1)]""""&(A4BV(3)]"""")&(A4BV(4)]"""") ^QA(742.6,""AA"",A4BV(1),X,A4BV(3),A4BV(4),DA)="""" K A4BV"
^DD(742.6,.02,1,1,2)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(1)=$P(A4BV,U),A4BV(3)=$P(A4BV,U,3),A4BV(4)=$P(A4BV,U,4) K:A4BV(1)]""""&(A4BV(3)]"""")&(A4BV(4)]"""") ^QA(742.6,""AA"",A4BV(1),X,A4BV(3),A4BV(4),DA) K A4BV"
^DD(742.6,.02,1,1,3)="Do not delete."
^DD(742.6,.02,1,1,"%D",0)="^^2^2^2920310^"
^DD(742.6,.02,1,1,"%D",1,0)="Mumps x-ref to link medical center, date, patient type, and incident type"
^DD(742.6,.02,1,1,"%D",2,0)="together."
^DD(742.6,.02,1,1,"DT")="2920310"
^DD(742.6,.02,1,2,0)="742.6^QDATE"
^DD(742.6,.02,1,2,1)="S ^QA(742.6,""QDATE"",$E(X,1,30),DA)="""""
^DD(742.6,.02,1,2,2)="K ^QA(742.6,""QDATE"",$E(X,1,30),DA)"
^DD(742.6,.02,1,2,3)="Do not delete."
^DD(742.6,.02,1,2,"%D",0)="^^1^1^2920326^"
^DD(742.6,.02,1,2,"%D",1,0)="Holds the beginning date of a quarter."
^DD(742.6,.02,1,2,"DT")="2920326"
^DD(742.6,.02,3)="Enter the date of the incident."
^DD(742.6,.02,21,0)="^^1^1^2920323^^^"
^DD(742.6,.02,21,1,0)="Holds the Date of the Quarterly Report."
^DD(742.6,.02,23,0)="^^1^1^2920309^^^"
^DD(742.6,.02,23,1,0)="Date the Quarterly Report was generated.  Date/Time, time not required."
^DD(742.6,.02,"DT")="2920326"
^DD(742.6,.03,0)="PATIENT TYPE^RS^I:INPATIENT;O:OUTPATIENT;N:NHCU;D:DOMICILIARY;^0;3^Q"
^DD(742.6,.03,1,0)="^.1"
^DD(742.6,.03,1,1,0)="742.6^AA3^MUMPS"
^DD(742.6,.03,1,1,1)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(1)=$P(A4BV,U),A4BV(4)=$P(A4BV,U,4) S:A4BV(2)]""""&(A4BV(1)]"""")&(A4BV(4)]"""") ^QA(742.6,""AA"",A4BV(1),A4BV(2),X,A4BV(4),DA)="""" K A4BV"
^DD(742.6,.03,1,1,2)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(1)=$P(A4BV,U),A4BV(4)=$P(A4BV,U,4) K:A4BV(2)]""""&(A4BV(1)]"""")&(A4BV(4)]"""") ^QA(742.6,""AA"",A4BV(1),A4BV(2),X,A4BV(4),DA) K A4BV"
^DD(742.6,.03,1,1,3)="Do not delete."
^DD(742.6,.03,1,1,"%D",0)="^^2^2^2920310^"
^DD(742.6,.03,1,1,"%D",1,0)="Mumps x-ref to link medical center, date, patient type, and incident type"
^DD(742.6,.03,1,1,"%D",2,0)="together."
^DD(742.6,.03,1,1,"DT")="2920310"
^DD(742.6,.03,1,2,0)="742.6^BTYPE"
^DD(742.6,.03,1,2,1)="S ^QA(742.6,""BTYPE"",$E(X,1,30),DA)="""""
^DD(742.6,.03,1,2,2)="K ^QA(742.6,""BTYPE"",$E(X,1,30),DA)"
^DD(742.6,.03,1,2,3)="Do not delete."
^DD(742.6,.03,1,2,"%D",0)="^^1^1^2920326^"
^DD(742.6,.03,1,2,"%D",1,0)="Holds the Patient Type."
^DD(742.6,.03,1,2,"DT")="2920326"
^DD(742.6,.03,3)="Enter the Patient Type, inpatient, outpatient, NHCU, or Domiciliary."
^DD(742.6,.03,21,0)="^^1^1^2920309^"
^DD(742.6,.03,21,1,0)="Indicates the Patient Type."
^DD(742.6,.03,23,0)="^^1^1^2920309^"
^DD(742.6,.03,23,1,0)="Patient Type: Set of Codes."
^DD(742.6,.03,"DT")="2920326"
^DD(742.6,.04,0)="INCIDENT TYPE^RP742.1'^QA(742.1,^0;4^Q"
^DD(742.6,.04,1,0)="^.1"
^DD(742.6,.04,1,1,0)="742.6^AA4^MUMPS"
^DD(742.6,.04,1,1,1)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(1)=$P(A4BV,U) S:A4BV(2)]""""&(A4BV(3)]"""")&(A4BV(1)]"""") ^QA(742.6,""AA"",A4BV(1),A4BV(2),A4BV(3),X,DA)="""" K A4BV"
^DD(742.6,.04,1,1,2)="S A4BV=$G(^QA(742.6,DA,0)),A4BV(2)=$P(A4BV,U,2),A4BV(3)=$P(A4BV,U,3),A4BV(1)=$P(A4BV,U) K:A4BV(2)]""""&(A4BV(3)]"""")&(A4BV(1)]"""") ^QA(742.6,""AA"",A4BV(1),A4BV(2),A4BV(3),X,DA) K A4BV"
^DD(742.6,.04,1,1,3)="Do not delete."
^DD(742.6,.04,1,1,"%D",0)="^^2^2^2920310^"
^DD(742.6,.04,1,1,"%D",1,0)="Mumps x-ref to link medical center, date, patient type, and incident type"
^DD(742.6,.04,1,1,"%D",2,0)="together."
^DD(742.6,.04,1,1,"DT")="2920310"
^DD(742.6,.04,1,2,0)="742.6^BINC"
^DD(742.6,.04,1,2,1)="S ^QA(742.6,""BINC"",$E(X,1,30),DA)="""""
^DD(742.6,.04,1,2,2)="K ^QA(742.6,""BINC"",$E(X,1,30),DA)"
^DD(742.6,.04,1,2,3)="Do not delete."
^DD(742.6,.04,1,2,"%D",0)="^^1^1^2920326^^"
^DD(742.6,.04,1,2,"%D",1,0)="Holds the incident."
^DD(742.6,.04,1,2,"DT")="2920326"
^DD(742.6,.04,3)="Enter the Type of Incident."
^DD(742.6,.04,21,0)="^^1^1^2920309^"
^DD(742.6,.04,21,1,0)="Indicates the Type of Incident."
^DD(742.6,.04,23,0)="^^1^1^2920309^"
^DD(742.6,.04,23,1,0)="Pointer to QA Incidents File.  LAYGO not allowed."
^DD(742.6,.04,"DT")="2920326"
^DD(742.6,.05,0)="TOTAL NON-INVESTIGATED^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.05,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.05,21,0)="^^1^1^2920309^"
^DD(742.6,.05,21,1,0)="Holds the Total Number of NON investigated incidents for a given quarter."
^DD(742.6,.05,"DT")="2920309"
^DD(742.6,.06,0)="TOTAL INVESTIGATED^NJ7,0^^0;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.06,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.06,21,0)="^^1^1^2920310^^"
^DD(742.6,.06,21,1,0)="Holds the Total number of Investigated incidents over a given quarter."
^DD(742.6,.06,"DT")="2920309"
^DD(742.6,.07,0)="TOTAL NON-INVESTIGATED 0^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.07,.1)="TOTAL NON-INVESTIGATED SEV LVL 0"
^DD(742.6,.07,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.07,21,0)="^^1^1^2920309^"
^DD(742.6,.07,21,1,0)="Holds the Total of Non-Investigated incidents with a Severity Level of 0."
^DD(742.6,.07,"DT")="2920309"
^DD(742.6,.08,0)="TOTAL NON-INVESTIGATED 1^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.08,.1)="TOTAL NON-INVESTIGATED SEV LVL 1"
^DD(742.6,.08,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.08,21,0)="^^1^1^2920309^"
^DD(742.6,.08,21,1,0)="Holds the Total of Non-Investigated incidents with a Severity Level of 1."
^DD(742.6,.08,"DT")="2920309"
^DD(742.6,.09,0)="TOTAL NON-INVESTIGATED 2^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.09,.1)="TOTAL NON-INVESTIGATED SEV LVL 2"
^DD(742.6,.09,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.09,21,0)="^^2^2^2920310^"
^DD(742.6,.09,21,1,0)="Holds the Total Number of Non-Investigated incidents with a Severity Level"
^DD(742.6,.09,21,2,0)="of 2."
^DD(742.6,.09,"DT")="2920310"
^DD(742.6,.1,0)="TOTAL NON-INVESTIGATED 3^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.1,.1)="TOTAL NON-INVESTIGATED SEV LVL 3"
^DD(742.6,.1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.1,21,0)="^^2^2^2920310^"
^DD(742.6,.1,21,1,0)="Holds the Total Number of Non-Investigated incidents with a Severity Level"
^DD(742.6,.1,21,2,0)="of 3."
^DD(742.6,.1,"DT")="2920310"
^DD(742.6,.11,0)="TOTAL INVESTIGATED 0^NJ7,0^^0;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.11,.1)="TOTAL INVESTIGATED SEV LVL 0"
^DD(742.6,.11,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.11,21,0)="^^1^1^2920310^"
^DD(742.6,.11,21,1,0)="Holds the Total Number of Investigated incidents with a Severity Level of 0."
^DD(742.6,.11,"DT")="2920310"
^DD(742.6,.12,0)="TOTAL INVESTIGATED 1^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.12,.1)="TOTAL INVESTIGATED SEV LVL 1"
^DD(742.6,.12,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.12,21,0)="^^1^1^2920310^"
^DD(742.6,.12,21,1,0)="Holds the Total Number of Investigated incidents with a Severity Level of 1."
^DD(742.6,.12,"DT")="2920310"
^DD(742.6,.13,0)="TOTAL INVESTIGATED 2^NJ7,0^^0;13^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.13,.1)="TOTAL INVESTIGATED SEV LVL 2"
^DD(742.6,.13,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.13,21,0)="^^1^1^2920310^"
^DD(742.6,.13,21,1,0)="Holds the Total Number of Investigated incidents with a Severity Level of 2."
^DD(742.6,.13,"DT")="2920310"
^DD(742.6,.14,0)="TOTAL INVESTIGATED 3^NJ7,0^^0;14^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.6,.14,.1)="TOTAL INVESTIGATED SEV LVL 3"
^DD(742.6,.14,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.6,.14,21,0)="^^1^1^2920310^"
^DD(742.6,.14,21,1,0)="Holds the Total Number of Investigated incidents with a Severity Level of 3."
^DD(742.6,.14,"DT")="2920310"
^DD(742.6,.15,0)="DATE ENTERED^D^^0;15^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(742.6,.15,3)="Enter the Date the data was rolled up into the database."
^DD(742.6,.15,21,0)="^^1^1^2920310^"
^DD(742.6,.15,21,1,0)="Holds the Date the data was rolled up into the database."
^DD(742.6,.15,23,0)="^^1^1^2920310^"
^DD(742.6,.15,23,1,0)="Date/Time, Time optional."
^DD(742.6,.15,"DT")="2920310"
^DD(742.6,.16,0)="ALLEGED/PROVEN^S^1:PROVEN;0:ALLEGED;^0;16^Q"
^DD(742.6,.16,3)="Enter whether the Incident was alleged or proven."
^DD(742.6,.16,21,0)="^^1^1^2920323^"
^DD(742.6,.16,21,1,0)="Defines whether the incident was alleged or proven."
^DD(742.6,.16,"DT")="2920324"
^DD(742.6,.17,0)="TRANSMITTED TO REGION^S^1:YES;^0;17^Q"
^DD(742.6,.17,3)="Enter whether the data has been sent to the region."
^DD(742.6,.17,21,0)="^^1^1^2920508^^"
^DD(742.6,.17,21,1,0)="Defines whether the data has been sent to the region."
^DD(742.6,.17,"DT")="2920326"
^DD(742.6,1,0)="INSTANCE OF DEATH^742.61PA^^1;0"
^DD(742.6,1,21,0)="^^2^2^2921013^^"
^DD(742.6,1,21,1,0)="Contains the totals for investigated and non-investigated types of "
^DD(742.6,1,21,2,0)="deaths."
^DD(742.6,"B","ALLEGED/PROVEN",.16)=""
^DD(742.6,"B","DATE",.02)=""
^DD(742.6,"B","DATE ENTERED",.15)=""
^DD(742.6,"B","INCIDENT TYPE",.04)=""
^DD(742.6,"B","INSTANCE OF DEATH",1)=""
^DD(742.6,"B","MEDICAL CENTER",.01)=""
^DD(742.6,"B","PATIENT TYPE",.03)=""
^DD(742.6,"B","TOTAL INVESTIGATED",.06)=""
^DD(742.6,"B","TOTAL INVESTIGATED 0",.11)=""
^DD(742.6,"B","TOTAL INVESTIGATED 1",.12)=""
^DD(742.6,"B","TOTAL INVESTIGATED 2",.13)=""
^DD(742.6,"B","TOTAL INVESTIGATED 3",.14)=""
^DD(742.6,"B","TOTAL INVESTIGATED SEV LVL 0",.11)="1"
^DD(742.6,"B","TOTAL INVESTIGATED SEV LVL 1",.12)="1"
^DD(742.6,"B","TOTAL INVESTIGATED SEV LVL 2",.13)="1"
^DD(742.6,"B","TOTAL INVESTIGATED SEV LVL 3",.14)="1"
^DD(742.6,"B","TOTAL NON-INVESTIGATED",.05)=""
^DD(742.6,"B","TOTAL NON-INVESTIGATED 0",.07)=""
^DD(742.6,"B","TOTAL NON-INVESTIGATED 1",.08)=""
^DD(742.6,"B","TOTAL NON-INVESTIGATED 2",.09)=""
^DD(742.6,"B","TOTAL NON-INVESTIGATED 3",.1)=""
^DD(742.6,"B","TRANSMITTED TO REGION",.17)=""
^DD(742.6,"GL",0,1,.01)=""
^DD(742.6,"GL",0,2,.02)=""
^DD(742.6,"GL",0,3,.03)=""
^DD(742.6,"GL",0,4,.04)=""
^DD(742.6,"GL",0,5,.05)=""
^DD(742.6,"GL",0,6,.06)=""
^DD(742.6,"GL",0,7,.07)=""
^DD(742.6,"GL",0,8,.08)=""
^DD(742.6,"GL",0,9,.09)=""
^DD(742.6,"GL",0,10,.1)=""
^DD(742.6,"GL",0,11,.11)=""
^DD(742.6,"GL",0,12,.12)=""
^DD(742.6,"GL",0,13,.13)=""
^DD(742.6,"GL",0,14,.14)=""
^DD(742.6,"GL",0,15,.15)=""
^DD(742.6,"GL",0,16,.16)=""
^DD(742.6,"GL",0,17,.17)=""
^DD(742.6,"GL",1,0,1)=""
^DD(742.6,"IX",.01)=""
^DD(742.6,"IX",.02)=""
^DD(742.6,"IX",.03)=""
^DD(742.6,"IX",.04)=""
^DD(742.6,"RQ",.02)=""
^DD(742.6,"RQ",.03)=""
^DD(742.6,"RQ",.04)=""
^DD(742.6,"SB",742.61,1)=""
^DD(742.61,0)="INSTANCE OF DEATH SUB-FIELD^^.03^3"
^DD(742.61,0,"IX","B",742.61,.01)=""
^DD(742.61,0,"NM","INSTANCE OF DEATH")=""
^DD(742.61,0,"UP")="742.6"
^DD(742.61,.01,0)="INSTANCE OF DEATH^P742.14'^QA(742.14,^0;1^Q"
^DD(742.61,.01,1,0)="^.1"
^DD(742.61,.01,1,1,0)="742.61^B"
^DD(742.61,.01,1,1,1)="S ^QA(742.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(742.61,.01,1,1,2)="K ^QA(742.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(742.61,.01,3)="Enter the apprpriate Type of Death."
^DD(742.61,.01,21,0)="^^1^1^2921013^^^"
^DD(742.61,.01,21,1,0)="Holds the Type of Death for a Death incident."
^DD(742.61,.01,"DT")="2920310"
^DD(742.61,.02,0)="TOTAL NON-INVESTIGATED^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.61,.02,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.61,.02,21,0)="^^1^1^2920310^^"
^DD(742.61,.02,21,1,0)="Holds the Total Number of Non-Investigated Deaths over a period of time."
^DD(742.61,.02,"DT")="2920310"
^DD(742.61,.03,0)="TOTAL INVESTIGATED^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(742.61,.03,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(742.61,.03,21,0)="^^1^1^2920310^"
^DD(742.61,.03,21,1,0)="Holds the Total Number of Investigated Deaths over a period of time."
^DD(742.61,.03,"DT")="2920310"
^DD(742.61,"B","INSTANCE OF DEATH",.01)=""
^DD(742.61,"B","TOTAL INVESTIGATED",.03)=""
^DD(742.61,"B","TOTAL NON-INVESTIGATED",.02)=""
^DD(742.61,"GL",0,1,.01)=""
^DD(742.61,"GL",0,2,.02)=""
^DD(742.61,"GL",0,3,.03)=""
^DD(742.61,"IX",.01)=""
^DD(743,0)="FIELD^^200^29"
^DD(743,0,"DDA")="N"
^DD(743,0,"DT")="2921021"
^DD(743,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(743,0,"ID","WRITE")="W ""   "",@(""$P($P($C(59)_$S($D(^DD(743,7,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(743,0,"IX","ASRV",743,1)=""
^DD(743,0,"IX","B",743,.01)=""
^DD(743,0,"IX","BU",743,.01)=""
^DD(743,0,"IX","C",743,.02)=""
^DD(743,0,"IX","CU",743,.02)=""
^DD(743,0,"NM","QA MONITOR")=""
^DD(743,0,"PT",741.1,200)=""
^DD(743,0,"PT",743.1,.02)=""
^DD(743,0,"PT",743.2,.01)=""
^DD(743,0,"PT",743.61,.01)=""
^DD(743,0,"VR")="1.0"
^DD(743,.01,0)="CODE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(743,.01,1,0)="^.1"
^DD(743,.01,1,1,0)="743^B"
^DD(743,.01,1,1,1)="S ^QA(743,""B"",$E(X,1,30),DA)="""""
^DD(743,.01,1,1,2)="K ^QA(743,""B"",$E(X,1,30),DA)"
^DD(743,.01,1,2,0)="743^BU^MUMPS"
^DD(743,.01,1,2,1)="S ^QA(743,""BU"",$E($$UP^XLFSTR(X),1,30),DA)="""""
^DD(743,.01,1,2,2)="K ^QA(743,""BU"",$E($$UP^XLFSTR(X),1,30),DA)"
^DD(743,.01,1,2,"%D",0)="^^1^1^2930514^"
^DD(743,.01,1,2,"%D",1,0)="Uppercase cross-reference of the CODE."
^DD(743,.01,1,2,"DT")="2930513"
^DD(743,.01,3)="Answer must be 3-30 characters in length."
^DD(743,.01,21,0)="^^3^3^2910104^^"
^DD(743,.01,21,1,0)="This can either be free text or a predetermined list (of initial"
^DD(743,.01,21,2,0)="identifying letters or numbers) as defined by the site so that monitors"
^DD(743,.01,21,3,0)="can be grouped and easily retrieved by the service, section, or whatever."
^DD(743,.01,"DEL",1,0)="S $P(^QA(743,0),""^"",3)=1 I 0"
^DD(743,.01,"DT")="2930513"
^DD(743,.02,0)="TITLE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(743,.02,1,0)="^.1"
^DD(743,.02,1,1,0)="743^C"
^DD(743,.02,1,1,1)="S ^QA(743,""C"",$E(X,1,30),DA)="""""
^DD(743,.02,1,1,2)="K ^QA(743,""C"",$E(X,1,30),DA)"
^DD(743,.02,1,2,0)="743^CU^MUMPS"
^DD(743,.02,1,2,1)="S ^QA(743,""CU"",$E($$UP^XLFSTR(X),1,30),DA)="""""
^DD(743,.02,1,2,2)="K ^QA(743,""CU"",$E($$UP^XLFSTR(X),1,30),DA)"
^DD(743,.02,1,2,"%D",0)="^^1^1^2930514^"
^DD(743,.02,1,2,"%D",1,0)="Uppercase cross-reference of the TITLE."
^DD(743,.02,1,2,"DT")="2930513"
^DD(743,.02,3)="Answer must be 3-30 characters in length."
^DD(743,.02,21,0)="^^1^1^2901207^"
^DD(743,.02,21,1,0)="This is a short free text name determined by the user for this monitor."
^DD(743,.02,"DT")="2930513"
^DD(743,1,0)="SERVICE^P49'^DIC(49,^0;3^Q"
^DD(743,1,1,0)="^.1"
^DD(743,1,1,1,0)="743^ASRV"
^DD(743,1,1,1,1)="S ^QA(743,""ASRV"",$E(X,1,30),DA)="""""
^DD(743,1,1,1,2)="K ^QA(743,""ASRV"",$E(X,1,30),DA)"
^DD(743,1,1,1,"DT")="2901217"
^DD(743,1,3)="Enter the service this monitor belongs to."
^DD(743,1,21,0)="^^3^3^2901207^"
^DD(743,1,21,1,0)="This field will allow the manager to track what monitors are currently"
^DD(743,1,21,2,0)="being used by each service.  The service entered has nothing to do with"
^DD(743,1,21,3,0)="the conditions chosen or what data is auto enrolled."
^DD(743,1,"DT")="2901217"
^DD(743,2,0)="STANDARD OF CARE^743.02^^STDC;0"
^DD(743,2,21,0)="^^1^1^2901207^"
^DD(743,2,21,1,0)="This word processing field defines the standard of care to be monitored."
^DD(743,3,0)="CLINICAL INDICATOR^743.03^^CLIN;0"
^DD(743,3,21,0)="^^2^2^2901207^"
^DD(743,3,21,1,0)="This word processing field defines the criteria necessary to meet the"
^DD(743,3,21,2,0)="standard of care."
^DD(743,4,0)="RATIONALE^743.04PA^^RAT;0"
^DD(743,4,21,0)="^^2^2^2910118^^^^"
^DD(743,4,21,1,0)="This field defines the rationale for the use of this monitor.  You may"
^DD(743,4,21,2,0)="select all that apply."
^DD(743,4,"DT")="2901217"
^DD(743,6,0)="AUTO ENROLL MONITOR^RS^1:YES;0:NO;^0;4^Q"
^DD(743,6,3)="Enter Y(es) if this is an auto enroll monitor."
^DD(743,6,21,0)="^^4^4^2901210^"
^DD(743,6,21,1,0)="This field determines whether or not this is an auto enroll monitor."
^DD(743,6,21,2,0)="You should answer Y(es) to this field only if this monitor can be auto"
^DD(743,6,21,3,0)="enrolled.  Your answer to this field will determine which conditions you"
^DD(743,6,21,4,0)="will be allowed to select."
^DD(743,6,"DT")="2910301"
^DD(743,7,0)="MONITOR STATUS^S^1:FINISHED;0:UNDER CONSTRUCTION;^0;5^Q"
^DD(743,7,3)="Enter FINISHED if you are totally finished editing this monitor."
^DD(743,7,21,0)="^^3^3^2910118^^^"
^DD(743,7,21,1,0)="Answer FINISHED to this field only when you are sure you are completely"
^DD(743,7,21,2,0)="finished entering/editing this monitor.  Once you answer FINISHED"
^DD(743,7,21,3,0)="you will no longer be able to edit selected monitor fields."
^DD(743,7,"DT")="2901211"
^DD(743,20,0)="CONDITION^743.01PA^^COND;0"
^DD(743,20,21,0)="^^3^3^2930910^^"
^DD(743,20,21,1,0)="A condition applies a True/False test on selected data elements in a"
^DD(743,20,21,2,0)="patient's record.  If the result of the test is true that patient's"
^DD(743,20,21,3,0)="record is captured for further processing."
^DD(743,25,0)="FALL OUT RELATIONSHIP^FX^^REL;E1,245^K:$L(X)>245!($L(X)<1) X D:$D(X) EN1^QAMUTL0"
^DD(743,25,3)="Enter the relationship among the conditions."
^DD(743,25,4)="D EN2^QAMUTL0"
^DD(743,25,21,0)="^^3^3^2901211^^^"
^DD(743,25,21,1,0)="This field specifically states the relationship between the conditions"
^DD(743,25,21,2,0)="entered by the user.  The user may use & (and), ! (or), ' (not), and"
^DD(743,25,21,3,0)="parentheses () to specify the relationship."
^DD(743,25,"DT")="2901214"
^DD(743,26,0)="SAMPLE RELATIONSHIP^FX^^SMP;E1,245^K:$L(X)>245!($L(X)<1) X D:$D(X) EN4^QAMUTL0"
^DD(743,26,3)="Enter the relationship among the sample conditions."
^DD(743,26,4)="D EN5^QAMUTL0"
^DD(743,26,21,0)="^^4^4^2910118^^"
^DD(743,26,21,1,0)="Enter the relationship among the conditions.  This field specifically"
^DD(743,26,21,2,0)="states the relationship between the conditions that contribute to the"
^DD(743,26,21,3,0)="sample size.  The user may use & (and), ! (or), ' (not) and"
^DD(743,26,21,4,0)="parentheses () to specify the relationship."
^DD(743,26,"DT")="2901214"
^DD(743,30,0)="OTHER DATA TO CAPTURE^743.06PA^^DAT;0"
^DD(743,30,21,0)="^^3^3^2910118^^^^"
^DD(743,30,21,1,0)="When a patient meets the conditions of the monitor and falls out, the"
^DD(743,30,21,2,0)="other data to capture entries define which data elements in the patient's"
^DD(743,30,21,3,0)="record should be collected."
^DD(743,50,0)="TIME FRAME^P743.92'^QA(743.92,^1;1^Q"
^DD(743,50,3)="Enter the time frame over which the collected data should be aggregated."
^DD(743,50,21,0)="^^3^3^2921216^"
^DD(743,50,21,1,0)="Time frame is the period of time over which the program begins capturing"
^DD(743,50,21,2,0)="data and then sums up the data to start all over again with the beginning"
^DD(743,50,21,3,0)="of the next similar time frame."
^DD(743,50,"DT")="2901206"
^DD(743,51,0)="MINIMUM SAMPLE^NJ7,0X^^1;2^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(743,51,.1)="PRE-THRESHOLD ALERT LEVEL"
^DD(743,51,3)="Type a Number between 0 and 1000000, 0 Decimal Digits"
^DD(743,51,21,0)="^^6^6^2920702^^^^"
^DD(743,51,21,1,0)="For PERCENT thresholds:"
^DD(743,51,21,2,0)="This field defines the minimum sample size (denominator)"
^DD(743,51,21,3,0)="that must be reached before threshold checking occurs."
^DD(743,51,21,4,0)="For NUMERIC thresholds:"
^DD(743,51,21,5,0)="This field may be used along with the BULLETIN WHEN MIN SAMPLE"
^DD(743,51,21,6,0)="MET field (set to YES) as a pre-threshold notification."
^DD(743,51,"DT")="2910507"
^DD(743,52,0)="THRESHOLD^FX^^1;3^K:$L(X)>8!($L(X)<1)!(+X<1)!(X'?1.N.1""%"") X I $D(X),X[""%"",+X>100 K X"
^DD(743,52,3)="Enter a number, optionally followed by a per-cent (%) sign, 8 characters max."
^DD(743,52,21,0)="^^3^3^2920730^^^^"
^DD(743,52,21,1,0)="Threshold defines the number or percentage of fall outs after which"
^DD(743,52,21,2,0)="some specific action will occur.  The threshold may be entered as a"
^DD(743,52,21,3,0)="pure numeric response (e.g., 38), or as a percentage (e.g., 38%)."
^DD(743,52,"DT")="2910507"
^DD(743,53,0)="HI/LO PERCENT^S^H:HIGH;L:LOW;^1;4^Q"
^DD(743,53,3)="Enter 'Hi' or 'Lo' to determine when threshold should be met."
^DD(743,53,21,0)="^^5^5^2910118^^"
^DD(743,53,21,1,0)="If the user chooses 'Hi', the threshold will be met when the percentage"
^DD(743,53,21,2,0)="is calculated to be >= the threshold."
^DD(743,53,21,3,0)="If the user chooses 'Lo', the threshold will be met when the percentage"
^DD(743,53,21,4,0)="is calculated to be <= the threshold."
^DD(743,53,21,5,0)="Hi/Lo Percent is only meaningful for percent thresholds."
^DD(743,53,"DT")="2910118"
^DD(743,54,0)="ON/OFF SWITCH^S^1:ON;0:OFF;^1;5^Q"
^DD(743,54,3)="Enter whether or not this monitor is active or inactive."
^DD(743,54,21,0)="^^4^4^2910118^^^"
^DD(743,54,21,1,0)="This field controls whether or not a monitor is active.  For an auto"
^DD(743,54,21,2,0)="enroll monitor to capture data the switch must be turned on.  For a"
^DD(743,54,21,3,0)="manual entry monitor to be selectable, the switch must be turned on."
^DD(743,54,21,4,0)="When you wish to stop using a monitor, this switch should be turned off."
^DD(743,54,"DT")="2901211"
^DD(743,55,0)="START DATE^D^^1;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743,55,3)="Enter the date to start this monitor."
^DD(743,55,21,0)="^^2^2^2901210^^"
^DD(743,55,21,1,0)="This field determines when the monitor should start to capture data,"
^DD(743,55,21,2,0)="or when manual entry of data for this monitor may begin."
^DD(743,55,"DT")="2901206"
^DD(743,56,0)="END DATE^DX^^1;7^S %DT=""EX"",%DT(0)=$S($D(^QA(743,D0,1))#2:$P(^(1),""^"",6),1:0) K:'%DT(0) %DT(0) D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(743,56,3)="Enter the date to stop this monitor."
^DD(743,56,21,0)="^^2^2^2901210^"
^DD(743,56,21,1,0)="This field determines when the monitor should stop capturing data, or"
^DD(743,56,21,2,0)="when manual entry of data for this monitor is no longer allowed."
^DD(743,56,"DT")="2901206"
^DD(743,57,0)="PRINT DAILY FALL OUT LIST^S^1:YES;0:NO;^1;8^Q"
^DD(743,57,3)="Enter Y(es) to print a daily list of all fall outs."
^DD(743,57,21,0)="^^2^2^2901210^"
^DD(743,57,21,1,0)="This field determines whether or not a generic list of all fall outs,"
^DD(743,57,21,2,0)="sorted by monitor, is printed daily."
^DD(743,57,"DT")="2910108"
^DD(743,58,0)="PRINT DAILY WORKSHEETS^S^1:YES;0:NO;^1;9^Q"
^DD(743,58,3)="Enter Y(es) to print worksheets for all fall outs."
^DD(743,58,21,0)="^^3^3^2910118^^"
^DD(743,58,21,1,0)="This field determines whether worksheets are printed daily for all fall"
^DD(743,58,21,2,0)="outs for this monitor.  For this to work, the worksheet must first be"
^DD(743,58,21,3,0)="created by a programmer and linked to the monitor."
^DD(743,58,"DT")="2901211"
^DD(743,59,0)="BULLETIN WHEN THRESHOLD MET^S^1:YES;0:NO;^1;10^Q"
^DD(743,59,3)="Enter Y(es) if a bulletin should be sent when the threshold is met."
^DD(743,59,21,0)="3"
^DD(743,59,21,1,0)="If this field is answered YES, then a bulletin will be sent to a specified"
^DD(743,59,21,2,0)="mail group when the threshold is met.  This bulletin is sent only once"
^DD(743,59,21,3,0)="per time frame."
^DD(743,59,"DT")="2901219"
^DD(743,60,0)="BULLETIN AT END OF TIME FRAME^S^1:YES;0:NO;^1;11^Q"
^DD(743,60,3)="Enter Y(es) if a bulletin should be sent at the end of each time frame."
^DD(743,60,21,0)="^^3^3^2910118^"
^DD(743,60,21,1,0)="If this field is answered YES, then a bulletin will be sent to a specified"
^DD(743,60,21,2,0)="mail group when the end of the time frame is reached.  This bulletin is"
^DD(743,60,21,3,0)="sent only once per time frame."
^DD(743,60,"DT")="2901219"
^DD(743,61,0)="BULLETIN WHEN MIN SAMPLE MET^S^1:YES;0:NO;^1;12^Q"
^DD(743,61,.1)="BULLETIN WHEN ALERT LEVEL MET"
^DD(743,61,3)="Enter Y(es) if a bulletin should be sent when the minimum sample is met."
^DD(743,61,21,0)="^^3^3^2910118^"
^DD(743,61,21,1,0)="If this field is answered YES, than a bulletin will be sent to a specified"
^DD(743,61,21,2,0)="mail group when the minimum sample size is met or exceeded.  This"
^DD(743,61,21,3,0)="bulletin is sent only once per time frame."
^DD(743,61,"DT")="2910128"
^DD(743,62,0)="BULLETIN MAIL GROUP^*P3.8'^XMB(3.8,^1;13^S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""PU"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(743,62,3)="Enter the mail group bulletins should be sent to."
^DD(743,62,12)="Only 'public' mail groups are selectable."
^DD(743,62,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",2)=""""PU"""""""
^DD(743,62,21,0)="^^2^2^2910118^^"
^DD(743,62,21,1,0)="This field contains the name of the mail group that the threshold,"
^DD(743,62,21,2,0)="minimum sample, and end of time frame bulletins will be sent to."
^DD(743,62,"DT")="2920713"
^DD(743,63,0)="ALLOW 'DUPLICATE' FALL OUTS^S^1:YES;0:NO;^1;14^Q"
^DD(743,63,3)="Enter Y(es) if duplicate fall outs are allowed within a time frame."
^DD(743,63,21,0)="^^8^8^2920702^^^^"
^DD(743,63,21,1,0)="Answering Y(es) to this question allows an event to fall out multiple"
^DD(743,63,21,2,0)="times for the same patient within a given time frame.  Answering N(o)"
^DD(743,63,21,3,0)="will allow the event to fall out only once per time frame."
^DD(743,63,21,4,0)=" "
^DD(743,63,21,5,0)="For example, a monitor is set up to capture all admissions over a"
^DD(743,63,21,6,0)="monthly time frame.  Assume a patient is admitted twice in the same"
^DD(743,63,21,7,0)="month.  Answering 'NO' to this question will capture only the"
^DD(743,63,21,8,0)="patient's first admission.  Answering 'YES' will capture both."
^DD(743,63,"DT")="2910115"
^DD(743,64,0)="CONDITION FOR DATE OF EVENT^NJ12,0X^^1;15^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) K:$D(^QA(743,D0,""COND"",X,0))[0 X"
^DD(743,64,3)="Enter the condition number that should be used to capture the event date."
^DD(743,64,4)="D EN1^QAMUTL1"
^DD(743,64,21,0)="^^7^7^2920702^"
^DD(743,64,21,1,0)="This field controls which of the conditions will provide the date that"
^DD(743,64,21,2,0)="will be used as the event date for the fall out.  You will usually"
^DD(743,64,21,3,0)="want to pick the condition whose date most uniquely defines the event"
^DD(743,64,21,4,0)="you are monitoring.  For example, if you were monitoring all female"
^DD(743,64,21,5,0)="(Condition #1: SEX) admissions (Condition #2: MAS MOVEMENT TYPE)"
^DD(743,64,21,6,0)="you would pick condition number two as the condition to supply the"
^DD(743,64,21,7,0)="event date."
^DD(743,64,"DT")="2920128"
^DD(743,100,0)="SPECIAL FUNCTIONS ROUTINE^K^^SFR;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(743,100,3)="This is Standard MUMPS code."
^DD(743,100,9)="@"
^DD(743,100,21,0)="^^2^2^2901210^"
^DD(743,100,21,1,0)="This field may contain the entry point of a routine that will perform"
^DD(743,100,21,2,0)="some special function on the captured data."
^DD(743,100,"DT")="2901206"
^DD(743,200,0)="WORKSHEET ROUTINE^K^^WSR;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(743,200,3)="This is Standard MUMPS code."
^DD(743,200,9)="@"
^DD(743,200,21,0)="^^2^2^2901210^"
^DD(743,200,21,1,0)="This field may contain the entry point of a routine that will print"
^DD(743,200,21,2,0)="a worksheet for all fallouts."
^DD(743,200,"DT")="2901210"
^DD(743,"B","ALLOW 'DUPLICATE' FALL OUTS",63)=""
^DD(743,"B","AUTO ENROLL MONITOR",6)=""
^DD(743,"B","BULLETIN AT END OF TIME FRAME",60)=""
^DD(743,"B","BULLETIN MAIL GROUP",62)=""
^DD(743,"B","BULLETIN WHEN ALERT LEVEL MET",61)="1"
^DD(743,"B","BULLETIN WHEN MIN SAMPLE MET",61)=""
^DD(743,"B","BULLETIN WHEN THRESHOLD MET",59)=""
^DD(743,"B","CLINICAL INDICATOR",3)=""
^DD(743,"B","CODE",.01)=""
^DD(743,"B","CONDITION",20)=""
^DD(743,"B","CONDITION FOR DATE OF EVENT",64)=""
^DD(743,"B","END DATE",56)=""
^DD(743,"B","FALL OUT RELATIONSHIP",25)=""
^DD(743,"B","HI/LO PERCENT",53)=""
^DD(743,"B","MINIMUM SAMPLE",51)=""
^DD(743,"B","MONITOR STATUS",7)=""
^DD(743,"B","ON/OFF SWITCH",54)=""
^DD(743,"B","OTHER DATA TO CAPTURE",30)=""
^DD(743,"B","PRE-THRESHOLD ALERT LEVEL",51)="1"
^DD(743,"B","PRINT DAILY FALL OUT LIST",57)=""
^DD(743,"B","PRINT DAILY WORKSHEETS",58)=""
^DD(743,"B","RATIONALE",4)=""
^DD(743,"B","SAMPLE RELATIONSHIP",26)=""
^DD(743,"B","SERVICE",1)=""
^DD(743,"B","SPECIAL FUNCTIONS ROUTINE",100)=""
^DD(743,"B","STANDARD OF CARE",2)=""
^DD(743,"B","START DATE",55)=""
^DD(743,"B","THRESHOLD",52)=""
^DD(743,"B","TIME FRAME",50)=""
^DD(743,"B","TITLE",.02)=""
^DD(743,"B","WORKSHEET ROUTINE",200)=""
^DD(743,"GL",0,1,.01)=""
^DD(743,"GL",0,2,.02)=""
^DD(743,"GL",0,3,1)=""
^DD(743,"GL",0,4,6)=""
^DD(743,"GL",0,5,7)=""
^DD(743,"GL",1,1,50)=""
^DD(743,"GL",1,2,51)=""
^DD(743,"GL",1,3,52)=""
^DD(743,"GL",1,4,53)=""
^DD(743,"GL",1,5,54)=""
^DD(743,"GL",1,6,55)=""
^DD(743,"GL",1,7,56)=""
^DD(743,"GL",1,8,57)=""
^DD(743,"GL",1,9,58)=""
^DD(743,"GL",1,10,59)=""
^DD(743,"GL",1,11,60)=""
^DD(743,"GL",1,12,61)=""
^DD(743,"GL",1,13,62)=""
^DD(743,"GL",1,14,63)=""
^DD(743,"GL",1,15,64)=""
^DD(743,"GL","CLIN",0,3)=""
^DD(743,"GL","COND",0,20)=""
^DD(743,"GL","DAT",0,30)=""
^DD(743,"GL","RAT",0,4)=""
^DD(743,"GL","REL","E1,245",25)=""
^DD(743,"GL","SFR","E1,245",100)=""
^DD(743,"GL","SMP","E1,245",26)=""
^DD(743,"GL","STDC",0,2)=""
^DD(743,"GL","WSR","E1,245",200)=""
^DD(743,"IX",.01)=""
^DD(743,"IX",.02)=""
^DD(743,"IX",1)=""
^DD(743,"RQ",.01)=""
^DD(743,"RQ",.02)=""
^DD(743,"RQ",6)=""
^DD(743,"SB",743.01,20)=""
^DD(743,"SB",743.02,2)=""
^DD(743,"SB",743.03,3)=""
^DD(743,"SB",743.04,4)=""
^DD(743,"SB",743.06,30)=""
^DD(743.01,0)="CONDITION SUB-FIELD^^50^7"
^DD(743.01,0,"DT")="2920128"
^DD(743.01,0,"IX","AS",743.01,1)=""
^DD(743.01,0,"IX","B",743.01,.01)=""
^DD(743.01,0,"NM","CONDITION")=""
^DD(743.01,0,"UP")="743"
^DD(743.01,.01,0)="CONDITION^M*P743.3'^QA(743.3,^0;1^S DIC(""S"")=""I $S($D(QAMD0)[0:1,$D(^QA(743,+QAMD0,0))[0:0,+$P(^QA(743,+QAMD0,0),""""^"""",4)=+$P(^QA(743.3,+Y,0),""""^"""",2):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(743.01,.01,1,0)="^.1"
^DD(743.01,.01,1,1,0)="743.01^B"
^DD(743.01,.01,1,1,1)="S ^QA(743,DA(1),""COND"",""B"",$E(X,1,30),DA)="""""
^DD(743.01,.01,1,1,2)="K ^QA(743,DA(1),""COND"",""B"",$E(X,1,30),DA)"
^DD(743.01,.01,3)="Enter a condition that will make up the monitor."
^DD(743.01,.01,4)=""
^DD(743.01,.01,12)="You may only select conditions that match the monitor type, auto/manual enroll."
^DD(743.01,.01,12.1)="S DIC(""S"")=""I $S($D(QAMD0)[0:1,$D(^QA(743,+QAMD0,0))[0:0,+$P(^QA(743,+QAMD0,0),""""^"""",4)=+$P(^QA(743.3,+Y,0),""""^"""",2):1,1:0)"""
^DD(743.01,.01,21,0)="^^3^3^2930910^^^^"
^DD(743.01,.01,21,1,0)="A condition applies a True/False test on selected data elements in a"
^DD(743.01,.01,21,2,0)="patient's record.  If the result of the test is true that patient's"
^DD(743.01,.01,21,3,0)="record is captured for further processing."
^DD(743.01,.01,23,0)="^^6^6^2930217^"
^DD(743.01,.01,23,1,0)="The screen on this field makes use of the namespaced variable QAMD0."
^DD(743.01,.01,23,2,0)="QAMD0 is the internal entry number of the monitor, ie ^QA(743,QAMD0,."
^DD(743.01,.01,23,3,0)="If QAMD0 is undefined the screen equates to I 1 to allow for regular"
^DD(743.01,.01,23,4,0)="VA FileMan editing of this multiple.  If the Clinical Monitoring System"
^DD(743.01,.01,23,5,0)="edit options are used QAMD0 will be defined and the screen will function"
^DD(743.01,.01,23,6,0)="properly."
^DD(743.01,.01,"DT")="2920128"
^DD(743.01,1,0)="CONTRIBUTES TO SAMPLE^S^1:YES;0:NO;^0;2^Q"
^DD(743.01,1,1,0)="^.1"
^DD(743.01,1,1,1,0)="743.01^AS"
^DD(743.01,1,1,1,1)="S ^QA(743,DA(1),""COND"",""AS"",$E(X,1,30),DA)="""""
^DD(743.01,1,1,1,2)="K ^QA(743,DA(1),""COND"",""AS"",$E(X,1,30),DA)"
^DD(743.01,1,1,1,"DT")="2901214"
^DD(743.01,1,3)="Enter Y(es) if this condition contributes to the sample size (denominator)."
^DD(743.01,1,21,0)="^^5^5^2920702^^^"
^DD(743.01,1,21,1,0)="This field determines whether or not this condition contributes to the"
^DD(743.01,1,21,2,0)="sample size (denominator).  This affects how information is collected"
^DD(743.01,1,21,3,0)="to determine the size of the sample (denominator).  Answer 'YES' to"
^DD(743.01,1,21,4,0)="this question if the patients meeting this condition should be counted"
^DD(743.01,1,21,5,0)="in the sample size.  Answer 'NO' if these patients should not be counted."
^DD(743.01,1,"DT")="2901214"
^DD(743.01,10,0)="PARAMETER 1^F^^P1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.01,10,3)="Answer must be 1-245 characters in length."
^DD(743.01,10,21,0)="^^2^2^2901210^"
^DD(743.01,10,21,1,0)="Parameters further narrow down the definition of a condition.  The"
^DD(743.01,10,21,2,0)="format of a parameter is determined by the condition."
^DD(743.01,10,"DT")="2901206"
^DD(743.01,20,0)="PARAMETER 2^F^^P2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.01,20,3)="Answer must be 1-245 characters in length."
^DD(743.01,20,21,0)="^^2^2^2901210^"
^DD(743.01,20,21,1,0)="Parameters further narrow down the definition of a condition.  The"
^DD(743.01,20,21,2,0)="format of a parameter is determined by the condition."
^DD(743.01,20,"DT")="2901206"
^DD(743.01,30,0)="PARAMETER 3^F^^P3;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.01,30,3)="Answer must be 1-245 characters in length."
^DD(743.01,30,21,0)="^^2^2^2901210^^"
^DD(743.01,30,21,1,0)="Parameters further narrow down the definition of a condition.  The"
^DD(743.01,30,21,2,0)="format of a parameter is determined by the condition."
^DD(743.01,30,"DT")="2901206"
^DD(743.01,40,0)="PARAMETER 4^F^^P4;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.01,40,3)="Answer must be 1-245 characters in length."
^DD(743.01,40,21,0)="^^2^2^2901210^^"
^DD(743.01,40,21,1,0)="Parameters further narrow down the definition of a condition.  The"
^DD(743.01,40,21,2,0)="format of a parameter is determined by the condition."
^DD(743.01,40,"DT")="2901206"
^DD(743.01,50,0)="PARAMETER 5^F^^P5;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.01,50,3)="Answer must be 1-245 characters in length."
^DD(743.01,50,21,0)="^^2^2^2901210^"
^DD(743.01,50,21,1,0)="Parameters further narrow down the definition of a condition.  The"
^DD(743.01,50,21,2,0)="format of a parameter is determined by the condition."
^DD(743.01,50,"DT")="2901206"
^DD(743.01,"B","CONDITION",.01)=""
^DD(743.01,"B","CONTRIBUTES TO SAMPLE",1)=""
^DD(743.01,"B","PARAMETER 1",10)=""
^DD(743.01,"B","PARAMETER 2",20)=""
^DD(743.01,"B","PARAMETER 3",30)=""
^DD(743.01,"B","PARAMETER 4",40)=""
^DD(743.01,"B","PARAMETER 5",50)=""
^DD(743.01,"GL",0,1,.01)=""
^DD(743.01,"GL",0,2,1)=""
^DD(743.01,"GL","P1","E1,245",10)=""
^DD(743.01,"GL","P2","E1,245",20)=""
^DD(743.01,"GL","P3","E1,245",30)=""
^DD(743.01,"GL","P4","E1,245",40)=""
^DD(743.01,"GL","P5","E1,245",50)=""
^DD(743.01,"IX",.01)=""
^DD(743.01,"IX",1)=""
^DD(743.02,0)="STANDARD OF CARE SUB-FIELD^^.01^1"
^DD(743.02,0,"NM","STANDARD OF CARE")=""
^DD(743.02,0,"UP")="743"
^DD(743.02,.01,0)="STANDARD OF CARE^W^^0;1^Q"
^DD(743.02,.01,3)="Enter the standard of care to be monitored."
^DD(743.02,.01,21,0)="^^1^1^2901207^"
^DD(743.02,.01,21,1,0)="This word processing field defines the standard of care to be monitored."
^DD(743.02,.01,"DT")="2901206"
^DD(743.02,"B","STANDARD OF CARE",.01)=""
^DD(743.02,"GL",0,1,.01)=""
^DD(743.03,0)="CLINICAL INDICATOR SUB-FIELD^^.01^1"
^DD(743.03,0,"NM","CLINICAL INDICATOR")=""
^DD(743.03,0,"UP")="743"
^DD(743.03,.01,0)="CLINICAL INDICATOR^W^^0;1^Q"
^DD(743.03,.01,3)="Enter the criteria of the standard of care."
^DD(743.03,.01,21,0)="^^2^2^2901207^"
^DD(743.03,.01,21,1,0)="This word processing field defines the criteria necessary to meet the"
^DD(743.03,.01,21,2,0)="standard of care."
^DD(743.03,.01,"DT")="2901206"
^DD(743.03,"B","CLINICAL INDICATOR",.01)=""
^DD(743.03,"GL",0,1,.01)=""
^DD(743.04,0)="RATIONALE SUB-FIELD^^1^2"
^DD(743.04,0,"DT")="2901211"
^DD(743.04,0,"IX","B",743.04,.01)=""
^DD(743.04,0,"NM","RATIONALE")=""
^DD(743.04,0,"UP")="743"
^DD(743.04,.01,0)="RATIONALE^MP743.91'^QA(743.91,^0;1^Q"
^DD(743.04,.01,1,0)="^.1"
^DD(743.04,.01,1,1,0)="743.04^B"
^DD(743.04,.01,1,1,1)="S ^QA(743,DA(1),""RAT"",""B"",$E(X,1,30),DA)="""""
^DD(743.04,.01,1,1,2)="K ^QA(743,DA(1),""RAT"",""B"",$E(X,1,30),DA)"
^DD(743.04,.01,3)="Enter the rationale for this monitor from the list displayed."
^DD(743.04,.01,21,0)="^^2^2^2910118^^^^"
^DD(743.04,.01,21,1,0)="This field defines the rationale for the use of this monitor.  You may"
^DD(743.04,.01,21,2,0)="select all that apply."
^DD(743.04,.01,"DT")="2901217"
^DD(743.04,1,0)="EXPLAIN RATIONALE^743.05^^EXP;0"
^DD(743.04,1,21,0)="^^2^2^2910718^^^^"
^DD(743.04,1,21,1,0)="If a rationale was chosen that requires an explanation please explain"
^DD(743.04,1,21,2,0)="the reasons for its selection."
^DD(743.04,1,"DT")="2910415"
^DD(743.04,"B","EXPLAIN RATIONALE",1)=""
^DD(743.04,"B","RATIONALE",.01)=""
^DD(743.04,"GL",0,1,.01)=""
^DD(743.04,"GL","EXP",0,1)=""
^DD(743.04,"IX",.01)=""
^DD(743.04,"SB",743.05,1)=""
^DD(743.05,0)="EXPLAIN RATIONALE SUB-FIELD^^.01^1"
^DD(743.05,0,"DT")="2901211"
^DD(743.05,0,"NM","EXPLAIN RATIONALE")=""
^DD(743.05,0,"UP")="743.04"
^DD(743.05,.01,0)="EXPLAIN RATIONALE^W^^0;1^Q"
^DD(743.05,.01,3)="Explain why this rationale was chosen."
^DD(743.05,.01,21,0)="^^2^2^2910718^^^^"
^DD(743.05,.01,21,1,0)="If a rationale was chosen that requires an explanation please explain"
^DD(743.05,.01,21,2,0)="the reasons for its selection."
^DD(743.05,.01,"DT")="2901217"
^DD(743.05,"B","EXPLAIN RATIONALE",.01)=""
^DD(743.05,"GL",0,1,.01)=""
^DD(743.06,0)="OTHER DATA TO CAPTURE SUB-FIELD^^.01^1"
^DD(743.06,0,"DT")="2910516"
^DD(743.06,0,"IX","B",743.06,.01)=""
^DD(743.06,0,"NM","OTHER DATA TO CAPTURE")=""
^DD(743.06,0,"UP")="743"
^DD(743.06,.01,0)="OTHER DATA TO CAPTURE^M*P743.4'^QA(743.4,^0;1^S DIC(""S"")=""D EN7^QAMUTL0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(743.06,.01,1,0)="^.1"
^DD(743.06,.01,1,1,0)="743.06^B"
^DD(743.06,.01,1,1,1)="S ^QA(743,DA(1),""DAT"",""B"",$E(X,1,30),DA)="""""
^DD(743.06,.01,1,1,2)="K ^QA(743,DA(1),""DAT"",""B"",$E(X,1,30),DA)"
^DD(743.06,.01,3)="Enter the data elements of a patients record you want to collect."
^DD(743.06,.01,12)="Data elements are selectable based on the conditions chosen."
^DD(743.06,.01,12.1)="S DIC(""S"")=""D EN7^QAMUTL0"""
^DD(743.06,.01,21,0)="^^3^3^2901210^^"
^DD(743.06,.01,21,1,0)="When a patient meets the conditions of the monitor and falls out the"
^DD(743.06,.01,21,2,0)="other data to capture entries define which data elements in the patient's"
^DD(743.06,.01,21,3,0)="record should be collected."
^DD(743.06,.01,"DT")="2910516"
^DD(743.06,"B","OTHER DATA TO CAPTURE",.01)=""
^DD(743.06,"GL",0,1,.01)=""
^DD(743.06,"IX",.01)=""
^DD(743.1,0)="FIELD^^100^6"
^DD(743.1,0,"DDA")="N"
^DD(743.1,0,"DT")="2910422"
^DD(743.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^QA(743,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(743,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(743.1,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)_$E($P(""@""_$P($P(^(0),""^"",3),""."",2)_""000000"",""^"",$P(^(0),""^"",3)["".""),1,7)"
^DD(743.1,0,"IX","AA1",743.1,.01)=""
^DD(743.1,0,"IX","AA2",743.1,.02)=""
^DD(743.1,0,"IX","AA3",743.1,.03)=""
^DD(743.1,0,"IX","AB1",743.1,.01)=""
^DD(743.1,0,"IX","AB2",743.1,.02)=""
^DD(743.1,0,"IX","AB3",743.1,.03)=""
^DD(743.1,0,"IX","ADRC",743.1,.04)=""
^DD(743.1,0,"IX","AUDIT",743.1,100)=""
^DD(743.1,0,"IX","B",743.1,.01)=""
^DD(743.1,0,"IX","C",743.1,.02)=""
^DD(743.1,0,"NM","FALL OUT")=""
^DD(743.1,0,"VR")="1.0"
^DD(743.1,.01,0)="PATIENT^P2'^DPT(^0;1^Q"
^DD(743.1,.01,1,0)="^.1"
^DD(743.1,.01,1,1,0)="743.1^B"
^DD(743.1,.01,1,1,1)="S ^QA(743.1,""B"",$E(X,1,30),DA)="""""
^DD(743.1,.01,1,1,2)="K ^QA(743.1,""B"",$E(X,1,30),DA)"
^DD(743.1,.01,1,2,0)="743.1^AA1^MUMPS"
^DD(743.1,.01,1,2,1)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(2)=$P(QAM,U,2),QAM(3)=$P(QAM,U,3) S:QAM(2)]""""&(QAM(3)]"""") ^QA(743.1,""AA"",QAM(2),QAM(3),X,DA)="""" K QAM"
^DD(743.1,.01,1,2,2)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(2)=$P(QAM,U,2),QAM(3)=$P(QAM,U,3) K:QAM(2)]""""&(QAM(3)]"""") ^QA(743.1,""AA"",QAM(2),QAM(3),X,DA) K QAM"
^DD(743.1,.01,1,2,3)="CANNOT DELETE CROSS-REFERENCE!!"
^DD(743.1,.01,1,2,"%D",0)="^^1^1^2930514^"
^DD(743.1,.01,1,2,"%D",1,0)="Cross-reference of MONITOR, EVENT DATE, and PATIENT."
^DD(743.1,.01,1,2,"DT")="2901212"
^DD(743.1,.01,1,3,0)="743.1^AB1^MUMPS"
^DD(743.1,.01,1,3,1)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(2)=$P(QAM,""^"",2),QAM(3)=$P(QAM,""^"",3) S:QAM(2)]""""&(QAM(3)]"""") ^QA(743.1,""AB"",QAM(2),X,QAM(3),DA)="""" K QAM"
^DD(743.1,.01,1,3,2)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(2)=$P(QAM,""^"",2),QAM(3)=$P(QAM,""^"",3) K:QAM(2)]""""&(QAM(3)]"""") ^QA(743.1,""AB"",QAM(2),X,QAM(3),DA) K QAM"
^DD(743.1,.01,1,3,"%D",0)="^^1^1^2930514^"
^DD(743.1,.01,1,3,"%D",1,0)="Cross-reference of MONITOR, PATIENT, and EVENT DATE."
^DD(743.1,.01,1,3,"DT")="2910118"
^DD(743.1,.01,3)="Choose a entry from the patient file."
^DD(743.1,.01,21,0)="^^2^2^2910118^^^^"
^DD(743.1,.01,21,1,0)="This field is a pointer to the patient file.  This field holds an actual"
^DD(743.1,.01,21,2,0)="patient from the patient file."
^DD(743.1,.01,23,0)="^^2^2^2910118^^^"
^DD(743.1,.01,23,1,0)="This field is a pointer to the patient file.  No LAYGO is allowed from"
^DD(743.1,.01,23,2,0)="the '.01' field to the patient file (^DPT global)."
^DD(743.1,.01,"DEL",1,0)="S QADL=1 I 0"
^DD(743.1,.01,"DT")="2910118"
^DD(743.1,.02,0)="MONITOR^P743'^QA(743,^0;2^Q"
^DD(743.1,.02,1,0)="^.1"
^DD(743.1,.02,1,1,0)="743.1^AA2^MUMPS"
^DD(743.1,.02,1,1,1)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,U,1),QAM(3)=$P(QAM,U,3) S:QAM(1)]""""&(QAM(3)]"""") ^QA(743.1,""AA"",X,QAM(3),QAM(1),DA)="""" K QAM"
^DD(743.1,.02,1,1,2)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,U,1),QAM(3)=$P(QAM,U,3) K:QAM(1)]""""&(QAM(3)]"""") ^QA(743.1,""AA"",X,QAM(3),QAM(1),DA) K QAM"
^DD(743.1,.02,1,1,3)="CROSS-REFRENCE MUST NOT BE DELETED!! "
^DD(743.1,.02,1,1,"%D",0)="^^4^4^2930514^"
^DD(743.1,.02,1,1,"%D",1,0)="Links the three fields together to allow only one $D check for the"
^DD(743.1,.02,1,1,"%D",2,0)="entries in the fields"
^DD(743.1,.02,1,1,"%D",3,0)=" "
^DD(743.1,.02,1,1,"%D",4,0)="Cross-reference of MONITOR, EVENT DATE, and PATIENT."
^DD(743.1,.02,1,1,"DT")="2901212"
^DD(743.1,.02,1,2,0)="743.1^AB2^MUMPS"
^DD(743.1,.02,1,2,1)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^""),QAM(3)=$P(QAM,""^"",3) S:QAM(1)]""""&(QAM(3)]"""") ^QA(743.1,""AB"",X,QAM(1),QAM(3),DA)="""" K QAM"
^DD(743.1,.02,1,2,2)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^""),QAM(3)=$P(QAM,""^"",3) K:QAM(1)]""""&(QAM(3)]"""") ^QA(743.1,""AB"",X,QAM(1),QAM(3),DA) K QAM"
^DD(743.1,.02,1,2,"%D",0)="^^1^1^2930514^"
^DD(743.1,.02,1,2,"%D",1,0)="Cross-reference of MONITOR, PATIENT, and EVENT DATE."
^DD(743.1,.02,1,2,"DT")="2910118"
^DD(743.1,.02,1,3,0)="743.1^C"
^DD(743.1,.02,1,3,1)="S ^QA(743.1,""C"",$E(X,1,30),DA)="""""
^DD(743.1,.02,1,3,2)="K ^QA(743.1,""C"",$E(X,1,30),DA)"
^DD(743.1,.02,1,3,"DT")="2910215"
^DD(743.1,.02,3)="Enter the name of a valid QA MONITOR."
^DD(743.1,.02,21,0)="^^2^2^2910118^"
^DD(743.1,.02,21,1,0)="This field contains the name of the monitor that the patient fell"
^DD(743.1,.02,21,2,0)="out under."
^DD(743.1,.02,"DT")="2910215"
^DD(743.1,.03,0)="EVENT DATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.1,.03,1,0)="^.1"
^DD(743.1,.03,1,1,0)="743.1^AA3^MUMPS"
^DD(743.1,.03,1,1,1)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,U,1),QAM(2)=$P(QAM,U,2) S:QAM(1)]""""&(QAM(2)]"""") ^QA(743.1,""AA"",QAM(2),X,QAM(1),DA)="""" K QAM"
^DD(743.1,.03,1,1,2)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,U,1),QAM(2)=$P(QAM,U,2) K:QAM(1)]""""&(QAM(2)]"""") ^QA(743.1,""AA"",QAM(2),X,QAM(1),DA) K QAM"
^DD(743.1,.03,1,1,3)="CANNOT DELETE CROSS-REFRENCE!!"
^DD(743.1,.03,1,1,"%D",0)="^^1^1^2930514^"
^DD(743.1,.03,1,1,"%D",1,0)="Cross-reference of MONITOR, EVENT DATE, and PATIENT."
^DD(743.1,.03,1,1,"DT")="2901212"
^DD(743.1,.03,1,2,0)="743.1^AB3^MUMPS"
^DD(743.1,.03,1,2,1)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^""),QAM(2)=$P(QAM,""^"",2) S:QAM(1)]""""&(QAM(2)]"""") ^QA(743.1,""AB"",QAM(2),QAM(1),X,DA)="""" K QAM"
^DD(743.1,.03,1,2,2)="S QAM=$S($D(^QA(743.1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^""),QAM(2)=$P(QAM,""^"",2) K:QAM(1)]""""&(QAM(2)]"""") ^QA(743.1,""AB"",QAM(2),QAM(1),X,DA) K QAM"
^DD(743.1,.03,1,2,"%D",0)="^^1^1^2930514^"
^DD(743.1,.03,1,2,"%D",1,0)="Cross-reference of MONITOR, PATIENT, and EVENT DATE."
^DD(743.1,.03,1,2,"DT")="2910118"
^DD(743.1,.03,3)="Enter the date of the event."
^DD(743.1,.03,21,0)="^^1^1^2910118^^^"
^DD(743.1,.03,21,1,0)="This field contains the event date for this patient and this monitor."
^DD(743.1,.03,23,0)="^^1^1^2910118^^"
^DD(743.1,.03,23,1,0)="Date the patient from PATIENT file (#2) becomes auto enrolled. "
^DD(743.1,.03,"DT")="2910118"
^DD(743.1,.04,0)="DATE RECORD CREATED^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.1,.04,1,0)="^.1"
^DD(743.1,.04,1,1,0)="743.1^ADRC"
^DD(743.1,.04,1,1,1)="S ^QA(743.1,""ADRC"",$E(X,1,30),DA)="""""
^DD(743.1,.04,1,1,2)="K ^QA(743.1,""ADRC"",$E(X,1,30),DA)"
^DD(743.1,.04,1,1,"DT")="2920318"
^DD(743.1,.04,3)="Enter the date this record was added to the file."
^DD(743.1,.04,21,0)="^^3^3^2910130^"
^DD(743.1,.04,21,1,0)="For auto enrolled fall outs this is the date auto enroll ran for."
^DD(743.1,.04,21,2,0)="For manually entered fall outs this is the date the fall out was"
^DD(743.1,.04,21,3,0)="entered."
^DD(743.1,.04,"DT")="2920318"
^DD(743.1,1,0)="DATA^743.11PA^^1;0"
^DD(743.1,1,21,0)="^^1^1^2930208^"
^DD(743.1,1,21,1,0)="This is a pointer to the DATA ELEMENT file.  Enter a valid data element."
^DD(743.1,100,0)="AUDIT^P740.5'^QA(740.5,^AUDIT;1^Q"
^DD(743.1,100,1,0)="^.1"
^DD(743.1,100,1,1,0)="743.1^AUDIT^MUMPS"
^DD(743.1,100,1,1,1)="Q"
^DD(743.1,100,1,1,2)="N QAUDIT S QAUDIT(""FILE"")=743.1,QAUDIT(""DA"")=DA D:$D(QADL) ^QAQADLAU K QADL Q"
^DD(743.1,100,1,1,"%D",0)="^^2^2^2930514^"
^DD(743.1,100,1,1,"%D",1,0)="The kill logic of this cross reference deletes the audit file entry for"
^DD(743.1,100,1,1,"%D",2,0)="this record when this record is deleted."
^DD(743.1,100,1,1,"DT")="2910422"
^DD(743.1,100,3)="Enter the audit file pointer."
^DD(743.1,100,9)="^"
^DD(743.1,100,21,0)="^^3^3^2910717^^"
^DD(743.1,100,21,1,0)="This is a pointer to the audit file entry for this fall out record."
^DD(743.1,100,21,2,0)="The audit file contains data on what was done to this record and"
^DD(743.1,100,21,3,0)="when it was done."
^DD(743.1,100,"DT")="2910422"
^DD(743.1,"B","AUDIT",100)=""
^DD(743.1,"B","DATA",1)=""
^DD(743.1,"B","DATE RECORD CREATED",.04)=""
^DD(743.1,"B","EVENT DATE",.03)=""
^DD(743.1,"B","MONITOR",.02)=""
^DD(743.1,"B","PATIENT",.01)=""
^DD(743.1,"GL",0,1,.01)=""
^DD(743.1,"GL",0,2,.02)=""
^DD(743.1,"GL",0,3,.03)=""
^DD(743.1,"GL",0,4,.04)=""
^DD(743.1,"GL",1,0,1)=""
^DD(743.1,"GL","AUDIT",1,100)=""
^DD(743.1,"IX",.01)=""
^DD(743.1,"IX",.02)=""
^DD(743.1,"IX",.03)=""
^DD(743.1,"IX",.04)=""
^DD(743.1,"IX",100)=""
^DD(743.1,"SB",743.11,1)=""
^DD(743.11,0)="DATA SUB-FIELD^^.02^2"
^DD(743.11,0,"DT")="2901211"
^DD(743.11,0,"IX","AD1",743.11,.01)=""
^DD(743.11,0,"IX","AD2",743.11,.02)=""
^DD(743.11,0,"IX","B",743.11,.01)=""
^DD(743.11,0,"NM","DATA")=""
^DD(743.11,0,"UP")="743.1"
^DD(743.11,.01,0)="DATA ELEMENT^P743.4'^QA(743.4,^0;1^Q"
^DD(743.11,.01,1,0)="^.1"
^DD(743.11,.01,1,1,0)="743.11^B"
^DD(743.11,.01,1,1,1)="S ^QA(743.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(743.11,.01,1,1,2)="K ^QA(743.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(743.11,.01,1,2,0)="743.11^AD1^MUMPS"
^DD(743.11,.01,1,2,1)="S QAM=$S($D(^QA(743.1,DA(1),1,DA,""E""))#2:^(""E""),1:""""),QAM(2)=$P(QAM,""^"") S:QAM(2)]"""" ^QA(743.1,""AD"",X,$E(QAM(2),1,63),DA(1),DA)="""" K QAM"
^DD(743.11,.01,1,2,2)="S QAM=$S($D(^QA(743.1,DA(1),1,DA,""E""))#2:^(""E""),1:""""),QAM(2)=$P(QAM,""^"") K:QAM(2)]"""" ^QA(743.1,""AD"",X,$E(QAM(2),1,63),DA(1),DA) K QAM"
^DD(743.11,.01,1,2,"%D",0)="^^1^1^2930514^"
^DD(743.11,.01,1,2,"%D",1,0)="Cross-reference of DATA ELEMENT and ACTUAL DATA."
^DD(743.11,.01,1,2,"DT")="2910314"
^DD(743.11,.01,3)="Enter a valid data element from the DATA ELEMENT file."
^DD(743.11,.01,21,0)="^^1^1^2930208^^"
^DD(743.11,.01,21,1,0)="This is a pointer to the DATA ELEMENT file.  Enter a valid data element."
^DD(743.11,.01,23,0)="^^1^1^2901211^"
^DD(743.11,.01,23,1,0)="Pointer to the DATA ELEMENT file { ^QA(743.4 }.  No LAYGO allowed."
^DD(743.11,.01,"DT")="2910314"
^DD(743.11,.02,0)="ACTUAL DATA^F^^E;E1,245^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X"
^DD(743.11,.02,1,0)="^.1"
^DD(743.11,.02,1,1,0)="743.11^AD2^MUMPS"
^DD(743.11,.02,1,1,1)="S QAM=$S($D(^QA(743.1,DA(1),1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^"") S:QAM(1)]"""" ^QA(743.1,""AD"",QAM(1),$E(X,1,63),DA(1),DA)="""" K QAM"
^DD(743.11,.02,1,1,2)="S QAM=$S($D(^QA(743.1,DA(1),1,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^"") K:QAM(1)]"""" ^QA(743.1,""AD"",QAM(1),$E(X,1,63),DA(1),DA) K QAM"
^DD(743.11,.02,1,1,"%D",0)="^^1^1^2930514^"
^DD(743.11,.02,1,1,"%D",1,0)="Cross-reference of DATA ELEMENT and ACTUAL DATA."
^DD(743.11,.02,1,1,"DT")="2910314"
^DD(743.11,.02,3)="Answer must be 1-245 characters in length."
^DD(743.11,.02,21,0)="^^2^2^2910118^"
^DD(743.11,.02,21,1,0)="This field contains the free text data of the type specified by the"
^DD(743.11,.02,21,2,0)="data element field."
^DD(743.11,.02,"DT")="2910314"
^DD(743.11,"B","ACTUAL DATA",.02)=""
^DD(743.11,"B","DATA ELEMENT",.01)=""
^DD(743.11,"GL",0,1,.01)=""
^DD(743.11,"GL","E","E1,245",.02)=""
^DD(743.11,"IX",.01)=""
^DD(743.11,"IX",.02)=""
^DD(743.2,0)="FIELD^^8^11"
^DD(743.2,0,"DDA")="N"
^DD(743.2,0,"DT")="2910205"
^DD(743.2,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(743.2,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(743.2,0,"IX","AA1",743.2,.01)=""
^DD(743.2,0,"IX","AA2",743.2,.02)=""
^DD(743.2,0,"IX","AA3",743.2,.03)=""
^DD(743.2,0,"IX","B",743.2,.01)=""
^DD(743.2,0,"NM","MONITOR HISTORY")=""
^DD(743.2,0,"VR")="1.0"
^DD(743.2,.01,0)="MONITOR^RP743'^QA(743,^0;1^Q"
^DD(743.2,.01,1,0)="^.1^^-1"
^DD(743.2,.01,1,1,0)="743.2^B"
^DD(743.2,.01,1,1,1)="S ^QA(743.2,""B"",$E(X,1,30),DA)="""""
^DD(743.2,.01,1,1,2)="K ^QA(743.2,""B"",$E(X,1,30),DA)"
^DD(743.2,.01,1,2,0)="743.2^AA1^MUMPS"
^DD(743.2,.01,1,2,1)="S QAM=$S($D(^QA(743.2,DA,0))#2:^(0),1:""""),QAM(2)=$P(QAM,""^"",2),QAM(3)=$P(QAM,""^"",3) S:(QAM(2)]"""")&(QAM(3)]"""") ^QA(743.2,""AA"",X,QAM(2),QAM(3),DA)="""" K QAM"
^DD(743.2,.01,1,2,2)="S QAM=$S($D(^QA(743.2,DA,0))#2:^(0),1:""""),QAM(2)=$P(QAM,""^"",2),QAM(3)=$P(QAM,""^"",3) K:(QAM(2)]"""")&(QAM(3)]"""") ^QA(743.2,""AA"",X,QAM(2),QAM(3),DA) K QAM"
^DD(743.2,.01,1,2,"%D",0)="^^1^1^2930514^"
^DD(743.2,.01,1,2,"%D",1,0)="Cross-reference of MONITOR, START DATE, and END DATE."
^DD(743.2,.01,3)="Enter the monitor for this data."
^DD(743.2,.01,21,0)="^^2^2^2901210^"
^DD(743.2,.01,21,1,0)="This field identifies the monitor that this historical information"
^DD(743.2,.01,21,2,0)="belongs to."
^DD(743.2,.01,"DT")="2920429"
^DD(743.2,.02,0)="START DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.2,.02,1,0)="^.1^^-1"
^DD(743.2,.02,1,1,0)="743.2^AA2^MUMPS"
^DD(743.2,.02,1,1,1)="S QAM=$S($D(^QA(743.2,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^"",1),QAM(3)=$P(QAM,""^"",3) S:(QAM(1)]"""")&(QAM(3)]"""") ^QA(743.2,""AA"",QAM(1),X,QAM(3),DA)="""" K QAM"
^DD(743.2,.02,1,1,2)="S QAM=$S($D(^QA(743.2,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^"",1),QAM(3)=$P(QAM,""^"",3) K:(QAM(1)]"""")&(QAM(3)]"""") ^QA(743.2,""AA"",QAM(1),X,QAM(3),DA) K QAM"
^DD(743.2,.02,1,1,"%D",0)="^^1^1^2930514^"
^DD(743.2,.02,1,1,"%D",1,0)="Cross-reference of MONITOR, START DATE, and END DATE."
^DD(743.2,.02,3)="Enter the time frame start date."
^DD(743.2,.02,21,0)="^^1^1^2901210^"
^DD(743.2,.02,21,1,0)="This date represents the beginning of a time frame."
^DD(743.2,.02,"DT")="2920429"
^DD(743.2,.03,0)="END DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.2,.03,1,0)="^.1"
^DD(743.2,.03,1,1,0)="743.2^AA3^MUMPS"
^DD(743.2,.03,1,1,1)="S QAM=$S($D(^QA(743.2,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^"",1),QAM(2)=$P(QAM,""^"",2) S:(QAM(1)]"""")&(QAM(2)]"""") ^QA(743.2,""AA"",QAM(1),QAM(2),X,DA)="""" K QAM"
^DD(743.2,.03,1,1,2)="S QAM=$S($D(^QA(743.2,DA,0))#2:^(0),1:""""),QAM(1)=$P(QAM,""^"",1),QAM(2)=$P(QAM,""^"",2) K:(QAM(1)]"""")&(QAM(2)]"""") ^QA(743.2,""AA"",QAM(1),QAM(2),X,DA) K QAM"
^DD(743.2,.03,1,1,"%D",0)="^^1^1^2930514^"
^DD(743.2,.03,1,1,"%D",1,0)="Cross-reference of MONITOR, START DATE, and END DATE."
^DD(743.2,.03,3)="Enter the time frame end date."
^DD(743.2,.03,21,0)="^^1^1^2901210^"
^DD(743.2,.03,21,1,0)="This date represents the end of a time frame."
^DD(743.2,1,0)="FALL OUTS^NJ7,0^^0;4^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(743.2,1,3)="Type a Number between 0 and 1000000, 0 Decimal Digits"
^DD(743.2,1,21,0)="^^2^2^2901219^^"
^DD(743.2,1,21,1,0)="This field contains the number of fall outs for this monitor within the"
^DD(743.2,1,21,2,0)="specified time frame."
^DD(743.2,1,"DT")="2901219"
^DD(743.2,2,0)="SAMPLE SIZE^NJ7,0^^0;5^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(743.2,2,3)="Type a Number between 0 and 1000000, 0 Decimal Digits"
^DD(743.2,2,21,0)="^^2^2^2901219^^"
^DD(743.2,2,21,1,0)="This field contains the sample size for this monitor within the specified"
^DD(743.2,2,21,2,0)="time frame."
^DD(743.2,2,"DT")="2901219"
^DD(743.2,3,0)="THRESHOLD MET^S^1:YES;0:NO;^0;6^Q"
^DD(743.2,3,3)="Enter Y(es) if the threshold was met for this monitor for this time frame."
^DD(743.2,3,21,0)="^^2^2^2910118^^"
^DD(743.2,3,21,1,0)="This field contains information on whether or not the threshold was"
^DD(743.2,3,21,2,0)="met for this monitor for this time frame."
^DD(743.2,4,0)="DATE THRESHOLD MET^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.2,4,3)="Enter the date the threshold was met."
^DD(743.2,4,21,0)="^^2^2^2901210^"
^DD(743.2,4,21,1,0)="This field contains the first date the threshold was met for this"
^DD(743.2,4,21,2,0)="monitor in this time frame."
^DD(743.2,5,0)="THRESHOLD BULLETIN SENT^S^1:YES;0:NO;^0;8^Q"
^DD(743.2,5,3)="Enter Y(es) if the threshold bulletin has been sent."
^DD(743.2,5,21,0)="^^2^2^2910118^"
^DD(743.2,5,21,1,0)="This field is automatically set to YES when the threshold bulletin"
^DD(743.2,5,21,2,0)="is sent."
^DD(743.2,5,"DT")="2901219"
^DD(743.2,6,0)="TIME FRAME BULLETIN SENT^S^1:YES;0:NO;^0;9^Q"
^DD(743.2,6,3)="Enter Y(es) if the time frame bulletin has been sent."
^DD(743.2,6,21,0)="^^2^2^2910118^"
^DD(743.2,6,21,1,0)="This field is automatically set to YES when the end of time frame"
^DD(743.2,6,21,2,0)="bulletin is sent."
^DD(743.2,6,"DT")="2901219"
^DD(743.2,7,0)="MIN SAMPLE BULLETIN SENT^S^1:YES;0:NO;^0;10^Q"
^DD(743.2,7,.1)="ALERT LEVEL BULLETIN SENT"
^DD(743.2,7,3)="Enter Y(es) if the minimum sample bulletin has been sent."
^DD(743.2,7,21,0)="^^2^2^2910118^"
^DD(743.2,7,21,1,0)="This field is automatically set to YES when the minimum sample size"
^DD(743.2,7,21,2,0)="bulletin is sent."
^DD(743.2,7,"DT")="2910128"
^DD(743.2,8,0)="DATE SAMPLE SIZE LAST EDITED^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.2,8,3)="Enter the date the sample size field was last edited."
^DD(743.2,8,21,0)="^^2^2^2910205^"
^DD(743.2,8,21,1,0)="This field is updated every time the sample size field is edited"
^DD(743.2,8,21,2,0)="for the manual enroll monitors."
^DD(743.2,8,"DT")="2910205"
^DD(743.2,"B","ALERT LEVEL BULLETIN SENT",7)="1"
^DD(743.2,"B","DATE SAMPLE SIZE LAST EDITED",8)=""
^DD(743.2,"B","DATE THRESHOLD MET",4)=""
^DD(743.2,"B","END DATE",.03)=""
^DD(743.2,"B","FALL OUTS",1)=""
^DD(743.2,"B","MIN SAMPLE BULLETIN SENT",7)=""
^DD(743.2,"B","MONITOR",.01)=""
^DD(743.2,"B","SAMPLE SIZE",2)=""
^DD(743.2,"B","START DATE",.02)=""
^DD(743.2,"B","THRESHOLD BULLETIN SENT",5)=""
^DD(743.2,"B","THRESHOLD MET",3)=""
^DD(743.2,"B","TIME FRAME BULLETIN SENT",6)=""
^DD(743.2,"GL",0,1,.01)=""
^DD(743.2,"GL",0,2,.02)=""
^DD(743.2,"GL",0,3,.03)=""
^DD(743.2,"GL",0,4,1)=""
^DD(743.2,"GL",0,5,2)=""
^DD(743.2,"GL",0,6,3)=""
^DD(743.2,"GL",0,7,4)=""
^DD(743.2,"GL",0,8,5)=""
^DD(743.2,"GL",0,9,6)=""
^DD(743.2,"GL",0,10,7)=""
^DD(743.2,"GL",0,11,8)=""
^DD(743.2,"IX",.01)=""
^DD(743.2,"IX",.02)=""
^DD(743.2,"IX",.03)=""
^DD(743.2,"RQ",.01)=""
^DD(743.2,"RQ",.02)=""
^DD(743.2,"RQ",.03)=""
^DD(743.3,0)="FIELD^^4^6"
^DD(743.3,0,"DDA")="N"
^DD(743.3,0,"DT")="2910313"
^DD(743.3,0,"IX","AELEM",743.34,.01)=""
^DD(743.3,0,"IX","B",743.3,.01)=""
^DD(743.3,0,"NM","CONDITION")=""
^DD(743.3,0,"PT",743.01,.01)=""
^DD(743.3,0,"VR")="1.0"
^DD(743.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(743.3,.01,1,0)="^.1"
^DD(743.3,.01,1,1,0)="743.3^B"
^DD(743.3,.01,1,1,1)="S ^QA(743.3,""B"",$E(X,1,30),DA)="""""
^DD(743.3,.01,1,1,2)="K ^QA(743.3,""B"",$E(X,1,30),DA)"
^DD(743.3,.01,3)="Answer must be 3-30 characters in length."
^DD(743.3,.01,21,0)="^^1^1^2901210^"
^DD(743.3,.01,21,1,0)="This field contains the name of the condition that the user will see."
^DD(743.3,.01,"DT")="2901210"
^DD(743.3,.02,0)="AUTO ENROLL CONDITION^S^1:YES;0:NO;^0;2^Q"
^DD(743.3,.02,3)="Enter Y(es) if this is an auto enroll condition."
^DD(743.3,.02,21,0)="^^3^3^2901210^"
^DD(743.3,.02,21,1,0)="This field determines whether or not this is an auto enroll condition."
^DD(743.3,.02,21,2,0)="You should answer Y(es) to this field only if this condition can be"
^DD(743.3,.02,21,3,0)="auto enrolled."
^DD(743.3,.02,"DT")="2901210"
^DD(743.3,1,0)="CONDITION CODE^K^^COND;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(743.3,1,3)="This is Standard MUMPS code."
^DD(743.3,1,9)="@"
^DD(743.3,1,21,0)="^^2^2^2901210^"
^DD(743.3,1,21,1,0)="This is the entry point of a routine that will scan DHCP for the"
^DD(743.3,1,21,2,0)="patients who meet the condition and its parameters."
^DD(743.3,1,"DT")="2901210"
^DD(743.3,2,0)="PARAMETER CODE^K^^PARM;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(743.3,2,3)="This is Standard MUMPS code."
^DD(743.3,2,9)="@"
^DD(743.3,2,21,0)="^^2^2^2901210^"
^DD(743.3,2,21,1,0)="This is the entry point of a routine that will ask and store the"
^DD(743.3,2,21,2,0)="parameters for this condition."
^DD(743.3,3,0)="DESCRIPTION^743.33^^DESC;0"
^DD(743.3,3,21,0)="^^2^2^2910201^^"
^DD(743.3,3,21,1,0)="The description in this field is displayed when the user enters"
^DD(743.3,3,21,2,0)="'?CONDITION' at the 'Select CONDITION:' prompt."
^DD(743.3,4,0)="DATA ELEMENT^743.34PA^^ELEM;0"
^DD(743.3,4,21,0)="^^2^2^2910313^"
^DD(743.3,4,21,1,0)="This field lists all the data elements that can be captured by this"
^DD(743.3,4,21,2,0)="condition."
^DD(743.3,"B","AUTO ENROLL CONDITION",.02)=""
^DD(743.3,"B","CONDITION CODE",1)=""
^DD(743.3,"B","DATA ELEMENT",4)=""
^DD(743.3,"B","DESCRIPTION",3)=""
^DD(743.3,"B","NAME",.01)=""
^DD(743.3,"B","PARAMETER CODE",2)=""
^DD(743.3,"GL",0,1,.01)=""
^DD(743.3,"GL",0,2,.02)=""
^DD(743.3,"GL","COND","E1,245",1)=""
^DD(743.3,"GL","DESC",0,3)=""
^DD(743.3,"GL","ELEM",0,4)=""
^DD(743.3,"GL","PARM","E1,245",2)=""
^DD(743.3,"IX",.01)=""
^DD(743.3,"RQ",.01)=""
^DD(743.3,"SB",743.33,3)=""
^DD(743.3,"SB",743.34,4)=""
^DD(743.33,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(743.33,0,"DT")="2910131"
^DD(743.33,0,"NM","DESCRIPTION")=""
^DD(743.33,0,"UP")="743.3"
^DD(743.33,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(743.33,.01,3)="Enter a description of what this condition does."
^DD(743.33,.01,"DT")="2910131"
^DD(743.33,"B","DESCRIPTION",.01)=""
^DD(743.33,"GL",0,1,.01)=""
^DD(743.34,0)="DATA ELEMENT SUB-FIELD^^.01^1"
^DD(743.34,0,"DT")="2910313"
^DD(743.34,0,"IX","B",743.34,.01)=""
^DD(743.34,0,"NM","DATA ELEMENT")=""
^DD(743.34,0,"UP")="743.3"
^DD(743.34,.01,0)="DATA ELEMENT^MP743.4'^QA(743.4,^0;1^Q"
^DD(743.34,.01,1,0)="^.1"
^DD(743.34,.01,1,1,0)="743.34^B"
^DD(743.34,.01,1,1,1)="S ^QA(743.3,DA(1),""ELEM"",""B"",$E(X,1,30),DA)="""""
^DD(743.34,.01,1,1,2)="K ^QA(743.3,DA(1),""ELEM"",""B"",$E(X,1,30),DA)"
^DD(743.34,.01,1,2,0)="743.3^AELEM"
^DD(743.34,.01,1,2,1)="S ^QA(743.3,""AELEM"",$E(X,1,30),DA(1),DA)="""""
^DD(743.34,.01,1,2,2)="K ^QA(743.3,""AELEM"",$E(X,1,30),DA(1),DA)"
^DD(743.34,.01,1,2,"DT")="2910314"
^DD(743.34,.01,3)="Enter a data element that can be captured by this condition."
^DD(743.34,.01,21,0)="^^2^2^2910313^"
^DD(743.34,.01,21,1,0)="This field lists all the data elements that can be captured by this"
^DD(743.34,.01,21,2,0)="condition."
^DD(743.34,.01,"DT")="2910314"
^DD(743.34,"B","DATA ELEMENT",.01)=""
^DD(743.34,"GL",0,1,.01)=""
^DD(743.34,"IX",.01)=""
^DD(743.4,0)="FIELD^^40^13"
^DD(743.4,0,"DDA")="N"
^DD(743.4,0,"DT")="2910405"
^DD(743.4,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(743.4,0,"IX","B",743.4,.01)=""
^DD(743.4,0,"NM","DATA ELEMENT")=""
^DD(743.4,0,"PT",743.06,.01)=""
^DD(743.4,0,"PT",743.11,.01)=""
^DD(743.4,0,"PT",743.34,.01)=""
^DD(743.4,0,"VR")="1.0"
^DD(743.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(743.4,.01,1,0)="^.1"
^DD(743.4,.01,1,1,0)="743.4^B"
^DD(743.4,.01,1,1,1)="S ^QA(743.4,""B"",$E(X,1,30),DA)="""""
^DD(743.4,.01,1,1,2)="K ^QA(743.4,""B"",$E(X,1,30),DA)"
^DD(743.4,.01,3)="Answer must be 3-30 characters in length."
^DD(743.4,.01,21,0)="^^1^1^2910308^^"
^DD(743.4,.01,21,1,0)="This field contains the name of the data element that the user will see."
^DD(743.4,.01,"DT")="2910308"
^DD(743.4,.03,0)="PARENT FILE^R*P1'I^DIC(^0;3^S DIC(""S"")=""I $D(^DIC(""""AC"""",""""QAM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(743.4,.03,3)="Enter the file this field belongs to."
^DD(743.4,.03,12)="You may select only QAM application group files."
^DD(743.4,.03,12.1)="S DIC(""S"")=""I $D(^DIC(""""AC"""",""""QAM"""",+Y))"""
^DD(743.4,.03,21,0)="^^1^1^2910308^"
^DD(743.4,.03,21,1,0)="This field is a pointer to the file that the data element belongs to."
^DD(743.4,.03,"DT")="2910405"
^DD(743.4,2,0)="DICTIONARY NUMBER^743.42A^^DD;0"
^DD(743.4,2,21,0)="^^1^1^2910313^^^"
^DD(743.4,2,21,1,0)="Enter the (sub) dictionary number where this field resides."
^DD(743.4,2,"DT")="2910313"
^DD(743.4,20,0)="DIR(0)^F^^DIR0;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.4,20,3)="Answer must be 1-245 characters in length."
^DD(743.4,20,21,0)="^^2^2^2930726^^^"
^DD(743.4,20,21,1,0)="This field is used in the manual entry of a fall out.  Enter the DIR(0)"
^DD(743.4,20,21,2,0)="code(s) used to validate the data for this data element."
^DD(743.4,20,23,0)="^^23^23^2930726^"
^DD(743.4,20,23,1,0)="This field is used when the user is editing the data elements in the Fall"
^DD(743.4,20,23,2,0)="Out Edit [QAM FALL OUT EDIT] option.  The data format of this field is the"
^DD(743.4,20,23,3,0)="same as what is used in the variable DIR(0) in a DO ^DIR call."
^DD(743.4,20,23,4,0)=" "
^DD(743.4,20,23,5,0)="If you wanted to create a new data element called phone number, you might"
^DD(743.4,20,23,6,0)="set this field up as follows:"
^DD(743.4,20,23,7,0)=" "
^DD(743.4,20,23,8,0)="FO^14:14^K:X'?1""(""3N1"") ""3N1""-""4N X"
^DD(743.4,20,23,9,0)=" "
^DD(743.4,20,23,10,0)="First '^' piece"
^DD(743.4,20,23,11,0)="  'F' Response is free-text."
^DD(743.4,20,23,12,0)="  'O' Response is optional."
^DD(743.4,20,23,13,0)=" "
^DD(743.4,20,23,14,0)="Second '^' piece"
^DD(743.4,20,23,15,0)="  14  Minimum response lenght."
^DD(743.4,20,23,16,0)="  14  Maximum response length."
^DD(743.4,20,23,17,0)=" "
^DD(743.4,20,23,18,0)="Third '^' piece"
^DD(743.4,20,23,19,0)="  KILL X if it does not match the required format,"
^DD(743.4,20,23,20,0)="  in this case '(123) 456-7890'."
^DD(743.4,20,23,21,0)=" "
^DD(743.4,20,23,22,0)="For more in depth information on the DIR(0) variable, see the VA FileMan"
^DD(743.4,20,23,23,0)="Programmer Manual section on the 'Reader' (DO ^DIR)."
^DD(743.4,20,"DT")="2910314"
^DD(743.4,21,0)="DIR(?)^F^^DIRQ;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.4,21,3)="Answer must be 1-245 characters in length."
^DD(743.4,21,21,0)="^^1^1^2910405^^"
^DD(743.4,21,21,1,0)="Enter help text or an up-arrow followed by MUMPS code."
^DD(743.4,21,"DT")="2910314"
^DD(743.4,22,0)="DIR(?,#)^743.422^^DIR1;0"
^DD(743.4,22,21,0)="^^3^3^2910314^"
^DD(743.4,22,21,1,0)="This field is used as the data for the DIR(""?"",#) strings.  The first"
^DD(743.4,22,21,2,0)="line of text goes into DIR(""?"",1), the second into DIR(""?"",2), and"
^DD(743.4,22,21,3,0)="so on."
^DD(743.4,23,0)="DIR OUTPUT TRANSFORM^K^^DIROUT;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(743.4,23,3)="This is Standard MUMPS code."
^DD(743.4,23,9)="@"
^DD(743.4,23,21,0)="^^2^2^2910314^"
^DD(743.4,23,21,1,0)="Enter standard MUMPS code that takes the output of DIR and returns"
^DD(743.4,23,21,2,0)="the variable Y in the external format."
^DD(743.4,23,"DT")="2910314"
^DD(743.4,24,0)="DIR(??)^F^^DIRQQ;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(743.4,24,3)="Answer must be 1-245 characters in length."
^DD(743.4,24,9)="@"
^DD(743.4,24,21,0)="^^1^1^2910405^"
^DD(743.4,24,21,1,0)="Enter the help frame ^ MUMPS code to be used by DIR."
^DD(743.4,24,"DT")="2910405"
^DD(743.4,25,0)="DIR(A)^F^^DIR;1^K:$L(X)>45!($L(X)<1) X"
^DD(743.4,25,3)="Answer must be 1-45 characters in length."
^DD(743.4,25,21,0)="^^3^3^2910405^"
^DD(743.4,25,21,1,0)="This field contains the prompt the user will see for this data element"
^DD(743.4,25,21,2,0)="when a fall out is being edited.  If nothing is entered in this field"
^DD(743.4,25,21,3,0)="the text of the NAME field is used."
^DD(743.4,25,"DT")="2910405"
^DD(743.4,26,0)="DIR(B)^F^^DIR;2^K:$L(X)>45!($L(X)<1) X"
^DD(743.4,26,3)="Answer must be 1-45 characters in length."
^DD(743.4,26,21,0)="^^5^5^2910405^"
^DD(743.4,26,21,1,0)="This field contains the default value for this data element.  It will"
^DD(743.4,26,21,2,0)="be used if:"
^DD(743.4,26,21,3,0)=" 1) No data was previously entered for this data element for a fall"
^DD(743.4,26,21,4,0)="    out, and"
^DD(743.4,26,21,5,0)=" 2) No default value can be calculated for this data element."
^DD(743.4,26,"DT")="2910405"
^DD(743.4,27,0)="DIR(T)^NJ5,0^^DIR;3^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(743.4,27,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(743.4,27,21,0)="^^3^3^2910405^"
^DD(743.4,27,21,1,0)="This field is the time out value (in seconds) that will be used when"
^DD(743.4,27,21,2,0)="a fall out is being edited.  If nothing is entered in this field the"
^DD(743.4,27,21,3,0)="value of DTIME will be used."
^DD(743.4,27,"DT")="2910405"
^DD(743.4,28,0)="DIR(A,#)^743.428^^DIR2;0"
^DD(743.4,28,21,0)="^^2^2^2910405^^"
^DD(743.4,28,21,1,0)="This is a larger message shown to the user before the prompt for this"
^DD(743.4,28,21,2,0)="data element is presented."
^DD(743.4,40,0)="CODE TO CREATE DATA POINTERS^K^^POINT;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(743.4,40,3)="This is Standard MUMPS code."
^DD(743.4,40,9)="@"
^DD(743.4,40,21,0)="^^5^5^2910620^^^"
^DD(743.4,40,21,1,0)="The MUMPS code in this field should take the variables QAMDFN (= pointer"
^DD(743.4,40,21,2,0)="to the patient file) and QAMEVENT (= an event date/time) and return the"
^DD(743.4,40,21,3,0)="QAMDTPT(1,2,3,...,n) array.  The QAMDTPT array will be used to capture a"
^DD(743.4,40,21,4,0)="default value for this data element when the user is manually entering"
^DD(743.4,40,21,5,0)="a fall out."
^DD(743.4,40,"DT")="2910326"
^DD(743.4,"B","CODE TO CREATE DATA POINTERS",40)=""
^DD(743.4,"B","DICTIONARY NUMBER",2)=""
^DD(743.4,"B","DIR OUTPUT TRANSFORM",23)=""
^DD(743.4,"B","DIR(0)",20)=""
^DD(743.4,"B","DIR(?)",21)=""
^DD(743.4,"B","DIR(?,#)",22)=""
^DD(743.4,"B","DIR(??)",24)=""
^DD(743.4,"B","DIR(A)",25)=""
^DD(743.4,"B","DIR(A,#)",28)=""
^DD(743.4,"B","DIR(B)",26)=""
^DD(743.4,"B","DIR(T)",27)=""
^DD(743.4,"B","NAME",.01)=""
^DD(743.4,"B","PARENT FILE",.03)=""
^DD(743.4,"GL",0,1,.01)=""
^DD(743.4,"GL",0,3,.03)=""
^DD(743.4,"GL","DD",0,2)=""
^DD(743.4,"GL","DIR",1,25)=""
^DD(743.4,"GL","DIR",2,26)=""
^DD(743.4,"GL","DIR",3,27)=""
^DD(743.4,"GL","DIR0","E1,245",20)=""
^DD(743.4,"GL","DIR1",0,22)=""
^DD(743.4,"GL","DIR2",0,28)=""
^DD(743.4,"GL","DIROUT","E1,245",23)=""
^DD(743.4,"GL","DIRQ","E1,245",21)=""
^DD(743.4,"GL","DIRQQ","E1,245",24)=""
^DD(743.4,"GL","POINT","E1,245",40)=""
^DD(743.4,"IX",.01)=""
^DD(743.4,"RQ",.01)=""
^DD(743.4,"RQ",.03)=""
^DD(743.4,"SB",743.42,2)=""
^DD(743.4,"SB",743.422,22)=""
^DD(743.4,"SB",743.428,28)=""
^DD(743.42,0)="DICTIONARY NUMBER SUB-FIELD^^.03^3"
^DD(743.42,0,"DT")="2910405"
^DD(743.42,0,"IX","B",743.42,.01)=""
^DD(743.42,0,"NM","DICTIONARY NUMBER")=""
^DD(743.42,0,"UP")="743.4"
^DD(743.42,.01,0)="DICTIONARY NUMBER^MNJ20,6X^^0;1^K:+X'=X!(X>999999999999.999999)!(X<.000001)!(X?.E1"".""7N.N) X I $D(X) K:'$D(^DD(X)) X"
^DD(743.42,.01,1,0)="^.1"
^DD(743.42,.01,1,1,0)="743.42^B"
^DD(743.42,.01,1,1,1)="S ^QA(743.4,DA(1),""DD"",""B"",$E(X,1,30),DA)="""""
^DD(743.42,.01,1,1,2)="K ^QA(743.4,DA(1),""DD"",""B"",$E(X,1,30),DA)"
^DD(743.42,.01,3)="Type a Number between .000001 and 999999999999.999999, 6 Decimal Digits"
^DD(743.42,.01,21,0)="^^1^1^2910313^^^"
^DD(743.42,.01,21,1,0)="Enter the (sub) dictionary number where this field resides."
^DD(743.42,.01,"DT")="2910403"
^DD(743.42,.02,0)="FIELD NUMBER^NJ20,6X^^0;2^K:+X'=X!(X>999999999999.999999)!(X<.000001)!(X?.E1"".""7N.N) X I $D(X) K:'$D(^DD(+^QA(743.4,D0,""DD"",D1,0),X)) X"
^DD(743.42,.02,3)="Type a Number between .000001 and 999999999999.999999, 6 Decimal Digits"
^DD(743.42,.02,4)="D EN5^QAMUTL1"
^DD(743.42,.02,21,0)="^^1^1^2910313^^^"
^DD(743.42,.02,21,1,0)="Enter a field number."
^DD(743.42,.02,"DT")="2910403"
^DD(743.42,.03,0)="DD LEVEL^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(743.42,.03,1,0)="^.1^^0"
^DD(743.42,.03,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(743.42,.03,21,0)="^^2^2^2910405^^"
^DD(743.42,.03,21,1,0)="Enter the level in the DD at which this field is found."
^DD(743.42,.03,21,2,0)="Top level = 1,  First multiple down = 2,  Second multiple down = 3,  etc."
^DD(743.42,.03,"DT")="2910405"
^DD(743.42,"B","DD LEVEL",.03)=""
^DD(743.42,"B","DICTIONARY NUMBER",.01)=""
^DD(743.42,"B","FIELD NUMBER",.02)=""
^DD(743.42,"GL",0,1,.01)=""
^DD(743.42,"GL",0,2,.02)=""
^DD(743.42,"GL",0,3,.03)=""
^DD(743.42,"IX",.01)=""
^DD(743.422,0)="DIR(?,#) SUB-FIELD^^.01^1"
^DD(743.422,0,"DT")="2910314"
^DD(743.422,0,"NM","DIR(?,#)")=""
^DD(743.422,0,"UP")="743.4"
^DD(743.422,.01,0)="DIR(?,#)^WL^^0;1^Q"
^DD(743.422,.01,3)="Enter lines of text for DIR(""?"",#)."
^DD(743.422,.01,21,0)="^^3^3^2910314^"
^DD(743.422,.01,21,1,0)="This field is used as the data for the DIR(""?"",#) strings.  The first"
^DD(743.422,.01,21,2,0)="line of the text goes into DIR(""?"",1), the second into DIR(""?"",2), and"
^DD(743.422,.01,21,3,0)="so on."
^DD(743.422,.01,"DT")="2910314"
^DD(743.422,"B","DIR(?,#)",.01)=""
^DD(743.422,"GL",0,1,.01)=""
^DD(743.428,0)="DIR(A,#) SUB-FIELD^^.01^1"
^DD(743.428,0,"DT")="2910405"
^DD(743.428,0,"NM","DIR(A,#)")=""
^DD(743.428,0,"UP")="743.4"
^DD(743.428,.01,0)="DIR(A,#)^WL^^0;1^Q"
^DD(743.428,.01,21,0)="^^2^2^2910405^"
^DD(743.428,.01,21,1,0)="This is a larger message shown to the user before the prompt for this"
^DD(743.428,.01,21,2,0)="data element is presented."
^DD(743.428,.01,"DT")="2910405"
^DD(743.428,"B","DIR(A,#)",.01)=""
^DD(743.428,"GL",0,1,.01)=""
^DD(743.5,0)="FIELD^^1^3"
^DD(743.5,0,"DDA")="N"
^DD(743.5,0,"DT")="2910111"
^DD(743.5,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(743.5,0,"IX","B",743.5,.01)=""
^DD(743.5,0,"IX","C",743.5,.02)=""
^DD(743.5,0,"NM","GROUP")=""
^DD(743.5,0,"VR")="1.0"
^DD(743.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(743.5,.01,1,0)="^.1"
^DD(743.5,.01,1,1,0)="743.5^B"
^DD(743.5,.01,1,1,1)="S ^QA(743.5,""B"",$E(X,1,30),DA)="""""
^DD(743.5,.01,1,1,2)="K ^QA(743.5,""B"",$E(X,1,30),DA)"
^DD(743.5,.01,3)="Answer must be 3-30 characters in length."
^DD(743.5,.01,21,0)="^^1^1^2901212^"
^DD(743.5,.01,21,1,0)="This field contains the name of the group."
^DD(743.5,.01,"DT")="2901212"
^DD(743.5,.02,0)="PARENT FILE^R*P1'I^DIC(^0;2^S DIC(""S"")=""I $D(^DIC(""""AC"""",""""QAM"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(743.5,.02,1,0)="^.1"
^DD(743.5,.02,1,1,0)="743.5^C"
^DD(743.5,.02,1,1,1)="S ^QA(743.5,""C"",$E(X,1,30),DA)="""""
^DD(743.5,.02,1,1,2)="K ^QA(743.5,""C"",$E(X,1,30),DA)"
^DD(743.5,.02,1,1,"DT")="2901212"
^DD(743.5,.02,3)="Enter the file the group entries will come from."
^DD(743.5,.02,11,0)="^.2LAP"
^DD(743.5,.02,12)="You may select only QAM application group files."
^DD(743.5,.02,12.1)="S DIC(""S"")=""I $D(^DIC(""""AC"""",""""QAM"""",+Y))"""
^DD(743.5,.02,20,0)="^.3LA^^0"
^DD(743.5,.02,21,0)="^^1^1^2910111^^^"
^DD(743.5,.02,21,1,0)="This field determines which file the group entries are to be found in."
^DD(743.5,.02,"DT")="2910111"
^DD(743.5,1,0)="GROUP MEMBER^743.51A^^GRP;0"
^DD(743.5,1,21,0)="^^1^1^2920727^^"
^DD(743.5,1,21,1,0)="This field contains the actual members of the group."
^DD(743.5,1,23,0)="^^3^3^2930720^"
^DD(743.5,1,23,1,0)="The group members are stored as free-text pointers to the file specified"
^DD(743.5,1,23,2,0)="in the parent file field.  The second semi-colon piece of the data is the"
^DD(743.5,1,23,3,0)="internal entry number of the entry in the parent file."
^DD(743.5,"B","GROUP MEMBER",1)=""
^DD(743.5,"B","NAME",.01)=""
^DD(743.5,"B","PARENT FILE",.02)=""
^DD(743.5,"GL",0,1,.01)=""
^DD(743.5,"GL",0,2,.02)=""
^DD(743.5,"GL","GRP",0,1)=""
^DD(743.5,"IX",.01)=""
^DD(743.5,"IX",.02)=""
^DD(743.5,"RQ",.01)=""
^DD(743.5,"RQ",.02)=""
^DD(743.5,"SB",743.51,1)=""
^DD(743.51,0)="GROUP MEMBER SUB-FIELD^^.01^1"
^DD(743.51,0,"DT")="2901212"
^DD(743.51,0,"IX","AB",743.51,.01)=""
^DD(743.51,0,"IX","B",743.51,.01)=""
^DD(743.51,0,"NM","GROUP MEMBER")=""
^DD(743.51,0,"UP")="743.5"
^DD(743.51,.01,0)="GROUP MEMBER^MFXO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>245!($L(X)<1) X I $D(X) D EN8^QAMUTL0"
^DD(743.51,.01,1,0)="^.1"
^DD(743.51,.01,1,1,0)="743.51^B"
^DD(743.51,.01,1,1,1)="S ^QA(743.5,DA(1),""GRP"",""B"",$E(X,1,30),DA)="""""
^DD(743.51,.01,1,1,2)="K ^QA(743.5,DA(1),""GRP"",""B"",$E(X,1,30),DA)"
^DD(743.51,.01,1,2,0)="743.51^AB^MUMPS"
^DD(743.51,.01,1,2,1)="S ^QA(743.5,DA(1),""GRP"",""AB"",$P(X,"";"",2),DA)="""""
^DD(743.51,.01,1,2,2)="K ^QA(743.5,DA(1),""GRP"",""AB"",$P(X,"";"",2),DA)"
^DD(743.51,.01,1,2,"%D",0)="^^2^2^2930514^"
^DD(743.51,.01,1,2,"%D",1,0)="Cross-reference of the GROUP MEMBER's internal entry number in the file"
^DD(743.51,.01,1,2,"%D",2,0)="pointed to by the PARENT FILE field."
^DD(743.51,.01,1,2,"DT")="2910131"
^DD(743.51,.01,2)="S Y(0)=Y S Y=$P(Y,"";"")"
^DD(743.51,.01,2.1)="S Y=$P(Y,"";"")"
^DD(743.51,.01,3)="Answer must be 1-245 characters in length."
^DD(743.51,.01,4)="N DIC,DO S DIC(0)=""M"",D=""B"",DZ=""?"",DIC=$S($D(^DIC(+$P(^QA(743.5,$S($D(DA(1))#2:DA(1),1:D0),0),""^"",2),0,""GL""))#2:^(""GL""),1:"""") D:DIC]"""" DQ^DICQ Q"
^DD(743.51,.01,21,0)="^^1^1^2920728^^^^"
^DD(743.51,.01,21,1,0)="This field contains the actual members on the group."
^DD(743.51,.01,23,0)="^^3^3^2930720^"
^DD(743.51,.01,23,1,0)="The group members are stored as free-text pointers to the file specified"
^DD(743.51,.01,23,2,0)="in the parent file field.  The second semi-colon piece of the data is the"
^DD(743.51,.01,23,3,0)="internal entry number of the entry in the parent file."
^DD(743.51,.01,"DT")="2920602"
^DD(743.51,"B","GROUP MEMBER",.01)=""
^DD(743.51,"GL",0,1,.01)=""
^DD(743.51,"IX",.01)=""
^DD(743.6,0)="FIELD^^1^2"
^DD(743.6,0,"DDA")="N"
^DD(743.6,0,"DT")="2910117"
^DD(743.6,0,"IX","AM",743.61,.01)=""
^DD(743.6,0,"IX","B",743.6,.01)=""
^DD(743.6,0,"NM","AUTO ENROLL RUN DATE")=""
^DD(743.6,0,"VR")="1.0"
^DD(743.6,.01,0)="RUN DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.6,.01,1,0)="^.1"
^DD(743.6,.01,1,1,0)="743.6^B"
^DD(743.6,.01,1,1,1)="S ^QA(743.6,""B"",$E(X,1,30),DA)="""""
^DD(743.6,.01,1,1,2)="K ^QA(743.6,""B"",$E(X,1,30),DA)"
^DD(743.6,.01,3)="Enter a date that auto enroll ran."
^DD(743.6,.01,21,0)="^^1^1^2910118^"
^DD(743.6,.01,21,1,0)="This field contains the date that auto enroll was run for."
^DD(743.6,.01,"DT")="2910116"
^DD(743.6,1,0)="MONITOR^743.61PA^^1;0"
^DD(743.6,1,21,0)="^^1^1^2930208^"
^DD(743.6,1,21,1,0)="This field contains the monitor(s) that auto enroll ran."
^DD(743.6,"B","MONITOR",1)=""
^DD(743.6,"B","RUN DATE",.01)=""
^DD(743.6,"GL",0,1,.01)=""
^DD(743.6,"GL",1,0,1)=""
^DD(743.6,"IX",.01)=""
^DD(743.6,"RQ",.01)=""
^DD(743.6,"SB",743.61,1)=""
^DD(743.61,0)="MONITOR SUB-FIELD^^1^2"
^DD(743.61,0,"DT")="2910117"
^DD(743.61,0,"IX","B",743.61,.01)=""
^DD(743.61,0,"NM","MONITOR")=""
^DD(743.61,0,"UP")="743.6"
^DD(743.61,.01,0)="MONITOR^MP743'^QA(743,^0;1^Q"
^DD(743.61,.01,1,0)="^.1"
^DD(743.61,.01,1,1,0)="743.61^B"
^DD(743.61,.01,1,1,1)="S ^QA(743.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(743.61,.01,1,1,2)="K ^QA(743.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(743.61,.01,1,2,0)="743.6^AM"
^DD(743.61,.01,1,2,1)="S ^QA(743.6,""AM"",$E(X,1,30),DA(1),DA)="""""
^DD(743.61,.01,1,2,2)="K ^QA(743.6,""AM"",$E(X,1,30),DA(1),DA)"
^DD(743.61,.01,1,2,"DT")="2910201"
^DD(743.61,.01,3)="Enter a monitor that ran on this date."
^DD(743.61,.01,21,0)="^^1^1^2930208^^"
^DD(743.61,.01,21,1,0)="This field contains the monitor(s) that auto enroll ran."
^DD(743.61,.01,"DT")="2910201"
^DD(743.61,1,0)="DATE MONITOR RAN^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(743.61,1,3)="Enter the date this monitor was run."
^DD(743.61,1,21,0)="^^1^1^2910118^"
^DD(743.61,1,21,1,0)="This field contains the actual date that this monitor ran."
^DD(743.61,1,"DT")="2910117"
^DD(743.61,"B","DATE MONITOR RAN",1)=""
^DD(743.61,"B","MONITOR",.01)=""
^DD(743.61,"GL",0,1,.01)=""
^DD(743.61,"GL",0,2,1)=""
^DD(743.61,"IX",.01)=""
^DD(743.91,0)="FIELD^^1^2"
^DD(743.91,0,"DDA")="N"
^DD(743.91,0,"DT")="2901211"
^DD(743.91,0,"IX","B",743.91,.01)=""
^DD(743.91,0,"IX","BU",743.91,.01)=""
^DD(743.91,0,"NM","RATIONALE")=""
^DD(743.91,0,"PT",743.04,.01)=""
^DD(743.91,0,"VR")="1.0"
^DD(743.91,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(743.91,.01,1,0)="^.1"
^DD(743.91,.01,1,1,0)="743.91^B"
^DD(743.91,.01,1,1,1)="S ^QA(743.91,""B"",$E(X,1,30),DA)="""""
^DD(743.91,.01,1,1,2)="K ^QA(743.91,""B"",$E(X,1,30),DA)"
^DD(743.91,.01,1,2,0)="743.91^BU^MUMPS"
^DD(743.91,.01,1,2,1)="S ^QA(743.91,""BU"",$E($$UP^XLFSTR(X),1,30),DA)="""""
^DD(743.91,.01,1,2,2)="K ^QA(743.91,""BU"",$E($$UP^XLFSTR(X),1,30),DA)"
^DD(743.91,.01,1,2,"%D",0)="^^1^1^2930514^"
^DD(743.91,.01,1,2,"%D",1,0)="Uppercase cross-reference of the NAME."
^DD(743.91,.01,1,2,"DT")="2930513"
^DD(743.91,.01,3)="Answer must be 3-30 characters in length."
^DD(743.91,.01,21,0)="^^1^1^2910107^^^"
^DD(743.91,.01,21,1,0)="This field contains the rationales for the use of a monitor."
^DD(743.91,.01,"DT")="2930513"
^DD(743.91,1,0)="REQUIRES EXPLANATION^S^1:YES;0:NO;^0;2^Q"
^DD(743.91,1,3)="Enter Y(es) if this rationale requires an explanation."
^DD(743.91,1,21,0)="^^3^3^2910718^^^^"
^DD(743.91,1,21,1,0)="This field should be answered Y(es) for rationales that require an"
^DD(743.91,1,21,2,0)="explanation.  When a user selects a rationale that requires an"
^DD(743.91,1,21,3,0)="explanation, the user may explain its choice in a word processing field."
^DD(743.91,1,"DT")="2910718"
^DD(743.91,"B","NAME",.01)=""
^DD(743.91,"B","REQUIRES EXPLANATION",1)=""
^DD(743.91,"GL",0,1,.01)=""
^DD(743.91,"GL",0,2,1)=""
^DD(743.91,"IX",.01)=""
^DD(743.91,"RQ",.01)=""
^DD(743.92,0)="FIELD^^100^2"
^DD(743.92,0,"DDA")="N"
^DD(743.92,0,"DT")="2910110"
^DD(743.92,0,"IX","B",743.92,.01)=""
^DD(743.92,0,"IX","BU",743.92,.01)=""
^DD(743.92,0,"NM","TIME FRAME")=""
^DD(743.92,0,"PT",743,50)=""
^DD(743.92,0,"VR")="1.0"
^DD(743.92,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(743.92,.01,1,0)="^.1"
^DD(743.92,.01,1,1,0)="743.92^B"
^DD(743.92,.01,1,1,1)="S ^QA(743.92,""B"",$E(X,1,30),DA)="""""
^DD(743.92,.01,1,1,2)="K ^QA(743.92,""B"",$E(X,1,30),DA)"
^DD(743.92,.01,1,2,0)="743.92^BU^MUMPS"
^DD(743.92,.01,1,2,1)="S ^QA(743.92,""BU"",$E($$UP^XLFSTR(X),1,30),DA)="""""
^DD(743.92,.01,1,2,2)="K ^QA(743.92,""BU"",$E($$UP^XLFSTR(X),1,30),DA)"
^DD(743.92,.01,1,2,"%D",0)="^^1^1^2930514^"
^DD(743.92,.01,1,2,"%D",1,0)="Uppercase cross-reference of the NAME."
^DD(743.92,.01,1,2,"DT")="2930513"
^DD(743.92,.01,3)="Answer must be 3-30 characters in length."
^DD(743.92,.01,21,0)="^^1^1^2910115^^^"
^DD(743.92,.01,21,1,0)="This field contains the name of the time frames that the user will see."
^DD(743.92,.01,"DT")="2930513"
^DD(743.92,100,0)="START/END DATE CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(743.92,100,3)="This is Standard MUMPS code."
^DD(743.92,100,9)="@"
^DD(743.92,100,21,0)="^^2^2^2910110^^"
^DD(743.92,100,21,1,0)="This field contains the entry point of a routine that will be used to"
^DD(743.92,100,21,2,0)="calculate the starting and ending dates of the time frame."
^DD(743.92,100,"DT")="2910110"
^DD(743.92,"B","NAME",.01)=""
^DD(743.92,"B","START/END DATE CODE",100)=""
^DD(743.92,"GL",0,1,.01)=""
^DD(743.92,"GL",1,"E1,245",100)=""
^DD(743.92,"IX",.01)=""
^DD(743.92,"RQ",.01)=""
^DD(745.1,0)="FIELD^^43^45"
^DD(745.1,0,"DDA")="N"
^DD(745.1,0,"DT")="3020417"
^DD(745.1,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(745.1,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(745.1,0,"IX","AC",745.1,27)=""
^DD(745.1,0,"IX","B",745.1,.01)=""
^DD(745.1,0,"IX","BU",745.11,.01)=""
^DD(745.1,0,"IX","C",745.1,.01)=""
^DD(745.1,0,"IX","CMB",745.1,12)=""
^DD(745.1,0,"IX","D",745.1,1)=""
^DD(745.1,0,"IX","E",745.1,2)=""
^DD(745.1,0,"IX","F",745.1,41)=""
^DD(745.1,0,"NM","CONSUMER CONTACT")=" "
^DD(745.1,0,"VR")="2.0"
^DD(745.1,0,"VRPK")="QAC"
^DD(745.1,.01,0)="CONTACT NUMBER^RFX^^0;1^K:$L(X)>14!($L(X)<10) X"
^DD(745.1,.01,1,0)="^.1"
^DD(745.1,.01,1,1,0)="745.1^B"
^DD(745.1,.01,1,1,1)="S ^QA(745.1,""B"",$E(X,1,30),DA)="""""
^DD(745.1,.01,1,1,2)="K ^QA(745.1,""B"",$E(X,1,30),DA)"
^DD(745.1,.01,1,1,"%D",0)="^^1^1^2931110^"
^DD(745.1,.01,1,1,"%D",1,0)="Regular cross-reference used for look-up."
^DD(745.1,.01,1,2,0)="745.1^C^MUMPS"
^DD(745.1,.01,1,2,1)="S ^QA(745.1,""C"",$E($P(X,""."",2),3,99),DA)="""""
^DD(745.1,.01,1,2,2)="K ^QA(745.1,""C"",$E($P(X,""."",2),3,99),DA)"
^DD(745.1,.01,1,2,"%D",0)="^^1^1^2981208^^^"
^DD(745.1,.01,1,2,"%D",1,0)="Cross-reference of the sequence number portion of the contact number."
^DD(745.1,.01,1,2,"DT")="2981208"
^DD(745.1,.01,3)="This field is non interactive with a user.  It is a self generated Contact number used to identify the consumer contact."
^DD(745.1,.01,21,0)="^^1^1^2981202^^^^"
^DD(745.1,.01,21,1,0)="This is a self generated Contact number used to identify consumer contact."
^DD(745.1,.01,"DT")="2981208"
^DD(745.1,1,0)="DATE OF CONTACT^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(745.1,1,1,0)="^.1"
^DD(745.1,1,1,1,0)="745.1^D"
^DD(745.1,1,1,1,1)="S ^QA(745.1,""D"",$E(X,1,30),DA)="""""
^DD(745.1,1,1,1,2)="K ^QA(745.1,""D"",$E(X,1,30),DA)"
^DD(745.1,1,1,1,"%D",0)="^^1^1^2931110^"
^DD(745.1,1,1,1,"%D",1,0)="Regular cross-reference used for look-up."
^DD(745.1,1,1,1,"DT")="2930922"
^DD(745.1,1,3)="Enter a date of Today or earlier."
^DD(745.1,1,21,0)="^^2^2^2971006^^^^"
^DD(745.1,1,21,1,0)="This is the date the Patient Representative was initially contacted."
^DD(745.1,1,21,2,0)="The date must be Today or earlier."
^DD(745.1,1,"DT")="2971006"
^DD(745.1,2,0)="PATIENT NAME^P2'^DPT(^0;3^Q"
^DD(745.1,2,1,0)="^.1"
^DD(745.1,2,1,1,0)="745.1^E"
^DD(745.1,2,1,1,1)="S ^QA(745.1,""E"",$E(X,1,30),DA)="""""
^DD(745.1,2,1,1,2)="K ^QA(745.1,""E"",$E(X,1,30),DA)"
^DD(745.1,2,1,1,"%D",0)="^^1^1^2931110^"
^DD(745.1,2,1,1,"%D",1,0)="Regular cross-reference used for look-up."
^DD(745.1,2,1,1,"DT")="2930922"
^DD(745.1,2,3)="Enter the name of the patient who is the subject of the contact."
^DD(745.1,2,21,0)="^^1^1^2931110^^^"
^DD(745.1,2,21,1,0)="This is the name of the patient concerned in the inquiry."
^DD(745.1,2,"DT")="2930922"
^DD(745.1,3,0)="SSN^CJ9^^ ; ^X ^DD(745.1,3,9.2) S X=$P(Y(745.1,3,101),U,9) S D0=Y(745.1,3,80)"
^DD(745.1,3,9)="^"
^DD(745.1,3,9.01)="2^.09;745.1^2"
^DD(745.1,3,9.1)="2:.09"
^DD(745.1,3,9.2)="S Y(745.1,3,80)=$S($D(D0):D0,1:""""),Y(745.1,3,1)=$S($D(^QA(745.1,D0,0)):^(0),1:""""),D0=$P(Y(745.1,3,1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S Y(745.1,3,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(745.1,3,21,0)="^^1^1^2931110^^"
^DD(745.1,3,21,1,0)="This is the Social Security Number of the patient concerned in the contact."
^DD(745.1,4,0)="DOB^DC^^ ; ^X ^DD(745.1,4,9.2) S X=$P(Y(745.1,4,101),U,3) S D0=Y(745.1,4,80)"
^DD(745.1,4,9)="^"
^DD(745.1,4,9.01)="2^.03;745.1^2"
^DD(745.1,4,9.1)="2:.03"
^DD(745.1,4,9.2)="S Y(745.1,4,80)=$S($D(D0):D0,1:""""),Y(745.1,4,1)=$S($D(^QA(745.1,D0,0)):^(0),1:""""),D0=$P(Y(745.1,4,1),U,3) S:'$D(^DPT(+D0,0)) D0=-1 S Y(745.1,4,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(745.1,4,21,0)="^^1^1^2931110^^^"
^DD(745.1,4,21,1,0)="This is the date of birth of the patient concerned in the contact."
^DD(745.1,5,0)="SEX^CJ6^^ ; ^X ^DD(745.1,5,9.3) S X=$P($P(Y(745.1,5,102),$C(59)_$P(Y(745.1,5,101),U,2)_"":"",2),$C(59),1) S D0=Y(745.1,5,80)"
^DD(745.1,5,9)="^"
^DD(745.1,5,9.01)="2^.02;745.1^2"
^DD(745.1,5,9.1)="2:.02"
^DD(745.1,5,9.2)="S Y(745.1,5,80)=$S($D(D0):D0,1:""""),Y(745.1,5,1)=$S($D(^QA(745.1,D0,0)):^(0),1:""""),D0=$P(Y(745.1,5,1),U,3) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(745.1,5,9.3)="X ^DD(745.1,5,9.2) S Y(745.1,5,102)=$C(59)_$S($D(^DD(2,.02,0)):$P(^(0),U,3),1:""""),Y(745.1,5,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(745.1,5,21,0)="^^1^1^2931110^^"
^DD(745.1,5,21,1,0)="This is the sex of the patient concerned in the contact."
^DD(745.1,6,0)="ELIGIBILITY STATUS^FX^^0;4^S DIC=8,DIC(0)=""EMNQZ"" D ^DIC S X=$P($G(Y(0)),""^"",1) K:Y'>0 X"
^DD(745.1,6,3)="This is the patient's eligibility status."
^DD(745.1,6,4)="N D,DO,X S D=""B"",DIC=""^DIC(8,"",DIC(0)=""AEMNQ"" D DQ^DICQ Q"
^DD(745.1,6,21,0)="^^1^1^2931110^^^"
^DD(745.1,6,21,1,0)="This is the patient's eligibility status at the time of the contact."
^DD(745.1,6,"DT")="2930920"
^DD(745.1,7,0)="CATEGORY^FX^^0;5^S DIC=408.32,DIC(0)=""EMNQZ"" D ^DIC S X=$P($G(Y(0)),""^"",1) K:Y'>0 X"
^DD(745.1,7,3)="This is the patient's Means test category."
^DD(745.1,7,4)="N D,DO,X S D=""B"",DIC=""^DG(408.32,"",DIC(0)=""AEMNQ"" D DQ^DICQ Q"
^DD(745.1,7,21,0)="^^1^1^2931110^^^"
^DD(745.1,7,21,1,0)="This is the Means test category assigned to the patient at the time of the contact."
^DD(745.1,7,"DT")="2930920"
^DD(745.1,8,0)="INFORMATION TAKEN BY^*P200'^VA(200,^0;6^S DIC(""S"")=""I $D(^XUSEC(""""QAC CONTACT"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(745.1,8,3)="Enter the name of the person who collected the information."
^DD(745.1,8,4)="I '$O(^XUSEC(""QAC CONTACT"",0)) D EN^DDIOL(""  No applicable persons found! Use the 'Patient Representative""),EN^DDIOL(""  Keys' option to create a list of choices."")"
^DD(745.1,8,12)="Persons able to collect information for the Patient Representative package."
^DD(745.1,8,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""QAC CONTACT"""",+Y))"""
^DD(745.1,8,21,0)="^^2^2^2940303^"
^DD(745.1,8,21,1,0)="This is the name of the person who collected the information"
^DD(745.1,8,21,2,0)="from the contact."
^DD(745.1,8,"DT")="2930920"
^DD(745.1,9,0)="ENTERED BY^RP200'^VA(200,^0;7^Q"
^DD(745.1,9,21,0)="^^1^1^2931110^^^"
^DD(745.1,9,21,1,0)="This is the person entering the contact information.  This is not a user interactive field."
^DD(745.1,9,"DT")="2930920"
^DD(745.1,10,0)="NAME OF CONTACT^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(745.1,10,3)="Enter the name of the person (3-30 characters) who made the contact."
^DD(745.1,10,21,0)="1^^1^1^2931110^^"
^DD(745.1,10,21,1,0)="This is the name of the person who contacted the Patient Representative."
^DD(745.1,10,"DT")="2930920"
^DD(745.1,11,0)="TELEPHONE NO. OF CONTACT^FXO^^0;9^K:X'?3N1""-""4N&(X'?3N1""-""4N1"" ""3.4N)&(X'?3N1"" ""3N1""-""4N)&(X'?3N1"" ""3N1""-""4N1"" ""3.4N) X I $G(X)]"""",($P(X,"" "")?3N) S X=""(""_$P(X,"" "")_"")""_$P(X,"" "",2,3)"
^DD(745.1,11,2)="S Y(0)=Y I $P(X,"" "")?3N S $P(X,"" "")=""(""_$P(X,"" "")_"")"""
^DD(745.1,11,2.1)="I $P(X,"" "")?3N S $P(X,"" "")=""(""_$P(X,"" "")_"")"""
^DD(745.1,11,3)="Answer with phone number."
^DD(745.1,11,21,0)="^^4^4^2971120^^^^"
^DD(745.1,11,21,1,0)="This is the telephone number of the contact.  Use one of the following"
^DD(745.1,11,21,2,0)="formats.  Use a hyphen in the main portion of the number.  Leave a space"
^DD(745.1,11,21,3,0)="between area code and the number and between the number and any extension."
^DD(745.1,11,21,4,0)="  i.e. 123 123-1234   123 123-1234 1234   123-1234   123-1234 1234"
^DD(745.1,11,"DT")="2971208"
^DD(745.1,12,0)="CONTACT MADE BY^S^PA:Patient;RE:Relative;FR:Friend;CO:Congressional;VH:VISN/HQ;VO:Veterans Service Organization;AT:Attorney/Legal Guardian/Conservator/Trustee;DI:Director's Office;ST:Staff - VAMC;OT:Other;^0;10^Q"
^DD(745.1,12,1,0)="^.1"
^DD(745.1,12,1,1,0)="745.1^CMB"
^DD(745.1,12,1,1,1)="S ^QA(745.1,""CMB"",$E(X,1,30),DA)="""""
^DD(745.1,12,1,1,2)="K ^QA(745.1,""CMB"",$E(X,1,30),DA)"
^DD(745.1,12,1,1,"%D",0)="^^2^2^2950713^"
^DD(745.1,12,1,1,"%D",1,0)="Used for sorting and by the Congressional Contact field to check for"
^DD(745.1,12,1,1,"%D",2,0)="entries or edits of ""CO"" (Congressional) type contacts."
^DD(745.1,12,1,1,"DT")="2950713"
^DD(745.1,12,1,2,0)="^^TRIGGER^745.1^29"
^DD(745.1,12,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X'=""CO"" I X S X=DIV S Y(1)=$S($D(^QA(745.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(745.1,12,1,2,1.4)"
^DD(745.1,12,1,2,1.4)="S DIH=$S($D(^QA(745.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=745.1,DIG=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1,12,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^QA(745.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S X=X'=""CO"" I X S X=DIV S Y(1)=$S($D(^QA(745.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(745.1,12,1,2,2.4)"
^DD(745.1,12,1,2,2.4)="S DIH=$S($D(^QA(745.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=745.1,DIG=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1,12,1,2,"%D",0)="^^3^3^2970726^^"
^DD(745.1,12,1,2,"%D",1,0)="When the Contact Made By field is edited, this cross reference checks to"
^DD(745.1,12,1,2,"%D",2,0)="see if the entry is ""CO"".  If it is not ""CO"", it deletes any entry in the"
^DD(745.1,12,1,2,"%D",3,0)="Congressional Contact field."
^DD(745.1,12,1,2,"CREATE CONDITION")="INTERNAL(#12)'=""CO"""
^DD(745.1,12,1,2,"CREATE VALUE")="@"
^DD(745.1,12,1,2,"DELETE CONDITION")="INTERNAL(#12)'=""CO"""
^DD(745.1,12,1,2,"DELETE VALUE")="@"
^DD(745.1,12,1,2,"DT")="2941202"
^DD(745.1,12,1,2,"FIELD")="CONGRES"
^DD(745.1,12,3)="Enter the person, organization, or authority that made the contact."
^DD(745.1,12,21,0)="^^1^1^2970803^^^^"
^DD(745.1,12,21,1,0)="This is the person, organization, or authority that made the contact."
^DD(745.1,12,"DT")="2970803"
^DD(745.1,13,0)="SOURCE OF CONTACT^S^L:Letter;W:Ward Visit;V:Visit;P:Phone;S:Survey;I:Internet;^0;11^Q"
^DD(745.1,13,1,0)="^.1^^0"
^DD(745.1,13,3)="Enter the method of contact."
^DD(745.1,13,21,0)="^^1^1^2970721^^^^"
^DD(745.1,13,21,1,0)="This is how the contact was made."
^DD(745.1,13,"DT")="2970717"
^DD(745.1,14,0)="LOCATION OF EVENT^P44'^SC(^0;12^Q"
^DD(745.1,14,3)="The location must be a valid entry in the Hospital Location file."
^DD(745.1,14,21,0)="^^1^1^2931110^^"
^DD(745.1,14,21,1,0)="This is the hospital location associated with the issue of the contact."
^DD(745.1,14,"DT")="2931104"
^DD(745.1,15,0)="*SERVICES INVOLVED^745.115PA^^1;0"
^DD(745.1,15,"DT")="2941123"
^DD(745.1,16,0)="*CATEGORY OF CARE^*P745.3'^QA(745.3,^2;1^S DIC(""S"")=""S QA=^(0),QA(2)=$P(QA,U,2),QA(3)=$P(QA,U,3),QA(4)=$P(QA,U,4) I QA(4)="""""""",QA(2)]"""""""",(QA(3)]""""""""&(QA(2)'=4))!(QA(3)=""""""""&(QA(2)=4)),'$G(^(""""I""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(745.1,16,.1)="CATEGORY OF CARE"
^DD(745.1,16,3)="Enter the Service and Level of patient's care."
^DD(745.1,16,12)="Indicates Category of Care (Service and Level)."
^DD(745.1,16,12.1)="S DIC(""S"")=""S QA=^(0),QA(2)=$P(QA,U,2),QA(3)=$P(QA,U,3),QA(4)=$P(QA,U,4) I QA(4)="""""""",QA(2)]"""""""",(QA(3)]""""""""&(QA(2)'=4))!(QA(3)=""""""""&(QA(2)=4)),'$G(^(""""I""""))"""
^DD(745.1,16,21,0)="^^2^2^2941123^^^"
^DD(745.1,16,21,1,0)="This is the patient's service and level of care as defined for the"
^DD(745.1,16,21,2,0)="Quality Matrix."
^DD(745.1,16,"DT")="2941123"
^DD(745.1,16.5,0)="TREATMENT STATUS^RS^I:Inpatient;O:Outpatient;D:Domiciliary;N:NHCU;L:Long Term Psych;E:Extended/Intermed. Care;H:HBHC;^2;2^Q"
^DD(745.1,16.5,3)="Enter whether the patient was inpatient, outpatient, etc. at the time of the issue."
^DD(745.1,16.5,21,0)="^^1^1^2970811^^^^"
^DD(745.1,16.5,21,1,0)="This indicates whether the patient was inpatient, outpatient, etc."
^DD(745.1,16.5,"DT")="2970811"
^DD(745.1,17,0)="EMPLOYEE^745.117PA^^8;0"
^DD(745.1,17,21,0)="^^2^2^2970721^^^^"
^DD(745.1,17,21,1,0)="This is the employee allegedly involved in the issue or the "
^DD(745.1,17,21,2,0)="employee receiving the compliment."
^DD(745.1,18,0)="*REFER TO^745.118A^^10;0"
^DD(745.1,18,21,0)="^^1^1^2941123^^"
^DD(745.1,18,21,1,0)="This is the person or service the issue is referred to for action."
^DD(745.1,18,"DT")="2941123"
^DD(745.1,19,0)="DATE SENT^DX^^2;4^S %DT=""EXP"",%DT(0)=$P(^QA(745.1,D0,0),""^"",2)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X"
^DD(745.1,19,3)="Enter the date this issue was referred for action."
^DD(745.1,19,4)="D EN3^QACUTIL"
^DD(745.1,19,21,0)="^^1^1^2931110^^"
^DD(745.1,19,21,1,0)="This is the date the issue was referred to a person or service for action."
^DD(745.1,19,"DT")="2931104"
^DD(745.1,20,0)="DAYS RESPONSE EXPECTED BY^NJ4,0^^2;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(745.1,20,3)="Enter the number of days (0-9999) a response is expected on the issue."
^DD(745.1,20,21,0)="^^2^2^2931105^^^^"
^DD(745.1,20,21,1,0)="This is the number of days to expect a response on the issue."
^DD(745.1,20,21,2,0)="Enter a whole number between 0 and 9999."
^DD(745.1,20,"DT")="2930920"
^DD(745.1,20.1,0)="DATE DUE^DC^^ ; ^S Y(745.1,20.1,1)=$S($D(^QA(745.1,D0,2)):^(2),1:"""") S X=$P(Y(745.1,20.1,1),U,4),X1=X,X2=+$P(Y(745.1,20.1,1),U,5),X="""" D C^%DTC:X1"
^DD(745.1,20.1,9)="^"
^DD(745.1,20.1,9.01)="745.1^20;745.1^19"
^DD(745.1,20.1,9.1)="DATE SENT+DAYS RESPONSE EXPECTED BY"
^DD(745.1,20.1,21,0)="^^3^3^2950127^^"
^DD(745.1,20.1,21,1,0)="If there is a number in the Days Response Expected By field, that is added"
^DD(745.1,20.1,21,2,0)="to the Date Sent to obtain the entry in the Date Due field.  Date Due"
^DD(745.1,20.1,21,3,0)="applies to when a response is expected for a Report of Contact."
^DD(745.1,21,0)="ISSUE CODES^745.121PA^^3;0"
^DD(745.1,21,21,0)="^^1^1^2970925^^^^"
^DD(745.1,21,21,1,0)="This is a code for a brief statement of the issue."
^DD(745.1,21,"DT")="2970806"
^DD(745.1,22,0)="ISSUE TEXT^745.122^^4;0"
^DD(745.1,22,21,0)="^^1^1^2950127^"
^DD(745.1,22,21,1,0)="This is a written discussion of the issue(s)."
^DD(745.1,23,0)="*REPORT OF CONTACT GENERATED^S^0:NO;1:YES;^5;1^Q"
^DD(745.1,23,21,0)="^^2^2^2950112^^^^"
^DD(745.1,23,21,1,0)="This field contains a ""1"" when a report of contact has been generated."
^DD(745.1,23,21,2,0)="This is not a user interactive field."
^DD(745.1,23,"DT")="2950110"
^DD(745.1,24,0)="QM INVOLVEMENT^745.124SA^^9;0"
^DD(745.1,24,21,0)="^^1^1^2950127^"
^DD(745.1,24,21,1,0)="This is the type of QM activity for this same issue."
^DD(745.1,25,0)="RESOLUTION COMMENTS^745.125^^6;0"
^DD(745.1,25,21,0)="^^1^1^2930922^"
^DD(745.1,25,21,1,0)="This is a discussion of how the issue or issues were resolved."
^DD(745.1,26,0)="DATE RESOLVED^DX^^7;1^S %DT=""EXP"",%DT(0)=$P(^QA(745.1,D0,0),""^"",2)\1 D ^%DT K %DT(0) S X=Y K:(Y<1)!(Y\1>DT) X"
^DD(745.1,26,1,0)="^.1"
^DD(745.1,26,1,1,0)="^^TRIGGER^745.1^27"
^DD(745.1,26,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""C"" X ^DD(745.1,26,1,1,1.4)"
^DD(745.1,26,1,1,1.4)="S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1,26,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""O"" X ^DD(745.1,26,1,1,2.4)"
^DD(745.1,26,1,1,2.4)="S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1,26,1,1,"%D",0)="^^3^3^2950717^^"
^DD(745.1,26,1,1,"%D",1,0)="When this field has a date entered, it will stuff a ""C"" in the"
^DD(745.1,26,1,1,"%D",2,0)="status field to close the record and prevent the record from"
^DD(745.1,26,1,1,"%D",3,0)="showing up again in the edit option."
^DD(745.1,26,1,1,"CREATE VALUE")="S X=""C"""
^DD(745.1,26,1,1,"DELETE VALUE")="S X=""O"""
^DD(745.1,26,1,1,"DT")="2930929"
^DD(745.1,26,1,1,"FIELD")="STATUS"
^DD(745.1,26,3)="Enter the date the record was closed."
^DD(745.1,26,4)="D EN3^QACUTIL"
^DD(745.1,26,21,0)="^^1^1^2950717^^"
^DD(745.1,26,21,1,0)="This is the date the record was closed."
^DD(745.1,26,"DT")="2970816"
^DD(745.1,27,0)="STATUS^S^O:Open;C:Closed;^7;2^Q"
^DD(745.1,27,1,0)="^.1"
^DD(745.1,27,1,1,0)="745.1^AC^MUMPS"
^DD(745.1,27,1,1,1)="I $D(QACALERT)#2,$P($G(^QA(740,1,""QAC"")),U,2),X=""C"" D CLOSE^QACALRT0(DA)"
^DD(745.1,27,1,1,2)="Q"
^DD(745.1,27,1,1,"%D",0)="^^1^1^2950323^^^^"
^DD(745.1,27,1,1,"%D",1,0)="When a record is closed all pending alerts are killed."
^DD(745.1,27,1,1,"DT")="2950323"
^DD(745.1,27,5,1,0)="745.1^26^1"
^DD(745.1,27,5,2,0)="745.1^34^1"
^DD(745.1,27,21,0)="^^2^2^2930922^^"
^DD(745.1,27,21,1,0)="This field contains ""O"" while the record is Open and ""C"" when the record is "
^DD(745.1,27,21,2,0)="Closed.  This is not a user interactive field."
^DD(745.1,27,"DT")="2950323"
^DD(745.1,28,0)="REFER CONTACT TO^745.128PA^^11;0"
^DD(745.1,28,21,0)="^^1^1^2941130^"
^DD(745.1,28,21,1,0)="This is the person(s) who will be notified of this patient contact."
^DD(745.1,29,0)="CONGRESSIONAL CONTACT^*P745.4'^QA(745.4,^0;13^S DIC(""S"")=""I ($P(^QA(745.1,D0,0),U,10)=""""CO""""),(+$P(^QA(745.4,+Y,0),U,2)=0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(745.1,29,3)="Enter the name of the office or person making the contact."
^DD(745.1,29,5,1,0)="745.1^12^2"
^DD(745.1,29,12)="Screen for Active congressional names."
^DD(745.1,29,12.1)="S DIC(""S"")=""I ($P(^QA(745.1,D0,0),U,10)=""""CO""""),(+$P(^QA(745.4,+Y,0),U,2)=0)"""
^DD(745.1,29,21,0)="^^2^2^2950127^"
^DD(745.1,29,21,1,0)="This is the congressional office or person that contacted the Patient"
^DD(745.1,29,21,2,0)="Representative."
^DD(745.1,29,"DT")="2941202"
^DD(745.1,30,0)="SOURCE(S) OF CONTACT^745.11SA^^12;0"
^DD(745.1,31,0)="PERIOD OF SERVICE^P21'^DIC(21,^0;14^Q"
^DD(745.1,31,21,0)="^^1^1^2970724^"
^DD(745.1,31,21,1,0)="This is the period of service, taken from the Patient File."
^DD(745.1,31,"DT")="2970807"
^DD(745.1,32,0)="PERSIAN GULF SERVICE^S^Y:YES;N:NO;^0;15^Q"
^DD(745.1,32,3)=" "
^DD(745.1,32,21,0)="^^1^1^2980203^^"
^DD(745.1,32,21,1,0)="This is taken from the Patient file, field #.32201, Persian War Service."
^DD(745.1,32,"DT")="2980203"
^DD(745.1,33,0)="REFER TO SEAT^S^Y:YES;N:NO;^2;3^Q"
^DD(745.1,33,3)="Has this Report of Contact been referred to SEAT?"
^DD(745.1,33,21,0)="^.001^1^1^3020412^^"
^DD(745.1,33,21,1,0)="Has this Report of Contact been referred to SEAT? "
^DD(745.1,33,23,0)="^^1^1^3020412^"
^DD(745.1,33,23,1,0)="Field will no longer be used after QAC*2.0*17."
^DD(745.1,33,"DT")="2970724"
^DD(745.1,34,0)="*DATE RESOLVED^DI^^7;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(745.1,34,1,0)="^.1"
^DD(745.1,34,1,1,0)="^^TRIGGER^745.1^27"
^DD(745.1,34,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""C"" X ^DD(745.1,34,1,1,1.4)"
^DD(745.1,34,1,1,1.4)="S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1,34,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^QA(745.1,D0,7)):^(7),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""O"" X ^DD(745.1,34,1,1,2.4)"
^DD(745.1,34,1,1,2.4)="S DIH=$S($D(^QA(745.1,DIV(0),7)):^(7),1:""""),DIV=X S $P(^(7),U,2)=DIV,DIH=745.1,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1,34,1,1,"CREATE VALUE")="S X=""C"""
^DD(745.1,34,1,1,"DELETE VALUE")="S X=""O"""
^DD(745.1,34,1,1,"DT")="2970806"
^DD(745.1,34,1,1,"FIELD")="#27"
^DD(745.1,34,3)=" "
^DD(745.1,34,21,0)="^^1^1^2970818^^"
^DD(745.1,34,21,1,0)="This field will not be used-was set up in planning stages of patch QAC*2*3"
^DD(745.1,34,"DT")="2970818"
^DD(745.1,35,0)="DAYS TO RESOLUTION^NJ3,0^^7;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(745.1,35,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(745.1,35,9)="^"
^DD(745.1,35,21,0)="^^1^1^2970804^^^"
^DD(745.1,35,21,1,0)="This a field calculated by subtracting date ROC created by date resolved."
^DD(745.1,35,"DT")="2970724"
^DD(745.1,36,0)="LEVEL OF SATISFACTION^S^1:Not at all satisfied;2:Slightly satisfied;3:Somewhat satisfied;4:Pretty satisfied;5:Very satisfied;6:Extremey satisfied;^7;5^Q"
^DD(745.1,36,3)="Enter the patient's report of level of satisfaction"
^DD(745.1,36,21,0)="^^2^2^3020416^"
^DD(745.1,36,21,1,0)="This is the patient's level of satisfaction with the resolution of the "
^DD(745.1,36,21,2,0)="Report of Contact. This field will not be used after patch QAC*2*17."
^DD(745.1,36,"DT")="3020416"
^DD(745.1,37,0)="DIVISION^R*P4'^DIC(4,^0;16^S DIC(""S"")=""I $D(^DG(40.8,""""AD"""",+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(745.1,37,3)="Enter the Division of this Contact.  Enter ""??"" for choices."
^DD(745.1,37,4)=" "
^DD(745.1,37,12)="Choice is made from INSTITUTION (#4) file entries pointed to by the MEDICAL CENTER DIVISION (#40.8) file."
^DD(745.1,37,12.1)="S DIC(""S"")=""I $D(^DG(40.8,""""AD"""",+Y))"""
^DD(745.1,37,21,0)="^.001^1^1^3020412^^^"
^DD(745.1,37,21,1,0)="This field will hold the Division where the Contact occured."
^DD(745.1,37,"DT")="3020226"
^DD(745.1,38,0)="DISCIPLINE^F^^13;1^K:$L(X)>30!($L(X)<2) X"
^DD(745.1,38,3)="Answer must be 2-30 characters in length."
^DD(745.1,38,"DT")="2970915"
^DD(745.1,39,0)="RESOLVED BY SEAT?^S^Y:YES;N:NO;^2;6^Q"
^DD(745.1,39,21,0)="^.001^2^2^3020412^^"
^DD(745.1,39,21,1,0)="This field stores whether or not there has been a resolution of the problem"
^DD(745.1,39,21,2,0)="by SEAT. "
^DD(745.1,39,23,0)="^^1^1^3020412^"
^DD(745.1,39,23,1,0)="Field will no longer be used after QAC*2.0*17."
^DD(745.1,39,"DT")="2971201"
^DD(745.1,40,0)="SEAT RESOLUTION COMMENTS^745.12^^14;0"
^DD(745.1,40,23,0)="^^1^1^3020412^"
^DD(745.1,40,23,1,0)="Field will no longer be used after QAC*2.0*17."
^DD(745.1,41,0)="ROLL-UP STATUS^S^0:CLEARED;1:REJECTED;2:SENT - OPEN;3:EDITED;^7;6^Q"
^DD(745.1,41,1,0)="^.1"
^DD(745.1,41,1,1,0)="745.1^F^MUMPS"
^DD(745.1,41,1,1,1)="S ^QA(745.1,""F"",$E(X,1,30),DA)="""""
^DD(745.1,41,1,1,2)="K ^QA(745.1,""F"",$E(X,1,30),DA)"
^DD(745.1,41,1,1,"%D",0)="^^2^2^2991129^"
^DD(745.1,41,1,1,"%D",1,0)="This cross reference will allow for look-ups of those records that were"
^DD(745.1,41,1,1,"%D",2,0)="not rolled up in previous runs of the roll-up routines (QACMAIL*)."
^DD(745.1,41,1,1,"DT")="2991129"
^DD(745.1,41,21,0)="^.001^9^9^3010410^^"
^DD(745.1,41,21,1,0)="This field is being changed with QAC*2.0*17.  The field will now contain a"
^DD(745.1,41,21,2,0)="""3"" if it was edited since the last run of the QAC Patient Representative"
^DD(745.1,41,21,3,0)="Roll-up.  It will be deleted after the next run."
^DD(745.1,41,21,4,0)=" "
^DD(745.1,41,21,5,0)=" "
^DD(745.1,41,21,6,0)="******************Original use of this field******************************"
^DD(745.1,41,21,7,0)="****This field will be stuffed if a record is rejected from roll-up either"
^DD(745.1,41,21,8,0)="because the record has not been closed or does not have at least one issue"
^DD(745.1,41,21,9,0)="code.  It will also be stuffed if it was sent but still open."
^DD(745.1,41,"DT")="3010410"
^DD(745.1,43,0)="INTERNAL APPEAL^S^Y:YES;N:NO;^2;7^Q"
^DD(745.1,43,3)="Enter 'YES' if this Contact will be referred for Internal Appeal."
^DD(745.1,43,21,0)="^.001^1^1^3020412^^^^"
^DD(745.1,43,21,1,0)="This field will flag ROCs that need, or have gotten, Internal Appeals."
^DD(745.1,43,23,0)="^.001^1^1^3020412^^"
^DD(745.1,43,23,1,0)="This field is added with patch QAC*2.0*17."
^DD(745.1,43,"DT")="3020417"
^DD(745.1,"B","*CATEGORY OF CARE",16)=""
^DD(745.1,"B","*DATE RESOLVED",34)=""
^DD(745.1,"B","*REFER TO",18)=""
^DD(745.1,"B","*REPORT OF CONTACT GENERATED",23)=""
^DD(745.1,"B","*SERVICES INVOLVED",15)=""
^DD(745.1,"B","CATEGORY",7)=""
^DD(745.1,"B","CATEGORY OF CARE",16)="1"
^DD(745.1,"B","CONGRESSIONAL CONTACT",29)=""
^DD(745.1,"B","CONTACT MADE BY",12)=""
^DD(745.1,"B","CONTACT NUMBER",.01)=""
^DD(745.1,"B","DATE DUE",20.1)=""
^DD(745.1,"B","DATE OF CONTACT",1)=""
^DD(745.1,"B","DATE RESOLVED",26)=""
^DD(745.1,"B","DATE SENT",19)=""
^DD(745.1,"B","DAYS RESPONSE EXPECTED BY",20)=""
^DD(745.1,"B","DAYS TO RESOLUTION",35)=""
^DD(745.1,"B","DISCIPLINE",38)=""
^DD(745.1,"B","DIVISION",37)=""
^DD(745.1,"B","DOB",4)=""
^DD(745.1,"B","ELIGIBILITY STATUS",6)=""
^DD(745.1,"B","EMPLOYEE",17)=""
^DD(745.1,"B","ENTERED BY",9)=""
^DD(745.1,"B","INFORMATION TAKEN BY",8)=""
^DD(745.1,"B","INTERNAL APPEAL",43)=""
^DD(745.1,"B","ISSUE CODES",21)=""
^DD(745.1,"B","ISSUE TEXT",22)=""
^DD(745.1,"B","LEVEL OF SATISFACTION",36)=""
^DD(745.1,"B","LOCATION OF EVENT",14)=""
^DD(745.1,"B","NAME OF CONTACT",10)=""
^DD(745.1,"B","PATIENT NAME",2)=""
^DD(745.1,"B","PERIOD OF SERVICE",31)=""
^DD(745.1,"B","PERSIAN GULF SERVICE",32)=""
^DD(745.1,"B","QM INVOLVEMENT",24)=""
^DD(745.1,"B","REFER CONTACT TO",28)=""
^DD(745.1,"B","REFER TO SEAT",33)=""
^DD(745.1,"B","RESOLUTION COMMENTS",25)=""
^DD(745.1,"B","RESOLVED BY SEAT?",39)=""
^DD(745.1,"B","ROLL-UP STATUS",41)=""
^DD(745.1,"B","SEAT RESOLUTION COMMENTS",40)=""
^DD(745.1,"B","SEX",5)=""
^DD(745.1,"B","SOURCE OF CONTACT",13)=""
^DD(745.1,"B","SOURCE(S) OF CONTACT",30)=""
^DD(745.1,"B","SSN",3)=""
^DD(745.1,"B","STATUS",27)=""
^DD(745.1,"B","TELEPHONE NO. OF CONTACT",11)=""
^DD(745.1,"B","TREATMENT STATUS",16.5)=""
^DD(745.1,"GL",0,1,.01)=""
^DD(745.1,"GL",0,2,1)=""
^DD(745.1,"GL",0,3,2)=""
^DD(745.1,"GL",0,4,6)=""
^DD(745.1,"GL",0,5,7)=""
^DD(745.1,"GL",0,6,8)=""
^DD(745.1,"GL",0,7,9)=""
^DD(745.1,"GL",0,8,10)=""
^DD(745.1,"GL",0,9,11)=""
^DD(745.1,"GL",0,10,12)=""
^DD(745.1,"GL",0,11,13)=""
^DD(745.1,"GL",0,12,14)=""
^DD(745.1,"GL",0,13,29)=""
^DD(745.1,"GL",0,14,31)=""
^DD(745.1,"GL",0,15,32)=""
^DD(745.1,"GL",0,16,37)=""
^DD(745.1,"GL",1,0,15)=""
^DD(745.1,"GL",2,1,16)=""
^DD(745.1,"GL",2,2,16.5)=""
^DD(745.1,"GL",2,3,33)=""
^DD(745.1,"GL",2,4,19)=""
^DD(745.1,"GL",2,5,20)=""
^DD(745.1,"GL",2,6,39)=""
^DD(745.1,"GL",2,7,43)=""
^DD(745.1,"GL",3,0,21)=""
^DD(745.1,"GL",4,0,22)=""
^DD(745.1,"GL",5,1,23)=""
^DD(745.1,"GL",6,0,25)=""
^DD(745.1,"GL",7,1,26)=""
^DD(745.1,"GL",7,2,27)=""
^DD(745.1,"GL",7,3,34)=""
^DD(745.1,"GL",7,4,35)=""
^DD(745.1,"GL",7,5,36)=""
^DD(745.1,"GL",7,6,41)=""
^DD(745.1,"GL",8,0,17)=""
^DD(745.1,"GL",9,0,24)=""
^DD(745.1,"GL",10,0,18)=""
^DD(745.1,"GL",11,0,28)=""
^DD(745.1,"GL",12,0,30)=""
^DD(745.1,"GL",13,1,38)=""
^DD(745.1,"GL",14,0,40)=""
^DD(745.1,"IX",.01)=""
^DD(745.1,"IX",1)=""
^DD(745.1,"IX",2)=""
^DD(745.1,"IX",12)=""
^DD(745.1,"IX",26)=""
^DD(745.1,"IX",27)=""
^DD(745.1,"IX",34)=""
^DD(745.1,"IX",41)=""
^DD(745.1,"RQ",.01)=""
^DD(745.1,"RQ",1)=""
^DD(745.1,"RQ",9)=""
^DD(745.1,"RQ",16.5)=""
^DD(745.1,"RQ",37)=""
^DD(745.1,"SB",745.11,30)=""
^DD(745.1,"SB",745.115,15)=""
^DD(745.1,"SB",745.117,17)=""
^DD(745.1,"SB",745.118,18)=""
^DD(745.1,"SB",745.12,40)=""
^DD(745.1,"SB",745.121,21)=""
^DD(745.1,"SB",745.122,22)=""
^DD(745.1,"SB",745.124,24)=""
^DD(745.1,"SB",745.125,25)=""
^DD(745.1,"SB",745.128,28)=""
^DD(745.11,0)="SOURCE(S) OF CONTACT SUB-FIELD^^.01^1"
^DD(745.11,0,"DT")="2970811"
^DD(745.11,0,"IX","B",745.11,.01)=""
^DD(745.11,0,"NM","SOURCE(S) OF CONTACT")=" "
^DD(745.11,0,"UP")="745.1"
^DD(745.11,.01,0)="SOURCE(S) OF CONTACT^MS^L:LETTER;W:WARD VISIT;V:VISIT;P:PHONE;S:SURVEY;I:INTERNET;^0;1^Q"
^DD(745.11,.01,1,0)="^.1"
^DD(745.11,.01,1,1,0)="745.11^B"
^DD(745.11,.01,1,1,1)="S ^QA(745.1,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(745.11,.01,1,1,2)="K ^QA(745.1,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(745.11,.01,1,2,0)="745.1^BU^MUMPS"
^DD(745.11,.01,1,2,1)="S ^QA(745.1,""BU"",$E($$UP^XLFSTR(X),1,10),DA)="""""
^DD(745.11,.01,1,2,2)="K ^QA(745.1,""BU"",$E($$UP^XLFSTR(X),1,10),DA)"
^DD(745.11,.01,1,2,"DT")="2980103"
^DD(745.11,.01,3)="Enter one or more sources of contact."
^DD(745.11,.01,7.5)="S X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^DD(745.11,.01,21,0)="^^1^1^2971125^^^^"
^DD(745.11,.01,21,1,0)="This is how the contact was made."
^DD(745.11,.01,"DT")="2980103"
^DD(745.11,"B","SOURCE(S) OF CONTACT",.01)=""
^DD(745.11,"GL",0,1,.01)=""
^DD(745.11,"IX",.01)=""
^DD(745.115,0)="*SERVICES INVOLVED SUB-FIELD^^.01^1"
^DD(745.115,0,"DT")="2930920"
^DD(745.115,0,"IX","B",745.115,.01)=""
^DD(745.115,0,"NM","*SERVICES INVOLVED")=" "
^DD(745.115,0,"UP")="745.1"
^DD(745.115,.01,0)="*SERVICES INVOLVED^MP730'^ECC(730,^0;1^Q"
^DD(745.115,.01,.1)="SERVICES INVOLVED"
^DD(745.115,.01,1,0)="^.1"
^DD(745.115,.01,1,1,0)="745.115^B"
^DD(745.115,.01,1,1,1)="S ^QA(745.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(745.115,.01,1,1,2)="K ^QA(745.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(745.115,.01,3)="Enter the service(s) involved."
^DD(745.115,.01,21,0)="^^2^2^2941123^"
^DD(745.115,.01,21,1,0)="Services Involved is now a multiple under the Issue Code field.  This"
^DD(745.115,.01,21,2,0)="field is starred for deletion in the next verison."
^DD(745.115,.01,"DT")="2941123"
^DD(745.115,"B","*SERVICES INVOLVED",.01)=""
^DD(745.115,"B","SERVICES INVOLVED",.01)="1"
^DD(745.115,"GL",0,1,.01)=""
^DD(745.115,"IX",.01)=""
^DD(745.117,0)="EMPLOYEE SUB-FIELD^^.01^1"
^DD(745.117,0,"DT")="2930927"
^DD(745.117,0,"IX","B",745.117,.01)=""
^DD(745.117,0,"NM","EMPLOYEE")=" "
^DD(745.117,0,"UP")="745.1"
^DD(745.117,.01,0)="EMPLOYEE^MP200'^VA(200,^0;1^Q"
^DD(745.117,.01,1,0)="^.1"
^DD(745.117,.01,1,1,0)="745.117^B"
^DD(745.117,.01,1,1,1)="S ^QA(745.1,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(745.117,.01,1,1,2)="K ^QA(745.1,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(745.117,.01,3)="Enter the name of an employee, LAST NAME,FIRST NAME, who is allegedly involved in the issue."
^DD(745.117,.01,21,0)="^^2^2^2970721^^^"
^DD(745.117,.01,21,1,0)="This is the employee allegedly involved in the issue or"
^DD(745.117,.01,21,2,0)="the employee receiving the compliment."
^DD(745.117,.01,"DT")="2930927"
^DD(745.117,"B","EMPLOYEE",.01)=""
^DD(745.117,"GL",0,1,.01)=""
^DD(745.117,"IX",.01)=""
^DD(745.118,0)="*REFER TO SUB-FIELD^^.01^1"
^DD(745.118,0,"DT")="2931005"
^DD(745.118,0,"IX","B",745.118,.01)=""
^DD(745.118,0,"NM","*REFER TO")=" "
^DD(745.118,0,"UP")="745.1"
^DD(745.118,.01,0)="*REFER TO^MF^^0;1^K:$L(X)>35!($L(X)<3) X"
^DD(745.118,.01,.1)="REFER TO"
^DD(745.118,.01,1,0)="^.1"
^DD(745.118,.01,1,1,0)="745.118^B"
^DD(745.118,.01,1,1,1)="S ^QA(745.1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(745.118,.01,1,1,2)="K ^QA(745.1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(745.118,.01,3)="Enter the name of a person or service (3-35 characters) to which the issue was referred for action."
^DD(745.118,.01,21,0)="^^1^1^2941123^^^^"
^DD(745.118,.01,21,1,0)="This is the person or service the issue is referred to for response."
^DD(745.118,.01,"DT")="2941123"
^DD(745.118,"B","*REFER TO",.01)=""
^DD(745.118,"B","REFER TO",.01)="1"
^DD(745.118,"GL",0,1,.01)=""
^DD(745.118,"IX",.01)=""
^DD(745.12,0)="SEAT RESOLUTION COMMENTS SUB-FIELD^^.01^1"
^DD(745.12,0,"DT")="2971201"
^DD(745.12,0,"NM","SEAT RESOLUTION COMMENTS")=" "
^DD(745.12,0,"UP")="745.1"
^DD(745.12,.01,0)="SEAT RESOLUTION COMMENTS^W^^0;1^Q"
^DD(745.12,.01,21,0)="^^2^2^2971201^"
^DD(745.12,.01,21,1,0)="This is the field for the resolution comments from SEAT.  A contact cannot"
^DD(745.12,.01,21,2,0)="be closed (resolved) unless this field has data."
^DD(745.12,.01,"DT")="2971201"
^DD(745.12,"B","SEAT RESOLUTION COMMENTS",.01)=""
^DD(745.12,"GL",0,1,.01)=""
^DD(745.121,0)="ISSUE CODES SUB-FIELD^^3^4"
^DD(745.121,0,"DT")="2970922"
^DD(745.121,0,"IX","B",745.121,.01)=""
^DD(745.121,0,"NM","ISSUE CODES")=" "
^DD(745.121,0,"UP")="745.1"
^DD(745.121,.01,0)="ISSUE CODES^M*P745.2'O^QA(745.2,^0;1^S DIC(""S"")=""I +$P(^(0),U,5)=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(745.121,.01,1,0)="^.1"
^DD(745.121,.01,1,1,0)="745.121^B"
^DD(745.121,.01,1,1,1)="S ^QA(745.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(745.121,.01,1,1,2)="K ^QA(745.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(745.121,.01,2)="S Y(0)=Y S:+Y(0) Y=$$EN1^QACUTIL(+Y(0))"
^DD(745.121,.01,2.1)="S:+Y(0) Y=$$EN1^QACUTIL(+Y(0))"
^DD(745.121,.01,3)="Enter the issue(s) associated with this contact."
^DD(745.121,.01,4)=" "
^DD(745.121,.01,12)="Only National Issue Codes may be selected."
^DD(745.121,.01,12.1)="S DIC(""S"")=""I +$P(^(0),U,5)=0"""
^DD(745.121,.01,21,0)="^^1^1^2970925^^^^"
^DD(745.121,.01,21,1,0)="This is a code for a brief statement of the issue."
^DD(745.121,.01,"DT")="2970804"
^DD(745.121,1,0)="SERV/SECT INVOLVED^745.1211PA^^1;0"
^DD(745.121,1,21,0)="^^2^2^2970717^^^"
^DD(745.121,1,21,1,0)="This is the service or section that is associated with this issue.  Enter"
^DD(745.121,1,21,2,0)="a service name or if a section is involved, enter the section."
^DD(745.121,1,"DT")="2941130"
^DD(745.121,2,0)="DISCIPLINES INVOLVED^745.1212PA^^2;0"
^DD(745.121,3,0)="SERVICE/DISCIPLINE^745.1213PA^^3;0"
^DD(745.121,"B","DISCIPLINES INVOLVED",2)=""
^DD(745.121,"B","ISSUE CODES",.01)=""
^DD(745.121,"B","SERV/SECT INVOLVED",1)=""
^DD(745.121,"B","SERVICE/DISCIPLINE",3)=""
^DD(745.121,"GL",0,1,.01)=""
^DD(745.121,"GL",1,0,1)=""
^DD(745.121,"GL",2,0,2)=""
^DD(745.121,"GL",3,0,3)=""
^DD(745.121,"IX",.01)=""
^DD(745.121,"SB",745.1211,1)=""
^DD(745.121,"SB",745.1212,2)=""
^DD(745.121,"SB",745.1213,3)=""
^DD(745.1211,0)="SERV/SECT INVOLVED SUB-FIELD^^.01^1"
^DD(745.1211,0,"DT")="2941130"
^DD(745.1211,0,"IX","B",745.1211,.01)=""
^DD(745.1211,0,"NM","SERV/SECT INVOLVED")=" "
^DD(745.1211,0,"UP")="745.121"
^DD(745.1211,.01,0)="SERV/SECT INVOLVED^MP49'^DIC(49,^0;1^Q"
^DD(745.1211,.01,1,0)="^.1"
^DD(745.1211,.01,1,1,0)="745.1211^B"
^DD(745.1211,.01,1,1,1)="S ^QA(745.1,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(745.1211,.01,1,1,2)="K ^QA(745.1,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(745.1211,.01,3)="Enter each service/section that is associated with this issue code."
^DD(745.1211,.01,21,0)="^^2^2^2941130^^"
^DD(745.1211,.01,21,1,0)="This is the service or section that is associated with this issue.  Enter"
^DD(745.1211,.01,21,2,0)="the service, or if it is a section, enter the section name."
^DD(745.1211,.01,"DT")="2941130"
^DD(745.1211,"B","SERV/SECT INVOLVED",.01)=""
^DD(745.1211,"GL",0,1,.01)=""
^DD(745.1211,"IX",.01)=""
^DD(745.1212,0)="DISCIPLINES INVOLVED SUB-FIELD^^.01^1"
^DD(745.1212,0,"DT")="2970724"
^DD(745.1212,0,"IX","B",745.1212,.01)=""
^DD(745.1212,0,"NM","DISCIPLINES INVOLVED")=" "
^DD(745.1212,0,"UP")="745.121"
^DD(745.1212,.01,0)="DISCIPLINES INVOLVED^MRP745.5'^QA(745.5,^0;1^Q"
^DD(745.1212,.01,1,0)="^.1"
^DD(745.1212,.01,1,1,0)="745.1212^B"
^DD(745.1212,.01,1,1,1)="S ^QA(745.1,DA(2),3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(745.1212,.01,1,1,2)="K ^QA(745.1,DA(2),3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(745.1212,.01,3)="Enter the Discipline involved in this Report of Contact."
^DD(745.1212,.01,"DT")="2970724"
^DD(745.1212,"B","DISCIPLINES INVOLVED",.01)=""
^DD(745.1212,"GL",0,1,.01)=""
^DD(745.1212,"IX",.01)=""
^DD(745.1212,"RQ",.01)=""
^DD(745.1213,0)="SERVICE/DISCIPLINE SUB-FIELD^^1^2"
^DD(745.1213,0,"DT")="2970922"
^DD(745.1213,0,"IX","B",745.1213,.01)=""
^DD(745.1213,0,"NM","SERVICE/DISCIPLINE")=" "
^DD(745.1213,0,"UP")="745.121"
^DD(745.1213,.01,0)="SERVICE/DISCIPLINE^MRP745.55'^QA(745.55,^0;1^Q"
^DD(745.1213,.01,1,0)="^.1"
^DD(745.1213,.01,1,1,0)="745.1213^B"
^DD(745.1213,.01,1,1,1)="S ^QA(745.1,DA(2),3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(745.1213,.01,1,1,2)="K ^QA(745.1,DA(2),3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(745.1213,.01,1,2,0)="^^TRIGGER^745.1213^1"
^DD(745.1213,.01,1,2,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^QA(745.1,D0,3,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(745.1213,.01,1,2,1.1) X ^DD(745.1213,.01,1,2,1.4)"
^DD(745.1213,.01,1,2,1.1)="S X=DIV X ^DD(745.1213,.01,1,2,49.2) S Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0) S D1=I(1,0) S D2=I(2,0)"
^DD(745.1213,.01,1,2,1.4)="S DIH=$S($D(^QA(745.1,DIV(0),3,DIV(1),3,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=745.1213,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1213,.01,1,2,2)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^QA(745.1,D0,3,D1,3,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(745.1213,.01,1,2,2.4)"
^DD(745.1213,.01,1,2,2.4)="S DIH=$S($D(^QA(745.1,DIV(0),3,DIV(1),3,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=745.1213,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.1213,.01,1,2,49.2)="S I(2,0)=$S($D(D2):D2,1:""""),I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^QA(745.55,+D0,0)) D0=-1 S Y(102)=$S($D(^QA(745.55,D0,0)):^(0),1:"""")"
^DD(745.1213,.01,1,2,"CREATE VALUE")="SERVICE/DISCIPLINE:INTERNAL(#2)"
^DD(745.1213,.01,1,2,"DELETE VALUE")="@"
^DD(745.1213,.01,1,2,"DT")="2971125"
^DD(745.1213,.01,1,2,"FIELD")="DISCIPLINE"
^DD(745.1213,.01,"DT")="2971125"
^DD(745.1213,1,0)="DISCIPLINE^P745.5'^QA(745.5,^0;2^Q"
^DD(745.1213,1,3)=" "
^DD(745.1213,1,5,1,0)="745.1213^.01^2"
^DD(745.1213,1,21,0)="^^1^1^2970922^^"
^DD(745.1213,1,21,1,0)="This field the value of the discipline for the service/discipline selected."
^DD(745.1213,1,"DT")="2970922"
^DD(745.1213,"B","DISCIPLINE",1)=""
^DD(745.1213,"B","SERVICE/DISCIPLINE",.01)=""
^DD(745.1213,"GL",0,1,.01)=""
^DD(745.1213,"GL",0,2,1)=""
^DD(745.1213,"IX",.01)=""
^DD(745.1213,"RQ",.01)=""
^DD(745.122,0)="ISSUE TEXT SUB-FIELD^^.01^1"
^DD(745.122,0,"DT")="2930920"
^DD(745.122,0,"NM","ISSUE TEXT")=" "
^DD(745.122,0,"UP")="745.1"
^DD(745.122,.01,0)="ISSUE TEXT^W^^0;1^Q"
^DD(745.122,.01,3)="Enter a description of the issue(s)."
^DD(745.122,.01,21,0)="^^1^1^2950127^^"
^DD(745.122,.01,21,1,0)="This is a written discussion of the issues."
^DD(745.122,.01,"DT")="2930920"
^DD(745.122,"B","ISSUE TEXT",.01)=""
^DD(745.122,"GL",0,1,.01)=""
^DD(745.124,0)="QM INVOLVEMENT SUB-FIELD^^.01^1"
^DD(745.124,0,"DT")="2930927"
^DD(745.124,0,"IX","B",745.124,.01)=""
^DD(745.124,0,"NM","QM INVOLVEMENT")=" "
^DD(745.124,0,"UP")="745.1"
^DD(745.124,.01,0)="QM INVOLVEMENT^MS^1:Tort Claim;2:Incident Report (10-2633);3:Peer Review;4:Board of Investigation;5:Other;^0;1^Q"
^DD(745.124,.01,1,0)="^.1"
^DD(745.124,.01,1,1,0)="745.124^B"
^DD(745.124,.01,1,1,1)="S ^QA(745.1,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(745.124,.01,1,1,2)="K ^QA(745.1,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(745.124,.01,3)="Enter other actions or reviews undertaken concerning this contact."
^DD(745.124,.01,21,0)="^^1^1^2950127^"
^DD(745.124,.01,21,1,0)="This is the type of QM activity for this same issue."
^DD(745.124,.01,"DT")="2930927"
^DD(745.124,"B","QM INVOLVEMENT",.01)=""
^DD(745.124,"GL",0,1,.01)=""
^DD(745.124,"IX",.01)=""
^DD(745.125,0)="RESOLUTION COMMENTS SUB-FIELD^^.01^1"
^DD(745.125,0,"DT")="2930920"
^DD(745.125,0,"NM","RESOLUTION COMMENTS")=" "
^DD(745.125,0,"UP")="745.1"
^DD(745.125,.01,0)="RESOLUTION COMMENTS^W^^0;1^Q"
^DD(745.125,.01,3)="Enter any comments concerning the resolution of the issue."
^DD(745.125,.01,21,0)="^^1^1^2930922^"
^DD(745.125,.01,21,1,0)="This is a discussion of the resolution of the issue."
^DD(745.125,.01,"DT")="2930920"
^DD(745.125,"B","RESOLUTION COMMENTS",.01)=""
^DD(745.125,"GL",0,1,.01)=""
^DD(745.128,0)="REFER CONTACT TO SUB-FIELD^^.01^1"
^DD(745.128,0,"DT")="2941130"
^DD(745.128,0,"IX","ALERT",745.128,.01)=""
^DD(745.128,0,"IX","B",745.128,.01)=""
^DD(745.128,0,"NM","REFER CONTACT TO")=" "
^DD(745.128,0,"UP")="745.1"
^DD(745.128,.01,0)="REFER CONTACT TO^MP200'^VA(200,^0;1^Q"
^DD(745.128,.01,1,0)="^.1"
^DD(745.128,.01,1,1,0)="745.128^B"
^DD(745.128,.01,1,1,1)="S ^QA(745.1,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(745.128,.01,1,1,2)="K ^QA(745.1,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(745.128,.01,1,2,0)="745.128^ALERT^MUMPS"
^DD(745.128,.01,1,2,1)="I $D(QACALERT)#2,$P($G(^QA(740,1,""QAC"")),U,2) D SET^QACALRT0(X,DA(1))"
^DD(745.128,.01,1,2,2)="I $D(QACALERT)#2,$P($G(^QA(740,1,""QAC"")),U,2) D KILL^QACALRT0(X,DA(1))"
^DD(745.128,.01,1,2,"%D",0)="^^2^2^2950321^^"
^DD(745.128,.01,1,2,"%D",1,0)="Sends alerts to the entries in the REFER CONTACT TO multiple.  This"
^DD(745.128,.01,1,2,"%D",2,0)="cross-reference may be turned on/off in the site parameters."
^DD(745.128,.01,1,2,"DT")="2950321"
^DD(745.128,.01,3)="Enter the name of the person you want to refer this contact to."
^DD(745.128,.01,21,0)="^^1^1^2941214^^"
^DD(745.128,.01,21,1,0)="This is the person(s) who will be notified about this patient contact."
^DD(745.128,.01,"DT")="2950321"
^DD(745.128,"B","REFER CONTACT TO",.01)=""
^DD(745.128,"GL",0,1,.01)=""
^DD(745.128,"IX",.01)=""
^DD(745.2,0)="FIELD^^7^8"
^DD(745.2,0,"DDA")="N"
^DD(745.2,0,"DT")="2970723"
^DD(745.2,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(745.2,0,"ID","WRITE")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^QA(745.3,+$P(^(0),U,4),0))#2:$P(^(0),U,4),1:""""),C=$P(^DD(745.3,.04,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y S Y=%I"
^DD(745.2,0,"IX","AH",745.2,.01)=""
^DD(745.2,0,"IX","B",745.2,.01)=""
^DD(745.2,0,"IX","BU",745.2,.01)=""
^DD(745.2,0,"IX","C",745.2,2)=""
^DD(745.2,0,"IX","E",745.2,2)=""
^DD(745.2,0,"NM","CONTACT ISSUE CODE")=" "
^DD(745.2,0,"PT",745.121,.01)=" "
^DD(745.2,0,"VR")="2.0"
^DD(745.2,0,"VRPK")="QAC"
^DD(745.2,.01,0)="CODE^RFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(745.2,.01,1,0)="^.1"
^DD(745.2,.01,1,1,0)="745.2^B"
^DD(745.2,.01,1,1,1)="S ^QA(745.2,""B"",$E(X,1,30),DA)="""""
^DD(745.2,.01,1,1,2)="K ^QA(745.2,""B"",$E(X,1,30),DA)"
^DD(745.2,.01,1,1,"%D",0)="^^1^1^2931110^"
^DD(745.2,.01,1,1,"%D",1,0)="Regular cross-reference used for look-up."
^DD(745.2,.01,1,2,0)="745.2^BU^MUMPS"
^DD(745.2,.01,1,2,1)="S ^QA(745.2,""BU"",$E($$UP^XLFSTR(X),1,10),DA)="""""
^DD(745.2,.01,1,2,2)="K ^QA(745.2,""BU"",$E($$UP^XLFSTR(X),1,10),DA)"
^DD(745.2,.01,1,2,"%D",0)="^^1^1^2931110^^^"
^DD(745.2,.01,1,2,"%D",1,0)="Uppercase cross-reference of the code."
^DD(745.2,.01,1,2,"DT")="2930927"
^DD(745.2,.01,1,3,0)="745.2^AH^MUMPS"
^DD(745.2,.01,1,3,1)="S ^QA(745.2,""AH"",$E(X,1,2),+$E(X,3,5),DA)="""""
^DD(745.2,.01,1,3,2)="K ^QA(745.2,""AH"",$E(X,1,2),+$E(X,3,5),DA)"
^DD(745.2,.01,1,3,"%D",0)="^^2^2^2950206^^"
^DD(745.2,.01,1,3,"%D",1,0)="This X-ref extracts the number from the code."
^DD(745.2,.01,1,3,"%D",2,0)="Used by the routine QACCODE when building a new code."
^DD(745.2,.01,1,3,"DT")="2950206"
^DD(745.2,.01,3)="Answer must be 1-5 characters in length."
^DD(745.2,.01,4)=" "
^DD(745.2,.01,21,0)="^^1^1^2970908^^^^"
^DD(745.2,.01,21,1,0)="This is the code that is associated with an issue type."
^DD(745.2,.01,"DT")="2970819"
^DD(745.2,1,0)="HEADING (Y/N)^RS^1:YES;0:NO;^0;2^Q"
^DD(745.2,1,3)="Only Quality Aspects can be headings."
^DD(745.2,1,9)="^"
^DD(745.2,1,21,0)="^^2^2^2931110^"
^DD(745.2,1,21,1,0)="Yes, means this is a heading. No means it is not a heading. "
^DD(745.2,1,21,2,0)="Headings are the Quality Aspects of the Quality Matrix."
^DD(745.2,1,"DT")="2930914"
^DD(745.2,2,0)="NAME^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'((X'?1P.E)) X"
^DD(745.2,2,1,0)="^.1"
^DD(745.2,2,1,1,0)="745.2^C"
^DD(745.2,2,1,1,1)="S ^QA(745.2,""C"",$E(X,1,30),DA)="""""
^DD(745.2,2,1,1,2)="K ^QA(745.2,""C"",$E(X,1,30),DA)"
^DD(745.2,2,1,1,"%D",0)="^^1^1^2931110^"
^DD(745.2,2,1,1,"%D",1,0)="Regular cross-reference used for look-up."
^DD(745.2,2,1,1,"DT")="2930917"
^DD(745.2,2,1,2,0)="745.2^E^MUMPS"
^DD(745.2,2,1,2,1)="S ^QA(745.2,""CU"",$E($$UP^XLFSTR(X),1,60),DA)="""""
^DD(745.2,2,1,2,2)="K ^QA(745.2,""CU"",$E($$UP^XLFSTR(X),1,60),DA)"
^DD(745.2,2,1,2,"%D",0)="^^1^1^2931110^^^"
^DD(745.2,2,1,2,"%D",1,0)="Uppercase cross-reference for the name."
^DD(745.2,2,1,2,"DT")="2930927"
^DD(745.2,2,3)="Enter an issue type, 3-60 characters in length."
^DD(745.2,2,12)="If heading is yes display major heads only"
^DD(745.2,2,12.1)="I $P(^(0),""^"",1)=1"
^DD(745.2,2,21,0)="^^1^1^2940525^^^^"
^DD(745.2,2,21,1,0)="This is the description of the issue type."
^DD(745.2,2,"DT")="2970929"
^DD(745.2,3,0)="*QUALITY ASPECT^*P745.3'^QA(745.3,^0;4^S DIC(""S"")=""I '$G(^(""""I""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(745.2,3,3)="Select a Quality Aspect."
^DD(745.2,3,9)="^"
^DD(745.2,3,12)="Screening for active Quality Aspects."
^DD(745.2,3,12.1)="S DIC(""S"")=""I '$G(^(""""I""""))"""
^DD(745.2,3,21,0)="^^1^1^2941207^^^^"
^DD(745.2,3,21,1,0)="These are the only Quality Aspects that are selectable."
^DD(745.2,3,"DT")="2941207"
^DD(745.2,4,0)="STATUS^R*S^N:NATIONAL;L:LOCAL;1:INACTIVE;^0;5^Q"
^DD(745.2,4,1,0)="^.1"
^DD(745.2,4,1,1,0)="^^TRIGGER^745.2^6"
^DD(745.2,4,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=Y(0),X=X S X=X=1 I X S X=DIV S Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(745.2,4,1,1,1.4)"
^DD(745.2,4,1,1,1.4)="S DIH=$S($D(^QA(745.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=745.2,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.2,4,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S X=X'=1 I X S X=DIV S Y(1)=$S($D(^QA(745.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(745.2,4,1,1,2.4)"
^DD(745.2,4,1,1,2.4)="S DIH=$S($D(^QA(745.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=745.2,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(745.2,4,1,1,"%D",0)="^^3^3^2950719^"
^DD(745.2,4,1,1,"%D",1,0)="When the status of an issue code is made Inactive, the date is stuffed in"
^DD(745.2,4,1,1,"%D",2,0)="the field Inactivation Date.  If the Inactive status is changed, the date"
^DD(745.2,4,1,1,"%D",3,0)="is deleted."
^DD(745.2,4,1,1,"CREATE CONDITION")="INTERNAL(STATUS)=1"
^DD(745.2,4,1,1,"CREATE VALUE")="TODAY"
^DD(745.2,4,1,1,"DELETE CONDITION")="INTERNAL(STATUS)'=1"
^DD(745.2,4,1,1,"DELETE VALUE")="@"
^DD(745.2,4,1,1,"DT")="2950113"
^DD(745.2,4,1,1,"FIELD")="INACTIVATIO"
^DD(745.2,4,3)="Enter the appropriate issue code status."
^DD(745.2,4,12)="National Issue Codes may not be changed."
^DD(745.2,4,12.1)="S DIC(""S"")=""I $S($P(^QA(745.2,D0,0),""""^"""",5)=""""N"""":1,Y=""""N"""":1,1:1)"""
^DD(745.2,4,21,0)="^.001^3^3^3020307^^^^"
^DD(745.2,4,21,1,0)="Issue codes cannot be edited or deleted.  Only National Issue Codes"
^DD(745.2,4,21,2,0)="can be selected.  The list of valid National Issue Codes will be"
^DD(745.2,4,21,3,0)="reviewed periodically for possible additions/changes."
^DD(745.2,4,"DT")="3020307"
^DD(745.2,5,0)="DEFINITION^745.25^^1;0"
^DD(745.2,5,21,0)="^^1^1^2940104^^"
^DD(745.2,5,21,1,0)="This is the definition of the code name."
^DD(745.2,5,"DT")="2940104"
^DD(745.2,6,0)="INACTIVATION DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(745.2,6,3)="Enter the date this issue code became inactive."
^DD(745.2,6,5,1,0)="745.2^4^1"
^DD(745.2,6,9)="^"
^DD(745.2,6,21,0)="^^1^1^2950127^"
^DD(745.2,6,21,1,0)="This is the date this issue was made inactive."
^DD(745.2,6,"DT")="2941123"
^DD(745.2,7,0)="CUSTOMER SERVICE STANDARD^P745.6I^QA(745.6,^0;7^Q"
^DD(745.2,7,3)=" "
^DD(745.2,7,21,0)="^^1^1^2970723^^"
^DD(745.2,7,21,1,0)="Pointer to Customer Service Standard File (745.6)"
^DD(745.2,7,"DT")="2970908"
^DD(745.2,"B","*QUALITY ASPECT",3)=""
^DD(745.2,"B","CODE",.01)=""
^DD(745.2,"B","CUSTOMER SERVICE STANDARD",7)=""
^DD(745.2,"B","DEFINITION",5)=""
^DD(745.2,"B","HEADING (Y/N)",1)=""
^DD(745.2,"B","INACTIVATION DATE",6)=""
^DD(745.2,"B","NAME",2)=""
^DD(745.2,"B","STATUS",4)=""
^DD(745.2,"GL",0,1,.01)=""
^DD(745.2,"GL",0,2,1)=""
^DD(745.2,"GL",0,3,2)=""
^DD(745.2,"GL",0,4,3)=""
^DD(745.2,"GL",0,5,4)=""
^DD(745.2,"GL",0,6,6)=""
^DD(745.2,"GL",0,7,7)=""
^DD(745.2,"GL",1,0,5)=""
^DD(745.2,"IX",.01)=""
^DD(745.2,"IX",2)=""
^DD(745.2,"IX",4)=""
^DD(745.2,"RQ",.01)=""
^DD(745.2,"RQ",1)=""
^DD(745.2,"RQ",2)=""
^DD(745.2,"RQ",4)=""
^DD(745.2,"SB",745.25,5)=""
^DD(745.25,0)="DEFINITION SUB-FIELD^^.01^1"
^DD(745.25,0,"DT")="2940104"
^DD(745.25,0,"NM","DEFINITION")=" "
^DD(745.25,0,"UP")="745.2"
^DD(745.25,.01,0)="DEFINITION^W^^0;1^Q"
^DD(745.25,.01,3)="Enter the definition of this code."
^DD(745.25,.01,21,0)="^^1^1^2940104^"
^DD(745.25,.01,21,1,0)="This is the definition of the code name."
^DD(745.25,.01,"DT")="2940104"
^DD(745.25,"B","DEFINITION",.01)=""
^DD(745.25,"GL",0,1,.01)=""
^DD(745.3,0)="FIELD^^100^5"
^DD(745.3,0,"DDA")="N"
^DD(745.3,0,"DT")="2940106"
^DD(745.3,0,"IX","B",745.3,.01)=""
^DD(745.3,0,"IX","C",745.3,.02)=""
^DD(745.3,0,"IX","D",745.3,.01)=""
^DD(745.3,0,"IX","E",745.3,.04)=""
^DD(745.3,0,"NM","*QUALITY MATRIX")=""
^DD(745.3,0,"PT",745.1,16)=""
^DD(745.3,0,"PT",745.2,3)=""
^DD(745.3,0,"VR")="2.0"
^DD(745.3,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1)!'(X'?1P.E) X"
^DD(745.3,.01,1,0)="^.1"
^DD(745.3,.01,1,1,0)="745.3^B"
^DD(745.3,.01,1,1,1)="S ^QA(745.3,""B"",$E(X,1,30),DA)="""""
^DD(745.3,.01,1,1,2)="K ^QA(745.3,""B"",$E(X,1,30),DA)"
^DD(745.3,.01,1,1,"%D",0)="^^1^1^2931110^"
^DD(745.3,.01,1,1,"%D",1,0)="Regular cross-reference used for look-up."
^DD(745.3,.01,1,2,0)="745.3^D^MUMPS"
^DD(745.3,.01,1,2,1)="S ^QA(745.3,""BU"",$E($$UP^XLFSTR(X),1,45),DA)="""""
^DD(745.3,.01,1,2,2)="K ^QA(745.3,""BU"",$E($$UP^XLFSTR(X),1,45),DA)"
^DD(745.3,.01,1,2,"%D",0)="^^1^1^2931110^^"
^DD(745.3,.01,1,2,"%D",1,0)="This is an uppercase cross reference of the Name."
^DD(745.3,.01,1,2,"DT")="2931110"
^DD(745.3,.01,3)="Answer must be 1-45 characters in length."
^DD(745.3,.01,8.5)="^"
^DD(745.3,.01,9)="^"
^DD(745.3,.01,21,0)="^^2^2^2931222^^^^"
^DD(745.3,.01,21,1,0)="This is the name for the Service, Level, Quality Aspect or a "
^DD(745.3,.01,21,2,0)="combination of any of the three."
^DD(745.3,.01,"DEL",1,0)="I 1 D EN^DDIOL(""  ""),EN^DDIOL(""Entries may not be purged!!"")"
^DD(745.3,.01,"DT")="2931110"
^DD(745.3,.01,"LAYGO",1,0)="D EN^DDIOL(""Entries may not be added!!"") I 0"
^DD(745.3,.02,0)="SERVICE^S^1:Medical;2:Surgical;3:Psychiatric;4:Extended Care;^0;2^Q"
^DD(745.3,.02,1,0)="^.1^^-1"
^DD(745.3,.02,1,1,0)="745.3^C"
^DD(745.3,.02,1,1,1)="S ^QA(745.3,""C"",$E(X,1,30),DA)="""""
^DD(745.3,.02,1,1,2)="K ^QA(745.3,""C"",$E(X,1,30),DA)"
^DD(745.3,.02,1,1,"%D",0)="^^1^1^2931110^^"
^DD(745.3,.02,1,1,"%D",1,0)="To facilitate selection of a Category of Care."
^DD(745.3,.02,1,1,"DT")="2931021"
^DD(745.3,.02,3)="Enter the service that is managing the care of the patient."
^DD(745.3,.02,8.5)="^"
^DD(745.3,.02,9)="^"
^DD(745.3,.02,21,0)="^^1^1^2931110^"
^DD(745.3,.02,21,1,0)="This is the service: Medical, Surgical, Psychiatric, or Extended Care."
^DD(745.3,.02,"DT")="2931110"
^DD(745.3,.03,0)="LEVEL^S^P:Primary;S:Secondary;T:Tertiary;I:Inpatient;L:Long;^0;3^Q"
^DD(745.3,.03,3)="Enter the level of care for the patient."
^DD(745.3,.03,8.5)="^"
^DD(745.3,.03,9)="^"
^DD(745.3,.03,21,0)="^^2^2^2931110^"
^DD(745.3,.03,21,1,0)="This is the level of care as defined by the Quality Matrix:"
^DD(745.3,.03,21,2,0)="Primary, Secondary, Tertiary, Inpatient, or Long."
^DD(745.3,.03,"DT")="2931110"
^DD(745.3,.04,0)="QUALITY ASPECT^S^1:Needed;2:Competent;3:Caring;4:Cost Effective;5:Timely;6:Minimizes Risk;7:Achievable Benefits;^0;4^Q"
^DD(745.3,.04,1,0)="^.1^^-1"
^DD(745.3,.04,1,1,0)="745.3^E"
^DD(745.3,.04,1,1,1)="S ^QA(745.3,""E"",$E(X,1,30),DA)="""""
^DD(745.3,.04,1,1,2)="K ^QA(745.3,""E"",$E(X,1,30),DA)"
^DD(745.3,.04,1,1,"%D",0)="^^1^1^2931110^^^"
^DD(745.3,.04,1,1,"%D",1,0)="Regular cross-reference used for look-up."
^DD(745.3,.04,1,1,"DT")="2931021"
^DD(745.3,.04,3)="Enter the Quality Aspect for the Matrix system."
^DD(745.3,.04,8.5)="^"
^DD(745.3,.04,9)="^"
^DD(745.3,.04,21,0)="^^1^1^2931222^^"
^DD(745.3,.04,21,1,0)="These are the Quality Aspects as defined by the Quality Matrix."
^DD(745.3,.04,"DT")="2931021"
^DD(745.3,100,0)="INACTIVE^S^1:YES;^I;1^Q"
^DD(745.3,100,3)="A '1' or 'YES' in this field inactivates this Quality Matrix entry."
^DD(745.3,100,21,0)="^^3^3^2950718^^"
^DD(745.3,100,21,1,0)=" "
^DD(745.3,100,21,2,0)="This field is used to label a Quality Matrix entry Inactive when it will"
^DD(745.3,100,21,3,0)="no longer be used."
^DD(745.3,100,"DT")="2940106"
^DD(745.3,"B","INACTIVE",100)=""
^DD(745.3,"B","LEVEL",.03)=""
^DD(745.3,"B","NAME",.01)=""
^DD(745.3,"B","QUALITY ASPECT",.04)=""
^DD(745.3,"B","SERVICE",.02)=""
^DD(745.3,"GL",0,1,.01)=""
^DD(745.3,"GL",0,2,.02)=""
^DD(745.3,"GL",0,3,.03)=""
^DD(745.3,"GL",0,4,.04)=""
^DD(745.3,"GL","I",1,100)=""
^DD(745.3,"IX",.01)=""
^DD(745.3,"IX",.02)=""
^DD(745.3,"IX",.04)=""
^DD(745.3,"RQ",.01)=""
^DD(745.4,0)="FIELD^^1^2"
^DD(745.4,0,"DDA")="N"
^DD(745.4,0,"DT")="2941130"
^DD(745.4,0,"IX","B",745.4,.01)=""
^DD(745.4,0,"IX","BU",745.4,.01)=""
^DD(745.4,0,"NM","CONGRESSIONAL OFFICE")=""
^DD(745.4,0,"PT",745.1,29)=""
^DD(745.4,0,"VR")="2.0"
^DD(745.4,.01,0)="OFFICE/NAME^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(745.4,.01,1,0)="^.1"
^DD(745.4,.01,1,1,0)="745.4^B"
^DD(745.4,.01,1,1,1)="S ^QA(745.4,""B"",$E(X,1,30),DA)="""""
^DD(745.4,.01,1,1,2)="K ^QA(745.4,""B"",$E(X,1,30),DA)"
^DD(745.4,.01,1,2,0)="745.4^BU^MUMPS"
^DD(745.4,.01,1,2,1)="S ^QA(745.4,""BU"",$E($$UP^XLFSTR(X),1,60),DA)="""""
^DD(745.4,.01,1,2,2)="K ^QA(745.4,""BU"",$E($$UP^XLFSTR(X),1,60),DA)"
^DD(745.4,.01,1,2,"%D",0)="^^1^1^2941201^"
^DD(745.4,.01,1,2,"%D",1,0)="Uppercase cross-reference on the congressional office/name."
^DD(745.4,.01,1,2,"DT")="2941201"
^DD(745.4,.01,3)="In 3-60 characters, enter the office or person who made the congressional contact."
^DD(745.4,.01,21,0)="^^2^2^2950201^^^^"
^DD(745.4,.01,21,1,0)="This is the name of the congressional office or person that made the"
^DD(745.4,.01,21,2,0)="contact."
^DD(745.4,.01,"DT")="2941201"
^DD(745.4,1,0)="INACTIVE^S^1:YES;0:NO;^0;2^Q"
^DD(745.4,1,3)="Enter ""Y""es or 1 if this congressional office or name is Inactive."
^DD(745.4,1,21,0)="^^2^2^2941201^"
^DD(745.4,1,21,1,0)="This field contains a ""1"" if this congressional office or name is no"
^DD(745.4,1,21,2,0)="longer active."
^DD(745.4,1,"DT")="2941130"
^DD(745.4,"B","INACTIVE",1)=""
^DD(745.4,"B","OFFICE/NAME",.01)=""
^DD(745.4,"GL",0,1,.01)=""
^DD(745.4,"GL",0,2,1)=""
^DD(745.4,"IX",.01)=""
^DD(745.5,0)="FIELD^^2^3"
^DD(745.5,0,"DT")="2970723"
^DD(745.5,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(745.5,0,"IX","B",745.5,.01)=""
^DD(745.5,0,"NM","CONTACT DISCIPLINES")=""
^DD(745.5,0,"PT",745.1212,.01)=""
^DD(745.5,0,"PT",745.1213,1)=""
^DD(745.5,0,"PT",745.55,2)=""
^DD(745.5,0,"VR")="2.0"
^DD(745.5,0,"VRPK")="QAC"
^DD(745.5,.01,0)="CODE^RFI^^0;1^K:$L(X)>2!($L(X)<2)!'(X?2A) X"
^DD(745.5,.01,1,0)="^.1"
^DD(745.5,.01,1,1,0)="745.5^B"
^DD(745.5,.01,1,1,1)="S ^QA(745.5,""B"",$E(X,1,30),DA)="""""
^DD(745.5,.01,1,1,2)="K ^QA(745.5,""B"",$E(X,1,30),DA)"
^DD(745.5,.01,3)="Answer must be 2 characters in length."
^DD(745.5,.01,21,0)="^^1^1^2970723^^^^"
^DD(745.5,.01,21,1,0)="Codes for disciplines or services involved in a Report of Contact."
^DD(745.5,.01,"DT")="2980309"
^DD(745.5,1,0)="NAME^RFI^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(745.5,1,3)="Answer must be 3-30 characters in length."
^DD(745.5,1,21,0)="^^1^1^2970723^"
^DD(745.5,1,21,1,0)="Expanded name of Discipline for Report of Contact."
^DD(745.5,1,"DT")="2980309"
^DD(745.5,2,0)="COMMENT^745.52^^1;0"
^DD(745.5,"B","CODE",.01)=""
^DD(745.5,"B","COMMENT",2)=""
^DD(745.5,"B","NAME",1)=""
^DD(745.5,"GL",0,1,.01)=""
^DD(745.5,"GL",0,2,1)=""
^DD(745.5,"GL",1,0,2)=""
^DD(745.5,"IX",.01)=""
^DD(745.5,"RQ",.01)=""
^DD(745.5,"RQ",1)=""
^DD(745.5,"SB",745.52,2)=""
^DD(745.52,0)="COMMENT SUB-FIELD^^.01^1"
^DD(745.52,0,"DT")="2970723"
^DD(745.52,0,"NM","COMMENT")=""
^DD(745.52,0,"UP")="745.5"
^DD(745.52,.01,0)="COMMENT^W^^0;1^Q"
^DD(745.52,.01,3)="Descriptive comment further explaining the name of the discipline."
^DD(745.52,.01,21,0)="^^1^1^2970723^^"
^DD(745.52,.01,21,1,0)="Comment further explaining the discipline name."
^DD(745.52,.01,"DT")="2970723"
^DD(745.52,"B","COMMENT",.01)=""
^DD(745.52,"GL",0,1,.01)=""
^DD(745.55,0)="FIELD^^3^4"
^DD(745.55,0,"DDA")="N"
^DD(745.55,0,"DT")="2970913"
^DD(745.55,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(745.55,0,"IX","B",745.55,.01)=""
^DD(745.55,0,"IX","C",745.55,1)=""
^DD(745.55,0,"NM","QAC SERVICE/DISCIPLINE")=""
^DD(745.55,0,"PT",745.1213,.01)=""
^DD(745.55,0,"VR")="2.0"
^DD(745.55,0,"VRPK")="QAC"
^DD(745.55,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(745.55,.01,1,0)="^.1"
^DD(745.55,.01,1,1,0)="745.55^B"
^DD(745.55,.01,1,1,1)="S ^QA(745.55,""B"",$E(X,1,30),DA)="""""
^DD(745.55,.01,1,1,2)="K ^QA(745.55,""B"",$E(X,1,30),DA)"
^DD(745.55,.01,3)="Answer must be 2-30 characters in length."
^DD(745.55,.01,21,0)="^^1^1^2970924^^^^"
^DD(745.55,.01,21,1,0)="This is the name of the service/discipline involved with this issue code."
^DD(745.55,.01,"DEL",1,0)="I 1 D EN^DDIOL(""  SERVICE/DISCIPLINE CANNOT BE DELETED!! "","""",""?0"")"
^DD(745.55,.01,"DT")="2970913"
^DD(745.55,1,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<2) X"
^DD(745.55,1,1,0)="^.1"
^DD(745.55,1,1,1,0)="745.55^C"
^DD(745.55,1,1,1,1)="S ^QA(745.55,""C"",$E(X,1,30),DA)="""""
^DD(745.55,1,1,1,2)="K ^QA(745.55,""C"",$E(X,1,30),DA)"
^DD(745.55,1,1,1,"DT")="2970913"
^DD(745.55,1,3)="Answer must be 2-5 characters in length."
^DD(745.55,1,21,0)="^^1^1^2970924^^"
^DD(745.55,1,21,1,0)="Enter an abbreviation fo the service/discipline."
^DD(745.55,1,"DT")="2980518"
^DD(745.55,2,0)="DISCIPLINE^RP745.5'^QA(745.5,^0;3^Q"
^DD(745.55,2,3)="Enter the abbreviation of the Discipline to which this service is associated. "
^DD(745.55,2,21,0)="^^1^1^2970924^^^^"
^DD(745.55,2,21,1,0)="Corresponds to entries in Contact Discipline file (#745.5)."
^DD(745.55,2,"DT")="2970913"
^DD(745.55,3,0)="COMMENT^745.553^^1;0"
^DD(745.55,"B","ABBREVIATION",1)=""
^DD(745.55,"B","COMMENT",3)=""
^DD(745.55,"B","DISCIPLINE",2)=""
^DD(745.55,"B","NAME",.01)=""
^DD(745.55,"GL",0,1,.01)=""
^DD(745.55,"GL",0,2,1)=""
^DD(745.55,"GL",0,3,2)=""
^DD(745.55,"GL",1,0,3)=""
^DD(745.55,"IX",.01)=""
^DD(745.55,"IX",1)=""
^DD(745.55,"RQ",.01)=""
^DD(745.55,"RQ",2)=""
^DD(745.55,"SB",745.553,3)=""
^DD(745.553,0)="COMMENT SUB-FIELD^^.01^1"
^DD(745.553,0,"DT")="2970913"
^DD(745.553,0,"NM","COMMENT")=""
^DD(745.553,0,"UP")="745.55"
^DD(745.553,.01,0)="COMMENT^WL^^0;1^Q"
^DD(745.553,.01,3)="Enter any comment or description needed."
^DD(745.553,.01,21,0)="^^1^1^2970913^"
^DD(745.553,.01,21,1,0)="Field holds an optional word processing comment or description."
^DD(745.553,.01,"DT")="2970913"
^DD(745.553,"B","COMMENT",.01)=""
^DD(745.553,"GL",0,1,.01)=""
^DD(745.6,0)="FIELD^^2^3"
^DD(745.6,0,"DDA")="N"
^DD(745.6,0,"DT")="3020307"
^DD(745.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(745.6,0,"IX","B",745.6,.01)=""
^DD(745.6,0,"NM","CUSTOMER SERVICE STANDARDS")=" "
^DD(745.6,0,"PT",745.2,7)=" "
^DD(745.6,0,"VR")="2.0"
^DD(745.6,0,"VRPK")="QAC"
^DD(745.6,.01,0)="NUMBER^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(745.6,.01,1,0)="^.1"
^DD(745.6,.01,1,1,0)="745.6^B"
^DD(745.6,.01,1,1,1)="S ^QA(745.6,""B"",$E(X,1,30),DA)="""""
^DD(745.6,.01,1,1,2)="K ^QA(745.6,""B"",$E(X,1,30),DA)"
^DD(745.6,.01,3)="Answer must be 1-2 characters in length."
^DD(745.6,.01,21,0)="^^2^2^2970723^"
^DD(745.6,.01,21,1,0)="Customer Service Standard will be displayed along with the Issue Code"
^DD(745.6,.01,21,2,0)="in Report of Contact."
^DD(745.6,.01,"DT")="2970723"
^DD(745.6,1,0)="NAME^RF^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(745.6,1,3)="Answer must be 3-35 characters in length."
^DD(745.6,1,21,0)="^.001^1^1^3020307^^"
^DD(745.6,1,21,1,0)="Customer Service Standard name."
^DD(745.6,1,"DT")="3020307"
^DD(745.6,2,0)="COMMENT^745.62^^1;0"
^DD(745.6,"B","COMMENT",2)=""
^DD(745.6,"B","NAME",1)=""
^DD(745.6,"B","NUMBER",.01)=""
^DD(745.6,"GL",0,1,.01)=""
^DD(745.6,"GL",0,2,1)=""
^DD(745.6,"GL",1,0,2)=""
^DD(745.6,"IX",.01)=""
^DD(745.6,"RQ",.01)=""
^DD(745.6,"RQ",1)=""
^DD(745.6,"SB",745.62,2)=""
^DD(745.62,0)="COMMENT SUB-FIELD^^.01^1"
^DD(745.62,0,"DT")="2970723"
^DD(745.62,0,"NM","COMMENT")=" "
^DD(745.62,0,"UP")="745.6"
^DD(745.62,.01,0)="COMMENT^W^^0;1^Q"
^DD(745.62,.01,"DT")="2970723"
^DD(745.62,"B","COMMENT",.01)=""
^DD(745.62,"GL",0,1,.01)=""
^DD(748,0)="FIELD^^5^14"
^DD(748,0,"DDA")="N"
^DD(748,0,"DT")="2950531"
^DD(748,0,"ID",.055)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ?37,""By: "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(748,0,"IX","AB",748.02,.01)=""
^DD(748,0,"IX","B",748,.01)=""
^DD(748,0,"NM","SURVEY")=""
^DD(748,0,"PT",217,.01)=""
^DD(748,0,"PT",748.25,.01)=""
^DD(748,0,"PT",748.3,.01)=""
^DD(748,0,"VR")="2.0"
^DD(748,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) S X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"") K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(748,.01,1,0)="^.1"
^DD(748,.01,1,1,0)="748^B"
^DD(748,.01,1,1,1)="S ^QA(748,""B"",$E(X,1,30),DA)="""""
^DD(748,.01,1,1,2)="K ^QA(748,""B"",$E(X,1,30),DA)"
^DD(748,.01,3)="Answer must be 3-45 characters in length."
^DD(748,.01,21,0)="^^1^1^2950307^"
^DD(748,.01,21,1,0)="This is the name of the survey, as the survey author will refer to it."
^DD(748,.01,"DEL",1,0)="I 1 W !,*7,""ENTRIES CANNOT BE DELETED!"""
^DD(748,.01,"DT")="2950203"
^DD(748,.015,0)="TITLE^RF^^0;6^K:$L(X)>50!($L(X)<5) X"
^DD(748,.015,3)="Answer must be 5-50 characters in length."
^DD(748,.015,21,0)="^^2^2^2950307^"
^DD(748,.015,21,1,0)="This is title for the survey, which will be displayed on all outputs such"
^DD(748,.015,21,2,0)="as printouts and screens.  "
^DD(748,.015,"DT")="2950531"
^DD(748,.02,0)="STATION OF SURVEY DEVELOPER^RF^^0;2^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(748,.02,1,0)="^.1^^0"
^DD(748,.02,3)="This is the station number of the developer. [3 numbers]"
^DD(748,.02,21,0)="^^2^2^2950307^"
^DD(748,.02,21,1,0)="This is the station of the person who developed the survey.  It is a"
^DD(748,.02,21,2,0)="free text field to allow for survey exportation and importation."
^DD(748,.02,"DT")="2941104"
^DD(748,.03,0)="LAST DATE FOR USAGE^DX^^0;3^S %DT(0)=""T+.5"" S %DT=""EX"" D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(748,.03,1,0)="^.1^^0"
^DD(748,.03,3)="Enter the last date the survey may be filled out.  If not filled in the survey will be active indefinitely."
^DD(748,.03,4)="W !,?5,""The date must be in the future."",!!"
^DD(748,.03,21,0)="^^1^1^2950307^"
^DD(748,.03,21,1,0)="This is the last date a survey may be participated in by anyone."
^DD(748,.03,"DT")="2941109"
^DD(748,.04,0)="PASSWORD^FX^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(748,.04,2)="S Y(0)=Y S Y(0)=Y,Y=""<Hidden>"""
^DD(748,.04,2.1)="S Y(0)=Y,Y=""<Hidden>"""
^DD(748,.04,3)="Answer must be 1-40 characters in length."
^DD(748,.04,4)="D HELP4^QAPUTIL2"
^DD(748,.04,21,0)="^^2^2^2950308^"
^DD(748,.04,21,1,0)="A password attached to a survey will limit the participation to those who"
^DD(748,.04,21,2,0)="know it.  It is used to segregate participation to a group of people."
^DD(748,.04,"DT")="2950118"
^DD(748,.05,0)="STATUS^RSX^r:READY FOR USE;d:UNDER MAINTENANCE/DEVELOPMENT;e:ACTIVE LIFE EXPIRED;^0;4^Q"
^DD(748,.05,1,0)="^.1^^0"
^DD(748,.05,3)="Select a code from the list.  Use ?? for help."
^DD(748,.05,21,0)="^^5^5^2950307^"
^DD(748,.05,21,1,0)="This is the current state of the survey:"
^DD(748,.05,21,2,0)=" "
^DD(748,.05,21,3,0)="   r - Ready for use"
^DD(748,.05,21,4,0)="   d - Under development/maintenance"
^DD(748,.05,21,5,0)="   e - Active life expired (the date for last usage has passed)"
^DD(748,.05,"DT")="2950525"
^DD(748,.055,0)="DEVELOPER^RP200'^VA(200,^0;5^Q"
^DD(748,.055,1,0)="^.1^^0"
^DD(748,.055,3)="The name of the person who developed this survey."
^DD(748,.055,21,0)="^^2^2^2950307^"
^DD(748,.055,21,1,0)="This is the name of the person who developed the survey.  It is a pointer"
^DD(748,.055,21,2,0)="to file 200 and is not exportable."
^DD(748,.055,"DT")="2941104"
^DD(748,.08,0)="INSTRUCTIONS FOR USE^748.12^^4;0"
^DD(748,.08,21,0)="^^4^4^2950308^"
^DD(748,.08,21,1,0)="The instructions for use field should contain anything that the "
^DD(748,.08,21,2,0)="survey participants need to know in order to take the survey.  It is "
^DD(748,.08,21,3,0)="up to the survey creator to assure that the instructions are adequate,"
^DD(748,.08,21,4,0)="and that the essential things are present."
^DD(748,.08,"DT")="2941025"
^DD(748,.1,0)="ARE ALL DEMOGRAPHICS REQUIRED?^S^y:YES;n:NO;^0;8^Q"
^DD(748,.1,3)="Enter Y if all demographics will be required or N if not."
^DD(748,.1,4)="W !,""If this field is set to 'y' for YES, it will override the individual field which sets up demographics for each question."",!"
^DD(748,.1,21,0)="^^6^6^2950307^"
^DD(748,.1,21,1,0)="This field is used as a ""master switch"" to indicate that the"
^DD(748,.1,21,2,0)="participants must always complete all demographics.  This field "
^DD(748,.1,21,3,0)="is overridden by the individual demographic field which indicates"
^DD(748,.1,21,4,0)="whether or not a demographic is required.  For example this field"
^DD(748,.1,21,5,0)="may be set to NO but an individual demographic field may be set to YES"
^DD(748,.1,21,6,0)="to force an answer perhaps just for one item."
^DD(748,.1,"DT")="2950304"
^DD(748,1,0)="DESCRIPTION^748.01^^2;0"
^DD(748,1,"DT")="2941025"
^DD(748,2,0)="AUTHORIZED EDITORS^748.02P^^5;0"
^DD(748,2,21,0)="^^2^2^2950307^"
^DD(748,2,21,1,0)="This field will allow any person whose name is entered to perform any"
^DD(748,2,21,2,0)="actions on a survey that would normally be done by the survey creator."
^DD(748,3,0)="DEMOGRAPHIC DATA ITEM^748.03A^^1;0"
^DD(748,3,21,0)="^^4^4^2950307^"
^DD(748,3,21,1,0)="This field will contain any items which the survey creator will want to"
^DD(748,3,21,2,0)="know about for demographical purposes.  Examples would be race, age, date"
^DD(748,3,21,3,0)="of birth, job type, etc.  For consistency purposes any item entered here"
^DD(748,3,21,4,0)="which will be used for reporting must be marked as a required answer."
^DD(748,3,"DT")="2941126"
^DD(748,4,0)="MULTI-ENTRY PASSWORD^FX^^0;9^K:$L(X)>40!($L(X)<1) X"
^DD(748,4,2)="S Y(0)=Y S Y(0)=Y,Y=""<Hidden>"""
^DD(748,4,2.1)="S Y(0)=Y,Y=""<Hidden>"""
^DD(748,4,3)="Answer must be 1-40 characters in length."
^DD(748,4,4)="W !!,""This is the password which will allow users to participate"",!,""in a survey more than one time."",!"
^DD(748,4,21,0)="^^4^4^2950307^"
^DD(748,4,21,1,0)="The participant must know this password to enter more than one survey"
^DD(748,4,21,2,0)="response.  This field is used to allow certain groups to use surveys"
^DD(748,4,21,3,0)="frequently as in Nursing patient care surveys, yet keep others from"
^DD(748,4,21,4,0)="accessing them."
^DD(748,4,"DT")="2950118"
^DD(748,5,0)="STATISTICS VIEW STATUS^RS^c:CREATOR/EDITORS ONLY;n:NO RESTRICTIONS;^0;10^Q"
^DD(748,5,3)="Enter c to allow viewing by only the creator or editors or n to have no restrictions at all."
^DD(748,5,21,0)="^^4^4^2950307^"
^DD(748,5,21,1,0)="This field is used to limit who may see the statistics which may be"
^DD(748,5,21,2,0)="produced for a given survey.  Normally only the creator or an authorized"
^DD(748,5,21,3,0)="editor would have access but there may be instances where the creator"
^DD(748,5,21,4,0)="wishes the public to view the statistics as well."
^DD(748,5,"DT")="2950113"
^DD(748,"B","ARE ALL DEMOGRAPHICS REQUIRED?",.1)=""
^DD(748,"B","AUTHORIZED EDITORS",2)=""
^DD(748,"B","DEMOGRAPHIC DATA ITEM",3)=""
^DD(748,"B","DESCRIPTION",1)=""
^DD(748,"B","DEVELOPER",.055)=""
^DD(748,"B","INSTRUCTIONS FOR USE",.08)=""
^DD(748,"B","LAST DATE FOR USAGE",.03)=""
^DD(748,"B","MULTI-ENTRY PASSWORD",4)=""
^DD(748,"B","NAME",.01)=""
^DD(748,"B","PASSWORD",.04)=""
^DD(748,"B","STATION OF SURVEY DEVELOPER",.02)=""
^DD(748,"B","STATISTICS VIEW STATUS",5)=""
^DD(748,"B","STATUS",.05)=""
^DD(748,"B","TITLE",.015)=""
^DD(748,"GL",0,1,.01)=""
^DD(748,"GL",0,2,.02)=""
^DD(748,"GL",0,3,.03)=""
^DD(748,"GL",0,4,.05)=""
^DD(748,"GL",0,5,.055)=""
^DD(748,"GL",0,6,.015)=""
^DD(748,"GL",0,7,.04)=""
^DD(748,"GL",0,8,.1)=""
^DD(748,"GL",0,9,4)=""
^DD(748,"GL",0,10,5)=""
^DD(748,"GL",1,0,3)=""
^DD(748,"GL",2,0,1)=""
^DD(748,"GL",4,0,.08)=""
^DD(748,"GL",5,0,2)=""
^DD(748,"IX",.01)=""
^DD(748,"RQ",.01)=""
^DD(748,"RQ",.015)=""
^DD(748,"RQ",.02)=""
^DD(748,"RQ",.05)=""
^DD(748,"RQ",.055)=""
^DD(748,"RQ",5)=""
^DD(748,"SB",748.01,1)=""
^DD(748,"SB",748.02,2)=""
^DD(748,"SB",748.03,3)=""
^DD(748,"SB",748.12,.08)=""
^DD(748.01,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(748.01,0,"DT")="2941024"
^DD(748.01,0,"NM","DESCRIPTION")=""
^DD(748.01,0,"UP")="748"
^DD(748.01,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(748.01,.01,"DT")="2941025"
^DD(748.01,"B","DESCRIPTION",.01)=""
^DD(748.01,"GL",0,1,.01)=""
^DD(748.02,0)="AUTHORIZED EDITORS SUB-FIELD^^.01^1"
^DD(748.02,0,"DT")="2941101"
^DD(748.02,0,"IX","B",748.02,.01)=""
^DD(748.02,0,"NM","AUTHORIZED EDITORS")=""
^DD(748.02,0,"UP")="748"
^DD(748.02,.01,0)="AUTHORIZED EDITORS^MP200'^VA(200,^0;1^Q"
^DD(748.02,.01,1,0)="^.1"
^DD(748.02,.01,1,1,0)="748.02^B"
^DD(748.02,.01,1,1,1)="S ^QA(748,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(748.02,.01,1,1,2)="K ^QA(748,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(748.02,.01,1,2,0)="748^AB"
^DD(748.02,.01,1,2,1)="S ^QA(748,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(748.02,.01,1,2,2)="K ^QA(748,""AB"",$E(X,1,30),DA(1),DA)"
^DD(748.02,.01,1,2,"%D",0)="^^1^1^2941110^"
^DD(748.02,.01,1,2,"%D",1,0)="This allows quick look up of authorized editors."
^DD(748.02,.01,1,2,"DT")="2941110"
^DD(748.02,.01,3)="Enter the name(s) of the person(s) you are authorizing to edit this survey."
^DD(748.02,.01,"DT")="2941110"
^DD(748.02,"B","AUTHORIZED EDITORS",.01)=""
^DD(748.02,"GL",0,1,.01)=""
^DD(748.02,"IX",.01)=""
^DD(748.03,0)="DEMOGRAPHIC DATA ITEM SUB-FIELD^^4^5"
^DD(748.03,0,"DT")="2950530"
^DD(748.03,0,"IX","B",748.03,.01)=""
^DD(748.03,0,"NM","DEMOGRAPHIC DATA ITEM")=""
^DD(748.03,0,"UP")="748"
^DD(748.03,.01,0)="DEMOGRAPHIC DATA ITEM^F^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(748.03,.01,1,0)="^.1"
^DD(748.03,.01,1,1,0)="748.03^B"
^DD(748.03,.01,1,1,1)="S ^QA(748,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(748.03,.01,1,1,2)="K ^QA(748,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(748.03,.01,3)="Answer must be 3-40 characters in length."
^DD(748.03,.01,4)="D HELP3^QAPUTIL2"
^DD(748.03,.01,"DT")="2941126"
^DD(748.03,1,0)="TYPE^RS^d:DATE;p:POINTER;s:SET OF CODES;f:FREE TEXT;^0;2^Q"
^DD(748.03,1,3)="Enter the type of answer selection this question will have.  Use ?? for help."
^DD(748.03,1,23,0)="^^2^2^2950307^"
^DD(748.03,1,23,1,0)="This is the kind of demographic item it is, date, pointer to a file, set"
^DD(748.03,1,23,2,0)="of codes or free text."
^DD(748.03,1,"DT")="2941128"
^DD(748.03,2,0)="FILE^R*P748.2'^QA(748.2,^0;3^S DIC(""S"")=""D SCREEN^QAPFILE"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(748.03,2,3)="Enter the name of the file you wish to reference for demographics..  This is a mandatory field."
^DD(748.03,2,12)="You may only use files for which you have VA FileMan access.  If you cannot use the file you selected, this entry should be deleted."
^DD(748.03,2,12.1)="S DIC(""S"")=""D SCREEN^QAPFILE"""
^DD(748.03,2,21,0)="^^3^3^2950307^"
^DD(748.03,2,21,1,0)="If the demographic is a pointer, this field will hold a pointer to the"
^DD(748.03,2,21,2,0)="DEMOGRAPHIC REFERENCE file, which in turn points to file 1.  Care should"
^DD(748.03,2,21,3,0)="be taken to use only non-sensitive files."
^DD(748.03,2,"DT")="2950530"
^DD(748.03,3,0)="CODE^748.33A^^1;0"
^DD(748.03,3,21,0)="^^2^2^2950307^"
^DD(748.03,3,21,1,0)="If the type is a code, this field has the actual code as it will be"
^DD(748.03,3,21,2,0)="presented to the participant."
^DD(748.03,4,0)="IS THIS A REQUIRED ANSWER?^S^y:YES;n:NO;^0;4^Q"
^DD(748.03,4,3)="Enter 'y' for YES if answering this item will be required, or 'n' if it will not be required."
^DD(748.03,4,4)="W !,""This field may be overridden by answering the 'demographic required' question on the survey basic data to YES."",!"
^DD(748.03,4,21,0)="^^5^5^2950308^"
^DD(748.03,4,21,1,0)="If the demographic entry will be required by the user, this field should"
^DD(748.03,4,21,2,0)="be set to YES.  If not required, it may be left blank or contain NO.  This"
^DD(748.03,4,21,3,0)="field overrides the field ARE ALL DEMOGRAPHICS REQUIRED if it indicates"
^DD(748.03,4,21,4,0)="that all demographics are required and the creator wishes to make only"
^DD(748.03,4,21,5,0)="one demographic of many required."
^DD(748.03,4,"DT")="2950304"
^DD(748.03,"B","CODE",3)=""
^DD(748.03,"B","DEMOGRAPHIC DATA ITEM",.01)=""
^DD(748.03,"B","FILE",2)=""
^DD(748.03,"B","IS THIS A REQUIRED ANSWER?",4)=""
^DD(748.03,"B","TYPE",1)=""
^DD(748.03,"GL",0,1,.01)=""
^DD(748.03,"GL",0,2,1)=""
^DD(748.03,"GL",0,3,2)=""
^DD(748.03,"GL",0,4,4)=""
^DD(748.03,"GL",1,0,3)=""
^DD(748.03,"IX",.01)=""
^DD(748.03,"RQ",1)=""
^DD(748.03,"RQ",2)=""
^DD(748.03,"SB",748.33,3)=""
^DD(748.12,0)="INSTRUCTIONS FOR USE SUB-FIELD^^.01^1"
^DD(748.12,0,"NM","INSTRUCTIONS FOR USE")=""
^DD(748.12,0,"UP")="748"
^DD(748.12,.01,0)="INSTRUCTIONS FOR USE^W^^0;1^Q"
^DD(748.12,.01,3)="Enter the specific instructions as they are to appear on the survey."
^DD(748.12,.01,21,0)="^^1^1^2950307^^^^"
^DD(748.12,.01,21,1,0)="The specific instructions as they pertain to the survey."
^DD(748.12,.01,"DT")="2941025"
^DD(748.12,"B","INSTRUCTIONS FOR USE",.01)=""
^DD(748.12,"GL",0,1,.01)=""
^DD(748.2,0)="FIELD^^.01^1"
^DD(748.2,0,"DDA")="N"
^DD(748.2,0,"DT")="2941129"
^DD(748.2,0,"IX","B",748.2,.01)=""
^DD(748.2,0,"NM","DEMOGRAPHIC REFERENCE")=""
^DD(748.2,0,"PT",748.03,2)=""
^DD(748.2,0,"VR")="2.0"
^DD(748.2,.01,0)="FILE NAME^RP1'^DIC(^0;1^Q"
^DD(748.2,.01,1,0)="^.1^^-1"
^DD(748.2,.01,1,1,0)="748.2^B"
^DD(748.2,.01,1,1,1)="S ^QA(748.2,""B"",$E(X,1,30),DA)="""""
^DD(748.2,.01,1,1,2)="K ^QA(748.2,""B"",$E(X,1,30),DA)"
^DD(748.2,.01,3)="Enter the name of the file which you wish to add for survey use."
^DD(748.2,.01,21,0)="^^4^4^2950307^"
^DD(748.2,.01,21,1,0)="This file will contain the names of files which may be referenced by"
^DD(748.2,.01,21,2,0)="survey creators for purposes of assimilating demographical information"
^DD(748.2,.01,21,3,0)="about each survey.  The local IRM will be in control of what files are"
^DD(748.2,.01,21,4,0)="entered and should screen each for the intent desired by a survey creator."
^DD(748.2,.01,"DT")="2941129"
^DD(748.2,"B","FILE NAME",.01)=""
^DD(748.2,"GL",0,1,.01)=""
^DD(748.2,"IX",.01)=""
^DD(748.2,"RQ",.01)=""
^DD(748.25,0)="FIELD^^.02^2"
^DD(748.25,0,"DDA")="N"
^DD(748.25,0,"DT")="2950311"
^DD(748.25,0,"IX","B",748.25,.01)=""
^DD(748.25,0,"IX","E",748.26,.015)=""
^DD(748.25,0,"NM","SURVEY QUESTIONS")=""
^DD(748.25,0,"VR")="2.0"
^DD(748.25,.01,0)="SURVEY^P748'X^QA(748,^0;1^S:$D(X) DINUM=X Q"
^DD(748.25,.01,1,0)="^.1"
^DD(748.25,.01,1,1,0)="748.25^B"
^DD(748.25,.01,1,1,1)="S ^QA(748.25,""B"",$E(X,1,30),DA)="""""
^DD(748.25,.01,1,1,2)="K ^QA(748.25,""B"",$E(X,1,30),DA)"
^DD(748.25,.01,1,1,"DT")="2911113"
^DD(748.25,.01,21,0)="^^2^2^2950307^"
^DD(748.25,.01,21,1,0)="This field points to file 748, the SURVEY file.  It is DINUMed for each"
^DD(748.25,.01,21,2,0)="entry in the SURVEY file."
^DD(748.25,.01,"DT")="2920203"
^DD(748.25,.02,0)="QUESTION^748.26I^^1;0"
^DD(748.25,.02,21,0)="^^4^4^2950307^^"
^DD(748.25,.02,21,1,0)="This field has the internal entry number of a question, which can be"
^DD(748.25,.02,21,2,0)="different from the actual question number or question position on a"
^DD(748.25,.02,21,3,0)="survey.  For example the IFN may be 1 but the question may come out as 20"
^DD(748.25,.02,21,4,0)="on the actual survey because questions may be swapped around."
^DD(748.25,.02,"DT")="2941025"
^DD(748.25,"B","QUESTION",.02)=""
^DD(748.25,"B","SURVEY",.01)=""
^DD(748.25,"GL",0,1,.01)=""
^DD(748.25,"GL",1,0,.02)=""
^DD(748.25,"IX",.01)=""
^DD(748.25,"SB",748.26,.02)=""
^DD(748.26,0)="QUESTION SUB-FIELD^^3^11"
^DD(748.26,0,"DT")="2950311"
^DD(748.26,0,"IX","B",748.26,.01)=""
^DD(748.26,0,"NM","QUESTION")=""
^DD(748.26,0,"UP")="748.25"
^DD(748.26,.01,0)="QUESTION^MNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(748.26,.01,1,0)="^.1"
^DD(748.26,.01,1,1,0)="748.26^B"
^DD(748.26,.01,1,1,1)="S ^QA(748.25,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(748.26,.01,1,1,2)="K ^QA(748.25,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(748.26,.01,1,1,"DT")="2911227"
^DD(748.26,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(748.26,.01,7.5)="I $D(X) S X=$TR(X,""|:,;"")"
^DD(748.26,.01,"DT")="2950109"
^DD(748.26,.015,0)="QUESTION NUMBER^RNJ7,2X^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""3N.N) X I $D(X) D ^QAPDCK"
^DD(748.26,.015,.1)=""
^DD(748.26,.015,1,0)="^.1"
^DD(748.26,.015,1,1,0)="748.25^E^MUMPS"
^DD(748.26,.015,1,1,1)="S ^QA(748.25,""E"",DA(1),$E(X,1,30),DA)="""""
^DD(748.26,.015,1,1,2)="K ^QA(748.25,""E"",DA(1),$E(X,U,30),DA)"
^DD(748.26,.015,1,1,"%D",0)="^^1^1^2941103^"
^DD(748.26,.015,1,1,"%D",1,0)="Has display order by survey.  Used in all displays, reports."
^DD(748.26,.015,1,1,"DT")="2941103"
^DD(748.26,.015,3)="Type a Number between 1 and 9999, 2 Decimal Digits"
^DD(748.26,.015,4)="D HELPDIS^QAPUTIL2"
^DD(748.26,.015,21,0)="^^2^2^2950307^"
^DD(748.26,.015,21,1,0)="This field has the actual number of a specific question, which will also"
^DD(748.26,.015,21,2,0)="be the order in which it is displayed on all outputs of the survey."
^DD(748.26,.015,"DT")="2950304"
^DD(748.26,.02,0)="ANSWER FORMAT^RS^m:MULTIPLE CHOICE;t:TRUE/FALSE/NA;y:YES/NO/NA;w:WORD PROCESSING;^1;1^Q"
^DD(748.26,.02,3)="Select the format for your answers.  Use ?? for help."
^DD(748.26,.02,21,0)="^^3^3^2950307^"
^DD(748.26,.02,21,1,0)="This is the format or type of question the participant is given.  It may"
^DD(748.26,.02,21,2,0)="be a multiple choice, which also includes Likert Scale answers, a"
^DD(748.26,.02,21,3,0)="true/false, a yes/no or a word processing question."
^DD(748.26,.02,"DT")="2950311"
^DD(748.26,.025,0)="MULTIPLE CHOICE TYPE^S^a:ALPHABETIC;l:LIKERT SCALE;n:NUMERIC;^0;3^Q"
^DD(748.26,.025,3)="Enter the multiple choice type this question will have, alphabetic, numeric or Likert Scale."
^DD(748.26,.025,21,0)="^^18^18^2950307^"
^DD(748.26,.025,21,1,0)="The multiple choice type indicates how the participant will indicate the"
^DD(748.26,.025,21,2,0)="answers.  Participants may select answers by a letter (either upper or"
^DD(748.26,.025,21,3,0)="lower case), or numbers which will not only include straight numeric"
^DD(748.26,.025,21,4,0)="selection, but also Likert Scale selection."
^DD(748.26,.025,21,5,0)=" "
^DD(748.26,.025,21,6,0)=" Examples:  if alphabetic the user sees "
^DD(748.26,.025,21,7,0)=" "
^DD(748.26,.025,21,8,0)="                       a. "
^DD(748.26,.025,21,9,0)="                       b.     etc."
^DD(748.26,.025,21,10,0)=" "
^DD(748.26,.025,21,11,0)="            if numeric the user sees"
^DD(748.26,.025,21,12,0)=" "
^DD(748.26,.025,21,13,0)="                       1."
^DD(748.26,.025,21,14,0)="                       2.     etc."
^DD(748.26,.025,21,15,0)=" "
^DD(748.26,.025,21,16,0)="            if Likert Scale the user will see"
^DD(748.26,.025,21,17,0)=" "
^DD(748.26,.025,21,18,0)="                 1  2  3  4  5  6     etc."
^DD(748.26,.025,"DT")="2950224"
^DD(748.26,.027,0)="NUMBER OF GRADIENTS (LIKERT)^NJ1,0^^0;4^K:+X'=X!(X>7)!(X<2)!(X?.E1"".""1N.N) X"
^DD(748.26,.027,3)="Type a Number between 2 and 7, 0 Decimal Digits"
^DD(748.26,.027,21,0)="^^6^6^2950307^"
^DD(748.26,.027,21,1,0)="This determines how many numeric choices the participant may chose from."
^DD(748.26,.027,21,2,0)="A typical Likert Scale may look like:"
^DD(748.26,.027,21,3,0)=" "
^DD(748.26,.027,21,4,0)="       Poor   1   2   3   4   5   6   7   Excellent"
^DD(748.26,.027,21,5,0)=" "
^DD(748.26,.027,21,6,0)="Seven is the maximum number of gradients that may be used."
^DD(748.26,.027,"DT")="2950118"
^DD(748.26,.03,0)="ANSWER^748.28A^^3;0"
^DD(748.26,.03,21,0)="^^8^8^2950307^"
^DD(748.26,.03,21,1,0)="This multiple field will hold the actual text of a multiple choice"
^DD(748.26,.03,21,2,0)="question.  The answers will be displayed in accordance to the MULTIPLE"
^DD(748.26,.03,21,3,0)="CHOICE TYPE.  No extra formatting is needed, only the text of each"
^DD(748.26,.03,21,4,0)="selection"
^DD(748.26,.03,21,5,0)=" "
^DD(748.26,.03,21,6,0)="       correct:   First choice"
^DD(748.26,.03,21,7,0)="     incorrect:   A.  First choice"
^DD(748.26,.03,21,8,0)="     incorrect:   1.  First choice"
^DD(748.26,.05,0)="QUESTION TEXT^748.27^^2;0"
^DD(748.26,.05,21,0)="^^3^3^2950307^"
^DD(748.26,.05,21,1,0)="This field contains the actual text of the question.  It is entered"
^DD(748.26,.05,21,2,0)="exactly as the creator wishes the participants to see it.  No formatting"
^DD(748.26,.05,21,3,0)="is attempted and it is displayed as it is typed in by the creator."
^DD(748.26,.055,0)="QUESTION HEADER^748.29^^4;0"
^DD(748.26,1,0)="LEFT LIKERT LABEL^F^^0;5^K:$L(X)>25!($L(X)<1) X"
^DD(748.26,1,3)="Enter the left side of the Likert Scale label. [1-25 characters]"
^DD(748.26,1,21,0)="^^4^4^2950307^"
^DD(748.26,1,21,1,0)="This is the left-hand label of a Likert Scale.  It is free text (1-25"
^DD(748.26,1,21,2,0)="characters) and may be anything the creator wishes to enter which will"
^DD(748.26,1,21,3,0)="give a meaningful Likert Scale.  The length is limited due to page"
^DD(748.26,1,21,4,0)="formatting constraints."
^DD(748.26,1,"DT")="2950224"
^DD(748.26,2,0)="RIGHT LIKERT LABEL^F^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(748.26,2,3)="Enter the right side of the Likert Scale label. [1-25 characters]"
^DD(748.26,2,21,0)="^^3^3^2950307^"
^DD(748.26,2,21,1,0)="This is the right-hand Likert label and may be anything the creator wishes"
^DD(748.26,2,21,2,0)="to enter to make a meaningful Likert Scale.  Entry is limited to 1-25"
^DD(748.26,2,21,3,0)="characters due to page formatting constraints."
^DD(748.26,2,"DT")="2950224"
^DD(748.26,3,0)="LIKERT NUMERIC DISPLAY TYPE^S^a:ASCENDING;d:DESCENDING;^0;7^Q"
^DD(748.26,3,3)="Enter the type of numeric display, ascending or descending."
^DD(748.26,3,4)="W !,""Ascending is like 1 2 3 4 5  etc.,"",!,""Descending is like 5 4 3 2 1 etc."",!"
^DD(748.26,3,21,0)="^^9^9^2950307^"
^DD(748.26,3,21,1,0)="This field controls which way the Likert numeric scale is displayed, left"
^DD(748.26,3,21,2,0)="to right or right to left."
^DD(748.26,3,21,3,0)=" "
^DD(748.26,3,21,4,0)="       a = ascending and will be like  1  2  3  4  5  6  etc."
^DD(748.26,3,21,5,0)=" "
^DD(748.26,3,21,6,0)="       d = descending and will be like  6  5  4  3  2  1  etc."
^DD(748.26,3,21,7,0)=" "
^DD(748.26,3,21,8,0)="It is up to the creator of the survey to determine which direction he"
^DD(748.26,3,21,9,0)="wants the scale to go."
^DD(748.26,3,"DT")="2950220"
^DD(748.26,"B","ANSWER",.03)=""
^DD(748.26,"B","ANSWER FORMAT",.02)=""
^DD(748.26,"B","LEFT LIKERT LABEL",1)=""
^DD(748.26,"B","LIKERT NUMERIC DISPLAY TYPE",3)=""
^DD(748.26,"B","MULTIPLE CHOICE TYPE",.025)=""
^DD(748.26,"B","NUMBER OF GRADIENTS (LIKERT)",.027)=""
^DD(748.26,"B","QUESTION",.01)=""
^DD(748.26,"B","QUESTION HEADER",.055)=""
^DD(748.26,"B","QUESTION NUMBER",.015)=""
^DD(748.26,"B","QUESTION TEXT",.05)=""
^DD(748.26,"B","RIGHT LIKERT LABEL",2)=""
^DD(748.26,"GL",0,1,.01)=""
^DD(748.26,"GL",0,2,.015)=""
^DD(748.26,"GL",0,3,.025)=""
^DD(748.26,"GL",0,4,.027)=""
^DD(748.26,"GL",0,5,1)=""
^DD(748.26,"GL",0,6,2)=""
^DD(748.26,"GL",0,7,3)=""
^DD(748.26,"GL",1,1,.02)=""
^DD(748.26,"GL",2,0,.05)=""
^DD(748.26,"GL",3,0,.03)=""
^DD(748.26,"GL",4,0,.055)=""
^DD(748.26,"IX",.01)=""
^DD(748.26,"IX",.015)=""
^DD(748.26,"RQ",.015)=""
^DD(748.26,"RQ",.02)=""
^DD(748.26,"SB",748.27,.05)=""
^DD(748.26,"SB",748.28,.03)=""
^DD(748.26,"SB",748.29,.055)=""
^DD(748.27,0)="QUESTION TEXT SUB-FIELD^^.01^1"
^DD(748.27,0,"DT")="2941025"
^DD(748.27,0,"NM","QUESTION TEXT")=""
^DD(748.27,0,"UP")="748.26"
^DD(748.27,.01,0)="QUESTION TEXT^W^^0;1^Q"
^DD(748.27,.01,"DT")="2941025"
^DD(748.27,"B","QUESTION TEXT",.01)=""
^DD(748.27,"GL",0,1,.01)=""
^DD(748.28,0)="ANSWER SUB-FIELD^^.01^1"
^DD(748.28,0,"DT")="2941109"
^DD(748.28,0,"IX","B",748.28,.01)=""
^DD(748.28,0,"NM","ANSWER")=""
^DD(748.28,0,"UP")="748.26"
^DD(748.28,.01,0)="ANSWER^MFX^^0;1^K:$L(X)>35!($L(X)<1) X I $D(DA(2)),$D(DA(1)),$P(^QA(748.25,DA(2),1,DA(1),3,0),U,3)>25 W !!,*7,""You can have only twenty-six answers per question."",!! K X"
^DD(748.28,.01,1,0)="^.1"
^DD(748.28,.01,1,1,0)="748.28^B"
^DD(748.28,.01,1,1,1)="S ^QA(748.25,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(748.28,.01,1,1,2)="K ^QA(748.25,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(748.28,.01,3)="Answer must be 1-35 characters in length."
^DD(748.28,.01,"DT")="2941122"
^DD(748.28,"B","ANSWER",.01)=""
^DD(748.28,"GL",0,1,.01)=""
^DD(748.28,"IX",.01)=""
^DD(748.29,0)="QUESTION HEADER SUB-FIELD^^.01^1"
^DD(748.29,0,"DT")="2950210"
^DD(748.29,0,"NM","QUESTION HEADER")=""
^DD(748.29,0,"UP")="748.26"
^DD(748.29,.01,0)="QUESTION HEADER^W^^0;1^Q"
^DD(748.29,.01,"DT")="2950210"
^DD(748.29,"B","QUESTION HEADER",.01)=""
^DD(748.29,"GL",0,1,.01)=""
^DD(748.3,0)="FIELD^^6^7"
^DD(748.3,0,"DDA")="N"
^DD(748.3,0,"DT")="2950307"
^DD(748.3,0,"IX","AC",748.3,2)=""
^DD(748.3,0,"IX","B",748.3,.01)=""
^DD(748.3,0,"NM","SURVEY RESPONSE DATA")=""
^DD(748.3,0,"VR")="2.0"
^DD(748.3,.01,0)="SURVEY^RP748^QA(748,^0;1^Q"
^DD(748.3,.01,1,0)="^.1^^-1"
^DD(748.3,.01,1,1,0)="748.3^B"
^DD(748.3,.01,1,1,1)="S ^QA(748.3,""B"",$E(X,1,30),DA)="""""
^DD(748.3,.01,1,1,2)="K ^QA(748.3,""B"",$E(X,1,30),DA)"
^DD(748.3,.01,3)="The name of the survey to which these answers belong."
^DD(748.3,.01,21,0)="^^2^2^2950307^"
^DD(748.3,.01,21,1,0)="This field is a pointer to the SURVEY file, 748.  It links the answers in"
^DD(748.3,.01,21,2,0)="this file to a specific survey."
^DD(748.3,.01,"DT")="2941101"
^DD(748.3,1,0)="QUESTION NUMBER^748.31^^1;0"
^DD(748.3,1,21,0)="^^2^2^2950307^"
^DD(748.3,1,21,1,0)="This field is the internal file number (IFN) of a specific question in"
^DD(748.3,1,21,2,0)="file 748.25.  "
^DD(748.3,1,"DT")="2941030"
^DD(748.3,2,0)="PARTICIPANT^FOX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) D HASH^XUSHSHP"
^DD(748.3,2,1,0)="^.1"
^DD(748.3,2,1,1,0)="748.3^AC^MUMPS"
^DD(748.3,2,1,1,1)="S QAPSURV=$P(^QA(748.3,DA,0),U,1),^QA(748.3,""AC"",$E(X,1,30),QAPSURV,DA)="""" K QAPSURV"
^DD(748.3,2,1,1,2)="S QAPSURV=$P(^QA(748.3,DA,0),U,1) K ^QA(748.3,""AC"",$E(X,1,30),QAPSURV,DA),QAPSURV"
^DD(748.3,2,1,1,"%D",0)="^^1^1^2941101^^^"
^DD(748.3,2,1,1,"%D",1,0)="Checks for duplicate participation in a survey."
^DD(748.3,2,1,1,"DT")="2941101"
^DD(748.3,2,2)="S Y(0)=Y S Y(0)=Y,Y=""<Hidden>"""
^DD(748.3,2,2.1)="S Y(0)=Y,Y=""<Hidden>"""
^DD(748.3,2,3)="This is the hashed user DUZ. [1-30 characters]"
^DD(748.3,2,21,0)="^^6^6^2950307^"
^DD(748.3,2,21,1,0)="This is the hashed version of the participant DUZ.  It is hashed via"
^DD(748.3,2,21,2,0)="^XUSHSHP and all user-viewable outputs of this field are converted to"
^DD(748.3,2,21,3,0)="<Hidden> for confidentiality."
^DD(748.3,2,21,4,0)=" "
^DD(748.3,2,21,5,0)="This field is used to determine if a user has already participated in a"
^DD(748.3,2,21,6,0)="survey.  No pointer to file 200 is used since the DUZ is hashed."
^DD(748.3,2,"DT")="2941101"
^DD(748.3,3,0)="SURVEY COMPLETION STATUS^S^c:COMPLETED;s:SUSPENDED;i:IN PROGRESS;^0;3^Q"
^DD(748.3,3,3)="The status of the user participation in the survey."
^DD(748.3,3,21,0)="^^10^10^2950307^"
^DD(748.3,3,21,1,0)="This is the status of a survey at any given moment.  It may be:"
^DD(748.3,3,21,2,0)=" "
^DD(748.3,3,21,3,0)="       c = completed  - the participant is finished totally"
^DD(748.3,3,21,4,0)=" "
^DD(748.3,3,21,5,0)="       s = suspended  - the participant has stopped taking"
^DD(748.3,3,21,6,0)="                        the survey for a while and will resume"
^DD(748.3,3,21,7,0)="                        at a later time"
^DD(748.3,3,21,8,0)=" "
^DD(748.3,3,21,9,0)="       i = in progress - a person is actually participating"
^DD(748.3,3,21,10,0)="                         at the moment"
^DD(748.3,3,"DT")="2941101"
^DD(748.3,4,0)="LAST QUESTION ANSWERED^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(748.3,4,3)="The last question answered by the participant before suspension of the survey."
^DD(748.3,4,21,0)="^^2^2^2950307^"
^DD(748.3,4,21,1,0)="This field is a memo field used as to inform a participant which question"
^DD(748.3,4,21,2,0)="was the last one he answered."
^DD(748.3,4,"DT")="2941101"
^DD(748.3,5,0)="LAST QUESTION NUMBER^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(748.3,5,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(748.3,5,21,0)="^^2^2^2950307^^"
^DD(748.3,5,21,1,0)="This field is used by the programming to know with which question to"
^DD(748.3,5,21,2,0)="resume after a survey has been suspended by a participant."
^DD(748.3,5,"DT")="2950307"
^DD(748.3,6,0)="DEMOGRAPHIC QUESTION^748.36A^^2;0"
^DD(748.3,"B","DEMOGRAPHIC QUESTION",6)=""
^DD(748.3,"B","LAST QUESTION ANSWERED",4)=""
^DD(748.3,"B","LAST QUESTION NUMBER",5)=""
^DD(748.3,"B","PARTICIPANT",2)=""
^DD(748.3,"B","QUESTION NUMBER",1)=""
^DD(748.3,"B","SURVEY",.01)=""
^DD(748.3,"B","SURVEY COMPLETION STATUS",3)=""
^DD(748.3,"GL",0,1,.01)=""
^DD(748.3,"GL",0,2,2)=""
^DD(748.3,"GL",0,3,3)=""
^DD(748.3,"GL",0,4,4)=""
^DD(748.3,"GL",0,5,5)=""
^DD(748.3,"GL",1,0,1)=""
^DD(748.3,"GL",2,0,6)=""
^DD(748.3,"IX",.01)=""
^DD(748.3,"IX",2)=""
^DD(748.3,"RQ",.01)=""
^DD(748.3,"SB",748.31,1)=""
^DD(748.3,"SB",748.36,6)=""
^DD(748.31,0)="QUESTION NUMBER SUB-FIELD^^2^3"
^DD(748.31,0,"DT")="2941031"
^DD(748.31,0,"IX","B",748.31,.01)=""
^DD(748.31,0,"NM","QUESTION NUMBER")=""
^DD(748.31,0,"UP")="748.3"
^DD(748.31,.01,0)="QUESTION NUMBER^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(748.31,.01,1,0)="^.1"
^DD(748.31,.01,1,1,0)="748.31^B"
^DD(748.31,.01,1,1,1)="S ^QA(748.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(748.31,.01,1,1,2)="K ^QA(748.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(748.31,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(748.31,.01,"DT")="2941030"
^DD(748.31,1,0)="ANSWER^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(748.31,1,3)="Answer is free text and must be 1-3 characters in length."
^DD(748.31,1,21,0)="^^2^2^2950307^"
^DD(748.31,1,21,1,0)="This is the actual text of the participant's answer.  This does not"
^DD(748.31,1,21,2,0)="include word processing answers, which are stored separately."
^DD(748.31,1,"DT")="2941031"
^DD(748.31,2,0)="RESPONSE^748.312^^1;0"
^DD(748.31,"B","ANSWER",1)=""
^DD(748.31,"B","QUESTION NUMBER",.01)=""
^DD(748.31,"B","RESPONSE",2)=""
^DD(748.31,"GL",0,1,.01)=""
^DD(748.31,"GL",0,2,1)=""
^DD(748.31,"GL",1,0,2)=""
^DD(748.31,"IX",.01)=""
^DD(748.31,"SB",748.312,2)=""
^DD(748.312,0)="RESPONSE SUB-FIELD^^.01^1"
^DD(748.312,0,"DT")="2941031"
^DD(748.312,0,"NM","RESPONSE")=""
^DD(748.312,0,"UP")="748.31"
^DD(748.312,.01,0)="RESPONSE^W^^0;1^Q"
^DD(748.312,.01,"DT")="2941031"
^DD(748.312,"B","RESPONSE",.01)=""
^DD(748.312,"GL",0,1,.01)=""
^DD(748.33,0)="CODE SUB-FIELD^^1^2"
^DD(748.33,0,"DT")="2941114"
^DD(748.33,0,"IX","B",748.33,.01)=""
^DD(748.33,0,"NM","CODE")=""
^DD(748.33,0,"UP")="748.03"
^DD(748.33,.01,0)="CODE^MRF^^0;1^K:$L(X)>5!($L(X)<1) X"
^DD(748.33,.01,1,0)="^.1"
^DD(748.33,.01,1,1,0)="748.33^B"
^DD(748.33,.01,1,1,1)="S ^QA(748,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(748.33,.01,1,1,2)="K ^QA(748,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(748.33,.01,3)="Answer must be 1-5 characters in length."
^DD(748.33,.01,"DT")="2941114"
^DD(748.33,1,0)="CODE MEANING^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(748.33,1,3)="Enter the code's meaning.  [1-35 characters]"
^DD(748.33,1,21,0)="^^2^2^2950307^"
^DD(748.33,1,21,1,0)="This field has the code interpretation.  Example:  if the actual code is"
^DD(748.33,1,21,2,0)="O, it may mean something like OTHER."
^DD(748.33,1,"DT")="2941112"
^DD(748.33,"B","CODE",.01)=""
^DD(748.33,"B","CODE MEANING",1)=""
^DD(748.33,"GL",0,1,.01)=""
^DD(748.33,"GL",0,2,1)=""
^DD(748.33,"IX",.01)=""
^DD(748.33,"RQ",.01)=""
^DD(748.36,0)="DEMOGRAPHIC QUESTION SUB-FIELD^^1^2"
^DD(748.36,0,"DT")="2950307"
^DD(748.36,0,"IX","B",748.36,.01)=""
^DD(748.36,0,"NM","DEMOGRAPHIC QUESTION")=""
^DD(748.36,0,"UP")="748.3"
^DD(748.36,.01,0)="DEMOGRAPHIC QUESTION^NJ2,0^^0;1^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1N.N) X"
^DD(748.36,.01,1,0)="^.1"
^DD(748.36,.01,1,1,0)="748.36^B"
^DD(748.36,.01,1,1,1)="S ^QA(748.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(748.36,.01,1,1,2)="K ^QA(748.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(748.36,.01,3)="This is the internal file number of the question and is system maintained.  DO NOT ALTER via FileMan !!"
^DD(748.36,.01,21,0)="^^1^1^2950307^"
^DD(748.36,.01,21,1,0)="This is the internal file number (IFN) of the demographic question."
^DD(748.36,.01,"DT")="2950307"
^DD(748.36,1,0)="RESPONSE DATA^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X"
^DD(748.36,1,1,0)="^.1^^0"
^DD(748.36,1,3)="The free text answer must be 1-45 characters in length."
^DD(748.36,1,21,0)="^^4^4^2950307^"
^DD(748.36,1,21,1,0)="This is the actual response data for each demographic question item.  This"
^DD(748.36,1,21,2,0)="data is not a pointer but rather the actual ""translated"" data.  It is"
^DD(748.36,1,21,3,0)="stored in this form for speed and consistency and not having to do many"
^DD(748.36,1,21,4,0)="file hits when producing reports."
^DD(748.36,1,"DT")="2941113"
^DD(748.36,"B","DEMOGRAPHIC QUESTION",.01)=""
^DD(748.36,"B","RESPONSE DATA",1)=""
^DD(748.36,"GL",0,1,.01)=""
^DD(748.36,"GL",0,2,1)=""
^DD(748.36,"IX",.01)=""
^DD(757,0)="FIELD^^1^2"
^DD(757,0,"DDA")="N"
^DD(757,0,"DT")="2970701"
^DD(757,0,"IX","B",757,.01)=""
^DD(757,0,"NM","MAJOR CONCEPT MAP")=""
^DD(757,0,"PK")="LEX"
^DD(757,0,"PT",757.001,.01)=""
^DD(757,0,"PT",757.01,1)=""
^DD(757,0,"PT",757.02,3)=""
^DD(757,0,"PT",757.1,.01)=""
^DD(757,0,"VR")="2.0"
^DD(757,0,"VRPK")="LEX"
^DD(757,0,"VRRV")="56^3080401"
^DD(757,.01,0)="EXPRESSION^RP757.01'IO^LEX(757.01,^0;1^Q"
^DD(757,.01,.1)=""
^DD(757,.01,1,0)="^.1^^-1"
^DD(757,.01,1,1,0)="757^B"
^DD(757,.01,1,1,1)="S ^LEX(757,""B"",$E(X,1,30),DA)="""""
^DD(757,.01,1,1,2)="K ^LEX(757,""B"",$E(X,1,30),DA)"
^DD(757,.01,1,1,"%D",0)="^^4^4^2940902^^^"
^DD(757,.01,1,1,"%D",1,0)="^LEX(757,""B"",MCE,IEN) - where MCE is a pointer to the expression in the"
^DD(757,.01,1,1,"%D",2,0)="Expression file #757.01 which represents a clinical Major Concept Expression,"
^DD(757,.01,1,1,"%D",3,0)="and IEN is the Internal Entry Number in the Major Concept Map file #757 where"
^DD(757,.01,1,1,"%D",4,0)="this pointer is located."
^DD(757,.01,1,1,"DT")="2921029"
^DD(757,.01,2)="S Y(0)=Y S Y=$P(^LEX(757.01,Y,1),U,1)"
^DD(757,.01,2.1)="S Y=$P(^LEX(757.01,Y,1),U,1)"
^DD(757,.01,3)=""
^DD(757,.01,21,0)="^^2^2^2960812^^^^"
^DD(757,.01,21,1,0)="Pointer to the clinical expression in the Expression file (#757.01) which "
^DD(757,.01,21,2,0)="represents the preferred term for the Major Concept."
^DD(757,.01,"DT")="2930419"
^DD(757,1,0)="GROUP^P757.01'^LEX(757.01,^0;2^Q"
^DD(757,1,3)=""
^DD(757,1,21,0)="^^2^2^2950726^^^"
^DD(757,1,21,1,0)="This field is intended to provide applications the ability to group terms by"
^DD(757,1,21,2,0)="categories, such as Cardiovascular, Pulmonary, etc."
^DD(757,1,"DT")="2950726"
^DD(757,"B","EXPRESSION",.01)=""
^DD(757,"B","GROUP",1)=""
^DD(757,"GL",0,1,.01)=""
^DD(757,"GL",0,2,1)=""
^DD(757,"IX",.01)=""
^DD(757,"RQ",.01)=""
^DD(757.001,0)="FIELD^^2^3"
^DD(757.001,0,"DDA")="N"
^DD(757.001,0,"DT")="2950726"
^DD(757.001,0,"IX","AF",757.001,2)=""
^DD(757.001,0,"IX","B",757.001,.01)=""
^DD(757.001,0,"NM","CONCEPT USAGE")=""
^DD(757.001,0,"PK")="LEX"
^DD(757.001,0,"VR")="2.0"
^DD(757.001,0,"VRPK")="LEX"
^DD(757.001,0,"VRRV")="56^3080401"
^DD(757.001,.01,0)="MAJOR CONCEPT^RP757'^LEX(757,^0;1^Q"
^DD(757.001,.01,1,0)="^.1"
^DD(757.001,.01,1,1,0)="757.001^B"
^DD(757.001,.01,1,1,1)="S ^LEX(757.001,""B"",$E(X,1,30),DA)="""""
^DD(757.001,.01,1,1,2)="K ^LEX(757.001,""B"",$E(X,1,30),DA)"
^DD(757.001,.01,1,1,"%D",0)="^^3^3^2960812^"
^DD(757.001,.01,1,1,"%D",1,0)="^LEX(757.001,""B"",MC,IEN) - where MC is the pointer to the Major Concept in the"
^DD(757.001,.01,1,1,"%D",2,0)="Major Concept Map file #757 and IEN is the Internal Entry Number in the Concept"
^DD(757.001,.01,1,1,"%D",3,0)="Usage file #757.001 where the Major Concept is located."
^DD(757.001,.01,3)=""
^DD(757.001,.01,21,0)="^^2^2^2950726^"
^DD(757.001,.01,21,1,0)="This is a pointer to the Major Concept (file #757) and used to link the concept"
^DD(757.001,.01,21,2,0)="frequency of use back to the Major Concept."
^DD(757.001,.01,"DT")="2950726"
^DD(757.001,1,0)="ORIGINATING VALUE^RNJ1,0^^0;2^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.001,1,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(757.001,1,21,0)="^^4^4^2970221^^^"
^DD(757.001,1,21,1,0)="It was necessary to ""seed"" this file prior to export.  This field represents"
^DD(757.001,1,21,2,0)="the original (exported) value of the frequency of use (Usage, field #2).  To"
^DD(757.001,1,21,3,0)="obtain the actual frequency of use, this value must be subtracted from the "
^DD(757.001,1,21,4,0)="Frequency field (#2)."
^DD(757.001,1,"DT")="2950726"
^DD(757.001,2,0)="FREQUENCY^RNJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.001,2,1,0)="^.1"
^DD(757.001,2,1,1,0)="757.001^AF^MUMPS"
^DD(757.001,2,1,1,1)="S ^LEX(757.001,""AF"",-(X-(+($P(^LEX(757.001,DA,0),U,2)))),DA)="""""
^DD(757.001,2,1,1,2)="K ^LEX(757.001,""AF"",-(X-(+($P(^LEX(757.001,DA,0),U,2)))),DA)"
^DD(757.001,2,1,1,"%D",0)="^^4^4^2950726^^^"
^DD(757.001,2,1,1,"%D",1,0)="^LEX(757.001,""AF"",FREQ,IEN) - where FREQ is either a zero or a negative numeric"
^DD(757.001,2,1,1,"%D",2,0)="value representing the frequency of use of a concept in decending order, and"
^DD(757.001,2,1,1,"%D",3,0)="IEN is the Internal Entery Number in the Concept Usage file #757.001 where this"
^DD(757.001,2,1,1,"%D",4,0)="frequency value is located."
^DD(757.001,2,1,1,"DT")="2950726"
^DD(757.001,2,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(757.001,2,21,0)="^^6^6^2951102^^^^"
^DD(757.001,2,21,1,0)="This value is incremented each time the user selects a concept from the Lexicon"
^DD(757.001,2,21,2,0)="using the Special Lookup Routines supplied with the Lexicon Utility.  Over time,"
^DD(757.001,2,21,3,0)="it will show the frequency of use of each of the concepts contained in the"
^DD(757.001,2,21,4,0)="Lexicon.  Additionally, it is used to order the selection list in the Special"
^DD(757.001,2,21,5,0)="Lookup Routines, placing the most frequently used concepts at the top of the"
^DD(757.001,2,21,6,0)="list."
^DD(757.001,2,"DT")="2950726"
^DD(757.001,"B","FREQUENCY",2)=""
^DD(757.001,"B","MAJOR CONCEPT",.01)=""
^DD(757.001,"B","ORIGINATING VALUE",1)=""
^DD(757.001,"GL",0,1,.01)=""
^DD(757.001,"GL",0,2,1)=""
^DD(757.001,"GL",0,3,2)=""
^DD(757.001,"IX",.01)=""
^DD(757.001,"IX",2)=""
^DD(757.001,"RQ",.01)=""
^DD(757.001,"RQ",1)=""
^DD(757.001,"RQ",2)=""
^DD(757.01,0)="FIELD^^16^17"
^DD(757.01,0,"ACT")="S:DIC(0)[""L"" DIC(0)=$P(DIC(0),""L"",1)_$P(DIC(0),""L"",2)"
^DD(757.01,0,"DDA")="N"
^DD(757.01,0,"DIC")="LEXA1"
^DD(757.01,0,"DT")="2971010"
^DD(757.01,0,"IX","ADC",757.01,9)=""
^DD(757.01,0,"IX","ADTERM",757.01,9)=""
^DD(757.01,0,"IX","AMC",757.01,1)=""
^DD(757.01,0,"IX","AORIG",757.01,5)=""
^DD(757.01,0,"IX","APAR",757.01,13)=""
^DD(757.01,0,"IX","ASL",757.01,.01)=""
^DD(757.01,0,"IX","AWORD",757.18,.01)=""
^DD(757.01,0,"IX","AWRD",757.01,2)=""
^DD(757.01,0,"IX","B",757.01,.01)=""
^DD(757.01,0,"NM","EXPRESSIONS")=""
^DD(757.01,0,"PK")="LEX"
^DD(757.01,0,"PT",100.051,1)=""
^DD(757.01,0,"PT",125.12,2)=""
^DD(757.01,0,"PT",200.0351,1)=""
^DD(757.01,0,"PT",357.3,2.02)=""
^DD(757.01,0,"PT",357.951,2.02)=""
^DD(757.01,0,"PT",358.3,2.02)=""
^DD(757.01,0,"PT",757,.01)=""
^DD(757.01,0,"PT",757,1)=""
^DD(757.01,0,"PT",757.01,13)=""
^DD(757.01,0,"PT",757.02,.01)=""
^DD(757.01,0,"PT",757.21,.01)=""
^DD(757.01,0,"PT",757.4,.01)=""
^DD(757.01,0,"PT",757.53,.01)=""
^DD(757.01,0,"PT",8925.9,.04)=""
^DD(757.01,0,"PT",9000010.07,.15)=""
^DD(757.01,0,"PT",9000011,1.01)=""
^DD(757.01,0,"PT",9999999.27,75701)=""
^DD(757.01,0,"VR")="2.0"
^DD(757.01,0,"VRPK")="LEX"
^DD(757.01,0,"VRRV")="56^3080401"
^DD(757.01,.01,0)="DISPLAYABLE TEXT^RFX^^0;1^K:$A(X)=45 X I $D(X) K:$L(X)>240!($L(X)<1) X"
^DD(757.01,.01,1,0)="^.1"
^DD(757.01,.01,1,1,0)="757.01^B"
^DD(757.01,.01,1,1,1)="S ^LEX(757.01,""B"",$E($$UP^XLFSTR(X),1,63),DA)="""""
^DD(757.01,.01,1,1,2)="K ^LEX(757.01,""B"",$E($$UP^XLFSTR(X),1,63),DA)"
^DD(757.01,.01,1,1,"%D",0)="^^4^4^2940902^"
^DD(757.01,.01,1,1,"%D",1,0)="^LEX(757.01,""B"",EXP,IEN) - where EXP is the expression (either a Major Concept,"
^DD(757.01,.01,1,1,"%D",2,0)="Synonym or a Lexical Variant) in the Expression file #757.01 and IEN is the"
^DD(757.01,.01,1,1,"%D",3,0)="Internal Entry Number in the Expression file #757.01 where this expression is"
^DD(757.01,.01,1,1,"%D",4,0)="located."
^DD(757.01,.01,1,2,0)="757.01^ASL^MUMPS"
^DD(757.01,.01,1,2,1)="D SSF^LEXNDX6"
^DD(757.01,.01,1,2,2)="D KSF^LEXNDX6"
^DD(757.01,.01,1,2,"%D",0)="^^3^3^2950212^"
^DD(757.01,.01,1,2,"%D",1,0)="^LEX(757.01,""ASL"",STR,FREQ) - Where STR is a string found in the Clinical"
^DD(757.01,.01,1,2,"%D",2,0)="Lexicon and FREQ is the number of times (frequency) it occurrs.  This is not"
^DD(757.01,.01,1,2,"%D",3,0)="an index."
^DD(757.01,.01,1,2,"DT")="2950212"
^DD(757.01,.01,3)="Displayable Text must be 1-240 characters in length."
^DD(757.01,.01,21,0)="^.001^2^2^3061011^^^^"
^DD(757.01,.01,21,1,0)="This is the text which will be used to represent the expression (Major Concept,"
^DD(757.01,.01,21,2,0)="Synonym or Lexical Variant)."
^DD(757.01,.01,"DT")="3061011"
^DD(757.01,.01,"LAYGO",1,0)="I 0"
^DD(757.01,1,0)="MAJOR CONCEPT^RP757'I^LEX(757,^1;1^Q"
^DD(757.01,1,1,0)="^.1"
^DD(757.01,1,1,1,0)="757.01^AMC"
^DD(757.01,1,1,1,1)="S ^LEX(757.01,""AMC"",$E(X,1,30),DA)="""""
^DD(757.01,1,1,1,2)="K ^LEX(757.01,""AMC"",$E(X,1,30),DA)"
^DD(757.01,1,1,1,"%D",0)="^^3^3^2940902^^"
^DD(757.01,1,1,1,"%D",1,0)="^LEX(757.01,""AMC"",MC,IEN) - where MC is the pointer to the Major Concept entry"
^DD(757.01,1,1,1,"%D",2,0)="in the Major Concept Map file #757 and IEN is the Internal Entry Number in the"
^DD(757.01,1,1,1,"%D",3,0)="Expression file #757.01 where this Major Concept pointer is Located.  "
^DD(757.01,1,1,1,"DT")="2930325"
^DD(757.01,1,21,0)="^^5^5^2950726^^^^"
^DD(757.01,1,21,1,0)="Pointer to the Major Concept (file #757).  If the expression is a major"
^DD(757.01,1,21,2,0)="concept, this pointer will be the same as the Expression pointer in the"
^DD(757.01,1,21,3,0)="Major Concept Map file (#757).  If it is a synonym or a lexical variant it"
^DD(757.01,1,21,4,0)="will point to it's parent major concept.  If it is a lexical variant of a"
^DD(757.01,1,21,5,0)="synonym, it will point to the parent major concept of the synonym."
^DD(757.01,1,"DT")="2940902"
^DD(757.01,2,0)="TYPE^RP757.011'I^LEX(757.011,^1;2^Q"
^DD(757.01,2,1,0)="^.1^^-1"
^DD(757.01,2,1,2,0)="757.01^AWRD^MUMPS"
^DD(757.01,2,1,2,1)="D S^LEXNDX1"
^DD(757.01,2,1,2,2)="D K^LEXNDX1"
^DD(757.01,2,1,2,"%D",0)="^^8^8^2950626^^^"
^DD(757.01,2,1,2,"%D",1,0)="^LEX(757.01,""AWRD"",WORD,MC,EXP) - where WORD is a clinical word parsed from the"
^DD(757.01,2,1,2,"%D",2,0)="expression (Major Concepts, Synonym or Lexical Variant), MC is the Internal"
^DD(757.01,2,1,2,"%D",3,0)="Entry Number in the Expression file #757.01 where the Major Concept of the"
^DD(757.01,2,1,2,"%D",4,0)="expression is located, and EXP is the Internal Entry Number in the Expression"
^DD(757.01,2,1,2,"%D",5,0)="file #757.01 where the expression containing the WORD is located.  Only Major"
^DD(757.01,2,1,2,"%D",6,0)="Concepts (M), Synonyms (S) and Lexical Variants (L) are indexed in the word "
^DD(757.01,2,1,2,"%D",7,0)="index (AWRD).  Deleted Major Concepts (DM), Deleted Synonyms (DS) and Deleted "
^DD(757.01,2,1,2,"%D",8,0)="Lexical Variants (DL) are ignored."
^DD(757.01,2,1,2,"DT")="2950626"
^DD(757.01,2,3)=""
^DD(757.01,2,21,0)="^^2^2^2950511^^^^"
^DD(757.01,2,21,1,0)="This is a pointer to the Expression Type file (#757.011).  Examples of"
^DD(757.01,2,21,2,0)="expression types include Major Concepts, Synonyms, Lexical Variants, etc.  "
^DD(757.01,2,"DT")="2950626"
^DD(757.01,3,0)="SCOPE^RSI^D:DIRECTLY LINKED;I:INDIRECTLY LINKED;B:BROADER VIEW;N:NARROWER VIEW;O:OTHER;R:RELATED VIEW;C:CONTROLLED VIEW;^1;3^Q"
^DD(757.01,3,9)="@"
^DD(757.01,3,21,0)="^^6^6^2940506^^"
^DD(757.01,3,21,1,0)="Scope - Demonstrates the relationship of the term to the Major Concept."
^DD(757.01,3,21,2,0)="Major Concepts, Synonyms to Major Concepts and Lexical Variants to a Major"
^DD(757.01,3,21,3,0)="Concept are (D)irectly linked.  Lexical Variants to a Synonym of a Major"
^DD(757.01,3,21,4,0)="Concept are (I)ndirectly linked.  Related concepts are either (B)roader in"
^DD(757.01,3,21,5,0)="scope, (N)arrower in scope, or an (O)ther/undefined view of the Major"
^DD(757.01,3,21,6,0)="Concept."
^DD(757.01,3,"DT")="2940506"
^DD(757.01,4,0)="FORM^RP757.014'I^LEX(757.014,^1;4^Q"
^DD(757.01,4,3)=""
^DD(757.01,4,21,0)="^^4^4^2940902^^^"
^DD(757.01,4,21,1,0)="Pointer to the Expression Form (file 757.014) which describes the lexical "
^DD(757.01,4,21,2,0)="style of an expression.  Major Concepts adopt the general form of ""MAJ"" while"
^DD(757.01,4,21,3,0)="all other expressions describe their forms as they relate to the Major "
^DD(757.01,4,21,4,0)="Concept (i.e., plural, singular, acronym, etc.)"
^DD(757.01,4,"DT")="2931121"
^DD(757.01,5,0)="DISTINGUISHING TEXT^FX^^2;1^K:$A(X)=45 X I $D(X) K:$L(X)>240!($L(X)<2) X"
^DD(757.01,5,1,0)="^.1^^0"
^DD(757.01,5,1,1,0)="757.01^AORIG^MUMPS"
^DD(757.01,5,1,1,1)="S ^GMP(757.01,""AORIG"",$E($$UP^XLFSTR(X),1,63),DA)="""""
^DD(757.01,5,1,1,2)="K ^GMP(757.01,""AORIG"",$E($$UP^XLFSTR(X),1,63),DA)"
^DD(757.01,5,1,1,"%D",0)="^^5^5^2940902^^^^"
^DD(757.01,5,1,1,"%D",1,0)="^GMP(757.01,""AORIG"",OT,IEN) - where OT is the Original Text exported with the"
^DD(757.01,5,1,1,"%D",2,0)="Clinical Lexicon and IEN is the Internal Entry Number in the Expression file"
^DD(757.01,5,1,1,"%D",3,0)="#757.01 where the Original Text is located.  This is set only when the display"
^DD(757.01,5,1,1,"%D",4,0)="text (field .01) has been altered and is used during Clinical Lexicon "
^DD(757.01,5,1,1,"%D",5,0)="maintenance only."
^DD(757.01,5,1,1,"DT")="2940302"
^DD(757.01,5,3)="Original Text must be 2-240 characters in length."
^DD(757.01,5,21,0)="^^2^2^2950313^^^^"
^DD(757.01,5,21,1,0)="This is the text or portion of text that distinguishes this expression from"
^DD(757.01,5,21,2,0)="the Major Concept.  (null if the expression is the Major Concept)"
^DD(757.01,5,"DT")="2970704"
^DD(757.01,6,0)="DEFINITION^757.016^^3;0"
^DD(757.01,6,21,0)="^^1^1^2960812^^"
^DD(757.01,6,21,1,0)="Definition of an expression when available."
^DD(757.01,7,0)="NEGATION^757.17^^4;0"
^DD(757.01,7,21,0)="^^4^4^2940904^^^"
^DD(757.01,7,21,1,0)="This field contains words which are negated within the expression, i.e, "
^DD(757.01,7,21,2,0)="without mention of ""complication"", except ""thumb"", and other than an "
^DD(757.01,7,21,3,0)="""open wound"".  These type of negations will not be indexed in the word "
^DD(757.01,7,21,4,0)="index, preventing erroneous search results."
^DD(757.01,8,0)="SUPPLEMENTAL^757.18^^5;0"
^DD(757.01,8,21,0)="^^2^2^2940904^^"
^DD(757.01,8,21,1,0)="Supplemental words (not found in the expression) which should be indexed"
^DD(757.01,8,21,2,0)="to assist in look-up operations."
^DD(757.01,9,0)="DEACTIVATION FLAG^S^1:DEACTIVATED;0:ACTIVE;^1;5^Q"
^DD(757.01,9,1,0)="^.1"
^DD(757.01,9,1,1,0)="757.01^ADC^MUMPS"
^DD(757.01,9,1,1,1)="S:X=1 ^LEX(757.01,""ADC"",X,DA)="""""
^DD(757.01,9,1,1,2)="K ^LEX(757.01,""ADC"",X,DA)"
^DD(757.01,9,1,1,"%D",0)="^^3^3^2950410^"
^DD(757.01,9,1,1,"%D",1,0)="^LEX(757.01,""ADC"",1,IEN) - This is an index of all deactivated terms in the"
^DD(757.01,9,1,1,"%D",2,0)="Expression file where IEN is the Internal Entry Number in the Expression file"
^DD(757.01,9,1,1,"%D",3,0)="(757.01) where the deactivated term is located."
^DD(757.01,9,1,1,"DT")="2950410"
^DD(757.01,9,1,2,0)="757.01^ADTERM^MUMPS"
^DD(757.01,9,1,2,1)="S:X=1 ^LEX(757.01,""ADTERM"",($E($P($G(^LEX(757.01,DA,0)),U,1),1,63)),DA)="""""
^DD(757.01,9,1,2,2)="K ^LEX(757.01,""ADTERM"",($E($P($G(^LEX(757.01,DA,0)),U,1),1,63)),DA)"
^DD(757.01,9,1,2,"%D",0)="^^3^3^2970702^"
^DD(757.01,9,1,2,"%D",1,0)="^LEX(757.01,""ADTERM"",DT,IEN) - Where DT is a deactivated term and IEN is the"
^DD(757.01,9,1,2,"%D",2,0)="internal entry number in the Expressions file #757.01 where the deactivated"
^DD(757.01,9,1,2,"%D",3,0)="term is located."
^DD(757.01,9,1,2,"DT")="2970702"
^DD(757.01,9,21,0)="^^2^2^2970704^^^"
^DD(757.01,9,21,1,0)="This field indicates that a term formerly in use by the Lexicon has"
^DD(757.01,9,21,2,0)="been deactivated and should not be used in lookups or displays."
^DD(757.01,9,"DT")="2970704"
^DD(757.01,10,0)="MODIFIER FLAG^NJ10,0^^1;6^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.01,10,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(757.01,10,21,0)="^^3^3^2970701^"
^DD(757.01,10,21,1,0)="Number of terms that are further specified by appending a modifier (at the"
^DD(757.01,10,21,2,0)="begining of the display text) or specifier (at the end of the display text) of"
^DD(757.01,10,21,3,0)="the major concept.  Only major concepts have modifiers/specifiers."
^DD(757.01,10,"DT")="2970701"
^DD(757.01,11,0)="MODIFIER TYPE^S^0:UNMODIFIED;1:MODIFIER (BEGINING OF TEXT);2:SPECIFIER (ENDING OF TEXT);^1;7^Q"
^DD(757.01,11,21,0)="^^2^2^2970701^"
^DD(757.01,11,21,1,0)="Flag indicated where the modifier is to be placed 1) at the begining of the"
^DD(757.01,11,21,2,0)="display text and 2) at the end of the display text."
^DD(757.01,11,"DT")="2970701"
^DD(757.01,12,0)="DESCENDANT FLAG^NJ10,0^^1;8^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.01,12,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(757.01,12,21,0)="^^2^2^2970701^^"
^DD(757.01,12,21,1,0)="Number of terms that are considered descendant form the major concept.  Only"
^DD(757.01,12,21,2,0)="major concepts have descendants."
^DD(757.01,12,"DT")="2970701"
^DD(757.01,13,0)="PARENT^P757.01'^LEX(757.01,^1;9^Q"
^DD(757.01,13,1,0)="^.1"
^DD(757.01,13,1,1,0)="757.01^APAR"
^DD(757.01,13,1,1,1)="S ^LEX(757.01,""APAR"",$E(X,1,30),DA)="""""
^DD(757.01,13,1,1,2)="K ^LEX(757.01,""APAR"",$E(X,1,30),DA)"
^DD(757.01,13,1,1,"%D",0)="^^4^4^2970703^"
^DD(757.01,13,1,1,"%D",1,0)="^LEX(757.01,""APAR"",PAR,IEN) - Where PAR is the internal entry number in the"
^DD(757.01,13,1,1,"%D",2,0)="Expression file #757.01 where the parent term is located and IEN is the"
^DD(757.01,13,1,1,"%D",3,0)="internal entry number in the Expression file #757.01 where the child/modifier"
^DD(757.01,13,1,1,"%D",4,0)="is located."
^DD(757.01,13,1,1,"DT")="2970703"
^DD(757.01,13,3)=""
^DD(757.01,13,21,0)="^^2^2^2970710^^"
^DD(757.01,13,21,1,0)="This is the internal entry number in the Expression file #757.01 where the"
^DD(757.01,13,21,2,0)="parent of a descendant term is located.  Only descendant terms have parents."
^DD(757.01,13,"DT")="2970710"
^DD(757.01,14,0)="ORDER^NJ10,0^^1;10^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.01,14,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(757.01,14,21,0)="^^3^3^2970702^^^"
^DD(757.01,14,21,1,0)="From time to time it is necessary to provide a specific order (sequence) for"
^DD(757.01,14,21,2,0)="modifiers and descendant terms (i.e., a list of modifiers/descendants in a "
^DD(757.01,14,21,3,0)="GUI list box).  This field is used to provide the list sequence number."
^DD(757.01,14,"DT")="2970701"
^DD(757.01,15,0)="SOURCE CATEGORY^P757.13'^LEX(757.13,^1;11^Q"
^DD(757.01,15,21,0)="^^3^3^2971010^"
^DD(757.01,15,21,1,0)="This field indicates the ""source"" provided category for a term.  It"
^DD(757.01,15,21,2,0)="can be used to group terms or to locate descendant or ancestral term"
^DD(757.01,15,21,3,0)="within the source vocabulary."
^DD(757.01,15,"DT")="2971010"
^DD(757.01,16,0)="SOURCE^P757.14'^LEX(757.14,^1;12^Q"
^DD(757.01,16,21,0)="^^3^3^2971010^^"
^DD(757.01,16,21,1,0)="This indicates the source volcabulary (and source file) for the volcabulary."
^DD(757.01,16,21,2,0)="This field is used primarily in filtering (screen) the search and for"
^DD(757.01,16,21,3,0)="Lexicon Maintenance."
^DD(757.01,16,"DT")="2971010"
^DD(757.01,"B","DEACTIVATION FLAG",9)=""
^DD(757.01,"B","DEFINITION",6)=""
^DD(757.01,"B","DESCENDANT FLAG",12)=""
^DD(757.01,"B","DISPLAYABLE TEXT",.01)=""
^DD(757.01,"B","DISTINGUISHING TEXT",5)=""
^DD(757.01,"B","FORM",4)=""
^DD(757.01,"B","MAJOR CONCEPT",1)=""
^DD(757.01,"B","MODIFIER FLAG",10)=""
^DD(757.01,"B","MODIFIER TYPE",11)=""
^DD(757.01,"B","NEGATION",7)=""
^DD(757.01,"B","ORDER",14)=""
^DD(757.01,"B","PARENT",13)=""
^DD(757.01,"B","SCOPE",3)=""
^DD(757.01,"B","SOURCE",16)=""
^DD(757.01,"B","SOURCE CATEGORY",15)=""
^DD(757.01,"B","SUPPLEMENTAL",8)=""
^DD(757.01,"B","TYPE",2)=""
^DD(757.01,"GL",0,1,.01)=""
^DD(757.01,"GL",1,1,1)=""
^DD(757.01,"GL",1,2,2)=""
^DD(757.01,"GL",1,3,3)=""
^DD(757.01,"GL",1,4,4)=""
^DD(757.01,"GL",1,5,9)=""
^DD(757.01,"GL",1,6,10)=""
^DD(757.01,"GL",1,7,11)=""
^DD(757.01,"GL",1,8,12)=""
^DD(757.01,"GL",1,9,13)=""
^DD(757.01,"GL",1,10,14)=""
^DD(757.01,"GL",1,11,15)=""
^DD(757.01,"GL",1,12,16)=""
^DD(757.01,"GL",2,1,5)=""
^DD(757.01,"GL",3,0,6)=""
^DD(757.01,"GL",4,0,7)=""
^DD(757.01,"GL",5,0,8)=""
^DD(757.01,"IX",.01)=""
^DD(757.01,"IX",1)=""
^DD(757.01,"IX",2)=""
^DD(757.01,"IX",5)=""
^DD(757.01,"IX",9)=""
^DD(757.01,"IX",13)=""
^DD(757.01,"RQ",.01)=""
^DD(757.01,"RQ",1)=""
^DD(757.01,"RQ",2)=""
^DD(757.01,"RQ",3)=""
^DD(757.01,"RQ",4)=""
^DD(757.01,"SB",757.016,6)=""
^DD(757.01,"SB",757.17,7)=""
^DD(757.01,"SB",757.18,8)=""
^DD(757.011,0)="FIELD^^2^3"
^DD(757.011,0,"DDA")="N"
^DD(757.011,0,"DT")="2970628"
^DD(757.011,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(757.011,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(757.011,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(757.011,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(757.011,0,"IX","B",757.011,.01)=""
^DD(757.011,0,"IX","C",757.011,.01)=""
^DD(757.011,0,"NM","EXPRESSION TYPE")=""
^DD(757.011,0,"PT",757.01,2)=""
^DD(757.011,0,"VR")="2.0"
^DD(757.011,0,"VRPK")="LEX"
^DD(757.011,0,"VRRV")="3^2971015"
^DD(757.011,.01,0)="TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(757.011,.01,1,0)="^.1"
^DD(757.011,.01,1,1,0)="757.011^B"
^DD(757.011,.01,1,1,1)="S ^LEX(757.011,""B"",$E(X,1,30),DA)="""""
^DD(757.011,.01,1,1,2)="K ^LEX(757.011,""B"",$E(X,1,30),DA)"
^DD(757.011,.01,1,1,"%D",0)="^^3^3^2950420^"
^DD(757.011,.01,1,1,"%D",1,0)="^LEX(757.011,""B"",TYPE,IEN) - Where TYPE is a descriptive name for a type of"
^DD(757.011,.01,1,1,"%D",2,0)="expression in the Expression file (757.01) and IEN is the Internal Entry Number"
^DD(757.011,.01,1,1,"%D",3,0)="where the descriptive name is located in the Expression Type file (757.011)."
^DD(757.011,.01,1,2,0)="757.011^C^MUMPS"
^DD(757.011,.01,1,2,1)="S ^LEX(757.011,""C"",$$UP^XLFSTR($E(X,1,30)),DA)="""""
^DD(757.011,.01,1,2,2)="K ^LEX(757.011,""C"",$$UP^XLFSTR($E(X,1,30)),DA)"
^DD(757.011,.01,1,2,"%D",0)="^^3^3^2950426^"
^DD(757.011,.01,1,2,"%D",1,0)="^LEX(757.011,""C"",UPPER,IEN) - This is an uppercase version of the B index where"
^DD(757.011,.01,1,2,"%D",2,0)="UPPER is the Type of Expression and IEN is the Internal Entry Number in the"
^DD(757.011,.01,1,2,"%D",3,0)="Expression Type file (757.011) where the Type is located."
^DD(757.011,.01,1,2,"DT")="2950426"
^DD(757.011,.01,3)="Type must be 3-30 characters in length."
^DD(757.011,.01,21,0)="^^2^2^2950420^"
^DD(757.011,.01,21,1,0)="This is a table of the types of expressions found in the Expression file"
^DD(757.011,.01,21,2,0)="(#757.01)."
^DD(757.011,.01,"DT")="2950426"
^DD(757.011,1,0)="WORD INDEX^RS^1:INDEX;0:DO NOT INDEX;^0;2^Q"
^DD(757.011,1,21,0)="^^2^2^2970628^^"
^DD(757.011,1,21,1,0)="This field tells the indexing routines which types of terms are to be indexed"
^DD(757.011,1,21,2,0)="in the master word index."
^DD(757.011,1,"DT")="2950426"
^DD(757.011,2,0)="STANDARD INDEXES^S^1:INDEX;0:DO NOT INDEX;^0;3^Q"
^DD(757.011,2,21,0)="^^2^2^2970628^"
^DD(757.011,2,21,1,0)="This field tells the indexing routines which type of terms are to be indexed"
^DD(757.011,2,21,2,0)="(indexes other than the master word index)."
^DD(757.011,2,"DT")="2970628"
^DD(757.011,"B","STANDARD INDEXES",2)=""
^DD(757.011,"B","TYPE",.01)=""
^DD(757.011,"B","WORD INDEX",1)=""
^DD(757.011,"GL",0,1,.01)=""
^DD(757.011,"GL",0,2,1)=""
^DD(757.011,"GL",0,3,2)=""
^DD(757.011,"IX",.01)=""
^DD(757.011,"RQ",.01)=""
^DD(757.011,"RQ",1)=""
^DD(757.014,0)="FIELD^^1^2"
^DD(757.014,0,"DDA")="N"
^DD(757.014,0,"DT")="2931121"
^DD(757.014,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(757.014,0,"IX","B",757.014,.01)=""
^DD(757.014,0,"NM","EXPRESSION FORM")=""
^DD(757.014,0,"PT",757.01,4)=""
^DD(757.014,0,"VR")="2.0"
^DD(757.014,0,"VRPK")="LEX"
^DD(757.014,0,"VRRV")="3^2971015"
^DD(757.014,.01,0)="MNEMONIC^RFXI^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(757.014,.01,1,0)="^.1"
^DD(757.014,.01,1,1,0)="757.014^B"
^DD(757.014,.01,1,1,1)="S ^LEX(757.014,""B"",$E(X,1,30),DA)="""""
^DD(757.014,.01,1,1,2)="K ^LEX(757.014,""B"",$E(X,1,30),DA)"
^DD(757.014,.01,1,1,"%D",0)="^^4^4^2940902^"
^DD(757.014,.01,1,1,"%D",1,0)="^LEX(757.014,""B"",MNEM,IEN) - where MNEM is the Mnemonic for the expression form"
^DD(757.014,.01,1,1,"%D",2,0)="(i.e., ACR Acronym, ABR Abbreviation, etc.) and IEN is the Internal Entry"
^DD(757.014,.01,1,1,"%D",3,0)="Number in the Expression Form file #757.014 where the expression form is"
^DD(757.014,.01,1,1,"%D",4,0)="located."
^DD(757.014,.01,3)="Form of Expression (mnemonic) must be 3 characters in length."
^DD(757.014,.01,10)=""
^DD(757.014,.01,21,0)="^^1^1^2960812^^^^"
^DD(757.014,.01,21,1,0)="Three character mnemonic for the form for which the expression takes."
^DD(757.014,.01,"DT")="2931124"
^DD(757.014,1,0)="FORM^F^^0;2^K:$L(X)>100!($L(X)<3) X"
^DD(757.014,1,3)="Form of Expression (descriptive) must be 3-100 characters in length."
^DD(757.014,1,21,0)="^^3^3^2931121^"
^DD(757.014,1,21,1,0)="Describes the lexical style of an expression.  Major Concepts adopt the"
^DD(757.014,1,21,2,0)="general form of ""MAJ"" while all other expressions describe their forms as"
^DD(757.014,1,21,3,0)="they relate to the Major Concept (i.e., Plural, Singular, Acronym, etc,)"
^DD(757.014,1,"DT")="2970701"
^DD(757.014,"B","FORM",1)=""
^DD(757.014,"B","MNEMONIC",.01)=""
^DD(757.014,"GL",0,1,.01)=""
^DD(757.014,"GL",0,2,1)=""
^DD(757.014,"IX",.01)=""
^DD(757.014,"RQ",.01)=""
^DD(757.016,0)="DEFINITION SUB-FIELD^^.01^1"
^DD(757.016,0,"DT")="2930324"
^DD(757.016,0,"NM","DEFINITION")=""
^DD(757.016,0,"UP")="757.01"
^DD(757.016,.01,0)="DEFINITION^W^^0;1^Q"
^DD(757.016,.01,"DT")="2930324"
^DD(757.016,"B","DEFINITION",.01)=""
^DD(757.016,"GL",0,1,.01)=""
^DD(757.02,0)="FIELD^^8^9"
^DD(757.02,0,"DDA")="N"
^DD(757.02,0,"DT")="3050505"
^DD(757.02,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(757.02,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LEX(757.03,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(757.03,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(757.02,0,"ID",4)="W:$P($G(^LEX(757.02,+Y,0)),""^"",5)>0 "" Preferred"""
^DD(757.02,0,"ID",5)="W "" "",$S($P($G(^LEX(757.02,+($G(Y)),4,$O(^LEX(757.02,+($G(Y)),4,""B"",$O(^LEX(757.02,+($G(Y)),4,""B"","" ""),-1),0)),0)),""^"",2)>0:""Active"",1:""Inactive"")"
^DD(757.02,0,"ID",6)="W:$P($G(^LEX(757.02,+Y,0)),""^"",7)>0 "" Primary"""
^DD(757.02,0,"IX","ACODE",757.02,1)=""
^DD(757.02,0,"IX","ACT1",757.02,1)=""
^DD(757.02,0,"IX","ACT2",757.28,.01)=""
^DD(757.02,0,"IX","ACT3",757.28,1)=""
^DD(757.02,0,"IX","ADC",757.02,5)=""
^DD(757.02,0,"IX","ADCODE",757.02,5)=""
^DD(757.02,0,"IX","AMC",757.02,3)=""
^DD(757.02,0,"IX","APCODE1",757.02,1)=""
^DD(757.02,0,"IX","APCODE2",757.02,4)=""
^DD(757.02,0,"IX","ASRC",757.02,2)=""
^DD(757.02,0,"IX","AVA",757.02,2)=""
^DD(757.02,0,"IX","B",757.02,.01)=""
^DD(757.02,0,"IX","CODE",757.02,1)=""
^DD(757.02,0,"NM","CODES")=" "
^DD(757.02,0,"PK")="LEX"
^DD(757.02,0,"VR")="2.0"
^DD(757.02,0,"VRPK")="LEX"
^DD(757.02,0,"VRRV")="56^3080401"
^DD(757.02,.01,0)="EXPRESSION^RP757.01'I^LEX(757.01,^0;1^Q"
^DD(757.02,.01,1,0)="^.1"
^DD(757.02,.01,1,1,0)="757.02^B"
^DD(757.02,.01,1,1,1)="S ^LEX(757.02,""B"",$E(X,1,30),DA)="""""
^DD(757.02,.01,1,1,2)="K ^LEX(757.02,""B"",$E(X,1,30),DA)"
^DD(757.02,.01,1,1,"%D",0)="^^5^5^2940902^^"
^DD(757.02,.01,1,1,"%D",1,0)="^LEX(757.02,""B"",EXP,IEN) - where EXP is a pointer to the expression in the"
^DD(757.02,.01,1,1,"%D",2,0)="Expression file (#757.01) which has been assigned a classification code and "
^DD(757.02,.01,1,1,"%D",3,0)="IEN is the Internal Entry Number in the Codes file (#757.02) where this"
^DD(757.02,.01,1,1,"%D",4,0)="expression is located.  This index is used to retrieve all codes associated"
^DD(757.02,.01,1,1,"%D",5,0)="with an expression."
^DD(757.02,.01,3)=" "
^DD(757.02,.01,21,0)="^^5^5^2981006^^^^"
^DD(757.02,.01,21,1,0)="Pointer to the expression in the Expression file #757.01 to which a"
^DD(757.02,.01,21,2,0)="classification code (i.e., ICD, CPT, DSM code) has been assigned.  This "
^DD(757.02,.01,21,3,0)="pointer links the code to an expression.  This expression can be a Major "
^DD(757.02,.01,21,4,0)="Concept, a Synonym or a Lexical Variant of either the Major Concept or the"
^DD(757.02,.01,21,5,0)="Synonym."
^DD(757.02,.01,"DT")="2931124"
^DD(757.02,1,0)="CODE^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(757.02,1,1,0)="^.1"
^DD(757.02,1,1,1,0)="757.02^ACODE^MUMPS"
^DD(757.02,1,1,1,1)="Q:+$P($G(^LEX(757.02,DA,0)),U,6)  S ^LEX(757.02,""ACODE"",X_"" "",DA)="""""
^DD(757.02,1,1,1,2)="K ^LEX(757.02,""ACODE"",X_"" "",DA)"
^DD(757.02,1,1,1,"%D",0)="^.101^4^4^3030321^^^^"
^DD(757.02,1,1,1,"%D",1,0)="^LEX(757.02,""ACODE"",CODE,IEN) - where CODE is a Classification Code (i.e., ICD"
^DD(757.02,1,1,1,"%D",2,0)="code, CPT code, DSM code, etc) and IEN is the Internal Entry Number in the"
^DD(757.02,1,1,1,"%D",3,0)="Codes file (#757.02) where this code is located.  This is an index of all "
^DD(757.02,1,1,1,"%D",4,0)="active codes contained in this file."
^DD(757.02,1,1,1,"DT")="3030321"
^DD(757.02,1,1,2,0)="757.02^ACT1^MUMPS"
^DD(757.02,1,1,2,1)="D SAHC^LEXNDX8"
^DD(757.02,1,1,2,2)="D KAHC^LEXNDX8"
^DD(757.02,1,1,2,"%D",0)="^^6^6^3030310^"
^DD(757.02,1,1,2,"%D",1,0)="^LEX(757.02,""ACT"",CODE,STA,DATE,IEN,HIS) - Where CODE is the"
^DD(757.02,1,1,2,"%D",2,0)="classification code, STA is the status (either 1 for active"
^DD(757.02,1,1,2,"%D",3,0)="or 0 for inactive), DATE is the date the code was activated"
^DD(757.02,1,1,2,"%D",4,0)="or inactivated, IEN is the internal entry number in "
^DD(757.02,1,1,2,"%D",5,0)="the CODES file, and HIS is the entry number of the Activation "
^DD(757.02,1,1,2,"%D",6,0)="Status multiple where this historical entry may be found."
^DD(757.02,1,1,2,"DT")="3030310"
^DD(757.02,1,1,3,0)="757.02^CODE^MUMPS"
^DD(757.02,1,1,3,1)="S ^LEX(757.02,""CODE"",X_"" "",DA)="""""
^DD(757.02,1,1,3,2)="K ^LEX(757.02,""CODE"",X_"" "",DA)"
^DD(757.02,1,1,3,"%D",0)="^^4^4^3030320^"
^DD(757.02,1,1,3,"%D",1,0)="^LEX(757.02,""CODE"",CODE,IEN) - Where CODE is a classification code (i.e."
^DD(757.02,1,1,3,"%D",2,0)="ICD code, CPT code, DSM code, etc) and IEN is the Internal Entry Number"
^DD(757.02,1,1,3,"%D",3,0)="in the codes file (#757.02) where this code is located. This is an index "
^DD(757.02,1,1,3,"%D",4,0)="of all codes contained in this file."
^DD(757.02,1,1,3,"DT")="3030320"
^DD(757.02,1,1,4,0)="757.02^APCODE1^MUMPS"
^DD(757.02,1,1,4,1)="S:$L(X)&(+$P(^LEX(757.02,+DA,0),""^"",5)>0) ^LEX(757.02,""APCODE"",(X_"" ""),+DA)="""""
^DD(757.02,1,1,4,2)="K:$L(X)&(+$P(^LEX(757.02,+DA,0),""^"",5)>0) ^LEX(757.02,""APCODE"",(X_"" ""),+DA)"
^DD(757.02,1,1,4,"%D",0)="^^3^3^3030321^"
^DD(757.02,1,1,4,"%D",1,0)="^LEX(757.02,""APCODE"",(CODE_"" ""),IEN) - Where CODE is a classification "
^DD(757.02,1,1,4,"%D",2,0)="code and IEN is the internal entry number where the record pointing to "
^DD(757.02,1,1,4,"%D",3,0)="the preferred term for the code is stored in file 757.02."
^DD(757.02,1,1,4,"DT")="3030321"
^DD(757.02,1,3)="Answer must be 1-40 characters in length."
^DD(757.02,1,21,0)="^^2^2^2960812^^^"
^DD(757.02,1,21,1,0)="Classification Code as described by a controlled vocabulary (i.e., ICD, "
^DD(757.02,1,21,2,0)="CPT, etc)."
^DD(757.02,1,"DT")="3030321"
^DD(757.02,2,0)="CLASSIFICATION SOURCE^RP757.03'^LEX(757.03,^0;3^Q"
^DD(757.02,2,1,0)="^.1"
^DD(757.02,2,1,1,0)="757.02^ASRC^MUMPS"
^DD(757.02,2,1,1,1)="S ^LEX(757.02,""ASRC"",$E(^LEX(757.03,X,0),1,3),DA)="""""
^DD(757.02,2,1,1,2)="K ^LEX(757.02,""ASRC"",$E(^LEX(757.03,X,0),1,3),DA)"
^DD(757.02,2,1,1,"%D",0)="2^^5^5^2940902^"
^DD(757.02,2,1,1,"%D",1,0)="^LEX(757.02,""ASRC"",SAB,IEN) - where SAB is the three chracter mnemonic of the "
^DD(757.02,2,1,1,"%D",2,0)="Source Abbreviation (i.e., ICD, CPT, etc) from the Coding Systems file #757.03"
^DD(757.02,2,1,1,"%D",3,0)="and IEN is the Internal Entry Number where this type of code can be located."
^DD(757.02,2,1,1,"%D",4,0)="This index is used extensively in filtering searches by type of code and used"
^DD(757.02,2,1,1,"%D",5,0)="to determin the type of code selected."
^DD(757.02,2,1,1,"DT")="2930325"
^DD(757.02,2,1,2,0)="757.02^AVA^MUMPS"
^DD(757.02,2,1,2,1)="N SAB S SAB=$E(^LEX(757.03,X,0),1,3) S:""^ICD^10D^ICP^10P^CPT^CPC^DS4^NAN^HHC^NIC^SNM^SM3^OMA^SCC^""[SAB ^LEX(757.02,""AVA"",($P(^LEX(757.02,DA,0),U,2)_"" ""),$P(^LEX(757.02,DA,0),U),SAB,DA)="""""
^DD(757.02,2,1,2,2)="S SAB=$E(^LEX(757.03,X,0),1,3) K ^LEX(757.02,""AVA"",($P(^LEX(757.02,DA,0),U,2)_"" ""),$P(^LEX(757.02,DA,0),U),SAB,DA),SAB"
^DD(757.02,2,1,2,"%D",0)="^.101^6^6^3031015^^^^"
^DD(757.02,2,1,2,"%D",1,0)="^LEX(757.02,""AVA"",CODE,SAB,IEN) - where CODE is the Classification Code from"
^DD(757.02,2,1,2,"%D",2,0)="field 1, SAB is the three character mnemonic for the source abbreviation in the"
^DD(757.02,2,1,2,"%D",3,0)="Coding Systems file #757.03 (i.e., ICD, CPT, etc) and IEN is the Internal Entry"
^DD(757.02,2,1,2,"%D",4,0)="Number in the Codes file #757.02 where the code is located.  This is an index"
^DD(757.02,2,1,2,"%D",5,0)="of only those codes frequently used by the VA (Source Abbreviation SAB is ICD, "
^DD(757.02,2,1,2,"%D",6,0)="CPT, DSM, NAN, NIC, OMA, or SNM)."
^DD(757.02,2,1,2,"DT")="3031015"
^DD(757.02,2,21,0)="^^2^2^2940902^^"
^DD(757.02,2,21,1,0)="Pointer to the classification system (ICD/CPT/DSM etc) described in the"
^DD(757.02,2,21,2,0)="Coding Systems file (#757.03) from which the code (field 1) is derived."
^DD(757.02,2,"DT")="3031015"
^DD(757.02,3,0)="MAJOR CONCEPT^RP757'I^LEX(757,^0;4^Q"
^DD(757.02,3,1,0)="^.1"
^DD(757.02,3,1,1,0)="757.02^AMC"
^DD(757.02,3,1,1,1)="S ^LEX(757.02,""AMC"",$E(X,1,30),DA)="""""
^DD(757.02,3,1,1,2)="K ^LEX(757.02,""AMC"",$E(X,1,30),DA)"
^DD(757.02,3,1,1,"%D",0)="^^4^4^2940902^^"
^DD(757.02,3,1,1,"%D",1,0)="^LEX(757.02,""AMC"",MC,IEN) - where MC is a pointer to the Major Concept Map file"
^DD(757.02,3,1,1,"%D",2,0)="#757 and IEN is the Internal Entry Number of the Codes file #757.03 where this"
^DD(757.02,3,1,1,"%D",3,0)="Major Concept pointer is located.  Used to retrieve all codes associated with"
^DD(757.02,3,1,1,"%D",4,0)="a Major Concept."
^DD(757.02,3,1,1,"DT")="2930325"
^DD(757.02,3,21,0)="^^4^4^2940902^^^"
^DD(757.02,3,21,1,0)="Pointer the the Major Concept in the Major Concept Map file #757 to which a"
^DD(757.02,3,21,2,0)="classification code (i.e., ICD, CPT, DSM code) has been assigned.  This pointer"
^DD(757.02,3,21,3,0)="links the code to the Major Concept of the expression defined in the .01 field"
^DD(757.02,3,21,4,0)="(Expression)."
^DD(757.02,3,"DT")="2931124"
^DD(757.02,4,0)="PREFERENCE FLAG^S^1:PREFERRED TERM;0:OTHER THAN PREFERRED TERM;^0;5^Q"
^DD(757.02,4,1,0)="^.1"
^DD(757.02,4,1,1,0)="757.02^APCODE2^MUMPS"
^DD(757.02,4,1,1,1)="S:+X>0&($L($P($G(^LEX(757.02,+DA,0)),U,2))) ^LEX(757.02,""APCODE"",($P($G(^LEX(757.02,+DA,0)),U,2)_"" ""),+DA)="""""
^DD(757.02,4,1,1,2)="K:$L($P($G(^LEX(757.02,+DA,0)),U,2)) ^LEX(757.02,""APCODE"",($P($G(^LEX(757.02,+DA,0)),U,2)_"" ""),+DA)"
^DD(757.02,4,1,1,"%D",0)="^.101^3^3^3030321^^^^"
^DD(757.02,4,1,1,"%D",1,0)="^LEX(757.02,""APCODE"",(CODE_"" ""),IEN) - Where CODE is a classification "
^DD(757.02,4,1,1,"%D",2,0)="code and IEN is the internal entry number where the record pointing to "
^DD(757.02,4,1,1,"%D",3,0)="the preferred term for the code is stored in file 757.02."
^DD(757.02,4,1,1,"DT")="3030321"
^DD(757.02,4,21,0)="^^4^4^2940902^^"
^DD(757.02,4,21,1,0)="Some codes within a coding system are linked to multiple terms.  This flag"
^DD(757.02,4,21,2,0)="indicates the preferred term of a code (within a classification system),"
^DD(757.02,4,21,3,0)="providing a one-to-one relationship between codes and terms.  This field is "
^DD(757.02,4,21,4,0)="only populated when a code is linked to multiple terms."
^DD(757.02,4,"DT")="3030321"
^DD(757.02,5,0)="DEACTIVATION FLAG^S^1:DEACTIVATED CODE;^0;6^Q"
^DD(757.02,5,1,0)="^.1"
^DD(757.02,5,1,1,0)="757.02^ADC^MUMPS"
^DD(757.02,5,1,1,1)="S:X=1 ^LEX(757.02,""ADC"",X,DA)="""""
^DD(757.02,5,1,1,2)="K ^LEX(757.02,""ADC"",X,DA)"
^DD(757.02,5,1,1,"%D",0)="^^3^3^2950405^"
^DD(757.02,5,1,1,"%D",1,0)="^LEX(757.02,""ADC"",1,IEN) - This is an index of all deactivated codes in the"
^DD(757.02,5,1,1,"%D",2,0)="code file where IEN is the Internal Entry Number in the CODES file (757.02)"
^DD(757.02,5,1,1,"%D",3,0)="where the deactivated code is located."
^DD(757.02,5,1,1,"DT")="2950405"
^DD(757.02,5,1,2,0)="757.02^ADCODE^MUMPS"
^DD(757.02,5,1,2,1)="S:X=1 ^LEX(757.02,""ADCODE"",($P($G(^LEX(757.02,DA,0)),U,2)_"" ""),DA)="""""
^DD(757.02,5,1,2,2)="K ^LEX(757.02,""ADCODE"",($P($G(^LEX(757.02,DA,0)),U,2)_"" ""),DA)"
^DD(757.02,5,1,2,"%D",0)="^^3^3^2970702^"
^DD(757.02,5,1,2,"%D",1,0)="^LEX(757.02,""ADCODE"",DC,IEN) - Where DC is a deactivated code and IEN is the"
^DD(757.02,5,1,2,"%D",2,0)="internal entry number in the Codes file #757.02 where the deactivated code "
^DD(757.02,5,1,2,"%D",3,0)="is located."
^DD(757.02,5,1,2,"DT")="2970702"
^DD(757.02,5,21,0)="^^2^2^2950410^^"
^DD(757.02,5,21,1,0)="This field indicates that a code formerly in use by the Lexicon has"
^DD(757.02,5,21,2,0)="been deactivated and should not be used in lookups or displays."
^DD(757.02,5,"DT")="2970702"
^DD(757.02,6,0)="PRIMARY FLAG^RS^0:SUPPLEMENTAL CODE;1:PRIMARY CODE;^0;7^Q"
^DD(757.02,6,21,0)="^^4^4^2950823^"
^DD(757.02,6,21,1,0)="If an expression has multiple codes from the same classification system"
^DD(757.02,6,21,2,0)="(i.e., ICD, CPT, etc) then one will be flagged as the primary code and the"
^DD(757.02,6,21,3,0)="others will be flagged as supplemental.  If there is only one code of a"
^DD(757.02,6,21,4,0)="specific classification system then it will be flagged as the primary code."
^DD(757.02,6,"DT")="2950823"
^DD(757.02,8,0)="ACTIVATION STATUS^757.28D^^4;0"
^DD(757.02,13,0)="LEGACY CODE^F^^6;2^K:$L(X)>20!($L(X)<1) X"
^DD(757.02,13,3)="Answer must be 1-20 characters in length"
^DD(757.02,13,21,0)="^^4^4^3060127^"
^DD(757.02,13,21,1,0)="This field stores a code that under a different version of the coding "
^DD(757.02,13,21,2,0)="system represents the same concept as the code in the current coding "
^DD(757.02,13,21,3,0)="system. E.g. SNOMED CT (the current SNOMED code system) code 123456789 "
^DD(757.02,13,21,4,0)="might have a SNOMED 2 (legacy code system) legacy code of F-12345."
^DD(757.02,13,"DT")="3060127"
^DD(757.02,"B","ACTIVATION STATUS",8)=""
^DD(757.02,"B","CLASSIFICATION SOURCE",2)=""
^DD(757.02,"B","CODE",1)=""
^DD(757.02,"B","DEACTIVATION FLAG",5)=""
^DD(757.02,"B","EXPRESSION",.01)=""
^DD(757.02,"B","LEGACY CODE",13)=""
^DD(757.02,"B","MAJOR CONCEPT",3)=""
^DD(757.02,"B","PREFERENCE FLAG",4)=""
^DD(757.02,"B","PRIMARY FLAG",6)=""
^DD(757.02,"GL",0,1,.01)=""
^DD(757.02,"GL",0,2,1)=""
^DD(757.02,"GL",0,3,2)=""
^DD(757.02,"GL",0,4,3)=""
^DD(757.02,"GL",0,5,4)=""
^DD(757.02,"GL",0,6,5)=""
^DD(757.02,"GL",0,7,6)=""
^DD(757.02,"GL",4,0,8)=""
^DD(757.02,"GL",6,2,13)=""
^DD(757.02,"IX",.01)=""
^DD(757.02,"IX",1)=""
^DD(757.02,"IX",2)=""
^DD(757.02,"IX",3)=""
^DD(757.02,"IX",4)=""
^DD(757.02,"IX",5)=""
^DD(757.02,"RQ",.01)=""
^DD(757.02,"RQ",1)=""
^DD(757.02,"RQ",2)=""
^DD(757.02,"RQ",3)=""
^DD(757.02,"RQ",6)=""
^DD(757.02,"SB",757.28,8)=""
^DD(757.03,0)="FIELD^^10^9"
^DD(757.03,0,"DDA")="N"
^DD(757.03,0,"DT")="3061018"
^DD(757.03,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(757.03,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(757.03,0,"IX","ASAB",757.03,.01)=""
^DD(757.03,0,"IX","B",757.03,.01)=""
^DD(757.03,0,"IX","C",757.03,1)=""
^DD(757.03,0,"IX","D",757.03,7)=""
^DD(757.03,0,"NM","CODING SYSTEMS")=""
^DD(757.03,0,"PK")="LEX"
^DD(757.03,0,"PT",757.02,2)=""
^DD(757.03,0,"VR")="2.0"
^DD(757.03,0,"VRPK")="LEX"
^DD(757.03,0,"VRRV")="41^3061001"
^DD(757.03,.01,0)="SOURCE ABBREVIATION^RF^^0;1^K:$L(X)>7!($L(X)<3) X"
^DD(757.03,.01,.1)="SAB"
^DD(757.03,.01,1,0)="^.1"
^DD(757.03,.01,1,1,0)="757.03^B"
^DD(757.03,.01,1,1,1)="S ^LEX(757.03,""B"",$E(X,1,30),DA)="""""
^DD(757.03,.01,1,1,2)="K ^LEX(757.03,""B"",$E(X,1,30),DA)"
^DD(757.03,.01,1,1,"%D",0)="^^3^3^2950922^^"
^DD(757.03,.01,1,1,"%D",1,0)="^LEX(757.03,""B"",SAB,IEN) - where SAB is the Source Abbreviation and IEN is the"
^DD(757.03,.01,1,1,"%D",2,0)="Internal Entry Number in the Coding Systems file #757.03 where the Source is"
^DD(757.03,.01,1,1,"%D",3,0)="located."
^DD(757.03,.01,1,2,0)="757.03^ASAB^MUMPS"
^DD(757.03,.01,1,2,1)="S ^LEX(757.03,""ASAB"",$E(X,1,3),DA)="""""
^DD(757.03,.01,1,2,2)="K ^LEX(757.03,""ASAB"",$E(X,1,3),DA)"
^DD(757.03,.01,1,2,"%D",0)="^^4^4^2960215^"
^DD(757.03,.01,1,2,"%D",1,0)="^LEX(757.03,""ASAB"",SAB,IEN) - where SAB is a three representation of the "
^DD(757.03,.01,1,2,"%D",2,0)="Source Abbreviation as used in the search filter DIC(""S""), and IEN is the"
^DD(757.03,.01,1,2,"%D",3,0)="Internal Entry Number in the Coding Systems file #757.03 where the Source is"
^DD(757.03,.01,1,2,"%D",4,0)="located."
^DD(757.03,.01,1,2,"DT")="2960215"
^DD(757.03,.01,3)="Answer must be 3-7 characters in length."
^DD(757.03,.01,21,0)="^^4^4^2950110^^^^"
^DD(757.03,.01,21,1,0)="Three to six character identifier for the source of the classification"
^DD(757.03,.01,21,2,0)="code located in the Codes file (#757.02).  The normal format is a three"
^DD(757.03,.01,21,3,0)="character mnemonic for the classification source, appended with the year"
^DD(757.03,.01,21,4,0)="of publication of the source (i.e., ICD89)."
^DD(757.03,.01,"DT")="3080128"
^DD(757.03,1,0)="NOMENCLATURE^RF^^0;2^K:$L(X)>11!($L(X)<2) X"
^DD(757.03,1,1,0)="^.1"
^DD(757.03,1,1,1,0)="757.03^C"
^DD(757.03,1,1,1,1)="S ^LEX(757.03,""C"",$E(X,1,30),DA)="""""
^DD(757.03,1,1,1,2)="K ^LEX(757.03,""C"",$E(X,1,30),DA)"
^DD(757.03,1,1,1,"%D",1,0)="^LEX(757.03,""C"",NOM,IEN) - Where NOM is the abbreviated nomenclature for a"
^DD(757.03,1,1,1,"%D",2,0)="specified coding or classification system and IEN is the Internal Entry Number"
^DD(757.03,1,1,1,"%D",3,0)="where the nomenclature is located."
^DD(757.03,1,1,1,"DT")="2950922"
^DD(757.03,1,3)="Answer must be 2-11 characters in length."
^DD(757.03,1,21,0)="^^2^2^2950919^^^^"
^DD(757.03,1,21,1,0)="Short title for the classification source.  This is the name normally used"
^DD(757.03,1,21,2,0)="to refer to the source (i.e., ICD-9, CPT-4, DSM-IIIR, SNOMED etc.)"
^DD(757.03,1,"DT")="2970430"
^DD(757.03,2,0)="SOURCE TITLE^RF^^0;3^K:$L(X)>52!($L(X)<2) X"
^DD(757.03,2,3)="Answer must be 2-52 characters in length."
^DD(757.03,2,21,0)="^^2^2^2950920^^^"
^DD(757.03,2,21,1,0)="Full title of source.  Also includes edition/revision and year of"
^DD(757.03,2,21,2,0)="publication when available."
^DD(757.03,2,"DT")="2950920"
^DD(757.03,3,0)="SOURCE^F^^0;4^K:$L(X)>50!($L(X)<2) X"
^DD(757.03,3,3)="Answer must be 2-50 characters in length."
^DD(757.03,3,21,0)="^^1^1^2950919^"
^DD(757.03,3,21,1,0)="This is source of the named coding system."
^DD(757.03,3,"DT")="2950919"
^DD(757.03,4,0)="ENTRIES^NJ10,0^^0;5^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.03,4,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(757.03,4,21,0)="^^3^3^2950919^"
^DD(757.03,4,21,1,0)="This is the number of coded entries found in the Lexicon (by classification"
^DD(757.03,4,21,2,0)="system) at the time of export.  NOTE:  This does not include deactivated"
^DD(757.03,4,21,3,0)="entries."
^DD(757.03,4,"DT")="2950919"
^DD(757.03,5,0)="UNIQUE ENTRIES^NJ10,0^^0;6^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.03,5,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(757.03,5,21,0)="^^3^3^2950919^"
^DD(757.03,5,21,1,0)="This is the number of unique coded entries found in the Lexicon (by"
^DD(757.03,5,21,2,0)="classification system) at the time of export.  NOTE:  This does not include"
^DD(757.03,5,21,3,0)="deactivated entries."
^DD(757.03,5,"DT")="2950919"
^DD(757.03,6,0)="INACTIVE VERSION^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(757.03,6,3)="Answer must be 1-20 characters in length."
^DD(757.03,6,21,0)="^^2^2^2960415^"
^DD(757.03,6,21,1,0)="This represents the version number of the source file for which inactivated"
^DD(757.03,6,21,2,0)="codes are derived."
^DD(757.03,6,"DT")="2960415"
^DD(757.03,7,0)="HL7 CODING SYSTEM^F^^0;8^K:$L(X)>40!($L(X)<2) X"
^DD(757.03,7,.1)="HL7 CODE SYSTEM"
^DD(757.03,7,1,0)="^.1"
^DD(757.03,7,1,1,0)="757.03^D"
^DD(757.03,7,1,1,1)="S ^LEX(757.03,""D"",$E(X,1,30),DA)="""""
^DD(757.03,7,1,1,2)="K ^LEX(757.03,""D"",$E(X,1,30),DA)"
^DD(757.03,7,1,1,"%D",0)="^^1^1^3020118^"
^DD(757.03,7,1,1,"%D",1,0)="HL7 Coding System cross reference"
^DD(757.03,7,1,1,"DT")="3020118"
^DD(757.03,7,3)="Answer must be 2-40 characters in length"
^DD(757.03,7,21,0)="^^1^1^3020118^"
^DD(757.03,7,21,1,0)="This is the HL7 coding system mnemonic for the Lexicon coding system"
^DD(757.03,7,"DT")="3020118"
^DD(757.03,10,0)="SDO VERSION^757.08D^^1;0"
^DD(757.03,10,21,0)="^^4^4^3061018^^^"
^DD(757.03,10,21,1,0)="This multiple stores the Standards Development Organization's (SDO) "
^DD(757.03,10,21,2,0)="nomenclature that identifies the versions of their code systems and their"
^DD(757.03,10,21,3,0)="associated dates. This information will be essential to applications that"
^DD(757.03,10,21,4,0)="share code systems data with external agencies."
^DD(757.03,10,"DT")="3061018"
^DD(757.03,"B","ENTRIES",4)=""
^DD(757.03,"B","HL7 CODE SYSTEM",7)="1"
^DD(757.03,"B","HL7 CODING SYSTEM",7)=""
^DD(757.03,"B","INACTIVE VERSION",6)=""
^DD(757.03,"B","NOMENCLATURE",1)=""
^DD(757.03,"B","SAB",.01)="1"
^DD(757.03,"B","SDO VERSION",10)=""
^DD(757.03,"B","SOURCE",3)=""
^DD(757.03,"B","SOURCE ABBREVIATION",.01)=""
^DD(757.03,"B","SOURCE TITLE",2)=""
^DD(757.03,"B","UNIQUE ENTRIES",5)=""
^DD(757.03,"GL",0,1,.01)=""
^DD(757.03,"GL",0,2,1)=""
^DD(757.03,"GL",0,3,2)=""
^DD(757.03,"GL",0,4,3)=""
^DD(757.03,"GL",0,5,4)=""
^DD(757.03,"GL",0,6,5)=""
^DD(757.03,"GL",0,7,6)=""
^DD(757.03,"GL",0,8,7)=""
^DD(757.03,"GL",1,0,10)=""
^DD(757.03,"IX",.01)=""
^DD(757.03,"IX",1)=""
^DD(757.03,"IX",7)=""
^DD(757.03,"RQ",.01)=""
^DD(757.03,"RQ",1)=""
^DD(757.03,"RQ",2)=""
^DD(757.03,"SB",757.08,10)=""
^DD(757.04,0)="FIELD^^1^2"
^DD(757.04,0,"DDA")="N"
^DD(757.04,0,"IX","AB",757.04,.01)=""
^DD(757.04,0,"IX","ACTION",757.04,1)=""
^DD(757.04,0,"IX","B",757.04,.01)=""
^DD(757.04,0,"NM","EXCLUDED WORDS")=""
^DD(757.04,0,"VR")="2.0"
^DD(757.04,0,"VRPK")="LEXICON UTILITY"
^DD(757.04,.01,0)="WORD^RFXI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1)!'(X?1U.UPN) X D EXC^LEXERI"
^DD(757.04,.01,1,0)="^.1"
^DD(757.04,.01,1,1,0)="757.04^B"
^DD(757.04,.01,1,1,1)="S ^LEX(757.04,""B"",$E(X,1,30),DA)="""""
^DD(757.04,.01,1,1,2)="K ^LEX(757.04,""B"",$E(X,1,30),DA)"
^DD(757.04,.01,1,1,"%D",0)="^^3^3^2940902^^"
^DD(757.04,.01,1,1,"%D",1,0)="^LEX(757.04,""B"",WORD,IEN) - where WORD is the word to be excluded from either"
^DD(757.04,.01,1,1,"%D",2,0)="indexing, lookup or both indexing and lookup, and IEN is the Internal Entry"
^DD(757.04,.01,1,1,"%D",3,0)="Number in the Excluded Word file #757.04 where the word is located."
^DD(757.04,.01,1,2,0)="757.04^AB^MUMPS"
^DD(757.04,.01,1,2,1)="S ^LEX(757.04,""AB"",$E(X,1,40),DA)="""""
^DD(757.04,.01,1,2,2)="K ^LEX(757.04,""AB"",$E(X,1,40),DA)"
^DD(757.04,.01,1,2,"%D",0)="^^5^5^2940902^^^"
^DD(757.04,.01,1,2,"%D",1,0)="^LEX(757.04,""AB"",WORD,IEN) - where WORD is the word to be excluded from either"
^DD(757.04,.01,1,2,"%D",2,0)="indexing, lookup or both indexing and lookup, and IEN is the Internal Entry"
^DD(757.04,.01,1,2,"%D",3,0)="Number in the Excluded Word file #757.04 where the word is located.  This is"
^DD(757.04,.01,1,2,"%D",4,0)="similar to the ""B"" index, but has been extended to 40 characters (Word field"
^DD(757.04,.01,1,2,"%D",5,0)=".01 length) to speed word parsing, indexing and lookup routines."
^DD(757.04,.01,1,2,"DT")="2930520"
^DD(757.04,.01,3)="Excluded Word, 1-40 long, and not in Replacement Word file (757.05)."
^DD(757.04,.01,21,0)="^^3^3^2960812^^^^"
^DD(757.04,.01,21,1,0)="The words contained in this field will be excluded from indexing or from"
^DD(757.04,.01,21,2,0)="the user's input prior to invoking the look-up utility, depending on the"
^DD(757.04,.01,21,3,0)="action indicated."
^DD(757.04,.01,"DT")="2950803"
^DD(757.04,1,0)="EXCLUDE FROM^RSI^I:EXCLUDE FROM INDEXING ONLY;L:EXCLUDE FROM LOOKUP ONLY;B:EXCLUDE FROM BOTH INDEXING AND LOOKUP;^0;2^Q"
^DD(757.04,1,1,0)="^.1"
^DD(757.04,1,1,1,0)="757.04^ACTION^MUMPS"
^DD(757.04,1,1,1,1)="S ^LEX(757.04,""ACTION"",$E($P(^LEX(757.04,DA,0),U,1),1,63),X,DA)="""""
^DD(757.04,1,1,1,2)="K ^LEX(757.04,""ACTION"",$E($P(^LEX(757.04,DA,0),U,1),1,63),X,DA)"
^DD(757.04,1,1,1,"%D",0)="^^7^7^2940902^^"
^DD(757.04,1,1,1,"%D",1,0)="^LEX(757.04,""ACTION"",WORD,EXC,IEN) - where WORD is the word to be excluded, "
^DD(757.04,1,1,1,"%D",2,0)="EXC is the type of action (Exclude From field 1) to take when performing "
^DD(757.04,1,1,1,"%D",3,0)="exclusions and IEN is the Internal Entry Number in the Excluded Word "
^DD(757.04,1,1,1,"%D",4,0)="file #757.04 where the Word/Action combination is located.  This index is "
^DD(757.04,1,1,1,"%D",5,0)="used to determine how the given word was meant to be excluded. (I = exclude "
^DD(757.04,1,1,1,"%D",6,0)="from indexing, L = exclude from look-up, B = exclude from both indexing and "
^DD(757.04,1,1,1,"%D",7,0)="look-up)."
^DD(757.04,1,1,1,"DT")="2930129"
^DD(757.04,1,9)="@"
^DD(757.04,1,21,0)="^^2^2^2940902^^"
^DD(757.04,1,21,1,0)="This field indicates the action to take with the excluded word, exclude"
^DD(757.04,1,21,2,0)="from (I)ndexing, (L)ook-up or (B)oth indexing and look-up."
^DD(757.04,1,"DT")="2950803"
^DD(757.04,"B","EXCLUDE FROM",1)=""
^DD(757.04,"B","WORD",.01)=""
^DD(757.04,"GL",0,1,.01)=""
^DD(757.04,"GL",0,2,1)=""
^DD(757.04,"IX",.01)=""
^DD(757.04,"IX",1)=""
^DD(757.04,"RQ",.01)=""
^DD(757.04,"RQ",1)=""
^DD(757.05,0)="FIELD^^3^4"
^DD(757.05,0,"DDA")="N"
^DD(757.05,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(757.05,0,"IX","AB",757.05,.01)=""
^DD(757.05,0,"IX","AEXP",757.53,.01)=""
^DD(757.05,0,"IX","ALINK",757.05,2)=""
^DD(757.05,0,"IX","B",757.05,.01)=""
^DD(757.05,0,"IX","C",757.05,1)=""
^DD(757.05,0,"NM","REPLACEMENT WORDS")=""
^DD(757.05,0,"VR")="2.0"
^DD(757.05,0,"VRPK")="LEXICON UTILITY"
^DD(757.05,0,"VRRV")="27^3031025"
^DD(757.05,.01,0)="WORD^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<2)!'(X?1AN.E) X D REP^LEXERI"
^DD(757.05,.01,1,0)="^.1"
^DD(757.05,.01,1,1,0)="757.05^B"
^DD(757.05,.01,1,1,1)="S ^LEX(757.05,""B"",$E(X,1,30),DA)="""""
^DD(757.05,.01,1,1,2)="K ^LEX(757.05,""B"",$E(X,1,30),DA)"
^DD(757.05,.01,1,1,"%D",0)="^^3^3^2940902^"
^DD(757.05,.01,1,1,"%D",1,0)="^LEX(757.05,""B"",WORD,IEN) - where WORD is the Word (.01) to be replaced during"
^DD(757.05,.01,1,1,"%D",2,0)="lookup and IEN is the Internal Entry Number in the Replacement Words file"
^DD(757.05,.01,1,1,"%D",3,0)="#757.05 where the word is located."
^DD(757.05,.01,1,2,0)="757.05^AB^MUMPS"
^DD(757.05,.01,1,2,1)="S ^LEX(757.05,""AB"",$E(X,1,40),DA)="""""
^DD(757.05,.01,1,2,2)="K ^LEX(757.05,""AB"",$E(X,1,40),DA)"
^DD(757.05,.01,1,2,"%D",0)="^^5^5^2940902^^^"
^DD(757.05,.01,1,2,"%D",1,0)="^LEX(757.05,""AB"",WORD,IEN) - where WORD is the Word (.01) to be replace during"
^DD(757.05,.01,1,2,"%D",2,0)="lookup and IEN is the Internal Entry Number in the Replacement Words file"
^DD(757.05,.01,1,2,"%D",3,0)="#757.05 where the word is located.  This is similar to the ""B"" index, but has"
^DD(757.05,.01,1,2,"%D",4,0)="been extended to 40 characters (Word field .01 length) to speed word parsing,"
^DD(757.05,.01,1,2,"%D",5,0)="indexing and lookup routines."
^DD(757.05,.01,1,2,"DT")="2930608"
^DD(757.05,.01,3)="Word (to be replaced) must be 2-40 characters in length."
^DD(757.05,.01,21,0)="^^3^3^2960812^^^"
^DD(757.05,.01,21,1,0)="This field contains words which are meant to be replaced (either"
^DD(757.05,.01,21,2,0)="physically or logically) prior to calling the look-up utility."
^DD(757.05,.01,21,3,0)="This is a single word (no spaces, hypens or slashes)."
^DD(757.05,.01,"DT")="2940817"
^DD(757.05,1,0)="REPLACEMENT TERM^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<2) X D REPBY^LEXERI"
^DD(757.05,1,1,0)="^.1"
^DD(757.05,1,1,1,0)="757.05^C^MUMPS"
^DD(757.05,1,1,1,1)="S ^LEX(757.05,""C"",$E($$UP^XLFSTR(X),1,40),DA)="""""
^DD(757.05,1,1,1,2)="K ^LEX(757.05,""C"",$E($$UP^XLFSTR(X),1,40),DA)"
^DD(757.05,1,1,1,"%D",0)="^^7^7^2940902^^^"
^DD(757.05,1,1,1,"%D",1,0)="^LEX(757.05,""C"",REP,IEN) - where REP is the uppercase form of the Replacement"
^DD(757.05,1,1,1,"%D",2,0)="Term (1) to use during word replacements/substitutions and IEN is the Internal"
^DD(757.05,1,1,1,"%D",3,0)="Entry Number in the Replacement Words file #757.05 where the Replacement Term"
^DD(757.05,1,1,1,"%D",4,0)="is located.  This index is used extensively in the input transformations for"
^DD(757.05,1,1,1,"%D",5,0)="both the Excluded Word file #757.04 and the Replacement Term file #757.05"
^DD(757.05,1,1,1,"%D",6,0)="(i.e., you can not replace word with a word which is to be excluded from"
^DD(757.05,1,1,1,"%D",7,0)="lookup and you can not exclude a word from lookup which is to be replaced)."
^DD(757.05,1,1,1,"DT")="2931129"
^DD(757.05,1,3)="Replacement term must be 2-100 characters in length."
^DD(757.05,1,21,0)="^^2^2^2930608^"
^DD(757.05,1,21,1,0)="This word/multiple word term will either physically or logically replace"
^DD(757.05,1,21,2,0)="WORD (.01) when it is contained in the user's input."
^DD(757.05,1,"DT")="2931129"
^DD(757.05,2,0)="ACTION^RS^R:REPLACEABLE WORD;L:LINKED WORD;N:NO ACTION TAKEN;^0;3^Q"
^DD(757.05,2,1,0)="^.1"
^DD(757.05,2,1,1,0)="757.05^ALINK^MUMPS"
^DD(757.05,2,1,1,1)="D S^LEXNDX3"
^DD(757.05,2,1,1,2)="D K^LEXNDX3"
^DD(757.05,2,1,1,"%D",0)="^^9^9^2940902^^^^"
^DD(757.05,2,1,1,"%D",1,0)="^LEX(757.05,""ALINK"",WORD,EXP) - where WORD is the Internal Entry Number of the"
^DD(757.05,2,1,1,"%D",2,0)="location of the WORD (.01) in the Replacement Word file #757.05 to link to an"
^DD(757.05,2,1,1,"%D",3,0)="expression and EXP is the Internal Entry Number of the expression in the"
^DD(757.05,2,1,1,"%D",4,0)="Expresion file #757.01 which the Word is linked to.  Additionally, the index"
^DD(757.05,2,1,1,"%D",5,0)="node ^LEX(757.01,""AWRD"",WORD,EXP,""LINKED"") is set where WORD is the Word (.01)"
^DD(757.05,2,1,1,"%D",6,0)="in the Replacement Word file #757.05 to be linked to an expression and EXP is"
^DD(757.05,2,1,1,"%D",7,0)="the Internal Entry Number in the Expression file #757.01 where the expression"
^DD(757.05,2,1,1,"%D",8,0)="is located.  This creates a keyword linkage between the word and the"
^DD(757.05,2,1,1,"%D",9,0)="expression."
^DD(757.05,2,1,1,"DT")="2930608"
^DD(757.05,2,9)="@"
^DD(757.05,2,21,0)="^^4^4^2930608^"
^DD(757.05,2,21,1,0)="Action indicates whether a WORD is physically (R)eplaced by the"
^DD(757.05,2,21,2,0)="REPLACEMENT TERM in the user's input, or (L)ogically replaced by linking"
^DD(757.05,2,21,3,0)="the WORD to each occurrence of the REPLACEMENT TERM which carries the same"
^DD(757.05,2,21,4,0)="meaning."
^DD(757.05,2,"DT")="2930608"
^DD(757.05,3,0)="LINKAGES^757.53P^^1;0"
^DD(757.05,3,8.5)="^"
^DD(757.05,3,9)="^"
^DD(757.05,3,21,0)="^^8^8^2951013^^^"
^DD(757.05,3,21,1,0)="This is a series of pointers to expressions to which the WORD (.01) is"
^DD(757.05,3,21,2,0)="linked to.  When a word like ""CANCER"" is linked to an expression like"
^DD(757.05,3,21,3,0)="""CARCINOMA OF THE LUNG"", the pointer of the expression is listed here and"
^DD(757.05,3,21,4,0)="a separate index node is created in the expression file (757.01) at"
^DD(757.05,3,21,5,0)="^LEX(757.01,""AWRD"",""CANCER"",DA,""LINKED"")=""""  Subsequent searches for ""LUNG"
^DD(757.05,3,21,6,0)="CANCER"" will be able to retrieve ""CARCINOMA OF THE LUNG.""  During input,"
^DD(757.05,3,21,7,0)="editing of this multiple field will only occur if ACTION (2) is set to ""L"""
^DD(757.05,3,21,8,0)="(linked words)."
^DD(757.05,"B","ACTION",2)=""
^DD(757.05,"B","LINKAGES",3)=""
^DD(757.05,"B","REPLACEMENT TERM",1)=""
^DD(757.05,"B","WORD",.01)=""
^DD(757.05,"GL",0,1,.01)=""
^DD(757.05,"GL",0,2,1)=""
^DD(757.05,"GL",0,3,2)=""
^DD(757.05,"GL",1,0,3)=""
^DD(757.05,"IX",.01)=""
^DD(757.05,"IX",1)=""
^DD(757.05,"IX",2)=""
^DD(757.05,"RQ",.01)=""
^DD(757.05,"RQ",1)=""
^DD(757.05,"RQ",2)=""
^DD(757.05,"SB",757.53,3)=""
^DD(757.06,0)="FIELD^^12^13"
^DD(757.06,0,"DDA")="N"
^DD(757.06,0,"DT")="2950315"
^DD(757.06,0,"IX","B",757.06,.01)=""
^DD(757.06,0,"NM","UNRESOLVED NARRATIVES")=""
^DD(757.06,0,"VR")="2.0"
^DD(757.06,0,"VRPK")="LEXICON UTILITY"
^DD(757.06,.01,0)="NARRATIVE^RF^^0;1^K:$L(X)>100!($L(X)<1)!'(X'?1P.E) X"
^DD(757.06,.01,1,0)="^.1"
^DD(757.06,.01,1,1,0)="757.06^B"
^DD(757.06,.01,1,1,1)="S ^LEX(757.06,""B"",$E(X,1,30),DA)="""""
^DD(757.06,.01,1,1,2)="K ^LEX(757.06,""B"",$E(X,1,30),DA)"
^DD(757.06,.01,1,1,"%D",0)="^^3^3^2940902^"
^DD(757.06,.01,1,1,"%D",1,0)="^LEX(757.06,""B"",NAR,IEN) - where NAR is the Narrative (1) and IEN is the"
^DD(757.06,.01,1,1,"%D",2,0)="Internal Entry Number in the Unresolved Narrative file #757.06 where the"
^DD(757.06,.01,1,1,"%D",3,0)="narrative is located."
^DD(757.06,.01,3)="Narrative must be 1-100 characters in length."
^DD(757.06,.01,21,0)="^^2^2^2950314^^^"
^DD(757.06,.01,21,1,0)="User input to the Lexicon look-up which could not be resolved "
^DD(757.06,.01,21,2,0)="(no entries found or no entry selected)."
^DD(757.06,.01,"DT")="2930129"
^DD(757.06,1,0)="DATE-TIME^RF^^0;2^K:$L(X)>14!($L(X)<14)!'(X?7N1"".""6N) X"
^DD(757.06,1,3)="Date-Time (CYYMMDD.HHMMSS) must be 14 characters in length."
^DD(757.06,1,21,0)="^^2^2^2930518^"
^DD(757.06,1,21,1,0)="Date and Time that the unresolved user narrative was added to the file"
^DD(757.06,1,21,2,0)="(generated by LEXA1)."
^DD(757.06,1,"DT")="2930518"
^DD(757.06,2,0)="SEARCH STRING^F^^0;3^K:$L(X)>100!($L(X)<1) X"
^DD(757.06,2,3)="Search string must be 1-100 characters in length."
^DD(757.06,2,21,0)="^^1^1^2950314^^"
^DD(757.06,2,21,1,0)="This is the actual string used to conduct the search in the Lexicon."
^DD(757.06,2,"DT")="2950314"
^DD(757.06,3,0)="MATCHES^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.06,3,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(757.06,3,21,0)="^^3^3^2950314^"
^DD(757.06,3,21,1,0)="This is the number of matches found during the search when the Unresolved"
^DD(757.06,3,21,2,0)="Narrative occurred.  It will distinguish a ""no match found"" condition from a"
^DD(757.06,3,21,3,0)="""user did select a term"" condition."
^DD(757.06,3,"DT")="2950314"
^DD(757.06,4,0)="APPLICATION^F^^1;1^K:$L(X)>63!($L(X)<1) X"
^DD(757.06,4,3)="Application must be 1-63 characters in length."
^DD(757.06,4,21,0)="^^3^3^2950314^"
^DD(757.06,4,21,1,0)="This is the name of the application in use (if known) when the Unresolved"
^DD(757.06,4,21,2,0)="Narrative was added.  The application name may assist in the review process"
^DD(757.06,4,21,3,0)="when determining the disposition of the narrative (i.e., Problem List vs Lab)."
^DD(757.06,4,"DT")="2950314"
^DD(757.06,5,0)="SERVICE^F^^1;2^K:$L(X)>63!($L(X)<1) X"
^DD(757.06,5,3)="Service must be 1-63 characters in length."
^DD(757.06,5,21,0)="^^3^3^2950314^"
^DD(757.06,5,21,1,0)="This is the service of the user who added the Unresolved Narrative.  The"
^DD(757.06,5,21,2,0)="service may assist in the review process when determining the disposition of"
^DD(757.06,5,21,3,0)="this narrative (i.e., Nursing vs Social Work)."
^DD(757.06,5,"DT")="2950314"
^DD(757.06,6,0)="LOCATION^F^^1;3^K:$L(X)>63!($L(X)<1) X"
^DD(757.06,6,3)="Location must be 1-63 characters in length."
^DD(757.06,6,21,0)="^^3^3^2950314^"
^DD(757.06,6,21,1,0)="This is the hospital location of the user who added the Narrative.  The user"
^DD(757.06,6,21,2,0)="location may assist in the review process when determining the disposition of"
^DD(757.06,6,21,3,0)="this narrative (i.e., lab expression vs clinic)."
^DD(757.06,6,"DT")="2950314"
^DD(757.06,7,0)="FILE^F^^2;1^K:$L(X)>7!($L(X)<1) X"
^DD(757.06,7,3)="File must be 1-7 characters in length."
^DD(757.06,7,21,0)="^^2^2^2950314^^"
^DD(757.06,7,21,1,0)="This is the file number where the search took place.  It will assist in"
^DD(757.06,7,21,2,0)="recreating the failed search which resulted in an Unresolved Narrative."
^DD(757.06,7,"DT")="2950314"
^DD(757.06,8,0)="INDEX^F^^2;2^K:$L(X)>8!($L(X)<1) X"
^DD(757.06,8,3)="Index must be 1-8 characters in length."
^DD(757.06,8,21,0)="^^2^2^2950314^^"
^DD(757.06,8,21,1,0)="This is the name of the index used during the search.  It will assist in"
^DD(757.06,8,21,2,0)="recreating the failed search which resulted in an Unresolved Narrative."
^DD(757.06,8,"DT")="2950314"
^DD(757.06,9,0)="SHORTCUTS^F^^2;3^K:$L(X)>63!($L(X)<1) X"
^DD(757.06,9,3)="Shortcuts must be 1-63 characters in length."
^DD(757.06,9,21,0)="^^3^3^2950314^"
^DD(757.06,9,21,1,0)="This is the name of the Shortcut Context used (if any) during the search.  It"
^DD(757.06,9,21,2,0)="will assist in recreating the failed search which resulted in an Unresolved"
^DD(757.06,9,21,3,0)="Narrative."
^DD(757.06,9,"DT")="2950314"
^DD(757.06,10,0)="SCREEN^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(757.06,10,3)="This is Standard MUMPS code."
^DD(757.06,10,9)="@"
^DD(757.06,10,21,0)="^^2^2^2950314^"
^DD(757.06,10,21,1,0)="This is the screen used (if any) during the search.  It will assist in"
^DD(757.06,10,21,2,0)="recreating the failed search which resulted in an Unresolved Narrative."
^DD(757.06,10,"DT")="2950314"
^DD(757.06,11,0)="EXPRESSION^NJ9,0^^4;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(757.06,11,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(757.06,11,21,0)="^^4^4^2950315^^^"
^DD(757.06,11,21,1,0)="This field is populated when an application discovers a problem with an"
^DD(757.06,11,21,2,0)="expression in the expression file, and returns a valid expression as an"
^DD(757.06,11,21,3,0)="Unresolved Narrative with a comment regarding the problem.  Note, the COMMENT"
^DD(757.06,11,21,4,0)="field will also be populated."
^DD(757.06,11,"DT")="2950315"
^DD(757.06,12,0)="COMMENT^F^^4;2^K:$L(X)>200!($L(X)<1) X"
^DD(757.06,12,3)="Comment must be 1-200 characters in length."
^DD(757.06,12,21,0)="^^4^4^2950315^^"
^DD(757.06,12,21,1,0)="This field is populated when an application discovers a problem with an"
^DD(757.06,12,21,2,0)="expression in the expression file (757.01), and returns a valid expression as"
^DD(757.06,12,21,3,0)="an Unresolved Narrative.  The comment should briefly state the problem (i.e.,"
^DD(757.06,12,21,4,0)="Codable diagnosis maps to ICD 799.9)."
^DD(757.06,12,"DT")="2950315"
^DD(757.06,"B","APPLICATION",4)=""
^DD(757.06,"B","COMMENT",12)=""
^DD(757.06,"B","DATE-TIME",1)=""
^DD(757.06,"B","EXPRESSION",11)=""
^DD(757.06,"B","FILE",7)=""
^DD(757.06,"B","INDEX",8)=""
^DD(757.06,"B","LOCATION",6)=""
^DD(757.06,"B","MATCHES",3)=""
^DD(757.06,"B","NARRATIVE",.01)=""
^DD(757.06,"B","SCREEN",10)=""
^DD(757.06,"B","SEARCH STRING",2)=""
^DD(757.06,"B","SERVICE",5)=""
^DD(757.06,"B","SHORTCUTS",9)=""
^DD(757.06,"GL",0,1,.01)=""
^DD(757.06,"GL",0,2,1)=""
^DD(757.06,"GL",0,3,2)=""
^DD(757.06,"GL",0,4,3)=""
^DD(757.06,"GL",1,1,4)=""
^DD(757.06,"GL",1,2,5)=""
^DD(757.06,"GL",1,3,6)=""
^DD(757.06,"GL",2,1,7)=""
^DD(757.06,"GL",2,2,8)=""
^DD(757.06,"GL",2,3,9)=""
^DD(757.06,"GL",3,"E1,245",10)=""
^DD(757.06,"GL",4,1,11)=""
^DD(757.06,"GL",4,2,12)=""
^DD(757.06,"IX",.01)=""
^DD(757.06,"RQ",.01)=""
^DD(757.06,"RQ",1)=""
^DD(757.08,0)="SDO VERSION SUB-FIELD^^1^2"
^DD(757.08,0,"DT")="3061018"
^DD(757.08,0,"IX","B",757.08,.01)=""
^DD(757.08,0,"NM","SDO VERSION")=""
^DD(757.08,0,"UP")="757.03"
^DD(757.08,.01,0)="SDO VERSION EFFECTIVE DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(757.08,.01,1,0)="^.1"
^DD(757.08,.01,1,1,0)="757.08^B"
^DD(757.08,.01,1,1,1)="S ^LEX(757.03,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(757.08,.01,1,1,2)="K ^LEX(757.03,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(757.08,.01,3)="(No range limit on date)"
^DD(757.08,.01,"DT")="3061018"
^DD(757.08,1,0)="SDO VERSION IDENTIFIER^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(757.08,1,3)="Answer must be 1-40 characters in length."
^DD(757.08,1,21,0)="^^2^2^3060125^^"
^DD(757.08,1,21,1,0)="This is the Standards Development Organization's (SDO) nomenclature for "
^DD(757.08,1,21,2,0)="referencing a specific version of a code system."
^DD(757.08,1,"DT")="3061018"
^DD(757.08,"B","SDO VERSION EFFECTIVE DATE",.01)=""
^DD(757.08,"B","SDO VERSION IDENTIFIER",1)=""
^DD(757.08,"GL",0,1,.01)=""
^DD(757.08,"GL",0,2,1)=""
^DD(757.08,"IX",.01)=""
^DD(757.09,0,"VR")="2.0"
^DD(757.09,0,"VRPK")="LEX"
^DD(757.09,0,"VRRV")="30^3040418"
^DD(757.1,0)="FIELD^^2^3"
^DD(757.1,0,"DDA")="N"
^DD(757.1,0,"DT")="2930212"
^DD(757.1,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LEX(757.11,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(757.11,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(757.1,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LEX(757.12,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(757.12,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(757.1,0,"IX","AMCC",757.1,1)=""
^DD(757.1,0,"IX","AMCT",757.1,2)=""
^DD(757.1,0,"IX","ASTT",757.1,2)=""
^DD(757.1,0,"IX","B",757.1,.01)=""
^DD(757.1,0,"NM","SEMANTIC MAP")=""
^DD(757.1,0,"PK")="LEX"
^DD(757.1,0,"VR")="2.0"
^DD(757.1,0,"VRPK")="LEX"
^DD(757.1,0,"VRRV")="56^3080401"
^DD(757.1,.01,0)="MAJOR CONCEPT^RP757'^LEX(757,^0;1^Q"
^DD(757.1,.01,.1)="MC"
^DD(757.1,.01,1,0)="^.1"
^DD(757.1,.01,1,1,0)="757.1^B"
^DD(757.1,.01,1,1,1)="S ^LEX(757.1,""B"",$E(X,1,30),DA)="""""
^DD(757.1,.01,1,1,2)="K ^LEX(757.1,""B"",$E(X,1,30),DA)"
^DD(757.1,.01,1,1,"%D",0)="^^5^5^2940902^^"
^DD(757.1,.01,1,1,"%D",1,0)="^LEX(757.1,""B"",MC,IEN) - where MC is the Internal Entry Number in the Major"
^DD(757.1,.01,1,1,"%D",2,0)="Concept Map file #757 where the Major Concept is located and IEN is the"
^DD(757.1,.01,1,1,"%D",3,0)="Internal Entry Number of the Semantic Map file #757.1 where the semantic"
^DD(757.1,.01,1,1,"%D",4,0)="classification of the Major Concept is located.  This index is used to obtain"
^DD(757.1,.01,1,1,"%D",5,0)="all of the semantic classes and type to which a Major Concept belongs."
^DD(757.1,.01,3)=""
^DD(757.1,.01,21,0)="^^4^4^2940302^"
^DD(757.1,.01,21,1,0)="This is a pointer to the Major Concept, linking the semantic"
^DD(757.1,.01,21,2,0)="classification with a concept.  Only Major Concepts are semantically"
^DD(757.1,.01,21,3,0)="classified.   Synonyms and Lexical Variants adopt the semantic"
^DD(757.1,.01,21,4,0)="classification of the parent Major Concept."
^DD(757.1,.01,"DT")="2960807"
^DD(757.1,1,0)="SEMANTIC CLASS^RP757.11'^LEX(757.11,^0;2^Q"
^DD(757.1,1,1,0)="^.1^^-1"
^DD(757.1,1,1,2,0)="757.1^AMCC^MUMPS"
^DD(757.1,1,1,2,1)="S ^LEX(757.1,""AMCC"",$P(^LEX(757.1,DA,0),U,1),$P(^LEX(757.11,X,0),U,1),DA)="""""
^DD(757.1,1,1,2,2)="K ^LEX(757.1,""AMCC"",$P(^LEX(757.1,DA,0),U,1),$P(^LEX(757.11,X,0),U,1),DA)"
^DD(757.1,1,1,2,"%D",0)="^^6^6^2940902^^^"
^DD(757.1,1,1,2,"%D",1,0)="^LEX(757.1,""AMCC"",MC,SC,IEN) - where MC is the Internal Entry Number in the"
^DD(757.1,1,1,2,"%D",2,0)="Major Concept Map file #757 of the Major Concept, SC is the mnemonic for the"
^DD(757.1,1,1,2,"%D",3,0)="Semantic Class (i.e., ORG organism, PRO procedures) to which the Major Concept"
^DD(757.1,1,1,2,"%D",4,0)="belongs and IEN is the Internal Entry Nunber in the Semantic Map file #757.1"
^DD(757.1,1,1,2,"%D",5,0)="where the Major Concept/Semantic Class combination is located.  This index is"
^DD(757.1,1,1,2,"%D",6,0)="used extensively for filtered searches based on semantic classes and types."
^DD(757.1,1,1,2,"DT")="2930520"
^DD(757.1,1,3)=""
^DD(757.1,1,21,0)="^^3^3^2940902^^"
^DD(757.1,1,21,1,0)="This is a pointer to the general semantic class defined in the Semantic Class"
^DD(757.1,1,21,2,0)="file #757.11 to which the Major Concept belongs.  An example of a semantic"
^DD(757.1,1,21,3,0)="class is ORG for concepts in the general class of Organisms."
^DD(757.1,1,"DT")="2960807"
^DD(757.1,2,0)="SEMANTIC TYPE^RP757.12'^LEX(757.12,^0;3^Q"
^DD(757.1,2,1,0)="^.1"
^DD(757.1,2,1,1,0)="757.1^ASTT^MUMPS"
^DD(757.1,2,1,1,1)="S ^LEX(757.1,""ASTT"",X,$P(^LEX(757.1,DA,0),U,1),DA)="""""
^DD(757.1,2,1,1,2)="K ^LEX(757.1,""ASTT"",X,$P(^LEX(757.1,DA,0),U,1),DA)"
^DD(757.1,2,1,1,"%D",0)="^^7^7^2940902^^^^"
^DD(757.1,2,1,1,"%D",1,0)="^LEX(757.1,""ASTT"",ST,MC,IEN) - where ST is the Internal Entry Number in the"
^DD(757.1,2,1,1,"%D",2,0)="Semantic Types file #757.12 where the semantic type of the concept is located,"
^DD(757.1,2,1,1,"%D",3,0)="MC is the Internal Entry Number in the Major Concept Map file #757 of the Major"
^DD(757.1,2,1,1,"%D",4,0)="Concept belonging the the semantic type, and IEN is the Internal Entry Number"
^DD(757.1,2,1,1,"%D",5,0)="in the Semantic Map file #757.1 where the Semantic Type/Major Concept"
^DD(757.1,2,1,1,"%D",6,0)="combination is located.  This index is used extensively for filtered searches"
^DD(757.1,2,1,1,"%D",7,0)="based on semantic classes and types."
^DD(757.1,2,1,1,"DT")="2930520"
^DD(757.1,2,1,2,0)="757.1^AMCT^MUMPS"
^DD(757.1,2,1,2,1)="S ^LEX(757.1,""AMCT"",$P(^LEX(757.1,DA,0),U,1),X,DA)="""""
^DD(757.1,2,1,2,2)="K ^LEX(757.1,""AMCT"",$P(^LEX(757.1,DA,0),U,1),X,DA)"
^DD(757.1,2,1,2,"%D",0)="^^7^7^2940902^^"
^DD(757.1,2,1,2,"%D",1,0)="^LEX(757.1,""AMCT"",MC,ST,IEN) - where MC is the Internal Entry Number in the"
^DD(757.1,2,1,2,"%D",2,0)="Major Concept Map file #757 of the Major Concept, ST is the Internal Entry"
^DD(757.1,2,1,2,"%D",3,0)="Number in the Semantic Types file #757.12 where the semantic type of the"
^DD(757.1,2,1,2,"%D",4,0)="concept is located, and IEN is the Internal Entry Number in the Semantic Map"
^DD(757.1,2,1,2,"%D",5,0)="file #757.1 where the Major Concept/Semantic Type combination is located.  This"
^DD(757.1,2,1,2,"%D",6,0)="index is used extensively for filtered searches based on semantic classes and"
^DD(757.1,2,1,2,"%D",7,0)="types."
^DD(757.1,2,1,2,"DT")="2930520"
^DD(757.1,2,21,0)="^^5^5^2940902^^"
^DD(757.1,2,21,1,0)="This is a pointer to the specific semantic type defined in the Semantic Types"
^DD(757.1,2,21,2,0)="file #757.12 to which the Major Concept belongs.  Using the general semantic "
^DD(757.1,2,21,3,0)="class ORG (Organism), examples of specific semantic types would be plants, "
^DD(757.1,2,21,4,0)="alga, fungus, virus, rickettsia, bacterium, animal, intertebrate, vertebrate,"
^DD(757.1,2,21,5,0)="amphibian, bird, fish, reptile, mammal, human, and organism."
^DD(757.1,2,"DT")="2960807"
^DD(757.1,"B","MAJOR CONCEPT",.01)=""
^DD(757.1,"B","MC",.01)="1"
^DD(757.1,"B","SEMANTIC CLASS",1)=""
^DD(757.1,"B","SEMANTIC TYPE",2)=""
^DD(757.1,"GL",0,1,.01)=""
^DD(757.1,"GL",0,2,1)=""
^DD(757.1,"GL",0,3,2)=""
^DD(757.1,"IX",.01)=""
^DD(757.1,"IX",1)=""
^DD(757.1,"IX",2)=""
^DD(757.1,"RQ",.01)=""
^DD(757.1,"RQ",1)=""
^DD(757.1,"RQ",2)=""
^DD(757.11,0)="FIELD^^3^4"
^DD(757.11,0,"DDA")="N"
^DD(757.11,0,"DT")="2930504"
^DD(757.11,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(757.11,0,"IX","B",757.11,.01)=""
^DD(757.11,0,"NM","SEMANTIC CLASS")=""
^DD(757.11,0,"PT",757.1,1)=""
^DD(757.11,0,"VR")="2.0"
^DD(757.11,0,"VRPK")="LEX"
^DD(757.11,0,"VRRV")="53^3071001"
^DD(757.11,.01,0)="SEMANTIC CLASS^RFI^^0;1^K:$L(X)>3!($L(X)<3)!'(X?3U) X"
^DD(757.11,.01,1,0)="^.1"
^DD(757.11,.01,1,1,0)="757.11^B"
^DD(757.11,.01,1,1,1)="S ^LEX(757.11,""B"",$E(X,1,30),DA)="""""
^DD(757.11,.01,1,1,2)="K ^LEX(757.11,""B"",$E(X,1,30),DA)"
^DD(757.11,.01,1,1,"%D",0)="^^3^3^2940902^"
^DD(757.11,.01,1,1,"%D",1,0)="^LEX(757.11,""B"",SC,IEN) - where SC is the three character mnemonic for a"
^DD(757.11,.01,1,1,"%D",2,0)="Semantic Class (.01) and IEN is the Internal Entry Number in the Semantic Class"
^DD(757.11,.01,1,1,"%D",3,0)="file #757.11 where the semantic class is located."
^DD(757.11,.01,3)="Semantic Class must be 3 characters in length."
^DD(757.11,.01,21,0)="^^2^2^2940902^^"
^DD(757.11,.01,21,1,0)="Three character (uppercase) mnemonic representing a semantical class.  For"
^DD(757.11,.01,21,2,0)="example, ORG - Organism, PRO - Procedures, ACT - Activities, etc."
^DD(757.11,.01,"DT")="2931124"
^DD(757.11,1,0)="DESCRIPTIVE TITLE^RFI^^0;2^K:$L(X)>40!($L(X)<1)!'(X?1U.E) X"
^DD(757.11,1,3)="Title must be 1-40 characters in length."
^DD(757.11,1,21,0)="^^2^2^2930518^"
^DD(757.11,1,21,1,0)="Full title (textual description, mixed case) representing a semantical"
^DD(757.11,1,21,2,0)="class."
^DD(757.11,1,"DT")="2931124"
^DD(757.11,2,0)="CLASS CONTENTS^757.112^^1;0"
^DD(757.11,2,21,0)="^^2^2^2930518^"
^DD(757.11,2,21,1,0)="Textual description of the semantical class containing (as a minimum) the"
^DD(757.11,2,21,2,0)="semantical types included within the semantical class."
^DD(757.11,3,0)="ASSOCIATED CODING SYSTEMS^757.113^^2;0"
^DD(757.11,3,21,0)="^^2^2^2930518^"
^DD(757.11,3,21,1,0)="This multiple field contains all of the classification systems (i.e., ICD,"
^DD(757.11,3,21,2,0)="CPT, DSM) which have terms included in this semantical class."
^DD(757.11,"B","ASSOCIATED CODING SYSTEMS",3)=""
^DD(757.11,"B","CLASS CONTENTS",2)=""
^DD(757.11,"B","DESCRIPTIVE TITLE",1)=""
^DD(757.11,"B","SEMANTIC CLASS",.01)=""
^DD(757.11,"GL",0,1,.01)=""
^DD(757.11,"GL",0,2,1)=""
^DD(757.11,"GL",1,0,2)=""
^DD(757.11,"GL",2,0,3)=""
^DD(757.11,"IX",.01)=""
^DD(757.11,"RQ",.01)=""
^DD(757.11,"RQ",1)=""
^DD(757.11,"SB",757.112,2)=""
^DD(757.11,"SB",757.113,3)=""
^DD(757.112,0)="CLASS CONTENTS SUB-FIELD^^.01^1"
^DD(757.112,0,"DT")="2930210"
^DD(757.112,0,"NM","CLASS CONTENTS")=""
^DD(757.112,0,"UP")="757.11"
^DD(757.112,.01,0)="CLASS CONTENTS^W^^0;1^Q"
^DD(757.112,.01,"DT")="2930210"
^DD(757.112,"B","CLASS CONTENTS",.01)=""
^DD(757.112,"GL",0,1,.01)=""
^DD(757.113,0)="ASSOCIATED CODING SYSTEMS SUB-FIELD^^.01^1"
^DD(757.113,0,"DT")="2930216"
^DD(757.113,0,"IX","B",757.113,.01)=""
^DD(757.113,0,"NM","ASSOCIATED CODING SYSTEMS")=""
^DD(757.113,0,"UP")="757.11"
^DD(757.113,.01,0)="ASSOCIATED CODING SYSTEMS^MFI^^0;1^K:$L(X)>20!($L(X)<2) X"
^DD(757.113,.01,1,0)="^.1"
^DD(757.113,.01,1,1,0)="757.113^B"
^DD(757.113,.01,1,1,1)="S ^LEX(757.11,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(757.113,.01,1,1,2)="K ^LEX(757.11,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(757.113,.01,1,1,"%D",0)="^^5^5^2940902^^"
^DD(757.113,.01,1,1,"%D",1,0)="^LEX(757.01,SC,2,""B"",SYS,IEN) - where SC is the Internal Entry Number in the"
^DD(757.113,.01,1,1,"%D",2,0)="Semantic Class file #757.11 where the Semantic Class (.01) is located, SYS is"
^DD(757.113,.01,1,1,"%D",3,0)="the Associated Coding System belonging to the Semantic Class, and IEN is the"
^DD(757.113,.01,1,1,"%D",4,0)="Internal Entry Number of the Associated Coding System Sub-file #757.113 where"
^DD(757.113,.01,1,1,"%D",5,0)="the Associated Coding System (.01) is located."
^DD(757.113,.01,3)="Coding System must be 2-20 characters in length."
^DD(757.113,.01,"DT")="2950126"
^DD(757.113,"B","ASSOCIATED CODING SYSTEMS",.01)=""
^DD(757.113,"GL",0,1,.01)=""
^DD(757.113,"IX",.01)=""
^DD(757.12,0)="FIELD^^3^4"
^DD(757.12,0,"DDA")="N"
^DD(757.12,0,"DT")="2930216"
^DD(757.12,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(757.12,0,"IX","B",757.12,.01)=""
^DD(757.12,0,"IX","C",757.12,2)=""
^DD(757.12,0,"IX","D",757.12,1)=""
^DD(757.12,0,"IX","E",757.12,1)=""
^DD(757.12,0,"IX","F",757.12,2)=""
^DD(757.12,0,"NM","SEMANTIC TYPE")=""
^DD(757.12,0,"PT",757.1,2)=""
^DD(757.12,0,"VR")="2.0"
^DD(757.12,0,"VRPK")="LEX"
^DD(757.12,0,"VRRV")="54^3080101"
^DD(757.12,.01,0)="UNIQUE IDENTIFIER^RFI^^0;1^K:$L(X)>4!($L(X)<4)!'(X?1""T""3N) X"
^DD(757.12,.01,.1)=""
^DD(757.12,.01,1,0)="^.1"
^DD(757.12,.01,1,1,0)="757.12^B"
^DD(757.12,.01,1,1,1)="S ^LEX(757.12,""B"",$E(X,1,30),DA)="""""
^DD(757.12,.01,1,1,2)="K ^LEX(757.12,""B"",$E(X,1,30),DA)"
^DD(757.12,.01,1,1,"%D",0)="^^3^3^2960812^^"
^DD(757.12,.01,1,1,"%D",1,0)="^LEX(757.12,""B"",TUI,IEN) - where TUI is the Semantic Type Unique Identifier"
^DD(757.12,.01,1,1,"%D",2,0)="and IEN is the Internal Entry Number of the Semantic Type file #757.12 "
^DD(757.12,.01,1,1,"%D",3,0)="where the Type Unique Identifier is located."
^DD(757.12,.01,3)="Unique identifier must be 4 characters in length, T followed by 3 numerics."
^DD(757.12,.01,21,0)="^^1^1^2960812^^^^"
^DD(757.12,.01,21,1,0)="The unique identifier is used for file maintenance."
^DD(757.12,.01,"DT")="2950316"
^DD(757.12,1,0)="DESCRIPTIVE TITLE^RFI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<2) X"
^DD(757.12,1,1,0)="^.1"
^DD(757.12,1,1,1,0)="757.12^D"
^DD(757.12,1,1,1,1)="S ^LEX(757.12,""D"",$E(X,1,30),DA)="""""
^DD(757.12,1,1,1,2)="K ^LEX(757.12,""D"",$E(X,1,30),DA)"
^DD(757.12,1,1,1,"%D",0)="^^3^3^2950914^^^"
^DD(757.12,1,1,1,"%D",1,0)="^LEX(757.12,""D"",DT,IEN) - where DT is the Descriptive Title (1) of a semantic"
^DD(757.12,1,1,1,"%D",2,0)="type and IEN is the Internal Entry Number in the Semantic Types file #757.12"
^DD(757.12,1,1,1,"%D",3,0)="where the descriptive title of the semantic type is located."
^DD(757.12,1,1,1,"DT")="2930517"
^DD(757.12,1,1,2,0)="757.12^E^MUMPS"
^DD(757.12,1,1,2,1)="S ^LEX(757.12,""E"",$$UP^XLFSTR($E(X,1,30)),DA)="""""
^DD(757.12,1,1,2,2)="K ^LEX(757.12,""E"",$$UP^XLFSTR($E(X,1,30)),DA)"
^DD(757.12,1,1,2,"%D",0)="^^3^3^2950914^"
^DD(757.12,1,1,2,"%D",1,0)="^LEX(757.12,""E"",UDT,IEN) - where UDT is the Uppercase form of the Descriptive"
^DD(757.12,1,1,2,"%D",2,0)="Title (1) of the semantic type and IEN is the Internal Entry Number in the"
^DD(757.12,1,1,2,"%D",3,0)="Semantic Types file #757.12 where the descriptive title is located."
^DD(757.12,1,1,2,"DT")="2950914"
^DD(757.12,1,3)="Descriptive Title must be 2-200 characters in length."
^DD(757.12,1,21,0)="^^2^2^2930518^"
^DD(757.12,1,21,1,0)="Full title (textual description, mixed case) representing a semantical"
^DD(757.12,1,21,2,0)="type."
^DD(757.12,1,"DT")="2970509"
^DD(757.12,2,0)="CLASS^RFXI^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X?3U)!('$D(^LEX(757.11,""B"",X))) X"
^DD(757.12,2,1,0)="^.1"
^DD(757.12,2,1,1,0)="757.12^C"
^DD(757.12,2,1,1,1)="S ^LEX(757.12,""C"",$E(X,1,30),DA)="""""
^DD(757.12,2,1,1,2)="K ^LEX(757.12,""C"",$E(X,1,30),DA)"
^DD(757.12,2,1,1,"%D",0)="^^3^3^2940902^^"
^DD(757.12,2,1,1,"%D",1,0)="^LEX(757.12,""C"",SC,IEN) - where SC is a 3 character mnemonic representing a"
^DD(757.12,2,1,1,"%D",2,0)="semantic class to which the semantic type belongs and IEN is the Internal Entry"
^DD(757.12,2,1,1,"%D",3,0)="Number of the Semantic Type file #757.12 where the semantic class is located."
^DD(757.12,2,1,1,"DT")="2930212"
^DD(757.12,2,1,2,0)="757.12^F^KWIC"
^DD(757.12,2,1,2,1)="S %A=$P($G(^LEX(757.12,DA,0)),""^"",2)_"" "",%1=1,%B=$O(^LEX(757.11,""B"",X,0)) F %=1:1:$L(%A)+1 S I=$E(%A,%) I ""(,.?! '-/&:;)""[I S I=$E($E(%A,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^LEX(757.11,""F"",$$UP^XLFSTR(I),+(%B))="""""
^DD(757.12,2,1,2,2)="S %A=$P($G(^LEX(757.12,DA,0)),""^"",2)_"" "",%1=1,%B=$O(^LEX(757.11,""B"",X,0)) F %=1:1:$L(%A)+1 S I=$E(%A,%) I ""(,.?! '-/&:;)""[I S I=$E($E(%A,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^LEX(757.11,""F"",$$UP^XLFSTR(I),+(%B))"
^DD(757.12,2,1,2,"DT")="2970410"
^DD(757.12,2,3)="Class must be 3 UPPERCASE characters."
^DD(757.12,2,21,0)="^^2^2^2931126^^^"
^DD(757.12,2,21,1,0)="Three character mnemonic representing the semantical class for which this"
^DD(757.12,2,21,2,0)="semantical type belongs."
^DD(757.12,2,"DT")="2931124"
^DD(757.12,3,0)="ASSOCIATED CODING SYSTEMS^757.123^^1;0"
^DD(757.12,3,21,0)="^^2^2^2930518^"
^DD(757.12,3,21,1,0)="This multiple field contains all of the classification systems (i.e., ICD,"
^DD(757.12,3,21,2,0)="CPT, DSM) which have terms included in this semantical type."
^DD(757.12,"B","ASSOCIATED CODING SYSTEMS",3)=""
^DD(757.12,"B","CLASS",2)=""
^DD(757.12,"B","DESCRIPTIVE TITLE",1)=""
^DD(757.12,"B","UNIQUE IDENTIFIER",.01)=""
^DD(757.12,"GL",0,1,.01)=""
^DD(757.12,"GL",0,2,1)=""
^DD(757.12,"GL",0,3,2)=""
^DD(757.12,"GL",1,0,3)=""
^DD(757.12,"IX",.01)=""
^DD(757.12,"IX",1)=""
^DD(757.12,"IX",2)=""
^DD(757.12,"RQ",.01)=""
^DD(757.12,"RQ",1)=""
^DD(757.12,"RQ",2)=""
^DD(757.12,"SB",757.123,3)=""
^DD(757.123,0)="ASSOCIATED CODING SYSTEMS SUB-FIELD^^.01^1"
^DD(757.123,0,"DT")="2930216"
^DD(757.123,0,"IX","B",757.123,.01)=""
^DD(757.123,0,"NM","ASSOCIATED CODING SYSTEMS")=""
^DD(757.123,0,"UP")="757.12"
^DD(757.123,.01,0)="ASSOCIATED CODING SYSTEMS^MF^^0;1^K:$L(X)>20!($L(X)<2) X"
^DD(757.123,.01,1,0)="^.1"
^DD(757.123,.01,1,1,0)="757.123^B"
^DD(757.123,.01,1,1,1)="S ^LEX(757.12,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(757.123,.01,1,1,2)="K ^LEX(757.12,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(757.123,.01,1,1,"%D",0)="^^5^5^2940902^"
^DD(757.123,.01,1,1,"%D",1,0)="^LEX(757.12,ST,1,""B"",SYS,IEN) - where ST is the Internal Entry Number in the"
^DD(757.123,.01,1,1,"%D",2,0)="Semantic Types file #757.12 where the Semantic Type is located, SYS is the"
^DD(757.123,.01,1,1,"%D",3,0)="Associated Coding System belonging to the Semantic Type, and IEN is the"
^DD(757.123,.01,1,1,"%D",4,0)="Internal Entry Number of the Associated Coding System Sub-file #757.123 where"
^DD(757.123,.01,1,1,"%D",5,0)="the Associated Coding System (.01) is located."
^DD(757.123,.01,3)="Coding System must be 2-20 characters in length."
^DD(757.123,.01,"DT")="2950126"
^DD(757.123,"B","ASSOCIATED CODING SYSTEMS",.01)=""
^DD(757.123,"GL",0,1,.01)=""
^DD(757.123,"IX",.01)=""
^DD(757.13,0)="FIELD^^9^10"
^DD(757.13,0,"DDA")="N"
^DD(757.13,0,"DT")="2970710"
^DD(757.13,0,"IX","AAID",757.13,5)=""
^DD(757.13,0,"IX","ACID",757.13,1)=""
^DD(757.13,0,"IX","ACP",757.13,3)=""
^DD(757.13,0,"IX","APC",757.13,3)=""
^DD(757.13,0,"IX","APID",757.13,3)=""
^DD(757.13,0,"IX","B",757.13,.01)=""
^DD(757.13,0,"IX","C",757.13,.01)=""
^DD(757.13,0,"IX","D",757.13,.01)=""
^DD(757.13,0,"NM","SOURCE CATEGORY")=""
^DD(757.13,0,"PT",757.01,15)=""
^DD(757.13,0,"PT",757.13,2)=""
^DD(757.13,0,"PT",757.13,4)=""
^DD(757.13,0,"VR")="2.0"
^DD(757.13,0,"VRPK")="LEX"
^DD(757.13,0,"VRRV")="3^2971015"
^DD(757.13,.01,0)="CATEGORY NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(757.13,.01,1,0)="^.1"
^DD(757.13,.01,1,1,0)="757.13^B"
^DD(757.13,.01,1,1,1)="S ^LEX(757.13,""B"",$E(X,1,30),DA)="""""
^DD(757.13,.01,1,1,2)="K ^LEX(757.13,""B"",$E(X,1,30),DA)"
^DD(757.13,.01,1,1,"%D",0)="^^3^3^2970729^^"
^DD(757.13,.01,1,1,"%D",1,0)="^LEX(757.13,""B"",$E(CAT,1,30),IEN) - Where CAT is a free text description of"
^DD(757.13,.01,1,1,"%D",2,0)="the term category and IEN is the Internal Entry Number in the Source "
^DD(757.13,.01,1,1,"%D",3,0)="Category file #757.13 where the Category is located."
^DD(757.13,.01,1,2,0)="757.13^C^MUMPS"
^DD(757.13,.01,1,2,1)="S ^LEX(757.13,""C"",$E($$UP^XLFSTR(X),1,64),DA)="""""
^DD(757.13,.01,1,2,2)="K ^LEX(757.13,""C"",$E($$UP^XLFSTR(X),1,64),DA)"
^DD(757.13,.01,1,2,"%D",0)="^^3^3^2970729^^"
^DD(757.13,.01,1,2,"%D",1,0)="^LEX(757.13,""C"",UN,IEN) - Where UN is a 64 character uppercase of the term "
^DD(757.13,.01,1,2,"%D",2,0)="category and IEN is the Internal Entry Number in the Source Category file "
^DD(757.13,.01,1,2,"%D",3,0)="#757.13 where the category is located."
^DD(757.13,.01,1,2,"DT")="2970625"
^DD(757.13,.01,1,3,0)="757.13^D^KWIC"
^DD(757.13,.01,1,3,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I) S ^LEX(757.13,""D"",$$UP^XLFSTR(I),DA)="""""
^DD(757.13,.01,1,3,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I) K ^LEX(757.13,""D"",$$UP^XLFSTR(I),DA)"
^DD(757.13,.01,1,3,"%D",0)="^^3^3^2970729^^^"
^DD(757.13,.01,1,3,"%D",1,0)="^LEX(757.13,""D"",WORD,IEN) - Where WORD is a single parsed word taken from the"
^DD(757.13,.01,1,3,"%D",2,0)="Category Name and IEN is the Internal Entry Number in the Source Category "
^DD(757.13,.01,1,3,"%D",3,0)="file #757.13 where the word is located."
^DD(757.13,.01,1,3,"DT")="2970625"
^DD(757.13,.01,3)="Answer must be 3-64 characters in length."
^DD(757.13,.01,21,0)="^^2^2^2970729^^^^"
^DD(757.13,.01,21,1,0)="Name of a terminology category specified by a source vocabulary (i.e.,"
^DD(757.13,.01,21,2,0)="VA Drug Class as specified by NDF or Diagnostic class as specified by ICD)."
^DD(757.13,.01,"DT")="2970729"
^DD(757.13,1,0)="CATEGORY IDENTIFIER^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(757.13,1,1,0)="^.1"
^DD(757.13,1,1,1,0)="757.13^ACID"
^DD(757.13,1,1,1,1)="S ^LEX(757.13,""ACID"",$E(X,1,30),DA)="""""
^DD(757.13,1,1,1,2)="K ^LEX(757.13,""ACID"",$E(X,1,30),DA)"
^DD(757.13,1,1,1,"%D",0)="^^3^3^2970729^^"
^DD(757.13,1,1,1,"%D",1,0)="^LEX(757.13,""ACID"",ID,IEN) - Where ID is the category identifier and IEN is"
^DD(757.13,1,1,1,"%D",2,0)="the internal entry number in the Source Category file #757.13 where the "
^DD(757.13,1,1,1,"%D",3,0)="identifier is located."
^DD(757.13,1,1,1,"DT")="2970626"
^DD(757.13,1,3)="Answer must be 1-20 characters in length."
^DD(757.13,1,21,0)="^^3^3^2970729^^"
^DD(757.13,1,21,1,0)="A single code (i.e., NDF code AH200 for Antihistamines, Ethanolamine) or a"
^DD(757.13,1,21,2,0)="range of codes (i.e., ICD range of codes 001-009 for Intestinal Infectious"
^DD(757.13,1,21,3,0)="Diseases) assigned to the terminology category by the source vocabulary."
^DD(757.13,1,"DT")="2970729"
^DD(757.13,2,0)="PARENT CATEGORY^P757.13'^LEX(757.13,^1;1^Q"
^DD(757.13,2,3)=""
^DD(757.13,2,21,0)="^^2^2^2970729^^^"
^DD(757.13,2,21,1,0)="This is the internal entry number in the Source Category file #757.13 where"
^DD(757.13,2,21,2,0)="the parent category is located."
^DD(757.13,2,"DT")="2970729"
^DD(757.13,3,0)="PARENT CATEGORY IDENTIFIER^F^^1;2^K:$L(X)>20!($L(X)<1) X"
^DD(757.13,3,1,0)="^.1"
^DD(757.13,3,1,1,0)="757.13^APID"
^DD(757.13,3,1,1,1)="S ^LEX(757.13,""APID"",$E(X,1,30),DA)="""""
^DD(757.13,3,1,1,2)="K ^LEX(757.13,""APID"",$E(X,1,30),DA)"
^DD(757.13,3,1,1,"%D",0)="^^3^3^2970729^^"
^DD(757.13,3,1,1,"%D",1,0)="^LEX(757.13,""APID"",ID,IEN) - Where ID is the parent category identifier and"
^DD(757.13,3,1,1,"%D",2,0)="IEN is the internal entry number in the Source Category file #757.13 where "
^DD(757.13,3,1,1,"%D",3,0)="the identifier is located."
^DD(757.13,3,1,1,"DT")="2970626"
^DD(757.13,3,1,2,0)="757.13^APC^MUMPS"
^DD(757.13,3,1,2,1)="S:$L($P($G(^LEX(757.13,DA,0)),""^"",2)) ^LEX(757.13,""APC"",X,$P($G(^LEX(757.13,DA,0)),""^"",2),DA)="""""
^DD(757.13,3,1,2,2)="K:$L($P($G(^LEX(757.13,DA,0)),""^"",2)) ^LEX(757.13,""APC"",X,$P($G(^LEX(757.13,DA,0)),""^"",2),DA)"
^DD(757.13,3,1,2,"%D",0)="^^3^3^2970729^^^"
^DD(757.13,3,1,2,"%D",1,0)="^LEX(757.13,""APC"",PAR,CHD,IEN) - Where PAR is the parent identifier, CHD is the"
^DD(757.13,3,1,2,"%D",2,0)="child identifier and IEN is the internal entry number in the Source Category "
^DD(757.13,3,1,2,"%D",3,0)="file #757.13 where this parent-child relationship exist."
^DD(757.13,3,1,2,"DT")="2970627"
^DD(757.13,3,1,3,0)="757.13^ACP^MUMPS"
^DD(757.13,3,1,3,1)="S:$L($P($G(^LEX(757.13,DA,0)),""^"",2)) ^LEX(757.13,""ACP"",$P($G(^LEX(757.13,DA,0)),""^"",2),X,DA)="""""
^DD(757.13,3,1,3,2)="K:$L($P($G(^LEX(757.13,DA,0)),""^"",2)) ^LEX(757.13,""ACP"",$P($G(^LEX(757.13,DA,0)),""^"",2),X,DA)"
^DD(757.13,3,1,3,"%D",0)="^^3^3^2970729^^"
^DD(757.13,3,1,3,"%D",1,0)="^LEX(757.13,""ACP"",CHD,PAR,IEN) - Where CHD is the child identifier and PAR is"
^DD(757.13,3,1,3,"%D",2,0)="the parent identifier and IEN is the internal entry number in the Source"
^DD(757.13,3,1,3,"%D",3,0)="Category file #757.13 where this child-parent relationship exist."
^DD(757.13,3,1,3,"DT")="2970627"
^DD(757.13,3,3)="Answer must be 1-20 characters in length."
^DD(757.13,3,21,0)="^^3^3^2970729^^^"
^DD(757.13,3,21,1,0)="If a source category has a parent, then the parent category identifier will"
^DD(757.13,3,21,2,0)="be included.  It is a code or a range of codes assigned to the parent "
^DD(757.13,3,21,3,0)="category by the source vocabulary."
^DD(757.13,3,"DT")="2970729"
^DD(757.13,4,0)="ANCESTOR CATEGORY^P757.13'^LEX(757.13,^2;1^Q"
^DD(757.13,4,3)=""
^DD(757.13,4,21,0)="^^3^3^2970729^^^"
^DD(757.13,4,21,1,0)="This is the internal entry number (IEN) in the Source Category file #757.13"
^DD(757.13,4,21,2,0)="where the ancestral category is located.  Ancestral categories are "
^DD(757.13,4,21,3,0)="characterized as a category without a parent."
^DD(757.13,4,"DT")="2970729"
^DD(757.13,5,0)="ANCESTOR CATEGORY IDENTIFIER^F^^2;2^K:$L(X)>20!($L(X)<1) X"
^DD(757.13,5,1,0)="^.1"
^DD(757.13,5,1,1,0)="757.13^AAID"
^DD(757.13,5,1,1,1)="S ^LEX(757.13,""AAID"",$E(X,1,30),DA)="""""
^DD(757.13,5,1,1,2)="K ^LEX(757.13,""AAID"",$E(X,1,30),DA)"
^DD(757.13,5,1,1,"%D",0)="^^3^3^2970729^^"
^DD(757.13,5,1,1,"%D",1,0)="^LEX(757.13,""AAID"",ID,IEN) - Where ID is the identifier of the ancestral "
^DD(757.13,5,1,1,"%D",2,0)="category and IEN is the internal entry number in the Source Category file"
^DD(757.13,5,1,1,"%D",3,0)="#757.13 where the identifier is located."
^DD(757.13,5,1,1,"DT")="2970626"
^DD(757.13,5,3)="Answer must be 1-20 characters in length."
^DD(757.13,5,21,0)="^^2^2^2970729^^^"
^DD(757.13,5,21,1,0)="This is the identifier of the ancestral category and consist of a code or a"
^DD(757.13,5,21,2,0)="range of codes assigned by the source vocabulary."
^DD(757.13,5,"DT")="2970729"
^DD(757.13,6,0)="FAMILY DESCENDANTS^F^^3;1^K:$L(X)>64!($L(X)<1) X"
^DD(757.13,6,3)="Answer must be 1-64 characters in length."
^DD(757.13,6,21,0)="^^3^3^2970729^^^"
^DD(757.13,6,21,1,0)="This is a listing of internal entry numbers starting with the ancestral"
^DD(757.13,6,21,2,0)="category to the named category (.01 field).  The internal entry numbers are "
^DD(757.13,6,21,3,0)="delimited by the tilde (~) character.  <ANC>~<...>~<...>~<PAR>~<CATEGORY>"
^DD(757.13,6,"DT")="2970626"
^DD(757.13,7,0)="FAMILY ANCESTORS^F^^3;2^K:$L(X)>64!($L(X)<1) X"
^DD(757.13,7,3)="Answer must be 1-64 characters in length."
^DD(757.13,7,21,0)="^^3^3^2970729^^^"
^DD(757.13,7,21,1,0)="This is a listing of internal entry numbers starting with the named category"
^DD(757.13,7,21,2,0)="(.01 field) to the ancestral category.  The internal entry numbers are "
^DD(757.13,7,21,3,0)="delimited by the tilde (~) character.  <CAT>~<PAR>~<...>~<...>~<ANC>"
^DD(757.13,7,"DT")="2970626"
^DD(757.13,8,0)="SOURCE^P757.14^LEX(757.14,^4;1^Q"
^DD(757.13,8,3)=""
^DD(757.13,8,21,0)="^^4^4^2970729^^^^"
^DD(757.13,8,21,1,0)="This is a pointer to the Source file #757.14 containing the common and "
^DD(757.13,8,21,2,0)="acceptable name for the source of the category (i.e., NDF VA Drug Class,"
^DD(757.13,8,21,3,0)="ICD Three Digit Classification, etc), and the source file or document "
^DD(757.13,8,21,4,0)="containing the category."
^DD(757.13,8,"DT")="2970701"
^DD(757.13,9,0)="SYSTEM OR GROUP^F^^5;1^K:$L(X)>64!($L(X)<1) X"
^DD(757.13,9,3)="Answer must be 1-64 characters in length."
^DD(757.13,9,21,0)="^^3^3^2970729^^^"
^DD(757.13,9,21,1,0)="This is the name of the system (i.e., cardiovascular, pulmonary, etc) or "
^DD(757.13,9,21,2,0)="group (pharmacy, etc) which is MOST frequently associated with the"
^DD(757.13,9,21,3,0)="source category."
^DD(757.13,9,"DT")="2970626"
^DD(757.13,"B","ANCESTOR CATEGORY",4)=""
^DD(757.13,"B","ANCESTOR CATEGORY IDENTIFIER",5)=""
^DD(757.13,"B","CATEGORY IDENTIFIER",1)=""
^DD(757.13,"B","CATEGORY NAME",.01)=""
^DD(757.13,"B","FAMILY ANCESTORS",7)=""
^DD(757.13,"B","FAMILY DESCENDANTS",6)=""
^DD(757.13,"B","PARENT CATEGORY",2)=""
^DD(757.13,"B","PARENT CATEGORY IDENTIFIER",3)=""
^DD(757.13,"B","SOURCE",8)=""
^DD(757.13,"B","SYSTEM OR GROUP",9)=""
^DD(757.13,"GL",0,1,.01)=""
^DD(757.13,"GL",0,2,1)=""
^DD(757.13,"GL",1,1,2)=""
^DD(757.13,"GL",1,2,3)=""
^DD(757.13,"GL",2,1,4)=""
^DD(757.13,"GL",2,2,5)=""
^DD(757.13,"GL",3,1,6)=""
^DD(757.13,"GL",3,2,7)=""
^DD(757.13,"GL",4,1,8)=""
^DD(757.13,"GL",5,1,9)=""
^DD(757.13,"IX",.01)=""
^DD(757.13,"IX",1)=""
^DD(757.13,"IX",3)=""
^DD(757.13,"IX",5)=""
^DD(757.13,"RQ",.01)=""
^DD(757.14,0)="FIELD^^2^3"
^DD(757.14,0,"DDA")="N"
^DD(757.14,0,"DT")="2970701"
^DD(757.14,0,"IX","B",757.14,.01)=""
^DD(757.14,0,"NM","SOURCE")=""
^DD(757.14,0,"PT",757.01,16)=""
^DD(757.14,0,"PT",757.13,8)=""
^DD(757.14,0,"VR")="2.0"
^DD(757.14,0,"VRPK")="LEX"
^DD(757.14,0,"VRRV")="3^2971015"
^DD(757.14,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(757.14,.01,1,0)="^.1"
^DD(757.14,.01,1,1,0)="757.14^B"
^DD(757.14,.01,1,1,1)="S ^LEX(757.14,""B"",$E(X,1,30),DA)="""""
^DD(757.14,.01,1,1,2)="K ^LEX(757.14,""B"",$E(X,1,30),DA)"
^DD(757.14,.01,1,1,"%D",0)="^^3^3^2970729^"
^DD(757.14,.01,1,1,"%D",1,0)="^LEX(757.14,""B"",NAME,IEN) - Where name is the name of a terminology or"
^DD(757.14,.01,1,1,"%D",2,0)="vocabulary source and IEN is the internal entry number in the Source file"
^DD(757.14,.01,1,1,"%D",3,0)="#757.14 where the source reference is located."
^DD(757.14,.01,3)="Answer must be 3-30 characters in length."
^DD(757.14,.01,21,0)="^^1^1^2970729^^^"
^DD(757.14,.01,21,1,0)="Descriptive name of the source of terminology/vocabulary."
^DD(757.14,.01,"DT")="2970701"
^DD(757.14,1,0)="FILE^NJ21,8^^0;2^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""9N.N) X"
^DD(757.14,1,3)="Type a Number between 0 and 999999999999, 8 Decimal Digits"
^DD(757.14,1,21,0)="^^2^2^2970729^^"
^DD(757.14,1,21,1,0)="If the source is a VistA file, the file number will be included in the"
^DD(757.14,1,21,2,0)="source reference."
^DD(757.14,1,"DT")="2970701"
^DD(757.14,2,0)="DOCUMENT^F^^0;3^K:$L(X)>63!($L(X)<1) X"
^DD(757.14,2,3)="Answer must be 1-63 characters in length."
^DD(757.14,2,21,0)="^^2^2^2970729^^"
^DD(757.14,2,21,1,0)="If the source is from a document, the document title will be included in"
^DD(757.14,2,21,2,0)="the source reference."
^DD(757.14,2,"DT")="2970701"
^DD(757.14,"B","DOCUMENT",2)=""
^DD(757.14,"B","FILE",1)=""
^DD(757.14,"B","NAME",.01)=""
^DD(757.14,"GL",0,1,.01)=""
^DD(757.14,"GL",0,2,1)=""
^DD(757.14,"GL",0,3,2)=""
^DD(757.14,"IX",.01)=""
^DD(757.14,"RQ",.01)=""
^DD(757.17,0)="NEGATION SUB-FIELD^^.01^1"
^DD(757.17,0,"DT")="2940328"
^DD(757.17,0,"IX","B",757.17,.01)=""
^DD(757.17,0,"NM","NEGATION")=""
^DD(757.17,0,"UP")="757.01"
^DD(757.17,.01,0)="NEGATION^MFI^^0;1^K:$L(X)>63!($L(X)<1) X"
^DD(757.17,.01,1,0)="^.1"
^DD(757.17,.01,1,1,0)="757.17^B"
^DD(757.17,.01,1,1,1)="S ^LEX(757.01,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(757.17,.01,1,1,2)="K ^LEX(757.01,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(757.17,.01,1,1,"%D",0)="^^5^5^2940928^^^^"
^DD(757.17,.01,1,1,"%D",1,0)="^LEX(757.01,EXP,4,""B"",NEG,IEN) - where EXP is the Internal Entry Number of the"
^DD(757.17,.01,1,1,"%D",2,0)="expression in the Expression file #757.01 which contains negated words (words"
^DD(757.17,.01,1,1,"%D",3,0)="not to use during lookup), NEG is the negated word to exclude from lookup, "
^DD(757.17,.01,1,1,"%D",4,0)="and IEN is the Internal Entry Number in the Negation Sub-file #757.17 where "
^DD(757.17,.01,1,1,"%D",5,0)="the negated word is located."
^DD(757.17,.01,3)="Answer must be 1-63 characters in length."
^DD(757.17,.01,21,0)="^^2^2^2940904^"
^DD(757.17,.01,21,1,0)="This field contains a single word which is negated with in an expression and is"
^DD(757.17,.01,21,2,0)="excluded from indexing for this expression only."
^DD(757.17,.01,"DT")="2940328"
^DD(757.17,"B","NEGATION",.01)=""
^DD(757.17,"GL",0,1,.01)=""
^DD(757.17,"IX",.01)=""
^DD(757.18,0)="SUPPLEMENTAL SUB-FIELD^^.01^1"
^DD(757.18,0,"DT")="2940204"
^DD(757.18,0,"IX","B",757.18,.01)=""
^DD(757.18,0,"NM","SUPPLEMENTAL")=""
^DD(757.18,0,"UP")="757.01"
^DD(757.18,.01,0)="WORD^MF^^0;1^K:$L(X)>63!($L(X)<1) X"
^DD(757.18,.01,1,0)="^.1"
^DD(757.18,.01,1,1,0)="757.18^B"
^DD(757.18,.01,1,1,1)="S ^LEX(757.01,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(757.18,.01,1,1,2)="K ^LEX(757.01,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(757.18,.01,1,1,"%D",0)="^^5^5^2940928^^"
^DD(757.18,.01,1,1,"%D",1,0)="^LEX(757.01,EXP,5,""B"",WORD,IEN) - where EXP is the Internal Entry Number of the"
^DD(757.18,.01,1,1,"%D",2,0)="expression in the Expression file #757.01 which has supplemental keywords "
^DD(757.18,.01,1,1,"%D",3,0)="used to assist in lookups, WORD is the supplemental keyword (not contained in"
^DD(757.18,.01,1,1,"%D",4,0)="the expression), and IEN is the Internal Entry Number of the Supplemental Word"
^DD(757.18,.01,1,1,"%D",5,0)="Sub-file #757.18 where the word is located."
^DD(757.18,.01,1,2,0)="757.01^AWORD^MUMPS"
^DD(757.18,.01,1,2,1)="D SSUP^LEXNDX6"
^DD(757.18,.01,1,2,2)="D KSUP^LEXNDX6"
^DD(757.18,.01,1,2,"%D",0)="^^5^5^2960402^"
^DD(757.18,.01,1,2,"%D",1,0)="^LEX(757.01,""AWRD"",WORD,MC,EXP,IEN) - where WORD is a Supplemental Keyword used"
^DD(757.18,.01,1,2,"%D",2,0)="during lookup, MC is the Internal Entry Number in file 757.01 where the Major"
^DD(757.18,.01,1,2,"%D",3,0)="Concept is located, EXP is the Internal Entry Number in file 757.01 where the"
^DD(757.18,.01,1,2,"%D",4,0)="Expression is located, and IEN is the Internal Entry Number in the Supplemental"
^DD(757.18,.01,1,2,"%D",5,0)="Word Sub-file 757.18 where the WORD is located."
^DD(757.18,.01,1,2,"DT")="2960402"
^DD(757.18,.01,3)="Answer must be 1-63 characters in length."
^DD(757.18,.01,21,0)="^^2^2^2940904^"
^DD(757.18,.01,21,1,0)="This field contains a single word not found within an expression which should"
^DD(757.18,.01,21,2,0)="be indexed for this expression only."
^DD(757.18,.01,"DT")="2961205"
^DD(757.18,"B","WORD",.01)=""
^DD(757.18,"GL",0,1,.01)=""
^DD(757.18,"IX",.01)=""
^DD(757.2,0)="FIELD^^200^21"
^DD(757.2,0,"DDA")="N"
^DD(757.2,0,"DT")="2970705"
^DD(757.2,0,"IX","AA",757.2,1)=""
^DD(757.2,0,"IX","AB",757.2,8)=""
^DD(757.2,0,"IX","ADEF",757.2,13)=""
^DD(757.2,0,"IX","AN",757.2,14)=""
^DD(757.2,0,"IX","APPS",757.2,13)=""
^DD(757.2,0,"IX","AUD",757.201,.01)=""
^DD(757.2,0,"IX","B",757.2,.01)=""
^DD(757.2,0,"IX","C",757.2,.01)=""
^DD(757.2,0,"IX","D",757.2,.01)=""
^DD(757.2,0,"NM","SUBSET DEFINITIONS")=""
^DD(757.2,0,"PK")="LEX"
^DD(757.2,0,"PT",757.21,1)=""
^DD(757.2,0,"VR")="2.0"
^DD(757.2,0,"VRPK")="LEX"
^DD(757.2,0,"VRRV")="6^2980422"
^DD(757.2,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X"
^DD(757.2,.01,.1)="DESCRIPTIVE TITLE"
^DD(757.2,.01,1,0)="^.1"
^DD(757.2,.01,1,1,0)="757.2^B"
^DD(757.2,.01,1,1,1)="S ^LEXT(757.2,""B"",$E(X,1,30),DA)="""""
^DD(757.2,.01,1,1,2)="K ^LEXT(757.2,""B"",$E(X,1,30),DA)"
^DD(757.2,.01,1,1,"%D",0)="^^3^3^2940902^^"
^DD(757.2,.01,1,1,"%D",1,0)="^LEXT(757.2,""B"",NAME,IEN) - where NAME is the subset Name (.01) and IEN is the"
^DD(757.2,.01,1,1,"%D",2,0)="Internal Entry Number of the Subset Definition file #757.02 where the subset"
^DD(757.2,.01,1,1,"%D",3,0)="name is located."
^DD(757.2,.01,1,2,0)="757.2^C^MUMPS"
^DD(757.2,.01,1,2,1)="S ^LEXT(757.2,""C"",$E($$UP^XLFSTR(X),1,63),DA)="""""
^DD(757.2,.01,1,2,2)="K ^LEXT(757.2,""C"",$E($$UP^XLFSTR(X),1,63),DA)"
^DD(757.2,.01,1,2,"%D",0)="^^3^3^2940902^^"
^DD(757.2,.01,1,2,"%D",1,0)="^LEXT(757.2,""C"",NAME,IEN) - where NAME is an extended 63 character uppercase"
^DD(757.2,.01,1,2,"%D",2,0)="subset Name (.01) and IEN is the Internal Entry Number of the Subset Definition"
^DD(757.2,.01,1,2,"%D",3,0)="file #757.2 where the subset name is located."
^DD(757.2,.01,1,2,"DT")="2940204"
^DD(757.2,.01,1,3,0)="757.2^D^MUMPS"
^DD(757.2,.01,1,3,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^LEXT(757.2,""D"",I,DA)="""",^LEXT(757.2,""D"",$$UP^XLFSTR(I),DA)="""",^LEXT(757.2,""D"",$$LOW^XLFSTR(I),DA)="""""
^DD(757.2,.01,1,3,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^LEXT(757.2,""D"",I,DA),^LEXT(757.2,""D"",$$UP^XLFSTR(I),DA),^LEXT(757.2,""D"",$$LOW^XLFSTR(I),DA)"
^DD(757.2,.01,1,3,"%D",0)="^^3^3^2960724^^"
^DD(757.2,.01,1,3,"%D",1,0)="^LEXT(757.2,""D"",WORD,IEN) - This is a word index on the Subset name"
^DD(757.2,.01,1,3,"%D",2,0)="where WORD is a single uppercase/lowercase word parsed from the name"
^DD(757.2,.01,1,3,"%D",3,0)="and IEN is the Internal Entry Number where this word is located."
^DD(757.2,.01,1,3,"DT")="2960724"
^DD(757.2,.01,3)="Descriptive title must be 3-35 characters in length."
^DD(757.2,.01,21,0)="^^1^1^2940902^^^^"
^DD(757.2,.01,21,1,0)="Vocabulary subset name (i.e., ""Nursing"", ""Social Work"")."
^DD(757.2,.01,"DT")="2960724"
^DD(757.2,1,0)="SHORT TITLE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X?3U) X"
^DD(757.2,1,1,0)="^.1"
^DD(757.2,1,1,1,0)="757.2^AA"
^DD(757.2,1,1,1,1)="S ^LEXT(757.2,""AA"",$E(X,1,30),DA)="""""
^DD(757.2,1,1,1,2)="K ^LEXT(757.2,""AA"",$E(X,1,30),DA)"
^DD(757.2,1,1,1,"%D",0)="^^5^5^2940902^^"
^DD(757.2,1,1,1,"%D",1,0)="^LEXT(757.2,""AA"",ST,IEN) - where ST is the Short Title (1) of a subset and IEN"
^DD(757.2,1,1,1,"%D",2,0)="is the Internal Entry Number in the Subset Definition file #757.2 where the"
^DD(757.2,1,1,1,"%D",3,0)="Short Title is located.  The Short Title when when appended with a leading ""A"""
^DD(757.2,1,1,1,"%D",4,0)="becomes the name of the index to use during look-up (i.e., NUR becomes ""ANUR"" "
^DD(757.2,1,1,1,"%D",5,0)="for the Nursing subset index)."
^DD(757.2,1,1,1,"DT")="2940519"
^DD(757.2,1,3)="Short Title (index mnemonic) must be 3 characters in length."
^DD(757.2,1,21,0)="^^3^3^2960812^^^^"
^DD(757.2,1,21,1,0)="Three character uppercase mnemonic representing the vocabulary subset."
^DD(757.2,1,21,2,0)="This short title, when appended with the letter ""A"" (i.e. ""A""_""NUR"" to"
^DD(757.2,1,21,3,0)="""ANUR"") becomes the name of the index to be used by the look-up utility."
^DD(757.2,1,"DT")="2960425"
^DD(757.2,2,0)="GLOBAL REFERENCE^RF^^1;2^K:$L(X)>40!($L(X)<4) X"
^DD(757.2,2,3)="Global Reference (less ^) must be 4-40 characters in length, i.e., LEX(757,"
^DD(757.2,2,21,0)="^^1^1^2940902^^^^"
^DD(757.2,2,21,1,0)="Global root of the file containing the vocabulary subset."
^DD(757.2,2,"DT")="2960401"
^DD(757.2,3,0)="HELP ROUTINE ENTRY POINT^RF^^2;1^K:$L(X)>8!($L(X)<1) X"
^DD(757.2,3,3)="Help Routine Entry Point must be 1-8 characters in length, i.e., XTLK"
^DD(757.2,3,21,0)="^^3^3^2940902^^"
^DD(757.2,3,21,1,0)="Contains the help routine's entry point (provided a separate help routine"
^DD(757.2,3,21,2,0)="has been written to support the vocabulary subset and the entry point of"
^DD(757.2,3,21,3,0)="this routine is other than the first line)."
^DD(757.2,3,"DT")="2960425"
^DD(757.2,4,0)="HELP ROUTINE^RF^^2;2^K:$L(X)>8!($L(X)<3) X"
^DD(757.2,4,3)="Help Routine must be 3-8 characters in length, i.e., LEXHLP"
^DD(757.2,4,21,0)="^^2^2^2960812^^^^"
^DD(757.2,4,21,1,0)="Contains the name of the help routine (provided a separate help routine"
^DD(757.2,4,21,2,0)="was written).  This help routine will be used by the look-up utility."
^DD(757.2,4,"DT")="2960401"
^DD(757.2,5,0)="DISPLAY ROUTINE ENTRY POINT^RF^^3;1^K:$L(X)>8!($L(X)<1) X"
^DD(757.2,5,3)="Display Routine Entry Point must be 1-8 characters in length, i.e., XTLK"
^DD(757.2,5,21,0)="^^3^3^2940902^^"
^DD(757.2,5,21,1,0)="Contains the display routine's entry point (provided a separate display"
^DD(757.2,5,21,2,0)="routine has been written to support the vocabulary subset and the entry"
^DD(757.2,5,21,3,0)="point of this routine is other than the first line)."
^DD(757.2,5,"DT")="2960425"
^DD(757.2,6,0)="DISPLAY ROUTINE^RF^^3;2^K:$L(X)>8!($L(X)<3) X"
^DD(757.2,6,3)="Display Routine must be 3-8 characters in length, i.e., LEXPRNT"
^DD(757.2,6,21,0)="^^3^3^2960812^^^^"
^DD(757.2,6,21,1,0)="Contains the name of the display routine (provided a separate display"
^DD(757.2,6,21,2,0)="routine was written).  This display routine will be used by the "
^DD(757.2,6,21,3,0)="look-up utility."
^DD(757.2,6,"DT")="2960401"
^DD(757.2,7,0)="DISPLAY CODES^F^^4;1^K:$L(X)>100!($L(X)<3) X"
^DD(757.2,7,3)="Display Code String must be 3-100 characters in length, i.e., ICD/NAN/NIC"
^DD(757.2,7,21,0)="^^4^4^2940902^^^"
^DD(757.2,7,21,1,0)="This field contains a string of classification/coding systems (separated"
^DD(757.2,7,21,2,0)="by slashes) to be displayed during look-up (i.e., ""ICD/CPT/DSM/NAN"")."
^DD(757.2,7,21,3,0)="This string will not override the user's preferred code display stored in"
^DD(757.2,7,21,4,0)="^LEXT(757.2,D0,200,DUZ,2)"
^DD(757.2,7,"DT")="2960401"
^DD(757.2,8,0)="APPLICATION MNEMONIC^FX^^5;1^K:X[""""""""!($A(X)=45) X I $D(X) I '+($$APPS^LEXHLP(X)) K X"
^DD(757.2,8,1,0)="^.1"
^DD(757.2,8,1,1,0)="757.2^AB^MUMPS"
^DD(757.2,8,1,1,1)="D SAPP^LEXNDX2"
^DD(757.2,8,1,1,2)="D KAPP^LEXNDX2"
^DD(757.2,8,1,1,"%D",0)="^^4^4^2940902^^"
^DD(757.2,8,1,1,"%D",1,0)="^LEXT(757.2,""AB"",AN,IEN) - where AN is the Application Mnemonic and IEN is the"
^DD(757.2,8,1,1,"%D",2,0)="Internal Entry Number of the Subset Definition file where the Application"
^DD(757.2,8,1,1,"%D",3,0)="Mnemonic is located.  This is an index of only those subsets which define an "
^DD(757.2,8,1,1,"%D",4,0)="application.  (Note:  Subsets which define a vocabulary are indexed at ""AA"")"
^DD(757.2,8,1,1,"DT")="2930909"
^DD(757.2,8,3)="Application Mnemonic must be 3 characters in length, and cannot be the same as the Short Title (index identifier at field 1)."
^DD(757.2,8,21,0)="^^5^5^2940902^^"
^DD(757.2,8,21,1,0)="Unique 3 character mnemonic representing either the application using the"
^DD(757.2,8,21,2,0)="Lexicon or if an application has more than one set of defaults,"
^DD(757.2,8,21,3,0)="it will represent the applications preference.  For example, PL1 - Problem "
^DD(757.2,8,21,4,0)="List Provider entry, PL2 - Problem List ICD only.  This field is populated "
^DD(757.2,8,21,5,0)="by DB Integration Agreement only"
^DD(757.2,8,"DT")="2960401"
^DD(757.2,9,0)="APPLICATION INDEX^F^^5;2^K:$L(X)>3!($L(X)<3) X"
^DD(757.2,9,3)="Application Index must be 3 characters in length."
^DD(757.2,9,21,0)="^^5^5^2940902^^"
^DD(757.2,9,21,1,0)="This is the index which the application will use during look-up.  This"
^DD(757.2,9,21,2,0)="index must be contained in the global defined in the Global Reference"
^DD(757.2,9,21,3,0)="(#2).  This index name will be appended with a leading ""A"" to create the"
^DD(757.2,9,21,4,0)="index name (i.e., ""A""_NUR to ""ANUR"" to use the Nursing Index).  This field"
^DD(757.2,9,21,5,0)="is populated by DB Integration Agreement only."
^DD(757.2,9,"DT")="2960401"
^DD(757.2,10,0)="APPLICATION FILTER^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(757.2,10,1,0)="^.1^^0"
^DD(757.2,10,3)="Application Filter is Standard MUMPS code."
^DD(757.2,10,9)="@"
^DD(757.2,10,21,0)="^^3^3^2940902^^^^"
^DD(757.2,10,21,1,0)="This is the filter to be used by the application during look-up.  It is in"
^DD(757.2,10,21,2,0)="the format of a valid IF statement without an action to perform when the"
^DD(757.2,10,21,3,0)="condition is true.  This field is populated by DB Integration Agreement only."
^DD(757.2,10,"DT")="2960401"
^DD(757.2,11,0)="APPLICATION DISPLAY CODES^F^^7;1^K:$L(X)>210!($L(X)<3) X"
^DD(757.2,11,3)="Application Display Codes must be 3-210 characters in length, i.e., ""ICD/CPT"""
^DD(757.2,11,21,0)="^^8^8^2940302^"
^DD(757.2,11,21,1,0)="This is a string of source abbreviations (separated by slashes) of the"
^DD(757.2,11,21,2,0)="source code to display for an application during look-up.  For example:"
^DD(757.2,11,21,3,0)=" "
^DD(757.2,11,21,4,0)="   ICD/CPT/DSM"
^DD(757.2,11,21,5,0)=" "
^DD(757.2,11,21,6,0)="   will display ICD-9, CPT-4 and DSM-3R codes with the term during look-up"
^DD(757.2,11,21,7,0)=" "
^DD(757.2,11,21,8,0)="This field is populated by DB Integration Agreement only."
^DD(757.2,11,"DT")="2960401"
^DD(757.2,12,0)="APPLICATION USER DEFAULTS^S^1:USER DEFAULTS ALLOWED;0:USER DEFAULTS ARE NOT ALLOWED;^5;3^Q"
^DD(757.2,12,21,0)="^^2^2^2951102^^^"
^DD(757.2,12,21,1,0)="This is a flag indicating whether an application allows users to specify"
^DD(757.2,12,21,2,0)="defaults in field 200 of this file."
^DD(757.2,12,"DT")="2960401"
^DD(757.2,13,0)="APPLICATION FILE NUMBER^NJ19,8^^5;4^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""9N.N) X"
^DD(757.2,13,1,0)="^.1"
^DD(757.2,13,1,1,0)="757.2^ADEF^MUMPS"
^DD(757.2,13,1,1,1)="S:+($P($G(^LEXT(757.2,DA,5)),U,3))>0 ^LEXT(757.2,""ADEF"",X,DA)="""""
^DD(757.2,13,1,1,2)="K ^LEXT(757.2,""ADEF"",X,DA)"
^DD(757.2,13,1,1,"%D",0)="3^^5^5^2940902^"
^DD(757.2,13,1,1,"%D",1,0)="^LEXT(757.2,""ADEF"",FI,IEN) - where FI is the Application File ID (13) and IEN is"
^DD(757.2,13,1,1,"%D",2,0)="the Internal Entry Number of the Subset Definition file #757.2 where the"
^DD(757.2,13,1,1,"%D",3,0)="Application File ID is located.  This index node is only set if Application"
^DD(757.2,13,1,1,"%D",4,0)="User Default flag (12) is set to 1, and provides an index of only those"
^DD(757.2,13,1,1,"%D",5,0)="applications who allow user defaults to be defined at the application level."
^DD(757.2,13,1,1,"DT")="2940316"
^DD(757.2,13,1,2,0)="757.2^APPS"
^DD(757.2,13,1,2,1)="S ^LEXT(757.2,""APPS"",$E(X,1,30),DA)="""""
^DD(757.2,13,1,2,2)="K ^LEXT(757.2,""APPS"",$E(X,1,30),DA)"
^DD(757.2,13,1,2,"%D",0)="^^4^4^2940902^^"
^DD(757.2,13,1,2,"%D",1,0)="^LEXT(757.2,""APPS"",FI,IEN) - where FI is the Application File ID (13) and IEN is"
^DD(757.2,13,1,2,"%D",2,0)="the Internal Entry Number of the Subset Definition file #757.2 where the"
^DD(757.2,13,1,2,"%D",3,0)="Application File ID is located.  This provides an index of all applications "
^DD(757.2,13,1,2,"%D",4,0)="defined in this file (with or without user defined defaults)."
^DD(757.2,13,1,2,"DT")="2940316"
^DD(757.2,13,3)="Type a Number between 1 and 9999999999, 8 Decimal Digits"
^DD(757.2,13,21,0)="^^2^2^2951016^^^^"
^DD(757.2,13,21,1,0)="This is the file number from the application where the pointer to the"
^DD(757.2,13,21,2,0)="Expressions file (#757.01) will be stored."
^DD(757.2,13,"DT")="2951016"
^DD(757.2,14,0)="APPLICATION NAMESPACE^F^^5;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2) X"
^DD(757.2,14,1,0)="^.1"
^DD(757.2,14,1,1,0)="757.2^AN"
^DD(757.2,14,1,1,1)="S ^LEXT(757.2,""AN"",$E(X,1,30),DA)="""""
^DD(757.2,14,1,1,2)="K ^LEXT(757.2,""AN"",$E(X,1,30),DA)"
^DD(757.2,14,1,1,"%D",0)="^^4^4^2940902^^"
^DD(757.2,14,1,1,"%D",1,0)="^LEXT(757.2,""AN"",AN,IEN) - where AN is an Application Namespace and IEN is the"
^DD(757.2,14,1,1,"%D",2,0)="Internal Entry Number of the Subset Definition file #757.2 where the"
^DD(757.2,14,1,1,"%D",3,0)="Application Namespace is located.  This index is used in both setting user "
^DD(757.2,14,1,1,"%D",4,0)="defaults and setting up the special variables for Lexicon look-up."
^DD(757.2,14,1,1,"DT")="2940520"
^DD(757.2,14,3)="Application Namespace must be 2-4 characters in length."
^DD(757.2,14,4)="Q"
^DD(757.2,14,21,0)="^^3^3^2940902^^^"
^DD(757.2,14,21,1,0)="This is the unique namespace prefix assigned to the package/application"
^DD(757.2,14,21,2,0)="which is defined in this file.  It is used to extract application level"
^DD(757.2,14,21,3,0)="defaults (filter/display/vocabulary)."
^DD(757.2,14,"DT")="2960401"
^DD(757.2,15,0)="UNRESOLVED NARRATIVES^S^1:Use Unresolved Narratives;0:Do not use Unresolved Narratives;^5;6^Q"
^DD(757.2,15,21,0)="^^5^5^2940902^^"
^DD(757.2,15,21,1,0)="The Lexicon has the ability to capture user narratives which"
^DD(757.2,15,21,2,0)="result in unsuccessful searches.  These ""Unresolved Narratives"" are"
^DD(757.2,15,21,3,0)="returned to developers for consideration in future releases of the"
^DD(757.2,15,21,4,0)="Lexicon.  This flag indicates whether an application will use the"
^DD(757.2,15,21,5,0)="unresolved feature of the Lexicon."
^DD(757.2,15,"DT")="2960401"
^DD(757.2,16,0)="OVERRIDE USER DEFAULTS^S^1:YES;0:NO;^5;7^Q"
^DD(757.2,16,21,0)="^^2^2^2960502^^^"
^DD(757.2,16,21,1,0)="Boolean flag for application definition to indicate if the application defaults"
^DD(757.2,16,21,2,0)="are to override the defaults set by the user."
^DD(757.2,16,"DT")="2960401"
^DD(757.2,17,0)="SHORTCUT CONTEXT^P757.41'^LEX(757.41,^5;8^Q"
^DD(757.2,17,21,0)="^^2^2^2950211^^^"
^DD(757.2,17,21,1,0)="This points to the context describing the set of shortcuts to use during"
^DD(757.2,17,21,2,0)="searches of the Lexicon."
^DD(757.2,17,"DT")="2950211"
^DD(757.2,18,0)="USER MODIFIERS^S^1:USE MODIFIERS;0:DO NOT USE MODIFIERS;^5;9^Q"
^DD(757.2,18,21,0)="^^3^3^2970705^"
^DD(757.2,18,21,1,0)="Some vocabularies have modifiers.  This field is a"
^DD(757.2,18,21,2,0)="flag indicating to the lookup whether these modifiers"
^DD(757.2,18,21,3,0)="should be accessed during the search."
^DD(757.2,18,"DT")="2970705"
^DD(757.2,100,0)="DESCRIPTION^757.22^^100;0"
^DD(757.2,100,21,0)="^^1^1^2950124^"
^DD(757.2,100,21,1,0)="Contains a description of the general make-up of the vocabulary/subset."
^DD(757.2,200,0)="DEFAULTS BY USER^757.201PA^^200;0"
^DD(757.2,200,21,0)="^^2^2^2950211^^^^"
^DD(757.2,200,21,1,0)="This multiple contains user defaults for the search filter, display and"
^DD(757.2,200,21,2,0)="the vocabulary for a limited number of applications."
^DD(757.2,"B","APPLICATION DISPLAY CODES",11)=""
^DD(757.2,"B","APPLICATION FILE NUMBER",13)=""
^DD(757.2,"B","APPLICATION FILTER",10)=""
^DD(757.2,"B","APPLICATION INDEX",9)=""
^DD(757.2,"B","APPLICATION MNEMONIC",8)=""
^DD(757.2,"B","APPLICATION NAMESPACE",14)=""
^DD(757.2,"B","APPLICATION USER DEFAULTS",12)=""
^DD(757.2,"B","DEFAULTS BY USER",200)=""
^DD(757.2,"B","DESCRIPTION",100)=""
^DD(757.2,"B","DESCRIPTIVE TITLE",.01)="1"
^DD(757.2,"B","DISPLAY CODES",7)=""
^DD(757.2,"B","DISPLAY ROUTINE",6)=""
^DD(757.2,"B","DISPLAY ROUTINE ENTRY POINT",5)=""
^DD(757.2,"B","GLOBAL REFERENCE",2)=""
^DD(757.2,"B","HELP ROUTINE",4)=""
^DD(757.2,"B","HELP ROUTINE ENTRY POINT",3)=""
^DD(757.2,"B","NAME",.01)=""
^DD(757.2,"B","OVERRIDE USER DEFAULTS",16)=""
^DD(757.2,"B","SHORT TITLE",1)=""
^DD(757.2,"B","SHORTCUT CONTEXT",17)=""
^DD(757.2,"B","UNRESOLVED NARRATIVES",15)=""
^DD(757.2,"B","USER MODIFIERS",18)=""
^DD(757.2,"GL",0,1,.01)=""
^DD(757.2,"GL",0,2,1)=""
^DD(757.2,"GL",1,2,2)=""
^DD(757.2,"GL",2,1,3)=""
^DD(757.2,"GL",2,2,4)=""
^DD(757.2,"GL",3,1,5)=""
^DD(757.2,"GL",3,2,6)=""
^DD(757.2,"GL",4,1,7)=""
^DD(757.2,"GL",5,1,8)=""
^DD(757.2,"GL",5,2,9)=""
^DD(757.2,"GL",5,3,12)=""
^DD(757.2,"GL",5,4,13)=""
^DD(757.2,"GL",5,5,14)=""
^DD(757.2,"GL",5,6,15)=""
^DD(757.2,"GL",5,7,16)=""
^DD(757.2,"GL",5,8,17)=""
^DD(757.2,"GL",5,9,18)=""
^DD(757.2,"GL",6,"E1,245",10)=""
^DD(757.2,"GL",7,1,11)=""
^DD(757.2,"GL",100,0,100)=""
^DD(757.2,"GL",200,0,200)=""
^DD(757.2,"IX",.01)=""
^DD(757.2,"IX",1)=""
^DD(757.2,"IX",8)=""
^DD(757.2,"IX",13)=""
^DD(757.2,"IX",14)=""
^DD(757.2,"RQ",.01)=""
^DD(757.2,"RQ",2)=""
^DD(757.2,"RQ",3)=""
^DD(757.2,"RQ",4)=""
^DD(757.2,"RQ",5)=""
^DD(757.2,"RQ",6)=""
^DD(757.2,"SB",757.201,200)=""
^DD(757.2,"SB",757.22,100)=""
^DD(757.201,0)="DEFAULTS BY USER SUB-FIELD^^4.5^9"
^DD(757.201,0,"DT")="2950120"
^DD(757.201,0,"IX","B",757.201,.01)=""
^DD(757.201,0,"NM","DEFAULTS BY USER")=""
^DD(757.201,0,"UP")="757.2"
^DD(757.201,.01,0)="USER^P200'X^VA(200,^0;1^S DINUM=X"
^DD(757.201,.01,1,0)="^.1"
^DD(757.201,.01,1,1,0)="757.201^B"
^DD(757.201,.01,1,1,1)="S ^LEXT(757.2,DA(1),200,""B"",$E(X,1,30),DA)="""""
^DD(757.201,.01,1,1,2)="K ^LEXT(757.2,DA(1),200,""B"",$E(X,1,30),DA)"
^DD(757.201,.01,1,1,"%D",0)="^^5^5^2940902^"
^DD(757.201,.01,1,1,"%D",1,0)="^LEX(757.1,SD,200,""B"",USER,IEN) - where SD is the Internal Entry Number for a"
^DD(757.201,.01,1,1,"%D",2,0)="Subset Definition in the Subset Definition file #757.2, USER is a pointer the"
^DD(757.201,.01,1,1,"%D",3,0)="the New Person file #200 who has default defined, and IEN is the Internal Entry"
^DD(757.201,.01,1,1,"%D",4,0)="Number in the Defaults by User Sub-file #757.201 where the user defaults are"
^DD(757.201,.01,1,1,"%D",5,0)="located."
^DD(757.201,.01,1,2,0)="757.2^AUD^MUMPS"
^DD(757.201,.01,1,2,1)="Q:+X<1  S:$L($G(^VA(200,+X,0))) ^LEXT(757.2,""AUD"",$P($G(^VA(200,+X,0)),U,1),+X,DA(1),DA)="""""
^DD(757.201,.01,1,2,2)="K:+X'<1&($L($G(^VA(200,+X,0)))) ^LEXT(757.2,""AUD"",$P($G(^VA(200,+X,0)),U,1),+X,DA(1),DA)"
^DD(757.201,.01,1,2,"%D",0)="^^7^7^2940902^^"
^DD(757.201,.01,1,2,"%D",1,0)="^LEXT(757.2,""AUD"",NAME,USER,SD,IEN) - where NAME is the name of the user taken"
^DD(757.201,.01,1,2,"%D",2,0)="from the New Person file #200, USER (.01) is a pointer to the New Person file "
^DD(757.201,.01,1,2,"%D",3,0)="#200, SD is the Internal Entry Number of the Subset Definition file #757.2"
^DD(757.201,.01,1,2,"%D",4,0)="where the Application Defaults are located, and IEN is the Internal Entry"
^DD(757.201,.01,1,2,"%D",5,0)="Number of the Defaults by User Sub-file #757.201 where the user defaults are"
^DD(757.201,.01,1,2,"%D",6,0)="located.  This is an index used to create alphabetical listings of users who "
^DD(757.201,.01,1,2,"%D",7,0)="have defaults set for the application defined at SD."
^DD(757.201,.01,1,2,"DT")="2940808"
^DD(757.201,.01,21,0)="^^2^2^2940902^^"
^DD(757.201,.01,21,1,0)="This is a pointer to the New Person file #200 of the user who has defined "
^DD(757.201,.01,21,2,0)="the defaults."
^DD(757.201,.01,"DT")="2940808"
^DD(757.201,1,0)="SEARCH FILTER^FX^^1;E1,245^K:$L(X)>245!($L(X)<3) X D:$D(X) ^DIM"
^DD(757.201,1,3)="Search Filter must be 3-245 characters in length, in the form of a valid MUMPS IF statement."
^DD(757.201,1,21,0)="^^2^2^2940902^^^"
^DD(757.201,1,21,1,0)="This is the search filter - DIC(""S"") - which was either selected or"
^DD(757.201,1,21,2,0)="created by the user for conducting searches in the Lexicon."
^DD(757.201,1,"DT")="2940825"
^DD(757.201,1.5,0)="SEARCH FILTER NAME^F^^1.5;1^K:$L(X)>200!($L(X)<1) X"
^DD(757.201,1.5,3)="Answer must be 1-200 characters in length."
^DD(757.201,1.5,21,0)="^^1^1^2950120^"
^DD(757.201,1.5,21,1,0)="This is the name of the user default search filter."
^DD(757.201,1.5,"DT")="2950120"
^DD(757.201,2,0)="DISPLAY^F^^2;1^K:$L(X)>210!($L(X)<3) X"
^DD(757.201,2,3)="Answer must be 3-210 characters in length."
^DD(757.201,2,21,0)="^^3^3^2940902^^"
^DD(757.201,2,21,1,0)="This is a string of classification codes to display while conducting"
^DD(757.201,2,21,2,0)="searches in the Lexicon.  It is a series of 3 character"
^DD(757.201,2,21,3,0)="mnemonics (separated by slashes).  For example:  ""ICD/CPT/DSM"""
^DD(757.201,2,"DT")="2940324"
^DD(757.201,2.5,0)="DISPLAY NAME^F^^2.5;1^K:$L(X)>200!($L(X)<1) X"
^DD(757.201,2.5,3)="Answer must be 1-200 characters in length."
^DD(757.201,2.5,21,0)="^^1^1^2950120^"
^DD(757.201,2.5,21,1,0)="This is the name of the default user display format."
^DD(757.201,2.5,"DT")="2950120"
^DD(757.201,3,0)="VOCABULARY^F^^3;1^K:$L(X)>3!($L(X)<3) X"
^DD(757.201,3,3)="Answer must be 3 characters in length."
^DD(757.201,3,21,0)="^^5^5^2940902^^"
^DD(757.201,3,21,1,0)="This is a 3 character mnemonic that, when appended with a leading ""A"""
^DD(757.201,3,21,2,0)="becomes the name of the index to use while searching the Lexicon."
^DD(757.201,3,21,3,0)="For example the subset mnemonic WRD for the Lexicon is indexed at"
^DD(757.201,3,21,4,0)="""AWRD"", SOC for the Social Work subset is indexed at ""ASOC"", and NUR for the "
^DD(757.201,3,21,5,0)="Nursing subset is indexed a ""ANUR""."
^DD(757.201,3,"DT")="2940324"
^DD(757.201,3.5,0)="VOCABULARY NAME^F^^3.5;1^K:$L(X)>200!($L(X)<1) X"
^DD(757.201,3.5,3)="Answer must be 1-200 characters in length."
^DD(757.201,3.5,21,0)="^^1^1^2950120^"
^DD(757.201,3.5,21,1,0)="This the name of the user default vocabulary (or subset)."
^DD(757.201,3.5,"DT")="2950120"
^DD(757.201,4,0)="SHORTCUTS^P757.41'^LEX(757.41,^4;1^Q"
^DD(757.201,4,21,0)="^^3^3^2950211^^^"
^DD(757.201,4,21,1,0)="This is a pointer to the Shortcuts Context file #757.41 which determines"
^DD(757.201,4,21,2,0)="the group of shortcuts in the Shortcuts file #757.4 to be used during searches"
^DD(757.201,4,21,3,0)="of the Lexicon."
^DD(757.201,4,"DT")="2950211"
^DD(757.201,4.5,0)="SHORTCUTS NAME^F^^4.5;1^K:$L(X)>200!($L(X)<1) X"
^DD(757.201,4.5,3)="Shortcut Context Name must be 1-200 characters in length."
^DD(757.201,4.5,21,0)="^^2^2^2950211^^"
^DD(757.201,4.5,21,1,0)="This is the name of the user default context for the set of shortcuts to use"
^DD(757.201,4.5,21,2,0)="during searches of the Lexicon."
^DD(757.201,4.5,"DT")="2950211"
^DD(757.201,"B","DISPLAY",2)=""
^DD(757.201,"B","DISPLAY NAME",2.5)=""
^DD(757.201,"B","SEARCH FILTER",1)=""
^DD(757.201,"B","SEARCH FILTER NAME",1.5)=""
^DD(757.201,"B","SHORTCUTS",4)=""
^DD(757.201,"B","SHORTCUTS NAME",4.5)=""
^DD(757.201,"B","USER",.01)=""
^DD(757.201,"B","VOCABULARY",3)=""
^DD(757.201,"B","VOCABULARY NAME",3.5)=""
^DD(757.201,"GL",0,1,.01)=""
^DD(757.201,"GL",1,"E1,245",1)=""
^DD(757.201,"GL",1.5,1,1.5)=""
^DD(757.201,"GL",2,1,2)=""
^DD(757.201,"GL",2.5,1,2.5)=""
^DD(757.201,"GL",3,1,3)=""
^DD(757.201,"GL",3.5,1,3.5)=""
^DD(757.201,"GL",4,1,4)=""
^DD(757.201,"GL",4.5,1,4.5)=""
^DD(757.201,"IX",.01)=""
^DD(757.21,0)="FIELD^^1^2"
^DD(757.21,0,"DDA")="N"
^DD(757.21,0,"DT")="2930329"
^DD(757.21,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^LEXT(757.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(757.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(757.21,0,"IX","AA",757.21,1)=""
^DD(757.21,0,"IX","B",757.21,.01)=""
^DD(757.21,0,"IX","C",757.21,.01)=""
^DD(757.21,0,"NM","SUBSETS")=""
^DD(757.21,0,"PK")="LEX"
^DD(757.21,0,"VR")="2.0"
^DD(757.21,0,"VRPK")="LEX"
^DD(757.21,0,"VRRV")="53^3071001"
^DD(757.21,.01,0)="EXPRESSION^RP757.01'I^LEX(757.01,^0;1^Q"
^DD(757.21,.01,.1)="EXP"
^DD(757.21,.01,1,0)="^.1"
^DD(757.21,.01,1,1,0)="757.21^B"
^DD(757.21,.01,1,1,1)="S ^LEX(757.21,""B"",$E(X,1,30),DA)="""""
^DD(757.21,.01,1,1,2)="K ^LEX(757.21,""B"",$E(X,1,30),DA)"
^DD(757.21,.01,1,1,"%D",0)="^^3^3^2940902^"
^DD(757.21,.01,1,1,"%D",1,0)="^LEX(757.21,""B"",EXP,IEN) - where EXP is the Expression (.01) pointer to the"
^DD(757.21,.01,1,1,"%D",2,0)="Expression file #757.01 and IEN is the Internal Entry Number of the Subsets"
^DD(757.21,.01,1,1,"%D",3,0)="file #757.21 where the expression pointer is located."
^DD(757.21,.01,1,2,0)="757.21^C^MUMPS"
^DD(757.21,.01,1,2,1)="S ^LEX(757.21,""C"",$E($$UP^XLFSTR(^LEX(757.01,X,0)),1,63),DA)="""""
^DD(757.21,.01,1,2,2)="K ^LEX(757.21,""C"",$E($$UP^XLFSTR(^LEX(757.01,X,0)),1,63),DA)"
^DD(757.21,.01,1,2,"%D",0)="^^5^5^2940902^^"
^DD(757.21,.01,1,2,"%D",1,0)="^LEX(757.21,""C"",EXP,IEN) - where EXP is a 63 character uppercase expression"
^DD(757.21,.01,1,2,"%D",2,0)="taken from the Expression file #757.01 Display Text (.01) and IEN is the"
^DD(757.21,.01,1,2,"%D",3,0)="Internal Entry Number of the Subsets file #757.21 where the expression pointer"
^DD(757.21,.01,1,2,"%D",4,0)="is located.  This index simulates the functionality of the B index in the "
^DD(757.21,.01,1,2,"%D",5,0)="Expression file #757.01."
^DD(757.21,.01,1,2,"DT")="2940302"
^DD(757.21,.01,3)=""
^DD(757.21,.01,21,0)="^^3^3^2930518^"
^DD(757.21,.01,21,1,0)="Contains a pointer to an expression (file #757.01), however, that"
^DD(757.21,.01,21,2,0)="expression (not the pointer) is indexed in this file, thus creating the"
^DD(757.21,.01,21,3,0)="impression of a separate vocabulary."
^DD(757.21,.01,"DT")="2940302"
^DD(757.21,1,0)="SUBSET^RP757.2'I^LEXT(757.2,^0;2^Q"
^DD(757.21,1,1,0)="^.1"
^DD(757.21,1,1,1,0)="757.21^AA^MUMPS"
^DD(757.21,1,1,1,1)="D SS^LEXNDX2"
^DD(757.21,1,1,1,2)="D SK^LEXNDX2"
^DD(757.21,1,1,1,"%D",0)="^^16^16^2951102^^^^"
^DD(757.21,1,1,1,"%D",1,0)="^LEX(757.21,IDX,WORD,IEN) - where IDX is the subset index (the letter ""A"""
^DD(757.21,1,1,1,"%D",2,0)="appended to the Short Title of the subset taken from the Subset Definition "
^DD(757.21,1,1,1,"%D",3,0)="file #757.2), WORD is a single word parsed from the Display Text of the"
^DD(757.21,1,1,1,"%D",4,0)="Expression file #757.01 pointed to by the expression (.01), and IEN is the"
^DD(757.21,1,1,1,"%D",5,0)="Internal Entry Number of the Subsets file #757.21 where the pointer of the"
^DD(757.21,1,1,1,"%D",6,0)="expression containing the WORD and the pointer to the Subset Definition are"
^DD(757.21,1,1,1,"%D",7,0)="located.  The ""AA"" index does not exist physically.  The indexing routine "
^DD(757.21,1,1,1,"%D",8,0)="determines the vocabulary which is used (as pointed to in the Subset "
^DD(757.21,1,1,1,"%D",9,0)="Definition file #757.2, i.e., NUR).  It then appends a leading ""A"" to the "
^DD(757.21,1,1,1,"%D",10,0)="vocabulary mnemonic (Short Title) creating a composite index identifier "
^DD(757.21,1,1,1,"%D",11,0)="(i.e., ""ANUR"").  Finally, it parses and indexes the words found in the "
^DD(757.21,1,1,1,"%D",12,0)="expression (pointed to by the .01 field) using the composite index identifier."
^DD(757.21,1,1,1,"%D",13,0)="For example, ^LEX(757.21,DA,0)= 262363^2, where 262363 points to the "
^DD(757.21,1,1,1,"%D",14,0)="expression ""ABUSED ADULT, POTENTIAL"" and 2 points to the Subset definition "
^DD(757.21,1,1,1,"%D",15,0)="""Nursing"" with the vocabulary mnemonic ""NUR"", the words ""ABUSED"", ""ADULT"" and"
^DD(757.21,1,1,1,"%D",16,0)="""POTENTIAL"" would be indexed at ^LEX(757.21,""ANUR"",WORD,IEN)."
^DD(757.21,1,1,1,"DT")="2930909"
^DD(757.21,1,21,0)="^^4^4^2940322^"
^DD(757.21,1,21,1,0)="Pointer to the subset definitions (file 757.2).  This pointer indicates"
^DD(757.21,1,21,2,0)="how the expression is to be indexed (i.e., pointing to the Nursing subset"
^DD(757.21,1,21,3,0)="in the definition file creates an index of the expression with the"
^DD(757.21,1,21,4,0)="cross-reference of ""ANUR"")"
^DD(757.21,1,"DT")="2940322"
^DD(757.21,"B","EXP",.01)="1"
^DD(757.21,"B","EXPRESSION",.01)=""
^DD(757.21,"B","SUBSET",1)=""
^DD(757.21,"GL",0,1,.01)=""
^DD(757.21,"GL",0,2,1)=""
^DD(757.21,"IX",.01)=""
^DD(757.21,"IX",1)=""
^DD(757.21,"RQ",.01)=""
^DD(757.21,"RQ",1)=""
^DD(757.22,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(757.22,0,"DT")="2950124"
^DD(757.22,0,"NM","DESCRIPTION")=""
^DD(757.22,0,"UP")="757.2"
^DD(757.22,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(757.22,.01,21,0)="^^2^2^2950124^"
^DD(757.22,.01,21,1,0)="Contains a description of the general make-up of the vocabulary/subset, and"
^DD(757.22,.01,21,2,0)="may be used for help in special look-up in this file."
^DD(757.22,.01,"DT")="2950124"
^DD(757.22,"B","DESCRIPTION",.01)=""
^DD(757.22,"GL",0,1,.01)=""
^DD(757.28,0)="ACTIVATION STATUS SUB-FIELD^^1^2"
^DD(757.28,0,"DT")="3030305"
^DD(757.28,0,"IX","B",757.28,.01)=""
^DD(757.28,0,"NM","ACTIVATION STATUS")=""
^DD(757.28,0,"UP")="757.02"
^DD(757.28,.01,0)="ACTIVATION EFFECTIVE DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(757.28,.01,1,0)="^.1"
^DD(757.28,.01,1,1,0)="757.28^B"
^DD(757.28,.01,1,1,1)="S ^LEX(757.02,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(757.28,.01,1,1,2)="K ^LEX(757.02,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(757.28,.01,1,2,0)="757.02^ACT2^MUMPS"
^DD(757.28,.01,1,2,1)="D SAHD^LEXNDX8"
^DD(757.28,.01,1,2,2)="D KAHD^LEXNDX8"
^DD(757.28,.01,1,2,"%D",0)="^^6^6^3030310^"
^DD(757.28,.01,1,2,"%D",1,0)="^LEX(757.02,""ACT"",CODE,STA,DATE,IEN,HIS) - Where CODE is the "
^DD(757.28,.01,1,2,"%D",2,0)="classification code, STA is the status (either 1 for active "
^DD(757.28,.01,1,2,"%D",3,0)="or 0 for inactive), DATE is the date the code was activated"
^DD(757.28,.01,1,2,"%D",4,0)="or inactivated, IEN is the internal entry number in the CODES"
^DD(757.28,.01,1,2,"%D",5,0)="file, and HIS is the entry number of the Activation Status "
^DD(757.28,.01,1,2,"%D",6,0)="multiple where this historical entry may be found."
^DD(757.28,.01,1,2,"DT")="3030310"
^DD(757.28,.01,3)="(No range limit on date)"
^DD(757.28,.01,"DT")="3030310"
^DD(757.28,1,0)="ACTIVATION STATUS^S^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(757.28,1,1,0)="^.1"
^DD(757.28,1,1,1,0)="757.02^ACT3^MUMPS"
^DD(757.28,1,1,1,1)="D SAHS^LEXNDX8"
^DD(757.28,1,1,1,2)="D KAHS^LEXNDX8"
^DD(757.28,1,1,1,"%D",0)="^^6^6^3030310^"
^DD(757.28,1,1,1,"%D",1,0)="^LEX(757.02,""ACT"",CODE,STA,DATE,IEN,HIS) - Where CODE is the "
^DD(757.28,1,1,1,"%D",2,0)="classification code, STA is the status (either 1 for active "
^DD(757.28,1,1,1,"%D",3,0)="or 0 for inactive), DATE is the date the code was activated"
^DD(757.28,1,1,1,"%D",4,0)="or inactivated, IEN is the internal entry number in the CODES"
^DD(757.28,1,1,1,"%D",5,0)="file, and HIS is the entry number of the Activation Status "
^DD(757.28,1,1,1,"%D",6,0)="multiple where this historical entry may be found."
^DD(757.28,1,1,1,"DT")="3030310"
^DD(757.28,1,"DT")="3030310"
^DD(757.28,"B","ACTIVATION EFFECTIVE DATE",.01)=""
^DD(757.28,"B","ACTIVATION STATUS",1)=""
^DD(757.28,"GL",0,1,.01)=""
^DD(757.28,"GL",0,2,1)=""
^DD(757.28,"IX",.01)=""
^DD(757.28,"IX",1)=""
^DD(757.3,0)="FIELD^^6^7"
^DD(757.3,0,"DDA")="N"
^DD(757.3,0,"DT")="2951016"
^DD(757.3,0,"IX","APPS",757.3,3)=""
^DD(757.3,0,"IX","AS",757.3,1)=""
^DD(757.3,0,"IX","B",757.3,.01)=""
^DD(757.3,0,"IX","C",757.3,.01)=""
^DD(757.3,0,"IX","D",757.3,.01)=""
^DD(757.3,0,"NM","LOOK-UP SCREENS")=""
^DD(757.3,0,"VR")="2.0"
^DD(757.3,0,"VRPK")="LEX"
^DD(757.3,0,"VRRV")="39^3060101"
^DD(757.3,.01,0)="DESCRIPTIVE TITLE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<3)!'(X'?1P.E) X"
^DD(757.3,.01,1,0)="^.1"
^DD(757.3,.01,1,1,0)="757.3^B"
^DD(757.3,.01,1,1,1)="S ^LEX(757.3,""B"",$E(X,1,30),DA)="""""
^DD(757.3,.01,1,1,2)="K ^LEX(757.3,""B"",$E(X,1,30),DA)"
^DD(757.3,.01,1,1,"%D",0)="^^3^3^2940902^"
^DD(757.3,.01,1,1,"%D",1,0)="^LEX(757.3,""B"",DT,IEN) - where DT is the Descriptive Title (.01) and IEN is the"
^DD(757.3,.01,1,1,"%D",2,0)="Internal Entry Number in the Look-up Screens file #757.3 where the descriptive"
^DD(757.3,.01,1,1,"%D",3,0)="title of a screen is located."
^DD(757.3,.01,1,2,0)="757.3^C^MUMPS"
^DD(757.3,.01,1,2,1)="S ^LEX(757.3,""C"",$E(X,1,63),DA)="""""
^DD(757.3,.01,1,2,2)="K ^LEX(757.3,""C"",$E(X,1,63),DA)"
^DD(757.3,.01,1,2,"%D",0)="^^3^3^2940902^^^"
^DD(757.3,.01,1,2,"%D",1,0)="^LEX(757.3,""C"",DT,IEN) - where DT is an extended 63 character representation of"
^DD(757.3,.01,1,2,"%D",2,0)="the Descriptive Title (.01) and IEN is the Internal Entry Number in the Look-up"
^DD(757.3,.01,1,2,"%D",3,0)="Screens file #757.3 where the descriptive title of a screen is located."
^DD(757.3,.01,1,2,"DT")="2930526"
^DD(757.3,.01,1,3,0)="757.3^D^MUMPS"
^DD(757.3,.01,1,3,1)="S ^LEX(757.3,""D"",$$UP^XLFSTR(X),DA)="""""
^DD(757.3,.01,1,3,2)="K ^LEX(757.3,""D"",$$UP^XLFSTR(X),DA)"
^DD(757.3,.01,1,3,"%D",0)="^^4^4^2940902^^^"
^DD(757.3,.01,1,3,"%D",1,0)="^LEX(757.3,""D"",DT,IEN) - where DT is an extended 63 character, all uppercase"
^DD(757.3,.01,1,3,"%D",2,0)="representation of the Descriptive Title (.01) and IEN is the Internal Entry"
^DD(757.3,.01,1,3,"%D",3,0)="Number in the Look-up Screens file #757.3 where the descriptive title of a"
^DD(757.3,.01,1,3,"%D",4,0)="screen is located."
^DD(757.3,.01,1,3,"DT")="2940302"
^DD(757.3,.01,3)="Answer must be 3-63 characters in length."
^DD(757.3,.01,21,0)="^^1^1^2930903^^^^"
^DD(757.3,.01,21,1,0)="Descriptive title indicating the purpose of the screen."
^DD(757.3,.01,"DT")="2940513"
^DD(757.3,1,0)="SCREEN^RK^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(757.3,1,1,0)="^.1"
^DD(757.3,1,1,1,0)="757.3^AS^MUMPS"
^DD(757.3,1,1,1,1)="S ^LEX(757.3,""AS"",$E(X,1,63),DA)="""""
^DD(757.3,1,1,1,2)="K ^LEX(757.3,""AS"",$E(X,1,63),DA)"
^DD(757.3,1,1,1,"%D",0)="^^3^3^2950123^^"
^DD(757.3,1,1,1,"%D",1,0)="^LEX(757.3,""AS"",SCR,IEN) - Where SCR is a 63 character extraction of the"
^DD(757.3,1,1,1,"%D",2,0)="Screen, and IEN is the Internal Entry Number in file 757.3 where the screen is"
^DD(757.3,1,1,1,"%D",3,0)="stored."
^DD(757.3,1,1,1,"DT")="2950123"
^DD(757.3,1,3)="This is Standard MUMPS code."
^DD(757.3,1,9)="@"
^DD(757.3,1,21,0)="^^2^2^2940902^^"
^DD(757.3,1,21,1,0)="This string takes the form of a valid IF statement without an action to"
^DD(757.3,1,21,2,0)="perform."
^DD(757.3,1,"DT")="2950123"
^DD(757.3,2,0)="TYPE OF SCREEN^RSI^U:USER PREFERENCE SCREEN;A:APPLICATION DEFINED SCREEN;^0;2^Q"
^DD(757.3,2,21,0)="^^8^8^2940302^"
^DD(757.3,2,21,1,0)="This is a flag used by the Lexicon to differentiate between"
^DD(757.3,2,21,2,0)="screens defined for users and screens defined specifically for an"
^DD(757.3,2,21,3,0)="application.  This flag also controls how an entry is indexed."
^DD(757.3,2,21,4,0)=" "
^DD(757.3,2,21,5,0)="  U - User screen"
^DD(757.3,2,21,6,0)="  A - Application screen"
^DD(757.3,2,21,7,0)=" "
^DD(757.3,2,21,8,0)="This field is populated by DB Integration Agreement only."
^DD(757.3,2,"DT")="2931124"
^DD(757.3,3,0)="APPLICATION IDENTIFICATION^FIX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:($L(X)>8!($L(X)<2))&'(X?1U.UN) X"
^DD(757.3,3,1,0)="^.1"
^DD(757.3,3,1,1,0)="757.3^APPS^MUMPS"
^DD(757.3,3,1,1,1)="S:$P(^LEX(757.3,DA,0),U,2)=""A"" ^LEX(757.3,""APPS"",X,DA)="""""
^DD(757.3,3,1,1,2)="K ^LEX(757.3,""APPS"",X,DA)"
^DD(757.3,3,1,1,"%D",0)="^^4^4^2940902^^"
^DD(757.3,3,1,1,"%D",1,0)="^LEX(757.3,""APPS"",AP,IEN) - where AP is the Application Identification (3) and"
^DD(757.3,3,1,1,"%D",2,0)="IEN is the Internal Entry Number in the Look-up Screens file #757.3 where the"
^DD(757.3,3,1,1,"%D",3,0)="application identification is located.  This provides an index of only those "
^DD(757.3,3,1,1,"%D",4,0)="screens defined by an application."
^DD(757.3,3,1,1,"DT")="2930527"
^DD(757.3,3,3)="Application Identification (package/name space) must be 2-8 characters in length."
^DD(757.3,3,21,0)="^^4^4^2940316^^"
^DD(757.3,3,21,1,0)="This is the application namespace (where type of screen = ""A"") for which"
^DD(757.3,3,21,2,0)="the screen was developed."
^DD(757.3,3,21,3,0)=" "
^DD(757.3,3,21,4,0)="This field is populated by DB Integration Agreement only."
^DD(757.3,3,"DT")="2931209"
^DD(757.3,4,0)="APPLICATION FILE NUMBER^NJ19,8^^0;4^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""9N.N) X"
^DD(757.3,4,3)="Type a Number between 1 and 9999999999, 8 Decimal Digits"
^DD(757.3,4,21,0)="^^3^3^2951016^^^^"
^DD(757.3,4,21,1,0)="This is the file number where an application will store the pointer to the"
^DD(757.3,4,21,2,0)="Expressions file (#757.01).  This field should only contain data if the "
^DD(757.3,4,21,3,0)="screen has been defined as the default screen for the application."
^DD(757.3,4,"DT")="2951016"
^DD(757.3,5,0)="DESCRIPTION^757.305^^2;0"
^DD(757.3,5,21,0)="^^1^1^2950120^"
^DD(757.3,5,21,1,0)="Basic description of the intended use of the filter/screen."
^DD(757.3,6,0)="ACCEPTABLE VOCABULARIES^757.36^^3;0"
^DD(757.3,6,21,0)="^^4^4^2950123^"
^DD(757.3,6,21,1,0)="Not all screens (filters) will work with all vocabularies.  For example,"
^DD(757.3,6,21,2,0)="the ""Nursing Diagnosis only"" screen used on the Dental vocabulary will"
^DD(757.3,6,21,3,0)="result in ""No matches found"".  This is a list of the vocabularies (the"
^DD(757.3,6,21,4,0)="vocabulary mnemonic) which the screen will work successfully with."
^DD(757.3,"B","ACCEPTABLE VOCABULARIES",6)=""
^DD(757.3,"B","APPLICATION FILE NUMBER",4)=""
^DD(757.3,"B","APPLICATION IDENTIFICATION",3)=""
^DD(757.3,"B","DESCRIPTION",5)=""
^DD(757.3,"B","DESCRIPTIVE TITLE",.01)=""
^DD(757.3,"B","SCREEN",1)=""
^DD(757.3,"B","TYPE OF SCREEN",2)=""
^DD(757.3,"GL",0,1,.01)=""
^DD(757.3,"GL",0,2,2)=""
^DD(757.3,"GL",0,3,3)=""
^DD(757.3,"GL",0,4,4)=""
^DD(757.3,"GL",1,"E1,245",1)=""
^DD(757.3,"GL",2,0,5)=""
^DD(757.3,"GL",3,0,6)=""
^DD(757.3,"IX",.01)=""
^DD(757.3,"IX",1)=""
^DD(757.3,"IX",3)=""
^DD(757.3,"RQ",.01)=""
^DD(757.3,"RQ",1)=""
^DD(757.3,"RQ",2)=""
^DD(757.3,"SB",757.305,5)=""
^DD(757.3,"SB",757.36,6)=""
^DD(757.305,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(757.305,0,"DT")="2950120"
^DD(757.305,0,"NM","DESCRIPTION")=""
^DD(757.305,0,"UP")="757.3"
^DD(757.305,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(757.305,.01,21,0)="^^2^2^2950120^^"
^DD(757.305,.01,21,1,0)="Basic description of the intended use of the filter/screen.  This text may"
^DD(757.305,.01,21,2,0)="be used as help in the special look-up of file 757.3."
^DD(757.305,.01,"DT")="2950120"
^DD(757.305,"B","DESCRIPTION",.01)=""
^DD(757.305,"GL",0,1,.01)=""
^DD(757.31,0)="FIELD^^3^4"
^DD(757.31,0,"DDA")="N"
^DD(757.31,0,"DT")="2950110"
^DD(757.31,0,"IX","ADSP",757.31,2)=""
^DD(757.31,0,"IX","B",757.31,.01)=""
^DD(757.31,0,"IX","C",757.31,.01)=""
^DD(757.31,0,"NM","DISPLAYS")=""
^DD(757.31,0,"VR")="2.0"
^DD(757.31,0,"VRPK")="LEX"
^DD(757.31,0,"VRRV")="5^2980131"
^DD(757.31,.01,0)="TITLE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(757.31,.01,1,0)="^.1"
^DD(757.31,.01,1,1,0)="757.31^B"
^DD(757.31,.01,1,1,1)="S ^LEX(757.31,""B"",$E(X,1,30),DA)="""""
^DD(757.31,.01,1,1,2)="K ^LEX(757.31,""B"",$E(X,1,30),DA)"
^DD(757.31,.01,1,1,"%D",0)="^^3^3^2950117^"
^DD(757.31,.01,1,1,"%D",1,0)="^LEX(757.31,""B"",DES,IEN) - Where DES is a 30 character representation of the"
^DD(757.31,.01,1,1,"%D",2,0)="Description, and IEN is the Internal Entry Number in file 757.31 where the"
^DD(757.31,.01,1,1,"%D",3,0)="display is stored."
^DD(757.31,.01,1,2,0)="757.31^C^MUMPS"
^DD(757.31,.01,1,2,1)="S ^LEX(757.31,""C"",$$UP^XLFSTR($E(X,1,30)),DA)="""""
^DD(757.31,.01,1,2,2)="K ^LEX(757.31,""C"",$$UP^XLFSTR($E(X,1,30)),DA)"
^DD(757.31,.01,1,2,"%D",0)="^^3^3^2950117^^"
^DD(757.31,.01,1,2,"%D",1,0)="^LEX(757.31,""C"",UPPER,IEN) - Where UPPER is an uppercase 30 character"
^DD(757.31,.01,1,2,"%D",2,0)="representation of the Description, and IEN is the Internal Entry Number in file"
^DD(757.31,.01,1,2,"%D",3,0)="757.31 where the display is stored."
^DD(757.31,.01,1,2,"DT")="2950110"
^DD(757.31,.01,3)="Description must be 3-30 characters in length."
^DD(757.31,.01,21,0)="^^2^2^2950110^^"
^DD(757.31,.01,21,1,0)="This is a short descriptive title indicating the function or purpose of "
^DD(757.31,.01,21,2,0)="the display."
^DD(757.31,.01,"DT")="2950110"
^DD(757.31,1,0)="DISPLAY TYPE^RS^C:CLASSIFICATION CODES;S:SEMANTICS;F:FULL DISPLAY;^0;2^Q"
^DD(757.31,1,21,0)="^^1^1^2950110^"
^DD(757.31,1,21,1,0)="Display type indicates the print display method."
^DD(757.31,1,"DT")="2950110"
^DD(757.31,2,0)="DISPLAY^RF^^1;1^K:$L(X)>240!($L(X)<2) X"
^DD(757.31,2,1,0)="^.1"
^DD(757.31,2,1,1,0)="757.31^ADSP^MUMPS"
^DD(757.31,2,1,1,1)="S ^LEX(757.31,""ADSP"",$E(X,1,63),DA)="""""
^DD(757.31,2,1,1,2)="K ^LEX(757.31,""ADSP"",$E(X,1,63),DA)"
^DD(757.31,2,1,1,"%D",0)="^^3^3^2950123^"
^DD(757.31,2,1,1,"%D",1,0)="^LEX(757.31,""ADSP"",DSP,IEN) - Where DSP is a 63 character representation of the"
^DD(757.31,2,1,1,"%D",2,0)="display string and IEN is the Internal Entry Number in file 757.31 where the"
^DD(757.31,2,1,1,"%D",3,0)="display is stored."
^DD(757.31,2,1,1,"DT")="2950123"
^DD(757.31,2,3)="Display must be 2-240 characters in length."
^DD(757.31,2,21,0)="^^1^1^2950117^^"
^DD(757.31,2,21,1,0)="This string contains the instructions (parameters) for the display routines."
^DD(757.31,2,"DT")="2950123"
^DD(757.31,3,0)="DESCRIPTION^757.313^^2;0"
^DD(757.31,3,21,0)="^^1^1^2950118^^^"
^DD(757.31,3,21,1,0)="Contains a detailed description of exactly what is to be displayed."
^DD(757.31,"B","DESCRIPTION",3)=""
^DD(757.31,"B","DISPLAY",2)=""
^DD(757.31,"B","DISPLAY TYPE",1)=""
^DD(757.31,"B","TITLE",.01)=""
^DD(757.31,"GL",0,1,.01)=""
^DD(757.31,"GL",0,2,1)=""
^DD(757.31,"GL",1,1,2)=""
^DD(757.31,"GL",2,0,3)=""
^DD(757.31,"IX",.01)=""
^DD(757.31,"IX",2)=""
^DD(757.31,"RQ",.01)=""
^DD(757.31,"RQ",1)=""
^DD(757.31,"RQ",2)=""
^DD(757.31,"SB",757.313,3)=""
^DD(757.313,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(757.313,0,"DT")="2950110"
^DD(757.313,0,"NM","DESCRIPTION")=""
^DD(757.313,0,"UP")="757.31"
^DD(757.313,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(757.313,.01,21,0)="^^2^2^2950118^^^^"
^DD(757.313,.01,21,1,0)="This contains a detailed description of the display and may be used as"
^DD(757.313,.01,21,2,0)="help when using the look-up routine for this file."
^DD(757.313,.01,"DT")="2950110"
^DD(757.313,"B","DESCRIPTION",.01)=""
^DD(757.313,"GL",0,1,.01)=""
^DD(757.36,0)="ACCEPTABLE VOCABULARIES SUB-FIELD^^.01^1"
^DD(757.36,0,"DT")="2950123"
^DD(757.36,0,"IX","B",757.36,.01)=""
^DD(757.36,0,"NM","ACCEPTABLE VOCABULARIES")=""
^DD(757.36,0,"UP")="757.3"
^DD(757.36,.01,0)="VOCABULARY^MRF^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(757.36,.01,1,0)="^.1"
^DD(757.36,.01,1,1,0)="757.36^B"
^DD(757.36,.01,1,1,1)="S ^LEX(757.3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(757.36,.01,1,1,2)="K ^LEX(757.3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(757.36,.01,1,1,"%D",0)="^^4^4^2950123^"
^DD(757.36,.01,1,1,"%D",1,0)="^LEX(757.3,SCR,3,""B"",VOC,IEN) - Where SCR is the Internal Entry Number (IEN) in"
^DD(757.36,.01,1,1,"%D",2,0)="file 757.3, VOC is the three character mnemonic for the vocabulary, and IEN is"
^DD(757.36,.01,1,1,"%D",3,0)="the Internal Entry Number in the sub-file 757.36 where the vocabulary is"
^DD(757.36,.01,1,1,"%D",4,0)="stored."
^DD(757.36,.01,3)="Answer must be 3 characters in length."
^DD(757.36,.01,21,0)="^^2^2^2950123^^^"
^DD(757.36,.01,21,1,0)="This is the 3 character vocabulary mnemonic for the vocabulary.  This mnemonic,"
^DD(757.36,.01,21,2,0)="when appended with a leading ""A"", becomes the index to used during look-up."
^DD(757.36,.01,"DT")="2950123"
^DD(757.36,"B","VOCABULARY",.01)=""
^DD(757.36,"GL",0,1,.01)=""
^DD(757.36,"IX",.01)=""
^DD(757.36,"RQ",.01)=""
^DD(757.4,0)="FIELD^^1^2"
^DD(757.4,0,"DDA")="N"
^DD(757.4,0,"DT")="2941229"
^DD(757.4,0,"IX","AB",757.401,.01)=""
^DD(757.4,0,"IX","ARA",757.401,1)=""
^DD(757.4,0,"IX","B",757.4,.01)=""
^DD(757.4,0,"NM","SHORTCUTS")=""
^DD(757.4,0,"VR")="2.0"
^DD(757.4,0,"VRPK")="LEXICON UTILITY"
^DD(757.4,.01,0)="EXPRESSION^RP757.01'^LEX(757.01,^0;1^Q"
^DD(757.4,.01,1,0)="^.1"
^DD(757.4,.01,1,1,0)="757.4^B"
^DD(757.4,.01,1,1,1)="S ^LEX(757.4,""B"",$E(X,1,30),DA)="""""
^DD(757.4,.01,1,1,2)="K ^LEX(757.4,""B"",$E(X,1,30),DA)"
^DD(757.4,.01,1,1,"%D",0)="^^3^3^2950211^^"
^DD(757.4,.01,1,1,"%D",1,0)="^LEX(757.4,""B"",EXP,IEN) - where EXP is a pointer to an expression in the"
^DD(757.4,.01,1,1,"%D",2,0)="expression file #757.01, and IEN is the Internal Entry Number in the "
^DD(757.4,.01,1,1,"%D",3,0)="Shortcuts file #757.4 where the expression is stored."
^DD(757.4,.01,3)=""
^DD(757.4,.01,21,0)="^^2^2^2950211^^^^"
^DD(757.4,.01,21,1,0)="Pointer to an expression in file #757.01.  This expression will be returned if"
^DD(757.4,.01,21,2,0)="any of the context sensitive shortcuts are detected in the user input."
^DD(757.4,.01,"DT")="2941229"
^DD(757.4,1,0)="SHORTCUTS^757.401^^1;0"
^DD(757.4,1,21,0)="^^1^1^2950211^^^^"
^DD(757.4,1,21,1,0)="This is a list of shortcuts by context."
^DD(757.4,1,"DT")="2950211"
^DD(757.4,"B","EXPRESSION",.01)=""
^DD(757.4,"B","SHORTCUTS",1)=""
^DD(757.4,"GL",0,1,.01)=""
^DD(757.4,"GL",1,0,1)=""
^DD(757.4,"IX",.01)=""
^DD(757.4,"RQ",.01)=""
^DD(757.4,"SB",757.401,1)=""
^DD(757.401,0)="SHORTCUTS SUB-FIELD^^1^2"
^DD(757.401,0,"DT")="2941229"
^DD(757.401,0,"IX","AB",757.401,.01)=""
^DD(757.401,0,"IX","B",757.401,.01)=""
^DD(757.401,0,"NM","SHORTCUTS")=""
^DD(757.401,0,"UP")="757.4"
^DD(757.401,.01,0)="SHORTCUT^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<2) X"
^DD(757.401,.01,1,0)="^.1"
^DD(757.401,.01,1,1,0)="757.401^B"
^DD(757.401,.01,1,1,1)="S ^LEX(757.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(757.401,.01,1,1,2)="K ^LEX(757.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(757.401,.01,1,1,"%D",0)="^^3^3^2950211^^^^"
^DD(757.401,.01,1,1,"%D",1,0)="^LEX(757.4,SHCT,1,""B"",SC,IEN) - where SHCT is the entry number in the Shortcuts"
^DD(757.401,.01,1,1,"%D",2,0)="file, SC is a 30 character representation of the shortcut, and IEN is the"
^DD(757.401,.01,1,1,"%D",3,0)="Internal Entry Number of the Shortcuts sub-file where the shortcut is stored."
^DD(757.401,.01,1,2,0)="757.4^AB"
^DD(757.401,.01,1,2,1)="S ^LEX(757.4,""AB"",$E(X,1,63),DA(1),DA)="""""
^DD(757.401,.01,1,2,2)="K ^LEX(757.4,""AB"",$E(X,1,63),DA(1),DA)"
^DD(757.401,.01,1,2,"%D",0)="^^4^4^2950211^^^^"
^DD(757.401,.01,1,2,"%D",1,0)="^LEX(757.4,""AB"",SC,SHCT,IEN) - Where SC is a 63 character representation of the"
^DD(757.401,.01,1,2,"%D",2,0)="shortcut to look for in the users input, SHCT is the Internal Entry Number in "
^DD(757.401,.01,1,2,"%D",3,0)="the Shortcuts file #757.4, and IEN is the Internal Entry Number in the"
^DD(757.401,.01,1,2,"%D",4,0)="Shortcuts sub-file #757.401 where the keyword is stored."
^DD(757.401,.01,1,2,"DT")="2941229"
^DD(757.401,.01,1,3,0)="757.401^AB"
^DD(757.401,.01,1,3,1)="S ^LEX(757.4,DA(1),1,""AB"",$E(X,1,63),DA)="""""
^DD(757.401,.01,1,3,2)="K ^LEX(757.4,DA(1),1,""AB"",$E(X,1,63),DA)"
^DD(757.401,.01,1,3,"%D",0)="^^5^5^2950211^^"
^DD(757.401,.01,1,3,"%D",1,0)="^LEX(757.4,SHCT,1,""AB"",SC,IEN) - Where SHCT is the Internal Entry Number in "
^DD(757.401,.01,1,3,"%D",2,0)="the Shortcuts file, SC is a 63 character of the shortcut to look for in the"
^DD(757.401,.01,1,3,"%D",3,0)="users input, and IEN is the Internal Entry Number in the Shortcuts sub-file"
^DD(757.401,.01,1,3,"%D",4,0)="#757.401 where the shortcut is stored."
^DD(757.401,.01,1,3,"%D",5,0)=""
^DD(757.401,.01,1,3,"DT")="2941229"
^DD(757.401,.01,3)="Shortcut must be 2-63 characters in length."
^DD(757.401,.01,21,0)="^^2^2^2950211^^^^"
^DD(757.401,.01,21,1,0)="Shortcut to look for in the users input while searching the Expression file"
^DD(757.401,.01,21,2,0)="#757.01 of the Lexicon."
^DD(757.401,.01,"DT")="2950211"
^DD(757.401,1,0)="CONTEXT^RP757.41'^LEX(757.41,^0;2^Q"
^DD(757.401,1,1,0)="^.1"
^DD(757.401,1,1,1,0)="757.4^ARA^MUMPS"
^DD(757.401,1,1,1,1)="D SRA^LEXNDX6"
^DD(757.401,1,1,1,2)="D KRA^LEXNDX6"
^DD(757.401,1,1,1,"%D",0)="^^6^6^2950211^^^^"
^DD(757.401,1,1,1,"%D",1,0)="^LEX(757.4,""ARA"",SC,CXT,SHCT,IEN) - Where SC is the shortcut to look for in "
^DD(757.401,1,1,1,"%D",2,0)="the users input, CXT is the context in which the shortcut is used (pointer to"
^DD(757.401,1,1,1,"%D",3,0)="#757.41), SHCT is the Internal Entry Number of the Shortcuts file #757.4 "
^DD(757.401,1,1,1,"%D",4,0)="where the Expression pointer is stored, and IEN is the Internal Entry Number"
^DD(757.401,1,1,1,"%D",5,0)="in the Shortcuts sub-file #757.401 where the shortcut/context combination"
^DD(757.401,1,1,1,"%D",6,0)="is stored."
^DD(757.401,1,1,1,"DT")="2950117"
^DD(757.401,1,21,0)="^^6^6^2950211^^^^"
^DD(757.401,1,21,1,0)="Pointer to the Shortcut Context file.  The context of the shortcut set"
^DD(757.401,1,21,2,0)="is selectable as a user default.  This enables the same shortcut to"
^DD(757.401,1,21,3,0)="represent different expressions based on the context selected by the user."
^DD(757.401,1,21,4,0)="During searches of the Lexicon, if the shortcut is found in the "
^DD(757.401,1,21,5,0)="user's input (exact match), and the shortcut context is contained in the"
^DD(757.401,1,21,6,0)="user's defaults, then the expression pointed to will be returned immediately."
^DD(757.401,1,"DT")="2950117"
^DD(757.401,"B","CONTEXT",1)=""
^DD(757.401,"B","SHORTCUT",.01)=""
^DD(757.401,"GL",0,1,.01)=""
^DD(757.401,"GL",0,2,1)=""
^DD(757.401,"IX",.01)=""
^DD(757.401,"IX",1)=""
^DD(757.401,"RQ",1)=""
^DD(757.41,0)="FIELD^^2^4"
^DD(757.41,0,"DDA")="N"
^DD(757.41,0,"DT")="2950425"
^DD(757.41,0,"IX","B",757.41,.01)=""
^DD(757.41,0,"IX","C",757.41,.01)=""
^DD(757.41,0,"IX","D",757.41,.01)=""
^DD(757.41,0,"NM","SHORTCUT CONTEXT")=""
^DD(757.41,0,"PT",757.2,17)=""
^DD(757.41,0,"PT",757.201,4)=""
^DD(757.41,0,"PT",757.401,1)=""
^DD(757.41,0,"VR")="2.0"
^DD(757.41,0,"VRPK")="LEX"
^DD(757.41,0,"VRRV")="3^2971015"
^DD(757.41,.01,0)="CONTEXT^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(757.41,.01,1,0)="^.1"
^DD(757.41,.01,1,1,0)="757.41^B"
^DD(757.41,.01,1,1,1)="S ^LEX(757.41,""B"",$E(X,1,30),DA)="""""
^DD(757.41,.01,1,1,2)="K ^LEX(757.41,""B"",$E(X,1,30),DA)"
^DD(757.41,.01,1,1,"%D",0)="^^2^2^2950118^^"
^DD(757.41,.01,1,1,"%D",1,0)="^LEX(757.41,""B"",CON,IEN) - Where CON is the name of the context and IEN is the"
^DD(757.41,.01,1,1,"%D",2,0)="Internal Entry Number in file #757.41 where the context is stored."
^DD(757.41,.01,1,2,0)="757.41^C^KWIC"
^DD(757.41,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^LEX(757.41,""C"",I,DA)="""""
^DD(757.41,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^LEX(757.41,""C"",I,DA)"
^DD(757.41,.01,1,2,"%D",0)="^^4^4^2950424^"
^DD(757.41,.01,1,2,"%D",1,0)="^LEX(757.41,""C"",WRD,IEN) - Word index (mixed case) where WRD is a word"
^DD(757.41,.01,1,2,"%D",2,0)="contained in the Shortcut Context name and IEN is the Internal Entry Number"
^DD(757.41,.01,1,2,"%D",3,0)="in the Shortcut Context file (757.41) where the Shortcut Context name is "
^DD(757.41,.01,1,2,"%D",4,0)="located."
^DD(757.41,.01,1,2,"DT")="2950424"
^DD(757.41,.01,1,3,0)="757.41^D^KWIC"
^DD(757.41,.01,1,3,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^LEX(757.41,""D"",$$UP^XLFSTR(I),DA)="""""
^DD(757.41,.01,1,3,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^LEX(757.41,""D"",$$UP^XLFSTR(I),DA)"
^DD(757.41,.01,1,3,"%D",0)="^^3^3^2950424^"
^DD(757.41,.01,1,3,"%D",1,0)="^LEX(757.41,""D"",WRD,IEN) - Word index (upper case) where WRD is a word"
^DD(757.41,.01,1,3,"%D",2,0)="contained in the Shortcut Context name and IEN is the Internal Entry Number in"
^DD(757.41,.01,1,3,"%D",3,0)="the Shortcut Context file (757.41) where the Shortcut Context name is located."
^DD(757.41,.01,1,3,"DT")="2950424"
^DD(757.41,.01,3)="Context name must be 3-30 characters in length."
^DD(757.41,.01,21,0)="^^2^2^2950211^^^^"
^DD(757.41,.01,21,1,0)="This is the name of the context in which shortcuts will be used.  It is a"
^DD(757.41,.01,21,2,0)="selectable user default."
^DD(757.41,.01,"DT")="2950424"
^DD(757.41,.02,0)="ALLOW SITE EDIT^S^1:YES;^0;2^Q"
^DD(757.41,.02,21,0)="^^7^7^2950627^^"
^DD(757.41,.02,21,1,0)="This is a flag which indicates if a site should be allowed to edit the"
^DD(757.41,.02,21,2,0)="shortcuts.  Not all shortcut context should be editable at the site.  For"
^DD(757.41,.02,21,3,0)="example, it should not be permitted to add shortcuts to the context ""Null,"""
^DD(757.41,.02,21,4,0)="which was designed to be void of shortcuts.  Some shortcut context may be"
^DD(757.41,.02,21,5,0)="provided by and controlled by applications, and should not be edited at the"
^DD(757.41,.02,21,6,0)="sites.  However, this is the exception and not the rule.  The majority of "
^DD(757.41,.02,21,7,0)="the shortcuts will be site editable."
^DD(757.41,.02,"DT")="2950425"
^DD(757.41,1,0)="CONTEXT DESCRIPTION^757.411^^1;0"
^DD(757.41,1,21,0)="^^1^1^2950106^^"
^DD(757.41,1,21,1,0)="This is a description of the intent of the context usage."
^DD(757.41,2,0)="SCREEN^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(757.41,2,3)="This is Standard MUMPS code."
^DD(757.41,2,21,0)="^^5^5^2950109^"
^DD(757.41,2,21,1,0)="This is MUMPS code in the form of an IF statement without an action to "
^DD(757.41,2,21,2,0)="perform, similar Fileman's to DIC(""S"").  It is used as a screen during look-up"
^DD(757.41,2,21,3,0)="in the expression file to return only those expressions which qualifiy in this"
^DD(757.41,2,21,4,0)="context.  For example, the context ""ICD DIAGNOSIS/PROCEDURES"" has a screen"
^DD(757.41,2,21,5,0)="which excludes all expressions not linked to an ICD-9 code."
^DD(757.41,2,"DT")="2950109"
^DD(757.41,"B","ALLOW SITE EDIT",.02)=""
^DD(757.41,"B","CONTEXT",.01)=""
^DD(757.41,"B","CONTEXT DESCRIPTION",1)=""
^DD(757.41,"B","SCREEN",2)=""
^DD(757.41,"GL",0,1,.01)=""
^DD(757.41,"GL",0,2,.02)=""
^DD(757.41,"GL",1,0,1)=""
^DD(757.41,"GL",2,"E1,245",2)=""
^DD(757.41,"IX",.01)=""
^DD(757.41,"RQ",.01)=""
^DD(757.41,"SB",757.411,1)=""
^DD(757.411,0)="CONTEXT DESCRIPTION SUB-FIELD^^.01^1"
^DD(757.411,0,"DT")="2941229"
^DD(757.411,0,"NM","CONTEXT DESCRIPTION")=""
^DD(757.411,0,"UP")="757.41"
^DD(757.411,.01,0)="CONTEXT DESCRIPTION^W^^0;1^Q"
^DD(757.411,.01,21,0)="^^2^2^2950106^^"
^DD(757.411,.01,21,1,0)="This is a description of the intent of the context usage, and may be displayed"
^DD(757.411,.01,21,2,0)="during look-up."
^DD(757.411,.01,"DT")="2941229"
^DD(757.411,"B","CONTEXT DESCRIPTION",.01)=""
^DD(757.411,"GL",0,1,.01)=""
^DD(757.53,0)="LINKAGES SUB-FIELD^^.01^1"
^DD(757.53,0,"IX","B",757.53,.01)=""
^DD(757.53,0,"NM","LINKAGES")=""
^DD(757.53,0,"UP")="757.05"
^DD(757.53,.01,0)="EXPRESSION^P757.01'^LEX(757.01,^0;1^Q"
^DD(757.53,.01,1,0)="^.1"
^DD(757.53,.01,1,1,0)="757.53^B"
^DD(757.53,.01,1,1,1)="S ^LEX(757.05,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(757.53,.01,1,1,2)="K ^LEX(757.05,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(757.53,.01,1,1,"%D",0)="^^5^5^2940902^^"
^DD(757.53,.01,1,1,"%D",1,0)="^LEX(757.05,WORD,1,""B"",EXP,IEN) - where WORD is the Internal Entry Number in"
^DD(757.53,.01,1,1,"%D",2,0)="the Replacement Word file #757.05 where the linked Word (.01) is located, EXP"
^DD(757.53,.01,1,1,"%D",3,0)="is the Internal Entry Number in the Expression file #757.01 where the linked"
^DD(757.53,.01,1,1,"%D",4,0)="expression is located, and IEN is the Internal Entry Number of the Linkages"
^DD(757.53,.01,1,1,"%D",5,0)="Sub-file #757.53 where the Word-Expression linkage is located."
^DD(757.53,.01,1,2,0)="757.05^AEXP^MUMPS"
^DD(757.53,.01,1,2,1)="S:+X>1 ^LEX(757.05,""AEXP"",X,DA(1))="""""
^DD(757.53,.01,1,2,2)="K:+X>1 ^LEX(757.05,""AEXP"",X,DA(1))"
^DD(757.53,.01,1,2,"%D",0)="^^5^5^2940902^^"
^DD(757.53,.01,1,2,"%D",1,0)="^LEX(757.05,""AEXP"",EXP,IEN) - where EXP is the Internal Entry Number of the"
^DD(757.53,.01,1,2,"%D",2,0)="expression in the Expression file #757.01 which has been linked to a Word (.01)"
^DD(757.53,.01,1,2,"%D",3,0)="and IEN is the Internal Entry Number in the Replacement Word file #757.05 where"
^DD(757.53,.01,1,2,"%D",4,0)="the Word (1) which has been linked to an expression is located.  This index is"
^DD(757.53,.01,1,2,"%D",5,0)="created at the file (not sub-file) level."
^DD(757.53,.01,1,2,"DT")="2931213"
^DD(757.53,.01,21,0)="^^2^2^2951013^^"
^DD(757.53,.01,21,1,0)="This is a pointer to an expression which will use WORD (.01) as a keyword"
^DD(757.53,.01,21,2,0)="during look-up."
^DD(757.53,.01,"DT")="2951013"
^DD(757.53,"B","EXPRESSION",.01)=""
^DD(757.53,"GL",0,1,.01)=""
^DD(757.53,"IX",.01)=""
^DD(770,0)="FIELD^^100^16"
^DD(770,0,"DDA")="N"
^DD(770,0,"DT")="2950110"
^DD(770,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(770,0,"ID",3)="W ""   "",$P(^(0),U,3)"
^DD(770,0,"ID",8)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HL(771,+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(771,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(770,0,"IX","AC",770,.01)=""
^DD(770,0,"IX","AD",770,.01)=""
^DD(770,0,"IX","AE",770,2)=""
^DD(770,0,"IX","AF",770,3)=""
^DD(770,0,"IX","AG",770,8)=""
^DD(770,0,"IX","AL",770,6)=""
^DD(770,0,"IX","ALOG",770,50)=""
^DD(770,0,"IX","B",770,.01)=""
^DD(770,0,"NM","HL7 NON-DHCP APPLICATION PARAMETER")=""
^DD(770,0,"PT",62.48,7)=""
^DD(770,0,"VR")="1.6"
^DD(770,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X I $D(X),$S($D(^HL(770,""B"",X)):1,$D(^HL(771,""B"",X)):1,1:0) K X D EN^DDIOL(""Sorry, Non-DHCP Application names must be unique."")"
^DD(770,.01,1,0)="^.1"
^DD(770,.01,1,1,0)="770^B"
^DD(770,.01,1,1,1)="S ^HL(770,""B"",$E(X,1,30),DA)="""""
^DD(770,.01,1,1,2)="K ^HL(770,""B"",$E(X,1,30),DA)"
^DD(770,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(770,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(770,.01,1,2,0)="770^AC^MUMPS"
^DD(770,.01,1,2,1)="S:$P(^HL(770,DA,0),""^"",3)]"""" ^HL(770,""AF"",X,$P(^(0),""^"",3),DA)="""""
^DD(770,.01,1,2,2)="K:$P(^HL(770,DA,0),""^"",3)]"""" ^HL(770,""AF"",X,$P(^(0),""^"",3),DA)"
^DD(770,.01,1,2,"%D",0)="^^9^9^2930514^"
^DD(770,.01,1,2,"%D",1,0)="This cross reference is used in conjunction with the 'AF' cross reference"
^DD(770,.01,1,2,"%D",2,0)="on the Facility Name field (#3) of the HL7 Non-DHCP Application Parameter"
^DD(770,.01,1,2,"%D",3,0)="file  to validate the non-DHCP application name and non-DHCP facility name"
^DD(770,.01,1,2,"%D",4,0)="that are contained in the message header of each HL7 message that is"
^DD(770,.01,1,2,"%D",5,0)="received."
^DD(770,.01,1,2,"%D",6,0)=" "
^DD(770,.01,1,2,"%D",7,0)="This is a multi-key cross reference which contains the name of the"
^DD(770,.01,1,2,"%D",8,0)="non-DHCP application in the first piece and the name of the non-DHCP"
^DD(770,.01,1,2,"%D",9,0)="facility in the second piece."
^DD(770,.01,1,2,"DT")="2910908"
^DD(770,.01,1,3,0)="770^AD^MUMPS"
^DD(770,.01,1,3,1)="S:$P(^HL(770,DA,0),""^"",2)]"""" ^HL(770,""AE"",X,$P(^(0),""^"",2),DA)="""""
^DD(770,.01,1,3,2)="K:$P(^HL(770,DA,0),""^"",2)]"""" ^HL(770,""AE"",X,$P(^(0),""^"",2),DA)"
^DD(770,.01,1,3,"%D",0)="^^9^9^2941130^^"
^DD(770,.01,1,3,"%D",1,0)="This cross reference is used in conjunction with the 'AE' cross reference"
^DD(770,.01,1,3,"%D",2,0)="on the DHCP Station Number field (#2) of the HL7 Non-DHCP Application"
^DD(770,.01,1,3,"%D",3,0)="Parameter file to validate the receiving DHCP facility for an HL7 message."
^DD(770,.01,1,3,"%D",4,0)="This information is contained in the message header that is received with"
^DD(770,.01,1,3,"%D",5,0)="every HL7 message."
^DD(770,.01,1,3,"%D",6,0)=" "
^DD(770,.01,1,3,"%D",7,0)="This is a multi-key cross reference that contains the name of the non-DHCP"
^DD(770,.01,1,3,"%D",8,0)="application in the first piece and the DHCP station number in the second"
^DD(770,.01,1,3,"%D",9,0)="piece."
^DD(770,.01,1,3,"DT")="2941130"
^DD(770,.01,3)="The name of the application from/to which HL7 messages may be transmitted by the DHCP system.  Answer must be 3-15 characters in length and must be unique."
^DD(770,.01,21,0)="^^7^7^2950110^^^^"
^DD(770,.01,21,1,0)="The applications that the DHCP system will communicate with are referred"
^DD(770,.01,21,2,0)="to as non-DHCP applications simply as a way of distinguishing between"
^DD(770,.01,21,3,0)="the two applications.  The application that the DHCP system will be"
^DD(770,.01,21,4,0)="communicating with could also be another DHCP application (e.g., Radiology"
^DD(770,.01,21,5,0)="sending/receiving HL7 messages to MAS)."
^DD(770,.01,21,6,0)=" "
^DD(770,.01,21,7,0)="All application names (in files 770 and 771 combined) must be unique."
^DD(770,.01,"DT")="2950110"
^DD(770,2,0)="DHCP STATION NUMBER^RFX^^0;2^S DIC=""^DIC(4,"",DIC(0)=""QEM"" D ^DIC S X=$S(Y<0:0,'$D(^DIC(4,+Y,99)):0,$P(^(99),""^"")']"""":0,1:$P(^(99),""^"")) K:X=0 X K DIC"
^DD(770,2,1,0)="^.1"
^DD(770,2,1,1,0)="770^AE^MUMPS"
^DD(770,2,1,1,1)="S ^HL(770,""AE"",$P(^HL(770,DA,0),""^""),X,DA)="""""
^DD(770,2,1,1,2)="K ^HL(770,""AE"",$P(^HL(770,DA,0),""^""),X,DA)"
^DD(770,2,1,1,"%D",0)="^^3^3^2941130^^^"
^DD(770,2,1,1,"%D",1,0)="This is the corresponding cross reference to the 'AD' cross reference on"
^DD(770,2,1,1,"%D",2,0)="the .01 field.  See the description on the 'AD' cross reference for"
^DD(770,2,1,1,"%D",3,0)="further information."
^DD(770,2,1,1,"DT")="2910925"
^DD(770,2,3)="The station number of the DHCP site that will receive/send HL7 messages to the non-DHCP application."
^DD(770,2,4)="S Z1=D,X=""?"",DIC=""^DIC(4,"",DIC(0)=""QEM"" D ^DIC S DIC=DIE,D=Z1 K Z1,DIC"
^DD(770,2,21,0)="^^1^1^2930505^"
^DD(770,2,21,1,0)="The station number of the DHCP site that will receive/send HL7 messages to the non-DHCP application."
^DD(770,2,"DT")="2911002"
^DD(770,3,0)="NON-DHCP FACILITY NAME^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(770,3,1,0)="^.1"
^DD(770,3,1,1,0)="770^AF^MUMPS"
^DD(770,3,1,1,1)="S ^HL(770,""AF"",$P(^HL(770,DA,0),""^""),X,DA)="""""
^DD(770,3,1,1,2)="K ^HL(770,""AF"",$P(^HL(770,DA,0),""^""),X,DA)"
^DD(770,3,1,1,"%D",0)="^^3^3^2930514^^"
^DD(770,3,1,1,"%D",1,0)="This is the corresponding cross reference to the 'AC' cross reference on"
^DD(770,3,1,1,"%D",2,0)="the .01 field.  See the description for the 'AC' cross reference for"
^DD(770,3,1,1,"%D",3,0)="further information."
^DD(770,3,1,1,"DT")="2910908"
^DD(770,3,3)="The name of the facility associated with the non-DHCP application.  Answer must be 3-20 characters in length."
^DD(770,3,21,0)="^^1^1^2930514^^"
^DD(770,3,21,1,0)="The name of the facility associated with the non-DHCP application."
^DD(770,3,"DT")="2940912"
^DD(770,4,0)="MAXIMUM BLOCK SIZE^RNJ3,0^^0;4^K:+X'=X!(X>245)!(X<80)!(X?.E1"".""1N.N) X"
^DD(770,4,3)="The maximum block size (line length) that the two applications can send/receive before a carriage return must be sent as a block separator.  Type a Number between 80 and 245, 0 Decimal Digits."
^DD(770,4,21,0)="^^1^1^2930315^"
^DD(770,4,21,1,0)="The maximum block size should almost always be 245 characters."
^DD(770,4,"DT")="2910930"
^DD(770,5,0)="NUMBER OF RETRIES^NJ2,0^^0;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(770,5,3)="The number of times (1 to 99) to attempt sending an HL7 message (if initially unsuccessful) before requeuing the message for later transmission.  A value of three is recommended."
^DD(770,5,21,0)="^^1^1^2930505^"
^DD(770,5,21,1,0)="The number of times (1 to 99) to attempt sending an HL7 message (if initially unsuccessful) before requeuing the message for later transmission.  A value of three is recommended."
^DD(770,5,"DT")="2910911"
^DD(770,6,0)="HL7 DEVICE^FX^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) K:'$D(^%ZIS(1,""B"",X)) X I $D(X),$P(^HL(770,DA,0),""^"",10) K X D EN^DDIOL(""You are not allowed to enter a value in both the Device and Mail Group fields."")"
^DD(770,6,1,0)="^.1"
^DD(770,6,1,1,0)="770^AL^MUMPS"
^DD(770,6,1,1,1)="S:$S('$D(^HL(770,DA,""LOG"")):0,1:$P(^(""LOG""),""^"")) ^HL(770,""ALOG"",X,DA)="""""
^DD(770,6,1,1,2)="K ^HL(770,""ALOG"",X,DA)"
^DD(770,6,1,1,"%D",0)="^^14^14^2930514^"
^DD(770,6,1,1,"%D",1,0)="This cross reference is used in conjunction with the 'ALOG' cross reference"
^DD(770,6,1,1,"%D",2,0)="on the Start/Stop Transmission Log field (#50) of the HL7 Non-DHCP"
^DD(770,6,1,1,"%D",3,0)="Application Parameter file.  When the value of field 50 is set to Start"
^DD(770,6,1,1,"%D",4,0)="Transmission Log and the HL7 Device field (#6) in the HL7 Non-DHCP"
^DD(770,6,1,1,"%D",5,0)="Application Parameter file is defined, the 'ALOG' cross reference is set."
^DD(770,6,1,1,"%D",6,0)="The 'ALOG' cross reference is used as a flag by the HL7 lower level"
^DD(770,6,1,1,"%D",7,0)="protocol routine (HLLP) to determine when to start and stop logging"
^DD(770,6,1,1,"%D",8,0)="information related to HL7 transmissions.  The log can be turned on during"
^DD(770,6,1,1,"%D",9,0)="initial testing of the HL7 link and anytime additional debugging is needed."
^DD(770,6,1,1,"%D",10,0)=" "
^DD(770,6,1,1,"%D",11,0)="The information captured by the log is stored in nodes descendant from the"
^DD(770,6,1,1,"%D",12,0)="^TMP(""HL"",ION) node, where ION is the name of the DHCP device that is"
^DD(770,6,1,1,"%D",13,0)="specified as the HL7 Device in field 6 of the HL7 Non-DHCP Application"
^DD(770,6,1,1,"%D",14,0)="Parameter file."
^DD(770,6,1,1,"DT")="2910926"
^DD(770,6,3)="The name of the device (must exactly match a name in the DHCP Device file) that will be used to send/receive HL7 messages to this non-DHCP application.  Answer must be 1-30 characters in length."
^DD(770,6,21,0)="^^5^5^2940907^^^^"
^DD(770,6,21,1,0)="NOTE:  This field is only applicable if you are using the HL7 Hybrid"
^DD(770,6,21,2,0)="Lower Layer Protocol.  The HL7 Device and Mail Group fields are mutually"
^DD(770,6,21,3,0)="exclusive. You may only enter a value in one of the fields.  If you wish"
^DD(770,6,21,4,0)="to enter a value in the HL7 Device field, you must first delete any value"
^DD(770,6,21,5,0)="you have entered in the Mail Group field."
^DD(770,6,"DT")="2950104"
^DD(770,7,0)="HL7 VERSION NUMBER^RP771.5'^HL(771.5,^0;7^Q"
^DD(770,7,3)="This is the version of the HL7 interface that the sending and receiving applications are using."
^DD(770,7,21,0)="^^1^1^2930505^"
^DD(770,7,21,1,0)="This is the version of the HL7 interface that the sending and receiving applications are using."
^DD(770,7,"DT")="2910930"
^DD(770,8,0)="DHCP APPLICATION^RP771'^HL(771,^0;8^Q"
^DD(770,8,1,0)="^.1"
^DD(770,8,1,1,0)="770^AG"
^DD(770,8,1,1,1)="S ^HL(770,""AG"",$E(X,1,30),DA)="""""
^DD(770,8,1,1,2)="K ^HL(770,""AG"",$E(X,1,30),DA)"
^DD(770,8,1,1,"%D",0)="^^2^2^2930514^^"
^DD(770,8,1,1,"%D",1,0)="Regular cross-reference for relating DHCP applications to non-DHCP"
^DD(770,8,1,1,"%D",2,0)="applications."
^DD(770,8,1,1,"DT")="2920311"
^DD(770,8,3)="This is the DHCP application related to this non-DHCP application entry."
^DD(770,8,21,0)="^^1^1^2930505^"
^DD(770,8,21,1,0)="This is the DHCP application related to this non-DHCP application entry."
^DD(770,8,"DT")="2920311"
^DD(770,9,0)="LOWER LEVEL PROTOCOL TIMEOUT^NJ2,0^^0;9^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(770,9,3)="The number of seconds (1 to 60) the lower level protocol should wait to receive data.  This field is only applicable if you are using the HL7 Hybrid Lower Layer Protocol."
^DD(770,9,21,0)="^^1^1^2930505^"
^DD(770,9,21,1,0)="The number of seconds (1 to 60) the lower level protocol should wait to receive data.  This field is only applicable if you are using the HL7 Hybrid Lower Layer Protocol."
^DD(770,9,"DT")="2911125"
^DD(770,10,0)="MAIL GROUP^P3.8'X^XMB(3.8,^0;10^I $P(^HL(770,DA,0),""^"",6)]"""" K X D EN^DDIOL(""You are not allowed to enter a value in both the Device and Mail Group fields."")"
^DD(770,10,3)="Enter the name of the mail group from the MailMan Mail Group file to which HL7 messages for this non-DHCP application should be sent.  Answer must be 3-30 characters in length."
^DD(770,10,21,0)="^^5^5^2941018^^^^"
^DD(770,10,21,1,0)="NOTE:  This field is only applicable if you are using the MailMan"
^DD(770,10,21,2,0)="lower level protocol.  The Mail Group and HL7 Device fields are"
^DD(770,10,21,3,0)="mutually exclusive.  You may only enter a value in one of the fields."
^DD(770,10,21,4,0)="If you wish to enter a value in the Mail Group field, you must first"
^DD(770,10,21,5,0)="delete any value you have entered in the HL7 Device field."
^DD(770,10,"DT")="2950104"
^DD(770,11,0)="TRANSMISSION TIME^F^^0;11^K:$L(X)>4!($L(X)<4)!'(X?4N!(X>2400)) X"
^DD(770,11,3)="The time that transmissions to the non-DHCP application should occur expressed in 24 hour notation (i.e., 0001 to 2400).  Answer must be 4 characters in length."
^DD(770,11,21,0)="^^2^2^2930505^"
^DD(770,11,21,1,0)="The time that transmissions to the non-DHCP application should occur"
^DD(770,11,21,2,0)="expressed in 24 hour notation (i.e., 0001 to 2400)."
^DD(770,11,"DT")="2911125"
^DD(770,12,0)="RELATED FILE 771 ENTRY^RP771'^HL(771,^0;12^Q"
^DD(770,12,3)="A link to the application entry in file 771.  All entries in file 770 must also be in file 771."
^DD(770,12,21,0)="^^1^1^2950110^^^"
^DD(770,12,21,1,0)="This field links entries in file 770 to corresponding entries in file 771."
^DD(770,12,"DT")="2950110"
^DD(770,13,0)="LAST TRANSMISSION DATE/TIME^D^^0;13^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(770,13,3)="The date and time of the last transmission to this non-DHCP application."
^DD(770,13,21,0)="^^1^1^2930505^^"
^DD(770,13,21,1,0)="The date and time of the last transmission to this non-DHCP application."
^DD(770,13,"DT")="2911125"
^DD(770,14,0)="HL7 PROCESSING ID^S^D:DEBUG;P:PRODUCTION;^0;14^Q"
^DD(770,14,3)="The HL7 processing ID may be either 'D' for 'DEBUG' or 'P' for 'PRODUCTION'.  'DEBUG' should be used while the interface is under test."
^DD(770,14,21,0)="^^1^1^2930505^"
^DD(770,14,21,1,0)="The HL7 processing ID may be either 'D' for 'DEBUG' or 'P' for 'PRODUCTION'.  'DEBUG' should be used while the interface is under test."
^DD(770,14,"DT")="2920114"
^DD(770,50,0)="START/STOP TRANSMISSION LOG^S^1:START LOG;0:STOP LOG;^LOG;1^Q"
^DD(770,50,1,0)="^.1"
^DD(770,50,1,1,0)="770^ALOG^MUMPS"
^DD(770,50,1,1,1)="S:$P(^HL(770,DA,0),""^"",6)]""""&(X=1) ^HL(770,""ALOG"",$P(^(0),""^"",6),DA)="""""
^DD(770,50,1,1,2)="K:$P(^HL(770,DA,0),""^"",6)]"""" ^HL(770,""ALOG"",$P(^(0),""^"",6),DA)"
^DD(770,50,1,1,"%D",0)="^^5^5^2930514^"
^DD(770,50,1,1,"%D",1,0)="This cross reference is used in conjuntion with the 'AL' cross reference"
^DD(770,50,1,1,"%D",2,0)="on the HL7 Device field (#6) of the HL7 Non-DHCP Application Parameter"
^DD(770,50,1,1,"%D",3,0)="file to set/delete a flag for starting/stopping the logging of HL7"
^DD(770,50,1,1,"%D",4,0)="transmission information.  See the description of the 'AL' cross reference"
^DD(770,50,1,1,"%D",5,0)="for further information."
^DD(770,50,1,1,"DT")="2910926"
^DD(770,50,3)="This field is set automatically by the DHCP HL7 package when the option Start/Stop Log of HL7 Transmissions is executed.  It indicates whether the log is turned on."
^DD(770,50,21,0)="^^3^3^2930514^"
^DD(770,50,21,1,0)="This field is set automatically by the DHCP HL7 package when the option"
^DD(770,50,21,2,0)="Start/Stop Log of HL7 Transmissions is executed.  It indicates whether the"
^DD(770,50,21,3,0)="log is turned on."
^DD(770,50,"DT")="2910926"
^DD(770,100,0)="PURPOSE^770.01^^100;0"
^DD(770,100,21,0)="^^4^4^2930505^"
^DD(770,100,21,1,0)="This field is used to document the purpose of this non-DHCP application"
^DD(770,100,21,2,0)="entry for local IRM staff.  Basic information about the types of"
^DD(770,100,21,3,0)="information exchanged, the frequency of the exchange, etc. should be"
^DD(770,100,21,4,0)="entered."
^DD(770,"B","DHCP APPLICATION",8)=""
^DD(770,"B","DHCP STATION NUMBER",2)=""
^DD(770,"B","HL7 DEVICE",6)=""
^DD(770,"B","HL7 PROCESSING ID",14)=""
^DD(770,"B","HL7 VERSION NUMBER",7)=""
^DD(770,"B","LAST TRANSMISSION DATE/TIME",13)=""
^DD(770,"B","LOWER LEVEL PROTOCOL TIMEOUT",9)=""
^DD(770,"B","MAIL GROUP",10)=""
^DD(770,"B","MAXIMUM BLOCK SIZE",4)=""
^DD(770,"B","NAME",.01)=""
^DD(770,"B","NON-DHCP FACILITY NAME",3)=""
^DD(770,"B","NUMBER OF RETRIES",5)=""
^DD(770,"B","PURPOSE",100)=""
^DD(770,"B","RELATED FILE 771 ENTRY",12)=""
^DD(770,"B","START/STOP TRANSMISSION LOG",50)=""
^DD(770,"B","TRANSMISSION TIME",11)=""
^DD(770,"GL",0,1,.01)=""
^DD(770,"GL",0,2,2)=""
^DD(770,"GL",0,3,3)=""
^DD(770,"GL",0,4,4)=""
^DD(770,"GL",0,5,5)=""
^DD(770,"GL",0,6,6)=""
^DD(770,"GL",0,7,7)=""
^DD(770,"GL",0,8,8)=""
^DD(770,"GL",0,9,9)=""
^DD(770,"GL",0,10,10)=""
^DD(770,"GL",0,11,11)=""
^DD(770,"GL",0,12,12)=""
^DD(770,"GL",0,13,13)=""
^DD(770,"GL",0,14,14)=""
^DD(770,"GL",100,0,100)=""
^DD(770,"GL","LOG",1,50)=""
^DD(770,"IX",.01)=""
^DD(770,"IX",2)=""
^DD(770,"IX",3)=""
^DD(770,"IX",6)=""
^DD(770,"IX",8)=""
^DD(770,"IX",50)=""
^DD(770,"RQ",.01)=""
^DD(770,"RQ",2)=""
^DD(770,"RQ",4)=""
^DD(770,"RQ",7)=""
^DD(770,"RQ",8)=""
^DD(770,"RQ",12)=""
^DD(770,"SB",770.01,100)=""
^DD(770.01,0)="PURPOSE SUB-FIELD^^.01^1"
^DD(770.01,0,"DT")="2930325"
^DD(770.01,0,"NM","PURPOSE")=""
^DD(770.01,0,"UP")="770"
^DD(770.01,.01,0)="PURPOSE^W^^0;1^Q"
^DD(770.01,.01,3)="This field should document the purpose of this non-DHCP application parameter entry.  It should describe what the application is, the type of data exchanged, reason for the exchange, etc."
^DD(770.01,.01,21,0)="^^1^1^2930505^"
^DD(770.01,.01,21,1,0)="This field should document the purpose of this non-DHCP application parameter entry.  It should describe what the application is, the type of data exchanged, reason for the exchange, etc."
^DD(770.01,.01,"DT")="2930325"
^DD(770.01,"B","PURPOSE",.01)=""
^DD(770.01,"GL",0,1,.01)=""
^DD(771,0)="FIELD^^101^9"
^DD(771,0,"DDA")="N"
^DD(771,0,"DT")="2980727"
^DD(771,0,"ID","W")="W ""   "",@(""$P($P($C(59)_$S($D(^DD(771,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(771,0,"IX","AC",771,.01)=""
^DD(771,0,"IX","AF",771,2)=""
^DD(771,0,"IX","B",771,.01)=""
^DD(771,0,"NM","HL7 APPLICATION PARAMETER")=""
^DD(771,0,"PT",39.4,.06)=""
^DD(771,0,"PT",74,9.3)=""
^DD(771,0,"PT",79.02,.01)=""
^DD(771,0,"PT",79.3,.02)=""
^DD(771,0,"PT",79.7,.01)=""
^DD(771,0,"PT",101,770.1)=""
^DD(771,0,"PT",101,770.2)=""
^DD(771,0,"PT",391.72,.02)=""
^DD(771,0,"PT",770,8)=""
^DD(771,0,"PT",770,12)=""
^DD(771,0,"PT",771.113,.01)=""
^DD(771,0,"PT",772,2)=""
^DD(771,0,"PT",772,3)=""
^DD(771,0,"PT",773,13)=""
^DD(771,0,"PT",773,14)=""
^DD(771,0,"PT",774.01,1)=""
^DD(771,0,"PT",776.53,.01)=""
^DD(771,0,"VR")="1.6"
^DD(771,0,"VRPK")="HL"
^DD(771,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>120!($L(X)<3)!'(X'?1P.E) X I $D(X),$D(^HL(771,""B"",X)) K X D EN^DDIOL(""Sorry, Application names must be unique."")"
^DD(771,.01,1,0)="^.1^^-1"
^DD(771,.01,1,1,0)="771^B"
^DD(771,.01,1,1,1)="S ^HL(771,""B"",$E(X,1,30),DA)="""""
^DD(771,.01,1,1,2)="K ^HL(771,""B"",$E(X,1,30),DA)"
^DD(771,.01,1,1,"%D",0)="^.101^1^1^3040302^^"
^DD(771,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771,.01,1,2,0)="771^AC^MUMPS"
^DD(771,.01,1,2,1)="S:$P(^HL(771,DA,0),""^"",2)]"""" ^HL(771,""AF"",X,$P(^(0),""^"",2),DA)="""""
^DD(771,.01,1,2,2)="K:$P(^HL(771,DA,0),""^"",2)]"""" ^HL(771,""AF"",X,$P(^(0),""^"",2),DA)"
^DD(771,.01,1,2,"%D",0)="^^3^3^2941130^^"
^DD(771,.01,1,2,"%D",1,0)="This cross reference is used in conjunction with the 'AF' cross reference"
^DD(771,.01,1,2,"%D",2,0)="on the Active/Inactive field (#2) to determine whether a specific"
^DD(771,.01,1,2,"%D",3,0)="Application is active."
^DD(771,.01,1,2,"DT")="2941130"
^DD(771,.01,3)="The name of the application that will send/receive HL7 messages (e.g., RADIOLOGY).  Vista application names must be namespaced and unique.  Answer must be 3-120 characters in length."
^DD(771,.01,21,0)="^^3^3^3040302^"
^DD(771,.01,21,1,0)="The name of the application that will send/receive HL7 messages"
^DD(771,.01,21,2,0)="(e.g., RADIOLOGY).  Vista application names must be namespaced and unique."
^DD(771,.01,21,3,0)="Answer must be 3-120 characters in length."
^DD(771,.01,"DT")="3040302"
^DD(771,2,0)="ACTIVE/INACTIVE^S^a:ACTIVE;i:INACTIVE;^0;2^Q"
^DD(771,2,1,0)="^.1^^0"
^DD(771,2,1,1,0)="771^AF^MUMPS"
^DD(771,2,1,1,1)="S ^HL(771,""AF"",$P(^HL(771,DA,0),""^""),X,DA)="""""
^DD(771,2,1,1,2)="K ^HL(771,""AF"",$P(^HL(771,DA,0),""^""),X,DA)"
^DD(771,2,1,1,"%D",0)="^^3^3^2930514^"
^DD(771,2,1,1,"%D",1,0)="This cross reference is used in conjunction with the 'AC' cross reference"
^DD(771,2,1,1,"%D",2,0)="on the Name field (#.01) to determine whether a specific DHCP Application"
^DD(771,2,1,1,"%D",3,0)="is active."
^DD(771,2,1,1,"DT")="2910826"
^DD(771,2,3)="This field indicates whether the DHCP application is currently active.  A DHCP application should be inactivated when application updates are taking place."
^DD(771,2,21,0)="^^8^8^2990707^"
^DD(771,2,21,1,0)="This field indicates whether the DHCP application is currently active.  A"
^DD(771,2,21,2,0)="DHCP application should be inactivated when application updates are taking"
^DD(771,2,21,3,0)="place."
^DD(771,2,21,4,0)=" "
^DD(771,2,21,5,0)="The HL7 package will not accept messages from an inactive SENDING"
^DD(771,2,21,6,0)="APPLICATION. An error will be returned from the call to GENERATE^HLMA."
^DD(771,2,21,7,0)="Also, it will not hand off inbound messages to an inactive RECEIVING"
^DD(771,2,21,8,0)="APPLICATION. An error status will be logged."
^DD(771,2,"DT")="2910925"
^DD(771,3,0)="FACILITY NAME^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(771,3,3)="Answer must be 1-80 characters in length"
^DD(771,3,21,0)="^^4^4^2990806^"
^DD(771,3,21,1,0)="This information will be placed in the FACILITY ID field of the HL7"
^DD(771,3,21,2,0)="message header if present. This information will override the"
^DD(771,3,21,3,0)="default facility id information whenever the FACILITY ID REQUIRED field of"
^DD(771,3,21,4,0)="the subscriber protocol is set to YES."
^DD(771,3,"DT")="3040302"
^DD(771,4,0)="MAIL GROUP^P3.8'^XMB(3.8,^0;4^Q"
^DD(771,4,3)="The mail group related to this application to which notifications will be sent should problems arise with delivering messages."
^DD(771,4,21,0)="^^3^3^2990707^"
^DD(771,4,21,1,0)="Vista applications may use this field to generate Mailman notifications"
^DD(771,4,21,2,0)="when messaging problems are detected. To retrieve this mailgroup, see"
^DD(771,4,21,3,0)="documentation for the API, GETAPP^HLCS2."
^DD(771,4,"DT")="2940708"
^DD(771,5,0)="*HL7 SEGMENT^771.05P^^SEG;0"
^DD(771,5,21,0)="^^2^2^2990707^"
^DD(771,5,21,1,0)="This is applicable to HL7 v1.5 interfaces only. Enter the HL7 segments"
^DD(771,5,21,2,0)="used by the Vista application."
^DD(771,5,"DT")="2990707"
^DD(771,6,0)="*HL7 MESSAGE^771.06P^^MSG;0"
^DD(771,6,21,0)="^^2^2^2990707^"
^DD(771,6,21,1,0)="This is applicable only to HL7 v1.5 interfaces. Enter the HL7 messages"
^DD(771,6,21,2,0)="used by the DHCP application."
^DD(771,6,"DT")="2990707"
^DD(771,7,0)="COUNTRY CODE^P779.004'^HL(779.004,^0;7^Q"
^DD(771,7,3)="The country code applicable to this application."
^DD(771,7,21,0)="^^1^1^2990707^"
^DD(771,7,21,1,0)="Enter the country code associated with this application."
^DD(771,7,"DT")="2940928"
^DD(771,100,0)="HL7 FIELD SEPARATOR^FX^^FS;E1,2^K:$L(X)>1!($L(X)<1)!'(X?1P) X S HLEC=$G(^HL(771,DA,""EC"")) I HLEC]"""",HLEC[X K X"
^DD(771,100,3)="The HL7 field separator used by the DHCP application.  If this field is not filled in, the uparrow (^) character is defaulted to as the field separator.  Answer must be 1 character in length."
^DD(771,100,21,0)="^^16^16^3000418^"
^DD(771,100,21,1,0)="The field separator separates two adjacent fields within a segment.  It"
^DD(771,100,21,2,0)="also separates the segment ID from the first data field in the segment."
^DD(771,100,21,3,0)="The field separator can be defined differently for each HL7 message.  The"
^DD(771,100,21,4,0)="fourth character in the MSH segment serves as the field separator for"
^DD(771,100,21,5,0)="all segments in the HL7 message."
^DD(771,100,21,6,0)=" "
^DD(771,100,21,7,0)="If this field is left blank, the default will be the '^' character."
^DD(771,100,21,8,0)="However, most messaging applications use the '|' as a field separator."
^DD(771,100,21,9,0)=" "
^DD(771,100,21,10,0)="Note that the character used as a field separator CANNOT be reused as one"
^DD(771,100,21,11,0)="of the HL7 ENCODING CHARACTERS. If you choose the default '^' as a"
^DD(771,100,21,12,0)="field separator then choose the default encoding characters as well"
^DD(771,100,21,13,0)="(~|\&). If you choose the vertical bar as a field separator, then simply"
^DD(771,100,21,14,0)="replace the vertical bar in the encoding characters with the '^', i.e.,"
^DD(771,100,21,15,0)="~^\&. Due to Fileman limitations, the '^' cannot be the first character in"
^DD(771,100,21,16,0)="the encoding character string."
^DD(771,100,"DT")="3000418"
^DD(771,101,0)="HL7 ENCODING CHARACTERS^FX^^EC;E1,4^K:$L(X)>4!($L(X)<1)!'(X?1.4P) X S HLFS=$G(^HL(771,DA,""FS"")) S:HLFS="""" HLFS=""^"" I X[HLFS K X"
^DD(771,101,3)="The HL7 encoding characters used by the DHCP application.  If this field is not filled in, the characters ~|\& are used as the default encoding characters.  Answer must be 1-4 characters in length."
^DD(771,101,21,0)="^^36^36^3000418^"
^DD(771,101,21,1,0)="If this field is left blank, the default encoding characters will be set"
^DD(771,101,21,2,0)="to, ""~|\&"". Note that if you choose this default, the FIELD SEPARATOR must"
^DD(771,101,21,3,0)="be set to ""^"". If you choose the vertical bar (""|"") as a field separator,"
^DD(771,101,21,4,0)="enter ""~^\&"" as your encoding characters. This will avoid a potential"
^DD(771,101,21,5,0)="conflict with VA Fileman."
^DD(771,101,21,6,0)=" "
^DD(771,101,21,7,0)="Up to four encoding characters may be defined. Each encoding character"
^DD(771,101,21,8,0)="must be unique and none of the encoding characters may be the same as the"
^DD(771,101,21,9,0)="field separator character. Each encoding character serves a specific"
^DD(771,101,21,10,0)="purpose."
^DD(771,101,21,11,0)=" "
^DD(771,101,21,12,0)="The first encoding character is the component separator.  Some data"
^DD(771,101,21,13,0)="fields may be divided into multiple components.  The component separator"
^DD(771,101,21,14,0)="is used to separate adjacent components within a data field."
^DD(771,101,21,15,0)=" "
^DD(771,101,21,16,0)="The second encoding character is the repetition separator.  Some data"
^DD(771,101,21,17,0)="fields may be repeated multiple times in a segment.  The repetition"
^DD(771,101,21,18,0)="separator character is used to separate multiple occurrences of a field."
^DD(771,101,21,19,0)=" "
^DD(771,101,21,20,0)="The third encoding character is the escape character.  Data fields"
^DD(771,101,21,21,0)="defined as text or formatted text may include escape sequences.  The"
^DD(771,101,21,22,0)="escape character is used to separate escape sequences from the actual"
^DD(771,101,21,23,0)="text."
^DD(771,101,21,24,0)=" "
^DD(771,101,21,25,0)="The fourth encoding character is the sub-component separator.  Some data"
^DD(771,101,21,26,0)="fields may be divided into components, and each component may be further"
^DD(771,101,21,27,0)="divided into sub-components. The sub-component separator is used to"
^DD(771,101,21,28,0)="separate adjacent sub-components within a component of a field."
^DD(771,101,21,29,0)=" "
^DD(771,101,21,30,0)="Note that the character used as a field separator CANNOT be reused as one"
^DD(771,101,21,31,0)="of the HL7 ENCODING CHARACTERS. If you choose the default '^' as a"
^DD(771,101,21,32,0)="field separator then choose the default encoding characters as well"
^DD(771,101,21,33,0)="(~|\&). If you choose the vertical bar as a field separator, then simply"
^DD(771,101,21,34,0)="replace the vertical bar in the encoding characters with the '^', i.e.,"
^DD(771,101,21,35,0)="~^\&. Due to Fileman limitations, the '^' cannot be the first character in"
^DD(771,101,21,36,0)="the encoding character string."
^DD(771,101,"DT")="3000418"
^DD(771,"B","*HL7 MESSAGE",6)=""
^DD(771,"B","*HL7 SEGMENT",5)=""
^DD(771,"B","ACTIVE/INACTIVE",2)=""
^DD(771,"B","COUNTRY CODE",7)=""
^DD(771,"B","FACILITY NAME",3)=""
^DD(771,"B","HL7 ENCODING CHARACTERS",101)=""
^DD(771,"B","HL7 FIELD SEPARATOR",100)=""
^DD(771,"B","MAIL GROUP",4)=""
^DD(771,"B","NAME",.01)=""
^DD(771,"GL",0,1,.01)=""
^DD(771,"GL",0,2,2)=""
^DD(771,"GL",0,3,3)=""
^DD(771,"GL",0,4,4)=""
^DD(771,"GL",0,7,7)=""
^DD(771,"GL","EC","E1,4",101)=""
^DD(771,"GL","FS","E1,2",100)=""
^DD(771,"GL","MSG",0,6)=""
^DD(771,"GL","SEG",0,5)=""
^DD(771,"IX",.01)=""
^DD(771,"IX",2)=""
^DD(771,"RQ",.01)=""
^DD(771,"SB",771.05,5)=""
^DD(771,"SB",771.06,6)=""
^DD(771.05,0)="*HL7 SEGMENT SUB-FIELD^^2^2"
^DD(771.05,0,"DT")="2910818"
^DD(771.05,0,"IX","B",771.05,.01)=""
^DD(771.05,0,"NM","*HL7 SEGMENT")=""
^DD(771.05,0,"UP")="771"
^DD(771.05,.01,0)="HL7 SEGMENT^MRP771.3'^HL(771.3,^0;1^Q"
^DD(771.05,.01,1,0)="^.1"
^DD(771.05,.01,1,1,0)="771.05^B"
^DD(771.05,.01,1,1,1)="S ^HL(771,DA(1),""SEG"",""B"",$E(X,1,30),DA)="""""
^DD(771.05,.01,1,1,2)="K ^HL(771,DA(1),""SEG"",""B"",$E(X,1,30),DA)"
^DD(771.05,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.05,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.05,.01,3)="The HL7 segments used by the DHCP application."
^DD(771.05,.01,21,0)="^^1^1^2930505^"
^DD(771.05,.01,21,1,0)="The HL7 segments used by the DHCP application."
^DD(771.05,.01,"DT")="2930219"
^DD(771.05,2,0)="FIELDS USED IN THIS SEGMENT^RF^^F;1^K:$L(X)>245!($L(X)<1) X"
^DD(771.05,2,3)="A list of the HL7 field numbers used by the DHCP application in an HL7 segment.  Each field number is separated by a comma (e.g., 1,3,7,8,9,10).  Answer must be 1-245 characters in length."
^DD(771.05,2,21,0)="^^2^2^2930505^"
^DD(771.05,2,21,1,0)="A list of the HL7 field numbers used by the DHCP application in an HL7"
^DD(771.05,2,21,2,0)="segment.  Each field number is separated by a comma (e.g., 1,3,7,8,9,10)."
^DD(771.05,2,"DT")="2910818"
^DD(771.05,"B","FIELDS USED IN THIS SEGMENT",2)=""
^DD(771.05,"B","HL7 SEGMENT",.01)=""
^DD(771.05,"GL",0,1,.01)=""
^DD(771.05,"GL","F",1,2)=""
^DD(771.05,"IX",.01)=""
^DD(771.05,"RQ",.01)=""
^DD(771.05,"RQ",2)=""
^DD(771.06,0)="*HL7 MESSAGE SUB-FIELD^^1^2"
^DD(771.06,0,"DT")="2930219"
^DD(771.06,0,"IX","B",771.06,.01)=""
^DD(771.06,0,"NM","*HL7 MESSAGE")=""
^DD(771.06,0,"UP")="771"
^DD(771.06,.01,0)="HL7 MESSAGE^MRP771.2'^HL(771.2,^0;1^Q"
^DD(771.06,.01,1,0)="^.1"
^DD(771.06,.01,1,1,0)="771.06^B"
^DD(771.06,.01,1,1,1)="S ^HL(771,DA(1),""MSG"",""B"",$E(X,1,30),DA)="""""
^DD(771.06,.01,1,1,2)="K ^HL(771,DA(1),""MSG"",""B"",$E(X,1,30),DA)"
^DD(771.06,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.06,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.06,.01,3)="The HL7 messages used by the DHCP application."
^DD(771.06,.01,21,0)="^^1^1^2930505^"
^DD(771.06,.01,21,1,0)="The HL7 messages used by the DHCP application."
^DD(771.06,.01,"DT")="2930219"
^DD(771.06,1,0)="PROCESSING ROUTINE^RF^^R;E1,17^K:$L(X)>17!($L(X)<1) X"
^DD(771.06,1,3)="The processing routine that will be run for the DHCP application to file the data received in the HL7 message.  Valid entries are routine name, entry point and routine name or the word NONE."
^DD(771.06,1,21,0)="^^4^4^2930505^"
^DD(771.06,1,21,1,0)="The processing routine that will be run for the DHCP application to"
^DD(771.06,1,21,2,0)="process the data received in the HL7 message.  Enter the routine name or"
^DD(771.06,1,21,3,0)="an entry point and routine name or the literal NONE (e.g., ^HL7O or"
^DD(771.06,1,21,4,0)="EN1^HL7O)."
^DD(771.06,1,"DT")="2910908"
^DD(771.06,"B","HL7 MESSAGE",.01)=""
^DD(771.06,"B","PROCESSING ROUTINE",1)=""
^DD(771.06,"GL",0,1,.01)=""
^DD(771.06,"GL","R","E1,17",1)=""
^DD(771.06,"IX",.01)=""
^DD(771.06,"RQ",.01)=""
^DD(771.06,"RQ",1)=""
^DD(771.1,0)="FIELD^^150^16"
^DD(771.1,0,"DDA")="N"
^DD(771.1,0,"DT")="2940727"
^DD(771.1,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HL(771.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(771.3,.01,0),U,2) D Y^DIQ:Y]"""" W ?40,Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(771.1,0,"IX","B",771.1,.01)=""
^DD(771.1,0,"IX","C",771.1,2)=""
^DD(771.1,0,"NM","HL7 FIELD")=""
^DD(771.1,0,"PT",771.1,12)=""
^DD(771.1,0,"VR")="1.6"
^DD(771.1,.01,0)="NAME^RF^^0;1^K:$L(X)>36!($L(X)<3)!'(X'?1P.E) X"
^DD(771.1,.01,1,0)="^.1"
^DD(771.1,.01,1,1,0)="771.1^B"
^DD(771.1,.01,1,1,1)="S ^HL(771.1,""B"",$E(X,1,30),DA)="""""
^DD(771.1,.01,1,1,2)="K ^HL(771.1,""B"",$E(X,1,30),DA)"
^DD(771.1,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.1,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.1,.01,3)="This is the name of the HL7 field.  Answer must be 3-36 characters in length."
^DD(771.1,.01,21,0)="^^1^1^2930505^"
^DD(771.1,.01,21,1,0)="This is the name of the HL7 field."
^DD(771.1,.01,"DT")="2930503"
^DD(771.1,2,0)="SEGMENT^RP771.3'^HL(771.3,^0;2^Q"
^DD(771.1,2,1,0)="^.1"
^DD(771.1,2,1,1,0)="771.1^C"
^DD(771.1,2,1,1,1)="S ^HL(771.1,""C"",$E(X,1,30),DA)="""""
^DD(771.1,2,1,1,2)="K ^HL(771.1,""C"",$E(X,1,30),DA)"
^DD(771.1,2,1,1,"%D",0)="^^1^1^2911003^"
^DD(771.1,2,1,1,"%D",1,0)="Regular cross reference to look up entries by HL7 segment name."
^DD(771.1,2,1,1,"DT")="2911003"
^DD(771.1,2,3)="The three character HL7 segment name (e.g., MSH)."
^DD(771.1,2,21,0)="^^1^1^2930505^"
^DD(771.1,2,21,1,0)="The three character HL7 segment name (e.g., MSH)."
^DD(771.1,2,"DT")="2911003"
^DD(771.1,4,0)="DHCP FILE^P1'^DIC(^0;4^Q"
^DD(771.1,4,3)="Each HL7 filed that has a table number must have a corresponding DHCP file that contains the list of valid table entries."
^DD(771.1,4,"DT")="2930714"
^DD(771.1,5,0)="SEQUENCE^RNJ3,0^^0;5^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(771.1,5,3)="The HL7 sequence number associated with the HL7 field (e.g., 7).  Type a Number between 1 and 100, 0 Decimal Digits"
^DD(771.1,5,21,0)="^^1^1^2930505^"
^DD(771.1,5,21,1,0)="The HL7 sequence number associated witht the HL7 field (e.g., 7)."
^DD(771.1,5,"DT")="2910818"
^DD(771.1,6,0)="MAXIMUM LENGTH^RNJ3,0^^0;6^K:+X'=X!(X>500)!(X<1)!(X?.E1"".""1N.N) X"
^DD(771.1,6,3)="The maximum length of the HL7 field (e.g., 8).  Type a Number between 1 and 500, 0 Decimal Digits"
^DD(771.1,6,21,0)="^^1^1^2930505^"
^DD(771.1,6,21,1,0)="The maximum length of the HL7 field (e.g., 8)."
^DD(771.1,6,"DT")="2910818"
^DD(771.1,7,0)="DATA TYPE^RP771.4'^HL(771.4,^0;7^Q"
^DD(771.1,7,3)="The HL7 data type associated with the HL7 field (e.g., DATE)."
^DD(771.1,7,21,0)="^^1^1^2930505^"
^DD(771.1,7,21,1,0)="The HL7 data type associated with the HL7 field (e.g., DATE)."
^DD(771.1,7,"DT")="2910818"
^DD(771.1,8,0)="REQUIRED?^RS^1:REQUIRED;0:NOT REQUIRED;^0;8^Q"
^DD(771.1,8,3)="This field specifies whether the HL7 field is required."
^DD(771.1,8,21,0)="^^1^1^2930505^"
^DD(771.1,8,21,1,0)="This field specifies whether the HL7 field is required."
^DD(771.1,8,"DT")="2910818"
^DD(771.1,9,0)="REPETITION^NJ3,0^^0;9^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(771.1,9,3)="The number of times the HL7 field can repeat within an HL7 segment.  If the field cannot repeat, leave this field blank.  Type a Number between 1 and 100, 0 Decimal Digits."
^DD(771.1,9,21,0)="^^2^2^2930505^"
^DD(771.1,9,21,1,0)="The number of times the HL7 field can repeat within an HL7 segment.  If"
^DD(771.1,9,21,2,0)="the field cannot repeat, leave this field blank."
^DD(771.1,9,"DT")="2911008"
^DD(771.1,10,0)="TABLE NUMBER^F^^0;10^K:$L(X)>6!($L(X)<4)!'(X?4.6N) X"
^DD(771.1,10,3)="The HL7 (or locally defined) table number associated with the HL7 (or locally defined) field (e.g., 0008 or RA0001).  Answer must be 4-6 characters in length."
^DD(771.1,10,21,0)="^^4^4^2930308^"
^DD(771.1,10,21,1,0)="Only fields that have an HL7 data type of ID (Coded Value) have a table"
^DD(771.1,10,21,2,0)="number. The ID data type is equivalent to a Set of Codes or Pointer data"
^DD(771.1,10,21,3,0)="type in VA FileMan.  For locally defined fields, the table number should"
^DD(771.1,10,21,4,0)="begin with the 2-4 character DHCP package namespace."
^DD(771.1,10,"DT")="2930308"
^DD(771.1,11,0)="ITEM NUMBER^F^^0;11^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(771.1,11,3)="The HL7 item number associated with the HL7 field (e.g., 00043).  Answer must be 5 numeric characters in length."
^DD(771.1,11,21,0)="^^1^1^2930505^"
^DD(771.1,11,21,1,0)="The HL7 item number associated with the HL7 field (e.g., 00043)."
^DD(771.1,11,"DT")="2910818"
^DD(771.1,12,0)="PARENT^P771.1'^HL(771.1,^0;12^Q"
^DD(771.1,12,3)="If this entry is a component of a field or a subcomponent of a component, then the parent of the field/component is entered here."
^DD(771.1,12,21,0)="^^1^1^2930505^"
^DD(771.1,12,21,1,0)="MUMPS code that is used to validate values in this field.  This code is applicable across all DHCP applications."
^DD(771.1,12,"DT")="2940706"
^DD(771.1,13,0)="APPLICATION^771.113P^^APPL;0"
^DD(771.1,13,21,0)="^^2^2^2930505^"
^DD(771.1,13,21,1,0)="This multiple valued field contains information realted to use of this HL7"
^DD(771.1,13,21,2,0)="filed by a specific application."
^DD(771.1,50,0)="VERSION^771.12P^^V;0"
^DD(771.1,101,0)="SAMPLE DHCP VALUE^F^^101;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(771.1,101,3)="Answer must be 1-245 characters in length."
^DD(771.1,101,"DT")="2930802"
^DD(771.1,102,0)="SAMPLE HL7 VALUE^F^^102;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(771.1,102,3)="Answer must be 1-245 characters in length."
^DD(771.1,102,"DT")="2930802"
^DD(771.1,150,0)="DESCRIPTION^771.11^^D;0"
^DD(771.1,"B","APPLICATION",13)=""
^DD(771.1,"B","DATA TYPE",7)=""
^DD(771.1,"B","DESCRIPTION",150)=""
^DD(771.1,"B","DHCP FILE",4)=""
^DD(771.1,"B","ITEM NUMBER",11)=""
^DD(771.1,"B","MAXIMUM LENGTH",6)=""
^DD(771.1,"B","NAME",.01)=""
^DD(771.1,"B","PARENT",12)=""
^DD(771.1,"B","REPETITION",9)=""
^DD(771.1,"B","REQUIRED?",8)=""
^DD(771.1,"B","SAMPLE DHCP VALUE",101)=""
^DD(771.1,"B","SAMPLE HL7 VALUE",102)=""
^DD(771.1,"B","SEGMENT",2)=""
^DD(771.1,"B","SEQUENCE",5)=""
^DD(771.1,"B","TABLE NUMBER",10)=""
^DD(771.1,"B","VERSION",50)=""
^DD(771.1,"GL",0,1,.01)=""
^DD(771.1,"GL",0,2,2)=""
^DD(771.1,"GL",0,4,4)=""
^DD(771.1,"GL",0,5,5)=""
^DD(771.1,"GL",0,6,6)=""
^DD(771.1,"GL",0,7,7)=""
^DD(771.1,"GL",0,8,8)=""
^DD(771.1,"GL",0,9,9)=""
^DD(771.1,"GL",0,10,10)=""
^DD(771.1,"GL",0,11,11)=""
^DD(771.1,"GL",0,12,12)=""
^DD(771.1,"GL",101,"E1,245",101)=""
^DD(771.1,"GL",102,"E1,245",102)=""
^DD(771.1,"GL","APPL",0,13)=""
^DD(771.1,"GL","D",0,150)=""
^DD(771.1,"GL","V",0,50)=""
^DD(771.1,"IX",.01)=""
^DD(771.1,"IX",2)=""
^DD(771.1,"RQ",.01)=""
^DD(771.1,"RQ",2)=""
^DD(771.1,"RQ",5)=""
^DD(771.1,"RQ",6)=""
^DD(771.1,"RQ",7)=""
^DD(771.1,"RQ",8)=""
^DD(771.1,"SB",771.11,150)=""
^DD(771.1,"SB",771.113,13)=""
^DD(771.1,"SB",771.12,50)=""
^DD(771.11,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(771.11,0,"DT")="2930714"
^DD(771.11,0,"NM","DESCRIPTION")=""
^DD(771.11,0,"UP")="771.1"
^DD(771.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(771.11,.01,3)="Describe this HL7 field, its uses, any special special requirements related to the field or other information that would be useful."
^DD(771.11,.01,"DT")="2930714"
^DD(771.11,"B","DESCRIPTION",.01)=""
^DD(771.11,"GL",0,1,.01)=""
^DD(771.113,0)="APPLICATION SUB-FIELD^^3^3"
^DD(771.113,0,"DT")="2930301"
^DD(771.113,0,"IX","B",771.113,.01)=""
^DD(771.113,0,"NM","APPLICATION")=""
^DD(771.113,0,"UP")="771.1"
^DD(771.113,.01,0)="APPLICATION^MP771'^HL(771,^0;1^Q"
^DD(771.113,.01,1,0)="^.1"
^DD(771.113,.01,1,1,0)="771.113^B"
^DD(771.113,.01,1,1,1)="S ^HL(771.1,DA(1),""APPL"",""B"",$E(X,1,30),DA)="""""
^DD(771.113,.01,1,1,2)="K ^HL(771.1,DA(1),""APPL"",""B"",$E(X,1,30),DA)"
^DD(771.113,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.113,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.113,.01,3)="The DHCP application that uses this field in its HL7 messages."
^DD(771.113,.01,21,0)="^^1^1^2930505^"
^DD(771.113,.01,21,1,0)="The DHCP application that uses this field in its HL7 messages."
^DD(771.113,.01,"DT")="2910818"
^DD(771.113,2,0)="GENERATE RULE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(771.113,2,3)="MUMPS code used to generate a value for the HL7 field when an HL7 message containing this field is generated.  This code is specific to the DHCP application."
^DD(771.113,2,9)="^"
^DD(771.113,2,21,0)="^^1^1^2930505^"
^DD(771.113,2,21,1,0)="MUMPS code used to generate a value for the HL7 field when an HL7 message containing this field is generated.  This code is specific to the DHCP application."
^DD(771.113,2,"DT")="2930301"
^DD(771.113,3,0)="PROCESS RULE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(771.113,3,3)="MUMPS code that is used to validate a value in this field when an HL7 message is received.  This code is specific to the DHCP application."
^DD(771.113,3,9)="^"
^DD(771.113,3,21,0)="^^1^1^2930505^"
^DD(771.113,3,21,1,0)="MUMPS code that is used to validate a value in this field when an HL7 message is received.  This code is specific to the DHCP application."
^DD(771.113,3,"DT")="2930301"
^DD(771.113,"B","APPLICATION",.01)=""
^DD(771.113,"B","GENERATE RULE",2)=""
^DD(771.113,"B","PROCESS RULE",3)=""
^DD(771.113,"GL",0,1,.01)=""
^DD(771.113,"GL",1,"E1,245",2)=""
^DD(771.113,"GL",2,"E1,245",3)=""
^DD(771.113,"IX",.01)=""
^DD(771.12,0)="VERSION SUB-FIELD^^.01^1"
^DD(771.12,0,"DT")="2940727"
^DD(771.12,0,"IX","B",771.12,.01)=""
^DD(771.12,0,"NM","VERSION")=""
^DD(771.12,0,"UP")="771.1"
^DD(771.12,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(771.12,.01,1,0)="^.1"
^DD(771.12,.01,1,1,0)="771.12^B"
^DD(771.12,.01,1,1,1)="S ^HL(771.1,DA(1),""V"",""B"",$E(X,1,30),DA)="""""
^DD(771.12,.01,1,1,2)="K ^HL(771.1,DA(1),""V"",""B"",$E(X,1,30),DA)"
^DD(771.12,.01,3)="The versions of the standard that support this field."
^DD(771.12,.01,"DT")="2940727"
^DD(771.12,"B","VERSION",.01)=""
^DD(771.12,"GL",0,1,.01)=""
^DD(771.12,"IX",.01)=""
^DD(771.12,"RQ",.01)=""
^DD(771.2,0)="FIELD^^3^3"
^DD(771.2,0,"DDA")="N"
^DD(771.2,0,"DT")="3030212"
^DD(771.2,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(771.2,0,"IX","B",771.2,.01)=""
^DD(771.2,0,"NM","HL7 MESSAGE TYPE")=""
^DD(771.2,0,"PT",79.72,.01)=""
^DD(771.2,0,"PT",101,770.11)=""
^DD(771.2,0,"PT",101,770.3)=""
^DD(771.2,0,"PT",577,.06)=""
^DD(771.2,0,"PT",771.06,.01)=""
^DD(771.2,0,"PT",773,15)=""
^DD(771.2,0,"VR")="1.6"
^DD(771.2,0,"VRPK")="HL"
^DD(771.2,.01,0)="ABBREVIATED NAME^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(771.2,.01,1,0)="^.1"
^DD(771.2,.01,1,1,0)="771.2^B"
^DD(771.2,.01,1,1,1)="S ^HL(771.2,""B"",$E(X,1,30),DA)="""""
^DD(771.2,.01,1,1,2)="K ^HL(771.2,""B"",$E(X,1,30),DA)"
^DD(771.2,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.2,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.2,.01,3)="The three character HL7 message type abbreviation (e.g., MSH).  Answer must be 3 characters in length."
^DD(771.2,.01,21,0)="^^1^1^2930505^"
^DD(771.2,.01,21,1,0)="The three character HL7 message type abbreviation (e.g., MSH)."
^DD(771.2,.01,"DT")="2910818"
^DD(771.2,2,0)="FULL NAME^RF^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(771.2,2,3)="Answer must be 3-80 characters in length."
^DD(771.2,2,21,0)="^.001^1^1^3030212^^"
^DD(771.2,2,21,1,0)="The full HL7 message type name (e.g., Message Header)."
^DD(771.2,2,"DT")="3030212"
^DD(771.2,3,0)="VERSION^771.23P^^V;0"
^DD(771.2,"B","ABBREVIATED NAME",.01)=""
^DD(771.2,"B","FULL NAME",2)=""
^DD(771.2,"B","VERSION",3)=""
^DD(771.2,"GL",0,1,.01)=""
^DD(771.2,"GL",0,2,2)=""
^DD(771.2,"GL","V",0,3)=""
^DD(771.2,"IX",.01)=""
^DD(771.2,"RQ",.01)=""
^DD(771.2,"RQ",2)=""
^DD(771.2,"SB",771.23,3)=""
^DD(771.23,0)="VERSION SUB-FIELD^^.01^1"
^DD(771.23,0,"DT")="2940727"
^DD(771.23,0,"IX","B",771.23,.01)=""
^DD(771.23,0,"NM","VERSION")=""
^DD(771.23,0,"UP")="771.2"
^DD(771.23,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(771.23,.01,1,0)="^.1"
^DD(771.23,.01,1,1,0)="771.23^B"
^DD(771.23,.01,1,1,1)="S ^HL(771.2,DA(1),""V"",""B"",$E(X,1,30),DA)="""""
^DD(771.23,.01,1,1,2)="K ^HL(771.2,DA(1),""V"",""B"",$E(X,1,30),DA)"
^DD(771.23,.01,3)="The versions of the standard that support this message type."
^DD(771.23,.01,"DT")="2940727"
^DD(771.23,"B","VERSION",.01)=""
^DD(771.23,"GL",0,1,.01)=""
^DD(771.23,"IX",.01)=""
^DD(771.23,"RQ",.01)=""
^DD(771.3,0)="FIELD^^4^4"
^DD(771.3,0,"DDA")="N"
^DD(771.3,0,"DT")="2960925"
^DD(771.3,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(771.3,0,"IX","B",771.3,.01)=""
^DD(771.3,0,"NM","HL7 SEGMENT TYPE")=""
^DD(771.3,0,"PT",301.501,.01)=""
^DD(771.3,0,"PT",771.05,.01)=""
^DD(771.3,0,"PT",771.1,2)=""
^DD(771.3,0,"VR")="1.6"
^DD(771.3,0,"VRPK")="HL"
^DD(771.3,.01,0)="ABBREVIATED NAME^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(771.3,.01,1,0)="^.1"
^DD(771.3,.01,1,1,0)="771.3^B"
^DD(771.3,.01,1,1,1)="S ^HL(771.3,""B"",$E(X,1,30),DA)="""""
^DD(771.3,.01,1,1,2)="K ^HL(771.3,""B"",$E(X,1,30),DA)"
^DD(771.3,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.3,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.3,.01,3)="The three character HL7 segment abbreviation (e.g., PID).  Answer must be 3 characters in length."
^DD(771.3,.01,21,0)="^^1^1^2930505^"
^DD(771.3,.01,21,1,0)="The three character HL7 segment abbreviation (e.g., PID)."
^DD(771.3,.01,"DT")="2910818"
^DD(771.3,2,0)="FULL NAME^RF^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(771.3,2,3)="Answer must be 3-60 characters in length."
^DD(771.3,2,21,0)="^^1^1^2960925^^"
^DD(771.3,2,21,1,0)="The full HL7 segment name (e.g., Patient Identification)."
^DD(771.3,2,"DT")="2960925"
^DD(771.3,3,0)="VERSION^771.33P^^V;0"
^DD(771.3,4,0)="PROCESSING ROUTINE^K^^R;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(771.3,4,3)="The routine that will be run to process data in the HL7 segment.  Enter a routine name or entry point and routine name (e.g., HL7O or EN1^HL7O)."
^DD(771.3,4,21,0)="^^1^1^2930505^"
^DD(771.3,4,21,1,0)="The routine that will be run to process data in the HL7 segment.  Enter a routine name or entry point and routine name (e.g., HL7O or EN1^HL7O)."
^DD(771.3,4,"DT")="2930330"
^DD(771.3,"B","ABBREVIATED NAME",.01)=""
^DD(771.3,"B","FULL NAME",2)=""
^DD(771.3,"B","PROCESSING ROUTINE",4)=""
^DD(771.3,"B","VERSION",3)=""
^DD(771.3,"GL",0,1,.01)=""
^DD(771.3,"GL",0,2,2)=""
^DD(771.3,"GL","R","E1,245",4)=""
^DD(771.3,"GL","V",0,3)=""
^DD(771.3,"IX",.01)=""
^DD(771.3,"RQ",.01)=""
^DD(771.3,"RQ",2)=""
^DD(771.3,"SB",771.33,3)=""
^DD(771.33,0)="VERSION SUB-FIELD^^3^3"
^DD(771.33,0,"DT")="2950203"
^DD(771.33,0,"IX","B",771.33,.01)=""
^DD(771.33,0,"NM","VERSION")=""
^DD(771.33,0,"UP")="771.3"
^DD(771.33,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(771.33,.01,1,0)="^.1"
^DD(771.33,.01,1,1,0)="771.33^B"
^DD(771.33,.01,1,1,1)="S ^HL(771.3,DA(1),""V"",""B"",$E(X,1,30),DA)="""""
^DD(771.33,.01,1,1,2)="K ^HL(771.3,DA(1),""V"",""B"",$E(X,1,30),DA)"
^DD(771.33,.01,3)="The versions of the standard that support this segment type."
^DD(771.33,.01,"DT")="2940727"
^DD(771.33,2,0)="PROCESSING ROUTINE^K^^R;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(771.33,2,3)="The routine that will be run to process data in the segment.  Enter a routine name or entry point and routine name (e.g., HLO or EN1^HLO).  This is Standard MUMPS code."
^DD(771.33,2,9)="@"
^DD(771.33,2,21,0)="^^2^2^2990913^^"
^DD(771.33,2,21,1,0)="The routine that will be run to process data in the segment.  Enter a"
^DD(771.33,2,21,2,0)="routine name or entry point and routine name (e.g., HLO or EN1^HLO)."
^DD(771.33,2,"DT")="2941118"
^DD(771.33,3,0)="GENERATION ROUTINE^K^^G;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(771.33,3,3)="The routine to call to generate the segment.  Enter a routine name or entry point and routine name (e.g., HLO or EN1^HLO).  This is Standard MUMPS code."
^DD(771.33,3,9)="@"
^DD(771.33,3,"DT")="2950203"
^DD(771.33,"B","GENERATION ROUTINE",3)=""
^DD(771.33,"B","PROCESSING ROUTINE",2)=""
^DD(771.33,"B","VERSION",.01)=""
^DD(771.33,"GL",0,1,.01)=""
^DD(771.33,"GL","G","E1,245",3)=""
^DD(771.33,"GL","R","E1,245",2)=""
^DD(771.33,"IX",.01)=""
^DD(771.33,"RQ",.01)=""
^DD(771.4,0)="FIELD^^5^5"
^DD(771.4,0,"DDA")="N"
^DD(771.4,0,"DT")="2940727"
^DD(771.4,0,"ID",2)="W ?10,$P(^(0),U,2)"
^DD(771.4,0,"IX","B",771.4,.01)=""
^DD(771.4,0,"NM","HL7 DATA TYPE")=""
^DD(771.4,0,"PT",4.001,4.11)=""
^DD(771.4,0,"PT",4.001,4.12)=""
^DD(771.4,0,"PT",4.001,4.14)=""
^DD(771.4,0,"PT",4.001,4.15)=""
^DD(771.4,0,"PT",4.001,4.7)=""
^DD(771.4,0,"PT",4.011,.03)=""
^DD(771.4,0,"PT",771.1,7)=""
^DD(771.4,0,"VR")="1.6"
^DD(771.4,.01,0)="NAME^RF^^0;1^K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X"
^DD(771.4,.01,1,0)="^.1"
^DD(771.4,.01,1,1,0)="771.4^B"
^DD(771.4,.01,1,1,1)="S ^HL(771.4,""B"",$E(X,1,30),DA)="""""
^DD(771.4,.01,1,1,2)="K ^HL(771.4,""B"",$E(X,1,30),DA)"
^DD(771.4,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.4,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.4,.01,3)="The two character HL7 data type abbreviation (e.g., ST).  Answer must be 2-10 characters in length."
^DD(771.4,.01,21,0)="^^1^1^2930505^"
^DD(771.4,.01,21,1,0)="The two character HL7 data type abbreviation (e.g., ST)."
^DD(771.4,.01,"DT")="2930218"
^DD(771.4,2,0)="FULL NAME^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(771.4,2,3)="The full name of the HL7 data type (e.g., String).  Answer must be 3-30 characters in length."
^DD(771.4,2,21,0)="^^1^1^2930505^"
^DD(771.4,2,21,1,0)="The full name of the HL7 data type (e.g., String)."
^DD(771.4,2,"DT")="2910930"
^DD(771.4,3,0)="VERSION^771.43P^^V;0"
^DD(771.4,4,0)="TRANSFORM - DHCP TO STANDARD^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(771.4,4,3)="MUMPS code used to process data in fields that are assigned this data type.  The code in this field is used to transform a DHCP value to the standard value."
^DD(771.4,4,9)="@"
^DD(771.4,4,21,0)="^^3^3^2940706^^^"
^DD(771.4,4,21,1,0)="MUMPS code used to process data in fields that are assigned this data type."
^DD(771.4,4,21,2,0)="The code in this field is used to transform a DHCP value to the standard"
^DD(771.4,4,21,3,0)="value."
^DD(771.4,4,"DT")="2940706"
^DD(771.4,5,0)="TRANSFORM - STANDARD TO DHCP^RK^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(771.4,5,3)="MUMPS code used to process data in fields that are assigned this data type.  The code in this field is used to transform a standard value to a DHCP value."
^DD(771.4,5,9)="@"
^DD(771.4,5,21,0)="^^3^3^2940706^"
^DD(771.4,5,21,1,0)="MUMPS code used to process data in fields that are assigned this data type."
^DD(771.4,5,21,2,0)="The code in this field is used to transform a standard value to a DHCP"
^DD(771.4,5,21,3,0)="value."
^DD(771.4,5,"DT")="2940706"
^DD(771.4,"B","FULL NAME",2)=""
^DD(771.4,"B","NAME",.01)=""
^DD(771.4,"B","TRANSFORM - DHCP TO STANDARD",4)=""
^DD(771.4,"B","TRANSFORM - STANDARD TO DHCP",5)=""
^DD(771.4,"B","VERSION",3)=""
^DD(771.4,"GL",0,1,.01)=""
^DD(771.4,"GL",0,2,2)=""
^DD(771.4,"GL",1,"E1,245",4)=""
^DD(771.4,"GL",2,"E1,245",5)=""
^DD(771.4,"GL","V",0,3)=""
^DD(771.4,"IX",.01)=""
^DD(771.4,"RQ",.01)=""
^DD(771.4,"RQ",2)=""
^DD(771.4,"RQ",5)=""
^DD(771.4,"SB",771.43,3)=""
^DD(771.43,0)="VERSION SUB-FIELD^^.01^1"
^DD(771.43,0,"DT")="2940727"
^DD(771.43,0,"IX","B",771.43,.01)=""
^DD(771.43,0,"NM","VERSION")=""
^DD(771.43,0,"UP")="771.4"
^DD(771.43,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(771.43,.01,1,0)="^.1"
^DD(771.43,.01,1,1,0)="771.43^B"
^DD(771.43,.01,1,1,1)="S ^HL(771.4,DA(1),""V"",""B"",$E(X,1,30),DA)="""""
^DD(771.43,.01,1,1,2)="K ^HL(771.4,DA(1),""V"",""B"",$E(X,1,30),DA)"
^DD(771.43,.01,3)="The versions of the standard that support this data type."
^DD(771.43,.01,"DT")="2940727"
^DD(771.43,"B","VERSION",.01)=""
^DD(771.43,"GL",0,1,.01)=""
^DD(771.43,"IX",.01)=""
^DD(771.43,"RQ",.01)=""
^DD(771.5,0)="FIELD^^2^2"
^DD(771.5,0,"DDA")="N"
^DD(771.5,0,"DT")="2940928"
^DD(771.5,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HL(771.8,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(771.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(771.5,0,"IX","B",771.5,.01)=""
^DD(771.5,0,"NM","HL7 VERSION")=""
^DD(771.5,0,"PT",79.7211,.01)=""
^DD(771.5,0,"PT",101,770.95)=""
^DD(771.5,0,"PT",770,7)=""
^DD(771.5,0,"PT",771.12,.01)=""
^DD(771.5,0,"PT",771.23,.01)=""
^DD(771.5,0,"PT",771.33,.01)=""
^DD(771.5,0,"PT",771.43,.01)=""
^DD(771.5,0,"PT",771.93,.01)=""
^DD(771.5,0,"PT",779.00201,.01)=""
^DD(771.5,0,"PT",779.00301,.01)=""
^DD(771.5,0,"PT",779.00401,.01)=""
^DD(771.5,0,"PT",779.0053,.01)=""
^DD(771.5,0,"PT",779.0101,.01)=""
^DD(771.5,0,"VR")="1.6"
^DD(771.5,0,"VRPK")="HL"
^DD(771.5,.01,0)="VERSION^RF^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(771.5,.01,1,0)="^.1"
^DD(771.5,.01,1,1,0)="771.5^B"
^DD(771.5,.01,1,1,1)="S ^HL(771.5,""B"",$E(X,1,30),DA)="""""
^DD(771.5,.01,1,1,2)="K ^HL(771.5,""B"",$E(X,1,30),DA)"
^DD(771.5,.01,1,1,"%D",0)="^^1^1^2910930^"
^DD(771.5,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(771.5,.01,3)="Answer must be 1-8 characters in length."
^DD(771.5,.01,21,0)="^^1^1^2940928^^^"
^DD(771.5,.01,21,1,0)="An HL7 version number (e.g., 2.1)."
^DD(771.5,.01,"DT")="2940928"
^DD(771.5,2,0)="STANDARD^RP771.8'^HL(771.8,^0;2^Q"
^DD(771.5,2,3)="The standard to which this version number refers."
^DD(771.5,2,"DT")="2940706"
^DD(771.5,"B","STANDARD",2)=""
^DD(771.5,"B","VERSION",.01)=""
^DD(771.5,"GL",0,1,.01)=""
^DD(771.5,"GL",0,2,2)=""
^DD(771.5,"IX",.01)=""
^DD(771.5,"RQ",.01)=""
^DD(771.5,"RQ",2)=""
^DD(771.6,0)="FIELD^^3^4"
^DD(771.6,0,"DDA")="N"
^DD(771.6,0,"DT")="2991025"
^DD(771.6,0,"IX","B",771.6,.01)=""
^DD(771.6,0,"NM","HL7 MESSAGE STATUS")=""
^DD(771.6,0,"PT",772,20)=""
^DD(771.6,0,"PT",773,20)=""
^DD(771.6,0,"VR")="1.6"
^DD(771.6,0,"VRPK")="HL"
^DD(771.6,.001,0)="NUMBER^NJ7,1^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""2.N) X"
^DD(771.6,.001,3)="Type a number between 1 and 99999, 1 Decimal Digit"
^DD(771.6,.001,21,0)="^^4^4^2980427^"
^DD(771.6,.001,21,1,0)="This number is meaning in the Messaging System software."
^DD(771.6,.001,21,2,0)="The number is used to determine a message state for processing"
^DD(771.6,.001,21,3,0)="and purging."
^DD(771.6,.001,21,4,0)=""
^DD(771.6,.001,"DT")="2991025"
^DD(771.6,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(771.6,.01,1,0)="^.1"
^DD(771.6,.01,1,1,0)="771.6^B"
^DD(771.6,.01,1,1,1)="S ^HL(771.6,""B"",$E(X,1,30),DA)="""""
^DD(771.6,.01,1,1,2)="K ^HL(771.6,""B"",$E(X,1,30),DA)"
^DD(771.6,.01,3)="The name of each status that may be assigned to a message.  Answer must be 3-60 characters in length."
^DD(771.6,.01,"DT")="2940706"
^DD(771.6,2,0)="CODE^RF^^0;2^K:$L(X)>3!($L(X)<2) X"
^DD(771.6,2,3)="A two to three letter code assigned to every status."
^DD(771.6,2,"DT")="2950124"
^DD(771.6,3,0)="DESCRIPTION^771.63^^1;0"
^DD(771.6,"B","CODE",2)=""
^DD(771.6,"B","DESCRIPTION",3)=""
^DD(771.6,"B","NAME",.01)=""
^DD(771.6,"B","NUMBER",.001)=""
^DD(771.6,"GL",0,1,.01)=""
^DD(771.6,"GL",0,2,2)=""
^DD(771.6,"GL",1,0,3)=""
^DD(771.6,"IX",.01)=""
^DD(771.6,"RQ",.01)=""
^DD(771.6,"RQ",2)=""
^DD(771.6,"SB",771.63,3)=""
^DD(771.63,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(771.63,0,"DT")="2940706"
^DD(771.63,0,"NM","DESCRIPTION")=""
^DD(771.63,0,"UP")="771.6"
^DD(771.63,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(771.63,.01,3)="A description of the purpose and uses of each message status."
^DD(771.63,.01,"DT")="2940706"
^DD(771.63,"B","DESCRIPTION",.01)=""
^DD(771.63,"GL",0,1,.01)=""
^DD(771.7,0)="FIELD^^2^3"
^DD(771.7,0,"DDA")="N"
^DD(771.7,0,"DT")="2940706"
^DD(771.7,0,"IX","B",771.7,.01)=""
^DD(771.7,0,"NM","HL7 ERROR MESSAGE")=""
^DD(771.7,0,"PT",772,23)=""
^DD(771.7,0,"PT",773,23)=""
^DD(771.7,0,"PT",870,18)=""
^DD(771.7,0,"VR")="1.6"
^DD(771.7,0,"VRPK")="HL"
^DD(771.7,.001,0)="CODE^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(771.7,.001,3)="The numeric code assigned to each error message."
^DD(771.7,.001,"DT")="2940706"
^DD(771.7,.01,0)="SHORT TEXT^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X"
^DD(771.7,.01,1,0)="^.1"
^DD(771.7,.01,1,1,0)="771.7^B"
^DD(771.7,.01,1,1,1)="S ^HL(771.7,""B"",$E(X,1,30),DA)="""""
^DD(771.7,.01,1,1,2)="K ^HL(771.7,""B"",$E(X,1,30),DA)"
^DD(771.7,.01,3)="The short text (3 to 80 characters) associated with each error message."
^DD(771.7,.01,"DT")="2940706"
^DD(771.7,2,0)="DESCRIPTION^771.72^^1;0"
^DD(771.7,"B","CODE",.001)=""
^DD(771.7,"B","DESCRIPTION",2)=""
^DD(771.7,"B","SHORT TEXT",.01)=""
^DD(771.7,"GL",0,1,.01)=""
^DD(771.7,"GL",1,0,2)=""
^DD(771.7,"IX",.01)=""
^DD(771.7,"RQ",.01)=""
^DD(771.7,"SB",771.72,2)=""
^DD(771.72,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(771.72,0,"DT")="2940706"
^DD(771.72,0,"NM","DESCRIPTION")=""
^DD(771.72,0,"UP")="771.7"
^DD(771.72,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(771.72,.01,3)="A full description of the purpose of the error code and what it means."
^DD(771.72,.01,"DT")="2940706"
^DD(771.72,"B","DESCRIPTION",.01)=""
^DD(771.72,"GL",0,1,.01)=""
^DD(771.8,0)="FIELD^^2^2"
^DD(771.8,0,"DDA")="N"
^DD(771.8,0,"DT")="2941018"
^DD(771.8,0,"IX","B",771.8,.01)=""
^DD(771.8,0,"NM","HL7 STANDARD")=""
^DD(771.8,0,"PT",771.5,2)=""
^DD(771.8,0,"VR")="1.6"
^DD(771.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(771.8,.01,1,0)="^.1"
^DD(771.8,.01,1,1,0)="771.8^B"
^DD(771.8,.01,1,1,1)="S ^HL(771.8,""B"",$E(X,1,30),DA)="""""
^DD(771.8,.01,1,1,2)="K ^HL(771.8,""B"",$E(X,1,30),DA)"
^DD(771.8,.01,3)="Answer must be 3-30 characters in length."
^DD(771.8,.01,"DT")="2941018"
^DD(771.8,2,0)="DESCRIPTION^771.82^^1;0"
^DD(771.8,"B","DESCRIPTION",2)=""
^DD(771.8,"B","NAME",.01)=""
^DD(771.8,"GL",0,1,.01)=""
^DD(771.8,"GL",1,0,2)=""
^DD(771.8,"IX",.01)=""
^DD(771.8,"RQ",.01)=""
^DD(771.8,"SB",771.82,2)=""
^DD(771.82,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(771.82,0,"DT")="2940706"
^DD(771.82,0,"NM","DESCRIPTION")=""
^DD(771.82,0,"UP")="771.8"
^DD(771.82,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(771.82,.01,"DT")="2940706"
^DD(771.82,"B","DESCRIPTION",.01)=""
^DD(771.82,"GL",0,1,.01)=""
^DD(771.9,0)="FIELD^^51^5"
^DD(771.9,0,"DDA")="N"
^DD(771.9,0,"DT")="3030516"
^DD(771.9,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(771.9,0,"IX","AC",771.9051,.01)=""
^DD(771.9,0,"IX","B",771.9,.01)=""
^DD(771.9,0,"IX","D",771.9,2)=""
^DD(771.9,0,"NM","HL7 DEGREE")=""
^DD(771.9,0,"PT",200,12.1)=""
^DD(771.9,0,"VR")="1.6"
^DD(771.9,0,"VRPK")="HL"
^DD(771.9,.01,0)="NAME^RF^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(771.9,.01,1,0)="^.1"
^DD(771.9,.01,1,1,0)="771.9^B"
^DD(771.9,.01,1,1,1)="S ^HL(771.9,""B"",$E(X,1,70),DA)="""""
^DD(771.9,.01,1,1,2)="K ^HL(771.9,""B"",$E(X,1,70),DA)"
^DD(771.9,.01,1,1,"DT")="3030516"
^DD(771.9,.01,3)="The HL7 educational degree (e.g., ASSOCIATE OF ARTS).  Answer must be 3-70 characters in length"
^DD(771.9,.01,21,0)="^^1^1^3030516^^^"
^DD(771.9,.01,21,1,0)="The HL7 educational degree (e.g., ASSOCIATE OF ARTS)"
^DD(771.9,.01,"DT")="3030516"
^DD(771.9,2,0)="ABBREVIATION^RF^^0;2^K:$L(X)>10!($L(X)<2)!'(X'?1P.E) X"
^DD(771.9,2,1,0)="^.1"
^DD(771.9,2,1,1,0)="771.9^D"
^DD(771.9,2,1,1,1)="S ^HL(771.9,""D"",$E(X,1,30),DA)="""""
^DD(771.9,2,1,1,2)="K ^HL(771.9,""D"",$E(X,1,30),DA)"
^DD(771.9,2,1,1,"DT")="3030516"
^DD(771.9,2,3)="The HL7 educational degree abbreviated value (e.g. AA or PharmD, etc.).  Answer must be 2-10 characters in length"
^DD(771.9,2,21,0)="^^1^1^3030516^"
^DD(771.9,2,21,1,0)="The HL7 educational degree abbreviated value (e.g. AA or PharmD, etc.)"
^DD(771.9,2,"DT")="3030516"
^DD(771.9,3,0)="VERSION^771.93P^^V;0"
^DD(771.9,50,0)="HL7 STANDARD^C^^ ; ^X ^DD(771.9,50,9.5) S X=$S(Y(771.9,50,2):Y(771.9,50,3),Y(771.9,50,4):X)"
^DD(771.9,50,9)="^"
^DD(771.9,50,9.01)="771.9^3"
^DD(771.9,50,9.1)="$S(COUNT(VERSION)>0:""YES"",1:""NO"")"
^DD(771.9,50,9.2)="F D=0:0 S (D,D1)=$O(^HL(771.9,D0,""V"",""B"",DICOB,D)) Q:D'>0  I $D(^HL(771.9,D0,""V"",D,0))#2 S X=$P(^(0),U) S:$D(^HL(771.5,+X,0)) X=$P(^(0),U) S:X'?."" "" Y(771.9,50,1)=Y(771.9,50,1)+1 Q:'$D(D)  S D=D1"
^DD(771.9,50,9.3)="S I(1)=""""""V"""""",J(1)=771.93 N DICOB S DICOB="""" F  S DICOB=$O(^HL(771.9,D0,""V"",""B"",DICOB)) Q:DICOB=""""   X ^DD(771.9,50,9.2) Q:'$D(D)"
^DD(771.9,50,9.4)="S Y(771.9,50,9.1,81)=$G(D1) X ^DD(771.9,50,9.3):D0>0 S X="""" S D1=Y(771.9,50,9.1,81)"
^DD(771.9,50,9.5)="S Y(771.9,50,1)="""" X ^DD(771.9,50,9.4) S X=+Y(771.9,50,1)>0,Y(771.9,50,2)=$G(X) S X=""YES"",Y(771.9,50,3)=$G(X) S X=1,Y(771.9,50,4)=$G(X) S X=""NO"""
^DD(771.9,50,23,0)="^.001^5^5^3030514^^"
^DD(771.9,50,23,1,0)="Entries that originate from the HL7 standard, user-defined DEGREE table"
^DD(771.9,50,23,2,0)="0360, will have a version number in the VERSION field and consequently"
^DD(771.9,50,23,3,0)="will have a value of ""YES"" in this field.  Local entries not part of the"
^DD(771.9,50,23,4,0)="HL7 standard will not have a version number in the VERSION field and"
^DD(771.9,50,23,5,0)="consequently will have a value of ""NO"" in this field."
^DD(771.9,50,"DT")="3030514"
^DD(771.9,51,0)="USING APPLICATION^771.9051^^51;0"
^DD(771.9,51,21,0)="^^1^1^3030515^"
^DD(771.9,51,21,1,0)="The application that has specific use for this HL7 DEGREE VALUE."
^DD(771.9,51,23,0)="^^2^2^3030515^"
^DD(771.9,51,23,1,0)="Applications that have a need to select a subset of the HL7 DEGREE file "
^DD(771.9,51,23,2,0)="can identify this entry as part of their subset."
^DD(771.9,51,"DT")="3030515"
^DD(771.9,"B","ABBREVIATION",2)=""
^DD(771.9,"B","HL7 STANDARD",50)=""
^DD(771.9,"B","NAME",.01)=""
^DD(771.9,"B","USING APPLICATION",51)=""
^DD(771.9,"B","VERSION",3)=""
^DD(771.9,"GL",0,1,.01)=""
^DD(771.9,"GL",0,2,2)=""
^DD(771.9,"GL",51,0,51)=""
^DD(771.9,"GL","V",0,3)=""
^DD(771.9,"IX",.01)=""
^DD(771.9,"IX",2)=""
^DD(771.9,"RQ",.01)=""
^DD(771.9,"RQ",2)=""
^DD(771.9,"SB",771.9051,51)=""
^DD(771.9,"SB",771.93,3)=""
^DD(771.9051,0)="USING APPLICATION SUB-FIELD^^2^2"
^DD(771.9051,0,"DT")="3030515"
^DD(771.9051,0,"IX","B",771.9051,.01)=""
^DD(771.9051,0,"NM","USING APPLICATION")=""
^DD(771.9051,0,"UP")="771.9"
^DD(771.9051,.01,0)="USING APPLICATION ACRONYM^MRF^^0;1^K:$L(X)>6!($L(X)<2) X"
^DD(771.9051,.01,1,0)="^.1"
^DD(771.9051,.01,1,1,0)="771.9051^B"
^DD(771.9051,.01,1,1,1)="S ^HL(771.9,DA(1),51,""B"",$E(X,1,30),DA)="""""
^DD(771.9051,.01,1,1,2)="K ^HL(771.9,DA(1),51,""B"",$E(X,1,30),DA)"
^DD(771.9051,.01,1,2,0)="771.9^AC"
^DD(771.9051,.01,1,2,1)="S ^HL(771.9,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(771.9051,.01,1,2,2)="K ^HL(771.9,""AC"",$E(X,1,30),DA(1),DA)"
^DD(771.9051,.01,1,2,"DT")="3030516"
^DD(771.9051,.01,3)="The acronym of the using application that has specific interest on this HL7 DEGREE VALUE (e.g., OAA, etc.).  Answer must be 2-6 characters in length."
^DD(771.9051,.01,21,0)="^^2^2^3030515^"
^DD(771.9051,.01,21,1,0)="The acronym of the using application that has specific interest on this"
^DD(771.9051,.01,21,2,0)="HL7 DEGREE VALUE (e.g., OAA, etc.)"
^DD(771.9051,.01,"DT")="3030516"
^DD(771.9051,2,0)="USING APPLICATION NAME^F^^0;2^K:$L(X)>50!($L(X)<3) X"
^DD(771.9051,2,3)="The name of the using application that has specific interest on this HL7   Answer must be 3-50 characters in length"
^DD(771.9051,2,"DT")="3030515"
^DD(771.9051,"B","USING APPLICATION ACRONYM",.01)=""
^DD(771.9051,"B","USING APPLICATION NAME",2)=""
^DD(771.9051,"GL",0,1,.01)=""
^DD(771.9051,"GL",0,2,2)=""
^DD(771.9051,"IX",.01)=""
^DD(771.9051,"RQ",.01)=""
^DD(771.93,0)="VERSION SUB-FIELD^^.01^1"
^DD(771.93,0,"DT")="3030404"
^DD(771.93,0,"IX","B",771.93,.01)=""
^DD(771.93,0,"NM","VERSION")=""
^DD(771.93,0,"UP")="771.9"
^DD(771.93,.01,0)="VERSION^P771.5'^HL(771.5,^0;1^Q"
^DD(771.93,.01,1,0)="^.1"
^DD(771.93,.01,1,1,0)="771.93^B"
^DD(771.93,.01,1,1,1)="S ^HL(771.9,DA(1),""V"",""B"",$E(X,1,30),DA)="""""
^DD(771.93,.01,1,1,2)="K ^HL(771.9,DA(1),""V"",""B"",$E(X,1,30),DA)"
^DD(771.93,.01,3)="The versions of the standard that support this DEGREE value."
^DD(771.93,.01,21,0)="^^1^1^3030514^"
^DD(771.93,.01,21,1,0)="The versions of the standard that support this DEGREE value."
^DD(771.93,.01,"DT")="3030404"
^DD(771.93,"B","VERSION",.01)=""
^DD(771.93,"GL",0,1,.01)=""
^DD(771.93,"IX",.01)=""
^DD(772,0)="FIELD^^200^26"
^DD(772,0,"DDA")="N"
^DD(772,0,"DT")="2980416"
^DD(772,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HL(771,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(771,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(772,0,"IX","AC",772,4)=""
^DD(772,0,"IX","AD",772,21)=""
^DD(772,0,"IX","AE",772,3)=""
^DD(772,0,"IX","AF",772,20)=""
^DD(772,0,"IX","AG",772,3)=""
^DD(772,0,"IX","AH",772,6)=""
^DD(772,0,"IX","AI",772,8)=""
^DD(772,0,"IX","AXMITOUT1",772,11)=""
^DD(772,0,"IX","AXMITOUT2",772,20)=""
^DD(772,0,"IX","B",772,.01)=""
^DD(772,0,"IX","C",772,6)=""
^DD(772,0,"NM","HL7 MESSAGE TEXT")=""
^DD(772,0,"PT",375.099,.04)=""
^DD(772,0,"PT",772,7)=""
^DD(772,0,"PT",772,8)=""
^DD(772,0,"PT",773,.01)=""
^DD(772,0,"VR")="1.6"
^DD(772,0,"VRPK")="HL"
^DD(772,.01,0)="DATE/TIME ENTERED^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(772,.01,1,0)="^.1"
^DD(772,.01,1,1,0)="772^B"
^DD(772,.01,1,1,1)="S ^HL(772,""B"",$E(X,1,30),DA)="""""
^DD(772,.01,1,1,2)="K ^HL(772,""B"",$E(X,1,30),DA)"
^DD(772,.01,1,1,"%D",0)="^^1^1^2930514^"
^DD(772,.01,1,1,"%D",1,0)="Regular 'B' cross reference."
^DD(772,.01,3)=""
^DD(772,.01,21,0)="^^1^1^2980416^^^^"
^DD(772,.01,21,1,0)="The Date/Time the message was created."
^DD(772,.01,"DT")="2980416"
^DD(772,2,0)="SERVER APPLICATION^RP771'^HL(771,^0;2^Q"
^DD(772,2,3)="The server application related to this transmission."
^DD(772,2,21,0)="^^1^1^2930505^"
^DD(772,2,21,1,0)="The DHCP application related to this transmission."
^DD(772,2,"DT")="2940707"
^DD(772,2.02,0)="FAST PURGE DT/TM^D^^2;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(772,2.02,3)="Enter the date and time at which the record may be purged."
^DD(772,2.02,"DT")="3030924"
^DD(772,3,0)="CLIENT APPLICATION^RP771'^HL(771,^0;3^Q"
^DD(772,3,1,0)="^.1^^-1"
^DD(772,3,1,1,0)="772^AE^MUMPS"
^DD(772,3,1,1,1)="N HLX0,HLXP S HLXP=$G(^HL(772,DA,""P"")),HLX0=$G(^(0)) S:'$P(HLXP,""^"",2)&($P(HLX0,""^"",4)=""O"") ^HL(772,""AC"",""O"",X,DA)="""""
^DD(772,3,1,1,2)="N HLX0 S HLX0=$G(^HL(772,DA,0)) K:$P(HLX0,""^"",4)=""O"" ^HL(772,""AC"",""O"",X,DA)"
^DD(772,3,1,1,3)="Required to determine outgoing transmissions that need to be transmitted."
^DD(772,3,1,1,"%D",0)="^^4^4^2951003^^^^"
^DD(772,3,1,1,"%D",1,0)="This cross reference is used in conjunction with the 'AC' cross reference"
^DD(772,3,1,1,"%D",2,0)="on the Transmission Type field (#4) and the 'AD' cross reference on the"
^DD(772,3,1,1,"%D",3,0)="Date/Time Processed field (#21) to determine outgoing transmissions for a"
^DD(772,3,1,1,"%D",4,0)="specific application that need to be transmitted."
^DD(772,3,1,1,"DT")="2951003"
^DD(772,3,1,2,0)="772^AG^MUMPS"
^DD(772,3,1,2,1)="S:$P(^HL(772,DA,0),""^"",6)]"""" ^HL(772,""AH"",X,$P(^(0),""^"",6),DA)="""""
^DD(772,3,1,2,2)="K:$P(^HL(772,DA,0),""^"",6)]"""" ^HL(772,""AH"",X,$P(^(0),""^"",6),DA)"
^DD(772,3,1,2,3)="Required to link initial messages with acknowledgment messages."
^DD(772,3,1,2,"%D",0)="^^3^3^2941130^^"
^DD(772,3,1,2,"%D",1,0)="This cross reference is used in conjunction with the 'AH' cross reference"
^DD(772,3,1,2,"%D",2,0)="on the Message ID field (#6) to look up and link initial HL7 messages with"
^DD(772,3,1,2,"%D",3,0)="reply/acknowledgement messages."
^DD(772,3,1,2,"DT")="2941130"
^DD(772,3,3)="The client application related to this transmission."
^DD(772,3,21,0)="^^1^1^2940707^^^"
^DD(772,3,21,1,0)="The client application related to this transmission."
^DD(772,3,"DT")="2951003"
^DD(772,4,0)="TRANSMISSION TYPE^RS^I:INCOMING;O:OUTGOING;^0;4^Q"
^DD(772,4,1,0)="^.1"
^DD(772,4,1,1,0)="772^AC^MUMPS"
^DD(772,4,1,1,1)="N HLX0,HLXP S HLXP=$G(^HL(772,DA,""P"")),HLX0=$G(^(0)) S:'$P(HLXP,""^"",2)&($P(HLX0,""^"",3))&(X=""O"") ^HL(772,""AC"",""O"",$P(HLX0,""^"",3),DA)="""""
^DD(772,4,1,1,2)="Q:X'=""O""  N HLX0 S HLX0=$G(^HL(772,DA,0)) K:$P(HLX0,""^"",3) ^HL(772,""AC"",""O"",$P(HLX0,""^"",3),DA)"
^DD(772,4,1,1,3)="Required to determine outgoing transmissions that need to be transmitted."
^DD(772,4,1,1,"%D",0)="^^4^4^2941130^^^^"
^DD(772,4,1,1,"%D",1,0)="This cross reference is used in conjunction with the 'AE' cross reference"
^DD(772,4,1,1,"%D",2,0)="on the Client Application field (#3) and the 'AD' cross reference on the"
^DD(772,4,1,1,"%D",3,0)="Date/Time Processed field (#21) to determine outgoing transmissions for a"
^DD(772,4,1,1,"%D",4,0)="specific application that need to be transmitted."
^DD(772,4,1,1,"DT")="2941130"
^DD(772,4,3)="The type of transmission (incoming or outgoing)."
^DD(772,4,21,0)="^^1^1^2930505^"
^DD(772,4,21,1,0)="The type of transmission (incoming or outgoing)."
^DD(772,4,"DT")="2941130"
^DD(772,5,0)="RELATED MAILMAN MESSAGE^F^^0;5^K:$L(X)>15!($L(X)<1)!'(X?1N.N) X"
^DD(772,5,3)="The MailMan message number related to this transmission."
^DD(772,5,21,0)="^^1^1^2930505^"
^DD(772,5,21,1,0)="The MailMan message number related to this transmission."
^DD(772,5,"DT")="2930512"
^DD(772,6,0)="MESSAGE ID^F^^0;6^K:$L(X)>60!($L(X)<1) X"
^DD(772,6,1,0)="^.1^^-1"
^DD(772,6,1,2,0)="772^AH^MUMPS"
^DD(772,6,1,2,1)="S:$P(^HL(772,DA,0),""^"",3) ^HL(772,""AH"",$P(^(0),""^"",3),X,DA)="""""
^DD(772,6,1,2,2)="K:$P(^HL(772,DA,0),""^"",3) ^HL(772,""AH"",$P(^(0),""^"",3),X,DA)"
^DD(772,6,1,2,"%D",0)="^^3^3^2930514^"
^DD(772,6,1,2,"%D",1,0)="This cross reference is used in conjunction with the 'AG' cross reference"
^DD(772,6,1,2,"%D",2,0)="on the Non-DHCP Application field (#3) to look up and link initial HL7"
^DD(772,6,1,2,"%D",3,0)="messages with reply/acknowledgement messages."
^DD(772,6,1,2,"DT")="2930202"
^DD(772,6,3)="Answer must be 1-60 characters in length"
^DD(772,6,21,0)="^^1^1^2930505^"
^DD(772,6,21,1,0)="The unique ID for this HL7 message."
^DD(772,6,"DT")="3070801"
^DD(772,7,0)="ACKNOWLEDGMENT TO^P772'^HL(772,^0;7^Q"
^DD(772,7,3)="The incoming message that this message is replying to.  This field is only applicable to outgoing messages."
^DD(772,7,21,0)="^^1^1^2930505^"
^DD(772,7,21,1,0)="The incoming message that this message is replying to.  This field is only applicable to outgoing messages."
^DD(772,7,"DT")="2941209"
^DD(772,8,0)="PARENT MESSAGE^P772'^HL(772,^0;8^Q"
^DD(772,8,1,0)="^.1"
^DD(772,8,1,1,0)="772^AI"
^DD(772,8,1,1,1)="S ^HL(772,""AI"",$E(X,1,30),DA)="""""
^DD(772,8,1,1,2)="K ^HL(772,""AI"",$E(X,1,30),DA)"
^DD(772,8,1,1,3)="This cross reference is needed by the purge utility to determine when a parent entry can be deleted."
^DD(772,8,1,1,"%D",0)="^^4^4^2950125^"
^DD(772,8,1,1,"%D",1,0)="This cross reference is needed by the purge utility to determine"
^DD(772,8,1,1,"%D",2,0)="when a parent entry can be deleted.  When the only entry in the cross"
^DD(772,8,1,1,"%D",3,0)="reference is the parent (all children have been deleted), then the"
^DD(772,8,1,1,"%D",4,0)="parent entry can be deleted."
^DD(772,8,1,1,"DT")="2950125"
^DD(772,8,3)="The original message to which this message is related, if applicable."
^DD(772,8,"DT")="2950125"
^DD(772,9,0)="PRIORITY^RS^I:IMMEDIATE;D:DEFERRED;^0;9^Q"
^DD(772,9,3)="The mode in which this message will be delivered."
^DD(772,9,21,0)="^^2^2^2950118^^"
^DD(772,9,21,1,0)="The delivery priority assigned to this message.  Either 'I' for Immediate"
^DD(772,9,21,2,0)="or 'D' for Deferred."
^DD(772,9,"DT")="2950118"
^DD(772,10,0)="RELATED EVENT PROTOCOL^P101'^ORD(101,^0;10^Q"
^DD(772,10,3)="The entry in the Protocol file related to this Message Text entry."
^DD(772,10,"DT")="2940909"
^DD(772,11,0)="LOGICAL LINK^P870'^HLCS(870,^0;11^Q"
^DD(772,11,1,0)="^.1"
^DD(772,11,1,1,0)="772^AXMITOUT1^MUMPS"
^DD(772,11,1,1,1)="N HLXRFST,HLXRFLL S HLXRFST=+$G(^HL(772,DA,""P"")),HLXRFLL=+$P($G(^HL(772,DA,0)),""^"",11) Q:(('HLXRFST)!('HLXRFLL))  S HLXRFST=$P($G(^HL(771.6,HLXRFST,0)),""^"",2) Q:(HLXRFST'=""PT"")  S ^HL(772,""A-XMIT-OUT"",HLXRFLL,DA)="""""
^DD(772,11,1,1,2)="K:$D(^HL(772,""A-XMIT-OUT"",X,DA)) ^HL(772,""A-XMIT-OUT"",X,DA)"
^DD(772,11,1,1,"%D",0)="^^12^12^2970220^^"
^DD(772,11,1,1,"%D",1,0)="This cross reference is used by the outgoing filer to find all messages"
^DD(772,11,1,1,"%D",2,0)="with a status of 'PENDING TRANSMISSION' (CODE=PT).  The Logical Link that"
^DD(772,11,1,1,"%D",3,0)="the message is queued for is stored in the cross reference to synchronize"
^DD(772,11,1,1,"%D",4,0)="delivery of messages to their Logical Links."
^DD(772,11,1,1,"%D",5,0)=" "
^DD(772,11,1,1,"%D",6,0)="Resulting node: ^HL(772,""A-XMIT-OUT"",HLXRFLL,DA)="""""
^DD(772,11,1,1,"%D",7,0)="Where: HLXRFLL = Pointer to the Logical Link"
^DD(772,11,1,1,"%D",8,0)="       DA = Pointer to the message"
^DD(772,11,1,1,"%D",9,0)=" "
^DD(772,11,1,1,"%D",10,0)="Notes: This cross reference is only set if the status code is 'PT'"
^DD(772,11,1,1,"%D",11,0)="     : This cross reference is also set by the AXMITOUT2 cross reference"
^DD(772,11,1,1,"%D",12,0)="       on the STATUS field (#20)"
^DD(772,11,1,1,"DT")="2970220"
^DD(772,11,3)="The link that will be used to exchange messages with an external application."
^DD(772,11,21,0)="^^4^4^2980505^^^^"
^DD(772,11,21,1,0)="This is a pointer to the Logical Link file (#870).  This link is used"
^DD(772,11,21,2,0)="to transmit messages to an external (client) application.  This field"
^DD(772,11,21,3,0)="is not filled in when messages are exchanged between DHCP applications"
^DD(772,11,21,4,0)="on the same system."
^DD(772,11,"DT")="2970220"
^DD(772,12,0)="SECURITY^F^^0;12^K:$L(X)>40!($L(X)<1) X"
^DD(772,12,3)="The value to use in the Security field of the Message Header segment.  Answer must be 1-40 characters in length."
^DD(772,12,"DT")="2940928"
^DD(772,13,0)="CONTINUATION POINTER^F^^1;1^K:$L(X)>180!($L(X)<1) X"
^DD(772,13,3)="The value to use in the Continuation Pointer field of the Message Header segment.  Answer must be 1-180 characters in length."
^DD(772,13,"DT")="2940928"
^DD(772,14,0)="MESSAGE TYPE^RS^M:SINGLE MESSAGE;B:BATCH OF MESSAGES;F:FILE OF BATCHES;^0;14^Q"
^DD(772,14,3)="The type of message.  Single, batch or file."
^DD(772,14,21,0)="^^8^8^2980505^^"
^DD(772,14,21,1,0)="There are three types of messages as follows:"
^DD(772,14,21,2,0)=" "
^DD(772,14,21,3,0)="M for Single message (contains only one MSH segment)"
^DD(772,14,21,4,0)="B for Batch of messages (contains multiple MSH segments)"
^DD(772,14,21,5,0)="F for File of batches (contains multiple BHS segments)"
^DD(772,14,21,6,0)=" "
^DD(772,14,21,7,0)="This field is automatically filled in by the Messaging System and is"
^DD(772,14,21,8,0)="used to determine the appropriate header segment to build for a message."
^DD(772,14,"DT")="2950118"
^DD(772,15,0)="DON'T PURGE^S^1:DON'T PURGE;0:TO PURGE;^2;1^Q"
^DD(772,15,3)="When this field is set to 1, the message wil never be purged by the HL7 ""Purge Message Text File Entries"" option."
^DD(772,15,21,0)="^^4^4^2980505^^"
^DD(772,15,21,1,0)="When this field is set to 1, the message wil never be purged by the HL7"
^DD(772,15,21,2,0)="""Purge Message Text File Entries"" option."
^DD(772,15,21,3,0)="However, when this field is set to 0 or is empty, the message is allowed"
^DD(772,15,21,4,0)="to be purged by the HL7 ""Purge Message Text Entries"" option."
^DD(772,15,"DT")="2970728"
^DD(772,16,0)="NAMESPACE^F^^0;13^K:$L(X)>4!($L(X)<1)!'(X?1U1.3NU) X"
^DD(772,16,3)="Answer must be 1-4 characters in length, and start with 1 uppercase letter, followed by up to 3 uppercase letters and numerics."
^DD(772,16,21,0)="^^14^14^3020215^"
^DD(772,16,21,1,0)="This field must not be filled in manually.  It will be filled in"
^DD(772,16,21,2,0)="automatically by the HL7 processes that create entries in the HL7 Message"
^DD(772,16,21,3,0)="Text file (#772).  In most instances, applications will call"
^DD(772,16,21,4,0)="GENERATE^HLMA, GENACK^HLMA, or DIRECT^HLMA.  When they do, they will pass"
^DD(772,16,21,5,0)="by reference into the last OPTIONS (in the documentation) parameter the"
^DD(772,16,21,6,0)="value of the namespace.  The value of the namespace will be in the form of"
^DD(772,16,21,7,0)="OPTIONS(""NAMESPACE"")=NAMESPACE."
^DD(772,16,21,8,0)=" "
^DD(772,16,21,9,0)="Please note that the calls to the three APIs mentioned above use the"
^DD(772,16,21,10,0)="variable HLP to hold the passed in by reference array.  So, in the HLMA"
^DD(772,16,21,11,0)="code (and other code invoked by HLMA), the actual variable used is"
^DD(772,16,21,12,0)="HLP(""NAMESPACE"")."
^DD(772,16,21,13,0)=" "
^DD(772,16,21,14,0)="This field is populated by UPDATE^HLTF0."
^DD(772,16,"DT")="3020215"
^DD(772,20,0)="STATUS^RP771.6'^HL(771.6,^P;1^Q"
^DD(772,20,1,0)="^.1"
^DD(772,20,1,1,0)="772^AF"
^DD(772,20,1,1,1)="S ^HL(772,""AF"",$E(X,1,30),DA)="""""
^DD(772,20,1,1,2)="K ^HL(772,""AF"",$E(X,1,30),DA)"
^DD(772,20,1,1,"%D",0)="^^2^2^2920715^"
^DD(772,20,1,1,"%D",1,0)="This cross reference is used to produce the Pending and Failed Transmission"
^DD(772,20,1,1,"%D",2,0)="reports."
^DD(772,20,1,1,"DT")="2920715"
^DD(772,20,1,2,0)="772^AXMITOUT2^MUMPS"
^DD(772,20,1,2,1)="N HLXRFST,HLXRFLL S HLXRFST=+$G(^HL(772,DA,""P"")),HLXRFLL=+$P($G(^HL(772,DA,0)),""^"",11) Q:(('HLXRFST)!('HLXRFLL))  S HLXRFST=$P($G(^HL(771.6,HLXRFST,0)),""^"",2) Q:(HLXRFST'=""PT"")  S ^HL(772,""A-XMIT-OUT"",HLXRFLL,DA)="""""
^DD(772,20,1,2,2)="N HLXRFLL S HLXRFLL=+$P($G(^HL(772,DA,0)),""^"",11) Q:'HLXRFLL  K:$D(^HL(772,""A-XMIT-OUT"",HLXRFLL,DA)) ^HL(772,""A-XMIT-OUT"",HLXRFLL,DA)"
^DD(772,20,1,2,"%D",0)="^^12^12^2970220^^"
^DD(772,20,1,2,"%D",1,0)="This cross reference is used by the outgoing filer to find all messages"
^DD(772,20,1,2,"%D",2,0)="with a status of 'PENDING TRANSMISSION' (CODE=PT).  The Logical Link that"
^DD(772,20,1,2,"%D",3,0)="the message is queued for is stored in the cross reference to synchronize"
^DD(772,20,1,2,"%D",4,0)="delivery of messages to their Logical Links."
^DD(772,20,1,2,"%D",5,0)=" "
^DD(772,20,1,2,"%D",6,0)="Resulting node: ^HL(772,""A-XMIT-OUT"",HLXRFLL,DA)="""""
^DD(772,20,1,2,"%D",7,0)="Where: HLXRFLL = Pointer to the Logical Link"
^DD(772,20,1,2,"%D",8,0)="       DA = Pointer to the message"
^DD(772,20,1,2,"%D",9,0)=" "
^DD(772,20,1,2,"%D",10,0)="Notes: This cross reference is only set if the status code is 'PT'"
^DD(772,20,1,2,"%D",11,0)="     : This cross reference is also set by the AXMITOUT1 cross reference"
^DD(772,20,1,2,"%D",12,0)="       on the LOGICAL LINK field (#11)"
^DD(772,20,1,2,"DT")="2970220"
^DD(772,20,3)="The current status of the message."
^DD(772,20,21,0)="^^1^1^2950131^^^^"
^DD(772,20,21,1,0)="The status currently assigned to this transmission."
^DD(772,20,"DT")="2970220"
^DD(772,21,0)="DATE/TIME PROCESSED^D^^P;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(772,21,1,0)="^.1"
^DD(772,21,1,1,0)="772^AD^MUMPS"
^DD(772,21,1,1,1)="N HLX0 S HLX0=$G(^HL(772,DA,0)) K:$P(HLX0,""^"",3)&($P(HLX0,""^"",4)=""O"") ^HL(772,""AC"",""O"",$P(HLX0,""^"",3),DA)"
^DD(772,21,1,1,2)="N HLX0,HLXP S HLXP=$G(^HL(772,DA,""P"")),HLX0=$G(^(0)) S:'$P(HLXP,""^"",2)&($P(HLX0,""^"",3))&($P(HLX0,""^"",4)=""O"") ^HL(772,""AC"",""O"",$P(HLX0,""^"",3),DA)="""""
^DD(772,21,1,1,3)="Required to determine outgoing transmissions that need to be transmitted."
^DD(772,21,1,1,"%D",0)="^^4^4^2951003^^^^"
^DD(772,21,1,1,"%D",1,0)="This cross reference is used in conjunction with the 'AE' cross reference"
^DD(772,21,1,1,"%D",2,0)="on the Client Application field (#3) and the 'AC' cross reference on the"
^DD(772,21,1,1,"%D",3,0)="Transmission Type field (#4) to determine outgoing transmissions for a"
^DD(772,21,1,1,"%D",4,0)="specific application that need to be transmitted."
^DD(772,21,1,1,"DT")="2951002"
^DD(772,21,3)="The date and time this transmission was actually processed (sent or received)."
^DD(772,21,21,0)="^^1^1^2951002^^"
^DD(772,21,21,1,0)="The date and time this transmission was actually processed (sent or received)."
^DD(772,21,"DT")="2951002"
^DD(772,22,0)="ERROR MESSAGE^F^^P;3^K:$L(X)>200!($L(X)<3) X"
^DD(772,22,3)="If there was an error in sending or receiving this transmission, this field will contain the 3-200 character error message."
^DD(772,22,21,0)="^^1^1^2930505^"
^DD(772,22,21,1,0)="If there was an error in sending or receiving this transmission, this field will contain the 3-200 character error message."
^DD(772,22,"DT")="2911118"
^DD(772,23,0)="ERROR TYPE^P771.7'^HL(771.7,^P;4^Q"
^DD(772,23,3)="A description of the type of error that occured."
^DD(772,23,"DT")="2970220"
^DD(772,26,0)="ACK TIMEOUT^NJ3,0^^P;7^K:+X'=X!(X>600)!(X<0)!(X?.E1"".""1N.N) X"
^DD(772,26,3)="Type a Number between 0 and 600, 0 Decimal Digits"
^DD(772,26,21,0)="^^3^3^3000505^"
^DD(772,26,21,1,0)="The number of seconds the Lower Layer Protocol waits for an"
^DD(772,26,21,2,0)="acknowledgement from the receiving application. This field will"
^DD(772,26,21,3,0)="override the ACK TIMEOUT of the Logical Link for this message."
^DD(772,26,"DT")="3000505"
^DD(772,100,0)="NO. OF CHARACTERS IN MESSAGE^NJ7,0^^S;1^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(772,100,3)="Type a Number between 1 and 1000000, 0 Decimal Digits"
^DD(772,100,21,0)="^^2^2^2930505^"
^DD(772,100,21,1,0)="A count of the total number of characters in the mail message associated"
^DD(772,100,21,2,0)="with this HL7 transmission entry."
^DD(772,100,"DT")="2930125"
^DD(772,101,0)="NO. OF EVENTS IN MESSAGE^NJ6,0^^S;2^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(772,101,3)="Type a Number between 1 and 100000, 0 Decimal Digits"
^DD(772,101,21,0)="^^2^2^2930505^"
^DD(772,101,21,1,0)="A count of the total number of events (HL7 messages) contained in the mail"
^DD(772,101,21,2,0)="message associated with this HL7 transmission entry."
^DD(772,101,"DT")="2930125"
^DD(772,102,0)="TRANSMISSION TIME^NJ6,0^^S;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(772,102,3)="The time it took to transmit this message to the primary network addressee.  A number between 0 and 999999, 0 Decimal Digits."
^DD(772,102,21,0)="^^1^1^2930505^"
^DD(772,102,21,1,0)="The time it took to transmit this message to the primary network addressee."
^DD(772,102,"DT")="2930303"
^DD(772,200,0)="MESSAGE TEXT^772.02^^IN;0"
^DD(772,200,21,0)="^^1^1^2930505^"
^DD(772,200,21,1,0)="The actual text of the incoming HL7 message(s)."
^DD(772,200,"DT")="2940715"
^DD(772,"B","ACK TIMEOUT",26)=""
^DD(772,"B","ACKNOWLEDGMENT TO",7)=""
^DD(772,"B","CLIENT APPLICATION",3)=""
^DD(772,"B","CONTINUATION POINTER",13)=""
^DD(772,"B","DATE/TIME ENTERED",.01)=""
^DD(772,"B","DATE/TIME PROCESSED",21)=""
^DD(772,"B","DON'T PURGE",15)=""
^DD(772,"B","ERROR MESSAGE",22)=""
^DD(772,"B","ERROR TYPE",23)=""
^DD(772,"B","FAST PURGE DT/TM",2.02)=""
^DD(772,"B","LOGICAL LINK",11)=""
^DD(772,"B","MESSAGE ID",6)=""
^DD(772,"B","MESSAGE TEXT",200)=""
^DD(772,"B","MESSAGE TYPE",14)=""
^DD(772,"B","NAMESPACE",16)=""
^DD(772,"B","NO. OF CHARACTERS IN MESSAGE",100)=""
^DD(772,"B","NO. OF EVENTS IN MESSAGE",101)=""
^DD(772,"B","PARENT MESSAGE",8)=""
^DD(772,"B","PRIORITY",9)=""
^DD(772,"B","RELATED EVENT PROTOCOL",10)=""
^DD(772,"B","RELATED MAILMAN MESSAGE",5)=""
^DD(772,"B","SECURITY",12)=""
^DD(772,"B","SERVER APPLICATION",2)=""
^DD(772,"B","STATUS",20)=""
^DD(772,"B","TRANSMISSION TIME",102)=""
^DD(772,"B","TRANSMISSION TYPE",4)=""
^DD(772,"GL",0,1,.01)=""
^DD(772,"GL",0,2,2)=""
^DD(772,"GL",0,3,3)=""
^DD(772,"GL",0,4,4)=""
^DD(772,"GL",0,5,5)=""
^DD(772,"GL",0,6,6)=""
^DD(772,"GL",0,7,7)=""
^DD(772,"GL",0,8,8)=""
^DD(772,"GL",0,9,9)=""
^DD(772,"GL",0,10,10)=""
^DD(772,"GL",0,11,11)=""
^DD(772,"GL",0,12,12)=""
^DD(772,"GL",0,13,16)=""
^DD(772,"GL",0,14,14)=""
^DD(772,"GL",1,1,13)=""
^DD(772,"GL",2,1,15)=""
^DD(772,"GL",2,2,2.02)=""
^DD(772,"GL","IN",0,200)=""
^DD(772,"GL","P",1,20)=""
^DD(772,"GL","P",2,21)=""
^DD(772,"GL","P",3,22)=""
^DD(772,"GL","P",4,23)=""
^DD(772,"GL","P",7,26)=""
^DD(772,"GL","S",1,100)=""
^DD(772,"GL","S",2,101)=""
^DD(772,"GL","S",3,102)=""
^DD(772,"IX",.01)=""
^DD(772,"IX",3)=""
^DD(772,"IX",4)=""
^DD(772,"IX",6)=""
^DD(772,"IX",8)=""
^DD(772,"IX",11)=""
^DD(772,"IX",20)=""
^DD(772,"IX",21)=""
^DD(772,"RQ",.01)=""
^DD(772,"RQ",2)=""
^DD(772,"RQ",3)=""
^DD(772,"RQ",4)=""
^DD(772,"RQ",9)=""
^DD(772,"RQ",14)=""
^DD(772,"RQ",20)=""
^DD(772,"SB",772.02,200)=""
^DD(772.02,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^DD(772.02,0,"NM","MESSAGE TEXT")=""
^DD(772.02,0,"UP")="772"
^DD(772.02,.01,0)="MESSAGE TEXT^WL^^0;1^Q"
^DD(772.02,.01,3)="The text of the incoming messages for this transmission."
^DD(772.02,.01,21,0)="^^1^1^2930505^"
^DD(772.02,.01,21,1,0)="The text of the incoming messages for this transmission."
^DD(772.02,.01,"DT")="2940715"
^DD(772.02,"B","MESSAGE TEXT",.01)=""
^DD(772.02,"GL",0,1,.01)=""
^DD(773,0)="FIELD^^200^45"
^DD(773,0,"DDA")="N"
^DD(773,0,"DT")="3040128"
^DD(773,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(773,0,"IX","AC",773,7)=""
^DD(773,0,"IX","AD",773,100)=""
^DD(773,0,"IX","AE",773,14)=""
^DD(773,0,"IX","AF",773,6)=""
^DD(773,0,"IX","AG",773,20)=""
^DD(773,0,"IX","AH",773,2)=""
^DD(773,0,"IX","B",773,.01)=""
^DD(773,0,"IX","C",773,2)=""
^DD(773,0,"NM","HL7 MESSAGE ADMINISTRATION")=""
^DD(773,0,"PT",79.3,.05)=""
^DD(773,0,"PT",773,6)=""
^DD(773,0,"PT",773,12)=""
^DD(773,0,"VR")="1.6"
^DD(773,0,"VRPK")="HL"
^DD(773,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(773,.001,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(773,.001,"DT")="2981013"
^DD(773,.01,0)="DATE/TIME ENTERED^RP772'^HL(772,^0;1^Q"
^DD(773,.01,1,0)="^.1"
^DD(773,.01,1,1,0)="773^B"
^DD(773,.01,1,1,1)="S ^HLMA(""B"",$E(X,1,30),DA)="""""
^DD(773,.01,1,1,2)="K ^HLMA(""B"",$E(X,1,30),DA)"
^DD(773,.01,3)=""
^DD(773,.01,"DT")="2980416"
^DD(773,2,0)="MESSAGE ID^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(773,2,1,0)="^.1^^-1"
^DD(773,2,1,2,0)="773^AH^MUMPS"
^DD(773,2,1,2,1)="S:$P(^HLMA(DA,0),U,12) ^HLMA(""AH"",+$P(^(0),U,12),X,DA)="""""
^DD(773,2,1,2,2)="K:$P(^HLMA(DA,0),U,12) ^HLMA(""AH"",+$P(^(0),U,12),X,DA)"
^DD(773,2,1,2,3)="This x-reference is used in conjunction with the 'AG' x-ref on field 205"
^DD(773,2,1,2,"%D",0)="^^2^2^2980811^^^"
^DD(773,2,1,2,"%D",1,0)="This x-reference is used to look up the original message when processing"
^DD(773,2,1,2,"%D",2,0)="a response."
^DD(773,2,1,2,"DT")="2980811"
^DD(773,2,3)="Answer must be 1-60 characters in length"
^DD(773,2,21,0)="^^1^1^2980414^^"
^DD(773,2,21,1,0)="This is an unique identifier associated with a message."
^DD(773,2,"DT")="3070801"
^DD(773,2.02,0)="FAST PURGE DT/TM^D^^2;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(773,2.02,3)="This is the date and time that the record may be purged."
^DD(773,2.02,"DT")="3030923"
^DD(773,3,0)="TRANSMISSION TYPE^RSI^I:INCOMING;O:OUTGOING;^0;3^Q"
^DD(773,3,3)="The type of transmission (incoming or outgoing)."
^DD(773,3,21,0)="^^1^1^2980423^"
^DD(773,3,21,1,0)="The type of transmission (incoming or outgoing)."
^DD(773,3,"DT")="2980513"
^DD(773,4,0)="PRIORITY^S^I:IMMEDIATE;D:DEFERRED;^0;4^Q"
^DD(773,4,3)="The mode in which this message is delivered"
^DD(773,4,21,0)="^^1^1^2980505^"
^DD(773,4,21,1,0)="The delivery priority assigned to this outgoing message."
^DD(773,4,"DT")="2980505"
^DD(773,5,0)="HEADER TYPE^S^M:SINGLE MESSAGE;B:BATCH OF MESSAGES;F:FILE OF BATCHES;^0;5^Q"
^DD(773,5,21,0)="^^8^8^2980505^"
^DD(773,5,21,1,0)="There are three types of messages as follows:"
^DD(773,5,21,2,0)=" "
^DD(773,5,21,3,0)=" M for Single message (contains only one MSH segment)"
^DD(773,5,21,4,0)=" B for Batch of messages (contains multiple MSH segments)"
^DD(773,5,21,5,0)=" F for File of batches (contains multiple BHS segments)"
^DD(773,5,21,6,0)=" "
^DD(773,5,21,7,0)="This field is automatically filled in by the Messaging System and is"
^DD(773,5,21,8,0)="used to determine the appropriate header segment to build for a message."
^DD(773,5,"DT")="2980811"
^DD(773,6,0)="INITIAL MESSAGE^P773'^HLMA(^0;6^Q"
^DD(773,6,1,0)="^.1"
^DD(773,6,1,1,0)="773^AF"
^DD(773,6,1,1,1)="S ^HLMA(""AF"",$E(X,1,30),DA)="""""
^DD(773,6,1,1,2)="K ^HLMA(""AF"",$E(X,1,30),DA)"
^DD(773,6,1,1,"DT")="2981014"
^DD(773,6,21,0)="^^2^2^2981208^^"
^DD(773,6,21,1,0)="This is the first message of a transaction.  All messages pointing"
^DD(773,6,21,2,0)="to the initial message are part of the transaction."
^DD(773,6,"DT")="2981208"
^DD(773,7,0)="LOGICAL LINK^P870'^HLCS(870,^0;7^Q"
^DD(773,7,1,0)="^.1"
^DD(773,7,1,1,0)="773^AC^MUMPS"
^DD(773,7,1,1,1)="Q  S %=$P(^HLMA(DA,0),U,3) S:%]"""" ^HLMA(""AC"",%,X,DA)="""" I %=""O"",'$D(HLTCPO) D LLCNT^HLCSTCP(X,3)"
^DD(773,7,1,1,2)="Q  S %=$P(^HLMA(DA,0),U,3) K:%]"""" ^HLMA(""AC"",%,X,DA)"
^DD(773,7,1,1,3)="Required to determine outgoing transmissions and incoming deferred responses."
^DD(773,7,1,1,"%D",0)="^.101^7^7^3031202^^^^"
^DD(773,7,1,1,"%D",1,0)="This cross-references is used to determine outgoing transmission for a"
^DD(773,7,1,1,"%D",2,0)="Logical Link; ^HLMA(""AC"",""O"",LL,DA).  The background job for the LL will"
^DD(773,7,1,1,"%D",3,0)="use this x-ref and delete it as each message is transmitted."
^DD(773,7,1,1,"%D",4,0)="It is also used to process incoming messages that have a deferred response;"
^DD(773,7,1,1,"%D",5,0)="^HLMA(""AC"",""I"",LL,DA).  The incoming filer will check this x-ref and delete"
^DD(773,7,1,1,"%D",6,0)="it as it processes each message."
^DD(773,7,1,1,"%D",7,0)=""
^DD(773,7,1,1,"DT")="3031202"
^DD(773,7,3)="The link that will be used to transmit this message over."
^DD(773,7,21,0)="^^4^4^2980923^^"
^DD(773,7,21,1,0)="This is a pointer to the Logical Link file (#870).  This link is used"
^DD(773,7,21,2,0)="to transmit messages to an external receiving application.  This field"
^DD(773,7,21,3,0)="is not filled in when messages are exchanged between DHCP applications"
^DD(773,7,21,4,0)="on the same system."
^DD(773,7,"DT")="3031202"
^DD(773,8,0)="SUBSCRIBER PROTOCOL^P101'^ORD(101,^0;8^Q"
^DD(773,8,3)="The Protocol related to this message."
^DD(773,8,21,0)="^^1^1^2980505^"
^DD(773,8,21,1,0)="The Protocol related to this message."
^DD(773,8,"DT")="2980706"
^DD(773,9,0)="SECURITY^F^^0;9^K:$L(X)>40!($L(X)<1) X"
^DD(773,9,3)="Answer must be 1-40 characters in length."
^DD(773,9,21,0)="^^1^1^2980526^"
^DD(773,9,21,1,0)="The value to use in the Security field of the Message Header segment."
^DD(773,9,"DT")="2980526"
^DD(773,10,0)="DON'T PURGE^S^1:DON'T PURGE;0:TO PURGE;^2;1^Q"
^DD(773,10,3)="When set to 1, the message will never be purged by HL7."
^DD(773,10,21,0)="^^4^4^2980505^"
^DD(773,10,21,1,0)="When this field is set to 1, the message wil never be purged by the HL7"
^DD(773,10,21,2,0)="""Purge Message Text File Entries"" option."
^DD(773,10,21,3,0)="However, when this field is set to 0 or is empty, the message is allowed"
^DD(773,10,21,4,0)="to be purged by the HL7 ""Purge Message Text Entries"" option."
^DD(773,10,"DT")="2980505"
^DD(773,11,0)="CONTINUATION POINTER^F^^1;1^K:$L(X)>180!($L(X)<1) X"
^DD(773,11,3)="Answer must be 1-180 characters in length."
^DD(773,11,21,0)="^^2^2^2980526^"
^DD(773,11,21,1,0)="The value to use in the Continuation Pointer field of the Message"
^DD(773,11,21,2,0)="Header segment."
^DD(773,11,"DT")="2980526"
^DD(773,12,0)="ACKNOWLEDGEMENT TO^P773'^HLMA(^0;10^Q"
^DD(773,12,21,0)="^^2^2^2981208^"
^DD(773,12,21,1,0)="This field points to the message that the MSA segment in the"
^DD(773,12,21,2,0)="current message is acknowledging."
^DD(773,12,"DT")="2981208"
^DD(773,13,0)="SENDING APPLICATION^P771'^HL(771,^0;11^Q"
^DD(773,13,21,0)="^^1^1^2980811^"
^DD(773,13,21,1,0)="The application that is sending the message."
^DD(773,13,"DT")="2980811"
^DD(773,14,0)="RECEIVING APPLICATION^P771'^HL(771,^0;12^Q"
^DD(773,14,1,0)="^.1"
^DD(773,14,1,1,0)="773^AE^MUMPS"
^DD(773,14,1,1,1)="S:$P($G(^HLMA(DA,0)),U,2)]"""" ^HLMA(""AH"",X,$P(^(0),U,2),DA)="""""
^DD(773,14,1,1,2)="K:$P($G(^HLMA(DA,0)),U,2)]"""" ^HLMA(""AH"",X,$P(^(0),U,2),DA)"
^DD(773,14,1,1,3)="This x-reference is used in conjunction with the 'AH' on field 2."
^DD(773,14,1,1,"%D",0)="^^2^2^2980811^"
^DD(773,14,1,1,"%D",1,0)="This x-reference is used to look up the original message when processing"
^DD(773,14,1,1,"%D",2,0)="a response."
^DD(773,14,1,1,"DT")="2980811"
^DD(773,14,21,0)="^^1^1^2980811^"
^DD(773,14,21,1,0)="The application that is receiving this message."
^DD(773,14,"DT")="2980811"
^DD(773,15,0)="MESSAGE TYPE^P771.2'^HL(771.2,^0;13^Q"
^DD(773,15,3)=""
^DD(773,15,21,0)="^^1^1^2980811^"
^DD(773,15,21,1,0)="This is the Message type from the HL7 standard."
^DD(773,15,"DT")="2980812"
^DD(773,16,0)="EVENT TYPE^P779.001'^HL(779.001,^0;14^Q"
^DD(773,16,3)=""
^DD(773,16,21,0)="^^1^1^2980811^"
^DD(773,16,21,1,0)="This is the Event Type from the HL7 standard."
^DD(773,16,"DT")="2980812"
^DD(773,17,0)="LOGICAL LINK - IN QUEUE^P870'^HLCS(870,^0;17^Q"
^DD(773,17,3)="The logical link for this message's subscriber protocol is set into this field."
^DD(773,17,"DT")="3040128"
^DD(773,20,0)="STATUS^RP771.6'^HL(771.6,^P;1^Q"
^DD(773,20,1,0)="^.1"
^DD(773,20,1,1,0)="773^AG"
^DD(773,20,1,1,1)="S ^HLMA(""AG"",$E(X,1,30),DA)="""""
^DD(773,20,1,1,2)="K ^HLMA(""AG"",$E(X,1,30),DA)"
^DD(773,20,1,1,"DT")="2990302"
^DD(773,20,3)="The current status of this message."
^DD(773,20,21,0)="^.001^1^1^3010906^^"
^DD(773,20,21,1,0)="The status currently assigned to this message."
^DD(773,20,"DT")="3030804"
^DD(773,21,0)="STATUS UPDATE DATE/TIME^D^^P;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(773,21,1,0)="^.1^^0"
^DD(773,21,3)="The date and time the Status was updated."
^DD(773,21,21,0)="^^1^1^2980526^^^"
^DD(773,21,21,1,0)="The date and time the Status field was last updated for this message."
^DD(773,21,"DT")="2980526"
^DD(773,22,0)="ERROR MESSAGE^F^^P;3^K:$L(X)>200!($L(X)<3) X"
^DD(773,22,3)="Answer must be 3-200 characters in length."
^DD(773,22,21,0)="^^2^2^2980505^"
^DD(773,22,21,1,0)="If there was an error in sending or receiving this message,"
^DD(773,22,21,2,0)="this field will contain the error message."
^DD(773,22,"DT")="2980505"
^DD(773,23,0)="ERROR TYPE^P771.7'^HL(771.7,^P;4^Q"
^DD(773,23,21,0)="^^1^1^2980505^"
^DD(773,23,21,1,0)="A description of the type of error that occured."
^DD(773,23,"DT")="2980505"
^DD(773,24,0)="TRANSMISSION ATTEMPTS^NJ3,0^^P;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(773,24,3)="Type a Number between 1 and 999."
^DD(773,24,21,0)="^^2^2^3000330^^"
^DD(773,24,21,1,0)="This field contains the number of transmission attempts for this outgoing"
^DD(773,24,21,2,0)="message."
^DD(773,24,"DT")="3000330"
^DD(773,25,0)="OPEN ATTEMPTS^NJ3,0^^P;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(773,25,3)="Type a number between 0 and 999, 0 Decimal Digits"
^DD(773,25,21,0)="^^2^2^3000330^"
^DD(773,25,21,1,0)="This field contains the number of attempts to open a TCP connections for"
^DD(773,25,21,2,0)="this outgoing message."
^DD(773,25,"DT")="3000330"
^DD(773,26,0)="ACK TIMEOUT^NJ3,0^^P;7^K:+X'=X!(X>600)!(X<0)!(X?.E1"".""1.N) X"
^DD(773,26,3)="Type a number between 0 and 600, 0 Decimal Digits"
^DD(773,26,21,0)="^^3^3^3000330^"
^DD(773,26,21,1,0)="The number of seconds the Lower Layer Protocol waits for an"
^DD(773,26,21,2,0)="acknowledgement from the receiving application. This field will"
^DD(773,26,21,3,0)="override the ACK TIMEOUT of the Logical Link for this message."
^DD(773,26,"DT")="3000330"
^DD(773,50,0)="MESSAGE SIZE^CJ12,0^^ ; ^S X=$$MSGSIZE^HLCSUTL(D0) S X=$J(X,0,0)"
^DD(773,50,9)="^"
^DD(773,50,9.01)=""
^DD(773,50,9.1)="S X=$$MSGSIZE^HLCSUTL(D0)"
^DD(773,50,21,0)="^^2^2^3000601^"
^DD(773,50,21,1,0)="This computed field returns the number of character in a message."
^DD(773,50,21,2,0)="It includes the message header and body."
^DD(773,90.01,0)="HLP-SUBSCRIBER PROTOCOL^F^^90;1^K:$L(X)>45!($L(X)<1) X"
^DD(773,90.01,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-45 characters)"
^DD(773,90.01,21,0)="^^22^22^3021210^"
^DD(773,90.01,21,1,0)="This field holds the SUBSCRIBER PROTOCOL that was on the 1st piece of the"
^DD(773,90.01,21,2,0)="HLP(""SUBSCRIBER""[,#]) subscriber entry.  (If the HLP(""SUBSCRIBER"") entry"
^DD(773,90.01,21,3,0)="was used to reset the MSH segment fields, this field will be null.)"
^DD(773,90.01,21,4,0)=" "
^DD(773,90.01,21,5,0)=" "
^DD(773,90.01,21,6,0)="Additional Comments on ^HLMA(ien,90) Node"
^DD(773,90.01,21,7,0)="-----------------------------------------"
^DD(773,90.01,21,8,0)="When the MSH segment fields are successfully reset using either "
^DD(773,90.01,21,9,0)="HLP(""SUBSCRIBER"") or HLP(""SUBSCRIBER"",#), the entire HLP(""SUBSCRIBER"") or"
^DD(773,90.01,21,10,0)="HLP(""SUBSCRIBER"",#) array entry is stored on the ^HLMA(#,90) node.  There"
^DD(773,90.01,21,11,0)="are eight pieces in the HLP(""SUBSCRIBER""[,#]) array, and there are eight"
^DD(773,90.01,21,12,0)="fields on the ^HLMA(ien,90) node.  The eight pieces of"
^DD(773,90.01,21,13,0)="HLP(""SUBSCRIBER""[,#]) and the eight ^HLMA(ien,90) fields exactly"
^DD(773,90.01,21,14,0)="correspond to each other."
^DD(773,90.01,21,15,0)=" "
^DD(773,90.01,21,16,0)="Note:  When ^HLMA(ien,90) is created, it is set equal to the entire"
^DD(773,90.01,21,17,0)="       value of the HLP(""SUBSCRIBER""[,#]) array entry.  The fields on"
^DD(773,90.01,21,18,0)="       the ^HLMA(ien,90) node are not set separately!  (So, if the"
^DD(773,90.01,21,19,0)="       application developer creates an invalid HLP(""SUBSCRIBER""[,#])"
^DD(773,90.01,21,20,0)="       array, with invalid data stored in one or more of the eight"
^DD(773,90.01,21,21,0)="       pieces, the ^HLMA(ien,90) node will similarly hold invalid"
^DD(773,90.01,21,22,0)="       data.)"
^DD(773,90.01,"DT")="3021022"
^DD(773,90.02,0)="HLP-SENDING APPLICATION^F^^90;2^K:$L(X)>45!($L(X)<1) X"
^DD(773,90.02,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-45 characters)"
^DD(773,90.02,21,0)="^.001^5^5^3021210^^"
^DD(773,90.02,21,1,0)="This field holds the SENDING APPLICATION that was on the 2nd piece of the "
^DD(773,90.02,21,2,0)="HLP(""SUBSCRIBER""[,#]) subscriber entry.  "
^DD(773,90.02,21,3,0)=" "
^DD(773,90.02,21,4,0)="(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the "
^DD(773,90.02,21,5,0)="description for field # 90.01.)"
^DD(773,90.02,"DT")="3021022"
^DD(773,90.03,0)="HLP-SENDING FACILITY^F^^90;3^K:$L(X)>30!($L(X)<1) X"
^DD(773,90.03,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-30 characters)"
^DD(773,90.03,21,0)="^^5^5^3021210^"
^DD(773,90.03,21,1,0)="This field holds the SENDING FACILITY that was on the 3rd piece of the"
^DD(773,90.03,21,2,0)="HLP(""SUBSCRIBER""[,#]) subscriber entry.  "
^DD(773,90.03,21,3,0)=" "
^DD(773,90.03,21,4,0)="(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the "
^DD(773,90.03,21,5,0)="description for field # 90.01.)"
^DD(773,90.03,"DT")="3021022"
^DD(773,90.04,0)="HLP-RECEIVING APPLICATION^F^^90;4^K:$L(X)>45!($L(X)<1) X"
^DD(773,90.04,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-45 characters)"
^DD(773,90.04,21,0)="^^5^5^3021210^"
^DD(773,90.04,21,1,0)="This field holds the RECEIVING APPLICATION that was on the 4th piece of"
^DD(773,90.04,21,2,0)="the HLP(""SUBSCRIBER""[,#]) subscriber entry."
^DD(773,90.04,21,3,0)=" "
^DD(773,90.04,21,4,0)="(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the "
^DD(773,90.04,21,5,0)="description for field # 90.01.)"
^DD(773,90.04,"DT")="3021022"
^DD(773,90.05,0)="HLP-RECEIVING FACILITY^F^^90;5^K:$L(X)>30!($L(X)<1) X"
^DD(773,90.05,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-30 characters)"
^DD(773,90.05,21,0)="^^5^5^3021210^"
^DD(773,90.05,21,1,0)="This field holds the RECEIVING FACILITY that was on the 5th piece of the"
^DD(773,90.05,21,2,0)="HLP(""SUBSCRIBER""[,#]) subscriber entry."
^DD(773,90.05,21,3,0)=" "
^DD(773,90.05,21,4,0)="(See the 'Additional Comments on ^HLMA(ien,90) Node' section in the "
^DD(773,90.05,21,5,0)="description for field # 90.01.)"
^DD(773,90.05,"DT")="3021022"
^DD(773,90.06,0)="HLP-SUBROUTINE^F^^90;6^K:$L(X)>8!($L(X)<1) X"
^DD(773,90.06,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-8 characters)"
^DD(773,90.06,21,0)="^^1^1^3021210^"
^DD(773,90.06,21,1,0)="See the description for the HLP-ROUTINE field (#90.07)."
^DD(773,90.06,"DT")="3021022"
^DD(773,90.07,0)="HLP-ROUTINE^F^^90;7^K:$L(X)>8!($L(X)<1) X"
^DD(773,90.07,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-8 characters)"
^DD(773,90.07,21,0)="^^4^4^3021210^"
^DD(773,90.07,21,1,0)="Application developers may pass a reference to M code in the "
^DD(773,90.07,21,2,0)="HLP(""SUBSCRIBER""[,#]) subscriber entry.  When this is done, the "
^DD(773,90.07,21,3,0)="subroutine being referenced is stored in the HLP-SUBROUTINE field "
^DD(773,90.07,21,4,0)="(#90.06), and the routine is stored in this field."
^DD(773,90.07,"DT")="3021022"
^DD(773,90.08,0)="HLP-DEBUG^F^^90;8^K:$L(X)>12!($L(X)<1) X"
^DD(773,90.08,3)="This field's source is the HLP(""SUBSCRIBER""[,#]) array (1-12 characters)"
^DD(773,90.08,21,0)="^^28^28^3021210^"
^DD(773,90.08,21,1,0)="The application developer can control what type of debugging data is "
^DD(773,90.08,21,2,0)="stored when MSH segment fields are reset by the HLP(""SUBSCRIBER""[,#]) "
^DD(773,90.08,21,3,0)="entry.  This field holds the data on the eighth piece of the "
^DD(773,90.08,21,4,0)="HLP(""SUBSCRIBER""[,#]) entry, which also specifies which debugging data "
^DD(773,90.08,21,5,0)="should be stored."
^DD(773,90.08,21,6,0)=" "
^DD(773,90.08,21,7,0)="Types Debug Data:"
^DD(773,90.08,21,8,0)="-----------------"
^DD(773,90.08,21,9,0)="There are three types of debug data:"
^DD(773,90.08,21,10,0)=" "
^DD(773,90.08,21,11,0)="  - Node ^HLMA(ien,90) data.  (See global map of this file for fields.)"
^DD(773,90.08,21,12,0)="  - Node ^HLMA(ien,91) data.  (See global map of this file for fields.)"
^DD(773,90.08,21,13,0)="  - ^XTMP(""HLCSHDR3 ien"") data.  (See patch documentation for "
^DD(773,90.08,21,14,0)="    explanation.)"
^DD(773,90.08,21,15,0)=" "
^DD(773,90.08,21,16,0)="Syntax:  "
^DD(773,90.08,21,17,0)="-------"
^DD(773,90.08,21,18,0)="The syntax for the eight piece of the HLP(""SUBSCRIBER""[,#]) array entry, "
^DD(773,90.08,21,19,0)="(which is also the value for this field), is:"
^DD(773,90.08,21,20,0)=" "
^DD(773,90.08,21,21,0)="   [1]-[1]-[1]      "
^DD(773,90.08,21,22,0)=" "
^DD(773,90.08,21,23,0)="The [brackets] above indicate optionality; any of the three "
^DD(773,90.08,21,24,0)="dash-delimited pieces may be null."
^DD(773,90.08,21,25,0)=" "
^DD(773,90.08,21,26,0)="Examples:  1-1-1 -> ^HLMA(ien,90), ^HLMA(ien,91) and ^XTMP data captured."
^DD(773,90.08,21,27,0)="           1--1 -> ^HLMA(ien,90 and ^XTMP data captured."
^DD(773,90.08,21,28,0)="           --1 -> Only ^XTMP data captured."
^DD(773,90.08,"DT")="3021022"
^DD(773,91.01,0)="ORIGINAL SND APP^F^^91;1^K:$L(X)>45!($L(X)<1) X"
^DD(773,91.01,3)="This field contains the value of the SENDING APPLICATION before overwrite."
^DD(773,91.01,21,0)="^^6^6^3021210^"
^DD(773,91.01,21,1,0)="The value of the SENDING APPLICATION is calculated from the event driver"
^DD(773,91.01,21,2,0)="protocol.  If this value is overwritten by a HLP(""SUBSCRIBER""[,#]) entry,"
^DD(773,91.01,21,3,0)="the value before overwrite is stored in this field."
^DD(773,91.01,21,4,0)=" "
^DD(773,91.01,21,5,0)="Note:  Fields 91.03, 91.05, and 91.07 similarly hold the pre-overwrite"
^DD(773,91.01,21,6,0)="       values for their respective fields."
^DD(773,91.01,"DT")="3030123"
^DD(773,91.02,0)="ORIGINAL SND APP-SOURCE^S^A:ARRAY;M:M CODE;^91;2^Q"
^DD(773,91.02,3)="This field records whether the overwrite was created by the HLP(""SUBSCRIBER""[,#]) array, or by M code."
^DD(773,91.02,21,0)="^^5^5^3021210^"
^DD(773,91.02,21,1,0)="MSH segment fields can be overwritten by free-text values on pieces 2 "
^DD(773,91.02,21,2,0)="through 5 of the HLP(""SUBSCRIBER""[,#]) node, or by M code referenced in "
^DD(773,91.02,21,3,0)="this node.  If the HLP-ORIGINAL SND APP field (#91.01) is overwritten by "
^DD(773,91.02,21,4,0)="free-text data, this field will hold an ""A"" (for array.)  If overwritten "
^DD(773,91.02,21,5,0)="by M code this field will hold ""M""."
^DD(773,91.02,"DT")="3030123"
^DD(773,91.03,0)="ORIGINAL SND FAC^F^^91;3^K:$L(X)>30!($L(X)<1) X"
^DD(773,91.03,3)="This field contains the value of the SENDING FACILITY before overwrite."
^DD(773,91.03,21,0)="^.001^3^3^3021210^^"
^DD(773,91.03,21,1,0)="The value of the SENDING FACILITY is calculated from the event driver"
^DD(773,91.03,21,2,0)="protocol.  If this value is overwritten by a HLP(""SUBSCRIBER""[,#]) entry,"
^DD(773,91.03,21,3,0)="the value before overwrite is stored in this field."
^DD(773,91.03,"DT")="3030123"
^DD(773,91.04,0)="ORIGINAL SND FAC-SOURCE^S^A:ARRAY;M:M CODE;^91;4^Q"
^DD(773,91.04,3)="This field records whether the overwrite was created by the HLP(""SUBSCRIBER""[,#]) array, or by M code."
^DD(773,91.04,21,0)="^^5^5^3021210^"
^DD(773,91.04,21,1,0)="MSH segment fields can be overwritten by free-text values on pieces 2 "
^DD(773,91.04,21,2,0)="through 5 of the HLP(""SUBSCRIBER""[,#]) node, or by M code referenced in "
^DD(773,91.04,21,3,0)="this node.  If the HLP-ORIGINAL SND FAC field (#91.03) is overwritten by "
^DD(773,91.04,21,4,0)="free-text data, this field will hold an ""A"" (for array.)  If overwritten "
^DD(773,91.04,21,5,0)="by M code this field will hold ""M""."
^DD(773,91.04,"DT")="3030123"
^DD(773,91.05,0)="ORIGINAL REC APP^F^^91;5^K:$L(X)>45!($L(X)<1) X"
^DD(773,91.05,3)="This field contains the value of the RECEIVING APPLICATION before overwrite."
^DD(773,91.05,21,0)="^^3^3^3021210^"
^DD(773,91.05,21,1,0)="The value of the RECEIVING APPLICATION is calculated from the subscriber"
^DD(773,91.05,21,2,0)="protocol.  If this value is overwritten by a HLP(""SUBSCRIBER""[,#]) entry,"
^DD(773,91.05,21,3,0)="the value before overwrite is stored in this field."
^DD(773,91.05,"DT")="3030123"
^DD(773,91.06,0)="ORIGINAL REC APP-SOURCE^S^A:ARRAY;M:M CODE;^91;6^Q"
^DD(773,91.06,3)="This field records whether the overwrite was created by the HLP(""SUBSCRIBER""[,#]) array, or by M code."
^DD(773,91.06,21,0)="^^5^5^3021210^"
^DD(773,91.06,21,1,0)="MSH segment fields can be overwritten by free-text values on pieces 2 "
^DD(773,91.06,21,2,0)="through 5 of the HLP(""SUBSCRIBER""[,#]) node, or by M code referenced in "
^DD(773,91.06,21,3,0)="this node.  If the HLP-ORIGINAL REC APP field (#91.05) is overwritten by "
^DD(773,91.06,21,4,0)="free-text data, this field will hold an ""A"" (for array.)  If overwritten "
^DD(773,91.06,21,5,0)="by M code this field will hold ""M""."
^DD(773,91.06,"DT")="3030123"
^DD(773,91.07,0)="ORIGINAL REC FAC^F^^91;7^K:$L(X)>30!($L(X)<1) X"
^DD(773,91.07,3)="This field contains the value of the SENDING FACILITY before overwrite."
^DD(773,91.07,21,0)="^^3^3^3021210^"
^DD(773,91.07,21,1,0)="The value of the RECEIVING FACILITY is calculated from the subscriber"
^DD(773,91.07,21,2,0)="protocol. If this value is overwritten by a HLP(""SUBSCRIBER""[,#]) entry,"
^DD(773,91.07,21,3,0)="the value before overwrite is stored in this field."
^DD(773,91.07,"DT")="3030321"
^DD(773,91.08,0)="ORIGINAL REC FAC-SOURCE^S^A:ARRAY;M:M CODE;^91;8^Q"
^DD(773,91.08,3)="This field records whether the overwrite was created by the HLP(""SUBSCRIBER""[,#]) array, or by M code."
^DD(773,91.08,21,0)="^^5^5^3021210^"
^DD(773,91.08,21,1,0)="MSH segment fields can be overwritten by free-text values on pieces 2 "
^DD(773,91.08,21,2,0)="through 5 of the HLP(""SUBSCRIBER""[,#]) node, or by M code referenced in "
^DD(773,91.08,21,3,0)="this node.  If the HLP-ORIGINAL REC FAC field (#91.07) is overwritten by "
^DD(773,91.08,21,4,0)="free-text data, this field will hold an ""A"" (for array.)  If overwritten "
^DD(773,91.08,21,5,0)="by M code this field will hold ""M""."
^DD(773,91.08,"DT")="3030321"
^DD(773,100,0)="DATE/TIME PROCESSED^D^^S;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(773,100,1,0)="^.1^^-1"
^DD(773,100,1,1,0)="773^AD^MUMPS"
^DD(773,100,1,1,1)="S ^HLMA(""AD"",X,DA)="""" N %,%1 S %=$G(^HLMA(DA,0)),%1=$P(%,U,3),%=$P(%,U,7) K:%1]""""&% ^HLMA(""AC"",%1,%,DA)"
^DD(773,100,1,1,2)="K ^HLMA(""AD"",X,DA)"
^DD(773,100,1,1,3)="Required to determine if a message has been processed."
^DD(773,100,1,1,"%D",0)="^.101^2^2^3031208^^^^"
^DD(773,100,1,1,"%D",1,0)="This cross-reference is used to remove messages from the 'AC' x-ref. after"
^DD(773,100,1,1,"%D",2,0)="they have been processed.  It also set the 'AD' x-ref for the date processed."
^DD(773,100,1,1,"DT")="3031208"
^DD(773,100,3)="The date and time this transmission was processed."
^DD(773,100,21,0)="^^4^4^2980526^"
^DD(773,100,21,1,0)="The date and time this message was processed (sent or received)."
^DD(773,100,21,2,0)="For outgoing messages, it is the time the message was actually"
^DD(773,100,21,3,0)="transmitted.  For incoming messages, it is the time the application"
^DD(773,100,21,4,0)="processed the message."
^DD(773,100,"DT")="3031208"
^DD(773,200,0)="MSH^773.01^^MSH;0"
^DD(773,"B","ACK TIMEOUT",26)=""
^DD(773,"B","ACKNOWLEDGEMENT TO",12)=""
^DD(773,"B","CONTINUATION POINTER",11)=""
^DD(773,"B","DATE/TIME ENTERED",.01)=""
^DD(773,"B","DATE/TIME PROCESSED",100)=""
^DD(773,"B","DON'T PURGE",10)=""
^DD(773,"B","ERROR MESSAGE",22)=""
^DD(773,"B","ERROR TYPE",23)=""
^DD(773,"B","EVENT TYPE",16)=""
^DD(773,"B","FAST PURGE DT/TM",2.02)=""
^DD(773,"B","HEADER TYPE",5)=""
^DD(773,"B","HLP-DEBUG",90.08)=""
^DD(773,"B","HLP-RECEIVING APPLICATION",90.04)=""
^DD(773,"B","HLP-RECEIVING FACILITY",90.05)=""
^DD(773,"B","HLP-ROUTINE",90.07)=""
^DD(773,"B","HLP-SENDING APPLICATION",90.02)=""
^DD(773,"B","HLP-SENDING FACILITY",90.03)=""
^DD(773,"B","HLP-SUBROUTINE",90.06)=""
^DD(773,"B","HLP-SUBSCRIBER PROTOCOL",90.01)=""
^DD(773,"B","INITIAL MESSAGE",6)=""
^DD(773,"B","LOGICAL LINK",7)=""
^DD(773,"B","LOGICAL LINK - IN QUEUE",17)=""
^DD(773,"B","MESSAGE ID",2)=""
^DD(773,"B","MESSAGE SIZE",50)=""
^DD(773,"B","MESSAGE TYPE",15)=""
^DD(773,"B","MSH",200)=""
^DD(773,"B","NUMBER",.001)=""
^DD(773,"B","OPEN ATTEMPTS",25)=""
^DD(773,"B","ORIGINAL REC APP",91.05)=""
^DD(773,"B","ORIGINAL REC APP-SOURCE",91.06)=""
^DD(773,"B","ORIGINAL REC FAC",91.07)=""
^DD(773,"B","ORIGINAL REC FAC-SOURCE",91.08)=""
^DD(773,"B","ORIGINAL SND APP",91.01)=""
^DD(773,"B","ORIGINAL SND APP-SOURCE",91.02)=""
^DD(773,"B","ORIGINAL SND FAC",91.03)=""
^DD(773,"B","ORIGINAL SND FAC-SOURCE",91.04)=""
^DD(773,"B","PRIORITY",4)=""
^DD(773,"B","RECEIVING APPLICATION",14)=""
^DD(773,"B","SECURITY",9)=""
^DD(773,"B","SENDING APPLICATION",13)=""
^DD(773,"B","STATUS",20)=""
^DD(773,"B","STATUS UPDATE DATE/TIME",21)=""
^DD(773,"B","SUBSCRIBER PROTOCOL",8)=""
^DD(773,"B","TRANSMISSION ATTEMPTS",24)=""
^DD(773,"B","TRANSMISSION TYPE",3)=""
^DD(773,"GL",0,1,.01)=""
^DD(773,"GL",0,2,2)=""
^DD(773,"GL",0,3,3)=""
^DD(773,"GL",0,4,4)=""
^DD(773,"GL",0,5,5)=""
^DD(773,"GL",0,6,6)=""
^DD(773,"GL",0,7,7)=""
^DD(773,"GL",0,8,8)=""
^DD(773,"GL",0,9,9)=""
^DD(773,"GL",0,10,12)=""
^DD(773,"GL",0,11,13)=""
^DD(773,"GL",0,12,14)=""
^DD(773,"GL",0,13,15)=""
^DD(773,"GL",0,14,16)=""
^DD(773,"GL",0,17,17)=""
^DD(773,"GL",1,1,11)=""
^DD(773,"GL",2,1,10)=""
^DD(773,"GL",2,2,2.02)=""
^DD(773,"GL",90,1,90.01)=""
^DD(773,"GL",90,2,90.02)=""
^DD(773,"GL",90,3,90.03)=""
^DD(773,"GL",90,4,90.04)=""
^DD(773,"GL",90,5,90.05)=""
^DD(773,"GL",90,6,90.06)=""
^DD(773,"GL",90,7,90.07)=""
^DD(773,"GL",90,8,90.08)=""
^DD(773,"GL",91,1,91.01)=""
^DD(773,"GL",91,2,91.02)=""
^DD(773,"GL",91,3,91.03)=""
^DD(773,"GL",91,4,91.04)=""
^DD(773,"GL",91,5,91.05)=""
^DD(773,"GL",91,6,91.06)=""
^DD(773,"GL",91,7,91.07)=""
^DD(773,"GL",91,8,91.08)=""
^DD(773,"GL","MSH",0,200)=""
^DD(773,"GL","P",1,20)=""
^DD(773,"GL","P",2,21)=""
^DD(773,"GL","P",3,22)=""
^DD(773,"GL","P",4,23)=""
^DD(773,"GL","P",5,24)=""
^DD(773,"GL","P",6,25)=""
^DD(773,"GL","P",7,26)=""
^DD(773,"GL","S",1,100)=""
^DD(773,"IX",.01)=""
^DD(773,"IX",2)=""
^DD(773,"IX",6)=""
^DD(773,"IX",7)=""
^DD(773,"IX",14)=""
^DD(773,"IX",20)=""
^DD(773,"IX",100)=""
^DD(773,"RQ",.01)=""
^DD(773,"RQ",3)=""
^DD(773,"RQ",20)=""
^DD(773,"SB",773.01,200)=""
^DD(773.01,0)="MSH SUB-FIELD^^.01^1"
^DD(773.01,0,"DT")="2980423"
^DD(773.01,0,"NM","MSH")=""
^DD(773.01,0,"UP")="773"
^DD(773.01,.01,0)="MSH^WL^^0;1^Q"
^DD(773.01,.01,21,0)="^^1^1^2980423^"
^DD(773.01,.01,21,1,0)="This is the message header, MSH, for this message."
^DD(773.01,.01,"DT")="2980423"
^DD(773.01,"B","MSH",.01)=""
^DD(773.01,"GL",0,1,.01)=""
^DD(774,0)="FIELD^^1^4"
^DD(774,0,"DT")="2991207"
^DD(774,0,"IX","B",774,.01)=""
^DD(774,0,"IX","C",774.01,3)=""
^DD(774,0,"NM","SUBSCRIPTION CONTROL")=""
^DD(774,0,"PT",2,991.05)=""
^DD(774,0,"PT",40.8,900.01)=""
^DD(774,0,"VR")="1.6"
^DD(774,0,"VRPK")="HL"
^DD(774,.01,0)="NUMBER^RNJ8,0X^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(774,.01,1,0)="^.1"
^DD(774,.01,1,1,0)="774^B"
^DD(774,.01,1,1,1)="S ^HLS(774,""B"",$E(X,1,30),DA)="""""
^DD(774,.01,1,1,2)="K ^HLS(774,""B"",$E(X,1,30),DA)"
^DD(774,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(774,.01,21,0)="^^1^1^2971215^^"
^DD(774,.01,21,1,0)="A new entry in this file is created by making a call to $$ACT^HLSUB."
^DD(774,.01,"DT")="2971215"
^DD(774,.02,0)="PACKAGE^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(774,.02,3)="Answer must be 1-40 characters in length."
^DD(774,.02,21,0)="^^2^2^2991207^"
^DD(774,.02,21,1,0)="This is the application or package responsible for creating this"
^DD(774,.02,21,2,0)="subscription."
^DD(774,.02,"DT")="2991207"
^DD(774,.03,0)="DESCRIPTION^F^^1;1^K:$L(X)>75!($L(X)<1) X"
^DD(774,.03,3)="Answer must be 1-75 characters in length"
^DD(774,.03,"DT")="2991207"
^DD(774,1,0)="DESTINATION^774.01^^TO;0"
^DD(774,"B","DESCRIPTION",.03)=""
^DD(774,"B","DESTINATION",1)=""
^DD(774,"B","NUMBER",.01)=""
^DD(774,"B","PACKAGE",.02)=""
^DD(774,"GL",0,1,.01)=""
^DD(774,"GL",0,2,.02)=""
^DD(774,"GL",1,1,.03)=""
^DD(774,"GL","TO",0,1)=""
^DD(774,"IX",.01)=""
^DD(774,"RQ",.01)=""
^DD(774,"SB",774.01,1)=""
^DD(774.01,0)="DESTINATION SUB-FIELD^^8^9"
^DD(774.01,0,"DT")="2970430"
^DD(774.01,0,"IX","B",774.01,.01)=""
^DD(774.01,0,"NM","DESTINATION")=""
^DD(774.01,0,"UP")="774"
^DD(774.01,.01,0)="DESTINATION^MF^^0;1^K:$L(X)>180!($L(X)<1) X"
^DD(774.01,.01,1,0)="^.1"
^DD(774.01,.01,1,1,0)="774.01^B"
^DD(774.01,.01,1,1,1)="S ^HLS(774,DA(1),""TO"",""B"",$E(X,1,30),DA)="""""
^DD(774.01,.01,1,1,2)="K ^HLS(774,DA(1),""TO"",""B"",$E(X,1,30),DA)"
^DD(774.01,.01,3)="Answer must be 1-180 characters in length."
^DD(774.01,.01,21,0)="^^6^6^2970502^"
^DD(774.01,.01,21,1,0)="This is the full network path to the receiving application. It uses a"
^DD(774.01,.01,21,2,0)="format similar to a mail address:"
^DD(774.01,.01,21,3,0)=" "
^DD(774.01,.01,21,4,0)="RECEIVING APP@DOMAIN"
^DD(774.01,.01,21,5,0)=" (OR)"
^DD(774.01,.01,21,6,0)="RECEIVING APP@LOGICAL LINK"
^DD(774.01,.01,"DT")="2970428"
^DD(774.01,1,0)="RECEIVING APPLICATION^P771'^HL(771,^0;2^Q"
^DD(774.01,1,"DT")="2970428"
^DD(774.01,2,0)="DOMAIN^P4.2'^DIC(4.2,^0;3^Q"
^DD(774.01,2,21,0)="^^1^1^2970502^"
^DD(774.01,2,21,1,0)="This field is reserved for future use."
^DD(774.01,2,"DT")="2970428"
^DD(774.01,3,0)="LOGICAL LINK^P870'^HLCS(870,^0;4^Q"
^DD(774.01,3,1,0)="^.1"
^DD(774.01,3,1,1,0)="774^C"
^DD(774.01,3,1,1,1)="S ^HLS(774,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(774.01,3,1,1,2)="K ^HLS(774,""C"",$E(X,1,30),DA(1),DA)"
^DD(774.01,3,1,1,"DT")="2980429"
^DD(774.01,3,21,0)="^^1^1^2970502^"
^DD(774.01,3,21,1,0)="This contains the HL7 1.6 address of the receiving system."
^DD(774.01,3,"DT")="2980429"
^DD(774.01,4,0)="TYPE^S^0:Patient Descriptive Only;1:Patient Clinical and Descriptive;2:Other;^0;5^Q"
^DD(774.01,4,"DT")="2970428"
^DD(774.01,5,0)="CREATION DATE/TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(774.01,5,"DT")="2970428"
^DD(774.01,6,0)="ACTIVATION DATE/TIME^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(774.01,6,"DT")="2970428"
^DD(774.01,7,0)="TERMINATION DATE/TIME^D^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(774.01,7,"DT")="2970428"
^DD(774.01,8,0)="MODIFICATION DATE/TIME^774.18DA^^HX;0"
^DD(774.01,"B","ACTIVATION DATE/TIME",6)=""
^DD(774.01,"B","CREATION DATE/TIME",5)=""
^DD(774.01,"B","DESTINATION",.01)=""
^DD(774.01,"B","DOMAIN",2)=""
^DD(774.01,"B","LOGICAL LINK",3)=""
^DD(774.01,"B","MODIFICATION DATE/TIME",8)=""
^DD(774.01,"B","RECEIVING APPLICATION",1)=""
^DD(774.01,"B","TERMINATION DATE/TIME",7)=""
^DD(774.01,"B","TYPE",4)=""
^DD(774.01,"GL",0,1,.01)=""
^DD(774.01,"GL",0,2,1)=""
^DD(774.01,"GL",0,3,2)=""
^DD(774.01,"GL",0,4,3)=""
^DD(774.01,"GL",0,5,4)=""
^DD(774.01,"GL",0,6,5)=""
^DD(774.01,"GL",0,7,6)=""
^DD(774.01,"GL",0,8,7)=""
^DD(774.01,"GL","HX",0,8)=""
^DD(774.01,"IX",.01)=""
^DD(774.01,"IX",3)=""
^DD(774.01,"SB",774.18,8)=""
^DD(774.18,0)="MODIFICATION DATE/TIME SUB-FIELD^^4^5"
^DD(774.18,0,"DT")="2970428"
^DD(774.18,0,"IX","B",774.18,.01)=""
^DD(774.18,0,"NM","MODIFICATION DATE/TIME")=""
^DD(774.18,0,"UP")="774.01"
^DD(774.18,.01,0)="MODIFICATION DATE/TIME^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(774.18,.01,1,0)="^.1"
^DD(774.18,.01,1,1,0)="774.18^B"
^DD(774.18,.01,1,1,1)="S ^HLS(774,DA(2),""TO"",DA(1),""HX"",""B"",$E(X,1,30),DA)="""""
^DD(774.18,.01,1,1,2)="K ^HLS(774,DA(2),""TO"",DA(1),""HX"",""B"",$E(X,1,30),DA)"
^DD(774.18,.01,"DT")="2970428"
^DD(774.18,1,0)="LAST CREATION DATE/TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(774.18,1,"DT")="2970428"
^DD(774.18,2,0)="LAST ACTIVATION DATE/TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(774.18,2,"DT")="2970428"
^DD(774.18,3,0)="LAST TERMINATION DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(774.18,3,"DT")="2970428"
^DD(774.18,4,0)="LAST SUBSCRIPTION TYPE^S^0:Patient Descriptive Only;1:Patient Clinical and Descriptive;2:Other;^0;5^Q"
^DD(774.18,4,"DT")="2970428"
^DD(774.18,"B","LAST ACTIVATION DATE/TIME",2)=""
^DD(774.18,"B","LAST CREATION DATE/TIME",1)=""
^DD(774.18,"B","LAST SUBSCRIPTION TYPE",4)=""
^DD(774.18,"B","LAST TERMINATION DATE/TIME",3)=""
^DD(774.18,"B","MODIFICATION DATE/TIME",.01)=""
^DD(774.18,"GL",0,1,.01)=""
^DD(774.18,"GL",0,2,1)=""
^DD(774.18,"GL",0,3,2)=""
^DD(774.18,"GL",0,4,3)=""
^DD(774.18,"GL",0,5,4)=""
^DD(774.18,"IX",.01)=""
^DD(776,0)="FIELD^^52^13"
^DD(776,0,"DT")="3030805"
^DD(776,0,"IX","B",776,.01)=""
^DD(776,0,"IX","M",776,3)=""
^DD(776,0,"NM","HL7 MONITOR JOB")=""
^DD(776,0,"VR")="1.6"
^DD(776,0,"VRPK")="HL"
^DD(776,.01,0)="START TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776,.01,1,0)="^.1"
^DD(776,.01,1,1,0)="776^B"
^DD(776,.01,1,1,1)="S ^HLEV(776,""B"",$E(X,1,30),DA)="""""
^DD(776,.01,1,1,2)="K ^HLEV(776,""B"",$E(X,1,30),DA)"
^DD(776,.01,1,1,"%D",0)="^^2^2^3040112^"
^DD(776,.01,1,1,"%D",1,0)="This cross-reference holds the time when the monitor started (was queued"
^DD(776,.01,1,1,"%D",2,0)="as a background job.)"
^DD(776,.01,3)=""
^DD(776,.01,21,0)="^^2^2^3031014^"
^DD(776,.01,21,1,0)="This field holds the time when the HL7 Monitor Job file (#776) entry was"
^DD(776,.01,21,2,0)="created."
^DD(776,.01,"DT")="3030518"
^DD(776,2,0)="COMPLETION TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776,2,21,0)="^^1^1^3030822^"
^DD(776,2,21,1,0)="This field holds the time the background job finished."
^DD(776,2,"DT")="3030822"
^DD(776,3,0)="MONITOR-PTR^P776.1'^HLEV(776.1,^0;3^Q"
^DD(776,3,1,0)="^.1"
^DD(776,3,1,1,0)="776^M"
^DD(776,3,1,1,1)="S ^HLEV(776,""M"",$E(X,1,30),DA)="""""
^DD(776,3,1,1,2)="K ^HLEV(776,""M"",$E(X,1,30),DA)"
^DD(776,3,1,1,"%D",0)="^^13^13^3040112^"
^DD(776,3,1,1,"%D",1,0)="With each Monitor Master Job run, the master job checks every monitor entry"
^DD(776,3,1,1,"%D",2,0)="in the HL Event Monitor file (#776.1).  If it is ""time"" for the monitor"
^DD(776,3,1,1,"%D",3,0)="to be queued, a background job is queued to run that monitor.  At the"
^DD(776,3,1,1,"%D",4,0)="time of queueing an entry is created in this file holding (among other"
^DD(776,3,1,1,"%D",5,0)="values) the internal entry number of the monitor entry in file 776.1."
^DD(776,3,1,1,"%D",6,0)="The IEN is stored in the Monitor field (#3), and this M cross-reference"
^DD(776,3,1,1,"%D",7,0)="holds the IEN of the monitor."
^DD(776,3,1,1,"%D",8,0)=" "
^DD(776,3,1,1,"%D",9,0)="Note: The Monitor field does not point to the monitor, strictly speaking,"
^DD(776,3,1,1,"%D",10,0)="      because this field is a free-text field.  However, since it holds"
^DD(776,3,1,1,"%D",11,0)="      the IEN, it is a ""functional pointer"" to the monitor file."
^DD(776,3,1,1,"%D",12,0)="      (The field was created this way to enable monitors to be deleted"
^DD(776,3,1,1,"%D",13,0)="      at will without worry about dangling pointers.)"
^DD(776,3,1,1,"DT")="3030521"
^DD(776,3,21,0)="^^2^2^3030822^"
^DD(776,3,21,1,0)="This field holds the internal entry number of the monitor entry in the HL "
^DD(776,3,21,2,0)="Event Monitor file (#776.1)."
^DD(776,3,"DT")="3030822"
^DD(776,4,0)="STATUS-RUNTIME^S^E:ERROR;F:FINISHED;Q:QUEUED;R:RUNNING;^0;4^Q"
^DD(776,4,21,0)="^^1^1^3030822^"
^DD(776,4,21,1,0)="This field holds the run-time status of the background job."
^DD(776,4,"DT")="3030518"
^DD(776,5,0)="STATUS-APPLICATION^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(776,5,3)="Answer must be 1-10 characters in length."
^DD(776,5,21,0)="^^2^2^3030822^"
^DD(776,5,21,1,0)="This field holds the status provided by the application.  Entry of this "
^DD(776,5,21,2,0)="field is optional."
^DD(776,5,"DT")="3030518"
^DD(776,6,0)="TIMESTAMP^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776,6,21,0)="^^2^2^3030822^"
^DD(776,6,21,1,0)="Periodically, during the running of the job, this field is updated with "
^DD(776,6,21,2,0)="the time ""now"", which is stored in this field."
^DD(776,6,"DT")="3030518"
^DD(776,7,0)="MAILMAN PTR^NJ12,0^^0;7^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(776,7,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(776,7,21,0)="^^2^2^3030822^"
^DD(776,7,21,1,0)="When the job finishes, if a notification Mailman message is sent, it's "
^DD(776,7,21,2,0)="internal entry number if stored in this field."
^DD(776,7,"DT")="3030714"
^DD(776,8,0)="TASK NUMBER^NJ12,0^^0;8^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(776,8,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(776,8,21,0)="^^1^1^3030822^"
^DD(776,8,21,1,0)="This field holds the task number for the background job."
^DD(776,8,"DT")="3030523"
^DD(776,9,0)="MASTER JOB PTR^P776.2'^HLEV(776.2,^0;9^Q"
^DD(776,9,21,0)="^^4^4^3031014^"
^DD(776,9,21,1,0)="The master job checks all monitors, and where appropriate queues "
^DD(776,9,21,2,0)="background jobs for each monitor.  These background jobs are linked to "
^DD(776,9,21,3,0)="this file, and to entries in this file.  This field holds the master job "
^DD(776,9,21,4,0)="internal entry number in the HL7 Monitor Master Job file (#776.2)."
^DD(776,9,"DT")="3030523"
^DD(776,10,0)="QUEUE TIME^D^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776,10,21,0)="^^3^3^3030822^"
^DD(776,10,21,1,0)="Normally, a background monitor job is queued to run now.  However, at "
^DD(776,10,21,2,0)="times a monitor job is queued to a future time.  When this occurs, the "
^DD(776,10,21,3,0)="future queue time is stored in this field."
^DD(776,10,"DT")="3030610"
^DD(776,50,0)="RUN DIARY^776.001^^50;0"
^DD(776,50,21,0)="^^3^3^3030822^"
^DD(776,50,21,1,0)="Text is placed in this word processing field using the RUNDIARY^HLEVAPI "
^DD(776,50,21,2,0)="API.  The contents of this field is under complete control by the using "
^DD(776,50,21,3,0)="application."
^DD(776,51,0)="MESSAGE TEXT^776.002^^51;0"
^DD(776,51,21,0)="^^3^3^3030822^"
^DD(776,51,21,1,0)="Text is placed in this word processing field using the MSGTEXT^HLEVAPI"
^DD(776,51,21,2,0)="API.  The contents of this field is under complete control by the using"
^DD(776,51,21,3,0)="application."
^DD(776,51,"DT")="3030529"
^DD(776,52,0)="VARIABLE VALUE^776.003A^^52;0"
^DD(776,52,21,0)="^^2^2^3030822^"
^DD(776,52,21,1,0)="This field holds the variable names and values declared by the calling "
^DD(776,52,21,2,0)="application."
^DD(776,"B","COMPLETION TIME",2)=""
^DD(776,"B","MAILMAN PTR",7)=""
^DD(776,"B","MASTER JOB PTR",9)=""
^DD(776,"B","MESSAGE TEXT",51)=""
^DD(776,"B","MONITOR-PTR",3)=""
^DD(776,"B","QUEUE TIME",10)=""
^DD(776,"B","RUN DIARY",50)=""
^DD(776,"B","START TIME",.01)=""
^DD(776,"B","STATUS-APPLICATION",5)=""
^DD(776,"B","STATUS-RUNTIME",4)=""
^DD(776,"B","TASK NUMBER",8)=""
^DD(776,"B","TIMESTAMP",6)=""
^DD(776,"B","VARIABLE VALUE",52)=""
^DD(776,"GL",0,1,.01)=""
^DD(776,"GL",0,2,2)=""
^DD(776,"GL",0,3,3)=""
^DD(776,"GL",0,4,4)=""
^DD(776,"GL",0,5,5)=""
^DD(776,"GL",0,6,6)=""
^DD(776,"GL",0,7,7)=""
^DD(776,"GL",0,8,8)=""
^DD(776,"GL",0,9,9)=""
^DD(776,"GL",0,10,10)=""
^DD(776,"GL",50,0,50)=""
^DD(776,"GL",51,0,51)=""
^DD(776,"GL",52,0,52)=""
^DD(776,"IX",.01)=""
^DD(776,"IX",3)=""
^DD(776,"RQ",.01)=""
^DD(776,"SB",776.001,50)=""
^DD(776,"SB",776.002,51)=""
^DD(776,"SB",776.003,52)=""
^DD(776.001,0)="RUN DIARY SUB-FIELD^^.01^1"
^DD(776.001,0,"DT")="3030518"
^DD(776.001,0,"NM","RUN DIARY")=""
^DD(776.001,0,"UP")="776"
^DD(776.001,.01,0)="RUN DIARY^WL^^0;1^Q"
^DD(776.001,.01,"DT")="3030518"
^DD(776.001,"B","RUN DIARY",.01)=""
^DD(776.001,"GL",0,1,.01)=""
^DD(776.002,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^DD(776.002,0,"DT")="3030520"
^DD(776.002,0,"NM","MESSAGE TEXT")=""
^DD(776.002,0,"UP")="776"
^DD(776.002,.01,0)="MESSAGE TEXT^WL^^0;1^Q"
^DD(776.002,.01,"DT")="3030529"
^DD(776.002,"B","MESSAGE TEXT",.01)=""
^DD(776.002,"GL",0,1,.01)=""
^DD(776.003,0)="VARIABLE VALUE SUB-FIELD^^52^3"
^DD(776.003,0,"DT")="3030523"
^DD(776.003,0,"IX","B",776.003,.01)=""
^DD(776.003,0,"NM","VARIABLE VALUE")=""
^DD(776.003,0,"UP")="776"
^DD(776.003,.01,0)="VARIABLE^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(776.003,.01,1,0)="^.1"
^DD(776.003,.01,1,1,0)="776.003^B"
^DD(776.003,.01,1,1,1)="S ^HLEV(776,DA(1),52,""B"",$E(X,1,30),DA)="""""
^DD(776.003,.01,1,1,2)="K ^HLEV(776,DA(1),52,""B"",$E(X,1,30),DA)"
^DD(776.003,.01,3)="Answer must be 1-30 characters in length."
^DD(776.003,.01,"DT")="3030523"
^DD(776.003,2,0)="EXPLANATION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(776.003,2,3)="Answer must be 1-30 characters in length."
^DD(776.003,2,"DT")="3030523"
^DD(776.003,52,0)="VALUE^F^^52;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(776.003,52,3)="Answer must be 1-240 characters in length."
^DD(776.003,52,"DT")="3030523"
^DD(776.003,"B","EXPLANATION",2)=""
^DD(776.003,"B","VALUE",52)=""
^DD(776.003,"B","VARIABLE",.01)=""
^DD(776.003,"GL",0,1,.01)=""
^DD(776.003,"GL",0,2,2)=""
^DD(776.003,"GL",52,"E1,240",52)=""
^DD(776.003,"IX",.01)=""
^DD(776.1,0)="FIELD^^53^12"
^DD(776.1,0,"DT")="3030807"
^DD(776.1,0,"IX","B",776.1,.01)=""
^DD(776.1,0,"NM","HL7 MONITOR")=""
^DD(776.1,0,"PT",776,3)=""
^DD(776.1,0,"VR")="1.6"
^DD(776.1,0,"VRPK")="HL"
^DD(776.1,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E)!($D(^HLEV(776.1,""B"",X))) X"
^DD(776.1,.01,1,0)="^.1"
^DD(776.1,.01,1,1,0)="776.1^B"
^DD(776.1,.01,1,1,1)="S ^HLEV(776.1,""B"",$E(X,1,30),DA)="""""
^DD(776.1,.01,1,1,2)="K ^HLEV(776.1,""B"",$E(X,1,30),DA)"
^DD(776.1,.01,1,1,"%D",0)="^^2^2^3040112^"
^DD(776.1,.01,1,1,"%D",1,0)="The name of a monitor is stored on the Name field (#.01), and the B xref"
^DD(776.1,.01,1,1,"%D",2,0)="is created based on the value of the Name field."
^DD(776.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(776.1,.01,21,0)="^^1^1^3030822^"
^DD(776.1,.01,21,1,0)="This field holds the free-text name of the monitor."
^DD(776.1,.01,"DT")="3030520"
^DD(776.1,2,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;2^Q"
^DD(776.1,2,21,0)="^^3^3^3030822^"
^DD(776.1,2,21,1,0)="The values for this set of code field are ACTIVE and INACTIVE.  If set to "
^DD(776.1,2,21,2,0)="ACTIVE the master job will queue background monitor jobs for the "
^DD(776.1,2,21,3,0)="monitor.  If set to INACTIVE the master job will ignore the entry."
^DD(776.1,2,"DT")="3030518"
^DD(776.1,3,0)="SHORT DESCRIPTION^F^^0;3^K:$L(X)>40!($L(X)<3) X"
^DD(776.1,3,3)="Answer must be 3-40 characters in length."
^DD(776.1,3,21,0)="^^1^1^3030822^"
^DD(776.1,3,21,1,0)="This field holds a short description of the monitor.  "
^DD(776.1,3,"DT")="3030518"
^DD(776.1,4,0)="REQUEUE MIN-MONITOR^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(776.1,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(776.1,4,21,0)="^^8^8^3031014^"
^DD(776.1,4,21,1,0)="Whenever the master job runs it checks every entry in this HL7 Monitor"
^DD(776.1,4,21,2,0)="file (#776.1).  If an entry is active, a secondary check is made whether"
^DD(776.1,4,21,3,0)="""it is time"" to start a background job for the monitor.  If the active"
^DD(776.1,4,21,4,0)="monitor has never been run, a background job is started.  If the monitor"
^DD(776.1,4,21,5,0)="has been run, then the next ""time to run"" is calculated by adding the"
^DD(776.1,4,21,6,0)="number of minutes specified in this field to the time the monitor was last"
^DD(776.1,4,21,7,0)="run.  If the next ""time to run"" is now (or earlier), a background job for"
^DD(776.1,4,21,8,0)="the monitor is started."
^DD(776.1,4,"DT")="3030521"
^DD(776.1,5,0)="REMOTE REQUESTABLE^S^0:NO;1:YES;^0;5^Q"
^DD(776.1,5,21,0)="^^1^1^3030822^"
^DD(776.1,5,21,1,0)="This field is not currently in use."
^DD(776.1,5,"DT")="3030617"
^DD(776.1,6,0)="M STARTUP^F^^0;6^K:$L(X)>17!($L(X)<3)!'(X?1.8E1""~""1.8E) X"
^DD(776.1,6,3)="Enter the M location for event startup in the format SUBROUTINE~ROUTINE.  (E.g., START~HLEVAPI.)"
^DD(776.1,6,21,0)="^^3^3^3030822^"
^DD(776.1,6,21,1,0)="Background tasks, started by the master job, are queued to the API "
^DD(776.1,6,21,2,0)="specified in this field.  (The value of this field must be in the format "
^DD(776.1,6,21,3,0)="of TAG~ROUTINE, which is converted to TAG^ROUTINE at run time.)"
^DD(776.1,6,"DT")="3030520"
^DD(776.1,7,0)="M START CHECK^F^^0;7^K:$L(X)>19!($L(X)<3)!'(X?1""$$""1.8E1""~""1.8E) X"
^DD(776.1,7,3)="Must be an extrinsic function in the format of $$TAG^ROUTINE"
^DD(776.1,7,21,0)="^^9^9^3030822^"
^DD(776.1,7,21,1,0)="Normally, the only test made by the master job to determine whether a "
^DD(776.1,7,21,2,0)="monitor job should be started is STATUS (it must be ACTIVE) and the "
^DD(776.1,7,21,3,0)="requeue minutes.  However, if this field is filled in with an extrinsic "
^DD(776.1,7,21,4,0)="function that returns a positive or null value, it can be used as an "
^DD(776.1,7,21,5,0)="additional test."
^DD(776.1,7,21,6,0)=" "
^DD(776.1,7,21,7,0)="Let's say that the extrinsic fuction $$RUNOW^ROUTINE returns a 1 if a "
^DD(776.1,7,21,8,0)="background job should be started, or null if not.  In this case, "
^DD(776.1,7,21,9,0)="""$$RUNOW^ROUTINE"" should be entered in this field."
^DD(776.1,7,"DT")="3030807"
^DD(776.1,41,0)="TECHNICAL DESCRIPTION^776.1041^^41;0"
^DD(776.1,41,21,0)="^^2^2^3030822^"
^DD(776.1,41,21,1,0)="This field holds any additional technical notes deemed necessary by the "
^DD(776.1,41,21,2,0)="monitor creator."
^DD(776.1,41,"DT")="3030523"
^DD(776.1,50,0)="EVENT DESCRIPTION^776.101^^50;0"
^DD(776.1,50,21,0)="^^4^4^3030822^"
^DD(776.1,50,21,1,0)="This field should be used by the application developer to describe the "
^DD(776.1,50,21,2,0)="monitor, and how it is used.  (If desired, the application developer may "
^DD(776.1,50,21,3,0)="add additional, more technical notes in the TECHNICAL DESCRIPTION word "
^DD(776.1,50,21,4,0)="processing field.)"
^DD(776.1,51,0)="MAIL GROUPS^776.106P^^60;0"
^DD(776.1,51,21,0)="^^16^16^3030822^"
^DD(776.1,51,21,1,0)="When a monitor runs, the M code can conditionally send a mail message to "
^DD(776.1,51,21,2,0)="recipients.  This field, and other fields, are used to determine the "
^DD(776.1,51,21,3,0)="recipients.  In addition, recipients can be added by M code immediately "
^DD(776.1,51,21,4,0)="before the sending of the message."
^DD(776.1,51,21,5,0)=" "
^DD(776.1,51,21,6,0)="The fields used to determine mail message recipients are:"
^DD(776.1,51,21,7,0)=" "
^DD(776.1,51,21,8,0)="* MAIL GROUPS (#60) - pointer to the Mail Group file (#3.8.)"
^DD(776.1,51,21,9,0)="* RECIPIENTS (#61) - pointer to the New Person file (#200.)"
^DD(776.1,51,21,10,0)="* REMOTES (#62) - free-text remote recipient addresses."
^DD(776.1,51,21,11,0)=" "
^DD(776.1,51,21,12,0)="And, remember that additional recipients can be added (by populating the "
^DD(776.1,51,21,13,0)="XMY array) on-the-fly at the time the message is sent."
^DD(776.1,51,21,14,0)=" "
^DD(776.1,51,21,15,0)="Please refer to the documentation included with patch HL*1.6*106 for "
^DD(776.1,51,21,16,0)="additional explanation."
^DD(776.1,52,0)="RECIPIENTS^776.1061P^^61;0"
^DD(776.1,52,21,0)="^^1^1^3030822^"
^DD(776.1,52,21,1,0)="See documentation for the MAIL GROUPS field."
^DD(776.1,53,0)="REMOTES^776.1062^^62;0"
^DD(776.1,53,21,0)="^^1^1^3030822^"
^DD(776.1,53,21,1,0)="See documentation for the MAIL GROUPS field."
^DD(776.1,"B","EVENT DESCRIPTION",50)=""
^DD(776.1,"B","M START CHECK",7)=""
^DD(776.1,"B","M STARTUP",6)=""
^DD(776.1,"B","MAIL GROUPS",51)=""
^DD(776.1,"B","NAME",.01)=""
^DD(776.1,"B","RECIPIENTS",52)=""
^DD(776.1,"B","REMOTE REQUESTABLE",5)=""
^DD(776.1,"B","REMOTES",53)=""
^DD(776.1,"B","REQUEUE MIN-MONITOR",4)=""
^DD(776.1,"B","SHORT DESCRIPTION",3)=""
^DD(776.1,"B","STATUS",2)=""
^DD(776.1,"B","TECHNICAL DESCRIPTION",41)=""
^DD(776.1,"GL",0,1,.01)=""
^DD(776.1,"GL",0,2,2)=""
^DD(776.1,"GL",0,3,3)=""
^DD(776.1,"GL",0,4,4)=""
^DD(776.1,"GL",0,5,5)=""
^DD(776.1,"GL",0,6,6)=""
^DD(776.1,"GL",0,7,7)=""
^DD(776.1,"GL",41,0,41)=""
^DD(776.1,"GL",50,0,50)=""
^DD(776.1,"GL",60,0,51)=""
^DD(776.1,"GL",61,0,52)=""
^DD(776.1,"GL",62,0,53)=""
^DD(776.1,"IX",.01)=""
^DD(776.1,"RQ",.01)=""
^DD(776.1,"SB",776.101,50)=""
^DD(776.1,"SB",776.1041,41)=""
^DD(776.1,"SB",776.106,51)=""
^DD(776.1,"SB",776.1061,52)=""
^DD(776.1,"SB",776.1062,53)=""
^DD(776.101,0)="EVENT DESCRIPTION SUB-FIELD^^.01^1"
^DD(776.101,0,"DT")="3030518"
^DD(776.101,0,"NM","EVENT DESCRIPTION")=""
^DD(776.101,0,"UP")="776.1"
^DD(776.101,.01,0)="EVENT DESCRIPTION^WL^^0;1^Q"
^DD(776.101,.01,"DT")="3030518"
^DD(776.101,"B","EVENT DESCRIPTION",.01)=""
^DD(776.101,"GL",0,1,.01)=""
^DD(776.1041,0)="TECHNICAL DESCRIPTION SUB-FIELD^^.01^1"
^DD(776.1041,0,"DT")="3030518"
^DD(776.1041,0,"NM","TECHNICAL DESCRIPTION")=""
^DD(776.1041,0,"UP")="776.1"
^DD(776.1041,.01,0)="TECHNICAL DESCRIPTION^WL^^0;1^Q"
^DD(776.1041,.01,"DT")="3030523"
^DD(776.1041,"B","TECHNICAL DESCRIPTION",.01)=""
^DD(776.1041,"GL",0,1,.01)=""
^DD(776.106,0)="MAIL GROUPS SUB-FIELD^^.01^1"
^DD(776.106,0,"DT")="3030601"
^DD(776.106,0,"IX","B",776.106,.01)=""
^DD(776.106,0,"NM","MAIL GROUPS")=""
^DD(776.106,0,"UP")="776.1"
^DD(776.106,.01,0)="MAIL GROUPS^MP3.8'^XMB(3.8,^0;1^Q"
^DD(776.106,.01,1,0)="^.1"
^DD(776.106,.01,1,1,0)="776.106^B"
^DD(776.106,.01,1,1,1)="S ^HLEV(776.1,DA(1),60,""B"",$E(X,1,30),DA)="""""
^DD(776.106,.01,1,1,2)="K ^HLEV(776.1,DA(1),60,""B"",$E(X,1,30),DA)"
^DD(776.106,.01,"DT")="3030601"
^DD(776.106,"B","MAIL GROUPS",.01)=""
^DD(776.106,"GL",0,1,.01)=""
^DD(776.106,"IX",.01)=""
^DD(776.1061,0)="RECIPIENTS SUB-FIELD^^.01^1"
^DD(776.1061,0,"DT")="3030601"
^DD(776.1061,0,"IX","B",776.1061,.01)=""
^DD(776.1061,0,"NM","RECIPIENTS")=""
^DD(776.1061,0,"UP")="776.1"
^DD(776.1061,.01,0)="RECIPIENTS^MP200'^VA(200,^0;1^Q"
^DD(776.1061,.01,1,0)="^.1"
^DD(776.1061,.01,1,1,0)="776.1061^B"
^DD(776.1061,.01,1,1,1)="S ^HLEV(776.1,DA(1),61,""B"",$E(X,1,30),DA)="""""
^DD(776.1061,.01,1,1,2)="K ^HLEV(776.1,DA(1),61,""B"",$E(X,1,30),DA)"
^DD(776.1061,.01,"DT")="3030601"
^DD(776.1061,"B","RECIPIENTS",.01)=""
^DD(776.1061,"GL",0,1,.01)=""
^DD(776.1061,"IX",.01)=""
^DD(776.1062,0)="REMOTES SUB-FIELD^^.01^1"
^DD(776.1062,0,"DT")="3030601"
^DD(776.1062,0,"IX","B",776.1062,.01)=""
^DD(776.1062,0,"NM","REMOTES")=""
^DD(776.1062,0,"UP")="776.1"
^DD(776.1062,.01,0)="REMOTES^MF^^0;1^K:$L(X)>80!($L(X)<3)!'(X?1.E1""@""1.E) X"
^DD(776.1062,.01,1,0)="^.1"
^DD(776.1062,.01,1,1,0)="776.1062^B"
^DD(776.1062,.01,1,1,1)="S ^HLEV(776.1,DA(1),62,""B"",$E(X,1,30),DA)="""""
^DD(776.1062,.01,1,1,2)="K ^HLEV(776.1,DA(1),62,""B"",$E(X,1,30),DA)"
^DD(776.1062,.01,3)="Enter email address of remote recipient for this monitor.  (Format is 'name@address'.)"
^DD(776.1062,.01,"DT")="3030601"
^DD(776.1062,"B","REMOTES",.01)=""
^DD(776.1062,"GL",0,1,.01)=""
^DD(776.1062,"IX",.01)=""
^DD(776.2,0)="FIELD^^51^10"
^DD(776.2,0,"DT")="3030807"
^DD(776.2,0,"IX","B",776.2,.01)=""
^DD(776.2,0,"NM","HL7 MONITOR MASTER JOB")=""
^DD(776.2,0,"PT",776,9)=""
^DD(776.2,0,"VR")="1.6"
^DD(776.2,0,"VRPK")="HL"
^DD(776.2,.01,0)="CREATION TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.2,.01,1,0)="^.1"
^DD(776.2,.01,1,1,0)="776.2^B"
^DD(776.2,.01,1,1,1)="S ^HLEV(776.2,""B"",$E(X,1,30),DA)="""""
^DD(776.2,.01,1,1,2)="K ^HLEV(776.2,""B"",$E(X,1,30),DA)"
^DD(776.2,.01,1,1,"%D",0)="^^5^5^3040112^"
^DD(776.2,.01,1,1,"%D",1,0)="On a parameter-controlled frequency, a master job is run to determine "
^DD(776.2,.01,1,1,"%D",2,0)="whether individual monitors should be run.  When these master jobs start,"
^DD(776.2,.01,1,1,"%D",3,0)="an entry is made in the HL Event Master Job file (#776.2).   The .01"
^DD(776.2,.01,1,1,"%D",4,0)="field of this file is Creation Time, and this B xref is created based"
^DD(776.2,.01,1,1,"%D",5,0)="on the date/time value in this field."
^DD(776.2,.01,3)=""
^DD(776.2,.01,21,0)="^^2^2^3030822^"
^DD(776.2,.01,21,1,0)="This field holds the time when the entry in this file was created (at the "
^DD(776.2,.01,21,2,0)="beginning of the running of the background master job.)"
^DD(776.2,.01,"DT")="3030601"
^DD(776.2,2,0)="COMPLETION TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.2,2,21,0)="^^1^1^3030822^"
^DD(776.2,2,21,1,0)="This field holds the time when the master job completed."
^DD(776.2,2,"DT")="3030518"
^DD(776.2,3,0)="TIMESTAMP^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.2,3,21,0)="^^3^3^3030822^"
^DD(776.2,3,21,1,0)="Periodically, when the master job is running, this timestamp is "
^DD(776.2,3,21,2,0)="refreshed.  Normally, this timestamp will be equal to the completion time "
^DD(776.2,3,21,3,0)="of the master job."
^DD(776.2,3,"DT")="3030518"
^DD(776.2,4,0)="STATUS^S^E:ERRORED;F:FINISHED;Q:QUEUED;R:RUNNING;P:PARAMETER STOP;S:STOP REQUESTED;A:ABORTED-NOT RUN;^0;4^Q"
^DD(776.2,4,21,0)="^^1^1^3030822^"
^DD(776.2,4,21,1,0)="This field holds the status of the master job."
^DD(776.2,4,"DT")="3030601"
^DD(776.2,5,0)="TASK NUMBER^NJ12,0^^0;5^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(776.2,5,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(776.2,5,21,0)="^^1^1^3030822^"
^DD(776.2,5,21,1,0)="This field holds the task number for the background master job."
^DD(776.2,5,"DT")="3030518"
^DD(776.2,6,0)="QUEUE TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.2,6,21,0)="^^4^4^3030822^"
^DD(776.2,6,21,1,0)="When the master job starts, as it's first action, it queues the next "
^DD(776.2,6,21,2,0)="master job for a future time REQUEUE MINUTES in the future.  At that "
^DD(776.2,6,21,3,0)="time, an entry is made in this file and the ""future time"" recorded in "
^DD(776.2,6,21,4,0)="this field."
^DD(776.2,6,"DT")="3030518"
^DD(776.2,7,0)="QUEUE PERSON^P200'^VA(200,^0;7^Q"
^DD(776.2,7,21,0)="^^3^3^3030822^"
^DD(776.2,7,21,1,0)="This field holds the DUZ of the person who started the master job the "
^DD(776.2,7,21,2,0)="first time.  (From that time on, that person's DUZ will remain associated "
^DD(776.2,7,21,3,0)="with all future master jobs.)"
^DD(776.2,7,"DT")="3030521"
^DD(776.2,8,0)="START TIME^D^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.2,8,21,0)="^^2^2^3030822^"
^DD(776.2,8,21,1,0)="Master jobs are queued to a future time.  When these jobs activate, the "
^DD(776.2,8,21,2,0)="time ""now"" is recorded in this field."
^DD(776.2,8,"DT")="3030601"
^DD(776.2,50,0)="RUN DIARY^776.201^^50;0"
^DD(776.2,50,21,0)="^^2^2^3030822^"
^DD(776.2,50,21,1,0)="This field holds information about the master job process, and cannot be "
^DD(776.2,50,21,2,0)="modified by non-VistA HL7 applications."
^DD(776.2,51,0)="EVENTS CHECKED^776.2051A^^51;0"
^DD(776.2,51,21,0)="^^4^4^3030822^"
^DD(776.2,51,21,1,0)="When the master job runs, it checks all existing event monitors in the HL "
^DD(776.2,51,21,2,0)="Event Monitor file (#776.1).  One entry in this Events Checked multiple is"
^DD(776.2,51,21,3,0)="made for every monitor found.  (See the fields in this multiple for "
^DD(776.2,51,21,4,0)="additional information.)"
^DD(776.2,"B","COMPLETION TIME",2)=""
^DD(776.2,"B","CREATION TIME",.01)=""
^DD(776.2,"B","EVENTS CHECKED",51)=""
^DD(776.2,"B","QUEUE PERSON",7)=""
^DD(776.2,"B","QUEUE TIME",6)=""
^DD(776.2,"B","RUN DIARY",50)=""
^DD(776.2,"B","START TIME",8)=""
^DD(776.2,"B","STATUS",4)=""
^DD(776.2,"B","TASK NUMBER",5)=""
^DD(776.2,"B","TIMESTAMP",3)=""
^DD(776.2,"GL",0,1,.01)=""
^DD(776.2,"GL",0,2,2)=""
^DD(776.2,"GL",0,3,3)=""
^DD(776.2,"GL",0,4,4)=""
^DD(776.2,"GL",0,5,5)=""
^DD(776.2,"GL",0,6,6)=""
^DD(776.2,"GL",0,7,7)=""
^DD(776.2,"GL",0,8,8)=""
^DD(776.2,"GL",50,0,50)=""
^DD(776.2,"GL",51,0,51)=""
^DD(776.2,"IX",.01)=""
^DD(776.2,"RQ",.01)=""
^DD(776.2,"SB",776.201,50)=""
^DD(776.2,"SB",776.2051,51)=""
^DD(776.201,0)="RUN DIARY SUB-FIELD^^.01^1"
^DD(776.201,0,"DT")="3030518"
^DD(776.201,0,"NM","RUN DIARY")=""
^DD(776.201,0,"UP")="776.2"
^DD(776.201,.01,0)="RUN DIARY^WL^^0;1^Q"
^DD(776.201,.01,"DT")="3030518"
^DD(776.201,"B","RUN DIARY",.01)=""
^DD(776.201,"GL",0,1,.01)=""
^DD(776.2051,0)="EVENTS CHECKED SUB-FIELD^^8^8"
^DD(776.2051,0,"DT")="3030807"
^DD(776.2051,0,"IX","B",776.2051,.01)=""
^DD(776.2051,0,"NM","EVENTS CHECKED")=""
^DD(776.2051,0,"UP")="776.2"
^DD(776.2051,.01,0)="EVENT MONITOR IEN (Free-Text)^F^^0;1^K:$L(X)>12!($L(X)<1) X"
^DD(776.2051,.01,1,0)="^.1"
^DD(776.2051,.01,1,1,0)="776.2051^B"
^DD(776.2051,.01,1,1,1)="S ^HLEV(776.2,DA(1),51,""B"",$E(X,1,30),DA)="""""
^DD(776.2051,.01,1,1,2)="K ^HLEV(776.2,DA(1),51,""B"",$E(X,1,30),DA)"
^DD(776.2051,.01,3)="Answer must be 1-12 characters in length."
^DD(776.2051,.01,21,0)="^^5^5^3030822^"
^DD(776.2051,.01,21,1,0)="This field holds the internal entry number of the monitor entry in the HL "
^DD(776.2051,.01,21,2,0)="Event Monitor file (#776.1).  "
^DD(776.2051,.01,21,3,0)=" "
^DD(776.2051,.01,21,4,0)="NOTE: This is a free-text field, and not a pointer field!  This was done "
^DD(776.2051,.01,21,5,0)="to ensure that monitors could be deleted without creating broken pointers."
^DD(776.2051,.01,"DT")="3030523"
^DD(776.2051,2,0)="ACTION^S^E:TOO EARLY;I:INACTIVE;Q:QD NEW JOB;X:ERROR;R:RUNNING;M:M CHK FAIL;^0;2^Q"
^DD(776.2051,2,21,0)="^^6^6^3030822^"
^DD(776.2051,2,21,1,0)="When a monitor is checked, the master job either starts a background job "
^DD(776.2051,2,21,2,0)="for the monitor, or it doesn't.  If it does, record is made of the fact "
^DD(776.2051,2,21,3,0)="in this field.  If a monitor job is not started, the reason is also "
^DD(776.2051,2,21,4,0)="recorded in this field.  (The Results field (#5) often holds additional "
^DD(776.2051,2,21,5,0)="information about the action taken by the master job for a specific "
^DD(776.2051,2,21,6,0)="monitor.)"
^DD(776.2051,2,"DT")="3030807"
^DD(776.2051,3,0)="CHECK/QUEUE TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.2051,3,21,0)="^^1^1^3030822^"
^DD(776.2051,3,21,1,0)="This field holds the time the master job checked the monitor."
^DD(776.2051,3,"DT")="3030521"
^DD(776.2051,4,0)="TASK NUMBER^NJ14,0^^0;4^K:+X'=X!(X>99999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(776.2051,4,3)="Type a Number between 1 and 99999999999999, 0 Decimal Digits"
^DD(776.2051,4,21,0)="^^2^2^3030822^"
^DD(776.2051,4,21,1,0)="This field holds the task number of the queued monitor job created by the "
^DD(776.2051,4,21,2,0)="master job."
^DD(776.2051,4,"DT")="3030521"
^DD(776.2051,5,0)="RESULTS^S^XE:ERROR-OTHER;XM:ERROR-M CODE;F:FINISHED;XL:ERROR-LOCK;^0;5^Q"
^DD(776.2051,5,21,0)="^^2^2^3030822^"
^DD(776.2051,5,21,1,0)="This field holds the additional information about the action taken by the "
^DD(776.2051,5,21,2,0)="master job for the specific monitor recorded in multiple entries."
^DD(776.2051,5,"DT")="3030711"
^DD(776.2051,6,0)="RESULTS TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.2051,6,21,0)="^^1^1^3030822^"
^DD(776.2051,6,21,1,0)="This field holds the time the RESULTS field is populated."
^DD(776.2051,6,"DT")="3030521"
^DD(776.2051,7,0)="ERROR REASON^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(776.2051,7,3)="Answer must be 3-30 characters in length."
^DD(776.2051,7,21,0)="^^2^2^3030822^"
^DD(776.2051,7,21,1,0)="This field holds optional free-text data that further illuminates the "
^DD(776.2051,7,21,2,0)="actions taken by the master job."
^DD(776.2051,7,"DT")="3030521"
^DD(776.2051,8,0)="EVENT JOB IEN (Free-Text)^F^^0;8^K:$L(X)>12!($L(X)<1) X"
^DD(776.2051,8,3)="Answer must be 1-12 characters in length."
^DD(776.2051,8,21,0)="^^4^4^3030822^"
^DD(776.2051,8,21,1,0)="This field holds the task number of the background job created by the "
^DD(776.2051,8,21,2,0)="master job for a specific monitor.  When monitor jobs complete, their "
^DD(776.2051,8,21,3,0)="record is deleted by Taskman.  For this reason, this field is a free-text "
^DD(776.2051,8,21,4,0)="field, avoiding broken pointers."
^DD(776.2051,8,"DT")="3030523"
^DD(776.2051,"B","ACTION",2)=""
^DD(776.2051,"B","CHECK/QUEUE TIME",3)=""
^DD(776.2051,"B","ERROR REASON",7)=""
^DD(776.2051,"B","EVENT JOB IEN (Free-Text)",8)=""
^DD(776.2051,"B","EVENT MONITOR IEN (Free-Text)",.01)=""
^DD(776.2051,"B","RESULTS",5)=""
^DD(776.2051,"B","RESULTS TIME",6)=""
^DD(776.2051,"B","TASK NUMBER",4)=""
^DD(776.2051,"GL",0,1,.01)=""
^DD(776.2051,"GL",0,2,2)=""
^DD(776.2051,"GL",0,3,3)=""
^DD(776.2051,"GL",0,4,4)=""
^DD(776.2051,"GL",0,5,5)=""
^DD(776.2051,"GL",0,6,6)=""
^DD(776.2051,"GL",0,7,7)=""
^DD(776.2051,"GL",0,8,8)=""
^DD(776.2051,"IX",.01)=""
^DD(776.3,0)="FIELD^^4.01^14"
^DD(776.3,0,"DDA")="N"
^DD(776.3,0,"DT")="3031211"
^DD(776.3,0,"ID",4.01)="W:$D(^(4)) ""   "",$P(^(4),U,1)"
^DD(776.3,0,"IX","B",776.3,.01)=""
^DD(776.3,0,"NM","HL7 MONITOR EVENT TYPE")=""
^DD(776.3,0,"PT",776.4,.02)=""
^DD(776.3,0,"PT",776.52,.01)=""
^DD(776.3,0,"VR")="1.6"
^DD(776.3,0,"VRPK")="HL"
^DD(776.3,.01,0)="CODE^RF^^0;1^K:$L(X)>14!($L(X)<1)!'(X'?1P.E) X"
^DD(776.3,.01,.1)="MONITOR EVENT TYPE CODE"
^DD(776.3,.01,1,0)="^.1"
^DD(776.3,.01,1,1,0)="776.3^B"
^DD(776.3,.01,1,1,1)="S ^HLEV(776.3,""B"",$E(X,1,30),DA)="""""
^DD(776.3,.01,1,1,2)="K ^HLEV(776.3,""B"",$E(X,1,30),DA)"
^DD(776.3,.01,3)="Answer must be 1-14 characters in length. A suggested guidline is to prefex the code with the namespace fo the package creating the new code."
^DD(776.3,.01,21,0)="^.001^2^2^3030717^^"
^DD(776.3,.01,21,1,0)="This is the code assigned by an application to a particular type of event."
^DD(776.3,.01,21,2,0)="The combination of fields, Code and Assigning Package, should be unique."
^DD(776.3,.01,"DT")="3031027"
^DD(776.3,.02,0)="PACKAGE^RP9.4'^DIC(9.4,^0;2^Q"
^DD(776.3,.02,.1)="ASSIGNING PACKAGE"
^DD(776.3,.02,3)="What package is creating this new code?"
^DD(776.3,.02,"DT")="3031027"
^DD(776.3,.03,0)="CATEGORY^RS^1:HL7 SYSTEM MESSAGE ERROR;2:APPLICATION MESSAGE ERROR;3:OPERATIONAL ERROR;4:EVENT MONITOR NOTIFICATION;^0;3^Q"
^DD(776.3,.03,.1)="MONITOR EVENT TYPE CATEGORY"
^DD(776.3,.03,3)="What category best describes the event type?"
^DD(776.3,.03,21,0)="^.001^9^9^3030709^^"
^DD(776.3,.03,21,1,0)="HL7 System Message Errors are errors discovered by the HL7 system while"
^DD(776.3,.03,21,2,0)="processing a particular message."
^DD(776.3,.03,21,3,0)="Application Message Errors are errors discovered by an appication while"
^DD(776.3,.03,21,4,0)="processing a particular message.  This type of error is defined by the"
^DD(776.3,.03,21,5,0)="application and usually involve application-specific business rules."
^DD(776.3,.03,21,6,0)="Operational Errors are not related to a specific message, rather,they are"
^DD(776.3,.03,21,7,0)="related to a site.  An common example is a logical link that fails."
^DD(776.3,.03,21,8,0)="An Event Monitor Notification is any sort of status update message that"
^DD(776.3,.03,21,9,0)="may be posted by the Event Monitors."
^DD(776.3,.03,"DT")="3030710"
^DD(776.3,.04,0)="URGENT^S^0:NO;1:YES;2:URGENT IF ACTION FAILS;^0;4^Q"
^DD(776.3,.04,3)="Is it urgent that this events of this type be reviewed?"
^DD(776.3,.04,"DT")="3030722"
^DD(776.3,.05,0)="CONGLOMERATE^S^0:NO;1:YES;^0;5^Q"
^DD(776.3,.05,3)="Should events of this type be counted over a particular time period and reported as a single event?"
^DD(776.3,.05,21,0)="^.001^6^6^3030715^^"
^DD(776.3,.05,21,1,0)="This field determines whether or not discrete events of this type are"
^DD(776.3,.05,21,2,0)="counted over a defined period of time and reported as a single event"
^DD(776.3,.05,21,3,0)="along with the count."
^DD(776.3,.05,21,4,0)=""
^DD(776.3,.05,21,5,0)="Events that are conglomerated can not store application-specific data"
^DD(776.3,.05,21,6,0)="with the event."
^DD(776.3,.05,"DT")="3030709"
^DD(776.3,.06,0)="HOURS COVERED^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<.1)!(X?.E1"".""1.N) X"
^DD(776.3,.06,.1)="PERIOD IN HOURS TO CONGLOMERATE"
^DD(776.3,.06,3)="What period in number of hours should this event type cover?"
^DD(776.3,.06,21,0)="^^2^2^3030709^"
^DD(776.3,.06,21,1,0)="If events of this type are to be conglomerated, this field defines the"
^DD(776.3,.06,21,2,0)="period in hours over which the events of this type are to be counted."
^DD(776.3,.06,"DT")="3030805"
^DD(776.3,.07,0)="REVIEW^S^0:NOT REQUIRED;1:REQUIRED;2:ONLY IF ACTION FAILS;^0;7^Q"
^DD(776.3,.07,.1)="REVIEW EVENTS OF THIS TYPE?"
^DD(776.3,.07,3)="Should this type of event be reviewed?"
^DD(776.3,.07,"DT")="3030714"
^DD(776.3,.08,0)="PACKAGE NAME^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(776.3,.08,3)="Answer with the exact name of the package as found in the Package file."
^DD(776.3,.08,21,0)="^^3^3^3031027^"
^DD(776.3,.08,21,1,0)="This field will be used in the key definition rather then the field PACKAGE"
^DD(776.3,.08,21,2,0)="because KIDS will not resolve the pointers in the PACKAGE file if the field"
^DD(776.3,.08,21,3,0)="is part of the key."
^DD(776.3,.08,"DT")="3031027"
^DD(776.3,.09,0)="DAYS TILL PURGE^RNJ3,0^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(776.3,.09,.1)="DAYS TO KEEP BEFORE PURGING"
^DD(776.3,.09,3)="How many days should events of this type be tracked before they are purged?"
^DD(776.3,.09,"DT")="3030725"
^DD(776.3,.1,0)="ACTIVE^S^0:NO;1:YES;^0;10^Q"
^DD(776.3,.1,3)="Should events of this type be logged?"
^DD(776.3,.1,21,0)="^^4^4^3031211^"
^DD(776.3,.1,21,1,0)="This field can be used to disable a particular event type.  It is a safety"
^DD(776.3,.1,21,2,0)="feature - if large numbers of events of a particular tye are generated and"
^DD(776.3,.1,21,3,0)="it is discovered that logging them is not useful then the logging can be"
^DD(776.3,.1,21,4,0)="turned off via this field."
^DD(776.3,.1,"DT")="3031211"
^DD(776.3,1,0)="ACTION^FX^^1;E1,20^K:'$L($T(@X)) X"
^DD(776.3,1,.1)="AUTOMATIC ACTION FOR EVENT TYPE"
^DD(776.3,1,3)="What routine, in the format <tag>^<routine>, should be executed when events of this type occur?"
^DD(776.3,1,21,0)="^.001^2^2^3030710^^^^"
^DD(776.3,1,21,1,0)="The action will be executed when the event occurs.  For conglomerated"
^DD(776.3,1,21,2,0)="events, the action is executed when the time period expires."
^DD(776.3,1,"DT")="3030710"
^DD(776.3,2,0)="SERVER LOCATIONS^776.32P^^2;0"
^DD(776.3,2,"DT")="3030710"
^DD(776.3,3,0)="FULL DESCRIPTION^776.33^^3;0"
^DD(776.3,3,"DT")="3030722"
^DD(776.3,4.01,0)="BRIEF DESCRIPTION^F^^4;1^K:$L(X)>80!($L(X)<1) X"
^DD(776.3,4.01,3)="Answer must be 1-80 characters in length"
^DD(776.3,4.01,"DT")="3030722"
^DD(776.3,"B","ACTION",1)=""
^DD(776.3,"B","ACTIVE",.1)=""
^DD(776.3,"B","ASSIGNING PACKAGE",.02)="1"
^DD(776.3,"B","BRIEF DESCRIPTION",4.01)=""
^DD(776.3,"B","CATEGORY",.03)=""
^DD(776.3,"B","CODE",.01)=""
^DD(776.3,"B","CONGLOMERATE",.05)=""
^DD(776.3,"B","DAYS TILL PURGE",.09)=""
^DD(776.3,"B","DAYS TO KEEP BEFORE PURGING",.09)="1"
^DD(776.3,"B","FULL DESCRIPTION",3)=""
^DD(776.3,"B","HOURS COVERED",.06)=""
^DD(776.3,"B","MONITOR EVENT TYPE CATEGORY",.03)="1"
^DD(776.3,"B","MONITOR EVENT TYPE CODE",.01)="1"
^DD(776.3,"B","PACKAGE",.02)=""
^DD(776.3,"B","PACKAGE NAME",.08)=""
^DD(776.3,"B","REVIEW",.07)=""
^DD(776.3,"B","REVIEW EVENTS OF THIS TYPE?",.07)="1"
^DD(776.3,"B","SERVER LOCATIONS",2)=""
^DD(776.3,"B","URGENT",.04)=""
^DD(776.3,"GL",0,1,.01)=""
^DD(776.3,"GL",0,2,.02)=""
^DD(776.3,"GL",0,3,.03)=""
^DD(776.3,"GL",0,4,.04)=""
^DD(776.3,"GL",0,5,.05)=""
^DD(776.3,"GL",0,6,.06)=""
^DD(776.3,"GL",0,7,.07)=""
^DD(776.3,"GL",0,8,.08)=""
^DD(776.3,"GL",0,9,.09)=""
^DD(776.3,"GL",0,10,.1)=""
^DD(776.3,"GL",1,"E1,20",1)=""
^DD(776.3,"GL",2,0,2)=""
^DD(776.3,"GL",3,0,3)=""
^DD(776.3,"GL",4,1,4.01)=""
^DD(776.3,"IX",.01)=""
^DD(776.3,"RQ",.01)=""
^DD(776.3,"RQ",.02)=""
^DD(776.3,"RQ",.03)=""
^DD(776.3,"RQ",.09)=""
^DD(776.3,"SB",776.32,2)=""
^DD(776.3,"SB",776.33,3)=""
^DD(776.32,0)="SERVER LOCATIONS SUB-FIELD^^2^2"
^DD(776.32,0,"DT")="3031002"
^DD(776.32,0,"IX","B",776.32,.01)=""
^DD(776.32,0,"NM","SERVER LOCATIONS")=""
^DD(776.32,0,"UP")="776.3"
^DD(776.32,.01,0)="DOMAIN^MP4.2'^DIC(4.2,^0;1^Q"
^DD(776.32,.01,.1)="SERVER LOCATION FOR EVENT TYPE"
^DD(776.32,.01,1,0)="^.1"
^DD(776.32,.01,1,1,0)="776.32^B"
^DD(776.32,.01,1,1,1)="S ^HLEV(776.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(776.32,.01,1,1,2)="K ^HLEV(776.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(776.32,.01,3)="What locations will monitor servers be located for this event type?"
^DD(776.32,.01,21,0)="^.001^2^2^3030710^^"
^DD(776.32,.01,21,1,0)="This will be a list of Mailman Domains where events of this type should be "
^DD(776.32,.01,21,2,0)="sent for centralized monitoring."
^DD(776.32,.01,"DT")="3030710"
^DD(776.32,2,0)="SCREEN^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(776.32,2,3)="Enter MUMPS code to be Xecuted when an event of this type occurs.  It should set $T to 1 if the event should be sent to this remote location.  "
^DD(776.32,2,21,0)="^^12^12^3031002^^"
^DD(776.32,2,21,1,0)="This field provides a method for application developers to screen which events"
^DD(776.32,2,21,2,0)="are sent to a remote server.  At the point at which an event occurs, "
^DD(776.32,2,21,3,0)="Event Logging determines what remoted locations to send the event.  If an"
^DD(776.32,2,21,4,0)="application wishes to provide remoted viewing of its events then for those"
^DD(776.32,2,21,5,0)="Event Types for which it is concerned it should make an entry in the Server"
^DD(776.32,2,21,6,0)="Locations multiple. It can further screen which events to send by associating"
^DD(776.32,2,21,7,0)="a MUMPS screen with that SERVER LOCATION.  When Xecuted, the screen should set"
^DD(776.32,2,21,8,0)="$T=1 if the event should be sent to the remote server, 0 otherwise.  The"
^DD(776.32,2,21,9,0)="HLEVENT() array is defined at the point at which the screen is"
^DD(776.32,2,21,10,0)="executed.  A complete description of that array is provided for the"
^DD(776.32,2,21,11,0)="$$EVENT^HLEME() API that is provide for application developers using the"
^DD(776.32,2,21,12,0)="HL7 package."
^DD(776.32,2,"DT")="3031002"
^DD(776.32,"B","DOMAIN",.01)=""
^DD(776.32,"B","SCREEN",2)=""
^DD(776.32,"B","SERVER LOCATION FOR EVENT TYPE",.01)="1"
^DD(776.32,"GL",0,1,.01)=""
^DD(776.32,"GL",1,"E1,245",2)=""
^DD(776.32,"IX",.01)=""
^DD(776.33,0)="FULL DESCRIPTION SUB-FIELD^^.01^1"
^DD(776.33,0,"DT")="3030717"
^DD(776.33,0,"NM","FULL DESCRIPTION")=""
^DD(776.33,0,"UP")="776.3"
^DD(776.33,.01,0)="FULL DESCRIPTION^W^^0;1^Q"
^DD(776.33,.01,3)="Enter a complete description of what this events of this type signfy."
^DD(776.33,.01,"DT")="3030722"
^DD(776.33,"B","FULL DESCRIPTION",.01)=""
^DD(776.33,"GL",0,1,.01)=""
^DD(776.4,0)="FIELD^^3^20"
^DD(776.4,0,"DT")="3030925"
^DD(776.4,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HLEV(776.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(776.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(776.4,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(776.4,0,"IX","B",776.4,.01)=""
^DD(776.4,0,"NM","HL7 MONITOR EVENT")=""
^DD(776.4,0,"VR")="1.6"
^DD(776.4,0,"VRPK")="HL"
^DD(776.4,.01,0)="DT/TM^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.4,.01,.1)="DATE/TIME OF OCCURENCE"
^DD(776.4,.01,1,0)="^.1"
^DD(776.4,.01,1,1,0)="776.4^B"
^DD(776.4,.01,1,1,1)="S ^HLEV(776.4,""B"",$E(X,1,30),DA)="""""
^DD(776.4,.01,1,1,2)="K ^HLEV(776.4,""B"",$E(X,1,30),DA)"
^DD(776.4,.01,1,1,"%D",0)="^^3^3^3040112^"
^DD(776.4,.01,1,1,"%D",1,0)="There is only one entry in the HL Event Parameters file (#776.999).  The "
^DD(776.4,.01,1,1,"%D",2,0)="entry's name is stored on the Name field (#.01), which is "
^DD(776.4,.01,1,1,"%D",3,0)="cross-referenced in this B xref."
^DD(776.4,.01,3)="When exactly did the even occur?"
^DD(776.4,.01,21,0)="^.001^1^1^3030717^^"
^DD(776.4,.01,21,1,0)="The date and time the event occurred."
^DD(776.4,.01,"DT")="3030821"
^DD(776.4,.02,0)="TYPE^RP776.3'^HLEV(776.3,^0;2^Q"
^DD(776.4,.02,.1)="HL7 MONITOR EVENT TYPE"
^DD(776.4,.02,3)="What type of event is this?"
^DD(776.4,.02,"DT")="3030821"
^DD(776.4,.03,0)="SITE^RP4'^DIC(4,^0;3^Q"
^DD(776.4,.03,.1)="SITE OF EVENT OCCURRENCE"
^DD(776.4,.03,3)="Where did the event occur?"
^DD(776.4,.03,21,0)="^^1^1^3030710^"
^DD(776.4,.03,21,1,0)="This is the location of the event."
^DD(776.4,.03,"DT")="3030723"
^DD(776.4,.04,0)="ID^F^^0;4^K:$L(X)>12!($L(X)<5) X"
^DD(776.4,.04,3)="Should begin with a prefix consisting of the station number followed by a hyphen."
^DD(776.4,.04,21,0)="^^1^1^3030714^"
^DD(776.4,.04,21,1,0)="This will uniquely identify the event across the entire VHA."
^DD(776.4,.04,"DT")="3030714"
^DD(776.4,.05,0)="ACTION STATUS^RS^0:ACTION NOT REQUIRED;1:NOT YET INITIATED;2:IN PROGRESS;3:SUCCESS;4:FAILURE;^0;5^Q"
^DD(776.4,.05,3)="What is the status of the action?"
^DD(776.4,.05,"DT")="3030722"
^DD(776.4,.06,0)="REVIEW STATUS^RS^0:NOT REQUIRED;1:REQUIRED;2:IF ACTION FAILS;3:PENDING;4:COMPLETED;^0;6^Q"
^DD(776.4,.06,3)="Is a review needed?  Has it been completed?  Enter the most appropriate status."
^DD(776.4,.06,"DT")="3030820"
^DD(776.4,.07,0)="DT/TM REVIEWED^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(776.4,.07,.1)="DATE/TIME REVIEWED"
^DD(776.4,.07,3)="When was this event reviewed?"
^DD(776.4,.07,21,0)="^^2^2^3030710^"
^DD(776.4,.07,21,1,0)="This documents when the event was manually reviewed.  If never reviewed,"
^DD(776.4,.07,21,2,0)="the field is blank."
^DD(776.4,.07,"DT")="3030711"
^DD(776.4,.08,0)="REVIEWER^P200'^VA(200,^0;8^Q"
^DD(776.4,.08,3)="Who reviewed this event?"
^DD(776.4,.08,"DT")="3030710"
^DD(776.4,.09,0)="DT/TM ACTION^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(776.4,.09,.1)="DATE/TIME OF AUTOMATED ACTION"
^DD(776.4,.09,3)="When was the autmated action executed?"
^DD(776.4,.09,"DT")="3030711"
^DD(776.4,.1,0)="HL7 ID^F^^0;10^K:$L(X)>20!($L(X)<1) X"
^DD(776.4,.1,.1)="HL7 MESSAGE ID"
^DD(776.4,.1,3)="If the event is associated with a particular HL7 message, enter the unique HL7 Message ID."
^DD(776.4,.1,"DT")="3030715"
^DD(776.4,.11,0)="COUNT^NJ8,0^^0;11^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(776.4,.11,3)="For conglomerated events, enter the count of discrete events included in this event."
^DD(776.4,.11,21,0)="^^2^2^3030715^"
^DD(776.4,.11,21,1,0)="This field pertains only to conglomerated events, that is, events that represent"
^DD(776.4,.11,21,2,0)="a count of discrete events over some spefcific time period."
^DD(776.4,.11,"DT")="3030723"
^DD(776.4,.12,0)="URGENT^S^0:NO;1:YES;2:URGENT IF ACTION FAILS;^0;12^Q"
^DD(776.4,.12,3)="Is it urgent that this event be reviewed?"
^DD(776.4,.12,"DT")="3030722"
^DD(776.4,.13,0)="MESSAGE TYPE^F^^0;13^K:$L(X)>3!($L(X)<3) X"
^DD(776.4,.13,3)="Answer with the 3 character HL7 message type code."
^DD(776.4,.13,"DT")="3030722"
^DD(776.4,.14,0)="HL7 EVENT TYPE^F^^0;14^K:$L(X)>3!($L(X)<3) X"
^DD(776.4,.14,3)="Answer with the 3 character HL7 event type code"
^DD(776.4,.14,"DT")="3030722"
^DD(776.4,.15,0)="LINK^F^^0;15^K:$L(X)>10!($L(X)<1) X"
^DD(776.4,.15,3)="Answer with the name of the HL Logical Link over which the message was transmitted."
^DD(776.4,.15,"DT")="3030722"
^DD(776.4,.16,0)="SENDING APPLICATION^F^^0;16^K:$L(X)>15!($L(X)<3) X"
^DD(776.4,.16,3)="Answer with the name of the HL7 Application Parameter that represents the application that sent the message."
^DD(776.4,.16,"DT")="3030924"
^DD(776.4,.17,0)="CREATE DT/TM^D^^0;17^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(776.4,.17,3)="Enter the exact date and time that this record was created."
^DD(776.4,.17,"DT")="3030924"
^DD(776.4,1,0)="NOTES^776.41^^1;0"
^DD(776.4,2,0)="MAIL^776.42^^2;0"
^DD(776.4,2,"DT")="3030715"
^DD(776.4,3,0)="APPLICATION DATA^776.43^^3;0"
^DD(776.4,3,21,0)="^^2^2^3030728^^^"
^DD(776.4,3,21,1,0)="This allows an application to store its own information relevant to"
^DD(776.4,3,21,2,0)="resolving the event along with the event."
^DD(776.4,"B","ACTION STATUS",.05)=""
^DD(776.4,"B","APPLICATION DATA",3)=""
^DD(776.4,"B","COUNT",.11)=""
^DD(776.4,"B","CREATE DT/TM",.17)=""
^DD(776.4,"B","DATE/TIME OF AUTOMATED ACTION",.09)="1"
^DD(776.4,"B","DATE/TIME OF OCCURENCE",.01)="1"
^DD(776.4,"B","DATE/TIME REVIEWED",.07)="1"
^DD(776.4,"B","DT/TM",.01)=""
^DD(776.4,"B","DT/TM ACTION",.09)=""
^DD(776.4,"B","DT/TM REVIEWED",.07)=""
^DD(776.4,"B","HL7 EVENT TYPE",.14)=""
^DD(776.4,"B","HL7 ID",.1)=""
^DD(776.4,"B","HL7 MESSAGE ID",.1)="1"
^DD(776.4,"B","HL7 MONITOR EVENT TYPE",.02)="1"
^DD(776.4,"B","ID",.04)=""
^DD(776.4,"B","LINK",.15)=""
^DD(776.4,"B","MAIL",2)=""
^DD(776.4,"B","MESSAGE TYPE",.13)=""
^DD(776.4,"B","NOTES",1)=""
^DD(776.4,"B","REVIEW STATUS",.06)=""
^DD(776.4,"B","REVIEWER",.08)=""
^DD(776.4,"B","SENDING APPLICATION",.16)=""
^DD(776.4,"B","SITE",.03)=""
^DD(776.4,"B","SITE OF EVENT OCCURRENCE",.03)="1"
^DD(776.4,"B","TYPE",.02)=""
^DD(776.4,"B","URGENT",.12)=""
^DD(776.4,"GL",0,1,.01)=""
^DD(776.4,"GL",0,2,.02)=""
^DD(776.4,"GL",0,3,.03)=""
^DD(776.4,"GL",0,4,.04)=""
^DD(776.4,"GL",0,5,.05)=""
^DD(776.4,"GL",0,6,.06)=""
^DD(776.4,"GL",0,7,.07)=""
^DD(776.4,"GL",0,8,.08)=""
^DD(776.4,"GL",0,9,.09)=""
^DD(776.4,"GL",0,10,.1)=""
^DD(776.4,"GL",0,11,.11)=""
^DD(776.4,"GL",0,12,.12)=""
^DD(776.4,"GL",0,13,.13)=""
^DD(776.4,"GL",0,14,.14)=""
^DD(776.4,"GL",0,15,.15)=""
^DD(776.4,"GL",0,16,.16)=""
^DD(776.4,"GL",0,17,.17)=""
^DD(776.4,"GL",1,0,1)=""
^DD(776.4,"GL",2,0,2)=""
^DD(776.4,"GL",3,0,3)=""
^DD(776.4,"IX",.01)=""
^DD(776.4,"RQ",.01)=""
^DD(776.4,"RQ",.02)=""
^DD(776.4,"RQ",.03)=""
^DD(776.4,"RQ",.05)=""
^DD(776.4,"RQ",.06)=""
^DD(776.4,"SB",776.41,1)=""
^DD(776.4,"SB",776.42,2)=""
^DD(776.4,"SB",776.43,3)=""
^DD(776.41,0)="NOTES SUB-FIELD^^.01^1"
^DD(776.41,0,"DT")="3030710"
^DD(776.41,0,"NM","NOTES")=""
^DD(776.41,0,"UP")="776.4"
^DD(776.41,.01,0)="NOTES^W^^0;1^Q"
^DD(776.41,.01,3)="Enter your comments and actions taken."
^DD(776.41,.01,"DT")="3030710"
^DD(776.41,"B","NOTES",.01)=""
^DD(776.41,"GL",0,1,.01)=""
^DD(776.42,0)="MAIL SUB-FIELD^^.01^1"
^DD(776.42,0,"DT")="3030925"
^DD(776.42,0,"IX","B",776.42,.01)=""
^DD(776.42,0,"NM","MAIL")=""
^DD(776.42,0,"UP")="776.4"
^DD(776.42,.01,0)="MAIL^MF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(776.42,.01,.1)="MAIL MESSAGE"
^DD(776.42,.01,1,0)="^.1"
^DD(776.42,.01,1,1,0)="776.42^B"
^DD(776.42,.01,1,1,1)="S ^HLEV(776.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(776.42,.01,1,1,2)="K ^HLEV(776.4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(776.42,.01,3)="This is a pointer to the Message file (#3.9) stored as free text."
^DD(776.42,.01,"DT")="3030925"
^DD(776.42,"B","MAIL",.01)=""
^DD(776.42,"B","MAIL MESSAGE",.01)="1"
^DD(776.42,"GL",0,1,.01)=""
^DD(776.42,"IX",.01)=""
^DD(776.43,0)="APPLICATION DATA SUB-FIELD^^2^2"
^DD(776.43,0,"DT")="3030728"
^DD(776.43,0,"IX","B",776.43,.01)=""
^DD(776.43,0,"NM","APPLICATION DATA")=""
^DD(776.43,0,"UP")="776.4"
^DD(776.43,.01,0)="SUBSCRIPTED VARIABLE^MF^^0;1^K:$L(X)>230!($L(X)<3) X"
^DD(776.43,.01,1,0)="^.1"
^DD(776.43,.01,1,1,0)="776.43^B"
^DD(776.43,.01,1,1,1)="S ^HLEV(776.4,DA(1),3,""B"",$E(X,1,230),DA)="""""
^DD(776.43,.01,1,1,2)="K ^HLEV(776.4,DA(1),3,""B"",$E(X,1,230),DA)"
^DD(776.43,.01,3)="Enter the name of the variable to save, including any subscripts."
^DD(776.43,.01,21,0)="^^8^8^3030728^^"
^DD(776.43,.01,21,1,0)="This is the name of the variable, which may or may not include subcripts."
^DD(776.43,.01,21,2,0)="Examples are:"
^DD(776.43,.01,21,3,0)=""
^DD(776.43,.01,21,4,0)="""DUZ"""
^DD(776.43,.01,21,5,0)="""ICN"""
^DD(776.43,.01,21,6,0)="""MYDATA(1)"""
^DD(776.43,.01,21,7,0)="""MYDATA(2)"""
^DD(776.43,.01,21,8,0)="""MYDATA(""""PATIENTS"""",33)"""
^DD(776.43,.01,"DT")="3030728"
^DD(776.43,2,0)="VALUE^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(776.43,2,3)="What is the value?  Enter a string 1-245 characters in length."
^DD(776.43,2,"DT")="3030710"
^DD(776.43,"B","SUBSCRIPTED VARIABLE",.01)=""
^DD(776.43,"B","VALUE",2)=""
^DD(776.43,"GL",0,1,.01)=""
^DD(776.43,"GL",2,1,2)=""
^DD(776.43,"IX",.01)=""
^DD(776.5,0)="FIELD^^4^13"
^DD(776.5,0,"DDA")="N"
^DD(776.5,0,"DT")="3030725"
^DD(776.5,0,"IX","B",776.5,.01)=""
^DD(776.5,0,"NM","HL7 MONITOR EVENTS PROFILE")=""
^DD(776.5,0,"VR")="1.6"
^DD(776.5,0,"VRPK")="HL"
^DD(776.5,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(776.5,.01,1,0)="^.1"
^DD(776.5,.01,1,1,0)="776.5^B"
^DD(776.5,.01,1,1,1)="S ^HLEV(776.5,""B"",$E(X,1,30),DA)="""""
^DD(776.5,.01,1,1,2)="K ^HLEV(776.5,""B"",$E(X,1,30),DA)"
^DD(776.5,.01,3)="Who is this profile for?"
^DD(776.5,.01,21,0)="^.001^1^1^3030724^^"
^DD(776.5,.01,21,1,0)="This is the owner of the profile."
^DD(776.5,.01,"DT")="3030725"
^DD(776.5,.02,0)="PROFILE NAME^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(776.5,.02,3)="What name do you want to give to this profile?"
^DD(776.5,.02,"DT")="3030724"
^DD(776.5,.03,0)="DEFAULT?^S^0:NO;1:YES;^0;3^Q"
^DD(776.5,.03,3)="Is this your default profile, i.e., should it be used each time you initially enter the event log?"
^DD(776.5,.03,"DT")="3030725"
^DD(776.5,.04,0)="ALL SITES?^S^0:NO;1:YES;^0;4^Q"
^DD(776.5,.04,3)="Should this profile include events from all sites?"
^DD(776.5,.04,21,0)="^^3^3^3030724^"
^DD(776.5,.04,21,1,0)="This field indicates whether or not events should be screened based on a "
^DD(776.5,.04,21,2,0)="list of particular sites.  If YES,  events from all sites will be "
^DD(776.5,.04,21,3,0)="included in the Event Log display."
^DD(776.5,.04,"DT")="3030724"
^DD(776.5,.05,0)="ALL EVENT TYPES?^S^0:NO;1:YES;^0;5^Q"
^DD(776.5,.05,3)="Do you want to see all HL7 Monitor Event Types in this profile?"
^DD(776.5,.05,"DT")="3030725"
^DD(776.5,.06,0)="ALL SENDING APPLICATIONS?^S^0:NO;1:YES;^0;6^Q"
^DD(776.5,.06,3)="Do you want to view messages from all applications in this profile?"
^DD(776.5,.06,"DT")="3030725"
^DD(776.5,.07,0)="ALL REVIEW STATUSES?^S^0:NO;1:YES;^0;7^Q"
^DD(776.5,.07,3)="Do you want to view all messages regardless of their review status?"
^DD(776.5,.07,"DT")="3030725"
^DD(776.5,.08,0)="TIME PERIOD^S^1:PRIOR HOUR;2:PRIOR 2 HOURS;3:PRIOR 6 HOURS;4:TODAY;5:LAST 24 HOURS;6:TODAY AND YESTERDAY;7:LAST 48 HOURS;8:LAST 72 HOURS;9:LAST 7 DAYS;0:ALL;^0;8^Q"
^DD(776.5,.08,3)="Select the time period you would like to view."
^DD(776.5,.08,"DT")="3030725"
^DD(776.5,.09,0)="ONLY URGENT?^S^0:NO;1:YES;^0;9^Q"
^DD(776.5,.09,3)="Should only urgent events be displayed?"
^DD(776.5,.09,"DT")="3030725"
^DD(776.5,1,0)="SITES^776.51P^^1;0"
^DD(776.5,1,21,0)="^.001^2^2^3030724^^"
^DD(776.5,1,21,1,0)="This is a list of sites that should be included in displays based on this"
^DD(776.5,1,21,2,0)="profile."
^DD(776.5,2,0)="EVENT TYPES^776.52P^^2;0"
^DD(776.5,3,0)="SENDING APPLICATIONS?^776.53P^^3;0"
^DD(776.5,4,0)="REVEIW STATUS CODES^776.54S^^4;0"
^DD(776.5,"B","ALL EVENT TYPES?",.05)=""
^DD(776.5,"B","ALL REVIEW STATUSES?",.07)=""
^DD(776.5,"B","ALL SENDING APPLICATIONS?",.06)=""
^DD(776.5,"B","ALL SITES?",.04)=""
^DD(776.5,"B","DEFAULT?",.03)=""
^DD(776.5,"B","EVENT TYPES",2)=""
^DD(776.5,"B","ONLY URGENT?",.09)=""
^DD(776.5,"B","PROFILE NAME",.02)=""
^DD(776.5,"B","REVEIW STATUS CODES",4)=""
^DD(776.5,"B","SENDING APPLICATIONS?",3)=""
^DD(776.5,"B","SITES",1)=""
^DD(776.5,"B","TIME PERIOD",.08)=""
^DD(776.5,"B","USER",.01)=""
^DD(776.5,"GL",0,1,.01)=""
^DD(776.5,"GL",0,2,.02)=""
^DD(776.5,"GL",0,3,.03)=""
^DD(776.5,"GL",0,4,.04)=""
^DD(776.5,"GL",0,5,.05)=""
^DD(776.5,"GL",0,6,.06)=""
^DD(776.5,"GL",0,7,.07)=""
^DD(776.5,"GL",0,8,.08)=""
^DD(776.5,"GL",0,9,.09)=""
^DD(776.5,"GL",1,0,1)=""
^DD(776.5,"GL",2,0,2)=""
^DD(776.5,"GL",3,0,3)=""
^DD(776.5,"GL",4,0,4)=""
^DD(776.5,"IX",.01)=""
^DD(776.5,"RQ",.01)=""
^DD(776.5,"RQ",.02)=""
^DD(776.5,"SB",776.51,1)=""
^DD(776.5,"SB",776.52,2)=""
^DD(776.5,"SB",776.53,3)=""
^DD(776.5,"SB",776.54,4)=""
^DD(776.51,0)="SITES SUB-FIELD^^.01^1"
^DD(776.51,0,"DT")="3030724"
^DD(776.51,0,"IX","B",776.51,.01)=""
^DD(776.51,0,"NM","SITES")=""
^DD(776.51,0,"UP")="776.5"
^DD(776.51,.01,0)="SITES^MP4'^DIC(4,^0;1^Q"
^DD(776.51,.01,1,0)="^.1"
^DD(776.51,.01,1,1,0)="776.51^B"
^DD(776.51,.01,1,1,1)="S ^HLEV(776.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(776.51,.01,1,1,2)="K ^HLEV(776.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(776.51,.01,3)="Enter sites who's events should be included in your display of the HL7 Monitor Events Log."
^DD(776.51,.01,"DT")="3030724"
^DD(776.51,"B","SITES",.01)=""
^DD(776.51,"GL",0,1,.01)=""
^DD(776.51,"IX",.01)=""
^DD(776.52,0)="EVENT TYPES SUB-FIELD^^.01^1"
^DD(776.52,0,"DT")="3030725"
^DD(776.52,0,"IX","B",776.52,.01)=""
^DD(776.52,0,"NM","EVENT TYPES")=""
^DD(776.52,0,"UP")="776.5"
^DD(776.52,.01,0)="EVENT TYPES^MP776.3'^HLEV(776.3,^0;1^Q"
^DD(776.52,.01,1,0)="^.1"
^DD(776.52,.01,1,1,0)="776.52^B"
^DD(776.52,.01,1,1,1)="S ^HLEV(776.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(776.52,.01,1,1,2)="K ^HLEV(776.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(776.52,.01,3)="What HL7 Monitor Event Types would you like to view in this profile?"
^DD(776.52,.01,"DT")="3030725"
^DD(776.52,"B","EVENT TYPES",.01)=""
^DD(776.52,"GL",0,1,.01)=""
^DD(776.52,"IX",.01)=""
^DD(776.53,0)="SENDING APPLICATIONS? SUB-FIELD^^.01^1"
^DD(776.53,0,"DT")="3030725"
^DD(776.53,0,"IX","B",776.53,.01)=""
^DD(776.53,0,"NM","SENDING APPLICATIONS?")=""
^DD(776.53,0,"UP")="776.5"
^DD(776.53,.01,0)="SENDING APPLICATIONS?^MP771'^HL(771,^0;1^Q"
^DD(776.53,.01,1,0)="^.1"
^DD(776.53,.01,1,1,0)="776.53^B"
^DD(776.53,.01,1,1,1)="S ^HLEV(776.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(776.53,.01,1,1,2)="K ^HLEV(776.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(776.53,.01,3)="What sendign applications would you like to include in this profile?"
^DD(776.53,.01,"DT")="3030725"
^DD(776.53,"B","SENDING APPLICATIONS?",.01)=""
^DD(776.53,"GL",0,1,.01)=""
^DD(776.53,"IX",.01)=""
^DD(776.54,0)="REVEIW STATUS CODES SUB-FIELD^^.01^1"
^DD(776.54,0,"DT")="3030725"
^DD(776.54,0,"IX","B",776.54,.01)=""
^DD(776.54,0,"NM","REVEIW STATUS CODES")=""
^DD(776.54,0,"UP")="776.5"
^DD(776.54,.01,0)="REVEIW STATUS CODES^MS^0:NOT REQUIRED;1:REQUIRED;2:ONLY IF ACTION FAILS;3:PENDING;4:COMPLETED;^0;1^Q"
^DD(776.54,.01,1,0)="^.1"
^DD(776.54,.01,1,1,0)="776.54^B"
^DD(776.54,.01,1,1,1)="S ^HLEV(776.5,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(776.54,.01,1,1,2)="K ^HLEV(776.5,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(776.54,.01,3)="What review statuses would you like to view?"
^DD(776.54,.01,"DT")="3030725"
^DD(776.54,"B","REVEIW STATUS CODES",.01)=""
^DD(776.54,"GL",0,1,.01)=""
^DD(776.54,"IX",.01)=""
^DD(776.999,0)="FIELD^^6^5"
^DD(776.999,0,"DT")="3030808"
^DD(776.999,0,"IX","B",776.999,.01)=""
^DD(776.999,0,"NM","HL7 MONITOR PARAMETERS")=""
^DD(776.999,0,"VR")="1.6"
^DD(776.999,0,"VRPK")="HL"
^DD(776.999,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(776.999,.01,1,0)="^.1"
^DD(776.999,.01,1,1,0)="776.999^B"
^DD(776.999,.01,1,1,1)="S ^HLEV(776.999,""B"",$E(X,1,30),DA)="""""
^DD(776.999,.01,1,1,2)="K ^HLEV(776.999,""B"",$E(X,1,30),DA)"
^DD(776.999,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(776.999,.01,21,0)="^^3^3^3030825^"
^DD(776.999,.01,21,1,0)="This field holds the name of the parameter entry.  (Only one entry, "
^DD(776.999,.01,21,2,0)="internal entry number 1 should exist.)  The value of this field has no"
^DD(776.999,.01,21,3,0)="affect on software execution."
^DD(776.999,2,0)="STATUS-MASTER^S^A:ACTIVE;I:INACTIVE;^0;2^Q"
^DD(776.999,2,21,0)="^^6^6^3030825^"
^DD(776.999,2,21,1,0)="This field should be set to ACTIVE if the master job should run, and "
^DD(776.999,2,21,2,0)="INACTIVE if the master job should not run.  This field also controls"
^DD(776.999,2,21,3,0)="individual monitor jobs.  (Note that setting this field has no affect"
^DD(776.999,2,21,4,0)="on queued future Taskman jobs - either the master job or the monitor"
^DD(776.999,2,21,5,0)="jobst - until these jobs start.  If this field is set to INACTIVE,"
^DD(776.999,2,21,6,0)="when queued jobs start they check this field and immediately stop.)"
^DD(776.999,2,"DT")="3030518"
^DD(776.999,3,0)="REQUEUE MIN-MASTER JOB^NJ4,0^^0;3^K:+X'=X!(X>1440)!(X<5)!(X?.E1"".""1N.N) X"
^DD(776.999,3,3)="Type a Number between 5 and 1440, 0 Decimal Digits"
^DD(776.999,3,21,0)="^^3^3^3030825^"
^DD(776.999,3,21,1,0)="When a master job runs, it's first action is to queue a new master job"
^DD(776.999,3,21,2,0)="task in the future.  This field is used to determine the number minutes"
^DD(776.999,3,21,3,0)="in the future that the task is queued."
^DD(776.999,3,"DT")="3030808"
^DD(776.999,4,0)="PURGE HOURS^NJ5,0^^0;4^K:+X'=X!(X>12000)!(X<2)!(X?.E1"".""1N.N) X"
^DD(776.999,4,3)="Type a Number between 2 and 12000, 0 Decimal Digits"
^DD(776.999,4,21,0)="^^2^2^3030825^"
^DD(776.999,4,21,1,0)="The Event Monitor system purges itself, retaining data in it's files"
^DD(776.999,4,21,2,0)="for the number hours specified by this field."
^DD(776.999,4,"DT")="3030528"
^DD(776.999,6,0)="STATUS-EVENT^S^A:ACTIVE;I:INACTIVE;^0;6^Q"
^DD(776.999,6,21,0)="^^5^5^3030825^"
^DD(776.999,6,21,1,0)="This field is similar to the STATUS-MASTER field, (and you should read "
^DD(776.999,6,21,2,0)="the description of that field), but only controls individual monitor"
^DD(776.999,6,21,3,0)="jobs.  If this field is set to INACTIVE, no new monitor jobs will be queued."
^DD(776.999,6,21,4,0)="And, if any monitor jobs are already queued, they will stop immediately"
^DD(776.999,6,21,5,0)="when they start."
^DD(776.999,6,"DT")="3030518"
^DD(776.999,"B","NAME",.01)=""
^DD(776.999,"B","PURGE HOURS",4)=""
^DD(776.999,"B","REQUEUE MIN-MASTER JOB",3)=""
^DD(776.999,"B","STATUS-EVENT",6)=""
^DD(776.999,"B","STATUS-MASTER",2)=""
^DD(776.999,"GL",0,1,.01)=""
^DD(776.999,"GL",0,2,2)=""
^DD(776.999,"GL",0,3,3)=""
^DD(776.999,"GL",0,4,4)=""
^DD(776.999,"GL",0,6,6)=""
^DD(776.999,"IX",.01)=""
^DD(776.999,"RQ",.01)=""
^DD(777,0)="FIELD^^3^9"
^DD(777,0,"DDA")="N"
^DD(777,0,"DT")="3040813"
^DD(777,0,"IX","B",777,.01)=""
^DD(777,0,"NM","HLO MESSAGE BODY")=""
^DD(777,0,"PT",778,.02)=""
^DD(777,0,"VR")="1.6"
^DD(777,0,"VRPK")="HL"
^DD(777,.01,0)="DATE/TIME ENTERED^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(777,.01,1,0)="^.1"
^DD(777,.01,1,1,0)="777^B"
^DD(777,.01,1,1,1)="S ^HLA(""B"",$E(X,1,30),DA)="""""
^DD(777,.01,1,1,2)="K ^HLA(""B"",$E(X,1,30),DA)"
^DD(777,.01,3)="Enter the exact time that this entry was created."
^DD(777,.01,"DT")="3040726"
^DD(777,.02,0)="BATCH^S^0:NO;1:YES;^0;2^Q"
^DD(777,.02,3)="Enter YES if this is a batch message."
^DD(777,.02,"DT")="3040726"
^DD(777,.03,0)="MESSAGE TYPE^F^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(777,.03,3)="Enter the 3 character HL7 message type."
^DD(777,.03,"DT")="3040726"
^DD(777,.04,0)="EVENT^F^^0;4^K:$L(X)>3!($L(X)<3) X"
^DD(777,.04,3)="Enter the 3 character HL7 event."
^DD(777,.04,"DT")="3040726"
^DD(777,.05,0)="HL7 VERSION^RF^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(777,.05,3)="Identify the version of the HL7 standard that this message conforms to."
^DD(777,.05,"DT")="3040726"
^DD(777,.2,0)="HL7 ENCODING CHARACTERS^RF^^0;20^K:$L(X)>5!($L(X)<5) X"
^DD(777,.2,3)="The 5 HL7 encoding characters in this order: Field Separator, Component Separator, Repetition Separator, Escape Character, Subcomponent Separator"
^DD(777,.2,23,0)="^^1^1^3040726^"
^DD(777,.2,23,1,0)="No other fields may follow this one on the 0 node!"
^DD(777,.2,"DT")="3050317"
^DD(777,1,0)="SEGMENTS (NOT BATCHED)^777.01A^^1;0"
^DD(777,2,0)="BATCHED MESSAGES^777.02A^^2;0"
^DD(777,3,0)="BTS^F^^3;1^K:$L(X)>250!($L(X)<1) X"
^DD(777,3,3)="Answer must be 1-250 characters in length."
^DD(777,3,21,0)="^^2^2^3041116^^"
^DD(777,3,21,1,0)="For incoming batch messages only, the BTS segment is stored in this field,"
^DD(777,3,21,2,0)="which is a separate node."
^DD(777,3,"DT")="3041116"
^DD(777,"B","BATCH",.02)=""
^DD(777,"B","BATCHED MESSAGES",2)=""
^DD(777,"B","BTS",3)=""
^DD(777,"B","DATE/TIME ENTERED",.01)=""
^DD(777,"B","EVENT",.04)=""
^DD(777,"B","HL7 ENCODING CHARACTERS",.2)=""
^DD(777,"B","HL7 VERSION",.05)=""
^DD(777,"B","MESSAGE TYPE",.03)=""
^DD(777,"B","SEGMENTS (NOT BATCHED)",1)=""
^DD(777,"GL",0,1,.01)=""
^DD(777,"GL",0,2,.02)=""
^DD(777,"GL",0,3,.03)=""
^DD(777,"GL",0,4,.04)=""
^DD(777,"GL",0,5,.05)=""
^DD(777,"GL",0,20,.2)=""
^DD(777,"GL",1,0,1)=""
^DD(777,"GL",2,0,2)=""
^DD(777,"GL",3,1,3)=""
^DD(777,"IX",.01)=""
^DD(777,"RQ",.01)=""
^DD(777,"RQ",.05)=""
^DD(777,"RQ",.2)=""
^DD(777,"SB",777.01,1)=""
^DD(777,"SB",777.02,2)=""
^DD(777.01,0)="SEGMENTS (NOT BATCHED) SUB-FIELD^^.01^1"
^DD(777.01,0,"DT")="3040726"
^DD(777.01,0,"IX","B",777.01,.01)=""
^DD(777.01,0,"NM","SEGMENTS (NOT BATCHED)")=""
^DD(777.01,0,"UP")="777"
^DD(777.01,.01,0)="SEGMENTS^WL^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(777.01,.01,1,0)="^.1"
^DD(777.01,.01,1,1,0)="777.01^B"
^DD(777.01,.01,1,1,1)="S ^HLA(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(777.01,.01,1,1,2)="K ^HLA(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(777.01,.01,3)="Segments should be separated with an empty line."
^DD(777.01,.01,"DT")="3040726"
^DD(777.01,"B","SEGMENTS",.01)=""
^DD(777.01,"GL",0,1,.01)=""
^DD(777.01,"IX",.01)=""
^DD(777.02,0)="BATCHED MESSAGES SUB-FIELD^^1^4"
^DD(777.02,0,"DT")="3040726"
^DD(777.02,0,"IX","B",777.02,.01)=""
^DD(777.02,0,"NM","BATCHED MESSAGES")=""
^DD(777.02,0,"UP")="777"
^DD(777.02,.01,0)="MESSAGE^NJ6,0^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(777.02,.01,1,0)="^.1"
^DD(777.02,.01,1,1,0)="777.02^B"
^DD(777.02,.01,1,1,1)="S ^HLA(DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(777.02,.01,1,1,2)="K ^HLA(DA(1),2,""B"",$E(X,1,30),DA)"
^DD(777.02,.01,3)="Enter a number to identify the sequence of this message within the batch, starting with 1, 2, 3, etc."
^DD(777.02,.01,"DT")="3040726"
^DD(777.02,.02,0)="MESSAGE TYPE^RF^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(777.02,.02,3)="Enter the 3 character HL7 message type."
^DD(777.02,.02,"DT")="3040726"
^DD(777.02,.03,0)="EVENT^RF^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(777.02,.03,3)="Enter the 3 character HL7 event type."
^DD(777.02,.03,"DT")="3040726"
^DD(777.02,1,0)="MESSAGE SEGMENTS^777.21A^^1;0"
^DD(777.02,"B","EVENT",.03)=""
^DD(777.02,"B","MESSAGE",.01)=""
^DD(777.02,"B","MESSAGE SEGMENTS",1)=""
^DD(777.02,"B","MESSAGE TYPE",.02)=""
^DD(777.02,"GL",0,1,.01)=""
^DD(777.02,"GL",0,2,.02)=""
^DD(777.02,"GL",0,3,.03)=""
^DD(777.02,"GL",1,0,1)=""
^DD(777.02,"IX",.01)=""
^DD(777.02,"RQ",.02)=""
^DD(777.02,"RQ",.03)=""
^DD(777.02,"SB",777.21,1)=""
^DD(777.21,0)="MESSAGE SEGMENTS SUB-FIELD^^.01^1"
^DD(777.21,0,"DT")="3040726"
^DD(777.21,0,"IX","B",777.21,.01)=""
^DD(777.21,0,"NM","MESSAGE SEGMENTS")=""
^DD(777.21,0,"UP")="777.02"
^DD(777.21,.01,0)="SEGMENTS (BATCH)^WL^^0;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(777.21,.01,1,0)="^.1"
^DD(777.21,.01,1,1,0)="777.21^B"
^DD(777.21,.01,1,1,1)="S ^HLA(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(777.21,.01,1,1,2)="K ^HLA(DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(777.21,.01,3)="Enter each segment as a sequence of lines, with each segment separated by a blank line."
^DD(777.21,.01,"DT")="3040812"
^DD(777.21,"B","SEGMENTS (BATCH)",.01)=""
^DD(777.21,"GL",0,"E1,250",.01)=""
^DD(777.21,"IX",.01)=""
^DD(778,0)="FIELD^^5.03^31"
^DD(778,0,"DDA")="N"
^DD(778,0,"DT")="3070730"
^DD(778,0,"IX","AC",778,.01)=""
^DD(778,0,"IX","AD",778,.09)=""
^DD(778,0,"IX","AE",778.03,.02)=""
^DD(778,0,"IX","B",778,.01)=""
^DD(778,0,"IX","C",778,.02)=""
^DD(778,0,"NM","HLO MESSAGES")=""
^DD(778,0,"VR")="1.6"
^DD(778,0,"VRPK")="HL"
^DD(778,.01,0)="MESSAGE ID^RF^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(778,.01,1,0)="^.1"
^DD(778,.01,1,1,0)="778^B"
^DD(778,.01,1,1,1)="S ^HLB(""B"",$E(X,1,30),DA)="""""
^DD(778,.01,1,1,2)="K ^HLB(""B"",$E(X,1,30),DA)"
^DD(778,.01,1,2,0)="778^AC^MUMPS"
^DD(778,.01,1,2,1)="Q"
^DD(778,.01,1,2,2)="Q"
^DD(778,.01,1,2,"%D",0)="^.101^3^3^3041116^^"
^DD(778,.01,1,2,"%D",1,0)="This x-ref is maintained by the HL7 package.  It is used to detect if an"
^DD(778,.01,1,2,"%D",2,0)="incoming message is a duplicate.  The format is:"
^DD(778,.01,1,2,"%D",3,0)="^HLB(""AC""sending facility>_<sending application>_<msg id>,ien)=0"
^DD(778,.01,1,2,"DT")="3040812"
^DD(778,.01,3)="Answer must be 3-20 characters in length"
^DD(778,.01,"DT")="3050504"
^DD(778,.02,0)="MESSAGE BODY^RP777'^HLA(^0;2^Q"
^DD(778,.02,1,0)="^.1"
^DD(778,.02,1,1,0)="778^C^MUMPS"
^DD(778,.02,1,1,1)="S ^HLB(""C"",X,DA)="""""
^DD(778,.02,1,1,2)="K ^HLB(""C"",X,DA)"
^DD(778,.02,1,1,"%D",0)="^.101^2^2^3050317^^"
^DD(778,.02,1,1,"%D",1,0)="Used to find all the messages that point to the same entry in file 777. Only"
^DD(778,.02,1,1,"%D",2,0)="set for outgoing messages."
^DD(778,.02,1,1,"DT")="3040815"
^DD(778,.02,3)="Which record in file #777 contains the body of the message?"
^DD(778,.02,"DT")="3050317"
^DD(778,.03,0)="APPLICATION ACKNOWLEDGMENT TO^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(778,.03,3)="Enter the Message Control ID of the message to which this one is an acknowledgment."
^DD(778,.03,21,0)="^^2^2^3050317^^"
^DD(778,.03,21,1,0)="This is the Message Control ID of the original message to which this message"
^DD(778,.03,21,2,0)="is an application acknowledgment."
^DD(778,.03,"DT")="3050317"
^DD(778,.04,0)="DIRECTION^RS^I:INCOMING;O:OUTGOING;^0;4^Q"
^DD(778,.04,3)="Is the message INCOMING or OUTGOING?"
^DD(778,.04,"DT")="3041116"
^DD(778,.05,0)="LINK^RF^^0;5^K:$L(X)>10!($L(X)<3) X"
^DD(778,.05,3)="Enter the name of the logical link over which the message is being transmitted."
^DD(778,.05,"DT")="3041116"
^DD(778,.06,0)="QUEUE^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(778,.06,3)="Is the queue on which this message was placed."
^DD(778,.06,"DT")="3040729"
^DD(778,.07,0)="APPLICATION ACKNOWLEDGMENT BY^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(778,.07,3)="If this message has received an application response then enter the responses Message Control ID."
^DD(778,.07,"DT")="3040930"
^DD(778,.08,0)="REMOTE PORT^NJ5,0^^0;8^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1.N) X"
^DD(778,.08,3)="Enter the remote port indicated in the Facility field of the message header."
^DD(778,.08,21,0)="^^4^4^3050504^^"
^DD(778,.08,21,1,0)="This is the remote port # that may be found in the message header. For outgoing"
^DD(778,.08,21,2,0)="messages, it is in the Receiving Facility field, for incoming messages it is"
^DD(778,.08,21,3,0)="in tthe Sending Facility. For application acknowledgments, the port provided in"
^DD(778,.08,21,4,0)="the original message is used to return the acknowledgment. "
^DD(778,.08,"DT")="3050504"
^DD(778,.09,0)="SCHEDULED PURGE DATE/TIME^D^^0;9^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(778,.09,1,0)="^.1"
^DD(778,.09,1,1,0)="778^AD^MUMPS"
^DD(778,.09,1,1,1)="Q"
^DD(778,.09,1,1,2)="Q"
^DD(778,.09,1,1,3)="DO NOT DELETE!"
^DD(778,.09,1,1,"%D",0)="^.101^4^4^3040828^^"
^DD(778,.09,1,1,"%D",1,0)="This cross-reference will be used to control the purging process.  It will"
^DD(778,.09,1,1,"%D",2,0)="be maintained within the HL7 package and will not be set via Fileman."
^DD(778,.09,1,1,"%D",3,0)="The format is:"
^DD(778,.09,1,1,"%D",4,0)="^HLB(""AD"",<""IN"" or ""OUT"">,<dt/tm for purging>,<message ien>)="""
^DD(778,.09,1,1,"DT")="3040819"
^DD(778,.09,3)="When can this message be purged?"
^DD(778,.09,"DT")="3040819"
^DD(778,.1,0)="APPLICATION ACK RSPNS TAG^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^DD(778,.1,3)="Answer must be 1-8 characters in length."
^DD(778,.1,21,0)="^^4^4^3040727^"
^DD(778,.1,21,1,0)="The sending application routine to execute when the application ack is received."
^DD(778,.1,21,2,0)=""
^DD(778,.1,21,3,0)="This is part one of a two-part field which is the entry point.  The second part"
^DD(778,.1,21,4,0)="names the routine.  "
^DD(778,.1,"DT")="3040727"
^DD(778,.11,0)="APPLICATION ACK RSPNS RTN^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^DD(778,.11,3)="Enter the application routine that should be executed when an applicaton ack is returned."
^DD(778,.11,21,0)="^^11^11^3070314^^"
^DD(778,.11,21,1,0)="Answer must be 1-8 characters in length. "
^DD(778,.11,21,2,0)="The sending application routine to execute when"
^DD(778,.11,21,3,0)="the application ack is received.  "
^DD(778,.11,21,4,0)=" "
^DD(778,.11,21,5,0)="This is part two of a two-part field which is"
^DD(778,.11,21,6,0)="the routine name.  The first part names the"
^DD(778,.11,21,7,0)="entry point.  "
^DD(778,.11,21,8,0)=""
^DD(778,.11,21,9,0)="For an returned application ack, this field documents"
^DD(778,.11,21,10,0)="the routine that was executed to process the application ack."
^DD(778,.11,21,11,0)=""
^DD(778,.11,"DT")="3070314"
^DD(778,.12,0)="ACCEPT ACK RSPNS TAG^F^^0;12^K:$L(X)>8!($L(X)<1) X"
^DD(778,.12,3)="Answer must be 1-8 characters in length."
^DD(778,.12,21,0)="^.001^7^7^3041116^^^"
^DD(778,.12,21,1,0)="The sending application's routine to execute when the transmission of the"
^DD(778,.12,21,2,0)="message fails, i.e., the message cannot be sent or no acceptack is received.  "
^DD(778,.12,21,3,0)=" "
^DD(778,.12,21,4,0)="This is part one of a two-part field, naming the entry point of the routine to"
^DD(778,.12,21,5,0)="be called.  The second part names the routine.  "
^DD(778,.12,21,6,0)="  "
^DD(778,.12,21,7,0)="  "
^DD(778,.12,"DT")="3041116"
^DD(778,.13,0)="ACCEPT ACK RESPNS RTN^F^^0;13^K:$L(X)>8!($L(X)<1) X"
^DD(778,.13,3)="Answer must be 1-8 characters in length."
^DD(778,.13,21,0)="^.001^6^6^3041116^^^^"
^DD(778,.13,21,1,0)="The sending application routine to execute whe the commit ack is received.     "
^DD(778,.13,21,2,0)=" "
^DD(778,.13,21,3,0)="This is part two of a two-part field, consisting of the routine name. The first"
^DD(778,.13,21,4,0)="part names the entry point with the M routine."
^DD(778,.13,21,5,0)="  "
^DD(778,.13,21,6,0)="  "
^DD(778,.13,"DT")="3041116"
^DD(778,.14,0)="TRANSMISSION FAILURE RSPNS TAG^F^^0;14^K:$L(X)>8!($L(X)<1) X"
^DD(778,.14,3)="Answer must be 1-8 characters in length."
^DD(778,.14,21,0)="^^8^8^3040727^"
^DD(778,.14,21,1,0)="The sending application's routine to execute"
^DD(778,.14,21,2,0)="when the transmission of the message fails,"
^DD(778,.14,21,3,0)="i.e., the message can not be sent or no commit"
^DD(778,.14,21,4,0)="ack is received.  "
^DD(778,.14,21,5,0)=" "
^DD(778,.14,21,6,0)="This is part one of a two-part field which is"
^DD(778,.14,21,7,0)="the entry point.  The second part names the"
^DD(778,.14,21,8,0)="routine.  "
^DD(778,.14,"DT")="3040727"
^DD(778,.15,0)="TRANSMISSION FAILURE RSPNS RTN^F^^0;15^K:$L(X)>8!($L(X)<1) X"
^DD(778,.15,3)="Answer must be 1-8 characters in length."
^DD(778,.15,21,0)="^^8^8^3040727^"
^DD(778,.15,21,1,0)="The sending application's routine to execute"
^DD(778,.15,21,2,0)="when the transmission of the message fails,"
^DD(778,.15,21,3,0)="i.e., the message can not be sent or no commit"
^DD(778,.15,21,4,0)="ack is received.  "
^DD(778,.15,21,5,0)=" "
^DD(778,.15,21,6,0)="This is part two of a two-part field which is"
^DD(778,.15,21,7,0)="the routine's name.  The first part names the"
^DD(778,.15,21,8,0)="entry point.  "
^DD(778,.15,"DT")="3040727"
^DD(778,.16,0)="TRANSMISSION DATE/TIME^D^^0;16^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(778,.16,3)=""
^DD(778,.16,21,0)="^^1^1^3040728^"
^DD(778,.16,21,1,0)="This is the date and time that the message was either received or sent."
^DD(778,.16,"DT")="3040728"
^DD(778,.17,0)="ACCEPT ACK'D^S^1:YES;^0;17^Q"
^DD(778,.17,3)="Enter 1 if an accept ack was sent or received."
^DD(778,.17,"DT")="3040823"
^DD(778,.18,0)="APPLICATION ACK'D^S^1:YES;^0;18^Q"
^DD(778,.18,21,0)="^.001^3^3^3041116^^^"
^DD(778,.18,21,1,0)="For incoming messages, this flag indicates that an application ack was"
^DD(778,.18,21,2,0)="returned.  For outgoing messages, this field indicates that the application"
^DD(778,.18,21,3,0)="ack was sent."
^DD(778,.18,"DT")="3041116"
^DD(778,.19,0)="APPLICATION HANDOFF^S^1:YES;^0;19^Q"
^DD(778,.19,21,0)="^^4^4^3040728^"
^DD(778,.19,21,1,0)="This flag indicates that this message was handed to the application.  That"
^DD(778,.19,21,2,0)="may be for initial processing, or it may be in response to one of the other"
^DD(778,.19,21,3,0)="conditions that an application may register its need to respond, such"
^DD(778,.19,21,4,0)="as a failure of the remote system to accept the message."
^DD(778,.19,"DT")="3040728"
^DD(778,.2,0)="COMPLETION STATUS^S^SU:SUCCESSFUL;TF:(obsolete) transmission failure;SE:(obsolete) system error;AE:(obsolete) application error;ERR:ERROR;^0;20^Q"
^DD(778,.2,3)="Enter the code that indicates the final status of the message."
^DD(778,.2,21,0)="^.001^3^3^3040820^^^^"
^DD(778,.2,21,1,0)="This field indicates the final status of the message."
^DD(778,.2,21,2,0)="Any code but SU (SUCCESSFUL) indicates that an error occurred."
^DD(778,.2,21,3,0)="No value indicates that the message has not completed."
^DD(778,.2,"DT")="3070710"
^DD(778,.21,0)="ERROR TEXT^F^^0;21^K:$L(X)>30!($L(X)<1) X"
^DD(778,.21,3)="Answer must be 1-30 characters in length."
^DD(778,.21,21,0)="^^3^3^3040928^^"
^DD(778,.21,21,1,0)="The HL7 package may use this field to document errors that prevent transmission."
^DD(778,.21,21,2,0)="Errors determined by the remote system are contained in the MSA segment of the "
^DD(778,.21,21,3,0)="response message."
^DD(778,.21,"DT")="3040928"
^DD(778,1,0)="HDR SEGMENT,COMPONENTS 1-6^RF^^1;E1,250^K:$L(X)>250!($L(X)<8) X"
^DD(778,1,3)="The first 6 components of the message header segment."
^DD(778,1,"DT")="3040729"
^DD(778,2,0)="HDR SEGMENT,COMPONENTS 7-END^RF^^2;E1,250^K:$L(X)>250!($L(X)<15) X"
^DD(778,2,3)="Enter the header segment begining with component 7"
^DD(778,2,"DT")="3041116"
^DD(778,3,0)="MSH SEGMENTS FOR BATCH^778.03A^^3;0"
^DD(778,4.01,0)="DATE/TIME OF ACCEPT ACK^D^^4;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(778,4.01,3)="Enter the date and time of the ack."
^DD(778,4.01,21,0)="^^1^1^3040928^^"
^DD(778,4.01,21,1,0)="This field will be used to record the accept ack."
^DD(778,4.01,"DT")="3040928"
^DD(778,4.02,0)="ACCEPT ACK MESSAGE ID^F^^4;2^K:$L(X)>30!($L(X)<1) X"
^DD(778,4.02,3)="Answer must be 1-30 characters in length."
^DD(778,4.02,"DT")="3040928"
^DD(778,4.03,0)="ACCEPT ACK MSA SEGMENT^F^^4;3^K:$L(X)>210!($L(X)<3) X"
^DD(778,4.03,3)="Answer must be 3-210 characters in length."
^DD(778,4.03,"DT")="3040928"
^DD(778,5,0)="TRANMISSION ATTEMPTS^NJ8,0^^TRIES;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(778,5,3)="How many times has HLO tried to transmit this message?"
^DD(778,5,21,0)="^^3^3^3070314^"
^DD(778,5,21,1,0)="For outgoing messages, this field is a counter of how many times HLO"
^DD(778,5,21,2,0)="attempted to send this message."
^DD(778,5,21,3,0)=""
^DD(778,5,"DT")="3070314"
^DD(778,5.01,0)="SEQUENCE QUEUE^F^^5;1^K:$L(X)>30!($L(X)<3) X"
^DD(778,5.01,3)="Enter the name of the sequence queue to place the message on, 3-30 characters."
^DD(778,5.01,21,0)="^^10^10^3070625^"
^DD(778,5.01,21,1,0)="Applications may have difficulty insuring that messages are received by"
^DD(778,5.01,21,2,0)="the remote application in the same order that the sending application "
^DD(778,5.01,21,3,0)="generates the messages.  If an application determines that maintaining"
^DD(778,5.01,21,4,0)="the order of its messages is necessary, one method it may use it to specify"
^DD(778,5.01,21,5,0)="that 1) Application acknowledgemnts are needed  and 2) that the messages"
^DD(778,5.01,21,6,0)="should be placed on a sequence queue.   Messages that are placed on a"
^DD(778,5.01,21,7,0)="particular sequence queue are not moved to the outgoing queue for transmission "
^DD(778,5.01,21,8,0)="until the application acknolwedgment for the preceding message is received."
^DD(778,5.01,21,9,0)="This guarantees the order of delivery."
^DD(778,5.01,21,10,0)=""
^DD(778,5.01,"DT")="3070730"
^DD(778,5.02,0)="MOVED TO OUT QUEUE^S^1:YES;^5;2^Q"
^DD(778,5.02,3)="Enter YES if the message has been moved from a sequence queue to an outgoing queue."
^DD(778,5.02,"DT")="3070625"
^DD(778,5.03,0)="SEQUENCING EXCEPTION RAISED^S^1:YES;^5;3^Q"
^DD(778,5.03,3)="Enter YES if the application ack is delayed, preventing the quence queue from moving."
^DD(778,5.03,"DT")="3070625"
^DD(778,"B","ACCEPT ACK MESSAGE ID",4.02)=""
^DD(778,"B","ACCEPT ACK MSA SEGMENT",4.03)=""
^DD(778,"B","ACCEPT ACK RESPNS RTN",.13)=""
^DD(778,"B","ACCEPT ACK RSPNS TAG",.12)=""
^DD(778,"B","ACCEPT ACK'D",.17)=""
^DD(778,"B","APPLICATION ACK RSPNS RTN",.11)=""
^DD(778,"B","APPLICATION ACK RSPNS TAG",.1)=""
^DD(778,"B","APPLICATION ACK'D",.18)=""
^DD(778,"B","APPLICATION ACKNOWLEDGMENT BY",.07)=""
^DD(778,"B","APPLICATION ACKNOWLEDGMENT TO",.03)=""
^DD(778,"B","APPLICATION HANDOFF",.19)=""
^DD(778,"B","COMPLETION STATUS",.2)=""
^DD(778,"B","DATE/TIME OF ACCEPT ACK",4.01)=""
^DD(778,"B","DIRECTION",.04)=""
^DD(778,"B","ERROR TEXT",.21)=""
^DD(778,"B","HDR SEGMENT,COMPONENTS 1-6",1)=""
^DD(778,"B","HDR SEGMENT,COMPONENTS 7-END",2)=""
^DD(778,"B","LINK",.05)=""
^DD(778,"B","MESSAGE BODY",.02)=""
^DD(778,"B","MESSAGE ID",.01)=""
^DD(778,"B","MOVED TO OUT QUEUE",5.02)=""
^DD(778,"B","MSH SEGMENTS FOR BATCH",3)=""
^DD(778,"B","QUEUE",.06)=""
^DD(778,"B","REMOTE PORT",.08)=""
^DD(778,"B","SCHEDULED PURGE DATE/TIME",.09)=""
^DD(778,"B","SEQUENCE QUEUE",5.01)=""
^DD(778,"B","SEQUENCING EXCEPTION RAISED",5.03)=""
^DD(778,"B","TRANMISSION ATTEMPTS",5)=""
^DD(778,"B","TRANSMISSION DATE/TIME",.16)=""
^DD(778,"B","TRANSMISSION FAILURE RSPNS RTN",.15)=""
^DD(778,"B","TRANSMISSION FAILURE RSPNS TAG",.14)=""
^DD(778,"GL",0,1,.01)=""
^DD(778,"GL",0,2,.02)=""
^DD(778,"GL",0,3,.03)=""
^DD(778,"GL",0,4,.04)=""
^DD(778,"GL",0,5,.05)=""
^DD(778,"GL",0,6,.06)=""
^DD(778,"GL",0,7,.07)=""
^DD(778,"GL",0,8,.08)=""
^DD(778,"GL",0,9,.09)=""
^DD(778,"GL",0,10,.1)=""
^DD(778,"GL",0,11,.11)=""
^DD(778,"GL",0,12,.12)=""
^DD(778,"GL",0,13,.13)=""
^DD(778,"GL",0,14,.14)=""
^DD(778,"GL",0,15,.15)=""
^DD(778,"GL",0,16,.16)=""
^DD(778,"GL",0,17,.17)=""
^DD(778,"GL",0,18,.18)=""
^DD(778,"GL",0,19,.19)=""
^DD(778,"GL",0,20,.2)=""
^DD(778,"GL",0,21,.21)=""
^DD(778,"GL",1,"E1,250",1)=""
^DD(778,"GL",2,"E1,250",2)=""
^DD(778,"GL",3,0,3)=""
^DD(778,"GL",4,1,4.01)=""
^DD(778,"GL",4,2,4.02)=""
^DD(778,"GL",4,3,4.03)=""
^DD(778,"GL",5,1,5.01)=""
^DD(778,"GL",5,2,5.02)=""
^DD(778,"GL",5,3,5.03)=""
^DD(778,"GL","TRIES",1,5)=""
^DD(778,"IX",.01)=""
^DD(778,"IX",.02)=""
^DD(778,"IX",.09)=""
^DD(778,"RQ",.01)=""
^DD(778,"RQ",.02)=""
^DD(778,"RQ",.04)=""
^DD(778,"RQ",.05)=""
^DD(778,"RQ",1)=""
^DD(778,"RQ",2)=""
^DD(778,"SB",778.03,3)=""
^DD(778.03,0)="MSH SEGMENTS FOR BATCH SUB-FIELD^^2^7"
^DD(778.03,0,"DT")="3070710"
^DD(778.03,0,"IX","B",778.03,.01)=""
^DD(778.03,0,"NM","MSH SEGMENTS FOR BATCH")=""
^DD(778.03,0,"UP")="778"
^DD(778.03,.01,0)="MESSAGE IN BATCH^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(778.03,.01,1,0)="^.1"
^DD(778.03,.01,1,1,0)="778.03^B"
^DD(778.03,.01,1,1,1)="S ^HLB(DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(778.03,.01,1,1,2)="K ^HLB(DA(1),3,""B"",$E(X,1,30),DA)"
^DD(778.03,.01,3)="Enter a number to sequence each message within the batch, starting with 1,2,3,...etc."
^DD(778.03,.01,"DT")="3040726"
^DD(778.03,.02,0)="MESSAGE ID^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(778.03,.02,1,0)="^.1"
^DD(778.03,.02,1,1,0)="778^AE^MUMPS"
^DD(778.03,.02,1,1,1)="Q"
^DD(778.03,.02,1,1,2)="Q"
^DD(778.03,.02,1,1,"%D",0)="^.101^5^5^3041006^^"
^DD(778.03,.02,1,1,"%D",1,0)="This cross-reference is maintained outside of Fileman. It is for finding"
^DD(778.03,.02,1,1,"%D",2,0)="individual messages within a batch using the individual Message Control ID."
^DD(778.03,.02,1,1,"%D",3,0)="Its format is:"
^DD(778.03,.02,1,1,"%D",4,0)=""
^DD(778.03,.02,1,1,"%D",5,0)="""AE"",<Message Control ID>,<ien, file 778>^<subien>)="""""
^DD(778.03,.02,1,1,"DT")="3041006"
^DD(778.03,.02,3)="Answer must be 1-30 characters in length."
^DD(778.03,.02,"DT")="3041006"
^DD(778.03,.03,0)="APPLICATION ACKNOWLEDGMENT TO^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(778.03,.03,3)="Enter the Message Control ID of the message to which this one is a response."
^DD(778.03,.03,21,0)="^^1^1^3040928^"
^DD(778.03,.03,21,1,0)="This field is completed only if this message is an application acknowledgment."
^DD(778.03,.03,"DT")="3040928"
^DD(778.03,.04,0)="APPLICATION ACKNOWLEDGMENT BY^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(778.03,.04,3)=" Enter the Message Control ID of the application response."
^DD(778.03,.04,"DT")="3040929"
^DD(778.03,.05,0)="COMPLETION STATUS^S^SU:SUCCESS;AE:(obsolete) application error;ER:ERROR;^0;5^Q"
^DD(778.03,.05,3)="Enter only if an application acknowledgment is received. SU is for successfully completed messages, ER if an error is returned."
^DD(778.03,.05,"DT")="3070710"
^DD(778.03,1,0)="MSH SEGMENT, COMPONENTS 1-6^RF^^1;E1,250^K:$L(X)>250!($L(X)<8) X"
^DD(778.03,1,3)="Answer must be 8-250 characters in length."
^DD(778.03,1,"DT")="3040729"
^DD(778.03,2,0)="MSH SEGMENT, COMPONENTS 7-END^F^^2;E1,250^K:$L(X)>250!($L(X)<15) X"
^DD(778.03,2,3)="Answer must be 15-250 characters in length."
^DD(778.03,2,"DT")="3040729"
^DD(778.03,"B","APPLICATION ACKNOWLEDGMENT BY",.04)=""
^DD(778.03,"B","APPLICATION ACKNOWLEDGMENT TO",.03)=""
^DD(778.03,"B","COMPLETION STATUS",.05)=""
^DD(778.03,"B","MESSAGE ID",.02)=""
^DD(778.03,"B","MESSAGE IN BATCH",.01)=""
^DD(778.03,"B","MSH SEGMENT, COMPONENTS 1-6",1)=""
^DD(778.03,"B","MSH SEGMENT, COMPONENTS 7-END",2)=""
^DD(778.03,"GL",0,1,.01)=""
^DD(778.03,"GL",0,2,.02)=""
^DD(778.03,"GL",0,3,.03)=""
^DD(778.03,"GL",0,4,.04)=""
^DD(778.03,"GL",0,5,.05)=""
^DD(778.03,"GL",1,"E1,250",1)=""
^DD(778.03,"GL",2,"E1,250",2)=""
^DD(778.03,"IX",.01)=""
^DD(778.03,"IX",.02)=""
^DD(778.03,"RQ",.02)=""
^DD(778.03,"RQ",1)=""
^DD(779.001,0)="FIELD^^100^3"
^DD(779.001,0,"DDA")="N"
^DD(779.001,0,"DT")="3030205"
^DD(779.001,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(779.001,0,"IX","B",779.001,.01)=""
^DD(779.001,0,"NM","HL7 EVENT TYPE CODE")=""
^DD(779.001,0,"PT",79.721,.01)=""
^DD(779.001,0,"PT",101,770.4)=""
^DD(779.001,0,"PT",391.72,.03)=""
^DD(779.001,0,"PT",403.43,.04)=""
^DD(779.001,0,"PT",577,.02)=""
^DD(779.001,0,"PT",773,16)=""
^DD(779.001,0,"VR")="1.6"
^DD(779.001,0,"VRPK")="HL"
^DD(779.001,.01,0)="CODE^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(779.001,.01,1,0)="^.1"
^DD(779.001,.01,1,1,0)="779.001^B"
^DD(779.001,.01,1,1,1)="S ^HL(779.001,""B"",$E(X,1,30),DA)="""""
^DD(779.001,.01,1,1,2)="K ^HL(779.001,""B"",$E(X,1,30),DA)"
^DD(779.001,.01,3)="Enter the 3 character code for the event"
^DD(779.001,.01,"DT")="2940722"
^DD(779.001,2,0)="DESCRIPTION^RF^^0;2^K:$L(X)>200!($L(X)<3) X"
^DD(779.001,2,3)="Answer must be 3-200 characters in length"
^DD(779.001,2,"DT")="3030205"
^DD(779.001,100,0)="VERSION^779.0101P^^1;0"
^DD(779.001,"B","CODE",.01)=""
^DD(779.001,"B","DESCRIPTION",2)=""
^DD(779.001,"B","VERSION",100)=""
^DD(779.001,"GL",0,1,.01)=""
^DD(779.001,"GL",0,2,2)=""
^DD(779.001,"GL",1,0,100)=""
^DD(779.001,"IX",.01)=""
^DD(779.001,"RQ",.01)=""
^DD(779.001,"RQ",2)=""
^DD(779.001,"SB",779.0101,100)=""
^DD(779.002,0)="FIELD^^100^3"
^DD(779.002,0,"DDA")="N"
^DD(779.002,0,"DT")="2940722"
^DD(779.002,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(779.002,0,"IX","B",779.002,.01)=""
^DD(779.002,0,"NM","HL7 ACKNOWLEDGEMENT CODE")=""
^DD(779.002,0,"VR")="1.6"
^DD(779.002,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(779.002,.01,1,0)="^.1"
^DD(779.002,.01,1,1,0)="779.002^B"
^DD(779.002,.01,1,1,1)="S ^HL(779.002,""B"",$E(X,1,30),DA)="""""
^DD(779.002,.01,1,1,2)="K ^HL(779.002,""B"",$E(X,1,30),DA)"
^DD(779.002,.01,3)="Enter the 2 character code."
^DD(779.002,.01,21,0)="^^1^1^2941018^"
^DD(779.002,.01,21,1,0)="This is a 2 character code for the ACK"
^DD(779.002,.01,"DT")="2940722"
^DD(779.002,2,0)="DESCRIPTION^RF^^0;2^K:$L(X)>100!($L(X)<3) X"
^DD(779.002,2,3)="Enter a description for the ACK code (3-100 characters)"
^DD(779.002,2,21,0)="^^1^1^2941018^"
^DD(779.002,2,21,1,0)="Description of the code"
^DD(779.002,2,"DT")="2940722"
^DD(779.002,100,0)="VERSION^779.00201P^^1;0"
^DD(779.002,"B","CODE",.01)=""
^DD(779.002,"B","DESCRIPTION",2)=""
^DD(779.002,"B","VERSION",100)=""
^DD(779.002,"GL",0,1,.01)=""
^DD(779.002,"GL",0,2,2)=""
^DD(779.002,"GL",1,0,100)=""
^DD(779.002,"IX",.01)=""
^DD(779.002,"RQ",.01)=""
^DD(779.002,"RQ",2)=""
^DD(779.002,"SB",779.00201,100)=""
^DD(779.00201,0)="VERSION SUB-FIELD^^.01^1"
^DD(779.00201,0,"DT")="2940722"
^DD(779.00201,0,"IX","B",779.00201,.01)=""
^DD(779.00201,0,"NM","VERSION")=""
^DD(779.00201,0,"UP")="779.002"
^DD(779.00201,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(779.00201,.01,1,0)="^.1"
^DD(779.00201,.01,1,1,0)="779.00201^B"
^DD(779.00201,.01,1,1,1)="S ^HL(779.002,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(779.00201,.01,1,1,2)="K ^HL(779.002,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(779.00201,.01,3)="The version(s) of the standard in which this acknowledgement code is used."
^DD(779.00201,.01,"DT")="2940722"
^DD(779.00201,"B","VERSION",.01)=""
^DD(779.00201,"GL",0,1,.01)=""
^DD(779.00201,"IX",.01)=""
^DD(779.00201,"RQ",.01)=""
^DD(779.003,0)="FIELD^^100^3"
^DD(779.003,0,"DDA")="N"
^DD(779.003,0,"DT")="2940928"
^DD(779.003,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(779.003,0,"IX","B",779.003,.01)=""
^DD(779.003,0,"NM","HL7 ACCEPT/APPLICATION ACK CONDITION")=""
^DD(779.003,0,"PT",101,770.8)=""
^DD(779.003,0,"PT",101,770.9)=""
^DD(779.003,0,"VR")="1.6"
^DD(779.003,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(779.003,.01,1,0)="^.1"
^DD(779.003,.01,1,1,0)="779.003^B"
^DD(779.003,.01,1,1,1)="S ^HL(779.003,""B"",$E(X,1,30),DA)="""""
^DD(779.003,.01,1,1,2)="K ^HL(779.003,""B"",$E(X,1,30),DA)"
^DD(779.003,.01,3)="Enter the 1-2 character code for this ACK."
^DD(779.003,.01,"DT")="2940928"
^DD(779.003,2,0)="DESCRIPTION^RF^^0;2^K:$L(X)>100!($L(X)<3) X"
^DD(779.003,2,3)="Enter the description for this code (3-100 characters)"
^DD(779.003,2,"DT")="2940928"
^DD(779.003,100,0)="VERSION^779.00301P^^1;0"
^DD(779.003,"B","CODE",.01)=""
^DD(779.003,"B","DESCRIPTION",2)=""
^DD(779.003,"B","VERSION",100)=""
^DD(779.003,"GL",0,1,.01)=""
^DD(779.003,"GL",0,2,2)=""
^DD(779.003,"GL",1,0,100)=""
^DD(779.003,"IX",.01)=""
^DD(779.003,"RQ",.01)=""
^DD(779.003,"RQ",2)=""
^DD(779.003,"SB",779.00301,100)=""
^DD(779.00301,0)="VERSION SUB-FIELD^^.01^1"
^DD(779.00301,0,"DT")="2940928"
^DD(779.00301,0,"IX","B",779.00301,.01)=""
^DD(779.00301,0,"NM","VERSION")=""
^DD(779.00301,0,"UP")="779.003"
^DD(779.00301,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(779.00301,.01,1,0)="^.1"
^DD(779.00301,.01,1,1,0)="779.00301^B"
^DD(779.00301,.01,1,1,1)="S ^HL(779.003,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(779.00301,.01,1,1,2)="K ^HL(779.003,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(779.00301,.01,3)="The version(s) of the standard in which this code is used."
^DD(779.00301,.01,"DT")="2940928"
^DD(779.00301,"B","VERSION",.01)=""
^DD(779.00301,"GL",0,1,.01)=""
^DD(779.00301,"IX",.01)=""
^DD(779.00301,"RQ",.01)=""
^DD(779.004,0)="FIELD^^100^9"
^DD(779.004,0,"DDA")="N"
^DD(779.004,0,"DT")="3060111"
^DD(779.004,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(779.004,0,"IX","AVUID",779.004,99.99)=""
^DD(779.004,0,"IX","B",779.004,.01)=""
^DD(779.004,0,"IX","C",779.004,1.3)=""
^DD(779.004,0,"IX","D",779.004,2)=""
^DD(779.004,0,"NM","COUNTRY CODE")=""
^DD(779.004,0,"PT",771,7)=""
^DD(779.004,0,"PT",775,17)=""
^DD(779.004,0,"VR")="1.6"
^DD(779.004,0,"VRPK")="HL"
^DD(779.004,.01,0)="CODE^RF^^0;1^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(779.004,.01,1,0)="^.1"
^DD(779.004,.01,1,1,0)="779.004^B"
^DD(779.004,.01,1,1,1)="S ^HL(779.004,""B"",$E(X,1,30),DA)="""""
^DD(779.004,.01,1,1,2)="K ^HL(779.004,""B"",$E(X,1,30),DA)"
^DD(779.004,.01,3)="The code for the country.  Answer must be 1-3 characters in length."
^DD(779.004,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(779.004,.01,9)="^"
^DD(779.004,.01,21,0)="^^3^3^3060222^"
^DD(779.004,.01,21,1,0)="The three-character alpha identifying code."
^DD(779.004,.01,21,2,0)=" "
^DD(779.004,.01,21,3,0)="The alpha 3 code for the USA is ""USA""."
^DD(779.004,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(779.004,.01,"DT")="3060111"
^DD(779.004,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(779.004,1.1,0)="NUMERIC CODE^RF^^SDS;1^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(779.004,1.1,3)="Answer must be 3 numeric digits."
^DD(779.004,1.1,21,0)="^.001^3^3^3060111^^"
^DD(779.004,1.1,21,1,0)="The three-digit numeric identifying code."
^DD(779.004,1.1,21,2,0)=" "
^DD(779.004,1.1,21,3,0)="The numeric code for the USA is ""840""."
^DD(779.004,1.1,"DT")="3060111"
^DD(779.004,1.2,0)="FIPS CODE^RF^^SDS;2^K:$L(X)>2!($L(X)<2)!'(X?2A) X"
^DD(779.004,1.2,3)="Answer must be 2 characters in length."
^DD(779.004,1.2,21,0)="^^3^3^3060111^"
^DD(779.004,1.2,21,1,0)="The code assigned to this nation by US Government standard FIPS 10-4."
^DD(779.004,1.2,21,2,0)=" "
^DD(779.004,1.2,21,3,0)="The FIPS code for the USA is ""US""."
^DD(779.004,1.2,"DT")="3060111"
^DD(779.004,1.3,0)="POSTAL NAME^F^^SDS;3^K:$L(X)>100!($L(X)<3) X"
^DD(779.004,1.3,1,0)="^.1"
^DD(779.004,1.3,1,1,0)="779.004^C"
^DD(779.004,1.3,1,1,1)="S ^HL(779.004,""C"",$E(X,1,30),DA)="""""
^DD(779.004,1.3,1,1,2)="K ^HL(779.004,""C"",$E(X,1,30),DA)"
^DD(779.004,1.3,1,1,"DT")="3060126"
^DD(779.004,1.3,3)="Answer must be 3-100 characters in length."
^DD(779.004,1.3,21,0)="^.001^2^2^3060126^^"
^DD(779.004,1.3,21,1,0)="The name used as the destination country for mail sent from the United"
^DD(779.004,1.3,21,2,0)="States to this country."
^DD(779.004,1.3,"DT")="3060126"
^DD(779.004,2,0)="DESCRIPTION^RF^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(779.004,2,1,0)="^.1"
^DD(779.004,2,1,1,0)="779.004^D^MUMPS"
^DD(779.004,2,1,1,1)="S ^HL(779.004,""D"",$E($$UP^XLFSTR(X),1,30),DA)="""""
^DD(779.004,2,1,1,2)="K ^HL(779.004,""D"",$E($$UP^XLFSTR(X),1,30),DA)"
^DD(779.004,2,1,1,"DT")="3060228"
^DD(779.004,2,3)="The name of the country.  Answer must be 1-100 characters in length."
^DD(779.004,2,9)="^"
^DD(779.004,2,"DT")="3060228"
^DD(779.004,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(779.004,99.98,9)="^"
^DD(779.004,99.98,21,0)="^^2^2^3050210^"
^DD(779.004,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(779.004,99.98,21,2,0)="Term/Concept."
^DD(779.004,99.98,"DT")="3060111"
^DD(779.004,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(779.004,99.99,1,0)="^.1"
^DD(779.004,99.99,1,1,0)="779.004^AVUID"
^DD(779.004,99.99,1,1,1)="S ^HL(779.004,""AVUID"",$E(X,1,30),DA)="""""
^DD(779.004,99.99,1,1,2)="K ^HL(779.004,""AVUID"",$E(X,1,30),DA)"
^DD(779.004,99.99,1,1,3)="This cross-reference is by VUID."
^DD(779.004,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(779.004,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(779.004,99.99,1,1,"DT")="3041223"
^DD(779.004,99.99,3)="Answer must be 1-20 digits in length."
^DD(779.004,99.99,9)="^"
^DD(779.004,99.99,21,0)="^.001^2^2^3050210^^"
^DD(779.004,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(779.004,99.99,21,2,0)="terms VHA wide."
^DD(779.004,99.99,"DT")="3060111"
^DD(779.004,99.991,0)="EFFECTIVE DATE/TIME^779.00409DA^^TERMSTATUS;0"
^DD(779.004,99.991,9)="^"
^DD(779.004,99.991,21,0)="^^1^1^3050201^"
^DD(779.004,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(779.004,99.991,"DT")="3060111"
^DD(779.004,100,0)="VERSION^779.00401P^^1;0"
^DD(779.004,100,9)="^"
^DD(779.004,"B","CODE",.01)=""
^DD(779.004,"B","DESCRIPTION",2)=""
^DD(779.004,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(779.004,"B","FIPS CODE",1.2)=""
^DD(779.004,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(779.004,"B","NUMERIC CODE",1.1)=""
^DD(779.004,"B","POSTAL NAME",1.3)=""
^DD(779.004,"B","VERSION",100)=""
^DD(779.004,"B","VUID",99.99)=""
^DD(779.004,"GL",0,1,.01)=""
^DD(779.004,"GL",0,2,2)=""
^DD(779.004,"GL",1,0,100)=""
^DD(779.004,"GL","SDS",1,1.1)=""
^DD(779.004,"GL","SDS",2,1.2)=""
^DD(779.004,"GL","SDS",3,1.3)=""
^DD(779.004,"GL","TERMSTATUS",0,99.991)=""
^DD(779.004,"GL","VUID",1,99.99)=""
^DD(779.004,"GL","VUID",2,99.98)=""
^DD(779.004,"IX",.01)=""
^DD(779.004,"IX",1.3)=""
^DD(779.004,"IX",2)=""
^DD(779.004,"IX",99.99)=""
^DD(779.004,"RQ",.01)=""
^DD(779.004,"RQ",1.1)=""
^DD(779.004,"RQ",1.2)=""
^DD(779.004,"RQ",2)=""
^DD(779.004,"RQ",99.98)=""
^DD(779.004,"RQ",99.99)=""
^DD(779.004,"SB",779.00401,100)=""
^DD(779.004,"SB",779.00409,99.991)=""
^DD(779.00401,0)="VERSION SUB-FIELD^^.01^1"
^DD(779.00401,0,"DT")="2940928"
^DD(779.00401,0,"IX","B",779.00401,.01)=""
^DD(779.00401,0,"NM","VERSION")=""
^DD(779.00401,0,"UP")="779.004"
^DD(779.00401,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(779.00401,.01,1,0)="^.1"
^DD(779.00401,.01,1,1,0)="779.00401^B"
^DD(779.00401,.01,1,1,1)="S ^HL(779.004,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(779.00401,.01,1,1,2)="K ^HL(779.004,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(779.00401,.01,3)="The version(s) of the standard in which this country code is used."
^DD(779.00401,.01,9)="^"
^DD(779.00401,.01,"DT")="2940928"
^DD(779.00401,"B","VERSION",.01)=""
^DD(779.00401,"GL",0,1,.01)=""
^DD(779.00401,"IX",.01)=""
^DD(779.00401,"RQ",.01)=""
^DD(779.00409,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(779.00409,0,"DT")="3050201"
^DD(779.00409,0,"IX","B",779.00409,.01)=""
^DD(779.00409,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(779.00409,0,"UP")="779.004"
^DD(779.00409,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(779.00409,.01,1,0)="^.1"
^DD(779.00409,.01,1,1,0)="779.00409^B"
^DD(779.00409,.01,1,1,1)="S ^HL(779.004,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(779.00409,.01,1,1,2)="K ^HL(779.004,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(779.00409,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(779.00409,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(779.00409,.01,9)="^"
^DD(779.00409,.01,21,0)="^^2^2^3050201^"
^DD(779.00409,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(779.00409,.01,21,2,0)="established."
^DD(779.00409,.01,"DT")="3060111"
^DD(779.00409,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(779.00409,.02,9)="^"
^DD(779.00409,.02,21,0)="^^4^4^3050201^"
^DD(779.00409,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(779.00409,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(779.00409,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(779.00409,.02,21,4,0)="accessible by the application to display legacy data."
^DD(779.00409,.02,"DT")="3060111"
^DD(779.00409,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(779.00409,"B","STATUS",.02)=""
^DD(779.00409,"GL",0,1,.01)=""
^DD(779.00409,"GL",0,2,.02)=""
^DD(779.00409,"IX",.01)=""
^DD(779.00409,"RQ",.01)=""
^DD(779.00409,"RQ",.02)=""
^DD(779.005,0)="FIELD^^3^3"
^DD(779.005,0,"DDA")="N"
^DD(779.005,0,"DT")="3000113"
^DD(779.005,0,"IX","B",779.005,.01)=""
^DD(779.005,0,"NM","HL7 MESSAGE STRUCTURE CODE")=""
^DD(779.005,0,"PT",101,770.5)=""
^DD(779.005,0,"VR")="1.6"
^DD(779.005,0,"VRPK")="HL"
^DD(779.005,.01,0)="CODE^RF^^0;1^K:$L(X)>10!($L(X)<3)!'(X'?1P.E) X"
^DD(779.005,.01,1,0)="^.1"
^DD(779.005,.01,1,1,0)="779.005^B"
^DD(779.005,.01,1,1,1)="S ^HL(779.005,""B"",$E(X,1,30),DA)="""""
^DD(779.005,.01,1,1,2)="K ^HL(779.005,""B"",$E(X,1,30),DA)"
^DD(779.005,.01,3)="Enter the message structure code.  Answer must be 3-10 characters in length."
^DD(779.005,.01,21,0)="^^2^2^3000113^^^"
^DD(779.005,.01,21,1,0)="This is the abstract message structure code defined by HL7 Table 0354 -"
^DD(779.005,.01,21,2,0)="Message Structure, which is the third component in MSH-9-message type."
^DD(779.005,.01,"DT")="3000113"
^DD(779.005,2,0)="DESCRIPTION^RF^^0;2^K:$L(X)>200!($L(X)<3) X"
^DD(779.005,2,3)="Answer must be 3-200 characters in length."
^DD(779.005,2,21,0)="^^2^2^3000113^"
^DD(779.005,2,21,1,0)="List the various HL7 trigger events that use the particular abstract"
^DD(779.005,2,21,2,0)="message structure definition."
^DD(779.005,2,"DT")="3000113"
^DD(779.005,3,0)="VERSION^779.0053P^^1;0"
^DD(779.005,"B","CODE",.01)=""
^DD(779.005,"B","DESCRIPTION",2)=""
^DD(779.005,"B","VERSION",3)=""
^DD(779.005,"GL",0,1,.01)=""
^DD(779.005,"GL",0,2,2)=""
^DD(779.005,"GL",1,0,3)=""
^DD(779.005,"IX",.01)=""
^DD(779.005,"RQ",.01)=""
^DD(779.005,"RQ",2)=""
^DD(779.005,"SB",779.0053,3)=""
^DD(779.0053,0)="VERSION SUB-FIELD^^.01^1"
^DD(779.0053,0,"DT")="3000113"
^DD(779.0053,0,"IX","B",779.0053,.01)=""
^DD(779.0053,0,"NM","VERSION")=""
^DD(779.0053,0,"UP")="779.005"
^DD(779.0053,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(779.0053,.01,1,0)="^.1"
^DD(779.0053,.01,1,1,0)="779.0053^B"
^DD(779.0053,.01,1,1,1)="S ^HL(779.005,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(779.0053,.01,1,1,2)="K ^HL(779.005,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(779.0053,.01,3)="The version(s) of the standard in which this message structure code is used."
^DD(779.0053,.01,"DT")="3000113"
^DD(779.0053,"B","VERSION",.01)=""
^DD(779.0053,"GL",0,1,.01)=""
^DD(779.0053,"IX",.01)=""
^DD(779.0053,"RQ",.01)=""
^DD(779.0101,0)="VERSION SUB-FIELD^^.01^1"
^DD(779.0101,0,"DT")="2940722"
^DD(779.0101,0,"IX","B",779.0101,.01)=""
^DD(779.0101,0,"NM","VERSION")=""
^DD(779.0101,0,"UP")="779.001"
^DD(779.0101,.01,0)="VERSION^RP771.5'^HL(771.5,^0;1^Q"
^DD(779.0101,.01,1,0)="^.1"
^DD(779.0101,.01,1,1,0)="779.0101^B"
^DD(779.0101,.01,1,1,1)="S ^HL(779.001,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(779.0101,.01,1,1,2)="K ^HL(779.001,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(779.0101,.01,3)="The version(s) of the standard in which this event type code is used."
^DD(779.0101,.01,"DT")="2940722"
^DD(779.0101,"B","VERSION",.01)=""
^DD(779.0101,"GL",0,1,.01)=""
^DD(779.0101,"IX",.01)=""
^DD(779.0101,"RQ",.01)=""
^DD(779.1,0)="FIELD^^.1^10"
^DD(779.1,0,"DDA")="N"
^DD(779.1,0,"DT")="3050601"
^DD(779.1,0,"IX","B",779.1,.01)=""
^DD(779.1,0,"NM","HLO SYSTEM PARAMETERS")=""
^DD(779.1,0,"VR")="1.6"
^DD(779.1,0,"VRPK")="HL"
^DD(779.1,.01,0)="DOMAIN NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(779.1,.01,1,0)="^.1"
^DD(779.1,.01,1,1,0)="779.1^B"
^DD(779.1,.01,1,1,1)="S ^HLD(779.1,""B"",$E(X,1,60),DA)="""""
^DD(779.1,.01,1,1,2)="K ^HLD(779.1,""B"",$E(X,1,60),DA)"
^DD(779.1,.01,3)="The domain name for this system.  It will be used to populate component 2 of the Sending Facility field of the HL7 message header."
^DD(779.1,.01,21,0)="^^2^2^3040805^"
^DD(779.1,.01,21,1,0)="The domain name for this system.  It will be used to populate component 2"
^DD(779.1,.01,21,2,0)="of the Sending Facility field of the HL7 message headers."
^DD(779.1,.01,"DT")="3040805"
^DD(779.1,.02,0)="STATION NUMBER^F^^0;2^K:$L(X)>7!($L(X)<3) X"
^DD(779.1,.02,3)="Enter the station number with suffix that this system belongs under.  It will be used in component 1 of the Sending Facility field of the HL7 message header."
^DD(779.1,.02,"DT")="3040805"
^DD(779.1,.03,0)="PRODUCTION ID^RS^P:production;T:training;^0;3^Q"
^DD(779.1,.03,3)="ENTER P if this is a production system, T otherwise."
^DD(779.1,.03,"DT")="3040805"
^DD(779.1,.04,0)="MAXIMUM STRING LENGTH^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(779.1,.04,3)="This is the maximum length for strings built by HLO when local applications create new messages to send."
^DD(779.1,.04,21,0)="^^4^4^3050706^"
^DD(779.1,.04,21,1,0)="This parameter determines the maximum length for strings that HLO will create"
^DD(779.1,.04,21,2,0)="when messages are being built.  It doesn't apply to servers, as the size of"
^DD(779.1,.04,21,3,0)="input buffer used by TCP/IP determines the maximum string length created by a"
^DD(779.1,.04,21,4,0)="single read."
^DD(779.1,.04,"DT")="3050706"
^DD(779.1,.05,0)="BUFFER SIZE FOR HL7 (BYTES)^NJ5,0^^0;5^K:+X'=X!(X>20000)!(X<10000)!(X?.E1"".""1.N) X"
^DD(779.1,.05,3)="This parameter represents the size of the buffer used by HLO for its background processes.  It defaults to 15000 bytes, but may be set from 10,000 bytes to 20,000 bytes."
^DD(779.1,.05,"DT")="3050805"
^DD(779.1,.06,0)="BUFFER SIZE FOR USER (BYTES)^NJ5,0^^0;6^K:+X'=X!(X>10000)!(X<512)!(X?.E1"".""1.N) X"
^DD(779.1,.06,3)="This parameter is the size of the buffer used by HLO in the context of an online user.  It defaults to 5000, but may be reset to between 512 and 10000 bytes."
^DD(779.1,.06,"DT")="3050805"
^DD(779.1,.07,0)="NORMAL MSG RETENTION (HOURS)^NJ2,0^^0;7^K:+X'=X!(X>96)!(X<36)!(X?.E1"".""1.N) X"
^DD(779.1,.07,3)="How many hours should successfully completed messages remain on your system? (36-96 hours, defaults to 36 hours) "
^DD(779.1,.07,21,0)="^^7^7^3050317^^^"
^DD(779.1,.07,21,1,0)="This field controls the purging of HL7 messages whose completion status"
^DD(779.1,.07,21,2,0)="is SUCCESSFUL. It is in hours, since messages normally should be purged "
^DD(779.1,.07,21,3,0)="very soon after completion, with an allowed range of 36 to 94 hours."
^DD(779.1,.07,21,4,0)=" "
^DD(779.1,.07,21,5,0)="36 is the default because this 1) will result in most messages being purged"
^DD(779.1,.07,21,6,0)="at night and 2) provides sufficient time for the Capacity Planning statistics"
^DD(779.1,.07,21,7,0)="to be extracted. "
^DD(779.1,.07,"DT")="3050317"
^DD(779.1,.08,0)="BAD MESSAGE RETENTION (DAYS)^NJ2,0^^0;8^K:+X'=X!(X>45)!(X<5)!(X?.E1"".""1.N) X"
^DD(779.1,.08,3)="How many days should message with errors remain on your system?  (7-45 days, defaults to 7 days)"
^DD(779.1,.08,21,0)="^^4^4^3041115^"
^DD(779.1,.08,21,1,0)="This field controls the purging of HL7 messages that do not complete"
^DD(779.1,.08,21,2,0)="successfully.  The period should be reasonably long to allow"
^DD(779.1,.08,21,3,0)="investigation, but because of the extremely high daily volume of"
^DD(779.1,.08,21,4,0)="messages purging must occur quickly."
^DD(779.1,.08,"DT")="3041115"
^DD(779.1,.09,0)="HLO ON/OFF SWITCH^S^0:OFF;1:ON;^0;9^Q"
^DD(779.1,.09,3)="Set to 0 to turn off messaging and all HL7 processes."
^DD(779.1,.09,"DT")="3050503"
^DD(779.1,.1,0)="HLO STANDARD LISTENER^*P870'^HLCS(870,^0;10^S DIC(""S"")=""I ($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""M"""")!($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""S"""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(779.1,.1,3)="Select an entry from the HL Logical Link file that is the listener that remote applications will normally connect to."
^DD(779.1,.1,12)="This screen allows only server entries to be selected."
^DD(779.1,.1,12.1)="S DIC(""S"")=""I ($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""M"""")!($P($G(^HLCS(870,Y,400)),""""^"""",3)=""""S"""")"""
^DD(779.1,.1,"DT")="3050601"
^DD(779.1,"B","BAD MESSAGE RETENTION (DAYS)",.08)=""
^DD(779.1,"B","BUFFER SIZE FOR HL7 (BYTES)",.05)=""
^DD(779.1,"B","BUFFER SIZE FOR USER (BYTES)",.06)=""
^DD(779.1,"B","DOMAIN NAME",.01)=""
^DD(779.1,"B","HLO ON/OFF SWITCH",.09)=""
^DD(779.1,"B","HLO STANDARD LISTENER",.1)=""
^DD(779.1,"B","MAXIMUM STRING LENGTH",.04)=""
^DD(779.1,"B","NORMAL MSG RETENTION (HOURS)",.07)=""
^DD(779.1,"B","PRODUCTION ID",.03)=""
^DD(779.1,"B","STATION NUMBER",.02)=""
^DD(779.1,"GL",0,1,.01)=""
^DD(779.1,"GL",0,2,.02)=""
^DD(779.1,"GL",0,3,.03)=""
^DD(779.1,"GL",0,4,.04)=""
^DD(779.1,"GL",0,5,.05)=""
^DD(779.1,"GL",0,6,.06)=""
^DD(779.1,"GL",0,7,.07)=""
^DD(779.1,"GL",0,8,.08)=""
^DD(779.1,"GL",0,9,.09)=""
^DD(779.1,"GL",0,10,.1)=""
^DD(779.1,"IX",.01)=""
^DD(779.1,"RQ",.01)=""
^DD(779.1,"RQ",.03)=""
^DD(779.2,0)="FIELD^^.12^14"
^DD(779.2,0,"DDA")="N"
^DD(779.2,0,"DT")="3070726"
^DD(779.2,0,"IX","B",779.2,.01)=""
^DD(779.2,0,"NM","HLO APPLICATION REGISTRY")=""
^DD(779.2,0,"VR")="1.6"
^DD(779.2,0,"VRPK")="HL"
^DD(779.2,.01,0)="APPLICATION NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(779.2,.01,1,0)="^.1"
^DD(779.2,.01,1,1,0)="779.2^B"
^DD(779.2,.01,1,1,1)="S ^HLD(779.2,""B"",$E(X,1,30),DA)="""""
^DD(779.2,.01,1,1,2)="K ^HLD(779.2,""B"",$E(X,1,30),DA)"
^DD(779.2,.01,3)="Answer must be 3-60 characters in length. It must be unique and should be name-spaced."
^DD(779.2,.01,"DT")="3050125"
^DD(779.2,.02,0)="RESPONSE LINK (OPTIONAL)^FX^^0;2^K:'$$CHKLINK^HLOTLNK(X) X"
^DD(779.2,.02,3)="If the return link cannot be identified via the Sending Facility (i.e., sent via an IE), what link should the application ack be sent through?"
^DD(779.2,.02,21,0)="^^5^5^3041116^^"
^DD(779.2,.02,21,1,0)="This field applies only if: 1) The receiving application is expected to "
^DD(779.2,.02,21,2,0)="return application acknowledgments.  2) The initial message is  received "
^DD(779.2,.02,21,3,0)="indirectly through the IE, and the  receiving application in turn does "
^DD(779.2,.02,21,4,0)="not want to send the application acknowledgment directly back to the "
^DD(779.2,.02,21,5,0)="sending facility identified in the message header.  "
^DD(779.2,.02,"DT")="3041116"
^DD(779.2,.03,0)="DEFAULT PRIVATE IN-QUEUE^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(779.2,.03,3)="You may create an optional default private in-queue by entering a unique name up to 20 characters in length. Queues specified for specific message types take precedence."
^DD(779.2,.03,"DT")="3050317"
^DD(779.2,.04,0)="BATCH ACTION TAG^F^^0;4^K:$L(X)>8!($L(X)<1) X"
^DD(779.2,.04,3)="If the application utilizes batch messages, the action to perform upon receipt of the message should be entered in the BATCH ACTION TAG and BATCH ACTION ROUTINE fields as <tag>^<routine>."
^DD(779.2,.04,"DT")="3040814"
^DD(779.2,.05,0)="BATCH ACTION ROUTINE^F^^0;5^K:$L(X)>8!($L(X)<3) X"
^DD(779.2,.05,3)="If the application utilizes batch messages, the action to perform upon receipt of the message should be entered in the BATCH ACTION TAG and BATCH ACTION ROUTINE fields as <tag>^<routine>."
^DD(779.2,.05,"DT")="3040814"
^DD(779.2,.06,0)="DEFAULT ACTION TAG^F^^0;6^K:$L(X)>8!($L(X)<1) X"
^DD(779.2,.06,3)="You can enter the action to perform upon  receipt of a message where no other action applies by entering the DEFAULT ACTION TAG and DEFAULT ACTION ROUTINE fields as <tag>^<routine>. "
^DD(779.2,.06,"DT")="3040815"
^DD(779.2,.07,0)="DEFAULT ACTION ROUTINE^F^^0;7^K:$L(X)>8!($L(X)<3) X"
^DD(779.2,.07,3)="You can enter the action to perform upon receipt of a message where no other action applies by entering the DEFAULT ACTION TAG and DEFAULT ACTION ROUTINE fields as <tag>^<routine>."
^DD(779.2,.07,"DT")="3040814"
^DD(779.2,.08,0)="BATCH PRIVATE IN-QUEUE^F^^0;8^K:$L(X)>20!($L(X)<3) X"
^DD(779.2,.08,3)="You may establish a private queue for your batch messages by entering a unique name (name-spaced) up to 20 characters long."
^DD(779.2,.08,"DT")="3050317"
^DD(779.2,.09,0)="APPLICATION SPECIFIC LISTENER^*P870'X^HLCS(870,^0;9^S DIC(""S"")=""I $P($G(^HLCS(870,Y,400)),""""^"""",3)'="""""""",""""SM""""[$P(^HLCS(870,Y,400),""""^"""",3)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(779.2,.09,3)="If your application requires its own listener (HIGHLY DISCOURAGED), enter it here."
^DD(779.2,.09,12)="The link entered must be a listener."
^DD(779.2,.09,12.1)="S DIC(""S"")=""I $P($G(^HLCS(870,Y,400)),""""^"""",3)'="""""""",""""SM""""[$P(^HLCS(870,Y,400),""""^"""",3)"""
^DD(779.2,.09,21,0)="^^6^6^3050503^"
^DD(779.2,.09,21,1,0)="Applications are highly discouraged from establishing their own listeners.  The"
^DD(779.2,.09,21,2,0)="use of the multi-listeners provide concurrent processing of many connections"
^DD(779.2,.09,21,3,0)="over the same port, so a dedicated listener will not provide an application"
^DD(779.2,.09,21,4,0)="with a performance boost, while it will cause the site additional work to"
^DD(779.2,.09,21,5,0)="maintain. So before establishing a dedicated listener, the application"
^DD(779.2,.09,21,6,0)="developer should verify the need."
^DD(779.2,.09,"DT")="3061120"
^DD(779.2,.1,0)="SEQUENCE EXCEPTION TAG^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^DD(779.2,.1,3)="What is the tag to invoke the sequencing exception routine at?"
^DD(779.2,.1,"DT")="3070705"
^DD(779.2,.11,0)="SEQUENCE EXCEPTION ROUTINE^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^DD(779.2,.11,3)="What routine should be invoked when a sequencing exception is encountered?"
^DD(779.2,.11,"DT")="3070705"
^DD(779.2,.12,0)="SEQUENCING TIMEOUT^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<5)!(X?.E1"".""1.N) X"
^DD(779.2,.12,3)="Enter how long to wait for an applicaiton ack used in sequencing before rasing an exception.  Enter between 5 (minutes) and 9999 (minutes). "
^DD(779.2,.12,"DT")="3070726"
^DD(779.2,1,0)="MESSAGE TYPE ACTIONS^779.21^^1;0"
^DD(779.2,1,21,0)="^^2^2^3070103^^"
^DD(779.2,1,21,1,0)=""
^DD(779.2,1,21,2,0)=""
^DD(779.2,2,0)="Package File Link^RP9.4'^DIC(9.4,^2;1^Q"
^DD(779.2,2,3)="Enter the package responsible for these messages."
^DD(779.2,2,21,0)="^^3^3^3050919^^"
^DD(779.2,2,21,1,0)="This field holds a pointer to the Package File for the Package "
^DD(779.2,2,21,2,0)="responsible for these messages."
^DD(779.2,2,21,3,0)=""
^DD(779.2,2,"DT")="3050919"
^DD(779.2,"B","APPLICATION NAME",.01)=""
^DD(779.2,"B","APPLICATION SPECIFIC LISTENER",.09)=""
^DD(779.2,"B","BATCH ACTION ROUTINE",.05)=""
^DD(779.2,"B","BATCH ACTION TAG",.04)=""
^DD(779.2,"B","BATCH PRIVATE IN-QUEUE",.08)=""
^DD(779.2,"B","DEFAULT ACTION ROUTINE",.07)=""
^DD(779.2,"B","DEFAULT ACTION TAG",.06)=""
^DD(779.2,"B","DEFAULT PRIVATE IN-QUEUE",.03)=""
^DD(779.2,"B","MESSAGE TYPE ACTIONS",1)=""
^DD(779.2,"B","Package File Link",2)=""
^DD(779.2,"B","RESPONSE LINK (OPTIONAL)",.02)=""
^DD(779.2,"B","SEQUENCE EXCEPTION ROUTINE",.11)=""
^DD(779.2,"B","SEQUENCE EXCEPTION TAG",.1)=""
^DD(779.2,"B","SEQUENCING TIMEOUT",.12)=""
^DD(779.2,"GL",0,1,.01)=""
^DD(779.2,"GL",0,2,.02)=""
^DD(779.2,"GL",0,3,.03)=""
^DD(779.2,"GL",0,4,.04)=""
^DD(779.2,"GL",0,5,.05)=""
^DD(779.2,"GL",0,6,.06)=""
^DD(779.2,"GL",0,7,.07)=""
^DD(779.2,"GL",0,8,.08)=""
^DD(779.2,"GL",0,9,.09)=""
^DD(779.2,"GL",0,10,.1)=""
^DD(779.2,"GL",0,11,.11)=""
^DD(779.2,"GL",0,12,.12)=""
^DD(779.2,"GL",1,0,1)=""
^DD(779.2,"GL",2,1,2)=""
^DD(779.2,"IX",.01)=""
^DD(779.2,"RQ",.01)=""
^DD(779.2,"RQ",2)=""
^DD(779.2,"SB",779.21,1)=""
^DD(779.21,0)="MESSAGE TYPE ACTIONS SUB-FIELD^^.07^7"
^DD(779.21,0,"DT")="3060626"
^DD(779.21,0,"IX","B",779.21,.01)=""
^DD(779.21,0,"NM","MESSAGE TYPE ACTIONS")=""
^DD(779.21,0,"UP")="779.2"
^DD(779.21,.01,0)="HL7 MESSAGE TYPE^MF^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(779.21,.01,1,0)="^.1"
^DD(779.21,.01,1,1,0)="779.21^B"
^DD(779.21,.01,1,1,1)="S ^HLD(779.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(779.21,.01,1,1,2)="K ^HLD(779.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(779.21,.01,3)="Enter the 3 character HL7 Message Type."
^DD(779.21,.01,21,0)="^^3^3^3040814^"
^DD(779.21,.01,21,1,0)="An application should use this multiple to define the action that the receiving"
^DD(779.21,.01,21,2,0)="application needs to perform upon receipt of a specific type of HL7 message,"
^DD(779.21,.01,21,3,0)="identified by the HL7 MESSAGE TYPE and HL7 EVENT fields."
^DD(779.21,.01,"DT")="3060626"
^DD(779.21,.02,0)="HL7 EVENT^RF^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(779.21,.02,3)="Enter the 3 character HL7 event type."
^DD(779.21,.02,"DT")="3060626"
^DD(779.21,.03,0)="PRIVATE IN-QUEUE^F^^0;3^K:$L(X)>20!($L(X)<3) X"
^DD(779.21,.03,3)="You may create a private in-queue for message of this type by entering a unique name up to 20 characters long."
^DD(779.21,.03,"DT")="3050919"
^DD(779.21,.04,0)="ACTION TAG^F^^0;4^K:$L(X)>8!($L(X)<1) X"
^DD(779.21,.04,3)="You must enter the action to perform upon receipt of this type by entering the ACTION TAG and ACTION ROUTINE fields as <tag>^<routine>. The tag is optional. "
^DD(779.21,.04,"DT")="3040815"
^DD(779.21,.05,0)="ACTION ROUTINE^RF^^0;5^K:$L(X)>8!($L(X)<3) X"
^DD(779.21,.05,3)="You must enter the action to perform upon receipt of this type by entering the ACTION TAG and ACTION ROUTINE fields as <tag>^<routine>."
^DD(779.21,.05,"DT")="3050919"
^DD(779.21,.06,0)="HL7 VERSION^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(779.21,.06,3)="Leave blank UNLESS this action applies only to a specific version of the message!  Enter the version exactly as it will appear in the message header."
^DD(779.21,.06,"DT")="3070103"
^DD(779.21,.07,0)="INACTIVE^S^1:INACTIVE;^0;7^Q"
^DD(779.21,.07,3)="Enter '1' to stop the application from generating messages of this type."
^DD(779.21,.07,21,0)="^^4^4^3060621^"
^DD(779.21,.07,21,1,0)="This flag is made available to the application, but it is up to the application"
^DD(779.21,.07,21,2,0)="to honor it.   In otherwords, its up to the application to check the flag and"
^DD(779.21,.07,21,3,0)="decide whether or not to generate messages of this type."
^DD(779.21,.07,21,4,0)=""
^DD(779.21,.07,"DT")="3060621"
^DD(779.21,"B","ACTION ROUTINE",.05)=""
^DD(779.21,"B","ACTION TAG",.04)=""
^DD(779.21,"B","HL7 EVENT",.02)=""
^DD(779.21,"B","HL7 MESSAGE TYPE",.01)=""
^DD(779.21,"B","HL7 VERSION",.06)=""
^DD(779.21,"B","INACTIVE",.07)=""
^DD(779.21,"B","PRIVATE IN-QUEUE",.03)=""
^DD(779.21,"GL",0,1,.01)=""
^DD(779.21,"GL",0,2,.02)=""
^DD(779.21,"GL",0,3,.03)=""
^DD(779.21,"GL",0,4,.04)=""
^DD(779.21,"GL",0,5,.05)=""
^DD(779.21,"GL",0,6,.06)=""
^DD(779.21,"GL",0,7,.07)=""
^DD(779.21,"IX",.01)=""
^DD(779.21,"RQ",.02)=""
^DD(779.21,"RQ",.05)=""
^DD(779.3,0)="FIELD^^.15^15"
^DD(779.3,0,"DDA")="N"
^DD(779.3,0,"DT")="3041221"
^DD(779.3,0,"IX","B",779.3,.01)=""
^DD(779.3,0,"NM","HLO PROCESS REGISTRY")=""
^DD(779.3,0,"VR")="1.6"
^DD(779.3,0,"VRPK")="HL"
^DD(779.3,.01,0)="PROCESS NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(779.3,.01,1,0)="^.1"
^DD(779.3,.01,1,1,0)="779.3^B"
^DD(779.3,.01,1,1,1)="S ^HLD(779.3,""B"",$E(X,1,30),DA)="""""
^DD(779.3,.01,1,1,2)="K ^HLD(779.3,""B"",$E(X,1,30),DA)"
^DD(779.3,.01,3)="Give the type of process a unique name, 3-30 characters."
^DD(779.3,.01,21,0)="^^1^1^3041115^"
^DD(779.3,.01,21,1,0)="A unique name for the type of process."
^DD(779.3,.01,"DT")="3041115"
^DD(779.3,.02,0)="ACTIVE^S^0:NO;1:YES;^0;2^Q"
^DD(779.3,.02,3)="Enter 1 to activate these processes, 0 to inactivate."
^DD(779.3,.02,21,0)="^^4^4^3050805^^^^"
^DD(779.3,.02,21,1,0)="A flag that indicates whether or not this type of process is active under "
^DD(779.3,.02,21,2,0)="the HLO Process Manager. Some processes may not apply to some "
^DD(779.3,.02,21,3,0)="systems, for example, a particular site may not use the Taskman "
^DD(779.3,.02,21,4,0)="multi-listener. "
^DD(779.3,.02,"DT")="3050805"
^DD(779.3,.03,0)="MINIMUM ACTIVE PROCESSES^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1.N) X"
^DD(779.3,.03,3)="How many of these processes should be running at a minimum when HL7 messaging is on?"
^DD(779.3,.03,21,0)="^^3^3^3050805^^^"
^DD(779.3,.03,21,1,0)="This field indicates the minimum number of concurrent processes of this "
^DD(779.3,.03,21,2,0)="type.  The exact number changes as the HLO Process Manager starts and "
^DD(779.3,.03,21,3,0)="stops processes in response to changes in workload."
^DD(779.3,.03,"DT")="3050805"
^DD(779.3,.04,0)="MAXIMUM ACTIVE PROCESSES^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(779.3,.04,3)="How many of these processes should be running at a maximum when the HL7 messaging system is on?"
^DD(779.3,.04,"DT")="3040907"
^DD(779.3,.05,0)="SCHEDULING FREQUENCY (minutes)^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(779.3,.05,3)="This is how long the Process Manager should wait between checks to see if another process of this type should be started.  Enter 0 to 9999."
^DD(779.3,.05,21,0)="^.001^2^2^3041221^^"
^DD(779.3,.05,21,1,0)="This is how long the Process Manager should wait between checks to see if "
^DD(779.3,.05,21,2,0)="another process of this type should be started."
^DD(779.3,.05,"DT")="3050919"
^DD(779.3,.06,0)="DT/TM LAST STARTED OR STOPPED^D^^0;6^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(779.3,.06,3)="DT/TM the process manager last started or stopped one of these."
^DD(779.3,.06,21,0)="^^2^2^3041115^"
^DD(779.3,.06,21,1,0)="The date and time when a process of this type was last started or "
^DD(779.3,.06,21,2,0)="stopped."
^DD(779.3,.06,"DT")="3041115"
^DD(779.3,.07,0)="HANG TIME (seconds)^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(779.3,.07,3)="If the process cannot find work, how many seconds should it hang before looking again?"
^DD(779.3,.07,21,0)="^^2^2^3041115^"
^DD(779.3,.07,21,1,0)="This is how long a process should wait between attempts to find work to "
^DD(779.3,.07,21,2,0)="do."
^DD(779.3,.07,"DT")="3041115"
^DD(779.3,.08,0)="GET WORK FUNCTION (TAG)^RF^^0;8^K:$L(X)>8!($L(X)<1) X"
^DD(779.3,.08,3)="What function will this process call to find work (optional routine entry point)"
^DD(779.3,.08,21,0)="^^1^1^3041115^"
^DD(779.3,.08,21,1,0)="The M entry point to the GET WORK function for this process type."
^DD(779.3,.08,"DT")="3041115"
^DD(779.3,.09,0)="GET WORK FUNCTION (ROUTINE)^RF^^0;9^K:$L(X)>8!($L(X)<1) X"
^DD(779.3,.09,3)="What function should this process call to find work? (routine name only)"
^DD(779.3,.09,21,0)="^^1^1^3041115^"
^DD(779.3,.09,21,1,0)="The routine in which this process type has located its GET WORK function."
^DD(779.3,.09,"DT")="3041115"
^DD(779.3,.1,0)="DO WORK FUNCTION (TAG)^F^^0;10^K:$L(X)>8!($L(X)<1) X"
^DD(779.3,.1,3)="What function should this process call to do its work? Enter the optional entry point only in this field."
^DD(779.3,.1,21,0)="^^1^1^3041115^"
^DD(779.3,.1,21,1,0)="The M entry point for the process's DO WORK function."
^DD(779.3,.1,"DT")="3041115"
^DD(779.3,.11,0)="DO WORK FUNCTION (ROUTINE)^F^^0;11^K:$L(X)>8!($L(X)<1) X"
^DD(779.3,.11,3)="What function should this process call to do its work?  Enter the routine name only in this field."
^DD(779.3,.11,21,0)="^^1^1^3041115^"
^DD(779.3,.11,21,1,0)="The routine in which the process's DO WORK function is located."
^DD(779.3,.11,"DT")="3041115"
^DD(779.3,.12,0)="MAX TRIES FINDING WORK^NJ4,0^^0;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(779.3,.12,3)="How many times should the process look for work before giving up?"
^DD(779.3,.12,21,0)="^^3^3^3041115^"
^DD(779.3,.12,21,1,0)="How many times should the process look for work and then quit if it "
^DD(779.3,.12,21,2,0)="cannot find anything to do?  It'll hang between attempts the specified "
^DD(779.3,.12,21,3,0)="length of time."
^DD(779.3,.12,"DT")="3041115"
^DD(779.3,.13,0)="PERSISTENT^S^0:NO;1:YES;^0;13^Q"
^DD(779.3,.13,3)="Should processes of this type be restarted automatically if they die?"
^DD(779.3,.13,21,0)="^^2^2^3041115^"
^DD(779.3,.13,21,1,0)="Setting this field to YES results in the process being made persistent "
^DD(779.3,.13,21,2,0)="via the Taskman persistent parameter."
^DD(779.3,.13,"DT")="3041115"
^DD(779.3,.14,0)="DEDICATED LINK^FX^^0;14^K:$L(X)>10!($L(X)<3) X"
^DD(779.3,.14,3)="If this process is a listener, you must enter the name of an HL LOGICAL LINK that is a listener and whose TCP/IP PORT (OPTIMIZED) field contains the correct port number."
^DD(779.3,.14,4)=""
^DD(779.3,.14,21,0)="^^4^4^3041115^"
^DD(779.3,.14,21,1,0)="The primary use of this field is for TCP/IP listener processes, and "
^DD(779.3,.14,21,2,0)="indicates which port (via the HL Logical Link) that the process should be "
^DD(779.3,.14,21,3,0)="listening on.  However, it could be used to dedicate a client link "
^DD(779.3,.14,21,4,0)="process to a particular link."
^DD(779.3,.14,"DT")="3050706"
^DD(779.3,.15,0)="VMS TCP SERVICE^S^1:YES;0:NO;^0;15^Q"
^DD(779.3,.15,3)="If this process is a listener, enter YES if it is a VMS TCP service rather than a Taskman process."
^DD(779.3,.15,21,0)="^^5^5^3040923^"
^DD(779.3,.15,21,1,0)="VMS services are not started or stopped via the HL7 Process Manager.  "
^DD(779.3,.15,21,2,0)="However, on a VMS system, these services are an important part of the HL7"
^DD(779.3,.15,21,3,0)="system, and so an entry in the HL7 Process Registry should be created for "
^DD(779.3,.15,21,4,0)="them.  The Process Manager will use the PING functionality to verify that "
^DD(779.3,.15,21,5,0)="the listener is running."
^DD(779.3,.15,"DT")="3040923"
^DD(779.3,"B","ACTIVE",.02)=""
^DD(779.3,"B","DEDICATED LINK",.14)=""
^DD(779.3,"B","DO WORK FUNCTION (ROUTINE)",.11)=""
^DD(779.3,"B","DO WORK FUNCTION (TAG)",.1)=""
^DD(779.3,"B","DT/TM LAST STARTED OR STOPPED",.06)=""
^DD(779.3,"B","GET WORK FUNCTION (ROUTINE)",.09)=""
^DD(779.3,"B","GET WORK FUNCTION (TAG)",.08)=""
^DD(779.3,"B","HANG TIME (seconds)",.07)=""
^DD(779.3,"B","MAX TRIES FINDING WORK",.12)=""
^DD(779.3,"B","MAXIMUM ACTIVE PROCESSES",.04)=""
^DD(779.3,"B","MINIMUM ACTIVE PROCESSES",.03)=""
^DD(779.3,"B","PERSISTENT",.13)=""
^DD(779.3,"B","PROCESS NAME",.01)=""
^DD(779.3,"B","SCHEDULING FREQUENCY (minutes)",.05)=""
^DD(779.3,"B","VMS TCP SERVICE",.15)=""
^DD(779.3,"GL",0,1,.01)=""
^DD(779.3,"GL",0,2,.02)=""
^DD(779.3,"GL",0,3,.03)=""
^DD(779.3,"GL",0,4,.04)=""
^DD(779.3,"GL",0,5,.05)=""
^DD(779.3,"GL",0,6,.06)=""
^DD(779.3,"GL",0,7,.07)=""
^DD(779.3,"GL",0,8,.08)=""
^DD(779.3,"GL",0,9,.09)=""
^DD(779.3,"GL",0,10,.1)=""
^DD(779.3,"GL",0,11,.11)=""
^DD(779.3,"GL",0,12,.12)=""
^DD(779.3,"GL",0,13,.13)=""
^DD(779.3,"GL",0,14,.14)=""
^DD(779.3,"GL",0,15,.15)=""
^DD(779.3,"IX",.01)=""
^DD(779.3,"RQ",.01)=""
^DD(779.3,"RQ",.08)=""
^DD(779.3,"RQ",.09)=""
^DD(779.4,0)="FIELD^^3.06^10"
^DD(779.4,0,"DDA")="N"
^DD(779.4,0,"DT")="3070124"
^DD(779.4,0,"IX","AH",779.4,.02)=""
^DD(779.4,0,"IX","B",779.4,.01)=""
^DD(779.4,0,"NM","HLO SUBSCRIPTION REGISTRY")=""
^DD(779.4,0,"VR")="1.6"
^DD(779.4,0,"VRPK")="HL"
^DD(779.4,.01,0)="NAME^RFX^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(779.4,.01,1,0)="^.1"
^DD(779.4,.01,1,1,0)="779.4^B"
^DD(779.4,.01,1,1,1)="S ^HLD(779.4,""B"",$E(X,1,30),DA)="""""
^DD(779.4,.01,1,1,2)="K ^HLD(779.4,""B"",$E(X,1,30),DA)"
^DD(779.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(779.4,.01,21,0)="^^2^2^3050308^^^^"
^DD(779.4,.01,21,1,0)="This file should not be used to edit this file. Instead, a set of developer"
^DD(779.4,.01,21,2,0)="APIs that was released with this file should be used."
^DD(779.4,.01,"DT")="3050308"
^DD(779.4,.02,0)="OWNER APPLICATION^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(779.4,.02,1,0)="^.1^^0"
^DD(779.4,.02,1,1,0)="779.4^AH^MUMPS"
^DD(779.4,.02,1,1,1)="Q"
^DD(779.4,.02,1,1,2)="D KILLAH^HLOASUB1(DA)"
^DD(779.4,.02,1,1,"%D",0)="^.101^9^9^3041116^^"
^DD(779.4,.02,1,1,"%D",1,0)="The AH x-ref is maintained by the owner of the subscription.  It represents"
^DD(779.4,.02,1,1,"%D",2,0)="a private index by which the application my perform a lookup to find a"
^DD(779.4,.02,1,1,"%D",3,0)="subscription.  The use of a private index is optional, the alternative being"
^DD(779.4,.02,1,1,"%D",4,0)="that the owning application may store the ien of the subscription entry"
^DD(779.4,.02,1,1,"%D",5,0)="with the application's data."
^DD(779.4,.02,1,1,"%D",6,0)=""
^DD(779.4,.02,1,1,"%D",7,0)="The format of the index is as follows:"
^DD(779.4,.02,1,1,"%D",8,0)=""
^DD(779.4,.02,1,1,"%D",9,0)="^HLS(779.4,""AH"",<owner>,<list of lookup values....>,<DA>)="""""
^DD(779.4,.02,1,1,"DT")="3040601"
^DD(779.4,.02,3)="Answer must be 1-40 characters in length."
^DD(779.4,.02,21,0)="^^2^2^3040526^^"
^DD(779.4,.02,21,1,0)="This is the application or package responsible for creating this"
^DD(779.4,.02,21,2,0)="subscription."
^DD(779.4,.02,"DT")="3070125"
^DD(779.4,.03,0)="DESCRIPTION^F^^1;1^K:$L(X)>75!($L(X)<1) X"
^DD(779.4,.03,3)="Answer must be 1-75 characters in length"
^DD(779.4,.03,"DT")="2991207"
^DD(779.4,3.01,0)="LOOKUP 1^F^^3;1^K:$L(X)>40!($L(X)<1) X"
^DD(779.4,3.01,3)="Answer must be 1-40 characters in length"
^DD(779.4,3.01,"DT")="3070124"
^DD(779.4,3.02,0)="LOOKUP 2^F^^3;2^K:$L(X)>40!($L(X)<1) X"
^DD(779.4,3.02,3)="Answer must be 1-40 characters in length"
^DD(779.4,3.02,"DT")="3070124"
^DD(779.4,3.03,0)="LOOKUP 3^F^^3;3^K:$L(X)>40!($L(X)<1) X"
^DD(779.4,3.03,3)="Answer must be 1-40 characters in length"
^DD(779.4,3.03,"DT")="3070124"
^DD(779.4,3.04,0)="LOOKUP 4^F^^3;4^K:$L(X)>40!($L(X)<1) X"
^DD(779.4,3.04,3)="Answer must be 1-40 characters in length"
^DD(779.4,3.04,"DT")="3070124"
^DD(779.4,3.05,0)="LOOKUP 5^F^^3;5^K:$L(X)>40!($L(X)<1) X"
^DD(779.4,3.05,3)="Answer must be 1-40 characters in length"
^DD(779.4,3.05,"DT")="3070124"
^DD(779.4,3.06,0)="LOOKUP 6^F^^3;6^K:$L(X)>40!($L(X)<1) X"
^DD(779.4,3.06,3)="Answer must be 1-40 characters in length"
^DD(779.4,3.06,"DT")="3070124"
^DD(779.4,20,0)="RECIPIENTS^779.41^^2;0"
^DD(779.4,"B","DESCRIPTION",.03)=""
^DD(779.4,"B","LOOKUP 1",3.01)=""
^DD(779.4,"B","LOOKUP 2",3.02)=""
^DD(779.4,"B","LOOKUP 3",3.03)=""
^DD(779.4,"B","LOOKUP 4",3.04)=""
^DD(779.4,"B","LOOKUP 5",3.05)=""
^DD(779.4,"B","LOOKUP 6",3.06)=""
^DD(779.4,"B","NAME",.01)=""
^DD(779.4,"B","OWNER APPLICATION",.02)=""
^DD(779.4,"B","RECIPIENTS",20)=""
^DD(779.4,"GL",0,1,.01)=""
^DD(779.4,"GL",0,2,.02)=""
^DD(779.4,"GL",1,1,.03)=""
^DD(779.4,"GL",2,0,20)=""
^DD(779.4,"GL",3,1,3.01)=""
^DD(779.4,"GL",3,2,3.02)=""
^DD(779.4,"GL",3,3,3.03)=""
^DD(779.4,"GL",3,4,3.04)=""
^DD(779.4,"GL",3,5,3.05)=""
^DD(779.4,"GL",3,6,3.06)=""
^DD(779.4,"IX",.01)=""
^DD(779.4,"IX",.02)=""
^DD(779.4,"RQ",.01)=""
^DD(779.4,"SB",779.41,20)=""
^DD(779.41,0)="RECIPIENTS SUB-FIELD^^1.02^7"
^DD(779.41,0,"DT")="3040817"
^DD(779.41,0,"IX","B",774.02,.01)=""
^DD(779.41,0,"IX","B",779.41,.01)=""
^DD(779.41,0,"NM","RECIPIENTS")=""
^DD(779.41,0,"UP")="779.4"
^DD(779.41,.01,0)="RECEIVING APPLICATON^MRF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(779.41,.01,1,0)="^.1"
^DD(779.41,.01,1,1,0)="779.41^B"
^DD(779.41,.01,1,1,1)="S ^HLS(779.4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(779.41,.01,1,1,2)="K ^HLS(779.4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(779.41,.01,3)="Enter the name of the application that will receive the message, up to 60 characters."
^DD(779.41,.01,"DT")="3040817"
^DD(779.41,.02,0)="LOGICAL LINK^RP870'^HLCS(870,^0;2^Q"
^DD(779.41,.02,3)="Over which communication link should the messages be sent?"
^DD(779.41,.02,"DT")="3040527"
^DD(779.41,.03,0)="RECEIVING FACILITY COMPONENT 1^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(779.41,.03,3)="Answer must be 1-50 characters in length"
^DD(779.41,.03,21,0)="^^2^2^3040526^"
^DD(779.41,.03,21,1,0)="This is the value that should be placed in component 1 of the receiving"
^DD(779.41,.03,21,2,0)="facility field of the message header."
^DD(779.41,.03,"DT")="3040527"
^DD(779.41,.04,0)="RECEIVING FACILITY COMPONENT 2^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(779.41,.04,3)="Answer must be 1-50 characters in length"
^DD(779.41,.04,21,0)="^^2^2^3040526^"
^DD(779.41,.04,21,1,0)="This is the value that should be placed in component 2 of the receiving"
^DD(779.41,.04,21,2,0)="facility field of the message header."
^DD(779.41,.04,"DT")="3040527"
^DD(779.41,.05,0)="RECEIVING FACILITY COMPONENT 3^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(779.41,.05,3)="Answer must be 1-10 characters in length"
^DD(779.41,.05,21,0)="^^2^2^3041116^"
^DD(779.41,.05,21,1,0)="This is the value that should be placed in component 3 of the receiving"
^DD(779.41,.05,21,2,0)="facility field of the message header."
^DD(779.41,.05,"DT")="3041116"
^DD(779.41,1.01,0)="DATE/TIME ADDED^RD^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(779.41,1.01,3)="Enter the date and time that this recipient was added to the subscription list."
^DD(779.41,1.01,"DT")="3040526"
^DD(779.41,1.02,0)="DATE/TIME TERMINATED^D^^1;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(779.41,1.02,3)="Enter the date and time that this recipient was dropped from the subscription list"
^DD(779.41,1.02,"DT")="3040526"
^DD(779.41,"B","DATE/TIME ADDED",1.01)=""
^DD(779.41,"B","DATE/TIME TERMINATED",1.02)=""
^DD(779.41,"B","LOGICAL LINK",.02)=""
^DD(779.41,"B","RECEIVING APPLICATON",.01)=""
^DD(779.41,"B","RECEIVING FACILITY COMPONENT 1",.03)=""
^DD(779.41,"B","RECEIVING FACILITY COMPONENT 2",.04)=""
^DD(779.41,"B","RECEIVING FACILITY COMPONENT 3",.05)=""
^DD(779.41,"GL",0,1,.01)=""
^DD(779.41,"GL",0,2,.02)=""
^DD(779.41,"GL",0,3,.03)=""
^DD(779.41,"GL",0,4,.04)=""
^DD(779.41,"GL",0,5,.05)=""
^DD(779.41,"GL",1,1,1.01)=""
^DD(779.41,"GL",1,2,1.02)=""
^DD(779.41,"IX",.01)=""
^DD(779.41,"RQ",.01)=""
^DD(779.41,"RQ",.02)=""
^DD(779.41,"RQ",1.01)=""
^DD(783,0)="FIELD^^100^143"
^DD(783,0,"DDA")="N"
^DD(783,0,"DT")="3030218"
^DD(783,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(783,0,"IX","ATRAN",783,.15)=""
^DD(783,0,"IX","B",783,.01)=""
^DD(783,0,"IX","CASE",783,.02)=""
^DD(783,0,"IX","DFN",783,.03)=""
^DD(783,0,"NM","FUNCTIONAL INDEPENDENCE MEASUREMENT RECORD")=""
^DD(783,0,"VR")="1.0"
^DD(783,0,"VRPK")="FUNCTIONAL INDEPENDENCE"
^DD(783,.01,0)="ENTRY NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(783,.01,1,0)="^.1"
^DD(783,.01,1,1,0)="783^B"
^DD(783,.01,1,1,1)="S ^RMIM(783,""B"",$E(X,1,30),DA)="""""
^DD(783,.01,1,1,2)="K ^RMIM(783,""B"",$E(X,1,30),DA)"
^DD(783,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(783,.01,21,0)="^^1^1^3030205^"
^DD(783,.01,21,1,0)="This field contains the entry number."
^DD(783,.01,"DT")="3020814"
^DD(783,.02,0)="SITE CASE NUMBER^RNJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(783,.02,1,0)="^.1"
^DD(783,.02,1,1,0)="783^CASE"
^DD(783,.02,1,1,1)="S ^RMIM(783,""CASE"",$E(X,1,30),DA)="""""
^DD(783,.02,1,1,2)="K ^RMIM(783,""CASE"",$E(X,1,30),DA)"
^DD(783,.02,1,1,"DT")="3020816"
^DD(783,.02,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(783,.02,21,0)="^^2^2^3030214^"
^DD(783,.02,21,1,0)="Internal use due to cases that could be deleted or new cases created by"
^DD(783,.02,21,2,0)="edits, may be utilized in future design for the OP code."
^DD(783,.02,"DT")="3020816"
^DD(783,.03,0)="PATIENT^P2'^DPT(^0;3^Q"
^DD(783,.03,1,0)="^.1"
^DD(783,.03,1,1,0)="783^DFN"
^DD(783,.03,1,1,1)="S ^RMIM(783,""DFN"",$E(X,1,30),DA)="""""
^DD(783,.03,1,1,2)="K ^RMIM(783,""DFN"",$E(X,1,30),DA)"
^DD(783,.03,1,1,"DT")="3020829"
^DD(783,.03,21,0)="^^3^3^3030214^"
^DD(783,.03,21,1,0)="This field points to the Patient file. The patient is selected from"
^DD(783,.03,21,2,0)="the FIM template.  This field is populated by the FIM Template via a"
^DD(783,.03,21,3,0)="broker call."
^DD(783,.03,"DT")="3030211"
^DD(783,.04,0)="PT ID^F^^0;4^K:$L(X)>10!($L(X)<9) X"
^DD(783,.04,3)="Answer must be 9-10 characters in length."
^DD(783,.04,21,0)="^.001^4^4^3030214^^"
^DD(783,.04,21,1,0)="Patient ID (Social Security Number).  Linked to FSOD Database with"
^DD(783,.04,21,2,0)="Patient_Code/Patient ID.  This data is obtained from the Patient file"
^DD(783,.04,21,3,0)="via a broker call from the FIM template when a user makes a patient"
^DD(783,.04,21,4,0)="selection."
^DD(783,.04,"DT")="3020814"
^DD(783,.05,0)="PT DOB^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(783,.05,21,0)="^^4^4^3030214^"
^DD(783,.05,21,1,0)="This field contains the Patient date of birth.  It corresponds with the"
^DD(783,.05,21,2,0)="Austin FSOD database BIRTH_DATE.  This data is obtained from the Patient"
^DD(783,.05,21,3,0)="file via a broker call from the FIM template when a user makes a patient"
^DD(783,.05,21,4,0)="selection."
^DD(783,.05,"DT")="3040109"
^DD(783,.06,0)="FACILITY CODE^F^^0;6^K:$L(X)>8!($L(X)<4) X"
^DD(783,.06,3)="Answer must be 4-8 characters in length."
^DD(783,.06,21,0)="^^5^5^3030214^"
^DD(783,.06,21,1,0)="Facility Code which is linked to FSOD Database field FACILITY_ID.  UDSmr"
^DD(783,.06,21,2,0)="assigns facility codes to the sites.  This is not to be confused with"
^DD(783,.06,21,3,0)="Site number.  The facility codes and the type of care that is associated"
^DD(783,.06,21,4,0)="with facility codes for the Site are located in the 783.9 (RMIM FIM SITE"
^DD(783,.06,21,5,0)="PARAMETER). This field keeps track of the facility code for this episode."
^DD(783,.06,"DT")="3020814"
^DD(783,.07,0)="TYPE OF CARE^S^1:CONTINUUM OF CARE;2:ACUTE;3:SUBACUTE;^0;7^Q"
^DD(783,.07,3)=""
^DD(783,.07,21,0)="^^2^2^3030214^"
^DD(783,.07,21,1,0)="This field contains the type of care; continuum, acute or subacute.  It"
^DD(783,.07,21,2,0)="corresponds with the Austin FSOD database CARE_CLASS_CODE."
^DD(783,.07,"DT")="3020828"
^DD(783,.08,0)="IMPAIRMENT GROUP^F^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(783,.08,3)="Answer must be 1-10 characters in length."
^DD(783,.08,21,0)="^^3^3^3030214^"
^DD(783,.08,21,1,0)="Impairment Group which is linked to FSOD Database field IMPAIRMENT_CODE."
^DD(783,.08,21,2,0)="These choices can be observed in the FIM template where this information"
^DD(783,.08,21,3,0)="is obtained from."
^DD(783,.08,"DT")="3020814"
^DD(783,.09,0)="ONSET DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,.09,21,0)="^^16^16^3030214^"
^DD(783,.09,21,1,0)="This field contains the onset date.  It corresponds to the Austin FSOD"
^DD(783,.09,21,2,0)="database ONSET_DATE.  The field reflects the the date of the onset of the"
^DD(783,.09,21,3,0)="impairment that was coded in the Impairment Group field for which the"
^DD(783,.09,21,4,0)="subject was rehabilitated."
^DD(783,.09,21,5,0)=""
^DD(783,.09,21,6,0)="Date of Onset: Complete this data field with the date of the onset of the"
^DD(783,.09,21,7,0)="impairment that was coded in the Impairment Group field for which the"
^DD(783,.09,21,8,0)="subject was rehabilitated.  Record eight digits (including century).  For"
^DD(783,.09,21,9,0)="conditions that have an insidious onset, or if for any other reason the"
^DD(783,.09,21,10,0)="exact date of the onset is not known, follow these guidelines:"
^DD(783,.09,21,11,0)="                a.  if the year and month are known, but the exact day is"
^DD(783,.09,21,12,0)="not, use the first day of the month."
^DD(783,.09,21,13,0)="                b.  if the year is known, but the exact month is not, use"
^DD(783,.09,21,14,0)="thee first of January of that year."
^DD(783,.09,21,15,0)="                c.  if the year is an approximation, use the first of"
^DD(783,.09,21,16,0)="January of the approximate year."
^DD(783,.09,"DT")="3020814"
^DD(783,.1,0)="ADMIT DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,.1,3)=""
^DD(783,.1,21,0)="^^2^2^3030205^"
^DD(783,.1,21,1,0)="This field contains the admit date.  It corresponds to the Austin FSOD"
^DD(783,.1,21,2,0)="database ADMIT_DATE."
^DD(783,.1,"DT")="3020814"
^DD(783,.11,0)="DISCHARGE DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,.11,21,0)="^^2^2^3030205^"
^DD(783,.11,21,1,0)="This field contains the discharge date.  It corresponds to the Austin"
^DD(783,.11,21,2,0)="FSOD database DISCHARGE_DATE."
^DD(783,.11,"DT")="3030211"
^DD(783,.12,0)="EDIT DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,.12,3)=""
^DD(783,.12,21,0)="^^3^3^3030206^"
^DD(783,.12,21,1,0)="Date entry which is linked to the FSOD Database field ASSESSMENT_DATE for"
^DD(783,.12,21,2,0)="Interims and follow-ups only.  This field keeps track of the last date"
^DD(783,.12,21,3,0)="the form was edited."
^DD(783,.12,"DT")="3020820"
^DD(783,.13,0)="XMIT DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,.13,1,0)="^.1"
^DD(783,.13,1,1,0)="^^TRIGGER^783^.15"
^DD(783,.13,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RMIM(783,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^RMIM(783,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=783,DIG=.15 D ^DICR"
^DD(783,.13,1,1,2)="Q"
^DD(783,.13,1,1,"CREATE VALUE")="@"
^DD(783,.13,1,1,"DELETE VALUE")="NO EFFECT"
^DD(783,.13,1,1,"FIELD")="#.15"
^DD(783,.13,3)=""
^DD(783,.13,21,0)="^^1^1^3030211^"
^DD(783,.13,21,1,0)="This field contains the transmit date from site to Austin."
^DD(783,.13,"DT")="3020820"
^DD(783,.14,0)="OP CODE^S^A:ADD;E:EDIT;D:DELETE;^0;14^Q"
^DD(783,.14,21,0)="^^2^2^3030214^"
^DD(783,.14,21,1,0)="Internal use due to cases that could be deleted or new cases created by"
^DD(783,.14,21,2,0)="edits, may be utilized in future design for the site case number."
^DD(783,.14,"DT")="3020820"
^DD(783,.15,0)="READY FOR XMIT^S^0:NO;1:YES;^0;15^Q"
^DD(783,.15,1,0)="^.1"
^DD(783,.15,1,1,0)="783^ATRAN"
^DD(783,.15,1,1,1)="S ^RMIM(783,""ATRAN"",$E(X,1,30),DA)="""""
^DD(783,.15,1,1,2)="K ^RMIM(783,""ATRAN"",$E(X,1,30),DA)"
^DD(783,.15,1,1,"DT")="3021114"
^DD(783,.15,5,1,0)="783^.13^1"
^DD(783,.15,21,0)="^^1^1^3030205^"
^DD(783,.15,21,1,0)="This field contains a yes or no for ready for transmit."
^DD(783,.15,"DT")="3020830"
^DD(783,.16,0)="PROG NOTE IEN^P8925'^TIU(8925,^0;16^Q"
^DD(783,.16,3)=""
^DD(783,.16,21,0)="^^2^2^3030214^"
^DD(783,.16,21,1,0)="Progress note IEN. Used to keep all addendums attached to the original"
^DD(783,.16,21,2,0)="progress note."
^DD(783,.16,"DT")="3030211"
^DD(783,.17,0)="EMAIL ID^P3.9'^XMB(3.9,^0;17^Q"
^DD(783,.17,3)=""
^DD(783,.17,21,0)="^.001^3^3^3030218^^^^"
^DD(783,.17,21,1,0)="This field contains MailMan message number.  This field is used to"
^DD(783,.17,21,2,0)="put responses to the original message when FIM template is used to update"
^DD(783,.17,21,3,0)="an existing entry."
^DD(783,.17,"DT")="3030218"
^DD(783,.2,0)="AUSTIN STATUS^S^0:ACK;1:ERR;^9;1^Q"
^DD(783,.2,21,0)="^.001^2^2^3030206^^"
^DD(783,.2,21,1,0)="This will either be an ACK or ERR depending on the message received back"
^DD(783,.2,21,2,0)="from Austin regarding the data sent from the sites."
^DD(783,.2,"DT")="3030107"
^DD(783,.21,0)="ERROR DESCRIPTION^F^^9;2^K:$L(X)>200!($L(X)<3) X"
^DD(783,.21,3)="Answer must be 3-200 characters in length."
^DD(783,.21,21,0)="^^3^3^3030211^"
^DD(783,.21,21,1,0)="This field contains an error description of messages coming back from"
^DD(783,.21,21,2,0)="Austin.  It documents why a particular entry received an ERR status and"
^DD(783,.21,21,3,0)="should be retransmitted to Austin."
^DD(783,.21,"DT")="3030107"
^DD(783,1.01,0)="STREET^F^^1;1^K:$L(X)>25!($L(X)<1) X"
^DD(783,1.01,3)="Answer must be 1-25 characters in length."
^DD(783,1.01,21,0)="^^2^2^3030205^"
^DD(783,1.01,21,1,0)="This field contains the patient's street address which is pulled from the"
^DD(783,1.01,21,2,0)="patient file and is linked to the FSOD Database field STREET."
^DD(783,1.01,"DT")="3020830"
^DD(783,1.02,0)="CITY^F^^1;2^K:$L(X)>25!($L(X)<1) X"
^DD(783,1.02,3)="Answer must be 1-25 characters in length."
^DD(783,1.02,21,0)="^.001^2^2^3030205^^"
^DD(783,1.02,21,1,0)="City information which is pulled from the patient file and is linked to"
^DD(783,1.02,21,2,0)="the FSOD Database field CITY"
^DD(783,1.02,"DT")="3020830"
^DD(783,1.03,0)="STATE^F^^1;3^K:$L(X)>2!($L(X)<2) X"
^DD(783,1.03,3)="Answer must be 2 characters in length."
^DD(783,1.03,21,0)="^^2^2^3030205^"
^DD(783,1.03,21,1,0)="This field contains the patient's state.  This field corresponds to the"
^DD(783,1.03,21,2,0)="Austin FSOD database STATE."
^DD(783,1.03,"DT")="3020830"
^DD(783,1.04,0)="POSTAL CODE^F^^1;4^K:$L(X)>10!($L(X)<5) X"
^DD(783,1.04,3)="Answer must be 5-10 characters in length."
^DD(783,1.04,21,0)="^^2^2^3030205^"
^DD(783,1.04,21,1,0)="Entry is free text, but must be between 5-10 characters in length.  This"
^DD(783,1.04,21,2,0)="field is linked to the FSOD Database field POSTAL_CODE"
^DD(783,1.04,"DT")="3020830"
^DD(783,1.05,0)="TELEPHONE^F^^1;5^K:$L(X)>30!($L(X)<3) X"
^DD(783,1.05,3)="Answer must be 3-30 characters in length."
^DD(783,1.05,21,0)="^^3^3^3030205^"
^DD(783,1.05,21,1,0)="This field contains the patient's phone number which is pulled from the"
^DD(783,1.05,21,2,0)="patient file."
^DD(783,1.05,21,3,0)="This corresponds with the Austin FSOD database TELEPHONE."
^DD(783,1.05,"DT")="3020830"
^DD(783,1.06,0)="GENDER CODE^F^^1;6^K:$L(X)>2!($L(X)<1) X"
^DD(783,1.06,3)="Answer must be 1-2 characters in length."
^DD(783,1.06,21,0)="^^5^5^3030214^"
^DD(783,1.06,21,1,0)="Free text entry is linked to the FSOD Database field GENDER_CODE.  This"
^DD(783,1.06,21,2,0)="data is obtained from the Patient file via a broker call from the FIM"
^DD(783,1.06,21,3,0)="template when a user makes a patient selection. This field can be changed"
^DD(783,1.06,21,4,0)="in the template if there appears to be a discrepancy in the Patient"
^DD(783,1.06,21,5,0)="file.  Users final input will be stored in this field."
^DD(783,1.06,"DT")="3020830"
^DD(783,1.07,0)="ETHNIC CODE^F^^1;7^K:$L(X)>2!($L(X)<1) X"
^DD(783,1.07,3)="Answer must be 1-2 characters in length."
^DD(783,1.07,21,0)="^^7^7^3030214^"
^DD(783,1.07,21,1,0)="This field contains the patient's ethnicity.  This corresponds with the"
^DD(783,1.07,21,2,0)="Austin FSOD database ETHNICITY_CODE.  This data is obtained from the"
^DD(783,1.07,21,3,0)="Patient file via a broker call from the FIM template when a user makes a"
^DD(783,1.07,21,4,0)="patient selection. The broker call looks at the patient file Race fields"
^DD(783,1.07,21,5,0)="(.06 and 2). This field can be changed in the template if there appears"
^DD(783,1.07,21,6,0)="to be a discrepancy in the Patient file.  Users final input will be stored"
^DD(783,1.07,21,7,0)="in this field in the format that FSOD will accept."
^DD(783,1.07,"DT")="3020830"
^DD(783,1.08,0)="MARITAL CODE^F^^1;8^K:$L(X)>2!($L(X)<1) X"
^DD(783,1.08,3)="Answer must be 1-2 characters in length."
^DD(783,1.08,21,0)="^.001^5^5^3030214^^"
^DD(783,1.08,21,1,0)="Free text entry linked to the FSOD Database field MARITAL_CODE.   This"
^DD(783,1.08,21,2,0)="data is obtained from the Patient file via a broker call from the FIM"
^DD(783,1.08,21,3,0)="template when a user makes a patient selection. This field can be changed"
^DD(783,1.08,21,4,0)="in the template if there appears to be a discrepancy in the Patient"
^DD(783,1.08,21,5,0)="file.  Users final input will be stored in this field."
^DD(783,1.08,"DT")="3020830"
^DD(783,1.09,0)="ACTIVE MIL IND^F^^1;9^K:$L(X)>2!($L(X)<1) X"
^DD(783,1.09,3)="Answer must be 1-2 characters in length."
^DD(783,1.09,21,0)="^^5^5^3030214^"
^DD(783,1.09,21,1,0)="This field contains the active military ind. of the patient.  This"
^DD(783,1.09,21,2,0)="corresponds with the FSOD datbase ACTIVE_MIL_IND."
^DD(783,1.09,21,3,0)=""
^DD(783,1.09,21,4,0)="A-Active Military"
^DD(783,1.09,21,5,0)="N-Not Active Military"
^DD(783,1.09,"DT")="3020903"
^DD(783,2.01,0)="ADMIT CLASS^F^^2;1^K:$L(X)>2!($L(X)<1) X"
^DD(783,2.01,3)="Answer must be 1-2 characters in length."
^DD(783,2.01,21,0)="^^9^9^3030214^"
^DD(783,2.01,21,1,0)="This field contains the admit class of the patient.  This"
^DD(783,2.01,21,2,0)="corresponds with the FSOD database ADMIT_CLASS_CODE."
^DD(783,2.01,21,3,0)="Admit Class Code"
^DD(783,2.01,21,4,0)="             1= Initial Rehab"
^DD(783,2.01,21,5,0)="             2= Short Stay"
^DD(783,2.01,21,6,0)="             3= Readmission"
^DD(783,2.01,21,7,0)=""
^DD(783,2.01,21,8,0)="The Uniform Data System for Medical Rehabilitation (UDSmr) manual is"
^DD(783,2.01,21,9,0)="where the codes come from."
^DD(783,2.01,"DT")="3030211"
^DD(783,2.03,0)="INTERRUPTION CODE^F^^2;3^K:$L(X)>2!($L(X)<1) X"
^DD(783,2.03,3)="Answer must be 1-2 characters in length."
^DD(783,2.03,21,0)="^^8^8^3030214^"
^DD(783,2.03,21,1,0)="This field contains the interruption code.  This corresponds with the FSOD"
^DD(783,2.03,21,2,0)="database INTERRUPTION_CODE."
^DD(783,2.03,21,3,0)=""
^DD(783,2.03,21,4,0)="Program Interruptions: If a subject is transferred to an acute care"
^DD(783,2.03,21,5,0)="setting for a temporary period of time and cannot participate in his/her"
^DD(783,2.03,21,6,0)="rehabilitation program during that temporary period, but is able to"
^DD(783,2.03,21,7,0)="return within 30 days to participate in the rehab program, he/she is"
^DD(783,2.03,21,8,0)="coded as having an interruption (1) for that period of time."
^DD(783,2.03,"DT")="3020830"
^DD(783,2.04,0)="TRANSFER 1 DATE^D^^2;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,2.04,21,0)="^^3^3^3030214^"
^DD(783,2.04,21,1,0)="This is the date interruption began."
^DD(783,2.04,21,2,0)=""
^DD(783,2.04,21,3,0)="Date entry which is linked to the FSOD Database field TRANSFER1_DATE"
^DD(783,2.04,"DT")="3020830"
^DD(783,2.05,0)="RETURN 1 DATE^D^^2;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,2.05,3)=""
^DD(783,2.05,21,0)="^.001^3^3^3030214^^"
^DD(783,2.05,21,1,0)="This is the date interruption ended and patient returned."
^DD(783,2.05,21,2,0)=""
^DD(783,2.05,21,3,0)="This corresponds with the FSOD database RETURN1_DATE."
^DD(783,2.05,"DT")="3020830"
^DD(783,2.06,0)="TRANSFER 2 DATE^D^^2;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,2.06,3)=""
^DD(783,2.06,21,0)="^.001^3^3^3030214^^"
^DD(783,2.06,21,1,0)="This is the date interruption began."
^DD(783,2.06,21,2,0)=""
^DD(783,2.06,21,3,0)="Date entry which is linked to the FSOD Database field TRANSFER2_DATE"
^DD(783,2.06,"DT")="3020830"
^DD(783,2.07,0)="RETURN 2 DATE^D^^2;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,2.07,3)=""
^DD(783,2.07,21,0)="^^3^3^3030214^"
^DD(783,2.07,21,1,0)="This is the date interruption ended and patient returned."
^DD(783,2.07,21,2,0)=""
^DD(783,2.07,21,3,0)="This corresponds with the FSOD database RETURN2_DATE."
^DD(783,2.07,"DT")="3020830"
^DD(783,2.08,0)="TRANSFER 3 DATE^D^^2;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,2.08,3)=""
^DD(783,2.08,21,0)="^^3^3^3030214^"
^DD(783,2.08,21,1,0)="This is the date interruption began."
^DD(783,2.08,21,2,0)=""
^DD(783,2.08,21,3,0)="Date entry which is linked to the FSOD Database field TRANSFER3_DATE"
^DD(783,2.08,"DT")="3020830"
^DD(783,2.09,0)="RETURN 3 DATE^D^^2;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(783,2.09,3)=""
^DD(783,2.09,21,0)="^^3^3^3030214^"
^DD(783,2.09,21,1,0)="This is the date interruption ended and patient returned."
^DD(783,2.09,21,2,0)=""
^DD(783,2.09,21,3,0)="This corresponds with the FSOD database RETURN3_DATE."
^DD(783,2.09,"DT")="3020830"
^DD(783,2.11,0)="ASIA CODE^F^^2;11^K:$L(X)>8!($L(X)<1) X"
^DD(783,2.11,3)="Answer must be 1-8 characters in length."
^DD(783,2.11,21,0)="^^21^21^3030214^"
^DD(783,2.11,21,1,0)="This field contains the asia code.  This corresponds with the FSOD datbase"
^DD(783,2.11,21,2,0)="ASIA_CODE."
^DD(783,2.11,21,3,0)="USDmr:  .  Asia Code: This field is completed for subjects with traumatic"
^DD(783,2.11,21,4,0)="spinal cord injuries only.  Enter the category which best describes the"
^DD(783,2.11,21,5,0)="degree of motor and sensory involvement on admission to the rehab program:"
^DD(783,2.11,21,6,0)="                A Complete: No motor or sensory function is preserved in"
^DD(783,2.11,21,7,0)="the sacral segments S4-S5"
^DD(783,2.11,21,8,0)="                B Incomplete (Sensory Preserved): Sensory function, but"
^DD(783,2.11,21,9,0)="not motor function, is preserved below the neurological level and extends"
^DD(783,2.11,21,10,0)="through the sacral segments S4-S5."
^DD(783,2.11,21,11,0)="                C Incomplete (Motor Nonfunctional): Motor function is"
^DD(783,2.11,21,12,0)="preserved below the neurological level, and the majoority of key muscles"
^DD(783,2.11,21,13,0)="below the neurological level have a muscle grade less than 3."
^DD(783,2.11,21,14,0)="                D Incomplete (Motor Functional): Motor function is"
^DD(783,2.11,21,15,0)="preserved below the neurological level, and the majority of key muscles"
^DD(783,2.11,21,16,0)="below the neurological level have a grade of 3 or greater."
^DD(783,2.11,21,17,0)="                E Normal: Motor and sensory functions are normal."
^DD(783,2.11,21,18,0)=""
^DD(783,2.11,21,19,0)="The template only allows this edit if the user has selected traumatic"
^DD(783,2.11,21,20,0)="spinal cord which then clearly stated A,B,C,D,E and there meaning in"
^DD(783,2.11,21,21,0)="their choices."
^DD(783,2.11,"DT")="3020830"
^DD(783,4.01,0)="A EAT^F^^4;1^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.01,3)="Answer must be 1 character in length."
^DD(783,4.01,21,0)="^.001^2^2^3030205^^"
^DD(783,4.01,21,1,0)="This field contains the FIM Score for assessment of eating for admission."
^DD(783,4.01,21,2,0)="This corresponds to the Austin FSOD database EAT_FIM."
^DD(783,4.01,"DT")="3020830"
^DD(783,4.02,0)="A GROOM^F^^4;2^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.02,3)="Answer must be 1 character in length."
^DD(783,4.02,21,0)="^.001^4^4^3030205^^^"
^DD(783,4.02,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.02,21,2,0)="field GROOM_FIM."
^DD(783,4.02,21,3,0)="This field contains the FIM Score for assessment of grooming for"
^DD(783,4.02,21,4,0)="admission."
^DD(783,4.02,"DT")="3020830"
^DD(783,4.03,0)="A BATH^F^^4;3^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.03,3)="Answer must be 1 character in length."
^DD(783,4.03,21,0)="^^2^2^3030205^"
^DD(783,4.03,21,1,0)="This field contains the FIM Score for assessment of bathing for admission."
^DD(783,4.03,21,2,0)="This corresponds to the Austin FSOD database BATH_FIM."
^DD(783,4.03,"DT")="3020830"
^DD(783,4.04,0)="A DRESS UP^F^^4;4^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.04,3)="Answer must be 1 character in length."
^DD(783,4.04,21,0)="^.001^4^4^3030205^^"
^DD(783,4.04,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.04,21,2,0)="field DRESS_UP_FIM"
^DD(783,4.04,21,3,0)="This field contains the FIM Score for assessment of dressing for"
^DD(783,4.04,21,4,0)="admission."
^DD(783,4.04,"DT")="3020830"
^DD(783,4.05,0)="A DRESS LO^F^^4;5^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.05,3)="Answer must be 1 character in length."
^DD(783,4.05,21,0)="^^3^3^3030205^"
^DD(783,4.05,21,1,0)="This field contains the FIM Score for assessment of dressing for"
^DD(783,4.05,21,2,0)="admission."
^DD(783,4.05,21,3,0)="This corresponds to the Austin FSOD database DRESS_LO_FIM."
^DD(783,4.05,"DT")="3020830"
^DD(783,4.06,0)="A TOILET^F^^4;6^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.06,3)="Answer must be 1 character in length."
^DD(783,4.06,21,0)="^^4^4^3030205^"
^DD(783,4.06,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.06,21,2,0)="field TOILET_FIM"
^DD(783,4.06,21,3,0)="This field contains the FIM Score for assessment of toileting for"
^DD(783,4.06,21,4,0)="admission."
^DD(783,4.06,"DT")="3020830"
^DD(783,4.07,0)="A BLADDER^F^^4;7^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.07,3)="Answer must be 1 character in length."
^DD(783,4.07,21,0)="^^3^3^3030205^"
^DD(783,4.07,21,1,0)="This field contains the FIM Score for assessment of bladder for"
^DD(783,4.07,21,2,0)="admission."
^DD(783,4.07,21,3,0)="This corresponds to the Austin FSOD database BLADDER_FIM."
^DD(783,4.07,"DT")="3020830"
^DD(783,4.08,0)="A BOWEL^F^^4;8^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.08,3)="Answer must be 1 character in length."
^DD(783,4.08,21,0)="^^4^4^3030205^"
^DD(783,4.08,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.08,21,2,0)="field BOWEL_FIM"
^DD(783,4.08,21,3,0)="This field contains the FIM Score for assessment of bowel functions for"
^DD(783,4.08,21,4,0)="admission."
^DD(783,4.08,"DT")="3020830"
^DD(783,4.09,0)="A TRANS CHAIR^F^^4;9^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.09,3)="Answer must be 1 character in length."
^DD(783,4.09,21,0)="^.001^3^3^3030205^^"
^DD(783,4.09,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,4.09,21,2,0)="chair for admission."
^DD(783,4.09,21,3,0)="This corresponds to the Austin FSOD database TRANS_CHAIR_FIM."
^DD(783,4.09,"DT")="3020830"
^DD(783,4.1,0)="A TRANS TOILET^F^^4;10^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.1,3)="Answer must be 1 character in length."
^DD(783,4.1,21,0)="^.001^4^4^3030205^^"
^DD(783,4.1,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.1,21,2,0)="field TRANS_TOILET_FIM"
^DD(783,4.1,21,3,0)="This field contains the FIM Score for assessment of transport to toilet"
^DD(783,4.1,21,4,0)="for admission."
^DD(783,4.1,"DT")="3020830"
^DD(783,4.11,0)="A TRANS TUB^F^^4;11^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.11,3)="Answer must be 1 character in length."
^DD(783,4.11,21,0)="^^3^3^3030205^"
^DD(783,4.11,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,4.11,21,2,0)="tub for admission."
^DD(783,4.11,21,3,0)="This corresponds to the Austin FSOD database TRANS_TUB_FIM."
^DD(783,4.11,"DT")="3020830"
^DD(783,4.12,0)="A LOCOM WALK^F^^4;12^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.12,3)="Answer must be 1 character in length."
^DD(783,4.12,21,0)="^^5^5^3030205^"
^DD(783,4.12,21,1,0)="This field pertains to locom walk."
^DD(783,4.12,21,2,0)="This corresponds to the Austin FSOD database LOCOM_WALK_FIM."
^DD(783,4.12,21,3,0)=""
^DD(783,4.12,21,4,0)="This field contains the FIM Score for assessment of locom walk for"
^DD(783,4.12,21,5,0)="admission"
^DD(783,4.12,"DT")="3020830"
^DD(783,4.13,0)="A LOCOM STAIR^F^^4;13^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.13,3)="Answer must be 1 character in length."
^DD(783,4.13,21,0)="^.001^3^3^3030205^^"
^DD(783,4.13,21,1,0)="This field contains the FIM Score for assessment of locom stair for"
^DD(783,4.13,21,2,0)="admission."
^DD(783,4.13,21,3,0)="This corresponds to the Austin FSOD database LOCUM_STAIR_FIM."
^DD(783,4.13,"DT")="3020830"
^DD(783,4.14,0)="A COMPREHEND^F^^4;14^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.14,3)="Answer must be 1 character in length."
^DD(783,4.14,21,0)="^.001^4^4^3030205^^"
^DD(783,4.14,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.14,21,2,0)="field COMPREHEND_FIM"
^DD(783,4.14,21,3,0)="This field contains the FIM Score for assessment of comprehending for"
^DD(783,4.14,21,4,0)="admission."
^DD(783,4.14,"DT")="3020830"
^DD(783,4.15,0)="A EXPRESS^F^^4;15^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.15,3)="Answer must be 1 character in length."
^DD(783,4.15,21,0)="^^3^3^3030205^"
^DD(783,4.15,21,1,0)="This field contains the FIM Score for assessment of express for"
^DD(783,4.15,21,2,0)="admission."
^DD(783,4.15,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_FIM."
^DD(783,4.15,"DT")="3020830"
^DD(783,4.16,0)="A INTERACT^F^^4;16^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.16,3)="Answer must be 1 character in length."
^DD(783,4.16,21,0)="^.001^4^4^3030205^^"
^DD(783,4.16,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.16,21,2,0)="field INTERACT_FIM"
^DD(783,4.16,21,3,0)="This field contains the FIM Score for assessment of interacting for"
^DD(783,4.16,21,4,0)="admission."
^DD(783,4.16,"DT")="3020830"
^DD(783,4.17,0)="A PROBLEM^F^^4;17^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.17,3)="Answer must be 1 character in length."
^DD(783,4.17,21,0)="^^3^3^3030205^"
^DD(783,4.17,21,1,0)="This field contains the FIM Score for assessment of a problem for"
^DD(783,4.17,21,2,0)="admission."
^DD(783,4.17,21,3,0)="This corresponds to the Austin FSOD database PROBLEM_FIM."
^DD(783,4.17,"DT")="3020830"
^DD(783,4.18,0)="A MEMORY^F^^4;18^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.18,3)="Answer must be 1 character in length."
^DD(783,4.18,21,0)="^.001^3^3^3030205^^"
^DD(783,4.18,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.18,21,2,0)="field MEMORY_FIM"
^DD(783,4.18,21,3,0)="This field contains the FIM Score for assessment of memory for admission."
^DD(783,4.18,"DT")="3020830"
^DD(783,4.19,0)="A WALK MODE^F^^4;19^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.19,3)="Answer must be 1 character in length."
^DD(783,4.19,21,0)="^.001^3^3^3030205^^"
^DD(783,4.19,21,1,0)="This field contains the FIM Score for assessment of walk mode for"
^DD(783,4.19,21,2,0)="admission."
^DD(783,4.19,21,3,0)="This corresponds to the Austin FSOD database WALK_MODE_FIM."
^DD(783,4.19,"DT")="3020830"
^DD(783,4.2,0)="A COMPREHEND MODE^F^^4;20^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.2,3)="Answer must be 1 character in length."
^DD(783,4.2,21,0)="^^3^3^3030205^"
^DD(783,4.2,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,4.2,21,2,0)="field COMPREHEND_MODE.  This field contains the FIM Score for assessment"
^DD(783,4.2,21,3,0)="of comprehend mode for admission."
^DD(783,4.2,"DT")="3020830"
^DD(783,4.21,0)="A EXPRESS MODE^F^^4;21^K:$L(X)>1!($L(X)<1) X"
^DD(783,4.21,3)="Answer must be 1 character in length."
^DD(783,4.21,21,0)="^^3^3^3030205^"
^DD(783,4.21,21,1,0)="This field contains the FIM Score for assessment of express mode for"
^DD(783,4.21,21,2,0)="admission."
^DD(783,4.21,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_MODE_FIM."
^DD(783,4.21,"DT")="3020830"
^DD(783,5.01,0)="D EAT^F^^5;1^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.01,3)="Answer must be 1 character in length."
^DD(783,5.01,21,0)="^^2^2^3030205^"
^DD(783,5.01,21,1,0)="This field contains the FIM Score for assessment of eating for discharge."
^DD(783,5.01,21,2,0)="This corresponds to the Austin FSOD database EAT_FIM."
^DD(783,5.01,"DT")="3020830"
^DD(783,5.02,0)="D GROOM^F^^5;2^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.02,3)="Answer must be 1 character in length."
^DD(783,5.02,21,0)="^.001^3^3^3030205^^"
^DD(783,5.02,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.02,21,2,0)="field GROOM_FIM"
^DD(783,5.02,21,3,0)="This field contains the FIM Score for assessment of grooming for discharge"
^DD(783,5.02,"DT")="3020830"
^DD(783,5.03,0)="D BATH^F^^5;3^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.03,3)="Answer must be 1 character in length."
^DD(783,5.03,21,0)="^^2^2^3030205^"
^DD(783,5.03,21,1,0)="This field contains the FIM Score for assessment of bathing for discharge."
^DD(783,5.03,21,2,0)="This corresponds to the Austin FSOD database BATH_FIM."
^DD(783,5.03,"DT")="3020830"
^DD(783,5.04,0)="D DRESS UP^F^^5;4^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.04,3)="Answer must be 1 character in length."
^DD(783,5.04,21,0)="^.001^3^3^3030205^^"
^DD(783,5.04,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.04,21,2,0)="field DRESS_UP_FIM"
^DD(783,5.04,21,3,0)="This field contains the FIM Score for assessment of dressing for discharge"
^DD(783,5.04,"DT")="3020830"
^DD(783,5.05,0)="D DRESS LO^F^^5;5^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.05,3)="Answer must be 1 character in length."
^DD(783,5.05,21,0)="^^3^3^3030205^"
^DD(783,5.05,21,1,0)="This field contains the FIM Score for assessment of dressing for"
^DD(783,5.05,21,2,0)="discharge."
^DD(783,5.05,21,3,0)="This corresponds to the Austin FSOD database DRESS_LO_FIM."
^DD(783,5.05,"DT")="3020830"
^DD(783,5.06,0)="D TOILET^F^^5;6^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.06,3)="Answer must be 1 character in length."
^DD(783,5.06,21,0)="^^4^4^3030205^"
^DD(783,5.06,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.06,21,2,0)="field TOILET_FIM"
^DD(783,5.06,21,3,0)="This field contains the FIM Score for assessment of toileting for"
^DD(783,5.06,21,4,0)="discharge"
^DD(783,5.06,"DT")="3020830"
^DD(783,5.07,0)="D BLADDER^F^^5;7^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.07,3)="Answer must be 1 character in length."
^DD(783,5.07,21,0)="^^3^3^3030205^"
^DD(783,5.07,21,1,0)="This field contains the FIM Score for assessment of bladder for"
^DD(783,5.07,21,2,0)="discharge."
^DD(783,5.07,21,3,0)="This corresponds to the Austin FSOD database BLADDER_FIM."
^DD(783,5.07,"DT")="3020830"
^DD(783,5.08,0)="D BOWEL^F^^5;8^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.08,3)="Answer must be 1 character in length."
^DD(783,5.08,21,0)="^^4^4^3030205^"
^DD(783,5.08,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.08,21,2,0)="field BOWEL_FIM"
^DD(783,5.08,21,3,0)="This field contains the FIM Score for assessment of bowel functions for"
^DD(783,5.08,21,4,0)="discharge"
^DD(783,5.08,"DT")="3020830"
^DD(783,5.09,0)="D TRANS CHAIR^F^^5;9^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.09,3)="Answer must be 1 character in length."
^DD(783,5.09,21,0)="^^3^3^3030205^"
^DD(783,5.09,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,5.09,21,2,0)="chair for discharge."
^DD(783,5.09,21,3,0)="This corresponds to the Austin FSOD database TRANS_CHAIR_FIM."
^DD(783,5.09,"DT")="3020830"
^DD(783,5.1,0)="D TRANS TOILET^F^^5;10^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.1,3)="Answer must be 1 character in length."
^DD(783,5.1,21,0)="^^4^4^3030205^"
^DD(783,5.1,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.1,21,2,0)="field TRANS_TOILET_FIM"
^DD(783,5.1,21,3,0)="This field contains the FIM Score for assessment of transport to toilet"
^DD(783,5.1,21,4,0)="for discharge"
^DD(783,5.1,"DT")="3020830"
^DD(783,5.11,0)="D TRANS TUB^F^^5;11^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.11,3)="Answer must be 1 character in length."
^DD(783,5.11,21,0)="^^3^3^3030205^"
^DD(783,5.11,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,5.11,21,2,0)="tub for discharge."
^DD(783,5.11,21,3,0)="This corresponds to the Austin FSOD database TRANS_TUB_FIM."
^DD(783,5.11,"DT")="3020830"
^DD(783,5.12,0)="D LOCOM WALK^F^^5;12^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.12,3)="Answer must be 1 character in length."
^DD(783,5.12,21,0)="^^3^3^3030205^"
^DD(783,5.12,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.12,21,2,0)="field LOCOM_WALK_FIM.  This field contains the FIM Score for assessment"
^DD(783,5.12,21,3,0)="of locom walk for discharge"
^DD(783,5.12,"DT")="3020830"
^DD(783,5.13,0)="D LOCOM STAIR^F^^5;13^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.13,3)="Answer must be 1 character in length."
^DD(783,5.13,21,0)="^^3^3^3030205^"
^DD(783,5.13,21,1,0)="This field contains the FIM Score for assessment of locom stair for"
^DD(783,5.13,21,2,0)="discharge."
^DD(783,5.13,21,3,0)="This corresponds to the Austin FSOD database LOCUM_STAIR_FIM."
^DD(783,5.13,"DT")="3020830"
^DD(783,5.14,0)="D COMPREHEND^F^^5;14^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.14,3)="Answer must be 1 character in length."
^DD(783,5.14,21,0)="^^3^3^3030205^"
^DD(783,5.14,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.14,21,2,0)="field COMPREHEND_FIM.  This field contains the FIM Score for assessment"
^DD(783,5.14,21,3,0)="of comprehending for discharge"
^DD(783,5.14,"DT")="3020830"
^DD(783,5.15,0)="D EXPRESS^F^^5;15^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.15,3)="Answer must be 1 character in length."
^DD(783,5.15,21,0)="^^3^3^3030205^"
^DD(783,5.15,21,1,0)="This field contains the FIM Score for assessment of express for"
^DD(783,5.15,21,2,0)="discharge."
^DD(783,5.15,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_FIM."
^DD(783,5.15,"DT")="3020830"
^DD(783,5.16,0)="D INTERACT^F^^5;16^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.16,3)="Answer must be 1 character in length."
^DD(783,5.16,21,0)="^^3^3^3030205^"
^DD(783,5.16,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.16,21,2,0)="field INTERACT_FIM.  This field contains the FIM Score for assessment of"
^DD(783,5.16,21,3,0)="interacting for discharge"
^DD(783,5.16,"DT")="3020830"
^DD(783,5.17,0)="D PROBLEM^F^^5;17^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.17,3)="Answer must be 1 character in length."
^DD(783,5.17,21,0)="^^3^3^3030205^"
^DD(783,5.17,21,1,0)="This field contains the FIM Score for assessment of a problem for"
^DD(783,5.17,21,2,0)="discharge."
^DD(783,5.17,21,3,0)="This corresponds to the Austin FSOD database PROBLEM_FIM."
^DD(783,5.17,"DT")="3020830"
^DD(783,5.18,0)="D MEMORY^F^^5;18^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.18,3)="Answer must be 1 character in length."
^DD(783,5.18,21,0)="^^3^3^3030205^"
^DD(783,5.18,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.18,21,2,0)="field MEMORY_FIM.  This field contains the FIM Score for assessment of"
^DD(783,5.18,21,3,0)="memory for discharge"
^DD(783,5.18,"DT")="3020830"
^DD(783,5.19,0)="D WALK MODE^F^^5;19^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.19,3)="Answer must be 1 character in length."
^DD(783,5.19,21,0)="^^3^3^3030205^"
^DD(783,5.19,21,1,0)="This field contains the FIM Score for assessment of walk mode for"
^DD(783,5.19,21,2,0)="discharge."
^DD(783,5.19,21,3,0)="This corresponds to the Austin FSOD database WALK_MODE_FIM."
^DD(783,5.19,"DT")="3020830"
^DD(783,5.2,0)="D COMPREHEND MODE^F^^5;20^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.2,3)="Answer must be 1 character in length."
^DD(783,5.2,21,0)="^^3^3^3030205^"
^DD(783,5.2,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,5.2,21,2,0)="field COMPREHEND_MODE.  This field contains the FIM Score for assessment"
^DD(783,5.2,21,3,0)="of comprehend mode for discharge"
^DD(783,5.2,"DT")="3020830"
^DD(783,5.21,0)="D EXPRESS MODE^F^^5;21^K:$L(X)>1!($L(X)<1) X"
^DD(783,5.21,3)="Answer must be 1 character in length."
^DD(783,5.21,21,0)="^^3^3^3030205^"
^DD(783,5.21,21,1,0)="This field contains the FIM Score for assessment of express mode for"
^DD(783,5.21,21,2,0)="discharge."
^DD(783,5.21,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_MODE_FIM."
^DD(783,5.21,"DT")="3020830"
^DD(783,6.01,0)="I EAT^F^^6;1^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.01,3)="Answer must be 1 character in length."
^DD(783,6.01,21,0)="^^3^3^3030205^"
^DD(783,6.01,21,1,0)="This field contains the FIM Score for assessment of eating for the"
^DD(783,6.01,21,2,0)="interim."
^DD(783,6.01,21,3,0)="This corresponds to the Austin FSOD database EAT_FIM."
^DD(783,6.01,"DT")="3020830"
^DD(783,6.02,0)="I GROOM^F^^6;2^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.02,3)="Answer must be 1 character in length."
^DD(783,6.02,21,0)="^^3^3^3030205^"
^DD(783,6.02,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.02,21,2,0)="field GROOM_FIM"
^DD(783,6.02,21,3,0)="This field contains the FIM Score for assessment of grooming for interm"
^DD(783,6.02,"DT")="3020830"
^DD(783,6.03,0)="I BATH^F^^6;3^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.03,3)="Answer must be 1 character in length."
^DD(783,6.03,21,0)="^^3^3^3030205^"
^DD(783,6.03,21,1,0)="This field contains the FIM Score for assessment of bathing for the"
^DD(783,6.03,21,2,0)="interim."
^DD(783,6.03,21,3,0)="This corresponds to the Austin FSOD database BATH_FIM."
^DD(783,6.03,"DT")="3020830"
^DD(783,6.04,0)="I DRESS UP^F^^6;4^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.04,3)="Answer must be 1 character in length."
^DD(783,6.04,21,0)="^^3^3^3030205^"
^DD(783,6.04,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.04,21,2,0)="field DRESS_UP_FIM.  This field contains the FIM Score for assessment of"
^DD(783,6.04,21,3,0)="dressing for interm"
^DD(783,6.04,"DT")="3020830"
^DD(783,6.05,0)="I DRESS LO^F^^6;5^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.05,3)="Answer must be 1 character in length."
^DD(783,6.05,21,0)="^^3^3^3030205^"
^DD(783,6.05,21,1,0)="This field contains the FIM Score for assessment of dressing for"
^DD(783,6.05,21,2,0)="the interim."
^DD(783,6.05,21,3,0)="This corresponds to the Austin FSOD database DRESS_LO_FIM."
^DD(783,6.05,"DT")="3020830"
^DD(783,6.06,0)="I TOILET^F^^6;6^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.06,3)="Answer must be 1 character in length."
^DD(783,6.06,21,0)="^^3^3^3030205^"
^DD(783,6.06,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.06,21,2,0)="field TOILET_FIM.  This field contains the FIM Score for assessment"
^DD(783,6.06,21,3,0)="of toilet for interm"
^DD(783,6.06,"DT")="3020830"
^DD(783,6.07,0)="I BLADDER^F^^6;7^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.07,3)="Answer must be 1 character in length."
^DD(783,6.07,21,0)="^^3^3^3030205^"
^DD(783,6.07,21,1,0)="This field contains the FIM Score for assessment of bladder for"
^DD(783,6.07,21,2,0)="the interim."
^DD(783,6.07,21,3,0)="This corresponds to the Austin FSOD database BLADDER_FIM."
^DD(783,6.07,"DT")="3020830"
^DD(783,6.08,0)="I BOWEL^F^^6;8^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.08,3)="Answer must be 1 character in length."
^DD(783,6.08,21,0)="^^3^3^3030205^"
^DD(783,6.08,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.08,21,2,0)="field BOWEL_FIM.  This field contains the FIM Score for assessment"
^DD(783,6.08,21,3,0)="of bowel for interm"
^DD(783,6.08,"DT")="3020830"
^DD(783,6.09,0)="I TRANS CHAIR^F^^6;9^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.09,3)="Answer must be 1 character in length."
^DD(783,6.09,21,0)="^^3^3^3030205^"
^DD(783,6.09,21,1,0)="This field contains the FIM Score for assessment of transport to a chair"
^DD(783,6.09,21,2,0)="for the iterim."
^DD(783,6.09,21,3,0)="This corresponds to the Austin FSOD database TRANS_CHAIR_FIM."
^DD(783,6.09,"DT")="3020830"
^DD(783,6.1,0)="I TRANS TOILET^F^^6;10^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.1,3)="Answer must be 1 character in length."
^DD(783,6.1,21,0)="^^4^4^3030205^"
^DD(783,6.1,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.1,21,2,0)="field TRANS_TOILET_FIM"
^DD(783,6.1,21,3,0)="This field contains the FIM Score for assessment of transport to toilet"
^DD(783,6.1,21,4,0)="for interm"
^DD(783,6.1,"DT")="3020830"
^DD(783,6.11,0)="I TRANS TUB^F^^6;11^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.11,3)="Answer must be 1 character in length."
^DD(783,6.11,21,0)="^^3^3^3030205^"
^DD(783,6.11,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,6.11,21,2,0)="tub for the interim."
^DD(783,6.11,21,3,0)="This corresponds to the Austin FSOD database TRANS_TUB_FIM."
^DD(783,6.11,"DT")="3020830"
^DD(783,6.12,0)="I LOCOM WALK^F^^6;12^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.12,3)="Answer must be 1 character in length."
^DD(783,6.12,21,0)="^^3^3^3030205^"
^DD(783,6.12,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.12,21,2,0)="field LOCOM_WALK_FIM.  This field contains the FIM Score for assessment"
^DD(783,6.12,21,3,0)="of locom walk for interm"
^DD(783,6.12,"DT")="3020830"
^DD(783,6.13,0)="I LOCOM STAIR^F^^6;13^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.13,3)="Answer must be 1 character in length."
^DD(783,6.13,21,0)="^^3^3^3030205^"
^DD(783,6.13,21,1,0)="This field contains the FIM Score for assessment of locom stair for"
^DD(783,6.13,21,2,0)="the interim."
^DD(783,6.13,21,3,0)="This corresponds to the Austin FSOD database LOCUM_STAIR_FIM."
^DD(783,6.13,"DT")="3020830"
^DD(783,6.14,0)="I COMPREHEND^F^^6;14^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.14,3)="Answer must be 1 character in length."
^DD(783,6.14,21,0)="^^3^3^3030205^"
^DD(783,6.14,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.14,21,2,0)="field COMPREHEND_FIM.  This field contains the FIM Score for assessment"
^DD(783,6.14,21,3,0)="of comprehending for interm"
^DD(783,6.14,"DT")="3020830"
^DD(783,6.15,0)="I EXPRESS^F^^6;15^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.15,3)="Answer must be 1 character in length."
^DD(783,6.15,21,0)="^.001^3^3^3030205^^"
^DD(783,6.15,21,1,0)="This field contains the FIM Score for assessment of express for"
^DD(783,6.15,21,2,0)="the interim."
^DD(783,6.15,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_FIM."
^DD(783,6.15,"DT")="3020830"
^DD(783,6.16,0)="I INTERACT^F^^6;16^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.16,3)="Answer must be 1 character in length."
^DD(783,6.16,21,0)="^^3^3^3030205^"
^DD(783,6.16,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.16,21,2,0)="field INTERACT_FIM.  This field contains the FIM Score for assessment of"
^DD(783,6.16,21,3,0)="interacting for interm"
^DD(783,6.16,"DT")="3020830"
^DD(783,6.17,0)="I PROBLEM^F^^6;17^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.17,3)="Answer must be 1 character in length."
^DD(783,6.17,21,0)="^^3^3^3030205^"
^DD(783,6.17,21,1,0)="This field contains the FIM Score for assessment of a problem for"
^DD(783,6.17,21,2,0)="the interim."
^DD(783,6.17,21,3,0)="This corresponds to the Austin FSOD database PROBLEM_FIM."
^DD(783,6.17,"DT")="3020830"
^DD(783,6.18,0)="I MEMORY^F^^6;18^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.18,3)="Answer must be 1 character in length."
^DD(783,6.18,21,0)="^^3^3^3030205^"
^DD(783,6.18,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.18,21,2,0)="field MEMORY_FIM.  This field contains the FIM Score for assessment of"
^DD(783,6.18,21,3,0)="memory for interm"
^DD(783,6.18,"DT")="3020830"
^DD(783,6.19,0)="I WALK MODE^F^^6;19^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.19,3)="Answer must be 1 character in length."
^DD(783,6.19,21,0)="^^3^3^3030205^"
^DD(783,6.19,21,1,0)="This field contains the FIM Score for assessment of walk mode for"
^DD(783,6.19,21,2,0)="the interim."
^DD(783,6.19,21,3,0)="This corresponds to the Austin FSOD database WALK_MODE_FIM."
^DD(783,6.19,"DT")="3020830"
^DD(783,6.2,0)="I COMPREHEND MODE^F^^6;20^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.2,3)="Answer must be 1 character in length."
^DD(783,6.2,21,0)="^^3^3^3030205^"
^DD(783,6.2,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,6.2,21,2,0)="field COMPREHEND_MODE.  This field contains the FIM Score for assessment"
^DD(783,6.2,21,3,0)="of comprehend mode for interm"
^DD(783,6.2,"DT")="3020830"
^DD(783,6.21,0)="I EXPRESS MODE^F^^6;21^K:$L(X)>1!($L(X)<1) X"
^DD(783,6.21,3)="Answer must be 1 character in length."
^DD(783,6.21,21,0)="^^3^3^3030205^"
^DD(783,6.21,21,1,0)="This field contains the FIM Score for assessment of express mode for"
^DD(783,6.21,21,2,0)="the interim."
^DD(783,6.21,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_MODE_FIM."
^DD(783,6.21,"DT")="3020830"
^DD(783,7.01,0)="F EAT^F^^7;1^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.01,3)="Answer must be 1 character in length."
^DD(783,7.01,21,0)="^^3^3^3030205^"
^DD(783,7.01,21,1,0)="This field contains the FIM Score for assessment of eating for follow-up."
^DD(783,7.01,21,2,0)="This corresponds to the Austin FSOD database EAT_FIM."
^DD(783,7.01,21,3,0)="c"
^DD(783,7.01,"DT")="3020830"
^DD(783,7.02,0)="F GROOM^F^^7;2^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.02,3)="Answer must be 1 character in length."
^DD(783,7.02,21,0)="^^3^3^3030205^"
^DD(783,7.02,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.02,21,2,0)="field GROOM_FIM"
^DD(783,7.02,21,3,0)="This field contains the FIM Score for assessment of grooming for followup"
^DD(783,7.02,"DT")="3020830"
^DD(783,7.03,0)="F BATH^F^^7;3^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.03,3)="Answer must be 1 character in length."
^DD(783,7.03,21,0)="^^2^2^3030205^"
^DD(783,7.03,21,1,0)="This field contains the FIM Score for assessment of bathing for follow-up."
^DD(783,7.03,21,2,0)="This corresponds to the Austin FSOD database BATH_FIM."
^DD(783,7.03,"DT")="3020830"
^DD(783,7.04,0)="F DRESS UP^F^^7;4^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.04,3)="Answer must be 1 character in length."
^DD(783,7.04,21,0)="^^3^3^3030205^"
^DD(783,7.04,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.04,21,2,0)="field DRESS_UP_FIM.  This field contains the FIM Score for assessment of"
^DD(783,7.04,21,3,0)="dressing for followup"
^DD(783,7.04,"DT")="3020830"
^DD(783,7.05,0)="F DRESS LO^F^^7;5^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.05,3)="Answer must be 1 character in length."
^DD(783,7.05,21,0)="^^3^3^3030205^"
^DD(783,7.05,21,1,0)="This field contains the FIM Score for assessment of dressing for"
^DD(783,7.05,21,2,0)="follow-up."
^DD(783,7.05,21,3,0)="This corresponds to the Austin FSOD database DRESS_LO_FIM."
^DD(783,7.05,"DT")="3020830"
^DD(783,7.06,0)="F TOILET^F^^7;6^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.06,3)="Answer must be 1 character in length."
^DD(783,7.06,21,0)="^^3^3^3030205^"
^DD(783,7.06,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.06,21,2,0)="field TOILET_FIM.  This field contains the FIM Score for assessment"
^DD(783,7.06,21,3,0)="of toilet for followup"
^DD(783,7.06,"DT")="3020830"
^DD(783,7.07,0)="F BLADDER^F^^7;7^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.07,3)="Answer must be 1 character in length."
^DD(783,7.07,21,0)="^^3^3^3030205^"
^DD(783,7.07,21,1,0)="This field contains the FIM Score for assessment of bladder for"
^DD(783,7.07,21,2,0)="follow-up."
^DD(783,7.07,21,3,0)="This corresponds to the Austin FSOD database BLADDER_FIM."
^DD(783,7.07,"DT")="3020830"
^DD(783,7.08,0)="F BOWEL^F^^7;8^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.08,3)="Answer must be 1 character in length."
^DD(783,7.08,21,0)="^^3^3^3030205^"
^DD(783,7.08,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.08,21,2,0)="field BOWEL_FIM.  This field contains the FIM Score for assessment"
^DD(783,7.08,21,3,0)="of bowel for followup"
^DD(783,7.08,"DT")="3020830"
^DD(783,7.09,0)="F TRANS CHAIR^F^^7;9^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.09,3)="Answer must be 1 character in length."
^DD(783,7.09,21,0)="^^3^3^3030205^"
^DD(783,7.09,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,7.09,21,2,0)="chair for follow-up."
^DD(783,7.09,21,3,0)="This corresponds to the Austin FSOD database TRANS_CHAIR_FIM."
^DD(783,7.09,"DT")="3020830"
^DD(783,7.1,0)="F TRANS TOILET^F^^7;10^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.1,3)="Answer must be 1 character in length."
^DD(783,7.1,21,0)="^^4^4^3030205^"
^DD(783,7.1,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.1,21,2,0)="field TRANS_TOILET_FIM"
^DD(783,7.1,21,3,0)="This field contains the FIM Score for assessment of transport to toilet"
^DD(783,7.1,21,4,0)="for followup"
^DD(783,7.1,"DT")="3020830"
^DD(783,7.11,0)="F TRANS TUB^F^^7;11^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.11,3)="Answer must be 1 character in length."
^DD(783,7.11,21,0)="^^3^3^3030205^"
^DD(783,7.11,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,7.11,21,2,0)="tub for follow-up."
^DD(783,7.11,21,3,0)="This corresponds to the Austin FSOD database TRANS_TUB_FIM."
^DD(783,7.11,"DT")="3020830"
^DD(783,7.12,0)="F LOCOM WALK^F^^7;12^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.12,3)="Answer must be 1 character in length."
^DD(783,7.12,21,0)="^^4^4^3030205^"
^DD(783,7.12,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.12,21,2,0)="field LOCOM_WALK_FIM"
^DD(783,7.12,21,3,0)="This field contains the FIM Score for assessment of locom walk for"
^DD(783,7.12,21,4,0)="followup"
^DD(783,7.12,"DT")="3020830"
^DD(783,7.13,0)="F LOCOM STAIR^F^^7;13^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.13,3)="Answer must be 1 character in length."
^DD(783,7.13,21,0)="^^3^3^3030205^"
^DD(783,7.13,21,1,0)="This field contains the FIM Score for assessment of locom stair for"
^DD(783,7.13,21,2,0)="follow-up."
^DD(783,7.13,21,3,0)="This corresponds to the Austin FSOD database LOCUM_STAIR_FIM."
^DD(783,7.13,"DT")="3020830"
^DD(783,7.14,0)="F COMPREHEND^F^^7;14^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.14,3)="Answer must be 1 character in length."
^DD(783,7.14,21,0)="^.001^2^2^3030205^^"
^DD(783,7.14,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.14,21,2,0)="field COMPREHEND_FIM"
^DD(783,7.14,"DT")="3020830"
^DD(783,7.15,0)="F EXPRESS^F^^7;15^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.15,3)="Answer must be 1 character in length."
^DD(783,7.15,21,0)="^^3^3^3030205^"
^DD(783,7.15,21,1,0)="This field contains the FIM Score for assessment of express for"
^DD(783,7.15,21,2,0)="follow-up."
^DD(783,7.15,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_FIM."
^DD(783,7.15,"DT")="3020830"
^DD(783,7.16,0)="F INTERACT^F^^7;16^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.16,3)="Answer must be 1 character in length."
^DD(783,7.16,21,0)="^^3^3^3030205^"
^DD(783,7.16,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.16,21,2,0)="field INTERACT_FIM.  This field contains the FIM Score for assessment of"
^DD(783,7.16,21,3,0)="interacting for interm"
^DD(783,7.16,"DT")="3020830"
^DD(783,7.17,0)="F PROBLEM^F^^7;17^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.17,3)="Answer must be 1 character in length."
^DD(783,7.17,21,0)="^^3^3^3030205^"
^DD(783,7.17,21,1,0)="This field contains the FIM Score for assessment of a problem for"
^DD(783,7.17,21,2,0)="follow-up."
^DD(783,7.17,21,3,0)="This corresponds to the Austin FSOD database PROBLEM_FIM."
^DD(783,7.17,"DT")="3020830"
^DD(783,7.18,0)="F MEMORY^F^^7;18^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.18,3)="Answer must be 1 character in length."
^DD(783,7.18,21,0)="^^3^3^3030205^"
^DD(783,7.18,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.18,21,2,0)="field MEMORY_FIM.  This field contains the FIM Score for assessment of"
^DD(783,7.18,21,3,0)="memory for followup"
^DD(783,7.18,"DT")="3020830"
^DD(783,7.19,0)="F WALK MODE^F^^7;19^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.19,3)="Answer must be 1 character in length."
^DD(783,7.19,21,0)="^^3^3^3030205^"
^DD(783,7.19,21,1,0)="This field contains the FIM Score for assessment of walk mode for"
^DD(783,7.19,21,2,0)="follow-up."
^DD(783,7.19,21,3,0)="This corresponds to the Austin FSOD database WALK_MODE_FIM."
^DD(783,7.19,"DT")="3020830"
^DD(783,7.2,0)="F COMPREHEND MODE^F^^7;20^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.2,3)="Answer must be 1 character in length."
^DD(783,7.2,21,0)="^^3^3^3030205^"
^DD(783,7.2,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,7.2,21,2,0)="field COMPREHEND_MODE.  This field contains the FIM Score for assessment"
^DD(783,7.2,21,3,0)="of comprehend mode for followup"
^DD(783,7.2,"DT")="3020830"
^DD(783,7.21,0)="F EXPRESS MODE^F^^7;21^K:$L(X)>1!($L(X)<1) X"
^DD(783,7.21,3)="Answer must be 1 character in length."
^DD(783,7.21,21,0)="^^3^3^3030205^"
^DD(783,7.21,21,1,0)="This field contains the FIM Score for assessment of express mode for"
^DD(783,7.21,21,2,0)="follow-up."
^DD(783,7.21,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_MODE_FIM."
^DD(783,7.21,"DT")="3020830"
^DD(783,8.01,0)="G EAT^F^^8;1^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.01,3)="Answer must be 1 character in length."
^DD(783,8.01,21,0)="^^2^2^3030205^"
^DD(783,8.01,21,1,0)="This field contains the FIM Score for assessment of eating for goals."
^DD(783,8.01,21,2,0)="This corresponds to the Austin FSOD database EAT_FIM."
^DD(783,8.01,"DT")="3020830"
^DD(783,8.02,0)="G GROOM^F^^8;2^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.02,3)="Answer must be 1 character in length."
^DD(783,8.02,21,0)="^^3^3^3030205^"
^DD(783,8.02,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.02,21,2,0)="field GROOM_FIM"
^DD(783,8.02,21,3,0)="This field contains the FIM Score for assessment of grooming for goals"
^DD(783,8.02,"DT")="3020830"
^DD(783,8.03,0)="G BATH^F^^8;3^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.03,3)="Answer must be 1 character in length."
^DD(783,8.03,21,0)="^^2^2^3030205^"
^DD(783,8.03,21,1,0)="This field contains the FIM Score for assessment of bathing for goals"
^DD(783,8.03,21,2,0)="This corresponds to the Austin FSOD database BATH_FIM."
^DD(783,8.03,"DT")="3020830"
^DD(783,8.04,0)="G DRESS UP^F^^8;4^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.04,3)="Answer must be 1 character in length."
^DD(783,8.04,21,0)="^^3^3^3030205^"
^DD(783,8.04,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.04,21,2,0)="field DRESS_UP_FIM.  This field contains the FIM Score for assessment of"
^DD(783,8.04,21,3,0)="dressing for goals"
^DD(783,8.04,"DT")="3020830"
^DD(783,8.05,0)="G DRESS LO^F^^8;5^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.05,3)="Answer must be 1 character in length."
^DD(783,8.05,21,0)="^.001^3^3^3030205^^"
^DD(783,8.05,21,1,0)="This field contains the FIM Score for assessment of dressing for"
^DD(783,8.05,21,2,0)="goals."
^DD(783,8.05,21,3,0)="This corresponds to the Austin FSOD database DRESS_LO_FIM."
^DD(783,8.05,"DT")="3020830"
^DD(783,8.06,0)="G TOILET^F^^8;6^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.06,3)="Answer must be 1 character in length."
^DD(783,8.06,21,0)="^^3^3^3030205^"
^DD(783,8.06,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.06,21,2,0)="field TOILET_FIM.  This field contains the FIM Score for assessment"
^DD(783,8.06,21,3,0)="of toilet for goal"
^DD(783,8.06,"DT")="3020830"
^DD(783,8.07,0)="G BLADDER^F^^8;7^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.07,3)="Answer must be 1 character in length."
^DD(783,8.07,21,0)="^^3^3^3030205^"
^DD(783,8.07,21,1,0)="This field contains the FIM Score for assessment of bladder for"
^DD(783,8.07,21,2,0)="goals."
^DD(783,8.07,21,3,0)="This corresponds to the Austin FSOD database BLADDER_FIM."
^DD(783,8.07,"DT")="3020830"
^DD(783,8.08,0)="G BOWEL^F^^8;8^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.08,3)="Answer must be 1 character in length."
^DD(783,8.08,21,0)="^^3^3^3030205^"
^DD(783,8.08,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.08,21,2,0)="field BOWEL_FIM.  This field contains the FIM Score for assessment"
^DD(783,8.08,21,3,0)="of bowel for goals"
^DD(783,8.08,"DT")="3020830"
^DD(783,8.09,0)="G TRANS CHAIR^F^^8;9^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.09,3)="Answer must be 1 character in length."
^DD(783,8.09,21,0)="^.001^2^2^3030205^^"
^DD(783,8.09,21,1,0)="This field pertains to the patient needing to be transported to a chair."
^DD(783,8.09,21,2,0)="This corresponds to the Austin FSOD database TRANS_CHAIR_FIM."
^DD(783,8.09,"DT")="3020830"
^DD(783,8.1,0)="G TRANS TOILET^F^^8;10^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.1,3)="Answer must be 1 character in length."
^DD(783,8.1,21,0)="^^4^4^3030205^"
^DD(783,8.1,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.1,21,2,0)="field TRANS_TOILET_FIM"
^DD(783,8.1,21,3,0)="This field contains the FIM Score for assessment of transport to toilet"
^DD(783,8.1,21,4,0)="for goals"
^DD(783,8.1,"DT")="3020830"
^DD(783,8.11,0)="G TRANS TUB^F^^8;11^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.11,3)="Answer must be 1 character in length."
^DD(783,8.11,21,0)="^^3^3^3030205^"
^DD(783,8.11,21,1,0)="This field contains the FIM Score for assessment of transport to a"
^DD(783,8.11,21,2,0)="tub for admission."
^DD(783,8.11,21,3,0)="This corresponds to the Austin FSOD database TRANS_TUB_FIM."
^DD(783,8.11,"DT")="3020830"
^DD(783,8.12,0)="G LOCOM WALK^F^^8;12^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.12,3)="Answer must be 1 character in length."
^DD(783,8.12,21,0)="^^3^3^3030205^"
^DD(783,8.12,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.12,21,2,0)="field LOCOM_WALK_FIM.  This field contains the FIM Score for assessment"
^DD(783,8.12,21,3,0)="of locom walk for goals"
^DD(783,8.12,"DT")="3020830"
^DD(783,8.13,0)="G LOCOM STAIR^F^^8;13^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.13,3)="Answer must be 1 character in length."
^DD(783,8.13,21,0)="^^3^3^3030205^"
^DD(783,8.13,21,1,0)="This field contains the FIM Score for assessment of locom stair for"
^DD(783,8.13,21,2,0)="goals."
^DD(783,8.13,21,3,0)="This corresponds to the Austin FSOD database LOCUM_STAIR_FIM."
^DD(783,8.13,"DT")="3020830"
^DD(783,8.14,0)="G COMPREHEND^F^^8;14^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.14,3)="Answer must be 1 character in length."
^DD(783,8.14,21,0)="^^3^3^3030205^"
^DD(783,8.14,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.14,21,2,0)="field COMPREHEND_FIM.  This field contains the FIM Score for assessment"
^DD(783,8.14,21,3,0)="of comprehending for goals"
^DD(783,8.14,"DT")="3020830"
^DD(783,8.15,0)="G EXPRESS^F^^8;15^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.15,3)="Answer must be 1 character in length."
^DD(783,8.15,21,0)="^^3^3^3030205^"
^DD(783,8.15,21,1,0)="This field contains the FIM Score for assessment of express for"
^DD(783,8.15,21,2,0)="goals."
^DD(783,8.15,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_FIM."
^DD(783,8.15,"DT")="3020830"
^DD(783,8.16,0)="G INTERACT^F^^8;16^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.16,3)="Answer must be 1 character in length."
^DD(783,8.16,21,0)="^^3^3^3030205^"
^DD(783,8.16,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.16,21,2,0)="field INTERACT_FIM.  This field contains the FIM Score for assessment of"
^DD(783,8.16,21,3,0)="interacting for goals"
^DD(783,8.16,"DT")="3020830"
^DD(783,8.17,0)="G PROBLEM^F^^8;17^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.17,3)="Answer must be 1 character in length."
^DD(783,8.17,21,0)="^^3^3^3030205^"
^DD(783,8.17,21,1,0)="This field contains the FIM Score for assessment of a problem for"
^DD(783,8.17,21,2,0)="goals."
^DD(783,8.17,21,3,0)="This corresponds to the Austin FSOD database PROBLEM_FIM."
^DD(783,8.17,"DT")="3020830"
^DD(783,8.18,0)="G MEMORY^F^^8;18^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.18,3)="Answer must be 1 character in length."
^DD(783,8.18,21,0)="^^3^3^3030205^"
^DD(783,8.18,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.18,21,2,0)="field MEMORY_FIM.  This field contains the FIM Score for assessment of"
^DD(783,8.18,21,3,0)="memory for goals"
^DD(783,8.18,"DT")="3020830"
^DD(783,8.19,0)="G WALK MODE^F^^8;19^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.19,3)="Answer must be 1 character in length."
^DD(783,8.19,21,0)="^^3^3^3030205^"
^DD(783,8.19,21,1,0)="This field contains the FIM Score for assessment of walk mode for"
^DD(783,8.19,21,2,0)="goals."
^DD(783,8.19,21,3,0)="This corresponds to the Austin FSOD database WALK_MODE_FIM."
^DD(783,8.19,"DT")="3020830"
^DD(783,8.2,0)="G COMPREHEND MODE^F^^8;20^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.2,3)="Answer must be 1 character in length."
^DD(783,8.2,21,0)="^^3^3^3030205^"
^DD(783,8.2,21,1,0)="Free text entry of only one character and is linked to the FSOD Database"
^DD(783,8.2,21,2,0)="field COMPREHEND_MODE.  This field contains the FIM Score for assessment"
^DD(783,8.2,21,3,0)="of comprehend mode for goals"
^DD(783,8.2,"DT")="3020830"
^DD(783,8.21,0)="G EXPRESS MODE^F^^8;21^K:$L(X)>1!($L(X)<1) X"
^DD(783,8.21,3)="Answer must be 1 character in length."
^DD(783,8.21,21,0)="^^3^3^3030205^"
^DD(783,8.21,21,1,0)="This field contains the FIM Score for assessment of express mode for"
^DD(783,8.21,21,2,0)="goals."
^DD(783,8.21,21,3,0)="This corresponds to the Austin FSOD database EXPRESS_MODE_FIM."
^DD(783,8.21,"DT")="3020830"
^DD(783,100,0)="NOTE^783.01^^100;0"
^DD(783,100,21,0)="^^2^2^3030206^"
^DD(783,100,21,1,0)="This is where case notes from the FIM form is stored.  This does not get"
^DD(783,100,21,2,0)="transmitted to Austin."
^DD(783,"B","A BATH",4.03)=""
^DD(783,"B","A BLADDER",4.07)=""
^DD(783,"B","A BOWEL",4.08)=""
^DD(783,"B","A COMPREHEND",4.14)=""
^DD(783,"B","A COMPREHEND MODE",4.2)=""
^DD(783,"B","A DRESS LO",4.05)=""
^DD(783,"B","A DRESS UP",4.04)=""
^DD(783,"B","A EAT",4.01)=""
^DD(783,"B","A EXPRESS",4.15)=""
^DD(783,"B","A EXPRESS MODE",4.21)=""
^DD(783,"B","A GROOM",4.02)=""
^DD(783,"B","A INTERACT",4.16)=""
^DD(783,"B","A LOCOM STAIR",4.13)=""
^DD(783,"B","A LOCOM WALK",4.12)=""
^DD(783,"B","A MEMORY",4.18)=""
^DD(783,"B","A PROBLEM",4.17)=""
^DD(783,"B","A TOILET",4.06)=""
^DD(783,"B","A TRANS CHAIR",4.09)=""
^DD(783,"B","A TRANS TOILET",4.1)=""
^DD(783,"B","A TRANS TUB",4.11)=""
^DD(783,"B","A WALK MODE",4.19)=""
^DD(783,"B","ACTIVE MIL IND",1.09)=""
^DD(783,"B","ADMIT CLASS",2.01)=""
^DD(783,"B","ADMIT DATE",.1)=""
^DD(783,"B","ASIA CODE",2.11)=""
^DD(783,"B","AUSTIN STATUS",.2)=""
^DD(783,"B","CITY",1.02)=""
^DD(783,"B","D BATH",5.03)=""
^DD(783,"B","D BLADDER",5.07)=""
^DD(783,"B","D BOWEL",5.08)=""
^DD(783,"B","D COMPREHEND",5.14)=""
^DD(783,"B","D COMPREHEND MODE",5.2)=""
^DD(783,"B","D DRESS LO",5.05)=""
^DD(783,"B","D DRESS UP",5.04)=""
^DD(783,"B","D EAT",5.01)=""
^DD(783,"B","D EXPRESS",5.15)=""
^DD(783,"B","D EXPRESS MODE",5.21)=""
^DD(783,"B","D GROOM",5.02)=""
^DD(783,"B","D INTERACT",5.16)=""
^DD(783,"B","D LOCOM STAIR",5.13)=""
^DD(783,"B","D LOCOM WALK",5.12)=""
^DD(783,"B","D MEMORY",5.18)=""
^DD(783,"B","D PROBLEM",5.17)=""
^DD(783,"B","D TOILET",5.06)=""
^DD(783,"B","D TRANS CHAIR",5.09)=""
^DD(783,"B","D TRANS TOILET",5.1)=""
^DD(783,"B","D TRANS TUB",5.11)=""
^DD(783,"B","D WALK MODE",5.19)=""
^DD(783,"B","DISCHARGE DATE",.11)=""
^DD(783,"B","EDIT DATE",.12)=""
^DD(783,"B","EMAIL ID",.17)=""
^DD(783,"B","ENTRY NUMBER",.01)=""
^DD(783,"B","ERROR DESCRIPTION",.21)=""
^DD(783,"B","ETHNIC CODE",1.07)=""
^DD(783,"B","F BATH",7.03)=""
^DD(783,"B","F BLADDER",7.07)=""
^DD(783,"B","F BOWEL",7.08)=""
^DD(783,"B","F COMPREHEND",7.14)=""
^DD(783,"B","F COMPREHEND MODE",7.2)=""
^DD(783,"B","F DRESS LO",7.05)=""
^DD(783,"B","F DRESS UP",7.04)=""
^DD(783,"B","F EAT",7.01)=""
^DD(783,"B","F EXPRESS",7.15)=""
^DD(783,"B","F EXPRESS MODE",7.21)=""
^DD(783,"B","F GROOM",7.02)=""
^DD(783,"B","F INTERACT",7.16)=""
^DD(783,"B","F LOCOM STAIR",7.13)=""
^DD(783,"B","F LOCOM WALK",7.12)=""
^DD(783,"B","F MEMORY",7.18)=""
^DD(783,"B","F PROBLEM",7.17)=""
^DD(783,"B","F TOILET",7.06)=""
^DD(783,"B","F TRANS CHAIR",7.09)=""
^DD(783,"B","F TRANS TOILET",7.1)=""
^DD(783,"B","F TRANS TUB",7.11)=""
^DD(783,"B","F WALK MODE",7.19)=""
^DD(783,"B","FACILITY CODE",.06)=""
^DD(783,"B","G BATH",8.03)=""
^DD(783,"B","G BLADDER",8.07)=""
^DD(783,"B","G BOWEL",8.08)=""
^DD(783,"B","G COMPREHEND",8.14)=""
^DD(783,"B","G COMPREHEND MODE",8.2)=""
^DD(783,"B","G DRESS LO",8.05)=""
^DD(783,"B","G DRESS UP",8.04)=""
^DD(783,"B","G EAT",8.01)=""
^DD(783,"B","G EXPRESS",8.15)=""
^DD(783,"B","G EXPRESS MODE",8.21)=""
^DD(783,"B","G GROOM",8.02)=""
^DD(783,"B","G INTERACT",8.16)=""
^DD(783,"B","G LOCOM STAIR",8.13)=""
^DD(783,"B","G LOCOM WALK",8.12)=""
^DD(783,"B","G MEMORY",8.18)=""
^DD(783,"B","G PROBLEM",8.17)=""
^DD(783,"B","G TOILET",8.06)=""
^DD(783,"B","G TRANS CHAIR",8.09)=""
^DD(783,"B","G TRANS TOILET",8.1)=""
^DD(783,"B","G TRANS TUB",8.11)=""
^DD(783,"B","G WALK MODE",8.19)=""
^DD(783,"B","GENDER CODE",1.06)=""
^DD(783,"B","I BATH",6.03)=""
^DD(783,"B","I BLADDER",6.07)=""
^DD(783,"B","I BOWEL",6.08)=""
^DD(783,"B","I COMPREHEND",6.14)=""
^DD(783,"B","I COMPREHEND MODE",6.2)=""
^DD(783,"B","I DRESS LO",6.05)=""
^DD(783,"B","I DRESS UP",6.04)=""
^DD(783,"B","I EAT",6.01)=""
^DD(783,"B","I EXPRESS",6.15)=""
^DD(783,"B","I EXPRESS MODE",6.21)=""
^DD(783,"B","I GROOM",6.02)=""
^DD(783,"B","I INTERACT",6.16)=""
^DD(783,"B","I LOCOM STAIR",6.13)=""
^DD(783,"B","I LOCOM WALK",6.12)=""
^DD(783,"B","I MEMORY",6.18)=""
^DD(783,"B","I PROBLEM",6.17)=""
^DD(783,"B","I TOILET",6.06)=""
^DD(783,"B","I TRANS CHAIR",6.09)=""
^DD(783,"B","I TRANS TOILET",6.1)=""
^DD(783,"B","I TRANS TUB",6.11)=""
^DD(783,"B","I WALK MODE",6.19)=""
^DD(783,"B","IMPAIRMENT GROUP",.08)=""
^DD(783,"B","INTERRUPTION CODE",2.03)=""
^DD(783,"B","MARITAL CODE",1.08)=""
^DD(783,"B","NOTE",100)=""
^DD(783,"B","ONSET DATE",.09)=""
^DD(783,"B","OP CODE",.14)=""
^DD(783,"B","PATIENT",.03)=""
^DD(783,"B","POSTAL CODE",1.04)=""
^DD(783,"B","PROG NOTE IEN",.16)=""
^DD(783,"B","PT DOB",.05)=""
^DD(783,"B","PT ID",.04)=""
^DD(783,"B","READY FOR XMIT",.15)=""
^DD(783,"B","RETURN 1 DATE",2.05)=""
^DD(783,"B","RETURN 2 DATE",2.07)=""
^DD(783,"B","RETURN 3 DATE",2.09)=""
^DD(783,"B","SITE CASE NUMBER",.02)=""
^DD(783,"B","STATE",1.03)=""
^DD(783,"B","STREET",1.01)=""
^DD(783,"B","TELEPHONE",1.05)=""
^DD(783,"B","TRANSFER 1 DATE",2.04)=""
^DD(783,"B","TRANSFER 2 DATE",2.06)=""
^DD(783,"B","TRANSFER 3 DATE",2.08)=""
^DD(783,"B","TYPE OF CARE",.07)=""
^DD(783,"B","XMIT DATE",.13)=""
^DD(783,"GL",0,1,.01)=""
^DD(783,"GL",0,2,.02)=""
^DD(783,"GL",0,3,.03)=""
^DD(783,"GL",0,4,.04)=""
^DD(783,"GL",0,5,.05)=""
^DD(783,"GL",0,6,.06)=""
^DD(783,"GL",0,7,.07)=""
^DD(783,"GL",0,8,.08)=""
^DD(783,"GL",0,9,.09)=""
^DD(783,"GL",0,10,.1)=""
^DD(783,"GL",0,11,.11)=""
^DD(783,"GL",0,12,.12)=""
^DD(783,"GL",0,13,.13)=""
^DD(783,"GL",0,14,.14)=""
^DD(783,"GL",0,15,.15)=""
^DD(783,"GL",0,16,.16)=""
^DD(783,"GL",0,17,.17)=""
^DD(783,"GL",1,1,1.01)=""
^DD(783,"GL",1,2,1.02)=""
^DD(783,"GL",1,3,1.03)=""
^DD(783,"GL",1,4,1.04)=""
^DD(783,"GL",1,5,1.05)=""
^DD(783,"GL",1,6,1.06)=""
^DD(783,"GL",1,7,1.07)=""
^DD(783,"GL",1,8,1.08)=""
^DD(783,"GL",1,9,1.09)=""
^DD(783,"GL",2,1,2.01)=""
^DD(783,"GL",2,3,2.03)=""
^DD(783,"GL",2,4,2.04)=""
^DD(783,"GL",2,5,2.05)=""
^DD(783,"GL",2,6,2.06)=""
^DD(783,"GL",2,7,2.07)=""
^DD(783,"GL",2,8,2.08)=""
^DD(783,"GL",2,9,2.09)=""
^DD(783,"GL",2,11,2.11)=""
^DD(783,"GL",4,1,4.01)=""
^DD(783,"GL",4,2,4.02)=""
^DD(783,"GL",4,3,4.03)=""
^DD(783,"GL",4,4,4.04)=""
^DD(783,"GL",4,5,4.05)=""
^DD(783,"GL",4,6,4.06)=""
^DD(783,"GL",4,7,4.07)=""
^DD(783,"GL",4,8,4.08)=""
^DD(783,"GL",4,9,4.09)=""
^DD(783,"GL",4,10,4.1)=""
^DD(783,"GL",4,11,4.11)=""
^DD(783,"GL",4,12,4.12)=""
^DD(783,"GL",4,13,4.13)=""
^DD(783,"GL",4,14,4.14)=""
^DD(783,"GL",4,15,4.15)=""
^DD(783,"GL",4,16,4.16)=""
^DD(783,"GL",4,17,4.17)=""
^DD(783,"GL",4,18,4.18)=""
^DD(783,"GL",4,19,4.19)=""
^DD(783,"GL",4,20,4.2)=""
^DD(783,"GL",4,21,4.21)=""
^DD(783,"GL",5,1,5.01)=""
^DD(783,"GL",5,2,5.02)=""
^DD(783,"GL",5,3,5.03)=""
^DD(783,"GL",5,4,5.04)=""
^DD(783,"GL",5,5,5.05)=""
^DD(783,"GL",5,6,5.06)=""
^DD(783,"GL",5,7,5.07)=""
^DD(783,"GL",5,8,5.08)=""
^DD(783,"GL",5,9,5.09)=""
^DD(783,"GL",5,10,5.1)=""
^DD(783,"GL",5,11,5.11)=""
^DD(783,"GL",5,12,5.12)=""
^DD(783,"GL",5,13,5.13)=""
^DD(783,"GL",5,14,5.14)=""
^DD(783,"GL",5,15,5.15)=""
^DD(783,"GL",5,16,5.16)=""
^DD(783,"GL",5,17,5.17)=""
^DD(783,"GL",5,18,5.18)=""
^DD(783,"GL",5,19,5.19)=""
^DD(783,"GL",5,20,5.2)=""
^DD(783,"GL",5,21,5.21)=""
^DD(783,"GL",6,1,6.01)=""
^DD(783,"GL",6,2,6.02)=""
^DD(783,"GL",6,3,6.03)=""
^DD(783,"GL",6,4,6.04)=""
^DD(783,"GL",6,5,6.05)=""
^DD(783,"GL",6,6,6.06)=""
^DD(783,"GL",6,7,6.07)=""
^DD(783,"GL",6,8,6.08)=""
^DD(783,"GL",6,9,6.09)=""
^DD(783,"GL",6,10,6.1)=""
^DD(783,"GL",6,11,6.11)=""
^DD(783,"GL",6,12,6.12)=""
^DD(783,"GL",6,13,6.13)=""
^DD(783,"GL",6,14,6.14)=""
^DD(783,"GL",6,15,6.15)=""
^DD(783,"GL",6,16,6.16)=""
^DD(783,"GL",6,17,6.17)=""
^DD(783,"GL",6,18,6.18)=""
^DD(783,"GL",6,19,6.19)=""
^DD(783,"GL",6,20,6.2)=""
^DD(783,"GL",6,21,6.21)=""
^DD(783,"GL",7,1,7.01)=""
^DD(783,"GL",7,2,7.02)=""
^DD(783,"GL",7,3,7.03)=""
^DD(783,"GL",7,4,7.04)=""
^DD(783,"GL",7,5,7.05)=""
^DD(783,"GL",7,6,7.06)=""
^DD(783,"GL",7,7,7.07)=""
^DD(783,"GL",7,8,7.08)=""
^DD(783,"GL",7,9,7.09)=""
^DD(783,"GL",7,10,7.1)=""
^DD(783,"GL",7,11,7.11)=""
^DD(783,"GL",7,12,7.12)=""
^DD(783,"GL",7,13,7.13)=""
^DD(783,"GL",7,14,7.14)=""
^DD(783,"GL",7,15,7.15)=""
^DD(783,"GL",7,16,7.16)=""
^DD(783,"GL",7,17,7.17)=""
^DD(783,"GL",7,18,7.18)=""
^DD(783,"GL",7,19,7.19)=""
^DD(783,"GL",7,20,7.2)=""
^DD(783,"GL",7,21,7.21)=""
^DD(783,"GL",8,1,8.01)=""
^DD(783,"GL",8,2,8.02)=""
^DD(783,"GL",8,3,8.03)=""
^DD(783,"GL",8,4,8.04)=""
^DD(783,"GL",8,5,8.05)=""
^DD(783,"GL",8,6,8.06)=""
^DD(783,"GL",8,7,8.07)=""
^DD(783,"GL",8,8,8.08)=""
^DD(783,"GL",8,9,8.09)=""
^DD(783,"GL",8,10,8.1)=""
^DD(783,"GL",8,11,8.11)=""
^DD(783,"GL",8,12,8.12)=""
^DD(783,"GL",8,13,8.13)=""
^DD(783,"GL",8,14,8.14)=""
^DD(783,"GL",8,15,8.15)=""
^DD(783,"GL",8,16,8.16)=""
^DD(783,"GL",8,17,8.17)=""
^DD(783,"GL",8,18,8.18)=""
^DD(783,"GL",8,19,8.19)=""
^DD(783,"GL",8,20,8.2)=""
^DD(783,"GL",8,21,8.21)=""
^DD(783,"GL",9,1,.2)=""
^DD(783,"GL",9,2,.21)=""
^DD(783,"GL",100,0,100)=""
^DD(783,"IX",.01)=""
^DD(783,"IX",.02)=""
^DD(783,"IX",.03)=""
^DD(783,"IX",.13)=""
^DD(783,"IX",.15)=""
^DD(783,"RQ",.01)=""
^DD(783,"RQ",.02)=""
^DD(783,"SB",783.01,100)=""
^DD(783.01,0)="NOTE SUB-FIELD^^.01^1"
^DD(783.01,0,"DT")="3020830"
^DD(783.01,0,"NM","NOTE")=""
^DD(783.01,0,"UP")="783"
^DD(783.01,.01,0)="NOTE^W^^0;1^Q"
^DD(783.01,.01,"DT")="3020830"
^DD(783.01,"B","NOTE",.01)=""
^DD(783.01,"GL",0,1,.01)=""
^DD(783.9,0)="FIELD^^10^7"
^DD(783.9,0,"DDA")="N"
^DD(783.9,0,"DT")="3021126"
^DD(783.9,0,"IX","B",783.9,.01)=""
^DD(783.9,0,"NM","FUNCTIONAL INDEPENDENCE MEASUREMENT PARAMETER")=""
^DD(783.9,0,"VR")="1.0"
^DD(783.9,0,"VRPK")="FUNCTIONAL INDEPENDENCE"
^DD(783.9,.01,0)="FACILITY NAME^RP4'X^DIC(4,^0;1^S DINUM=1"
^DD(783.9,.01,1,0)="^.1"
^DD(783.9,.01,1,1,0)="783.9^B"
^DD(783.9,.01,1,1,1)="S ^RMIM(783.9,""B"",$E(X,1,30),DA)="""""
^DD(783.9,.01,1,1,2)="K ^RMIM(783.9,""B"",$E(X,1,30),DA)"
^DD(783.9,.01,3)=""
^DD(783.9,.01,21,0)="^^2^2^3030205^"
^DD(783.9,.01,21,1,0)="This field points to the Institution File."
^DD(783.9,.01,21,2,0)="Please enter your Station's Institution entry."
^DD(783.9,.01,"DT")="3020802"
^DD(783.9,.02,0)="HIGHEST CASE NUMBER^NJ9,0IX^^0;2^K X"
^DD(783.9,.02,3)="For internal program use only.  Do not edit!"
^DD(783.9,.02,21,0)="^^2^2^3030205^"
^DD(783.9,.02,21,1,0)="This field is used internally.  Users should not be editing this field"
^DD(783.9,.02,21,2,0)="nor is available to user via any options."
^DD(783.9,.02,"DT")="3020813"
^DD(783.9,.03,0)="MAIL GROUP^P3.8'^XMB(3.8,^0;3^Q"
^DD(783.9,.03,3)=""
^DD(783.9,.03,21,0)="^^2^2^3030205^"
^DD(783.9,.03,21,1,0)="This field points to the Mail Group file.  The entry should contain the"
^DD(783.9,.03,21,2,0)="mail group used for FIM coordinators:  RMIM FSOD."
^DD(783.9,.03,"DT")="3020813"
^DD(783.9,.04,0)="FSOD NOTE TITLE^P8925.1'^TIU(8925.1,^0;4^Q"
^DD(783.9,.04,3)=""
^DD(783.9,.04,21,0)="^^4^4^3030205^"
^DD(783.9,.04,21,1,0)="This field points to the TIU DOCUMENT DEFINITION FILE (#8925.1).  For the"
^DD(783.9,.04,21,2,0)="software to work properly you must input a title.  This title needs to"
^DD(783.9,.04,21,3,0)="reflect that this documentation is going to Austin FSOD (database)."
^DD(783.9,.04,21,4,0)="Example would be FIM TO FSOD NOTE."
^DD(783.9,.04,"DT")="3020917"
^DD(783.9,.05,0)="NON FSOD NOTE TITLE^P8925.1'^TIU(8925.1,^0;5^Q"
^DD(783.9,.05,3)=""
^DD(783.9,.05,21,0)="^.001^4^4^3030214^^"
^DD(783.9,.05,21,1,0)="This field hold the title of the Progress Note that is only used for"
^DD(783.9,.05,21,2,0)="Medical Center documentation.  This field points to the TIU DOCUMENT"
^DD(783.9,.05,21,3,0)="DEFINITION FILE (#8925.1).  You must put a title in for the software to"
^DD(783.9,.05,21,4,0)="work properly.  Example of a title:  FIM Note"
^DD(783.9,.05,"DT")="3020917"
^DD(783.9,.06,0)="CONSULT TITLE^P8925.1'^TIU(8925.1,^0;6^Q"
^DD(783.9,.06,3)=""
^DD(783.9,.06,21,0)="^^2^2^3030205^"
^DD(783.9,.06,21,1,0)="This field points to TIU DOCUMENT DEFINITION FILE (#8925.1).  This title"
^DD(783.9,.06,21,2,0)="should reflect a consult title in the medical record."
^DD(783.9,.06,"DT")="3020917"
^DD(783.9,10,0)="FACILITY CODE^783.9001^^10;0"
^DD(783.9,10,21,0)="^^4^4^3030214^"
^DD(783.9,10,21,1,0)="UDSmr assigned ""facility codes"" to each VA.  The facility codes and the"
^DD(783.9,10,21,2,0)="type of care that is associated with facility codes for the Site are"
^DD(783.9,10,21,3,0)="inputted for each episode in file 783 (FUNCTIONAL INDEPENDENCE"
^DD(783.9,10,21,4,0)="MEASUREMENT RECORD)."
^DD(783.9,"B","CONSULT TITLE",.06)=""
^DD(783.9,"B","FACILITY CODE",10)=""
^DD(783.9,"B","FACILITY NAME",.01)=""
^DD(783.9,"B","FSOD NOTE TITLE",.04)=""
^DD(783.9,"B","HIGHEST CASE NUMBER",.02)=""
^DD(783.9,"B","MAIL GROUP",.03)=""
^DD(783.9,"B","NON FSOD NOTE TITLE",.05)=""
^DD(783.9,"GL",0,1,.01)=""
^DD(783.9,"GL",0,2,.02)=""
^DD(783.9,"GL",0,3,.03)=""
^DD(783.9,"GL",0,4,.04)=""
^DD(783.9,"GL",0,5,.05)=""
^DD(783.9,"GL",0,6,.06)=""
^DD(783.9,"GL",10,0,10)=""
^DD(783.9,"IX",.01)=""
^DD(783.9,"RQ",.01)=""
^DD(783.9,"SB",783.9001,10)=""
^DD(783.9001,0)="FACILITY CODE SUB-FIELD^^.02^2"
^DD(783.9001,0,"DT")="3021115"
^DD(783.9001,0,"IX","B",783.9001,.01)=""
^DD(783.9001,0,"NM","FACILITY CODE")=""
^DD(783.9001,0,"UP")="783.9"
^DD(783.9001,.01,0)="FACILITY CODE^MF^^0;1^K:$L(X)>8!($L(X)<3) X"
^DD(783.9001,.01,1,0)="^.1"
^DD(783.9001,.01,1,1,0)="783.9001^B"
^DD(783.9001,.01,1,1,1)="S ^RMIM(783.9,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(783.9001,.01,1,1,2)="K ^RMIM(783.9,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(783.9001,.01,3)="Answer must be 3-8 characters in length."
^DD(783.9001,.01,21,0)="^^1^1^3030214^"
^DD(783.9001,.01,21,1,0)="UDSmr assigned ""facility codes"" to each VA."
^DD(783.9001,.01,"DT")="3021115"
^DD(783.9001,.02,0)="TYPE OF CARE^S^1:CONTINUUM OF CARE;2:ACUTE CARE;3:SUBACUTE CARE;^0;2^Q"
^DD(783.9001,.02,21,0)="^^1^1^3030214^"
^DD(783.9001,.02,21,1,0)="Care type associated with the facility code."
^DD(783.9001,.02,"DT")="3020813"
^DD(783.9001,"B","FACILITY CODE",.01)=""
^DD(783.9001,"B","TYPE OF CARE",.02)=""
^DD(783.9001,"GL",0,1,.01)=""
^DD(783.9001,"GL",0,2,.02)=""
^DD(783.9001,"IX",.01)=""
^DD(785,0)="FIELD^^98^82"
^DD(785,0,"DDA")="N"
^DD(785,0,"DT")="2941209"
^DD(785,0,"ID","Q")="W:$D(^(5)) ""   "",$P(^(5),U,6)"
^DD(785,0,"ID","QUIT")="W:$D(^(1)) ""   "",$E($P(^(1),U,3),4,5)_""-""_$E($P(^(1),U,3),6,7)_""-""_$E($P(^(1),U,3),2,3)"
^DD(785,0,"IX","ANODE",785,.01)=""
^DD(785,0,"IX","B",785,.01)=""
^DD(785,0,"IX","C",785,2)=""
^DD(785,0,"IX","D",785,1.3)=""
^DD(785,0,"IX","E",785,1.2)=""
^DD(785,0,"NM","EEO COMPLAINTS")=""
^DD(785,.01,0)="COMPLAINANT^RFXO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S X=$$UP^XLFSTR(X) K:(X'?1U.UP1"",""1U.UP) X I $D(X) S STANO=$S($D(EEOYSTN):EEOYSTN,$D(STANO):STANO,1:"""") D NODE^EEOEOSE"
^DD(785,.01,1,0)="^.1"
^DD(785,.01,1,1,0)="785^B"
^DD(785,.01,1,1,1)="S ^EEO(785,""B"",$E(X,1,30),DA)="""""
^DD(785,.01,1,1,2)="K ^EEO(785,""B"",$E(X,1,30),DA)"
^DD(785,.01,1,2,0)="785^ANODE^MUMPS"
^DD(785,.01,1,2,1)="S ^EEO(785,""ANODE"",DA)="""""
^DD(785,.01,1,2,2)="K ^EEO(785,""ANODE"",DA)"
^DD(785,.01,1,2,"%D",0)="^^2^2^2950328^^^^"
^DD(785,.01,1,2,"%D",1,0)="This cross-reference is used solely to assign internal entry numbers to new EEO Complaints."
^DD(785,.01,1,2,"%D",2,0)="The global root for this cross-reference is ^EEO(785,""ANODE"", and the subscript is the internal entry number of the referenced complaint in file #785."
^DD(785,.01,1,2,"DT")="2921016"
^DD(785,.01,2)="S Y(0)=Y D TEST^EEOEOSE"
^DD(785,.01,2.1)="D TEST^EEOEOSE"
^DD(785,.01,3)="Answer must be 3-30 characters in length, all uppercase letters, with no space after the comma."
^DD(785,.01,8.5)="""@"""
^DD(785,.01,21,0)="^^5^5^2951019^^^^"
^DD(785,.01,21,1,0)="Enter the name of the person making the complaint, (Complainant)."
^DD(785,.01,21,2,0)="Enter the name in 'Last,First Middle' format [3-30 Characters.  Do not"
^DD(785,.01,21,3,0)="use numerics or lowercase alphabetic characters.  With the exception of"
^DD(785,.01,21,4,0)="the comma, period, space, hyphen, dash and apostrophe punctuation"
^DD(785,.01,21,5,0)="characters should be avoided."
^DD(785,.01,23,0)="^^1^1^2951019^^^^"
^DD(785,.01,23,1,0)="The ^EEO(785,""ANODE"", includes the station number with the complaint case no. "
^DD(785,.01,"DEL",1,0)="I $$DEL^EEOEOSE"
^DD(785,.01,"DT")="2951020"
^DD(785,.05,0)="STREET ADDRESS^FX^^5;1^K:$L(X)>30!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785,.05,3)="Answer must be 1-30 characters in length and does not contain a "";"" or "":""."
^DD(785,.05,21,0)="^^1^1^2921204^^^^"
^DD(785,.05,21,1,0)="Enter the street address of the complainant's residence."
^DD(785,.05,"DT")="2940328"
^DD(785,.08,0)="CITY^FX^^5;3^K:$L(X)>25!($L(X)<1)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785,.08,3)="Answer must be 1-25 characters in length and may not include a "";"" or a "":"""
^DD(785,.08,21,0)="^^1^1^2940114^"
^DD(785,.08,21,1,0)="The city in which the complainant resides."
^DD(785,.08,"DT")="2940615"
^DD(785,.09,0)="STATE^P5'X^DIC(5,^5;4^Q"
^DD(785,.09,3)="The State in which the complainant resides."
^DD(785,.09,21,0)="^^1^1^2941209^^^"
^DD(785,.09,21,1,0)="The state in which the complainant resides, points to the State file (#5)."
^DD(785,.09,22)=""
^DD(785,.09,"DT")="2940328"
^DD(785,.091,0)="ZIP CODE^FX^^5;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X S:$D(X) EEOXX=1"
^DD(785,.091,3)="Answer must be 5-10 characters in length."
^DD(785,.091,21,0)="^^1^1^2940114^^^"
^DD(785,.091,21,1,0)="The Zip Code portion of the Complainants address, must be either 5 numbers or 5 numbers followed by a ""-"" and 4 more numbers. "
^DD(785,.091,"DT")="2940310"
^DD(785,1.1,0)="CASE^CJ8^^ ; ^X ^DD(785,1.1,9.2) S X=$P(Y(785,1.1,2),Y(785,1.1,3),X),Y(785,1.1,4)=X S X=""OEO"",X=$P(Y(785,1.1,4),X)"
^DD(785,1.1,9)="^"
^DD(785,1.1,9.01)="785^1.3"
^DD(785,1.1,9.1)="$P($P((CASE NO.),""-"",3),""OEO"")"
^DD(785,1.1,9.2)="S Y(785,1.1,1)=$S($D(^EEO(785,D0,5)):^(5),1:""""),Y=$P(Y(785,1.1,1),U,6) X:$D(^DD(785,1.3,2)) ^(2) S X=Y,Y(785,1.1,2)=X S X=""-"",Y(785,1.1,3)=X S X=3"
^DD(785,1.1,21,0)="^^1^1^2941209^^^^"
^DD(785,1.1,21,1,0)="Extracts case from full Case Number format.       "
^DD(785,1.1,"DT")="2940222"
^DD(785,1.2,0)="OEO NUMBER^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785,1.2,1,0)="^.1"
^DD(785,1.2,1,1,0)="785^E"
^DD(785,1.2,1,1,1)="S ^EEO(785,""E"",$E(X,1,30),DA)="""""
^DD(785,1.2,1,1,2)="K ^EEO(785,""E"",$E(X,1,30),DA)"
^DD(785,1.2,1,1,"DT")="2940609"
^DD(785,1.2,3)="Answer must be 3-7 characters in length and not contain either a semicolon or colon.  "
^DD(785,1.2,21,0)="^^1^1^2950327^^^^"
^DD(785,1.2,21,1,0)="The format for OEO# consists of two numbers followed by a dash and up to four more numbers, for example... 93-1109."
^DD(785,1.2,"DT")="2940906"
^DD(785,1.3,0)="CASE NO.^FOX^^5;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785,1.3,1,0)="^.1"
^DD(785,1.3,1,1,0)="785^D"
^DD(785,1.3,1,1,1)="S ^EEO(785,""D"",$E(X,1,30),DA)="""""
^DD(785,1.3,1,1,2)="K ^EEO(785,""D"",$E(X,1,30),DA)"
^DD(785,1.3,1,1,"%D",0)="^^1^1^2950327^^^"
^DD(785,1.3,1,1,"%D",1,0)="Regular cross-reference for the case number."
^DD(785,1.3,1,1,"DT")="2931202"
^DD(785,1.3,2)="S Y(0)=Y S EEO2=$P($G(^EEO(785,D0,0)),U,2) S:EEO2'="""" Y=Y_""   OEO# ""_EEO2"
^DD(785,1.3,2.1)="S EEO2=$P($G(^EEO(785,D0,0)),U,2) S:EEO2'="""" Y=Y_""   OEO# ""_EEO2"
^DD(785,1.3,3)="Answer must be 7-15 characters in length and not contain either a semicolon or colon.   "
^DD(785,1.3,21,0)="^^1^1^2950327^^^^"
^DD(785,1.3,21,1,0)="The number assigned to the EEO Complaint case by this software at initial, and subsequent entry/edit sessions."
^DD(785,1.3,"DT")="2940615"
^DD(785,2,0)="STATION^P4'^DIC(4,^0;3^Q"
^DD(785,2,.1)=""
^DD(785,2,1,0)="^.1^^-1"
^DD(785,2,1,1,0)="785^C"
^DD(785,2,1,1,1)="S ^EEO(785,""C"",$E(X,1,30),DA)="""""
^DD(785,2,1,1,2)="K ^EEO(785,""C"",$E(X,1,30),DA)"
^DD(785,2,1,1,"DT")="2930331"
^DD(785,2,3)="System generated no user input needed."
^DD(785,2,10)="'H"
^DD(785,2,21,0)="^^1^1^2941209^^^^"
^DD(785,2,21,1,0)="The Complainants station name, (The station to which s/he is assigned). "
^DD(785,2,"DT")="2931202"
^DD(785,5,0)="SERVICE^P730'X^ECC(730,^0;4^Q"
^DD(785,5,21,0)="^^2^2^2930726^^^"
^DD(785,5,21,1,0)="The service department to which the complainant belongs.  This points "
^DD(785,5,21,2,0)="to file #730, the National Service file."
^DD(785,5,"DT")="2940328"
^DD(785,6,0)="POSITION/GRADE^FX^^0;5^K:$L(X)>18!($L(X)<10)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785,6,.1)="GRADE"
^DD(785,6,3)="Answer must be 10-18 characters in length.  The following format would normally be used: GS-0334-11.                                                          "
^DD(785,6,21,0)="^^1^1^2950324^^^^"
^DD(785,6,21,1,0)="The pay grade of the complainants position, (pay plan-series-grade)."
^DD(785,6,"DT")="2940615"
^DD(785,6.5,0)="JOB TITLE^FX^^5;19^K:$L(X)>30!($L(X)<3)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785,6.5,3)="Answer must be 3-30 characters in length and cannot contain a colon or semicolon.  "
^DD(785,6.5,21,0)="^^1^1^2950327^^"
^DD(785,6.5,21,1,0)="The job title of the complainant."
^DD(785,6.5,"DT")="2940615"
^DD(785,8,0)="REP'S NAME^FX^^0;7^K:$L(X)>30!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785,8,.1)="REP-NAME"
^DD(785,8,3)="Answer must be 1-30 characters in length and does not contain a "";"" or "":""."
^DD(785,8,21,0)="^^2^2^2950328^^^^"
^DD(785,8,21,1,0)="The name of the person representing the complainant."
^DD(785,8,21,2,0)="  "
^DD(785,8,"DT")="2940615"
^DD(785,9,0)="REP'S PHONE NO.^FX^^0;8^K:$L(X)>20!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785,9,3)="Answer must be 1-20 characters in length and does not contain a "";"" or "":""."
^DD(785,9,21,0)="^^1^1^2940615^^^"
^DD(785,9,21,1,0)="Enter the phone number of the complainant's representative.          "
^DD(785,9,"DT")="2940328"
^DD(785,10,0)="REP'S STREET ADDR.^FX^^0;9^K:$L(X)>25!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785,10,3)="Answer must be 1-25 characters in length and does not contain a "";"" or "":""."
^DD(785,10,21,0)="^^1^1^2921204^^^"
^DD(785,10,21,1,0)="Enter the street address of the complainant's representative."
^DD(785,10,"DT")="2940328"
^DD(785,11,0)="REP'S CITY ADDR.^FX^^0;10^K:$L(X)>25!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785,11,3)="Answer must be 1-25 characters in length and does not contain a "";"" or "":""."
^DD(785,11,21,0)="^^1^1^2921204^^^^"
^DD(785,11,21,1,0)="The city in which the complainant's representative resides."
^DD(785,11,"DT")="2940328"
^DD(785,12,0)="REP'S STATE ADDR.^P5'X^DIC(5,^0;11^Q"
^DD(785,12,3)="The state portion of the representative's mailing address."
^DD(785,12,21,0)="^^1^1^2940114^^^"
^DD(785,12,21,1,0)="The state in which the complainant's representative resides."
^DD(785,12,"DT")="2940328"
^DD(785,13,0)="REP'S ZIP CODE^FX^^0;12^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4.5N)) X"
^DD(785,13,3)="Answer must be 5-10 characters in length."
^DD(785,13,21,0)="^^2^2^2950328^^^^"
^DD(785,13,21,1,0)="Enter the zip code of the complainant's representative in either 5 or 9"
^DD(785,13,21,2,0)="digit format (5 numbers or 5 numbers followed by a ""-"" and four more numbers)."
^DD(785,13,"DT")="2940328"
^DD(785,14,0)="COUNSELOR'S NAME^P200'^VA(200,^1;1^Q"
^DD(785,14,.1)="CON-NAME"
^DD(785,14,3)="The counselor must exist in the New Person file (#200)."
^DD(785,14,21,0)="^^1^1^2950113^^^^"
^DD(785,14,21,1,0)="The name of the counselor assigned to the complainant."
^DD(785,14,"DT")="2941207"
^DD(785,14.1,0)="TOTAL COUNSELOR DAYS^CJ8X^^ ; ^S EN1=$S($P($G(^EEO(785,D0,1)),U,2)>0:""1;2"",$P($G(^EEO(785,D0,6)),U,3)>0:""6;3"",1:""1;3""),EN2=""1;12"" D INPUT^EEOEOSE"
^DD(785,14.1,.1)="TOT COUN DAYS (30)"
^DD(785,14.1,9)="^"
^DD(785,14.1,9.01)=""
^DD(785,14.1,9.1)="S EN1=""1;2"",EN2=""1;12"" D INPUT^EEOEOSE"
^DD(785,14.1,21,0)="^^3^3^2950324^^^^"
^DD(785,14.1,21,1,0)="From the date an EEO counselor is contacted until the Notice of Final "
^DD(785,14.1,21,2,0)="Interview is issued to the Complainant (30 calander days allowed unless"
^DD(785,14.1,21,3,0)="an extension is granted)."
^DD(785,14.1,"DT")="2950112"
^DD(785,14.5,0)="DATE OF INCIDENT^DaX^^1;11^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X I $D(X) S EEOS=14.5,EEOSEQ=""16^14.7^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,14.5,3)="The date the alleged EEO incident occured, cannot be a future date."
^DD(785,14.5,21,0)="^^1^1^2941209^^^^"
^DD(785,14.5,21,1,0)="The date upon which the alleged EEO incident actually occurs.    "
^DD(785,14.5,"AUDIT")="e"
^DD(785,14.5,"AX")=""
^DD(785,14.5,"DT")="2940314"
^DD(785,14.7,0)="DATE INITIAL CONTACT/INTERVIEW^DaX^^1;12^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=14.7,EEOSEQ=""15^16^15.5^23.5^46.5"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,14.7,.1)=""
^DD(785,14.7,3)="Cannot be a future date."
^DD(785,14.7,21,0)="^^2^2^2950328^^^^"
^DD(785,14.7,21,1,0)="The date the complainant initially contacted the EEO office, cannot be"
^DD(785,14.7,21,2,0)="after the date of the Final Interview."
^DD(785,14.7,"AUDIT")="e"
^DD(785,14.7,"DT")="2950119"
^DD(785,15,0)="DATE NOTICE OF FINAL INTERVIEW^DX^^1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=15,EEOSEQ=""14.5^14.7^16"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,15,3)="The date the complainant is given notice of when the final interview will take place, cannot be a future date."
^DD(785,15,21,0)="^^2^2^2950327^^^^"
^DD(785,15,21,1,0)="Date notice of final interview is issued to the complainant, cannot be prior to the date of initial contact."
^DD(785,15,21,2,0)="                                                                                                      "
^DD(785,15,"DT")="2940314"
^DD(785,15.3,0)="DATE REQUEST FOR ADD'L INFO^DX^^5;13^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785,15.3,3)="Date Complainant is requested to provide additional information to the EEO Officer."
^DD(785,15.3,21,0)="^^1^1^2941209^^^^"
^DD(785,15.3,21,1,0)="The date the Complainant is given a request for additional information that is necessary to continue processing the complaint."
^DD(785,15.3,"DT")="2940314"
^DD(785,15.4,0)="DATE ADDITIONAL INFO. RECEIVED^D^^6;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(785,15.4,3)="Date the additional information requested from the complainant is received."
^DD(785,15.4,21,0)="^^1^1^2941209^^^"
^DD(785,15.4,21,1,0)="The date that requested additional information is received from the complainant."
^DD(785,15.4,"DT")="2940614"
^DD(785,15.5,0)="DATE OF INFORMAL RESOLUTION^DX^^6;3^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785,15.5,3)="If the complaint is resolved before becoming formal enter that date of the resolution."
^DD(785,15.5,21,0)="^^1^1^2941214^^^^"
^DD(785,15.5,21,1,0)="Date that the complaint is resolved, if the complaint is resolved at the informal stage (informal stage is before 'Date Formal Complaint Filed')."
^DD(785,15.5,"DT")="2941214"
^DD(785,15.7,0)="DATE EXTENSION REQUESTED^D^^6;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(785,15.7,3)="The date an extension to counseling is requested."
^DD(785,15.7,21,0)="^^2^2^2950327^^^"
^DD(785,15.7,21,1,0)="Date that the Complainant and Agency requested an extension (must be"
^DD(785,15.7,21,2,0)="within 30 days of Date of Initial Contact)"
^DD(785,15.7,"DT")="2940614"
^DD(785,15.9,0)="LENGTH OF EXTENSION GRANTED^NJ2,0^^6;6^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(785,15.9,.1)="LGTH OF EXTN"
^DD(785,15.9,3)="Type a Number between 0 and 60, 0 Decimal Digits"
^DD(785,15.9,21,0)="^^2^2^2941209^^"
^DD(785,15.9,21,1,0)="The length of the period for which an extension is granted during the"
^DD(785,15.9,21,2,0)="counseling phase of a complaint."
^DD(785,15.9,"DT")="2941209"
^DD(785,16,0)="DATE FORMAL COMPLAINT FILED^DX^^1;3^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X I $D(X) S EEOS=16,EEOSEQ=""40.5^14.5^29^32^40.6^48"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,16,.1)="C-D-FILED"
^DD(785,16,1,0)="^.1^^0"
^DD(785,16,3)="Cannot be a future date"
^DD(785,16,10)=""
^DD(785,16,21,0)="1^^2^2^2950327^"
^DD(785,16,21,1,0)="The date the complainant filed a formal complaint."
^DD(785,16,21,2,0)="If mailed use the postmark date, if hand delivered use the date delivered."
^DD(785,16,"DT")="2940314"
^DD(785,16.05,0)="DATE UNION GRIEVANCE FILED^DX^^6;1^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785,16.05,3)="Cannot be a future date."
^DD(785,16.05,21,0)="^^1^1^2950327^^^^"
^DD(785,16.05,21,1,0)="If a union grievance was also filed enter that date."
^DD(785,16.05,"DT")="2950223"
^DD(785,16.07,0)="DATE MSPB APPEAL FILED^DX^^6;2^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785,16.07,3)="Date filed with MSPB."
^DD(785,16.07,21,0)="^^1^1^2940114^^"
^DD(785,16.07,21,1,0)="If a complaint was also filed with MSPB, enter that date here."
^DD(785,16.07,"DT")="2940623"
^DD(785,16.3,0)="OFFICE COMPLAINT FILED WITH^S^OEO:Office of Equal Opportunity;CO:Central Office;STN:Station;SEC:Secretary of Veteran Affairs;^5;14^Q"
^DD(785,16.3,21,0)="^^1^1^2940613^"
^DD(785,16.3,21,1,0)="An EEO complaint may be filed with a variety of offices, select the appropriate one for this complaint."
^DD(785,16.3,"DT")="2940613"
^DD(785,16.5,0)="DATE COUNS. INFORMED OF F.C.^DX^^5;7^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.5,EEOSEQ=""16.7^16^14.5^46.5^16.75^24^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,16.5,3)="Cannot be a future date."
^DD(785,16.5,21,0)="^^1^1^2950327^^^^"
^DD(785,16.5,21,1,0)="The date the counselor is informed of the formal complaint, cannot be after the date the counselor files his report."
^DD(785,16.5,"DT")="2950119"
^DD(785,16.7,0)="DATE COUNSELOR FILED REPORT^DX^^5;8^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.7,EEOSEQ=""16.5^16^24^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,16.7,3)="Cannot be a future date."
^DD(785,16.7,21,0)="1^^1^1^2950213^"
^DD(785,16.7,21,1,0)="The date the counselor files his report to the EEO Officer, cannot be prior to the date the counselor was informed of the formal complaint."
^DD(785,16.7,"DT")="2940623"
^DD(785,16.75,0)="DATE COMP REC'D BY EEO OFF.^DX^^5;9^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.75,EEOSEQ=""16^21^14.5^24^22^22.3^23.5^26"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,16.75,3)="Cannot be a future date."
^DD(785,16.75,21,0)="^^1^1^2941209^^^^"
^DD(785,16.75,21,1,0)="The date that the EEO Officer actually receives the formal complaint from whatever source.                                "
^DD(785,16.75,"DT")="2950119"
^DD(785,17.5,0)="ISSUE CODES^785.02P^^10;0"
^DD(785,17.5,21,0)="^^1^1^2950223^^^^"
^DD(785,17.5,21,1,0)="Enter here as many issue codes as are necessary for this complaint, this field points to EEO Complaint Issue Codes file (786)."
^DD(785,18.5,0)="BASIS^785.01P^^9;0"
^DD(785,18.5,21,0)="^^1^1^2950327^^^^"
^DD(785,18.5,21,1,0)="Enter all 'BASIS' that are involved in this complaint, this field points to the EEO Complaint Basis file (#785.1).         "
^DD(785,19,0)="ISSUE CODE COMMENTS^FX^^1;6^K:$L(X)>120!($L(X)<1)!(X[""^"")!(X["";"")!(X["":"") X"
^DD(785,19,3)="Answer must be 1-120 characters in length."
^DD(785,19,21,0)="^^2^2^2930806^"
^DD(785,19,21,1,0)="Enter a brief description of any topic related to this complaint.  This "
^DD(785,19,21,2,0)="must not exceed 120 characters."
^DD(785,19,"DT")="2940314"
^DD(785,20,0)="DATE OF LETTER OF ACKNOW.^DX^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785,20,.1)="D-ACKNOW."
^DD(785,20,3)="Cannot be a future date."
^DD(785,20,21,0)="^^3^3^2941209^^^^"
^DD(785,20,21,1,0)="Date of letter from the station to the complainant acknowledging "
^DD(785,20,21,2,0)="receipt of the complaint."
^DD(785,20,21,3,0)="Use the date this letter is signed (Date shown on letter)."
^DD(785,20,"DT")="2940314"
^DD(785,21,0)="DATE TO OGC FOR ACC/REJ^DX^^2;2^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=21,EEOSEQ=""22.3^16^16.75^22^23.5"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,21,.1)="D-GC"
^DD(785,21,3)="Cannot be a future date."
^DD(785,21,21,0)="^^1^1^2941209^^^^"
^DD(785,21,21,1,0)="The date that the formal complaint is sent by the station to the Office of General Counsel for acceptance or rejection.                                                             "
^DD(785,21,"DT")="2950119"
^DD(785,22,0)="DATE ACCEPTED BY OGC^DX^^2;3^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=22,EEOSEQ=""21^16^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,22,.1)="D-A-GC"
^DD(785,22,3)="Cannot be a future date."
^DD(785,22,21,0)="^^2^2^2941209^^^^"
^DD(785,22,21,1,0)="Date that the Office of General Counsel accepts the report, the date at the top of the OGC letter."
^DD(785,22,21,2,0)="                                                             "
^DD(785,22,"DT")="2940314"
^DD(785,22.3,0)="DATE DISMISSED BY OGC^DX^^12;1^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=22.3,EEOSEQ=""21^16^"" D ^EEOEINP K:$G(E3) X,E3"
^DD(785,22.3,3)="Cannot be a future date."
^DD(785,22.3,21,0)="^^2^2^2940623^^"
^DD(785,22.3,21,1,0)="Date that the Office of General Counsel dismisses the complaint."
^DD(785,22.3,21,2,0)="The date at the top of the OGC letter."
^DD(785,22.3,"DT")="2940721"
^DD(785,23,0)="TOTAL DAYS OGC ACC/REJ^CJ8X^^ ; ^S EN1=$S($P($G(^EEO(785,D0,12)),U)>0:""12;1"",1:""2;3""),EN2=""2;2"" D INPUT^EEOEOSE"
^DD(785,23,.1)="DAYS OGC ACC/ REJ (45)"
^DD(785,23,9)="^"
^DD(785,23,9.01)="785^21;785^22"
^DD(785,23,9.1)="#22-#21"
^DD(785,23,21,0)="^^2^2^2940831^^^^"
^DD(785,23,21,1,0)="From the date the OGC receives a request to dismiss a complaint to the date"
^DD(785,23,21,2,0)="the complaint is dismissed or accepted in whole or in part (45 days)."
^DD(785,23,"DT")="2940715"
^DD(785,23.5,0)="DATE TO OGC FOR FINAL DECISION^DX^^2;13^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=23.5,EEOSEQ=""16^14.5^46.5^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,23.5,3)="Cannot be a future date."
^DD(785,23.5,21,0)="^^2^2^2930817^^^"
^DD(785,23.5,21,1,0)="Date the complaint was sent to the Office of General Counsel for their"
^DD(785,23.5,21,2,0)="final decision."
^DD(785,23.5,"DT")="2940314"
^DD(785,23.6,0)="TOTAL DAYS/OGC FINAL DECISION^CJ8^^ ; ^S EN1=""5;12"",EN2=""2;13"" D INPUT^EEOEOSE"
^DD(785,23.6,.1)="DAYS FOR OGC F.D."
^DD(785,23.6,9)="^"
^DD(785,23.6,9.01)=""
^DD(785,23.6,9.1)="S EN1=""5;12"",EN2=""2;13"" D INPUT^EEOEOSE"
^DD(785,23.6,21,0)="^^2^2^2940322^^^^"
^DD(785,23.6,21,1,0)="Number of days between complaint being sent to OGC and their issuance"
^DD(785,23.6,21,2,0)="of the final decision."
^DD(785,23.6,"DT")="2930811"
^DD(785,24,0)="DATE COMPLAINT ACCEPTED BY STN^DX^^2;4^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=24,EEOSEQ=""14.5^16^16.75^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,24,.1)="D-ACCEPT-STN"
^DD(785,24,3)="Cannot be a future date"
^DD(785,24,21,0)="^^1^1^2930927^^^"
^DD(785,24,21,1,0)="Date that the complaint was accepted by the station."
^DD(785,24,"DT")="2940314"
^DD(785,25,0)="TOTAL DAYS ACCEPTANCE^CJ8X^^ ; ^D ACCEPT^EEOUTIL1"
^DD(785,25,.1)=" DAYS ACC. BY STN (45)"
^DD(785,25,9)="^"
^DD(785,25,9.01)=""
^DD(785,25,9.1)="S EN1=""2;4"",EN2=""5;9"" D INPUT^EEOEOSE"
^DD(785,25,21,0)="^^4^4^2950327^^^^"
^DD(785,25,21,1,0)="From the date the complaint is filed with or received by the EEO Officer,"
^DD(785,25,21,2,0)="to the date the complaint is accepted by the EEO Officer and referred to"
^DD(785,25,21,3,0)="the Office of Equal Opportunity for investigation or referred to the OGC"
^DD(785,25,21,4,0)="for possible dismissal."
^DD(785,25,"DT")="2941114"
^DD(785,26,0)="DATE INVESTIGATOR REQUESTED^DX^^2;5^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X I $D(X) S EEOS=26,EEOSEQ=""14.5^16^29^46.5"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,26,.1)="D-INV-REQ"
^DD(785,26,3)="Cannot be a future date."
^DD(785,26,21,0)="^^1^1^2930817^^"
^DD(785,26,21,1,0)="The date upon which an investigator is requested for the EEO incident."
^DD(785,26,"DT")="2950119"
^DD(785,27.5,0)="INVESTIGATOR'S NAME^785.03P^^11;0"
^DD(785,27.5,21,0)="^^1^1^2950327^^^^"
^DD(785,27.5,21,1,0)="This field holds the name of the investigator assigned to this complaint, the investigator must exist in the EEO INVESTIGATOR File."
^DD(785,29,0)="INITIAL INV DATE ASSIGNED^DX^^3;3^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X I $D(X) S EEOS=29,EEOSEQ=""26^32^14.5^16^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,29,.1)=""
^DD(785,29,3)="Cannot be a future date."
^DD(785,29,21,0)="^^2^2^2940623^^^^"
^DD(785,29,21,1,0)="The date of the official assignment of the first investigator to"
^DD(785,29,21,2,0)="the alledged EEO incident.  Date on the OEO assignment letter."
^DD(785,29,"DT")="2940314"
^DD(785,32,0)="INV REPORT RECEIVED DATE^DX^^3;6^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=32,EEOSEQ=""29^40.5^41^46.5"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,32,.1)=""
^DD(785,32,3)="Cannot be a future date, the date that the final investigator's approved report arrives at the station."
^DD(785,32,21,0)="^^2^2^2941128^^^^"
^DD(785,32,21,1,0)="The date the final investigative report is received by the EEO Officer"
^DD(785,32,21,2,0)="(if by mail use the postmark date)."
^DD(785,32,"DT")="2950119"
^DD(785,33,0)="TOTAL INVESTIGATION DAYS^CJ8^^ ; ^S Y(785,33,1)=$S($D(^EEO(785,D0,3)):^(3),1:"""") S X=$P(Y(785,33,1),U,6),X1=X,X2=$P(Y(785,33,1),U,3),X="""" D:X2 ^%DTC:X1"
^DD(785,33,.1)="TOT INV. DAYS (45)"
^DD(785,33,9)="^"
^DD(785,33,9.01)="785^29;785^32"
^DD(785,33,9.1)="#32-#29"
^DD(785,33,21,0)="^^2^2^2950315^^^^"
^DD(785,33,21,1,0)="From the date that the investigator is assigned to the date that the report"
^DD(785,33,21,2,0)="of investigation is delivered to the EEO Officer (45 days)."
^DD(785,33,"DT")="2930812"
^DD(785,40.5,0)="DATE COMP RECEIVED ADV/RIGHTS^DX^^5;11^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=40.5,EEOREV=""23.5"",EEOSEQ=""14.5^16^40.6^32^44^46.5"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,40.5,3)="Cannot be a future date."
^DD(785,40.5,21,0)="^^2^2^2940623^^^^"
^DD(785,40.5,21,1,0)="When the complainant actually receives his advisement of rights."
^DD(785,40.5,21,2,0)="If sent by mail the date on the return receipt."
^DD(785,40.5,"DT")="2950119"
^DD(785,40.6,0)="DATE COMP MAKES ELECTION^DX^^5;10^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=40.6,EEOSEQ=""14.5^16^44^40.5^"",EEOREV=41 D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,40.6,3)="Cannot be a future date."
^DD(785,40.6,21,0)="^^4^4^2940623^^^"
^DD(785,40.6,21,1,0)="The date the complainant makes his choice on which course of action he"
^DD(785,40.6,21,2,0)="will take after being advised of his rights and responsibilities."
^DD(785,40.6,21,3,0)="This date will be the date of the postmark if received by mail, otherwise"
^DD(785,40.6,21,4,0)="the date it was delivered."
^DD(785,40.6,"DT")="2940830"
^DD(785,41,0)="DATE COMP SENT ADV/RIGHTS^DX^^2;6^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=41,EEOSEQ=""14.5^16^32^"",EEOREV=40.6 D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,41,.1)="D-COMP ADV/ RGHTS"
^DD(785,41,3)="Cannot be a future date."
^DD(785,41,21,0)="^^2^2^2941209^^^^"
^DD(785,41,21,1,0)="Date the complainant is sent the advisement of rights, this date should be prior to both the date the complainant receives his advisement of rights, and the date he makes his election."
^DD(785,41,21,2,0)="Enter the date the EEO Officer signs this letter."
^DD(785,41,"DT")="2940831"
^DD(785,42,0)="TOTAL DAYS ASSIGN INV.^CJ8^^ ; ^S EN1=""3;3"",EN2=""2;5"" D INPUT^EEOEOSE"
^DD(785,42,.1)="DAYS TO ASS. INV. (30)"
^DD(785,42,1,0)="^.1^^0"
^DD(785,42,9)="^"
^DD(785,42,9.01)=""
^DD(785,42,9.1)="S EN1=""3;3"",EN2=""2;5"" D INPUT^EEOEOSE"
^DD(785,42,21,0)="^^2^2^2941209^^^^"
^DD(785,42,21,1,0)="From the date the OEO receives a request for the assignment"
^DD(785,42,21,2,0)="of an investigator to the date that an investigator is assigned (30 days)."
^DD(785,42,"DT")="2930812"
^DD(785,44,0)="DATE EEOC HEARING REQUESTED^DX^^2;9^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=44,EEOSEQ=""45^40.6^14.5^16^46.5"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,44,.1)="DC-REQ-H"
^DD(785,44,3)="Cannot be a future date."
^DD(785,44,21,0)="^^1^1^2930817^^^"
^DD(785,44,21,1,0)="The date that has been requested for the EEO hearing to take place."
^DD(785,44,"DT")="2950119"
^DD(785,45,0)="DATE EEOC HEARING CONDUCTED^DX^^2;10^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X I $D(X) S EEOS=45,EEOSEQ=""44^48^14.5^16"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,45,.1)="D-HEAR"
^DD(785,45,3)="Cannot be a future date."
^DD(785,45,21,0)="^^2^2^2930817^^"
^DD(785,45,21,1,0)="The date that the Equal Employment Opportunity Commission hearing "
^DD(785,45,21,2,0)="actually took place."
^DD(785,45,"DT")="2940314"
^DD(785,46,0)="TOTAL DAYS FOR EEOC HEARING^CJ8^^ ; ^S EN1=""2;10"",EN2=""2;9"" D INPUT^EEOEOSE"
^DD(785,46,.1)="TOT DAYS FOR EEOC HEAR"
^DD(785,46,9)="^"
^DD(785,46,9.01)=""
^DD(785,46,9.1)="S EN1=""2;10"",EN2=""2;9"" D INPUT^EEOEOSE"
^DD(785,46,21,0)="^^1^1^2941209^^^^"
^DD(785,46,21,1,0)="Elapsed time between when the EEOC hearing was requested and the hearing took place."
^DD(785,46,"DT")="2931011"
^DD(785,46.2,0)="EEOC APPEAL^DX^^5;16^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785,46.2,3)="Cannot be a future date."
^DD(785,46.2,21,0)="^^3^3^2940623^^^"
^DD(785,46.2,21,1,0)="Enter the date of the Equal Employment Opportunities Commission appeal."
^DD(785,46.2,21,2,0)="This will be the date on the letter from OGC stating that this complaint"
^DD(785,46.2,21,3,0)="is being appealed."
^DD(785,46.2,"DT")="2940314"
^DD(785,46.4,0)="EEOC APPEAL #2^DX^^5;18^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785,46.4,3)="Cannot be a future date."
^DD(785,46.4,21,0)="^^2^2^2940623^^"
^DD(785,46.4,21,1,0)="If the decision of the first EEOC appeal is appealed, enter the date of this second appeal here.  Use the date that appears on the letter received"
^DD(785,46.4,21,2,0)="from OGC stating that the complaint is being appealed."
^DD(785,46.4,"DT")="2940314"
^DD(785,46.5,0)="DATE FINAL AGENCY DEC. ISSUED^DX^^5;12^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=46.5,EEOSEQ=""14.5^16^23.5^48"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785,46.5,3)="Cannot be a future date."
^DD(785,46.5,21,0)="^^1^1^2940114^^^"
^DD(785,46.5,21,1,0)="The date that the Final Agency Decision was issued."
^DD(785,46.5,"DT")="2940314"
^DD(785,47,0)="DATE CIVIL ACTION FILED^DX^^2;11^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X"
^DD(785,47,.1)="D-CA-FILED"
^DD(785,47,3)="Cannot be a future date."
^DD(785,47,21,0)="^^1^1^2930817^^^^"
^DD(785,47,21,1,0)="The date that the complainant files civil action."
^DD(785,47,"DT")="2940314"
^DD(785,48,0)="DATE CLOSED^DX^^4;1^S %DT=""E"" D ^%DT S X=Y,EEOS=48,EEOSEQ=""14.5^16"" D ^EEOEINP K:(Y>DT) X K:$G(E3)=1 X,E3"
^DD(785,48,1,0)="^.1^^0"
^DD(785,48,3)="Cannot be a future date."
^DD(785,48,21,0)="^^1^1^2931201^^^^"
^DD(785,48,21,1,0)="The date that the complaint has been closed using any of the 7 valid reasons found in field (#49)."
^DD(785,48,23,0)="^^1^1^2930817^^^"
^DD(785,48,23,1,0)="Entry of date will automatically send this status input to field (#43) STATUS."
^DD(785,48,"DT")="2940616"
^DD(785,48.5,0)="DELETED^S^D:DELETED;^12;2^Q"
^DD(785,48.5,3)="If this file is deleted it may no longer be accessed though the EEO software."
^DD(785,48.5,21,0)="^^1^1^2940114^^"
^DD(785,48.5,21,1,0)="This is a field that flags, but does not delete EEO Complaints that are no longer needed by the users.  The user can no longer access files flagged as deleted."
^DD(785,48.5,"DT")="2931201"
^DD(785,49,0)="REASON CLOSED^S^1:SETTLEMENT;2:AGENCY DECISION;3:REJECTION BY OGC;4:CIVIL ACTION FILED;5:WITHDRAWAL;6:CANCELLATION;7:FAILURE TO PROSECUTE;8:OTHER;^4;2^Q"
^DD(785,49,1,0)="^.1^^0"
^DD(785,49,21,0)="^^2^2^2941209^^^"
^DD(785,49,21,1,0)="The reason that the case was closed, any one of the seven reasons listed"
^DD(785,49,21,2,0)="when the user enters a ""?"" may be selected."
^DD(785,49,"DT")="2940114"
^DD(785,50,0)="TOTAL PROCESSING DAYS^CJ8^^ ; ^S EN1=""4;1"",EN2=""1;3"" D INPUT^EEOEOSE"
^DD(785,50,.1)="TOT PROC DAYS"
^DD(785,50,9)="^"
^DD(785,50,9.01)=""
^DD(785,50,9.1)="S EN1=""4;1"",EN2=""1;3"" D INPUT^EEOEOSE"
^DD(785,50,21,0)="^^3^3^2930817^^^^"
^DD(785,50,21,1,0)="The total number of days it takes to process the EEO complaint, this "
^DD(785,50,21,2,0)="is the difference between the date the complaint is closed and the date  "
^DD(785,50,21,3,0)="that the complaint became formal."
^DD(785,50,"DT")="2930804"
^DD(785,51,0)="TOTAL COUNSELOR REPORT DAYS^CJ8X^^ ; ^S EN2=""5;7"",EN1=$S($P($G(^EEO(785,D0,5)),U,8)>0:""5;8"",1:""5;9"") D INPUT^EEOEOSE"
^DD(785,51,.1)="TOT COUN REPT DAYS (5)"
^DD(785,51,9)="^"
^DD(785,51,9.01)="785^16.5;785^16.7"
^DD(785,51,9.1)="#16.7-#16.5"
^DD(785,51,21,0)="^^2^2^2941207^^^^"
^DD(785,51,21,1,0)="The difference between when the counselor filed his report and the date "
^DD(785,51,21,2,0)="he was informed of the formal complaint."
^DD(785,51,"DT")="2950112"
^DD(785,53,0)="TOTAL DAYS FOR ADVISE/RIGHTS^CJ8X^^ ; ^S EN1=""2;6"",EN2=""3;6"" D INPUT^EEOEOSE"
^DD(785,53,.1)="DAYS ADV/ RIGH (15)"
^DD(785,53,9)="^"
^DD(785,53,9.01)=""
^DD(785,53,9.1)="S EN1=""2;6"",EN2=""3;6"" D INPUT^EEOEOSE"
^DD(785,53,21,0)="^^2^2^2950309^^^^"
^DD(785,53,21,1,0)="The difference between when the complainant was advised of his rights"
^DD(785,53,21,2,0)="and the date the approved investigators report was received."
^DD(785,53,"DT")="2940615"
^DD(785,54,0)="TOTAL DAYS TO REQ EEOC HEARING^CJ8^^ ; ^S Y(785,54,1)=$S($D(^EEO(785,D0,2)):^(2),1:""""),Y(785,54,2)=$S($D(^(5)):^(5),1:"""") S X=$P(Y(785,54,1),U,9),X1=X,X2=$P(Y(785,54,2),U,10),X="""" D:X2 ^%DTC:X1"
^DD(785,54,.1)="DAYS TO REQU EEOC HEAR"
^DD(785,54,9)="^"
^DD(785,54,9.01)="785^40.6;785^44"
^DD(785,54,9.1)="#44-#40.6"
^DD(785,54,21,0)="^^2^2^2950118^^"
^DD(785,54,21,1,0)="The difference between when the EEOC hearing was requested and the date"
^DD(785,54,21,2,0)="the complainant makes his election.              "
^DD(785,54,"DT")="2950118"
^DD(785,55,0)="TOTAL DAYS TO MAKE ELECTION^CJ8X^^ ; ^S EN1=$S($P($G(^EEO(785,D0,5)),U,10)>0:""5;10"",$P($G(^EEO(785,D0,2)),U,9):""2;9"",1:""2;13""),EN2=""5;11"" D INPUT^EEOEOSE"
^DD(785,55,.1)="DAYS TO MAKE ELEC (30)"
^DD(785,55,9)="^"
^DD(785,55,9.01)=""
^DD(785,55,9.1)="S EN1=""5;10"",EN2=""5;11"" D INPUT^EEOEOSE"
^DD(785,55,21,0)="^^1^1^2940613^^^^"
^DD(785,55,21,1,0)="The time between the date the complainant makes his response to the advisement of rights and when the complaint file is transmitted to the EEOC for the hearing, or to OGC for a FAD."
^DD(785,55,"DT")="2950119"
^DD(785,56,0)="TOTAL DAYS FOR FAD DECISION^CJ8^^ ; ^S EN1=""5;12"",EN2=""2;13"" D INPUT^EEOEOSE"
^DD(785,56,.1)="DAYS FOR FAD (60)"
^DD(785,56,9)="^"
^DD(785,56,9.01)=""
^DD(785,56,9.1)="S EN1=""5;12"",EN2=""2;13"" D INPUT^EEOEOSE"
^DD(785,56,21,0)="^^2^2^2950327^^^^"
^DD(785,56,21,1,0)="This calculates the time between when the complaint was sent to the OGC"
^DD(785,56,21,2,0)="for the final decision and when the Agency's final decision was issued."
^DD(785,56,"DT")="2930804"
^DD(785,57,0)="180 DAYS^CJ8^^ ; ^S EN1=""5;11"",EN2=""1;3"" D INPUT^EEOEOSE"
^DD(785,57,9)="^"
^DD(785,57,9.01)=""
^DD(785,57,9.1)="S EN1=""5;11"",EN2=""1;3"" D INPUT^EEOEOSE"
^DD(785,57,21,0)="^^3^3^2950327^^^^"
^DD(785,57,21,1,0)="This shows the number of days the complaint is being processed"
^DD(785,57,21,2,0)="within the Director's scope of authority/responsibility."
^DD(785,57,21,3,0)="Not to exceed 180 days."
^DD(785,60,0)="NARRATIVE INFORMATION^785.04^^7;0"
^DD(785,60,21,0)="^^2^2^2950210^^"
^DD(785,60,21,1,0)="You may enter any information pertaining to this complaint, this field will "
^DD(785,60,21,2,0)="be displayed on Form 0210 (Initial Complaint Intake Form)"
^DD(785,60,"DT")="2950210"
^DD(785,61,0)="CORRECTIVE ACTION^785.061P^^8;0"
^DD(785,61,21,0)="^^3^3^2941209^"
^DD(785,61,21,1,0)="The resolution the complainant is seeking, what actions the complainant"
^DD(785,61,21,2,0)="feels would rectify the situation.  This field points to the Corrective "
^DD(785,61,21,3,0)="Actions file (#785.2)."
^DD(785,62,0)="TRANSMIT FLAG^F^^XMT;1^K:$L(X)>1!($L(X)<1)!'(X?1""X"") X"
^DD(785,62,3)="Answer must be 1 character in length."
^DD(785,62,21,0)="^^2^2^2941209^"
^DD(785,62,21,1,0)="An ""X"" in this field marks records that have been changed and are to be later"
^DD(785,62,21,2,0)="evaluated for transmission by the EEO Tasked Bulletin option."
^DD(785,62,"DT")="2940114"
^DD(785,63,0)="COMPLAINT STATUS^CJ20^^ ; ^D ^EEOUTIL1"
^DD(785,63,9)="^"
^DD(785,63,9.01)=""
^DD(785,63,9.1)="D ^EEOUTIL1"
^DD(785,63,21,0)="^^2^2^2941209^"
^DD(785,63,21,1,0)="Auotmatically generated by EEO Complaint Tracking to identify the current"
^DD(785,63,21,2,0)="processing phase for the complaint."
^DD(785,64,0)="180 DAYS OFF SITE PROCESSING^CJ8^^ ; ^X ^DD(785,64,9.2) S X=X+Y(785,64,3)"
^DD(785,64,.1)="OFF SITE PRO- CESS"
^DD(785,64,9)="^"
^DD(785,64,9.01)="785^42;785^33;785^23"
^DD(785,64,9.1)="#23+#33+#42"
^DD(785,64,9.2)="X $P(^DD(785,23,0),U,5,99) S Y(785,64,1)=X X $P(^DD(785,33,0),U,5,99) S Y(785,64,2)=X X $P(^DD(785,42,0),U,5,99) S Y(785,64,3)=X S X=Y(785,64,1)+Y(785,64,2)"
^DD(785,64,21,0)="^^4^4^2950328^^^^"
^DD(785,64,21,1,0)="The total of all days that may be counted in the 180 days field, but"
^DD(785,64,21,2,0)="were out of the control of the station EEO program."
^DD(785,64,21,3,0)="This includes the total days to assign and investigate"
^DD(785,64,21,4,0)="the complaint and time spent at OGC waiting for an acceptance or rejection."
^DD(785,64,"DT")="2940617"
^DD(785,71,0)="EEOC APPEAL RESOLUTIONS^F^^20;1^K:$L(X)>60!($L(X)<1) X"
^DD(785,71,3)="Answer must be 1-60 characters in length and may not contain a "";"" or "":""."
^DD(785,71,21,0)="^^2^2^2941209^^^"
^DD(785,71,21,1,0)="Enter any information pertaining to the EEOC Appeal filed involving"
^DD(785,71,21,2,0)="this complaint"
^DD(785,71,"DT")="2940616"
^DD(785,71.5,0)="EEOC APPEAL RESOLUTIONS (#2)^F^^20;3^K:$L(X)>60!($L(X)<1) X"
^DD(785,71.5,3)="Answer must be 1-60 characters in length and may not contain a "":"" or "";""."
^DD(785,71.5,21,0)="^^2^2^2941209^"
^DD(785,71.5,21,1,0)="Enter any information pertaining to a second EEOC Appeal filed involving"
^DD(785,71.5,21,2,0)="this complaint."
^DD(785,71.5,"DT")="2940616"
^DD(785,72,0)="CIVIL ACTION RESOLUTIONS^F^^20;2^K:$L(X)>120!($L(X)<1) X"
^DD(785,72,3)="Answer must be 1-120 characters in length and not contain a "":"" or "";""."
^DD(785,72,21,0)="^^2^2^2940616^"
^DD(785,72,21,1,0)="Enter any information pertaining to the Civil Action filed involving "
^DD(785,72,21,2,0)="this complaint."
^DD(785,72,"DT")="2940616"
^DD(785,98,0)="COUNSELOR SECURITY^FO^^SEC;1^K:$L(X)>18!($L(X)<1) X"
^DD(785,98,2)="S Y(0)=Y Q:Y=""""  S:$D(^VA(200,Y)) Y=$P(^VA(200,Y,0),U)"
^DD(785,98,2.1)="Q:Y=""""  S:$D(^VA(200,Y)) Y=$P(^VA(200,Y,0),U)"
^DD(785,98,3)="Enter the user number for the person to be responsible for entry of the pre-formal complaint input."
^DD(785,98,21,0)="3^^3^3^2950328^^^^"
^DD(785,98,21,1,0)="This is the user number for the EEO counselor, specialist, data input"
^DD(785,98,21,2,0)="personnel, etc., who is responsible for inputting pre-formal complaint data"
^DD(785,98,21,3,0)="into this complaint."
^DD(785,98,"DT")="2950324"
^DD(785,"AUDIT",14.5)=""
^DD(785,"AUDIT",14.7)=""
^DD(785,"B"," DAYS ACC. BY STN (45)",25)="1"
^DD(785,"B","180 DAYS",57)=""
^DD(785,"B","180 DAYS OFF SITE PROCESSING",64)=""
^DD(785,"B","BASIS",18.5)=""
^DD(785,"B","C-D-FILED",16)="1"
^DD(785,"B","CASE",1.1)=""
^DD(785,"B","CASE NO.",1.3)=""
^DD(785,"B","CITY",.08)=""
^DD(785,"B","CIVIL ACTION RESOLUTIONS",72)=""
^DD(785,"B","COMPLAINANT",.01)=""
^DD(785,"B","COMPLAINT STATUS",63)=""
^DD(785,"B","CON-NAME",14)="1"
^DD(785,"B","CORRECTIVE ACTION",61)=""
^DD(785,"B","COUNSELOR SECURITY",98)=""
^DD(785,"B","COUNSELOR'S NAME",14)=""
^DD(785,"B","D-A-GC",22)="1"
^DD(785,"B","D-ACCEPT-STN",24)="1"
^DD(785,"B","D-ACKNOW.",20)="1"
^DD(785,"B","D-CA-FILED",47)="1"
^DD(785,"B","D-COMP ADV/ RGHTS",41)="1"
^DD(785,"B","D-GC",21)="1"
^DD(785,"B","D-HEAR",45)="1"
^DD(785,"B","D-INV-REQ",26)="1"
^DD(785,"B","DATE ACCEPTED BY OGC",22)=""
^DD(785,"B","DATE ADDITIONAL INFO. RECEIVED",15.4)=""
^DD(785,"B","DATE CIVIL ACTION FILED",47)=""
^DD(785,"B","DATE CLOSED",48)=""
^DD(785,"B","DATE COMP MAKES ELECTION",40.6)=""
^DD(785,"B","DATE COMP REC'D BY EEO OFF.",16.75)=""
^DD(785,"B","DATE COMP RECEIVED ADV/RIGHTS",40.5)=""
^DD(785,"B","DATE COMP SENT ADV/RIGHTS",41)=""
^DD(785,"B","DATE COMPLAINT ACCEPTED BY STN",24)=""
^DD(785,"B","DATE COUNS. INFORMED OF F.C.",16.5)=""
^DD(785,"B","DATE COUNSELOR FILED REPORT",16.7)=""
^DD(785,"B","DATE DISMISSED BY OGC",22.3)=""
^DD(785,"B","DATE EEOC HEARING CONDUCTED",45)=""
^DD(785,"B","DATE EEOC HEARING REQUESTED",44)=""
^DD(785,"B","DATE EXTENSION REQUESTED",15.7)=""
^DD(785,"B","DATE FINAL AGENCY DEC. ISSUED",46.5)=""
^DD(785,"B","DATE FORMAL COMPLAINT FILED",16)=""
^DD(785,"B","DATE INITIAL CONTACT/INTERVIEW",14.7)=""
^DD(785,"B","DATE INVESTIGATOR REQUESTED",26)=""
^DD(785,"B","DATE MSPB APPEAL FILED",16.07)=""
^DD(785,"B","DATE NOTICE OF FINAL INTERVIEW",15)=""
^DD(785,"B","DATE OF INCIDENT",14.5)=""
^DD(785,"B","DATE OF INFORMAL RESOLUTION",15.5)=""
^DD(785,"B","DATE OF LETTER OF ACKNOW.",20)=""
^DD(785,"B","DATE REQUEST FOR ADD'L INFO",15.3)=""
^DD(785,"B","DATE TO OGC FOR ACC/REJ",21)=""
^DD(785,"B","DATE TO OGC FOR FINAL DECISION",23.5)=""
^DD(785,"B","DATE UNION GRIEVANCE FILED",16.05)=""
^DD(785,"B","DAYS ADV/ RIGH (15)",53)="1"
^DD(785,"B","DAYS FOR FAD (60)",56)="1"
^DD(785,"B","DAYS FOR OGC F.D.",23.6)="1"
^DD(785,"B","DAYS OGC ACC/ REJ (45)",23)="1"
^DD(785,"B","DAYS TO ASS. INV. (30)",42)="1"
^DD(785,"B","DAYS TO MAKE ELEC (30)",55)="1"
^DD(785,"B","DAYS TO REQU EEOC HEAR",54)="1"
^DD(785,"B","DC-REQ-H",44)="1"
^DD(785,"B","DELETED",48.5)=""
^DD(785,"B","EEOC APPEAL",46.2)=""
^DD(785,"B","EEOC APPEAL #2",46.4)=""
^DD(785,"B","EEOC APPEAL RESOLUTIONS",71)=""
^DD(785,"B","EEOC APPEAL RESOLUTIONS (#2)",71.5)=""
^DD(785,"B","GRADE",6)="1"
^DD(785,"B","INITIAL INV DATE ASSIGNED",29)=""
^DD(785,"B","INV REPORT RECEIVED DATE",32)=""
^DD(785,"B","INVESTIGATOR'S NAME",27.5)=""
^DD(785,"B","ISSUE CODE COMMENTS",19)=""
^DD(785,"B","ISSUE CODES",17.5)=""
^DD(785,"B","JOB TITLE",6.5)=""
^DD(785,"B","LENGTH OF EXTENSION GRANTED",15.9)=""
^DD(785,"B","LGTH OF EXTN",15.9)="1"
^DD(785,"B","NARRATIVE INFORMATION",60)=""
^DD(785,"B","OEO NUMBER",1.2)=""
^DD(785,"B","OFF SITE PRO- CESS",64)="1"
^DD(785,"B","OFFICE COMPLAINT FILED WITH",16.3)=""
^DD(785,"B","POSITION/GRADE",6)=""
^DD(785,"B","REASON CLOSED",49)=""
^DD(785,"B","REP'S CITY ADDR.",11)=""
^DD(785,"B","REP'S NAME",8)=""
^DD(785,"B","REP'S PHONE NO.",9)=""
^DD(785,"B","REP'S STATE ADDR.",12)=""
^DD(785,"B","REP'S STREET ADDR.",10)=""
^DD(785,"B","REP'S ZIP CODE",13)=""
^DD(785,"B","REP-NAME",8)="1"
^DD(785,"B","SERVICE",5)=""
^DD(785,"B","STATE",.09)=""
^DD(785,"B","STATION",2)=""
^DD(785,"B","STREET ADDRESS",.05)=""
^DD(785,"B","TOT COUN DAYS (30)",14.1)="1"
^DD(785,"B","TOT COUN REPT DAYS (5)",51)="1"
^DD(785,"B","TOT DAYS FOR EEOC HEAR",46)="1"
^DD(785,"B","TOT INV. DAYS (45)",33)="1"
^DD(785,"B","TOT PROC DAYS",50)="1"
^DD(785,"B","TOTAL COUNSELOR DAYS",14.1)=""
^DD(785,"B","TOTAL COUNSELOR REPORT DAYS",51)=""
^DD(785,"B","TOTAL DAYS ACCEPTANCE",25)=""
^DD(785,"B","TOTAL DAYS ASSIGN INV.",42)=""
^DD(785,"B","TOTAL DAYS FOR ADVISE/RIGHTS",53)=""
^DD(785,"B","TOTAL DAYS FOR EEOC HEARING",46)=""
^DD(785,"B","TOTAL DAYS FOR FAD DECISION",56)=""
^DD(785,"B","TOTAL DAYS OGC ACC/REJ",23)=""
^DD(785,"B","TOTAL DAYS TO MAKE ELECTION",55)=""
^DD(785,"B","TOTAL DAYS TO REQ EEOC HEARING",54)=""
^DD(785,"B","TOTAL DAYS/OGC FINAL DECISION",23.6)=""
^DD(785,"B","TOTAL INVESTIGATION DAYS",33)=""
^DD(785,"B","TOTAL PROCESSING DAYS",50)=""
^DD(785,"B","TRANSMIT FLAG",62)=""
^DD(785,"B","ZIP CODE",.091)=""
^DD(785,"GL",0,1,.01)=""
^DD(785,"GL",0,2,1.2)=""
^DD(785,"GL",0,3,2)=""
^DD(785,"GL",0,4,5)=""
^DD(785,"GL",0,5,6)=""
^DD(785,"GL",0,7,8)=""
^DD(785,"GL",0,8,9)=""
^DD(785,"GL",0,9,10)=""
^DD(785,"GL",0,10,11)=""
^DD(785,"GL",0,11,12)=""
^DD(785,"GL",0,12,13)=""
^DD(785,"GL",1,1,14)=""
^DD(785,"GL",1,2,15)=""
^DD(785,"GL",1,3,16)=""
^DD(785,"GL",1,6,19)=""
^DD(785,"GL",1,11,14.5)=""
^DD(785,"GL",1,12,14.7)=""
^DD(785,"GL",2,1,20)=""
^DD(785,"GL",2,2,21)=""
^DD(785,"GL",2,3,22)=""
^DD(785,"GL",2,4,24)=""
^DD(785,"GL",2,5,26)=""
^DD(785,"GL",2,6,41)=""
^DD(785,"GL",2,9,44)=""
^DD(785,"GL",2,10,45)=""
^DD(785,"GL",2,11,47)=""
^DD(785,"GL",2,13,23.5)=""
^DD(785,"GL",3,3,29)=""
^DD(785,"GL",3,6,32)=""
^DD(785,"GL",4,1,48)=""
^DD(785,"GL",4,2,49)=""
^DD(785,"GL",5,1,.05)=""
^DD(785,"GL",5,3,.08)=""
^DD(785,"GL",5,4,.09)=""
^DD(785,"GL",5,5,.091)=""
^DD(785,"GL",5,6,1.3)=""
^DD(785,"GL",5,7,16.5)=""
^DD(785,"GL",5,8,16.7)=""
^DD(785,"GL",5,9,16.75)=""
^DD(785,"GL",5,10,40.6)=""
^DD(785,"GL",5,11,40.5)=""
^DD(785,"GL",5,12,46.5)=""
^DD(785,"GL",5,13,15.3)=""
^DD(785,"GL",5,14,16.3)=""
^DD(785,"GL",5,16,46.2)=""
^DD(785,"GL",5,18,46.4)=""
^DD(785,"GL",5,19,6.5)=""
^DD(785,"GL",6,1,16.05)=""
^DD(785,"GL",6,2,16.07)=""
^DD(785,"GL",6,3,15.5)=""
^DD(785,"GL",6,4,15.4)=""
^DD(785,"GL",6,5,15.7)=""
^DD(785,"GL",6,6,15.9)=""
^DD(785,"GL",7,0,60)=""
^DD(785,"GL",8,0,61)=""
^DD(785,"GL",9,0,18.5)=""
^DD(785,"GL",10,0,17.5)=""
^DD(785,"GL",11,0,27.5)=""
^DD(785,"GL",12,1,22.3)=""
^DD(785,"GL",12,2,48.5)=""
^DD(785,"GL",20,1,71)=""
^DD(785,"GL",20,2,72)=""
^DD(785,"GL",20,3,71.5)=""
^DD(785,"GL","SEC",1,98)=""
^DD(785,"GL","XMT",1,62)=""
^DD(785,"IX",.01)=""
^DD(785,"IX",1.2)=""
^DD(785,"IX",1.3)=""
^DD(785,"IX",2)=""
^DD(785,"RQ",.01)=""
^DD(785,"SB",785.01,18.5)=""
^DD(785,"SB",785.02,17.5)=""
^DD(785,"SB",785.03,27.5)=""
^DD(785,"SB",785.04,60)=""
^DD(785,"SB",785.061,61)=""
^DD(785.01,0)="BASIS SUB-FIELD^^.01^1"
^DD(785.01,0,"DT")="2931126"
^DD(785.01,0,"IX","B",785.01,.01)=""
^DD(785.01,0,"NM","BASIS")=""
^DD(785.01,0,"UP")="785"
^DD(785.01,.01,0)="BASIS^MP785.1'X^EEO(785.1,^0;1^Q"
^DD(785.01,.01,1,0)="^.1"
^DD(785.01,.01,1,1,0)="785.01^B"
^DD(785.01,.01,1,1,1)="S ^EEO(785,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(785.01,.01,1,1,2)="K ^EEO(785,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(785.01,.01,21,0)="^^1^1^2941209^"
^DD(785.01,.01,21,1,0)="The Basis(s) this complaint is filed on."
^DD(785.01,.01,"DT")="2941215"
^DD(785.01,"B","BASIS",.01)=""
^DD(785.01,"GL",0,1,.01)=""
^DD(785.01,"IX",.01)=""
^DD(785.02,0)="ISSUE CODES SUB-FIELD^^1^2"
^DD(785.02,0,"DT")="2931201"
^DD(785.02,0,"IX","B",785.02,.01)=""
^DD(785.02,0,"NM","ISSUE CODES")=""
^DD(785.02,0,"UP")="785"
^DD(785.02,.01,0)="ISSUE CODES^MP786'X^EEO(786,^0;1^Q"
^DD(785.02,.01,1,0)="^.1"
^DD(785.02,.01,1,1,0)="785.02^B"
^DD(785.02,.01,1,1,1)="S ^EEO(785,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(785.02,.01,1,1,2)="K ^EEO(785,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(785.02,.01,21,0)="^^1^1^2941209^^^"
^DD(785.02,.01,21,1,0)="Enter the code(s) that best describe the reasons for this complaint."
^DD(785.02,.01,"DT")="2941215"
^DD(785.02,1,0)="DATE OCCURRED^DX^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) EEOXX=1"
^DD(785.02,1,3)="The date an example of this issue took place for this complaint."
^DD(785.02,1,21,0)="^^1^1^2950223^^^"
^DD(785.02,1,21,1,0)="The date actions took place to inspire the selection of this Issue Code."
^DD(785.02,1,"DT")="2950223"
^DD(785.02,"B","DATE OCCURRED",1)=""
^DD(785.02,"B","ISSUE CODES",.01)=""
^DD(785.02,"GL",0,1,.01)=""
^DD(785.02,"GL",0,2,1)=""
^DD(785.02,"IX",.01)=""
^DD(785.03,0)="INVESTIGATOR'S NAME SUB-FIELD^^8^9"
^DD(785.03,0,"DT")="2940316"
^DD(785.03,0,"IX","B",785.03,.01)=""
^DD(785.03,0,"NM","INVESTIGATOR'S NAME")=""
^DD(785.03,0,"UP")="785"
^DD(785.03,.01,0)="INVESTIGATOR'S NAME^MP787.5'X^EEO(787.5,^0;1^D INACT^EEOUTIL1 Q:'$D(X)"
^DD(785.03,.01,1,0)="^.1"
^DD(785.03,.01,1,1,0)="785.03^B"
^DD(785.03,.01,1,1,1)="S ^EEO(785,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(785.03,.01,1,1,2)="K ^EEO(785,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(785.03,.01,3)="Enter an EEO investigator."
^DD(785.03,.01,21,0)="^^1^1^2940114^"
^DD(785.03,.01,21,1,0)="The name of the investigator assigned."
^DD(785.03,.01,"DT")="2941215"
^DD(785.03,1,0)="INVESTIGATOR DT ASSIGNED^DX^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X D:$G(X)'="""" TYPE^EEOUTIL1"
^DD(785.03,1,1,0)="^.1^^0"
^DD(785.03,1,"DT")="2940801"
^DD(785.03,2,0)="TYPE^S^1:ADHOC;2:RETIRED ANNUITANT;3:REGIONAL SPECIALIST;^0;3^Q"
^DD(785.03,2,"DT")="2940316"
^DD(785.03,3,0)="INVESTIGATOR'S STATE^Cm^^ ; ^X ^DD(785.03,3,9.3) S Y(785.03,3,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(785.03,3,101),U,1) S D0=Y(785.03,3,80) S D1=Y(785.03,3,81)"
^DD(785.03,3,9)="^"
^DD(785.03,3,9.01)="2^.01;785^27.5"
^DD(785.03,3,9.1)="27.5:2"
^DD(785.03,3,9.2)="S I(0)=""^EEO(785,"",J(0)=785 F D=0:0 S (D,D1)=$O(^EEO(785,D0,11,D)) Q:D'>0  I $D(^(D,0))#2 S X=$P(^(0),U,1) S:$D(^EEO(787.5,+X,0)) X=$P(^(0),U,1) X DICMX Q:'$D(D)  S D=D1"
^DD(785.03,3,9.3)="S Y(785.03,3,81)=$S($D(D1):D1,1:""""),Y(785.03,3,80)=$S($D(D0):D0,1:"""") X ^DD(785.03,3,9.2):D0>0 S X="""" K DIC S DIC=""^DPT("",DIC(0)=""NMF"" D ^DIC S (D,D0)=+Y"
^DD(785.03,3,"DT")="2931201"
^DD(785.03,4,0)="INV FINDING^SX^F:Findings of Discrimination;N:No Findings of Discrimination;^0;5^S:$D(X) EEOXX=1 Q"
^DD(785.03,4,21,0)="^^1^1^2950327^^"
^DD(785.03,4,21,1,0)="Enter either ""F"" for findings of discrimination or ""N"" for no findings of discrimination."
^DD(785.03,4,"DT")="2940310"
^DD(785.03,5,0)="INV REVIEW ASSIGNED TO^P787.5'^EEO(787.5,^0;6^Q"
^DD(785.03,5,21,0)="^^1^1^2940114^"
^DD(785.03,5,21,1,0)="The person assigned to review the investigative report, he/she must also be an investigator."
^DD(785.03,5,"DT")="2931201"
^DD(785.03,6,0)="INV REVIEW ASSIGNED DATE^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(785.03,6,"DT")="2931201"
^DD(785.03,7,0)="INV REPORT RELEASE DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(785.03,7,3)="The date OEO releases the Investigator's report."
^DD(785.03,7,21,0)="^^1^1^2941128^^"
^DD(785.03,7,21,1,0)="The date the Investigator's report is released to the station."
^DD(785.03,7,"DT")="2931201"
^DD(785.03,8,0)="INV REPORT DUE DATE^DC^^ ; ^S Y(785.03,8,1)=$S($D(^EEO(785,D0,11,D1,0)):^(0),1:"""") S X=$P(Y(785.03,8,1),U,2),X1=X,X2=+45,X="""" D C^%DTC:X1"
^DD(785.03,8,9)="^"
^DD(785.03,8,9.01)="785.03^1"
^DD(785.03,8,9.1)="#1+45"
^DD(785.03,"B","INV FINDING",4)=""
^DD(785.03,"B","INV REPORT DUE DATE",8)=""
^DD(785.03,"B","INV REPORT RELEASE DATE",7)=""
^DD(785.03,"B","INV REVIEW ASSIGNED DATE",6)=""
^DD(785.03,"B","INV REVIEW ASSIGNED TO",5)=""
^DD(785.03,"B","INVESTIGATOR DT ASSIGNED",1)=""
^DD(785.03,"B","INVESTIGATOR'S NAME",.01)=""
^DD(785.03,"B","INVESTIGATOR'S STATE",3)=""
^DD(785.03,"B","TYPE",2)=""
^DD(785.03,"GL",0,1,.01)=""
^DD(785.03,"GL",0,2,1)=""
^DD(785.03,"GL",0,3,2)=""
^DD(785.03,"GL",0,5,4)=""
^DD(785.03,"GL",0,6,5)=""
^DD(785.03,"GL",0,7,6)=""
^DD(785.03,"GL",0,8,7)=""
^DD(785.03,"IX",.01)=""
^DD(785.04,0)="NARRATIVE INFORMATION SUB-FIELD^^.01^1"
^DD(785.04,0,"DT")="2940114"
^DD(785.04,0,"NM","NARRATIVE INFORMATION")=""
^DD(785.04,0,"UP")="785"
^DD(785.04,.01,0)="NARRATIVE INFORMATION^W^^0;1^Q"
^DD(785.04,.01,3)="Enter a list of names of people, documents, or records that the complainant wants you to interview or inspect."
^DD(785.04,.01,21,0)="^^2^2^2941209^"
^DD(785.04,.01,21,1,0)="You may enter any information pertaining to this complaint, this field will"
^DD(785.04,.01,21,2,0)="be displayed on Form 0210 (Initial Complaint Intake Form)."
^DD(785.04,.01,"DT")="2950210"
^DD(785.04,"B","NARRATIVE INFORMATION",.01)=""
^DD(785.04,"GL",0,1,.01)=""
^DD(785.061,0)="CORRECTIVE ACTION SUB-FIELD^^.01^1"
^DD(785.061,0,"DT")="2940114"
^DD(785.061,0,"IX","B",785.061,.01)=""
^DD(785.061,0,"NM","CORRECTIVE ACTION")=""
^DD(785.061,0,"UP")="785"
^DD(785.061,.01,0)="CORRECTIVE ACTION^MP785.2'X^EEO(785.2,^0;1^Q"
^DD(785.061,.01,1,0)="^.1"
^DD(785.061,.01,1,1,0)="785.061^B"
^DD(785.061,.01,1,1,1)="S ^EEO(785,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(785.061,.01,1,1,2)="K ^EEO(785,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(785.061,.01,3)="Enter remedies being sought by the Complainant."
^DD(785.061,.01,21,0)="^^3^3^2941209^"
^DD(785.061,.01,21,1,0)="The resolution the complainant is seeking.  What actions the complainant"
^DD(785.061,.01,21,2,0)="feels would rectify the situation.  This field points to the Corrective"
^DD(785.061,.01,21,3,0)="Actions file (#785.2)."
^DD(785.061,.01,"DT")="2941215"
^DD(785.061,"B","CORRECTIVE ACTION",.01)=""
^DD(785.061,"GL",0,1,.01)=""
^DD(785.061,"IX",.01)=""
^DD(785.1,0)="FIELD^^.01^1"
^DD(785.1,0,"DDA")="N"
^DD(785.1,0,"DT")="2940617"
^DD(785.1,0,"IX","B",785.1,.01)=""
^DD(785.1,0,"NM","EEO COMPLAINT BASIS")=""
^DD(785.1,0,"PT",785.01,.01)=""
^DD(785.1,0,"PT",785.51,.01)=""
^DD(785.1,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X S STANO=$G(STANO) K:$$SITE^EEOEEXMT=STANO!(STANO="""") X"
^DD(785.1,.01,1,0)="^.1"
^DD(785.1,.01,1,1,0)="785.1^B"
^DD(785.1,.01,1,1,1)="S ^EEO(785.1,""B"",$E(X,1,30),DA)="""""
^DD(785.1,.01,1,1,2)="K ^EEO(785.1,""B"",$E(X,1,30),DA)"
^DD(785.1,.01,3)="Answer must be 3-30 characters in length and may only be changed by Central Office."
^DD(785.1,.01,8.5)="""@"""
^DD(785.1,.01,21,0)="^^1^1^2950327^^^^"
^DD(785.1,.01,21,1,0)="This field contains the name of the 18 valid bases for filing EEO discrimination cases."
^DD(785.1,.01,"DT")="2940617"
^DD(785.1,"B","NAME",.01)=""
^DD(785.1,"GL",0,1,.01)=""
^DD(785.1,"IX",.01)=""
^DD(785.1,"RQ",.01)=""
^DD(785.2,0)="FIELD^^.01^1"
^DD(785.2,0,"DDA")="N"
^DD(785.2,0,"DT")="2940114"
^DD(785.2,0,"IX","B",785.2,.01)=""
^DD(785.2,0,"NM","EEO CORRECTIVE ACTIONS")=""
^DD(785.2,0,"PT",785.061,.01)=""
^DD(785.2,0,"PT",785.561,.01)=""
^DD(785.2,.01,0)="CORRECTIVE ACTION^RFX^^0;1^S STANO=$G(STANO) K:$L(X)>60!(STANO="""")!($L(X)<3)!'(X'?1P.E)!($$SITE^EEOEEXMT=STANO) X"
^DD(785.2,.01,1,0)="^.1"
^DD(785.2,.01,1,1,0)="785.2^B"
^DD(785.2,.01,1,1,1)="S ^EEO(785.2,""B"",$E(X,1,30),DA)="""""
^DD(785.2,.01,1,1,2)="K ^EEO(785.2,""B"",$E(X,1,30),DA)"
^DD(785.2,.01,3)="Answer must be 3-60 characters in length and cannot be changed except by Central Office."
^DD(785.2,.01,8.5)="""@"""
^DD(785.2,.01,21,0)="^^1^1^2950327^^^^"
^DD(785.2,.01,21,1,0)="The name of the corrective action that is selected at complaint intake may only be changed or added to by Central Office.         "
^DD(785.2,.01,"DT")="2940321"
^DD(785.2,"B","CORRECTIVE ACTION",.01)=""
^DD(785.2,"GL",0,1,.01)=""
^DD(785.2,"IX",.01)=""
^DD(785.2,"RQ",.01)=""
^DD(785.5,0)="FIELD^^98^35"
^DD(785.5,0,"DT")="2950213"
^DD(785.5,0,"ID","Q")="W:$D(^(5)) ""   "",$P(^(5),U,6)"
^DD(785.5,0,"ID","QUIT")="W:$D(^(1)) ""   "",$E($P(^(1),U,3),4,5)_""-""_$E($P(^(1),U,3),6,7)_""-""_$E($P(^(1),U,3),2,3)"
^DD(785.5,0,"IX","ANODE",785.5,.01)=""
^DD(785.5,0,"IX","B",785.5,.01)=""
^DD(785.5,0,"IX","C",785.5,2)=""
^DD(785.5,0,"IX","D",785.5,1.3)=""
^DD(785.5,0,"IX","E",785.5,1.2)=""
^DD(785.5,0,"NM","EEO INFORMAL COMPLAINTS")=""
^DD(785.5,.01,0)="COMPLAINANT^RFXO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X) S X=$$UP^XLFSTR(X) K:(X'?1U.UP1"",""1U.UP) X I $D(X) S STANO=$S($D(EEOYSTN):EEOYSTN,$D(STANO):STANO,1:"""") D NODE^EEOEOSE"
^DD(785.5,.01,1,0)="^.1"
^DD(785.5,.01,1,1,0)="785.5^B"
^DD(785.5,.01,1,1,1)="S ^EEO(785.5,""B"",$E(X,1,30),DA)="""""
^DD(785.5,.01,1,1,2)="K ^EEO(785.5,""B"",$E(X,1,30),DA)"
^DD(785.5,.01,1,2,0)="785.5^ANODE^MUMPS"
^DD(785.5,.01,1,2,1)="S ^EEO(785.5,""ANODE"",DA)="""""
^DD(785.5,.01,1,2,2)="K ^EEO(785.5,""ANODE"",DA)"
^DD(785.5,.01,1,2,"%D",0)="^^2^2^2950328^^^^"
^DD(785.5,.01,1,2,"%D",1,0)="This cross-reference is used solely to assign internal entry numbers to new EEO complaints."
^DD(785.5,.01,1,2,"%D",2,0)="The global root for this cross-reference is ^EEO(785.5,""ANODE"", and the subscript is the internal entry number of the referenced complaint in file #785.5."
^DD(785.5,.01,1,2,"DT")="2921016"
^DD(785.5,.01,2)="S Y(0)=Y D TEST^EEOEOSE"
^DD(785.5,.01,2.1)="D TEST^EEOEOSE"
^DD(785.5,.01,3)="Answer must be 3-30 characters in length, all uppercase letters, with no space after the comma."
^DD(785.5,.01,8.5)="""@"""
^DD(785.5,.01,21,0)="^^1^1^2940613^^^^"
^DD(785.5,.01,21,1,0)="Enter the name of the person making the complaint, (Complainant)."
^DD(785.5,.01,23,0)="^^1^1^2940613^^^^"
^DD(785.5,.01,23,1,0)="The ^EEO(785.5,""ANODE"", includes the station number with the complaint case no. "
^DD(785.5,.01,"DEL",1,0)="I $$DEL^EEOEOSE"
^DD(785.5,.01,"DT")="2951027"
^DD(785.5,.05,0)="STREET ADDRESS^FX^^5;1^K:$L(X)>30!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785.5,.05,3)="Answer must be 1-30 characters in length and does not contain a "";"" or "":""."
^DD(785.5,.05,21,0)="^^1^1^2921204^^^^"
^DD(785.5,.05,21,1,0)="Enter the street address of the complainant's residence."
^DD(785.5,.05,"DT")="2940328"
^DD(785.5,.08,0)="CITY^FX^^5;3^K:$L(X)>25!($L(X)<1)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785.5,.08,3)="Answer must be 1-25 characters in length and may not include a "";"" or a "":"""
^DD(785.5,.08,21,0)="^^1^1^2940114^"
^DD(785.5,.08,21,1,0)="The city in which the complainant resides."
^DD(785.5,.08,"DT")="2940615"
^DD(785.5,.09,0)="STATE^P5'X^DIC(5,^5;4^Q"
^DD(785.5,.09,3)="The State in which the complainant resides."
^DD(785.5,.09,21,0)="^^1^1^2941209^^^"
^DD(785.5,.09,21,1,0)="The state in which the complainant resides, points to the State file (#5)."
^DD(785.5,.09,22)=""
^DD(785.5,.09,"DT")="2940328"
^DD(785.5,.091,0)="ZIP CODE^FX^^5;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X S:$D(X) EEOXX=1"
^DD(785.5,.091,3)="Answer must be 5-10 characters in length."
^DD(785.5,.091,21,0)="^^1^1^2940114^^^"
^DD(785.5,.091,21,1,0)="The Zip Code portion of the Complainants address, must be either 5 numbers or 5 numbers followed by a ""-"" and 4 more numbers. "
^DD(785.5,.091,"DT")="2940310"
^DD(785.5,1.2,0)="OEO NUMBER^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785.5,1.2,1,0)="^.1"
^DD(785.5,1.2,1,1,0)="785.5^E"
^DD(785.5,1.2,1,1,1)="S ^EEO(785.5,""E"",$E(X,1,30),DA)="""""
^DD(785.5,1.2,1,1,2)="K ^EEO(785.5,""E"",$E(X,1,30),DA)"
^DD(785.5,1.2,1,1,"DT")="2940609"
^DD(785.5,1.2,3)="Answer must be 3-7 characters in length and not contain either a semicolon or colon."
^DD(785.5,1.2,21,0)="^^1^1^2950327^^^^"
^DD(785.5,1.2,21,1,0)="The format for OEO# consists of two numbers followed by a dash and up to four more numbers, for example... 93-1109."
^DD(785.5,1.2,"DT")="2940906"
^DD(785.5,1.3,0)="CASE NO.^FOX^^5;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<7)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785.5,1.3,1,0)="^.1"
^DD(785.5,1.3,1,1,0)="785.5^D"
^DD(785.5,1.3,1,1,1)="S ^EEO(785.5,""D"",$E(X,1,30),DA)="""""
^DD(785.5,1.3,1,1,2)="K ^EEO(785.5,""D"",$E(X,1,30),DA)"
^DD(785.5,1.3,1,1,"%D",0)="^^1^1^2950327^^^"
^DD(785.5,1.3,1,1,"%D",1,0)="Cross-reference for the case number."
^DD(785.5,1.3,1,1,"DT")="2931202"
^DD(785.5,1.3,2)="S Y(0)=Y S EEO2=$P($G(^EEO(785.5,D0,0)),U,2) S:EEO2'="""" Y=Y_""   OEO# ""_EEO2"
^DD(785.5,1.3,2.1)="S EEO2=$P($G(^EEO(785.5,D0,0)),U,2) S:EEO2'="""" Y=Y_""   OEO# ""_EEO2"
^DD(785.5,1.3,3)="Answer must be 7-15 characters in length and not contain either a semicolon or colon. "
^DD(785.5,1.3,21,0)="^^1^1^2950327^^^^"
^DD(785.5,1.3,21,1,0)="The number assigned to the EEO Complaint case by this software at initial, and subsequent entry/edit sessions."
^DD(785.5,1.3,"DT")="2940615"
^DD(785.5,2,0)="STATION^P4'^DIC(4,^0;3^Q"
^DD(785.5,2,.1)=""
^DD(785.5,2,1,0)="^.1^^-1"
^DD(785.5,2,1,1,0)="785.5^C"
^DD(785.5,2,1,1,1)="S ^EEO(785.5,""C"",$E(X,1,30),DA)="""""
^DD(785.5,2,1,1,2)="K ^EEO(785.5,""C"",$E(X,1,30),DA)"
^DD(785.5,2,1,1,"DT")="2930331"
^DD(785.5,2,3)="System generated no user input needed."
^DD(785.5,2,10)="'H"
^DD(785.5,2,21,0)="^^1^1^2941209^^^^"
^DD(785.5,2,21,1,0)="The Complainants station name, (The station to which s/he is assigned). "
^DD(785.5,2,"DT")="2931202"
^DD(785.5,5,0)="SERVICE^P730'X^ECC(730,^0;4^Q"
^DD(785.5,5,21,0)="^^2^2^2930726^^^"
^DD(785.5,5,21,1,0)="The service department to which the complainant belongs.  This points "
^DD(785.5,5,21,2,0)="to file #730, the National Service file."
^DD(785.5,5,"DT")="2940328"
^DD(785.5,6,0)="POSITION/GRADE^FX^^0;5^K:$L(X)>18!($L(X)<10)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785.5,6,.1)="GRADE"
^DD(785.5,6,3)="Answer must be 10-18 characters in length.  This format will usually be followed GS-0334-11."
^DD(785.5,6,21,0)="^^1^1^2940201^^^^"
^DD(785.5,6,21,1,0)="The pay grade of the complainants position, (pay plan-series-grade)."
^DD(785.5,6,"DT")="2940615"
^DD(785.5,6.5,0)="JOB TITLE^FX^^5;19^K:$L(X)>30!($L(X)<3)!(X["":"")!(X["";"")!(X[""^"") X"
^DD(785.5,6.5,3)="Answer must be 3-30 characters in length and cannot contain a colon or semicolon.  "
^DD(785.5,6.5,21,0)="^^1^1^2950327^^"
^DD(785.5,6.5,21,1,0)="The job title of the complainant."
^DD(785.5,6.5,"DT")="2940615"
^DD(785.5,8,0)="REP'S NAME^FX^^0;7^K:$L(X)>30!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785.5,8,.1)="REP-NAME"
^DD(785.5,8,3)="Answer must be 1-30 characters in length and does not contain a "";"" or "":""."
^DD(785.5,8,21,0)="^^2^2^2950328^^^^"
^DD(785.5,8,21,1,0)="The name of the person representing the complainant."
^DD(785.5,8,21,2,0)="   "
^DD(785.5,8,"DT")="2940615"
^DD(785.5,9,0)="REP'S PHONE NO.^FX^^0;8^K:$L(X)>20!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785.5,9,3)="Answer must be 1-20 characters in length and does not contain a "";"" or "":""."
^DD(785.5,9,21,0)="^^1^1^2940615^^^"
^DD(785.5,9,21,1,0)="Enter the phone number of the complainant's representative.          "
^DD(785.5,9,"DT")="2940328"
^DD(785.5,10,0)="REP'S STREET ADDR.^FX^^0;9^K:$L(X)>25!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785.5,10,3)="Answer must be 1-25 characters in length and does not contain a "";"" or "":""."
^DD(785.5,10,21,0)="^^1^1^2921204^^^"
^DD(785.5,10,21,1,0)="Enter the street address of the complainant's representative."
^DD(785.5,10,"DT")="2940328"
^DD(785.5,11,0)="REP'S CITY ADDR.^FX^^0;10^K:$L(X)>25!($L(X)<1)!(X["";"")!(X["":"")!(X[""^"") X"
^DD(785.5,11,3)="Answer must be 1-25 characters in length and does not contain a "";"" or "":""."
^DD(785.5,11,21,0)="^^1^1^2921204^^^^"
^DD(785.5,11,21,1,0)="The city in which the complainant's representative resides."
^DD(785.5,11,"DT")="2940328"
^DD(785.5,12,0)="REP'S STATE ADDR.^P5'X^DIC(5,^0;11^Q"
^DD(785.5,12,3)="The state portion of the representative's mailing address."
^DD(785.5,12,21,0)="^^1^1^2940114^^^"
^DD(785.5,12,21,1,0)="The state in which the complainant's representative resides."
^DD(785.5,12,"DT")="2940328"
^DD(785.5,13,0)="REP'S ZIP CODE^FX^^0;12^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4.5N)) X"
^DD(785.5,13,3)="Answer must be 5-10 characters in length."
^DD(785.5,13,21,0)="^^2^2^2950328^^^^"
^DD(785.5,13,21,1,0)="Enter the zip code of the complainant's representative in either 5 or 9"
^DD(785.5,13,21,2,0)="digit format (5 numbers or 5 numbers followed by a ""-"" and four more numbers)."
^DD(785.5,13,"DT")="2940328"
^DD(785.5,14,0)="COUNSELOR'S NAME^P200'^VA(200,^1;1^Q"
^DD(785.5,14,.1)="CON-NAME"
^DD(785.5,14,3)="The counselor must exist in the New Person file (#200)."
^DD(785.5,14,21,0)="^^1^1^2950113^^^^"
^DD(785.5,14,21,1,0)="The name of the counselor assigned to the complainant."
^DD(785.5,14,"DT")="2941207"
^DD(785.5,14.5,0)="DATE OF INCIDENT^DaX^^1;11^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X I $D(X) S EEOS=14.5,EEOSEQ=""16^14.7^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785.5,14.5,3)="The date the alleged EEO incident occured, cannot be a future date."
^DD(785.5,14.5,21,0)="^^1^1^2941209^^^^"
^DD(785.5,14.5,21,1,0)="The date upon which the alleged EEO incident actually occurs.    "
^DD(785.5,14.5,"AUDIT")="e"
^DD(785.5,14.5,"AX")=""
^DD(785.5,14.5,"DT")="2940314"
^DD(785.5,14.7,0)="DATE INITIAL CONTACT/INTERVIEW^DaX^^1;12^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=14.7,EEOSEQ=""15^16^15.5^23.5^46.5"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785.5,14.7,.1)=""
^DD(785.5,14.7,3)="Cannot be a future date."
^DD(785.5,14.7,21,0)="^^2^2^2950328^^^^"
^DD(785.5,14.7,21,1,0)="The date the complainant initially contacted the EEO office, cannot be  "
^DD(785.5,14.7,21,2,0)="after the date of the Final Interview."
^DD(785.5,14.7,"AUDIT")="e"
^DD(785.5,14.7,"DT")="2950119"
^DD(785.5,15,0)="DATE NOTICE OF FINAL INTERVIEW^DX^^1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=15,EEOSEQ=""14.5^14.7^16"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785.5,15,3)="The date the complainant is given notice the final interview will take place, cannot be a future date."
^DD(785.5,15,21,0)="^^2^2^2941209^^^^"
^DD(785.5,15,21,1,0)="Date notice of final interview is issued to the complainant, cannot be prior to the date of initial contact."
^DD(785.5,15,21,2,0)="                                                                                                      "
^DD(785.5,15,"DT")="2940314"
^DD(785.5,15.5,0)="DATE OF INFORMAL RESOLUTION^DX^^6;3^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785.5,15.5,3)="If the complaint is resolved before becoming formal enter that date of the resolution."
^DD(785.5,15.5,21,0)="^^1^1^2941214^^^^"
^DD(785.5,15.5,21,1,0)="Date that the complaint is resolved, if the complaint is resolved at the informal stage (informal stage is before 'Date Formal Complaint Filed')."
^DD(785.5,15.5,"DT")="2941214"
^DD(785.5,15.7,0)="DATE EXTENSION REQUESTED^D^^6;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(785.5,15.7,3)="The date an extension to counseling is requested."
^DD(785.5,15.7,21,0)="^^2^2^2941209^^"
^DD(785.5,15.7,21,1,0)="Date that the Complainant and Agency requested an extention (must be"
^DD(785.5,15.7,21,2,0)="within 30 days of Date of Initial Contact)"
^DD(785.5,15.7,"DT")="2940614"
^DD(785.5,15.9,0)="LENGTH OF EXTENSION GRANTED^NJ2,0^^6;6^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(785.5,15.9,.1)="LGTH OF EXTN"
^DD(785.5,15.9,3)="Type a Number between 0 and 60, 0 Decimal Digits"
^DD(785.5,15.9,21,0)="^^2^2^2941209^^"
^DD(785.5,15.9,21,1,0)="The length of the period for which an extension is granted during the"
^DD(785.5,15.9,21,2,0)="counseling phase of a complaint."
^DD(785.5,15.9,"DT")="2941209"
^DD(785.5,16,0)="DATE FORMAL COMPLAINT FILED^DX^^1;3^S %DT=""E"" D ^%DT S X=Y K:Y<1!(DT<Y) X I $D(X) S EEOS=16,EEOSEQ=""40.5^14.5^29^32^40.6^48"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785.5,16,.1)="C-D-FILED"
^DD(785.5,16,1,0)="^.1^^0"
^DD(785.5,16,3)="Cannot be a future date"
^DD(785.5,16,21,0)="^^2^2^2950327^^^^"
^DD(785.5,16,21,1,0)="The date that the complainant filed a formal complaint.  If mailed use the postmark date, if hand delivered use the date delivered."
^DD(785.5,16,21,2,0)="                                                                      "
^DD(785.5,16,22)=""
^DD(785.5,16,"DT")="2940314"
^DD(785.5,16.05,0)="DATE UNION GRIEVANCE FILED^DX^^6;1^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785.5,16.05,3)="Cannot be a future date."
^DD(785.5,16.05,21,0)="^^1^1^2950327^^^"
^DD(785.5,16.05,21,1,0)="If a union grievance was also filed enter that date."
^DD(785.5,16.05,"DT")="2950223"
^DD(785.5,16.07,0)="DATE MSPB APPEAL FILED^DX^^6;2^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X"
^DD(785.5,16.07,3)="Date filed with MSPB."
^DD(785.5,16.07,21,0)="^^1^1^2940114^^"
^DD(785.5,16.07,21,1,0)="If a complaint was also filed with MSPB, enter that date here."
^DD(785.5,16.07,"DT")="2940623"
^DD(785.5,16.5,0)="DATE COUNS. INFORMED OF F.C.^DX^^5;7^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.5,EEOSEQ=""16.7^16^14.5^46.5^16.75^24^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785.5,16.5,3)="Cannot be a future date"
^DD(785.5,16.5,21,0)="^^1^1^2950327^^"
^DD(785.5,16.5,21,1,0)="The date the counselor is informed of the formal complaint, cannot be after the date the counselor files his report."
^DD(785.5,16.5,"DT")="2950213"
^DD(785.5,16.7,0)="DATE COUNSELOR FILED REPORT^DX^^5;8^S %DT=""E"" D ^%DT S X=Y K:Y<1!(Y>DT) X I $D(X) S EEOS=16.7,EEOSEQ=""16.5^16^24^"" D ^EEOEINP K:$G(E3)=1 X,E3"
^DD(785.5,16.7,3)="Cannot be a future date."
^DD(785.5,16.7,21,0)="^^1^1^2950213^"
^DD(785.5,16.7,21,1,0)="The date the counselor files his report to the EEO Officer, cannot be prior to the date the counselor was informed of the formal complaint."
^DD(785.5,16.7,"DT")="2950213"
^DD(785.5,17.5,0)="ISSUE CODES^785.52P^^10;0"
^DD(785.5,17.5,21,0)="^^1^1^2950223^^^^"
^DD(785.5,17.5,21,1,0)="Enter here as many issue codes as are necessary for this complaint, this field points to EEO Complaint Issue Codes file (786)."
^DD(785.5,18.5,0)="BASIS^785.51P^^9;0"
^DD(785.5,18.5,21,0)="^^1^1^2950327^^^^"
^DD(785.5,18.5,21,1,0)="Enter all 'BASIS' that are involved in this complaint, this field points to the EEO Complaint Basis file (#785.1).          "
^DD(785.5,19,0)="ISSUE CODE COMMENTS^FX^^1;6^K:$L(X)>120!($L(X)<1)!(X[""^"")!(X["";"")!(X["":"") X"
^DD(785.5,19,3)="Answer must be 1-120 characters in length."
^DD(785.5,19,21,0)="^^2^2^2930806^"
^DD(785.5,19,21,1,0)="Enter a brief description of any topic related to this complaint.  This "
^DD(785.5,19,21,2,0)="must not exceed 120 characters."
^DD(785.5,19,"DT")="2940314"
^DD(785.5,60,0)="NARRATIVE INFORMATION^785.54^^7;0"
^DD(785.5,60,21,0)="^^2^2^2941209^"
^DD(785.5,60,21,1,0)="You may enter any information pertaining to this complaint, this field will "
^DD(785.5,60,21,2,0)="be displayed on Form 0210 (Initial Complaint Intake Form)"
^DD(785.5,61,0)="CORRECTIVE ACTION^785.561P^^8;0"
^DD(785.5,61,21,0)="^^3^3^2941209^"
^DD(785.5,61,21,1,0)="The resolution the complainant is seeking, what actions the complainant"
^DD(785.5,61,21,2,0)="feels would rectify the situation.  This field points to the Corrective "
^DD(785.5,61,21,3,0)="Actions file (#785.2)."
^DD(785.5,98,0)="COUNSELOR SECURITY^FO^^SEC;1^K:$L(X)>18!($L(X)<1) X"
^DD(785.5,98,2)="S Y(0)=Y Q:Y=""""  S:$D(^VA(200,Y)) Y=$P($G(^VA(200,Y,0)),U)"
^DD(785.5,98,2.1)="Q:Y=""""  S:$D(^VA(200,Y)) Y=$P($G(^VA(200,Y,0)),U)"
^DD(785.5,98,3)="Enter the user number for the person to be responsible for entry of the pre-formal complaint input."
^DD(785.5,98,21,0)="^^3^3^2950328^^^^"
^DD(785.5,98,21,1,0)="This is the user number for the EEO counselor, specialist, data input"
^DD(785.5,98,21,2,0)="personnel, etc., who is responsible for inputting pre-formal complaint data"
^DD(785.5,98,21,3,0)="into this complaint."
^DD(785.5,98,"DT")="2950324"
^DD(785.5,"AUDIT",14.5)=""
^DD(785.5,"AUDIT",14.7)=""
^DD(785.5,"B","BASIS",18.5)=""
^DD(785.5,"B","C-D-FILED",16)="1"
^DD(785.5,"B","CASE NO.",1.3)=""
^DD(785.5,"B","CITY",.08)=""
^DD(785.5,"B","COMPLAINANT",.01)=""
^DD(785.5,"B","CON-NAME",14)="1"
^DD(785.5,"B","CORRECTIVE ACTION",61)=""
^DD(785.5,"B","COUNSELOR SECURITY",98)=""
^DD(785.5,"B","COUNSELOR'S NAME",14)=""
^DD(785.5,"B","DATE COUNS. INFORMED OF F.C.",16.5)=""
^DD(785.5,"B","DATE COUNSELOR FILED REPORT",16.7)=""
^DD(785.5,"B","DATE EXTENSION REQUESTED",15.7)=""
^DD(785.5,"B","DATE FORMAL COMPLAINT FILED",16)=""
^DD(785.5,"B","DATE INITIAL CONTACT/INTERVIEW",14.7)=""
^DD(785.5,"B","DATE MSPB APPEAL FILED",16.07)=""
^DD(785.5,"B","DATE NOTICE OF FINAL INTERVIEW",15)=""
^DD(785.5,"B","DATE OF INCIDENT",14.5)=""
^DD(785.5,"B","DATE OF INFORMAL RESOLUTION",15.5)=""
^DD(785.5,"B","DATE UNION GRIEVANCE FILED",16.05)=""
^DD(785.5,"B","GRADE",6)="1"
^DD(785.5,"B","ISSUE CODE COMMENTS",19)=""
^DD(785.5,"B","ISSUE CODES",17.5)=""
^DD(785.5,"B","JOB TITLE",6.5)=""
^DD(785.5,"B","LENGTH OF EXTENSION GRANTED",15.9)=""
^DD(785.5,"B","LGTH OF EXTN",15.9)="1"
^DD(785.5,"B","NARRATIVE INFORMATION",60)=""
^DD(785.5,"B","OEO NUMBER",1.2)=""
^DD(785.5,"B","POSITION/GRADE",6)=""
^DD(785.5,"B","REP'S CITY ADDR.",11)=""
^DD(785.5,"B","REP'S NAME",8)=""
^DD(785.5,"B","REP'S PHONE NO.",9)=""
^DD(785.5,"B","REP'S STATE ADDR.",12)=""
^DD(785.5,"B","REP'S STREET ADDR.",10)=""
^DD(785.5,"B","REP'S ZIP CODE",13)=""
^DD(785.5,"B","REP-NAME",8)="1"
^DD(785.5,"B","SERVICE",5)=""
^DD(785.5,"B","STATE",.09)=""
^DD(785.5,"B","STATION",2)=""
^DD(785.5,"B","STREET ADDRESS",.05)=""
^DD(785.5,"B","ZIP CODE",.091)=""
^DD(785.5,"GL",0,1,.01)=""
^DD(785.5,"GL",0,2,1.2)=""
^DD(785.5,"GL",0,3,2)=""
^DD(785.5,"GL",0,4,5)=""
^DD(785.5,"GL",0,5,6)=""
^DD(785.5,"GL",0,7,8)=""
^DD(785.5,"GL",0,8,9)=""
^DD(785.5,"GL",0,9,10)=""
^DD(785.5,"GL",0,10,11)=""
^DD(785.5,"GL",0,11,12)=""
^DD(785.5,"GL",0,12,13)=""
^DD(785.5,"GL",1,1,14)=""
^DD(785.5,"GL",1,2,15)=""
^DD(785.5,"GL",1,3,16)=""
^DD(785.5,"GL",1,6,19)=""
^DD(785.5,"GL",1,11,14.5)=""
^DD(785.5,"GL",1,12,14.7)=""
^DD(785.5,"GL",5,1,.05)=""
^DD(785.5,"GL",5,3,.08)=""
^DD(785.5,"GL",5,4,.09)=""
^DD(785.5,"GL",5,5,.091)=""
^DD(785.5,"GL",5,6,1.3)=""
^DD(785.5,"GL",5,7,16.5)=""
^DD(785.5,"GL",5,8,16.7)=""
^DD(785.5,"GL",5,19,6.5)=""
^DD(785.5,"GL",6,1,16.05)=""
^DD(785.5,"GL",6,2,16.07)=""
^DD(785.5,"GL",6,3,15.5)=""
^DD(785.5,"GL",6,5,15.7)=""
^DD(785.5,"GL",6,6,15.9)=""
^DD(785.5,"GL",7,0,60)=""
^DD(785.5,"GL",8,0,61)=""
^DD(785.5,"GL",9,0,18.5)=""
^DD(785.5,"GL",10,0,17.5)=""
^DD(785.5,"GL","SEC",1,98)=""
^DD(785.5,"IX",.01)=""
^DD(785.5,"IX",1.2)=""
^DD(785.5,"IX",1.3)=""
^DD(785.5,"IX",2)=""
^DD(785.5,"RQ",.01)=""
^DD(785.5,"SB",785.51,18.5)=""
^DD(785.5,"SB",785.52,17.5)=""
^DD(785.5,"SB",785.54,60)=""
^DD(785.5,"SB",785.561,61)=""
^DD(785.51,0)="BASIS SUB-FIELD^^.01^1"
^DD(785.51,0,"IX","B",785.51,.01)=""
^DD(785.51,0,"NM","BASIS")=""
^DD(785.51,0,"UP")="785.5"
^DD(785.51,.01,0)="BASIS^MP785.1'X^EEO(785.1,^0;1^Q"
^DD(785.51,.01,1,0)="^.1"
^DD(785.51,.01,1,1,0)="785.51^B"
^DD(785.51,.01,1,1,1)="S ^EEO(785.5,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(785.51,.01,1,1,2)="K ^EEO(785.5,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(785.51,.01,21,0)="^^1^1^2941209^"
^DD(785.51,.01,21,1,0)="The Basis(s) this complaint is filed on."
^DD(785.51,.01,"DT")="2941215"
^DD(785.51,"B","BASIS",.01)=""
^DD(785.51,"GL",0,1,.01)=""
^DD(785.51,"IX",.01)=""
^DD(785.52,0)="ISSUE CODES SUB-FIELD^^1^2"
^DD(785.52,0,"IX","B",785.52,.01)=""
^DD(785.52,0,"NM","ISSUE CODES")=""
^DD(785.52,0,"UP")="785.5"
^DD(785.52,.01,0)="ISSUE CODES^MP786'X^EEO(786,^0;1^Q"
^DD(785.52,.01,1,0)="^.1"
^DD(785.52,.01,1,1,0)="785.52^B"
^DD(785.52,.01,1,1,1)="S ^EEO(785.5,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(785.52,.01,1,1,2)="K ^EEO(785.5,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(785.52,.01,21,0)="^^1^1^2941209^^^"
^DD(785.52,.01,21,1,0)="Enter the code(s) that best describe the reasons for this complaint."
^DD(785.52,.01,"DT")="2941215"
^DD(785.52,1,0)="DATE OCCURRED^DX^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) EEOXX=1"
^DD(785.52,1,3)="The date an example of this issue took place for this complaint."
^DD(785.52,1,21,0)="^^1^1^2950223^^^"
^DD(785.52,1,21,1,0)="The date actions took place to inspire the selection of this Issue Code."
^DD(785.52,1,"DT")="2950223"
^DD(785.52,"B","DATE OCCURRED",1)=""
^DD(785.52,"B","ISSUE CODES",.01)=""
^DD(785.52,"GL",0,1,.01)=""
^DD(785.52,"GL",0,2,1)=""
^DD(785.52,"IX",.01)=""
^DD(785.54,0)="NARRATIVE INFORMATION SUB-FIELD^^.01^1"
^DD(785.54,0,"NM","NARRATIVE INFORMATION")=""
^DD(785.54,0,"UP")="785.5"
^DD(785.54,.01,0)="NARRATIVE INFORMATION^W^^0;1^Q"
^DD(785.54,.01,3)="Enter a list of names of people, documents, or records that the complainant wants you to interview or inspect."
^DD(785.54,.01,21,0)="^^2^2^2950210^^^^"
^DD(785.54,.01,21,1,0)="You may enter any information pertaining to this complaint, this field will"
^DD(785.54,.01,21,2,0)="be displayed on Form 0210 (Initial Complaint Intake Form)."
^DD(785.54,.01,"DT")="2940114"
^DD(785.54,"B","NARRATIVE INFORMATION",.01)=""
^DD(785.54,"GL",0,1,.01)=""
^DD(785.561,0)="CORRECTIVE ACTION SUB-FIELD^^.01^1"
^DD(785.561,0,"IX","B",785.561,.01)=""
^DD(785.561,0,"NM","CORRECTIVE ACTION")=""
^DD(785.561,0,"UP")="785.5"
^DD(785.561,.01,0)="CORRECTIVE ACTION^MP785.2'X^EEO(785.2,^0;1^Q"
^DD(785.561,.01,1,0)="^.1"
^DD(785.561,.01,1,1,0)="785.561^B"
^DD(785.561,.01,1,1,1)="S ^EEO(785.5,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(785.561,.01,1,1,2)="K ^EEO(785.5,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(785.561,.01,3)="Enter remedies being sought by the Complainant."
^DD(785.561,.01,21,0)="^^3^3^2941209^"
^DD(785.561,.01,21,1,0)="The resolution the complainant is seeking.  What actions the complainant"
^DD(785.561,.01,21,2,0)="feels would rectify the situation.  This field points to the Corrective"
^DD(785.561,.01,21,3,0)="Actions file (#785.2)."
^DD(785.561,.01,"DT")="2941215"
^DD(785.561,"B","CORRECTIVE ACTION",.01)=""
^DD(785.561,"GL",0,1,.01)=""
^DD(785.561,"IX",.01)=""
^DD(786,0)="FIELD^^99.1^3"
^DD(786,0,"DDA")="N"
^DD(786,0,"DT")="2920508"
^DD(786,0,"IX","B",786,.01)=""
^DD(786,0,"NM","EEO COMPLAINT ISSUE CODES")=""
^DD(786,0,"PT",785.02,.01)=""
^DD(786,0,"PT",785.52,.01)=""
^DD(786,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X S STANO=$G(STANO) K:$$SITE^EEOEEXMT=STANO!(STANO="""") X K:'$D(XMZ)!('$D(EEO(""ROOT""))) X"
^DD(786,.01,1,0)="^.1"
^DD(786,.01,1,1,0)="786^B"
^DD(786,.01,1,1,1)="S ^EEO(786,""B"",$E(X,1,30),DA)="""""
^DD(786,.01,1,1,2)="K ^EEO(786,""B"",$E(X,1,30),DA)"
^DD(786,.01,3)="ONLY VA CENTRAL OFFICE AND REGION USERS MAY MODIFY ENTRIES WITHIN THIS FILE.  ADDITIONAL ENTRIES MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION."
^DD(786,.01,8.5)="""@"""
^DD(786,.01,21,0)="^^1^1^2950327^^^^"
^DD(786,.01,21,1,0)="This field contains the Issue Codes from which the complainant may choose."
^DD(786,.01,"DEL",1,0)="I 1"
^DD(786,.01,"DT")="2940321"
^DD(786,99,0)="LAST XMIT UPDATE^D^^XMT;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(786,99,"DT")="2940309"
^DD(786,99.1,0)="TRANSMIT FLAG^F^^XMT;2^K:$L(X)>1!($L(X)<1)!'(X?1""X"") X"
^DD(786,99.1,3)="Answer must be 1 character in length."
^DD(786,99.1,"DT")="2940310"
^DD(786,"B","LAST XMIT UPDATE",99)=""
^DD(786,"B","NAME",.01)=""
^DD(786,"B","TRANSMIT FLAG",99.1)=""
^DD(786,"GL",0,1,.01)=""
^DD(786,"GL","XMT",1,99)=""
^DD(786,"GL","XMT",2,99.1)=""
^DD(786,"IX",.01)=""
^DD(786,"RQ",.01)=""
^DD(787.5,0)="FIELD^^999^10"
^DD(787.5,0,"DDA")="N"
^DD(787.5,0,"DT")="2941007"
^DD(787.5,0,"IX","B",787.5,.01)=""
^DD(787.5,0,"IX","C",787.5999,.01)=""
^DD(787.5,0,"IX","D",787.5,.01)=""
^DD(787.5,0,"LOOK")="SOUNDEX"
^DD(787.5,0,"NM","EEO CENTRAL INVESTIGATORS")=""
^DD(787.5,0,"PT",785.03,.01)=""
^DD(787.5,0,"PT",785.03,5)=""
^DD(787.5,0,"QUES")="SOUNDEX"
^DD(787.5,.01,0)="NAME^RFX^^0;1^K:X=""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?1U.UP1"",""1U.UP) X Q:$$SITE^EEOEEXMT=$$SERVNO^EEOEEXMT!('$D(X))  K:'$D(XMZ)!('$D(EEO(""ROOT""))) X S:$D(X) EEOXX=1"
^DD(787.5,.01,.1)=""
^DD(787.5,.01,1,0)="^.1"
^DD(787.5,.01,1,1,0)="787.5^B"
^DD(787.5,.01,1,1,1)="S ^EEO(787.5,""B"",$E(X,1,30),DA)="""""
^DD(787.5,.01,1,1,2)="K ^EEO(787.5,""B"",$E(X,1,30),DA)"
^DD(787.5,.01,1,2,0)="787.5^D^SOUNDEX"
^DD(787.5,.01,1,2,1)="S I=$E(X,1,27) D SOU^DICM S ^EEO(787.5,""D"",X_I,DA)="""""
^DD(787.5,.01,1,2,2)="S I=$E(X,1,27) D SOU^DICM K ^EEO(787.5,""D"",X_I,DA)"
^DD(787.5,.01,1,2,"%D",0)="^^4^4^2941011^"
^DD(787.5,.01,1,2,"%D",1,0)="This soundex cross-reference will help eliminate duplicate entries."
^DD(787.5,.01,1,2,"%D",2,0)=" "
^DD(787.5,.01,1,2,"%D",3,0)=" "
^DD(787.5,.01,1,2,"%D",4,0)=" "
^DD(787.5,.01,1,2,"DT")="2941011"
^DD(787.5,.01,3)="ONLY VA CENTRAL OFFICE AND REGION USERS MAY MODIFY ENTRIES WITHIN THIS FILE."
^DD(787.5,.01,21,0)="^^1^1^2950327^^^^"
^DD(787.5,.01,21,1,0)="This required field is referenced by file (#785) to identify a Region specific investigator for each EEO complaint."
^DD(787.5,.01,23,0)="^^15^15^2941006^^"
^DD(787.5,.01,23,1,0)=" "
^DD(787.5,.01,23,2,0)=" "
^DD(787.5,.01,23,3,0)=" "
^DD(787.5,.01,23,4,0)=" "
^DD(787.5,.01,23,5,0)=" "
^DD(787.5,.01,23,6,0)=" "
^DD(787.5,.01,23,7,0)=" "
^DD(787.5,.01,23,8,0)=" "
^DD(787.5,.01,23,9,0)=" "
^DD(787.5,.01,23,10,0)=" "
^DD(787.5,.01,23,11,0)=" "
^DD(787.5,.01,23,12,0)=" "
^DD(787.5,.01,23,13,0)=" "
^DD(787.5,.01,23,14,0)=" "
^DD(787.5,.01,23,15,0)=" "
^DD(787.5,.01,"DEL",1,0)="I 1"
^DD(787.5,.01,"DT")="2940808"
^DD(787.5,1,0)="TYPE^787.51S^^1;0"
^DD(787.5,2,0)="STATE^P5'X^DIC(5,^0;3^S:$D(X) EEOXX=1"
^DD(787.5,2,3)="THIS CAN ONLY BE MODIFIED BY THE REGION"
^DD(787.5,2,21,0)="^^1^1^2940310^^"
^DD(787.5,2,21,1,0)="This field points to the State file (#5), and represents the state in which the Investigator resides."
^DD(787.5,2,"DEL",1,0)="I 1"
^DD(787.5,2,"DT")="2940310"
^DD(787.5,3,0)="STREET ADDRESS^FX^^0;4^K:$L(X)>35!($L(X)<1) X S:$D(X) EEOXX=1"
^DD(787.5,3,3)="THIS FILE CAN ONLY BE MODIFIED BY THE REGION"
^DD(787.5,3,21,0)="^^1^1^2940331^^"
^DD(787.5,3,21,1,0)="The street address on which the assigned investigator resides."
^DD(787.5,3,"DEL",1,0)="I 1"
^DD(787.5,3,"DT")="2940331"
^DD(787.5,4,0)="CITY^FX^^0;5^K:$L(X)>30!($L(X)<1) X S:$D(X) EEOXX=1"
^DD(787.5,4,3)="Answer must be 1-30 characters in length."
^DD(787.5,4,21,0)="^^2^2^2950327^^^^"
^DD(787.5,4,21,1,0)="The name of the city in which the assigned EEO investigator resides.    "
^DD(787.5,4,21,2,0)="                        "
^DD(787.5,4,"DEL",1,0)="I 1"
^DD(787.5,4,"DT")="2940310"
^DD(787.5,5,0)="ZIP CODE^FX^^0;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X S:$D(X) EEOXX=1"
^DD(787.5,5,3)="Answer must be 5-10 characters in length."
^DD(787.5,5,"DT")="2940310"
^DD(787.5,6,0)="INVESTIGATOR STATUS^S^0:ACTIVE;1:INACTIVE;^3;1^Q"
^DD(787.5,6,3)="If the investigator is no longer actively involved in investigating EEO cases the inactive code will populate this field and a warning will be presented if this investigator is selected."
^DD(787.5,6,"DT")="2941007"
^DD(787.5,99,0)="LAST XMIT UPDATE^D^^XMT;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(787.5,99,3)=""
^DD(787.5,99,"DT")="2940310"
^DD(787.5,99.1,0)="TRANSMIT FLAG^F^^XMT;2^K:$L(X)>1!($L(X)<1)!'(X?1""X"") X"
^DD(787.5,99.1,3)="Answer must be 1 character in length."
^DD(787.5,99.1,"DT")="2940310"
^DD(787.5,999,0)="OLD INVESTIGATOR'S IENS(787)^787.5999^^2;0"
^DD(787.5,999,"DT")="2940718"
^DD(787.5,"B","CITY",4)=""
^DD(787.5,"B","INVESTIGATOR STATUS",6)=""
^DD(787.5,"B","LAST XMIT UPDATE",99)=""
^DD(787.5,"B","NAME",.01)=""
^DD(787.5,"B","OLD INVESTIGATOR'S IENS(787)",999)=""
^DD(787.5,"B","STATE",2)=""
^DD(787.5,"B","STREET ADDRESS",3)=""
^DD(787.5,"B","TRANSMIT FLAG",99.1)=""
^DD(787.5,"B","TYPE",1)=""
^DD(787.5,"B","ZIP CODE",5)=""
^DD(787.5,"GL",0,1,.01)=""
^DD(787.5,"GL",0,3,2)=""
^DD(787.5,"GL",0,4,3)=""
^DD(787.5,"GL",0,5,4)=""
^DD(787.5,"GL",0,6,5)=""
^DD(787.5,"GL",1,0,1)=""
^DD(787.5,"GL",2,0,999)=""
^DD(787.5,"GL",3,1,6)=""
^DD(787.5,"GL","XMT",1,99)=""
^DD(787.5,"GL","XMT",2,99.1)=""
^DD(787.5,"IX",.01)=""
^DD(787.5,"RQ",.01)=""
^DD(787.5,"SB",787.51,1)=""
^DD(787.5,"SB",787.5999,999)=""
^DD(787.51,0)="TYPE SUB-FIELD^^2^3"
^DD(787.51,0,"DT")="2940307"
^DD(787.51,0,"IX","B",787.51,.01)=""
^DD(787.51,0,"NM","TYPE")=""
^DD(787.51,0,"UP")="787.5"
^DD(787.51,.01,0)="TYPE^MSX^1:ADHOC;2:RETIRED ANNUITANT;3:REGION SPECIALIST;^0;1^S:$D(X) EEOXX=1 Q"
^DD(787.51,.01,1,0)="^.1"
^DD(787.51,.01,1,1,0)="787.51^B"
^DD(787.51,.01,1,1,1)="S ^EEO(787.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(787.51,.01,1,1,2)="K ^EEO(787.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(787.51,.01,"DT")="2940310"
^DD(787.51,1,0)="EFFECTIVE DATE^RDX^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) EEOXX=1"
^DD(787.51,1,3)="Enter the date that the investigator attained this type classification."
^DD(787.51,1,"DT")="2940310"
^DD(787.51,2,0)="TERMINAL DATE^DX^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) EEOXX=1"
^DD(787.51,2,3)="The date that the investigator becomes another type of investigator.  "
^DD(787.51,2,"DT")="2940310"
^DD(787.51,"B","EFFECTIVE DATE",1)=""
^DD(787.51,"B","TERMINAL DATE",2)=""
^DD(787.51,"B","TYPE",.01)=""
^DD(787.51,"GL",0,1,.01)=""
^DD(787.51,"GL",0,2,1)=""
^DD(787.51,"GL",0,3,2)=""
^DD(787.51,"IX",.01)=""
^DD(787.51,"RQ",1)=""
^DD(787.5999,0)="OLD INVESTIGATOR'S IENS(787) SUB-FIELD^^.01^1"
^DD(787.5999,0,"DT")="2940720"
^DD(787.5999,0,"IX","B",787.5999,.01)=""
^DD(787.5999,0,"NM","OLD INVESTIGATOR'S IENS(787)")=""
^DD(787.5999,0,"UP")="787.5"
^DD(787.5999,.01,0)="OLD INVESTIGATOR'S IENS(787)^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?.N) X"
^DD(787.5999,.01,1,0)="^.1"
^DD(787.5999,.01,1,1,0)="787.5999^B"
^DD(787.5999,.01,1,1,1)="S ^EEO(787.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(787.5999,.01,1,1,2)="K ^EEO(787.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(787.5999,.01,1,2,0)="787.5^C"
^DD(787.5999,.01,1,2,1)="S ^EEO(787.5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(787.5999,.01,1,2,2)="K ^EEO(787.5,""C"",$E(X,1,30),DA(1),DA)"
^DD(787.5999,.01,1,2,"DT")="2940720"
^DD(787.5999,.01,3)="Answer must be 1-8 characters in length."
^DD(787.5999,.01,"DT")="2940720"
^DD(787.5999,"B","OLD INVESTIGATOR'S IENS(787)",.01)=""
^DD(787.5999,"GL",0,1,.01)=""
^DD(787.5999,"IX",.01)=""
^DD(789.5,0)="FIELD^^3^3"
^DD(789.5,0,"DDA")="N"
^DD(789.5,0,"DT")="2950216"
^DD(789.5,0,"IX","B",789.5,.01)=""
^DD(789.5,0,"NM","EEO SERVER PARAMETERS")=""
^DD(789.5,.01,0)="SERVER STATION NUMBER^RNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) K:'$D(^DIC(4,""D"",X)) X I $D(^EEO(789.5,""B"")) W !!,""ONLY ONE ENTRY ALLOWED"",!! K X"
^DD(789.5,.01,1,0)="^.1"
^DD(789.5,.01,1,1,0)="789.5^B"
^DD(789.5,.01,1,1,1)="S ^EEO(789.5,""B"",$E(X,1,30),DA)="""""
^DD(789.5,.01,1,1,2)="K ^EEO(789.5,""B"",$E(X,1,30),DA)"
^DD(789.5,.01,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(789.5,.01,21,0)="^^1^1^2921030^"
^DD(789.5,.01,21,1,0)="This is a required field that identifies the server station."
^DD(789.5,.01,"DT")="2921209"
^DD(789.5,1,0)="DOMAIN^RP4.2'^DIC(4.2,^0;2^Q"
^DD(789.5,1,21,0)="^^1^1^2921124^^^"
^DD(789.5,1,21,1,0)="This is a required field that points to the server station in the Domain file."
^DD(789.5,1,"DT")="2921001"
^DD(789.5,3,0)="EEO OFFICER^P200'^VA(200,^1;1^Q"
^DD(789.5,3,3)="Enter the name of the EEO Officer that will be the default selection at EEO Officer prompts throughout the EEO package. "
^DD(789.5,3,"DT")="2950216"
^DD(789.5,"B","DOMAIN",1)=""
^DD(789.5,"B","EEO OFFICER",3)=""
^DD(789.5,"B","SERVER STATION NUMBER",.01)=""
^DD(789.5,"GL",0,1,.01)=""
^DD(789.5,"GL",0,2,1)=""
^DD(789.5,"GL",1,1,3)=""
^DD(789.5,"IX",.01)=""
^DD(789.5,"RQ",.01)=""
^DD(789.5,"RQ",1)=""
^DD(790,0)="FIELD^^3^26"
^DD(790,0,"DDA")="N"
^DD(790,0,"DT")="2980616"
^DD(790,0,"ID",.1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790.01,+$P(^(0),U,10),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790.01,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790,0,"IX","AEDC",790,.13)=""
^DD(790,0,"IX","AEDC1",790,.14)=""
^DD(790,0,"IX","APDLOG",790,.17)=""
^DD(790,0,"IX","APRLOG",790,.16)=""
^DD(790,0,"IX","B",790,.01)=""
^DD(790,0,"IX","C",790,.1)=""
^DD(790,0,"NM","WV PATIENT")=""
^DD(790,0,"PT",790.04,.02)=""
^DD(790,0,"PT",790.05,.02)=""
^DD(790,0,"PT",790.1,.02)=""
^DD(790,0,"PT",790.3,1)=""
^DD(790,0,"PT",790.4,.01)=""
^DD(790,0,"VR")="1.0"
^DD(790,0,"VRPK")="WOMEN'S HEALTH"
^DD(790,.01,0)="NAME^RP2'X^DPT(^0;1^S:$D(X) DINUM=X I $P(^DPT(DINUM,0),""^"",2)'=""F"" K X D EN^DDIOL(""Patient is not female."")"
^DD(790,.01,1,0)="^.1^^-1"
^DD(790,.01,1,1,0)="790^B"
^DD(790,.01,1,1,1)="S ^WV(790,""B"",$E(X,1,30),DA)="""""
^DD(790,.01,1,1,2)="K ^WV(790,""B"",$E(X,1,30),DA)"
^DD(790,.01,3)=""
^DD(790,.01,21,0)="^^2^2^2980918^"
^DD(790,.01,21,1,0)="This field contains the patient's name.  It is a pointer to the Patient"
^DD(790,.01,21,2,0)="(#2) file."
^DD(790,.01,"DT")="2980508"
^DD(790,.02,0)="MAILING ADDRESS-STREET^CJ25^^ ; ^X ^DD(790,.02,9.2) S X=$P(Y(790,.02,101),U,1) S D0=Y(790,.02,80)"
^DD(790,.02,9)="^"
^DD(790,.02,9.01)="2^.111;790^.01"
^DD(790,.02,9.1)=".01:.111"
^DD(790,.02,9.2)="S Y(790,.02,80)=$S($D(D0):D0,1:""""),Y(790,.02,1)=$S($D(^WV(790,D0,0)):^(0),1:""""),D0=$P(Y(790,.02,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.02,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(790,.02,21,0)="^^2^2^2980629^"
^DD(790,.02,21,1,0)="The street mailing address of this patient.  This is computed from data in"
^DD(790,.02,21,2,0)="the Patient file."
^DD(790,.02,"DT")="2980513"
^DD(790,.03,0)="MAILING ADDRESS-CITY^CJ20^^ ; ^X ^DD(790,.03,9.2) S X=$P(Y(790,.03,101),U,4) S D0=Y(790,.03,80)"
^DD(790,.03,9)="^"
^DD(790,.03,9.01)="2^.114;790^.01"
^DD(790,.03,9.1)=".01:.114"
^DD(790,.03,9.2)="S Y(790,.03,80)=$S($D(D0):D0,1:""""),Y(790,.03,1)=$S($D(^WV(790,D0,0)):^(0),1:""""),D0=$P(Y(790,.03,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.03,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(790,.03,21,0)="^^2^2^2980629^"
^DD(790,.03,21,1,0)="The city mailing address for this patient.  This information in this field"
^DD(790,.03,21,2,0)="is obtained from the Patient file."
^DD(790,.03,"DT")="2980513"
^DD(790,.04,0)="MAILING ADDRESS-STATE^CJ2^^ ; ^X ^DD(790,.04,9.3) S X=$P(Y(790,.04,201),U,2) S D0=Y(790,.04,80)"
^DD(790,.04,9)="^"
^DD(790,.04,9.01)="5^1;2^.115;790^.01"
^DD(790,.04,9.1)=".01:.115:1"
^DD(790,.04,9.2)="S Y(790,.04,80)=$S($D(D0):D0,1:""""),Y(790,.04,1)=$S($D(^WV(790,D0,0)):^(0),1:""""),D0=$P(Y(790,.04,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.04,180)=$S($D(D0):D0,1:"""")"
^DD(790,.04,9.3)="X ^DD(790,.04,9.2) S Y(790,.04,101)=$S($D(^DPT(D0,.11)):^(.11),1:""""),D0=$P(Y(790,.04,101),U,5) S:'$D(^DIC(5,+D0,0)) D0=-1 S Y(790,.04,201)=$S($D(^DIC(5,D0,0)):^(0),1:"""")"
^DD(790,.04,21,0)="^^2^2^2980918^"
^DD(790,.04,21,1,0)="The State portion of this patient's mailing address, obtained from the"
^DD(790,.04,21,2,0)="Patient file."
^DD(790,.04,"DT")="2980513"
^DD(790,.05,0)="MAILING ADDRESS-ZIP^CJ10^^ ; ^X ^DD(790,.05,9.2) S X=$P(Y(790,.05,101),U,6) S D0=Y(790,.05,80)"
^DD(790,.05,9)="^"
^DD(790,.05,9.01)="2^.116;790^.01"
^DD(790,.05,9.1)=".01:.116"
^DD(790,.05,9.2)="S Y(790,.05,80)=$S($D(D0):D0,1:""""),Y(790,.05,1)=$S($D(^WV(790,D0,0)):^(0),1:""""),D0=$P(Y(790,.05,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.05,101)=$S($D(^DPT(D0,.11)):^(.11),1:"""")"
^DD(790,.05,21,0)="^^2^2^2980918^"
^DD(790,.05,21,1,0)="The zip code portion of this patient's mailing address is obtained from"
^DD(790,.05,21,2,0)="the Patient file."
^DD(790,.05,"DT")="2980513"
^DD(790,.06,0)="SSN#^CJ12^^ ; ^X ^DD(790,.06,9.2) S X=$P(Y(790,.06,101),U,9) S D0=Y(790,.06,80)"
^DD(790,.06,9)="^"
^DD(790,.06,9.01)="2^.09;790^.01"
^DD(790,.06,9.1)=".01:SSN"
^DD(790,.06,9.2)="S Y(790,.06,80)=$S($D(D0):D0,1:""""),Y(790,.06,1)=$S($D(^WV(790,D0,0)):^(0),1:""""),D0=$P(Y(790,.06,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(790,.06,101)=$S($D(^DPT(D0,0)):^(0),1:"""")"
^DD(790,.06,21,0)="^^2^2^2980918^"
^DD(790,.06,21,1,0)="This computed field gathers the patient's social security number from the"
^DD(790,.06,21,2,0)="Patient file."
^DD(790,.06,"DT")="2980518"
^DD(790,.1,0)="CASE MANAGER^RP790.01'^WV(790.01,^0;10^Q"
^DD(790,.1,1,0)="^.1"
^DD(790,.1,1,1,0)="790^C"
^DD(790,.1,1,1,1)="S ^WV(790,""C"",$E(X,1,30),DA)="""""
^DD(790,.1,1,1,2)="K ^WV(790,""C"",$E(X,1,30),DA)"
^DD(790,.1,1,1,"DT")="2940917"
^DD(790,.1,3)="Select the person who is currently managing this patient's breast and cervical treatment needs, letters, follow-up, etc."
^DD(790,.1,21,0)="^^2^2^2980918^^"
^DD(790,.1,21,1,0)="This field contains the name of the person who is currently managing the"
^DD(790,.1,21,2,0)="women's health care needs of this patient."
^DD(790,.1,"DT")="2980507"
^DD(790,.11,0)="CX TX NEED^P790.5'^WV(790.5,^0;11^Q"
^DD(790,.11,3)="Select the current or next cervical procedure needed for this patient."
^DD(790,.11,21,0)="^^2^2^2980629^"
^DD(790,.11,21,1,0)="This field contains the name of the current or next cervical procedure or"
^DD(790,.11,21,2,0)="treatment need scheduled for this patient."
^DD(790,.11,"DT")="2980507"
^DD(790,.12,0)="CX TX NEED DUE DATE^D^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(790,.12,3)="Enter the date by which this cervical treatment need should be completed."
^DD(790,.12,21,0)="^^2^2^2980918^^"
^DD(790,.12,21,1,0)="This field contains the date when this cervical procedure or treatment"
^DD(790,.12,21,2,0)="need should be completed."
^DD(790,.12,"DT")="2950317"
^DD(790,.13,0)="CURRENTLY PREGNANT^S^1:YES;0:NO;^0;13^Q"
^DD(790,.13,1,0)="^.1"
^DD(790,.13,1,1,0)="790^AEDC^MUMPS"
^DD(790,.13,1,1,1)="S WVPREG=X,WVEDC=$P(^WV(790,DA,0),U,14) D STOREDC^WVUTL3"
^DD(790,.13,1,1,2)="S WVPREG="""",WVEDC=0 D STOREDC^WVUTL3"
^DD(790,.13,1,1,"DT")="2941024"
^DD(790,.13,3)="Enter 'Yes' if this patient is currently pregnant, 'No' if not, and leave blank if unknown."
^DD(790,.13,21,0)="^^4^4^2980918^^"
^DD(790,.13,21,1,0)="This field contains information on the pregnancy status of the patient."
^DD(790,.13,21,2,0)="The status is a set of codes: 1 = Yes if this patient is currently"
^DD(790,.13,21,3,0)="pregnant, 0 = No, if not.  When the pregnanacy status is unknown, the"
^DD(790,.13,21,4,0)="field is blank."
^DD(790,.13,"DT")="2941024"
^DD(790,.14,0)="EDC^D^^0;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(790,.14,1,0)="^.1"
^DD(790,.14,1,1,0)="790^AEDC1^MUMPS"
^DD(790,.14,1,1,1)="S WVEDC=X,WVPREG=$P(^WV(790,DA,0),U,13) D STOREDC^WVUTL3"
^DD(790,.14,1,1,2)="S WVEDC="""",WVPREG=$P(^WV(790,DA,0),U,13) D STOREDC^WVUTL3"
^DD(790,.14,1,1,"DT")="2941024"
^DD(790,.14,3)="Enter the estimated date of confinement (delivery date)."
^DD(790,.14,21,0)="^^2^2^2980918^^^"
^DD(790,.14,21,1,0)="This field stores the patient's delivery date or estimated date of"
^DD(790,.14,21,2,0)="confinement (EDC)."
^DD(790,.14,"DT")="2941024"
^DD(790,.15,0)="DES DAUGHTER^S^1:YES;0:NO;9:UNKNOWN;^0;15^Q"
^DD(790,.15,3)="Enter 'Yes' if this patient's mother took DES when she was pregnant with this patient."
^DD(790,.15,21,0)="^^2^2^2990524^^"
^DD(790,.15,21,1,0)="This field indicates if this patient's mother took diethylstilbestrol"
^DD(790,.15,21,2,0)="(DES) when she was pregnant with this patient."
^DD(790,.15,"DT")="2990524"
^DD(790,.16,0)="PAP REGIMEN^P790.03'^WV(790.03,^0;16^Q"
^DD(790,.16,1,0)="^.1"
^DD(790,.16,1,1,0)="790^APRLOG^MUMPS"
^DD(790,.16,1,1,1)="S WVLPRG=X,WVLDAT=$P(^WV(790,DA,0),U,17) D STORPAP^WVUTL3"
^DD(790,.16,1,1,2)=";"
^DD(790,.16,1,1,"DT")="2941021"
^DD(790,.16,3)=""
^DD(790,.16,21,0)="^^1^1^2980630^^^"
^DD(790,.16,21,1,0)="This field stores the current PAP regimen for the patient."
^DD(790,.16,"DT")="2980507"
^DD(790,.17,0)="PAP REGIMEN START DATE^D^^0;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(790,.17,1,0)="^.1"
^DD(790,.17,1,1,0)="790^APDLOG^MUMPS"
^DD(790,.17,1,1,1)="S WVLDAT=X,WVLPRG=$P(^WV(790,DA,0),U,16) D STORPAP^WVUTL3"
^DD(790,.17,1,1,2)=";"
^DD(790,.17,1,1,"DT")="2941021"
^DD(790,.17,3)="Enter the date on which the patient began or will begin the current PAP regimen."
^DD(790,.17,21,0)="^^2^2^2980918^"
^DD(790,.17,21,1,0)="This field stores a date on which the patient began or will begin her"
^DD(790,.17,21,2,0)="current PAP regimen."
^DD(790,.17,"DT")="2941021"
^DD(790,.18,0)="BR TX NEED^P790.51'^WV(790.51,^0;18^Q"
^DD(790,.18,3)="Select the current or next breast study procedure needed for this patient."
^DD(790,.18,21,0)="^^2^2^2980630^"
^DD(790,.18,21,1,0)="This field contains the name of the the current or next breast study"
^DD(790,.18,21,2,0)="procedure needed for this patient."
^DD(790,.18,"DT")="2980507"
^DD(790,.19,0)="BR TX NEED DUE DATE^D^^0;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(790,.19,3)="Enter the date by which this breast Tx procedure should be completed."
^DD(790,.19,21,0)="^^2^2^2980924^"
^DD(790,.19,21,1,0)="This field contains the date by which the breast treatment procedure"
^DD(790,.19,21,2,0)="should be completed."
^DD(790,.19,"DT")="2950317"
^DD(790,.21,0)="DATE OF FIRST ENCOUNTER^DX^^0;21^S %DT=""EX"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(790,.21,3)="Enter the date on which this patient was enrolled in the Women's Health package."
^DD(790,.21,21,0)="^^4^4^2980828^^"
^DD(790,.21,21,1,0)="This field contains the date of the patient's first clinic visit."
^DD(790,.21,21,2,0)="Although a date is automatically stuffed when the Automatically Load"
^DD(790,.21,21,3,0)="Patients [WV AUTOLOAD PATIENTS] option is run, the information can be"
^DD(790,.21,21,4,0)="edited through the Edit/Print Patient Case Data option."
^DD(790,.21,"DT")="2980723"
^DD(790,.22,0)="REFERRAL SOURCE^P790.07'^WV(790.07,^0;22^Q"
^DD(790,.22,3)=""
^DD(790,.22,21,0)="^^3^3^2980630^"
^DD(790,.22,21,1,0)="This field stores information on who referred the patient or how the"
^DD(790,.22,21,2,0)="patient found out about the womens health care services at the facility."
^DD(790,.22,21,3,0)="This field points to entries in the WV Referral Source (#790.07) file."
^DD(790,.22,"DT")="2980520"
^DD(790,.23,0)="FAMILY HX OF BR CA^S^0:no family history;1:2nd degree relative;2:1st degree relative;3:>1 1st degree relatives;4:personal history;9:unknown;^0;23^Q"
^DD(790,.23,3)="Enter the code that describes the category of relative(s) who have had breast cancer.  (1st degree relative is a sister/mother, 2nd degree relatives are extended family.)"
^DD(790,.23,21,0)="^^5^5^2990524^"
^DD(790,.23,21,1,0)="This field identifies if the patient or the patient's relatives have had"
^DD(790,.23,21,2,0)="breast cancer. The information may be selected from a set of codes to"
^DD(790,.23,21,3,0)="indicate unknown, personal history, no family history, a 2nd degree"
^DD(790,.23,21,4,0)="relative (cousin, aunt, grandmother), a 1st degree relative (mother OR"
^DD(790,.23,21,5,0)="sister) or multiple 1st degree relatives (mother AND sister)."
^DD(790,.23,"DT")="2990524"
^DD(790,.24,0)="DATE INACTIVE^D^^0;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790,.24,3)="Enter the date on which this patient became inactive.  ANY date (past, present or future) will cause this patient to be excluded from all reports that assess treatment needs."
^DD(790,.24,21,0)="^^5^5^2980918^"
^DD(790,.24,21,1,0)="This field contains the date on which this patient's record became"
^DD(790,.24,21,2,0)="inactive.  ANY date (past, present or future) will cause this patient's"
^DD(790,.24,21,3,0)="data to be excluded from all reports that assess treatment needs (i.e.,"
^DD(790,.24,21,4,0)="Snapshot of the Program Today report and Browse Patients with Needs Past"
^DD(790,.24,21,5,0)="Due)."
^DD(790,.24,"DT")="2960301"
^DD(790,.25,0)="BREAST TX FACILITY^P4'^DIC(4,^0;25^Q"
^DD(790,.25,3)="The name of the facility that has the responsibility to provide the appropriate breast tests/exams for this patient."
^DD(790,.25,21,0)="^^3^3^2980918^^"
^DD(790,.25,21,1,0)="The name of the facility responsible for performing breast diagnostic"
^DD(790,.25,21,2,0)="procedures for this patient if treatment is performed at another facility."
^DD(790,.25,21,3,0)="Facility choices are limited to entries in the Institution (#4) file."
^DD(790,.25,"DT")="2980526"
^DD(790,.26,0)="CERVICAL TX FACILITY^P4'^DIC(4,^0;26^Q"
^DD(790,.26,3)="The name of the facility that has the responsibility to provide the appropriate cervical tests/exams for this patient."
^DD(790,.26,21,0)="^^4^4^2980918^^"
^DD(790,.26,21,1,0)="The name of the facility that is responsible for providing the"
^DD(790,.26,21,2,0)="gynecological tests/exams for this patient if treatment is performed at"
^DD(790,.26,21,3,0)="another facility. Facility choices are limited to entries in the"
^DD(790,.26,21,4,0)="Institution (#4) file."
^DD(790,.26,"DT")="2980526"
^DD(790,.28,0)="CST^S^Y:Yes;N:No;D:Declined to Answer;U:Unknown;^0;28^Q"
^DD(790,.28,21,0)="^.001^2^2^3001229^^"
^DD(790,.28,21,1,0)="This field indicates if the patient has experienced any sexual trauma"
^DD(790,.28,21,2,0)="(rape, sexual assault, etc.) as a civilian."
^DD(790,.28,"DT")="3001229"
^DD(790,1.01,0)="NOTES^790.06^^1;0"
^DD(790,1.01,21,0)="^^2^2^2980706^"
^DD(790,1.01,21,1,0)="This field stores special notes regarding the patient and her health care"
^DD(790,1.01,21,2,0)="needs."
^DD(790,2,0)="APPOINTMENTS^790.09A^^2;0"
^DD(790,2,21,0)="^^1^1^2990903^"
^DD(790,2,21,1,0)="This multiple contains the patient's future appointments."
^DD(790,3,0)="COMPLETE ADDRESS^790.12A^^3;0"
^DD(790,3,21,0)="^^1^1^3000114^"
^DD(790,3,21,1,0)="This multiple field contains the patient's complete mailing address."
^DD(790,3,23,0)="^^2^2^3000114^^^^"
^DD(790,3,23,1,0)="The value for this field is created by calling the ADD^VADPT supported"
^DD(790,3,23,2,0)="API from the WVUTL9 routine."
^DD(790,3,"DT")="3000114"
^DD(790,"B","APPOINTMENTS",2)=""
^DD(790,"B","BR TX NEED",.18)=""
^DD(790,"B","BR TX NEED DUE DATE",.19)=""
^DD(790,"B","BREAST TX FACILITY",.25)=""
^DD(790,"B","CASE MANAGER",.1)=""
^DD(790,"B","CERVICAL TX FACILITY",.26)=""
^DD(790,"B","COMPLETE ADDRESS",3)=""
^DD(790,"B","CST",.28)=""
^DD(790,"B","CURRENTLY PREGNANT",.13)=""
^DD(790,"B","CX TX NEED",.11)=""
^DD(790,"B","CX TX NEED DUE DATE",.12)=""
^DD(790,"B","DATE INACTIVE",.24)=""
^DD(790,"B","DATE OF FIRST ENCOUNTER",.21)=""
^DD(790,"B","DES DAUGHTER",.15)=""
^DD(790,"B","EDC",.14)=""
^DD(790,"B","FAMILY HX OF BR CA",.23)=""
^DD(790,"B","MAILING ADDRESS-CITY",.03)=""
^DD(790,"B","MAILING ADDRESS-STATE",.04)=""
^DD(790,"B","MAILING ADDRESS-STREET",.02)=""
^DD(790,"B","MAILING ADDRESS-ZIP",.05)=""
^DD(790,"B","NAME",.01)=""
^DD(790,"B","NOTES",1.01)=""
^DD(790,"B","PAP REGIMEN",.16)=""
^DD(790,"B","PAP REGIMEN START DATE",.17)=""
^DD(790,"B","REFERRAL SOURCE",.22)=""
^DD(790,"B","SSN#",.06)=""
^DD(790,"GL",0,1,.01)=""
^DD(790,"GL",0,10,.1)=""
^DD(790,"GL",0,11,.11)=""
^DD(790,"GL",0,12,.12)=""
^DD(790,"GL",0,13,.13)=""
^DD(790,"GL",0,14,.14)=""
^DD(790,"GL",0,15,.15)=""
^DD(790,"GL",0,16,.16)=""
^DD(790,"GL",0,17,.17)=""
^DD(790,"GL",0,18,.18)=""
^DD(790,"GL",0,19,.19)=""
^DD(790,"GL",0,21,.21)=""
^DD(790,"GL",0,22,.22)=""
^DD(790,"GL",0,23,.23)=""
^DD(790,"GL",0,24,.24)=""
^DD(790,"GL",0,25,.25)=""
^DD(790,"GL",0,26,.26)=""
^DD(790,"GL",0,28,.28)=""
^DD(790,"GL",1,0,1.01)=""
^DD(790,"GL",2,0,2)=""
^DD(790,"GL",3,0,3)=""
^DD(790,"IX",.01)=""
^DD(790,"IX",.1)=""
^DD(790,"IX",.13)=""
^DD(790,"IX",.14)=""
^DD(790,"IX",.16)=""
^DD(790,"IX",.17)=""
^DD(790,"RQ",.01)=""
^DD(790,"RQ",.1)=""
^DD(790,"SB",790.06,1.01)=""
^DD(790,"SB",790.09,2)=""
^DD(790,"SB",790.12,3)=""
^DD(790.01,0)="FIELD^^.02^2"
^DD(790.01,0,"DDA")="N"
^DD(790.01,0,"IX","B",790.01,.01)=""
^DD(790.01,0,"IX","U",790.01,.01)=""
^DD(790.01,0,"NM","WV CASE MANAGER")=""
^DD(790.01,0,"PT",790,.1)=""
^DD(790.01,0,"PT",790.02,.02)=""
^DD(790.01,0,"SCR")="I $$SC^WVUTL1A(+Y)"
^DD(790.01,0,"VR")="1.0"
^DD(790.01,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.01,.01,0)="CASE MANAGER^RP200'X^VA(200,^0;1^S:$D(X) DINUM=X"
^DD(790.01,.01,1,0)="^.1"
^DD(790.01,.01,1,1,0)="790.01^B"
^DD(790.01,.01,1,1,1)="S ^WV(790.01,""B"",$E(X,1,30),DA)="""""
^DD(790.01,.01,1,1,2)="K ^WV(790.01,""B"",$E(X,1,30),DA)"
^DD(790.01,.01,1,2,0)="790.01^U^MUMPS"
^DD(790.01,.01,1,2,1)="D UPXREF^WVUTL5(X,""^WV(790.01,"")"
^DD(790.01,.01,1,2,2)="D KUPXREF^WVUTL5(X,""^WV(790.01,"")"
^DD(790.01,.01,1,2,"%D",0)="^^1^1^2960308^^"
^DD(790.01,.01,1,2,"%D",1,0)="Sets uppercase xref."
^DD(790.01,.01,1,2,"DT")="2960308"
^DD(790.01,.01,3)="Enter the name of the person who will be a Women's Health case manager."
^DD(790.01,.01,21,0)="^^2^2^2980924^^^"
^DD(790.01,.01,21,1,0)="This field contains the name(s) of WH case manager(s) assigned to manage"
^DD(790.01,.01,21,2,0)="women's health needs."
^DD(790.01,.01,"DT")="2960308"
^DD(790.01,.02,0)="DATE INACTIVATED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.01,.02,3)="Enter the date on which this case manager will be no longer active as a Women's Health case manager."
^DD(790.01,.02,21,0)="^^2^2^2980918^^"
^DD(790.01,.02,21,1,0)="This date field is used to indicate when a person is no longer recognized"
^DD(790.01,.02,21,2,0)="as a case manager.   "
^DD(790.01,.02,"DT")="2940923"
^DD(790.01,"B","CASE MANAGER",.01)=""
^DD(790.01,"B","DATE INACTIVATED",.02)=""
^DD(790.01,"GL",0,1,.01)=""
^DD(790.01,"GL",0,2,.02)=""
^DD(790.01,"IX",.01)=""
^DD(790.01,"RQ",.01)=""
^DD(790.02,0)="FIELD^^41.03^78"
^DD(790.02,0,"DT")="2980630"
^DD(790.02,0,"IX","B",790.02,.01)=""
^DD(790.02,0,"NM","WV SITE PARAMETER")=""
^DD(790.02,0,"VR")="1.0"
^DD(790.02,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.02,.01,0)="SITE/FACILITY NAME^RP4'X^DIC(4,^0;1^S:$D(X) DINUM=X"
^DD(790.02,.01,1,0)="^.1"
^DD(790.02,.01,1,1,0)="790.02^B"
^DD(790.02,.01,1,1,1)="S ^WV(790.02,""B"",$E(X,1,30),DA)="""""
^DD(790.02,.01,1,1,2)="K ^WV(790.02,""B"",$E(X,1,30),DA)"
^DD(790.02,.01,3)="Select the facility whose Women's Health site parameters you which to set."
^DD(790.02,.01,21,0)="^^4^4^2980924^"
^DD(790.02,.01,21,1,0)="This is the name of the facility, division, and/or community based"
^DD(790.02,.01,21,2,0)="outpatient clinic requiring separate site parameters.  If all divisions"
^DD(790.02,.01,21,3,0)="are using the same site parameters, then enter the name of the primary or"
^DD(790.02,.01,21,4,0)="lead facility."
^DD(790.02,.01,"DT")="2980508"
^DD(790.02,.02,0)="DEFAULT CASE MANAGER^P790.01^WV(790.01,^0;2^Q"
^DD(790.02,.02,3)="Select the name of the person who will be the case manager for most patients.  "
^DD(790.02,.02,21,0)="^^5^5^2980921^"
^DD(790.02,.02,21,1,0)="This is the name of the case manager or the individual that will be used"
^DD(790.02,.02,21,2,0)="to initially seed the patient's record.  Although the patient's care"
^DD(790.02,.02,21,3,0)="management can be transferred to another individual, this name is used as"
^DD(790.02,.02,21,4,0)="the default to deter loss of this patient's treatment needs within the"
^DD(790.02,.02,21,5,0)="facility and database.  Pointer to the WV Case Manager (790.01) file."
^DD(790.02,.02,"DT")="2980507"
^DD(790.02,.03,0)="AUTOQUEUE NORMAL PAP LETTERS^S^0:NO;1:YES;^0;3^Q"
^DD(790.02,.03,3)="Enter 'Yes' if the prompt to queue a PAP result normal letter should display after the PAP results have been entered into the patient's record."
^DD(790.02,.03,21,0)="^^6^6^2980924^"
^DD(790.02,.03,21,1,0)="This field stores a code (0 = No; 1 = Yes) that displays or hides the"
^DD(790.02,.03,21,2,0)="prompt: ""QUEUE a PAP Result Normal letter to be sent to this patient?""."
^DD(790.02,.03,21,3,0)="This question displays after the user exits either Add a NEW Procedure or"
^DD(790.02,.03,21,4,0)="Edit a Procedure option after the results of a PAP smear procedure have"
^DD(790.02,.03,21,5,0)="been entered into the patient's record and the results/diagnosis was"
^DD(790.02,.03,21,6,0)="considered normal."
^DD(790.02,.03,"DT")="2950319"
^DD(790.02,.04,0)="PAP RESULT NORMAL LETTER^P790.404'^WV(790.404,^0;4^Q"
^DD(790.02,.04,3)="Select the name of standard letter that will be used to inform the patient of a normal PAP smear result."
^DD(790.02,.04,21,0)="^^4^4^2980921^^^^"
^DD(790.02,.04,21,1,0)="This field stores the name of the PAP letter that is printed when the user"
^DD(790.02,.04,21,2,0)="answers, Yes, to the prompt: ""QUEUE a PAP Result Normal letter to be sent"
^DD(790.02,.04,21,3,0)="to this patient?"" after the procedures results have been entered into a"
^DD(790.02,.04,21,4,0)="patient's record."
^DD(790.02,.04,"DT")="2980507"
^DD(790.02,.05,0)="ASK CASE MANAGER^S^0:NO;1:YES;^0;5^Q"
^DD(790.02,.05,3)="For various reports, should the users be asked if they want to select for a particular case manager?  At smaller sites with one case manager, this should be 'No'."
^DD(790.02,.05,21,0)="^^4^4^2980921^^"
^DD(790.02,.05,21,1,0)="This field is used to display or hide a question asking users if they want"
^DD(790.02,.05,21,2,0)="to select a particular case manager within the report option, Browse"
^DD(790.02,.05,21,3,0)="Patients With Needs Past Due.   If there is only one case manager at the"
^DD(790.02,.05,21,4,0)="facility(s), the answer should be no. "
^DD(790.02,.05,"DT")="2940926"
^DD(790.02,.06,0)="DEFAULT #DAYS TO PRINT LETTER^NJ3,0^^0;6^K:+X'=X!(X>180)!(X<1)!(X?.E1"".""1N.N) X"
^DD(790.02,.06,3)="Enter the default number of days, prior to a patient's CX or BR Tx needs due date, that reminder letters (notifications) should be printed."
^DD(790.02,.06,21,0)="^^3^3^2980918^^^^"
^DD(790.02,.06,21,1,0)="This field contains a default value used to indicate the number of days"
^DD(790.02,.06,21,2,0)="prior to a patient's cervical (CX) or breast (BR) treatment needs due"
^DD(790.02,.06,21,3,0)="date, reminder letters (notifications) should be printed."
^DD(790.02,.06,"DT")="2950317"
^DD(790.02,.07,0)="AUTOQUEUE NORMAL MAM LETTERS^S^1:YES;0:NO;^0;7^Q"
^DD(790.02,.07,3)="Enter 'Yes' if the prompt to queue a MAM result normal letter should display after the mammogram results have been entered into the patient's record."
^DD(790.02,.07,21,0)="^^6^6^2980924^"
^DD(790.02,.07,21,1,0)="This field stores a code (0 = No; 1 = Yes) that displays or hides the"
^DD(790.02,.07,21,2,0)="prompt: ""QUEUE a MAM Result Normal letter to be sent to this patient?""."
^DD(790.02,.07,21,3,0)="This question displays after the user exits either Add a NEW Procedure or"
^DD(790.02,.07,21,4,0)="Edit a Procedure option after the results of a mammogram procedure have"
^DD(790.02,.07,21,5,0)="been entered into the patient's record and the results/diagnosis was"
^DD(790.02,.07,21,6,0)="considered normal."
^DD(790.02,.07,"DT")="2950319"
^DD(790.02,.08,0)="MAM RESULT NORMAL LETTER^P790.404'^WV(790.404,^0;8^Q"
^DD(790.02,.08,3)="Select the name of the standard letter that will be used to inform the patient of a normal mammogram result."
^DD(790.02,.08,21,0)="^^4^4^2980921^"
^DD(790.02,.08,21,1,0)="This field stores the name of the MAM letter that is printed when the user"
^DD(790.02,.08,21,2,0)="answers, YES, to the prompt: ""QUEUE a MAM Result Normal letter to be sent"
^DD(790.02,.08,21,3,0)="to this patient?"" after the procedures results have been entered into a"
^DD(790.02,.08,21,4,0)="patient's record."
^DD(790.02,.08,"DT")="2980507"
^DD(790.02,.1,0)="IMPORT MAMS FROM RADIOLOGY^S^1:YES;0:NO;^0;10^Q"
^DD(790.02,.1,3)="Enter 'Yes' if the Radiology/Nuclear Medicine package is in use at this site and you wish mammography reports to be imported automatically into the Women's Health database."
^DD(790.02,.1,21,0)="^^3^3^2980921^^^"
^DD(790.02,.1,21,1,0)="This field is used to automatically import and store mammography reports,"
^DD(790.02,.1,21,2,0)="from the VISTA Radiology/Nuclear Medicine package, in the Women's Health"
^DD(790.02,.1,21,3,0)="database."
^DD(790.02,.1,"DT")="2950526"
^DD(790.02,.11,0)="UPDATE RESULTS/DX^S^0:NO;1:YES;^0;11^Q"
^DD(790.02,.11,21,0)="^^6^6^3021226^"
^DD(790.02,.11,21,1,0)="This field indicates if the RESULTS/DIAGNOSIS field of the WV PROCEDURE "
^DD(790.02,.11,21,2,0)="file (790.1) should be updated from a Clinical Reminder."
^DD(790.02,.11,21,3,0)=" "
^DD(790.02,.11,21,4,0)="Answer YES if you want Clinical Reminders to be able to update the "
^DD(790.02,.11,21,5,0)="RESULTS/DIAGNOSIS field in a WV PROCEDURE file (790.1) entry. Answer NO, "
^DD(790.02,.11,21,6,0)="if Clinical Reminders should not update the RESULTS/DIAGNOSIS field."
^DD(790.02,.11,"DT")="3040123"
^DD(790.02,.12,0)="UPDATE TREATMENT NEEDS^S^0:NO;1:YES;^0;12^Q"
^DD(790.02,.12,21,0)="^^7^7^3021216^"
^DD(790.02,.12,21,1,0)="This field indicates if the patient's breast and cervical treatment needs "
^DD(790.02,.12,21,2,0)="and treatment due dates should be updated in the WV PATIENT file (#790) "
^DD(790.02,.12,21,3,0)="from a Clinical Reminder."
^DD(790.02,.12,21,4,0)=" "
^DD(790.02,.12,21,5,0)="Answer YES if the patient's treatment need and due date values can be "
^DD(790.02,.12,21,6,0)="updated from a Clinical Reminder. Answer NO if the treatment need and "
^DD(790.02,.12,21,7,0)="due date values should not be updated from a Clinical Reminder. "
^DD(790.02,.12,"DT")="3021216"
^DD(790.02,.15,0)="AGENCY^S^v:VA;^0;15^Q"
^DD(790.02,.15,21,0)="^^3^3^2980918^"
^DD(790.02,.15,21,1,0)="The type of organization associated with this site. Currently, there is"
^DD(790.02,.15,21,2,0)="only one entry,'V' for Veterans Affairs.  This field is not editable"
^DD(790.02,.15,21,3,0)="through the Edit Site Parameters option."
^DD(790.02,.15,"DT")="2980630"
^DD(790.02,.23,0)="STATUS OF IMPORTED MAMMOGRAMS^S^o:OPEN;c:CLOSED;^0;23^Q"
^DD(790.02,.23,3)="Enter a code (O = Open; C = Closed) that will be used to set the status of a mammogram screening record after mammogram results are imported from the Radiology package. "
^DD(790.02,.23,21,0)="^^3^3^2980921^^"
^DD(790.02,.23,21,1,0)="This field automatically stores a default status (O = Open; C = Closed) in"
^DD(790.02,.23,21,2,0)="the procedure edit screens when mammography reports are imported from the"
^DD(790.02,.23,21,3,0)="Radiology/Nuclear Medicine application."
^DD(790.02,.23,"DT")="2951012"
^DD(790.02,.24,0)="IMPORT TESTS FROM LAB^S^1:YES;0:NO;^0;24^Q"
^DD(790.02,.24,21,0)="^^9^9^2990310^"
^DD(790.02,.24,21,1,0)="This field indicates whether or not to automatically import lab test data"
^DD(790.02,.24,21,2,0)="from the VISTA Laboratory package, into the Women's Health database."
^DD(790.02,.24,21,3,0)=" "
^DD(790.02,.24,21,4,0)="Answer NO if you do not want the Lab package to send lab test data to the"
^DD(790.02,.24,21,5,0)="Women's Health database."
^DD(790.02,.24,21,6,0)=" "
^DD(790.02,.24,21,7,0)="Answer YES if you want the Lab package to send lab test data to the"
^DD(790.02,.24,21,8,0)="Women's Health database when a lab report is released for a cytology or"
^DD(790.02,.24,21,9,0)="surgical pathology test."
^DD(790.02,.24,"DT")="2990310"
^DD(790.02,.25,0)="INCLUDE ALL NON-VETERANS (RAD)^S^1:YES;0:NO;^0;25^Q"
^DD(790.02,.25,21,0)="^^11^11^3000331^"
^DD(790.02,.25,21,1,0)="This field indicates whether or not procedure data transmitted from the"
^DD(790.02,.25,21,2,0)="Radiology/NM package for non-veterans will be accepted in the Women's"
^DD(790.02,.25,21,3,0)="Health package."
^DD(790.02,.25,21,4,0)=" "
^DD(790.02,.25,21,5,0)="Answer YES to accept radiology procedure data for ALL non-veterans."
^DD(790.02,.25,21,6,0)="Answer NO to not accept radiology procedure data for any non-veterans."
^DD(790.02,.25,21,7,0)=" "
^DD(790.02,.25,21,8,0)="To accept data for some (but not all) non-veterans, answer NO and then"
^DD(790.02,.25,21,9,0)="enter the eligibility code(s) you wish to track."
^DD(790.02,.25,21,10,0)=" "
^DD(790.02,.25,21,11,0)="Leaving this answer blank is the same as YES."
^DD(790.02,.25,"DT")="3000217"
^DD(790.02,.26,0)="INCLUDE ALL NON-VETERANS (LAB)^S^1:YES;0:NO;^0;26^Q"
^DD(790.02,.26,21,0)="^.001^11^11^3000331^^"
^DD(790.02,.26,21,1,0)="This field indicates whether or not lab test data transmitted from the"
^DD(790.02,.26,21,2,0)="Laboratory package for non-veterans will be accepted in the Women's Health"
^DD(790.02,.26,21,3,0)="package."
^DD(790.02,.26,21,4,0)=" "
^DD(790.02,.26,21,5,0)="Answer YES to accept lab test data for ALL non-veterans."
^DD(790.02,.26,21,6,0)="Answer NO to not accept lab test data for any non-veterans."
^DD(790.02,.26,21,7,0)=" "
^DD(790.02,.26,21,8,0)="To accept data for some (but not all) non-veterans, answer NO and then"
^DD(790.02,.26,21,9,0)="enter the eligibility code(s) you wish to track."
^DD(790.02,.26,21,10,0)=" "
^DD(790.02,.26,21,11,0)="Leaving this answer blank is the same as YES."
^DD(790.02,.26,"DT")="3000217"
^DD(790.02,.27,0)="PRIMARY ELIGIBILITY CODE (RAD)^790.13PA^^5;0"
^DD(790.02,.27,21,0)="^^3^3^3000217^"
^DD(790.02,.27,21,1,0)="This multiple is a pointer to FILE 8. Facilities that do not want to track"
^DD(790.02,.27,21,2,0)="radiology procedure data for all non-veterans may select the eligibility"
^DD(790.02,.27,21,3,0)="codes of those non-veteran patients they do wish to track."
^DD(790.02,.28,0)="PRIMARY ELIGIBILITY CODE (LAB)^790.14PA^^6;0"
^DD(790.02,.28,21,0)="^^3^3^3000217^"
^DD(790.02,.28,21,1,0)="This multiple is a pointer to FILE 8. Facilities that do not want to track"
^DD(790.02,.28,21,2,0)="lab test data for all non-veterans may select the eligibility codes of"
^DD(790.02,.28,21,3,0)="those non-veteran patients they do wish to track."
^DD(790.02,1.01,0)="PAP ACTIVE^S^1:YES;0:NO;^1;1^Q"
^DD(790.02,1.01,3)="If users should NOT be allowed to select PAP smear when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make PAP smear active."
^DD(790.02,1.01,21,0)="^^4^4^2980918^^"
^DD(790.02,1.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,1.01,21,2,0)="remove the PAP procedure from the procedure look-up list.  If the"
^DD(790.02,1.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,1.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,1.01,"DT")="2960116"
^DD(790.02,1.03,0)="PAP DEF DAYS DELINQ^NJ4,0^^1;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,1.03,3)="Enter the default number of days a PAP smear will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,1.03,21,0)="^^7^7^2980918^^^"
^DD(790.02,1.03,21,1,0)="This field stores the number of days that a patient's PAP procedure record"
^DD(790.02,1.03,21,2,0)="is allowed to have an open status.  The software uses this date to"
^DD(790.02,1.03,21,3,0)="calculate the Complete by (Date) field that resides in the WV Procedure"
^DD(790.02,1.03,21,4,0)="(790.1) file and which is displayed in the procedure edit options."
^DD(790.02,1.03,21,5,0)="Indirectly this file is used to establish a date that the open procedure"
^DD(790.02,1.03,21,6,0)="is considered delinquent and reflected in the Browse Procedures and"
^DD(790.02,1.03,21,7,0)="Program Snapshot reports."
^DD(790.02,1.03,"DT")="2960116"
^DD(790.02,2.01,0)="COBX ACTIVE^S^1:YES;0:NO;^2;1^Q"
^DD(790.02,2.01,3)="If users should NOT be allowed to select colposcopy w/biopsy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make colposcopy w/biopsy active."
^DD(790.02,2.01,21,0)="^^4^4^2980918^^"
^DD(790.02,2.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,2.01,21,2,0)="remove the colposcopy w/biopsy procedure from the procedure look-up list."
^DD(790.02,2.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,2.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,2.01,"DT")="2960116"
^DD(790.02,2.03,0)="COBX DEF DAYS DELINQ^NJ4,0^^2;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,2.03,3)="Enter the default number of days a colposcopy w/biopsy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,2.03,21,0)="^^7^7^2980918^"
^DD(790.02,2.03,21,1,0)="This field stores the number of days that a patient's colposcopy w/biopsy"
^DD(790.02,2.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,2.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,2.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,2.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,2.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,2.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,2.03,"DT")="2960116"
^DD(790.02,3.01,0)="HYST ACTIVE^S^1:YES;0:NO;^3;1^Q"
^DD(790.02,3.01,3)="If users should NOT be allowed to select hysterectomy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make hysterectomy active."
^DD(790.02,3.01,21,0)="^^4^4^2980918^"
^DD(790.02,3.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,3.01,21,2,0)="remove the hysterectomy procedure from the procedure look-up list. If the"
^DD(790.02,3.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,3.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,3.01,"DT")="2960116"
^DD(790.02,3.03,0)="HYST DEF DAYS DELINQ^NJ4,0^^3;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,3.03,3)="Enter the default number of days a hysterectomy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,3.03,21,0)="^^7^7^2980918^"
^DD(790.02,3.03,21,1,0)="This field stores the number of days that a patient's hysterectomy"
^DD(790.02,3.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,3.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,3.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,3.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,3.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,3.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,3.03,"DT")="2960116"
^DD(790.02,4.01,0)="CRYO ACTIVE^S^1:YES;0:NO;^4;1^Q"
^DD(790.02,4.01,3)="If users should NOT be allowed to select cryotherapy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make cryotherapy active."
^DD(790.02,4.01,21,0)="^^4^4^2980918^^"
^DD(790.02,4.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,4.01,21,2,0)="remove the cryotherapy procedure from the procedure look-up list.  If the"
^DD(790.02,4.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,4.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,4.01,"DT")="2960116"
^DD(790.02,4.03,0)="CRYO DEF DAYS DELINQ^NJ4,0^^4;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,4.03,3)="Enter the default number of days a cryotherapy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,4.03,21,0)="^^7^7^2980918^"
^DD(790.02,4.03,21,1,0)="This field stores the number of days that a patient's cryotherapy"
^DD(790.02,4.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,4.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,4.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,4.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,4.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,4.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,4.03,"DT")="2960116"
^DD(790.02,7.01,0)="ECBX ACTIVE^S^1:YES;0:NO;^7;1^Q"
^DD(790.02,7.01,3)="If users should NOT be allowed to select ectocervical biopsy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make ectocervical biopsy active."
^DD(790.02,7.01,21,0)="^^4^4^2980918^"
^DD(790.02,7.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,7.01,21,2,0)="remove the ectocervical biopsy procedure from the procedure look-up list."
^DD(790.02,7.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,7.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,7.01,"DT")="2960116"
^DD(790.02,7.03,0)="ECBX DEF DAYS DELINQ^NJ4,0^^7;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,7.03,3)="Enter the default number of days a ectocervical biopsy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,7.03,21,0)="^^7^7^2980918^"
^DD(790.02,7.03,21,1,0)="This field stores the number of days that a patient's ectocervical biopsy"
^DD(790.02,7.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,7.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,7.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,7.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,7.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,7.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,7.03,"DT")="2960116"
^DD(790.02,8.01,0)="EMBX ACTIVE^S^1:YES;0:NO;^8;1^Q"
^DD(790.02,8.01,3)="If users should NOT be allowed to select endometrial biopsy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make endometrial biopsy active."
^DD(790.02,8.01,21,0)="^^4^4^2980918^"
^DD(790.02,8.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,8.01,21,2,0)="remove the endometrial biopsy procedure from the procedure look-up list."
^DD(790.02,8.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,8.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,8.01,"DT")="2960116"
^DD(790.02,8.03,0)="EMBX DEF DAYS DELINQ^NJ4,0^^8;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,8.03,3)="Enter the default number of days a endometrial biopsy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,8.03,21,0)="^^7^7^2980918^"
^DD(790.02,8.03,21,1,0)="This field stores the number of days that a patient's endometrial biopsy"
^DD(790.02,8.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,8.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,8.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,8.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,8.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,8.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,8.03,"DT")="2960116"
^DD(790.02,17.01,0)="LEEP ACTIVE^S^1:YES;0:NO;^17;1^Q"
^DD(790.02,17.01,3)="If users should NOT be allowed to select LEEP when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make LEEP active."
^DD(790.02,17.01,21,0)="^^4^4^2980918^^"
^DD(790.02,17.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,17.01,21,2,0)="remove the LEEP procedure from the procedure look-up list.  If the"
^DD(790.02,17.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,17.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,17.01,"DT")="2960116"
^DD(790.02,17.03,0)="LEEP DEF DAYS DELINQ^NJ4,0^^17;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,17.03,3)="Enter the default number of days a LEEP will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,17.03,21,0)="^^7^7^2980918^"
^DD(790.02,17.03,21,1,0)="This field stores the number of days that a patient's LEEP procedure"
^DD(790.02,17.03,21,2,0)="record is allowed to have an open status.  The software uses this date to"
^DD(790.02,17.03,21,3,0)="calculate the Complete by (Date) field that resides in the WV Procedure"
^DD(790.02,17.03,21,4,0)="(790.1) file and which is displayed in the procedure edit options."
^DD(790.02,17.03,21,5,0)="Indirectly this file is used to establish a date that the open"
^DD(790.02,17.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,17.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,17.03,"DT")="2960116"
^DD(790.02,18.01,0)="ECC ACTIVE^S^1:YES;0:NO;^18;1^Q"
^DD(790.02,18.01,3)="If users should NOT be allowed to select endocervical currettage when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make endocervical currettage active."
^DD(790.02,18.01,21,0)="^^4^4^2980918^"
^DD(790.02,18.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,18.01,21,2,0)="remove the endocervical currettage procedure from the procedure look-up"
^DD(790.02,18.01,21,3,0)="list.  If the procedure is to be included in the tracking of women's"
^DD(790.02,18.01,21,4,0)="health care and treatment needs, this field value should be 'Yes'."
^DD(790.02,18.01,"DT")="2960116"
^DD(790.02,18.03,0)="ECC DEF DAYS DELINQ^NJ4,0^^18;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,18.03,3)="Enter the default number of days a endocervical currettage will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,18.03,21,0)="^^7^7^2980918^"
^DD(790.02,18.03,21,1,0)="This field stores the number of days that a patient's endocervical"
^DD(790.02,18.03,21,2,0)="currettage procedure record is allowed to have an open status.  The"
^DD(790.02,18.03,21,3,0)="software uses this date to calculate the Complete by (Date) field that"
^DD(790.02,18.03,21,4,0)="resides in the WV Procedure (790.1) file and which is displayed in the"
^DD(790.02,18.03,21,5,0)="procedure edit options. Indirectly this file is used to establish a date"
^DD(790.02,18.03,21,6,0)="that the open procedure is considered delinquent and reflected in the"
^DD(790.02,18.03,21,7,0)="Browse Procedures and Program Snapshot reports."
^DD(790.02,18.03,"DT")="2960116"
^DD(790.02,19.01,0)="CONE ACTIVE^S^1:YES;0:NO;^19;1^Q"
^DD(790.02,19.01,3)="If users should NOT be allowed to select cone biopsy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make cone biopsy active."
^DD(790.02,19.01,21,0)="^^4^4^2980918^^^"
^DD(790.02,19.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,19.01,21,2,0)="remove the cone biopsy procedure from the procedure look-up list.  If the"
^DD(790.02,19.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,19.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,19.01,"DT")="2960116"
^DD(790.02,19.03,0)="CONE DEF DAYS DELINQ^NJ4,0^^19;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,19.03,3)="Enter the default number of days a cone biopsy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,19.03,21,0)="^^7^7^2980918^"
^DD(790.02,19.03,21,1,0)="This field stores the number of days that a patient's cone biopsy"
^DD(790.02,19.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,19.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,19.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,19.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,19.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,19.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,19.03,"DT")="2960116"
^DD(790.02,20.01,0)="HCG ACTIVE^S^1:YES;0:NO;^20;1^Q"
^DD(790.02,20.01,3)="If users should NOT be allowed to select pregnancy test when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make pregnancy test active."
^DD(790.02,20.01,21,0)="^^4^4^2980918^"
^DD(790.02,20.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,20.01,21,2,0)="remove the pregnancy test procedure from the procedure look-up list.  If"
^DD(790.02,20.01,21,3,0)="the procedure is to be included in the tracking of women's health care and"
^DD(790.02,20.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,20.01,"DT")="2960116"
^DD(790.02,20.03,0)="HCG DEF DAYS DELINQ^NJ4,0^^20;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,20.03,3)="Enter the default number of days a pregnancy test will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,20.03,21,0)="^^7^7^2980918^"
^DD(790.02,20.03,21,1,0)="This field stores the number of days that a patient's pregnancy test"
^DD(790.02,20.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,20.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,20.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,20.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,20.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,20.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,20.03,"DT")="2960116"
^DD(790.02,21.01,0)="STD ACTIVE^S^1:YES;0:NO;^21;1^Q"
^DD(790.02,21.01,3)="If users should NOT be allowed to select STD evaluation when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make STD evaluation active."
^DD(790.02,21.01,21,0)="^^5^5^2980918^"
^DD(790.02,21.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,21.01,21,2,0)="remove the STD (sexually transmitted disease) evaluation procedure from"
^DD(790.02,21.01,21,3,0)="the procedure look-up list.  If the procedure is to be included in the"
^DD(790.02,21.01,21,4,0)="tracking of women's health care and treatment needs, this field value"
^DD(790.02,21.01,21,5,0)="should be 'Yes'."
^DD(790.02,21.01,"DT")="2960116"
^DD(790.02,21.03,0)="STD DEF DAYS DELINQ^NJ4,0^^21;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,21.03,3)="Enter the default number of days a STD evaluation will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,21.03,21,0)="^^7^7^2980918^"
^DD(790.02,21.03,21,1,0)="This field stores the number of days that a patient's STD (sexually"
^DD(790.02,21.03,21,2,0)="transmitted disease) evaluation procedure record is allowed to have an"
^DD(790.02,21.03,21,3,0)="open status.  The software uses this date to calculate the Complete by"
^DD(790.02,21.03,21,4,0)="(Date) field that resides in the WV Procedure (790.1) file and which is"
^DD(790.02,21.03,21,5,0)="displayed in the procedure edit options. Indirectly this file is used to"
^DD(790.02,21.03,21,6,0)="establish a date that the open procedure is considered delinquent and"
^DD(790.02,21.03,21,7,0)="reflected in the Browse Procedures and Program Snapshot reports."
^DD(790.02,21.03,"DT")="2960116"
^DD(790.02,22.01,0)="LASA ACTIVE^S^1:YES;0:NO;^22;1^Q"
^DD(790.02,22.01,3)="If users should NOT be allowed to select laser ablation when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make laser ablation active."
^DD(790.02,22.01,21,0)="^^4^4^2980918^"
^DD(790.02,22.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,22.01,21,2,0)="remove the laser ablation procedure from the procedure look-up list.  If"
^DD(790.02,22.01,21,3,0)="the procedure is to be included in the tracking of women's health care and"
^DD(790.02,22.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,22.01,"DT")="2960116"
^DD(790.02,22.03,0)="LASA DEF DAYS DELINQ^NJ4,0^^22;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,22.03,3)="Enter the default number of days a laser ablation will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,22.03,21,0)="^^7^7^2980918^"
^DD(790.02,22.03,21,1,0)="This field stores the number of days that a patient's laser ablation"
^DD(790.02,22.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,22.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,22.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,22.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,22.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,22.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,22.03,"DT")="2960116"
^DD(790.02,23.01,0)="LASC ACTIVE^S^1:YES;0:NO;^23;1^Q"
^DD(790.02,23.01,3)="If users should NOT be allowed to select laser cone when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make laser cone active."
^DD(790.02,23.01,21,0)="^^4^4^2980918^"
^DD(790.02,23.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,23.01,21,2,0)="remove the laser cone procedure from the procedure look-up list.  If the"
^DD(790.02,23.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,23.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,23.01,"DT")="2960116"
^DD(790.02,23.03,0)="LASC DEF DAYS DELINQ^NJ4,0^^23;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,23.03,3)="Enter the default number of days a laser cone will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,23.03,21,0)="^^7^7^2980918^"
^DD(790.02,23.03,21,1,0)="This field stores the number of days that a patient's laser cone procedure"
^DD(790.02,23.03,21,2,0)="record is allowed to have an open status.  The software uses this date to"
^DD(790.02,23.03,21,3,0)="calculate the Complete by (Date) field that resides in the WV Procedure"
^DD(790.02,23.03,21,4,0)="(790.1) file and which is displayed in the procedure edit options."
^DD(790.02,23.03,21,5,0)="Indirectly this file is used to establish a date that the open procedure"
^DD(790.02,23.03,21,6,0)="is considered delinquent and reflected in the Browse Procedures and"
^DD(790.02,23.03,21,7,0)="Program Snapshot reports."
^DD(790.02,23.03,"DT")="2960116"
^DD(790.02,24.01,0)="GYNC ACTIVE^S^1:YES;0:NO;^24;1^Q"
^DD(790.02,24.01,3)="If users should NOT be allowed to select GYN ONC consult when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make GYN ONC consult active."
^DD(790.02,24.01,21,0)="^^4^4^2980921^^"
^DD(790.02,24.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,24.01,21,2,0)="remove the GYN ONC (gynecologic oncology) consult from the procedure"
^DD(790.02,24.01,21,3,0)="look-up list.  If the procedure is to be included in the tracking of"
^DD(790.02,24.01,21,4,0)="women's health care and treatment needs, this field value should be 'Yes'."
^DD(790.02,24.01,"DT")="2960116"
^DD(790.02,24.03,0)="GYNC DEF DAYS DELINQ^NJ4,0^^24;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,24.03,3)="Enter the default number of days a GYN ONC consult will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,24.03,21,0)="^^7^7^2980918^"
^DD(790.02,24.03,21,1,0)="This field stores the number of days that a patient's GYN ONC (gynecologic"
^DD(790.02,24.03,21,2,0)="oncology) consult procedure record is allowed to have an open status.  The"
^DD(790.02,24.03,21,3,0)="software uses this date to calculate the Complete by (Date) field that"
^DD(790.02,24.03,21,4,0)="resides in the WV Procedure (790.1) file and which is displayed in the"
^DD(790.02,24.03,21,5,0)="procedure edit options. Indirectly this file is used to establish a date"
^DD(790.02,24.03,21,6,0)="that the open procedure is considered delinquent and reflected in the"
^DD(790.02,24.03,21,7,0)="Browse Procedures and Program Snapshot reports."
^DD(790.02,24.03,"DT")="2960116"
^DD(790.02,25.01,0)="MAMB ACTIVE^S^1:YES;0:NO;^25;1^Q"
^DD(790.02,25.01,3)="If users should NOT be allowed to select mammogram Dx bilat when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make mammogram Dx bilat active."
^DD(790.02,25.01,21,0)="^^4^4^2980921^"
^DD(790.02,25.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,25.01,21,2,0)="remove the mammogram Dx bilateral procedure from the procedure look-up"
^DD(790.02,25.01,21,3,0)="list.  If the procedure is to be included in the tracking of women's"
^DD(790.02,25.01,21,4,0)="health care and treatment needs, this field value should be 'Yes'."
^DD(790.02,25.01,"DT")="2960116"
^DD(790.02,25.03,0)="MAMB DEF DAYS DELINQ^NJ4,0^^25;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,25.03,3)="Enter the default number of days a mammogram Dx bilat will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,25.03,21,0)="^^7^7^2980921^"
^DD(790.02,25.03,21,1,0)="This field stores the number of days that a patient's mammogram Dx"
^DD(790.02,25.03,21,2,0)="bilateral procedure record is allowed to have an open status.  The"
^DD(790.02,25.03,21,3,0)="software uses this date to calculate the Complete by (Date) field that"
^DD(790.02,25.03,21,4,0)="resides in the WV Procedure (790.1) file and which is displayed in the"
^DD(790.02,25.03,21,5,0)="procedure edit options. Indirectly this file is used to establish a date"
^DD(790.02,25.03,21,6,0)="that the open procedure is considered delinquent and reflected in the"
^DD(790.02,25.03,21,7,0)="Browse Procedures and Program Snapshot reports."
^DD(790.02,25.03,"DT")="2960116"
^DD(790.02,26.01,0)="MAMU ACTIVE^S^1:YES;0:NO;^26;1^Q"
^DD(790.02,26.01,3)="If users should NOT be allowed to select mammogram Dx unilat when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make mammogram Dx unilat active."
^DD(790.02,26.01,21,0)="^^4^4^2980921^"
^DD(790.02,26.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,26.01,21,2,0)="remove the mammogram Dx unilateral procedure from the procedure look-up"
^DD(790.02,26.01,21,3,0)="list.  If the procedure is to be included in the tracking of women's"
^DD(790.02,26.01,21,4,0)="health care and treatment needs, this field value should be 'Yes'."
^DD(790.02,26.01,"DT")="2960116"
^DD(790.02,26.03,0)="MAMU DEF DAYS DELINQ^NJ4,0^^26;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,26.03,3)="Enter the default number of days a mammogram Dx unilat will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,26.03,21,0)="^^7^7^2980921^"
^DD(790.02,26.03,21,1,0)="This field stores the number of days that a patient's mammogram Dx"
^DD(790.02,26.03,21,2,0)="unilateral procedure record is allowed to have an open status.  The"
^DD(790.02,26.03,21,3,0)="software uses this date to calculate the Complete by (Date) field that"
^DD(790.02,26.03,21,4,0)="resides in the WV Procedure (790.1) file and which is displayed in the"
^DD(790.02,26.03,21,5,0)="procedure edit options. Indirectly this file is used to establish a date"
^DD(790.02,26.03,21,6,0)="that the open procedure is considered delinquent and reflected in the"
^DD(790.02,26.03,21,7,0)="Browse Procedures and Program Snapshot reports."
^DD(790.02,26.03,"DT")="2960116"
^DD(790.02,27.01,0)="CBE ACTIVE^S^1:YES;0:NO;^27;1^Q"
^DD(790.02,27.01,3)="If users should NOT be allowed to select clinical breast exam when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make clinical breast exam active."
^DD(790.02,27.01,21,0)="^^4^4^2980921^"
^DD(790.02,27.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,27.01,21,2,0)="remove the clinical breast exam procedure from the procedure look-up list."
^DD(790.02,27.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,27.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,27.01,"DT")="2960116"
^DD(790.02,27.03,0)="CBE DEF DAYS DELINQ^NJ4,0^^27;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,27.03,3)="Enter the default number of days a clinical breast exam will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,27.03,21,0)="^^7^7^2980921^"
^DD(790.02,27.03,21,1,0)="This field stores the number of days that a patient's clinical breast exam"
^DD(790.02,27.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,27.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,27.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,27.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,27.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,27.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,27.03,"DT")="2960116"
^DD(790.02,28.01,0)="MAMS ACTIVE^S^1:YES;0:NO;^28;1^Q"
^DD(790.02,28.01,3)="If users should NOT be allowed to select mammogram screening when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make mammogram screening active."
^DD(790.02,28.01,21,0)="^^4^4^2980921^"
^DD(790.02,28.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,28.01,21,2,0)="remove the mammogram screening procedure from the procedure look-up list."
^DD(790.02,28.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,28.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,28.01,"DT")="2960116"
^DD(790.02,28.03,0)="MAMS DEF DAYS DELINQ^NJ4,0^^28;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,28.03,3)="Enter the default number of days a mammogram screening will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,28.03,21,0)="^^7^7^2980921^"
^DD(790.02,28.03,21,1,0)="This field stores the number of days that a patient's mammogram screening"
^DD(790.02,28.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,28.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,28.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,28.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,28.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,28.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,28.03,"DT")="2980917"
^DD(790.02,29.01,0)="GSCON ACTIVE^S^1:YES;0:NO;^29;1^Q"
^DD(790.02,29.01,3)="If users should NOT be allowed to select general surgery consult when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make general surgery consult active."
^DD(790.02,29.01,21,0)="^^4^4^2980921^"
^DD(790.02,29.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,29.01,21,2,0)="remove the general surgery consult from the procedure look-up list.  If"
^DD(790.02,29.01,21,3,0)="the procedure is to be included in the tracking of women's health care and"
^DD(790.02,29.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,29.01,"DT")="2960116"
^DD(790.02,29.03,0)="GSCON DEF DAYS DELINQ^NJ4,0^^29;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,29.03,3)="Enter the default number of days a general surgery consult will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,29.03,21,0)="^^7^7^2980921^"
^DD(790.02,29.03,21,1,0)="This field stores the number of days that a patient's general surgery"
^DD(790.02,29.03,21,2,0)="consult procedure record is allowed to have an open status.  The software"
^DD(790.02,29.03,21,3,0)="uses this date to calculate the Complete by (Date) field that resides in"
^DD(790.02,29.03,21,4,0)="the WV Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,29.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,29.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,29.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,29.03,"DT")="2960116"
^DD(790.02,30.01,0)="NDBX ACTIVE^S^1:YES;0:NO;^30;1^Q"
^DD(790.02,30.01,3)="If users should NOT be allowed to select needle biopsy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make needle biopsy active."
^DD(790.02,30.01,21,0)="^^4^4^2980921^"
^DD(790.02,30.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,30.01,21,2,0)="remove the needle biopsy procedure from the procedure look-up list.  If"
^DD(790.02,30.01,21,3,0)="the procedure is to be included in the tracking of women's health care and"
^DD(790.02,30.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,30.01,"DT")="2960116"
^DD(790.02,30.03,0)="NDBX DEF DAYS DELINQ^NJ4,0^^30;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,30.03,3)="Enter the default number of days a needle biopsy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,30.03,21,0)="^^7^7^2980921^"
^DD(790.02,30.03,21,1,0)="This field stores the number of days that a patient's needle biopsy"
^DD(790.02,30.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,30.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,30.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,30.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,30.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,30.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,30.03,"DT")="2960116"
^DD(790.02,31.01,0)="OPBX ACTIVE^S^1:YES;0:NO;^31;1^Q"
^DD(790.02,31.01,3)="If users should NOT be allowed to select open biopsy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make open biopsy active."
^DD(790.02,31.01,21,0)="^^4^4^2980921^"
^DD(790.02,31.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,31.01,21,2,0)="remove the open biopsy procedure from the procedure look-up list.  If the"
^DD(790.02,31.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,31.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,31.01,"DT")="2960116"
^DD(790.02,31.03,0)="OPBX DEF DAYS DELINQ^NJ4,0^^31;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,31.03,3)="Enter the default number of days a open biopsy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,31.03,21,0)="^^7^7^2980921^"
^DD(790.02,31.03,21,1,0)="This field stores the number of days that a patient's open biopsy"
^DD(790.02,31.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,31.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,31.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,31.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,31.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,31.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,31.03,"DT")="2960116"
^DD(790.02,32.01,0)="LMPY ACTIVE^S^1:YES;0:NO;^32;1^Q"
^DD(790.02,32.01,3)="If users should NOT be allowed to select lumpectomy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make lumpectomy active."
^DD(790.02,32.01,21,0)="^^4^4^2980921^"
^DD(790.02,32.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,32.01,21,2,0)="remove the lumpectomy procedure from the procedure look-up list.  If the"
^DD(790.02,32.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,32.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,32.01,"DT")="2960116"
^DD(790.02,32.03,0)="LMPY DEF DAYS DELINQ^NJ4,0^^32;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,32.03,3)="Enter the default number of days a lumpectomy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,32.03,21,0)="^^7^7^2980921^"
^DD(790.02,32.03,21,1,0)="This field stores the number of days that a patient's lumpectomy procedure"
^DD(790.02,32.03,21,2,0)="record is allowed to have an open status.  The software uses this date to"
^DD(790.02,32.03,21,3,0)="calculate the Complete by (Date) field that resides in the WV Procedure"
^DD(790.02,32.03,21,4,0)="(790.1) file and which is displayed in the procedure edit options."
^DD(790.02,32.03,21,5,0)="Indirectly this file is used to establish a date that the open procedure"
^DD(790.02,32.03,21,6,0)="is considered delinquent and reflected in the Browse Procedures and"
^DD(790.02,32.03,21,7,0)="Program Snapshot reports."
^DD(790.02,32.03,"DT")="2960116"
^DD(790.02,33.01,0)="MAST ACTIVE^S^1:YES;0:NO;^33;1^Q"
^DD(790.02,33.01,3)="If users should NOT be allowed to select mastectomy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make mastectomy active."
^DD(790.02,33.01,21,0)="^^4^4^2980921^"
^DD(790.02,33.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,33.01,21,2,0)="remove the mastectomy procedure from the procedure look-up list.  If the"
^DD(790.02,33.01,21,3,0)="procedure is to be included in the tracking of women's health care and"
^DD(790.02,33.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,33.01,"DT")="2960116"
^DD(790.02,33.03,0)="MAST DEF DAYS DELINQ^NJ4,0^^33;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,33.03,3)="Enter the default number of days a mastectomy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,33.03,21,0)="^^7^7^2980921^"
^DD(790.02,33.03,21,1,0)="This field stores the number of days that a patient's mastectomy procedure"
^DD(790.02,33.03,21,2,0)="record is allowed to have an open status.  The software uses this date to"
^DD(790.02,33.03,21,3,0)="calculate the Complete by (Date) field that resides in the WV Procedure"
^DD(790.02,33.03,21,4,0)="(790.1) file and which is displayed in the procedure edit options."
^DD(790.02,33.03,21,5,0)="Indirectly this file is used to establish a date that the open procedure"
^DD(790.02,33.03,21,6,0)="is considered delinquent and reflected in the Browse Procedures and"
^DD(790.02,33.03,21,7,0)="Program Snapshot reports."
^DD(790.02,33.03,"DT")="2960116"
^DD(790.02,34.01,0)="FNDL ACTIVE^S^1:YES;0:NO;^34;1^Q"
^DD(790.02,34.01,3)="If users should NOT be allowed to select fine needle aspiration when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make fine needle aspiration active."
^DD(790.02,34.01,21,0)="^^4^4^2980921^"
^DD(790.02,34.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,34.01,21,2,0)="remove the fine needle aspiration procedure from the procedure look-up"
^DD(790.02,34.01,21,3,0)="list.  If the procedure is to be included in the tracking of women's"
^DD(790.02,34.01,21,4,0)="health care and treatment needs, this field value should be 'Yes'."
^DD(790.02,34.01,"DT")="2960116"
^DD(790.02,34.03,0)="FNDL DEF DAYS DELINQ^NJ4,0^^34;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,34.03,3)="Enter the default number of days a fine needle aspiration will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,34.03,21,0)="^^7^7^2980921^"
^DD(790.02,34.03,21,1,0)="This field stores the number of days that a patient's fine needle"
^DD(790.02,34.03,21,2,0)="aspiration procedure record is allowed to have an open status.  The"
^DD(790.02,34.03,21,3,0)="software uses this date to calculate the Complete by (Date) field that"
^DD(790.02,34.03,21,4,0)="resides in the WV Procedure (790.1) file and which is displayed in the"
^DD(790.02,34.03,21,5,0)="procedure edit options. Indirectly this file is used to establish a date"
^DD(790.02,34.03,21,6,0)="that the open procedure is considered delinquent and reflected in the"
^DD(790.02,34.03,21,7,0)="Browse Procedures and Program Snapshot reports."
^DD(790.02,34.03,"DT")="2960116"
^DD(790.02,35.01,0)="STBX ACTIVE^S^1:YES;0:NO;^35;1^Q"
^DD(790.02,35.01,3)="If users should NOT be allowed to select stereotactic biopsy when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make stereotactic biopsy active."
^DD(790.02,35.01,21,0)="^^4^4^2980921^"
^DD(790.02,35.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,35.01,21,2,0)="remove the stereotactic biopsy procedure from the procedure look-up list."
^DD(790.02,35.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,35.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,35.01,"DT")="2960116"
^DD(790.02,35.03,0)="STBX DEF DAYS DELINQ^NJ4,0^^35;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,35.03,3)="Enter the default number of days a stereotactic biopsy will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,35.03,21,0)="^^7^7^2980921^"
^DD(790.02,35.03,21,1,0)="This field stores the number of days that a patient's stereotactic biopsy"
^DD(790.02,35.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,35.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,35.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,35.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,35.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,35.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,35.03,"DT")="2960116"
^DD(790.02,37.01,0)="CIMP ACTIVE^S^1:YES;0:NO;^37;1^Q"
^DD(790.02,37.01,3)="If users should NOT be allowed to select colposcopy impression (no Bx) when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make coloscopy impression active."
^DD(790.02,37.01,21,0)="^^4^4^2980921^^^^"
^DD(790.02,37.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,37.01,21,2,0)="remove the colposcopy impression (no Bx) procedure from the procedure"
^DD(790.02,37.01,21,3,0)="look-up list.  If the procedure is to be included in the tracking of"
^DD(790.02,37.01,21,4,0)="women's health care and treatment needs, this field value should be 'Yes'."
^DD(790.02,37.01,"DT")="2960116"
^DD(790.02,37.03,0)="CIMP DEF DAYS DELINQ^NJ4,0^^37;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,37.03,3)="Enter the default number of days a colposcopy impression (no Bx) will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,37.03,21,0)="^^7^7^2980921^^"
^DD(790.02,37.03,21,1,0)="This field stores the number of days that a patient's colposcopy"
^DD(790.02,37.03,21,2,0)="impression (no Bx) procedure record is allowed to have an open status. The"
^DD(790.02,37.03,21,3,0)="software uses this date to calculate the Complete by (Date) field that"
^DD(790.02,37.03,21,4,0)="resides in the WV Procedure (790.1) file and which is displayed in the"
^DD(790.02,37.03,21,5,0)="procedure edit options. Indirectly this file is used to establish a date"
^DD(790.02,37.03,21,6,0)="that the open procedure is considered delinquent and reflected in the"
^DD(790.02,37.03,21,7,0)="Browse Procedures and Program Snapshot reports."
^DD(790.02,37.03,"DT")="2960116"
^DD(790.02,38.01,0)="BRUL ACTIVE^S^1:YES;0:NO;^38;1^Q"
^DD(790.02,38.01,3)="If users should NOT be allowed to select breast ultrasound when entering new procedures at this site, then enter 'No' to make it inactive.  Enter 'Yes' to make breast ultrasound active."
^DD(790.02,38.01,21,0)="^^4^4^2980921^"
^DD(790.02,38.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,38.01,21,2,0)="remove the breast ultrasound procedure from the procedure look-up list. If"
^DD(790.02,38.01,21,3,0)="the procedure is to be included in the tracking of women's health care and"
^DD(790.02,38.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,38.01,"DT")="2960116"
^DD(790.02,38.03,0)="BRUL DEF DAYS DELINQ^NJ4,0^^38;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,38.03,3)="Enter the default number of days a breast ultrasound will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,38.03,21,0)="^^7^7^2980921^"
^DD(790.02,38.03,21,1,0)="This field stores the number of days that a patient's breast ultrasound"
^DD(790.02,38.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,38.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,38.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,38.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,38.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,38.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,38.03,"DT")="2960116"
^DD(790.02,39.01,0)="TUBE ACTIVE^S^1:YES;0:NO;^39;1^Q"
^DD(790.02,39.01,3)="If users should NOT be allowed to select tubal ligation when entering new procedures at this site, then enter 'No' to make it inactive. Enter 'Yes' to make tubal ligation active."
^DD(790.02,39.01,21,0)="^^4^4^2990701^"
^DD(790.02,39.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,39.01,21,2,0)="remove the tubal ligation procedure from the procedure look-up list. If"
^DD(790.02,39.01,21,3,0)="the procedure is to be included in the tracking of women's health care and"
^DD(790.02,39.01,21,4,0)="treatment needs, this field value should be 'Yes'."
^DD(790.02,39.01,"DT")="2990701"
^DD(790.02,39.03,0)="TUBE DEF DAYS DELINQ^NJ4,0^^39;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,39.03,3)="Enter the default number of days a tubal ligation will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,39.03,21,0)="^^7^7^2990701^"
^DD(790.02,39.03,21,1,0)="This field stores the number of days that a patient's tubal ligation"
^DD(790.02,39.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,39.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,39.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,39.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,39.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,39.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,39.03,"DT")="2990701"
^DD(790.02,40.01,0)="PELUS ACTIVE^S^1:YES;0:NO;^40;1^Q"
^DD(790.02,40.01,3)="If users should NOT be allowed to select pelvic ultrasound when entering new procedures at this site, then enter 'No' to make it inactive. Enter 'Yes' to make pelvic ultrasound active."
^DD(790.02,40.01,21,0)="^^4^4^2990701^"
^DD(790.02,40.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,40.01,21,2,0)="remove the pelvic ultrasound procedure from the procedure look-up list."
^DD(790.02,40.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,40.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,40.01,"DT")="2990701"
^DD(790.02,40.03,0)="PELUS DEF DAYS DELINQ^NJ4,0^^40;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,40.03,3)="Enter the default number of days a pelvic ultrasound will be allowed to remain 'Open' before being marked as 'Delinquent'."
^DD(790.02,40.03,21,0)="^^7^7^2990701^"
^DD(790.02,40.03,21,1,0)="This field stores the number of days that a patient's pelvic ultrasound"
^DD(790.02,40.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,40.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,40.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,40.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,40.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,40.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,40.03,"DT")="2990701"
^DD(790.02,41.01,0)="VAGUS ACTIVE^S^1:YES;0:NO;^41;1^Q"
^DD(790.02,41.01,3)="If users should NOT be allowed to select vaginal ultrasound when entering new procedures at this site, then enter 'No' to make it inactive. Enter 'Yes' to make vaginal ultrasound active."
^DD(790.02,41.01,21,0)="^^4^4^2990701^"
^DD(790.02,41.01,21,1,0)="This field stores a value (1 = Yes; 0 = No) that is used to display or"
^DD(790.02,41.01,21,2,0)="remove the vaginal ultrasound procedure from the procedure look-up list."
^DD(790.02,41.01,21,3,0)="If the procedure is to be included in the tracking of women's health care"
^DD(790.02,41.01,21,4,0)="and treatment needs, this field value should be 'Yes'."
^DD(790.02,41.01,"DT")="2990701"
^DD(790.02,41.03,0)="VAGUS DEF DAYS DELINQ^NJ4,0^^41;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.02,41.03,3)="Enter the default number of days a vaginal ultrasound will be allowed to remian 'Open' before being marked as 'Delinquent'."
^DD(790.02,41.03,21,0)="^^7^7^2990728^^"
^DD(790.02,41.03,21,1,0)="This field stores the number of days that a patient's vaginal ultrasound"
^DD(790.02,41.03,21,2,0)="procedure record is allowed to have an open status.  The software uses"
^DD(790.02,41.03,21,3,0)="this date to calculate the Complete by (Date) field that resides in the WV"
^DD(790.02,41.03,21,4,0)="Procedure (790.1) file and which is displayed in the procedure edit"
^DD(790.02,41.03,21,5,0)="options. Indirectly this file is used to establish a date that the open"
^DD(790.02,41.03,21,6,0)="procedure is considered delinquent and reflected in the Browse Procedures"
^DD(790.02,41.03,21,7,0)="and Program Snapshot reports."
^DD(790.02,41.03,"DT")="2990701"
^DD(790.02,"B","AGENCY",.15)=""
^DD(790.02,"B","ASK CASE MANAGER",.05)=""
^DD(790.02,"B","AUTOQUEUE NORMAL MAM LETTERS",.07)=""
^DD(790.02,"B","AUTOQUEUE NORMAL PAP LETTERS",.03)=""
^DD(790.02,"B","BRUL ACTIVE",38.01)=""
^DD(790.02,"B","BRUL DEF DAYS DELINQ",38.03)=""
^DD(790.02,"B","CBE ACTIVE",27.01)=""
^DD(790.02,"B","CBE DEF DAYS DELINQ",27.03)=""
^DD(790.02,"B","CIMP ACTIVE",37.01)=""
^DD(790.02,"B","CIMP DEF DAYS DELINQ",37.03)=""
^DD(790.02,"B","COBX ACTIVE",2.01)=""
^DD(790.02,"B","COBX DEF DAYS DELINQ",2.03)=""
^DD(790.02,"B","CONE ACTIVE",19.01)=""
^DD(790.02,"B","CONE DEF DAYS DELINQ",19.03)=""
^DD(790.02,"B","CRYO ACTIVE",4.01)=""
^DD(790.02,"B","CRYO DEF DAYS DELINQ",4.03)=""
^DD(790.02,"B","DEFAULT #DAYS TO PRINT LETTER",.06)=""
^DD(790.02,"B","DEFAULT CASE MANAGER",.02)=""
^DD(790.02,"B","ECBX ACTIVE",7.01)=""
^DD(790.02,"B","ECBX DEF DAYS DELINQ",7.03)=""
^DD(790.02,"B","ECC ACTIVE",18.01)=""
^DD(790.02,"B","ECC DEF DAYS DELINQ",18.03)=""
^DD(790.02,"B","EMBX ACTIVE",8.01)=""
^DD(790.02,"B","EMBX DEF DAYS DELINQ",8.03)=""
^DD(790.02,"B","FNDL ACTIVE",34.01)=""
^DD(790.02,"B","FNDL DEF DAYS DELINQ",34.03)=""
^DD(790.02,"B","GSCON ACTIVE",29.01)=""
^DD(790.02,"B","GSCON DEF DAYS DELINQ",29.03)=""
^DD(790.02,"B","GYNC ACTIVE",24.01)=""
^DD(790.02,"B","GYNC DEF DAYS DELINQ",24.03)=""
^DD(790.02,"B","HCG ACTIVE",20.01)=""
^DD(790.02,"B","HCG DEF DAYS DELINQ",20.03)=""
^DD(790.02,"B","HYST ACTIVE",3.01)=""
^DD(790.02,"B","HYST DEF DAYS DELINQ",3.03)=""
^DD(790.02,"B","IMPORT MAMS FROM RADIOLOGY",.1)=""
^DD(790.02,"B","IMPORT TESTS FROM LAB",.24)=""
^DD(790.02,"B","INCLUDE ALL NON-VETERANS (LAB)",.26)=""
^DD(790.02,"B","INCLUDE ALL NON-VETERANS (RAD)",.25)=""
^DD(790.02,"B","LASA ACTIVE",22.01)=""
^DD(790.02,"B","LASA DEF DAYS DELINQ",22.03)=""
^DD(790.02,"B","LASC ACTIVE",23.01)=""
^DD(790.02,"B","LASC DEF DAYS DELINQ",23.03)=""
^DD(790.02,"B","LEEP ACTIVE",17.01)=""
^DD(790.02,"B","LEEP DEF DAYS DELINQ",17.03)=""
^DD(790.02,"B","LMPY ACTIVE",32.01)=""
^DD(790.02,"B","LMPY DEF DAYS DELINQ",32.03)=""
^DD(790.02,"B","MAM RESULT NORMAL LETTER",.08)=""
^DD(790.02,"B","MAMB ACTIVE",25.01)=""
^DD(790.02,"B","MAMB DEF DAYS DELINQ",25.03)=""
^DD(790.02,"B","MAMS ACTIVE",28.01)=""
^DD(790.02,"B","MAMS DEF DAYS DELINQ",28.03)=""
^DD(790.02,"B","MAMU ACTIVE",26.01)=""
^DD(790.02,"B","MAMU DEF DAYS DELINQ",26.03)=""
^DD(790.02,"B","MAST ACTIVE",33.01)=""
^DD(790.02,"B","MAST DEF DAYS DELINQ",33.03)=""
^DD(790.02,"B","NDBX ACTIVE",30.01)=""
^DD(790.02,"B","NDBX DEF DAYS DELINQ",30.03)=""
^DD(790.02,"B","OPBX ACTIVE",31.01)=""
^DD(790.02,"B","OPBX DEF DAYS DELINQ",31.03)=""
^DD(790.02,"B","PAP ACTIVE",1.01)=""
^DD(790.02,"B","PAP DEF DAYS DELINQ",1.03)=""
^DD(790.02,"B","PAP RESULT NORMAL LETTER",.04)=""
^DD(790.02,"B","PELUS ACTIVE",40.01)=""
^DD(790.02,"B","PELUS DEF DAYS DELINQ",40.03)=""
^DD(790.02,"B","PRIMARY ELIGIBILITY CODE (LAB)",.28)=""
^DD(790.02,"B","PRIMARY ELIGIBILITY CODE (RAD)",.27)=""
^DD(790.02,"B","SITE/FACILITY NAME",.01)=""
^DD(790.02,"B","STATUS OF IMPORTED MAMMOGRAMS",.23)=""
^DD(790.02,"B","STBX ACTIVE",35.01)=""
^DD(790.02,"B","STBX DEF DAYS DELINQ",35.03)=""
^DD(790.02,"B","STD ACTIVE",21.01)=""
^DD(790.02,"B","STD DEF DAYS DELINQ",21.03)=""
^DD(790.02,"B","TUBE ACTIVE",39.01)=""
^DD(790.02,"B","TUBE DEF DAYS DELINQ",39.03)=""
^DD(790.02,"B","UPDATE RESULTS/DX",.11)=""
^DD(790.02,"B","UPDATE TREATMENT NEEDS",.12)=""
^DD(790.02,"B","VAGUS ACTIVE",41.01)=""
^DD(790.02,"B","VAGUS DEF DAYS DELINQ",41.03)=""
^DD(790.02,"GL",0,1,.01)=""
^DD(790.02,"GL",0,2,.02)=""
^DD(790.02,"GL",0,3,.03)=""
^DD(790.02,"GL",0,4,.04)=""
^DD(790.02,"GL",0,5,.05)=""
^DD(790.02,"GL",0,6,.06)=""
^DD(790.02,"GL",0,7,.07)=""
^DD(790.02,"GL",0,8,.08)=""
^DD(790.02,"GL",0,10,.1)=""
^DD(790.02,"GL",0,11,.11)=""
^DD(790.02,"GL",0,12,.12)=""
^DD(790.02,"GL",0,15,.15)=""
^DD(790.02,"GL",0,23,.23)=""
^DD(790.02,"GL",0,24,.24)=""
^DD(790.02,"GL",0,25,.25)=""
^DD(790.02,"GL",0,26,.26)=""
^DD(790.02,"GL",1,1,1.01)=""
^DD(790.02,"GL",1,3,1.03)=""
^DD(790.02,"GL",2,1,2.01)=""
^DD(790.02,"GL",2,3,2.03)=""
^DD(790.02,"GL",3,1,3.01)=""
^DD(790.02,"GL",3,3,3.03)=""
^DD(790.02,"GL",4,1,4.01)=""
^DD(790.02,"GL",4,3,4.03)=""
^DD(790.02,"GL",5,0,.27)=""
^DD(790.02,"GL",6,0,.28)=""
^DD(790.02,"GL",7,1,7.01)=""
^DD(790.02,"GL",7,3,7.03)=""
^DD(790.02,"GL",8,1,8.01)=""
^DD(790.02,"GL",8,3,8.03)=""
^DD(790.02,"GL",17,1,17.01)=""
^DD(790.02,"GL",17,3,17.03)=""
^DD(790.02,"GL",18,1,18.01)=""
^DD(790.02,"GL",18,3,18.03)=""
^DD(790.02,"GL",19,1,19.01)=""
^DD(790.02,"GL",19,3,19.03)=""
^DD(790.02,"GL",20,1,20.01)=""
^DD(790.02,"GL",20,3,20.03)=""
^DD(790.02,"GL",21,1,21.01)=""
^DD(790.02,"GL",21,3,21.03)=""
^DD(790.02,"GL",22,1,22.01)=""
^DD(790.02,"GL",22,3,22.03)=""
^DD(790.02,"GL",23,1,23.01)=""
^DD(790.02,"GL",23,3,23.03)=""
^DD(790.02,"GL",24,1,24.01)=""
^DD(790.02,"GL",24,3,24.03)=""
^DD(790.02,"GL",25,1,25.01)=""
^DD(790.02,"GL",25,3,25.03)=""
^DD(790.02,"GL",26,1,26.01)=""
^DD(790.02,"GL",26,3,26.03)=""
^DD(790.02,"GL",27,1,27.01)=""
^DD(790.02,"GL",27,3,27.03)=""
^DD(790.02,"GL",28,1,28.01)=""
^DD(790.02,"GL",28,3,28.03)=""
^DD(790.02,"GL",29,1,29.01)=""
^DD(790.02,"GL",29,3,29.03)=""
^DD(790.02,"GL",30,1,30.01)=""
^DD(790.02,"GL",30,3,30.03)=""
^DD(790.02,"GL",31,1,31.01)=""
^DD(790.02,"GL",31,3,31.03)=""
^DD(790.02,"GL",32,1,32.01)=""
^DD(790.02,"GL",32,3,32.03)=""
^DD(790.02,"GL",33,1,33.01)=""
^DD(790.02,"GL",33,3,33.03)=""
^DD(790.02,"GL",34,1,34.01)=""
^DD(790.02,"GL",34,3,34.03)=""
^DD(790.02,"GL",35,1,35.01)=""
^DD(790.02,"GL",35,3,35.03)=""
^DD(790.02,"GL",37,1,37.01)=""
^DD(790.02,"GL",37,3,37.03)=""
^DD(790.02,"GL",38,1,38.01)=""
^DD(790.02,"GL",38,3,38.03)=""
^DD(790.02,"GL",39,1,39.01)=""
^DD(790.02,"GL",39,3,39.03)=""
^DD(790.02,"GL",40,1,40.01)=""
^DD(790.02,"GL",40,3,40.03)=""
^DD(790.02,"GL",41,1,41.01)=""
^DD(790.02,"GL",41,3,41.03)=""
^DD(790.02,"IX",.01)=""
^DD(790.02,"RQ",.01)=""
^DD(790.02,"SB",790.13,.27)=""
^DD(790.02,"SB",790.14,.28)=""
^DD(790.03,0)="FIELD^^.02^2"
^DD(790.03,0,"IX","B",790.03,.01)=""
^DD(790.03,0,"IX","C",790.03,.02)=""
^DD(790.03,0,"IX","U",790.03,.01)=""
^DD(790.03,0,"NM","WV PAP REGIMEN")=""
^DD(790.03,0,"PT",790,.16)=""
^DD(790.03,0,"PT",790.04,.03)=""
^DD(790.03,0,"VR")="1.0"
^DD(790.03,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.03,.01,0)="PAP REGIMEN^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X"
^DD(790.03,.01,1,0)="^.1"
^DD(790.03,.01,1,1,0)="790.03^B"
^DD(790.03,.01,1,1,1)="S ^WV(790.03,""B"",$E(X,1,30),DA)="""""
^DD(790.03,.01,1,1,2)="K ^WV(790.03,""B"",$E(X,1,30),DA)"
^DD(790.03,.01,1,2,0)="790.03^U^MUMPS"
^DD(790.03,.01,1,2,1)="D UPXREF^WVUTL5(X,""^WV(790.03,"")"
^DD(790.03,.01,1,2,2)="D KUPXREF^WVUTL5(X,""^WV(790.03,"")"
^DD(790.03,.01,1,2,"%D",0)="^^1^1^2960308^"
^DD(790.03,.01,1,2,"%D",1,0)="Sets uppercase xref."
^DD(790.03,.01,1,2,"DT")="2960308"
^DD(790.03,.01,3)="Answer must be 3-35 characters in length."
^DD(790.03,.01,21,0)="^^18^18^2980630^"
^DD(790.03,.01,21,1,0)="This field stores information used to describe a PAP regimen, such as a"
^DD(790.03,.01,21,2,0)="procedure and its frequency or a follow-up action. The regimen appears in"
^DD(790.03,.01,21,3,0)="abbreviated form so that it can display on several screens where there is"
^DD(790.03,.01,21,4,0)="limited space. The following abbreviations may apply to the PAP regimen"
^DD(790.03,.01,21,5,0)="string:"
^DD(790.03,.01,21,6,0)="   "
^DD(790.03,.01,21,7,0)="   Symbol    Meaning"
^DD(790.03,.01,21,8,0)="   ------    -------   "
^DD(790.03,.01,21,9,0)="     P       PAP"
^DD(790.03,.01,21,10,0)="     C       Colposcopy"
^DD(790.03,.01,21,11,0)="     wk      Week"
^DD(790.03,.01,21,12,0)="     m       Month"
^DD(790.03,.01,21,13,0)="     y       Year"
^DD(790.03,.01,21,14,0)="     q       Every"
^DD(790.03,.01,21,15,0)="     pp      Postpartum"
^DD(790.03,.01,21,16,0)="     x2      Times 2"
^DD(790.03,.01,21,17,0)="     x3      Times 3"
^DD(790.03,.01,21,18,0)="     ga      Gestation"
^DD(790.03,.01,"DT")="2960308"
^DD(790.03,.02,0)="SELECTION#^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(790.03,.02,1,0)="^.1"
^DD(790.03,.02,1,1,0)="790.03^C"
^DD(790.03,.02,1,1,1)="S ^WV(790.03,""C"",$E(X,1,30),DA)="""""
^DD(790.03,.02,1,1,2)="K ^WV(790.03,""C"",$E(X,1,30),DA)"
^DD(790.03,.02,1,1,"DT")="2940930"
^DD(790.03,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(790.03,.02,21,0)="^^2^2^2980630^"
^DD(790.03,.02,21,1,0)="This field is used to order the regimens within displays or selection"
^DD(790.03,.02,21,2,0)="lists."
^DD(790.03,.02,"DT")="2940930"
^DD(790.03,"B","PAP REGIMEN",.01)=""
^DD(790.03,"B","SELECTION#",.02)=""
^DD(790.03,"GL",0,1,.01)=""
^DD(790.03,"GL",0,2,.02)=""
^DD(790.03,"IX",.01)=""
^DD(790.03,"IX",.02)=""
^DD(790.03,"RQ",.01)=""
^DD(790.04,0)="FIELD^^.03^3"
^DD(790.04,0,"DT")="2980722"
^DD(790.04,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.04,0,"IX","B",790.04,.01)=""
^DD(790.04,0,"IX","C",790.04,.02)=""
^DD(790.04,0,"NM","WV PAP REGIMEN LOG")=""
^DD(790.04,0,"VR")="1.0"
^DD(790.04,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.04,.01,0)="BEGIN DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.04,.01,1,0)="^.1"
^DD(790.04,.01,1,1,0)="790.04^B"
^DD(790.04,.01,1,1,1)="S ^WV(790.04,""B"",$E(X,1,30),DA)="""""
^DD(790.04,.01,1,1,2)="K ^WV(790.04,""B"",$E(X,1,30),DA)"
^DD(790.04,.01,3)="Enter the date the patient was given this PAP regimen."
^DD(790.04,.01,21,0)="^^1^1^2980720^"
^DD(790.04,.01,21,1,0)="This field contains the date this PAP regimen was started."
^DD(790.04,.01,"DT")="2941021"
^DD(790.04,.02,0)="PATIENT^P790'^WV(790,^0;2^Q"
^DD(790.04,.02,1,0)="^.1"
^DD(790.04,.02,1,1,0)="790.04^C"
^DD(790.04,.02,1,1,1)="S ^WV(790.04,""C"",$E(X,1,30),DA)="""""
^DD(790.04,.02,1,1,2)="K ^WV(790.04,""C"",$E(X,1,30),DA)"
^DD(790.04,.02,1,1,"DT")="2941020"
^DD(790.04,.02,3)="Select the patient for this entry."
^DD(790.04,.02,21,0)="^^2^2^2980921^"
^DD(790.04,.02,21,1,0)="This field stores the name of the patient associated with the PAP regimen."
^DD(790.04,.02,21,2,0)="Pointer to WV Patient (#790) file. "
^DD(790.04,.02,"DT")="2980722"
^DD(790.04,.03,0)="PAP REGIMEN^P790.03'^WV(790.03,^0;3^Q"
^DD(790.04,.03,3)="Select the PAP regimen that was given to this patient at the date and time of this entry."
^DD(790.04,.03,21,0)="^^1^1^2980720^"
^DD(790.04,.03,21,1,0)="This field contains the patient's PAP regimen."
^DD(790.04,.03,"DT")="2980507"
^DD(790.04,"B","BEGIN DATE",.01)=""
^DD(790.04,"B","PAP REGIMEN",.03)=""
^DD(790.04,"B","PATIENT",.02)=""
^DD(790.04,"GL",0,1,.01)=""
^DD(790.04,"GL",0,2,.02)=""
^DD(790.04,"GL",0,3,.03)=""
^DD(790.04,"IX",.01)=""
^DD(790.04,"IX",.02)=""
^DD(790.04,"RQ",.01)=""
^DD(790.05,0)="FIELD^^.04^4"
^DD(790.05,0,"DDA")="N"
^DD(790.05,0,"DT")="2980507"
^DD(790.05,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.05,0,"IX","B",790.05,.01)=""
^DD(790.05,0,"IX","C",790.05,.02)=""
^DD(790.05,0,"NM","WV PREGNANCY LOG")=""
^DD(790.05,0,"VR")="1.0"
^DD(790.05,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.05,.01,0)="DATE ENTERED^RDX^^0;1^S %DT=""EX"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(790.05,.01,1,0)="^.1"
^DD(790.05,.01,1,1,0)="790.05^B"
^DD(790.05,.01,1,1,1)="S ^WV(790.05,""B"",$E(X,1,30),DA)="""""
^DD(790.05,.01,1,1,2)="K ^WV(790.05,""B"",$E(X,1,30),DA)"
^DD(790.05,.01,3)="Enter the date on which this pregnancy was entered into the Women's Heath database.  (This is not the EDC or ""due date"".)"
^DD(790.05,.01,21,0)="^^2^2^2980714^"
^DD(790.05,.01,21,1,0)="This field stores the date this pregnancy status record was created in the"
^DD(790.05,.01,21,2,0)="Women's Heath database.  "
^DD(790.05,.01,"DT")="2980723"
^DD(790.05,.02,0)="PATIENT^P790'^WV(790,^0;2^Q"
^DD(790.05,.02,1,0)="^.1"
^DD(790.05,.02,1,1,0)="790.05^C"
^DD(790.05,.02,1,1,1)="S ^WV(790.05,""C"",$E(X,1,30),DA)="""""
^DD(790.05,.02,1,1,2)="K ^WV(790.05,""C"",$E(X,1,30),DA)"
^DD(790.05,.02,1,1,"DT")="2941023"
^DD(790.05,.02,3)="Enter the patient for this entry."
^DD(790.05,.02,21,0)="^^2^2^2980921^"
^DD(790.05,.02,21,1,0)="This field identifies the name of the patient associated with this record."
^DD(790.05,.02,21,2,0)="It is a pointer to the WV Patient (#790) file. "
^DD(790.05,.02,"DT")="2980507"
^DD(790.05,.03,0)="PREGNANCY STATUS^S^1:YES;0:NO;^0;3^Q"
^DD(790.05,.03,3)="Enter 'Yes' if the Woman is pregnant, enter 'No' if she is not."
^DD(790.05,.03,21,0)="^^2^2^2980921^"
^DD(790.05,.03,21,1,0)="This field contains the pregnancy status of the patient.  The value is a"
^DD(790.05,.03,21,2,0)="set of codes: 1 = Yes, the woman is pregnant; 0 = No, she is not pregnant."
^DD(790.05,.03,"DT")="2941023"
^DD(790.05,.04,0)="EDC^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(790.05,.04,3)="Enter the EDC (Est'd Date of Confinement) or ""due date"" for this baby's birth."
^DD(790.05,.04,21,0)="^^2^2^2980714^"
^DD(790.05,.04,21,1,0)="This field stores the estimated date of confinement (EDC) or the patient's"
^DD(790.05,.04,21,2,0)="delivery date."
^DD(790.05,.04,"DT")="2941023"
^DD(790.05,"B","DATE ENTERED",.01)=""
^DD(790.05,"B","EDC",.04)=""
^DD(790.05,"B","PATIENT",.02)=""
^DD(790.05,"B","PREGNANCY STATUS",.03)=""
^DD(790.05,"GL",0,1,.01)=""
^DD(790.05,"GL",0,2,.02)=""
^DD(790.05,"GL",0,3,.03)=""
^DD(790.05,"GL",0,4,.04)=""
^DD(790.05,"IX",.01)=""
^DD(790.05,"IX",.02)=""
^DD(790.05,"RQ",.01)=""
^DD(790.06,0)="NOTES SUB-FIELD^^.01^1"
^DD(790.06,0,"NM","NOTES")=""
^DD(790.06,0,"UP")="790"
^DD(790.06,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.06,.01,0)="NOTES^W^^0;1^Q"
^DD(790.06,.01,3)="Enter any special notes regarding the patient."
^DD(790.06,.01,21,0)="^^1^1^2980513^^^"
^DD(790.06,.01,21,1,0)="Enter any special notes regarding the patient"
^DD(790.06,.01,"DT")="2941028"
^DD(790.06,"B","NOTES",.01)=""
^DD(790.06,"GL",0,1,.01)=""
^DD(790.07,0)="FIELD^^2^3"
^DD(790.07,0,"DDA")="N"
^DD(790.07,0,"DT")="2980520"
^DD(790.07,0,"IX","B",790.07,.01)=""
^DD(790.07,0,"IX","C",790.07,.01)=""
^DD(790.07,0,"NM","WV REFERRAL SOURCE")=""
^DD(790.07,0,"PT",790,.22)=""
^DD(790.07,0,"SCR")="I $P(^(0),U,2)>0&$G(XQY0)'[""REFERRAL"""
^DD(790.07,0,"VR")="1.0"
^DD(790.07,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.07,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(790.07,.01,1,0)="^.1^^-1"
^DD(790.07,.01,1,1,0)="790.07^B"
^DD(790.07,.01,1,1,1)="S ^WV(790.07,""B"",$E(X,1,30),DA)="""""
^DD(790.07,.01,1,1,2)="K ^WV(790.07,""B"",$E(X,1,30),DA)"
^DD(790.07,.01,1,3,0)="790.07^C^MUMPS"
^DD(790.07,.01,1,3,1)="S WVACT=""SET"" D REF^WVUTL1A"
^DD(790.07,.01,1,3,2)="S WVACT=""KIL"" D REF^WVUTL1A"
^DD(790.07,.01,1,3,"%D",0)="^^5^5^2980522^^"
^DD(790.07,.01,1,3,"%D",1,0)="The purpose of this cross references on the name field (.01) is to allow"
^DD(790.07,.01,1,3,"%D",2,0)="user's input to be non-case sensitive during edits.  The name field (.01) "
^DD(790.07,.01,1,3,"%D",3,0)="values may contain mixed case entries, which created case sensitivity"
^DD(790.07,.01,1,3,"%D",4,0)="when editing fields in other files that point to WV REFERRAL SOURCE"
^DD(790.07,.01,1,3,"%D",5,0)="(#790.07)."
^DD(790.07,.01,1,3,"DT")="2980522"
^DD(790.07,.01,3)="Answer must be 3-30 characters in length."
^DD(790.07,.01,21,0)="^^4^4^2980721^"
^DD(790.07,.01,21,1,0)="This field contains a referral source used to describe how the patient was"
^DD(790.07,.01,21,2,0)="referred to the Women Veterans Health Program.  The source can be a"
^DD(790.07,.01,21,3,0)="clinic, a special event (e.g., health fair), newspaper advertisement, or"
^DD(790.07,.01,21,4,0)="individual (such as a primary provider, self, other patient)."
^DD(790.07,.01,"DEL",1,0)="I 1"
^DD(790.07,.01,"DT")="2980522"
^DD(790.07,1,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(790.07,1,21,0)="^^3^3^2980721^"
^DD(790.07,1,21,1,0)="This field stores a set of codes (1 = active and 0 = inactive) used to"
^DD(790.07,1,21,2,0)="display or hide an entry in a selection list.  If the field is active,"
^DD(790.07,1,21,3,0)="users of this package can select the entry."
^DD(790.07,1,"DT")="2980520"
^DD(790.07,2,0)="UPPERCASE REFERRAL SOURCE^CJ30^^ ; ^S X=$P(^WV(790.07,D0,0),""^""),X=$$UP^XLFSTR(X)"
^DD(790.07,2,9)="^"
^DD(790.07,2,9.01)=""
^DD(790.07,2,9.1)="S X=$P(^WV(790.07,D0,0),""^""),X=$$UP^XLFSTR(X)"
^DD(790.07,2,21,0)="^^2^2^2980709^"
^DD(790.07,2,21,1,0)="This field converts the referral source to all capital letters for "
^DD(790.07,2,21,2,0)="x-referencing."
^DD(790.07,2,"DT")="2981209"
^DD(790.07,"B","NAME",.01)=""
^DD(790.07,"B","STATUS",1)=""
^DD(790.07,"B","UPPERCASE REFERRAL SOURCE",2)=""
^DD(790.07,"GL",0,1,.01)=""
^DD(790.07,"GL",0,2,1)=""
^DD(790.07,"IX",.01)=""
^DD(790.07,"RQ",.01)=""
^DD(790.07,"RQ",1)=""
^DD(790.08,0)="FIELD^^2.2^12"
^DD(790.08,0,"DDA")="N"
^DD(790.08,0,"DT")="2990419"
^DD(790.08,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.08,0,"ID",.07)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.08,0,"ID",.12)="W ""   "",$E($P(^(0),U,12),4,5)_""-""_$E($P(^(0),U,12),6,7)_""-""_$E($P(^(0),U,12),2,3)"
^DD(790.08,0,"IX","B",790.08,.01)=""
^DD(790.08,0,"IX","C",790.08,.02)=""
^DD(790.08,0,"IX","D",790.08,.12)=""
^DD(790.08,0,"IX","E",790.08,.07)=""
^DD(790.08,0,"NM","WV LAB TESTS")=""
^DD(790.08,0,"VR")="1.0"
^DD(790.08,0,"VRPK")="WV"
^DD(790.08,.01,0)="LAB ACCESSION#^RF^^0;1^K:$L(X)>15!($L(X)<3)!'(X'?1P.E) X"
^DD(790.08,.01,1,0)="^.1"
^DD(790.08,.01,1,1,0)="790.08^B"
^DD(790.08,.01,1,1,1)="S ^WV(790.08,""B"",$E(X,1,30),DA)="""""
^DD(790.08,.01,1,1,2)="K ^WV(790.08,""B"",$E(X,1,30),DA)"
^DD(790.08,.01,3)="Answer must be 3-15 characters in length."
^DD(790.08,.01,21,0)="^^2^2^2990510^"
^DD(790.08,.01,21,1,0)="This field contains the Lab Accession number value from File 63 of the Lab"
^DD(790.08,.01,21,2,0)="package (e.g., CY 99 1)."
^DD(790.08,.01,"DT")="2990217"
^DD(790.08,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(790.08,.02,1,0)="^.1"
^DD(790.08,.02,1,1,0)="790.08^C"
^DD(790.08,.02,1,1,1)="S ^WV(790.08,""C"",$E(X,1,30),DA)="""""
^DD(790.08,.02,1,1,2)="K ^WV(790.08,""C"",$E(X,1,30),DA)"
^DD(790.08,.02,1,1,3)="ALLOWS LOOK-UP BY PATIENT NAME"
^DD(790.08,.02,1,1,"%D",0)="^^2^2^2990510^"
^DD(790.08,.02,1,1,"%D",1,0)="This regular cross-reference allows the user to select lab test entry by"
^DD(790.08,.02,1,1,"%D",2,0)="the patient's name."
^DD(790.08,.02,1,1,"DT")="2990312"
^DD(790.08,.02,21,0)="^^1^1^2990312^^"
^DD(790.08,.02,21,1,0)="This field contains the name of the patient associated with this lab test."
^DD(790.08,.02,"DT")="2990312"
^DD(790.08,.07,0)="PROVIDER^P200'^VA(200,^0;7^Q"
^DD(790.08,.07,1,0)="^.1"
^DD(790.08,.07,1,1,0)="790.08^E"
^DD(790.08,.07,1,1,1)="S ^WV(790.08,""E"",$E(X,1,30),DA)="""""
^DD(790.08,.07,1,1,2)="K ^WV(790.08,""E"",$E(X,1,30),DA)"
^DD(790.08,.07,1,1,3)="ALLOWS LOOK-UP BY PHYSICIAN REQUESTING LAB TEST"
^DD(790.08,.07,1,1,"%D",0)="^^2^2^2990222^"
^DD(790.08,.07,1,1,"%D",1,0)="This regular cross-reference allows the user to select lab test entry by"
^DD(790.08,.07,1,1,"%D",2,0)="the name of the requesting provider."
^DD(790.08,.07,1,1,"DT")="2990222"
^DD(790.08,.07,21,0)="^^3^3^2990219^"
^DD(790.08,.07,21,1,0)="This field contains the requesting provider for the lab test. The source"
^DD(790.08,.07,21,2,0)="of this value is either the PHYSICIAN field (63.09, .07) or the"
^DD(790.08,.07,21,3,0)="SURGEON/PHYSICIAN field (63.08, .07) of the LAB DATA file (#63)."
^DD(790.08,.07,"DT")="2990222"
^DD(790.08,.1,0)="HEALTH CARE FACILITY^P4'^DIC(4,^0;10^Q"
^DD(790.08,.1,21,0)="^^2^2^2990219^"
^DD(790.08,.1,21,1,0)="This field identifies the name of the health care facility where this"
^DD(790.08,.1,21,2,0)="procedure was performed."
^DD(790.08,.1,"DT")="2990219"
^DD(790.08,.11,0)="WARD/CLINIC/LOCATION^P44'^SC(^0;11^Q"
^DD(790.08,.11,21,0)="^^2^2^2990219^"
^DD(790.08,.11,21,1,0)="This field contains the name of the ward, clinic, or location where the"
^DD(790.08,.11,21,2,0)="procedure was performed."
^DD(790.08,.11,"DT")="2990219"
^DD(790.08,.12,0)="DATE OF PROCEDURE^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.08,.12,1,0)="^.1"
^DD(790.08,.12,1,1,0)="790.08^D"
^DD(790.08,.12,1,1,1)="S ^WV(790.08,""D"",$E(X,1,30),DA)="""""
^DD(790.08,.12,1,1,2)="K ^WV(790.08,""D"",$E(X,1,30),DA)"
^DD(790.08,.12,1,1,3)="ALLOWS LOOK-UP BY SPECIMEN DATE/TIME"
^DD(790.08,.12,1,1,"%D",0)="^^2^2^2990510^^"
^DD(790.08,.12,1,1,"%D",1,0)="This regular cross-reference allows the user to select lab test entry by"
^DD(790.08,.12,1,1,"%D",2,0)="the date/time the specimen was taken."
^DD(790.08,.12,1,1,"DT")="2990222"
^DD(790.08,.12,21,0)="^^2^2^2990219^"
^DD(790.08,.12,21,1,0)="This field identifies the date on which the procedure was performed. Dates"
^DD(790.08,.12,21,2,0)="in the future may not be entered."
^DD(790.08,.12,"DT")="2990222"
^DD(790.08,.18,0)="ENTERING USER^P200'^VA(200,^0;18^Q"
^DD(790.08,.18,21,0)="^^1^1^2990219^"
^DD(790.08,.18,21,1,0)="This field stores the name of the person initially creating this record."
^DD(790.08,.18,"DT")="2990219"
^DD(790.08,.19,0)="DATE FIRST ENTERED^D^^0;19^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.08,.19,21,0)="^^2^2^2990219^"
^DD(790.08,.19,21,1,0)="This field stores the date on which this procedure record was first"
^DD(790.08,.19,21,2,0)="entered."
^DD(790.08,.19,"DT")="2990219"
^DD(790.08,.34,0)="FACILITY WHERE ACESSIONED^P4'^DIC(4,^0;34^Q"
^DD(790.08,.34,21,0)="^^1^1^2990219^"
^DD(790.08,.34,21,1,0)="Select the facility where this procedure was accessioned."
^DD(790.08,.34,"DT")="2990219"
^DD(790.08,2.18,0)="LAB DATA FILE IEN^NJ9,0^^0;36^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(790.08,2.18,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(790.08,2.18,21,0)="^^2^2^2990219^"
^DD(790.08,2.18,21,1,0)="This field contains the internal entry number of the LAB DATA file (#63)"
^DD(790.08,2.18,21,2,0)="for the patient, if this procedure entry is a lab test."
^DD(790.08,2.18,"DT")="2990219"
^DD(790.08,2.19,0)="LAB INVERSE DATE/TIME^F^^0;37^K:$L(X)>14!($L(X)<7) X"
^DD(790.08,2.19,3)="Answer must be 7-14 characters in length."
^DD(790.08,2.19,21,0)="^^2^2^2990219^"
^DD(790.08,2.19,21,1,0)="This field contains the inverse date/time of a lab test from the LAB DATA"
^DD(790.08,2.19,21,2,0)="file (#63) for the patient, if this procedure entry is a lab test."
^DD(790.08,2.19,"DT")="2990223"
^DD(790.08,2.2,0)="LAB SUBSCRIPT^F^^0;38^K:$L(X)>2!($L(X)<2) X"
^DD(790.08,2.2,3)="Answer must be 2 characters in length."
^DD(790.08,2.2,21,0)="^^3^3^2990405^"
^DD(790.08,2.2,21,1,0)="This field contains a character string that distinguishes the type of lab"
^DD(790.08,2.2,21,2,0)="test performed. The letters ""CY"" will represent a cytology test and the"
^DD(790.08,2.2,21,3,0)="letters ""SP"" will represent a surgical pathology test."
^DD(790.08,2.2,"DT")="2990419"
^DD(790.08,"B","DATE FIRST ENTERED",.19)=""
^DD(790.08,"B","DATE OF PROCEDURE",.12)=""
^DD(790.08,"B","ENTERING USER",.18)=""
^DD(790.08,"B","FACILITY WHERE ACESSIONED",.34)=""
^DD(790.08,"B","HEALTH CARE FACILITY",.1)=""
^DD(790.08,"B","LAB ACCESSION#",.01)=""
^DD(790.08,"B","LAB DATA FILE IEN",2.18)=""
^DD(790.08,"B","LAB INVERSE DATE/TIME",2.19)=""
^DD(790.08,"B","LAB SUBSCRIPT",2.2)=""
^DD(790.08,"B","PATIENT",.02)=""
^DD(790.08,"B","PROVIDER",.07)=""
^DD(790.08,"B","WARD/CLINIC/LOCATION",.11)=""
^DD(790.08,"GL",0,1,.01)=""
^DD(790.08,"GL",0,2,.02)=""
^DD(790.08,"GL",0,7,.07)=""
^DD(790.08,"GL",0,10,.1)=""
^DD(790.08,"GL",0,11,.11)=""
^DD(790.08,"GL",0,12,.12)=""
^DD(790.08,"GL",0,18,.18)=""
^DD(790.08,"GL",0,19,.19)=""
^DD(790.08,"GL",0,34,.34)=""
^DD(790.08,"GL",0,36,2.18)=""
^DD(790.08,"GL",0,37,2.19)=""
^DD(790.08,"GL",0,38,2.2)=""
^DD(790.08,"IX",.01)=""
^DD(790.08,"IX",.02)=""
^DD(790.08,"IX",.07)=""
^DD(790.08,"IX",.12)=""
^DD(790.08,"RQ",.01)=""
^DD(790.09,0)="APPOINTMENTS SUB-FIELD^^.01^1"
^DD(790.09,0,"DT")="2990318"
^DD(790.09,0,"IX","B",790.09,.01)=""
^DD(790.09,0,"NM","APPOINTMENTS")=""
^DD(790.09,0,"UP")="790"
^DD(790.09,.01,0)="APPOINTMENTS^F^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(790.09,.01,1,0)="^.1"
^DD(790.09,.01,1,1,0)="790.09^B"
^DD(790.09,.01,1,1,1)="S ^WV(790,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(790.09,.01,1,1,2)="K ^WV(790,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(790.09,.01,3)="Answer must be 3-80 characters in length."
^DD(790.09,.01,21,0)="^^8^8^2990903^^"
^DD(790.09,.01,21,1,0)="This field contains the external date of the appointment concatenated to"
^DD(790.09,.01,21,2,0)="the name of the clinic. This field value is set by the WVUTL9 routine when"
^DD(790.09,.01,21,3,0)="a WH user displays/prints a notification letter. If there are no future"
^DD(790.09,.01,21,4,0)="appointments scheduled, then the value ""No Future Appointments"" is stored"
^DD(790.09,.01,21,5,0)="in this field."
^DD(790.09,.01,21,6,0)=" "
^DD(790.09,.01,21,7,0)="The future appointments are displayed in the text of the letter only when"
^DD(790.09,.01,21,8,0)="""|APPOINTMENTS|"" (without the quotes) appears in the form letter template."
^DD(790.09,.01,"DT")="2990318"
^DD(790.09,"B","APPOINTMENTS",.01)=""
^DD(790.09,"GL",0,1,.01)=""
^DD(790.09,"IX",.01)=""
^DD(790.1,0)="FIELD^^9^41"
^DD(790.1,0,"DT")="2980624"
^DD(790.1,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.1,0,"ID",.12)="W ""   "",$E($P(^(0),U,12),4,5)_""-""_$E($P(^(0),U,12),6,7)_""-""_$E($P(^(0),U,12),2,3)"
^DD(790.1,0,"IX","ABNML",790.1,.05)=""
^DD(790.1,0,"IX","ABNML1",790.1,.12)=""
^DD(790.1,0,"IX","ACOLP",790.1,.3)=""
^DD(790.1,0,"IX","ADE",790.1,.19)=""
^DD(790.1,0,"IX","APCD",790.1,.04)=""
^DD(790.1,0,"IX","B",790.1,.01)=""
^DD(790.1,0,"IX","C",790.1,.02)=""
^DD(790.1,0,"IX","D",790.1,.12)=""
^DD(790.1,0,"IX","E",790.1,.15)=""
^DD(790.1,0,"IX","F",790.1,2.17)=""
^DD(790.1,0,"IX","S",790.1,.14)=""
^DD(790.1,0,"NM","WV PROCEDURE")=""
^DD(790.1,0,"PT",790.1,.3)=""
^DD(790.1,0,"PT",790.4,.06)=""
^DD(790.1,0,"VR")="1.0"
^DD(790.1,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.1,.01,0)="ACCESSION#^RF^^0;1^K:$L(X)>12!($L(X)<6) X"
^DD(790.1,.01,1,0)="^.1"
^DD(790.1,.01,1,1,0)="790.1^B"
^DD(790.1,.01,1,1,1)="S ^WV(790.1,""B"",$E(X,1,30),DA)="""""
^DD(790.1,.01,1,1,2)="K ^WV(790.1,""B"",$E(X,1,30),DA)"
^DD(790.1,.01,1,1,"DT")="2940614"
^DD(790.1,.01,3)="Answer must be 6-12 characters in length."
^DD(790.1,.01,21,0)="^^3^3^2980924^"
^DD(790.1,.01,21,1,0)="This is the record number assigned by the Women's Health package.  It is"
^DD(790.1,.01,21,2,0)="composed of the procedure's abbreviated code, a four digit year and a"
^DD(790.1,.01,21,3,0)="sequential number."
^DD(790.1,.01,"DT")="2940729"
^DD(790.1,.02,0)="PATIENT^RP790'^WV(790,^0;2^Q"
^DD(790.1,.02,1,0)="^.1"
^DD(790.1,.02,1,1,0)="790.1^C"
^DD(790.1,.02,1,1,1)="S ^WV(790.1,""C"",$E(X,1,30),DA)="""""
^DD(790.1,.02,1,1,2)="K ^WV(790.1,""C"",$E(X,1,30),DA)"
^DD(790.1,.02,1,1,"DT")="2940731"
^DD(790.1,.02,21,0)="^^2^2^2980921^^^"
^DD(790.1,.02,21,1,0)="This field contains the name of the patient associated with the procedure."
^DD(790.1,.02,21,2,0)="Pointer to the WV Patient (#790) file."
^DD(790.1,.02,"DT")="2980507"
^DD(790.1,.04,0)="PROCEDURE^RP790.2'^WV(790.2,^0;4^Q"
^DD(790.1,.04,1,0)="^.1"
^DD(790.1,.04,1,1,0)="790.1^APCD"
^DD(790.1,.04,1,1,1)="S ^WV(790.1,""APCD"",$E(X,1,30),DA)="""""
^DD(790.1,.04,1,1,2)="K ^WV(790.1,""APCD"",$E(X,1,30),DA)"
^DD(790.1,.04,1,1,"DT")="2940731"
^DD(790.1,.04,21,0)="^^2^2^2980921^^"
^DD(790.1,.04,21,1,0)="This field stores the name of the procedure performed on the patient."
^DD(790.1,.04,21,2,0)="Pointer to the WV Procedure (#790.1) file."
^DD(790.1,.04,"DT")="2980507"
^DD(790.1,.05,0)="RESULTS/DIAGNOSIS^*P790.31'^WV(790.31,^0;5^S DIC(""S"")=""D PROCSCRN^WVUTL2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.05,1,0)="^.1"
^DD(790.1,.05,1,1,0)="790.1^ABNML^MUMPS"
^DD(790.1,.05,1,1,1)="D XREFP05^WVUTL2"
^DD(790.1,.05,1,1,2)=";"
^DD(790.1,.05,1,1,"DT")="2941010"
^DD(790.1,.05,3)=""
^DD(790.1,.05,12)="Select the result or diagnosis for this Procedure."
^DD(790.1,.05,12.1)="S DIC(""S"")=""D PROCSCRN^WVUTL2"""
^DD(790.1,.05,21,0)="^^2^2^2980921^"
^DD(790.1,.05,21,1,0)="This field stores the main result or diagnosis of the patient's procedure."
^DD(790.1,.05,21,2,0)="Pointer to the WV Results/Diagnosis (#790.31) file."
^DD(790.1,.05,"DT")="2980507"
^DD(790.1,.06,0)="SEC RESULT/DIAGNOSIS^*P790.31'^WV(790.31,^0;6^S DIC(""S"")=""D PROCSCRN^WVUTL2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.06,12)="Select the result or diagnosis for this Procedure."
^DD(790.1,.06,12.1)="S DIC(""S"")=""D PROCSCRN^WVUTL2"""
^DD(790.1,.06,21,0)="^^2^2^2980921^^"
^DD(790.1,.06,21,1,0)="This field stores a secondary outcome/diagnosis associated with the"
^DD(790.1,.06,21,2,0)="procedure.  Pointer to the WV Results/Diagnosis (#790.31) file."
^DD(790.1,.06,"DT")="2980507"
^DD(790.1,.07,0)="PROVIDER^*P200'^VA(200,^0;7^S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.07,3)="Select the provider/clinician who performed this procedure."
^DD(790.1,.07,12)="This person must be listed as a PROVIDER in the NEW PERSON file."
^DD(790.1,.07,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PROVIDER"""",Y))"""
^DD(790.1,.07,21,0)="^^2^2^2980924^^^"
^DD(790.1,.07,21,1,0)="This field stores the name of the clinician who ordered and/or performed"
^DD(790.1,.07,21,2,0)="this procedure."
^DD(790.1,.07,"DT")="2960208"
^DD(790.1,.08,0)="HPV^S^1:YES;0:NO;^0;8^Q"
^DD(790.1,.08,3)="Enter 'Yes' if the lab reports include HPV."
^DD(790.1,.08,21,0)="^^2^2^2980921^^"
^DD(790.1,.08,21,1,0)="This field is used to document the presence or absence of the Human"
^DD(790.1,.08,21,2,0)="Papilloma Virus (HPV) in the cytology reports."
^DD(790.1,.08,"DT")="2941013"
^DD(790.1,.09,0)="MAM UNILATERAL: LEFT OR RIGHT^S^l:LEFT;r:RIGHT;^0;9^Q"
^DD(790.1,.09,3)="Select left or right for this unilateral mammogram."
^DD(790.1,.09,21,0)="^^1^1^2980513"
^DD(790.1,.09,21,1,0)="Select left or right for this unilateral mammogram."
^DD(790.1,.09,"DT")="2950120"
^DD(790.1,.1,0)="HEALTH CARE FACILITY^P4'^DIC(4,^0;10^Q"
^DD(790.1,.1,3)="Enter the name of the health care facility where this procedure was performed."
^DD(790.1,.1,21,0)="^^2^2^2980921^^"
^DD(790.1,.1,21,1,0)="This field identifies the name of the health care facility where this"
^DD(790.1,.1,21,2,0)="procedure was performed."
^DD(790.1,.1,"DT")="2980507"
^DD(790.1,.11,0)="WARD/CLINIC/LOCATION^P44'^SC(^0;11^Q"
^DD(790.1,.11,3)="Enter the ward, clinic, or location in which the procedure was performed."
^DD(790.1,.11,21,0)="^^2^2^2980921^^"
^DD(790.1,.11,21,1,0)="This field contains the name of the ward, clinic, or location where the"
^DD(790.1,.11,21,2,0)="procedure was performed."
^DD(790.1,.11,"DT")="2940712"
^DD(790.1,.12,0)="DATE OF PROCEDURE^DX^^0;12^S %DT=""ETX"" D ^%DT S X=Y K:X>DT X K:Y<1 X"
^DD(790.1,.12,1,0)="^.1"
^DD(790.1,.12,1,1,0)="790.1^ABNML1^MUMPS"
^DD(790.1,.12,1,1,1)="D XREFP12^WVUTL2"
^DD(790.1,.12,1,1,2)="K ^WV(790.1,""ABNML"",X,DA)"
^DD(790.1,.12,1,1,"DT")="2941010"
^DD(790.1,.12,1,2,0)="790.1^D"
^DD(790.1,.12,1,2,1)="S ^WV(790.1,""D"",$E(X,1,30),DA)="""""
^DD(790.1,.12,1,2,2)="K ^WV(790.1,""D"",$E(X,1,30),DA)"
^DD(790.1,.12,1,2,"DT")="2941010"
^DD(790.1,.12,3)="Enter the date on which the procedure was performed.  Dates in the future may not be entered."
^DD(790.1,.12,21,0)="^^2^2^2980921^^^"
^DD(790.1,.12,21,1,0)="This field identifies the date on which the procedure was performed. Dates"
^DD(790.1,.12,21,2,0)="in the future may not be entered."
^DD(790.1,.12,"DT")="2950327"
^DD(790.1,.13,0)="COMPLETE BY (DATE)^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.1,.13,3)="Enter the date after which this procedure will be marked 'Delinquent' if it has not been 'Closed', under the Status field."
^DD(790.1,.13,21,0)="^^2^2^2980921^^"
^DD(790.1,.13,21,1,0)="This field contains the date used to determine that this procedure record"
^DD(790.1,.13,21,2,0)="is delinquent when a close status has not been entered in the record."
^DD(790.1,.13,"DT")="2940918"
^DD(790.1,.14,0)="STATUS^S^o:OPEN;c:CLOSED;^0;14^Q"
^DD(790.1,.14,1,0)="^.1"
^DD(790.1,.14,1,1,0)="790.1^S"
^DD(790.1,.14,1,1,1)="S ^WV(790.1,""S"",$E(X,1,30),DA)="""""
^DD(790.1,.14,1,1,2)="K ^WV(790.1,""S"",$E(X,1,30),DA)"
^DD(790.1,.14,1,1,"DT")="2941209"
^DD(790.1,.14,3)="Enter the status of this procedure."
^DD(790.1,.14,21,0)="^^3^3^2980921^^"
^DD(790.1,.14,21,1,0)="This field contains the status (set of codes: O = Open, C = Closed).  The"
^DD(790.1,.14,21,2,0)="value of this field is used in the Program Snapshot reports and the Browse"
^DD(790.1,.14,21,3,0)="Patients with Needs Past Due report."
^DD(790.1,.14,"DT")="2980624"
^DD(790.1,.15,0)="RADIOLOGY MAM CASE#^F^^0;15^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1) X"
^DD(790.1,.15,1,0)="^.1"
^DD(790.1,.15,1,1,0)="790.1^E"
^DD(790.1,.15,1,1,1)="S ^WV(790.1,""E"",$E(X,1,30),DA)="""""
^DD(790.1,.15,1,1,2)="K ^WV(790.1,""E"",$E(X,1,30),DA)"
^DD(790.1,.15,1,1,"%D",0)="^^4^4^2950527^"
^DD(790.1,.15,1,1,"%D",1,0)="This is the crossreference for the Radiology Case#.  If mammograms from"
^DD(790.1,.15,1,1,"%D",2,0)="the VISTA Radiology software are imported into the Women's Health database,"
^DD(790.1,.15,1,1,"%D",3,0)="field #.15 in the WV PROCEDURES file, this xref will allow one to identify"
^DD(790.1,.15,1,1,"%D",4,0)="the Radiology Procedure that links to this one."
^DD(790.1,.15,1,1,"DT")="2950527"
^DD(790.1,.15,3)="Enter the VISTA Radiology case# for this mammogram."
^DD(790.1,.15,21,0)="^^3^3^2980924^^^"
^DD(790.1,.15,21,1,0)="This field stores the VISTA Radiology/Nuclear Medicine case# for this"
^DD(790.1,.15,21,2,0)="mammogram procedure when the Women's Health package automatically imports"
^DD(790.1,.15,21,3,0)="radiology procedures."
^DD(790.1,.15,"DT")="2950527"
^DD(790.1,.16,0)="PROCESSED Y/N?^S^0:NO;1:YES;^0;16^Q"
^DD(790.1,.16,3)="Answer YES if resulted via a Clinical Reminder."
^DD(790.1,.16,21,0)="^.001^6^6^3021216^^^"
^DD(790.1,.16,21,1,0)="This field indicates if the procedure result was entered via a Clinical "
^DD(790.1,.16,21,2,0)="Reminder. "
^DD(790.1,.16,21,3,0)=" "
^DD(790.1,.16,21,4,0)="Answer YES to indicate the procedure result was entered by a Clinical "
^DD(790.1,.16,21,5,0)="Reminder. Answer NO if the procedure result was not entered by a Clinical "
^DD(790.1,.16,21,6,0)="Reminder."
^DD(790.1,.16,"DT")="3021216"
^DD(790.1,.18,0)="ENTERING USER^P200'^VA(200,^0;18^Q"
^DD(790.1,.18,3)="Enter the name of the user who first entered this procedure."
^DD(790.1,.18,21,0)="^^1^1^2980921^^"
^DD(790.1,.18,21,1,0)="This field stores the name of the person initially creating this record."
^DD(790.1,.18,"DT")="2941230"
^DD(790.1,.19,0)="DATE FIRST ENTERED^D^^0;19^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.1,.19,1,0)="^.1"
^DD(790.1,.19,1,1,0)="790.1^ADE"
^DD(790.1,.19,1,1,1)="S ^WV(790.1,""ADE"",$E(X,1,30),DA)="""""
^DD(790.1,.19,1,1,2)="K ^WV(790.1,""ADE"",$E(X,1,30),DA)"
^DD(790.1,.19,1,1,"DT")="2941230"
^DD(790.1,.19,3)="Enter the date on which this procedure was first entered."
^DD(790.1,.19,21,0)="^^2^2^2980921^^"
^DD(790.1,.19,21,1,0)="This field stores the date on which this procedure record was first"
^DD(790.1,.19,21,2,0)="entered."
^DD(790.1,.19,"DT")="2941230"
^DD(790.1,.2,0)="SATISFACTORY EXAM^S^1:YES;0:NO;^0;20^Q"
^DD(790.1,.2,3)="Enter 'Yes' if this exam was satisfactory."
^DD(790.1,.2,21,0)="^^3^3^2980921^^"
^DD(790.1,.2,21,1,0)="This field documents that the procedure or gynecologic exam was"
^DD(790.1,.2,21,2,0)="satisfactorily performed without any impediments.  Set of codes (1 = Yes,"
^DD(790.1,.2,21,3,0)="0 = No)."
^DD(790.1,.2,"DT")="2941017"
^DD(790.1,.21,0)="T-ZONE SEEN ENTIRELY^S^1:YES;0:NO;^0;21^Q"
^DD(790.1,.21,3)="Enter 'Yes' if the entire T-Zone was seen."
^DD(790.1,.21,21,0)="^^2^2^2980921^^"
^DD(790.1,.21,21,1,0)="This field documents (set of codes: 1 = Yes, 0 = No) that the T-Zone in"
^DD(790.1,.21,21,2,0)="the colposcopy/biopsy procedure was adequately visualized."
^DD(790.1,.21,"DT")="2941017"
^DD(790.1,.22,0)="LESION OUTSIDE CANAL^S^1:YES;0:NO;^0;22^Q"
^DD(790.1,.22,3)="Enter 'Yes' if the lesion was outside the canal."
^DD(790.1,.22,21,0)="^^2^2^2980921^^"
^DD(790.1,.22,21,1,0)="This field documents (set of codes: 1 = Yes, 0 = No) that the lesion seen"
^DD(790.1,.22,21,2,0)="during the procedure was outside the canal."
^DD(790.1,.22,"DT")="2941017"
^DD(790.1,.23,0)="MULTIFOCAL^S^1:YES;0:NO;^0;23^Q"
^DD(790.1,.23,3)="Was the lesion multifocal (as opposed to unifocal)?"
^DD(790.1,.23,21,0)="^^2^2^2980921^^"
^DD(790.1,.23,21,1,0)="This field documents (set of codes: 1 = Yes, 0 = No) that the lesion seen"
^DD(790.1,.23,21,2,0)="during the procedure was multifocal (as opposed to unifocal)."
^DD(790.1,.23,"DT")="2941017"
^DD(790.1,.24,0)="NUMBER OF QUADRANTS^NJ1,0^^0;24^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.1,.24,3)="Enter the number of quadrants occupied by the lesion."
^DD(790.1,.24,21,0)="^^2^2^2980921^"
^DD(790.1,.24,21,1,0)="This field contains a number (0-4) that identifies the number of quadrants"
^DD(790.1,.24,21,2,0)="occupied by the lesion."
^DD(790.1,.24,"DT")="2941017"
^DD(790.1,.245,0)="QUADRANT LOCATIONS^FX^^2;16^K:$L(X)>11!($L(X)<2) X Q:$G(X)=""""  S WV9=$$QUAD^WVUTL1A(X) K:'WV9 X Q:$G(X)=""""  S:X'=$P(WV9,U,2) X=$P(WV9,U,2) K:$P(WV9,U,2)="""" X K WV9 Q"
^DD(790.1,.245,3)="Enter two letter abbreviations for the location(s) of the affected quadrants (ie. UL,LL,UR,LR) separated by commas.  Answer must be 2-11 upper case characters in length."
^DD(790.1,.245,21,0)="^^11^11^2980921^"
^DD(790.1,.245,21,1,0)="     "
^DD(790.1,.245,21,2,0)="The location of the affected quadrants.  Any of the following abbreviations"
^DD(790.1,.245,21,3,0)="may be selected: UL,LL,UR,LR."
^DD(790.1,.245,21,4,0)="  "
^DD(790.1,.245,21,5,0)="UL - Upper Left quadrant"
^DD(790.1,.245,21,6,0)="LL - Lower Left quadrant"
^DD(790.1,.245,21,7,0)="UR - Upper Right quadrant"
^DD(790.1,.245,21,8,0)="LR - Lower Right quadrant"
^DD(790.1,.245,21,9,0)="   "
^DD(790.1,.245,21,10,0)="If more than one quadrant is included separate them with a comma, ie: LL,"
^DD(790.1,.245,21,11,0)="UL,UR will represent the inclusion of 3 of the 4 quadrants."
^DD(790.1,.245,"DT")="2980521"
^DD(790.1,.25,0)="ECC DYSPLASIA^S^y:YES;n:NO;nd:Not Done;i:Insufficient Tissue;^0;25^Q"
^DD(790.1,.25,3)="Choose Yes, No, Not Done, or Insufficient Tissue."
^DD(790.1,.25,21,0)="^^3^3^2980921^^"
^DD(790.1,.25,21,1,0)="This field indicates if ectocervical dysplasia was present, if an"
^DD(790.1,.25,21,2,0)="insufficient tissue sample was provided, or the sample was not examined"
^DD(790.1,.25,21,3,0)="for dysplasia."
^DD(790.1,.25,"DT")="2941019"
^DD(790.1,.26,0)="ECTOCERVICAL BIOPSY^*P790.31'^WV(790.31,^0;26^S DIC(""S"")=""D PROCSCRN^WVUTL2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.26,12)="Select the diagnosis for the Ectocervical Biopsy."
^DD(790.1,.26,12.1)="S DIC(""S"")=""D PROCSCRN^WVUTL2"""
^DD(790.1,.26,21,0)="^^2^2^2980921^^"
^DD(790.1,.26,21,1,0)="This field contains the diagnosis or impression resulting from the"
^DD(790.1,.26,21,2,0)="cytology examination.  Pointer to the WV Results/Diagnosis (#790.31) file."
^DD(790.1,.26,"DT")="2980507"
^DD(790.1,.27,0)="MARGINS CLEAR^S^1:YES;0:NO;^0;27^Q"
^DD(790.1,.27,3)="Enter 'Yes' if the pathology report states that the margins were clear; enter 'No' if not."
^DD(790.1,.27,21,0)="^^2^2^2980921^^"
^DD(790.1,.27,21,1,0)="This field indicates tissue sample showed no pathology at the margins of"
^DD(790.1,.27,21,2,0)="the tissue sample."
^DD(790.1,.27,"DT")="2941017"
^DD(790.1,.28,0)="STD EVALUATION^*P790.31'^WV(790.31,^0;28^S DIC(""S"")=""D PROCSCRN^WVUTL2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.28,12)="Select the diagnosis for the STD Evaluation."
^DD(790.1,.28,12.1)="S DIC(""S"")=""D PROCSCRN^WVUTL2"""
^DD(790.1,.28,21,0)="^^2^2^2980921^^"
^DD(790.1,.28,21,1,0)="This field documents the findings after testing for sexually transmitted"
^DD(790.1,.28,21,2,0)="diseases.  Pointer to the WV Results/Diagnosis (#790.31) file."
^DD(790.1,.28,"DT")="2980507"
^DD(790.1,.29,0)="IMPRESSION^*P790.31'^WV(790.31,^0;29^S DIC(""S"")=""D PROCSCRN^WVUTL2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.29,3)=""
^DD(790.1,.29,12)="Select the Result/Diagnosis that best matches the Care Provider's Impression."
^DD(790.1,.29,12.1)="S DIC(""S"")=""D PROCSCRN^WVUTL2"""
^DD(790.1,.29,21,0)="^^2^2^2980921^^"
^DD(790.1,.29,21,1,0)="This field contains the impression of the clinician performing the exam.  "
^DD(790.1,.29,21,2,0)="Pointer to the WV Results/Diagnosis (#790.31) file."
^DD(790.1,.29,"DT")="2980507"
^DD(790.1,.3,0)="SCREENING PAP^*P790.1'^WV(790.1,^0;30^S DIC(""S"")=""D PAPSCRN^WVUTL2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.3,1,0)="^.1"
^DD(790.1,.3,1,1,0)="790.1^ACOLP^MUMPS"
^DD(790.1,.3,1,1,1)="I $P(^WV(790.1,DA,0),U,4)=2 S ^WV(790.1,""ACOLP"",X,(9999999-$P(^WV(790.1,DA,0),U,12)),DA)="""""
^DD(790.1,.3,1,1,2)="K ^WV(790.1,""ACOLP"",X,(9999999-$P(^WV(790.1,DA,0),U,12)),DA)"
^DD(790.1,.3,1,1,"%D",0)="^^3^3^2950801^"
^DD(790.1,.3,1,1,"%D",1,0)="If this procedure is a Colposcopy, set a crossreference on the PAP that it"
^DD(790.1,.3,1,1,"%D",2,0)="points to and the inverse date.  This will allow the PAP to bring up the"
^DD(790.1,.3,1,1,"%D",3,0)="most recent Colp related to it."
^DD(790.1,.3,1,1,"DT")="2950801"
^DD(790.1,.3,12)="Select the Screening PAP that initiated this Colposcopy."
^DD(790.1,.3,12.1)="S DIC(""S"")=""D PAPSCRN^WVUTL2"""
^DD(790.1,.3,21,0)="^^2^2^2980921^^"
^DD(790.1,.3,21,1,0)="This field stores the PAP procedure associated with the follow-up"
^DD(790.1,.3,21,2,0)="procedure (e.g., colposcopy).  Pointer to the WV Procedure (#790.1) file."
^DD(790.1,.3,"DT")="2950801"
^DD(790.1,.31,0)="STAGE AT FINAL DX^S^1:I;2:II;3:III;4:IV;5:S-Local;6:S-Regional;7:S-Distant;8:Unknown;^0;31^Q"
^DD(790.1,.31,3)="If the final diagnosis is ""Invasive carcinoma"" enter the pathologic or clinical stage.  If clinical stage is unknown, enter the summary ('S-') stage."
^DD(790.1,.31,21,0)="^^3^3^2980921^^"
^DD(790.1,.31,21,1,0)="This field is used to document the clinical stage for invasive carcinoma"
^DD(790.1,.31,21,2,0)="of the cervix.  If clinical stage is unknown, enter the summary ('S-')"
^DD(790.1,.31,21,3,0)="stage."
^DD(790.1,.31,"DT")="2950731"
^DD(790.1,.32,0)="DATE RESULTS RECEIVED^D^^0;32^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.1,.32,3)="Enter the date that the results were received/uploaded from the lab."
^DD(790.1,.32,21,0)="^^1^1^2980513"
^DD(790.1,.32,21,1,0)="Enter the date that the results were received/uploaded from the lab."
^DD(790.1,.32,"DT")="2950815"
^DD(790.1,.33,0)="FINAL DX PAP/COLP^*P790.31'^WV(790.31,^0;33^S DIC(""S"")=""I $P(^(0),U,26)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.1,.33,3)="Enter the Final Diagnosis for this PAP/Colp case."
^DD(790.1,.33,12)="Only Pap/Colp Final Diagnoses may be selected."
^DD(790.1,.33,12.1)="S DIC(""S"")=""I $P(^(0),U,26)"""
^DD(790.1,.33,21,0)="^^1^1^2980513"
^DD(790.1,.33,21,1,0)="Enter the Final Diagnosis for this PAP/Colp case."
^DD(790.1,.33,"DT")="2980507"
^DD(790.1,.34,0)="FACILITY WHERE ACCESSIONED^P4'^DIC(4,^0;34^Q"
^DD(790.1,.34,3)="Select the facility where this procedure was accessioned."
^DD(790.1,.34,21,0)="^^1^1^2980921^"
^DD(790.1,.34,21,1,0)="Select the facility where this procedure was accessioned."
^DD(790.1,.34,"DT")="2980507"
^DD(790.1,.35,0)="RADIOLOGY CREDIT METHOD^S^0:Regular Credit;1:Interpretation Only;2:No credit;3:Technical Component Only;^0;35^Q"
^DD(790.1,.35,21,0)="^^9^9^2980828^"
^DD(790.1,.35,21,1,0)="This field is a set of codes that identify if the radiology exam was"
^DD(790.1,.35,21,2,0)="performed at the facility or elsewhere. This value is automatically"
^DD(790.1,.35,21,3,0)="entered by the Radiology/NM package when a radiology report is verified"
^DD(790.1,.35,21,4,0)="and the WH site parameter is set to accept data from the Radiology/NM"
^DD(790.1,.35,21,5,0)="package."
^DD(790.1,.35,21,6,0)=" "
^DD(790.1,.35,21,7,0)="This piece of information will be used for WH reporting requirements to"
^DD(790.1,.35,21,8,0)="determine how many radiology procedures were performed at the facility and"
^DD(790.1,.35,21,9,0)="elsewhere."
^DD(790.1,.35,"DT")="2980617"
^DD(790.1,1.01,0)="NOTES^790.11^^1;0"
^DD(790.1,1.01,21,0)="^^2^2^2990308^"
^DD(790.1,1.01,21,1,0)="This field allows you to enter word-processing text in which to elaborate"
^DD(790.1,1.01,21,2,0)="further on the results of this patients various tests."
^DD(790.1,1.01,"DT")="2990308"
^DD(790.1,2.17,0)="LAB ACCESSION#^F^^2;17^K:$L(X)>15!($L(X)<5) X"
^DD(790.1,2.17,1,0)="^.1"
^DD(790.1,2.17,1,1,0)="790.1^F"
^DD(790.1,2.17,1,1,1)="S ^WV(790.1,""F"",$E(X,1,30),DA)="""""
^DD(790.1,2.17,1,1,2)="K ^WV(790.1,""F"",$E(X,1,30),DA)"
^DD(790.1,2.17,1,1,3)="ALLOWS LOOK-UP BY LAB ACCESSION NUMBER"
^DD(790.1,2.17,1,1,"%D",0)="^^2^2^2990222^"
^DD(790.1,2.17,1,1,"%D",1,0)="This regular cross-reference allows the user to select a Women's Health"
^DD(790.1,2.17,1,1,"%D",2,0)="procedure entry by the Lab package accession number."
^DD(790.1,2.17,1,1,"DT")="2990222"
^DD(790.1,2.17,3)="Answer must be 5-15 characters in length."
^DD(790.1,2.17,21,0)="^^2^2^2990219^"
^DD(790.1,2.17,21,1,0)="This field contains the lab accession number from the LAB DATA file (#63)"
^DD(790.1,2.17,21,2,0)="for the patient, if this procedure entry is a lab test."
^DD(790.1,2.17,"DT")="2990222"
^DD(790.1,2.18,0)="LAB DATA FILE IEN^NJ9,0^^2;18^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(790.1,2.18,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(790.1,2.18,21,0)="^^2^2^2990219^"
^DD(790.1,2.18,21,1,0)="This field contains the internal entry number of the LAB DATA file (#63)"
^DD(790.1,2.18,21,2,0)="for the patient, if this procedure entry is a lab test."
^DD(790.1,2.18,"DT")="2990219"
^DD(790.1,2.19,0)="LAB INVERSE DATE/TIME^F^^2;19^K:$L(X)>14!($L(X)<7) X"
^DD(790.1,2.19,3)="Answer must be 7-14 characters in length."
^DD(790.1,2.19,21,0)="^^2^2^2990219^"
^DD(790.1,2.19,21,1,0)="This field contains the inverse date/time of a lab test from the LAB DATA"
^DD(790.1,2.19,21,2,0)="file (#63) for the patient, if this procedure entry is a lab test."
^DD(790.1,2.19,"DT")="2990223"
^DD(790.1,2.2,0)="LAB SUBSCRIPT^F^^2;20^K:$L(X)>2!($L(X)<2) X"
^DD(790.1,2.2,3)="Answer must be 2 characters in length."
^DD(790.1,2.2,21,0)="^^3^3^2990405^"
^DD(790.1,2.2,21,1,0)="This field contains a character string that distinguishes the type of lab"
^DD(790.1,2.2,21,2,0)="test performed. The letters ""CY"" will represent a cytology test and the"
^DD(790.1,2.2,21,3,0)="letters ""SP"" will represent a surgical pathology test."
^DD(790.1,2.2,"DT")="2990419"
^DD(790.1,3.01,0)="COMMENTS^F^^3;1^K:$L(X)>78!($L(X)<1) X"
^DD(790.1,3.01,3)="You may enter a one-line clinical history note (limited to 78 characters)."
^DD(790.1,3.01,21,0)="^^1^1^2980513"
^DD(790.1,3.01,21,1,0)="You may enter a one-line clinical history note (limited to 78 characters)."
^DD(790.1,3.01,"DT")="2980526"
^DD(790.1,9,0)="REPORTS^790.19^^9;0"
^DD(790.1,9,21,0)="^^2^2^2990310^^"
^DD(790.1,9,21,1,0)="This field is not editable through WH options.  The lab or radiology exams"
^DD(790.1,9,21,2,0)="related to this procedure are presented here."
^DD(790.1,9,"DT")="2990310"
^DD(790.1,"B","ACCESSION#",.01)=""
^DD(790.1,"B","COMMENTS",3.01)=""
^DD(790.1,"B","COMPLETE BY (DATE)",.13)=""
^DD(790.1,"B","DATE FIRST ENTERED",.19)=""
^DD(790.1,"B","DATE OF PROCEDURE",.12)=""
^DD(790.1,"B","DATE RESULTS RECEIVED",.32)=""
^DD(790.1,"B","ECC DYSPLASIA",.25)=""
^DD(790.1,"B","ECTOCERVICAL BIOPSY",.26)=""
^DD(790.1,"B","ENTERING USER",.18)=""
^DD(790.1,"B","FACILITY WHERE ACCESSIONED",.34)=""
^DD(790.1,"B","FINAL DX PAP/COLP",.33)=""
^DD(790.1,"B","HEALTH CARE FACILITY",.1)=""
^DD(790.1,"B","HPV",.08)=""
^DD(790.1,"B","IMPRESSION",.29)=""
^DD(790.1,"B","LAB ACCESSION#",2.17)=""
^DD(790.1,"B","LAB DATA FILE IEN",2.18)=""
^DD(790.1,"B","LAB INVERSE DATE/TIME",2.19)=""
^DD(790.1,"B","LAB SUBSCRIPT",2.2)=""
^DD(790.1,"B","LESION OUTSIDE CANAL",.22)=""
^DD(790.1,"B","MAM UNILATERAL: LEFT OR RIGHT",.09)=""
^DD(790.1,"B","MARGINS CLEAR",.27)=""
^DD(790.1,"B","MULTIFOCAL",.23)=""
^DD(790.1,"B","NOTES",1.01)=""
^DD(790.1,"B","NUMBER OF QUADRANTS",.24)=""
^DD(790.1,"B","PATIENT",.02)=""
^DD(790.1,"B","PROCEDURE",.04)=""
^DD(790.1,"B","PROCESSED Y/N?",.16)=""
^DD(790.1,"B","PROVIDER",.07)=""
^DD(790.1,"B","QUADRANT LOCATIONS",.245)=""
^DD(790.1,"B","RADIOLOGY CREDIT METHOD",.35)=""
^DD(790.1,"B","RADIOLOGY MAM CASE#",.15)=""
^DD(790.1,"B","REPORTS",9)=""
^DD(790.1,"B","RESULTS/DIAGNOSIS",.05)=""
^DD(790.1,"B","SATISFACTORY EXAM",.2)=""
^DD(790.1,"B","SCREENING PAP",.3)=""
^DD(790.1,"B","SEC RESULT/DIAGNOSIS",.06)=""
^DD(790.1,"B","STAGE AT FINAL DX",.31)=""
^DD(790.1,"B","STATUS",.14)=""
^DD(790.1,"B","STD EVALUATION",.28)=""
^DD(790.1,"B","T-ZONE SEEN ENTIRELY",.21)=""
^DD(790.1,"B","WARD/CLINIC/LOCATION",.11)=""
^DD(790.1,"GL",0,1,.01)=""
^DD(790.1,"GL",0,2,.02)=""
^DD(790.1,"GL",0,4,.04)=""
^DD(790.1,"GL",0,5,.05)=""
^DD(790.1,"GL",0,6,.06)=""
^DD(790.1,"GL",0,7,.07)=""
^DD(790.1,"GL",0,8,.08)=""
^DD(790.1,"GL",0,9,.09)=""
^DD(790.1,"GL",0,10,.1)=""
^DD(790.1,"GL",0,11,.11)=""
^DD(790.1,"GL",0,12,.12)=""
^DD(790.1,"GL",0,13,.13)=""
^DD(790.1,"GL",0,14,.14)=""
^DD(790.1,"GL",0,15,.15)=""
^DD(790.1,"GL",0,16,.16)=""
^DD(790.1,"GL",0,18,.18)=""
^DD(790.1,"GL",0,19,.19)=""
^DD(790.1,"GL",0,20,.2)=""
^DD(790.1,"GL",0,21,.21)=""
^DD(790.1,"GL",0,22,.22)=""
^DD(790.1,"GL",0,23,.23)=""
^DD(790.1,"GL",0,24,.24)=""
^DD(790.1,"GL",0,25,.25)=""
^DD(790.1,"GL",0,26,.26)=""
^DD(790.1,"GL",0,27,.27)=""
^DD(790.1,"GL",0,28,.28)=""
^DD(790.1,"GL",0,29,.29)=""
^DD(790.1,"GL",0,30,.3)=""
^DD(790.1,"GL",0,31,.31)=""
^DD(790.1,"GL",0,32,.32)=""
^DD(790.1,"GL",0,33,.33)=""
^DD(790.1,"GL",0,34,.34)=""
^DD(790.1,"GL",0,35,.35)=""
^DD(790.1,"GL",1,0,1.01)=""
^DD(790.1,"GL",2,16,.245)=""
^DD(790.1,"GL",2,17,2.17)=""
^DD(790.1,"GL",2,18,2.18)=""
^DD(790.1,"GL",2,19,2.19)=""
^DD(790.1,"GL",2,20,2.2)=""
^DD(790.1,"GL",3,1,3.01)=""
^DD(790.1,"GL",9,0,9)=""
^DD(790.1,"IX",.01)=""
^DD(790.1,"IX",.02)=""
^DD(790.1,"IX",.04)=""
^DD(790.1,"IX",.05)=""
^DD(790.1,"IX",.12)=""
^DD(790.1,"IX",.14)=""
^DD(790.1,"IX",.15)=""
^DD(790.1,"IX",.19)=""
^DD(790.1,"IX",.3)=""
^DD(790.1,"IX",2.17)=""
^DD(790.1,"RQ",.01)=""
^DD(790.1,"RQ",.02)=""
^DD(790.1,"RQ",.04)=""
^DD(790.1,"SB",790.11,1.01)=""
^DD(790.1,"SB",790.19,9)=""
^DD(790.11,0)="NOTES SUB-FIELD^^.01^1"
^DD(790.11,0,"NM","NOTES")=""
^DD(790.11,0,"UP")="790.1"
^DD(790.11,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.11,.01,0)="NOTES^W^^0;1^Q"
^DD(790.11,.01,21,0)="^^2^2^2990308^"
^DD(790.11,.01,21,1,0)="This field allows you to enter word-processing text in which to elaborate"
^DD(790.11,.01,21,2,0)="further on the results of this patients various tests."
^DD(790.11,.01,"DT")="2990308"
^DD(790.11,"B","NOTES",.01)=""
^DD(790.11,"GL",0,1,.01)=""
^DD(790.12,0)="COMPLETE ADDRESS SUB-FIELD^^.01^1"
^DD(790.12,0,"DT")="2991101"
^DD(790.12,0,"IX","B",790.12,.01)=""
^DD(790.12,0,"NM","COMPLETE ADDRESS")=""
^DD(790.12,0,"UP")="790"
^DD(790.12,.01,0)="COMPLETE ADDRESS^F^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(790.12,.01,1,0)="^.1"
^DD(790.12,.01,1,1,0)="790.12^B"
^DD(790.12,.01,1,1,1)="S ^WV(790,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(790.12,.01,1,1,2)="K ^WV(790,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(790.12,.01,3)="Answer must be 3-50 characters in length."
^DD(790.12,.01,21,0)="^^15^15^3000114^"
^DD(790.12,.01,21,1,0)="This field contains the patient's complete address (street, city, state"
^DD(790.12,.01,21,2,0)="and zip code). This information is computed by a call to the ADD^VADPT API"
^DD(790.12,.01,21,3,0)="and stuffed into this multiple field whenever a notification letter is"
^DD(790.12,.01,21,4,0)="printed."
^DD(790.12,.01,21,5,0)=" "
^DD(790.12,.01,21,6,0)="This address information is displayed in the text of the letter only when"
^DD(790.12,.01,21,7,0)="""|COMPLETE ADDRESS|"" (without the quotes) appears in the form letter"
^DD(790.12,.01,21,8,0)="template."
^DD(790.12,.01,21,9,0)=" "
^DD(790.12,.01,21,10,0)=" Example:"
^DD(790.12,.01,21,11,0)=" "
^DD(790.12,.01,21,12,0)=" STREET ADDRESS [LINE 1] <---if there is a value"
^DD(790.12,.01,21,13,0)=" STREET ADDRESS [LINE 2] <---if there is a value"
^DD(790.12,.01,21,14,0)=" STREET ADDRESS [LINE 3] <---if there is a value"
^DD(790.12,.01,21,15,0)=" CITY, STATE  ZIP CODE"
^DD(790.12,.01,"DT")="3000114"
^DD(790.12,"B","COMPLETE ADDRESS",.01)=""
^DD(790.12,"GL",0,1,.01)=""
^DD(790.12,"IX",.01)=""
^DD(790.13,0)="PRIMARY ELIGIBILITY CODE (RAD) SUB-FIELD^^.01^1"
^DD(790.13,0,"DT")="3000217"
^DD(790.13,0,"IX","B",790.13,.01)=""
^DD(790.13,0,"NM","PRIMARY ELIGIBILITY CODE (RAD)")=""
^DD(790.13,0,"UP")="790.02"
^DD(790.13,.01,0)="PRIMARY ELIGIBILITY CODE (RAD)^P8'X^DIC(8,^0;1^S:$D(X) DINUM=X Q"
^DD(790.13,.01,1,0)="^.1"
^DD(790.13,.01,1,1,0)="790.13^B"
^DD(790.13,.01,1,1,1)="S ^WV(790.02,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(790.13,.01,1,1,2)="K ^WV(790.02,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(790.13,.01,21,0)="^^5^5^3000328^"
^DD(790.13,.01,21,1,0)="Facilities that do not want to track radiology procedure data for all"
^DD(790.13,.01,21,2,0)="non-veterans may select the eligibility codes of those non-veteran"
^DD(790.13,.01,21,3,0)="patients they do wish to track."
^DD(790.13,.01,21,4,0)="If you want to track all non-veterans or none at all, then leave this"
^DD(790.13,.01,21,5,0)="answer blank."
^DD(790.13,.01,23,0)="^.001^1^1^3000328^^"
^DD(790.13,.01,23,1,0)="IA #548 grants permission to point to FILE 8."
^DD(790.13,.01,"DT")="3000218"
^DD(790.13,"B","PRIMARY ELIGIBILITY CODE (RAD)",.01)=""
^DD(790.13,"GL",0,1,.01)=""
^DD(790.13,"IX",.01)=""
^DD(790.14,0)="PRIMARY ELIGIBILITY CODE (LAB) SUB-FIELD^^.01^1"
^DD(790.14,0,"DT")="3000217"
^DD(790.14,0,"IX","B",790.14,.01)=""
^DD(790.14,0,"NM","PRIMARY ELIGIBILITY CODE (LAB)")=""
^DD(790.14,0,"UP")="790.02"
^DD(790.14,.01,0)="PRIMARY ELIGIBILITY CODE (LAB)^P8'X^DIC(8,^0;1^S:$D(X) DINUM=X Q"
^DD(790.14,.01,1,0)="^.1"
^DD(790.14,.01,1,1,0)="790.14^B"
^DD(790.14,.01,1,1,1)="S ^WV(790.02,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(790.14,.01,1,1,2)="K ^WV(790.02,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(790.14,.01,21,0)="^^5^5^3000328^"
^DD(790.14,.01,21,1,0)="Facilities that do not want to track lab test data for all non-veterans"
^DD(790.14,.01,21,2,0)="may select the eligibility codes of those non-veteran patients they do"
^DD(790.14,.01,21,3,0)="wish to track."
^DD(790.14,.01,21,4,0)="If you want to track all non-veterans or none at all, then leave this"
^DD(790.14,.01,21,5,0)="answer blank."
^DD(790.14,.01,23,0)="^.001^1^1^3000328^^"
^DD(790.14,.01,23,1,0)="IA #548 grants permission to point to FILE 8."
^DD(790.14,.01,"DT")="3000218"
^DD(790.14,"B","PRIMARY ELIGIBILITY CODE (LAB)",.01)=""
^DD(790.14,"GL",0,1,.01)=""
^DD(790.14,"IX",.01)=""
^DD(790.19,0)="REPORTS SUB-FIELD^^.01^1"
^DD(790.19,0,"DT")="2980529"
^DD(790.19,0,"NM","REPORTS")=""
^DD(790.19,0,"UP")="790.1"
^DD(790.19,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.19,.01,0)="REPORTS^W^^0;1^Q"
^DD(790.19,.01,3)="The lab or radiology report is uneditable and is extracted from the Lab or Radiology package each time it is viewed."
^DD(790.19,.01,21,0)="^^2^2^2990310^^"
^DD(790.19,.01,21,1,0)="This field is not editable through WH options.  The lab or radiology exams"
^DD(790.19,.01,21,2,0)="related to this procedure are presented here."
^DD(790.19,.01,"DT")="2990310"
^DD(790.19,"B","REPORTS",.01)=""
^DD(790.19,"GL",0,1,.01)=""
^DD(790.2,0)="FIELD^^2^13"
^DD(790.2,0,"DT")="3031024"
^DD(790.2,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(790.2,0,"IX","AC",790.2,.08)=""
^DD(790.2,0,"IX","B",790.2,.01)=""
^DD(790.2,0,"IX","C",790.2,.02)=""
^DD(790.2,0,"IX","D",790.2,.04)=""
^DD(790.2,0,"IX","E",790.2,.2)=""
^DD(790.2,0,"IX","F",790.2,.21)=""
^DD(790.2,0,"NM","WV PROCEDURE TYPE")=""
^DD(790.2,0,"PT",790.1,.04)=""
^DD(790.2,0,"PT",790.3,2)=""
^DD(790.2,0,"PT",790.31,.03)=""
^DD(790.2,0,"PT",790.31,.04)=""
^DD(790.2,0,"PT",790.31,.05)=""
^DD(790.2,0,"PT",790.31,.06)=""
^DD(790.2,0,"PT",790.31,.07)=""
^DD(790.2,0,"PT",790.31,.08)=""
^DD(790.2,0,"PT",790.31,.09)=""
^DD(790.2,0,"PT",790.31,.1)=""
^DD(790.2,0,"PT",790.31,.11)=""
^DD(790.2,0,"PT",790.31,.12)=""
^DD(790.2,0,"PT",790.31,.13)=""
^DD(790.2,0,"PT",790.31,.14)=""
^DD(790.2,0,"PT",790.31,.15)=""
^DD(790.2,0,"PT",790.31,.16)=""
^DD(790.2,0,"PT",790.31,.17)=""
^DD(790.2,0,"PT",790.31,.18)=""
^DD(790.2,0,"PT",790.31,.19)=""
^DD(790.2,0,"VR")="1.0"
^DD(790.2,0,"VRPK")="WV"
^DD(790.2,.01,0)="PROCEDURE TYPE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(790.2,.01,1,0)="^.1"
^DD(790.2,.01,1,1,0)="790.2^B"
^DD(790.2,.01,1,1,1)="S ^WV(790.2,""B"",$E(X,1,30),DA)="""""
^DD(790.2,.01,1,1,2)="K ^WV(790.2,""B"",$E(X,1,30),DA)"
^DD(790.2,.01,3)="Answer must be 3-30 characters in length."
^DD(790.2,.01,21,0)="^^4^4^2980706^"
^DD(790.2,.01,21,1,0)="This field contains the name of the procedure type.  It may be a test"
^DD(790.2,.01,21,2,0)="(e.g., mammography, pregnancy test), diagnostic procedure (such as an"
^DD(790.2,.01,21,3,0)="open biopsy, fine needle aspiration), therapeutic procedure (e.g.,"
^DD(790.2,.01,21,4,0)="cryotherapy, lumpectomy) or a consult to a specific treating specialty."
^DD(790.2,.01,"DT")="2960312"
^DD(790.2,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(790.2,.02,1,0)="^.1"
^DD(790.2,.02,1,1,0)="790.2^C"
^DD(790.2,.02,1,1,1)="S ^WV(790.2,""C"",$E(X,1,30),DA)="""""
^DD(790.2,.02,1,1,2)="K ^WV(790.2,""C"",$E(X,1,30),DA)"
^DD(790.2,.02,1,1,"DT")="2940614"
^DD(790.2,.02,3)="Answer must be 1-8 characters in length."
^DD(790.2,.02,21,0)="^^2^2^2980706^"
^DD(790.2,.02,21,1,0)="This field contains an abbreviation for a procedure type.  The data is"
^DD(790.2,.02,21,2,0)="used as a display identifier."
^DD(790.2,.02,"DT")="2960312"
^DD(790.2,.03,0)="ASK COLPOSCOPY-TYPE RESULTS^S^0:NO;1:YES;^0;3^Q"
^DD(790.2,.03,3)="This field indicates that colposcopy-type results (page 2) should be available when editing this procedure."
^DD(790.2,.03,21,0)="^^9^9^2980921^"
^DD(790.2,.03,21,1,0)="This field turns on and off the display of the clinical findings/tissue"
^DD(790.2,.03,21,2,0)="pathology screen that is used to document clinical exam and pathology"
^DD(790.2,.03,21,3,0)="information related to specific cervical procedures such as colposcopy,"
^DD(790.2,.03,21,4,0)="cone biopsy, laser cone and LEEP's. The value of this field should be 1"
^DD(790.2,.03,21,5,0)="(Yes) when associated with the above procedure types and new procedures"
^DD(790.2,.03,21,6,0)="that have similar documentation requirements. The clinical findings/tissue"
^DD(790.2,.03,21,7,0)="pathology screen appears in the Add a NEW Procedure and Edit a Procedure"
^DD(790.2,.03,21,8,0)="options as page 2.  Information such as related PAP accession #, quadrant"
^DD(790.2,.03,21,9,0)="involvement, impression, biopsy and staging data may be documented."
^DD(790.2,.03,"DT")="2960312"
^DD(790.2,.04,0)="ACCESSION PREFIX^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(790.2,.04,1,0)="^.1"
^DD(790.2,.04,1,1,0)="790.2^D"
^DD(790.2,.04,1,1,1)="S ^WV(790.2,""D"",$E(X,1,30),DA)="""""
^DD(790.2,.04,1,1,2)="K ^WV(790.2,""D"",$E(X,1,30),DA)"
^DD(790.2,.04,1,1,"DT")="2950216"
^DD(790.2,.04,3)="Answer must be 1-10 characters in length."
^DD(790.2,.04,21,0)="^^4^4^2980708^^"
^DD(790.2,.04,21,1,0)="This field contains an abbreviation or synonym that is used to identify"
^DD(790.2,.04,21,2,0)="the procedure (e.g., CBE = clinical breast exam, CY = Cryotherapy). The"
^DD(790.2,.04,21,3,0)="data in this field may be concatenated with an accession # to facilitate"
^DD(790.2,.04,21,4,0)="selection of patient procedures within the software."
^DD(790.2,.04,"DT")="2960312"
^DD(790.2,.05,0)="PACKAGE^S^R:RADIOLOGY/NM;^0;5^Q"
^DD(790.2,.05,21,0)="^^3^3^2990803^"
^DD(790.2,.05,21,1,0)="This field contains a letter code that identifies the VistA software"
^DD(790.2,.05,21,2,0)="package that performs this procedure and stores the results of the"
^DD(790.2,.05,21,3,0)="procedure."
^DD(790.2,.05,"DT")="2990803"
^DD(790.2,.06,0)="LAST ACCESSION#^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(790.2,.06,3)="Answer must be 1-15 characters in length."
^DD(790.2,.06,21,0)="^^6^6^2980921^"
^DD(790.2,.06,21,1,0)="This field stores the most recent accession number associated with a"
^DD(790.2,.06,21,2,0)="specific procedure type.  The accession number is a combination of the"
^DD(790.2,.06,21,3,0)="year and an incremental number generated by the software. There may be"
^DD(790.2,.06,21,4,0)="multiple occurrences of the same accession number within the WV Procedure"
^DD(790.2,.06,21,5,0)="Type file, but concatenation of the accession prefix with the accession #"
^DD(790.2,.06,21,6,0)="makes this value unique within the software."
^DD(790.2,.06,"DT")="2940705"
^DD(790.2,.08,0)="CPT CODE^P81'^ICPT(^0;8^Q"
^DD(790.2,.08,1,0)="^.1"
^DD(790.2,.08,1,1,0)="790.2^AC"
^DD(790.2,.08,1,1,1)="S ^WV(790.2,""AC"",$E(X,1,30),DA)="""""
^DD(790.2,.08,1,1,2)="K ^WV(790.2,""AC"",$E(X,1,30),DA)"
^DD(790.2,.08,1,1,"%D",0)="^^2^2^2990803^"
^DD(790.2,.08,1,1,"%D",1,0)="This cross-reference is used to match a WH procedure type to a procedure"
^DD(790.2,.08,1,1,"%D",2,0)="done in another VistA package (e.g., Radiology/NM)."
^DD(790.2,.08,1,1,"DT")="2990803"
^DD(790.2,.08,21,0)="^^3^3^2990804^"
^DD(790.2,.08,21,1,0)="This field contains the CPT code that corresponds to this procedure type."
^DD(790.2,.08,21,2,0)="In Women's Health Version 1.0, the CPT code field is only used to generate"
^DD(790.2,.08,21,3,0)="local FileMan reports and to identify Radiology/NM procedures."
^DD(790.2,.08,"DT")="2990803"
^DD(790.2,.09,0)="ICD CODE^P80.1'^ICD0(^0;9^Q"
^DD(790.2,.09,21,0)="^^3^3^2980828^"
^DD(790.2,.09,21,1,0)="This field contains the ICD code that corresponds to this procedure type."
^DD(790.2,.09,21,2,0)="In Women's Health Version 1.0, the ICD code field is only used to generate"
^DD(790.2,.09,21,3,0)="local FileMan reports."
^DD(790.2,.09,"DT")="2940620"
^DD(790.2,.11,0)="ASK MARGINS CLEAR? QUESTION^S^1:YES;0:NO;^0;11^Q"
^DD(790.2,.11,3)="Should the question ""Margins Clear?"" be asked on page 2 of treatment data screen."
^DD(790.2,.11,21,0)="^^5^5^2980921^"
^DD(790.2,.11,21,1,0)="This field permits or denies the user from entering information at the"
^DD(790.2,.11,21,2,0)="Margins Clear prompt on the clinical findings/tissue pathology screen"
^DD(790.2,.11,21,3,0)="(page 2) of ADD a NEW Procedure and Edit a Procedure options.  This field"
^DD(790.2,.11,21,4,0)="does not affect the display of the prompt just the navigation of the"
^DD(790.2,.11,21,5,0)="cursor on the screen."
^DD(790.2,.11,"DT")="2941016"
^DD(790.2,.2,0)="SYNONYM1^F^^0;20^K:$L(X)>30!($L(X)<1) X"
^DD(790.2,.2,1,0)="^.1"
^DD(790.2,.2,1,1,0)="790.2^E"
^DD(790.2,.2,1,1,1)="S ^WV(790.2,""E"",$E(X,1,30),DA)="""""
^DD(790.2,.2,1,1,2)="K ^WV(790.2,""E"",$E(X,1,30),DA)"
^DD(790.2,.2,1,1,"DT")="2960210"
^DD(790.2,.2,3)="Enter a synonym for this procedure type."
^DD(790.2,.2,21,0)="^^2^2^2980709^"
^DD(790.2,.2,21,1,0)="This field contains an alternative name for this procedure type."
^DD(790.2,.2,21,2,0)="."
^DD(790.2,.2,"DT")="2960210"
^DD(790.2,.21,0)="SYNONYM2^F^^0;21^K:$L(X)>30!($L(X)<1) X"
^DD(790.2,.21,1,0)="^.1"
^DD(790.2,.21,1,1,0)="790.2^F"
^DD(790.2,.21,1,1,1)="S ^WV(790.2,""F"",$E(X,1,30),DA)="""""
^DD(790.2,.21,1,1,2)="K ^WV(790.2,""F"",$E(X,1,30),DA)"
^DD(790.2,.21,1,1,"DT")="2960210"
^DD(790.2,.21,3)="Enter a synomym for this procedure type."
^DD(790.2,.21,21,0)="^^1^1^2980921^"
^DD(790.2,.21,21,1,0)="This field contains an alternative name for this procedure type."
^DD(790.2,.21,"DT")="2960210"
^DD(790.2,1,0)="MORPHOLOGY SNOMED CODE^790.21P^^1;0"
^DD(790.2,1,21,0)="^.001^2^2^3031024^^^"
^DD(790.2,1,21,1,0)="This multiple is used to identify SNOMED codes associated with a pap "
^DD(790.2,1,21,2,0)="smear test."
^DD(790.2,2,0)="TOPOGRAPHY SNOMED CODE^790.22P^^2;0"
^DD(790.2,2,21,0)="^.001^2^2^3030821^^^"
^DD(790.2,2,21,1,0)="This multiple is used to identify SNOMED codes associated with a pap "
^DD(790.2,2,21,2,0)="smear test."
^DD(790.2,"B","ABBREVIATION",.02)=""
^DD(790.2,"B","ACCESSION PREFIX",.04)=""
^DD(790.2,"B","ASK COLPOSCOPY-TYPE RESULTS",.03)=""
^DD(790.2,"B","ASK MARGINS CLEAR? QUESTION",.11)=""
^DD(790.2,"B","CPT CODE",.08)=""
^DD(790.2,"B","ICD CODE",.09)=""
^DD(790.2,"B","LAST ACCESSION#",.06)=""
^DD(790.2,"B","MORPHOLOGY SNOMED CODE",1)=""
^DD(790.2,"B","PACKAGE",.05)=""
^DD(790.2,"B","PROCEDURE TYPE",.01)=""
^DD(790.2,"B","SYNONYM1",.2)=""
^DD(790.2,"B","SYNONYM2",.21)=""
^DD(790.2,"B","TOPOGRAPHY SNOMED CODE",2)=""
^DD(790.2,"GL",0,1,.01)=""
^DD(790.2,"GL",0,2,.02)=""
^DD(790.2,"GL",0,3,.03)=""
^DD(790.2,"GL",0,4,.04)=""
^DD(790.2,"GL",0,5,.05)=""
^DD(790.2,"GL",0,6,.06)=""
^DD(790.2,"GL",0,8,.08)=""
^DD(790.2,"GL",0,9,.09)=""
^DD(790.2,"GL",0,11,.11)=""
^DD(790.2,"GL",0,20,.2)=""
^DD(790.2,"GL",0,21,.21)=""
^DD(790.2,"GL",1,0,1)=""
^DD(790.2,"GL",2,0,2)=""
^DD(790.2,"IX",.01)=""
^DD(790.2,"IX",.02)=""
^DD(790.2,"IX",.04)=""
^DD(790.2,"IX",.08)=""
^DD(790.2,"IX",.2)=""
^DD(790.2,"IX",.21)=""
^DD(790.2,"RQ",.01)=""
^DD(790.2,"SB",790.21,1)=""
^DD(790.2,"SB",790.22,2)=""
^DD(790.21,0)="MORPHOLOGY SNOMED CODE SUB-FIELD^^1^2"
^DD(790.21,0,"DT")="3031024"
^DD(790.21,0,"IX","B",790.21,.01)=""
^DD(790.21,0,"NM","MORPHOLOGY SNOMED CODE")=""
^DD(790.21,0,"UP")="790.2"
^DD(790.21,.01,0)="MORPHOLOGY SNOMED CODE^MP61.1'^LAB(61.1,^0;1^Q"
^DD(790.21,.01,1,0)="^.1"
^DD(790.21,.01,1,1,0)="790.21^B"
^DD(790.21,.01,1,1,1)="S ^WV(790.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(790.21,.01,1,1,2)="K ^WV(790.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(790.21,.01,21,0)="^.001^3^3^3030821^^^"
^DD(790.21,.01,21,1,0)="This field points to the MORPHOLOGY FIELD file (#61.1) of the Lab package."
^DD(790.21,.01,21,2,0)="Use this field to identify all SNOMED codes used in the Morphology field"
^DD(790.21,.01,21,3,0)="of a lab test to indicate the lab test is a pap smear."
^DD(790.21,.01,23,0)="^^1^1^3030821^"
^DD(790.21,.01,23,1,0)="Permission to point to FILE 61.1 is granted in IA #10130."
^DD(790.21,.01,"DT")="3030127"
^DD(790.21,1,0)="DIAGNOSIS^S^0:No Evidence of Malignancy;1:Abnormal;2:Unsatisfactory;^0;2^Q"
^DD(790.21,1,21,0)="^.001^1^1^3031024^^"
^DD(790.21,1,21,1,0)="This field is used to categorize the diagnosis."
^DD(790.21,1,"DT")="3031024"
^DD(790.21,"B","DIAGNOSIS",1)=""
^DD(790.21,"B","MORPHOLOGY SNOMED CODE",.01)=""
^DD(790.21,"GL",0,1,.01)=""
^DD(790.21,"GL",0,2,1)=""
^DD(790.21,"IX",.01)=""
^DD(790.22,0)="TOPOGRAPHY SNOMED CODE SUB-FIELD^^.01^1"
^DD(790.22,0,"DT")="3030127"
^DD(790.22,0,"IX","B",790.22,.01)=""
^DD(790.22,0,"NM","TOPOGRAPHY SNOMED CODE")=""
^DD(790.22,0,"UP")="790.2"
^DD(790.22,.01,0)="TOPOGRAPHY SNOMED CODE^MP61'^LAB(61,^0;1^Q"
^DD(790.22,.01,1,0)="^.1"
^DD(790.22,.01,1,1,0)="790.22^B"
^DD(790.22,.01,1,1,1)="S ^WV(790.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(790.22,.01,1,1,2)="K ^WV(790.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(790.22,.01,21,0)="^.001^3^3^3030821^^^"
^DD(790.22,.01,21,1,0)="This field points to the TOPOGRAPHY FIELD file (#61) of the Lab package."
^DD(790.22,.01,21,2,0)="Use this field to identify all SNOMED codes used in the Topography field"
^DD(790.22,.01,21,3,0)="of a lab test to indicate the lab test is a pap smear."
^DD(790.22,.01,23,0)="^^1^1^3030821^"
^DD(790.22,.01,23,1,0)="Permission to point to FILE 61.1 is granted in IA #10055."
^DD(790.22,.01,"DT")="3030127"
^DD(790.22,"B","TOPOGRAPHY SNOMED CODE",.01)=""
^DD(790.22,"GL",0,1,.01)=""
^DD(790.22,"IX",.01)=""
^DD(790.3,0)="FIELD^^4^5"
^DD(790.3,0,"DDA")="N"
^DD(790.3,0,"DT")="2980616"
^DD(790.3,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.3,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790.2,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.3,0,"IX","B",790.3,.01)=""
^DD(790.3,0,"IX","C",790.3,1)=""
^DD(790.3,0,"NM","WV REFUSALS")=""
^DD(790.3,0,"VR")="1.0"
^DD(790.3,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.3,.01,0)="REFUSAL DATE^RDX^^0;1^S %DT=""EX"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(790.3,.01,1,0)="^.1"
^DD(790.3,.01,1,1,0)="790.3^B"
^DD(790.3,.01,1,1,1)="S ^WV(790.3,""B"",$E(X,1,30),DA)="""""
^DD(790.3,.01,1,1,2)="K ^WV(790.3,""B"",$E(X,1,30),DA)"
^DD(790.3,.01,3)=""
^DD(790.3,.01,21,0)="^^2^2^2980701^"
^DD(790.3,.01,21,1,0)="This field contains the date the patient refused the procedure, test or"
^DD(790.3,.01,21,2,0)="examination."
^DD(790.3,.01,"DT")="2980723"
^DD(790.3,1,0)="PATIENT^RP790'^WV(790,^0;2^Q"
^DD(790.3,1,1,0)="^.1"
^DD(790.3,1,1,1,0)="790.3^C"
^DD(790.3,1,1,1,1)="S ^WV(790.3,""C"",$E(X,1,30),DA)="""""
^DD(790.3,1,1,1,2)="K ^WV(790.3,""C"",$E(X,1,30),DA)"
^DD(790.3,1,1,1,"DT")="2980626"
^DD(790.3,1,21,0)="^^2^2^2980701^"
^DD(790.3,1,21,1,0)="This field identifies the patient who refused health care (e.g.,"
^DD(790.3,1,21,2,0)="procedure, exam, tests).  Pointer to the WV Patient (#790) file."
^DD(790.3,1,"DT")="2980626"
^DD(790.3,2,0)="PROCEDURE^RP790.2'^WV(790.2,^0;3^Q"
^DD(790.3,2,21,0)="^^2^2^2980701^"
^DD(790.3,2,21,1,0)="This field identifies the procedure or type of health care the patient"
^DD(790.3,2,21,2,0)="refused.  Pointer to the WV Procedure Type (#790.2) file."
^DD(790.3,2,"DT")="2980610"
^DD(790.3,3,0)="REASON^S^1:TREATED ELSEWHERE;2:NO REASON;3:OTHER;^0;4^Q"
^DD(790.3,3,3)=""
^DD(790.3,3,21,0)="^^3^3^2980921^"
^DD(790.3,3,21,1,0)="This field indicates a general reason for why the patient refused"
^DD(790.3,3,21,2,0)="treatment, i.e., (1) treatment was provided elsewhere, (2) no reason was"
^DD(790.3,3,21,3,0)="given by the patient, or (3) an other reason was provided by the patient."
^DD(790.3,3,"DT")="2980616"
^DD(790.3,4,0)="COMMENTS^F^^1;1^K:$L(X)>75!($L(X)<3) X"
^DD(790.3,4,3)="Answer must be 3-75 characters in length."
^DD(790.3,4,21,0)="^^1^1^2980701^"
^DD(790.3,4,21,1,0)="This field contains comments related to this refusal.  "
^DD(790.3,4,"DT")="2980616"
^DD(790.3,"B","COMMENTS",4)=""
^DD(790.3,"B","PATIENT",1)=""
^DD(790.3,"B","PROCEDURE",2)=""
^DD(790.3,"B","REASON",3)=""
^DD(790.3,"B","REFUSAL DATE",.01)=""
^DD(790.3,"GL",0,1,.01)=""
^DD(790.3,"GL",0,2,1)=""
^DD(790.3,"GL",0,3,2)=""
^DD(790.3,"GL",0,4,3)=""
^DD(790.3,"GL",1,1,4)=""
^DD(790.3,"IX",.01)=""
^DD(790.3,"IX",1)=""
^DD(790.3,"RQ",.01)=""
^DD(790.3,"RQ",1)=""
^DD(790.3,"RQ",2)=""
^DD(790.31,0)="FIELD^^.31^25"
^DD(790.31,0,"DDA")="N"
^DD(790.31,0,"DT")="2980507"
^DD(790.31,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(790.31,0,"IX","B",790.31,.01)=""
^DD(790.31,0,"IX","C",790.31,.02)=""
^DD(790.31,0,"IX","P10",790.31,.1)=""
^DD(790.31,0,"IX","P11",790.31,.11)=""
^DD(790.31,0,"IX","P12",790.31,.12)=""
^DD(790.31,0,"IX","P13",790.31,.13)=""
^DD(790.31,0,"IX","P14",790.31,.14)=""
^DD(790.31,0,"IX","P15",790.31,.15)=""
^DD(790.31,0,"IX","P16",790.31,.16)=""
^DD(790.31,0,"IX","P17",790.31,.17)=""
^DD(790.31,0,"IX","P18",790.31,.18)=""
^DD(790.31,0,"IX","P19",790.31,.19)=""
^DD(790.31,0,"IX","P3",790.31,.03)=""
^DD(790.31,0,"IX","P4",790.31,.04)=""
^DD(790.31,0,"IX","P5",790.31,.05)=""
^DD(790.31,0,"IX","P6",790.31,.06)=""
^DD(790.31,0,"IX","P7",790.31,.07)=""
^DD(790.31,0,"IX","P8",790.31,.08)=""
^DD(790.31,0,"IX","P9",790.31,.09)=""
^DD(790.31,0,"IX","S",790.31,.3)=""
^DD(790.31,0,"IX","U",790.31,.01)=""
^DD(790.31,0,"NM","WV RESULTS/DIAGNOSIS")=""
^DD(790.31,0,"PT",790.1,.05)=""
^DD(790.31,0,"PT",790.1,.06)=""
^DD(790.31,0,"PT",790.1,.26)=""
^DD(790.31,0,"PT",790.1,.28)=""
^DD(790.31,0,"PT",790.1,.29)=""
^DD(790.31,0,"PT",790.1,.33)=""
^DD(790.31,0,"PT",790.32,.01)=""
^DD(790.31,0,"VR")="1.0"
^DD(790.31,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.31,.01,0)="RESULTS/DIAGNOSIS^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(790.31,.01,1,0)="^.1"
^DD(790.31,.01,1,1,0)="790.31^B"
^DD(790.31,.01,1,1,1)="S ^WV(790.31,""B"",$E(X,1,30),DA)="""""
^DD(790.31,.01,1,1,2)="K ^WV(790.31,""B"",$E(X,1,30),DA)"
^DD(790.31,.01,1,2,0)="790.31^U^MUMPS"
^DD(790.31,.01,1,2,1)="D UPXREF^WVUTL5(X,""^WV(790.31,"")"
^DD(790.31,.01,1,2,2)="D KUPXREF^WVUTL5(X,""^WV(790.31,"")"
^DD(790.31,.01,1,2,"%D",0)="^^1^1^2960308^"
^DD(790.31,.01,1,2,"%D",1,0)="Sets uppercase xref."
^DD(790.31,.01,1,2,"DT")="2960308"
^DD(790.31,.01,3)="Answer must be 3-30 characters in length."
^DD(790.31,.01,21,0)="^^5^5^2980909^"
^DD(790.31,.01,21,1,0)="This field contains terms that are used to document results or diagnoses"
^DD(790.31,.01,21,2,0)="associated with specific procedure types.  The diagnosis or results for"
^DD(790.31,.01,21,3,0)="PAP smears are based on the Bethesda Classification system; those for"
^DD(790.31,.01,21,4,0)="mammograms use the American College of Radiology classification.  Entries"
^DD(790.31,.01,21,5,0)="should not be locally edited."
^DD(790.31,.01,"DT")="2960312"
^DD(790.31,.02,0)="PRIORITY^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(790.31,.02,1,0)="^.1"
^DD(790.31,.02,1,1,0)="790.31^C"
^DD(790.31,.02,1,1,1)="S ^WV(790.31,""C"",$E(X,1,30),DA)="""""
^DD(790.31,.02,1,1,2)="K ^WV(790.31,""C"",$E(X,1,30),DA)"
^DD(790.31,.02,1,1,"DT")="2941007"
^DD(790.31,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(790.31,.02,21,0)="^^3^3^2980909^"
^DD(790.31,.02,21,1,0)="This field stores an arbitrary number used to prioritize the results or"
^DD(790.31,.02,21,2,0)="diagnosis term. The range is from 1-90 with 90 being defined as normal or"
^DD(790.31,.02,21,3,0)="no results."
^DD(790.31,.02,"DT")="2941013"
^DD(790.31,.03,0)="ASSOCIATED PROCEDURE-3^P790.2'^WV(790.2,^0;3^Q"
^DD(790.31,.03,1,0)="^.1"
^DD(790.31,.03,1,1,0)="790.31^P3^MUMPS"
^DD(790.31,.03,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.03,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.03,1,1,"DT")="2941015"
^DD(790.31,.03,3)="Select the procedure name with which this procedure result will be associated."
^DD(790.31,.03,21,0)="^^3^3^2980909^"
^DD(790.31,.03,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.03,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.03,21,3,0)="biopsy, mammogram) with a specific result/diagnosis."
^DD(790.31,.03,"DT")="2980507"
^DD(790.31,.04,0)="ASSOCIATED PROCEDURE-4^P790.2'^WV(790.2,^0;4^Q"
^DD(790.31,.04,1,0)="^.1"
^DD(790.31,.04,1,1,0)="790.31^P4^MUMPS"
^DD(790.31,.04,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.04,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.04,1,1,"DT")="2941015"
^DD(790.31,.04,21,0)="^^3^3^2980909^"
^DD(790.31,.04,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.04,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.04,21,3,0)="biopsy, mammogram) with a specific result/diagnosis."
^DD(790.31,.04,"DT")="2980507"
^DD(790.31,.05,0)="ASSOCIATED PROCEDURE-5^P790.2'^WV(790.2,^0;5^Q"
^DD(790.31,.05,1,0)="^.1"
^DD(790.31,.05,1,1,0)="790.31^P5^MUMPS"
^DD(790.31,.05,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.05,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.05,1,1,"DT")="2941015"
^DD(790.31,.05,21,0)="^^3^3^2980909^"
^DD(790.31,.05,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.05,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.05,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.05,"DT")="2980507"
^DD(790.31,.06,0)="ASSOCIATED PROCEDURE-6^P790.2'^WV(790.2,^0;6^Q"
^DD(790.31,.06,1,0)="^.1"
^DD(790.31,.06,1,1,0)="790.31^P6^MUMPS"
^DD(790.31,.06,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.06,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.06,1,1,"DT")="2941015"
^DD(790.31,.06,21,0)="^^3^3^2980909^"
^DD(790.31,.06,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.06,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.06,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.06,"DT")="2980507"
^DD(790.31,.07,0)="ASSOCIATED PROCEDURE-7^P790.2'^WV(790.2,^0;7^Q"
^DD(790.31,.07,1,0)="^.1"
^DD(790.31,.07,1,1,0)="790.31^P7^MUMPS"
^DD(790.31,.07,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.07,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.07,1,1,"DT")="2941015"
^DD(790.31,.07,21,0)="^^3^3^2980909^^"
^DD(790.31,.07,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.07,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.07,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.07,"DT")="2980507"
^DD(790.31,.08,0)="ASSOCIATED PROCEDURE-8^P790.2'^WV(790.2,^0;8^Q"
^DD(790.31,.08,1,0)="^.1"
^DD(790.31,.08,1,1,0)="790.31^P8^MUMPS"
^DD(790.31,.08,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.08,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.08,1,1,"DT")="2941015"
^DD(790.31,.08,21,0)="^^3^3^2980909^^"
^DD(790.31,.08,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.08,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.08,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.08,"DT")="2980507"
^DD(790.31,.09,0)="ASSOCIATED PROCEDURE-9^P790.2'^WV(790.2,^0;9^Q"
^DD(790.31,.09,1,0)="^.1"
^DD(790.31,.09,1,1,0)="790.31^P9^MUMPS"
^DD(790.31,.09,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.09,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.09,1,1,"DT")="2941015"
^DD(790.31,.09,21,0)="^^3^3^2980909^^"
^DD(790.31,.09,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.09,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.09,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.09,"DT")="2980507"
^DD(790.31,.1,0)="ASSOCIATED PROCEDURE-10^P790.2'^WV(790.2,^0;10^Q"
^DD(790.31,.1,1,0)="^.1"
^DD(790.31,.1,1,1,0)="790.31^P10^MUMPS"
^DD(790.31,.1,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.1,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.1,1,1,"DT")="2941016"
^DD(790.31,.1,21,0)="^^3^3^2980909^"
^DD(790.31,.1,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.1,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.1,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.1,"DT")="2980507"
^DD(790.31,.11,0)="ASSOCIATED PROCEDURE-11^P790.2'^WV(790.2,^0;11^Q"
^DD(790.31,.11,1,0)="^.1"
^DD(790.31,.11,1,1,0)="790.31^P11^MUMPS"
^DD(790.31,.11,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.11,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.11,1,1,"DT")="2941016"
^DD(790.31,.11,21,0)="^^3^3^2980909^"
^DD(790.31,.11,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.11,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.11,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.11,"DT")="2980507"
^DD(790.31,.12,0)="ASSOCIATED PROCEDURE-12^P790.2'^WV(790.2,^0;12^Q"
^DD(790.31,.12,1,0)="^.1"
^DD(790.31,.12,1,1,0)="790.31^P12^MUMPS"
^DD(790.31,.12,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.12,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.12,1,1,"DT")="2941016"
^DD(790.31,.12,21,0)="^^3^3^2980909^"
^DD(790.31,.12,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.12,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.12,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.12,"DT")="2980507"
^DD(790.31,.13,0)="ASSOCIATED PROCEDURE-13^P790.2'^WV(790.2,^0;13^Q"
^DD(790.31,.13,1,0)="^.1"
^DD(790.31,.13,1,1,0)="790.31^P13^MUMPS"
^DD(790.31,.13,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.13,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.13,1,1,"DT")="2960316"
^DD(790.31,.13,21,0)="^^3^3^2980909^"
^DD(790.31,.13,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.13,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.13,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.13,"DT")="2980507"
^DD(790.31,.14,0)="ASSOCIATED PROCEDURE-14^P790.2'^WV(790.2,^0;14^Q"
^DD(790.31,.14,1,0)="^.1"
^DD(790.31,.14,1,1,0)="790.31^P14^MUMPS"
^DD(790.31,.14,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.14,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.14,1,1,"DT")="2941016"
^DD(790.31,.14,21,0)="^^3^3^2980909^"
^DD(790.31,.14,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.14,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.14,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.14,"DT")="2980507"
^DD(790.31,.15,0)="ASSOCIATED PROCEDURE-15^P790.2'^WV(790.2,^0;15^Q"
^DD(790.31,.15,1,0)="^.1"
^DD(790.31,.15,1,1,0)="790.31^P15^MUMPS"
^DD(790.31,.15,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.15,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.15,1,1,"DT")="2941016"
^DD(790.31,.15,21,0)="^^3^3^2980909^"
^DD(790.31,.15,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.15,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.15,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.15,"DT")="2980507"
^DD(790.31,.16,0)="ASSOCIATED PROCEDURE-16^P790.2'^WV(790.2,^0;16^Q"
^DD(790.31,.16,1,0)="^.1"
^DD(790.31,.16,1,1,0)="790.31^P16^MUMPS"
^DD(790.31,.16,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.16,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.16,1,1,"DT")="2941016"
^DD(790.31,.16,21,0)="^^3^3^2980909^"
^DD(790.31,.16,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.16,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.16,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.16,"DT")="2980507"
^DD(790.31,.17,0)="ASSOCIATED PROCEDURE-17^P790.2'^WV(790.2,^0;17^Q"
^DD(790.31,.17,1,0)="^.1"
^DD(790.31,.17,1,1,0)="790.31^P17^MUMPS"
^DD(790.31,.17,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.17,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.17,1,1,"DT")="2941016"
^DD(790.31,.17,21,0)="^^3^3^2980909^"
^DD(790.31,.17,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.17,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.17,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.17,"DT")="2980507"
^DD(790.31,.18,0)="ASSOCIATED PROCEDURE-18^P790.2'^WV(790.2,^0;18^Q"
^DD(790.31,.18,1,0)="^.1"
^DD(790.31,.18,1,1,0)="790.31^P18^MUMPS"
^DD(790.31,.18,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.18,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.18,1,1,"DT")="2941016"
^DD(790.31,.18,21,0)="^^3^3^2980909^"
^DD(790.31,.18,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.18,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.18,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.18,"DT")="2980507"
^DD(790.31,.19,0)="ASSOCIATED PROCEDURE-19^P790.2'^WV(790.2,^0;19^Q"
^DD(790.31,.19,1,0)="^.1"
^DD(790.31,.19,1,1,0)="790.31^P19^MUMPS"
^DD(790.31,.19,1,1,1)="S ^WV(790.31,""P"",$E(X,1,30),DA)="""""
^DD(790.31,.19,1,1,2)="K ^WV(790.31,""P"",$E(X,1,30),DA)"
^DD(790.31,.19,1,1,"DT")="2941016"
^DD(790.31,.19,21,0)="^^3^3^2980909^"
^DD(790.31,.19,21,1,0)="This field is used to associate the name of a single procedure type stored"
^DD(790.31,.19,21,2,0)="in the WV Procedure Type (#790.2) file (e.g., PAP smear, CBE, endometrial"
^DD(790.31,.19,21,3,0)="biopsy, mammogram) with a specific result/diagnosis. "
^DD(790.31,.19,"DT")="2980507"
^DD(790.31,.2,0)="ASSOC WITH ALL PROCEDURES^S^1:YES;0:NO;^0;20^Q"
^DD(790.31,.2,3)="Enter ""YES"" if this Result/Diagnosis should be associated with ALL Procedures."
^DD(790.31,.2,21,0)="^^2^2^2980909^"
^DD(790.31,.2,21,1,0)="This field indicates, by a set of codes (1 = YES; 0 = NO), that the"
^DD(790.31,.2,21,2,0)="results/diagnosis should be associated with ALL Procedures."
^DD(790.31,.2,"DT")="2941006"
^DD(790.31,.21,0)="NORMAL/ABNORMAL^RS^0:NORMAL;1:ABNORMAL;2:NO RESULT;^0;21^Q"
^DD(790.31,.21,3)="'Normal' procedure results will not appear in 'Abnormal Only' reports."
^DD(790.31,.21,21,0)="^^3^3^2980917^"
^DD(790.31,.21,21,1,0)="This field is used to categorize the results/diagnosis of the procedure"
^DD(790.31,.21,21,2,0)="using a set of codes (0 = Normal, 1 = Abnormal, 2 = No Results).  This"
^DD(790.31,.21,21,3,0)="data is used in producing the Procedure Statistics report."
^DD(790.31,.21,"DT")="2950109"
^DD(790.31,.22,0)="INCLUDES HPV^S^1:YES;0:NO;^0;22^Q"
^DD(790.31,.22,3)="Enter 'Yes' if this results/diagnosis includes HPV."
^DD(790.31,.22,21,0)="^^3^3^2980917^"
^DD(790.31,.22,21,1,0)="This field indicates whether the HPV prompt is displayed on the edit"
^DD(790.31,.22,21,2,0)="screens of the Add a New Procedure and Edit a Procedure options.  Set of"
^DD(790.31,.22,21,3,0)="codes (1 = Yes, 0 = No)."
^DD(790.31,.22,"DT")="2941015"
^DD(790.31,.23,0)="EXCLUDE FROM REGULAR OUTPUTS^S^1:YES;0:NO;^0;23^Q"
^DD(790.31,.23,3)="Should this result/diagnosis be excluded from most regular reports, profiles, etc.  For example, the result 'Error/disregard' should be 'Yes' here."
^DD(790.31,.23,21,0)="^^3^3^2980917^"
^DD(790.31,.23,21,1,0)="This field contains data (set of codes: 1 = Yes, 0 = No) indicating that a"
^DD(790.31,.23,21,2,0)="procedure's result/diagnosis be excluded from most regular reports,"
^DD(790.31,.23,21,3,0)="snapshots, profiles, etc."
^DD(790.31,.23,"DT")="2941020"
^DD(790.31,.3,0)="SYNONYM1^F^^0;30^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(790.31,.3,1,0)="^.1"
^DD(790.31,.3,1,1,0)="790.31^S"
^DD(790.31,.3,1,1,1)="S ^WV(790.31,""S"",$E(X,1,30),DA)="""""
^DD(790.31,.3,1,1,2)="K ^WV(790.31,""S"",$E(X,1,30),DA)"
^DD(790.31,.3,1,1,"DT")="2951104"
^DD(790.31,.3,3)="Answer must be 1-9 characters in length."
^DD(790.31,.3,21,0)="^^3^3^2980917^^"
^DD(790.31,.3,21,1,0)="This field contains a 1-9 character long abbreviation for the"
^DD(790.31,.3,21,2,0)="result/diagnosis. A facility may add/edit/delete a synonym to suit its"
^DD(790.31,.3,21,3,0)="needs."
^DD(790.31,.3,"DT")="2960301"
^DD(790.31,.31,0)="SYNONYM2^F^^0;31^K:$L(X)>9!($L(X)<1) X"
^DD(790.31,.31,3)="Answer must be 1-9 characters in length."
^DD(790.31,.31,21,0)="^^3^3^2980917^^"
^DD(790.31,.31,21,1,0)="This field contains an additional 1-9 character long abbreviation for the"
^DD(790.31,.31,21,2,0)="result/diagnosis. A facility may add/edit/delete a synonym to suit its"
^DD(790.31,.31,21,3,0)="needs."
^DD(790.31,.31,"DT")="2960301"
^DD(790.31,"B","ASSOC WITH ALL PROCEDURES",.2)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-10",.1)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-11",.11)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-12",.12)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-13",.13)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-14",.14)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-15",.15)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-16",.16)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-17",.17)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-18",.18)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-19",.19)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-3",.03)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-4",.04)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-5",.05)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-6",.06)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-7",.07)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-8",.08)=""
^DD(790.31,"B","ASSOCIATED PROCEDURE-9",.09)=""
^DD(790.31,"B","EXCLUDE FROM REGULAR OUTPUTS",.23)=""
^DD(790.31,"B","INCLUDES HPV",.22)=""
^DD(790.31,"B","NORMAL/ABNORMAL",.21)=""
^DD(790.31,"B","PRIORITY",.02)=""
^DD(790.31,"B","RESULTS/DIAGNOSIS",.01)=""
^DD(790.31,"B","SYNONYM1",.3)=""
^DD(790.31,"B","SYNONYM2",.31)=""
^DD(790.31,"GL",0,1,.01)=""
^DD(790.31,"GL",0,2,.02)=""
^DD(790.31,"GL",0,3,.03)=""
^DD(790.31,"GL",0,4,.04)=""
^DD(790.31,"GL",0,5,.05)=""
^DD(790.31,"GL",0,6,.06)=""
^DD(790.31,"GL",0,7,.07)=""
^DD(790.31,"GL",0,8,.08)=""
^DD(790.31,"GL",0,9,.09)=""
^DD(790.31,"GL",0,10,.1)=""
^DD(790.31,"GL",0,11,.11)=""
^DD(790.31,"GL",0,12,.12)=""
^DD(790.31,"GL",0,13,.13)=""
^DD(790.31,"GL",0,14,.14)=""
^DD(790.31,"GL",0,15,.15)=""
^DD(790.31,"GL",0,16,.16)=""
^DD(790.31,"GL",0,17,.17)=""
^DD(790.31,"GL",0,18,.18)=""
^DD(790.31,"GL",0,19,.19)=""
^DD(790.31,"GL",0,20,.2)=""
^DD(790.31,"GL",0,21,.21)=""
^DD(790.31,"GL",0,22,.22)=""
^DD(790.31,"GL",0,23,.23)=""
^DD(790.31,"GL",0,30,.3)=""
^DD(790.31,"GL",0,31,.31)=""
^DD(790.31,"IX",.01)=""
^DD(790.31,"IX",.02)=""
^DD(790.31,"IX",.03)=""
^DD(790.31,"IX",.04)=""
^DD(790.31,"IX",.05)=""
^DD(790.31,"IX",.06)=""
^DD(790.31,"IX",.07)=""
^DD(790.31,"IX",.08)=""
^DD(790.31,"IX",.09)=""
^DD(790.31,"IX",.1)=""
^DD(790.31,"IX",.11)=""
^DD(790.31,"IX",.12)=""
^DD(790.31,"IX",.13)=""
^DD(790.31,"IX",.14)=""
^DD(790.31,"IX",.15)=""
^DD(790.31,"IX",.16)=""
^DD(790.31,"IX",.17)=""
^DD(790.31,"IX",.18)=""
^DD(790.31,"IX",.19)=""
^DD(790.31,"IX",.3)=""
^DD(790.31,"RQ",.01)=""
^DD(790.31,"RQ",.02)=""
^DD(790.31,"RQ",.21)=""
^DD(790.32,0)="FIELD^^.02^2"
^DD(790.32,0,"DDA")="N"
^DD(790.32,0,"DT")="2980507"
^DD(790.32,0,"IX","B",790.32,.01)=""
^DD(790.32,0,"IX","C",790.32,.02)=""
^DD(790.32,0,"NM","WV DIAGNOSTIC CODE TRANSLATION")=""
^DD(790.32,0,"VR")="1.0"
^DD(790.32,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.32,.01,0)="WOMEN'S HEALTH DX^R*P790.31'X^WV(790.31,^0;1^S:$D(X) DINUM=X S DIC(""S"")=""D SCREEN^WVRAD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.32,.01,1,0)="^.1"
^DD(790.32,.01,1,1,0)="790.32^B"
^DD(790.32,.01,1,1,1)="S ^WV(790.32,""B"",$E(X,1,30),DA)="""""
^DD(790.32,.01,1,1,2)="K ^WV(790.32,""B"",$E(X,1,30),DA)"
^DD(790.32,.01,3)="Choose the women's health results/diagnosis code you wish to match to a radiology diagnostic code."
^DD(790.32,.01,12)="Only Results/Diagnoses that apply to Mammograms may be selected."
^DD(790.32,.01,12.1)="S DIC(""S"")=""D SCREEN^WVRAD"""
^DD(790.32,.01,21,0)="^^2^2^2980924^^^^"
^DD(790.32,.01,21,1,0)="This field contains women's health results/diagnosis terms relating to"
^DD(790.32,.01,21,2,0)="radiology procedures.  Pointer to the WV Results/Diagnosis (#790.31) file."
^DD(790.32,.01,"DT")="2980828"
^DD(790.32,.02,0)="RADIOLOGY DIAGNOSTIC CODE^P78.3'^RA(78.3,^0;2^Q"
^DD(790.32,.02,1,0)="^.1"
^DD(790.32,.02,1,1,0)="790.32^C"
^DD(790.32,.02,1,1,1)="S ^WV(790.32,""C"",$E(X,1,30),DA)="""""
^DD(790.32,.02,1,1,2)="K ^WV(790.32,""C"",$E(X,1,30),DA)"
^DD(790.32,.02,1,1,"DT")="2950526"
^DD(790.32,.02,3)="Enter the radiology diagnostic code you which to match with this women's health results/diagnosis."
^DD(790.32,.02,21,0)="^^3^3^2980921^"
^DD(790.32,.02,21,1,0)="This field contains the radiology diagnostic code associated with a"
^DD(790.32,.02,21,2,0)="women's health results/diagnosis. Pointer to Diagnostic Codes (#78.3)"
^DD(790.32,.02,21,3,0)="file."
^DD(790.32,.02,"DT")="2950526"
^DD(790.32,"B","RADIOLOGY DIAGNOSTIC CODE",.02)=""
^DD(790.32,"B","WOMEN'S HEALTH DX",.01)=""
^DD(790.32,"GL",0,1,.01)=""
^DD(790.32,"GL",0,2,.02)=""
^DD(790.32,"IX",.01)=""
^DD(790.32,"IX",.02)=""
^DD(790.32,"RQ",.01)=""
^DD(790.4,0)="FIELD^^.14^13"
^DD(790.4,0,"DT")="2980602"
^DD(790.4,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(790.4,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790.404,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790.404,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.4,0,"ID",.06)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^WV(790.1,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(790.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.4,0,"IX","AOPEN",790.4,.02)=""
^DD(790.4,0,"IX","AOPENS",790.4,.14)=""
^DD(790.4,0,"IX","APRT",790.4,.11)=""
^DD(790.4,0,"IX","B",790.4,.01)=""
^DD(790.4,0,"IX","C",790.4,.06)=""
^DD(790.4,0,"IX","D",790.4,.02)=""
^DD(790.4,0,"NM","WV NOTIFICATION")=""
^DD(790.4,0,"VR")="1.0"
^DD(790.4,0,"VRPK")="WV"
^DD(790.4,.01,0)="PATIENT^RP790'^WV(790,^0;1^Q"
^DD(790.4,.01,1,0)="^.1^^-1"
^DD(790.4,.01,1,1,0)="790.4^B"
^DD(790.4,.01,1,1,1)="S ^WV(790.4,""B"",$E(X,1,30),DA)="""""
^DD(790.4,.01,1,1,2)="K ^WV(790.4,""B"",$E(X,1,30),DA)"
^DD(790.4,.01,3)=""
^DD(790.4,.01,21,0)="^^2^2^2980921^"
^DD(790.4,.01,21,1,0)="This field stores the name of the patient associated with the notification"
^DD(790.4,.01,21,2,0)="record. Points to the WV Patient (#790) file."
^DD(790.4,.01,"DT")="2980507"
^DD(790.4,.02,0)="DATE NOTIFICATION OPENED^RDX^^0;2^S %DT=""EX"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(790.4,.02,1,0)="^.1"
^DD(790.4,.02,1,1,0)="790.4^AOPEN^MUMPS"
^DD(790.4,.02,1,1,1)="I ""o""[$P(^WV(790.4,DA,0),U,14) S ^WV(790.4,""AOPEN"",X,DA)="""""
^DD(790.4,.02,1,1,2)="K ^WV(790.4,""AOPEN"",X,DA)"
^DD(790.4,.02,1,1,"%D",0)="^^3^3^2940818^^^^"
^DD(790.4,.02,1,1,"%D",1,0)="The ""AOPEN"",DATE xref, exists only for those entries where there has been"
^DD(790.4,.02,1,1,"%D",2,0)="no closure to the notification, i.e., the patient has not yet been"
^DD(790.4,.02,1,1,"%D",3,0)="reached or has not yet responded."
^DD(790.4,.02,1,1,"DT")="2940725"
^DD(790.4,.02,1,2,0)="790.4^D"
^DD(790.4,.02,1,2,1)="S ^WV(790.4,""D"",$E(X,1,30),DA)="""""
^DD(790.4,.02,1,2,2)="K ^WV(790.4,""D"",$E(X,1,30),DA)"
^DD(790.4,.02,1,2,"DT")="2940714"
^DD(790.4,.02,3)="This is the date that the notification was first entered, the beginning of the process to contact the patient with information."
^DD(790.4,.02,21,0)="^^3^3^2980909^"
^DD(790.4,.02,21,1,0)="This field stores the date that the notification was entered into"
^DD(790.4,.02,21,2,0)="database.  It may be today's date or a date in the past.  A future date"
^DD(790.4,.02,21,3,0)="cannot be associated with this record."
^DD(790.4,.02,"DT")="2980722"
^DD(790.4,.03,0)="TYPE OF NOTIFICATION^P790.403'^WV(790.403,^0;3^Q"
^DD(790.4,.03,1,0)="^.1^^0"
^DD(790.4,.03,4)=""
^DD(790.4,.03,21,0)="^^2^2^2980921^"
^DD(790.4,.03,21,1,0)="This field stores the method used to notify the patient from the choices"
^DD(790.4,.03,21,2,0)="available in the WV Notification Type (#790.403) file."
^DD(790.4,.03,"DT")="2980507"
^DD(790.4,.04,0)="PURPOSE OF NOTIFICATION^*P790.404'^WV(790.404,^0;4^S DIC(""S"")=""I $P(^(0),U,4)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.4,.04,12)="Select the purpose for this Notification."
^DD(790.4,.04,12.1)="S DIC(""S"")=""I $P(^(0),U,4)'=0"""
^DD(790.4,.04,21,0)="^^5^5^2980921^"
^DD(790.4,.04,21,1,0)="This field contains the reason for the notification, (e.g., the results of"
^DD(790.4,.04,21,2,0)="a test, reminder to schedule a procedure).  The information is required to"
^DD(790.4,.04,21,3,0)="autoqueue normal PAP and mammogram letters when the appropriate fields"
^DD(790.4,.04,21,4,0)="(.03, .04, .07 and .08) in the WV Site Parameter (#790.02) file are"
^DD(790.4,.04,21,5,0)="completed.  Pointer to the WV Notification Purpose (#790.404) file."
^DD(790.4,.04,"DT")="2980507"
^DD(790.4,.05,0)="OUTCOME^*P790.405'^WV(790.405,^0;5^S DIC(""S"")=""I $P(^(0),U,2)'=0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.4,.05,12)="Select the outcome for this Notification."
^DD(790.4,.05,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=0"""
^DD(790.4,.05,21,0)="^^4^4^2980921^"
^DD(790.4,.05,21,1,0)="This field stores the results or outcome, which may be a goal or an event,"
^DD(790.4,.05,21,2,0)="associated with this patient's notification.  Data used to populate this"
^DD(790.4,.05,21,3,0)="field is obtained from the Notification Outcome (#790.405) file that can"
^DD(790.4,.05,21,4,0)="be edited through the Add/Edit Notification Outcomes option by the ADPAC."
^DD(790.4,.05,"DT")="2980507"
^DD(790.4,.06,0)="ACCESSION#^*P790.1'^WV(790.1,^0;6^S DIC(""S"")=""I $D(WVDFN) I $P(^(0),U,2)=WVDFN"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(790.4,.06,1,0)="^.1"
^DD(790.4,.06,1,1,0)="790.4^C^MUMPS"
^DD(790.4,.06,1,1,1)="S ^WV(790.4,""C"",$P(^WV(790.1,X,0),U),DA)="""""
^DD(790.4,.06,1,1,2)="K ^WV(790.4,""C"",$P(^WV(790.1,X,0),U))"
^DD(790.4,.06,1,1,"DT")="2941229"
^DD(790.4,.06,3)="Select an accession number from the Procedure File for this patient."
^DD(790.4,.06,12)="Only Accession#'s pertaining to this patient may be selected."
^DD(790.4,.06,12.1)="S DIC(""S"")=""I $D(WVDFN) I $P(^(0),U,2)=WVDFN"""
^DD(790.4,.06,21,0)="^^2^2^2980921^"
^DD(790.4,.06,21,1,0)="This field stores the accession number of the procedure associated with"
^DD(790.4,.06,21,2,0)="this patient's notification.  Pointer to the WV Procedure (#790.1) file."
^DD(790.4,.06,"DT")="2980507"
^DD(790.4,.07,0)="FACILITY^P4'^DIC(4,^0;7^Q"
^DD(790.4,.07,3)="Select the health care facility initiating or printing this notification."
^DD(790.4,.07,21,0)="^^3^3^2980909^"
^DD(790.4,.07,21,1,0)="This field contains the name of the health care facility that initiated"
^DD(790.4,.07,21,2,0)="and printed the letter or notification.  Pointer to the Institution (#4)"
^DD(790.4,.07,21,3,0)="file."
^DD(790.4,.07,"DT")="2980507"
^DD(790.4,.08,0)="DATE NOTIFICATION CLOSED^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.4,.08,3)="Enter the date that an outcome for this notification was entered and marked 'Closed'."
^DD(790.4,.08,21,0)="^^2^2^2980921^"
^DD(790.4,.08,21,1,0)="This is the date that an outcome for this notification was entered and"
^DD(790.4,.08,21,2,0)="marked 'Closed'."
^DD(790.4,.08,"DT")="2940722"
^DD(790.4,.09,0)="PT EDUCATION^S^n:NO;y:YES;^0;9^Q"
^DD(790.4,.09,3)="Enter whether or not patient education occurred. "
^DD(790.4,.09,21,0)="^^2^2^2980921^"
^DD(790.4,.09,21,1,0)="This field documents, through a set of codes (Y = Yes, N = No), that"
^DD(790.4,.09,21,2,0)="patient education was provided at the time of the visit."
^DD(790.4,.09,"DT")="2980602"
^DD(790.4,.1,0)="DATE LETTER PRINTED^DX^^0;10^S %DT=""ETX"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(790.4,.1,3)="If the type of notification is a letter, then enter the date the letter was printed."
^DD(790.4,.1,21,0)="^^5^5^2980909^^^"
^DD(790.4,.1,21,1,0)="This field contains the date on which the notification letter was printed."
^DD(790.4,.1,21,2,0)="The date the letter is printed automatically displays through the Add a"
^DD(790.4,.1,21,3,0)="New Notification and Edit a Notification options.  Data cannot be manually"
^DD(790.4,.1,21,4,0)="entered by the user through the above options. This field is also used in"
^DD(790.4,.1,21,5,0)="generating the Program Snapshot and Browse Notifications reports."
^DD(790.4,.1,"DT")="2980722"
^DD(790.4,.11,0)="PRINT DATE^D^^0;11^S %DT=""EFX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.4,.11,1,0)="^.1"
^DD(790.4,.11,1,1,0)="790.4^APRT"
^DD(790.4,.11,1,1,1)="S ^WV(790.4,""APRT"",$E(X,1,30),DA)="""""
^DD(790.4,.11,1,1,2)="K ^WV(790.4,""APRT"",$E(X,1,30),DA)"
^DD(790.4,.11,1,1,"DT")="2941003"
^DD(790.4,.11,3)="Enter the date on which you would like this letter printed."
^DD(790.4,.11,21,0)="^^8^8^2980909^"
^DD(790.4,.11,21,1,0)="This field stores the date on which this letter should be queued or"
^DD(790.4,.11,21,2,0)="printed by the Print Queued Letters option.  The letter will print out on"
^DD(790.4,.11,21,3,0)="the specified date or later depending on when the Print Queued Letters"
^DD(790.4,.11,21,4,0)="option is run.  When a default date displays in this field, it is based on"
^DD(790.4,.11,21,5,0)="whether this letter is a 'reminder' or 'results' letter.  A reminder"
^DD(790.4,.11,21,6,0)="letter's default date is based on the due date of the treatment need"
^DD(790.4,.11,21,7,0)="associated with the purpose for notification.  The default date for the"
^DD(790.4,.11,21,8,0)="results letter is today's date."
^DD(790.4,.11,"DT")="2941003"
^DD(790.4,.13,0)="COMPLETE BY (DATE)^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(790.4,.13,3)="Enter the date this notification will be marked 'Delinquent' if it has not been 'Closed'."
^DD(790.4,.13,21,0)="^^4^4^2980909^"
^DD(790.4,.13,21,1,0)="This field contains the date that this notification will be considered"
^DD(790.4,.13,21,2,0)="delinquent or past due if it does not have a status of closed.  The value"
^DD(790.4,.13,21,3,0)="of this field is used to generate the information on the Browse"
^DD(790.4,.13,21,4,0)="Notifications and Program Snapshot reports."
^DD(790.4,.13,"DT")="2940918"
^DD(790.4,.14,0)="STATUS^S^o:OPEN;c:CLOSED;^0;14^Q"
^DD(790.4,.14,1,0)="^.1"
^DD(790.4,.14,1,1,0)="790.4^AOPENS^MUMPS"
^DD(790.4,.14,1,1,1)="S:""o""[X ^WV(790.4,""AOPEN"",$P(^WV(790.4,DA,0),U,2),DA)="""" K:X=""c"" ^WV(790.4,""AOPEN"",$P(^WV(790.4,DA,0),U,2),DA)"
^DD(790.4,.14,1,1,2)=";"
^DD(790.4,.14,1,1,"DT")="2940913"
^DD(790.4,.14,3)="Enter the status for this notification."
^DD(790.4,.14,21,0)="^^3^3^2980921^"
^DD(790.4,.14,21,1,0)="This field stores the status (set of codes: O = Open, C = Closed) for this"
^DD(790.4,.14,21,2,0)="notification.  The value of this field is used in generating the Program"
^DD(790.4,.14,21,3,0)="Snapshot and Browse Notifications reports."
^DD(790.4,.14,"DT")="2940913"
^DD(790.4,"B","ACCESSION#",.06)=""
^DD(790.4,"B","COMPLETE BY (DATE)",.13)=""
^DD(790.4,"B","DATE LETTER PRINTED",.1)=""
^DD(790.4,"B","DATE NOTIFICATION CLOSED",.08)=""
^DD(790.4,"B","DATE NOTIFICATION OPENED",.02)=""
^DD(790.4,"B","FACILITY",.07)=""
^DD(790.4,"B","OUTCOME",.05)=""
^DD(790.4,"B","PATIENT",.01)=""
^DD(790.4,"B","PRINT DATE",.11)=""
^DD(790.4,"B","PT EDUCATION",.09)=""
^DD(790.4,"B","PURPOSE OF NOTIFICATION",.04)=""
^DD(790.4,"B","STATUS",.14)=""
^DD(790.4,"B","TYPE OF NOTIFICATION",.03)=""
^DD(790.4,"GL",0,1,.01)=""
^DD(790.4,"GL",0,2,.02)=""
^DD(790.4,"GL",0,3,.03)=""
^DD(790.4,"GL",0,4,.04)=""
^DD(790.4,"GL",0,5,.05)=""
^DD(790.4,"GL",0,6,.06)=""
^DD(790.4,"GL",0,7,.07)=""
^DD(790.4,"GL",0,8,.08)=""
^DD(790.4,"GL",0,9,.09)=""
^DD(790.4,"GL",0,10,.1)=""
^DD(790.4,"GL",0,11,.11)=""
^DD(790.4,"GL",0,13,.13)=""
^DD(790.4,"GL",0,14,.14)=""
^DD(790.4,"IX",.01)=""
^DD(790.4,"IX",.02)=""
^DD(790.4,"IX",.06)=""
^DD(790.4,"IX",.11)=""
^DD(790.4,"IX",.14)=""
^DD(790.4,"RQ",.01)=""
^DD(790.4,"RQ",.02)=""
^DD(790.403,0)="FIELD^^.03^3"
^DD(790.403,0,"DDA")="N"
^DD(790.403,0,"DT")="2980921"
^DD(790.403,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(790.403,0,"IX","B",790.403,.01)=""
^DD(790.403,0,"IX","C",790.403,.03)=""
^DD(790.403,0,"NM","WV NOTIFICATION TYPE")=""
^DD(790.403,0,"PT",790.4,.03)=""
^DD(790.403,0,"VR")="1.0"
^DD(790.403,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.403,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(790.403,.01,1,0)="^.1"
^DD(790.403,.01,1,1,0)="790.403^B"
^DD(790.403,.01,1,1,1)="S ^WV(790.403,""B"",$E(X,1,30),DA)="""""
^DD(790.403,.01,1,1,2)="K ^WV(790.403,""B"",$E(X,1,30),DA)"
^DD(790.403,.01,3)="Answer must be 3-30 characters in length."
^DD(790.403,.01,21,0)="^^4^4^2980921^"
^DD(790.403,.01,21,1,0)="This field contains types of notifications which indicate how patients"
^DD(790.403,.01,21,2,0)="were informed about test and procedure results, and treatment needs.  For"
^DD(790.403,.01,21,3,0)="example, contact PHN (primary health nurse), conversation with patient,"
^DD(790.403,.01,21,4,0)="consult, or 2nd phone call."
^DD(790.403,.01,"DT")="2980921"
^DD(790.403,.02,0)="PRINTABLE (EG.,LETTER)^S^0:NO;1:YES;^0;2^Q"
^DD(790.403,.02,3)="Enter 'Yes' if this type of notification will be printed."
^DD(790.403,.02,21,0)="^^2^2^2980921^"
^DD(790.403,.02,21,1,0)="This field stores a code (0 = No, 1 = Yes) that indicates if this"
^DD(790.403,.02,21,2,0)="notification type will be printed."
^DD(790.403,.02,"DT")="2940926"
^DD(790.403,.03,0)="SYNONYM^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(790.403,.03,1,0)="^.1"
^DD(790.403,.03,1,1,0)="790.403^C"
^DD(790.403,.03,1,1,1)="S ^WV(790.403,""C"",$E(X,1,30),DA)="""""
^DD(790.403,.03,1,1,2)="K ^WV(790.403,""C"",$E(X,1,30),DA)"
^DD(790.403,.03,1,1,"DT")="2950319"
^DD(790.403,.03,3)="Enter an abbreviation or short synonym by which this notification type may be selected.  For example, ""LF"" for ""Letter, First"".  Answer must be 4 characters or less."
^DD(790.403,.03,21,0)="^^3^3^2980921^"
^DD(790.403,.03,21,1,0)="This field stores an abbreviation or short synonym for the notification"
^DD(790.403,.03,21,2,0)="type.  For example, ""LF"" for ""Letter, First"".  New synonyms may be entered"
^DD(790.403,.03,21,3,0)="or edited by the case manager."
^DD(790.403,.03,"DT")="2950319"
^DD(790.403,"B","NAME",.01)=""
^DD(790.403,"B","PRINTABLE (EG.,LETTER)",.02)=""
^DD(790.403,"B","SYNONYM",.03)=""
^DD(790.403,"GL",0,1,.01)=""
^DD(790.403,"GL",0,2,.02)=""
^DD(790.403,"GL",0,3,.03)=""
^DD(790.403,"IX",.01)=""
^DD(790.403,"IX",.03)=""
^DD(790.403,"RQ",.01)=""
^DD(790.404,0)="FIELD^^1.01^11"
^DD(790.404,0,"DDA")="N"
^DD(790.404,0,"ID",.02)="W "" "",$P(^(0),U,3),""   "",@(""$P($P($C(59)_$S($D(^DD(790.404,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(790.404,0,"IX","B",790.404,.01)=""
^DD(790.404,0,"IX","C",790.404,.03)=""
^DD(790.404,0,"IX","U",790.404,.01)=""
^DD(790.404,0,"NM","WV NOTIFICATION PURPOSE")=""
^DD(790.404,0,"PT",790.02,.04)=""
^DD(790.404,0,"PT",790.02,.08)=""
^DD(790.404,0,"PT",790.4,.04)=""
^DD(790.404,0,"PT",801.41,15)=""
^DD(790.404,0,"PT",801.4118,.01)=""
^DD(790.404,0,"VR")="1.0"
^DD(790.404,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.404,.01,0)="NOTIFICATION PURPOSE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(790.404,.01,1,0)="^.1"
^DD(790.404,.01,1,1,0)="790.404^B"
^DD(790.404,.01,1,1,1)="S ^WV(790.404,""B"",$E(X,1,50),DA)="""""
^DD(790.404,.01,1,1,2)="K ^WV(790.404,""B"",$E(X,1,50),DA)"
^DD(790.404,.01,1,2,0)="790.404^U^MUMPS"
^DD(790.404,.01,1,2,1)="D UPXREF^WVUTL5(X,""^WV(790.404,"")"
^DD(790.404,.01,1,2,2)="D KUPXREF^WVUTL5(X,""^WV(790.404,"")"
^DD(790.404,.01,1,2,"%D",0)="^^1^1^2960308^"
^DD(790.404,.01,1,2,"%D",1,0)="Sets uppercase xref."
^DD(790.404,.01,1,2,"DT")="2960308"
^DD(790.404,.01,3)="Answer must be 3-50 characters in length."
^DD(790.404,.01,21,0)="^^5^5^2980921^"
^DD(790.404,.01,21,1,0)="This field stores the reason for the notification.  The reason should"
^DD(790.404,.01,21,2,0)="include information that distinguishes it (the letter/notification) from"
^DD(790.404,.01,21,3,0)="similar procedure/test results or future treatment needs. For example,"
^DD(790.404,.01,21,4,0)="pregnancy test positive vs. pregnancy test negative; PAP (Annual Due)"
^DD(790.404,.01,21,5,0)="vs.PAP (Follow-up Due)."
^DD(790.404,.01,"DT")="2960308"
^DD(790.404,.02,0)="PRIORITY^RS^1:URGENT;2:ASAP;3:ROUTINE;^0;2^Q"
^DD(790.404,.02,3)="Enter the priority for this purpose of notification."
^DD(790.404,.02,21,0)="^^4^4^2980904^^"
^DD(790.404,.02,21,1,0)="This field associates a priority with the notification.  The priority"
^DD(790.404,.02,21,2,0)="choices are (1) urgent, (2) ASAP, and (3) routine. These priorities are"
^DD(790.404,.02,21,3,0)="used within the Browse Notifications options to print a list of"
^DD(790.404,.02,21,4,0)="notifications by priority."
^DD(790.404,.02,"DT")="2941005"
^DD(790.404,.03,0)="SYNONYM^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(790.404,.03,1,0)="^.1"
^DD(790.404,.03,1,1,0)="790.404^C"
^DD(790.404,.03,1,1,1)="S ^WV(790.404,""C"",$E(X,1,30),DA)="""""
^DD(790.404,.03,1,1,2)="K ^WV(790.404,""C"",$E(X,1,30),DA)"
^DD(790.404,.03,1,1,"DT")="2950216"
^DD(790.404,.03,3)="Enter an abbreviation or short synonym by which this notification purpose & letter may be selected.  For example, ""P6"" for ""PAP 6 weeks P.P."".  Answer must be 6 characters or less."
^DD(790.404,.03,21,0)="^^3^3^2980904^^"
^DD(790.404,.03,21,1,0)="This field contains an abbreviation or short synonym that is used to"
^DD(790.404,.03,21,2,0)="select a type of notification.  For example, ""P6"" for ""PAP 6 weeks"
^DD(790.404,.03,21,3,0)="post PAP"" or ""C1"" for ""Colp follow-up, PAP next month."""
^DD(790.404,.03,"DT")="2950216"
^DD(790.404,.04,0)="ACTIVE^S^1:YES;0:NO;^0;4^Q"
^DD(790.404,.04,3)="Enter 'Yes' to allow users to choose this purpose & letter.  Enter 'No' to prevent users from choosing this purpose & letter.  (If 'No', this purpose will not be presented.)"
^DD(790.404,.04,21,0)="^^3^3^2980921^"
^DD(790.404,.04,21,1,0)="This field contains a set of codes (1 = Yes, 0 = No) used to display or"
^DD(790.404,.04,21,2,0)="hide an entry in a selection list.  If the field is active and contains a"
^DD(790.404,.04,21,3,0)="'1' or yes, users of this package can select the entry. "
^DD(790.404,.04,"DT")="2950316"
^DD(790.404,.05,0)="ASSOCIATE WITH BR/CX TX^S^BR:BREAST TX;CX:CERVICAL TX;^0;5^Q"
^DD(790.404,.05,3)="If this purpose of notification is used exclusively for cervical or breast treatment needs, select CX or BR.  This will be used in calculating default print dates of letters, based on Tx needs."
^DD(790.404,.05,21,0)="^^6^6^2980921^"
^DD(790.404,.05,21,1,0)="This field has a 2-fold purpose. It identifies that the notification"
^DD(790.404,.05,21,2,0)="letter is associated with cervical or breast treatment needs and also"
^DD(790.404,.05,21,3,0)="determines a default print date based on the treatment need type. The"
^DD(790.404,.05,21,4,0)="value of this field is a set of codes (BR for breast Tx need; CX for"
^DD(790.404,.05,21,5,0)="cervical Tx need).  If a clinician does not want to automatically print a"
^DD(790.404,.05,21,6,0)="letter, the field may be left blank."
^DD(790.404,.05,"DT")="2950317"
^DD(790.404,.06,0)="RESULT OR REMINDER LETTER^S^1:RESULT;0:REMINDER;^0;6^Q"
^DD(790.404,.06,3)="Enter result if the default to print this letter should be today (to send results to the patient immediately).  Enter reminder if the default print date should be in the future (e.g., Annual PAP)."
^DD(790.404,.06,21,0)="^^4^4^2980921^"
^DD(790.404,.06,21,1,0)="This field contains a code (1 = Result; 2 = Reminder) used to determine a"
^DD(790.404,.06,21,2,0)="print date for the letter.  A notification identified as a result is"
^DD(790.404,.06,21,3,0)="printed immediately and a reminder is printed on a future date (e.g.,"
^DD(790.404,.06,21,4,0)="Annual PAP)."
^DD(790.404,.06,"DT")="2950317"
^DD(790.404,.07,0)="BR TX NEED^P790.51'^WV(790.51,^0;7^Q"
^DD(790.404,.07,21,0)="^^7^7^3021230^"
^DD(790.404,.07,21,1,0)="Use this field to assign a breast treament need from the WV BREAST TX "
^DD(790.404,.07,21,2,0)="NEED file (#790.51) to this particular purpose of notification."
^DD(790.404,.07,21,3,0)=" "
^DD(790.404,.07,21,4,0)="When a Clinical Reminder uses this purpose of notification to result a "
^DD(790.404,.07,21,5,0)="patient's breast procedure, the breast treatment need linked to this "
^DD(790.404,.07,21,6,0)="purpose of notification will be automatically assigned to the patient in"
^DD(790.404,.07,21,7,0)="the WV PATIENT file (#790)."
^DD(790.404,.07,"DT")="3021216"
^DD(790.404,.08,0)="BR TX DUE DATE^FX^^0;8^D DMYCHECK^WVPURP K:X=-1 X"
^DD(790.404,.08,3)="Answer must be 2-4 characters in length (e.g., 1Y)."
^DD(790.404,.08,21,0)="^^9^9^3040708^"
^DD(790.404,.08,21,1,0)="This field is the amount of time to add to the procedure date or current"
^DD(790.404,.08,21,2,0)="date to calculate a new breast treatment due date. The value should be a"
^DD(790.404,.08,21,3,0)="number followed by ""D"", ""M"" or ""Y"" (without the quotes). D indicates days."
^DD(790.404,.08,21,4,0)="M indicates months. Y indicates years."
^DD(790.404,.08,21,5,0)=" "
^DD(790.404,.08,21,6,0)="For example, ""90D"" means add 90 days to the procedure date or current date"
^DD(790.404,.08,21,7,0)="to calculate the new breast treatment due date. This new treatment date"
^DD(790.404,.08,21,8,0)="will be automatically assigned to the patient in the WV PATIENT file"
^DD(790.404,.08,21,9,0)="(#790)."
^DD(790.404,.08,"DT")="3030107"
^DD(790.404,.09,0)="CX TX NEED^P790.5'^WV(790.5,^0;9^Q"
^DD(790.404,.09,21,0)="^^7^7^3021230^"
^DD(790.404,.09,21,1,0)="Use this field to assign a cervical treament need from the WV CERVICAL TX "
^DD(790.404,.09,21,2,0)="NEED file (#790.5) to this particular purpose of notification."
^DD(790.404,.09,21,3,0)=" "
^DD(790.404,.09,21,4,0)="When a Clinical Reminder uses this purpose of notification to result a "
^DD(790.404,.09,21,5,0)="patient's cervical procedure, the cervical treatment need linked to this "
^DD(790.404,.09,21,6,0)="purpose of notification will be automatically assigned to the patient in"
^DD(790.404,.09,21,7,0)="the WV PATIENT file (#790)."
^DD(790.404,.09,"DT")="3021230"
^DD(790.404,.1,0)="CX TX DUE DATE^FX^^0;10^D DMYCHECK^WVPURP K:X=-1 X"
^DD(790.404,.1,3)="Answer must be 2-4 characters in length (e.g., 1Y)."
^DD(790.404,.1,21,0)="^^9^9^3040708^"
^DD(790.404,.1,21,1,0)="This field is the amount of time to add to the procedure date or current"
^DD(790.404,.1,21,2,0)="date to calculate a new cervical treatment due date. The value should be a"
^DD(790.404,.1,21,3,0)="number followed by ""D"", ""M"" or ""Y"" (without the quotes). D indicates days."
^DD(790.404,.1,21,4,0)="M indicates months. Y indicates years."
^DD(790.404,.1,21,5,0)=" "
^DD(790.404,.1,21,6,0)="For example, ""90D"" means add 90 days to the procedure date or current date"
^DD(790.404,.1,21,7,0)="to calculate the new cervical treatment due date. This new treatment date"
^DD(790.404,.1,21,8,0)="will be automatically assigned to the patient in the WV PATIENT file"
^DD(790.404,.1,21,9,0)="(#790)."
^DD(790.404,.1,"DT")="3030107"
^DD(790.404,1.01,0)="LETTER TEXT^790.414^^1;0"
^DD(790.404,1.01,21,0)="^^1^1^2980716^"
^DD(790.404,1.01,21,1,0)="This field stores the text of the notification letter."
^DD(790.404,"B","ACTIVE",.04)=""
^DD(790.404,"B","ASSOCIATE WITH BR/CX TX",.05)=""
^DD(790.404,"B","BR TX DUE DATE",.08)=""
^DD(790.404,"B","BR TX NEED",.07)=""
^DD(790.404,"B","CX TX DUE DATE",.1)=""
^DD(790.404,"B","CX TX NEED",.09)=""
^DD(790.404,"B","LETTER TEXT",1.01)=""
^DD(790.404,"B","NOTIFICATION PURPOSE",.01)=""
^DD(790.404,"B","PRIORITY",.02)=""
^DD(790.404,"B","RESULT OR REMINDER LETTER",.06)=""
^DD(790.404,"B","SYNONYM",.03)=""
^DD(790.404,"GL",0,1,.01)=""
^DD(790.404,"GL",0,2,.02)=""
^DD(790.404,"GL",0,3,.03)=""
^DD(790.404,"GL",0,4,.04)=""
^DD(790.404,"GL",0,5,.05)=""
^DD(790.404,"GL",0,6,.06)=""
^DD(790.404,"GL",0,7,.07)=""
^DD(790.404,"GL",0,8,.08)=""
^DD(790.404,"GL",0,9,.09)=""
^DD(790.404,"GL",0,10,.1)=""
^DD(790.404,"GL",1,0,1.01)=""
^DD(790.404,"IX",.01)=""
^DD(790.404,"IX",.03)=""
^DD(790.404,"RQ",.01)=""
^DD(790.404,"RQ",.02)=""
^DD(790.404,"SB",790.414,1.01)=""
^DD(790.405,0)="FIELD^^.02^2"
^DD(790.405,0,"DDA")="N"
^DD(790.405,0,"DT")="2980921"
^DD(790.405,0,"IX","B",790.405,.01)=""
^DD(790.405,0,"IX","U",790.405,.01)=""
^DD(790.405,0,"NM","WV NOTIFICATION OUTCOME")=""
^DD(790.405,0,"PT",790.4,.05)=""
^DD(790.405,0,"VR")="1.0"
^DD(790.405,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.405,.01,0)="OUTCOME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(790.405,.01,1,0)="^.1"
^DD(790.405,.01,1,1,0)="790.405^B"
^DD(790.405,.01,1,1,1)="S ^WV(790.405,""B"",$E(X,1,30),DA)="""""
^DD(790.405,.01,1,1,2)="K ^WV(790.405,""B"",$E(X,1,30),DA)"
^DD(790.405,.01,1,2,0)="790.405^U^MUMPS"
^DD(790.405,.01,1,2,1)="D UPXREF^WVUTL5(X,""^WV(790.405,"")"
^DD(790.405,.01,1,2,2)="D KUPXREF^WVUTL5(X,""^WV(790.405,"")"
^DD(790.405,.01,1,2,"%D",0)="^^1^1^2960308^"
^DD(790.405,.01,1,2,"%D",1,0)="Sets uppercase xref."
^DD(790.405,.01,1,2,"DT")="2960308"
^DD(790.405,.01,3)="Answer must be 3-30 characters in length."
^DD(790.405,.01,21,0)="^^3^3^2980921^"
^DD(790.405,.01,21,1,0)="This field contains the terms describing a notification outcome.  An"
^DD(790.405,.01,21,2,0)="outcome may be a goal or an event (e.g., PAP normal letter sent, provider"
^DD(790.405,.01,21,3,0)="consult, CBE refused, scheduled appt for MAM)."
^DD(790.405,.01,"DT")="2980921"
^DD(790.405,.02,0)="ACTIVE^S^0:NO;1:YES;^0;2^Q"
^DD(790.405,.02,3)="Enter 'Yes' if this notification outcome should be available for the user to choose.  Enter 'No' if it should no longer be available."
^DD(790.405,.02,21,0)="^^3^3^2980921^"
^DD(790.405,.02,21,1,0)="This field contains a set of codes (1 = Yes, 0 = No) used to display or"
^DD(790.405,.02,21,2,0)="hide an entry in a selection list.  If the field is active and contains a"
^DD(790.405,.02,21,3,0)="'1' or yes, users of this package can select the entry."
^DD(790.405,.02,"DT")="2950320"
^DD(790.405,"B","ACTIVE",.02)=""
^DD(790.405,"B","OUTCOME",.01)=""
^DD(790.405,"GL",0,1,.01)=""
^DD(790.405,"GL",0,2,.02)=""
^DD(790.405,"IX",.01)=""
^DD(790.405,"RQ",.01)=""
^DD(790.414,0)="LETTER TEXT SUB-FIELD^^.01^1"
^DD(790.414,0,"NM","LETTER TEXT")=""
^DD(790.414,0,"UP")="790.404"
^DD(790.414,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.414,.01,0)="LETTER TEXT^WL^^0;1^Q"
^DD(790.414,.01,21,0)="^^1^1^2980518^"
^DD(790.414,.01,21,1,0)="Enter the text of the letter that you want included for notifications."
^DD(790.414,.01,"DT")="2940822"
^DD(790.414,"B","LETTER TEXT",.01)=""
^DD(790.414,"GL",0,1,.01)=""
^DD(790.5,0)="FIELD^^.01^1"
^DD(790.5,0,"IX","B",790.5,.01)=""
^DD(790.5,0,"IX","U",790.5,.01)=""
^DD(790.5,0,"NM","WV CERVICAL TX NEED")=""
^DD(790.5,0,"PT",790,.11)=""
^DD(790.5,0,"PT",790.404,.09)=""
^DD(790.5,0,"VR")="1.0"
^DD(790.5,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.5,.01,0)="CERVICAL TX NEED^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(790.5,.01,1,0)="^.1"
^DD(790.5,.01,1,1,0)="790.5^B"
^DD(790.5,.01,1,1,1)="S ^WV(790.5,""B"",$E(X,1,30),DA)="""""
^DD(790.5,.01,1,1,2)="K ^WV(790.5,""B"",$E(X,1,30),DA)"
^DD(790.5,.01,1,2,0)="790.5^U^MUMPS"
^DD(790.5,.01,1,2,1)="D UPXREF^WVUTL5(X,""^WV(790.5,"")"
^DD(790.5,.01,1,2,2)="D KUPXREF^WVUTL5(X,""^WV(790.5,"")"
^DD(790.5,.01,1,2,"%D",0)="^^1^1^2960308^"
^DD(790.5,.01,1,2,"%D",1,0)="Sets uppercase xref."
^DD(790.5,.01,1,2,"DT")="2960308"
^DD(790.5,.01,3)="Answer must be 3-20 characters in length."
^DD(790.5,.01,21,0)="^^3^3^2980630^"
^DD(790.5,.01,21,1,0)="This field stores the name or terms used to describe cervical treatment"
^DD(790.5,.01,21,2,0)="needs such as tests, therapeutic procedures, and referrals to another"
^DD(790.5,.01,21,3,0)="agency."
^DD(790.5,.01,"DT")="2960308"
^DD(790.5,"B","CERVICAL TX NEED",.01)=""
^DD(790.5,"GL",0,1,.01)=""
^DD(790.5,"IX",.01)=""
^DD(790.5,"RQ",.01)=""
^DD(790.51,0)="FIELD^^.01^1"
^DD(790.51,0,"DDA")="N"
^DD(790.51,0,"IX","B",790.51,.01)=""
^DD(790.51,0,"IX","U",790.51,.01)=""
^DD(790.51,0,"NM","WV BREAST TX NEED")=""
^DD(790.51,0,"PT",790,.18)=""
^DD(790.51,0,"PT",790.404,.07)=""
^DD(790.51,0,"VR")="1.0"
^DD(790.51,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.51,.01,0)="BREAST TX NEED^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X"
^DD(790.51,.01,1,0)="^.1"
^DD(790.51,.01,1,1,0)="790.51^B"
^DD(790.51,.01,1,1,1)="S ^WV(790.51,""B"",$E(X,1,30),DA)="""""
^DD(790.51,.01,1,1,2)="K ^WV(790.51,""B"",$E(X,1,30),DA)"
^DD(790.51,.01,1,2,0)="790.51^U^MUMPS"
^DD(790.51,.01,1,2,1)="D UPXREF^WVUTL5(X,""^WV(790.51,"")"
^DD(790.51,.01,1,2,2)="D KUPXREF^WVUTL5(X,""^WV(790.51,"")"
^DD(790.51,.01,1,2,"%D",0)="^^1^1^2960308^"
^DD(790.51,.01,1,2,"%D",1,0)="Sets uppercase xref."
^DD(790.51,.01,1,2,"DT")="2960308"
^DD(790.51,.01,3)="Answer must be 3-20 characters in length."
^DD(790.51,.01,21,0)="^^2^2^2980630^"
^DD(790.51,.01,21,1,0)="This field contains the accepted tests and actions (e.g., referrals to"
^DD(790.51,.01,21,2,0)="another agency) associated with women's breast treatment needs."
^DD(790.51,.01,"DT")="2960308"
^DD(790.51,"B","BREAST TX NEED",.01)=""
^DD(790.51,"GL",0,1,.01)=""
^DD(790.51,"IX",.01)=""
^DD(790.51,"RQ",.01)=""
^DD(790.6,0)="FIELD^^1.01^2"
^DD(790.6,0,"IX","B",790.6,.01)=""
^DD(790.6,0,"NM","WV LETTER")=""
^DD(790.6,0,"VR")="1.0"
^DD(790.6,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.6,.01,0)="LETTER^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(790.6,.01,1,0)="^.1"
^DD(790.6,.01,1,1,0)="790.6^B"
^DD(790.6,.01,1,1,1)="S ^WV(790.6,""B"",$E(X,1,30),DA)="""""
^DD(790.6,.01,1,1,2)="K ^WV(790.6,""B"",$E(X,1,30),DA)"
^DD(790.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(790.6,.01,21,0)="^^1^1^2980721^"
^DD(790.6,.01,21,1,0)="This field contains the name of the generic sample letter."
^DD(790.6,1.01,0)="LETTER TEXT^790.61^^1;0"
^DD(790.6,1.01,21,0)="^^1^1^2980721^"
^DD(790.6,1.01,21,1,0)="This field stores the body of the generic or sample notification letter."
^DD(790.6,"B","LETTER",.01)=""
^DD(790.6,"B","LETTER TEXT",1.01)=""
^DD(790.6,"GL",0,1,.01)=""
^DD(790.6,"GL",1,0,1.01)=""
^DD(790.6,"IX",.01)=""
^DD(790.6,"RQ",.01)=""
^DD(790.6,"SB",790.61,1.01)=""
^DD(790.61,0)="LETTER TEXT SUB-FIELD^^.01^1"
^DD(790.61,0,"NM","LETTER TEXT")=""
^DD(790.61,0,"UP")="790.6"
^DD(790.61,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.61,.01,0)="LETTER TEXT^WL^^0;1^Q"
^DD(790.61,.01,21,0)="^^1^1^2980518^"
^DD(790.61,.01,21,1,0)="This field is where the generic backup letter is stored."
^DD(790.61,.01,"DT")="2940822"
^DD(790.61,"B","LETTER TEXT",.01)=""
^DD(790.61,"GL",0,1,.01)=""
^DD(790.71,0)="FIELD^^.79^48"
^DD(790.71,0,"DDA")="N"
^DD(790.71,0,"DT")="2990706"
^DD(790.71,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(790.71,0,"ID",.18)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(790.71,.18,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,18)_"""":"""",2),$C(59),1)"")"
^DD(790.71,0,"IX","B",790.71,.01)=""
^DD(790.71,0,"IX","C",790.71,.02)=""
^DD(790.71,0,"IX","T",790.71,.18)=""
^DD(790.71,0,"NM","WV SNAPSHOT REPORTS")=""
^DD(790.71,0,"VR")="1.0"
^DD(790.71,0,"VRPK")="WV"
^DD(790.71,.01,0)="DATE OF SNAPSHOT^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y S:$D(X) DINUM=X K:Y<1 X"
^DD(790.71,.01,1,0)="^.1"
^DD(790.71,.01,1,1,0)="790.71^B"
^DD(790.71,.01,1,1,1)="S ^WV(790.71,""B"",$E(X,1,30),DA)="""""
^DD(790.71,.01,1,1,2)="K ^WV(790.71,""B"",$E(X,1,30),DA)"
^DD(790.71,.01,3)="Enter the date on which this snapshot report was run."
^DD(790.71,.01,21,0)="^^1^1^2980708^"
^DD(790.71,.01,21,1,0)="This field stores the date on which a Program Snapshot report was run."
^DD(790.71,.01,"DT")="2980610"
^DD(790.71,.02,0)="Facility^P4'^DIC(4,^0;2^Q"
^DD(790.71,.02,1,0)="^.1"
^DD(790.71,.02,1,1,0)="790.71^C"
^DD(790.71,.02,1,1,1)="S ^WV(790.71,""C"",$E(X,1,30),DA)="""""
^DD(790.71,.02,1,1,2)="K ^WV(790.71,""C"",$E(X,1,30),DA)"
^DD(790.71,.02,1,1,"DT")="2950124"
^DD(790.71,.02,3)="Enter the facility for which this snapshot report was run."
^DD(790.71,.02,21,0)="^^2^2^2980708^"
^DD(790.71,.02,21,1,0)="This field stores the name of the facility for which this Program Snapshot"
^DD(790.71,.02,21,2,0)="report was run."
^DD(790.71,.02,"DT")="2980507"
^DD(790.71,.03,0)="Total Women in Register^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.03,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.03,21,0)="^^2^2^2980708^"
^DD(790.71,.03,21,1,0)="This field contains the total number of women with active records in the"
^DD(790.71,.03,21,2,0)="WV Patient (#790) file."
^DD(790.71,.03,"DT")="2950123"
^DD(790.71,.04,0)="Women Who Are Pregnant^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.04,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.04,21,0)="^^2^2^2980708^"
^DD(790.71,.04,21,1,0)="This field contains the number of women who were pregnant at the time"
^DD(790.71,.04,21,2,0)="the Program Snapshot report option was run."
^DD(790.71,.04,"DT")="2950123"
^DD(790.71,.05,0)="Women Who Are DES Daughters^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.05,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.05,21,0)="^^2^2^2980708^"
^DD(790.71,.05,21,1,0)="This field contains the number of women who were DES daughters when the"
^DD(790.71,.05,21,2,0)="Program Snapshot report option was run. "
^DD(790.71,.05,"DT")="2950123"
^DD(790.71,.06,0)="PAP Needs Not Spec'd/Dated^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.06,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.06,21,0)="^^3^3^2980708^"
^DD(790.71,.06,21,1,0)="This field contains the number of women whose records indicated that their"
^DD(790.71,.06,21,2,0)="cervical treatment needs were not specificed or the due date was not"
^DD(790.71,.06,21,3,0)="recorded."
^DD(790.71,.06,"DT")="2950123"
^DD(790.71,.07,0)="PAP Needs Spec'd & Past Due^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.07,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.07,21,0)="^^2^2^2980708^"
^DD(790.71,.07,21,1,0)="This field contains the number of women whose records indicated that their"
^DD(790.71,.07,21,2,0)="cervical treatment needs were specificed and are past due."
^DD(790.71,.07,"DT")="2950123"
^DD(790.71,.08,0)="MAM Needs Not Spec'd/Dated^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.08,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.08,21,0)="^^3^3^2980708^"
^DD(790.71,.08,21,1,0)="This field contains the number of women whose records indicated that"
^DD(790.71,.08,21,2,0)="breast treatment needs were not specificed or the due date was not"
^DD(790.71,.08,21,3,0)="entered."
^DD(790.71,.08,"DT")="2950123"
^DD(790.71,.09,0)="MAM Needs Spec'd & Past Due^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.09,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.09,21,0)="^^2^2^2980708^"
^DD(790.71,.09,21,1,0)="This field contains the number of women whose records indicated that"
^DD(790.71,.09,21,2,0)="their breast treatment needs were specificed and are past due."
^DD(790.71,.09,"DT")="2950123"
^DD(790.71,.1,0)="Total Procedures Status OPEN^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.1,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.1,21,0)="^^2^2^2980713^^"
^DD(790.71,.1,21,1,0)="This field contains the number of procedure records that have a status of"
^DD(790.71,.1,21,2,0)="open."
^DD(790.71,.1,"DT")="2950123"
^DD(790.71,.11,0)="OPEN Procedures Past Due^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.11,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.11,21,0)="^^3^3^2980921^"
^DD(790.71,.11,21,1,0)="This field contains the number of procedure records (with an 'Open'"
^DD(790.71,.11,21,2,0)="status) which indicate that breast or cervical treatment needs are past"
^DD(790.71,.11,21,3,0)="due."
^DD(790.71,.11,"DT")="2950123"
^DD(790.71,.12,0)="Total PAPS for the Year^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.12,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.12,21,0)="^^2^2^2980921^"
^DD(790.71,.12,21,1,0)="This field contains a count of the PAP smears done since the beginning of"
^DD(790.71,.12,21,2,0)="the calendar or fiscal year, depending upon what the user selected."
^DD(790.71,.12,"DT")="2980713"
^DD(790.71,.13,0)="Total MAMS for the Year^NJ6,0^^0;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.13,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.13,21,0)="^^2^2^2980921^"
^DD(790.71,.13,21,1,0)="This field contains a count of the mammograms done since the beginning of"
^DD(790.71,.13,21,2,0)="the calendar or fiscal year, depending upon what the user selected."
^DD(790.71,.13,"DT")="2980713"
^DD(790.71,.14,0)="Total Notifications Stat OPEN^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.14,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.14,21,0)="^^2^2^2980713^"
^DD(790.71,.14,21,1,0)="This field stores the number of notification records, with a status of"
^DD(790.71,.14,21,2,0)="open, when the Program Snapshot report was run."
^DD(790.71,.14,"DT")="2950123"
^DD(790.71,.15,0)="OPEN Notifications Past Due^NJ6,0^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.15,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.15,21,0)="^^2^2^2980713^"
^DD(790.71,.15,21,1,0)="This field contains the number of notification records that were past"
^DD(790.71,.15,21,2,0)="due when the Program Snaphot report was run. "
^DD(790.71,.15,"DT")="2950123"
^DD(790.71,.16,0)="Number of Letters Queued^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.16,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.16,21,0)="^^3^3^2980921^"
^DD(790.71,.16,21,1,0)="This field contains the number of letters scheduled to be queued at a"
^DD(790.71,.16,21,2,0)="future time.  This count is calculated from the type of notification and"
^DD(790.71,.16,21,3,0)="the print date fields in the WV Notification (790.4) file."
^DD(790.71,.16,"DT")="2950123"
^DD(790.71,.17,0)="Total CBEs for the Year^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.17,3)="Type a number between 0 and 999999, 0 decimal digits."
^DD(790.71,.17,21,0)="^^3^3^2980921^"
^DD(790.71,.17,21,1,0)="This field contains a count of the clinical breast exams (CBE) done since"
^DD(790.71,.17,21,2,0)="the beginning of the calendar or fiscal year, depending upon what the user"
^DD(790.71,.17,21,3,0)="selected."
^DD(790.71,.17,"DT")="2980713"
^DD(790.71,.18,0)="TYPE OF YEAR^S^F:Fiscal Year;C:Calendar Year;^0;18^Q"
^DD(790.71,.18,1,0)="^.1"
^DD(790.71,.18,1,1,0)="790.71^T"
^DD(790.71,.18,1,1,1)="S ^WV(790.71,""T"",$E(X,1,30),DA)="""""
^DD(790.71,.18,1,1,2)="K ^WV(790.71,""T"",$E(X,1,30),DA)"
^DD(790.71,.18,1,1,"DT")="2980611"
^DD(790.71,.18,21,0)="^^2^2^2980709^"
^DD(790.71,.18,21,1,0)="This field contains a code to identify if the report output is for a"
^DD(790.71,.18,21,2,0)="calendar year (1/1-12/31) or a fiscal year (10/1/-9/30)."
^DD(790.71,.18,"DT")="2980709"
^DD(790.71,.5,0)="Breast Ultrasounds^NJ4,0^^2;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.5,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.5,21,0)="^^3^3^2980713^"
^DD(790.71,.5,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.5,21,2,0)="a patient declined having a breast ultrasound within the timeframe"
^DD(790.71,.5,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.5,"DT")="2990706"
^DD(790.71,.51,0)="Clinical Breast Exams^NJ4,0^^2;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.51,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.51,21,0)="^^3^3^2980713^"
^DD(790.71,.51,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.51,21,2,0)="a patient declined having a clinical breast exam within the timeframe"
^DD(790.71,.51,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.51,"DT")="2990706"
^DD(790.71,.52,0)="Colposcopy Impression (NO BX)^NJ4,0^^2;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.52,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.52,21,0)="^^3^3^2980713^"
^DD(790.71,.52,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.52,21,2,0)="a patient declined having the procedure, colposcopy impression without"
^DD(790.71,.52,21,3,0)="biopsy, within the timeframe associated with the Program Snapshot report."
^DD(790.71,.52,"DT")="2990706"
^DD(790.71,.53,0)="Colposcopy W/Biopsy^NJ4,0^^2;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.53,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.53,21,0)="^^3^3^2980713^"
^DD(790.71,.53,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.53,21,2,0)="a patient declined having the procedure, colposcopy with biopsy, within"
^DD(790.71,.53,21,3,0)="the timeframe associated with the Program Snapshot report."
^DD(790.71,.53,"DT")="2990706"
^DD(790.71,.54,0)="Cone Biopsy^NJ4,0^^2;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.54,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.54,21,0)="^^3^3^2980713^"
^DD(790.71,.54,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.54,21,2,0)="a patient declined having the procedure, cone biopsy, within the timeframe"
^DD(790.71,.54,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.54,"DT")="2990706"
^DD(790.71,.55,0)="Cryotherapy^NJ4,0^^2;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.55,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.55,21,0)="^^3^3^2980714^"
^DD(790.71,.55,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.55,21,2,0)="a patient declined having the procedure, cryotherapy, within the timeframe"
^DD(790.71,.55,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.55,"DT")="2990706"
^DD(790.71,.56,0)="Ectocervical Biopsy^NJ4,0^^2;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.56,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.56,21,0)="^^3^3^2980713^"
^DD(790.71,.56,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.56,21,2,0)="a patient declined having the procedure, ectocervical biospy, within the"
^DD(790.71,.56,21,3,0)="timeframe associated with the Program Snapshot report."
^DD(790.71,.56,"DT")="2990706"
^DD(790.71,.57,0)="Endocervical Currettage^NJ4,0^^2;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.57,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.57,21,0)="^^3^3^2980713^"
^DD(790.71,.57,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.57,21,2,0)="a patient declined having the procedure, endocervical currettage, within"
^DD(790.71,.57,21,3,0)="the timeframe associated with the Program Snapshot report."
^DD(790.71,.57,"DT")="2990706"
^DD(790.71,.58,0)="Endometrial Biopsy^NJ4,0^^2;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.58,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.58,21,0)="^^3^3^2980713^"
^DD(790.71,.58,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.58,21,2,0)="a patient declined having the procedure, endometrial biopsy, within the"
^DD(790.71,.58,21,3,0)="timeframe associated with the Program Snapshot report."
^DD(790.71,.58,"DT")="2990706"
^DD(790.71,.59,0)="Fine Needle Aspiration^NJ4,0^^2;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.59,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.59,21,0)="^^3^3^2980713^"
^DD(790.71,.59,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.59,21,2,0)="a patient declined having the procedure, fine needle aspiration, within"
^DD(790.71,.59,21,3,0)="the timeframe associated with the Program Snapshot report."
^DD(790.71,.59,"DT")="2990706"
^DD(790.71,.6,0)="General Surgery Consult^NJ4,0^^2;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.6,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.6,21,0)="^^3^3^2980713^"
^DD(790.71,.6,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.6,21,2,0)="a patient declined a general surgery consult referral within the timeframe"
^DD(790.71,.6,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.6,"DT")="2990706"
^DD(790.71,.61,0)="Gyn Onc Consult^NJ4,0^^2;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.61,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.61,21,0)="^^3^3^2980713^"
^DD(790.71,.61,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.61,21,2,0)="a patient declined a gynecological oncology consult referral, within the"
^DD(790.71,.61,21,3,0)="timeframe associated with the Program Snapshot report."
^DD(790.71,.61,"DT")="2990706"
^DD(790.71,.62,0)="Hysterectomy^NJ4,0^^2;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.62,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.62,21,0)="^^3^3^2980713^"
^DD(790.71,.62,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.62,21,2,0)="a patient declined having a hysterectomy within the timeframe associated"
^DD(790.71,.62,21,3,0)="with the Program Snapshot report."
^DD(790.71,.62,"DT")="2990706"
^DD(790.71,.63,0)="Laser Abilation^NJ4,0^^2;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.63,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.63,21,0)="^^3^3^2980713^"
^DD(790.71,.63,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.63,21,2,0)="a patient declined having a laser abilation procedure within the timeframe"
^DD(790.71,.63,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.63,"DT")="2990706"
^DD(790.71,.64,0)="Laser Cone^NJ4,0^^2;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.64,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.64,21,0)="^^3^3^2980713^"
^DD(790.71,.64,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.64,21,2,0)="a patient declined having a laser cone procedure, within the timeframe"
^DD(790.71,.64,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.64,"DT")="2990706"
^DD(790.71,.65,0)="Leep^NJ4,0^^2;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.65,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.65,21,0)="^^3^3^2980716^"
^DD(790.71,.65,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.65,21,2,0)="a patient declined having a loop electrosurgical excision procedure (LEEP)"
^DD(790.71,.65,21,3,0)="within the timeframe of the Program Snapshot report."
^DD(790.71,.65,"DT")="2990706"
^DD(790.71,.66,0)="Lumpectomy^NJ4,0^^2;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.66,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.66,21,0)="^^3^3^2980713^"
^DD(790.71,.66,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.66,21,2,0)="a patient declined having lumpectomy (of the breast) within the timeframe"
^DD(790.71,.66,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.66,"DT")="2990706"
^DD(790.71,.67,0)="Mammogram Dx Bilat^NJ4,0^^2;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.67,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.67,21,0)="^^3^3^2980921^"
^DD(790.71,.67,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.67,21,2,0)="a patient declined having the radiology test, mammogram Dx bilateral,"
^DD(790.71,.67,21,3,0)="within the timeframe associated with the Program Snapshot report."
^DD(790.71,.67,"DT")="2990706"
^DD(790.71,.68,0)="Mammogram Dx Unilat^NJ4,0^^2;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.68,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.68,21,0)="^^3^3^2980921^"
^DD(790.71,.68,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.68,21,2,0)="a patient declined having the radiology test, mammogram Dx unilateral,"
^DD(790.71,.68,21,3,0)="within the timeframe associated with the Program Snapshot report."
^DD(790.71,.68,"DT")="2990706"
^DD(790.71,.69,0)="Mammogram Screening^NJ4,0^^2;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.69,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.69,21,0)="^^3^3^2980713^"
^DD(790.71,.69,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.69,21,2,0)="a patient declined having the radiology procedure, mammogram screening,"
^DD(790.71,.69,21,3,0)="within the timeframe associated with the Program Snapshot report."
^DD(790.71,.69,"DT")="2990706"
^DD(790.71,.7,0)="Masectomy^NJ4,0^^2;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.7,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.7,21,0)="^^3^3^2980713^"
^DD(790.71,.7,21,1,0)="This field contains the number of records (in File #790.3) indicating that"
^DD(790.71,.7,21,2,0)="a patient declined having a mastectomy within the timeframe associated"
^DD(790.71,.7,21,3,0)="with the Program Snapshot report."
^DD(790.71,.7,"DT")="2990706"
^DD(790.71,.71,0)="Needle Biopsy^NJ4,0^^2;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.71,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.71,21,0)="^^3^3^2980714^"
^DD(790.71,.71,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.71,21,2,0)="patient declined having a needle biopsy within the timeframe associated"
^DD(790.71,.71,21,3,0)="with the Program Snapshot report."
^DD(790.71,.71,"DT")="2990706"
^DD(790.71,.72,0)="Open Biopsy^NJ4,0^^2;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.72,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.72,21,0)="^^3^3^2980714^"
^DD(790.71,.72,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.72,21,2,0)="patient declined having an open biopsy within the timeframe associated"
^DD(790.71,.72,21,3,0)="with the Program Snapshot report."
^DD(790.71,.72,"DT")="2990706"
^DD(790.71,.73,0)="Pap Smear^NJ4,0^^2;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.73,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.73,21,0)="^^3^3^2980921^"
^DD(790.71,.73,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.73,21,2,0)="patient declined having a PAP smear within the timeframe associated with"
^DD(790.71,.73,21,3,0)="the Program Snapshot report."
^DD(790.71,.73,"DT")="2990706"
^DD(790.71,.74,0)="Pregnancy Test^NJ4,0^^2;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.74,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.74,21,0)="^^3^3^2980714^"
^DD(790.71,.74,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.74,21,2,0)="patient declined having a pregnancy test within the timeframe associated"
^DD(790.71,.74,21,3,0)="with the Program Snapshot report."
^DD(790.71,.74,"DT")="2990706"
^DD(790.71,.75,0)="STD Evaluation^NJ4,0^^2;26^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.75,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.75,21,0)="^^3^3^2980921^"
^DD(790.71,.75,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.75,21,2,0)="patient declined having a STD evaluation within the timeframe associated"
^DD(790.71,.75,21,3,0)="with the Program Snapshot report."
^DD(790.71,.75,"DT")="2990706"
^DD(790.71,.76,0)="Stereotactic Biopsy^NJ4,0^^2;27^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.76,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.76,21,0)="^^3^3^2990706^^"
^DD(790.71,.76,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.76,21,2,0)="patient declined having a stereotactic biospy within the timeframe"
^DD(790.71,.76,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.76,"DT")="2990706"
^DD(790.71,.77,0)="Tubal Ligation^NJ4,0^^2;28^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.77,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.77,21,0)="^^3^3^2990706^"
^DD(790.71,.77,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.77,21,2,0)="patient declined having a tubal ligation within the timeframe associated"
^DD(790.71,.77,21,3,0)="with the Program Snapshot report."
^DD(790.71,.77,"DT")="2990706"
^DD(790.71,.78,0)="Pelvic Ultrasound^NJ4,0^^2;29^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.78,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.78,21,0)="^^3^3^2990706^"
^DD(790.71,.78,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.78,21,2,0)="patient declined having a pelvic ultrasound within the timeframe"
^DD(790.71,.78,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.78,"DT")="2990706"
^DD(790.71,.79,0)="Vaginal Ultrasound^NJ4,0^^2;30^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(790.71,.79,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(790.71,.79,21,0)="^^3^3^2990706^"
^DD(790.71,.79,21,1,0)="This field contains the number of records (in File #790.3) indicating a"
^DD(790.71,.79,21,2,0)="patient declined having a vaginal ultrasound within the timeframe"
^DD(790.71,.79,21,3,0)="associated with the Program Snapshot report."
^DD(790.71,.79,"DT")="2990706"
^DD(790.71,"B","Breast Ultrasounds",.5)=""
^DD(790.71,"B","Clinical Breast Exams",.51)=""
^DD(790.71,"B","Colposcopy Impression (NO BX)",.52)=""
^DD(790.71,"B","Colposcopy W/Biopsy",.53)=""
^DD(790.71,"B","Cone Biopsy",.54)=""
^DD(790.71,"B","Cryotherapy",.55)=""
^DD(790.71,"B","DATE OF SNAPSHOT",.01)=""
^DD(790.71,"B","Ectocervical Biopsy",.56)=""
^DD(790.71,"B","Endocervical Currettage",.57)=""
^DD(790.71,"B","Endometrial Biopsy",.58)=""
^DD(790.71,"B","Facility",.02)=""
^DD(790.71,"B","Fine Needle Aspiration",.59)=""
^DD(790.71,"B","General Surgery Consult",.6)=""
^DD(790.71,"B","Gyn Onc Consult",.61)=""
^DD(790.71,"B","Hysterectomy",.62)=""
^DD(790.71,"B","Laser Abilation",.63)=""
^DD(790.71,"B","Laser Cone",.64)=""
^DD(790.71,"B","Leep",.65)=""
^DD(790.71,"B","Lumpectomy",.66)=""
^DD(790.71,"B","MAM Needs Not Spec'd/Dated",.08)=""
^DD(790.71,"B","MAM Needs Spec'd & Past Due",.09)=""
^DD(790.71,"B","Mammogram Dx Bilat",.67)=""
^DD(790.71,"B","Mammogram Dx Unilat",.68)=""
^DD(790.71,"B","Mammogram Screening",.69)=""
^DD(790.71,"B","Masectomy",.7)=""
^DD(790.71,"B","Needle Biopsy",.71)=""
^DD(790.71,"B","Number of Letters Queued",.16)=""
^DD(790.71,"B","OPEN Notifications Past Due",.15)=""
^DD(790.71,"B","OPEN Procedures Past Due",.11)=""
^DD(790.71,"B","Open Biopsy",.72)=""
^DD(790.71,"B","PAP Needs Not Spec'd/Dated",.06)=""
^DD(790.71,"B","PAP Needs Spec'd & Past Due",.07)=""
^DD(790.71,"B","Pap Smear",.73)=""
^DD(790.71,"B","Pelvic Ultrasound",.78)=""
^DD(790.71,"B","Pregnancy Test",.74)=""
^DD(790.71,"B","STD Evaluation",.75)=""
^DD(790.71,"B","Stereotactic Biopsy",.76)=""
^DD(790.71,"B","TYPE OF YEAR",.18)=""
^DD(790.71,"B","Total CBEs for the Year",.17)=""
^DD(790.71,"B","Total MAMS for the Year",.13)=""
^DD(790.71,"B","Total Notifications Stat OPEN",.14)=""
^DD(790.71,"B","Total PAPS for the Year",.12)=""
^DD(790.71,"B","Total Procedures Status OPEN",.1)=""
^DD(790.71,"B","Total Women in Register",.03)=""
^DD(790.71,"B","Tubal Ligation",.77)=""
^DD(790.71,"B","Vaginal Ultrasound",.79)=""
^DD(790.71,"B","Women Who Are DES Daughters",.05)=""
^DD(790.71,"B","Women Who Are Pregnant",.04)=""
^DD(790.71,"GL",0,1,.01)=""
^DD(790.71,"GL",0,2,.02)=""
^DD(790.71,"GL",0,3,.03)=""
^DD(790.71,"GL",0,4,.04)=""
^DD(790.71,"GL",0,5,.05)=""
^DD(790.71,"GL",0,6,.06)=""
^DD(790.71,"GL",0,7,.07)=""
^DD(790.71,"GL",0,8,.08)=""
^DD(790.71,"GL",0,9,.09)=""
^DD(790.71,"GL",0,10,.1)=""
^DD(790.71,"GL",0,11,.11)=""
^DD(790.71,"GL",0,12,.12)=""
^DD(790.71,"GL",0,13,.13)=""
^DD(790.71,"GL",0,14,.14)=""
^DD(790.71,"GL",0,15,.15)=""
^DD(790.71,"GL",0,16,.16)=""
^DD(790.71,"GL",0,17,.17)=""
^DD(790.71,"GL",0,18,.18)=""
^DD(790.71,"GL",2,1,.5)=""
^DD(790.71,"GL",2,2,.51)=""
^DD(790.71,"GL",2,3,.52)=""
^DD(790.71,"GL",2,4,.53)=""
^DD(790.71,"GL",2,5,.54)=""
^DD(790.71,"GL",2,6,.55)=""
^DD(790.71,"GL",2,7,.56)=""
^DD(790.71,"GL",2,8,.57)=""
^DD(790.71,"GL",2,9,.58)=""
^DD(790.71,"GL",2,10,.59)=""
^DD(790.71,"GL",2,11,.6)=""
^DD(790.71,"GL",2,12,.61)=""
^DD(790.71,"GL",2,13,.62)=""
^DD(790.71,"GL",2,14,.63)=""
^DD(790.71,"GL",2,15,.64)=""
^DD(790.71,"GL",2,16,.65)=""
^DD(790.71,"GL",2,17,.66)=""
^DD(790.71,"GL",2,18,.67)=""
^DD(790.71,"GL",2,19,.68)=""
^DD(790.71,"GL",2,20,.69)=""
^DD(790.71,"GL",2,21,.7)=""
^DD(790.71,"GL",2,22,.71)=""
^DD(790.71,"GL",2,23,.72)=""
^DD(790.71,"GL",2,24,.73)=""
^DD(790.71,"GL",2,25,.74)=""
^DD(790.71,"GL",2,26,.75)=""
^DD(790.71,"GL",2,27,.76)=""
^DD(790.71,"GL",2,28,.77)=""
^DD(790.71,"GL",2,29,.78)=""
^DD(790.71,"GL",2,30,.79)=""
^DD(790.71,"IX",.01)=""
^DD(790.71,"IX",.02)=""
^DD(790.71,"IX",.18)=""
^DD(790.71,"RQ",.01)=""
^DD(790.72,0)="FIELD^^.03^3"
^DD(790.72,0,"DDA")="N"
^DD(790.72,0,"IX","B",790.72,.01)=""
^DD(790.72,0,"NM","WV AGE RANGE DEFAULT")=""
^DD(790.72,0,"VR")="1.0"
^DD(790.72,0,"VRPK")="WOMEN'S HEALTH"
^DD(790.72,.01,0)="USER^RP200'X^VA(200,^0;1^S:$D(X) DINUM=X"
^DD(790.72,.01,1,0)="^.1"
^DD(790.72,.01,1,1,0)="790.72^B"
^DD(790.72,.01,1,1,1)="S ^WV(790.72,""B"",$E(X,1,30),DA)="""""
^DD(790.72,.01,1,1,2)="K ^WV(790.72,""B"",$E(X,1,30),DA)"
^DD(790.72,.01,3)="Enter the user whose default is being stored."
^DD(790.72,.01,21,0)="^^3^3^2980624^^^"
^DD(790.72,.01,21,1,0)="This is the name of the user whose (age range) defaults (for the Procedure"
^DD(790.72,.01,21,2,0)="Statistics Report and the Screening Rates for PAPs and MAMs reports) are"
^DD(790.72,.01,21,3,0)="being stored."
^DD(790.72,.01,"DT")="2951019"
^DD(790.72,.02,0)="AGE RANGE FOR PROC STATS^F^^0;2^K:$L(X)>120!($L(X)<1) X"
^DD(790.72,.02,3)="Enter an age range (e.g., 20-29,30-39,40-60)."
^DD(790.72,.02,21,0)="^^2^2^2980921^"
^DD(790.72,.02,21,1,0)="This field contains the user's age range default value for the Procedure"
^DD(790.72,.02,21,2,0)="Statistics report."
^DD(790.72,.02,"DT")="2960301"
^DD(790.72,.03,0)="AGE RANGE FOR SCRN RATES^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(790.72,.03,3)="Enter the age range that will be stored as this user's default for future reports."
^DD(790.72,.03,21,0)="^^2^2^2980921^"
^DD(790.72,.03,21,1,0)="This field contains the user's age range default value for the Screening"
^DD(790.72,.03,21,2,0)="Rates for PAPs and MAMs reports."
^DD(790.72,.03,"DT")="2960301"
^DD(790.72,"B","AGE RANGE FOR PROC STATS",.02)=""
^DD(790.72,"B","AGE RANGE FOR SCRN RATES",.03)=""
^DD(790.72,"B","USER",.01)=""
^DD(790.72,"GL",0,1,.01)=""
^DD(790.72,"GL",0,2,.02)=""
^DD(790.72,"GL",0,3,.03)=""
^DD(790.72,"IX",.01)=""
^DD(790.72,"RQ",.01)=""
^DD(798,0)="FIELD^^20^21"
^DD(798,0,"DDA")="N"
^DD(798,0,"DT")="3050812"
^DD(798,0,"IX","AC",798,.02)=""
^DD(798,0,"IX","ALF",798.02,.01)=""
^DD(798,0,"IX","AM",798,10)=""
^DD(798,0,"IX","B",798,.01)=""
^DD(798,0,"NM","ROR REGISTRY RECORD")=""
^DD(798,0,"PT",799.4,.01)=""
^DD(798,0,"SCR")="I $$ACCESS^RORDD(798,+$P($G(^(0)),U,2))"
^DD(798,0,"VR")="1.5"
^DD(798,0,"VRPK")="ROR"
^DD(798,0,"VRRV")="1.5^ROR 1.5"
^DD(798,.01,0)="PATIENT NAME^RP798.4^RORDATA(798.4,^0;1^Q"
^DD(798,.01,1,0)="^.1"
^DD(798,.01,1,1,0)="798^B"
^DD(798,.01,1,1,1)="S ^RORDATA(798,""B"",$E(X,1,30),DA)="""""
^DD(798,.01,1,1,2)="K ^RORDATA(798,""B"",$E(X,1,30),DA)"
^DD(798,.01,1,1,3)="Do not delete!"
^DD(798,.01,1,1,"%D",0)="^.101^2^2^3030428^^"
^DD(798,.01,1,1,"%D",1,0)="Patient records in all defined registries can be"
^DD(798,.01,1,1,"%D",2,0)="found using this cross-reference."
^DD(798,.01,3)=""
^DD(798,.01,8.5)="@"
^DD(798,.01,9)="@"
^DD(798,.01,20,0)="^.3LA^1^1"
^DD(798,.01,20,1,0)="ENTRY"
^DD(798,.01,21,0)="^^7^7^3060203^"
^DD(798,.01,21,1,0)="The PATIENT NAME field identifies a patient in the"
^DD(798,.01,21,2,0)="registry. You can select a patient either from the"
^DD(798,.01,21,3,0)="local registry or the ROR PATIENT file, or you can"
^DD(798,.01,21,4,0)="add a new patient from the PATIENT file."
^DD(798,.01,21,5,0)=" "
^DD(798,.01,21,6,0)="You can only select records of those registries"
^DD(798,.01,21,7,0)="that you have appropriate security key(s) for."
^DD(798,.01,23,0)="^.001^12^12^3060203^^"
^DD(798,.01,23,1,0)="An internal value of this field is the patient IEN in"
^DD(798,.01,23,2,0)="the PATIENT file (#2) because records in the ROR"
^DD(798,.01,23,3,0)="PATIENT file (#798.4) have the same internal entry"
^DD(798,.01,23,4,0)="numbers as corresponding records in the PATIENT file."
^DD(798,.01,23,5,0)="Patient records in all registries can be found by"
^DD(798,.01,23,6,0)="traditional ""B"" cross-reference."
^DD(798,.01,23,7,0)=" "
^DD(798,.01,23,8,0)="When value of this field is deleted (which means "
^DD(798,.01,23,9,0)="deletion of the whole record), the logic of the ADELETE"
^DD(798,.01,23,10,0)="cross-reference tries to delete associated records from"
^DD(798,.01,23,11,0)="the ROR HIV STUDY (#799.4), ROR PATIENT (#798.4), and"
^DD(798,.01,23,12,0)="ROR PATIENT EVENTS (#798.3) files."
^DD(798,.01,"DT")="3060123"
^DD(798,.02,0)="REGISTRY^RP798.1'I^ROR(798.1,^0;2^Q"
^DD(798,.02,1,0)="^.1"
^DD(798,.02,1,1,0)="798^AC"
^DD(798,.02,1,1,1)="S ^RORDATA(798,""AC"",$E(X,1,30),DA)="""""
^DD(798,.02,1,1,2)="K ^RORDATA(798,""AC"",$E(X,1,30),DA)"
^DD(798,.02,1,1,3)="Do not delete!"
^DD(798,.02,1,1,"%D",0)="^.101^2^2^3050804^^"
^DD(798,.02,1,1,"%D",1,0)="This cross-reference is used to link all records"
^DD(798,.02,1,1,"%D",2,0)="of the registry together."
^DD(798,.02,1,1,"DT")="3000406"
^DD(798,.02,1,2,0)="^^TRIGGER^798^1"
^DD(798,.02,1,2,1)="X ^DD(798,.02,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(798,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(798,.02,1,2,1.4)"
^DD(798,.02,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(798,D0,0)):^(0),1:"""") S X='$P(Y(1),U,3)"
^DD(798,.02,1,2,1.4)="S DIH=$G(^RORDATA(798,DIV(0),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=798,DIG=1 D ^DICR"
^DD(798,.02,1,2,2)="Q"
^DD(798,.02,1,2,3)="Do not delete!"
^DD(798,.02,1,2,"%D",0)="^^2^2^3020402^"
^DD(798,.02,1,2,"%D",1,0)="This trigger populates the DATE ENTERED field "
^DD(798,.02,1,2,"%D",2,0)="when the patient is added to the registry."
^DD(798,.02,1,2,"CREATE CONDITION")="'DATE ENTERED"
^DD(798,.02,1,2,"CREATE VALUE")="NOW"
^DD(798,.02,1,2,"DELETE VALUE")="NO EFFECT"
^DD(798,.02,1,2,"DT")="3011119"
^DD(798,.02,1,2,"FIELD")="DATE"
^DD(798,.02,8.5)="@"
^DD(798,.02,9)="@"
^DD(798,.02,20,0)="^.3LA^1^1"
^DD(798,.02,20,1,0)="ENTRY"
^DD(798,.02,21,0)="^.001^2^2^3020816^^"
^DD(798,.02,21,1,0)="The REGISTRY field identifies the registry that "
^DD(798,.02,21,2,0)="the record belongs to."
^DD(798,.02,23,0)="^.001^2^2^3020816^^"
^DD(798,.02,23,1,0)="Traditional cross-reference ""AC"" is used to link all "
^DD(798,.02,23,2,0)="records of the registry together."
^DD(798,.02,"DT")="3050804"
^DD(798,1,0)="DATE ENTERED^DI^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798,1,1,0)="^.1^^0"
^DD(798,1,5,1,0)="798^.02^2"
^DD(798,1,8.5)="@"
^DD(798,1,9)="@"
^DD(798,1,20,0)="^.3LA^1^1"
^DD(798,1,20,1,0)="ENTRY"
^DD(798,1,21,0)="^.001^3^3^3050630^^^^"
^DD(798,1,21,1,0)="The DATE ENTERED field is automatically populated"
^DD(798,1,21,2,0)="by the trigger associated with the REGISTRY field"
^DD(798,1,21,3,0)="when the patient is added to the registry."
^DD(798,1,"DT")="3031027"
^DD(798,2,0)="DATE CONFIRMED^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798,2,8.5)="@"
^DD(798,2,9)="@"
^DD(798,2,20,0)="^.3LA^1^1"
^DD(798,2,20,1,0)="ENTRY"
^DD(798,2,21,0)="^.001^4^4^3050630^^"
^DD(798,2,21,1,0)="A trigger associated with the STATUS field "
^DD(798,2,21,2,0)="automatically populates the DATE CONFIRMED field"
^DD(798,2,21,3,0)="with the current date and time when the patient is"
^DD(798,2,21,4,0)="confirmed in the registry."
^DD(798,2,"DT")="3050804"
^DD(798,2.1,0)="CONFIRMED BY^P200'^VA(200,^0;10^Q"
^DD(798,2.1,8.5)="@"
^DD(798,2.1,9)="@"
^DD(798,2.1,21,0)="^^4^4^3060203^"
^DD(798,2.1,21,1,0)="A trigger associated with the STATUS field "
^DD(798,2.1,21,2,0)="automatically populates this field with a pointer"
^DD(798,2.1,21,3,0)="to the record of the user who confirmed the "
^DD(798,2.1,21,4,0)="patient."
^DD(798,2.1,"DT")="3050427"
^DD(798,3,0)="STATUS^S^0:Confirmed;4:Pending;5:Deleted;^0;5^Q"
^DD(798,3,1,0)="^.1"
^DD(798,3,1,1,0)="^^TRIGGER^798^5"
^DD(798,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RORDATA(798,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""1"" S DIH=$G(^RORDATA(798,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=798,DIG=5 D ^DICR"
^DD(798,3,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^RORDATA(798,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""1"" S DIH=$G(^RORDATA(798,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=798,DIG=5 D ^DICR"
^DD(798,3,1,1,3)="Do not delete!"
^DD(798,3,1,1,"%D",0)="^^2^2^3051129^"
^DD(798,3,1,1,"%D",1,0)="This trigger sets the UPDATE LOCAL REGISTRY DATA "
^DD(798,3,1,1,"%D",2,0)="flag when status of the record is changed."
^DD(798,3,1,1,"CREATE VALUE")="""1"""
^DD(798,3,1,1,"DELETE VALUE")="""1"""
^DD(798,3,1,1,"DT")="3051129"
^DD(798,3,1,1,"FIELD")="UPDATE LOCAL REGISTRY DATA"
^DD(798,3,8.5)="@"
^DD(798,3,9)="@"
^DD(798,3,20,0)="^.3LA^1^1"
^DD(798,3,20,1,0)="STATE"
^DD(798,3,21,0)="^^2^2^3050426^"
^DD(798,3,21,1,0)="The STATUS field indicates current status of the "
^DD(798,3,21,2,0)="registry record."
^DD(798,3,23,0)="^^6^6^3050426^"
^DD(798,3,23,1,0)="When a patient is deleted from the registry, the "
^DD(798,3,23,2,0)="internal value of this field is changed to 5. This "
^DD(798,3,23,3,0)="record will be deleted during the next run of the "
^DD(798,3,23,4,0)="nightly task and the corresponding HL7 messages will "
^DD(798,3,23,5,0)="instruct the national database software to delete the "
^DD(798,3,23,6,0)="patient data as well."
^DD(798,3,"DT")="3060123"
^DD(798,3.1,0)="SELECTION RULE^798.01P^^1;0"
^DD(798,3.1,20,0)="^.3LA^1^1"
^DD(798,3.1,20,1,0)="ENTRY"
^DD(798,3.1,21,0)="^.001^3^3^3060105^^^"
^DD(798,3.1,21,1,0)="The SELECTION RULE multiple contains a list of"
^DD(798,3.1,21,2,0)="selection rules that the patient passed when added"
^DD(798,3.1,21,3,0)="to the registry."
^DD(798,3.1,23,0)="^^2^2^3060105^"
^DD(798,3.1,23,1,0)="The list is automatically populated by the registry"
^DD(798,3.1,23,2,0)="update."
^DD(798,3.2,0)="DATE SELECTED^CD^^ ; ^S X=$$DTSEL^RORDD01(D0)"
^DD(798,3.2,9)="^"
^DD(798,3.2,9.01)=""
^DD(798,3.2,9.1)="S X=$$DTSEL^RORDD01(D0)"
^DD(798,3.2,21,0)="^^5^5^3060203^"
^DD(798,3.2,21,1,0)="Value of this field is calculated as the earliest"
^DD(798,3.2,21,2,0)="date of selection rules from the SELECTION RULE"
^DD(798,3.2,21,3,0)="multiple (3.1). If that multiple is empty, then"
^DD(798,3.2,21,4,0)="the date part of the DATE ENTERED field (1) will"
^DD(798,3.2,21,5,0)="be used."
^DD(798,3.3,0)="LOCATION SELECTED^Cp4^^ ; ^S X=$$LOCSEL^RORDD01(D0)"
^DD(798,3.3,9)="^"
^DD(798,3.3,9.01)=""
^DD(798,3.3,9.1)="S X=$$LOCSEL^RORDD01(D0)"
^DD(798,3.3,21,0)="^^3^3^3060105^"
^DD(798,3.3,21,1,0)="Computation algorithm of this field returns the"
^DD(798,3.3,21,2,0)="LOCATION field (2) value of the earliest selection"
^DD(798,3.3,21,3,0)="rules from the SELECTION RULE multiple (3.1)."
^DD(798,3.3,"DT")="3050803"
^DD(798,4,0)="UPDATE DEMOGRAPHICS^S^0:NO;1:YES;^0;6^Q"
^DD(798,4,1,0)="^.1^^0"
^DD(798,4,20,0)="^.3LA^1^1"
^DD(798,4,20,1,0)="STATE"
^DD(798,4,21,0)="^^3^3^3060203^"
^DD(798,4,21,1,0)="Usually, you should not edit this field. Set the "
^DD(798,4,21,2,0)="value of this field to ""YES"" if you want patient"
^DD(798,4,21,3,0)="demographic data to be sent to the AAC."
^DD(798,4,23,0)="^^12^12^3060203^"
^DD(798,4,23,1,0)="During the registry update, demographic fields of each"
^DD(798,4,23,2,0)="record of the ROR PATIENT file (#798.4) are compared"
^DD(798,4,23,3,0)="with corresponding fields of the PATIENT file (#2)."
^DD(798,4,23,4,0)=" "
^DD(798,4,23,5,0)="If any of the fields have different values, the "
^DD(798,4,23,6,0)="internal value of 1 is assigned to the UPDATE"
^DD(798,4,23,7,0)="DEMOGRAPHICS field of all active patient records in "
^DD(798,4,23,8,0)="local registries. As a result, demographic data is"
^DD(798,4,23,9,0)="transmitted to the national registries."
^DD(798,4,23,10,0)=" "
^DD(798,4,23,11,0)="After acknowledgement of the successful processing of"
^DD(798,4,23,12,0)="transmitted data, the value of this field is deleted."
^DD(798,4,"DT")="3051129"
^DD(798,4.1,0)="DEMOGRAPHICS UPDATED^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798,4.1,8.5)="@"
^DD(798,4.1,9)="@"
^DD(798,4.1,20,0)="^.3LA^1^1"
^DD(798,4.1,20,1,0)="STATE"
^DD(798,4.1,21,0)="^^4^4^3030428^"
^DD(798,4.1,21,1,0)="The DEMOGRAPHICS UPDATED field stores the "
^DD(798,4.1,21,2,0)="date/time of the last change in the patient's"
^DD(798,4.1,21,3,0)="demographic data that was detected by the Clinical"
^DD(798,4.1,21,4,0)="Case Registries software."
^DD(798,4.1,23,0)="^^2^2^3060105^"
^DD(798,4.1,23,1,0)="This field is populated by the ""ADEM"" index/trigger"
^DD(798,4.1,23,2,0)="associated with the UPDATE DEMOGRAPHICS field (4)."
^DD(798,4.1,"DT")="3030417"
^DD(798,5,0)="UPDATE LOCAL REGISTRY DATA^S^0:NO;1:YES;^0;7^Q"
^DD(798,5,1,0)="^.1^^0"
^DD(798,5,5,1,0)="798^3^1"
^DD(798,5,20,0)="^.3LA^1^1"
^DD(798,5,20,1,0)="STATE"
^DD(798,5,21,0)="^^4^4^3060105^"
^DD(798,5,21,1,0)="Usually, you should not edit this field. Set the"
^DD(798,5,21,2,0)="value of this field to ""YES"" if you have changed"
^DD(798,5,21,3,0)="any local registry data of the patient and want "
^DD(798,5,21,4,0)="this data to be sent to the AAC."
^DD(798,5,23,0)="^^8^8^3060105^"
^DD(798,5,23,1,0)="Any changes of local registry data result in assignment"
^DD(798,5,23,2,0)="of 1 as an internal value of the UPDATE LOCAL REGISTRY"
^DD(798,5,23,3,0)="DATA field (by registry update process or remote"
^DD(798,5,23,4,0)="procedures). This is the indication to transmit local"
^DD(798,5,23,5,0)="data to the national registry."
^DD(798,5,23,6,0)=" "
^DD(798,5,23,7,0)="After acknowledgement of the successful processing of"
^DD(798,5,23,8,0)="transmitted data, the value of this field is deleted."
^DD(798,5,"DT")="3051129"
^DD(798,5.1,0)="LOCAL DATA UPDATED^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798,5.1,8.5)="@"
^DD(798,5.1,9)="@"
^DD(798,5.1,20,0)="^.3LA^1^1"
^DD(798,5.1,20,1,0)="STATE"
^DD(798,5.1,21,0)="^^3^3^3030428^"
^DD(798,5.1,21,1,0)="The LOCAL DATA UPDATED field stores the date/time"
^DD(798,5.1,21,2,0)="of the last change in the patient's local registry"
^DD(798,5.1,21,3,0)="data."
^DD(798,5.1,23,0)="^^3^3^3060105^"
^DD(798,5.1,23,1,0)="This field is populated by the ""ALOC"" index/trigger"
^DD(798,5.1,23,2,0)="associated with the UPDATE LOCAL REGISTRY DATA field"
^DD(798,5.1,23,3,0)="(5)."
^DD(798,5.1,"DT")="3030417"
^DD(798,6,0)="DATE DELETED^D^^0;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798,6,8.5)="@"
^DD(798,6,9)="@"
^DD(798,6,20,0)="^.3LA^1^1"
^DD(798,6,20,1,0)="STATE"
^DD(798,6,21,0)="^^4^4^3060105^"
^DD(798,6,21,1,0)="Trigger associated with the STATUS field (3)"
^DD(798,6,21,2,0)="automatically populates this field with the"
^DD(798,6,21,3,0)="current date and time when the patient is deleted"
^DD(798,6,21,4,0)="from the registry."
^DD(798,6,"DT")="3050630"
^DD(798,6.1,0)="DELETED BY^P200'^VA(200,^0;12^Q"
^DD(798,6.1,8.5)="@"
^DD(798,6.1,9)="@"
^DD(798,6.1,20,0)="^.3LA^1^1"
^DD(798,6.1,20,1,0)="STATE"
^DD(798,6.1,21,0)="^^4^4^3060203^"
^DD(798,6.1,21,1,0)="Trigger associated with the STATUS field (3)"
^DD(798,6.1,21,2,0)="automatically populates this field with a pointer"
^DD(798,6.1,21,3,0)="to the record of the user who deleted the patient"
^DD(798,6.1,21,4,0)="from the registry."
^DD(798,6.1,"DT")="3050630"
^DD(798,8,0)="ACTIVE^CJ1,0^^ ; ^S X=$$ACTIVE^RORDD(D0)"
^DD(798,8,9)="^"
^DD(798,8,9.01)=""
^DD(798,8,9.1)="S X=$$ACTIVE^RORDD(D0)"
^DD(798,8,20,0)="^.3LA^1^1"
^DD(798,8,20,1,0)="STATE"
^DD(798,8,21,0)="^.001^3^3^3050630^^^"
^DD(798,8,21,1,0)="This is a computed field that indicates if the "
^DD(798,8,21,2,0)="patient's record in the registry is active and "
^DD(798,8,21,3,0)="should be considered by the software."
^DD(798,8,23,0)="^^4^4^3060203^"
^DD(798,8,23,1,0)="Pending records and records marked for deletion are "
^DD(798,8,23,2,0)="considered inactive and are ignored (except in some "
^DD(798,8,23,3,0)="special cases like confirming a pending patient, list "
^DD(798,8,23,4,0)="of pending patients, etc.)."
^DD(798,8,"DT")="3050426"
^DD(798,9.1,0)="DATA ACKNOWLEDGED UNTIL^D^^2;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(798,9.1,20,0)="^.3LA^1^1"
^DD(798,9.1,20,1,0)="STATE"
^DD(798,9.1,21,0)="^^3^3^3060203^"
^DD(798,9.1,21,1,0)="The DATA ACKNOWLEDGED UNTIL field contains a date"
^DD(798,9.1,21,2,0)="that the patient data has been extracted up to and"
^DD(798,9.1,21,3,0)="successfully transmitted."
^DD(798,9.1,23,0)="^.001^10^10^3060203^^"
^DD(798,9.1,23,1,0)="A regular data extraction for the patient in the "
^DD(798,9.1,23,2,0)="registry starts from this date."
^DD(798,9.1,23,3,0)=" "
^DD(798,9.1,23,4,0)="This field is empty for the patients added by the "
^DD(798,9.1,23,5,0)="nightly task."
^DD(798,9.1,23,6,0)=" "
^DD(798,9.1,23,7,0)="The nightly task checks status of the last HL7 batches "
^DD(798,9.1,23,8,0)="and copies the value of the DATA EXTRACTED UNTIL field"
^DD(798,9.1,23,9,0)="into this field for the patients whose data was"
^DD(798,9.1,23,10,0)="included in the successfully transmitted batches."
^DD(798,9.1,"DT")="3010830"
^DD(798,9.2,0)="DATA EXTRACTED UNTIL^D^^2;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(798,9.2,20,0)="^.3LA^1^1"
^DD(798,9.2,20,1,0)="STATE"
^DD(798,9.2,21,0)="^^3^3^3060203^"
^DD(798,9.2,21,1,0)="This field contains a date that registry data of "
^DD(798,9.2,21,2,0)="the patient has been extracted up to. Actual"
^DD(798,9.2,21,3,0)="transmission of this data is not confirmed."
^DD(798,9.2,23,0)="^^7^7^3060203^"
^DD(798,9.2,23,1,0)="The field is automatically populated by the regular"
^DD(798,9.2,23,2,0)="data extraction process if the data is extracted"
^DD(798,9.2,23,3,0)="successfully."
^DD(798,9.2,23,4,0)=" "
^DD(798,9.2,23,5,0)="The nightly task copies the value of this field into"
^DD(798,9.2,23,6,0)="the DATA ACKNOWLEDGED UNTIL field upon verification of"
^DD(798,9.2,23,7,0)="the transmission status of the corresponding HL7 batch."
^DD(798,9.2,"DT")="3010830"
^DD(798,10,0)="MESSAGE ID^FX^^2;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!(X'?1.E1""-""1.N) X"
^DD(798,10,1,0)="^.1"
^DD(798,10,1,1,0)="798^AM"
^DD(798,10,1,1,1)="S ^RORDATA(798,""AM"",$E(X,1,30),DA)="""""
^DD(798,10,1,1,2)="K ^RORDATA(798,""AM"",$E(X,1,30),DA)"
^DD(798,10,1,1,3)="Do not delete!"
^DD(798,10,1,1,"%D",0)="^^5^5^3060203^"
^DD(798,10,1,1,"%D",1,0)="The cross-reference allows the software to find"
^DD(798,10,1,1,"%D",2,0)="either a registry record (using the ID of the HL7"
^DD(798,10,1,1,"%D",3,0)="message sent to the national registry) or all"
^DD(798,10,1,1,"%D",4,0)="registry records included in the particular batch"
^DD(798,10,1,1,"%D",5,0)="(using partial match)."
^DD(798,10,1,1,"DT")="3010824"
^DD(798,10,3)="The unique ID of the latest HL7 message (1-20 characters)."
^DD(798,10,8.5)="@"
^DD(798,10,9)="@"
^DD(798,10,20,0)="^.3LA^1^1"
^DD(798,10,20,1,0)="HL7"
^DD(798,10,21,0)="^^10^10^3050503^"
^DD(798,10,21,1,0)="The MESSAGE ID field contains the identifier of "
^DD(798,10,21,2,0)="latest individual HL7 message created for this"
^DD(798,10,21,3,0)="registry record."
^DD(798,10,21,4,0)=" "
^DD(798,10,21,5,0)="Value of this field should have the following"
^DD(798,10,21,6,0)="format: BatchID-N, where BatchID is the identifier"
^DD(798,10,21,7,0)="of the HL7 batch message (see the INTERNAL BATCH"
^DD(798,10,21,8,0)="ID field of the LAST BATCH CONTROL ID multiple of"
^DD(798,10,21,9,0)="the ROR REGISTRY PARAMETERS file), and N is the"
^DD(798,10,21,10,0)="sequential number of the message in the batch."
^DD(798,10,23,0)="^^9^9^3060105^"
^DD(798,10,23,1,0)="This field is automatically populated by the regular"
^DD(798,10,23,2,0)="data extraction process when the individual message is "
^DD(798,10,23,3,0)="generated."
^DD(798,10,23,4,0)=" "
^DD(798,10,23,5,0)="If the sequential number of the message in the batch is"
^DD(798,10,23,6,0)="zero, then the data for this patient was not included"
^DD(798,10,23,7,0)="in this batch. This ""fake"" message ID is assigned in "
^DD(798,10,23,8,0)="order to correctly update the DATA EXTRACTED UNTIL and"
^DD(798,10,23,9,0)="DATA ACKNOWLEDGED UNTIL fields."
^DD(798,10,"DT")="3011005"
^DD(798,11,0)="DON'T SEND^S^0:NO;1:YES;^2;4^Q"
^DD(798,11,20,0)="^.3LA^1^1"
^DD(798,11,20,1,0)="ENTRY"
^DD(798,11,21,0)="^^3^3^3060105^"
^DD(798,11,21,1,0)="Set this field to ""YES"" if you do not want any "
^DD(798,11,21,2,0)="data to be sent to the national registry for this"
^DD(798,11,21,3,0)="record."
^DD(798,11,23,0)="^^6^6^3060105^"
^DD(798,11,23,1,0)="Usually, this field is populated only automatically by"
^DD(798,11,23,2,0)="the registry update processing if a patient is defined"
^DD(798,11,23,3,0)="in the PATIENT file as a ""test patient"" (internal value"
^DD(798,11,23,4,0)="of the TEST PATIENT INDICATOR field equals to 1)."
^DD(798,11,23,5,0)=" "
^DD(798,11,23,6,0)="Pending registry records also have 1 in this field."
^DD(798,11,"DT")="3010919"
^DD(798,20,0)="LOCAL FIELD^798.02P^^20;0"
^DD(798,20,20,0)="^.3LA^1^1"
^DD(798,20,20,1,0)="ENTRY"
^DD(798,20,21,0)="^^3^3^3050525^"
^DD(798,20,21,1,0)="The LOCAL FIELD multiple contains a list of local "
^DD(798,20,21,2,0)="field values for the registry patient along with"
^DD(798,20,21,3,0)="the corresponding dates and comments."
^DD(798,"B","ACTIVE",8)=""
^DD(798,"B","CONFIRMED BY",2.1)=""
^DD(798,"B","DATA ACKNOWLEDGED UNTIL",9.1)=""
^DD(798,"B","DATA EXTRACTED UNTIL",9.2)=""
^DD(798,"B","DATE CONFIRMED",2)=""
^DD(798,"B","DATE DELETED",6)=""
^DD(798,"B","DATE ENTERED",1)=""
^DD(798,"B","DATE SELECTED",3.2)=""
^DD(798,"B","DELETED BY",6.1)=""
^DD(798,"B","DEMOGRAPHICS UPDATED",4.1)=""
^DD(798,"B","DON'T SEND",11)=""
^DD(798,"B","LOCAL DATA UPDATED",5.1)=""
^DD(798,"B","LOCAL FIELD",20)=""
^DD(798,"B","LOCATION SELECTED",3.3)=""
^DD(798,"B","MESSAGE ID",10)=""
^DD(798,"B","PATIENT NAME",.01)=""
^DD(798,"B","REGISTRY",.02)=""
^DD(798,"B","SELECTION RULE",3.1)=""
^DD(798,"B","STATUS",3)=""
^DD(798,"B","UPDATE DEMOGRAPHICS",4)=""
^DD(798,"B","UPDATE LOCAL REGISTRY DATA",5)=""
^DD(798,"GL",0,1,.01)=""
^DD(798,"GL",0,2,.02)=""
^DD(798,"GL",0,3,1)=""
^DD(798,"GL",0,4,2)=""
^DD(798,"GL",0,5,3)=""
^DD(798,"GL",0,6,4)=""
^DD(798,"GL",0,7,5)=""
^DD(798,"GL",0,8,4.1)=""
^DD(798,"GL",0,9,5.1)=""
^DD(798,"GL",0,10,2.1)=""
^DD(798,"GL",0,11,6)=""
^DD(798,"GL",0,12,6.1)=""
^DD(798,"GL",1,0,3.1)=""
^DD(798,"GL",2,1,9.1)=""
^DD(798,"GL",2,2,9.2)=""
^DD(798,"GL",2,3,10)=""
^DD(798,"GL",2,4,11)=""
^DD(798,"GL",20,0,20)=""
^DD(798,"GR","ENTRY",.01,1)=""
^DD(798,"GR","ENTRY",.02,1)=""
^DD(798,"GR","ENTRY",1,1)=""
^DD(798,"GR","ENTRY",2,1)=""
^DD(798,"GR","ENTRY",3.1,1)=""
^DD(798,"GR","ENTRY",11,1)=""
^DD(798,"GR","ENTRY",20,1)=""
^DD(798,"GR","HL7",10,1)=""
^DD(798,"GR","STATE",3,1)=""
^DD(798,"GR","STATE",4,1)=""
^DD(798,"GR","STATE",4.1,1)=""
^DD(798,"GR","STATE",5,1)=""
^DD(798,"GR","STATE",5.1,1)=""
^DD(798,"GR","STATE",6,1)=""
^DD(798,"GR","STATE",6.1,1)=""
^DD(798,"GR","STATE",8,1)=""
^DD(798,"GR","STATE",9.1,1)=""
^DD(798,"GR","STATE",9.2,1)=""
^DD(798,"IX",.01)=""
^DD(798,"IX",.02)=""
^DD(798,"IX",3)=""
^DD(798,"IX",10)=""
^DD(798,"RQ",.01)=""
^DD(798,"RQ",.02)=""
^DD(798,"SB",798.01,3.1)=""
^DD(798,"SB",798.02,20)=""
^DD(798.01,0)="SELECTION RULE SUB-FIELD^^2^3"
^DD(798.01,0,"DT")="3050802"
^DD(798.01,0,"IX","AD",798.01,1)=""
^DD(798.01,0,"IX","B",798.01,.01)=""
^DD(798.01,0,"NM","SELECTION RULE")=""
^DD(798.01,0,"UP")="798"
^DD(798.01,.01,0)="SELECTION RULE^MP798.2'^ROR(798.2,^0;1^Q"
^DD(798.01,.01,1,0)="^.1"
^DD(798.01,.01,1,1,0)="798.01^B"
^DD(798.01,.01,1,1,1)="S ^RORDATA(798,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(798.01,.01,1,1,2)="K ^RORDATA(798,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(798.01,.01,1,1,3)="Do not delete!"
^DD(798.01,.01,8.5)="@"
^DD(798.01,.01,9)="@"
^DD(798.01,.01,21,0)="^^2^2^3060203^"
^DD(798.01,.01,21,1,0)="This field identifies the selection rule that "
^DD(798.01,.01,21,2,0)="caused addition of the patient to the registry."
^DD(798.01,.01,"DT")="3011009"
^DD(798.01,1,0)="DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.01,1,1,0)="^.1"
^DD(798.01,1,1,1,0)="798.01^AD"
^DD(798.01,1,1,1,1)="S ^RORDATA(798,DA(1),1,""AD"",$E(X,1,30),DA)="""""
^DD(798.01,1,1,1,2)="K ^RORDATA(798,DA(1),1,""AD"",$E(X,1,30),DA)"
^DD(798.01,1,1,1,3)="Do not delete!"
^DD(798.01,1,1,1,"DT")="3000426"
^DD(798.01,1,8.5)="@"
^DD(798.01,1,9)="@"
^DD(798.01,1,21,0)="^.001^2^2^3050802^^"
^DD(798.01,1,21,1,0)="The DATE field contains the date when the patient"
^DD(798.01,1,21,2,0)="passed the rule for the first time."
^DD(798.01,1,"DT")="3000426"
^DD(798.01,2,0)="LOCATION^P4'^DIC(4,^0;3^Q"
^DD(798.01,2,8.5)="@"
^DD(798.01,2,9)="@"
^DD(798.01,2,21,0)="^^1^1^3050802^"
^DD(798.01,2,21,1,0)="Location where the selection rule was triggered."
^DD(798.01,2,"DT")="3050802"
^DD(798.01,"B","DATE",1)=""
^DD(798.01,"B","LOCATION",2)=""
^DD(798.01,"B","SELECTION RULE",.01)=""
^DD(798.01,"GL",0,1,.01)=""
^DD(798.01,"GL",0,2,1)=""
^DD(798.01,"GL",0,3,2)=""
^DD(798.01,"IX",.01)=""
^DD(798.01,"IX",1)=""
^DD(798.02,0)="LOCAL FIELD SUB-FIELD^^1^3"
^DD(798.02,0,"DT")="3050812"
^DD(798.02,0,"NM","LOCAL FIELD")=""
^DD(798.02,0,"UP")="798"
^DD(798.02,.01,0)="LOCAL FIELD^M*P799.53'X^ROR(799.53,^0;1^S Y=$P($G(^RORDATA(798,DA,0)),U,2),DIC(""S"")=$S(Y>0:""I $P($G(^(0)),U,3)=""_Y,1:""Q"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(798.02,.01,1,0)="^.1"
^DD(798.02,.01,1,1,0)="798^ALF"
^DD(798.02,.01,1,1,1)="S ^RORDATA(798,""ALF"",$E(X,1,30),DA(1),DA)="""""
^DD(798.02,.01,1,1,2)="K ^RORDATA(798,""ALF"",$E(X,1,30),DA(1),DA)"
^DD(798.02,.01,1,1,3)="Do not delete!"
^DD(798.02,.01,1,1,"DT")="3050811"
^DD(798.02,.01,12)="Only registry-specific records can be selected."
^DD(798.02,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""_$P($G(^RORDATA(798,DA,0)),U,2)"
^DD(798.02,.01,21,0)="^^3^3^3060203^"
^DD(798.02,.01,21,1,0)="This field stores a pointer to the local field"
^DD(798.02,.01,21,2,0)="definition. You can only select from the local"
^DD(798.02,.01,21,3,0)="fields associated with the registry."
^DD(798.02,.01,"DT")="3050818"
^DD(798.02,.02,0)="DATE^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(798.02,.02,21,0)="^^2^2^3050513^"
^DD(798.02,.02,21,1,0)="This field stores the date associated with the"
^DD(798.02,.02,21,2,0)="registry-specific local field value."
^DD(798.02,.02,"DT")="3050513"
^DD(798.02,1,0)="COMMENT^F^^1;E1,250^K:$L(X)>200!($L(X)<1) X"
^DD(798.02,1,3)="Answer must be 1-200 characters in length."
^DD(798.02,1,21,0)="^.001^2^2^3050812^^"
^DD(798.02,1,21,1,0)="This field stores the comment associated with the "
^DD(798.02,1,21,2,0)="registry-specific local field value."
^DD(798.02,1,"DT")="3050812"
^DD(798.02,"B","COMMENT",1)=""
^DD(798.02,"B","DATE",.02)=""
^DD(798.02,"B","LOCAL FIELD",.01)=""
^DD(798.02,"GL",0,1,.01)=""
^DD(798.02,"GL",0,2,.02)=""
^DD(798.02,"GL",1,"E1,250",1)=""
^DD(798.02,"IX",.01)=""
^DD(798.1,0)="FIELD^^30^35"
^DD(798.1,0,"DDA")="N"
^DD(798.1,0,"DT")="3051129"
^DD(798.1,0,"ID","WRITE")="D EN^DDIOL(""  ""_$P($G(^(0)),U,4),,""?30"")"
^DD(798.1,0,"IX","ACL",798.118,.01)=""
^DD(798.1,0,"IX","AEP",798.1,25)=""
^DD(798.1,0,"IX","ARULES",798.13,.01)=""
^DD(798.1,0,"NM","ROR REGISTRY PARAMETERS")=""
^DD(798.1,0,"PT",798,.02)=""
^DD(798.1,0,"PT",798.31,.01)=""
^DD(798.1,0,"PT",798.6,.02)=""
^DD(798.1,0,"PT",798.73,.01)=""
^DD(798.1,0,"PT",798.8,.03)=""
^DD(798.1,0,"PT",799.1,.03)=""
^DD(798.1,0,"PT",799.51,.02)=""
^DD(798.1,0,"PT",799.53,.03)=""
^DD(798.1,0,"SCR")="I $$ACCESS^RORDD(798.1,Y)"
^DD(798.1,0,"VR")="1.5"
^DD(798.1,0,"VRPK")="ROR"
^DD(798.1,0,"VRRV")="1.5^ROR 1.5"
^DD(798.1,.01,0)="REGISTRY NAME^RFX^^0;1^Q:$$VAEDT^RORDD(798.1,$G(DA))  K:$L(X)>30!($L(X)<3)!'(X?1.UNP) X"
^DD(798.1,.01,1,0)="^.1^^0"
^DD(798.1,.01,3)="Enter the unique registry name (3-30 characters)."
^DD(798.1,.01,8.5)="@"
^DD(798.1,.01,9)="@"
^DD(798.1,.01,20,0)="^.3LA^1^1"
^DD(798.1,.01,20,1,0)="DEFINITION"
^DD(798.1,.01,21,0)="^.001^9^9^3060203^^"
^DD(798.1,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.1,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,.01,21,3,0)=" "
^DD(798.1,.01,21,4,0)="You can either select an existing registry or add "
^DD(798.1,.01,21,5,0)="a new one. Registry names must be unique. Names of"
^DD(798.1,.01,21,6,0)="the National registries must start with ""VA""."
^DD(798.1,.01,21,7,0)=" "
^DD(798.1,.01,21,8,0)="You can only select records of those registries"
^DD(798.1,.01,21,9,0)="that you have appropriate security key(s) for."
^DD(798.1,.01,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,.01,"DT")="3060203"
^DD(798.1,.09,0)="NATIONAL^SX^0:NO;1:YES;^0;11^Q:$$VAEDT^RORDD(798.1,,-1)"
^DD(798.1,.09,8.5)="@"
^DD(798.1,.09,9)="@"
^DD(798.1,.09,20,0)="^.3LA^1^1"
^DD(798.1,.09,20,1,0)="DEFINITION"
^DD(798.1,.09,21,0)="^^6^6^3060203^"
^DD(798.1,.09,21,1,0)="ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN"
^DD(798.1,.09,21,2,0)="EDIT THIS FIELD!"
^DD(798.1,.09,21,3,0)=" "
^DD(798.1,.09,21,4,0)="The national registries must have this field set"
^DD(798.1,.09,21,5,0)="to ""YES"". This prevents local editing of other "
^DD(798.1,.09,21,6,0)="fields of national registry definitions."
^DD(798.1,.09,"DEL",1,0)="I $$VADEL^RORDD(798.1,,-1)"
^DD(798.1,.09,"DT")="3011120"
^DD(798.1,1,0)="REGISTRY UPDATED UNTIL^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.1,1,20,0)="^.3LA^1^1"
^DD(798.1,1,20,1,0)="STATE"
^DD(798.1,1,21,0)="^^9^9^3060203^"
^DD(798.1,1,21,1,0)="This field indicates the date of the last "
^DD(798.1,1,21,2,0)="successful run of the regular registry update"
^DD(798.1,1,21,3,0)="process. The search engine looks for new patients"
^DD(798.1,1,21,4,0)="starting from this date."
^DD(798.1,1,21,5,0)=" "
^DD(798.1,1,21,6,0)="Usually, this field should not be manually edited;"
^DD(798.1,1,21,7,0)="it is updated automatically. Before initial"
^DD(798.1,1,21,8,0)="population of the registry, enter the date that the"
^DD(798.1,1,21,9,0)="data search should start from."
^DD(798.1,1,23,0)="^.001^3^3^3060203^^^"
^DD(798.1,1,23,1,0)="This field is updated automatically by the registry "
^DD(798.1,1,23,2,0)="update process after successful completion (see the "
^DD(798.1,1,23,3,0)="$$TMSTMP^RORUPD01 function for details)."
^DD(798.1,1,"DT")="3010928"
^DD(798.1,2,0)="DATA EXTRACTED UNTIL^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.1,2,20,0)="^.3LA^1^1"
^DD(798.1,2,20,1,0)="STATE"
^DD(798.1,2,21,0)="^.001^3^3^3020816^^"
^DD(798.1,2,21,1,0)="This field indicates the date of the last "
^DD(798.1,2,21,2,0)="successful run of the regular data extraction"
^DD(798.1,2,21,3,0)="process. Do not edit this field."
^DD(798.1,2,23,0)="^.001^3^3^3020816^^"
^DD(798.1,2,23,1,0)="This field is updated automatically by the regular data"
^DD(798.1,2,23,2,0)="extraction process after its successful completion (see"
^DD(798.1,2,23,3,0)="the $$TMSTMP^ROREXTUT function for details)."
^DD(798.1,2,"DT")="3010928"
^DD(798.1,3,0)="SELECTION RULE^798.13^^1;0"
^DD(798.1,3,9)="@"
^DD(798.1,3,20,0)="^.3LA^1^1"
^DD(798.1,3,20,1,0)="DEFINITION"
^DD(798.1,3,21,0)="^.001^8^8^3051031^^^^"
^DD(798.1,3,21,1,0)="The SELECTION RULE field contains a list of the "
^DD(798.1,3,21,2,0)="top-level selection rules that are used to screen"
^DD(798.1,3,21,3,0)="the patients to be added to the registry."
^DD(798.1,3,21,4,0)=" "
^DD(798.1,3,21,5,0)="The records of the multiple are uniquely "
^DD(798.1,3,21,6,0)="identified by the selection rule names. The ""A"""
^DD(798.1,3,21,7,0)="primary key and the uniqueness index ""B"" are used"
^DD(798.1,3,21,8,0)="for this purpose."
^DD(798.1,4,0)="SHORT DESCRIPTION^RFX^^0;4^Q:$$VAEDT^RORDD(798.1,$G(DA))  K:$L(X)>40!($L(X)<3) X"
^DD(798.1,4,3)="Enter a short description of the registry (3-40 characters)."
^DD(798.1,4,8.5)="@"
^DD(798.1,4,9)="@"
^DD(798.1,4,21,0)="^.001^2^2^3020403^^"
^DD(798.1,4,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.1,4,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,4,"DT")="3011109"
^DD(798.1,5,0)="DESCRIPTION^798.15^^2;0"
^DD(798.1,5,21,0)="^.001^2^2^3011009^^^"
^DD(798.1,5,21,1,0)="Any additional reference information related to"
^DD(798.1,5,21,2,0)="the registry may be stored in this field."
^DD(798.1,5,23,0)="^.001^1^1^3011009^^"
^DD(798.1,5,23,1,0)="Content of this field is not used by the application."
^DD(798.1,6.1,0)="BEFORE UPDATE^FX^^4;E1,245^Q:$$VAEDT^RORDD(798.1,$G(DA))  Q:$$EP^RORDD(3)"
^DD(798.1,6.1,3)="Answer must be $$TAG^ROUTINE (5-19 characters in length)."
^DD(798.1,6.1,8.5)="@"
^DD(798.1,6.1,9)="@"
^DD(798.1,6.1,20,0)="^.3LA^1^1"
^DD(798.1,6.1,20,1,0)="DEFINITION"
^DD(798.1,6.1,21,0)="^.001^7^7^3050427^^^^"
^DD(798.1,6.1,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.1,6.1,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,6.1,21,3,0)=" "
^DD(798.1,6.1,21,4,0)="Enter a full name ($$TAG^ROUTINE) of the external"
^DD(798.1,6.1,21,5,0)="MUMPS function that will be called before adding a"
^DD(798.1,6.1,21,6,0)="new record to the registry. This entry point can"
^DD(798.1,6.1,21,7,0)="be used to prepare any additional data."
^DD(798.1,6.1,23,0)="^^20^20^3050427^"
^DD(798.1,6.1,23,1,0)="The call-back entry point must accept three parameters:"
^DD(798.1,6.1,23,2,0)=" "
^DD(798.1,6.1,23,3,0)="FDA - A reference to a local array that contains "
^DD(798.1,6.1,23,4,0)="prepared data (for the UPDATE^DIE FileMan DSB call)"
^DD(798.1,6.1,23,5,0)="that should be stored as a new record in the ROR"
^DD(798.1,6.1,23,6,0)="REGISTRY RECORD (#798) file."
^DD(798.1,6.1,23,7,0)=" "
^DD(798.1,6.1,23,8,0)="The main record uses ""+1,"" placeholder and records of"
^DD(798.1,6.1,23,9,0)="the SELECTION RULE multiple use placeholders with"
^DD(798.1,6.1,23,10,0)="numbers starting from 1001."
^DD(798.1,6.1,23,11,0)=" "
^DD(798.1,6.1,23,12,0)="See the source code of the $$ADD^RORUPD50 function and"
^DD(798.1,6.1,23,13,0)="the FileMan Programmer Manual for further details."
^DD(798.1,6.1,23,14,0)=" "
^DD(798.1,6.1,23,15,0)="PATIEN - Patient IEN (in the file #2)"
^DD(798.1,6.1,23,16,0)=" "
^DD(798.1,6.1,23,17,0)="REGIEN - Registry IEN (in the file #798.1)"
^DD(798.1,6.1,23,18,0)=" "
^DD(798.1,6.1,23,19,0)="The function should return a negative number in case of"
^DD(798.1,6.1,23,20,0)="errors. Otherwise, zero should be returned."
^DD(798.1,6.1,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,6.1,"DT")="3011120"
^DD(798.1,6.2,0)="AFTER UPDATE^FX^^5;E1,245^Q:$$VAEDT^RORDD(798.1,$G(DA))  Q:$$EP^RORDD(3)"
^DD(798.1,6.2,3)="Answer must be $$TAG^ROUTINE (5-19 characters in length)."
^DD(798.1,6.2,8.5)="@"
^DD(798.1,6.2,9)="@"
^DD(798.1,6.2,20,0)="^.3LA^1^1"
^DD(798.1,6.2,20,1,0)="DEFINITION"
^DD(798.1,6.2,21,0)="^.001^8^8^3020816^^"
^DD(798.1,6.2,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.1,6.2,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,6.2,21,3,0)=" "
^DD(798.1,6.2,21,4,0)="Enter a full name ($$TAG^ROUTINE) of the external"
^DD(798.1,6.2,21,5,0)="MUMPS function that will be called after adding a"
^DD(798.1,6.2,21,6,0)="new record to the registry. This entry point can"
^DD(798.1,6.2,21,7,0)="be used to create record(s) in additional linked"
^DD(798.1,6.2,21,8,0)="file(s) of the local registry."
^DD(798.1,6.2,23,0)="^^11^11^3050427^"
^DD(798.1,6.2,23,1,0)="The call-back function must accept three parameters:"
^DD(798.1,6.2,23,2,0)=" "
^DD(798.1,6.2,23,3,0)="IEN - An IEN of the newly added record of the ROR"
^DD(798.1,6.2,23,4,0)="REGISTRY RECORD file"
^DD(798.1,6.2,23,5,0)=" "
^DD(798.1,6.2,23,6,0)="PATIEN - Patient IEN (in file #2)"
^DD(798.1,6.2,23,7,0)=" "
^DD(798.1,6.2,23,8,0)="REGIEN - Registry IEN (in file #798.1)"
^DD(798.1,6.2,23,9,0)=" "
^DD(798.1,6.2,23,10,0)="The function should return a negative number in case of"
^DD(798.1,6.2,23,11,0)="errors. Otherwise, zero should be returned."
^DD(798.1,6.2,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,6.2,"DT")="3011120"
^DD(798.1,7,0)="EXTRACT PERIOD FOR NEW PATIENT^NJ5,0X^^0;5^Q:$$VAEDT^RORDD(798.1,$G(DA))  K:+X'=X!(X>15000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.1,7,3)="Enter number of days between 1 and 15000."
^DD(798.1,7,8.5)="@"
^DD(798.1,7,9)="@"
^DD(798.1,7,20,0)="^.3LA^1^1"
^DD(798.1,7,20,1,0)="DEFINITION"
^DD(798.1,7,21,0)="^.001^11^11^3030717^^^"
^DD(798.1,7,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.1,7,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,7,21,3,0)=" "
^DD(798.1,7,21,4,0)="Enter the number of days that should be subtracted"
^DD(798.1,7,21,5,0)="from the earliest date when the patient passed one"
^DD(798.1,7,21,6,0)="of the selection rules. The result will be used as"
^DD(798.1,7,21,7,0)="the start date of the data extraction for this new"
^DD(798.1,7,21,8,0)="patient."
^DD(798.1,7,21,9,0)=" "
^DD(798.1,7,21,10,0)="If this field is empty, the default value of 3650"
^DD(798.1,7,21,11,0)="is used."
^DD(798.1,7,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,7,"DT")="3011109"
^DD(798.1,7,"V",0)="^.12P"
^DD(798.1,8,0)="ENABLE LOG^S^0:NO;1:YES;^0;6^Q"
^DD(798.1,8,20,0)="^.3LA^1^1"
^DD(798.1,8,20,1,0)="PARAMETERS"
^DD(798.1,8,21,0)="^^3^3^3060203^"
^DD(798.1,8,21,1,0)="Select ""YES"" to enable recording of different "
^DD(798.1,8,21,2,0)="kinds of events (debug messages, errors, etc.)"
^DD(798.1,8,21,3,0)="generated by registry processes."
^DD(798.1,8,23,0)="^.001^10^10^3060203^^"
^DD(798.1,8,23,1,0)="The ENABLE LOG field controls recording of the errors"
^DD(798.1,8,23,2,0)="and other events in the log file."
^DD(798.1,8,23,3,0)=" "
^DD(798.1,8,23,4,0)="If internal value of the field is 0 or the field is "
^DD(798.1,8,23,5,0)="empty, the recording of all events associated with the"
^DD(798.1,8,23,6,0)="registry is disabled."
^DD(798.1,8,23,7,0)=" "
^DD(798.1,8,23,8,0)="If internal value of the field is 1, content of the"
^DD(798.1,8,23,9,0)="LOG EVENT multiple is analyzed to determine which"
^DD(798.1,8,23,10,0)="events (errors, warnings, etc.) should be recorded."
^DD(798.1,8,"DT")="3000503"
^DD(798.1,8.1,0)="LOG EVENT^798.11S^^3;0"
^DD(798.1,8.1,20,0)="^.3LA^^0"
^DD(798.1,8.1,21,0)="^.001^8^8^3060203^^"
^DD(798.1,8.1,21,1,0)="The LOG EVENT multiple contain a list of event "
^DD(798.1,8.1,21,2,0)="types that are enabled to record. "
^DD(798.1,8.1,21,3,0)=" "
^DD(798.1,8.1,21,4,0)="If the list is empty and recording is enabled, "
^DD(798.1,8.1,21,5,0)="all events except debug messages will be recorded."
^DD(798.1,8.1,21,6,0)=" "
^DD(798.1,8.1,21,7,0)="Otherwise, only recording of the events from the"
^DD(798.1,8.1,21,8,0)="list and error messages will be enabled."
^DD(798.1,8.1,"DT")="3050722"
^DD(798.1,10,0)="MESSAGE BUILDER^FX^^7;E1,245^Q:$$VAEDT^RORDD(798.1,$G(DA))  Q:$$EP^RORDD(4)"
^DD(798.1,10,3)="Answer must be $$TAG^ROUTINE (5-19 characters in length)."
^DD(798.1,10,8.5)="@"
^DD(798.1,10,9)="@"
^DD(798.1,10,20,0)="^.3LA^1^1"
^DD(798.1,10,20,1,0)="DEFINITION"
^DD(798.1,10,21,0)="^^10^10^3060106^"
^DD(798.1,10,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.1,10,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,10,21,3,0)=" "
^DD(798.1,10,21,4,0)="Enter a full name ($$TAG^ROUTINE) of the external "
^DD(798.1,10,21,5,0)="MUMPS function that will be called to generate the"
^DD(798.1,10,21,6,0)="registry-specific section of the HL7 message for"
^DD(798.1,10,21,7,0)="each record of the registry."
^DD(798.1,10,21,8,0)=" "
^DD(798.1,10,21,9,0)="If this field has no value, the default entry "
^DD(798.1,10,21,10,0)="point ($$REGDATA^ROREXT02) will be used."
^DD(798.1,10,23,0)="^^28^28^3060106^"
^DD(798.1,10,23,1,0)="The call-back function must accept four parameters:"
^DD(798.1,10,23,2,0)=" "
^DD(798.1,10,23,3,0)="IEN - IEN of the registry record"
^DD(798.1,10,23,4,0)=" "
^DD(798.1,10,23,5,0)="PATIEN - Patient IEN (in the file #2)"
^DD(798.1,10,23,6,0)=" "
^DD(798.1,10,23,7,0)="[.]DXDTS - Either a single time frame in "
^DD(798.1,10,23,8,0)="StartDate^EndDate format or a reference to a local "
^DD(798.1,10,23,9,0)="variable containing the list of data extraction time "
^DD(798.1,10,23,10,0)="frames. The main time frame should be stored in the"
^DD(798.1,10,23,11,0)="root node (see the $$DXPERIOD^ROREXTUT function for "
^DD(798.1,10,23,12,0)="details):"
^DD(798.1,10,23,13,0)=" "
^DD(798.1,10,23,14,0)="  DXDTS(         StartDate^EndDate  (FileMan)"
^DD(798.1,10,23,15,0)="    DataArea,"
^DD(798.1,10,23,16,0)="      i)         StartDate^EndDate  (FileMan)"
^DD(798.1,10,23,17,0)=" "
^DD(798.1,10,23,18,0)="The function should add the text of the HL7 message "
^DD(798.1,10,23,19,0)="after already existing nodes in the standard location:"
^DD(798.1,10,23,20,0)="^TMP(""HLS"",$J). DO NOT KILL THIS NODE! It contains the"
^DD(798.1,10,23,21,0)="previous messages of the batch."
^DD(798.1,10,23,22,0)=" "
^DD(798.1,10,23,23,0)="If the message was generated successfully, the function"
^DD(798.1,10,23,24,0)="should return zero. A negative value corresponds to the"
^DD(798.1,10,23,25,0)="error code."
^DD(798.1,10,23,26,0)="                                                                    "
^DD(798.1,10,23,27,0)="See the source code of the $$REGDATA^ROREXT02 function "
^DD(798.1,10,23,28,0)="for further details."
^DD(798.1,10,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,10,"DT")="3011120"
^DD(798.1,11,0)="REGISTRY STATUS^S^0:ACTIVE;1:INACTIVE;^0;7^Q"
^DD(798.1,11,1,0)="^.1^^0"
^DD(798.1,11,20,0)="^.3LA^1^1"
^DD(798.1,11,20,1,0)="PARAMETERS"
^DD(798.1,11,21,0)="^.001^3^3^3020816^^"
^DD(798.1,11,21,1,0)="Select the ""INACTIVE"" code if you want to exclude"
^DD(798.1,11,21,2,0)="the registry from the regular registry updates and"
^DD(798.1,11,21,3,0)="data transmissions."
^DD(798.1,11,"DT")="3020424"
^DD(798.1,12,0)="EXTRACTED RESULT^798.112I^^8;0"
^DD(798.1,12,9)="@"
^DD(798.1,12,20,0)="^.3LA^1^1"
^DD(798.1,12,20,1,0)="DEFINITION"
^DD(798.1,12,21,0)="^.001^3^3^3020816^^"
^DD(798.1,12,21,1,0)="This multiple contains a list of Lab result codes."
^DD(798.1,12,21,2,0)="These results will be extracted and transmitted to"
^DD(798.1,12,21,3,0)="AAC."
^DD(798.1,12,"DT")="3010629"
^DD(798.1,13,0)="PROTOCOL^*P101'X^ORD(101,^9;1^Q:$$VAEDT^RORDD(798.1,$G(DA))  S DIC(""S"")=""S D=$G(^(0)) I $E($P(D,U),1,3)=""""ROR"""",$P(D,U,4)=""""E"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(798.1,13,3)=""
^DD(798.1,13,8.5)="@"
^DD(798.1,13,9)="@"
^DD(798.1,13,12)="Only Event Drivers from the ""ROR"" namespace can be selected!"
^DD(798.1,13,12.1)="S DIC(""S"")=""S D=$G(^(0)) I $E($P(D,U),1,3)=""""ROR"""",$P(D,U,4)=""""E"""""""
^DD(798.1,13,20,0)="^.3LA^2^2"
^DD(798.1,13,20,1,0)="HL7"
^DD(798.1,13,20,2,0)="DEFINITION"
^DD(798.1,13,21,0)="^.001^6^6^3060106^^^^"
^DD(798.1,13,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.1,13,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,13,21,3,0)=" "
^DD(798.1,13,21,4,0)="This field contains a pointer to the protocol in "
^DD(798.1,13,21,5,0)="the PROTOCOL file that is used as the event driver"
^DD(798.1,13,21,6,0)="for sending HL7 messages."
^DD(798.1,13,23,0)="^^5^5^3060106^"
^DD(798.1,13,23,1,0)="If several registries are processed by the same nightly"
^DD(798.1,13,23,2,0)="task and they have different values of the PROTOCOL"
^DD(798.1,13,23,3,0)="field, then the registries are grouped by the value of"
^DD(798.1,13,23,4,0)="this field and data extraction is performed separately"
^DD(798.1,13,23,5,0)="for each of those groups."
^DD(798.1,13,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,13,"DT")="3011112"
^DD(798.1,13.1,0)="MAXIMUM MESSAGE SIZE^NJ4,1^^9;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(798.1,13.1,3)="Enter maximum size (in megabytes) between 0 and 99, 1 decimal digit."
^DD(798.1,13.1,8.5)="@"
^DD(798.1,13.1,9)="@"
^DD(798.1,13.1,20,0)="^.3LA^2^2"
^DD(798.1,13.1,20,1,0)="HL7"
^DD(798.1,13.1,20,2,0)="PARAMETERS"
^DD(798.1,13.1,21,0)="^.001^8^8^3060203^^"
^DD(798.1,13.1,21,1,0)="This field stores the maximum size (in megabytes)"
^DD(798.1,13.1,21,2,0)="of a batch HL7 message that can be sent to Austin"
^DD(798.1,13.1,21,3,0)="Automation Center (AAC). If this field is empty or"
^DD(798.1,13.1,21,4,0)="contains 0, the size is not limited."
^DD(798.1,13.1,21,5,0)=" "
^DD(798.1,13.1,21,6,0)="You must coordinate your intentions with AAC"
^DD(798.1,13.1,21,7,0)="support personnel if you are going to edit this"
^DD(798.1,13.1,21,8,0)="field."
^DD(798.1,13.1,23,0)="^^8^8^3060203^"
^DD(798.1,13.1,23,1,0)="Actual size of an HL7 batch can be greater than the"
^DD(798.1,13.1,23,2,0)="value of this field because the software does not break"
^DD(798.1,13.1,23,3,0)="in the middle of an individual HL7 message."
^DD(798.1,13.1,23,4,0)=" "
^DD(798.1,13.1,23,5,0)="For example, if the maximum size is 10Mb, the current"
^DD(798.1,13.1,23,6,0)="size is 9Mb and 3Mb should be sent for the patient"
^DD(798.1,13.1,23,7,0)="being processed, then the actual size of the batch will"
^DD(798.1,13.1,23,8,0)="be 12Mb."
^DD(798.1,13.1,"DT")="3020730"
^DD(798.1,13.2,0)="ALERT FREQUENCY^NJ2,0^^9;3^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.1,13.2,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(798.1,13.2,8.5)="@"
^DD(798.1,13.2,9)="@"
^DD(798.1,13.2,11,0)="^.2LAP^^0"
^DD(798.1,13.2,20,0)="^.3LA^2^2"
^DD(798.1,13.2,20,1,0)="HL7"
^DD(798.1,13.2,20,2,0)="PARAMETERS"
^DD(798.1,13.2,21,0)="^.001^20^20^3060203^^"
^DD(798.1,13.2,21,1,0)="Value of the ALERT FREQUENCY field determines how"
^DD(798.1,13.2,21,2,0)="often e-mail notifications and VistA alerts are "
^DD(798.1,13.2,21,3,0)="sent to the AAC and local staff in case of"
^DD(798.1,13.2,21,4,0)="problems with the site's CCR software (data"
^DD(798.1,13.2,21,5,0)="extraction problems, unsent HL7 messages, etc.)."
^DD(798.1,13.2,21,6,0)=" "
^DD(798.1,13.2,21,7,0)="If this field is empty or 0, notifications are"
^DD(798.1,13.2,21,8,0)="not sent."
^DD(798.1,13.2,21,9,0)=" "
^DD(798.1,13.2,21,10,0)="Otherwise, the nightly task increments the error"
^DD(798.1,13.2,21,11,0)="counters and checks the remainders from division"
^DD(798.1,13.2,21,12,0)="of the counters by the value of this field. When a"
^DD(798.1,13.2,21,13,0)="reminder becomes 0, the software sends the"
^DD(798.1,13.2,21,14,0)="corresponding e-mail notification to the AAC and"
^DD(798.1,13.2,21,15,0)="generates the VistA alert to the local staff"
^DD(798.1,13.2,21,16,0)="listed in the NOTIFICATION multiple (14)."
^DD(798.1,13.2,21,17,0)=" "
^DD(798.1,13.2,21,18,0)="For example, if the nightly task runs every night "
^DD(798.1,13.2,21,19,0)="and the ALERT FREQUENCY is 2, then alerts and "
^DD(798.1,13.2,21,20,0)="notifications will be sent every other night."
^DD(798.1,13.2,23,0)="^.001^3^3^3060203^^^"
^DD(798.1,13.2,23,1,0)="See description of the HL7 PROBLEM COUNTER field (19.3)"
^DD(798.1,13.2,23,2,0)="and source code of the $$CHECKMSG^ROR10 function for"
^DD(798.1,13.2,23,3,0)="more details."
^DD(798.1,13.2,"DT")="3050503"
^DD(798.1,13.3,0)="NATIONAL NOTIFICATION E-MAIL^FX^^9;4^Q:$$VAEDT^RORDD(798.1,$G(DA))  K:$L(X)>50!($L(X)<3)!(X'?1.ANP1""@""1.ANP) X"
^DD(798.1,13.3,3)="Answer must be a valid e-mail address (3-50 characters in length)."
^DD(798.1,13.3,8.5)="@"
^DD(798.1,13.3,9)="@"
^DD(798.1,13.3,20,0)="^.3LA^1^1"
^DD(798.1,13.3,20,1,0)="DEFINITION"
^DD(798.1,13.3,21,0)="^.001^10^10^3060203^^"
^DD(798.1,13.3,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.1,13.3,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,13.3,21,3,0)=" "
^DD(798.1,13.3,21,4,0)="The NATIONAL NOTIFICATION E-MAIL field holds an "
^DD(798.1,13.3,21,5,0)="e-mail address where notifications about registry"
^DD(798.1,13.3,21,6,0)="problems (mostly, data transmission problems) are"
^DD(798.1,13.3,21,7,0)="sent to."
^DD(798.1,13.3,21,8,0)=" "
^DD(798.1,13.3,21,9,0)="If the field is empty, e-mail notifications will"
^DD(798.1,13.3,21,10,0)="not be sent."
^DD(798.1,13.3,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,13.3,"DT")="3030429"
^DD(798.1,14,0)="NOTIFICATION^798.114P^^10;0"
^DD(798.1,14,21,0)="^.001^3^3^3050525^^^"
^DD(798.1,14,21,1,0)="This multiple contains a list of VistA users that"
^DD(798.1,14,21,2,0)="should be notified about problems with the local"
^DD(798.1,14,21,3,0)="registry."
^DD(798.1,14,"DT")="3050427"
^DD(798.1,15.1,0)="LAG DAYS^NJ1,0^^11;1^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.1,15.1,3)="Enter number of days between 1 and 7."
^DD(798.1,15.1,20,0)="^.3LA^1^1"
^DD(798.1,15.1,20,1,0)="PARAMETERS"
^DD(798.1,15.1,21,0)="^.001^12^12^3020816^^^"
^DD(798.1,15.1,21,1,0)="Number of days that defines an overlap of the data"
^DD(798.1,15.1,21,2,0)="searches during the registry updates and a data"
^DD(798.1,15.1,21,3,0)="extraction delay during the regular data"
^DD(798.1,15.1,21,4,0)="extractions."
^DD(798.1,15.1,21,5,0)=" "
^DD(798.1,15.1,21,6,0)="If this field is empty, the default value of 1 is "
^DD(798.1,15.1,21,7,0)="used by the registry update and data extraction"
^DD(798.1,15.1,21,8,0)="processes."
^DD(798.1,15.1,21,9,0)=" "
^DD(798.1,15.1,21,10,0)="See the package documentation or Technical"
^DD(798.1,15.1,21,11,0)="Description of the field in the data dictionary"
^DD(798.1,15.1,21,12,0)="for more information."
^DD(798.1,15.1,23,0)="^^37^37^3060203^"
^DD(798.1,15.1,23,1,0)="Clinical data may be entered into the VistA system "
^DD(798.1,15.1,23,2,0)="later than they are available. For example, an"
^DD(798.1,15.1,23,3,0)="encounter that occurred today may not get entered into"
^DD(798.1,15.1,23,4,0)="the system until tomorrow."
^DD(798.1,15.1,23,5,0)=" "
^DD(798.1,15.1,23,6,0)="Because of this delay, data may be missed by the"
^DD(798.1,15.1,23,7,0)="registry update and data extraction processes if they"
^DD(798.1,15.1,23,8,0)="look for the data until the current date and then"
^DD(798.1,15.1,23,9,0)="continue from that point next time."
^DD(798.1,15.1,23,10,0)=" "
^DD(798.1,15.1,23,11,0)="To avoid this problem, data search intervals are "
^DD(798.1,15.1,23,12,0)="overlapped by the number of days indicated by this "
^DD(798.1,15.1,23,13,0)="field. The registry update process looks for new data "
^DD(798.1,15.1,23,14,0)="not from the end date of its previous run but from the "
^DD(798.1,15.1,23,15,0)="date that is earlier by the number of days from this "
^DD(798.1,15.1,23,16,0)="field. This overlap increases the chances of data"
^DD(798.1,15.1,23,17,0)="entered retrospectively to be found by the next run of"
^DD(798.1,15.1,23,18,0)="the registry update process."
^DD(798.1,15.1,23,19,0)=" "
^DD(798.1,15.1,23,20,0)="Moreover, the regular data extraction process extracts"
^DD(798.1,15.1,23,21,0)="data not until the date when the process is run but"
^DD(798.1,15.1,23,22,0)="until the date that is earlier by the number of days"
^DD(798.1,15.1,23,23,0)="from this field. So, this is a delay that allows the"
^DD(798.1,15.1,23,24,0)="data to be entered retrospectively before the next data"
^DD(798.1,15.1,23,25,0)="extraction."
^DD(798.1,15.1,23,26,0)=" "
^DD(798.1,15.1,23,27,0)="If the value of this field is too small, you may miss "
^DD(798.1,15.1,23,28,0)="some data entered retrospectively. If it is too big,"
^DD(798.1,15.1,23,29,0)="the national registry will not contain up to date"
^DD(798.1,15.1,23,30,0)="information (data will be delayed by the number of days"
^DD(798.1,15.1,23,31,0)="indicated by this field) and the registry update"
^DD(798.1,15.1,23,32,0)="process will take more time to complete, because "
^DD(798.1,15.1,23,33,0)="additional time will be spent processing the data from"
^DD(798.1,15.1,23,34,0)="the overlap interval)."
^DD(798.1,15.1,23,35,0)=" "
^DD(798.1,15.1,23,36,0)="When several registries are processed at the same time,"
^DD(798.1,15.1,23,37,0)="the maximum value of the LAG DAYS field is used."
^DD(798.1,15.1,"DT")="3020426"
^DD(798.1,18,0)="SECURITY KEY^798.118^^18;0"
^DD(798.1,18,9)="@"
^DD(798.1,18,20,0)="^.3LA^1^1"
^DD(798.1,18,20,1,0)="DEFINITION"
^DD(798.1,18,21,0)="^.001^2^2^3050722^^^^"
^DD(798.1,18,21,1,0)="This multiple stores a list of security keys "
^DD(798.1,18,21,2,0)="associated with the registry."
^DD(798.1,19.1,0)="NUMBER OF PATIENTS^NJ9,0^^19;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.1,19.1,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(798.1,19.1,8.5)="@"
^DD(798.1,19.1,9)="@"
^DD(798.1,19.1,20,0)="^.3LA^1^1"
^DD(798.1,19.1,20,1,0)="STATE"
^DD(798.1,19.1,21,0)="^.001^3^3^3060106^^^"
^DD(798.1,19.1,21,1,0)="The NUMBER OF PATIENTS field contains total number"
^DD(798.1,19.1,21,2,0)="of confirmed patients in the registry right after"
^DD(798.1,19.1,21,3,0)="the last registry update."
^DD(798.1,19.1,23,0)="^.001^3^3^3060203^^"
^DD(798.1,19.1,23,1,0)="This field should not be edited. It is updated"
^DD(798.1,19.1,23,2,0)="automatically by the $$UPDDEM^RORUPD51 function during"
^DD(798.1,19.1,23,3,0)="the registry update."
^DD(798.1,19.1,"DT")="3031027"
^DD(798.1,19.2,0)="NUMBER OF PENDING PATIENTS^NJ9,0^^19;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.1,19.2,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(798.1,19.2,8.5)="@"
^DD(798.1,19.2,9)="@"
^DD(798.1,19.2,20,0)="^.3LA^1^1"
^DD(798.1,19.2,20,1,0)="STATE"
^DD(798.1,19.2,21,0)="^.001^3^3^3060106^^"
^DD(798.1,19.2,21,1,0)="The NUMBER OF PENDING PATIENTS field stores number"
^DD(798.1,19.2,21,2,0)="of pending patients in the registry right after"
^DD(798.1,19.2,21,3,0)="the last registry update."
^DD(798.1,19.2,23,0)="^.001^3^3^3060203^^"
^DD(798.1,19.2,23,1,0)="This field should not be edited. It is updated "
^DD(798.1,19.2,23,2,0)="automatically by the $$UPDDEM^RORUPD51 function during"
^DD(798.1,19.2,23,3,0)="the registry update."
^DD(798.1,19.2,"DT")="3050627"
^DD(798.1,19.3,0)="HL7 ATTEMPT COUNTER^NJ3,0^^19;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.1,19.3,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(798.1,19.3,8.5)="@"
^DD(798.1,19.3,9)="@"
^DD(798.1,19.3,20,0)="^.3LA^1^1"
^DD(798.1,19.3,20,1,0)="HL7"
^DD(798.1,19.3,21,0)="^^10^10^3060203^"
^DD(798.1,19.3,21,1,0)="The HL7 ATTEMPT COUNTER field is incremented each"
^DD(798.1,19.3,21,2,0)="time the nightly task (the Registry Update & Data "
^DD(798.1,19.3,21,3,0)="Extraction [ROR TASK] option) encounters at least"
^DD(798.1,19.3,21,4,0)="one unsent HL7 message."
^DD(798.1,19.3,21,5,0)=" "
^DD(798.1,19.3,21,6,0)="The nightly task assigns 1 to the field when new"
^DD(798.1,19.3,21,7,0)="HL7 messages are generated (only if all previous"
^DD(798.1,19.3,21,8,0)="messages have been successfully transmitted)."
^DD(798.1,19.3,21,9,0)=" "
^DD(798.1,19.3,21,10,0)="Usually, you should not edit this field."
^DD(798.1,19.3,23,0)="^.001^3^3^3060203^^^^"
^DD(798.1,19.3,23,1,0)="See description of the ALERT FREQUENCY field (13.2) and"
^DD(798.1,19.3,23,2,0)="source code of the $$CHECKMSG^ROR10 function for more"
^DD(798.1,19.3,23,3,0)="details."
^DD(798.1,19.3,"DT")="3050701"
^DD(798.1,21.01,0)="AUTOMATIC BACKPULL^*P799.6'^RORDATA(799.6,^21;1^S DIC(""S"")=""I $P($G(^(0)),U,2)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(798.1,21.01,8.5)="@"
^DD(798.1,21.01,9)="@"
^DD(798.1,21.01,12)="Only ""Auto"" definitions can be selected."
^DD(798.1,21.01,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,2)=1"""
^DD(798.1,21.01,20,0)="^.3LA^1^1"
^DD(798.1,21.01,20,1,0)="STATE"
^DD(798.1,21.01,21,0)="^^3^3^3051110^"
^DD(798.1,21.01,21,1,0)="This field stores the pointer to the historical "
^DD(798.1,21.01,21,2,0)="data extraction definition that was used during"
^DD(798.1,21.01,21,3,0)="the previous run of the nightly task."
^DD(798.1,21.01,"DT")="3051110"
^DD(798.1,21.04,0)="LOCAL DATA RESENT^D^^21;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.1,21.04,8)=""
^DD(798.1,21.04,8.5)="@"
^DD(798.1,21.04,9)="@"
^DD(798.1,21.04,20,0)="^.3LA^1^1"
^DD(798.1,21.04,20,1,0)="STATE"
^DD(798.1,21.04,21,0)="^.001^10^10^3060203^^"
^DD(798.1,21.04,21,1,0)="This field holds the date when all local registry "
^DD(798.1,21.04,21,2,0)="data was resent to AAC after the installation (to "
^DD(798.1,21.04,21,3,0)="fix the data incorrectly overwritten with the "
^DD(798.1,21.04,21,4,0)="historical data)."
^DD(798.1,21.04,21,5,0)=" "
^DD(798.1,21.04,21,6,0)="Usually, you should not modify this field. If you"
^DD(798.1,21.04,21,7,0)="need to resend all local registry and demographic"
^DD(798.1,21.04,21,8,0)="data to AAC, you should clear this field. The data"
^DD(798.1,21.04,21,9,0)="will be resent automatically during the next"
^DD(798.1,21.04,21,10,0)="nightly transmission."
^DD(798.1,21.04,23,0)="^.001^4^4^3060203^^^^"
^DD(798.1,21.04,23,1,0)="The value of this field is analyzed and modified by the"
^DD(798.1,21.04,23,2,0)="$$REMARK^RORUTL05 function. The function is called by"
^DD(798.1,21.04,23,3,0)="the nightly registry update and data transmission task"
^DD(798.1,21.04,23,4,0)="(TASK^ROR)."
^DD(798.1,21.04,"DT")="3020508"
^DD(798.1,21.05,0)="HDT DATE/TIME^D^^21;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.1,21.05,8.5)="@"
^DD(798.1,21.05,9)="@"
^DD(798.1,21.05,21,0)="^.001^4^4^3060123^^"
^DD(798.1,21.05,21,1,0)="This field is initialized with the current "
^DD(798.1,21.05,21,2,0)="date/time by the registry setup task upon"
^DD(798.1,21.05,21,3,0)="successful completion of the initial registry"
^DD(798.1,21.05,21,4,0)="population."
^DD(798.1,21.05,23,0)="^^4^4^3060123^"
^DD(798.1,21.05,23,1,0)="The field is populated by the $$UPDHDTRP^RORSETU2 "
^DD(798.1,21.05,23,2,0)="function during the registry setup."
^DD(798.1,21.05,23,3,0)=" "
^DD(798.1,21.05,23,4,0)="Do not delete value of this field!"
^DD(798.1,21.05,"DT")="3031027"
^DD(798.1,22,0)="LAST BATCH CONTROL ID^798.122^^22;0"
^DD(798.1,22,9)="@"
^DD(798.1,22,20,0)="^.3LA^1^1"
^DD(798.1,22,20,1,0)="HL7"
^DD(798.1,22,21,0)="^.001^3^3^3060203^^^^"
^DD(798.1,22,21,1,0)="This multiple contains a list of identifiers of"
^DD(798.1,22,21,2,0)="the HL7 batch messages generated during the"
^DD(798.1,22,21,3,0)="previous run of the nightly task."
^DD(798.1,22,23,0)="^^3^3^3060203^"
^DD(798.1,22,23,1,0)="The nightly task checks status of each message from "
^DD(798.1,22,23,2,0)="this multiple before the registry update and data"
^DD(798.1,22,23,3,0)="extraction."
^DD(798.1,22,"DT")="3050504"
^DD(798.1,25,0)="ENABLE PROTOCOLS^S^0:NO;1:YES;^0;14^Q"
^DD(798.1,25,1,0)="^.1"
^DD(798.1,25,1,1,0)="798.1^AEP^MUMPS"
^DD(798.1,25,1,1,1)="S:X ^ROR(798.1,""AEP"",DA)="""""
^DD(798.1,25,1,1,2)="K ^ROR(798.1,""AEP"",DA)"
^DD(798.1,25,1,1,3)="Do not delete!"
^DD(798.1,25,1,1,"%D",0)="^^10^10^3060203^"
^DD(798.1,25,1,1,"%D",1,0)="This cross-reference controls the package event "
^DD(798.1,25,1,1,"%D",2,0)="protocols."
^DD(798.1,25,1,1,"%D",3,0)=" "
^DD(798.1,25,1,1,"%D",4,0)="If at least one registry has the ENABLE PROTOCOLS"
^DD(798.1,25,1,1,"%D",5,0)="field set to ""YES"", the ^ROR(798.1,""AEP"") node"
^DD(798.1,25,1,1,"%D",6,0)="will be defined and the protocols will call the"
^DD(798.1,25,1,1,"%D",7,0)="processing routines."
^DD(798.1,25,1,1,"%D",8,0)=" "
^DD(798.1,25,1,1,"%D",9,0)="Otherwise, they will run idle unless they are "
^DD(798.1,25,1,1,"%D",10,0)="disabled or unsubscribed manually."
^DD(798.1,25,1,1,"DT")="3020418"
^DD(798.1,25,20,0)="^.3LA^1^1"
^DD(798.1,25,20,1,0)="PARAMETERS"
^DD(798.1,25,21,0)="^^13^13^3060203^"
^DD(798.1,25,21,1,0)="If this field is set to ""YES"", event protocols"
^DD(798.1,25,21,2,0)="will be used by the package to speed up the "
^DD(798.1,25,21,3,0)="registry processing."
^DD(798.1,25,21,4,0)=" "
^DD(798.1,25,21,5,0)="The protocols create references to patient events"
^DD(798.1,25,21,6,0)="in the ROR PATIENT EVENTS file. Only those "
^DD(798.1,25,21,7,0)="patients that have new references will be "
^DD(798.1,25,21,8,0)="processed by the next registry update."
^DD(798.1,25,21,9,0)=" "
^DD(798.1,25,21,10,0)="If several registries are updated at the same "
^DD(798.1,25,21,11,0)="time and at least one of them has this field set "
^DD(798.1,25,21,12,0)="to ""YES"", all these registries will be processed "
^DD(798.1,25,21,13,0)="using event references."
^DD(798.1,25,23,0)="^.001^11^11^3060203^^"
^DD(798.1,25,23,1,0)="This field controls both the registry update engine "
^DD(798.1,25,23,2,0)="and the event protocols."
^DD(798.1,25,23,3,0)=" "
^DD(798.1,25,23,4,0)="If at least one of the defined registries enables the"
^DD(798.1,25,23,5,0)="protocols, they will process the events and create"
^DD(798.1,25,23,6,0)="references in the ROR PATIENT EVENTS file (#798.3)."
^DD(798.1,25,23,7,0)=" "
^DD(798.1,25,23,8,0)="Otherwise, the protocols will be executed (if they are"
^DD(798.1,25,23,9,0)="not disabled or unsubscribed manually) but will not"
^DD(798.1,25,23,10,0)="call processing routines and will not create references"
^DD(798.1,25,23,11,0)="in file #798.3."
^DD(798.1,25,"DT")="3020418"
^DD(798.1,26,0)="EXCLUDE EMPLOYEES^SX^0:NO;1:YES;^0;10^Q:$$VAEDT^RORDD(798.1,$G(DA))"
^DD(798.1,26,8.5)="@"
^DD(798.1,26,9)="@"
^DD(798.1,26,20,0)="^.3LA^1^1"
^DD(798.1,26,20,1,0)="DEFINITION"
^DD(798.1,26,21,0)="^^6^6^3060203^"
^DD(798.1,26,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.1,26,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,26,21,3,0)=" "
^DD(798.1,26,21,4,0)="If this field is set to ""YES"", patients who are"
^DD(798.1,26,21,5,0)="employees will not be processed by the registry"
^DD(798.1,26,21,6,0)="update or data extraction functions."
^DD(798.1,26,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,26,"DT")="3020802"
^DD(798.1,27,0)="AVAILABLE REPORTS^FX^^27;E1,250^Q:$$VAEDT^RORDD(798.1,$G(DA))  K:$L(X)>250!($L(X)<1) X"
^DD(798.1,27,3)="Answer must be 1-250 characters in length."
^DD(798.1,27,8.5)="@"
^DD(798.1,27,9)="@"
^DD(798.1,27,20,0)="^.3LA^1^1"
^DD(798.1,27,20,1,0)="DEFINITION"
^DD(798.1,27,21,0)="^^7^7^3060203^"
^DD(798.1,27,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.1,27,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.1,27,21,3,0)=" "
^DD(798.1,27,21,4,0)="The AVAILABLE REPORTS field stores a list of "
^DD(798.1,27,21,5,0)="report codes (not the IENs!) separated by commas."
^DD(798.1,27,21,6,0)="These reports will be available for this registry"
^DD(798.1,27,21,7,0)="in the GUI."
^DD(798.1,27,23,0)="^.001^5^5^3060203^^^^"
^DD(798.1,27,23,1,0)="The GUI loads the value of this field using the ROR "
^DD(798.1,27,23,2,0)="REPORTS AVAILABLE remote procedure."
^DD(798.1,27,23,3,0)=" "
^DD(798.1,27,23,4,0)="See the data dictionary of the ROR REPORT PARAMETERS "
^DD(798.1,27,23,5,0)="file (#799.12) for more details."
^DD(798.1,27,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA))"
^DD(798.1,27,"DT")="3030417"
^DD(798.1,28,0)="LOCAL TEST NAME^798.128PI^^28;0"
^DD(798.1,28,20,0)="^.3LA^1^1"
^DD(798.1,28,20,1,0)="PARAMETERS"
^DD(798.1,28,21,0)="^.001^3^3^3060106^^"
^DD(798.1,28,21,1,0)="This multiple maps local lab tests to the "
^DD(798.1,28,21,2,0)="predefined lab test groups that are used in the "
^DD(798.1,28,21,3,0)="reports."
^DD(798.1,28,"DT")="3030402"
^DD(798.1,29,0)="LOCAL DRUG NAME^798.129P^^29;0"
^DD(798.1,29,20,0)="^.3LA^1^1"
^DD(798.1,29,20,1,0)="PARAMETERS"
^DD(798.1,29,21,0)="^^3^3^3060106^"
^DD(798.1,29,21,1,0)="This multiple maps local medication names to the"
^DD(798.1,29,21,2,0)="predefined medication groups that are used in the"
^DD(798.1,29,21,3,0)="reports."
^DD(798.1,30,0)="REPORT STATS^798.12P^^30;0"
^DD(798.1,30,9)="@"
^DD(798.1,30,20,0)="^.3LA^1^1"
^DD(798.1,30,20,1,0)="STATE"
^DD(798.1,30,21,0)="^.001^4^4^3050722^^"
^DD(798.1,30,21,1,0)="Records of this multiple store the statistic data "
^DD(798.1,30,21,2,0)="related to running reports. Usually, the stats are"
^DD(798.1,30,21,3,0)="reset after successful data transmission to the"
^DD(798.1,30,21,4,0)="AAC."
^DD(798.1,30,23,0)="^^7^7^3050722^"
^DD(798.1,30,23,1,0)="Please do not edit the records of this multiple"
^DD(798.1,30,23,2,0)="directly. Use the entry points of the RORTSK12 routine"
^DD(798.1,30,23,3,0)="instead."
^DD(798.1,30,23,4,0)=" "
^DD(798.1,30,23,5,0)="The input transform associated with the .01 field of "
^DD(798.1,30,23,6,0)="this multiple guarantees that each report has only one"
^DD(798.1,30,23,7,0)="corresponding record in the multiple."
^DD(798.1,"B","AFTER UPDATE",6.2)=""
^DD(798.1,"B","ALERT FREQUENCY",13.2)=""
^DD(798.1,"B","AUTOMATIC BACKPULL",21.01)=""
^DD(798.1,"B","AVAILABLE REPORTS",27)=""
^DD(798.1,"B","BEFORE UPDATE",6.1)=""
^DD(798.1,"B","DATA EXTRACTED UNTIL",2)=""
^DD(798.1,"B","DESCRIPTION",5)=""
^DD(798.1,"B","ENABLE LOG",8)=""
^DD(798.1,"B","ENABLE PROTOCOLS",25)=""
^DD(798.1,"B","EXCLUDE EMPLOYEES",26)=""
^DD(798.1,"B","EXTRACT PERIOD FOR NEW PATIENT",7)=""
^DD(798.1,"B","EXTRACTED RESULT",12)=""
^DD(798.1,"B","HDT DATE/TIME",21.05)=""
^DD(798.1,"B","HL7 ATTEMPT COUNTER",19.3)=""
^DD(798.1,"B","LAG DAYS",15.1)=""
^DD(798.1,"B","LAST BATCH CONTROL ID",22)=""
^DD(798.1,"B","LOCAL DATA RESENT",21.04)=""
^DD(798.1,"B","LOCAL DRUG NAME",29)=""
^DD(798.1,"B","LOCAL TEST NAME",28)=""
^DD(798.1,"B","LOG EVENT",8.1)=""
^DD(798.1,"B","MAXIMUM MESSAGE SIZE",13.1)=""
^DD(798.1,"B","MESSAGE BUILDER",10)=""
^DD(798.1,"B","NATIONAL",.09)=""
^DD(798.1,"B","NATIONAL NOTIFICATION E-MAIL",13.3)=""
^DD(798.1,"B","NOTIFICATION",14)=""
^DD(798.1,"B","NUMBER OF PATIENTS",19.1)=""
^DD(798.1,"B","NUMBER OF PENDING PATIENTS",19.2)=""
^DD(798.1,"B","PROTOCOL",13)=""
^DD(798.1,"B","REGISTRY NAME",.01)=""
^DD(798.1,"B","REGISTRY STATUS",11)=""
^DD(798.1,"B","REGISTRY UPDATED UNTIL",1)=""
^DD(798.1,"B","REPORT STATS",30)=""
^DD(798.1,"B","SECURITY KEY",18)=""
^DD(798.1,"B","SELECTION RULE",3)=""
^DD(798.1,"B","SHORT DESCRIPTION",4)=""
^DD(798.1,"GL",0,1,.01)=""
^DD(798.1,"GL",0,2,1)=""
^DD(798.1,"GL",0,3,2)=""
^DD(798.1,"GL",0,4,4)=""
^DD(798.1,"GL",0,5,7)=""
^DD(798.1,"GL",0,6,8)=""
^DD(798.1,"GL",0,7,11)=""
^DD(798.1,"GL",0,10,26)=""
^DD(798.1,"GL",0,11,.09)=""
^DD(798.1,"GL",0,14,25)=""
^DD(798.1,"GL",1,0,3)=""
^DD(798.1,"GL",2,0,5)=""
^DD(798.1,"GL",3,0,8.1)=""
^DD(798.1,"GL",4,"E1,245",6.1)=""
^DD(798.1,"GL",5,"E1,245",6.2)=""
^DD(798.1,"GL",7,"E1,245",10)=""
^DD(798.1,"GL",8,0,12)=""
^DD(798.1,"GL",9,1,13)=""
^DD(798.1,"GL",9,2,13.1)=""
^DD(798.1,"GL",9,3,13.2)=""
^DD(798.1,"GL",9,4,13.3)=""
^DD(798.1,"GL",10,0,14)=""
^DD(798.1,"GL",11,1,15.1)=""
^DD(798.1,"GL",18,0,18)=""
^DD(798.1,"GL",19,1,19.1)=""
^DD(798.1,"GL",19,2,19.2)=""
^DD(798.1,"GL",19,3,19.3)=""
^DD(798.1,"GL",21,1,21.01)=""
^DD(798.1,"GL",21,3,21.04)=""
^DD(798.1,"GL",21,4,21.05)=""
^DD(798.1,"GL",22,0,22)=""
^DD(798.1,"GL",27,"E1,250",27)=""
^DD(798.1,"GL",28,0,28)=""
^DD(798.1,"GL",29,0,29)=""
^DD(798.1,"GL",30,0,30)=""
^DD(798.1,"GR","DEFINITION",.01,1)=""
^DD(798.1,"GR","DEFINITION",.09,1)=""
^DD(798.1,"GR","DEFINITION",3,1)=""
^DD(798.1,"GR","DEFINITION",6.1,1)=""
^DD(798.1,"GR","DEFINITION",6.2,1)=""
^DD(798.1,"GR","DEFINITION",7,1)=""
^DD(798.1,"GR","DEFINITION",10,1)=""
^DD(798.1,"GR","DEFINITION",12,1)=""
^DD(798.1,"GR","DEFINITION",13,2)=""
^DD(798.1,"GR","DEFINITION",13.3,1)=""
^DD(798.1,"GR","DEFINITION",18,1)=""
^DD(798.1,"GR","DEFINITION",26,1)=""
^DD(798.1,"GR","DEFINITION",27,1)=""
^DD(798.1,"GR","HL7",13,1)=""
^DD(798.1,"GR","HL7",13.1,1)=""
^DD(798.1,"GR","HL7",13.2,1)=""
^DD(798.1,"GR","HL7",19.3,1)=""
^DD(798.1,"GR","HL7",22,1)=""
^DD(798.1,"GR","PARAMETERS",8,1)=""
^DD(798.1,"GR","PARAMETERS",11,1)=""
^DD(798.1,"GR","PARAMETERS",13.1,2)=""
^DD(798.1,"GR","PARAMETERS",13.2,2)=""
^DD(798.1,"GR","PARAMETERS",15.1,1)=""
^DD(798.1,"GR","PARAMETERS",25,1)=""
^DD(798.1,"GR","PARAMETERS",28,1)=""
^DD(798.1,"GR","PARAMETERS",29,1)=""
^DD(798.1,"GR","STATE",1,1)=""
^DD(798.1,"GR","STATE",2,1)=""
^DD(798.1,"GR","STATE",19.1,1)=""
^DD(798.1,"GR","STATE",19.2,1)=""
^DD(798.1,"GR","STATE",21.01,1)=""
^DD(798.1,"GR","STATE",21.04,1)=""
^DD(798.1,"GR","STATE",30,1)=""
^DD(798.1,"IX",25)=""
^DD(798.1,"RQ",.01)=""
^DD(798.1,"RQ",4)=""
^DD(798.1,"SB",798.11,8.1)=""
^DD(798.1,"SB",798.112,12)=""
^DD(798.1,"SB",798.114,14)=""
^DD(798.1,"SB",798.118,18)=""
^DD(798.1,"SB",798.12,30)=""
^DD(798.1,"SB",798.122,22)=""
^DD(798.1,"SB",798.128,28)=""
^DD(798.1,"SB",798.129,29)=""
^DD(798.1,"SB",798.13,3)=""
^DD(798.1,"SB",798.15,5)=""
^DD(798.11,0)="LOG EVENT SUB-FIELD^^.01^1"
^DD(798.11,0,"DT")="3010712"
^DD(798.11,0,"NM","LOG EVENT")=""
^DD(798.11,0,"UP")="798.1"
^DD(798.11,.01,0)="LOG EVENT^MSX^1:Debug;2:Information;3:Data Quality;4:Warning;5:Database Error;6:Error;^0;1^Q"
^DD(798.11,.01,1,0)="^.1^^0"
^DD(798.11,.01,21,0)="^.001^10^10^3060203^^"
^DD(798.11,.01,21,1,0)="Select the type of the event if you want to enable"
^DD(798.11,.01,21,2,0)="recording of these events. If the list is empty,"
^DD(798.11,.01,21,3,0)="recording of all events is enabled. Otherwise,"
^DD(798.11,.01,21,4,0)="only events from the list and error messages will "
^DD(798.11,.01,21,5,0)="be recorded."
^DD(798.11,.01,21,6,0)=" "
^DD(798.11,.01,21,7,0)="Debug messages are exclusions from this rule (they"
^DD(798.11,.01,21,8,0)="are not logged if the ENABLE LOG field is set to"
^DD(798.11,.01,21,9,0)="""YES"" and this multiple is empty). Their recording"
^DD(798.11,.01,21,10,0)="can only be enabled explicitly."
^DD(798.11,.01,23,0)="^.001^9^9^3060203^^^^"
^DD(798.11,.01,23,1,0)="If several registries are processed at the same time,"
^DD(798.11,.01,23,2,0)="the recording parameters are combined."
^DD(798.11,.01,23,3,0)=" "
^DD(798.11,.01,23,4,0)="If one of the registries requests recording of all "
^DD(798.11,.01,23,5,0)="events, all events except the debug messages (type 1)"
^DD(798.11,.01,23,6,0)="will be recorded for all registries."
^DD(798.11,.01,23,7,0)=" "
^DD(798.11,.01,23,8,0)="Otherwise, merged content of the LOG EVENT multiples"
^DD(798.11,.01,23,9,0)="will determine the events to be recorded."
^DD(798.11,.01,"DT")="3050722"
^DD(798.11,"B","LOG EVENT",.01)=""
^DD(798.11,"GL",0,1,.01)=""
^DD(798.112,0)="EXTRACTED RESULT SUB-FIELD^^.03^3"
^DD(798.112,0,"DT")="3030318"
^DD(798.112,0,"ID","WRITE")="D EN^DDIOL($P(^(0),U,2),"""",""?20"")"
^DD(798.112,0,"IX","B",798.112,.01)=""
^DD(798.112,0,"IX","C",798.112,.02)=""
^DD(798.112,0,"NM","EXTRACTED RESULT")=""
^DD(798.112,0,"UP")="798.1"
^DD(798.112,.01,0)="LOINC CODE^MFX^^0;1^Q:$$VAEDT^RORDD(798.1,$G(DA(1)))  K:X'?1(1.7N,1""*"") X"
^DD(798.112,.01,1,0)="^.1"
^DD(798.112,.01,1,1,0)="798.112^B"
^DD(798.112,.01,1,1,1)="S ^ROR(798.1,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(798.112,.01,1,1,2)="K ^ROR(798.1,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(798.112,.01,1,1,3)="Do not delete!"
^DD(798.112,.01,1,1,"DT")="3010716"
^DD(798.112,.01,3)="Answer must be 1-7 characters in length."
^DD(798.112,.01,8.5)="@"
^DD(798.112,.01,9)="@"
^DD(798.112,.01,21,0)="^^11^11^3011015^"
^DD(798.112,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.112,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.112,.01,21,3,0)=" "
^DD(798.112,.01,21,4,0)="Enter the unique numeric LOINC code (without the"
^DD(798.112,.01,21,5,0)="check digit) of the Lab result to be extracted. If"
^DD(798.112,.01,21,6,0)="you want to use only NLT code, enter zero as the"
^DD(798.112,.01,21,7,0)="value of this field."
^DD(798.112,.01,21,8,0)=" "
^DD(798.112,.01,21,9,0)="If you want to extract all results, create a"
^DD(798.112,.01,21,10,0)="record in this multiple containing the ""*"" "
^DD(798.112,.01,21,11,0)="character in this field."
^DD(798.112,.01,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA(1)))"
^DD(798.112,.01,"DT")="3010716"
^DD(798.112,.02,0)="NLT CODE^FX^^0;2^Q:$$VAEDT^RORDD(798.1,$G(DA(1)))  K:'(X?5N1"".""4.5N) X"
^DD(798.112,.02,1,0)="^.1"
^DD(798.112,.02,1,1,0)="798.112^C"
^DD(798.112,.02,1,1,1)="S ^ROR(798.1,DA(1),8,""C"",$E(X,1,30),DA)="""""
^DD(798.112,.02,1,1,2)="K ^ROR(798.1,DA(1),8,""C"",$E(X,1,30),DA)"
^DD(798.112,.02,1,1,3)="Do not delete!"
^DD(798.112,.02,1,1,"DT")="3010716"
^DD(798.112,.02,3)="Answer must be 10-11 characters in length."
^DD(798.112,.02,8.5)="@"
^DD(798.112,.02,9)="@"
^DD(798.112,.02,21,0)="^^8^8^3011015^"
^DD(798.112,.02,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.112,.02,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.112,.02,21,3,0)=" "
^DD(798.112,.02,21,4,0)="Enter the unique NLT code of the Lab result to be"
^DD(798.112,.02,21,5,0)="extracted. Both LOINC and NLT codes (if available)"
^DD(798.112,.02,21,6,0)="are used for searching the Lab results. If you "
^DD(798.112,.02,21,7,0)="want to use only the LOINC code, leave this field "
^DD(798.112,.02,21,8,0)="empty."
^DD(798.112,.02,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA(1)))"
^DD(798.112,.02,"DT")="3010716"
^DD(798.112,.03,0)="SUBSCRIPTS^FX^^0;3^Q:$$VAEDT^RORDD(798.1,$G(DA(1)))  K:$L(X)>30!($L(X)<2) X"
^DD(798.112,.03,3)="Answer must be 2-30 characters in length."
^DD(798.112,.03,8.5)="@"
^DD(798.112,.03,9)="@"
^DD(798.112,.03,21,0)="^^14^14^3030318^"
^DD(798.112,.03,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.112,.03,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.112,.03,21,3,0)=" "
^DD(798.112,.03,21,4,0)="Enter a list of the subscripts separated by commas"
^DD(798.112,.03,21,5,0)="(CH, MI, etc.) from where the results should be"
^DD(798.112,.03,21,6,0)="loaded by the $$GCPR^LA7QRY function. Only these"
^DD(798.112,.03,21,7,0)="subscripts will be searched for new data."
^DD(798.112,.03,21,8,0)=" "
^DD(798.112,.03,21,9,0)="NOTE: The value of the field affects the data"
^DD(798.112,.03,21,10,0)="extraction only if the LOINC CODE field is equal"
^DD(798.112,.03,21,11,0)="to ""*""."
^DD(798.112,.03,21,12,0)=" "
^DD(798.112,.03,21,13,0)="If this field is empty (by default), the API "
^DD(798.112,.03,21,14,0)="searches through all supported subscripts."
^DD(798.112,.03,"DT")="3030318"
^DD(798.112,"B","LOINC CODE",.01)=""
^DD(798.112,"B","NLT CODE",.02)=""
^DD(798.112,"B","SUBSCRIPTS",.03)=""
^DD(798.112,"GL",0,1,.01)=""
^DD(798.112,"GL",0,2,.02)=""
^DD(798.112,"GL",0,3,.03)=""
^DD(798.112,"IX",.01)=""
^DD(798.112,"IX",.02)=""
^DD(798.114,0)="NOTIFICATION SUB-FIELD^^.01^1"
^DD(798.114,0,"DT")="3010907"
^DD(798.114,0,"IX","B",798.114,.01)=""
^DD(798.114,0,"NM","NOTIFICATION")=""
^DD(798.114,0,"UP")="798.1"
^DD(798.114,.01,0)="NOTIFICATION^MP200'X^VA(200,^0;1^S:$D(X) DINUM=X"
^DD(798.114,.01,1,0)="^.1"
^DD(798.114,.01,1,1,0)="798.114^B"
^DD(798.114,.01,1,1,1)="S ^ROR(798.1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(798.114,.01,1,1,2)="K ^ROR(798.1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(798.114,.01,1,1,3)="Do not delete!"
^DD(798.114,.01,21,0)="^^4^4^3060203^"
^DD(798.114,.01,21,1,0)="Select a user who already receives alerts or add a"
^DD(798.114,.01,21,2,0)="new one from the NEW PERSON file. VistA users"
^DD(798.114,.01,21,3,0)="referenced by this field will be notified about"
^DD(798.114,.01,21,4,0)="problems with the registry processes."
^DD(798.114,.01,"DT")="3050427"
^DD(798.114,"B","NOTIFICATION",.01)=""
^DD(798.114,"GL",0,1,.01)=""
^DD(798.114,"IX",.01)=""
^DD(798.118,0)="SECURITY KEY SUB-FIELD^^.01^1"
^DD(798.118,0,"DT")="3020801"
^DD(798.118,0,"NM","SECURITY KEY")=""
^DD(798.118,0,"UP")="798.1"
^DD(798.118,.01,0)="SECURITY KEY^MFX^^0;1^Q:$$VAEDT^RORDD(798.1,$G(DA(1)))  K:$L(X)>27!($L(X)<3) X"
^DD(798.118,.01,1,0)="^.1^^-1"
^DD(798.118,.01,1,2,0)="798.1^ACL^MUMPS"
^DD(798.118,.01,1,2,1)="D ACLSET^RORDD"
^DD(798.118,.01,1,2,2)="D ACLKILL^RORDD"
^DD(798.118,.01,1,2,3)="Do not delete!"
^DD(798.118,.01,1,2,"%D",0)="^^25^25^3060203^"
^DD(798.118,.01,1,2,"%D",1,0)="This cross-reference is used by the screening "
^DD(798.118,.01,1,2,"%D",2,0)="logic (the ""SCR"" node) of some Clinical Case "
^DD(798.118,.01,1,2,"%D",3,0)="Registries files to check whether a user is"
^DD(798.118,.01,1,2,"%D",4,0)="allowed to access the records or not."
^DD(798.118,.01,1,2,"%D",5,0)=" "
^DD(798.118,.01,1,2,"%D",6,0)="The cross-reference contains two kinds of items:"
^DD(798.118,.01,1,2,"%D",7,0)=" "
^DD(798.118,.01,1,2,"%D",8,0)="  ^ROR(798.1,""ACL"",RORDUZ,RegIEN,KEY,IEN) = """""
^DD(798.118,.01,1,2,"%D",9,0)="  ^ROR(798.1,""ACL"",RORDUZ,RegName,KEY,IEN) = """""
^DD(798.118,.01,1,2,"%D",10,0)=" "
^DD(798.118,.01,1,2,"%D",11,0)="where RORDUZ is the value of the DUZ variable for"
^DD(798.118,.01,1,2,"%D",12,0)="the user who has access to one or more registries"
^DD(798.118,.01,1,2,"%D",13,0)="(according to the allocated security keys). RegIEN"
^DD(798.118,.01,1,2,"%D",14,0)="and RegName are the registry IEN and name. KEY is"
^DD(798.118,.01,1,2,"%D",15,0)="the name of security key and IEN is the internal"
^DD(798.118,.01,1,2,"%D",16,0)="entry number of the corresponding record of the"
^DD(798.118,.01,1,2,"%D",17,0)="SECURITY KEY multiple."
^DD(798.118,.01,1,2,"%D",18,0)=" "
^DD(798.118,.01,1,2,"%D",19,0)="The cross-reference should be rebuilt after"
^DD(798.118,.01,1,2,"%D",20,0)="changes in the allocation of the security keys"
^DD(798.118,.01,1,2,"%D",21,0)="associated with any registry. Usually, this is"
^DD(798.118,.01,1,2,"%D",22,0)="done by the nightly task (the [ROR TASK] option)."
^DD(798.118,.01,1,2,"%D",23,0)="However, if you want the changes to be in effect"
^DD(798.118,.01,1,2,"%D",24,0)="immediately, you should rebuild this"
^DD(798.118,.01,1,2,"%D",25,0)="cross-reference manually."
^DD(798.118,.01,1,2,"DT")="3020805"
^DD(798.118,.01,3)="Enter a name of security key (3-27 characters in length)."
^DD(798.118,.01,8.5)="@"
^DD(798.118,.01,9)="@"
^DD(798.118,.01,20,0)="^.3LA^^0"
^DD(798.118,.01,21,0)="^.001^5^5^3020816^^^"
^DD(798.118,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.118,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.118,.01,21,3,0)=" "
^DD(798.118,.01,21,4,0)="The SECURITY KEY field contains the name of the "
^DD(798.118,.01,21,5,0)="security key associated with the registry."
^DD(798.118,.01,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA(1)))"
^DD(798.118,.01,"DT")="3050722"
^DD(798.118,"B","SECURITY KEY",.01)=""
^DD(798.118,"GL",0,1,.01)=""
^DD(798.118,"IX",.01)=""
^DD(798.12,0)="REPORT STATS SUB-FIELD^^.02^2"
^DD(798.12,0,"DT")="3050715"
^DD(798.12,0,"IX","B",798.12,.01)=""
^DD(798.12,0,"NM","REPORT STATS")=""
^DD(798.12,0,"UP")="798.1"
^DD(798.12,.01,0)="REPORT STATS^MP799.34'X^ROR(799.34,^0;1^S:$D(X) DINUM=X"
^DD(798.12,.01,1,0)="^.1"
^DD(798.12,.01,1,1,0)="798.12^B"
^DD(798.12,.01,1,1,1)="S ^ROR(798.1,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(798.12,.01,1,1,2)="K ^ROR(798.1,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(798.12,.01,1,1,3)="Do not delete!"
^DD(798.12,.01,1,1,"DT")="3050722"
^DD(798.12,.01,3)=""
^DD(798.12,.01,8.5)="@"
^DD(798.12,.01,9)="@"
^DD(798.12,.01,20,0)="^.3LA^1^1"
^DD(798.12,.01,20,1,0)="STATE"
^DD(798.12,.01,21,0)="^^2^2^3060106^"
^DD(798.12,.01,21,1,0)="A pointer stored in this field links the stats to "
^DD(798.12,.01,21,2,0)="the report definition."
^DD(798.12,.01,"DT")="3050722"
^DD(798.12,.02,0)="NUMBER OF RUNS^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.12,.02,3)="Type a Number between 0 and 999999999, 0 Decimal Digits."
^DD(798.12,.02,8.5)="@"
^DD(798.12,.02,9)="@"
^DD(798.12,.02,20,0)="^.3LA^1^1"
^DD(798.12,.02,20,1,0)="STATE"
^DD(798.12,.02,21,0)="^.001^2^2^3060203^^"
^DD(798.12,.02,21,1,0)="This field serves as a counter of report runs "
^DD(798.12,.02,21,2,0)="since the last successful data transmission."
^DD(798.12,.02,23,0)="^.001^2^2^3060203^^"
^DD(798.12,.02,23,1,0)="Please do not edit the field directly. Use the entry"
^DD(798.12,.02,23,2,0)="points of the RORTSK12 routine instead."
^DD(798.12,.02,"DT")="3050715"
^DD(798.12,"B","NUMBER OF RUNS",.02)=""
^DD(798.12,"B","REPORT STATS",.01)=""
^DD(798.12,"GL",0,1,.01)=""
^DD(798.12,"GL",0,2,.02)=""
^DD(798.12,"GR","STATE",.01,1)=""
^DD(798.12,"GR","STATE",.02,1)=""
^DD(798.12,"IX",.01)=""
^DD(798.122,0)="LAST BATCH CONTROL ID SUB-FIELD^^.03^3"
^DD(798.122,0,"DT")="3051129"
^DD(798.122,0,"NM","LAST BATCH CONTROL ID")=""
^DD(798.122,0,"UP")="798.1"
^DD(798.122,.01,0)="LAST BATCH CONTROL ID^MFX^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(798.122,.01,1,0)="^.1^^0"
^DD(798.122,.01,3)="Answer must be 1-20 characters in length."
^DD(798.122,.01,8.5)="@"
^DD(798.122,.01,9)="@"
^DD(798.122,.01,20,0)="^.3LA^1^1"
^DD(798.122,.01,20,1,0)="HL7"
^DD(798.122,.01,21,0)="^.001^3^3^3050503^^^"
^DD(798.122,.01,21,1,0)="The LAST BATCH CONTROL ID field contains the"
^DD(798.122,.01,21,2,0)="message control ID (BHS-11) of the latest batch"
^DD(798.122,.01,21,3,0)="HL7 message submitted to the VistA HL7 engine."
^DD(798.122,.01,23,0)="^^3^3^3060203^"
^DD(798.122,.01,23,1,0)="This field is populated with the value returned by the "
^DD(798.122,.01,23,2,0)="GENERATE^HLMA procedure. This value is usually"
^DD(798.122,.01,23,3,0)="different from that of the INTERNAL BATCH ID field."
^DD(798.122,.01,"DT")="3051129"
^DD(798.122,.02,0)="INTERNAL BATCH ID^RF^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(798.122,.02,3)="Answer must be 1-20 characters in length."
^DD(798.122,.02,8.5)="@"
^DD(798.122,.02,9)="@"
^DD(798.122,.02,20,0)="^.3LA^1^1"
^DD(798.122,.02,20,1,0)="HL7"
^DD(798.122,.02,21,0)="^^8^8^3060203^"
^DD(798.122,.02,21,1,0)="This field contains the internal batch identifier"
^DD(798.122,.02,21,2,0)="that was used during the generation of the batch "
^DD(798.122,.02,21,3,0)="message."
^DD(798.122,.02,21,4,0)=" "
^DD(798.122,.02,21,5,0)="The Control ID of each individual message included"
^DD(798.122,.02,21,6,0)="in the batch is constructed from the value of this"
^DD(798.122,.02,21,7,0)="field and a sequential number separated by the '-'"
^DD(798.122,.02,21,8,0)="character."
^DD(798.122,.02,23,0)="^.001^7^7^3060203^^"
^DD(798.122,.02,23,1,0)="The INTERNAL BATCH ID field is automatically populated "
^DD(798.122,.02,23,2,0)="with the identifier of the batch placeholder created by"
^DD(798.122,.02,23,3,0)="the CREATE^HLTF procedure. See the $$CREATE^RORHL7 and"
^DD(798.122,.02,23,4,0)="$$TMSTMP^ROREXTUT functions for details."
^DD(798.122,.02,23,5,0)=" "
^DD(798.122,.02,23,6,0)="The actual batch control ID (BHS-11) is usually"
^DD(798.122,.02,23,7,0)="different from the value stored in this field."
^DD(798.122,.02,"DT")="3050503"
^DD(798.122,.03,0)="DATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.122,.03,8.5)="@"
^DD(798.122,.03,9)="@"
^DD(798.122,.03,21,0)="^^2^2^3060106^"
^DD(798.122,.03,21,1,0)="This field stores the date/time of the batch HL7 "
^DD(798.122,.03,21,2,0)="message."
^DD(798.122,.03,"DT")="3051129"
^DD(798.122,"B","DATE",.03)=""
^DD(798.122,"B","INTERNAL BATCH ID",.02)=""
^DD(798.122,"B","LAST BATCH CONTROL ID",.01)=""
^DD(798.122,"GL",0,1,.01)=""
^DD(798.122,"GL",0,2,.02)=""
^DD(798.122,"GL",0,3,.03)=""
^DD(798.122,"GR","HL7",.01,1)=""
^DD(798.122,"GR","HL7",.02,1)=""
^DD(798.122,"RQ",.02)=""
^DD(798.128,0)="LOCAL TEST NAME SUB-FIELD^^.02^2"
^DD(798.128,0,"DT")="3030402"
^DD(798.128,0,"ID","WRITE")="S %I=Y,Y=+$P($G(^(0)),U,2),Y=$S(Y>0:$P($G(^ROR(799.1,Y,0)),U),1:"""") D EN^DDIOL(""   ""_Y,,""?40"") S Y=%I K %I"
^DD(798.128,0,"IX","B",798.128,.01)=""
^DD(798.128,0,"NM","LOCAL TEST NAME")=""
^DD(798.128,0,"UP")="798.1"
^DD(798.128,.01,0)="LOCAL TEST NAME^MP60'^LAB(60,^0;1^Q"
^DD(798.128,.01,1,0)="^.1"
^DD(798.128,.01,1,1,0)="798.128^B"
^DD(798.128,.01,1,1,1)="S ^ROR(798.1,DA(1),28,""B"",$E(X,1,30),DA)="""""
^DD(798.128,.01,1,1,2)="K ^ROR(798.1,DA(1),28,""B"",$E(X,1,30),DA)"
^DD(798.128,.01,20,0)="^.3LA^^0"
^DD(798.128,.01,"DT")="3030706"
^DD(798.128,.02,0)="LAB GROUP^R*P799.1'X^ROR(799.1,^0;2^S DIC(""S"")=""S D=$G(^(0)) I $P(D,U,2)=3,$P(D,U,3)=""_DA(1) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(798.128,.02,1,0)="^.1^^0"
^DD(798.128,.02,12)="Only Lab Groups can be selected."
^DD(798.128,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=3"""
^DD(798.128,.02,"DT")="3030706"
^DD(798.128,"B","LAB GROUP",.02)=""
^DD(798.128,"B","LOCAL TEST NAME",.01)=""
^DD(798.128,"GL",0,1,.01)=""
^DD(798.128,"GL",0,2,.02)=""
^DD(798.128,"IX",.01)=""
^DD(798.128,"RQ",.02)=""
^DD(798.129,0)="LOCAL DRUG NAME SUB-FIELD^^.02^2"
^DD(798.129,0,"DT")="3030625"
^DD(798.129,0,"IX","B",798.129,.01)=""
^DD(798.129,0,"NM","LOCAL DRUG NAME")=""
^DD(798.129,0,"UP")="798.1"
^DD(798.129,.01,0)="LOCAL DRUG NAME^MP50'^PSDRUG(^0;1^Q"
^DD(798.129,.01,1,0)="^.1"
^DD(798.129,.01,1,1,0)="798.129^B"
^DD(798.129,.01,1,1,1)="S ^ROR(798.1,DA(1),29,""B"",$E(X,1,30),DA)="""""
^DD(798.129,.01,1,1,2)="K ^ROR(798.1,DA(1),29,""B"",$E(X,1,30),DA)"
^DD(798.129,.01,20,0)="^.3LA^^0"
^DD(798.129,.01,"DT")="3030706"
^DD(798.129,.02,0)="DRUG GROUP^R*P799.1'X^ROR(799.1,^0;2^S DIC(""S"")=""S D=$G(^(0)) I $P(D,U,2)=4,$P(D,U,3)=""_DA(1) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(798.129,.02,12)="Only Drug Groups can be selected."
^DD(798.129,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=4"""
^DD(798.129,.02,20,0)="^.3LA^^0"
^DD(798.129,.02,"DT")="3030706"
^DD(798.129,"B","DRUG GROUP",.02)=""
^DD(798.129,"B","LOCAL DRUG NAME",.01)=""
^DD(798.129,"GL",0,1,.01)=""
^DD(798.129,"GL",0,2,.02)=""
^DD(798.129,"IX",.01)=""
^DD(798.129,"RQ",.02)=""
^DD(798.13,0)="SELECTION RULE SUB-FIELD^^.01^1"
^DD(798.13,0,"DT")="3000410"
^DD(798.13,0,"NM","SELECTION RULE")=""
^DD(798.13,0,"UP")="798.1"
^DD(798.13,.01,0)="SELECTION RULE^MFX^^0;1^Q:$$VAEDT^RORDD(798.1,$G(DA(1)))  K:$L(X)>30!($L(X)<3)!'(X?3.UNP) X I $D(X) K:'$D(^ROR(798.2,""B"",$E(X,1,30))) X"
^DD(798.13,.01,1,0)="^.1^^-1"
^DD(798.13,.01,1,2,0)="798.1^ARULES"
^DD(798.13,.01,1,2,1)="S ^ROR(798.1,""ARULES"",$E(X,1,30),DA(1),DA)="""""
^DD(798.13,.01,1,2,2)="K ^ROR(798.1,""ARULES"",$E(X,1,30),DA(1),DA)"
^DD(798.13,.01,1,2,3)="Do not delete!"
^DD(798.13,.01,1,2,"%D",0)="^^2^2^3011015^"
^DD(798.13,.01,1,2,"%D",1,0)="This cross-reference can be used to find all "
^DD(798.13,.01,1,2,"%D",2,0)="registries that use the selection rule."
^DD(798.13,.01,1,2,"DT")="3000406"
^DD(798.13,.01,3)="Enter a name of the selection rule (3-30 characters)."
^DD(798.13,.01,4)="I $G(X)=""??"" N D,DIC,DZ S DIC=""^ROR(798.2,"",DIC(0)="""",D=""B"",DZ=""??"" D DQ^DICQ,EN^DDIOL("""",,""!"")"
^DD(798.13,.01,8.5)="@"
^DD(798.13,.01,9)="@"
^DD(798.13,.01,21,0)="^.001^8^8^3051031^^^^"
^DD(798.13,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.13,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.13,.01,21,3,0)=" "
^DD(798.13,.01,21,4,0)="Enter a name of the selection rule that will be "
^DD(798.13,.01,21,5,0)="used to select patients for addition to the"
^DD(798.13,.01,21,6,0)="registry. The name should be entered exactly as it"
^DD(798.13,.01,21,7,0)="appears in the list of selection rules (file "
^DD(798.13,.01,21,8,0)="#798.2)."
^DD(798.13,.01,23,0)="^.001^3^3^3051031^^^^"
^DD(798.13,.01,23,1,0)="Names of the selection rules are used here instead of "
^DD(798.13,.01,23,2,0)="pointers because the KIDS pointer resolving feature "
^DD(798.13,.01,23,3,0)="does not work for .01 fields."
^DD(798.13,.01,"DEL",1,0)="I $$VADEL^RORDD(798.1,$G(DA(1)))"
^DD(798.13,.01,"DT")="3050722"
^DD(798.13,"B","SELECTION RULE",.01)=""
^DD(798.13,"GL",0,1,.01)=""
^DD(798.13,"IX",.01)=""
^DD(798.15,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(798.15,0,"NM","DESCRIPTION")=""
^DD(798.15,0,"UP")="798.1"
^DD(798.15,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(798.15,.01,"DT")="3000313"
^DD(798.15,"B","DESCRIPTION",.01)=""
^DD(798.15,"GL",0,1,.01)=""
^DD(798.2,0)="FIELD^^6^7"
^DD(798.2,0,"DDA")="N"
^DD(798.2,0,"DT")="3020326"
^DD(798.2,0,"ID","WRITE")="D EN^DDIOL(""  ""_$P($G(^(0)),U,3),,""?30"")"
^DD(798.2,0,"NM","ROR SELECTION RULE")=""
^DD(798.2,0,"PT",798.01,.01)=""
^DD(798.2,0,"VR")="1.5"
^DD(798.2,0,"VRPK")="ROR"
^DD(798.2,.01,0)="RULE NAME^FX^^0;1^Q:$$VAEDT^RORDD(798.2,$G(DA))  K:$L(X)>30!($L(X)<3)!'(X?1.UNP) X"
^DD(798.2,.01,1,0)="^.1^^0"
^DD(798.2,.01,3)="Enter a unique namespaced rule name (3-30 characters)."
^DD(798.2,.01,8.5)="@"
^DD(798.2,.01,9)="@"
^DD(798.2,.01,21,0)="^.001^6^6^3011010^^"
^DD(798.2,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.2,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.2,.01,21,3,0)=" "
^DD(798.2,.01,21,4,0)="Selection rule name must be unique and name "
^DD(798.2,.01,21,5,0)="spaced. Names of the rules that are used for"
^DD(798.2,.01,21,6,0)="National Registries must start with ""VA""."
^DD(798.2,.01,"DEL",1,0)="I $$VADEL^RORDD(798.2,$G(DA))"
^DD(798.2,.01,"DT")="3020314"
^DD(798.2,.09,0)="NATIONAL^SX^0:NO;1:YES;^0;4^Q:$$VAEDT^RORDD(798.2,,-1)"
^DD(798.2,.09,1,0)="^.1^^0"
^DD(798.2,.09,8.5)="@"
^DD(798.2,.09,9)="@"
^DD(798.2,.09,21,0)="^^6^6^3060203^"
^DD(798.2,.09,21,1,0)="ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN"
^DD(798.2,.09,21,2,0)="EDIT THIS FIELD!"
^DD(798.2,.09,21,3,0)=" "
^DD(798.2,.09,21,4,0)="Selection rules of the national registries must"
^DD(798.2,.09,21,5,0)="have this field set to ""YES"". This prevents local"
^DD(798.2,.09,21,6,0)="editing of other fields of rule definitions."
^DD(798.2,.09,"DEL",1,0)="I $$VADEL^RORDD(798.2,,-1)"
^DD(798.2,.09,"DT")="3011121"
^DD(798.2,1,0)="EXPRESSION^RFX^^1;E1,245^Q:$$VAEDT^RORDD(798.2,$G(DA))  K:$L(X)>250!($L(X)<1) X I $D(X) Q:$$EXPR^RORDD($P($G(^ROR(798.2,DA,0)),U,2))"
^DD(798.2,1,3)="Enter M expression that implements the selection rule (1-250 characters)."
^DD(798.2,1,8.5)="@"
^DD(798.2,1,9)="@"
^DD(798.2,1,21,0)="^^5^5^3011010^"
^DD(798.2,1,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.2,1,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.2,1,21,3,0)=" "
^DD(798.2,1,21,4,0)="Enter a MUMPS expression (it may contain special"
^DD(798.2,1,21,5,0)="macros) that implements the selection rule."
^DD(798.2,1,23,0)="^^62^62^3060203^"
^DD(798.2,1,23,1,0)="MUMPS expression that implements the selection rule can"
^DD(798.2,1,23,2,0)="contain special macros:"
^DD(798.2,1,23,3,0)=" "
^DD(798.2,1,23,4,0)=" {E: Field Name} - External value of the field"
^DD(798.2,1,23,5,0)=" {E: Field Number}"
^DD(798.2,1,23,6,0)=" "
^DD(798.2,1,23,7,0)=" {I: Field Name} - Internal value of the field"
^DD(798.2,1,23,8,0)=" {I: Field Number}"
^DD(798.2,1,23,9,0)=" "
^DD(798.2,1,23,10,0)=" {Rule Name} - Result value of the lower level"
^DD(798.2,1,23,11,0)="selection rule"
^DD(798.2,1,23,12,0)=" "
^DD(798.2,1,23,13,0)=" {AVG: Rule Name} - Average value of the rule"
^DD(798.2,1,23,14,0)=" "
^DD(798.2,1,23,15,0)=" {CNT: Rule Name} - Number of calculations of the rule"
^DD(798.2,1,23,16,0)=" "
^DD(798.2,1,23,17,0)=" {MAX: Rule Name} - Maximum value of the rule"
^DD(798.2,1,23,18,0)=" "
^DD(798.2,1,23,19,0)=" {MIN: Rule Name} - Minimum value of the rule"
^DD(798.2,1,23,20,0)=" "
^DD(798.2,1,23,21,0)=" {SUM: Rule Name} - Total of the selection rule values"
^DD(798.2,1,23,22,0)=" "
^DD(798.2,1,23,23,0)=" {LS: Lab Search Name} - This macro can be used only in"
^DD(798.2,1,23,24,0)="the selection rules associated with the LAB DATA file"
^DD(798.2,1,23,25,0)="(#63). It is evaluated as 1 if some of the patient"
^DD(798.2,1,23,26,0)="lab results pass the Lab search criteria (from the file"
^DD(798.2,1,23,27,0)="#798.9). Otherwise, it is evaluated as zero."
^DD(798.2,1,23,28,0)=" "
^DD(798.2,1,23,29,0)="Return values of the top-level rules:"
^DD(798.2,1,23,30,0)=" "
^DD(798.2,1,23,31,0)=" 0        - Skip the patient"
^DD(798.2,1,23,32,0)=" Non-zero - Add the patient to the registry"
^DD(798.2,1,23,33,0)=" "
^DD(798.2,1,23,34,0)="Return values of the lower level rules:"
^DD(798.2,1,23,35,0)=" "
^DD(798.2,1,23,36,0)="Return values can be used in the expressions of the"
^DD(798.2,1,23,37,0)="other rules. Some additional values are calculated"
^DD(798.2,1,23,38,0)="automatically (minimum, maximum, average, etc.) for"
^DD(798.2,1,23,39,0)="each rule."
^DD(798.2,1,23,40,0)=" "
^DD(798.2,1,23,41,0)="Avoid circular references in the expressions. If a "
^DD(798.2,1,23,42,0)="rule directly or indirectly depends on itself, it"
^DD(798.2,1,23,43,0)="cannot be evaluated. An example of the circular"
^DD(798.2,1,23,44,0)="reference:"
^DD(798.2,1,23,45,0)=" "
^DD(798.2,1,23,46,0)=" Rule A: {MAX:B}<10"
^DD(798.2,1,23,47,0)=" Rule B: {I:23}+{C}"
^DD(798.2,1,23,48,0)=" Rule C: {CNT:A}"
^DD(798.2,1,23,49,0)=" "
^DD(798.2,1,23,50,0)="The rule A cannot be evaluated because it depends on "
^DD(798.2,1,23,51,0)="the rule B, which depends on rule C, and C depends on"
^DD(798.2,1,23,52,0)="A."
^DD(798.2,1,23,53,0)=" "
^DD(798.2,1,23,54,0)="Complex selection rules could be implemented by "
^DD(798.2,1,23,55,0)="external MUMPS functions. In that case the expression"
^DD(798.2,1,23,56,0)="should contains a full reference to the function"
^DD(798.2,1,23,57,0)="($$TAG^ROUTINE). Values of the necessary data elements"
^DD(798.2,1,23,58,0)="can be loaded automatically (see description of the"
^DD(798.2,1,23,59,0)="DATA ELEMENT multiple)."
^DD(798.2,1,23,60,0)=" "
^DD(798.2,1,23,61,0)="See the Programmer's reference manual for more details "
^DD(798.2,1,23,62,0)="regarding the selection rule expressions."
^DD(798.2,1,"DEL",1,0)="I $$VADEL^RORDD(798.2,$G(DA))"
^DD(798.2,1,"DT")="3011109"
^DD(798.2,2,0)="FILE^RNJ22,9X^^0;2^Q:$$VAEDT^RORDD(798.2,$G(DA))  K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""10N.N) X I $D(X) K:'$$VFILE^DILFD(X) X"
^DD(798.2,2,3)="Enter (sub)file number between 1 and 999999999999, 9 Decimal Digits."
^DD(798.2,2,8.5)="@"
^DD(798.2,2,9)="@"
^DD(798.2,2,21,0)="^.001^6^6^3020403^^"
^DD(798.2,2,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.2,2,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.2,2,21,3,0)=" "
^DD(798.2,2,21,4,0)="Enter a file/sub-file number that the selection "
^DD(798.2,2,21,5,0)="rule is associated with. Each selection rule can"
^DD(798.2,2,21,6,0)="be associated with only one file."
^DD(798.2,2,"DEL",1,0)="I $$VADEL^RORDD(798.2,$G(DA))"
^DD(798.2,2,"DT")="3011109"
^DD(798.2,4,0)="SHORT DESCRIPTION^FX^^0;3^Q:$$VAEDT^RORDD(798.2,$G(DA))  K:$L(X)>30!($L(X)<3) X"
^DD(798.2,4,3)="Enter a short description of the selection rule (3-30 characters)."
^DD(798.2,4,8.5)="@"
^DD(798.2,4,9)="@"
^DD(798.2,4,21,0)="^^5^5^3020403^"
^DD(798.2,4,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.2,4,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.2,4,21,3,0)=" "
^DD(798.2,4,21,4,0)="The short description of the selection rule is "
^DD(798.2,4,21,5,0)="used in the reports and GUI dialogs."
^DD(798.2,4,"DEL",1,0)="I $$VADEL^RORDD(798.2,$G(DA))"
^DD(798.2,4,"DT")="3011109"
^DD(798.2,5,0)="DESCRIPTION^798.25^^3;0"
^DD(798.2,5,21,0)="^^3^3^3020403^"
^DD(798.2,5,21,1,0)="You can enter any additional reference information"
^DD(798.2,5,21,2,0)="related to the selection rule. The content of this"
^DD(798.2,5,21,3,0)="field is not used by the application."
^DD(798.2,6,0)="DATA ELEMENT^798.26^^4;0"
^DD(798.2,6,9)="@"
^DD(798.2,6,21,0)="^.001^12^12^3060203^^"
^DD(798.2,6,21,1,0)="The DATA ELEMENT multiple contains a list of "
^DD(798.2,6,21,2,0)="additional data elements to load. "
^DD(798.2,6,21,3,0)=" "
^DD(798.2,6,21,4,0)="Values of all the data elements referenced in the"
^DD(798.2,6,21,5,0)="selection rule expression are loaded"
^DD(798.2,6,21,6,0)="automatically."
^DD(798.2,6,21,7,0)=" "
^DD(798.2,6,21,8,0)="However, if the rule is implemented by an external"
^DD(798.2,6,21,9,0)="function, you can enter the codes of all necessary"
^DD(798.2,6,21,10,0)="data elements into this multiple. Their values"
^DD(798.2,6,21,11,0)="will be loaded automatically and will be"
^DD(798.2,6,21,12,0)="accessible in the function."
^DD(798.2,6,"DT")="3020326"
^DD(798.2,"B","DATA ELEMENT",6)=""
^DD(798.2,"B","DESCRIPTION",5)=""
^DD(798.2,"B","EXPRESSION",1)=""
^DD(798.2,"B","FILE",2)=""
^DD(798.2,"B","NATIONAL",.09)=""
^DD(798.2,"B","RULE NAME",.01)=""
^DD(798.2,"B","SHORT DESCRIPTION",4)=""
^DD(798.2,"GL",0,1,.01)=""
^DD(798.2,"GL",0,2,2)=""
^DD(798.2,"GL",0,3,4)=""
^DD(798.2,"GL",0,4,.09)=""
^DD(798.2,"GL",1,"E1,245",1)=""
^DD(798.2,"GL",3,0,5)=""
^DD(798.2,"GL",4,0,6)=""
^DD(798.2,"RQ",1)=""
^DD(798.2,"RQ",2)=""
^DD(798.2,"SB",798.25,5)=""
^DD(798.2,"SB",798.26,6)=""
^DD(798.25,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(798.25,0,"NM","DESCRIPTION")=""
^DD(798.25,0,"UP")="798.2"
^DD(798.25,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(798.25,.01,"DT")="3000313"
^DD(798.25,"B","DESCRIPTION",.01)=""
^DD(798.25,"GL",0,1,.01)=""
^DD(798.26,0)="DATA ELEMENT SUB-FIELD^^1^2"
^DD(798.26,0,"DT")="3020326"
^DD(798.26,0,"NM","DATA ELEMENT")=""
^DD(798.26,0,"UP")="798.2"
^DD(798.26,.01,0)="ELEMENT CODE^MNJ9,0X^^0;1^Q:$$VAEDT^RORDD(798.2,$G(DA(1)))  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.26,.01,1,0)="^.1^^0"
^DD(798.26,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits."
^DD(798.26,.01,8.5)="@"
^DD(798.26,.01,9)="@"
^DD(798.26,.01,21,0)="^^8^8^3020328^"
^DD(798.26,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF"
^DD(798.26,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.26,.01,21,3,0)=" "
^DD(798.26,.01,21,4,0)="Enter the code of the data element that should be "
^DD(798.26,.01,21,5,0)="loaded before evaluation of the expression. Values"
^DD(798.26,.01,21,6,0)="of all data elements referenced in the selection"
^DD(798.26,.01,21,7,0)="rule expression are loaded automatically (you do"
^DD(798.26,.01,21,8,0)="not need to enter them here)."
^DD(798.26,.01,"DEL",1,0)="I $$VADEL^RORDD(798.2,$G(DA(1)))"
^DD(798.26,.01,"DT")="3020326"
^DD(798.26,1,0)="VALUE TYPE^RSX^E:External;I:Internal;EI:Both;^0;2^Q:$$VAEDT^RORDD(798.2,$G(DA(1)))"
^DD(798.26,1,8.5)="@"
^DD(798.26,1,9)="@"
^DD(798.26,1,21,0)="^^3^3^3020328^"
^DD(798.26,1,21,1,0)="This field holds required value type(s) of the"
^DD(798.26,1,21,2,0)="data element. The type(s) must be supported by the"
^DD(798.26,1,21,3,0)="search engine."
^DD(798.26,1,"DT")="3020311"
^DD(798.26,"B","ELEMENT CODE",.01)=""
^DD(798.26,"B","VALUE TYPE",1)=""
^DD(798.26,"GL",0,1,.01)=""
^DD(798.26,"GL",0,2,1)=""
^DD(798.26,"RQ",1)=""
^DD(798.3,0)="FIELD^^2^3"
^DD(798.3,0,"DDA")="N"
^DD(798.3,0,"DT")="3030606"
^DD(798.3,0,"IX","AT",798.32,.01)=""
^DD(798.3,0,"IX","B",798.3,.01)=""
^DD(798.3,0,"NM","ROR PATIENT EVENTS")=""
^DD(798.3,0,"VR")="1.5"
^DD(798.3,0,"VRPK")="ROR"
^DD(798.3,0,"VRRV")="1.1^ROR*1*5"
^DD(798.3,.01,0)="PATIENT NAME^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(798.3,.01,1,0)="^.1"
^DD(798.3,.01,1,1,0)="798.3^B"
^DD(798.3,.01,1,1,1)="S ^RORDATA(798.3,""B"",$E(X,1,30),DA)="""""
^DD(798.3,.01,1,1,2)="K ^RORDATA(798.3,""B"",$E(X,1,30),DA)"
^DD(798.3,.01,1,1,3)="Do not delete!"
^DD(798.3,.01,3)=""
^DD(798.3,.01,8.5)="@"
^DD(798.3,.01,9)="@"
^DD(798.3,.01,21,0)="^^2^2^3020424^"
^DD(798.3,.01,21,1,0)="The PATIENT NAME field identifies the patient. You"
^DD(798.3,.01,21,2,0)="can add a patient from the PATIENT file."
^DD(798.3,.01,"DT")="3020415"
^DD(798.3,1,0)="ERROR^798.31P^^1;0"
^DD(798.3,1,9)="@"
^DD(798.3,1,21,0)="^^44^44^3060203^"
^DD(798.3,1,21,1,0)="This multiple stores references to those"
^DD(798.3,1,21,2,0)="registries that have the patient processed with"
^DD(798.3,1,21,3,0)="errors and has not been added to the registry."
^DD(798.3,1,21,4,0)="     "
^DD(798.3,1,21,5,0)="When the problems are fixed, the data search must "
^DD(798.3,1,21,6,0)="start not from the date of the previous run of the"
^DD(798.3,1,21,7,0)="registry update process but from the date that "
^DD(798.3,1,21,8,0)="was used when the problem arose. Otherwise, the"
^DD(798.3,1,21,9,0)="data in the interval between those dates will not"
^DD(798.3,1,21,10,0)="be checked and some important information may be"
^DD(798.3,1,21,11,0)="missed."
^DD(798.3,1,21,12,0)="     "
^DD(798.3,1,21,13,0)="This date cannot be stored in the registry file "
^DD(798.3,1,21,14,0)="(#798) because the patient has not been added to"
^DD(798.3,1,21,15,0)="the registry yet. So, the date is stored in this"
^DD(798.3,1,21,16,0)="multiple.  "
^DD(798.3,1,21,17,0)="     "
^DD(798.3,1,21,18,0)="Before the registry update process begins "
^DD(798.3,1,21,19,0)="searching the data of the patient, it tries to"
^DD(798.3,1,21,20,0)="find a record for that patient in this multiple."
^DD(798.3,1,21,21,0)="If it exists, the date from the record is used in"
^DD(798.3,1,21,22,0)="the search instead of regular date (from the"
^DD(798.3,1,21,23,0)="REGISTRY UPDATED UNTIL field of the REGISTRY"
^DD(798.3,1,21,24,0)="PARAMETERS file."
^DD(798.3,1,21,25,0)="     "
^DD(798.3,1,21,26,0)="After successfully processing the patient data, "
^DD(798.3,1,21,27,0)="the corresponding record is deleted from this"
^DD(798.3,1,21,28,0)="multiple.  "
^DD(798.3,1,21,29,0)="     "
^DD(798.3,1,21,30,0)="Records of the multiple are uniquely identified by"
^DD(798.3,1,21,31,0)="the registry IEN. The ""A"" primary key and the ""B"""
^DD(798.3,1,21,32,0)="uniqueness index are used for this purpose."
^DD(798.3,1,21,33,0)=" "
^DD(798.3,1,21,34,0)="Usually, records within this multiple should not"
^DD(798.3,1,21,35,0)="be edited. Its content is handled automatically by"
^DD(798.3,1,21,36,0)="entry points from the routine RORUPP01 during the"
^DD(798.3,1,21,37,0)="registry update.  "
^DD(798.3,1,21,38,0)="     "
^DD(798.3,1,21,39,0)="However, if the errors are not corrected in the "
^DD(798.3,1,21,40,0)="predefined time frame (2 weeks at the moment),"
^DD(798.3,1,21,41,0)="patient data will not be analyzed by the "
^DD(798.3,1,21,42,0)="subsequent registry updates until someone fixes "
^DD(798.3,1,21,43,0)="the errors and resets the COUNTER field of the"
^DD(798.3,1,21,44,0)="patient records in this multiple.  "
^DD(798.3,2,0)="EVENT^798.32D^^2;0"
^DD(798.3,2,9)="@"
^DD(798.3,2,21,0)="^^9^9^3020424^"
^DD(798.3,2,21,1,0)="This multiple stores event references created by"
^DD(798.3,2,21,2,0)="the event protocols. The registry update uses"
^DD(798.3,2,21,3,0)="these references to speed up the processing."
^DD(798.3,2,21,4,0)=" "
^DD(798.3,2,21,5,0)="The event references are grouped by the data areas"
^DD(798.3,2,21,6,0)="(protocols) and only one reference per associated "
^DD(798.3,2,21,7,0)="date (the DATE field) for each data area is stored"
^DD(798.3,2,21,8,0)="at the moment. The ""AD"" cross-reference is used by"
^DD(798.3,2,21,9,0)="the $$ADD^RORUPP02 function for this purpose."
^DD(798.3,2,"DT")="3020415"
^DD(798.3,"B","ERROR",1)=""
^DD(798.3,"B","EVENT",2)=""
^DD(798.3,"B","PATIENT NAME",.01)=""
^DD(798.3,"GL",0,1,.01)=""
^DD(798.3,"GL",1,0,1)=""
^DD(798.3,"GL",2,0,2)=""
^DD(798.3,"IX",.01)=""
^DD(798.3,"RQ",.01)=""
^DD(798.3,"SB",798.31,1)=""
^DD(798.3,"SB",798.32,2)=""
^DD(798.31,0)="ERROR SUB-FIELD^^2^3"
^DD(798.31,0,"DT")="3020415"
^DD(798.31,0,"IX","AD",798.31,1)=""
^DD(798.31,0,"NM","ERROR")=""
^DD(798.31,0,"UP")="798.3"
^DD(798.31,.01,0)="REGISTRY^MP798.1'IX^ROR(798.1,^0;1^Q"
^DD(798.31,.01,1,0)="^.1^^0"
^DD(798.31,.01,8.5)="@"
^DD(798.31,.01,9)="@"
^DD(798.31,.01,21,0)="^.001^2^2^3020415^^"
^DD(798.31,.01,21,1,0)="The REGISTRY field identifies the registry that "
^DD(798.31,.01,21,2,0)="the record is associated with."
^DD(798.31,.01,"DT")="3020415"
^DD(798.31,1,0)="DATE^RD^^0;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.31,1,1,0)="^.1"
^DD(798.31,1,1,1,0)="798.31^AD"
^DD(798.31,1,1,1,1)="S ^RORDATA(798.3,DA(1),1,""AD"",$E(X,1,30),DA)="""""
^DD(798.31,1,1,1,2)="K ^RORDATA(798.3,DA(1),1,""AD"",$E(X,1,30),DA)"
^DD(798.31,1,1,1,3)="Do not delete!"
^DD(798.31,1,1,1,"DT")="3020415"
^DD(798.31,1,8.5)="@"
^DD(798.31,1,9)="@"
^DD(798.31,1,21,0)="^^5^5^3020424^"
^DD(798.31,1,21,1,0)="The field holds the date that was used as the "
^DD(798.31,1,21,2,0)="start date of the data search when problems arose"
^DD(798.31,1,21,3,0)="during the processing of patient data. After the"
^DD(798.31,1,21,4,0)="problems are fixed, the next data search will"
^DD(798.31,1,21,5,0)="start from this date (minus lag days)."
^DD(798.31,1,23,0)="^.001^4^4^3020424^^^"
^DD(798.31,1,23,1,0)="The value of this field is used instead of the regular"
^DD(798.31,1,23,2,0)="start date from the REGISTRY UPDATED UNTIL field of the"
^DD(798.31,1,23,3,0)="REGISTRY PARAMETERS file during the search for patient"
^DD(798.31,1,23,4,0)="data."
^DD(798.31,1,"DT")="3020415"
^DD(798.31,2,0)="COUNTER^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.31,2,3)="Type a Number between 1 and 99, 0 Decimal Digits."
^DD(798.31,2,8.5)=""
^DD(798.31,2,9)=""
^DD(798.31,2,21,0)="^.001^10^10^3060203^^"
^DD(798.31,2,21,1,0)="When a patient is added to the ROR PATIENT EVENTS"
^DD(798.31,2,21,2,0)="file (due to errors during the registry update),"
^DD(798.31,2,21,3,0)="this field is populated with 1."
^DD(798.31,2,21,4,0)=" "
^DD(798.31,2,21,5,0)="Until someone fixes the error(s), every subsequent"
^DD(798.31,2,21,6,0)="registry update will increment a value of this "
^DD(798.31,2,21,7,0)="field by 1. When it reaches a predefined threshold"
^DD(798.31,2,21,8,0)="value, the registry updates will skip this patient"
^DD(798.31,2,21,9,0)="until someone fixes the error(s) and resets this"
^DD(798.31,2,21,10,0)="field to 1."
^DD(798.31,2,23,0)="^.001^10^10^3060203^^"
^DD(798.31,2,23,1,0)="The $$ADD^RORUPP01 function initializes this field with"
^DD(798.31,2,23,2,0)="1 when the record is created. Then it increments its"
^DD(798.31,2,23,3,0)="value each time the record is updated until the"
^DD(798.31,2,23,4,0)="field value becomes not less than a value of the local"
^DD(798.31,2,23,5,0)="RORUPD(MAXPPCNT"") node (or 14 by default)."
^DD(798.31,2,23,6,0)=" "
^DD(798.31,2,23,7,0)="The function $$SDSDATE^RORUPP01 analyzes the value of"
^DD(798.31,2,23,8,0)="the field and returns an error if the counters"
^DD(798.31,2,23,9,0)="associated with all processed registries have reached"
^DD(798.31,2,23,10,0)="the threshold."
^DD(798.31,2,"DT")="3020415"
^DD(798.31,"B","COUNTER",2)=""
^DD(798.31,"B","DATE",1)=""
^DD(798.31,"B","REGISTRY",.01)=""
^DD(798.31,"GL",0,1,.01)=""
^DD(798.31,"GL",0,2,1)=""
^DD(798.31,"GL",0,3,2)=""
^DD(798.31,"IX",1)=""
^DD(798.31,"RQ",1)=""
^DD(798.32,0)="EVENT SUB-FIELD^^2^3"
^DD(798.32,0,"DT")="3030606"
^DD(798.32,0,"IX","B",798.32,.01)=""
^DD(798.32,0,"NM","EVENT")=""
^DD(798.32,0,"UP")="798.3"
^DD(798.32,.01,0)="TIMESTAMP^MD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.32,.01,1,0)="^.1"
^DD(798.32,.01,1,1,0)="798.32^B"
^DD(798.32,.01,1,1,1)="S ^RORDATA(798.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(798.32,.01,1,1,2)="K ^RORDATA(798.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(798.32,.01,1,1,3)="Do not delete!"
^DD(798.32,.01,1,2,0)="798.3^AT"
^DD(798.32,.01,1,2,1)="S ^RORDATA(798.3,""AT"",$E(X,1,30),DA(1),DA)="""""
^DD(798.32,.01,1,2,2)="K ^RORDATA(798.3,""AT"",$E(X,1,30),DA(1),DA)"
^DD(798.32,.01,1,2,3)="Do not delete!"
^DD(798.32,.01,1,2,"%D",0)="^^3^3^3020424^"
^DD(798.32,.01,1,2,"%D",1,0)="This cross-reference is used by the "
^DD(798.32,.01,1,2,"%D",2,0)="$$PURGE^RORUPP02 function to purge the old event "
^DD(798.32,.01,1,2,"%D",3,0)="references."
^DD(798.32,.01,1,2,"DT")="3020419"
^DD(798.32,.01,8.5)="@"
^DD(798.32,.01,9)="@"
^DD(798.32,.01,21,0)="^.001^3^3^3020502^^"
^DD(798.32,.01,21,1,0)="This field stores the timestamp of the event"
^DD(798.32,.01,21,2,0)="reference (the current date and time when the"
^DD(798.32,.01,21,3,0)="reference was created)."
^DD(798.32,.01,"DT")="3020502"
^DD(798.32,1,0)="DATA AREA^RP799.33'^ROR(799.33,^0;2^Q"
^DD(798.32,1,3)=""
^DD(798.32,1,8.5)="@"
^DD(798.32,1,9)="@"
^DD(798.32,1,21,0)="^^3^3^3060203^"
^DD(798.32,1,21,1,0)="Internal value of this field is the code defining"
^DD(798.32,1,21,2,0)="the data area (protocol) that this event reference"
^DD(798.32,1,21,3,0)="is associated with."
^DD(798.32,1,23,0)="^.001^6^6^3060203^^^"
^DD(798.32,1,23,1,0)="The codes are associated with the event protocols as"
^DD(798.32,1,23,2,0)="follow:"
^DD(798.32,1,23,3,0)=" "
^DD(798.32,1,23,4,0)=" 1 - ROR EVENT LAB (LR7O ALL EVSEND RESULTS)"
^DD(798.32,1,23,5,0)=" 2 - ROR EVENT VISIT (PXK VISIT DATA EVENT)"
^DD(798.32,1,23,6,0)=" 3 - ROR EVENT PTF (DGPM MOVEMENT EVENTS)"
^DD(798.32,1,"DT")="3030606"
^DD(798.32,2,0)="DATE^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(798.32,2,1,0)="^.1^^0"
^DD(798.32,2,8.5)="@"
^DD(798.32,2,9)="@"
^DD(798.32,2,21,0)="^.001^3^3^3020424^^"
^DD(798.32,2,21,1,0)="This field stores the date and time associated"
^DD(798.32,2,21,2,0)="with the event. For example, collection date/time"
^DD(798.32,2,21,3,0)="of the specimen is stored here for the Lab event."
^DD(798.32,2,"DT")="3020419"
^DD(798.32,"B","DATA AREA",1)=""
^DD(798.32,"B","DATE",2)=""
^DD(798.32,"B","TIMESTAMP",.01)=""
^DD(798.32,"GL",0,1,.01)=""
^DD(798.32,"GL",0,2,1)=""
^DD(798.32,"GL",0,3,2)=""
^DD(798.32,"IX",.01)=""
^DD(798.32,"RQ",1)=""
^DD(798.4,0)="FIELD^^991^14"
^DD(798.4,0,"DDA")="N"
^DD(798.4,0,"DT")="3021101"
^DD(798.4,0,"IX","B",798.4,.01)=""
^DD(798.4,0,"IX","BS",798.4,.09)=""
^DD(798.4,0,"IX","BS5",798.4,.09)=""
^DD(798.4,0,"IX","SSN",798.4,.09)=""
^DD(798.4,0,"NM","ROR PATIENT")=""
^DD(798.4,0,"PT",798,.01)=""
^DD(798.4,0,"PT",799.641,.01)=""
^DD(798.4,0,"SCR")="I $$ACCESS^RORDD(798.4)"
^DD(798.4,0,"VR")="1.5"
^DD(798.4,0,"VRPK")="ROR"
^DD(798.4,.01,0)="PATIENT NAME^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(798.4,.01,1,0)="^.1"
^DD(798.4,.01,1,1,0)="798.4^B"
^DD(798.4,.01,1,1,1)="S ^RORDATA(798.4,""B"",$E(X,1,30),DA)="""""
^DD(798.4,.01,1,1,2)="K ^RORDATA(798.4,""B"",$E(X,1,30),DA)"
^DD(798.4,.01,1,1,3)="Do not delete!"
^DD(798.4,.01,1,1,"DT")="3000523"
^DD(798.4,.01,3)=""
^DD(798.4,.01,8.5)="@"
^DD(798.4,.01,9)="@"
^DD(798.4,.01,21,0)="^^5^5^3020802^"
^DD(798.4,.01,21,1,0)="You can select an existing patient or add a new "
^DD(798.4,.01,21,2,0)="one from the PATIENT file (#2)."
^DD(798.4,.01,21,3,0)=" "
^DD(798.4,.01,21,4,0)="You can access records of this file only if you"
^DD(798.4,.01,21,5,0)="have appropriate security key(s) for any registry."
^DD(798.4,.01,23,0)="^.001^4^4^3020802^^^"
^DD(798.4,.01,23,1,0)="The PATIENT NAME field points to the patient record in "
^DD(798.4,.01,23,2,0)="the PATIENT file (#2). Internal value of this field is"
^DD(798.4,.01,23,3,0)="used as internal entry number of the record (""DINUM"""
^DD(798.4,.01,23,4,0)="feature)."
^DD(798.4,.01,"DEL",1,0)="I $D(^RORDATA(798,""B"",+$G(DA)))"
^DD(798.4,.01,"DT")="3000523"
^DD(798.4,.02,0)="SEX^SI^M:MALE;F:FEMALE;^1;3^Q"
^DD(798.4,.02,20,0)="^.3LA^1^1"
^DD(798.4,.02,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.02,21,0)="^.001^1^1^3021106^^^^"
^DD(798.4,.02,21,1,0)="Do not edit this field!"
^DD(798.4,.02,23,0)="^.001^1^1^3021106^^^"
^DD(798.4,.02,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.02,"DT")="3011120"
^DD(798.4,.03,0)="DATE OF BIRTH^RDOI^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.4,.03,2)="S Y(0)=Y S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X"
^DD(798.4,.03,2.1)="S Y(0)=Y S X=Y(0) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3)) S Y=X"
^DD(798.4,.03,20,0)="^.3LA^1^1"
^DD(798.4,.03,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.03,21,0)="^.001^1^1^3021106^^^^"
^DD(798.4,.03,21,1,0)="Do not edit this field!"
^DD(798.4,.03,23,0)="^.001^1^1^3021106^^^^"
^DD(798.4,.03,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.03,"DT")="3011120"
^DD(798.4,.09,0)="SOCIAL SECURITY NUMBER^RFOI^^1;1^K:$L(X)>11!($L(X)<9) X"
^DD(798.4,.09,1,0)="^.1"
^DD(798.4,.09,1,1,0)="798.4^BS^MUMPS"
^DD(798.4,.09,1,1,1)="S ^RORDATA(798.4,""BS"",$E(X,6,9),DA)="""""
^DD(798.4,.09,1,1,2)="K ^RORDATA(798.4,""BS"",$E(X,6,9),DA)"
^DD(798.4,.09,1,1,3)="Do not delete!"
^DD(798.4,.09,1,1,"%D",0)="^.101^1^1^3011220^^"
^DD(798.4,.09,1,1,"%D",1,0)="The cross-reference on the last four digits of the SSN."
^DD(798.4,.09,1,1,"DT")="3000426"
^DD(798.4,.09,1,2,0)="798.4^BS5^MUMPS"
^DD(798.4,.09,1,2,1)="S ^RORDATA(798.4,""BS5"",$E(^DPT(DA,0),1)_$E(X,6,9),DA)="""""
^DD(798.4,.09,1,2,2)="K ^RORDATA(798.4,""BS5"",$E(^DPT(DA,0),1)_$E(X,6,9),DA)"
^DD(798.4,.09,1,2,3)="Do not delete!"
^DD(798.4,.09,1,2,"%D",0)="^^3^3^3020403^"
^DD(798.4,.09,1,2,"%D",1,0)="This cross-reference contains values combined from"
^DD(798.4,.09,1,2,"%D",2,0)="the first letter of the last name and last four"
^DD(798.4,.09,1,2,"%D",3,0)="digits of the SSN."
^DD(798.4,.09,1,2,"DT")="3011220"
^DD(798.4,.09,1,3,0)="798.4^SSN"
^DD(798.4,.09,1,3,1)="S ^RORDATA(798.4,""SSN"",$E(X,1,30),DA)="""""
^DD(798.4,.09,1,3,2)="K ^RORDATA(798.4,""SSN"",$E(X,1,30),DA)"
^DD(798.4,.09,1,3,3)="Do not delete!"
^DD(798.4,.09,1,3,"DT")="3011221"
^DD(798.4,.09,2)="S Y(0)=Y S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)"
^DD(798.4,.09,2.1)="S:$L(Y)=11 Y=$E(Y,10,11)_$E(Y,1,9)"
^DD(798.4,.09,3)="Answer must be 9-11 characters in length."
^DD(798.4,.09,20,0)="^.3LA^1^1"
^DD(798.4,.09,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.09,21,0)="^.001^1^1^3021106^^"
^DD(798.4,.09,21,1,0)="Do not edit this field!"
^DD(798.4,.09,23,0)="^.001^1^1^3021106^^"
^DD(798.4,.09,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.09,"DT")="3020403"
^DD(798.4,.1112,0)="ZIP+4^FI^^1;8^K:$L(X)>9!($L(X)<5) X"
^DD(798.4,.1112,3)="Answer must be 5-9 characters in length."
^DD(798.4,.1112,20,0)="^.3LA^1^1"
^DD(798.4,.1112,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.1112,21,0)="^.001^1^1^3021106^^"
^DD(798.4,.1112,21,1,0)="Do not edit this field!"
^DD(798.4,.1112,23,0)="^.001^1^1^3021106^^"
^DD(798.4,.1112,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.1112,"DT")="3011120"
^DD(798.4,.301,0)="SERVICE CONNECTED?^RSI^Y:YES;N:NO;^1;6^Q"
^DD(798.4,.301,20,0)="^.3LA^1^1"
^DD(798.4,.301,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.301,21,0)="^.001^1^1^3021106^^"
^DD(798.4,.301,21,1,0)="Do not edit this field!"
^DD(798.4,.301,23,0)="^.001^1^1^3021106^^"
^DD(798.4,.301,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.301,"DT")="3011120"
^DD(798.4,.302,0)="SERVICE CONNECTED PERCENTAGE^NJ3,0I^^1;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.4,.302,3)="Type a Number between 0 and 100, 0 Decimal Digits."
^DD(798.4,.302,20,0)="^.3LA^1^1"
^DD(798.4,.302,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.302,21,0)="^.001^1^1^3060203^^^"
^DD(798.4,.302,21,1,0)="Do not edit this field!"
^DD(798.4,.302,23,0)="^.001^1^1^3060203^^^"
^DD(798.4,.302,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.302,"DT")="3011120"
^DD(798.4,.323,0)="PERIOD OF SERVICE^P21'I^DIC(21,^1;5^Q"
^DD(798.4,.323,20,0)="^.3LA^1^1"
^DD(798.4,.323,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.323,21,0)="^.001^1^1^3021106^^"
^DD(798.4,.323,21,1,0)="Do not edit this field!"
^DD(798.4,.323,23,0)="^.001^1^1^3021106^^"
^DD(798.4,.323,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.323,"DT")="3011120"
^DD(798.4,.351,0)="DATE OF DEATH^DI^^1;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(798.4,.351,20,0)="^.3LA^1^1"
^DD(798.4,.351,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.351,21,0)="^.001^1^1^3021106^^^^"
^DD(798.4,.351,21,1,0)="Do not edit this field!"
^DD(798.4,.351,23,0)="^.001^1^1^3021106^^^^"
^DD(798.4,.351,23,1,0)="See the corresponding field in the PATIENT file (#2)."
^DD(798.4,.351,"DT")="3020502"
^DD(798.4,.3721,0)="RATED DISABILITIES DATA^FI^^3;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(798.4,.3721,3)="Answer must be 1-245 characters in length."
^DD(798.4,.3721,20,0)="^.3LA^1^1"
^DD(798.4,.3721,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,.3721,21,0)="^.001^1^1^3060106^^^"
^DD(798.4,.3721,21,1,0)="Do not edit this field!"
^DD(798.4,.3721,23,0)="^^5^5^3060106^"
^DD(798.4,.3721,23,1,0)="This field stores the CRC32 value for combined data"
^DD(798.4,.3721,23,2,0)="from the RATED DISABILITIES (VA) multiple (.3721) of"
^DD(798.4,.3721,23,3,0)="the PATIENT file (#2). This data can be used only for"
^DD(798.4,.3721,23,4,0)="comparison (by the RORUPD52 routine) to the data in the"
^DD(798.4,.3721,23,5,0)="PATIENT file!"
^DD(798.4,.3721,"DT")="3021106"
^DD(798.4,2,0)="RACE AND ETHNICITY DATA^FI^^2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(798.4,2,3)="Answer must be 1-245 characters in length."
^DD(798.4,2,20,0)="^.3LA^1^1"
^DD(798.4,2,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,2,21,0)="^.001^1^1^3021106^^"
^DD(798.4,2,21,1,0)="Do not edit this field!"
^DD(798.4,2,23,0)="^^6^6^3060203^"
^DD(798.4,2,23,1,0)="This field stores the combined data from the RACE"
^DD(798.4,2,23,2,0)="INFORMATION (2) and ETHNICITY INFORMATION (6) multiples"
^DD(798.4,2,23,3,0)="of the PATIENT file (#2). This data can be used only"
^DD(798.4,2,23,4,0)="for comparison (by the RORUPD52 routine) to the data in"
^DD(798.4,2,23,5,0)="the PATIENT file. Do not try to parse values of this"
^DD(798.4,2,23,6,0)="field in any way!"
^DD(798.4,2,"DT")="3021106"
^DD(798.4,10.1,0)="OLD SSN^FI^^10;1^K:$L(X)>11!($L(X)<9) X"
^DD(798.4,10.1,3)="Answer must be 9-11 characters in length."
^DD(798.4,10.1,20,0)="^.3LA^1^1"
^DD(798.4,10.1,20,1,0)="OLD DEMOGRAPHICS"
^DD(798.4,10.1,21,0)="^.001^1^1^3021106^^"
^DD(798.4,10.1,21,1,0)="Do not edit this field!"
^DD(798.4,10.1,23,0)="^.001^3^3^3021106^^"
^DD(798.4,10.1,23,1,0)="This field contains the previous value of the patient "
^DD(798.4,10.1,23,2,0)="SSN. The registry extraction process transmits both new"
^DD(798.4,10.1,23,3,0)="and old values of the SSN to the national registries."
^DD(798.4,10.1,"DT")="3011120"
^DD(798.4,10.2,0)="OLD ICN^FI^^10;2^K:$L(X)>19!($L(X)<1) X"
^DD(798.4,10.2,3)="Answer must be 1-19 characters in length."
^DD(798.4,10.2,20,0)="^.3LA^1^1"
^DD(798.4,10.2,20,1,0)="OLD DEMOGRAPHICS"
^DD(798.4,10.2,21,0)="^.001^1^1^3021106^^^"
^DD(798.4,10.2,21,1,0)="Do not edit this field!"
^DD(798.4,10.2,23,0)="^.001^4^4^3021106^^"
^DD(798.4,10.2,23,1,0)="This field contains the previous value of the patient "
^DD(798.4,10.2,23,2,0)="ICN (with the checksum). The registry extraction"
^DD(798.4,10.2,23,3,0)="process transmits both new and old values of the ICN to"
^DD(798.4,10.2,23,4,0)="the national registries."
^DD(798.4,10.2,"DT")="3021101"
^DD(798.4,991,0)="INTEGRATION CONTROL NUMBER^FI^^1;9^K:$L(X)>19!($L(X)<1) X"
^DD(798.4,991,3)="Answer must be 1-19 characters in length."
^DD(798.4,991,20,0)="^.3LA^1^1"
^DD(798.4,991,20,1,0)="DEMOGRAPHIC DATA"
^DD(798.4,991,21,0)="^.001^1^1^3021106^^^"
^DD(798.4,991,21,1,0)="Do not edit this field!"
^DD(798.4,991,23,0)="^.001^4^4^3021106^^"
^DD(798.4,991,23,1,0)="This field stores the patient's full Integration"
^DD(798.4,991,23,2,0)="Control Number (the ICN and checksum separated by the"
^DD(798.4,991,23,3,0)="""V""). See the fields 991.01 and 991.02 of the PATIENT"
^DD(798.4,991,23,4,0)="file (#2)."
^DD(798.4,991,"DT")="3021101"
^DD(798.4,"B","DATE OF BIRTH",.03)=""
^DD(798.4,"B","DATE OF DEATH",.351)=""
^DD(798.4,"B","INTEGRATION CONTROL NUMBER",991)=""
^DD(798.4,"B","OLD ICN",10.2)=""
^DD(798.4,"B","OLD SSN",10.1)=""
^DD(798.4,"B","PATIENT NAME",.01)=""
^DD(798.4,"B","PERIOD OF SERVICE",.323)=""
^DD(798.4,"B","RACE AND ETHNICITY DATA",2)=""
^DD(798.4,"B","RATED DISABILITIES DATA",.3721)=""
^DD(798.4,"B","SERVICE CONNECTED PERCENTAGE",.302)=""
^DD(798.4,"B","SERVICE CONNECTED?",.301)=""
^DD(798.4,"B","SEX",.02)=""
^DD(798.4,"B","SOCIAL SECURITY NUMBER",.09)=""
^DD(798.4,"B","ZIP+4",.1112)=""
^DD(798.4,"GL",0,1,.01)=""
^DD(798.4,"GL",1,1,.09)=""
^DD(798.4,"GL",1,2,.03)=""
^DD(798.4,"GL",1,3,.02)=""
^DD(798.4,"GL",1,4,.351)=""
^DD(798.4,"GL",1,5,.323)=""
^DD(798.4,"GL",1,6,.301)=""
^DD(798.4,"GL",1,7,.302)=""
^DD(798.4,"GL",1,8,.1112)=""
^DD(798.4,"GL",1,9,991)=""
^DD(798.4,"GL",2,"E1,245",2)=""
^DD(798.4,"GL",3,"E1,245",.3721)=""
^DD(798.4,"GL",10,1,10.1)=""
^DD(798.4,"GL",10,2,10.2)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.02,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.03,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.09,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.1112,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.301,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.302,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.323,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.351,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",.3721,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",2,1)=""
^DD(798.4,"GR","DEMOGRAPHIC DATA",991,1)=""
^DD(798.4,"GR","OLD DEMOGRAPHICS",10.1,1)=""
^DD(798.4,"GR","OLD DEMOGRAPHICS",10.2,1)=""
^DD(798.4,"IX",.01)=""
^DD(798.4,"IX",.09)=""
^DD(798.4,"RQ",.01)=""
^DD(798.4,"RQ",.03)=""
^DD(798.4,"RQ",.09)=""
^DD(798.4,"RQ",.301)=""
^DD(798.6,0)="FIELD^^.02^2"
^DD(798.6,0,"DDA")="N"
^DD(798.6,0,"DT")="3000423"
^DD(798.6,0,"IX","AC",798.6,.02)=""
^DD(798.6,0,"IX","B",798.6,.01)=""
^DD(798.6,0,"NM","ROR PHARMACY CODE")=""
^DD(798.6,0,"VR")="1.5"
^DD(798.6,0,"VRPK")="ROR"
^DD(798.6,.01,0)="DRUG CLASS^RP50.605'^PS(50.605,^0;1^Q"
^DD(798.6,.01,1,0)="^.1"
^DD(798.6,.01,1,1,0)="798.6^B"
^DD(798.6,.01,1,1,1)="S ^ROR(798.6,""B"",$E(X,1,30),DA)="""""
^DD(798.6,.01,1,1,2)="K ^ROR(798.6,""B"",$E(X,1,30),DA)"
^DD(798.6,.01,1,1,3)="Do not delete!"
^DD(798.6,.01,3)=""
^DD(798.6,.01,21,0)="^^2^2^3060203^"
^DD(798.6,.01,21,1,0)="Select a drug class from the VA DRUG CLASS FILE "
^DD(798.6,.01,21,2,0)="(#50.605)."
^DD(798.6,.01,"DT")="3000423"
^DD(798.6,.02,0)="REGISTRY^RP798.1'^ROR(798.1,^0;2^Q"
^DD(798.6,.02,1,0)="^.1"
^DD(798.6,.02,1,1,0)="798.6^AC"
^DD(798.6,.02,1,1,1)="S ^ROR(798.6,""AC"",$E(X,1,30),DA)="""""
^DD(798.6,.02,1,1,2)="K ^ROR(798.6,""AC"",$E(X,1,30),DA)"
^DD(798.6,.02,1,1,3)="Do not delete!"
^DD(798.6,.02,1,1,"%D",0)="^^2^2^3011120^"
^DD(798.6,.02,1,1,"%D",1,0)="This cross-reference links all drug classes"
^DD(798.6,.02,1,1,"%D",2,0)="associated with the registry together."
^DD(798.6,.02,1,1,"DT")="3010803"
^DD(798.6,.02,21,0)="^^2^2^3020403^"
^DD(798.6,.02,21,1,0)="The REGISTRY field identifies the registry that "
^DD(798.6,.02,21,2,0)="the record belongs to."
^DD(798.6,.02,23,0)="^^3^3^3020403^"
^DD(798.6,.02,23,1,0)="Traditional cross-reference ""AC"" is used to link "
^DD(798.6,.02,23,2,0)="all drug classes associated with the the registry"
^DD(798.6,.02,23,3,0)="together."
^DD(798.6,.02,"DT")="3010803"
^DD(798.6,"B","DRUG CLASS",.01)=""
^DD(798.6,"B","REGISTRY",.02)=""
^DD(798.6,"GL",0,1,.01)=""
^DD(798.6,"GL",0,2,.02)=""
^DD(798.6,"IX",.01)=""
^DD(798.6,"IX",.02)=""
^DD(798.6,"RQ",.01)=""
^DD(798.6,"RQ",.02)=""
^DD(798.7,0)="FIELD^^8^11"
^DD(798.7,0,"DDA")="N"
^DD(798.7,0,"DT")="3051104"
^DD(798.7,0,"IX","B",798.7,.01)=""
^DD(798.7,0,"IX","C",798.7,2)=""
^DD(798.7,0,"NM","ROR LOG")=""
^DD(798.7,0,"PT",798.8,2.03)=""
^DD(798.7,0,"SCR")="I $$ACCESS^RORDD(798.7)"
^DD(798.7,0,"VR")="1.5"
^DD(798.7,0,"VRPK")="ROR"
^DD(798.7,.01,0)="START DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.7,.01,1,0)="^.1"
^DD(798.7,.01,1,1,0)="798.7^B"
^DD(798.7,.01,1,1,1)="S ^RORDATA(798.7,""B"",$E(X,1,30),DA)="""""
^DD(798.7,.01,1,1,2)="K ^RORDATA(798.7,""B"",$E(X,1,30),DA)"
^DD(798.7,.01,1,1,3)="Do not delete!"
^DD(798.7,.01,3)=""
^DD(798.7,.01,21,0)="^^5^5^3021101^"
^DD(798.7,.01,21,1,0)="This field contains the date/time when this log "
^DD(798.7,.01,21,2,0)="was created."
^DD(798.7,.01,21,3,0)=" "
^DD(798.7,.01,21,4,0)="You can access records of this file only if you"
^DD(798.7,.01,21,5,0)="have appropriate security key(s) for any registry."
^DD(798.7,.01,23,0)="^.001^2^2^3021101^^"
^DD(798.7,.01,23,1,0)="The $$OPEN^RORLOG function populates this field"
^DD(798.7,.01,23,2,0)="automatically when a new log is created."
^DD(798.7,.01,"DEL",1,0)="I $D(^RORDATA(798.7,""AREF"",+$G(DA)))"
^DD(798.7,.01,"DT")="3010807"
^DD(798.7,1,0)="ACTIVITY^S^0:Other;1:Registry Update;2:Data Extraction;3:Acknowledgement;4:Hist. Extraction;5:Report;6:Access Violation;7:ROR TASK;8:Registry Setup;^0;3^Q"
^DD(798.7,1,21,0)="^.001^2^2^3030121^^"
^DD(798.7,1,21,1,0)="The value of this field indicates the activity"
^DD(798.7,1,21,2,0)="performed by the process that created the log."
^DD(798.7,1,23,0)="^.001^2^2^3030121^^"
^DD(798.7,1,23,1,0)="This field is populated by the $$OPEN^RORLOG function "
^DD(798.7,1,23,2,0)="with the value passed as one of the parameters."
^DD(798.7,1,"DT")="3050721"
^DD(798.7,2,0)="JOB NUMBER^NJ12,0^^0;4^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.7,2,1,0)="^.1"
^DD(798.7,2,1,1,0)="798.7^C"
^DD(798.7,2,1,1,1)="S ^RORDATA(798.7,""C"",$E(X,1,30),DA)="""""
^DD(798.7,2,1,1,2)="K ^RORDATA(798.7,""C"",$E(X,1,30),DA)"
^DD(798.7,2,1,1,3)="Do not delete!"
^DD(798.7,2,1,1,"%D",0)="^^3^3^3011011^"
^DD(798.7,2,1,1,"%D",1,0)="This cross-reference can be used in the "
^DD(798.7,2,1,1,"%D",2,0)="troubleshooting process to find the log by the job"
^DD(798.7,2,1,1,"%D",3,0)="number."
^DD(798.7,2,1,1,"DT")="3010813"
^DD(798.7,2,3)="Enter a job number between 1 and 999999999999, 0 Decimal Digits."
^DD(798.7,2,21,0)="^^2^2^3020403^"
^DD(798.7,2,21,1,0)="Value of the JOB NUMBER field is the job number "
^DD(798.7,2,21,2,0)="($JOB) of the process that has created this log."
^DD(798.7,2,23,0)="^^2^2^3020403^"
^DD(798.7,2,23,1,0)="This field is populated automatically by the "
^DD(798.7,2,23,2,0)="$$OPEN^RORLOG function."
^DD(798.7,2,"DT")="3010813"
^DD(798.7,3,0)="REGISTRY^798.73P^^1;0"
^DD(798.7,3,21,0)="^^8^8^3020403^"
^DD(798.7,3,21,1,0)="This multiple contains a list of the registries "
^DD(798.7,3,21,2,0)="that were processed. Events recorded in the log"
^DD(798.7,3,21,3,0)="are associated with these registries."
^DD(798.7,3,21,4,0)=" "
^DD(798.7,3,21,5,0)="Records of this multiple are indexed by the ""ARD"""
^DD(798.7,3,21,6,0)="index (whole file). So, it is possible to get a"
^DD(798.7,3,21,7,0)="list of log files associated with the particular"
^DD(798.7,3,21,8,0)="registry."
^DD(798.7,4,0)="MESSAGE^798.74D^^2;0"
^DD(798.7,4,21,0)="^^2^2^3020403^"
^DD(798.7,4,21,1,0)="This multiple contains all messages recorded in "
^DD(798.7,4,21,2,0)="the log."
^DD(798.7,4,23,0)="^^4^4^3060203^"
^DD(798.7,4,23,1,0)="Every call of the LOG^RORLOG procedure adds a new "
^DD(798.7,4,23,2,0)="record to this multiple. The $$OPEN^RORLOG and "
^DD(798.7,4,23,3,0)="CLOSE^RORLOG entry points can also call the LOG^RORLOG"
^DD(798.7,4,23,4,0)="automatically to add a header and footer to the log."
^DD(798.7,5,0)="END DATE/TIME^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.7,5,21,0)="^^2^2^3020403^"
^DD(798.7,5,21,1,0)="This field contains the date/time when the "
^DD(798.7,5,21,2,0)="log was closed."
^DD(798.7,5,23,0)="^^2^2^3020403^"
^DD(798.7,5,23,1,0)="The CLOSE^RORLOG procedure populates this field"
^DD(798.7,5,23,2,0)="automatically when the log is closed."
^DD(798.7,5,"DT")="3010807"
^DD(798.7,6.01,0)="PROCESSED PATIENTS^NJ12,0^^0;5^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.7,6.01,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits."
^DD(798.7,6.01,21,0)="^.001^2^2^3011011^^"
^DD(798.7,6.01,21,1,0)="The value of this field indicates the number of "
^DD(798.7,6.01,21,2,0)="processed patients."
^DD(798.7,6.01,23,0)="^.001^2^2^3020403^^"
^DD(798.7,6.01,23,1,0)="The value of this field is also duplicated in the last"
^DD(798.7,6.01,23,2,0)="message of the log (footer)."
^DD(798.7,6.01,"DT")="3010807"
^DD(798.7,6.02,0)="PATIENTS WITH ERRORS^NJ12,0^^0;6^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.7,6.02,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits."
^DD(798.7,6.02,21,0)="^^2^2^3011011^"
^DD(798.7,6.02,21,1,0)="The value of this field indicates the number of "
^DD(798.7,6.02,21,2,0)="patients processed with errors."
^DD(798.7,6.02,23,0)="^.001^2^2^3020403^^"
^DD(798.7,6.02,23,1,0)="The value of this field is also duplicated in the last"
^DD(798.7,6.02,23,2,0)="message of the log (footer)."
^DD(798.7,6.02,"DT")="3010807"
^DD(798.7,6.03,0)="RATE^NJ16,3^^0;7^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(798.7,6.03,3)="Type a Number between 0 and 999999999999, 3 Decimal Digits."
^DD(798.7,6.03,21,0)="^^2^2^3011011^"
^DD(798.7,6.03,21,1,0)="The value of this field indicates the rate of "
^DD(798.7,6.03,21,2,0)="patient processing (patients per second)."
^DD(798.7,6.03,23,0)="^.001^2^2^3020403^^"
^DD(798.7,6.03,23,1,0)="The value of this field is also duplicated in the last"
^DD(798.7,6.03,23,2,0)="message of the log (footer)."
^DD(798.7,6.03,"DT")="3010807"
^DD(798.7,7,0)="USER^P200'I^VA(200,^0;8^Q"
^DD(798.7,7,8.5)="@"
^DD(798.7,7,9)="@"
^DD(798.7,7,10)="The user's DUZ"
^DD(798.7,7,21,0)="^^3^3^3030219^"
^DD(798.7,7,21,1,0)="The USER field points to the VistA user associated"
^DD(798.7,7,21,2,0)="with the log (its internal value is the DUZ at the"
^DD(798.7,7,21,3,0)="moment when the log was created)."
^DD(798.7,7,"DT")="3030203"
^DD(798.7,8,0)="TASK NUMBER^NJ10,0^^0;9^K:+X'=X!(X>9899999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.7,8,3)="Enter a task number between 1 and 9899999999, 0 Decimal Digits."
^DD(798.7,8,8.5)="@"
^DD(798.7,8,9)="@"
^DD(798.7,8,21,0)="^^3^3^3060106^"
^DD(798.7,8,21,1,0)="This field stores the number of the task that "
^DD(798.7,8,21,2,0)="created the log. If the log is created from a "
^DD(798.7,8,21,3,0)="foreground job, this field will be empty."
^DD(798.7,8,"DT")="3051104"
^DD(798.7,"B","ACTIVITY",1)=""
^DD(798.7,"B","END DATE/TIME",5)=""
^DD(798.7,"B","JOB NUMBER",2)=""
^DD(798.7,"B","MESSAGE",4)=""
^DD(798.7,"B","PATIENTS WITH ERRORS",6.02)=""
^DD(798.7,"B","PROCESSED PATIENTS",6.01)=""
^DD(798.7,"B","RATE",6.03)=""
^DD(798.7,"B","REGISTRY",3)=""
^DD(798.7,"B","START DATE/TIME",.01)=""
^DD(798.7,"B","TASK NUMBER",8)=""
^DD(798.7,"B","USER",7)=""
^DD(798.7,"GL",0,1,.01)=""
^DD(798.7,"GL",0,2,5)=""
^DD(798.7,"GL",0,3,1)=""
^DD(798.7,"GL",0,4,2)=""
^DD(798.7,"GL",0,5,6.01)=""
^DD(798.7,"GL",0,6,6.02)=""
^DD(798.7,"GL",0,7,6.03)=""
^DD(798.7,"GL",0,8,7)=""
^DD(798.7,"GL",0,9,8)=""
^DD(798.7,"GL",1,0,3)=""
^DD(798.7,"GL",2,0,4)=""
^DD(798.7,"IX",.01)=""
^DD(798.7,"IX",2)=""
^DD(798.7,"RQ",.01)=""
^DD(798.7,"SB",798.73,3)=""
^DD(798.7,"SB",798.74,4)=""
^DD(798.73,0)="REGISTRY SUB-FIELD^^.01^1"
^DD(798.73,0,"DT")="3010807"
^DD(798.73,0,"IX","B",798.73,.01)=""
^DD(798.73,0,"NM","REGISTRY")=""
^DD(798.73,0,"UP")="798.7"
^DD(798.73,.01,0)="REGISTRY^MP798.1'X^ROR(798.1,^0;1^S:$D(X) DINUM=X"
^DD(798.73,.01,1,0)="^.1^^-1"
^DD(798.73,.01,1,1,0)="798.73^B"
^DD(798.73,.01,1,1,1)="S ^RORDATA(798.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(798.73,.01,1,1,2)="K ^RORDATA(798.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(798.73,.01,1,1,3)="Do not delete!"
^DD(798.73,.01,21,0)="^^4^4^3020403^"
^DD(798.73,.01,21,1,0)="The value of this field is a pointer to a record "
^DD(798.73,.01,21,2,0)="of the ROR REGISTRY PARAMETERS file. The registry"
^DD(798.73,.01,21,3,0)="represented by that record was processed by the"
^DD(798.73,.01,21,4,0)="job that created this log."
^DD(798.73,.01,"DT")="3010906"
^DD(798.73,"B","REGISTRY",.01)=""
^DD(798.73,"GL",0,1,.01)=""
^DD(798.73,"IX",.01)=""
^DD(798.74,0)="MESSAGE SUB-FIELD^^4^5"
^DD(798.74,0,"DT")="3011109"
^DD(798.74,0,"IX","B",798.74,.01)=""
^DD(798.74,0,"NM","MESSAGE")=""
^DD(798.74,0,"UP")="798.7"
^DD(798.74,.01,0)="DATE/TIME^MD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(798.74,.01,1,0)="^.1"
^DD(798.74,.01,1,1,0)="798.74^B"
^DD(798.74,.01,1,1,1)="S ^RORDATA(798.7,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(798.74,.01,1,1,2)="K ^RORDATA(798.7,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(798.74,.01,1,1,3)="Do not delete!"
^DD(798.74,.01,21,0)="^^2^2^3011011^"
^DD(798.74,.01,21,1,0)="This field contains the date/time of the recorded"
^DD(798.74,.01,21,2,0)="event."
^DD(798.74,.01,23,0)="^^2^2^3020403^"
^DD(798.74,.01,23,1,0)="The field is populated automatically by the LOG^RORLOG "
^DD(798.74,.01,23,2,0)="procedure with the current date and time."
^DD(798.74,.01,"DT")="3010807"
^DD(798.74,1,0)="TYPE^RS^1:Debug;2:Information;3:Data Quality;4:Warning;5:Database Error;6:Error;^0;2^Q"
^DD(798.74,1,21,0)="^^6^6^3050722^"
^DD(798.74,1,21,1,0)="The value of this field indicates the type of the"
^DD(798.74,1,21,2,0)="recorded event."
^DD(798.74,1,21,3,0)=" "
^DD(798.74,1,21,4,0)="You can control which events are recorded and "
^DD(798.74,1,21,5,0)="which are not via the LOG EVENT multiple of the"
^DD(798.74,1,21,6,0)="ROR REGISTRY PARAMETERS file."
^DD(798.74,1,"DT")="3010807"
^DD(798.74,2,0)="MESSAGE^RF^^2;E1,245^K:$L(X)>70!($L(X)<1) X"
^DD(798.74,2,3)="Answer must be 1-70 characters in length."
^DD(798.74,2,9)=""
^DD(798.74,2,21,0)="^^2^2^3011109^"
^DD(798.74,2,21,1,0)="This field contains a text message describing the "
^DD(798.74,2,21,2,0)="recorded event."
^DD(798.74,2,"DT")="3011109"
^DD(798.74,3,0)="PATIENT^P2'^DPT(^0;4^Q"
^DD(798.74,3,21,0)="^^3^3^3020403^"
^DD(798.74,3,21,1,0)="If the recorded event can be associated with a "
^DD(798.74,3,21,2,0)="particular patient, this field contains a pointer "
^DD(798.74,3,21,3,0)="to the patient record in the PATIENT file (DFN)."
^DD(798.74,3,"DT")="3010807"
^DD(798.74,4,0)="ADDITIONAL INFO^798.744^^1;0"
^DD(798.74,4,21,0)="^.001^2^2^3011011^^^"
^DD(798.74,4,21,1,0)="This field contains any additional information "
^DD(798.74,4,21,2,0)="describing the event."
^DD(798.74,"B","ADDITIONAL INFO",4)=""
^DD(798.74,"B","DATE/TIME",.01)=""
^DD(798.74,"B","MESSAGE",2)=""
^DD(798.74,"B","PATIENT",3)=""
^DD(798.74,"B","TYPE",1)=""
^DD(798.74,"GL",0,1,.01)=""
^DD(798.74,"GL",0,2,1)=""
^DD(798.74,"GL",0,4,3)=""
^DD(798.74,"GL",1,0,4)=""
^DD(798.74,"GL",2,"E1,245",2)=""
^DD(798.74,"IX",.01)=""
^DD(798.74,"RQ",1)=""
^DD(798.74,"RQ",2)=""
^DD(798.74,"SB",798.744,4)=""
^DD(798.744,0)="ADDITIONAL INFO SUB-FIELD^^.01^1"
^DD(798.744,0,"DT")="3010807"
^DD(798.744,0,"NM","ADDITIONAL INFO")=""
^DD(798.744,0,"UP")="798.74"
^DD(798.744,.01,0)="ADDITIONAL INFO^WL^^0;1^Q"
^DD(798.744,.01,21,0)="^^2^2^3011011^"
^DD(798.744,.01,21,1,0)="This field contains any additional information "
^DD(798.744,.01,21,2,0)="describing the event."
^DD(798.744,.01,"DT")="3010807"
^DD(798.744,"B","ADDITIONAL INFO",.01)=""
^DD(798.744,"GL",0,1,.01)=""
^DD(798.8,0)="FIELD^^7^16"
^DD(798.8,0,"DDA")="N"
^DD(798.8,0,"DT")="3050217"
^DD(798.8,0,"IX","ACDT",798.8,.07)=""
^DD(798.8,0,"IX","ADUMMY",798.8,.03)=""
^DD(798.8,0,"IX","ALOG",798.8,2.03)=""
^DD(798.8,0,"IX","B",798.8,.01)=""
^DD(798.8,0,"IX","U",798.8,.08)=""
^DD(798.8,0,"NM","ROR TASK")=""
^DD(798.8,0,"SCR")="I $$ACCESS^RORDD(798.8)"
^DD(798.8,0,"VR")="1.5"
^DD(798.8,0,"VRPK")="ROR"
^DD(798.8,.01,0)="TASK NUMBER^RNJ10,0XI^^0;1^K:+X'=X!(X>9899999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(798.8,.01,1,0)="^.1"
^DD(798.8,.01,1,1,0)="798.8^B"
^DD(798.8,.01,1,1,1)="S ^RORDATA(798.8,""B"",$E(X,1,30),DA)="""""
^DD(798.8,.01,1,1,2)="K ^RORDATA(798.8,""B"",$E(X,1,30),DA)"
^DD(798.8,.01,1,1,3)="Do not delete!"
^DD(798.8,.01,1,2,0)="^^TRIGGER^798.8^.07"
^DD(798.8,.01,1,2,1)="X ^DD(798.8,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(798.8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(798.8,.01,1,2,1.4)"
^DD(798.8,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(798.8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7)="""""
^DD(798.8,.01,1,2,1.4)="S DIH=$G(^RORDATA(798.8,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=798.8,DIG=.07 D ^DICR"
^DD(798.8,.01,1,2,2)="Q"
^DD(798.8,.01,1,2,3)="Do not delete!"
^DD(798.8,.01,1,2,"%D",0)="^^3^3^3030502^"
^DD(798.8,.01,1,2,"%D",1,0)="This trigger populates the CREATION TIME field "
^DD(798.8,.01,1,2,"%D",2,0)="with the current date and time when the task is"
^DD(798.8,.01,1,2,"%D",3,0)="created."
^DD(798.8,.01,1,2,"CREATE CONDITION")="CREATION TIME="""""
^DD(798.8,.01,1,2,"CREATE VALUE")="NOW"
^DD(798.8,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(798.8,.01,1,2,"DT")="3021109"
^DD(798.8,.01,1,2,"FIELD")="CREATION TIME"
^DD(798.8,.01,1,3,0)="^^TRIGGER^798.8^.08"
^DD(798.8,.01,1,3,1)="X ^DD(798.8,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(798.8,D0,0)):^(0),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(798.8,.01,1,3,1.1) S DIH=$G(^RORDATA(798.8,DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=798.8,DIG=.08 D ^DICR"
^DD(798.8,.01,1,3,1.1)="S X=DIV X ^DD(798.8,.01,1,3,49.2) S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""""),X=$S('DUZ:""??"",X=""#"":DUZ,X=""N"":$P(%,U,1),X=""I"":$P(%,U,2),X=""T"":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""""),X=""NN"":$S($D(^VA(200,+DUZ,.1)):$P(^(.1),U,4),1:""""),1:""??"") K %"
^DD(798.8,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(798.8,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,8),0)):"""",1:$P(^(0),U,1))="""""
^DD(798.8,.01,1,3,2)="Q"
^DD(798.8,.01,1,3,3)="Do not delete!"
^DD(798.8,.01,1,3,49.2)="S X=""#"""
^DD(798.8,.01,1,3,"%D",0)="^^2^2^3030502^"
^DD(798.8,.01,1,3,"%D",1,0)="This trigger populates the USER field with the DUZ"
^DD(798.8,.01,1,3,"%D",2,0)="of the user who created the task."
^DD(798.8,.01,1,3,"CREATE CONDITION")="USER="""""
^DD(798.8,.01,1,3,"CREATE VALUE")="USER(""#"")"
^DD(798.8,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(798.8,.01,1,3,"DT")="3021109"
^DD(798.8,.01,1,3,"FIELD")="USER"
^DD(798.8,.01,3)="Type a Number between 1 and 9899999999, 0 Decimal Digits"
^DD(798.8,.01,8.5)="@"
^DD(798.8,.01,9)="@"
^DD(798.8,.01,21,0)="^^2^2^3030507^"
^DD(798.8,.01,21,1,0)="The TASK NUMBER field references the task created"
^DD(798.8,.01,21,2,0)="by Taskman."
^DD(798.8,.01,23,0)="^.001^2^2^3030507^^"
^DD(798.8,.01,23,1,0)="Internal value of this field is used as the internal"
^DD(798.8,.01,23,2,0)="entry number of record (""DINUM"" feature)."
^DD(798.8,.01,"DT")="3031027"
^DD(798.8,.02,0)="TYPE^RSI^1:Generic;2:Report;^0;2^Q"
^DD(798.8,.02,8.5)="@"
^DD(798.8,.02,9)="@"
^DD(798.8,.02,21,0)="^.001^1^1^3060203^^^"
^DD(798.8,.02,21,1,0)="The TYPE field indicates the type of task."
^DD(798.8,.02,23,0)="^^1^1^3060203^"
^DD(798.8,.02,23,1,0)="Currently only 'Report' tasks are used."
^DD(798.8,.02,"DT")="3031028"
^DD(798.8,.03,0)="REGISTRY^P798.1'I^ROR(798.1,^0;3^Q"
^DD(798.8,.03,1,0)="^.1"
^DD(798.8,.03,1,1,0)="798.8^ADUMMY^MUMPS"
^DD(798.8,.03,1,1,1)="Q"
^DD(798.8,.03,1,1,2)="Q"
^DD(798.8,.03,1,1,3)="Do not delete!"
^DD(798.8,.03,1,1,"%D",0)="^^4^4^3030507^"
^DD(798.8,.03,1,1,"%D",1,0)="This dummy cross-reference forces FileMan to flush"
^DD(798.8,.03,1,1,"%D",2,0)="data during editing a record.  This is required"
^DD(798.8,.03,1,1,"%D",3,0)="for the proper functioning of the REPORT field's"
^DD(798.8,.03,1,1,"%D",4,0)="screening logic."
^DD(798.8,.03,1,1,"DT")="3021127"
^DD(798.8,.03,3)=""
^DD(798.8,.03,8.5)="@"
^DD(798.8,.03,9)="@"
^DD(798.8,.03,21,0)="^^6^6^3030501^"
^DD(798.8,.03,21,1,0)="The REGISTRY field references the registry that "
^DD(798.8,.03,21,2,0)="the task is associated with. "
^DD(798.8,.03,21,3,0)=" "
^DD(798.8,.03,21,4,0)="If this field has no value then the task either"
^DD(798.8,.03,21,5,0)="works on several registries or does not affect any"
^DD(798.8,.03,21,6,0)="of them directly."
^DD(798.8,.03,"DT")="3031028"
^DD(798.8,.04,0)="REPORT^P799.34'I^ROR(799.34,^0;4^Q"
^DD(798.8,.04,8.5)="@"
^DD(798.8,.04,9)="@"
^DD(798.8,.04,21,0)="^^3^3^3040121^"
^DD(798.8,.04,21,1,0)="The REPORT field indicates the report generated by"
^DD(798.8,.04,21,2,0)="the task.  This field has a value only if the type"
^DD(798.8,.04,21,3,0)="of task is 'Report' (see the TYPE field)."
^DD(798.8,.04,"DT")="3040121"
^DD(798.8,.05,0)="DESCRIPTION^F^^0;5^K:$L(X)>60!($L(X)<1) X"
^DD(798.8,.05,3)="Answer must be 1-60 characters in length."
^DD(798.8,.05,8.5)="@"
^DD(798.8,.05,9)="@"
^DD(798.8,.05,21,0)="^^2^2^3060203^"
^DD(798.8,.05,21,1,0)="This field stores the description of task.  For"
^DD(798.8,.05,21,2,0)="reports, it holds the report name."
^DD(798.8,.05,"DT")="3021107"
^DD(798.8,.07,0)="CREATION TIME^RDI^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(798.8,.07,1,0)="^.1"
^DD(798.8,.07,1,1,0)="798.8^ACDT"
^DD(798.8,.07,1,1,1)="S ^RORDATA(798.8,""ACDT"",$E(X,1,30),DA)="""""
^DD(798.8,.07,1,1,2)="K ^RORDATA(798.8,""ACDT"",$E(X,1,30),DA)"
^DD(798.8,.07,1,1,3)="Do not delete!"
^DD(798.8,.07,1,1,"%D",0)="^^2^2^3060203^"
^DD(798.8,.07,1,1,"%D",1,0)="The $$PURGE^RORTSK02 function uses the ACDT"
^DD(798.8,.07,1,1,"%D",2,0)="cross-reference to find and purge old tasks."
^DD(798.8,.07,1,1,"DT")="3030317"
^DD(798.8,.07,5,1,0)="798.8^.01^2"
^DD(798.8,.07,8.5)="@"
^DD(798.8,.07,9)="@"
^DD(798.8,.07,21,0)="^^4^4^3030502^"
^DD(798.8,.07,21,1,0)="The CREATION TIME field stores the date and time "
^DD(798.8,.07,21,2,0)="when the task was created.  This field is"
^DD(798.8,.07,21,3,0)="populated by the trigger associated with the TASK"
^DD(798.8,.07,21,4,0)="NUMBER field."
^DD(798.8,.07,"DT")="3030317"
^DD(798.8,.08,0)="USER^RP200'I^VA(200,^0;8^Q"
^DD(798.8,.08,1,0)="^.1"
^DD(798.8,.08,1,1,0)="798.8^U"
^DD(798.8,.08,1,1,1)="S ^RORDATA(798.8,""U"",$E(X,1,30),DA)="""""
^DD(798.8,.08,1,1,2)="K ^RORDATA(798.8,""U"",$E(X,1,30),DA)"
^DD(798.8,.08,1,1,3)="Do not delete!"
^DD(798.8,.08,1,1,"%D",0)="^^2^2^3031210^"
^DD(798.8,.08,1,1,"%D",1,0)="This cross-reference is used to select only the"
^DD(798.8,.08,1,1,"%D",2,0)="tasks created by a particular user."
^DD(798.8,.08,1,1,"DT")="3021109"
^DD(798.8,.08,5,1,0)="798.8^.01^3"
^DD(798.8,.08,8.5)="@"
^DD(798.8,.08,9)="@"
^DD(798.8,.08,21,0)="^^3^3^3030502^"
^DD(798.8,.08,21,1,0)="The USER field references the VistA user who"
^DD(798.8,.08,21,2,0)="created the task.  This field is populated by the"
^DD(798.8,.08,21,3,0)="trigger associated with the TASK NUMBER field."
^DD(798.8,.08,"DT")="3021109"
^DD(798.8,1.01,0)="USER COMMENT^F^^1;1^K:$L(X)>60!($L(X)<1) X"
^DD(798.8,1.01,3)="Answer must be 1-60 characters in length."
^DD(798.8,1.01,8.5)="@"
^DD(798.8,1.01,9)="@"
^DD(798.8,1.01,21,0)="^^2^2^3060203^"
^DD(798.8,1.01,21,1,0)="This field stores the user comment entered while"
^DD(798.8,1.01,21,2,0)="scheduling the task."
^DD(798.8,1.01,"DT")="3050217"
^DD(798.8,2.01,0)="STATUS^S^3:Inactive> Finished;5:Inactive> Interrupted;100:Inactive> Crashed;101:Inactive> Errors;102:Active> Suspended;103:Active> Stopping;^2;1^Q"
^DD(798.8,2.01,3)=""
^DD(798.8,2.01,8.5)="@"
^DD(798.8,2.01,9)="@"
^DD(798.8,2.01,21,0)="^.001^3^3^3060203^^^"
^DD(798.8,2.01,21,1,0)="The STATUS field stores the current status of the"
^DD(798.8,2.01,21,2,0)="task.  The values of this field are used along"
^DD(798.8,2.01,21,3,0)="with those returned by the STAT^%ZTLOAD procedure."
^DD(798.8,2.01,23,0)="^^6^6^3060203^"
^DD(798.8,2.01,23,1,0)="Codes 3 and 5 are duplicated here so that the most"
^DD(798.8,2.01,23,2,0)="recent status of task will be known even if the task is"
^DD(798.8,2.01,23,3,0)="deleted by Taskman."
^DD(798.8,2.01,23,4,0)=" "
^DD(798.8,2.01,23,5,0)="Please do not try to analyze this field yourself; use "
^DD(798.8,2.01,23,6,0)="the $$STATUS^RORTSK02 function instead."
^DD(798.8,2.01,"DT")="3031201"
^DD(798.8,2.02,0)="COMPLETION TIME^D^^2;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(798.8,2.02,3)=""
^DD(798.8,2.02,8.5)="@"
^DD(798.8,2.02,9)="@"
^DD(798.8,2.02,21,0)="^^3^3^3030501^"
^DD(798.8,2.02,21,1,0)="The task populates the COMPLETION TIME field with"
^DD(798.8,2.02,21,2,0)="the current date and time right before the task is"
^DD(798.8,2.02,21,3,0)="completed."
^DD(798.8,2.02,23,0)="^^7^7^3030507^"
^DD(798.8,2.02,23,1,0)="This field has no value in the following cases:"
^DD(798.8,2.02,23,2,0)=" "
^DD(798.8,2.02,23,3,0)=" * the task has not started yet;"
^DD(798.8,2.02,23,4,0)=" * the task is still running;"
^DD(798.8,2.02,23,5,0)=" * the task has crashed;"
^DD(798.8,2.02,23,6,0)=" * the task has not populated the field"
^DD(798.8,2.02,23,7,0)="   due to poor design."
^DD(798.8,2.02,"DT")="3030317"
^DD(798.8,2.03,0)="LOG^P798.7'^RORDATA(798.7,^2;3^Q"
^DD(798.8,2.03,1,0)="^.1"
^DD(798.8,2.03,1,1,0)="798.8^ALOG^MUMPS"
^DD(798.8,2.03,1,1,1)="S ^RORDATA(798.7,""AREF"",X,798.8,DA_"","",2.03)="""""
^DD(798.8,2.03,1,1,2)="K ^RORDATA(798.7,""AREF"",X,798.8,DA_"","",2.03)"
^DD(798.8,2.03,1,1,3)="Do not delete!"
^DD(798.8,2.03,1,1,"%D",0)="^^24^24^3030502^"
^DD(798.8,2.03,1,1,"%D",1,0)="The logic of the ALOG cross-reference maintains a"
^DD(798.8,2.03,1,1,"%D",2,0)="list of references from the ROR TASK file to the"
^DD(798.8,2.03,1,1,"%D",3,0)="ROR LOG file.  This list allows the function that"
^DD(798.8,2.03,1,1,"%D",4,0)="purges the old logs ($$PURGE^RORLOG01) either to "
^DD(798.8,2.03,1,1,"%D",5,0)="keep those logs that are referenced from other"
^DD(798.8,2.03,1,1,"%D",6,0)="files or to remove the references."
^DD(798.8,2.03,1,1,"%D",7,0)="                     "
^DD(798.8,2.03,1,1,"%D",8,0)="The list is stored under the ""AREF"" subscript in"
^DD(798.8,2.03,1,1,"%D",9,0)="the ROR LOG file (#798.7) and has the following "
^DD(798.8,2.03,1,1,"%D",10,0)="structure:"
^DD(798.8,2.03,1,1,"%D",11,0)="                     "
^DD(798.8,2.03,1,1,"%D",12,0)=" ^RORDATA(798.7,""AREF"",<Log>,798.8,<IENS>,2.03)"
^DD(798.8,2.03,1,1,"%D",13,0)="                     "
^DD(798.8,2.03,1,1,"%D",14,0)="The <Log> is the IEN of the log that is associated"
^DD(798.8,2.03,1,1,"%D",15,0)="with the task (internal value of the LOG field)."
^DD(798.8,2.03,1,1,"%D",16,0)="                     "
^DD(798.8,2.03,1,1,"%D",17,0)="The 798.8 is the number of the file from where the"
^DD(798.8,2.03,1,1,"%D",18,0)="log is referenced (ROR TASK)."
^DD(798.8,2.03,1,1,"%D",19,0)="                     "
^DD(798.8,2.03,1,1,"%D",20,0)="The <IENS> is the IENS of the record that"
^DD(798.8,2.03,1,1,"%D",21,0)="references the log."
^DD(798.8,2.03,1,1,"%D",22,0)="                     "
^DD(798.8,2.03,1,1,"%D",23,0)="The 2.03 is the number of the field that points to"
^DD(798.8,2.03,1,1,"%D",24,0)="the log (the LOG field)."
^DD(798.8,2.03,1,1,"DT")="3030318"
^DD(798.8,2.03,8.5)="@"
^DD(798.8,2.03,9)="@"
^DD(798.8,2.03,21,0)="^^2^2^3030501^"
^DD(798.8,2.03,21,1,0)="The LOG field references the log created by the "
^DD(798.8,2.03,21,2,0)="task."
^DD(798.8,2.03,23,0)="^^2^2^3030501^"
^DD(798.8,2.03,23,1,0)="The proxy task used by the reports (TASK^RORTSK01)"
^DD(798.8,2.03,23,2,0)="always creates a log and populates this field."
^DD(798.8,2.03,"DT")="3030318"
^DD(798.8,2.04,0)="JOB NUMBER^NJ12,0^^2;4^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.8,2.04,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits."
^DD(798.8,2.04,8.5)="@"
^DD(798.8,2.04,9)="@"
^DD(798.8,2.04,21,0)="^.001^3^3^3060203^^"
^DD(798.8,2.04,21,1,0)="When the task is running, the JOB NUMBER field"
^DD(798.8,2.04,21,2,0)="holds the job number that is assigned to the task"
^DD(798.8,2.04,21,3,0)="by the M system."
^DD(798.8,2.04,23,0)="^.001^3^3^3060203^^"
^DD(798.8,2.04,23,1,0)="If the task crashes, this field retains its value. "
^DD(798.8,2.04,23,2,0)="Otherwise, it is cleared right before the task finishes"
^DD(798.8,2.04,23,3,0)="(see the $$EXIT^RORTSK01 function)."
^DD(798.8,2.04,"DT")="3021109"
^DD(798.8,3,0)="SUBTASK^798.83^^T;0"
^DD(798.8,3,9)="@"
^DD(798.8,3,21,0)="^.001^2^2^3030507^^"
^DD(798.8,3,21,1,0)="The SUBTASK multiple contains a list of subtasks "
^DD(798.8,3,21,2,0)="started by the main task."
^DD(798.8,3,23,0)="^^2^2^3030507^"
^DD(798.8,3,23,1,0)="The subtask functionality has not been implemented yet."
^DD(798.8,3,23,2,0)="This multiple is reserved for future use."
^DD(798.8,4,0)="PROGRESS^NJ7,3^^P;E1,255^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""4N.N) X"
^DD(798.8,4,3)="Type a Number between 0 and 100, 3 Decimal Digits."
^DD(798.8,4,8.5)="@"
^DD(798.8,4,9)="@"
^DD(798.8,4,21,0)="^^4^4^3060203^"
^DD(798.8,4,21,1,0)="The PROGRESS field stores the percentage of "
^DD(798.8,4,21,2,0)="completion of the task.  If the task does not "
^DD(798.8,4,21,3,0)="explicitly support this feature, the field is "
^DD(798.8,4,21,4,0)="always empty."
^DD(798.8,4,23,0)="^.001^3^3^3060203^^^^"
^DD(798.8,4,23,1,0)="The task can update the value of this field using the "
^DD(798.8,4,23,2,0)="parameter of the $$LOOP^RORTSK01 function that should "
^DD(798.8,4,23,3,0)="be called in the main loop of the task."
^DD(798.8,4,"DT")="3021114"
^DD(798.8,5,0)="ACTION^S^1:Suspend;2:Stop;^A;E1,255^Q"
^DD(798.8,5,8.5)="@"
^DD(798.8,5,9)="@"
^DD(798.8,5,21,0)="^^3^3^3030502^"
^DD(798.8,5,21,1,0)="Values of the ACTION field control the task"
^DD(798.8,5,21,2,0)="behavior.  You can either suspend/resume or stop"
^DD(798.8,5,21,3,0)="the task"
^DD(798.8,5,23,0)="^^7^7^3030502^"
^DD(798.8,5,23,1,0)="Please do not modify this field directly.  Use the "
^DD(798.8,5,23,2,0)="$$DEQUEUE^RORTSK function to stop the task, and the"
^DD(798.8,5,23,3,0)="$$SUSPEND^RORTSK02 and $$RESUME^RORTSK02 functions to"
^DD(798.8,5,23,4,0)="suspend/resume it."
^DD(798.8,5,23,5,0)=" "
^DD(798.8,5,23,6,0)="The task can also be stopped using the Stop task option"
^DD(798.8,5,23,7,0)="of the Taskman User menu (see the User's Toolbox menu)."
^DD(798.8,5,"DT")="3021114"
^DD(798.8,7,0)="REPORT ELEMENT^798.87P^^RI;0"
^DD(798.8,7,9)="@"
^DD(798.8,7,21,0)="^.001^18^18^3030501^^^"
^DD(798.8,7,21,1,0)="The REPORT ELEMENT multiple stores the output of "
^DD(798.8,7,21,2,0)="the 'Report' task (see the TYPE field)."
^DD(798.8,7,21,3,0)=" "
^DD(798.8,7,21,4,0)="A report is stored as a tree of XML elements. Each"
^DD(798.8,7,21,5,0)="element can contain some text, a single-line value"
^DD(798.8,7,21,6,0)="or no value at all. Several attributes can be "
^DD(798.8,7,21,7,0)="associated with the element. Valid element and"
^DD(798.8,7,21,8,0)="attribute names are stored in the ROR XML ELEMENT "
^DD(798.8,7,21,9,0)="and ROR XML ATTRIBUTE files."
^DD(798.8,7,21,10,0)=" "
^DD(798.8,7,21,11,0)="Storing the XML document in this sparse format"
^DD(798.8,7,21,12,0)="allows to perform sorting on predefined fields"
^DD(798.8,7,21,13,0)="(on the server) when the report is created."
^DD(798.8,7,21,14,0)=" "
^DD(798.8,7,21,15,0)="If you do not need this functionality, you can "
^DD(798.8,7,21,16,0)="generate a report as a single element (in terms "
^DD(798.8,7,21,17,0)="of this multiple) that contains the whole XML "
^DD(798.8,7,21,18,0)="document."
^DD(798.8,7,23,0)="^.001^2^2^3030501^^"
^DD(798.8,7,23,1,0)="Please do not edit this multiple directly. Use the API "
^DD(798.8,7,23,2,0)="defined in the RORTSK1 routine instead."
^DD(798.8,7,"DT")="3021129"
^DD(798.8,"B","ACTION",5)=""
^DD(798.8,"B","COMPLETION TIME",2.02)=""
^DD(798.8,"B","CREATION TIME",.07)=""
^DD(798.8,"B","DESCRIPTION",.05)=""
^DD(798.8,"B","JOB NUMBER",2.04)=""
^DD(798.8,"B","LOG",2.03)=""
^DD(798.8,"B","PROGRESS",4)=""
^DD(798.8,"B","REGISTRY",.03)=""
^DD(798.8,"B","REPORT",.04)=""
^DD(798.8,"B","REPORT ELEMENT",7)=""
^DD(798.8,"B","STATUS",2.01)=""
^DD(798.8,"B","SUBTASK",3)=""
^DD(798.8,"B","TASK NUMBER",.01)=""
^DD(798.8,"B","TYPE",.02)=""
^DD(798.8,"B","USER",.08)=""
^DD(798.8,"B","USER COMMENT",1.01)=""
^DD(798.8,"GL",0,1,.01)=""
^DD(798.8,"GL",0,2,.02)=""
^DD(798.8,"GL",0,3,.03)=""
^DD(798.8,"GL",0,4,.04)=""
^DD(798.8,"GL",0,5,.05)=""
^DD(798.8,"GL",0,7,.07)=""
^DD(798.8,"GL",0,8,.08)=""
^DD(798.8,"GL",1,1,1.01)=""
^DD(798.8,"GL",2,1,2.01)=""
^DD(798.8,"GL",2,2,2.02)=""
^DD(798.8,"GL",2,3,2.03)=""
^DD(798.8,"GL",2,4,2.04)=""
^DD(798.8,"GL","A","E1,255",5)=""
^DD(798.8,"GL","P","E1,255",4)=""
^DD(798.8,"GL","RI",0,7)=""
^DD(798.8,"GL","T",0,3)=""
^DD(798.8,"IX",.01)=""
^DD(798.8,"IX",.03)=""
^DD(798.8,"IX",.07)=""
^DD(798.8,"IX",.08)=""
^DD(798.8,"IX",2.03)=""
^DD(798.8,"RQ",.01)=""
^DD(798.8,"RQ",.02)=""
^DD(798.8,"RQ",.07)=""
^DD(798.8,"RQ",.08)=""
^DD(798.8,"SB",798.83,3)=""
^DD(798.8,"SB",798.87,7)=""
^DD(798.83,0)="SUBTASK SUB-FIELD^^.01^2"
^DD(798.83,0,"DT")="3021113"
^DD(798.83,0,"NM","SUBTASK")=""
^DD(798.83,0,"UP")="798.8"
^DD(798.83,.001,0)="NUMBER^NJ10,0^^ ^K:+X'=X!(X>9899999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.83,.001,3)="Type a Number between 1 and 9899999999, 0 Decimal Digits."
^DD(798.83,.001,8.5)="@"
^DD(798.83,.001,9)="@"
^DD(798.83,.001,21,0)="^.001^2^2^3060203^^"
^DD(798.83,.001,21,1,0)="This is the record IEN that should be equal to the"
^DD(798.83,.001,21,2,0)="subtask number."
^DD(798.83,.001,"DT")="3021113"
^DD(798.83,.01,0)="STATUS^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(798.83,.01,1,0)="^.1^^0"
^DD(798.83,.01,3)="Answer must be 1-10 characters in length."
^DD(798.83,.01,8.5)="@"
^DD(798.83,.01,9)="@"
^DD(798.83,.01,21,0)="^^2^2^3030501^"
^DD(798.83,.01,21,1,0)="The current status of the subtask is stored in "
^DD(798.83,.01,21,2,0)="this field."
^DD(798.83,.01,"DT")="3021113"
^DD(798.83,"B","NUMBER",.001)=""
^DD(798.83,"B","STATUS",.01)=""
^DD(798.83,"GL",0,1,.01)=""
^DD(798.87,0)="REPORT ELEMENT SUB-FIELD^^3^7"
^DD(798.87,0,"DT")="3031020"
^DD(798.87,0,"IX","B",798.87,.01)=""
^DD(798.87,0,"NM","REPORT ELEMENT")=""
^DD(798.87,0,"UP")="798.8"
^DD(798.87,.01,0)="REPORT ELEMENT^MP799.31'^ROR(799.31,^0;1^Q"
^DD(798.87,.01,1,0)="^.1"
^DD(798.87,.01,1,1,0)="798.87^B"
^DD(798.87,.01,1,1,1)="S ^RORDATA(798.8,DA(1),""RI"",""B"",$E(X,1,30),DA)="""""
^DD(798.87,.01,1,1,2)="K ^RORDATA(798.8,DA(1),""RI"",""B"",$E(X,1,30),DA)"
^DD(798.87,.01,1,1,3)="Do not delete!"
^DD(798.87,.01,1,1,"DT")="3021129"
^DD(798.87,.01,3)=""
^DD(798.87,.01,8.5)="@"
^DD(798.87,.01,9)="@"
^DD(798.87,.01,21,0)="^^2^2^3030501^"
^DD(798.87,.01,21,1,0)="The REPORT ELEMENT field references the XML "
^DD(798.87,.01,21,2,0)="element (tag) that is a part of the report."
^DD(798.87,.01,"DT")="3030819"
^DD(798.87,.02,0)="PARENT^NJ12,0^^0;2^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(798.87,.02,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits."
^DD(798.87,.02,8.5)="@"
^DD(798.87,.02,9)="@"
^DD(798.87,.02,21,0)="^.001^3^3^3060203^^"
^DD(798.87,.02,21,1,0)="The PARENT field stores the IEN of the record of "
^DD(798.87,.02,21,2,0)="the REPORT ELEMENT multiple that represents the"
^DD(798.87,.02,21,3,0)="parent element for this one."
^DD(798.87,.02,"DT")="3030819"
^DD(798.87,.03,0)="SORT BY^S^0:NO;1:AS-IS;2:STRING;3:NUMBER;^0;3^Q"
^DD(798.87,.03,8.5)="@"
^DD(798.87,.03,9)="@"
^DD(798.87,.03,21,0)="^.001^8^8^3061114^^"
^DD(798.87,.03,21,1,0)="The SORT field determines if the value of the "
^DD(798.87,.03,21,2,0)="element should be included in the special index"
^DD(798.87,.03,21,3,0)="(APSV1) that allows report sorting on the server."
^DD(798.87,.03,21,4,0)="It also controls how the value is transformed"
^DD(798.87,.03,21,5,0)="before adding to the index."
^DD(798.87,.03,21,6,0)=" "
^DD(798.87,.03,21,7,0)="Only those elements that have single-line values "
^DD(798.87,.03,21,8,0)="can be sorted."
^DD(798.87,.03,23,0)="^.001^29^29^3061114^^"
^DD(798.87,.03,23,1,0)="For example, let us assume the report has the following"
^DD(798.87,.03,23,2,0)="structure:"
^DD(798.87,.03,23,3,0)=" "
^DD(798.87,.03,23,4,0)="  <REPORT>"
^DD(798.87,.03,23,5,0)="   <HEADER>"
^DD(798.87,.03,23,6,0)="   ..."
^DD(798.87,.03,23,7,0)="   </HEADER>"
^DD(798.87,.03,23,8,0)="   <PATIENTS>"
^DD(798.87,.03,23,9,0)="    <PATIENT>"
^DD(798.87,.03,23,10,0)="     <NAME> ... </NAME>"
^DD(798.87,.03,23,11,0)="     <DOB> ... </DOB>"
^DD(798.87,.03,23,12,0)="     <SELRULES>"
^DD(798.87,.03,23,13,0)="      <RULE>"
^DD(798.87,.03,23,14,0)="       <NAME> ... </NAME>"
^DD(798.87,.03,23,15,0)="       <DATE> ... </DATE>"
^DD(798.87,.03,23,16,0)="      </RULE>"
^DD(798.87,.03,23,17,0)="      ..."
^DD(798.87,.03,23,18,0)="     </SELRULES>"
^DD(798.87,.03,23,19,0)="    </PATIENT>"
^DD(798.87,.03,23,20,0)="    ..."
^DD(798.87,.03,23,21,0)="   </PATIENTS>"
^DD(798.87,.03,23,22,0)="  </REPORT>"
^DD(798.87,.03,23,23,0)=" "
^DD(798.87,.03,23,24,0)="If the SORT BY field is populated and greater than 0 "
^DD(798.87,.03,23,25,0)="for the NAME child element of each PATIENT element,"
^DD(798.87,.03,23,26,0)="then the patients will be sorted by their names."
^DD(798.87,.03,23,27,0)=" "
^DD(798.87,.03,23,28,0)="See the $$SORTBY^RORDD01 function for details "
^DD(798.87,.03,23,29,0)="regarding different types of sorting."
^DD(798.87,.03,"DT")="3030819"
^DD(798.87,.04,0)="IGNORE^S^0:NO;1:YES;^0;4^Q"
^DD(798.87,.04,21,0)="^^3^3^3060203^"
^DD(798.87,.04,21,1,0)="If the IGNORE field is set to 'YES' then the "
^DD(798.87,.04,21,2,0)="report element and all its descendants will not be"
^DD(798.87,.04,21,3,0)="rendered into the resulting XML document."
^DD(798.87,.04,"DT")="3030924"
^DD(798.87,1,0)="VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(798.87,1,3)="Answer must be 1-245 characters in length."
^DD(798.87,1,8.5)="@"
^DD(798.87,1,9)="@"
^DD(798.87,1,21,0)="^.001^5^5^3060203^^^"
^DD(798.87,1,21,1,0)="The VALUE field stores the single-line value of "
^DD(798.87,1,21,2,0)="the element.  For example, if ""SMITH, JOHN"" is"
^DD(798.87,1,21,3,0)="stored as the value of the NAME element, then the"
^DD(798.87,1,21,4,0)="corresponding fragment of the XML document will"
^DD(798.87,1,21,5,0)="look as follows: <NAME>SMITH, JOHN</NAME>."
^DD(798.87,1,"DT")="3030819"
^DD(798.87,2,0)="ATTRIBUTE^798.872P^^2;0"
^DD(798.87,2,9)="@"
^DD(798.87,2,21,0)="^.001^3^3^3030502^^"
^DD(798.87,2,21,1,0)="The ATTRIBUTE multiple contains a list of XML"
^DD(798.87,2,21,2,0)="attributes (and their values) associated with the "
^DD(798.87,2,21,3,0)="element."
^DD(798.87,3,0)="TEXT^798.873^^3;0"
^DD(798.87,3,9)="@"
^DD(798.87,3,21,0)="^^8^8^3060203^"
^DD(798.87,3,21,1,0)="The TEXT field stores the text (multi-line) value"
^DD(798.87,3,21,2,0)="of the element. For example, the corresponding"
^DD(798.87,3,21,3,0)="fragment of the XML document for the DESCRIPTION"
^DD(798.87,3,21,4,0)="element will look as follows:"
^DD(798.87,3,21,5,0)=" "
^DD(798.87,3,21,6,0)="  <DESCRIPTION>"
^DD(798.87,3,21,7,0)="  ... Text from this field ..."
^DD(798.87,3,21,8,0)="  </DESCRIPTION>"
^DD(798.87,"B","ATTRIBUTE",2)=""
^DD(798.87,"B","IGNORE",.04)=""
^DD(798.87,"B","PARENT",.02)=""
^DD(798.87,"B","REPORT ELEMENT",.01)=""
^DD(798.87,"B","SORT BY",.03)=""
^DD(798.87,"B","TEXT",3)=""
^DD(798.87,"B","VALUE",1)=""
^DD(798.87,"GL",0,1,.01)=""
^DD(798.87,"GL",0,2,.02)=""
^DD(798.87,"GL",0,3,.03)=""
^DD(798.87,"GL",0,4,.04)=""
^DD(798.87,"GL",1,"E1,245",1)=""
^DD(798.87,"GL",2,0,2)=""
^DD(798.87,"GL",3,0,3)=""
^DD(798.87,"IX",.01)=""
^DD(798.87,"SB",798.872,2)=""
^DD(798.87,"SB",798.873,3)=""
^DD(798.872,0)="ATTRIBUTE SUB-FIELD^^1^2"
^DD(798.872,0,"DT")="3031020"
^DD(798.872,0,"IX","B",798.872,.01)=""
^DD(798.872,0,"NM","ATTRIBUTE")=""
^DD(798.872,0,"UP")="798.87"
^DD(798.872,.01,0)="ATTRIBUTE^MP799.31'X^ROR(799.31,^0;1^S:$D(X) DINUM=X"
^DD(798.872,.01,1,0)="^.1"
^DD(798.872,.01,1,1,0)="798.872^B"
^DD(798.872,.01,1,1,1)="S ^RORDATA(798.8,DA(2),""RI"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(798.872,.01,1,1,2)="K ^RORDATA(798.8,DA(2),""RI"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(798.872,.01,1,1,3)="Do not delete!"
^DD(798.872,.01,1,1,"DT")="3030502"
^DD(798.872,.01,8.5)="@"
^DD(798.872,.01,9)="@"
^DD(798.872,.01,21,0)="^.001^2^2^3031020^^^^"
^DD(798.872,.01,21,1,0)="The ATTRIBUTE field references an XML attribute"
^DD(798.872,.01,21,2,0)="associated with the report element (tag)."
^DD(798.872,.01,"DT")="3031020"
^DD(798.872,1,0)="VALUE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(798.872,1,3)="Answer must be 1-245 characters in length."
^DD(798.872,1,8.5)="@"
^DD(798.872,1,9)="@"
^DD(798.872,1,21,0)="^^5^5^3060203^"
^DD(798.872,1,21,1,0)="The VALUE field stores the attribute value.  For"
^DD(798.872,1,21,2,0)="example, if ""193"" is stored as the value of the ID"
^DD(798.872,1,21,3,0)="attribute of the PATIENT report element, then the"
^DD(798.872,1,21,4,0)="corresponding fragment of the XML document will"
^DD(798.872,1,21,5,0)="look like as follow: <PATIENT ID=""193"">."
^DD(798.872,1,"DT")="3021130"
^DD(798.872,"B","ATTRIBUTE",.01)=""
^DD(798.872,"B","VALUE",1)=""
^DD(798.872,"GL",0,1,.01)=""
^DD(798.872,"GL",1,"E1,245",1)=""
^DD(798.872,"IX",.01)=""
^DD(798.873,0)="TEXT SUB-FIELD^^.01^1"
^DD(798.873,0,"DT")="3021130"
^DD(798.873,0,"NM","TEXT")=""
^DD(798.873,0,"UP")="798.87"
^DD(798.873,.01,0)="TEXT^WL^^0;1^Q"
^DD(798.873,.01,8.5)="@"
^DD(798.873,.01,9)="@"
^DD(798.873,.01,21,0)="^^2^2^3030502^"
^DD(798.873,.01,21,1,0)="This is a line of the text value of the report "
^DD(798.873,.01,21,2,0)="element."
^DD(798.873,.01,"DT")="3021130"
^DD(798.873,"B","TEXT",.01)=""
^DD(798.873,"GL",0,1,.01)=""
^DD(798.9,0)="FIELD^^2^4"
^DD(798.9,0,"DDA")="N"
^DD(798.9,0,"DT")="3031006"
^DD(798.9,0,"IX","ALN",798.92,.01)=""
^DD(798.9,0,"IX","ANLT",798.92,.02)=""
^DD(798.9,0,"NM","ROR LAB SEARCH")=""
^DD(798.9,0,"VR")="1.5"
^DD(798.9,0,"VRPK")="ROR"
^DD(798.9,.01,0)="NAME^RFX^^0;1^Q:$$VAEDT^RORDD(798.9,$G(DA))  K:$L(X)>30!($L(X)<3) X"
^DD(798.9,.01,1,0)="^.1^^0"
^DD(798.9,.01,3)="Enter a unique name spaced criterion name (3-30 characters)."
^DD(798.9,.01,8.5)="@"
^DD(798.9,.01,9)="@"
^DD(798.9,.01,21,0)="^^6^6^3011016^"
^DD(798.9,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(798.9,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(798.9,.01,21,3,0)=" "
^DD(798.9,.01,21,4,0)="The criterion name must be unique and name spaced."
^DD(798.9,.01,21,5,0)="The names that are used for National Registries"
^DD(798.9,.01,21,6,0)="must start with ""VA""."
^DD(798.9,.01,"DEL",1,0)="I $$VADEL^RORDD(798.9,$G(DA))"
^DD(798.9,.01,"DT")="3010720"
^DD(798.9,.09,0)="NATIONAL^SX^0:NO;1:YES;^0;3^Q:$$VAEDT^RORDD(798.9,,-1)"
^DD(798.9,.09,8.5)="@"
^DD(798.9,.09,9)="@"
^DD(798.9,.09,21,0)="^^6^6^3060203^"
^DD(798.9,.09,21,1,0)="ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN"
^DD(798.9,.09,21,2,0)="EDIT THIS FIELD!"
^DD(798.9,.09,21,3,0)=" "
^DD(798.9,.09,21,4,0)="The national registries must have this field set"
^DD(798.9,.09,21,5,0)="to ""YES"". This prevents local editing of other"
^DD(798.9,.09,21,6,0)="fields of national registry definitions."
^DD(798.9,.09,"DEL",1,0)="I $$VADEL^RORDD(798.9,,-1)"
^DD(798.9,.09,"DT")="3011119"
^DD(798.9,1,0)="STATUS^S^0:ACTIVE;1:INACTIVE;^0;2^Q"
^DD(798.9,1,21,0)="^^2^2^3020403^"
^DD(798.9,1,21,1,0)="Select the ""INACTIVE"" code if you want to disable"
^DD(798.9,1,21,2,0)="the criterion temporarily."
^DD(798.9,1,"DT")="3011016"
^DD(798.9,2,0)="LAB TEST^798.92^^1;0"
^DD(798.9,2,9)="@"
^DD(798.9,2,21,0)="^^9^9^3011119^"
^DD(798.9,2,21,1,0)="This multiple contains a list of the Lab search "
^DD(798.9,2,21,2,0)="indicators used by the registry update process."
^DD(798.9,2,21,3,0)=" "
^DD(798.9,2,21,4,0)="If at least one of the indicators is evaluated as "
^DD(798.9,2,21,5,0)="True, the macro referencing the search criterion"
^DD(798.9,2,21,6,0)="will be evaluated as True as well."
^DD(798.9,2,21,7,0)=" "
^DD(798.9,2,21,8,0)="This multiple can contain several records for the"
^DD(798.9,2,21,9,0)="same Lab test."
^DD(798.9,"B","LAB TEST",2)=""
^DD(798.9,"B","NAME",.01)=""
^DD(798.9,"B","NATIONAL",.09)=""
^DD(798.9,"B","STATUS",1)=""
^DD(798.9,"GL",0,1,.01)=""
^DD(798.9,"GL",0,2,1)=""
^DD(798.9,"GL",0,3,.09)=""
^DD(798.9,"GL",1,0,2)=""
^DD(798.9,"RQ",.01)=""
^DD(798.9,"SB",798.92,2)=""
^DD(798.92,0)="LAB TEST SUB-FIELD^^2^4"
^DD(798.92,0,"DT")="3031006"
^DD(798.92,0,"IX","B",798.92,.01)=""
^DD(798.92,0,"NM","LAB TEST")=""
^DD(798.92,0,"UP")="798.9"
^DD(798.92,.01,0)="LOINC CODE^MNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(798.92,.01,1,0)="^.1"
^DD(798.92,.01,1,1,0)="798.92^B"
^DD(798.92,.01,1,1,1)="S ^ROR(798.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(798.92,.01,1,1,2)="K ^ROR(798.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(798.92,.01,1,1,3)="Do not delete!"
^DD(798.92,.01,1,2,0)="798.9^ALN"
^DD(798.92,.01,1,2,1)="S ^ROR(798.9,""ALN"",$E(X,1,30),DA(1),DA)="""""
^DD(798.92,.01,1,2,2)="K ^ROR(798.9,""ALN"",$E(X,1,30),DA(1),DA)"
^DD(798.92,.01,1,2,3)="Do not delete!"
^DD(798.92,.01,1,2,"%D",0)="^^3^3^3060203^"
^DD(798.92,.01,1,2,"%D",1,0)="This cross-reference can be used to find all "
^DD(798.92,.01,1,2,"%D",2,0)="criteria that look for Lab results with the"
^DD(798.92,.01,1,2,"%D",3,0)="specified LOINC code."
^DD(798.92,.01,1,2,"DT")="3010621"
^DD(798.92,.01,3)="Enter the LOINC code without a control digit."
^DD(798.92,.01,8.5)="@"
^DD(798.92,.01,9)="@"
^DD(798.92,.01,21,0)="^^2^2^3060202^"
^DD(798.92,.01,21,1,0)="Enter the numeric LOINC code (without the check"
^DD(798.92,.01,21,2,0)="digit) of the Lab result to be searched for. "
^DD(798.92,.01,23,0)="^^2^2^3060202^"
^DD(798.92,.01,23,1,0)="If you want to use only NLT code, enter zero as the"
^DD(798.92,.01,23,2,0)="value of this field."
^DD(798.92,.01,"DT")="3011119"
^DD(798.92,.02,0)="NLT CODE^F^^0;2^K:'(X?5N1"".""4.5N) X"
^DD(798.92,.02,1,0)="^.1"
^DD(798.92,.02,1,1,0)="798.9^ANLT"
^DD(798.92,.02,1,1,1)="S ^ROR(798.9,""ANLT"",$E(X,1,30),DA(1),DA)="""""
^DD(798.92,.02,1,1,2)="K ^ROR(798.9,""ANLT"",$E(X,1,30),DA(1),DA)"
^DD(798.92,.02,1,1,3)="Do not delete!"
^DD(798.92,.02,1,1,"%D",0)="^^3^3^3060203^"
^DD(798.92,.02,1,1,"%D",1,0)="This cross-reference can be used to find all "
^DD(798.92,.02,1,1,"%D",2,0)="criteria that look for Lab results with the"
^DD(798.92,.02,1,1,"%D",3,0)="specified NLT code."
^DD(798.92,.02,1,1,"DT")="3010621"
^DD(798.92,.02,3)="Enter the NLT code (NNNNN.MMMM[M])."
^DD(798.92,.02,8.5)="@"
^DD(798.92,.02,9)="@"
^DD(798.92,.02,21,0)="^.001^5^5^3011119^^^"
^DD(798.92,.02,21,1,0)="Enter the NLT code of the Lab result to be "
^DD(798.92,.02,21,2,0)="searched for. Both LOINC and NLT codes (if"
^DD(798.92,.02,21,3,0)="available) are used for searching the Lab results."
^DD(798.92,.02,21,4,0)="If you want to use only the LOINC code, leave this"
^DD(798.92,.02,21,5,0)="field empty."
^DD(798.92,.02,"DT")="3011119"
^DD(798.92,1,0)="INDICATOR^RS^0:Ignore;1:Use Reference Range;2:Contains;3:Greater Than;4:Less Than;5:Equal To;6:Positive Result;^0;3^Q"
^DD(798.92,1,8.5)="@"
^DD(798.92,1,9)="@"
^DD(798.92,1,21,0)="^^35^35^3060203^"
^DD(798.92,1,21,1,0)="The value of this field indicates the comparison"
^DD(798.92,1,21,2,0)="operation applied to the Lab result. The Lab"
^DD(798.92,1,21,3,0)="result is compared to the value of the INDICATED "
^DD(798.92,1,21,4,0)="VALUE field. "
^DD(798.92,1,21,5,0)=" "
^DD(798.92,1,21,6,0)="NOTE: All string comparisons are case-insensitive."
^DD(798.92,1,21,7,0)=" "
^DD(798.92,1,21,8,0)="For example, if the internal value of this field "
^DD(798.92,1,21,9,0)="is equal to 3 (""Greater Than"") and the value of"
^DD(798.92,1,21,10,0)="the INDICATED VALUE field is 5, then this "
^DD(798.92,1,21,11,0)="indicator will be evaluated as True for all"
^DD(798.92,1,21,12,0)="numeric Lab results values greater than 5."
^DD(798.92,1,21,13,0)=" "
^DD(798.92,1,21,14,0)="The ""Contains"" indicator checks if the indicated"
^DD(798.92,1,21,15,0)="value is contained in the Lab result value."
^DD(798.92,1,21,16,0)=" "
^DD(798.92,1,21,17,0)="The only exceptions are the ""Use Reference Range"""
^DD(798.92,1,21,18,0)="indicator, which checks if the result value is"
^DD(798.92,1,21,19,0)="outside of the reference range defined for the "
^DD(798.92,1,21,20,0)="Lab test, and the ""Positive Result""."
^DD(798.92,1,21,21,0)=" "
^DD(798.92,1,21,22,0)="The ""Positive Result"" indicator selects a test "
^DD(798.92,1,21,23,0)="result if the value"
^DD(798.92,1,21,24,0)=" "
^DD(798.92,1,21,25,0)="  * is equal to ""P"""
^DD(798.92,1,21,26,0)=" "
^DD(798.92,1,21,27,0)="    or"
^DD(798.92,1,21,28,0)=" "
^DD(798.92,1,21,29,0)="  * contains ""POS"", ""DETEC"" or ""REA"" and"
^DD(798.92,1,21,30,0)="    does not contain ""NEG"", ""NO"" or ""IND""."
^DD(798.92,1,21,31,0)=" "
^DD(798.92,1,21,32,0)="For example, the ""POSITIVE"", ""POS"", ""REACT"", and "
^DD(798.92,1,21,33,0)="""DETECTABLE"" values will be picked up. At the same"
^DD(798.92,1,21,34,0)="time, the ""NON-REACT"", ""INDETERMINATE"", and ""NEG"""
^DD(798.92,1,21,35,0)="values will be skipped."
^DD(798.92,1,"DT")="3031006"
^DD(798.92,2,0)="INDICATED VALUE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(798.92,2,3)="Answer must be 1-30 characters in length."
^DD(798.92,2,8.5)="@"
^DD(798.92,2,9)="@"
^DD(798.92,2,21,0)="^^3^3^3060202^"
^DD(798.92,2,21,1,0)="This field holds the value that the Lab results"
^DD(798.92,2,21,2,0)="are compared to (except the ""Use Reference Range"""
^DD(798.92,2,21,3,0)="and Positive Result indicators)."
^DD(798.92,2,"DT")="3010621"
^DD(798.92,"B","INDICATED VALUE",2)=""
^DD(798.92,"B","INDICATOR",1)=""
^DD(798.92,"B","LOINC CODE",.01)=""
^DD(798.92,"B","NLT CODE",.02)=""
^DD(798.92,"GL",0,1,.01)=""
^DD(798.92,"GL",0,2,.02)=""
^DD(798.92,"GL",0,3,1)=""
^DD(798.92,"GL",0,4,2)=""
^DD(798.92,"IX",.01)=""
^DD(798.92,"IX",.02)=""
^DD(798.92,"RQ",1)=""
^DD(799.1,0)="FIELD^^1^5"
^DD(799.1,0,"DDA")="N"
^DD(799.1,0,"DT")="3050805"
^DD(799.1,0,"NM","ROR LIST ITEM")=""
^DD(799.1,0,"PT",798.128,.02)=""
^DD(799.1,0,"PT",798.129,.02)=""
^DD(799.1,0,"PT",799.51,.03)=""
^DD(799.1,0,"VR")="1.5"
^DD(799.1,0,"VRPK")="ROR"
^DD(799.1,0,"VRRV")="1.1^ROR*1*5"
^DD(799.1,.01,0)="TEXT^RFX^^0;1^Q:$$VAEDT^RORDD(799.1,,-1)  K:$L(X)>60!($L(X)<1) X"
^DD(799.1,.01,1,0)="^.1^^0"
^DD(799.1,.01,3)="Enter text of the item (1-60 characters)."
^DD(799.1,.01,8.5)="@"
^DD(799.1,.01,9)="@"
^DD(799.1,.01,21,0)="^^4^4^3050427^"
^DD(799.1,.01,21,1,0)="This field contains a text representation of the"
^DD(799.1,.01,21,2,0)="item (external value). The text is displayed by "
^DD(799.1,.01,21,3,0)="the GUI in the list of possible values of the"
^DD(799.1,.01,21,4,0)="registry field that this item is associated with."
^DD(799.1,.01,"DEL",1,0)="I $$VADEL^RORDD(799.1,,-1)"
^DD(799.1,.01,"DT")="3051116"
^DD(799.1,.02,0)="TYPE^RSX^3:Lab Group;4:Drug Group;^0;2^Q:$$VAEDT^RORDD(799.1,,-1)"
^DD(799.1,.02,8)=""
^DD(799.1,.02,8.5)="@"
^DD(799.1,.02,9)="@"
^DD(799.1,.02,21,0)="^.001^3^3^3050426^^^^"
^DD(799.1,.02,21,1,0)="An internal value of this field links the item to"
^DD(799.1,.02,21,2,0)="the registry field. The items with the same type"
^DD(799.1,.02,21,3,0)="define the possible values of the registry field."
^DD(799.1,.02,23,0)="^.001^3^3^3050426^^^^"
^DD(799.1,.02,23,1,0)="When a new registry field needs to be added, add"
^DD(799.1,.02,23,2,0)="another code to the definition of this field and create"
^DD(799.1,.02,23,3,0)="the corresponding item records."
^DD(799.1,.02,"DT")="3011112"
^DD(799.1,.03,0)="REGISTRY^RP798.1'X^ROR(798.1,^0;3^Q:$$VAEDT^RORDD(799.1,,-1)"
^DD(799.1,.03,8.5)="@"
^DD(799.1,.03,9)="@"
^DD(799.1,.03,21,0)="^.001^2^2^3050513^^^"
^DD(799.1,.03,21,1,0)="This field identifies the registry that the item"
^DD(799.1,.03,21,2,0)="is associated with."
^DD(799.1,.03,"DT")="3011112"
^DD(799.1,.04,0)="CODE^RNJ2,0X^^0;4^Q:$$VAEDT^RORDD(799.1,,-1)  K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.1,.04,3)="Type a Number between 1 and 99, 0 Decimal Digits."
^DD(799.1,.04,8.5)="@"
^DD(799.1,.04,9)="@"
^DD(799.1,.04,21,0)="^.001^3^3^3030625^^^"
^DD(799.1,.04,21,1,0)="This field contains a code (internal value) of the"
^DD(799.1,.04,21,2,0)="item. The codes are unique only among the items of"
^DD(799.1,.04,21,3,0)="the same type associated with the same registry."
^DD(799.1,.04,"DT")="3011112"
^DD(799.1,1,0)="DATE OF INACTIVATION^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.1,1,21,0)="^.001^4^4^3021126^^^"
^DD(799.1,1,21,1,0)="If this field has a value, the item will be"
^DD(799.1,1,21,2,0)="considered inactive after this date. Use this "
^DD(799.1,1,21,3,0)="field to disable unnecessary items instead of"
^DD(799.1,1,21,4,0)="deleting them."
^DD(799.1,1,23,0)="^.001^3^3^3021126^^^"
^DD(799.1,1,23,1,0)="The $$ITEMLIST^RORUTL01 function analyzes this field "
^DD(799.1,1,23,2,0)="when it loads the requested list of items and skips the"
^DD(799.1,1,23,3,0)="inactive items."
^DD(799.1,1,"DT")="3021126"
^DD(799.1,"B","CODE",.04)=""
^DD(799.1,"B","DATE OF INACTIVATION",1)=""
^DD(799.1,"B","REGISTRY",.03)=""
^DD(799.1,"B","TEXT",.01)=""
^DD(799.1,"B","TYPE",.02)=""
^DD(799.1,"GL",0,1,.01)=""
^DD(799.1,"GL",0,2,.02)=""
^DD(799.1,"GL",0,3,.03)=""
^DD(799.1,"GL",0,4,.04)=""
^DD(799.1,"GL",0,5,1)=""
^DD(799.1,"RQ",.01)=""
^DD(799.1,"RQ",.02)=""
^DD(799.1,"RQ",.03)=""
^DD(799.1,"RQ",.04)=""
^DD(799.2,0)="FIELD^^5^5"
^DD(799.2,0,"DDA")="N"
^DD(799.2,0,"DT")="3020326"
^DD(799.2,0,"ID","WRITE")="N RORMSG D EN^DDIOL($$GET1^DID(Y,,,""NAME"",,""RORMSG""),,""?30"")"
^DD(799.2,0,"IX","B",799.2,.01)=""
^DD(799.2,0,"NM","ROR METADATA")=""
^DD(799.2,0,"PT",799.2,1)=""
^DD(799.2,0,"VR")="1.5"
^DD(799.2,0,"VRPK")="ROR"
^DD(799.2,.01,0)="FILE^RNJ22,9X^^0;1^Q:$$VAEDT^RORDD(799.2,,-1)  K:+X'=X!(X>999999999999)!(X<2)!(X?.E1"".""10.N) X I $D(X) K:'$$VFILE^DILFD(X) X S:$D(X) DINUM=X"
^DD(799.2,.01,1,0)="^.1"
^DD(799.2,.01,1,1,0)="799.2^B"
^DD(799.2,.01,1,1,1)="S ^ROR(799.2,""B"",$E(X,1,30),DA)="""""
^DD(799.2,.01,1,1,2)="K ^ROR(799.2,""B"",$E(X,1,30),DA)"
^DD(799.2,.01,1,1,3)="Do not delete!"
^DD(799.2,.01,3)="Enter (sub)file number between 2 and 999999999999, 9 Decimal Digits."
^DD(799.2,.01,8.5)="@"
^DD(799.2,.01,9)="@"
^DD(799.2,.01,21,0)="^^4^4^3020321^"
^DD(799.2,.01,21,1,0)="The value of this field is the number of the"
^DD(799.2,.01,21,2,0)="(sub)file that can be searched for new data by the"
^DD(799.2,.01,21,3,0)="registry update process and is a part of the"
^DD(799.2,.01,21,4,0)="file-processing tree."
^DD(799.2,.01,23,0)="^.001^2^2^3020403^^^"
^DD(799.2,.01,23,1,0)="The internal value of this field is used as the"
^DD(799.2,.01,23,2,0)="internal entry number of the record ('DINUM' feature)."
^DD(799.2,.01,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.2,.01,"DT")="3020313"
^DD(799.2,1,0)="PARENT^*P799.2'X^ROR(799.2,^0;2^Q:$$VAEDT^RORDD(799.2,,-1)  S DIC(""S"")=""I Y'=""_+$G(DA) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(799.2,1,8.5)="@"
^DD(799.2,1,9)="@"
^DD(799.2,1,12)="A record cannot be parent record of itself."
^DD(799.2,1,12.1)="S DIC(""S"")=""I Y'=""_+$G(DA)"
^DD(799.2,1,21,0)="^^12^12^3020328^"
^DD(799.2,1,21,1,0)="This field holds the number of the (sub)file that"
^DD(799.2,1,21,2,0)="is a parent of the current file in the"
^DD(799.2,1,21,3,0)="file-processing tree. You can choose only from the"
^DD(799.2,1,21,4,0)="files that have descriptors in the ROR METADATA"
^DD(799.2,1,21,5,0)="file. However, the current record cannot be"
^DD(799.2,1,21,6,0)="selected as the parent of itself."
^DD(799.2,1,21,7,0)=" "
^DD(799.2,1,21,8,0)="Leave this field empty for the ""root"" file (the "
^DD(799.2,1,21,9,0)="PATIENT file (#2) most probably)."
^DD(799.2,1,21,10,0)=" "
^DD(799.2,1,21,11,0)="See the technical description of the field for "
^DD(799.2,1,21,12,0)="more information."
^DD(799.2,1,23,0)="^^24^24^3060203^"
^DD(799.2,1,23,1,0)="During the registry update, VistA files are processed"
^DD(799.2,1,23,2,0)="in the predetermined hierarchic sequence called"
^DD(799.2,1,23,3,0)="""file-processing tree"". A sample structure of the"
^DD(799.2,1,23,4,0)="""tree"" is illustrated below:"
^DD(799.2,1,23,5,0)=" "
^DD(799.2,1,23,6,0)=" . PATIENT (#2)"
^DD(799.2,1,23,7,0)=" .    VISIT (#9000010)"
^DD(799.2,1,23,8,0)=" .       V POV (#9000010.07)"
^DD(799.2,1,23,9,0)=" .    PROBLEM (#9000011)"
^DD(799.2,1,23,10,0)=" .    PTF (#45)"
^DD(799.2,1,23,11,0)=" .    LAB DATA (#63)"
^DD(799.2,1,23,12,0)=" "
^DD(799.2,1,23,13,0)="This means that for each patient a record in file #2 is"
^DD(799.2,1,23,14,0)="processed first. Then patient visits from file #9000010"
^DD(799.2,1,23,15,0)="are processed. During processing of each visit record"
^DD(799.2,1,23,16,0)="all linked ""purpose of visit"" records in file"
^DD(799.2,1,23,17,0)="#9000010.07 are processed. After that, all patient"
^DD(799.2,1,23,18,0)="records from the problem list are processed. Next in"
^DD(799.2,1,23,19,0)="line are the patient records from file #45 and the lab"
^DD(799.2,1,23,20,0)="results."
^DD(799.2,1,23,21,0)=" "
^DD(799.2,1,23,22,0)="The structure of the tree is defined by the routines"
^DD(799.2,1,23,23,0)="that conduct the search (hard coded loops). However, it"
^DD(799.2,1,23,24,0)="MUST be reflected in this file."
^DD(799.2,1,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.2,1,"DT")="3020313"
^DD(799.2,2,0)="DATA ELEMENT^799.22I^^2;0"
^DD(799.2,2,9)="@"
^DD(799.2,2,21,0)="^^8^8^3020403^"
^DD(799.2,2,21,1,0)="This multiple stores a list of data elements "
^DD(799.2,2,21,2,0)="supported by the search engine. These elements can"
^DD(799.2,2,21,3,0)="be referenced by selection rules associated with"
^DD(799.2,2,21,4,0)="the file."
^DD(799.2,2,21,5,0)=" "
^DD(799.2,2,21,6,0)="Records of the multiple are uniquely identified by"
^DD(799.2,2,21,7,0)="the data element name (the primary key ""B"" and the"
^DD(799.2,2,21,8,0)="uniqueness index ""B"" are used for this purpose)."
^DD(799.2,2,"DT")="3020326"
^DD(799.2,3,0)="API^799.23I^^3;0"
^DD(799.2,3,9)="@"
^DD(799.2,3,21,0)="^^9^9^3020321^"
^DD(799.2,3,21,1,0)="This multiple stores descriptors of the APIs that"
^DD(799.2,3,21,2,0)="are used to load values of the search fields."
^DD(799.2,3,21,3,0)=" "
^DD(799.2,3,21,4,0)="Codes of the APIs are unique only in the file"
^DD(799.2,3,21,5,0)="context. For example, the definition of any file"
^DD(799.2,3,21,6,0)="can have a descriptor of the API #2."
^DD(799.2,3,21,7,0)=" "
^DD(799.2,3,21,8,0)="Internal entry numbers of the records in this "
^DD(799.2,3,21,9,0)="multiple are equal to the codes of the APIs."
^DD(799.2,5,0)="DESCRIPTION^799.25^^5;0"
^DD(799.2,5,9)="@"
^DD(799.2,5,21,0)="^^3^3^3020403^"
^DD(799.2,5,21,1,0)="You can enter any additional reference information"
^DD(799.2,5,21,2,0)="related to the file definition. The content of this"
^DD(799.2,5,21,3,0)="field is not used by the application."
^DD(799.2,"B","API",3)=""
^DD(799.2,"B","DATA ELEMENT",2)=""
^DD(799.2,"B","DESCRIPTION",5)=""
^DD(799.2,"B","FILE",.01)=""
^DD(799.2,"B","PARENT",1)=""
^DD(799.2,"GL",0,1,.01)=""
^DD(799.2,"GL",0,2,1)=""
^DD(799.2,"GL",2,0,2)=""
^DD(799.2,"GL",3,0,3)=""
^DD(799.2,"GL",5,0,5)=""
^DD(799.2,"IX",.01)=""
^DD(799.2,"RQ",.01)=""
^DD(799.2,"SB",799.22,2)=""
^DD(799.2,"SB",799.23,3)=""
^DD(799.2,"SB",799.25,5)=""
^DD(799.22,0)="DATA ELEMENT SUB-FIELD^^6^8"
^DD(799.22,0,"DT")="3020326"
^DD(799.22,0,"ID","WRITE")="D EN^DDIOL(""  ""_$P(^(0),U,2),,""?35"")"
^DD(799.22,0,"IX","AR",799.22,2)=""
^DD(799.22,0,"IX","C",799.22,.02)=""
^DD(799.22,0,"NM","DATA ELEMENT")=""
^DD(799.22,0,"UP")="799.2"
^DD(799.22,.01,0)="DATA NAME^MFX^^0;1^Q:$$VAEDT^RORDD(799.2,,-1)  K:($L(X)>30)!($L(X)<3)!(+X=X) X"
^DD(799.22,.01,1,0)="^.1^^0"
^DD(799.22,.01,3)="Answer must be 3-30 characters in length."
^DD(799.22,.01,8.5)="@"
^DD(799.22,.01,9)="@"
^DD(799.22,.01,21,0)="^.001^9^9^3020327^^"
^DD(799.22,.01,21,1,0)="The value of this field is the name of the data"
^DD(799.22,.01,21,2,0)="element supported by the search engine. The names "
^DD(799.22,.01,21,3,0)="must be unique in the file context."
^DD(799.22,.01,21,4,0)=" "
^DD(799.22,.01,21,5,0)="The data element is supported if either the"
^DD(799.22,.01,21,6,0)="routine that processes the file can load the value"
^DD(799.22,.01,21,7,0)="using an application API or there is a DBIA that"
^DD(799.22,.01,21,8,0)="allows access to the corresponding field via the"
^DD(799.22,.01,21,9,0)="'GETS^DIQ' FileMan procedure."
^DD(799.22,.01,23,0)="^^2^2^3060203^"
^DD(799.22,.01,23,1,0)="The primary ""B"" key and the ""B"" index (new style)"
^DD(799.22,.01,23,2,0)="guarantee uniqueness of the names in the file context."
^DD(799.22,.01,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.22,.01,"DT")="3020328"
^DD(799.22,.02,0)="CODE^RNJ9,0XI^^0;2^Q:$$VAEDT^RORDD(799.2,,-1)  S:X=""+"" X=$O(^ROR(799.2,""DEC"",""""),-1)+1 K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.22,.02,1,0)="^.1"
^DD(799.22,.02,1,1,0)="799.22^C"
^DD(799.22,.02,1,1,1)="S ^ROR(799.2,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(799.22,.02,1,1,2)="K ^ROR(799.2,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(799.22,.02,1,1,3)="List of data element codes."
^DD(799.22,.02,1,1,"DT")="3020326"
^DD(799.22,.02,3)="Type a Number between 1 and 999999999, 0 Decimal Digits."
^DD(799.22,.02,8.5)="@"
^DD(799.22,.02,9)="@"
^DD(799.22,.02,21,0)="^^7^7^3020327^"
^DD(799.22,.02,21,1,0)="This field stores the unique code of the data "
^DD(799.22,.02,21,2,0)="element. Data elements can be referenced either by"
^DD(799.22,.02,21,3,0)="their names (only in the file context) or by their"
^DD(799.22,.02,21,4,0)="codes."
^DD(799.22,.02,21,5,0)=" "
^DD(799.22,.02,21,6,0)="You can enter ""+"" to get the next available code "
^DD(799.22,.02,21,7,0)="for a new data element."
^DD(799.22,.02,23,0)="^^3^3^3060203^"
^DD(799.22,.02,23,1,0)="The secondary ""A"" key and the whole-file ""DEC"" index "
^DD(799.22,.02,23,2,0)="(new style) guarantee uniqueness of the data element"
^DD(799.22,.02,23,3,0)="codes."
^DD(799.22,.02,"DT")="3020327"
^DD(799.22,1,0)="LOADER API^RNJ2,0X^^0;5^Q:$$VAEDT^RORDD(799.2,,-1)  K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.22,1,3)="Type a Number between 1 and 99, 0 Decimal Digits."
^DD(799.22,1,4)="D APILST^RORDD($G(DA(1)))"
^DD(799.22,1,8.5)="@"
^DD(799.22,1,9)="@"
^DD(799.22,1,21,0)="^^8^8^3020403^"
^DD(799.22,1,21,1,0)="This field stores the code of the API that is used"
^DD(799.22,1,21,2,0)="to load a value of the data element defined by the"
^DD(799.22,1,21,3,0)="descriptor."
^DD(799.22,1,21,4,0)=" "
^DD(799.22,1,21,5,0)="The descriptor of this API must be defined in the"
^DD(799.22,1,21,6,0)="""API"" multiple (subfile #799.23). The only"
^DD(799.22,1,21,7,0)="exception is the API #1. It is always considered"
^DD(799.22,1,21,8,0)="as the 'GETS^DIQ' FileMan procedure."
^DD(799.22,1,"DT")="3020326"
^DD(799.22,2,0)="REQUIRED^SX^0:NO;1:YES;^0;3^Q:$$VAEDT^RORDD(799.2,,-1)"
^DD(799.22,2,1,0)="^.1"
^DD(799.22,2,1,1,0)="799.22^AR"
^DD(799.22,2,1,1,1)="S ^ROR(799.2,DA(1),2,""AR"",$E(X,1,30),DA)="""""
^DD(799.22,2,1,1,2)="K ^ROR(799.2,DA(1),2,""AR"",$E(X,1,30),DA)"
^DD(799.22,2,1,1,3)="List of required fields."
^DD(799.22,2,1,1,"DT")="3020308"
^DD(799.22,2,8.5)="@"
^DD(799.22,2,9)="@"
^DD(799.22,2,21,0)="^^5^5^3060203^"
^DD(799.22,2,21,1,0)="If the value of the data element is required by"
^DD(799.22,2,21,2,0)="the search engine itself, the REQUIRED field"
^DD(799.22,2,21,3,0)="should be set to ""YES"" so that the value of the"
^DD(799.22,2,21,4,0)="element will be loaded whether it is referenced by"
^DD(799.22,2,21,5,0)="the selection rules or not."
^DD(799.22,2,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.22,2,"DT")="3020308"
^DD(799.22,4,0)="VALUE TYPE^RSX^E:External;I:Internal;EI:Both;^0;4^Q:$$VAEDT^RORDD(799.2,,-1)"
^DD(799.22,4,8.5)="@"
^DD(799.22,4,9)="@"
^DD(799.22,4,21,0)="^^4^4^3020328^"
^DD(799.22,4,21,1,0)="The VALUE TYPE field contains the code of the data"
^DD(799.22,4,21,2,0)="element value type(s) supported by the search"
^DD(799.22,4,21,3,0)="engine. The corresponding API must be able to load"
^DD(799.22,4,21,4,0)="the value(s)."
^DD(799.22,4,"DT")="3020308"
^DD(799.22,4.1,0)="EXTERNAL DATA^FX^^4.1;E1,50^Q:$$VAEDT^RORDD(799.2,,-1)  K:$L(X)>50!($L(X)<1) X"
^DD(799.22,4.1,3)="Answer must be 1-50 characters in length."
^DD(799.22,4.1,8.5)="@"
^DD(799.22,4.1,9)="@"
^DD(799.22,4.1,21,0)="^^11^11^3060203^"
^DD(799.22,4.1,21,1,0)="This field can contain any optional data that "
^DD(799.22,4.1,21,2,0)="helps to load the external value of the data"
^DD(799.22,4.1,21,3,0)="element (variable name, subscript, position, "
^DD(799.22,4.1,21,4,0)="etc.)."
^DD(799.22,4.1,21,5,0)=" "
^DD(799.22,4.1,21,6,0)="Many data elements use the following data"
^DD(799.22,4.1,21,7,0)="structure: PN[^SN]. The 'SN' is a subscript of the"
^DD(799.22,4.1,21,8,0)="node in the local array (optional) and the 'PN' is"
^DD(799.22,4.1,21,9,0)="the number of the ""^""-piece of the node value."
^DD(799.22,4.1,21,10,0)="These values are used to extract the value from"
^DD(799.22,4.1,21,11,0)="the local variable created by the API."
^DD(799.22,4.1,23,0)="^.001^3^3^3060203^^^^"
^DD(799.22,4.1,23,1,0)="See definition of the API #2 associated with the file"
^DD(799.22,4.1,23,2,0)="#45 and source code of the $$LOADFLDS^RORUPD09 function"
^DD(799.22,4.1,23,3,0)="for an example."
^DD(799.22,4.1,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.22,4.1,"DT")="3020311"
^DD(799.22,4.2,0)="INTERNAL DATA^FX^^4.2;E1,50^Q:$$VAEDT^RORDD(799.2,,-1)  K:$L(X)>50!($L(X)<1) X"
^DD(799.22,4.2,3)="Answer must be 1-50 characters in length."
^DD(799.22,4.2,8.5)="@"
^DD(799.22,4.2,9)="@"
^DD(799.22,4.2,21,0)="^^11^11^3060203^"
^DD(799.22,4.2,21,1,0)="This field can contain any optional data that"
^DD(799.22,4.2,21,2,0)="helps to load the internal value of the data "
^DD(799.22,4.2,21,3,0)="element (variable name, subscript, position, "
^DD(799.22,4.2,21,4,0)="etc.)."
^DD(799.22,4.2,21,5,0)=" "
^DD(799.22,4.2,21,6,0)="Many data elements use the following data"
^DD(799.22,4.2,21,7,0)="structure: PN[^SN]. The 'SN' is a subscript of the"
^DD(799.22,4.2,21,8,0)="node in the local array (optional) and the 'PN' is"
^DD(799.22,4.2,21,9,0)="the number of the ""^""-piece of the node value."
^DD(799.22,4.2,21,10,0)="These values are used to extract the value from"
^DD(799.22,4.2,21,11,0)="the local variable created by the API."
^DD(799.22,4.2,23,0)="^.001^3^3^3060203^^^^"
^DD(799.22,4.2,23,1,0)="See definition of the API #2 associated with the file "
^DD(799.22,4.2,23,2,0)="#45 and source code of the $$LOADFLDS^RORUPD09 function"
^DD(799.22,4.2,23,3,0)="for an example."
^DD(799.22,4.2,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.22,4.2,"DT")="3020311"
^DD(799.22,6,0)="FIELD NUMBER^NJ19,9X^^0;6^Q:$$VAEDT^RORDD(799.2,,-1)  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""10.N) X X:$D(X)&$G(DA(1)) ""N RORFILE S RORFILE=$P($G(^ROR(799.2,DA(1),0)),U) I RORFILE K:'$$VFIELD^DILFD(RORFILE,X) X"""
^DD(799.22,6,3)="Type a field number between .000000001 and 999999999, 9 Decimal Digits"
^DD(799.22,6,8.5)="@"
^DD(799.22,6,9)="@"
^DD(799.22,6,21,0)="^^10^10^3020401^"
^DD(799.22,6,21,1,0)="The FIELD NUMBER field holds the number of the"
^DD(799.22,6,21,2,0)="field (referenced hereinafter as the search field)"
^DD(799.22,6,21,3,0)="that the data element is loaded from."
^DD(799.22,6,21,4,0)=" "
^DD(799.22,6,21,5,0)="If the FileMan API #1 (GETS^DIQ) is used to load "
^DD(799.22,6,21,6,0)="the value of the data element, the FIELD NUMBER"
^DD(799.22,6,21,7,0)="field must have a value."
^DD(799.22,6,21,8,0)=" "
^DD(799.22,6,21,9,0)="Otherwise, this field can be empty. However, it is"
^DD(799.22,6,21,10,0)="recommended to populate it for clarity."
^DD(799.22,6,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.22,6,"DT")="3020326"
^DD(799.22,"B","CODE",.02)=""
^DD(799.22,"B","DATA NAME",.01)=""
^DD(799.22,"B","EXTERNAL DATA",4.1)=""
^DD(799.22,"B","FIELD NUMBER",6)=""
^DD(799.22,"B","INTERNAL DATA",4.2)=""
^DD(799.22,"B","LOADER API",1)=""
^DD(799.22,"B","REQUIRED",2)=""
^DD(799.22,"B","VALUE TYPE",4)=""
^DD(799.22,"GL",0,1,.01)=""
^DD(799.22,"GL",0,2,.02)=""
^DD(799.22,"GL",0,3,2)=""
^DD(799.22,"GL",0,4,4)=""
^DD(799.22,"GL",0,5,1)=""
^DD(799.22,"GL",0,6,6)=""
^DD(799.22,"GL",4.1,"E1,50",4.1)=""
^DD(799.22,"GL",4.2,"E1,50",4.2)=""
^DD(799.22,"IX",.02)=""
^DD(799.22,"IX",2)=""
^DD(799.22,"RQ",.02)=""
^DD(799.22,"RQ",1)=""
^DD(799.22,"RQ",4)=""
^DD(799.23,0)="API SUB-FIELD^^2^4"
^DD(799.23,0,"DT")="3020307"
^DD(799.23,0,"ID","WRITE")="D EN^DDIOL($P(^(0),U,3)_""^""_$P(^(0),U,2),,""?10"")"
^DD(799.23,0,"IX","B",799.23,.01)=""
^DD(799.23,0,"NM","API")=""
^DD(799.23,0,"UP")="799.2"
^DD(799.23,.01,0)="API CODE^MNJ2,0X^^0;1^Q:$$VAEDT^RORDD(799.2,,-1)  K:+X'=X!(X>99)!(X<2)!(X?.E1"".""1.N) X S:$D(X) DINUM=X"
^DD(799.23,.01,1,0)="^.1"
^DD(799.23,.01,1,1,0)="799.23^B"
^DD(799.23,.01,1,1,1)="S ^ROR(799.2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(799.23,.01,1,1,2)="K ^ROR(799.2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(799.23,.01,1,1,3)="Do not delete!"
^DD(799.23,.01,3)="Type a Number between 2 and 99, 0 Decimal Digits."
^DD(799.23,.01,8.5)="@"
^DD(799.23,.01,9)="@"
^DD(799.23,.01,21,0)="^^7^7^3020321^"
^DD(799.23,.01,21,1,0)="This field stores the code of the API. These codes"
^DD(799.23,.01,21,2,0)="are used by the corresponding routines of the"
^DD(799.23,.01,21,3,0)="search engine to distinguish between the APIs."
^DD(799.23,.01,21,4,0)=" "
^DD(799.23,.01,21,5,0)="Codes of the APIs are unique only in the file"
^DD(799.23,.01,21,6,0)="context. For example, the definition of any file"
^DD(799.23,.01,21,7,0)="can have a descriptor of the API #2."
^DD(799.23,.01,23,0)="^.001^2^2^3020403^^"
^DD(799.23,.01,23,1,0)="Internal value of this field is used as the internal"
^DD(799.23,.01,23,2,0)="entry number of the record ('DINUM' feature)."
^DD(799.23,.01,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.23,.01,"DT")="3020308"
^DD(799.23,1.1,0)="ROUTINE^RFX^^0;2^Q:$$VAEDT^RORDD(799.2,,-1)  K:'(X?1.8UN) X"
^DD(799.23,1.1,3)="Answer must be a valid routine name (1-8 characters in length)."
^DD(799.23,1.1,8.5)="@"
^DD(799.23,1.1,9)="@"
^DD(799.23,1.1,21,0)="^^2^2^3060203^"
^DD(799.23,1.1,21,1,0)="This field stores the name of the routine"
^DD(799.23,1.1,21,2,0)="implementing the API."
^DD(799.23,1.1,"DT")="3020308"
^DD(799.23,1.2,0)="TAG^FX^^0;3^Q:$$VAEDT^RORDD(799.2,,-1)  K:'(X?1.8UN) X"
^DD(799.23,1.2,3)="Answer must be a valid tag name (1-8 characters in length)."
^DD(799.23,1.2,8.5)="@"
^DD(799.23,1.2,9)="@"
^DD(799.23,1.2,21,0)="^^3^3^3020320^"
^DD(799.23,1.2,21,1,0)="This field contains a tag name inside the API"
^DD(799.23,1.2,21,2,0)="routine. If the routine should be executed from "
^DD(799.23,1.2,21,3,0)="the beginning, leave this field empty."
^DD(799.23,1.2,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.23,1.2,"DT")="3020308"
^DD(799.23,2,0)="IA#^NJ9,0X^^0;4^Q:$$VAEDT^RORDD(799.2,,-1)  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(799.23,2,.1)=""
^DD(799.23,2,3)="Type a Number between 1 and 999999999, 0 Decimal Digits."
^DD(799.23,2,8.5)="@"
^DD(799.23,2,9)="@"
^DD(799.23,2,21,0)="^.001^2^2^3060203^^"
^DD(799.23,2,21,1,0)="The IA# field stores a reference number of the "
^DD(799.23,2,21,2,0)="integration agreement that describes this API."
^DD(799.23,2,"DEL",1,0)="I $$VADEL^RORDD(799.2,,-1)"
^DD(799.23,2,"DT")="3020308"
^DD(799.23,"B","API CODE",.01)=""
^DD(799.23,"B","IA#",2)=""
^DD(799.23,"B","ROUTINE",1.1)=""
^DD(799.23,"B","TAG",1.2)=""
^DD(799.23,"GL",0,1,.01)=""
^DD(799.23,"GL",0,2,1.1)=""
^DD(799.23,"GL",0,3,1.2)=""
^DD(799.23,"GL",0,4,2)=""
^DD(799.23,"IX",.01)=""
^DD(799.23,"RQ",1.1)=""
^DD(799.25,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(799.25,0,"DT")="3020308"
^DD(799.25,0,"NM","DESCRIPTION")=""
^DD(799.25,0,"UP")="799.2"
^DD(799.25,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(799.25,.01,8.5)="@"
^DD(799.25,.01,9)="@"
^DD(799.25,.01,"DT")="3020308"
^DD(799.25,"B","DESCRIPTION",.01)=""
^DD(799.25,"GL",0,1,.01)=""
^DD(799.31,0)="FIELD^^.01^1"
^DD(799.31,0,"DDA")="N"
^DD(799.31,0,"DT")="3021130"
^DD(799.31,0,"NM","ROR XML ITEM")=""
^DD(799.31,0,"PT",798.87,.01)=""
^DD(799.31,0,"PT",798.872,.01)=""
^DD(799.31,0,"VR")="1.5"
^DD(799.31,0,"VRPK")="ROR"
^DD(799.31,0,"VRRV")="1.5^ROR 1.5"
^DD(799.31,.01,0)="NAME^RFX^^0;1^Q:$$VAEDT^RORDD(799.31,,-1)  K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(799.31,.01,1,0)="^.1^^0"
^DD(799.31,.01,3)="Enter the tag name (2-30 characters)."
^DD(799.31,.01,8.5)="@"
^DD(799.31,.01,9)="@"
^DD(799.31,.01,21,0)="^.001^4^4^3030506^^"
^DD(799.31,.01,21,1,0)="This field stores the tag name. The name should "
^DD(799.31,.01,21,2,0)="not contain spaces and any punctuation marks "
^DD(799.31,.01,21,3,0)="except underscore. See an XML reference guide for"
^DD(799.31,.01,21,4,0)="more details."
^DD(799.31,.01,23,0)="^^4^4^3060203^"
^DD(799.31,.01,23,1,0)="Please use shorter names for tags that will be used"
^DD(799.31,.01,23,2,0)="more often and/or will be repeated many times in the"
^DD(799.31,.01,23,3,0)="report. This will decrease amount of the overhead data"
^DD(799.31,.01,23,4,0)="transmitted from the server to the GUI."
^DD(799.31,.01,"DEL",1,0)="I $$VADEL^RORDD(799.31,,-1)"
^DD(799.31,.01,"DT")="3050722"
^DD(799.31,"B","NAME",.01)=""
^DD(799.31,"GL",0,1,.01)=""
^DD(799.31,"RQ",.01)=""
^DD(799.33,0)="FIELD^^.01^2"
^DD(799.33,0,"DDA")="N"
^DD(799.33,0,"DT")="3030606"
^DD(799.33,0,"IX","B",799.33,.01)=""
^DD(799.33,0,"NM","ROR DATA AREA")=""
^DD(799.33,0,"PT",798.32,1)=""
^DD(799.33,0,"PT",799.61,.01)=""
^DD(799.33,0,"VR")="1.5"
^DD(799.33,0,"VRPK")="ROR"
^DD(799.33,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.33,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits."
^DD(799.33,.001,8.5)="@"
^DD(799.33,.001,9)="@"
^DD(799.33,.001,"DT")="3030606"
^DD(799.33,.01,0)="NAME^RFX^^0;1^Q:$$VAEDT^RORDD(799.33,,-1)  K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(799.33,.01,1,0)="^.1"
^DD(799.33,.01,1,1,0)="799.33^B"
^DD(799.33,.01,1,1,1)="S ^ROR(799.33,""B"",$E(X,1,30),DA)="""""
^DD(799.33,.01,1,1,2)="K ^ROR(799.33,""B"",$E(X,1,30),DA)"
^DD(799.33,.01,1,1,3)="Do not delete!"
^DD(799.33,.01,3)="Enter name of the data area (2-30 characters)."
^DD(799.33,.01,8.5)="@"
^DD(799.33,.01,9)="@"
^DD(799.33,.01,21,0)="^^4^4^3050427^"
^DD(799.33,.01,21,1,0)="This field stores the name of the data area "
^DD(799.33,.01,21,2,0)="referenced by the DATA AREA fields of the HL7"
^DD(799.33,.01,21,3,0)="SEGMENT (the ROR REGISTRY PARAMETERS file) and"
^DD(799.33,.01,21,4,0)="EVENT (the ROR PATIENT EVENTS file) multiples."
^DD(799.33,.01,"DEL",1,0)="I $$VADEL^RORDD(799.33,,-1)"
^DD(799.33,.01,"DT")="3030606"
^DD(799.33,"B","NAME",.01)=""
^DD(799.33,"B","NUMBER",.001)=""
^DD(799.33,"GL",0,1,.01)=""
^DD(799.33,"IX",.01)=""
^DD(799.33,"RQ",.01)=""
^DD(799.34,0)="FIELD^^12^10"
^DD(799.34,0,"DDA")="N"
^DD(799.34,0,"DT")="3051121"
^DD(799.34,0,"IX","B",799.34,.01)=""
^DD(799.34,0,"NM","ROR REPORT PARAMETERS")=""
^DD(799.34,0,"PT",798.12,.01)=""
^DD(799.34,0,"PT",798.8,.04)=""
^DD(799.34,0,"VR")="1.5"
^DD(799.34,0,"VRPK")="ROR"
^DD(799.34,.01,0)="NAME^RFX^^0;1^Q:$$VAEDT^RORDD(799.34,$G(DA))  K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(799.34,.01,1,0)="^.1"
^DD(799.34,.01,1,1,0)="799.34^B"
^DD(799.34,.01,1,1,1)="S ^ROR(799.34,""B"",$E(X,1,30),DA)="""""
^DD(799.34,.01,1,1,2)="K ^ROR(799.34,""B"",$E(X,1,30),DA)"
^DD(799.34,.01,1,1,3)="Do not delete!"
^DD(799.34,.01,3)="Enter the report name (3-60 characters)."
^DD(799.34,.01,8.5)="@"
^DD(799.34,.01,9)="@"
^DD(799.34,.01,21,0)="^^5^5^3030505^"
^DD(799.34,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(799.34,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.34,.01,21,3,0)=" "
^DD(799.34,.01,21,4,0)="The name of the report stored in the NAME field is"
^DD(799.34,.01,21,5,0)="displayed in the Reports sub-menu of the GUI."
^DD(799.34,.01,"DEL",1,0)="I $$VADEL^RORDD(799.34,$G(DA))"
^DD(799.34,.01,"DT")="3021126"
^DD(799.34,.02,0)="BACKGROUND PROCESSING?^SX^0:NO;1:YES;^0;2^Q:$$VAEDT^RORDD(799.34,$G(DA))"
^DD(799.34,.02,8.5)="@"
^DD(799.34,.02,9)="@"
^DD(799.34,.02,21,0)="^^6^6^3030506^"
^DD(799.34,.02,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(799.34,.02,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.34,.02,21,3,0)=" "
^DD(799.34,.02,21,4,0)="If the BACKGROUND PROCESSING? field is set to"
^DD(799.34,.02,21,5,0)="'YES' then the report will be scheduled to run as"
^DD(799.34,.02,21,6,0)="a background task."
^DD(799.34,.02,23,0)="^^1^1^3030506^"
^DD(799.34,.02,23,1,0)="Only background processing is currently implemented."
^DD(799.34,.02,"DEL",1,0)="I $$VADEL^RORDD(799.34,$G(DA))"
^DD(799.34,.02,"DT")="3021127"
^DD(799.34,.03,0)="SHARED TEMPLATES^SX^0:NO;1:YES;^0;3^Q:$$VAEDT^RORDD(799.34,$G(DA))"
^DD(799.34,.03,8.5)="@"
^DD(799.34,.03,9)="@"
^DD(799.34,.03,21,0)="^^7^7^3051121^"
^DD(799.34,.03,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(799.34,.03,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.34,.03,21,3,0)=" "
^DD(799.34,.03,21,4,0)="If this field is set to 'YES', then report "
^DD(799.34,.03,21,5,0)="parameter templates are shared between all "
^DD(799.34,.03,21,6,0)="registries. Otherwise, the templates are "
^DD(799.34,.03,21,7,0)="registry-specific."
^DD(799.34,.03,"DEL",1,0)="I $$VADEL^RORDD(799.34,$G(DA))"
^DD(799.34,.03,"DT")="3051121"
^DD(799.34,.04,0)="CODE^RNJ3,0X^^0;4^Q:$$VAEDT^RORDD(799.34,$G(DA))  K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.34,.04,3)="Enter the unique report code (between 1 and 999, 0 Decimal Digits)."
^DD(799.34,.04,8.5)="@"
^DD(799.34,.04,9)="@"
^DD(799.34,.04,21,0)="^^5^5^3030505^"
^DD(799.34,.04,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(799.34,.04,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.34,.04,21,3,0)=" "
^DD(799.34,.04,21,4,0)="The CODE field stores the unique code of the"
^DD(799.34,.04,21,5,0)="report."
^DD(799.34,.04,23,0)="^^19^19^3030507^"
^DD(799.34,.04,23,1,0)="The corresponding XSL templates for the report are "
^DD(799.34,.04,23,2,0)="stored in the DIALOG file (#.84). The dialog number "
^DD(799.34,.04,23,3,0)="of the template has the following structure:"
^DD(799.34,.04,23,4,0)=" "
^DD(799.34,.04,23,5,0)=" 7981CCC.TTT"
^DD(799.34,.04,23,6,0)=" "
^DD(799.34,.04,23,7,0)=" 'CCC' is the code of the report."
^DD(799.34,.04,23,8,0)=" "
^DD(799.34,.04,23,9,0)=" 'TTT' is the type of the template:"
^DD(799.34,.04,23,10,0)="        001 - HTML Preview,"
^DD(799.34,.04,23,11,0)="        002 - Delimited Format (CSV),"
^DD(799.34,.04,23,12,0)="        003 - Printer Output."
^DD(799.34,.04,23,13,0)=" "
^DD(799.34,.04,23,14,0)="For example, the dialog 7981001.001 contains the HTML"
^DD(799.34,.04,23,15,0)="preview template for the List of Registry Patients"
^DD(799.34,.04,23,16,0)="(report code: 1)."
^DD(799.34,.04,23,17,0)=" "
^DD(799.34,.04,23,18,0)="If no template is defined for the report then the"
^DD(799.34,.04,23,19,0)="default template from dialog 7981000 is used."
^DD(799.34,.04,"DT")="3030401"
^DD(799.34,.05,0)="DATE OF INACTIVATION^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.34,.05,21,0)="^^5^5^3030505^"
^DD(799.34,.05,21,1,0)="If this field has a value, the report will be"
^DD(799.34,.05,21,2,0)="considered inactive after this date. Use this"
^DD(799.34,.05,21,3,0)="field to disable unnecessary reports (and hide"
^DD(799.34,.05,21,4,0)="them from the Report sub-menu of the GUI) instead"
^DD(799.34,.05,21,5,0)="of deleting them."
^DD(799.34,.05,23,0)="^^3^3^3030505^"
^DD(799.34,.05,23,1,0)="The ROR REPORTS AVAILABLE remote procedure analyzes"
^DD(799.34,.05,23,2,0)="this field when it loads the list of available reports"
^DD(799.34,.05,23,3,0)="and skips the inactive ones."
^DD(799.34,.05,"DT")="3021126"
^DD(799.34,.09,0)="NATIONAL^SX^0:NO;1:YES;^0;9^Q:$$VAEDT^RORDD(799.34,,-1)"
^DD(799.34,.09,8.5)="@"
^DD(799.34,.09,9)="@"
^DD(799.34,.09,21,0)="^^7^7^3030506^"
^DD(799.34,.09,21,1,0)="ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN"
^DD(799.34,.09,21,2,0)="EDIT THIS FIELD!"
^DD(799.34,.09,21,3,0)=" "
^DD(799.34,.09,21,4,0)="Reports distributed with the national registries"
^DD(799.34,.09,21,5,0)="must have this field set to ""YES"". This prevents"
^DD(799.34,.09,21,6,0)="local editing of other fields of report"
^DD(799.34,.09,21,7,0)="definitions."
^DD(799.34,.09,"DEL",1,0)="I $$VADEL^RORDD(799.34,,,-1)"
^DD(799.34,.09,"DT")="3021126"
^DD(799.34,1,0)="PARAMETER PANELS^FX^^1;E1,250^Q:$$VAEDT^RORDD(799.34,$G(DA))  K:$L(X)>250!($L(X)<1) X"
^DD(799.34,1,3)="Enter codes of dialog panels separated by commas (1-250 characters)."
^DD(799.34,1,8.5)="@"
^DD(799.34,1,9)="@"
^DD(799.34,1,21,0)="^^7^7^3030507^"
^DD(799.34,1,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(799.34,1,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.34,1,21,3,0)=" "
^DD(799.34,1,21,4,0)="The PARAMETER PANELS field stores the list of "
^DD(799.34,1,21,5,0)="panel codes separated by commas. The panels are "
^DD(799.34,1,21,6,0)="combined by the GUI into the dialog form that is"
^DD(799.34,1,21,7,0)="used to request values of the report parameters."
^DD(799.34,1,"DEL",1,0)="I $$VADEL^RORDD(799.34,$G(DA))"
^DD(799.34,1,"DT")="3030304"
^DD(799.34,10.01,0)="REPORT BUILDER^RFX^^10.01;E1,245^Q:$$VAEDT^RORDD(799.34,$G(DA))  Q:$$EP^RORDD(1)"
^DD(799.34,10.01,3)="Answer must be $$TAG^ROUTINE (5-19 characters in length)."
^DD(799.34,10.01,8.5)="@"
^DD(799.34,10.01,9)="@"
^DD(799.34,10.01,21,0)="^.001^6^6^3060106^^"
^DD(799.34,10.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(799.34,10.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.34,10.01,21,3,0)=" "
^DD(799.34,10.01,21,4,0)="The REPORT BUILDER field stores a reference to the"
^DD(799.34,10.01,21,5,0)="function that is used to build the report (the"
^DD(799.34,10.01,21,6,0)="report builder)."
^DD(799.34,10.01,23,0)="^^24^24^3060106^"
^DD(799.34,10.01,23,1,0)="The call-back entry point is called with a single"
^DD(799.34,10.01,23,2,0)="parameter. The parameter is a reference to a local"
^DD(799.34,10.01,23,3,0)="variable that contains values of the report parameters."
^DD(799.34,10.01,23,4,0)=" "
^DD(799.34,10.01,23,5,0)=" RORTSK(            Task Number"
^DD(799.34,10.01,23,6,0)=" "
^DD(799.34,10.01,23,7,0)="   ""EP"")            Entry Point ($$TAG^ROUTINE)"
^DD(799.34,10.01,23,8,0)=" "
^DD(799.34,10.01,23,9,0)="   ""PARAMS"",...)    See the CCR Programmer's Reference "
^DD(799.34,10.01,23,10,0)="                    Manual for details"
^DD(799.34,10.01,23,11,0)=" "
^DD(799.34,10.01,23,12,0)="   ""REGIEN"")        Registry IEN"
^DD(799.34,10.01,23,13,0)=" "
^DD(799.34,10.01,23,14,0)="   ""TYPE"")          Type of the Task"
^DD(799.34,10.01,23,15,0)="   ""REPORT"")        Code of the Report"
^DD(799.34,10.01,23,16,0)="   ""SCHCODE"")       Rescheduling Code"
^DD(799.34,10.01,23,17,0)=" "
^DD(799.34,10.01,23,18,0)="The function must return 0 in the case of successful"
^DD(799.34,10.01,23,19,0)="completion. Otherwise, a negative error code must be "
^DD(799.34,10.01,23,20,0)="returned."
^DD(799.34,10.01,23,21,0)=" "
^DD(799.34,10.01,23,22,0)="See description of the ROR REPORT SCHEDULE remote"
^DD(799.34,10.01,23,23,0)="procedure and source code of the RORTSK01 routine for"
^DD(799.34,10.01,23,24,0)="more details."
^DD(799.34,10.01,"DT")="3021126"
^DD(799.34,11,0)="DEFAULT PARAMETERS^799.3411^^11;0"
^DD(799.34,11,9)="@"
^DD(799.34,11,21,0)="^.001^2^2^3040124^^"
^DD(799.34,11,21,1,0)="This field stores the default values for the "
^DD(799.34,11,21,2,0)="report parameters (in the NAME=VALUE format)."
^DD(799.34,12,0)="DEFAULT SORTING^799.3412^^12;0"
^DD(799.34,12,9)="@"
^DD(799.34,12,21,0)="^^2^2^3040121^"
^DD(799.34,12,21,1,0)="This field stores the default sorting modes for"
^DD(799.34,12,21,2,0)="the report (in the TABLE=FIELD format)."
^DD(799.34,"B","BACKGROUND PROCESSING?",.02)=""
^DD(799.34,"B","CODE",.04)=""
^DD(799.34,"B","DATE OF INACTIVATION",.05)=""
^DD(799.34,"B","DEFAULT PARAMETERS",11)=""
^DD(799.34,"B","DEFAULT SORTING",12)=""
^DD(799.34,"B","NAME",.01)=""
^DD(799.34,"B","NATIONAL",.09)=""
^DD(799.34,"B","PARAMETER PANELS",1)=""
^DD(799.34,"B","REPORT BUILDER",10.01)=""
^DD(799.34,"B","SHARED TEMPLATES",.03)=""
^DD(799.34,"GL",0,1,.01)=""
^DD(799.34,"GL",0,2,.02)=""
^DD(799.34,"GL",0,3,.03)=""
^DD(799.34,"GL",0,4,.04)=""
^DD(799.34,"GL",0,5,.05)=""
^DD(799.34,"GL",0,9,.09)=""
^DD(799.34,"GL",1,"E1,250",1)=""
^DD(799.34,"GL",10.01,"E1,245",10.01)=""
^DD(799.34,"GL",11,0,11)=""
^DD(799.34,"GL",12,0,12)=""
^DD(799.34,"IX",.01)=""
^DD(799.34,"RQ",.01)=""
^DD(799.34,"RQ",.04)=""
^DD(799.34,"RQ",10.01)=""
^DD(799.34,"SB",799.3411,11)=""
^DD(799.34,"SB",799.3412,12)=""
^DD(799.3411,0)="DEFAULT PARAMETERS SUB-FIELD^^.01^1"
^DD(799.3411,0,"DT")="3030918"
^DD(799.3411,0,"NM","DEFAULT PARAMETERS")=""
^DD(799.3411,0,"UP")="799.34"
^DD(799.3411,.01,0)="DEFAULT PARAMETERS^WL^^0;1^Q"
^DD(799.3411,.01,8.5)="@"
^DD(799.3411,.01,9)="@"
^DD(799.3411,.01,"DT")="3030918"
^DD(799.3411,"B","DEFAULT PARAMETERS",.01)=""
^DD(799.3411,"GL",0,1,.01)=""
^DD(799.3412,0)="DEFAULT SORTING SUB-FIELD^^.01^1"
^DD(799.3412,0,"DT")="3031103"
^DD(799.3412,0,"NM","DEFAULT SORTING")=""
^DD(799.3412,0,"UP")="799.34"
^DD(799.3412,.01,0)="DEFAULT SORTING^WL^^0;1^Q"
^DD(799.3412,.01,8.5)="@"
^DD(799.3412,.01,9)="@"
^DD(799.3412,.01,"DT")="3031103"
^DD(799.3412,"B","DEFAULT SORTING",.01)=""
^DD(799.3412,"GL",0,1,.01)=""
^DD(799.4,0)="FIELD^^25^101"
^DD(799.4,0,"DDA")="N"
^DD(799.4,0,"DT")="3030417"
^DD(799.4,0,"IX","B",799.4,.01)=""
^DD(799.4,0,"NM","ROR HIV RECORD")=""
^DD(799.4,0,"SCR")="I $$ACCESS^RORDD(799.4,""VA ICR"",1)"
^DD(799.4,0,"VR")="1.5"
^DD(799.4,0,"VRPK")="ROR"
^DD(799.4,0,"VRRV")="1.5^ROR 1.5"
^DD(799.4,.01,0)="REGISTRY RECORD^RP798'XI^RORDATA(798,^0;1^S:$D(X) DINUM=X"
^DD(799.4,.01,1,0)="^.1"
^DD(799.4,.01,1,1,0)="799.4^B"
^DD(799.4,.01,1,1,1)="S ^RORDATA(799.4,""B"",$E(X,1,30),DA)="""""
^DD(799.4,.01,1,1,2)="K ^RORDATA(799.4,""B"",$E(X,1,30),DA)"
^DD(799.4,.01,1,1,3)="Do not delete!"
^DD(799.4,.01,3)=""
^DD(799.4,.01,8.5)="@"
^DD(799.4,.01,9)="@"
^DD(799.4,.01,21,0)="^.001^7^7^3050504^^^"
^DD(799.4,.01,21,1,0)="The REGISTRY RECORD field links a record of the "
^DD(799.4,.01,21,2,0)="ROR HIV RECORD file to the main registry record in"
^DD(799.4,.01,21,3,0)="the ROR REGISTRY RECORD file."
^DD(799.4,.01,21,4,0)=" "
^DD(799.4,.01,21,5,0)="You can access records of this file only if you "
^DD(799.4,.01,21,6,0)="have appropriate security key(s) for the Human"
^DD(799.4,.01,21,7,0)="Immunodeficiency Virus Registry."
^DD(799.4,.01,23,0)="^.001^5^5^3050504^^^^"
^DD(799.4,.01,23,1,0)="Internal value of this field is used as the internal"
^DD(799.4,.01,23,2,0)="entry number of the record (the 'DINUM' feature)."
^DD(799.4,.01,23,3,0)="Therefore, the corresponding records of this file and"
^DD(799.4,.01,23,4,0)="the ROR REGISTRY RECORD file have the same internal"
^DD(799.4,.01,23,5,0)="entry numbers."
^DD(799.4,.01,"DT")="3031028"
^DD(799.4,.02,0)="CLINICAL AIDS^S^0:NO;1:YES;^0;2^Q"
^DD(799.4,.02,21,0)="^^3^3^3060203^"
^DD(799.4,.02,21,1,0)="The CLINICAL AIDS field indicates if the "
^DD(799.4,.02,21,2,0)="clinical AIDS (category 4) was diagnosed for "
^DD(799.4,.02,21,3,0)="the patient."
^DD(799.4,.02,"DT")="3030407"
^DD(799.4,.03,0)="CLINICAL AIDS DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,.03,21,0)="^^3^3^3030507^"
^DD(799.4,.03,21,1,0)="The CLINICAL AIDS DATE field stores the date of "
^DD(799.4,.03,21,2,0)="the clinical AIDS diagnosis indicated by the "
^DD(799.4,.03,21,3,0)="CLINICAL AIDS field."
^DD(799.4,.03,"DT")="3030407"
^DD(799.4,.04,0)="STATION^P4'^DIC(4,^0;4^Q"
^DD(799.4,.04,.1)="Institution"
^DD(799.4,.04,3)="Enter the name of the institution completing the form."
^DD(799.4,.04,21,0)="^^4^4^3060203^"
^DD(799.4,.04,21,1,0)="This field is a pointer to the Institution file "
^DD(799.4,.04,21,2,0)="(#4) and identifies the name of the station"
^DD(799.4,.04,21,3,0)="completing the Center for Disease Control (CDC) "
^DD(799.4,.04,21,4,0)="HIV/AIDS form."
^DD(799.4,.04,"DT")="2871217"
^DD(799.4,9.01,0)="DATE CDC FORM COMPLETED^D^^9;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,9.01,.1)="CDC Form Date"
^DD(799.4,9.01,3)="Enter date CDC Form is being completed."
^DD(799.4,9.01,20,0)="^.3LA^1^1"
^DD(799.4,9.01,20,1,0)="CDC HEADER"
^DD(799.4,9.01,21,0)="^.001^2^2^3030506^^^^"
^DD(799.4,9.01,21,1,0)="This field is used to track the date on which the "
^DD(799.4,9.01,21,2,0)="CDC form was completed."
^DD(799.4,9.01,"DT")="3030411"
^DD(799.4,9.02,0)="STATUS AT REPORT^S^1:HIV (NOT AIDS);2:AIDS;^9;2^Q"
^DD(799.4,9.02,3)="This is the status indicator at the time of generating the HIV/AIDS report form."
^DD(799.4,9.02,20,0)="^.3LA^1^1"
^DD(799.4,9.02,20,1,0)="CDC FORM (III)"
^DD(799.4,9.02,21,0)="^^3^3^3030507^"
^DD(799.4,9.02,21,1,0)="This field is used to indicate the status of the "
^DD(799.4,9.02,21,2,0)="patient at the time a CDC HIV/AIDS form is"
^DD(799.4,9.02,21,3,0)="generated."
^DD(799.4,9.02,"DT")="2940628"
^DD(799.4,9.03,0)="AGE AT HIV DIAGNOSIS^NJ2,0^^9;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(799.4,9.03,3)="This is the age at which HIV was diagnosed in this patient. Type a Number between 0 and 99, 0 Decimal Digits."
^DD(799.4,9.03,20,0)="^.3LA^1^1"
^DD(799.4,9.03,20,1,0)="CDC FORM (III)"
^DD(799.4,9.03,21,0)="^.001^3^3^3060203^^^^"
^DD(799.4,9.03,21,1,0)="This field contains the age at which HIV was "
^DD(799.4,9.03,21,2,0)="diagnosed in this patient. The value is used for a"
^DD(799.4,9.03,21,3,0)="field on the CDC HIV/AIDS form."
^DD(799.4,9.03,"DT")="2940628"
^DD(799.4,9.04,0)="AGE AT AIDS DIAGNOSIS^NJ3,0^^9;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(799.4,9.04,.1)="Age at AIDS Diagnosis"
^DD(799.4,9.04,3)="Enter patient's age at diagnosis of AIDS. Type a number between 0-100, 0 decimal digits."
^DD(799.4,9.04,20,0)="^.3LA^1^1"
^DD(799.4,9.04,20,1,0)="CDC FORM (III)"
^DD(799.4,9.04,21,0)="^^4^4^3060203^"
^DD(799.4,9.04,21,1,0)="This field is used to indicate the patient's age "
^DD(799.4,9.04,21,2,0)="at the time that the diagnosis of AIDS was made."
^DD(799.4,9.04,21,3,0)="The field is used to print part III of the CDC"
^DD(799.4,9.04,21,4,0)="form."
^DD(799.4,9.04,"DT")="2880114"
^DD(799.4,9.05,0)="CDC FORM COMPLETED BY^P200'^VA(200,^9;5^Q"
^DD(799.4,9.05,3)=""
^DD(799.4,9.05,8.5)="@"
^DD(799.4,9.05,9)="@"
^DD(799.4,9.05,20,0)="^.3LA^1^1"
^DD(799.4,9.05,20,1,0)="CDC HEADER"
^DD(799.4,9.05,"DT")="3030417"
^DD(799.4,9.06,0)="STATE/TERRITORY OF DEATH^F^^9;6^K:$L(X)>24!($L(X)<2) X"
^DD(799.4,9.06,3)="Enter the State or Territory in which the patient's death occurred. Answer must be 2-24 characters in length."
^DD(799.4,9.06,20,0)="^.3LA^1^1"
^DD(799.4,9.06,20,1,0)="CDC FORM (III)"
^DD(799.4,9.06,21,0)="^.001^4^4^3030506^^"
^DD(799.4,9.06,21,1,0)="This field is used to hold the name of the state "
^DD(799.4,9.06,21,2,0)="or territory in which the patient died. This"
^DD(799.4,9.06,21,3,0)="information is used to generate the CDC HIV/AIDS"
^DD(799.4,9.06,21,4,0)="form."
^DD(799.4,9.06,"DT")="2950313"
^DD(799.4,9.07,0)="COUNTRY OF BIRTH^S^1:U.S.;7:U.S. DEPENDENCIES AND POSSESSIONS (INCLUDING PUERTO RICO);8:OTHER;9:UNKNOWN;^9;7^Q"
^DD(799.4,9.07,3)="Enter the number (or name) indicating the country of birth. NOTE that U.S. Dependencies and possessions includes Puerto Rico."
^DD(799.4,9.07,20,0)="^.3LA^1^1"
^DD(799.4,9.07,20,1,0)="CDC FORM (III)"
^DD(799.4,9.07,21,0)="^^8^8^3060203^"
^DD(799.4,9.07,21,1,0)="This is the country of birth information for this "
^DD(799.4,9.07,21,2,0)="patient for use on the revised CDC form. The"
^DD(799.4,9.07,21,3,0)="options for this information on the current form "
^DD(799.4,9.07,21,4,0)="differ from those available on the earlier CDC"
^DD(799.4,9.07,21,5,0)="form."
^DD(799.4,9.07,21,6,0)=" "
^DD(799.4,9.07,21,7,0)="The name for either 7 or 8 should be entered in "
^DD(799.4,9.07,21,8,0)="the appropriate place."
^DD(799.4,9.07,"DT")="3030506"
^DD(799.4,9.08,0)="DEPENDENCY OR POSSESSION NAME^F^^9;8^K:$L(X)>15!($L(X)<2) X"
^DD(799.4,9.08,3)="Enter the name of the U.S. Dependency or Possession in which the patient was born (2-15 characters)."
^DD(799.4,9.08,20,0)="^.3LA^1^1"
^DD(799.4,9.08,20,1,0)="CDC FORM (III)"
^DD(799.4,9.08,21,0)="^^4^4^3060203^"
^DD(799.4,9.08,21,1,0)="This field is used to enter the name of the "
^DD(799.4,9.08,21,2,0)="country of birth when the country of birth is"
^DD(799.4,9.08,21,3,0)="indicated as a U.S. dependency or possession on "
^DD(799.4,9.08,21,4,0)="the revised CDC form."
^DD(799.4,9.08,"DT")="2930331"
^DD(799.4,9.09,0)="OTHER COUNTRY DESCRIPTION^F^^9;9^K:$L(X)>15!($L(X)<3) X"
^DD(799.4,9.09,.1)="Other Country Name"
^DD(799.4,9.09,3)="If patient's country of birth is 'Other', enter name (3-15 characters)."
^DD(799.4,9.09,20,0)="^.3LA^1^1"
^DD(799.4,9.09,20,1,0)="CDC FORM (III)"
^DD(799.4,9.09,21,0)="^^5^5^3060203^"
^DD(799.4,9.09,21,1,0)="This field is used to enter the name of the "
^DD(799.4,9.09,21,2,0)="country of birth if OTHER was selected as a value "
^DD(799.4,9.09,21,3,0)="of the COUNTRY OF BIRTH field. If the field is not"
^DD(799.4,9.09,21,4,0)="blank, then it is printed in part III of the CDC"
^DD(799.4,9.09,21,5,0)="form."
^DD(799.4,9.09,"DT")="2871217"
^DD(799.4,9.1,0)="ONSET OF ILLNESS/AIDS- CITY^F^^9;10^K:$L(X)>15!($L(X)<3) X"
^DD(799.4,9.1,.1)="City at Onset of Illness Suggestive of AIDS"
^DD(799.4,9.1,3)="Enter city of residence at onset of illness suggestive of AIDS diagnosis. Answer must be 3-15 characters in length."
^DD(799.4,9.1,20,0)="^.3LA^1^1"
^DD(799.4,9.1,20,1,0)="CDC FORM (III)"
^DD(799.4,9.1,21,0)="^^4^4^3060203^"
^DD(799.4,9.1,21,1,0)="This is the city in which the patient was residing"
^DD(799.4,9.1,21,2,0)="at the onset of an illness suggestive of AIDS."
^DD(799.4,9.1,21,3,0)="This field is used in printing part III of the CDC"
^DD(799.4,9.1,21,4,0)="form."
^DD(799.4,9.1,"DT")="3030211"
^DD(799.4,9.11,0)="ONSET OF ILLNESS/AIDS- COUNTY^F^^9;11^K:$L(X)>15!($L(X)<3) X"
^DD(799.4,9.11,.1)="County at Onset of Illness Suggestive of AIDS"
^DD(799.4,9.11,3)="Enter county of residence at onset of illness suggestive of AIDS diagnosis. Answer must be 3-15 characters in length."
^DD(799.4,9.11,20,0)="^.3LA^1^1"
^DD(799.4,9.11,20,1,0)="CDC FORM (III)"
^DD(799.4,9.11,21,0)="^^4^4^3030211^"
^DD(799.4,9.11,21,1,0)="This field is used to indicate the COUNTY in which"
^DD(799.4,9.11,21,2,0)="the patient was residing at the onset of an"
^DD(799.4,9.11,21,3,0)="illness suggestive of AIDS. This field is used in"
^DD(799.4,9.11,21,4,0)="printing part III of the CDC form."
^DD(799.4,9.11,"DT")="3030211"
^DD(799.4,9.12,0)="ONSET OF ILLNESS/AIDS- STATE^P5'^DIC(5,^9;12^Q"
^DD(799.4,9.12,.1)="State at Onset of Illness Suggestive of AIDS"
^DD(799.4,9.12,3)="Enter patient's state of residence at onset of illness sugesstive of AIDS."
^DD(799.4,9.12,20,0)="^.3LA^1^1"
^DD(799.4,9.12,20,1,0)="CDC FORM (III)"
^DD(799.4,9.12,21,0)="^^4^4^3060203^"
^DD(799.4,9.12,21,1,0)="This field is used to indicate the STATE in which "
^DD(799.4,9.12,21,2,0)="the patient was residing at the time of onset of"
^DD(799.4,9.12,21,3,0)="an illness suggestive of AIDS. This field is used"
^DD(799.4,9.12,21,4,0)="in printing part III of the CDC form."
^DD(799.4,9.12,"DT")="3030211"
^DD(799.4,9.13,0)="ONSET OF ILLNESS/AIDS- COUNTRY^F^^9;13^K:$L(X)>15!($L(X)<3) X"
^DD(799.4,9.13,.1)="Country at Onset of Illness Suggestive of AIDS"
^DD(799.4,9.13,3)="Enter patient's country of residence at onset of illness suggestive of AIDS. Answer must be 3-15 characters in length."
^DD(799.4,9.13,20,0)="^.3LA^1^1"
^DD(799.4,9.13,20,1,0)="CDC FORM (III)"
^DD(799.4,9.13,21,0)="^^4^4^3030211^"
^DD(799.4,9.13,21,1,0)="This field is used to indicate the COUNTRY in "
^DD(799.4,9.13,21,2,0)="which the patient was residing at the time of"
^DD(799.4,9.13,21,3,0)="onset of an illness suggestive of AIDS. This field"
^DD(799.4,9.13,21,4,0)="is used in printing part III of the CDC form."
^DD(799.4,9.13,"DT")="3030211"
^DD(799.4,9.14,0)="ONSET OF ILLNESS/AIDS- ZIP^F^^9;14^K:$L(X)>9!($L(X)<5) X"
^DD(799.4,9.14,.1)="Zip Code at Onset of Illness Suggestive of AIDS"
^DD(799.4,9.14,3)="Enter patient's zip code of residence at onset of illness suggestive of AIDS. Answer must be 5-9 characters in length."
^DD(799.4,9.14,20,0)="^.3LA^1^1"
^DD(799.4,9.14,20,1,0)="CDC FORM (III)"
^DD(799.4,9.14,21,0)="^^5^5^3060203^"
^DD(799.4,9.14,21,1,0)="This field is used to indicate the zip code"
^DD(799.4,9.14,21,2,0)="associated with the residence of the patient at"
^DD(799.4,9.14,21,3,0)="the onset of an illness suggestive of AIDS. This"
^DD(799.4,9.14,21,4,0)="field is used in printing part III of the CDC"
^DD(799.4,9.14,21,5,0)="form."
^DD(799.4,9.14,"DT")="3030211"
^DD(799.4,9.9,0)="PATIENT STATUS^CJ1,0^^ ; ^S X=$S('$D(D0):"""",D0<0:"""",1:D0),X=$S(X>0:+$P($G(^RORDATA(798,+X,0)),U),1:0),X=$S(X'>0:9,$P($G(^RORDATA(798.4,X,1)),U,4)>0:2,1:1)"
^DD(799.4,9.9,9)="^"
^DD(799.4,9.9,9.01)=""
^DD(799.4,9.9,9.1)="RORPTSTATUS(NUMBER)"
^DD(799.4,9.9,21,0)="^^4^4^3030219^"
^DD(799.4,9.9,21,1,0)="The PATIENT STATUS field indicates whether the"
^DD(799.4,9.9,21,2,0)="patient is alive (1) or dead (2), or if the status"
^DD(799.4,9.9,21,3,0)="is unknown (9). It is also used in printing the"
^DD(799.4,9.9,21,4,0)="CDC form."
^DD(799.4,9.9,"DT")="3030219"
^DD(799.4,10,0)="AIDS INDICATOR DISEASE^799.41P^^10;0"
^DD(799.4,10,9)=""
^DD(799.4,10,20,0)="^.3LA^1^1"
^DD(799.4,10,20,1,0)="CDC FORM (VIII)"
^DD(799.4,10,21,0)="^^2^2^3060203^"
^DD(799.4,10,21,1,0)="The AIDS INDICATOR DISEASE multiple contains a "
^DD(799.4,10,21,2,0)="list of disease diagnoses that indicate AIDS."
^DD(799.4,10,23,0)="^.001^3^3^3060203^^"
^DD(799.4,10,23,1,0)="The records of the multiple have the same internal"
^DD(799.4,10,23,2,0)="entry numbers as the corresponding diseases from"
^DD(799.4,10,23,3,0)="the ROR AIDS INDICATOR DISEASE file (#799.49)."
^DD(799.4,11.01,0)="RECORD REVIEWED^S^1:YES;0:NO;^11;1^Q"
^DD(799.4,11.01,3)="Indicate whether the patient's medical record was reviewed prior to submitting the CDC HIV/AIDS form or not."
^DD(799.4,11.01,20,0)="^.3LA^1^1"
^DD(799.4,11.01,20,1,0)="CDC FORM (VIII)"
^DD(799.4,11.01,21,0)="^.001^4^4^3060203^^^"
^DD(799.4,11.01,21,1,0)="This field is used to indicate whether the "
^DD(799.4,11.01,21,2,0)="patient's medical record was reviewed prior to"
^DD(799.4,11.01,21,3,0)="submitting the CDC HIV/AIDS form. The entry is"
^DD(799.4,11.01,21,4,0)="used in the CDC HIV/AIDS form."
^DD(799.4,11.01,"DT")="2940628"
^DD(799.4,11.02,0)="DATE ASYMPTOMATIC^DX^^11;2^S %DT=""E"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(799.4,11.02,3)="This is the date the patient was diagnosed as ASYMPTOMATIC (including acute retroviral syndrome and persistant generalized lymphadenopathy)."
^DD(799.4,11.02,20,0)="^.3LA^1^1"
^DD(799.4,11.02,20,1,0)="CDC FORM (VIII)"
^DD(799.4,11.02,21,0)="^^5^5^3060203^"
^DD(799.4,11.02,21,1,0)="This field is used for a date requested in the "
^DD(799.4,11.02,21,2,0)="CLINICAL STATUS portion of the CDC form. The form"
^DD(799.4,11.02,21,3,0)="requests the date the patient was diagnosed as"
^DD(799.4,11.02,21,4,0)="ASYMPTOMATIC (including acute retroviral syndrome"
^DD(799.4,11.02,21,5,0)="and persistent generalized lymphadenopathy)."
^DD(799.4,11.02,"DT")="2970715"
^DD(799.4,11.03,0)="DATE SYMPTOMATIC^DX^^11;3^S %DT=""E"",%DT(0)=-DT D ^%DT S X=Y K:Y<1 X K %DT(0)"
^DD(799.4,11.03,3)="Enter the date when the patient was diagnosed as SYMPTOMATIC (not AIDS)."
^DD(799.4,11.03,20,0)="^.3LA^1^1"
^DD(799.4,11.03,20,1,0)="CDC FORM (VIII)"
^DD(799.4,11.03,21,0)="^^3^3^3030211^"
^DD(799.4,11.03,21,1,0)="This field is used for the date requested as "
^DD(799.4,11.03,21,2,0)="SYMPTOMATIC in the CLINICAL STATUS portion of the"
^DD(799.4,11.03,21,3,0)="CDC HIV/AIDS reporting form."
^DD(799.4,11.03,"DT")="2970715"
^DD(799.4,11.04,0)="IMMUNODEF THAT DISQUALIFIES^S^1:YES;0:NO;9:UNKNOWN;^11;4^Q"
^DD(799.4,11.04,.1)="Immunodeficiency that would disqualify AIDS diagnosis"
^DD(799.4,11.04,3)="This field indicates whether the patient has an immunodeficiency which would disqualify the patient from an AIDS diagnosis."
^DD(799.4,11.04,20,0)="^.3LA^1^1"
^DD(799.4,11.04,20,1,0)="CDC FORM (VIII)"
^DD(799.4,11.04,21,0)="^^4^4^3030211^"
^DD(799.4,11.04,21,1,0)="This field indicates whether the patient has an "
^DD(799.4,11.04,21,2,0)="immunodeficiency which would disqualify the"
^DD(799.4,11.04,21,3,0)="patient from an AIDS diagnosis. This field is used"
^DD(799.4,11.04,21,4,0)="in the CDC HIV/AIDS form."
^DD(799.4,11.04,"DT")="2940628"
^DD(799.4,11.05,0)="RVCT CASE NO.^NJ9,0^^11;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(799.4,11.05,3)="If the presence of tuberculosis is indicated, enter the RVCT CASE Number for the patient."
^DD(799.4,11.05,20,0)="^.3LA^1^1"
^DD(799.4,11.05,20,1,0)="CDC FORM (VIII)"
^DD(799.4,11.05,21,0)="^^3^3^3060203^"
^DD(799.4,11.05,21,1,0)="This field is used to enter the RVCT Case number "
^DD(799.4,11.05,21,2,0)="if a diagnosis of tuberculosis had been indicated"
^DD(799.4,11.05,21,3,0)="in part VIII of the CDC form."
^DD(799.4,11.05,"DT")="2930331"
^DD(799.4,12.01,0)="AIDS DX - HOSPITAL^F^^12;1^K:$L(X)>30!($L(X)<3) X"
^DD(799.4,12.01,.1)="Hospital Where AIDS Diagnosed"
^DD(799.4,12.01,3)="Enter the name of hospital where AIDS diagnosed.  Answer must be 3-30 characters in length."
^DD(799.4,12.01,20,0)="^.3LA^1^1"
^DD(799.4,12.01,20,1,0)="CDC FORM (IV)"
^DD(799.4,12.01,21,0)="^^3^3^3030210^"
^DD(799.4,12.01,21,1,0)="This field contains the name of the hospital where"
^DD(799.4,12.01,21,2,0)="the diagnosis of AIDS was first made.  This field"
^DD(799.4,12.01,21,3,0)="is used in printing part IV of the CDC form."
^DD(799.4,12.01,"DT")="3030210"
^DD(799.4,12.02,0)="AIDS DX - CITY^F^^12;2^K:$L(X)>15!($L(X)<3) X"
^DD(799.4,12.02,.1)="City of Hospital Where AIDS Dx."
^DD(799.4,12.02,3)="Enter name of city of hospital where HIV was diagnosed.  Answer must be 3-15 characters in length."
^DD(799.4,12.02,20,0)="^.3LA^1^1"
^DD(799.4,12.02,20,1,0)="CDC FORM (IV)"
^DD(799.4,12.02,21,0)="^.001^4^4^3060203^^"
^DD(799.4,12.02,21,1,0)="This field contains the city in which the "
^DD(799.4,12.02,21,2,0)="hospital where the diagnosis of AIDS was first"
^DD(799.4,12.02,21,3,0)="made is located.  This field is used in printing"
^DD(799.4,12.02,21,4,0)="part IV of the CDC form."
^DD(799.4,12.02,"DT")="3030210"
^DD(799.4,12.03,0)="AIDS DX - STATE^P5'^DIC(5,^12;3^Q"
^DD(799.4,12.03,.1)="State of Hospital Where AIDS Dx."
^DD(799.4,12.03,3)="Enter the name of the state where AIDS was diagnosed."
^DD(799.4,12.03,20,0)="^.3LA^1^1"
^DD(799.4,12.03,20,1,0)="CDC FORM (IV)"
^DD(799.4,12.03,21,0)="^^4^4^3060203^"
^DD(799.4,12.03,21,1,0)="This field contains the name of the STATE in which"
^DD(799.4,12.03,21,2,0)="the hospital where the diagnosis of AIDS was first"
^DD(799.4,12.03,21,3,0)="made is located. This field is used in printing"
^DD(799.4,12.03,21,4,0)="part IV of the CDC form."
^DD(799.4,12.03,"DT")="3030210"
^DD(799.4,12.04,0)="AIDS DX - COUNTRY^F^^12;4^K:$L(X)>15!($L(X)<3) X"
^DD(799.4,12.04,.1)="Country of Hospital Where AIDS Dx."
^DD(799.4,12.04,3)="Enter name of country where AIDS was diagnosed.  Answer must be 3-15 characters in length."
^DD(799.4,12.04,20,0)="^.3LA^1^1"
^DD(799.4,12.04,20,1,0)="CDC FORM (IV)"
^DD(799.4,12.04,21,0)="^.001^4^4^3060203^^"
^DD(799.4,12.04,21,1,0)="This field is used to record the country in  which"
^DD(799.4,12.04,21,2,0)="the hospital at which the patient was diagnosed as"
^DD(799.4,12.04,21,3,0)="having AIDS is located. This field is used in"
^DD(799.4,12.04,21,4,0)="printing part IV of the CDC form."
^DD(799.4,12.04,"DT")="3030210"
^DD(799.4,12.05,0)="AIDS DX - FACILITY SETTING^S^1:PUBLIC;2:PRIVATE;3:FEDERAL;9:UNKNOWN;^12;5^Q"
^DD(799.4,12.05,3)="This entry is used to indicate the type of facility on the revised HIV/CDC form."
^DD(799.4,12.05,20,0)="^.3LA^1^1"
^DD(799.4,12.05,20,1,0)="CDC FORM (IV)"
^DD(799.4,12.05,21,0)="^^4^4^3060203^"
^DD(799.4,12.05,21,1,0)="This field is used to contain data related to the "
^DD(799.4,12.05,21,2,0)="facility setting where the diagnosis was first"
^DD(799.4,12.05,21,3,0)="made.  The facility setting is public, federal,"
^DD(799.4,12.05,21,4,0)="etc. This field is used on the CDC HIV/AIDS form."
^DD(799.4,12.05,"DT")="3030210"
^DD(799.4,12.06,0)="AIDS DX - FACILITY TYPE^S^01:PHYSICIAN,HMO;31:HOSPITAL,INPATIENT;88:OTHER;^12;6^Q"
^DD(799.4,12.06,3)="Select the appropriate code to indicate the type of facility at which the AIDS diagnosis was made."
^DD(799.4,12.06,20,0)="^.3LA^1^1"
^DD(799.4,12.06,20,1,0)="CDC FORM (IV)"
^DD(799.4,12.06,21,0)="^^4^4^3030210^"
^DD(799.4,12.06,21,1,0)="This field holds information on the type of "
^DD(799.4,12.06,21,2,0)="facility in which the diagnosis was originally"
^DD(799.4,12.06,21,3,0)="made for this patient.  This information is used"
^DD(799.4,12.06,21,4,0)="to generate the CDC HIV/AIDS form."
^DD(799.4,12.06,"DT")="3030210"
^DD(799.4,12.07,0)="AIDS DX - OTHER FACILITY TYPE^F^^12;7^K:$L(X)>25!($L(X)<2) X"
^DD(799.4,12.07,3)="This field is used to specify the 'OTHER' type of facility at which the AIDS diagnosis was made. Answer must be 2-25 characters in length."
^DD(799.4,12.07,20,0)="^.3LA^1^1"
^DD(799.4,12.07,20,1,0)="CDC FORM (IV)"
^DD(799.4,12.07,21,0)="^.001^4^4^3060203^^"
^DD(799.4,12.07,21,1,0)="If the facility type selected for the 'AIDS DX - "
^DD(799.4,12.07,21,2,0)="FACILITY TYPE' field (12.06) is 'OTHER', then this"
^DD(799.4,12.07,21,3,0)="field is used to provide a text description of the"
^DD(799.4,12.07,21,4,0)="'OTHER' type."
^DD(799.4,12.07,"DT")="3030210"
^DD(799.4,14.01,0)="SEX RELATIONS W/MALE PARTNER^S^1:YES;0:NO;9:UNKNOWN;^14;1^Q"
^DD(799.4,14.01,.1)="Sex With Male Partner"
^DD(799.4,14.01,3)="Indicate whether patient had sex with a male partner."
^DD(799.4,14.01,20,0)="^.3LA^1^1"
^DD(799.4,14.01,20,1,0)="CDC FORM (V)"
^DD(799.4,14.01,21,0)="^^5^5^3030210^"
^DD(799.4,14.01,21,1,0)="This field contains the answer to the question "
^DD(799.4,14.01,21,2,0)="'Did this patient after 1977 and preceding the"
^DD(799.4,14.01,21,3,0)="diagnosis of AIDS, have sexual relations with a"
^DD(799.4,14.01,21,4,0)="male partner?'  The field is used in printing "
^DD(799.4,14.01,21,5,0)="part V of the CDC form."
^DD(799.4,14.01,"DT")="2930401"
^DD(799.4,14.02,0)="SEX RELATIONS W/FEMALE PARTNER^S^1:YES;0:NO;9:UNKNOWN;^14;2^Q"
^DD(799.4,14.02,.1)="Sex With Female Partner"
^DD(799.4,14.02,3)="Indicate whether patient had sex with a female partner."
^DD(799.4,14.02,20,0)="^.3LA^1^1"
^DD(799.4,14.02,20,1,0)="CDC FORM (V)"
^DD(799.4,14.02,21,0)="^^5^5^3030210^"
^DD(799.4,14.02,21,1,0)="This field contains the answer to the question "
^DD(799.4,14.02,21,2,0)="'Did this patient, after 1977 and preceding the"
^DD(799.4,14.02,21,3,0)="diagnosis of AIDS, have sexual relations with a"
^DD(799.4,14.02,21,4,0)="female partner?'  The field is used in printing "
^DD(799.4,14.02,21,5,0)="part V of the CDC form."
^DD(799.4,14.02,"DT")="2930401"
^DD(799.4,14.03,0)="IV DRUGS AFTER 77 AND PRE HIV^S^0:NO;1:YES;9:UNKNOWN;^14;3^Q"
^DD(799.4,14.03,.1)="IV Drugs After 1977/Pre HIV"
^DD(799.4,14.03,3)="Indicate whether patient used IV drugs after 1977 and preceding HIV diagnosis."
^DD(799.4,14.03,20,0)="^.3LA^1^1"
^DD(799.4,14.03,20,1,0)="CDC FORM (V)"
^DD(799.4,14.03,21,0)="^^7^7^3030210^"
^DD(799.4,14.03,21,1,0)="This field is used to indicate whether the "
^DD(799.4,14.03,21,2,0)="patient used needles for self-injection of drugs"
^DD(799.4,14.03,21,3,0)="not prescribed by a physician during the period"
^DD(799.4,14.03,21,4,0)="after 1977 and before the diagnosis of AIDS."
^DD(799.4,14.03,21,5,0)=" "
^DD(799.4,14.03,21,6,0)="This field is used in printing part V of the CDC "
^DD(799.4,14.03,21,7,0)="form."
^DD(799.4,14.03,"DT")="2930401"
^DD(799.4,14.04,0)="REC'D CLOTTING FACTORS^S^0:NO;1:YES;9:UNKNOWN;^14;4^Q"
^DD(799.4,14.04,.1)="BP1.  Received Clotting Factor"
^DD(799.4,14.04,20,0)="^.3LA^1^1"
^DD(799.4,14.04,20,1,0)="CDC FORM (V)"
^DD(799.4,14.04,21,0)="^^4^4^3030210^"
^DD(799.4,14.04,21,1,0)="This field is used in part V of the CDC form to "
^DD(799.4,14.04,21,2,0)="indicate whether the patient had received clotting"
^DD(799.4,14.04,21,3,0)="factors in the period between 1977 and the"
^DD(799.4,14.04,21,4,0)="diagnosis of AIDS."
^DD(799.4,14.04,"DT")="2930401"
^DD(799.4,14.05,0)="TYPE OF HEMOPHILIA^S^1:HEMOPHILIA A (FACTOR VIII);2:HEMOPHILIA B (FACTOR IX);8:OTHER;^14;5^Q"
^DD(799.4,14.05,.1)="BP1.  Type of Hemophilia"
^DD(799.4,14.05,3)="Enter the type of hemophilia."
^DD(799.4,14.05,20,0)="^.3LA^1^1"
^DD(799.4,14.05,20,1,0)="CDC FORM (V)"
^DD(799.4,14.05,21,0)="^^5^5^3060203^"
^DD(799.4,14.05,21,1,0)="This field is used to indicate, for those "
^DD(799.4,14.05,21,2,0)="patients who had received clotting factors as"
^DD(799.4,14.05,21,3,0)="indicated in field 15.9, the type of hemophilia "
^DD(799.4,14.05,21,4,0)="for which clotting factors were given. This field "
^DD(799.4,14.05,21,5,0)="is used in printing part 2 of the CDC form."
^DD(799.4,14.05,"DT")="3030210"
^DD(799.4,14.06,0)="OTHER HEMOPHILIA DESCRIPTION^F^^14;6^K:$L(X)>15!($L(X)<3) X"
^DD(799.4,14.06,.1)="BP1.  Other Hemophilia Desc."
^DD(799.4,14.06,3)="If hemophilia is 'OTHER', indicate type.  Answer must be 3-15 characters in length."
^DD(799.4,14.06,20,0)="^.3LA^1^1"
^DD(799.4,14.06,20,1,0)="CDC FORM (V)"
^DD(799.4,14.06,21,0)="^^4^4^3060203^"
^DD(799.4,14.06,21,1,0)="This field is used to indicate the type of "
^DD(799.4,14.06,21,2,0)="hemophilia, if OTHER is selected in field 14.05."
^DD(799.4,14.06,21,3,0)="This field is used in printing part V of the CDC"
^DD(799.4,14.06,21,4,0)="form."
^DD(799.4,14.06,"DT")="2871217"
^DD(799.4,14.07,0)="SR WITH IV DRUG USER^S^0:NO;1:YES;9:UNKNOWN;^14;7^Q"
^DD(799.4,14.07,.1)="Sex With IV Drug Abuser"
^DD(799.4,14.07,3)="Indicate whether patient had sex with an IV drug user."
^DD(799.4,14.07,20,0)="^.3LA^1^1"
^DD(799.4,14.07,20,1,0)="CDC FORM (V)"
^DD(799.4,14.07,21,0)="^^5^5^3030210^"
^DD(799.4,14.07,21,1,0)="This field is used to store the answer to the "
^DD(799.4,14.07,21,2,0)="question 'Did this patient have heterosexual"
^DD(799.4,14.07,21,3,0)="relations with any of the following: IV drug"
^DD(799.4,14.07,21,4,0)="user'  The response is used in printing part V of "
^DD(799.4,14.07,21,5,0)="the CDC form."
^DD(799.4,14.07,"DT")="2930401"
^DD(799.4,14.08,0)="SR WITH BISEXUAL MAN^S^0:NO;1:YES;9:UNKNOWN;^14;8^Q"
^DD(799.4,14.08,.1)="Sex With Bisexual Male"
^DD(799.4,14.08,3)="Indicate whether patient had sex with a bisexual male."
^DD(799.4,14.08,20,0)="^.3LA^1^1"
^DD(799.4,14.08,20,1,0)="CDC FORM (V)"
^DD(799.4,14.08,21,0)="^^8^8^3030210^"
^DD(799.4,14.08,21,1,0)="This field is used to store the answer to the "
^DD(799.4,14.08,21,2,0)="question 'Did this patient have heterosexual"
^DD(799.4,14.08,21,3,0)="relations with any of the following: Bisexual"
^DD(799.4,14.08,21,4,0)="Man'.  "
^DD(799.4,14.08,21,5,0)=" "
^DD(799.4,14.08,21,6,0)="Note that this question should be ignored for Male"
^DD(799.4,14.08,21,7,0)="patients. The response is used in printing part V"
^DD(799.4,14.08,21,8,0)="of the CDC form."
^DD(799.4,14.08,"DT")="2930401"
^DD(799.4,14.09,0)="SR W HEMOPHILIA/COAG DISORDER^S^0:NO;1:YES;9:UNKNOWN;^14;9^Q"
^DD(799.4,14.09,.1)="Sex With Hemophiliac/Coagulation Disorder"
^DD(799.4,14.09,3)="Indicate whether patient had sex with a person with hemophilia/coagulation disorder."
^DD(799.4,14.09,20,0)="^.3LA^1^1"
^DD(799.4,14.09,20,1,0)="CDC FORM (V)"
^DD(799.4,14.09,21,0)="^^5^5^3030210^"
^DD(799.4,14.09,21,1,0)="This field is used to store the answer to the "
^DD(799.4,14.09,21,2,0)="question 'Did this patient have heterosexual"
^DD(799.4,14.09,21,3,0)="relations with any of the following: Person with"
^DD(799.4,14.09,21,4,0)="hemophilia/coagulation disorder.'  The response "
^DD(799.4,14.09,21,5,0)="is used in printing part V of the CDC form."
^DD(799.4,14.09,"DT")="2930401"
^DD(799.4,14.1,0)="SR W TRANS RECIPIENT WITH AIDS^S^0:NO;1:YES;9:UNKNOWN;^14;10^Q"
^DD(799.4,14.1,.1)="Sex With Transfusion Recipient with AIDS"
^DD(799.4,14.1,3)="Indicate whether patient had sex with a transfusion recipient with AIDS or documented HIV infection."
^DD(799.4,14.1,20,0)="^.3LA^1^1"
^DD(799.4,14.1,20,1,0)="CDC FORM (V)"
^DD(799.4,14.1,21,0)="^^6^6^3030210^"
^DD(799.4,14.1,21,1,0)="This field is used to store the answer to the "
^DD(799.4,14.1,21,2,0)="question 'Did this patient have heterosexual"
^DD(799.4,14.1,21,3,0)="relations with any of the following: Blood"
^DD(799.4,14.1,21,4,0)="transfusion recipient with AIDS or documented HIV "
^DD(799.4,14.1,21,5,0)="infection.'  This field is used in printing part V"
^DD(799.4,14.1,21,6,0)="of the CDC form."
^DD(799.4,14.1,"DT")="2930401"
^DD(799.4,14.11,0)="TRANSPLANT RECIP-DOCUMNTD HIV^S^1:YES;0:NO;9:UNKNOWN;^14;11^Q"
^DD(799.4,14.11,3)="Indicate whether patient is a transplant recipient with documented HIV infection."
^DD(799.4,14.11,20,0)="^.3LA^1^1"
^DD(799.4,14.11,20,1,0)="CDC FORM (V)"
^DD(799.4,14.11,21,0)="^.001^4^4^3030210^^"
^DD(799.4,14.11,21,1,0)="This field should reflect whether the patient is "
^DD(799.4,14.11,21,2,0)="a transplant recipient with documented HIV"
^DD(799.4,14.11,21,3,0)="infection.  The field is used on the CDC HIV/AIDS"
^DD(799.4,14.11,21,4,0)="report form."
^DD(799.4,14.11,"DT")="2940628"
^DD(799.4,14.12,0)="SR W AIDS/HIV INFECTION^S^0:NO;1:YES;9:UNKNOWN;^14;12^Q"
^DD(799.4,14.12,.1)="Sex With AIDS/HIV Infected Person"
^DD(799.4,14.12,3)="Indicate whether patient had sex with a person with AIDS or documented HIV infection."
^DD(799.4,14.12,20,0)="^.3LA^1^1"
^DD(799.4,14.12,20,1,0)="CDC FORM (V)"
^DD(799.4,14.12,21,0)="^^5^5^3030210^"
^DD(799.4,14.12,21,1,0)="This field is used to store the answer to the "
^DD(799.4,14.12,21,2,0)="question 'Did this patient have heterosexual"
^DD(799.4,14.12,21,3,0)="relations with any of the following: Person with"
^DD(799.4,14.12,21,4,0)="AIDS or documented HIV infection.'  This field is "
^DD(799.4,14.12,21,5,0)="used in printing part V of the CDC form."
^DD(799.4,14.12,"DT")="2930401"
^DD(799.4,14.13,0)="TRANS AFTER 77 AND BEFORE HIV^S^0:NO;1:YES;9:UNKNOWN;^14;13^Q"
^DD(799.4,14.13,.1)="Trans After 1977/Pre HIV"
^DD(799.4,14.13,3)="Indicate whether patient had transfusion(s) after 1977 and prior to HIV Dx."
^DD(799.4,14.13,20,0)="^.3LA^1^1"
^DD(799.4,14.13,20,1,0)="CDC FORM (V)"
^DD(799.4,14.13,21,0)="^^4^4^3060203^"
^DD(799.4,14.13,21,1,0)="This field is used to indicate if the patient had "
^DD(799.4,14.13,21,2,0)="a transfusion after 1977 and before diagnosis of"
^DD(799.4,14.13,21,3,0)="AIDS.  This field is used in printing part V of"
^DD(799.4,14.13,21,4,0)="the CDC form."
^DD(799.4,14.13,"DT")="2930401"
^DD(799.4,14.14,0)="DATE OF FIRST TRANSFUSION^D^^14;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,14.14,.1)="Date of First Transfusion"
^DD(799.4,14.14,3)="Enter date of patient's first transfusion."
^DD(799.4,14.14,20,0)="^.3LA^1^1"
^DD(799.4,14.14,20,1,0)="CDC FORM (V)"
^DD(799.4,14.14,21,0)="^^6^6^3060203^"
^DD(799.4,14.14,21,1,0)="This is the date of the first transfusion after "
^DD(799.4,14.14,21,2,0)="1977. This field is only required if the patient"
^DD(799.4,14.14,21,3,0)="did have a transfusion after 1977 and before the"
^DD(799.4,14.14,21,4,0)="diagnosis of AIDS, AND this is the only risk "
^DD(799.4,14.14,21,5,0)="factor for the patient. This field is used in"
^DD(799.4,14.14,21,6,0)="printing part V of the CDC form."
^DD(799.4,14.14,"DT")="2871217"
^DD(799.4,14.15,0)="DATE OF LAST TRANSFUSION^D^^14;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,14.15,.1)="Date of Last Transfusion"
^DD(799.4,14.15,3)="Enter date of patient's last transfusion."
^DD(799.4,14.15,20,0)="^.3LA^1^1"
^DD(799.4,14.15,20,1,0)="CDC FORM (V)"
^DD(799.4,14.15,21,0)="^^6^6^3060203^"
^DD(799.4,14.15,21,1,0)="This is the date of the last transfusion after "
^DD(799.4,14.15,21,2,0)="1977. This field is only required if the patient"
^DD(799.4,14.15,21,3,0)="did have a transfusion after 1977 and before the"
^DD(799.4,14.15,21,4,0)="diagnosis of AIDS (YES to field #14.13), AND this"
^DD(799.4,14.15,21,5,0)="is the only risk factor for the patient.  This "
^DD(799.4,14.15,21,6,0)="field is used in printing part V of the CDC form."
^DD(799.4,14.15,"DT")="2871217"
^DD(799.4,14.16,0)="TRANSPLANT OR ARTIF INSEMIN^S^1:YES;0:NO;9:UNKNOWN;^14;16^Q"
^DD(799.4,14.16,3)="Indicate whether the patient received a transplant of tissue/organs or artificial insemination."
^DD(799.4,14.16,20,0)="^.3LA^1^1"
^DD(799.4,14.16,20,1,0)="CDC FORM (V)"
^DD(799.4,14.16,21,0)="^^5^5^3060203^"
^DD(799.4,14.16,21,1,0)="This field is used to indicate whether the patient"
^DD(799.4,14.16,21,2,0)="was the recipient of a transplant or artificial"
^DD(799.4,14.16,21,3,0)="insemination following 1977 and prior to being"
^DD(799.4,14.16,21,4,0)="diagnosed as HIV positive. This field is used in"
^DD(799.4,14.16,21,5,0)="printing part V of the CDC form."
^DD(799.4,14.16,"DT")="2930401"
^DD(799.4,14.17,0)="WORK IN HEALTH CARE OR LAB^S^0:NO;1:YES;9:UNKNOWN;^14;17^Q"
^DD(799.4,14.17,.1)="Health Care/Lab Worker"
^DD(799.4,14.17,3)="Indicate whether patient has worked as health care or lab worker."
^DD(799.4,14.17,20,0)="^.3LA^1^1"
^DD(799.4,14.17,20,1,0)="CDC FORM (V)"
^DD(799.4,14.17,21,0)="^^4^4^3060203^"
^DD(799.4,14.17,21,1,0)="After 1977 and preceding the diagnosis of AIDS "
^DD(799.4,14.17,21,2,0)="did the patient work in a health care or clinical"
^DD(799.4,14.17,21,3,0)="laboratory setting?  This field is used in"
^DD(799.4,14.17,21,4,0)="printing part V of the CDC form."
^DD(799.4,14.17,"DT")="2930401"
^DD(799.4,14.18,0)="OCCUPATION^F^^14;18^K:$L(X)>30!($L(X)<3) X"
^DD(799.4,14.18,.1)="Occupation"
^DD(799.4,14.18,3)="If patient has worked as health care or lab worker, indicate occupation.  Answer must be 3-30 characters in length."
^DD(799.4,14.18,20,0)="^.3LA^1^1"
^DD(799.4,14.18,20,1,0)="CDC FORM (V)"
^DD(799.4,14.18,21,0)="^^4^4^3030210^"
^DD(799.4,14.18,21,1,0)="If the patient did work in a health care or "
^DD(799.4,14.18,21,2,0)="clinical lab after 1977 and prior to the diagnosis"
^DD(799.4,14.18,21,3,0)="of AIDS (YES to field #14.17), this field is used"
^DD(799.4,14.18,21,4,0)="to specify the occupation."
^DD(799.4,14.18,"DT")="2900905"
^DD(799.4,16.01,0)="HIV-1 EIA^S^1:POSITIVE;0:NEGATIVE;9:NOT DONE;^16;1^Q"
^DD(799.4,16.01,3)="Enter the result of the ELISA antibody test."
^DD(799.4,16.01,20,0)="^.3LA^1^1"
^DD(799.4,16.01,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.01,21,0)="^^3^3^3060203^"
^DD(799.4,16.01,21,1,0)="This field is used in filling out part VI of the "
^DD(799.4,16.01,21,2,0)="CDC form, and indicates whether an ELISA test for"
^DD(799.4,16.01,21,3,0)="HIV was performed, and if so, what the result was."
^DD(799.4,16.01,"DT")="3030210"
^DD(799.4,16.02,0)="HIV-1 EIA DATE^D^^16;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,16.02,3)="Enter the date (Month and Year) for the FIRST POSITIVE TEST, or the test date."
^DD(799.4,16.02,20,0)="^.3LA^1^1"
^DD(799.4,16.02,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.02,21,0)="^.001^3^3^3060203^^"
^DD(799.4,16.02,21,1,0)="This field is used to contain the date (month and "
^DD(799.4,16.02,21,2,0)="year) when the indicated result in part VI of the"
^DD(799.4,16.02,21,3,0)="revised CDC form was originally determined."
^DD(799.4,16.02,"DT")="3030210"
^DD(799.4,16.03,0)="HIV-1/HIV-2 EIA^S^1:POSITIVE;0:NEGATIVE;9:NOT DONE;^16;3^Q"
^DD(799.4,16.03,3)="Enter the result of the HIV-1/HIV-2 combination EIA test."
^DD(799.4,16.03,20,0)="^.3LA^1^1"
^DD(799.4,16.03,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.03,21,0)="^^4^4^3030210^"
^DD(799.4,16.03,21,1,0)="This field is used to hold information on whether "
^DD(799.4,16.03,21,2,0)="an HIV-1/HIV-2 EIA was performed on the patient"
^DD(799.4,16.03,21,3,0)="and, if so, the result.  This information is used"
^DD(799.4,16.03,21,4,0)="to generate the CDC HIV/AIDS form."
^DD(799.4,16.03,"DT")="3030210"
^DD(799.4,16.04,0)="HIV-1/HIV-2 EIA DATE^D^^16;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,16.04,3)="Enter the date of the MOST RECENT HIV-1/HIV-2 combination EIA test."
^DD(799.4,16.04,20,0)="^.3LA^1^1"
^DD(799.4,16.04,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.04,21,0)="^^3^3^3030210^"
^DD(799.4,16.04,21,1,0)="This field is used to indicate the date on which "
^DD(799.4,16.04,21,2,0)="an HIV-1/HIV-2 EIA test was performed.  It is used"
^DD(799.4,16.04,21,3,0)="to generate the CDC HIV/AIDS form."
^DD(799.4,16.04,"DT")="2940803"
^DD(799.4,16.05,0)="HIV-1 WESTERN BLOT/IFA^S^1:POSITIVE;0:NEGATIVE;8:INDETERMINATE;9:NOT DONE;^16;5^Q"
^DD(799.4,16.05,.1)="WESTERN BLOT"
^DD(799.4,16.05,3)="Enter the result of the Western blot antibody test."
^DD(799.4,16.05,20,0)="^.3LA^1^1"
^DD(799.4,16.05,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.05,21,0)="^^4^4^3060203^"
^DD(799.4,16.05,21,1,0)="This field is used in filling out part VI of the "
^DD(799.4,16.05,21,2,0)="CDC form, and indicates whether a WESTERN BLOT"
^DD(799.4,16.05,21,3,0)="test was performed for HIV, and if so, what the"
^DD(799.4,16.05,21,4,0)="result was."
^DD(799.4,16.05,"DT")="3030210"
^DD(799.4,16.06,0)="HIV-1 WESTERN BLOT/IFA DATE^D^^16;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,16.06,3)="Enter the date (Month and Year) for the FIRST POSITIVE TEST, or the test date."
^DD(799.4,16.06,20,0)="^.3LA^1^1"
^DD(799.4,16.06,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.06,21,0)="^^3^3^3030210^"
^DD(799.4,16.06,21,1,0)="This field is used to contain the date (month and "
^DD(799.4,16.06,21,2,0)="year) when the indicated result in part VI of the"
^DD(799.4,16.06,21,3,0)="revised CDC form was originally determined."
^DD(799.4,16.06,"DT")="3030210"
^DD(799.4,16.07,0)="OTHER HIV ANTIBODY TEST^S^1:POSITIVE;0:NEGATIVE;8:INDETERMINATE;9:NOT DONE;^16;7^Q"
^DD(799.4,16.07,.1)="Other Antibody Test"
^DD(799.4,16.07,3)="Enter the result of ""Other"" antibody test."
^DD(799.4,16.07,20,0)="^.3LA^1^1"
^DD(799.4,16.07,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.07,21,0)="^^5^5^3030210^"
^DD(799.4,16.07,21,1,0)="This field is used in filling out part VI of the "
^DD(799.4,16.07,21,2,0)="CDC form, and is used to indicate whether an"
^DD(799.4,16.07,21,3,0)="antibody test for HIV was performed other than the"
^DD(799.4,16.07,21,4,0)="ELISA or WESTERN BLOT, and the result of this "
^DD(799.4,16.07,21,5,0)="test."
^DD(799.4,16.07,"DT")="3030210"
^DD(799.4,16.08,0)="OTHER HIV ANTIBODY TEST DATE^D^^16;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,16.08,3)="Enter the date (Month and Year) for the FIRST POSITIVE TEST, or the test date"
^DD(799.4,16.08,20,0)="^.3LA^1^1"
^DD(799.4,16.08,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.08,21,0)="^^3^3^3030210^"
^DD(799.4,16.08,21,1,0)="This field is used to contain the date (month and "
^DD(799.4,16.08,21,2,0)="year) when the indicated result in part VI of the"
^DD(799.4,16.08,21,3,0)="revised CDC form was originally determined."
^DD(799.4,16.08,"DT")="3030210"
^DD(799.4,16.09,0)="OTHER HIV ANTIBODY TEST DESC^F^^16;9^K:$L(X)>15!($L(X)<1) X"
^DD(799.4,16.09,3)="Describe the type of ""Other"" antibody test.  Answer must be 1-15 characters in length."
^DD(799.4,16.09,20,0)="^.3LA^1^1"
^DD(799.4,16.09,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.09,21,0)="^^4^4^3030210^"
^DD(799.4,16.09,21,1,0)="This field is used to name or describe the OTHER "
^DD(799.4,16.09,21,2,0)="ANTIBODY test used, if field 16.07 indicates that"
^DD(799.4,16.09,21,3,0)="an OTHER ANTIBODY test was used.  This field is"
^DD(799.4,16.09,21,4,0)="used in filling out part VI of the CDC form."
^DD(799.4,16.09,"DT")="3030210"
^DD(799.4,16.11,0)="* HIV-2 SERUM EIA^S^1:POSITIVE;0:NEGATIVE;9:NOT DONE;^16;11^Q"
^DD(799.4,16.11,3)="Indicate the type of results (or NOT DONE) for HIV-2 serum antibody EIA tests."
^DD(799.4,16.11,20,0)="^.3LA^1^1"
^DD(799.4,16.11,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.11,21,0)="^^2^2^3030210^"
^DD(799.4,16.11,21,1,0)="This field is used to enter the results of a test "
^DD(799.4,16.11,21,2,0)="for the HIV-2 virus by serum EIA."
^DD(799.4,16.11,"DT")="3030410"
^DD(799.4,16.12,0)="* HIV-2 SERUM EIA DATE^D^^16;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,16.12,3)="Enter the date (Month and Year) for the FIRST POSITIVE TEST, or the test date"
^DD(799.4,16.12,20,0)="^.3LA^1^1"
^DD(799.4,16.12,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.12,21,0)="^^3^3^3030210^"
^DD(799.4,16.12,21,1,0)="This field is used to contain the date (month and "
^DD(799.4,16.12,21,2,0)="year) when the indicated result in part VI of the"
^DD(799.4,16.12,21,3,0)="revised CDC form was originally determined."
^DD(799.4,16.12,"DT")="3030410"
^DD(799.4,16.13,0)="* HIV-2 WESTERN BLOT^S^1:POSITIVE;0:NEGATIVE;8:INDETERMINATE;9:NOT DONE;^16;13^Q"
^DD(799.4,16.13,3)="Enter the result for the Western Blot test for HIV-2"
^DD(799.4,16.13,20,0)="^.3LA^1^1"
^DD(799.4,16.13,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.13,21,0)="^^5^5^3060203^"
^DD(799.4,16.13,21,1,0)="This field is used to hold information on whether "
^DD(799.4,16.13,21,2,0)="an HIV-2 Western Blot test was performed on the"
^DD(799.4,16.13,21,3,0)="patient and, if so, the result of the test. This"
^DD(799.4,16.13,21,4,0)="information is used to generate the CDC HIV/AIDS "
^DD(799.4,16.13,21,5,0)="form."
^DD(799.4,16.13,"DT")="3030410"
^DD(799.4,16.14,0)="* HIV-2 WESTERN BLOT DATE^D^^16;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,16.14,3)="Enter the date of the MOST RECENT Western Blot test for the HIV-2 virus"
^DD(799.4,16.14,20,0)="^.3LA^1^1"
^DD(799.4,16.14,20,1,0)="CDC FORM (VI)"
^DD(799.4,16.14,21,0)="^^4^4^3030210^"
^DD(799.4,16.14,21,1,0)="This field is used to hold the date on which an "
^DD(799.4,16.14,21,2,0)="HIV-2 Western Blot test was performed on the"
^DD(799.4,16.14,21,3,0)="patient.  This information is used to generate the"
^DD(799.4,16.14,21,4,0)="CDC HIV/AIDS form."
^DD(799.4,16.14,"DT")="3030410"
^DD(799.4,18.01,0)="HIV CULTURE DETECTION TEST^D^^18;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,18.01,3)="Enter the DATE of the FIRST POSITIVE HIV culture detection test."
^DD(799.4,18.01,20,0)="^.3LA^1^1"
^DD(799.4,18.01,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.01,21,0)="^^4^4^3030211^"
^DD(799.4,18.01,21,1,0)="This field is used to hold the date on which an "
^DD(799.4,18.01,21,2,0)="HIV culture test first produced a positive"
^DD(799.4,18.01,21,3,0)="result.  This information is used to generate the"
^DD(799.4,18.01,21,4,0)="CDC HIV/AIDS form."
^DD(799.4,18.01,"DT")="2941026"
^DD(799.4,18.02,0)="HIV ANTIGEN DETECTION TEST^D^^18;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,18.02,3)="Enter the DATE of the FIRST POSITIVE HIV ANTIGEN detection test."
^DD(799.4,18.02,20,0)="^.3LA^1^1"
^DD(799.4,18.02,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.02,21,0)="^^4^4^3030211^"
^DD(799.4,18.02,21,1,0)="This field is used for the date of the first "
^DD(799.4,18.02,21,2,0)="positive HIV antigen detection test which was run."
^DD(799.4,18.02,21,3,0)="The data is used in generating the CDC HIV/AIDS"
^DD(799.4,18.02,21,4,0)="form."
^DD(799.4,18.02,"DT")="2941026"
^DD(799.4,18.03,0)="HIV PCR, DNA, OR RNA PROBE^D^^18;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,18.03,3)="Enter the DATE of the FIRST POSITIVE PCR, DNA, or RNA detection test for HIV."
^DD(799.4,18.03,20,0)="^.3LA^1^1"
^DD(799.4,18.03,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.03,21,0)="^^4^4^3030211^"
^DD(799.4,18.03,21,1,0)="This field is used to hold the date on which an "
^DD(799.4,18.03,21,2,0)="HIV test involving PCR, DNA or RNA probes first"
^DD(799.4,18.03,21,3,0)="produced a positive result.  This information is"
^DD(799.4,18.03,21,4,0)="used to generate the CDC HIV/AIDS form."
^DD(799.4,18.03,"DT")="2941026"
^DD(799.4,18.04,0)="TYPE OF OTHER POSITIVE TEST^F^^18;4^K:$L(X)>30!($L(X)<3) X"
^DD(799.4,18.04,3)="Enter the TYPE of OTHER HIV detection test which was POSITIVE."
^DD(799.4,18.04,20,0)="^.3LA^1^1"
^DD(799.4,18.04,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.04,21,0)="^^4^4^3030211^"
^DD(799.4,18.04,21,1,0)="This field is used to indicate the type of other "
^DD(799.4,18.04,21,2,0)="HIV detection test which yielded a positive"
^DD(799.4,18.04,21,3,0)="result. This information is used to generate the"
^DD(799.4,18.04,21,4,0)="CDC HIV/AIDS form."
^DD(799.4,18.04,"DT")="2950519"
^DD(799.4,18.05,0)="DATE OTHER POS DETECTION TEST^D^^18;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,18.05,3)="Enter the DATE for the OTHER positive HIV test."
^DD(799.4,18.05,20,0)="^.3LA^1^1"
^DD(799.4,18.05,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.05,21,0)="^^4^4^3030211^"
^DD(799.4,18.05,21,1,0)="This field is used to hold the date on which a "
^DD(799.4,18.05,21,2,0)="positive HIV detection test was obtained with an"
^DD(799.4,18.05,21,3,0)="""other"" type of test. This information is used to"
^DD(799.4,18.05,21,4,0)="generate the CDC HIV/AIDS form."
^DD(799.4,18.05,"DT")="2941026"
^DD(799.4,18.06,0)="LAST DOCUMNTD NEG HIV TEST^D^^18;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,18.06,3)="Enter the date on which the last DOCUMENTED negative HIV test was obtained for this patient."
^DD(799.4,18.06,20,0)="^.3LA^1^1"
^DD(799.4,18.06,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.06,21,0)="^^4^4^3030211^"
^DD(799.4,18.06,21,1,0)="This field is used to hold the date on which the "
^DD(799.4,18.06,21,2,0)="patient last had a documented negative HIV test."
^DD(799.4,18.06,21,3,0)="This information is used to generate the CDC"
^DD(799.4,18.06,21,4,0)="HIV/AIDS form."
^DD(799.4,18.06,"DT")="2940803"
^DD(799.4,18.07,0)="TYPE FOR LAST NEG TEST^F^^18;7^K:$L(X)>30!($L(X)<3) X"
^DD(799.4,18.07,3)="Enter the TYPE of HIV test which was the last documented NEGATIVE HIV test for this patient.  Enter 3-30 characters."
^DD(799.4,18.07,20,0)="^.3LA^1^1"
^DD(799.4,18.07,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.07,21,0)="^^4^4^3030211^"
^DD(799.4,18.07,21,1,0)="This field is used to hold information on the type"
^DD(799.4,18.07,21,2,0)="of test which resulted in the last documented"
^DD(799.4,18.07,21,3,0)="negative HIV test (field 18.06). This information"
^DD(799.4,18.07,21,4,0)="is used to generate the CDC HIV/AIDS form."
^DD(799.4,18.07,"DT")="2940803"
^DD(799.4,18.08,0)="PHYS DOCUMNTD DIAGNOSIS?^S^1:YES;0:NO;9:UNKNONW;^18;8^Q"
^DD(799.4,18.08,3)="Indicate whether, if HIV laboratory tests were not documented, the HIV diagnosis was documented by a physician."
^DD(799.4,18.08,20,0)="^.3LA^1^1"
^DD(799.4,18.08,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.08,21,0)="^^4^4^3030211^"
^DD(799.4,18.08,21,1,0)="This field is used to indicate whether a physician"
^DD(799.4,18.08,21,2,0)="has documented the diagnosis of HIV or AIDS in"
^DD(799.4,18.08,21,3,0)="this patient. The information is used to generate"
^DD(799.4,18.08,21,4,0)="the CDC HIV/AIDS form."
^DD(799.4,18.08,"DT")="2940803"
^DD(799.4,18.09,0)="DATE PHYS DOCUMNTD DIAG^D^^18;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,18.09,3)="If HIV laboratory tests were not documented, enter the DATE that the HIV diagnosis was documented by a physician."
^DD(799.4,18.09,20,0)="^.3LA^1^1"
^DD(799.4,18.09,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.09,21,0)="^^5^5^3030211^"
^DD(799.4,18.09,21,1,0)="This field is used for the date on which the "
^DD(799.4,18.09,21,2,0)="physician documented the diagnosis on this patient"
^DD(799.4,18.09,21,3,0)="if this is the case as indicated by field 18.08."
^DD(799.4,18.09,21,4,0)="The information is used to generate the CDC "
^DD(799.4,18.09,21,5,0)="HIV/AIDS form."
^DD(799.4,18.09,"DT")="2940803"
^DD(799.4,18.1,0)="DETECTABLE VIRAL LOAD TEST^S^11:NASBA (Organon);12:RT-PCR (Roche);13:bDNA (Chiron);18:Other;^18;10^Q"
^DD(799.4,18.1,20,0)="^.3LA^1^1"
^DD(799.4,18.1,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.1,"DT")="3030410"
^DD(799.4,18.11,0)="DETECTABLE VIRAL LOAD RESULT^NJ7,0^^18;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(799.4,18.11,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(799.4,18.11,20,0)="^.3LA^1^1"
^DD(799.4,18.11,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.11,"DT")="3030410"
^DD(799.4,18.12,0)="DETECTABLE VIRAL LOAD DATE^D^^18;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,18.12,20,0)="^.3LA^1^1"
^DD(799.4,18.12,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.12,"DT")="3030410"
^DD(799.4,18.13,0)="POSITIVE HIV DETECTION TEST^S^1:CULTURE;2:ANTIGEN;3:PCR, DNA OR RNA PROBE;^18;13^Q"
^DD(799.4,18.13,20,0)="^.3LA^1^1"
^DD(799.4,18.13,20,1,0)="CDC FORM (VI)"
^DD(799.4,18.13,"DT")="3030416"
^DD(799.4,20.01,0)="CD4+ COUNT FOR CDC^NJ5,0^^20;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(799.4,20.01,3)="Enter the actual count, expressed as number of cells per microliter, of T-helper (CD4+) lymphocytes."
^DD(799.4,20.01,20,0)="^.3LA^1^1"
^DD(799.4,20.01,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.01,21,0)="^^2^2^3030211^"
^DD(799.4,20.01,21,1,0)="This field is used to contain the CD4+ count "
^DD(799.4,20.01,21,2,0)="entered for part VI of the revised CDC form."
^DD(799.4,20.01,"DT")="3030211"
^DD(799.4,20.02,0)="CD4+ COUNT FOR CDC DATE^D^^20;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,20.02,3)="Enter the date (Month and Year) for the FIRST POSITIVE TEST, or the test date."
^DD(799.4,20.02,20,0)="^.3LA^1^1"
^DD(799.4,20.02,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.02,21,0)="^^3^3^3030211^"
^DD(799.4,20.02,21,1,0)="This field is used to contain the date (month and "
^DD(799.4,20.02,21,2,0)="year) when the indicated result in part VI of the"
^DD(799.4,20.02,21,3,0)="revised CDC form was originally determined."
^DD(799.4,20.02,"DT")="3030211"
^DD(799.4,20.03,0)="CD4+ PERCENT FOR CDC^NJ2,0^^20;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(799.4,20.03,3)="Type a Number between 0 and 99, 0 Decimal Digits to indicate the percent of the lymphocyte population which was CD4+ lymphocytes."
^DD(799.4,20.03,20,0)="^.3LA^1^1"
^DD(799.4,20.03,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.03,21,0)="^^4^4^3030211^"
^DD(799.4,20.03,21,1,0)="This field is used to enter the percentage of "
^DD(799.4,20.03,21,2,0)="CD4+ leukocytes present in the leukocyte"
^DD(799.4,20.03,21,3,0)="population.  The value is used for part VI of the "
^DD(799.4,20.03,21,4,0)="revised CDC form."
^DD(799.4,20.03,"DT")="3030211"
^DD(799.4,20.04,0)="CD4+ PERCENT FOR CDC DATE^D^^20;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,20.04,3)="Enter the DATE for the CD4 PERCENTAGE at or near the current diagnostic status."
^DD(799.4,20.04,20,0)="^.3LA^1^1"
^DD(799.4,20.04,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.04,21,0)="^^4^4^3030211^"
^DD(799.4,20.04,21,1,0)="This field is used to store the date on which the "
^DD(799.4,20.04,21,2,0)="percentage CD4 value was determined at or closest"
^DD(799.4,20.04,21,3,0)="to the current diagnosis.  This information is"
^DD(799.4,20.04,21,4,0)="used to generate the CDC HIV/AIDS form."
^DD(799.4,20.04,"DT")="3030211"
^DD(799.4,20.05,0)="CD4 COUNT FIRST <200^NJ3,0^^20;5^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(799.4,20.05,3)="Enter the first CD4 COUNT which was below 200.  This should be a number between 0 and 199"
^DD(799.4,20.05,20,0)="^.3LA^1^1"
^DD(799.4,20.05,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.05,21,0)="^^4^4^3060203^"
^DD(799.4,20.05,21,1,0)="This field is used to contain the number count for"
^DD(799.4,20.05,21,2,0)="the first CD4 count which was below the value of"
^DD(799.4,20.05,21,3,0)="200. This information is used to generate the CDC"
^DD(799.4,20.05,21,4,0)="HIV/AIDS form."
^DD(799.4,20.05,"DT")="2941026"
^DD(799.4,20.06,0)="CD4 COUNT FIRST <200 DATE^D^^20;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,20.06,3)="Enter the date for the CD4 count which first gave a value of less than 200."
^DD(799.4,20.06,20,0)="^.3LA^1^1"
^DD(799.4,20.06,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.06,21,0)="^^4^4^3030211^"
^DD(799.4,20.06,21,1,0)="This field is used to hold the date on which the "
^DD(799.4,20.06,21,2,0)="CD4 count was first below the value of 200. This"
^DD(799.4,20.06,21,3,0)="information is used to generate the CDC HIV/AIDS"
^DD(799.4,20.06,21,4,0)="form."
^DD(799.4,20.06,"DT")="2941026"
^DD(799.4,20.07,0)="CD4 PERCENT FIRST <14%^NJ4,1^^20;7^K:+X'=X!(X>13)!(X<0)!(X?.E1"".""2N.N) X"
^DD(799.4,20.07,3)="Enter the CD4 PERCENTAGE which first gave a value of less than 14 %."
^DD(799.4,20.07,20,0)="^.3LA^1^1"
^DD(799.4,20.07,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.07,21,0)="^^4^4^3030211^"
^DD(799.4,20.07,21,1,0)="This field is used to hold the CD4 percentage "
^DD(799.4,20.07,21,2,0)="value which was obtained when the percentage was"
^DD(799.4,20.07,21,3,0)="first below 14%. This information is used to"
^DD(799.4,20.07,21,4,0)="generate the CDC HIV/AIDS form."
^DD(799.4,20.07,"DT")="2941026"
^DD(799.4,20.08,0)="CD4 PERCENT FIRST <14% DATE^D^^20;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,20.08,.1)="Date of First CD4 Percentage value of less than 14%"
^DD(799.4,20.08,3)="Enter the date of the first CD4 PERCENTAGE which resulted in a value of less than 14%."
^DD(799.4,20.08,20,0)="^.3LA^1^1"
^DD(799.4,20.08,20,1,0)="CDC FORM (VI)"
^DD(799.4,20.08,21,0)="^^4^4^3030211^"
^DD(799.4,20.08,21,1,0)="This field is used to hold the date on which the "
^DD(799.4,20.08,21,2,0)="percentage CD4 value was first observed to be"
^DD(799.4,20.08,21,3,0)="below 14%. This information is used to generate"
^DD(799.4,20.08,21,4,0)="the CDC HIV/AIDS form."
^DD(799.4,20.08,"DT")="2941026"
^DD(799.4,22.01,0)="PATIENT BEEN INFORMED OF HIV^S^1:YES;0:NO;9:UNKNOWN;^22;1^Q"
^DD(799.4,22.01,.1)="Has the Patient been informed of HIV Infection?"
^DD(799.4,22.01,3)="Indicate whether the patient has been informed of the diagnosis of HIV infection."
^DD(799.4,22.01,20,0)="^.3LA^1^1"
^DD(799.4,22.01,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.01,21,0)="^^4^4^3030211^"
^DD(799.4,22.01,21,1,0)="This field is used to indicate whether the patient"
^DD(799.4,22.01,21,2,0)="has been informed of the diagnosis of HIV"
^DD(799.4,22.01,21,3,0)="infection. The field is used to supply data for"
^DD(799.4,22.01,21,4,0)="the CDC HIV/AIDS form."
^DD(799.4,22.01,"DT")="2940628"
^DD(799.4,22.02,0)="PARTNERS NOTIFIED BY^S^1:Health Dept.;2:Physician/Provider;3:Patient;9:Unknown;^22;2^Q"
^DD(799.4,22.02,.1)="Patient's sexual Partners will be notified by"
^DD(799.4,22.02,3)="Indicate the entity with responsibility for informing the patient's sexual partners of the patient's HIV infection."
^DD(799.4,22.02,20,0)="^.3LA^1^1"
^DD(799.4,22.02,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.02,21,0)="^^5^5^3060203^"
^DD(799.4,22.02,21,1,0)="This field is used to indicate the entity with "
^DD(799.4,22.02,21,2,0)="responsibility for informing the patient's sexual"
^DD(799.4,22.02,21,3,0)="partners of the patient's HIV infection. The data"
^DD(799.4,22.02,21,4,0)="in this field will be used in the CDC HIV/AIDS "
^DD(799.4,22.02,21,5,0)="form."
^DD(799.4,22.02,"DT")="3060203"
^DD(799.4,22.03,0)="HIV RELATED MED SERVICES^S^1:YES;0:NO;9:UNKNOWN;^22;3^Q"
^DD(799.4,22.03,3)="Indicate if this patient is receiving or has been referred for HIV-related medical services."
^DD(799.4,22.03,20,0)="^.3LA^1^1"
^DD(799.4,22.03,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.03,21,0)="^^5^5^3060203^"
^DD(799.4,22.03,21,1,0)="This field is used to hold the response related "
^DD(799.4,22.03,21,2,0)="to whether the patient is receiving or has been"
^DD(799.4,22.03,21,3,0)="referred to receive HIV-related medical services."
^DD(799.4,22.03,21,4,0)="This information is used in preparing the CDC "
^DD(799.4,22.03,21,5,0)="HIV/AIDS form."
^DD(799.4,22.03,"DT")="2950710"
^DD(799.4,22.04,0)="RCVD ANTI-RETROVIRAL THERAPY^S^1:YES;0:NO;9:UNKNOWN;^22;4^Q"
^DD(799.4,22.04,.1)="RECIEVING OR RECIEVED ANTI-RETROVIRAL THERAPY"
^DD(799.4,22.04,3)="Indicate whether the patient has received or is receiving anti-retroviral therapy."
^DD(799.4,22.04,20,0)="^.3LA^1^1"
^DD(799.4,22.04,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.04,21,0)="^^4^4^3030211^"
^DD(799.4,22.04,21,1,0)="The response should indicate whether the patient "
^DD(799.4,22.04,21,2,0)="has received or is receiving anti-retroviral"
^DD(799.4,22.04,21,3,0)="therapy. The data is used in generating the CDC"
^DD(799.4,22.04,21,4,0)="HIV/AIDS form."
^DD(799.4,22.04,"DT")="2940628"
^DD(799.4,22.05,0)="RECEIVED PCP PROPHYLAXIS^S^1:YES;0:NO;9:UNKNOWN;^22;5^Q"
^DD(799.4,22.05,.1)="Received or receiving PCP Prophylaxis"
^DD(799.4,22.05,3)="Indicate whether the patient has received or is receiving PCP prophylaxis."
^DD(799.4,22.05,20,0)="^.3LA^1^1"
^DD(799.4,22.05,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.05,21,0)="^^3^3^3030211^"
^DD(799.4,22.05,21,1,0)="The response should indicate whether the patient "
^DD(799.4,22.05,21,2,0)="has received or is receiving PCP prophylaxis. The"
^DD(799.4,22.05,21,3,0)="data is used in generating the CDC HIV/AIDS form."
^DD(799.4,22.05,"DT")="2940628"
^DD(799.4,22.06,0)="ENROLLED AT CLINCAL TRIAL^S^1:NIH SPONSORED;2:OTHER;3:NONE;9:UNKNOWN;^22;6^Q"
^DD(799.4,22.06,3)="Indicate whether the patient is enrolled in a clinical trial, and which category of clinical trial."
^DD(799.4,22.06,20,0)="^.3LA^1^1"
^DD(799.4,22.06,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.06,21,0)="^^4^4^3060203^"
^DD(799.4,22.06,21,1,0)="This field is used to indicate whether the patient"
^DD(799.4,22.06,21,2,0)="is enrolled in a clinical trial, and which"
^DD(799.4,22.06,21,3,0)="category of clinical trial. The data in this field"
^DD(799.4,22.06,21,4,0)="is used in generating the CDC HIV/AIDS form."
^DD(799.4,22.06,"DT")="2940628"
^DD(799.4,22.07,0)="ENROLLED AT CLINIC^S^1:HRSA SPONSORED;2:OTHER;3:NONE;9:UNKNOWN;^22;7^Q"
^DD(799.4,22.07,3)="Indicate whether the patient is enrolled in a clinic, and which category of clinic."
^DD(799.4,22.07,20,0)="^.3LA^1^1"
^DD(799.4,22.07,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.07,21,0)="^^4^4^3060203^"
^DD(799.4,22.07,21,1,0)="This field is used to indicate whether the patient"
^DD(799.4,22.07,21,2,0)="is enrolled in a clinic, and which category of"
^DD(799.4,22.07,21,3,0)="clinic. The data in this field is used in"
^DD(799.4,22.07,21,4,0)="generating the CDC HIV/AIDS form."
^DD(799.4,22.07,"DT")="2940628"
^DD(799.4,22.08,0)="PRIMARY REIMBURSER FOR MED RX^S^1:MEDICAID;2:PRIMARY INS/HMO;3:NO COVERAGE;4:OTHER PUBLIC FUNDS;7:CLINICAL TRIAL/GOVMNT PROGRAM;9:UNKNOWN;^22;8^Q"
^DD(799.4,22.08,.1)="Medical treatment PRIMARILY reimbursed by"
^DD(799.4,22.08,3)="Indicate the PRIMARY reimburser for this patient's medical treatment."
^DD(799.4,22.08,20,0)="^.3LA^1^1"
^DD(799.4,22.08,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.08,21,0)="^^4^4^3030211^"
^DD(799.4,22.08,21,1,0)="This field is used to indicate who was the PRIMARY"
^DD(799.4,22.08,21,2,0)="reimburser for this patient's medical treatment."
^DD(799.4,22.08,21,3,0)="The entry is used in the generation of the CDC"
^DD(799.4,22.08,21,4,0)="HIV/AIDS form."
^DD(799.4,22.08,"DT")="2940628"
^DD(799.4,22.09,0)="SUBSTANCE ABUSE TREATMENT^S^1:YES;0:NO;8:N/A;9:UNKNOWN;^22;9^Q"
^DD(799.4,22.09,3)="Indicate if this patient is receiving or has been referred for substance abuse treatment services."
^DD(799.4,22.09,20,0)="^.3LA^1^1"
^DD(799.4,22.09,20,1,0)="CDC FORM (IX)"
^DD(799.4,22.09,21,0)="^.001^5^5^3060519^^"
^DD(799.4,22.09,21,1,0)="This field is used to hold the response related to"
^DD(799.4,22.09,21,2,0)="whether the patient is receiving or has been"
^DD(799.4,22.09,21,3,0)="referred to receive substance abuse tratment "
^DD(799.4,22.09,21,4,0)="services. This information is used in preparing"
^DD(799.4,22.09,21,5,0)="the CDC HIV/AIDS form."
^DD(799.4,22.09,"DT")="3060519"
^DD(799.4,23.01,0)="GYNECOLOGY OR OBSTETRIC CARE^S^1:YES;0:NO;9:UNKNOWN;^23;1^Q"
^DD(799.4,23.01,.1)="Patient receiving obstetric or gynecological care"
^DD(799.4,23.01,3)="For FEMALE patients only - Is the patient receiving obstetric or gynecological care?"
^DD(799.4,23.01,20,0)="^.3LA^1^1"
^DD(799.4,23.01,20,1,0)="CDC FORM (IX)"
^DD(799.4,23.01,21,0)="^^3^3^3060203^"
^DD(799.4,23.01,21,1,0)="This field is applicable to female patients only."
^DD(799.4,23.01,21,2,0)="The field is used to indicate whether the patient"
^DD(799.4,23.01,21,3,0)="is receiving obstetric or gynecological care."
^DD(799.4,23.01,"DT")="3030211"
^DD(799.4,23.02,0)="CURRENTLY PREGNANT^S^1:YES;0:NO;9:UNKNOWN;^23;2^Q"
^DD(799.4,23.02,3)="For FEMALE patients only - Is the patient currently pregnant?"
^DD(799.4,23.02,20,0)="^.3LA^1^1"
^DD(799.4,23.02,20,1,0)="CDC FORM (IX)"
^DD(799.4,23.02,21,0)="^.001^4^4^3060203^^"
^DD(799.4,23.02,21,1,0)="This field is applicable to female patients only. "
^DD(799.4,23.02,21,2,0)="The field is used to indicate whether the female"
^DD(799.4,23.02,21,3,0)="patient is pregnant at the time the CDC HIV/AIDS"
^DD(799.4,23.02,21,4,0)="form is generated."
^DD(799.4,23.02,"DT")="3030211"
^DD(799.4,23.03,0)="DELIVERED LIVE BORN INFANT^S^1:YES;0:NO;3:UNKNOWN;^23;3^Q"
^DD(799.4,23.03,3)="For FEMALE patients only - Has the female patient ever delivered a live born infant?"
^DD(799.4,23.03,20,0)="^.3LA^1^1"
^DD(799.4,23.03,20,1,0)="CDC FORM (IX)"
^DD(799.4,23.03,21,0)="^^5^5^3060203^"
^DD(799.4,23.03,21,1,0)="This field is applicable to female patients only."
^DD(799.4,23.03,21,2,0)="The field is used to indicate whether the female"
^DD(799.4,23.03,21,3,0)="patient ever delivered a live born infant. The"
^DD(799.4,23.03,21,4,0)="response is used to generate the CDC HIV/AIDS"
^DD(799.4,23.03,21,5,0)="form."
^DD(799.4,23.03,"DT")="3030211"
^DD(799.4,23.04,0)="CHILD'S DATE OF BIRTH^D^^23;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.4,23.04,3)="For FEMALE patients only - Enter the date of birth of the last child born to the patient if the birthdate is past 1977."
^DD(799.4,23.04,20,0)="^.3LA^1^1"
^DD(799.4,23.04,20,1,0)="CDC FORM (IX)"
^DD(799.4,23.04,21,0)="^^4^4^3060203^"
^DD(799.4,23.04,21,1,0)="This field is used to indicate the date of birth "
^DD(799.4,23.04,21,2,0)="of a child to a female patient who has been "
^DD(799.4,23.04,21,3,0)="diagnosed with HIV or AIDS. This information is"
^DD(799.4,23.04,21,4,0)="used to generate the CDC HIV/AIDS form."
^DD(799.4,23.04,"DT")="2941026"
^DD(799.4,23.05,0)="CHILD'S HOSPITAL OF BIRTH^F^^23;5^K:$L(X)>23!($L(X)<2) X"
^DD(799.4,23.05,3)="For FEMALE patients only - Enter the name of the hospital (2 to 23 characters) in which the patient's last child was born, if applicable, and the date of birth is past 1977."
^DD(799.4,23.05,20,0)="^.3LA^1^1"
^DD(799.4,23.05,20,1,0)="CDC FORM (IX)"
^DD(799.4,23.05,21,0)="^^5^5^3060203^"
^DD(799.4,23.05,21,1,0)="This field is used to indicate the birth hospital "
^DD(799.4,23.05,21,2,0)="for the most recent child of a female patient who"
^DD(799.4,23.05,21,3,0)="has been diagnosed with HIV or AIDS. This"
^DD(799.4,23.05,21,4,0)="information is used to generate the CDC HIV/AIDS"
^DD(799.4,23.05,21,5,0)="form."
^DD(799.4,23.05,"DT")="2941026"
^DD(799.4,23.06,0)="CHILD'S HOSPITAL - CITY^F^^23;6^K:$L(X)>23!($L(X)<2) X"
^DD(799.4,23.06,3)="Enter the name of the city (2-23 characters) in which the CHILD'S HOSPITAL of birth is located."
^DD(799.4,23.06,20,0)="^.3LA^1^1"
^DD(799.4,23.06,20,1,0)="CDC FORM (IX)"
^DD(799.4,23.06,21,0)="^^4^4^3060203^"
^DD(799.4,23.06,21,1,0)="This field is used to hold the city of the birth "
^DD(799.4,23.06,21,2,0)="hospital of the most recent child of a female"
^DD(799.4,23.06,21,3,0)="diagnosed with HIV or AIDS. This information is"
^DD(799.4,23.06,21,4,0)="used to generate the CDC HIV/AIDS form."
^DD(799.4,23.06,"DT")="2941026"
^DD(799.4,23.07,0)="CHILD'S HOSPITAL - STATE^F^^23;7^K:$L(X)>2!($L(X)<2)!'(X?2U) X"
^DD(799.4,23.07,3)="Enter the 2 letter abbreviation for the state in which the CHILD'S HOSPITAL OF BIRTH is located."
^DD(799.4,23.07,20,0)="^.3LA^1^1"
^DD(799.4,23.07,20,1,0)="CDC FORM (IX)"
^DD(799.4,23.07,21,0)="^^4^4^3060203^"
^DD(799.4,23.07,21,1,0)="This field is used to hold the state of the birth "
^DD(799.4,23.07,21,2,0)="hospital of the most recent child of a female"
^DD(799.4,23.07,21,3,0)="diagnosed with HIV or AIDS. This information is"
^DD(799.4,23.07,21,4,0)="used to generate the CDC HIV/AIDS form."
^DD(799.4,23.07,"DT")="2941026"
^DD(799.4,25,0)="CDC COMMENTS^799.425^^25;0"
^DD(799.4,25,20,0)="^.3LA^1^1"
^DD(799.4,25,20,1,0)="CDC FORM (X)"
^DD(799.4,"B","* HIV-2 SERUM EIA",16.11)=""
^DD(799.4,"B","* HIV-2 SERUM EIA DATE",16.12)=""
^DD(799.4,"B","* HIV-2 WESTERN BLOT",16.13)=""
^DD(799.4,"B","* HIV-2 WESTERN BLOT DATE",16.14)=""
^DD(799.4,"B","AGE AT AIDS DIAGNOSIS",9.04)=""
^DD(799.4,"B","AGE AT HIV DIAGNOSIS",9.03)=""
^DD(799.4,"B","AIDS DX - CITY",12.02)=""
^DD(799.4,"B","AIDS DX - COUNTRY",12.04)=""
^DD(799.4,"B","AIDS DX - FACILITY SETTING",12.05)=""
^DD(799.4,"B","AIDS DX - FACILITY TYPE",12.06)=""
^DD(799.4,"B","AIDS DX - HOSPITAL",12.01)=""
^DD(799.4,"B","AIDS DX - OTHER FACILITY TYPE",12.07)=""
^DD(799.4,"B","AIDS DX - STATE",12.03)=""
^DD(799.4,"B","AIDS INDICATOR DISEASE",10)=""
^DD(799.4,"B","Age at AIDS Diagnosis",9.04)="1"
^DD(799.4,"B","BP1.  Other Hemophilia Desc.",14.06)="1"
^DD(799.4,"B","BP1.  Received Clotting Factor",14.04)="1"
^DD(799.4,"B","BP1.  Type of Hemophilia",14.05)="1"
^DD(799.4,"B","CD4 COUNT FIRST <200",20.05)=""
^DD(799.4,"B","CD4 COUNT FIRST <200 DATE",20.06)=""
^DD(799.4,"B","CD4 PERCENT FIRST <14%",20.07)=""
^DD(799.4,"B","CD4 PERCENT FIRST <14% DATE",20.08)=""
^DD(799.4,"B","CD4+ COUNT FOR CDC",20.01)=""
^DD(799.4,"B","CD4+ COUNT FOR CDC DATE",20.02)=""
^DD(799.4,"B","CD4+ PERCENT FOR CDC",20.03)=""
^DD(799.4,"B","CD4+ PERCENT FOR CDC DATE",20.04)=""
^DD(799.4,"B","CDC COMMENTS",25)=""
^DD(799.4,"B","CDC FORM COMPLETED BY",9.05)=""
^DD(799.4,"B","CDC Form Date",9.01)="1"
^DD(799.4,"B","CHILD'S DATE OF BIRTH",23.04)=""
^DD(799.4,"B","CHILD'S HOSPITAL - CITY",23.06)=""
^DD(799.4,"B","CHILD'S HOSPITAL - STATE",23.07)=""
^DD(799.4,"B","CHILD'S HOSPITAL OF BIRTH",23.05)=""
^DD(799.4,"B","CLINICAL AIDS",.02)=""
^DD(799.4,"B","CLINICAL AIDS DATE",.03)=""
^DD(799.4,"B","COUNTRY OF BIRTH",9.07)=""
^DD(799.4,"B","CURRENTLY PREGNANT",23.02)=""
^DD(799.4,"B","DATE ASYMPTOMATIC",11.02)=""
^DD(799.4,"B","DATE CDC FORM COMPLETED",9.01)=""
^DD(799.4,"B","DATE OF FIRST TRANSFUSION",14.14)=""
^DD(799.4,"B","DATE OF LAST TRANSFUSION",14.15)=""
^DD(799.4,"B","DATE OTHER POS DETECTION TEST",18.05)=""
^DD(799.4,"B","DATE PHYS DOCUMNTD DIAG",18.09)=""
^DD(799.4,"B","DATE SYMPTOMATIC",11.03)=""
^DD(799.4,"B","DELIVERED LIVE BORN INFANT",23.03)=""
^DD(799.4,"B","DEPENDENCY OR POSSESSION NAME",9.08)=""
^DD(799.4,"B","DETECTABLE VIRAL LOAD DATE",18.12)=""
^DD(799.4,"B","DETECTABLE VIRAL LOAD RESULT",18.11)=""
^DD(799.4,"B","DETECTABLE VIRAL LOAD TEST",18.1)=""
^DD(799.4,"B","Date of First Transfusion",14.14)="1"
^DD(799.4,"B","Date of Last Transfusion",14.15)="1"
^DD(799.4,"B","ENROLLED AT CLINCAL TRIAL",22.06)=""
^DD(799.4,"B","ENROLLED AT CLINIC",22.07)=""
^DD(799.4,"B","GYNECOLOGY OR OBSTETRIC CARE",23.01)=""
^DD(799.4,"B","HIV ANTIGEN DETECTION TEST",18.02)=""
^DD(799.4,"B","HIV CULTURE DETECTION TEST",18.01)=""
^DD(799.4,"B","HIV PCR, DNA, OR RNA PROBE",18.03)=""
^DD(799.4,"B","HIV RELATED MED SERVICES",22.03)=""
^DD(799.4,"B","HIV-1 EIA",16.01)=""
^DD(799.4,"B","HIV-1 EIA DATE",16.02)=""
^DD(799.4,"B","HIV-1 WESTERN BLOT/IFA",16.05)=""
^DD(799.4,"B","HIV-1 WESTERN BLOT/IFA DATE",16.06)=""
^DD(799.4,"B","HIV-1/HIV-2 EIA",16.03)=""
^DD(799.4,"B","HIV-1/HIV-2 EIA DATE",16.04)=""
^DD(799.4,"B","Health Care/Lab Worker",14.17)="1"
^DD(799.4,"B","Hospital Where AIDS Diagnosed",12.01)="1"
^DD(799.4,"B","IMMUNODEF THAT DISQUALIFIES",11.04)=""
^DD(799.4,"B","IV DRUGS AFTER 77 AND PRE HIV",14.03)=""
^DD(799.4,"B","IV Drugs After 1977/Pre HIV",14.03)="1"
^DD(799.4,"B","Institution",.04)="1"
^DD(799.4,"B","LAST DOCUMNTD NEG HIV TEST",18.06)=""
^DD(799.4,"B","OCCUPATION",14.18)=""
^DD(799.4,"B","ONSET OF ILLNESS/AIDS- CITY",9.1)=""
^DD(799.4,"B","ONSET OF ILLNESS/AIDS- COUNTRY",9.13)=""
^DD(799.4,"B","ONSET OF ILLNESS/AIDS- COUNTY",9.11)=""
^DD(799.4,"B","ONSET OF ILLNESS/AIDS- STATE",9.12)=""
^DD(799.4,"B","ONSET OF ILLNESS/AIDS- ZIP",9.14)=""
^DD(799.4,"B","OTHER COUNTRY DESCRIPTION",9.09)=""
^DD(799.4,"B","OTHER HEMOPHILIA DESCRIPTION",14.06)=""
^DD(799.4,"B","OTHER HIV ANTIBODY TEST",16.07)=""
^DD(799.4,"B","OTHER HIV ANTIBODY TEST DATE",16.08)=""
^DD(799.4,"B","OTHER HIV ANTIBODY TEST DESC",16.09)=""
^DD(799.4,"B","Occupation",14.18)="1"
^DD(799.4,"B","Other Antibody Test",16.07)="1"
^DD(799.4,"B","Other Country Name",9.09)="1"
^DD(799.4,"B","PARTNERS NOTIFIED BY",22.02)=""
^DD(799.4,"B","PATIENT BEEN INFORMED OF HIV",22.01)=""
^DD(799.4,"B","PATIENT STATUS",9.9)=""
^DD(799.4,"B","PHYS DOCUMNTD DIAGNOSIS?",18.08)=""
^DD(799.4,"B","POSITIVE HIV DETECTION TEST",18.13)=""
^DD(799.4,"B","PRIMARY REIMBURSER FOR MED RX",22.08)=""
^DD(799.4,"B","RCVD ANTI-RETROVIRAL THERAPY",22.04)=""
^DD(799.4,"B","REC'D CLOTTING FACTORS",14.04)=""
^DD(799.4,"B","RECEIVED PCP PROPHYLAXIS",22.05)=""
^DD(799.4,"B","RECORD REVIEWED",11.01)=""
^DD(799.4,"B","REGISTRY RECORD",.01)=""
^DD(799.4,"B","RVCT CASE NO.",11.05)=""
^DD(799.4,"B","SEX RELATIONS W/FEMALE PARTNER",14.02)=""
^DD(799.4,"B","SEX RELATIONS W/MALE PARTNER",14.01)=""
^DD(799.4,"B","SR W AIDS/HIV INFECTION",14.12)=""
^DD(799.4,"B","SR W HEMOPHILIA/COAG DISORDER",14.09)=""
^DD(799.4,"B","SR W TRANS RECIPIENT WITH AIDS",14.1)=""
^DD(799.4,"B","SR WITH BISEXUAL MAN",14.08)=""
^DD(799.4,"B","SR WITH IV DRUG USER",14.07)=""
^DD(799.4,"B","STATE/TERRITORY OF DEATH",9.06)=""
^DD(799.4,"B","STATION",.04)=""
^DD(799.4,"B","STATUS AT REPORT",9.02)=""
^DD(799.4,"B","SUBSTANCE ABUSE TREATMENT",22.09)=""
^DD(799.4,"B","Sex With Bisexual Male",14.08)="1"
^DD(799.4,"B","Sex With Female Partner",14.02)="1"
^DD(799.4,"B","Sex With IV Drug Abuser",14.07)="1"
^DD(799.4,"B","Sex With Male Partner",14.01)="1"
^DD(799.4,"B","TRANS AFTER 77 AND BEFORE HIV",14.13)=""
^DD(799.4,"B","TRANSPLANT OR ARTIF INSEMIN",14.16)=""
^DD(799.4,"B","TRANSPLANT RECIP-DOCUMNTD HIV",14.11)=""
^DD(799.4,"B","TYPE FOR LAST NEG TEST",18.07)=""
^DD(799.4,"B","TYPE OF HEMOPHILIA",14.05)=""
^DD(799.4,"B","TYPE OF OTHER POSITIVE TEST",18.04)=""
^DD(799.4,"B","Trans After 1977/Pre HIV",14.13)="1"
^DD(799.4,"B","WESTERN BLOT",16.05)="1"
^DD(799.4,"B","WORK IN HEALTH CARE OR LAB",14.17)=""
^DD(799.4,"GL",0,1,.01)=""
^DD(799.4,"GL",0,2,.02)=""
^DD(799.4,"GL",0,3,.03)=""
^DD(799.4,"GL",0,4,.04)=""
^DD(799.4,"GL",9,1,9.01)=""
^DD(799.4,"GL",9,2,9.02)=""
^DD(799.4,"GL",9,3,9.03)=""
^DD(799.4,"GL",9,4,9.04)=""
^DD(799.4,"GL",9,5,9.05)=""
^DD(799.4,"GL",9,6,9.06)=""
^DD(799.4,"GL",9,7,9.07)=""
^DD(799.4,"GL",9,8,9.08)=""
^DD(799.4,"GL",9,9,9.09)=""
^DD(799.4,"GL",9,10,9.1)=""
^DD(799.4,"GL",9,11,9.11)=""
^DD(799.4,"GL",9,12,9.12)=""
^DD(799.4,"GL",9,13,9.13)=""
^DD(799.4,"GL",9,14,9.14)=""
^DD(799.4,"GL",10,0,10)=""
^DD(799.4,"GL",11,1,11.01)=""
^DD(799.4,"GL",11,2,11.02)=""
^DD(799.4,"GL",11,3,11.03)=""
^DD(799.4,"GL",11,4,11.04)=""
^DD(799.4,"GL",11,5,11.05)=""
^DD(799.4,"GL",12,1,12.01)=""
^DD(799.4,"GL",12,2,12.02)=""
^DD(799.4,"GL",12,3,12.03)=""
^DD(799.4,"GL",12,4,12.04)=""
^DD(799.4,"GL",12,5,12.05)=""
^DD(799.4,"GL",12,6,12.06)=""
^DD(799.4,"GL",12,7,12.07)=""
^DD(799.4,"GL",14,1,14.01)=""
^DD(799.4,"GL",14,2,14.02)=""
^DD(799.4,"GL",14,3,14.03)=""
^DD(799.4,"GL",14,4,14.04)=""
^DD(799.4,"GL",14,5,14.05)=""
^DD(799.4,"GL",14,6,14.06)=""
^DD(799.4,"GL",14,7,14.07)=""
^DD(799.4,"GL",14,8,14.08)=""
^DD(799.4,"GL",14,9,14.09)=""
^DD(799.4,"GL",14,10,14.1)=""
^DD(799.4,"GL",14,11,14.11)=""
^DD(799.4,"GL",14,12,14.12)=""
^DD(799.4,"GL",14,13,14.13)=""
^DD(799.4,"GL",14,14,14.14)=""
^DD(799.4,"GL",14,15,14.15)=""
^DD(799.4,"GL",14,16,14.16)=""
^DD(799.4,"GL",14,17,14.17)=""
^DD(799.4,"GL",14,18,14.18)=""
^DD(799.4,"GL",16,1,16.01)=""
^DD(799.4,"GL",16,2,16.02)=""
^DD(799.4,"GL",16,3,16.03)=""
^DD(799.4,"GL",16,4,16.04)=""
^DD(799.4,"GL",16,5,16.05)=""
^DD(799.4,"GL",16,6,16.06)=""
^DD(799.4,"GL",16,7,16.07)=""
^DD(799.4,"GL",16,8,16.08)=""
^DD(799.4,"GL",16,9,16.09)=""
^DD(799.4,"GL",16,11,16.11)=""
^DD(799.4,"GL",16,12,16.12)=""
^DD(799.4,"GL",16,13,16.13)=""
^DD(799.4,"GL",16,14,16.14)=""
^DD(799.4,"GL",18,1,18.01)=""
^DD(799.4,"GL",18,2,18.02)=""
^DD(799.4,"GL",18,3,18.03)=""
^DD(799.4,"GL",18,4,18.04)=""
^DD(799.4,"GL",18,5,18.05)=""
^DD(799.4,"GL",18,6,18.06)=""
^DD(799.4,"GL",18,7,18.07)=""
^DD(799.4,"GL",18,8,18.08)=""
^DD(799.4,"GL",18,9,18.09)=""
^DD(799.4,"GL",18,10,18.1)=""
^DD(799.4,"GL",18,11,18.11)=""
^DD(799.4,"GL",18,12,18.12)=""
^DD(799.4,"GL",18,13,18.13)=""
^DD(799.4,"GL",20,1,20.01)=""
^DD(799.4,"GL",20,2,20.02)=""
^DD(799.4,"GL",20,3,20.03)=""
^DD(799.4,"GL",20,4,20.04)=""
^DD(799.4,"GL",20,5,20.05)=""
^DD(799.4,"GL",20,6,20.06)=""
^DD(799.4,"GL",20,7,20.07)=""
^DD(799.4,"GL",20,8,20.08)=""
^DD(799.4,"GL",22,1,22.01)=""
^DD(799.4,"GL",22,2,22.02)=""
^DD(799.4,"GL",22,3,22.03)=""
^DD(799.4,"GL",22,4,22.04)=""
^DD(799.4,"GL",22,5,22.05)=""
^DD(799.4,"GL",22,6,22.06)=""
^DD(799.4,"GL",22,7,22.07)=""
^DD(799.4,"GL",22,8,22.08)=""
^DD(799.4,"GL",22,9,22.09)=""
^DD(799.4,"GL",23,1,23.01)=""
^DD(799.4,"GL",23,2,23.02)=""
^DD(799.4,"GL",23,3,23.03)=""
^DD(799.4,"GL",23,4,23.04)=""
^DD(799.4,"GL",23,5,23.05)=""
^DD(799.4,"GL",23,6,23.06)=""
^DD(799.4,"GL",23,7,23.07)=""
^DD(799.4,"GL",25,0,25)=""
^DD(799.4,"GR","CDC FORM (III)",9.02,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.03,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.04,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.06,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.07,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.08,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.09,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.1,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.11,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.12,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.13,1)=""
^DD(799.4,"GR","CDC FORM (III)",9.14,1)=""
^DD(799.4,"GR","CDC FORM (IV)",12.01,1)=""
^DD(799.4,"GR","CDC FORM (IV)",12.02,1)=""
^DD(799.4,"GR","CDC FORM (IV)",12.03,1)=""
^DD(799.4,"GR","CDC FORM (IV)",12.04,1)=""
^DD(799.4,"GR","CDC FORM (IV)",12.05,1)=""
^DD(799.4,"GR","CDC FORM (IV)",12.06,1)=""
^DD(799.4,"GR","CDC FORM (IV)",12.07,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.01,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.02,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.03,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.04,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.05,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.06,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.07,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.08,1)=""
^DD(799.4,"GR","CDC FORM (IX)",22.09,1)=""
^DD(799.4,"GR","CDC FORM (IX)",23.01,1)=""
^DD(799.4,"GR","CDC FORM (IX)",23.02,1)=""
^DD(799.4,"GR","CDC FORM (IX)",23.03,1)=""
^DD(799.4,"GR","CDC FORM (IX)",23.04,1)=""
^DD(799.4,"GR","CDC FORM (IX)",23.05,1)=""
^DD(799.4,"GR","CDC FORM (IX)",23.06,1)=""
^DD(799.4,"GR","CDC FORM (IX)",23.07,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.01,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.02,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.03,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.04,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.05,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.06,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.07,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.08,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.09,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.1,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.11,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.12,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.13,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.14,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.15,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.16,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.17,1)=""
^DD(799.4,"GR","CDC FORM (V)",14.18,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.01,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.02,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.03,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.04,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.05,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.06,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.07,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.08,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.09,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.11,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.12,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.13,1)=""
^DD(799.4,"GR","CDC FORM (VI)",16.14,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.01,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.02,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.03,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.04,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.05,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.06,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.07,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.08,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.09,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.1,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.11,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.12,1)=""
^DD(799.4,"GR","CDC FORM (VI)",18.13,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.01,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.02,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.03,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.04,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.05,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.06,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.07,1)=""
^DD(799.4,"GR","CDC FORM (VI)",20.08,1)=""
^DD(799.4,"GR","CDC FORM (VIII)",10,1)=""
^DD(799.4,"GR","CDC FORM (VIII)",11.01,1)=""
^DD(799.4,"GR","CDC FORM (VIII)",11.02,1)=""
^DD(799.4,"GR","CDC FORM (VIII)",11.03,1)=""
^DD(799.4,"GR","CDC FORM (VIII)",11.04,1)=""
^DD(799.4,"GR","CDC FORM (VIII)",11.05,1)=""
^DD(799.4,"GR","CDC FORM (X)",25,1)=""
^DD(799.4,"GR","CDC HEADER",9.01,1)=""
^DD(799.4,"GR","CDC HEADER",9.05,1)=""
^DD(799.4,"IX",.01)=""
^DD(799.4,"RQ",.01)=""
^DD(799.4,"SB",799.41,10)=""
^DD(799.4,"SB",799.425,25)=""
^DD(799.41,0)="AIDS INDICATOR DISEASE SUB-FIELD^^.03^3"
^DD(799.41,0,"DT")="3030207"
^DD(799.41,0,"IX","B",799.41,.01)=""
^DD(799.41,0,"NM","AIDS INDICATOR DISEASE")=""
^DD(799.41,0,"UP")="799.4"
^DD(799.41,.01,0)="AIDS INDICATOR DISEASE^M*P799.49'X^ROR(799.49,^0;1^S DIC(""S"")=""I $P($G(^(0)),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(799.41,.01,1,0)="^.1"
^DD(799.41,.01,1,1,0)="799.41^B"
^DD(799.41,.01,1,1,1)="S ^RORDATA(799.4,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(799.41,.01,1,1,2)="K ^RORDATA(799.4,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(799.41,.01,8.5)=""
^DD(799.41,.01,9)=""
^DD(799.41,.01,12)="Only active indicator diseases can be selected."
^DD(799.41,.01,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,3)"""
^DD(799.41,.01,20,0)="^.3LA^1^1"
^DD(799.41,.01,20,1,0)="CDC FORM (VIII)"
^DD(799.41,.01,21,0)="^.001^2^2^3030507^^^"
^DD(799.41,.01,21,1,0)="The AIDS INDICATOR DISEASE field references the "
^DD(799.41,.01,21,2,0)="AIDS indicator disease."
^DD(799.41,.01,23,0)="^^6^6^3030507^"
^DD(799.41,.01,23,1,0)="Only diseases that have values in the SEQUENTIAL NUMBER"
^DD(799.41,.01,23,2,0)="field can be selected from the ROR AIDS INDICATOR"
^DD(799.41,.01,23,3,0)="DISEASE file."
^DD(799.41,.01,23,4,0)=" "
^DD(799.41,.01,23,5,0)="Internal value of this field is used as the internal "
^DD(799.41,.01,23,6,0)="entry number of the record (the 'DINUM' feature)."
^DD(799.41,.01,"DT")="3030207"
^DD(799.41,.02,0)="INITIAL DIAGNOSIS^*S^1:Definitive;2:Presumptive;^0;2^Q"
^DD(799.41,.02,3)=""
^DD(799.41,.02,8.5)=""
^DD(799.41,.02,9)=""
^DD(799.41,.02,12)="Each indicator disease have its own set of initial diagnoses."
^DD(799.41,.02,12.1)="S DIC(""S"")=""N RORV S RORV=+$G(^RORDATA(799.4,DA(1),10,DA,0)) I RORV>0 S RORV=$P($G(^ROR(799.49,RORV,0)),U,2) I ("""";""""_RORV)[("""";""""_Y_"""":"""")"""
^DD(799.41,.02,20,0)="^.3LA^1^1"
^DD(799.41,.02,20,1,0)="CDC FORM (VIII)"
^DD(799.41,.02,21,0)="^^2^2^3030507^"
^DD(799.41,.02,21,1,0)="The INITIAL DIAGNOSIS field stores a diagnosis for"
^DD(799.41,.02,21,2,0)="the disease. "
^DD(799.41,.02,23,0)="^^5^5^3030507^"
^DD(799.41,.02,23,1,0)="The set of codes is screened according to the value of"
^DD(799.41,.02,23,2,0)="the INITIAL DIAGNOSIS VALUES field (.02) from the"
^DD(799.41,.02,23,3,0)="record of the ROR AIDS INDICATOR DISEASE file"
^DD(799.41,.02,23,4,0)="(#799.49) that is referenced by the AIDS INDICATOR "
^DD(799.41,.02,23,5,0)="DISEASE field (.01) of this multiple."
^DD(799.41,.02,"DT")="3060614"
^DD(799.41,.03,0)="DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(799.41,.03,8.5)=""
^DD(799.41,.03,9)=""
^DD(799.41,.03,20,0)="^.3LA^1^1"
^DD(799.41,.03,20,1,0)="CDC FORM (VIII)"
^DD(799.41,.03,21,0)="^^2^2^3030507^"
^DD(799.41,.03,21,1,0)="The DATE field stores the date when the disease "
^DD(799.41,.03,21,2,0)="was diagnosed."
^DD(799.41,.03,"DT")="3060614"
^DD(799.41,"B","AIDS INDICATOR DISEASE",.01)=""
^DD(799.41,"B","DATE",.03)=""
^DD(799.41,"B","INITIAL DIAGNOSIS",.02)=""
^DD(799.41,"GL",0,1,.01)=""
^DD(799.41,"GL",0,2,.02)=""
^DD(799.41,"GL",0,3,.03)=""
^DD(799.41,"GR","CDC FORM (VIII)",.01,1)=""
^DD(799.41,"GR","CDC FORM (VIII)",.02,1)=""
^DD(799.41,"GR","CDC FORM (VIII)",.03,1)=""
^DD(799.41,"IX",.01)=""
^DD(799.425,0)="CDC COMMENTS SUB-FIELD^^.01^1"
^DD(799.425,0,"DT")="3030211"
^DD(799.425,0,"NM","CDC COMMENTS")=""
^DD(799.425,0,"UP")="799.4"
^DD(799.425,.01,0)="CDC COMMENTS^WL^^0;1^Q"
^DD(799.425,.01,21,0)="^^2^2^3030507^"
^DD(799.425,.01,21,1,0)="The CDC COMMENTS field stores 3 lines of text that"
^DD(799.425,.01,21,2,0)="is printed in the section X of the CDC form."
^DD(799.425,.01,"DT")="3030211"
^DD(799.425,"B","CDC COMMENTS",.01)=""
^DD(799.425,"GL",0,1,.01)=""
^DD(799.49,0)="FIELD^^2^5"
^DD(799.49,0,"DDA")="N"
^DD(799.49,0,"DT")="3030507"
^DD(799.49,0,"ID","WRITE")="D EN^DDIOL($J(Y,3),"""",""?40"")"
^DD(799.49,0,"IX","AS",799.49,.03)=""
^DD(799.49,0,"IX","B",799.49,.01)=""
^DD(799.49,0,"NM","ROR AIDS INDICATOR DISEASE")=""
^DD(799.49,0,"PT",799.41,.01)=""
^DD(799.49,0,"VR")="1.5"
^DD(799.49,0,"VRPK")="ROR"
^DD(799.49,.01,0)="DISEASE NAME^RFX^^0;1^Q:$$VAEDT^RORDD(799.49,,-1)  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(799.49,.01,1,0)="^.1"
^DD(799.49,.01,1,1,0)="799.49^B"
^DD(799.49,.01,1,1,1)="S ^ROR(799.49,""B"",$E(X,1,30),DA)="""""
^DD(799.49,.01,1,1,2)="K ^ROR(799.49,""B"",$E(X,1,30),DA)"
^DD(799.49,.01,1,1,3)="Do not delete!"
^DD(799.49,.01,3)="Answer must be 3-30 characters in length."
^DD(799.49,.01,8.5)="@"
^DD(799.49,.01,9)="@"
^DD(799.49,.01,21,0)="^^2^2^3030506^"
^DD(799.49,.01,21,1,0)="The DISEASE NAME field stores a short name of the"
^DD(799.49,.01,21,2,0)="disease. "
^DD(799.49,.01,23,0)="^^4^4^3030506^"
^DD(799.49,.01,23,1,0)="Usually, the name is the same as that of the"
^DD(799.49,.01,23,2,0)="corresponding field of the IMMUNOLOGY CASE STUDY file"
^DD(799.49,.01,23,3,0)="(#158) that was used by the Immunology Case Registry"
^DD(799.49,.01,23,4,0)="v2.1 software."
^DD(799.49,.01,"DEL",1,0)="I $$VADEL^RORDD(799.49,,-1)"
^DD(799.49,.01,"DT")="3030206"
^DD(799.49,.02,0)="INITIAL DIAGNOSIS VALUES^RFX^^0;2^Q:$$VAEDT^RORDD(799.49,,-1)  K:$L(X)>30!($L(X)<1) X"
^DD(799.49,.02,3)="Answer must be 1-30 characters in length."
^DD(799.49,.02,8.5)="@"
^DD(799.49,.02,9)="@"
^DD(799.49,.02,21,0)="^^13^13^3060203^"
^DD(799.49,.02,21,1,0)="The INITIAL DIAGNOSIS VALUES field contains a list"
^DD(799.49,.02,21,2,0)="of valid diagnoses for this particular disease (as"
^DD(799.49,.02,21,3,0)="they are defined in the CDC form), separated by"
^DD(799.49,.02,21,4,0)="semicolons. Each initial diagnosis should consist"
^DD(799.49,.02,21,5,0)="of internal and external values separated by"
^DD(799.49,.02,21,6,0)="colon."
^DD(799.49,.02,21,7,0)=" "
^DD(799.49,.02,21,8,0)="For example: '1:Definitive;2:Presumptive'."
^DD(799.49,.02,21,9,0)=" "
^DD(799.49,.02,21,10,0)="The full set of possible diagnoses should be also"
^DD(799.49,.02,21,11,0)="defined for the INITIAL DIAGNOSIS field of the"
^DD(799.49,.02,21,12,0)="AIDS INDICATOR DISEASE multiple of the ROR ICR"
^DD(799.49,.02,21,13,0)="STUDY file."
^DD(799.49,.02,23,0)="^.001^4^4^3060203^^^^"
^DD(799.49,.02,23,1,0)="The value of this field is used by the input transform "
^DD(799.49,.02,23,2,0)="of the INITIAL DIAGNOSIS field (.02) of the AIDS "
^DD(799.49,.02,23,3,0)="INDICATOR DISEASE multiple (10) of the ROR ICR STUDY "
^DD(799.49,.02,23,4,0)="file (#799.4)."
^DD(799.49,.02,"DT")="3030206"
^DD(799.49,.03,0)="SEQUENTIAL NUMBER^NJ2,0X^^0;3^Q:$$VAEDT^RORDD(799.49,,-1)  K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.49,.03,1,0)="^.1"
^DD(799.49,.03,1,1,0)="799.49^AS"
^DD(799.49,.03,1,1,1)="S ^ROR(799.49,""AS"",$E(X,1,30),DA)="""""
^DD(799.49,.03,1,1,2)="K ^ROR(799.49,""AS"",$E(X,1,30),DA)"
^DD(799.49,.03,1,1,3)="Do not delete!"
^DD(799.49,.03,1,1,"DT")="3030207"
^DD(799.49,.03,3)="Type a Number between 1 and 99, 0 Decimal Digits."
^DD(799.49,.03,8.5)="@"
^DD(799.49,.03,9)="@"
^DD(799.49,.03,21,0)="^^7^7^3060203^"
^DD(799.49,.03,21,1,0)="The SEQUENTIAL NUMBER field stores a sequential "
^DD(799.49,.03,21,2,0)="number of the indicator disease in part VIII of"
^DD(799.49,.03,21,3,0)="the CDC form (the first column from top to bottom"
^DD(799.49,.03,21,4,0)="and then the second column in the same way)."
^DD(799.49,.03,21,5,0)=" "
^DD(799.49,.03,21,6,0)="If this field has no value then the record is "
^DD(799.49,.03,21,7,0)="considered inactive."
^DD(799.49,.03,"DEL",1,0)="I $$VADEL^RORDD(799.49,,-1)"
^DD(799.49,.03,"DT")="3030207"
^DD(799.49,1.01,0)="DESCRIPTION^RFX^^1;1^Q:$$VAEDT^RORDD(799.49,,-1)  K:$L(X)>100!($L(X)<1) X"
^DD(799.49,1.01,3)="Answer must be 1-100 characters in length."
^DD(799.49,1.01,8.5)="@"
^DD(799.49,1.01,9)="@"
^DD(799.49,1.01,21,0)="^^3^3^3060203^"
^DD(799.49,1.01,21,1,0)="The DESCRIPTION field stores the text associated"
^DD(799.49,1.01,21,2,0)="with the AIDS indicator disease in part VIII of"
^DD(799.49,1.01,21,3,0)="the CDC form."
^DD(799.49,1.01,23,0)="^.001^1^1^3060203^^^^"
^DD(799.49,1.01,23,1,0)="This field is not currently used by the software."
^DD(799.49,1.01,"DT")="3030507"
^DD(799.49,2,0)="METHOD DESCRIPTION^799.492^^2;0"
^DD(799.49,2,"DT")="3030507"
^DD(799.49,"B","DESCRIPTION",1.01)=""
^DD(799.49,"B","DISEASE NAME",.01)=""
^DD(799.49,"B","INITIAL DIAGNOSIS VALUES",.02)=""
^DD(799.49,"B","METHOD DESCRIPTION",2)=""
^DD(799.49,"B","SEQUENTIAL NUMBER",.03)=""
^DD(799.49,"GL",0,1,.01)=""
^DD(799.49,"GL",0,2,.02)=""
^DD(799.49,"GL",0,3,.03)=""
^DD(799.49,"GL",1,1,1.01)=""
^DD(799.49,"GL",2,0,2)=""
^DD(799.49,"IX",.01)=""
^DD(799.49,"IX",.03)=""
^DD(799.49,"RQ",.01)=""
^DD(799.49,"RQ",.02)=""
^DD(799.49,"RQ",1.01)=""
^DD(799.49,"SB",799.492,2)=""
^DD(799.492,0)="METHOD DESCRIPTION SUB-FIELD^^.01^1"
^DD(799.492,0,"DT")="3030507"
^DD(799.492,0,"NM","METHOD DESCRIPTION")=""
^DD(799.492,0,"UP")="799.49"
^DD(799.492,.01,0)="METHOD DESCRIPTION^WL^^0;1^Q"
^DD(799.492,.01,21,0)="^^3^3^3030507^"
^DD(799.492,.01,21,1,0)="The METHOD DESCRIPTION field stores descriptions"
^DD(799.492,.01,21,2,0)="of the methods that should be used to diagnose the"
^DD(799.492,.01,21,3,0)="disease."
^DD(799.492,.01,"DT")="3030507"
^DD(799.492,"B","METHOD DESCRIPTION",.01)=""
^DD(799.492,"GL",0,1,.01)=""
^DD(799.51,0)="FIELD^^.09^5"
^DD(799.51,0,"DDA")="N"
^DD(799.51,0,"DT")="3040114"
^DD(799.51,0,"IX","AR",799.51,.02)=""
^DD(799.51,0,"IX","B",799.51,.01)=""
^DD(799.51,0,"NM","ROR GENERIC DRUG")=""
^DD(799.51,0,"VR")="1.5"
^DD(799.51,0,"VRPK")="ROR"
^DD(799.51,0,"VRRV")="1.1^ROR*1*5"
^DD(799.51,.01,0)="NAME^RFX^^0;1^Q:$$VAEDT^RORDD(799.51,$G(DA))  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(799.51,.01,1,0)="^.1"
^DD(799.51,.01,1,1,0)="799.51^B"
^DD(799.51,.01,1,1,1)="S ^ROR(799.51,""B"",$E(X,1,30),DA)="""""
^DD(799.51,.01,1,1,2)="K ^ROR(799.51,""B"",$E(X,1,30),DA)"
^DD(799.51,.01,1,1,3)="Do not delete!"
^DD(799.51,.01,3)="Name must be 3-30 characters, not numeric or starting with punctuation."
^DD(799.51,.01,8.5)="@"
^DD(799.51,.01,9)="@"
^DD(799.51,.01,21,0)="^.001^4^4^3040124^^^"
^DD(799.51,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF "
^DD(799.51,.01,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.51,.01,21,3,0)=" "
^DD(799.51,.01,21,4,0)="The NAME field stores a short name of the drug."
^DD(799.51,.01,"DEL",1,0)="I $$VADEL^RORDD(799.51,$G(DA))"
^DD(799.51,.02,0)="REGISTRY^RP798.1'X^ROR(798.1,^0;2^Q:$$VAEDT^RORDD(799.51,$G(DA))"
^DD(799.51,.02,1,0)="^.1"
^DD(799.51,.02,1,1,0)="799.51^AR"
^DD(799.51,.02,1,1,1)="S ^ROR(799.51,""AR"",$E(X,1,30),DA)="""""
^DD(799.51,.02,1,1,2)="K ^ROR(799.51,""AR"",$E(X,1,30),DA)"
^DD(799.51,.02,1,1,3)="Do not delete!"
^DD(799.51,.02,1,1,"%D",0)="^^2^2^3040124^"
^DD(799.51,.02,1,1,"%D",1,0)="This cross-reference groups all drugs associated"
^DD(799.51,.02,1,1,"%D",2,0)="with a particular registry together."
^DD(799.51,.02,1,1,"DT")="3030818"
^DD(799.51,.02,8.5)="@"
^DD(799.51,.02,9)="@"
^DD(799.51,.02,21,0)="^^5^5^3040124^"
^DD(799.51,.02,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF "
^DD(799.51,.02,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.51,.02,21,3,0)=" "
^DD(799.51,.02,21,4,0)="This field identifies the registry that the drug "
^DD(799.51,.02,21,5,0)="is associated with."
^DD(799.51,.02,"DT")="3040114"
^DD(799.51,.03,0)="DRUG GROUP^R*P799.1'X^ROR(799.1,^0;3^Q:$$VAEDT^RORDD(799.51,$G(DA))  S Y=$P($G(^ROR(799.51,DA,0)),U,2),DIC(""S"")=""S D=$G(^(0)) I $P(D,U,2)=4""_$S(Y>0:"",$P(D,U,3)=""_Y,1:"""") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(799.51,.03,3)=""
^DD(799.51,.03,8.5)="@"
^DD(799.51,.03,9)="@"
^DD(799.51,.03,12)="Only Drug Groups can be selected."
^DD(799.51,.03,12.1)="S DIC(""S"")=""S D=$G(^(0)) I $P(D,U,2)=4""_$S(Y>0:"",$P(D,U,3)=""_Y,1:"""")"
^DD(799.51,.03,21,0)="^^2^2^3040124^"
^DD(799.51,.03,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF "
^DD(799.51,.03,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.51,.03,23,0)="^^2^2^3040124^"
^DD(799.51,.03,23,1,0)="This field is not used currently. It is reserved for "
^DD(799.51,.03,23,2,0)="future use."
^DD(799.51,.03,"DT")="3040124"
^DD(799.51,.04,0)="VA GENERIC^RP50.6'X^PSNDF(50.6,^0;4^Q:$$VAEDT^RORDD(799.51,$G(DA))"
^DD(799.51,.04,8.5)="@"
^DD(799.51,.04,9)="@"
^DD(799.51,.04,21,0)="^^2^2^3040124^"
^DD(799.51,.04,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS A PART OF "
^DD(799.51,.04,21,2,0)="NATIONAL REGISTRY DEFINITION!"
^DD(799.51,.04,"DT")="3040114"
^DD(799.51,.09,0)="NATIONAL^SX^0:NO;1:YES;^0;9^Q:$$VAEDT^RORDD(799.51,,-1)"
^DD(799.51,.09,8.5)="@"
^DD(799.51,.09,9)="@"
^DD(799.51,.09,21,0)="^^6^6^3060203^"
^DD(799.51,.09,21,1,0)="ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN"
^DD(799.51,.09,21,2,0)="EDIT THIS FIELD!"
^DD(799.51,.09,21,3,0)=" "
^DD(799.51,.09,21,4,0)="Drugs associated with the national registries must"
^DD(799.51,.09,21,5,0)="have this field set to ""YES"". This prevents local"
^DD(799.51,.09,21,6,0)="editing of other fields of the record."
^DD(799.51,.09,"DEL",1,0)="I $$VADEL^RORDD(799.51,,-1)"
^DD(799.51,.09,"DT")="3030818"
^DD(799.51,"B","DRUG GROUP",.03)=""
^DD(799.51,"B","NAME",.01)=""
^DD(799.51,"B","NATIONAL",.09)=""
^DD(799.51,"B","REGISTRY",.02)=""
^DD(799.51,"B","VA GENERIC",.04)=""
^DD(799.51,"GL",0,1,.01)=""
^DD(799.51,"GL",0,2,.02)=""
^DD(799.51,"GL",0,3,.03)=""
^DD(799.51,"GL",0,4,.04)=""
^DD(799.51,"GL",0,9,.09)=""
^DD(799.51,"IX",.01)=""
^DD(799.51,"IX",.02)=""
^DD(799.51,"RQ",.01)=""
^DD(799.51,"RQ",.02)=""
^DD(799.51,"RQ",.03)=""
^DD(799.51,"RQ",.04)=""
^DD(799.53,0)="FIELD^^1^4"
^DD(799.53,0,"DDA")="N"
^DD(799.53,0,"DT")="3050513"
^DD(799.53,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ROR(798.1,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(798.1,.01,0),U,2) D Y^DIQ:Y]"""" W ?35,""   "",Y S Y=%I K %I"
^DD(799.53,0,"IX","B",799.53,.01)=""
^DD(799.53,0,"NM","ROR LOCAL FIELD")=""
^DD(799.53,0,"PT",798.02,.01)=""
^DD(799.53,0,"VR")="1.5"
^DD(799.53,0,"VRPK")="ROR"
^DD(799.53,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(799.53,.01,1,0)="^.1"
^DD(799.53,.01,1,1,0)="799.53^B"
^DD(799.53,.01,1,1,1)="S ^ROR(799.53,""B"",$E(X,1,30),DA)="""""
^DD(799.53,.01,1,1,2)="K ^ROR(799.53,""B"",$E(X,1,30),DA)"
^DD(799.53,.01,1,1,3)="Do not delete!"
^DD(799.53,.01,3)="Enter name of the local field (3-30 characters)."
^DD(799.53,.01,8.5)="@"
^DD(799.53,.01,9)="@"
^DD(799.53,.01,21,0)="^^3^3^3050513^"
^DD(799.53,.01,21,1,0)="You can either select an existing local field "
^DD(799.53,.01,21,2,0)="definition or add a new one. Field names must be "
^DD(799.53,.01,21,3,0)="unique within the registry."
^DD(799.53,.01,"DT")="3050513"
^DD(799.53,.02,0)="DATE OF INACTIVATION^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.53,.02,8.5)="@"
^DD(799.53,.02,9)="@"
^DD(799.53,.02,21,0)="^.001^6^6^3050812^^"
^DD(799.53,.02,21,1,0)="If this field has a value, the definition of local"
^DD(799.53,.02,21,2,0)="field will be considered inactive and will not be "
^DD(799.53,.02,21,3,0)="presented to the users after this date. "
^DD(799.53,.02,21,4,0)=" "
^DD(799.53,.02,21,5,0)="Use this field to disable unnecessary local fields"
^DD(799.53,.02,21,6,0)="(and keep their values) instead of deleting them."
^DD(799.53,.02,"DT")="3050513"
^DD(799.53,.03,0)="REGISTRY^RP798.1'^ROR(798.1,^0;3^Q"
^DD(799.53,.03,8.5)="@"
^DD(799.53,.03,9)="@"
^DD(799.53,.03,21,0)="^^2^2^3050513^"
^DD(799.53,.03,21,1,0)="This field identifies the registry that the local"
^DD(799.53,.03,21,2,0)="field is associated with."
^DD(799.53,.03,"DT")="3050513"
^DD(799.53,1,0)="DESCRIPTION^RF^^1;E1,200^K:$L(X)>200!($L(X)<3) X"
^DD(799.53,1,3)="Enter description of the local field (3-200 characters)."
^DD(799.53,1,8.5)="@"
^DD(799.53,1,9)="@"
^DD(799.53,1,21,0)="^^3^3^3060203^"
^DD(799.53,1,21,1,0)="The DESCRIPTION field stores explanations of the "
^DD(799.53,1,21,2,0)="local field and/or its purpose. This text is"
^DD(799.53,1,21,3,0)="presented to the user during editing of the field."
^DD(799.53,1,"DT")="3050513"
^DD(799.53,"B","DATE OF INACTIVATION",.02)=""
^DD(799.53,"B","DESCRIPTION",1)=""
^DD(799.53,"B","NAME",.01)=""
^DD(799.53,"B","REGISTRY",.03)=""
^DD(799.53,"GL",0,1,.01)=""
^DD(799.53,"GL",0,2,.02)=""
^DD(799.53,"GL",0,3,.03)=""
^DD(799.53,"GL",1,"E1,200",1)=""
^DD(799.53,"IX",.01)=""
^DD(799.53,"RQ",.01)=""
^DD(799.53,"RQ",.03)=""
^DD(799.53,"RQ",1)=""
^DD(799.6,0)="FIELD^^5^14"
^DD(799.6,0,"DDA")="N"
^DD(799.6,0,"DT")="3051101"
^DD(799.6,0,"NM","ROR HISTORICAL DATA EXTRACTION")=""
^DD(799.6,0,"PT",798.1,21.01)=""
^DD(799.6,0,"VR")="1.5"
^DD(799.6,0,"VRPK")="ROR"
^DD(799.6,.01,0)="NAME^RFX^^0;1^Q:$$VAEDT^RORDD(799.6,$G(DA))  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(799.6,.01,1,0)="^.1^^-1"
^DD(799.6,.01,1,2,0)="^^TRIGGER^799.6^.07"
^DD(799.6,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(799.6,.01,1,2,1.4)"
^DD(799.6,.01,1,2,1.4)="S DIH=$G(^RORDATA(799.6,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=799.6,DIG=.07 D ^DICR"
^DD(799.6,.01,1,2,2)="Q"
^DD(799.6,.01,1,2,3)="Do not delete!"
^DD(799.6,.01,1,2,"%D",0)="^^7^7^3051101^"
^DD(799.6,.01,1,2,"%D",1,0)="If the ACTIVATION DATE field (.07) is empty, then"
^DD(799.6,.01,1,2,"%D",2,0)="this trigger populates it with the current date "
^DD(799.6,.01,1,2,"%D",3,0)="when the package is installed."
^DD(799.6,.01,1,2,"%D",4,0)=" "
^DD(799.6,.01,1,2,"%D",5,0)="Thus the historical data extraction parameters"
^DD(799.6,.01,1,2,"%D",6,0)="become active and will be processed by the next "
^DD(799.6,.01,1,2,"%D",7,0)="run of the nightly task."
^DD(799.6,.01,1,2,"CREATE CONDITION")="ACTIVATION DATE'>0"
^DD(799.6,.01,1,2,"CREATE VALUE")="TODAY"
^DD(799.6,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(799.6,.01,1,2,"DT")="3051031"
^DD(799.6,.01,1,2,"FIELD")="ACTIVATION DATE"
^DD(799.6,.01,3)="Enter the unique data extraction name (3-30 characters)."
^DD(799.6,.01,8.5)="@"
^DD(799.6,.01,9)="@"
^DD(799.6,.01,20,0)="^.3LA^1^1"
^DD(799.6,.01,20,1,0)="DEFINITION"
^DD(799.6,.01,21,0)="^^7^7^3060203^"
^DD(799.6,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A"
^DD(799.6,.01,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.6,.01,21,3,0)=" "
^DD(799.6,.01,21,4,0)="This field stores the unique name of the"
^DD(799.6,.01,21,5,0)="historical data extraction. If an extraction is"
^DD(799.6,.01,21,6,0)="initiated by a patch, it is a good idea to include"
^DD(799.6,.01,21,7,0)="the patch number."
^DD(799.6,.01,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA))"
^DD(799.6,.01,"DT")="3051101"
^DD(799.6,.02,0)="TYPE^RSX^1:Auto (HL7 messages);2:Manual (host files);^0;2^Q:$$VAEDT^RORDD(799.6,$G(DA))"
^DD(799.6,.02,8.5)="@"
^DD(799.6,.02,9)="@"
^DD(799.6,.02,20,0)="^.3LA^1^1"
^DD(799.6,.02,20,1,0)="DEFINITION"
^DD(799.6,.02,21,0)="^^15^15^3060203^"
^DD(799.6,.02,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.6,.02,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.6,.02,21,3,0)=" "
^DD(799.6,.02,21,4,0)="This field defines the type of data extraction."
^DD(799.6,.02,21,5,0)=" "
^DD(799.6,.02,21,6,0)="Automatic data extractions are initiated by the "
^DD(799.6,.02,21,7,0)="CCR patches. Data is extracted by the nightly task"
^DD(799.6,.02,21,8,0)="and sent via regular batch HL7 messages."
^DD(799.6,.02,21,9,0)=" "
^DD(799.6,.02,21,10,0)="Manual data extractions are initiated by the users"
^DD(799.6,.02,21,11,0)="using the options from the maintenance menu. They "
^DD(799.6,.02,21,12,0)="schedule the data extraction tasks and verify "
^DD(799.6,.02,21,13,0)="their completion. Data is written to host files, "
^DD(799.6,.02,21,14,0)="which are transferred to the AAC via FTP or any"
^DD(799.6,.02,21,15,0)="other means."
^DD(799.6,.02,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA))"
^DD(799.6,.02,"DT")="3051031"
^DD(799.6,.03,0)="START DATE^RDX^^0;3^Q:$$VAEDT^RORDD(799.6,$G(DA))  S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.6,.03,1,0)="^.1"
^DD(799.6,.03,1,1,0)="^^TRIGGER^799.6^.04"
^DD(799.6,.03,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4)'>0 I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(799.6,.03,1,1,1.4)"
^DD(799.6,.03,1,1,1.4)="S DIH=$G(^RORDATA(799.6,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=799.6,DIG=.04 D ^DICR"
^DD(799.6,.03,1,1,2)="Q"
^DD(799.6,.03,1,1,3)="Do not delete!"
^DD(799.6,.03,1,1,"%D",0)="^^3^3^3051101^"
^DD(799.6,.03,1,1,"%D",1,0)="If the END DATE field (.04) is empty, then this"
^DD(799.6,.03,1,1,"%D",2,0)="trigger populates it with the current date when"
^DD(799.6,.03,1,1,"%D",3,0)="the package is installed."
^DD(799.6,.03,1,1,"CREATE CONDITION")="END DATE'>0"
^DD(799.6,.03,1,1,"CREATE VALUE")="TODAY"
^DD(799.6,.03,1,1,"DELETE VALUE")="NO EFFECT"
^DD(799.6,.03,1,1,"DT")="3051101"
^DD(799.6,.03,1,1,"FIELD")="END DATE"
^DD(799.6,.03,8.5)="@"
^DD(799.6,.03,9)="@"
^DD(799.6,.03,20,0)="^.3LA^1^1"
^DD(799.6,.03,20,1,0)="DEFINITION"
^DD(799.6,.03,21,0)="^.001^5^5^3051101^^"
^DD(799.6,.03,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.6,.03,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.6,.03,21,3,0)=" "
^DD(799.6,.03,21,4,0)="This field indicates the start date for the "
^DD(799.6,.03,21,5,0)="historical data extraction."
^DD(799.6,.03,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA))"
^DD(799.6,.03,"DT")="3051101"
^DD(799.6,.04,0)="END DATE^DX^^0;4^Q:$$VAEDT^RORDD(799.6,$G(DA))  S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.6,.04,5,1,0)="799.6^.03^1"
^DD(799.6,.04,8.5)="@"
^DD(799.6,.04,9)="@"
^DD(799.6,.04,20,0)="^.3LA^1^1"
^DD(799.6,.04,20,1,0)="DEFINITION"
^DD(799.6,.04,21,0)="^^5^5^3051101^"
^DD(799.6,.04,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.6,.04,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.6,.04,21,3,0)=" "
^DD(799.6,.04,21,4,0)="This field indicates the end date for the "
^DD(799.6,.04,21,5,0)="historical data extraction."
^DD(799.6,.04,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA))"
^DD(799.6,.04,"DT")="3051101"
^DD(799.6,.05,0)="PATIENTS PER BATCH^NJ9,0X^^0;5^Q:$$VAEDT^RORDD(799.6,$G(DA))  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.6,.05,3)="Type a Number between 1 and 999999999, 0 Decimal Digits."
^DD(799.6,.05,8.5)="@"
^DD(799.6,.05,9)="@"
^DD(799.6,.05,20,0)="^.3LA^2^2"
^DD(799.6,.05,20,1,0)="DEFINITION"
^DD(799.6,.05,20,2,0)="MANUAL"
^DD(799.6,.05,21,0)="^^6^6^3051219^"
^DD(799.6,.05,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.6,.05,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.6,.05,21,3,0)=" "
^DD(799.6,.05,21,4,0)="The PATIENTS PER BATCH field holds the maximum"
^DD(799.6,.05,21,5,0)="number of patients whose data is written into a"
^DD(799.6,.05,21,6,0)="single historical data extraction output file."
^DD(799.6,.05,23,0)="^.001^2^2^3060203^^^^"
^DD(799.6,.05,23,1,0)="This field is used only during manual historical data"
^DD(799.6,.05,23,2,0)="extractions."
^DD(799.6,.05,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA))"
^DD(799.6,.05,"DT")="3050725"
^DD(799.6,.06,0)="MAXIMUM MESSAGE SIZE^NJ4,1X^^0;6^Q:$$VAEDT^RORDD(799.6,$G(DA))  K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(799.6,.06,3)="Type a Number between 0 and 99, 1 Decimal Digit."
^DD(799.6,.06,8.5)="@"
^DD(799.6,.06,9)="@"
^DD(799.6,.06,20,0)="^.3LA^2^2"
^DD(799.6,.06,20,1,0)="DEFINITION"
^DD(799.6,.06,20,2,0)="AUTO"
^DD(799.6,.06,21,0)="^.001^7^7^3051219^^"
^DD(799.6,.06,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.6,.06,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.6,.06,21,3,0)=" "
^DD(799.6,.06,21,4,0)="This field stores the maximum size (in megabytes)"
^DD(799.6,.06,21,5,0)="of a batch HL7 message that can be sent to Austin"
^DD(799.6,.06,21,6,0)="Automation Center (AAC). If this field is empty or"
^DD(799.6,.06,21,7,0)="contains 0, the size is not limited."
^DD(799.6,.06,23,0)="^.001^11^11^3060203^^"
^DD(799.6,.06,23,1,0)="Actual size of an HL7 batch can be greater than the"
^DD(799.6,.06,23,2,0)="value of this field because the software does not break"
^DD(799.6,.06,23,3,0)="in the middle of an individual HL7 message."
^DD(799.6,.06,23,4,0)=" "
^DD(799.6,.06,23,5,0)="For example, if the maximum size is 10Mb, the current"
^DD(799.6,.06,23,6,0)="size is 9Mb and 3Mb should be sent for the patient"
^DD(799.6,.06,23,7,0)="being processed then the actual size of the batch will"
^DD(799.6,.06,23,8,0)="be 12Mb."
^DD(799.6,.06,23,9,0)=" "
^DD(799.6,.06,23,10,0)="This field is used only during automatic historical "
^DD(799.6,.06,23,11,0)="data extractions."
^DD(799.6,.06,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA))"
^DD(799.6,.06,"DT")="3051101"
^DD(799.6,.07,0)="ACTIVATION DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.6,.07,5,1,0)="799.6^.01^2"
^DD(799.6,.07,8.5)="@"
^DD(799.6,.07,9)="@"
^DD(799.6,.07,20,0)="^.3LA^2^2"
^DD(799.6,.07,20,1,0)="STATE"
^DD(799.6,.07,20,2,0)="AUTO"
^DD(799.6,.07,21,0)="^^5^5^3051219^"
^DD(799.6,.07,21,1,0)="This field is used only for automatic data "
^DD(799.6,.07,21,2,0)="extractions. If it is empty, then the nightly task"
^DD(799.6,.07,21,3,0)="ignores this record completely. Otherwise, the"
^DD(799.6,.07,21,4,0)="data extraction will not start before the date and"
^DD(799.6,.07,21,5,0)="time stored in this field."
^DD(799.6,.07,"DT")="3051031"
^DD(799.6,.08,0)="BASE FILE NAME^FX^^0;8^K:$L(X)>15!($L(X)<1) X"
^DD(799.6,.08,3)="Answer must be 1-15 characters in length."
^DD(799.6,.08,8.5)="@"
^DD(799.6,.08,9)="@"
^DD(799.6,.08,20,0)="^.3LA^2^2"
^DD(799.6,.08,20,1,0)="DEFINITION"
^DD(799.6,.08,20,2,0)="MANUAL"
^DD(799.6,.08,21,0)="^^19^19^3051219^"
^DD(799.6,.08,21,1,0)="The base part for the output file names is stored"
^DD(799.6,.08,21,2,0)="in this field. It is populated either by a patch "
^DD(799.6,.08,21,3,0)="or by the user (if they are instructed to do so)."
^DD(799.6,.08,21,4,0)=" "
^DD(799.6,.08,21,5,0)="The output file names will have the following"
^DD(799.6,.08,21,6,0)="structure:"
^DD(799.6,.08,21,7,0)=" "
^DD(799.6,.08,21,8,0)="  BASE-SSS-TT.HDT"
^DD(799.6,.08,21,9,0)=" "
^DD(799.6,.08,21,10,0)="where 'BASE' is the value of this field, 'SSS' is"
^DD(799.6,.08,21,11,0)="the site number (3 digits), and 'TT' is the"
^DD(799.6,.08,21,12,0)="sequential number of the task (2 digits)."
^DD(799.6,.08,21,13,0)="                                                     "
^DD(799.6,.08,21,14,0)="If the task is restarted, the optional numeric"
^DD(799.6,.08,21,15,0)="modifier '##' (2 digits) will be added to the name"
^DD(799.6,.08,21,16,0)="so that the already extracted data will not be"
^DD(799.6,.08,21,17,0)="overwritten:"
^DD(799.6,.08,21,18,0)="                                                     "
^DD(799.6,.08,21,19,0)="  BASE-SSS-TT-##.HDT "
^DD(799.6,.08,23,0)="^^2^2^3060203^"
^DD(799.6,.08,23,1,0)="This field is used only during manual historical data"
^DD(799.6,.08,23,2,0)="extractions."
^DD(799.6,.08,"DT")="3051219"
^DD(799.6,.09,0)="NATIONAL^SX^0:NO;1:YES;^0;9^Q:$$VAEDT^RORDD(799.6,,-1)"
^DD(799.6,.09,8)=""
^DD(799.6,.09,8.5)="@"
^DD(799.6,.09,9)="@"
^DD(799.6,.09,20,0)="^.3LA^1^1"
^DD(799.6,.09,20,1,0)="DEFINITION"
^DD(799.6,.09,21,0)="^^6^6^3060203^"
^DD(799.6,.09,21,1,0)="ONLY AUTHORIZED NATIONAL REGISTRY DEVELOPERS CAN"
^DD(799.6,.09,21,2,0)="EDIT THIS FIELD!"
^DD(799.6,.09,21,3,0)=" "
^DD(799.6,.09,21,4,0)="National historical data extractions (backpulls)"
^DD(799.6,.09,21,5,0)="must have this field set to ""YES"". This prevents"
^DD(799.6,.09,21,6,0)="local editing of other fields of the definitions."
^DD(799.6,.09,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA))"
^DD(799.6,.09,"DT")="3050725"
^DD(799.6,1,0)="DATA AREA^799.61P^^1;0"
^DD(799.6,1,9)="@"
^DD(799.6,1,20,0)="^.3LA^1^1"
^DD(799.6,1,20,1,0)="DEFINITION"
^DD(799.6,1,21,0)="^.001^7^7^3051219^^"
^DD(799.6,1,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.6,1,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.6,1,21,3,0)=" "
^DD(799.6,1,21,4,0)="This multiple lists all data areas in which the "
^DD(799.6,1,21,5,0)="data extraction will be performed. It can also"
^DD(799.6,1,21,6,0)="contain additional time frames for these data"
^DD(799.6,1,21,7,0)="areas."
^DD(799.6,2,0)="OUTPUT DIRECTORY^F^^2;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(799.6,2,3)="Enter a valid name of the output directory (1-240 characters)."
^DD(799.6,2,8.5)=""
^DD(799.6,2,9)=""
^DD(799.6,2,20,0)="^.3LA^2^2"
^DD(799.6,2,20,1,0)="PARAMETERS"
^DD(799.6,2,20,2,0)="MANUAL"
^DD(799.6,2,21,0)="^^19^19^3060203^"
^DD(799.6,2,21,1,0)="A directory must be created within the file system"
^DD(799.6,2,21,2,0)="of the host operating system (VMS, Windows,"
^DD(799.6,2,21,3,0)="etc.). Text files containing historical data in"
^DD(799.6,2,21,4,0)="the HL7 format will be created in this directory"
^DD(799.6,2,21,5,0)="by the data extraction tasks."
^DD(799.6,2,21,6,0)=" "
^DD(799.6,2,21,7,0)="The full name of the directory must be entered as"
^DD(799.6,2,21,8,0)="a value of this field. For example, the value can"
^DD(799.6,2,21,9,0)="look something like this:"
^DD(799.6,2,21,10,0)=" "
^DD(799.6,2,21,11,0)="   VA2$:[OUTPUT] - VAX VMS "
^DD(799.6,2,21,12,0)="   D:\Output\    - Windows, MS-DOS"
^DD(799.6,2,21,13,0)=" "
^DD(799.6,2,21,14,0)="Because a file name will be concatenated to the"
^DD(799.6,2,21,15,0)="directory name, the trailing slash in the Windows"
^DD(799.6,2,21,16,0)="directory name is required."
^DD(799.6,2,21,17,0)=" "
^DD(799.6,2,21,18,0)="Do not forget to enable read/write access to this"
^DD(799.6,2,21,19,0)="directory for M processes!"
^DD(799.6,2,"DT")="3050722"
^DD(799.6,3,0)="REGISTRY NAME^799.63^^3;0"
^DD(799.6,3,9)="@"
^DD(799.6,3,21,0)="^^3^3^3051219^"
^DD(799.6,3,21,1,0)="This multiple references the registries that the"
^DD(799.6,3,21,2,0)="data extraction will be performed for and"
^DD(799.6,3,21,3,0)="indicates the extraction status."
^DD(799.6,3,"DT")="3051031"
^DD(799.6,4,0)="TASK^799.64^^4;0"
^DD(799.6,4,9)="@"
^DD(799.6,4,20,0)="^.3LA^2^2"
^DD(799.6,4,20,1,0)="STATE"
^DD(799.6,4,20,2,0)="MANUAL"
^DD(799.6,5,0)="STATUS^CJ2,0^^ ; ^S X=$$HDESTAT^RORDD01(+$G(D0))"
^DD(799.6,5,9)="^"
^DD(799.6,5,9.01)=""
^DD(799.6,5,9.1)="S X=$$HDESTAT^RORDD01(+$G(D0))"
^DD(799.6,5,20,0)="^.3LA^1^1"
^DD(799.6,5,20,1,0)="STATE"
^DD(799.6,5,21,0)="^^7^7^3060106^"
^DD(799.6,5,21,1,0)="This field indicates a generic status of the "
^DD(799.6,5,21,2,0)="historical data extraction:"
^DD(799.6,5,21,3,0)=" "
^DD(799.6,5,21,4,0)="  """"  Unknown/Undefined"
^DD(799.6,5,21,5,0)="   0  Inactive"
^DD(799.6,5,21,6,0)="   1  Pending/Active"
^DD(799.6,5,21,7,0)="   2  Completed"
^DD(799.6,5,"DT")="3051114"
^DD(799.6,"B","ACTIVATION DATE",.07)=""
^DD(799.6,"B","BASE FILE NAME",.08)=""
^DD(799.6,"B","DATA AREA",1)=""
^DD(799.6,"B","END DATE",.04)=""
^DD(799.6,"B","MAXIMUM MESSAGE SIZE",.06)=""
^DD(799.6,"B","NAME",.01)=""
^DD(799.6,"B","NATIONAL",.09)=""
^DD(799.6,"B","OUTPUT DIRECTORY",2)=""
^DD(799.6,"B","PATIENTS PER BATCH",.05)=""
^DD(799.6,"B","REGISTRY NAME",3)=""
^DD(799.6,"B","START DATE",.03)=""
^DD(799.6,"B","STATUS",5)=""
^DD(799.6,"B","TASK",4)=""
^DD(799.6,"B","TYPE",.02)=""
^DD(799.6,"GL",0,1,.01)=""
^DD(799.6,"GL",0,2,.02)=""
^DD(799.6,"GL",0,3,.03)=""
^DD(799.6,"GL",0,4,.04)=""
^DD(799.6,"GL",0,5,.05)=""
^DD(799.6,"GL",0,6,.06)=""
^DD(799.6,"GL",0,7,.07)=""
^DD(799.6,"GL",0,8,.08)=""
^DD(799.6,"GL",0,9,.09)=""
^DD(799.6,"GL",1,0,1)=""
^DD(799.6,"GL",2,"E1,240",2)=""
^DD(799.6,"GL",3,0,3)=""
^DD(799.6,"GL",4,0,4)=""
^DD(799.6,"GR","AUTO",.06,2)=""
^DD(799.6,"GR","AUTO",.07,2)=""
^DD(799.6,"GR","DEFINITION",.01,1)=""
^DD(799.6,"GR","DEFINITION",.02,1)=""
^DD(799.6,"GR","DEFINITION",.03,1)=""
^DD(799.6,"GR","DEFINITION",.04,1)=""
^DD(799.6,"GR","DEFINITION",.05,1)=""
^DD(799.6,"GR","DEFINITION",.06,1)=""
^DD(799.6,"GR","DEFINITION",.08,1)=""
^DD(799.6,"GR","DEFINITION",.09,1)=""
^DD(799.6,"GR","DEFINITION",1,1)=""
^DD(799.6,"GR","MANUAL",.05,2)=""
^DD(799.6,"GR","MANUAL",.08,2)=""
^DD(799.6,"GR","MANUAL",2,2)=""
^DD(799.6,"GR","MANUAL",4,2)=""
^DD(799.6,"GR","PARAMETERS",2,1)=""
^DD(799.6,"GR","STATE",.07,1)=""
^DD(799.6,"GR","STATE",4,1)=""
^DD(799.6,"GR","STATE",5,1)=""
^DD(799.6,"IX",.01)=""
^DD(799.6,"IX",.03)=""
^DD(799.6,"RQ",.01)=""
^DD(799.6,"RQ",.02)=""
^DD(799.6,"RQ",.03)=""
^DD(799.6,"SB",799.61,1)=""
^DD(799.6,"SB",799.63,3)=""
^DD(799.6,"SB",799.64,4)=""
^DD(799.61,0)="DATA AREA SUB-FIELD^^.03^3"
^DD(799.61,0,"DT")="3050722"
^DD(799.61,0,"NM","DATA AREA")=""
^DD(799.61,0,"UP")="799.6"
^DD(799.61,.01,0)="DATA AREA^MP799.33'X^ROR(799.33,^0;1^Q:$$VAEDT^RORDD(799.6,$G(DA(1)))"
^DD(799.61,.01,1,0)="^.1^^0"
^DD(799.61,.01,3)=""
^DD(799.61,.01,8.5)="@"
^DD(799.61,.01,9)="@"
^DD(799.61,.01,20,0)="^.3LA^^0"
^DD(799.61,.01,21,0)="^^6^6^3051219^"
^DD(799.61,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.61,.01,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.61,.01,21,3,0)=" "
^DD(799.61,.01,21,4,0)="Select the data area where the data extraction "
^DD(799.61,.01,21,5,0)="will be performed. Data will be extracted only "
^DD(799.61,.01,21,6,0)="from the data areas referenced by this field."
^DD(799.61,.01,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA(1)))"
^DD(799.61,.01,"DT")="3050725"
^DD(799.61,.02,0)="START DATE^DX^^0;2^Q:$$VAEDT^RORDD(799.6,$G(DA(1)))  S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.61,.02,1,0)="^.1"
^DD(799.61,.02,1,1,0)="^^TRIGGER^799.61^.03"
^DD(799.61,.02,1,1,1)="X ^DD(799.61,.02,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^RORDATA(799.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(799.61,.02,1,1,1.4)"
^DD(799.61,.02,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^RORDATA(799.6,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3)'>0"
^DD(799.61,.02,1,1,1.4)="S DIH=$G(^RORDATA(799.6,DIV(0),1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=799.61,DIG=.03 D ^DICR"
^DD(799.61,.02,1,1,2)="Q"
^DD(799.61,.02,1,1,3)="Do not delete!"
^DD(799.61,.02,1,1,"%D",0)="^^3^3^3060106^"
^DD(799.61,.02,1,1,"%D",1,0)="If the END DATE field (.03) is empty, then this "
^DD(799.61,.02,1,1,"%D",2,0)="trigger populates it with the current date when"
^DD(799.61,.02,1,1,"%D",3,0)="the package is installed."
^DD(799.61,.02,1,1,"CREATE CONDITION")="END DATE'>0"
^DD(799.61,.02,1,1,"CREATE VALUE")="TODAY"
^DD(799.61,.02,1,1,"DELETE VALUE")="NO EFFECT"
^DD(799.61,.02,1,1,"FIELD")="END DATE"
^DD(799.61,.02,8.5)="@"
^DD(799.61,.02,9)="@"
^DD(799.61,.02,20,0)="^.3LA^^0"
^DD(799.61,.02,21,0)="^^10^10^3051219^"
^DD(799.61,.02,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.61,.02,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.61,.02,21,3,0)=" "
^DD(799.61,.02,21,4,0)="This field stores the start date of an additional "
^DD(799.61,.02,21,5,0)="data extraction time frame for this data area."
^DD(799.61,.02,21,6,0)=" "
^DD(799.61,.02,21,7,0)="If this field is empty, then the data is extracted"
^DD(799.61,.02,21,8,0)="only in the main time frame defined by the"
^DD(799.61,.02,21,9,0)="top-level fields START DATE (.03) and END DATE"
^DD(799.61,.02,21,10,0)="(.04)."
^DD(799.61,.02,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA(1)))"
^DD(799.61,.02,"DT")="3051101"
^DD(799.61,.03,0)="END DATE^DX^^0;3^Q:$$VAEDT^RORDD(799.6,$G(DA(1)))  S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.61,.03,5,1,0)="799.61^.02^1"
^DD(799.61,.03,8.5)="@"
^DD(799.61,.03,9)="@"
^DD(799.61,.03,20,0)="^.3LA^^0"
^DD(799.61,.03,21,0)="^^10^10^3051219^"
^DD(799.61,.03,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.61,.03,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.61,.03,21,3,0)=" "
^DD(799.61,.03,21,4,0)="This field stores the end date of an additional "
^DD(799.61,.03,21,5,0)="data extraction time frame for this data area."
^DD(799.61,.03,21,6,0)=" "
^DD(799.61,.03,21,7,0)="If this field is empty, then the data is extracted"
^DD(799.61,.03,21,8,0)="only in the main time frame defined by the"
^DD(799.61,.03,21,9,0)="top-level fields START DATE (.03) and END DATE"
^DD(799.61,.03,21,10,0)="(.04)."
^DD(799.61,.03,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA(1)))"
^DD(799.61,.03,"DT")="3051101"
^DD(799.61,"B","DATA AREA",.01)=""
^DD(799.61,"B","END DATE",.03)=""
^DD(799.61,"B","START DATE",.02)=""
^DD(799.61,"GL",0,1,.01)=""
^DD(799.61,"GL",0,2,.02)=""
^DD(799.61,"GL",0,3,.03)=""
^DD(799.61,"IX",.02)=""
^DD(799.63,0)="REGISTRY NAME SUB-FIELD^^.02^2"
^DD(799.63,0,"DT")="3051031"
^DD(799.63,0,"NM","REGISTRY NAME")=""
^DD(799.63,0,"UP")="799.6"
^DD(799.63,.01,0)="REGISTRY NAME^MRFX^^0;1^Q:$$VAEDT^RORDD(799.6,$G(DA(1)))  K:$L(X)>30!($L(X)<3) X I $D(X) K:'$D(^ROR(798.1,""B"",$E(X,1,30))) X"
^DD(799.63,.01,1,0)="^.1^^0"
^DD(799.63,.01,3)="Enter the registry name (3-30 characters)."
^DD(799.63,.01,4)="I $G(X)=""??"" N D,DIC,DZ S DIC=""^ROR(798.1,"",DIC(0)="""",D=""B"",DZ=""??"" D DQ^DICQ,EN^DDIOL("""",,""!"")"
^DD(799.63,.01,8.5)="@"
^DD(799.63,.01,9)="@"
^DD(799.63,.01,20,0)="^.3LA^1^1"
^DD(799.63,.01,20,1,0)="DEFINITION"
^DD(799.63,.01,21,0)="^^5^5^3051101^"
^DD(799.63,.01,21,1,0)="YOU MUST NOT EDIT THIS FIELD IF IT IS PART OF A "
^DD(799.63,.01,21,2,0)="NATIONAL HISTORICAL DATA EXTRACTION DEFINITION!"
^DD(799.63,.01,21,3,0)=" "
^DD(799.63,.01,21,4,0)="Enter a name of the registry exactly as it appears"
^DD(799.63,.01,21,5,0)="in the ROR REGISTRY PARAMETERS file (#798.1)."
^DD(799.63,.01,23,0)="^.001^3^3^3051101^^^^"
^DD(799.63,.01,23,1,0)="Names of the registries are used here instead of "
^DD(799.63,.01,23,2,0)="pointers because the KIDS pointer resolving feature "
^DD(799.63,.01,23,3,0)="does not work for .01 fields."
^DD(799.63,.01,"DEL",1,0)="I $$VADEL^RORDD(799.6,$G(DA(1)))"
^DD(799.63,.01,"DT")="3051031"
^DD(799.63,.02,0)="COMPLETION DATE/TIME^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(799.63,.02,8.5)="@"
^DD(799.63,.02,9)="@"
^DD(799.63,.02,20,0)="^.3LA^1^1"
^DD(799.63,.02,20,1,0)="STATE"
^DD(799.63,.02,21,0)="^^7^7^3060203^"
^DD(799.63,.02,21,1,0)="A valid date in this field indicates that the data"
^DD(799.63,.02,21,2,0)="extraction has been successfully completed for"
^DD(799.63,.02,21,3,0)="this registry. "
^DD(799.63,.02,21,4,0)=" "
^DD(799.63,.02,21,5,0)="If the data must be re-extracted, clear this field"
^DD(799.63,.02,21,6,0)="and the nightly task will repeat the historical"
^DD(799.63,.02,21,7,0)="data extraction for this registry."
^DD(799.63,.02,23,0)="^^4^4^3060203^"
^DD(799.63,.02,23,1,0)="This field is populated by the $$CHECKMSG^ROR10 "
^DD(799.63,.02,23,2,0)="function after it confirms successful transmission of "
^DD(799.63,.02,23,3,0)="the HL7 messages before the next nightly data"
^DD(799.63,.02,23,4,0)="extraction."
^DD(799.63,.02,"DT")="3051031"
^DD(799.63,"B","COMPLETION DATE/TIME",.02)=""
^DD(799.63,"B","REGISTRY NAME",.01)=""
^DD(799.63,"GL",0,1,.01)=""
^DD(799.63,"GL",0,2,.02)=""
^DD(799.63,"GR","DEFINITION",.01,1)=""
^DD(799.63,"GR","STATE",.02,1)=""
^DD(799.63,"RQ",.01)=""
^DD(799.64,0)="TASK SUB-FIELD^^1^6"
^DD(799.64,0,"DT")="3050725"
^DD(799.64,0,"IX","T",799.64,.02)=""
^DD(799.64,0,"NM","TASK")=""
^DD(799.64,0,"UP")="799.6"
^DD(799.64,.01,0)="START RECORD IEN^MNJ22,9^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""10N.N) X"
^DD(799.64,.01,1,0)="^.1^^0"
^DD(799.64,.01,3)="Enter a patient's IEN (DFN)."
^DD(799.64,.01,8.5)="@"
^DD(799.64,.01,9)="@"
^DD(799.64,.01,21,0)="^^16^16^3060203^"
^DD(799.64,.01,21,1,0)="All patients of the registries are distributed "
^DD(799.64,.01,21,2,0)="between the data extraction tasks. Each task"
^DD(799.64,.01,21,3,0)="extracts the data of the patients whose DFNs are"
^DD(799.64,.01,21,4,0)="not less than the value of this field in the task"
^DD(799.64,.01,21,5,0)="record and are less than the value of the field in"
^DD(799.64,.01,21,6,0)="the next task record."
^DD(799.64,.01,21,7,0)="                                                     "
^DD(799.64,.01,21,8,0)="The first task always has 1 as a value in this"
^DD(799.64,.01,21,9,0)="field (just in case)."
^DD(799.64,.01,21,10,0)="                                                     "
^DD(799.64,.01,21,11,0)="The last task extracts the data of all patients"
^DD(799.64,.01,21,12,0)="whose registry records have IENs not less than the"
^DD(799.64,.01,21,13,0)="value of this field.  "
^DD(799.64,.01,21,14,0)="                                                     "
^DD(799.64,.01,21,15,0)="Usually, this field should not be edited. It is"
^DD(799.64,.01,21,16,0)="populated automatically when the task is created."
^DD(799.64,.01,23,0)="^^7^7^3060203^"
^DD(799.64,.01,23,1,0)="The value of this field is not a real pointer to the "
^DD(799.64,.01,23,2,0)="ROR REGISTRY RECORD file. There can be no record in the"
^DD(799.64,.01,23,3,0)="local registry with an IEN stored in this field."
^DD(799.64,.01,23,4,0)=" "
^DD(799.64,.01,23,5,0)="The historical data extraction task will start "
^DD(799.64,.01,23,6,0)="processing from the registry record with an IEN that "
^DD(799.64,.01,23,7,0)="is not less than the value of this field."
^DD(799.64,.01,"DT")="3051114"
^DD(799.64,.02,0)="TASK NUMBER^NJ10,0I^^0;2^K:+X'=X!(X>9899999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(799.64,.02,1,0)="^.1"
^DD(799.64,.02,1,1,0)="799.64^T"
^DD(799.64,.02,1,1,1)="S ^RORDATA(799.6,DA(1),4,""T"",$E(X,1,30),DA)="""""
^DD(799.64,.02,1,1,2)="K ^RORDATA(799.6,DA(1),4,""T"",$E(X,1,30),DA)"
^DD(799.64,.02,1,1,3)="Do not delete!"
^DD(799.64,.02,1,1,"DT")="3050725"
^DD(799.64,.02,3)="Type a Number between 1 and 9899999999, 0 Decimal Digits."
^DD(799.64,.02,8.5)="@"
^DD(799.64,.02,9)="@"
^DD(799.64,.02,21,0)="^^6^6^3050725^"
^DD(799.64,.02,21,1,0)="This field contains the number of the Taskman "
^DD(799.64,.02,21,2,0)="task (scheduled or running) that does the data"
^DD(799.64,.02,21,3,0)="extraction."
^DD(799.64,.02,21,4,0)=" "
^DD(799.64,.02,21,5,0)="This field cannot be edited. It is updated"
^DD(799.64,.02,21,6,0)="automatically by the data extraction task."
^DD(799.64,.02,"DT")="3050725"
^DD(799.64,.03,0)="STATUS^S^0:Unknown;1:Active> Pending;2:Active> Running;3:Inactive> Finished;4:Inactive> Available;5:Inactive> Interrupted;100:Inactive> Crashed;101:Inactive> Errors;102:Active> Suspended;103:Active> Stopping;^0;3^Q"
^DD(799.64,.03,3)=""
^DD(799.64,.03,8.5)="@"
^DD(799.64,.03,9)="@"
^DD(799.64,.03,21,0)="^^2^2^3050725^"
^DD(799.64,.03,21,1,0)="The STATUS field stores the last known task"
^DD(799.64,.03,21,2,0)="status."
^DD(799.64,.03,23,0)="^^8^8^3060203^"
^DD(799.64,.03,23,1,0)="This field is populated with the value returned by the"
^DD(799.64,.03,23,2,0)="$$STATUS^RORTSK02 function. It will reflect the last "
^DD(799.64,.03,23,3,0)="known status of the task even after the task is deleted"
^DD(799.64,.03,23,4,0)="by the Taskman and its record is deleted from the ROR"
^DD(799.64,.03,23,5,0)="TASK file (#798.8)."
^DD(799.64,.03,23,6,0)=" "
^DD(799.64,.03,23,7,0)="Please do not get value of this field directly; use the"
^DD(799.64,.03,23,8,0)="$$STATUS^RORHDTUT function instead."
^DD(799.64,.03,"DT")="3051114"
^DD(799.64,.04,0)="NEXT PATIENT IEN^NJ22,9^^0;4^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""10N.N) X"
^DD(799.64,.04,3)="Enter the next patient IEN (1-999999999999, 9 Decimal Digits)."
^DD(799.64,.04,8.5)="@"
^DD(799.64,.04,9)="@"
^DD(799.64,.04,21,0)="^.001^10^10^3060122^^"
^DD(799.64,.04,21,1,0)="If the data extraction task is stopped, it "
^DD(799.64,.04,21,2,0)="finishes processing the current patient and stores"
^DD(799.64,.04,21,3,0)="the IEN of the patient that should be processed"
^DD(799.64,.04,21,4,0)="next as the value of this field."
^DD(799.64,.04,21,5,0)=" "
^DD(799.64,.04,21,6,0)="When the task is restarted, it starts from the"
^DD(799.64,.04,21,7,0)="patient IEN stored in this field."
^DD(799.64,.04,21,8,0)=" "
^DD(799.64,.04,21,9,0)="Usually, this field should not be edited. It is"
^DD(799.64,.04,21,10,0)="updated automatically by the data extraction task."
^DD(799.64,.04,23,0)="^^7^7^3060203^"
^DD(799.64,.04,23,1,0)="The value of this field is not a real pointer to the "
^DD(799.64,.04,23,2,0)="ROR PATIENT file. There can be no record in the file"
^DD(799.64,.04,23,3,0)="with IEN stored in this field."
^DD(799.64,.04,23,4,0)=" "
^DD(799.64,.04,23,5,0)="The restarted historical data extraction task will "
^DD(799.64,.04,23,6,0)="continue processing from the patient with an IEN that"
^DD(799.64,.04,23,7,0)="is not less than the value of this field."
^DD(799.64,.04,"DT")="3060122"
^DD(799.64,.05,0)="FILE NAME^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(799.64,.05,3)="Answer must be 1-50 characters in length."
^DD(799.64,.05,8.5)="@"
^DD(799.64,.05,9)="@"
^DD(799.64,.05,21,0)="^.001^22^22^3051101^^"
^DD(799.64,.05,21,1,0)="The output file name is stored in this field. This"
^DD(799.64,.05,21,2,0)="name is generated automatically when the task is"
^DD(799.64,.05,21,3,0)="created. The name has the following structure:"
^DD(799.64,.05,21,4,0)=" "
^DD(799.64,.05,21,5,0)="   BASE-SSS-TT.HDT"
^DD(799.64,.05,21,6,0)=" "
^DD(799.64,.05,21,7,0)="where 'BASE' is the base part of the file name"
^DD(799.64,.05,21,8,0)="provided by the user during creation of the task"
^DD(799.64,.05,21,9,0)="table 'SSS' is the site number (3 digits), and"
^DD(799.64,.05,21,10,0)="'TT' is the sequential number of the task (2"
^DD(799.64,.05,21,11,0)="digits)."
^DD(799.64,.05,21,12,0)=" "
^DD(799.64,.05,21,13,0)="If the task is restarted, the optional numeric"
^DD(799.64,.05,21,14,0)="modifier '##' (2 digits) can be added to the name"
^DD(799.64,.05,21,15,0)="so that the already extracted data will not be"
^DD(799.64,.05,21,16,0)="overwritten:"
^DD(799.64,.05,21,17,0)=" "
^DD(799.64,.05,21,18,0)="   BASE-SSS-TT-##.HDT"
^DD(799.64,.05,21,19,0)=" "
^DD(799.64,.05,21,20,0)="Usually, this field should not be edited. It is"
^DD(799.64,.05,21,21,0)="populated automatically when the task is created"
^DD(799.64,.05,21,22,0)="or restarted."
^DD(799.64,.05,"DT")="3050722"
^DD(799.64,1,0)="ERROR^799.641P^^1;0"
^DD(799.64,1,9)="@"
^DD(799.64,1,21,0)="^^11^11^3060106^"
^DD(799.64,1,21,1,0)="This multiple contains a list of registry records "
^DD(799.64,1,21,2,0)="that were processed with errors."
^DD(799.64,1,21,3,0)="                                 "
^DD(799.64,1,21,4,0)="When the data extraction task is restarted, it"
^DD(799.64,1,21,5,0)="tries to re-extract the data for these patients."
^DD(799.64,1,21,6,0)="If it succeeds, it deletes the corresponding"
^DD(799.64,1,21,7,0)="records from the list."
^DD(799.64,1,21,8,0)="                                 "
^DD(799.64,1,21,9,0)="The records of the multiple have the same IENs as"
^DD(799.64,1,21,10,0)="the corresponding registry records in the ROR"
^DD(799.64,1,21,11,0)="REGISTRY RECORD file (#798)."
^DD(799.64,"B","ERROR",1)=""
^DD(799.64,"B","FILE NAME",.05)=""
^DD(799.64,"B","NEXT PATIENT IEN",.04)=""
^DD(799.64,"B","START RECORD IEN",.01)=""
^DD(799.64,"B","STATUS",.03)=""
^DD(799.64,"B","TASK NUMBER",.02)=""
^DD(799.64,"GL",0,1,.01)=""
^DD(799.64,"GL",0,2,.02)=""
^DD(799.64,"GL",0,3,.03)=""
^DD(799.64,"GL",0,4,.04)=""
^DD(799.64,"GL",0,5,.05)=""
^DD(799.64,"GL",1,0,1)=""
^DD(799.64,"IX",.02)=""
^DD(799.64,"SB",799.641,1)=""
^DD(799.641,0)="ERROR SUB-FIELD^^.01^1"
^DD(799.641,0,"DT")="3050722"
^DD(799.641,0,"IX","B",799.641,.01)=""
^DD(799.641,0,"NM","ERROR")=""
^DD(799.641,0,"UP")="799.64"
^DD(799.641,.01,0)="ERROR^MP798.4'X^RORDATA(798.4,^0;1^S:$D(X) DINUM=X"
^DD(799.641,.01,1,0)="^.1"
^DD(799.641,.01,1,1,0)="799.641^B"
^DD(799.641,.01,1,1,1)="S ^RORDATA(799.6,DA(2),4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(799.641,.01,1,1,2)="K ^RORDATA(799.6,DA(2),4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(799.641,.01,8.5)="@"
^DD(799.641,.01,9)="@"
^DD(799.641,.01,"DT")="3060122"
^DD(799.641,"B","ERROR",.01)=""
^DD(799.641,"GL",0,1,.01)=""
^DD(799.641,"IX",.01)=""
^DD(800,0)="FIELD^^17^18"
^DD(800,0,"DDA")="N"
^DD(800,0,"DT")="3061026"
^DD(800,0,"IX","B",800,.01)=""
^DD(800,0,"NM","CLINICAL REMINDER PARAMETERS")=""
^DD(800,0,"VR")="2.0"
^DD(800,0,"VRPK")="PXRM"
^DD(800,.01,0)="SITE PARAMETERS^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(800,.01,1,0)="^.1"
^DD(800,.01,1,1,0)="800^B"
^DD(800,.01,1,1,1)="S ^PXRM(800,""B"",$E(X,1,30),DA)="""""
^DD(800,.01,1,1,2)="K ^PXRM(800,""B"",$E(X,1,30),DA)"
^DD(800,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(800,.01,21,0)="^.001^2^2^3050113^^^^"
^DD(800,.01,21,1,0)="This file contains parameters used by the Clinical Reminders package. "
^DD(800,.01,21,2,0)="There is one top-level entry per site."
^DD(800,.01,23,0)="^.001^1^1^3050113^^^^"
^DD(800,.01,23,1,0)="There is one entry in this file."
^DD(800,.01,"DT")="3050113"
^DD(800,1,0)="DEFAULT REMINDER DISCLAIMER^800.01^^DISC1;0"
^DD(800,1,21,0)="^.001^2^2^3050120^^^^"
^DD(800,1,21,1,0)="This is the DEFAULT REMINDER DISCLAIMER that is distributed with the"
^DD(800,1,21,2,0)="package."
^DD(800,2,0)="SITE REMINDER DISCLAIMER^800.02^^DISC2;0"
^DD(800,2,21,0)="^.001^3^3^3050120^^^"
^DD(800,2,21,1,0)="This is the site-defined reminder disclaimer. If there is an entry in"
^DD(800,2,21,2,0)="this field, then the site-defined disclaimer will override the default"
^DD(800,2,21,3,0)="disclaimer."
^DD(800,3,0)="REMINDER MANAGEMENT MAILGROUP^P3.8^XMB(3.8,^MGFE;1^Q"
^DD(800,3,3)="Enter the name of the MailMan group that will receive reminder management messages."
^DD(800,3,21,0)="^.001^12^12^3050120^^^^"
^DD(800,3,21,1,0)="Members of the MailMan mail group pointed to by this field will receive"
^DD(800,3,21,2,0)="various types of MailMan messages concerned with managing reminders."
^DD(800,3,21,3,0)=""
^DD(800,3,21,4,0)="Some examples: if there is an error during reminder evaluation, this"
^DD(800,3,21,5,0)="mail group will be sent a message notifying them of the error. When the"
^DD(800,3,21,6,0)="reminder indexes are built, the mail group will receive the messages"
^DD(800,3,21,7,0)="this process generates."
^DD(800,3,21,8,0)=""
^DD(800,3,21,9,0)="When a message is generated, if the user is not a member of the mail"
^DD(800,3,21,10,0)="group and the mail group is private, then no members of the mail group"
^DD(800,3,21,11,0)="will receive the message. Therefore, it is recommended that the mail"
^DD(800,3,21,12,0)="group be public."
^DD(800,3,"DT")="3030303"
^DD(800,4,0)="WEB SITES^800.04^^1;0"
^DD(800,4,21,0)="^.001^4^4^3050120^^^^"
^DD(800,4,21,1,0)="In the CPRS GUI, if you right-click on a reminder, one of the choices is"
^DD(800,4,21,2,0)="Reference Information, which will give a list of web sites that have"
^DD(800,4,21,3,0)="information related to the reminder. The web sites listed in this"
^DD(800,4,21,4,0)="multiple are the default set that apply to all reminders."
^DD(800,4,"DT")="2991129"
^DD(800,5,0)="VERSION^F^^VERSION;1^K:$L(X)>20!($L(X)<3) X"
^DD(800,5,3)="Answer must be 3-20 characters in length."
^DD(800,5,21,0)="^.001^1^1^3050113^^"
^DD(800,5,21,1,0)="This is the current version number of the Clinical Reminders package."
^DD(800,5,"DT")="3000706"
^DD(800,6,0)="FULL SSN^S^Y:YES;N:NO;^FULL SSN;1^Q"
^DD(800,6,21,0)="^.001^6^6^3050120^^^^"
^DD(800,6,21,1,0)="This field is the default for the Clinical Reminders display of Social"
^DD(800,6,21,2,0)="Security numbers. It is a set of codes with the possible values of ""N"""
^DD(800,6,21,3,0)="or ""Y"". If the value is ""Y"" then the full SSN is printed; otherwise"
^DD(800,6,21,4,0)="only the last four digits of the SSN are printed."
^DD(800,6,21,5,0)=" "
^DD(800,6,21,6,0)="The standard setting for this field is N."
^DD(800,6,"DT")="3010802"
^DD(800,7,0)="INITIAL MST SYNCH COMP DATE^D^^MST;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(800,7,21,0)="^.001^1^1^3050113^^^"
^DD(800,7,21,1,0)="This is the date and time the initial MST synchronization was completed."
^DD(800,7,"DT")="3010904"
^DD(800,8,0)="INITIAL MST SYNCH UPDATE COUNT^NJ7,0^^MST;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(800,8,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(800,8,21,0)="^.001^2^2^3050113^^"
^DD(800,8,21,1,0)="This is the number of updates that were made during the initial"
^DD(800,8,21,2,0)="synchronization."
^DD(800,8,"DT")="3010904"
^DD(800,9,0)="DAILY MST SYNC COMP DATE^D^^MST;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(800,9,21,0)="^.001^1^1^3050113^^"
^DD(800,9,21,1,0)="This is the date and time the last daily MST synchronization was completed."
^DD(800,9,"DT")="3010904"
^DD(800,10,0)="DAILY MST SYNCH UPDATE COUNT^NJ7,0^^MST;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(800,10,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(800,10,21,0)="^.001^1^1^3050113^^^"
^DD(800,10,21,1,0)="This is the number of updates made during the last daily MST synchronization."
^DD(800,10,"DT")="3010904"
^DD(800,11,0)="INITIAL MST SYNCH START DATE^D^^MST;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(800,11,21,0)="^.001^2^2^3050113^^^"
^DD(800,11,21,1,0)="This is the date and time the initial Clinical Reminders MST"
^DD(800,11,21,2,0)="synchronization was set to run."
^DD(800,11,"DT")="3010904"
^DD(800,12,0)="DAILY MST SYNCH START DATE^D^^MST;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(800,12,21,0)="^.001^2^2^3050113^^"
^DD(800,12,21,1,0)="This is the date and time the last daily Clinical Reminders MST"
^DD(800,12,21,2,0)="synchronization was set to start."
^DD(800,12,"DT")="3010904"
^DD(800,13,0)="TRUNCATE EMPLOYEE SSN^S^Y:YES;N:NO;^TRUNCATE EMPLOYEE SSN;1^Q"
^DD(800,13,3)="Enter 'N' only if full employee SSN is required on reports."
^DD(800,13,21,0)="^.001^10^10^3050114^^^"
^DD(800,13,21,1,0)="The detailed reminders due report has the option to print the full SSN for"
^DD(800,13,21,2,0)="the patients selected (see FULL SSN field). However, if a patient is an"
^DD(800,13,21,3,0)="employee (fields 361 and 391 in PATIENT file) the SSN will be truncated."
^DD(800,13,21,4,0)=" "
^DD(800,13,21,5,0)="If a site, for their own reasons, requires the full SSN for employees to"
^DD(800,13,21,6,0)="be printed on their reports then this may be done by setting the TRUNCATE"
^DD(800,13,21,7,0)="EMPLOYEE SSN field to 'No'."
^DD(800,13,21,8,0)=" "
^DD(800,13,21,9,0)="The default value installed for this field is 'Yes'. This ensures that "
^DD(800,13,21,10,0)="full employee SSNs are not printed on the report. "
^DD(800,13,"DT")="3011205"
^DD(800,14,0)="EDIT HISTORY COUNT^NJ3,0^^EDIT HISTORY COUNT;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(800,14,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(800,14,21,0)="^.001^5^5^3050113^^"
^DD(800,14,21,1,0)="The option PXRM REMINDER EDIT HISTORY is used to display the edit"
^DD(800,14,21,2,0)="history of a reminder definition from newest to oldest. One of the"
^DD(800,14,21,3,0)="questions it asks the user is how many entries to display. This"
^DD(800,14,21,4,0)="parameter sets the default number to display. The user can override"
^DD(800,14,21,5,0)="this and select any number they want."
^DD(800,14,"DT")="3011218"
^DD(800,15,0)="MAXIMUM NUMBER OF INDEX ERRORS^NJ8,0^^MIERR;1^K:+X'=X!(X>10000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(800,15,3)="Type a Number between 1 and 10000000, 0 Decimal Digits"
^DD(800,15,21,0)="^.001^5^5^3050113^^^"
^DD(800,15,21,1,0)="When indexing a global, details about entries that cannot be indexed"
^DD(800,15,21,2,0)="are reported in a MailMan message that uses a line for each error. If"
^DD(800,15,21,3,0)="there are large numbers of errors the message can become very large."
^DD(800,15,21,4,0)="This parameter establishes the maximum number of entries to list in the"
^DD(800,15,21,5,0)="MailMan message so its size does not become unwieldy."
^DD(800,15,"DT")="3031217"
^DD(800,16,0)="FORMATTED DISCLAIMER^800.016^^DISCF;0"
^DD(800,16,21,0)="^.001^13^13^3051018^^"
^DD(800,16,21,1,0)="This file contains two fields to store a disclaimer: DEFAULT"
^DD(800,16,21,2,0)="REMINDER DISCLAIMER and SITE REMINDER DISCLAIMER. The DEFAULT"
^DD(800,16,21,3,0)="REMINDER DISCLAIMER is distributed with the package. A site"
^DD(800,16,21,4,0)="can create and store their own disclaimer in the SITE REMINDER"
^DD(800,16,21,5,0)="DISCLAIMER field. If the SITE REMINDER DISCLAIMER is defined it is"
^DD(800,16,21,6,0)="used otherwise the DEFAULT REMINDER DISCLAIMER is used."
^DD(800,16,21,7,0)=""
^DD(800,16,21,8,0)="The disclaimer needs to be formatted before it can be displayed so"
^DD(800,16,21,9,0)="for efficiency purposes the disclaimer is formatted once and stored"
^DD(800,16,21,10,0)="in this field. The formatting takes place whenever the SITE REMINDER"
^DD(800,16,21,11,0)="DISCLAIMER is edited or deleted."
^DD(800,16,21,12,0)=""
^DD(800,16,21,13,0)=""
^DD(800,17,0)="MAXIMUM NUMBER OF MH QUESTIONS^NJ3,0^^MH;1^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(800,17,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(800,17,21,0)="^.001^7^7^3071004^^^"
^DD(800,17,21,1,0)="When setting up a reminder dialog element, if a mental health test"
^DD(800,17,21,2,0)="has more questions then the value defined in this field the"
^DD(800,17,21,3,0)="test cannot be used in a dialog element. When PXRM*2.0*6 is"
^DD(800,17,21,4,0)="installed the value will be set to 35. This parameter can be edited"
^DD(800,17,21,5,0)="using the PAR option on the Reminders Managers Menu."
^DD(800,17,21,6,0)=""
^DD(800,17,21,7,0)=""
^DD(800,17,"DT")="3071003"
^DD(800,"B","DAILY MST SYNC COMP DATE",9)=""
^DD(800,"B","DAILY MST SYNCH START DATE",12)=""
^DD(800,"B","DAILY MST SYNCH UPDATE COUNT",10)=""
^DD(800,"B","DEFAULT REMINDER DISCLAIMER",1)=""
^DD(800,"B","EDIT HISTORY COUNT",14)=""
^DD(800,"B","FORMATTED DISCLAIMER",16)=""
^DD(800,"B","FULL SSN",6)=""
^DD(800,"B","INITIAL MST SYNCH COMP DATE",7)=""
^DD(800,"B","INITIAL MST SYNCH START DATE",11)=""
^DD(800,"B","INITIAL MST SYNCH UPDATE COUNT",8)=""
^DD(800,"B","MAXIMUM NUMBER OF INDEX ERRORS",15)=""
^DD(800,"B","MAXIMUM NUMBER OF MH QUESTIONS",17)=""
^DD(800,"B","REMINDER MANAGEMENT MAILGROUP",3)=""
^DD(800,"B","SITE PARAMETERS",.01)=""
^DD(800,"B","SITE REMINDER DISCLAIMER",2)=""
^DD(800,"B","TRUNCATE EMPLOYEE SSN",13)=""
^DD(800,"B","VERSION",5)=""
^DD(800,"B","WEB SITES",4)=""
^DD(800,"GL",0,1,.01)=""
^DD(800,"GL",1,0,4)=""
^DD(800,"GL","DISC1",0,1)=""
^DD(800,"GL","DISC2",0,2)=""
^DD(800,"GL","DISCF",0,16)=""
^DD(800,"GL","EDIT HISTORY COUNT",1,14)=""
^DD(800,"GL","FULL SSN",1,6)=""
^DD(800,"GL","MGFE",1,3)=""
^DD(800,"GL","MH",1,17)=""
^DD(800,"GL","MIERR",1,15)=""
^DD(800,"GL","MST",1,7)=""
^DD(800,"GL","MST",2,8)=""
^DD(800,"GL","MST",3,9)=""
^DD(800,"GL","MST",4,10)=""
^DD(800,"GL","MST",5,11)=""
^DD(800,"GL","MST",6,12)=""
^DD(800,"GL","TRUNCATE EMPLOYEE SSN",1,13)=""
^DD(800,"GL","VERSION",1,5)=""
^DD(800,"IX",.01)=""
^DD(800,"RQ",.01)=""
^DD(800,"SB",800.01,1)=""
^DD(800,"SB",800.016,16)=""
^DD(800,"SB",800.02,2)=""
^DD(800,"SB",800.04,4)=""
^DD(800.01,0)="DEFAULT REMINDER DISCLAIMER SUB-FIELD^^.01^1"
^DD(800.01,0,"DT")="2990209"
^DD(800.01,0,"NM","DEFAULT REMINDER DISCLAIMER")=""
^DD(800.01,0,"UP")="800"
^DD(800.01,.01,0)="DEFAULT REMINDER DISCLAIMER^W^^0;1^Q"
^DD(800.01,.01,3)="Do not edit the default disclaimer."
^DD(800.01,.01,"DT")="2990209"
^DD(800.01,"B","DEFAULT REMINDER DISCLAIMER",.01)=""
^DD(800.01,"GL",0,1,.01)=""
^DD(800.016,0)="FORMATTED DISCLAIMER SUB-FIELD^^.01^1"
^DD(800.016,0,"DT")="3050614"
^DD(800.016,0,"NM","FORMATTED DISCLAIMER")=""
^DD(800.016,0,"UP")="800"
^DD(800.016,.01,0)="FORMATTED DISCLAIMER^WL^^0;1^Q"
^DD(800.016,.01,21,0)="^.001^5^5^3051018^^"
^DD(800.016,.01,21,1,0)="This word processing field contains the formatted reminder"
^DD(800.016,.01,21,2,0)="disclaimer. If the site disclaimer exists the formatted version of"
^DD(800.016,.01,21,3,0)="it is stored here and if it does not exist then the formatted"
^DD(800.016,.01,21,4,0)="version of the default disclaimer is stored here."
^DD(800.016,.01,21,5,0)=""
^DD(800.016,.01,"DT")="3050614"
^DD(800.016,"B","FORMATTED DISCLAIMER",.01)=""
^DD(800.016,"GL",0,1,.01)=""
^DD(800.02,0)="SITE REMINDER DISCLAIMER SUB-FIELD^^.01^1"
^DD(800.02,0,"DT")="2990209"
^DD(800.02,0,"NM","SITE REMINDER DISCLAIMER")=""
^DD(800.02,0,"UP")="800"
^DD(800.02,.01,0)="SITE REMINDER DISCLAIMER^W^^0;1^Q"
^DD(800.02,.01,3)="Enter the site-defined reminder disclaimer."
^DD(800.02,.01,21,0)="^.001^1^1^3050120^^^^"
^DD(800.02,.01,21,1,0)="This is the site-defined reminder disclaimer."
^DD(800.02,.01,"DT")="2990209"
^DD(800.02,"B","SITE REMINDER DISCLAIMER",.01)=""
^DD(800.02,"GL",0,1,.01)=""
^DD(800.04,0)="WEB SITES SUB-FIELD^^1^3"
^DD(800.04,0,"DT")="2991130"
^DD(800.04,0,"IX","B",800.04,.01)=""
^DD(800.04,0,"NM","WEB SITES")=""
^DD(800.04,0,"UP")="800"
^DD(800.04,.01,0)="URL^MF^^0;1^K:$L(X)>128!($L(X)<1) X"
^DD(800.04,.01,1,0)="^.1"
^DD(800.04,.01,1,1,0)="800.04^B"
^DD(800.04,.01,1,1,1)="S ^PXRM(800,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(800.04,.01,1,1,2)="K ^PXRM(800,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(800.04,.01,3)="Enter the URL for the web site."
^DD(800.04,.01,21,0)="^.001^1^1^3050113^^^^"
^DD(800.04,.01,21,1,0)="This is the URL for the web site."
^DD(800.04,.01,"DT")="2991129"
^DD(800.04,.02,0)="WEB SITE TITLE^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(800.04,.02,3)="Enter the web site title, up to 60 characters."
^DD(800.04,.02,21,0)="^.001^3^3^3050120^^^"
^DD(800.04,.02,21,1,0)="This is the WEB SITE TITLE. This field is optional. If entered, this will "
^DD(800.04,.02,21,2,0)="display in the 'Reference Information' window of CPRS GUI instead of the "
^DD(800.04,.02,21,3,0)="full URL."
^DD(800.04,.02,"DT")="3020719"
^DD(800.04,1,0)="WEB SITE DESCRIPTION^800.41^^1;0"
^DD(800.04,1,21,0)="^.001^3^3^3050113^^"
^DD(800.04,1,21,1,0)="This is a description of the web site. It can be used to explain why"
^DD(800.04,1,21,2,0)="the particular site is included. It is for reference information only"
^DD(800.04,1,21,3,0)="and not displayed to the user."
^DD(800.04,"B","URL",.01)=""
^DD(800.04,"B","WEB SITE DESCRIPTION",1)=""
^DD(800.04,"B","WEB SITE TITLE",.02)=""
^DD(800.04,"GL",0,1,.01)=""
^DD(800.04,"GL",0,2,.02)=""
^DD(800.04,"GL",1,0,1)=""
^DD(800.04,"IX",.01)=""
^DD(800.04,"SB",800.41,1)=""
^DD(800.41,0)="WEB SITE DESCRIPTION SUB-FIELD^^.01^1"
^DD(800.41,0,"DT")="2991130"
^DD(800.41,0,"NM","WEB SITE DESCRIPTION")=""
^DD(800.41,0,"UP")="800.04"
^DD(800.41,.01,0)="WEB SITE DESCRIPTION^W^^0;1^Q"
^DD(800.41,.01,3)="Enter the web site description."
^DD(800.41,.01,21,0)="^.001^2^2^3050113^^^"
^DD(800.41,.01,21,1,0)="This is the web site description. It is used to give more information"
^DD(800.41,.01,21,2,0)="about why this web site is relevant for clinical reminders."
^DD(800.41,.01,"DT")="2991130"
^DD(800.41,"B","WEB SITE DESCRIPTION",.01)=""
^DD(800.41,"GL",0,1,.01)=""
^DD(801.41,0)="FIELD^^120^42"
^DD(801.41,0,"DDA")="N"
^DD(801.41,0,"DT")="3071004"
^DD(801.41,0,"ID",4)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(801.41,4,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(801.41,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(801.41,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(801.41,0,"IX","AC",801.41,111)=""
^DD(801.41,0,"IX","AD",801.412,2)=""
^DD(801.41,0,"IX","AG",801.41,2)=""
^DD(801.41,0,"IX","TYPE",801.41,4)=""
^DD(801.41,0,"NM","REMINDER DIALOG")=""
^DD(801.41,0,"PT",801.41,118)=""
^DD(801.41,0,"PT",801.41121,.01)=""
^DD(801.41,0,"PT",801.412,2)=""
^DD(801.41,0,"PT",801.422,.01)=""
^DD(801.41,0,"PT",801.43,.04)=""
^DD(801.41,0,"PT",801.4515,.01)=""
^DD(801.41,0,"PT",811.9,51)=""
^DD(801.41,0,"PT",8927,.15)=""
^DD(801.41,0,"VR")="2.0"
^DD(801.41,0,"VRPK")="PXRM"
^DD(801.41,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>63!($L(X)<3)!'$$VNAME^PXRMINTR(X,801.41)!'(X'?1P.E) X"
^DD(801.41,.01,.1)=""
^DD(801.41,.01,1,0)="^.1^^0"
^DD(801.41,.01,3)="Enter up to a 63 character name to represent this dialog entry."
^DD(801.41,.01,21,0)="^.001^23^23^3050114^^^^"
^DD(801.41,.01,21,1,0)="This is the name of the dialog entry. "
^DD(801.41,.01,21,2,0)=""
^DD(801.41,.01,21,3,0)="Dialogs that are auto-generated from a reminder will default to the name of "
^DD(801.41,.01,21,4,0)="the reminder for ease in identifying the reminder dialog entry. Dialog "
^DD(801.41,.01,21,5,0)="elements that are auto-generated use the following naming convention:  "
^DD(801.41,.01,21,6,0)="Finding type prefix_ _Name from finding file_ _Resolution Status. Examples "
^DD(801.41,.01,21,7,0)="of two dialog element entry names generated from an Exam file entry for "
^DD(801.41,.01,21,8,0)="DIABETIC EYE EXAM follow.  "
^DD(801.41,.01,21,9,0)=""
^DD(801.41,.01,21,10,0)="EX DIABETIC EYE EXAM DONE "
^DD(801.41,.01,21,11,0)="EX DIABETIC EYE EXAM DONE ELSEWHERE "
^DD(801.41,.01,21,12,0)="                                 "
^DD(801.41,.01,21,13,0)="Any item created locally can use any type of naming convention. Your site "
^DD(801.41,.01,21,14,0)="may want to create special namespacing for dialog entries that you create "
^DD(801.41,.01,21,15,0)="locally. "
^DD(801.41,.01,21,16,0)=""
^DD(801.41,.01,21,17,0)="Entries prefixed with PXRM are prompts, result groups, and result elements "
^DD(801.41,.01,21,18,0)="that were distributed with the Clinical Reminders package. The PXRM-prefixed "
^DD(801.41,.01,21,19,0)="prompts are the additional prompts that can be asked for particular types of "
^DD(801.41,.01,21,20,0)="PCE findings and WH Notification Purpose. For example: PXRM COMMENT can be "
^DD(801.41,.01,21,21,0)="added to any PCE file to allow the user to enter an additional COMMENT "
^DD(801.41,.01,21,22,0)="beyond the dialog element's progress note text, and the PXRM LEVEL OF "
^DD(801.41,.01,21,23,0)="UNDERSTANDING can only be used with PCE Education Topic findings.  "
^DD(801.41,.01,"DEL",1,0)="I +$G(PXRMEXCH)=0,$D(^PXRMD(801.41,""AD"",DA)) D EN^DDIOL($C(7)_""IN USE - CANNOT BE DELETED"")"
^DD(801.41,.01,"DT")="3040824"
^DD(801.41,2,0)="SOURCE REMINDER^P811.9'^PXD(811.9,^0;2^Q"
^DD(801.41,2,1,0)="^.1"
^DD(801.41,2,1,1,0)="801.41^AG"
^DD(801.41,2,1,1,1)="S ^PXRMD(801.41,""AG"",$E(X,1,30),DA)="""""
^DD(801.41,2,1,1,2)="K ^PXRMD(801.41,""AG"",$E(X,1,30),DA)"
^DD(801.41,2,1,1,"%D",0)="^^1^1^2991217^"
^DD(801.41,2,1,1,"%D",1,0)="Index of dialogs by source reminder."
^DD(801.41,2,1,1,"DT")="2991217"
^DD(801.41,2,3)="Enter the associated reminder for this reminder dialog."
^DD(801.41,2,21,0)="^.001^3^3^3010302^^"
^DD(801.41,2,21,1,0)="This identifies which reminder definition is associated with this"
^DD(801.41,2,21,2,0)="""Reminder Dialog"" entry.  ""Reminder Dialog"" type entries are the only"
^DD(801.41,2,21,3,0)="entries that require this field."
^DD(801.41,2,"DT")="2991217"
^DD(801.41,3,0)="DISABLE^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(801.41,3,3)="Enter a message here to disable this dialog, 1-40 characters in length."
^DD(801.41,3,21,0)="^.001^3^3^3010302^^^^"
^DD(801.41,3,21,1,0)="This field disables use of this dialog when it contains text. The text"
^DD(801.41,3,21,2,0)="should be a short message explaining why use of this dialog has been"
^DD(801.41,3,21,3,0)="disabled, as it will be displayed if this dialog is selected."
^DD(801.41,3,"DT")="2950112"
^DD(801.41,4,0)="TYPE^RS^P:prompt;E:dialog element;R:reminder dialog;F:forced value;G:dialog group;S:result group;T:result element;^0;4^Q"
^DD(801.41,4,1,0)="^.1"
^DD(801.41,4,1,1,0)="801.41^TYPE"
^DD(801.41,4,1,1,1)="S ^PXRMD(801.41,""TYPE"",$E(X,1,30),DA)="""""
^DD(801.41,4,1,1,2)="K ^PXRMD(801.41,""TYPE"",$E(X,1,30),DA)"
^DD(801.41,4,1,1,"DT")="3070502"
^DD(801.41,4,3)="Specify a type for this entry."
^DD(801.41,4,21,0)="80"
^DD(801.41,4,21,1,0)="This field defines what type of dialog component this entry is. The"
^DD(801.41,4,21,2,0)="type determines the processing that can occur with this entry. "
^DD(801.41,4,21,3,0)=" "
^DD(801.41,4,21,4,0)="Reminder dialogs are the dialog entries that can be mapped to a"
^DD(801.41,4,21,5,0)="reminder definition. Reminder dialogs will typically contain several"
^DD(801.41,4,21,6,0)="dialog elements and/or dialog groups. "
^DD(801.41,4,21,7,0)=" "
^DD(801.41,4,21,8,0)="Dialog elements that are auto-generated represent a finding item and"
^DD(801.41,4,21,9,0)="resolution status combination, based on the Finding Type Parameters for"
^DD(801.41,4,21,10,0)="auto-generation. The dialog elements can be defined manually if"
^DD(801.41,4,21,11,0)="needed. Dialog elements must have the FINDING ITEM field defined in"
^DD(801.41,4,21,12,0)="order to cause the finding to be updated automatically. When no"
^DD(801.41,4,21,13,0)="finding item is defined, the dialog element is treated as a header or"
^DD(801.41,4,21,14,0)="instruction text in the CPRS GUI. Sites can also add Additional Finding"
^DD(801.41,4,21,15,0)="items to automatically update when a dialog element is checked off. An"
^DD(801.41,4,21,16,0)="example of using the additional finding would be for a dialog element"
^DD(801.41,4,21,17,0)="for a diagnosis, that must always be recorded with a second diagnosis."
^DD(801.41,4,21,18,0)="Another example is when an Exam or Education Topic dialog element"
^DD(801.41,4,21,19,0)="checked off should automatically add an additional ICD9 and/or CPT"
^DD(801.41,4,21,20,0)="finding to PCE."
^DD(801.41,4,21,21,0)=" "
^DD(801.41,4,21,22,0)="Dialog elements will use the DIALOG/PROGRESS NOTE TEXT to display in"
^DD(801.41,4,21,23,0)="the CPRS GUI window. This text will also be added to the progress note,"
^DD(801.41,4,21,24,0)="unless the optional ALTERNATE PROGRESS NOTE TEXT field is defined. If"
^DD(801.41,4,21,25,0)="the dialog text to display to the user needs to be different from the"
^DD(801.41,4,21,26,0)="text to add to the progress note, use the ALTERNATE PROGRESS NOTE TEXT"
^DD(801.41,4,21,27,0)="field to define the progress note text."
^DD(801.41,4,21,28,0)=" "
^DD(801.41,4,21,29,0)="Dialog Groups can be used to group dialog elements together. Groups"
^DD(801.41,4,21,30,0)="can be displayed with a box around them and have selection rules"
^DD(801.41,4,21,31,0)="applied to them (e.g., select one, one or more)  A dialog element can"
^DD(801.41,4,21,32,0)="be changed to a dialog group by changing its TYPE."
^DD(801.41,4,21,33,0)="Prompts are distributed in the PXRM namespace to represent additional"
^DD(801.41,4,21,34,0)="fields that the user can enter when an element is checked off. Prompts"
^DD(801.41,4,21,35,0)="are added to dialog elements during auto-generation based on the"
^DD(801.41,4,21,36,0)="finding type parameters. The PXRM COMMENT field is a generic comment"
^DD(801.41,4,21,37,0)="field that can be used on all PCE related finding items. Dialog"
^DD(801.41,4,21,38,0)="elements for ""DONE ELSEWHERE"" need to require the historical visit date"
^DD(801.41,4,21,39,0)="prompt. The forced value is similar to a prompt, except it represents"
^DD(801.41,4,21,40,0)="a stuffed prompt which doesn't need to be presented to answer. The PXRM"
^DD(801.41,4,21,41,0)="prompts can be copied for local modification to create additional"
^DD(801.41,4,21,42,0)="forced value entries if necessary."
^DD(801.41,4,21,43,0)=" "
^DD(801.41,4,21,44,0)="Prompts created locally (not copies of PXRM prompts) are treated as"
^DD(801.41,4,21,45,0)="display text with checkboxes, which, when checked off, add text to a"
^DD(801.41,4,21,46,0)="comment field which is added to the progress note text. Refer to these"
^DD(801.41,4,21,47,0)="as Local Comment Prompts."
^DD(801.41,4,21,48,0)=" "
^DD(801.41,4,21,49,0)="Result Groups and Result Elements are distributed in the PXRM namespace"
^DD(801.41,4,21,50,0)="and are associated with Mental Health Instrument finding items during"
^DD(801.41,4,21,51,0)="auto-generation of a reminder dialog. When the mental health instrument"
^DD(801.41,4,21,52,0)="finding item dialog element is selected by the CPRS GUI user, a window"
^DD(801.41,4,21,53,0)="will be opened which contains the test's questions and probable answers."
^DD(801.41,4,21,54,0)="The selected answers are sent to the mental health package when the"
^DD(801.41,4,21,55,0)="user selects OK. The mental health package returns the score and"
^DD(801.41,4,21,56,0)="results which can be used within sentences. These sentences are defined"
^DD(801.41,4,21,57,0)="as Result Elements, and can vary depending on the test score. If"
^DD(801.41,4,21,58,0)="multiple sentences are possible depending on the score, the result"
^DD(801.41,4,21,59,0)="elements should be defined in a result group. The result group should"
^DD(801.41,4,21,60,0)="be added to the mental health test's dialog elements RESULT"
^DD(801.41,4,21,61,0)="GROUP/ELEMENT field. Mental Health tests for use by Mental Health"
^DD(801.41,4,21,62,0)="clinicians only are not available for CPRS reminder resolution."
^DD(801.41,4,21,63,0)=" "
^DD(801.41,4,21,64,0)="A reminder dialog can be made into a dialog group and added to another"
^DD(801.41,4,21,65,0)="reminder's dialog. This allows multiple reminders to be addressed by"
^DD(801.41,4,21,66,0)="one reminder dialog."
^DD(801.41,4,21,67,0)=" "
^DD(801.41,4,21,68,0)="Reminder Dialogs can include dialog elements that don't have anything"
^DD(801.41,4,21,69,0)="to do with the findings defined in the reminder."
^DD(801.41,4,21,70,0)=" "
^DD(801.41,4,21,71,0)="Taxonomy dialogs are auto-generated based on the Taxonomy Dialog"
^DD(801.41,4,21,72,0)="Parameters. The taxonomy dialog can be used as a black box that allows"
^DD(801.41,4,21,73,0)="the users to enter current or historical encounter diagnoses or"
^DD(801.41,4,21,74,0)="procedures, based on the selectable list of diagnosis parameters. "
^DD(801.41,4,21,75,0)="Alternatively, a taxonomy can have individual dialog elements created"
^DD(801.41,4,21,76,0)="for each coded value in the selectable list of diagnoses and"
^DD(801.41,4,21,77,0)="procedures. It may be more useful for sites to create dialog elements"
^DD(801.41,4,21,78,0)="for the common diagnoses and procedures they actively use and add them"
^DD(801.41,4,21,79,0)="to groups, similar to the encounter form section and coded value"
^DD(801.41,4,21,80,0)="groupings."
^DD(801.41,4,"DT")="3070502"
^DD(801.41,5,0)="CAPTION^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(801.41,5,3)="Enter a caption to use for this component."
^DD(801.41,5,21,0)="^.001^7^7^3010302^^"
^DD(801.41,5,21,1,0)="The caption is used for prompt, dialog group, and reminder components."
^DD(801.41,5,21,2,0)="When a prompt has a caption defined, this is the text that should be"
^DD(801.41,5,21,3,0)="used whenever the prompt is asked (e.g., Comment:). A dialog group can"
^DD(801.41,5,21,4,0)="use the caption field to specify a header to use on a box around the"
^DD(801.41,5,21,5,0)="group of dialog elements. The reminder dialog component can use the"
^DD(801.41,5,21,6,0)="caption to specify a header to use on a box around the the dialog"
^DD(801.41,5,21,7,0)="elements for a reminder."
^DD(801.41,5,"DT")="2990923"
^DD(801.41,6,0)="BOX^S^Y:YES;N:NO;^0;6^Q"
^DD(801.41,6,3)="Enter Y to add a box around the components."
^DD(801.41,6,21,0)="^.001^3^3^3040823^^^"
^DD(801.41,6,21,1,0)="This flag will be used to determine whether the components will be"
^DD(801.41,6,21,2,0)="presented to the user in a box. If the caption field is defined, it"
^DD(801.41,6,21,3,0)="will appear as header text in the top line of the box."
^DD(801.41,6,"DT")="3040823"
^DD(801.41,7,0)="NUMBER OF INDENTS^NJ1,0^^0;7^K:+X'=X!(X>4)!(X<0)!(X?.E1"".""1N.N) X"
^DD(801.41,7,3)="Enter the number of indents required (between 0 and 4)."
^DD(801.41,7,21,0)="^.001^2^2^3010302^^^"
^DD(801.41,7,21,1,0)="This is the number of indents that should be made before presenting the"
^DD(801.41,7,21,2,0)="group's components/elements. Indent is used only for dialog groups."
^DD(801.41,7,"DT")="2990923"
^DD(801.41,8,0)="SHARE COMMON PROMPTS^S^1:YES;0:NO;^0;8^Q"
^DD(801.41,8,3)="Enter No if the common prompts must be prompted for each dialog element separately."
^DD(801.41,8,21,0)="^.001^3^3^3010302^^^"
^DD(801.41,8,21,1,0)="This field is used only for a dialog group where different dialog"
^DD(801.41,8,21,2,0)="elements have common prompts. Prompts will be shared for all dialog"
^DD(801.41,8,21,3,0)="elements unless otherwise selected."
^DD(801.41,8,"DT")="2991124"
^DD(801.41,9,0)="GROUP ENTRY^SX^1:ONE SELECTION ONLY;2:ONE OR MORE SELECTIONS;3:NONE OR ONE SELECTION;4:ALL SELECTIONS ARE REQUIRED;0:NO SELECTION REQUIRED;^0;9^I '$$MSEL^PXRMDLG5(X) K X Q"
^DD(801.41,9,3)="Enter 1 for one selection only. Enter 2 for one or more. Enter 3 for none or one selection. Enter 4 to require all selections. Enter 0 for no selection required."
^DD(801.41,9,21,0)="^.001^8^8^3060517^^^"
^DD(801.41,9,21,1,0)="Used for dialog groups only."
^DD(801.41,9,21,2,0)=" "
^DD(801.41,9,21,3,0)="1 indicates that only one element in the dialog group may be selected."
^DD(801.41,9,21,4,0)="2 indicates that one or more elements must be selected."
^DD(801.41,9,21,5,0)="3 indicates that either none or one selection is required."
^DD(801.41,9,21,6,0)="4 indicates all selections are required."
^DD(801.41,9,21,7,0)="0 or null indicates no selection required."
^DD(801.41,9,21,8,0)=""
^DD(801.41,9,"DT")="3060517"
^DD(801.41,10,0)="COMPONENTS^801.412IA^^10;0"
^DD(801.41,10,21,0)="^.001^7^7^3050114^^^^"
^DD(801.41,10,21,1,0)="This field contains the components that are used to process a"
^DD(801.41,10,21,2,0)="reminder.  Generally the components relate to the TYPE of entry in the"
^DD(801.41,10,21,3,0)="Reminder Dialog File:"
^DD(801.41,10,21,4,0)=" "
^DD(801.41,10,21,5,0)="     Reminder dialogs have dialog group or dialog element components."
^DD(801.41,10,21,6,0)="     Dialog groups have a combination of dialog element components."
^DD(801.41,10,21,7,0)="     Dialog elements have prompt and forced value components."
^DD(801.41,10,"DT")="2990923"
^DD(801.41,13,0)="RESOLUTION TYPE^P801.9'^PXRMD(801.9,^1;3^Q"
^DD(801.41,13,3)="Enter the resolution status to use when this item is selected."
^DD(801.41,13,21,0)="^^2^2^2990628^"
^DD(801.41,13,21,1,0)="This field contains what type of resolution is represented by this"
^DD(801.41,13,21,2,0)="dialog entry."
^DD(801.41,13,"DT")="2990628"
^DD(801.41,14,0)="FINDING TYPE^P801.45'^PXRMD(801.45,^1;4^Q"
^DD(801.41,14,3)="Enter finding type if the additional prompt is intended for use with only one type of finding item."
^DD(801.41,14,21,0)="^^17^17^3050114^"
^DD(801.41,14,21,1,0)="1f an additional prompt is restricted to use with only one type of"
^DD(801.41,14,21,2,0)="finding item this field contains the mnemonic of the finding type. The"
^DD(801.41,14,21,3,0)="mnemonics allowed are:"
^DD(801.41,14,21,4,0)=" "
^DD(801.41,14,21,5,0)="   CPT  Procedure      "
^DD(801.41,14,21,6,0)="   ED   Education Topic"
^DD(801.41,14,21,7,0)="   EX   Exam"
^DD(801.41,14,21,8,0)="   HF   Health Factor"
^DD(801.41,14,21,9,0)="   IM   Immunization"
^DD(801.41,14,21,10,0)="   OI   Orderable Item"
^DD(801.41,14,21,11,0)="   POV  Diagnosis (ICD9) "
^DD(801.41,14,21,12,0)="   ST   Skin Test"
^DD(801.41,14,21,13,0)="   VM   Vital Measurement"
^DD(801.41,14,21,14,0)="   WH   WH Notification Purpose"
^DD(801.41,14,21,15,0)=" "
^DD(801.41,14,21,16,0)="(e.g. PXRM Contraindicated is restricted to IMMUNIZATION, "
^DD(801.41,14,21,17,0)="finding type IM)"
^DD(801.41,14,"DT")="3040823"
^DD(801.41,15,0)="FINDING ITEM^V^^1;5^Q"
^DD(801.41,15,3)="Enter the finding item for this dialog element."
^DD(801.41,15,21,0)="^.001^3^3^3061212^^^^"
^DD(801.41,15,21,1,0)="This is the finding item that should be created if the dialog"
^DD(801.41,15,21,2,0)="element/group is checked in CPRS. Additional findings may be entered"
^DD(801.41,15,21,3,0)="into the additional findings field."
^DD(801.41,15,"DT")="3000503"
^DD(801.41,15,"V",0)="^.12P^12^12"
^DD(801.41,15,"V",1,0)="9999999.09^EDUCATION TOPICS^5^ED^n^n"
^DD(801.41,15,"V",2,0)="9999999.14^IMMUNIZATION^10^IM^n^n"
^DD(801.41,15,"V",3,0)="9999999.28^SKIN TEST^15^ST^n^n"
^DD(801.41,15,"V",4,0)="9999999.15^EXAM^20^EX^n^n"
^DD(801.41,15,"V",5,0)="9999999.64^HEALTH FACTOR^25^HF^y^n"
^DD(801.41,15,"V",5,1)="S DIC(""S"")=""I $P(^(0),U,10)'=""""C"""""""
^DD(801.41,15,"V",5,2)="IGNORE CATEGORIES"
^DD(801.41,15,"V",6,0)="81^PROCEDURE^30^CPT^n^n"
^DD(801.41,15,"V",7,0)="80^ICD9 DIAGNOSIS^35^ICD9^n^n"
^DD(801.41,15,"V",8,0)="120.51^VITAL TYPE^40^VM^^n"
^DD(801.41,15,"V",9,0)="811.2^TAXONOMY^45^TX^^n"
^DD(801.41,15,"V",10,0)="101.41^ORDER DIALOG^50^Q^^n"
^DD(801.41,15,"V",11,0)="601.71^MENTAL HEALTH^55^MH^y^n"
^DD(801.41,15,"V",11,1)="S DIC(""S"")=""I $$MH^PXRMDLG5(Y)=1"""
^DD(801.41,15,"V",11,2)="Check to see if the MH test exceeds the maxinum numbers of questions defined in file 800"
^DD(801.41,15,"V",12,0)="790.404^WH NOTIFICATION PURPOSE^60^WH^n^n"
^DD(801.41,15,"V","B",80,7)=""
^DD(801.41,15,"V","B",81,6)=""
^DD(801.41,15,"V","B",101.41,10)=""
^DD(801.41,15,"V","B",120.51,8)=""
^DD(801.41,15,"V","B",601.71,11)=""
^DD(801.41,15,"V","B",790.404,12)=""
^DD(801.41,15,"V","B",811.2,9)=""
^DD(801.41,15,"V","B",9999999.09,1)=""
^DD(801.41,15,"V","B",9999999.14,2)=""
^DD(801.41,15,"V","B",9999999.15,4)=""
^DD(801.41,15,"V","B",9999999.28,3)=""
^DD(801.41,15,"V","B",9999999.64,5)=""
^DD(801.41,15,"V","M","EDUCATION TOPICS",1)=""
^DD(801.41,15,"V","M","EXAM",4)=""
^DD(801.41,15,"V","M","HEALTH FACTOR",5)=""
^DD(801.41,15,"V","M","ICD9 DIAGNOSIS",7)=""
^DD(801.41,15,"V","M","IMMUNIZATION",2)=""
^DD(801.41,15,"V","M","MENTAL HEALTH",11)=""
^DD(801.41,15,"V","M","ORDER DIALOG",10)=""
^DD(801.41,15,"V","M","PROCEDURE",6)=""
^DD(801.41,15,"V","M","SKIN TEST",3)=""
^DD(801.41,15,"V","M","TAXONOMY",9)=""
^DD(801.41,15,"V","M","VITAL TYPE",8)=""
^DD(801.41,15,"V","M","WH NOTIFICATION PURPOSE",12)=""
^DD(801.41,15,"V","O",5,1)=""
^DD(801.41,15,"V","O",10,2)=""
^DD(801.41,15,"V","O",15,3)=""
^DD(801.41,15,"V","O",20,4)=""
^DD(801.41,15,"V","O",25,5)=""
^DD(801.41,15,"V","O",30,6)=""
^DD(801.41,15,"V","O",35,7)=""
^DD(801.41,15,"V","O",40,8)=""
^DD(801.41,15,"V","O",45,9)=""
^DD(801.41,15,"V","O",50,10)=""
^DD(801.41,15,"V","O",55,11)=""
^DD(801.41,15,"V","O",60,12)=""
^DD(801.41,15,"V","P","CPT",6)=""
^DD(801.41,15,"V","P","ED",1)=""
^DD(801.41,15,"V","P","EX",4)=""
^DD(801.41,15,"V","P","HF",5)=""
^DD(801.41,15,"V","P","ICD9",7)=""
^DD(801.41,15,"V","P","IM",2)=""
^DD(801.41,15,"V","P","MH",11)=""
^DD(801.41,15,"V","P","Q",10)=""
^DD(801.41,15,"V","P","ST",3)=""
^DD(801.41,15,"V","P","TX",9)=""
^DD(801.41,15,"V","P","VM",8)=""
^DD(801.41,15,"V","P","WH",12)=""
^DD(801.41,17,0)="ORDERABLE ITEM^P101.43'^ORD(101.43,^1;7^Q"
^DD(801.41,17,3)=""
^DD(801.41,17,21,0)="^^1^1^2991029^^"
^DD(801.41,17,21,1,0)="Orderable item from the reminder definition."
^DD(801.41,17,23,0)="^^1^1^2991029^^"
^DD(801.41,17,23,1,0)="This field is used only in the dialog display."
^DD(801.41,17,"DT")="2991029"
^DD(801.41,18,0)="ADDITIONAL FINDINGS^801.4118AV^^3;0"
^DD(801.41,21,0)="DEFAULT VALUE^F^^2;1^K:$L(X)>60!($L(X)<1) X"
^DD(801.41,21,3)="Answer must be 1-60 characters in length."
^DD(801.41,21,21,0)="^^8^8^3021213^"
^DD(801.41,21,21,1,0)="This is the default value for an additional prompt."
^DD(801.41,21,21,2,0)=" "
^DD(801.41,21,21,3,0)="If entering defaults for the PXRM VISIT DATE prompt (or copies) then the"
^DD(801.41,21,21,4,0)="following codes are available:"
^DD(801.41,21,21,5,0)=" "
^DD(801.41,21,21,6,0)="  0  - no year is initially set (forces required dates to be entered)."
^DD(801.41,21,21,7,0)="  M  - Month is required."
^DD(801.41,21,21,8,0)="  M0 - Month is required, no year initially set."
^DD(801.41,21,"DT")="3021213"
^DD(801.41,22,0)="FORCED VALUE^F^^2;2^K:$L(X)>60!($L(X)<1) X"
^DD(801.41,22,3)="Answer must be 1-60 characters in length."
^DD(801.41,22,21,0)="^^1^1^3000511^"
^DD(801.41,22,21,1,0)="This is the value that will be used for a forced value type dialog."
^DD(801.41,22,"DT")="2990714"
^DD(801.41,23,0)="EXCLUDE FROM PROGRESS NOTE^S^1:YES;0:NO;^2;3^Q"
^DD(801.41,23,3)="Enter Y to stop the question text being added to the progress note."
^DD(801.41,23,21,0)="^.001^2^2^3010302^^^^"
^DD(801.41,23,21,1,0)="This field indicates that the question text of the dialog element will"
^DD(801.41,23,21,2,0)="be excluded from the progress note."
^DD(801.41,23,"DT")="2991102"
^DD(801.41,24,0)="PROMPT CAPTION^F^^2;4^K:$L(X)>30!($L(X)<3) X"
^DD(801.41,24,3)="Enter a 3-30 character prompt caption."
^DD(801.41,24,21,0)="^.001^3^3^3040823^^^"
^DD(801.41,24,21,1,0)="This is the caption that will be used for this prompt.  This caption"
^DD(801.41,24,21,2,0)="can be overridden by the OVERRIDE PROMPT CAPTION field in the ITEMS"
^DD(801.41,24,21,3,0)="multiple, which can be more specific for the instance of the prompt."
^DD(801.41,24,"DT")="3040823"
^DD(801.41,25,0)="DIALOG/PROGRESS NOTE TEXT^801.4125^^25;0"
^DD(801.41,25,21,0)="^.001^2^2^3000511^^"
^DD(801.41,25,21,1,0)="This is the sentence text that will appear in the reminder dialog and"
^DD(801.41,25,21,2,0)="progress note."
^DD(801.41,25,"DT")="3000420"
^DD(801.41,35,0)="ALTERNATE PROGRESS NOTE TEXT^801.4135^^35;0"
^DD(801.41,35,21,0)="^.001^2^2^3000503^^^^"
^DD(801.41,35,21,1,0)="This field is only required if the text on the progress note differs"
^DD(801.41,35,21,2,0)="from the dialog text."
^DD(801.41,35,"DT")="3000503"
^DD(801.41,45,0)="CHECKBOX SEQUENCE^801.4145I^^45;0"
^DD(801.41,45,21,0)="^.001^2^2^3020617^^^^"
^DD(801.41,45,21,1,0)="Comment prompts (with a GUI Process ID of COM) may have a number"
^DD(801.41,45,21,2,0)="of checkboxes associated with the comment prompt."
^DD(801.41,45,"DT")="3010424"
^DD(801.41,46,0)="GUI PROCESS ID^P801.42'^PXRMD(801.42,^46;1^Q"
^DD(801.41,46,3)="Enter GUI Process ID for additional prompts and forced values."
^DD(801.41,46,21,0)="^^4^4^3040823^^"
^DD(801.41,46,21,1,0)="Additional prompts and forced values which update PCE should have a"
^DD(801.41,46,21,2,0)="GUI Process ID. If an additional prompt or forced value is created by"
^DD(801.41,46,21,3,0)="copying one of the PXRM prompts, the GUI Process ID field will automatically"
^DD(801.41,46,21,4,0)="be populated by the copy process."
^DD(801.41,46,"DT")="3040823"
^DD(801.41,50,0)="HIDE/SHOW GROUP^S^1:HIDE;0:SHOW;^0;10^Q"
^DD(801.41,50,3)="Enter HIDE or SHOW"
^DD(801.41,50,21,0)="^^4^4^2991124^"
^DD(801.41,50,21,1,0)="Used for dialog groups."
^DD(801.41,50,21,2,0)=" "
^DD(801.41,50,21,3,0)="1 indicates that the group will be hidden until checked"
^DD(801.41,50,21,4,0)="0 indicates that the group will be displayed "
^DD(801.41,50,"DT")="2991124"
^DD(801.41,51,0)="SUPPRESS CHECKBOX^S^1:SUPPRESS;^0;11^Q"
^DD(801.41,51,3)="Enter 1 if the WP text is for display only."
^DD(801.41,51,21,0)="^^10^10^3050114^"
^DD(801.41,51,21,1,0)="If the field is set to SUPPRESS, the dialog element or group header will"
^DD(801.41,51,21,2,0)="be displayed without a checkbox. Otherwise the WP text will be"
^DD(801.41,51,21,3,0)="presented with a checkbox."
^DD(801.41,51,21,4,0)=" "
^DD(801.41,51,21,5,0)="If the dialog element or group header has a finding item associated"
^DD(801.41,51,21,6,0)="with it the SUPPRESS CHECKBOX flag will be ignored."
^DD(801.41,51,21,7,0)=" "
^DD(801.41,51,21,8,0)="Also if the HIDE/SHOW GROUP field is set to hide, then the SUPPRESS"
^DD(801.41,51,21,9,0)="CHECKBOX field will be ignored (the group header question must be a"
^DD(801.41,51,21,10,0)="checkbox)."
^DD(801.41,51,"DT")="3040823"
^DD(801.41,52,0)="INDENT PROGRESS NOTE TEXT^S^1:INDENT;0:NO INDENT;^0;12^Q"
^DD(801.41,52,3)="Enter 1 if the progress note text should be indented. Enter 0 if no indent is required."
^DD(801.41,52,21,0)="^.001^2^2^3010302^^^^"
^DD(801.41,52,21,1,0)="In a dialog group the dialog questions may be indented. This field"
^DD(801.41,52,21,2,0)="allows the progress note text to be indented also."
^DD(801.41,52,"DT")="3000110"
^DD(801.41,53,0)="RESULT CONDITION^FXO^^0;13^K:($L(X)<3)!($L(X)>40)!('$$VCOND^PXRMCOND(X)) X"
^DD(801.41,53,2)="S Y(0)=Y S Y=$TR(Y,""~"","" "")"
^DD(801.41,53,2.1)="S Y=$TR(Y,""~"","" "")"
^DD(801.41,53,3)="Answer must be 3-40 characters in length."
^DD(801.41,53,21,0)="^.001^8^8^3070620^^^^"
^DD(801.41,53,21,1,0)="This field is used for dialog result elements only. The result"
^DD(801.41,53,21,2,0)="condition determines if the progress note text of the result element"
^DD(801.41,53,21,3,0)="will be included in the progress note e.g., I SCORE<2 will insert the"
^DD(801.41,53,21,4,0)="text in the progress note if the SCORE from the mental health test is"
^DD(801.41,53,21,5,0)="below 2."
^DD(801.41,53,21,6,0)=""
^DD(801.41,53,21,7,0)="Result Elements will only used the Raw Score returned from a MH test."
^DD(801.41,53,21,8,0)=""
^DD(801.41,53,"DT")="3070620"
^DD(801.41,54,0)="EXCLUDE MH TEST FROM PN TEXT^S^1:YES;0:NO;^0;14^Q"
^DD(801.41,54,3)="Enter Y to stop the test questions from being added to the note text."
^DD(801.41,54,21,0)="^.001^3^3^3040823^^^"
^DD(801.41,54,21,1,0)="This flag is used to control whether or not a mental health instrument"
^DD(801.41,54,21,2,0)="question will be excluded from the progress note text when the"
^DD(801.41,54,21,3,0)="component is acted upon."
^DD(801.41,54,"DT")="3040823"
^DD(801.41,100,0)="CLASS^RSX^N:NATIONAL;V:VISN;L:LOCAL;^100;1^K:'$$VCLASS^PXRMINTR(X) X"
^DD(801.41,100,3)="Enter the class."
^DD(801.41,100,21,0)="^.001^1^1^3010518^^"
^DD(801.41,100,21,1,0)="This is the class of dialog. National dialogs cannot be edited."
^DD(801.41,100,"DT")="3010518"
^DD(801.41,101,0)="SPONSOR^P811.6^PXRMD(811.6,^100;2^Q"
^DD(801.41,101,3)="Enter the sponsor."
^DD(801.41,101,21,0)="^^1^1^3010501^"
^DD(801.41,101,21,1,0)="This is the organization or group that sponsors this dialog."
^DD(801.41,101,"DT")="3010424"
^DD(801.41,102,0)="REVIEW DATE^D^^100;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(801.41,102,3)="Enter the review date."
^DD(801.41,102,21,0)="^^2^2^3050114^"
^DD(801.41,102,21,1,0)="The REVIEW DATE is used to determine when the dialog should be reviewed,"
^DD(801.41,102,21,2,0)="to verify that it is current with the latest standards and guidelines."
^DD(801.41,102,"DT")="3010424"
^DD(801.41,110,0)="EDIT HISTORY^801.44D^^110;0"
^DD(801.41,110,21,0)="^.001^1^1^3010502^^"
^DD(801.41,110,21,1,0)="This multiple is used to record a history of changes to the dialog."
^DD(801.41,111,0)="IDENTIFY^FX^^0;16^K:$L(X)>30!($L(X)<3) X"
^DD(801.41,111,1,0)="^.1"
^DD(801.41,111,1,1,0)="801.41^AC"
^DD(801.41,111,1,1,1)="S ^PXRMD(801.41,""AC"",$E(X,1,30),DA)="""""
^DD(801.41,111,1,1,2)="K ^PXRMD(801.41,""AC"",$E(X,1,30),DA)"
^DD(801.41,111,1,1,"%D",0)="^^1^1^3030430^"
^DD(801.41,111,1,1,"%D",1,0)="""AC"",IDENTIFY,DA"
^DD(801.41,111,1,1,"DT")="3030430"
^DD(801.41,111,3)="Short text to Identify dialog with module. Can only be modified by a Programmer."
^DD(801.41,111,8.5)=""
^DD(801.41,111,9)="""@"""
^DD(801.41,111,21,0)="^^5^5^3050114^"
^DD(801.41,111,21,1,0)="This field will associate a dialog with a package or module. Example: "
^DD(801.41,111,21,2,0)="if the field contained the letters IHD, then this dialog would be part of the "
^DD(801.41,111,21,3,0)="Ischemic Heart Disease project. If one dialog had IHD1 in this field and "
^DD(801.41,111,21,4,0)="another had IHD2 located in this field, we would know that they were associated "
^DD(801.41,111,21,5,0)="with each other and were both part of the same project."
^DD(801.41,111,"DT")="3040823"
^DD(801.41,112,0)="PATIENT SPECIFIC^S^1:TRUE;0:FALSE;^0;17^Q"
^DD(801.41,112,3)=""
^DD(801.41,112,4)="D BHELP^PXRMDLG5(4)"
^DD(801.41,112,21,0)="^^12^12^3050114^"
^DD(801.41,112,21,1,0)="This field is used to identify a Reminder Dialog that has branching logic "
^DD(801.41,112,21,2,0)="defined in the dialog. It is used"
^DD(801.41,112,21,3,0)="in conjunction with three additional fields"
^DD(801.41,112,21,4,0)="(Reminder Term, Reminder Term Status, and Replacement Element/group) defined "
^DD(801.41,112,21,5,0)="at the item level of the Reminder Dialog."
^DD(801.41,112,21,6,0)=" "
^DD(801.41,112,21,7,0)="This field is used by CPRS to identify if the dialog set-up should be cached "
^DD(801.41,112,21,8,0)="or re-built between every use. If the field is set to Yes,"
^DD(801.41,112,21,9,0)="then the dialog will"
^DD(801.41,112,21,10,0)="be re-loaded every time it is opened in CPRS. If the field is set to No or "
^DD(801.41,112,21,11,0)="Null, the dialog set-up will be stored in CPRS the first time the dialog is "
^DD(801.41,112,21,12,0)="loaded for the user."
^DD(801.41,112,"DT")="3040823"
^DD(801.41,113,0)="MH TEST REQUIRED^S^0:Optional open and optional complete (partial complete possible);1:Required open and required complete before finish;2:Optional open and required complete or cancel before finish;^0;18^Q"
^DD(801.41,113,3)=""
^DD(801.41,113,4)="D MHREQHLP^PXRMDLG5"
^DD(801.41,113,21,0)="^.001^25^25^3070912^^^^"
^DD(801.41,113,21,1,0)="The value defined in this field is used to control whether or not a"
^DD(801.41,113,21,2,0)="mental health (MH) test is required to open from the reminder"
^DD(801.41,113,21,3,0)="dialog, and whether the test must be completed before the reminder"
^DD(801.41,113,21,4,0)="dialog can be finished in CPRS."
^DD(801.41,113,21,5,0)=""
^DD(801.41,113,21,6,0)="If the value is 0, the user is not required to select/open the MH"
^DD(801.41,113,21,7,0)="test before the reminder dialog can be finished. "
^DD(801.41,113,21,8,0)=""
^DD(801.41,113,21,9,0)="If the value is 1, the user is required to select/open and complete"
^DD(801.41,113,21,10,0)="the MH test in the reminder dialog before the reminder dialog can be"
^DD(801.41,113,21,11,0)="finished. "
^DD(801.41,113,21,12,0)=""
^DD(801.41,113,21,13,0)="If the value is 2, the user is not required to select/open the MH"
^DD(801.41,113,21,14,0)="test in the reminder dialog; however, if the user opens the MH test,"
^DD(801.41,113,21,15,0)="then the user is required to complete or Cancel the MH test before"
^DD(801.41,113,21,16,0)="the reminder dialog can be finished. "
^DD(801.41,113,21,17,0)=""
^DD(801.41,113,21,18,0)="Clicking Cancel in the MH test dialog is considered the same as not"
^DD(801.41,113,21,19,0)="opening the MH test. "
^DD(801.41,113,21,20,0)=""
^DD(801.41,113,21,21,0)="A value of 2 only works with CPRS 27 and the YS_MHA.dll file. If 2"
^DD(801.41,113,21,22,0)="is used in a pre-CPRS 27 environment, the value of 2 will be"
^DD(801.41,113,21,23,0)="considered the same as the value 1."
^DD(801.41,113,21,24,0)=""
^DD(801.41,113,21,25,0)=""
^DD(801.41,113,"DT")="3070731"
^DD(801.41,114,0)="LOCK^SX^0:NO;1:YES;^100;4^Q"
^DD(801.41,114,9)="""@"""
^DD(801.41,114,21,0)="^^4^4^3040823^^^"
^DD(801.41,114,21,1,0)="This field is used to ""Lock"" a reminder dialog, dialog element, and/or a "
^DD(801.41,114,21,2,0)="dialog group from being copied and/or edited. It will prevent any copying "
^DD(801.41,114,21,3,0)="and/or editing of a dialog element if a finding item is defined or if the "
^DD(801.41,114,21,4,0)="only finding item defined for the element/group is an order. "
^DD(801.41,114,"DT")="3040823"
^DD(801.41,116,0)="REMINDER TERM^P811.5'^PXRMD(811.5,^49;1^Q"
^DD(801.41,116,3)=""
^DD(801.41,116,4)="D BHELP^PXRMDLG5(1)"
^DD(801.41,116,21,0)="^^5^5^3040823^^^"
^DD(801.41,116,21,1,0)="This field is a pointer to file 811.5. If a reminder term is defined in this "
^DD(801.41,116,21,2,0)="field when the dialog is loaded by CPRS, the reminder term will be "
^DD(801.41,116,21,3,0)="evaluated. The Reminder Term evaluation will return either a True of False "
^DD(801.41,116,21,4,0)="value. The value returned by the Reminder Term evaluation is used in "
^DD(801.41,116,21,5,0)="conjunction with the Reminder Term Status field."
^DD(801.41,116,"DT")="3040823"
^DD(801.41,117,0)="REMINDER TERM STATUS^S^1:TRUE;0:FALSE;^49;2^Q"
^DD(801.41,117,3)=""
^DD(801.41,117,4)="D BHELP^PXRMDLG5(2)"
^DD(801.41,117,21,0)="^^8^8^3040823^^^^"
^DD(801.41,117,21,1,0)="This field is used in conjunction with the Reminder Term field. It will be "
^DD(801.41,117,21,2,0)="used to determine if a Reminder Dialog Element/Group should do a special "
^DD(801.41,117,21,3,0)="action. When the Reminder Term is defined in field #116, the True/False "
^DD(801.41,117,21,4,0)="result of the term evaluation will be compared to the value defined in this "
^DD(801.41,117,21,5,0)="field. If the value matches the dialog, it will complete the action defined "
^DD(801.41,117,21,6,0)="in field #118. If the reminder term evaluation value does not match the "
^DD(801.41,117,21,7,0)="value defined in this field, the default action of the element/group is "
^DD(801.41,117,21,8,0)="loaded into CPRS."
^DD(801.41,117,"DT")="3040823"
^DD(801.41,118,0)="REPLACEMENT ELEMENT/GROUP^*P801.41'^PXRMD(801.41,^49;3^S DIC(""S"")=""I """"EG""""[$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(801.41,118,3)=""
^DD(801.41,118,4)="D BHELP^PXRMDLG5(3)"
^DD(801.41,118,12)="Only active dialog elements or groups can be selected."
^DD(801.41,118,12.1)="S DIC(""S"")=""I """"EG""""[$P(^(0),U,4)"""
^DD(801.41,118,21,0)="^.001^11^11^3050114^^^^"
^DD(801.41,118,21,1,0)="This field is used to determine if a dialog element/group should be replaced "
^DD(801.41,118,21,2,0)="with another element/group or if the original element/group should be "
^DD(801.41,118,21,3,0)="suppressed in the Dialog.  "
^DD(801.41,118,21,4,0)=""
^DD(801.41,118,21,5,0)="If the Reminder Term defined in field #116 is evaluated and matches the "
^DD(801.41,118,21,6,0)="value defined in field #117, then the dialog element/group will either be "
^DD(801.41,118,21,7,0)="replaced or suppressed depending on the value defined in this field. This "
^DD(801.41,118,21,8,0)="field points to file 801.41.  If there is an active element/group defined "
^DD(801.41,118,21,9,0)="in this field, then the original dialog element/group will be replaced with "
^DD(801.41,118,21,10,0)="the new dialog element/group. If this field is null, then the original "
^DD(801.41,118,21,11,0)="dialog element/group will be suppressed in CPRS."
^DD(801.41,118,"DT")="3050114"
^DD(801.41,119,0)="MH TEST^*P601.71'^YTT(601.71,^50;1^S DIC(""S"")=""I $$MH^PXRMDLG5(Y)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(801.41,119,12)="This screen checks to see if the MH test can be used in a Reminder Dialog"
^DD(801.41,119,12.1)="S DIC(""S"")=""I $$MH^PXRMDLG5(Y)=1"""
^DD(801.41,119,21,0)="^.001^5^5^3071004^^"
^DD(801.41,119,21,1,0)="This field is used to assign a mental health test to a result"
^DD(801.41,119,21,2,0)="group. The value assigned to this field must match the mental"
^DD(801.41,119,21,3,0)="health test assigned to the dialog element finding item when adding"
^DD(801.41,119,21,4,0)="a result group to a dialog element."
^DD(801.41,119,21,5,0)=""
^DD(801.41,119,"DT")="3071004"
^DD(801.41,120,0)="MH SCALE^NJ9,0X^^50;2^K:+X'=X!(X>999999999999999)!(X<1)!('$$VSCALED^PXRMMH(X,DA)) X"
^DD(801.41,120,3)=""
^DD(801.41,120,4)="D SCHELPD^PXRMMH(DA)"
^DD(801.41,120,21,0)="^.001^4^4^3071004^^"
^DD(801.41,120,21,1,0)="This field stores the mental health scale number used when obtaining"
^DD(801.41,120,21,2,0)="a score for the mental health test defined in the MH Test field"
^DD(801.41,120,21,3,0)="#119."
^DD(801.41,120,21,4,0)=""
^DD(801.41,120,"DT")="3071003"
^DD(801.41,121,0)="RESULT GROUP LIST^801.41121P^^51;0"
^DD(801.41,121,21,0)="^.001^6^6^3071004^^^^"
^DD(801.41,121,21,1,0)="This multiple assigns one or more result groups to the MH Test "
^DD(801.41,121,21,2,0)="finding item, field #119, for creating progress note text. The text"
^DD(801.41,121,21,3,0)="will change depending on the score of the MH Test. The score depends"
^DD(801.41,121,21,4,0)="on the scale defined in the MH Scale field, #120."
^DD(801.41,121,21,5,0)=""
^DD(801.41,121,21,6,0)=""
^DD(801.41,121,"DT")="3070817"
^DD(801.41,"B","ADDITIONAL FINDINGS",18)=""
^DD(801.41,"B","ALTERNATE PROGRESS NOTE TEXT",35)=""
^DD(801.41,"B","BOX",6)=""
^DD(801.41,"B","CAPTION",5)=""
^DD(801.41,"B","CHECKBOX SEQUENCE",45)=""
^DD(801.41,"B","CLASS",100)=""
^DD(801.41,"B","COMPONENTS",10)=""
^DD(801.41,"B","DEFAULT VALUE",21)=""
^DD(801.41,"B","DIALOG/PROGRESS NOTE TEXT",25)=""
^DD(801.41,"B","DISABLE",3)=""
^DD(801.41,"B","EDIT HISTORY",110)=""
^DD(801.41,"B","EXCLUDE FROM PROGRESS NOTE",23)=""
^DD(801.41,"B","EXCLUDE MH TEST FROM PN TEXT",54)=""
^DD(801.41,"B","FINDING ITEM",15)=""
^DD(801.41,"B","FINDING TYPE",14)=""
^DD(801.41,"B","FORCED VALUE",22)=""
^DD(801.41,"B","GROUP ENTRY",9)=""
^DD(801.41,"B","GUI PROCESS ID",46)=""
^DD(801.41,"B","HIDE/SHOW GROUP",50)=""
^DD(801.41,"B","IDENTIFY",111)=""
^DD(801.41,"B","INDENT PROGRESS NOTE TEXT",52)=""
^DD(801.41,"B","LOCK",114)=""
^DD(801.41,"B","MH SCALE",120)=""
^DD(801.41,"B","MH TEST",119)=""
^DD(801.41,"B","MH TEST REQUIRED",113)=""
^DD(801.41,"B","NAME",.01)=""
^DD(801.41,"B","NUMBER OF INDENTS",7)=""
^DD(801.41,"B","ORDERABLE ITEM",17)=""
^DD(801.41,"B","PATIENT SPECIFIC",112)=""
^DD(801.41,"B","PROMPT CAPTION",24)=""
^DD(801.41,"B","REMINDER TERM",116)=""
^DD(801.41,"B","REMINDER TERM STATUS",117)=""
^DD(801.41,"B","REPLACEMENT ELEMENT/GROUP",118)=""
^DD(801.41,"B","RESOLUTION TYPE",13)=""
^DD(801.41,"B","RESULT CONDITION",53)=""
^DD(801.41,"B","RESULT GROUP LIST",121)=""
^DD(801.41,"B","REVIEW DATE",102)=""
^DD(801.41,"B","SHARE COMMON PROMPTS",8)=""
^DD(801.41,"B","SOURCE REMINDER",2)=""
^DD(801.41,"B","SPONSOR",101)=""
^DD(801.41,"B","SUPPRESS CHECKBOX",51)=""
^DD(801.41,"B","TYPE",4)=""
^DD(801.41,"GL",0,1,.01)=""
^DD(801.41,"GL",0,2,2)=""
^DD(801.41,"GL",0,3,3)=""
^DD(801.41,"GL",0,4,4)=""
^DD(801.41,"GL",0,5,5)=""
^DD(801.41,"GL",0,6,6)=""
^DD(801.41,"GL",0,7,7)=""
^DD(801.41,"GL",0,8,8)=""
^DD(801.41,"GL",0,9,9)=""
^DD(801.41,"GL",0,10,50)=""
^DD(801.41,"GL",0,11,51)=""
^DD(801.41,"GL",0,12,52)=""
^DD(801.41,"GL",0,13,53)=""
^DD(801.41,"GL",0,14,54)=""
^DD(801.41,"GL",0,16,111)=""
^DD(801.41,"GL",0,17,112)=""
^DD(801.41,"GL",0,18,113)=""
^DD(801.41,"GL",1,3,13)=""
^DD(801.41,"GL",1,4,14)=""
^DD(801.41,"GL",1,5,15)=""
^DD(801.41,"GL",1,7,17)=""
^DD(801.41,"GL",2,1,21)=""
^DD(801.41,"GL",2,2,22)=""
^DD(801.41,"GL",2,3,23)=""
^DD(801.41,"GL",2,4,24)=""
^DD(801.41,"GL",3,0,18)=""
^DD(801.41,"GL",10,0,10)=""
^DD(801.41,"GL",25,0,25)=""
^DD(801.41,"GL",35,0,35)=""
^DD(801.41,"GL",45,0,45)=""
^DD(801.41,"GL",46,1,46)=""
^DD(801.41,"GL",49,1,116)=""
^DD(801.41,"GL",49,2,117)=""
^DD(801.41,"GL",49,3,118)=""
^DD(801.41,"GL",50,1,119)=""
^DD(801.41,"GL",50,2,120)=""
^DD(801.41,"GL",51,0,121)=""
^DD(801.41,"GL",100,1,100)=""
^DD(801.41,"GL",100,2,101)=""
^DD(801.41,"GL",100,3,102)=""
^DD(801.41,"GL",100,4,114)=""
^DD(801.41,"GL",110,0,110)=""
^DD(801.41,"IX",2)=""
^DD(801.41,"IX",4)=""
^DD(801.41,"IX",111)=""
^DD(801.41,"RQ",.01)=""
^DD(801.41,"RQ",4)=""
^DD(801.41,"RQ",100)=""
^DD(801.41,"SB",801.41121,121)=""
^DD(801.41,"SB",801.4118,18)=""
^DD(801.41,"SB",801.412,10)=""
^DD(801.41,"SB",801.4125,25)=""
^DD(801.41,"SB",801.4135,35)=""
^DD(801.41,"SB",801.4145,45)=""
^DD(801.41,"SB",801.44,110)=""
^DD(801.41121,0)="RESULT GROUP LIST SUB-FIELD^^.01^1"
^DD(801.41121,0,"DT")="3070817"
^DD(801.41121,0,"IX","B",801.41121,.01)=""
^DD(801.41121,0,"NM","RESULT GROUP LIST")=""
^DD(801.41121,0,"UP")="801.41"
^DD(801.41121,.01,0)="RESULT GROUP^M*P801.41'X^PXRMD(801.41,^0;1^S DIC(""S"")=""I $$RGLSCR^PXRMDLG5(DA,X,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(801.41121,.01,1,0)="^.1"
^DD(801.41121,.01,1,1,0)="801.41121^B"
^DD(801.41121,.01,1,1,1)="S ^PXRMD(801.41,DA(1),51,""B"",$E(X,1,30),DA)="""""
^DD(801.41121,.01,1,1,2)="K ^PXRMD(801.41,DA(1),51,""B"",$E(X,1,30),DA)"
^DD(801.41121,.01,12)="Only result groups associated with the selected MH test are allowed"
^DD(801.41121,.01,12.1)="S DIC(""S"")=""I $$RGLSCR^PXRMDLG5(DA,X,Y)"""
^DD(801.41121,.01,21,0)="^.001^1^1^3070817^^^^"
^DD(801.41121,.01,21,1,0)=""
^DD(801.41121,.01,"DT")="3070904"
^DD(801.41121,"B","RESULT GROUP",.01)=""
^DD(801.41121,"GL",0,1,.01)=""
^DD(801.41121,"IX",.01)=""
^DD(801.4118,0)="ADDITIONAL FINDINGS SUB-FIELD^^.01^1"
^DD(801.4118,0,"DT")="3000303"
^DD(801.4118,0,"IX","B",801.4118,.01)=""
^DD(801.4118,0,"NM","ADDITIONAL FINDINGS")=""
^DD(801.4118,0,"UP")="801.41"
^DD(801.4118,.01,0)="ADDITIONAL FINDINGS^MV^^0;1^Q"
^DD(801.4118,.01,1,0)="^.1"
^DD(801.4118,.01,1,1,0)="801.4118^B"
^DD(801.4118,.01,1,1,1)="S ^PXRMD(801.41,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(801.4118,.01,1,1,2)="K ^PXRMD(801.41,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(801.4118,.01,1,1,3)="Required Index for Variable Pointer"
^DD(801.4118,.01,3)="Enter additional finding items for this dialog element."
^DD(801.4118,.01,21,0)="^.001^3^3^3061212^^^^"
^DD(801.4118,.01,21,1,0)="If additional finding items should be posted if the dialog is checked"
^DD(801.4118,.01,21,2,0)="then they should be entered in this field. The field is relevant to"
^DD(801.4118,.01,21,3,0)="both dialog element and dialog group type records."
^DD(801.4118,.01,"DT")="3000303"
^DD(801.4118,.01,"V",0)="^.12P^10^10"
^DD(801.4118,.01,"V",1,0)="9999999.09^EDUCATION TOPICS^5^ED^n^n"
^DD(801.4118,.01,"V",2,0)="9999999.14^IMMUNIZATIONS^10^IM^n^n"
^DD(801.4118,.01,"V",3,0)="9999999.28^SKIN TEST^15^ST^n^n"
^DD(801.4118,.01,"V",4,0)="9999999.15^EXAM^20^EX^n^n"
^DD(801.4118,.01,"V",5,0)="9999999.64^HEALTH FACTORS^25^HF^y^n"
^DD(801.4118,.01,"V",5,1)="S DIC(""S"")=""I $P(^(0),U,10)'=""""C"""""""
^DD(801.4118,.01,"V",5,2)="Health Factor categories are not allowed."
^DD(801.4118,.01,"V",6,0)="81^PROCEDURE^30^CPT^n^n"
^DD(801.4118,.01,"V",7,0)="80^ICD9 DIAGNOSIS^35^ICD9^n^n"
^DD(801.4118,.01,"V",8,0)="120.51^VITAL TYPE^40^VM^n^n"
^DD(801.4118,.01,"V",9,0)="101.41^ORDER DIALOG^45^Q^n^n"
^DD(801.4118,.01,"V",10,0)="790.404^WH NOTIFICATION PURPOSE^50^WH^n^n"
^DD(801.4118,.01,"V","B",80,7)=""
^DD(801.4118,.01,"V","B",81,6)=""
^DD(801.4118,.01,"V","B",101.41,9)=""
^DD(801.4118,.01,"V","B",120.51,8)=""
^DD(801.4118,.01,"V","B",790.404,10)=""
^DD(801.4118,.01,"V","B",9999999.09,1)=""
^DD(801.4118,.01,"V","B",9999999.14,2)=""
^DD(801.4118,.01,"V","B",9999999.15,4)=""
^DD(801.4118,.01,"V","B",9999999.28,3)=""
^DD(801.4118,.01,"V","B",9999999.64,5)=""
^DD(801.4118,.01,"V","M","EDUCATION TOPICS",1)=""
^DD(801.4118,.01,"V","M","EXAM",4)=""
^DD(801.4118,.01,"V","M","HEALTH FACTORS",5)=""
^DD(801.4118,.01,"V","M","ICD9 DIAGNOSIS",7)=""
^DD(801.4118,.01,"V","M","IMMUNIZATIONS",2)=""
^DD(801.4118,.01,"V","M","ORDER DIALOG",9)=""
^DD(801.4118,.01,"V","M","PROCEDURE",6)=""
^DD(801.4118,.01,"V","M","SKIN TEST",3)=""
^DD(801.4118,.01,"V","M","VITAL TYPE",8)=""
^DD(801.4118,.01,"V","M","WH NOTIFICATION PURPOSE",10)=""
^DD(801.4118,.01,"V","O",5,1)=""
^DD(801.4118,.01,"V","O",10,2)=""
^DD(801.4118,.01,"V","O",15,3)=""
^DD(801.4118,.01,"V","O",20,4)=""
^DD(801.4118,.01,"V","O",25,5)=""
^DD(801.4118,.01,"V","O",30,6)=""
^DD(801.4118,.01,"V","O",35,7)=""
^DD(801.4118,.01,"V","O",40,8)=""
^DD(801.4118,.01,"V","O",45,9)=""
^DD(801.4118,.01,"V","O",50,10)=""
^DD(801.4118,.01,"V","P","CPT",6)=""
^DD(801.4118,.01,"V","P","ED",1)=""
^DD(801.4118,.01,"V","P","EX",4)=""
^DD(801.4118,.01,"V","P","HF",5)=""
^DD(801.4118,.01,"V","P","ICD9",7)=""
^DD(801.4118,.01,"V","P","IM",2)=""
^DD(801.4118,.01,"V","P","Q",9)=""
^DD(801.4118,.01,"V","P","ST",3)=""
^DD(801.4118,.01,"V","P","VM",8)=""
^DD(801.4118,.01,"V","P","WH",10)=""
^DD(801.4118,"B","ADDITIONAL FINDINGS",.01)=""
^DD(801.4118,"GL",0,1,.01)=""
^DD(801.4118,"IX",.01)=""
^DD(801.412,0)="COMPONENTS SUB-FIELD^^9^6"
^DD(801.412,0,"DT")="3000822"
^DD(801.412,0,"ID","WRITE")="N OR0,ORNM S OR0=^(0) I $P(OR0,U,2) S ORNM=$P($G(^PXRMD(801.41,+$P(OR0,U,2),0)),U) D:$L(ORNM) EN^DDIOL(ORNM,,""?10"")"
^DD(801.412,0,"IX","B",801.412,.01)=""
^DD(801.412,0,"IX","D",801.412,2)=""
^DD(801.412,0,"IX","DAD1",801.412,.01)=""
^DD(801.412,0,"NM","COMPONENTS")=""
^DD(801.412,0,"UP")="801.41"
^DD(801.412,.01,0)="SEQUENCE^MNJ5,1X^^0;1^K:+X'=X!(X>999.9)!(X<.1)!(X?.E1"".""2N.N) X I $G(X)]"""" K:$D(^PXRMD(801.41,DA(1),10,""B"",X)) X"
^DD(801.412,.01,1,0)="^.1^^-1"
^DD(801.412,.01,1,1,0)="801.412^B"
^DD(801.412,.01,1,1,1)="S ^PXRMD(801.41,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(801.412,.01,1,1,2)="K ^PXRMD(801.41,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(801.412,.01,1,2,0)="801.412^DAD1^MUMPS"
^DD(801.412,.01,1,2,1)="N PXRMP S PXRMP=$P(^PXRMD(801.41,DA(1),10,DA,0),U,11) S:PXRMP ^PXRMD(801.41,DA(1),10,""DAD"",PXRMP,X,DA)="""""
^DD(801.412,.01,1,2,2)="N PXRMP S PXRMP=$P(^PXRMD(801.41,DA(1),10,DA,0),U,11) K:PXRMP ^PXRMD(801.41,DA(1),10,""DAD"",PXRMP,X,DA)"
^DD(801.412,.01,1,2,"%D",0)="^^1^1^2990624^^"
^DD(801.412,.01,1,2,"%D",1,0)="Allows retrieval of 'child' prompts in sequence by parent."
^DD(801.412,.01,1,2,"DT")="2990624"
^DD(801.412,.01,3)="Type a Number between .1 and 999.9, 1 Decimal Digit"
^DD(801.412,.01,21,0)="^.001^2^2^3010302^^^^"
^DD(801.412,.01,21,1,0)="This field specifies the order in which this item will be displayed or"
^DD(801.412,.01,21,2,0)="processed."
^DD(801.412,.01,"DT")="3010502"
^DD(801.412,2,0)="ITEM^R*P801.41'X^PXRMD(801.41,^0;2^D SCREEN^PXRMDD41 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(801.412,2,1,0)="^.1^^-1"
^DD(801.412,2,1,1,0)="801.41^AD"
^DD(801.412,2,1,1,1)="S ^PXRMD(801.41,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(801.412,2,1,1,2)="K ^PXRMD(801.41,""AD"",$E(X,1,30),DA(1),DA)"
^DD(801.412,2,1,1,"DT")="2950123"
^DD(801.412,2,1,2,0)="801.412^D"
^DD(801.412,2,1,2,1)="S ^PXRMD(801.41,DA(1),10,""D"",$E(X,1,30),DA)="""""
^DD(801.412,2,1,2,2)="K ^PXRMD(801.41,DA(1),10,""D"",$E(X,1,30),DA)"
^DD(801.412,2,1,2,"DT")="2950411"
^DD(801.412,2,3)="Enter a dialog; a dialog that is an ancestor may not also be a sub-item. The dialog type of the sub-item must be valid for the ancestor."
^DD(801.412,2,12)="The item must be valid for this dialog type."
^DD(801.412,2,12.1)="D SCREEN^PXRMDD41"
^DD(801.412,2,21,0)="^.001^3^3^3050114^^^^"
^DD(801.412,2,21,1,0)="This field points to a dialog which is subordinate to this dialog."
^DD(801.412,2,21,2,0)="NOTE:  The parent dialog menu or one of its ancestors may not be entered"
^DD(801.412,2,21,3,0)="as an item."
^DD(801.412,2,"DT")="3040823"
^DD(801.412,6,0)="OVERRIDE PROMPT CAPTION^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(801.412,6,3)="This is the caption that should override the prompt's default caption."
^DD(801.412,6,21,0)="^^3^3^2990923^"
^DD(801.412,6,21,1,0)="This text will override the caption for this component in the reminder"
^DD(801.412,6,21,2,0)="dialog, when the component is a prompt.  When the text is blank, the"
^DD(801.412,6,21,3,0)="caption from the prompt entry will be used."
^DD(801.412,6,"DT")="2990923"
^DD(801.412,7,0)="START NEW LINE^S^1:YES;0:NO;^0;7^Q"
^DD(801.412,7,3)="Answer Y/N to control whether to prompt on a new line."
^DD(801.412,7,21,0)="^.001^2^2^3010302^^"
^DD(801.412,7,21,1,0)="This flag is used to allow the user to have some control of the display"
^DD(801.412,7,21,2,0)="of prompts related to a dialog element."
^DD(801.412,7,"DT")="2990923"
^DD(801.412,8,0)="EXCLUDE FROM PN TEXT^S^1:YES;0:NO;^0;8^Q"
^DD(801.412,8,3)="Enter Y to stop the component activity from being added to the note text."
^DD(801.412,8,21,0)="^.001^2^2^3010302^^^"
^DD(801.412,8,21,1,0)="This flag is used to control whether or not a component will be"
^DD(801.412,8,21,2,0)="excluded from the progress note text when the component is acted upon."
^DD(801.412,8,"DT")="2991102"
^DD(801.412,9,0)="REQUIRED^S^1:YES;0:NO;^0;9^Q"
^DD(801.412,9,"DT")="2991102"
^DD(801.412,"B","EXCLUDE FROM PN TEXT",8)=""
^DD(801.412,"B","ITEM",2)=""
^DD(801.412,"B","OVERRIDE PROMPT CAPTION",6)=""
^DD(801.412,"B","REQUIRED",9)=""
^DD(801.412,"B","SEQUENCE",.01)=""
^DD(801.412,"B","START NEW LINE",7)=""
^DD(801.412,"GL",0,1,.01)=""
^DD(801.412,"GL",0,2,2)=""
^DD(801.412,"GL",0,6,6)=""
^DD(801.412,"GL",0,7,7)=""
^DD(801.412,"GL",0,8,8)=""
^DD(801.412,"GL",0,9,9)=""
^DD(801.412,"IX",.01)=""
^DD(801.412,"IX",2)=""
^DD(801.412,"RQ",2)=""
^DD(801.4125,0)="DIALOG/PROGRESS NOTE TEXT SUB-FIELD^^.01^1"
^DD(801.4125,0,"DT")="2990628"
^DD(801.4125,0,"NM","DIALOG/PROGRESS NOTE TEXT")=""
^DD(801.4125,0,"UP")="801.41"
^DD(801.4125,.01,0)="DIALOG/PROGRESS NOTE TEXT^W^^0;1^Q"
^DD(801.4125,.01,3)="Enter the lines that should be used in the Progress Note when this item is checked off."
^DD(801.4125,.01,"DT")="3000503"
^DD(801.4125,"B","DIALOG/PROGRESS NOTE TEXT",.01)=""
^DD(801.4125,"GL",0,1,.01)=""
^DD(801.4135,0)="ALTERNATE PROGRESS NOTE TEXT SUB-FIELD^^.01^1"
^DD(801.4135,0,"DT")="3000209"
^DD(801.4135,0,"NM","ALTERNATE PROGRESS NOTE TEXT")=""
^DD(801.4135,0,"UP")="801.41"
^DD(801.4135,.01,0)="ALTERNATE PROGRESS NOTE TEXT^W^^0;1^Q"
^DD(801.4135,.01,.1)=""
^DD(801.4135,.01,3)="Enter text to appear on the progress note. Only required if the text on the progress note differs from the dialog text."
^DD(801.4135,.01,21,0)="^^8^8^3000503^"
^DD(801.4135,.01,21,1,0)="This field is used to define an alternate text to add to the progress note"
^DD(801.4135,.01,21,2,0)="when the progress note text needs to be different from the dialog text."
^DD(801.4135,.01,21,3,0)="(e.g., Dialog/Progress Note Text displayed is ""Place Influenza Order"", but"
^DD(801.4135,.01,21,4,0)="the Alternate Progress Note Text is ""Ordered Influenza Vaccine at this"
^DD(801.4135,.01,21,5,0)="encounter."")"
^DD(801.4135,.01,21,6,0)=" "
^DD(801.4135,.01,21,7,0)="If there is no text in this alternate text field the dialog/progress note"
^DD(801.4135,.01,21,8,0)="text will be added to the progress note."
^DD(801.4135,.01,"DT")="3000503"
^DD(801.4135,"B","ALTERNATE PROGRESS NOTE TEXT",.01)=""
^DD(801.4135,"GL",0,1,.01)=""
^DD(801.4145,0)="CHECKBOX SUB-FIELD^^2^2"
^DD(801.4145,0,"DT")="3020617"
^DD(801.4145,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(801.4145,0,"IX","B",801.4145,.01)=""
^DD(801.4145,0,"NM","CHECKBOX SEQUENCE")=""
^DD(801.4145,0,"UP")="801.41"
^DD(801.4145,.01,0)="CHECKBOX SEQUENCE^MNJ3,0X^^0;1^K:+X'=X!(X>500)!(X<1)!(X?.E1"".""1N.N) X"
^DD(801.4145,.01,.1)=""
^DD(801.4145,.01,1,0)="^.1"
^DD(801.4145,.01,1,1,0)="801.4145^B"
^DD(801.4145,.01,1,1,1)="S ^PXRMD(801.41,DA(1),45,""B"",$E(X,1,30),DA)="""""
^DD(801.4145,.01,1,1,2)="K ^PXRMD(801.41,DA(1),45,""B"",$E(X,1,30),DA)"
^DD(801.4145,.01,3)="Type a Number between 1 and 500, 0 Decimal Digits"
^DD(801.4145,.01,"DT")="3020617"
^DD(801.4145,2,0)="TEXT^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(801.4145,2,.1)=""
^DD(801.4145,2,3)="Answer must be 3-30 characters in length."
^DD(801.4145,2,"DT")="3010503"
^DD(801.4145,"B","CHECKBOX SEQUENCE",.01)=""
^DD(801.4145,"B","TEXT",2)=""
^DD(801.4145,"GL",0,1,.01)=""
^DD(801.4145,"GL",0,2,2)=""
^DD(801.4145,"IX",.01)=""
^DD(801.42,0)="FIELD^^2^5"
^DD(801.42,0,"DDA")="N"
^DD(801.42,0,"DT")="2991101"
^DD(801.42,0,"IX","AB",801.422,.01)=""
^DD(801.42,0,"IX","B",801.42,.01)=""
^DD(801.42,0,"NM","REMINDER GUI PROCESS")=""
^DD(801.42,0,"PT",801.41,46)=""
^DD(801.42,0,"PT",801.45,.02)=""
^DD(801.42,0,"VR")="2.0"
^DD(801.42,0,"VRPK")="PXRM"
^DD(801.42,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(801.42,.01,1,0)="^.1"
^DD(801.42,.01,1,1,0)="801.42^B"
^DD(801.42,.01,1,1,1)="S ^PXRMD(801.42,""B"",$E(X,1,30),DA)="""""
^DD(801.42,.01,1,1,2)="K ^PXRMD(801.42,""B"",$E(X,1,30),DA)"
^DD(801.42,.01,3)="Answer must be 1-30 characters in length."
^DD(801.42,.01,21,0)="^^1^1^3040706^^"
^DD(801.42,.01,21,1,0)="This is the name of a special process within the CPRS GUI."
^DD(801.42,.01,"DT")="3040706"
^DD(801.42,.02,0)="RELATED OUTPUT ID^FI^^0;2^K:$L(X)>10!($L(X)<2) X"
^DD(801.42,.02,3)="Enter the output ID to associate with the process."
^DD(801.42,.02,21,0)="^^2^2^2991012^"
^DD(801.42,.02,21,1,0)="This is the PCE DATA2PCE identifier, or an Order identifier, or other ID "
^DD(801.42,.02,21,2,0)="to pass data on to an output process."
^DD(801.42,.02,"DT")="3000530"
^DD(801.42,.03,0)="RELATED SOURCE FILE^FI^^0;3^K:$L(X)>15!($L(X)<2) X"
^DD(801.42,.03,3)="Enter the global which is the source of this process."
^DD(801.42,.03,21,0)="^^1^1^2991028^^^"
^DD(801.42,.03,21,1,0)="This is usually a PCE V-file."
^DD(801.42,.03,"DT")="3000530"
^DD(801.42,1,0)="DESCRIPTION^801.421^^1;0"
^DD(801.42,2,0)="RELATED REMINDER DIALOG^801.422P^^2;0"
^DD(801.42,"B","DESCRIPTION",1)=""
^DD(801.42,"B","NAME",.01)=""
^DD(801.42,"B","RELATED OUTPUT ID",.02)=""
^DD(801.42,"B","RELATED REMINDER DIALOG",2)=""
^DD(801.42,"B","RELATED SOURCE FILE",.03)=""
^DD(801.42,"GL",0,1,.01)=""
^DD(801.42,"GL",0,2,.02)=""
^DD(801.42,"GL",0,3,.03)=""
^DD(801.42,"GL",1,0,1)=""
^DD(801.42,"GL",2,0,2)=""
^DD(801.42,"IX",.01)=""
^DD(801.42,"RQ",.01)=""
^DD(801.42,"SB",801.421,1)=""
^DD(801.42,"SB",801.422,2)=""
^DD(801.421,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(801.421,0,"DT")="2991012"
^DD(801.421,0,"NM","DESCRIPTION")=""
^DD(801.421,0,"UP")="801.42"
^DD(801.421,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(801.421,.01,3)="Enter a description of what the GUI will do for this process."
^DD(801.421,.01,21,0)="^^1^1^2991012^"
^DD(801.421,.01,21,1,0)="This describes in general terms the GUI activity."
^DD(801.421,.01,"DT")="2991012"
^DD(801.421,"B","DESCRIPTION",.01)=""
^DD(801.421,"GL",0,1,.01)=""
^DD(801.422,0)="RELATED REMINDER DIALOG SUB-FIELD^^.01^1"
^DD(801.422,0,"DT")="2991028"
^DD(801.422,0,"IX","B",801.422,.01)=""
^DD(801.422,0,"NM","RELATED REMINDER DIALOG")=""
^DD(801.422,0,"UP")="801.42"
^DD(801.422,.01,0)="RELATED REMINDER DIALOG^MP801.41'^PXRMD(801.41,^0;1^Q"
^DD(801.422,.01,1,0)="^.1^^-1"
^DD(801.422,.01,1,1,0)="801.422^B"
^DD(801.422,.01,1,1,1)="S ^PXRMD(801.42,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(801.422,.01,1,1,2)="K ^PXRMD(801.42,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(801.422,.01,1,2,0)="801.42^AB"
^DD(801.422,.01,1,2,1)="S ^PXRMD(801.42,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(801.422,.01,1,2,2)="K ^PXRMD(801.42,""AB"",$E(X,1,30),DA(1),DA)"
^DD(801.422,.01,1,2,"DT")="2991201"
^DD(801.422,.01,3)="Enter the Reminder Dialogs that use this GUI Process."
^DD(801.422,.01,21,0)="^^3^3^3000505^"
^DD(801.422,.01,21,1,0)="This multiple allows the CPRS GUI Process to be related to a Reminder"
^DD(801.422,.01,21,2,0)="Dialog. When the Reminder Dialog is passed to CPRS GUI, the CPRS GUI"
^DD(801.422,.01,21,3,0)="Process will be passed also."
^DD(801.422,.01,"DT")="3000107"
^DD(801.422,"B","RELATED REMINDER DIALOG",.01)=""
^DD(801.422,"GL",0,1,.01)=""
^DD(801.422,"IX",.01)=""
^DD(801.43,0)="FIELD^^.04^4"
^DD(801.43,0,"DDA")="N"
^DD(801.43,0,"DT")="2991005"
^DD(801.43,0,"IX","AC",801.43,.02)=""
^DD(801.43,0,"IX","B",801.43,.01)=""
^DD(801.43,0,"NM","REMINDER FINDING ITEM PARAMETER")=""
^DD(801.43,0,"VR")="2.0"
^DD(801.43,0,"VRPK")="CLINICAL REMINDERS"
^DD(801.43,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(801.43,.01,.1)=""
^DD(801.43,.01,1,0)="^.1"
^DD(801.43,.01,1,1,0)="801.43^B"
^DD(801.43,.01,1,1,1)="S ^PXRMD(801.43,""B"",$E(X,1,30),DA)="""""
^DD(801.43,.01,1,1,2)="K ^PXRMD(801.43,""B"",$E(X,1,30),DA)"
^DD(801.43,.01,3)="Answer must be 3-30 characters in length."
^DD(801.43,.01,21,0)="^^8^8^3000505^"
^DD(801.43,.01,21,1,0)="Finding item parameters can be created for individual finding items. These"
^DD(801.43,.01,21,2,0)="parameters will be used in preference to the REMINDER FINDING TYPE"
^DD(801.43,.01,21,3,0)="PARAMETER file when auto generating dialog. More than one parameter may be"
^DD(801.43,.01,21,4,0)="created for a given finding item."
^DD(801.43,.01,21,5,0)=" "
^DD(801.43,.01,21,6,0)="The parameter specifies the default dialog for a finding item. Dialog may"
^DD(801.43,.01,21,7,0)="be an individual question (dialog item) or a group of questions (dialog"
^DD(801.43,.01,21,8,0)="group)."
^DD(801.43,.01,"DT")="2990902"
^DD(801.43,.01,"V",0)="^.12P"
^DD(801.43,.02,0)="FINDING ITEM^RV^^0;2^Q"
^DD(801.43,.02,1,0)="^.1"
^DD(801.43,.02,1,1,0)="801.43^AC"
^DD(801.43,.02,1,1,1)="S ^PXRMD(801.43,""AC"",$E(X,1,30),DA)="""""
^DD(801.43,.02,1,1,2)="K ^PXRMD(801.43,""AC"",$E(X,1,30),DA)"
^DD(801.43,.02,1,1,"%D",0)="^^2^2^2990924^"
^DD(801.43,.02,1,1,"%D",1,0)="This cross reference is used by the dialog build to see if any finding"
^DD(801.43,.02,1,1,"%D",2,0)="item dialog exists for a reminder finding item."
^DD(801.43,.02,1,1,"DT")="2990924"
^DD(801.43,.02,3)="Enter the individual reminder finding item."
^DD(801.43,.02,21,0)="^^4^4^3000505^"
^DD(801.43,.02,21,1,0)="The individual finding item corresponds to the reminder finding item. "
^DD(801.43,.02,21,2,0)=" "
^DD(801.43,.02,21,3,0)="Auto generation of dialog from the reminder definition uses the dialog"
^DD(801.43,.02,21,4,0)="in this file in preference to the REMINDER FINDING TYPE PARAMETER file."
^DD(801.43,.02,"DT")="2990924"
^DD(801.43,.02,"V",0)="^.12P^16^9"
^DD(801.43,.02,"V",4,0)="50^DRUG^5^DR^^n"
^DD(801.43,.02,"V",5,0)="9999999.09^EDUCATION TOPIC^10^ED^^n"
^DD(801.43,.02,"V",6,0)="9999999.15^EXAM^15^EX^^n"
^DD(801.43,.02,"V",7,0)="9999999.64^HEALTH FACTOR^20^HF^^n"
^DD(801.43,.02,"V",8,0)="9999999.14^IMMUNIZATION^25^IM^^n"
^DD(801.43,.02,"V",10,0)="601^MENTAL HEALTH INSTRUMENT^35^MH^^n"
^DD(801.43,.02,"V",11,0)="101.43^ORDERABLE ITEM^40^OI^^n"
^DD(801.43,.02,"V",13,0)="9999999.28^SKIN TEST^65^ST^^n"
^DD(801.43,.02,"V",16,0)="120.51^VITAL MEASUREMENT^80^VM^^n"
^DD(801.43,.02,"V","B",50,4)=""
^DD(801.43,.02,"V","B",101.43,11)=""
^DD(801.43,.02,"V","B",120.51,16)=""
^DD(801.43,.02,"V","B",601,10)=""
^DD(801.43,.02,"V","B",9999999.09,5)=""
^DD(801.43,.02,"V","B",9999999.14,8)=""
^DD(801.43,.02,"V","B",9999999.15,6)=""
^DD(801.43,.02,"V","B",9999999.28,13)=""
^DD(801.43,.02,"V","B",9999999.64,7)=""
^DD(801.43,.02,"V","M","DRUG",4)=""
^DD(801.43,.02,"V","M","EDUCATION TOPIC",5)=""
^DD(801.43,.02,"V","M","EXAM",6)=""
^DD(801.43,.02,"V","M","HEALTH FACTOR",7)=""
^DD(801.43,.02,"V","M","IMMUNIZATION",8)=""
^DD(801.43,.02,"V","M","MENTAL HEALTH INSTRUMENT",10)=""
^DD(801.43,.02,"V","M","ORDERABLE ITEM",11)=""
^DD(801.43,.02,"V","M","SKIN TEST",13)=""
^DD(801.43,.02,"V","M","VITAL MEASUREMENT",16)=""
^DD(801.43,.02,"V","O",5,4)=""
^DD(801.43,.02,"V","O",10,5)=""
^DD(801.43,.02,"V","O",15,6)=""
^DD(801.43,.02,"V","O",20,7)=""
^DD(801.43,.02,"V","O",25,8)=""
^DD(801.43,.02,"V","O",35,10)=""
^DD(801.43,.02,"V","O",40,11)=""
^DD(801.43,.02,"V","O",65,13)=""
^DD(801.43,.02,"V","O",80,16)=""
^DD(801.43,.02,"V","P","DR",4)=""
^DD(801.43,.02,"V","P","ED",5)=""
^DD(801.43,.02,"V","P","EX",6)=""
^DD(801.43,.02,"V","P","HF",7)=""
^DD(801.43,.02,"V","P","IM",8)=""
^DD(801.43,.02,"V","P","MH",10)=""
^DD(801.43,.02,"V","P","OI",11)=""
^DD(801.43,.02,"V","P","ST",13)=""
^DD(801.43,.02,"V","P","VM",16)=""
^DD(801.43,.03,0)="DISABLE^S^1:DISABLED;^0;3^Q"
^DD(801.43,.03,3)="Enter 1 to disable finding item dialog."
^DD(801.43,.03,21,0)="^^1^1^2990903^^"
^DD(801.43,.03,21,1,0)="Disabled finding item dialog entries are excluded from dialog generation."
^DD(801.43,.03,"DT")="2990902"
^DD(801.43,.04,0)="DIALOG ELEMENT/GROUP^R*P801.41'^PXRMD(801.41,^0;4^S DIC(""S"")=""I """"GE""""[$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(801.43,.04,3)="Enter the Dialog Element or Dialog Group that represents this finding item. "
^DD(801.43,.04,12)="The selected dialog must be a dialog group or dialog item."
^DD(801.43,.04,12.1)="S DIC(""S"")=""I """"GE""""[$P(^(0),U,4)"""
^DD(801.43,.04,21,0)="^^1^1^3000111^^^^"
^DD(801.43,.04,21,1,0)="This is the dialog group or dialog element for this finding item."
^DD(801.43,.04,"DT")="2991005"
^DD(801.43,"B","DIALOG ELEMENT/GROUP",.04)=""
^DD(801.43,"B","DISABLE",.03)=""
^DD(801.43,"B","FINDING ITEM",.02)=""
^DD(801.43,"B","NAME",.01)=""
^DD(801.43,"GL",0,1,.01)=""
^DD(801.43,"GL",0,2,.02)=""
^DD(801.43,"GL",0,3,.03)=""
^DD(801.43,"GL",0,4,.04)=""
^DD(801.43,"IX",.01)=""
^DD(801.43,"IX",.02)=""
^DD(801.43,"RQ",.01)=""
^DD(801.43,"RQ",.02)=""
^DD(801.43,"RQ",.04)=""
^DD(801.44,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(801.44,0,"DT")="3010424"
^DD(801.44,0,"IX","B",801.44,.01)=""
^DD(801.44,0,"NM","EDIT HISTORY")=""
^DD(801.44,0,"UP")="801.41"
^DD(801.44,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(801.44,.01,1,0)="^.1"
^DD(801.44,.01,1,1,0)="801.44^B"
^DD(801.44,.01,1,1,1)="S ^PXRMD(801.41,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(801.44,.01,1,1,2)="K ^PXRMD(801.41,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(801.44,.01,21,0)="^^2^2^3010501^"
^DD(801.44,.01,21,1,0)="This is the date and time when the editing was done. This field is set"
^DD(801.44,.01,21,2,0)="automatically and should not be changed by the user."
^DD(801.44,.01,"DT")="3010424"
^DD(801.44,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(801.44,1,21,0)="^^2^2^3010501^"
^DD(801.44,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(801.44,1,21,2,0)="and should not be changed by the user."
^DD(801.44,1,"DT")="3010424"
^DD(801.44,2,0)="EDIT COMMENTS^801.442^^1;0"
^DD(801.44,2,21,0)="^.001^2^2^3010502^^"
^DD(801.44,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(801.44,2,21,2,0)="during the editing session."
^DD(801.44,2,"DT")="3010425"
^DD(801.44,"B","EDIT BY",1)=""
^DD(801.44,"B","EDIT COMMENTS",2)=""
^DD(801.44,"B","EDIT DATE",.01)=""
^DD(801.44,"GL",0,1,.01)=""
^DD(801.44,"GL",0,2,1)=""
^DD(801.44,"GL",1,0,2)=""
^DD(801.44,"IX",.01)=""
^DD(801.44,"SB",801.442,2)=""
^DD(801.442,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(801.442,0,"DT")="3010424"
^DD(801.442,0,"NM","EDIT COMMENTS")=""
^DD(801.442,0,"UP")="801.44"
^DD(801.442,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(801.442,.01,3)="Enter your edit comments."
^DD(801.442,.01,"DT")="3010425"
^DD(801.442,"B","EDIT COMMENTS",.01)=""
^DD(801.442,"GL",0,1,.01)=""
^DD(801.45,0)="FIELD^^1^3"
^DD(801.45,0,"DDA")="N"
^DD(801.45,0,"DT")="2991213"
^DD(801.45,0,"IX","B",801.45,.01)=""
^DD(801.45,0,"NM","REMINDER FINDING TYPE PARAMETER")=""
^DD(801.45,0,"PT",801.41,14)=""
^DD(801.45,0,"VR")="2.0"
^DD(801.45,0,"VRPK")="PXRM"
^DD(801.45,.01,0)="FILE ID^RFI^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(801.45,.01,1,0)="^.1"
^DD(801.45,.01,1,1,0)="801.45^B"
^DD(801.45,.01,1,1,1)="S ^PXRMD(801.45,""B"",$E(X,1,30),DA)="""""
^DD(801.45,.01,1,1,2)="K ^PXRMD(801.45,""B"",$E(X,1,30),DA)"
^DD(801.45,.01,3)="Answer must be 1-10 characters in length."
^DD(801.45,.01,21,0)="^^11^11^3000511^"
^DD(801.45,.01,21,1,0)="This is the type of finding. The options are:"
^DD(801.45,.01,21,2,0)=" "
^DD(801.45,.01,21,3,0)="   CPT  Procedure "
^DD(801.45,.01,21,4,0)="   ED   Education"
^DD(801.45,.01,21,5,0)="   EX   Examination"
^DD(801.45,.01,21,6,0)="   HF   Health Factor"
^DD(801.45,.01,21,7,0)="   IM   Immunization"
^DD(801.45,.01,21,8,0)="   OI   Orderable Item"
^DD(801.45,.01,21,9,0)="   POV  Diagnosis "
^DD(801.45,.01,21,10,0)="   ST   Skin Test"
^DD(801.45,.01,21,11,0)="   VM   Vital Measurement"
^DD(801.45,.01,"DT")="3000530"
^DD(801.45,.02,0)="RELATED GUI PROCESS^P801.42'^PXRMD(801.42,^0;2^Q"
^DD(801.45,.02,3)="Enter the GUI process that will process this type of finding."
^DD(801.45,.02,21,0)="^^1^1^2991101^"
^DD(801.45,.02,21,1,0)="This is the GUI process that supports processing of this type of finding."
^DD(801.45,.02,"DT")="2991101"
^DD(801.45,1,0)="RESOLUTION STATUS DEFAULTS^801.451P^^1;0"
^DD(801.45,1,21,0)="^.001^3^3^3000505^^^^"
^DD(801.45,1,21,1,0)="This multiple allows unique criteria to be set"
^DD(801.45,1,21,2,0)="for default auto-generation of findings text"
^DD(801.45,1,21,3,0)="to use to create a default reminder dialog."
^DD(801.45,1,"DT")="2991029"
^DD(801.45,"B","FILE ID",.01)=""
^DD(801.45,"B","RELATED GUI PROCESS",.02)=""
^DD(801.45,"B","RESOLUTION STATUS DEFAULTS",1)=""
^DD(801.45,"GL",0,1,.01)=""
^DD(801.45,"GL",0,2,.02)=""
^DD(801.45,"GL",1,0,1)=""
^DD(801.45,"IX",.01)=""
^DD(801.45,"RQ",.01)=""
^DD(801.45,"SB",801.451,1)=""
^DD(801.451,0)="RESOLUTION STATUS DEFAULTS SUB-FIELD^^5^5"
^DD(801.451,0,"DT")="2991213"
^DD(801.451,0,"IX","B",801.451,.01)=""
^DD(801.451,0,"NM","RESOLUTION STATUS DEFAULTS")=""
^DD(801.451,0,"UP")="801.45"
^DD(801.451,.01,0)="RESOLUTION STATUS^MRP801.9'I^PXRMD(801.9,^0;1^Q"
^DD(801.451,.01,1,0)="^.1"
^DD(801.451,.01,1,1,0)="801.451^B"
^DD(801.451,.01,1,1,1)="S ^PXRMD(801.45,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(801.451,.01,1,1,2)="K ^PXRMD(801.45,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(801.451,.01,3)="Enter the resolution status that should have default parameters."
^DD(801.451,.01,21,0)="^^2^2^2990902^"
^DD(801.451,.01,21,1,0)="This multiple is used to allow default parameters to be defined for"
^DD(801.451,.01,21,2,0)="each file and resolution status combination."
^DD(801.451,.01,"DT")="3000530"
^DD(801.451,1,0)="DISABLE RESOLUTION STATUS^S^1:DISABLED;^0;2^Q"
^DD(801.451,1,3)="Enter 1 to disable sentence generation for this status and finding type."
^DD(801.451,1,21,0)="^^2^2^2991101^^^^"
^DD(801.451,1,21,1,0)="This Y/N flag determines whether a sentence will be generated to represent"
^DD(801.451,1,21,2,0)="this resolution status within the finding type."
^DD(801.451,1,"DT")="2991101"
^DD(801.451,3,0)="PREFIX TEXT^F^^3;1^K:$L(X)>150!($L(X)<3) X"
^DD(801.451,3,3)="Answer must be 3-150 characters in length."
^DD(801.451,3,21,0)="^^1^1^2990902^"
^DD(801.451,3,21,1,0)="This is the text to add to the front of the name of the finding item."
^DD(801.451,3,"DT")="2990902"
^DD(801.451,4,0)="SUFFIX TEXT^F^^4;1^K:$L(X)>150!($L(X)<1) X"
^DD(801.451,4,3)="Answer must be 1-150 characters in length."
^DD(801.451,4,21,0)="^^2^2^2991213^^^"
^DD(801.451,4,21,1,0)="This is the text that will be added to the sentence after the finding"
^DD(801.451,4,21,2,0)="item name."
^DD(801.451,4,"DT")="2991213"
^DD(801.451,5,0)="ADDITIONAL PROMPTS^801.4515P^^5;0"
^DD(801.451,5,12)="Only prompts or forced values allowed"
^DD(801.451,5,12.1)="S DIC(""S"")=""I """"PF""""[$P(^(0),U,4)"""
^DD(801.451,5,21,0)="^^2^2^2991102^^"
^DD(801.451,5,21,1,0)="These are the additional prompts that should be asked for the finding type"
^DD(801.451,5,21,2,0)="and resolution status."
^DD(801.451,"B","ADDITIONAL PROMPTS",5)=""
^DD(801.451,"B","DISABLE RESOLUTION STATUS",1)=""
^DD(801.451,"B","PREFIX TEXT",3)=""
^DD(801.451,"B","RESOLUTION STATUS",.01)=""
^DD(801.451,"B","SUFFIX TEXT",4)=""
^DD(801.451,"GL",0,1,.01)=""
^DD(801.451,"GL",0,2,1)=""
^DD(801.451,"GL",3,1,3)=""
^DD(801.451,"GL",4,1,4)=""
^DD(801.451,"GL",5,0,5)=""
^DD(801.451,"IX",.01)=""
^DD(801.451,"RQ",.01)=""
^DD(801.451,"SB",801.4515,5)=""
^DD(801.4515,0)="ADDITIONAL PROMPTS SUB-FIELD^^6^7"
^DD(801.4515,0,"DT")="2991101"
^DD(801.4515,0,"IX","B",801.4515,.01)=""
^DD(801.4515,0,"NM","ADDITIONAL PROMPTS")=""
^DD(801.4515,0,"UP")="801.451"
^DD(801.4515,.01,0)="ADDITIONAL PROMPTS^M*P801.41'^PXRMD(801.41,^0;1^S DIC(""S"")=""I """"PF""""[$P(^(0),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(801.4515,.01,1,0)="^.1"
^DD(801.4515,.01,1,1,0)="801.4515^B"
^DD(801.4515,.01,1,1,1)="S ^PXRMD(801.45,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(801.4515,.01,1,1,2)="K ^PXRMD(801.45,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(801.4515,.01,3)="Enter the additional prompts to ask for this resolution type."
^DD(801.4515,.01,21,0)="^^3^3^2990902^"
^DD(801.4515,.01,21,1,0)="This multiple allows prompts to be identified"
^DD(801.4515,.01,21,2,0)="for including in the default auto-generation"
^DD(801.4515,.01,21,3,0)="process for the reminder finding type."
^DD(801.4515,.01,"DT")="2990902"
^DD(801.4515,1,0)="REQUIRED^S^1:REQUIRED;^0;2^Q"
^DD(801.4515,1,3)="Enter 1 to make this prompt be required to answer."
^DD(801.4515,1,21,0)="^^1^1^2991101^^"
^DD(801.4515,1,21,1,0)="Required additional prompts may not be disabled."
^DD(801.4515,1,"DT")="2991101"
^DD(801.4515,2,0)="DISABLE ADDITIONAL PROMPT^SX^1:DISABLE;^0;3^I $P(^PXRMD(801.45,DA(2),1,DA(1),5,DA,0),U,2) K X"
^DD(801.4515,2,3)="Enter 1 to disable additional prompt."
^DD(801.4515,2,21,0)="^^3^3^2990903^^^^"
^DD(801.4515,2,21,1,0)="Disabled additional prompts will be ignored in dialog auto generation."
^DD(801.4515,2,21,2,0)=" "
^DD(801.4515,2,21,3,0)="Mandatory additional prompts cannot be disabled."
^DD(801.4515,2,"DT")="2990903"
^DD(801.4515,3,0)="SEQUENCE^NJ1,0^^0;4^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(801.4515,3,3)="Type a number from 1-9 for the sequence to present the prompt."
^DD(801.4515,3,21,0)="^^3^3^2991101^"
^DD(801.4515,3,21,1,0)="This field allows the sequence of the prompts to be specified.  If they"
^DD(801.4515,3,21,2,0)="are not specified here, the prompts will be in the sequence they appear "
^DD(801.4515,3,21,3,0)="in the additional prompts multiple."
^DD(801.4515,3,"DT")="2991101"
^DD(801.4515,4,0)="OVERRIDE PROMPT CAPTION^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(801.4515,4,3)="Enter the caption to use for this particular prompt."
^DD(801.4515,4,21,0)="^^1^1^2991101^"
^DD(801.4515,4,21,1,0)="This field defines the caption that will be presented with this prompt."
^DD(801.4515,4,"DT")="2991101"
^DD(801.4515,5,0)="START NEW LINE^S^1:YES;0:NO;^0;6^Q"
^DD(801.4515,5,3)="Enter 1 to have the prompt asked on a new line."
^DD(801.4515,5,21,0)="^^2^2^2991101^"
^DD(801.4515,5,21,1,0)="The additional prompts can all appear on the same line, or be defined"
^DD(801.4515,5,21,2,0)="for new line presentation by the coordinator."
^DD(801.4515,5,"DT")="2991101"
^DD(801.4515,6,0)="EXCLUDE FROM PN TEXT^S^1:YES;0:NO;^0;7^Q"
^DD(801.4515,6,3)="Enter 1 to include the prompt information in the progress note."
^DD(801.4515,6,21,0)="^^2^2^2991102^^"
^DD(801.4515,6,21,1,0)="This field controls whether the prompt and answer will be added to the"
^DD(801.4515,6,21,2,0)="progress note text."
^DD(801.4515,6,"DT")="2991102"
^DD(801.4515,"B","ADDITIONAL PROMPTS",.01)=""
^DD(801.4515,"B","DISABLE ADDITIONAL PROMPT",2)=""
^DD(801.4515,"B","EXCLUDE FROM PN TEXT",6)=""
^DD(801.4515,"B","OVERRIDE PROMPT CAPTION",4)=""
^DD(801.4515,"B","REQUIRED",1)=""
^DD(801.4515,"B","SEQUENCE",3)=""
^DD(801.4515,"B","START NEW LINE",5)=""
^DD(801.4515,"GL",0,1,.01)=""
^DD(801.4515,"GL",0,2,1)=""
^DD(801.4515,"GL",0,3,2)=""
^DD(801.4515,"GL",0,4,3)=""
^DD(801.4515,"GL",0,5,4)=""
^DD(801.4515,"GL",0,6,5)=""
^DD(801.4515,"GL",0,7,6)=""
^DD(801.4515,"IX",.01)=""
^DD(801.5,0)="FIELD^^.06^6"
^DD(801.5,0,"DDA")="N"
^DD(801.5,0,"DT")="3050617"
^DD(801.5,0,"IX","B",801.5,.01)=""
^DD(801.5,0,"NM","REMINDER DIALOG PATIENT ASSOCIATION")=""
^DD(801.5,0,"VR")="2.0"
^DD(801.5,0,"VRPK")="PXRM"
^DD(801.5,.01,0)="PATIENT^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(801.5,.01,1,0)="^.1"
^DD(801.5,.01,1,1,0)="801.5^B"
^DD(801.5,.01,1,1,1)="S ^PXRMD(801.5,""B"",$E(X,1,30),DA)="""""
^DD(801.5,.01,1,1,2)="K ^PXRMD(801.5,""B"",$E(X,1,30),DA)"
^DD(801.5,.01,3)="Answer must be 3-30 characters in length"
^DD(801.5,.01,21,0)="^^3^3^3050203^"
^DD(801.5,.01,21,1,0)="This is a free text form of a patient's DFN used as a momentary identifier of "
^DD(801.5,.01,21,2,0)="a patient who has been selected while using the Geriatric Extended Care "
^DD(801.5,.01,21,3,0)="Dialogs."
^DD(801.5,.01,"DT")="3050203"
^DD(801.5,.02,0)="DATE/TIME^D^^0;2^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(801.5,.02,3)="(No range limit on date)"
^DD(801.5,.02,21,0)="^^4^4^3050203^"
^DD(801.5,.02,21,1,0)="This field contains the date and time that the Geriatric Extended "
^DD(801.5,.02,21,2,0)="Care dialogs were first initiated for a particular patient and a "
^DD(801.5,.02,21,3,0)="particular referral. It is the current date and time that the first entry"
^DD(801.5,.02,21,4,0)="for this patient was entered into this file."
^DD(801.5,.02,"DT")="3050203"
^DD(801.5,.03,0)="IDENTIFY^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(801.5,.03,3)="Answer must be 1-30 characters in length"
^DD(801.5,.03,21,0)="^^3^3^3050203^"
^DD(801.5,.03,21,1,0)="There are 4 reminder dialogs used in the Geriatric Extended Care program."
^DD(801.5,.03,21,2,0)="This field holds one of 4 possible entries representing the dialog that"
^DD(801.5,.03,21,3,0)="is being used. The possibilities are GEC1,GEC2,GEC3 and GECF."
^DD(801.5,.03,"DT")="3050203"
^DD(801.5,.04,0)="NOTEIEN^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(801.5,.04,3)="Answer must be 1-20 characters in length"
^DD(801.5,.04,21,0)="^.001^3^3^3050203^^^"
^DD(801.5,.04,21,1,0)="This field temporarily saves the internal entry number of the Text "
^DD(801.5,.04,21,2,0)="Integration Utilities (TIU) note that is being written on when selections  "
^DD(801.5,.04,21,3,0)="are being made in the Geriatric Extended Care dialogs."
^DD(801.5,.04,"DT")="3050203"
^DD(801.5,.05,0)="GEC USER^P200^VA(200,^0;5^Q"
^DD(801.5,.05,3)="This field is the user who is entering the GEC data into the GEC dialogs."
^DD(801.5,.05,21,0)="^^3^3^3050617^^"
^DD(801.5,.05,21,1,0)="This field contains a pointer to the NEW PERSON file or file 200. It "
^DD(801.5,.05,21,2,0)="represents the user who enter the data into the GEC dialog referenced in the "
^DD(801.5,.05,21,3,0)="IDENTIFY field."
^DD(801.5,.05,23,0)="^^1^1^3050617^"
^DD(801.5,.05,23,1,0)=""
^DD(801.5,.05,"DT")="3050617"
^DD(801.5,.06,0)="ENTRY DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(801.5,.06,3)="The date the entries were made into the GEC Dialogs."
^DD(801.5,.06,21,0)="^^2^2^3050617^^"
^DD(801.5,.06,21,1,0)="This is a date stamp of the date in which data was entered into the "
^DD(801.5,.06,21,2,0)="GEC Dialog referenced in the IDENTIFY field."
^DD(801.5,.06,"DT")="3050617"
^DD(801.5,"B","DATE/TIME",.02)=""
^DD(801.5,"B","ENTRY DATE",.06)=""
^DD(801.5,"B","GEC USER",.05)=""
^DD(801.5,"B","IDENTIFY",.03)=""
^DD(801.5,"B","NOTEIEN",.04)=""
^DD(801.5,"B","PATIENT",.01)=""
^DD(801.5,"GL",0,1,.01)=""
^DD(801.5,"GL",0,2,.02)=""
^DD(801.5,"GL",0,3,.03)=""
^DD(801.5,"GL",0,4,.04)=""
^DD(801.5,"GL",0,5,.05)=""
^DD(801.5,"GL",0,6,.06)=""
^DD(801.5,"IX",.01)=""
^DD(801.5,"RQ",.01)=""
^DD(801.55,0)="FIELD^^.06^6"
^DD(801.55,0,"DDA")="N"
^DD(801.55,0,"DT")="3050617"
^DD(801.55,0,"IX","B",801.55,.01)=""
^DD(801.55,0,"NM","REMINDER GEC DIALOG ASSOCIATION HISTORY")=""
^DD(801.55,0,"VR")="2.0"
^DD(801.55,0,"VRPK")="PXRM"
^DD(801.55,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(801.55,.01,.1)="PATIENT NAME"
^DD(801.55,.01,1,0)="^.1"
^DD(801.55,.01,1,1,0)="801.55^B"
^DD(801.55,.01,1,1,1)="S ^PXRMD(801.55,""B"",$E(X,1,30),DA)="""""
^DD(801.55,.01,1,1,2)="K ^PXRMD(801.55,""B"",$E(X,1,30),DA)"
^DD(801.55,.01,3)="Answer must be 3-30 characters in length."
^DD(801.55,.01,21,0)="^.001^5^5^3060816^^^^"
^DD(801.55,.01,21,1,0)="This field serves as a permanent identifier of the patient who has"
^DD(801.55,.01,21,2,0)="been selected while using the Geriatric Extended Care Dialogs"
^DD(801.55,.01,21,3,0)="(GEC)."
^DD(801.55,.01,21,4,0)=""
^DD(801.55,.01,21,5,0)=""
^DD(801.55,.01,"DT")="3050712"
^DD(801.55,.02,0)="DATE/TIME^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(801.55,.02,3)="(No range limit on date)"
^DD(801.55,.02,21,0)="^^4^4^3050712^^"
^DD(801.55,.02,21,1,0)="This field contains the date and time that the GEC dialogs were first "
^DD(801.55,.02,21,2,0)="initiated for a particular patient and a particular referral. It is the "
^DD(801.55,.02,21,3,0)="current date and item that the first entry for this patient was enter into "
^DD(801.55,.02,21,4,0)="file 801.5."
^DD(801.55,.02,"DT")="3050712"
^DD(801.55,.03,0)="IDENTIFY^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(801.55,.03,3)="Answer must be 1-30 characters in length"
^DD(801.55,.03,21,0)="^^3^3^3050712^^"
^DD(801.55,.03,21,1,0)="There are 4 reminder dialogs use in the GEC program.  This field hold on of "
^DD(801.55,.03,21,2,0)="the 4 possible entries representing the dialog that is being used. the "
^DD(801.55,.03,21,3,0)="possibilities are GEC1,GEC2,GEC3, and GECF."
^DD(801.55,.03,"DT")="3050712"
^DD(801.55,.04,0)="NOTIEN^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(801.55,.04,3)="Answer must be 1-20 characters in length"
^DD(801.55,.04,21,0)="^^3^3^3050617^"
^DD(801.55,.04,21,1,0)="This field permanently saved the internal entry number of the Text "
^DD(801.55,.04,21,2,0)="Integration Utilities (TIU) note that is being written on when selections "
^DD(801.55,.04,21,3,0)="are being made in the GEC dialogs."
^DD(801.55,.04,"DT")="3050628"
^DD(801.55,.05,0)="USER^P200'^VA(200,^0;5^Q"
^DD(801.55,.05,3)="This field is the user who is entering the GEC data into the GEC dialogs."
^DD(801.55,.05,21,0)="^^2^2^3050617^"
^DD(801.55,.05,21,1,0)="This field contains a pointer to the NEW PERSON file #200. It represents the "
^DD(801.55,.05,21,2,0)="user who entered the data into the GEC dialogs."
^DD(801.55,.05,"DT")="3050712"
^DD(801.55,.06,0)="ENTRY DATE^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(801.55,.06,3)="(No range limit on date)"
^DD(801.55,.06,21,0)="^^2^2^3050617^"
^DD(801.55,.06,21,1,0)="This is the date that the data was placed into the GEC dialog represented by "
^DD(801.55,.06,21,2,0)="the IDENTIFY filed."
^DD(801.55,.06,"DT")="3050617"
^DD(801.55,"B","DATE/TIME",.02)=""
^DD(801.55,"B","ENTRY DATE",.06)=""
^DD(801.55,"B","IDENTIFY",.03)=""
^DD(801.55,"B","NOTIEN",.04)=""
^DD(801.55,"B","PATIENT",.01)=""
^DD(801.55,"B","PATIENT NAME",.01)="1"
^DD(801.55,"B","USER",.05)=""
^DD(801.55,"GL",0,1,.01)=""
^DD(801.55,"GL",0,2,.02)=""
^DD(801.55,"GL",0,3,.03)=""
^DD(801.55,"GL",0,4,.04)=""
^DD(801.55,"GL",0,5,.05)=""
^DD(801.55,"GL",0,6,.06)=""
^DD(801.55,"IX",.01)=""
^DD(801.55,"RQ",.01)=""
^DD(801.9,0)="FIELD^^10^8"
^DD(801.9,0,"DDA")="N"
^DD(801.9,0,"DT")="3000511"
^DD(801.9,0,"IX","B",801.9,.01)=""
^DD(801.9,0,"NM","REMINDER RESOLUTION STATUS")=""
^DD(801.9,0,"PT",801.41,13)=""
^DD(801.9,0,"PT",801.451,.01)=""
^DD(801.9,0,"PT",801.9001,.01)=""
^DD(801.9,0,"PT",801.9501,.01)=""
^DD(801.9,0,"VR")="2.0"
^DD(801.9,0,"VRPK")="CLINICAL REMINDERS"
^DD(801.9,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(801.9,.01,1,0)="^.1^^-1"
^DD(801.9,.01,1,1,0)="801.9^B"
^DD(801.9,.01,1,1,1)="S ^PXRMD(801.9,""B"",$E(X,1,30),DA)="""""
^DD(801.9,.01,1,1,2)="K ^PXRMD(801.9,""B"",$E(X,1,30),DA)"
^DD(801.9,.01,3)="Answer must be 3-40 characters in length."
^DD(801.9,.01,21,0)="^.001^4^4^3000613^^^^"
^DD(801.9,.01,21,1,0)="This is a name that can be used to group reminder resolutions.  Local"
^DD(801.9,.01,21,2,0)="resolution status names need to be mapped to a national resolution status."
^DD(801.9,.01,21,3,0)="The Health Factor findings are the findings that may be mapped to the"
^DD(801.9,.01,21,4,0)="resolution statuses."
^DD(801.9,.01,"DEL",1,0)="I $P($G(^PXRMD(801.9,DA,0)),U,6) D EN^DDIOL($C(7)_""CANNOT DELETE A NATIONAL STATUS"")"
^DD(801.9,.01,"DT")="3000208"
^DD(801.9,.02,0)="ABBREVIATED NAME^F^^0;2^K:$L(X)>20!($L(X)<3) X"
^DD(801.9,.02,3)="Answer must be 3-20 characters in length."
^DD(801.9,.02,21,0)="^^1^1^3000511^"
^DD(801.9,.02,21,1,0)="This is the abbreviated name for the resolution status."
^DD(801.9,.02,"DT")="2990609"
^DD(801.9,.03,0)="REPORT COLUMN HEADING^F^^0;3^K:$L(X)>99!($L(X)<1) X"
^DD(801.9,.03,3)="Answer must be 1-99 characters in length."
^DD(801.9,.03,21,0)="^^1^1^3000511^"
^DD(801.9,.03,21,1,0)="This is the print column heading for use in reminder reports."
^DD(801.9,.03,"DT")="2990609"
^DD(801.9,.04,0)="INACTIVE FLAG^S^1:INACTIVE;^0;4^Q"
^DD(801.9,.04,21,0)="^^2^2^3000511^"
^DD(801.9,.04,21,1,0)="This flag should be set if the resolution status should no longer be used"
^DD(801.9,.04,21,2,0)="in reminder dialogs."
^DD(801.9,.04,"DT")="2990609"
^DD(801.9,.05,0)="CREATOR^P200'^VA(200,^0;5^Q"
^DD(801.9,.05,21,0)="^^1^1^3000511^"
^DD(801.9,.05,21,1,0)="Person who created the resolution status. Applies only to local statuses."
^DD(801.9,.05,"DT")="3000511"
^DD(801.9,.06,0)="RESTRICTED EDITING^S^1:RESTRICTED;^0;6^Q"
^DD(801.9,.06,21,0)="^.001^2^2^3000511^^"
^DD(801.9,.06,21,1,0)="Nationally distributed statuses are released with this field set to"
^DD(801.9,.06,21,2,0)="restrict editing. The national statuses may not be deleted."
^DD(801.9,.06,"DT")="2990609"
^DD(801.9,1,0)="DESCRIPTION^801.901^^1;0"
^DD(801.9,1,21,0)="^^1^1^3000511^"
^DD(801.9,1,21,1,0)="This is a brief description of the resolution status."
^DD(801.9,10,0)="SUB-STATUS^801.9001P^^10;0"
^DD(801.9,10,12)="RESOLUTION CANNOT POINT TO ITSELF"
^DD(801.9,10,12.1)="S ^DIC(""S"")=""I ^(0)'=^PXRMD(801.9,DA,0)"""
^DD(801.9,10,21,0)="^.001^3^3^3000613^^"
^DD(801.9,10,21,1,0)="Locally created resolution statuses must be a sub-status of a nationally"
^DD(801.9,10,21,2,0)="released resolution status. This field contains the local statuses that"
^DD(801.9,10,21,3,0)="belong to the national status."
^DD(801.9,"B","ABBREVIATED NAME",.02)=""
^DD(801.9,"B","CREATOR",.05)=""
^DD(801.9,"B","DESCRIPTION",1)=""
^DD(801.9,"B","INACTIVE FLAG",.04)=""
^DD(801.9,"B","NAME",.01)=""
^DD(801.9,"B","REPORT COLUMN HEADING",.03)=""
^DD(801.9,"B","RESTRICTED EDITING",.06)=""
^DD(801.9,"B","SUB-STATUS",10)=""
^DD(801.9,"GL",0,1,.01)=""
^DD(801.9,"GL",0,2,.02)=""
^DD(801.9,"GL",0,3,.03)=""
^DD(801.9,"GL",0,4,.04)=""
^DD(801.9,"GL",0,5,.05)=""
^DD(801.9,"GL",0,6,.06)=""
^DD(801.9,"GL",1,0,1)=""
^DD(801.9,"GL",10,0,10)=""
^DD(801.9,"IX",.01)=""
^DD(801.9,"RQ",.01)=""
^DD(801.9,"SB",801.9001,10)=""
^DD(801.9,"SB",801.901,1)=""
^DD(801.9001,0)="SUB-STATUS SUB-FIELD^^.01^1"
^DD(801.9001,0,"DT")="3000208"
^DD(801.9001,0,"IX","B",801.9001,.01)=""
^DD(801.9001,0,"NM","SUB-STATUS")=""
^DD(801.9001,0,"UP")="801.9"
^DD(801.9001,.01,0)="SUB-STATUS^M*P801.9'^PXRMD(801.9,^0;1^S DIC(""S"")=""I ($P(^(0),U,6)'=1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(801.9001,.01,1,0)="^.1^^-1"
^DD(801.9001,.01,1,1,0)="801.9001^B"
^DD(801.9001,.01,1,1,1)="S ^PXRMD(801.9,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(801.9001,.01,1,1,2)="K ^PXRMD(801.9,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(801.9001,.01,12)="Substatus cannot itself be a national status."
^DD(801.9001,.01,12.1)="S DIC(""S"")=""I ($P(^(0),U,6)'=1)"""
^DD(801.9001,.01,"DT")="3000208"
^DD(801.9001,"B","SUB-STATUS",.01)=""
^DD(801.9001,"GL",0,1,.01)=""
^DD(801.9001,"IX",.01)=""
^DD(801.901,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(801.901,0,"DT")="2990609"
^DD(801.901,0,"NM","DESCRIPTION")=""
^DD(801.901,0,"UP")="801.9"
^DD(801.901,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(801.901,.01,"DT")="2990609"
^DD(801.901,"B","DESCRIPTION",.01)=""
^DD(801.901,"GL",0,1,.01)=""
^DD(801.95,0)="FIELD^^.02^2"
^DD(801.95,0,"DDA")="N"
^DD(801.95,0,"DT")="2990902"
^DD(801.95,0,"IX","B",801.95,.01)=""
^DD(801.95,0,"NM","HEALTH FACTOR RESOLUTION")=""
^DD(801.95,0,"VR")="2.0"
^DD(801.95,0,"VRPK")="CLINICAL REMINDERS"
^DD(801.95,.01,0)="NAME^RP9999999.64X^AUTTHF(^0;1^S:$D(X) DINUM=X"
^DD(801.95,.01,.1)="HEALTH FACTOR RESOLUTION"
^DD(801.95,.01,1,0)="^.1"
^DD(801.95,.01,1,1,0)="801.95^B"
^DD(801.95,.01,1,1,1)="S ^PXRMD(801.95,""B"",$E(X,1,30),DA)="""""
^DD(801.95,.01,1,1,2)="K ^PXRMD(801.95,""B"",$E(X,1,30),DA)"
^DD(801.95,.01,3)=""
^DD(801.95,.01,21,0)="^^8^8^3000505^"
^DD(801.95,.01,21,1,0)="A list of reminder resolution statuses by health factor is maintained for"
^DD(801.95,.01,21,2,0)="use in automatic generation of reminder dialog"
^DD(801.95,.01,21,3,0)=" "
^DD(801.95,.01,21,4,0)="Dialog defaults for health factors are held in the REMINDER FINDING TYPE"
^DD(801.95,.01,21,5,0)="PARAMETER file (#801.45) for every resolution status. The automatic"
^DD(801.95,.01,21,6,0)="generation process for a health factor reminder finding will only use the"
^DD(801.95,.01,21,7,0)="dialog defaults for the resolution statuses in the HEALTH FACTOR"
^DD(801.95,.01,21,8,0)="RESOLUTION file."
^DD(801.95,.01,"DT")="3000505"
^DD(801.95,.02,0)="RESOLUTION STATUS^801.9501PA^^1;0"
^DD(801.95,.02,21,0)="^^2^2^3000505^"
^DD(801.95,.02,21,1,0)="Default dialog from the REMINDER FINDING TYPE PARAMETER file will only be"
^DD(801.95,.02,21,2,0)="generated for resolution statuses in this field."
^DD(801.95,"B","HEALTH FACTOR RESOLUTION",.01)="1"
^DD(801.95,"B","NAME",.01)=""
^DD(801.95,"B","RESOLUTION STATUS",.02)=""
^DD(801.95,"GL",0,1,.01)=""
^DD(801.95,"GL",1,0,.02)=""
^DD(801.95,"IX",.01)=""
^DD(801.95,"RQ",.01)=""
^DD(801.95,"SB",801.9501,.02)=""
^DD(801.9501,0)="RESOLUTION STATUS SUB-FIELD^^.01^1"
^DD(801.9501,0,"DT")="2990902"
^DD(801.9501,0,"IX","B",801.9501,.01)=""
^DD(801.9501,0,"NM","RESOLUTION STATUS")=""
^DD(801.9501,0,"UP")="801.95"
^DD(801.9501,.01,0)="RESOLUTION STATUS^MRP801.9'^PXRMD(801.9,^0;1^Q"
^DD(801.9501,.01,1,0)="^.1"
^DD(801.9501,.01,1,1,0)="801.9501^B"
^DD(801.9501,.01,1,1,1)="S ^PXRMD(801.95,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(801.9501,.01,1,1,2)="K ^PXRMD(801.95,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(801.9501,.01,"DT")="2990902"
^DD(801.9501,"B","RESOLUTION STATUS",.01)=""
^DD(801.9501,"GL",0,1,.01)=""
^DD(801.9501,"IX",.01)=""
^DD(801.9501,"RQ",.01)=""
^DD(802.4,0)="FIELD^^.05^10"
^DD(802.4,0,"DDA")="N"
^DD(802.4,0,"DT")="3060222"
^DD(802.4,0,"NM","REMINDER FUNCTION FINDING FUNCTIONS")=""
^DD(802.4,0,"PT",811.9255,.02)=""
^DD(802.4,0,"VR")="2.0"
^DD(802.4,0,"VRPK")="PXRM"
^DD(802.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(802.4,.01,1,0)="^.1^^0"
^DD(802.4,.01,3)="Answer must be 2-30 characters in length."
^DD(802.4,.01,21,0)="^.001^1^1^3040712^^"
^DD(802.4,.01,21,1,0)="This is the name of the function finding."
^DD(802.4,.01,"DT")="3040712"
^DD(802.4,.02,0)="ENTRY^RF^^0;2^K:$L(X)>8!($L(X)<2) X"
^DD(802.4,.02,3)="Answer must be 2-8 characters in length."
^DD(802.4,.02,21,0)="^^1^1^3030131^"
^DD(802.4,.02,21,1,0)="This is the entry point in the routine specified in the ROUTINE field. "
^DD(802.4,.02,"DT")="3030131"
^DD(802.4,.03,0)="ROUTINE^RF^^0;3^K:$L(X)>8!($L(X)<3) X"
^DD(802.4,.03,3)="Enter the M routine name"
^DD(802.4,.03,21,0)="^^3^3^3030131^"
^DD(802.4,.03,21,1,0)="This is the name of an M routine that contains the code for the"
^DD(802.4,.03,21,2,0)="function finding. The entry point to use is specified in the ENTRY"
^DD(802.4,.03,21,3,0)="POINT field."
^DD(802.4,.03,"DT")="3030131"
^DD(802.4,.04,0)="PRINT NAME^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(802.4,.04,3)="Answer must be 1-40 characters in length."
^DD(802.4,.04,"DT")="3030131"
^DD(802.4,.05,0)="ARGUMENT PATTERN^RF^^0;5^K:$L(X)>64!($L(X)<2) X"
^DD(802.4,.05,3)="Answer must be 2-64 characters in length."
^DD(802.4,.05,21,0)="^.001^4^4^3060222^^"
^DD(802.4,.05,21,1,0)="This is a standard MUMPS pattern that is used to verify that"
^DD(802.4,.05,21,2,0)="the argument list for the function has the correct format."
^DD(802.4,.05,21,3,0)=""
^DD(802.4,.05,21,4,0)=""
^DD(802.4,.05,"DT")="3060222"
^DD(802.4,1,0)="DESCRIPTION^802.41^^1;0"
^DD(802.4,1,21,0)="^.001^1^1^3030723^^"
^DD(802.4,1,21,1,0)="This is the description of the function finding."
^DD(802.4,100,0)="CLASS^RS^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q"
^DD(802.4,100,3)="Enter the class"
^DD(802.4,100,21,0)="^^1^1^3030131^"
^DD(802.4,100,21,1,0)="This is the class of the function finding."
^DD(802.4,100,"DT")="3030131"
^DD(802.4,101,0)="SPONSOR^P811.6'^PXRMD(811.6,^100;2^Q"
^DD(802.4,101,3)="Enter the sponsor"
^DD(802.4,101,21,0)="^^1^1^3030131^"
^DD(802.4,101,21,1,0)="This is the organization or group that sponsors this function finding."
^DD(802.4,101,"DT")="3030131"
^DD(802.4,102,0)="REVIEW DATE^D^^100;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(802.4,102,3)="Enter the review date"
^DD(802.4,102,21,0)="^^3^3^3030131^"
^DD(802.4,102,21,1,0)="The REVIEW DATE is used to determine when the function finding should be"
^DD(802.4,102,21,2,0)="reviewed to verify that it is current with the latest standards and"
^DD(802.4,102,21,3,0)="guidelines.  "
^DD(802.4,102,"DT")="3030131"
^DD(802.4,110,0)="EDIT HISTORY^802.42DA^^110;0"
^DD(802.4,110,21,0)="^^2^2^3030131^"
^DD(802.4,110,21,1,0)="This multiple is used to record a history of changes made to the"
^DD(802.4,110,21,2,0)="function finding."
^DD(802.4,"B","ARGUMENT PATTERN",.05)=""
^DD(802.4,"B","CLASS",100)=""
^DD(802.4,"B","DESCRIPTION",1)=""
^DD(802.4,"B","EDIT HISTORY",110)=""
^DD(802.4,"B","ENTRY",.02)=""
^DD(802.4,"B","NAME",.01)=""
^DD(802.4,"B","PRINT NAME",.04)=""
^DD(802.4,"B","REVIEW DATE",102)=""
^DD(802.4,"B","ROUTINE",.03)=""
^DD(802.4,"B","SPONSOR",101)=""
^DD(802.4,"GL",0,1,.01)=""
^DD(802.4,"GL",0,2,.02)=""
^DD(802.4,"GL",0,3,.03)=""
^DD(802.4,"GL",0,4,.04)=""
^DD(802.4,"GL",0,5,.05)=""
^DD(802.4,"GL",1,0,1)=""
^DD(802.4,"GL",100,1,100)=""
^DD(802.4,"GL",100,2,101)=""
^DD(802.4,"GL",100,3,102)=""
^DD(802.4,"GL",110,0,110)=""
^DD(802.4,"RQ",.01)=""
^DD(802.4,"RQ",.02)=""
^DD(802.4,"RQ",.03)=""
^DD(802.4,"RQ",.05)=""
^DD(802.4,"RQ",100)=""
^DD(802.4,"SB",802.41,1)=""
^DD(802.4,"SB",802.42,110)=""
^DD(802.41,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(802.41,0,"DT")="3021120"
^DD(802.41,0,"NM","DESCRIPTION")=""
^DD(802.41,0,"UP")="802.4"
^DD(802.41,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(802.41,.01,3)="Enter the description of the functional finding"
^DD(802.41,.01,"DT")="3021120"
^DD(802.41,"B","DESCRIPTION",.01)=""
^DD(802.41,"GL",0,1,.01)=""
^DD(802.42,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(802.42,0,"DT")="3021120"
^DD(802.42,0,"IX","B",802.42,.01)=""
^DD(802.42,0,"NM","EDIT HISTORY")=""
^DD(802.42,0,"UP")="802.4"
^DD(802.42,.01,0)="EDIT DATE^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(802.42,.01,1,0)="^.1"
^DD(802.42,.01,1,1,0)="802.42^B"
^DD(802.42,.01,1,1,1)="S ^PXRMD(802.4,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(802.42,.01,1,1,2)="K ^PXRMD(802.4,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(802.42,.01,21,0)="^^2^2^3021120^"
^DD(802.42,.01,21,1,0)="This is the date and time when editing was done. This field is set"
^DD(802.42,.01,21,2,0)="automatically and should not be changed by the user."
^DD(802.42,.01,"DT")="3021120"
^DD(802.42,1,0)="EDIT BY^P200'^VA(200,^110;1^Q"
^DD(802.42,1,21,0)="^^3^3^3021120^"
^DD(802.42,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(802.42,1,21,2,0)="and should not be changed by the user.  "
^DD(802.42,1,21,3,0)=""
^DD(802.42,1,"DT")="3021120"
^DD(802.42,2,0)="EDIT COMMENTS^802.422^^1;0"
^DD(802.42,2,21,0)="^^3^3^3021120^"
^DD(802.42,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(802.42,2,21,2,0)="during the editing session.  "
^DD(802.42,2,21,3,0)=""
^DD(802.42,"B","EDIT BY",1)=""
^DD(802.42,"B","EDIT COMMENTS",2)=""
^DD(802.42,"B","EDIT DATE",.01)=""
^DD(802.42,"GL",0,1,.01)=""
^DD(802.42,"GL",1,0,2)=""
^DD(802.42,"GL",110,1,1)=""
^DD(802.42,"IX",.01)=""
^DD(802.42,"SB",802.422,2)=""
^DD(802.422,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(802.422,0,"DT")="3021120"
^DD(802.422,0,"NM","EDIT COMMENTS")=""
^DD(802.422,0,"UP")="802.42"
^DD(802.422,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(802.422,.01,"DT")="3021120"
^DD(802.422,"B","EDIT COMMENTS",.01)=""
^DD(802.422,"GL",0,1,.01)=""
^DD(810.1,0)="FIELD^^1.7^22"
^DD(810.1,0,"DDA")="N"
^DD(810.1,0,"DT")="3061128"
^DD(810.1,0,"ID",1.9)="W ""   "",$P(^(0),U,2)"
^DD(810.1,0,"IX","B",810.1,.01)=""
^DD(810.1,0,"NM","REMINDER REPORT TEMPLATE")=""
^DD(810.1,0,"VR")="2.0"
^DD(810.1,0,"VRPK")="PXRM"
^DD(810.1,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X D NAME^PXRMXTU"
^DD(810.1,.01,.1)="TEMPLATE NAME"
^DD(810.1,.01,1,0)="^.1"
^DD(810.1,.01,1,1,0)="810.1^B"
^DD(810.1,.01,1,1,1)="S ^PXRMPT(810.1,""B"",$E(X,1,30),DA)="""""
^DD(810.1,.01,1,1,2)="K ^PXRMPT(810.1,""B"",$E(X,1,30),DA)"
^DD(810.1,.01,3)="Answer must be 3-30 characters in length."
^DD(810.1,.01,21,0)="^.001^8^8^3000505^^^^"
^DD(810.1,.01,21,1,0)="The template name is displayed on the report criteria page of the"
^DD(810.1,.01,21,2,0)="reminder report and is used when selecting templates."
^DD(810.1,.01,21,3,0)=""
^DD(810.1,.01,21,4,0)="When editing an existing template, this field should ONLY be amended if you"
^DD(810.1,.01,21,5,0)="wish to RENAME the template. To make a COPY of a template under a new name"
^DD(810.1,.01,21,6,0)="(leaving the original intact), leave this field unchanged and enter a"
^DD(810.1,.01,21,7,0)="new name at the prompt 'STORE REPORT LOGIC IN TEMPLATE NAME:'. To DELETE a"
^DD(810.1,.01,21,8,0)="template, enter @ at template name."
^DD(810.1,.01,23,0)="^.001^1^1^3000505^^^^"
^DD(810.1,.01,23,1,0)="Used as an identifier to select templates."
^DD(810.1,.01,"DT")="2990420"
^DD(810.1,1.1,0)="TEMPLATE TYPE^RS^Y:Reminders Satisfied PXRMY;X:Reminders Due PXRMX;^0;3^Q"
^DD(810.1,1.1,.1)=""
^DD(810.1,1.1,21,0)="^^3^3^2990609^"
^DD(810.1,1.1,21,1,0)="Templates are specific to the type of reminder report being run and are"
^DD(810.1,1.1,21,2,0)="not interchangeable since the parameter set required for different reports"
^DD(810.1,1.1,21,3,0)="varies. "
^DD(810.1,1.1,23,0)="^^6^6^2990609^^"
^DD(810.1,1.1,23,1,0)="Report types are :"
^DD(810.1,1.1,23,2,0)=" "
^DD(810.1,1.1,23,3,0)="       X - used by PXRMX* routines for Reminders Due"
^DD(810.1,1.1,23,4,0)="       Y - used by PXRMY* routines for Reminders Satisfied"
^DD(810.1,1.1,23,5,0)=" "
^DD(810.1,1.1,23,6,0)="This field is maintained by the report program and may not be edited."
^DD(810.1,1.1,"DT")="3020716"
^DD(810.1,1.2,0)="PATIENT SAMPLE^RS^L:Location;O:OE/RR team;P:Provider;T:PCMM team;I:Individual Patient;R:Reminder Patient List;^0;4^Q"
^DD(810.1,1.2,.1)=""
^DD(810.1,1.2,21,0)="^.001^14^14^3050117^^^^"
^DD(810.1,1.2,21,1,0)="The patient sample defines the patient cohort. Listed below are the"
^DD(810.1,1.2,21,2,0)="parameters relevant to each sample type."
^DD(810.1,1.2,21,3,0)=" "
^DD(810.1,1.2,21,4,0)="(I)ndividual Patients - A list of patients may be entered."
^DD(810.1,1.2,21,5,0)="(L)ocations - Hospital Locations, Clinic Stops or Clinic Groups may be"
^DD(810.1,1.2,21,6,0)="              entered. Patients with encounters or appointments at these"
^DD(810.1,1.2,21,7,0)="              locations are selected for reporting."
^DD(810.1,1.2,21,8,0)="(P)roviders - PCMM providers may be entered. Patients for these providers"
^DD(810.1,1.2,21,9,0)="              are selected for reporting. Either Primary/Care or All"
^DD(810.1,1.2,21,10,0)="              patients for the providers may be reported."
^DD(810.1,1.2,21,11,0)="(T)eams     - PCMM teams may be entered. Patients allocated to these teams"
^DD(810.1,1.2,21,12,0)="              are selected for reporting"
^DD(810.1,1.2,21,13,0)="(O)E/RR     - OE/RR teams may be entered. Patients allocated to these"
^DD(810.1,1.2,21,14,0)="              teams are selected for reporting."
^DD(810.1,1.2,23,0)="^.001^14^14^3050117^^^"
^DD(810.1,1.2,23,1,0)="Routine PXRMXT loads templates into a local array for use by the report"
^DD(810.1,1.2,23,2,0)="routines. Each patient sample has only one associated array. The field"
^DD(810.1,1.2,23,3,0)="PXRMSEL decides which array is loaded. The local arrays correspond to the"
^DD(810.1,1.2,23,4,0)="field names in the template file."
^DD(810.1,1.2,23,5,0)=" "
^DD(810.1,1.2,23,6,0)="e.g. "
^DD(810.1,1.2,23,7,0)="PXRMSEL=""I"" patient entries in field PXRMPAT are loaded into array PXRMPAT"
^DD(810.1,1.2,23,8,0)="PXRMSEL=""T"" team entries in field PXRMPCM are loaded into array PXRMPCM"
^DD(810.1,1.2,23,9,0)="PXRMSEL=""P"" providers in field PXRMPRV are loaded into array PXRMPRV"
^DD(810.1,1.2,23,10,0)="PXRMSEL=""O"" team entries in PXRMOTM are loaded into array PXRMOTM"
^DD(810.1,1.2,23,11,0)=" "
^DD(810.1,1.2,23,12,0)="Note that except for the individual patient sample (PXRMSEL=""I"") the"
^DD(810.1,1.2,23,13,0)="template file does not hold patient identifiers. Lists of patients are"
^DD(810.1,1.2,23,14,0)="assembled by the report routines."
^DD(810.1,1.2,"DT")="3020716"
^DD(810.1,1.3,0)="PRIMARY CARE ONLY OR ALL^S^P:Primary care patients only;A:All patients;^0;5^Q"
^DD(810.1,1.3,.1)=""
^DD(810.1,1.3,"DT")="3020716"
^DD(810.1,1.4,0)="REPORT TYPE^RSX^D:Detailed Report;S:Summary Report;^0;6^D PXRMREP^PXRMXTA"
^DD(810.1,1.4,.1)=""
^DD(810.1,1.4,21,0)="^^4^4^2990414^"
^DD(810.1,1.4,21,1,0)="The summary report displays the TOTAL number of patients with reminders"
^DD(810.1,1.4,21,2,0)="APPLICABLE or DUE from the patient sample selected."
^DD(810.1,1.4,21,3,0)=" "
^DD(810.1,1.4,21,4,0)="The detailed report lists DUE patients by name and SSN."
^DD(810.1,1.4,"DT")="3020716"
^DD(810.1,1.5,0)="LOCATION TYPE^S^HA:All Outpatient Locations;HAI:All Inpatient Locations;HS:Selected Hospital Locations;CA:All Clinic Stops;CS:Selected Clinic Stops;GS:Selected Clinic Groups;^0;7^Q"
^DD(810.1,1.5,.1)=""
^DD(810.1,1.5,"DT")="3020716"
^DD(810.1,1.6,0)="TYPE OF ENCOUNTER^SX^F:Future Appointments;P:Prior Visits;A:Admissions;C:Current Inpatients;^0;8^D INP^PXRMXTU"
^DD(810.1,1.6,.1)=""
^DD(810.1,1.6,"DT")="3020716"
^DD(810.1,1.7,0)="LOCATIONS WITHOUT PATIENTS^S^0:NO;1:YES;^0;9^Q"
^DD(810.1,1.7,21,0)="^.001^4^4^3071004^^"
^DD(810.1,1.7,21,1,0)="This field will be used to determine if the list of locations"
^DD(810.1,1.7,21,2,0)="without patients will print at the end of the report."
^DD(810.1,1.7,21,3,0)=""
^DD(810.1,1.7,21,4,0)=""
^DD(810.1,1.7,"DT")="3061128"
^DD(810.1,1.9,0)="REPORT TITLE^RF^^0;2^K:$L(X)>40!($L(X)<5) X"
^DD(810.1,1.9,.1)=""
^DD(810.1,1.9,3)="Answer must be 5-40 characters in length."
^DD(810.1,1.9,21,0)="^.001^3^3^3000505^^"
^DD(810.1,1.9,21,1,0)="A detailed report title may be defined when a template is created. This"
^DD(810.1,1.9,21,2,0)="should be a detailed description of the report and is displayed both on"
^DD(810.1,1.9,21,3,0)="the report criteria page and at template selection."
^DD(810.1,1.9,23,0)="^.001^2^2^3000505^^"
^DD(810.1,1.9,23,1,0)="Detailed description of template. Used as an identifier when selecting"
^DD(810.1,1.9,23,2,0)="templates."
^DD(810.1,1.9,"DT")="3020716"
^DD(810.1,2,0)="REMINDER^810.12PA^^1;0"
^DD(810.1,2,"DT")="3020701"
^DD(810.1,3,0)="FACILITY^810.13PA^^6;0"
^DD(810.1,3,21,0)="^^1^1^3040913^"
^DD(810.1,3,21,1,0)="This multiple stores a list of facilities to run the report against."
^DD(810.1,3,"DT")="3020701"
^DD(810.1,4,0)="PROVIDER^810.14PA^^3;0"
^DD(810.1,4,21,0)="^^1^1^3040913^"
^DD(810.1,4,21,1,0)="This multiple stores a list of users to run the report against."
^DD(810.1,4,"DT")="3020716"
^DD(810.1,5,0)="RUN^D^^7;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(810.1,5,21,0)="^^1^1^3040913^"
^DD(810.1,5,21,1,0)="This field stores the date the report was last run on."
^DD(810.1,5,"DT")="3040913"
^DD(810.1,6,0)="PATIENT^810.16PA^^2;0"
^DD(810.1,6,21,0)="^^1^1^3040913^"
^DD(810.1,6,21,1,0)="This multiple stores a list of patients to run the report against."
^DD(810.1,6,"DT")="3020701"
^DD(810.1,7,0)="OERR TEAM^810.17PA^^4;0"
^DD(810.1,7,21,0)="^^1^1^3040913^"
^DD(810.1,7,21,1,0)="This multiple stores a list of OERR teams to run the report against."
^DD(810.1,7,"DT")="3020701"
^DD(810.1,8,0)="PCMM TEAM^810.18PA^^5;0"
^DD(810.1,8,21,0)="^.001^1^1^3050117^^"
^DD(810.1,8,21,1,0)="This multiple stores a list of PCMM teams to run the report against."
^DD(810.1,8,"DT")="3020701"
^DD(810.1,9,0)="SERVICE CATEGORY LIST^FX^^8;1^K:$L(X)>245!($L(X)<1)!('$$VSCLIST^PXRMXSC(X)) X"
^DD(810.1,9,.1)="Service Category List"
^DD(810.1,9,3)="Answer must be 1-245 characters in length."
^DD(810.1,9,4)="D SCATHELP^PXRMXSC"
^DD(810.1,9,21,0)="^.001^5^5^3061218^^^^"
^DD(810.1,9,21,1,0)="This is a comma separated list of service categories. It is used to"
^DD(810.1,9,21,2,0)="screen visits while building a list of patients based on visits. If"
^DD(810.1,9,21,3,0)="the service category of the visit is not on the list the visit will"
^DD(810.1,9,21,4,0)="be excluded."
^DD(810.1,9,21,5,0)=""
^DD(810.1,9,"DT")="3051103"
^DD(810.1,10,0)="LOCATION^810.11PA^^9;0"
^DD(810.1,10,21,0)="^.001^2^2^3050117^^"
^DD(810.1,10,21,1,0)="This multiple stores a list of Hospital locations to run the report "
^DD(810.1,10,21,2,0)="against."
^DD(810.1,10,"DT")="3020701"
^DD(810.1,11,0)="STOP CODE^810.111PA^^10;0"
^DD(810.1,11,21,0)="^.001^2^2^3050117^^"
^DD(810.1,11,21,1,0)="This multiple stores a list of Clinic Stop Codes to run the report"
^DD(810.1,11,21,2,0)="against."
^DD(810.1,11,"DT")="3020701"
^DD(810.1,12,0)="CLINIC GROUP^810.112PA^^11;0"
^DD(810.1,12,21,0)="^.001^1^1^3050117^^"
^DD(810.1,12,21,1,0)="This multiple stores a list of Clinic Groups to run the report against."
^DD(810.1,12,"DT")="3020701"
^DD(810.1,13,0)="REMINDER CATEGORY^810.113P^^12;0"
^DD(810.1,13,21,0)="^.001^2^2^3050117^^^"
^DD(810.1,13,21,1,0)="This multiple stores a list of Reminder Categories to use for Reminder "
^DD(810.1,13,21,2,0)="Evaluation done within the report and the display order."
^DD(810.1,13,"DT")="3020701"
^DD(810.1,14,0)="PATIENT LIST^810.114P^^13;0"
^DD(810.1,14,21,0)="^.001^2^2^3050117^^"
^DD(810.1,14,21,1,0)="This multiple stores a list of Reminder Patient Lists used by the report "
^DD(810.1,14,21,2,0)="to save the due patients to."
^DD(810.1,14,"DT")="3020716"
^DD(810.1,"B","CLINIC GROUP",12)=""
^DD(810.1,"B","FACILITY",3)=""
^DD(810.1,"B","LOCATION",10)=""
^DD(810.1,"B","LOCATION TYPE",1.5)=""
^DD(810.1,"B","LOCATIONS WITHOUT PATIENTS",1.7)=""
^DD(810.1,"B","NAME",.01)=""
^DD(810.1,"B","OERR TEAM",7)=""
^DD(810.1,"B","PATIENT",6)=""
^DD(810.1,"B","PATIENT LIST",14)=""
^DD(810.1,"B","PATIENT SAMPLE",1.2)=""
^DD(810.1,"B","PCMM TEAM",8)=""
^DD(810.1,"B","PRIMARY CARE ONLY OR ALL",1.3)=""
^DD(810.1,"B","PROVIDER",4)=""
^DD(810.1,"B","REMINDER",2)=""
^DD(810.1,"B","REMINDER CATEGORY",13)=""
^DD(810.1,"B","REPORT TITLE",1.9)=""
^DD(810.1,"B","REPORT TYPE",1.4)=""
^DD(810.1,"B","RUN",5)=""
^DD(810.1,"B","SERVICE CATEGORY LIST",9)=""
^DD(810.1,"B","STOP CODE",11)=""
^DD(810.1,"B","Service Category List",9)="1"
^DD(810.1,"B","TEMPLATE NAME",.01)="1"
^DD(810.1,"B","TEMPLATE TYPE",1.1)=""
^DD(810.1,"B","TYPE OF ENCOUNTER",1.6)=""
^DD(810.1,"GL",0,1,.01)=""
^DD(810.1,"GL",0,2,1.9)=""
^DD(810.1,"GL",0,3,1.1)=""
^DD(810.1,"GL",0,4,1.2)=""
^DD(810.1,"GL",0,5,1.3)=""
^DD(810.1,"GL",0,6,1.4)=""
^DD(810.1,"GL",0,7,1.5)=""
^DD(810.1,"GL",0,8,1.6)=""
^DD(810.1,"GL",0,9,1.7)=""
^DD(810.1,"GL",1,0,2)=""
^DD(810.1,"GL",2,0,6)=""
^DD(810.1,"GL",3,0,4)=""
^DD(810.1,"GL",4,0,7)=""
^DD(810.1,"GL",5,0,8)=""
^DD(810.1,"GL",6,0,3)=""
^DD(810.1,"GL",7,1,5)=""
^DD(810.1,"GL",8,1,9)=""
^DD(810.1,"GL",9,0,10)=""
^DD(810.1,"GL",10,0,11)=""
^DD(810.1,"GL",11,0,12)=""
^DD(810.1,"GL",12,0,13)=""
^DD(810.1,"GL",13,0,14)=""
^DD(810.1,"IX",.01)=""
^DD(810.1,"RQ",.01)=""
^DD(810.1,"RQ",1.1)=""
^DD(810.1,"RQ",1.2)=""
^DD(810.1,"RQ",1.4)=""
^DD(810.1,"RQ",1.9)=""
^DD(810.1,"SB",810.11,10)=""
^DD(810.1,"SB",810.111,11)=""
^DD(810.1,"SB",810.112,12)=""
^DD(810.1,"SB",810.113,13)=""
^DD(810.1,"SB",810.114,14)=""
^DD(810.1,"SB",810.12,2)=""
^DD(810.1,"SB",810.13,3)=""
^DD(810.1,"SB",810.14,4)=""
^DD(810.1,"SB",810.16,6)=""
^DD(810.1,"SB",810.17,7)=""
^DD(810.1,"SB",810.18,8)=""
^DD(810.11,0)="LOCATION SUB-FIELD^^.01^1"
^DD(810.11,0,"DT")="3020729"
^DD(810.11,0,"IX","B",810.11,.01)=""
^DD(810.11,0,"NM","LOCATION")=""
^DD(810.11,0,"UP")="810.1"
^DD(810.11,.01,0)="LOCATION^MMP44'^SC(^0;1^Q"
^DD(810.11,.01,.1)="Hospital Location"
^DD(810.11,.01,1,0)="^.1"
^DD(810.11,.01,1,1,0)="810.11^B"
^DD(810.11,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(810.11,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(810.11,.01,21,0)="^.001^2^2^3050117^^"
^DD(810.11,.01,21,1,0)="Reminder report will only evaluate reminders against patients who have had a "
^DD(810.11,.01,21,2,0)="visit or are scheduled for a future appointment at the defined hospital location. "
^DD(810.11,.01,"DT")="3040915"
^DD(810.11,"B","Hospital Location",.01)="1"
^DD(810.11,"B","LOCATION",.01)=""
^DD(810.11,"GL",0,1,.01)=""
^DD(810.11,"IX",.01)=""
^DD(810.111,0)="STOP CODE SUB-FIELD^^.01^1"
^DD(810.111,0,"DT")="3020729"
^DD(810.111,0,"IX","B",810.111,.01)=""
^DD(810.111,0,"NM","STOP CODE")=""
^DD(810.111,0,"UP")="810.1"
^DD(810.111,.01,0)="STOP CODE^MMP40.7'^DIC(40.7,^0;1^Q"
^DD(810.111,.01,.1)="Clinic Stop Code"
^DD(810.111,.01,1,0)="^.1"
^DD(810.111,.01,1,1,0)="810.111^B"
^DD(810.111,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(810.111,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(810.111,.01,21,0)="^.001^3^3^3050117^^"
^DD(810.111,.01,21,1,0)="Reminder reports will only evaluate reminders against patients who have had a "
^DD(810.111,.01,21,2,0)="visit or have a scheduled appointment at a hospital location with a matching "
^DD(810.111,.01,21,3,0)="stop code."
^DD(810.111,.01,"DT")="3040915"
^DD(810.111,"B","Clinic Stop Code",.01)="1"
^DD(810.111,"B","STOP CODE",.01)=""
^DD(810.111,"GL",0,1,.01)=""
^DD(810.111,"IX",.01)=""
^DD(810.112,0)="CLINIC GROUP SUB-FIELD^^.01^1"
^DD(810.112,0,"DT")="3020729"
^DD(810.112,0,"IX","B",810.112,.01)=""
^DD(810.112,0,"NM","CLINIC GROUP")=""
^DD(810.112,0,"UP")="810.1"
^DD(810.112,.01,0)="CLINIC GROUP^MMP409.67'^SD(409.67,^0;1^Q"
^DD(810.112,.01,.1)="Clinic Group Code"
^DD(810.112,.01,1,0)="^.1"
^DD(810.112,.01,1,1,0)="810.112^B"
^DD(810.112,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(810.112,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(810.112,.01,21,0)="^.001^3^3^3050117^^"
^DD(810.112,.01,21,1,0)="Reminder reports will only evaluate reminders against patients who have had a "
^DD(810.112,.01,21,2,0)="visit or have a scheduled appointment at a hospital location that belongs to  "
^DD(810.112,.01,21,3,0)="the defined clinic group. "
^DD(810.112,.01,"DT")="3040915"
^DD(810.112,"B","CLINIC GROUP",.01)=""
^DD(810.112,"B","Clinic Group Code",.01)="1"
^DD(810.112,"GL",0,1,.01)=""
^DD(810.112,"IX",.01)=""
^DD(810.113,0)="REMINDER CATEGORY SUB-FIELD^^.02^2"
^DD(810.113,0,"DT")="3020729"
^DD(810.113,0,"IX","B",810.113,.01)=""
^DD(810.113,0,"NM","REMINDER CATEGORY")=""
^DD(810.113,0,"UP")="810.1"
^DD(810.113,.01,0)="REMINDER CATEGORY^MP811.7'^PXRMD(811.7,^0;1^Q"
^DD(810.113,.01,.1)="Reminder Category"
^DD(810.113,.01,1,0)="^.1"
^DD(810.113,.01,1,1,0)="810.113^B"
^DD(810.113,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(810.113,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(810.113,.01,21,0)="^.001^2^2^3050117^^"
^DD(810.113,.01,21,1,0)="Reminder reports will evaluate the patients sample against each reminder found "
^DD(810.113,.01,21,2,0)="within the category, to determine if the patient is due for the reminder."
^DD(810.113,.01,"DT")="3040915"
^DD(810.113,.02,0)="DISPLAY ORDER^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.113,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(810.113,.02,21,0)="^.001^3^3^3050117^^^"
^DD(810.113,.02,21,1,0)="Enter the order in which reminder categories should appear on the report. "
^DD(810.113,.02,21,2,0)="The reminder in the category will display in the report output in the "
^DD(810.113,.02,21,3,0)="numerical sequence defined in this field."
^DD(810.113,.02,"DT")="3040915"
^DD(810.113,"B","DISPLAY ORDER",.02)=""
^DD(810.113,"B","REMINDER CATEGORY",.01)=""
^DD(810.113,"B","Reminder Category",.01)="1"
^DD(810.113,"GL",0,1,.01)=""
^DD(810.113,"GL",0,2,.02)=""
^DD(810.113,"IX",.01)=""
^DD(810.113,"RQ",.02)=""
^DD(810.114,0)="PATIENT LIST SUB-FIELD^^.01^1"
^DD(810.114,0,"DT")="3020213"
^DD(810.114,0,"IX","B",810.114,.01)=""
^DD(810.114,0,"NM","PATIENT LIST")=""
^DD(810.114,0,"UP")="810.1"
^DD(810.114,.01,0)="PATIENT LIST^MP810.5'^PXRMXP(810.5,^0;1^Q"
^DD(810.114,.01,1,0)="^.1"
^DD(810.114,.01,1,1,0)="810.114^B"
^DD(810.114,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(810.114,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(810.114,.01,21,0)="^.001^3^3^3050117^^"
^DD(810.114,.01,21,1,0)="Reminder Reports, when completed with the evaluation, will save every patient "
^DD(810.114,.01,21,2,0)="that is found to have a reminder due to a patient list stored in file "
^DD(810.114,.01,21,3,0)="#810.144."
^DD(810.114,.01,"DT")="3040915"
^DD(810.114,"B","PATIENT LIST",.01)=""
^DD(810.114,"GL",0,1,.01)=""
^DD(810.114,"IX",.01)=""
^DD(810.12,0)="REMINDER SUB-FIELD^^.02^2"
^DD(810.12,0,"DT")="3020729"
^DD(810.12,0,"IX","B",810.12,.01)=""
^DD(810.12,0,"NM","REMINDER")=""
^DD(810.12,0,"UP")="810.1"
^DD(810.12,.01,0)="REMINDER^MP811.9'X^PXD(811.9,^0;1^D PXRMREM^PXRMXTA"
^DD(810.12,.01,.1)="Reminder"
^DD(810.12,.01,1,0)="^.1"
^DD(810.12,.01,1,1,0)="810.12^B"
^DD(810.12,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(810.12,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(810.12,.01,21,0)="^.001^2^2^3010727^^^"
^DD(810.12,.01,21,1,0)="Enter the reminders to be evaluated in the order to be printed. If the"
^DD(810.12,.01,21,2,0)="report type is 'Detailed' only the first reminder will be used."
^DD(810.12,.01,23,0)="^.001^1^1^3010727^^^^"
^DD(810.12,.01,23,1,0)="Reminder Definition file #811.9"
^DD(810.12,.01,"DT")="3010727"
^DD(810.12,.02,0)="DISPLAY ORDER^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.12,.02,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(810.12,.02,21,0)="^^1^1^2990415^"
^DD(810.12,.02,21,1,0)="Enter the order in which the reminders should appear on the report."
^DD(810.12,.02,"DT")="3020729"
^DD(810.12,"B","DISPLAY ORDER",.02)=""
^DD(810.12,"B","REMINDER",.01)=""
^DD(810.12,"B","Reminder",.01)="1"
^DD(810.12,"GL",0,1,.01)=""
^DD(810.12,"GL",0,2,.02)=""
^DD(810.12,"IX",.01)=""
^DD(810.12,"RQ",.02)=""
^DD(810.13,0)="FACILITY SUB-FIELD^^.01^1"
^DD(810.13,0,"IX","B",810.13,.01)=""
^DD(810.13,0,"NM","FACILITY")=""
^DD(810.13,0,"UP")="810.1"
^DD(810.13,.01,0)="FACILITY^MP4'^DIC(4,^0;1^Q"
^DD(810.13,.01,.1)="Facility Code"
^DD(810.13,.01,1,0)="^.1"
^DD(810.13,.01,1,1,0)="810.13^B"
^DD(810.13,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(810.13,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(810.13,.01,"DT")="2990316"
^DD(810.13,"B","FACILITY",.01)=""
^DD(810.13,"B","Facility Code",.01)="1"
^DD(810.13,"GL",0,1,.01)=""
^DD(810.13,"IX",.01)=""
^DD(810.14,0)="PROVIDER SUB-FIELD^^.01^1"
^DD(810.14,0,"DT")="3020729"
^DD(810.14,0,"IX","B",810.14,.01)=""
^DD(810.14,0,"NM","PROVIDER")=""
^DD(810.14,0,"UP")="810.1"
^DD(810.14,.01,0)="PROVIDER^MMP200'^VA(200,^0;1^Q"
^DD(810.14,.01,1,0)="^.1"
^DD(810.14,.01,1,1,0)="810.14^B"
^DD(810.14,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(810.14,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(810.14,.01,1,1,3)="Required Index for Variable Pointer"
^DD(810.14,.01,3)=""
^DD(810.14,.01,"DT")="3020729"
^DD(810.14,"B","PROVIDER",.01)=""
^DD(810.14,"GL",0,1,.01)=""
^DD(810.14,"IX",.01)=""
^DD(810.16,0)="PATIENT SUB-FIELD^^.01^1"
^DD(810.16,0,"DT")="3020729"
^DD(810.16,0,"IX","B",810.16,.01)=""
^DD(810.16,0,"NM","PATIENT")=""
^DD(810.16,0,"UP")="810.1"
^DD(810.16,.01,0)="PATIENT^MRMMP2'^DPT(^0;1^Q"
^DD(810.16,.01,.1)="Patient"
^DD(810.16,.01,1,0)="^.1"
^DD(810.16,.01,1,1,0)="810.16^B"
^DD(810.16,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(810.16,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(810.16,.01,"DT")="3020729"
^DD(810.16,"B","PATIENT",.01)=""
^DD(810.16,"B","Patient",.01)="1"
^DD(810.16,"GL",0,1,.01)=""
^DD(810.16,"IX",.01)=""
^DD(810.16,"RQ",.01)=""
^DD(810.17,0)="OERR TEAM SUB-FIELD^^.01^1"
^DD(810.17,0,"DT")="3020729"
^DD(810.17,0,"IX","B",810.17,.01)=""
^DD(810.17,0,"NM","OERR TEAM")=""
^DD(810.17,0,"UP")="810.1"
^DD(810.17,.01,0)="OERR TEAM^MMP100.21'^OR(100.21,^0;1^Q"
^DD(810.17,.01,.1)="OE/RR Team"
^DD(810.17,.01,1,0)="^.1"
^DD(810.17,.01,1,1,0)="810.17^B"
^DD(810.17,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(810.17,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(810.17,.01,"DT")="3020729"
^DD(810.17,"B","OE/RR Team",.01)="1"
^DD(810.17,"B","OERR TEAM",.01)=""
^DD(810.17,"GL",0,1,.01)=""
^DD(810.17,"IX",.01)=""
^DD(810.18,0)="PCMM TEAM SUB-FIELD^^.01^1"
^DD(810.18,0,"DT")="3050117"
^DD(810.18,0,"IX","B",810.18,.01)=""
^DD(810.18,0,"NM","PCMM TEAM")=""
^DD(810.18,0,"UP")="810.1"
^DD(810.18,.01,0)="PCMM TEAM^MP404.51'^SCTM(404.51,^0;1^Q"
^DD(810.18,.01,.1)="PCMM Team"
^DD(810.18,.01,1,0)="^.1"
^DD(810.18,.01,1,1,0)="810.18^B"
^DD(810.18,.01,1,1,1)="S ^PXRMPT(810.1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(810.18,.01,1,1,2)="K ^PXRMPT(810.1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(810.18,.01,"DT")="3050117"
^DD(810.18,"B","PCMM TEAM",.01)=""
^DD(810.18,"B","PCMM Team",.01)="1"
^DD(810.18,"GL",0,1,.01)=""
^DD(810.18,"IX",.01)=""
^DD(810.2,0)="FIELD^^110^11"
^DD(810.2,0,"DDA")="N"
^DD(810.2,0,"DT")="3070330"
^DD(810.2,0,"IX","B",810.2,.01)=""
^DD(810.2,0,"NM","REMINDER EXTRACT DEFINITION")=""
^DD(810.2,0,"PT",810.3,1)=""
^DD(810.2,0,"PT",810.5,.05)=""
^DD(810.2,0,"PT",810.6,7)=""
^DD(810.2,0,"VR")="2.0"
^DD(810.2,0,"VRPK")="PXRM"
^DD(810.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,811.9)) X"
^DD(810.2,.01,.1)=""
^DD(810.2,.01,1,0)="^.1"
^DD(810.2,.01,1,1,0)="810.2^B"
^DD(810.2,.01,1,1,1)="S ^PXRM(810.2,""B"",$E(X,1,30),DA)="""""
^DD(810.2,.01,1,1,2)="K ^PXRM(810.2,""B"",$E(X,1,30),DA)"
^DD(810.2,.01,3)="Answer must be 3-30 characters in length."
^DD(810.2,.01,21,0)="^.001^3^3^3060504^^^^"
^DD(810.2,.01,21,1,0)="The NAME of the extract (VA-IHD QUERI, VA-MH QUERI etc.). Extracts for "
^DD(810.2,.01,21,2,0)="national rollup are prefixed with 'VA-'."
^DD(810.2,.01,21,3,0)=""
^DD(810.2,.01,23,0)="^.001^7^7^3060504^^^^"
^DD(810.2,.01,23,1,0)="The national extract definitions (VA-IHD QUERI, VA-Mh QUERI) in this file are "
^DD(810.2,.01,23,2,0)="used in the rollup of compliance data to the Austin Automation Center (AAC).  "
^DD(810.2,.01,23,3,0)="                                 "
^DD(810.2,.01,23,4,0)="Extract runs transmit compliance totals as HL7 format messages but also store "
^DD(810.2,.01,23,5,0)="run totals in the REMINDER EXTRACT SUMMARY file #810.3 and extract patient "
^DD(810.2,.01,23,6,0)="lists in the REMINDER PATIENT "
^DD(810.2,.01,23,7,0)=""
^DD(810.2,.01,"DT")="3060504"
^DD(810.2,.02,0)="TYPE OF TOTALS^RS^CT:COMPLIANCE TOTALS ONLY;CF:COMPLIANCE AND FINDING TOTALS;^0;2^Q"
^DD(810.2,.02,21,0)="^.001^70^70^3070727^^^^"
^DD(810.2,.02,21,1,0)="This is the type of extract totals that will be reported by the"
^DD(810.2,.02,21,2,0)="extract.  "
^DD(810.2,.02,21,3,0)="                                 "
^DD(810.2,.02,21,4,0)="Compliance Totals Only are similar to Reminder Due Summary reports,"
^DD(810.2,.02,21,5,0)="with the difference being multiple patient lists are used to"
^DD(810.2,.02,21,6,0)="evaluate multiple reminders, resulting in compliance totals based on"
^DD(810.2,.02,21,7,0)="the reminder status (applicable, not applicable (N/A), due, and not due)."
^DD(810.2,.02,21,8,0)=""
^DD(810.2,.02,21,9,0)="Example: "
^DD(810.2,.02,21,10,0)="PATIENT LIST 1"
^DD(810.2,.02,21,11,0)=" REMINDER 1 COMPLIANCE TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,12,0)=" REMINDER 2 COMPLIANCE TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,13,0)="                         "
^DD(810.2,.02,21,14,0)="PATIENT LIST 2"
^DD(810.2,.02,21,15,0)=" REMINDER 1 COMPLIANCE TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,16,0)=" REMINDER 3 COMPLIANCE TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,17,0)="                                 "
^DD(810.2,.02,21,18,0)="Compliance and Finding Totals will additionally report on totals for"
^DD(810.2,.02,21,19,0)="findings found during reminder evaluation. Counting rules indicate "
^DD(810.2,.02,21,20,0)="how to count findings defined in a counting group. Counting Groups"
^DD(810.2,.02,21,21,0)="often group patient cohort findings, resolution findings and "
^DD(810.2,.02,21,22,0)="information findings in different groups. The finding counts are"
^DD(810.2,.02,21,23,0)="totaled based on the reminder's status (N/A, applicable, "
^DD(810.2,.02,21,24,0)="due, not due). "
^DD(810.2,.02,21,25,0)=""
^DD(810.2,.02,21,26,0)="Example: "
^DD(810.2,.02,21,27,0)="PATIENT LIST 1"
^DD(810.2,.02,21,28,0)=" REMINDER 1 COMPLIANCE TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,29,0)="  GROUP 1 (most recent finding counts each finding found in"
^DD(810.2,.02,21,30,0)="the group, regardless of when it was entered into VistA)"
^DD(810.2,.02,21,31,0)="   FINDING 1 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,32,0)="   FINDING 2 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,33,0)="  GROUP 2 (most recent finding patient counts one finding from the group"
^DD(810.2,.02,21,34,0)="for each patient, regardless of when it was entered in VistA)"
^DD(810.2,.02,21,35,0)="   FINDING 1 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,36,0)="   FINDING 2 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,37,0)="   FINDING 3 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,38,0)="   FINDING 4 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,39,0)="  GROUP 3 (utilitzation counts how many of the findings were entered"
^DD(810.2,.02,21,40,0)="during the reporting period)"
^DD(810.2,.02,21,41,0)="   FINDING 3 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,42,0)="   FINDING 4 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,43,0)="   FINDING 5 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,44,0)=" REMINDER 2 COMPLIANCE TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,45,0)="   GROUP 4 (most recent finding: counts each finding found in the group,"
^DD(810.2,.02,21,46,0)="regardless of when it was entered into VistA)"
^DD(810.2,.02,21,47,0)="     FINDING 10 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,48,0)="     FINDING 11 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,49,0)="     FINDING 12 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,50,0)="     FINDING 13 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,51,0)="   GROUP 5 (most recent finding patient: counts one finding from the "
^DD(810.2,.02,21,52,0)="group for each patient, regardless of when it was entered in VistA) "
^DD(810.2,.02,21,53,0)="    FINDING 9 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,54,0)="    FINDING 8 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,55,0)="    FINDING 7 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,56,0)="   GROUP 6 (utilization: counts how many of the findings were entered"
^DD(810.2,.02,21,57,0)="during the reporting period) "
^DD(810.2,.02,21,58,0)="    FINDING 11 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,59,0)="    FINDING 12 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,60,0)="                                 "
^DD(810.2,.02,21,61,0)="PATIENT LIST 2"
^DD(810.2,.02,21,62,0)=" REMINDER 1 COMPLIANCE TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,63,0)="  GROUP 1 (utilization counts: how many of the findings were entered"
^DD(810.2,.02,21,64,0)="during the reporting period)"
^DD(810.2,.02,21,65,0)="   FINDING 1 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,66,0)="   FINDING 2 TOTALS for Applicable, N/A, Due, Not Due"
^DD(810.2,.02,21,67,0)="   FINDING 3 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,68,0)="   FINDING 4 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,69,0)="   FINDING 5 TOTALS for Applicable, N/A, Due, Not Due "
^DD(810.2,.02,21,70,0)=""
^DD(810.2,.02,23,0)="^.001^1^1^3070727^^^^"
^DD(810.2,.02,23,1,0)=""
^DD(810.2,.02,"DT")="3060504"
^DD(810.2,.03,0)="DESCRIPTION^810.23^^1;0"
^DD(810.2,.03,21,0)="^^1^1^3060504^"
^DD(810.2,.03,21,1,0)=""
^DD(810.2,1,0)="REPORT FREQUENCY^RS^Q:QUARTERLY;M:MONTHLY;Y:YEARLY;^0;3^Q"
^DD(810.2,1,3)="Enter the report frequency."
^DD(810.2,1,21,0)="^^3^3^3060504^^"
^DD(810.2,1,21,1,0)="This is the frequency of the extract run. The frequency may be monthly, "
^DD(810.2,1,21,2,0)="quarterly, yearly or by financial year."
^DD(810.2,1,21,3,0)=""
^DD(810.2,1,"DT")="3060504"
^DD(810.2,2,0)="LAST REPORTING PERIOD/YEAR^F^^0;4^K:$L(X)>8!($L(X)<4) X"
^DD(810.2,2,3)="Enter the period/year of the last extract run."
^DD(810.2,2,21,0)="^^3^3^3060504^^"
^DD(810.2,2,21,1,0)="This is the date range of the last extract run. The format is period/year,"
^DD(810.2,2,21,2,0)="e.g. Q1/2002 denotes first quarter of 2002."
^DD(810.2,2,21,3,0)=""
^DD(810.2,2,"DT")="3060504"
^DD(810.2,3,0)="LAST RUN DATE^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(810.2,3,3)="Enter a valid date and time."
^DD(810.2,3,21,0)="^^1^1^3020422^"
^DD(810.2,3,21,1,0)="This is the date and time the latest extract was run."
^DD(810.2,3,"DT")="3020422"
^DD(810.2,4,0)="NEXT REPORTING PERIOD/YEAR^F^^0;6^K:$L(X)>8!($L(X)<4) X"
^DD(810.2,4,3)="Enter period/year of next extract run."
^DD(810.2,4,21,0)="^^6^6^3060504^^"
^DD(810.2,4,21,1,0)="This is the date range of the next extract to be run. The format is"
^DD(810.2,4,21,2,0)="period/year, e.g. Q1/2002 denotes first quarter of 2002.."
^DD(810.2,4,21,3,0)=" "
^DD(810.2,4,21,4,0)="This field is updated automatically on the successful completion of each"
^DD(810.2,4,21,5,0)="extract run."
^DD(810.2,4,21,6,0)=""
^DD(810.2,4,"DT")="3060504"
^DD(810.2,5,0)="NEXT RUN DATE^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:DT>X X"
^DD(810.2,5,3)="TYPE A DATE NOT EARLIER THAN CURRENT DATE."
^DD(810.2,5,21,0)="^.001^10^10^3060504^^^^"
^DD(810.2,5,21,1,0)="Date of the next scheduled extract run. This field is only set for extracts"
^DD(810.2,5,21,2,0)="that are scheduled to run as an option."
^DD(810.2,5,21,3,0)=" "
^DD(810.2,5,21,4,0)="Example: the two national extracts that are being released with 2.0, VA-IHD"
^DD(810.2,5,21,5,0)="QUERI and VA-MH QUERI, are being released as options (PXRM EXTRACT "
^DD(810.2,5,21,6,0)="VA-IHD QUERI and PXRM EXTRACT VA-MH QUERI) that sites will need to"
^DD(810.2,5,21,7,0)="schedule using TaskMan. When the extract is done with processing, the"
^DD(810.2,5,21,8,0)="extract code will determine the next run date and add that value to this"
^DD(810.2,5,21,9,0)="field."
^DD(810.2,5,21,10,0)=""
^DD(810.2,5,"DT")="3060504"
^DD(810.2,10,0)="EXTRACT RULES^810.21I^^10;0"
^DD(810.2,10,21,0)="^.001^9^9^3070702^^^^"
^DD(810.2,10,21,1,0)="This multiple contains the sequential list of extract criteria: "
^DD(810.2,10,21,2,0)="- list rule sets used by this extract to build "
^DD(810.2,10,21,3,0)="  patient lists"
^DD(810.2,10,21,4,0)="- reminders that should be run against a   "
^DD(810.2,10,21,5,0)="  patient list"
^DD(810.2,10,21,6,0)="- counting rules for how findings should be "
^DD(810.2,10,21,7,0)="  counted."
^DD(810.2,10,21,8,0)=""
^DD(810.2,10,21,9,0)=""
^DD(810.2,10,"DT")="3020516"
^DD(810.2,100,0)="CLASS^RS^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q"
^DD(810.2,100,3)="Enter the class."
^DD(810.2,100,21,0)="^.001^3^3^3060504^^^"
^DD(810.2,100,21,1,0)="This is the CLASS of the extract definition. National extract definitions "
^DD(810.2,100,21,2,0)="cannot be edited."
^DD(810.2,100,21,3,0)=""
^DD(810.2,100,"DT")="3060504"
^DD(810.2,110,0)="EDIT HISTORY^810.24D^^110;0"
^DD(810.2,"B","CLASS",100)=""
^DD(810.2,"B","DESCRIPTION",.03)=""
^DD(810.2,"B","EDIT HISTORY",110)=""
^DD(810.2,"B","EXTRACT RULES",10)=""
^DD(810.2,"B","LAST REPORTING PERIOD/YEAR",2)=""
^DD(810.2,"B","LAST RUN DATE",3)=""
^DD(810.2,"B","NAME",.01)=""
^DD(810.2,"B","NEXT REPORTING PERIOD/YEAR",4)=""
^DD(810.2,"B","NEXT RUN DATE",5)=""
^DD(810.2,"B","REPORT FREQUENCY",1)=""
^DD(810.2,"B","TYPE OF TOTALS",.02)=""
^DD(810.2,"GL",0,1,.01)=""
^DD(810.2,"GL",0,2,.02)=""
^DD(810.2,"GL",0,3,1)=""
^DD(810.2,"GL",0,4,2)=""
^DD(810.2,"GL",0,5,3)=""
^DD(810.2,"GL",0,6,4)=""
^DD(810.2,"GL",0,7,5)=""
^DD(810.2,"GL",1,0,.03)=""
^DD(810.2,"GL",10,0,10)=""
^DD(810.2,"GL",100,1,100)=""
^DD(810.2,"GL",110,0,110)=""
^DD(810.2,"IX",.01)=""
^DD(810.2,"RQ",.01)=""
^DD(810.2,"RQ",.02)=""
^DD(810.2,"RQ",1)=""
^DD(810.2,"RQ",100)=""
^DD(810.2,"SB",810.21,10)=""
^DD(810.2,"SB",810.23,.03)=""
^DD(810.2,"SB",810.24,110)=""
^DD(810.21,0)="EXTRACT RULES SUB-FIELD^^.05^6"
^DD(810.21,0,"DT")="3070330"
^DD(810.21,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PXRM(810.4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(810.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.21,0,"NM","EXTRACT RULES")=""
^DD(810.21,0,"UP")="810.2"
^DD(810.21,.01,0)="EXTRACT SEQUENCE^MRNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.21,.01,1,0)="^.1^^0"
^DD(810.21,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(810.21,.01,21,0)="14^.001^17^17^3070702^^^^"
^DD(810.21,.01,21,1,0)="Each extract definition has multiple extract sequences.  Each"
^DD(810.21,.01,21,2,0)="extract  sequence is associated with a list rule set.  Each list"
^DD(810.21,.01,21,3,0)="rule set is used  to create an extract patient list.  Each patient"
^DD(810.21,.01,21,4,0)="list created can be run  against a sequential set of reminders. Each"
^DD(810.21,.01,21,5,0)="reminder can have a counting  rule that determines how findings"
^DD(810.21,.01,21,6,0)="should be counted."
^DD(810.21,.01,21,7,0)=" "
^DD(810.21,.01,21,8,0)="The extract sequence numbers determine the order in which list rule"
^DD(810.21,.01,21,9,0)="sets should be evaluated to create patient lists and the sequence"
^DD(810.21,.01,21,10,0)="the patient lists will be saved to a Reminder Patient List and"
^DD(810.21,.01,21,11,0)="referenced from the extract summary (#810.3)."
^DD(810.21,.01,21,12,0)="                                 "
^DD(810.21,.01,21,13,0)="A list rule set (#810.4) and extract patient list name are defined"
^DD(810.21,.01,21,14,0)="for each  extract sequence number. The list rule set defines the"
^DD(810.21,.01,21,15,0)="reminder terms (#810.5) which are used to identify patients to be"
^DD(810.21,.01,21,16,0)="included in the extract patient list.  "
^DD(810.21,.01,21,17,0)=""
^DD(810.21,.01,"DT")="3070702"
^DD(810.21,.02,0)="LIST RULE SET^R*P810.4'^PXRM(810.4,^0;2^S DIC(""S"")=""I $P(^(0),U,3)=3"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(810.21,.02,3)="Select the list rule set to be used to build the patient list"
^DD(810.21,.02,12)="Only list rule sets may be selected "
^DD(810.21,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=3"""
^DD(810.21,.02,21,0)="^^2^2^3060504^^"
^DD(810.21,.02,21,1,0)="This is the list rule set (#810.4) used to build the patient list."
^DD(810.21,.02,21,2,0)=""
^DD(810.21,.02,"DT")="3060504"
^DD(810.21,.03,0)="EXTRACT PT LIST NAME^RF^^0;3^K:$L(X)>96!($L(X)<3) X"
^DD(810.21,.03,3)="Answer must be 3-96 characters in length"
^DD(810.21,.03,21,0)="^.001^14^14^3070604^^^^"
^DD(810.21,.03,21,1,0)="This mandatory field describes the name of the extract patient list"
^DD(810.21,.03,21,2,0)="to be  created from the rule set."
^DD(810.21,.03,21,3,0)=""
^DD(810.21,.03,21,4,0)="The name will contain the string Q, M, or Y for period, 'nn' for"
^DD(810.21,.03,21,5,0)="quarter or  month, and 'yyyy' for year. When the extract patient"
^DD(810.21,.03,21,6,0)="list is created for an  extract reporting period, the name of the"
^DD(810.21,.03,21,7,0)="patient list will contain the resolved  period, nn, and yyyy.        "
^DD(810.21,.03,21,8,0)=" "
^DD(810.21,.03,21,9,0)="For example, the entry 'VA-*IHD QUERI yyyy Mnn PTS WITH QUALIFY"
^DD(810.21,.03,21,10,0)="VISIT' for the January  2005 reporting period will result in a"
^DD(810.21,.03,21,11,0)="patient list name of  'VA-*IHD QUERI 2005 M1 PTS WITH QUALIFY"
^DD(810.21,.03,21,12,0)="VISIT'."
^DD(810.21,.03,21,13,0)=""
^DD(810.21,.03,21,14,0)=""
^DD(810.21,.03,"DT")="3060518"
^DD(810.21,.04,0)="INCLUDE DECEASED PATIENTS^SO^0:NO;1:YES;^0;4^Q"
^DD(810.21,.04,2)="S Y(0)=Y S Y=$S(Y=1:""YES"",1:""NO"")"
^DD(810.21,.04,2.1)="S Y=$S(Y=1:""YES"",1:""NO"")"
^DD(810.21,.04,3)="Enter ""YES"" to include deceased patients on the extract patient list."
^DD(810.21,.04,21,0)="^.001^6^6^3070131^^^^"
^DD(810.21,.04,21,1,0)="If this field is set to ""NO"" then patients who have a date of death"
^DD(810.21,.04,21,2,0)="will be excluded from the extract patient list. If this field is set"
^DD(810.21,.04,21,3,0)="to ""YES"" then patients who have a date of death will be included on"
^DD(810.21,.04,21,4,0)="the extract patient list. The default is ""NO""."
^DD(810.21,.04,21,5,0)=""
^DD(810.21,.04,21,6,0)=""
^DD(810.21,.04,"DT")="3070131"
^DD(810.21,.05,0)="INCLUDE TEST PATIENTS^SO^0:NO;1:YES;^0;5^Q"
^DD(810.21,.05,2)="S Y(0)=Y S Y=$S(Y=1:""YES"",1:""NO"")"
^DD(810.21,.05,2.1)="S Y=$S(Y=1:""YES"",1:""NO"")"
^DD(810.21,.05,3)="Enter ""YES"" to include test patients on the extract patient list."
^DD(810.21,.05,21,0)="^.001^6^6^3060627^^"
^DD(810.21,.05,21,1,0)="If this field is set to ""YES"" then test patients will be included on"
^DD(810.21,.05,21,2,0)="the extract patient list. If this field is set to ""NO"" then test"
^DD(810.21,.05,21,3,0)="patients will be excluded from the extract patient list. The default"
^DD(810.21,.05,21,4,0)="is ""NO""."
^DD(810.21,.05,21,5,0)=""
^DD(810.21,.05,21,6,0)=""
^DD(810.21,.05,"DT")="3070131"
^DD(810.21,10,0)="REMINDERS/COUNTING RULES^810.22I^^10;0"
^DD(810.21,10,"DT")="3060517"
^DD(810.21,"B","EXTRACT PT LIST NAME",.03)=""
^DD(810.21,"B","EXTRACT SEQUENCE",.01)=""
^DD(810.21,"B","INCLUDE DECEASED PATIENTS",.04)=""
^DD(810.21,"B","INCLUDE TEST PATIENTS",.05)=""
^DD(810.21,"B","LIST RULE SET",.02)=""
^DD(810.21,"B","REMINDERS/COUNTING RULES",10)=""
^DD(810.21,"GL",0,1,.01)=""
^DD(810.21,"GL",0,2,.02)=""
^DD(810.21,"GL",0,3,.03)=""
^DD(810.21,"GL",0,4,.04)=""
^DD(810.21,"GL",0,5,.05)=""
^DD(810.21,"GL",10,0,10)=""
^DD(810.21,"RQ",.01)=""
^DD(810.21,"RQ",.02)=""
^DD(810.21,"RQ",.03)=""
^DD(810.21,"SB",810.22,10)=""
^DD(810.22,0)="REMINDERS/COUNTING RULES SUB-FIELD^^2^3"
^DD(810.22,0,"DT")="3070330"
^DD(810.22,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PXD(811.9,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(811.9,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.22,0,"IX","B",810.22,.01)=""
^DD(810.22,0,"NM","REMINDERS/COUNTING RULES")=""
^DD(810.22,0,"UP")="810.21"
^DD(810.22,.01,0)="REMINDER SEQUENCE^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.22,.01,1,0)="^.1"
^DD(810.22,.01,1,1,0)="810.22^B"
^DD(810.22,.01,1,1,1)="S ^PXRM(810.2,DA(2),10,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(810.22,.01,1,1,2)="K ^PXRM(810.2,DA(2),10,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(810.22,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(810.22,.01,21,0)="^.001^4^4^3070330^^^^"
^DD(810.22,.01,21,1,0)="This is the sequence number which determines the order in which the reminders "
^DD(810.22,.01,21,2,0)="will be evaluated and the sequence that reminder compliance totals and finding"
^DD(810.22,.01,21,3,0)="totals from extract runs are stored in the extract summary file. "
^DD(810.22,.01,21,4,0)=""
^DD(810.22,.01,"DT")="3070330"
^DD(810.22,1,0)="REMINDER^P811.9'^PXD(811.9,^0;2^Q"
^DD(810.22,1,21,0)="^.001^4^4^3060504^^^"
^DD(810.22,1,21,1,0)="This is the reminder to be evaluated by the extract process. The status of"
^DD(810.22,1,21,2,0)="the reminder (applicable, not applicable, due, not due) is used to accumulate"
^DD(810.22,1,21,3,0)="compliance totals which are stored in the extract summary file."
^DD(810.22,1,21,4,0)=""
^DD(810.22,1,"DT")="3060504"
^DD(810.22,2,0)="COUNTING RULE^P810.7'^PXRM(810.7,^0;3^Q"
^DD(810.22,2,21,0)="^.001^7^7^3070605^^^"
^DD(810.22,2,21,1,0)="The COUNTING RULE, file #810.7, defines which EXTRACT COUNTING"
^DD(810.22,2,21,2,0)="GROUPS, file #810.8, are used to collect finding counts for this"
^DD(810.22,2,21,3,0)="reminder. If no extract counting rules are defined for the reminder"
^DD(810.22,2,21,4,0)="in an extract definition that includes both compliance totals and"
^DD(810.22,2,21,5,0)="finding totals, then no finding totals will be accumulated for the"
^DD(810.22,2,21,6,0)="reminder."
^DD(810.22,2,21,7,0)=""
^DD(810.22,2,"DT")="3060504"
^DD(810.22,"B","COUNTING RULE",2)=""
^DD(810.22,"B","REMINDER",1)=""
^DD(810.22,"B","REMINDER SEQUENCE",.01)=""
^DD(810.22,"GL",0,1,.01)=""
^DD(810.22,"GL",0,2,1)=""
^DD(810.22,"GL",0,3,2)=""
^DD(810.22,"IX",.01)=""
^DD(810.23,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(810.23,0,"DT")="3020423"
^DD(810.23,0,"NM","DESCRIPTION")=""
^DD(810.23,0,"UP")="810.2"
^DD(810.23,.01,0)="DESCRIPTION^W^^0;1"
^DD(810.23,.01,21,0)="^^2^2^3060504^^"
^DD(810.23,.01,21,1,0)="Enter a description summarizing the extract criteria and what will be counted."
^DD(810.23,.01,21,2,0)=""
^DD(810.23,.01,"DT")="3060504"
^DD(810.23,"B","DESCRIPTION",.01)=""
^DD(810.23,"GL",0,1,.01)=""
^DD(810.24,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(810.24,0,"DT")="3021122"
^DD(810.24,0,"IX","B",810.24,.01)=""
^DD(810.24,0,"NM","EDIT HISTORY")=""
^DD(810.24,0,"UP")="810.2"
^DD(810.24,.01,0)="EDIT DATE^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(810.24,.01,1,0)="^.1"
^DD(810.24,.01,1,1,0)="810.24^B"
^DD(810.24,.01,1,1,1)="S ^PXRM(810.2,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(810.24,.01,1,1,2)="K ^PXRM(810.2,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(810.24,.01,3)="(No range limit on date)"
^DD(810.24,.01,21,0)="^^2^2^3021122^"
^DD(810.24,.01,21,1,0)="This is the date and time when the editing was done. This field is set"
^DD(810.24,.01,21,2,0)="automatically and should not be changed by the user."
^DD(810.24,.01,"DT")="3021122"
^DD(810.24,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(810.24,1,21,0)="^^2^2^3021122^"
^DD(810.24,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(810.24,1,21,2,0)="and should not be changed by the user."
^DD(810.24,1,"DT")="3021122"
^DD(810.24,2,0)="EDIT COMMENTS^810.242^^1;0"
^DD(810.24,"B","EDIT BY",1)=""
^DD(810.24,"B","EDIT COMMENTS",2)=""
^DD(810.24,"B","EDIT DATE",.01)=""
^DD(810.24,"GL",0,1,.01)=""
^DD(810.24,"GL",0,2,1)=""
^DD(810.24,"GL",1,0,2)=""
^DD(810.24,"IX",.01)=""
^DD(810.24,"SB",810.242,2)=""
^DD(810.242,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(810.242,0,"DT")="3021122"
^DD(810.242,0,"NM","EDIT COMMENTS")=""
^DD(810.242,0,"UP")="810.24"
^DD(810.242,.01,0)="EDIT COMMENTS^W^^0;1"
^DD(810.242,.01,"DT")="3021122"
^DD(810.242,"B","EDIT COMMENTS",.01)=""
^DD(810.242,"GL",0,1,.01)=""
^DD(810.3,0)="FIELD^^100^21"
^DD(810.3,0,"DDA")="N"
^DD(810.3,0,"DT")="3051121"
^DD(810.3,0,"ID",.06)="W ""   "",$$FMTE^DILIBF($P(^(0),U,6),5)"
^DD(810.3,0,"IX","AHLID",5,.01)=""
^DD(810.3,0,"IX","AHLID",810.36,.01)=""
^DD(810.3,0,"NM","REMINDER EXTRACT SUMMARY")=""
^DD(810.3,0,"VR")="2.0"
^DD(810.3,0,"VRPK")="PXRM"
^DD(810.3,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.3,.001,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(810.3,.001,21,0)="^^1^1^3040819^"
^DD(810.3,.001,21,1,0)="This is the extract summary number."
^DD(810.3,.001,"DT")="3040819"
^DD(810.3,.01,0)="NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(810.3,.01,1,0)="^.1^^0"
^DD(810.3,.01,3)="Answer must be 3-64 characters in length."
^DD(810.3,.01,21,0)="^.001^29^29^3060504^^^^"
^DD(810.3,.01,21,1,0)="The NAME is the combination of a unique abbreviations for the type of extract."
^DD(810.3,.01,21,2,0)="The file contains different extract types: "
^DD(810.3,.01,21,3,0)="                                 "
^DD(810.3,.01,21,4,0)="1) EPI - Hep C Extract "
^DD(810.3,.01,21,5,0)="                                 "
^DD(810.3,.01,21,6,0)="Extracts of this type are prefixed LREPI. The following is an example of EPI"
^DD(810.3,.01,21,7,0)="lookup information: "
^DD(810.3,.01,21,8,0)="                                 "
^DD(810.3,.01,21,9,0)="LREPI 00/05 061500"
^DD(810.3,.01,21,10,0)="LREPI 00/06 073100"
^DD(810.3,.01,21,11,0)="LREPI 00/07 081500                                      "
^DD(810.3,.01,21,12,0)="The YY/MM represents the ending year and month of the extract date range, and"
^DD(810.3,.01,21,13,0)="the run date in the format YYMMDD. The date and time of the run is an"
^DD(810.3,.01,21,14,0)="identifier.  "
^DD(810.3,.01,21,15,0)="                                 "
^DD(810.3,.01,21,16,0)="2) VA- generic entries (IHD and MH QUERI) "
^DD(810.3,.01,21,17,0)="                                 "
^DD(810.3,.01,21,18,0)="Extracts of this type are prefixed VA-IHD or VA-MH. The following is an example"
^DD(810.3,.01,21,19,0)="of IHD Look-up information: "
^DD(810.3,.01,21,20,0)="                                 "
^DD(810.3,.01,21,21,0)="VA-IHD QUERI 2003 M2/01"
^DD(810.3,.01,21,22,0)="VA-IHD QUERI 2003 M3/01"
^DD(810.3,.01,21,23,0)="VA-IHD QUERI 2003 M4/01  "
^DD(810.3,.01,21,24,0)="                                 "
^DD(810.3,.01,21,25,0)="The reporting period of the extract run is included in the extract name. Since"
^DD(810.3,.01,21,26,0)="a particular reporting period can be rerun, each entry for the same reporting"
^DD(810.3,.01,21,27,0)="period is assigned a sequential entry number: /01 represents the first entry"
^DD(810.3,.01,21,28,0)="for the reporting period."
^DD(810.3,.01,21,29,0)=""
^DD(810.3,.01,"DT")="3060504"
^DD(810.3,.02,0)="BEGINNING DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(810.3,.02,3)="Enter the extract beginning date range."
^DD(810.3,.02,21,0)="^.001^1^1^3000829^^"
^DD(810.3,.02,21,1,0)="This is the starting date that was used for the extract."
^DD(810.3,.02,"DT")="3000708"
^DD(810.3,.03,0)="ENDING DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(810.3,.03,3)="Enter the extract ending date range."
^DD(810.3,.03,21,0)="^^1^1^3000829^"
^DD(810.3,.03,21,1,0)="This is the ending date that was used for the extract."
^DD(810.3,.03,"DT")="3000708"
^DD(810.3,.04,0)="TASK #^F^^0;4^K:$L(X)>10!($L(X)<3) X"
^DD(810.3,.04,3)="Enter the task number of the job creating the extract."
^DD(810.3,.04,21,0)="^^1^1^3000829^"
^DD(810.3,.04,21,1,0)="This field identifies the task that was run to create the extract."
^DD(810.3,.04,"DT")="3000708"
^DD(810.3,.05,0)="EXTRACT OWNER^P200'^VA(200,^0;5^Q"
^DD(810.3,.05,3)="Enter the person who ran the extract."
^DD(810.3,.05,21,0)="^.001^1^1^3000829^^"
^DD(810.3,.05,21,1,0)="This is the person who ran the extract job. "
^DD(810.3,.05,"DT")="3000708"
^DD(810.3,.06,0)="EXTRACT DATE^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(810.3,.06,1,0)="^.1^^0"
^DD(810.3,.06,3)="Enter the date/time the extract entry was created."
^DD(810.3,.06,21,0)="^^1^1^3000829^"
^DD(810.3,.06,21,1,0)="This is the date/time that the extract entry was added to this file."
^DD(810.3,.06,"DT")="3020709"
^DD(810.3,.07,0)="PATIENTS EVALUATED^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.3,.07,3)="Enter the total count of patients with findings."
^DD(810.3,.07,21,0)="^^2^2^3000829^"
^DD(810.3,.07,21,1,0)="This is the total number of patients who had findings for the reminder and"
^DD(810.3,.07,21,2,0)="date range criteria selected."
^DD(810.3,.07,"DT")="3000709"
^DD(810.3,.08,0)="PATIENTS WITH FINDINGS^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.3,.08,3)="Enter the number of findings extracted."
^DD(810.3,.08,21,0)="^.001^2^2^3000829^^^"
^DD(810.3,.08,21,1,0)="This is the total count of findings that met the extract criteria in the"
^DD(810.3,.08,21,2,0)="reminders and date range."
^DD(810.3,.08,"DT")="3000709"
^DD(810.3,1,0)="EXTRACT DEFINITION^P810.2'^PXRM(810.2,^4;1^Q"
^DD(810.3,1,21,0)="^.001^3^3^3060504^^^"
^DD(810.3,1,21,1,0)="This is a pointer to the EXTRACT DEFINITION file. This shows what extract"
^DD(810.3,1,21,2,0)="was run to create this extract summary."
^DD(810.3,1,21,3,0)=""
^DD(810.3,1,"DT")="3060504"
^DD(810.3,2,0)="TYPE OF TOTALS^S^CT:COMPLIANCE TOTALS ONLY;CF:COMPLIANCE AND FINDING TOTALS;^4;2^Q"
^DD(810.3,2,21,0)="^^4^4^3060504^^"
^DD(810.3,2,21,1,0)="This is the type of totals requested for the extract parameter that was"
^DD(810.3,2,21,2,0)="run to create this extract summary. An extract definition must contain Counting"
^DD(810.3,2,21,3,0)="Rules in order for Finding Totals to be accumulated."
^DD(810.3,2,21,4,0)=""
^DD(810.3,2,"DT")="3060504"
^DD(810.3,3,0)="REPORTING PERIOD^NJ2,0^^4;3^K:+X'=X!(X>12)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.3,3,3)="Type a Number between 0 and 12, 0 Decimal Digits"
^DD(810.3,3,21,0)="^.001^3^3^3060504^^^"
^DD(810.3,3,21,1,0)="This field is used to define the period of time that the extract was run. "
^DD(810.3,3,21,2,0)="The period can be for a calendar Month or quarter."
^DD(810.3,3,21,3,0)=""
^DD(810.3,3,"DT")="3060504"
^DD(810.3,4,0)="REPORTING YEAR^NJ4,0^^4;4^K:+X'=X!(X>2050)!(X<2000)!(X?.E1"".""1N.N) X"
^DD(810.3,4,3)="Type a Number between 2000 and 2050, 0 Decimal Digits"
^DD(810.3,4,21,0)="^^1^1^3040820^"
^DD(810.3,4,21,1,0)="This is for the year that the extract was run against."
^DD(810.3,4,"DT")="3040820"
^DD(810.3,5,0)="MANUAL/AUTOSCHEDULED FLAG^S^M:MANUAL;A:AUTOSCHEDULED;^4;5^Q"
^DD(810.3,5,21,0)="^^2^2^3020708^"
^DD(810.3,5,21,1,0)="This field indicates if the extract summary was created from an "
^DD(810.3,5,21,2,0)="autoscheduled extract or as the result of a manual run."
^DD(810.3,5,"DT")="3020708"
^DD(810.3,6,0)="HL7 MESSAGE ID^810.36^^5;0"
^DD(810.3,6,21,0)="^.001^2^2^3050121^^"
^DD(810.3,6,21,1,0)="This multiple contains each HL7 ID for every time this extract summary was"
^DD(810.3,6,21,2,0)="transmitted to Austin."
^DD(810.3,7,0)="REPORT FREQUENCY^S^M:MONTHLY;Q:QUARTERLY;Y:YEARLY;^4;6^Q"
^DD(810.3,7,"DT")="3021001"
^DD(810.3,10,0)="EXTRACT FINDINGS^810.31P^^1;0"
^DD(810.3,10,21,0)="^.001^4^4^3060504^^^"
^DD(810.3,10,21,1,0)="This is the LREPI patient findings found during reminder extract processing for"
^DD(810.3,10,21,2,0)="the specified date range.  Entries can be selected based on the NUMBER on"
^DD(810.3,10,21,3,0)="the EXTRACT FINDINGS multiple or the Patient."
^DD(810.3,10,21,4,0)=""
^DD(810.3,20,0)="LREPI FINDING TOTALS^810.32AV^^2;0"
^DD(810.3,20,21,0)="^.001^3^3^3060504^^^^"
^DD(810.3,20,21,1,0)="This is the total count for each finding item extracted during LREPI"
^DD(810.3,20,21,2,0)="processing.."
^DD(810.3,20,21,3,0)=""
^DD(810.3,20,23,0)="^^1^1^3060504^"
^DD(810.3,20,23,1,0)=""
^DD(810.3,20,"DT")="3060504"
^DD(810.3,30,0)="COMPLIANCE TOTALS^810.33I^^3;0"
^DD(810.3,30,21,0)="^^2^2^3060504^"
^DD(810.3,30,21,1,0)="Used for Generic Extract reporting."
^DD(810.3,30,21,2,0)=""
^DD(810.3,30,23,0)="^^1^1^3060504^"
^DD(810.3,30,23,1,0)=""
^DD(810.3,30,"DT")="3020620"
^DD(810.3,50,0)="AUTOMATICALLY PURGE^S^1:YES;0:NO;^50;1^Q"
^DD(810.3,50,21,0)="^^3^3^3050719^"
^DD(810.3,50,21,1,0)="This field is use to determine if the Extract Summary should be automatically "
^DD(810.3,50,21,2,0)="purge after five years. This field will be check by the Reminder Extract "
^DD(810.3,50,21,3,0)="code that runs monthly when running the National Extract."
^DD(810.3,50,"DT")="3050719"
^DD(810.3,100,0)="CLASS^S^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q"
^DD(810.3,100,21,0)="^^3^3^3050926^"
^DD(810.3,100,21,1,0)="This is the CLASS of the extract summary. Possible classes are ""N"" for"
^DD(810.3,100,21,2,0)="national, ""V"" for VISN, and ""L"" for local. National extract summaries "
^DD(810.3,100,21,3,0)="cannot be edited by sites."
^DD(810.3,100,"DT")="3050926"
^DD(810.3,"B","AUTOMATICALLY PURGE",50)=""
^DD(810.3,"B","BEGINNING DATE",.02)=""
^DD(810.3,"B","CLASS",100)=""
^DD(810.3,"B","COMPLIANCE TOTALS",30)=""
^DD(810.3,"B","ENDING DATE",.03)=""
^DD(810.3,"B","EXTRACT DATE",.06)=""
^DD(810.3,"B","EXTRACT DEFINITION",1)=""
^DD(810.3,"B","EXTRACT FINDINGS",10)=""
^DD(810.3,"B","EXTRACT OWNER",.05)=""
^DD(810.3,"B","HL7 MESSAGE ID",6)=""
^DD(810.3,"B","LREPI FINDING TOTALS",20)=""
^DD(810.3,"B","MANUAL/AUTOSCHEDULED FLAG",5)=""
^DD(810.3,"B","NAME",.01)=""
^DD(810.3,"B","NUMBER",.001)=""
^DD(810.3,"B","PATIENTS EVALUATED",.07)=""
^DD(810.3,"B","PATIENTS WITH FINDINGS",.08)=""
^DD(810.3,"B","REPORT FREQUENCY",7)=""
^DD(810.3,"B","REPORTING PERIOD",3)=""
^DD(810.3,"B","REPORTING YEAR",4)=""
^DD(810.3,"B","TASK #",.04)=""
^DD(810.3,"B","TYPE OF TOTALS",2)=""
^DD(810.3,"GL",0,1,.01)=""
^DD(810.3,"GL",0,2,.02)=""
^DD(810.3,"GL",0,3,.03)=""
^DD(810.3,"GL",0,4,.04)=""
^DD(810.3,"GL",0,5,.05)=""
^DD(810.3,"GL",0,6,.06)=""
^DD(810.3,"GL",0,7,.07)=""
^DD(810.3,"GL",0,8,.08)=""
^DD(810.3,"GL",1,0,10)=""
^DD(810.3,"GL",2,0,20)=""
^DD(810.3,"GL",3,0,30)=""
^DD(810.3,"GL",4,1,1)=""
^DD(810.3,"GL",4,2,2)=""
^DD(810.3,"GL",4,3,3)=""
^DD(810.3,"GL",4,4,4)=""
^DD(810.3,"GL",4,5,5)=""
^DD(810.3,"GL",4,6,7)=""
^DD(810.3,"GL",5,0,6)=""
^DD(810.3,"GL",50,1,50)=""
^DD(810.3,"GL",100,1,100)=""
^DD(810.3,"RQ",.01)=""
^DD(810.3,"SB",810.31,10)=""
^DD(810.3,"SB",810.32,20)=""
^DD(810.3,"SB",810.33,30)=""
^DD(810.3,"SB",810.36,6)=""
^DD(810.31,0)="EXTRACT FINDINGS SUB-FIELD^^4^12"
^DD(810.31,0,"DT")="3000829"
^DD(810.31,0,"IX","AC",810.31,.07)=""
^DD(810.31,0,"IX","B",810.31,.01)=""
^DD(810.31,0,"NM","EXTRACT FINDINGS")=""
^DD(810.31,0,"UP")="810.3"
^DD(810.31,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.31,.001,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(810.31,.001,21,0)="^^2^2^3040820^"
^DD(810.31,.001,21,1,0)="This is the sequence in which the entries are added to the Reminder"
^DD(810.31,.001,21,2,0)="Extract file."
^DD(810.31,.001,"DT")="3040820"
^DD(810.31,.01,0)="PATIENT^MRP2'^DPT(^0;1^Q"
^DD(810.31,.01,1,0)="^.1"
^DD(810.31,.01,1,1,0)="810.31^B"
^DD(810.31,.01,1,1,1)="S ^PXRMXT(810.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(810.31,.01,1,1,2)="K ^PXRMXT(810.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(810.31,.01,3)="Enter the patient who had the finding."
^DD(810.31,.01,21,0)="^^1^1^3000829^"
^DD(810.31,.01,21,1,0)="This is the patient who had the extract finding."
^DD(810.31,.01,"DT")="3000717"
^DD(810.31,.03,0)="TERM^P811.5'^PXRMD(811.5,^0;3^Q"
^DD(810.31,.03,3)="Enter the term that is related to the finding."
^DD(810.31,.03,21,0)="^.001^2^2^3000829^^"
^DD(810.31,.03,21,1,0)="This is the reminder term related to the finding.  This field will only be"
^DD(810.31,.03,21,2,0)="defined if the reminder contained a reminder term."
^DD(810.31,.03,"DT")="3000708"
^DD(810.31,.04,0)="FINDING ITEM^V^^0;4^Q"
^DD(810.31,.04,3)=""
^DD(810.31,.04,21,0)="^.001^2^2^3050121^^^^"
^DD(810.31,.04,21,1,0)="This is a variable pointer that contains the possible findings from a"
^DD(810.31,.04,21,2,0)="reminder evaluation."
^DD(810.31,.04,"DT")="3000709"
^DD(810.31,.04,"V",0)="^.12P^16^16"
^DD(810.31,.04,"V",1,0)="50^DRUG^5^DR^^n"
^DD(810.31,.04,"V",2,0)="9999999.09^EDUCATION TOPIC^10^ED^^n"
^DD(810.31,.04,"V",3,0)="9999999.15^EXAM^15^EX^^n"
^DD(810.31,.04,"V",4,0)="9999999.64^HEALTH FACTOR^20^HF^^n"
^DD(810.31,.04,"V",5,0)="9999999.14^IMMUNIZATION^25^IM^^n"
^DD(810.31,.04,"V",6,0)="60^LABORATORY TEST^30^LT^^n"
^DD(810.31,.04,"V",7,0)="601^MENTAL HEALTH INSTRUMENT^35^MH^^n"
^DD(810.31,.04,"V",8,0)="101.43^ORDERABLE ITEM^40^OI^^n"
^DD(810.31,.04,"V",9,0)="71^RADIOLOGY PROCEDURE^45^RP^^n"
^DD(810.31,.04,"V",10,0)="811.4^REMINDER COMPUTED FINDING^50^CF^^n"
^DD(810.31,.04,"V",11,0)="811.2^REMINDER TAXONOMY^55^TX^^n"
^DD(810.31,.04,"V",12,0)="811.5^REMINDER TERM^60^RT^^n"
^DD(810.31,.04,"V",13,0)="9999999.28^SKIN TEST^65^ST^^n"
^DD(810.31,.04,"V",14,0)="50.605^VA DRUG CLASS^70^DC^^n"
^DD(810.31,.04,"V",15,0)="50.6^VA GENERIC^75^DG^^n"
^DD(810.31,.04,"V",16,0)="120.51^VITAL MEASUREMENT^80^VM^^n"
^DD(810.31,.04,"V","B",50,1)=""
^DD(810.31,.04,"V","B",50.6,15)=""
^DD(810.31,.04,"V","B",50.605,14)=""
^DD(810.31,.04,"V","B",60,6)=""
^DD(810.31,.04,"V","B",71,9)=""
^DD(810.31,.04,"V","B",101.43,8)=""
^DD(810.31,.04,"V","B",120.51,16)=""
^DD(810.31,.04,"V","B",601,7)=""
^DD(810.31,.04,"V","B",811.2,11)=""
^DD(810.31,.04,"V","B",811.4,10)=""
^DD(810.31,.04,"V","B",811.5,12)=""
^DD(810.31,.04,"V","B",9999999.09,2)=""
^DD(810.31,.04,"V","B",9999999.14,5)=""
^DD(810.31,.04,"V","B",9999999.15,3)=""
^DD(810.31,.04,"V","B",9999999.28,13)=""
^DD(810.31,.04,"V","B",9999999.64,4)=""
^DD(810.31,.04,"V","M","DRUG",1)=""
^DD(810.31,.04,"V","M","EDUCATION TOPIC",2)=""
^DD(810.31,.04,"V","M","EXAM",3)=""
^DD(810.31,.04,"V","M","HEALTH FACTOR",4)=""
^DD(810.31,.04,"V","M","IMMUNIZATION",5)=""
^DD(810.31,.04,"V","M","LABORATORY TEST",6)=""
^DD(810.31,.04,"V","M","MENTAL HEALTH INSTRUMENT",7)=""
^DD(810.31,.04,"V","M","ORDERABLE ITEM",8)=""
^DD(810.31,.04,"V","M","RADIOLOGY PROCEDURE",9)=""
^DD(810.31,.04,"V","M","REMINDER COMPUTED FINDING",10)=""
^DD(810.31,.04,"V","M","REMINDER TAXONOMY",11)=""
^DD(810.31,.04,"V","M","REMINDER TERM",12)=""
^DD(810.31,.04,"V","M","SKIN TEST",13)=""
^DD(810.31,.04,"V","M","VA DRUG CLASS",14)=""
^DD(810.31,.04,"V","M","VA GENERIC",15)=""
^DD(810.31,.04,"V","M","VITAL MEASUREMENT",16)=""
^DD(810.31,.04,"V","O",5,1)=""
^DD(810.31,.04,"V","O",10,2)=""
^DD(810.31,.04,"V","O",15,3)=""
^DD(810.31,.04,"V","O",20,4)=""
^DD(810.31,.04,"V","O",25,5)=""
^DD(810.31,.04,"V","O",30,6)=""
^DD(810.31,.04,"V","O",35,7)=""
^DD(810.31,.04,"V","O",40,8)=""
^DD(810.31,.04,"V","O",45,9)=""
^DD(810.31,.04,"V","O",50,10)=""
^DD(810.31,.04,"V","O",55,11)=""
^DD(810.31,.04,"V","O",60,12)=""
^DD(810.31,.04,"V","O",65,13)=""
^DD(810.31,.04,"V","O",70,14)=""
^DD(810.31,.04,"V","O",75,15)=""
^DD(810.31,.04,"V","O",80,16)=""
^DD(810.31,.04,"V","P","CF",10)=""
^DD(810.31,.04,"V","P","DC",14)=""
^DD(810.31,.04,"V","P","DG",15)=""
^DD(810.31,.04,"V","P","DR",1)=""
^DD(810.31,.04,"V","P","ED",2)=""
^DD(810.31,.04,"V","P","EX",3)=""
^DD(810.31,.04,"V","P","HF",4)=""
^DD(810.31,.04,"V","P","IM",5)=""
^DD(810.31,.04,"V","P","LT",6)=""
^DD(810.31,.04,"V","P","MH",7)=""
^DD(810.31,.04,"V","P","OI",8)=""
^DD(810.31,.04,"V","P","RP",9)=""
^DD(810.31,.04,"V","P","RT",12)=""
^DD(810.31,.04,"V","P","ST",13)=""
^DD(810.31,.04,"V","P","TX",11)=""
^DD(810.31,.04,"V","P","VM",16)=""
^DD(810.31,.05,0)="ALTERNATE ID^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(810.31,.05,3)="Enter the alternate identifier related to the reminder term."
^DD(810.31,.05,21,0)="^.001^4^4^3050121^^"
^DD(810.31,.05,21,1,0)="This is an alternate identifier related to the finding's reminder term."
^DD(810.31,.05,21,2,0)="The ALTERNATE ID is used by the national database.  For example, all"
^DD(810.31,.05,21,3,0)="findings found for reminder terms related to risk assessment will have a"
^DD(810.31,.05,21,4,0)="number from 1-7 as its identifier. "
^DD(810.31,.05,"DT")="3000708"
^DD(810.31,.06,0)="FINDING DATE^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(810.31,.06,21,0)="^^5^5^3000829^"
^DD(810.31,.06,21,1,0)="This is the date related to the finding. For PCE data, this is the date"
^DD(810.31,.06,21,2,0)="and time of the visit. For laboratory data, this is the accession date."
^DD(810.31,.06,21,3,0)="For Outpatient Pharmacy data, this is the fill date, refill date, or"
^DD(810.31,.06,21,4,0)="partial fill date.   For Inpatient Pharmacy, this is the order date, or"
^DD(810.31,.06,21,5,0)="renewal date."
^DD(810.31,.06,"DT")="3000708"
^DD(810.31,.07,0)="VISIT^P9000010'^AUPNVSIT(^0;7^Q"
^DD(810.31,.07,1,0)="^.1"
^DD(810.31,.07,1,1,0)="810.31^AC^MUMPS"
^DD(810.31,.07,1,1,1)="D ADD^AUPNVSIT"
^DD(810.31,.07,1,1,2)="D SUB^AUPNVSIT"
^DD(810.31,.07,1,1,"%D",0)="^^2^2^3040205^"
^DD(810.31,.07,1,1,"%D",1,0)="This cross-reference adds and subtracts from"
^DD(810.31,.07,1,1,"%D",2,0)="the Dependent Entry Count in the VISIT file."
^DD(810.31,.07,1,1,"DT")="3040205"
^DD(810.31,.07,3)="Enter the visit related to the finding (optional)."
^DD(810.31,.07,21,0)="^.001^2^2^3050121^^"
^DD(810.31,.07,21,1,0)="This is the visit date from the VISIT File that is related to the finding."
^DD(810.31,.07,21,2,0)="This is only defined when the findings are from PCE."
^DD(810.31,.07,"DT")="3040205"
^DD(810.31,.08,0)="ENCOUNTER TYPE^S^I:INPATIENT;O:OUTPATIENT;^0;8^Q"
^DD(810.31,.08,3)="Enter I for Inpatient or O for Outpatient encounter type."
^DD(810.31,.08,21,0)="^.001^5^5^3050121^^"
^DD(810.31,.08,21,1,0)="This is an ENCOUNTER TYPE that summarizes the clinical activity as"
^DD(810.31,.08,21,2,0)="Inpatient or Outpatient activity.  This ENCOUNTER TYPE is based on the"
^DD(810.31,.08,21,3,0)="Emerging Pathogens Initiative (EPI) definition of ENCOUNTER TYPES. The"
^DD(810.31,.08,21,4,0)="VADPT call to determine inpatient status on a date is used to determine"
^DD(810.31,.08,21,5,0)="the Inpatient or Outpatient status."
^DD(810.31,.08,"DT")="3000829"
^DD(810.31,1,0)="RESULT^F^^1;1^K:$L(X)>60!($L(X)<1) X"
^DD(810.31,1,3)="Enter the RESULT for the finding from reminder evaluation."
^DD(810.31,1,21,0)="^.001^5^5^3050121^^"
^DD(810.31,1,21,1,0)="This is the RESULT for a finding that is returned by the reminder"
^DD(810.31,1,21,2,0)="evaluation ""RESULT"" node.  See Clinical Reminder documentation for"
^DD(810.31,1,21,3,0)="explanations of the RESULT for each type of finding.  The result from the"
^DD(810.31,1,21,4,0)="clinical reminder evaluation is stored as freetext in this field. No input"
^DD(810.31,1,21,5,0)="and output transforms are used on this field."
^DD(810.31,1,"DT")="3000709"
^DD(810.31,2,0)="VALUE^F^^1;2^K:$L(X)>60!($L(X)<1) X"
^DD(810.31,2,3)="Enter the finding's VALUE from reminder evaluation."
^DD(810.31,2,21,0)="^.001^4^4^3050121^^"
^DD(810.31,2,21,1,0)="This is the VALUE for a finding that is returned in the reminder"
^DD(810.31,2,21,2,0)="evaluation ""VALUE"" node.  See Clinical Reminder documentation for"
^DD(810.31,2,21,3,0)="explanations of the VALUE for each type of finding.  This VALUE is stored"
^DD(810.31,2,21,4,0)="as freetext.  No input and output transforms are used on this field."
^DD(810.31,2,"DT")="3000708"
^DD(810.31,3,0)="DRUG^F^^1;3^K:$L(X)>50!($L(X)<1) X"
^DD(810.31,3,3)="Enter the local formulary drug name."
^DD(810.31,3,21,0)="^^2^2^3000829^"
^DD(810.31,3,21,1,0)="This is the freetext name from the local formulary file for a drug"
^DD(810.31,3,21,2,0)="finding."
^DD(810.31,3,"DT")="3000708"
^DD(810.31,4,0)="DSUP^NJ3,0^^1;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.31,4,3)="Enter the days supply for pharmacy findings."
^DD(810.31,4,21,0)="^^5^5^3000829^"
^DD(810.31,4,21,1,0)="This is the days supply that the medication covers if the finding is an"
^DD(810.31,4,21,2,0)="outpatient medication. Inpatient pharmacy medications do not normally have"
^DD(810.31,4,21,3,0)="a days supply, but since the EPI requires a value in this field, the days"
^DD(810.31,4,21,4,0)="supply is calculated by subtracting the start date from the stop date of"
^DD(810.31,4,21,5,0)="the order."
^DD(810.31,4,"DT")="3000708"
^DD(810.31,"B","ALTERNATE ID",.05)=""
^DD(810.31,"B","DRUG",3)=""
^DD(810.31,"B","DSUP",4)=""
^DD(810.31,"B","ENCOUNTER TYPE",.08)=""
^DD(810.31,"B","FINDING DATE",.06)=""
^DD(810.31,"B","FINDING ITEM",.04)=""
^DD(810.31,"B","NUMBER",.001)=""
^DD(810.31,"B","PATIENT",.01)=""
^DD(810.31,"B","RESULT",1)=""
^DD(810.31,"B","TERM",.03)=""
^DD(810.31,"B","VALUE",2)=""
^DD(810.31,"B","VISIT",.07)=""
^DD(810.31,"GL",0,1,.01)=""
^DD(810.31,"GL",0,3,.03)=""
^DD(810.31,"GL",0,4,.04)=""
^DD(810.31,"GL",0,5,.05)=""
^DD(810.31,"GL",0,6,.06)=""
^DD(810.31,"GL",0,7,.07)=""
^DD(810.31,"GL",0,8,.08)=""
^DD(810.31,"GL",1,1,1)=""
^DD(810.31,"GL",1,2,2)=""
^DD(810.31,"GL",1,3,3)=""
^DD(810.31,"GL",1,4,4)=""
^DD(810.31,"IX",.01)=""
^DD(810.31,"IX",.07)=""
^DD(810.31,"RQ",.01)=""
^DD(810.32,0)="LREPI FINDING TOTALS SUB-FIELD^^.03^3"
^DD(810.32,0,"IX","B",810.32,.01)=""
^DD(810.32,0,"NM","LREPI FINDING TOTALS")=""
^DD(810.32,0,"UP")="810.3"
^DD(810.32,.01,0)="FINDING ITEM^V^^0;1^Q"
^DD(810.32,.01,1,0)="^.1"
^DD(810.32,.01,1,1,0)="810.32^B"
^DD(810.32,.01,1,1,1)="S ^PXRMXT(810.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(810.32,.01,1,1,2)="K ^PXRMXT(810.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(810.32,.01,1,1,3)="Required Index for Variable Pointer"
^DD(810.32,.01,21,0)="^.001^1^1^3050121^^"
^DD(810.32,.01,21,1,0)="This is the FINDING ITEM returned by reminder evaluation."
^DD(810.32,.01,"DT")="3000709"
^DD(810.32,.01,"V",0)="^.12P^16^16"
^DD(810.32,.01,"V",1,0)="50^DRUG^5^DR^^n"
^DD(810.32,.01,"V",2,0)="9999999.09^EDUCATION TOPICS^10^ED^^n"
^DD(810.32,.01,"V",3,0)="9999999.15^EXAM^15^EX^^n"
^DD(810.32,.01,"V",4,0)="9999999.64^HEALTH FACTOR^20^HF^^n"
^DD(810.32,.01,"V",5,0)="9999999.14^IMMUNIZATION^25^IM^^n"
^DD(810.32,.01,"V",6,0)="60^LABORATORY TEST^30^LT^^n"
^DD(810.32,.01,"V",7,0)="601^MENTAL HEALTH INSTRUMENT^35^MH^^n"
^DD(810.32,.01,"V",8,0)="101.43^ORDERABLE ITEM^40^OI^^n"
^DD(810.32,.01,"V",9,0)="71^RADIOLOGY PROCEDURE^45^RP^^n"
^DD(810.32,.01,"V",10,0)="811.4^REMINDER COMPUTED FINDING^50^CF^^n"
^DD(810.32,.01,"V",11,0)="811.2^REMINDER TAXONOMY^55^TX^^n"
^DD(810.32,.01,"V",12,0)="811.5^REMINDER TERM^60^RT^^n"
^DD(810.32,.01,"V",13,0)="9999999.28^SKIN TEST^65^ST^^n"
^DD(810.32,.01,"V",14,0)="50.605^VA DRUG CLASS^70^DC^^n"
^DD(810.32,.01,"V",15,0)="50.6^VA GENERIC^75^DG^^n"
^DD(810.32,.01,"V",16,0)="120.51^VITAL MEASUREMENT^80^VM^^n"
^DD(810.32,.01,"V","B",50,1)=""
^DD(810.32,.01,"V","B",50.6,15)=""
^DD(810.32,.01,"V","B",50.605,14)=""
^DD(810.32,.01,"V","B",60,6)=""
^DD(810.32,.01,"V","B",71,9)=""
^DD(810.32,.01,"V","B",101.43,8)=""
^DD(810.32,.01,"V","B",120.51,16)=""
^DD(810.32,.01,"V","B",601,7)=""
^DD(810.32,.01,"V","B",811.2,11)=""
^DD(810.32,.01,"V","B",811.4,10)=""
^DD(810.32,.01,"V","B",811.5,12)=""
^DD(810.32,.01,"V","B",9999999.09,2)=""
^DD(810.32,.01,"V","B",9999999.14,5)=""
^DD(810.32,.01,"V","B",9999999.15,3)=""
^DD(810.32,.01,"V","B",9999999.28,13)=""
^DD(810.32,.01,"V","B",9999999.64,4)=""
^DD(810.32,.01,"V","M","DRUG",1)=""
^DD(810.32,.01,"V","M","EDUCATION TOPICS",2)=""
^DD(810.32,.01,"V","M","EXAM",3)=""
^DD(810.32,.01,"V","M","HEALTH FACTOR",4)=""
^DD(810.32,.01,"V","M","IMMUNIZATION",5)=""
^DD(810.32,.01,"V","M","LABORATORY TEST",6)=""
^DD(810.32,.01,"V","M","MENTAL HEALTH INSTRUMENT",7)=""
^DD(810.32,.01,"V","M","ORDERABLE ITEM",8)=""
^DD(810.32,.01,"V","M","RADIOLOGY PROCEDURE",9)=""
^DD(810.32,.01,"V","M","REMINDER COMPUTED FINDING",10)=""
^DD(810.32,.01,"V","M","REMINDER TAXONOMY",11)=""
^DD(810.32,.01,"V","M","REMINDER TERM",12)=""
^DD(810.32,.01,"V","M","SKIN TEST",13)=""
^DD(810.32,.01,"V","M","VA DRUG CLASS",14)=""
^DD(810.32,.01,"V","M","VA GENERIC",15)=""
^DD(810.32,.01,"V","M","VITAL MEASUREMENT",16)=""
^DD(810.32,.01,"V","O",5,1)=""
^DD(810.32,.01,"V","O",10,2)=""
^DD(810.32,.01,"V","O",15,3)=""
^DD(810.32,.01,"V","O",20,4)=""
^DD(810.32,.01,"V","O",25,5)=""
^DD(810.32,.01,"V","O",30,6)=""
^DD(810.32,.01,"V","O",35,7)=""
^DD(810.32,.01,"V","O",40,8)=""
^DD(810.32,.01,"V","O",45,9)=""
^DD(810.32,.01,"V","O",50,10)=""
^DD(810.32,.01,"V","O",55,11)=""
^DD(810.32,.01,"V","O",60,12)=""
^DD(810.32,.01,"V","O",65,13)=""
^DD(810.32,.01,"V","O",70,14)=""
^DD(810.32,.01,"V","O",75,15)=""
^DD(810.32,.01,"V","O",80,16)=""
^DD(810.32,.01,"V","P","CF",10)=""
^DD(810.32,.01,"V","P","DC",14)=""
^DD(810.32,.01,"V","P","DG",15)=""
^DD(810.32,.01,"V","P","DR",1)=""
^DD(810.32,.01,"V","P","ED",2)=""
^DD(810.32,.01,"V","P","EX",3)=""
^DD(810.32,.01,"V","P","HF",4)=""
^DD(810.32,.01,"V","P","IM",5)=""
^DD(810.32,.01,"V","P","LT",6)=""
^DD(810.32,.01,"V","P","MH",7)=""
^DD(810.32,.01,"V","P","OI",8)=""
^DD(810.32,.01,"V","P","RP",9)=""
^DD(810.32,.01,"V","P","RT",12)=""
^DD(810.32,.01,"V","P","ST",13)=""
^DD(810.32,.01,"V","P","TX",11)=""
^DD(810.32,.01,"V","P","VM",16)=""
^DD(810.32,.02,0)="FINDING COUNT^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.32,.02,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(810.32,.02,21,0)="^^2^2^3040820^"
^DD(810.32,.02,21,1,0)="This is the count of how many times this finding item occurred in the"
^DD(810.32,.02,21,2,0)="extract."
^DD(810.32,.02,"DT")="3040820"
^DD(810.32,.03,0)="UNIQUE PATIENT COUNT^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.32,.03,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(810.32,.03,21,0)="^^3^3^3000801^"
^DD(810.32,.03,21,1,0)="This is the count of patients with unique findings in the extract."
^DD(810.32,.03,21,2,0)="An example of duplicate findings for a patient is multiple fills for a"
^DD(810.32,.03,21,3,0)="particular medication."
^DD(810.32,.03,"DT")="3000801"
^DD(810.32,"B","FINDING COUNT",.02)=""
^DD(810.32,"B","FINDING ITEM",.01)=""
^DD(810.32,"B","UNIQUE PATIENT COUNT",.03)=""
^DD(810.32,"GL",0,1,.01)=""
^DD(810.32,"GL",0,2,.02)=""
^DD(810.32,"GL",0,3,.03)=""
^DD(810.32,"IX",.01)=""
^DD(810.33,0)="COMPLIANCE TOTALS SUB-FIELD^^10^10"
^DD(810.33,0,"DT")="3050926"
^DD(810.33,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PXD(811.9,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(811.9,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.33,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.33,0,"IX","B",810.33,.01)=""
^DD(810.33,0,"NM","COMPLIANCE TOTALS")=""
^DD(810.33,0,"UP")="810.3"
^DD(810.33,.01,0)="EXTRACT SEQUENCE^MFX^^0;1^K:$L(X)'=3!(+X=0) X I $G(X)]"""" K:$D(^PXRM(810.3,DA(1),30,""B"",X)) X"
^DD(810.33,.01,1,0)="^.1"
^DD(810.33,.01,1,1,0)="810.33^B"
^DD(810.33,.01,1,1,1)="S ^PXRMXT(810.3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(810.33,.01,1,1,2)="K ^PXRMXT(810.3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(810.33,.01,3)="Enter unique sequence 001 - 999 (length 3 preceded by zeroes)"
^DD(810.33,.01,21,0)="^.001^2^2^3050117^^"
^DD(810.33,.01,21,1,0)="Each reminder, station, patient list combination is allocated a unique"
^DD(810.33,.01,21,2,0)="sequence number."
^DD(810.33,.01,"DT")="3021011"
^DD(810.33,.02,0)="REMINDER^P811.9'^PXD(811.9,^0;2^Q"
^DD(810.33,.02,21,0)="^^2^2^3021011^"
^DD(810.33,.02,21,1,0)="This is the reminder definition for which compliance totals are being "
^DD(810.33,.02,21,2,0)="created."
^DD(810.33,.02,"DT")="3021011"
^DD(810.33,.03,0)="STATION^P4'^DIC(4,^0;3^Q"
^DD(810.33,.03,21,0)="^^2^2^3021011^"
^DD(810.33,.03,21,1,0)="Reminder compliance totals are accumulated by the patients' primary"
^DD(810.33,.03,21,2,0)="station."
^DD(810.33,.03,"DT")="3021011"
^DD(810.33,.04,0)="PATIENT LIST^P810.5'^PXRMXP(810.5,^0;4^Q"
^DD(810.33,.04,21,0)="^^4^4^3051017^"
^DD(810.33,.04,21,1,0)="The patient list is a collection of patient who should have the extract "
^DD(810.33,.04,21,2,0)="run against them, for example all patients seen in the last month that "
^DD(810.33,.04,21,3,0)="have a diagnosis of IHD. The patient list is built by finding patients "
^DD(810.33,.04,21,4,0)="who meet the list rules defined in file# 810.4."
^DD(810.33,.04,"DT")="3051017"
^DD(810.33,2,0)="TOTAL PATIENTS EVALUATED^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.33,2,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(810.33,2,21,0)="^^2^2^3021011^"
^DD(810.33,2,21,1,0)="This is the total number of patients in the patient list with this "
^DD(810.33,2,21,2,0)="primary station."
^DD(810.33,2,"DT")="3021011"
^DD(810.33,3,0)="TOTAL PATIENTS APPLICABLE^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.33,3,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(810.33,3,21,0)="^^2^2^3021011^"
^DD(810.33,3,21,1,0)="This is the number of patients in the patient list with this primary"
^DD(810.33,3,21,2,0)="station for whom the reminder was applicable."
^DD(810.33,3,"DT")="3021011"
^DD(810.33,4,0)="TOTAL PATIENTS NOT APPLICABLE^NJ8,0^^0;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.33,4,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(810.33,4,21,0)="^^2^2^3021011^"
^DD(810.33,4,21,1,0)="This is the number of patients in the patient list with this primary"
^DD(810.33,4,21,2,0)="station for whom the reminder was not applicable."
^DD(810.33,4,"DT")="3021011"
^DD(810.33,5,0)="TOTAL PATIENTS DUE^NJ8,0^^0;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(810.33,5,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(810.33,5,21,0)="^^2^2^3040820^"
^DD(810.33,5,21,1,0)="This is the number of patients in the patient list with this primary"
^DD(810.33,5,21,2,0)="station for whom the reminder was applicable and due."
^DD(810.33,5,"DT")="3040820"
^DD(810.33,6,0)="TOTAL PATIENTS NOT DUE^NJ8,0^^0;9^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(810.33,6,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(810.33,6,21,0)="^^2^2^3040820^"
^DD(810.33,6,21,1,0)="This is the number of patients in the patient list with this primary "
^DD(810.33,6,21,2,0)="station for whom the reminder was applicable and not due."
^DD(810.33,6,"DT")="3040820"
^DD(810.33,10,0)="FINDING TOTALS^810.331I^^1;0"
^DD(810.33,10,21,0)="^^2^2^3060504^"
^DD(810.33,10,21,1,0)="Used for Generic Extract reporting."
^DD(810.33,10,21,2,0)=""
^DD(810.33,"B","EXTRACT SEQUENCE",.01)=""
^DD(810.33,"B","FINDING TOTALS",10)=""
^DD(810.33,"B","PATIENT LIST",.04)=""
^DD(810.33,"B","REMINDER",.02)=""
^DD(810.33,"B","STATION",.03)=""
^DD(810.33,"B","TOTAL PATIENTS APPLICABLE",3)=""
^DD(810.33,"B","TOTAL PATIENTS DUE",5)=""
^DD(810.33,"B","TOTAL PATIENTS EVALUATED",2)=""
^DD(810.33,"B","TOTAL PATIENTS NOT APPLICABLE",4)=""
^DD(810.33,"B","TOTAL PATIENTS NOT DUE",6)=""
^DD(810.33,"GL",0,1,.01)=""
^DD(810.33,"GL",0,2,.02)=""
^DD(810.33,"GL",0,3,.03)=""
^DD(810.33,"GL",0,4,.04)=""
^DD(810.33,"GL",0,5,2)=""
^DD(810.33,"GL",0,6,3)=""
^DD(810.33,"GL",0,7,4)=""
^DD(810.33,"GL",0,8,5)=""
^DD(810.33,"GL",0,9,6)=""
^DD(810.33,"GL",1,0,10)=""
^DD(810.33,"IX",.01)=""
^DD(810.33,"SB",810.331,10)=""
^DD(810.331,0)="FINDING TOTALS SUB-FIELD^^6^11"
^DD(810.331,0,"DT")="3050926"
^DD(810.331,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PXRMD(811.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(811.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.331,0,"IX","B",810.331,.01)=""
^DD(810.331,0,"NM","FINDING TOTALS")=""
^DD(810.331,0,"UP")="810.33"
^DD(810.331,.01,0)="FINDING SEQUENCE^MFX^^0;1^K:$L(X)'=3!(+X=0) X I $G(X)]"""" K:$D(^PXRM(810.3,DA(2),30,DA(1),10,""B"",X)) X"
^DD(810.331,.01,1,0)="^.1"
^DD(810.331,.01,1,1,0)="810.331^B"
^DD(810.331,.01,1,1,1)="S ^PXRMXT(810.3,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(810.331,.01,1,1,2)="K ^PXRMXT(810.3,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(810.331,.01,3)="Enter unique sequence 001 - 999 (length 3 preceded by zeroes)"
^DD(810.331,.01,21,0)="^^1^1^3021011^^"
^DD(810.331,.01,21,1,0)="Each extracted finding total is allocated a unique sequence number."
^DD(810.331,.01,"DT")="3021011"
^DD(810.331,.02,0)="REMINDER TERM^P811.5'^PXRMD(811.5,^0;2^Q"
^DD(810.331,.02,21,0)="^.001^3^3^3050121^^"
^DD(810.331,.02,21,1,0)="This is the REMINDER TERM for which totals are being accumulated. The "
^DD(810.331,.02,21,2,0)="Extract Parameters (#810.2,#810.7,#810.8) define which terms should be "
^DD(810.331,.02,21,3,0)="extracted for each reminder/patient list combination."
^DD(810.331,.02,"DT")="3021011"
^DD(810.331,.03,0)="FINDING TOTAL TYPE^S^MRF:MOST RECENT FINDING COUNT;MRFP:MOST RECENT FINDING PATIENT COUNT;UR:UTILIZATION IN REPORTING PERIOD FINDING COUNT;^0;3^Q"
^DD(810.331,.03,21,0)="^^1^1^3021011^"
^DD(810.331,.03,21,1,0)="This code indicates the type of count."
^DD(810.331,.03,"DT")="3021011"
^DD(810.331,.04,0)="GROUP NAME^F^^0;9^K:$L(X)>64!($L(X)<3) X"
^DD(810.331,.04,3)="Answer must be 3-64 characters in length"
^DD(810.331,.04,21,0)="^^1^1^3021011^"
^DD(810.331,.04,21,1,0)="This is the finding group name (#810.8)."
^DD(810.331,.04,"DT")="3021011"
^DD(810.331,.05,0)="REMINDER STATUS^S^T:TOTAL PATIENTS;A:APPLICABLE PATIENTS;D:DUE PATIENTS;N:NOT DUE PATIENTS;^0;10^Q"
^DD(810.331,.05,21,0)="^^2^2^3021011^"
^DD(810.331,.05,21,1,0)="This code indicates that totals are only for patients with a specific"
^DD(810.331,.05,21,2,0)="reminder evaluation status."
^DD(810.331,.05,"DT")="3021011"
^DD(810.331,1,0)="TOTAL COUNT^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(810.331,1,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(810.331,1,21,0)="^^2^2^3021011^^"
^DD(810.331,1,21,1,0)="This is the count of findings for all patients in the patient list with "
^DD(810.331,1,21,2,0)="this primary station."
^DD(810.331,1,"DT")="3021011"
^DD(810.331,2,0)="APPLICABLE COUNT^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(810.331,2,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(810.331,2,21,0)="^^2^2^3021011^"
^DD(810.331,2,21,1,0)="This is the count of findings for all patients in the patient list with "
^DD(810.331,2,21,2,0)="this primary station for whom the reminder is applicable."
^DD(810.331,2,"DT")="3021011"
^DD(810.331,3,0)="NOT APPLICABLE COUNT^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(810.331,3,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(810.331,3,21,0)="^^2^2^3021011^"
^DD(810.331,3,21,1,0)="This is the count of findings for all patients in the patient list with "
^DD(810.331,3,21,2,0)="this primary station for whom the reminder is not applicable."
^DD(810.331,3,"DT")="3021011"
^DD(810.331,4,0)="DUE COUNT^NJ8,0^^0;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(810.331,4,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(810.331,4,21,0)="^^2^2^3021011^"
^DD(810.331,4,21,1,0)="This is the count of findings for all patients in the patient list with "
^DD(810.331,4,21,2,0)="this primary station for whom the reminder is applicable and due."
^DD(810.331,4,"DT")="3021011"
^DD(810.331,5,0)="NOT DUE COUNT^NJ8,0^^0;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(810.331,5,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(810.331,5,21,0)="^^2^2^3021011^"
^DD(810.331,5,21,1,0)="This is the count of findings for all patients in the patient list with "
^DD(810.331,5,21,2,0)="this primary station for whom the reminder is applicable and not due."
^DD(810.331,5,"DT")="3021011"
^DD(810.331,6,0)="UNIQUE APPLICABLE PATIENT LIST^810.3316PA^^1;0"
^DD(810.331,6,"DT")="3050930"
^DD(810.331,"B","APPLICABLE COUNT",2)=""
^DD(810.331,"B","DUE COUNT",4)=""
^DD(810.331,"B","FINDING SEQUENCE",.01)=""
^DD(810.331,"B","FINDING TOTAL TYPE",.03)=""
^DD(810.331,"B","GROUP NAME",.04)=""
^DD(810.331,"B","NOT APPLICABLE COUNT",3)=""
^DD(810.331,"B","NOT DUE COUNT",5)=""
^DD(810.331,"B","REMINDER STATUS",.05)=""
^DD(810.331,"B","REMINDER TERM",.02)=""
^DD(810.331,"B","TOTAL COUNT",1)=""
^DD(810.331,"B","UNIQUE APPLICABLE PATIENT LIST",6)=""
^DD(810.331,"GL",0,1,.01)=""
^DD(810.331,"GL",0,2,.02)=""
^DD(810.331,"GL",0,3,.03)=""
^DD(810.331,"GL",0,4,1)=""
^DD(810.331,"GL",0,5,2)=""
^DD(810.331,"GL",0,6,3)=""
^DD(810.331,"GL",0,7,4)=""
^DD(810.331,"GL",0,8,5)=""
^DD(810.331,"GL",0,9,.04)=""
^DD(810.331,"GL",0,10,.05)=""
^DD(810.331,"GL",1,0,6)=""
^DD(810.331,"IX",.01)=""
^DD(810.331,"SB",810.3316,6)=""
^DD(810.3316,0)="UNIQUE APPLICABLE PATIENT LIST SUB-FIELD^^.01^1"
^DD(810.3316,0,"DT")="3050926"
^DD(810.3316,0,"IX","B",810.3316,.01)=""
^DD(810.3316,0,"NM","UNIQUE APPLICABLE PATIENT LIST")=""
^DD(810.3316,0,"UP")="810.331"
^DD(810.3316,.01,0)="UNIQUE APPLICABLE PATIENT^P2'^DPT(^0;1^Q"
^DD(810.3316,.01,1,0)="^.1"
^DD(810.3316,.01,1,1,0)="810.3316^B"
^DD(810.3316,.01,1,1,1)="S ^PXRMXT(810.3,DA(3),3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(810.3316,.01,1,1,2)="K ^PXRMXT(810.3,DA(3),3,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(810.3316,.01,21,0)="^^6^6^3051017^"
^DD(810.3316,.01,21,1,0)="This multiple stores a list of patients from the patient list who have an "
^DD(810.3316,.01,21,2,0)="applicable status for the extract finding evaluation. The applicable "
^DD(810.3316,.01,21,3,0)="patient list is a subset of the patients on the patient list who have an "
^DD(810.3316,.01,21,4,0)="applicable result to the finding item in the extract, for example from "
^DD(810.3316,.01,21,5,0)="the list of patients in the patients list which patients have a LDL value "
^DD(810.3316,.01,21,6,0)="greater then 120."
^DD(810.3316,.01,"DT")="3051017"
^DD(810.3316,"B","UNIQUE APPLICABLE PATIENT",.01)=""
^DD(810.3316,"GL",0,1,.01)=""
^DD(810.3316,"IX",.01)=""
^DD(810.36,0)="HL7 MESSAGE ID SUB-FIELD^^.03^3"
^DD(810.36,0,"DT")="3051121"
^DD(810.36,0,"IX","B",5,.01)=""
^DD(810.36,0,"IX","B",810.36,.01)=""
^DD(810.36,0,"NM","HL7 MESSAGE ID")=""
^DD(810.36,0,"UP")="810.3"
^DD(810.36,.01,0)="HL7 MESSAGE ID^F^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(810.36,.01,1,0)="^.1"
^DD(810.36,.01,1,1,0)="810.36^B"
^DD(810.36,.01,1,1,1)="S ^PXRMXT(810.3,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(810.36,.01,1,1,2)="K ^PXRMXT(810.3,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(810.36,.01,1,2,0)="810.3^AHLID"
^DD(810.36,.01,1,2,1)="S ^PXRMXT(810.3,""AHLID"",$E(X,1,30),DA(1),DA)="""""
^DD(810.36,.01,1,2,2)="K ^PXRMXT(810.3,""AHLID"",$E(X,1,30),DA(1),DA)"
^DD(810.36,.01,1,2,"%D",0)="^^2^2^3060118^"
^DD(810.36,.01,1,2,"%D",1,0)="This crossreference will index the hl7 message id numbers for each extract."
^DD(810.36,.01,1,2,"%D",2,0)=""
^DD(810.36,.01,1,2,"DT")="3060118"
^DD(810.36,.01,3)="Answer must be 3-20 characters in length"
^DD(810.36,.01,21,0)="^^1^1^3040819^"
^DD(810.36,.01,21,1,0)="This is the HL7 id for the HL7 message that was transmitted to Austin."
^DD(810.36,.01,"DT")="3060118"
^DD(810.36,.02,0)="DATE CREATED^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(810.36,.02,3)="(No range limit on date)"
^DD(810.36,.02,21,0)="^^1^1^3020425^"
^DD(810.36,.02,21,1,0)="This is the date/time the HL7 message was created. "
^DD(810.36,.02,"DT")="3020425"
^DD(810.36,.03,0)="MESSAGE STATUS^F^^0;3^K:$L(X)>45!($L(X)<3) X"
^DD(810.36,.03,3)="Answer must be 3-45 characters in length"
^DD(810.36,.03,21,0)="^^2^2^3051121^^^^"
^DD(810.36,.03,21,1,0)="This field contains the status of the message."
^DD(810.36,.03,21,2,0)="The status is determined by the ACK messages that are returned from the Austin Automation Center. It should state that the message is waiting to be processed or that it has been processed."
^DD(810.36,.03,"DT")="3051121"
^DD(810.36,"B","DATE CREATED",.02)=""
^DD(810.36,"B","HL7 MESSAGE ID",.01)=""
^DD(810.36,"B","MESSAGE STATUS",.03)=""
^DD(810.36,"GL",0,1,.01)=""
^DD(810.36,"GL",0,2,.02)=""
^DD(810.36,"GL",0,3,.03)=""
^DD(810.36,"IX",.01)=""
^DD(810.4,0)="FIELD^^9^12"
^DD(810.4,0,"DDA")="N"
^DD(810.4,0,"DT")="3070330"
^DD(810.4,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(810.4,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(810.4,0,"IX","AD",810.41,.02)=""
^DD(810.4,0,"NM","REMINDER LIST RULE")=""
^DD(810.4,0,"PT",810.21,.02)=""
^DD(810.4,0,"PT",810.41,.02)=""
^DD(810.4,0,"PT",810.5,.06)=""
^DD(810.4,0,"VR")="2.0"
^DD(810.4,0,"VRPK")="PXRM"
^DD(810.4,.01,0)="NAME^RF^^0;1^K:$L(X)>96!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,810.4)) X"
^DD(810.4,.01,1,0)="^.1^^0"
^DD(810.4,.01,3)="Answer must be 3-96 characters in length"
^DD(810.4,.01,21,0)="^^3^3^3021010^^"
^DD(810.4,.01,21,1,0)="This is the name of the list rule."
^DD(810.4,.01,21,2,0)=" "
^DD(810.4,.01,21,3,0)="National list rules are prefixed VA- and class national. "
^DD(810.4,.01,"DEL",1,0)="I +$G(PXRMEXCH)=0,$D(^PXRMD(810.4,""AD"",DA)) D EN^DDIOL($C(7)_""IN USE - CANNOT BE DELETED"")"
^DD(810.4,.01,"DT")="3021010"
^DD(810.4,.02,0)="SHORT DESCRIPTION^F^^0;2^K:$L(X)>64!($L(X)<3) X"
^DD(810.4,.02,3)="Answer must be 3-64 characters in length."
^DD(810.4,.02,21,0)="^^1^1^3021010^"
^DD(810.4,.02,21,1,0)="This is a short description of the list rule."
^DD(810.4,.02,"DT")="3021010"
^DD(810.4,.03,0)="TYPE^RS^1:FINDING RULE;3:RULE SET;5:PATIENT LIST;2:REMINDER RULE;^0;3^Q"
^DD(810.4,.03,21,0)="^.001^3^3^3050117^^"
^DD(810.4,.03,21,1,0)="There are three types of rules in the file. Patient List Rules define an"
^DD(810.4,.03,21,2,0)="existing patient list. Finding Rules define reminder terms. Rule Sets"
^DD(810.4,.03,21,3,0)="contain both Finding and Patient List rules."
^DD(810.4,.03,"DT")="3041129"
^DD(810.4,1,0)="REMINDER TERM^P811.5'^PXRMD(811.5,^0;7^Q"
^DD(810.4,1,21,0)="^^2^2^3021010^"
^DD(810.4,1,21,1,0)="Finding rules (type 1) use a reminder term (#811.5) to select patients "
^DD(810.4,1,21,2,0)="via the reminder package indexes."
^DD(810.4,1,"DT")="3021010"
^DD(810.4,2,0)="LIST RULE BEGINNING DATE/TIME^FX^^0;4^K:(($L(X)<1)!($L(X)>20)!('$$DATECHK^PXRMRUL1(X))) X"
^DD(810.4,2,3)="Enter an exact date, symbolic date, or 0 (zero) for no beginning date. Symbolic dates can use ""T"" to represent the build end date or ""BDT"" for build beginning date."
^DD(810.4,2,21,0)="^^51^51^3060526^"
^DD(810.4,2,21,1,0)="Enter an exact date, symbolic date, or 0 (zero) for no beginning date. "
^DD(810.4,2,21,2,0)="Symbolic dates can use ""T"" to represent the build end date or ""BDT"""
^DD(810.4,2,21,3,0)="for build beginning date."
^DD(810.4,2,21,4,0)=" "
^DD(810.4,2,21,5,0)="This field is the beginning date/time (BDT) to use when searching for  "
^DD(810.4,2,21,6,0)="findings that match a List Finding Rule. In order for patient data to"
^DD(810.4,2,21,7,0)="meet the List Finding Rule criteria, the findings must have been"
^DD(810.4,2,21,8,0)="documented on or after the BDT."
^DD(810.4,2,21,9,0)=" "
^DD(810.4,2,21,10,0)="Reminder Rules and Patient List Rules do not use the Beginning date/time"
^DD(810.4,2,21,11,0)="field. "
^DD(810.4,2,21,12,0)=" "
^DD(810.4,2,21,13,0)="The BDT defined for a finding rule will be overridden if the term in the"
^DD(810.4,2,21,14,0)="finding rule has a mapped finding with a BDT or Ending Date/Time (EDT)."
^DD(810.4,2,21,15,0)=" "
^DD(810.4,2,21,16,0)="The rules for overriding date ranges is represented by the following"
^DD(810.4,2,21,17,0)="equation, where ""<"" should be interpreted as ""is overridden by"":"
^DD(810.4,2,21,18,0)=" "
^DD(810.4,2,21,19,0)="  Build < rule set sequence < list rule < term's finding"
^DD(810.4,2,21,20,0)=" "
^DD(810.4,2,21,21,0)="If the BDT and EDT are not defined on the list rule set sequence, nor"
^DD(810.4,2,21,22,0)="the list finding rule, nor the Reminder Term's mapped finding, then the"
^DD(810.4,2,21,23,0)="patient list tools will use the List Build's date range to find a"
^DD(810.4,2,21,24,0)="match on findings. The List Build date range is the date range"
^DD(810.4,2,21,25,0)="specified by the user when the list build action is selected. The list"
^DD(810.4,2,21,26,0)="build date range is the Extract reporting period if an extract is"
^DD(810.4,2,21,27,0)="being run."
^DD(810.4,2,21,28,0)=" "
^DD(810.4,2,21,29,0)="If no date range limits should be used to match findings for this"
^DD(810.4,2,21,30,0)="finding rule, the finding rule needs to be defined with a zero in the"
^DD(810.4,2,21,31,0)="BDT or EDT fields, or both. The term referenced in the list rule"
^DD(810.4,2,21,32,0)="should not have BDT and EDT fields defined. If zero is defined in the"
^DD(810.4,2,21,33,0)="BDT, and the EDT is left blank, the list build tools will assume both"
^DD(810.4,2,21,34,0)="BDT and EDT should not have date range limits, and vice versa if EDT"
^DD(810.4,2,21,35,0)="has the 0 and the BDT is blank."
^DD(810.4,2,21,36,0)=" "
^DD(810.4,2,21,37,0)="The use of ""T"" in the finding rule BDT field will always represent the"
^DD(810.4,2,21,38,0)="ending date/time specified for the list build process or the extract"
^DD(810.4,2,21,39,0)="reporting period, depending on whether a reminder patient list or"
^DD(810.4,2,21,40,0)="extract option is being used to build the list. For example, T-1Y is"
^DD(810.4,2,21,41,0)="one year prior to the list build's ending date/time."
^DD(810.4,2,21,42,0)=" "
^DD(810.4,2,21,43,0)="""BDT"" may also be used in the BDT or EDT fields and represents the"
^DD(810.4,2,21,44,0)="beginning date/time specified by the user processing the list build"
^DD(810.4,2,21,45,0)="action. For example, BDT-5Y creates a beginning date for the list"
^DD(810.4,2,21,46,0)="rule that is five years prior to the list build's beginning date/time."
^DD(810.4,2,21,47,0)=" "
^DD(810.4,2,21,48,0)="A fixed date may be defined in the BDT (e.g. 09/11/02)."
^DD(810.4,2,21,49,0)=" "
^DD(810.4,2,21,50,0)="If the beginning date/time is later than the ending date/time, then no"
^DD(810.4,2,21,51,0)="finding matches will be found."
^DD(810.4,2,"DT")="3060504"
^DD(810.4,3,0)="LIST RULE ENDING DATE/TIME^FX^^0;5^K:(($L(X)<1)!($L(X)>20)!('$$DATECHK^PXRMRUL1(X))) X"
^DD(810.4,3,3)="Enter an exact date, symbolic date, or 0 (zero) for no ending date. Symbolic dates can use ""T"" to represent the build end date or ""BDT"" for build beginning date."
^DD(810.4,3,21,0)="^.001^49^49^3060526^^"
^DD(810.4,3,21,1,0)="Enter an exact date, symbolic date, or 0 (zero) for no ending date."
^DD(810.4,3,21,2,0)="Symbolic dates can use ""T"" to represent the build end date, or ""BDT"""
^DD(810.4,3,21,3,0)="for build beginning date."
^DD(810.4,3,21,4,0)=" "
^DD(810.4,3,21,5,0)="This field is the ending date/time to use when searching for findings"
^DD(810.4,3,21,6,0)="that match this list rule criteria. Findings must have been"
^DD(810.4,3,21,7,0)="documented before the ending date/time. If no time is included,"
^DD(810.4,3,21,8,0)="11:59PM is assumed to be the time."
^DD(810.4,3,21,9,0)=" "
^DD(810.4,3,21,10,0)="The rules for overriding date ranges is represented by the following"
^DD(810.4,3,21,11,0)="equation, where ""<"" should be interpreted as ""is overridden by"":"
^DD(810.4,3,21,12,0)=" "
^DD(810.4,3,21,13,0)="  Build < rule set sequence < list rule < term's finding"
^DD(810.4,3,21,14,0)=" "
^DD(810.4,3,21,15,0)="The Ending Date/Time (EDT) defined for this list rule will be"
^DD(810.4,3,21,16,0)="overridden if the term in the list rule has a mapped finding with a"
^DD(810.4,3,21,17,0)="Beginning Date/Time (BDT) or Ending Date/Time (EDT)."
^DD(810.4,3,21,18,0)=" "
^DD(810.4,3,21,19,0)="If the BDT and EDT are not defined on the list rule, nor the rule set"
^DD(810.4,3,21,20,0)="sequence, nor the Reminder Term's mapped finding, then the patient"
^DD(810.4,3,21,21,0)="list tools will use the List Build date range to find a match on"
^DD(810.4,3,21,22,0)="findings. The List Build date range is the date range specified by the"
^DD(810.4,3,21,23,0)="user when the list build action is selected. The list build date range"
^DD(810.4,3,21,24,0)="is the Extract reporting period if an extract is being run."
^DD(810.4,3,21,25,0)=" "
^DD(810.4,3,21,26,0)="If no date range limits should be used to match findings for this list"
^DD(810.4,3,21,27,0)="rule, the list rule needs to be defined with a zero in the BDT or EDT"
^DD(810.4,3,21,28,0)="fields, or both. The term referenced in the list rule should not have"
^DD(810.4,3,21,29,0)="BDT and EDT fields defined. If zero is defined in the list rule BDT,"
^DD(810.4,3,21,30,0)="and the EDT is left blank, the list build tools will assume both BDT"
^DD(810.4,3,21,31,0)="and EDT should not have date range limits, and vice versa if EDT has"
^DD(810.4,3,21,32,0)="the 0 and the BDT is blank."
^DD(810.4,3,21,33,0)=" "
^DD(810.4,3,21,34,0)="The use of ""T"" in the List rule EDT field will always represent the"
^DD(810.4,3,21,35,0)="ending date/time specified for the list build process or the extract"
^DD(810.4,3,21,36,0)="reporting period, depending on whether a reminder patient list or"
^DD(810.4,3,21,37,0)="extract option is being used to build the list. T-1Y is one year prior"
^DD(810.4,3,21,38,0)="to the list build's ending date/time."
^DD(810.4,3,21,39,0)=" "
^DD(810.4,3,21,40,0)="""BDT"" may also be used in the BDT or EDT fields and represents the"
^DD(810.4,3,21,41,0)="beginning date/time specified by the user processing the list build"
^DD(810.4,3,21,42,0)="action. For example ""BDT-5Y"" in the list rule beginning date, and"
^DD(810.4,3,21,43,0)="""BDT"" in the list rule ending date will create a five year date range"
^DD(810.4,3,21,44,0)="ending on the list build's beginning date/time."
^DD(810.4,3,21,45,0)=" "
^DD(810.4,3,21,46,0)="A fixed date may also be defined in the EDT (e.g. 09/11/02)."
^DD(810.4,3,21,47,0)=" "
^DD(810.4,3,21,48,0)="If the ending date/time is earlier than the beginning date/time, then"
^DD(810.4,3,21,49,0)="no finding matches will be found."
^DD(810.4,3,"DT")="3060526"
^DD(810.4,4,0)="USE EXISTING PT LIST^P810.5'^PXRMXP(810.5,^0;8^Q"
^DD(810.4,4,3)="Select an existing reminder patient list from the Reminder Patient List file."
^DD(810.4,4,21,0)="^^24^24^3060526^"
^DD(810.4,4,21,1,0)="This field is used by Patient List rules to identify an existing"
^DD(810.4,4,21,2,0)="patient list in the Reminder Patient List file.  The existing "
^DD(810.4,4,21,3,0)="patient list is used as the patient source to perform the ADD, "
^DD(810.4,4,21,4,0)="SELECT, or REMOVE operation on the list rule.  The existing patient"
^DD(810.4,4,21,5,0)="list is used to modify the temporary patient list built during"
^DD(810.4,4,21,6,0)="list build processing."
^DD(810.4,4,21,7,0)=" "
^DD(810.4,4,21,8,0)="  For the  ADD operation the patients in the source list will be"
^DD(810.4,4,21,9,0)="  added to the temporary patient list."
^DD(810.4,4,21,10,0)=" "
^DD(810.4,4,21,11,0)="  For the SELECT operation, the patients in the source list will be "
^DD(810.4,4,21,12,0)="  compared to the temporary patient list.  Patient's in the"
^DD(810.4,4,21,13,0)="  temporary list that are not in the source list will be removed"
^DD(810.4,4,21,14,0)="  from the temporary patient list."
^DD(810.4,4,21,15,0)=" "
^DD(810.4,4,21,16,0)="  For the REMOVE operation, the patients in the source list, that"
^DD(810.4,4,21,17,0)="  match a patient in the temporary patient list will be removed"
^DD(810.4,4,21,18,0)="  from the temporary patient list."
^DD(810.4,4,21,19,0)=" "
^DD(810.4,4,21,20,0)="  If the USE EXISTING PT LIST and USE EXTRACT PT LIST NAMED field"
^DD(810.4,4,21,21,0)="  are both defined in the list rule, the USE EXTRACT PT LIST NAMED"
^DD(810.4,4,21,22,0)="  will be used as the patient source for extract processing,"
^DD(810.4,4,21,23,0)="  and the USE EXISTING PT LIST will be used when the build"
^DD(810.4,4,21,24,0)="  processing is started from the Reminder Patient List option."
^DD(810.4,4,"DT")="3060526"
^DD(810.4,7,0)="USE EXTRACT PT LIST NAMED^F^^1;1^K:$L(X)>96!($L(X)<1) X"
^DD(810.4,7,3)="Enter the name of the extract patient list defined in the extract definition."
^DD(810.4,7,21,0)="^^41^41^3060526^"
^DD(810.4,7,21,1,0)="This is a free-text field that contains the name of the patient list"
^DD(810.4,7,21,2,0)="to use when processing this list rule during an extract run. The"
^DD(810.4,7,21,3,0)="patient list has not been created at the time the list rule is"
^DD(810.4,7,21,4,0)="defined. In contrast, the USE EXISTING PT LIST field is used by"
^DD(810.4,7,21,5,0)="patient list rule tools to reference a patient list already"
^DD(810.4,7,21,6,0)="existing in the REMINDER PATIENT LIST file."
^DD(810.4,7,21,7,0)=" "
^DD(810.4,7,21,8,0)="The name specified in the USE EXTRACT PT LIST NAMED will contain"
^DD(810.4,7,21,9,0)="'yyyy' for year and 'pnn' for reporting period. The nn is either"
^DD(810.4,7,21,10,0)="the month (01-12) or calendar quarter (01-04), and p is either M"
^DD(810.4,7,21,11,0)="for monthly, Q for quarterly, or Y for yearly."
^DD(810.4,7,21,12,0)=" "
^DD(810.4,7,21,13,0)="When an extract is run for a particular reporting period, the"
^DD(810.4,7,21,14,0)="extract tool will use the USE EXTRACT PT LIST NAMED to find the"
^DD(810.4,7,21,15,0)="patient list matching the name and then use this patient list to"
^DD(810.4,7,21,16,0)="create the starting temporary patient list. The starting temporary"
^DD(810.4,7,21,17,0)="patient list will be modified by add, select, and delete operations"
^DD(810.4,7,21,18,0)="defined in the remaining list rules defined in the rule set."
^DD(810.4,7,21,19,0)=" "
^DD(810.4,7,21,20,0)="The same extract patient list name is also named in the REMINDER"
^DD(810.4,7,21,21,0)="EXTRACT DEFINITION file (#810.2). The extract definition is used to"
^DD(810.4,7,21,22,0)="create the extract patient list during an extract run. The 'yyyy'"
^DD(810.4,7,21,23,0)="and 'pnn' ensures the extract process for the reporting year and"
^DD(810.4,7,21,24,0)="period consistently uses the appropriate extract patient list"
^DD(810.4,7,21,25,0)="created for the reporting period."
^DD(810.4,7,21,26,0)=" "
^DD(810.4,7,21,27,0)="Example: The patient list 'VA-*IHD QUERI yyyy pnn PATIENTS WITH"
^DD(810.4,7,21,28,0)="QUALIFYING VISIT' is created during 'VA-IHD QUERI' extract"
^DD(810.4,7,21,29,0)="processing by a rule set defined in the extract definition. Then a"
^DD(810.4,7,21,30,0)="subsequent rule set defined in the 'VA-IHD QUERI' extract "
^DD(810.4,7,21,31,0)="definition references a REMINDER LIST RULE entry with the same"
^DD(810.4,7,21,32,0)="extract patient list name in the USE EXTRACT PT LIST NAMED field."
^DD(810.4,7,21,33,0)="During the extract run, the named list will be used to find the"
^DD(810.4,7,21,34,0)="patient list created during the extract run in process.  This list"
^DD(810.4,7,21,35,0)="is used with the ADD operation in the rule set to create the"
^DD(810.4,7,21,36,0)="temporary patient list to process the remaining rules in the rule"
^DD(810.4,7,21,37,0)="set. In this example, the temorary patient list is  modified to"
^DD(810.4,7,21,38,0)="include patients that have both a QUALIFYING VISIT and an ANCHOR"
^DD(810.4,7,21,39,0)="visit, creating a new patient list, 'VA-*IHD QUERI yyyy nn PATIENTS"
^DD(810.4,7,21,40,0)="WITH QUALIFYING AND ANCHOR VISIT'. The new patient list created by the "
^DD(810.4,7,21,41,0)="rule set processing is defined in the extract definition."
^DD(810.4,7,"DT")="3060526"
^DD(810.4,9,0)="REMINDER DEFINITION^*P811.9'^PXD(811.9,^0;10^S DIC(""S"")=""I $P($G(^(100)),U,4)[""""L"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(810.4,9,3)="Enter a Reminder Definition that can be used to build a patient list."
^DD(810.4,9,12)="The Reminder Definition must have an ""L"" for patient list in its USAGE field."
^DD(810.4,9,12.1)="S DIC(""S"")=""I $P($G(^(100)),U,4)[""""L"""""""
^DD(810.4,9,21,0)="^.001^4^4^3060615^^^^"
^DD(810.4,9,21,1,0)="This is a pointer to the Reminder Definition file #811.9. Reminders"
^DD(810.4,9,21,2,0)="used to build patient lists must have an ""L"" in their USAGE field."
^DD(810.4,9,21,3,0)=""
^DD(810.4,9,21,4,0)=""
^DD(810.4,9,"DT")="3050121"
^DD(810.4,30,0)="SEQUENCE^810.41I^^30;0"
^DD(810.4,30,"DT")="3030811"
^DD(810.4,100,0)="CLASS^RS^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q"
^DD(810.4,100,3)="Enter the class,"
^DD(810.4,100,21,0)="^.001^1^1^3050121^^"
^DD(810.4,100,21,1,0)="This is the CLASS of the rule. National rules cannot be edited."
^DD(810.4,100,"DT")="3020702"
^DD(810.4,110,0)="EDIT HISTORY^810.42D^^110;0"
^DD(810.4,110,21,0)="^.001^1^1^3010502^^"
^DD(810.4,110,21,1,0)="This multiple is used to record a history of changes to the rule."
^DD(810.4,"B","CLASS",100)=""
^DD(810.4,"B","EDIT HISTORY",110)=""
^DD(810.4,"B","LIST RULE BEGINNING DATE/TIME",2)=""
^DD(810.4,"B","LIST RULE ENDING DATE/TIME",3)=""
^DD(810.4,"B","NAME",.01)=""
^DD(810.4,"B","REMINDER DEFINITION",9)=""
^DD(810.4,"B","REMINDER TERM",1)=""
^DD(810.4,"B","SEQUENCE",30)=""
^DD(810.4,"B","SHORT DESCRIPTION",.02)=""
^DD(810.4,"B","TYPE",.03)=""
^DD(810.4,"B","USE EXISTING PT LIST",4)=""
^DD(810.4,"B","USE EXTRACT PT LIST NAMED",7)=""
^DD(810.4,"GL",0,1,.01)=""
^DD(810.4,"GL",0,2,.02)=""
^DD(810.4,"GL",0,3,.03)=""
^DD(810.4,"GL",0,4,2)=""
^DD(810.4,"GL",0,5,3)=""
^DD(810.4,"GL",0,7,1)=""
^DD(810.4,"GL",0,8,4)=""
^DD(810.4,"GL",0,10,9)=""
^DD(810.4,"GL",1,1,7)=""
^DD(810.4,"GL",30,0,30)=""
^DD(810.4,"GL",100,1,100)=""
^DD(810.4,"GL",110,0,110)=""
^DD(810.4,"RQ",.01)=""
^DD(810.4,"RQ",.03)=""
^DD(810.4,"RQ",100)=""
^DD(810.4,"SB",810.41,30)=""
^DD(810.4,"SB",810.42,110)=""
^DD(810.41,0)="SEQUENCE SUB-FIELD^^3^5"
^DD(810.41,0,"DT")="3070330"
^DD(810.41,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PXRM(810.4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(810.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.41,0,"IX","D",810.41,.02)=""
^DD(810.41,0,"NM","SEQUENCE")=""
^DD(810.41,0,"UP")="810.4"
^DD(810.41,.01,0)="SEQUENCE^MRNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.41,.01,1,0)="^.1^^0"
^DD(810.41,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(810.41,.01,21,0)="^.001^8^8^3070330^^^^"
^DD(810.41,.01,21,1,0)="A rule set is defined with one or more  sequences of list rules that "
^DD(810.41,.01,21,2,0)="indicate the sequence the list rules should be processed when the "
^DD(810.41,.01,21,3,0)="patient list is created. This is the sequence number associated with the"
^DD(810.41,.01,21,4,0)="list rule."
^DD(810.41,.01,21,5,0)=" "
^DD(810.41,.01,21,6,0)="The patient list created while processing each sequential list rule is"
^DD(810.41,.01,21,7,0)="stored in ^TMP(""PXRMRULE""_sequence,$J).  After the rule set is"
^DD(810.41,.01,21,8,0)="processed, the patient list is stored in the Reminder Patient List file."
^DD(810.41,.01,"DT")="3070702"
^DD(810.41,.02,0)="LIST RULE^*P810.4^PXRM(810.4,^0;2^D SCREEN^PXRMLRED D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(810.41,.02,1,0)="^.1"
^DD(810.41,.02,1,1,0)="810.4^AD"
^DD(810.41,.02,1,1,1)="S ^PXRM(810.4,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(810.41,.02,1,1,2)="K ^PXRM(810.4,""AD"",$E(X,1,30),DA(1),DA)"
^DD(810.41,.02,1,1,"%D",0)="^^1^1^3020703^"
^DD(810.41,.02,1,1,"%D",1,0)="This index is used to determine which rule sets a list rule belongs to."
^DD(810.41,.02,1,1,"DT")="3020703"
^DD(810.41,.02,1,2,0)="810.41^D"
^DD(810.41,.02,1,2,1)="S ^PXRM(810.4,DA(1),30,""D"",$E(X,1,30),DA)="""""
^DD(810.41,.02,1,2,2)="K ^PXRM(810.4,DA(1),30,""D"",$E(X,1,30),DA)"
^DD(810.41,.02,1,2,"DT")="3020703"
^DD(810.41,.02,12)="RULE SETS MAY NOT CONTAIN OTHER RULE SETS"
^DD(810.41,.02,12.1)="D SCREEN^PXRMLRED"
^DD(810.41,.02,21,0)="^^1^1^3020424^"
^DD(810.41,.02,21,1,0)="This is the finding rule to be used to select patients."
^DD(810.41,.02,"DT")="3020703"
^DD(810.41,.03,0)="OPERATION^RS^A:ADD PATIENT;F:INSERT FINDING;R:REMOVE;S:SELECT;^0;3^Q"
^DD(810.41,.03,21,0)="^.001^20^20^3040521^^"
^DD(810.41,.03,21,1,0)="This is the condition used in processing the sequence/finding rule. Each "
^DD(810.41,.03,21,2,0)="processing step will have a start and end list, a finding rule and an"
^DD(810.41,.03,21,3,0)="operation"
^DD(810.41,.03,21,4,0)=" "
^DD(810.41,.03,21,5,0)="The possible operations are:"
^DD(810.41,.03,21,6,0)=" "
^DD(810.41,.03,21,7,0)="ADD    - Patients with findings in the rule are added to the start list to"
^DD(810.41,.03,21,8,0)="create the end list."
^DD(810.41,.03,21,9,0)=" "
^DD(810.41,.03,21,10,0)="REMOVE - Patients with findings in the rule are removed from the start "
^DD(810.41,.03,21,11,0)="list to create the end list."
^DD(810.41,.03,21,12,0)=" "
^DD(810.41,.03,21,13,0)="SELECT - Patients without findings in the rule are removed from the start "
^DD(810.41,.03,21,14,0)="list to create the end list."
^DD(810.41,.03,21,15,0)=" "
^DD(810.41,.03,21,16,0)="The end list is always stored in ^TMP(""PXRMRULE""_sequence,$J). The start "
^DD(810.41,.03,21,17,0)="list may be the end list from another finding rule in the rule set or, "
^DD(810.41,.03,21,18,0)="alternatively, may be a patient list (#810.5)."
^DD(810.41,.03,21,19,0)=" "
^DD(810.41,.03,21,20,0)="Patient lists may be merged using the ADD operation."
^DD(810.41,.03,"DT")="3040521"
^DD(810.41,2,0)="SEQUENCE BEGINNING DATE/TIME^FX^^1;1^K:(($L(X)<1)!($L(X)>20)!('$$DATECHK^PXRMRUL1(X))) X"
^DD(810.41,2,3)="Answer must be 1-20 characters in length."
^DD(810.41,2,21,0)="^^48^48^3060524^"
^DD(810.41,2,21,1,0)="This field is the beginning date/time (BDT) to use when searching for  "
^DD(810.41,2,21,2,0)="findings that match the rule set sequence criteria.  In order for "
^DD(810.41,2,21,3,0)="patient data to meet the rule set sequence criteria, the findings must "
^DD(810.41,2,21,4,0)="have been documented on or after the beginning date/time."
^DD(810.41,2,21,5,0)=" "
^DD(810.41,2,21,6,0)="The rules for overriding date ranges can be defined with the following"
^DD(810.41,2,21,7,0)="equation, where ""<"" should be interpreted as ""is overridden by"":"
^DD(810.41,2,21,8,0)=" "
^DD(810.41,2,21,9,0)="  List Build < rule set sequence < list rule < term's finding"
^DD(810.41,2,21,10,0)=" "
^DD(810.41,2,21,11,0)="The Beginning Date/Time (BDT) defined for a rule set sequence will be"
^DD(810.41,2,21,12,0)="overridden if the finding list rule, or term in the finding list rule"
^DD(810.41,2,21,13,0)="has a mapped finding with a Beginning Date/Time (BDT) or Ending"
^DD(810.41,2,21,14,0)="Date/Time (EDT)."
^DD(810.41,2,21,15,0)=" "
^DD(810.41,2,21,16,0)="If the BDT and EDT are not defined on the rule set sequence,"
^DD(810.41,2,21,17,0)="                       nor the list rule, "
^DD(810.41,2,21,18,0)="                       nor the Reminder Term's mapped finding, "
^DD(810.41,2,21,19,0)="then the patient list tools will use the List Build date range to "
^DD(810.41,2,21,20,0)="find a match on findings. The List Build date range is the date"
^DD(810.41,2,21,21,0)="range specified by the user when the list build action is selected."
^DD(810.41,2,21,22,0)="The list build date range is the extract reporting period if an "
^DD(810.41,2,21,23,0)="extract is being run."
^DD(810.41,2,21,24,0)=" "
^DD(810.41,2,21,25,0)="If no date range limits should be used to match findings for this "
^DD(810.41,2,21,26,0)="rule set sequence, the rule set sequence (or its list rule) needs to "
^DD(810.41,2,21,27,0)="be defined with a zero in the BDT and/or EDT fields. The term "
^DD(810.41,2,21,28,0)="referenced in the list rule should not have BDT and EDT fields "
^DD(810.41,2,21,29,0)="defined. If zero is defined in the BDT, and the EDT is left blank, "
^DD(810.41,2,21,30,0)="the list build tools will assume both BDT and EDT should not have "
^DD(810.41,2,21,31,0)="date range limits, and vice versa if EDT has the 0 and the BDT is "
^DD(810.41,2,21,32,0)="blank. Both BDT and EDT may be set to zero."
^DD(810.41,2,21,33,0)=" "
^DD(810.41,2,21,34,0)="The use of ""T"" in the rule set sequence BDT field will always "
^DD(810.41,2,21,35,0)="represent the ending date/time specified for the list build process"
^DD(810.41,2,21,36,0)="or the extract reporting period, depending on whether a reminder"
^DD(810.41,2,21,37,0)="patient list or extract option is being used to build the list."
^DD(810.41,2,21,38,0)="T-1Y is one year prior to the list build's ending date/time."
^DD(810.41,2,21,39,0)=" "
^DD(810.41,2,21,40,0)="""BDT"" may also be used in the BDT or EDT fields and represents the"
^DD(810.41,2,21,41,0)="beginning date/time specified by the user processing the list build"
^DD(810.41,2,21,42,0)="action.  BDT-5Y creates a beginning date for the rule set sequence"
^DD(810.41,2,21,43,0)="that is five years prior to the list build's beginning date/time."
^DD(810.41,2,21,44,0)=" "
^DD(810.41,2,21,45,0)="A fixed date may also be defined in the BDT (e.g. 09/11/02)."
^DD(810.41,2,21,46,0)=" "
^DD(810.41,2,21,47,0)="If the beginning date/time is later than the ending date/time, then"
^DD(810.41,2,21,48,0)="no finding matches will be found."
^DD(810.41,2,23,0)="0"
^DD(810.41,2,"DT")="3060504"
^DD(810.41,3,0)="SEQUENCE ENDING DATE/TIME^FX^^1;2^K:(($L(X)<1)!($L(X)>20)!('$$DATECHK^PXRMRUL1(X))) X"
^DD(810.41,3,3)="Answer must be 1-20 characters in length."
^DD(810.41,3,21,0)="^^47^47^3060504^^"
^DD(810.41,3,21,1,0)="This field is the ending date/time to use when searching for findings that"
^DD(810.41,3,21,2,0)="match this rule set sequence criteria. Findings must have been documented"
^DD(810.41,3,21,3,0)="before the ending date/time.  If no time is included, "
^DD(810.41,3,21,4,0)="11:59PM is assumed to be the time."
^DD(810.41,3,21,5,0)=""
^DD(810.41,3,21,6,0)="The rules for overriding date ranges can be defined with the following"
^DD(810.41,3,21,7,0)="equation, where ""<"" should be interpreted as ""is overridden by"":"
^DD(810.41,3,21,8,0)=""
^DD(810.41,3,21,9,0)="List Build < rule set sequence < list rule < term's finding"
^DD(810.41,3,21,10,0)=""
^DD(810.41,3,21,11,0)="The Ending Date/Time (EDT) defined for this rule set sequence will be"
^DD(810.41,3,21,12,0)="overridden if the list rule, or term referenced in the list rule has a mapped"
^DD(810.41,3,21,13,0)="finding with a Beginning Date/Time (BDT) or Ending Date/Time (EDT)."
^DD(810.41,3,21,14,0)=""
^DD(810.41,3,21,15,0)="If the BDT and EDT are not defined on the rule set sequence, nor the list"
^DD(810.41,3,21,16,0)="rule, nor the Reminder Term's mapped finding, then the patient list tools will"
^DD(810.41,3,21,17,0)="use the List Build date range to find a match on findings. The List Build date"
^DD(810.41,3,21,18,0)="range is the date range specified by the user selecting the list build action."
^DD(810.41,3,21,19,0)="The list build date range is the Extract reporting period if an extract is"
^DD(810.41,3,21,20,0)="being run."
^DD(810.41,3,21,21,0)=""
^DD(810.41,3,21,22,0)="If no date range limits should be used to match findings for this rule set"
^DD(810.41,3,21,23,0)="sequence, the rule set sequence needs to be defined with a zero in the BDT or"
^DD(810.41,3,21,24,0)="EDT fields, or both fields. Alternatively, the list build referenced by the"
^DD(810.41,3,21,25,0)="sequence can be defined with a zero in its BDT or EFDT fields. The term"
^DD(810.41,3,21,26,0)="referenced in the list rule should not have BDT and EDT fields defined. If"
^DD(810.41,3,21,27,0)="zero is defined in the rule set sequence or list rule BDT, and the EDT is left"
^DD(810.41,3,21,28,0)="blank, the list build tools will assume both BDT and EDT should not have date"
^DD(810.41,3,21,29,0)="range limits, and vice versa if EDT has the 0 and the BDT is blank.  "
^DD(810.41,3,21,30,0)=""
^DD(810.41,3,21,31,0)="The use of ""T"" in the rule set sequence EDT field will always represent the"
^DD(810.41,3,21,32,0)="ending date/time specified for the list build process or the extract reporting"
^DD(810.41,3,21,33,0)="period, depending on whether a reminder patient list or extract option is"
^DD(810.41,3,21,34,0)="being used to build the list. T-1Y is one year prior to the list build's"
^DD(810.41,3,21,35,0)="ending date/time."
^DD(810.41,3,21,36,0)=""
^DD(810.41,3,21,37,0)="""BDT"" may also be used in the BDT or EDT fields and represents the beginning"
^DD(810.41,3,21,38,0)="date/time specified by the user processing the list build action.  For example"
^DD(810.41,3,21,39,0)="BDT-5Y in the rule set sequence beginning date, and BDT in the list rule set"
^DD(810.41,3,21,40,0)="sequence ending date will create a five year date range ending on the list"
^DD(810.41,3,21,41,0)="build's beginning date/time."
^DD(810.41,3,21,42,0)=""
^DD(810.41,3,21,43,0)="A fixed date may also be defined in the EDT (e.g. 09/11/02)."
^DD(810.41,3,21,44,0)=""
^DD(810.41,3,21,45,0)="If the ending date/time is earlier than the beginning date/time, then no"
^DD(810.41,3,21,46,0)="finding matches will be found."
^DD(810.41,3,21,47,0)=""
^DD(810.41,3,"DT")="3060504"
^DD(810.41,"B","LIST RULE",.02)=""
^DD(810.41,"B","OPERATION",.03)=""
^DD(810.41,"B","SEQUENCE",.01)=""
^DD(810.41,"B","SEQUENCE BEGINNING DATE/TIME",2)=""
^DD(810.41,"B","SEQUENCE ENDING DATE/TIME",3)=""
^DD(810.41,"GL",0,1,.01)=""
^DD(810.41,"GL",0,2,.02)=""
^DD(810.41,"GL",0,3,.03)=""
^DD(810.41,"GL",1,1,2)=""
^DD(810.41,"GL",1,2,3)=""
^DD(810.41,"IX",.02)=""
^DD(810.41,"RQ",.01)=""
^DD(810.41,"RQ",.03)=""
^DD(810.42,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(810.42,0,"DT")="3021011"
^DD(810.42,0,"IX","B",810.42,.01)=""
^DD(810.42,0,"NM","EDIT HISTORY")=""
^DD(810.42,0,"UP")="810.4"
^DD(810.42,.01,0)="EDIT DATE^DX^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(810.42,.01,1,0)="^.1"
^DD(810.42,.01,1,1,0)="810.42^B"
^DD(810.42,.01,1,1,1)="S ^PXRM(810.4,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(810.42,.01,1,1,2)="K ^PXRM(810.4,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(810.42,.01,3)="(No range limit on date)"
^DD(810.42,.01,21,0)="^^2^2^3020702^"
^DD(810.42,.01,21,1,0)="This is the date and time when the editing was done. This field is set "
^DD(810.42,.01,21,2,0)="automatically and should not be changed by the user."
^DD(810.42,.01,"DT")="3020702"
^DD(810.42,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(810.42,1,21,0)="^^2^2^3020702^"
^DD(810.42,1,21,1,0)="This is the person who did the editing. This field is set automatically "
^DD(810.42,1,21,2,0)="and should not be changed by the user."
^DD(810.42,1,"DT")="3020702"
^DD(810.42,2,0)="EDIT COMMENTS^810.422^^1;0"
^DD(810.42,"B","EDIT BY",1)=""
^DD(810.42,"B","EDIT COMMENTS",2)=""
^DD(810.42,"B","EDIT DATE",.01)=""
^DD(810.42,"GL",0,1,.01)=""
^DD(810.42,"GL",0,2,1)=""
^DD(810.42,"GL",1,0,2)=""
^DD(810.42,"IX",.01)=""
^DD(810.42,"SB",810.422,2)=""
^DD(810.422,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(810.422,0,"DT")="3021011"
^DD(810.422,0,"NM","EDIT COMMENTS")=""
^DD(810.422,0,"UP")="810.42"
^DD(810.422,.01,0)="EDIT COMMENTS^W^^0;1"
^DD(810.422,.01,21,0)="^^2^2^3021011^"
^DD(810.422,.01,21,1,0)="This word-processing field can be used to record the changes made during"
^DD(810.422,.01,21,2,0)="the editing session."
^DD(810.422,.01,"DT")="3021011"
^DD(810.422,"B","EDIT COMMENTS",.01)=""
^DD(810.422,"GL",0,1,.01)=""
^DD(810.5,0)="FIELD^^2^19"
^DD(810.5,0,"DDA")="N"
^DD(810.5,0,"DT")="3070205"
^DD(810.5,0,"NM","REMINDER PATIENT LIST")=""
^DD(810.5,0,"PT",810.114,.01)=""
^DD(810.5,0,"PT",810.33,.04)=""
^DD(810.5,0,"PT",810.4,4)=""
^DD(810.5,0,"VR")="2.0"
^DD(810.5,0,"VRPK")="PXRM"
^DD(810.5,.01,0)="NAME^RF^^0;1^K:$L(X)>96!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,810.5)) X"
^DD(810.5,.01,1,0)="^.1^^0"
^DD(810.5,.01,3)="Answer must be 3-96 characters in length"
^DD(810.5,.01,21,0)="^^9^9^3060504^^"
^DD(810.5,.01,21,1,0)="This is the unique name identifying the patient list. "
^DD(810.5,.01,21,2,0)=" "
^DD(810.5,.01,21,3,0)="Patient lists created as denominator lists in the rollup of national data"
^DD(810.5,.01,21,4,0)="to the Austin Automation Center begin with 'VA-'. The patient list name"
^DD(810.5,.01,21,5,0)="for this type of list begins with the name of the extract definition used"
^DD(810.5,.01,21,6,0)="to create the patient list."
^DD(810.5,.01,21,7,0)=" "
^DD(810.5,.01,21,8,0)="e.g.  VA-IHD QUERI 2002 Q1 04/22/2002@10:00AM"
^DD(810.5,.01,21,9,0)=""
^DD(810.5,.01,"DT")="3060504"
^DD(810.5,.02,0)="REPORT YEAR^NJ4,0^^0;2^K:+X'=X!(X>2050)!(X<2002)!(X?.E1"".""1N.N) X"
^DD(810.5,.02,3)="Type a Number between 2002 and 2050, 0 Decimal Digits"
^DD(810.5,.02,21,0)="^.001^2^2^3050826^^"
^DD(810.5,.02,21,1,0)="This is the extract year. Applies only if the patient list was created "
^DD(810.5,.02,21,2,0)="from an extract run."
^DD(810.5,.02,"DT")="3020424"
^DD(810.5,.03,0)="REPORT PERIOD^NJ2,0^^0;3^K:+X'=X!(X>12)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.5,.03,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(810.5,.03,21,0)="^^2^2^3040823^^"
^DD(810.5,.03,21,1,0)="This is the extract period (Q1,M1 etc). Applies only if the patient list "
^DD(810.5,.03,21,2,0)="was created from an extract run."
^DD(810.5,.03,"DT")="3040823"
^DD(810.5,.04,0)="ORIGINAL DATE CREATED^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(810.5,.04,21,0)="^.001^1^1^3020701^^"
^DD(810.5,.04,21,1,0)="This is the date the patient list was originally created."
^DD(810.5,.04,"DT")="3020701"
^DD(810.5,.05,0)="EXTRACT DEFINITION^P810.2'^PXRM(810.2,^0;5^Q"
^DD(810.5,.05,21,0)="^^4^4^3060504^^^"
^DD(810.5,.05,21,1,0)="This is a pointer to the extract definition (#810.2) used to "
^DD(810.5,.05,21,2,0)="create the patient list."
^DD(810.5,.05,21,3,0)=""
^DD(810.5,.05,21,4,0)=""
^DD(810.5,.05,"DT")="3060504"
^DD(810.5,.06,0)="LIST RULE^P810.4'^PXRM(810.4,^0;6^Q"
^DD(810.5,.06,21,0)="^.001^2^2^3050721^^^"
^DD(810.5,.06,21,1,0)="This is a pointer to the list rule (#810.4) used to create the patient "
^DD(810.5,.06,21,2,0)="list."
^DD(810.5,.06,"DT")="3050721"
^DD(810.5,.07,0)="CREATOR^P200'^VA(200,^0;7^Q"
^DD(810.5,.07,21,0)="^.001^3^3^3071017^^^^"
^DD(810.5,.07,21,1,0)="This field is a pointer to file 200. The DUZ of the user who created"
^DD(810.5,.07,21,2,0)="the  patient list will be stored in this field."
^DD(810.5,.07,21,3,0)=""
^DD(810.5,.07,"DT")="3040823"
^DD(810.5,.08,0)="TYPE^S^PUB:PUBLIC;PVT:PRIVATE;^0;8^Q"
^DD(810.5,.08,3)="Enter the type of list, public or private"
^DD(810.5,.08,21,0)="^^1^1^3050617^"
^DD(810.5,.08,21,1,0)="This field is used to mark a list as being public or private."
^DD(810.5,.08,"DT")="3050617"
^DD(810.5,.09,0)="CREATED BY REMINDER DUE REPORT^S^0:NO;1:YES;^0;9^Q"
^DD(810.5,.09,21,0)="^^2^2^3050721^"
^DD(810.5,.09,21,1,0)="This field will be true if the patient list was created by a"
^DD(810.5,.09,21,2,0)="Reminders Due Report."
^DD(810.5,.09,"DT")="3050721"
^DD(810.5,.1,0)="INCLUDE PCMM INSTITUTION^S^0:NO;1:YES;^0;10^Q"
^DD(810.5,.1,21,0)="^.001^6^6^3050830^^"
^DD(810.5,.1,21,1,0)="This field is set automatically to YES if the rule set used to"
^DD(810.5,.1,21,2,0)="create the patient list contains a finding rule that is associated"
^DD(810.5,.1,21,3,0)="with either of the terms VA-IHD STATION CODE or VA-PCMM INSTITUTION."
^DD(810.5,.1,21,4,0)="It is used to control the display of the PCMM Institution column in"
^DD(810.5,.1,21,5,0)="the ListManager patient list interface."
^DD(810.5,.1,21,6,0)=""
^DD(810.5,.1,"DT")="3050830"
^DD(810.5,1,0)="INCLUDE DECEASED PATIENTS^S^0:NO;1:YES;^0;11^Q"
^DD(810.5,1,21,0)="^^3^3^3070205^"
^DD(810.5,1,21,1,0)="This field is used to record the user's answer to the prompt:"
^DD(810.5,1,21,2,0)="Include deceased patients?"
^DD(810.5,1,21,3,0)=""
^DD(810.5,1,"DT")="3070205"
^DD(810.5,2,0)="INCLUDE TEST PATIENTS^S^0:NO;1:YES;^0;12^Q"
^DD(810.5,2,21,0)="^^3^3^3070205^"
^DD(810.5,2,21,1,0)="This field is used to store the user's response to the prompt:"
^DD(810.5,2,21,2,0)="Include test patients?"
^DD(810.5,2,21,3,0)=""
^DD(810.5,2,"DT")="3070205"
^DD(810.5,30,0)="PATIENTS^810.53P^^30;0"
^DD(810.5,30,21,0)="^.001^1^1^3070205^^^^"
^DD(810.5,30,21,1,0)="This is a multiple that contains the list of patients for the patient list."
^DD(810.5,35,0)="DATA TYPE LIST^810.535A^^35;0"
^DD(810.5,35,21,0)="^.001^1^1^3050713^^"
^DD(810.5,35,21,1,0)="This is the list of all possible data types for a patient list."
^DD(810.5,40,0)="USERS^810.54P^^40;0"
^DD(810.5,40,21,0)="^.001^2^2^3050621^^^^"
^DD(810.5,40,21,1,0)="This multiple will store a list of users and their access to private"
^DD(810.5,40,21,2,0)="patient lists."
^DD(810.5,45,0)="REMINDER LIST^810.545P^^45;0"
^DD(810.5,45,21,0)="^^3^3^3050721^"
^DD(810.5,45,21,1,0)="If the patient list was created by a Reminder Due Report this"
^DD(810.5,45,21,2,0)="multiple contains the list of reminders that were evaluated for the"
^DD(810.5,45,21,3,0)="report."
^DD(810.5,50,0)="AUTOMATICALLY PURGE^S^1:Y;0:N;^50;1^Q"
^DD(810.5,50,21,0)="^^4^4^3060504^^"
^DD(810.5,50,21,1,0)="This field is use to determine if the Patient List should be automatically "
^DD(810.5,50,21,2,0)="purge after five years. This field will be checked by the Reminder Extract "
^DD(810.5,50,21,3,0)="code that runs monthly when running the National Extract."
^DD(810.5,50,21,4,0)=""
^DD(810.5,50,"DT")="3060504"
^DD(810.5,100,0)="CLASS^S^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q"
^DD(810.5,100,3)="Enter the class."
^DD(810.5,100,21,0)="^^2^2^3020711^"
^DD(810.5,100,21,1,0)="This is the class of the patient list. National patient lists cannot be"
^DD(810.5,100,21,2,0)="edited."
^DD(810.5,100,"DT")="3020711"
^DD(810.5,200,0)="CREATION DOCUMENTATION^810.51^^200;0"
^DD(810.5,200,21,0)="^.001^12^12^3051019^^^"
^DD(810.5,200,21,1,0)="This word-processing field documents how the patient list was"
^DD(810.5,200,21,2,0)="created and it is created automatically when the patient list is"
^DD(810.5,200,21,3,0)="built."
^DD(810.5,200,21,4,0)=""
^DD(810.5,200,21,5,0)="The information it contains shows the rule set details and how the"
^DD(810.5,200,21,6,0)="rule set was processed to build the patient list. This includes the"
^DD(810.5,200,21,7,0)="final Beginning Date/Time and Ending Date/Time for each finding used"
^DD(810.5,200,21,8,0)="in the list rule for each sequence/step in the rule set."
^DD(810.5,200,21,9,0)=""
^DD(810.5,200,21,10,0)=""
^DD(810.5,200,21,11,0)=""
^DD(810.5,200,21,12,0)=""
^DD(810.5,"B","AUTOMATICALLY PURGE",50)=""
^DD(810.5,"B","CLASS",100)=""
^DD(810.5,"B","CREATED BY REMINDER DUE REPORT",.09)=""
^DD(810.5,"B","CREATION DOCUMENTATION",200)=""
^DD(810.5,"B","CREATOR",.07)=""
^DD(810.5,"B","DATA TYPE LIST",35)=""
^DD(810.5,"B","EXTRACT DEFINITION",.05)=""
^DD(810.5,"B","INCLUDE DECEASED PATIENTS",1)=""
^DD(810.5,"B","INCLUDE PCMM INSTITUTION",.1)=""
^DD(810.5,"B","INCLUDE TEST PATIENTS",2)=""
^DD(810.5,"B","LIST RULE",.06)=""
^DD(810.5,"B","NAME",.01)=""
^DD(810.5,"B","ORIGINAL DATE CREATED",.04)=""
^DD(810.5,"B","PATIENTS",30)=""
^DD(810.5,"B","REMINDER LIST",45)=""
^DD(810.5,"B","REPORT PERIOD",.03)=""
^DD(810.5,"B","REPORT YEAR",.02)=""
^DD(810.5,"B","TYPE",.08)=""
^DD(810.5,"B","USERS",40)=""
^DD(810.5,"GL",0,1,.01)=""
^DD(810.5,"GL",0,2,.02)=""
^DD(810.5,"GL",0,3,.03)=""
^DD(810.5,"GL",0,4,.04)=""
^DD(810.5,"GL",0,5,.05)=""
^DD(810.5,"GL",0,6,.06)=""
^DD(810.5,"GL",0,7,.07)=""
^DD(810.5,"GL",0,8,.08)=""
^DD(810.5,"GL",0,9,.09)=""
^DD(810.5,"GL",0,10,.1)=""
^DD(810.5,"GL",0,11,1)=""
^DD(810.5,"GL",0,12,2)=""
^DD(810.5,"GL",30,0,30)=""
^DD(810.5,"GL",35,0,35)=""
^DD(810.5,"GL",40,0,40)=""
^DD(810.5,"GL",45,0,45)=""
^DD(810.5,"GL",50,1,50)=""
^DD(810.5,"GL",100,1,100)=""
^DD(810.5,"GL",200,0,200)=""
^DD(810.5,"RQ",.01)=""
^DD(810.5,"SB",810.51,200)=""
^DD(810.5,"SB",810.53,30)=""
^DD(810.5,"SB",810.535,35)=""
^DD(810.5,"SB",810.54,40)=""
^DD(810.5,"SB",810.545,45)=""
^DD(810.51,0)="CREATION DOCUMENTATION SUB-FIELD^^.01^1"
^DD(810.51,0,"DT")="3050629"
^DD(810.51,0,"NM","CREATION DOCUMENTATION")=""
^DD(810.51,0,"UP")="810.5"
^DD(810.51,.01,0)="CREATION DOCUMENTATION^W^^0;1^Q"
^DD(810.51,.01,21,0)="^.001^2^2^3051019^^^^"
^DD(810.51,.01,21,1,0)="This word-processing field is used to document how a patient list"
^DD(810.51,.01,21,2,0)="was created."
^DD(810.51,.01,"DT")="3050629"
^DD(810.51,"B","CREATION DOCUMENTATION",.01)=""
^DD(810.51,"GL",0,1,.01)=""
^DD(810.53,0)="PATIENTS SUB-FIELD^^.05^7"
^DD(810.53,0,"DT")="3070205"
^DD(810.53,0,"IX","B",810.53,.01)=""
^DD(810.53,0,"NM","PATIENTS")=""
^DD(810.53,0,"UP")="810.5"
^DD(810.53,.01,0)="PATIENTS^MP2'^DPT(^0;1^Q"
^DD(810.53,.01,1,0)="^.1"
^DD(810.53,.01,1,1,0)="810.53^B"
^DD(810.53,.01,1,1,1)="S ^PXRMXP(810.5,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(810.53,.01,1,1,2)="K ^PXRMXP(810.5,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(810.53,.01,21,0)="^.001^1^1^3050713^^"
^DD(810.53,.01,21,1,0)="This is a pointer to the patient file (#2)."
^DD(810.53,.01,"DT")="3050713"
^DD(810.53,.02,0)="PCMM INSTITUTION^P4'^DIC(4,^0;2^Q"
^DD(810.53,.02,21,0)="^.001^3^3^3050826^^^"
^DD(810.53,.02,21,1,0)="This is a pointer to the Institution file (#4) and stores the PCMM"
^DD(810.53,.02,21,2,0)="Institution for the patient."
^DD(810.53,.02,21,3,0)=""
^DD(810.53,.02,"DT")="3050826"
^DD(810.53,.03,0)="PCMM INSTITUTION NAME^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(810.53,.03,3)="Answer must be 3-30 characters in length."
^DD(810.53,.03,21,0)="^.001^3^3^3051018^^"
^DD(810.53,.03,21,1,0)="This is the name, .01 field of file #4, of the patient's PCMM Institution."
^DD(810.53,.03,21,2,0)=""
^DD(810.53,.03,21,3,0)=""
^DD(810.53,.03,"DT")="3050826"
^DD(810.53,.04,0)="DECEASED^S^0:NO;1:YES;^0;4^Q"
^DD(810.53,.04,21,0)="^^4^4^3070205^"
^DD(810.53,.04,21,1,0)="If the patient list includes deceased patients this field is used to"
^DD(810.53,.04,21,2,0)="record whether or not the patient was deceased when the list was"
^DD(810.53,.04,21,3,0)="built."
^DD(810.53,.04,21,4,0)=""
^DD(810.53,.04,"DT")="3070205"
^DD(810.53,.05,0)="TEST PATIENT^S^0:NO;1:YES;^0;5^Q"
^DD(810.53,.05,21,0)="^^4^4^3070205^"
^DD(810.53,.05,21,1,0)="If test patients are included when the patient list is built this"
^DD(810.53,.05,21,2,0)="field is used to record whether or not the patient is a test"
^DD(810.53,.05,21,3,0)="patient."
^DD(810.53,.05,21,4,0)=""
^DD(810.53,.05,"DT")="3070205"
^DD(810.53,1,0)="DATA^810.531A^^DATA;0"
^DD(810.53,1,21,0)="^^4^4^3050713^"
^DD(810.53,1,21,1,0)="This multiple contains the patient's data. The data that is stored"
^DD(810.53,1,21,2,0)="is determined by the Finding Rules in the rule set whose operation"
^DD(810.53,1,21,3,0)="is Insert."
^DD(810.53,1,21,4,0)=""
^DD(810.53,2,0)="DUE REMINDER LIST^810.532P^^REM;0"
^DD(810.53,2,21,0)="^^5^5^3050721^"
^DD(810.53,2,21,1,0)="If there is data in this multiple then the patient list was created"
^DD(810.53,2,21,2,0)="from a Reminders Due report. This multiple stores the list of"
^DD(810.53,2,21,3,0)="reminders that were due for the patient, the reminder evaluation"
^DD(810.53,2,21,4,0)="status, the due date, and the last done date."
^DD(810.53,2,21,5,0)=""
^DD(810.53,"B","DATA",1)=""
^DD(810.53,"B","DECEASED",.04)=""
^DD(810.53,"B","DUE REMINDER LIST",2)=""
^DD(810.53,"B","PATIENTS",.01)=""
^DD(810.53,"B","PCMM INSTITUTION",.02)=""
^DD(810.53,"B","PCMM INSTITUTION NAME",.03)=""
^DD(810.53,"B","TEST PATIENT",.05)=""
^DD(810.53,"GL",0,1,.01)=""
^DD(810.53,"GL",0,2,.02)=""
^DD(810.53,"GL",0,3,.03)=""
^DD(810.53,"GL",0,4,.04)=""
^DD(810.53,"GL",0,5,.05)=""
^DD(810.53,"GL","DATA",0,1)=""
^DD(810.53,"GL","REM",0,2)=""
^DD(810.53,"IX",.01)=""
^DD(810.53,"SB",810.531,1)=""
^DD(810.53,"SB",810.532,2)=""
^DD(810.531,0)="DATA SUB-FIELD^^.02^2"
^DD(810.531,0,"DT")="3050713"
^DD(810.531,0,"NM","DATA")=""
^DD(810.531,0,"UP")="810.53"
^DD(810.531,.01,0)="DATA TYPE^F^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(810.531,.01,1,0)="^.1^^0"
^DD(810.531,.01,3)="Answer must be 1-64 characters in length."
^DD(810.531,.01,21,0)="^^3^3^3050713^"
^DD(810.531,.01,21,1,0)="This is the name of the data. The data can be selected by this name"
^DD(810.531,.01,21,2,0)="in the demographic report."
^DD(810.531,.01,21,3,0)=""
^DD(810.531,.01,"DT")="3050713"
^DD(810.531,.02,0)="VALUE^F^^0;2^K:$L(X)>64!($L(X)<1) X"
^DD(810.531,.02,3)="Answer must be 1-64 characters in length."
^DD(810.531,.02,21,0)="^^1^1^3050713^"
^DD(810.531,.02,21,1,0)="This is the value of the data."
^DD(810.531,.02,"DT")="3050713"
^DD(810.531,"B","DATA TYPE",.01)=""
^DD(810.531,"B","VALUE",.02)=""
^DD(810.531,"GL",0,1,.01)=""
^DD(810.531,"GL",0,2,.02)=""
^DD(810.532,0)="DUE REMINDER LIST SUB-FIELD^^3^4"
^DD(810.532,0,"DT")="3050721"
^DD(810.532,0,"IX","B",810.532,.01)=""
^DD(810.532,0,"NM","DUE REMINDER LIST")=""
^DD(810.532,0,"UP")="810.53"
^DD(810.532,.01,0)="REMINDER^MP811.9'^PXD(811.9,^0;1^Q"
^DD(810.532,.01,1,0)="^.1"
^DD(810.532,.01,1,1,0)="810.532^B"
^DD(810.532,.01,1,1,1)="S ^PXRMXP(810.5,DA(2),30,DA(1),""REM"",""B"",$E(X,1,30),DA)="""""
^DD(810.532,.01,1,1,2)="K ^PXRMXP(810.5,DA(2),30,DA(1),""REM"",""B"",$E(X,1,30),DA)"
^DD(810.532,.01,21,0)="^.001^1^1^3050721^^^"
^DD(810.532,.01,21,1,0)=""
^DD(810.532,.01,"DT")="3050721"
^DD(810.532,1,0)="REMINDER STATUS^F^^0;2^K:$L(X)>10!($L(X)<3) X"
^DD(810.532,1,3)="Answer must be 3-10 characters in length."
^DD(810.532,1,"DT")="3050721"
^DD(810.532,2,0)="DUE DATE^F^^0;3^K:$L(X)>16!($L(X)<7) X"
^DD(810.532,2,3)="Answer must be 7-16 characters in length."
^DD(810.532,2,"DT")="3050721"
^DD(810.532,3,0)="LAST DONE DATE^F^^0;4^K:$L(X)>16!($L(X)<7) X"
^DD(810.532,3,3)="Answer must be 7-16 characters in length."
^DD(810.532,3,"DT")="3050721"
^DD(810.532,"B","DUE DATE",2)=""
^DD(810.532,"B","LAST DONE DATE",3)=""
^DD(810.532,"B","REMINDER",.01)=""
^DD(810.532,"B","REMINDER STATUS",1)=""
^DD(810.532,"GL",0,1,.01)=""
^DD(810.532,"GL",0,2,1)=""
^DD(810.532,"GL",0,3,2)=""
^DD(810.532,"GL",0,4,3)=""
^DD(810.532,"IX",.01)=""
^DD(810.535,0)="DATA TYPE LIST SUB-FIELD^^.01^1"
^DD(810.535,0,"DT")="3050713"
^DD(810.535,0,"NM","DATA TYPE LIST")=""
^DD(810.535,0,"UP")="810.5"
^DD(810.535,.01,0)="DATA TYPE^F^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(810.535,.01,1,0)="^.1^^0"
^DD(810.535,.01,3)="Answer must be 1-64 characters in length."
^DD(810.535,.01,21,0)="^^1^1^3050713^"
^DD(810.535,.01,21,1,0)="This is the data type."
^DD(810.535,.01,"DT")="3050713"
^DD(810.535,"B","DATA TYPE",.01)=""
^DD(810.535,"GL",0,1,.01)=""
^DD(810.54,0)="USERS SUB-FIELD^^1^2"
^DD(810.54,0,"DT")="3030724"
^DD(810.54,0,"IX","B",810.54,.01)=""
^DD(810.54,0,"NM","USERS")=""
^DD(810.54,0,"UP")="810.5"
^DD(810.54,.01,0)="USERS^MP200'^VA(200,^0;1^Q"
^DD(810.54,.01,1,0)="^.1"
^DD(810.54,.01,1,1,0)="810.54^B"
^DD(810.54,.01,1,1,1)="S ^PXRMXP(810.5,DA(1),40,""B"",$E(X,1,30),DA)="""""
^DD(810.54,.01,1,1,2)="K ^PXRMXP(810.5,DA(1),40,""B"",$E(X,1,30),DA)"
^DD(810.54,.01,21,0)="^^2^2^3040823^^"
^DD(810.54,.01,21,1,0)="This is a pointer to file #200. The DUZes of users who have access to a secure "
^DD(810.54,.01,21,2,0)="patient list will be stored here."
^DD(810.54,.01,"DT")="3040823"
^DD(810.54,1,0)="ACCESS^S^F:FULL ACCESS;V:VIEW ACCESS;^0;2^Q"
^DD(810.54,1,21,0)="^.001^7^7^3050621^^^^"
^DD(810.54,1,21,1,0)="Access defines the type of access that a user has to the patient list."
^DD(810.54,1,21,2,0)=""
^DD(810.54,1,21,3,0)="Full access grants the user complete access to the list. The user will have "
^DD(810.54,1,21,4,0)="the same rights as the Creator."
^DD(810.54,1,21,5,0)=""
^DD(810.54,1,21,6,0)="View access will allow the user to view the list and run reports against "
^DD(810.54,1,21,7,0)="the list, but they will not be able to modify the list."
^DD(810.54,1,"DT")="3050621"
^DD(810.54,"B","ACCESS",1)=""
^DD(810.54,"B","USERS",.01)=""
^DD(810.54,"GL",0,1,.01)=""
^DD(810.54,"GL",0,2,1)=""
^DD(810.54,"IX",.01)=""
^DD(810.545,0)="REMINDER LIST SUB-FIELD^^.01^1"
^DD(810.545,0,"DT")="3050721"
^DD(810.545,0,"IX","B",810.545,.01)=""
^DD(810.545,0,"NM","REMINDER LIST")=""
^DD(810.545,0,"UP")="810.5"
^DD(810.545,.01,0)="REMINDER^MP811.9'^PXD(811.9,^0;1^Q"
^DD(810.545,.01,1,0)="^.1"
^DD(810.545,.01,1,1,0)="810.545^B"
^DD(810.545,.01,1,1,1)="S ^PXRMXP(810.5,DA(1),45,""B"",$E(X,1,30),DA)="""""
^DD(810.545,.01,1,1,2)="K ^PXRMXP(810.5,DA(1),45,""B"",$E(X,1,30),DA)"
^DD(810.545,.01,"DT")="3050721"
^DD(810.545,"B","REMINDER",.01)=""
^DD(810.545,"GL",0,1,.01)=""
^DD(810.545,"IX",.01)=""
^DD(810.7,0)="FIELD^^110^5"
^DD(810.7,0,"DDA")="N"
^DD(810.7,0,"DT")="3021011"
^DD(810.7,0,"IX","B",810.7,.01)=""
^DD(810.7,0,"NM","REMINDER EXTRACT COUNTING RULE")=""
^DD(810.7,0,"PT",810.22,2)=""
^DD(810.7,0,"VR")="2.0"
^DD(810.7,0,"VRPK")="PXRM"
^DD(810.7,.01,0)="NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,810.7)) X"
^DD(810.7,.01,1,0)="^.1"
^DD(810.7,.01,1,1,0)="810.7^B"
^DD(810.7,.01,1,1,1)="S ^PXRM(810.7,""B"",$E(X,1,30),DA)="""""
^DD(810.7,.01,1,1,2)="K ^PXRM(810.7,""B"",$E(X,1,30),DA)"
^DD(810.7,.01,3)="Answer must be 3-64 characters in length"
^DD(810.7,.01,21,0)="^^3^3^3060504^^^^"
^DD(810.7,.01,21,1,0)="This is the name of the Counting Rule. Nationally distributed extract counting "
^DD(810.7,.01,21,2,0)="rules are prefixed 'VA-'."
^DD(810.7,.01,21,3,0)=""
^DD(810.7,.01,"DT")="3060504"
^DD(810.7,1,0)="DESCRIPTION^810.71^^1;0"
^DD(810.7,1,21,0)="^^3^3^3060504^^^"
^DD(810.7,1,21,1,0)="Description is used to enter a text description of the counting groups defined "
^DD(810.7,1,21,2,0)="in the counting rule."
^DD(810.7,1,21,3,0)=""
^DD(810.7,10,0)="EXTRACT COUNTING GROUPS^810.701I^^10;0"
^DD(810.7,10,21,0)="^.001^2^2^3070330^^^"
^DD(810.7,10,21,1,0)="This field contains the associated Extract Counting Group."
^DD(810.7,10,21,2,0)=""
^DD(810.7,10,"DT")="3060504"
^DD(810.7,100,0)="CLASS^S^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q"
^DD(810.7,100,3)="Enter the class."
^DD(810.7,100,21,0)="^^3^3^3060504^^^"
^DD(810.7,100,21,1,0)="This is the class of the Extract Counting Rule. National Extract Counting Rules "
^DD(810.7,100,21,2,0)="are not editable."
^DD(810.7,100,21,3,0)=""
^DD(810.7,100,"DT")="3060504"
^DD(810.7,110,0)="EDIT HISTORY^810.72D^^110;0"
^DD(810.7,110,21,0)="^^3^3^3060504^^"
^DD(810.7,110,21,1,0)="This multiple is used to record a history of changes made to the Extract "
^DD(810.7,110,21,2,0)="Counting Rule."
^DD(810.7,110,21,3,0)=""
^DD(810.7,"B","CLASS",100)=""
^DD(810.7,"B","DESCRIPTION",1)=""
^DD(810.7,"B","EDIT HISTORY",110)=""
^DD(810.7,"B","EXTRACT COUNTING GROUPS",10)=""
^DD(810.7,"B","NAME",.01)=""
^DD(810.7,"GL",0,1,.01)=""
^DD(810.7,"GL",1,0,1)=""
^DD(810.7,"GL",10,0,10)=""
^DD(810.7,"GL",100,1,100)=""
^DD(810.7,"GL",110,0,110)=""
^DD(810.7,"IX",.01)=""
^DD(810.7,"RQ",.01)=""
^DD(810.7,"SB",810.701,10)=""
^DD(810.7,"SB",810.71,1)=""
^DD(810.7,"SB",810.72,110)=""
^DD(810.701,0)="EXTRACT COUNTING GROUPS SUB-FIELD^^2^3"
^DD(810.701,0,"DT")="3021008"
^DD(810.701,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PXRM(810.8,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(810.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.701,0,"IX","B",810.701,.01)=""
^DD(810.701,0,"NM","EXTRACT COUNTING GROUPS")=""
^DD(810.701,0,"UP")="810.7"
^DD(810.701,.01,0)="SEQUENCE NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.701,.01,1,0)="^.1^^0"
^DD(810.701,.01,1,1,0)="810.701^B"
^DD(810.701,.01,1,1,1)="S ^PXRM(810.7,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(810.701,.01,1,1,2)="K ^PXRM(810.7,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(810.701,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(810.701,.01,21,0)="^.001^2^2^3070330^^^^"
^DD(810.701,.01,21,1,0)="This is the numeric sequence of an individual counting group."
^DD(810.701,.01,21,2,0)=""
^DD(810.701,.01,"DT")="3070702"
^DD(810.701,1,0)="COUNTING GROUP^P810.8'^PXRM(810.8,^0;2^Q"
^DD(810.701,1,21,0)="^^3^3^3060504^^"
^DD(810.701,1,21,1,0)="This is a pointer to the Reminder Counting Group File. Each group defines "
^DD(810.701,1,21,2,0)="reminder terms and type of count to be totaled by the extract process."
^DD(810.701,1,21,3,0)=""
^DD(810.701,1,"DT")="3060504"
^DD(810.701,2,0)="REMINDER STATUS^S^T:TOTAL PATIENTS;A:APPLICABLE PATIENTS;D:DUE PATIENTS;N:NOT DUE PATIENTS;^0;3^Q"
^DD(810.701,2,21,0)="^^5^5^3060504^^^"
^DD(810.701,2,21,1,0)="This field determines which group of patients the counting group is accumulated"
^DD(810.701,2,21,2,0)="for. The default value for this field is TOTAL PATIENTS (i.e. all  patients in"
^DD(810.701,2,21,3,0)="the denominator list are used to accumulate counts."
^DD(810.701,2,21,4,0)=""
^DD(810.701,2,21,5,0)=""
^DD(810.701,2,"DT")="3060504"
^DD(810.701,"B","COUNTING GROUP",1)=""
^DD(810.701,"B","REMINDER STATUS",2)=""
^DD(810.701,"B","SEQUENCE NUMBER",.01)=""
^DD(810.701,"GL",0,1,.01)=""
^DD(810.701,"GL",0,2,1)=""
^DD(810.701,"GL",0,3,2)=""
^DD(810.701,"IX",.01)=""
^DD(810.71,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(810.71,0,"DT")="3020517"
^DD(810.71,0,"NM","DESCRIPTION")=""
^DD(810.71,0,"UP")="810.7"
^DD(810.71,.01,0)="DESCRIPTION^W^^0;1"
^DD(810.71,.01,21,0)="^^2^2^3040819^^"
^DD(810.71,.01,21,1,0)="Description is used to enter a text description of the finding groups defined "
^DD(810.71,.01,21,2,0)="in the finding rule."
^DD(810.71,.01,"DT")="3040819"
^DD(810.71,"B","DESCRIPTION",.01)=""
^DD(810.71,"GL",0,1,.01)=""
^DD(810.72,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(810.72,0,"DT")="3021011"
^DD(810.72,0,"IX","B",810.72,.01)=""
^DD(810.72,0,"NM","EDIT HISTORY")=""
^DD(810.72,0,"UP")="810.7"
^DD(810.72,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(810.72,.01,1,0)="^.1"
^DD(810.72,.01,1,1,0)="810.72^B"
^DD(810.72,.01,1,1,1)="S ^PXRM(810.7,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(810.72,.01,1,1,2)="K ^PXRM(810.7,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(810.72,.01,3)="(No range limit on date)"
^DD(810.72,.01,21,0)="^^2^2^3040819^^"
^DD(810.72,.01,21,1,0)="This is the date and time when the editing was done. This field is set "
^DD(810.72,.01,21,2,0)="automatically and should not be changed by the user."
^DD(810.72,.01,"DT")="3040819"
^DD(810.72,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(810.72,1,21,0)="^^2^2^3040819^^^"
^DD(810.72,1,21,1,0)="This is the person who did the editing. This field is set automatically and"
^DD(810.72,1,21,2,0)="should not be changed by the user."
^DD(810.72,1,"DT")="3040819"
^DD(810.72,2,0)="EDIT COMMENTS^810.722^^1;0"
^DD(810.72,2,21,0)="^^2^2^3040819^"
^DD(810.72,2,21,1,0)="This word-processing field can be used to record the changes made during the "
^DD(810.72,2,21,2,0)="editing session."
^DD(810.72,"B","EDIT BY",1)=""
^DD(810.72,"B","EDIT COMMENTS",2)=""
^DD(810.72,"B","EDIT DATE",.01)=""
^DD(810.72,"GL",0,1,.01)=""
^DD(810.72,"GL",0,2,1)=""
^DD(810.72,"GL",1,0,2)=""
^DD(810.72,"IX",.01)=""
^DD(810.72,"SB",810.722,2)=""
^DD(810.722,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(810.722,0,"DT")="3021011"
^DD(810.722,0,"NM","EDIT COMMENTS")=""
^DD(810.722,0,"UP")="810.72"
^DD(810.722,.01,0)="EDIT COMMENTS^W^^0;1"
^DD(810.722,.01,"DT")="3040819"
^DD(810.722,"B","EDIT COMMENTS",.01)=""
^DD(810.722,"GL",0,1,.01)=""
^DD(810.8,0)="FIELD^^110^5"
^DD(810.8,0,"DDA")="N"
^DD(810.8,0,"DT")="3070330"
^DD(810.8,0,"NM","REMINDER COUNTING GROUP")=""
^DD(810.8,0,"PT",810.701,1)=""
^DD(810.8,0,"VR")="2.0"
^DD(810.8,0,"VRPK")="PXRM"
^DD(810.8,.01,0)="NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,810.8)) X"
^DD(810.8,.01,1,0)="^.1^^0"
^DD(810.8,.01,3)="Answer must be 3-64 characters in length"
^DD(810.8,.01,21,0)="^^3^3^3060504^^"
^DD(810.8,.01,21,1,0)="This file contains groups of findings that will be used to accumulate finding"
^DD(810.8,.01,21,2,0)="totals during the reminder extract process.  "
^DD(810.8,.01,21,3,0)=""
^DD(810.8,.01,"DT")="3060504"
^DD(810.8,2,0)="COUNT TYPE^S^MRF:MOST RECENT FINDING COUNT;MRFP:MOST RECENT FINDING PATIENT COUNT;UR:UTILIZATION IN REPORTING PERIOD FINDING COUNT;^0;3^Q"
^DD(810.8,2,21,0)="^.001^18^18^3071012^^^^"
^DD(810.8,2,21,1,0)="Count is used to specify the different ways the extract can count"
^DD(810.8,2,21,2,0)="findings:"
^DD(810.8,2,21,3,0)=""
^DD(810.8,2,21,4,0)="MRF (Most Recent Finding count) counts the most recent occurrence of"
^DD(810.8,2,21,5,0)="each  term in the group. This is also the default if no extract"
^DD(810.8,2,21,6,0)="finding is  selected and all reminder terms are counted."
^DD(810.8,2,21,7,0)=""
^DD(810.8,2,21,8,0)="MRFP (Most Recent Finding for Patient) counts only the most recent"
^DD(810.8,2,21,9,0)="finding across the group. One count is accumulated for the one"
^DD(810.8,2,21,10,0)="finding in the group of findings that is the most recent finding for"
^DD(810.8,2,21,11,0)="each patient. "
^DD(810.8,2,21,12,0)=""
^DD(810.8,2,21,13,0)="UR (Utilization in Reporting period) counts all occurrences of"
^DD(810.8,2,21,14,0)="findings from  the group that were documented during the reporting"
^DD(810.8,2,21,15,0)="period."
^DD(810.8,2,21,16,0)=""
^DD(810.8,2,21,17,0)=""
^DD(810.8,2,21,18,0)=""
^DD(810.8,2,"DT")="3060504"
^DD(810.8,10,0)="GROUP FINDINGS^810.801I^^10;0"
^DD(810.8,10,21,0)="^.001^2^2^3070330^^^^"
^DD(810.8,10,21,1,0)="This multiple is used to group Reminder Terms together."
^DD(810.8,10,21,2,0)=""
^DD(810.8,100,0)="CLASS^S^N:NATIONAL;V:VISN;L:LOCAL;^100;1^Q"
^DD(810.8,100,21,0)="^^2^2^3040820^^"
^DD(810.8,100,21,1,0)="This is the class of the finding groups. National finding group cannot be "
^DD(810.8,100,21,2,0)="edited."
^DD(810.8,100,"DT")="3040820"
^DD(810.8,110,0)="EDIT HISTORY^810.82D^^110;0"
^DD(810.8,110,"DT")="3021010"
^DD(810.8,"B","CLASS",100)=""
^DD(810.8,"B","COUNT TYPE",2)=""
^DD(810.8,"B","EDIT HISTORY",110)=""
^DD(810.8,"B","GROUP FINDINGS",10)=""
^DD(810.8,"B","NAME",.01)=""
^DD(810.8,"GL",0,1,.01)=""
^DD(810.8,"GL",0,3,2)=""
^DD(810.8,"GL",10,0,10)=""
^DD(810.8,"GL",100,1,100)=""
^DD(810.8,"GL",110,0,110)=""
^DD(810.8,"RQ",.01)=""
^DD(810.8,"SB",810.801,10)=""
^DD(810.8,"SB",810.82,110)=""
^DD(810.801,0)="GROUP FINDINGS SUB-FIELD^^1^2"
^DD(810.801,0,"DT")="3070330"
^DD(810.801,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PXRMD(811.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(811.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(810.801,0,"NM","GROUP FINDINGS")=""
^DD(810.801,0,"UP")="810.8"
^DD(810.801,.01,0)="SEQUENCE^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.801,.01,1,0)="^.1^^0"
^DD(810.801,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(810.801,.01,21,0)="^.001^2^2^3070330^^^"
^DD(810.801,.01,21,1,0)="The sequence number determines the order in which findings appear on the "
^DD(810.801,.01,21,2,0)="extract summary."
^DD(810.801,.01,"DT")="3070702"
^DD(810.801,1,0)="TERM^P811.5'^PXRMD(811.5,^0;2^Q"
^DD(810.801,1,3)="Enter reminder term name."
^DD(810.801,1,21,0)="^^8^8^3060504^^^"
^DD(810.801,1,21,1,0)="This is a pointer to the Reminder Term file. The reminder terms are used to"
^DD(810.801,1,21,2,0)="identify patient findings that will be used to accumulate counts.  If the MRF"
^DD(810.801,1,21,3,0)="or MRFP Count Type is defined with the Counting Group, then the findings"
^DD(810.801,1,21,4,0)="(reminder terms) from the reminder evaluation are used to accumulate counts. "
^DD(810.801,1,21,5,0)="If the UR Count Type is defined with the Counting Group, then the reminder"
^DD(810.801,1,21,6,0)="terms are evaluated individually to find all findings documented during the"
^DD(810.801,1,21,7,0)="reporting period."
^DD(810.801,1,21,8,0)=""
^DD(810.801,1,"DT")="3060504"
^DD(810.801,"B","SEQUENCE",.01)=""
^DD(810.801,"B","TERM",1)=""
^DD(810.801,"GL",0,1,.01)=""
^DD(810.801,"GL",0,2,1)=""
^DD(810.82,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(810.82,0,"DT")="3021010"
^DD(810.82,0,"IX","B",810.82,.01)=""
^DD(810.82,0,"NM","EDIT HISTORY")=""
^DD(810.82,0,"UP")="810.8"
^DD(810.82,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(810.82,.01,1,0)="^.1"
^DD(810.82,.01,1,1,0)="810.82^B"
^DD(810.82,.01,1,1,1)="S ^PXRM(810.8,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(810.82,.01,1,1,2)="K ^PXRM(810.8,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(810.82,.01,3)="(No range limit on date)"
^DD(810.82,.01,21,0)="^^2^2^3040820^^"
^DD(810.82,.01,21,1,0)="This is the date and time when the editing was done. This field is set "
^DD(810.82,.01,21,2,0)="automatically and should not be changed by the user."
^DD(810.82,.01,"DT")="3040820"
^DD(810.82,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(810.82,1,21,0)="^^2^2^3021010^"
^DD(810.82,1,21,1,0)="This is the person who did the editing. This field is set automatically "
^DD(810.82,1,21,2,0)="and should not be changed by the user."
^DD(810.82,1,"DT")="3021010"
^DD(810.82,2,0)="EDIT COMMENTS^810.822^^1;0"
^DD(810.82,2,21,0)="^^2^2^3040820^"
^DD(810.82,2,21,1,0)="This word-processing field can be used to record the changes made during the "
^DD(810.82,2,21,2,0)="editing session."
^DD(810.82,"B","EDIT BY",1)=""
^DD(810.82,"B","EDIT COMMENTS",2)=""
^DD(810.82,"B","EDIT DATE",.01)=""
^DD(810.82,"GL",0,1,.01)=""
^DD(810.82,"GL",0,2,1)=""
^DD(810.82,"GL",1,0,2)=""
^DD(810.82,"IX",.01)=""
^DD(810.82,"SB",810.822,2)=""
^DD(810.822,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(810.822,0,"DT")="3021010"
^DD(810.822,0,"NM","EDIT COMMENTS")=""
^DD(810.822,0,"UP")="810.82"
^DD(810.822,.01,0)="EDIT COMMENTS^W^^0;1"
^DD(810.822,.01,"DT")="3040820"
^DD(810.822,"B","EDIT COMMENTS",.01)=""
^DD(810.822,"GL",0,1,.01)=""
^DD(810.9,0)="FIELD^^110^8"
^DD(810.9,0,"DDA")="N"
^DD(810.9,0,"DT")="3050617"
^DD(810.9,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(810.9,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(810.9,0,"NM","REMINDER LOCATION LIST")=""
^DD(810.9,0,"PT",811.52,.01)=""
^DD(810.9,0,"PT",811.902,.01)=""
^DD(810.9,0,"VR")="2.0"
^DD(810.9,0,"VRPK")="PXRM"
^DD(810.9,.01,0)="NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,810.9)) X"
^DD(810.9,.01,1,0)="^.1^^0"
^DD(810.9,.01,3)="Enter the name of the Location List"
^DD(810.9,.01,21,0)="^.001^1^1^3050120^^^^"
^DD(810.9,.01,21,1,0)="This is the NAME of the Location List; it must be unique."
^DD(810.9,.01,23,0)="^.001^1^1^3050120^^^^"
^DD(810.9,.01,23,1,0)="NAME is a key for this file."
^DD(810.9,.01,"DT")="3021107"
^DD(810.9,1,0)="DESCRIPTION^810.91^^1;0"
^DD(810.9,1,21,0)="^.001^4^4^3050120^^^^"
^DD(810.9,1,21,1,0)="This word processing field is used for describing the LOCATION LIST."
^DD(810.9,1,21,2,0)="Information such as the purpose of the LOCATION LIST can be recorded"
^DD(810.9,1,21,3,0)="here. The DESCRIPTION will be displayed when a LOCATION LIST inquiry is"
^DD(810.9,1,21,4,0)="done."
^DD(810.9,40.7,0)="CLINIC STOP LIST^810.9001P^^40.7;0"
^DD(810.9,40.7,21,0)="^.001^2^2^3050120^^^^"
^DD(810.9,40.7,21,1,0)="This is the list of clinic stop codes that are included in the Location"
^DD(810.9,40.7,21,2,0)="List."
^DD(810.9,40.7,"DT")="3021105"
^DD(810.9,44,0)="HOSPITAL LOCATION LIST^810.944P^^44;0"
^DD(810.9,44,21,0)="^.001^2^2^3050114^^^"
^DD(810.9,44,21,1,0)="This is the list of hospital locations that are included in the"
^DD(810.9,44,21,2,0)="Location List."
^DD(810.9,44,"DT")="3021105"
^DD(810.9,100,0)="CLASS^RSX^L:LOCAL;N:NATIONAL;V:VISN;^100;1^K:'$$VCLASS^PXRMINTR(X) X"
^DD(810.9,100,3)="Enter the CLASS."
^DD(810.9,100,21,0)="^.001^4^4^3050617^^^^"
^DD(810.9,100,21,1,0)="This is the CLASS of the location list. Possible classes are ""N"" for"
^DD(810.9,100,21,2,0)="national, ""V"" for VISN, and ""L"" for local. National location lists cannot"
^DD(810.9,100,21,3,0)="be edited by sites."
^DD(810.9,100,21,4,0)=""
^DD(810.9,100,"DT")="3050616"
^DD(810.9,101,0)="SPONSOR^P811.6'^PXRMD(811.6,^100;2^Q"
^DD(810.9,101,3)="Enter the SPONSOR."
^DD(810.9,101,21,0)="^^1^1^3050616^"
^DD(810.9,101,21,1,0)="This is the organization or group that sponsors this location list."
^DD(810.9,101,"DT")="3050616"
^DD(810.9,102,0)="REVIEW DATE^D^^100;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(810.9,102,3)="Enter the REVIEW DATE."
^DD(810.9,102,21,0)="^.001^4^4^3050617^^^"
^DD(810.9,102,21,1,0)="REVIEW DATE is used to determine when the location list should be reviewed"
^DD(810.9,102,21,2,0)="to verify that it is current with the latest standards and guidelines."
^DD(810.9,102,21,3,0)="You can find all location lists whose review date has passed using the"
^DD(810.9,102,21,4,0)="Clinical Reminders Review Date Report."
^DD(810.9,102,"DT")="3050617"
^DD(810.9,110,0)="EDIT HISTORY^810.9002D^^110;0"
^DD(810.9,110,21,0)="^.001^2^2^3050617^^^^"
^DD(810.9,110,21,1,0)="This multiple is used to record a history of changes made to the"
^DD(810.9,110,21,2,0)="location list."
^DD(810.9,"B","CLASS",100)=""
^DD(810.9,"B","CLINIC STOP LIST",40.7)=""
^DD(810.9,"B","DESCRIPTION",1)=""
^DD(810.9,"B","EDIT HISTORY",110)=""
^DD(810.9,"B","HOSPITAL LOCATION LIST",44)=""
^DD(810.9,"B","NAME",.01)=""
^DD(810.9,"B","REVIEW DATE",102)=""
^DD(810.9,"B","SPONSOR",101)=""
^DD(810.9,"GL",0,1,.01)=""
^DD(810.9,"GL",1,0,1)=""
^DD(810.9,"GL",40.7,0,40.7)=""
^DD(810.9,"GL",44,0,44)=""
^DD(810.9,"GL",100,1,100)=""
^DD(810.9,"GL",100,2,101)=""
^DD(810.9,"GL",100,3,102)=""
^DD(810.9,"GL",110,0,110)=""
^DD(810.9,"RQ",.01)=""
^DD(810.9,"RQ",100)=""
^DD(810.9,"SB",810.9001,40.7)=""
^DD(810.9,"SB",810.9002,110)=""
^DD(810.9,"SB",810.91,1)=""
^DD(810.9,"SB",810.944,44)=""
^DD(810.9001,0)="CLINIC STOP LIST SUB-FIELD^^1^3"
^DD(810.9001,0,"DT")="3041029"
^DD(810.9001,0,"IX","B",810.9001,.01)=""
^DD(810.9001,0,"NM","CLINIC STOP LIST")=""
^DD(810.9001,0,"UP")="810.9"
^DD(810.9001,.01,0)="CLINIC STOP^MP40.7'^DIC(40.7,^0;1^Q"
^DD(810.9001,.01,1,0)="^.1"
^DD(810.9001,.01,1,1,0)="810.9001^B"
^DD(810.9001,.01,1,1,1)="S ^PXRMD(810.9,DA(1),40.7,""B"",$E(X,1,30),DA)="""""
^DD(810.9001,.01,1,1,2)="K ^PXRMD(810.9,DA(1),40.7,""B"",$E(X,1,30),DA)"
^DD(810.9001,.01,3)="Enter a CLINIC STOP CODE"
^DD(810.9001,.01,"DT")="3031114"
^DD(810.9001,.02,0)="AMIS REPORTING STOP CODE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(810.9001,.02,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(810.9001,.02,21,0)="^.001^2^2^3050120^^^"
^DD(810.9001,.02,21,1,0)="This is the AMIS REPORTING STOP CODE; it is set automatically when the"
^DD(810.9001,.02,21,2,0)="location is selected."
^DD(810.9001,.02,"DT")="3030530"
^DD(810.9001,1,0)="CREDIT STOPS TO EXCLUDE^810.90011P^^1;0"
^DD(810.9001,1,21,0)="^^5^5^3050114^"
^DD(810.9001,1,21,1,0)="A Clinic Stop resolves to a list of Hospital Locations. Associated with"
^DD(810.9001,1,21,2,0)="each Hospital Location entry in file #44 is a Credit Stop (the 18th"
^DD(810.9001,1,21,3,0)="piece of the 0 node). There may be certain Credit Stops that you want"
^DD(810.9001,1,21,4,0)="to exclude from the list of locations in the Clinic Stop. This multiple"
^DD(810.9001,1,21,5,0)="contains a list of any Credit Stops that should be excluded."
^DD(810.9001,"B","AMIS REPORTING STOP CODE",.02)=""
^DD(810.9001,"B","CLINIC STOP",.01)=""
^DD(810.9001,"B","CREDIT STOPS TO EXCLUDE",1)=""
^DD(810.9001,"GL",0,1,.01)=""
^DD(810.9001,"GL",0,2,.02)=""
^DD(810.9001,"GL",1,0,1)=""
^DD(810.9001,"IX",.01)=""
^DD(810.9001,"SB",810.90011,1)=""
^DD(810.90011,0)="CREDIT STOPS TO EXCLUDE SUB-FIELD^^.01^1"
^DD(810.90011,0,"DT")="3041029"
^DD(810.90011,0,"IX","B",810.90011,.01)=""
^DD(810.90011,0,"NM","CREDIT STOPS TO EXCLUDE")=""
^DD(810.90011,0,"UP")="810.9001"
^DD(810.90011,.01,0)="CREDIT STOP TO EXCLUDE^MP40.7'^DIC(40.7,^0;1^Q"
^DD(810.90011,.01,1,0)="^.1"
^DD(810.90011,.01,1,1,0)="810.90011^B"
^DD(810.90011,.01,1,1,1)="S ^PXRMD(810.9,DA(2),40.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(810.90011,.01,1,1,2)="K ^PXRMD(810.9,DA(2),40.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(810.90011,.01,3)="Enter a credit stop to exclude."
^DD(810.90011,.01,21,0)="^.001^5^5^3041101^^^^"
^DD(810.90011,.01,21,1,0)="Clinic Stops are a way to group a list of Hospital Locations."
^DD(810.90011,.01,21,2,0)="Associated with each Hospital Location is a Credit Stop Code. If there"
^DD(810.90011,.01,21,3,0)="are Hospital Locations with certain Credit Stops that you want excluded"
^DD(810.90011,.01,21,4,0)="from the list of Hospital Locations associated with this Clinic Stop"
^DD(810.90011,.01,21,5,0)="entry, they are entered in this list."
^DD(810.90011,.01,"DT")="3041101"
^DD(810.90011,"B","CREDIT STOP TO EXCLUDE",.01)=""
^DD(810.90011,"GL",0,1,.01)=""
^DD(810.90011,"IX",.01)=""
^DD(810.9002,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(810.9002,0,"DT")="3050616"
^DD(810.9002,0,"IX","B",810.9002,.01)=""
^DD(810.9002,0,"NM","EDIT HISTORY")=""
^DD(810.9002,0,"UP")="810.9"
^DD(810.9002,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(810.9002,.01,1,0)="^.1"
^DD(810.9002,.01,1,1,0)="810.9002^B"
^DD(810.9002,.01,1,1,1)="S ^PXRMD(810.9,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(810.9002,.01,1,1,2)="K ^PXRMD(810.9,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(810.9002,.01,3)="Do not edit this field."
^DD(810.9002,.01,21,0)="^.001^3^3^3050617^^^"
^DD(810.9002,.01,21,1,0)="This is the date and time when the editing was done. This field is set"
^DD(810.9002,.01,21,2,0)="automatically and should not be changed by the user."
^DD(810.9002,.01,21,3,0)=""
^DD(810.9002,.01,"DT")="3050616"
^DD(810.9002,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(810.9002,1,3)="Do not edit this field."
^DD(810.9002,1,21,0)="^.001^3^3^3050617^^"
^DD(810.9002,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(810.9002,1,21,2,0)="and should not be changed by the user."
^DD(810.9002,1,21,3,0)=""
^DD(810.9002,1,"DT")="3050616"
^DD(810.9002,2,0)="EDIT COMMENTS^810.90022^^1;0"
^DD(810.9002,2,21,0)="^.001^3^3^3050617^^^"
^DD(810.9002,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(810.9002,2,21,2,0)="during the editing session."
^DD(810.9002,2,21,3,0)=""
^DD(810.9002,"B","EDIT BY",1)=""
^DD(810.9002,"B","EDIT COMMENTS",2)=""
^DD(810.9002,"B","EDIT DATE",.01)=""
^DD(810.9002,"GL",0,1,.01)=""
^DD(810.9002,"GL",0,2,1)=""
^DD(810.9002,"GL",1,0,2)=""
^DD(810.9002,"IX",.01)=""
^DD(810.9002,"SB",810.90022,2)=""
^DD(810.90022,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(810.90022,0,"DT")="3050616"
^DD(810.90022,0,"NM","EDIT COMMENTS")=""
^DD(810.90022,0,"UP")="810.9002"
^DD(810.90022,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(810.90022,.01,3)="Enter your edit comments."
^DD(810.90022,.01,"DT")="3050616"
^DD(810.90022,"B","EDIT COMMENTS",.01)=""
^DD(810.90022,"GL",0,1,.01)=""
^DD(810.91,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(810.91,0,"DT")="3040824"
^DD(810.91,0,"NM","DESCRIPTION")=""
^DD(810.91,0,"UP")="810.9"
^DD(810.91,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(810.91,.01,"DT")="3040824"
^DD(810.91,"B","DESCRIPTION",.01)=""
^DD(810.91,"GL",0,1,.01)=""
^DD(810.944,0)="HOSPITAL LOCATION LIST SUB-FIELD^^.01^1"
^DD(810.944,0,"DT")="3021105"
^DD(810.944,0,"IX","B",810.944,.01)=""
^DD(810.944,0,"NM","HOSPITAL LOCATION LIST")=""
^DD(810.944,0,"UP")="810.9"
^DD(810.944,.01,0)="HOSPITAL LOCATION^MP44'^SC(^0;1^Q"
^DD(810.944,.01,1,0)="^.1"
^DD(810.944,.01,1,1,0)="810.944^B"
^DD(810.944,.01,1,1,1)="S ^PXRMD(810.9,DA(1),44,""B"",$E(X,1,30),DA)="""""
^DD(810.944,.01,1,1,2)="K ^PXRMD(810.9,DA(1),44,""B"",$E(X,1,30),DA)"
^DD(810.944,.01,3)="Enter a hospital location"
^DD(810.944,.01,"DT")="3021105"
^DD(810.944,"B","HOSPITAL LOCATION",.01)=""
^DD(810.944,"GL",0,1,.01)=""
^DD(810.944,"IX",.01)=""
^DD(811.1,0)="FIELD^^.05^5"
^DD(811.1,0,"DDA")="N"
^DD(811.1,0,"DT")="2950323"
^DD(811.1,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(811.1,0,"IX","AA",811.1,.01)=""
^DD(811.1,0,"IX","AA1",811.1,.03)=""
^DD(811.1,0,"IX","AA2",811.1,.05)=""
^DD(811.1,0,"IX","B",811.1,.01)=""
^DD(811.1,0,"NM","PCE CODE MAPPING")=""
^DD(811.1,.01,0)="FILE ENTRY^RV^^0;1^Q"
^DD(811.1,.01,1,0)="^.1"
^DD(811.1,.01,1,1,0)="811.1^B"
^DD(811.1,.01,1,1,1)="S ^PXD(811.1,""B"",$E(X,1,30),DA)="""""
^DD(811.1,.01,1,1,2)="K ^PXD(811.1,""B"",$E(X,1,30),DA)"
^DD(811.1,.01,1,2,0)="811.1^AA^MUMPS"
^DD(811.1,.01,1,2,1)="I $P(^PXD(811.1,DA,0),""^"",5)'="""" S ^PXD(811.1,""AA"",$P(X,"";""),$P(^PXD(811.1,DA,0),""^"",3),$P(^PXD(811.1,DA,0),""^"",5),DA)="""""
^DD(811.1,.01,1,2,2)="K ^PXD(811.1,""AA"",$P(X,"";""),$P(^PXD(811.1,DA,0),""^"",3),$P(^PXD(811.1,DA,0),""^"",5))"
^DD(811.1,.01,1,2,"%D",0)="^^1^1^2950816^"
^DD(811.1,.01,1,2,"%D",1,0)="PXD(""AA"",FIRST ; PIECE OF FILE ENTRY FIELD,FROM,ON/OFF FLAG,DA)"
^DD(811.1,.01,1,2,"DT")="2950221"
^DD(811.1,.01,3)="Enter the coding system and entry here (e.g. C.90732)"
^DD(811.1,.01,21,0)="^^6^6^2951121^^^^"
^DD(811.1,.01,21,1,0)="This field is a variable pointer which allows coded system entries to be"
^DD(811.1,.01,21,2,0)="mapped to an entry in PCE's supporting files.  For example, a CPT code"
^DD(811.1,.01,21,3,0)="for Pneumovax, 90732 would be the value entered here, and the Related"
^DD(811.1,.01,21,4,0)="Supporting entry field would be PNEUMO-VAC in the Immunization file."
^DD(811.1,.01,21,5,0)="DO NOT use any general code such as 'OTHER SKIN TESTS' or 'OTHER"
^DD(811.1,.01,21,6,0)="PROCEDURE'."
^DD(811.1,.01,"DT")="2950221"
^DD(811.1,.01,"V",0)="^.12P^4^3"
^DD(811.1,.01,"V",1,0)="81^CPT entry^1^C^n^n"
^DD(811.1,.01,"V",3,0)="9999999.14^IMMUNIZATIONS^3^I^^n"
^DD(811.1,.01,"V",4,0)="9999999.28^SKIN TEST^4^S^n^n"
^DD(811.1,.01,"V","B",81,1)=""
^DD(811.1,.01,"V","B",9999999.14,3)=""
^DD(811.1,.01,"V","B",9999999.28,4)=""
^DD(811.1,.01,"V","M","CPT entry",1)=""
^DD(811.1,.01,"V","M","IMMUNIZATIONS",3)=""
^DD(811.1,.01,"V","M","SKIN TEST",4)=""
^DD(811.1,.01,"V","O",1,1)=""
^DD(811.1,.01,"V","O",3,3)=""
^DD(811.1,.01,"V","O",4,4)=""
^DD(811.1,.01,"V","P","C",1)=""
^DD(811.1,.01,"V","P","I",3)=""
^DD(811.1,.01,"V","P","S",4)=""
^DD(811.1,.02,0)="RELATED SUPPORTING FILE ENTRY^V^^0;2^Q"
^DD(811.1,.02,21,0)="^^3^3^2951121^^^^"
^DD(811.1,.02,21,1,0)="A pointer to the second file encolved in this mapping."
^DD(811.1,.02,21,2,0)="DO NOT point this field to anything that is general in nature such"
^DD(811.1,.02,21,3,0)="as 'OTHER SKIN TESTS' or 'OTHER IMMUNIZATION'."
^DD(811.1,.02,"DT")="2950111"
^DD(811.1,.02,"V",0)="^.12P^5^3"
^DD(811.1,.02,"V",3,0)="9999999.14^IMMUNIZATION^1^I^n^n"
^DD(811.1,.02,"V",4,0)="9999999.28^SKIN TEST^2^S^n^n"
^DD(811.1,.02,"V",5,0)="81^CPT^6^C^^n"
^DD(811.1,.02,"V","B",81,5)=""
^DD(811.1,.02,"V","B",9999999.14,3)=""
^DD(811.1,.02,"V","B",9999999.28,4)=""
^DD(811.1,.02,"V","M","CPT",5)=""
^DD(811.1,.02,"V","M","IMMUNIZATION",3)=""
^DD(811.1,.02,"V","M","SKIN TEST",4)=""
^DD(811.1,.02,"V","O",1,3)=""
^DD(811.1,.02,"V","O",2,4)=""
^DD(811.1,.02,"V","O",6,5)=""
^DD(811.1,.02,"V","P","C",5)=""
^DD(811.1,.02,"V","P","I",3)=""
^DD(811.1,.02,"V","P","S",4)=""
^DD(811.1,.03,0)="FROM^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2) X"
^DD(811.1,.03,1,0)="^.1^^-1"
^DD(811.1,.03,1,1,0)="811.1^AA1^MUMPS"
^DD(811.1,.03,1,1,1)="I $P(^PXD(811.1,DA,0),""^"",5)'="""" S ^PXD(811.1,""AA"",$P($P(^PXD(811.1,DA,0),""^""),"";""),X,$P(^PXD(811.1,DA,0),""^"",5),DA)="""""
^DD(811.1,.03,1,1,2)="K ^PXD(811.1,""AA"",$P($P(^PXD(811.1,DA,0),""^""),"";""),X,$P(^PXD(811.1,DA,0),""^"",5),DA)"
^DD(811.1,.03,1,1,"DT")="2950221"
^DD(811.1,.03,3)="Answer must be 2-4 characters in length."
^DD(811.1,.03,21,0)="^^3^3^2951121^^^^"
^DD(811.1,.03,21,1,0)="The 2 or 3 letter mnemonic that stands for the file that the data came"
^DD(811.1,.03,21,2,0)="from or that is also being populated at this time."
^DD(811.1,.03,21,3,0)="IMM = V IMMUNIZATIONS, CPT=V CPT ,and SK=V SKIN TESTS"
^DD(811.1,.03,"DT")="2950323"
^DD(811.1,.04,0)="TO^RF^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2) X"
^DD(811.1,.04,1,0)="^.1^^0"
^DD(811.1,.04,3)="Answer must be 2-4 characters in length."
^DD(811.1,.04,21,0)="^^2^2^2951121^^^^"
^DD(811.1,.04,21,1,0)="The 2 or 3 letter mnemonic that stands of the file that the data is going"
^DD(811.1,.04,21,2,0)="also be put into. IMM=VIMMUNIZATIONS, CPT=V CPT, and SK=VSKIN TESTS"
^DD(811.1,.04,"DT")="2950405"
^DD(811.1,.05,0)="ON/OFF FLAG^RS^1:ON;0:OFF;^0;5^Q"
^DD(811.1,.05,1,0)="^.1^^-1"
^DD(811.1,.05,1,1,0)="811.1^AA2^MUMPS"
^DD(811.1,.05,1,1,1)="S ^PXD(811.1,""AA"",$P($P(^PXD(811.1,DA,0),""^""),"";""),$P(^PXD(811.1,DA,0),""^"",3),X,DA)="""""
^DD(811.1,.05,1,1,2)="K ^PXD(811.1,""AA"",$P($P(^PXD(811.1,DA,0),""^""),"";""),$P(^PXD(811.1,DA,0),""^"",3),X,DA)"
^DD(811.1,.05,1,1,"%D",0)="^^1^1^2950816^^^"
^DD(811.1,.05,1,1,"%D",1,0)="X REF  ,POINTER NUMBER,FROM MNEMONIC,ON/OFF FLAG,DA"
^DD(811.1,.05,1,1,"DT")="2950210"
^DD(811.1,.05,21,0)="^^2^2^2950816^"
^DD(811.1,.05,21,1,0)="A switch that tells us that this mapping is valid, and the mapping"
^DD(811.1,.05,21,2,0)="and storing of the data is allowed to occur."
^DD(811.1,.05,"DT")="2950424"
^DD(811.1,"B","FILE ENTRY",.01)=""
^DD(811.1,"B","FROM",.03)=""
^DD(811.1,"B","ON/OFF FLAG",.05)=""
^DD(811.1,"B","RELATED SUPPORTING FILE ENTRY",.02)=""
^DD(811.1,"B","TO",.04)=""
^DD(811.1,"GL",0,1,.01)=""
^DD(811.1,"GL",0,2,.02)=""
^DD(811.1,"GL",0,3,.03)=""
^DD(811.1,"GL",0,4,.04)=""
^DD(811.1,"GL",0,5,.05)=""
^DD(811.1,"IX",.01)=""
^DD(811.1,"IX",.03)=""
^DD(811.1,"IX",.05)=""
^DD(811.1,"RQ",.01)=""
^DD(811.1,"RQ",.03)=""
^DD(811.1,"RQ",.04)=""
^DD(811.1,"RQ",.05)=""
^DD(811.2,0)="FIELD^^3112^21"
^DD(811.2,0,"DDA")="N"
^DD(811.2,0,"DT")="3030325"
^DD(811.2,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(811.2,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(811.2,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(811.2,0,"NM","REMINDER TAXONOMY")=""
^DD(811.2,0,"PT",801.41,15)=""
^DD(811.2,0,"PT",810.31,.04)=""
^DD(811.2,0,"PT",810.32,.01)=""
^DD(811.2,0,"PT",811.3,.01)=""
^DD(811.2,0,"PT",811.52,.01)=""
^DD(811.2,0,"PT",811.902,.01)=""
^DD(811.2,0,"VR")="2.0"
^DD(811.2,0,"VRPK")="CLINICAL REMINDERS"
^DD(811.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>35!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,811.2)) X"
^DD(811.2,.01,1,0)="^.1^^0"
^DD(811.2,.01,3)="Answer must be 3-35 characters in length."
^DD(811.2,.01,21,0)="^.001^1^1^3050114^^^^"
^DD(811.2,.01,21,1,0)="This is the name of the taxonomy. It must be unique."
^DD(811.2,.01,"DT")="3000601"
^DD(811.2,.02,0)="BRIEF DESCRIPTION^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(811.2,.02,3)="Answer must be 3-80 characters in length."
^DD(811.2,.02,21,0)="^.001^3^3^3050120^^^^"
^DD(811.2,.02,21,1,0)="This is a brief description of what the taxonomy represents. It may be"
^DD(811.2,.02,21,2,0)="used to further define the intended use of this taxonomy. The Brief"
^DD(811.2,.02,21,3,0)="Description will be displayed as part of a taxonomy inquiry."
^DD(811.2,.02,"DT")="3000502"
^DD(811.2,.03,0)="DIALOG HEADER TEXT^F^^0;3^K:$L(X)>80!($L(X)<3) X"
^DD(811.2,.03,3)="Answer must be 3-80 characters in length."
^DD(811.2,.03,21,0)="^.001^2^2^3050114^^^^"
^DD(811.2,.03,21,1,0)="This text will be displayed as a checkbox in the reminder dialog for this"
^DD(811.2,.03,21,2,0)="taxonomy."
^DD(811.2,.03,"DT")="2991025"
^DD(811.2,1.6,0)="INACTIVE FLAG^S^1:INACTIVE;^0;6^Q"
^DD(811.2,1.6,3)="Enter a 1 to inactivate this taxonomy."
^DD(811.2,1.6,21,0)="^.001^6^6^3050114^^^^"
^DD(811.2,1.6,21,1,0)="Enter ""1"" to inactivate the taxonomy.  This flag is set to ACTIVE in"
^DD(811.2,1.6,21,2,0)="the distribution. As part of the installation, each site should review"
^DD(811.2,1.6,21,3,0)="the taxonomy definitions and inactivate those that do not meet the"
^DD(811.2,1.6,21,4,0)="site's needs. If desired, a site can copy a distributed taxonomy, using"
^DD(811.2,1.6,21,5,0)="the taxonomy copy option, to a local version and edit it to meet the"
^DD(811.2,1.6,21,6,0)="site's needs."
^DD(811.2,1.6,23,0)="^.001^2^2^3050114^^^^"
^DD(811.2,1.6,23,1,0)="This flag controls whether or not taxonomies may be selected as a"
^DD(811.2,1.6,23,2,0)="Clinical Reminder finding."
^DD(811.2,1.6,"DT")="2960730"
^DD(811.2,4,0)="PATIENT DATA SOURCE^FX^^0;4^S X=$$UP^XLFSTR(X) K:($L(X)>40)!($L(X)<1)!('$$VPDS^PXRMPDS(X)) X"
^DD(811.2,4,3)="Answer must be 1-40 characters in length."
^DD(811.2,4,4)="D PDSXHELP^PXRMPDS"
^DD(811.2,4,21,0)="^.001^2^2^3050114^^^^"
^DD(811.2,4,21,1,0)="PATIENT DATA SOURCE refines the taxonomy search by specifying which"
^DD(811.2,4,21,2,0)="patient data sources are searched for matching codes."
^DD(811.2,4,"DT")="3030624"
^DD(811.2,10,0)="USE INACTIVE PROBLEMS^S^1:YES;^0;9^Q"
^DD(811.2,10,3)="Enter YES if you want to use both active and inactive problems."
^DD(811.2,10,21,0)="^.001^6^6^3050120^^^^"
^DD(811.2,10,21,1,0)="USE INACTIVE PROBLEMS applies only to searches in Problem List. Normally,"
^DD(811.2,10,21,2,0)="inactive problems are not used. However, when this field is set to YES,"
^DD(811.2,10,21,3,0)="then both active and inactive problems are used. This field works just"
^DD(811.2,10,21,4,0)="like the field with the same name that can be specified for a reminder"
^DD(811.2,10,21,5,0)="definition finding or a reminder term finding. The order of precedence"
^DD(811.2,10,21,6,0)="is taxonomy > term > definition."
^DD(811.2,10,"DT")="3000403"
^DD(811.2,100,0)="CLASS^RSX^N:NATIONAL;V:VISN;L:LOCAL;^100;1^K:'$$VCLASS^PXRMINTR(X) X"
^DD(811.2,100,3)="Enter the CLASS."
^DD(811.2,100,21,0)="^.001^3^3^3050124^^^^"
^DD(811.2,100,21,1,0)="This is the CLASS of the taxonomy. Possible classes are ""N"" for"
^DD(811.2,100,21,2,0)="national, ""V"" for VISN, and ""L"" for local. National taxonomies cannot"
^DD(811.2,100,21,3,0)="be edited by sites."
^DD(811.2,100,"DT")="3010518"
^DD(811.2,101,0)="SPONSOR^P811.6^PXRMD(811.6,^100;2^Q"
^DD(811.2,101,3)="Enter the SPONSOR."
^DD(811.2,101,21,0)="^.001^1^1^3050124^^^"
^DD(811.2,101,21,1,0)="This is the organization or group that sponsors this taxonomy."
^DD(811.2,101,"DT")="3010419"
^DD(811.2,102,0)="REVIEW DATE^D^^100;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(811.2,102,3)="Enter the REVIEW DATE."
^DD(811.2,102,21,0)="^.001^4^4^3050124^^^^"
^DD(811.2,102,21,1,0)="REVIEW DATE is used to determine when the taxonomy should be reviewed"
^DD(811.2,102,21,2,0)="to verify that it is current with the latest standards and guidelines."
^DD(811.2,102,21,3,0)="You can find all taxonomies whose review date has passed using the"
^DD(811.2,102,21,4,0)="Clinical Reminders Review Date Report."
^DD(811.2,102,"DT")="3010419"
^DD(811.2,110,0)="EDIT HISTORY^811.21D^^110;0"
^DD(811.2,110,21,0)="^.001^2^2^3050124^^^^"
^DD(811.2,110,21,1,0)="This multiple is used to record a history of changes made to the"
^DD(811.2,110,21,2,0)="taxonomy."
^DD(811.2,2102,0)="ICD9 RANGE OF CODES^811.22102^^80;0"
^DD(811.2,2102,21,0)="^.001^4^4^3050120^^^^"
^DD(811.2,2102,21,1,0)="This multiple is used to define the set of ranges of ICD9 codes to be"
^DD(811.2,2102,21,2,0)="included in the taxonomy. A range is defined by a low code and high"
^DD(811.2,2102,21,3,0)="code. All codes that lie in this range will be automatically included."
^DD(811.2,2102,21,4,0)=""
^DD(811.2,2102,"DT")="3030220"
^DD(811.2,2103,0)="ICD0 RANGE OF CODES^811.22103^^80.1;0"
^DD(811.2,2103,21,0)="^.001^4^4^3050120^^^^"
^DD(811.2,2103,21,1,0)="This multiple is used to define the set of ranges of ICD0 codes to be"
^DD(811.2,2103,21,2,0)="included in the taxonomy. A range is defined by a low code and high"
^DD(811.2,2103,21,3,0)="code. All codes that lie in this range will be automatically included."
^DD(811.2,2103,21,4,0)=""
^DD(811.2,2103,"DT")="3030220"
^DD(811.2,2104,0)="CPT RANGE OF CODES^811.22104^^81;0"
^DD(811.2,2104,21,0)="^.001^4^4^3050120^^^^"
^DD(811.2,2104,21,1,0)="This multiple is used to define the set of ranges of CPT codes to be"
^DD(811.2,2104,21,2,0)="included in the taxonomy. A range is defined by a low code and a high"
^DD(811.2,2104,21,3,0)="code. All codes that lie in this range will be automatically included."
^DD(811.2,2104,21,4,0)=""
^DD(811.2,2104,"DT")="3030220"
^DD(811.2,3102,0)="SELECTABLE DIAGNOSIS^811.23102IP^^SDX;0"
^DD(811.2,3102,21,0)="^.001^4^4^3050114^^^"
^DD(811.2,3102,21,1,0)="These are the diagnosis codes that may be selected when processing a"
^DD(811.2,3102,21,2,0)="taxonomy dialog within CPRS. The list of codes is built from the code"
^DD(811.2,3102,21,3,0)="ranges within the taxonomy when the Clinical Reminders package is"
^DD(811.2,3102,21,4,0)="installed and includes only active codes."
^DD(811.2,3104,0)="SELECTABLE PROCEDURE^811.23104IP^^SPR;0"
^DD(811.2,3104,21,0)="^.001^4^4^3050114^^^"
^DD(811.2,3104,21,1,0)="These are the procedure codes that may be selected when processing a"
^DD(811.2,3104,21,2,0)="taxonomy dialog within CPRS. The list of codes is built from the code"
^DD(811.2,3104,21,3,0)="ranges within the taxonomy when the Clinical Reminders package is"
^DD(811.2,3104,21,4,0)="installed and includes only active codes."
^DD(811.2,3106,0)="GENERATE DIALOG DX PARAMETER^S^1:INDIVIDUAL DIALOG FOR EACH DIAGNOSIS CODE;^SDZ;1^Q"
^DD(811.2,3106,3)="Enter 1 if each selectable diagnosis should be a separate prompt."
^DD(811.2,3106,21,0)="^.001^10^10^3050120^^^^"
^DD(811.2,3106,21,1,0)="This parameter works in conjunction with the autogeneration of dialogs."
^DD(811.2,3106,21,2,0)="If it is set, then each active code in the selectable diagnosis list"
^DD(811.2,3106,21,3,0)="will be presented as a separate question in CPRS with text generated"
^DD(811.2,3106,21,4,0)="from the finding parameter file, #801.45."
^DD(811.2,3106,21,5,0)=" "
^DD(811.2,3106,21,6,0)="If it is not set, then there will be a checkbox for current diagnoses"
^DD(811.2,3106,21,7,0)="and a checkbox for historical entries. Fields #3107 and #3108 can be"
^DD(811.2,3106,21,8,0)="used to customize the checkbox headers. When one of the checkboxes is"
^DD(811.2,3106,21,9,0)="checked, then the selectable diagnoses list will be displayed as a"
^DD(811.2,3106,21,10,0)="drop-down list. This is the default option."
^DD(811.2,3106,"DT")="2990908"
^DD(811.2,3107,0)="CURRENT VISIT DX DIALOG HDR^F^^SDZ;2^K:$L(X)>80!($L(X)<1) X"
^DD(811.2,3107,.1)=""
^DD(811.2,3107,3)="Enter 1-80 character header text for current visit diagnosis selection."
^DD(811.2,3107,21,0)="^.001^6^6^3050120^^^^"
^DD(811.2,3107,21,1,0)="This is the diagnosis dialog sub-header text that will be selectable for"
^DD(811.2,3107,21,2,0)="CPRS users to document a diagnosis from the taxonomy as treated at the"
^DD(811.2,3107,21,3,0)="current visit. The header text will display with a checkbox, which CPRS"
^DD(811.2,3107,21,4,0)="users can select to see the selectable diagnoses list. "
^DD(811.2,3107,21,5,0)=" "
^DD(811.2,3107,21,6,0)="If this field is not present, the taxonomy name will be used."
^DD(811.2,3107,"DT")="3000503"
^DD(811.2,3108,0)="HISTORICAL VISIT DX DIALOG HDR^F^^SDZ;3^K:$L(X)>80!($L(X)<1) X"
^DD(811.2,3108,3)="Enter 1-80 character header text for historical visit diagnosis selection."
^DD(811.2,3108,21,0)="^.001^8^8^3050120^^^^"
^DD(811.2,3108,21,1,0)="This is the diagnosis dialog sub-header text that will be selectable for"
^DD(811.2,3108,21,2,0)="CPRS users to document a diagnosis from the taxonomy as a historical"
^DD(811.2,3108,21,3,0)="diagnosis. The header text will display with a checkbox, which CPRS users"
^DD(811.2,3108,21,4,0)="can select to see the selectable diagnoses list. Historical diagnoses"
^DD(811.2,3108,21,5,0)="selected will require the CPRS user to enter a visit date."
^DD(811.2,3108,21,6,0)=" "
^DD(811.2,3108,21,7,0)="If this field is not present, the taxonomy name followed by"
^DD(811.2,3108,21,8,0)="""(HISTORICAL)"" will be used."
^DD(811.2,3108,"DT")="3000503"
^DD(811.2,3110,0)="GENERATE DIALOG PR PARAMETER^S^1:INDIVIDUAL DIALOG FOR EACH PROCEDURE;^SPZ;1^Q"
^DD(811.2,3110,3)="Enter 1 if each selectable procedure should be a separate prompt."
^DD(811.2,3110,21,0)="^.001^10^10^3050120^^^"
^DD(811.2,3110,21,1,0)="This parameter works in conjunction with the autogeneration of dialogs."
^DD(811.2,3110,21,2,0)="If it is set then each active code in the selectable procedure list"
^DD(811.2,3110,21,3,0)="will be presented as a separate question in CPRS with text generated"
^DD(811.2,3110,21,4,0)="from the finding parameter file, #801.45."
^DD(811.2,3110,21,5,0)=" "
^DD(811.2,3110,21,6,0)="If it is not set then there will be a checkbox for current procedures"
^DD(811.2,3110,21,7,0)="and a checkbox for historical entries. Fields #3110 and #3112 can be"
^DD(811.2,3110,21,8,0)="used to customize the checkbox headers. When one of the checkboxes is"
^DD(811.2,3110,21,9,0)="checked then the selectable diagnoses list will be displayed as a"
^DD(811.2,3110,21,10,0)="drop-down list. This is the default option."
^DD(811.2,3110,"DT")="2990909"
^DD(811.2,3111,0)="CURRENT VISIT PR DIALOG HDR^F^^SPZ;2^K:$L(X)>80!($L(X)<1) X"
^DD(811.2,3111,3)="Enter 1-80 character header text for current visit procedure selection."
^DD(811.2,3111,21,0)="^.001^6^6^3050120^^^^"
^DD(811.2,3111,21,1,0)="This is the procedure dialog sub-header text that will be selectable for"
^DD(811.2,3111,21,2,0)="CPRS users to document a procedure from the taxonomy as done at the"
^DD(811.2,3111,21,3,0)="current visit. The header text will display with a checkbox, which CPRS"
^DD(811.2,3111,21,4,0)="users can select to see the selectable procedure list. "
^DD(811.2,3111,21,5,0)=" "
^DD(811.2,3111,21,6,0)="If this field is not present, the taxonomy name will be used."
^DD(811.2,3111,"DT")="3000503"
^DD(811.2,3112,0)="HISTORICAL VISIT PR DIALOG HDR^F^^SPZ;3^K:$L(X)>80!($L(X)<1) X"
^DD(811.2,3112,3)="Enter 1-80 character header text for historical visit procedure selection."
^DD(811.2,3112,21,0)="^.001^8^8^3050120^^^^"
^DD(811.2,3112,21,1,0)="This is the procedure dialog sub-header text that will be selectable for"
^DD(811.2,3112,21,2,0)="CPRS users to document a procedure from the taxonomy as a historical"
^DD(811.2,3112,21,3,0)="procedure. The header text will display with a checkbox, which CPRS users"
^DD(811.2,3112,21,4,0)="can select to see the selectable procedure list.  Historical procedures"
^DD(811.2,3112,21,5,0)="selected will require the CPRS user to enter a visit date."
^DD(811.2,3112,21,6,0)=" "
^DD(811.2,3112,21,7,0)="If this field is not present, the taxonomy name followed by"
^DD(811.2,3112,21,8,0)="""(HISTORICAL)"" will be used."
^DD(811.2,3112,"DT")="3000503"
^DD(811.2,"B","BRIEF DESCRIPTION",.02)=""
^DD(811.2,"B","CLASS",100)=""
^DD(811.2,"B","CPT RANGE OF CODES",2104)=""
^DD(811.2,"B","CURRENT VISIT DX DIALOG HDR",3107)=""
^DD(811.2,"B","CURRENT VISIT PR DIALOG HDR",3111)=""
^DD(811.2,"B","DIALOG HEADER TEXT",.03)=""
^DD(811.2,"B","EDIT HISTORY",110)=""
^DD(811.2,"B","GENERATE DIALOG DX PARAMETER",3106)=""
^DD(811.2,"B","GENERATE DIALOG PR PARAMETER",3110)=""
^DD(811.2,"B","HISTORICAL VISIT DX DIALOG HDR",3108)=""
^DD(811.2,"B","HISTORICAL VISIT PR DIALOG HDR",3112)=""
^DD(811.2,"B","ICD0 RANGE OF CODES",2103)=""
^DD(811.2,"B","ICD9 RANGE OF CODES",2102)=""
^DD(811.2,"B","INACTIVE FLAG",1.6)=""
^DD(811.2,"B","NAME",.01)=""
^DD(811.2,"B","PATIENT DATA SOURCE",4)=""
^DD(811.2,"B","REVIEW DATE",102)=""
^DD(811.2,"B","SELECTABLE DIAGNOSIS",3102)=""
^DD(811.2,"B","SELECTABLE PROCEDURE",3104)=""
^DD(811.2,"B","SPONSOR",101)=""
^DD(811.2,"B","USE INACTIVE PROBLEMS",10)=""
^DD(811.2,"GL",0,1,.01)=""
^DD(811.2,"GL",0,2,.02)=""
^DD(811.2,"GL",0,3,.03)=""
^DD(811.2,"GL",0,4,4)=""
^DD(811.2,"GL",0,6,1.6)=""
^DD(811.2,"GL",0,9,10)=""
^DD(811.2,"GL",80,0,2102)=""
^DD(811.2,"GL",80.1,0,2103)=""
^DD(811.2,"GL",81,0,2104)=""
^DD(811.2,"GL",100,1,100)=""
^DD(811.2,"GL",100,2,101)=""
^DD(811.2,"GL",100,3,102)=""
^DD(811.2,"GL",110,0,110)=""
^DD(811.2,"GL","SDX",0,3102)=""
^DD(811.2,"GL","SDZ",1,3106)=""
^DD(811.2,"GL","SDZ",2,3107)=""
^DD(811.2,"GL","SDZ",3,3108)=""
^DD(811.2,"GL","SPR",0,3104)=""
^DD(811.2,"GL","SPZ",1,3110)=""
^DD(811.2,"GL","SPZ",2,3111)=""
^DD(811.2,"GL","SPZ",3,3112)=""
^DD(811.2,"RQ",.01)=""
^DD(811.2,"RQ",100)=""
^DD(811.2,"SB",811.21,110)=""
^DD(811.2,"SB",811.22102,2102)=""
^DD(811.2,"SB",811.22103,2103)=""
^DD(811.2,"SB",811.22104,2104)=""
^DD(811.2,"SB",811.23102,3102)=""
^DD(811.2,"SB",811.23104,3104)=""
^DD(811.21,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(811.21,0,"DT")="3010419"
^DD(811.21,0,"IX","B",811.21,.01)=""
^DD(811.21,0,"NM","EDIT HISTORY")=""
^DD(811.21,0,"UP")="811.2"
^DD(811.21,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.21,.01,1,0)="^.1"
^DD(811.21,.01,1,1,0)="811.21^B"
^DD(811.21,.01,1,1,1)="S ^PXD(811.2,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(811.21,.01,1,1,2)="K ^PXD(811.2,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(811.21,.01,3)="Do not edit this field."
^DD(811.21,.01,21,0)="^.001^2^2^3050124^^^"
^DD(811.21,.01,21,1,0)="This is the date and time when the editing was done. This field is set"
^DD(811.21,.01,21,2,0)="automatically and should not be changed by the user."
^DD(811.21,.01,"DT")="3010419"
^DD(811.21,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(811.21,1,3)="Do not edit this field."
^DD(811.21,1,21,0)="^.001^2^2^3050124^^^"
^DD(811.21,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(811.21,1,21,2,0)="and should not be changed by the user."
^DD(811.21,1,"DT")="3010419"
^DD(811.21,2,0)="EDIT COMMENTS^811.212^^1;0"
^DD(811.21,2,21,0)="^.001^2^2^3050124^^^^"
^DD(811.21,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(811.21,2,21,2,0)="during the editing session."
^DD(811.21,2,"DT")="3010425"
^DD(811.21,"B","EDIT BY",1)=""
^DD(811.21,"B","EDIT COMMENTS",2)=""
^DD(811.21,"B","EDIT DATE",.01)=""
^DD(811.21,"GL",0,1,.01)=""
^DD(811.21,"GL",0,2,1)=""
^DD(811.21,"GL",1,0,2)=""
^DD(811.21,"IX",.01)=""
^DD(811.21,"SB",811.212,2)=""
^DD(811.212,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(811.212,0,"DT")="3010419"
^DD(811.212,0,"NM","EDIT COMMENTS")=""
^DD(811.212,0,"UP")="811.21"
^DD(811.212,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(811.212,.01,3)="Enter your edit comments."
^DD(811.212,.01,"DT")="3010425"
^DD(811.212,"B","EDIT COMMENTS",.01)=""
^DD(811.212,"GL",0,1,.01)=""
^DD(811.22102,0)="ICD9 RANGE OF CODES SUB-FIELD^^3^4"
^DD(811.22102,0,"DT")="3030325"
^DD(811.22102,0,"IX","B",811.22102,.01)=""
^DD(811.22102,0,"NM","ICD9 RANGE OF CODES")=""
^DD(811.22102,0,"UP")="811.2"
^DD(811.22102,.01,0)="ICD9 LOW CODE^MFX^^0;1^K:(($L(X)>7)!($L(X)<3)!('$$VICD9^PXRMCODE(X))) X"
^DD(811.22102,.01,1,0)="^.1^^-1"
^DD(811.22102,.01,1,1,0)="811.22102^B"
^DD(811.22102,.01,1,1,1)="S ^PXD(811.2,DA(1),80,""B"",$E(X,1,30),DA)="""""
^DD(811.22102,.01,1,1,2)="K ^PXD(811.2,DA(1),80,""B"",$E(X,1,30),DA)"
^DD(811.22102,.01,3)="Answer must be 3-7 characters in length."
^DD(811.22102,.01,21,0)="^^1^1^3050114^"
^DD(811.22102,.01,21,1,0)="This is the low code in the range of codes."
^DD(811.22102,.01,"DT")="3030414"
^DD(811.22102,1,0)="ICD9 HIGH CODE^FX^^0;2^K:(($L(X)>7)!($L(X)<3)!('$$VHICD9^PXRMCODE(.DA,X))) X"
^DD(811.22102,1,1,0)="^.1^^0"
^DD(811.22102,1,3)="Answer must be 3-7 characters in length."
^DD(811.22102,1,21,0)="^.001^1^1^3050120^^"
^DD(811.22102,1,21,1,0)="This is the high code in the range of codes."
^DD(811.22102,1,"DT")="3030326"
^DD(811.22102,2,0)="ICD9 ADJACENT LOWER CODE^F^^0;3^K:$L(X)>7!($L(X)<3) X"
^DD(811.22102,2,3)="Answer must be 3-7 characters in length."
^DD(811.22102,2,21,0)="^.001^5^5^3050120^^^^"
^DD(811.22102,2,21,1,0)="This is the code that comes immediately before the Low Code. Whenever a"
^DD(811.22102,2,21,2,0)="code set update is made, the old and new Adjacent Lower Codes are"
^DD(811.22102,2,21,3,0)="compared. If there is a change, then a message is sent to the Reminders"
^DD(811.22102,2,21,4,0)="mail group alerting them to this fact, along with a suggestion that they"
^DD(811.22102,2,21,5,0)="review the taxonomy for codes that should be added or removed."
^DD(811.22102,2,"DT")="3030325"
^DD(811.22102,3,0)="ICD9 ADJACENT HIGHER CODE^F^^0;4^K:$L(X)>7!($L(X)<3) X"
^DD(811.22102,3,3)="Answer must be 3-7 characters in length."
^DD(811.22102,3,21,0)="^.001^6^6^3050120^^^^"
^DD(811.22102,3,21,1,0)="This is the code that comes immediately after the High Code. Whenever a"
^DD(811.22102,3,21,2,0)="code set update is made the old and new Adjacent Higher Codes are"
^DD(811.22102,3,21,3,0)="compared. If there is a change, then a message is sent to the Reminders"
^DD(811.22102,3,21,4,0)="mail group alerting them to this fact, along with a suggestion that they"
^DD(811.22102,3,21,5,0)="review the taxonomy for codes that should be added or removed."
^DD(811.22102,3,21,6,0)=""
^DD(811.22102,3,"DT")="3030325"
^DD(811.22102,"B","ICD9 ADJACENT HIGHER CODE",3)=""
^DD(811.22102,"B","ICD9 ADJACENT LOWER CODE",2)=""
^DD(811.22102,"B","ICD9 HIGH CODE",1)=""
^DD(811.22102,"B","ICD9 LOW CODE",.01)=""
^DD(811.22102,"GL",0,1,.01)=""
^DD(811.22102,"GL",0,2,1)=""
^DD(811.22102,"GL",0,3,2)=""
^DD(811.22102,"GL",0,4,3)=""
^DD(811.22102,"IX",.01)=""
^DD(811.22103,0)="ICD0 RANGE OF CODES SUB-FIELD^^3^4"
^DD(811.22103,0,"DT")="3030325"
^DD(811.22103,0,"IX","B",811.22103,.01)=""
^DD(811.22103,0,"NM","ICD0 RANGE OF CODES")=""
^DD(811.22103,0,"UP")="811.2"
^DD(811.22103,.01,0)="ICDO LOW CODE^MFX^^0;1^K:(($L(X)>7)!($L(X)<3)!('$$VICD0^PXRMCODE(X))) X"
^DD(811.22103,.01,1,0)="^.1^^-1"
^DD(811.22103,.01,1,1,0)="811.22103^B"
^DD(811.22103,.01,1,1,1)="S ^PXD(811.2,DA(1),80.1,""B"",$E(X,1,30),DA)="""""
^DD(811.22103,.01,1,1,2)="K ^PXD(811.2,DA(1),80.1,""B"",$E(X,1,30),DA)"
^DD(811.22103,.01,3)="Answer must be 3-7 characters in length."
^DD(811.22103,.01,21,0)="^^1^1^3050114^"
^DD(811.22103,.01,21,1,0)="This is the low code in the range of codes."
^DD(811.22103,.01,"DT")="3030326"
^DD(811.22103,1,0)="ICD0 HIGH CODE^FX^^0;2^K:(($L(X)>7)!($L(X)<3)!('$$VHICD0^PXRMCODE(.DA,X))) X"
^DD(811.22103,1,1,0)="^.1^^0"
^DD(811.22103,1,3)="Answer must be 3-7 characters in length."
^DD(811.22103,1,21,0)="^^1^1^3050114^"
^DD(811.22103,1,21,1,0)="This is the high code in the range of codes."
^DD(811.22103,1,"DT")="3030326"
^DD(811.22103,2,0)="ICD0 ADJACENT LOWER CODE^F^^0;3^K:$L(X)>7!($L(X)<3) X"
^DD(811.22103,2,3)="Answer must be 3-7 characters in length."
^DD(811.22103,2,21,0)="^.001^6^6^3050120^^^^"
^DD(811.22103,2,21,1,0)="This is the code that comes immediately before the Low Code. Whenever a"
^DD(811.22103,2,21,2,0)="code set update is made, the old and new Adjacent Lower Codes are "
^DD(811.22103,2,21,3,0)="compared. If there is a change, then a message is sent to the Reminders"
^DD(811.22103,2,21,4,0)="mail group alerting them to this fact, along with a suggestion that they"
^DD(811.22103,2,21,5,0)="review the taxonomy for codes that should be added or removed.  "
^DD(811.22103,2,21,6,0)=""
^DD(811.22103,2,"DT")="3030325"
^DD(811.22103,3,0)="ICD0 ADJACENT HIGHER CODE^F^^0;4^K:$L(X)>7!($L(X)<3) X"
^DD(811.22103,3,3)="Answer must be 3-7 characters in length."
^DD(811.22103,3,21,0)="^.001^5^5^3050120^^^^"
^DD(811.22103,3,21,1,0)="This is the code that comes immediately after the High Code. Whenever a"
^DD(811.22103,3,21,2,0)="code set update is made, the old and new Adjacent Higher Codes are"
^DD(811.22103,3,21,3,0)="compared. If there is a change, then a message is sent to the Reminders"
^DD(811.22103,3,21,4,0)="mail group alerting them to this fact, along with a suggestion that they"
^DD(811.22103,3,21,5,0)="review the taxonomy for codes that should be added or removed."
^DD(811.22103,3,"DT")="3030325"
^DD(811.22103,"B","ICD0 ADJACENT HIGHER CODE",3)=""
^DD(811.22103,"B","ICD0 ADJACENT LOWER CODE",2)=""
^DD(811.22103,"B","ICD0 HIGH CODE",1)=""
^DD(811.22103,"B","ICDO LOW CODE",.01)=""
^DD(811.22103,"GL",0,1,.01)=""
^DD(811.22103,"GL",0,2,1)=""
^DD(811.22103,"GL",0,3,2)=""
^DD(811.22103,"GL",0,4,3)=""
^DD(811.22103,"IX",.01)=""
^DD(811.22104,0)="CPT RANGE OF CODES SUB-FIELD^^3^4"
^DD(811.22104,0,"DT")="3030321"
^DD(811.22104,0,"IX","B",811.22104,.01)=""
^DD(811.22104,0,"NM","CPT RANGE OF CODES")=""
^DD(811.22104,0,"UP")="811.2"
^DD(811.22104,.01,0)="CPT LOW CODE^MFX^^0;1^K:(($L(X)>7)!($L(X)<3)!('$$VICPT^PXRMCODE(X))) X"
^DD(811.22104,.01,1,0)="^.1^^-1"
^DD(811.22104,.01,1,1,0)="811.22104^B"
^DD(811.22104,.01,1,1,1)="S ^PXD(811.2,DA(1),81,""B"",$E(X,1,30),DA)="""""
^DD(811.22104,.01,1,1,2)="K ^PXD(811.2,DA(1),81,""B"",$E(X,1,30),DA)"
^DD(811.22104,.01,3)="Answer must be 3-7 characters in length."
^DD(811.22104,.01,21,0)="^^1^1^3050114^"
^DD(811.22104,.01,21,1,0)="This is the low code in the range of codes."
^DD(811.22104,.01,"DT")="3030326"
^DD(811.22104,1,0)="CPT HIGH CODE^FX^^0;2^K:(($L(X)>7)!($L(X)<3)!('$$VHICPT^PXRMCODE(.DA,X))) X"
^DD(811.22104,1,1,0)="^.1^^0"
^DD(811.22104,1,3)="Answer must be 3-7 characters in length."
^DD(811.22104,1,21,0)="^^1^1^3050114^"
^DD(811.22104,1,21,1,0)="This is the high code in the range of codes."
^DD(811.22104,1,"DT")="3030326"
^DD(811.22104,2,0)="CPT ADJACENT LOWER CODE^F^^0;3^K:$L(X)>7!($L(X)<3) X"
^DD(811.22104,2,3)="Answer must be 3-7 characters in length."
^DD(811.22104,2,21,0)="^.001^6^6^3050120^^^^"
^DD(811.22104,2,21,1,0)="This is the code that comes immediately before the Low Code. Whenever a"
^DD(811.22104,2,21,2,0)="code set update is made, the old and new Adjacent Lower Codes are "
^DD(811.22104,2,21,3,0)="compared. If there is a change, then a message is sent to the Reminders"
^DD(811.22104,2,21,4,0)="mail group alerting them to this fact, along with a suggestion that they"
^DD(811.22104,2,21,5,0)="review the taxonomy for codes that should be added or removed.  "
^DD(811.22104,2,21,6,0)=""
^DD(811.22104,2,"DT")="3030325"
^DD(811.22104,3,0)="CPT ADJACENT HIGHER CODE^F^^0;4^K:$L(X)>7!($L(X)<3) X"
^DD(811.22104,3,3)="Answer must be 3-7 characters in length."
^DD(811.22104,3,21,0)="^.001^5^5^3050120^^^^"
^DD(811.22104,3,21,1,0)="This is the code that comes immediately after the High Code. Whenever a"
^DD(811.22104,3,21,2,0)="code set update is made, the old and new Adjacent Higher Codes are"
^DD(811.22104,3,21,3,0)="compared. If there is a change, then a message is sent to the Reminders"
^DD(811.22104,3,21,4,0)="mail group alerting them to this fact, along with a suggestion that they"
^DD(811.22104,3,21,5,0)="review the taxonomy for codes that should be added or removed."
^DD(811.22104,3,"DT")="3030325"
^DD(811.22104,"B","CPT ADJACENT HIGHER CODE",3)=""
^DD(811.22104,"B","CPT ADJACENT LOWER CODE",2)=""
^DD(811.22104,"B","CPT HIGH CODE",1)=""
^DD(811.22104,"B","CPT LOW CODE",.01)=""
^DD(811.22104,"GL",0,1,.01)=""
^DD(811.22104,"GL",0,2,1)=""
^DD(811.22104,"GL",0,3,2)=""
^DD(811.22104,"GL",0,4,3)=""
^DD(811.22104,"IX",.01)=""
^DD(811.23102,0)="SELECTABLE DIAGNOSIS SUB-FIELD^^2^3"
^DD(811.23102,0,"DT")="2991025"
^DD(811.23102,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(811.23102,0,"IX","B",811.23102,.01)=""
^DD(811.23102,0,"NM","SELECTABLE DIAGNOSIS")=""
^DD(811.23102,0,"UP")="811.2"
^DD(811.23102,.01,0)="SELECTABLE DIAGNOSIS^MP80'^ICD9(^0;1^Q"
^DD(811.23102,.01,1,0)="^.1"
^DD(811.23102,.01,1,1,0)="811.23102^B"
^DD(811.23102,.01,1,1,1)="S ^PXD(811.2,DA(1),""SDX"",""B"",$E(X,1,30),DA)="""""
^DD(811.23102,.01,1,1,2)="K ^PXD(811.2,DA(1),""SDX"",""B"",$E(X,1,30),DA)"
^DD(811.23102,.01,3)="Enter a ICD9 code that can be entered in CPRS to satisfy a reminder."
^DD(811.23102,.01,21,0)="^.001^2^2^3050114^^^"
^DD(811.23102,.01,21,1,0)="This is the selectable diagnosis code that will appear in the taxonomy"
^DD(811.23102,.01,21,2,0)="dialog. Only active codes may be selected."
^DD(811.23102,.01,"DT")="2991025"
^DD(811.23102,1,0)="DISPLAY TEXT^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(811.23102,1,3)="Answer must be 1-40 characters in length."
^DD(811.23102,1,21,0)="^.001^3^3^3050114^^^"
^DD(811.23102,1,21,1,0)="This is the description of the diagnosis code that will appear in the"
^DD(811.23102,1,21,2,0)="taxonomy dialog in CPRS. The field is optional - the standard diagnosis"
^DD(811.23102,1,21,3,0)="code name is the default."
^DD(811.23102,1,"DT")="2991025"
^DD(811.23102,2,0)="DISABLED^S^1:DISABLED;^0;3^Q"
^DD(811.23102,2,21,0)="^.001^2^2^3050114^^"
^DD(811.23102,2,21,1,0)="This field should be input if a selectable code is to be excluded"
^DD(811.23102,2,21,2,0)="temporarily from the taxonomy dialog in CPRS."
^DD(811.23102,2,"DT")="2991025"
^DD(811.23102,"B","DISABLED",2)=""
^DD(811.23102,"B","DISPLAY TEXT",1)=""
^DD(811.23102,"B","SELECTABLE DIAGNOSIS",.01)=""
^DD(811.23102,"GL",0,1,.01)=""
^DD(811.23102,"GL",0,2,1)=""
^DD(811.23102,"GL",0,3,2)=""
^DD(811.23102,"IX",.01)=""
^DD(811.23104,0)="SELECTABLE PROCEDURE SUB-FIELD^^2^3"
^DD(811.23104,0,"DT")="2991025"
^DD(811.23104,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(811.23104,0,"IX","B",811.23104,.01)=""
^DD(811.23104,0,"NM","SELECTABLE PROCEDURE")=""
^DD(811.23104,0,"UP")="811.2"
^DD(811.23104,.01,0)="SELECTABLE PROCEDURE^MP81'^ICPT(^0;1^Q"
^DD(811.23104,.01,1,0)="^.1"
^DD(811.23104,.01,1,1,0)="811.23104^B"
^DD(811.23104,.01,1,1,1)="S ^PXD(811.2,DA(1),""SPR"",""B"",$E(X,1,30),DA)="""""
^DD(811.23104,.01,1,1,2)="K ^PXD(811.2,DA(1),""SPR"",""B"",$E(X,1,30),DA)"
^DD(811.23104,.01,3)="Enter a CPT code that can be entered in CPRS to satisfy a reminder"
^DD(811.23104,.01,21,0)="^.001^2^2^3050114^^"
^DD(811.23104,.01,21,1,0)="This is the selectable procedure code that will appear in the taxonomy"
^DD(811.23104,.01,21,2,0)="dialog. Only active codes may be selected."
^DD(811.23104,.01,"DT")="2991025"
^DD(811.23104,1,0)="DISPLAY TEXT^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(811.23104,1,3)="Answer must be 1-40 characters in length."
^DD(811.23104,1,21,0)="^.001^3^3^3050114^^"
^DD(811.23104,1,21,1,0)="This is the description of the procedure code that will appear in the"
^DD(811.23104,1,21,2,0)="taxonomy dialog in CPRS. The field is optional - the standard standard"
^DD(811.23104,1,21,3,0)="code name is the default."
^DD(811.23104,1,"DT")="2991025"
^DD(811.23104,2,0)="DISABLED^S^1:DISABLED;^0;3^Q"
^DD(811.23104,2,21,0)="^.001^2^2^3050114^^"
^DD(811.23104,2,21,1,0)="This field should be input if a selectable code is to be excluded"
^DD(811.23104,2,21,2,0)="temporarily from the taxonomy dialog in CPRS."
^DD(811.23104,2,"DT")="2991025"
^DD(811.23104,"B","DISABLED",2)=""
^DD(811.23104,"B","DISPLAY TEXT",1)=""
^DD(811.23104,"B","SELECTABLE PROCEDURE",.01)=""
^DD(811.23104,"GL",0,1,.01)=""
^DD(811.23104,"GL",0,2,1)=""
^DD(811.23104,"GL",0,3,2)=""
^DD(811.23104,"IX",.01)=""
^DD(811.3,0)="FIELD^^100^14"
^DD(811.3,0,"DDA")="N"
^DD(811.3,0,"DT")="3040621"
^DD(811.3,0,"IX","B",811.3,.01)=""
^DD(811.3,0,"NM","EXPANDED TAXONOMIES")=""
^DD(811.3,0,"VR")="2.0"
^DD(811.3,0,"VRPK")="CLINICAL REMINDERS"
^DD(811.3,.01,0)="EXPANDED TAXONOMY^P811.2'^PXD(811.2,^0;1^Q"
^DD(811.3,.01,1,0)="^.1"
^DD(811.3,.01,1,1,0)="811.3^B"
^DD(811.3,.01,1,1,1)="S ^PXD(811.3,""B"",$E(X,1,30),DA)="""""
^DD(811.3,.01,1,1,2)="K ^PXD(811.3,""B"",$E(X,1,30),DA)"
^DD(811.3,.01,3)="Do not edit this field."
^DD(811.3,.01,21,0)="^.001^1^1^3050117^^^"
^DD(811.3,.01,21,1,0)="Pointer to the source taxonomy."
^DD(811.3,.01,23,0)="^.001^2^2^3050117^^^"
^DD(811.3,.01,23,1,0)="Expanded taxonomies are stored at the same internal entry number as the"
^DD(811.3,.01,23,2,0)="taxonomy."
^DD(811.3,.01,"DT")="3000321"
^DD(811.3,1,0)="DATE BUILT^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(811.3,1,3)="Do not edit this field."
^DD(811.3,1,21,0)="^.001^1^1^3050117^^"
^DD(811.3,1,21,1,0)="This is the date when the expanded taxonomy was built."
^DD(811.3,1,"DT")="3000322"
^DD(811.3,2,0)="NICD0^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.3,2,3)="Do not edit this field."
^DD(811.3,2,21,0)="^.001^1^1^3050117^^"
^DD(811.3,2,21,1,0)="This is the number of ICD0 entries in the expanded taxonomy."
^DD(811.3,2,"DT")="3000322"
^DD(811.3,3,0)="ICD0 DATE^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(811.3,3,3)="Do not edit this field."
^DD(811.3,3,23,0)="^.001^4^4^3050117^^^"
^DD(811.3,3,23,1,0)="This is the date of the ICD0 global distribution the expansion is based"
^DD(811.3,3,23,2,0)="on. The date is the second piece of "
^DD(811.3,3,23,3,0)=" $$GET1^DID(80.1,"""","""",""PACKAGE REVISION DATA"")."
^DD(811.3,3,23,4,0)=""
^DD(811.3,3,"DT")="3040621"
^DD(811.3,4,0)="NICD9^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.3,4,3)="Do not edit this field."
^DD(811.3,4,21,0)="^.001^1^1^3050117^^"
^DD(811.3,4,21,1,0)="This is the number of ICD9 entries in the expanded taxonomy."
^DD(811.3,4,"DT")="3000330"
^DD(811.3,5,0)="ICD9 DATE^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(811.3,5,3)="Do not edit this field."
^DD(811.3,5,23,0)="^.001^4^4^3050117^^^"
^DD(811.3,5,23,1,0)="This is the date of the ICD9 global distribution the expansion is based"
^DD(811.3,5,23,2,0)="on. The date is the second piece of "
^DD(811.3,5,23,3,0)=" $$GET1^DID(80,"""","""",""PACKAGE REVISION DATA"")."
^DD(811.3,5,23,4,0)=""
^DD(811.3,5,"DT")="3040621"
^DD(811.3,6,0)="NICPT^NJ6,0^^0;7^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.3,6,3)="Do not edit this field."
^DD(811.3,6,21,0)="^.001^1^1^3050117^^"
^DD(811.3,6,21,1,0)="This is the number of CPT codes in the expanded taxonomy."
^DD(811.3,6,"DT")="3000330"
^DD(811.3,7,0)="CPT DATE^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(811.3,7,3)="Do not edit this field."
^DD(811.3,7,23,0)="^.001^3^3^3050117^^^^"
^DD(811.3,7,23,1,0)="This is the date of the CPT global distribution the expansion is based"
^DD(811.3,7,23,2,0)="on. The date is the second piece of "
^DD(811.3,7,23,3,0)=" $$GET1^DID(81,"""","""",""PACKAGE REVISION DATA"")."
^DD(811.3,7,"DT")="3040621"
^DD(811.3,8,0)="NRCPT^NJ8,0^^0;9^K:+X'=X!(X>10000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.3,8,3)="Do not edit this field."
^DD(811.3,8,21,0)="^.001^2^2^3050117^^"
^DD(811.3,8,21,1,0)="This is the number of CPT codes that are radiology procedures in the"
^DD(811.3,8,21,2,0)="expanded taxonomy."
^DD(811.3,8,"DT")="3000322"
^DD(811.3,71,0)="RADIOLOGY CPT LIST^811.371PA^^71;0"
^DD(811.3,71,21,0)="^.001^2^2^3050117^^^^"
^DD(811.3,71,21,1,0)="This is the list of radiology procedure codes that are in the expanded"
^DD(811.3,71,21,2,0)="taxonomy."
^DD(811.3,80,0)="ICD9 LIST^811.31PA^^80;0"
^DD(811.3,80,21,0)="^.001^1^1^3050117^^"
^DD(811.3,80,21,1,0)="This is the list of ICD9 codes that are in the expanded taxonomy."
^DD(811.3,80.1,0)="ICD0 LIST^811.32PA^^80.1;0"
^DD(811.3,80.1,21,0)="^.001^1^1^3050117^^"
^DD(811.3,80.1,21,1,0)="This is the list of ICD0 codes that are in the expanded taxonomy."
^DD(811.3,81,0)="ICPT LIST^811.381PA^^81;0"
^DD(811.3,81,21,0)="^.001^1^1^3050117^^"
^DD(811.3,81,21,1,0)="This is the list of CPT codes that are in the expanded taxonomy."
^DD(811.3,81,"DT")="3000323"
^DD(811.3,100,0)="PATIENT DATA SOURCE^811.33^^PDS;0"
^DD(811.3,100,21,0)="^.001^12^12^3050117^^"
^DD(811.3,100,21,1,0)="The field Patient Data Source specifies where to search for taxonomy"
^DD(811.3,100,21,2,0)="matches. This field is a list of the exact locations to search and is"
^DD(811.3,100,21,3,0)="built automatically whenever the Patient Data Source is edited. The"
^DD(811.3,100,21,4,0)="structure of the list is as follows:"
^DD(811.3,100,21,5,0)=" ^PXD(811.3,D0,""PDS"",SOURCE FILE NUMBER,1,CODE FILE NUMBER,1,D1,0)=DATA"
^DD(811.3,100,21,6,0)="where"
^DD(811.3,100,21,7,0)=" SOURCE FILE NUMBER is the file number where the patient data is stored."
^DD(811.3,100,21,8,0)=" CODE FILE NUMBER is the file number where the codes are stored."
^DD(811.3,100,21,9,0)=" DATA is the name of the node source file that is to be searched for."
^DD(811.3,100,21,10,0)=" a match."
^DD(811.3,100,21,11,0)="Here is an example of an entry:"
^DD(811.3,100,21,12,0)=" ^PXD(811.3,1,""PDS"",45,1,80,1,1,0) = D ICD2"
^DD(811.3,"B","CPT DATE",7)=""
^DD(811.3,"B","DATE BUILT",1)=""
^DD(811.3,"B","EXPANDED TAXONOMY",.01)=""
^DD(811.3,"B","ICD0 DATE",3)=""
^DD(811.3,"B","ICD0 LIST",80.1)=""
^DD(811.3,"B","ICD9 DATE",5)=""
^DD(811.3,"B","ICD9 LIST",80)=""
^DD(811.3,"B","ICPT LIST",81)=""
^DD(811.3,"B","NICD0",2)=""
^DD(811.3,"B","NICD9",4)=""
^DD(811.3,"B","NICPT",6)=""
^DD(811.3,"B","NRCPT",8)=""
^DD(811.3,"B","PATIENT DATA SOURCE",100)=""
^DD(811.3,"B","RADIOLOGY CPT LIST",71)=""
^DD(811.3,"GL",0,1,.01)=""
^DD(811.3,"GL",0,2,1)=""
^DD(811.3,"GL",0,3,2)=""
^DD(811.3,"GL",0,4,3)=""
^DD(811.3,"GL",0,5,4)=""
^DD(811.3,"GL",0,6,5)=""
^DD(811.3,"GL",0,7,6)=""
^DD(811.3,"GL",0,8,7)=""
^DD(811.3,"GL",0,9,8)=""
^DD(811.3,"GL",71,0,71)=""
^DD(811.3,"GL",80,0,80)=""
^DD(811.3,"GL",80.1,0,80.1)=""
^DD(811.3,"GL",81,0,81)=""
^DD(811.3,"GL","PDS",0,100)=""
^DD(811.3,"IX",.01)=""
^DD(811.3,"SB",811.31,80)=""
^DD(811.3,"SB",811.32,80.1)=""
^DD(811.3,"SB",811.33,100)=""
^DD(811.3,"SB",811.371,71)=""
^DD(811.3,"SB",811.381,81)=""
^DD(811.31,0)="ICD9 LIST SUB-FIELD^^.01^1"
^DD(811.31,0,"DT")="3000321"
^DD(811.31,0,"NM","ICD9 LIST")=""
^DD(811.31,0,"UP")="811.3"
^DD(811.31,.01,0)="ICD9 CODE^P80'^ICD9(^0;1^Q"
^DD(811.31,.01,1,0)="^.1^^0"
^DD(811.31,.01,3)="Do not edit this field."
^DD(811.31,.01,21,0)="^.001^1^1^3050117^^"
^DD(811.31,.01,21,1,0)="This is a pointer to an ICD9 code."
^DD(811.31,.01,"DT")="3000505"
^DD(811.31,"B","ICD9 CODE",.01)=""
^DD(811.31,"GL",0,1,.01)=""
^DD(811.32,0)="ICD0 LIST SUB-FIELD^^.01^1"
^DD(811.32,0,"DT")="3000321"
^DD(811.32,0,"NM","ICD0 LIST")=""
^DD(811.32,0,"UP")="811.3"
^DD(811.32,.01,0)="ICD0 CODE^P80.1'^ICD0(^0;1^Q"
^DD(811.32,.01,1,0)="^.1^^0"
^DD(811.32,.01,3)="Do not edit this field."
^DD(811.32,.01,21,0)="^.001^1^1^3050117^^"
^DD(811.32,.01,21,1,0)="This is a pointer to an ICD0 code."
^DD(811.32,.01,"DT")="3000505"
^DD(811.32,"B","ICD0 CODE",.01)=""
^DD(811.32,"GL",0,1,.01)=""
^DD(811.33,0)="PATIENT DATA SOURCE SUB-FIELD^^5^2"
^DD(811.33,0,"DT")="3030221"
^DD(811.33,0,"NM","PATIENT DATA SOURCE")=""
^DD(811.33,0,"UP")="811.3"
^DD(811.33,.01,0)="FILE NUMBER^MNJ12,3X^^0;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""4N.N) X S:$D(X) DINUM=X"
^DD(811.33,.01,1,0)="^.1^^0"
^DD(811.33,.01,3)="Type a Number between 0 and 99999999, 3 Decimal Digits"
^DD(811.33,.01,21,0)="^^3^3^3050117^"
^DD(811.33,.01,21,1,0)="This is the file number of a file that is to be searched for patient"
^DD(811.33,.01,21,2,0)="data. Examples of file numbers are 45, 70, 9000010.07, 8000010.18, and"
^DD(811.33,.01,21,3,0)="9000011."
^DD(811.33,.01,"DT")="3030321"
^DD(811.33,5,0)="CODE TYPE^811.335^^1;0"
^DD(811.33,5,21,0)="^.001^7^7^3050117^^"
^DD(811.33,5,21,1,0)="This is the type of code to search for - ICD 0, ICD 9, or CPT - and"
^DD(811.33,5,21,2,0)="corresponds to the file number where the codes are stored."
^DD(811.33,5,21,3,0)=""
^DD(811.33,5,21,4,0)="Code   File Number"
^DD(811.33,5,21,5,0)="ICD 0     80.1"
^DD(811.33,5,21,6,0)="ICD 9     80"
^DD(811.33,5,21,7,0)="CPT       81"
^DD(811.33,"B","CODE TYPE",5)=""
^DD(811.33,"B","FILE NUMBER",.01)=""
^DD(811.33,"GL",0,1,.01)=""
^DD(811.33,"GL",1,0,5)=""
^DD(811.33,"SB",811.335,5)=""
^DD(811.335,0)="CODE TYPE SUB-FIELD^^5^3"
^DD(811.335,0,"DT")="3030221"
^DD(811.335,0,"NM","CODE TYPE")=""
^DD(811.335,0,"UP")="811.33"
^DD(811.335,.01,0)="CODE TYPE^MNJ12,3X^^0;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""4N.N) X S:$D(X) DINUM=X"
^DD(811.335,.01,1,0)="^.1^^0"
^DD(811.335,.01,3)="Type a Number between 0 and 99999999, 3 Decimal Digits"
^DD(811.335,.01,21,0)="^^1^1^3050117^"
^DD(811.335,.01,21,1,0)="This is the number of the file where the code is defined."
^DD(811.335,.01,"DT")="3030321"
^DD(811.335,1,0)="NUMBER OF NODES^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.335,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(811.335,1,21,0)="^^2^2^3050117^"
^DD(811.335,1,21,1,0)="This is the number of nodes to search in the file containing the"
^DD(811.335,1,21,2,0)="patient data."
^DD(811.335,1,"DT")="3030221"
^DD(811.335,5,0)="NODE LIST^811.3355^^1;0"
^DD(811.335,5,21,0)="^.001^4^4^3050117^^"
^DD(811.335,5,21,1,0)="This is the list of nodes to search; an example is:"
^DD(811.335,5,21,2,0)=" ^PXD(811.3,1,""PDS"",45,1,80,1,1,0) = D ICD2"
^DD(811.335,5,21,3,0)="the structure is described above in the general description of the"
^DD(811.335,5,21,4,0)="Patient Data Source multiple."
^DD(811.335,"B","CODE TYPE",.01)=""
^DD(811.335,"B","NODE LIST",5)=""
^DD(811.335,"B","NUMBER OF NODES",1)=""
^DD(811.335,"GL",0,1,.01)=""
^DD(811.335,"GL",0,2,1)=""
^DD(811.335,"GL",1,0,5)=""
^DD(811.335,"SB",811.3355,5)=""
^DD(811.3355,0)="NODE LIST SUB-FIELD^^.01^1"
^DD(811.3355,0,"DT")="3030221"
^DD(811.3355,0,"IX","B",811.3355,.01)=""
^DD(811.3355,0,"NM","NODE LIST")=""
^DD(811.3355,0,"UP")="811.335"
^DD(811.3355,.01,0)="NODE^MF^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(811.3355,.01,1,0)="^.1"
^DD(811.3355,.01,1,1,0)="811.3355^B"
^DD(811.3355,.01,1,1,1)="S ^PXD(811.3,DA(3),""PDS"",DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(811.3355,.01,1,1,2)="K ^PXD(811.3,DA(3),""PDS"",DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(811.3355,.01,3)="Answer must be 1-8 characters in length."
^DD(811.3355,.01,21,0)="^^1^1^3050117^"
^DD(811.3355,.01,21,1,0)="This is the node in the patient data file to check for a match."
^DD(811.3355,.01,"DT")="3030221"
^DD(811.3355,"B","NODE",.01)=""
^DD(811.3355,"GL",0,1,.01)=""
^DD(811.3355,"IX",.01)=""
^DD(811.371,0)="RADIOLOGY CPT LIST SUB-FIELD^^1^2"
^DD(811.371,0,"DT")="3000322"
^DD(811.371,0,"NM","RADIOLOGY CPT LIST")=""
^DD(811.371,0,"UP")="811.3"
^DD(811.371,.01,0)="RADIOLOGY CPT CODE^P81'^ICPT(^0;1^Q"
^DD(811.371,.01,1,0)="^.1^^0"
^DD(811.371,.01,3)="Do not edit this field."
^DD(811.371,.01,21,0)="^.001^1^1^3050117^^^^"
^DD(811.371,.01,21,1,0)="This is a radiology CPT code pointer."
^DD(811.371,.01,"DT")="3000505"
^DD(811.371,1,0)="RADIOLOGY PROCEDURE^P71'^RAMIS(71,^0;2^Q"
^DD(811.371,1,3)="Do not edit this field."
^DD(811.371,1,21,0)="^.001^2^2^3050117^^^"
^DD(811.371,1,21,1,0)="This is the pointer to the radiology procedure that corresponds to the CPT"
^DD(811.371,1,21,2,0)="code in the .01 field."
^DD(811.371,1,"DT")="3030228"
^DD(811.371,"B","RADIOLOGY CPT CODE",.01)=""
^DD(811.371,"B","RADIOLOGY PROCEDURE",1)=""
^DD(811.371,"GL",0,1,.01)=""
^DD(811.371,"GL",0,2,1)=""
^DD(811.381,0)="ICPT LIST SUB-FIELD^^.01^1"
^DD(811.381,0,"DT")="3000321"
^DD(811.381,0,"NM","ICPT LIST")=""
^DD(811.381,0,"UP")="811.3"
^DD(811.381,.01,0)="CPT CODE^P81'^ICPT(^0;1^Q"
^DD(811.381,.01,1,0)="^.1^^0"
^DD(811.381,.01,3)="Do not edit this field."
^DD(811.381,.01,21,0)="^.001^1^1^3050117^^"
^DD(811.381,.01,21,1,0)="This is a pointer to a CPT code."
^DD(811.381,.01,"DT")="3000505"
^DD(811.381,"B","CPT CODE",.01)=""
^DD(811.381,"GL",0,1,.01)=""
^DD(811.4,0)="FIELD^^5^10"
^DD(811.4,0,"DDA")="N"
^DD(811.4,0,"DT")="3030813"
^DD(811.4,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(811.4,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(811.4,0,"NM","REMINDER COMPUTED FINDINGS")=""
^DD(811.4,0,"PT",810.31,.04)=""
^DD(811.4,0,"PT",810.32,.01)=""
^DD(811.4,0,"PT",811.52,.01)=""
^DD(811.4,0,"PT",811.902,.01)=""
^DD(811.4,0,"VR")="2.0"
^DD(811.4,0,"VRPK")="PXRM"
^DD(811.4,.01,0)="NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,811.4)) X"
^DD(811.4,.01,1,0)="^.1^^0"
^DD(811.4,.01,3)="Answer must be 3-64 characters in length."
^DD(811.4,.01,21,0)="^.001^2^2^3050117^^^^"
^DD(811.4,.01,21,1,0)="This is the name of the computed finding and is the name the User will"
^DD(811.4,.01,21,2,0)="use when adding a computed finding to a reminder definition or a term."
^DD(811.4,.01,"DT")="3030813"
^DD(811.4,.02,0)="ROUTINE^F^^0;2^K:$L(X)>8!($L(X)<3) X"
^DD(811.4,.02,3)="Enter the M routine name."
^DD(811.4,.02,8.5)="@"
^DD(811.4,.02,9)="@"
^DD(811.4,.02,21,0)="^.001^3^3^3050117^^^^"
^DD(811.4,.02,21,1,0)="This is the name of an M routine that contains the code for the"
^DD(811.4,.02,21,2,0)="computed finding. The entry point to use is specified in the ENTRY"
^DD(811.4,.02,21,3,0)="POINT field."
^DD(811.4,.02,"DT")="2990526"
^DD(811.4,.03,0)="ENTRY POINT^F^^0;3^K:$L(X)>8!($L(X)<2) X"
^DD(811.4,.03,3)="Enter the entry point, must be 2-8 characters in length."
^DD(811.4,.03,8.5)="@"
^DD(811.4,.03,9)="@"
^DD(811.4,.03,21,0)="^.001^2^2^3050117^^^^"
^DD(811.4,.03,21,1,0)="This is the entry point in the routine specified in the ROUTINE"
^DD(811.4,.03,21,2,0)="field."
^DD(811.4,.03,"DT")="2990527"
^DD(811.4,.04,0)="PRINT NAME^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(811.4,.04,3)="Enter the PRINT NAME, up to 40 characters."
^DD(811.4,.04,21,0)="^.001^2^2^3050117^^^"
^DD(811.4,.04,21,1,0)="The PRINT NAME will be displayed in the Clinical Maintenance output for"
^DD(811.4,.04,21,2,0)="computed findings."
^DD(811.4,.04,"DT")="3000113"
^DD(811.4,1,0)="DESCRIPTION^811.41^^1;0"
^DD(811.4,1,21,0)="^.001^3^3^3050117^^^^"
^DD(811.4,1,21,1,0)="This is the description of the computed finding. It should explain its"
^DD(811.4,1,21,2,0)="purpose and how it is to be used including what data is returned for"
^DD(811.4,1,21,3,0)="use in a Condition."
^DD(811.4,5,0)="TYPE^S^M:MULTIPLE;L:LIST;S:SINGLE;^0;5^Q"
^DD(811.4,5,21,0)="^^4^4^3050117^"
^DD(811.4,5,21,1,0)="This is the type of computed finding; the possible values are ""S"" for"
^DD(811.4,5,21,2,0)="single, ""M"" for multiple, and ""L"" for list. The default value is ""S""."
^DD(811.4,5,21,3,0)="For a detailed explanation of the computed finding types see the"
^DD(811.4,5,21,4,0)="Clinical Reminder Manager manual."
^DD(811.4,5,"DT")="3030129"
^DD(811.4,100,0)="CLASS^RSX^N:NATIONAL;V:VISN;L:LOCAL;^100;1^K:'$$VCLASS^PXRMINTR(X) X"
^DD(811.4,100,3)="Enter the class."
^DD(811.4,100,21,0)="^.001^4^4^3050117^^^^"
^DD(811.4,100,21,1,0)="This is the class of computed finding. Possible values are ""N"" for"
^DD(811.4,100,21,2,0)="national, ""V"" for VISN, and ""L"" for local. National computed findings"
^DD(811.4,100,21,3,0)="will be  prefixed with VA- and cannot be edited. Local or VISN entry"
^DD(811.4,100,21,4,0)="names cannot  start with VA-."
^DD(811.4,100,"DT")="3010518"
^DD(811.4,101,0)="SPONSOR^P811.6^PXRMD(811.6,^100;2^Q"
^DD(811.4,101,3)="Enter the sponsor."
^DD(811.4,101,21,0)="^.001^1^1^3050117^^"
^DD(811.4,101,21,1,0)="This is the organization or group that sponsors this computed finding."
^DD(811.4,101,"DT")="3010419"
^DD(811.4,102,0)="REVIEW DATE^D^^100;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(811.4,102,3)="Enter the review date."
^DD(811.4,102,21,0)="^.001^4^4^3050117^^"
^DD(811.4,102,21,1,0)="The REVIEW DATE is used to determine when the computed finding should"
^DD(811.4,102,21,2,0)="be reviewed to verify that it is current with the latest standards and"
^DD(811.4,102,21,3,0)="guidelines. You can find all computed findings whose review date has"
^DD(811.4,102,21,4,0)="passed using the Reminder Review Date report."
^DD(811.4,102,"DT")="3010419"
^DD(811.4,110,0)="EDIT HISTORY^811.42D^^110;0"
^DD(811.4,110,21,0)="^.001^2^2^3050117^^^^"
^DD(811.4,110,21,1,0)="This multiple is used to record a history of changes made to the"
^DD(811.4,110,21,2,0)="computed finding."
^DD(811.4,"B","CLASS",100)=""
^DD(811.4,"B","DESCRIPTION",1)=""
^DD(811.4,"B","EDIT HISTORY",110)=""
^DD(811.4,"B","ENTRY POINT",.03)=""
^DD(811.4,"B","NAME",.01)=""
^DD(811.4,"B","PRINT NAME",.04)=""
^DD(811.4,"B","REVIEW DATE",102)=""
^DD(811.4,"B","ROUTINE",.02)=""
^DD(811.4,"B","SPONSOR",101)=""
^DD(811.4,"B","TYPE",5)=""
^DD(811.4,"GL",0,1,.01)=""
^DD(811.4,"GL",0,2,.02)=""
^DD(811.4,"GL",0,3,.03)=""
^DD(811.4,"GL",0,4,.04)=""
^DD(811.4,"GL",0,5,5)=""
^DD(811.4,"GL",1,0,1)=""
^DD(811.4,"GL",100,1,100)=""
^DD(811.4,"GL",100,2,101)=""
^DD(811.4,"GL",100,3,102)=""
^DD(811.4,"GL",110,0,110)=""
^DD(811.4,"RQ",.01)=""
^DD(811.4,"RQ",100)=""
^DD(811.4,"SB",811.41,1)=""
^DD(811.4,"SB",811.42,110)=""
^DD(811.41,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(811.41,0,"DT")="3000405"
^DD(811.41,0,"NM","DESCRIPTION")=""
^DD(811.41,0,"UP")="811.4"
^DD(811.41,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(811.41,.01,3)="Enter a description for this computed finding."
^DD(811.41,.01,"DT")="3000405"
^DD(811.41,"B","DESCRIPTION",.01)=""
^DD(811.41,"GL",0,1,.01)=""
^DD(811.42,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(811.42,0,"DT")="3010419"
^DD(811.42,0,"IX","B",811.42,.01)=""
^DD(811.42,0,"NM","EDIT HISTORY")=""
^DD(811.42,0,"UP")="811.4"
^DD(811.42,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.42,.01,1,0)="^.1"
^DD(811.42,.01,1,1,0)="811.42^B"
^DD(811.42,.01,1,1,1)="S ^PXRMD(811.4,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(811.42,.01,1,1,2)="K ^PXRMD(811.4,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(811.42,.01,21,0)="^.001^2^2^3050117^^"
^DD(811.42,.01,21,1,0)="This is the date and time when editing was done. This field is set"
^DD(811.42,.01,21,2,0)="automatically and should not be changed by the user."
^DD(811.42,.01,"DT")="3010419"
^DD(811.42,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(811.42,1,21,0)="^.001^2^2^3050117^^"
^DD(811.42,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(811.42,1,21,2,0)="and should not be changed by the user."
^DD(811.42,1,"DT")="3010419"
^DD(811.42,2,0)="EDIT COMMENTS^811.422^^1;0"
^DD(811.42,2,21,0)="^.001^2^2^3050117^^^"
^DD(811.42,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(811.42,2,21,2,0)="during the editing session."
^DD(811.42,2,"DT")="3010425"
^DD(811.42,"B","EDIT BY",1)=""
^DD(811.42,"B","EDIT COMMENTS",2)=""
^DD(811.42,"B","EDIT DATE",.01)=""
^DD(811.42,"GL",0,1,.01)=""
^DD(811.42,"GL",0,2,1)=""
^DD(811.42,"GL",1,0,2)=""
^DD(811.42,"IX",.01)=""
^DD(811.42,"SB",811.422,2)=""
^DD(811.422,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(811.422,0,"DT")="3010419"
^DD(811.422,0,"NM","EDIT COMMENTS")=""
^DD(811.422,0,"UP")="811.42"
^DD(811.422,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(811.422,.01,3)="Enter your edit comments."
^DD(811.422,.01,"DT")="3010425"
^DD(811.422,"B","EDIT COMMENTS",.01)=""
^DD(811.422,"GL",0,1,.01)=""
^DD(811.5,0)="FIELD^^110^8"
^DD(811.5,0,"DDA")="N"
^DD(811.5,0,"DT")="3070413"
^DD(811.5,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(811.5,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(811.5,0,"NM","REMINDER TERM")=""
^DD(811.5,0,"PT",801.41,116)=""
^DD(811.5,0,"PT",810.31,.03)=""
^DD(811.5,0,"PT",810.31,.04)=""
^DD(811.5,0,"PT",810.32,.01)=""
^DD(811.5,0,"PT",810.331,.02)=""
^DD(811.5,0,"PT",810.4,1)=""
^DD(811.5,0,"PT",810.801,1)=""
^DD(811.5,0,"PT",811.902,.01)=""
^DD(811.5,0,"VR")="2.0"
^DD(811.5,0,"VRPK")="PXRM"
^DD(811.5,.01,0)="NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(811.5,.01,1,0)="^.1^^0"
^DD(811.5,.01,3)="Enter the name of the term, up to 64 characters."
^DD(811.5,.01,21,0)="^.001^2^2^3050124^^^^"
^DD(811.5,.01,21,1,0)="This is the name of the term. The names of national terms are prefixed"
^DD(811.5,.01,21,2,0)="with ""VA-""."
^DD(811.5,.01,"DT")="3040308"
^DD(811.5,.04,0)="DATE CREATED^RD^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(811.5,.04,21,0)="^.001^1^1^3050124^^^^"
^DD(811.5,.04,21,1,0)="This is the date when the term was created."
^DD(811.5,.04,"DT")="3000505"
^DD(811.5,1,0)="DESCRIPTION^811.51^^1;0"
^DD(811.5,1,21,0)="^.001^1^1^3050124^^^"
^DD(811.5,1,21,1,0)="This is a description of the term."
^DD(811.5,20,0)="FINDINGS^811.52V^^20;0"
^DD(811.5,20,21,0)="^.001^4^4^3070413^^^^"
^DD(811.5,20,21,1,0)="This multiple identifies which finding items have been selected to"
^DD(811.5,20,21,2,0)="represent the term. If there is more than one finding item, they will"
^DD(811.5,20,21,3,0)="all be evaluated and the most recent finding will represent the"
^DD(811.5,20,21,4,0)="term."
^DD(811.5,20,"DT")="2990914"
^DD(811.5,100,0)="CLASS^RSX^N:NATIONAL;V:VISN;L:LOCAL;^100;1^K:'$$VCLASS^PXRMINTR(X) X"
^DD(811.5,100,3)="Enter the CLASS."
^DD(811.5,100,21,0)="^.001^3^3^3050124^^^^"
^DD(811.5,100,21,1,0)="This is the class of the term. Possible classes are ""N"" for national,"
^DD(811.5,100,21,2,0)="""V"" for VISN, and ""L"" for local. For national terms, only the finding"
^DD(811.5,100,21,3,0)="list can be edited."
^DD(811.5,100,"DT")="3010518"
^DD(811.5,101,0)="SPONSOR^P811.6^PXRMD(811.6,^100;2^Q"
^DD(811.5,101,3)="Enter the SPONSOR."
^DD(811.5,101,21,0)="^.001^2^2^3050124^^^^"
^DD(811.5,101,21,1,0)="This is the organization, group, or individual that sponsors this"
^DD(811.5,101,21,2,0)="definition."
^DD(811.5,101,"DT")="3010427"
^DD(811.5,102,0)="REVIEW DATE^D^^100;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(811.5,102,3)="Enter the REVIEW DATE."
^DD(811.5,102,21,0)="^.001^4^4^3050124^^^"
^DD(811.5,102,21,1,0)="Review Date is used to determine when the term should be reviewed to"
^DD(811.5,102,21,2,0)="verify that it is current with the latest standards and guidelines. You"
^DD(811.5,102,21,3,0)="can find all terms whose review date has passed using the Clinical"
^DD(811.5,102,21,4,0)="Reminder Review Date Report. "
^DD(811.5,102,"DT")="3010419"
^DD(811.5,110,0)="EDIT HISTORY^811.53D^^110;0"
^DD(811.5,110,21,0)="^.001^1^1^3050124^^^"
^DD(811.5,110,21,1,0)="This multiple is used to record a history of changes made to the term."
^DD(811.5,"B","CLASS",100)=""
^DD(811.5,"B","DATE CREATED",.04)=""
^DD(811.5,"B","DESCRIPTION",1)=""
^DD(811.5,"B","EDIT HISTORY",110)=""
^DD(811.5,"B","FINDINGS",20)=""
^DD(811.5,"B","NAME",.01)=""
^DD(811.5,"B","REVIEW DATE",102)=""
^DD(811.5,"B","SPONSOR",101)=""
^DD(811.5,"GL",0,1,.01)=""
^DD(811.5,"GL",0,4,.04)=""
^DD(811.5,"GL",1,0,1)=""
^DD(811.5,"GL",20,0,20)=""
^DD(811.5,"GL",100,1,100)=""
^DD(811.5,"GL",100,2,101)=""
^DD(811.5,"GL",100,3,102)=""
^DD(811.5,"GL",110,0,110)=""
^DD(811.5,"RQ",.01)=""
^DD(811.5,"RQ",.04)=""
^DD(811.5,"RQ",100)=""
^DD(811.5,"SB",811.51,1)=""
^DD(811.5,"SB",811.52,20)=""
^DD(811.5,"SB",811.53,110)=""
^DD(811.51,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(811.51,0,"DT")="2990512"
^DD(811.51,0,"NM","DESCRIPTION")=""
^DD(811.51,0,"UP")="811.5"
^DD(811.51,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(811.51,.01,3)="Enter the description of the term."
^DD(811.51,.01,"DT")="2990512"
^DD(811.51,"B","DESCRIPTION",.01)=""
^DD(811.51,"GL",0,1,.01)=""
^DD(811.52,0)="FINDINGS SUB-FIELD^^28^17"
^DD(811.52,0,"DT")="3070413"
^DD(811.52,0,"IX","B",811.52,.01)=""
^DD(811.52,0,"IX","E",811.52,.01)=""
^DD(811.52,0,"NM","FINDINGS")=""
^DD(811.52,0,"UP")="811.5"
^DD(811.52,.01,0)="FINDING ITEM^MVX^^0;1^Q"
^DD(811.52,.01,1,0)="^.1"
^DD(811.52,.01,1,1,0)="811.52^B"
^DD(811.52,.01,1,1,1)="S ^PXRMD(811.5,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(811.52,.01,1,1,2)="K ^PXRMD(811.5,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(811.52,.01,1,1,3)="Required Index for Variable Pointer"
^DD(811.52,.01,1,2,0)="811.52^E^MUMPS"
^DD(811.52,.01,1,2,1)="D SENODE^PXRMENOD(.X,.DA,811.5)"
^DD(811.52,.01,1,2,2)="D KENODE^PXRMENOD(.X,.DA,811.5)"
^DD(811.52,.01,1,2,"%D",0)="^.101^15^15^3060421^^^"
^DD(811.52,.01,1,2,"%D",1,0)="This cross-reference is used to group findings by type. The index it"
^DD(811.52,.01,1,2,"%D",2,0)="creates has the form:"
^DD(811.52,.01,1,2,"%D",3,0)=" ^PXRMD(811.5,DA(1),20,""E"",GLOBAL,IEN,DA)"
^DD(811.52,.01,1,2,"%D",4,0)=" where "
^DD(811.52,.01,1,2,"%D",5,0)="  DA(1) is the internal entry number in file # 811.5."
^DD(811.52,.01,1,2,"%D",6,0)="  GLOBAL is the global name of the global that defines the finding."
^DD(811.52,.01,1,2,"%D",7,0)="   For example, the global name for file #811.5 is ^PXRMD(811.5,."
^DD(811.52,.01,1,2,"%D",8,0)="  IEN is the internal entry number of the finding in GLOBAL."
^DD(811.52,.01,1,2,"%D",9,0)="  DA is the finding number."
^DD(811.52,.01,1,2,"%D",10,0)=""
^DD(811.52,.01,1,2,"%D",11,0)="Some examples:"
^DD(811.52,.01,1,2,"%D",12,0)=" ^PXRMD(811.5,2,20,""E"",""AUTTHF("",73,1)="
^DD(811.52,.01,1,2,"%D",13,0)=" ^PXRMD(811.5,7,20,""E"",""PXD(811.2,"",2,1)="
^DD(811.52,.01,1,2,"%D",14,0)=" ^PXRMD(811.5,10,20,""E"",""PSNDF(50.6,"",183,1)="
^DD(811.52,.01,1,2,"%D",15,0)=""
^DD(811.52,.01,1,2,"DT")="3060417"
^DD(811.52,.01,3)="Enter a finding item in the format: Prefix.Name"
^DD(811.52,.01,21,0)="^.001^2^2^3061212^^^^"
^DD(811.52,.01,21,1,0)="This field identifies the finding items included in the reminder"
^DD(811.52,.01,21,2,0)="term."
^DD(811.52,.01,"DT")="3070413"
^DD(811.52,.01,"V",0)="^.12P^16^16"
^DD(811.52,.01,"V",1,0)="50^DRUG^5^DR^n^n"
^DD(811.52,.01,"V",2,0)="9999999.09^EDUCATION TOPIC^10^ED^n^n"
^DD(811.52,.01,"V",3,0)="9999999.15^EXAM^15^EX^n^n"
^DD(811.52,.01,"V",4,0)="9999999.64^HEALTH FACTOR^20^HF^n^n"
^DD(811.52,.01,"V",5,0)="9999999.14^IMMUNIZATION^25^IM^n^n"
^DD(811.52,.01,"V",6,0)="60^LABORATORY TEST^30^LT^n^n"
^DD(811.52,.01,"V",7,0)="601.71^MH TESTS AND SURVEYS^35^MH^n^n"
^DD(811.52,.01,"V",8,0)="101.43^ORDERABLE ITEM^40^OI^n^n"
^DD(811.52,.01,"V",9,0)="71^RADIOLOGY PROCEDURE^45^RP^n^n"
^DD(811.52,.01,"V",10,0)="811.4^REMINDER COMPUTED FINDING^50^CF^n^n"
^DD(811.52,.01,"V",11,0)="811.2^REMINDER TAXONOMY^55^TX^n^n"
^DD(811.52,.01,"V",12,0)="9999999.28^SKIN TEST^65^ST^n^n"
^DD(811.52,.01,"V",13,0)="50.605^VA DRUG CLASS^70^DC^n^n"
^DD(811.52,.01,"V",14,0)="50.6^VA GENERIC^75^DG^n^n"
^DD(811.52,.01,"V",15,0)="120.51^VITAL MEASUREMENT^80^VM^n^n"
^DD(811.52,.01,"V",16,0)="810.9^REMINDER LOCATION LIST^16^RL^n^n"
^DD(811.52,.01,"V","B",50,1)=""
^DD(811.52,.01,"V","B",50.6,14)=""
^DD(811.52,.01,"V","B",50.605,13)=""
^DD(811.52,.01,"V","B",60,6)=""
^DD(811.52,.01,"V","B",71,9)=""
^DD(811.52,.01,"V","B",101.43,8)=""
^DD(811.52,.01,"V","B",120.51,15)=""
^DD(811.52,.01,"V","B",601.71,7)=""
^DD(811.52,.01,"V","B",810.9,16)=""
^DD(811.52,.01,"V","B",811.2,11)=""
^DD(811.52,.01,"V","B",811.4,10)=""
^DD(811.52,.01,"V","B",9999999.09,2)=""
^DD(811.52,.01,"V","B",9999999.14,5)=""
^DD(811.52,.01,"V","B",9999999.15,3)=""
^DD(811.52,.01,"V","B",9999999.28,12)=""
^DD(811.52,.01,"V","B",9999999.64,4)=""
^DD(811.52,.01,"V","M","DRUG",1)=""
^DD(811.52,.01,"V","M","EDUCATION TOPIC",2)=""
^DD(811.52,.01,"V","M","EXAM",3)=""
^DD(811.52,.01,"V","M","HEALTH FACTOR",4)=""
^DD(811.52,.01,"V","M","IMMUNIZATION",5)=""
^DD(811.52,.01,"V","M","LABORATORY TEST",6)=""
^DD(811.52,.01,"V","M","MH TESTS AND SURVEYS",7)=""
^DD(811.52,.01,"V","M","ORDERABLE ITEM",8)=""
^DD(811.52,.01,"V","M","RADIOLOGY PROCEDURE",9)=""
^DD(811.52,.01,"V","M","REMINDER COMPUTED FINDING",10)=""
^DD(811.52,.01,"V","M","REMINDER LOCATION LIST",16)=""
^DD(811.52,.01,"V","M","REMINDER TAXONOMY",11)=""
^DD(811.52,.01,"V","M","SKIN TEST",12)=""
^DD(811.52,.01,"V","M","VA DRUG CLASS",13)=""
^DD(811.52,.01,"V","M","VA GENERIC",14)=""
^DD(811.52,.01,"V","M","VITAL MEASUREMENT",15)=""
^DD(811.52,.01,"V","O",5,1)=""
^DD(811.52,.01,"V","O",10,2)=""
^DD(811.52,.01,"V","O",15,3)=""
^DD(811.52,.01,"V","O",16,16)=""
^DD(811.52,.01,"V","O",20,4)=""
^DD(811.52,.01,"V","O",25,5)=""
^DD(811.52,.01,"V","O",30,6)=""
^DD(811.52,.01,"V","O",35,7)=""
^DD(811.52,.01,"V","O",40,8)=""
^DD(811.52,.01,"V","O",45,9)=""
^DD(811.52,.01,"V","O",50,10)=""
^DD(811.52,.01,"V","O",55,11)=""
^DD(811.52,.01,"V","O",65,12)=""
^DD(811.52,.01,"V","O",70,13)=""
^DD(811.52,.01,"V","O",75,14)=""
^DD(811.52,.01,"V","O",80,15)=""
^DD(811.52,.01,"V","P","CF",10)=""
^DD(811.52,.01,"V","P","DC",13)=""
^DD(811.52,.01,"V","P","DG",14)=""
^DD(811.52,.01,"V","P","DR",1)=""
^DD(811.52,.01,"V","P","ED",2)=""
^DD(811.52,.01,"V","P","EX",3)=""
^DD(811.52,.01,"V","P","HF",4)=""
^DD(811.52,.01,"V","P","IM",5)=""
^DD(811.52,.01,"V","P","LT",6)=""
^DD(811.52,.01,"V","P","MH",7)=""
^DD(811.52,.01,"V","P","OI",8)=""
^DD(811.52,.01,"V","P","RL",16)=""
^DD(811.52,.01,"V","P","RP",9)=""
^DD(811.52,.01,"V","P","ST",12)=""
^DD(811.52,.01,"V","P","TX",11)=""
^DD(811.52,.01,"V","P","VM",15)=""
^DD(811.52,9,0)="BEGINNING DATE/TIME^FX^^0;8^S X=$$COTN^PXRMDATE(X) K:(($L(X)<1)!($L(X)>20)!('$$VDT^PXRMINTR(X))) X"
^DD(811.52,9,3)="Enter the Beginning Date/Time"
^DD(811.52,9,21,0)="^.001^14^14^3050124^^^^"
^DD(811.52,9,21,1,0)="This is the beginning date/time to search for the finding. When"
^DD(811.52,9,21,2,0)="combined with the ENDING DATE/TIME, they define a date range in"
^DD(811.52,9,21,3,0)="which to search for the finding."
^DD(811.52,9,21,4,0)=""
^DD(811.52,9,21,5,0)="This can be entered in acceptable FileMan date/time formats and"
^DD(811.52,9,21,6,0)="abbreviations. In addition, you may use the abbreviations T-NY or"
^DD(811.52,9,21,7,0)="NOW-NY, where N is an integer and Y stands for years. If this is"
^DD(811.52,9,21,8,0)="null, then the beginning date/time will correspond with the "
^DD(811.52,9,21,9,0)="date/time of the oldest entry."
^DD(811.52,9,21,10,0)=""
^DD(811.52,9,21,11,0)="See the FileMan Getting Started Manual to learn about acceptable"
^DD(811.52,9,21,12,0)="FileMan date/time formats and abbreviations."
^DD(811.52,9,21,13,0)=""
^DD(811.52,9,21,14,0)=""
^DD(811.52,9,"DT")="3040924"
^DD(811.52,10,0)="USE INACTIVE PROBLEMS^S^1:YES;0:NO;^0;9^Q"
^DD(811.52,10,3)="Enter a 1 or YES if you want inactive problems used."
^DD(811.52,10,21,0)="^.001^5^5^3050124^^^"
^DD(811.52,10,21,1,0)="Normally only active problems from the Problem List will be used in the"
^DD(811.52,10,21,2,0)="reminder evaluation. If USE INACTIVE PROBLEMS is set to YES, then both"
^DD(811.52,10,21,3,0)="active and inactive problems will be used. Note that this field applies"
^DD(811.52,10,21,4,0)="only to taxonomy findings."
^DD(811.52,10,21,5,0)=""
^DD(811.52,10,"DT")="3000314"
^DD(811.52,11,0)="WITHIN CATEGORY RANK^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.52,11,3)="Type a number between 0 and 999, 0 decimal digits."
^DD(811.52,11,21,0)="^.001^17^17^3050124^^^^"
^DD(811.52,11,21,1,0)="This field applies only to health factors. In order to understand how"
^DD(811.52,11,21,2,0)="it works, you need to understand how health factors work in the"
^DD(811.52,11,21,3,0)="reminder evaluation process. If you are not clear about this, see the"
^DD(811.52,11,21,4,0)="health factor section of the Clinical Reminders Manager Manual."
^DD(811.52,11,21,5,0)=""
^DD(811.52,11,21,6,0)="The default behavior is to use only the most recent health factor"
^DD(811.52,11,21,7,0)="within a category. A problem can arise if there are two or more health"
^DD(811.52,11,21,8,0)="factors within a category and they both have the same date. (This can"
^DD(811.52,11,21,9,0)="happen if both health factors are given during the same encounter). "
^DD(811.52,11,21,10,0)="When the dates are the same, the health factor with the highest WITHIN"
^DD(811.52,11,21,11,0)="CATEGORY RANK will be used. This is a numerical value like RANK"
^DD(811.52,11,21,12,0)="FREQUENCY, with 1 being the highest rank."
^DD(811.52,11,21,13,0)=""
^DD(811.52,11,21,14,0)="If WITHIN CATEGORY RANK has the special value of 0, then the"
^DD(811.52,11,21,15,0)="categorization of health factors will be ignored and the health factor"
^DD(811.52,11,21,16,0)="will be treated as a distinct finding."
^DD(811.52,11,21,17,0)=""
^DD(811.52,11,"DT")="3000505"
^DD(811.52,12,0)="ENDING DATE/TIME^FX^^0;11^S X=$$COTN^PXRMDATE(X) K:(($L(X)<1)!($L(X)>20)!('$$VDT^PXRMINTR(X))) X"
^DD(811.52,12,3)="Enter the Ending Date/Time"
^DD(811.52,12,21,0)="^.001^15^15^3050124^^^^"
^DD(811.52,12,21,1,0)="This is the ending date/time to search for findings. When combined"
^DD(811.52,12,21,2,0)="with the BEGINNING DATE/TIME, they define a date range in which to"
^DD(811.52,12,21,3,0)="search for the finding. The ENDING DATE/TIME must be after the"
^DD(811.52,12,21,4,0)="BEGINNING DATE/TIME."
^DD(811.52,12,21,5,0)=""
^DD(811.52,12,21,6,0)="This can be entered in acceptable FileMan date/time formats and"
^DD(811.52,12,21,7,0)="abbreviations. In addition, you may use the abbreviations T-NY or "
^DD(811.52,12,21,8,0)="NOW-NY, where N is an integer and Y stands for years. If this is null,"
^DD(811.52,12,21,9,0)="then the end date/time will correspond with the date/time of the"
^DD(811.52,12,21,10,0)="most recent entry.  "
^DD(811.52,12,21,11,0)="                                 "
^DD(811.52,12,21,12,0)="See the FileMan Getting Started Manual to learn about acceptable"
^DD(811.52,12,21,13,0)="FileMan date/time formats and abbreviations."
^DD(811.52,12,21,14,0)=""
^DD(811.52,12,21,15,0)=""
^DD(811.52,12,"DT")="3040924"
^DD(811.52,13,0)="MH SCALE^NJ14,0X^^0;12^K:+X'=X!(X>99999999999999)!(X<1)!('$$VSCALET^PXRMMH(X)) X"
^DD(811.52,13,3)="Enter the scale number."
^DD(811.52,13,4)="D SCHELPT^PXRMMH"
^DD(811.52,13,21,0)="^.001^4^4^3070413^^^"
^DD(811.52,13,21,1,0)="This applies only to Mental Health Instrument findings. It sets the"
^DD(811.52,13,21,2,0)="default scale, i.e., the value for V in the Condition."
^DD(811.52,13,21,3,0)=""
^DD(811.52,13,21,4,0)=""
^DD(811.52,13,"DT")="3070430"
^DD(811.52,14,0)="CONDITION^FX^^3;1^K:($L(X)<3)!($L(X)>225)!('$$VCOND^PXRMCOND(X)) X"
^DD(811.52,14,3)="Answer must be 3-225 characters in length."
^DD(811.52,14,21,0)="^.001^49^49^3050124^^^^"
^DD(811.52,14,21,1,0)="The CONDITION must be written in M code based on the value returned from"
^DD(811.52,14,21,2,0)="the patient results for the finding. Each type of finding has a specific"
^DD(811.52,14,21,3,0)="field that provides the value available to use in the CONDITION logic."
^DD(811.52,14,21,4,0)="If the finding value is text, enclose the condition value in quotes "
^DD(811.52,14,21,5,0)="(e.g., ""positive""). If the finding value is numeric, do not use quotes"
^DD(811.52,14,21,6,0)="(e.g., 3)."
^DD(811.52,14,21,7,0)=" "
^DD(811.52,14,21,8,0)="An IF statement is used to evaluate the value.  The value is always"
^DD(811.52,14,21,9,0)="identified as V in the statement, regardless of the type of finding. If "
^DD(811.52,14,21,10,0)="the condition logic statement evaluates to true, the finding is "
^DD(811.52,14,21,11,0)="considered as found (true); otherwise the finding is considered as not"
^DD(811.52,14,21,12,0)="found (false)."
^DD(811.52,14,21,13,0)=" "
^DD(811.52,14,21,14,0)="Relational operators that may be used include: = equals, < less than, >"
^DD(811.52,14,21,15,0)="greater than, [ contains, ] follows and ? pattern matches. Logical"
^DD(811.52,14,21,16,0)="operators may be used to check multiple values: & And, ! Or, ' Not. "
^DD(811.52,14,21,17,0)="         "
^DD(811.52,14,21,18,0)="Typical examples of M code are as follows:"
^DD(811.52,14,21,19,0)="    I V=3 for Education Topic's Level of Understanding = 3"
^DD(811.52,14,21,20,0)="    I V=""H"" for Health Factor's Level/Severity=""H"""
^DD(811.52,14,21,21,0)="    I ($P(V,""/"",1)>140)&($P(V,""/"",2)>90) for elevated blood pressure"
^DD(811.52,14,21,22,0)="    systolic and diastolic values"
^DD(811.52,14,21,23,0)="    I ($P(V,""/"",1)>140)!($P(V,""/"",2)>90) for elevated blood pressure"
^DD(811.52,14,21,24,0)="    systolic or diastolic values"
^DD(811.52,14,21,25,0)="    I V[""BLACK"" for VA-RACE computed finding where race contains BLACK"
^DD(811.52,14,21,26,0)=" "
^DD(811.52,14,21,27,0)="Below is a brief summary for each finding type, the related field to use"
^DD(811.52,14,21,28,0)="for the value, and examples:"
^DD(811.52,14,21,29,0)=" "
^DD(811.52,14,21,30,0)="Finding type                Field Value Used        Example M Code"
^DD(811.52,14,21,31,0)=" "
^DD(811.52,14,21,32,0)=" Drug                       None"
^DD(811.52,14,21,33,0)=" Education Topic            Level of understanding  I V=3"
^DD(811.52,14,21,34,0)=" Exam                       Result                  I V=""N"""
^DD(811.52,14,21,35,0)=" Health Factor              Level/severity          I V=""H"""
^DD(811.52,14,21,36,0)=" Immunization               Series                  I V=""P"""
^DD(811.52,14,21,37,0)=" Laboratory Test            Result Value            I V>130"
^DD(811.52,14,21,38,0)=" Mental Health Instrument   Raw score               I V=1"
^DD(811.52,14,21,39,0)=" Orderable Item             Status                  I V=""complete"""
^DD(811.52,14,21,40,0)=" Radiology Procedure        None"
^DD(811.52,14,21,41,0)=" Reminder Computed Finding  Determined by programmer-See Manager Manual"
^DD(811.52,14,21,42,0)=" Reminder Taxonomy          None"
^DD(811.52,14,21,43,0)=" Skin Test                  Result                  I V=""N"""
^DD(811.52,14,21,44,0)=" VA Drug Class              None"
^DD(811.52,14,21,45,0)=" VA Generic                 None"
^DD(811.52,14,21,46,0)=" Vital Measurement          Rate                    I V>27"
^DD(811.52,14,21,47,0)=" "
^DD(811.52,14,21,48,0)="For details about allowed CONDITIONS for each finding type, see the"
^DD(811.52,14,21,49,0)="Clinical Reminders Manager Manual."
^DD(811.52,14,"DT")="3030923"
^DD(811.52,15,0)="CONDITION CASE SENSITIVE^S^0:NO;1:YES;^3;2^Q"
^DD(811.52,15,3)="Enter NO to make the condition case insensitive."
^DD(811.52,15,21,0)="^.001^3^3^3050124^^^^"
^DD(811.52,15,21,1,0)="When CONDITION CASE SENSITIVE is NO, then the CONDITION will be"
^DD(811.52,15,21,2,0)="evaluated without regard to case. The default is YES, so that CONDITION"
^DD(811.52,15,21,3,0)="evaluation is case sensitive.  "
^DD(811.52,15,"DT")="3040907"
^DD(811.52,16,0)="RXTYPE^FX^^0;13^S X=$$UP^XLFSTR(X) K:($L(X)>20)!($L(X)<1)!('$$VRXTYPE^PXRMRXTY(X)) X"
^DD(811.52,16,3)="Enter the RXTYPE string."
^DD(811.52,16,4)="D RXTYXHLP^PXRMRXTY"
^DD(811.52,16,21,0)="^.001^6^6^3050124^^^^"
^DD(811.52,16,21,1,0)="RXTYPE applies only to drug findings; it controls the search for"
^DD(811.52,16,21,2,0)="patient medications. The possible values for RXTYPE are ""I"" for"
^DD(811.52,16,21,3,0)="inpatient, ""N"" for non-VA meds, and ""O"" for outpatient. RXTYPE can"
^DD(811.52,16,21,4,0)="be any combination of these, such as ""NO"", which will search for"
^DD(811.52,16,21,5,0)="non-VA meds and outpatient medications. If RXTYPE is blank, it is"
^DD(811.52,16,21,6,0)="equivalent to a value of ""INO""."
^DD(811.52,16,"DT")="3040719"
^DD(811.52,17,0)="OCCURRENCE COUNT^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<-99)!(X?.E1"".""1N.N) X"
^DD(811.52,17,3)="Type a Number between -99 and 99, 0 Decimal Digits"
^DD(811.52,17,21,0)="^.001^8^8^3050124^^^^"
^DD(811.52,17,21,1,0)="This is the maximum number of occurrences of the finding in the date"
^DD(811.52,17,21,2,0)="range to return. If the OCCURRENCE COUNT is input as a positive number,"
^DD(811.52,17,21,3,0)="N, up to N of the most recent occurrences will be returned and the"
^DD(811.52,17,21,4,0)="finding will take the value of the most recent occurrence. If the"
^DD(811.52,17,21,5,0)="OCCURRENCE COUNT is input as a negative number, then this behavior is"
^DD(811.52,17,21,6,0)="reversed. Up to N of the oldest occurrences will be returned and the"
^DD(811.52,17,21,7,0)="finding will take the value of the oldest occurrence in the list."
^DD(811.52,17,21,8,0)=""
^DD(811.52,17,"DT")="3040513"
^DD(811.52,18,0)="USE STATUS/COND IN SEARCH^S^1:YES;0:NO;^3;3^Q"
^DD(811.52,18,3)="Enter a ""Yes"" if you want the STATUS LIST and/or CONDITION used in the finding search."
^DD(811.52,18,21,0)="^.001^11^11^3060509^^^^"
^DD(811.52,18,21,1,0)="Give this field a value of ""YES"" if you want the STATUS LIST and/or"
^DD(811.52,18,21,2,0)="CONDITION applied to each result found in the date range for this "
^DD(811.52,18,21,3,0)="finding. Only results that have a status on the list or for which"
^DD(811.52,18,21,4,0)="the CONDITION is true will be retained. The maximum number to retain"
^DD(811.52,18,21,5,0)="is specified by the OCCURRENCE COUNT.  "
^DD(811.52,18,21,6,0)="                                 "
^DD(811.52,18,21,7,0)="Note - if the finding has both a STATUS LIST and a CONDITION the"
^DD(811.52,18,21,8,0)="status check will be made first; the CONDITION will be applied only"
^DD(811.52,18,21,9,0)="if the finding passes the status check.  "
^DD(811.52,18,21,10,0)=""
^DD(811.52,18,21,11,0)=""
^DD(811.52,18,"DT")="3060509"
^DD(811.52,21,0)="STATUS LIST^811.54^^5;0"
^DD(811.52,21,9)="^"
^DD(811.52,21,21,0)="^.001^6^6^3050124^^^^"
^DD(811.52,21,21,1,0)="This field applies to finding types that have an associated status."
^DD(811.52,21,21,2,0)="When the search for patient findings is done, only those findings that"
^DD(811.52,21,21,3,0)="have a status on the list can be true. The allowable values depend on"
^DD(811.52,21,21,4,0)="the finding type. If no statuses are specified, then the default list"
^DD(811.52,21,21,5,0)="for each finding type will be used. The default lists can be found in"
^DD(811.52,21,21,6,0)="the Clinical Reminders Manager Manual."
^DD(811.52,22,0)="INTERNAL CONDITION^F^^10;1^K:$L(X)>245!($L(X)<3) X"
^DD(811.52,22,3)="Do not edit this field."
^DD(811.52,22,21,0)="^^3^3^3050124^"
^DD(811.52,22,21,1,0)="This is the internal form of the condition. It is set automatically and"
^DD(811.52,22,21,2,0)="should never be set by hand."
^DD(811.52,22,21,3,0)=""
^DD(811.52,22,"DT")="3050124"
^DD(811.52,23,0)="V SUBSCRIPT LIST^F^^11;1^K:$L(X)>245!($L(X)<1) X"
^DD(811.52,23,3)="Do not edit this field."
^DD(811.52,23,21,0)="^^4^4^3050124^"
^DD(811.52,23,21,1,0)="This is a list of V value subscripts used in the CONDITION. It is used"
^DD(811.52,23,21,2,0)="when the CONDITION is not case sensitive. This should never be set by"
^DD(811.52,23,21,3,0)="hand."
^DD(811.52,23,21,4,0)=""
^DD(811.52,23,"DT")="3050124"
^DD(811.52,26,0)="COMPUTED FINDING PARAMETER^F^^15;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(811.52,26,3)="Answer must be 1-245 characters in length."
^DD(811.52,26,21,0)="^^1^1^3050124^"
^DD(811.52,26,21,1,0)="This field is used to pass a parameter into the computed finding."
^DD(811.52,26,"DT")="3050124"
^DD(811.52,27,0)="USE START DATE^S^0:NO;1:YES;^0;15^Q"
^DD(811.52,27,3)="Enter YES if you want to use the Start Date as the date of the finding"
^DD(811.52,27,21,0)="^.001^5^5^3050808^^^"
^DD(811.52,27,21,1,0)="For findings that have a Start Date and a Stop Date the default is"
^DD(811.52,27,21,2,0)="to use the Stop Date as the date of the finding. Enter a YES for"
^DD(811.52,27,21,3,0)="this field if you want to use the Start Date as the date of the"
^DD(811.52,27,21,4,0)="finding."
^DD(811.52,27,21,5,0)=""
^DD(811.52,27,"DT")="3050708"
^DD(811.52,28,0)="INCLUDE VISIT DATA^S^0:NO;1:YES;^0;16^Q"
^DD(811.52,28,3)="Enter YES or NO"
^DD(811.52,28,21,0)="^.001^4^4^3060127^^"
^DD(811.52,28,21,1,0)="This applies only to V file findings; if it is ""YES"" then data from"
^DD(811.52,28,21,2,0)="the associated visit will be available for use in a Condition. The"
^DD(811.52,28,21,3,0)="default is ""NO."""
^DD(811.52,28,21,4,0)=""
^DD(811.52,28,"DT")="3060127"
^DD(811.52,"B","BEGINNING DATE/TIME",9)=""
^DD(811.52,"B","COMPUTED FINDING PARAMETER",26)=""
^DD(811.52,"B","CONDITION",14)=""
^DD(811.52,"B","CONDITION CASE SENSITIVE",15)=""
^DD(811.52,"B","ENDING DATE/TIME",12)=""
^DD(811.52,"B","FINDING ITEM",.01)=""
^DD(811.52,"B","INCLUDE VISIT DATA",28)=""
^DD(811.52,"B","INTERNAL CONDITION",22)=""
^DD(811.52,"B","MH SCALE",13)=""
^DD(811.52,"B","OCCURRENCE COUNT",17)=""
^DD(811.52,"B","RXTYPE",16)=""
^DD(811.52,"B","STATUS LIST",21)=""
^DD(811.52,"B","USE INACTIVE PROBLEMS",10)=""
^DD(811.52,"B","USE START DATE",27)=""
^DD(811.52,"B","USE STATUS/COND IN SEARCH",18)=""
^DD(811.52,"B","V SUBSCRIPT LIST",23)=""
^DD(811.52,"B","WITHIN CATEGORY RANK",11)=""
^DD(811.52,"GL",0,1,.01)=""
^DD(811.52,"GL",0,8,9)=""
^DD(811.52,"GL",0,9,10)=""
^DD(811.52,"GL",0,10,11)=""
^DD(811.52,"GL",0,11,12)=""
^DD(811.52,"GL",0,12,13)=""
^DD(811.52,"GL",0,13,16)=""
^DD(811.52,"GL",0,14,17)=""
^DD(811.52,"GL",0,15,27)=""
^DD(811.52,"GL",0,16,28)=""
^DD(811.52,"GL",3,1,14)=""
^DD(811.52,"GL",3,2,15)=""
^DD(811.52,"GL",3,3,18)=""
^DD(811.52,"GL",5,0,21)=""
^DD(811.52,"GL",10,1,22)=""
^DD(811.52,"GL",11,1,23)=""
^DD(811.52,"GL",15,"E1,245",26)=""
^DD(811.52,"IX",.01)=""
^DD(811.52,"SB",811.54,21)=""
^DD(811.53,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(811.53,0,"DT")="3010419"
^DD(811.53,0,"IX","B",811.53,.01)=""
^DD(811.53,0,"NM","EDIT HISTORY")=""
^DD(811.53,0,"UP")="811.5"
^DD(811.53,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.53,.01,1,0)="^.1"
^DD(811.53,.01,1,1,0)="811.53^B"
^DD(811.53,.01,1,1,1)="S ^PXRMD(811.5,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(811.53,.01,1,1,2)="K ^PXRMD(811.5,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(811.53,.01,3)="Do not edit this field."
^DD(811.53,.01,21,0)="^.001^2^2^3050124^^^"
^DD(811.53,.01,21,1,0)="This is the date and time when the editing was done. This field is set"
^DD(811.53,.01,21,2,0)="automatically and should not be changed by the user."
^DD(811.53,.01,"DT")="3010419"
^DD(811.53,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(811.53,1,3)="Do not edit this field."
^DD(811.53,1,21,0)="^.001^2^2^3050124^^^"
^DD(811.53,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(811.53,1,21,2,0)="and should not be changed by the user."
^DD(811.53,1,"DT")="3010419"
^DD(811.53,2,0)="EDIT COMMENTS^811.532^^1;0"
^DD(811.53,2,21,0)="^.001^2^2^3050124^^^"
^DD(811.53,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(811.53,2,21,2,0)="during the editing session."
^DD(811.53,2,"DT")="3010425"
^DD(811.53,"B","EDIT BY",1)=""
^DD(811.53,"B","EDIT COMMENTS",2)=""
^DD(811.53,"B","EDIT DATE",.01)=""
^DD(811.53,"GL",0,1,.01)=""
^DD(811.53,"GL",0,2,1)=""
^DD(811.53,"GL",1,0,2)=""
^DD(811.53,"IX",.01)=""
^DD(811.53,"SB",811.532,2)=""
^DD(811.532,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(811.532,0,"DT")="3010419"
^DD(811.532,0,"NM","EDIT COMMENTS")=""
^DD(811.532,0,"UP")="811.53"
^DD(811.532,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(811.532,.01,3)="Enter your edit comments."
^DD(811.532,.01,"DT")="3010425"
^DD(811.532,"B","EDIT COMMENTS",.01)=""
^DD(811.532,"GL",0,1,.01)=""
^DD(811.54,0)="STATUS LIST SUB-FIELD^^.01^1"
^DD(811.54,0,"DT")="3050124"
^DD(811.54,0,"IX","B",811.54,.01)=""
^DD(811.54,0,"NM","STATUS LIST")=""
^DD(811.54,0,"UP")="811.52"
^DD(811.54,.01,0)="STATUS^MFX^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(811.54,.01,1,0)="^.1"
^DD(811.54,.01,1,1,0)="811.54^B"
^DD(811.54,.01,1,1,1)="S ^PXRMD(811.5,DA(2),20,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(811.54,.01,1,1,2)="K ^PXRMD(811.5,DA(2),20,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(811.54,.01,3)="Enter a status."
^DD(811.54,.01,21,0)="^.001^10^10^3050124^^^^"
^DD(811.54,.01,21,1,0)="This multiple is used to store a list of possible statuses that the"
^DD(811.54,.01,21,2,0)="reminder will look for when evaluating a finding item. This field"
^DD(811.54,.01,21,3,0)="should only be populated if the finding item is a Drug, Radiology"
^DD(811.54,.01,21,4,0)="Procedure, Order, or Taxonomy. This field is designed to be"
^DD(811.54,.01,21,5,0)="populated only through the Reminder Definition/Term editors; this field"
^DD(811.54,.01,21,6,0)="should not be edited using FileMan. The reason for this is because"
^DD(811.54,.01,21,7,0)="each finding item can only have certain possible statuses assigned "
^DD(811.54,.01,21,8,0)="to it. The editors will evaluate the finding items and allow the"
^DD(811.54,.01,21,9,0)="users to select a status only from an appropriate list of statuses"
^DD(811.54,.01,21,10,0)="for that finding item."
^DD(811.54,.01,"DT")="3050124"
^DD(811.54,"B","STATUS",.01)=""
^DD(811.54,"GL",0,1,.01)=""
^DD(811.54,"IX",.01)=""
^DD(811.6,0)="FIELD^^110^6"
^DD(811.6,0,"DDA")="N"
^DD(811.6,0,"DT")="3050617"
^DD(811.6,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(811.6,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(811.6,0,"NM","REMINDER SPONSOR")=""
^DD(811.6,0,"PT",801.41,101)=""
^DD(811.6,0,"PT",802.4,101)=""
^DD(811.6,0,"PT",810.9,101)=""
^DD(811.6,0,"PT",811.2,101)=""
^DD(811.6,0,"PT",811.4,101)=""
^DD(811.6,0,"PT",811.5,101)=""
^DD(811.6,0,"PT",811.62,.01)=""
^DD(811.6,0,"PT",811.9,101)=""
^DD(811.6,0,"VR")="2.0"
^DD(811.6,0,"VRPK")="PXRM"
^DD(811.6,.01,0)="NAME^RF^^0;1^K:$L(X)>225!($L(X)<3)!'(X'?1P.E) X"
^DD(811.6,.01,1,0)="^.1^^0"
^DD(811.6,.01,3)="Enter the name of the sponsor, up to 225 characters."
^DD(811.6,.01,21,0)="^.001^2^2^3050124^^^^"
^DD(811.6,.01,21,1,0)="This is the name of an organization, group or individual that"
^DD(811.6,.01,21,2,0)="sponsors reminder components."
^DD(811.6,.01,"DEL",1,0)="I $$INUSE^PXRMSPED(DA)"
^DD(811.6,.01,"DT")="3010829"
^DD(811.6,1,0)="CONTACT INFORMATION^811.61^^1;0"
^DD(811.6,1,21,0)="^.001^1^1^3050124^^^^"
^DD(811.6,1,21,1,0)="This multiple contains a list of sponsor contact information."
^DD(811.6,2,0)="ASSOCIATED SPONSORS^811.62P^^2;0"
^DD(811.6,2,21,0)="^.001^3^3^3050124^^"
^DD(811.6,2,21,1,0)="This is a list of associated sponsors. A sponsor must have an entry"
^DD(811.6,2,21,2,0)="in the Reminder Sponsor file before it can be selected as an"
^DD(811.6,2,21,3,0)="ASSOCIATED SPONSOR."
^DD(811.6,100,0)="CLASS^RSX^L:LOCAL;N:NATIONAL;V:VISN;^100;1^K:'$$VCLASS^PXRMINTR(X) X"
^DD(811.6,100,3)="Enter the CLASS."
^DD(811.6,100,21,0)="^.001^4^4^3050617^^^"
^DD(811.6,100,21,1,0)="This is the CLASS of the sponsor. Possible classes are ""N"" for"
^DD(811.6,100,21,2,0)="national, ""V"" for VISN, and ""L"" for local. National sponsors cannot"
^DD(811.6,100,21,3,0)="be edited by sites."
^DD(811.6,100,21,4,0)=""
^DD(811.6,100,"DT")="3050902"
^DD(811.6,102,0)="REVIEW DATE^D^^100;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.6,102,3)="Enter the REVIEW DATE."
^DD(811.6,102,21,0)="^^5^5^3050617^"
^DD(811.6,102,21,1,0)="REVIEW DATE is used to determine when a sponsor should be reviewed"
^DD(811.6,102,21,2,0)="to verify that it is current and correct. You can find all sponsors"
^DD(811.6,102,21,3,0)="whose review date has passed using the Clinical Reminders Review"
^DD(811.6,102,21,4,0)="Date Report."
^DD(811.6,102,21,5,0)=""
^DD(811.6,102,"DT")="3050617"
^DD(811.6,110,0)="EDIT HISTORY^811.63D^^110;0"
^DD(811.6,110,21,0)="^.001^3^3^3050617^^"
^DD(811.6,110,21,1,0)="This multiple is used to record a history of changes made to the"
^DD(811.6,110,21,2,0)="sponsor."
^DD(811.6,110,21,3,0)=""
^DD(811.6,"B","ASSOCIATED SPONSORS",2)=""
^DD(811.6,"B","CLASS",100)=""
^DD(811.6,"B","CONTACT INFORMATION",1)=""
^DD(811.6,"B","EDIT HISTORY",110)=""
^DD(811.6,"B","NAME",.01)=""
^DD(811.6,"B","REVIEW DATE",102)=""
^DD(811.6,"GL",0,1,.01)=""
^DD(811.6,"GL",1,0,1)=""
^DD(811.6,"GL",2,0,2)=""
^DD(811.6,"GL",100,1,100)=""
^DD(811.6,"GL",100,3,102)=""
^DD(811.6,"GL",110,0,110)=""
^DD(811.6,"RQ",.01)=""
^DD(811.6,"RQ",100)=""
^DD(811.6,"SB",811.61,1)=""
^DD(811.6,"SB",811.62,2)=""
^DD(811.6,"SB",811.63,110)=""
^DD(811.61,0)="CONTACT INFORMATION SUB-FIELD^^1^2"
^DD(811.61,0,"DT")="3010905"
^DD(811.61,0,"IX","B",811.61,.01)=""
^DD(811.61,0,"NM","CONTACT INFORMATION")=""
^DD(811.61,0,"UP")="811.6"
^DD(811.61,.01,0)="CONTACT^MF^^0;1^K:$L(X)>64!($L(X)<3) X"
^DD(811.61,.01,1,0)="^.1"
^DD(811.61,.01,1,1,0)="811.61^B"
^DD(811.61,.01,1,1,1)="S ^PXRMD(811.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(811.61,.01,1,1,2)="K ^PXRMD(811.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(811.61,.01,3)="Enter the CONTACT."
^DD(811.61,.01,21,0)="^^1^1^3050124^"
^DD(811.61,.01,21,1,0)="This is the name of the contact."
^DD(811.61,.01,"DT")="3010905"
^DD(811.61,1,0)="DETAILED INFORMATION^811.611^^1;0"
^DD(811.61,1,21,0)="^^2^2^3050124^"
^DD(811.61,1,21,1,0)="This word-processing field can be used to store detailed information"
^DD(811.61,1,21,2,0)="for each CONTACT."
^DD(811.61,"B","CONTACT",.01)=""
^DD(811.61,"B","DETAILED INFORMATION",1)=""
^DD(811.61,"GL",0,1,.01)=""
^DD(811.61,"GL",1,0,1)=""
^DD(811.61,"IX",.01)=""
^DD(811.61,"SB",811.611,1)=""
^DD(811.611,0)="DETAILED INFORMATION SUB-FIELD^^.01^1"
^DD(811.611,0,"DT")="3010905"
^DD(811.611,0,"NM","DETAILED INFORMATION")=""
^DD(811.611,0,"UP")="811.61"
^DD(811.611,.01,0)="DETAILED INFORMATION^WL^^0;1^Q"
^DD(811.611,.01,3)="Enter the detailed contact information."
^DD(811.611,.01,"DT")="3010905"
^DD(811.611,"B","DETAILED INFORMATION",.01)=""
^DD(811.611,"GL",0,1,.01)=""
^DD(811.62,0)="ASSOCIATED SPONSORS SUB-FIELD^^.01^1"
^DD(811.62,0,"DT")="3010830"
^DD(811.62,0,"IX","B",811.62,.01)=""
^DD(811.62,0,"NM","ASSOCIATED SPONSORS")=""
^DD(811.62,0,"UP")="811.6"
^DD(811.62,.01,0)="ASSOCIATED SPONSORS^MP811.6'X^PXRMD(811.6,^0;1^K:'$$VASP^PXRMINTR(DA,X) X"
^DD(811.62,.01,1,0)="^.1"
^DD(811.62,.01,1,1,0)="811.62^B"
^DD(811.62,.01,1,1,1)="S ^PXRMD(811.6,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(811.62,.01,1,1,2)="K ^PXRMD(811.6,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(811.62,.01,3)="Enter an ASSOCIATED SPONSOR."
^DD(811.62,.01,"DT")="3041223"
^DD(811.62,"B","ASSOCIATED SPONSORS",.01)=""
^DD(811.62,"GL",0,1,.01)=""
^DD(811.62,"IX",.01)=""
^DD(811.63,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(811.63,0,"DT")="3050617"
^DD(811.63,0,"IX","B",811.63,.01)=""
^DD(811.63,0,"NM","EDIT HISTORY")=""
^DD(811.63,0,"UP")="811.6"
^DD(811.63,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.63,.01,1,0)="^.1"
^DD(811.63,.01,1,1,0)="811.63^B"
^DD(811.63,.01,1,1,1)="S ^PXRMD(811.6,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(811.63,.01,1,1,2)="K ^PXRMD(811.6,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(811.63,.01,3)="Do not edit this field."
^DD(811.63,.01,21,0)="^.001^3^3^3050617^^"
^DD(811.63,.01,21,1,0)="This is the date and time when the editing was done. This field is set"
^DD(811.63,.01,21,2,0)="automatically and should not be changed by the user."
^DD(811.63,.01,21,3,0)=""
^DD(811.63,.01,"DT")="3050617"
^DD(811.63,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(811.63,1,3)="Do not edit this field."
^DD(811.63,1,21,0)="^.001^3^3^3050617^^"
^DD(811.63,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(811.63,1,21,2,0)="and should not be changed by the user."
^DD(811.63,1,21,3,0)=""
^DD(811.63,1,"DT")="3050617"
^DD(811.63,2,0)="EDIT COMMENTS^811.632^^1;0"
^DD(811.63,2,21,0)="^^3^3^3050617^"
^DD(811.63,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(811.63,2,21,2,0)="during the editing session."
^DD(811.63,2,21,3,0)=""
^DD(811.63,"B","EDIT BY",1)=""
^DD(811.63,"B","EDIT COMMENTS",2)=""
^DD(811.63,"B","EDIT DATE",.01)=""
^DD(811.63,"GL",0,1,.01)=""
^DD(811.63,"GL",0,2,1)=""
^DD(811.63,"GL",1,0,2)=""
^DD(811.63,"IX",.01)=""
^DD(811.63,"SB",811.632,2)=""
^DD(811.632,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(811.632,0,"DT")="3050617"
^DD(811.632,0,"NM","EDIT COMMENTS")=""
^DD(811.632,0,"UP")="811.63"
^DD(811.632,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(811.632,.01,3)="Enter your edit comments."
^DD(811.632,.01,21,0)="^.001^1^1^3050617^^"
^DD(811.632,.01,21,1,0)=""
^DD(811.632,.01,"DT")="3050617"
^DD(811.632,"B","EDIT COMMENTS",.01)=""
^DD(811.632,"GL",0,1,.01)=""
^DD(811.7,0)="FIELD^^10^4"
^DD(811.7,0,"DDA")="N"
^DD(811.7,0,"DT")="3000508"
^DD(811.7,0,"IX","AC",811.701,.01)=""
^DD(811.7,0,"IX","ACP",811.7,.01)=""
^DD(811.7,0,"NM","REMINDER CATEGORY")=""
^DD(811.7,0,"PT",810.113,.01)=""
^DD(811.7,0,"PT",811.701,.01)=""
^DD(811.7,0,"VR")="2.0"
^DD(811.7,0,"VRPK")="CLINICAL REMINDERS"
^DD(811.7,.01,0)="NAME^RF^^0;1^K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X"
^DD(811.7,.01,1,0)="^.1^^-1"
^DD(811.7,.01,1,2,0)="811.7^ACP^MUMPS"
^DD(811.7,.01,1,2,1)="D SETAC^PXRMCLST"
^DD(811.7,.01,1,2,2)="D KILLAC^PXRMCLST"
^DD(811.7,.01,1,2,"%D",0)="^^7^7^3000613^"
^DD(811.7,.01,1,2,"%D",1,0)="If a category is deleted this cross reference deletes pointers to that"
^DD(811.7,.01,1,2,"%D",2,0)="category from other reminder categories."
^DD(811.7,.01,1,2,"%D",3,0)=" "
^DD(811.7,.01,1,2,"%D",4,0)="The 'AC' index (^PXRMD(811.7,Sub-Category,Category,DA)) is used to"
^DD(811.7,.01,1,2,"%D",5,0)="determine which categories point to the deleted category. DIK is then"
^DD(811.7,.01,1,2,"%D",6,0)="used to remove the deleted category from the sub-category multiple of"
^DD(811.7,.01,1,2,"%D",7,0)="these categories."
^DD(811.7,.01,1,2,"DT")="2990617"
^DD(811.7,.01,3)="Enter the name of the Category, up to 35 characters."
^DD(811.7,.01,21,0)="^.001^1^1^3050124^^^^"
^DD(811.7,.01,21,1,0)="This is the name of the Reminder Category."
^DD(811.7,.01,"DT")="3000508"
^DD(811.7,1,0)="DESCRIPTION^811.71^^1;0"
^DD(811.7,1,21,0)="^.001^1^1^3050124^^^"
^DD(811.7,1,21,1,0)="This is the description of the Reminder Category."
^DD(811.7,2,0)="INDIVIDUAL REMINDERS^811.72P^^2;0"
^DD(811.7,2,21,0)="^.001^1^1^3050124^^^"
^DD(811.7,2,21,1,0)="This is the list of reminders that are in this category."
^DD(811.7,10,0)="SUB-CATEGORY^811.701P^^10;0"
^DD(811.7,10,12)="Category cannot point to itself."
^DD(811.7,10,12.1)="S DIC(""S"")=""I ^(0)'=^PXRMD(811.7,DA,0)"""
^DD(811.7,10,21,0)="^.001^3^3^3050124^^^^"
^DD(811.7,10,21,1,0)="This multiple allows you to include already existing categories as part"
^DD(811.7,10,21,2,0)="of a new category. Sub-categories are always listed after individual"
^DD(811.7,10,21,3,0)="reminders."
^DD(811.7,"B","DESCRIPTION",1)=""
^DD(811.7,"B","INDIVIDUAL REMINDERS",2)=""
^DD(811.7,"B","NAME",.01)=""
^DD(811.7,"B","SUB-CATEGORY",10)=""
^DD(811.7,"GL",0,1,.01)=""
^DD(811.7,"GL",1,0,1)=""
^DD(811.7,"GL",2,0,2)=""
^DD(811.7,"GL",10,0,10)=""
^DD(811.7,"IX",.01)=""
^DD(811.7,"RQ",.01)=""
^DD(811.7,"SB",811.701,10)=""
^DD(811.7,"SB",811.71,1)=""
^DD(811.7,"SB",811.72,2)=""
^DD(811.701,0)="SUB-CATEGORY SUB-FIELD^^.02^2"
^DD(811.701,0,"DT")="2990611"
^DD(811.701,0,"IX","B",811.701,.01)=""
^DD(811.701,0,"NM","SUB-CATEGORY")=""
^DD(811.701,0,"UP")="811.7"
^DD(811.701,.01,0)="SUB-CATEGORY^MP811.7'X^PXRMD(811.7,^0;1^K:$$BADITEM^PXRMCLST(X,DA(1)) X"
^DD(811.701,.01,1,0)="^.1"
^DD(811.701,.01,1,1,0)="811.701^B"
^DD(811.701,.01,1,1,1)="S ^PXRMD(811.7,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(811.701,.01,1,1,2)="K ^PXRMD(811.7,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(811.701,.01,1,2,0)="811.7^AC"
^DD(811.701,.01,1,2,1)="S ^PXRMD(811.7,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(811.701,.01,1,2,2)="K ^PXRMD(811.7,""AC"",$E(X,1,30),DA(1),DA)"
^DD(811.701,.01,1,2,"%D",0)="^^3^3^3000613^"
^DD(811.701,.01,1,2,"%D",1,0)="This cross reference holds the Parent categories for each category."
^DD(811.701,.01,1,2,"%D",2,0)=" "
^DD(811.701,.01,1,2,"%D",3,0)="The ACP cross reference on the name field deletes this cross reference."
^DD(811.701,.01,1,2,"DT")="2990617"
^DD(811.701,.01,3)="The sub-category selected cannot be the same as the parent category, nor a sub-category within the current category hierarchy. "
^DD(811.701,.01,21,0)="^.001^2^2^3050124^^^"
^DD(811.701,.01,21,1,0)="This is an existing category that is to be included as part of a new"
^DD(811.701,.01,21,2,0)="category."
^DD(811.701,.01,"DT")="2990617"
^DD(811.701,.02,0)="DISPLAY ORDER^RNJ2,0X^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X K:'$$UNIQUE^PXRMCLST(X,DA(1),DA,10) X"
^DD(811.701,.02,3)="Enter the sub-category display order."
^DD(811.701,.02,21,0)="^.001^2^2^3050124^^"
^DD(811.701,.02,21,1,0)="This is the display order for the sub-categories. Sub-categories are"
^DD(811.701,.02,21,2,0)="displayed after individual reminders."
^DD(811.701,.02,"DT")="2990616"
^DD(811.701,"B","DISPLAY ORDER",.02)=""
^DD(811.701,"B","SUB-CATEGORY",.01)=""
^DD(811.701,"GL",0,1,.01)=""
^DD(811.701,"GL",0,2,.02)=""
^DD(811.701,"IX",.01)=""
^DD(811.701,"RQ",.02)=""
^DD(811.71,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(811.71,0,"DT")="2990512"
^DD(811.71,0,"NM","DESCRIPTION")=""
^DD(811.71,0,"UP")="811.7"
^DD(811.71,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(811.71,.01,3)="Enter the description of the Reminder Category."
^DD(811.71,.01,"DT")="2990512"
^DD(811.71,"B","DESCRIPTION",.01)=""
^DD(811.71,"GL",0,1,.01)=""
^DD(811.72,0)="INDIVIDUAL REMINDERS SUB-FIELD^^.02^2"
^DD(811.72,0,"DT")="2990610"
^DD(811.72,0,"IX","B",811.72,.01)=""
^DD(811.72,0,"NM","INDIVIDUAL REMINDERS")=""
^DD(811.72,0,"UP")="811.7"
^DD(811.72,.01,0)="INDIVIDUAL REMINDERS^MP811.9'^PXD(811.9,^0;1^Q"
^DD(811.72,.01,1,0)="^.1"
^DD(811.72,.01,1,1,0)="811.72^B"
^DD(811.72,.01,1,1,1)="S ^PXRMD(811.7,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(811.72,.01,1,1,2)="K ^PXRMD(811.7,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(811.72,.01,3)="Enter a reminder definition that you want in this category."
^DD(811.72,.01,21,0)="^.001^1^1^3050124^^"
^DD(811.72,.01,21,1,0)="This is a reminder definition."
^DD(811.72,.01,"DT")="2990610"
^DD(811.72,.02,0)="DISPLAY ORDER^RNJ2,0X^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X Q:'$D(X)  K:'$$UNIQUE^PXRMCLST(X,DA(1),DA,2) X"
^DD(811.72,.02,3)="Enter the display order for this reminder definition."
^DD(811.72,.02,21,0)="^.001^2^2^3050124^^^^"
^DD(811.72,.02,21,1,0)="This is the order in which to display this reminder definition when the "
^DD(811.72,.02,21,2,0)="list of reminders in this category is displayed."
^DD(811.72,.02,"DT")="3000406"
^DD(811.72,"B","DISPLAY ORDER",.02)=""
^DD(811.72,"B","INDIVIDUAL REMINDERS",.01)=""
^DD(811.72,"GL",0,1,.01)=""
^DD(811.72,"GL",0,2,.02)=""
^DD(811.72,"IX",.01)=""
^DD(811.72,"RQ",.02)=""
^DD(811.8,0)="FIELD^^130^9"
^DD(811.8,0,"DDA")="N"
^DD(811.8,0,"DT")="3070808"
^DD(811.8,0,"NM","REMINDER EXCHANGE")=""
^DD(811.8,0,"SCR")="I 0>1"
^DD(811.8,0,"VR")="2.0"
^DD(811.8,0,"VRPK")="PXRM"
^DD(811.8,.01,0)="NAME^RFX^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E) X"
^DD(811.8,.01,.1)=""
^DD(811.8,.01,1,0)="^.1^^0"
^DD(811.8,.01,3)="Do not edit this field."
^DD(811.8,.01,21,0)="^.001^2^2^3050124^^^^"
^DD(811.8,.01,21,1,0)="This is the name of the entry in the Exchange File. It will be the same"
^DD(811.8,.01,21,2,0)="as the name of the reminder definition that was packed."
^DD(811.8,.01,"DT")="3010601"
^DD(811.8,.02,0)="SOURCE^F^^0;2^K:$L(X)>64!($L(X)<3) X"
^DD(811.8,.02,3)="Do not edit this field."
^DD(811.8,.02,21,0)="^.001^3^3^3070313^^^"
^DD(811.8,.02,21,1,0)="This is the source of the packed reminder. It will contain the name of"
^DD(811.8,.02,21,2,0)="the person who packed it and their site."
^DD(811.8,.02,21,3,0)=""
^DD(811.8,.02,"DT")="3000706"
^DD(811.8,.03,0)="DATE PACKED^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.8,.03,3)="Do not edit this field."
^DD(811.8,.03,21,0)="^.001^3^3^3050124^^^"
^DD(811.8,.03,21,1,0)="This is the date and time the reminder was originally packed. When a"
^DD(811.8,.03,21,2,0)="packed reminder is put into the Exchange File from a MailMan message or"
^DD(811.8,.03,21,3,0)="a host file, this will reflect the original packing date and time."
^DD(811.8,.03,"DT")="3000712"
^DD(811.8,100,0)="PACKED REMINDER^811.801A^^100;0"
^DD(811.8,100,9)="@"
^DD(811.8,100,21,0)="^.001^1^1^3050126^^^^"
^DD(811.8,100,21,1,0)="This multiple stores the packed reminder definition in XML format."
^DD(811.8,100,"DT")="3030312"
^DD(811.8,110,0)="DESCRIPTION^811.804^^110;0"
^DD(811.8,110,21,0)="^.001^4^4^3050124^^^^"
^DD(811.8,110,21,1,0)="This contains formatted information about the Exchange File entry. It"
^DD(811.8,110,21,2,0)="includes source information, a brief description, and keywords. This"
^DD(811.8,110,21,3,0)="information will be displayed when an entry is selected for possible"
^DD(811.8,110,21,4,0)="installation."
^DD(811.8,115,0)="EXCHANGE TYPE^S^EXTRACT:EXTRACT;REMINDER:REMINDER;^115;1^Q"
^DD(811.8,115,21,0)="^.001^2^2^3050124^^^"
^DD(811.8,115,21,1,0)="EXCHANGE TYPE controls the display and installation order of the components"
^DD(811.8,115,21,2,0)="in the Exchange File entry."
^DD(811.8,115,"DT")="3040730"
^DD(811.8,119,0)="NUMBER OF UNIQUE COMPONENTS^NJ6,0^^119;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.8,119,3)="Do not edit this field."
^DD(811.8,119,21,0)="^.001^1^1^3050124^^"
^DD(811.8,119,21,1,0)="This is the number of unique components in the packed reminder."
^DD(811.8,119,"DT")="3030609"
^DD(811.8,120,0)="COMPONENT LIST^811.802A^^120;0"
^DD(811.8,120,21,0)="^.001^1^1^3050126^^^^"
^DD(811.8,120,21,1,0)="This is a list of components that are included in the packed reminder."
^DD(811.8,130,0)="INSTALLATION HISTORY^811.803DA^^130;0"
^DD(811.8,130,21,0)="^.001^2^2^3070808^^^^"
^DD(811.8,130,21,1,0)="This multiple is used to record a history of packed reminder"
^DD(811.8,130,21,2,0)="installations."
^DD(811.8,"B","COMPONENT LIST",120)=""
^DD(811.8,"B","DATE PACKED",.03)=""
^DD(811.8,"B","DESCRIPTION",110)=""
^DD(811.8,"B","EXCHANGE TYPE",115)=""
^DD(811.8,"B","INSTALLATION HISTORY",130)=""
^DD(811.8,"B","NAME",.01)=""
^DD(811.8,"B","NUMBER OF UNIQUE COMPONENTS",119)=""
^DD(811.8,"B","PACKED REMINDER",100)=""
^DD(811.8,"B","SOURCE",.02)=""
^DD(811.8,"GL",0,1,.01)=""
^DD(811.8,"GL",0,2,.02)=""
^DD(811.8,"GL",0,3,.03)=""
^DD(811.8,"GL",100,0,100)=""
^DD(811.8,"GL",110,0,110)=""
^DD(811.8,"GL",115,1,115)=""
^DD(811.8,"GL",119,1,119)=""
^DD(811.8,"GL",120,0,120)=""
^DD(811.8,"GL",130,0,130)=""
^DD(811.8,"RQ",.01)=""
^DD(811.8,"SB",811.801,100)=""
^DD(811.8,"SB",811.802,120)=""
^DD(811.8,"SB",811.803,130)=""
^DD(811.8,"SB",811.804,110)=""
^DD(811.801,0)="PACKED REMINDER SUB-FIELD^^.01^1"
^DD(811.801,0,"DT")="3030609"
^DD(811.801,0,"IX","B",811.801,.01)=""
^DD(811.801,0,"NM","PACKED REMINDER")=""
^DD(811.801,0,"UP")="811.8"
^DD(811.801,.01,0)="XML DATA^WL^^0;1^Q"
^DD(811.801,.01,1,0)="^.1"
^DD(811.801,.01,1,1,0)="811.801^B"
^DD(811.801,.01,1,1,1)="S ^PXD(811.8,DA(1),100,""B"",$E(X,1,30),DA)="""""
^DD(811.801,.01,1,1,2)="K ^PXD(811.8,DA(1),100,""B"",$E(X,1,30),DA)"
^DD(811.801,.01,1,1,"DT")="3030415"
^DD(811.801,.01,3)="Do not edit this field."
^DD(811.801,.01,9)="@"
^DD(811.801,.01,21,0)="^.001^1^1^3050126^^^^"
^DD(811.801,.01,21,1,0)="This is a line of XML data."
^DD(811.801,.01,"DT")="3030609"
^DD(811.801,"B","XML DATA",.01)=""
^DD(811.801,"GL",0,1,.01)=""
^DD(811.801,"IX",.01)=""
^DD(811.802,0)="COMPONENT LIST SUB-FIELD^^1^4"
^DD(811.802,0,"DT")="3050124"
^DD(811.802,0,"NM","COMPONENT LIST")=""
^DD(811.802,0,"UP")="811.8"
^DD(811.802,.01,0)="COMPONENT^F^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(811.802,.01,1,0)="^.1^^0"
^DD(811.802,.01,3)="Do not edit this field."
^DD(811.802,.01,21,0)="^.001^1^1^3050124^^^"
^DD(811.802,.01,21,1,0)="This is the name of the component; for example, ROUTINE or EDUCATION TOPIC."
^DD(811.802,.01,"DT")="3050112"
^DD(811.802,.02,0)="FILE NUMBER^NJ14,4X^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(811.802,.02,3)="Do not edit this field."
^DD(811.802,.02,21,0)="^.001^2^2^3050126^^^^"
^DD(811.802,.02,21,1,0)="This is the file number of the component. If the component is a routine,"
^DD(811.802,.02,21,2,0)="then the file number will be 0."
^DD(811.802,.02,"DT")="3050111"
^DD(811.802,.03,0)="NUMBER OF ITEMS^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.802,.03,3)="Do not edit this field."
^DD(811.802,.03,21,0)="^.001^4^4^3050124^^^"
^DD(811.802,.03,21,1,0)="This is the number of this type of component that is included in the"
^DD(811.802,.03,21,2,0)="packed reminder. For example, if this particular component is Health"
^DD(811.802,.03,21,3,0)="Factors and there are three of them in the packed reminder, the NUMBER"
^DD(811.802,.03,21,4,0)="OF ITEMS would be 3."
^DD(811.802,.03,"DT")="3001101"
^DD(811.802,1,0)="ITEM LIST^811.8021A^^1;0"
^DD(811.802,1,21,0)="^.001^3^3^3050124^^^^"
^DD(811.802,1,21,1,0)="This is the list of items of the component type. For example, if the"
^DD(811.802,1,21,2,0)="component type is Health Factors and there are three of them, the three"
^DD(811.802,1,21,3,0)="entries are specified in this list."
^DD(811.802,"B","COMPONENT",.01)=""
^DD(811.802,"B","FILE NUMBER",.02)=""
^DD(811.802,"B","ITEM LIST",1)=""
^DD(811.802,"B","NUMBER OF ITEMS",.03)=""
^DD(811.802,"GL",0,1,.01)=""
^DD(811.802,"GL",0,2,.02)=""
^DD(811.802,"GL",0,3,.03)=""
^DD(811.802,"GL",1,0,1)=""
^DD(811.802,"SB",811.8021,1)=""
^DD(811.8021,0)="ITEM LIST SUB-FIELD^^2^5"
^DD(811.8021,0,"DT")="3050124"
^DD(811.8021,0,"NM","ITEM LIST")=""
^DD(811.8021,0,"UP")="811.802"
^DD(811.8021,.01,0)="ITEM^F^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(811.8021,.01,1,0)="^.1^^0"
^DD(811.8021,.01,3)="Do not edit this field."
^DD(811.8021,.01,21,0)="^.001^1^1^3050124^^^"
^DD(811.8021,.01,21,1,0)="This is the name of the item."
^DD(811.8021,.01,"DT")="3050112"
^DD(811.8021,.02,0)="START LINE^NJ6,0^^0;2^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.8021,.02,3)="Do not edit this field."
^DD(811.8021,.02,21,0)="^.001^1^1^3050124^^^"
^DD(811.8021,.02,21,1,0)="This is the line in node 100 where the data for this item starts."
^DD(811.8021,.02,"DT")="3050124"
^DD(811.8021,.03,0)="END LINE^NJ6,0^^0;3^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.8021,.03,3)="Do not edit this field."
^DD(811.8021,.03,21,0)="^.001^1^1^3050124^^"
^DD(811.8021,.03,21,1,0)="This is the line in node 100 where the data for this item ends."
^DD(811.8021,.03,"DT")="3050124"
^DD(811.8021,1,0)="IEN ROOT START LINE^NJ6,0^^0;4^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.8021,1,3)="Do not edit this field."
^DD(811.8021,1,21,0)="^.001^1^1^3050124^^"
^DD(811.8021,1,21,1,0)="This is the line in node 100 where the ien root for this item starts."
^DD(811.8021,1,"DT")="3050124"
^DD(811.8021,2,0)="IEN ROOT END LINE^NJ6,0^^0;5^K:+X'=X!(X>100000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.8021,2,3)="Do not edit this field."
^DD(811.8021,2,21,0)="^.001^1^1^3050124^^"
^DD(811.8021,2,21,1,0)="This is the line in node 100 where the ien root ends."
^DD(811.8021,2,"DT")="3050124"
^DD(811.8021,"B","END LINE",.03)=""
^DD(811.8021,"B","IEN ROOT END LINE",2)=""
^DD(811.8021,"B","IEN ROOT START LINE",1)=""
^DD(811.8021,"B","ITEM",.01)=""
^DD(811.8021,"B","START LINE",.02)=""
^DD(811.8021,"GL",0,1,.01)=""
^DD(811.8021,"GL",0,2,.02)=""
^DD(811.8021,"GL",0,3,.03)=""
^DD(811.8021,"GL",0,4,1)=""
^DD(811.8021,"GL",0,5,2)=""
^DD(811.803,0)="INSTALLATION HISTORY SUB-FIELD^^2^4"
^DD(811.803,0,"DT")="3070808"
^DD(811.803,0,"NM","INSTALLATION HISTORY")=""
^DD(811.803,0,"UP")="811.8"
^DD(811.803,.01,0)="INSTALLATION DATE AND TIME^D^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(811.803,.01,1,0)="^.1^^0"
^DD(811.803,.01,3)="Do not edit this field."
^DD(811.803,.01,21,0)="^.001^1^1^3050124^^"
^DD(811.803,.01,21,1,0)="This is the date and time of the installation."
^DD(811.803,.01,"DT")="3001121"
^DD(811.803,.02,0)="INSTALLED BY^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(811.803,.02,3)="Do not edit this field."
^DD(811.803,.02,21,0)="^.001^1^1^3050124^^"
^DD(811.803,.02,21,1,0)="This is the person who did the installation."
^DD(811.803,.02,"DT")="3001116"
^DD(811.803,1,0)="COMPONENT LIST^811.8031A^^1;0"
^DD(811.803,1,21,0)="^.001^2^2^3050124^^^"
^DD(811.803,1,21,1,0)="This multiple contains a list of the packed reminder components that"
^DD(811.803,1,21,2,0)="were selected as part of this installation."
^DD(811.803,2,0)="INSTALLATION TYPE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(811.803,2,3)="Answer must be 1-30 characters in length."
^DD(811.803,2,21,0)="^.001^3^3^3070808^^"
^DD(811.803,2,21,1,0)="This field is used to store the installation type."
^DD(811.803,2,21,2,0)=""
^DD(811.803,2,21,3,0)=""
^DD(811.803,2,"DT")="3070808"
^DD(811.803,"B","COMPONENT LIST",1)=""
^DD(811.803,"B","INSTALLATION DATE AND TIME",.01)=""
^DD(811.803,"B","INSTALLATION TYPE",2)=""
^DD(811.803,"B","INSTALLED BY",.02)=""
^DD(811.803,"GL",0,1,.01)=""
^DD(811.803,"GL",0,2,.02)=""
^DD(811.803,"GL",0,3,2)=""
^DD(811.803,"GL",1,0,1)=""
^DD(811.803,"SB",811.8031,1)=""
^DD(811.8031,0)="COMPONENT LIST SUB-FIELD^^5^6"
^DD(811.8031,0,"DT")="3010313"
^DD(811.8031,0,"IX","B",811.8031,.01)=""
^DD(811.8031,0,"NM","COMPONENT LIST")=""
^DD(811.8031,0,"UP")="811.803"
^DD(811.8031,.01,0)="INDEX^NJ6,0^^0;1^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.8031,.01,1,0)="^.1"
^DD(811.8031,.01,1,1,0)="811.8031^B"
^DD(811.8031,.01,1,1,1)="S ^PXD(811.8,DA(2),130,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(811.8031,.01,1,1,2)="K ^PXD(811.8,DA(2),130,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(811.8031,.01,3)="Do not edit this field."
^DD(811.8031,.01,21,0)="^.001^2^2^3050124^^^"
^DD(811.8031,.01,21,1,0)="This number corresponds to the item number in the List Manager display"
^DD(811.8031,.01,21,2,0)="of the components in the Exchange File entry."
^DD(811.8031,.01,"DT")="3001115"
^DD(811.8031,1,0)="COMPONENT^F^^0;2^K:$L(X)>64!($L(X)<1) X"
^DD(811.8031,1,3)="Do not edit this field."
^DD(811.8031,1,21,0)="^.001^1^1^3050124^^"
^DD(811.8031,1,21,1,0)="This is the type of component, Education Topic, Health Factor, etc."
^DD(811.8031,1,"DT")="3001115"
^DD(811.8031,2,0)="ITEM^F^^0;3^K:$L(X)>64!($L(X)<1) X"
^DD(811.8031,2,3)="Do not edit this field."
^DD(811.8031,2,21,0)="^.001^2^2^3050124^^"
^DD(811.8031,2,21,1,0)="This is the name of the component. For example, if the component is"
^DD(811.8031,2,21,2,0)="a Health Factor then this is the name of the Health Factor."
^DD(811.8031,2,"DT")="3001115"
^DD(811.8031,3,0)="ACTION^F^^0;4^K:$L(X)>4!($L(X)<1) X"
^DD(811.8031,3,3)="Do not edit this field."
^DD(811.8031,3,21,0)="^.001^1^1^3050124^^"
^DD(811.8031,3,21,1,0)="This is the action that was taken with the item."
^DD(811.8031,3,"DT")="3001115"
^DD(811.8031,4,0)="NEWNAME^F^^0;5^K:$L(X)>64!($L(X)<1) X"
^DD(811.8031,4,3)="Do not edit this field."
^DD(811.8031,4,21,0)="^.001^1^1^3050124^^"
^DD(811.8031,4,21,1,0)="If the item was copied to a new name then the new name is stored here."
^DD(811.8031,4,"DT")="3001115"
^DD(811.8031,5,0)="ADDITIONAL DETAILS^811.80315A^^1;0"
^DD(811.8031,5,21,0)="^.001^3^3^3050124^^^"
^DD(811.8031,5,21,1,0)="This multiple is used to store additional details about the"
^DD(811.8031,5,21,2,0)="installation. As an example, if a finding in a reminder definition is"
^DD(811.8031,5,21,3,0)="replaced with another finding that information is stored here."
^DD(811.8031,"B","ACTION",3)=""
^DD(811.8031,"B","ADDITIONAL DETAILS",5)=""
^DD(811.8031,"B","COMPONENT",1)=""
^DD(811.8031,"B","INDEX",.01)=""
^DD(811.8031,"B","ITEM",2)=""
^DD(811.8031,"B","NEWNAME",4)=""
^DD(811.8031,"GL",0,1,.01)=""
^DD(811.8031,"GL",0,2,1)=""
^DD(811.8031,"GL",0,3,2)=""
^DD(811.8031,"GL",0,4,3)=""
^DD(811.8031,"GL",0,5,4)=""
^DD(811.8031,"GL",1,0,5)=""
^DD(811.8031,"IX",.01)=""
^DD(811.8031,"SB",811.80315,5)=""
^DD(811.80315,0)="ADDITIONAL DETAILS SUB-FIELD^^.01^1"
^DD(811.80315,0,"DT")="3010313"
^DD(811.80315,0,"IX","B",811.80315,.01)=""
^DD(811.80315,0,"NM","ADDITIONAL DETAILS")=""
^DD(811.80315,0,"UP")="811.8031"
^DD(811.80315,.01,0)="ADDITIONAL DETAILS^F^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(811.80315,.01,1,0)="^.1"
^DD(811.80315,.01,1,1,0)="811.80315^B"
^DD(811.80315,.01,1,1,1)="S ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(811.80315,.01,1,1,2)="K ^PXD(811.8,DA(3),130,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(811.80315,.01,3)="Do not edit this field."
^DD(811.80315,.01,21,0)="^.001^1^1^3050124^^"
^DD(811.80315,.01,21,1,0)="This is a line of additional information."
^DD(811.80315,.01,"DT")="3010313"
^DD(811.80315,"B","ADDITIONAL DETAILS",.01)=""
^DD(811.80315,"GL",0,1,.01)=""
^DD(811.80315,"IX",.01)=""
^DD(811.804,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(811.804,0,"DT")="3001221"
^DD(811.804,0,"NM","DESCRIPTION")=""
^DD(811.804,0,"UP")="811.8"
^DD(811.804,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(811.804,.01,3)="Do not edit this field."
^DD(811.804,.01,"DT")="3001221"
^DD(811.804,"B","DESCRIPTION",.01)=""
^DD(811.804,"GL",0,1,.01)=""
^DD(811.9,0)="FIELD^^78^54"
^DD(811.9,0,"DDA")="N"
^DD(811.9,0,"DT")="3070427"
^DD(811.9,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(811.9,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(811.9,0,"IX","AD",811.9,.01)=""
^DD(811.9,0,"IX","AG",811.9,51)=""
^DD(811.9,0,"NM","REMINDER DEFINITION")=""
^DD(811.9,0,"PT",142.14,.01)=""
^DD(811.9,0,"PT",801.41,2)=""
^DD(811.9,0,"PT",810.12,.01)=""
^DD(811.9,0,"PT",810.22,1)=""
^DD(811.9,0,"PT",810.33,.02)=""
^DD(811.9,0,"PT",810.4,9)=""
^DD(811.9,0,"PT",810.532,.01)=""
^DD(811.9,0,"PT",810.545,.01)=""
^DD(811.9,0,"PT",810.6,9)=""
^DD(811.9,0,"PT",811.72,.01)=""
^DD(811.9,0,"PT",811.9,1.4)=""
^DD(811.9,0,"VR")="2.0"
^DD(811.9,0,"VRPK")="PXRM"
^DD(811.9,.01,0)="NAME^RF^^0;1^K:$L(X)>64!($L(X)<3)!'(X'?1P.E)!('$$VNAME^PXRMINTR(X,811.9)) X"
^DD(811.9,.01,1,0)="^.1^^-1"
^DD(811.9,.01,1,2,0)="811.9^AD^MUMPS"
^DD(811.9,.01,1,2,1)="Q"
^DD(811.9,.01,1,2,2)="D DELEXTL^PXRMBXTL(DA)"
^DD(811.9,.01,1,2,"DT")="2980619"
^DD(811.9,.01,3)="Enter the name of the clinical reminder"
^DD(811.9,.01,21,0)="^.001^10^10^3050121^^^^"
^DD(811.9,.01,21,1,0)="This field is the name of a clinical reminder definition. Nationally"
^DD(811.9,.01,21,2,0)="distributed reminder definition names are prefixed with ""VA-"". The"
^DD(811.9,.01,21,3,0)="VA- prefixed reminder definitions cannot be altered by a site, but"
^DD(811.9,.01,21,4,0)="may be inactivated so they will not be selectable or evaluated in"
^DD(811.9,.01,21,5,0)="the CPRS GUI."
^DD(811.9,.01,21,6,0)=" "
^DD(811.9,.01,21,7,0)="Local modifications can be made to any ""VA-"" reminder definition by"
^DD(811.9,.01,21,8,0)="copying the definition to a new one with a unique name and then"
^DD(811.9,.01,21,9,0)="making modifications to the new definition which meet local"
^DD(811.9,.01,21,10,0)="criteria."
^DD(811.9,.01,23,0)="^.001^2^2^3050121^^^^"
^DD(811.9,.01,23,1,0)="National reminders names will start with VA- and they will have a class"
^DD(811.9,.01,23,2,0)="of National. National reminders cannot be edited by sites. "
^DD(811.9,.01,"DT")="3040506"
^DD(811.9,1.2,0)="PRINT NAME^F^^0;3^K:$L(X)>35!($L(X)<3) X"
^DD(811.9,1.2,1,0)="^.1^^0"
^DD(811.9,1.2,3)="Enter the PRINT NAME."
^DD(811.9,1.2,21,0)="^.001^2^2^3050121^^^"
^DD(811.9,1.2,21,1,0)="This is the name that is used when the results of a reminder evaluation"
^DD(811.9,1.2,21,2,0)="are displayed."
^DD(811.9,1.2,"DT")="3000216"
^DD(811.9,1.3,0)="DO IN ADVANCE TIME FRAME^FX^^0;4^K:'$$VTPER^PXRMINTR(.X) X"
^DD(811.9,1.3,3)="Enter time period to mark the reminder due in advance (e.g., 6M,1Y)."
^DD(811.9,1.3,21,0)="^.001^6^6^3050124^^^^"
^DD(811.9,1.3,21,1,0)="This field is used to let a reminder become due earlier than the"
^DD(811.9,1.3,21,2,0)="date determined by adding the frequency to the date when the"
^DD(811.9,1.3,21,3,0)="reminder was last resolved. For example, if the frequency is 1Y (one"
^DD(811.9,1.3,21,4,0)="year) and the DO IN ADVANCE TIME FRAME is 1M (one month), the"
^DD(811.9,1.3,21,5,0)="reminder would have a status of ""DUE SOON"" 11 months after it was"
^DD(811.9,1.3,21,6,0)="last resolved. After one year has passed, the STATUS would be ""DUE""."
^DD(811.9,1.3,"DT")="3000427"
^DD(811.9,1.4,0)="RELATED REMINDER GUIDELINE^P811.9'^PXD(811.9,^0;5^Q"
^DD(811.9,1.4,3)="Enter the related national reminder."
^DD(811.9,1.4,21,0)="^.001^2^2^3070427^^^^"
^DD(811.9,1.4,21,1,0)="If a local reminder replaces a national reminder, this field can be"
^DD(811.9,1.4,21,2,0)="used to identify the related national reminder."
^DD(811.9,1.4,"DT")="3070427"
^DD(811.9,1.6,0)="INACTIVE FLAG^SX^1:INACTIVE;^0;6^Q"
^DD(811.9,1.6,1,0)="^.1"
^DD(811.9,1.6,1,1,0)="^^TRIGGER^811.9^1.7"
^DD(811.9,1.6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PXD(811.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(811.9,1.6,1,1,1.1) X ^DD(811.9,1.6,1,1,1.4)"
^DD(811.9,1.6,1,1,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(811.9,1.6,1,1,1.4)="S DIH=$S($D(^PXD(811.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=811.9,DIG=1.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(811.9,1.6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PXD(811.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(811.9,1.6,1,1,2.1) X ^DD(811.9,1.6,1,1,2.4)"
^DD(811.9,1.6,1,1,2.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(811.9,1.6,1,1,2.4)="S DIH=$S($D(^PXD(811.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=811.9,DIG=1.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(811.9,1.6,1,1,"CREATE VALUE")="NOW"
^DD(811.9,1.6,1,1,"DELETE VALUE")="NOW"
^DD(811.9,1.6,1,1,"DT")="2971008"
^DD(811.9,1.6,1,1,"FIELD")="INACTIVE DATE"
^DD(811.9,1.6,3)="Enter ""1"" to inactivate the reminder."
^DD(811.9,1.6,21,0)="^.001^6^6^3050121^^^^"
^DD(811.9,1.6,21,1,0)="Reminders that are inactive will not be evaluated. The Clinical"
^DD(811.9,1.6,21,2,0)="Maintenance component will return a message stating the reminder is"
^DD(811.9,1.6,21,3,0)="inactive and the date when it was made inactive."
^DD(811.9,1.6,21,4,0)=""
^DD(811.9,1.6,21,5,0)="Other applications that use reminders may use this flag to determine"
^DD(811.9,1.6,21,6,0)="if a reminder can be selected for inclusion."
^DD(811.9,1.6,23,0)="^.001^7^7^3050121^^^^"
^DD(811.9,1.6,23,1,0)="When a reminder is inactive, the following will occur:"
^DD(811.9,1.6,23,2,0)="1. It cannot be selected for inclusion on a Health Summary. (Other"
^DD(811.9,1.6,23,3,0)="packages that use Reminders should follow this rule.)"
^DD(811.9,1.6,23,4,0)="2. In the Clinical Maintenance mode, a message will be returned stating the"
^DD(811.9,1.6,23,5,0)="reminder is inactive along with the date and time when it was made"
^DD(811.9,1.6,23,6,0)="inactive."
^DD(811.9,1.6,23,7,0)="3. In any other mode, nothing will be returned."
^DD(811.9,1.6,"DT")="2971008"
^DD(811.9,1.7,0)="INACTIVE CHANGE DATE^DX^^0;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(811.9,1.7,5,1,0)="811.9^1.6^1"
^DD(811.9,1.7,9)="^"
^DD(811.9,1.7,21,0)="^.001^2^2^3050121^^^"
^DD(811.9,1.7,21,1,0)="This is the date and time when the INACTIVE FLAG was last changed. It"
^DD(811.9,1.7,21,2,0)="is set automatically. Users should never edit this field."
^DD(811.9,1.7,23,0)="^.001^1^1^3050121^^^"
^DD(811.9,1.7,23,1,0)="This field is set by a trigger on INACTIVE FLAG."
^DD(811.9,1.7,"DT")="2971008"
^DD(811.9,1.8,0)="IGNORE ON N/A^FX^^0;8^S X=$$UP^XLFSTR(X) K:'$$VIGNAC^PXRMINTR(X) X"
^DD(811.9,1.8,3)="Input a string of N/A code(s)"
^DD(811.9,1.8,21,0)="^.001^11^11^3050121^^^^"
^DD(811.9,1.8,21,1,0)="This field allows the user to stop reminders from being printed in"
^DD(811.9,1.8,21,2,0)="the Clinical Maintenance component if the reminder is N/A. This is a"
^DD(811.9,1.8,21,3,0)="free text field that can contain any combination of the following"
^DD(811.9,1.8,21,4,0)="codes:"
^DD(811.9,1.8,21,5,0)=" "
^DD(811.9,1.8,21,6,0)="Code  Description"
^DD(811.9,1.8,21,7,0)=" A    N/A due to not meeting age criteria."
^DD(811.9,1.8,21,8,0)=" I    N/A due to inactive reminder."
^DD(811.9,1.8,21,9,0)=" R    N/A due to the wrong race."
^DD(811.9,1.8,21,10,0)=" S    N/A due to the wrong sex."
^DD(811.9,1.8,21,11,0)=" *    N/A for any reason."
^DD(811.9,1.8,"DT")="2991103"
^DD(811.9,1.9,0)="SEX SPECIFIC^S^F:FEMALE;M:MALE;^0;9^Q"
^DD(811.9,1.9,3)="Enter M or F if this reminder is sex specific."
^DD(811.9,1.9,21,0)="^.001^8^8^3050124^^^^"
^DD(811.9,1.9,21,1,0)="This field is used to make a reminder sex specific. If an ""F"" is"
^DD(811.9,1.9,21,2,0)="entered, the reminder applies only to females. If an ""M"" is entered,"
^DD(811.9,1.9,21,3,0)="the reminder applies only to males. If it is left blank, then the"
^DD(811.9,1.9,21,4,0)="reminder is applicable to either sex."
^DD(811.9,1.9,21,5,0)=""
^DD(811.9,1.9,21,6,0)="If CUSTOM COHORT LOGIC is defined and it does not contain SEX, then"
^DD(811.9,1.9,21,7,0)="this field will be ignored."
^DD(811.9,1.9,21,8,0)=""
^DD(811.9,1.9,"DT")="2951109"
^DD(811.9,1.91,0)="PRIORITY^S^1:HIGH;2:MEDIUM;3:LOW;^0;10^Q"
^DD(811.9,1.91,3)="Enter the REMINDER PRIORITY."
^DD(811.9,1.91,21,0)="^.001^1^1^3050121^^^^"
^DD(811.9,1.91,21,1,0)="REMINDER PRIORITY is used by the CPRS GUI for sorting purposes."
^DD(811.9,1.91,"DT")="2990716"
^DD(811.9,2,0)="DESCRIPTION^811.92^^1;0"
^DD(811.9,2,21,0)="^.001^2^2^3070618^^^^"
^DD(811.9,2,21,1,0)="This field contains a description of the clinical reminder. It is"
^DD(811.9,2,21,2,0)="used to document its purpose and intended usage."
^DD(811.9,2,"DT")="3070618"
^DD(811.9,3,0)="TECHNICAL DESCRIPTION^811.93^^2;0"
^DD(811.9,3,21,0)="^.001^2^2^3071004^^^^"
^DD(811.9,3,21,1,0)="The TECHNICAL DESCRIPTION is for documenting how a reminder is"
^DD(811.9,3,21,2,0)="supposed to function and why the definition is set up the way it is."
^DD(811.9,3,"DT")="2960131"
^DD(811.9,7,0)="BASELINE AGE FINDINGS^811.97^^7;0"
^DD(811.9,7,21,0)="^.001^8^8^3050121^^^^"
^DD(811.9,7,21,1,0)="This multiple is for defining reminder frequency age ranges sets. It"
^DD(811.9,7,21,2,0)="can be used to specify different frequencies for different ages. For"
^DD(811.9,7,21,3,0)="example, you could define a frequency of every 3 years for ages 40"
^DD(811.9,7,21,4,0)="to 49 as the first age range set, a frequency of every 2 years for"
^DD(811.9,7,21,5,0)="ages 50 to 59 as the second, and a frequency of once a year for ages"
^DD(811.9,7,21,6,0)="60 to 75. With this set the reminder would be due every 3 years for"
^DD(811.9,7,21,7,0)="ages 40 to 49, every 2 years for ages 50 to 59, and once a year for"
^DD(811.9,7,21,8,0)="ages 60 to 75."
^DD(811.9,7,"DT")="2970711"
^DD(811.9,20,0)="FINDINGS^811.902V^^20;0"
^DD(811.9,20,21,0)="^.001^5^5^3070413^^^^"
^DD(811.9,20,21,1,0)="This multiple identifies which finding items to use when evaluating the"
^DD(811.9,20,21,2,0)="reminder. Finding items may be categorized into 4 types of findings:"
^DD(811.9,20,21,3,0)="age, patient cohort, resolution, and informational. How patient findings"
^DD(811.9,20,21,4,0)="are used depends on the values given to the various fields associated with "
^DD(811.9,20,21,5,0)="findings. See the description of those fields to learn what they do."
^DD(811.9,20,"DT")="3040513"
^DD(811.9,25,0)="FUNCTION FINDINGS^811.925I^^25;0"
^DD(811.9,25,21,0)="^.001^13^13^3050124^^^^"
^DD(811.9,25,21,1,0)="This multiple is used to define function findings; each function"
^DD(811.9,25,21,2,0)="finding is labeled by an integer: the FUNCTION FINDING NUMBER. The"
^DD(811.9,25,21,3,0)="user defines a function finding by inputting a FUNCTION FINDING"
^DD(811.9,25,21,4,0)="NUMBER and associated FUNCTION STRING. Function Findings are then"
^DD(811.9,25,21,5,0)="used in the reminder definition logic by reference to FF(FUNCTION"
^DD(811.9,25,21,6,0)="FINDING NUMBER). For example, if function findings 1 and 2 were"
^DD(811.9,25,21,7,0)="defined, then they could be used in the cohort or resolution logic as"
^DD(811.9,25,21,8,0)="FF(1) and FF(2)."
^DD(811.9,25,21,9,0)=""
^DD(811.9,25,21,10,0)="Function findings can be used in the resolution logic with one"
^DD(811.9,25,21,11,0)="caveat. They do not have a date associated with them; therefore, the"
^DD(811.9,25,21,12,0)="resolution logic must be written so that it cannot be made true"
^DD(811.9,25,21,13,0)="solely by a function finding."
^DD(811.9,25,"DT")="3030131"
^DD(811.9,30,0)="CUSTOMIZED COHORT LOGIC^FX^^30;1^K:'$$VALID^PXRMLOG(X,.DA,3,512) X"
^DD(811.9,30,.1)="CUSTOMIZED PATIENT COHORT LOGIC (OPTIONAL)"
^DD(811.9,30,1,0)="^.1^^0"
^DD(811.9,30,3)="Enter a Boolean string from 3-512 characters that uses findings to define the patient cohort."
^DD(811.9,30,21,0)="^.001^10^10^3050121^^^^"
^DD(811.9,30,21,1,0)="This field may be used to define a customized Patient Cohort Logic"
^DD(811.9,30,21,2,0)="string. Typically this is done when the USE IN PATIENT COHORT LOGIC"
^DD(811.9,30,21,3,0)="fields associated with each finding do not provide the ability to"
^DD(811.9,30,21,4,0)="create the required logic string. The requirement for custom logic"
^DD(811.9,30,21,5,0)="arises when the required logic is more complex than can be"
^DD(811.9,30,21,6,0)="represented by simple concatenation of Boolean logical operators and"
^DD(811.9,30,21,7,0)="findings."
^DD(811.9,30,21,8,0)=""
^DD(811.9,30,21,9,0)="Detailed information on how to create the custom logic string can be"
^DD(811.9,30,21,10,0)="found in the Clinical Reminders Manager Manual."
^DD(811.9,30,"DT")="3041227"
^DD(811.9,31,0)="INTERNAL PATIENT COHORT LOGIC^FX^^31;1^K:$L(X)>512!($L(X)<3) X"
^DD(811.9,31,3)="Do not edit this field."
^DD(811.9,31,21,0)="^.001^2^2^3050121^^^^"
^DD(811.9,31,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,31,21,2,0)="never be edited by hand."
^DD(811.9,31,23,0)="^.001^4^4^3050121^^^^"
^DD(811.9,31,23,1,0)="This field is computed by the Clinical Reminders software. If there is"
^DD(811.9,31,23,2,0)="user-entered Patient Cohort Logic, then it is copied into this field."
^DD(811.9,31,23,3,0)="Otherwise this field is determined using the USE IN PATIENT COHORT"
^DD(811.9,31,23,4,0)="LOGIC fields for each finding in the reminder definition."
^DD(811.9,31,"DT")="3031027"
^DD(811.9,32,0)="PATIENT COHORT FINDINGS COUNT^NJ2,0X^^32;1^K:+X'=X!(X>154)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.9,32,3)="Do not edit this field."
^DD(811.9,32,21,0)="^.001^2^2^3050121^^^^"
^DD(811.9,32,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,32,21,2,0)="never be edited by hand."
^DD(811.9,32,23,0)="^.001^3^3^3050121^^^^"
^DD(811.9,32,23,1,0)="This field is computed by the Clinical Reminders software and contains"
^DD(811.9,32,23,2,0)="the number of findings that are in the INTERNAL PATIENT COHORT LOGIC"
^DD(811.9,32,23,3,0)="field."
^DD(811.9,32,"DT")="3031024"
^DD(811.9,33,0)="PATIENT COHORT FINDINGS LIST^FX^^32;2^K:$L(X)>512!($L(X)<1) X"
^DD(811.9,33,3)="Do not edit this field."
^DD(811.9,33,21,0)="^.001^2^2^3050121^^^"
^DD(811.9,33,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,33,21,2,0)="never be edited by hand."
^DD(811.9,33,23,0)="^.001^2^2^3050121^^^"
^DD(811.9,33,23,1,0)="This field is computed by the Clinical Reminders software and contains"
^DD(811.9,33,23,2,0)="a list of the findings in the INTERNAL PATIENT COHORT LOGIC field."
^DD(811.9,33,"DT")="3031024"
^DD(811.9,34,0)="CUSTOMIZED RESOLUTION LOGIC^FX^^34;1^K:'$$VALIDR^PXRMLOG(X,.DA,5,512) X"
^DD(811.9,34,.1)="CUSTOMIZED RESOLUTION LOGIC (OPTIONAL)"
^DD(811.9,34,1,0)="^.1^^0"
^DD(811.9,34,3)="Enter a Boolean string from 5-512 characters that includes findings that resolve the reminder."
^DD(811.9,34,21,0)="^.001^11^11^3050121^^^^"
^DD(811.9,34,21,1,0)="This field may be used to define a customized Resolution Logic"
^DD(811.9,34,21,2,0)="string. Typically this is done when the USE IN RESOLUTION LOGIC"
^DD(811.9,34,21,3,0)="fields associated with each finding do not provide the ability to"
^DD(811.9,34,21,4,0)="create the required logic string. The requirement for custom logic"
^DD(811.9,34,21,5,0)="arises when the required logic is more complex than can be"
^DD(811.9,34,21,6,0)="represented by simple concatenation of Boolean logical operators and"
^DD(811.9,34,21,7,0)="findings."
^DD(811.9,34,21,8,0)=""
^DD(811.9,34,21,9,0)="Detailed information on how to create the custom logic string can be"
^DD(811.9,34,21,10,0)="found in the Clinical Reminders Manager Manual."
^DD(811.9,34,21,11,0)=""
^DD(811.9,34,"DT")="3050110"
^DD(811.9,35,0)="INTERNAL RESOLUTION LOGIC^FX^^35;1^K:'$$VALIDR^PXRMLOG(X,.DA,5,512) X"
^DD(811.9,35,3)="Do not edit this field."
^DD(811.9,35,21,0)="^.001^2^2^3050121^^^^"
^DD(811.9,35,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,35,21,2,0)="never be edited by hand."
^DD(811.9,35,23,0)="^.001^4^4^3050121^^^^"
^DD(811.9,35,23,1,0)="This field is computed by the Clinical Reminders software. If there is"
^DD(811.9,35,23,2,0)="user-entered Resolution Logic, then it is copied into this field."
^DD(811.9,35,23,3,0)="Otherwise this field is determined using the USE IN RESOLUTION"
^DD(811.9,35,23,4,0)="LOGIC fields for each finding in the reminder definition."
^DD(811.9,35,"DT")="3070511"
^DD(811.9,36,0)="RESOLUTION FINDINGS COUNT^NJ2,0X^^36;1^K:+X'=X!(X>154)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.9,36,3)="Do not edit this field."
^DD(811.9,36,21,0)="^.001^2^2^3050121^^^"
^DD(811.9,36,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,36,21,2,0)="never be edited by hand."
^DD(811.9,36,23,0)="^.001^2^2^3050121^^^"
^DD(811.9,36,23,1,0)="This field is computed by the Clinical Reminders software and contains"
^DD(811.9,36,23,2,0)="the number of findings in the INTERNAL RESOLUTION LOGIC field."
^DD(811.9,36,"DT")="3031024"
^DD(811.9,37,0)="RESOLUTION FINDINGS LIST^FX^^36;2^K:$L(X)>512!($L(X)<1) X"
^DD(811.9,37,3)="Do not edit this field."
^DD(811.9,37,21,0)="^.001^2^2^3050121^^^^"
^DD(811.9,37,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,37,21,2,0)="never be edited by hand."
^DD(811.9,37,23,0)="^.001^2^2^3050121^^^"
^DD(811.9,37,23,1,0)="This field is computed by the Clinical Reminders software and contains"
^DD(811.9,37,23,2,0)="the list of findings in the INTERNAL RESOLUTION LOGIC field."
^DD(811.9,37,"DT")="3031024"
^DD(811.9,40,0)="AGE FINDINGS COUNT^NJ2,0X^^40;1^K:+X'=X!(X>154)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.9,40,3)="Do not edit this field."
^DD(811.9,40,21,0)="^.001^2^2^3050121^^"
^DD(811.9,40,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,40,21,2,0)="never be edited by hand."
^DD(811.9,40,23,0)="^.001^3^3^3050121^^"
^DD(811.9,40,23,1,0)="This field is computed by the Clinical Reminders software and contains"
^DD(811.9,40,23,2,0)="the number of findings that can override the baseline age range frequency"
^DD(811.9,40,23,3,0)="set. It should never be edited by hand."
^DD(811.9,40,"DT")="3031024"
^DD(811.9,41,0)="AGE FINDINGS LIST^FX^^40;2^K:$L(X)>512!($L(X)<1) X"
^DD(811.9,41,3)="Do not edit this field."
^DD(811.9,41,21,0)="^.001^2^2^3050121^^"
^DD(811.9,41,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,41,21,2,0)="never be edited by hand."
^DD(811.9,41,23,0)="^.001^3^3^3050121^^"
^DD(811.9,41,23,1,0)="This field is computed by the Clinical Reminders software and contains"
^DD(811.9,41,23,2,0)="a list of the findings that can override the baseline age range frequency."
^DD(811.9,41,23,3,0)="It should never be edited by hand."
^DD(811.9,41,"DT")="3031024"
^DD(811.9,42,0)="INFORMATION FINDINGS COUNT^NJ2,0X^^42;1^K:+X'=X!(X>154)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.9,42,3)="Do not edit this field."
^DD(811.9,42,21,0)="^.001^2^2^3050121^^^"
^DD(811.9,42,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,42,21,2,0)="never be edited by hand."
^DD(811.9,42,23,0)="^.001^3^3^3050121^^^"
^DD(811.9,42,23,1,0)="This field is computed by the Clinical Reminders software and"
^DD(811.9,42,23,2,0)="contains the number of findings that are information only. It should"
^DD(811.9,42,23,3,0)="never be edited by hand."
^DD(811.9,42,"DT")="3031024"
^DD(811.9,43,0)="INFORMATION FINDINGS LIST^FX^^42;2^K:$L(X)>512!($L(X)<1) X"
^DD(811.9,43,3)="Do not edit this field."
^DD(811.9,43,21,0)="^.001^2^2^3050121^^^^"
^DD(811.9,43,21,1,0)="This field is computed by the Clinical Reminders software and should"
^DD(811.9,43,21,2,0)="never be edited by hand."
^DD(811.9,43,23,0)="^.001^3^3^3050121^^^^"
^DD(811.9,43,23,1,0)="This field is computed by the Clinical Reminders software and"
^DD(811.9,43,23,2,0)="contains the number of information findings. It should never be"
^DD(811.9,43,23,3,0)="edited by hand."
^DD(811.9,43,"DT")="3031024"
^DD(811.9,45,0)="CUSTOM DATE DUE^FX^^45;1^K:'$$VCDUE^PXRMCDUE(X,.DA) X"
^DD(811.9,45,3)="Enter the CUSTOM DATE DUE"
^DD(811.9,45,4)="D XHELP^PXRMCDUE"
^DD(811.9,45,21,0)="^.001^16^16^3050124^^^"
^DD(811.9,45,21,1,0)="When a CUSTOM DATE DUE is defined, it takes precedence over the"
^DD(811.9,45,21,2,0)="standard date due calculation. This means the normal date due"
^DD(811.9,45,21,3,0)="calculation that is based on the dates of the resolution findings"
^DD(811.9,45,21,4,0)="and the final frequency is not done. Only the dates of the findings"
^DD(811.9,45,21,5,0)="and the frequencies specified in the Custom Date Due string are"
^DD(811.9,45,21,6,0)="used. Any finding that is in the reminder definition can be used in"
^DD(811.9,45,21,7,0)="the Custom Date Due string; it is not limited to those defined as"
^DD(811.9,45,21,8,0)="resolution findings."
^DD(811.9,45,21,9,0)=""
^DD(811.9,45,21,10,0)="The final age range will still be used to determine if the patient"
^DD(811.9,45,21,11,0)="is in the cohort; however, the frequency associated with this age"
^DD(811.9,45,21,12,0)="range is not used. Only the frequencies specified in the Custom Date"
^DD(811.9,45,21,13,0)="Due String are used. They are added to the date of the associated"
^DD(811.9,45,21,14,0)="finding to determine the dates used by either the MIN_DATE or"
^DD(811.9,45,21,15,0)="MAX_DATE functions."
^DD(811.9,45,21,16,0)=""
^DD(811.9,45,"DT")="3030807"
^DD(811.9,46,0)="CUSTOM DATE DUE FUNCTION^F^^46;1^K:$L(X)>30!($L(X)<3) X"
^DD(811.9,46,3)="Do not edit this field."
^DD(811.9,46,21,0)="^^2^2^3050121^"
^DD(811.9,46,21,1,0)="This field contains the function used in the CUSTOM DATE DUE. It is"
^DD(811.9,46,21,2,0)="created automatically and should not be set by hand."
^DD(811.9,46,"DT")="3030807"
^DD(811.9,47,0)="NUMBER OF ARGUMENTS^NJ2,0^^46;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.9,47,3)="Do not edit this field."
^DD(811.9,47,21,0)="^^2^2^3050121^"
^DD(811.9,47,21,1,0)="This is the number of arguments (findings) used in the CUSTOM DATE"
^DD(811.9,47,21,2,0)="DUE. It is created automatically and should not be set by hand."
^DD(811.9,47,"DT")="3030807"
^DD(811.9,48,0)="CUSTOM DATE DUE ARG LIST^811.948A^^47;0"
^DD(811.9,48,21,0)="^^4^4^3050121^"
^DD(811.9,48,21,1,0)="This is the list of arguments (findings) used in the CUSTOM DATE"
^DD(811.9,48,21,2,0)="DUE. It is used to efficiently calculate the resolution date from"
^DD(811.9,48,21,3,0)="the custom date due string. It is created automatically and should"
^DD(811.9,48,21,4,0)="not be set by hand."
^DD(811.9,50,0)="WEB SITES^811.9002^^50;0"
^DD(811.9,50,21,0)="^.001^5^5^3050124^^^^"
^DD(811.9,50,21,1,0)="This multiple contains Web sites that have information related to"
^DD(811.9,50,21,2,0)="this reminder. The list of web sites will be displayed in the CPRS"
^DD(811.9,50,21,3,0)="GUI if the user right-clicks on a reminder and then selects"
^DD(811.9,50,21,4,0)="reference information. If a particular web site is clicked on, the"
^DD(811.9,50,21,5,0)="GUI will open a browser at that web site."
^DD(811.9,50,"DT")="2991129"
^DD(811.9,51,0)="LINKED REMINDER DIALOG^*P801.41'^PXRMD(801.41,^51;1^S DIC(""S"")=""I $P(^(0),U,4)=""""R"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(811.9,51,1,0)="^.1"
^DD(811.9,51,1,1,0)="811.9^AG"
^DD(811.9,51,1,1,1)="S ^PXD(811.9,""AG"",$E(X,1,30),DA)="""""
^DD(811.9,51,1,1,2)="K ^PXD(811.9,""AG"",$E(X,1,30),DA)"
^DD(811.9,51,1,1,"DT")="2991005"
^DD(811.9,51,3)="Enter the dialog to be used in CPRS to resolve this reminder. "
^DD(811.9,51,12)="Reminders may only point to reminder dialog entries"
^DD(811.9,51,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""R"""""""
^DD(811.9,51,21,0)="^.001^2^2^3050124^^^^"
^DD(811.9,51,21,1,0)="This is the Reminder Dialog that will be used when the reminder is"
^DD(811.9,51,21,2,0)="processed in the CPRS GUI."
^DD(811.9,51,"DT")="3000423"
^DD(811.9,60,0)="GENERAL COHORT FOUND TEXT^811.9003^^60;0"
^DD(811.9,60,9)="^"
^DD(811.9,60,21,0)="^.001^3^3^3050124^^^^"
^DD(811.9,60,21,1,0)="This optional field defines the detailed text to display when the"
^DD(811.9,60,21,2,0)="Patient Cohort Logic is true. Detailed text is used for components"
^DD(811.9,60,21,3,0)="such as Clinical Maintenance and MyHealtheVet Detailed."
^DD(811.9,60,"DT")="3000504"
^DD(811.9,61,0)="GENERAL COHORT NOT FOUND TEXT^811.961^^61;0"
^DD(811.9,61,9)="^"
^DD(811.9,61,21,0)="^.001^4^4^3050124^^^^"
^DD(811.9,61,21,1,0)="This optional field defines the detailed text to display when the"
^DD(811.9,61,21,2,0)="Patient Cohort Logic is false. Detailed text is used for components"
^DD(811.9,61,21,3,0)="such as Clinical Maintenance and MyHealtheVet Detailed."
^DD(811.9,61,21,4,0)=""
^DD(811.9,61,"DT")="3000504"
^DD(811.9,62,0)="# OF GEN. COHORT FOUND LINES^F^^62;1^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,62,3)="Do not edit this field."
^DD(811.9,62,9)="^"
^DD(811.9,62,21,0)="^.001^5^5^3050124^^^^"
^DD(811.9,62,21,1,0)="This is the number of lines in the GENERAL COHORT FOUND TEXT. If the"
^DD(811.9,62,21,2,0)="number ends with ""T"" then the text contains TIU objects. This field"
^DD(811.9,62,21,3,0)="is set automatically during reminder edit and should never be edited"
^DD(811.9,62,21,4,0)="by hand."
^DD(811.9,62,21,5,0)=""
^DD(811.9,62,"DT")="3040604"
^DD(811.9,63,0)="# GEN. COHORT NOT FOUND LINES^F^^62;2^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,63,3)="Do not edit this field."
^DD(811.9,63,9)="^"
^DD(811.9,63,21,0)="^.001^5^5^3050124^^^^"
^DD(811.9,63,21,1,0)="This is the number of lines in the GENERAL COHORT NOT FOUND TEXT. If"
^DD(811.9,63,21,2,0)="the number ends with ""T"" then the text contains TIU objects. This"
^DD(811.9,63,21,3,0)="field is set automatically during reminder edit and should never be"
^DD(811.9,63,21,4,0)="edited by hand."
^DD(811.9,63,21,5,0)=""
^DD(811.9,63,"DT")="3040604"
^DD(811.9,65,0)="GENERAL RES. FOUND TEXT^811.965^^65;0"
^DD(811.9,65,9)="^"
^DD(811.9,65,21,0)="^.001^4^4^3050124^^^^"
^DD(811.9,65,21,1,0)="This optional field defines the detailed text to display when the"
^DD(811.9,65,21,2,0)="Resolution Logic is true. Detailed text is used for components such as"
^DD(811.9,65,21,3,0)="Clinical Maintenance and MyHealtheVet Detailed."
^DD(811.9,65,21,4,0)=""
^DD(811.9,65,"DT")="3040607"
^DD(811.9,66,0)="GENERAL RES. NOT FOUND TEXT^811.966^^66;0"
^DD(811.9,66,9)="^"
^DD(811.9,66,21,0)="^.001^4^4^3050124^^^^"
^DD(811.9,66,21,1,0)="This optional field defines the detailed text to display when the"
^DD(811.9,66,21,2,0)="Resolution Logic is false. Detailed text is used for components such as"
^DD(811.9,66,21,3,0)="Clinical Maintenance and MyHealtheVet Detailed."
^DD(811.9,66,21,4,0)=""
^DD(811.9,66,"DT")="3040607"
^DD(811.9,67,0)="# GEN. RES. FOUND LINES^F^^67;1^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,67,3)="Do not edit this field."
^DD(811.9,67,9)="^"
^DD(811.9,67,21,0)="^.001^5^5^3050124^^^"
^DD(811.9,67,21,1,0)="This is the number of lines in the GENERAL RESOLUTION FOUND TEXT. If"
^DD(811.9,67,21,2,0)="the number ends with ""T"" then the text contains TIU objects. This"
^DD(811.9,67,21,3,0)="field is set automatically during reminder edit and should never be"
^DD(811.9,67,21,4,0)="edited by hand."
^DD(811.9,67,21,5,0)=""
^DD(811.9,67,"DT")="3040604"
^DD(811.9,68,0)="# GEN. RES. NOT FOUND LINES^F^^67;2^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,68,3)="Do not edit this field."
^DD(811.9,68,9)="^"
^DD(811.9,68,21,0)="^.001^5^5^3050124^^^"
^DD(811.9,68,21,1,0)="This is the number of lines in the GENERAL RESOLUTION NOT FOUND"
^DD(811.9,68,21,2,0)="TEXT. If the number ends with ""T"" then the text contains TIU"
^DD(811.9,68,21,3,0)="objects. This field is set automatically during reminder edit and"
^DD(811.9,68,21,4,0)="should never be edited by hand."
^DD(811.9,68,21,5,0)=""
^DD(811.9,68,"DT")="3040604"
^DD(811.9,69,0)="RESCISSION DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.9,69,3)="Enter the RESCISSION DATE"
^DD(811.9,69,21,0)="^.001^1^1^3050121^^^"
^DD(811.9,69,21,1,0)="This is the rescission date for this reminder definition."
^DD(811.9,69,"DT")="3040617"
^DD(811.9,70,0)="SUMMARY COHORT FOUND TEXT^811.9004^^70;0"
^DD(811.9,70,9)="^"
^DD(811.9,70,21,0)="^.001^3^3^3050124^^^^"
^DD(811.9,70,21,1,0)="This optional field defines the summary text to display when the"
^DD(811.9,70,21,2,0)="Patient Cohort Logic is true. Summary text is used for components such"
^DD(811.9,70,21,3,0)="as MyHealtheVet Summary."
^DD(811.9,71,0)="SUMMARY COHORT NOT FOUND TEXT^811.971^^71;0"
^DD(811.9,71,9)="^"
^DD(811.9,71,21,0)="^.001^3^3^3050124^^^^"
^DD(811.9,71,21,1,0)="This optional field defines the summary text to display when the"
^DD(811.9,71,21,2,0)="Patient Cohort Logic is false. Summary text is used for components such "
^DD(811.9,71,21,3,0)="MyHealtheVet Summary."
^DD(811.9,72,0)="# SUM. COHORT FOUND LINES^F^^72;1^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,72,3)="Do not edit this field."
^DD(811.9,72,9)="^"
^DD(811.9,72,21,0)="^.001^5^5^3050124^^^^"
^DD(811.9,72,21,1,0)="This is the number of lines in the SUMMARY COHORT FOUND TEXT. If the"
^DD(811.9,72,21,2,0)="number ends with ""T"" then the text contains TIU objects. This field"
^DD(811.9,72,21,3,0)="is set automatically during reminder edit and should never be edited"
^DD(811.9,72,21,4,0)="by hand.  "
^DD(811.9,72,21,5,0)=""
^DD(811.9,72,"DT")="3040604"
^DD(811.9,73,0)="# SUM. COHORT NOT FOUND LINES^F^^72;2^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,73,3)="Do not edit this field."
^DD(811.9,73,9)="^"
^DD(811.9,73,21,0)="^.001^4^4^3050124^^"
^DD(811.9,73,21,1,0)="This is the number of lines in the SUMMARY COHORT NOT FOUND TEXT. If"
^DD(811.9,73,21,2,0)="the number ends with ""T"" then the text contains TIU objects. This"
^DD(811.9,73,21,3,0)="field is set automatically during reminder edit and should never be"
^DD(811.9,73,21,4,0)="edited by hand.  "
^DD(811.9,73,"DT")="3040607"
^DD(811.9,75,0)="SUMMARY RES. FOUND TEXT^811.975^^75;0"
^DD(811.9,75,9)="^"
^DD(811.9,75,21,0)="^.001^4^4^3050124^^^"
^DD(811.9,75,21,1,0)="This optional field defines the summary text to display when the"
^DD(811.9,75,21,2,0)="Resolution Logic is true. Summary text is used for components such "
^DD(811.9,75,21,3,0)="as MyHealtheVet Summary."
^DD(811.9,75,21,4,0)=""
^DD(811.9,75,"DT")="3040608"
^DD(811.9,76,0)="SUMMARY RES. NOT FOUND TEXT^811.976^^76;0"
^DD(811.9,76,9)="^"
^DD(811.9,76,21,0)="^.001^4^4^3050124^^^"
^DD(811.9,76,21,1,0)="This optional field defines the summary text to display when the"
^DD(811.9,76,21,2,0)="Resolution Logic is false. Summary text is used for components such "
^DD(811.9,76,21,3,0)="as MyHealtheVet Summary."
^DD(811.9,76,21,4,0)=""
^DD(811.9,77,0)="# SUM. RES. FOUND LINES^F^^77;1^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,77,3)="Do not edit this field."
^DD(811.9,77,9)="^"
^DD(811.9,77,21,0)="^.001^5^5^3050124^^"
^DD(811.9,77,21,1,0)="This is the number of lines in the SUMMARY RESOLUTION FOUND TEXT. If"
^DD(811.9,77,21,2,0)="the number ends with ""T"" then the text contains TIU objects. This"
^DD(811.9,77,21,3,0)="field is set automatically during reminder edit and should never be"
^DD(811.9,77,21,4,0)="edited by hand.  "
^DD(811.9,77,21,5,0)=""
^DD(811.9,77,"DT")="3040608"
^DD(811.9,78,0)="# SUM. RES. NOT FOUND LINES^F^^77;2^K:$L(X)>5!($L(X)<1) X"
^DD(811.9,78,3)="Do not edit this field."
^DD(811.9,78,9)="^"
^DD(811.9,78,21,0)="^.001^4^4^3050124^^^^"
^DD(811.9,78,21,1,0)="This is the number of lines in the SUMMARY RESOLUTION NOT FOUND"
^DD(811.9,78,21,2,0)="TEXT. If the number ends with ""T"" then the text contains TIU"
^DD(811.9,78,21,3,0)="objects. This field is set automatically during reminder edit and"
^DD(811.9,78,21,4,0)="should never be edited by hand."
^DD(811.9,78,"DT")="3040608"
^DD(811.9,100,0)="CLASS^RSX^N:NATIONAL;V:VISN;L:LOCAL;^100;1^K:'$$VCLASS^PXRMINTR(X) X"
^DD(811.9,100,3)="Enter the CLASS."
^DD(811.9,100,21,0)="^.001^3^3^3071004^^^^"
^DD(811.9,100,21,1,0)="This is the CLASS of the taxonomy. Possible classes are ""N"" for"
^DD(811.9,100,21,2,0)="national, ""V"" for VISN, and ""L"" for local. National taxonomies cannot"
^DD(811.9,100,21,3,0)="be edited by sites."
^DD(811.9,100,"DT")="3071004"
^DD(811.9,101,0)="SPONSOR^P811.6X^PXRMD(811.6,^100;2^K:'$$VSPONSOR^PXRMINTR(X) X"
^DD(811.9,101,3)="Enter the SPONSOR."
^DD(811.9,101,21,0)="^.001^1^1^3050124^^^"
^DD(811.9,101,21,1,0)="This is the organization or group that sponsors this definition."
^DD(811.9,101,"DT")="3010604"
^DD(811.9,102,0)="REVIEW DATE^D^^100;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(811.9,102,3)="Enter the REVIEW DATE."
^DD(811.9,102,21,0)="^.001^4^4^3050124^^^^"
^DD(811.9,102,21,1,0)="The REVIEW DATE is used to determine when the definition should be"
^DD(811.9,102,21,2,0)="reviewed to verify that it is current with the latest standards and"
^DD(811.9,102,21,3,0)="guidelines. You can find all reminder definitions whose review date"
^DD(811.9,102,21,4,0)="has passed using the Clinical Reminders Review Date Report."
^DD(811.9,102,"DT")="3010416"
^DD(811.9,103,0)="USAGE^RFX^^100;4^S X=$$UP^XLFSTR(X) K:'$$VUSAGE^PXRMINTR(X) X"
^DD(811.9,103,3)="Enter usage codes."
^DD(811.9,103,21,0)="^.001^17^17^3050124^^^^"
^DD(811.9,103,21,1,0)="The Usage field describes how the reminder definition will be"
^DD(811.9,103,21,2,0)="used. This field must contain C if the reminder is to be selected"
^DD(811.9,103,21,3,0)="in CPRS. The L value will override all other values. For"
^DD(811.9,103,21,4,0)="example, if L and C are defined in the usage field, the Reminder"
^DD(811.9,103,21,5,0)="will not show on the cover sheet in CPRS, because L is in the"
^DD(811.9,103,21,6,0)="Usage field."
^DD(811.9,103,21,7,0)=""
^DD(811.9,103,21,8,0)="This is free text field and can contain any combination of the"
^DD(811.9,103,21,9,0)="following codes: "
^DD(811.9,103,21,10,0)="                                 "
^DD(811.9,103,21,11,0)="             Code  Usage "
^DD(811.9,103,21,12,0)="              C    CPRS  "
^DD(811.9,103,21,13,0)="              L    Reminder Patient List"
^DD(811.9,103,21,14,0)="              P    Patient"
^DD(811.9,103,21,15,0)="              R    Reminder Reports  "
^DD(811.9,103,21,16,0)="              X    Reminder Extracts  "
^DD(811.9,103,21,17,0)="              *    All of the above, except L and P."
^DD(811.9,103,"DT")="3060615"
^DD(811.9,110,0)="EDIT HISTORY^811.9001D^^110;0"
^DD(811.9,110,21,0)="^.001^2^2^3050124^^^^"
^DD(811.9,110,21,1,0)="This multiple is used to record a history of changes made to the"
^DD(811.9,110,21,2,0)="definition."
^DD(811.9,"B","# GEN. COHORT NOT FOUND LINES",63)=""
^DD(811.9,"B","# GEN. RES. FOUND LINES",67)=""
^DD(811.9,"B","# GEN. RES. NOT FOUND LINES",68)=""
^DD(811.9,"B","# OF GEN. COHORT FOUND LINES",62)=""
^DD(811.9,"B","# SUM. COHORT FOUND LINES",72)=""
^DD(811.9,"B","# SUM. COHORT NOT FOUND LINES",73)=""
^DD(811.9,"B","# SUM. RES. FOUND LINES",77)=""
^DD(811.9,"B","# SUM. RES. NOT FOUND LINES",78)=""
^DD(811.9,"B","AGE FINDINGS COUNT",40)=""
^DD(811.9,"B","AGE FINDINGS LIST",41)=""
^DD(811.9,"B","BASELINE AGE FINDINGS",7)=""
^DD(811.9,"B","CLASS",100)=""
^DD(811.9,"B","CUSTOM DATE DUE",45)=""
^DD(811.9,"B","CUSTOM DATE DUE ARG LIST",48)=""
^DD(811.9,"B","CUSTOM DATE DUE FUNCTION",46)=""
^DD(811.9,"B","CUSTOMIZED COHORT LOGIC",30)=""
^DD(811.9,"B","CUSTOMIZED RESOLUTION LOGIC",34)=""
^DD(811.9,"B","DESCRIPTION",2)=""
^DD(811.9,"B","DO IN ADVANCE TIME FRAME",1.3)=""
^DD(811.9,"B","EDIT HISTORY",110)=""
^DD(811.9,"B","FINDINGS",20)=""
^DD(811.9,"B","FUNCTION FINDINGS",25)=""
^DD(811.9,"B","GENERAL COHORT FOUND TEXT",60)=""
^DD(811.9,"B","GENERAL COHORT NOT FOUND TEXT",61)=""
^DD(811.9,"B","GENERAL RES. FOUND TEXT",65)=""
^DD(811.9,"B","GENERAL RES. NOT FOUND TEXT",66)=""
^DD(811.9,"B","IGNORE ON N/A",1.8)=""
^DD(811.9,"B","INACTIVE CHANGE DATE",1.7)=""
^DD(811.9,"B","INACTIVE FLAG",1.6)=""
^DD(811.9,"B","INFORMATION FINDINGS COUNT",42)=""
^DD(811.9,"B","INFORMATION FINDINGS LIST",43)=""
^DD(811.9,"B","INTERNAL PATIENT COHORT LOGIC",31)=""
^DD(811.9,"B","INTERNAL RESOLUTION LOGIC",35)=""
^DD(811.9,"B","LINKED REMINDER DIALOG",51)=""
^DD(811.9,"B","NAME",.01)=""
^DD(811.9,"B","NUMBER OF ARGUMENTS",47)=""
^DD(811.9,"B","PATIENT COHORT FINDINGS COUNT",32)=""
^DD(811.9,"B","PATIENT COHORT FINDINGS LIST",33)=""
^DD(811.9,"B","PRINT NAME",1.2)=""
^DD(811.9,"B","PRIORITY",1.91)=""
^DD(811.9,"B","RELATED REMINDER GUIDELINE",1.4)=""
^DD(811.9,"B","RESCISSION DATE",69)=""
^DD(811.9,"B","RESOLUTION FINDINGS COUNT",36)=""
^DD(811.9,"B","RESOLUTION FINDINGS LIST",37)=""
^DD(811.9,"B","REVIEW DATE",102)=""
^DD(811.9,"B","SEX SPECIFIC",1.9)=""
^DD(811.9,"B","SPONSOR",101)=""
^DD(811.9,"B","SUMMARY COHORT FOUND TEXT",70)=""
^DD(811.9,"B","SUMMARY COHORT NOT FOUND TEXT",71)=""
^DD(811.9,"B","SUMMARY RES. FOUND TEXT",75)=""
^DD(811.9,"B","SUMMARY RES. NOT FOUND TEXT",76)=""
^DD(811.9,"B","TECHNICAL DESCRIPTION",3)=""
^DD(811.9,"B","USAGE",103)=""
^DD(811.9,"B","WEB SITES",50)=""
^DD(811.9,"GL",0,1,.01)=""
^DD(811.9,"GL",0,3,1.2)=""
^DD(811.9,"GL",0,4,1.3)=""
^DD(811.9,"GL",0,5,1.4)=""
^DD(811.9,"GL",0,6,1.6)=""
^DD(811.9,"GL",0,7,1.7)=""
^DD(811.9,"GL",0,8,1.8)=""
^DD(811.9,"GL",0,9,1.9)=""
^DD(811.9,"GL",0,10,1.91)=""
^DD(811.9,"GL",0,11,69)=""
^DD(811.9,"GL",1,0,2)=""
^DD(811.9,"GL",2,0,3)=""
^DD(811.9,"GL",7,0,7)=""
^DD(811.9,"GL",20,0,20)=""
^DD(811.9,"GL",25,0,25)=""
^DD(811.9,"GL",30,1,30)=""
^DD(811.9,"GL",31,1,31)=""
^DD(811.9,"GL",32,1,32)=""
^DD(811.9,"GL",32,2,33)=""
^DD(811.9,"GL",34,1,34)=""
^DD(811.9,"GL",35,1,35)=""
^DD(811.9,"GL",36,1,36)=""
^DD(811.9,"GL",36,2,37)=""
^DD(811.9,"GL",40,1,40)=""
^DD(811.9,"GL",40,2,41)=""
^DD(811.9,"GL",42,1,42)=""
^DD(811.9,"GL",42,2,43)=""
^DD(811.9,"GL",45,1,45)=""
^DD(811.9,"GL",46,1,46)=""
^DD(811.9,"GL",46,2,47)=""
^DD(811.9,"GL",47,0,48)=""
^DD(811.9,"GL",50,0,50)=""
^DD(811.9,"GL",51,1,51)=""
^DD(811.9,"GL",60,0,60)=""
^DD(811.9,"GL",61,0,61)=""
^DD(811.9,"GL",62,1,62)=""
^DD(811.9,"GL",62,2,63)=""
^DD(811.9,"GL",65,0,65)=""
^DD(811.9,"GL",66,0,66)=""
^DD(811.9,"GL",67,1,67)=""
^DD(811.9,"GL",67,2,68)=""
^DD(811.9,"GL",70,0,70)=""
^DD(811.9,"GL",71,0,71)=""
^DD(811.9,"GL",72,1,72)=""
^DD(811.9,"GL",72,2,73)=""
^DD(811.9,"GL",75,0,75)=""
^DD(811.9,"GL",76,0,76)=""
^DD(811.9,"GL",77,1,77)=""
^DD(811.9,"GL",77,2,78)=""
^DD(811.9,"GL",100,1,100)=""
^DD(811.9,"GL",100,2,101)=""
^DD(811.9,"GL",100,3,102)=""
^DD(811.9,"GL",100,4,103)=""
^DD(811.9,"GL",110,0,110)=""
^DD(811.9,"IX",.01)=""
^DD(811.9,"IX",1.6)=""
^DD(811.9,"IX",51)=""
^DD(811.9,"RQ",.01)=""
^DD(811.9,"RQ",100)=""
^DD(811.9,"RQ",103)=""
^DD(811.9,"SB",811.9001,110)=""
^DD(811.9,"SB",811.9002,50)=""
^DD(811.9,"SB",811.9003,60)=""
^DD(811.9,"SB",811.9004,70)=""
^DD(811.9,"SB",811.902,20)=""
^DD(811.9,"SB",811.92,2)=""
^DD(811.9,"SB",811.925,25)=""
^DD(811.9,"SB",811.93,3)=""
^DD(811.9,"SB",811.948,48)=""
^DD(811.9,"SB",811.961,61)=""
^DD(811.9,"SB",811.965,65)=""
^DD(811.9,"SB",811.966,66)=""
^DD(811.9,"SB",811.97,7)=""
^DD(811.9,"SB",811.971,71)=""
^DD(811.9,"SB",811.975,75)=""
^DD(811.9,"SB",811.976,76)=""
^DD(811.9001,0)="EDIT HISTORY SUB-FIELD^^2^3"
^DD(811.9001,0,"DT")="3010416"
^DD(811.9001,0,"IX","B",811.9001,.01)=""
^DD(811.9001,0,"NM","EDIT HISTORY")=""
^DD(811.9001,0,"UP")="811.9"
^DD(811.9001,.01,0)="EDIT DATE^D^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(811.9001,.01,1,0)="^.1"
^DD(811.9001,.01,1,1,0)="811.9001^B"
^DD(811.9001,.01,1,1,1)="S ^PXD(811.9,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(811.9001,.01,1,1,2)="K ^PXD(811.9,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(811.9001,.01,3)="Do not edit this field."
^DD(811.9001,.01,21,0)="^.001^2^2^3050124^^^"
^DD(811.9001,.01,21,1,0)="This is the date and time when the editing was done. This field is set"
^DD(811.9001,.01,21,2,0)="automatically and should not be changed by the user."
^DD(811.9001,.01,"DT")="3010416"
^DD(811.9001,1,0)="EDIT BY^P200'^VA(200,^0;2^Q"
^DD(811.9001,1,3)="Do not edit this field."
^DD(811.9001,1,21,0)="^.001^2^2^3050124^^^^"
^DD(811.9001,1,21,1,0)="This is the person who did the editing. This field is set automatically"
^DD(811.9001,1,21,2,0)="and should not be changed by the user."
^DD(811.9001,1,"DT")="3010416"
^DD(811.9001,2,0)="EDIT COMMENTS^811.90012^^1;0"
^DD(811.9001,2,21,0)="^.001^2^2^3050124^^^^"
^DD(811.9001,2,21,1,0)="This word-processing field can be used to record the changes made"
^DD(811.9001,2,21,2,0)="during the editing session."
^DD(811.9001,2,"DT")="3010425"
^DD(811.9001,"B","EDIT BY",1)=""
^DD(811.9001,"B","EDIT COMMENTS",2)=""
^DD(811.9001,"B","EDIT DATE",.01)=""
^DD(811.9001,"GL",0,1,.01)=""
^DD(811.9001,"GL",0,2,1)=""
^DD(811.9001,"GL",1,0,2)=""
^DD(811.9001,"IX",.01)=""
^DD(811.9001,"SB",811.90012,2)=""
^DD(811.90012,0)="EDIT COMMENTS SUB-FIELD^^.01^1"
^DD(811.90012,0,"DT")="3010416"
^DD(811.90012,0,"NM","EDIT COMMENTS")=""
^DD(811.90012,0,"UP")="811.9001"
^DD(811.90012,.01,0)="EDIT COMMENTS^W^^0;1^Q"
^DD(811.90012,.01,3)="Enter your edit comments."
^DD(811.90012,.01,"DT")="3010425"
^DD(811.90012,"B","EDIT COMMENTS",.01)=""
^DD(811.90012,"GL",0,1,.01)=""
^DD(811.9002,0)="WEB SITES SUB-FIELD^^1^3"
^DD(811.9002,0,"DT")="2991130"
^DD(811.9002,0,"IX","C",811.9002,.01)=""
^DD(811.9002,0,"NM","WEB SITES")=""
^DD(811.9002,0,"UP")="811.9"
^DD(811.9002,.01,0)="URL^MF^^0;1^K:$L(X)>128!($L(X)<1) X"
^DD(811.9002,.01,1,0)="^.1"
^DD(811.9002,.01,1,1,0)="811.9002^C"
^DD(811.9002,.01,1,1,1)="S ^PXD(811.9,DA(1),50,""C"",$E(X,1,30),DA)="""""
^DD(811.9002,.01,1,1,2)="K ^PXD(811.9,DA(1),50,""C"",$E(X,1,30),DA)"
^DD(811.9002,.01,1,1,"DT")="3010502"
^DD(811.9002,.01,3)="Enter a URL."
^DD(811.9002,.01,21,0)="^.001^1^1^3050121^^^^"
^DD(811.9002,.01,21,1,0)="This is the URL for the web site."
^DD(811.9002,.01,"DT")="3010502"
^DD(811.9002,.02,0)="WEB SITE TITLE^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(811.9002,.02,3)="Enter the web site title."
^DD(811.9002,.02,21,0)="^.001^3^3^3050121^^^^"
^DD(811.9002,.02,21,1,0)="This is the web site title that is used by the CPRS GUI. It will"
^DD(811.9002,.02,21,2,0)="appear after a right click, allowing the user to select the web"
^DD(811.9002,.02,21,3,0)="site."
^DD(811.9002,.02,"DT")="2991130"
^DD(811.9002,1,0)="WEB SITE DESCRIPTION^811.90021^^1;0"
^DD(811.9002,1,21,0)="^.001^1^1^3050121^^^^"
^DD(811.9002,1,21,1,0)="This field contains a description of the Web site."
^DD(811.9002,"B","URL",.01)=""
^DD(811.9002,"B","WEB SITE DESCRIPTION",1)=""
^DD(811.9002,"B","WEB SITE TITLE",.02)=""
^DD(811.9002,"GL",0,1,.01)=""
^DD(811.9002,"GL",0,2,.02)=""
^DD(811.9002,"GL",1,0,1)=""
^DD(811.9002,"IX",.01)=""
^DD(811.9002,"SB",811.90021,1)=""
^DD(811.90021,0)="WEB SITE DESCRIPTION SUB-FIELD^^.01^1"
^DD(811.90021,0,"DT")="2991130"
^DD(811.90021,0,"NM","WEB SITE DESCRIPTION")=""
^DD(811.90021,0,"UP")="811.9002"
^DD(811.90021,.01,0)="WEB SITE DESCRIPTION^W^^0;1^Q"
^DD(811.90021,.01,3)="Enter the Web site description."
^DD(811.90021,.01,"DT")="2991130"
^DD(811.90021,"B","WEB SITE DESCRIPTION",.01)=""
^DD(811.90021,"GL",0,1,.01)=""
^DD(811.9003,0)="GENERAL COHORT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.9003,0,"DT")="3000110"
^DD(811.9003,0,"NM","GENERAL COHORT FOUND TEXT")=""
^DD(811.9003,0,"UP")="811.9"
^DD(811.9003,.01,0)="GENERAL COHORT FOUND TEXT^W^^0;1^Q"
^DD(811.9003,.01,.1)="GENERAL PATIENT COHORT FOUND TEXT"
^DD(811.9003,.01,3)="Enter general text to display when the Patient Cohort Logic is true."
^DD(811.9003,.01,"DT")="3031016"
^DD(811.9003,"B","GENERAL COHORT FOUND TEXT",.01)=""
^DD(811.9003,"GL",0,1,.01)=""
^DD(811.9004,0)="SUMMARY COHORT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.9004,0,"DT")="3040604"
^DD(811.9004,0,"NM","SUMMARY COHORT FOUND TEXT")=""
^DD(811.9004,0,"UP")="811.9"
^DD(811.9004,.01,0)="SUMMARY COHORT FOUND TEXT^W^^0;1^Q"
^DD(811.9004,.01,.1)="SUMMARY PATIENT COHORT FOUND TEXT"
^DD(811.9004,.01,3)="Enter the summary text to display when the Patient Cohort Logic is true."
^DD(811.9004,.01,21,0)="^.001^1^1^3050124^^^^"
^DD(811.9004,.01,21,1,0)=""
^DD(811.9004,.01,"DT")="3040608"
^DD(811.9004,"B","SUMMARY COHORT FOUND TEXT",.01)=""
^DD(811.9004,"GL",0,1,.01)=""
^DD(811.902,0)="FINDINGS SUB-FIELD^^28^27"
^DD(811.902,0,"DT")="3070413"
^DD(811.902,0,"IX","B",811.902,.01)=""
^DD(811.902,0,"NM","FINDINGS")=""
^DD(811.902,0,"UP")="811.9"
^DD(811.902,.01,0)="FINDING ITEM^MVX^^0;1^Q"
^DD(811.902,.01,1,0)="^.1^^-1"
^DD(811.902,.01,1,1,0)="811.902^B"
^DD(811.902,.01,1,1,1)="S ^PXD(811.9,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(811.902,.01,1,1,2)="K ^PXD(811.9,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(811.902,.01,1,1,3)="Required Index for Variable Pointer"
^DD(811.902,.01,3)="Enter a finding item in the format: Prefix.Name"
^DD(811.902,.01,21,0)="^.001^2^2^3061212^^^^"
^DD(811.902,.01,21,1,0)="This field identifies the finding items included in the reminder"
^DD(811.902,.01,21,2,0)="definition."
^DD(811.902,.01,"DT")="3070413"
^DD(811.902,.01,"V",0)="^.12P^17^17"
^DD(811.902,.01,"V",1,0)="50^DRUG^5^DR^n^n"
^DD(811.902,.01,"V",2,0)="9999999.09^EDUCATION TOPIC^10^ED^n^n"
^DD(811.902,.01,"V",3,0)="9999999.15^EXAM^15^EX^n^n"
^DD(811.902,.01,"V",4,0)="9999999.64^HEALTH FACTOR^20^HF^n^n"
^DD(811.902,.01,"V",5,0)="9999999.14^IMMUNIZATION^25^IM^n^n"
^DD(811.902,.01,"V",6,0)="60^LABORATORY TEST^30^LT^n^n"
^DD(811.902,.01,"V",7,0)="601.71^MH TESTS AND SURVEYS^35^MH^n^n"
^DD(811.902,.01,"V",8,0)="101.43^ORDERABLE ITEM^40^OI^n^n"
^DD(811.902,.01,"V",9,0)="71^RADIOLOGY PROCEDURE^45^RP^n^n"
^DD(811.902,.01,"V",10,0)="811.4^REMINDER COMPUTED FINDING^50^CF^n^n"
^DD(811.902,.01,"V",11,0)="811.2^REMINDER TAXONOMY^55^TX^n^n"
^DD(811.902,.01,"V",12,0)="811.5^REMINDER TERM^60^RT^n^n"
^DD(811.902,.01,"V",13,0)="9999999.28^SKIN TEST^65^ST^n^n"
^DD(811.902,.01,"V",14,0)="50.605^VA DRUG CLASS^70^DC^n^n"
^DD(811.902,.01,"V",15,0)="50.6^VA GENERIC^75^DG^n^n"
^DD(811.902,.01,"V",16,0)="120.51^VITAL MEASUREMENT^80^VM^n^n"
^DD(811.902,.01,"V",17,0)="810.9^REMINDER LOCATION LIST^17^RL^n^n"
^DD(811.902,.01,"V","B",50,1)=""
^DD(811.902,.01,"V","B",50.6,15)=""
^DD(811.902,.01,"V","B",50.605,14)=""
^DD(811.902,.01,"V","B",60,6)=""
^DD(811.902,.01,"V","B",71,9)=""
^DD(811.902,.01,"V","B",101.43,8)=""
^DD(811.902,.01,"V","B",120.51,16)=""
^DD(811.902,.01,"V","B",601.71,7)=""
^DD(811.902,.01,"V","B",810.9,17)=""
^DD(811.902,.01,"V","B",811.2,11)=""
^DD(811.902,.01,"V","B",811.4,10)=""
^DD(811.902,.01,"V","B",811.5,12)=""
^DD(811.902,.01,"V","B",9999999.09,2)=""
^DD(811.902,.01,"V","B",9999999.14,5)=""
^DD(811.902,.01,"V","B",9999999.15,3)=""
^DD(811.902,.01,"V","B",9999999.28,13)=""
^DD(811.902,.01,"V","B",9999999.64,4)=""
^DD(811.902,.01,"V","M","DRUG",1)=""
^DD(811.902,.01,"V","M","EDUCATION TOPIC",2)=""
^DD(811.902,.01,"V","M","EXAM",3)=""
^DD(811.902,.01,"V","M","HEALTH FACTOR",4)=""
^DD(811.902,.01,"V","M","IMMUNIZATION",5)=""
^DD(811.902,.01,"V","M","LABORATORY TEST",6)=""
^DD(811.902,.01,"V","M","MH TESTS AND SURVEYS",7)=""
^DD(811.902,.01,"V","M","ORDERABLE ITEM",8)=""
^DD(811.902,.01,"V","M","RADIOLOGY PROCEDURE",9)=""
^DD(811.902,.01,"V","M","REMINDER COMPUTED FINDING",10)=""
^DD(811.902,.01,"V","M","REMINDER LOCATION LIST",17)=""
^DD(811.902,.01,"V","M","REMINDER TAXONOMY",11)=""
^DD(811.902,.01,"V","M","REMINDER TERM",12)=""
^DD(811.902,.01,"V","M","SKIN TEST",13)=""
^DD(811.902,.01,"V","M","VA DRUG CLASS",14)=""
^DD(811.902,.01,"V","M","VA GENERIC",15)=""
^DD(811.902,.01,"V","M","VITAL MEASUREMENT",16)=""
^DD(811.902,.01,"V","O",5,1)=""
^DD(811.902,.01,"V","O",10,2)=""
^DD(811.902,.01,"V","O",15,3)=""
^DD(811.902,.01,"V","O",17,17)=""
^DD(811.902,.01,"V","O",20,4)=""
^DD(811.902,.01,"V","O",25,5)=""
^DD(811.902,.01,"V","O",30,6)=""
^DD(811.902,.01,"V","O",35,7)=""
^DD(811.902,.01,"V","O",40,8)=""
^DD(811.902,.01,"V","O",45,9)=""
^DD(811.902,.01,"V","O",50,10)=""
^DD(811.902,.01,"V","O",55,11)=""
^DD(811.902,.01,"V","O",60,12)=""
^DD(811.902,.01,"V","O",65,13)=""
^DD(811.902,.01,"V","O",70,14)=""
^DD(811.902,.01,"V","O",75,15)=""
^DD(811.902,.01,"V","O",80,16)=""
^DD(811.902,.01,"V","P","CF",10)=""
^DD(811.902,.01,"V","P","DC",14)=""
^DD(811.902,.01,"V","P","DG",15)=""
^DD(811.902,.01,"V","P","DR",1)=""
^DD(811.902,.01,"V","P","ED",2)=""
^DD(811.902,.01,"V","P","EX",3)=""
^DD(811.902,.01,"V","P","HF",4)=""
^DD(811.902,.01,"V","P","IM",5)=""
^DD(811.902,.01,"V","P","LT",6)=""
^DD(811.902,.01,"V","P","MH",7)=""
^DD(811.902,.01,"V","P","OI",8)=""
^DD(811.902,.01,"V","P","RL",17)=""
^DD(811.902,.01,"V","P","RP",9)=""
^DD(811.902,.01,"V","P","RT",12)=""
^DD(811.902,.01,"V","P","ST",13)=""
^DD(811.902,.01,"V","P","TX",11)=""
^DD(811.902,.01,"V","P","VM",16)=""
^DD(811.902,1,0)="MINIMUM AGE^NJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.902,1,1,0)="^.1^^0"
^DD(811.902,1,3)="Enter the minimum age for the frequency associated with this finding."
^DD(811.902,1,21,0)="^.001^2^2^3050120^^^^"
^DD(811.902,1,21,1,0)="This field specifies the minimum age for defining an age range"
^DD(811.902,1,21,2,0)="associated with a frequency. Leave it blank if there is no minimum age."
^DD(811.902,1,"DT")="3031107"
^DD(811.902,2,0)="MAXIMUM AGE^NJ3,0^^0;3^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.902,2,1,0)="^.1^^0"
^DD(811.902,2,3)="Enter the maximum age for the frequency associated with this finding."
^DD(811.902,2,21,0)="^.001^2^2^3050121^^^^"
^DD(811.902,2,21,1,0)="This field specifies the maximum age for defining an age range"
^DD(811.902,2,21,2,0)="associated with a frequency. Leave it blank if there is no maximum age."
^DD(811.902,2,"DT")="3031107"
^DD(811.902,3,0)="REMINDER FREQUENCY^FX^^0;4^K:'$$VTPER^PXRMINTR(.X) X"
^DD(811.902,3,1,0)="^.1^^0"
^DD(811.902,3,3)="Enter a number followed by D, M, or Y for day, month, or year."
^DD(811.902,3,21,0)="^.001^6^6^3050212^^^^"
^DD(811.902,3,21,1,0)="If this finding is true (found) then use this frequency and the age"
^DD(811.902,3,21,2,0)="range specified by the MINIMUM AGE and MAXIMUM AGE to override the"
^DD(811.902,3,21,3,0)="baseline frequency age range set. The frequency is input as nD, nM,"
^DD(811.902,3,21,4,0)="or nY, where n is a number and D stands for days, M for months, Y"
^DD(811.902,3,21,5,0)="for years. Thus, for a reminder that is to be given once a year, the"
^DD(811.902,3,21,6,0)="values 365D, 12M, or 1Y would all work."
^DD(811.902,3,"DT")="3031107"
^DD(811.902,4,0)="FOUND TEXT^811.9024^^1;0"
^DD(811.902,4,9)="^"
^DD(811.902,4,21,0)="^.001^2^2^3050121^^^^"
^DD(811.902,4,21,1,0)="This is the text that will be displayed in the Clinical Maintenance"
^DD(811.902,4,21,2,0)="output if this finding is found (true)."
^DD(811.902,5,0)="NOT FOUND TEXT^811.9025^^2;0"
^DD(811.902,5,9)="^"
^DD(811.902,5,21,0)="^.001^2^2^3050121^^^^"
^DD(811.902,5,21,1,0)="This is the text that will be displayed in the Clinical Maintenance"
^DD(811.902,5,21,2,0)="output if the finding is not found (false)."
^DD(811.902,6,0)="RANK FREQUENCY^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.902,6,3)="Enter an optional rank from 1 to 999 or leave blank."
^DD(811.902,6,21,0)="^.001^11^11^3050120^^^^"
^DD(811.902,6,21,1,0)="This field is used to rank the frequency and age range sets associated"
^DD(811.902,6,21,2,0)="with a finding. If there is more than one true finding that can"
^DD(811.902,6,21,3,0)="override the baseline frequency age range set, then the determination of"
^DD(811.902,6,21,4,0)="which one to use is made based on the finding with the highest rank."
^DD(811.902,6,21,5,0)="Ranks can range from 1 to 999 with 1 being the highest rank."
^DD(811.902,6,21,6,0)=" "
^DD(811.902,6,21,7,0)="When the Rank field is blank (null) for all true findings that can"
^DD(811.902,6,21,8,0)="override the baseline frequency age range set, then the frequency that"
^DD(811.902,6,21,9,0)="will cause the reminder to be given most often will be used. For"
^DD(811.902,6,21,10,0)="example, if finding 1 has a frequency of 6 months, and finding 2 has a"
^DD(811.902,6,21,11,0)="frequency of 1 year, finding 1 will be used to override the baseline."
^DD(811.902,6,"DT")="2990325"
^DD(811.902,7,0)="USE IN RESOLUTION LOGIC^S^&:AND;!:OR;&':AND NOT;!':OR NOT;^0;6^Q"
^DD(811.902,7,1,0)="^.1^^0"
^DD(811.902,7,3)="Enter the logic operator to be used in the default Internal Resolution Logic."
^DD(811.902,7,21,0)="^.001^27^27^3050124^^^^"
^DD(811.902,7,21,1,0)="This optional field is used to indicate that this finding item"
^DD(811.902,7,21,2,0)="should be included as part of the resolution logic for this"
^DD(811.902,7,21,3,0)="reminder. Note - if the CUSTOMIZED RESOLUTION LOGIC is defined then"
^DD(811.902,7,21,4,0)="this field is ignored."
^DD(811.902,7,21,5,0)=" "
^DD(811.902,7,21,6,0)="Valid entries for the USE IN RESOLUTION LOGIC field are:"
^DD(811.902,7,21,7,0)=" "
^DD(811.902,7,21,8,0)="                       EQUATES TO BOOLEAN"
^DD(811.902,7,21,9,0)="  OPERATOR   VALUE     OPERATOR LOGIC"
^DD(811.902,7,21,10,0)="  --------   -----     ------------------"
^DD(811.902,7,21,11,0)="             BLANK     not included in Resolution Logic"
^DD(811.902,7,21,12,0)="                       (Use @ to delete value)"
^DD(811.902,7,21,13,0)="   &         AND       &(Finding)"
^DD(811.902,7,21,14,0)="   !         OR        !(Finding)"
^DD(811.902,7,21,15,0)="   &'        AND NOT   &'(Finding)"
^DD(811.902,7,21,16,0)="   !'        OR NOT    !'(Finding)"
^DD(811.902,7,21,17,0)=" "
^DD(811.902,7,21,18,0)="All finding items that have a value in this field are automatically"
^DD(811.902,7,21,19,0)="combined to create the DEFAULT RESOLUTION LOGIC."
^DD(811.902,7,21,20,0)=" "
^DD(811.902,7,21,21,0)="After all findings have been evaluated, the finding item is replaced"
^DD(811.902,7,21,22,0)="by its true or false value in the resolution logic and the"
^DD(811.902,7,21,23,0)="resolution logic is evaluated. If the resolution logic evaluates to"
^DD(811.902,7,21,24,0)="true, then the last resolution date is determined. The applicable"
^DD(811.902,7,21,25,0)="frequency is added to the resolution date to determine when the"
^DD(811.902,7,21,26,0)="reminder is next due. If the resolution logic evaluates to false,"
^DD(811.902,7,21,27,0)="then reminder is due."
^DD(811.902,7,"DT")="3031107"
^DD(811.902,8,0)="USE IN PATIENT COHORT LOGIC^S^&:AND;!:OR;&':AND NOT;!':OR NOT;^0;7^Q"
^DD(811.902,8,1,0)="^.1^^0"
^DD(811.902,8,3)="Enter the logic operator to be used in the default Internal Patient Cohort Logic"
^DD(811.902,8,21,0)="^.001^31^31^3050124^^^^"
^DD(811.902,8,21,1,0)="This optional field is used to indicate that this finding item"
^DD(811.902,8,21,2,0)="should be included as part of the Patient Cohort Logic for this"
^DD(811.902,8,21,3,0)="reminder. Note - if the CUSTOMIZED COHORT LOGIC is defined then this"
^DD(811.902,8,21,4,0)="field is ignored."
^DD(811.902,8,21,5,0)=" "
^DD(811.902,8,21,6,0)="Valid entries for the USE IN PATIENT COHORT LOGIC field are:"
^DD(811.902,8,21,7,0)=" "
^DD(811.902,8,21,8,0)="                     EQUATES TO BOOLEAN"
^DD(811.902,8,21,9,0)="  OPERATOR  VALUE     OPERATOR LOGIC"
^DD(811.902,8,21,10,0)="  --------  -----     ------------------"
^DD(811.902,8,21,11,0)="            BLANK     not included in Patient Cohort Logic"
^DD(811.902,8,21,12,0)="                      (Use @ to delete value)"
^DD(811.902,8,21,13,0)="   &        AND       &(Finding)"
^DD(811.902,8,21,14,0)="   !        OR        !(Finding)"
^DD(811.902,8,21,15,0)="   &'       AND NOT   &'(Finding)"
^DD(811.902,8,21,16,0)="   !'       OR NOT    !'(Finding)"
^DD(811.902,8,21,17,0)=" "
^DD(811.902,8,21,18,0)="All finding items that have a value in this field are automatically"
^DD(811.902,8,21,19,0)="combined to create the DEFAULT COHORT LOGIC. The default logic"
^DD(811.902,8,21,20,0)="string initially includes (SEX)&(AGE), regardless of whether the"
^DD(811.902,8,21,21,0)="baseline specifies SEX and AGE criteria. Each finding item with a"
^DD(811.902,8,21,22,0)="value in the Use In Patient Cohort Logic field is appended to the"
^DD(811.902,8,21,23,0)="string by using the operator and finding item. For example, if"
^DD(811.902,8,21,24,0)="finding item 2 had an operator for this field of ""&"" then the string"
^DD(811.902,8,21,25,0)="would be (SEX)&(AGE)&FI(2)."
^DD(811.902,8,21,26,0)=""
^DD(811.902,8,21,27,0)="After all findings have been evaluated, the finding item is replaced"
^DD(811.902,8,21,28,0)="by its true or false value in the cohort logic and the cohort logic"
^DD(811.902,8,21,29,0)="is evaluated. If the cohort logic evaluates to true, then the reminder"
^DD(811.902,8,21,30,0)="is applicable to the patient. If the cohort logic evaluates to false,"
^DD(811.902,8,21,31,0)="then reminder is non-applicable or N/A."
^DD(811.902,8,"DT")="3031107"
^DD(811.902,9,0)="BEGINNING DATE/TIME^FX^^0;8^S X=$$COTN^PXRMDATE(X) K:(($L(X)<1)!($L(X)>20)!('$$VDT^PXRMINTR(X))) X"
^DD(811.902,9,3)="Enter the Beginning Date/Time"
^DD(811.902,9,21,0)="^.001^13^13^3050124^^^^"
^DD(811.902,9,21,1,0)="This is the beginning date/time to search for the finding. When"
^DD(811.902,9,21,2,0)="combined with the ENDING DATE/TIME, they define a date range in"
^DD(811.902,9,21,3,0)="which to search for the finding."
^DD(811.902,9,21,4,0)=""
^DD(811.902,9,21,5,0)="This can be entered in acceptable FileMan date/time formats and"
^DD(811.902,9,21,6,0)="abbreviations. In addition, you may use the abbreviations T-NY or"
^DD(811.902,9,21,7,0)="NOW-NY, where N is an integer and Y stands for years. If this is"
^DD(811.902,9,21,8,0)="null, then the beginning date/time will correspond with the "
^DD(811.902,9,21,9,0)="date/time of the oldest entry."
^DD(811.902,9,21,10,0)=""
^DD(811.902,9,21,11,0)="See the FileMan Getting Started Manual to learn about acceptable"
^DD(811.902,9,21,12,0)="FileMan date/time formats and abbreviations."
^DD(811.902,9,21,13,0)=""
^DD(811.902,9,"DT")="3040924"
^DD(811.902,10,0)="USE INACTIVE PROBLEMS^S^1:YES;0:N;^0;9^Q"
^DD(811.902,10,3)="Enter a 1 or YES if you want inactive problems used."
^DD(811.902,10,21,0)="^.001^4^4^3050124^^^^"
^DD(811.902,10,21,1,0)="Normally only active problems from the Problem List will be used in the"
^DD(811.902,10,21,2,0)="reminder evaluation. If USE INACTIVE PROBLEMS is set to YES then both"
^DD(811.902,10,21,3,0)="active and inactive problems will be used. Note that this field applies"
^DD(811.902,10,21,4,0)="only to taxonomy findings."
^DD(811.902,10,"DT")="2990325"
^DD(811.902,11,0)="WITHIN CATEGORY RANK^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.902,11,3)="Enter a number between 0 and 999."
^DD(811.902,11,21,0)="^.001^16^16^3050124^^^^"
^DD(811.902,11,21,1,0)="This field applies only to health factors. In order to understand"
^DD(811.902,11,21,2,0)="how it works, you need to understand how health factors work in the"
^DD(811.902,11,21,3,0)="reminder evaluation process. If you are not clear about this, see"
^DD(811.902,11,21,4,0)="the health factor section of the Clinical Reminder Manager Manual."
^DD(811.902,11,21,5,0)=""
^DD(811.902,11,21,6,0)="The default behavior is to use only the most recent health factor"
^DD(811.902,11,21,7,0)="within a category. A problem can arise if there are two or more"
^DD(811.902,11,21,8,0)="health factors within a category and they both have the same date."
^DD(811.902,11,21,9,0)="(This can happen if both health factors are given during the same"
^DD(811.902,11,21,10,0)="encounter).  When the dates are the same, the health factor with the"
^DD(811.902,11,21,11,0)="highest WITHIN CATEGORY RANK will be used. This is a numerical value"
^DD(811.902,11,21,12,0)="like RANK FREQUENCY, with 1 being the highest rank."
^DD(811.902,11,21,13,0)=""
^DD(811.902,11,21,14,0)="If WITHIN CATEGORY RANK has the special value of 0, then the"
^DD(811.902,11,21,15,0)="categorization of health factors will be ignored and the health"
^DD(811.902,11,21,16,0)="factor will be treated as a distinct finding."
^DD(811.902,11,"DT")="3000501"
^DD(811.902,12,0)="ENDING DATE/TIME^FX^^0;11^S X=$$COTN^PXRMDATE(X) K:(($L(X)<1)!($L(X)>20)!('$$VDT^PXRMINTR(X))) X"
^DD(811.902,12,3)="Enter the Ending Date/Time"
^DD(811.902,12,21,0)="^.001^15^15^3050124^^^^"
^DD(811.902,12,21,1,0)="This is the ending date/time to search for findings. When combined"
^DD(811.902,12,21,2,0)="with the BEGINNING DATE/TIME they define a date range in which to"
^DD(811.902,12,21,3,0)="search for the finding. The ENDING DATE/TIME must be after the"
^DD(811.902,12,21,4,0)="BEGINNING DATE/TIME."
^DD(811.902,12,21,5,0)=""
^DD(811.902,12,21,6,0)="This can be entered in acceptable FileMan date/time formats and"
^DD(811.902,12,21,7,0)="abbreviations. In addition, you may use the abbreviations T-NY or "
^DD(811.902,12,21,8,0)="NOW-NY, where N is an integer and Y stands for years. If this is null,"
^DD(811.902,12,21,9,0)="then the end date/time will correspond with the date/time of the"
^DD(811.902,12,21,10,0)="most recent entry.  "
^DD(811.902,12,21,11,0)="                                 "
^DD(811.902,12,21,12,0)="See the FileMan Getting Started Manual to learn about acceptable"
^DD(811.902,12,21,13,0)="FileMan date/time formats and abbreviations."
^DD(811.902,12,21,14,0)=""
^DD(811.902,12,21,15,0)=""
^DD(811.902,12,"DT")="3040924"
^DD(811.902,13,0)="MH SCALE^NJ15,0X^^0;12^K:+X'=X!(X>999999999999999)!(X<1)!('$$VSCALEF^PXRMMH(X)) X"
^DD(811.902,13,3)="Enter the scale number."
^DD(811.902,13,4)="D SCHELPF^PXRMMH"
^DD(811.902,13,21,0)="^.001^3^3^3070413^^"
^DD(811.902,13,21,1,0)="This applies only to Mental Health Instrument findings. It sets the"
^DD(811.902,13,21,2,0)="default scale, i.e., the value for V in the Condition."
^DD(811.902,13,21,3,0)=""
^DD(811.902,13,"DT")="3070430"
^DD(811.902,14,0)="CONDITION^FX^^3;1^K:($L(X)<3)!($L(X)>225)!('$$VCOND^PXRMCOND(X)) X"
^DD(811.902,14,3)="Answer must be 3-225 characters in length."
^DD(811.902,14,21,0)="^.001^49^49^3050124^^^^"
^DD(811.902,14,21,1,0)="The CONDITION must be written in M code based on the value returned from"
^DD(811.902,14,21,2,0)="the patient results for the finding. Each type of finding has a specific"
^DD(811.902,14,21,3,0)="field that provides the value available to use in the CONDITION logic."
^DD(811.902,14,21,4,0)="If the finding value is text, enclose the condition value in quotes "
^DD(811.902,14,21,5,0)="(e.g., ""positive""). If the finding value is numeric, do not use quotes"
^DD(811.902,14,21,6,0)="(e.g., 3)."
^DD(811.902,14,21,7,0)=" "
^DD(811.902,14,21,8,0)="An IF statement is used to evaluate the value.  The value is always"
^DD(811.902,14,21,9,0)="identified as V in the statement regardless of the type of finding. If "
^DD(811.902,14,21,10,0)="the condition logic statement evaluates to true, the finding is "
^DD(811.902,14,21,11,0)="considered as found (true); otherwise the finding is considered as not"
^DD(811.902,14,21,12,0)="found (false)."
^DD(811.902,14,21,13,0)=" "
^DD(811.902,14,21,14,0)="Relational operators that may be used include: = equals, < less than, >"
^DD(811.902,14,21,15,0)="greater than, [ contains, ] follows and ? pattern matches. Logical"
^DD(811.902,14,21,16,0)="operators may be used to check multiple values: & And, ! Or, ' Not. "
^DD(811.902,14,21,17,0)="         "
^DD(811.902,14,21,18,0)="Typical examples of M code are as follows:"
^DD(811.902,14,21,19,0)="    I V=3 for Education Topic's Level of Understanding = 3"
^DD(811.902,14,21,20,0)="    I V=""H"" for Health Factor's Level/Severity=""H"""
^DD(811.902,14,21,21,0)="    I ($P(V,""/"",1)>140)&($P(V,""/"",2)>90) for elevated blood pressure"
^DD(811.902,14,21,22,0)="    systolic and diastolic values"
^DD(811.902,14,21,23,0)="    I ($P(V,""/"",1)>140)!($P(V,""/"",2)>90) for elevated blood pressure"
^DD(811.902,14,21,24,0)="    systolic or diastolic values"
^DD(811.902,14,21,25,0)="    I V[""BLACK"" for VA-RACE computed finding where race contains BLACK"
^DD(811.902,14,21,26,0)=" "
^DD(811.902,14,21,27,0)="Below is a brief summary for each finding type, the related field to use"
^DD(811.902,14,21,28,0)="for the value, and examples:"
^DD(811.902,14,21,29,0)=" "
^DD(811.902,14,21,30,0)="Finding type                Field Value Used        Example M Code"
^DD(811.902,14,21,31,0)=" "
^DD(811.902,14,21,32,0)=" Drug                       None"
^DD(811.902,14,21,33,0)=" Education Topic            Level of understanding  I V=3"
^DD(811.902,14,21,34,0)=" Exam                       Result                  I V=""N"""
^DD(811.902,14,21,35,0)=" Health Factor              Level/severity          I V=""H"""
^DD(811.902,14,21,36,0)=" Immunization               Series                  I V=""P"""
^DD(811.902,14,21,37,0)=" Laboratory Test            Result Value            I V>130"
^DD(811.902,14,21,38,0)=" Mental Health Instrument   Raw score               I V=1"
^DD(811.902,14,21,39,0)=" Orderable Item             Status                  I V=""complete"""
^DD(811.902,14,21,40,0)=" Radiology Procedure        None"
^DD(811.902,14,21,41,0)=" Reminder Computed Finding  Determined by programmer-See Manager Manual"
^DD(811.902,14,21,42,0)=" Reminder Taxonomy          None"
^DD(811.902,14,21,43,0)=" Skin Test                  Result                  I V=""N"""
^DD(811.902,14,21,44,0)=" VA Drug Class              None"
^DD(811.902,14,21,45,0)=" VA Generic                 None"
^DD(811.902,14,21,46,0)=" Vital Measurement          Rate                    I V>27"
^DD(811.902,14,21,47,0)=" "
^DD(811.902,14,21,48,0)="For details about allowed CONDITIONS for each finding type, see the"
^DD(811.902,14,21,49,0)="Clinical Reminders Manager Manual."
^DD(811.902,14,"DT")="3030923"
^DD(811.902,15,0)="CONDITION CASE SENSITIVE^S^0:NO;1:YES;^3;2^Q"
^DD(811.902,15,3)="Enter NO to make the condition case insensitive."
^DD(811.902,15,21,0)="^.001^3^3^3050124^^^^"
^DD(811.902,15,21,1,0)="When CONDITION CASE SENSITIVE is NO, then the CONDITION will be"
^DD(811.902,15,21,2,0)="evaluated without regard to case. The default is YES, so that"
^DD(811.902,15,21,3,0)="CONDITION evaluation is case sensitive."
^DD(811.902,15,"DT")="3040907"
^DD(811.902,16,0)="RXTYPE^FX^^0;13^S X=$$UP^XLFSTR(X) K:($L(X)>20)!($L(X)<1)!('$$VRXTYPE^PXRMRXTY(X)) X"
^DD(811.902,16,3)="Enter the RXTYPE string."
^DD(811.902,16,4)="D RXTYXHLP^PXRMRXTY"
^DD(811.902,16,21,0)="^.001^6^6^3050124^^^^"
^DD(811.902,16,21,1,0)="RXTYPE applies only to drug findings; it controls the search for"
^DD(811.902,16,21,2,0)="patient medications. The possible values for RXTYPE are ""I"" for"
^DD(811.902,16,21,3,0)="inpatient, ""N"" for non-VA meds, and ""O"" for outpatient. RXTYPE can"
^DD(811.902,16,21,4,0)="be any combination of these such as ""NO"" which will search for"
^DD(811.902,16,21,5,0)="non-VA meds and outpatient medications. If RXTYPE is blank it is"
^DD(811.902,16,21,6,0)="equivalent to a value of ""INO""."
^DD(811.902,16,"DT")="3040924"
^DD(811.902,17,0)="OCCURRENCE COUNT^NJ2,0^^0;14^K:+X'=X!(X>99)!(X<-99)!(X?.E1"".""1N.N) X"
^DD(811.902,17,3)="Type a Number between -99 and 99, 0 Decimal Digits"
^DD(811.902,17,21,0)="^.001^7^7^3050212^^^^"
^DD(811.902,17,21,1,0)="This is the maximum number of occurrences of the finding in the date"
^DD(811.902,17,21,2,0)="range to return. If the OCCURRENCE COUNT is input as a positive number,"
^DD(811.902,17,21,3,0)="N, up to N of the most recent occurrences will be returned and the"
^DD(811.902,17,21,4,0)="finding will take the value of the most recent occurrence. If the"
^DD(811.902,17,21,5,0)="OCCURRENCE COUNT is input as a negative number then this behavior is"
^DD(811.902,17,21,6,0)="reversed. Up to N of the oldest occurrences will be returned and the"
^DD(811.902,17,21,7,0)="finding will take the value of the oldest occurrence in the list."
^DD(811.902,17,"DT")="3030922"
^DD(811.902,18,0)="USE STATUS/COND IN SEARCH^S^1:YES;0:NO;^3;3^Q"
^DD(811.902,18,3)="Enter a ""Yes"" if you want the STATUS LIST and/or CONDITION used in the finding search."
^DD(811.902,18,21,0)="^.001^11^11^3060509^^^^"
^DD(811.902,18,21,1,0)="Give this field a value of ""YES"" if you want the STATUS LIST and/or"
^DD(811.902,18,21,2,0)="CONDITION applied to each result found in the date range for this"
^DD(811.902,18,21,3,0)="finding. Only results that have a status on the list or for which"
^DD(811.902,18,21,4,0)="the CONDITION is true will be retained. The maximum number to retain"
^DD(811.902,18,21,5,0)="is specified by the OCCURRENCE COUNT."
^DD(811.902,18,21,6,0)=""
^DD(811.902,18,21,7,0)="Note - if the finding has both a STATUS LIST and a CONDITION the"
^DD(811.902,18,21,8,0)="status check will be made first; the CONDITION will be applied only"
^DD(811.902,18,21,9,0)="if the finding passes the status check."
^DD(811.902,18,21,10,0)=""
^DD(811.902,18,21,11,0)=""
^DD(811.902,18,"DT")="3060509"
^DD(811.902,21,0)="STATUS LIST^811.90221^^5;0"
^DD(811.902,21,9)="^"
^DD(811.902,21,21,0)="^.001^6^6^3050212^^^^"
^DD(811.902,21,21,1,0)="This field applies to finding types that have an associated status."
^DD(811.902,21,21,2,0)="When the search for patient findings is done only those findings that"
^DD(811.902,21,21,3,0)="have a status on the list can be true. The allowable values depend on"
^DD(811.902,21,21,4,0)="the finding type. If no statuses are specified then the default list"
^DD(811.902,21,21,5,0)="for each finding type will be used. The default lists can be found in"
^DD(811.902,21,21,6,0)="the Clinical Reminders Manager Manual."
^DD(811.902,22,0)="INTERNAL CONDITION^F^^10;1^K:$L(X)>245!($L(X)<3) X"
^DD(811.902,22,3)="Do not edit this field."
^DD(811.902,22,21,0)="^.001^2^2^3050212^^^^"
^DD(811.902,22,21,1,0)="This is the internal form of the condition. It is set automatically and"
^DD(811.902,22,21,2,0)="should never be set by hand."
^DD(811.902,22,"DT")="3030915"
^DD(811.902,23,0)="V SUBSCRIPT LIST^F^^11;1^K:$L(X)>245!($L(X)<1) X"
^DD(811.902,23,3)="Do not edit this field."
^DD(811.902,23,21,0)="^.001^3^3^3050212^^^^"
^DD(811.902,23,21,1,0)="This is a list of V value subscripts used in the CONDITION. It is used"
^DD(811.902,23,21,2,0)="when the CONDITION is not case sensitive. This should never be set by"
^DD(811.902,23,21,3,0)="hand."
^DD(811.902,23,"DT")="3030915"
^DD(811.902,24,0)="NO. OF FOUND TEXT LINES^F^^6;1^K:$L(X)>5!($L(X)<1) X"
^DD(811.902,24,3)="Do not edit this field."
^DD(811.902,24,9)="^"
^DD(811.902,24,21,0)="^.001^5^5^3050212^^^^"
^DD(811.902,24,21,1,0)="This is the number of lines in the found text. If the number ends"
^DD(811.902,24,21,2,0)="with ""T"" then the text contains TIU objects. This field is set"
^DD(811.902,24,21,3,0)="automatically during reminder edit and should never be edited by"
^DD(811.902,24,21,4,0)="hand."
^DD(811.902,24,21,5,0)=""
^DD(811.902,24,"DT")="3031017"
^DD(811.902,25,0)="NO. NOT FOUND TEXT LINES^F^^6;2^K:$L(X)>5!($L(X)<1) X"
^DD(811.902,25,3)="Do not edit this field."
^DD(811.902,25,9)="^"
^DD(811.902,25,21,0)="^.001^5^5^3050212^^^^"
^DD(811.902,25,21,1,0)="This is the number of lines in the not found text. If the number"
^DD(811.902,25,21,2,0)="ends with ""T"" then the text contains TIU objects. This field is set"
^DD(811.902,25,21,3,0)="automatically during reminder edit and should never be edited by"
^DD(811.902,25,21,4,0)="hand."
^DD(811.902,25,21,5,0)=""
^DD(811.902,25,"DT")="3031017"
^DD(811.902,26,0)="COMPUTED FINDING PARAMETER^F^^15;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(811.902,26,3)="Answer must be 1-245 characters in length."
^DD(811.902,26,9)=""
^DD(811.902,26,21,0)="^.001^1^1^3050212^^^^"
^DD(811.902,26,21,1,0)="This field is used to pass a parameter into the computed finding."
^DD(811.902,26,"DT")="3060609"
^DD(811.902,27,0)="USE START DATE^S^0:NO;1:YES;^0;15^Q"
^DD(811.902,27,3)="Enter YES if you want to use the Start Date as the date of the finding"
^DD(811.902,27,21,0)="^.001^4^4^3050808^^^^"
^DD(811.902,27,21,1,0)="For findings that have a Start Date and a Stop Date the default is"
^DD(811.902,27,21,2,0)="to use the Stop Date as the date of the finding. Enter a YES for"
^DD(811.902,27,21,3,0)="this field if you want to use the Start Date as the date of the"
^DD(811.902,27,21,4,0)="finding."
^DD(811.902,27,"DT")="3050708"
^DD(811.902,28,0)="INCLUDE VISIT DATA^S^0:NO;1:YES;^0;16^Q"
^DD(811.902,28,3)="Enter YES or NO"
^DD(811.902,28,21,0)="^^5^5^3060127^"
^DD(811.902,28,21,1,0)="This applies only to V file findings; if it is ""YES"" then data from"
^DD(811.902,28,21,2,0)="the associated visit will be available for use in a Condition. The"
^DD(811.902,28,21,3,0)="default is ""NO."""
^DD(811.902,28,21,4,0)=""
^DD(811.902,28,21,5,0)=""
^DD(811.902,28,"DT")="3060127"
^DD(811.902,"B","BEGINNING DATE/TIME",9)=""
^DD(811.902,"B","COMPUTED FINDING PARAMETER",26)=""
^DD(811.902,"B","CONDITION",14)=""
^DD(811.902,"B","CONDITION CASE SENSITIVE",15)=""
^DD(811.902,"B","ENDING DATE/TIME",12)=""
^DD(811.902,"B","FINDING ITEM",.01)=""
^DD(811.902,"B","FOUND TEXT",4)=""
^DD(811.902,"B","INCLUDE VISIT DATA",28)=""
^DD(811.902,"B","INTERNAL CONDITION",22)=""
^DD(811.902,"B","MAXIMUM AGE",2)=""
^DD(811.902,"B","MH SCALE",13)=""
^DD(811.902,"B","MINIMUM AGE",1)=""
^DD(811.902,"B","NO. NOT FOUND TEXT LINES",25)=""
^DD(811.902,"B","NO. OF FOUND TEXT LINES",24)=""
^DD(811.902,"B","NOT FOUND TEXT",5)=""
^DD(811.902,"B","OCCURRENCE COUNT",17)=""
^DD(811.902,"B","RANK FREQUENCY",6)=""
^DD(811.902,"B","REMINDER FREQUENCY",3)=""
^DD(811.902,"B","RXTYPE",16)=""
^DD(811.902,"B","STATUS LIST",21)=""
^DD(811.902,"B","USE IN PATIENT COHORT LOGIC",8)=""
^DD(811.902,"B","USE IN RESOLUTION LOGIC",7)=""
^DD(811.902,"B","USE INACTIVE PROBLEMS",10)=""
^DD(811.902,"B","USE START DATE",27)=""
^DD(811.902,"B","USE STATUS/COND IN SEARCH",18)=""
^DD(811.902,"B","V SUBSCRIPT LIST",23)=""
^DD(811.902,"B","WITHIN CATEGORY RANK",11)=""
^DD(811.902,"GL",0,1,.01)=""
^DD(811.902,"GL",0,2,1)=""
^DD(811.902,"GL",0,3,2)=""
^DD(811.902,"GL",0,4,3)=""
^DD(811.902,"GL",0,5,6)=""
^DD(811.902,"GL",0,6,7)=""
^DD(811.902,"GL",0,7,8)=""
^DD(811.902,"GL",0,8,9)=""
^DD(811.902,"GL",0,9,10)=""
^DD(811.902,"GL",0,10,11)=""
^DD(811.902,"GL",0,11,12)=""
^DD(811.902,"GL",0,12,13)=""
^DD(811.902,"GL",0,13,16)=""
^DD(811.902,"GL",0,14,17)=""
^DD(811.902,"GL",0,15,27)=""
^DD(811.902,"GL",0,16,28)=""
^DD(811.902,"GL",1,0,4)=""
^DD(811.902,"GL",2,0,5)=""
^DD(811.902,"GL",3,1,14)=""
^DD(811.902,"GL",3,2,15)=""
^DD(811.902,"GL",3,3,18)=""
^DD(811.902,"GL",5,0,21)=""
^DD(811.902,"GL",6,1,24)=""
^DD(811.902,"GL",6,2,25)=""
^DD(811.902,"GL",10,1,22)=""
^DD(811.902,"GL",11,1,23)=""
^DD(811.902,"GL",15,"E1,245",26)=""
^DD(811.902,"IX",.01)=""
^DD(811.902,"SB",811.90221,21)=""
^DD(811.902,"SB",811.9024,4)=""
^DD(811.902,"SB",811.9025,5)=""
^DD(811.90221,0)="STATUS LIST SUB-FIELD^^.01^1"
^DD(811.90221,0,"DT")="3020802"
^DD(811.90221,0,"IX","B",811.90221,.01)=""
^DD(811.90221,0,"NM","STATUS LIST")=""
^DD(811.90221,0,"UP")="811.902"
^DD(811.90221,.01,0)="STATUS^MFX^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(811.90221,.01,1,0)="^.1"
^DD(811.90221,.01,1,1,0)="811.90221^B"
^DD(811.90221,.01,1,1,1)="S ^PXD(811.9,DA(2),20,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(811.90221,.01,1,1,2)="K ^PXD(811.9,DA(2),20,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(811.90221,.01,3)="Enter a status."
^DD(811.90221,.01,4)=""
^DD(811.90221,.01,21,0)="^.001^10^10^3050124^^^^"
^DD(811.90221,.01,21,1,0)="This multiple is used  to store a list of possible statuses that the"
^DD(811.90221,.01,21,2,0)="reminder  will look for when evaluating a finding item. This field"
^DD(811.90221,.01,21,3,0)="should only be  populated  if the finding item is a Drug, Radiology"
^DD(811.90221,.01,21,4,0)="Procedure, Order, or  Taxonomy. This field is designed  to only be"
^DD(811.90221,.01,21,5,0)="populated  through the Reminder  Definition/Term editors; this field"
^DD(811.90221,.01,21,6,0)="should not be edited using FileMan. The reason for this is because"
^DD(811.90221,.01,21,7,0)="each finding item can only have certain possible statuses assigned "
^DD(811.90221,.01,21,8,0)="to it. The editors will evaluate the finding items and allow the"
^DD(811.90221,.01,21,9,0)="users to only  select a status from an appropriate list of statuses"
^DD(811.90221,.01,21,10,0)="for that finding item."
^DD(811.90221,.01,"DT")="3040903"
^DD(811.90221,"B","STATUS",.01)=""
^DD(811.90221,"GL",0,1,.01)=""
^DD(811.90221,"IX",.01)=""
^DD(811.9024,0)="FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.9024,0,"DT")="2990325"
^DD(811.9024,0,"NM","FOUND TEXT")=""
^DD(811.9024,0,"UP")="811.902"
^DD(811.9024,.01,0)="FOUND TEXT^W^^0;1^Q"
^DD(811.9024,.01,3)="Enter the found text."
^DD(811.9024,.01,"DT")="2990325"
^DD(811.9024,"B","FOUND TEXT",.01)=""
^DD(811.9024,"GL",0,1,.01)=""
^DD(811.9025,0)="NOT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.9025,0,"DT")="2990325"
^DD(811.9025,0,"NM","NOT FOUND TEXT")=""
^DD(811.9025,0,"UP")="811.902"
^DD(811.9025,.01,0)="NOT FOUND TEXT^W^^0;1^Q"
^DD(811.9025,.01,3)="Enter the not found text."
^DD(811.9025,.01,"DT")="2990325"
^DD(811.9025,"B","NOT FOUND TEXT",.01)=""
^DD(811.9025,"GL",0,1,.01)=""
^DD(811.92,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(811.92,0,"NM","DESCRIPTION")=""
^DD(811.92,0,"UP")="811.9"
^DD(811.92,.01,0)="REMINDER DESCRIPTION^W^^0;1^Q"
^DD(811.92,.01,3)="Enter the REMINDER DESCRIPTION."
^DD(811.92,.01,"DT")="2960131"
^DD(811.92,"B","REMINDER DESCRIPTION",.01)=""
^DD(811.92,"GL",0,1,.01)=""
^DD(811.925,0)="FUNCTION FINDINGS SUB-FIELD^^16^15"
^DD(811.925,0,"DT")="3041116"
^DD(811.925,0,"ID",3)="W:$D(^(3)) ""   "",$P(^(3),U,1)"
^DD(811.925,0,"IX","B",811.925,.01)=""
^DD(811.925,0,"NM","FUNCTION FINDINGS")=""
^DD(811.925,0,"UP")="811.9"
^DD(811.925,.01,0)="FUNCTION FINDING NUMBER^MNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(811.925,.01,1,0)="^.1"
^DD(811.925,.01,1,1,0)="811.925^B"
^DD(811.925,.01,1,1,1)="S ^PXD(811.9,DA(1),25,""B"",$E(X,1,30),DA)="""""
^DD(811.925,.01,1,1,2)="K ^PXD(811.9,DA(1),25,""B"",$E(X,1,30),DA)"
^DD(811.925,.01,3)="Enter the number of the function finding you are defining."
^DD(811.925,.01,21,0)="^.001^2^2^3050124^^^"
^DD(811.925,.01,21,1,0)="This is the number of the function finding you want to create or"
^DD(811.925,.01,21,2,0)="edit."
^DD(811.925,.01,"DT")="3040715"
^DD(811.925,1,0)="FOUND TEXT^811.9251^^1;0"
^DD(811.925,1,9)="^"
^DD(811.925,1,21,0)="^.001^2^2^3050121^^^"
^DD(811.925,1,21,1,0)="This is the text that will be displayed in the Clinical Maintenance"
^DD(811.925,1,21,2,0)="output if  this function finding is found (true)."
^DD(811.925,2,0)="NOT FOUND TEXT^811.9252^^2;0"
^DD(811.925,2,9)="^"
^DD(811.925,2,21,0)="^.001^2^2^3050121^^"
^DD(811.925,2,21,1,0)="This is the text that will be displayed in the Clinical Maintenance output if "
^DD(811.925,2,21,2,0)="the function finding is not found (false).  "
^DD(811.925,3,0)="FUNCTION STRING^FX^^3;1^K:$L(X)>245!($L(X)<2)!('$$VFSTRING^PXRMFFDB(X,.DA)) X"
^DD(811.925,3,3)="Answer must be 2-245 characters in length."
^DD(811.925,3,4)="D FSXHELP^PXRMFFH"
^DD(811.925,3,21,0)="^^2^2^3050121^"
^DD(811.925,3,21,1,0)="FUNCTION STRING is input by the user and it defines a function finding."
^DD(811.925,3,21,2,0)=""
^DD(811.925,3,"DT")="3040712"
^DD(811.925,5,0)="FUNCTION LIST^811.9255^^5;0"
^DD(811.925,5,21,0)="^.001^3^3^3050121^^^^"
^DD(811.925,5,21,1,0)="FUNCTION LIST is a data structure that is used to efficiently"
^DD(811.925,5,21,2,0)="evaluate function findings. It is generated automatically and should"
^DD(811.925,5,21,3,0)="never be edited by user."
^DD(811.925,10,0)="LOGIC^F^^10;1^K:$L(X)>250!($L(X)<3) X"
^DD(811.925,10,3)="Do not edit this field."
^DD(811.925,10,21,0)="^.001^4^4^3050121^^"
^DD(811.925,10,21,1,0)="This is the internal representation of the function string. For"
^DD(811.925,10,21,2,0)="example, if the function string is MIN_DATE(1,2)>MAX_DATE(3) then "
^DD(811.925,10,21,3,0)="the LOGIC field would be FN(1)>FN(2)."
^DD(811.925,10,21,4,0)=""
^DD(811.925,10,"DT")="3021212"
^DD(811.925,11,0)="USE IN RESOLUTION LOGIC^S^&:AND;!:OR;&':AND NOT;!':OR NOT;^0;6^Q"
^DD(811.925,11,3)="Enter the logical operator"
^DD(811.925,11,21,0)="^.001^27^27^3050124^^^"
^DD(811.925,11,21,1,0)="This optional field is used to indicate that this finding item"
^DD(811.925,11,21,2,0)="should be included as part of the resolution logic for this"
^DD(811.925,11,21,3,0)="reminder. Note - if the CUSTOMIZED RESOLUTION LOGIC is defined, then"
^DD(811.925,11,21,4,0)="this field is ignored."
^DD(811.925,11,21,5,0)=" "
^DD(811.925,11,21,6,0)="Valid entries for the USE IN RESOLUTION LOGIC field are:"
^DD(811.925,11,21,7,0)=" "
^DD(811.925,11,21,8,0)="                       EQUATES TO BOOLEAN"
^DD(811.925,11,21,9,0)="  OPERATOR   VALUE     OPERATOR LOGIC"
^DD(811.925,11,21,10,0)="  --------   -----     ------------------"
^DD(811.925,11,21,11,0)="             BLANK     not included in Resolution Logic"
^DD(811.925,11,21,12,0)="                       (Use @ to delete value)"
^DD(811.925,11,21,13,0)="   &         AND       &(Finding)"
^DD(811.925,11,21,14,0)="   !         OR        !(Finding)"
^DD(811.925,11,21,15,0)="   &'        AND NOT   &'(Finding)"
^DD(811.925,11,21,16,0)="   !'        OR NOT    !'(Finding)"
^DD(811.925,11,21,17,0)=" "
^DD(811.925,11,21,18,0)="All finding items that have a value in this field are automatically"
^DD(811.925,11,21,19,0)="combined to create the DEFAULT RESOLUTION LOGIC."
^DD(811.925,11,21,20,0)=" "
^DD(811.925,11,21,21,0)="After all findings have been evaluated, the finding item is replaced"
^DD(811.925,11,21,22,0)="by its true or false value in the resolution logic and the"
^DD(811.925,11,21,23,0)="resolution logic is evaluated. If the resolution logic evaluates to"
^DD(811.925,11,21,24,0)="true, then the last resolution date is determined. The applicable"
^DD(811.925,11,21,25,0)="frequency is added to the resolution date to determine when the"
^DD(811.925,11,21,26,0)="reminder is next due. If the resolution logic evaluates to false,"
^DD(811.925,11,21,27,0)="then reminder is due."
^DD(811.925,11,"DT")="3041118"
^DD(811.925,12,0)="USE IN PATIENT COHORT LOGIC^S^&:AND;!:OR;&':AND NOT;!':OR NOT;^0;7^Q"
^DD(811.925,12,3)="Enter the logical operator "
^DD(811.925,12,21,0)="^.001^31^31^3050124^^"
^DD(811.925,12,21,1,0)="This optional field is used to indicate that this finding item"
^DD(811.925,12,21,2,0)="should be included as part of the Patient Cohort Logic for this"
^DD(811.925,12,21,3,0)="reminder. Note - if the CUSTOMIZED COHORT LOGIC is defined, then this"
^DD(811.925,12,21,4,0)="field is ignored."
^DD(811.925,12,21,5,0)=" "
^DD(811.925,12,21,6,0)="Valid entries for the USE IN PATIENT COHORT LOGIC field are:"
^DD(811.925,12,21,7,0)=" "
^DD(811.925,12,21,8,0)="                     EQUATES TO BOOLEAN"
^DD(811.925,12,21,9,0)="  OPERATOR  VALUE     OPERATOR LOGIC"
^DD(811.925,12,21,10,0)="  --------  -----     ------------------"
^DD(811.925,12,21,11,0)="            BLANK     not included in Patient Cohort Logic"
^DD(811.925,12,21,12,0)="                      (Use @ to delete value)"
^DD(811.925,12,21,13,0)="   &        AND       &(Finding)"
^DD(811.925,12,21,14,0)="   !        OR        !(Finding)"
^DD(811.925,12,21,15,0)="   &'       AND NOT   &'(Finding)"
^DD(811.925,12,21,16,0)="   !'       OR NOT    !'(Finding)"
^DD(811.925,12,21,17,0)=" "
^DD(811.925,12,21,18,0)="All finding items that have a value in this field are automatically"
^DD(811.925,12,21,19,0)="combined to create the DEFAULT COHORT LOGIC. The default logic"
^DD(811.925,12,21,20,0)="string initially includes (SEX)&(AGE), regardless of whether the"
^DD(811.925,12,21,21,0)="baseline specifies SEX and AGE criteria. Each finding item with a"
^DD(811.925,12,21,22,0)="value in the Use In Patient Cohort Logic field is appended to the"
^DD(811.925,12,21,23,0)="string by using the operator and finding item. For example, if"
^DD(811.925,12,21,24,0)="finding item 2 had an operator for this field of ""&"" then the string"
^DD(811.925,12,21,25,0)="would be (SEX)&(AGE)&FI(2)."
^DD(811.925,12,21,26,0)=""
^DD(811.925,12,21,27,0)="After all findings have been evaluated, the finding item is replaced"
^DD(811.925,12,21,28,0)="by its true or false value in the cohort logic and the cohort logic"
^DD(811.925,12,21,29,0)="is evaluated. If the cohort logic evaluates to true, then the reminder"
^DD(811.925,12,21,30,0)="is applicable to the patient. If the cohort logic evaluates to false"
^DD(811.925,12,21,31,0)="then reminder is non-applicable or N/A."
^DD(811.925,12,"DT")="3031107"
^DD(811.925,13,0)="MINIMUM AGE^NJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.925,13,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(811.925,13,21,0)="^^2^2^3050120^"
^DD(811.925,13,21,1,0)="This field specifies the minimum age for defining an age range"
^DD(811.925,13,21,2,0)="associated with a frequency. Leave it blank if there is no minimum age."
^DD(811.925,13,"DT")="3031107"
^DD(811.925,14,0)="MAXIMUM AGE^NJ3,0^^0;3^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.925,14,3)="Type a Number between 0 and 200, 0 Decimal Digits"
^DD(811.925,14,21,0)="^^2^2^3050120^"
^DD(811.925,14,21,1,0)="This field specifies the maximum age for defining an age range"
^DD(811.925,14,21,2,0)="associated with a frequency. Leave it blank if there is no maximum age."
^DD(811.925,14,"DT")="3031107"
^DD(811.925,15,0)="REMINDER FREQUENCY^FX^^0;4^K:'$$VTPER^PXRMINTR(.X) X"
^DD(811.925,15,3)="Answer must be 1-15 characters in length."
^DD(811.925,15,21,0)="^^6^6^3050120^"
^DD(811.925,15,21,1,0)="If this finding is true (found) then use this frequency and the age"
^DD(811.925,15,21,2,0)="range specified by the MINIMUM AGE and MAXIMUM AGE to override the"
^DD(811.925,15,21,3,0)="baseline frequency age range set. The frequency is input as nD, nM,"
^DD(811.925,15,21,4,0)="or nY, where n is a number and D stands for days, M for months, Y"
^DD(811.925,15,21,5,0)="for years. Thus, for a reminder that is to be given once a year, the"
^DD(811.925,15,21,6,0)="values 365D, 12M, or 1Y would all work."
^DD(811.925,15,"DT")="3031107"
^DD(811.925,16,0)="RANK FREQUENCY^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.925,16,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(811.925,16,21,0)="^^11^11^3050120^"
^DD(811.925,16,21,1,0)="This field is used to rank the frequency and age range sets associated"
^DD(811.925,16,21,2,0)="with a finding. If there is more than one true finding that can"
^DD(811.925,16,21,3,0)="override the baseline frequency age range set, then the determination of"
^DD(811.925,16,21,4,0)="which one to use is made based on the finding with the highest rank."
^DD(811.925,16,21,5,0)="Ranks can range from 1 to 999 with 1 being the highest rank."
^DD(811.925,16,21,6,0)=" "
^DD(811.925,16,21,7,0)="When the Rank field is blank (null) for all true findings that can"
^DD(811.925,16,21,8,0)="override the baseline frequency age range set, then the frequency that"
^DD(811.925,16,21,9,0)="will cause the reminder to be given most often will be used. For"
^DD(811.925,16,21,10,0)="example, if finding 1 has a frequency of 6 months, and finding 2 has a"
^DD(811.925,16,21,11,0)="frequency of 1 year, finding 1 will be used to override the baseline."
^DD(811.925,16,"DT")="3031210"
^DD(811.925,40,0)="NAME^F^^40;1^K:$L(X)>64!($L(X)<1) X"
^DD(811.925,40,3)="Answer must be 1-64 characters in length."
^DD(811.925,40,21,0)="^.001^7^7^3050121^^"
^DD(811.925,40,21,1,0)="If the NAME field is present it will be displayed with the function"
^DD(811.925,40,21,2,0)="finding result in the Clinical Maintenance output. The format is"
^DD(811.925,40,21,3,0)=" Function Finding: NAME"
^DD(811.925,40,21,4,0)="If NAME is null then the format will be:"
^DD(811.925,40,21,5,0)=" Function Finding: function"
^DD(811.925,40,21,6,0)="where function is the name of the function used in the function"
^DD(811.925,40,21,7,0)="finding."
^DD(811.925,40,"DT")="3030922"
^DD(811.925,41,0)="NO. FOUND TEXT LINES^F^^6;1^K:$L(X)>5!($L(X)<1) X"
^DD(811.925,41,3)="Do not edit this field."
^DD(811.925,41,9)="^"
^DD(811.925,41,21,0)="^.001^4^4^3050121^^^^"
^DD(811.925,41,21,1,0)="This is the number of lines in the found text. If the number ends"
^DD(811.925,41,21,2,0)="with ""T"" then the text contains TIU objects. This field is set"
^DD(811.925,41,21,3,0)="automatically during reminder edit and should never be edited by hand."
^DD(811.925,41,21,4,0)=""
^DD(811.925,41,"DT")="3031017"
^DD(811.925,42,0)="NO. NOT FOUND TEXT LINES^F^^6;2^K:$L(X)>5!($L(X)<1) X"
^DD(811.925,42,3)="Do not edit this field."
^DD(811.925,42,9)="^"
^DD(811.925,42,21,0)="^.001^4^4^3050121^^^^"
^DD(811.925,42,21,1,0)="This is the number of lines in the not found text. If the number ends"
^DD(811.925,42,21,2,0)="with ""T"" then the text contains TIU objects. This field is set"
^DD(811.925,42,21,3,0)="automatically during reminder edit and should never be edited by hand."
^DD(811.925,42,21,4,0)=""
^DD(811.925,42,"DT")="3031017"
^DD(811.925,"B","FOUND TEXT",1)=""
^DD(811.925,"B","FUNCTION FINDING NUMBER",.01)=""
^DD(811.925,"B","FUNCTION LIST",5)=""
^DD(811.925,"B","FUNCTION STRING",3)=""
^DD(811.925,"B","LOGIC",10)=""
^DD(811.925,"B","MAXIMUM AGE",14)=""
^DD(811.925,"B","MINIMUM AGE",13)=""
^DD(811.925,"B","NAME",40)=""
^DD(811.925,"B","NO. FOUND TEXT LINES",41)=""
^DD(811.925,"B","NO. NOT FOUND TEXT LINES",42)=""
^DD(811.925,"B","NOT FOUND TEXT",2)=""
^DD(811.925,"B","RANK FREQUENCY",16)=""
^DD(811.925,"B","REMINDER FREQUENCY",15)=""
^DD(811.925,"B","USE IN PATIENT COHORT LOGIC",12)=""
^DD(811.925,"B","USE IN RESOLUTION LOGIC",11)=""
^DD(811.925,"GL",0,1,.01)=""
^DD(811.925,"GL",0,2,13)=""
^DD(811.925,"GL",0,3,14)=""
^DD(811.925,"GL",0,4,15)=""
^DD(811.925,"GL",0,5,16)=""
^DD(811.925,"GL",0,6,11)=""
^DD(811.925,"GL",0,7,12)=""
^DD(811.925,"GL",1,0,1)=""
^DD(811.925,"GL",2,0,2)=""
^DD(811.925,"GL",3,1,3)=""
^DD(811.925,"GL",5,0,5)=""
^DD(811.925,"GL",6,1,41)=""
^DD(811.925,"GL",6,2,42)=""
^DD(811.925,"GL",10,1,10)=""
^DD(811.925,"GL",40,1,40)=""
^DD(811.925,"IX",.01)=""
^DD(811.925,"SB",811.9251,1)=""
^DD(811.925,"SB",811.9252,2)=""
^DD(811.925,"SB",811.9255,5)=""
^DD(811.9251,0)="FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.9251,0,"DT")="3021223"
^DD(811.9251,0,"NM","FOUND TEXT")=""
^DD(811.9251,0,"UP")="811.925"
^DD(811.9251,.01,0)="FOUND TEXT^W^^0;1^Q"
^DD(811.9251,.01,"DT")="3021223"
^DD(811.9251,"B","FOUND TEXT",.01)=""
^DD(811.9251,"GL",0,1,.01)=""
^DD(811.9252,0)="NOT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.9252,0,"DT")="3021223"
^DD(811.9252,0,"NM","NOT FOUND TEXT")=""
^DD(811.9252,0,"UP")="811.925"
^DD(811.9252,.01,0)="NOT FOUND TEXT^W^^0;1^Q"
^DD(811.9252,.01,"DT")="3021223"
^DD(811.9252,"B","NOT FOUND TEXT",.01)=""
^DD(811.9252,"GL",0,1,.01)=""
^DD(811.9255,0)="FUNCTION LIST SUB-FIELD^^20^3"
^DD(811.9255,0,"DT")="3021212"
^DD(811.9255,0,"NM","FUNCTION LIST")=""
^DD(811.9255,0,"UP")="811.925"
^DD(811.9255,.01,0)="FUNCTION NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.9255,.01,1,0)="^.1^^0"
^DD(811.9255,.01,3)="Do not edit this field."
^DD(811.9255,.01,21,0)="^.001^6^6^3050121^^"
^DD(811.9255,.01,21,1,0)="FUNCTION NUMBER is an internal counter of the functions used in the"
^DD(811.9255,.01,21,2,0)="function string. For example, if the function string is"
^DD(811.9255,.01,21,3,0)="MIN_DATE(1,2)>MAX_DATE(3) then function number 1 is MIN_DATE and"
^DD(811.9255,.01,21,4,0)="function number 2 is MAX_DATE. The function numbers correspond with"
^DD(811.9255,.01,21,5,0)="the internal number used in field #10 LOGIC. For the above function"
^DD(811.9255,.01,21,6,0)="string the LOGIC field would be FN(1)>FN(2)."
^DD(811.9255,.01,"DT")="3030911"
^DD(811.9255,.02,0)="FUNCTION^P802.4'X^PXRMD(802.4,^0;2^Q"
^DD(811.9255,.02,3)="Do not edit this field."
^DD(811.9255,.02,21,0)="^.001^4^4^3050121^^"
^DD(811.9255,.02,21,1,0)="FUNCTION is a pointer to the Function File, #802.4. For example, if"
^DD(811.9255,.02,21,2,0)="the function string is MIN_DATE(1,2)>MAX_DATE(3) then function"
^DD(811.9255,.02,21,3,0)="number 1 is MIN_DATE and FUNCTION is the pointer to the MIN_DATE"
^DD(811.9255,.02,21,4,0)="funtion in file #802.4"
^DD(811.9255,.02,"DT")="3021216"
^DD(811.9255,20,0)="FUNCTION ARGUMENT LIST^811.9256^^20;0"
^DD(811.9255,20,21,0)="^.001^6^6^3050121^^^"
^DD(811.9255,20,21,1,0)="The FUNCTION ARGUMENT LIST multiple is the list of arguments"
^DD(811.9255,20,21,2,0)="(finding numbers) for each function in the function string. For"
^DD(811.9255,20,21,3,0)="example, if the function string is MIN_DATE(1,2)>MAX_DATE(3) then"
^DD(811.9255,20,21,4,0)="the argument list for function number 1 is 1 and 2 and the argument"
^DD(811.9255,20,21,5,0)="list for function 2 is 3."
^DD(811.9255,20,21,6,0)=""
^DD(811.9255,"B","FUNCTION",.02)=""
^DD(811.9255,"B","FUNCTION ARGUMENT LIST",20)=""
^DD(811.9255,"B","FUNCTION NUMBER",.01)=""
^DD(811.9255,"GL",0,1,.01)=""
^DD(811.9255,"GL",0,2,.02)=""
^DD(811.9255,"GL",20,0,20)=""
^DD(811.9255,"SB",811.9256,20)=""
^DD(811.9256,0)="FUNCTION ARGUMENT LIST SUB-FIELD^^.01^1"
^DD(811.9256,0,"DT")="3021212"
^DD(811.9256,0,"NM","FUNCTION ARGUMENT LIST")=""
^DD(811.9256,0,"UP")="811.9255"
^DD(811.9256,.01,0)="FINDING NUMBER^MNJ3,0X^^0;1^K:'$$VFINDING^PXRMFFDB(X,DA(3)) X"
^DD(811.9256,.01,1,0)="^.1^^0"
^DD(811.9256,.01,3)="Do not edit this field."
^DD(811.9256,.01,21,0)="^.001^1^1^3050121^^"
^DD(811.9256,.01,21,1,0)="This is an individual argument (finding number)."
^DD(811.9256,.01,"DT")="3030911"
^DD(811.9256,"B","FINDING NUMBER",.01)=""
^DD(811.9256,"GL",0,1,.01)=""
^DD(811.93,0)="TECHNICAL DESCRIPTION SUB-FIELD^^.01^1"
^DD(811.93,0,"NM","TECHNICAL DESCRIPTION")=""
^DD(811.93,0,"UP")="811.9"
^DD(811.93,.01,0)="TECHNICAL DESCRIPTION^W^^0;1^Q"
^DD(811.93,.01,.1)=" "
^DD(811.93,.01,3)="Enter the TECHNICAL DESCRIPTION."
^DD(811.93,.01,"DT")="2960131"
^DD(811.93,"B"," ",.01)="1"
^DD(811.93,"B","TECHNICAL DESCRIPTION",.01)=""
^DD(811.93,"GL",0,1,.01)=""
^DD(811.948,0)="CUSTOM DATE DUE ARG LIST SUB-FIELD^^.02^2"
^DD(811.948,0,"DT")="3050121"
^DD(811.948,0,"IX","B",811.948,.01)=""
^DD(811.948,0,"NM","CUSTOM DATE DUE ARG LIST")=""
^DD(811.948,0,"UP")="811.9"
^DD(811.948,.01,0)="FINDING^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(811.948,.01,1,0)="^.1"
^DD(811.948,.01,1,1,0)="811.948^B"
^DD(811.948,.01,1,1,1)="S ^PXD(811.9,DA(1),47,""B"",$E(X,1,30),DA)="""""
^DD(811.948,.01,1,1,2)="K ^PXD(811.9,DA(1),47,""B"",$E(X,1,30),DA)"
^DD(811.948,.01,3)="Do not edit this field."
^DD(811.948,.01,21,0)="^^2^2^3050121^"
^DD(811.948,.01,21,1,0)="This is the number of a finding used in the custom date due string."
^DD(811.948,.01,21,2,0)="It is created automatically and should not be set by hand."
^DD(811.948,.01,"DT")="3050121"
^DD(811.948,.02,0)="FREQUENCY^F^^0;2^K:$L(X)>8!($L(X)<2) X"
^DD(811.948,.02,3)="Do not edit this field."
^DD(811.948,.02,21,0)="^^3^3^3050121^"
^DD(811.948,.02,21,1,0)="This is the frequency that is associated with the finding defined in"
^DD(811.948,.02,21,2,0)="the .01 field of the CUSTOM DATE DUE ARGUMENT LIST. It is created"
^DD(811.948,.02,21,3,0)="automatically and should never be set by hand."
^DD(811.948,.02,"DT")="3030807"
^DD(811.948,"B","FINDING",.01)=""
^DD(811.948,"B","FREQUENCY",.02)=""
^DD(811.948,"GL",0,1,.01)=""
^DD(811.948,"GL",0,2,.02)=""
^DD(811.948,"IX",.01)=""
^DD(811.961,0)="GENERAL COHORT NOT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.961,0,"DT")="3000110"
^DD(811.961,0,"NM","GENERAL COHORT NOT FOUND TEXT")=""
^DD(811.961,0,"UP")="811.9"
^DD(811.961,.01,0)="GENERAL COHORT NOT FOUND TEXT^W^^0;1^Q"
^DD(811.961,.01,.1)="GENERAL PATIENT COHORT NOT FOUND TEXT"
^DD(811.961,.01,3)="Enter general text to display when the Patient Cohort Logic is false."
^DD(811.961,.01,"DT")="3000504"
^DD(811.961,"B","GENERAL COHORT NOT FOUND TEXT",.01)=""
^DD(811.961,"GL",0,1,.01)=""
^DD(811.965,0)="GENERAL RES. FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.965,0,"DT")="3000110"
^DD(811.965,0,"NM","GENERAL RES. FOUND TEXT")=""
^DD(811.965,0,"UP")="811.9"
^DD(811.965,.01,0)="GENERAL RES. FOUND TEXT^W^^0;1^Q"
^DD(811.965,.01,.1)="GENERAL RESOLUTION FOUND TEXT"
^DD(811.965,.01,3)="Enter general text to display when the Resolution Logic is true."
^DD(811.965,.01,"DT")="3040607"
^DD(811.965,"B","GENERAL RES. FOUND TEXT",.01)=""
^DD(811.965,"B","GENERAL RESOLUTION FOUND TEXT",.01)="1"
^DD(811.965,"GL",0,1,.01)=""
^DD(811.966,0)="GENERAL RES. NOT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.966,0,"DT")="3000110"
^DD(811.966,0,"NM","GENERAL RES. NOT FOUND TEXT")=""
^DD(811.966,0,"UP")="811.9"
^DD(811.966,.01,0)="GENERAL RES. NOT FOUND TEXT^W^^0;1^Q"
^DD(811.966,.01,.1)="GENERAL RESOLUTION NOT FOUND TEXT"
^DD(811.966,.01,3)="Enter general text to display when the Resolution Logic is false."
^DD(811.966,.01,"DT")="3040607"
^DD(811.966,"B","GENERAL RES. NOT FOUND TEXT",.01)=""
^DD(811.966,"GL",0,1,.01)=""
^DD(811.97,0)="BASELINE AGE FINDINGS SUB-FIELD^^6^7"
^DD(811.97,0,"DT")="3031016"
^DD(811.97,0,"IX","B",811.97,.01)=""
^DD(811.97,0,"NM","BASELINE AGE FINDINGS")=""
^DD(811.97,0,"UP")="811.9"
^DD(811.97,.01,0)="REMINDER FREQUENCY^MFX^^0;1^S X=$$UP^XLFSTR(X) K:($L(X)>5)!($L(X)<2)!((X'?1N.N1""D"")&(X'?1N.N1""M"")&(X'?1N.N1""Y"")) X"
^DD(811.97,.01,1,0)="^.1"
^DD(811.97,.01,1,1,0)="811.97^B"
^DD(811.97,.01,1,1,1)="S ^PXD(811.9,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(811.97,.01,1,1,2)="K ^PXD(811.9,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(811.97,.01,3)="Enter a number followed by D, M, or Y for day, month, or year."
^DD(811.97,.01,21,0)="^.001^5^5^3050121^^^^"
^DD(811.97,.01,21,1,0)="This is the frequency for the reminder. It is input as nD, nM, or"
^DD(811.97,.01,21,2,0)="nY, where D stands for days, M for months, Y for years, and n is a"
^DD(811.97,.01,21,3,0)="number. Thus, for a reminder that is to be given once a year, the"
^DD(811.97,.01,21,4,0)="values 365D, 12M, or 1Y would all work. If a reminder is only to be"
^DD(811.97,.01,21,5,0)="given once in a lifetime use a frequency of 99Y."
^DD(811.97,.01,"DT")="2970505"
^DD(811.97,1,0)="MINIMUM AGE^NJ3,0^^0;2^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.97,1,3)="Enter the minimum age for this reminder frequency."
^DD(811.97,1,21,0)="^.001^2^2^3050121^^^^"
^DD(811.97,1,21,1,0)="This field specifies the minimum age for defining an age range"
^DD(811.97,1,21,2,0)="associated with a frequency. Leave it blank if there is no minimum age."
^DD(811.97,1,"DT")="2960201"
^DD(811.97,2,0)="MAXIMUM AGE^NJ3,0^^0;3^K:+X'=X!(X>200)!(X<0)!(X?.E1"".""1N.N) X"
^DD(811.97,2,3)="Enter the maximum age for this reminder frequency."
^DD(811.97,2,21,0)="^.001^2^2^3050121^^^^"
^DD(811.97,2,21,1,0)="This field specifies the maximum age for defining an age range"
^DD(811.97,2,21,2,0)="associated with a frequency. Leave it blank if there is no maximum age."
^DD(811.97,2,"DT")="2960201"
^DD(811.97,3,0)="AGE MATCH TEXT^811.973^^1;0"
^DD(811.97,3,9)="^"
^DD(811.97,3,21,0)="^.001^2^2^3050121^^^^"
^DD(811.97,3,21,1,0)="This is the text that will be displayed in the Clinical Maintenance"
^DD(811.97,3,21,2,0)="component if the patient's age falls within the age range."
^DD(811.97,4,0)="AGE NO MATCH TEXT^811.974^^2;0"
^DD(811.97,4,9)="^"
^DD(811.97,4,21,0)="^.001^2^2^3050121^^"
^DD(811.97,4,21,1,0)="This is the text that will be displayed in the Clinical Maintenance"
^DD(811.97,4,21,2,0)="component if the patient's age does not fall in the age range."
^DD(811.97,4,"DT")="2960201"
^DD(811.97,5,0)="NO. OF AGE MATCH LINES^F^^3;1^K:$L(X)>5!($L(X)<1) X"
^DD(811.97,5,3)="Do not edit this field."
^DD(811.97,5,9)="^"
^DD(811.97,5,21,0)="^.001^3^3^3050121^^^^"
^DD(811.97,5,21,1,0)="This is the number of lines in the age match text. If the number ends"
^DD(811.97,5,21,2,0)="with ""T"" then the text contains TIU objects. This field is set"
^DD(811.97,5,21,3,0)="automatically during reminder edit and should never be edited by hand."
^DD(811.97,5,"DT")="3031016"
^DD(811.97,6,0)="NO. OF AGE NO MATCH LINES^F^^3;2^K:$L(X)>5!($L(X)<1) X"
^DD(811.97,6,3)="Do not edit this field."
^DD(811.97,6,9)="^"
^DD(811.97,6,21,0)="^.001^4^4^3050121^^"
^DD(811.97,6,21,1,0)="This is the number of lines in the age no match text. If the number ends"
^DD(811.97,6,21,2,0)="with ""T"" then the text contains TIU objects. This field is set"
^DD(811.97,6,21,3,0)="automatically during reminder edit and should never be edited by hand."
^DD(811.97,6,21,4,0)=""
^DD(811.97,6,"DT")="3031016"
^DD(811.97,"B","AGE MATCH TEXT",3)=""
^DD(811.97,"B","AGE NO MATCH TEXT",4)=""
^DD(811.97,"B","MAXIMUM AGE",2)=""
^DD(811.97,"B","MINIMUM AGE",1)=""
^DD(811.97,"B","NO. OF AGE MATCH LINES",5)=""
^DD(811.97,"B","NO. OF AGE NO MATCH LINES",6)=""
^DD(811.97,"B","REMINDER FREQUENCY",.01)=""
^DD(811.97,"GL",0,1,.01)=""
^DD(811.97,"GL",0,2,1)=""
^DD(811.97,"GL",0,3,2)=""
^DD(811.97,"GL",1,0,3)=""
^DD(811.97,"GL",2,0,4)=""
^DD(811.97,"GL",3,1,5)=""
^DD(811.97,"GL",3,2,6)=""
^DD(811.97,"IX",.01)=""
^DD(811.97,"SB",811.973,3)=""
^DD(811.97,"SB",811.974,4)=""
^DD(811.971,0)="SUMMARY COHORT NOT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.971,0,"DT")="3040604"
^DD(811.971,0,"NM","SUMMARY COHORT NOT FOUND TEXT")=""
^DD(811.971,0,"UP")="811.9"
^DD(811.971,.01,0)="SUMMARY COHORT NOT FOUND TEXT^W^^0;1^Q"
^DD(811.971,.01,.1)="SUMMARY PATIENT COHORT NOT FOUND TEXT"
^DD(811.971,.01,3)="Enter the summary text to display when the Patient Cohort Logic is false."
^DD(811.971,.01,21,0)="^.001^1^1^3050124^^^^"
^DD(811.971,.01,21,1,0)=""
^DD(811.971,.01,"DT")="3040608"
^DD(811.971,"B","SUMMARY COHORT NOT FOUND TEXT",.01)=""
^DD(811.971,"GL",0,1,.01)=""
^DD(811.973,0)="AGE MATCH TEXT SUB-FIELD^^.01^1"
^DD(811.973,0,"DT")="2960201"
^DD(811.973,0,"NM","AGE MATCH TEXT")=""
^DD(811.973,0,"UP")="811.97"
^DD(811.973,.01,0)="AGE MATCH TEXT^W^^0;1^Q"
^DD(811.973,.01,3)="Enter text to display for a match on age range."
^DD(811.973,.01,"DT")="2960201"
^DD(811.973,"B","AGE MATCH TEXT",.01)=""
^DD(811.973,"GL",0,1,.01)=""
^DD(811.974,0)="AGE NO MATCH TEXT SUB-FIELD^^.01^1"
^DD(811.974,0,"DT")="2960201"
^DD(811.974,0,"NM","AGE NO MATCH TEXT")=""
^DD(811.974,0,"UP")="811.97"
^DD(811.974,.01,0)="AGE NO MATCH TEXT^W^^0;1^Q"
^DD(811.974,.01,3)="Enter the text to display for no match on age range."
^DD(811.974,.01,"DT")="2960201"
^DD(811.974,"B","AGE NO MATCH TEXT",.01)=""
^DD(811.974,"GL",0,1,.01)=""
^DD(811.975,0)="SUMMARY RES. FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.975,0,"DT")="3040608"
^DD(811.975,0,"NM","SUMMARY RES. FOUND TEXT")=""
^DD(811.975,0,"UP")="811.9"
^DD(811.975,.01,0)="SUMMARY RESOLUTION FOUND TEXT^W^^0;1^Q"
^DD(811.975,.01,.1)="SUMMARY RESOLUTION LOGIC FOUND TEXT"
^DD(811.975,.01,3)="Enter the summary text to display when the Resolution Logic is true."
^DD(811.975,.01,"DT")="3040608"
^DD(811.975,"B","SUMMARY RESOLUTION FOUND TEXT",.01)=""
^DD(811.975,"GL",0,1,.01)=""
^DD(811.976,0)="SUMMARY RES. NOT FOUND TEXT SUB-FIELD^^.01^1"
^DD(811.976,0,"DT")="3040608"
^DD(811.976,0,"NM","SUMMARY RES. NOT FOUND TEXT")=""
^DD(811.976,0,"UP")="811.9"
^DD(811.976,.01,0)="SUMMARY RES. NOT FOUND TEXT^W^^0;1^Q"
^DD(811.976,.01,.1)="SUMMARY RESOLUTION LOGIC NOT FOUND TEXT"
^DD(811.976,.01,3)="Enter the summary text to display when the Resolution Logic is false."
^DD(811.976,.01,21,0)="^.001^1^1^3050124^^^^"
^DD(811.976,.01,21,1,0)=""
^DD(811.976,.01,"DT")="3040608"
^DD(811.976,"B","SUMMARY RES. NOT FOUND TEXT",.01)=""
^DD(811.976,"GL",0,1,.01)=""
^DD(812,0)="FIELD^^.11^2"
^DD(812,0,"DDA")="N"
^DD(812,0,"DT")="2961024"
^DD(812,0,"IX","B",812,.01)=""
^DD(812,0,"NM","PCE CUSTOMIZE REPORT")=""
^DD(812,0,"VR")="1.0"
^DD(812,0,"VRPK")="PX"
^DD(812,.01,0)="USER NAME^RP200'^VA(200,^0;1^Q"
^DD(812,.01,1,0)="^.1"
^DD(812,.01,1,1,0)="812^B"
^DD(812,.01,1,1,1)="S ^PXD(812,""B"",$E(X,1,30),DA)="""""
^DD(812,.01,1,1,2)="K ^PXD(812,""B"",$E(X,1,30),DA)"
^DD(812,.01,3)=""
^DD(812,.01,"DT")="2991229"
^DD(812,.11,0)="PRINT FROM FILE/SUBFILE^812.01^^FILE;0"
^DD(812,.11,21,0)="^^3^3^2961029^"
^DD(812,.11,21,1,0)="This is the file or subfile, that if located while a searching for visits, "
^DD(812,.11,21,2,0)="the User Visit Review option will priint additional fields from when a "
^DD(812,.11,21,3,0)="Customized report is selected."
^DD(812,.11,23,0)="^^1^1^2961029^"
^DD(812,.11,23,1,0)="A Valid File or Subfile number."
^DD(812,.11,"DT")="2961029"
^DD(812,"B","PRINT FROM FILE/SUBFILE",.11)=""
^DD(812,"B","USER NAME",.01)=""
^DD(812,"GL",0,1,.01)=""
^DD(812,"GL","FILE",0,.11)=""
^DD(812,"IX",.01)=""
^DD(812,"RQ",.01)=""
^DD(812,"SB",812.01,.11)=""
^DD(812.01,0)="PRINT FROM FILE/SUBFILE SUB-FIELD^^.21^2"
^DD(812.01,0,"DT")="2961024"
^DD(812.01,0,"IX","B",812.01,.01)=""
^DD(812.01,0,"NM","PRINT FROM FILE/SUBFILE")=""
^DD(812.01,0,"UP")="812"
^DD(812.01,.01,0)="PRINT FROM FILE^MRNJ22,9^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(812.01,.01,1,0)="^.1^^-1"
^DD(812.01,.01,1,1,0)="812.01^B"
^DD(812.01,.01,1,1,1)="S ^PXD(812,DA(1),""FILE"",""B"",$E(X,1,30),DA)="""""
^DD(812.01,.01,1,1,2)="K ^PXD(812,DA(1),""FILE"",""B"",$E(X,1,30),DA)"
^DD(812.01,.01,3)="Type a Number between 0 and 999999999999, 9 Decimal Digits"
^DD(812.01,.01,"DT")="2961024"
^DD(812.01,.21,0)="PRINT FIELD^812.02^^FIELD;0"
^DD(812.01,.21,21,0)="^^2^2^2961029^"
^DD(812.01,.21,21,1,0)="A field number from a file that will be printed on a 'Customized' User Visit "
^DD(812.01,.21,21,2,0)="Review Report."
^DD(812.01,.21,23,0)="^^1^1^2961029^"
^DD(812.01,.21,23,1,0)="A valid field number."
^DD(812.01,"B","PRINT FIELD",.21)=""
^DD(812.01,"B","PRINT FROM FILE",.01)=""
^DD(812.01,"GL",0,1,.01)=""
^DD(812.01,"GL","FIELD",0,.21)=""
^DD(812.01,"IX",.01)=""
^DD(812.01,"RQ",.01)=""
^DD(812.01,"SB",812.02,.21)=""
^DD(812.02,0)="PRINT FIELD SUB-FIELD^^.01^1"
^DD(812.02,0,"DT")="2961024"
^DD(812.02,0,"IX","B",812.02,.01)=""
^DD(812.02,0,"NM","PRINT FIELD")=""
^DD(812.02,0,"UP")="812.01"
^DD(812.02,.01,0)="PRINT FIELD^MRNJ22,9^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""10N.N) X"
^DD(812.02,.01,1,0)="^.1^^-1"
^DD(812.02,.01,1,1,0)="812.02^B"
^DD(812.02,.01,1,1,1)="S ^PXD(812,DA(2),""FILE"",DA(1),""FIELD"",""B"",$E(X,1,30),DA)="""""
^DD(812.02,.01,1,1,2)="K ^PXD(812,DA(2),""FILE"",DA(1),""FIELD"",""B"",$E(X,1,30),DA)"
^DD(812.02,.01,3)="Type a Number between 0 and 999999999999, 9 Decimal Digits"
^DD(812.02,.01,"DT")="2961024"
^DD(812.02,"B","PRINT FIELD",.01)=""
^DD(812.02,"GL",0,1,.01)=""
^DD(812.02,"IX",.01)=""
^DD(812.02,"RQ",.01)=""
^DD(815,0)="FIELD^^805^24"
^DD(815,0,"DDA")="N"
^DD(815,0,"DT")="2970110"
^DD(815,0,"IX","B",815,.01)=""
^DD(815,0,"NM","PCE PARAMETERS")=""
^DD(815,0,"VR")="1.0"
^DD(815,0,"VRPK")="PX"
^DD(815,.01,0)="ONE^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(815,.01,1,0)="^.1"
^DD(815,.01,1,1,0)="815^B"
^DD(815,.01,1,1,1)="S ^PX(815,""B"",$E(X,1,30),DA)="""""
^DD(815,.01,1,1,2)="K ^PX(815,""B"",$E(X,1,30),DA)"
^DD(815,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(815,.01,21,0)="^^1^1^2950718^^^^"
^DD(815,.01,21,1,0)="There is only ""1"" parameter similiar to MAS Parameters File."
^DD(815,.01,"DT")="2940714"
^DD(815,.02,0)="SD/PCE SWITCH OVER DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(815,.02,3)=""
^DD(815,.02,21,0)="^^2^2^2960909^^^^"
^DD(815,.02,21,1,0)="This is the date that Scheduling stops asking for Providers, Diagnoses,"
^DD(815,.02,21,2,0)="and Procedures and PCE collects them."
^DD(815,.02,"DT")="2960909"
^DD(815,.03,0)="HEALTH SUMMARY START DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(815,.03,3)="Enter the start date for displaying PCE data for the following Health Summary components: PCE Immunization, PCE Skin Test, PCE Outpatient Diagnosis, and PCE Outpatient Encounter."
^DD(815,.03,21,0)="^^3^3^2960729^"
^DD(815,.03,21,1,0)="This date will be used to restrict view of PCE data for the following"
^DD(815,.03,21,2,0)="Health Summar components:  PCE Immunization, PCE Skin Test, PCE Outpatient"
^DD(815,.03,21,3,0)="Diagnosis, and PCOutpatient Encounter."
^DD(815,.03,"DT")="2960729"
^DD(815,201,0)="PATIENT, CLINIC OR WARD^V^^LM;1^Q"
^DD(815,201,3)="Enter a Patient, Clinic, or Ward name."
^DD(815,201,21,0)="^^6^6^2950811^^^^"
^DD(815,201,21,1,0)="This field definition is used by the PCE Encounter options."
^DD(815,201,21,2,0)="The option uses this field with a Fileman Reader call to determine the"
^DD(815,201,21,3,0)="view to be used in building the display list.  It determines if the list"
^DD(815,201,21,4,0)="will be of a patient and which one or of a clinic/ward and which one."
^DD(815,201,21,5,0)="  "
^DD(815,201,21,6,0)="No data should be put in this field."
^DD(815,201,"DT")="2941114"
^DD(815,201,"V",0)="^.12P^2^2"
^DD(815,201,"V",1,0)="2^Patient^1^P^n^n"
^DD(815,201,"V",2,0)="44^Clinic or Ward^2^C^n^n"
^DD(815,201,"V","B",2,1)=""
^DD(815,201,"V","B",44,2)=""
^DD(815,201,"V","M","Clinic or Ward",2)=""
^DD(815,201,"V","M","Patient",1)=""
^DD(815,201,"V","O",1,1)=""
^DD(815,201,"V","O",2,2)=""
^DD(815,201,"V","P","C",2)=""
^DD(815,201,"V","P","P",1)=""
^DD(815,202,0)="STARTUP VIEW^RS^V:VISIT/ENCOUNTER;A:APPOINTMENT;^LM;2^Q"
^DD(815,202,3)="This is the default list that PCE Encounter Data Entry starts in for all users."
^DD(815,202,21,0)="^^3^3^2950809^"
^DD(815,202,21,1,0)="This is the default view for all users.  It tells which List the PCE"
^DD(815,202,21,2,0)="Encounter Data Entry starts up in.  If it is ""V"" the the list is by"
^DD(815,202,21,3,0)="Visit/Encounter.  If it is ""A"" then the list is of Appointments."
^DD(815,202,"DT")="2950718"
^DD(815,203,0)="BEGINNING PATIENT DATE OFFSET^RNJ3,0^^LM;3^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(815,203,3)="Type a number that is the offset from Today for the starting date of the patient list.  e.g. -30 for TODAY-30 or 5 for TODAY+5"
^DD(815,203,21,0)="^^5^5^2950718^"
^DD(815,203,21,1,0)="This is the value that determines the starting date for the list by a"
^DD(815,203,21,2,0)="patient in PCE Encounter Data Entry.  The number is added to today to get"
^DD(815,203,21,3,0)="the starting day.  e.g. If the value is -30 then the starting day is T-30,"
^DD(815,203,21,4,0)="or 30 days before today.  If the valuse is 5 then the starting day is T+5,"
^DD(815,203,21,5,0)="or 5 days after today.  If it is 0 then the starting day will be today."
^DD(815,203,"DT")="2950718"
^DD(815,204,0)="ENDING PATIENT DATE OFFSET^RNJ3,0^^LM;4^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(815,204,3)="Type a number that is the offset from Today for the ending date of the patient list.  e.g. -30 for TODAY-30, 5 for T+5 or 0 for Today"
^DD(815,204,21,0)="^^5^5^2950718^"
^DD(815,204,21,1,0)="This is the value that determines the ending date for the list by a"
^DD(815,204,21,2,0)="patient in PCE Encounter Data Entry.  The number is added to today to get"
^DD(815,204,21,3,0)="the ending day.  e.g. If the value is -30 then the ending day is T-30,or"
^DD(815,204,21,4,0)="30 days before today.  If the valuse is 5 then the ending day is T+5,or 5"
^DD(815,204,21,5,0)="days after today.  If it is 0 then the ending day will be today."
^DD(815,204,"DT")="2950718"
^DD(815,205,0)="BEGINNING HOS LOC DATE OFFSET^RNJ3,0^^LM;5^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(815,205,3)="Type a number that is the offset from Today for the starting date of the Clinic/Ward list.  e.g. -30 for TODAY-30, 5 for T+5 or 0 for Today"
^DD(815,205,21,0)="^^6^6^2950718^"
^DD(815,205,21,1,0)="This is the value that determines the starting date for the list by a"
^DD(815,205,21,2,0)="Clinic/Ward in PCE Encounter Data Entry.  The number is added to today to"
^DD(815,205,21,3,0)="get the starting day.  e.g. If the value is -30 then the starting day is"
^DD(815,205,21,4,0)="T-30,or 30 days before today.  If the valuse is 5 then the starting day is"
^DD(815,205,21,5,0)="T+5,or 5 days after today.  If it is 0 then the starting day will be"
^DD(815,205,21,6,0)="today."
^DD(815,205,"DT")="2950718"
^DD(815,206,0)="ENDING HOS LOC DATE OFFSET^NJ6,2^^LM;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>999)!(X<-999) X"
^DD(815,206,3)="Type a number that is the offset from Today for the ending date of the Clinic/Ward list.  e.g. -30 for TODAY-30, 5 for T+5 or 0 for Today"
^DD(815,206,21,0)="^^5^5^2950718^"
^DD(815,206,21,1,0)="This is the value that determines the ending date for the list by a"
^DD(815,206,21,2,0)="Clinic/Ward in PCE Encounter Data Entry.  The number is added to today to"
^DD(815,206,21,3,0)="get the ending day.  e.g. If the value is -30 then the ending day is"
^DD(815,206,21,4,0)="T-30,or 30 days before today.  If the valuse is 5 then the ending day is"
^DD(815,206,21,5,0)="T+5,or 5 days after today.  If it is 0 then the ending day will be today."
^DD(815,206,"DT")="2950718"
^DD(815,301,0)="RETURN WARNINGS^RS^0:NO;1:YES;^DI;1^Q"
^DD(815,301,3)="Enter YES if you want the Device Interface to return warnings if there are no procedures for this encounter."
^DD(815,301,21,0)="^^2^2^2970520^"
^DD(815,301,21,1,0)="This field determines if the Device Interface will return ""WARNING""s or not"
^DD(815,301,21,2,0)="if there are no Procedures for this encounter."
^DD(815,301,"DT")="2960301"
^DD(815,302,0)="MULTIPLE PRIMARY DIAGNOSES^S^0:RETURN WARNING;1:RETURN ERROR;^DI;2^Q"
^DD(815,302,3)="If errors are returned by the Device Interface then the whole encounter is not processed."
^DD(815,302,"DT")="2960728"
^DD(815,303,0)="NO PRIMARY DIAGNOSIS^S^0:RETURN WARNING;1:RETURN ERROR;^DI;3^Q"
^DD(815,303,3)="If errors are returned by the Device Interface, then the whole encounter is not processed."
^DD(815,303,21,0)="^^2^2^2970520^^^"
^DD(815,303,21,1,0)="This field determines if a WARNING or an ERROR will be returned if "
^DD(815,303,21,2,0)="no primary diagnosis exists for this encounter."
^DD(815,303,"DT")="2970520"
^DD(815,401,0)="DISPOSITION HOSPITAL LOCATIONS^815.0401P^^DHL;0"
^DD(815,501,0)="PXPT LOCATION^RP9999999.06'I^AUTTLOC(^PXPT;1^Q"
^DD(815,501,21,0)="^^5^5^2960810^"
^DD(815,501,21,1,0)="This is the facility's site name.  It points to the LOCATION file"
^DD(815,501,21,2,0)="(#9999999.06) which is DINUMed to the INSTITUTION file (#4)."
^DD(815,501,21,3,0)=" "
^DD(815,501,21,4,0)="This is the location that patients in the PATIENT/IHS file (#9000001) are"
^DD(815,501,21,5,0)="associated with."
^DD(815,501,"DT")="2960810"
^DD(815,502,0)="PXPT LAST PATIENT LOADED^F^^PXPT;2^K:$L(X)>30!($L(X)<1) X"
^DD(815,502,3)="Answer must be 1-30 characters in length."
^DD(815,502,21,0)="^^6^6^2960810^"
^DD(815,502,21,1,0)="This is a field that allows a process to keep track of the last patient"
^DD(815,502,21,2,0)="that was processed. In case of failure that process can find out where it"
^DD(815,502,21,3,0)="last completed a process and where to restart at.  If process completed"
^DD(815,502,21,4,0)="then this field is reset to 0."
^DD(815,502,21,5,0)=" "
^DD(815,502,21,6,0)="Enter the number of name of the last patient processed."
^DD(815,502,"DT")="2960810"
^DD(815,601,0)="PATCH 9 LAST VISIT PROCESSED^NJ13,0^^PATCH;1^K:+X'=X!(X>1000000000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(815,601,3)="This value is set by patch PX*1*9 and should not be changed"
^DD(815,601,"DT")="2961021"
^DD(815,602,0)="PATCH 27 LAST DATE PROCESSED^D^^PATCH;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(815,602,21,0)="^^5^5^2970324^"
^DD(815,602,21,1,0)="This is the date and time of the last visit processed by PCE patch 27."
^DD(815,602,21,2,0)="This date starts at the last visit at the time the patch is installed and"
^DD(815,602,21,3,0)="works backward through the visit tell all visit since 10/1/96 have been"
^DD(815,602,21,4,0)="processed.  If the patch cleanup has finished this will contain the date"
^DD(815,602,21,5,0)="and time of the first visit of 10/1/96."
^DD(815,602,"DT")="2970324"
^DD(815,701,0)="DEFAULT REMINDER DISCLAIMER^815.0701^^HS1;0"
^DD(815,701,21,0)="^^6^6^2960416^"
^DD(815,701,21,1,0)="This reminder disclaimer is distributed nationally.  This disclaimer is"
^DD(815,701,21,2,0)="printed at the beginning of the Health Summaries' Clinical Maintenance and"
^DD(815,701,21,3,0)="Clinical Reminder components, unless your site chooses to create your own"
^DD(815,701,21,4,0)="reminder disclaimer. If the Site Reminder Disclaimer is defined, the Site"
^DD(815,701,21,5,0)="Reminder Disclaimer will be used by Health Summary, instead of this"
^DD(815,701,21,6,0)="Default Reminder Disclaimer."
^DD(815,702,0)="SITE REMINDER DISCLAIMER^815.0702^^HS2;0"
^DD(815,801,0)="REPORT ER CLINIC NAMES^815.0801P^^RR1;0"
^DD(815,801,21,0)="^^4^4^2960215^"
^DD(815,801,21,1,0)="This multiple is used to define the laboratory test names from the"
^DD(815,801,21,2,0)="Laboratory Test file that will be used by the PCE Reporting Module to"
^DD(815,801,21,3,0)="evaluate patient data for critical values.  These tests are defined by"
^DD(815,801,21,4,0)="your IRM personnel or Clinical Coordinator."
^DD(815,801,"DT")="2960215"
^DD(815,802,0)="REPORT GLUCOSE NAMES^815.0802P^^RR2;0"
^DD(815,803,0)="REPORT CHOLESTEROL NAMES^815.0803P^^RR3;0"
^DD(815,804,0)="REPORT LDL CHOLESTEROL NAMES^815.0804P^^RR4;0"
^DD(815,805,0)="REPORT HBA1C NAMES^815.0805P^^RR5;0"
^DD(815,"B","BEGINNING HOS LOC DATE OFFSET",205)=""
^DD(815,"B","BEGINNING PATIENT DATE OFFSET",203)=""
^DD(815,"B","DEFAULT REMINDER DISCLAIMER",701)=""
^DD(815,"B","DISPOSITION HOSPITAL LOCATIONS",401)=""
^DD(815,"B","ENDING HOS LOC DATE OFFSET",206)=""
^DD(815,"B","ENDING PATIENT DATE OFFSET",204)=""
^DD(815,"B","HEALTH SUMMARY START DATE",.03)=""
^DD(815,"B","MULTIPLE PRIMARY DIAGNOSES",302)=""
^DD(815,"B","NO PRIMARY DIAGNOSIS",303)=""
^DD(815,"B","ONE",.01)=""
^DD(815,"B","PATCH 27 LAST DATE PROCESSED",602)=""
^DD(815,"B","PATCH 9 LAST VISIT PROCESSED",601)=""
^DD(815,"B","PATIENT, CLINIC OR WARD",201)=""
^DD(815,"B","PXPT LAST PATIENT LOADED",502)=""
^DD(815,"B","PXPT LOCATION",501)=""
^DD(815,"B","REPORT CHOLESTEROL NAMES",803)=""
^DD(815,"B","REPORT ER CLINIC NAMES",801)=""
^DD(815,"B","REPORT GLUCOSE NAMES",802)=""
^DD(815,"B","REPORT HBA1C NAMES",805)=""
^DD(815,"B","REPORT LDL CHOLESTEROL NAMES",804)=""
^DD(815,"B","RETURN WARNINGS",301)=""
^DD(815,"B","SD/PCE SWITCH OVER DATE",.02)=""
^DD(815,"B","SITE REMINDER DISCLAIMER",702)=""
^DD(815,"B","STARTUP VIEW",202)=""
^DD(815,"GL",0,1,.01)=""
^DD(815,"GL",0,2,.02)=""
^DD(815,"GL",0,3,.03)=""
^DD(815,"GL","DHL",0,401)=""
^DD(815,"GL","DI",1,301)=""
^DD(815,"GL","DI",2,302)=""
^DD(815,"GL","DI",3,303)=""
^DD(815,"GL","HS1",0,701)=""
^DD(815,"GL","HS2",0,702)=""
^DD(815,"GL","LM",1,201)=""
^DD(815,"GL","LM",2,202)=""
^DD(815,"GL","LM",3,203)=""
^DD(815,"GL","LM",4,204)=""
^DD(815,"GL","LM",5,205)=""
^DD(815,"GL","LM",6,206)=""
^DD(815,"GL","PATCH",1,601)=""
^DD(815,"GL","PATCH",2,602)=""
^DD(815,"GL","PXPT",1,501)=""
^DD(815,"GL","PXPT",2,502)=""
^DD(815,"GL","RR1",0,801)=""
^DD(815,"GL","RR2",0,802)=""
^DD(815,"GL","RR3",0,803)=""
^DD(815,"GL","RR4",0,804)=""
^DD(815,"GL","RR5",0,805)=""
^DD(815,"IX",.01)=""
^DD(815,"RQ",.01)=""
^DD(815,"RQ",.03)=""
^DD(815,"RQ",202)=""
^DD(815,"RQ",203)=""
^DD(815,"RQ",204)=""
^DD(815,"RQ",205)=""
^DD(815,"RQ",301)=""
^DD(815,"RQ",501)=""
^DD(815,"SB",815.0401,401)=""
^DD(815,"SB",815.0701,701)=""
^DD(815,"SB",815.0702,702)=""
^DD(815,"SB",815.0801,801)=""
^DD(815,"SB",815.0802,802)=""
^DD(815,"SB",815.0803,803)=""
^DD(815,"SB",815.0804,804)=""
^DD(815,"SB",815.0805,805)=""
^DD(815.0401,0)="DISPOSITION HOSPITAL LOCATIONS SUB-FIELD^^.01^1"
^DD(815.0401,0,"DT")="2960812"
^DD(815.0401,0,"IX","B",815.0401,.01)=""
^DD(815.0401,0,"NM","DISPOSITION HOSPITAL LOCATIONS")=""
^DD(815.0401,0,"UP")="815"
^DD(815.0401,.01,0)="DISPOSITION HOSPITAL LOCATIONS^M*P44'^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(815.0401,.01,1,0)="^.1"
^DD(815.0401,.01,1,1,0)="815.0401^B"
^DD(815.0401,.01,1,1,1)="S ^PX(815,DA(1),""DHL"",""B"",$E(X,1,30),DA)="""""
^DD(815.0401,.01,1,1,2)="K ^PX(815,DA(1),""DHL"",""B"",$E(X,1,30),DA)"
^DD(815.0401,.01,12)="Can only pick clinics"
^DD(815.0401,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(815.0401,.01,"DT")="2960812"
^DD(815.0401,"B","DISPOSITION HOSPITAL LOCATIONS",.01)=""
^DD(815.0401,"GL",0,1,.01)=""
^DD(815.0401,"IX",.01)=""
^DD(815.0701,0)="DEFAULT REMINDER DISCLAIMER SUB-FIELD^^.01^1"
^DD(815.0701,0,"DT")="2960416"
^DD(815.0701,0,"NM","DEFAULT REMINDER DISCLAIMER")=""
^DD(815.0701,0,"UP")="815"
^DD(815.0701,.01,0)="DEFAULT REMINDER DISCLAIMER^W^^0;1^Q"
^DD(815.0701,.01,3)="This is the distributed default reminder disclaimer, and is not editable."
^DD(815.0701,.01,"DT")="2960416"
^DD(815.0701,"B","DEFAULT REMINDER DISCLAIMER",.01)=""
^DD(815.0701,"GL",0,1,.01)=""
^DD(815.0702,0)="SITE REMINDER DISCLAIMER SUB-FIELD^^.01^1"
^DD(815.0702,0,"DT")="2960416"
^DD(815.0702,0,"NM","SITE REMINDER DISCLAIMER")=""
^DD(815.0702,0,"UP")="815"
^DD(815.0702,.01,0)="SITE REMINDER DISCLAIMER^W^^0;1^Q"
^DD(815.0702,.01,3)="Enter a disclaimer to be printed at the beginning of the HS reminder components."
^DD(815.0702,.01,21,0)="^^4^4^2960416^"
^DD(815.0702,.01,21,1,0)="This is the site-specified reminder disclaimer to use at the beginning of"
^DD(815.0702,.01,21,2,0)="the Health Summary ""Clinical Maintenance"" and ""Clinical Reminder"""
^DD(815.0702,.01,21,3,0)="components.  When this field is blank, the DEFAULT REMINDER DISCLAIMER"
^DD(815.0702,.01,21,4,0)="will be used in the Health Summary."
^DD(815.0702,.01,"DT")="2960416"
^DD(815.0702,"B","SITE REMINDER DISCLAIMER",.01)=""
^DD(815.0702,"GL",0,1,.01)=""
^DD(815.0801,0)="REPORT ER CLINIC NAMES SUB-FIELD^^.01^1"
^DD(815.0801,0,"DT")="2960216"
^DD(815.0801,0,"IX","B",815.0801,.01)=""
^DD(815.0801,0,"NM","REPORT ER CLINIC NAMES")=""
^DD(815.0801,0,"UP")="815"
^DD(815.0801,.01,0)="ER CLINIC NAME^MP44'^SC(^0;1^Q"
^DD(815.0801,.01,1,0)="^.1"
^DD(815.0801,.01,1,1,0)="815.0801^B"
^DD(815.0801,.01,1,1,1)="S ^PX(815,DA(1),""RR1"",""B"",$E(X,1,30),DA)="""""
^DD(815.0801,.01,1,1,2)="K ^PX(815,DA(1),""RR1"",""B"",$E(X,1,30),DA)"
^DD(815.0801,.01,3)="Enter the name(s) of the ""Emergency Room"" clinics as they are defined within the Hospital Location file (#44)"
^DD(815.0801,.01,21,0)="^^4^4^2960606^"
^DD(815.0801,.01,21,1,0)="This field will contain the names of all clinics which are considered"
^DD(815.0801,.01,21,2,0)="""Emergency Rooms"" to allow the clinic reporting module of the Patient Care"
^DD(815.0801,.01,21,3,0)="Encounter package to monitor caseload activity. Entries should be made"
^DD(815.0801,.01,21,4,0)="either by IRM personnel or the Clinic coordinator."
^DD(815.0801,.01,"DT")="2960216"
^DD(815.0801,"B","ER CLINIC NAME",.01)=""
^DD(815.0801,"GL",0,1,.01)=""
^DD(815.0801,"IX",.01)=""
^DD(815.0802,0)="REPORT GLUCOSE NAMES SUB-FIELD^^.01^1"
^DD(815.0802,0,"DT")="2960521"
^DD(815.0802,0,"IX","B",815.0802,.01)=""
^DD(815.0802,0,"NM","REPORT GLUCOSE NAMES")=""
^DD(815.0802,0,"UP")="815"
^DD(815.0802,.01,0)="GLUCOSE NAMES^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(815.0802,.01,1,0)="^.1"
^DD(815.0802,.01,1,1,0)="815.0802^B"
^DD(815.0802,.01,1,1,1)="S ^PX(815,DA(1),""RR2"",""B"",$E(X,1,30),DA)="""""
^DD(815.0802,.01,1,1,2)="K ^PX(815,DA(1),""RR2"",""B"",$E(X,1,30),DA)"
^DD(815.0802,.01,3)="Enter the name(s) of the BLOOD GLUCOSE lab assays as they appear in the Laboratory Test (60) file . DO NOT INCLUDE Glucose Tolerance or Fluid Glucose test names."
^DD(815.0802,.01,12)="LAB TEST STORED ONLY AT THE ""CH"" NODE"
^DD(815.0802,.01,12.1)="S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""""
^DD(815.0802,.01,21,0)="^^5^5^2960606^"
^DD(815.0802,.01,21,1,0)="This field will contain the names of all BLOOD GLUCOSE assays as they"
^DD(815.0802,.01,21,2,0)="appear in the Laboratory Test (60) file to allow the clinic reporting"
^DD(815.0802,.01,21,3,0)="module of the Patient Care Encounter Package to monitor Quality of Care"
^DD(815.0802,.01,21,4,0)="Markers. Entries should be made either by IRM personnel or the Clinic"
^DD(815.0802,.01,21,5,0)="coordinator."
^DD(815.0802,.01,"DT")="2960521"
^DD(815.0802,"B","GLUCOSE NAMES",.01)=""
^DD(815.0802,"GL",0,1,.01)=""
^DD(815.0802,"IX",.01)=""
^DD(815.0803,0)="REPORT CHOLESTEROL NAMES SUB-FIELD^^.01^1"
^DD(815.0803,0,"DT")="2960521"
^DD(815.0803,0,"IX","B",815.0803,.01)=""
^DD(815.0803,0,"NM","REPORT CHOLESTEROL NAMES")=""
^DD(815.0803,0,"UP")="815"
^DD(815.0803,.01,0)="CHOLESTEROL NAMES^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(815.0803,.01,1,0)="^.1"
^DD(815.0803,.01,1,1,0)="815.0803^B"
^DD(815.0803,.01,1,1,1)="S ^PX(815,DA(1),""RR3"",""B"",$E(X,1,30),DA)="""""
^DD(815.0803,.01,1,1,2)="K ^PX(815,DA(1),""RR3"",""B"",$E(X,1,30),DA)"
^DD(815.0803,.01,3)="Enter the name(s) of all total Cholesterol assays as they appear in Laboratory Test (60)."
^DD(815.0803,.01,12)="LABS STORED ONLY AT THE ""CH"" NODE"
^DD(815.0803,.01,12.1)="S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""""
^DD(815.0803,.01,21,0)="^^5^5^2960606^^"
^DD(815.0803,.01,21,1,0)="This field will contain the names of all TOTAL CHOLESTEROL assays as they"
^DD(815.0803,.01,21,2,0)="appear in the Laboratory Test (60) file to allow the clinic reporting"
^DD(815.0803,.01,21,3,0)="module of the Patient Care Encounter Package to monitor Quality of Care"
^DD(815.0803,.01,21,4,0)="Markers. Entries should be made either by IRM personnel or the Clinic"
^DD(815.0803,.01,21,5,0)="coordinator."
^DD(815.0803,.01,"DT")="2960521"
^DD(815.0803,"B","CHOLESTEROL NAMES",.01)=""
^DD(815.0803,"GL",0,1,.01)=""
^DD(815.0803,"IX",.01)=""
^DD(815.0804,0)="REPORT LDL CHOLESTEROL NAMES SUB-FIELD^^.01^1"
^DD(815.0804,0,"DT")="2960521"
^DD(815.0804,0,"IX","B",815.0804,.01)=""
^DD(815.0804,0,"NM","REPORT LDL CHOLESTEROL NAMES")=""
^DD(815.0804,0,"UP")="815"
^DD(815.0804,.01,0)="LDL CHOLESTEROL NAMES^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(815.0804,.01,1,0)="^.1"
^DD(815.0804,.01,1,1,0)="815.0804^B"
^DD(815.0804,.01,1,1,1)="S ^PX(815,DA(1),""RR4"",""B"",$E(X,1,30),DA)="""""
^DD(815.0804,.01,1,1,2)="K ^PX(815,DA(1),""RR4"",""B"",$E(X,1,30),DA)"
^DD(815.0804,.01,3)="Enter the name(s) of the LDL fraction of Cholesterol assays as they appear in the Laboratory Test file (60)."
^DD(815.0804,.01,12)="LAB STORED ONLY AT ""CH"" NODE"
^DD(815.0804,.01,12.1)="S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""""
^DD(815.0804,.01,21,0)="^^5^5^2960606^"
^DD(815.0804,.01,21,1,0)="This field will contain the names of all LDL CHOLESTEROL assays as they"
^DD(815.0804,.01,21,2,0)="appear in the Laboratory Test (60) file to allow the clinic reporting"
^DD(815.0804,.01,21,3,0)="module of the Patient Care Encounter Package to monitor Quality of Care"
^DD(815.0804,.01,21,4,0)="Markers. Entries should be made either by IRM personnel or the Clinic"
^DD(815.0804,.01,21,5,0)="coordinator."
^DD(815.0804,.01,"DT")="2960521"
^DD(815.0804,"B","LDL CHOLESTEROL NAMES",.01)=""
^DD(815.0804,"GL",0,1,.01)=""
^DD(815.0804,"IX",.01)=""
^DD(815.0805,0)="REPORT HBA1C NAMES SUB-FIELD^^.01^1"
^DD(815.0805,0,"DT")="2960521"
^DD(815.0805,0,"IX","B",815.0805,.01)=""
^DD(815.0805,0,"NM","REPORT HBA1C NAMES")=""
^DD(815.0805,0,"UP")="815"
^DD(815.0805,.01,0)="HBA1C NAMES^M*P60'^LAB(60,^0;1^S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(815.0805,.01,1,0)="^.1"
^DD(815.0805,.01,1,1,0)="815.0805^B"
^DD(815.0805,.01,1,1,1)="S ^PX(815,DA(1),""RR5"",""B"",$E(X,1,30),DA)="""""
^DD(815.0805,.01,1,1,2)="K ^PX(815,DA(1),""RR5"",""B"",$E(X,1,30),DA)"
^DD(815.0805,.01,3)="Enter the name(s) of the Glycosolated Hemoglobin assays as they appear in the Laboratory Test (60) file."
^DD(815.0805,.01,12)="LABS STORED ONLY AT THE ""CH"" NODE"
^DD(815.0805,.01,12.1)="S DIC(""S"")=""I $P($P(^(0),U,5),"""";"""")=""""CH"""""""
^DD(815.0805,.01,21,0)="^^4^4^2960606^"
^DD(815.0805,.01,21,1,0)="This field will contain the names of all HBA1C assays as they appear in"
^DD(815.0805,.01,21,2,0)="the Laboratory Test (60) file to allow the clinic reporting module of the"
^DD(815.0805,.01,21,3,0)="Patient Care Encounter Package to monitor Quality of Care Markers. Entries"
^DD(815.0805,.01,21,4,0)="should be made either by IRM personnel or the Clinic coordinator."
^DD(815.0805,.01,"DT")="2960521"
^DD(815.0805,"B","HBA1C NAMES",.01)=""
^DD(815.0805,"GL",0,1,.01)=""
^DD(815.0805,"IX",.01)=""
^DD(839.01,0)="FIELD^^201^9"
^DD(839.01,0,"DDA")="N"
^DD(839.01,0,"DT")="2960126"
^DD(839.01,0,"IX","AD",839.01,.03)=""
^DD(839.01,0,"IX","AV10",839.01,.03)=""
^DD(839.01,0,"IX","B",839.01,.01)=""
^DD(839.01,0,"IX","C",839.01,.02)=""
^DD(839.01,0,"NM","PCE DEVICE INTERFACE MODULE ERRORS")=""
^DD(839.01,.001,0)="ERROR NUMBER^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(839.01,.001,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(839.01,.001,"DT")="2940518"
^DD(839.01,.01,0)="DATE AND TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(839.01,.01,1,0)="^.1"
^DD(839.01,.01,1,1,0)="839.01^B"
^DD(839.01,.01,1,1,1)="S ^PX(839.01,""B"",$E(X,1,30),DA)="""""
^DD(839.01,.01,1,1,2)="K ^PX(839.01,""B"",$E(X,1,30),DA)"
^DD(839.01,.01,3)="Enter the Date and Time that the error in processing occurred (NOW)."
^DD(839.01,.01,21,0)="^^3^3^2941214^^^^"
^DD(839.01,.01,21,1,0)="This is the Date and Time that the entry is made in to this file.  Thus it"
^DD(839.01,.01,21,2,0)="is the Date and Time that processing of PXCA was taking place and had the"
^DD(839.01,.01,21,3,0)="errors."
^DD(839.01,.01,"DT")="2940427"
^DD(839.01,.02,0)="PATIENT NAME^P9000001'^AUPNPAT(^0;2^Q"
^DD(839.01,.02,1,0)="^.1"
^DD(839.01,.02,1,1,0)="839.01^C"
^DD(839.01,.02,1,1,1)="S ^PX(839.01,""C"",$E(X,1,30),DA)="""""
^DD(839.01,.02,1,1,2)="K ^PX(839.01,""C"",$E(X,1,30),DA)"
^DD(839.01,.02,1,1,"%D",0)="^^1^1^2951125^"
^DD(839.01,.02,1,1,"%D",1,0)="This cross reference allows lookup by Patient in this file."
^DD(839.01,.02,1,1,"DT")="2951125"
^DD(839.01,.02,"DT")="2951125"
^DD(839.01,.03,0)="VISIT^P9000010'^AUPNVSIT(^0;3^Q"
^DD(839.01,.03,1,0)="^.1"
^DD(839.01,.03,1,1,0)="839.01^AD"
^DD(839.01,.03,1,1,1)="S ^PX(839.01,""AD"",$E(X,1,30),DA)="""""
^DD(839.01,.03,1,1,2)="K ^PX(839.01,""AD"",$E(X,1,30),DA)"
^DD(839.01,.03,1,1,"%D",0)="^^1^1^2951125^"
^DD(839.01,.03,1,1,"%D",1,0)="This is used for programmed lookup by visit internal entry number."
^DD(839.01,.03,1,1,"DT")="2951125"
^DD(839.01,.03,1,2,0)="839.01^AV10^MUMPS"
^DD(839.01,.03,1,2,1)="D ADD^AUPNVSIT"
^DD(839.01,.03,1,2,2)="D SUB^AUPNVSIT"
^DD(839.01,.03,1,2,"%D",0)="^^1^1^2951107^"
^DD(839.01,.03,1,2,"%D",1,0)="Used to add and subtract from the dependent entry count"
^DD(839.01,.03,1,2,"DT")="2951107"
^DD(839.01,.03,3)="Visit if it is known."
^DD(839.01,.03,21,0)="^^3^3^2941214^^"
^DD(839.01,.03,21,1,0)="This is a pointer to the Visit that had the error(s) in populating the"
^DD(839.01,.03,21,2,0)="Visit and/or V-File(s).  If the Visit was not created then this field is"
^DD(839.01,.03,21,3,0)="empty."
^DD(839.01,.03,"DT")="2951125"
^DD(839.01,.04,0)="DATE/TIME CORRECTED^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(839.01,.04,3)="Enter the Date and Time that all error correction was finished."
^DD(839.01,.04,21,0)="^^3^3^2941214^^"
^DD(839.01,.04,21,1,0)="This is the Date and Time that the error correction for this error was"
^DD(839.01,.04,21,2,0)="completed.  i.e. All of the errors were taken care of and there is no more"
^DD(839.01,.04,21,3,0)="correction that needs to be done."
^DD(839.01,.04,"DT")="2940609"
^DD(839.01,.05,0)="DATE/TIME LAST LOOKED AT^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(839.01,.05,3)="Enter the Last Date and Time that the error correction routine was ran on this error"
^DD(839.01,.05,21,0)="^^2^2^2941214^^^"
^DD(839.01,.05,21,1,0)="This is the date and time of the last time somebody ran the error fixing"
^DD(839.01,.05,21,2,0)="routine on this error."
^DD(839.01,.05,"DT")="2940609"
^DD(839.01,.06,0)="DATA SOURCE^RP839.7'^PX(839.7,^0;6^Q"
^DD(839.01,.06,3)="Enter the source of the data, e.g.,IB ENCOUNTER FORM."
^DD(839.01,.06,21,0)="^^1^1^2960126^"
^DD(839.01,.06,21,1,0)="This is the source of the data being collected.  e"
^DD(839.01,.06,"DT")="2960126"
^DD(839.01,101,0)="ERROR VARIABLE^839.011A^^1;0"
^DD(839.01,101,21,0)="^^2^2^2941214^^"
^DD(839.01,101,21,1,0)="This holds the PXKERROR array which tells which data item caused the"
^DD(839.01,101,21,2,0)="error."
^DD(839.01,101,"DT")="2940429"
^DD(839.01,201,0)="PXCA VARIABLE^839.012A^^2;0"
^DD(839.01,201,21,0)="^^1^1^2941214^^^"
^DD(839.01,201,21,1,0)="This holds the PXCA array that has the error."
^DD(839.01,201,"DT")="2941214"
^DD(839.01,"B","DATA SOURCE",.06)=""
^DD(839.01,"B","DATE AND TIME",.01)=""
^DD(839.01,"B","DATE/TIME CORRECTED",.04)=""
^DD(839.01,"B","DATE/TIME LAST LOOKED AT",.05)=""
^DD(839.01,"B","ERROR NUMBER",.001)=""
^DD(839.01,"B","ERROR VARIABLE",101)=""
^DD(839.01,"B","PATIENT NAME",.02)=""
^DD(839.01,"B","PXCA VARIABLE",201)=""
^DD(839.01,"B","VISIT",.03)=""
^DD(839.01,"GL",0,1,.01)=""
^DD(839.01,"GL",0,2,.02)=""
^DD(839.01,"GL",0,3,.03)=""
^DD(839.01,"GL",0,4,.04)=""
^DD(839.01,"GL",0,5,.05)=""
^DD(839.01,"GL",0,6,.06)=""
^DD(839.01,"GL",1,0,101)=""
^DD(839.01,"GL",2,0,201)=""
^DD(839.01,"IX",.01)=""
^DD(839.01,"IX",.02)=""
^DD(839.01,"IX",.03)=""
^DD(839.01,"RQ",.01)=""
^DD(839.01,"RQ",.06)=""
^DD(839.01,"SB",839.011,101)=""
^DD(839.01,"SB",839.012,201)=""
^DD(839.011,0)="ERROR VARIABLE SUB-FIELD^^101^2"
^DD(839.011,0,"DT")="2940429"
^DD(839.011,0,"NM","ERROR VARIABLE")=""
^DD(839.011,0,"UP")="839.01"
^DD(839.011,.01,0)="NAME OF ERROR VARIABLE^MRF^^0;1^K:$L(X)>245!($L(X)<8) X"
^DD(839.011,.01,1,0)="^.1^^0"
^DD(839.011,.01,3)="The PXKERROR variable name with subscripts."
^DD(839.011,.01,21,0)="^^3^3^2941214^^"
^DD(839.011,.01,21,1,0)="This hold the variable name with the subscripts that are returned by PXK."
^DD(839.011,.01,21,2,0)="The subscripts tell which one of the ^TMP(""PXK"",$J, had the error and"
^DD(839.011,.01,21,3,0)="which field."
^DD(839.011,.01,23,0)="^^4^4^2941214^^"
^DD(839.011,.01,23,1,0)="The first subscript of PXKERROR is the V-File type that the error was on."
^DD(839.011,.01,23,2,0)="The second subscript is the sequence number for that V-File type in the"
^DD(839.011,.01,23,3,0)="^TMP(""PXK"",$J, global.  The third subcript is the field number that was"
^DD(839.011,.01,23,4,0)="not valid."
^DD(839.011,.01,"DT")="2940429"
^DD(839.011,101,0)="VALUE OF ERROR VARIABLE^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(839.011,101,3)="This is the value in the PXKERROR variable."
^DD(839.011,101,21,0)="^^2^2^2941214^^"
^DD(839.011,101,21,1,0)="This is the value that was stored in the PXKERROR variable.  It will"
^DD(839.011,101,21,2,0)="usually be null."
^DD(839.011,101,"DT")="2940429"
^DD(839.011,"B","NAME OF ERROR VARIABLE",.01)=""
^DD(839.011,"B","VALUE OF ERROR VARIABLE",101)=""
^DD(839.011,"GL",0,1,.01)=""
^DD(839.011,"GL",1,1,101)=""
^DD(839.011,"RQ",.01)=""
^DD(839.012,0)="PXCA VARIABLE SUB-FIELD^^201^2"
^DD(839.012,0,"DT")="2940429"
^DD(839.012,0,"NM","PXCA VARIABLE")=""
^DD(839.012,0,"UP")="839.01"
^DD(839.012,.01,0)="NAME OF PXCA VARIABLE^MRF^^0;1^K:$L(X)>245!($L(X)<4) X"
^DD(839.012,.01,1,0)="^.1^^0"
^DD(839.012,.01,3)="This is the name of the PXCA varialbe with subscripts."
^DD(839.012,.01,21,0)="^^4^4^2941214^^^^"
^DD(839.012,.01,21,1,0)="This holds the PXCA variable name with subscripts from the Device"
^DD(839.012,.01,21,2,0)="Interface Module for Data Capture .  This hold the variable name with the"
^DD(839.012,.01,21,3,0)="subscripts that was used by PXCA* to create the input to PXK. The data"
^DD(839.012,.01,21,4,0)="in this array caused the error."
^DD(839.012,.01,"DT")="2941214"
^DD(839.012,201,0)="VALUE OF PXCA VARIABLE^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(839.012,201,3)="This is the value that was in the PXCA variable."
^DD(839.012,201,21,0)="^^1^1^2941214^^^^"
^DD(839.012,201,21,1,0)="This is the value that was stored in the PXCA variable."
^DD(839.012,201,"DT")="2941214"
^DD(839.012,"B","NAME OF PXCA VARIABLE",.01)=""
^DD(839.012,"B","VALUE OF PXCA VARIABLE",201)=""
^DD(839.012,"GL",0,1,.01)=""
^DD(839.012,"GL",2,1,201)=""
^DD(839.012,"RQ",.01)=""
^DD(839.7,0)="FIELD^^101^6"
^DD(839.7,0,"DDA")="N"
^DD(839.7,0,"DT")="2950308"
^DD(839.7,0,"IX","B",839.7,.01)=""
^DD(839.7,0,"NM","PCE DATA SOURCE")=""
^DD(839.7,0,"PT",839.01,.06)=""
^DD(839.7,0,"PT",9000010,81203)=""
^DD(839.7,0,"PT",9000010.06,81203)=""
^DD(839.7,0,"PT",9000010.07,81203)=""
^DD(839.7,0,"PT",9000010.11,81203)=""
^DD(839.7,0,"PT",9000010.12,81203)=""
^DD(839.7,0,"PT",9000010.13,81203)=""
^DD(839.7,0,"PT",9000010.15,81203)=""
^DD(839.7,0,"PT",9000010.16,81203)=""
^DD(839.7,0,"PT",9000010.18,81203)=""
^DD(839.7,0,"PT",9000010.23,81203)=""
^DD(839.7,0,"VR")="1.0"
^DD(839.7,0,"VRPK")="PX"
^DD(839.7,.01,0)="SOURCE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(839.7,.01,1,0)="^.1"
^DD(839.7,.01,1,1,0)="839.7^B"
^DD(839.7,.01,1,1,1)="S ^PX(839.7,""B"",$E(X,1,30),DA)="""""
^DD(839.7,.01,1,1,2)="K ^PX(839.7,""B"",$E(X,1,30),DA)"
^DD(839.7,.01,3)="Answer must be 3-30 characters in length."
^DD(839.7,.01,21,0)="^^3^3^2960326^^"
^DD(839.7,.01,21,1,0)="A unique data source identifier.  The working rule is that there will be"
^DD(839.7,.01,21,2,0)="one entry in this file for each unique"
^DD(839.7,.01,21,3,0)="  <data_source/sending_application/version> -tuple."
^DD(839.7,.01,"DT")="2960326"
^DD(839.7,.02,0)="INTERFACE DEVICE^P3.5'^%ZIS(1,^0;2^Q"
^DD(839.7,.02,"DT")="2941012"
^DD(839.7,.03,0)="LOCATION^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(839.7,.03,3)="Answer must be 1-30 characters in length."
^DD(839.7,.03,"DT")="2941012"
^DD(839.7,.04,0)="INSTITUTION^P4'^DIC(4,^0;4^Q"
^DD(839.7,.04,"DT")="2941012"
^DD(839.7,.09,0)="SEND SCHEDULING BULLETINS^S^1:SEND;0:DON'T SEND;^0;9^Q"
^DD(839.7,.09,"DT")="2950308"
^DD(839.7,101,0)="DESCRIPTION^839.7101^^1;0"
^DD(839.7,"B","DESCRIPTION",101)=""
^DD(839.7,"B","INSTITUTION",.04)=""
^DD(839.7,"B","INTERFACE DEVICE",.02)=""
^DD(839.7,"B","LOCATION",.03)=""
^DD(839.7,"B","SEND SCHEDULING BULLETINS",.09)=""
^DD(839.7,"B","SOURCE NAME",.01)=""
^DD(839.7,"GL",0,1,.01)=""
^DD(839.7,"GL",0,2,.02)=""
^DD(839.7,"GL",0,3,.03)=""
^DD(839.7,"GL",0,4,.04)=""
^DD(839.7,"GL",0,9,.09)=""
^DD(839.7,"GL",1,0,101)=""
^DD(839.7,"IX",.01)=""
^DD(839.7,"RQ",.01)=""
^DD(839.7,"SB",839.7101,101)=""
^DD(839.7101,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(839.7101,0,"DT")="2941012"
^DD(839.7101,0,"NM","DESCRIPTION")=""
^DD(839.7101,0,"UP")="839.7"
^DD(839.7101,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(839.7101,.01,"DT")="2941012"
^DD(839.7101,"B","DESCRIPTION",.01)=""
^DD(839.7101,"GL",0,1,.01)=""
^DD(860.1,0)="FIELD^^2^4"
^DD(860.1,0,"DT")="2961204"
^DD(860.1,0,"IX","B",860.1,.01)=""
^DD(860.1,0,"IX","TIME",860.121,.01)=""
^DD(860.1,0,"NM","ORDER CHECK PATIENT ACTIVE DATA")=""
^DD(860.1,0,"PT",860.7,.01)=""
^DD(860.1,0,"VR")="3.0"
^DD(860.1,0,"VRPK")="OR"
^DD(860.1,.01,0)="PATIENT^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(860.1,.01,1,0)="^.1"
^DD(860.1,.01,1,1,0)="860.1^B"
^DD(860.1,.01,1,1,1)="S ^OCXD(860.1,""B"",$E(X,1,30),DA)="""""
^DD(860.1,.01,1,1,2)="K ^OCXD(860.1,""B"",$E(X,1,30),DA)"
^DD(860.1,.01,3)=""
^DD(860.1,.01,21,0)="^^4^4^2951031^"
^DD(860.1,.01,21,1,0)=" "
^DD(860.1,.01,21,2,0)="  Pointer to the Patient (2) file. Points to the patient"
^DD(860.1,.01,21,3,0)="that this data belongs to."
^DD(860.1,.01,21,4,0)=" "
^DD(860.1,.01,"DT")="2951204"
^DD(860.1,.02,0)="TIMESTAMP^F^^TIME;1^K:$L(X)>20!($L(X)<1) X"
^DD(860.1,.02,3)="Answer must be 1-20 characters in length."
^DD(860.1,.02,"DT")="2960305"
^DD(860.1,1,0)="ACTIVE ELEMENT^860.11^^1;0"
^DD(860.1,1,21,0)="^^4^4^2951101^"
^DD(860.1,1,21,1,0)=" "
^DD(860.1,1,21,2,0)="   This is the list of Elements that have become TRUE for"
^DD(860.1,1,21,3,0)=" this patient."
^DD(860.1,1,21,4,0)=" "
^DD(860.1,1,"DT")="2960111"
^DD(860.1,2,0)="SCHEDULED EVENT^860.12D^^2;0"
^DD(860.1,"B","ACTIVE ELEMENT",1)=""
^DD(860.1,"B","PATIENT",.01)=""
^DD(860.1,"B","SCHEDULED EVENT",2)=""
^DD(860.1,"B","TIMESTAMP",.02)=""
^DD(860.1,"GL",0,1,.01)=""
^DD(860.1,"GL",1,0,1)=""
^DD(860.1,"GL",2,0,2)=""
^DD(860.1,"GL","TIME",1,.02)=""
^DD(860.1,"IX",.01)=""
^DD(860.1,"RQ",.01)=""
^DD(860.1,"SB",860.11,1)=""
^DD(860.1,"SB",860.12,2)=""
^DD(860.11,0)="ACTIVE ELEMENT SUB-FIELD^^1^4"
^DD(860.11,0,"DT")="2960327"
^DD(860.11,0,"IX","B",860.11,.01)=""
^DD(860.11,0,"IX","C",860.11,.02)=""
^DD(860.11,0,"NM","ACTIVE ELEMENT")=""
^DD(860.11,0,"UP")="860.1"
^DD(860.11,.01,0)="TIMESTAMP^MNJ8,0X^^0;1^S DINUM=X"
^DD(860.11,.01,1,0)="^.1"
^DD(860.11,.01,1,1,0)="860.11^B"
^DD(860.11,.01,1,1,1)="S ^OCXD(860.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.11,.01,1,1,2)="K ^OCXD(860.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.11,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(860.11,.01,"DT")="2960214"
^DD(860.11,.02,0)="ELEMENT^P860.3'^OCXS(860.3,^0;2^Q"
^DD(860.11,.02,1,0)="^.1"
^DD(860.11,.02,1,1,0)="860.11^C"
^DD(860.11,.02,1,1,1)="S ^OCXD(860.1,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(860.11,.02,1,1,2)="K ^OCXD(860.1,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(860.11,.02,1,1,"DT")="2960215"
^DD(860.11,.02,3)=""
^DD(860.11,.02,"DT")="2960215"
^DD(860.11,.03,0)="MESSAGE LOG NUMBER^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(860.11,.03,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(860.11,.03,21,0)="^^5^5^2951108^"
^DD(860.11,.03,21,1,0)=" "
^DD(860.11,.03,21,2,0)="   This is the internal entry number in ^OCXD(861, used"
^DD(860.11,.03,21,3,0)=" for error tracking and to keep the Order checker from"
^DD(860.11,.03,21,4,0)=" sending multiple duplicate notifications per HL7 message."
^DD(860.11,.03,21,5,0)=" "
^DD(860.11,.03,"DT")="2951108"
^DD(860.11,1,0)="ELEMENT DATA^860.111P^^1;0"
^DD(860.11,1,21,0)="^^4^4^2951101^"
^DD(860.11,1,21,1,0)=" "
^DD(860.11,1,21,2,0)="   This is a list of data fields and values that were 'captured'"
^DD(860.11,1,21,3,0)=" when this element was found to be TRUE."
^DD(860.11,1,21,4,0)=" "
^DD(860.11,1,"DT")="2960111"
^DD(860.11,"B","ELEMENT",.02)=""
^DD(860.11,"B","ELEMENT DATA",1)=""
^DD(860.11,"B","MESSAGE LOG NUMBER",.03)=""
^DD(860.11,"B","TIMESTAMP",.01)=""
^DD(860.11,"GL",0,1,.01)=""
^DD(860.11,"GL",0,2,.02)=""
^DD(860.11,"GL",0,3,.03)=""
^DD(860.11,"GL",1,0,1)=""
^DD(860.11,"IX",.01)=""
^DD(860.11,"IX",.02)=""
^DD(860.11,"SB",860.111,1)=""
^DD(860.111,0)="ELEMENT DATA SUB-FIELD^^1^3"
^DD(860.111,0,"DT")="2960327"
^DD(860.111,0,"IX","B",860.111,.01)=""
^DD(860.111,0,"IX","C",860.111,1)=""
^DD(860.111,0,"NM","ELEMENT DATA")=""
^DD(860.111,0,"UP")="860.11"
^DD(860.111,.01,0)="DATA FIELD^MP860.4'X^OCXS(860.4,^0;1^S:$D(X) DINUM=X"
^DD(860.111,.01,1,0)="^.1"
^DD(860.111,.01,1,1,0)="860.111^B"
^DD(860.111,.01,1,1,1)="S ^OCXD(860.1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.111,.01,1,1,2)="K ^OCXD(860.1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.111,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(860.111,.01,"DT")="2960111"
^DD(860.111,.02,0)="FREE TEXT DATA FIELD NAME^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(860.111,.02,3)="Answer must be 1-100 characters in length."
^DD(860.111,.02,"DT")="2960327"
^DD(860.111,1,0)="DATA VALUE^F^^1;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(860.111,1,1,0)="^.1^^-1"
^DD(860.111,1,1,1,0)="860.111^C"
^DD(860.111,1,1,1,1)="S ^OCXD(860.1,DA(2),1,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(860.111,1,1,1,2)="K ^OCXD(860.1,DA(2),1,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(860.111,1,1,1,"DT")="2960215"
^DD(860.111,1,3)="Answer must be 1-240 characters in length."
^DD(860.111,1,"DT")="2960215"
^DD(860.111,"B","DATA FIELD",.01)=""
^DD(860.111,"B","DATA VALUE",1)=""
^DD(860.111,"B","FREE TEXT DATA FIELD NAME",.02)=""
^DD(860.111,"GL",0,1,.01)=""
^DD(860.111,"GL",0,2,.02)=""
^DD(860.111,"GL",1,"E1,240",1)=""
^DD(860.111,"IX",.01)=""
^DD(860.111,"IX",1)=""
^DD(860.12,0)="SCHEDULED EVENT SUB-FIELD^^1^2"
^DD(860.12,0,"DT")="2961204"
^DD(860.12,0,"IX","B",860.12,.01)=""
^DD(860.12,0,"NM","SCHEDULED EVENT")=""
^DD(860.12,0,"UP")="860.1"
^DD(860.12,.01,0)="SCHEDULED EVENT^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(860.12,.01,1,0)="^.1"
^DD(860.12,.01,1,1,0)="860.12^B"
^DD(860.12,.01,1,1,1)="S ^OCXD(860.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(860.12,.01,1,1,2)="K ^OCXD(860.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(860.12,.01,"DT")="2961204"
^DD(860.12,1,0)="RULE^860.121P^^1;0"
^DD(860.12,1,"DT")="2961204"
^DD(860.12,"B","RULE",1)=""
^DD(860.12,"B","SCHEDULED EVENT",.01)=""
^DD(860.12,"GL",0,1,.01)=""
^DD(860.12,"GL",1,0,1)=""
^DD(860.12,"IX",.01)=""
^DD(860.12,"SB",860.121,1)=""
^DD(860.121,0)="RULE SUB-FIELD^^.01^1"
^DD(860.121,0,"DT")="2961204"
^DD(860.121,0,"IX","B",860.121,.01)=""
^DD(860.121,0,"NM","RULE")=""
^DD(860.121,0,"UP")="860.12"
^DD(860.121,.01,0)="RULE^MP860.2'X^OCXS(860.2,^0;1^S DINUM=X"
^DD(860.121,.01,1,0)="^.1"
^DD(860.121,.01,1,1,0)="860.121^B"
^DD(860.121,.01,1,1,1)="S ^OCXD(860.1,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.121,.01,1,1,2)="K ^OCXD(860.1,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.121,.01,1,2,0)="860.1^TIME"
^DD(860.121,.01,1,2,1)="S ^OCXD(860.1,""TIME"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(860.121,.01,1,2,2)="K ^OCXD(860.1,""TIME"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(860.121,.01,1,2,"DT")="2961204"
^DD(860.121,.01,"DT")="2961204"
^DD(860.121,"B","RULE",.01)=""
^DD(860.121,"GL",0,1,.01)=""
^DD(860.121,"IX",.01)=""
^DD(860.2,0)="FIELD^^2^4"
^DD(860.2,0,"DDA")="N"
^DD(860.2,0,"DT")="3011114"
^DD(860.2,0,"ID",.02)="W:$G(^(""INACT"")) ""   ***"",@(""$P($P($C(59)_$S($D(^DD(860.2,.02,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(""""INACT""""),U,1)_"""":"""",2),$C(59),1)"")"
^DD(860.2,0,"IX","ATELM",860.21,1)=""
^DD(860.2,0,"IX","B",860.2,.01)=""
^DD(860.2,0,"NM","ORDER CHECK RULE")=""
^DD(860.2,0,"PT",860.121,.01)=""
^DD(860.2,0,"PT",860.71,.01)=""
^DD(860.2,0,"VR")="3.0"
^DD(860.2,0,"VRPK")="OR"
^DD(860.2,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(860.2,.01,1,0)="^.1"
^DD(860.2,.01,1,1,0)="860.2^B"
^DD(860.2,.01,1,1,1)="S ^OCXS(860.2,""B"",$E(X,1,100),DA)="""""
^DD(860.2,.01,1,1,2)="K ^OCXS(860.2,""B"",$E(X,1,100),DA)"
^DD(860.2,.01,3)="Answer must be 3-100 characters in length."
^DD(860.2,.01,"DT")="2950503"
^DD(860.2,.02,0)="STATUS^S^0:ACTIVE;1:INACTIVE;^INACT;1^Q"
^DD(860.2,.02,"DT")="2950614"
^DD(860.2,1,0)="TRUTH ELEMENTS^860.21I^^C;0"
^DD(860.2,1,21,0)="^^3^3^2951101^"
^DD(860.2,1,21,1,0)=" "
^DD(860.2,1,21,2,0)="  This is the list of elements used by this rule."
^DD(860.2,1,21,3,0)=" "
^DD(860.2,1,"DT")="2960111"
^DD(860.2,2,0)="RELATION ACTIONS^860.22I^^R;0"
^DD(860.2,2,21,0)="^^5^5^2951102^^"
^DD(860.2,2,21,1,0)=" "
^DD(860.2,2,21,2,0)="  This is a list of boolean expressions that define"
^DD(860.2,2,21,3,0)=" how the elements for this rule are related and what"
^DD(860.2,2,21,4,0)=" to do when different combinations of elements occur."
^DD(860.2,2,21,5,0)=" "
^DD(860.2,2,"DT")="2950524"
^DD(860.2,"B","NAME",.01)=""
^DD(860.2,"B","RELATION ACTIONS",2)=""
^DD(860.2,"B","STATUS",.02)=""
^DD(860.2,"B","TRUTH ELEMENTS",1)=""
^DD(860.2,"GL",0,1,.01)=""
^DD(860.2,"GL","C",0,1)=""
^DD(860.2,"GL","INACT",1,.02)=""
^DD(860.2,"GL","R",0,2)=""
^DD(860.2,"IX",.01)=""
^DD(860.2,"RQ",.01)=""
^DD(860.2,"SB",860.21,1)=""
^DD(860.2,"SB",860.22,2)=""
^DD(860.21,0)="TRUTH ELEMENTS SUB-FIELD^^2^4"
^DD(860.21,0,"DT")="2960610"
^DD(860.21,0,"IX","B",860.21,.01)=""
^DD(860.21,0,"IX","C",860.21,1)=""
^DD(860.21,0,"NM","TRUTH ELEMENTS")=""
^DD(860.21,0,"UP")="860.2"
^DD(860.21,.01,0)="LABEL^MRF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(860.21,.01,1,0)="^.1^^-1"
^DD(860.21,.01,1,1,0)="860.21^B"
^DD(860.21,.01,1,1,1)="S ^OCXS(860.2,DA(1),""C"",""B"",$E(X,1,30),DA)="""""
^DD(860.21,.01,1,1,2)="K ^OCXS(860.2,DA(1),""C"",""B"",$E(X,1,30),DA)"
^DD(860.21,.01,3)="Answer must be 1-30 characters in length."
^DD(860.21,.01,"DT")="2960112"
^DD(860.21,.02,0)="TYPE^S^0:SIMPLE DEFINITION;1:COMPLEX DEFINITION;^0;3^Q"
^DD(860.21,.02,"DT")="2960112"
^DD(860.21,1,0)="ELEMENT NAME^P860.3^OCXS(860.3,^0;2^Q"
^DD(860.21,1,1,0)="^.1"
^DD(860.21,1,1,1,0)="860.21^C"
^DD(860.21,1,1,1,1)="S ^OCXS(860.2,DA(1),""C"",""C"",$E(X,1,30),DA)="""""
^DD(860.21,1,1,1,2)="K ^OCXS(860.2,DA(1),""C"",""C"",$E(X,1,30),DA)"
^DD(860.21,1,1,1,"DT")="2950614"
^DD(860.21,1,1,2,0)="860.2^ATELM"
^DD(860.21,1,1,2,1)="S ^OCXS(860.2,""ATELM"",$E(X,1,30),DA(1),DA)="""""
^DD(860.21,1,1,2,2)="K ^OCXS(860.2,""ATELM"",$E(X,1,30),DA(1),DA)"
^DD(860.21,1,1,2,"DT")="2960112"
^DD(860.21,1,3)=""
^DD(860.21,1,4)=""
^DD(860.21,1,21,0)="^^7^7^2951101^"
^DD(860.21,1,21,1,0)=" "
^DD(860.21,1,21,2,0)="  A shorthand label for this element used in the relation"
^DD(860.21,1,21,3,0)=" expressions of this rule."
^DD(860.21,1,21,4,0)=" "
^DD(860.21,1,21,5,0)="  This keeps the length of each relation expression down to"
^DD(860.21,1,21,6,0)=" a manageable size."
^DD(860.21,1,21,7,0)=" "
^DD(860.21,1,"DT")="2960610"
^DD(860.21,2,0)="ELEMENT EXPRESSION^F^^EXP;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(860.21,2,3)="Answer must be 1-200 characters in length."
^DD(860.21,2,"DT")="2960209"
^DD(860.21,"B","ELEMENT EXPRESSION",2)=""
^DD(860.21,"B","ELEMENT NAME",1)=""
^DD(860.21,"B","LABEL",.01)=""
^DD(860.21,"B","TYPE",.02)=""
^DD(860.21,"GL",0,1,.01)=""
^DD(860.21,"GL",0,2,1)=""
^DD(860.21,"GL",0,3,.02)=""
^DD(860.21,"GL","EXP","E1,200",2)=""
^DD(860.21,"IX",.01)=""
^DD(860.21,"IX",1)=""
^DD(860.21,"RQ",.01)=""
^DD(860.22,0)="RELATION ACTIONS SUB-FIELD^^9^10"
^DD(860.22,0,"DT")="3011114"
^DD(860.22,0,"ID",1)="W:$D(^(""E"")) ""   If -> "",$E(^(""E""),1,200)"
^DD(860.22,0,"IX","B",860.22,.01)=""
^DD(860.22,0,"NM","RELATION ACTIONS")=""
^DD(860.22,0,"UP")="860.2"
^DD(860.22,.01,0)="RELATION INDEX^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(860.22,.01,1,0)="^.1"
^DD(860.22,.01,1,1,0)="860.22^B"
^DD(860.22,.01,1,1,1)="S ^OCXS(860.2,DA(1),""R"",""B"",$E(X,1,30),DA)="""""
^DD(860.22,.01,1,1,2)="K ^OCXS(860.2,DA(1),""R"",""B"",$E(X,1,30),DA)"
^DD(860.22,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(860.22,.01,"DT")="2941107"
^DD(860.22,1,0)="RELATION EXPRESSION^F^^E;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(860.22,1,.1)=" "
^DD(860.22,1,3)="Answer must be 1-200 characters in length."
^DD(860.22,1,21,0)="^^8^8^2951101^"
^DD(860.22,1,21,1,0)=" "
^DD(860.22,1,21,2,0)="   This is a boolean expression that is essentially an"
^DD(860.22,1,21,3,0)=" IF argument. Use Element labels (defined above) for"
^DD(860.22,1,21,4,0)=" boolean variable names, and 'OR', 'AND', and 'NOT' for"
^DD(860.22,1,21,5,0)=" boolean operators. You can also use any combination and"
^DD(860.22,1,21,6,0)=" number of parenthesis to control the operator precedence,"
^DD(860.22,1,21,7,0)=" Otherwise the precedence is from left to right."
^DD(860.22,1,21,8,0)=" "
^DD(860.22,1,"DT")="2941107"
^DD(860.22,2,0)="ORDER CHECK^P100.8'^ORD(100.8,^0;2^Q"
^DD(860.22,2,3)=""
^DD(860.22,2,21,0)="^^4^4^2951102^^"
^DD(860.22,2,21,1,0)=" "
^DD(860.22,2,21,2,0)="  Check this field YES if the user is to get a message on"
^DD(860.22,2,21,3,0)=" his screen when this relation is evaluated TRUE."
^DD(860.22,2,21,4,0)=" "
^DD(860.22,2,"DT")="2970825"
^DD(860.22,3,0)="NOTIFICATION^P100.9'^ORD(100.9,^0;3^Q"
^DD(860.22,3,21,0)="^^3^3^2951101^"
^DD(860.22,3,21,1,0)=" "
^DD(860.22,3,21,2,0)="   This points to the notification in the notification system"
^DD(860.22,3,21,3,0)=" that will be sent when this relation is evaluated TRUE."
^DD(860.22,3,"DT")="2950517"
^DD(860.22,4,0)="REPORT DEVICE^P3.5'^%ZIS(1,^0;4^Q"
^DD(860.22,4,21,0)="^^4^4^2951101^"
^DD(860.22,4,21,1,0)=" "
^DD(860.22,4,21,2,0)="   This is not working yet, but will print the Order"
^DD(860.22,4,21,3,0)=" check message to an alternate device (bulletin, host file,"
^DD(860.22,4,21,4,0)=" printer, etc.)."
^DD(860.22,4,"DT")="2950517"
^DD(860.22,5,0)="NOTIFICATION MESSAGE^F^^MSG;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(860.22,5,3)="Answer must be 1-240 characters in length."
^DD(860.22,5,"DT")="2950731"
^DD(860.22,6,0)="ORDER CHECK MESSAGE^F^^OCMSG;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(860.22,6,3)="Answer must be 1-240 characters in length."
^DD(860.22,6,"DT")="2950731"
^DD(860.22,7,0)="SCHEDULE ACTION^S^START:START SCHEDULED CHECKS;CONTINUE:CONTINUE SCHEDULED CHECKS;^RULE;1^Q"
^DD(860.22,7,3)=""
^DD(860.22,7,21,0)="^^4^4^2970107^^^^"
^DD(860.22,7,21,1,0)=" "
^DD(860.22,7,21,2,0)="   This field determines if this relation will cause the rule"
^DD(860.22,7,21,3,0)=" to be placed in or removed from the schedule of timed order checks."
^DD(860.22,7,21,4,0)=" "
^DD(860.22,7,"DT")="2970107"
^DD(860.22,8,0)="SCHEDULE FREQUENCY^F^^RULE;2^K:$L(X)>80!($L(X)<1) X"
^DD(860.22,8,3)="Answer must be 1-80 characters in length."
^DD(860.22,8,21,0)="^^17^17^2970107^^^^"
^DD(860.22,8,21,1,0)=" "
^DD(860.22,8,21,2,0)="   This field describes how often the rule should be evaluated."
^DD(860.22,8,21,3,0)=" "
^DD(860.22,8,21,4,0)="   Its format is generally: (Start Time) (operator) (Offset)"
^DD(860.22,8,21,5,0)=" "
^DD(860.22,8,21,6,0)="    Where Start time is a constant like: TODAY or NOW"
^DD(860.22,8,21,7,0)="                   or a data field like: |DATE OF LAST FLU SHOT|"
^DD(860.22,8,21,8,0)=" "
^DD(860.22,8,21,9,0)="    Operator is either + or -"
^DD(860.22,8,21,10,0)=" "
^DD(860.22,8,21,11,0)="    and Offset is:"
^DD(860.22,8,21,12,0)=" "
^DD(860.22,8,21,13,0)="              1H = 1 Hour"
^DD(860.22,8,21,14,0)="             20D = 20 days"
^DD(860.22,8,21,15,0)="              3W = 3  weeks"
^DD(860.22,8,21,16,0)="              6M = 6  months"
^DD(860.22,8,21,17,0)=" "
^DD(860.22,8,"DT")="2961212"
^DD(860.22,9,0)="EXECUTE CODE^FX^^MCODE;E1,240^K:($L(X)>240)!($L(X)<1)!($$INVALID^OCXOED06(X)) X"
^DD(860.22,9,3)="Answer must be 1-240 characters in length, and be valid Mumps code."
^DD(860.22,9,21,0)="^^14^14^3011114^"
^DD(860.22,9,21,1,0)=" "
^DD(860.22,9,21,2,0)="  This field is used to define Mumps code that is executed"
^DD(860.22,9,21,3,0)="after the expert system determines that a rule has been"
^DD(860.22,9,21,4,0)="triggered, but before the Notification system is called."
^DD(860.22,9,21,5,0)=" "
^DD(860.22,9,21,6,0)="  This adds another level of flexibility to the expert"
^DD(860.22,9,21,7,0)="system if a rule needs further processing to refine a"
^DD(860.22,9,21,8,0)="recipient list or specialized checking to determine if"
^DD(860.22,9,21,9,0)="the current notification should be sent, or if previous"
^DD(860.22,9,21,10,0)="duplicate notifications should be removed."
^DD(860.22,9,21,11,0)=" "
^DD(860.22,9,21,12,0)="  This field also provides a hook for other modes of"
^DD(860.22,9,21,13,0)="notifying users of a triggered rule, if needed."
^DD(860.22,9,21,14,0)=" "
^DD(860.22,9,"DT")="3011120"
^DD(860.22,"B"," ",1)="1"
^DD(860.22,"B","EXECUTE CODE",9)=""
^DD(860.22,"B","NOTIFICATION",3)=""
^DD(860.22,"B","NOTIFICATION MESSAGE",5)=""
^DD(860.22,"B","ORDER CHECK",2)=""
^DD(860.22,"B","ORDER CHECK MESSAGE",6)=""
^DD(860.22,"B","RELATION EXPRESSION",1)=""
^DD(860.22,"B","RELATION INDEX",.01)=""
^DD(860.22,"B","REPORT DEVICE",4)=""
^DD(860.22,"B","SCHEDULE ACTION",7)=""
^DD(860.22,"B","SCHEDULE FREQUENCY",8)=""
^DD(860.22,"GL",0,1,.01)=""
^DD(860.22,"GL",0,2,2)=""
^DD(860.22,"GL",0,3,3)=""
^DD(860.22,"GL",0,4,4)=""
^DD(860.22,"GL","E","E1,200",1)=""
^DD(860.22,"GL","MCODE","E1,240",9)=""
^DD(860.22,"GL","MSG","E1,240",5)=""
^DD(860.22,"GL","OCMSG","E1,240",6)=""
^DD(860.22,"GL","RULE",1,7)=""
^DD(860.22,"GL","RULE",2,8)=""
^DD(860.22,"IX",.01)=""
^DD(860.3,0)="FIELD^^3^4"
^DD(860.3,0,"ACT")="D ^OCXOSCR2"
^DD(860.3,0,"DDA")="N"
^DD(860.3,0,"DT")="2970825"
^DD(860.3,0,"IX","APGM",860.3,3)=""
^DD(860.3,0,"IX","B",860.3,.01)=""
^DD(860.3,0,"IX","C",860.3,.01)=""
^DD(860.3,0,"NM","ORDER CHECK ELEMENT")=""
^DD(860.3,0,"PT",860.11,.02)=""
^DD(860.3,0,"PT",860.21,1)=""
^DD(860.3,0,"PT",860.7122,.01)=""
^DD(860.3,0,"VR")="3.0"
^DD(860.3,0,"VRPK")="OR"
^DD(860.3,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(860.3,.01,1,0)="^.1"
^DD(860.3,.01,1,1,0)="860.3^B"
^DD(860.3,.01,1,1,1)="S ^OCXS(860.3,""B"",$E(X,1,100),DA)="""""
^DD(860.3,.01,1,1,2)="K ^OCXS(860.3,""B"",$E(X,1,100),DA)"
^DD(860.3,.01,1,2,0)="860.3^C"
^DD(860.3,.01,1,2,1)="S ^OCXS(860.3,""C"",$E(X,1,30),DA)="""""
^DD(860.3,.01,1,2,2)="K ^OCXS(860.3,""C"",$E(X,1,30),DA)"
^DD(860.3,.01,1,2,"DT")="2970630"
^DD(860.3,.01,3)="Answer must be 3-100 characters in length."
^DD(860.3,.01,"DT")="2970630"
^DD(860.3,.02,0)="ELEMENT CONTEXT^P860.6'^OCXS(860.6,^0;2^Q"
^DD(860.3,.02,"DT")="2970825"
^DD(860.3,1,0)="CONDITIONAL EXPRESSION^860.31^^COND;0"
^DD(860.3,1,21,0)="^^15^15^2951101^^"
^DD(860.3,1,21,1,0)=" "
^DD(860.3,1,21,2,0)="  List of expressions that determine if this element"
^DD(860.3,1,21,3,0)=" is TRUE. When all of the expressions are TRUE then"
^DD(860.3,1,21,4,0)=" the element is TRUE."
^DD(860.3,1,21,5,0)=" "
^DD(860.3,1,21,6,0)="   Expressions are in the form of:"
^DD(860.3,1,21,7,0)=" "
^DD(860.3,1,21,8,0)="    Data Field -> Conditional Operator -> 1 or 2 comparison"
^DD(860.3,1,21,9,0)="                                          values depending on"
^DD(860.3,1,21,10,0)="                                          the operator."
^DD(860.3,1,21,11,0)=" "
^DD(860.3,1,21,12,0)="   The conditional values can be either constant values, Reserved"
^DD(860.3,1,21,13,0)=" words (NOW or TODAY as in the case of dates), or other fields within"
^DD(860.3,1,21,14,0)=" the data."
^DD(860.3,1,21,15,0)=" "
^DD(860.3,3,0)="COMPILED ROUTINE^F^^RTN;1^K:$L(X)>8!($L(X)<1) X"
^DD(860.3,3,1,0)="^.1"
^DD(860.3,3,1,1,0)="860.3^APGM^MUMPS"
^DD(860.3,3,1,1,1)="S ^OCXS(860.3,""APGM"",DA,X)="""""
^DD(860.3,3,1,1,2)="K ^OCXS(860.3,""APGM"",DA,X)"
^DD(860.3,3,1,1,"DT")="2951204"
^DD(860.3,3,3)="Answer must be 1-8 characters in length."
^DD(860.3,3,"DT")="2951204"
^DD(860.3,"B","COMPILED ROUTINE",3)=""
^DD(860.3,"B","CONDITIONAL EXPRESSION",1)=""
^DD(860.3,"B","ELEMENT CONTEXT",.02)=""
^DD(860.3,"B","NAME",.01)=""
^DD(860.3,"GL",0,1,.01)=""
^DD(860.3,"GL",0,2,.02)=""
^DD(860.3,"GL","COND",0,1)=""
^DD(860.3,"GL","RTN",1,3)=""
^DD(860.3,"IX",.01)=""
^DD(860.3,"IX",3)=""
^DD(860.3,"RQ",.01)=""
^DD(860.3,"SB",860.31,1)=""
^DD(860.31,0)="CONDITIONAL EXPRESSION SUB-FIELD^^5^7"
^DD(860.31,0,"DT")="2960610"
^DD(860.31,0,"ID",2)="W:$D(^(""F"")) ""   "",$E(^(""F""),1,200)"
^DD(860.31,0,"ID",4)="W:$D(^(""V"")) ""   "",$E(^(""V""),1,200)"
^DD(860.31,0,"IX","B",860.31,.01)=""
^DD(860.31,0,"NM","CONDITIONAL EXPRESSION")=""
^DD(860.31,0,"UP")="860.3"
^DD(860.31,.01,0)="EXPRESSION SEQUENCE NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(860.31,.01,1,0)="^.1"
^DD(860.31,.01,1,1,0)="860.31^B"
^DD(860.31,.01,1,1,1)="S ^OCXS(860.3,DA(1),""COND"",""B"",$E(X,1,30),DA)="""""
^DD(860.31,.01,1,1,2)="K ^OCXS(860.3,DA(1),""COND"",""B"",$E(X,1,30),DA)"
^DD(860.31,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(860.31,.01,"DT")="2950508"
^DD(860.31,1,0)="DATA FIELD 1^*P860.4^OCXS(860.4,^DFLD1;1^S DIC(""S"")=""I $$SCFLD^OCXOCMPS(^(0),DA(1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(860.31,1,12)="ALLOW ONLY ONE DATA SOURCE PER ELEMENT"
^DD(860.31,1,12.1)="S DIC(""S"")=""I $$SCFLD^OCXOCMPS(^(0),DA(1))"""
^DD(860.31,1,"DT")="2960610"
^DD(860.31,2,0)="OPERATOR/FUNCTION^*P863.9'^OCXS(863.9,^OPER;E1,240^S DIC(""S"")=""I $$OPSCR^OCXOCMPS"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(860.31,2,3)=""
^DD(860.31,2,12)="CHECK FOR 'OCXO OPERATOR CODE TEMPLATE' PARAMETER"
^DD(860.31,2,12.1)="S DIC(""S"")=""I $$OPSCR^OCXOCMPS"""
^DD(860.31,2,"DT")="2950530"
^DD(860.31,3,0)="CONDITIONAL VALUE 1^F^^VAL1;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(860.31,3,3)="Answer must be 1-200 characters in length."
^DD(860.31,3,"DT")="2960228"
^DD(860.31,3.1,0)="CONDITIONAL VALUE 2^F^^VAL2;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(860.31,3.1,3)="Answer must be 1-240 characters in length."
^DD(860.31,3.1,"DT")="2950810"
^DD(860.31,4,0)="DATA FIELD 2^*P860.4^OCXS(860.4,^DFLD2;E1,200^S DIC(""S"")=""I $$SCFLD^OCXOCMPS(^(0),DA(1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(860.31,4,3)="Answer must be 1-200 characters in length."
^DD(860.31,4,12)="MATCH WITH PRIMARY DATA FIELD"
^DD(860.31,4,12.1)="S DIC(""S"")=""I $$SCFLD^OCXOCMPS(^(0),DA(1))"""
^DD(860.31,4,"DT")="2960610"
^DD(860.31,5,0)="DATA FIELD 3^*P860.4^OCXS(860.4,^DFLD3;1^S DIC(""S"")=""I $$SCFLD^OCXOCMPS(^(0),DA(1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(860.31,5,12)="MATCH WITH PRIMARY DATA FIELD"
^DD(860.31,5,12.1)="S DIC(""S"")=""I $$SCFLD^OCXOCMPS(^(0),DA(1))"""
^DD(860.31,5,"DT")="2960610"
^DD(860.31,"B","CONDITIONAL VALUE 1",3)=""
^DD(860.31,"B","CONDITIONAL VALUE 2",3.1)=""
^DD(860.31,"B","DATA FIELD 1",1)=""
^DD(860.31,"B","DATA FIELD 2",4)=""
^DD(860.31,"B","DATA FIELD 3",5)=""
^DD(860.31,"B","EXPRESSION SEQUENCE NUMBER",.01)=""
^DD(860.31,"B","OPERATOR/FUNCTION",2)=""
^DD(860.31,"GL",0,1,.01)=""
^DD(860.31,"GL","DFLD1",1,1)=""
^DD(860.31,"GL","DFLD2","E1,200",4)=""
^DD(860.31,"GL","DFLD3",1,5)=""
^DD(860.31,"GL","OPER","E1,240",2)=""
^DD(860.31,"GL","VAL1","E1,200",3)=""
^DD(860.31,"GL","VAL2","E1,240",3.1)=""
^DD(860.31,"IX",.01)=""
^DD(860.4,0)="FIELD^^101^4"
^DD(860.4,0,"ACT")="D ^OCXOSCR1"
^DD(860.4,0,"DDA")="N"
^DD(860.4,0,"DT")="2970626"
^DD(860.4,0,"IX","B",860.4,.01)=""
^DD(860.4,0,"IX","C",860.4,1)=""
^DD(860.4,0,"NM","ORDER CHECK DATA FIELD")=""
^DD(860.4,0,"PT",860.111,.01)=""
^DD(860.4,0,"PT",860.31,1)=""
^DD(860.4,0,"PT",860.31,4)=""
^DD(860.4,0,"PT",860.31,5)=""
^DD(860.4,0,"PT",860.71223,.01)=""
^DD(860.4,0,"VR")="3.0"
^DD(860.4,0,"VRPK")="OR"
^DD(860.4,.01,0)="NAME^RF^^0;1^K:$L(X)>200!($L(X)<3)!'(X'?1P.E) X"
^DD(860.4,.01,1,0)="^.1"
^DD(860.4,.01,1,1,0)="860.4^B"
^DD(860.4,.01,1,1,1)="S ^OCXS(860.4,""B"",$E(X,1,30),DA)="""""
^DD(860.4,.01,1,1,2)="K ^OCXS(860.4,""B"",$E(X,1,30),DA)"
^DD(860.4,.01,3)="Answer must be 3-200 characters in length."
^DD(860.4,.01,"DT")="2960610"
^DD(860.4,1,0)="ABBREVIATION^FX^^1;1^K:$L(X)>20!($L(X)<1) X I $D(X) K:$D(^OCXS(860.4,""C"",X)) X I $D(X) K:$D(^OCXS(860.4,""B"",X)) X"
^DD(860.4,1,1,0)="^.1"
^DD(860.4,1,1,1,0)="860.4^C"
^DD(860.4,1,1,1,1)="S ^OCXS(860.4,""C"",$E(X,1,30),DA)="""""
^DD(860.4,1,1,1,2)="K ^OCXS(860.4,""C"",$E(X,1,30),DA)"
^DD(860.4,1,1,1,"DT")="2960610"
^DD(860.4,1,3)="Answer must be 1-20 characters in length, and not used by another data field."
^DD(860.4,1,"DT")="2960610"
^DD(860.4,100,0)="DATA SOURCES^860.41P^^LINK;0"
^DD(860.4,101,0)="DATATYPE^P864.1'^OCXS(864.1,^0;3^Q"
^DD(860.4,101,"DT")="2970626"
^DD(860.4,"B","ABBREVIATION",1)=""
^DD(860.4,"B","DATA SOURCES",100)=""
^DD(860.4,"B","DATATYPE",101)=""
^DD(860.4,"B","NAME",.01)=""
^DD(860.4,"GL",0,1,.01)=""
^DD(860.4,"GL",0,3,101)=""
^DD(860.4,"GL",1,1,1)=""
^DD(860.4,"GL","LINK",0,100)=""
^DD(860.4,"IX",.01)=""
^DD(860.4,"IX",1)=""
^DD(860.4,"RQ",.01)=""
^DD(860.4,"SB",860.41,100)=""
^DD(860.41,0)="DATA SOURCES SUB-FIELD^^1^3"
^DD(860.41,0,"DT")="2960821"
^DD(860.41,0,"IX","B",860.41,.01)=""
^DD(860.41,0,"NM","DATA SOURCES")=""
^DD(860.41,0,"UP")="860.4"
^DD(860.41,.01,0)="DATA CONTEXT^P860.6'^OCXS(860.6,^0;1^Q"
^DD(860.41,.01,1,0)="^.1"
^DD(860.41,.01,1,1,0)="860.41^B"
^DD(860.41,.01,1,1,1)="S ^OCXS(860.4,DA(1),""LINK"",""B"",$E(X,1,30),DA)="""""
^DD(860.41,.01,1,1,2)="K ^OCXS(860.4,DA(1),""LINK"",""B"",$E(X,1,30),DA)"
^DD(860.41,.01,"DT")="2960503"
^DD(860.41,.02,0)="DATA SOURCE^*P860.5^OCXS(860.5,^0;2^S DIC(""S"")=""I $$SOURCE^OCXOCMPS(^(0),+$G(DA(1)),+$G(DA))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(860.41,.02,12)=" Ensures synchronization of Source with Context"
^DD(860.41,.02,12.1)="S DIC(""S"")=""I $$SOURCE^OCXOCMPS(^(0),+$G(DA(1)),+$G(DA))"""
^DD(860.41,.02,"DT")="2960503"
^DD(860.41,1,0)="META DICTIONARY LINK^F^^DATAPATH;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(860.41,1,3)="Answer must be 1-200 characters in length."
^DD(860.41,1,"DT")="2960423"
^DD(860.41,"B","DATA CONTEXT",.01)=""
^DD(860.41,"B","DATA SOURCE",.02)=""
^DD(860.41,"B","META DICTIONARY LINK",1)=""
^DD(860.41,"GL",0,1,.01)=""
^DD(860.41,"GL",0,2,.02)=""
^DD(860.41,"GL","DATAPATH","E1,200",1)=""
^DD(860.41,"IX",.01)=""
^DD(860.5,0)="FIELD^^.02^2"
^DD(860.5,0,"DT")="2960429"
^DD(860.5,0,"IX","B",860.5,.01)=""
^DD(860.5,0,"IX","C",860.5,.02)=""
^DD(860.5,0,"NM","ORDER CHECK DATA SOURCE")=""
^DD(860.5,0,"PT",860.41,.02)=""
^DD(860.5,0,"VR")="3.0"
^DD(860.5,0,"VRPK")="OR"
^DD(860.5,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(860.5,.01,1,0)="^.1"
^DD(860.5,.01,1,1,0)="860.5^B"
^DD(860.5,.01,1,1,1)="S ^OCXS(860.5,""B"",$E(X,1,30),DA)="""""
^DD(860.5,.01,1,1,2)="K ^OCXS(860.5,""B"",$E(X,1,30),DA)"
^DD(860.5,.01,3)="Answer must be 3-100 characters in length."
^DD(860.5,.01,"DT")="2950801"
^DD(860.5,.02,0)="CONTEXT^P860.6'^OCXS(860.6,^0;2^Q"
^DD(860.5,.02,1,0)="^.1"
^DD(860.5,.02,1,1,0)="860.5^C"
^DD(860.5,.02,1,1,1)="S ^OCXS(860.5,""C"",$E(X,1,30),DA)="""""
^DD(860.5,.02,1,1,2)="K ^OCXS(860.5,""C"",$E(X,1,30),DA)"
^DD(860.5,.02,1,1,"DT")="2950829"
^DD(860.5,.02,3)=""
^DD(860.5,.02,"DT")="2960429"
^DD(860.5,"B","CONTEXT",.02)=""
^DD(860.5,"B","NAME",.01)=""
^DD(860.5,"GL",0,1,.01)=""
^DD(860.5,"GL",0,2,.02)=""
^DD(860.5,"IX",.01)=""
^DD(860.5,"IX",.02)=""
^DD(860.5,"RQ",.01)=""
^DD(860.6,0)="FIELD^^1^3"
^DD(860.6,0,"DDA")="N"
^DD(860.6,0,"DT")="2960429"
^DD(860.6,0,"IX","B",860.6,.01)=""
^DD(860.6,0,"IX","C",860.6,.02)=""
^DD(860.6,0,"NM","ORDER CHECK DATA CONTEXT")=""
^DD(860.6,0,"PT",860.3,.02)=""
^DD(860.6,0,"PT",860.41,.01)=""
^DD(860.6,0,"PT",860.5,.02)=""
^DD(860.6,0,"VR")="3.0"
^DD(860.6,0,"VRPK")="OR"
^DD(860.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(860.6,.01,1,0)="^.1"
^DD(860.6,.01,1,1,0)="860.6^B"
^DD(860.6,.01,1,1,1)="S ^OCXS(860.6,""B"",$E(X,1,30),DA)="""""
^DD(860.6,.01,1,1,2)="K ^OCXS(860.6,""B"",$E(X,1,30),DA)"
^DD(860.6,.01,3)="Answer must be 1-30 characters in length."
^DD(860.6,.01,"DT")="2960429"
^DD(860.6,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(860.6,.02,1,0)="^.1"
^DD(860.6,.02,1,1,0)="860.6^C"
^DD(860.6,.02,1,1,1)="S ^OCXS(860.6,""C"",$E(X,1,30),DA)="""""
^DD(860.6,.02,1,1,2)="K ^OCXS(860.6,""C"",$E(X,1,30),DA)"
^DD(860.6,.02,1,1,"DT")="2960429"
^DD(860.6,.02,3)="Answer must be 1-5 characters in length."
^DD(860.6,.02,"DT")="2960429"
^DD(860.6,1,0)="ACQUISITION MODE^S^0:DATA DRIVEN;1:PACKAGE LOOKUP;2:TIMED EVENT;^0;3^Q"
^DD(860.6,1,"DT")="2960429"
^DD(860.6,"B","ABBREVIATION",.02)=""
^DD(860.6,"B","ACQUISITION MODE",1)=""
^DD(860.6,"B","NAME",.01)=""
^DD(860.6,"GL",0,1,.01)=""
^DD(860.6,"GL",0,2,.02)=""
^DD(860.6,"GL",0,3,1)=""
^DD(860.6,"IX",.01)=""
^DD(860.6,"IX",.02)=""
^DD(860.6,"RQ",.01)=""
^DD(860.7,0)="FIELD^^1^2"
^DD(860.7,0,"DT")="2970722"
^DD(860.7,0,"IX","AT",860.71,.02)=""
^DD(860.7,0,"IX","B",860.7,.01)=""
^DD(860.7,0,"NM","ORDER CHECK PATIENT RULE EVENT")=""
^DD(860.7,0,"VR")="3.0"
^DD(860.7,0,"VRPK")="OR"
^DD(860.7,.01,0)="NAME^RP860.1'X^OCXD(860.1,^0;1^S DINUM=X"
^DD(860.7,.01,1,0)="^.1"
^DD(860.7,.01,1,1,0)="860.7^B"
^DD(860.7,.01,1,1,1)="S ^OCXD(860.7,""B"",$E(X,1,30),DA)="""""
^DD(860.7,.01,1,1,2)="K ^OCXD(860.7,""B"",$E(X,1,30),DA)"
^DD(860.7,.01,3)=""
^DD(860.7,.01,"DT")="2950717"
^DD(860.7,1,0)="RULE EVENT^860.71P^^1;0"
^DD(860.7,1,21,0)="^^3^3^2951101^"
^DD(860.7,1,21,1,0)=" "
^DD(860.7,1,21,2,0)="   The list of rules that have been triggered for this patient."
^DD(860.7,1,21,3,0)=" "
^DD(860.7,"B","NAME",.01)=""
^DD(860.7,"B","RULE EVENT",1)=""
^DD(860.7,"GL",0,1,.01)=""
^DD(860.7,"GL",1,0,1)=""
^DD(860.7,"IX",.01)=""
^DD(860.7,"RQ",.01)=""
^DD(860.7,"SB",860.71,1)=""
^DD(860.71,0)="RULE EVENT SUB-FIELD^^2^5"
^DD(860.71,0,"DT")="2970722"
^DD(860.71,0,"IX","B",860.71,.01)=""
^DD(860.71,0,"NM","RULE EVENT")=""
^DD(860.71,0,"UP")="860.7"
^DD(860.71,.01,0)="RULE^MP860.2'X^OCXS(860.2,^0;1^S:$D(X) DINUM=X"
^DD(860.71,.01,1,0)="^.1"
^DD(860.71,.01,1,1,0)="860.71^B"
^DD(860.71,.01,1,1,1)="S ^OCXD(860.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.71,.01,1,1,2)="K ^OCXD(860.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.71,.01,"DT")="2951204"
^DD(860.71,.02,0)="TIMESTAMP^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(860.71,.02,1,0)="^.1"
^DD(860.71,.02,1,1,0)="860.7^AT"
^DD(860.71,.02,1,1,1)="D SET^OCXOSCR3($E(X,1,30),DA(1),DA)"
^DD(860.71,.02,1,1,2)="K ^OCXD(860.7,""AT"",$E(X,1,30),DA(1),DA)"
^DD(860.71,.02,1,1,"DT")="2970711"
^DD(860.71,.02,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(860.71,.02,"DT")="2970711"
^DD(860.71,.03,0)="ORDER NUMBER^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(860.71,.03,3)="Answer must be 1-30 characters in length."
^DD(860.71,.03,"DT")="2970711"
^DD(860.71,.04,0)="RESULT MESSAGE TEXT^F^^M;1^K:$L(X)>100!($L(X)<1) X"
^DD(860.71,.04,3)="Answer must be 1-100 characters in length."
^DD(860.71,.04,"DT")="2971008"
^DD(860.71,2,0)="RELATION^860.712^^1;0"
^DD(860.71,"B","ORDER NUMBER",.03)=""
^DD(860.71,"B","RELATION",2)=""
^DD(860.71,"B","RESULT MESSAGE TEXT",.04)=""
^DD(860.71,"B","RULE",.01)=""
^DD(860.71,"B","TIMESTAMP",.02)=""
^DD(860.71,"GL",0,1,.01)=""
^DD(860.71,"GL",0,2,.02)=""
^DD(860.71,"GL",0,3,.03)=""
^DD(860.71,"GL",1,0,2)=""
^DD(860.71,"GL","M",1,.04)=""
^DD(860.71,"IX",.01)=""
^DD(860.71,"IX",.02)=""
^DD(860.71,"SB",860.712,2)=""
^DD(860.712,0)="RELATION SUB-FIELD^^2^2"
^DD(860.712,0,"DT")="2970109"
^DD(860.712,0,"IX","B",860.712,.01)=""
^DD(860.712,0,"NM","RELATION")=""
^DD(860.712,0,"UP")="860.71"
^DD(860.712,.01,0)="RELATION^MNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(860.712,.01,1,0)="^.1"
^DD(860.712,.01,1,1,0)="860.712^B"
^DD(860.712,.01,1,1,1)="S ^OCXD(860.7,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.712,.01,1,1,2)="K ^OCXD(860.7,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.712,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(860.712,.01,"DT")="2951204"
^DD(860.712,2,0)="ELEMENTS^860.7122P^^1;0"
^DD(860.712,"B","ELEMENTS",2)=""
^DD(860.712,"B","RELATION",.01)=""
^DD(860.712,"GL",0,1,.01)=""
^DD(860.712,"GL",1,0,2)=""
^DD(860.712,"IX",.01)=""
^DD(860.712,"SB",860.7122,2)=""
^DD(860.7122,0)="ELEMENTS SUB-FIELD^^3^4"
^DD(860.7122,0,"DT")="2970109"
^DD(860.7122,0,"IX","B",860.7122,.01)=""
^DD(860.7122,0,"NM","ELEMENTS")=""
^DD(860.7122,0,"UP")="860.712"
^DD(860.7122,.01,0)="ELEMENTS^MP860.3'X^OCXS(860.3,^0;1^S:$D(X) DINUM=X"
^DD(860.7122,.01,1,0)="^.1"
^DD(860.7122,.01,1,1,0)="860.7122^B"
^DD(860.7122,.01,1,1,1)="S ^OCXD(860.7,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.7122,.01,1,1,2)="K ^OCXD(860.7,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.7122,.01,"DT")="2951204"
^DD(860.7122,1,0)="TIMESTAMP^NJ6,0^^TIME;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(860.7122,1,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(860.7122,1,"DT")="2970109"
^DD(860.7122,2,0)="MESSAGE LOG NUMBER^NJ7,0^^LOG;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(860.7122,2,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(860.7122,2,"DT")="2970109"
^DD(860.7122,3,0)="DATA FIELDS^860.71223P^^1;0"
^DD(860.7122,"B","DATA FIELDS",3)=""
^DD(860.7122,"B","ELEMENTS",.01)=""
^DD(860.7122,"B","MESSAGE LOG NUMBER",2)=""
^DD(860.7122,"B","TIMESTAMP",1)=""
^DD(860.7122,"GL",0,1,.01)=""
^DD(860.7122,"GL",1,0,3)=""
^DD(860.7122,"GL","LOG",1,2)=""
^DD(860.7122,"GL","TIME",1,1)=""
^DD(860.7122,"IX",.01)=""
^DD(860.7122,"SB",860.71223,3)=""
^DD(860.71223,0)="DATA FIELDS SUB-FIELD^^1^2"
^DD(860.71223,0,"DT")="2970109"
^DD(860.71223,0,"IX","B",860.71223,.01)=""
^DD(860.71223,0,"NM","DATA FIELDS")=""
^DD(860.71223,0,"UP")="860.7122"
^DD(860.71223,.01,0)="DATA FIELD^MP860.4'^OCXS(860.4,^0;1^Q"
^DD(860.71223,.01,1,0)="^.1"
^DD(860.71223,.01,1,1,0)="860.71223^B"
^DD(860.71223,.01,1,1,1)="S ^OCXD(860.7,DA(4),1,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.71223,.01,1,1,2)="K ^OCXD(860.7,DA(4),1,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.71223,.01,"DT")="2970109"
^DD(860.71223,1,0)="DATA VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(860.71223,1,3)="Answer must be 1-200 characters in length."
^DD(860.71223,1,"DT")="2970109"
^DD(860.71223,"B","DATA FIELD",.01)=""
^DD(860.71223,"B","DATA VALUE",1)=""
^DD(860.71223,"GL",0,1,.01)=""
^DD(860.71223,"GL","VAL","E1,200",1)=""
^DD(860.71223,"IX",.01)=""
^DD(860.8,0)="FIELD^^100^4"
^DD(860.8,0,"DT")="2960620"
^DD(860.8,0,"IX","B",860.8,.01)=""
^DD(860.8,0,"IX","C",860.8,.02)=""
^DD(860.8,0,"NM","ORDER CHECK COMPILER FUNCTIONS")=""
^DD(860.8,0,"VR")="3.0"
^DD(860.8,0,"VRPK")="OR"
^DD(860.8,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(860.8,.01,1,0)="^.1"
^DD(860.8,.01,1,1,0)="860.8^B"
^DD(860.8,.01,1,1,1)="S ^OCXS(860.8,""B"",$E(X,1,30),DA)="""""
^DD(860.8,.01,1,1,2)="K ^OCXS(860.8,""B"",$E(X,1,30),DA)"
^DD(860.8,.01,3)="Answer must be 3-100 characters in length."
^DD(860.8,.01,"DT")="2960611"
^DD(860.8,.02,0)="LINE LABEL^FX^^0;2^K:$L(X)>8!($L(X)<1)!$D(^OCXS(860.8,""C"",X))!($E(X,1,3)=""MCE"") X"
^DD(860.8,.02,1,0)="^.1"
^DD(860.8,.02,1,1,0)="860.8^C"
^DD(860.8,.02,1,1,1)="S ^OCXS(860.8,""C"",$E(X,1,30),DA)="""""
^DD(860.8,.02,1,1,2)="K ^OCXS(860.8,""C"",$E(X,1,30),DA)"
^DD(860.8,.02,1,1,"DT")="2960611"
^DD(860.8,.02,3)="Answer must be 1-8 characters in length, is not used by another function, and does not start with MCE."
^DD(860.8,.02,"DT")="2970107"
^DD(860.8,1,0)="DESCRIPTION^860.81^^DESC;0"
^DD(860.8,100,0)="CODE^860.801^^CODE;0"
^DD(860.8,"B","CODE",100)=""
^DD(860.8,"B","DESCRIPTION",1)=""
^DD(860.8,"B","LINE LABEL",.02)=""
^DD(860.8,"B","NAME",.01)=""
^DD(860.8,"GL",0,1,.01)=""
^DD(860.8,"GL",0,2,.02)=""
^DD(860.8,"GL","CODE",0,100)=""
^DD(860.8,"GL","DESC",0,1)=""
^DD(860.8,"IX",.01)=""
^DD(860.8,"IX",.02)=""
^DD(860.8,"RQ",.01)=""
^DD(860.8,"SB",860.801,100)=""
^DD(860.8,"SB",860.81,1)=""
^DD(860.801,0)="CODE SUB-FIELD^^.01^1"
^DD(860.801,0,"DT")="2960611"
^DD(860.801,0,"NM","CODE")=""
^DD(860.801,0,"UP")="860.8"
^DD(860.801,.01,0)="CODE^WL^^0;1^Q"
^DD(860.801,.01,21,0)="^^3^3^2970408^^"
^DD(860.801,.01,21,1,0)=" "
^DD(860.801,.01,21,2,0)="  The actual code for the subroutine"
^DD(860.801,.01,21,3,0)=" "
^DD(860.801,.01,"DT")="2960611"
^DD(860.801,"B","CODE",.01)=""
^DD(860.801,"GL",0,1,.01)=""
^DD(860.81,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(860.81,0,"DT")="2960611"
^DD(860.81,0,"NM","DESCRIPTION")=""
^DD(860.81,0,"UP")="860.8"
^DD(860.81,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(860.81,.01,21,0)="^^3^3^2960611^"
^DD(860.81,.01,21,1,0)=" "
^DD(860.81,.01,21,2,0)="   Documentation for this subroutine."
^DD(860.81,.01,21,3,0)=" "
^DD(860.81,.01,"DT")="2960611"
^DD(860.81,"B","DESCRIPTION",.01)=""
^DD(860.81,"GL",0,1,.01)=""
^DD(860.9,0)="FIELD^^2^4"
^DD(860.9,0,"DT")="2990527"
^DD(860.9,0,"IX","B",860.9,.01)=""
^DD(860.9,0,"NM","ORDER CHECK NATIONAL TERM")=""
^DD(860.9,0,"VR")="3.0"
^DD(860.9,0,"VRPK")="OR"
^DD(860.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(860.9,.01,1,0)="^.1"
^DD(860.9,.01,1,1,0)="860.9^B"
^DD(860.9,.01,1,1,1)="S ^OCXS(860.9,""B"",$E(X,1,30),DA)="""""
^DD(860.9,.01,1,1,2)="K ^OCXS(860.9,""B"",$E(X,1,30),DA)"
^DD(860.9,.01,3)="Answer must be 3-30 characters in length."
^DD(860.9,.01,"DT")="2970410"
^DD(860.9,.02,0)="FILE NUMBER^NJ15,5^^0;2^K:+X'=X!(X>999999999)!(X<1.1)!(X?.E1"".""6N.N) X"
^DD(860.9,.02,3)="Type a Number between 1.1 and 999999999, 5 Decimal Digits"
^DD(860.9,.02,"DT")="2970410"
^DD(860.9,1,0)="LOCAL TERM TEXT^860.91IA^^1;0"
^DD(860.9,1,"DT")="2970414"
^DD(860.9,2,0)="LOCAL TERM SCREEN^F^^2;E1,245^K:$L(X)>250!($L(X)<1) X"
^DD(860.9,2,3)="Answer must be 1-250 characters in length."
^DD(860.9,2,9)="@"
^DD(860.9,2,21,0)="^^2^2^2990528^^^^"
^DD(860.9,2,21,1,0)="This field is standard MUMPS code for screening what file entries are"
^DD(860.9,2,21,2,0)="displayed as local terms that can be mapped to the national terms."
^DD(860.9,2,"DT")="2990527"
^DD(860.9,"B","FILE NUMBER",.02)=""
^DD(860.9,"B","LOCAL TERM SCREEN",2)=""
^DD(860.9,"B","LOCAL TERM TEXT",1)=""
^DD(860.9,"B","NAME",.01)=""
^DD(860.9,"GL",0,1,.01)=""
^DD(860.9,"GL",0,2,.02)=""
^DD(860.9,"GL",1,0,1)=""
^DD(860.9,"GL",2,"E1,245",2)=""
^DD(860.9,"IX",.01)=""
^DD(860.9,"RQ",.01)=""
^DD(860.9,"SB",860.91,1)=""
^DD(860.91,0)="LOCAL TERM TEXT SUB-FIELD^^1^2"
^DD(860.91,0,"DT")="2970414"
^DD(860.91,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(860.91,0,"IX","B",860.91,.01)=""
^DD(860.91,0,"IX","C",860.91,1)=""
^DD(860.91,0,"NM","LOCAL TERM TEXT")=""
^DD(860.91,0,"UP")="860.9"
^DD(860.91,.01,0)="LOCAL TERM TEXT^RF^^0;1^K:$L(X)>100!($L(X)<1) X"
^DD(860.91,.01,1,0)="^.1"
^DD(860.91,.01,1,1,0)="860.91^B"
^DD(860.91,.01,1,1,1)="S ^OCXS(860.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(860.91,.01,1,1,2)="K ^OCXS(860.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(860.91,.01,3)="Answer must be 1-100 characters in length."
^DD(860.91,.01,"DT")="2970414"
^DD(860.91,1,0)="LOCAL TERM POINTER^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(860.91,1,1,0)="^.1"
^DD(860.91,1,1,1,0)="860.91^C"
^DD(860.91,1,1,1,1)="S ^OCXS(860.9,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(860.91,1,1,1,2)="K ^OCXS(860.9,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(860.91,1,1,1,"DT")="2970414"
^DD(860.91,1,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(860.91,1,"DT")="2970414"
^DD(860.91,"B","LOCAL TERM POINTER",1)=""
^DD(860.91,"B","LOCAL TERM TEXT",.01)=""
^DD(860.91,"GL",0,1,.01)=""
^DD(860.91,"GL",0,2,1)=""
^DD(860.91,"IX",.01)=""
^DD(860.91,"IX",1)=""
^DD(860.91,"RQ",.01)=""
^DD(861,0)="FIELD^^3^11"
^DD(861,0,"DDA")="N"
^DD(861,0,"DT")="2971215"
^DD(861,0,"IX","B",861,.01)=""
^DD(861,0,"NM","ORDER CHECK RAW DATA LOG")=""
^DD(861,0,"VR")="3.0"
^DD(861,0,"VRPK")="OR"
^DD(861,.01,0)="TIMESTAMP^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(861,.01,1,0)="^.1"
^DD(861,.01,1,1,0)="861^B"
^DD(861,.01,1,1,1)="S ^OCXD(861,""B"",$E(X,1,30),DA)="""""
^DD(861,.01,1,1,2)="K ^OCXD(861,""B"",$E(X,1,30),DA)"
^DD(861,.01,3)="Answer must be 1-30 characters in length."
^DD(861,.01,21,0)="^^5^5^2970721^"
^DD(861,.01,21,1,0)=" "
^DD(861,.01,21,2,0)="  The date and time the data was recieved by Order Checking. If more"
^DD(861,.01,21,3,0)=" that one entry is recieved during a one second interval then the"
^DD(861,.01,21,4,0)=" timestamp will have a letter (a,b,c,d, etc.) appended to the end."
^DD(861,.01,21,5,0)=" "
^DD(861,.01,"DT")="2970721"
^DD(861,.02,0)="USER^F^^USER;1^K:$L(X)>100!($L(X)<1) X"
^DD(861,.02,3)="Answer must be 1-100 characters in length."
^DD(861,.02,21,0)="^^3^3^2970721^"
^DD(861,.02,21,1,0)=" "
^DD(861,.02,21,2,0)="  This is the user that caused the data to be transmitted."
^DD(861,.02,21,3,0)=" "
^DD(861,.02,"DT")="2970721"
^DD(861,.03,0)="DATA ARRAY NAME^F^^ARRAY;E1,100^K:$L(X)>100!($L(X)<1) X"
^DD(861,.03,3)="Answer must be 1-100 characters in length."
^DD(861,.03,21,0)="^^4^4^2970721^"
^DD(861,.03,21,1,0)=" "
^DD(861,.03,21,2,0)="  This is the variable name (Global or Local) that the data was"
^DD(861,.03,21,3,0)=" recieved in."
^DD(861,.03,21,4,0)=" "
^DD(861,.03,"DT")="2970721"
^DD(861,.04,0)="PROCESS ID^F^^JOB;1^K:$L(X)>100!($L(X)<1) X"
^DD(861,.04,3)="Answer must be 1-100 characters in length."
^DD(861,.04,21,0)="^^4^4^2970721^"
^DD(861,.04,21,1,0)=" "
^DD(861,.04,21,2,0)="  This is the Job number and can be used to help set a sequence"
^DD(861,.04,21,3,0)=" of events when troubleshooting problems."
^DD(861,.04,21,4,0)=" "
^DD(861,.04,"DT")="2970721"
^DD(861,.05,0)="VERSION^F^^VERSION;1^K:$L(X)>100!($L(X)<1) X"
^DD(861,.05,3)="Answer must be 1-100 characters in length."
^DD(861,.05,21,0)="^^4^4^2970721^"
^DD(861,.05,21,1,0)=" "
^DD(861,.05,21,2,0)="   This is taken from the Order Check Interface routine that"
^DD(861,.05,21,3,0)=" sent the data to this logfile."
^DD(861,.05,21,4,0)=" "
^DD(861,.05,"DT")="2970721"
^DD(861,.06,0)="SOURCE^F^^SOURCE;1^K:$L(X)>100!($L(X)<1) X"
^DD(861,.06,3)="Answer must be 1-100 characters in length."
^DD(861,.06,21,0)="^^2^2^2970721^"
^DD(861,.06,21,1,0)=" "
^DD(861,.06,21,2,0)="  This is the source for the data. (ie. HL7, DGPM MOVEMENT, etc.)"
^DD(861,.06,"DT")="2970721"
^DD(861,.07,0)="PATIENT^F^^PATIENT;1^K:$L(X)>100!($L(X)<1) X"
^DD(861,.07,3)="Answer must be 1-100 characters in length."
^DD(861,.07,"DT")="2970728"
^DD(861,.08,0)="RUN STATUS^F^^STATUS;1^K:$L(X)>30!($L(X)<3) X"
^DD(861,.08,3)="Answer must be 3-30 characters in length."
^DD(861,.08,21,0)="^^4^4^2971215^^"
^DD(861,.08,21,1,0)=" "
^DD(861,.08,21,2,0)="   This field holds the status of the current Order Check"
^DD(861,.08,21,3,0)=" session. (ie. 'Running' or 'Finished Normally')"
^DD(861,.08,21,4,0)=" "
^DD(861,.08,"DT")="2971215"
^DD(861,1,0)="DATA^861.01^^DATA;0"
^DD(861,2,0)="LAST PURGE DATE^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<11111)!(X?.E1"".""1N.N) X"
^DD(861,2,3)="Type a Number between 11111 and 999999, 0 Decimal Digits"
^DD(861,2,"DT")="2970825"
^DD(861,3,0)="LAST COMPILER RUN^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(861,3,3)="Answer must be 1-15 characters in length."
^DD(861,3,"DT")="2970825"
^DD(861,"B","DATA",1)=""
^DD(861,"B","DATA ARRAY NAME",.03)=""
^DD(861,"B","LAST COMPILER RUN",3)=""
^DD(861,"B","LAST PURGE DATE",2)=""
^DD(861,"B","PATIENT",.07)=""
^DD(861,"B","PROCESS ID",.04)=""
^DD(861,"B","RUN STATUS",.08)=""
^DD(861,"B","SOURCE",.06)=""
^DD(861,"B","TIMESTAMP",.01)=""
^DD(861,"B","USER",.02)=""
^DD(861,"B","VERSION",.05)=""
^DD(861,"GL",0,1,.01)=""
^DD(861,"GL",0,2,2)=""
^DD(861,"GL",0,3,3)=""
^DD(861,"GL","ARRAY","E1,100",.03)=""
^DD(861,"GL","DATA",0,1)=""
^DD(861,"GL","JOB",1,.04)=""
^DD(861,"GL","PATIENT",1,.07)=""
^DD(861,"GL","SOURCE",1,.06)=""
^DD(861,"GL","STATUS",1,.08)=""
^DD(861,"GL","USER",1,.02)=""
^DD(861,"GL","VERSION",1,.05)=""
^DD(861,"IX",.01)=""
^DD(861,"RQ",.01)=""
^DD(861,"SB",861.01,1)=""
^DD(861.01,0)="DATA SUB-FIELD^^.01^1"
^DD(861.01,0,"DT")="2970721"
^DD(861.01,0,"NM","DATA")=""
^DD(861.01,0,"UP")="861"
^DD(861.01,.01,0)="DATA^WL^^0;1^Q"
^DD(861.01,.01,21,0)="^^3^3^2970721^^"
^DD(861.01,.01,21,1,0)=" "
^DD(861.01,.01,21,2,0)="   This is the raw data that was recieved."
^DD(861.01,.01,21,3,0)=" "
^DD(861.01,.01,"DT")="2970721"
^DD(861.01,"B","DATA",.01)=""
^DD(861.01,"GL",0,1,.01)=""
^DD(863,0)="FIELD^^3^7"
^DD(863,0,"DDA")="N"
^DD(863,0,"DT")="2970627"
^DD(863,0,"IX","ACLS",863,.03)=""
^DD(863,0,"IX","APAR",863.01,.01)=""
^DD(863,0,"IX","B",863,.01)=""
^DD(863,0,"IX","C",863,.02)=""
^DD(863,0,"IX","MN",863,.04)=""
^DD(863,0,"IX","UID",863,3)=""
^DD(863,0,"NM","OCX MDD CLASS")=""
^DD(863,0,"PT",863,.03)=""
^DD(863,0,"PT",863.6,.03)=""
^DD(863,0,"VR")="3.0"
^DD(863,0,"VRPK")="OR"
^DD(863,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(863,.01,1,0)="^.1"
^DD(863,.01,1,1,0)="863^B"
^DD(863,.01,1,1,1)="S ^OCXS(863,""B"",$E(X,1,30),DA)="""""
^DD(863,.01,1,1,2)="K ^OCXS(863,""B"",$E(X,1,30),DA)"
^DD(863,.01,1,2,0)="^^TRIGGER^863^3"
^DD(863,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863,.01,1,2,1.1) X ^DD(863,.01,1,2,1.4)"
^DD(863,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863,.01,1,2,2)="Q"
^DD(863,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863,.01,1,2,"%D",1,0)="Unique object ID"
^DD(863,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863,.01,1,2,"DT")="2951003"
^DD(863,.01,1,2,"FIELD")="U"
^DD(863,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(863,.01,"DT")="2951003"
^DD(863,.02,0)="FILE NUMBER^NJ17,7^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""8N.N) X"
^DD(863,.02,1,0)="^.1^^-1"
^DD(863,.02,1,2,0)="863^C"
^DD(863,.02,1,2,1)="S ^OCXS(863,""C"",$E(X,1,30),DA)="""""
^DD(863,.02,1,2,2)="K ^OCXS(863,""C"",$E(X,1,30),DA)"
^DD(863,.02,1,2,"DT")="2941222"
^DD(863,.02,3)="Type a Number between 1 and 999999999, 7 Decimal Digits"
^DD(863,.02,"DT")="2970627"
^DD(863,.03,0)="PARENT CLASS^P863'^OCXS(863,^0;3^Q"
^DD(863,.03,1,0)="^.1"
^DD(863,.03,1,1,0)="863^ACLS"
^DD(863,.03,1,1,1)="S ^OCXS(863,""ACLS"",$E(X,1,30),DA)="""""
^DD(863,.03,1,1,2)="K ^OCXS(863,""ACLS"",$E(X,1,30),DA)"
^DD(863,.03,1,1,"%D",0)="^^1^1^2950406^"
^DD(863,.03,1,1,"%D",1,0)="Parent of subclass"
^DD(863,.03,1,1,"DT")="2950406"
^DD(863,.03,"DT")="2950406"
^DD(863,.04,0)="MNEMONIC^F^^0;4^K:$L(X)>3!($L(X)<2) X"
^DD(863,.04,1,0)="^.1"
^DD(863,.04,1,1,0)="863^MN"
^DD(863,.04,1,1,1)="S ^OCXS(863,""MN"",$E(X,1,30),DA)="""""
^DD(863,.04,1,1,2)="K ^OCXS(863,""MN"",$E(X,1,30),DA)"
^DD(863,.04,1,1,"%D",0)="^^1^1^2951002^"
^DD(863,.04,1,1,"%D",1,0)="Used to rapidly lookup a class by its mnemonic"
^DD(863,.04,1,1,"DT")="2951002"
^DD(863,.04,3)="Answer must be 2-3 characters in length."
^DD(863,.04,21,0)="^^1^1^2951002^"
^DD(863,.04,21,1,0)="The mnemonic is a unique identifier for the class"
^DD(863,.04,"DT")="2951002"
^DD(863,1,0)="PARAMETER^863.01P^^PAR;0"
^DD(863,2,0)="DESCRIPTION^863.02^^2;0"
^DD(863,3,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863,3,1,0)="^.1"
^DD(863,3,1,1,0)="863^UID"
^DD(863,3,1,1,1)="S ^OCXS(863,""UID"",$E(X,1,30),DA)="""""
^DD(863,3,1,1,2)="K ^OCXS(863,""UID"",$E(X,1,30),DA)"
^DD(863,3,1,1,"%D",0)="^^1^1^2951003^"
^DD(863,3,1,1,"%D",1,0)="Enables rapid lookup of an object by its UID"
^DD(863,3,1,1,"DT")="2951003"
^DD(863,3,3)="Answer must be 3-30 characters in length."
^DD(863,3,5,1,0)="863^.01^2"
^DD(863,3,9)="^"
^DD(863,3,21,0)="^^1^1^2951003^"
^DD(863,3,21,1,0)="Unique object ID triggered by the .01 field."
^DD(863,3,"DT")="2951003"
^DD(863,"B","DESCRIPTION",2)=""
^DD(863,"B","FILE NUMBER",.02)=""
^DD(863,"B","MNEMONIC",.04)=""
^DD(863,"B","NAME",.01)=""
^DD(863,"B","PARAMETER",1)=""
^DD(863,"B","PARENT CLASS",.03)=""
^DD(863,"B","UNIQUE OBJECT IDENTIFIER",3)=""
^DD(863,"GL",0,1,.01)=""
^DD(863,"GL",0,2,.02)=""
^DD(863,"GL",0,3,.03)=""
^DD(863,"GL",0,4,.04)=""
^DD(863,"GL",2,0,2)=""
^DD(863,"GL","PAR",0,1)=""
^DD(863,"GL","UID","E1,245",3)=""
^DD(863,"IX",.01)=""
^DD(863,"IX",.02)=""
^DD(863,"IX",.03)=""
^DD(863,"IX",.04)=""
^DD(863,"IX",3)=""
^DD(863,"RQ",.01)=""
^DD(863,"SB",863.01,1)=""
^DD(863,"SB",863.02,2)=""
^DD(863.01,0)="PARAMETER SUB-FIELD^^1^2"
^DD(863.01,0,"DT")="2941228"
^DD(863.01,0,"IX","B",863.01,.01)=""
^DD(863.01,0,"NM","PARAMETER")=""
^DD(863.01,0,"UP")="863"
^DD(863.01,.01,0)="PARAMETER^MP863.8'^OCXS(863.8,^0;1^Q"
^DD(863.01,.01,1,0)="^.1"
^DD(863.01,.01,1,1,0)="863.01^B"
^DD(863.01,.01,1,1,1)="S ^OCXS(863,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.01,.01,1,1,2)="K ^OCXS(863,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.01,.01,1,2,0)="863^APAR"
^DD(863.01,.01,1,2,1)="S ^OCXS(863,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.01,.01,1,2,2)="K ^OCXS(863,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.01,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.01,.01,1,2,"%D",1,0)="Index to rapidly find the parameters in this class"
^DD(863.01,.01,1,2,"DT")="2950830"
^DD(863.01,.01,"DT")="2950830"
^DD(863.01,1,0)="VALUE^F^^VAL;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(863.01,1,3)="Answer must be 1-240 characters in length."
^DD(863.01,1,"DT")="2941228"
^DD(863.01,"B","PARAMETER",.01)=""
^DD(863.01,"B","VALUE",1)=""
^DD(863.01,"GL",0,1,.01)=""
^DD(863.01,"GL","VAL","E1,245",1)=""
^DD(863.01,"IX",.01)=""
^DD(863.02,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(863.02,0,"DT")="2941222"
^DD(863.02,0,"NM","DESCRIPTION")=""
^DD(863.02,0,"UP")="863"
^DD(863.02,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(863.02,.01,"DT")="2941222"
^DD(863.02,"B","DESCRIPTION",.01)=""
^DD(863.02,"GL",0,1,.01)=""
^DD(863.1,0)="FIELD^^4^6"
^DD(863.1,0,"DT")="2951003"
^DD(863.1,0,"IX","APAR",863.11,.01)=""
^DD(863.1,0,"IX","B",863.1,.01)=""
^DD(863.1,0,"IX","SYN",863.12,.01)=""
^DD(863.1,0,"IX","UID",863.1,4)=""
^DD(863.1,0,"NM","OCX MDD APPLICATION")=""
^DD(863.1,0,"VR")="3.0"
^DD(863.1,0,"VRPK")="OR"
^DD(863.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(863.1,.01,1,0)="^.1"
^DD(863.1,.01,1,1,0)="863.1^B"
^DD(863.1,.01,1,1,1)="S ^OCXS(863.1,""B"",$E(X,1,30),DA)="""""
^DD(863.1,.01,1,1,2)="K ^OCXS(863.1,""B"",$E(X,1,30),DA)"
^DD(863.1,.01,1,2,0)="^^TRIGGER^863.1^4"
^DD(863.1,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.1,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.1,.01,1,2,1.1) X ^DD(863.1,.01,1,2,1.4)"
^DD(863.1,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.1,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.1,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.1,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.1,.01,1,2,2)="Q"
^DD(863.1,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.1,.01,1,2,"%D",1,0)="Triggers a unique ID for this object"
^DD(863.1,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.1,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.1,.01,1,2,"DT")="2951003"
^DD(863.1,.01,1,2,"FIELD")="U"
^DD(863.1,.01,3)="Answer must be 3-30 characters in length."
^DD(863.1,.01,"DT")="2951003"
^DD(863.1,.02,0)="MENU TEXT^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(863.1,.02,3)="Answer must be 1-100 characters in length."
^DD(863.1,.02,"DT")="2940825"
^DD(863.1,1,0)="PARAMETER^863.11P^^PAR;0"
^DD(863.1,2,0)="SYNONYM^863.12^^AKA;0"
^DD(863.1,3,0)="PRIMARY SUBJECT^863.13P^^SUBJ;0"
^DD(863.1,4,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.1,4,1,0)="^.1"
^DD(863.1,4,1,1,0)="863.1^UID"
^DD(863.1,4,1,1,1)="S ^OCXS(863.1,""UID"",$E(X,1,30),DA)="""""
^DD(863.1,4,1,1,2)="K ^OCXS(863.1,""UID"",$E(X,1,30),DA)"
^DD(863.1,4,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.1,4,1,1,"%D",1,0)="Enables rapid lookup of an object by its unique ID"
^DD(863.1,4,1,1,"DT")="2951003"
^DD(863.1,4,3)="Answer must be 3-30 characters in length."
^DD(863.1,4,5,1,0)="863.1^.01^2"
^DD(863.1,4,9)="^"
^DD(863.1,4,21,0)="^^1^1^2951003^"
^DD(863.1,4,21,1,0)="Contains the unique object ID for this entry"
^DD(863.1,4,"DT")="2951003"
^DD(863.1,"B","MENU TEXT",.02)=""
^DD(863.1,"B","NAME",.01)=""
^DD(863.1,"B","PARAMETER",1)=""
^DD(863.1,"B","PRIMARY SUBJECT",3)=""
^DD(863.1,"B","SYNONYM",2)=""
^DD(863.1,"B","UNIQUE OBJECT IDENTIFIER",4)=""
^DD(863.1,"GL",0,1,.01)=""
^DD(863.1,"GL",0,2,.02)=""
^DD(863.1,"GL","AKA",0,2)=""
^DD(863.1,"GL","PAR",0,1)=""
^DD(863.1,"GL","SUBJ",0,3)=""
^DD(863.1,"GL","UID","E1,245",4)=""
^DD(863.1,"IX",.01)=""
^DD(863.1,"IX",4)=""
^DD(863.1,"RQ",.01)=""
^DD(863.1,"SB",863.11,1)=""
^DD(863.1,"SB",863.12,2)=""
^DD(863.1,"SB",863.13,3)=""
^DD(863.11,0)="PARAMETER SUB-FIELD^^1^2"
^DD(863.11,0,"DT")="2941206"
^DD(863.11,0,"IX","B",863.11,.01)=""
^DD(863.11,0,"NM","PARAMETER")=""
^DD(863.11,0,"UP")="863.1"
^DD(863.11,.01,0)="PARAMETER NAME^MP863.8^OCXS(863.8,^0;1^Q"
^DD(863.11,.01,1,0)="^.1"
^DD(863.11,.01,1,1,0)="863.11^B"
^DD(863.11,.01,1,1,1)="S ^OCXS(863.1,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.11,.01,1,1,2)="K ^OCXS(863.1,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.11,.01,1,2,0)="863.1^APAR"
^DD(863.11,.01,1,2,1)="S ^OCXS(863.1,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.11,.01,1,2,2)="K ^OCXS(863.1,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.11,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.11,.01,1,2,"%D",1,0)="Index to rapidly find parameters associated with this class"
^DD(863.11,.01,1,2,"DT")="2950830"
^DD(863.11,.01,"DT")="2950830"
^DD(863.11,1,0)="VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(863.11,1,3)="Answer must be 1-200 characters in length."
^DD(863.11,1,"DT")="2941206"
^DD(863.11,"B","PARAMETER NAME",.01)=""
^DD(863.11,"B","VALUE",1)=""
^DD(863.11,"GL",0,1,.01)=""
^DD(863.11,"GL","VAL","E1,200",1)=""
^DD(863.11,"IX",.01)=""
^DD(863.12,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(863.12,0,"DT")="2950325"
^DD(863.12,0,"IX","B",863.12,.01)=""
^DD(863.12,0,"NM","SYNONYM")=""
^DD(863.12,0,"UP")="863.1"
^DD(863.12,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(863.12,.01,1,0)="^.1"
^DD(863.12,.01,1,1,0)="863.12^B"
^DD(863.12,.01,1,1,1)="S ^OCXS(863.1,DA(1),""AKA"",""B"",$E(X,1,30),DA)="""""
^DD(863.12,.01,1,1,2)="K ^OCXS(863.1,DA(1),""AKA"",""B"",$E(X,1,30),DA)"
^DD(863.12,.01,1,2,0)="863.1^SYN"
^DD(863.12,.01,1,2,1)="S ^OCXS(863.1,""SYN"",$E(X,1,30),DA(1),DA)="""""
^DD(863.12,.01,1,2,2)="K ^OCXS(863.1,""SYN"",$E(X,1,30),DA(1),DA)"
^DD(863.12,.01,1,2,"%D",0)="^^1^1^2950830^^"
^DD(863.12,.01,1,2,"%D",1,0)="Look up the application by its synonym"
^DD(863.12,.01,1,2,"DT")="2950830"
^DD(863.12,.01,3)="Answer must be 1-30 characters in length."
^DD(863.12,.01,21,0)="^^1^1^2950325^"
^DD(863.12,.01,21,1,0)="Synonym for primary name"
^DD(863.12,.01,"DT")="2950830"
^DD(863.12,"B","SYNONYM",.01)=""
^DD(863.12,"GL",0,1,.01)=""
^DD(863.12,"IX",.01)=""
^DD(863.13,0)="PRIMARY SUBJECT SUB-FIELD^^.01^1"
^DD(863.13,0,"DT")="2950328"
^DD(863.13,0,"IX","B",863.13,.01)=""
^DD(863.13,0,"NM","PRIMARY SUBJECT")=""
^DD(863.13,0,"UP")="863.1"
^DD(863.13,.01,0)="PRIMARY SUBJECT^MP863.2'^OCXS(863.2,^0;1^Q"
^DD(863.13,.01,1,0)="^.1"
^DD(863.13,.01,1,1,0)="863.13^B"
^DD(863.13,.01,1,1,1)="S ^OCXS(863.1,DA(1),""SUBJ"",""B"",$E(X,1,30),DA)="""""
^DD(863.13,.01,1,1,2)="K ^OCXS(863.1,DA(1),""SUBJ"",""B"",$E(X,1,30),DA)"
^DD(863.13,.01,"DT")="2950328"
^DD(863.13,"B","PRIMARY SUBJECT",.01)=""
^DD(863.13,"GL",0,1,.01)=""
^DD(863.13,"IX",.01)=""
^DD(863.2,0)="FIELD^^3^4"
^DD(863.2,0,"DT")="2951003"
^DD(863.2,0,"IX","APAR",863.21,.01)=""
^DD(863.2,0,"IX","B",863.2,.01)=""
^DD(863.2,0,"IX","SYN",863.22,.01)=""
^DD(863.2,0,"IX","UID",863.2,3)=""
^DD(863.2,0,"NM","OCX MDD SUBJECT")=""
^DD(863.2,0,"PT",863.13,.01)=""
^DD(863.2,0,"PT",863.3,.02)=""
^DD(863.2,0,"PT",863.3,.03)=""
^DD(863.2,0,"VR")="3.0"
^DD(863.2,0,"VRPK")="OR"
^DD(863.2,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(863.2,.01,1,0)="^.1"
^DD(863.2,.01,1,1,0)="863.2^B"
^DD(863.2,.01,1,1,1)="S ^OCXS(863.2,""B"",$E(X,1,30),DA)="""""
^DD(863.2,.01,1,1,2)="K ^OCXS(863.2,""B"",$E(X,1,30),DA)"
^DD(863.2,.01,1,2,0)="^^TRIGGER^863.2^3"
^DD(863.2,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.2,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.2,.01,1,2,1.1) X ^DD(863.2,.01,1,2,1.4)"
^DD(863.2,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.2,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.2,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.2,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.2,.01,1,2,2)="Q"
^DD(863.2,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.2,.01,1,2,"%D",1,0)="Triggers a unique ID for this object."
^DD(863.2,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.2,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.2,.01,1,2,"DT")="2951003"
^DD(863.2,.01,1,2,"FIELD")="U"
^DD(863.2,.01,3)="Answer must be 3-100 characters in length."
^DD(863.2,.01,"DT")="2951003"
^DD(863.2,1,0)="PARAMETER^863.21P^^PAR;0"
^DD(863.2,1,"DT")="2950512"
^DD(863.2,2,0)="SYNONYM^863.22^^AKA;0"
^DD(863.2,3,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.2,3,1,0)="^.1"
^DD(863.2,3,1,1,0)="863.2^UID"
^DD(863.2,3,1,1,1)="S ^OCXS(863.2,""UID"",$E(X,1,30),DA)="""""
^DD(863.2,3,1,1,2)="K ^OCXS(863.2,""UID"",$E(X,1,30),DA)"
^DD(863.2,3,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.2,3,1,1,"%D",1,0)="Enables rapid lookup of an object by its UID."
^DD(863.2,3,1,1,"DT")="2951003"
^DD(863.2,3,3)="Answer must be 3-30 characters in length."
^DD(863.2,3,5,1,0)="863.2^.01^2"
^DD(863.2,3,9)="^"
^DD(863.2,3,21,0)="^^1^1^2951003^"
^DD(863.2,3,21,1,0)="The unique identifier for this object."
^DD(863.2,3,"DT")="2951003"
^DD(863.2,"B","NAME",.01)=""
^DD(863.2,"B","PARAMETER",1)=""
^DD(863.2,"B","SYNONYM",2)=""
^DD(863.2,"B","UNIQUE OBJECT IDENTIFIER",3)=""
^DD(863.2,"GL",0,1,.01)=""
^DD(863.2,"GL","AKA",0,2)=""
^DD(863.2,"GL","PAR",0,1)=""
^DD(863.2,"GL","UID","E1,245",3)=""
^DD(863.2,"IX",.01)=""
^DD(863.2,"IX",3)=""
^DD(863.2,"RQ",.01)=""
^DD(863.2,"SB",863.21,1)=""
^DD(863.2,"SB",863.22,2)=""
^DD(863.21,0)="PARAMETER SUB-FIELD^^1^2"
^DD(863.21,0,"DT")="2941206"
^DD(863.21,0,"IX","B",863.21,.01)=""
^DD(863.21,0,"NM","PARAMETER")=""
^DD(863.21,0,"UP")="863.2"
^DD(863.21,.01,0)="PARAMETER NAME^MP863.8^OCXS(863.8,^0;1^Q"
^DD(863.21,.01,1,0)="^.1"
^DD(863.21,.01,1,1,0)="863.21^B"
^DD(863.21,.01,1,1,1)="S ^OCXS(863.2,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.21,.01,1,1,2)="K ^OCXS(863.2,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.21,.01,1,2,0)="863.2^APAR"
^DD(863.21,.01,1,2,1)="S ^OCXS(863.2,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.21,.01,1,2,2)="K ^OCXS(863.2,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.21,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.21,.01,1,2,"%D",1,0)="Index enables you to rapidly find parameters associated with this class"
^DD(863.21,.01,1,2,"DT")="2950830"
^DD(863.21,.01,"DT")="2950830"
^DD(863.21,1,0)="VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(863.21,1,3)="Answer must be 1-200 characters in length."
^DD(863.21,1,"DT")="2941206"
^DD(863.21,"B","PARAMETER NAME",.01)=""
^DD(863.21,"B","VALUE",1)=""
^DD(863.21,"GL",0,1,.01)=""
^DD(863.21,"GL","VAL","E1,200",1)=""
^DD(863.21,"IX",.01)=""
^DD(863.22,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(863.22,0,"DT")="2950325"
^DD(863.22,0,"IX","B",863.22,.01)=""
^DD(863.22,0,"NM","SYNONYM")=""
^DD(863.22,0,"UP")="863.2"
^DD(863.22,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(863.22,.01,1,0)="^.1"
^DD(863.22,.01,1,1,0)="863.22^B"
^DD(863.22,.01,1,1,1)="S ^OCXS(863.2,DA(1),""AKA"",""B"",$E(X,1,30),DA)="""""
^DD(863.22,.01,1,1,2)="K ^OCXS(863.2,DA(1),""AKA"",""B"",$E(X,1,30),DA)"
^DD(863.22,.01,1,2,0)="863.2^SYN"
^DD(863.22,.01,1,2,1)="S ^OCXS(863.2,""SYN"",$E(X,1,30),DA(1),DA)="""""
^DD(863.22,.01,1,2,2)="K ^OCXS(863.2,""SYN"",$E(X,1,30),DA(1),DA)"
^DD(863.22,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.22,.01,1,2,"%D",1,0)="This index supports a synonym lookup of the subject"
^DD(863.22,.01,1,2,"DT")="2950830"
^DD(863.22,.01,3)="Answer must be 1-30 characters in length."
^DD(863.22,.01,21,0)="^^1^1^2950325^"
^DD(863.22,.01,21,1,0)="Alternative name for the object"
^DD(863.22,.01,"DT")="2950830"
^DD(863.22,"B","SYNONYM",.01)=""
^DD(863.22,"GL",0,1,.01)=""
^DD(863.22,"IX",.01)=""
^DD(863.3,0)="FIELD^^4^14"
^DD(863.3,0,"DT")="2970627"
^DD(863.3,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^OCXS(863.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(863.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(863.3,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(863.3,0,"ID",.06)="W """""
^DD(863.3,0,"IX","AC",863.3,.03)=""
^DD(863.3,0,"IX","AD",863.3,.05)=""
^DD(863.3,0,"IX","AE",863.3,.04)=""
^DD(863.3,0,"IX","ALO",863.3,.06)=""
^DD(863.3,0,"IX","APAR",863.32,.01)=""
^DD(863.3,0,"IX","B",863.3,.01)=""
^DD(863.3,0,"IX","F",863.3,.1)=""
^DD(863.3,0,"IX","SYN",863.31,.01)=""
^DD(863.3,0,"IX","UID",863.3,4)=""
^DD(863.3,0,"NM","OCX MDD LINK")=""
^DD(863.3,0,"VR")="3.0"
^DD(863.3,0,"VRPK")="OR"
^DD(863.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(863.3,.01,1,0)="^.1"
^DD(863.3,.01,1,1,0)="863.3^B"
^DD(863.3,.01,1,1,1)="S ^OCXS(863.3,""B"",$E(X,1,30),DA)="""""
^DD(863.3,.01,1,1,2)="K ^OCXS(863.3,""B"",$E(X,1,30),DA)"
^DD(863.3,.01,1,2,0)="^^TRIGGER^863.3^4"
^DD(863.3,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.3,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.3,.01,1,2,1.1) X ^DD(863.3,.01,1,2,1.4)"
^DD(863.3,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.3,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.3,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.3,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.3,.01,1,2,2)="Q"
^DD(863.3,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.3,.01,1,2,"%D",1,0)="Triggers a unique ID."
^DD(863.3,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.3,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.3,.01,1,2,"DT")="2951003"
^DD(863.3,.01,1,2,"FIELD")="U"
^DD(863.3,.01,3)="Answer must be 3-30 characters in length."
^DD(863.3,.01,4)=""
^DD(863.3,.01,"DT")="2951003"
^DD(863.3,.02,0)="PARENT SUBJECT^P863.2'^OCXS(863.2,^0;2^Q"
^DD(863.3,.02,1,0)="^.1^^0"
^DD(863.3,.02,"DT")="2950318"
^DD(863.3,.03,0)="DESCENDANT SUBJECT^P863.2'^OCXS(863.2,^0;3^Q"
^DD(863.3,.03,1,0)="^.1"
^DD(863.3,.03,1,1,0)="863.3^AC"
^DD(863.3,.03,1,1,1)="S ^OCXS(863.3,""AC"",$E(X,1,30),DA)="""""
^DD(863.3,.03,1,1,2)="K ^OCXS(863.3,""AC"",$E(X,1,30),DA)"
^DD(863.3,.03,1,1,"%D",0)="^^1^1^2950830^^"
^DD(863.3,.03,1,1,"%D",1,0)="Rapidly identify links associated with a descendant subject"
^DD(863.3,.03,1,1,"DT")="2950830"
^DD(863.3,.03,"DT")="2950830"
^DD(863.3,.04,0)="PARENT MENU GROUP^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X"
^DD(863.3,.04,1,0)="^.1"
^DD(863.3,.04,1,1,0)="863.3^AE"
^DD(863.3,.04,1,1,1)="S ^OCXS(863.3,""AE"",$E(X,1,30),DA)="""""
^DD(863.3,.04,1,1,2)="K ^OCXS(863.3,""AE"",$E(X,1,30),DA)"
^DD(863.3,.04,1,1,"%D",0)="^^1^1^2950830^"
^DD(863.3,.04,1,1,"%D",1,0)="Rapidly identify links associated with a parent menu group"
^DD(863.3,.04,1,1,"DT")="2950830"
^DD(863.3,.04,3)="Answer must be 1-100 characters in length."
^DD(863.3,.04,"DT")="2950830"
^DD(863.3,.05,0)="ATTRIBUTE^P863.4^OCXS(863.4,^0;5^Q"
^DD(863.3,.05,1,0)="^.1"
^DD(863.3,.05,1,1,0)="863.3^AD"
^DD(863.3,.05,1,1,1)="S ^OCXS(863.3,""AD"",$E(X,1,30),DA)="""""
^DD(863.3,.05,1,1,2)="K ^OCXS(863.3,""AD"",$E(X,1,30),DA)"
^DD(863.3,.05,1,1,"%D",0)="^^1^1^2950830^"
^DD(863.3,.05,1,1,"%D",1,0)="Rapidly find links associated with an attribute"
^DD(863.3,.05,1,1,"DT")="2950830"
^DD(863.3,.05,"DT")="2960604"
^DD(863.3,.06,0)="LIST ORDER^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(863.3,.06,1,0)="^.1"
^DD(863.3,.06,1,1,0)="863.3^ALO"
^DD(863.3,.06,1,1,1)="N MDX S MDX=$P(^OCXS(863.3,DA,0),U,2) S:MDX ^OCXS(863.3,""ALO"",MDX,$E(X,1,30),DA)="""""
^DD(863.3,.06,1,1,2)="N MDX S MDX=$P(^OCXS(863.3,DA,0),U,2) K:MDX ^OCXS(863.3,""ALO"",MDX,$E(X,1,30),DA)"
^DD(863.3,.06,1,1,"DT")="2940927"
^DD(863.3,.06,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(863.3,.06,"DT")="2970627"
^DD(863.3,.1,0)="LONG MENU TEXT^F^^TEXT;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X"
^DD(863.3,.1,1,0)="^.1"
^DD(863.3,.1,1,1,0)="863.3^F"
^DD(863.3,.1,1,1,1)="S ^OCXS(863.3,""F"",$E(X,1,30),DA)="""""
^DD(863.3,.1,1,1,2)="K ^OCXS(863.3,""F"",$E(X,1,30),DA)"
^DD(863.3,.1,1,1,"DT")="2940928"
^DD(863.3,.1,3)="Answer must be 1-100 characters in length."
^DD(863.3,.1,"DT")="2940928"
^DD(863.3,.11,0)="SHORT MENU TEXT^F^^TEXT;2^K:$L(X)>100!($L(X)<1) X"
^DD(863.3,.11,3)="Answer must be 1-100 characters in length."
^DD(863.3,.11,"DT")="2940920"
^DD(863.3,1,0)="SYNONYMS^863.31^^1;0"
^DD(863.3,2,0)="PARAMETER^863.32P^^PAR;0"
^DD(863.3,2,"DT")="2950512"
^DD(863.3,3.1,0)="LONG MENU TEXT^F^^MENU;1^K:$L(X)>99!($L(X)<1) X"
^DD(863.3,3.1,3)="Answer must be 1-99 characters in length."
^DD(863.3,3.1,"DT")="2950318"
^DD(863.3,3.2,0)="BRIEF MENU TEXT^F^^MENU;2^K:$L(X)>99!($L(X)<1) X"
^DD(863.3,3.2,3)="Answer must be 1-99 characters in length."
^DD(863.3,3.2,"DT")="2950318"
^DD(863.3,3.3,0)="MENU ORDER^NJ11,4^^MENU;3^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""5N.N) X"
^DD(863.3,3.3,3)="Type a Number between 1 and 999999, 4 Decimal Digits"
^DD(863.3,3.3,"DT")="2950318"
^DD(863.3,4,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.3,4,1,0)="^.1"
^DD(863.3,4,1,1,0)="863.3^UID"
^DD(863.3,4,1,1,1)="S ^OCXS(863.3,""UID"",$E(X,1,30),DA)="""""
^DD(863.3,4,1,1,2)="K ^OCXS(863.3,""UID"",$E(X,1,30),DA)"
^DD(863.3,4,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.3,4,1,1,"%D",1,0)="Enables rapid lookup of an object by its UID."
^DD(863.3,4,1,1,"DT")="2951003"
^DD(863.3,4,3)="Answer must be 3-30 characters in length."
^DD(863.3,4,5,1,0)="863.3^.01^2"
^DD(863.3,4,9)="^"
^DD(863.3,4,21,0)="^^1^1^2951003^"
^DD(863.3,4,21,1,0)="A unique ID for this object."
^DD(863.3,4,"DT")="2951003"
^DD(863.3,"B","ATTRIBUTE",.05)=""
^DD(863.3,"B","BRIEF MENU TEXT",3.2)=""
^DD(863.3,"B","DESCENDANT SUBJECT",.03)=""
^DD(863.3,"B","LIST ORDER",.06)=""
^DD(863.3,"B","LONG MENU TEXT",.1)=""
^DD(863.3,"B","LONG MENU TEXT",3.1)=""
^DD(863.3,"B","MENU ORDER",3.3)=""
^DD(863.3,"B","NAME",.01)=""
^DD(863.3,"B","PARAMETER",2)=""
^DD(863.3,"B","PARENT MENU GROUP",.04)=""
^DD(863.3,"B","PARENT SUBJECT",.02)=""
^DD(863.3,"B","SHORT MENU TEXT",.11)=""
^DD(863.3,"B","SYNONYMS",1)=""
^DD(863.3,"B","UNIQUE OBJECT IDENTIFIER",4)=""
^DD(863.3,"GL",0,1,.01)=""
^DD(863.3,"GL",0,2,.02)=""
^DD(863.3,"GL",0,3,.03)=""
^DD(863.3,"GL",0,4,.04)=""
^DD(863.3,"GL",0,5,.05)=""
^DD(863.3,"GL",0,6,.06)=""
^DD(863.3,"GL",1,0,1)=""
^DD(863.3,"GL","MENU",1,3.1)=""
^DD(863.3,"GL","MENU",2,3.2)=""
^DD(863.3,"GL","MENU",3,3.3)=""
^DD(863.3,"GL","PAR",0,2)=""
^DD(863.3,"GL","TEXT",1,.1)=""
^DD(863.3,"GL","TEXT",2,.11)=""
^DD(863.3,"GL","UID","E1,245",4)=""
^DD(863.3,"IX",.01)=""
^DD(863.3,"IX",.03)=""
^DD(863.3,"IX",.04)=""
^DD(863.3,"IX",.05)=""
^DD(863.3,"IX",.06)=""
^DD(863.3,"IX",.1)=""
^DD(863.3,"IX",4)=""
^DD(863.3,"RQ",.01)=""
^DD(863.3,"SB",863.31,1)=""
^DD(863.3,"SB",863.32,2)=""
^DD(863.31,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(863.31,0,"IX","B",863.31,.01)=""
^DD(863.31,0,"NM","SYNONYMS")=""
^DD(863.31,0,"UP")="863.3"
^DD(863.31,.01,0)="SYNONYMS^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X"
^DD(863.31,.01,1,0)="^.1"
^DD(863.31,.01,1,1,0)="863.31^B"
^DD(863.31,.01,1,1,1)="S ^OCXS(863.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(863.31,.01,1,1,2)="K ^OCXS(863.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(863.31,.01,1,2,0)="863.3^SYN"
^DD(863.31,.01,1,2,1)="S ^OCXS(863.3,""SYN"",$E(X,1,30),DA(1),DA)="""""
^DD(863.31,.01,1,2,2)="K ^OCXS(863.3,""SYN"",$E(X,1,30),DA(1),DA)"
^DD(863.31,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.31,.01,1,2,"%D",1,0)="This index supports synonym lookup"
^DD(863.31,.01,1,2,"DT")="2950830"
^DD(863.31,.01,3)="Answer must be 1-100 characters in length."
^DD(863.31,.01,"DT")="2950830"
^DD(863.31,"B","SYNONYMS",.01)=""
^DD(863.31,"GL",0,1,.01)=""
^DD(863.31,"IX",.01)=""
^DD(863.32,0)="PARAMETER SUB-FIELD^^1^2"
^DD(863.32,0,"DT")="2941206"
^DD(863.32,0,"IX","B",863.32,.01)=""
^DD(863.32,0,"NM","PARAMETER")=""
^DD(863.32,0,"UP")="863.3"
^DD(863.32,.01,0)="PARAMETER NAME^MP863.8^OCXS(863.8,^0;1^Q"
^DD(863.32,.01,1,0)="^.1"
^DD(863.32,.01,1,1,0)="863.32^B"
^DD(863.32,.01,1,1,1)="S ^OCXS(863.3,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.32,.01,1,1,2)="K ^OCXS(863.3,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.32,.01,1,2,0)="863.3^APAR"
^DD(863.32,.01,1,2,1)="S ^OCXS(863.3,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.32,.01,1,2,2)="K ^OCXS(863.3,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.32,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.32,.01,1,2,"%D",1,0)="Index enables you to rapidly locate parameters associated with this class"
^DD(863.32,.01,1,2,"DT")="2950830"
^DD(863.32,.01,"DT")="2950830"
^DD(863.32,1,0)="VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(863.32,1,3)="Answer must be 1-200 characters in length."
^DD(863.32,1,"DT")="2941206"
^DD(863.32,"B","PARAMETER NAME",.01)=""
^DD(863.32,"B","VALUE",1)=""
^DD(863.32,"GL",0,1,.01)=""
^DD(863.32,"GL","VAL","E1,200",1)=""
^DD(863.32,"IX",.01)=""
^DD(863.4,0)="FIELD^^3^5"
^DD(863.4,0,"DT")="2951019"
^DD(863.4,0,"IX","AP",863.4,2)=""
^DD(863.4,0,"IX","APAR",863.41,.01)=""
^DD(863.4,0,"IX","B",863.4,.01)=""
^DD(863.4,0,"IX","C",863.4,.02)=""
^DD(863.4,0,"IX","UID",863.4,3)=""
^DD(863.4,0,"NM","OCX MDD ATTRIBUTE")=""
^DD(863.4,0,"PT",863.3,.05)=""
^DD(863.4,0,"PT",863.4,2)=""
^DD(863.4,0,"VR")="3.0"
^DD(863.4,0,"VRPK")="OR"
^DD(863.4,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(863.4,.01,1,0)="^.1"
^DD(863.4,.01,1,1,0)="863.4^B"
^DD(863.4,.01,1,1,1)="S ^OCXS(863.4,""B"",$E(X,1,30),DA)="""""
^DD(863.4,.01,1,1,2)="K ^OCXS(863.4,""B"",$E(X,1,30),DA)"
^DD(863.4,.01,1,2,0)="^^TRIGGER^863.4^3"
^DD(863.4,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.4,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.4,.01,1,2,1.1) X ^DD(863.4,.01,1,2,1.4)"
^DD(863.4,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.4,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.4,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.4,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.4,.01,1,2,2)="Q"
^DD(863.4,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.4,.01,1,2,"%D",1,0)="Trigger a unique ID."
^DD(863.4,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.4,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.4,.01,1,2,"DT")="2951003"
^DD(863.4,.01,1,2,"FIELD")="U"
^DD(863.4,.01,3)="Answer must be 3-100 characters in length."
^DD(863.4,.01,"DT")="2951003"
^DD(863.4,.02,0)="BRIEF NAME^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(863.4,.02,1,0)="^.1"
^DD(863.4,.02,1,1,0)="863.4^C"
^DD(863.4,.02,1,1,1)="S ^OCXS(863.4,""C"",$E(X,1,30),DA)="""""
^DD(863.4,.02,1,1,2)="K ^OCXS(863.4,""C"",$E(X,1,30),DA)"
^DD(863.4,.02,1,1,"%D",0)="^^1^1^2950408^"
^DD(863.4,.02,1,1,"%D",1,0)="Enables rapid lookup using the brief name"
^DD(863.4,.02,1,1,"DT")="2950408"
^DD(863.4,.02,3)="Answer must be 1-10 characters in length."
^DD(863.4,.02,21,0)="^^1^1^2950408^"
^DD(863.4,.02,21,1,0)="Used as part of compound key in lookup on reference files (e.g., the DIALOGUE file)"
^DD(863.4,.02,"DT")="2951019"
^DD(863.4,1,0)="PARAMETER^863.41PI^^PAR;0"
^DD(863.4,1,"DT")="2950512"
^DD(863.4,2,0)="PARENT ATTRIBUTE^P863.4'^OCXS(863.4,^MOM;1^Q"
^DD(863.4,2,1,0)="^.1"
^DD(863.4,2,1,1,0)="863.4^AP"
^DD(863.4,2,1,1,1)="S ^OCXS(863.4,""AP"",$E(X,1,30),DA)="""""
^DD(863.4,2,1,1,2)="K ^OCXS(863.4,""AP"",$E(X,1,30),DA)"
^DD(863.4,2,1,1,"%D",0)="^^1^1^2950418^"
^DD(863.4,2,1,1,"%D",1,0)="Quickly find the offspring of an attribute"
^DD(863.4,2,1,1,"DT")="2950418"
^DD(863.4,2,21,0)="^^1^1^2950418^"
^DD(863.4,2,21,1,0)="Supports object inheritance"
^DD(863.4,2,"DT")="2950418"
^DD(863.4,3,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.4,3,1,0)="^.1"
^DD(863.4,3,1,1,0)="863.4^UID"
^DD(863.4,3,1,1,1)="S ^OCXS(863.4,""UID"",$E(X,1,30),DA)="""""
^DD(863.4,3,1,1,2)="K ^OCXS(863.4,""UID"",$E(X,1,30),DA)"
^DD(863.4,3,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.4,3,1,1,"%D",1,0)="Enables rapid lookup of an object by its unique ID."
^DD(863.4,3,1,1,"DT")="2951003"
^DD(863.4,3,3)="Answer must be 3-30 characters in length."
^DD(863.4,3,5,1,0)="863.4^.01^2"
^DD(863.4,3,9)="^"
^DD(863.4,3,21,0)="^^1^1^2951003^"
^DD(863.4,3,21,1,0)="A unique ID for this object."
^DD(863.4,3,"DT")="2951003"
^DD(863.4,"B","BRIEF NAME",.02)=""
^DD(863.4,"B","NAME",.01)=""
^DD(863.4,"B","PARAMETER",1)=""
^DD(863.4,"B","PARENT ATTRIBUTE",2)=""
^DD(863.4,"B","UNIQUE OBJECT IDENTIFIER",3)=""
^DD(863.4,"GL",0,1,.01)=""
^DD(863.4,"GL",0,2,.02)=""
^DD(863.4,"GL","MOM",1,2)=""
^DD(863.4,"GL","PAR",0,1)=""
^DD(863.4,"GL","UID","E1,245",3)=""
^DD(863.4,"IX",.01)=""
^DD(863.4,"IX",.02)=""
^DD(863.4,"IX",2)=""
^DD(863.4,"IX",3)=""
^DD(863.4,"RQ",.01)=""
^DD(863.4,"SB",863.41,1)=""
^DD(863.41,0)="PARAMETER SUB-FIELD^^1^2"
^DD(863.41,0,"DT")="2941226"
^DD(863.41,0,"IX","B",863.41,.01)=""
^DD(863.41,0,"NM","PARAMETER")=""
^DD(863.41,0,"UP")="863.4"
^DD(863.41,.01,0)="PARAMETER NAME^MP863.8^OCXS(863.8,^0;1^Q"
^DD(863.41,.01,1,0)="^.1"
^DD(863.41,.01,1,1,0)="863.41^B"
^DD(863.41,.01,1,1,1)="S ^OCXS(863.4,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.41,.01,1,1,2)="K ^OCXS(863.4,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.41,.01,1,2,0)="863.4^APAR"
^DD(863.41,.01,1,2,1)="S ^OCXS(863.4,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.41,.01,1,2,2)="K ^OCXS(863.4,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.41,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.41,.01,1,2,"%D",1,0)="Rapidly identify parameters associated with this class"
^DD(863.41,.01,1,2,"DT")="2950830"
^DD(863.41,.01,"DT")="2950830"
^DD(863.41,1,0)="VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(863.41,1,3)="Answer must be 1-200 characters in length."
^DD(863.41,1,"DT")="2941206"
^DD(863.41,"B","PARAMETER NAME",.01)=""
^DD(863.41,"B","VALUE",1)=""
^DD(863.41,"GL",0,1,.01)=""
^DD(863.41,"GL","VAL","E1,200",1)=""
^DD(863.41,"IX",.01)=""
^DD(863.5,0)="FIELD^^5^8"
^DD(863.5,0,"DT")="2950830"
^DD(863.5,0,"IX","AC",863.52,.01)=""
^DD(863.5,0,"IX","APAR",863.55,.01)=""
^DD(863.5,0,"IX","B",863.5,.01)=""
^DD(863.5,0,"NM","OCX MDD VALUES")=""
^DD(863.5,0,"VR")="3.0"
^DD(863.5,0,"VRPK")="OR"
^DD(863.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(863.5,.01,1,0)="^.1"
^DD(863.5,.01,1,1,0)="863.5^B"
^DD(863.5,.01,1,1,1)="S ^OCXS(863.5,""B"",$E(X,1,30),DA)="""""
^DD(863.5,.01,1,1,2)="K ^OCXS(863.5,""B"",$E(X,1,30),DA)"
^DD(863.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(863.5,.02,0)="DATE/TIME CREATED^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(863.5,.02,"DT")="2950806"
^DD(863.5,.03,0)="CREATED BY^P200'^VA(200,^0;3^Q"
^DD(863.5,.03,21,0)="^^1^1^2950524^"
^DD(863.5,.03,21,1,0)="User who created the list"
^DD(863.5,.03,"DT")="2950524"
^DD(863.5,1,0)="VALUES^863.51^^VAL;0"
^DD(863.5,1,3)="Answer must be 1-240 characters in length."
^DD(863.5,1,"DT")="2941212"
^DD(863.5,2,0)="CONTEXT^863.52^^CTXT;0"
^DD(863.5,2,3)="Answer must be 1-200 characters in length."
^DD(863.5,2,"DT")="2941206"
^DD(863.5,3,0)="BRIEF DESCRIPTION^F^^DESC;E1,245^K:$L(X)>50!($L(X)<1) X"
^DD(863.5,3,3)="Answer must be 1-50 characters in length."
^DD(863.5,3,"DT")="2950726"
^DD(863.5,4,0)="LONG DESCRIPTION^863.54^^1;0"
^DD(863.5,5,0)="PARAMETER^863.55P^^PAR;0"
^DD(863.5,"B","BRIEF DESCRIPTION",3)=""
^DD(863.5,"B","CONTEXT",2)=""
^DD(863.5,"B","CREATED BY",.03)=""
^DD(863.5,"B","DATE/TIME CREATED",.02)=""
^DD(863.5,"B","LONG DESCRIPTION",4)=""
^DD(863.5,"B","NAME",.01)=""
^DD(863.5,"B","PARAMETER",5)=""
^DD(863.5,"B","VALUES",1)=""
^DD(863.5,"GL",0,1,.01)=""
^DD(863.5,"GL",0,2,.02)=""
^DD(863.5,"GL",0,3,.03)=""
^DD(863.5,"GL",1,0,4)=""
^DD(863.5,"GL","CTXT",0,2)=""
^DD(863.5,"GL","DESC","E1,245",3)=""
^DD(863.5,"GL","PAR",0,5)=""
^DD(863.5,"GL","VAL",0,1)=""
^DD(863.5,"IX",.01)=""
^DD(863.5,"RQ",.01)=""
^DD(863.5,"SB",863.51,1)=""
^DD(863.5,"SB",863.52,2)=""
^DD(863.5,"SB",863.54,4)=""
^DD(863.5,"SB",863.55,5)=""
^DD(863.51,0)="VALUES SUB-FIELD^^.01^1"
^DD(863.51,0,"DT")="2950524"
^DD(863.51,0,"IX","B",863.51,.01)=""
^DD(863.51,0,"NM","VALUES")=""
^DD(863.51,0,"UP")="863.5"
^DD(863.51,.01,0)="VALUES^MF^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(863.51,.01,1,0)="^.1"
^DD(863.51,.01,1,1,0)="863.51^B"
^DD(863.51,.01,1,1,1)="S ^OCXS(863.5,DA(1),""VAL"",""B"",$E(X,1,30),DA)="""""
^DD(863.51,.01,1,1,2)="K ^OCXS(863.5,DA(1),""VAL"",""B"",$E(X,1,30),DA)"
^DD(863.51,.01,3)="Answer must be 1-240 characters in length."
^DD(863.51,.01,21,0)="^^1^1^2950524^"
^DD(863.51,.01,21,1,0)="List of values"
^DD(863.51,.01,"DT")="2950524"
^DD(863.51,"B","VALUES",.01)=""
^DD(863.51,"GL",0,1,.01)=""
^DD(863.51,"IX",.01)=""
^DD(863.52,0)="CONTEXT SUB-FIELD^^.01^1"
^DD(863.52,0,"DT")="2950714"
^DD(863.52,0,"IX","B",863.52,.01)=""
^DD(863.52,0,"NM","CONTEXT")=""
^DD(863.52,0,"UP")="863.5"
^DD(863.52,.01,0)="CONTEXT^MRF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(863.52,.01,1,0)="^.1"
^DD(863.52,.01,1,1,0)="863.52^B"
^DD(863.52,.01,1,1,1)="S ^OCXS(863.5,DA(1),""CTXT"",""B"",$E(X,1,30),DA)="""""
^DD(863.52,.01,1,1,2)="K ^OCXS(863.5,DA(1),""CTXT"",""B"",$E(X,1,30),DA)"
^DD(863.52,.01,1,2,0)="863.5^AC"
^DD(863.52,.01,1,2,1)="S ^OCXS(863.5,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(863.52,.01,1,2,2)="K ^OCXS(863.5,""AC"",$E(X,1,30),DA(1),DA)"
^DD(863.52,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.52,.01,1,2,"%D",1,0)="Rapidly associate a list of values with a context name"
^DD(863.52,.01,1,2,"DT")="2950830"
^DD(863.52,.01,3)="Answer must be 3-30 characters in length."
^DD(863.52,.01,21,0)="^^1^1^2950714^"
^DD(863.52,.01,21,1,0)="Used to select the appropriate entry in the file."
^DD(863.52,.01,"DT")="2950830"
^DD(863.52,"B","CONTEXT",.01)=""
^DD(863.52,"GL",0,1,.01)=""
^DD(863.52,"IX",.01)=""
^DD(863.52,"RQ",.01)=""
^DD(863.54,0)="LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(863.54,0,"DT")="2950726"
^DD(863.54,0,"NM","LONG DESCRIPTION")=""
^DD(863.54,0,"UP")="863.5"
^DD(863.54,.01,0)="LONG DESCRIPTION^W^^0;1^Q"
^DD(863.54,.01,"DT")="2950726"
^DD(863.54,"B","LONG DESCRIPTION",.01)=""
^DD(863.54,"GL",0,1,.01)=""
^DD(863.55,0)="PARAMETER SUB-FIELD^^.01^1"
^DD(863.55,0,"DT")="2950830"
^DD(863.55,0,"IX","B",863.55,.01)=""
^DD(863.55,0,"NM","PARAMETER")=""
^DD(863.55,0,"UP")="863.5"
^DD(863.55,.01,0)="PARAMETER^MP863.8'^OCXS(863.8,^0;1^Q"
^DD(863.55,.01,1,0)="^.1"
^DD(863.55,.01,1,1,0)="863.55^B"
^DD(863.55,.01,1,1,1)="S ^OCXS(863.5,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.55,.01,1,1,2)="K ^OCXS(863.5,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.55,.01,1,2,0)="863.5^APAR"
^DD(863.55,.01,1,2,1)="S ^OCXS(863.5,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.55,.01,1,2,2)="K ^OCXS(863.5,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.55,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.55,.01,1,2,"%D",1,0)="Rapidly identify all parameters associated with this class"
^DD(863.55,.01,1,2,"DT")="2950830"
^DD(863.55,.01,21,0)="^^1^1^2950830^"
^DD(863.55,.01,21,1,0)="This field stores parameters associated with each object"
^DD(863.55,.01,"DT")="2950830"
^DD(863.55,"B","PARAMETER",.01)=""
^DD(863.55,"GL",0,1,.01)=""
^DD(863.55,"IX",.01)=""
^DD(863.6,0)="FIELD^^4^8"
^DD(863.6,0,"DT")="2951003"
^DD(863.6,0,"IX","AC",863.6,.03)=""
^DD(863.6,0,"IX","APAR",863.63,.01)=""
^DD(863.6,0,"IX","B",863.6,.01)=""
^DD(863.6,0,"IX","C",863.6,.02)=""
^DD(863.6,0,"IX","UID",863.6,4)=""
^DD(863.6,0,"NM","OCX MDD METHOD")=""
^DD(863.6,0,"VR")="3.0"
^DD(863.6,0,"VRPK")="OR"
^DD(863.6,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(863.6,.01,1,0)="^.1"
^DD(863.6,.01,1,1,0)="863.6^B"
^DD(863.6,.01,1,1,1)="S ^OCXS(863.6,""B"",$E(X,1,100),DA)="""""
^DD(863.6,.01,1,1,2)="K ^OCXS(863.6,""B"",$E(X,1,100),DA)"
^DD(863.6,.01,1,2,0)="^^TRIGGER^863.6^4"
^DD(863.6,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.6,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.6,.01,1,2,1.1) X ^DD(863.6,.01,1,2,1.4)"
^DD(863.6,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.6,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.6,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.6,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.6,.01,1,2,2)="Q"
^DD(863.6,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.6,.01,1,2,"%D",1,0)="Triggers a unique ID."
^DD(863.6,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.6,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.6,.01,1,2,"DT")="2951003"
^DD(863.6,.01,1,2,"FIELD")="U"
^DD(863.6,.01,3)="Answer must be 3-100 characters in length."
^DD(863.6,.01,"DEL",1,0)="I $L(X),$D(^OCXS(863.5,""B"",+DA)) W !!,*7,""Delete instances of this method class FIRST !!"",!!"
^DD(863.6,.01,"DT")="2951003"
^DD(863.6,.02,0)="MESSAGE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(863.6,.02,1,0)="^.1"
^DD(863.6,.02,1,1,0)="863.6^C"
^DD(863.6,.02,1,1,1)="S ^OCXS(863.6,""C"",$E(X,1,30),DA)="""""
^DD(863.6,.02,1,1,2)="K ^OCXS(863.6,""C"",$E(X,1,30),DA)"
^DD(863.6,.02,1,1,"%D",0)="^^1^1^2941213^"
^DD(863.6,.02,1,1,"%D",1,0)="Message back pointer"
^DD(863.6,.02,1,1,"DT")="2941213"
^DD(863.6,.02,3)="Answer must be 1-30 characters in length."
^DD(863.6,.02,"DT")="2941228"
^DD(863.6,.03,0)="CLASS FILE^P863'^OCXS(863,^0;3^Q"
^DD(863.6,.03,1,0)="^.1"
^DD(863.6,.03,1,1,0)="863.6^AC"
^DD(863.6,.03,1,1,1)="S ^OCXS(863.6,""AC"",$E(X,1,30),DA)="""""
^DD(863.6,.03,1,1,2)="K ^OCXS(863.6,""AC"",$E(X,1,30),DA)"
^DD(863.6,.03,1,1,"%D",0)="^^1^1^2950830^"
^DD(863.6,.03,1,1,"%D",1,0)="Rapidly identify all methods associated with a given class"
^DD(863.6,.03,1,1,"DT")="2950830"
^DD(863.6,.03,3)=""
^DD(863.6,.03,12)="Select an MDD ""class"" file"
^DD(863.6,.03,12.1)="S DIC(""S"")=""I Y>860,Y<865"""
^DD(863.6,.03,"DT")="2950830"
^DD(863.6,.04,0)="TYPE OF EXECUTABLE^S^R:ROUTINE;X:EXECUTABLE CODE STRING;T:TEMPLATE;^0;4^Q"
^DD(863.6,.04,"DT")="2941212"
^DD(863.6,1,0)="DESCRIPTION^863.61^^DESC;0"
^DD(863.6,2,0)="EXECUTABLE^F^^EX;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(863.6,2,3)="If TYPE OF EXECUTABLE='ROUTINE' entry must be in the format 'XXX^YYYY'.  If TYPE='X', then entry must be valid M code.  If TYPE='T', then entry must be a valid template string."
^DD(863.6,2,9)="@"
^DD(863.6,2,"DT")="2941212"
^DD(863.6,3,0)="PARAMETER^863.63P^^PAR;0"
^DD(863.6,3,"DT")="2950512"
^DD(863.6,4,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.6,4,1,0)="^.1"
^DD(863.6,4,1,1,0)="863.6^UID"
^DD(863.6,4,1,1,1)="S ^OCXS(863.6,""UID"",$E(X,1,30),DA)="""""
^DD(863.6,4,1,1,2)="K ^OCXS(863.6,""UID"",$E(X,1,30),DA)"
^DD(863.6,4,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.6,4,1,1,"%D",1,0)="Enables rapid lookup of an object by its UID."
^DD(863.6,4,1,1,"DT")="2951003"
^DD(863.6,4,3)="Answer must be 3-30 characters in length."
^DD(863.6,4,5,1,0)="863.6^.01^2"
^DD(863.6,4,9)="^"
^DD(863.6,4,21,0)="^^1^1^2951003^"
^DD(863.6,4,21,1,0)="A unique ID for this object."
^DD(863.6,4,"DT")="2951003"
^DD(863.6,"B","CLASS FILE",.03)=""
^DD(863.6,"B","DESCRIPTION",1)=""
^DD(863.6,"B","EXECUTABLE",2)=""
^DD(863.6,"B","MESSAGE",.02)=""
^DD(863.6,"B","NAME",.01)=""
^DD(863.6,"B","PARAMETER",3)=""
^DD(863.6,"B","TYPE OF EXECUTABLE",.04)=""
^DD(863.6,"B","UNIQUE OBJECT IDENTIFIER",4)=""
^DD(863.6,"GL",0,1,.01)=""
^DD(863.6,"GL",0,2,.02)=""
^DD(863.6,"GL",0,3,.03)=""
^DD(863.6,"GL",0,4,.04)=""
^DD(863.6,"GL","DESC",0,1)=""
^DD(863.6,"GL","EX","E1,245",2)=""
^DD(863.6,"GL","PAR",0,3)=""
^DD(863.6,"GL","UID","E1,245",4)=""
^DD(863.6,"IX",.01)=""
^DD(863.6,"IX",.02)=""
^DD(863.6,"IX",.03)=""
^DD(863.6,"IX",4)=""
^DD(863.6,"RQ",.01)=""
^DD(863.6,"SB",863.61,1)=""
^DD(863.6,"SB",863.63,3)=""
^DD(863.61,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(863.61,0,"NM","DESCRIPTION")=""
^DD(863.61,0,"UP")="863.6"
^DD(863.61,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(863.61,.01,"DT")="2940830"
^DD(863.61,"B","DESCRIPTION",.01)=""
^DD(863.61,"GL",0,1,.01)=""
^DD(863.63,0)="PARAMETER SUB-FIELD^^1^3"
^DD(863.63,0,"DT")="2950403"
^DD(863.63,0,"IX","B",863.63,.01)=""
^DD(863.63,0,"NM","PARAMETER")=""
^DD(863.63,0,"UP")="863.6"
^DD(863.63,.01,0)="PARAMETER NAME^MP863.8^OCXS(863.8,^0;1^Q"
^DD(863.63,.01,1,0)="^.1"
^DD(863.63,.01,1,1,0)="863.63^B"
^DD(863.63,.01,1,1,1)="S ^OCXS(863.6,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.63,.01,1,1,2)="K ^OCXS(863.6,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.63,.01,1,2,0)="863.6^APAR"
^DD(863.63,.01,1,2,1)="S ^OCXS(863.6,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.63,.01,1,2,2)="K ^OCXS(863.6,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.63,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.63,.01,1,2,"%D",1,0)="Rapidly identify all patameters associated with this class"
^DD(863.63,.01,1,2,"DT")="2950830"
^DD(863.63,.01,"DT")="2950830"
^DD(863.63,.02,0)="TYPE^S^0:INPUT;1:OUTPUT;^0;2^Q"
^DD(863.63,.02,"DT")="2950903"
^DD(863.63,1,0)="VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(863.63,1,3)="Answer must be 1-200 characters in length."
^DD(863.63,1,"DT")="2941206"
^DD(863.63,"B","PARAMETER NAME",.01)=""
^DD(863.63,"B","TYPE",.02)=""
^DD(863.63,"B","VALUE",1)=""
^DD(863.63,"GL",0,1,.01)=""
^DD(863.63,"GL",0,2,.02)=""
^DD(863.63,"GL","VAL","E1,200",1)=""
^DD(863.63,"IX",.01)=""
^DD(863.7,0)="FIELD^^5^7"
^DD(863.7,0,"DT")="2951019"
^DD(863.7,0,"IX","APAR",863.74,.01)=""
^DD(863.7,0,"IX","B",863.7,.01)=""
^DD(863.7,0,"IX","UID",863.7,5)=""
^DD(863.7,0,"NM","OCX MDD PUBLIC FUNCTION")=""
^DD(863.7,0,"PT",863.9,.03)=""
^DD(863.7,0,"VR")="3.0"
^DD(863.7,0,"VRPK")="OR"
^DD(863.7,.01,0)="NAME^RF^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(863.7,.01,1,0)="^.1"
^DD(863.7,.01,1,1,0)="863.7^B"
^DD(863.7,.01,1,1,1)="S ^OCXS(863.7,""B"",$E(X,1,30),DA)="""""
^DD(863.7,.01,1,1,2)="K ^OCXS(863.7,""B"",$E(X,1,30),DA)"
^DD(863.7,.01,1,2,0)="^^TRIGGER^863.7^5"
^DD(863.7,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.7,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.7,.01,1,2,1.1) X ^DD(863.7,.01,1,2,1.4)"
^DD(863.7,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.7,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.7,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.7,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.7,.01,1,2,2)="Q"
^DD(863.7,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.7,.01,1,2,"%D",1,0)="Triggers a unique ID for the object."
^DD(863.7,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.7,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.7,.01,1,2,"DT")="2951003"
^DD(863.7,.01,1,2,"FIELD")="U"
^DD(863.7,.01,3)="Answer must be 3-80 characters in length."
^DD(863.7,.01,"DT")="2951019"
^DD(863.7,.02,0)="TYPE^S^1:EXTRINSIC FUNCTION;2:PARAMETERIZED SUBROUTINE;^0;2^Q"
^DD(863.7,.02,"DT")="2950113"
^DD(863.7,1,0)="BRIEF DESCRIPTION^F^^1;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(863.7,1,3)="Answer must be 1-240 characters in length."
^DD(863.7,1,"DT")="2950113"
^DD(863.7,2,0)="LONG DESCRIPTION^863.72^^2;0"
^DD(863.7,3,0)="FUNCTION CALL^F^^EX;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(863.7,3,3)="Answer must be 1-240 characters in length."
^DD(863.7,3,"DT")="2850215"
^DD(863.7,4,0)="PARAMETER^863.74P^^PAR;0"
^DD(863.7,4,"DT")="2950512"
^DD(863.7,5,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.7,5,1,0)="^.1"
^DD(863.7,5,1,1,0)="863.7^UID"
^DD(863.7,5,1,1,1)="S ^OCXS(863.7,""UID"",$E(X,1,30),DA)="""""
^DD(863.7,5,1,1,2)="K ^OCXS(863.7,""UID"",$E(X,1,30),DA)"
^DD(863.7,5,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.7,5,1,1,"%D",1,0)="Enables rapid lookup of an object by its unique ID."
^DD(863.7,5,1,1,"DT")="2951003"
^DD(863.7,5,3)="Answer must be 3-30 characters in length."
^DD(863.7,5,5,1,0)="863.7^.01^2"
^DD(863.7,5,9)="^"
^DD(863.7,5,21,0)="^^1^1^2951003^"
^DD(863.7,5,21,1,0)="A unique ID for this object."
^DD(863.7,5,"DT")="2951003"
^DD(863.7,"B","BRIEF DESCRIPTION",1)=""
^DD(863.7,"B","FUNCTION CALL",3)=""
^DD(863.7,"B","LONG DESCRIPTION",2)=""
^DD(863.7,"B","NAME",.01)=""
^DD(863.7,"B","PARAMETER",4)=""
^DD(863.7,"B","TYPE",.02)=""
^DD(863.7,"B","UNIQUE OBJECT IDENTIFIER",5)=""
^DD(863.7,"GL",0,1,.01)=""
^DD(863.7,"GL",0,2,.02)=""
^DD(863.7,"GL",1,"E1,245",1)=""
^DD(863.7,"GL",2,0,2)=""
^DD(863.7,"GL","EX","E1,245",3)=""
^DD(863.7,"GL","PAR",0,4)=""
^DD(863.7,"GL","UID","E1,245",5)=""
^DD(863.7,"IX",.01)=""
^DD(863.7,"IX",5)=""
^DD(863.7,"RQ",.01)=""
^DD(863.7,"SB",863.72,2)=""
^DD(863.7,"SB",863.74,4)=""
^DD(863.72,0)="LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(863.72,0,"DT")="2950113"
^DD(863.72,0,"NM","LONG DESCRIPTION")=""
^DD(863.72,0,"UP")="863.7"
^DD(863.72,.01,0)="LONG DESCRIPTION^W^^0;1^Q"
^DD(863.72,.01,"DT")="2950113"
^DD(863.72,"B","LONG DESCRIPTION",.01)=""
^DD(863.72,"GL",0,1,.01)=""
^DD(863.74,0)="PARAMETER SUB-FIELD^^1.2^5"
^DD(863.74,0,"DT")="2950212"
^DD(863.74,0,"IX","B",863.74,.01)=""
^DD(863.74,0,"NM","PARAMETER")=""
^DD(863.74,0,"UP")="863.7"
^DD(863.74,.01,0)="PARAMETERS^MP863.8'^OCXS(863.8,^0;1^Q"
^DD(863.74,.01,1,0)="^.1"
^DD(863.74,.01,1,1,0)="863.74^B"
^DD(863.74,.01,1,1,1)="S ^OCXS(863.7,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.74,.01,1,1,2)="K ^OCXS(863.7,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.74,.01,1,2,0)="863.7^APAR"
^DD(863.74,.01,1,2,1)="S ^OCXS(863.7,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.74,.01,1,2,2)="K ^OCXS(863.7,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.74,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.74,.01,1,2,"%D",1,0)="Rapidly identify all parameters associated with this class"
^DD(863.74,.01,1,2,"DT")="2950830"
^DD(863.74,.01,"DT")="2950830"
^DD(863.74,.02,0)="TYPE^S^I:INPUT;O:OUTPUT;^0;2^Q"
^DD(863.74,.02,"DT")="2950122"
^DD(863.74,1,0)="VALUE^F^^VAL;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(863.74,1,3)="Answer must be 1-240 characters in length."
^DD(863.74,1,"DT")="2950122"
^DD(863.74,1.1,0)="INPUT PARAM STRING POSITION^NJ2,0^^IN;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(863.74,1.1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(863.74,1.1,"DT")="2950212"
^DD(863.74,1.2,0)="INPUT PARAM VARIABLE NAME^F^^IN;2^K:$L(X)>8!($L(X)<1) X"
^DD(863.74,1.2,3)="Answer must be 1-8 characters in length."
^DD(863.74,1.2,"DT")="2950212"
^DD(863.74,"B","INPUT PARAM STRING POSITION",1.1)=""
^DD(863.74,"B","INPUT PARAM VARIABLE NAME",1.2)=""
^DD(863.74,"B","PARAMETERS",.01)=""
^DD(863.74,"B","TYPE",.02)=""
^DD(863.74,"B","VALUE",1)=""
^DD(863.74,"GL",0,1,.01)=""
^DD(863.74,"GL",0,2,.02)=""
^DD(863.74,"GL","IN",1,1.1)=""
^DD(863.74,"GL","IN",2,1.2)=""
^DD(863.74,"GL","VAL","E1,245",1)=""
^DD(863.74,"IX",.01)=""
^DD(863.8,0)="FIELD^^4^7"
^DD(863.8,0,"DT")="2951003"
^DD(863.8,0,"IX","APAR",863.84,.01)=""
^DD(863.8,0,"IX","B",863.8,.01)=""
^DD(863.8,0,"IX","C",863.8,.02)=""
^DD(863.8,0,"IX","DD",863.8,.03)=""
^DD(863.8,0,"IX","UID",863.8,3)=""
^DD(863.8,0,"NM","OCX MDD PARAMETER")=""
^DD(863.8,0,"PT",863.01,.01)=""
^DD(863.8,0,"PT",863.11,.01)=""
^DD(863.8,0,"PT",863.21,.01)=""
^DD(863.8,0,"PT",863.32,.01)=""
^DD(863.8,0,"PT",863.41,.01)=""
^DD(863.8,0,"PT",863.55,.01)=""
^DD(863.8,0,"PT",863.63,.01)=""
^DD(863.8,0,"PT",863.74,.01)=""
^DD(863.8,0,"PT",863.84,.01)=""
^DD(863.8,0,"PT",864.11,.01)=""
^DD(863.8,0,"VR")="3.0"
^DD(863.8,0,"VRPK")="OR"
^DD(863.8,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(863.8,.01,1,0)="^.1"
^DD(863.8,.01,1,1,0)="863.8^B"
^DD(863.8,.01,1,1,1)="S ^OCXS(863.8,""B"",$E(X,1,30),DA)="""""
^DD(863.8,.01,1,1,2)="K ^OCXS(863.8,""B"",$E(X,1,30),DA)"
^DD(863.8,.01,1,2,0)="^^TRIGGER^863.8^3"
^DD(863.8,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.8,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.8,.01,1,2,1.1) X ^DD(863.8,.01,1,2,1.4)"
^DD(863.8,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.8,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.8,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.8,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.8,.01,1,2,2)="Q"
^DD(863.8,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.8,.01,1,2,"%D",1,0)="Triggers a unique object ID."
^DD(863.8,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.8,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.8,.01,1,2,"DT")="2951003"
^DD(863.8,.01,1,2,"FIELD")="U"
^DD(863.8,.01,3)="Answer must be 3-100 characters in length."
^DD(863.8,.01,"DT")="2951003"
^DD(863.8,.02,0)="BRIEF NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(863.8,.02,1,0)="^.1"
^DD(863.8,.02,1,1,0)="863.8^C"
^DD(863.8,.02,1,1,1)="S ^OCXS(863.8,""C"",$E(X,1,30),DA)="""""
^DD(863.8,.02,1,1,2)="K ^OCXS(863.8,""C"",$E(X,1,30),DA)"
^DD(863.8,.02,1,1,"DT")="2940907"
^DD(863.8,.02,3)="Answer must be 1-10 characters in length."
^DD(863.8,.02,"DT")="2950408"
^DD(863.8,.03,0)="DATA DEFINITION PARAMETER^S^1:YES;0:NO;^0;3^Q"
^DD(863.8,.03,1,0)="^.1"
^DD(863.8,.03,1,1,0)="863.8^DD"
^DD(863.8,.03,1,1,1)="S ^OCXS(863.8,""DD"",$E(X,1,30),DA)="""""
^DD(863.8,.03,1,1,2)="K ^OCXS(863.8,""DD"",$E(X,1,30),DA)"
^DD(863.8,.03,1,1,"%D",0)="^^2^2^2950116^"
^DD(863.8,.03,1,1,"%D",1,0)="Identifies the set of ""primary"" parameters; i.e., those which define"
^DD(863.8,.03,1,1,"%D",2,0)="other parameters."
^DD(863.8,.03,1,1,"DT")="2950116"
^DD(863.8,.03,"DT")="2950116"
^DD(863.8,1,0)="DESCRIPTION^863.81^^DESC;0"
^DD(863.8,2,0)="DEFAULT VALUE^F^^DEF;E1,240^K:$L(X)>240!($L(X)<1) X"
^DD(863.8,2,3)="Answer must be 1-240 characters in length."
^DD(863.8,2,"DT")="2941206"
^DD(863.8,3,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.8,3,1,0)="^.1"
^DD(863.8,3,1,1,0)="863.8^UID"
^DD(863.8,3,1,1,1)="S ^OCXS(863.8,""UID"",$E(X,1,30),DA)="""""
^DD(863.8,3,1,1,2)="K ^OCXS(863.8,""UID"",$E(X,1,30),DA)"
^DD(863.8,3,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.8,3,1,1,"%D",1,0)="Enables rapid location of an object by its UID"
^DD(863.8,3,1,1,"DT")="2951003"
^DD(863.8,3,3)="Answer must be 3-30 characters in length."
^DD(863.8,3,5,1,0)="863.8^.01^2"
^DD(863.8,3,9)="^"
^DD(863.8,3,21,0)="^^1^1^2951003^"
^DD(863.8,3,21,1,0)="Unique object ID triggered by the .01 field."
^DD(863.8,3,"DT")="2951003"
^DD(863.8,4,0)="PARAMETER ATTRIBUTE^863.84P^^PAR;0"
^DD(863.8,4,"DT")="2950508"
^DD(863.8,"B","BRIEF NAME",.02)=""
^DD(863.8,"B","DATA DEFINITION PARAMETER",.03)=""
^DD(863.8,"B","DEFAULT VALUE",2)=""
^DD(863.8,"B","DESCRIPTION",1)=""
^DD(863.8,"B","NAME",.01)=""
^DD(863.8,"B","PARAMETER ATTRIBUTE",4)=""
^DD(863.8,"B","UNIQUE OBJECT IDENTIFIER",3)=""
^DD(863.8,"GL",0,1,.01)=""
^DD(863.8,"GL",0,2,.02)=""
^DD(863.8,"GL",0,3,.03)=""
^DD(863.8,"GL","DEF","E1,240",2)=""
^DD(863.8,"GL","DESC",0,1)=""
^DD(863.8,"GL","PAR",0,4)=""
^DD(863.8,"GL","UID","E1,245",3)=""
^DD(863.8,"IX",.01)=""
^DD(863.8,"IX",.02)=""
^DD(863.8,"IX",.03)=""
^DD(863.8,"IX",3)=""
^DD(863.8,"RQ",.01)=""
^DD(863.8,"SB",863.81,1)=""
^DD(863.8,"SB",863.84,4)=""
^DD(863.81,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(863.81,0,"DT")="2941117"
^DD(863.81,0,"NM","DESCRIPTION")=""
^DD(863.81,0,"UP")="863.8"
^DD(863.81,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(863.81,.01,"DT")="2941117"
^DD(863.81,"B","DESCRIPTION",.01)=""
^DD(863.81,"GL",0,1,.01)=""
^DD(863.84,0)="PARAMETER ATTRIBUTE SUB-FIELD^^1^2"
^DD(863.84,0,"DT")="2950103"
^DD(863.84,0,"IX","B",863.84,.01)=""
^DD(863.84,0,"NM","PARAMETER ATTRIBUTE")=""
^DD(863.84,0,"UP")="863.8"
^DD(863.84,.01,0)="PARAMETER^MP863.8'X^OCXS(863.8,^0;1^Q"
^DD(863.84,.01,1,0)="^.1"
^DD(863.84,.01,1,1,0)="863.84^B"
^DD(863.84,.01,1,1,1)="S ^OCXS(863.8,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.84,.01,1,1,2)="K ^OCXS(863.8,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.84,.01,1,2,0)="863.8^APAR"
^DD(863.84,.01,1,2,1)="S ^OCXS(863.8,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.84,.01,1,2,2)="K ^OCXS(863.8,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.84,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.84,.01,1,2,"%D",1,0)="Rapidly identify all parametes associated with this file"
^DD(863.84,.01,1,2,"DT")="2950830"
^DD(863.84,.01,"DT")="2950830"
^DD(863.84,1,0)="VALUE^F^^VAL;E1,245^K:$L(X)>240!($L(X)<1) X"
^DD(863.84,1,3)="Answer must be 1-240 characters in length."
^DD(863.84,1,"DT")="2950103"
^DD(863.84,"B","PARAMETER",.01)=""
^DD(863.84,"B","VALUE",1)=""
^DD(863.84,"GL",0,1,.01)=""
^DD(863.84,"GL","VAL","E1,245",1)=""
^DD(863.84,"IX",.01)=""
^DD(863.9,0)="FIELD^^3^7"
^DD(863.9,0,"DT")="2970226"
^DD(863.9,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^OCXS(864.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(864.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(863.9,0,"IX","AFUN",863.9,.03)=""
^DD(863.9,0,"IX","APAR",863.91,.01)=""
^DD(863.9,0,"IX","B",863.9,.01)=""
^DD(863.9,0,"IX","D",863.9,.04)=""
^DD(863.9,0,"IX","SYN",863.92,.01)=""
^DD(863.9,0,"IX","UID",863.9,3)=""
^DD(863.9,0,"NM","OCX MDD CONDITION/FUNCTION")=""
^DD(863.9,0,"PT",860.31,2)=""
^DD(863.9,0,"VR")="3.0"
^DD(863.9,0,"VRPK")="OR"
^DD(863.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(863.9,.01,1,0)="^.1"
^DD(863.9,.01,1,1,0)="863.9^B"
^DD(863.9,.01,1,1,1)="S ^OCXS(863.9,""B"",$E(X,1,30),DA)="""""
^DD(863.9,.01,1,1,2)="K ^OCXS(863.9,""B"",$E(X,1,30),DA)"
^DD(863.9,.01,1,2,0)="^^TRIGGER^863.9^3"
^DD(863.9,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(863.9,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(863.9,.01,1,2,1.1) X ^DD(863.9,.01,1,2,1.4)"
^DD(863.9,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.9,.01,1,2,1.4)="S DIH=$S($D(^OCXS(863.9,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=863.9,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(863.9,.01,1,2,2)="Q"
^DD(863.9,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(863.9,.01,1,2,"%D",1,0)="Triggers a unique ID for an object."
^DD(863.9,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(863.9,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(863.9,.01,1,2,"DT")="2951003"
^DD(863.9,.01,1,2,"FIELD")="U"
^DD(863.9,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(863.9,.01,"DT")="2951003"
^DD(863.9,.02,0)="DATATYPE^P864.1'^OCXS(864.1,^0;2^Q"
^DD(863.9,.02,"DT")="2941205"
^DD(863.9,.03,0)="CODE GENERATOR FUNCTION^P863.7'^OCXS(863.7,^0;3^Q"
^DD(863.9,.03,1,0)="^.1"
^DD(863.9,.03,1,1,0)="863.9^AFUN"
^DD(863.9,.03,1,1,1)="S ^OCXS(863.9,""AFUN"",$E(X,1,30),DA)="""""
^DD(863.9,.03,1,1,2)="K ^OCXS(863.9,""AFUN"",$E(X,1,30),DA)"
^DD(863.9,.03,1,1,"%D",0)="^^1^1^2950830^"
^DD(863.9,.03,1,1,"%D",1,0)="Rapidly identify conditions associated with a certain function"
^DD(863.9,.03,1,1,"DT")="2950830"
^DD(863.9,.03,21,0)="^^1^1^2950820^"
^DD(863.9,.03,21,1,0)="Public function whose output is evaluation code"
^DD(863.9,.03,"DT")="2950830"
^DD(863.9,.04,0)="TEXT^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(863.9,.04,1,0)="^.1"
^DD(863.9,.04,1,1,0)="863.9^D"
^DD(863.9,.04,1,1,1)="S ^OCXS(863.9,""D"",$E(X,1,30),DA)="""""
^DD(863.9,.04,1,1,2)="K ^OCXS(863.9,""D"",$E(X,1,30),DA)"
^DD(863.9,.04,1,1,"DT")="2970226"
^DD(863.9,.04,3)="Answer must be 1-30 characters in length."
^DD(863.9,.04,"DT")="2970226"
^DD(863.9,1,0)="PARAMETER^863.91^^PAR;0"
^DD(863.9,1,"DT")="2950512"
^DD(863.9,2,0)="SYNONYM^863.92^^1;0"
^DD(863.9,2,"DT")="2950325"
^DD(863.9,3,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(863.9,3,1,0)="^.1"
^DD(863.9,3,1,1,0)="863.9^UID"
^DD(863.9,3,1,1,1)="S ^OCXS(863.9,""UID"",$E(X,1,30),DA)="""""
^DD(863.9,3,1,1,2)="K ^OCXS(863.9,""UID"",$E(X,1,30),DA)"
^DD(863.9,3,1,1,"%D",0)="^^1^1^2951003^"
^DD(863.9,3,1,1,"%D",1,0)="Enables rapid lookup of an object by its unique ID."
^DD(863.9,3,1,1,"DT")="2951003"
^DD(863.9,3,3)="Answer must be 3-30 characters in length."
^DD(863.9,3,5,1,0)="863.9^.01^2"
^DD(863.9,3,9)="^"
^DD(863.9,3,21,0)="^^1^1^2951003^"
^DD(863.9,3,21,1,0)="A unique ID for this object."
^DD(863.9,3,"DT")="2951003"
^DD(863.9,"B","CODE GENERATOR FUNCTION",.03)=""
^DD(863.9,"B","DATATYPE",.02)=""
^DD(863.9,"B","NAME",.01)=""
^DD(863.9,"B","PARAMETER",1)=""
^DD(863.9,"B","SYNONYM",2)=""
^DD(863.9,"B","TEXT",.04)=""
^DD(863.9,"B","UNIQUE OBJECT IDENTIFIER",3)=""
^DD(863.9,"GL",0,1,.01)=""
^DD(863.9,"GL",0,2,.02)=""
^DD(863.9,"GL",0,3,.03)=""
^DD(863.9,"GL",0,4,.04)=""
^DD(863.9,"GL",1,0,2)=""
^DD(863.9,"GL","PAR",0,1)=""
^DD(863.9,"GL","UID","E1,245",3)=""
^DD(863.9,"IX",.01)=""
^DD(863.9,"IX",.03)=""
^DD(863.9,"IX",.04)=""
^DD(863.9,"IX",3)=""
^DD(863.9,"RQ",.01)=""
^DD(863.9,"SB",863.91,1)=""
^DD(863.9,"SB",863.92,2)=""
^DD(863.91,0)="PARAMETER SUB-FIELD^^1^2"
^DD(863.91,0,"DT")="2941206"
^DD(863.91,0,"IX","B",863.91,.01)=""
^DD(863.91,0,"NM","PARAMETER")=""
^DD(863.91,0,"UP")="863.9"
^DD(863.91,.01,0)="PARAMETERS^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<1) X"
^DD(863.91,.01,1,0)="^.1"
^DD(863.91,.01,1,1,0)="863.91^B"
^DD(863.91,.01,1,1,1)="S ^OCXS(863.9,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(863.91,.01,1,1,2)="K ^OCXS(863.9,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(863.91,.01,1,2,0)="863.9^APAR"
^DD(863.91,.01,1,2,1)="S ^OCXS(863.9,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(863.91,.01,1,2,2)="K ^OCXS(863.9,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(863.91,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.91,.01,1,2,"%D",1,0)="Rapidly identify all parameters associated with this class"
^DD(863.91,.01,1,2,"DT")="2950830"
^DD(863.91,.01,3)="Answer must be 1-200 characters in length."
^DD(863.91,.01,"DT")="2950830"
^DD(863.91,1,0)="VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(863.91,1,3)="Answer must be 1-200 characters in length."
^DD(863.91,1,"DT")="2941206"
^DD(863.91,"B","PARAMETERS",.01)=""
^DD(863.91,"B","VALUE",1)=""
^DD(863.91,"GL",0,1,.01)=""
^DD(863.91,"GL","VAL","E1,200",1)=""
^DD(863.91,"IX",.01)=""
^DD(863.92,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(863.92,0,"IX","B",863.92,.01)=""
^DD(863.92,0,"NM","SYNONYM")=""
^DD(863.92,0,"UP")="863.9"
^DD(863.92,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(863.92,.01,1,0)="^.1"
^DD(863.92,.01,1,1,0)="863.92^B"
^DD(863.92,.01,1,1,1)="S ^OCXS(863.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(863.92,.01,1,1,2)="K ^OCXS(863.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(863.92,.01,1,2,0)="863.9^SYN"
^DD(863.92,.01,1,2,1)="S ^OCXS(863.9,""SYN"",$E(X,1,30),DA(1),DA)="""""
^DD(863.92,.01,1,2,2)="K ^OCXS(863.9,""SYN"",$E(X,1,30),DA(1),DA)"
^DD(863.92,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(863.92,.01,1,2,"%D",1,0)="Support synonym lookup of conditions/functions"
^DD(863.92,.01,1,2,"DT")="2950830"
^DD(863.92,.01,3)="Answer must be 1-30 characters in length."
^DD(863.92,.01,"DT")="2950830"
^DD(863.92,"B","SYNONYM",.01)=""
^DD(863.92,"GL",0,1,.01)=""
^DD(863.92,"IX",.01)=""
^DD(864,0)="FIELD^^.02^2"
^DD(864,0,"DDA")="N"
^DD(864,0,"DT")="2951002"
^DD(864,0,"IX","B",864,.01)=""
^DD(864,0,"NM","OCX MDD SITE PREFERENCES")=""
^DD(864,0,"VR")="3.0"
^DD(864,0,"VRPK")="OR"
^DD(864,.01,0)="DEVELOPMENT SITE^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(864,.01,1,0)="^.1"
^DD(864,.01,1,1,0)="864^B"
^DD(864,.01,1,1,1)="S ^OCXS(864,""B"",$E(X,1,30),DA)="""""
^DD(864,.01,1,1,2)="K ^OCXS(864,""B"",$E(X,1,30),DA)"
^DD(864,.01,3)="Answer must be 1-30 characters in length."
^DD(864,.01,"DT")="2951003"
^DD(864,.02,0)="OBJECT NAMESPACE^F^^0;2^K:$L(X)>8!($L(X)<3) X"
^DD(864,.02,3)="Answer must be 3-8 characters in length."
^DD(864,.02,21,0)="^^1^1^2951002^"
^DD(864,.02,21,1,0)="The object namespace is used to produce a unique identifier for each object consisting of namespace_class mnemonic_IEN"
^DD(864,.02,"DT")="2951002"
^DD(864,"B","DEVELOPMENT SITE",.01)=""
^DD(864,"B","OBJECT NAMESPACE",.02)=""
^DD(864,"GL",0,1,.01)=""
^DD(864,"GL",0,2,.02)=""
^DD(864,"IX",.01)=""
^DD(864,"RQ",.01)=""
^DD(864.1,0)="FIELD^^3^5"
^DD(864.1,0,"DT")="2951003"
^DD(864.1,0,"IX","AP",864.1,2)=""
^DD(864.1,0,"IX","APAR",864.11,.01)=""
^DD(864.1,0,"IX","B",864.1,.01)=""
^DD(864.1,0,"IX","C",864.1,.02)=""
^DD(864.1,0,"IX","UID",864.1,3)=""
^DD(864.1,0,"NM","OCX MDD DATATYPE")=""
^DD(864.1,0,"PT",860.4,101)=""
^DD(864.1,0,"PT",863.9,.02)=""
^DD(864.1,0,"PT",864.1,2)=""
^DD(864.1,0,"VR")="3.0"
^DD(864.1,0,"VRPK")="OR"
^DD(864.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(864.1,.01,1,0)="^.1"
^DD(864.1,.01,1,1,0)="864.1^B"
^DD(864.1,.01,1,1,1)="S ^OCXS(864.1,""B"",$E(X,1,30),DA)="""""
^DD(864.1,.01,1,1,2)="K ^OCXS(864.1,""B"",$E(X,1,30),DA)"
^DD(864.1,.01,1,2,0)="^^TRIGGER^864.1^3"
^DD(864.1,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OCXS(864.1,D0,""UID"")):^(""UID""),1:"""") S X=$E(Y(1),1,245),X=X S DIU=X K Y X ^DD(864.1,.01,1,2,1.1) X ^DD(864.1,.01,1,2,1.4)"
^DD(864.1,.01,1,2,1.1)="S X=DIV S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(864.1,.01,1,2,1.4)="S DIH=$S($D(^OCXS(864.1,DIV(0),""UID"")):^(""UID""),1:""""),DIV=X S DE=0-$L(DIH),DIU=$E(DIH,1,245),Y=$E(DIH,246,999),^(""UID"")=$J("""",$S(DE>0:DE,1:0))_DIV_$S(Y?."" "":"""",1:$J("""",245-$L(DIV))_Y),DIH=864.1,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(864.1,.01,1,2,2)="Q"
^DD(864.1,.01,1,2,"%D",0)="^^1^1^2951003^"
^DD(864.1,.01,1,2,"%D",1,0)="Triggers a unique ID."
^DD(864.1,.01,1,2,"CREATE VALUE")="S X="""" I $T(UID^OCXFMGR)]"""",$G(DA) S X=$$UID^OCXFMGR(DIC,DA)"
^DD(864.1,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(864.1,.01,1,2,"DT")="2951003"
^DD(864.1,.01,1,2,"FIELD")="U"
^DD(864.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(864.1,.01,"DT")="2951003"
^DD(864.1,.02,0)="BRIEF NAME^F^^0;2^K:$L(X)>8!($L(X)<1) X"
^DD(864.1,.02,1,0)="^.1"
^DD(864.1,.02,1,1,0)="864.1^C"
^DD(864.1,.02,1,1,1)="S ^OCXS(864.1,""C"",$E(X,1,30),DA)="""""
^DD(864.1,.02,1,1,2)="K ^OCXS(864.1,""C"",$E(X,1,30),DA)"
^DD(864.1,.02,1,1,"%D",0)="^^1^1^2950408^"
^DD(864.1,.02,1,1,"%D",1,0)="Enambles quick lookup via brief name"
^DD(864.1,.02,1,1,"DT")="2950408"
^DD(864.1,.02,3)="Answer must be 1-8 characters in length."
^DD(864.1,.02,21,0)="^^2^2^2950408^"
^DD(864.1,.02,21,1,0)="The brief name may be used as part of a compund key for lookup in reference"
^DD(864.1,.02,21,2,0)=" files (e.g., the DIALOGUE file)"
^DD(864.1,.02,"DT")="2950408"
^DD(864.1,1,0)="PARAMETER^864.11P^^PAR;0"
^DD(864.1,1,"DT")="2950512"
^DD(864.1,2,0)="PARENT DATA TYPE^P864.1'^OCXS(864.1,^MOM;1^Q"
^DD(864.1,2,1,0)="^.1"
^DD(864.1,2,1,1,0)="864.1^AP"
^DD(864.1,2,1,1,1)="S ^OCXS(864.1,""AP"",$E(X,1,30),DA)="""""
^DD(864.1,2,1,1,2)="K ^OCXS(864.1,""AP"",$E(X,1,30),DA)"
^DD(864.1,2,1,1,"%D",0)="^^1^1^2950418^"
^DD(864.1,2,1,1,"%D",1,0)="Quickly find descendants of a parent object"
^DD(864.1,2,1,1,"DT")="2950418"
^DD(864.1,2,21,0)="^^1^1^2950418^"
^DD(864.1,2,21,1,0)="Supports object inheritance"
^DD(864.1,2,"DT")="2950418"
^DD(864.1,3,0)="UNIQUE OBJECT IDENTIFIER^F^^UID;E1,245^K:$L(X)>30!($L(X)<3) X"
^DD(864.1,3,1,0)="^.1"
^DD(864.1,3,1,1,0)="864.1^UID"
^DD(864.1,3,1,1,1)="S ^OCXS(864.1,""UID"",$E(X,1,30),DA)="""""
^DD(864.1,3,1,1,2)="K ^OCXS(864.1,""UID"",$E(X,1,30),DA)"
^DD(864.1,3,1,1,"%D",0)="^^1^1^2951003^"
^DD(864.1,3,1,1,"%D",1,0)="Enables rapid lookup of an object by its UID."
^DD(864.1,3,1,1,"DT")="2951003"
^DD(864.1,3,3)="Answer must be 3-30 characters in length."
^DD(864.1,3,5,1,0)="864.1^.01^2"
^DD(864.1,3,9)="^"
^DD(864.1,3,21,0)="^^1^1^2951003^"
^DD(864.1,3,21,1,0)="A unique ID for this object."
^DD(864.1,3,"DT")="2951003"
^DD(864.1,"B","BRIEF NAME",.02)=""
^DD(864.1,"B","NAME",.01)=""
^DD(864.1,"B","PARAMETER",1)=""
^DD(864.1,"B","PARENT DATA TYPE",2)=""
^DD(864.1,"B","UNIQUE OBJECT IDENTIFIER",3)=""
^DD(864.1,"GL",0,1,.01)=""
^DD(864.1,"GL",0,2,.02)=""
^DD(864.1,"GL","MOM",1,2)=""
^DD(864.1,"GL","PAR",0,1)=""
^DD(864.1,"GL","UID","E1,245",3)=""
^DD(864.1,"IX",.01)=""
^DD(864.1,"IX",.02)=""
^DD(864.1,"IX",2)=""
^DD(864.1,"IX",3)=""
^DD(864.1,"RQ",.01)=""
^DD(864.1,"SB",864.11,1)=""
^DD(864.11,0)="PARAMETER SUB-FIELD^^1^2"
^DD(864.11,0,"DT")="2941206"
^DD(864.11,0,"IX","B",864.11,.01)=""
^DD(864.11,0,"NM","PARAMETER")=""
^DD(864.11,0,"UP")="864.1"
^DD(864.11,.01,0)="PARAMETER NAME^MP863.8^OCXS(863.8,^0;1^Q"
^DD(864.11,.01,1,0)="^.1"
^DD(864.11,.01,1,1,0)="864.11^B"
^DD(864.11,.01,1,1,1)="S ^OCXS(864.1,DA(1),""PAR"",""B"",$E(X,1,30),DA)="""""
^DD(864.11,.01,1,1,2)="K ^OCXS(864.1,DA(1),""PAR"",""B"",$E(X,1,30),DA)"
^DD(864.11,.01,1,2,0)="864.1^APAR"
^DD(864.11,.01,1,2,1)="S ^OCXS(864.1,""APAR"",$E(X,1,30),DA(1),DA)="""""
^DD(864.11,.01,1,2,2)="K ^OCXS(864.1,""APAR"",$E(X,1,30),DA(1),DA)"
^DD(864.11,.01,1,2,"%D",0)="^^1^1^2950830^"
^DD(864.11,.01,1,2,"%D",1,0)="Rapidly identify all parameters associated with a given function"
^DD(864.11,.01,1,2,"DT")="2950830"
^DD(864.11,.01,"DT")="2950830"
^DD(864.11,1,0)="VALUE^F^^VAL;E1,200^K:$L(X)>200!($L(X)<1) X"
^DD(864.11,1,3)="Answer must be 1-200 characters in length."
^DD(864.11,1,"DT")="2941206"
^DD(864.11,"B","PARAMETER NAME",.01)=""
^DD(864.11,"B","VALUE",1)=""
^DD(864.11,"GL",0,1,.01)=""
^DD(864.11,"GL","VAL","E1,200",1)=""
^DD(864.11,"IX",.01)=""
^DD(869.1,0)="FIELD^^200^5"
^DD(869.1,0,"DDA")="N"
^DD(869.1,0,"DT")="2950227"
^DD(869.1,0,"IX","B",869.1,.01)=""
^DD(869.1,0,"NM","HL LOWER LEVEL PROTOCOL TYPE")=""
^DD(869.1,0,"PT",869.2,.02)=""
^DD(869.1,0,"PT",870,2)=""
^DD(869.1,0,"VR")="1.6"
^DD(869.1,0,"VRPK")="HL"
^DD(869.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(869.1,.01,1,0)="^.1"
^DD(869.1,.01,1,1,0)="869.1^B"
^DD(869.1,.01,1,1,1)="S ^HLCS(869.1,""B"",$E(X,1,30),DA)="""""
^DD(869.1,.01,1,1,2)="K ^HLCS(869.1,""B"",$E(X,1,30),DA)"
^DD(869.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(869.1,.02,0)="ACTIVE^S^0:NO;1:YES;^0;2^Q"
^DD(869.1,.02,3)="Please Enter a 0 for inactive, 1 for active."
^DD(869.1,.02,"DT")="2950227"
^DD(869.1,.03,0)="SYNONYM^F^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(869.1,.03,3)="Enter the synonym for this protocol."
^DD(869.1,.03,"DT")="2950227"
^DD(869.1,100,0)="BACKGROUND ROUTINE^K^^100;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(869.1,100,3)="This the entry point for the background job releated to this LLP."
^DD(869.1,100,9)="@"
^DD(869.1,100,"DT")="2950227"
^DD(869.1,200,0)="ENVIRONMENT CHECK ROUTINE^K^^200;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(869.1,200,3)="This MUMPS routine will check if the LLP should be started."
^DD(869.1,200,9)="@"
^DD(869.1,200,"DT")="2950227"
^DD(869.1,"B","ACTIVE",.02)=""
^DD(869.1,"B","BACKGROUND ROUTINE",100)=""
^DD(869.1,"B","ENVIRONMENT CHECK ROUTINE",200)=""
^DD(869.1,"B","NAME",.01)=""
^DD(869.1,"B","SYNONYM",.03)=""
^DD(869.1,"GL",0,1,.01)=""
^DD(869.1,"GL",0,2,.02)=""
^DD(869.1,"GL",0,3,.03)=""
^DD(869.1,"GL",100,"E1,245",100)=""
^DD(869.1,"GL",200,"E1,245",200)=""
^DD(869.1,"IX",.01)=""
^DD(869.1,"RQ",.01)=""
^DD(869.2,0)="FIELD^^400.06^43"
^DD(869.2,0,"DDA")="N"
^DD(869.2,0,"DT")="2990707"
^DD(869.2,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^HLCS(869.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(869.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(869.2,0,"IX","B",869.2,.01)=""
^DD(869.2,0,"NM","HL LOWER LEVEL PROTOCOL PARAMETER")=""
^DD(869.2,0,"VR")="1.6"
^DD(869.2,0,"VRPK")="HL"
^DD(869.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(869.2,.01,1,0)="^.1"
^DD(869.2,.01,1,1,0)="869.2^B"
^DD(869.2,.01,1,1,1)="S ^HLCS(869.2,""B"",$E(X,1,30),DA)="""""
^DD(869.2,.01,1,1,2)="K ^HLCS(869.2,""B"",$E(X,1,30),DA)"
^DD(869.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(869.2,.02,0)="LLP TYPE^RP869.1'^HLCS(869.1,^0;2^Q"
^DD(869.2,.02,3)="Enter the Type of Lower Layer Protocol for this link."
^DD(869.2,.02,"DT")="2990707"
^DD(869.2,100.01,0)="MAIL GROUP^P3.8'^XMB(3.8,^100;1^Q"
^DD(869.2,100.01,3)="Mail Group to deliver messages. Only used for MailMan LLP."
^DD(869.2,100.01,"DT")="2950227"
^DD(869.2,200.01,0)="HLLP DEVICE^P3.5'^%ZIS(1,^200;1^Q"
^DD(869.2,200.01,3)="Enter Name of Device for this logical link."
^DD(869.2,200.01,"DT")="2950313"
^DD(869.2,200.02,0)="RE-TRANSMISION ATTEMPTS^NJ2,0^^200;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(869.2,200.02,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(869.2,200.02,21,0)="^^3^3^2990623^^^"
^DD(869.2,200.02,21,1,0)="Enter the number of times to re-try sending a message.  The default is"
^DD(869.2,200.02,21,2,0)="5 tries if this field is left blank. If a single message exceeds this"
^DD(869.2,200.02,21,3,0)="value an Alert is sent to the HL7 mail group and the link is shutdown."
^DD(869.2,200.02,"DT")="2990623"
^DD(869.2,200.03,0)="BLOCK SIZE^NJ3,0^^200;3^K:+X'=X!(X>512)!(X<9)!(X?.E1"".""1N.N) X"
^DD(869.2,200.03,3)="Type a number between 9 and 512, 245 is the default and recommended number."
^DD(869.2,200.03,"DT")="2950227"
^DD(869.2,200.04,0)="READ TIMEOUT^NJ2,0^^200;4^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.2,200.04,3)="Enter a number between 1 and 30."
^DD(869.2,200.04,21,0)="^^3^3^2981201^"
^DD(869.2,200.04,21,1,0)=" Number of seconds the Lower Layer Protocol remains in a read"
^DD(869.2,200.04,21,2,0)=" state for data to come in on the link.  The default is 10 seconds"
^DD(869.2,200.04,21,3,0)=" if this field is left blank."
^DD(869.2,200.04,"DT")="2950227"
^DD(869.2,200.05,0)="ACK TIMEOUT^NJ3,0^^200;5^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1N.N) X"
^DD(869.2,200.05,3)="Type a Number between 0 and 300"
^DD(869.2,200.05,21,0)="^^3^3^2981201^"
^DD(869.2,200.05,21,1,0)=" The number of seconds the Lower Layer Protocol waits for an acknowledgement"
^DD(869.2,200.05,21,2,0)=" from the receiving application. If this field is less than the READ TIMEOUT"
^DD(869.2,200.05,21,3,0)=" field, the READ TIMEOUT value will be used."
^DD(869.2,200.05,"DT")="2981201"
^DD(869.2,200.06,0)="LLP START BLOCK^S^11:VT;^200;6^Q"
^DD(869.2,200.06,3)="This is the control character defined in the HLLP specification as the START BLOCK CHARACTER."
^DD(869.2,200.06,"DT")="2950227"
^DD(869.2,200.07,0)="LLP END BLOCK^S^28:FS;^200;7^Q"
^DD(869.2,200.07,3)="This is the control character defined in the HLLP specification as the END BLOCK CHARACTER."
^DD(869.2,200.07,"DT")="2950227"
^DD(869.2,200.08,0)="PROTOCOL ID VERSION^S^21:2.1;22:2.2;^200;8^Q"
^DD(869.2,200.08,3)="This is the version number used by the HLLP."
^DD(869.2,200.08,"DT")="2950227"
^DD(869.2,200.09,0)="UNI-DIRECTIONAL WAIT^NJ2,0^^200;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(869.2,200.09,3)="Type a Number between 0 and 10."
^DD(869.2,200.09,21,0)="^^3^3^2981201^"
^DD(869.2,200.09,21,1,0)="The number of seconds the Lower Layer Protocol waits after sending"
^DD(869.2,200.09,21,2,0)="a messages.  This is only used if the message doesn't want an"
^DD(869.2,200.09,21,3,0)="acknowledgment."
^DD(869.2,200.09,"DT")="2981201"
^DD(869.2,300.01,0)="X3.28 DEVICE^P3.5'^%ZIS(1,^300;1^Q"
^DD(869.2,300.01,3)="Enter the device for this logical link"
^DD(869.2,300.01,"DT")="2950313"
^DD(869.2,300.02,0)="MAXIMUM MESSAGE SIZE^NJ5,0^^300;2^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.2,300.02,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(869.2,300.02,"DT")="2950227"
^DD(869.2,300.03,0)="MAXIMUM BLOCK SIZE^NJ3,0^^300;3^K:+X'=X!(X>245)!(X<9)!(X?.E1"".""1N.N) X"
^DD(869.2,300.03,3)="Type a Number between 9 and 245, 0 Decimal Digits"
^DD(869.2,300.03,"DT")="2950227"
^DD(869.2,300.04,0)="TIMER A^NJ2,0^^300;4^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.2,300.04,3)="Enter the time in seconds for the Responce Timer. The default is 6 seconds if no time is entered."
^DD(869.2,300.04,"DT")="2950227"
^DD(869.2,300.05,0)="TIMER B^NJ2,0^^300;5^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.2,300.05,3)="Enter the time in seconds for the Receive Timer. The default is 3 seconds if no time is entered."
^DD(869.2,300.05,"DT")="2950227"
^DD(869.2,300.06,0)="TIMER D^NJ2,0^^300;6^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.2,300.06,3)="Enter the time for the Inter-Block timer. The default is 30 seconds if no time is specified."
^DD(869.2,300.06,"DT")="2950227"
^DD(869.2,300.07,0)="TIMER E^NJ3,0^^300;7^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.2,300.07,3)="Enter the time for the Line Check Timer. The default is 180 seconds is no time is specified."
^DD(869.2,300.07,"DT")="2950227"
^DD(869.2,300.08,0)="TERM^S^13:CR;^300;8^Q"
^DD(869.2,300.08,3)="This is the control character CR defined by the X3.28 protocol."
^DD(869.2,300.08,"DT")="2950227"
^DD(869.2,300.09,0)="SOH^S^01:SOH;^300;9^Q"
^DD(869.2,300.09,3)="This is the control character SOH as defined by the X3.28 protocol"
^DD(869.2,300.09,"DT")="2950227"
^DD(869.2,300.1,0)="STX^S^02:STX;^300;10^Q"
^DD(869.2,300.1,3)="This the control character STX as defined by the X3.28 protocol."
^DD(869.2,300.1,"DT")="2950227"
^DD(869.2,300.11,0)="ETB^S^23:ETB;^300;11^Q"
^DD(869.2,300.11,3)="This is the control character End of Block as defined for the X3.28 protocol."
^DD(869.2,300.11,"DT")="2950227"
^DD(869.2,300.12,0)="ETX^S^03:ETX;^300;12^Q"
^DD(869.2,300.12,3)="This is the control character that indicates the end of message test."
^DD(869.2,300.12,"DT")="2950227"
^DD(869.2,300.13,0)="EOT^S^04:EOT;^300;13^Q"
^DD(869.2,300.13,3)="This is the control character that indicates the End of Transmission."
^DD(869.2,300.13,"DT")="2950227"
^DD(869.2,300.14,0)="ENQ^S^05:ENQ;^300;14^Q"
^DD(869.2,300.14,3)="This is the control character that indicates an Enquiry."
^DD(869.2,300.14,"DT")="2950227"
^DD(869.2,300.15,0)="RINT^S^60:RINT;^300;15^Q"
^DD(869.2,300.15,3)="This is the control character that indicates an RINIT char."
^DD(869.2,300.15,"DT")="2950227"
^DD(869.2,300.16,0)="DLE^S^16:DLE;^300;16^Q"
^DD(869.2,300.16,3)="This is the control character DLE for the X3.28 protocol."
^DD(869.2,300.16,"DT")="2950227"
^DD(869.2,300.17,0)="NAK^S^21:NAK;^300;17^Q"
^DD(869.2,300.17,3)="This is the NAK control character."
^DD(869.2,300.17,"DT")="2950227"
^DD(869.2,300.18,0)="ACK0^S^48:ACK0;^300;18^Q"
^DD(869.2,300.18,3)="This is the control character ACK0 for the X3.28 protocol."
^DD(869.2,300.18,"DT")="2950227"
^DD(869.2,300.19,0)="ACK1^S^49:ACK1;^300;19^Q"
^DD(869.2,300.19,3)="This is the control character ACK1 for the X3.28 protocol."
^DD(869.2,300.19,"DT")="2950227"
^DD(869.2,300.2,0)="ACK2^S^50:ACK2;^300;20^Q"
^DD(869.2,300.2,3)="This is the control character ACK2 for the X3.28 protocol."
^DD(869.2,300.2,"DT")="2950227"
^DD(869.2,300.21,0)="ACK3^S^51:ACK3;^300;21^Q"
^DD(869.2,300.21,3)="This is the control character ACK3 for the X3.28 protocol."
^DD(869.2,300.21,"DT")="2950227"
^DD(869.2,300.22,0)="ACK4^S^52:ACK4;^300;22^Q"
^DD(869.2,300.22,3)="This is the control character ACK4 for the X3.28 protocol."
^DD(869.2,300.22,"DT")="2950227"
^DD(869.2,300.23,0)="ACK5^S^53:ACK5;^300;23^Q"
^DD(869.2,300.23,3)="This is the control character ACK5 for the X3.28 protocol."
^DD(869.2,300.23,"DT")="2950227"
^DD(869.2,300.24,0)="ACK6^S^54:ACK5;^300;24^Q"
^DD(869.2,300.24,3)="This is the control character ACK6 for the X3.28 protocol."
^DD(869.2,300.24,"DT")="2950227"
^DD(869.2,300.25,0)="ACK7^S^55:ACK7;^300;25^Q"
^DD(869.2,300.25,3)="This is the control character ACK7 for the X3.28 protocol."
^DD(869.2,300.25,"DT")="2950227"
^DD(869.2,400.01,0)="TCP/IP ADDRESS^Fa^^400;1^K:$L(X)>40!($L(X)<7) X"
^DD(869.2,400.01,3)="Enter the TCP/IP address for the remote host"
^DD(869.2,400.01,"AUDIT")="y"
^DD(869.2,400.01,"DT")="2950720"
^DD(869.2,400.02,0)="TCP/IP PORT^NJ5,0a^^400;2^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.2,400.02,3)="Enter the TCP/IP port"
^DD(869.2,400.02,"AUDIT")="y"
^DD(869.2,400.02,"DT")="2950720"
^DD(869.2,400.03,0)="TCP/IP SERVICE TYPE^S^C:CLIENT (SENDER);S:SINGLE LISTENER;M:MULTI LISTENER;^400;3^Q"
^DD(869.2,400.03,21,0)="^^13^13^2980922^^^^"
^DD(869.2,400.03,21,1,0)="This field determines if the Logical Link is the client (sender) or"
^DD(869.2,400.03,21,2,0)="a listener (server) of a message.  Choose from:"
^DD(869.2,400.03,21,3,0)=" CLIENT (SENDER):"
^DD(869.2,400.03,21,4,0)="  Indicates that this Logical Link connects to a target system, with"
^DD(869.2,400.03,21,5,0)="  the current system acting as the sender."
^DD(869.2,400.03,21,6,0)=" "
^DD(869.2,400.03,21,7,0)=" SINGLE LISTENER:"
^DD(869.2,400.03,21,8,0)="  Designates that the current system is a server (listener), using a"
^DD(869.2,400.03,21,9,0)="  single M process to do the listening."
^DD(869.2,400.03,21,10,0)=" "
^DD(869.2,400.03,21,11,0)=" MULTI LISTENER:"
^DD(869.2,400.03,21,12,0)="  Designates that the current system is a server (listener), creating"
^DD(869.2,400.03,21,13,0)="  multiple background processes."
^DD(869.2,400.03,"DT")="2980922"
^DD(869.2,400.04,0)="PERSISTENT^S^Y:YES;N:NO;^400;4^Q"
^DD(869.2,400.04,21,0)="^^5^5^2980917^^^"
^DD(869.2,400.04,21,1,0)="Enter 'YES' if this connection needs to remain open even if there are"
^DD(869.2,400.04,21,2,0)="no messages to send.  The connection will remain open until it is"
^DD(869.2,400.04,21,3,0)="disconnected by either side via shutting-down the logical link.  A"
^DD(869.2,400.04,21,4,0)="setting of 'YES' is appropriate for connecting to a COTS device with "
^DD(869.2,400.04,21,5,0)="a high volume of messages."
^DD(869.2,400.04,"DT")="2980820"
^DD(869.2,400.05,0)="RETENTION^NJ6,0^^400;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(869.2,400.05,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(869.2,400.05,21,0)="^^6^6^2990601^"
^DD(869.2,400.05,21,1,0)="Retention is the maximum time in seconds in which a non-persistent"
^DD(869.2,400.05,21,2,0)="LLP will wait after the associated queue has been emptied.  If further"
^DD(869.2,400.05,21,3,0)="messages arrive in the queue before the retention time has expired,"
^DD(869.2,400.05,21,4,0)="the LLP will continue to dequeue and send messages.  Otherwise,"
^DD(869.2,400.05,21,5,0)="the LLP will become inactive and will remain inactive until further"
^DD(869.2,400.05,21,6,0)="messages are queued."
^DD(869.2,400.05,"DT")="2990518"
^DD(869.2,400.06,0)="STARTUP NODE^P14.7'^%ZIS(14.7,^400;6^Q"
^DD(869.2,400.06,3)="Enter the Taskman node to start this LLP on."
^DD(869.2,400.06,21,0)="^^7^7^2980305^"
^DD(869.2,400.06,21,1,0)="This field is ONLY for VMS sites running Dual Taskman in DCL."
^DD(869.2,400.06,21,2,0)=" "
^DD(869.2,400.06,21,3,0)="This field is used to specify what Taskman node you want to job"
^DD(869.2,400.06,21,4,0)="the Lower Level Protocol.  It should only be used if you have two"
^DD(869.2,400.06,21,5,0)="Taskmans running and only want the LLP to run on a particular node."
^DD(869.2,400.06,21,6,0)="It will only work if you are running the dual Taskmans in DCL context"
^DD(869.2,400.06,21,7,0)="on a VMS system."
^DD(869.2,400.06,"DT")="2980305"
^DD(869.2,"AUDIT",400.01)=""
^DD(869.2,"AUDIT",400.02)=""
^DD(869.2,"B","ACK TIMEOUT",200.05)=""
^DD(869.2,"B","ACK0",300.18)=""
^DD(869.2,"B","ACK1",300.19)=""
^DD(869.2,"B","ACK2",300.2)=""
^DD(869.2,"B","ACK3",300.21)=""
^DD(869.2,"B","ACK4",300.22)=""
^DD(869.2,"B","ACK5",300.23)=""
^DD(869.2,"B","ACK6",300.24)=""
^DD(869.2,"B","ACK7",300.25)=""
^DD(869.2,"B","BLOCK SIZE",200.03)=""
^DD(869.2,"B","DLE",300.16)=""
^DD(869.2,"B","ENQ",300.14)=""
^DD(869.2,"B","EOT",300.13)=""
^DD(869.2,"B","ETB",300.11)=""
^DD(869.2,"B","ETX",300.12)=""
^DD(869.2,"B","HLLP DEVICE",200.01)=""
^DD(869.2,"B","LLP END BLOCK",200.07)=""
^DD(869.2,"B","LLP START BLOCK",200.06)=""
^DD(869.2,"B","LLP TYPE",.02)=""
^DD(869.2,"B","MAIL GROUP",100.01)=""
^DD(869.2,"B","MAXIMUM BLOCK SIZE",300.03)=""
^DD(869.2,"B","MAXIMUM MESSAGE SIZE",300.02)=""
^DD(869.2,"B","NAK",300.17)=""
^DD(869.2,"B","NAME",.01)=""
^DD(869.2,"B","PERSISTENT",400.04)=""
^DD(869.2,"B","PROTOCOL ID VERSION",200.08)=""
^DD(869.2,"B","RE-TRANSMISION ATTEMPTS",200.02)=""
^DD(869.2,"B","READ TIMEOUT",200.04)=""
^DD(869.2,"B","RETENTION",400.05)=""
^DD(869.2,"B","RINT",300.15)=""
^DD(869.2,"B","SOH",300.09)=""
^DD(869.2,"B","STARTUP NODE",400.06)=""
^DD(869.2,"B","STX",300.1)=""
^DD(869.2,"B","TCP/IP ADDRESS",400.01)=""
^DD(869.2,"B","TCP/IP PORT",400.02)=""
^DD(869.2,"B","TCP/IP SERVICE TYPE",400.03)=""
^DD(869.2,"B","TERM",300.08)=""
^DD(869.2,"B","TIMER A",300.04)=""
^DD(869.2,"B","TIMER B",300.05)=""
^DD(869.2,"B","TIMER D",300.06)=""
^DD(869.2,"B","TIMER E",300.07)=""
^DD(869.2,"B","UNI-DIRECTIONAL WAIT",200.09)=""
^DD(869.2,"B","X3.28 DEVICE",300.01)=""
^DD(869.2,"GL",0,1,.01)=""
^DD(869.2,"GL",0,2,.02)=""
^DD(869.2,"GL",100,1,100.01)=""
^DD(869.2,"GL",200,1,200.01)=""
^DD(869.2,"GL",200,2,200.02)=""
^DD(869.2,"GL",200,3,200.03)=""
^DD(869.2,"GL",200,4,200.04)=""
^DD(869.2,"GL",200,5,200.05)=""
^DD(869.2,"GL",200,6,200.06)=""
^DD(869.2,"GL",200,7,200.07)=""
^DD(869.2,"GL",200,8,200.08)=""
^DD(869.2,"GL",200,9,200.09)=""
^DD(869.2,"GL",300,1,300.01)=""
^DD(869.2,"GL",300,2,300.02)=""
^DD(869.2,"GL",300,3,300.03)=""
^DD(869.2,"GL",300,4,300.04)=""
^DD(869.2,"GL",300,5,300.05)=""
^DD(869.2,"GL",300,6,300.06)=""
^DD(869.2,"GL",300,7,300.07)=""
^DD(869.2,"GL",300,8,300.08)=""
^DD(869.2,"GL",300,9,300.09)=""
^DD(869.2,"GL",300,10,300.1)=""
^DD(869.2,"GL",300,11,300.11)=""
^DD(869.2,"GL",300,12,300.12)=""
^DD(869.2,"GL",300,13,300.13)=""
^DD(869.2,"GL",300,14,300.14)=""
^DD(869.2,"GL",300,15,300.15)=""
^DD(869.2,"GL",300,16,300.16)=""
^DD(869.2,"GL",300,17,300.17)=""
^DD(869.2,"GL",300,18,300.18)=""
^DD(869.2,"GL",300,19,300.19)=""
^DD(869.2,"GL",300,20,300.2)=""
^DD(869.2,"GL",300,21,300.21)=""
^DD(869.2,"GL",300,22,300.22)=""
^DD(869.2,"GL",300,23,300.23)=""
^DD(869.2,"GL",300,24,300.24)=""
^DD(869.2,"GL",300,25,300.25)=""
^DD(869.2,"GL",400,1,400.01)=""
^DD(869.2,"GL",400,2,400.02)=""
^DD(869.2,"GL",400,3,400.03)=""
^DD(869.2,"GL",400,4,400.04)=""
^DD(869.2,"GL",400,5,400.05)=""
^DD(869.2,"GL",400,6,400.06)=""
^DD(869.2,"IX",.01)=""
^DD(869.2,"RQ",.01)=""
^DD(869.2,"RQ",.02)=""
^DD(869.3,0)="FIELD^^93^26"
^DD(869.3,0,"DDA")="N"
^DD(869.3,0,"DT")="3070130"
^DD(869.3,0,"IX","B",869.3,.01)=""
^DD(869.3,0,"NM","HL COMMUNICATION SERVER PARAMETERS")=""
^DD(869.3,0,"VR")="1.6"
^DD(869.3,0,"VRPK")="HL"
^DD(869.3,.01,0)="ONE^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,.01,1,0)="^.1"
^DD(869.3,.01,1,1,0)="869.3^B"
^DD(869.3,.01,1,1,1)="S ^HLCS(869.3,""B"",$E(X,1,30),DA)="""""
^DD(869.3,.01,1,1,2)="K ^HLCS(869.3,""B"",$E(X,1,30),DA)"
^DD(869.3,.01,3)="Enter the number 1 (only one entry is allowed)"
^DD(869.3,.01,21,0)="^^1^1^2950515^^"
^DD(869.3,.01,21,1,0)="Stub field used to create one [and only one] entry"
^DD(869.3,.01,"DT")="2950515"
^DD(869.3,.02,0)="DOMAIN^P4.2'^DIC(4.2,^0;2^Q"
^DD(869.3,.02,3)="Enter the Domain Name of this environment"
^DD(869.3,.02,21,0)="^^4^4^2980427^"
^DD(869.3,.02,21,1,0)="The domain name for this environment must be unique to all environments"
^DD(869.3,.02,21,2,0)="running at your site. For example, if your production domain is"
^DD(869.3,.02,21,3,0)="SITE.MED.VA.GOV and this is your test system, you must have an entry in"
^DD(869.3,.02,21,4,0)="your domain file that is different such as TEST.SITE.MED.VA.GOV."
^DD(869.3,.02,"DT")="2980427"
^DD(869.3,.03,0)="DEFAULT PROCESSING ID^RS^P:production;T:training;^0;3^Q"
^DD(869.3,.03,3)="Enter the default PROCESSING ID for this account."
^DD(869.3,.03,21,0)="^^14^14^2991207^"
^DD(869.3,.03,21,1,0)="What type of environment is this account? The messaging system will not"
^DD(869.3,.03,21,2,0)="permit messages to be sent from one type of environment to a different"
^DD(869.3,.03,21,3,0)="type. The third Processing ID used by HL7 is DEBUG. This mode must be"
^DD(869.3,.03,21,4,0)="defined on the EVENT DRIVER protocol on both the sending and receiving"
^DD(869.3,.03,21,5,0)="systems."
^DD(869.3,.03,21,6,0)=" "
^DD(869.3,.03,21,7,0)="An error will be logged when the PID for an inbound message is"
^DD(869.3,.03,21,8,0)="inappropriate for the receiving system."
^DD(869.3,.03,21,9,0)=" "
^DD(869.3,.03,21,10,0)="Note: Ideally, TRAINING and PRODUCTION designations are maintained in"
^DD(869.3,.03,21,11,0)="separate accounts. Application processing routines should be aware of the"
^DD(869.3,.03,21,12,0)="PID field when processing a message. Routines designed for a production"
^DD(869.3,.03,21,13,0)="environment will probably want to process messages differently when"
^DD(869.3,.03,21,14,0)="TRAINING or DEBUG mode is set."
^DD(869.3,.03,"DT")="2991207"
^DD(869.3,.04,0)="INSTITUTION^P4'^DIC(4,^0;4^Q"
^DD(869.3,.04,21,0)="^^3^3^2980428^"
^DD(869.3,.04,21,1,0)="This entry will be used in the sending facility field of HL7 message"
^DD(869.3,.04,21,2,0)="headers unless the application overrides this function by defining a"
^DD(869.3,.04,21,3,0)="facility in the Application Parameter file."
^DD(869.3,.04,"DT")="2980428"
^DD(869.3,.05,0)="MAIL GROUP^P3.8^XMB(3.8,^0;5^Q"
^DD(869.3,.05,3)="To be used for alerts and notifications"
^DD(869.3,.05,21,0)="^^3^3^2980430^"
^DD(869.3,.05,21,1,0)="This mail group should contain local IRM staff responsible for monitoring"
^DD(869.3,.05,21,2,0)="the messaging system. This group will be used for delivery of alerts or"
^DD(869.3,.05,21,3,0)="notification of significant events related to Messaging System operations."
^DD(869.3,.05,"DT")="2980430"
^DD(869.3,11,0)="DEFAULT NUMBER INCOMING FILERS^NJ2,0^^1;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,11,3)="Enter the default number of incoming filers"
^DD(869.3,11,21,0)="^^1^1^2950515^"
^DD(869.3,11,21,1,0)="This is the default number of background filers that will be started"
^DD(869.3,11,"DT")="2950515"
^DD(869.3,12,0)="DEFAULT NUMBER OUTGOING FILERS^NJ2,0^^1;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,12,3)="Enter the default number of outgoing filers"
^DD(869.3,12,21,0)="^^1^1^2950522^^"
^DD(869.3,12,21,1,0)="This is the default number of outgoing filers that will be started"
^DD(869.3,12,"DT")="2950522"
^DD(869.3,20,0)="INCOMING FILER TASK NUMBER^869.32^^2;0"
^DD(869.3,30,0)="OUTGOING FILER TASK NUMBER^869.33^^3;0"
^DD(869.3,41,0)="PURGE COMPLETED MESSAGES^NJ3,0^^4;1^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,41,3)="Type a Number to represent the days kept for ""Successfully Completed"" messages.  The default number of days is 7."
^DD(869.3,41,21,0)="^.001^4^4^3010907^^^"
^DD(869.3,41,21,1,0)="The number of days ""Successfully Completed"" messages are retained before"
^DD(869.3,41,21,2,0)="they are purged.  If no value is entered, the default is 7 days.  Used as"
^DD(869.3,41,21,3,0)="the actual value when the ""Purge Messages"" option is scheduled through"
^DD(869.3,41,21,4,0)="TaskMan, and as the default when run interactively."
^DD(869.3,41,"DT")="2990304"
^DD(869.3,42,0)="PURGE AWAITING ACK MESSAGES^NJ3,0^^4;2^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,42,3)="Type a Number representing the days kept for ""AWAITING APPLICATION ACKNOWLEDGEMENT"" messages. The default number of days is 30."
^DD(869.3,42,21,0)="^^4^4^2990616^"
^DD(869.3,42,21,1,0)="The number of days ""Awaiting Application Acknowledgement"" messages are"
^DD(869.3,42,21,2,0)="retained before they are purged.  If no value is entered, the default"
^DD(869.3,42,21,3,0)="is 30 days.  Used as the actual value when the ""Purge Messages"" option is"
^DD(869.3,42,21,4,0)="scheduled through TaskMan, and as the default when run interactively."
^DD(869.3,42,"DT")="2990304"
^DD(869.3,43,0)="PURGE ALL MESSAGES^NJ3,0^^4;3^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,43,3)="Type a Number representing the days kept for all messages regardless of status(except for ERROR status messages).  The default number of days is 90."
^DD(869.3,43,21,0)="^^5^5^2990616^"
^DD(869.3,43,21,1,0)="The number of days that any status message are retained before they are"
^DD(869.3,43,21,2,0)="purged(except for ERROR status messages).  If no value is entered, the"
^DD(869.3,43,21,3,0)="default is 90 days.  Used as the actual value when the ""Purge Messages"""
^DD(869.3,43,21,4,0)="option is scheduled through TaskMan, and as the default when run"
^DD(869.3,43,21,5,0)="interactively."
^DD(869.3,43,"DT")="2990304"
^DD(869.3,44,0)="PURGE ERROR STATUS MESSAGES^NJ3,0^^4;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,44,3)="Type a Number to represent the days to keep error status messages messages.  The default number of days is 90."
^DD(869.3,44,21,0)="^^4^4^3030210^"
^DD(869.3,44,21,1,0)="The number of days error status messages are retained before they are "
^DD(869.3,44,21,2,0)="purged.  90 days is used as the actual value when the ""Purge Messages"" "
^DD(869.3,44,21,3,0)="option is scheduled through TaskMan, and as the default when run "
^DD(869.3,44,21,4,0)="interactively."
^DD(869.3,44,"DT")="3030210"
^DD(869.3,51,0)="DEFAULT RETENTION^NJ6,0^^5;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(869.3,51,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(869.3,51,21,0)="^^14^14^2990614^^^^"
^DD(869.3,51,21,1,0)="Used by the TCP/IP Link Manager. The maximum time, in seconds,"
^DD(869.3,51,21,2,0)="in which the process supporting a non-persistent TCP/IP client"
^DD(869.3,51,21,3,0)="logical link will wait for new messages before terminating."
^DD(869.3,51,21,4,0)="Upon expiration of the retention time, the process will terminate, "
^DD(869.3,51,21,5,0)="and the logical link will become inactive and remain inactive"
^DD(869.3,51,21,6,0)="until further messages are queued."
^DD(869.3,51,21,7,0)=" "
^DD(869.3,51,21,8,0)="The value entered here is the DEFAULT RETENTION time.  This value will"
^DD(869.3,51,21,9,0)="be used if the RETENTION field (#400.05) in the HL LOWER LEVEL PROTOCOL PARAMETER"
^DD(869.3,51,21,10,0)="file (#869.2) is not valued for a given LLP."
^DD(869.3,51,21,11,0)=" "
^DD(869.3,51,21,12,0)="If no value has been entered in both DEFAULT RETENTION and RETENTION"
^DD(869.3,51,21,13,0)="fields for a given non-persistent LLP, a default time of 15 seconds"
^DD(869.3,51,21,14,0)="will be used as the retention time."
^DD(869.3,51,"DT")="2990601"
^DD(869.3,52,0)="LINK MANAGER TASK NUMBER^NJ15,0^^5;2^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.3,52,3)="Type a Number between 1 and 999999999999999, 0 Decimal Digits"
^DD(869.3,52,21,0)="^^3^3^2990615^^"
^DD(869.3,52,21,1,0)="This field is internally edited by the Link Manager.  When the Link Manager"
^DD(869.3,52,21,2,0)="starts, this field is updated with the value of the Link Manager's task"
^DD(869.3,52,21,3,0)="number."
^DD(869.3,52,"DT")="2990614"
^DD(869.3,53,0)="STOP LINK MANAGER^S^0:NO;1:YES;^5;3^Q"
^DD(869.3,53,3)="Enter YES if the Link Manager should be stopped"
^DD(869.3,53,21,0)="^^5^5^2990615^^^^"
^DD(869.3,53,21,1,0)="Flag indicating whether the Link Manager should be stopped."
^DD(869.3,53,21,2,0)="This field is updated by the TCP/IP Link Manager as well"
^DD(869.3,53,21,3,0)="as through the TCP/IP Link Manager Start/Stop option."
^DD(869.3,53,21,4,0)="Use this option rather than directly editing this field to"
^DD(869.3,53,21,5,0)="start/stop the TCP/IP Link Manager."
^DD(869.3,53,"DT")="2990614"
^DD(869.3,54,0)="LM LAST KNOWN $H^F^^5;4^K:$L(X)>13!($L(X)<1)!'(X?1.7N1"",""1.5N) X"
^DD(869.3,54,3)="Answer must be 1-13 characters in length."
^DD(869.3,54,21,0)="^^6^6^2990712^"
^DD(869.3,54,21,1,0)="This field is updated periodically by the Link Manager with the $Horolog"
^DD(869.3,54,21,2,0)="value at the time of the update.  The Systems Link Monitor uses"
^DD(869.3,54,21,3,0)="this information along with the LINK MANAGER TASK NUMBER"
^DD(869.3,54,21,4,0)="to determine whether the Link Manager is running."
^DD(869.3,54,21,5,0)="Therefore, the use of this field should be restricted for internal use only"
^DD(869.3,54,21,6,0)="and should not edited."
^DD(869.3,54,"DT")="2990706"
^DD(869.3,60,0)="LINK MONITOR VIEWS^869.31^^6;0"
^DD(869.3,60,21,0)="^^3^3^3000612^"
^DD(869.3,60,21,1,0)="Use this multiple to define VIEWS that can be used in the System Link"
^DD(869.3,60,21,2,0)="Monitor option.  A VIEW is a list of Logical Links to display in the"
^DD(869.3,60,21,3,0)="System Link Monitor."
^DD(869.3,60,"DT")="3000530"
^DD(869.3,70,0)="PING IP^869.34^^7;0"
^DD(869.3,70,"DT")="3070130"
^DD(869.3,80,0)="PING DOMAIN (PARTIAL)^869.35^^8;0"
^DD(869.3,80,"DT")="3070130"
^DD(869.3,90,0)="DON'T PING PORT^869.36^^9;0"
^DD(869.3,91,0)="DON'T PING LINK NAME (PARTIAL)^869.391^^10;0"
^DD(869.3,91,"DT")="3070130"
^DD(869.3,92,0)="DON'T PING IP^869.392^^11;0"
^DD(869.3,93,0)="DON'T PING DOMAIN (FULL)^869.393^^12;0"
^DD(869.3,772,0)="LAST IEN, FILE 772^NJ10,0^^772;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(869.3,772,3)="Enter the last ien used for file 772."
^DD(869.3,772,21,0)="^^2^2^3031104^"
^DD(869.3,772,21,1,0)="The node 772 should have no other fields.  It is used as a counter to assign"
^DD(869.3,772,21,2,0)="an ien to a new record."
^DD(869.3,772,"DT")="3031104"
^DD(869.3,773,0)="LAST IEN, FILE 773^NJ10,0^^773;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(869.3,773,3)="Enter the last ien used for file 773."
^DD(869.3,773,21,0)="^^2^2^3031104^"
^DD(869.3,773,21,1,0)="The node 773 should have no other fields.  It is used as a counter to assign"
^DD(869.3,773,21,2,0)="an ien to a new record."
^DD(869.3,773,"DT")="3031104"
^DD(869.3,"B","DEFAULT NUMBER INCOMING FILERS",11)=""
^DD(869.3,"B","DEFAULT NUMBER OUTGOING FILERS",12)=""
^DD(869.3,"B","DEFAULT PROCESSING ID",.03)=""
^DD(869.3,"B","DEFAULT RETENTION",51)=""
^DD(869.3,"B","DOMAIN",.02)=""
^DD(869.3,"B","DON'T PING DOMAIN (FULL)",93)=""
^DD(869.3,"B","DON'T PING IP",92)=""
^DD(869.3,"B","DON'T PING LINK NAME (PARTIAL)",91)=""
^DD(869.3,"B","DON'T PING PORT",90)=""
^DD(869.3,"B","INCOMING FILER TASK NUMBER",20)=""
^DD(869.3,"B","INSTITUTION",.04)=""
^DD(869.3,"B","LAST IEN, FILE 772",772)=""
^DD(869.3,"B","LAST IEN, FILE 773",773)=""
^DD(869.3,"B","LINK MANAGER TASK NUMBER",52)=""
^DD(869.3,"B","LINK MONITOR VIEWS",60)=""
^DD(869.3,"B","LM LAST KNOWN $H",54)=""
^DD(869.3,"B","MAIL GROUP",.05)=""
^DD(869.3,"B","ONE",.01)=""
^DD(869.3,"B","OUTGOING FILER TASK NUMBER",30)=""
^DD(869.3,"B","PING DOMAIN (PARTIAL)",80)=""
^DD(869.3,"B","PING IP",70)=""
^DD(869.3,"B","PURGE ALL MESSAGES",43)=""
^DD(869.3,"B","PURGE AWAITING ACK MESSAGES",42)=""
^DD(869.3,"B","PURGE COMPLETED MESSAGES",41)=""
^DD(869.3,"B","PURGE ERROR STATUS MESSAGES",44)=""
^DD(869.3,"B","STOP LINK MANAGER",53)=""
^DD(869.3,"GL",0,1,.01)=""
^DD(869.3,"GL",0,2,.02)=""
^DD(869.3,"GL",0,3,.03)=""
^DD(869.3,"GL",0,4,.04)=""
^DD(869.3,"GL",0,5,.05)=""
^DD(869.3,"GL",1,1,11)=""
^DD(869.3,"GL",1,2,12)=""
^DD(869.3,"GL",2,0,20)=""
^DD(869.3,"GL",3,0,30)=""
^DD(869.3,"GL",4,1,41)=""
^DD(869.3,"GL",4,2,42)=""
^DD(869.3,"GL",4,3,43)=""
^DD(869.3,"GL",4,4,44)=""
^DD(869.3,"GL",5,1,51)=""
^DD(869.3,"GL",5,2,52)=""
^DD(869.3,"GL",5,3,53)=""
^DD(869.3,"GL",5,4,54)=""
^DD(869.3,"GL",6,0,60)=""
^DD(869.3,"GL",7,0,70)=""
^DD(869.3,"GL",8,0,80)=""
^DD(869.3,"GL",9,0,90)=""
^DD(869.3,"GL",10,0,91)=""
^DD(869.3,"GL",11,0,92)=""
^DD(869.3,"GL",12,0,93)=""
^DD(869.3,"GL",772,1,772)=""
^DD(869.3,"GL",773,1,773)=""
^DD(869.3,"IX",.01)=""
^DD(869.3,"RQ",.01)=""
^DD(869.3,"RQ",.03)=""
^DD(869.3,"SB",869.31,60)=""
^DD(869.3,"SB",869.32,20)=""
^DD(869.3,"SB",869.33,30)=""
^DD(869.3,"SB",869.34,70)=""
^DD(869.3,"SB",869.35,80)=""
^DD(869.3,"SB",869.36,90)=""
^DD(869.3,"SB",869.391,91)=""
^DD(869.3,"SB",869.392,92)=""
^DD(869.3,"SB",869.393,93)=""
^DD(869.31,0)="LINK MONITOR VIEWS SUB-FIELD^^1^2"
^DD(869.31,0,"DT")="3000530"
^DD(869.31,0,"IX","B",869.31,.01)=""
^DD(869.31,0,"NM","LINK MONITOR VIEWS")=""
^DD(869.31,0,"UP")="869.3"
^DD(869.31,.01,0)="LINK MONITOR VIEWS^MF^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(869.31,.01,1,0)="^.1"
^DD(869.31,.01,1,1,0)="869.31^B"
^DD(869.31,.01,1,1,1)="S ^HLCS(869.3,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(869.31,.01,1,1,2)="K ^HLCS(869.3,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(869.31,.01,3)="Answer must be 3-20 characters in length"
^DD(869.31,.01,21,0)="^.001^2^2^3000530^^"
^DD(869.31,.01,21,1,0)="This multiple contains views of Logicial Links to be used with the"
^DD(869.31,.01,21,2,0)="System Link Monitor."
^DD(869.31,.01,"DT")="3000601"
^DD(869.31,1,0)="LOGICAL LINK^869.311PA^^1;0"
^DD(869.31,"B","LINK MONITOR VIEWS",.01)=""
^DD(869.31,"B","LOGICAL LINK",1)=""
^DD(869.31,"GL",0,1,.01)=""
^DD(869.31,"GL",1,0,1)=""
^DD(869.31,"IX",.01)=""
^DD(869.31,"SB",869.311,1)=""
^DD(869.311,0)="LOGICAL LINK SUB-FIELD^^1^2"
^DD(869.311,0,"DT")="3000530"
^DD(869.311,0,"IX","B",869.311,.01)=""
^DD(869.311,0,"NM","LOGICAL LINK")=""
^DD(869.311,0,"UP")="869.31"
^DD(869.311,.01,0)="LOGICAL LINK^MRP870'X^HLCS(870,^0;1^S DINUM=+X"
^DD(869.311,.01,1,0)="^.1"
^DD(869.311,.01,1,1,0)="869.311^B"
^DD(869.311,.01,1,1,1)="S ^HLCS(869.3,DA(2),6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(869.311,.01,1,1,2)="K ^HLCS(869.3,DA(2),6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(869.311,.01,"DT")="3000530"
^DD(869.311,1,0)="DISPLAY ORDER^NJ4,1^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""2N.N) X"
^DD(869.311,1,1,0)="^.1^^0"
^DD(869.311,1,3)="Type a Number between 1 and 99, 1 Decimal Digit"
^DD(869.311,1,21,0)="^^2^2^3000530^"
^DD(869.311,1,21,1,0)="This field determines the order to display the Logical Links in the System"
^DD(869.311,1,21,2,0)="Link Monitor."
^DD(869.311,1,"DT")="3000530"
^DD(869.311,"B","DISPLAY ORDER",1)=""
^DD(869.311,"B","LOGICAL LINK",.01)=""
^DD(869.311,"GL",0,1,.01)=""
^DD(869.311,"GL",0,2,1)=""
^DD(869.311,"IX",.01)=""
^DD(869.311,"RQ",.01)=""
^DD(869.32,0)="INCOMING FILER TASK NUMBER SUB-FIELD^^.03^3"
^DD(869.32,0,"DT")="2950522"
^DD(869.32,0,"IX","B",869.32,.01)=""
^DD(869.32,0,"NM","INCOMING FILER TASK NUMBER")=""
^DD(869.32,0,"UP")="869.3"
^DD(869.32,.01,0)="INCOMING FILER TASK NUMBER^MNJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.32,.01,1,0)="^.1"
^DD(869.32,.01,1,1,0)="869.32^B"
^DD(869.32,.01,1,1,1)="S ^HLCS(869.3,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(869.32,.01,1,1,2)="K ^HLCS(869.3,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(869.32,.01,3)="Enter the task number of an incoming filer"
^DD(869.32,.01,21,0)="^^1^1^2950515^"
^DD(869.32,.01,21,1,0)="This is the task number of an incoming filer"
^DD(869.32,.01,"DT")="2950515"
^DD(869.32,.02,0)="STOP FILER^S^0:NO;1:YES;^0;2^Q"
^DD(869.32,.02,3)="Enter YES if this filer should be stopped"
^DD(869.32,.02,21,0)="^^2^2^2950522^^"
^DD(869.32,.02,21,1,0)="Flag indicating if the incoming filer associated with this entry should"
^DD(869.32,.02,21,2,0)="stop"
^DD(869.32,.02,"DT")="2950515"
^DD(869.32,.03,0)="LAST KNOWN $H^F^^0;3^K:$L(X)>13!($L(X)<1)!'(X?1.7N1"",""1.5N) X"
^DD(869.32,.03,3)="Enter a value for $H"
^DD(869.32,.03,21,0)="^^2^2^2950522^^"
^DD(869.32,.03,21,1,0)="This is the last value of $H that the incoming filer associated with this"
^DD(869.32,.03,21,2,0)="entry recognized"
^DD(869.32,.03,"DT")="2950522"
^DD(869.32,"B","INCOMING FILER TASK NUMBER",.01)=""
^DD(869.32,"B","LAST KNOWN $H",.03)=""
^DD(869.32,"B","STOP FILER",.02)=""
^DD(869.32,"GL",0,1,.01)=""
^DD(869.32,"GL",0,2,.02)=""
^DD(869.32,"GL",0,3,.03)=""
^DD(869.32,"IX",.01)=""
^DD(869.33,0)="OUTGOING FILER TASK NUMBER SUB-FIELD^^.03^3"
^DD(869.33,0,"DT")="2950522"
^DD(869.33,0,"IX","B",869.33,.01)=""
^DD(869.33,0,"NM","OUTGOING FILER TASK NUMBER")=""
^DD(869.33,0,"UP")="869.3"
^DD(869.33,.01,0)="OUTGOING FILER TASK NUMBER^MNJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(869.33,.01,1,0)="^.1"
^DD(869.33,.01,1,1,0)="869.33^B"
^DD(869.33,.01,1,1,1)="S ^HLCS(869.3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(869.33,.01,1,1,2)="K ^HLCS(869.3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(869.33,.01,3)="Enter the task number of an outgoing filer"
^DD(869.33,.01,21,0)="^^1^1^2950516^"
^DD(869.33,.01,21,1,0)="This is the task number of an outgoing filer"
^DD(869.33,.01,"DT")="2950516"
^DD(869.33,.02,0)="STOP FILER^S^0:NO;1:YES;^0;2^Q"
^DD(869.33,.02,3)="Enter YES if this filer should be stopped"
^DD(869.33,.02,21,0)="^^2^2^2950516^"
^DD(869.33,.02,21,1,0)="Flag indicating if the outgoing filer associated with this entry should"
^DD(869.33,.02,21,2,0)="stop"
^DD(869.33,.02,"DT")="2950516"
^DD(869.33,.03,0)="LAST KNOWN $H^F^^0;3^K:$L(X)>13!($L(X)<1)!'(X?1.7N1"",""1.5N) X"
^DD(869.33,.03,3)="Enter a value for $H"
^DD(869.33,.03,21,0)="^^2^2^2950522^^"
^DD(869.33,.03,21,1,0)="This is the last value of $H that the outgoing filer associated with this"
^DD(869.33,.03,21,2,0)="entry recognized"
^DD(869.33,.03,"DT")="2950522"
^DD(869.33,"B","LAST KNOWN $H",.03)=""
^DD(869.33,"B","OUTGOING FILER TASK NUMBER",.01)=""
^DD(869.33,"B","STOP FILER",.02)=""
^DD(869.33,"GL",0,1,.01)=""
^DD(869.33,"GL",0,2,.02)=""
^DD(869.33,"GL",0,3,.03)=""
^DD(869.33,"IX",.01)=""
^DD(869.34,0)="PING IP SUB-FIELD^^.01^1"
^DD(869.34,0,"DT")="3070129"
^DD(869.34,0,"IX","B",869.34,.01)=""
^DD(869.34,0,"NM","PING IP")=""
^DD(869.34,0,"UP")="869.3"
^DD(869.34,.01,0)="PING IP^MF^^0;1^K:$L(X)>240!($L(X)<7) X"
^DD(869.34,.01,1,0)="^.1"
^DD(869.34,.01,1,1,0)="869.34^B"
^DD(869.34,.01,1,1,1)="S ^HLCS(869.3,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(869.34,.01,1,1,2)="K ^HLCS(869.3,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(869.34,.01,3)="Multiple IP addresses may be entered, separated by "","" as delimiter."
^DD(869.34,.01,21,0)="^^8^8^3070130^"
^DD(869.34,.01,21,1,0)="Use this multiple to enter the IP address which is allowed to ""ping,"""
^DD(869.34,.01,21,2,0)="using the ""Ping (TCP Only)"" option, for pinging Vista site with Vista HL7 "
^DD(869.34,.01,21,3,0)="installed. Multiple IP addresses may be entered, separated by "","" as"
^DD(869.34,.01,21,4,0)="delimiter."
^DD(869.34,.01,21,5,0)=" "
^DD(869.34,.01,21,6,0)="It is not necessary to enter an IP address here for a link with a domain"
^DD(869.34,.01,21,7,0)="containing the partial domain which has been entered in the ""PING DOMAIN"
^DD(869.34,.01,21,8,0)="(PARTIAL)"" multiple. "
^DD(869.34,.01,"DT")="3070130"
^DD(869.34,"B","PING IP",.01)=""
^DD(869.34,"GL",0,1,.01)=""
^DD(869.34,"IX",.01)=""
^DD(869.35,0)="PING DOMAIN (PARTIAL) SUB-FIELD^^.01^1"
^DD(869.35,0,"DT")="3070129"
^DD(869.35,0,"IX","B",869.35,.01)=""
^DD(869.35,0,"NM","PING DOMAIN (PARTIAL)")=""
^DD(869.35,0,"UP")="869.3"
^DD(869.35,.01,0)="PING DOMAIN (PARTIAL)^MF^^0;1^K:$L(X)>240!($L(X)<7) X"
^DD(869.35,.01,1,0)="^.1"
^DD(869.35,.01,1,1,0)="869.35^B"
^DD(869.35,.01,1,1,1)="S ^HLCS(869.3,DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(869.35,.01,1,1,2)="K ^HLCS(869.3,DA(1),8,""B"",$E(X,1,30),DA)"
^DD(869.35,.01,3)="Multiple partial or full domain names may be entered, separated by "","" as delimiter."
^DD(869.35,.01,21,0)="^.001^6^6^3070130^^"
^DD(869.35,.01,21,1,0)="Use this multiple to enter the partial or full domain name, such as"
^DD(869.35,.01,21,2,0)="""MED.VA.GOV"" which is allowed to ""ping,"" using the ""Ping (TCP Only)"""
^DD(869.35,.01,21,3,0)="option, for pinging Vista site with Vista HL7 installed."
^DD(869.35,.01,21,4,0)=" "
^DD(869.35,.01,21,5,0)="Multiple partial or full domain names may be entered, separated by "","" as"
^DD(869.35,.01,21,6,0)="delimiter."
^DD(869.35,.01,"DT")="3070130"
^DD(869.35,"B","PING DOMAIN (PARTIAL)",.01)=""
^DD(869.35,"GL",0,1,.01)=""
^DD(869.35,"IX",.01)=""
^DD(869.36,0)="DON'T PING PORT SUB-FIELD^^.01^1"
^DD(869.36,0,"DT")="3070130"
^DD(869.36,0,"IX","B",869.36,.01)=""
^DD(869.36,0,"NM","DON'T PING PORT")=""
^DD(869.36,0,"UP")="869.3"
^DD(869.36,.01,0)="DON'T PING PORT^MF^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(869.36,.01,1,0)="^.1"
^DD(869.36,.01,1,1,0)="869.36^B"
^DD(869.36,.01,1,1,1)="S ^HLCS(869.3,DA(1),9,""B"",$E(X,1,30),DA)="""""
^DD(869.36,.01,1,1,2)="K ^HLCS(869.3,DA(1),9,""B"",$E(X,1,30),DA)"
^DD(869.36,.01,3)="Multiple port numbers may be entered, separated by "","" as delimiter."
^DD(869.36,.01,21,0)="^^4^4^3070130^"
^DD(869.36,.01,21,1,0)="Use this multiple to enter the port number, for those links which are not"
^DD(869.36,.01,21,2,0)="allowed to ""ping,"" using the ""Ping (TCP Only)"" option."
^DD(869.36,.01,21,3,0)=" "
^DD(869.36,.01,21,4,0)="Multiple port numbers may be entered, separated by "","" as delimiter."
^DD(869.36,.01,"DT")="3070130"
^DD(869.36,"B","DON'T PING PORT",.01)=""
^DD(869.36,"GL",0,1,.01)=""
^DD(869.36,"IX",.01)=""
^DD(869.391,0)="DON'T PING LINK NAME (PARTIAL) SUB-FIELD^^.01^1"
^DD(869.391,0,"DT")="3070130"
^DD(869.391,0,"IX","B",869.391,.01)=""
^DD(869.391,0,"NM","DON'T PING LINK NAME (PARTIAL)")=""
^DD(869.391,0,"UP")="869.3"
^DD(869.391,.01,0)="DON'T PING LINK NAME (PARTIAL)^MF^^0;1^K:$L(X)>240!($L(X)<3) X"
^DD(869.391,.01,1,0)="^.1"
^DD(869.391,.01,1,1,0)="869.391^B"
^DD(869.391,.01,1,1,1)="S ^HLCS(869.3,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(869.391,.01,1,1,2)="K ^HLCS(869.3,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(869.391,.01,3)="Multiple partial or full link names may be entered, separated by "","" as delimiter."
^DD(869.391,.01,21,0)="^^5^5^3070130^"
^DD(869.391,.01,21,1,0)="Use this multiple to enter the partial or full link name, for those links"
^DD(869.391,.01,21,2,0)="which are not allowed to ""ping,"" using the ""Ping (TCP Only)"" option."
^DD(869.391,.01,21,3,0)=" "
^DD(869.391,.01,21,4,0)="Multiple partial or full link names may be entered, separated by "","" as"
^DD(869.391,.01,21,5,0)="delimiter."
^DD(869.391,.01,"DT")="3070130"
^DD(869.391,"B","DON'T PING LINK NAME (PARTIAL)",.01)=""
^DD(869.391,"GL",0,1,.01)=""
^DD(869.391,"IX",.01)=""
^DD(869.392,0)="DON'T PING IP SUB-FIELD^^.01^1"
^DD(869.392,0,"DT")="3070130"
^DD(869.392,0,"IX","B",869.392,.01)=""
^DD(869.392,0,"NM","DON'T PING IP")=""
^DD(869.392,0,"UP")="869.3"
^DD(869.392,.01,0)="DON'T PING IP^MF^^0;1^K:$L(X)>240!($L(X)<7) X"
^DD(869.392,.01,1,0)="^.1"
^DD(869.392,.01,1,1,0)="869.392^B"
^DD(869.392,.01,1,1,1)="S ^HLCS(869.3,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(869.392,.01,1,1,2)="K ^HLCS(869.3,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(869.392,.01,3)="Multiple IP addresses may be entered, separated by "","" as delimiter."
^DD(869.392,.01,21,0)="^^4^4^3070130^"
^DD(869.392,.01,21,1,0)="Use this multiple to enter the IP address, for those links which are not"
^DD(869.392,.01,21,2,0)="allowed to ""ping,"" using the ""Ping (TCP Only)"" option."
^DD(869.392,.01,21,3,0)=" "
^DD(869.392,.01,21,4,0)="Multiple IP addresses may be entered, separated by "","" as delimiter.    "
^DD(869.392,.01,"DT")="3070130"
^DD(869.392,"B","DON'T PING IP",.01)=""
^DD(869.392,"GL",0,1,.01)=""
^DD(869.392,"IX",.01)=""
^DD(869.393,0)="DON'T PING DOMAIN (FULL) SUB-FIELD^^.01^1"
^DD(869.393,0,"DT")="3070130"
^DD(869.393,0,"IX","B",869.393,.01)=""
^DD(869.393,0,"NM","DON'T PING DOMAIN (FULL)")=""
^DD(869.393,0,"UP")="869.3"
^DD(869.393,.01,0)="DON'T PING DOMAIN (FULL)^MF^^0;1^K:$L(X)>240!($L(X)<7) X"
^DD(869.393,.01,1,0)="^.1"
^DD(869.393,.01,1,1,0)="869.393^B"
^DD(869.393,.01,1,1,1)="S ^HLCS(869.3,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(869.393,.01,1,1,2)="K ^HLCS(869.3,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(869.393,.01,3)="Multiple full domain names may be entered, separated by "","" as delimiter."
^DD(869.393,.01,21,0)="^^4^4^3070130^"
^DD(869.393,.01,21,1,0)="Use this multiple to enter full domain name, for those links which are not"
^DD(869.393,.01,21,2,0)="allowed to ""ping,"" using the ""Ping (TCP Only)"" option."
^DD(869.393,.01,21,3,0)=" "
^DD(869.393,.01,21,4,0)="Multiple full domain names may be entered, separated by "","" as delimiter."
^DD(869.393,.01,"DT")="3070130"
^DD(869.393,"B","DON'T PING DOMAIN (FULL)",.01)=""
^DD(869.393,"GL",0,1,.01)=""
^DD(869.393,"IX",.01)=""
^DD(870,0)="FIELD^^1^51"
^DD(870,0,"DDA")="N"
^DD(870,0,"DIKOLD")="HLX870"
^DD(870,0,"DT")="3070801"
^DD(870,0,"IX","AISTAT",870.019,1)=""
^DD(870,0,"IX","ALLP",870,2)=""
^DD(870,0,"IX","B",870,.01)=""
^DD(870,0,"IX","C",870,.02)=""
^DD(870,0,"IX","D",870,.03)=""
^DD(870,0,"IX","E",870,400.03)=""
^DD(870,0,"NM","HL LOGICAL LINK")=""
^DD(870,0,"PT",59,2005)=""
^DD(870,0,"PT",59.08,1)=""
^DD(870,0,"PT",101,770.7)=""
^DD(870,0,"PT",702.09,.18)=""
^DD(870,0,"PT",772,11)=""
^DD(870,0,"PT",773,7)=""
^DD(870,0,"PT",773,17)=""
^DD(870,0,"PT",774.01,3)=""
^DD(870,0,"PT",774.02,.02)=""
^DD(870,0,"PT",779.1,.1)=""
^DD(870,0,"PT",779.2,.09)=""
^DD(870,0,"PT",779.41,.02)=""
^DD(870,0,"PT",869.311,.01)=""
^DD(870,0,"VR")="1.6"
^DD(870,0,"VRPK")="HL"
^DD(870,.01,0)="NODE^RF^^0;1^K:$L(X)>10!($L(X)<3)!'(X'?1P.E) X"
^DD(870,.01,1,0)="^.1^^-1"
^DD(870,.01,1,1,0)="870^B"
^DD(870,.01,1,1,1)="S ^HLCS(870,""B"",$E(X,1,30),DA)="""""
^DD(870,.01,1,1,2)="K ^HLCS(870,""B"",$E(X,1,30),DA)"
^DD(870,.01,3)="Enter the name of the logical link (3-10 characters)"
^DD(870,.01,21,0)="^^5^5^2990217^^^^"
^DD(870,.01,21,1,0)="This is the name of the logical link that data will be communicated on."
^DD(870,.01,21,2,0)="It is this name that will be displayed in the ""NODE"" column of the"
^DD(870,.01,21,3,0)="SYSTEMS LINK MONITOR display option."
^DD(870,.01,21,4,0)="It is suggested that this name be the same name as the commercial"
^DD(870,.01,21,5,0)="application e.g. KURZWEIL1,KURZWEIL2,COPATH, or SUNQUEST1."
^DD(870,.01,"DT")="3050308"
^DD(870,.02,0)="INSTITUTION^P4'X^DIC(4,^0;2^K:$O(^HLCS(870,""C"",X,0)) X"
^DD(870,.02,1,0)="^.1"
^DD(870,.02,1,1,0)="870^C"
^DD(870,.02,1,1,1)="S ^HLCS(870,""C"",$E(X,1,30),DA)="""""
^DD(870,.02,1,1,2)="K ^HLCS(870,""C"",$E(X,1,30),DA)"
^DD(870,.02,1,1,"DT")="2970123"
^DD(870,.02,3)="Select an institution that has not been associated with another link."
^DD(870,.02,21,0)="^^5^5^2990804^"
^DD(870,.02,21,1,0)="It may be necessary for an application to determine the appropriate link"
^DD(870,.02,21,2,0)="to use when the only information it has is the institution. This field is"
^DD(870,.02,21,3,0)="used to associate a link with that institution. There is a 1:1"
^DD(870,.02,21,4,0)="correspondence between institution and logical link. An institution cannot"
^DD(870,.02,21,5,0)="be associated with more than one logical link."
^DD(870,.02,"DT")="3040528"
^DD(870,.03,0)="MAILMAN DOMAIN^P4.2'X^DIC(4.2,^0;7^K:$O(^HLCS(870,""D"",X,0)) X"
^DD(870,.03,1,0)="^.1^^-1"
^DD(870,.03,1,1,0)="870^D"
^DD(870,.03,1,1,1)="S ^HLCS(870,""D"",$E(X,1,30),DA)="""""
^DD(870,.03,1,1,2)="K ^HLCS(870,""D"",$E(X,1,30),DA)"
^DD(870,.03,1,1,"DT")="2980321"
^DD(870,.03,3)="Enter the Mailman domain corresponding to this link."
^DD(870,.03,21,0)="^^2^2^3040528^^"
^DD(870,.03,21,1,0)="Either this field or the OTHER DOMAIN field should have a value.  The domain is"
^DD(870,.03,21,2,0)="used to formulate the RECEIVING FACILITY field of the message header."
^DD(870,.03,"DT")="3050308"
^DD(870,.08,0)="DNS DOMAIN^FX^^0;8^K:$L(X)>70!($L(X)<4) X S HLIP=$$ADDRESS^XLFNSLK(X) K:('HLIP)&($P($G(^HLCS(869.3,1,0)),""^"",3)=""P"")&($P($$SITE^VASITE,""^"",3)) X I HLIP S HLIP=$$IP^HLMA3(DA,HLIP)"
^DD(870,.08,3)="Enter the full domain name as registered with DNS."
^DD(870,.08,21,0)="^.001^1^1^3041221^^^"
^DD(870,.08,21,1,0)="The domain name as registered with DNS."
^DD(870,.08,"DT")="3050309"
^DD(870,1,0)="DESCRIPTION^870.02^^3;0"
^DD(870,1,3)="Enter a description for this link"
^DD(870,1,21,0)="^^1^1^3070629^"
^DD(870,1,21,1,0)="This field contains a brief explanation of this link."
^DD(870,2,0)="LLP TYPE^RP869.1'^HLCS(869.1,^0;3^Q"
^DD(870,2,1,0)="^.1^^-1"
^DD(870,2,1,1,0)="870^ALLP"
^DD(870,2,1,1,1)="S ^HLCS(870,""ALLP"",$E(X,1,30),DA)="""""
^DD(870,2,1,1,2)="K ^HLCS(870,""ALLP"",$E(X,1,30),DA)"
^DD(870,2,1,1,"%D",0)="^^3^3^2950227^"
^DD(870,2,1,1,"%D",1,0)="This cross-reference is used to link the HL Lower Layer Parameter"
^DD(870,2,1,1,"%D",2,0)="file (#869.2) with the HL Logical Link file. Using this x-ref you can"
^DD(870,2,1,1,"%D",3,0)="locate the parameter associated with this link."
^DD(870,2,1,1,"DT")="2950227"
^DD(870,2,3)="Enter the  LLP used for this logical link."
^DD(870,2,21,0)="^.001^4^4^3040826^^"
^DD(870,2,21,1,0)="Enter the type of Lower Level Protocol for this logical link. Selection of"
^DD(870,2,21,2,0)="TCP implies that the MLLP protocol will be used. Each of the supported"
^DD(870,2,21,3,0)="LLP's are described in detail in Appendix C of the HL7 Implementation"
^DD(870,2,21,4,0)="Guide."
^DD(870,2,"DT")="3050308"
^DD(870,3,0)="DEVICE TYPE^S^PC:Persistent Client;NC:Non-Persistent Client;SS:Single-threaded Server;MS:Multi-threaded Server;SH:Serial HLLP;SX:Serial X3.28;MM:MailMan;^0;4^Q"
^DD(870,3,1,0)="^.1^^0"
^DD(870,3,3)="Not editable from any user option. See field description."
^DD(870,3,21,0)="^.001^3^3^3040826^^^^"
^DD(870,3,21,1,0)="This field is not editable from any user option. It is used purely"
^DD(870,3,21,2,0)="for display purposes in the DEVICE TYPE column of the SYSTEMS LINK"
^DD(870,3,21,3,0)="MONITOR display option."
^DD(870,3,"DT")="3030710"
^DD(870,4,0)="STATE^F^^0;5^K:$L(X)>60!($L(X)<1) X"
^DD(870,4,3)="Answer must be 1-60 characters in length"
^DD(870,4,21,0)="^^3^3^3070801^"
^DD(870,4,21,1,0)="This field is not editable from any user option. It is used purely for"
^DD(870,4,21,2,0)="display purposes in the STATE column of the SYSTEMS LINK MONITOR"
^DD(870,4,21,3,0)="display option."
^DD(870,4,"DT")="3070801"
^DD(870,4.5,0)="AUTOSTART^S^0:Disabled;1:Enabled;^0;6^Q"
^DD(870,4.5,21,0)="^^2^2^2980831^^"
^DD(870,4.5,21,1,0)="This field permits the link to be restarted by Taskman after a system"
^DD(870,4.5,21,2,0)="reboot. If disabled, the link will not be restarted."
^DD(870,4.5,"DT")="2961120"
^DD(870,4.9,0)="STOP PROCESSING IN-QUEUE^S^0:NO;1:YES;^0;9^Q"
^DD(870,4.9,3)="Setting this field to 'Y' prevents the incoming filer from processing the incoming messages queued in this link. "
^DD(870,4.9,21,0)="^.001^2^2^3060718^^"
^DD(870,4.9,21,1,0)="Setting this field to 'Y' prevents the incoming filer from processing the "
^DD(870,4.9,21,2,0)="incoming messages queued in this link."
^DD(870,4.9,"DT")="3060718"
^DD(870,5,0)="IN QUEUE FRONT POINTER^NJ14,0^^IN QUEUE FRONT POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,5,3)="This field is not editable from any user option. See Field Description."
^DD(870,5,21,0)="^^2^2^3041221^"
^DD(870,5,21,1,0)="The queue structure relies on two queues, INcoming and OUTgoing."
^DD(870,5,21,2,0)="This pointer is used to point to the first message in the FIFO queue."
^DD(870,5,"DT")="3041221"
^DD(870,6,0)="IN QUEUE BACK POINTER^NJ14,0^^IN QUEUE BACK POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,6,3)="Type a Number between 0 and 99999999999999, 0 Decimal Digits"
^DD(870,6,21,0)="^^2^2^3041221^"
^DD(870,6,21,1,0)="The queue structure relies on two queues-INcoming and OUTgoing."
^DD(870,6,21,2,0)="This pointer points to the last message in the FIFO queue."
^DD(870,6,"DT")="3041221"
^DD(870,7,0)="OUT QUEUE FRONT POINTER^NJ14,0^^OUT QUEUE FRONT POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,7,3)="This field is not editable from any user option. See Field Description."
^DD(870,7,21,0)="^^2^2^3041221^"
^DD(870,7,21,1,0)="The queue structure relies on two queues-INcoming and OUTgoing."
^DD(870,7,21,2,0)="This pointer points to the first message in the FIFO queue."
^DD(870,7,"DT")="3041221"
^DD(870,8,0)="OUT QUEUE BACK POINTER^NJ14,0^^OUT QUEUE BACK POINTER;1^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,8,3)="This field is not editable from any user option. See field description."
^DD(870,8,21,0)="^^2^2^3041221^"
^DD(870,8,21,1,0)="The queue structure relies on two queues, INcoming and OUTgoing."
^DD(870,8,21,2,0)="This pointer points to the last message in the FIFO queue."
^DD(870,8,"DT")="3041221"
^DD(870,9,0)="TIME STARTED^D^^0;10^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(870,9,3)="This field is not editable from any user option. See Field Description."
^DD(870,9,21,0)="^^3^3^2950222^^^^"
^DD(870,9,21,1,0)="This field contains the Date/Time the Lower Layer Protocol was"
^DD(870,9,21,2,0)="last launched for the Logical Link. Only applicable to Lower Layer"
^DD(870,9,21,3,0)="Protocols, not Mailman."
^DD(870,9,"DT")="2941006"
^DD(870,10,0)="TIME STOPPED^D^^0;11^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(870,10,3)="This field is not editable from any user option. See Field Description."
^DD(870,10,21,0)="^^3^3^2941212^^^"
^DD(870,10,21,1,0)="This field contains the Date/Time the Lower Layer Protocol was"
^DD(870,10,21,2,0)="last shutdown for the Logical Link. Only applicable to Lower Layer"
^DD(870,10,21,3,0)="Protocols, not Mailman."
^DD(870,10,"DT")="2941006"
^DD(870,11,0)="TASK NUMBER^NJ15,0^^0;12^K:+X'=X!(X>999999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,11,3)="This field is not editable from any user option. See Field Description."
^DD(870,11,21,0)="^^2^2^2941212^^^"
^DD(870,11,21,1,0)="This is the task number assigned by TaskMan when the Lower Layer Protocol"
^DD(870,11,21,2,0)="is launched in the background."
^DD(870,11,"DT")="2941006"
^DD(870,14,0)="SHUTDOWN LLP ?^S^0:NO;1:YES;^0;15^Q"
^DD(870,14,3)="Setting this field to 'Y' through the STOP HYBRID LLP option, shuts down the lower layer protocol and closes the device."
^DD(870,14,21,0)="^^3^3^2950222^^^^"
^DD(870,14,21,1,0)="This field is editable through the STOP HYBRID LLP option. When the"
^DD(870,14,21,2,0)="Lower Layer Protocol is running, and this field is set to 'Y' the"
^DD(870,14,21,3,0)="Lower Layer Protocol will shutdown and close the device."
^DD(870,14,"DT")="2950222"
^DD(870,16,0)="SHUTDOWN OUTGOING HLO MESSAGES^S^0:NO;1:YES;^0;16^Q"
^DD(870,16,3)="Enter YES to stop HLO messages from being transmitted to this destinations."
^DD(870,16,21,0)="^^2^2^3050914^"
^DD(870,16,21,1,0)="This field affects only HLO messages."
^DD(870,16,21,2,0)=""
^DD(870,16,"DT")="3050914"
^DD(870,18,0)="GROSS COMMUNICATIONS ERROR^P771.7'^HL(771.7,^0;19^Q"
^DD(870,18,3)="This field contains the most recent communications error which has occured on a particular link."
^DD(870,18,21,0)="^^10^10^2941213^^^^"
^DD(870,18,21,1,0)="This field contains the most recent gross communications error. It"
^DD(870,18,21,2,0)="serves a two purposes. It is a flag for the SYSTEMS LINK MONITOR."
^DD(870,18,21,3,0)="In other words, if this field is defined it means a communications"
^DD(870,18,21,4,0)="error has occured on the link. This is indicated by the NODE field"
^DD(870,18,21,5,0)="flashing on the SYSTEMS LINK MONITOR. "
^DD(870,18,21,6,0)="The error can be viewed by using the SHOW COMMUNICATION ERROR option."
^DD(870,18,21,7,0)="The error can be cleared by using the CLEAR COMMUNICATION ERROR option."
^DD(870,18,21,8,0)="If set, an error occurred while transmitting (timeout for example)."
^DD(870,18,21,9,0)="This field can be viewed using the 'Show Gross LLP Error' and cleared"
^DD(870,18,21,10,0)="using the 'Clear Gross LLP Error' options."
^DD(870,18,"DT")="2941213"
^DD(870,19,0)="IN QUEUE^870.019^^1;0"
^DD(870,19,21,0)="^^1^1^3050414^"
^DD(870,19,21,1,0)="This multiple contains the queue for incoming messages."
^DD(870,19,"DT")="3041012"
^DD(870,20,0)="OUT QUEUE^870.01A^^2;0"
^DD(870,20,21,0)="^^1^1^3050414^"
^DD(870,20,21,1,0)="This multiple contains the queue for outgoing messages."
^DD(870,20,"DT")="3041012"
^DD(870,21,0)="QUEUE SIZE^NJ6,0^^0;21^K:+X'=X!(X>100000)!(X<2)!(X?.E1"".""1N.N) X"
^DD(870,21,3)="Type a Number between 2 and 100000, 0 Decimal Digits"
^DD(870,21,21,0)="^^3^3^3041221^"
^DD(870,21,21,1,0)="This is the steady-state size of the queue. The queue may dynamically"
^DD(870,21,21,2,0)="grow beyond this size, under certain conditions. See Users Manual, for"
^DD(870,21,21,3,0)="more information."
^DD(870,21,"DT")="3041221"
^DD(870,100.01,0)="MAIL GROUP^P3.8^XMB(3.8,^100;1^Q"
^DD(870,100.01,3)="Enter the mail group that messages should be sent to."
^DD(870,100.01,21,0)="^^10^10^2990707^"
^DD(870,100.01,21,1,0)="If you are building a logical link that will use Mailman as a transport,"
^DD(870,100.01,21,2,0)="you must define a mail group that contains the remote member, "
^DD(870,100.01,21,3,0)=" "
^DD(870,100.01,21,4,0)="S.HL V16 SERVER@your target domain"
^DD(870,100.01,21,5,0)=" "
^DD(870,100.01,21,6,0)="The HL7 package will place outbound messages in file 870's outque. The"
^DD(870,100.01,21,7,0)="link must be running for messages to be handed off to Mailman."
^DD(870,100.01,21,8,0)=" "
^DD(870,100.01,21,9,0)="Inbound messages that are received by the server option are placed"
^DD(870,100.01,21,10,0)="directly in file 772."
^DD(870,100.01,"DT")="2990707"
^DD(870,200.01,0)="HLLP DEVICE^P3.5'^%ZIS(1,^200;1^Q"
^DD(870,200.01,3)="Enter the device to be used for the HLLP protocol."
^DD(870,200.01,21,0)="^^3^3^2990707^"
^DD(870,200.01,21,1,0)="This is an entry in the Device file (#3.5). It is opened when this logical"
^DD(870,200.01,21,2,0)="link is started up and remains open until the link is shut down. Normally,"
^DD(870,200.01,21,3,0)="Vista will initiate and the connection with this serial device."
^DD(870,200.01,"DT")="3050308"
^DD(870,200.02,0)="RE-TRANSMISSION ATTEMPTS^NJ3,0^^200;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,200.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(870,200.02,21,0)="^^3^3^2990707^"
^DD(870,200.02,21,1,0)="Enter the number of times to re-try sending a message.  The default is 5"
^DD(870,200.02,21,2,0)="tries if this field is left blank. If a single message exceeds this value"
^DD(870,200.02,21,3,0)="an Alert is sent to the HL7 mail group and the link is shutdown."
^DD(870,200.02,"DT")="2990707"
^DD(870,200.021,0)="EXCEED RE-TRANSMIT ACTION^S^I:ignore;R:restart;S:shutdown;^200;10^Q"
^DD(870,200.021,21,0)="^^5^5^2990820^"
^DD(870,200.021,21,1,0)="This field determines what to do when a message exceeds the number of"
^DD(870,200.021,21,2,0)=" retry attempts for this Logical Link.  Actions are:"
^DD(870,200.021,21,3,0)="  Ignore   = send alert once and keep trying to resend"
^DD(870,200.021,21,4,0)="  Restart  = send alert once and shutdown link then start link"
^DD(870,200.021,21,5,0)="  Shutdown = send alert once and shutdown link"
^DD(870,200.021,"DT")="2990820"
^DD(870,200.022,0)="CLOSE BEFORE RE-TRANSMISSION^S^1:YES;^200;11^Q"
^DD(870,200.022,3)="Enter YES if the TCP device should always be closed and re-opened before another re-transmission attempt."
^DD(870,200.022,21,0)="^^6^6^3060629^^"
^DD(870,200.022,21,1,0)="Re-transmitting a message over the same open connection may cause a"
^DD(870,200.022,21,2,0)="synchronization problem for some applications.  Setting this field to YES"
^DD(870,200.022,21,3,0)="will cause the TCP connection to always be closed after a READ timeout or other"
^DD(870,200.022,21,4,0)="communication failure.  Instead, a new connection will be opened before"
^DD(870,200.022,21,5,0)="attempting to re-transmit the message."
^DD(870,200.022,21,6,0)=""
^DD(870,200.022,"DT")="3060629"
^DD(870,200.03,0)="BLOCK SIZE^NJ3,0^^200;3^K:+X'=X!(X>512)!(X<9)!(X?.E1"".""1N.N) X"
^DD(870,200.03,3)="Type a Number between 9 and 512, 0 Decimal Digits245 is the recommended default."
^DD(870,200.03,"DT")="2990707"
^DD(870,200.04,0)="READ TIMEOUT^NJ3,0^^200;4^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,200.04,3)="Type a Number between 1 and 600, 0 Decimal Digits"
^DD(870,200.04,21,0)="^^3^3^2990708^"
^DD(870,200.04,21,1,0)="Enter the number of seconds the Lower Layer Protocol remains in a read"
^DD(870,200.04,21,2,0)="state for data to come in on the link. The default is 10 seconds if this"
^DD(870,200.04,21,3,0)="field is left blank."
^DD(870,200.04,"DT")="2990708"
^DD(870,200.05,0)="ACK TIMEOUT^NJ3,0^^200;5^K:+X'=X!(X>600)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,200.05,3)="Type a Number between 0 and 600, 0 Decimal Digits"
^DD(870,200.05,21,0)="^^4^4^3000418^^"
^DD(870,200.05,21,1,0)="The number of seconds the Lower Layer Protocol waits for an"
^DD(870,200.05,21,2,0)="acknowledgement from the receiving application. The default"
^DD(870,200.05,21,3,0)="is 60.  If this field is less than the READ TIMEOUT field, "
^DD(870,200.05,21,4,0)="the READ TIMEOUT value will be used."
^DD(870,200.05,"DT")="3000418"
^DD(870,200.06,0)="LLP START BLOCK^NJ3,0^^200;6^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,200.06,3)="Type a Number between 1 and 300, 0 Decimal Digits"
^DD(870,200.06,21,0)="^^5^5^2990709^"
^DD(870,200.06,21,1,0)="Enter the numeric value of the control character used by the HLLP"
^DD(870,200.06,21,2,0)="communications protocol as a START BLOCK CHARACTER. While this character"
^DD(870,200.06,21,3,0)="is negotiable, the HL7 implementation guide recommends the use of the 'VT'"
^DD(870,200.06,21,4,0)="character. If this field is left blank, the default value of 11 will be"
^DD(870,200.06,21,5,0)="used."
^DD(870,200.06,"DT")="2990709"
^DD(870,200.07,0)="LLP END BLOCK^NJ3,0^^200;7^K:+X'=X!(X>300)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,200.07,3)="Type a Number between 1 and 300, 0 Decimal Digits"
^DD(870,200.07,21,0)="^^4^4^2990709^"
^DD(870,200.07,21,1,0)="Enter the numeric value of the control character defined in the HLLP"
^DD(870,200.07,21,2,0)="specification as the END BLOCK CHARACTER. The recommended value is 28. If"
^DD(870,200.07,21,3,0)="this field is left blank, the default value will be 28 for the 'FS'"
^DD(870,200.07,21,4,0)="character."
^DD(870,200.07,"DT")="2990709"
^DD(870,200.08,0)="PROTOCOL ID VERSION^S^21:2.1;22:2.2;23:2.3;^200;8^Q"
^DD(870,200.08,3)="Enter the version of HLLP as specified by the lates HL7 Implementation Guide"
^DD(870,200.08,21,0)="^^3^3^2990709^"
^DD(870,200.08,21,1,0)="The latest specification for the HLLP communications protocol is"
^DD(870,200.08,21,2,0)="identified by a version number, which may be different from the HL7"
^DD(870,200.08,21,3,0)="standard itself."
^DD(870,200.08,"DT")="2990805"
^DD(870,200.09,0)="UNI-DIRECTIONAL WAIT^NJ2,0^^200;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,200.09,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(870,200.09,21,0)="^^3^3^2990709^"
^DD(870,200.09,21,1,0)="The number of seconds the Lower Layer Protocol waits after sending a"
^DD(870,200.09,21,2,0)="messages.  This is only used if the message doesn't want an"
^DD(870,200.09,21,3,0)="acknowledgment.  "
^DD(870,200.09,"DT")="2990709"
^DD(870,300.01,0)="X3.28 DEVICE^P3.5^%ZIS(1,^300;1^Q"
^DD(870,300.01,3)="Enter the device from the Device File."
^DD(870,300.01,21,0)="^^4^4^2990709^"
^DD(870,300.01,21,1,0)="X3.28 is a serial protocol like HLLP. It requires the remote system be"
^DD(870,300.01,21,2,0)="configured as a device (bi-directional) in the Device and terminal type"
^DD(870,300.01,21,3,0)="files. The Vista system will normally open and maintain the connection."
^DD(870,300.01,21,4,0)="See the HL7 Implementation Guide for details of this protocol."
^DD(870,300.01,"DT")="2990709"
^DD(870,300.02,0)="MAXIMUM MESSAGE SIZE^NJ7,0^^300;2^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,300.02,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(870,300.02,21,0)="^^1^1^2990709^"
^DD(870,300.02,21,1,0)="See the HL7 Implementation Guide for details of the x3.28 protcol."
^DD(870,300.02,"DT")="2990709"
^DD(870,300.03,0)="MAXIMUM BLOCK SIZE^NJ3,0^^300;3^K:+X'=X!(X>245)!(X<9)!(X?.E1"".""1N.N) X"
^DD(870,300.03,3)="Type a Number between 9 and 245, 0 Decimal Digits"
^DD(870,300.03,21,0)="^.001^1^1^3010312^^"
^DD(870,300.03,21,1,0)="See the HL7 Implementation Guide for details of the x3.28 protcol."
^DD(870,300.03,"DT")="2990709"
^DD(870,300.04,0)="TIMER A^NJ2,0^^300;4^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,300.04,3)="Type a Number between 1 and 60, 0 Decimal Digits"
^DD(870,300.04,21,0)="^^2^2^2990709^"
^DD(870,300.04,21,1,0)="Enter the time in seconds for the Response Timer. The default is 6 seconds"
^DD(870,300.04,21,2,0)="if no time is entered."
^DD(870,300.04,"DT")="2990709"
^DD(870,300.05,0)="TIMER B^NJ2,0^^300;5^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,300.05,3)="Type a Number between 1 and 60, 0 Decimal Digits"
^DD(870,300.05,21,0)="^^2^2^2990709^"
^DD(870,300.05,21,1,0)="Enter the time in seconds for the Receive Timer. The default is 3 seconds"
^DD(870,300.05,21,2,0)="if no time is entered."
^DD(870,300.05,"DT")="2990709"
^DD(870,300.06,0)="TIMER D^NJ2,0^^300;6^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,300.06,3)="Type a Number between 1 and 60, 0 Decimal Digits"
^DD(870,300.06,21,0)="^^2^2^2990709^"
^DD(870,300.06,21,1,0)="Enter the time for the Inter-Block timer. The default is 30 seconds if no"
^DD(870,300.06,21,2,0)="time is specified."
^DD(870,300.06,"DT")="2990709"
^DD(870,300.07,0)="TIMER E^NJ3,0^^300;7^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,300.07,3)="Type a Number between 1 and 600, 0 Decimal Digits"
^DD(870,300.07,21,0)="^^2^2^2990709^"
^DD(870,300.07,21,1,0)="Enter the time for the Line Check Timer. The default is 180 seconds is no"
^DD(870,300.07,21,2,0)="time is specified."
^DD(870,300.07,"DT")="2990709"
^DD(870,400.01,0)="TCP/IP ADDRESS^F^^400;1^K:$L(X)>40!($L(X)<7) X"
^DD(870,400.01,3)="Answer must be 7-40 characters in length."
^DD(870,400.01,21,0)="^^1^1^2990709^"
^DD(870,400.01,21,1,0)="Enter the numeric address of the remote site using the syntax, nn.nn.nn.nn"
^DD(870,400.01,"DT")="3041012"
^DD(870,400.02,0)="TCP/IP PORT^NJ5,0^^400;2^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,400.02,3)="Type a Number between 1 and 65535, 0 Decimal Digits"
^DD(870,400.02,21,0)="^^3^3^2990709^"
^DD(870,400.02,21,1,0)="This is the port over which the HL7 service will create a socket for"
^DD(870,400.02,21,2,0)="message exchange. In VA, this port will be 5000 between production"
^DD(870,400.02,21,3,0)="systems."
^DD(870,400.02,"DT")="2990709"
^DD(870,400.03,0)="TCP/IP SERVICE TYPE^S^C:CLIENT (SENDER);S:SINGLE LISTENER;M:MULTI LISTENER;^400;3^Q"
^DD(870,400.03,1,0)="^.1"
^DD(870,400.03,1,1,0)="870^E"
^DD(870,400.03,1,1,1)="S ^HLCS(870,""E"",$E(X,1,30),DA)="""""
^DD(870,400.03,1,1,2)="K ^HLCS(870,""E"",$E(X,1,30),DA)"
^DD(870,400.03,1,1,"DT")="3030710"
^DD(870,400.03,3)="Does this link send a connection request or receive connection requests?"
^DD(870,400.03,21,0)="^.001^12^12^3040826^^"
^DD(870,400.03,21,1,0)="This field determines if the Logical Link is the client (sender) or a"
^DD(870,400.03,21,2,0)="listener (server) of a message.  Choose from:"
^DD(870,400.03,21,3,0)=" "
^DD(870,400.03,21,4,0)="                                "
^DD(870,400.03,21,5,0)=" CLIENT (SENDER): Indicates that this Logical Link connects to a target"
^DD(870,400.03,21,6,0)="system, with the current system acting as the sender."
^DD(870,400.03,21,7,0)=" "
^DD(870,400.03,21,8,0)=" SINGLE LISTENER: Designates that the current system is a server"
^DD(870,400.03,21,9,0)="(listener), using a single M process to do the listening."
^DD(870,400.03,21,10,0)="                                 "
^DD(870,400.03,21,11,0)=" MULTI LISTENER: Designates that the current system is a server"
^DD(870,400.03,21,12,0)="(listener), creating multiple background processes."
^DD(870,400.03,"DT")="3050308"
^DD(870,400.04,0)="PERSISTENT^S^Y:YES;N:NO;^400;4^Q"
^DD(870,400.04,21,0)="^^5^5^2990709^"
^DD(870,400.04,21,1,0)="Enter 'YES' if this connection needs to remain open even if there are no"
^DD(870,400.04,21,2,0)="messages to send. The connection will remain open until it is disconnected"
^DD(870,400.04,21,3,0)="by either side via shutting-down the logical link.  A setting of 'YES' is"
^DD(870,400.04,21,4,0)="appropriate for connecting to a COTS device with a high volume of"
^DD(870,400.04,21,5,0)="messages.  "
^DD(870,400.04,"DT")="2990709"
^DD(870,400.05,0)="RETENTION^NJ6,0^^400;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870,400.05,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(870,400.05,21,0)="^^6^6^2990709^"
^DD(870,400.05,21,1,0)="Retention is the maximum time in seconds in which a non-persistent LLP"
^DD(870,400.05,21,2,0)="will wait after the associated queue has been emptied.  If further"
^DD(870,400.05,21,3,0)="messages arrive in the queue before the retention time has expired, the"
^DD(870,400.05,21,4,0)="LLP will continue to dequeue and send messages. Otherwise, the LLP will"
^DD(870,400.05,21,5,0)="become inactive and will remain inactive until further messages are"
^DD(870,400.05,21,6,0)="queued.  "
^DD(870,400.05,"DT")="2990709"
^DD(870,400.06,0)="STARTUP NODE^P14.7'^%ZIS(14.7,^400;6^Q"
^DD(870,400.06,3)="Enter the Taskman node to start this LLP on."
^DD(870,400.06,21,0)="^^5^5^2990709^"
^DD(870,400.06,21,1,0)="This field is ONLY for VMS sites running Dual Taskman in DCL. This field"
^DD(870,400.06,21,2,0)="is used to specify what Taskman node you want to job the Lower Level"
^DD(870,400.06,21,3,0)="Protocol. It should only be used if you have two Taskmans running and only"
^DD(870,400.06,21,4,0)="want the LLP to run on a particular node.  It will only work if you are"
^DD(870,400.06,21,5,0)="running the dual Taskmans in DCL context on a VMS system."
^DD(870,400.06,"DT")="2990709"
^DD(870,400.07,0)="SAY HELO^S^Y:YES;N:NO;^400;7^Q"
^DD(870,400.07,3)="Send initial HELO for Cache/NT TCP links?"
^DD(870,400.07,21,0)="^.001^6^6^3001103^^^^"
^DD(870,400.07,21,1,0)="This field is applicable only to Cache/NT sites with TCP links."
^DD(870,400.07,21,2,0)="If you are not a Cache/NT site, or this is not a TCP link, this field"
^DD(870,400.07,21,3,0)="does not apply, AND will be ignored."
^DD(870,400.07,21,4,0)=""
^DD(870,400.07,21,5,0)="If this TCP link is for a VA site, answer YES."
^DD(870,400.07,21,6,0)="If this TCP link is for a COTS system, answer NO.  This is the default."
^DD(870,400.07,23,0)="^.001^4^4^3001103^^^"
^DD(870,400.07,23,1,0)="When sending HL7 transactions to other VA sites over TCP links, Cache/NT"
^DD(870,400.07,23,2,0)="sites must send an initial HELO to overcome buffering issues.  However,"
^DD(870,400.07,23,3,0)="the initial HELO is not part of the HL7 standard, and may cause a reject"
^DD(870,400.07,23,4,0)="error when sent to a COTS system."
^DD(870,400.07,"DT")="3001102"
^DD(870,400.08,0)="TCP/IP PORT (OPTIMIZED)^NJ5,0^^400;8^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,400.08,3)="Enter the port to use for the new HL7 'optimized' server, a number between 1 and 65535. 5001 is the default."
^DD(870,400.08,21,0)="^.001^4^4^3050216^^^"
^DD(870,400.08,21,1,0)="The new HL7 'optimized' server will operate concurrently with the  old"
^DD(870,400.08,21,2,0)="HL7 1.6 server.  To  enable that, the two servers are assigned different ports"
^DD(870,400.08,21,3,0)="to listen on.  The default port for the old HL7 server is 5000, whereas "
^DD(870,400.08,21,4,0)="the new optimized HL7 server uses port 5001."
^DD(870,400.08,"DT")="3050216"
^DD(870,400.09,0)="TCP/IP OPENFAIL TIMEOUT^NJ2,0^^400;9^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(870,400.09,3)="Type a Number between 1 and 60, 0 Decimal Digits"
^DD(870,400.09,21,0)="^^2^2^3060802^"
^DD(870,400.09,21,1,0)="Enter the number of seconds for the TCP/IP Openfail Timeout. The default"
^DD(870,400.09,21,2,0)="is 5 seconds if this field is left blank."
^DD(870,400.09,"DT")="3060802"
^DD(870,"B","ACK TIMEOUT",200.05)=""
^DD(870,"B","AUTOSTART",4.5)=""
^DD(870,"B","BLOCK SIZE",200.03)=""
^DD(870,"B","CLOSE BEFORE RE-TRANSMISSION",200.022)=""
^DD(870,"B","DESCRIPTION",1)=""
^DD(870,"B","DEVICE TYPE",3)=""
^DD(870,"B","DNS DOMAIN",.08)=""
^DD(870,"B","EXCEED RE-TRANSMIT ACTION",200.021)=""
^DD(870,"B","GROSS COMMUNICATIONS ERROR",18)=""
^DD(870,"B","HLLP DEVICE",200.01)=""
^DD(870,"B","IN QUEUE",19)=""
^DD(870,"B","IN QUEUE BACK POINTER",6)=""
^DD(870,"B","IN QUEUE FRONT POINTER",5)=""
^DD(870,"B","INSTITUTION",.02)=""
^DD(870,"B","LLP END BLOCK",200.07)=""
^DD(870,"B","LLP START BLOCK",200.06)=""
^DD(870,"B","LLP TYPE",2)=""
^DD(870,"B","MAIL GROUP",100.01)=""
^DD(870,"B","MAILMAN DOMAIN",.03)=""
^DD(870,"B","MAXIMUM BLOCK SIZE",300.03)=""
^DD(870,"B","MAXIMUM MESSAGE SIZE",300.02)=""
^DD(870,"B","NODE",.01)=""
^DD(870,"B","OUT QUEUE",20)=""
^DD(870,"B","OUT QUEUE BACK POINTER",8)=""
^DD(870,"B","OUT QUEUE FRONT POINTER",7)=""
^DD(870,"B","PERSISTENT",400.04)=""
^DD(870,"B","PROTOCOL ID VERSION",200.08)=""
^DD(870,"B","QUEUE SIZE",21)=""
^DD(870,"B","RE-TRANSMISSION ATTEMPTS",200.02)=""
^DD(870,"B","READ TIMEOUT",200.04)=""
^DD(870,"B","RETENTION",400.05)=""
^DD(870,"B","SAY HELO",400.07)=""
^DD(870,"B","SHUTDOWN LLP ?",14)=""
^DD(870,"B","SHUTDOWN OUTGOING HLO MESSAGES",16)=""
^DD(870,"B","STARTUP NODE",400.06)=""
^DD(870,"B","STATE",4)=""
^DD(870,"B","STOP PROCESSING IN-QUEUE",4.9)=""
^DD(870,"B","TASK NUMBER",11)=""
^DD(870,"B","TCP/IP ADDRESS",400.01)=""
^DD(870,"B","TCP/IP OPENFAIL TIMEOUT",400.09)=""
^DD(870,"B","TCP/IP PORT",400.02)=""
^DD(870,"B","TCP/IP PORT (OPTIMIZED)",400.08)=""
^DD(870,"B","TCP/IP SERVICE TYPE",400.03)=""
^DD(870,"B","TIME STARTED",9)=""
^DD(870,"B","TIME STOPPED",10)=""
^DD(870,"B","TIMER A",300.04)=""
^DD(870,"B","TIMER B",300.05)=""
^DD(870,"B","TIMER D",300.06)=""
^DD(870,"B","TIMER E",300.07)=""
^DD(870,"B","UNI-DIRECTIONAL WAIT",200.09)=""
^DD(870,"B","X3.28 DEVICE",300.01)=""
^DD(870,"GL",0,1,.01)=""
^DD(870,"GL",0,2,.02)=""
^DD(870,"GL",0,3,2)=""
^DD(870,"GL",0,4,3)=""
^DD(870,"GL",0,5,4)=""
^DD(870,"GL",0,6,4.5)=""
^DD(870,"GL",0,7,.03)=""
^DD(870,"GL",0,8,.08)=""
^DD(870,"GL",0,9,4.9)=""
^DD(870,"GL",0,10,9)=""
^DD(870,"GL",0,11,10)=""
^DD(870,"GL",0,12,11)=""
^DD(870,"GL",0,15,14)=""
^DD(870,"GL",0,16,16)=""
^DD(870,"GL",0,19,18)=""
^DD(870,"GL",0,21,21)=""
^DD(870,"GL",1,0,19)=""
^DD(870,"GL",2,0,20)=""
^DD(870,"GL",3,0,1)=""
^DD(870,"GL",100,1,100.01)=""
^DD(870,"GL",200,1,200.01)=""
^DD(870,"GL",200,2,200.02)=""
^DD(870,"GL",200,3,200.03)=""
^DD(870,"GL",200,4,200.04)=""
^DD(870,"GL",200,5,200.05)=""
^DD(870,"GL",200,6,200.06)=""
^DD(870,"GL",200,7,200.07)=""
^DD(870,"GL",200,8,200.08)=""
^DD(870,"GL",200,9,200.09)=""
^DD(870,"GL",200,10,200.021)=""
^DD(870,"GL",200,11,200.022)=""
^DD(870,"GL",300,1,300.01)=""
^DD(870,"GL",300,2,300.02)=""
^DD(870,"GL",300,3,300.03)=""
^DD(870,"GL",300,4,300.04)=""
^DD(870,"GL",300,5,300.05)=""
^DD(870,"GL",300,6,300.06)=""
^DD(870,"GL",300,7,300.07)=""
^DD(870,"GL",400,1,400.01)=""
^DD(870,"GL",400,2,400.02)=""
^DD(870,"GL",400,3,400.03)=""
^DD(870,"GL",400,4,400.04)=""
^DD(870,"GL",400,5,400.05)=""
^DD(870,"GL",400,6,400.06)=""
^DD(870,"GL",400,7,400.07)=""
^DD(870,"GL",400,8,400.08)=""
^DD(870,"GL",400,9,400.09)=""
^DD(870,"GL","IN QUEUE BACK POINTER",1,6)=""
^DD(870,"GL","IN QUEUE FRONT POINTER",1,5)=""
^DD(870,"GL","OUT QUEUE BACK POINTER",1,8)=""
^DD(870,"GL","OUT QUEUE FRONT POINTER",1,7)=""
^DD(870,"IX",.01)=""
^DD(870,"IX",.02)=""
^DD(870,"IX",.03)=""
^DD(870,"IX",2)=""
^DD(870,"IX",400.03)=""
^DD(870,"RQ",.01)=""
^DD(870,"RQ",2)=""
^DD(870,"SB",870.01,20)=""
^DD(870,"SB",870.019,19)=""
^DD(870,"SB",870.02,1)=""
^DD(870.01,0)="OUT QUEUE SUB-FIELD^^6^7"
^DD(870.01,0,"DIK")="HL870"
^DD(870.01,0,"DT")="3041014"
^DD(870.01,0,"IX","B",870.01,.01)=""
^DD(870.01,0,"NM","OUT QUEUE")=""
^DD(870.01,0,"UP")="870"
^DD(870.01,.01,0)="MESSAGE NUMBER^NJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870.01,.01,1,0)="^.1^^-1"
^DD(870.01,.01,1,1,0)="870.01^B"
^DD(870.01,.01,1,1,1)="S ^HLCS(870,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(870.01,.01,1,1,2)="K ^HLCS(870,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(870.01,.01,3)="Not editable from any user option. See Field Description."
^DD(870.01,.01,21,0)="^^2^2^2941213^"
^DD(870.01,.01,21,1,0)="This is the number assigned to the message when it is enque'd into"
^DD(870.01,.01,21,2,0)="the FIFO queue."
^DD(870.01,.01,"DT")="2941102"
^DD(870.01,1,0)="STATUS^S^P:PENDING;D:DONE PROCESSING;S:STUB RECORD;^0;2^Q"
^DD(870.01,1,1,0)="^.1^^0"
^DD(870.01,1,3)="This is the status of an individual message in the queue. These statuses control the flow and processing of the message."
^DD(870.01,1,21,0)="^^6^6^2941213^^"
^DD(870.01,1,21,1,0)="Status of a particular message. Can be Stub, Pending, or Done. These"
^DD(870.01,1,21,2,0)="statuses control the processing of a message. For example, a stub"
^DD(870.01,1,21,3,0)="record is created when a message is enque'd, it cannot be processed"
^DD(870.01,1,21,4,0)="until it's status is changed from a 'stub' to 'pending', this is"
^DD(870.01,1,21,5,0)="the last thing HLCS1 does when dequeueing a message from file #772"
^DD(870.01,1,21,6,0)="and enqueueing it into file #870."
^DD(870.01,1,"DT")="3000508"
^DD(870.01,2,0)="ERROR^S^A:LLP ACKNOWLEDGED NO ERROR;C:LLP CHAR COUNT WRONG;X:LLP XOR WRONG;B:DATA TOO LONG;G:OTHER LLP ERROR;^0;3^Q"
^DD(870.01,2,3)="This field is not editable from any user option. See field description."
^DD(870.01,2,21,0)="^^3^3^2941213^"
^DD(870.01,2,21,1,0)="If this field contains a ""C"",""X"",""B"", or a ""G"" it means an error has"
^DD(870.01,2,21,2,0)="occured while attempting to send a message to another application."
^DD(870.01,2,21,3,0)="This field is not editable from any user option."
^DD(870.01,2,"DT")="2941117"
^DD(870.01,3,0)="MESSAGE TEXT^870.13^^1;0"
^DD(870.01,3,21,0)="^^1^1^2941213^"
^DD(870.01,3,21,1,0)="This field contains the text of the message."
^DD(870.01,4,0)="dhcp-longtitudinal checksum^F^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(870.01,4,3)="Answer must be 1-5 characters in length."
^DD(870.01,4,"DT")="2950113"
^DD(870.01,5,0)="dhcp-xor checksum^F^^0;5^K:$L(X)>3!($L(X)<1) X"
^DD(870.01,5,3)="Answer must be 1-3 characters in length."
^DD(870.01,5,"DT")="2950113"
^DD(870.01,6,0)="IEN772 OutQ-Non-TCP^F^^0;6^K:$L(X)>30!($L(X)<1)!'(X?.N) X"
^DD(870.01,6,3)="Answer must be 1-30 numeric digits in length."
^DD(870.01,6,21,0)="^^1^1^3041221^"
^DD(870.01,6,21,1,0)="The ien of file #772, where this sub-entry is copied from."
^DD(870.01,6,"DT")="3041221"
^DD(870.01,"B","ERROR",2)=""
^DD(870.01,"B","IEN772 OutQ-Non-TCP",6)=""
^DD(870.01,"B","MESSAGE NUMBER",.01)=""
^DD(870.01,"B","MESSAGE TEXT",3)=""
^DD(870.01,"B","STATUS",1)=""
^DD(870.01,"B","dhcp-longtitudinal checksum",4)=""
^DD(870.01,"B","dhcp-xor checksum",5)=""
^DD(870.01,"GL",0,1,.01)=""
^DD(870.01,"GL",0,2,1)=""
^DD(870.01,"GL",0,3,2)=""
^DD(870.01,"GL",0,4,4)=""
^DD(870.01,"GL",0,5,5)=""
^DD(870.01,"GL",0,6,6)=""
^DD(870.01,"GL",1,0,3)=""
^DD(870.01,"IX",.01)=""
^DD(870.01,"SB",870.13,3)=""
^DD(870.019,0)="IN QUEUE SUB-FIELD^^9^10"
^DD(870.019,0,"DIK")="HL870"
^DD(870.019,0,"DT")="3041014"
^DD(870.019,0,"IX","B",870.019,.01)=""
^DD(870.019,0,"NM","IN QUEUE")=""
^DD(870.019,0,"UP")="870"
^DD(870.019,.01,0)="MESSAGE NUMBER^NJ15,0^^0;1^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(870.019,.01,1,0)="^.1^^-1"
^DD(870.019,.01,1,1,0)="870.019^B"
^DD(870.019,.01,1,1,1)="S ^HLCS(870,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(870.019,.01,1,1,2)="K ^HLCS(870,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(870.019,.01,3)="Not editable from any user option. See field description."
^DD(870.019,.01,21,0)="^^2^2^2941213^^^"
^DD(870.019,.01,21,1,0)="This is the number assigned to the message when it is enqued into the"
^DD(870.019,.01,21,2,0)="FIFO queue."
^DD(870.019,.01,"DT")="2941102"
^DD(870.019,1,0)="STATUS^S^P:PENDING;D:DONE PROCESSING;S:STUB RECORD;^0;2^Q"
^DD(870.019,1,1,0)="^.1"
^DD(870.019,1,1,1,0)="870^AISTAT"
^DD(870.019,1,1,1,1)="S ^HLCS(870,""AISTAT"",$E(X,1,30),DA(1),DA)="""""
^DD(870.019,1,1,1,2)="K ^HLCS(870,""AISTAT"",$E(X,1,30),DA(1),DA)"
^DD(870.019,1,1,1,"%D",0)="^.101^2^2^3001115^^^"
^DD(870.019,1,1,1,"%D",1,0)="Used to quickly identify links with messages in any status,"
^DD(870.019,1,1,1,"%D",2,0)="thus improving performance."
^DD(870.019,1,1,1,"DT")="3000508"
^DD(870.019,1,3)="This is the status of an individual message in the queue. These statuses control the flow and processing of the message."
^DD(870.019,1,21,0)="^.001^7^7^3001115^^^^"
^DD(870.019,1,21,1,0)="Status of a particular message. Can be Stub, Pending, or Done."
^DD(870.019,1,21,2,0)="These statuses control the processing of a message. For example, a"
^DD(870.019,1,21,3,0)="stub record is created when a message is enqueued, and cannot be"
^DD(870.019,1,21,4,0)="processed until its status is changed from 'stub' to 'pending'."
^DD(870.019,1,21,5,0)="Changing this status is the last thing the Low Layer Protocol does"
^DD(870.019,1,21,6,0)="after reading in a message.  Finally, once the message has been"
^DD(870.019,1,21,7,0)="processed, its status is changed to 'done'."
^DD(870.019,1,"DT")="3000508"
^DD(870.019,2,0)="ERROR^S^A:LLP ACKNOWLEDGED NO ERROR;C:LLP CHAR COUNT WRONG;X:LLP XOR WRONG;B:DATA TOO LONG;G:OTHER LLP ERROR;^0;3^Q"
^DD(870.019,2,3)="This field is not editable from any user option. See Field Description."
^DD(870.019,2,21,0)="^^3^3^2941213^^"
^DD(870.019,2,21,1,0)="If this field contains a ""C"",""X"",""B"", or a ""G"" it means an error has"
^DD(870.019,2,21,2,0)="ocurred while reading in a message. This field is not editable from"
^DD(870.019,2,21,3,0)="any user option."
^DD(870.019,2,"DT")="2941027"
^DD(870.019,3,0)="MESSAGE TEXT^870.193^^1;0"
^DD(870.019,3,21,0)="^^1^1^2941213^^"
^DD(870.019,3,21,1,0)="This field contains the text of the message."
^DD(870.019,4,0)="tvv^F^^0;4^K:$L(X)>3!($L(X)<3) X"
^DD(870.019,4,3)="Answer must be 3 characters in length."
^DD(870.019,4,"DT")="2950112"
^DD(870.019,5,0)="ccccc^F^^0;5^K:$L(X)>5!($L(X)<1) X"
^DD(870.019,5,3)="Answer must be 1-5 characters in length."
^DD(870.019,5,"DT")="2950113"
^DD(870.019,6,0)="xxx^F^^0;6^K:$L(X)>3!($L(X)<1) X"
^DD(870.019,6,3)="Answer must be 1-3 characters in length."
^DD(870.019,6,"DT")="2950113"
^DD(870.019,7,0)="dhcp-longtitudinal checksum^F^^0;7^K:$L(X)>5!($L(X)<1) X"
^DD(870.019,7,3)="Answer must be 1-5 characters in length."
^DD(870.019,7,"DT")="2950113"
^DD(870.019,8,0)="dhcp-xor checksum^F^^0;8^K:$L(X)>3!($L(X)<1) X"
^DD(870.019,8,3)="Answer must be 1-3 characters in length."
^DD(870.019,8,"DT")="2950113"
^DD(870.019,9,0)="IEN772 InQ-Non-TCP^F^^0;9^K:$L(X)>30!($L(X)<1)!'(X?.N) X"
^DD(870.019,9,3)="Answer must be 1-30 numeric digits in length."
^DD(870.019,9,21,0)="^^1^1^3041221^"
^DD(870.019,9,21,1,0)="The ien of file #772, where this sub-entry is copied to. "
^DD(870.019,9,"DT")="3041221"
^DD(870.019,"B","ERROR",2)=""
^DD(870.019,"B","IEN772 InQ-Non-TCP",9)=""
^DD(870.019,"B","MESSAGE NUMBER",.01)=""
^DD(870.019,"B","MESSAGE TEXT",3)=""
^DD(870.019,"B","STATUS",1)=""
^DD(870.019,"B","ccccc",5)=""
^DD(870.019,"B","dhcp-longtitudinal checksum",7)=""
^DD(870.019,"B","dhcp-xor checksum",8)=""
^DD(870.019,"B","tvv",4)=""
^DD(870.019,"B","xxx",6)=""
^DD(870.019,"GL",0,1,.01)=""
^DD(870.019,"GL",0,2,1)=""
^DD(870.019,"GL",0,3,2)=""
^DD(870.019,"GL",0,4,4)=""
^DD(870.019,"GL",0,5,5)=""
^DD(870.019,"GL",0,6,6)=""
^DD(870.019,"GL",0,7,7)=""
^DD(870.019,"GL",0,8,8)=""
^DD(870.019,"GL",0,9,9)=""
^DD(870.019,"GL",1,0,3)=""
^DD(870.019,"IX",.01)=""
^DD(870.019,"IX",1)=""
^DD(870.019,"SB",870.193,3)=""
^DD(870.02,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(870.02,0,"DT")="3070629"
^DD(870.02,0,"NM","DESCRIPTION")=""
^DD(870.02,0,"UP")="870"
^DD(870.02,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(870.02,.01,3)="Enter a description for this link"
^DD(870.02,.01,21,0)="^.001^1^1^3070629^^"
^DD(870.02,.01,21,1,0)="This field contains a brief explanation of this link."
^DD(870.02,.01,"DT")="3070629"
^DD(870.02,"B","DESCRIPTION",.01)=""
^DD(870.02,"GL",0,1,.01)=""
^DD(870.13,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^DD(870.13,0,"DT")="2941006"
^DD(870.13,0,"NM","MESSAGE TEXT")=""
^DD(870.13,0,"UP")="870.01"
^DD(870.13,.01,0)="MESSAGE TEXT^WL^^0;1^Q"
^DD(870.13,.01,"DT")="2941006"
^DD(870.13,"B","MESSAGE TEXT",.01)=""
^DD(870.13,"GL",0,1,.01)=""
^DD(870.193,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^DD(870.193,0,"DT")="2941006"
^DD(870.193,0,"NM","MESSAGE TEXT")=""
^DD(870.193,0,"UP")="870.019"
^DD(870.193,.01,0)="MESSAGE TEXT^WL^^0;1^Q"
^DD(870.193,.01,3)="This field contains the actual text of the message."
^DD(870.193,.01,"DT")="2941006"
^DD(870.193,"B","MESSAGE TEXT",.01)=""
^DD(870.193,"GL",0,1,.01)=""
^DD(910,0)="FIELD^^20^32"
^DD(910,0,"DDA")="N"
^DD(910,0,"DT")="2930928"
^DD(910,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(910,0,"ID",.03)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(910,0,"ID",.04)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(910,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(910,0,"IX","B",910,.01)=""
^DD(910,0,"IX","BS5",910,.01)=""
^DD(910,0,"IX","BS5",910,.02)=""
^DD(910,0,"IX","C",910.01,.01)=""
^DD(910,0,"IX","DOB",910,.03)=""
^DD(910,0,"IX","SOUN",910,.01)=""
^DD(910,0,"IX","SSN",910,.02)=""
^DD(910,0,"NM","ESP MASTER NAME INDEX")=""
^DD(910,0,"PT",910.2,.03)=""
^DD(910,0,"PT",910.2,4.05)=""
^DD(910,0,"PT",910.2,5.01)=""
^DD(910,0,"PT",910.2,6.01)=""
^DD(910,0,"PT",910.2,6.02)=""
^DD(910,0,"PT",910.2,6.03)=""
^DD(910,0,"PT",910.2,6.04)=""
^DD(910,0,"PT",910.2,6.05)=""
^DD(910,0,"PT",910.81,.03)=""
^DD(910,0,"PT",910.81,.04)=""
^DD(910,0,"PT",910.85,.03)=""
^DD(910,0,"PT",912.03,.02)=""
^DD(910,0,"PT",912.04,.02)=""
^DD(910,0,"PT",912.05,.02)=""
^DD(910,0,"PT",912.06,.02)=""
^DD(910,0,"PT",912.09,.11)=""
^DD(910,0,"PT",913,.01)=""
^DD(910,0,"PT",914,.09)=""
^DD(910,0,"VR")="1.0"
^DD(910,.01,0)="NAME^FX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X'?1U.UP1"",""1U.UP) X"
^DD(910,.01,1,0)="^.1"
^DD(910,.01,1,1,0)="910^B"
^DD(910,.01,1,1,1)="S ^ESP(910,""B"",$E(X,1,30),DA)="""""
^DD(910,.01,1,1,2)="K ^ESP(910,""B"",$E(X,1,30),DA)"
^DD(910,.01,1,2,0)="910^SOUN^SOUNDEX"
^DD(910,.01,1,2,1)="S I=$E(X,1,27) D SOU^DICM S ^ESP(910,""SOUN"",X_I,DA)="""""
^DD(910,.01,1,2,2)="S I=$E(X,1,27) D SOU^DICM K ^ESP(910,""SOUN"",X_I,DA)"
^DD(910,.01,1,2,3)="Do not delete. Used to reduce the change of duplicate entries."
^DD(910,.01,1,2,"DT")="2970123"
^DD(910,.01,1,3,0)="910^BS5^MUMPS"
^DD(910,.01,1,3,1)="Q:$P(^ESP(910,DA,0),U,2)']""""  S ^ESP(910,""BS5"",$E(X,1)_$E($P(^(0),U,2),6,9),DA)="""""
^DD(910,.01,1,3,2)="Q:$P(^ESP(910,DA,0),U,2)']""""  K ^ESP(910,""BS5"",$E(X,1)_$E($P(^(0),U,2),6,9),DA)"
^DD(910,.01,1,3,"%D",0)="^^4^4^2930611^^"
^DD(910,.01,1,3,"%D",1,0)="This cross-reference allows you to enter the first letter of the"
^DD(910,.01,1,3,"%D",2,0)="last name and the last 4 numbers of the social security number."
^DD(910,.01,1,3,"%D",3,0)="For example, if you enter A4607, then that would identify ADAMS with"
^DD(910,.01,1,3,"%D",4,0)="a social security number 123-45-4607."
^DD(910,.01,1,3,"DT")="2930611"
^DD(910,.01,3)="Enter the name in 'Last,First Middle' format [3-30 characters]."
^DD(910,.01,8.5)="@"
^DD(910,.01,21,0)="^^9^9^2930708^^^^"
^DD(910,.01,21,1,0)="Enter the name in 'Last,First Middle' format between 3-30 characters."
^DD(910,.01,21,2,0)="Do not use numerics or lowercase alphabetic characters.  With the"
^DD(910,.01,21,3,0)="exception of the comma, period, space, hyphen, dash, and apostrophe,"
^DD(910,.01,21,4,0)="punctuation characters should be avoided. "
^DD(910,.01,21,5,0)=" "
^DD(910,.01,21,6,0)="DO NOT ENTER A SPACE BETWEEN THE COMMA AND THE FIRST NAME."
^DD(910,.01,21,7,0)="DO NOT DELETE A MASTER NAME ENTRY.  THIS WILL REMOVE THE NAME FROM"
^DD(910,.01,21,8,0)="ALL REFERENCED FILES.  EDIT THE NAME TO CORRECT ANY ERRORS, OR"
^DD(910,.01,21,9,0)="CONTACT YOUR IRM REPRESENTATIVE."
^DD(910,.01,"DEL",.01,0)="I 1 W !?10,""DELETIONS ARE NOT ALLOWED"""
^DD(910,.01,"DT")="2970123"
^DD(910,.02,0)="SOCIAL SECURITY NUMBER^NJ9,0X^^0;2^S X=$TR(X,""-"","""") K:X'?9N X I $D(X),$D(^ESP(910,""SSN"",X)) W "" SSN already exists in another entry"" K X"
^DD(910,.02,1,0)="^.1"
^DD(910,.02,1,1,0)="910^SSN"
^DD(910,.02,1,1,1)="S ^ESP(910,""SSN"",$E(X,1,30),DA)="""""
^DD(910,.02,1,1,2)="K ^ESP(910,""SSN"",$E(X,1,30),DA)"
^DD(910,.02,1,1,"DT")="2910603"
^DD(910,.02,1,2,0)="910^BS5^MUMPS"
^DD(910,.02,1,2,1)="S ^ESP(910,""BS5"",$E(^ESP(910,DA,0),1)_$E(X,6,9),DA)="""""
^DD(910,.02,1,2,2)="K ^ESP(910,""BS5"",$E(^ESP(910,DA,0),1)_$E(X,6,9),DA)"
^DD(910,.02,1,2,"DT")="2930610"
^DD(910,.02,3)="Enter 9-digit SSN."
^DD(910,.02,21,0)="^^1^1^2930629^^^^"
^DD(910,.02,21,1,0)="Enter the individual's social security number as nine digits, i.e., 123456789."
^DD(910,.02,"DT")="2970131"
^DD(910,.03,0)="DOB^DX^^0;3^S %DT=""EP"" D ^%DT S X=Y K:1701231>X!(DT<X) X"
^DD(910,.03,.1)="DATE OF BIRTH"
^DD(910,.03,1,0)="^.1"
^DD(910,.03,1,1,0)="910^DOB"
^DD(910,.03,1,1,1)="S ^ESP(910,""DOB"",$E(X,1,30),DA)="""""
^DD(910,.03,1,1,2)="K ^ESP(910,""DOB"",$E(X,1,30),DA)"
^DD(910,.03,1,1,"DT")="2910603"
^DD(910,.03,3)="Enter the DATE OF BIRTH which must be later than 12/31/1870."
^DD(910,.03,21,0)="^^1^1^2901218^^^"
^DD(910,.03,21,1,0)="Enter the date of birth between December 31, 1870 and today's date."
^DD(910,.03,"DT")="2920520"
^DD(910,.0301,0)="AGE^CJ8,0^^ ; ^X ^DD(910,.0301,9.6) S Y=X,X=Y(910,.0301,7),X=X-Y S X=$J(X,0,0)"
^DD(910,.0301,9)="^"
^DD(910,.0301,9.01)="910^.03"
^DD(910,.0301,9.1)="$E(TODAY,1,3)-$E(DOB,1,3)-($E(TODAY,4,7)<$E(DOB,4,7))"
^DD(910,.0301,9.2)="S Y(910,.0301,4)=$S($D(^ESP(910,D0,0)):^(0),1:""""),X=DT S X=X,Y(910,.0301,1)=X S X=1,Y(910,.0301,2)=X S X=3,X=$E(Y(910,.0301,1),Y(910,.0301,2),X)"
^DD(910,.0301,9.3)="X ^DD(910,.0301,9.2) S Y(910,.0301,3)=X S X=$P(Y(910,.0301,4),U,3),Y(910,.0301,5)=X S X=1,Y(910,.0301,6)=X S X=3"
^DD(910,.0301,9.4)="X ^DD(910,.0301,9.3) S X=$E(Y(910,.0301,5),Y(910,.0301,6),X) S Y=X,X=Y(910,.0301,3),X=X-Y,Y(910,.0301,7)=X,Y(910,.0301,8)=X,Y(910,.0301,9)=X,X=DT S X=X"
^DD(910,.0301,9.5)="X ^DD(910,.0301,9.4) S Y(910,.0301,10)=X S X=4,Y(910,.0301,11)=X S X=7,X=$E(Y(910,.0301,10),Y(910,.0301,11),X),Y(910,.0301,12)=X S X=$P(Y(910,.0301,4),U,3)"
^DD(910,.0301,9.6)="X ^DD(910,.0301,9.5) S Y(910,.0301,13)=X S X=4,Y(910,.0301,14)=X S X=7,X=$E(Y(910,.0301,13),Y(910,.0301,14),X) S Y=X,X=Y(910,.0301,12),X=X<Y"
^DD(910,.0301,21,0)="^^1^1^2901218^^^^"
^DD(910,.0301,21,1,0)="Computed field which determines individual's age based on DOB and today's date."
^DD(910,.0301,"DT")="2980218"
^DD(910,.04,0)="CATEGORY^RS^P:PATIENT;V:VISITOR;E:EMPLOYEE;O:OUTSIDER;PO:POLICE OFFICER;^0;4^Q"
^DD(910,.04,3)="Enter 'P' for Patient, 'V' for Visitor, 'E' for Employee, 'O' for Outsider or 'PO' for Police Officer."
^DD(910,.04,21,0)="^.001^2^2^3061227^^"
^DD(910,.04,21,1,0)="Enter 'P' for Patient, 'V' for Visitor, 'E' for Employee, "
^DD(910,.04,21,2,0)="'O' for Outsider, or 'PO' for Police Officer."
^DD(910,.04,"DT")="2980615"
^DD(910,.05,0)="SERVICE^P49'^DIC(49,^0;5^Q"
^DD(910,.05,3)="Enter the individual's assigned service/section."
^DD(910,.05,21,0)="^^1^1^2930222^^"
^DD(910,.05,21,1,0)="From the available listing choose the service/section where the individual works."
^DD(910,.05,"DT")="2911028"
^DD(910,.06,0)="PLACE OF EMPLOYMENT^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(910,.06,3)="Answer must be [1-30 characters]."
^DD(910,.06,21,0)="^^1^1^2930222^^^"
^DD(910,.06,21,1,0)="Enter the place where the individual is employed."
^DD(910,.06,"DT")="2920522"
^DD(910,.07,0)="ID BADGE^FX^^0;7^K:$L(X)>6!($L(X)<2)!(X["" ""!(X[""-"")) X"
^DD(910,.07,3)="Answer must be [2-6 characters].  No spaces or hyphens allowed."
^DD(910,.07,21,0)="^^2^2^2930222^^^^"
^DD(910,.07,21,1,0)="This is the ID badge # issued.  It is 2-6 characters, no hyphens or "
^DD(910,.07,21,2,0)="spaces allowed."
^DD(910,.07,"DT")="2921102"
^DD(910,.08,0)="SEX^S^M:MALE;F:FEMALE;^0;8^Q"
^DD(910,.08,3)="Enter 'M' for MALE or 'F' for FEMALE."
^DD(910,.08,21,0)="^^1^1^2911106^"
^DD(910,.08,21,1,0)="Enter 'M' if this individual is a male, or 'F' if female."
^DD(910,.08,"DT")="2911106"
^DD(910,.09,0)="RACE^P10'^DIC(10,^0;9^Q"
^DD(910,.09,3)="Select from the available listing the race which best identifies this individual."
^DD(910,.09,21,0)="^^1^1^2930222^^"
^DD(910,.09,21,1,0)="Select from the available listing the proper race of this individual."
^DD(910,.09,"DT")="2911106"
^DD(910,.1,0)="DRIVER'S LICENSE #^F^^0;10^K:$L(X)>20!($L(X)<3) X"
^DD(910,.1,3)="Answer should be [3-20 characters]."
^DD(910,.1,21,0)="^^1^1^2930222^^"
^DD(910,.1,21,1,0)="Enter the individual's driver's license number [3-20 characters]."
^DD(910,.1,"DT")="2911106"
^DD(910,.11,0)="STATE OF ISSUE^P5'^DIC(5,^0;11^Q"
^DD(910,.11,3)="Enter a State."
^DD(910,.11,21,0)="^^1^1^2930222^^^"
^DD(910,.11,21,1,0)="From the available listing choose the state that issued the driver's license."
^DD(910,.11,"DT")="2911106"
^DD(910,1.01,0)="HOME ADDRESS^FX^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X"
^DD(910,1.01,3)="Answer must be [3-35 characters]."
^DD(910,1.01,21,0)="^^2^2^2940310^^^^"
^DD(910,1.01,21,1,0)="Enter the first line of this individual's home address."
^DD(910,1.01,21,2,0)="It must be 3-35 characters."
^DD(910,1.01,"DT")="2920526"
^DD(910,1.02,0)="HOME ADDRESS [LINE 2]^FX^^1;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(910,1.02,3)="Answer must be [3-35 characters]."
^DD(910,1.02,21,0)="^^2^2^2940310^^^^"
^DD(910,1.02,21,1,0)="If necessary, enter the second line of this individual's home address."
^DD(910,1.02,21,2,0)="It must be 3-35 characters."
^DD(910,1.02,"DT")="2920526"
^DD(910,1.03,0)="CITY^F^^1;3^K:$L(X)>30!($L(X)<2) X"
^DD(910,1.03,3)="Answer must be 2-30 characters in length."
^DD(910,1.03,21,0)="^^1^1^2930222^^^^"
^DD(910,1.03,21,1,0)="Enter the city where this individual resides [2-30 characters]."
^DD(910,1.03,"DT")="2920619"
^DD(910,1.04,0)="STATE^P5'^DIC(5,^1;4^Q"
^DD(910,1.04,3)="From the available listing choose the state in which this individual resides."
^DD(910,1.04,21,0)="^^1^1^2911028^"
^DD(910,1.04,21,1,0)="Enter the state where this individual resides.  You must choose from the available listing."
^DD(910,1.04,"DT")="2911028"
^DD(910,1.05,0)="ZIP^FXO^^1;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(910,1.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(910,1.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(910,1.05,3)="Enter the zip code for the city in which this individual resides."
^DD(910,1.05,21,0)="^^2^2^2930928^^^^"
^DD(910,1.05,21,1,0)="Enter the zip code for the city in which this individual resides."
^DD(910,1.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, ie. 12345-1234."
^DD(910,1.05,"DT")="2930928"
^DD(910,1.06,0)="PHONE NUMBER [RESIDENCE]^F^^1;6^K:$L(X)>20!($L(X)<4) X"
^DD(910,1.06,3)="Answer must be [4-20 characters]."
^DD(910,1.06,21,0)="^^2^2^2930222^^^"
^DD(910,1.06,21,1,0)="Enter the individual's home telephone number."
^DD(910,1.06,21,2,0)="Answer must be [4-20 characters]."
^DD(910,1.06,"DT")="2911028"
^DD(910,2.01,0)="STREET ADDRESS [WORK]^FX^^2;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3) X"
^DD(910,2.01,3)="Answer must be [3-35 characters]."
^DD(910,2.01,21,0)="^^2^2^2930222^^"
^DD(910,2.01,21,1,0)="Enter the first line of the address of the individual's place of employment."
^DD(910,2.01,21,2,0)="Answer must be [3-35 characters]."
^DD(910,2.01,"DT")="2911028"
^DD(910,2.02,0)="STREET ADDRESS [LINE 2] [WORK]^FX^^2;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(910,2.02,3)="Answer must be [3-30 characters]."
^DD(910,2.02,21,0)="^^2^2^2930222^^"
^DD(910,2.02,21,1,0)="If necessary, enter the second line of the address of the individual's"
^DD(910,2.02,21,2,0)="place of employment.  Answer must be [3-30 characters]."
^DD(910,2.02,"DT")="2911028"
^DD(910,2.03,0)="CITY [WORK]^F^^2;3^K:$L(X)>30!($L(X)<2) X"
^DD(910,2.03,3)="Answer must be [2-30 characters]."
^DD(910,2.03,21,0)="^^2^2^2930222^^^^"
^DD(910,2.03,21,1,0)="Enter the city of this individual's place of employment."
^DD(910,2.03,21,2,0)="Answer must be [2-30 characters]."
^DD(910,2.03,"DT")="2920619"
^DD(910,2.04,0)="STATE [WORK]^P5'^DIC(5,^2;4^Q"
^DD(910,2.04,3)="Enter a State."
^DD(910,2.04,21,0)="^^2^2^2930222^^"
^DD(910,2.04,21,1,0)="Enter the state of this individual's place of employment."
^DD(910,2.04,21,2,0)="You must choose from the available listing."
^DD(910,2.04,"DT")="2911028"
^DD(910,2.05,0)="ZIP [WORK]^FXO^^2;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(910,2.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(910,2.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(910,2.05,3)="Enter the zip code for the city in which this individual is employed."
^DD(910,2.05,21,0)="^^2^2^2931013^^^^"
^DD(910,2.05,21,1,0)="Enter the zip code for the city in which this individual is employed."
^DD(910,2.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, ie. 12345-1234."
^DD(910,2.05,"DT")="2930928"
^DD(910,2.06,0)="OFFICE PHONE^F^^2;6^K:$L(X)>20!($L(X)<4) X"
^DD(910,2.06,3)="Answer must be [4-20 characters]."
^DD(910,2.06,21,0)="^^2^2^2930222^^^"
^DD(910,2.06,21,1,0)="Enter the telephone number of this individual's place of employment."
^DD(910,2.06,21,2,0)="Answer must be [4-20 characters]."
^DD(910,2.06,"DT")="2911028"
^DD(910,3.01,0)="HEIGHT^FX^^3;1^K:X'?1N1""-""2N X"
^DD(910,3.01,3)="Enter the individual's height [2-5 characters]."
^DD(910,3.01,21,0)="^^2^2^2930701^^^^"
^DD(910,3.01,21,1,0)="Enter the individual's height in the format 6-07 for"
^DD(910,3.01,21,2,0)="6 feet and 7 inches."
^DD(910,3.01,"DT")="2930701"
^DD(910,3.02,0)="WEIGHT^NJ3,0^^3;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(910,3.02,3)="Enter the individual's weight."
^DD(910,3.02,21,0)="^^1^1^2920918^"
^DD(910,3.02,21,1,0)="Enter the individual's weight.  Select between 1 and 999."
^DD(910,3.02,"DT")="2920918"
^DD(910,3.03,0)="HAIR COLOR^*P910.7'^ESP(910.7,^3;3^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910,3.03,3)="Enter the individual's hair color."
^DD(910,3.03,12)="Enter a valid hair color."
^DD(910,3.03,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,1)"""
^DD(910,3.03,21,0)="^^2^2^2920918^^^"
^DD(910,3.03,21,1,0)="Enter the hair color of the individual.  You must choose from the"
^DD(910,3.03,21,2,0)="available listing."
^DD(910,3.03,"DT")="2920918"
^DD(910,3.04,0)="EYE COLOR^*P910.7'^ESP(910.7,^3;4^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910,3.04,3)="Enter the individual's eye color."
^DD(910,3.04,12)="Enter a valid eye color."
^DD(910,3.04,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,2)"""
^DD(910,3.04,21,0)="^^2^2^2920918^^"
^DD(910,3.04,21,1,0)="Enter the color of the individual's eyes.  You must choose from the"
^DD(910,3.04,21,2,0)="available listing."
^DD(910,3.04,"DT")="2920918"
^DD(910,3.05,0)="SKIN TONE^*P910.7'^ESP(910.7,^3;5^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910,3.05,3)="Enter the skin tone of the individual."
^DD(910,3.05,12)="Enter a valid skin tone."
^DD(910,3.05,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,6)"""
^DD(910,3.05,21,0)="^^2^2^2920918^^"
^DD(910,3.05,21,1,0)="Enter the skin tone of the individual.  You must select from the"
^DD(910,3.05,21,2,0)="available listing."
^DD(910,3.05,"DT")="2920918"
^DD(910,3.06,0)="SCARS/MARKS^F^^3;6^K:$L(X)>50!($L(X)<3) X"
^DD(910,3.06,3)="Answer must be [3-50 characters]."
^DD(910,3.06,21,0)="^^2^2^2930222^^"
^DD(910,3.06,21,1,0)="Enter any identifying scars or marks for the individual.  Answer must"
^DD(910,3.06,21,2,0)="be 3-50 characters in length."
^DD(910,3.06,"DT")="2920918"
^DD(910,10,0)="AKA^910.01^^10;0"
^DD(910,10,21,0)="^^1^1^2930222^^^^"
^DD(910,10,21,1,0)="Enter the Also Known As name.  Answer must be [2-30 characters]."
^DD(910,20,0)="REMARKS^910.02^^20;0"
^DD(910,20,21,0)="^^2^2^2940310^^^^"
^DD(910,20,21,1,0)="This is a word-processing field where you may enter additional"
^DD(910,20,21,2,0)="information which you feel is pertinent to this individual."
^DD(910,"B","AGE",.0301)=""
^DD(910,"B","AKA",10)=""
^DD(910,"B","CATEGORY",.04)=""
^DD(910,"B","CITY",1.03)=""
^DD(910,"B","CITY [WORK]",2.03)=""
^DD(910,"B","DATE OF BIRTH",.03)="1"
^DD(910,"B","DOB",.03)=""
^DD(910,"B","DRIVER'S LICENSE #",.1)=""
^DD(910,"B","EYE COLOR",3.04)=""
^DD(910,"B","HAIR COLOR",3.03)=""
^DD(910,"B","HEIGHT",3.01)=""
^DD(910,"B","HOME ADDRESS",1.01)=""
^DD(910,"B","HOME ADDRESS [LINE 2]",1.02)=""
^DD(910,"B","ID BADGE",.07)=""
^DD(910,"B","NAME",.01)=""
^DD(910,"B","OFFICE PHONE",2.06)=""
^DD(910,"B","PHONE NUMBER [RESIDENCE]",1.06)=""
^DD(910,"B","PLACE OF EMPLOYMENT",.06)=""
^DD(910,"B","RACE",.09)=""
^DD(910,"B","REMARKS",20)=""
^DD(910,"B","SCARS/MARKS",3.06)=""
^DD(910,"B","SERVICE",.05)=""
^DD(910,"B","SEX",.08)=""
^DD(910,"B","SKIN TONE",3.05)=""
^DD(910,"B","SOCIAL SECURITY NUMBER",.02)=""
^DD(910,"B","STATE",1.04)=""
^DD(910,"B","STATE OF ISSUE",.11)=""
^DD(910,"B","STATE [WORK]",2.04)=""
^DD(910,"B","STREET ADDRESS [LINE 2] [WORK]",2.02)=""
^DD(910,"B","STREET ADDRESS [WORK]",2.01)=""
^DD(910,"B","WEIGHT",3.02)=""
^DD(910,"B","ZIP",1.05)=""
^DD(910,"B","ZIP [WORK]",2.05)=""
^DD(910,"GL",0,1,.01)=""
^DD(910,"GL",0,2,.02)=""
^DD(910,"GL",0,3,.03)=""
^DD(910,"GL",0,4,.04)=""
^DD(910,"GL",0,5,.05)=""
^DD(910,"GL",0,6,.06)=""
^DD(910,"GL",0,7,.07)=""
^DD(910,"GL",0,8,.08)=""
^DD(910,"GL",0,9,.09)=""
^DD(910,"GL",0,10,.1)=""
^DD(910,"GL",0,11,.11)=""
^DD(910,"GL",1,1,1.01)=""
^DD(910,"GL",1,2,1.02)=""
^DD(910,"GL",1,3,1.03)=""
^DD(910,"GL",1,4,1.04)=""
^DD(910,"GL",1,5,1.05)=""
^DD(910,"GL",1,6,1.06)=""
^DD(910,"GL",2,1,2.01)=""
^DD(910,"GL",2,2,2.02)=""
^DD(910,"GL",2,3,2.03)=""
^DD(910,"GL",2,4,2.04)=""
^DD(910,"GL",2,5,2.05)=""
^DD(910,"GL",2,6,2.06)=""
^DD(910,"GL",3,1,3.01)=""
^DD(910,"GL",3,2,3.02)=""
^DD(910,"GL",3,3,3.03)=""
^DD(910,"GL",3,4,3.04)=""
^DD(910,"GL",3,5,3.05)=""
^DD(910,"GL",3,6,3.06)=""
^DD(910,"GL",10,0,10)=""
^DD(910,"GL",20,0,20)=""
^DD(910,"IX",.01)=""
^DD(910,"IX",.02)=""
^DD(910,"IX",.03)=""
^DD(910,"RQ",.04)=""
^DD(910,"SB",910.01,10)=""
^DD(910,"SB",910.02,20)=""
^DD(910.01,0)="AKA SUB-FIELD^^.01^1"
^DD(910.01,0,"DT")="2920608"
^DD(910.01,0,"IX","B",910.01,.01)=""
^DD(910.01,0,"NM","AKA")=""
^DD(910.01,0,"UP")="910"
^DD(910.01,.01,0)="AKA^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(910.01,.01,1,0)="^.1"
^DD(910.01,.01,1,1,0)="910.01^B"
^DD(910.01,.01,1,1,1)="S ^ESP(910,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(910.01,.01,1,1,2)="K ^ESP(910,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(910.01,.01,1,2,0)="910^C"
^DD(910.01,.01,1,2,1)="S ^ESP(910,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(910.01,.01,1,2,2)="K ^ESP(910,""C"",$E(X,1,30),DA(1),DA)"
^DD(910.01,.01,1,2,"DT")="2920604"
^DD(910.01,.01,3)="Answer must be [2-30 characters]."
^DD(910.01,.01,21,0)="^^1^1^2940310^^^^"
^DD(910.01,.01,21,1,0)="Enter the AKA 'Also Known As' name.  Answer must be [2-30 characters]."
^DD(910.01,.01,"DT")="2920608"
^DD(910.01,"B","AKA",.01)=""
^DD(910.01,"GL",0,1,.01)=""
^DD(910.01,"IX",.01)=""
^DD(910.02,0)="REMARKS SUB-FIELD^^.01^1"
^DD(910.02,0,"DT")="2911028"
^DD(910.02,0,"NM","REMARKS")=""
^DD(910.02,0,"UP")="910"
^DD(910.02,.01,0)="REMARKS^W^^0;1^Q"
^DD(910.02,.01,3)="Enter any additional descriptive information for this individual."
^DD(910.02,.01,21,0)="^^2^2^2930222^^^^"
^DD(910.02,.01,21,1,0)="This is a word-processing field.  Enter any additional descriptive"
^DD(910.02,.01,21,2,0)="information for this individual."
^DD(910.02,.01,"DT")="2911028"
^DD(910.02,"B","REMARKS",.01)=""
^DD(910.02,"GL",0,1,.01)=""
^DD(910.1,0)="FIELD^^10^2"
^DD(910.1,0,"DDA")="N"
^DD(910.1,0,"DT")="2930715"
^DD(910.1,0,"IX","B",910.1,.01)=""
^DD(910.1,0,"NM","ESP ACTIVITY REPORT")=""
^DD(910.1,0,"VR")="1.0"
^DD(910.1,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(910.1,.01,1,0)="^.1"
^DD(910.1,.01,1,1,0)="910.1^B"
^DD(910.1,.01,1,1,1)="S ^ESP(910.1,""B"",$E(X,1,30),DA)="""""
^DD(910.1,.01,1,1,2)="K ^ESP(910.1,""B"",$E(X,1,30),DA)"
^DD(910.1,.01,3)="Enter the date that the activities being reported were performed."
^DD(910.1,.01,21,0)="^^1^1^2940310^^"
^DD(910.1,.01,21,1,0)="This is the date when the activities were performed."
^DD(910.1,.01,"DT")="2930208"
^DD(910.1,10,0)="OFFICER^910.11P^^10;0"
^DD(910.1,10,21,0)="^^3^3^2940331^^^^"
^DD(910.1,10,21,1,0)="This is the officer who performed the activities being reported."
^DD(910.1,10,21,2,0)="The officer's name must be entered into the NEW PERSON file (#200)"
^DD(910.1,10,21,3,0)="and must also be assigned the ESP POLICE Security Key."
^DD(910.1,10,22)=""
^DD(910.1,"B","DATE",.01)=""
^DD(910.1,"B","OFFICER",10)=""
^DD(910.1,"GL",0,1,.01)=""
^DD(910.1,"GL",10,0,10)=""
^DD(910.1,"IX",.01)=""
^DD(910.1,"RQ",.01)=""
^DD(910.1,"SB",910.11,10)=""
^DD(910.11,0)="OFFICER SUB-FIELD^^10^3"
^DD(910.11,0,"DT")="2930715"
^DD(910.11,0,"IX","B",910.11,.01)=""
^DD(910.11,0,"NM","OFFICER")=""
^DD(910.11,0,"UP")="910.1"
^DD(910.11,.01,0)="OFFICER^M*P200'^VA(200,^0;1^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.11,.01,1,0)="^.1"
^DD(910.11,.01,1,1,0)="910.11^B"
^DD(910.11,.01,1,1,1)="S ^ESP(910.1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(910.11,.01,1,1,2)="K ^ESP(910.1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(910.11,.01,3)="Enter the name of the officer who performed the activity."
^DD(910.11,.01,4)=""
^DD(910.11,.01,12)="Select a police officer currently assigned to the Service."
^DD(910.11,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"""
^DD(910.11,.01,21,0)="^^3^3^2940331^^^^"
^DD(910.11,.01,21,1,0)="Enter the name of the police officer responsible for generating the"
^DD(910.11,.01,21,2,0)="workload data.  The officer's name must be entered into the NEW PERSON"
^DD(910.11,.01,21,3,0)="file (#200) and must also be assigned the ESP POLICE Security Key."
^DD(910.11,.01,22)=""
^DD(910.11,.01,"DT")="2930715"
^DD(910.11,.02,0)="SHIFT^S^A:WATCH A;B:WATCH B;C:WATCH C;D:OTHER TOUR;^0;2^Q"
^DD(910.11,.02,3)="Select from the available shift codes."
^DD(910.11,.02,21,0)="^^3^3^2940331^^^"
^DD(910.11,.02,21,1,0)="Enter the assigned shift for the police officer.  Specific times"
^DD(910.11,.02,21,2,0)="assigned for each shift have not been included due to a variance"
^DD(910.11,.02,21,3,0)="of times assigned to shifts at different field stations."
^DD(910.11,.02,"DT")="2930504"
^DD(910.11,10,0)="ACTIVITY^910.12P^^10;0"
^DD(910.11,10,22)=""
^DD(910.11,"B","ACTIVITY",10)=""
^DD(910.11,"B","OFFICER",.01)=""
^DD(910.11,"B","SHIFT",.02)=""
^DD(910.11,"GL",0,1,.01)=""
^DD(910.11,"GL",0,2,.02)=""
^DD(910.11,"GL",10,0,10)=""
^DD(910.11,"IX",.01)=""
^DD(910.11,"SB",910.12,10)=""
^DD(910.12,0)="ACTIVITY SUB-FIELD^^.03^3"
^DD(910.12,0,"DT")="2930111"
^DD(910.12,0,"IX","B",910.12,.01)=""
^DD(910.12,0,"NM","ACTIVITY")=""
^DD(910.12,0,"UP")="910.11"
^DD(910.12,.01,0)="ACTIVITY^MP911'^ESP(911,^0;1^Q"
^DD(910.12,.01,1,0)="^.1"
^DD(910.12,.01,1,1,0)="910.12^B"
^DD(910.12,.01,1,1,1)="S ^ESP(910.1,DA(2),10,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(910.12,.01,1,1,2)="K ^ESP(910.1,DA(2),10,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(910.12,.01,3)="Enter the appropriate activity code."
^DD(910.12,.01,"DT")="2930111"
^DD(910.12,.02,0)="NUMBER^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(910.12,.02,3)="Enter the number of times the officer performed the activity.  Type a number between 1 and 99, 0 Decimal Digits."
^DD(910.12,.02,"DT")="2910920"
^DD(910.12,.03,0)="MINUTES^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(910.12,.03,3)="Enter the total number of minutes that the officer spent in performing this activity on this day.  Type a Number between 1 and 999, 0 Decimal Digits."
^DD(910.12,.03,"DT")="2910920"
^DD(910.12,"B","ACTIVITY",.01)=""
^DD(910.12,"B","MINUTES",.03)=""
^DD(910.12,"B","NUMBER",.02)=""
^DD(910.12,"GL",0,1,.01)=""
^DD(910.12,"GL",0,2,.02)=""
^DD(910.12,"GL",0,3,.03)=""
^DD(910.12,"IX",.01)=""
^DD(910.2,0)="FIELD^^20^46"
^DD(910.2,0,"DDA")="N"
^DD(910.2,0,"DT")="2990309"
^DD(910.2,0,"ID",.02)="W """""
^DD(910.2,0,"ID",.08)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(40.8,+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(40.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(910.2,0,"ID","WRITE")="D ID^ESPUTIL(^(0))"
^DD(910.2,0,"IX","B",910.2,.01)=""
^DD(910.2,0,"IX","BI",910.2,6.02)=""
^DD(910.2,0,"IX","C",910.2,.05)=""
^DD(910.2,0,"IX","D",910.2,.03)=""
^DD(910.2,0,"IX","E",910.2,.07)=""
^DD(910.2,0,"IX","F",910.2,1.01)=""
^DD(910.2,0,"IX","G",910.2,6.05)=""
^DD(910.2,0,"IX","H",910.2,.02)=""
^DD(910.2,0,"IX","I",910.2,4.05)=""
^DD(910.2,0,"IX","J",910.2,5.01)=""
^DD(910.2,0,"IX","K",910.2,1.08)=""
^DD(910.2,0,"IX","P",910.2,6.04)=""
^DD(910.2,0,"IX","T",910.2,.04)=""
^DD(910.2,0,"IX","V",910.2,6.01)=""
^DD(910.2,0,"IX","W",910.2,6.03)=""
^DD(910.2,0,"NM","ESP POLICE REGISTRATION LOG")=""
^DD(910.2,0,"PT",912.09,.08)=""
^DD(910.2,0,"PT",914,1.01)=""
^DD(910.2,0,"VR")="1.0"
^DD(910.2,0,"VRPK")="ES"
^DD(910.2,.01,0)="VA TAG ID^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(910.2,.01,1,0)="^.1^^-1"
^DD(910.2,.01,1,1,0)="910.2^B"
^DD(910.2,.01,1,1,1)="S ^ESP(910.2,""B"",$E(X,1,30),DA)="""""
^DD(910.2,.01,1,1,2)="K ^ESP(910.2,""B"",$E(X,1,30),DA)"
^DD(910.2,.01,3)="Answer must be [1-30 characters]."
^DD(910.2,.01,21,0)="^^1^1^2940310^^^^"
^DD(910.2,.01,21,1,0)="Enter the VA tag ID, such as decal # for a vehicle."
^DD(910.2,.01,"DT")="2930708"
^DD(910.2,.02,0)="DECAL COLOR^*P910.7'^ESP(910.7,^0;2^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.2,.02,1,0)="^.1^^-1"
^DD(910.2,.02,1,1,0)="910.2^H"
^DD(910.2,.02,1,1,1)="S ^ESP(910.2,""H"",$E(X,1,30),DA)="""""
^DD(910.2,.02,1,1,2)="K ^ESP(910.2,""H"",$E(X,1,30),DA)"
^DD(910.2,.02,1,1,"DT")="2911204"
^DD(910.2,.02,3)="Choose from the available listing the color of the decal."
^DD(910.2,.02,12)="Enter a valid decal color."
^DD(910.2,.02,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,7)"""
^DD(910.2,.02,21,0)="^^2^2^2940310^^^"
^DD(910.2,.02,21,1,0)="Enter the color of the assigned decal.  You must choose from the "
^DD(910.2,.02,21,2,0)="available listing."
^DD(910.2,.02,"DT")="2930708"
^DD(910.2,.03,0)="OWNER NAME^P910^ESP(910,^0;3^Q"
^DD(910.2,.03,1,0)="^.1"
^DD(910.2,.03,1,1,0)="910.2^D"
^DD(910.2,.03,1,1,1)="S ^ESP(910.2,""D"",$E(X,1,30),DA)="""""
^DD(910.2,.03,1,1,2)="K ^ESP(910.2,""D"",$E(X,1,30),DA)"
^DD(910.2,.03,1,1,"DT")="2911204"
^DD(910.2,.03,3)="Enter the owner's name."
^DD(910.2,.03,21,0)="^^2^2^2930222^^"
^DD(910.2,.03,21,1,0)="Choose from the available listing the name of the owner of the property"
^DD(910.2,.03,21,2,0)="being registered.  You may enter a new name if you wish."
^DD(910.2,.03,"DT")="2911204"
^DD(910.2,.04,0)="REGISTRATION TYPE^S^1:VEHICLE;2:BICYCLE;3:WEAPON;4:PET;5:GOLF;^0;4^Q"
^DD(910.2,.04,1,0)="^.1"
^DD(910.2,.04,1,1,0)="910.2^T"
^DD(910.2,.04,1,1,1)="S ^ESP(910.2,""T"",$E(X,1,30),DA)="""""
^DD(910.2,.04,1,1,2)="K ^ESP(910.2,""T"",$E(X,1,30),DA)"
^DD(910.2,.04,1,1,"%D",0)="^^1^1^2911204^"
^DD(910.2,.04,1,1,"%D",1,0)="Used for sorting and lookup by registration type."
^DD(910.2,.04,1,1,"DT")="2911204"
^DD(910.2,.04,3)="Choose the type of registration."
^DD(910.2,.04,21,0)="^^2^2^2940310^^^^"
^DD(910.2,.04,21,1,0)="Choose the registration type from the available list, (i.e.,"
^DD(910.2,.04,21,2,0)="VEHICLE.)"
^DD(910.2,.04,"DT")="2930223"
^DD(910.2,.05,0)="DATE ASSIGNED^DX^^0;5^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(910.2,.05,1,0)="^.1"
^DD(910.2,.05,1,1,0)="910.2^C"
^DD(910.2,.05,1,1,1)="S ^ESP(910.2,""C"",$E(X,1,30),DA)="""""
^DD(910.2,.05,1,1,2)="K ^ESP(910.2,""C"",$E(X,1,30),DA)"
^DD(910.2,.05,1,1,"DT")="2911204"
^DD(910.2,.05,3)="Enter the date of the registration."
^DD(910.2,.05,21,0)="^.001^2^2^3030102^^"
^DD(910.2,.05,21,1,0)="This is the date of the registration.  Future"
^DD(910.2,.05,21,2,0)="dates are not allowed."
^DD(910.2,.05,"DT")="3030425"
^DD(910.2,.06,0)="SERIAL NUMBER^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,.06,3)="Answer must be [3-30 characters]."
^DD(910.2,.06,21,0)="^^2^2^2930222^^"
^DD(910.2,.06,21,1,0)="Enter the serial number of the item being registered."
^DD(910.2,.06,21,2,0)="Answer must be [3-30 characters]."
^DD(910.2,.06,"DT")="2911204"
^DD(910.2,.07,0)="SHORT DESCRIPTION^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(910.2,.07,1,0)="^.1"
^DD(910.2,.07,1,1,0)="910.2^E^KWIC"
^DD(910.2,.07,1,1,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^ESP(910.2,""E"",I,DA)="""""
^DD(910.2,.07,1,1,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^ESP(910.2,""E"",I,DA)"
^DD(910.2,.07,1,1,"DT")="2911204"
^DD(910.2,.07,3)="Answer must be [1-50 characters]. "
^DD(910.2,.07,21,0)="^^2^2^2930223^^^"
^DD(910.2,.07,21,1,0)="Enter a short description of the item being registered."
^DD(910.2,.07,21,2,0)="Answer must be [1-50 characters]."
^DD(910.2,.07,"DT")="2911204"
^DD(910.2,.08,0)="FACILITY^P40.8'I^DG(40.8,^0;8^Q"
^DD(910.2,.08,21,0)="^.001^1^1^3000307^^"
^DD(910.2,.08,21,1,0)="Enter the Facility associated with this entry."
^DD(910.2,.08,"DT")="2991008"
^DD(910.2,1.01,0)="LICENSE TAG NUMBER^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1) X"
^DD(910.2,1.01,1,0)="^.1"
^DD(910.2,1.01,1,1,0)="910.2^F"
^DD(910.2,1.01,1,1,1)="S ^ESP(910.2,""F"",$E(X,1,30),DA)="""""
^DD(910.2,1.01,1,1,2)="K ^ESP(910.2,""F"",$E(X,1,30),DA)"
^DD(910.2,1.01,1,1,"DT")="2911107"
^DD(910.2,1.01,3)="Answer must be 1-14 characters in length."
^DD(910.2,1.01,21,0)="^^1^1^2930629^^^^"
^DD(910.2,1.01,21,1,0)="This is the license tag # of the vehicle being registered."
^DD(910.2,1.01,"DT")="2930628"
^DD(910.2,1.02,0)="STATE^P5'^DIC(5,^1;2^Q"
^DD(910.2,1.02,3)="Enter a State."
^DD(910.2,1.02,21,0)="^^1^1^2930222^^"
^DD(910.2,1.02,21,1,0)="Choose from the available listing the state that issued the license tag."
^DD(910.2,1.02,"DT")="2911031"
^DD(910.2,1.03,0)="VEHICLE MAKE^*P910.7'^ESP(910.7,^1;3^S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.2,1.03,3)="Enter the make or manufacturer."
^DD(910.2,1.03,4)=""
^DD(910.2,1.03,12)="Enter a valid vehicle make."
^DD(910.2,1.03,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)"""
^DD(910.2,1.03,21,0)="^^4^4^2930222^^^^"
^DD(910.2,1.03,21,1,0)="Enter the make or manufacturer of the item being registered."
^DD(910.2,1.03,21,2,0)="EX. FORD or CHEVROLET for vehicles."
^DD(910.2,1.03,21,3,0)="This field points to the Selectables file.  You must choose"
^DD(910.2,1.03,21,4,0)="from the available listing."
^DD(910.2,1.03,"DT")="2911106"
^DD(910.2,1.04,0)="VEHICLE MODEL^F^^1;4^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,1.04,3)="Answer must be [3-30 characters]."
^DD(910.2,1.04,21,0)="^^2^2^2930222^^^^"
^DD(910.2,1.04,21,1,0)="Enter the model of the vehicle being registered.  EX. RANGER, MALIBU"
^DD(910.2,1.04,21,2,0)="Answer must be [3-30 characters]. "
^DD(910.2,1.04,"DT")="2911104"
^DD(910.2,1.05,0)="VEHICLE STYLE^F^^1;5^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,1.05,3)="Enter the style of the vehicle being registered.  Answer must be 3-30 characters in length."
^DD(910.2,1.05,21,0)="^^2^2^2911104^^^"
^DD(910.2,1.05,21,1,0)="Enter the style of the vehicle being registered."
^DD(910.2,1.05,21,2,0)="Answer must be 3-30 characters in length."
^DD(910.2,1.05,"DT")="2911104"
^DD(910.2,1.06,0)="VEHICLE COLOR^*P910.7'^ESP(910.7,^1;6^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.2,1.06,3)="Enter the vehicle color."
^DD(910.2,1.06,12)="Enter a valid vehicle color."
^DD(910.2,1.06,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"""
^DD(910.2,1.06,21,0)="^^2^2^2930222^^^^"
^DD(910.2,1.06,21,1,0)="Enter the color of the vehicle being registered.  You must"
^DD(910.2,1.06,21,2,0)="choose from the available listing."
^DD(910.2,1.06,"DT")="2911106"
^DD(910.2,1.07,0)="YEAR OF MANUFACTURE^D^^1;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(910.2,1.07,3)="Enter the year of manufacture."
^DD(910.2,1.07,21,0)="^^2^2^2930222^^"
^DD(910.2,1.07,21,1,0)="This is the year of manufacture of the item being registered,"
^DD(910.2,1.07,21,2,0)="example:  1990 or 90."
^DD(910.2,1.07,"DT")="2911031"
^DD(910.2,1.08,0)="ASSIGNED PARKING SPACE^F^^1;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(910.2,1.08,1,0)="^.1"
^DD(910.2,1.08,1,1,0)="910.2^K"
^DD(910.2,1.08,1,1,1)="S ^ESP(910.2,""K"",$E(X,1,30),DA)="""""
^DD(910.2,1.08,1,1,2)="K ^ESP(910.2,""K"",$E(X,1,30),DA)"
^DD(910.2,1.08,1,1,"%D",0)="^^2^2^2930604^"
^DD(910.2,1.08,1,1,"%D",1,0)="This cross-reference was created to allow VA Police staff to look-up"
^DD(910.2,1.08,1,1,"%D",2,0)="a vehicle registration by assigned parking space."
^DD(910.2,1.08,1,1,"DT")="2930604"
^DD(910.2,1.08,3)="Answer must be [1-30 characters]. "
^DD(910.2,1.08,21,0)="^^2^2^2930222^^^"
^DD(910.2,1.08,21,1,0)="Enter the assigned parking space.  Answer must be 1-30 characters."
^DD(910.2,1.08,21,2,0)="For example, the parking space #, the parking lot, or lot and space #."
^DD(910.2,1.08,"DT")="2930604"
^DD(910.2,1.09,0)="CAR POOL MEMBER^S^Y:YES;N:NO;^1;9^Q"
^DD(910.2,1.09,3)="Enter 'Y' for YES or 'N' for NO."
^DD(910.2,1.09,21,0)="^^2^2^2930913^"
^DD(910.2,1.09,21,1,0)="Entering a 'YES' to this prompt will indicate that the individual"
^DD(910.2,1.09,21,2,0)="wishes to participate in the Car Pool Program."
^DD(910.2,1.09,"DT")="2930614"
^DD(910.2,2.01,0)="WEAPON MAKE^*P910.7'^ESP(910.7,^2;1^S DIC(""S"")=""I $D(^(2)),$P(^(2),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.2,2.01,3)="Enter the make of the weapon."
^DD(910.2,2.01,12)="Enter a valid weapon make."
^DD(910.2,2.01,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),U,3)"""
^DD(910.2,2.01,21,0)="^^2^2^2911106^^^^"
^DD(910.2,2.01,21,1,0)="Enter the make of the weapon, ie. Smith & Wesson."
^DD(910.2,2.01,21,2,0)="You must choose from the available listing."
^DD(910.2,2.01,"DT")="2911106"
^DD(910.2,2.02,0)="WEAPON MODEL^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(910.2,2.02,3)="Answer must be [1-30 characters]. "
^DD(910.2,2.02,21,0)="^^2^2^2930222^^"
^DD(910.2,2.02,21,1,0)="Enter the model of this weapon."
^DD(910.2,2.02,21,2,0)="Answer must be [1-30 characters]. "
^DD(910.2,2.02,"DT")="2911105"
^DD(910.2,2.03,0)="ACTION^S^R:REVOLVER;S:SEMI-AUTOMATIC;P:PUMP;C:COMPOUND;CB:CAP & BALL;F:FLINTLOCK;B:BOLT;CR:CROSS;RE:RECURVED;^2;3^Q"
^DD(910.2,2.03,3)="Enter the action of the weapon."
^DD(910.2,2.03,21,0)="^^2^2^2930222^"
^DD(910.2,2.03,21,1,0)="Select from the available listing the best description of the"
^DD(910.2,2.03,21,2,0)="weapon being registered."
^DD(910.2,2.03,"DT")="2911105"
^DD(910.2,2.04,0)="CAPACITY^F^^2;4^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,2.04,3)="Answer must be [3-30 characters]."
^DD(910.2,2.04,21,0)="^^2^2^2930222^^"
^DD(910.2,2.04,21,1,0)="Enter the maximum shot capacity for this weapon, 6 shot,"
^DD(910.2,2.04,21,2,0)="14 shot, single shot, etc.  Answer must be [1-30 characters]."
^DD(910.2,2.04,"DT")="2911105"
^DD(910.2,2.05,0)="CALIBER^F^^2;5^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,2.05,3)="Answer must be [3-30 characters]."
^DD(910.2,2.05,21,0)="^^2^2^2930222^^"
^DD(910.2,2.05,21,1,0)="Enter the caliber or gauge of the weapon, i.e., .38, .357, 9MM"
^DD(910.2,2.05,21,2,0)=" or 12 GA.  Answer must be [3-30 characters]."
^DD(910.2,2.05,"DT")="2911105"
^DD(910.2,2.06,0)="LENGTH^NJ3,0^^2;6^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(910.2,2.06,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(910.2,2.06,21,0)="^^2^2^2930222^^"
^DD(910.2,2.06,21,1,0)="Enter the length of the barrel or bow in inches."
^DD(910.2,2.06,21,2,0)="Type a Number between 1 and 100, 0 Decimal Digits."
^DD(910.2,2.06,"DT")="2911105"
^DD(910.2,2.07,0)="FINISH^S^B:BLUE;N:NICKEL;C:CHROME;P:PARKERIZED;S:STAINLESS;F:FIBERGLASS;W:WOODGRAINED;A:ALUMINUM;^2;7^Q"
^DD(910.2,2.07,3)="Enter the weapon finish."
^DD(910.2,2.07,21,0)="^^2^2^2930222^"
^DD(910.2,2.07,21,1,0)="Select from the available listing, the best descriptor of the weapon's"
^DD(910.2,2.07,21,2,0)="finish."
^DD(910.2,2.07,"DT")="2911105"
^DD(910.2,2.08,0)="CONDITION^S^E:EXCELLENT;G:GOOD;F:FAIR;P:POOR;D:DAMAGED;^2;8^Q"
^DD(910.2,2.08,3)="Enter the condition of the weapon."
^DD(910.2,2.08,21,0)="^^2^2^2930222^"
^DD(910.2,2.08,21,1,0)="From the available listing, select the best description of the weapon's"
^DD(910.2,2.08,21,2,0)="condition."
^DD(910.2,2.08,"DT")="2911105"
^DD(910.2,3.01,0)="PET'S NAME^F^^3;1^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,3.01,3)="Answer must be [3-30 characters]."
^DD(910.2,3.01,21,0)="^^2^2^2940310^^^^"
^DD(910.2,3.01,21,1,0)="Enter the pet's name, (i.e., Blacky. Spot, Fluffy)."
^DD(910.2,3.01,21,2,0)="Answer must be [3-30 characters]."
^DD(910.2,3.02,0)="TYPE OF PET^F^^3;2^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,3.02,3)="Answer must be [3-30 characters]."
^DD(910.2,3.02,21,0)="^^2^2^2930222^^"
^DD(910.2,3.02,21,1,0)="Enter the type of animal of the pet, i.e. DOG, CAT, RABBIT, etc."
^DD(910.2,3.02,21,2,0)="Answer must be [3-30 characters]."
^DD(910.2,3.03,0)="BREED^F^^3;3^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,3.03,3)="Answer must be [3-30 characters]."
^DD(910.2,3.03,21,0)="^^2^2^2940310^^^"
^DD(910.2,3.03,21,1,0)="Enter the commonly known breed name, (i.e., PERSIAN, BEAGLE, GERMAN"
^DD(910.2,3.03,21,2,0)="SHEPHERD).  Answer must be [3-30 characters]."
^DD(910.2,3.04,0)="SEX^S^F:FEMALE;M:MALE;^3;4^Q"
^DD(910.2,3.04,3)="Enter 'F' for FEMALE, or 'M' for MALE."
^DD(910.2,3.04,21,0)="^^2^2^2940310^^^"
^DD(910.2,3.04,21,1,0)="This field is used to record whether the pet is male or female."
^DD(910.2,3.04,21,2,0)="whether the pet being registered is male or female."
^DD(910.2,3.05,0)="PET COLOR^*P910.7'^ESP(910.7,^3;5^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,5)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.2,3.05,3)="Enter the color of the pet."
^DD(910.2,3.05,12)="Enter a valid pet color."
^DD(910.2,3.05,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,5)"""
^DD(910.2,3.05,21,0)="^^1^1^2930222^^"
^DD(910.2,3.05,21,1,0)="Enter the color of the pet.  The color must be in the Selectables File."
^DD(910.2,3.05,"DT")="2911106"
^DD(910.2,3.06,0)="SIZE^S^S:SMALL;M:MEDIUM;L:LARGE;X:EXTRA LARGE;^3;6^Q"
^DD(910.2,3.06,3)="Enter the size of the pet."
^DD(910.2,3.06,21,0)="^^2^2^2940310^^"
^DD(910.2,3.06,21,1,0)="Select from the available set of codes, the best descriptor for the"
^DD(910.2,3.06,21,2,0)="size of the animal."
^DD(910.2,3.06,"DT")="2911105"
^DD(910.2,3.07,0)="RABIES INOCULATION DATE^D^^3;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(910.2,3.07,3)="Enter the date of last rabies inoculation."
^DD(910.2,3.07,21,0)="^^1^1^2930222^^"
^DD(910.2,3.07,21,1,0)="Enter the last date that the pet was inoculated for rabies."
^DD(910.2,3.07,"DT")="2911105"
^DD(910.2,3.08,0)="INOCULATION EXPIRATION DATE^D^^3;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(910.2,3.08,3)="Enter the date the current rabies inoculation expires."
^DD(910.2,3.08,21,0)="^^1^1^2940310^^^^"
^DD(910.2,3.08,21,1,0)="Enter the date that the last inoculation for rabies expires."
^DD(910.2,3.08,"DT")="2911105"
^DD(910.2,4.01,0)="BICYCLE MAKE^*P910.7'^ESP(910.7,^4;1^S DIC(""S"")=""I $D(^(2)),$P(^(2),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.2,4.01,3)="Enter a bicycle make or manufacturer."
^DD(910.2,4.01,12)="Enter a valid bicycle make."
^DD(910.2,4.01,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),U,2)"""
^DD(910.2,4.01,21,0)="^^3^3^2930222^^"
^DD(910.2,4.01,21,1,0)="Enter the make or manufacturer of the bicycle being registered."
^DD(910.2,4.01,21,2,0)="You must choose from the available listing.  It must be a valid"
^DD(910.2,4.01,21,3,0)="bicycle make entered in the Selectables File."
^DD(910.2,4.01,"DT")="2911106"
^DD(910.2,4.02,0)="BICYCLE MODEL^F^^4;2^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,4.02,3)="Answer must be [3-30 characters]."
^DD(910.2,4.02,21,0)="^^2^2^2930222^^"
^DD(910.2,4.02,21,1,0)="Enter the model of the bicycle being registered."
^DD(910.2,4.02,21,2,0)="Answer must be [3-30 characters]. "
^DD(910.2,4.02,"DT")="2911105"
^DD(910.2,4.03,0)="BICYCLE STYLE^F^^4;3^K:$L(X)>30!($L(X)<3) X"
^DD(910.2,4.03,3)="Answer must be [3-30 characters]."
^DD(910.2,4.03,21,0)="^^2^2^2930222^^"
^DD(910.2,4.03,21,1,0)="Enter the style of the bicycle being registered."
^DD(910.2,4.03,21,2,0)="Answer must be [3-30 characters]. "
^DD(910.2,4.03,"DT")="2911105"
^DD(910.2,4.04,0)="BICYCLE COLOR^*P910.7'^ESP(910.7,^4;4^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,4)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.2,4.04,3)="Enter the color of the bicycle being registered.  You must choose from the available listing."
^DD(910.2,4.04,12)="Enter a valid bicycle color."
^DD(910.2,4.04,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,4)"""
^DD(910.2,4.04,21,0)="^^2^2^2911106^"
^DD(910.2,4.04,21,1,0)="Enter the color of the bicycle being reigistered."
^DD(910.2,4.04,21,2,0)="It must be a valid vehicle color."
^DD(910.2,4.04,"DT")="2911106"
^DD(910.2,4.05,0)="PARENT/GUARDIAN^P910'^ESP(910,^4;5^Q"
^DD(910.2,4.05,1,0)="^.1"
^DD(910.2,4.05,1,1,0)="910.2^I"
^DD(910.2,4.05,1,1,1)="S ^ESP(910.2,""I"",$E(X,1,30),DA)="""""
^DD(910.2,4.05,1,1,2)="K ^ESP(910.2,""I"",$E(X,1,30),DA)"
^DD(910.2,4.05,1,1,"DT")="2970117"
^DD(910.2,4.05,3)="If the owner is a minor, enter the name of their parent or guardian."
^DD(910.2,4.05,21,0)="^^3^3^2930222^^"
^DD(910.2,4.05,21,1,0)="Enter the parent or guardian of the owner of the"
^DD(910.2,4.05,21,2,0)="bicycle if he/she is a dependent.  The parent/guardian"
^DD(910.2,4.05,21,3,0)="must be in the Master Name Index file."
^DD(910.2,4.05,"DT")="2970117"
^DD(910.2,5.01,0)="SPONSOR^P910'^ESP(910,^5;1^Q"
^DD(910.2,5.01,1,0)="^.1"
^DD(910.2,5.01,1,1,0)="910.2^J"
^DD(910.2,5.01,1,1,1)="S ^ESP(910.2,""J"",$E(X,1,30),DA)="""""
^DD(910.2,5.01,1,1,2)="K ^ESP(910.2,""J"",$E(X,1,30),DA)"
^DD(910.2,5.01,1,1,"DT")="2970117"
^DD(910.2,5.01,3)="Enter the sponsor of this individual's golf registration."
^DD(910.2,5.01,21,0)="^^2^2^2930222^^"
^DD(910.2,5.01,21,1,0)="Enter the sponsor of the person being issued golf tags."
^DD(910.2,5.01,21,2,0)="The sponsor must be in the Master Name Index file."
^DD(910.2,5.01,"DT")="2970117"
^DD(910.2,5.02,0)="NO. OF TAGS^NJ1,0^^5;2^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(910.2,5.02,3)="Type a Number between 1 and 5, 0 Decimal Digits"
^DD(910.2,5.02,21,0)="^^1^1^2930222^"
^DD(910.2,5.02,21,1,0)="Enter the number displayed on the golf tag issued."
^DD(910.2,5.02,"DT")="2911105"
^DD(910.2,6.01,0)="VEHICLE^P910'^ESP(910,^6;1^Q"
^DD(910.2,6.01,1,0)="^.1"
^DD(910.2,6.01,1,1,0)="910.2^V"
^DD(910.2,6.01,1,1,1)="S ^ESP(910.2,""V"",$E(X,1,30),DA)="""""
^DD(910.2,6.01,1,1,2)="K ^ESP(910.2,""V"",$E(X,1,30),DA)"
^DD(910.2,6.01,1,1,"DT")="2911119"
^DD(910.2,6.01,21,0)="^^3^3^2930708^^"
^DD(910.2,6.01,21,1,0)="This field is used to link the vehicle registration entry to"
^DD(910.2,6.01,21,2,0)="the ESP Master Name file in conjunction with the Quick Name"
^DD(910.2,6.01,21,3,0)="Check routine (ESPQNC)."
^DD(910.2,6.01,"DT")="2911119"
^DD(910.2,6.02,0)="BICYCLE^P910'^ESP(910,^6;2^Q"
^DD(910.2,6.02,1,0)="^.1"
^DD(910.2,6.02,1,1,0)="910.2^BI"
^DD(910.2,6.02,1,1,1)="S ^ESP(910.2,""BI"",$E(X,1,30),DA)="""""
^DD(910.2,6.02,1,1,2)="K ^ESP(910.2,""BI"",$E(X,1,30),DA)"
^DD(910.2,6.02,1,1,"DT")="2911119"
^DD(910.2,6.02,21,0)="^^3^3^2930708^"
^DD(910.2,6.02,21,1,0)="This field is used to link the bicycle registration entry to"
^DD(910.2,6.02,21,2,0)="the ESP Master Name file in conjunction with the Quick Name"
^DD(910.2,6.02,21,3,0)="Check routine (ESPQNC)."
^DD(910.2,6.02,"DT")="2911119"
^DD(910.2,6.03,0)="WEAPON^P910'^ESP(910,^6;3^Q"
^DD(910.2,6.03,1,0)="^.1"
^DD(910.2,6.03,1,1,0)="910.2^W"
^DD(910.2,6.03,1,1,1)="S ^ESP(910.2,""W"",$E(X,1,30),DA)="""""
^DD(910.2,6.03,1,1,2)="K ^ESP(910.2,""W"",$E(X,1,30),DA)"
^DD(910.2,6.03,1,1,"DT")="2911119"
^DD(910.2,6.03,21,0)="^^3^3^2930708^"
^DD(910.2,6.03,21,1,0)="This field is used to link the weapon registration entry to"
^DD(910.2,6.03,21,2,0)="the ESP Master Name file in conjunction with the Quick Name"
^DD(910.2,6.03,21,3,0)="Check routine (ESPQNC)."
^DD(910.2,6.03,"DT")="2911119"
^DD(910.2,6.04,0)="PET^P910'^ESP(910,^6;4^Q"
^DD(910.2,6.04,1,0)="^.1"
^DD(910.2,6.04,1,1,0)="910.2^P"
^DD(910.2,6.04,1,1,1)="S ^ESP(910.2,""P"",$E(X,1,30),DA)="""""
^DD(910.2,6.04,1,1,2)="K ^ESP(910.2,""P"",$E(X,1,30),DA)"
^DD(910.2,6.04,1,1,"DT")="2911119"
^DD(910.2,6.04,21,0)="^^3^3^2930708^"
^DD(910.2,6.04,21,1,0)="This field is used to link the pet registration entry to"
^DD(910.2,6.04,21,2,0)="the ESP Master Name file in conjunction with the Quick Name"
^DD(910.2,6.04,21,3,0)="Check routine (ESPQNC)."
^DD(910.2,6.04,"DT")="2911119"
^DD(910.2,6.05,0)="GOLF^P910'^ESP(910,^6;5^Q"
^DD(910.2,6.05,1,0)="^.1"
^DD(910.2,6.05,1,1,0)="910.2^G"
^DD(910.2,6.05,1,1,1)="S ^ESP(910.2,""G"",$E(X,1,30),DA)="""""
^DD(910.2,6.05,1,1,2)="K ^ESP(910.2,""G"",$E(X,1,30),DA)"
^DD(910.2,6.05,1,1,"DT")="2911119"
^DD(910.2,6.05,21,0)="^^3^3^2930708^"
^DD(910.2,6.05,21,1,0)="This field is used to link the golf registration entry to"
^DD(910.2,6.05,21,2,0)="the ESP Master Name file in conjunction with the Quick Name"
^DD(910.2,6.05,21,3,0)="Check routine (ESPQNC)."
^DD(910.2,6.05,"DT")="2911119"
^DD(910.2,20,0)="REMARKS^910.22^^20;0"
^DD(910.2,20,21,0)="^^4^4^2930708^"
^DD(910.2,20,21,1,0)="This field is used to record any miscellanous information that"
^DD(910.2,20,21,2,0)="might apply to a registration.  In a Vehicle Registration where"
^DD(910.2,20,21,3,0)="the vehicle is listed as Multicolored, the Remarks entry could"
^DD(910.2,20,21,4,0)="be ""Red over White, with special paint designs."""
^DD(910.2,"B","ACTION",2.03)=""
^DD(910.2,"B","ASSIGNED PARKING SPACE",1.08)=""
^DD(910.2,"B","BICYCLE",6.02)=""
^DD(910.2,"B","BICYCLE COLOR",4.04)=""
^DD(910.2,"B","BICYCLE MAKE",4.01)=""
^DD(910.2,"B","BICYCLE MODEL",4.02)=""
^DD(910.2,"B","BICYCLE STYLE",4.03)=""
^DD(910.2,"B","BREED",3.03)=""
^DD(910.2,"B","CALIBER",2.05)=""
^DD(910.2,"B","CAPACITY",2.04)=""
^DD(910.2,"B","CAR POOL MEMBER",1.09)=""
^DD(910.2,"B","CONDITION",2.08)=""
^DD(910.2,"B","DATE ASSIGNED",.05)=""
^DD(910.2,"B","DECAL COLOR",.02)=""
^DD(910.2,"B","FACILITY",.08)=""
^DD(910.2,"B","FINISH",2.07)=""
^DD(910.2,"B","GOLF",6.05)=""
^DD(910.2,"B","INOCULATION EXPIRATION DATE",3.08)=""
^DD(910.2,"B","LENGTH",2.06)=""
^DD(910.2,"B","LICENSE TAG NUMBER",1.01)=""
^DD(910.2,"B","NO. OF TAGS",5.02)=""
^DD(910.2,"B","OWNER NAME",.03)=""
^DD(910.2,"B","PARENT/GUARDIAN",4.05)=""
^DD(910.2,"B","PET",6.04)=""
^DD(910.2,"B","PET COLOR",3.05)=""
^DD(910.2,"B","PET'S NAME",3.01)=""
^DD(910.2,"B","RABIES INOCULATION DATE",3.07)=""
^DD(910.2,"B","REGISTRATION TYPE",.04)=""
^DD(910.2,"B","REMARKS",20)=""
^DD(910.2,"B","SERIAL NUMBER",.06)=""
^DD(910.2,"B","SEX",3.04)=""
^DD(910.2,"B","SHORT DESCRIPTION",.07)=""
^DD(910.2,"B","SIZE",3.06)=""
^DD(910.2,"B","SPONSOR",5.01)=""
^DD(910.2,"B","STATE",1.02)=""
^DD(910.2,"B","TYPE OF PET",3.02)=""
^DD(910.2,"B","VA TAG ID",.01)=""
^DD(910.2,"B","VEHICLE",6.01)=""
^DD(910.2,"B","VEHICLE COLOR",1.06)=""
^DD(910.2,"B","VEHICLE MAKE",1.03)=""
^DD(910.2,"B","VEHICLE MODEL",1.04)=""
^DD(910.2,"B","VEHICLE STYLE",1.05)=""
^DD(910.2,"B","WEAPON",6.03)=""
^DD(910.2,"B","WEAPON MAKE",2.01)=""
^DD(910.2,"B","WEAPON MODEL",2.02)=""
^DD(910.2,"B","YEAR OF MANUFACTURE",1.07)=""
^DD(910.2,"GL",0,1,.01)=""
^DD(910.2,"GL",0,2,.02)=""
^DD(910.2,"GL",0,3,.03)=""
^DD(910.2,"GL",0,4,.04)=""
^DD(910.2,"GL",0,5,.05)=""
^DD(910.2,"GL",0,6,.06)=""
^DD(910.2,"GL",0,7,.07)=""
^DD(910.2,"GL",0,8,.08)=""
^DD(910.2,"GL",1,1,1.01)=""
^DD(910.2,"GL",1,2,1.02)=""
^DD(910.2,"GL",1,3,1.03)=""
^DD(910.2,"GL",1,4,1.04)=""
^DD(910.2,"GL",1,5,1.05)=""
^DD(910.2,"GL",1,6,1.06)=""
^DD(910.2,"GL",1,7,1.07)=""
^DD(910.2,"GL",1,8,1.08)=""
^DD(910.2,"GL",1,9,1.09)=""
^DD(910.2,"GL",2,1,2.01)=""
^DD(910.2,"GL",2,2,2.02)=""
^DD(910.2,"GL",2,3,2.03)=""
^DD(910.2,"GL",2,4,2.04)=""
^DD(910.2,"GL",2,5,2.05)=""
^DD(910.2,"GL",2,6,2.06)=""
^DD(910.2,"GL",2,7,2.07)=""
^DD(910.2,"GL",2,8,2.08)=""
^DD(910.2,"GL",3,1,3.01)=""
^DD(910.2,"GL",3,2,3.02)=""
^DD(910.2,"GL",3,3,3.03)=""
^DD(910.2,"GL",3,4,3.04)=""
^DD(910.2,"GL",3,5,3.05)=""
^DD(910.2,"GL",3,6,3.06)=""
^DD(910.2,"GL",3,7,3.07)=""
^DD(910.2,"GL",3,8,3.08)=""
^DD(910.2,"GL",4,1,4.01)=""
^DD(910.2,"GL",4,2,4.02)=""
^DD(910.2,"GL",4,3,4.03)=""
^DD(910.2,"GL",4,4,4.04)=""
^DD(910.2,"GL",4,5,4.05)=""
^DD(910.2,"GL",5,1,5.01)=""
^DD(910.2,"GL",5,2,5.02)=""
^DD(910.2,"GL",6,1,6.01)=""
^DD(910.2,"GL",6,2,6.02)=""
^DD(910.2,"GL",6,3,6.03)=""
^DD(910.2,"GL",6,4,6.04)=""
^DD(910.2,"GL",6,5,6.05)=""
^DD(910.2,"GL",20,0,20)=""
^DD(910.2,"IX",.01)=""
^DD(910.2,"IX",.02)=""
^DD(910.2,"IX",.03)=""
^DD(910.2,"IX",.04)=""
^DD(910.2,"IX",.05)=""
^DD(910.2,"IX",.07)=""
^DD(910.2,"IX",1.01)=""
^DD(910.2,"IX",1.08)=""
^DD(910.2,"IX",4.05)=""
^DD(910.2,"IX",5.01)=""
^DD(910.2,"IX",6.01)=""
^DD(910.2,"IX",6.02)=""
^DD(910.2,"IX",6.03)=""
^DD(910.2,"IX",6.04)=""
^DD(910.2,"IX",6.05)=""
^DD(910.2,"RQ",.01)=""
^DD(910.2,"SB",910.22,20)=""
^DD(910.22,0)="REMARKS SUB-FIELD^^.01^1"
^DD(910.22,0,"DT")="2911105"
^DD(910.22,0,"NM","REMARKS")=""
^DD(910.22,0,"UP")="910.2"
^DD(910.22,.01,0)="REMARKS^W^^0;1^Q"
^DD(910.22,.01,3)="Enter any additional remarks concerning this registration."
^DD(910.22,.01,"DT")="2911105"
^DD(910.22,"B","REMARKS",.01)=""
^DD(910.22,"GL",0,1,.01)=""
^DD(910.7,0)="FIELD^^2.03^13"
^DD(910.7,0,"DDA")="N"
^DD(910.7,0,"DT")="2930622"
^DD(910.7,0,"IX","B",910.7,.01)=""
^DD(910.7,0,"IX","C",910.7,.02)=""
^DD(910.7,0,"IX","D",910.7,.03)=""
^DD(910.7,0,"NM","ESP SELECTABLES")=""
^DD(910.7,0,"PT",910,3.03)=""
^DD(910.7,0,"PT",910,3.04)=""
^DD(910.7,0,"PT",910,3.05)=""
^DD(910.7,0,"PT",910.2,.02)=""
^DD(910.7,0,"PT",910.2,1.03)=""
^DD(910.7,0,"PT",910.2,1.06)=""
^DD(910.7,0,"PT",910.2,2.01)=""
^DD(910.7,0,"PT",910.2,3.05)=""
^DD(910.7,0,"PT",910.2,4.01)=""
^DD(910.7,0,"PT",910.2,4.04)=""
^DD(910.7,0,"PT",912.05,.07)=""
^DD(910.7,0,"PT",912.05,.08)=""
^DD(910.7,0,"PT",912.05,.09)=""
^DD(910.7,0,"PT",912.09,.04)=""
^DD(910.7,0,"PT",912.09,.07)=""
^DD(910.7,0,"PT",912.09,.09)=""
^DD(910.7,0,"PT",914,1.02)=""
^DD(910.7,0,"PT",914,1.05)=""
^DD(910.7,0,"PT",914,1.08)=""
^DD(910.7,0,"VR")="1.0"
^DD(910.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(910.7,.01,1,0)="^.1"
^DD(910.7,.01,1,1,0)="910.7^B"
^DD(910.7,.01,1,1,1)="S ^ESP(910.7,""B"",$E(X,1,30),DA)="""""
^DD(910.7,.01,1,1,2)="K ^ESP(910.7,""B"",$E(X,1,30),DA)"
^DD(910.7,.01,3)="Answer must be [2-30 characters]. "
^DD(910.7,.01,21,0)="^^1^1^2930622^^"
^DD(910.7,.01,21,1,0)="Enter the name of the selectable being entered into the file."
^DD(910.7,.01,"DT")="2930622"
^DD(910.7,.02,0)="TYPE^S^C:COLOR;M:MAKE;^0;2^Q"
^DD(910.7,.02,1,0)="^.1"
^DD(910.7,.02,1,1,0)="910.7^C"
^DD(910.7,.02,1,1,1)="S ^ESP(910.7,""C"",$E(X,1,30),DA)="""""
^DD(910.7,.02,1,1,2)="K ^ESP(910.7,""C"",$E(X,1,30),DA)"
^DD(910.7,.02,3)="Enter 'C' for Color or 'M' for Make."
^DD(910.7,.02,21,0)="^^1^1^2930222^"
^DD(910.7,.02,21,1,0)="Enter the type of the selectable being entered."
^DD(910.7,.02,"DT")="2911101"
^DD(910.7,.03,0)="CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3) X"
^DD(910.7,.03,1,0)="^.1"
^DD(910.7,.03,1,1,0)="910.7^D"
^DD(910.7,.03,1,1,1)="S ^ESP(910.7,""D"",$E(X,1,30),DA)="""""
^DD(910.7,.03,1,1,2)="K ^ESP(910.7,""D"",$E(X,1,30),DA)"
^DD(910.7,.03,1,1,"DT")="2910726"
^DD(910.7,.03,3)="Answer must be 3-4 characters in length."
^DD(910.7,.03,21,0)="^^2^2^2930309^^"
^DD(910.7,.03,21,1,0)="Enter a code or synonym for the item.  This code may be use to speed"
^DD(910.7,.03,21,2,0)="up selection of the item."
^DD(910.7,.03,"DT")="2930309"
^DD(910.7,1.01,0)="HAIR COLOR (Y/N)^S^0:NO;1:YES;^1;1^Q"
^DD(910.7,1.01,3)="'0' FOR NO OR '1' FOR YES"
^DD(910.7,1.01,21,0)="^^1^1^2930708^"
^DD(910.7,1.01,21,1,0)="This field controls whether the color can be used as a color of hair."
^DD(910.7,1.02,0)="EYE COLOR (Y/N)^S^0:NO;1:YES;^1;2^Q"
^DD(910.7,1.02,3)="'0' FOR NO '1' FOR YES"
^DD(910.7,1.02,21,0)="^^1^1^2930708^^"
^DD(910.7,1.02,21,1,0)="This field controls whether the color can be used as a color of eyes."
^DD(910.7,1.03,0)="VEHICLE COLOR (Y/N)^S^0:NO;1:YES;^1;3^Q"
^DD(910.7,1.03,1,0)="^.1^^0"
^DD(910.7,1.03,3)="'0' FOR NO OR '1' FOR YES IF THIS IS A VALID VEHICLE COLOR"
^DD(910.7,1.03,21,0)="^^2^2^2930708^"
^DD(910.7,1.03,21,1,0)="This field controls whether the color can be used as a color of"
^DD(910.7,1.03,21,2,0)="a vehicle."
^DD(910.7,1.03,"DT")="2911105"
^DD(910.7,1.04,0)="BICYCLE COLOR (Y/N)^S^0:NO;1:YES;^1;4^Q"
^DD(910.7,1.04,3)="'0' FOR NO OR '1' FOR YES IF THIS IS A VALID BICYCLE COLOR"
^DD(910.7,1.04,21,0)="^^2^2^2930708^"
^DD(910.7,1.04,21,1,0)="This field controls whether the color can be used as a color of"
^DD(910.7,1.04,21,2,0)="a bicycle."
^DD(910.7,1.05,0)="PET COLOR (Y/N)^S^0:NO;1:YES;^1;5^Q"
^DD(910.7,1.05,3)="'0' FOR NO OR '1' FOR YES IF THIS IS A VALID PET COLOR"
^DD(910.7,1.05,21,0)="^^2^2^2930708^"
^DD(910.7,1.05,21,1,0)="This field controls whether the color can be used as a color of"
^DD(910.7,1.05,21,2,0)="a pet."
^DD(910.7,1.06,0)="SKIN COLOR(Y/N)^S^0:NO;1:YES;^1;6^Q"
^DD(910.7,1.06,3)="'0' FOR NO OR '1' FOR YES IF THIS IS A VALID SKIN COLOR"
^DD(910.7,1.06,21,0)="^^1^1^2930708^"
^DD(910.7,1.06,21,1,0)="This field controls whether the color can be used as a color of skin."
^DD(910.7,1.06,"DT")="2930622"
^DD(910.7,1.07,0)="DECAL COLOR (Y/N)^S^0:NO;1:YES;^1;7^Q"
^DD(910.7,1.07,3)="'0' FOR NO OR '1' FOR YES IF THIS IS A VALID VEHICLE COLOR"
^DD(910.7,1.07,21,0)="^^2^2^2930708^"
^DD(910.7,1.07,21,1,0)="This field controls whether the color can be used as a color"
^DD(910.7,1.07,21,2,0)="of a decal."
^DD(910.7,1.07,"DT")="2911202"
^DD(910.7,2.01,0)="VEHICLE MAKE (Y/N)^S^0:NO;1:YES;^2;1^Q"
^DD(910.7,2.01,1,0)="^.1^^0"
^DD(910.7,2.01,3)="'0' FOR NO '1' FOR YES IF VALID VEHICLE MAKE"
^DD(910.7,2.01,21,0)="^^2^2^2930708^"
^DD(910.7,2.01,21,1,0)="This field controls whether a make designator can be used"
^DD(910.7,2.01,21,2,0)="as a vehicle make."
^DD(910.7,2.01,"DT")="2911105"
^DD(910.7,2.02,0)="BICYCLE MAKE (Y/N)^S^0 :NO;1:YES;^2;2^Q"
^DD(910.7,2.02,3)="'O' FOR NO OR '1' FOR YES"
^DD(910.7,2.02,21,0)="^^2^2^2930708^^"
^DD(910.7,2.02,21,1,0)="This field controls whether a make designator can be used"
^DD(910.7,2.02,21,2,0)="as a bicycle make."
^DD(910.7,2.02,"DT")="2901220"
^DD(910.7,2.03,0)="WEAPON MAKE (Y/N)^S^0:NO;1:YES;^2;3^Q"
^DD(910.7,2.03,3)="'O' FOR NO OR '1' FOR YES"
^DD(910.7,2.03,21,0)="^^2^2^2930708^"
^DD(910.7,2.03,21,1,0)="This field controls whether a make designator can be used"
^DD(910.7,2.03,21,2,0)="as a weapon make."
^DD(910.7,2.03,"DT")="2901220"
^DD(910.7,"B","BICYCLE COLOR (Y/N)",1.04)=""
^DD(910.7,"B","BICYCLE MAKE (Y/N)",2.02)=""
^DD(910.7,"B","CODE",.03)=""
^DD(910.7,"B","DECAL COLOR (Y/N)",1.07)=""
^DD(910.7,"B","EYE COLOR (Y/N)",1.02)=""
^DD(910.7,"B","HAIR COLOR (Y/N)",1.01)=""
^DD(910.7,"B","NAME",.01)=""
^DD(910.7,"B","PET COLOR (Y/N)",1.05)=""
^DD(910.7,"B","SKIN COLOR(Y/N)",1.06)=""
^DD(910.7,"B","TYPE",.02)=""
^DD(910.7,"B","VEHICLE COLOR (Y/N)",1.03)=""
^DD(910.7,"B","VEHICLE MAKE (Y/N)",2.01)=""
^DD(910.7,"B","WEAPON MAKE (Y/N)",2.03)=""
^DD(910.7,"GL",0,1,.01)=""
^DD(910.7,"GL",0,2,.02)=""
^DD(910.7,"GL",0,3,.03)=""
^DD(910.7,"GL",1,1,1.01)=""
^DD(910.7,"GL",1,2,1.02)=""
^DD(910.7,"GL",1,3,1.03)=""
^DD(910.7,"GL",1,4,1.04)=""
^DD(910.7,"GL",1,5,1.05)=""
^DD(910.7,"GL",1,6,1.06)=""
^DD(910.7,"GL",1,7,1.07)=""
^DD(910.7,"GL",2,1,2.01)=""
^DD(910.7,"GL",2,2,2.02)=""
^DD(910.7,"GL",2,3,2.03)=""
^DD(910.7,"IX",.01)=""
^DD(910.7,"IX",.02)=""
^DD(910.7,"IX",.03)=""
^DD(910.7,"RQ",.01)=""
^DD(910.8,0)="FIELD^^10^8"
^DD(910.8,0,"DDA")="N"
^DD(910.8,0,"DT")="2990309"
^DD(910.8,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(40.8,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(40.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(910.8,0,"IX","B",910.8,.01)=""
^DD(910.8,0,"IX","C",910.81,.04)=""
^DD(910.8,0,"IX","D",910.85,.03)=""
^DD(910.8,0,"NM","ESP EVIDENCE")=""
^DD(910.8,0,"VR")="1.0"
^DD(910.8,0,"VRPK")="ES"
^DD(910.8,.01,0)="RECORD NUMBER^RFX^^0;1^K:X'?2N1""-""3N0.1E X"
^DD(910.8,.01,1,0)="^.1"
^DD(910.8,.01,1,1,0)="910.8^B"
^DD(910.8,.01,1,1,1)="S ^ESP(910.8,""B"",$E(X,1,30),DA)="""""
^DD(910.8,.01,1,1,2)="K ^ESP(910.8,""B"",$E(X,1,30),DA)"
^DD(910.8,.01,3)="Answer must be [1-7 characters]. "
^DD(910.8,.01,21,0)="^^2^2^2970416^^^^"
^DD(910.8,.01,21,1,0)="The Record Number should be input in the following format:  92-001,"
^DD(910.8,.01,21,2,0)="92-011, 92-111, etc."
^DD(910.8,.01,"DT")="2940225"
^DD(910.8,.02,0)="UOR NUMBER^P912'O^ESP(912,^0;2^Q"
^DD(910.8,.02,2)="S Y(0)=Y S Y=$P($G(^ESP(912,Y,0)),U,10)"
^DD(910.8,.02,2.1)="S Y=$P($G(^ESP(912,Y,0)),U,10)"
^DD(910.8,.02,3)="Enter the UOR # that corresponds with this Evidence/Property Record."
^DD(910.8,.02,21,0)="4^^5^5^2940331^^^"
^DD(910.8,.02,21,1,0)="The Uniform Offense Report (UOR) Number must be entered in straight "
^DD(910.8,.02,21,2,0)="numeric format, (i.e., 301100630).  The Uniform Offense Report (UOR) Number"
^DD(910.8,.02,21,3,0)="must exist in the ESP Offense Report file.  If there is no Uniform"
^DD(910.8,.02,21,4,0)="Offense Report associated with the Evidence/Property Record, leave this"
^DD(910.8,.02,21,5,0)="field blank."
^DD(910.8,.02,22)=""
^DD(910.8,.02,"DT")="2930630"
^DD(910.8,.02,"V",0)="^.12P"
^DD(910.8,.03,0)="DATE/TIME OBTAINED^D^^0;3^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(910.8,.03,3)="Enter a date and time."
^DD(910.8,.03,21,0)="^^2^2^2940310^^^"
^DD(910.8,.03,21,1,0)="Enter the date and time that the Evidence/Property was taken into"
^DD(910.8,.03,21,2,0)="custody by the VA Police."
^DD(910.8,.03,"DT")="2930625"
^DD(910.8,.04,0)="SENSITIVE FLAG^SI^0:NONSENSITIVE;1:SENSITIVE;^0;4^Q"
^DD(910.8,.04,3)="This is not a field to be entered by the user."
^DD(910.8,.04,21,0)="^^3^3^2930510^^"
^DD(910.8,.04,21,1,0)="This field is set by the program so can tell if"
^DD(910.8,.04,21,2,0)="this evidence is sensitive.  A person must have the"
^DD(910.8,.04,21,3,0)="ESP CHIEF key to view a sensitive evidence record."
^DD(910.8,.04,"DT")="2930510"
^DD(910.8,.05,0)="FACILITY^P40.8'I^DG(40.8,^0;5^Q"
^DD(910.8,.05,21,0)="^.001^1^1^3000307^^"
^DD(910.8,.05,21,1,0)="Enter the Facility that this evidence is associated with."
^DD(910.8,.05,"DT")="2991008"
^DD(910.8,1,0)="ITEM NUMBER^910.81^^1;0"
^DD(910.8,1,21,0)="^^2^2^2930708^^"
^DD(910.8,1,21,1,0)="This field contains the Item # as listed on the Evidence/Property"
^DD(910.8,1,21,2,0)="Custody Record."
^DD(910.8,1,"DT")="2930225"
^DD(910.8,5,0)="CHANGE OF CUSTODY DATE^910.85D^^5;0"
^DD(910.8,5,21,0)="^^2^2^2940310^^^"
^DD(910.8,5,21,1,0)="This field contains the date/time that the Evidence/Property items"
^DD(910.8,5,21,2,0)="physically changed custody."
^DD(910.8,10,0)="RECORD STATUS^S^C:CLOSED;O:OPEN;^10;1^Q"
^DD(910.8,10,3)="Enter 'O'for OPEN or 'C' for CLOSED."
^DD(910.8,10,21,0)="^^2^2^2940310^^"
^DD(910.8,10,21,1,0)="Enter the current status for this record.  It must be either"
^DD(910.8,10,21,2,0)="'O' for Open or 'C' for Closed."
^DD(910.8,10,"DT")="2930105"
^DD(910.8,"B","CHANGE OF CUSTODY DATE",5)=""
^DD(910.8,"B","DATE/TIME OBTAINED",.03)=""
^DD(910.8,"B","FACILITY",.05)=""
^DD(910.8,"B","ITEM NUMBER",1)=""
^DD(910.8,"B","RECORD NUMBER",.01)=""
^DD(910.8,"B","RECORD STATUS",10)=""
^DD(910.8,"B","SENSITIVE FLAG",.04)=""
^DD(910.8,"B","UOR NUMBER",.02)=""
^DD(910.8,"GL",0,1,.01)=""
^DD(910.8,"GL",0,2,.02)=""
^DD(910.8,"GL",0,3,.03)=""
^DD(910.8,"GL",0,4,.04)=""
^DD(910.8,"GL",0,5,.05)=""
^DD(910.8,"GL",1,0,1)=""
^DD(910.8,"GL",5,0,5)=""
^DD(910.8,"GL",10,1,10)=""
^DD(910.8,"IX",.01)=""
^DD(910.8,"RQ",.01)=""
^DD(910.8,"SB",910.81,1)=""
^DD(910.8,"SB",910.85,5)=""
^DD(910.81,0)="ITEM NUMBER SUB-FIELD^^1^9"
^DD(910.81,0,"DT")="2930222"
^DD(910.81,0,"IX","B",910.81,.01)=""
^DD(910.81,0,"NM","ITEM NUMBER")=""
^DD(910.81,0,"UP")="910.8"
^DD(910.81,.01,0)="ITEM NUMBER^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(910.81,.01,1,0)="^.1"
^DD(910.81,.01,1,1,0)="910.81^B"
^DD(910.81,.01,1,1,1)="S ^ESP(910.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(910.81,.01,1,1,2)="K ^ESP(910.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(910.81,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(910.81,.01,21,0)="^^1^1^2930708^^"
^DD(910.81,.01,21,1,0)="Enter the Item # as listed on the Evidence/Property Custody Record."
^DD(910.81,.01,"DT")="2930225"
^DD(910.81,.02,0)="ITEM NAME^F^^0;2^K:$L(X)>35!($L(X)<1) X"
^DD(910.81,.02,3)="Answer must be [1-35 characters]."
^DD(910.81,.02,21,0)="^^2^2^2930503^^"
^DD(910.81,.02,21,1,0)="Enter a brief descriptive name for the item, i.e., HAT, RING"
^DD(910.81,.02,21,2,0)="or WATCH."
^DD(910.81,.02,"DT")="2930105"
^DD(910.81,.03,0)="RECEIVED FROM^P910^ESP(910,^0;3^Q"
^DD(910.81,.03,3)="Enter the name of the person releasing the item to the Police Service."
^DD(910.81,.03,21,0)="^^4^4^2940310^^"
^DD(910.81,.03,21,1,0)="Enter the name of the person releasing the item to the VA Police.  In"
^DD(910.81,.03,21,2,0)="the instances where custody of the property is being recorded, it will"
^DD(910.81,.03,21,3,0)="normally be the name of a VA Police officer.  The name of the person"
^DD(910.81,.03,21,4,0)="is required to be entered in the Master Name File."
^DD(910.81,.03,"DT")="2930105"
^DD(910.81,.04,0)="OWNER^P910^ESP(910,^0;4^Q"
^DD(910.81,.04,1,0)="^.1"
^DD(910.81,.04,1,1,0)="910.8^C"
^DD(910.81,.04,1,1,1)="S ^ESP(910.8,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(910.81,.04,1,1,2)="K ^ESP(910.8,""C"",$E(X,1,30),DA(1),DA)"
^DD(910.81,.04,1,1,"DT")="2930212"
^DD(910.81,.04,3)="Enter the property owner's name."
^DD(910.81,.04,21,0)="^^2^2^2930222^"
^DD(910.81,.04,21,1,0)="Enter the name of the owner of the property.  The name must be entered"
^DD(910.81,.04,21,2,0)="in the Master Name File."
^DD(910.81,.04,"DT")="2930212"
^DD(910.81,.06,0)="LOCATION FOUND^F^^0;6^K:$L(X)>50!($L(X)<1) X"
^DD(910.81,.06,3)="Answer must be [1-50 characters]."
^DD(910.81,.06,21,0)="^^3^3^2930222^"
^DD(910.81,.06,21,1,0)="Enter descriptive information which will identify the location"
^DD(910.81,.06,21,2,0)="where the property was originally found.  Example:  1st Street"
^DD(910.81,.06,21,3,0)="and 14 Street; Ward 37D, Room 145, etc."
^DD(910.81,.06,"DT")="2930105"
^DD(910.81,.07,0)="REASON OBTAINED^S^E:EVIDENCE;F:FOUND;S:SAFEKEEPING;^0;7^Q"
^DD(910.81,.07,3)="Select the appropriate code."
^DD(910.81,.07,21,0)="^^2^2^2930222^"
^DD(910.81,.07,21,1,0)="Select from the available codes, the reason the property was released"
^DD(910.81,.07,21,2,0)="to the VA Police."
^DD(910.81,.07,"DT")="2930105"
^DD(910.81,.08,0)="FINAL DISPOSITION DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(910.81,.08,3)="Enter the disposition date."
^DD(910.81,.08,21,0)="^^5^5^2930222^^^"
^DD(910.81,.08,21,1,0)="Enter the last date that any type of disposition was made for the"
^DD(910.81,.08,21,2,0)="property.  This date will be subject to change several times during"
^DD(910.81,.08,21,3,0)="the property/custody procedure.  The date will become the Final"
^DD(910.81,.08,21,4,0)="Disposition Date when the property is removed from the Evidence/"
^DD(910.81,.08,21,5,0)="Property Locker."
^DD(910.81,.08,"DT")="2930105"
^DD(910.81,.09,0)="FINAL DISPOSITION^S^D:DESTROYED;P:PENDING;R:RETURNED OWNER;RE:RELEASED OTHER;^0;9^Q"
^DD(910.81,.09,3)="Enter the current disposition code."
^DD(910.81,.09,21,0)="^^5^5^2930222^"
^DD(910.81,.09,21,1,0)="Enter the disposition made on the property the last time it changed"
^DD(910.81,.09,21,2,0)="custody.  This field is also expected to change several times during"
^DD(910.81,.09,21,3,0)="the property/custody procedure.  It will eventually become the Final"
^DD(910.81,.09,21,4,0)="Disposition when the property is removed from the Evidence/Property"
^DD(910.81,.09,21,5,0)="Locker."
^DD(910.81,.09,"DT")="2930106"
^DD(910.81,1,0)="DESCRIPTION^910.811^^1;0"
^DD(910.81,1,21,0)="^^3^3^2930222^^"
^DD(910.81,1,21,1,0)="Enter any descriptive information which may be needed to accurately"
^DD(910.81,1,21,2,0)="identify the property should the Property/Custody tag become"
^DD(910.81,1,21,3,0)="dislodged."
^DD(910.81,"B","DESCRIPTION",1)=""
^DD(910.81,"B","FINAL DISPOSITION",.09)=""
^DD(910.81,"B","FINAL DISPOSITION DATE",.08)=""
^DD(910.81,"B","ITEM NAME",.02)=""
^DD(910.81,"B","ITEM NUMBER",.01)=""
^DD(910.81,"B","LOCATION FOUND",.06)=""
^DD(910.81,"B","OWNER",.04)=""
^DD(910.81,"B","REASON OBTAINED",.07)=""
^DD(910.81,"B","RECEIVED FROM",.03)=""
^DD(910.81,"GL",0,1,.01)=""
^DD(910.81,"GL",0,2,.02)=""
^DD(910.81,"GL",0,3,.03)=""
^DD(910.81,"GL",0,4,.04)=""
^DD(910.81,"GL",0,6,.06)=""
^DD(910.81,"GL",0,7,.07)=""
^DD(910.81,"GL",0,8,.08)=""
^DD(910.81,"GL",0,9,.09)=""
^DD(910.81,"GL",1,0,1)=""
^DD(910.81,"IX",.01)=""
^DD(910.81,"IX",.04)=""
^DD(910.81,"SB",910.811,1)=""
^DD(910.811,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(910.811,0,"DT")="2930105"
^DD(910.811,0,"NM","DESCRIPTION")=""
^DD(910.811,0,"UP")="910.81"
^DD(910.811,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(910.811,.01,3)="Enter a detailed description of the property."
^DD(910.811,.01,21,0)="^^3^3^2930222^"
^DD(910.811,.01,21,1,0)="Enter any descriptive information which may be needed to accurately"
^DD(910.811,.01,21,2,0)="identify the property should the Property/Custody tag become"
^DD(910.811,.01,21,3,0)="dislodged."
^DD(910.811,.01,"DT")="2930105"
^DD(910.811,"B","DESCRIPTION",.01)=""
^DD(910.811,"GL",0,1,.01)=""
^DD(910.85,0)="CHANGE OF CUSTODY DATE SUB-FIELD^^.05^5"
^DD(910.85,0,"DT")="2930715"
^DD(910.85,0,"IX","B",910.85,.01)=""
^DD(910.85,0,"NM","CHANGE OF CUSTODY DATE")=""
^DD(910.85,0,"UP")="910.8"
^DD(910.85,.01,0)="DATE/TIME OF CUSTODY CHANGE^MD^^0;1^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(910.85,.01,1,0)="^.1"
^DD(910.85,.01,1,1,0)="910.85^B"
^DD(910.85,.01,1,1,1)="S ^ESP(910.8,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(910.85,.01,1,1,2)="K ^ESP(910.8,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(910.85,.01,3)="Both date and time must be entered."
^DD(910.85,.01,21,0)="^^1^1^2930708^^^^"
^DD(910.85,.01,21,1,0)="Enter the date and time that physical custody of the property changed."
^DD(910.85,.01,"DT")="2930625"
^DD(910.85,.02,0)="RELEASED BY^*P200'^VA(200,^0;2^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(910.85,.02,3)="Enter a VA Police officer's name."
^DD(910.85,.02,12)="Select a valid VA Police Officer."
^DD(910.85,.02,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"""
^DD(910.85,.02,21,0)="^^6^6^2940310^^^^"
^DD(910.85,.02,21,1,0)="Enter the name of a VA Police officer authorized to release the"
^DD(910.85,.02,21,2,0)="property.  At the initial stage of the property/custody procedure, this"
^DD(910.85,.02,21,3,0)="will be the first officer in possession of the property, releasing"
^DD(910.85,.02,21,4,0)="the property to the Evidence/Property Custodian.  The officer's name"
^DD(910.85,.02,21,5,0)="must be entered in the NEW PERSON file (#200) and must also be assigned"
^DD(910.85,.02,21,6,0)="the ESP POLICE Security Key."
^DD(910.85,.02,"DT")="2930715"
^DD(910.85,.03,0)="RECEIVED BY^P910^ESP(910,^0;3^Q"
^DD(910.85,.03,1,0)="^.1"
^DD(910.85,.03,1,1,0)="910.8^D"
^DD(910.85,.03,1,1,1)="S ^ESP(910.8,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(910.85,.03,1,1,2)="K ^ESP(910.8,""D"",$E(X,1,30),DA(1),DA)"
^DD(910.85,.03,1,1,"DT")="2970117"
^DD(910.85,.03,3)="Enter a name [3-30 characters]."
^DD(910.85,.03,21,0)="^^4^4^2930222^^"
^DD(910.85,.03,21,1,0)="Enter the name of the person who is assuming custody for the property."
^DD(910.85,.03,21,2,0)="This may be the owner, a designated relative, the investigating officer"
^DD(910.85,.03,21,3,0)="or any other authorized laboratory or law enforcement agency"
^DD(910.85,.03,21,4,0)="representative.  The name must be entered into the Master Name File."
^DD(910.85,.03,"DT")="2970117"
^DD(910.85,.04,0)="PURPOSE OF CHANGE^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(910.85,.04,3)="Answer must be [1-50 characters]."
^DD(910.85,.04,21,0)="^^2^2^2940310^^"
^DD(910.85,.04,21,1,0)="Enter the purpose of the custody change, (i.e., placement in evidence"
^DD(910.85,.04,21,2,0)="locker, released for trial, returned to owner)."
^DD(910.85,.04,"DT")="2930105"
^DD(910.85,.05,0)="ITEM NUMBER'S INVOLVED^F^^0;5^K:$L(X)>25!($L(X)<1) X"
^DD(910.85,.05,3)="Answer must be [1-25 characters]."
^DD(910.85,.05,21,0)="^^3^3^2930225^^"
^DD(910.85,.05,21,1,0)="List the number of the items effected by the custody change, i.e.,"
^DD(910.85,.05,21,2,0)="1,3 (indicating only items # 1 and #3) or 1-3 (indicating all items"
^DD(910.85,.05,21,3,0)="#1 through #3)."
^DD(910.85,.05,"DT")="2930225"
^DD(910.85,"B","DATE/TIME OF CUSTODY CHANGE",.01)=""
^DD(910.85,"B","ITEM NUMBER'S INVOLVED",.05)=""
^DD(910.85,"B","PURPOSE OF CHANGE",.04)=""
^DD(910.85,"B","RECEIVED BY",.03)=""
^DD(910.85,"B","RELEASED BY",.02)=""
^DD(910.85,"GL",0,1,.01)=""
^DD(910.85,"GL",0,2,.02)=""
^DD(910.85,"GL",0,3,.03)=""
^DD(910.85,"GL",0,4,.04)=""
^DD(910.85,"GL",0,5,.05)=""
^DD(910.85,"IX",.01)=""
^DD(910.85,"IX",.03)=""
^DD(911,0)="FIELD^^.03^3"
^DD(911,0,"DDA")="N"
^DD(911,0,"DT")="2930222"
^DD(911,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(911,0,"IX","B",911,.01)=""
^DD(911,0,"IX","C",911,.02)=""
^DD(911,0,"NM","ESP ACTIVITY CODES")=""
^DD(911,0,"PT",910.12,.01)=""
^DD(911,0,"VR")="1.0"
^DD(911,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(911,.01,1,0)="^.1"
^DD(911,.01,1,1,0)="911^B"
^DD(911,.01,1,1,1)="S ^ESP(911,""B"",$E(X,1,30),DA)="""""
^DD(911,.01,1,1,2)="K ^ESP(911,""B"",$E(X,1,30),DA)"
^DD(911,.01,3)="Answer must be [3-50 characters]."
^DD(911,.01,21,0)="^^2^2^2930222^^"
^DD(911,.01,21,1,0)="Enter the name of the Activity Code that is to be used to"
^DD(911,.01,21,2,0)="track work activity."
^DD(911,.01,"DT")="2920826"
^DD(911,.02,0)="CODE NUMBER^F^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(911,.02,1,0)="^.1"
^DD(911,.02,1,1,0)="911^C"
^DD(911,.02,1,1,1)="S ^ESP(911,""C"",$E(X,1,30),DA)="""""
^DD(911,.02,1,1,2)="K ^ESP(911,""C"",$E(X,1,30),DA)"
^DD(911,.02,1,1,"DT")="2920826"
^DD(911,.02,3)="Answer must be [1-4 characters]."
^DD(911,.02,21,0)="^^2^2^2930222^"
^DD(911,.02,21,1,0)="Enter the code number assigned to the Activity Code.  The code"
^DD(911,.02,21,2,0)="number may be entered to facilitate faster entry time."
^DD(911,.02,"DT")="2930222"
^DD(911,.03,0)="MINUTES^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(911,.03,3)="Answer must be [numeric 1-9999]."
^DD(911,.03,21,0)="^^2^2^2930222^"
^DD(911,.03,21,1,0)="Enter the number of minutes that it would be expected to take to"
^DD(911,.03,21,2,0)="perform the activty."
^DD(911,.03,"DT")="2920826"
^DD(911,"B","CODE NUMBER",.02)=""
^DD(911,"B","MINUTES",.03)=""
^DD(911,"B","NAME",.01)=""
^DD(911,"GL",0,1,.01)=""
^DD(911,"GL",0,2,.02)=""
^DD(911,"GL",0,3,.03)=""
^DD(911,"IX",.01)=""
^DD(911,"IX",.02)=""
^DD(911,"RQ",.01)=""
^DD(911.2,0)="FIELD^^1.03^3"
^DD(911.2,0,"DDA")="N"
^DD(911.2,0,"DT")="2920918"
^DD(911.2,0,"IX","B",911.2,.01)=""
^DD(911.2,0,"NM","ESP DISPOSITION CODES")=""
^DD(911.2,0,"PT",912.11,.02)=""
^DD(911.2,0,"PT",914,2.02)=""
^DD(911.2,0,"VR")="1.0"
^DD(911.2,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(911.2,.01,1,0)="^.1"
^DD(911.2,.01,1,1,0)="911.2^B"
^DD(911.2,.01,1,1,1)="S ^ESP(911.2,""B"",$E(X,1,30),DA)="""""
^DD(911.2,.01,1,1,2)="K ^ESP(911.2,""B"",$E(X,1,30),DA)"
^DD(911.2,.01,3)="Answer must be [3-40 characters]."
^DD(911.2,.01,21,0)="^^1^1^2931116^^^^"
^DD(911.2,.01,21,1,0)="Enter the name of the new disposition code that you are adding."
^DD(911.2,.01,"DT")="2920918"
^DD(911.2,1.01,0)="OFFENSE (Y/N)^S^0:NO;1:YES;^1;1^Q"
^DD(911.2,1.01,3)="Enter a 0 for NO and a 1 for YES."
^DD(911.2,1.01,21,0)="^^2^2^2930222^^^"
^DD(911.2,1.01,21,1,0)="Enter a 1 for YES, if the disposition code will apply to an Offense"
^DD(911.2,1.01,21,2,0)="Disposition."
^DD(911.2,1.01,"DT")="2920918"
^DD(911.2,1.03,0)="VIOLATIONS (Y/N)^S^0:NO;1:YES;^1;3^Q"
^DD(911.2,1.03,3)="Enter 0 for NO and 1 for YES."
^DD(911.2,1.03,21,0)="^^2^2^2930222^^"
^DD(911.2,1.03,21,1,0)="Enter a 1 for YES, if the disposition code will apply to the"
^DD(911.2,1.03,21,2,0)="disposition of a Violation Notice."
^DD(911.2,1.03,"DT")="2920918"
^DD(911.2,"B","NAME",.01)=""
^DD(911.2,"B","OFFENSE (Y/N)",1.01)=""
^DD(911.2,"B","VIOLATIONS (Y/N)",1.03)=""
^DD(911.2,"GL",0,1,.01)=""
^DD(911.2,"GL",1,1,1.01)=""
^DD(911.2,"GL",1,3,1.03)=""
^DD(911.2,"IX",.01)=""
^DD(911.2,"RQ",.01)=""
^DD(912,0)="FIELD^^130^40"
^DD(912,0,"DDA")="N"
^DD(912,0,"DT")="2990721"
^DD(912,0,"ID",.07)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(40.8,+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(40.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(912,0,"ID",.1)="W ""   "",$P(^(0),U,10)"
^DD(912,0,"IX","AC",912,.08)=""
^DD(912,0,"IX","B",912,.01)=""
^DD(912,0,"IX","C",912,.02)=""
^DD(912,0,"IX","D",912.03,.02)=""
^DD(912,0,"IX","E",912.04,.02)=""
^DD(912,0,"IX","F",912,.01)=""
^DD(912,0,"IX","G",912.05,.02)=""
^DD(912,0,"IX","H",912,5.02)=""
^DD(912,0,"IX","I",912.06,.02)=""
^DD(912,0,"IX","J",912.09,.11)=""
^DD(912,0,"IX","UOR",912,.02)=""
^DD(912,0,"NM","ESP OFFENSE REPORT")=""
^DD(912,0,"PT",910.8,.02)=""
^DD(912,0,"PT",913,.04)=""
^DD(912,0,"VR")="1.0"
^DD(912,0,"VRPK")="ES"
^DD(912,.01,0)="ID NUMBER^RNJ12,0X^^0;1^D OFF^ESPOID S DINUM=X"
^DD(912,.01,1,0)="^.1"
^DD(912,.01,1,1,0)="912^B"
^DD(912,.01,1,1,1)="S ^ESP(912,""B"",$E(X,1,30),DA)="""""
^DD(912,.01,1,1,2)="K ^ESP(912,""B"",$E(X,1,30),DA)"
^DD(912,.01,1,2,0)="^^TRIGGER^912^5.01"
^DD(912,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$S($D(DUZ(2)):DUZ(2),1:0) X ^DD(912,.01,1,2,1.4)"
^DD(912,.01,1,2,1.4)="S DIH=$S($D(^ESP(912,DIV(0),5)):^(5),1:""""),DIV=X S $P(^(5),U,1)=DIV,DIH=912,DIG=5.01 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(912,.01,1,2,2)="Q"
^DD(912,.01,1,2,"CREATE VALUE")="S X=$S($D(DUZ(2)):DUZ(2),1:0)"
^DD(912,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(912,.01,1,2,"DT")="2921009"
^DD(912,.01,1,2,"FIELD")="INSTITUTION"
^DD(912,.01,1,3,0)="912^F^MUMPS"
^DD(912,.01,1,3,1)="S ^ESP(912,""F"",+$E(X,$L(X)-5,$L(X))_"".""_$E(X,$L(X)-7,$L(X)-6),DA)="""""
^DD(912,.01,1,3,2)="K ^ESP(912,""F"",+$E(X,$L(X)-5,$L(X))_"".""_$E(X,$L(X)-7,$L(X)-6),DA)"
^DD(912,.01,1,3,"%D",0)="^^5^5^2930929^"
^DD(912,.01,1,3,"%D",1,0)="This x-ref allows you to enter a shortcut id # for an Offense Report."
^DD(912,.01,1,3,"%D",2,0)="The shortcut id # is the sequential number, a period, and the 2 digit"
^DD(912,.01,1,3,"%D",3,0)="year, ie. 1.93 is the shortcut id # for 700093000001, where 7000"
^DD(912,.01,1,3,"%D",4,0)="is the internal entry # in the Institution file, 93 is the 2 digit"
^DD(912,.01,1,3,"%D",5,0)="year, and 000001 is the sequential #."
^DD(912,.01,1,3,"DT")="2920114"
^DD(912,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(912,.01,21,0)="^.001^2^2^3000602^^^^"
^DD(912,.01,21,1,0)="This is the offense ID #.  It is the site # concatenated with the year"
^DD(912,.01,21,2,0)="and the internal entry number of this Uniform Offense Report."
^DD(912,.01,"DT")="2930929"
^DD(912,.02,0)="DATE/TIME RECEIVED^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(912,.02,1,0)="^.1"
^DD(912,.02,1,1,0)="912^C"
^DD(912,.02,1,1,1)="S ^ESP(912,""C"",$E(X,1,30),DA)="""""
^DD(912,.02,1,1,2)="K ^ESP(912,""C"",$E(X,1,30),DA)"
^DD(912,.02,1,1,"DT")="2920106"
^DD(912,.02,1,2,0)="912^UOR^MUMPS"
^DD(912,.02,1,2,1)="D XR^ESPUTIL S ^ESP(912,""UOR"",ESPUOR,DA)="""" K ESPUOR"
^DD(912,.02,1,2,2)="D XR^ESPUTIL K ^ESP(912,""UOR"",ESPUOR,DA) K ESPUOR"
^DD(912,.02,1,2,"%D",0)="^^1^1^2921116^"
^DD(912,.02,1,2,"%D",1,0)="This is a cross-reference used to lookup an offense report by UOR#."
^DD(912,.02,1,2,"DT")="2921116"
^DD(912,.02,1,3,0)="^^TRIGGER^912^.1"
^DD(912,.02,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV D UORN^ESPUTIL X ^DD(912,.02,1,3,1.4)"
^DD(912,.02,1,3,1.4)="S DIH=$S($D(^ESP(912,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=912,DIG=.1 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(912,.02,1,3,2)="Q"
^DD(912,.02,1,3,"CREATE VALUE")="D UORN^ESPUTIL"
^DD(912,.02,1,3,"DELETE VALUE")="NO EFFECT"
^DD(912,.02,1,3,"DT")="2930629"
^DD(912,.02,1,3,"FIELD")="UOR NUMBER"
^DD(912,.02,3)="BOTH date and time must be entered."
^DD(912,.02,21,0)="^.001^4^4^3000602^^^^"
^DD(912,.02,21,1,0)="Enter the date/time an incident is reported to the VA Police which"
^DD(912,.02,21,2,0)="requires the initiation of a Uniform Offense Report.  The correct"
^DD(912,.02,21,3,0)="formats for entering the date/time entry are:  10/20/92@0930;"
^DD(912,.02,21,4,0)="Oct 20@093; 10 20 93@0930; or 10 20@0930."
^DD(912,.02,22)=""
^DD(912,.02,"DT")="2930629"
^DD(912,.03,0)="DATE/TIME OF OFFENSE^DX^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(912,.03,3)="BOTH a date and time must be entered."
^DD(912,.03,21,0)="21^^10^10^2931027^^^"
^DD(912,.03,21,1,0)="Enter the date and time the incident being reported actually occurred."
^DD(912,.03,21,2,0)="In situations involving thefts, etc., there may be an interim time"
^DD(912,.03,21,3,0)="period existing between when the item(s) actually were missing and"
^DD(912,.03,21,4,0)="when they were known to be missing.  In these cases, use this field"
^DD(912,.03,21,5,0)="to enter the last date the item was known to be present.  Utilize the"
^DD(912,.03,21,6,0)="field 'ENDING DATE/TIME OF OFFENSE' to record the date the item was"
^DD(912,.03,21,7,0)="found to be missing.  Example:  On 6/12/93@1000 an employee discovers"
^DD(912,.03,21,8,0)="a chain saw missing from the Engineering Shop (Ending Date/Time of"
^DD(912,.03,21,9,0)="Offense).  The investigation determines that no one remembers seeing"
^DD(912,.03,21,10,0)="it since 5/1/93@1630 (Date/Time of Offense)."
^DD(912,.03,"DT")="2930211"
^DD(912,.04,0)="LOCATION^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(912,.04,3)="Answer must be [3-30 characters]."
^DD(912,.04,21,0)="^^3^3^2940310^^^^"
^DD(912,.04,21,1,0)="Enter the location the offense occurred.  Answer must be 3-30 characters"
^DD(912,.04,21,2,0)="in length.  Use a two point reference, if at all possible, (i.e.,"
^DD(912,.04,21,3,0)="Building 18, Room 116; South Street and Brookline Street)."
^DD(912,.04,21,4,0)="South Street and Brookline Street, etc."
^DD(912,.04,"DT")="2920106"
^DD(912,.05,0)="WEAPON USED^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(912,.05,3)="Answer must be [3-30 characters]."
^DD(912,.05,21,0)="^^5^5^2930222^^^"
^DD(912,.05,21,1,0)="Enter any type of weapon used in carrying out the offense."
^DD(912,.05,21,2,0)="Use of this field will allow you to sort offense by weapons, other"
^DD(912,.05,21,3,0)="than guns, knives, and others covered by the classification codes."
^DD(912,.05,21,4,0)="It will be useful in situations where fists, feet, tables, chairs,"
^DD(912,.05,21,5,0)="etc. are used as weapons."
^DD(912,.05,"DT")="2920106"
^DD(912,.06,0)="INVESTIGATING OFFICER^R*P200'X^VA(200,^0;6^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912,.06,1,0)="^.1"
^DD(912,.06,1,1,0)="^^TRIGGER^912^.11"
^DD(912,.06,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=$$SET^ESPOFF(DIV,1) S DIH=$G(^ESP(912,DIV(0),0)),DIV=X S $P(^(0),U,11)=DIV,DIH=912,DIG=.11 D ^DICR"
^DD(912,.06,1,1,2)="Q"
^DD(912,.06,1,1,"%D",0)="^^2^2^3040120^"
^DD(912,.06,1,1,"%D",1,0)="The officer field triggers a pull from the New Person file for badge "
^DD(912,.06,1,1,"%D",2,0)="number."
^DD(912,.06,1,1,"CREATE VALUE")="S X=$$SET^ESPOFF(DIV,1)"
^DD(912,.06,1,1,"DELETE VALUE")="NO EFFECT"
^DD(912,.06,1,1,"DT")="3040120"
^DD(912,.06,1,1,"FIELD")="BADGE"
^DD(912,.06,1,2,0)="^^TRIGGER^912^.12"
^DD(912,.06,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(912,D0,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=$$SET^ESPOFF(DIV,2) S DIH=$G(^ESP(912,DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=912,DIG=.12 D ^DICR"
^DD(912,.06,1,2,2)="Q"
^DD(912,.06,1,2,"CREATE VALUE")="S X=$$SET^ESPOFF(DIV,2)"
^DD(912,.06,1,2,"DELETE VALUE")="NO EFFECT"
^DD(912,.06,1,2,"DT")="3040121"
^DD(912,.06,1,2,"FIELD")="RANK"
^DD(912,.06,3)="Answer must be [3-30 characters]."
^DD(912,.06,12)="Select a currently assigned police officer."
^DD(912,.06,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"""
^DD(912,.06,21,0)="^.001^3^3^3040618^^^^"
^DD(912,.06,21,1,0)="Enter the police officer who investigated this offense.  The officer's  "
^DD(912,.06,21,2,0)="name must already be entered into the NEW PERSON file (200) and must"
^DD(912,.06,21,3,0)="also be assigned the ESP POLICE Security Key."
^DD(912,.06,"DT")="3040618"
^DD(912,.07,0)="FACILITY^P40.8'I^DG(40.8,^0;7^Q"
^DD(912,.07,3)="Enter the Facility associated with this offense."
^DD(912,.07,21,0)="^.001^1^1^3000307^^^"
^DD(912,.07,21,1,0)="Use this field to identify the Facility that this offense is associated with."
^DD(912,.07,"DT")="2991008"
^DD(912,.08,0)="CASE STATUS^SI^O:OPEN;C:CLOSED;^0;8^Q"
^DD(912,.08,1,0)="^.1"
^DD(912,.08,1,1,0)="912^AC"
^DD(912,.08,1,1,1)="S ^ESP(912,""AC"",$E(X,1,30),DA)="""""
^DD(912,.08,1,1,2)="K ^ESP(912,""AC"",$E(X,1,30),DA)"
^DD(912,.08,1,1,"DT")="2920106"
^DD(912,.08,3)="Enter 'O' for Open or 'C' for Closed case."
^DD(912,.08,21,0)="^^1^1^2930222^^^"
^DD(912,.08,21,1,0)="Enter 'O' for Open or 'C' for Closed case."
^DD(912,.08,"DT")="2990722"
^DD(912,.09,0)="ENDING DATE/TIME OF OFFENSE^D^^0;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(912,.09,3)="BOTH a date and time must be entered."
^DD(912,.09,21,0)="^^11^11^2940310^^^^"
^DD(912,.09,21,1,0)="Entering a date/time in this field allows you when the investigation"
^DD(912,.09,21,2,0)="involves a theft, murder or missing patient, to show a window"
^DD(912,.09,21,3,0)="of time for the occurrence.  Only in cases involving a range of"
^DD(912,.09,21,4,0)="time will this field be used.  In these instances, DATE/TIME OF"
^DD(912,.09,21,5,0)="OFFENSE will be used to record the earliest time the occurence"
^DD(912,.09,21,6,0)="could have taken place, and ENDING DATE/TIME OF OFFENSE will be"
^DD(912,.09,21,7,0)="used to record when you were notified of the occurence."
^DD(912,.09,21,8,0)="Example:  6/12/93@1000 an employee discovers a chain saw missing"
^DD(912,.09,21,9,0)="from the Engineering Shop (ENDING DATE/TIME OF OFFENSE).  The"
^DD(912,.09,21,10,0)="investigation determines that the actual date that it was known"
^DD(912,.09,21,11,0)="to be last present was 5/1/93@1630 (DATE/TIME OF OFFENSE)."
^DD(912,.09,"DT")="2930624"
^DD(912,.1,0)="UOR NUMBER^NJ11,0^^0;10^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912,.1,3)="Enter the UOR # for this report."
^DD(912,.1,5,1,0)="912^.02^3"
^DD(912,.1,21,0)="^^1^1^2930708^^^^"
^DD(912,.1,21,1,0)="This field is automatically triggered by the Date/Time Received field."
^DD(912,.1,"DT")="2930629"
^DD(912,.11,0)="BADGE NUMBER^NJ8,0^^0;11^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(912,.11,.1)="BADGE"
^DD(912,.11,3)="Type a number between 1 and 99999999, 0 Decimal Digits"
^DD(912,.11,5,1,0)="912^.06^1"
^DD(912,.11,9)="^"
^DD(912,.11,21,0)="^^3^3^3040114^"
^DD(912,.11,21,1,0)="Investigator badge number"
^DD(912,.11,21,2,0)=" "
^DD(912,.11,21,3,0)="UNEDITABLE"
^DD(912,.11,"DT")="3040114"
^DD(912,.12,0)="RANK^F^^0;12^K:$L(X)>30!($L(X)<2) X"
^DD(912,.12,.1)="RANK TEXT"
^DD(912,.12,3)="Enter the investigator's rank [2-30 characters]"
^DD(912,.12,5,1,0)="912^.06^2"
^DD(912,.12,9)="^"
^DD(912,.12,21,0)="^^3^3^3040114^"
^DD(912,.12,21,1,0)="Enter the VA investigator's assigned rank designation."
^DD(912,.12,21,2,0)=" "
^DD(912,.12,21,3,0)="Uneditable"
^DD(912,.12,"DT")="3040114"
^DD(912,1.01,0)="CIP WEAPON USED^S^N:NO;Y:YES;^1;1^Q"
^DD(912,1.01,3)="Enter 'N' for NO or 'Y' for YES."
^DD(912,1.01,21,0)="^^2^2^2940310^^^^"
^DD(912,1.01,21,1,0)="Enter 'YES' if a Chemical Irritant Projector (CIP) weapon was used."
^DD(912,1.01,21,2,0)="Enter 'NO' if a Chemical Irritant Projector (CIP) weapon was not used."
^DD(912,1.01,"DT")="2930219"
^DD(912,1.02,0)="POLICE BATON USED^S^N:NO;Y:YES;^1;2^Q"
^DD(912,1.02,3)="Enter 'N' for NO or 'Y' for YES."
^DD(912,1.02,21,0)="^^2^2^2930222^^"
^DD(912,1.02,21,1,0)="Enter 'NO' if a police baton was not used."
^DD(912,1.02,21,2,0)="Enter 'YES' if a police baton was used."
^DD(912,1.02,"DT")="2930219"
^DD(912,5.01,0)="INSTITUTION^P4'I^DIC(4,^5;1^Q"
^DD(912,5.01,3)="This field is not entered by the user."
^DD(912,5.01,5,1,0)="912^.01^2"
^DD(912,5.01,9)="^"
^DD(912,5.01,21,0)="^^6^6^2940310^^^"
^DD(912,5.01,21,1,0)="This field is locked and data cannot be manually entered at the"
^DD(912,5.01,21,2,0)="local site.  It is triggered by the Institution file and"
^DD(912,5.01,21,3,0)="will automatically enter the station number into the reports.  This"
^DD(912,5.01,21,4,0)="will also be involved in the generation of the Monthly Crime Report"
^DD(912,5.01,21,5,0)="and will assist Law Enforcement and Security, VACO in identifying"
^DD(912,5.01,21,6,0)="the originating site for each report."
^DD(912,5.01,"DT")="2930208"
^DD(912,5.02,0)="COMPLETED FLAG^SI^0:INCOMPLETE;1:COMPLETE;^5;2^Q"
^DD(912,5.02,1,0)="^.1"
^DD(912,5.02,1,1,0)="912^H"
^DD(912,5.02,1,1,1)="S ^ESP(912,""H"",$E(X,1,30),DA)="""""
^DD(912,5.02,1,1,2)="K ^ESP(912,""H"",$E(X,1,30),DA)"
^DD(912,5.02,1,1,"%D",0)="^^2^2^2921110^"
^DD(912,5.02,1,1,"%D",1,0)="Completed reports for lookup only.  Incomplete reports"
^DD(912,5.02,1,1,"%D",2,0)="accessed only by the user who entered the report."
^DD(912,5.02,1,1,"DT")="2921110"
^DD(912,5.02,3)="This is not a field to be entered by the user."
^DD(912,5.02,21,0)="^^3^3^2930208^^"
^DD(912,5.02,21,1,0)="This field is set by the program so can tell if the report"
^DD(912,5.02,21,2,0)="is completed or not."
^DD(912,5.02,21,3,0)="A completed report is visible only to the person who entered the report."
^DD(912,5.02,"DT")="2930208"
^DD(912,5.03,0)="USER^P200'I^VA(200,^5;3^Q"
^DD(912,5.03,3)="Enter the user who entered this report."
^DD(912,5.03,21,0)="^^6^6^2940310^^^^"
^DD(912,5.03,21,1,0)="This field is automatically triggered by the User Number of the person"
^DD(912,5.03,21,2,0)="who physically enters the Uniform Offense Report into the file.  At"
^DD(912,5.03,21,3,0)="some sites, the supervisor rather than the patrol officer may"
^DD(912,5.03,21,4,0)="be in charge of entering the report.  Due to a heavy case work load, one"
^DD(912,5.03,21,5,0)="officer may assist another officer by entering an Offense Report.  This"
^DD(912,5.03,21,6,0)="will help establish who actually entered the report into the file."
^DD(912,5.03,"DT")="2930318"
^DD(912,5.04,0)="SENSITIVE FLAG^SI^0:NO;1:YES;^5;4^Q"
^DD(912,5.04,3)="Enter 'YES' or 'NO'."
^DD(912,5.04,21,0)="^^3^3^2930222^"
^DD(912,5.04,21,1,0)="Entering a '1' for 'YES' in this field locks the Offense Report so"
^DD(912,5.04,21,2,0)="that only VA Police staff assigned the ESP Chief key may access the"
^DD(912,5.04,21,3,0)="report."
^DD(912,5.04,"DT")="2930208"
^DD(912,5.05,0)="DELETED/REOPENED FLAG^SI^D:DELETED;R:REOPENED;1:NONE OF THE ABOVE;^5;5^Q"
^DD(912,5.05,3)="This field is not entered by the user."
^DD(912,5.05,21,0)="^^4^4^2940310^^^"
^DD(912,5.05,21,1,0)="This field is triggered by the program to record that a Uniform"
^DD(912,5.05,21,2,0)="Offense Report that has been closed, has been reopened."
^DD(912,5.05,21,3,0)="It is also used to record that a previously entered Uniform"
^DD(912,5.05,21,4,0)="Offense Report has been deleted from the program."
^DD(912,5.05,"DT")="2930222"
^DD(912,5.06,0)="DATE/TIME DELETED^DI^^5;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(912,5.06,3)="This is the date/time of deletion.  It is not entered by user."
^DD(912,5.06,21,0)="^^2^2^2930222^^"
^DD(912,5.06,21,1,0)="When an Offense Report is deleted, the date/time is stuffed"
^DD(912,5.06,21,2,0)="by the program into this field."
^DD(912,5.06,"DT")="2930222"
^DD(912,5.07,0)="DELETING USER^P200'I^VA(200,^5;7^Q"
^DD(912,5.07,3)="This is the person who deleted this report.  It is not entered by the user."
^DD(912,5.07,21,0)="^^3^3^2930222^^"
^DD(912,5.07,21,1,0)="When the offense report is deleted the user # is stuffed here."
^DD(912,5.07,21,2,0)="It is a pointer to the New Person file, #200.  This field is"
^DD(912,5.07,21,3,0)="for auditing purposes and is not to be entered by the user."
^DD(912,5.07,"DT")="2930222"
^DD(912,6.01,0)="PREVIOUS ID NUMBER^NJ12,0^^6;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912,6.01,3)="This data is not to be entered by the user."
^DD(912,6.01,21,0)="^^2^2^2940310^^^"
^DD(912,6.01,21,1,0)="This data is stuffed when a report is reopened."
^DD(912,6.01,21,2,0)="This field contains the previous ID #."
^DD(912,6.01,"DT")="2930222"
^DD(912,6.02,0)="DATE/TIME REOPENED^DI^^6;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(912,6.02,3)="This data is not to be entered by the user."
^DD(912,6.02,21,0)="^^2^2^2930210^"
^DD(912,6.02,21,1,0)="This data is stuffed at the time a report is reopened."
^DD(912,6.02,21,2,0)="This field contains the date/time a report was reopened."
^DD(912,6.02,"DT")="2930222"
^DD(912,6.03,0)="REOPENED USER^P200'I^VA(200,^6;3^Q"
^DD(912,6.03,3)="This data is not to be entered by the user."
^DD(912,6.03,21,0)="^^3^3^2930210^"
^DD(912,6.03,21,1,0)="This data is stuffed when the report is reopened."
^DD(912,6.03,21,2,0)="This contains the user # of the person who reopened"
^DD(912,6.03,21,3,0)="the report."
^DD(912,6.03,"DT")="2930222"
^DD(912,10,0)="CLASSIFICATION CODE^912.01P^^10;0"
^DD(912,10,21,0)="^^2^2^2930708^"
^DD(912,10,21,1,0)="This field is used to establish the primary crime category of"
^DD(912,10,21,2,0)="the Offense Report and subsequent descriptive Type and Subtypes."
^DD(912,20,0)="COMPLAINANT^912.03^^20;0"
^DD(912,20,21,0)="^^1^1^2940310^^^^"
^DD(912,20,21,1,0)="This subfile contains the complainant information."
^DD(912,20,"DT")="2920716"
^DD(912,30,0)="VICTIM^912.04^^30;0"
^DD(912,30,21,0)="^^1^1^2970416^^^^"
^DD(912,30,21,1,0)="This subfile contains victim information."
^DD(912,40,0)="OFFENDER^912.05^^40;0"
^DD(912,40,21,0)="^^1^1^2940310^^^^"
^DD(912,40,21,1,0)="This subfile contains offender information."
^DD(912,50,0)="WITNESS^912.06^^50;0"
^DD(912,50,21,0)="^^1^1^2970415^^^^"
^DD(912,50,21,1,0)="This subfile contains witness information."
^DD(912,50,"DT")="2920717"
^DD(912,60,0)="METHOD OF OPERATION^912.07^^60;0"
^DD(912,60,21,0)="^^3^3^2940310^^^"
^DD(912,60,21,1,0)="This field is used to record narrative information that may"
^DD(912,60,21,2,0)="be used to describe a modus operandi used during the commission"
^DD(912,60,21,3,0)="of the crime."
^DD(912,70,0)="ORIGIN^912.08^^70;0"
^DD(912,70,21,0)="^^2^2^2930708^"
^DD(912,70,21,1,0)="This field is used to record how the VA Police were notified"
^DD(912,70,21,2,0)="of the necessity to initiate a police investigation."
^DD(912,70,"DT")="2930211"
^DD(912,72,0)="INITIAL OBSERVATION^912.072^^72;0"
^DD(912,72,21,0)="^^2^2^2940310^^"
^DD(912,72,21,1,0)="This field is used to describe what the VA Police Officer first"
^DD(912,72,21,2,0)="observed when he arrived at the scene of the investigation."
^DD(912,72,"DT")="2930212"
^DD(912,73,0)="INVESTIGATION^912.073^^73;0"
^DD(912,73,21,0)="^^2^2^2930708^"
^DD(912,73,21,1,0)="This field is used to describe all investigative efforts that"
^DD(912,73,21,2,0)="were taken during the investigation of the reported offense."
^DD(912,74,0)="DISPOSITION^912.074^^74;0"
^DD(912,74,21,0)="^^2^2^2930708^"
^DD(912,74,21,1,0)="This field is used to describe what disposition was made or"
^DD(912,74,21,2,0)="actions taken or recommended at the conclusion of the investigation."
^DD(912,80,0)="VEHICLE INFORMATION^912.09^^80;0"
^DD(912,80,21,0)="^^1^1^2940310^^"
^DD(912,80,21,1,0)="This subfile contains vehicle information."
^DD(912,90,0)="PROPERTY (LOST)^912.1^^90;0"
^DD(912,90,21,0)="^^1^1^2940310^^^^"
^DD(912,90,21,1,0)="This subfile contains lost property information."
^DD(912,100,0)="PROPERTY HELD^912.02^^100;0"
^DD(912,100,21,0)="^^2^2^2940310^^^^"
^DD(912,100,21,1,0)="This subfile contains information on items taken into custody and"
^DD(912,100,21,2,0)="placed into the Evidence/Property Held system."
^DD(912,100,"DT")="2920922"
^DD(912,110,0)="OTHER AGENCY NOTIFIED^912.14D^^110;0"
^DD(912,110,21,0)="^^4^4^2930503^^^"
^DD(912,110,21,1,0)="If a Federal or Local Law Enforcement Agency was notified,"
^DD(912,110,21,2,0)="enter the date/time of notification and contact person."
^DD(912,110,21,3,0)="This information may be entered any time another law enforcement"
^DD(912,110,21,4,0)="agency is notified.  Do not enter VA Police in this space."
^DD(912,120,0)="U.S. ATTORNEY NOTIFIED^912.15D^^120;0"
^DD(912,120,21,0)="^^2^2^2930219^^"
^DD(912,120,21,1,0)="If U.S. Attorney is notified, then enter the date and time"
^DD(912,120,21,2,0)="of notification and instructions received."
^DD(912,130,0)="FOLLOW-UP^912.17P^^130;0"
^DD(912,130,21,0)="^^2^2^2930726^^^^"
^DD(912,130,21,1,0)="This field is used to record the follow-up notes and the follow-up"
^DD(912,130,21,2,0)="investigators."
^DD(912,130,"DT")="2930505"
^DD(912,"B","BADGE",.11)="1"
^DD(912,"B","BADGE NUMBER",.11)=""
^DD(912,"B","CASE STATUS",.08)=""
^DD(912,"B","CIP WEAPON USED",1.01)=""
^DD(912,"B","CLASSIFICATION CODE",10)=""
^DD(912,"B","COMPLAINANT",20)=""
^DD(912,"B","COMPLETED FLAG",5.02)=""
^DD(912,"B","DATE/TIME DELETED",5.06)=""
^DD(912,"B","DATE/TIME OF OFFENSE",.03)=""
^DD(912,"B","DATE/TIME RECEIVED",.02)=""
^DD(912,"B","DATE/TIME REOPENED",6.02)=""
^DD(912,"B","DELETED/REOPENED FLAG",5.05)=""
^DD(912,"B","DELETING USER",5.07)=""
^DD(912,"B","DISPOSITION",74)=""
^DD(912,"B","ENDING DATE/TIME OF OFFENSE",.09)=""
^DD(912,"B","FACILITY",.07)=""
^DD(912,"B","FOLLOW-UP",130)=""
^DD(912,"B","ID NUMBER",.01)=""
^DD(912,"B","INITIAL OBSERVATION",72)=""
^DD(912,"B","INSTITUTION",5.01)=""
^DD(912,"B","INVESTIGATING OFFICER",.06)=""
^DD(912,"B","INVESTIGATION",73)=""
^DD(912,"B","LOCATION",.04)=""
^DD(912,"B","METHOD OF OPERATION",60)=""
^DD(912,"B","OFFENDER",40)=""
^DD(912,"B","ORIGIN",70)=""
^DD(912,"B","OTHER AGENCY NOTIFIED",110)=""
^DD(912,"B","POLICE BATON USED",1.02)=""
^DD(912,"B","PREVIOUS ID NUMBER",6.01)=""
^DD(912,"B","PROPERTY (LOST)",90)=""
^DD(912,"B","PROPERTY HELD",100)=""
^DD(912,"B","RANK",.12)=""
^DD(912,"B","RANK TEXT",.12)="1"
^DD(912,"B","REOPENED USER",6.03)=""
^DD(912,"B","SENSITIVE FLAG",5.04)=""
^DD(912,"B","U.S. ATTORNEY NOTIFIED",120)=""
^DD(912,"B","UOR NUMBER",.1)=""
^DD(912,"B","USER",5.03)=""
^DD(912,"B","VEHICLE INFORMATION",80)=""
^DD(912,"B","VICTIM",30)=""
^DD(912,"B","WEAPON USED",.05)=""
^DD(912,"B","WITNESS",50)=""
^DD(912,"GL",0,1,.01)=""
^DD(912,"GL",0,2,.02)=""
^DD(912,"GL",0,3,.03)=""
^DD(912,"GL",0,4,.04)=""
^DD(912,"GL",0,5,.05)=""
^DD(912,"GL",0,6,.06)=""
^DD(912,"GL",0,7,.07)=""
^DD(912,"GL",0,8,.08)=""
^DD(912,"GL",0,9,.09)=""
^DD(912,"GL",0,10,.1)=""
^DD(912,"GL",0,11,.11)=""
^DD(912,"GL",0,12,.12)=""
^DD(912,"GL",1,1,1.01)=""
^DD(912,"GL",1,2,1.02)=""
^DD(912,"GL",5,1,5.01)=""
^DD(912,"GL",5,2,5.02)=""
^DD(912,"GL",5,3,5.03)=""
^DD(912,"GL",5,4,5.04)=""
^DD(912,"GL",5,5,5.05)=""
^DD(912,"GL",5,6,5.06)=""
^DD(912,"GL",5,7,5.07)=""
^DD(912,"GL",6,1,6.01)=""
^DD(912,"GL",6,2,6.02)=""
^DD(912,"GL",6,3,6.03)=""
^DD(912,"GL",10,0,10)=""
^DD(912,"GL",20,0,20)=""
^DD(912,"GL",30,0,30)=""
^DD(912,"GL",40,0,40)=""
^DD(912,"GL",50,0,50)=""
^DD(912,"GL",60,0,60)=""
^DD(912,"GL",70,0,70)=""
^DD(912,"GL",72,0,72)=""
^DD(912,"GL",73,0,73)=""
^DD(912,"GL",74,0,74)=""
^DD(912,"GL",80,0,80)=""
^DD(912,"GL",90,0,90)=""
^DD(912,"GL",100,0,100)=""
^DD(912,"GL",110,0,110)=""
^DD(912,"GL",120,0,120)=""
^DD(912,"GL",130,0,130)=""
^DD(912,"IX",.01)=""
^DD(912,"IX",.02)=""
^DD(912,"IX",.06)=""
^DD(912,"IX",.08)=""
^DD(912,"IX",5.02)=""
^DD(912,"RQ",.01)=""
^DD(912,"RQ",.06)=""
^DD(912,"SB",912.01,10)=""
^DD(912,"SB",912.02,100)=""
^DD(912,"SB",912.03,20)=""
^DD(912,"SB",912.04,30)=""
^DD(912,"SB",912.05,40)=""
^DD(912,"SB",912.06,50)=""
^DD(912,"SB",912.07,60)=""
^DD(912,"SB",912.072,72)=""
^DD(912,"SB",912.073,73)=""
^DD(912,"SB",912.074,74)=""
^DD(912,"SB",912.08,70)=""
^DD(912,"SB",912.09,80)=""
^DD(912,"SB",912.1,90)=""
^DD(912,"SB",912.14,110)=""
^DD(912,"SB",912.15,120)=""
^DD(912,"SB",912.17,130)=""
^DD(912.01,0)="CLASSIFICATION CODE SUB-FIELD^^.03^3"
^DD(912.01,0,"DT")="2980421"
^DD(912.01,0,"IX","B",912.01,.01)=""
^DD(912.01,0,"NM","CLASSIFICATION CODE")=""
^DD(912.01,0,"UP")="912"
^DD(912.01,.01,0)="CLASSIFICATION CODE^RP912.7'^ESP(912.7,^0;1^Q"
^DD(912.01,.01,1,0)="^.1"
^DD(912.01,.01,1,1,0)="912.01^B"
^DD(912.01,.01,1,1,1)="S ^ESP(912,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(912.01,.01,1,1,2)="K ^ESP(912,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(912.01,.01,3)="Enter a valid CRIME category."
^DD(912.01,.01,21,0)="4^^4^4^2930707^^^"
^DD(912.01,.01,21,1,0)="This field points to a file containing the primary crime categories"
^DD(912.01,.01,21,2,0)="approved by Law Enforcement and Security, VACO to be utilized for"
^DD(912.01,.01,21,3,0)="classifying investigative reports.  NO additions are to be made at the"
^DD(912.01,.01,21,4,0)="local field stations."
^DD(912.01,.01,22)=""
^DD(912.01,.01,"DT")="2930623"
^DD(912.01,.02,0)="TYPE^R*P912.8'^ESP(912.8,^0;2^S DIC(""S"")=""I $P(^(0),U,2)=ESPS"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.01,.02,3)="Answer must be a valid TYPE."
^DD(912.01,.02,4)=""
^DD(912.01,.02,12)="Must enter a type for this category."
^DD(912.01,.02,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=ESPS"""
^DD(912.01,.02,21,0)="^^3^3^2930707^^^^"
^DD(912.01,.02,21,1,0)="Enter the type of the crime category if applicable."
^DD(912.01,.02,21,2,0)="For example, AGGRAVATED for the crime category ASSAULT."
^DD(912.01,.02,21,3,0)="Only types for the category entered will be allowed."
^DD(912.01,.02,"DT")="2930623"
^DD(912.01,.03,0)="SUBTYPE^R*P912.9'^ESP(912.9,^0;3^S DIC(""S"")=""S:'$D(ESPDTR) ESPDTR=$P(^ESP(912,DA(1),0),U,2) I $$SUBTYPE^ESPUTIL(ESPS,ESPDTR)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.01,.03,3)="Answer must be a valid sub-type."
^DD(912.01,.03,4)=""
^DD(912.01,.03,12)="Subtype must correspond to type and category, and cannot be inactive."
^DD(912.01,.03,12.1)="S DIC(""S"")=""S:'$D(ESPDTR) ESPDTR=$P(^ESP(912,DA(1),0),U,2) I $$SUBTYPE^ESPUTIL(ESPS,ESPDTR)"""
^DD(912.01,.03,21,0)="^^9^9^2980421^^^^"
^DD(912.01,.03,21,1,0)="Enter the subtype for this type of crime category, if applicable."
^DD(912.01,.03,21,2,0)="For example, ABOVE $1000 (GOV'T) for GOVERNMENT PROPERTY type"
^DD(912.01,.03,21,3,0)="THEFTS category.  You must enter a proper sub-type for the"
^DD(912.01,.03,21,4,0)="type and category."
^DD(912.01,.03,21,5,0)=" "
^DD(912.01,.03,21,6,0)="A subtype record in the ESP CRIME SUB-TYPES file (#912.9) cannot be"
^DD(912.01,.03,21,7,0)="selected, if it has an INACTIVATION DATE field (#1) which precedes"
^DD(912.01,.03,21,8,0)="the DATE/TIME RECEIVED field (#.02) of the file #912 record with"
^DD(912.01,.03,21,9,0)="which it is to be associated."
^DD(912.01,.03,"DT")="2980421"
^DD(912.01,"B","CLASSIFICATION CODE",.01)=""
^DD(912.01,"B","SUBTYPE",.03)=""
^DD(912.01,"B","TYPE",.02)=""
^DD(912.01,"GL",0,1,.01)=""
^DD(912.01,"GL",0,2,.02)=""
^DD(912.01,"GL",0,3,.03)=""
^DD(912.01,"IX",.01)=""
^DD(912.01,"RQ",.01)=""
^DD(912.01,"RQ",.02)=""
^DD(912.01,"RQ",.03)=""
^DD(912.02,0)="PROPERTY HELD SUB-FIELD^^10^4"
^DD(912.02,0,"DT")="2930223"
^DD(912.02,0,"IX","B",912.02,.01)=""
^DD(912.02,0,"NM","PROPERTY HELD")=""
^DD(912.02,0,"UP")="912"
^DD(912.02,.01,0)="ITEM NUMBER^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.02,.01,1,0)="^.1"
^DD(912.02,.01,1,1,0)="912.02^B"
^DD(912.02,.01,1,1,1)="S ^ESP(912,DA(1),100,""B"",$E(X,1,30),DA)="""""
^DD(912.02,.01,1,1,2)="K ^ESP(912,DA(1),100,""B"",$E(X,1,30),DA)"
^DD(912.02,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(912.02,.01,21,0)="^^2^2^2930223^^^"
^DD(912.02,.01,21,1,0)="Enter the sequential Item No. for this item as listed on the VA"
^DD(912.02,.01,21,2,0)="Form 10-3524, ""Evidence or Property Custody Record"", i.e., 1, 2, 3, etc."
^DD(912.02,.01,"DT")="2930225"
^DD(912.02,.02,0)="QUANTITY^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.02,.02,3)="Enter the total quantity of the article(s) listed for this item."
^DD(912.02,.02,21,0)="^^2^2^2940310^^"
^DD(912.02,.02,21,1,0)="Enter the total quantity of the article(s) listed for this item, (i.e.,"
^DD(912.02,.02,21,2,0)="100 tablets, 3 pairs, 2 each).  Answer must be between 1 and 999999."
^DD(912.02,.02,21,3,0)="999999."
^DD(912.02,.02,"DT")="2920921"
^DD(912.02,.03,0)="PURPOSE^S^D:DESTRUCTION;E:EVIDENCE;S:SAFEKEEPING;^0;3^Q"
^DD(912.02,.03,3)="Answer must be a valid code."
^DD(912.02,.03,21,0)="^^3^3^2930223^^"
^DD(912.02,.03,21,1,0)="Enter the reason that the article(s) are being placed into Property"
^DD(912.02,.03,21,2,0)="Held.  This will assist the Evidence/Property Custodian in determining"
^DD(912.02,.03,21,3,0)="a retention time for them.  You must select from the available codes."
^DD(912.02,.03,"DT")="2920921"
^DD(912.02,10,0)="DESCRIPTION^912.13^^10;0"
^DD(912.02,10,21,0)="^^4^4^2920921^"
^DD(912.02,10,21,1,0)="Enter a brief description of the article(s) listed for this Item No.,"
^DD(912.02,10,21,2,0)="i.e., ""Aspirin, Bayer brand, plastic bottle, brown label, unopened"";"
^DD(912.02,10,21,3,0)="or ""Smirnoff Vodka, 1/5 gallon, opened, approximately 1/2 contents"
^DD(912.02,10,21,4,0)="remaining""."
^DD(912.02,"B","DESCRIPTION",10)=""
^DD(912.02,"B","ITEM NUMBER",.01)=""
^DD(912.02,"B","PURPOSE",.03)=""
^DD(912.02,"B","QUANTITY",.02)=""
^DD(912.02,"GL",0,1,.01)=""
^DD(912.02,"GL",0,2,.02)=""
^DD(912.02,"GL",0,3,.03)=""
^DD(912.02,"GL",10,0,10)=""
^DD(912.02,"IX",.01)=""
^DD(912.02,"SB",912.13,10)=""
^DD(912.03,0)="COMPLAINANT SUB-FIELD^^2.06^15"
^DD(912.03,0,"DT")="2930929"
^DD(912.03,0,"IX","B",912.03,.01)=""
^DD(912.03,0,"NM","COMPLAINANT")=""
^DD(912.03,0,"UP")="912"
^DD(912.03,.01,0)="NUMBER^NJ2,0X^^0;1^D COM^ESPDISP"
^DD(912.03,.01,1,0)="^.1"
^DD(912.03,.01,1,1,0)="912.03^B"
^DD(912.03,.01,1,1,1)="S ^ESP(912,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(912.03,.01,1,1,2)="K ^ESP(912,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(912.03,.01,3)="Answer must be [1-99 numeric]."
^DD(912.03,.01,21,0)="^^3^3^2931020^^^^"
^DD(912.03,.01,21,1,0)="Enter the sequential number for this complainant.  The in-put program"
^DD(912.03,.01,21,2,0)="will assign the number as you enter the data.  During the edit option"
^DD(912.03,.01,21,3,0)="you will need to select the correct complainant by number."
^DD(912.03,.01,"DT")="2930803"
^DD(912.03,.02,0)="COMPLAINANT NAME^P910^ESP(910,^0;2^Q"
^DD(912.03,.02,1,0)="^.1"
^DD(912.03,.02,1,1,0)="912^D"
^DD(912.03,.02,1,1,1)="S ^ESP(912,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(912.03,.02,1,1,2)="K ^ESP(912,""D"",$E(X,1,30),DA(1),DA)"
^DD(912.03,.02,1,1,"DT")="2921009"
^DD(912.03,.02,3)="Answer must be [3-30 characters]."
^DD(912.03,.02,21,0)="^^3^3^2930223^^^^"
^DD(912.03,.02,21,1,0)="Enter the full name of the person making the complaint."
^DD(912.03,.02,21,2,0)="Use the standard program format of LAST,FIRST MIDDLE no space between"
^DD(912.03,.02,21,3,0)="LAST and FIRST name."
^DD(912.03,.02,"DT")="2921009"
^DD(912.03,.03,0)="STATUS^S^P:PATIENT;V:VISITOR;E:EMPLOYEE;O:OUTSIDER;PO:POLICE OFFICER;^0;3^Q"
^DD(912.03,.03,3)="You must choose from available codes."
^DD(912.03,.03,21,0)="^^2^2^3061227^"
^DD(912.03,.03,21,1,0)="Enter 'P' for Patient, 'V' for Visitor, 'E' for Employee, 'O' for "
^DD(912.03,.03,21,2,0)="Outsider, or 'PO' for Police Officer."
^DD(912.03,.03,"DT")="3061227"
^DD(912.03,1.01,0)="STREET ADDRESS^F^^1;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.03,1.01,3)="Answer must be [3-35 characters]."
^DD(912.03,1.01,21,0)="^^1^1^2930223^^^^"
^DD(912.03,1.01,21,1,0)="Enter the first line of the complainant's address."
^DD(912.03,1.01,"DT")="2910822"
^DD(912.03,1.02,0)="STREET ADDRESS [LINE 2]^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.03,1.02,3)="Answer must be [3-30 characters]."
^DD(912.03,1.02,21,0)="^^1^1^2930223^^^^"
^DD(912.03,1.02,21,1,0)="If necessary, enter the second line of the complainant's address."
^DD(912.03,1.02,"DT")="2910822"
^DD(912.03,1.03,0)="CITY^F^^1;3^K:$L(X)>30!($L(X)<2) X"
^DD(912.03,1.03,3)="Answer must be [2-30 characters]. "
^DD(912.03,1.03,21,0)="1^^1^1^2930223^^^^"
^DD(912.03,1.03,21,1,0)="Enter the city where the complainant resides."
^DD(912.03,1.03,"DT")="2930202"
^DD(912.03,1.04,0)="STATE^P5'^DIC(5,^1;4^Q"
^DD(912.03,1.04,3)="You must enter a valid state."
^DD(912.03,1.04,21,0)="^^1^1^2930223^^^^"
^DD(912.03,1.04,21,1,0)="Enter the state where the complainant resides."
^DD(912.03,1.04,"DT")="2910822"
^DD(912.03,1.05,0)="ZIP CODE^FXO^^1;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.03,1.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.03,1.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.03,1.05,3)="Enter the zip code for the city in which the complainant resides."
^DD(912.03,1.05,21,0)="^^2^2^2930929^^^^"
^DD(912.03,1.05,21,1,0)="Enter the zip code for the city in which the complainant resides."
^DD(912.03,1.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, ie. 12345-1234."
^DD(912.03,1.05,"DT")="2930929"
^DD(912.03,1.06,0)="PHONE NUMBER [RESIDENCE]^F^^1;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.03,1.06,3)="Answer must be [4-20 characters]."
^DD(912.03,1.06,21,0)="^^1^1^2930223^^^^"
^DD(912.03,1.06,21,1,0)="Enter the complainant's home telephone number."
^DD(912.03,1.06,"DT")="2920915"
^DD(912.03,2.01,0)="STREET ADDRESS [WORK]^F^^2;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.03,2.01,3)="Answer must be [3-35 characters]."
^DD(912.03,2.01,21,0)="^^2^2^2930223^^^^"
^DD(912.03,2.01,21,1,0)="Enter the first line of the address of the complainant's place"
^DD(912.03,2.01,21,2,0)="of employment."
^DD(912.03,2.01,"DT")="2910822"
^DD(912.03,2.02,0)="STREET ADDRESS [LINE 2] [WORK]^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.03,2.02,3)="Answer must be [3-30 characters]."
^DD(912.03,2.02,21,0)="^^2^2^2930223^^^"
^DD(912.03,2.02,21,1,0)="If necessary, enter the second line of the address of the complainant's"
^DD(912.03,2.02,21,2,0)="place of employment."
^DD(912.03,2.02,"DT")="2910822"
^DD(912.03,2.03,0)="CITY [WORK]^F^^2;3^K:$L(X)>30!($L(X)<2) X"
^DD(912.03,2.03,3)="Answer must be [2-30 characters]. "
^DD(912.03,2.03,21,0)="^^1^1^2930223^^^^"
^DD(912.03,2.03,21,1,0)="Enter the city of the complainant's place of employment."
^DD(912.03,2.03,"DT")="2930202"
^DD(912.03,2.04,0)="STATE [WORK]^P5'^DIC(5,^2;4^Q"
^DD(912.03,2.04,3)="You must enter a valid State."
^DD(912.03,2.04,21,0)="^^1^1^2930223^^^"
^DD(912.03,2.04,21,1,0)="Enter the state where the complainant is employed."
^DD(912.03,2.04,"DT")="2920910"
^DD(912.03,2.05,0)="ZIP [WORK]^FXO^^2;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.03,2.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.03,2.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.03,2.05,3)="Enter the zip code for the city in which the complainant is employed."
^DD(912.03,2.05,21,0)="^^3^3^2930929^^^^"
^DD(912.03,2.05,21,1,0)="Enter the zip code for the city in which the complainant"
^DD(912.03,2.05,21,2,0)="is employed."
^DD(912.03,2.05,21,3,0)="Enter the 5 digit zip code or ZIP + 4 , ie. 12345-1234."
^DD(912.03,2.05,"DT")="2930929"
^DD(912.03,2.06,0)="PHONE NUMBER [WORK]^F^^2;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.03,2.06,3)="Answer must be [4-20 characters]."
^DD(912.03,2.06,21,0)="^^1^1^2930223^^^"
^DD(912.03,2.06,21,1,0)="Enter the telephone number of the complainant's place of employment."
^DD(912.03,2.06,"DT")="2920915"
^DD(912.03,"B","CITY",1.03)=""
^DD(912.03,"B","CITY [WORK]",2.03)=""
^DD(912.03,"B","COMPLAINANT NAME",.02)=""
^DD(912.03,"B","NUMBER",.01)=""
^DD(912.03,"B","PHONE NUMBER [RESIDENCE]",1.06)=""
^DD(912.03,"B","PHONE NUMBER [WORK]",2.06)=""
^DD(912.03,"B","STATE",1.04)=""
^DD(912.03,"B","STATE [WORK]",2.04)=""
^DD(912.03,"B","STATUS",.03)=""
^DD(912.03,"B","STREET ADDRESS",1.01)=""
^DD(912.03,"B","STREET ADDRESS [LINE 2]",1.02)=""
^DD(912.03,"B","STREET ADDRESS [LINE 2] [WORK]",2.02)=""
^DD(912.03,"B","STREET ADDRESS [WORK]",2.01)=""
^DD(912.03,"B","ZIP CODE",1.05)=""
^DD(912.03,"B","ZIP [WORK]",2.05)=""
^DD(912.03,"GL",0,1,.01)=""
^DD(912.03,"GL",0,2,.02)=""
^DD(912.03,"GL",0,3,.03)=""
^DD(912.03,"GL",1,1,1.01)=""
^DD(912.03,"GL",1,2,1.02)=""
^DD(912.03,"GL",1,3,1.03)=""
^DD(912.03,"GL",1,4,1.04)=""
^DD(912.03,"GL",1,5,1.05)=""
^DD(912.03,"GL",1,6,1.06)=""
^DD(912.03,"GL",2,1,2.01)=""
^DD(912.03,"GL",2,2,2.02)=""
^DD(912.03,"GL",2,3,2.03)=""
^DD(912.03,"GL",2,4,2.04)=""
^DD(912.03,"GL",2,5,2.05)=""
^DD(912.03,"GL",2,6,2.06)=""
^DD(912.03,"IX",.01)=""
^DD(912.03,"IX",.02)=""
^DD(912.04,0)="VICTIM SUB-FIELD^^10^20"
^DD(912.04,0,"DT")="2930929"
^DD(912.04,0,"IX","B",912.04,.01)=""
^DD(912.04,0,"NM","VICTIM")=""
^DD(912.04,0,"UP")="912"
^DD(912.04,.01,0)="NUMBER^NJ2,0X^^0;1^D VIC^ESPDISP"
^DD(912.04,.01,1,0)="^.1^^-1"
^DD(912.04,.01,1,1,0)="912.04^B"
^DD(912.04,.01,1,1,1)="S ^ESP(912,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(912.04,.01,1,1,2)="K ^ESP(912,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(912.04,.01,3)="Answer must be [1-99 numeric]."
^DD(912.04,.01,9)="^"
^DD(912.04,.01,21,0)="^^3^3^2970416^^^^"
^DD(912.04,.01,21,1,0)="Enter the sequential number for this victim.  The input program"
^DD(912.04,.01,21,2,0)="will assign the number as you enter the data.  During the edit option"
^DD(912.04,.01,21,3,0)="you will need to select the correct victim by number."
^DD(912.04,.01,"DT")="2930803"
^DD(912.04,.02,0)="NAME^P910^ESP(910,^0;2^Q"
^DD(912.04,.02,1,0)="^.1^^-1"
^DD(912.04,.02,1,1,0)="912^E"
^DD(912.04,.02,1,1,1)="S ^ESP(912,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(912.04,.02,1,1,2)="K ^ESP(912,""E"",$E(X,1,30),DA(1),DA)"
^DD(912.04,.02,1,1,"%D",0)="^^2^2^2930224^"
^DD(912.04,.02,1,1,"%D",1,0)="Cross reference by Victim name for Quick Name Check"
^DD(912.04,.02,1,1,"%D",2,0)="Lookup."
^DD(912.04,.02,1,1,"DT")="2921009"
^DD(912.04,.02,3)="Answer must be [3-30 characters]."
^DD(912.04,.02,21,0)="^^2^2^2931217^^^^"
^DD(912.04,.02,21,1,0)="Enter the full name of the victim.  Use the program standard format of"
^DD(912.04,.02,21,2,0)="LAST,FIRST MIDDLE name, no space between LAST and FIRST name."
^DD(912.04,.02,"DT")="2930924"
^DD(912.04,.03,0)="SEX^S^M:MALE;F:FEMALE;^0;3^Q"
^DD(912.04,.03,3)="Enter 'M' for MALE or 'F' for FEMALE."
^DD(912.04,.03,21,0)="^^1^1^2930223^^"
^DD(912.04,.03,21,1,0)="Enter 'M' for MALE or 'F' for FEMALE."
^DD(912.04,.03,"DT")="2920717"
^DD(912.04,.04,0)="RACE^P10'^DIC(10,^0;4^Q"
^DD(912.04,.04,3)="Selection must be made from available listing."
^DD(912.04,.04,21,0)="^^1^1^2930223^^"
^DD(912.04,.04,21,1,0)="Select the race which most closely describes the victim."
^DD(912.04,.04,"DT")="2920717"
^DD(912.04,.05,0)="STATUS^S^P:PATIENT;V:VISITOR;E:EMPLOYEE;O:OUTSIDER;PO:POLICE OFFICER;^0;5^Q"
^DD(912.04,.05,3)="Selection must be from available codes."
^DD(912.04,.05,21,0)="^^1^1^2930223^^^^"
^DD(912.04,.05,21,1,0)="Enter 'P' if the victim is a Patient, 'V' for Visitor, 'E' for Employee, or 'O' for Outsider, or 'PO' for Police Officer."
^DD(912.04,.05,"DT")="2930216"
^DD(912.04,.06,0)="DRIVER'S LICENSE NUMBER^F^^0;6^K:$L(X)>20!($L(X)<3) X"
^DD(912.04,.06,3)="Answer must be [3-20 characters]."
^DD(912.04,.06,21,0)="^^1^1^2930223^^^^"
^DD(912.04,.06,21,1,0)="Enter the victim's driver's license number, if applicable."
^DD(912.04,.06,"DT")="2920717"
^DD(912.04,.07,0)="STATE OF ISSUE^P5'^DIC(5,^0;7^Q"
^DD(912.04,.07,3)="Answer must be a valid State."
^DD(912.04,.07,21,0)="^^2^2^2930223^^^"
^DD(912.04,.07,21,1,0)="From the available listing choose the state that issued the driver's"
^DD(912.04,.07,21,2,0)="license number."
^DD(912.04,.07,"DT")="2920717"
^DD(912.04,1.01,0)="STREET ADDRESS^F^^1;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.04,1.01,3)="Answer must be [3-35 characters]."
^DD(912.04,1.01,21,0)="^^1^1^2940310^^^^"
^DD(912.04,1.01,21,1,0)="Enter the first line of the victim's home address."
^DD(912.04,1.01,"DT")="2910823"
^DD(912.04,1.02,0)="STREET ADDRESS [LINE 2]^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.04,1.02,3)="Answer must be [3-30 characters]."
^DD(912.04,1.02,21,0)="^^1^1^2940310^^^^"
^DD(912.04,1.02,21,1,0)="If necessary, enter the second line of the victim's home address."
^DD(912.04,1.02,"DT")="2910823"
^DD(912.04,1.03,0)="CITY^F^^1;3^K:$L(X)>30!($L(X)<2) X"
^DD(912.04,1.03,3)="Answer must be [2-30 characters]. "
^DD(912.04,1.03,21,0)="^^2^2^2930223^^^^"
^DD(912.04,1.03,21,1,0)="Enter the city where this victim resides."
^DD(912.04,1.03,21,2,0)=" []"
^DD(912.04,1.03,"DT")="2930202"
^DD(912.04,1.04,0)="STATE^P5'^DIC(5,^1;4^Q"
^DD(912.04,1.04,3)="Answer must be a valid State."
^DD(912.04,1.04,21,0)="^^1^1^2930223^^^^"
^DD(912.04,1.04,21,1,0)="Select from the available listing the state in which the victim resides."
^DD(912.04,1.04,"DT")="2910823"
^DD(912.04,1.05,0)="ZIP CODE^FXO^^1;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.04,1.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.04,1.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.04,1.05,3)="Enter the zip code for the city in which the victim resides."
^DD(912.04,1.05,21,0)="^^2^2^2940310^^^^"
^DD(912.04,1.05,21,1,0)="Enter the zip code for the city in which the victim resides."
^DD(912.04,1.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, (i.e., 12345-1234)."
^DD(912.04,1.05,"DT")="2930929"
^DD(912.04,1.06,0)="PHONE NUMBER [RESIDENCE]^F^^1;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.04,1.06,3)="Answer must be [4-20 characters]."
^DD(912.04,1.06,21,0)="^^1^1^2930223^^^"
^DD(912.04,1.06,21,1,0)="Enter the victim's home telephone number."
^DD(912.04,1.06,"DT")="2920916"
^DD(912.04,2.01,0)="STREET ADDRESS [WORK]^F^^2;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.04,2.01,3)="Answer must be [3-35 characters]."
^DD(912.04,2.01,21,0)="^^1^1^2930223^^^"
^DD(912.04,2.01,21,1,0)="Enter the first line of the address of the victim's place of employment."
^DD(912.04,2.01,"DT")="2910823"
^DD(912.04,2.02,0)="STREET ADDRESS [LINE 2] [WORK]^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.04,2.02,3)="Answer must be [3-30 characters]."
^DD(912.04,2.02,21,0)="^^2^2^2930223^^^"
^DD(912.04,2.02,21,1,0)="If necessary, enter the second line of the address of the victim's"
^DD(912.04,2.02,21,2,0)="place of employment."
^DD(912.04,2.02,"DT")="2910823"
^DD(912.04,2.03,0)="CITY [WORK]^F^^2;3^K:$L(X)>30!($L(X)<2) X"
^DD(912.04,2.03,3)="Answer must be [2-30 characters]. "
^DD(912.04,2.03,21,0)="^^1^1^2930223^^^^"
^DD(912.04,2.03,21,1,0)="Enter the city for this victim's place of employment."
^DD(912.04,2.03,"DT")="2930202"
^DD(912.04,2.04,0)="STATE [WORK]^P5'^DIC(5,^2;4^Q"
^DD(912.04,2.04,3)="Answer must be a valid State."
^DD(912.04,2.04,21,0)="^^1^1^2930223^^^^"
^DD(912.04,2.04,21,1,0)="Enter the state of the victim's place of employment."
^DD(912.04,2.04,"DT")="2910823"
^DD(912.04,2.05,0)="ZIP [WORK]^FXO^^2;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.04,2.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.04,2.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.04,2.05,3)="Enter the zip code for the city in which the victim is employed."
^DD(912.04,2.05,21,0)="^^2^2^2940310^^^^"
^DD(912.04,2.05,21,1,0)="Enter the zip code for the city in which the victim is employed."
^DD(912.04,2.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, (i.e., 12345-1234)."
^DD(912.04,2.05,"DT")="2930929"
^DD(912.04,2.06,0)="PHONE NUMBER [WORK]^F^^2;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.04,2.06,3)="Answer must be [4-20 characters]."
^DD(912.04,2.06,21,0)="^^1^1^2930223^^^^"
^DD(912.04,2.06,21,1,0)="Enter the telephone number of the victim's place of employment."
^DD(912.04,2.06,"DT")="2920916"
^DD(912.04,10,0)="MEDICAL TREATMENT^912.12^^10;0"
^DD(912.04,10,21,0)="^^2^2^2930223^^"
^DD(912.04,10,21,1,0)="Enter any information which describes medical treatment received"
^DD(912.04,10,21,2,0)="by the victim resulting from the offense committed."
^DD(912.04,"B","CITY",1.03)=""
^DD(912.04,"B","CITY [WORK]",2.03)=""
^DD(912.04,"B","DRIVER'S LICENSE NUMBER",.06)=""
^DD(912.04,"B","MEDICAL TREATMENT",10)=""
^DD(912.04,"B","NAME",.02)=""
^DD(912.04,"B","NUMBER",.01)=""
^DD(912.04,"B","PHONE NUMBER [RESIDENCE]",1.06)=""
^DD(912.04,"B","PHONE NUMBER [WORK]",2.06)=""
^DD(912.04,"B","RACE",.04)=""
^DD(912.04,"B","SEX",.03)=""
^DD(912.04,"B","STATE",1.04)=""
^DD(912.04,"B","STATE OF ISSUE",.07)=""
^DD(912.04,"B","STATE [WORK]",2.04)=""
^DD(912.04,"B","STATUS",.05)=""
^DD(912.04,"B","STREET ADDRESS",1.01)=""
^DD(912.04,"B","STREET ADDRESS [LINE 2]",1.02)=""
^DD(912.04,"B","STREET ADDRESS [LINE 2] [WORK]",2.02)=""
^DD(912.04,"B","STREET ADDRESS [WORK]",2.01)=""
^DD(912.04,"B","ZIP CODE",1.05)=""
^DD(912.04,"B","ZIP [WORK]",2.05)=""
^DD(912.04,"GL",0,1,.01)=""
^DD(912.04,"GL",0,2,.02)=""
^DD(912.04,"GL",0,3,.03)=""
^DD(912.04,"GL",0,4,.04)=""
^DD(912.04,"GL",0,5,.05)=""
^DD(912.04,"GL",0,6,.06)=""
^DD(912.04,"GL",0,7,.07)=""
^DD(912.04,"GL",1,1,1.01)=""
^DD(912.04,"GL",1,2,1.02)=""
^DD(912.04,"GL",1,3,1.03)=""
^DD(912.04,"GL",1,4,1.04)=""
^DD(912.04,"GL",1,5,1.05)=""
^DD(912.04,"GL",1,6,1.06)=""
^DD(912.04,"GL",2,1,2.01)=""
^DD(912.04,"GL",2,2,2.02)=""
^DD(912.04,"GL",2,3,2.03)=""
^DD(912.04,"GL",2,4,2.04)=""
^DD(912.04,"GL",2,5,2.05)=""
^DD(912.04,"GL",2,6,2.06)=""
^DD(912.04,"GL",10,0,10)=""
^DD(912.04,"IX",.01)=""
^DD(912.04,"IX",.02)=""
^DD(912.04,"SB",912.12,10)=""
^DD(912.05,0)="OFFENDER SUB-FIELD^^10^27"
^DD(912.05,0,"DT")="2930929"
^DD(912.05,0,"IX","B",912.05,.01)=""
^DD(912.05,0,"NM","OFFENDER")=""
^DD(912.05,0,"UP")="912"
^DD(912.05,.01,0)="NUMBER^NJ2,0X^^0;1^D OFF^ESPDISP"
^DD(912.05,.01,1,0)="^.1"
^DD(912.05,.01,1,1,0)="912.05^B"
^DD(912.05,.01,1,1,1)="S ^ESP(912,DA(1),40,""B"",$E(X,1,30),DA)="""""
^DD(912.05,.01,1,1,2)="K ^ESP(912,DA(1),40,""B"",$E(X,1,30),DA)"
^DD(912.05,.01,3)="Answer must be [1-99 numeric]."
^DD(912.05,.01,21,0)="^^3^3^2931214^^^^"
^DD(912.05,.01,21,1,0)="Enter the sequential number for this offender.  The in-put program"
^DD(912.05,.01,21,2,0)="will assign the number as you enter the data.  During the edit option"
^DD(912.05,.01,21,3,0)="you will need to select the correct offender by number."
^DD(912.05,.01,"DT")="2930803"
^DD(912.05,.02,0)="NAME^P910^ESP(910,^0;2^Q"
^DD(912.05,.02,1,0)="^.1"
^DD(912.05,.02,1,1,0)="912^G"
^DD(912.05,.02,1,1,1)="S ^ESP(912,""G"",$E(X,1,30),DA(1),DA)="""""
^DD(912.05,.02,1,1,2)="K ^ESP(912,""G"",$E(X,1,30),DA(1),DA)"
^DD(912.05,.02,1,1,"%D",0)="^^2^2^2930224^"
^DD(912.05,.02,1,1,"%D",1,0)="Cross references the file by offender name for Quick Name Check"
^DD(912.05,.02,1,1,"%D",2,0)="lookup."
^DD(912.05,.02,1,1,"DT")="2921009"
^DD(912.05,.02,3)="Answer must be [3-30 characters]."
^DD(912.05,.02,21,0)="^^2^2^2930223^^^^"
^DD(912.05,.02,21,1,0)="Enter the full name of the offender.  Use the standard program format "
^DD(912.05,.02,21,2,0)="of LAST,FIRST MIDDLE name, no space between LAST and FIRST name."
^DD(912.05,.02,"DT")="2930924"
^DD(912.05,.03,0)="SEX^S^M:MALE;F:FEMALE;^0;3^Q"
^DD(912.05,.03,3)="Enter 'M' for Male or 'F' for Female."
^DD(912.05,.03,21,0)="^^1^1^2930223^^^"
^DD(912.05,.03,21,1,0)="Enter 'M' for Male or 'F' for Female."
^DD(912.05,.03,"DT")="2920717"
^DD(912.05,.04,0)="RACE^P10'^DIC(10,^0;4^Q"
^DD(912.05,.04,3)="Answer must be from available codes."
^DD(912.05,.04,21,0)="^^1^1^2930223^^^^"
^DD(912.05,.04,21,1,0)="Enter the race which most accurately describes the offender."
^DD(912.05,.04,"DT")="2920717"
^DD(912.05,.05,0)="HEIGHT^F^^0;5^K:$L(X)>5!($L(X)<2) X"
^DD(912.05,.05,3)="Answer must be [2-5 characters]."
^DD(912.05,.05,21,0)="^^2^2^2930223^^^"
^DD(912.05,.05,21,1,0)="Enter the height of the offender in the format 6'7"" or 6-07 for 6 feet"
^DD(912.05,.05,21,2,0)="and 7 inches."
^DD(912.05,.05,"DT")="2920717"
^DD(912.05,.06,0)="WEIGHT^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.05,.06,3)="Answer must be [1-999 numeric]."
^DD(912.05,.06,21,0)="^^1^1^2930223^^^^"
^DD(912.05,.06,21,1,0)="Enter the weight of the offender.  "
^DD(912.05,.06,"DT")="2920717"
^DD(912.05,.07,0)="HAIR COLOR^*P910.7'^ESP(910.7,^0;7^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.05,.07,3)="Enter a valid hair color."
^DD(912.05,.07,12)="Enter a valid hair color."
^DD(912.05,.07,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,1)"""
^DD(912.05,.07,21,0)="^^1^1^2930223^^^^"
^DD(912.05,.07,21,1,0)="Enter the hair color of the offender."
^DD(912.05,.07,"DT")="2920807"
^DD(912.05,.08,0)="EYE COLOR^*P910.7'^ESP(910.7,^0;8^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.05,.08,3)="Enter a valid eye color."
^DD(912.05,.08,12)="Enter a valid eye color."
^DD(912.05,.08,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,2)"""
^DD(912.05,.08,21,0)="^^1^1^2930223^^^^"
^DD(912.05,.08,21,1,0)="Enter the eye color of the offender."
^DD(912.05,.08,"DT")="2920807"
^DD(912.05,.09,0)="SKIN TONE^*P910.7'^ESP(910.7,^0;9^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.05,.09,3)="Enter a valid skin tone."
^DD(912.05,.09,12)="Enter a valid skin tone."
^DD(912.05,.09,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,6)"""
^DD(912.05,.09,21,0)="^^1^1^2930223^^^"
^DD(912.05,.09,21,1,0)="Enter the skin color of the offender."
^DD(912.05,.09,"DT")="2920717"
^DD(912.05,.1,0)="SCARS/MARKS^F^^0;10^K:$L(X)>50!($L(X)<3) X"
^DD(912.05,.1,3)="Answer must be [3-50 characters]."
^DD(912.05,.1,21,0)="^^1^1^2930223^^^^"
^DD(912.05,.1,21,1,0)="Enter any identifying scars or marks of the offender."
^DD(912.05,.1,"DT")="2920717"
^DD(912.05,.11,0)="STATUS^S^P:PATIENT;V:VISITOR;E:EMPLOYEE;O:OUTSIDER;PO:POLICE OFFICER;^0;11^Q"
^DD(912.05,.11,3)="Select from available codes."
^DD(912.05,.11,21,0)="^^2^2^2930223^^^^"
^DD(912.05,.11,21,1,0)="Enter 'P' if the offender is a Patient, 'V' for Visitor,"
^DD(912.05,.11,21,2,0)="'E' for Employee, or 'O' for Outsider, 'PO' for Police Officer."
^DD(912.05,.11,"DT")="2930216"
^DD(912.05,.12,0)="DRIVER'S LICENSE NUMBER^F^^0;12^K:$L(X)>20!($L(X)<3) X"
^DD(912.05,.12,3)="Answer must be [3-20 characters]."
^DD(912.05,.12,21,0)="^^1^1^2930223^^^^"
^DD(912.05,.12,21,1,0)="Enter the driver's license number of the offender, if applicable."
^DD(912.05,.12,"DT")="2920717"
^DD(912.05,.13,0)="STATE OF ISSUE^P5'^DIC(5,^0;13^Q"
^DD(912.05,.13,3)="Answer must be a valid State."
^DD(912.05,.13,21,0)="^^2^2^2930223^^^"
^DD(912.05,.13,21,1,0)="From the available listing choose the state that issued"
^DD(912.05,.13,21,2,0)="the driver's license."
^DD(912.05,.13,"DT")="2920717"
^DD(912.05,1.01,0)="STREET ADDRESS^F^^1;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.05,1.01,3)="Answer must be [3-35 characters]."
^DD(912.05,1.01,21,0)="^^1^1^2930223^^^"
^DD(912.05,1.01,21,1,0)="Enter the first line of the offender's address."
^DD(912.05,1.01,"DT")="2911211"
^DD(912.05,1.02,0)="STREET ADDRESS [LINE 2]^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.05,1.02,3)="Answer must be [3-30 characters]."
^DD(912.05,1.02,21,0)="^^1^1^2930223^^^^"
^DD(912.05,1.02,21,1,0)="If necessary, enter the second line of this offender's address."
^DD(912.05,1.02,"DT")="2911211"
^DD(912.05,1.03,0)="CITY^F^^1;3^K:$L(X)>30!($L(X)<2) X"
^DD(912.05,1.03,3)="Answer must be [2-30 characters]. "
^DD(912.05,1.03,21,0)="^^1^1^2930223^^^^"
^DD(912.05,1.03,21,1,0)="Enter the city where the offender resides."
^DD(912.05,1.03,"DT")="2930210"
^DD(912.05,1.04,0)="STATE^P5'^DIC(5,^1;4^Q"
^DD(912.05,1.04,3)="Answer must be a valid State."
^DD(912.05,1.04,21,0)="^^1^1^2930223^^^^"
^DD(912.05,1.04,21,1,0)="Enter the state where the offender resides."
^DD(912.05,1.04,"DT")="2911211"
^DD(912.05,1.05,0)="ZIP CODE^FXO^^1;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.05,1.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.05,1.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.05,1.05,3)="Enter the zip code for the city of the offender."
^DD(912.05,1.05,21,0)="^^2^2^2940310^^^^"
^DD(912.05,1.05,21,1,0)="Enter the zip code for the city of the offender."
^DD(912.05,1.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, (i.e., 12345-1234)."
^DD(912.05,1.05,"DT")="2930929"
^DD(912.05,1.06,0)="PHONE NUMBER [RESIDENCE]^F^^1;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.05,1.06,3)="Answer must be [4-20 characters]. "
^DD(912.05,1.06,21,0)="^^1^1^2930223^^"
^DD(912.05,1.06,21,1,0)="Enter the offender's home telephone number."
^DD(912.05,1.06,"DT")="2920916"
^DD(912.05,2.01,0)="STREET ADDRESS [WORK]^F^^2;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.05,2.01,3)="Answer must be [3-35 characters]. "
^DD(912.05,2.01,21,0)="^^2^2^2930223^^^"
^DD(912.05,2.01,21,1,0)="Enter the first line of the address of the offender's"
^DD(912.05,2.01,21,2,0)="place of employment."
^DD(912.05,2.01,"DT")="2930210"
^DD(912.05,2.02,0)="STREET ADDRESS [LINE 2] [WORK]^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.05,2.02,3)="Answer must be [3-30 characters]. "
^DD(912.05,2.02,21,0)="^^2^2^2930223^^"
^DD(912.05,2.02,21,1,0)="If necessary, enter the second line of the address of the"
^DD(912.05,2.02,21,2,0)="offender's place of employment."
^DD(912.05,2.02,"DT")="2930210"
^DD(912.05,2.03,0)="CITY [WORK]^F^^2;3^K:$L(X)>30!($L(X)<3) X"
^DD(912.05,2.03,3)="Answer must be [3-30 characters]. "
^DD(912.05,2.03,21,0)="^^1^1^2930223^^"
^DD(912.05,2.03,21,1,0)="Enter the city where the offender is employed."
^DD(912.05,2.03,"DT")="2930210"
^DD(912.05,2.04,0)="STATE [WORK]^P5'^DIC(5,^2;4^Q"
^DD(912.05,2.04,3)="Answer must be a valid State."
^DD(912.05,2.04,21,0)="^^1^1^2930223^^"
^DD(912.05,2.04,21,1,0)="Enter the state in which the offender is employed."
^DD(912.05,2.04,"DT")="2930210"
^DD(912.05,2.05,0)="ZIP [WORK]^FXO^^2;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.05,2.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.05,2.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.05,2.05,3)="Enter the zip code for the city in which the offender is employed."
^DD(912.05,2.05,21,0)="^^2^2^2940310^^^^"
^DD(912.05,2.05,21,1,0)="Enter the zip code for the city in which the offender is employed."
^DD(912.05,2.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, (i.e., 12345-1234)."
^DD(912.05,2.05,"DT")="2930929"
^DD(912.05,2.06,0)="PHONE NUMBER [WORK]^F^^2;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.05,2.06,3)="Answer must be [4-20 characters]. "
^DD(912.05,2.06,21,0)="^^2^2^2930223^^^"
^DD(912.05,2.06,21,1,0)="Enter the telephone number for the offender's place of"
^DD(912.05,2.06,21,2,0)="employment."
^DD(912.05,2.06,"DT")="2930210"
^DD(912.05,3.01,0)="PERSONAL DESCRIPTION^F^^3;1^K:$L(X)>80!($L(X)<3) X"
^DD(912.05,3.01,3)="Answer must be [3-80 characters]. "
^DD(912.05,3.01,21,0)="^^3^3^2930223^^^^"
^DD(912.05,3.01,21,1,0)="Enter the personal clothing description of the offender.  For example,"
^DD(912.05,3.01,21,2,0)="enter a description of glasses, hat, coat, shirt, trousers and other"
^DD(912.05,3.01,21,3,0)=" clothing."
^DD(912.05,3.01,"DT")="2930222"
^DD(912.05,10,0)="OFFENSE COMMITTED^912.11P^^10;0"
^DD(912.05,10,21,0)="^^1^1^2921026^^^^"
^DD(912.05,10,21,1,0)="This contains the offenses committed by this offender."
^DD(912.05,10,"DT")="2921026"
^DD(912.05,"B","CITY",1.03)=""
^DD(912.05,"B","CITY [WORK]",2.03)=""
^DD(912.05,"B","DRIVER'S LICENSE NUMBER",.12)=""
^DD(912.05,"B","EYE COLOR",.08)=""
^DD(912.05,"B","HAIR COLOR",.07)=""
^DD(912.05,"B","HEIGHT",.05)=""
^DD(912.05,"B","NAME",.02)=""
^DD(912.05,"B","NUMBER",.01)=""
^DD(912.05,"B","OFFENSE COMMITTED",10)=""
^DD(912.05,"B","PERSONAL DESCRIPTION",3.01)=""
^DD(912.05,"B","PHONE NUMBER [RESIDENCE]",1.06)=""
^DD(912.05,"B","PHONE NUMBER [WORK]",2.06)=""
^DD(912.05,"B","RACE",.04)=""
^DD(912.05,"B","SCARS/MARKS",.1)=""
^DD(912.05,"B","SEX",.03)=""
^DD(912.05,"B","SKIN TONE",.09)=""
^DD(912.05,"B","STATE",1.04)=""
^DD(912.05,"B","STATE OF ISSUE",.13)=""
^DD(912.05,"B","STATE [WORK]",2.04)=""
^DD(912.05,"B","STATUS",.11)=""
^DD(912.05,"B","STREET ADDRESS",1.01)=""
^DD(912.05,"B","STREET ADDRESS [LINE 2]",1.02)=""
^DD(912.05,"B","STREET ADDRESS [LINE 2] [WORK]",2.02)=""
^DD(912.05,"B","STREET ADDRESS [WORK]",2.01)=""
^DD(912.05,"B","WEIGHT",.06)=""
^DD(912.05,"B","ZIP CODE",1.05)=""
^DD(912.05,"B","ZIP [WORK]",2.05)=""
^DD(912.05,"GL",0,1,.01)=""
^DD(912.05,"GL",0,2,.02)=""
^DD(912.05,"GL",0,3,.03)=""
^DD(912.05,"GL",0,4,.04)=""
^DD(912.05,"GL",0,5,.05)=""
^DD(912.05,"GL",0,6,.06)=""
^DD(912.05,"GL",0,7,.07)=""
^DD(912.05,"GL",0,8,.08)=""
^DD(912.05,"GL",0,9,.09)=""
^DD(912.05,"GL",0,10,.1)=""
^DD(912.05,"GL",0,11,.11)=""
^DD(912.05,"GL",0,12,.12)=""
^DD(912.05,"GL",0,13,.13)=""
^DD(912.05,"GL",1,1,1.01)=""
^DD(912.05,"GL",1,2,1.02)=""
^DD(912.05,"GL",1,3,1.03)=""
^DD(912.05,"GL",1,4,1.04)=""
^DD(912.05,"GL",1,5,1.05)=""
^DD(912.05,"GL",1,6,1.06)=""
^DD(912.05,"GL",2,1,2.01)=""
^DD(912.05,"GL",2,2,2.02)=""
^DD(912.05,"GL",2,3,2.03)=""
^DD(912.05,"GL",2,4,2.04)=""
^DD(912.05,"GL",2,5,2.05)=""
^DD(912.05,"GL",2,6,2.06)=""
^DD(912.05,"GL",3,1,3.01)=""
^DD(912.05,"GL",10,0,10)=""
^DD(912.05,"IX",.01)=""
^DD(912.05,"IX",.02)=""
^DD(912.05,"SB",912.11,10)=""
^DD(912.06,0)="WITNESS SUB-FIELD^^2.06^14"
^DD(912.06,0,"DT")="2930929"
^DD(912.06,0,"IX","B",912.06,.01)=""
^DD(912.06,0,"NM","WITNESS")=""
^DD(912.06,0,"UP")="912"
^DD(912.06,.01,0)="NUMBER^MNJ2,0X^^0;1^D WIT^ESPDISP"
^DD(912.06,.01,1,0)="^.1"
^DD(912.06,.01,1,1,0)="912.06^B"
^DD(912.06,.01,1,1,1)="S ^ESP(912,DA(1),50,""B"",$E(X,1,30),DA)="""""
^DD(912.06,.01,1,1,2)="K ^ESP(912,DA(1),50,""B"",$E(X,1,30),DA)"
^DD(912.06,.01,3)="Answer must be [1-99 numeric]."
^DD(912.06,.01,21,0)="^^3^3^2970415^^^^"
^DD(912.06,.01,21,1,0)="Enter the sequential number for this witness.  The in-put program will"
^DD(912.06,.01,21,2,0)="assign the number as you enter the data.  During the edit option you"
^DD(912.06,.01,21,3,0)="will need to select the correct witness by number."
^DD(912.06,.01,22)=""
^DD(912.06,.01,"DT")="2970415"
^DD(912.06,.02,0)="NAME^P910^ESP(910,^0;2^Q"
^DD(912.06,.02,1,0)="^.1"
^DD(912.06,.02,1,1,0)="912^I"
^DD(912.06,.02,1,1,1)="S ^ESP(912,""I"",$E(X,1,30),DA(1),DA)="""""
^DD(912.06,.02,1,1,2)="K ^ESP(912,""I"",$E(X,1,30),DA(1),DA)"
^DD(912.06,.02,1,1,"%D",0)="^^2^2^2930224^"
^DD(912.06,.02,1,1,"%D",1,0)="Cross reference by Witness name for Quick Name Check"
^DD(912.06,.02,1,1,"%D",2,0)="Lookup."
^DD(912.06,.02,1,1,"DT")="2930224"
^DD(912.06,.02,3)="Answer must be [3-30 characters]."
^DD(912.06,.02,21,0)="^^2^2^2970415^^^^"
^DD(912.06,.02,21,1,0)="Enter the full name of the witness.  Use the standard program format of"
^DD(912.06,.02,21,2,0)="LAST,FIRST MIDDLE name, no space between LAST and FIRST name."
^DD(912.06,.02,"DT")="2930224"
^DD(912.06,1.01,0)="STREET ADDRESS^F^^1;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.06,1.01,3)="Answer must be [3-35 characters]."
^DD(912.06,1.01,21,0)="^^1^1^2940310^^^^"
^DD(912.06,1.01,21,1,0)="Enter the first line of the witness' home address."
^DD(912.06,1.01,"DT")="2910822"
^DD(912.06,1.02,0)="STREET ADDRESS [LINE 2]^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.06,1.02,3)="Answer must be [3-30 characters]."
^DD(912.06,1.02,21,0)="^^1^1^2940310^^^^"
^DD(912.06,1.02,21,1,0)="If necessary, enter the second line of the witness' home address."
^DD(912.06,1.02,"DT")="2910822"
^DD(912.06,1.03,0)="CITY^F^^1;3^K:$L(X)>15!($L(X)<2) X"
^DD(912.06,1.03,3)="Answer must be [2-15 characters]."
^DD(912.06,1.03,21,0)="^^1^1^2930223^^^"
^DD(912.06,1.03,21,1,0)="Enter the city in which the witness resides."
^DD(912.06,1.03,"DT")="2910822"
^DD(912.06,1.04,0)="STATE^P5'^DIC(5,^1;4^Q"
^DD(912.06,1.04,3)="Answer must be a valid State."
^DD(912.06,1.04,21,0)="^^1^1^2930223^^^^"
^DD(912.06,1.04,21,1,0)="Enter the state in which the witness resides."
^DD(912.06,1.04,"DT")="2910822"
^DD(912.06,1.05,0)="ZIP CODE^FXO^^1;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.06,1.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.06,1.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.06,1.05,3)="Enter the zip code for the city in which the witness resides."
^DD(912.06,1.05,21,0)="^^2^2^2940310^^^^"
^DD(912.06,1.05,21,1,0)="Enter the zip code for the city in which the witness resides."
^DD(912.06,1.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, (i.e., 12345-1234)."
^DD(912.06,1.05,"DT")="2930929"
^DD(912.06,1.06,0)="PHONE NUMBER [RESIDENCE]^F^^1;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.06,1.06,3)="Answer must be [4-20 characters]."
^DD(912.06,1.06,21,0)="^^1^1^2930223^^^"
^DD(912.06,1.06,21,1,0)="Enter the witness' home telephone number."
^DD(912.06,1.06,"DT")="2910822"
^DD(912.06,2.01,0)="STREET ADDRESS [WORK]^F^^2;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.06,2.01,3)="Answer must be [3-35 characters]."
^DD(912.06,2.01,21,0)="^^2^2^2930223^^^^"
^DD(912.06,2.01,21,1,0)="Enter the first line of the address of the witness' place of"
^DD(912.06,2.01,21,2,0)="employment."
^DD(912.06,2.01,"DT")="2910822"
^DD(912.06,2.02,0)="STREET ADDRESS [LINE 2] [WORK]^F^^2;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.06,2.02,3)="Answer must be [3-30 characters]."
^DD(912.06,2.02,21,0)="^^2^2^2930223^^^"
^DD(912.06,2.02,21,1,0)="If necessary, enter the second line of the address of the witness' place"
^DD(912.06,2.02,21,2,0)="of employment."
^DD(912.06,2.02,"DT")="2910822"
^DD(912.06,2.03,0)="CITY [WORK]^F^^2;3^K:$L(X)>15!($L(X)<2) X"
^DD(912.06,2.03,3)="Answer must be [2-15 characters]."
^DD(912.06,2.03,21,0)="^^1^1^2930223^^^"
^DD(912.06,2.03,21,1,0)="Enter the city of the witness' place of employment."
^DD(912.06,2.03,"DT")="2910822"
^DD(912.06,2.04,0)="STATE [WORK]^P5'^DIC(5,^2;4^Q"
^DD(912.06,2.04,3)="Answer must be a valid State."
^DD(912.06,2.04,21,0)="^^1^1^2930223^^"
^DD(912.06,2.04,21,1,0)="Enter the state in which the witness is employed."
^DD(912.06,2.04,"DT")="2910822"
^DD(912.06,2.05,0)="ZIP [WORK]^FXO^^2;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<5) X I $D(X) D ZIPIN^ESPUTIL"
^DD(912.06,2.05,2)="S Y(0)=Y D ZIPOUT^ESPUTIL"
^DD(912.06,2.05,2.1)="D ZIPOUT^ESPUTIL"
^DD(912.06,2.05,3)="Enter the zip code for the city in which the witness is employed."
^DD(912.06,2.05,21,0)="^^2^2^2940310^^^^"
^DD(912.06,2.05,21,1,0)="Enter the zip code for the city in which the witness is employed."
^DD(912.06,2.05,21,2,0)="Enter the 5 digit zip code or ZIP + 4, (i.e., 12345-1234)."
^DD(912.06,2.05,"DT")="2930929"
^DD(912.06,2.06,0)="PHONE NUMBER [WORK]^F^^2;6^K:$L(X)>20!($L(X)<4) X"
^DD(912.06,2.06,3)="Answer must be [4-20 characters]."
^DD(912.06,2.06,21,0)="^^1^1^2930223^^^"
^DD(912.06,2.06,21,1,0)="Enter the telephone number of the witness' place of employment."
^DD(912.06,2.06,"DT")="2910822"
^DD(912.06,"B","CITY",1.03)=""
^DD(912.06,"B","CITY [WORK]",2.03)=""
^DD(912.06,"B","NAME",.02)=""
^DD(912.06,"B","NUMBER",.01)=""
^DD(912.06,"B","PHONE NUMBER [RESIDENCE]",1.06)=""
^DD(912.06,"B","PHONE NUMBER [WORK]",2.06)=""
^DD(912.06,"B","STATE",1.04)=""
^DD(912.06,"B","STATE [WORK]",2.04)=""
^DD(912.06,"B","STREET ADDRESS",1.01)=""
^DD(912.06,"B","STREET ADDRESS [LINE 2]",1.02)=""
^DD(912.06,"B","STREET ADDRESS [LINE 2] [WORK]",2.02)=""
^DD(912.06,"B","STREET ADDRESS [WORK]",2.01)=""
^DD(912.06,"B","ZIP CODE",1.05)=""
^DD(912.06,"B","ZIP [WORK]",2.05)=""
^DD(912.06,"GL",0,1,.01)=""
^DD(912.06,"GL",0,2,.02)=""
^DD(912.06,"GL",1,1,1.01)=""
^DD(912.06,"GL",1,2,1.02)=""
^DD(912.06,"GL",1,3,1.03)=""
^DD(912.06,"GL",1,4,1.04)=""
^DD(912.06,"GL",1,5,1.05)=""
^DD(912.06,"GL",1,6,1.06)=""
^DD(912.06,"GL",2,1,2.01)=""
^DD(912.06,"GL",2,2,2.02)=""
^DD(912.06,"GL",2,3,2.03)=""
^DD(912.06,"GL",2,4,2.04)=""
^DD(912.06,"GL",2,5,2.05)=""
^DD(912.06,"GL",2,6,2.06)=""
^DD(912.06,"IX",.01)=""
^DD(912.06,"IX",.02)=""
^DD(912.07,0)="METHOD OF OPERATION SUB-FIELD^^.01^1"
^DD(912.07,0,"DT")="2910329"
^DD(912.07,0,"NM","METHOD OF OPERATION")=""
^DD(912.07,0,"UP")="912"
^DD(912.07,.01,0)="METHOD OF OPERATION^W^^0;1^Q"
^DD(912.07,.01,3)="Enter a description of the MO."
^DD(912.07,.01,21,0)="^^2^2^2930223^^^"
^DD(912.07,.01,21,1,0)="Enter the method of operation, or pattern in which the offender"
^DD(912.07,.01,21,2,0)="carried out this offense."
^DD(912.07,.01,"DT")="2910329"
^DD(912.07,"B","METHOD OF OPERATION",.01)=""
^DD(912.07,"GL",0,1,.01)=""
^DD(912.072,0)="INITIAL OBSERVATION SUB-FIELD^^.01^1"
^DD(912.072,0,"DT")="2930211"
^DD(912.072,0,"NM","INITIAL OBSERVATION")=""
^DD(912.072,0,"UP")="912"
^DD(912.072,.01,0)="INITIAL OBSERVATION^W^^0;1^Q"
^DD(912.072,.01,3)="Enter the inititial observations."
^DD(912.072,.01,21,0)="^^2^2^2940310^^^^"
^DD(912.072,.01,21,1,0)="Enter what was observed upon arriving at the scene of the alleged"
^DD(912.072,.01,21,2,0)="offense."
^DD(912.072,.01,"DT")="2930212"
^DD(912.072,"B","INITIAL OBSERVATION",.01)=""
^DD(912.072,"GL",0,1,.01)=""
^DD(912.073,0)="INVESTIGATION SUB-FIELD^^.01^1"
^DD(912.073,0,"DT")="2930211"
^DD(912.073,0,"NM","INVESTIGATION")=""
^DD(912.073,0,"UP")="912"
^DD(912.073,.01,0)="INVESTIGATION^W^^0;1^Q"
^DD(912.073,.01,3)="Enter the investigative information."
^DD(912.073,.01,21,0)="^^2^2^2930223^"
^DD(912.073,.01,21,1,0)="Enter all information that was obtained during the course of the"
^DD(912.073,.01,21,2,0)="investigation."
^DD(912.073,.01,"DT")="2930211"
^DD(912.073,"B","INVESTIGATION",.01)=""
^DD(912.073,"GL",0,1,.01)=""
^DD(912.074,0)="DISPOSITION SUB-FIELD^^.01^1"
^DD(912.074,0,"DT")="2930211"
^DD(912.074,0,"NM","DISPOSITION")=""
^DD(912.074,0,"UP")="912"
^DD(912.074,.01,0)="DISPOSITION^W^^0;1^Q"
^DD(912.074,.01,3)="Enter the disposition of the report."
^DD(912.074,.01,21,0)="^^2^2^2930223^"
^DD(912.074,.01,21,1,0)="Describe how the investigation was dispositioned.  Include all"
^DD(912.074,.01,21,2,0)="pertinent information."
^DD(912.074,.01,"DT")="2930211"
^DD(912.074,"B","DISPOSITION",.01)=""
^DD(912.074,"GL",0,1,.01)=""
^DD(912.08,0)="ORIGIN SUB-FIELD^^.01^1"
^DD(912.08,0,"DT")="2910329"
^DD(912.08,0,"NM","ORIGIN")=""
^DD(912.08,0,"UP")="912"
^DD(912.08,.01,0)="ORIGIN^W^^0;1^Q"
^DD(912.08,.01,3)="Enter the origin."
^DD(912.08,.01,21,0)="^^2^2^2930708^^"
^DD(912.08,.01,21,1,0)="Enter a description of how you were notified of the need to"
^DD(912.08,.01,21,2,0)="initiate a Uniform Offense Report."
^DD(912.08,.01,"DT")="2930211"
^DD(912.08,"B","ORIGIN",.01)=""
^DD(912.08,"GL",0,1,.01)=""
^DD(912.09,0)="VEHICLE INFORMATION SUB-FIELD^^.11^11"
^DD(912.09,0,"DT")="2930708"
^DD(912.09,0,"IX","B",912.09,.01)=""
^DD(912.09,0,"NM","VEHICLE INFORMATION")=""
^DD(912.09,0,"UP")="912"
^DD(912.09,.01,0)="VEHICLE NUMBER^NJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.09,.01,1,0)="^.1"
^DD(912.09,.01,1,1,0)="912.09^B"
^DD(912.09,.01,1,1,1)="S ^ESP(912,DA(1),80,""B"",$E(X,1,30),DA)="""""
^DD(912.09,.01,1,1,2)="K ^ESP(912,DA(1),80,""B"",$E(X,1,30),DA)"
^DD(912.09,.01,3)="Answer must be [1-99 numeric]."
^DD(912.09,.01,21,0)="^^3^3^2940310^^^^"
^DD(912.09,.01,21,1,0)="Enter the sequential number for this vehicle.  The input program"
^DD(912.09,.01,21,2,0)="will assign the number as you enter the data.  During the edit option"
^DD(912.09,.01,21,3,0)="you will need to select the correct vehicle by number."
^DD(912.09,.01,"DT")="2930223"
^DD(912.09,.02,0)="LICENSE TAG #^F^^0;2^K:$L(X)>8!($L(X)<1) X"
^DD(912.09,.02,3)="Answer must be [1-8 characters]. "
^DD(912.09,.02,21,0)="^^1^1^2930223^^^^"
^DD(912.09,.02,21,1,0)="Enter the license tag # of the vehicle."
^DD(912.09,.02,"DT")="2930126"
^DD(912.09,.03,0)="STATE OF ISSUE^P5'^DIC(5,^0;3^Q"
^DD(912.09,.03,3)="Answer must be a valid State."
^DD(912.09,.03,21,0)="^^1^1^2930223^^^"
^DD(912.09,.03,21,1,0)="Enter the state which issued the license tag."
^DD(912.09,.03,"DT")="2910329"
^DD(912.09,.04,0)="VEHICLE MAKE^*P910.7'^ESP(910.7,^0;4^S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.09,.04,3)="Enter a valid vehicle make."
^DD(912.09,.04,12)="Enter a valid vehicle make."
^DD(912.09,.04,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)"""
^DD(912.09,.04,21,0)="^^1^1^2930223^^^"
^DD(912.09,.04,21,1,0)="Enter the make of this vehicle.  It must be in the Selectables File."
^DD(912.09,.04,"DT")="2911107"
^DD(912.09,.05,0)="VEHICLE MODEL^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(912.09,.05,3)="Answer must be [3-30 characters]."
^DD(912.09,.05,21,0)="^^1^1^2930223^^^^"
^DD(912.09,.05,21,1,0)="Enter the model of the vehicle."
^DD(912.09,.05,"DT")="2911107"
^DD(912.09,.06,0)="VEHICLE STYLE^F^^0;6^K:$L(X)>30!($L(X)<3) X"
^DD(912.09,.06,3)="Answer must be [3-30 characters]."
^DD(912.09,.06,12)="THIS IS NOT A VALID VEHICLE STYLE"
^DD(912.09,.06,12.1)="I $P(^ESP(910.7,+Y,4),""^"",1)"
^DD(912.09,.06,21,0)="^^1^1^2930223^^^"
^DD(912.09,.06,21,1,0)="Enter the style of this vehicle, i.e., 2-door, 4-door."
^DD(912.09,.06,"DT")="2911107"
^DD(912.09,.07,0)="VEHICLE COLOR^*P910.7'^ESP(910.7,^0;7^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.09,.07,3)="Answer must be a valid vehicle color."
^DD(912.09,.07,12)="Enter a valid vehicle color."
^DD(912.09,.07,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"""
^DD(912.09,.07,21,0)="^^2^2^2930223^^"
^DD(912.09,.07,21,1,0)="Enter the color of the vehicle.  Answer must be a valid"
^DD(912.09,.07,21,2,0)="vehicle color in the Selectables file."
^DD(912.09,.07,"DT")="2911107"
^DD(912.09,.08,0)="DECAL #^*P910.2'^ESP(910.2,^0;8^S DIC(""S"")=""I $P(^(0),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.09,.08,3)="Must be a valid vehicle registration decal."
^DD(912.09,.08,12)="Must be a vehicle registration."
^DD(912.09,.08,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=1"""
^DD(912.09,.08,21,0)="^^1^1^2930708^^^^"
^DD(912.09,.08,21,1,0)="Enter the decal # of this vehicle."
^DD(912.09,.08,"DT")="2930708"
^DD(912.09,.09,0)="DECAL COLOR^*P910.7'^ESP(910.7,^0;9^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.09,.09,3)="Answer must be a valid decal color."
^DD(912.09,.09,12)="Enter a valid decal color."
^DD(912.09,.09,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,7)"""
^DD(912.09,.09,21,0)="^^2^2^2930223^^^"
^DD(912.09,.09,21,1,0)="Enter the color of the decal.  The answer must be designated"
^DD(912.09,.09,21,2,0)="as a valid decal color in the Selectables File."
^DD(912.09,.09,"DT")="2920924"
^DD(912.09,.1,0)="YEAR OF MANUFACTURE^D^^0;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(912.09,.1,3)="Answer must be a year."
^DD(912.09,.1,21,0)="^^2^2^2930223^"
^DD(912.09,.1,21,1,0)="Enter the year of manufacture of the vehicle.  It may be input"
^DD(912.09,.1,21,2,0)="as '1990' or '90'."
^DD(912.09,.1,"DT")="2920924"
^DD(912.09,.11,0)="OWNER NAME^P910'^ESP(910,^0;11^Q"
^DD(912.09,.11,1,0)="^.1"
^DD(912.09,.11,1,1,0)="912^J"
^DD(912.09,.11,1,1,1)="S ^ESP(912,""J"",$E(X,1,30),DA(1),DA)="""""
^DD(912.09,.11,1,1,2)="K ^ESP(912,""J"",$E(X,1,30),DA(1),DA)"
^DD(912.09,.11,1,1,"DT")="2970117"
^DD(912.09,.11,3)="Answer must be [3-30 characters]."
^DD(912.09,.11,21,0)="^^3^3^2930223^^"
^DD(912.09,.11,21,1,0)="Enter the full name of the owner of the vehicle.  Use the"
^DD(912.09,.11,21,2,0)="program standard format of LAST,FIRST MIDDLE, no space between"
^DD(912.09,.11,21,3,0)="LAST and FIRST name, i.e. DOE,JOHN W."
^DD(912.09,.11,"DT")="2970117"
^DD(912.09,"B","DECAL #",.08)=""
^DD(912.09,"B","DECAL COLOR",.09)=""
^DD(912.09,"B","LICENSE TAG #",.02)=""
^DD(912.09,"B","OWNER NAME",.11)=""
^DD(912.09,"B","STATE OF ISSUE",.03)=""
^DD(912.09,"B","VEHICLE COLOR",.07)=""
^DD(912.09,"B","VEHICLE MAKE",.04)=""
^DD(912.09,"B","VEHICLE MODEL",.05)=""
^DD(912.09,"B","VEHICLE NUMBER",.01)=""
^DD(912.09,"B","VEHICLE STYLE",.06)=""
^DD(912.09,"B","YEAR OF MANUFACTURE",.1)=""
^DD(912.09,"GL",0,1,.01)=""
^DD(912.09,"GL",0,2,.02)=""
^DD(912.09,"GL",0,3,.03)=""
^DD(912.09,"GL",0,4,.04)=""
^DD(912.09,"GL",0,5,.05)=""
^DD(912.09,"GL",0,6,.06)=""
^DD(912.09,"GL",0,7,.07)=""
^DD(912.09,"GL",0,8,.08)=""
^DD(912.09,"GL",0,9,.09)=""
^DD(912.09,"GL",0,10,.1)=""
^DD(912.09,"GL",0,11,.11)=""
^DD(912.09,"IX",.01)=""
^DD(912.09,"IX",.11)=""
^DD(912.1,0)="PROPERTY (LOST) SUB-FIELD^^.04^4"
^DD(912.1,0,"DT")="2930223"
^DD(912.1,0,"IX","B",912.1,.01)=""
^DD(912.1,0,"NM","PROPERTY (LOST)")=""
^DD(912.1,0,"UP")="912"
^DD(912.1,.01,0)="ITEM NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(912.1,.01,1,0)="^.1"
^DD(912.1,.01,1,1,0)="912.1^B"
^DD(912.1,.01,1,1,1)="S ^ESP(912,DA(1),90,""B"",$E(X,1,30),DA)="""""
^DD(912.1,.01,1,1,2)="K ^ESP(912,DA(1),90,""B"",$E(X,1,30),DA)"
^DD(912.1,.01,3)="Answer must be [3-30 characters]."
^DD(912.1,.01,21,0)="^^1^1^2930223^^^^"
^DD(912.1,.01,21,1,0)="Enter the descriptive name of the item, i.e., purse, wallet, watch."
^DD(912.1,.01,"DT")="2920922"
^DD(912.1,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>75!($L(X)<3) X"
^DD(912.1,.02,3)="Answer must be [3-75 characters]. "
^DD(912.1,.02,21,0)="^^2^2^2940310^^^^"
^DD(912.1,.02,21,1,0)="Enter a brief description of the item, (i.e., black leather, bifold;"
^DD(912.1,.02,21,2,0)="U.S. Currency, 5-$10, 1-$5, 3-$1)."
^DD(912.1,.02,"DT")="2921116"
^DD(912.1,.03,0)="DOLLAR LOSS^NJ9,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(912.1,.03,3)="Type a Dollar Amount between 1 and 999999, 0 Decimal Digits"
^DD(912.1,.03,21,0)="^^4^4^2940310^^^^"
^DD(912.1,.03,21,1,0)="Enter the Dollar value of the lost/stolen property, rounded to the nearest"
^DD(912.1,.03,21,2,0)="whole Dollar.  The answer must be a Dollar amount between 0 and 999999."
^DD(912.1,.03,21,3,0)="Enter only numerics, do not include ""$"" or "","" or "".00"", (i.e. 2000,"
^DD(912.1,.03,21,4,0)="200, 1)."
^DD(912.1,.03,"DT")="2930223"
^DD(912.1,.04,0)="DOLLAR RECOVERED^NJ9,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<1) X"
^DD(912.1,.04,3)="Type a Dollar Amount between 1 and 999999, 0 Decimal Digits"
^DD(912.1,.04,21,0)="^^2^2^2930223^^^"
^DD(912.1,.04,21,1,0)="Enter a Dollar value of the recovered property, rounded to the nearest"
^DD(912.1,.04,21,2,0)="whole Dollar.  Amount entered must be between 0 and 999999."
^DD(912.1,.04,"DT")="2930223"
^DD(912.1,"B","DESCRIPTION",.02)=""
^DD(912.1,"B","DOLLAR LOSS",.03)=""
^DD(912.1,"B","DOLLAR RECOVERED",.04)=""
^DD(912.1,"B","ITEM NAME",.01)=""
^DD(912.1,"GL",0,1,.01)=""
^DD(912.1,"GL",0,2,.02)=""
^DD(912.1,"GL",0,3,.03)=""
^DD(912.1,"GL",0,4,.04)=""
^DD(912.1,"IX",.01)=""
^DD(912.11,0)="OFFENSE COMMITTED SUB-FIELD^^.04^3"
^DD(912.11,0,"DT")="2921026"
^DD(912.11,0,"IX","B",912.11,.01)=""
^DD(912.11,0,"NM","OFFENSE COMMITTED")=""
^DD(912.11,0,"UP")="912.05"
^DD(912.11,.01,0)="OFFENSE COMMITTED^P915'^ESP(915,^0;1^Q"
^DD(912.11,.01,1,0)="^.1"
^DD(912.11,.01,1,1,0)="912.11^B"
^DD(912.11,.01,1,1,1)="S ^ESP(912,DA(2),40,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(912.11,.01,1,1,2)="K ^ESP(912,DA(2),40,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(912.11,.01,3)="Answer must be a valid offense."
^DD(912.11,.01,21,0)="^^2^2^2930223^^^^"
^DD(912.11,.01,21,1,0)="Enter the offense committed by the offender."
^DD(912.11,.01,21,2,0)="Select from the available listing the offense committed."
^DD(912.11,.01,"DT")="2921106"
^DD(912.11,.02,0)="OFFENSE DISPOSITION^*P911.2'^ESP(911.2,^0;2^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.11,.02,3)="Answer must be a valid offense disposition."
^DD(912.11,.02,12)="Select an offense disposition."
^DD(912.11,.02,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,1)"""
^DD(912.11,.02,21,0)="^^4^4^2930223^^^^"
^DD(912.11,.02,21,1,0)="Enter the disposition for the offense.  A listed offense must"
^DD(912.11,.02,21,2,0)="be dispositioned either through criminal charges or administrative"
^DD(912.11,.02,21,3,0)="disposition, as appropriate.  Select from the available disposition"
^DD(912.11,.02,21,4,0)="codes."
^DD(912.11,.02,"DT")="2920921"
^DD(912.11,.04,0)="CHARGING DOCUMENT^F^^0;4^K:$L(X)>20!($L(X)<3) X"
^DD(912.11,.04,3)="Answer must be [3-20 characters]."
^DD(912.11,.04,21,0)="^^4^4^2930223^^^^"
^DD(912.11,.04,21,1,0)="Enter the charging document such as the warrant or violation #, if "
^DD(912.11,.04,21,2,0)="known or applicable.  For example V1001 or W-101.  In instances where"
^DD(912.11,.04,21,3,0)="field stations release offenders to outside law enforcement agencies"
^DD(912.11,.04,21,4,0)="for formal charging, this document number may be unknown or unavailable."
^DD(912.11,.04,"DT")="2921026"
^DD(912.11,"B","CHARGING DOCUMENT",.04)=""
^DD(912.11,"B","OFFENSE COMMITTED",.01)=""
^DD(912.11,"B","OFFENSE DISPOSITION",.02)=""
^DD(912.11,"GL",0,1,.01)=""
^DD(912.11,"GL",0,2,.02)=""
^DD(912.11,"GL",0,4,.04)=""
^DD(912.11,"IX",.01)=""
^DD(912.12,0)="MEDICAL TREATMENT SUB-FIELD^^.01^1"
^DD(912.12,0,"DT")="2920108"
^DD(912.12,0,"NM","MEDICAL TREATMENT")=""
^DD(912.12,0,"UP")="912.04"
^DD(912.12,.01,0)="MEDICAL TREATMENT^W^^0;1^Q"
^DD(912.12,.01,3)="Describe medical treatment received."
^DD(912.12,.01,8)="]"
^DD(912.12,.01,21,0)="^^2^2^2930223^^^^"
^DD(912.12,.01,21,1,0)="Enter information which describes any medical treatment received by"
^DD(912.12,.01,21,2,0)="the victim as a result of the offense committed."
^DD(912.12,.01,"DT")="2920108"
^DD(912.12,"B","MEDICAL TREATMENT",.01)=""
^DD(912.12,"GL",0,1,.01)=""
^DD(912.13,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(912.13,0,"DT")="2920921"
^DD(912.13,0,"NM","DESCRIPTION")=""
^DD(912.13,0,"UP")="912.02"
^DD(912.13,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(912.13,.01,3)="Enter a brief description of the article(s)."
^DD(912.13,.01,21,0)="^^2^2^2930223^"
^DD(912.13,.01,21,1,0)="Enter any additional descriptive information for the item being"
^DD(912.13,.01,21,2,0)="processed for placement in the Evidence/Property Custody system."
^DD(912.13,.01,"DT")="2920921"
^DD(912.13,"B","DESCRIPTION",.01)=""
^DD(912.13,"GL",0,1,.01)=""
^DD(912.14,0)="OTHER AGENCY NOTIFIED SUB-FIELD^^.03^3"
^DD(912.14,0,"DT")="2930503"
^DD(912.14,0,"IX","B",912.14,.01)=""
^DD(912.14,0,"NM","OTHER AGENCY NOTIFIED")=""
^DD(912.14,0,"UP")="912"
^DD(912.14,.01,0)="DATE/TIME NOTIFIED^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(912.14,.01,1,0)="^.1"
^DD(912.14,.01,1,1,0)="912.14^B"
^DD(912.14,.01,1,1,1)="S ^ESP(912,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(912.14,.01,1,1,2)="K ^ESP(912,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(912.14,.01,3)="Answer must contain BOTH a date and time."
^DD(912.14,.01,21,0)="^^1^1^2930223^^^"
^DD(912.14,.01,21,1,0)="Enter the date/time an outside agency was notified."
^DD(912.14,.01,"DT")="2930223"
^DD(912.14,.02,0)="CONTACT PERSON^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(912.14,.02,3)="Answer must be 3-30 characters in length."
^DD(912.14,.02,21,0)="^^2^2^2930503^^^^"
^DD(912.14,.02,21,1,0)="Enter the person who was contacted in the outside agency."
^DD(912.14,.02,21,2,0)="You may enter a person's name or title."
^DD(912.14,.02,"DT")="2930503"
^DD(912.14,.03,0)="AGENCY^F^^0;3^K:$L(X)>40!($L(X)<3) X"
^DD(912.14,.03,3)="Answer must be 3-40 characters in length."
^DD(912.14,.03,21,0)="^^1^1^2930503^^^"
^DD(912.14,.03,21,1,0)="Enter the name of the agency notified."
^DD(912.14,.03,"DT")="2930503"
^DD(912.14,"B","AGENCY",.03)=""
^DD(912.14,"B","CONTACT PERSON",.02)=""
^DD(912.14,"B","DATE/TIME NOTIFIED",.01)=""
^DD(912.14,"GL",0,1,.01)=""
^DD(912.14,"GL",0,2,.02)=""
^DD(912.14,"GL",0,3,.03)=""
^DD(912.14,"IX",.01)=""
^DD(912.15,0)="U.S. ATTORNEY NOTIFIED SUB-FIELD^^10^2"
^DD(912.15,0,"DT")="2930223"
^DD(912.15,0,"IX","B",912.15,.01)=""
^DD(912.15,0,"NM","U.S. ATTORNEY NOTIFIED")=""
^DD(912.15,0,"UP")="912"
^DD(912.15,.01,0)="DATE/TIME NOTIFIED^D^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(912.15,.01,1,0)="^.1"
^DD(912.15,.01,1,1,0)="912.15^B"
^DD(912.15,.01,1,1,1)="S ^ESP(912,DA(1),120,""B"",$E(X,1,30),DA)="""""
^DD(912.15,.01,1,1,2)="K ^ESP(912,DA(1),120,""B"",$E(X,1,30),DA)"
^DD(912.15,.01,3)="Answer must contain BOTH a date and time."
^DD(912.15,.01,21,0)="^^5^5^2930223^^"
^DD(912.15,.01,21,1,0)="This is to note when the U.S. Attorney or FBI was notified."
^DD(912.15,.01,21,2,0)="If the subject is in custody, the notification of the U.S."
^DD(912.15,.01,21,3,0)="Attorney may be required for further instructions.  If an"
^DD(912.15,.01,21,4,0)="offense has occurred for which further investigation will be"
^DD(912.15,.01,21,5,0)="required, the FBI may have to be notified."
^DD(912.15,.01,"DT")="2930223"
^DD(912.15,10,0)="INSTRUCTIONS RECEIVED^912.16^^10;0"
^DD(912.15,10,21,0)="^^2^2^2930219^"
^DD(912.15,10,21,1,0)="Enter a brief statement identifying any special instructions"
^DD(912.15,10,21,2,0)="from authorities concerning the offense."
^DD(912.15,"B","DATE/TIME NOTIFIED",.01)=""
^DD(912.15,"B","INSTRUCTIONS RECEIVED",10)=""
^DD(912.15,"GL",0,1,.01)=""
^DD(912.15,"GL",10,0,10)=""
^DD(912.15,"IX",.01)=""
^DD(912.15,"SB",912.16,10)=""
^DD(912.16,0)="INSTRUCTIONS RECEIVED SUB-FIELD^^.01^1"
^DD(912.16,0,"DT")="2930219"
^DD(912.16,0,"NM","INSTRUCTIONS RECEIVED")=""
^DD(912.16,0,"UP")="912.15"
^DD(912.16,.01,0)="INSTRUCTIONS RECEIVED^W^^0;1^Q"
^DD(912.16,.01,3)="Enter instructions received."
^DD(912.16,.01,21,0)="^^2^2^2930223^"
^DD(912.16,.01,21,1,0)="Enter a complete description of the instructions received from"
^DD(912.16,.01,21,2,0)="the U.S. Attorney's office."
^DD(912.16,.01,"DT")="2930219"
^DD(912.16,"B","INSTRUCTIONS RECEIVED",.01)=""
^DD(912.16,"GL",0,1,.01)=""
^DD(912.17,0)="FOLLOW-UP SUB-FIELD^^10^4"
^DD(912.17,0,"DT")="2930715"
^DD(912.17,0,"IX","B",912.17,.01)=""
^DD(912.17,0,"NM","FOLLOW-UP")=""
^DD(912.17,0,"UP")="912"
^DD(912.17,.01,0)="INVESTIGATOR^*P200'X^VA(200,^0;1^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(912.17,.01,1,0)="^.1"
^DD(912.17,.01,1,1,0)="912.17^B"
^DD(912.17,.01,1,1,1)="S ^ESP(912,DA(1),130,""B"",$E(X,1,30),DA)="""""
^DD(912.17,.01,1,1,2)="K ^ESP(912,DA(1),130,""B"",$E(X,1,30),DA)"
^DD(912.17,.01,3)="ANSWER MUST BE 3-30 CHARACTERS."
^DD(912.17,.01,12)="Only officers currently active."
^DD(912.17,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"""
^DD(912.17,.01,21,0)="^^5^5^2940310^^^^"
^DD(912.17,.01,21,1,0)="Enter the name of a police officer who has been assigned to"
^DD(912.17,.01,21,2,0)="conduct follow-up investigative work on a Uniform Offense"
^DD(912.17,.01,21,3,0)="Report initiated by another officer.  The follow-up officer's"
^DD(912.17,.01,21,4,0)="name must be entered in the NEW PERSON file (#200) and must also"
^DD(912.17,.01,21,5,0)="be assigned the ESP POLICE Security Key."
^DD(912.17,.01,"DT")="3040324"
^DD(912.17,.02,0)="DATE/TIME ENTERED/EDITED^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(912.17,.02,3)="Enter the date/time this follow-up data is entered or edited."
^DD(912.17,.02,12)="Only officers currently active."
^DD(912.17,.02,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,1)"""
^DD(912.17,.02,21,0)="^^4^4^2931014^^^"
^DD(912.17,.02,21,1,0)="Enter the date/time these follow-up investigative notes"
^DD(912.17,.02,21,2,0)="are entered or edited.  This field will be automatically"
^DD(912.17,.02,21,3,0)="stuffed when entered through the Add/Edit Follow-up notes"
^DD(912.17,.02,21,4,0)="option."
^DD(912.17,.02,"DT")="2930506"
^DD(912.17,.03,0)="USER^P200'^VA(200,^0;3^Q"
^DD(912.17,.03,3)="Enter the person's name who is entering this data."
^DD(912.17,.03,21,0)="^^4^4^2931014^^^"
^DD(912.17,.03,21,1,0)="This field contains the pointer to the New Person"
^DD(912.17,.03,21,2,0)="file (#200) who entered this data into the computer."
^DD(912.17,.03,21,3,0)="If entering data through the Add Follow-up Notes"
^DD(912.17,.03,21,4,0)="option, this field will be automatically stuffed."
^DD(912.17,.03,"DT")="2930504"
^DD(912.17,10,0)="NOTES^912.18^^10;0"
^DD(912.17,10,21,0)="^^2^2^2930708^"
^DD(912.17,10,21,1,0)="This field is used to record any follow-up investigative notes"
^DD(912.17,10,21,2,0)="that apply to the initial investigative report."
^DD(912.17,10,"DT")="2930505"
^DD(912.17,"B","DATE/TIME ENTERED/EDITED",.02)=""
^DD(912.17,"B","INVESTIGATOR",.01)=""
^DD(912.17,"B","NOTES",10)=""
^DD(912.17,"B","USER",.03)=""
^DD(912.17,"GL",0,1,.01)=""
^DD(912.17,"GL",0,2,.02)=""
^DD(912.17,"GL",0,3,.03)=""
^DD(912.17,"GL",10,0,10)=""
^DD(912.17,"IX",.01)=""
^DD(912.17,"SB",912.18,10)=""
^DD(912.18,0)="NOTES SUB-FIELD^^.01^1"
^DD(912.18,0,"DT")="2930504"
^DD(912.18,0,"NM","NOTES")=""
^DD(912.18,0,"UP")="912.17"
^DD(912.18,.01,0)="FOLLOW-UP NOTES^W^^0;1^Q"
^DD(912.18,.01,3)="Enter the follow-up investigative notes."
^DD(912.18,.01,"DT")="2930504"
^DD(912.18,"B","FOLLOW-UP NOTES",.01)=""
^DD(912.18,"GL",0,1,.01)=""
^DD(912.3,0)="FIELD^^10^3"
^DD(912.3,0,"DDA")="N"
^DD(912.3,0,"DT")="2990722"
^DD(912.3,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(912.3,0,"IX","B",912.3,.01)=""
^DD(912.3,0,"NM","ESP CRIME DATA-BY-FACILITY")=""
^DD(912.3,0,"VR")="1.0"
^DD(912.3,0,"VRPK")="ES"
^DD(912.3,.01,0)="BEGINNING DATE^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(912.3,.01,1,0)="^.1"
^DD(912.3,.01,1,1,0)="912.3^B"
^DD(912.3,.01,1,1,1)="S ^ESP(912.3,""B"",$E(X,1,30),DA)="""""
^DD(912.3,.01,1,1,2)="K ^ESP(912.3,""B"",$E(X,1,30),DA)"
^DD(912.3,.01,3)="This field indicates the beginning date of the generated report"
^DD(912.3,.01,21,0)="^^1^1^2930218^^^"
^DD(912.3,.01,21,1,0)="This field will indicate the beginning date of the generated report."
^DD(912.3,.01,"DT")="2930218"
^DD(912.3,.02,0)="ENDING DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(912.3,.02,3)="This is the ending date of the generated report."
^DD(912.3,.02,21,0)="^^4^4^2930218^"
^DD(912.3,.02,21,1,0)="This is the ending date of the generated report."
^DD(912.3,.02,21,2,0)="This field is stuffed when running the Uniform Crime"
^DD(912.3,.02,21,3,0)="Report option with the date entered at the ""Ending Date"""
^DD(912.3,.02,21,4,0)="prompt."
^DD(912.3,.02,"DT")="2930218"
^DD(912.3,10,0)="FACILITY^912.31PA^^1;0"
^DD(912.3,10,21,0)="^.001^1^1^3000307^^^"
^DD(912.3,10,21,1,0)="This field will indicate the local field station generating the report."
^DD(912.3,"B","BEGINNING DATE",.01)=""
^DD(912.3,"B","ENDING DATE",.02)=""
^DD(912.3,"B","FACILITY",10)=""
^DD(912.3,"GL",0,1,.01)=""
^DD(912.3,"GL",0,2,.02)=""
^DD(912.3,"GL",1,0,10)=""
^DD(912.3,"IX",.01)=""
^DD(912.3,"RQ",.01)=""
^DD(912.3,"SB",912.31,10)=""
^DD(912.31,0)="FACILITY SUB-FIELD^^188^194"
^DD(912.31,0,"DT")="2990722"
^DD(912.31,0,"IX","B",912.31,.01)=""
^DD(912.31,0,"NM","FACILITY")=""
^DD(912.31,0,"UP")="912.3"
^DD(912.31,.01,0)="FACILITY^P40.8'X^DG(40.8,^0;1^S DINUM=X"
^DD(912.31,.01,1,0)="^.1"
^DD(912.31,.01,1,1,0)="912.31^B"
^DD(912.31,.01,1,1,1)="S ^ESP(912.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(912.31,.01,1,1,2)="K ^ESP(912.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(912.31,.01,3)=""
^DD(912.31,.01,21,0)="^^1^1^2920930^"
^DD(912.31,.01,21,1,0)="Indicates the field station generating the report."
^DD(912.31,.01,"DT")="2990722"
^DD(912.31,.02,0)="STATION NUMBER^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X"
^DD(912.31,.02,3)="Answer must be 3-7 characters in length."
^DD(912.31,.02,21,0)="^^1^1^2930930^"
^DD(912.31,.02,21,1,0)="This is the 3 digit station number plus any modifiers."
^DD(912.31,.02,"DT")="2930930"
^DD(912.31,1,0)="ASSAULTS^NJ6,0^^1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,1,"DT")="2920929"
^DD(912.31,2,0)="AGGRAVATED^NJ6,0^^2;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,2,"DT")="2921021"
^DD(912.31,3,0)="DANGEROUS^NJ6,0^^3;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,3,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,3,"DT")="2920929"
^DD(912.31,4,0)="KIDNAPPING^NJ6,0^^4;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,4,"DT")="2920929"
^DD(912.31,5,0)="NO WEAPON^NJ6,0^^5;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,5,"DT")="2920929"
^DD(912.31,6,0)="SIMPLE^NJ6,0^^6;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,6,"DT")="2920929"
^DD(912.31,7,0)="BY EMPLOYEES (ASLT)^NJ6,0^^7;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,7,.1)=""
^DD(912.31,7,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,7,"DT")="2920929"
^DD(912.31,8,0)="BY OUTSIDERS (ASLT)^NJ6,0^^8;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,8,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,8,"DT")="2920929"
^DD(912.31,9,0)="BY PATIENTS (ASLT)^NJ6,0^^9;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,9,"DT")="2920929"
^DD(912.31,10,0)="BY UNKNOWN (ASLT)^NJ6,0^^10;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,10,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,10,"DT")="2921207"
^DD(912.31,11,0)="BY VISITOR (ASLT)^NJ6,0^^11;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,11,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,11,"DT")="2920929"
^DD(912.31,12,0)="EMPLOYEE VICTIM (ASLT)^NJ6,0^^12;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,12,"DT")="2920929"
^DD(912.31,13,0)="OFFICER INJURY (ASLT)^NJ6,0^^13;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,13,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,13,"DT")="2921005"
^DD(912.31,14,0)="OUTSIDER VICTIM (ASLT)^NJ6,0^^14;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,14,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,14,"DT")="2920929"
^DD(912.31,15,0)="PATIENT VICTIM (ASLT)^NJ6,0^^15;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,15,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,15,"DT")="2921207"
^DD(912.31,16,0)="UNKNOWN VICTIM (ASLT)^NJ6,0^^16;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,16,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,16,"DT")="2921207"
^DD(912.31,17,0)="VISITOR VICTIM (ASLT)^NJ6,0^^17;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,17,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,17,"DT")="2921207"
^DD(912.31,18,0)="BURGLARIES^NJ6,0^^18;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,18,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,18,"DT")="2920929"
^DD(912.31,19,0)="ALL OTHER AREAS^NJ6,0^^19;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,19,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,19,"DT")="2920929"
^DD(912.31,20,0)="CANTEEN^NJ6,0^^20;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,20,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,20,"DT")="2920929"
^DD(912.31,21,0)="CASHIER^NJ6,0^^21;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,21,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,21,"DT")="2920929"
^DD(912.31,22,0)="LOCKER AREAS^NJ6,0^^22;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,22,.1)=""
^DD(912.31,22,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,22,"DT")="2920929"
^DD(912.31,23,0)="OFFICE^NJ6,0^^23;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,23,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,23,"DT")="2920929"
^DD(912.31,24,0)="PHARMACY^NJ6,0^^24;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,24,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,24,"DT")="2920929"
^DD(912.31,25,0)="VEHICLE^NJ6,0^^25;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,25,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,25,"DT")="2920929"
^DD(912.31,26,0)="$ LOSS (BURGLARY)^NJ9,2^^26;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,26,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,26,"DT")="2920929"
^DD(912.31,27,0)="$ RECOVERED (BURGLARY)^NJ9,2^^27;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,27,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,27,"DT")="2920929"
^DD(912.31,28,0)="CONTRABAND^NJ6,0^^28;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,28,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,28,"DT")="2920929"
^DD(912.31,29,0)="FORGED PRESCRIPTIONS^NJ6,0^^29;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,29,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,29,"DT")="2920929"
^DD(912.31,30,0)="DRUG INTRODUCTION^NJ6,0^^30;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,30,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,30,"DT")="2920929"
^DD(912.31,31,0)="DRUG POSSESSION^NJ6,0^^31;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,31,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,31,"DT")="2920929"
^DD(912.31,32,0)="DRUG SALE^NJ6,0^^32;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,32,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,32,"DT")="2920929"
^DD(912.31,33,0)="UNDER THE INFLUENCE (DRUGS)^NJ6,0^^33;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,33,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,33,"DT")="2921021"
^DD(912.31,34,0)="ALCOHOL INTRODUCTION^NJ6,0^^34;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,34,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,34,"DT")="2921021"
^DD(912.31,35,0)="ALCOHOL POSSESSION^NJ6,0^^35;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,35,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,35,"DT")="2921021"
^DD(912.31,36,0)="UNDER THE INFLUENCE (ALCOHOL)^NJ6,0^^36;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,36,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,36,"DT")="2921021"
^DD(912.31,37,0)="FIREARM POSSESSION^NJ6,0^^37;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,37,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,37,"DT")="2921021"
^DD(912.31,38,0)="KNIVES/HATCHETS/CLUBS/BRASS^NJ6,0^^38;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,38,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,38,"DT")="2921021"
^DD(912.31,39,0)="EXPLOSIVE DEV/AMMUN/COMBUST^NJ6,0^^39;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,39,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,39,"DT")="2921021"
^DD(912.31,40,0)="OTHER WEAPON POSSESSION^NJ6,0^^40;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,40,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,40,"DT")="2921021"
^DD(912.31,41,0)="BY EMPLOYEE (CONT)^NJ6,0^^41;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,41,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,41,"DT")="2921021"
^DD(912.31,42,0)="BY OUTSIDER (CONT)^NJ6,0^^42;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,42,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,42,"DT")="2921021"
^DD(912.31,43,0)="BY PATIENT (CONT)^NJ6,0^^43;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,43,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,43,"DT")="2921021"
^DD(912.31,44,0)="BY UNKNOWN (CONT)^NJ6,0^^44;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,44,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,44,"DT")="2921021"
^DD(912.31,45,0)="BY VISITORS (CONT)^NJ6,0^^45;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,45,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,45,"DT")="2921021"
^DD(912.31,46,0)="DISTURBANCES^NJ6,0^^46;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,46,.1)=""
^DD(912.31,46,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,46,"AUDIT")=""
^DD(912.31,46,"DT")="2921021"
^DD(912.31,47,0)="BOMB THREAT^NJ6,0^^47;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,47,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,47,"DT")="2921021"
^DD(912.31,48,0)="DEMONSTRATIONS^NJ6,0^^48;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,48,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,48,"DT")="2921021"
^DD(912.31,49,0)="DISORDERLY CONDUCT^NJ6,0^^49;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,49,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,49,"DT")="2921021"
^DD(912.31,50,0)="EMPLOYEE THREAT^NJ6,0^^50;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,50,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,50,"DT")="2921021"
^DD(912.31,51,0)="OTHER THREAT^NJ6,0^^51;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,51,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,51,"DT")="2921021"
^DD(912.31,52,0)="SMOKING VIOLATION^NJ6,0^^52;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,52,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,52,"DT")="2921021"
^DD(912.31,53,0)="TRESPASSING^NJ6,0^^53;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,53,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,53,"DT")="2930208"
^DD(912.31,54,0)="UNAUTHORIZED PHOTOGRAPHY^NJ6,0^^54;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,54,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,54,"DT")="2930208"
^DD(912.31,55,0)="UNAUTH/POSS/USE/KEYS/CARDS^NJ6,0^^55;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,55,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,55,"DT")="2930208"
^DD(912.31,56,0)="BY EMPLOYEE (DIST)^NJ6,0^^56;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,56,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,56,"DT")="2930208"
^DD(912.31,57,0)="BY OUTSIDER (DIST)^NJ6,0^^57;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,57,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,57,"DT")="2930208"
^DD(912.31,58,0)="BY PATIENT (DIST)^NJ6,0^^58;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,58,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,58,"DT")="2930208"
^DD(912.31,59,0)="BY UNKNOWN (DIST)^NJ6,0^^59;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,59,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,59,"DT")="2930208"
^DD(912.31,60,0)="BY VISITOR (DIST)^NJ6,0^^60;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,60,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,60,"DT")="2930208"
^DD(912.31,61,0)="MANSLAUGHTER/MURDER/NEGLIGENT^NJ6,0^^61;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,61,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,61,"DT")="2930208"
^DD(912.31,62,0)="MANSLAUGHTER/MURDER/NON-NEG.^NJ6,0^^62;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,62,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,62,"DT")="2930208"
^DD(912.31,63,0)="BY EMPLOYEE (MANS)^NJ6,0^^63;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,63,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,63,"DT")="2930208"
^DD(912.31,64,0)="BY OUTSIDER (MANS)^NJ6,0^^64;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,64,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,64,"DT")="2930208"
^DD(912.31,65,0)="BY PATIENT (MANS)^NJ6,0^^65;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,65,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,65,"DT")="2930208"
^DD(912.31,66,0)="BY UNKNOWN (MANS)^NJ6,0^^66;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,66,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,66,"DT")="2930208"
^DD(912.31,67,0)="BY VISITOR (MANS)^NJ6,0^^67;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,67,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,67,"DT")="2930208"
^DD(912.31,68,0)="EMPLOYEE VICTIM (MANS)^NJ6,0^^68;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,68,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,68,"DT")="2930208"
^DD(912.31,69,0)="OUTSIDER VICTIM (MANS)^NJ6,0^^69;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,69,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,69,"DT")="2930208"
^DD(912.31,70,0)="PATIENT VICTIM (MANS)^NJ6,0^^70;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,70,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,70,"DT")="2930208"
^DD(912.31,71,0)="VISITOR VICTIM (MANS)^NJ6,0^^71;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,71,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,71,"DT")="2930208"
^DD(912.31,72,0)="NON-CRIMINAL INVESTIGATIONS^NJ6,0^^72;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,72,.1)=""
^DD(912.31,72,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,72,"DT")="2930208"
^DD(912.31,73,0)="MISSING PATIENT REACTION^NJ6,0^^73;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,73,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,73,"DT")="2930208"
^DD(912.31,74,0)="MOTOR VEHICLE ACCIDENT^NJ6,0^^74;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,74,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,74,"DT")="2930208"
^DD(912.31,75,0)="GOVERNMENT VEHICLE^NJ6,0^^75;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,75,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,75,"DT")="2930208"
^DD(912.31,76,0)="PERSONAL VEHICLE^NJ6,0^^76;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,76,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,76,"DT")="2930208"
^DD(912.31,77,0)="ASSIST LAW OFFICER^NJ6,0^^77;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,77,.1)=""
^DD(912.31,77,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,77,"DT")="2930208"
^DD(912.31,78,0)="STAFF ASSIST^NJ9,2^^78;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,78,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,78,"DT")="2930208"
^DD(912.31,79,0)="ALARM RESPONSE^NJ6,0^^79;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,79,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,79,"DT")="2930208"
^DD(912.31,80,0)="SAFETY HAZARD^NJ6,0^^80;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,80,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,80,"DT")="2930208"
^DD(912.31,81,0)="OTHER OFFENSES^NJ6,0^^81;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,81,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,81,"DT")="2930208"
^DD(912.31,82,0)="ARSON^NJ6,0^^82;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,82,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,82,"DT")="2930208"
^DD(912.31,83,0)="ARSON $ DAMAGE^NJ9,2^^83;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,83,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,83,"DT")="2930208"
^DD(912.31,84,0)="POSSESSION OF STOLEN PROPERTY^NJ6,0^^84;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,84,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,84,"DT")="2930208"
^DD(912.31,85,0)="RECEIVE/SELL STOLEN PROPERTY^NJ6,0^^85;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,85,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,85,"DT")="2930208"
^DD(912.31,86,0)="SUICIDE^NJ6,0^^86;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,86,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,86,"DT")="2930208"
^DD(912.31,87,0)="SUICIDE ATTEMPT^NJ6,0^^87;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,87,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,87,"DT")="2930208"
^DD(912.31,88,0)="RAPES^NJ6,0^^88;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,88,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,88,"DT")="2921021"
^DD(912.31,89,0)="ATTEMPTED RAPE^NJ6,0^^89;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,89,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,89,"DT")="2921021"
^DD(912.31,90,0)="FORCIBLE RAPE^NJ6,0^^90;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,90,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,90,"DT")="2921021"
^DD(912.31,91,0)="BY EMPLOYEE (RAPE)^NJ6,0^^91;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,91,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,91,"DT")="2921021"
^DD(912.31,92,0)="BY OUTSIDER (RAPE)^NJ6,0^^92;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,92,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,92,"DT")="2921021"
^DD(912.31,93,0)="BY PATIENT (RAPE)^NJ6,0^^93;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,93,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,93,"DT")="2921021"
^DD(912.31,94,0)="BY UNKNOWN (RAPE)^NJ6,0^^94;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,94,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,94,"DT")="2921021"
^DD(912.31,95,0)="BY VISITOR (RAPE)^NJ6,0^^95;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,95,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,95,"DT")="2921021"
^DD(912.31,96,0)="EMPLOYEE VICTIM (RAPE)^NJ6,0^^96;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,96,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,96,"DT")="2921021"
^DD(912.31,97,0)="OUTSIDER VICTIM (RAPE)^NJ9,2^^97;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(912.31,97,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(912.31,97,"DT")="2921021"
^DD(912.31,98,0)="PATIENT VICTIM (RAPE)^NJ6,0^^98;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,98,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,98,"DT")="2921021"
^DD(912.31,99,0)="VISITOR VICTIM (RAPE)^NJ6,0^^99;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,99,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,99,"DT")="2921021"
^DD(912.31,100,0)="ROBBERY^NJ6,0^^100;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,100,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,100,"DT")="2921021"
^DD(912.31,101,0)="ARMED ROBBERY^NJ6,0^^101;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,101,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,101,"DT")="2921021"
^DD(912.31,102,0)="$100 & ABOVE (A-ROBBERY)^NJ6,0^^102;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,102,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,102,"DT")="2930203"
^DD(912.31,103,0)="<$100 (A-ROBBERY)^NJ6,0^^103;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,103,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,103,"DT")="2930203"
^DD(912.31,104,0)="STRONG-ARMED ROBBERY^NJ6,0^^104;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,104,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,104,"DT")="2921207"
^DD(912.31,105,0)="$100 & ABOVE (S-A ROBBERY)^NJ6,0^^105;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,105,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,105,"DT")="2930203"
^DD(912.31,106,0)="<$100 (S-A ROBBERY)^NJ9,2^^106;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,106,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,106,"DT")="2930203"
^DD(912.31,107,0)="DRUGS ONLY (ROBBERY)^NJ9,2^^107;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,107,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,107,"DT")="2921207"
^DD(912.31,108,0)="TOTAL $ LOSS (ROBBERY)^NJ6,0^^108;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,108,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,108,"DT")="2921207"
^DD(912.31,109,0)="TOTAL $ RECOVERED (ROBBERY)^NJ9,2^^109;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,109,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,109,"DT")="2921207"
^DD(912.31,110,0)="STOPS & ARRESTS^NJ6,0^^110;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,110,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,110,"DT")="2921207"
^DD(912.31,111,0)="PHYSICAL ARRESTS^NJ6,0^^111;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,111,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,111,"DT")="2921207"
^DD(912.31,112,0)="OF EMPLOYEES (ARST)^NJ9,2^^112;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,112,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,112,"DT")="2921207"
^DD(912.31,113,0)="OF OUTSIDERS (ARST)^NJ9,2^^113;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,113,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,113,"DT")="2921211"
^DD(912.31,114,0)="OF PATIENTS (ARST)^NJ6,0^^114;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,114,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,114,"DT")="2921211"
^DD(912.31,115,0)="OF VISITORS (ARST)^NJ6,0^^115;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,115,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,115,"DT")="2921207"
^DD(912.31,116,0)="STOPS FOR QUESTIONING^NJ6,0^^116;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,116,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,116,"DT")="2921207"
^DD(912.31,117,0)="NON-PACKAGE STOPS^NJ6,0^^117;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,117,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,117,"DT")="2921207"
^DD(912.31,118,0)="PACKAGE STOPS^NJ9,2^^118;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,118,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,118,"DT")="2921207"
^DD(912.31,119,0)="THEFTS^NJ9,2^^119;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,119,.1)=""
^DD(912.31,119,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,119,"DT")="2921207"
^DD(912.31,120,0)="COIN-OPERATED MACHINES^NJ9,2^^120;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,120,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,120,"DT")="2921207"
^DD(912.31,121,0)="TOTAL $ LOSS (COIN)^NJ9,2^^121;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,121,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,121,"DT")="2921207"
^DD(912.31,122,0)="TOTAL $ RECOVERED (COIN)^NJ6,0^^122;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,122,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,122,"DT")="2921207"
^DD(912.31,123,0)="ACTUAL DRUG THEFT^NJ6,0^^123;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,123,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,123,"DT")="2921207"
^DD(912.31,124,0)="ATTEMPTED DRUG THEFT^NJ6,0^^124;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,124,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,124,"DT")="2921207"
^DD(912.31,125,0)="CONTROLLED SUBSTANCES (AC)^NJ9,2^^125;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,125,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,125,"DT")="2921211"
^DD(912.31,126,0)="NON-CONTROLLED SUBSTANCES (AC)^NJ9,2^^126;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,126,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,126,"DT")="2921211"
^DD(912.31,127,0)="CONTROLLED SUBSTANCES (AT)^NJ6,0^^127;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,127,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,127,"DT")="2921211"
^DD(912.31,128,0)="NON-CONTROLLED SUBSTANCES (AT)^NJ6,0^^128;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,128,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,128,"DT")="2921211"
^DD(912.31,129,0)="TOTAL DRUG THEFTS^NJ6,0^^129;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,129,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,129,"DT")="2921207"
^DD(912.31,130,0)="TOTAL $ LOSS (DRUGS)^NJ6,0^^130;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,130,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,130,"DT")="2921211"
^DD(912.31,131,0)="TOTAL $ RECOVERED (DRUGS)^NJ9,2^^131;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,131,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,131,"DT")="2921211"
^DD(912.31,132,0)="THEFT OF GOVERNMENT PROPERTY^NJ9,2^^132;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,132,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,132,"DT")="2921211"
^DD(912.31,133,0)="$100 & ABOVE (GOV'T)^NJ6,0^^133;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,133,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,133,"DT")="2930203"
^DD(912.31,133.1,0)="$1000 & ABOVE (GOV'T)^NJ6,0^^133.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,133.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,133.1,21,0)="^^2^2^2980421^"
^DD(912.31,133.1,21,1,0)="The number of file #912 records which contained"
^DD(912.31,133.1,21,2,0)="a SUBTYPE of ABOVE $1000 (GOV'T)."
^DD(912.31,133.1,"DT")="2980421"
^DD(912.31,134,0)="<$100 (GOV'T)^NJ9,2^^134;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,134,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,134,"DT")="2930203"
^DD(912.31,134.1,0)="<$1000 (GOV'T)^NJ6,0^^134.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,134.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,134.1,21,0)="^^2^2^2980421^"
^DD(912.31,134.1,21,1,0)="The number of file #912 records which contained"
^DD(912.31,134.1,21,2,0)="a SUBTYPE of BELOW $1000 (GOV'T)."
^DD(912.31,134.1,"DT")="2980421"
^DD(912.31,135,0)="TOTAL $ LOSS (GOV'T)^NJ9,2^^135;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,135,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,135,"DT")="2921211"
^DD(912.31,136,0)="TOTAL $ RECOVERED (GOV'T)^NJ9,2^^136;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,136,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,136,"DT")="2921211"
^DD(912.31,137,0)="THEFT OF PERSONAL PROPERTY^NJ9,2^^137;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,137,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,137,"DT")="2921211"
^DD(912.31,138,0)="$100 & ABOVE (PERSONAL)^NJ6,0^^138;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,138,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,138,"DT")="2930203"
^DD(912.31,138.1,0)="$1000 & ABOVE (PERSONAL)^NJ6,0^^138.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,138.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,138.1,21,0)="^^2^2^2980421^"
^DD(912.31,138.1,21,1,0)="The number of file #912 records which contained"
^DD(912.31,138.1,21,2,0)="a SUBTYPE of ABOVE $1000 (PERSONAL)."
^DD(912.31,138.1,"DT")="2980421"
^DD(912.31,139,0)="<$100 (PERSONAL)^NJ9,2^^139;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(912.31,139,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(912.31,139,"DT")="2930203"
^DD(912.31,139.1,0)="<$1000 (PERSONAL)^NJ6,0^^139.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,139.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,139.1,21,0)="^^2^2^2980421^"
^DD(912.31,139.1,21,1,0)="The number of file #912 records which contained"
^DD(912.31,139.1,21,2,0)="a SUBTYPE of BELOW $1000 (PERSONAL)."
^DD(912.31,139.1,"DT")="2980421"
^DD(912.31,140,0)="TOTAL $ LOSS (PERSONAL)^NJ9,2^^140;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,140,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,140,"DT")="2921211"
^DD(912.31,141,0)="TOTAL $ RECOVERED (PERSONAL)^NJ9,2^^141;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,141,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,141,"DT")="2921211"
^DD(912.31,142,0)="THEFT OF MOTOR VEHICLES^NJ6,0^^142;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,142,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,142,"DT")="2921211"
^DD(912.31,143,0)="GOVERNMENT MOTOR VEHICLE^NJ6,0^^143;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,143,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,143,"DT")="2921211"
^DD(912.31,144,0)="$ LOSS (GOV'T VEH)^NJ9,2^^144;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,144,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,144,"DT")="2921211"
^DD(912.31,145,0)="$ RECOVERED (GOV'T VEH)^NJ9,2^^145;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,145,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,145,"DT")="2921211"
^DD(912.31,146,0)="GOVERNMENT VEHICLES RECOVERED^NJ6,0^^146;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,146,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,146,"DT")="2921211"
^DD(912.31,147,0)="THEFT OF PRIVATE VEHICLES^NJ9,2^^147;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,147,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,147,"DT")="2921211"
^DD(912.31,148,0)="$ LOSS (PRIVATE VEH)^NJ6,0^^148;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,148,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,148,"DT")="2921211"
^DD(912.31,149,0)="$ RECOVERED (PRIVATE VEH)^NJ9,2^^149;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,149,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,149,"DT")="2921211"
^DD(912.31,150,0)="PRIVATE VEHICLES RECOVERED^NJ6,0^^150;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,150,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,150,"DT")="2921211"
^DD(912.31,151,0)="$ RECOVERED ALL THEFTS^NJ9,2^^151;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,151,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,151,"DT")="2921211"
^DD(912.31,152,0)="VANDALISM^NJ6,0^^152;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,152,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,152,"DT")="2921211"
^DD(912.31,153,0)="BY EMPLOYEE (VAND)^NJ6,0^^153;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,153,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,153,"DT")="2921211"
^DD(912.31,154,0)="BY OUTSIDER (VAND)^NJ9,2^^154;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,154,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,154,"DT")="2921211"
^DD(912.31,155,0)="BY PATIENT (VAND)^NJ6,0^^155;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,155,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,155,"DT")="2921211"
^DD(912.31,156,0)="BY UNKNOWN (VAND)^NJ6,0^^156;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,156,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,156,"DT")="2921211"
^DD(912.31,157,0)="BY VISITOR (VAND)^NJ6,0^^157;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,157,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,157,"DT")="2921211"
^DD(912.31,158,0)="VANDALISM $ TOTAL^NJ9,2^^158;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.31,158,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.31,158,"DT")="2921211"
^DD(912.31,159,0)="VICE SOLICITING^NJ6,0^^159;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,159,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,159,"DT")="2921211"
^DD(912.31,160,0)="BRIBERY^NJ6,0^^160;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,160,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,160,"DT")="2921211"
^DD(912.31,161,0)="FORGERY^NJ6,0^^161;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,161,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,161,"DT")="2921211"
^DD(912.31,162,0)="FRAUD^NJ6,0^^162;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,162,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,162,"DT")="2921211"
^DD(912.31,163,0)="GAMBLING^NJ6,0^^163;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,163,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,163,"DT")="2921211"
^DD(912.31,164,0)="SOLICITATION/PROSTITUTION^NJ6,0^^164;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,164,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,164,"DT")="2921211"
^DD(912.31,165,0)="SEXUAL MISCONDUCT^NJ6,0^^165;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,165,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,165,"DT")="2921211"
^DD(912.31,166,0)="BY EMPLOYEE (VICE)^NJ6,0^^166;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,166,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,166,"DT")="2921211"
^DD(912.31,167,0)="BY OUTSIDER (VICE)^NJ6,0^^167;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,167,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,167,"DT")="2921211"
^DD(912.31,168,0)="BY PATIENT (VICE)^NJ6,0^^168;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,168,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,168,"DT")="2921211"
^DD(912.31,169,0)="BY UNKNOWN (VICE)^NJ6,0^^169;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,169,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,169,"DT")="2921211"
^DD(912.31,170,0)="BY VISITOR (VICE)^NJ6,0^^170;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,170,.1)=""
^DD(912.31,170,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,170,"DT")="2921211"
^DD(912.31,171,0)="VIOLATION CHARGES^NJ6,0^^171;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,171,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,171,"DT")="2921211"
^DD(912.31,172,0)="COURTESY WARNINGS^NJ6,0^^172;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,172,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,172,"DT")="2921211"
^DD(912.31,173,0)="WARNINGS NON-TRAFFIC^NJ6,0^^173;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,173,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,173,"DT")="2921211"
^DD(912.31,174,0)="WARNINGS MOVING^NJ6,0^^174;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,174,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,174,"DT")="2921211"
^DD(912.31,175,0)="WARNINGS PARKING^NJ6,0^^175;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,175,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,175,"DT")="2921211"
^DD(912.31,176,0)="TO EMPLOYEES (WARN)^NJ6,0^^176;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,176,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,176,"DT")="2921211"
^DD(912.31,177,0)="TO OUTSIDERS (WARN)^NJ6,0^^177;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,177,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,177,"DT")="2921211"
^DD(912.31,178,0)="TO PATIENTS (WARN)^NJ6,0^^178;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,178,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,178,"DT")="2921211"
^DD(912.31,179,0)="TO VISITORS (WARN)^NJ6,0^^179;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,179,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,179,"DT")="2921211"
^DD(912.31,180,0)="USDC NOTICE^NJ6,0^^180;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,180,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,180,"DT")="2921211"
^DD(912.31,181,0)="TICKET NON-TRAFFIC (USDC)^NJ6,0^^181;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,181,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,181,"DT")="2921211"
^DD(912.31,182,0)="TICKET MOVING (USDC)^NJ6,0^^182;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,182,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,182,"DT")="2921211"
^DD(912.31,183,0)="TICKET PARKING (USDC)^NJ6,0^^183;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.31,183,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.31,183,"DT")="2921211"
^DD(912.31,184,0)="TO EMPLOYEES (USDC)^NJ6,0^^184;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.31,184,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.31,184,"DT")="2921211"
^DD(912.31,185,0)="TO OUTSIDERS (USDC)^NJ6,0^^185;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.31,185,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.31,185,"DT")="2921211"
^DD(912.31,186,0)="TO PATIENTS (USDC)^NJ6,0^^186;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.31,186,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.31,186,"DT")="2921211"
^DD(912.31,187,0)="TO VISITORS (USDC)^NJ6,0^^187;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.31,187,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.31,187,"DT")="2921211"
^DD(912.31,188,0)="INFORMATION ONLY^NJ6,0^^188;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.31,188,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.31,188,"DT")="2940113"
^DD(912.31,"B","$ LOSS (BURGLARY)",26)=""
^DD(912.31,"B","$ LOSS (GOV'T VEH)",144)=""
^DD(912.31,"B","$ LOSS (PRIVATE VEH)",148)=""
^DD(912.31,"B","$ RECOVERED (BURGLARY)",27)=""
^DD(912.31,"B","$ RECOVERED (GOV'T VEH)",145)=""
^DD(912.31,"B","$ RECOVERED (PRIVATE VEH)",149)=""
^DD(912.31,"B","$ RECOVERED ALL THEFTS",151)=""
^DD(912.31,"B","$100 & ABOVE (A-ROBBERY)",102)=""
^DD(912.31,"B","$100 & ABOVE (GOV'T)",133)=""
^DD(912.31,"B","$100 & ABOVE (PERSONAL)",138)=""
^DD(912.31,"B","$100 & ABOVE (S-A ROBBERY)",105)=""
^DD(912.31,"B","$1000 & ABOVE (GOV'T)",133.1)=""
^DD(912.31,"B","$1000 & ABOVE (PERSONAL)",138.1)=""
^DD(912.31,"B","<$100 (A-ROBBERY)",103)=""
^DD(912.31,"B","<$100 (GOV'T)",134)=""
^DD(912.31,"B","<$100 (PERSONAL)",139)=""
^DD(912.31,"B","<$100 (S-A ROBBERY)",106)=""
^DD(912.31,"B","<$1000 (GOV'T)",134.1)=""
^DD(912.31,"B","<$1000 (PERSONAL)",139.1)=""
^DD(912.31,"B","ACTUAL DRUG THEFT",123)=""
^DD(912.31,"B","AGGRAVATED",2)=""
^DD(912.31,"B","ALARM RESPONSE",79)=""
^DD(912.31,"B","ALCOHOL INTRODUCTION",34)=""
^DD(912.31,"B","ALCOHOL POSSESSION",35)=""
^DD(912.31,"B","ALL OTHER AREAS",19)=""
^DD(912.31,"B","ARMED ROBBERY",101)=""
^DD(912.31,"B","ARSON",82)=""
^DD(912.31,"B","ARSON $ DAMAGE",83)=""
^DD(912.31,"B","ASSAULTS",1)=""
^DD(912.31,"B","ASSIST LAW OFFICER",77)=""
^DD(912.31,"B","ATTEMPTED DRUG THEFT",124)=""
^DD(912.31,"B","ATTEMPTED RAPE",89)=""
^DD(912.31,"B","BOMB THREAT",47)=""
^DD(912.31,"B","BRIBERY",160)=""
^DD(912.31,"B","BURGLARIES",18)=""
^DD(912.31,"B","BY EMPLOYEE (CONT)",41)=""
^DD(912.31,"B","BY EMPLOYEE (DIST)",56)=""
^DD(912.31,"B","BY EMPLOYEE (MANS)",63)=""
^DD(912.31,"B","BY EMPLOYEE (RAPE)",91)=""
^DD(912.31,"B","BY EMPLOYEE (VAND)",153)=""
^DD(912.31,"B","BY EMPLOYEE (VICE)",166)=""
^DD(912.31,"B","BY EMPLOYEES (ASLT)",7)=""
^DD(912.31,"B","BY OUTSIDER (CONT)",42)=""
^DD(912.31,"B","BY OUTSIDER (DIST)",57)=""
^DD(912.31,"B","BY OUTSIDER (MANS)",64)=""
^DD(912.31,"B","BY OUTSIDER (RAPE)",92)=""
^DD(912.31,"B","BY OUTSIDER (VAND)",154)=""
^DD(912.31,"B","BY OUTSIDER (VICE)",167)=""
^DD(912.31,"B","BY OUTSIDERS (ASLT)",8)=""
^DD(912.31,"B","BY PATIENT (CONT)",43)=""
^DD(912.31,"B","BY PATIENT (DIST)",58)=""
^DD(912.31,"B","BY PATIENT (MANS)",65)=""
^DD(912.31,"B","BY PATIENT (RAPE)",93)=""
^DD(912.31,"B","BY PATIENT (VAND)",155)=""
^DD(912.31,"B","BY PATIENT (VICE)",168)=""
^DD(912.31,"B","BY PATIENTS (ASLT)",9)=""
^DD(912.31,"B","BY UNKNOWN (ASLT)",10)=""
^DD(912.31,"B","BY UNKNOWN (CONT)",44)=""
^DD(912.31,"B","BY UNKNOWN (DIST)",59)=""
^DD(912.31,"B","BY UNKNOWN (MANS)",66)=""
^DD(912.31,"B","BY UNKNOWN (RAPE)",94)=""
^DD(912.31,"B","BY UNKNOWN (VAND)",156)=""
^DD(912.31,"B","BY UNKNOWN (VICE)",169)=""
^DD(912.31,"B","BY VISITOR (ASLT)",11)=""
^DD(912.31,"B","BY VISITOR (DIST)",60)=""
^DD(912.31,"B","BY VISITOR (MANS)",67)=""
^DD(912.31,"B","BY VISITOR (RAPE)",95)=""
^DD(912.31,"B","BY VISITOR (VAND)",157)=""
^DD(912.31,"B","BY VISITOR (VICE)",170)=""
^DD(912.31,"B","BY VISITORS (CONT)",45)=""
^DD(912.31,"B","CANTEEN",20)=""
^DD(912.31,"B","CASHIER",21)=""
^DD(912.31,"B","COIN-OPERATED MACHINES",120)=""
^DD(912.31,"B","CONTRABAND",28)=""
^DD(912.31,"B","CONTROLLED SUBSTANCES (AC)",125)=""
^DD(912.31,"B","CONTROLLED SUBSTANCES (AT)",127)=""
^DD(912.31,"B","COURTESY WARNINGS",172)=""
^DD(912.31,"B","DANGEROUS",3)=""
^DD(912.31,"B","DEMONSTRATIONS",48)=""
^DD(912.31,"B","DISORDERLY CONDUCT",49)=""
^DD(912.31,"B","DISTURBANCES",46)=""
^DD(912.31,"B","DRUG INTRODUCTION",30)=""
^DD(912.31,"B","DRUG POSSESSION",31)=""
^DD(912.31,"B","DRUG SALE",32)=""
^DD(912.31,"B","DRUGS ONLY (ROBBERY)",107)=""
^DD(912.31,"B","EMPLOYEE THREAT",50)=""
^DD(912.31,"B","EMPLOYEE VICTIM (ASLT)",12)=""
^DD(912.31,"B","EMPLOYEE VICTIM (MANS)",68)=""
^DD(912.31,"B","EMPLOYEE VICTIM (RAPE)",96)=""
^DD(912.31,"B","EXPLOSIVE DEV/AMMUN/COMBUST",39)=""
^DD(912.31,"B","FACILITY",.01)=""
^DD(912.31,"B","FIREARM POSSESSION",37)=""
^DD(912.31,"B","FORCIBLE RAPE",90)=""
^DD(912.31,"B","FORGED PRESCRIPTIONS",29)=""
^DD(912.31,"B","FORGERY",161)=""
^DD(912.31,"B","FRAUD",162)=""
^DD(912.31,"B","GAMBLING",163)=""
^DD(912.31,"B","GOVERNMENT MOTOR VEHICLE",143)=""
^DD(912.31,"B","GOVERNMENT VEHICLE",75)=""
^DD(912.31,"B","GOVERNMENT VEHICLES RECOVERED",146)=""
^DD(912.31,"B","INFORMATION ONLY",188)=""
^DD(912.31,"B","KIDNAPPING",4)=""
^DD(912.31,"B","KNIVES/HATCHETS/CLUBS/BRASS",38)=""
^DD(912.31,"B","LOCKER AREAS",22)=""
^DD(912.31,"B","MANSLAUGHTER/MURDER/NEGLIGENT",61)=""
^DD(912.31,"B","MANSLAUGHTER/MURDER/NON-NEG.",62)=""
^DD(912.31,"B","MISSING PATIENT REACTION",73)=""
^DD(912.31,"B","MOTOR VEHICLE ACCIDENT",74)=""
^DD(912.31,"B","NO WEAPON",5)=""
^DD(912.31,"B","NON-CONTROLLED SUBSTANCES (AC)",126)=""
^DD(912.31,"B","NON-CONTROLLED SUBSTANCES (AT)",128)=""
^DD(912.31,"B","NON-CRIMINAL INVESTIGATIONS",72)=""
^DD(912.31,"B","NON-PACKAGE STOPS",117)=""
^DD(912.31,"B","OF EMPLOYEES (ARST)",112)=""
^DD(912.31,"B","OF OUTSIDERS (ARST)",113)=""
^DD(912.31,"B","OF PATIENTS (ARST)",114)=""
^DD(912.31,"B","OF VISITORS (ARST)",115)=""
^DD(912.31,"B","OFFICE",23)=""
^DD(912.31,"B","OFFICER INJURY (ASLT)",13)=""
^DD(912.31,"B","OTHER OFFENSES",81)=""
^DD(912.31,"B","OTHER THREAT",51)=""
^DD(912.31,"B","OTHER WEAPON POSSESSION",40)=""
^DD(912.31,"B","OUTSIDER VICTIM (ASLT)",14)=""
^DD(912.31,"B","OUTSIDER VICTIM (MANS)",69)=""
^DD(912.31,"B","OUTSIDER VICTIM (RAPE)",97)=""
^DD(912.31,"B","PACKAGE STOPS",118)=""
^DD(912.31,"B","PATIENT VICTIM (ASLT)",15)=""
^DD(912.31,"B","PATIENT VICTIM (MANS)",70)=""
^DD(912.31,"B","PATIENT VICTIM (RAPE)",98)=""
^DD(912.31,"B","PERSONAL VEHICLE",76)=""
^DD(912.31,"B","PHARMACY",24)=""
^DD(912.31,"B","PHYSICAL ARRESTS",111)=""
^DD(912.31,"B","POSSESSION OF STOLEN PROPERTY",84)=""
^DD(912.31,"B","PRIVATE VEHICLES RECOVERED",150)=""
^DD(912.31,"B","RAPES",88)=""
^DD(912.31,"B","RECEIVE/SELL STOLEN PROPERTY",85)=""
^DD(912.31,"B","ROBBERY",100)=""
^DD(912.31,"B","SAFETY HAZARD",80)=""
^DD(912.31,"B","SEXUAL MISCONDUCT",165)=""
^DD(912.31,"B","SIMPLE",6)=""
^DD(912.31,"B","SMOKING VIOLATION",52)=""
^DD(912.31,"B","SOLICITATION/PROSTITUTION",164)=""
^DD(912.31,"B","STAFF ASSIST",78)=""
^DD(912.31,"B","STATION NUMBER",.02)=""
^DD(912.31,"B","STOPS & ARRESTS",110)=""
^DD(912.31,"B","STOPS FOR QUESTIONING",116)=""
^DD(912.31,"B","STRONG-ARMED ROBBERY",104)=""
^DD(912.31,"B","SUICIDE",86)=""
^DD(912.31,"B","SUICIDE ATTEMPT",87)=""
^DD(912.31,"B","THEFT OF GOVERNMENT PROPERTY",132)=""
^DD(912.31,"B","THEFT OF MOTOR VEHICLES",142)=""
^DD(912.31,"B","THEFT OF PERSONAL PROPERTY",137)=""
^DD(912.31,"B","THEFT OF PRIVATE VEHICLES",147)=""
^DD(912.31,"B","THEFTS",119)=""
^DD(912.31,"B","TICKET MOVING (USDC)",182)=""
^DD(912.31,"B","TICKET NON-TRAFFIC (USDC)",181)=""
^DD(912.31,"B","TICKET PARKING (USDC)",183)=""
^DD(912.31,"B","TO EMPLOYEES (USDC)",184)=""
^DD(912.31,"B","TO EMPLOYEES (WARN)",176)=""
^DD(912.31,"B","TO OUTSIDERS (USDC)",185)=""
^DD(912.31,"B","TO OUTSIDERS (WARN)",177)=""
^DD(912.31,"B","TO PATIENTS (USDC)",186)=""
^DD(912.31,"B","TO PATIENTS (WARN)",178)=""
^DD(912.31,"B","TO VISITORS (USDC)",187)=""
^DD(912.31,"B","TO VISITORS (WARN)",179)=""
^DD(912.31,"B","TOTAL $ LOSS (COIN)",121)=""
^DD(912.31,"B","TOTAL $ LOSS (DRUGS)",130)=""
^DD(912.31,"B","TOTAL $ LOSS (GOV'T)",135)=""
^DD(912.31,"B","TOTAL $ LOSS (PERSONAL)",140)=""
^DD(912.31,"B","TOTAL $ LOSS (ROBBERY)",108)=""
^DD(912.31,"B","TOTAL $ RECOVERED (COIN)",122)=""
^DD(912.31,"B","TOTAL $ RECOVERED (DRUGS)",131)=""
^DD(912.31,"B","TOTAL $ RECOVERED (GOV'T)",136)=""
^DD(912.31,"B","TOTAL $ RECOVERED (PERSONAL)",141)=""
^DD(912.31,"B","TOTAL $ RECOVERED (ROBBERY)",109)=""
^DD(912.31,"B","TOTAL DRUG THEFTS",129)=""
^DD(912.31,"B","TRESPASSING",53)=""
^DD(912.31,"B","UNAUTH/POSS/USE/KEYS/CARDS",55)=""
^DD(912.31,"B","UNAUTHORIZED PHOTOGRAPHY",54)=""
^DD(912.31,"B","UNDER THE INFLUENCE (ALCOHOL)",36)=""
^DD(912.31,"B","UNDER THE INFLUENCE (DRUGS)",33)=""
^DD(912.31,"B","UNKNOWN VICTIM (ASLT)",16)=""
^DD(912.31,"B","USDC NOTICE",180)=""
^DD(912.31,"B","VANDALISM",152)=""
^DD(912.31,"B","VANDALISM $ TOTAL",158)=""
^DD(912.31,"B","VEHICLE",25)=""
^DD(912.31,"B","VICE SOLICITING",159)=""
^DD(912.31,"B","VIOLATION CHARGES",171)=""
^DD(912.31,"B","VISITOR VICTIM (ASLT)",17)=""
^DD(912.31,"B","VISITOR VICTIM (MANS)",71)=""
^DD(912.31,"B","VISITOR VICTIM (RAPE)",99)=""
^DD(912.31,"B","WARNINGS MOVING",174)=""
^DD(912.31,"B","WARNINGS NON-TRAFFIC",173)=""
^DD(912.31,"B","WARNINGS PARKING",175)=""
^DD(912.31,"GL",0,1,.01)=""
^DD(912.31,"GL",0,2,.02)=""
^DD(912.31,"GL",1,1,1)=""
^DD(912.31,"GL",2,1,2)=""
^DD(912.31,"GL",3,1,3)=""
^DD(912.31,"GL",4,1,4)=""
^DD(912.31,"GL",5,1,5)=""
^DD(912.31,"GL",6,1,6)=""
^DD(912.31,"GL",7,1,7)=""
^DD(912.31,"GL",8,1,8)=""
^DD(912.31,"GL",9,1,9)=""
^DD(912.31,"GL",10,1,10)=""
^DD(912.31,"GL",11,1,11)=""
^DD(912.31,"GL",12,1,12)=""
^DD(912.31,"GL",13,1,13)=""
^DD(912.31,"GL",14,1,14)=""
^DD(912.31,"GL",15,1,15)=""
^DD(912.31,"GL",16,1,16)=""
^DD(912.31,"GL",17,1,17)=""
^DD(912.31,"GL",18,1,18)=""
^DD(912.31,"GL",19,1,19)=""
^DD(912.31,"GL",20,1,20)=""
^DD(912.31,"GL",21,1,21)=""
^DD(912.31,"GL",22,1,22)=""
^DD(912.31,"GL",23,1,23)=""
^DD(912.31,"GL",24,1,24)=""
^DD(912.31,"GL",25,1,25)=""
^DD(912.31,"GL",26,1,26)=""
^DD(912.31,"GL",27,1,27)=""
^DD(912.31,"GL",28,1,28)=""
^DD(912.31,"GL",29,1,29)=""
^DD(912.31,"GL",30,1,30)=""
^DD(912.31,"GL",31,1,31)=""
^DD(912.31,"GL",32,1,32)=""
^DD(912.31,"GL",33,1,33)=""
^DD(912.31,"GL",34,1,34)=""
^DD(912.31,"GL",35,1,35)=""
^DD(912.31,"GL",36,1,36)=""
^DD(912.31,"GL",37,1,37)=""
^DD(912.31,"GL",38,1,38)=""
^DD(912.31,"GL",39,1,39)=""
^DD(912.31,"GL",40,1,40)=""
^DD(912.31,"GL",41,1,41)=""
^DD(912.31,"GL",42,1,42)=""
^DD(912.31,"GL",43,1,43)=""
^DD(912.31,"GL",44,1,44)=""
^DD(912.31,"GL",45,1,45)=""
^DD(912.31,"GL",46,1,46)=""
^DD(912.31,"GL",47,1,47)=""
^DD(912.31,"GL",48,1,48)=""
^DD(912.31,"GL",49,1,49)=""
^DD(912.31,"GL",50,1,50)=""
^DD(912.31,"GL",51,1,51)=""
^DD(912.31,"GL",52,1,52)=""
^DD(912.31,"GL",53,1,53)=""
^DD(912.31,"GL",54,1,54)=""
^DD(912.31,"GL",55,1,55)=""
^DD(912.31,"GL",56,1,56)=""
^DD(912.31,"GL",57,1,57)=""
^DD(912.31,"GL",58,1,58)=""
^DD(912.31,"GL",59,1,59)=""
^DD(912.31,"GL",60,1,60)=""
^DD(912.31,"GL",61,1,61)=""
^DD(912.31,"GL",62,1,62)=""
^DD(912.31,"GL",63,1,63)=""
^DD(912.31,"GL",64,1,64)=""
^DD(912.31,"GL",65,1,65)=""
^DD(912.31,"GL",66,1,66)=""
^DD(912.31,"GL",67,1,67)=""
^DD(912.31,"GL",68,1,68)=""
^DD(912.31,"GL",69,1,69)=""
^DD(912.31,"GL",70,1,70)=""
^DD(912.31,"GL",71,1,71)=""
^DD(912.31,"GL",72,1,72)=""
^DD(912.31,"GL",73,1,73)=""
^DD(912.31,"GL",74,1,74)=""
^DD(912.31,"GL",75,1,75)=""
^DD(912.31,"GL",76,1,76)=""
^DD(912.31,"GL",77,1,77)=""
^DD(912.31,"GL",78,1,78)=""
^DD(912.31,"GL",79,1,79)=""
^DD(912.31,"GL",80,1,80)=""
^DD(912.31,"GL",81,1,81)=""
^DD(912.31,"GL",82,1,82)=""
^DD(912.31,"GL",83,1,83)=""
^DD(912.31,"GL",84,1,84)=""
^DD(912.31,"GL",85,1,85)=""
^DD(912.31,"GL",86,1,86)=""
^DD(912.31,"GL",87,1,87)=""
^DD(912.31,"GL",88,1,88)=""
^DD(912.31,"GL",89,1,89)=""
^DD(912.31,"GL",90,1,90)=""
^DD(912.31,"GL",91,1,91)=""
^DD(912.31,"GL",92,1,92)=""
^DD(912.31,"GL",93,1,93)=""
^DD(912.31,"GL",94,1,94)=""
^DD(912.31,"GL",95,1,95)=""
^DD(912.31,"GL",96,1,96)=""
^DD(912.31,"GL",97,1,97)=""
^DD(912.31,"GL",98,1,98)=""
^DD(912.31,"GL",99,1,99)=""
^DD(912.31,"GL",100,1,100)=""
^DD(912.31,"GL",101,1,101)=""
^DD(912.31,"GL",102,1,102)=""
^DD(912.31,"GL",103,1,103)=""
^DD(912.31,"GL",104,1,104)=""
^DD(912.31,"GL",105,1,105)=""
^DD(912.31,"GL",106,1,106)=""
^DD(912.31,"GL",107,1,107)=""
^DD(912.31,"GL",108,1,108)=""
^DD(912.31,"GL",109,1,109)=""
^DD(912.31,"GL",110,1,110)=""
^DD(912.31,"GL",111,1,111)=""
^DD(912.31,"GL",112,1,112)=""
^DD(912.31,"GL",113,1,113)=""
^DD(912.31,"GL",114,1,114)=""
^DD(912.31,"GL",115,1,115)=""
^DD(912.31,"GL",116,1,116)=""
^DD(912.31,"GL",117,1,117)=""
^DD(912.31,"GL",118,1,118)=""
^DD(912.31,"GL",119,1,119)=""
^DD(912.31,"GL",120,1,120)=""
^DD(912.31,"GL",121,1,121)=""
^DD(912.31,"GL",122,1,122)=""
^DD(912.31,"GL",123,1,123)=""
^DD(912.31,"GL",124,1,124)=""
^DD(912.31,"GL",125,1,125)=""
^DD(912.31,"GL",126,1,126)=""
^DD(912.31,"GL",127,1,127)=""
^DD(912.31,"GL",128,1,128)=""
^DD(912.31,"GL",129,1,129)=""
^DD(912.31,"GL",130,1,130)=""
^DD(912.31,"GL",131,1,131)=""
^DD(912.31,"GL",132,1,132)=""
^DD(912.31,"GL",133,1,133)=""
^DD(912.31,"GL",133.1,1,133.1)=""
^DD(912.31,"GL",134,1,134)=""
^DD(912.31,"GL",134.1,1,134.1)=""
^DD(912.31,"GL",135,1,135)=""
^DD(912.31,"GL",136,1,136)=""
^DD(912.31,"GL",137,1,137)=""
^DD(912.31,"GL",138,1,138)=""
^DD(912.31,"GL",138.1,1,138.1)=""
^DD(912.31,"GL",139,1,139)=""
^DD(912.31,"GL",139.1,1,139.1)=""
^DD(912.31,"GL",140,1,140)=""
^DD(912.31,"GL",141,1,141)=""
^DD(912.31,"GL",142,1,142)=""
^DD(912.31,"GL",143,1,143)=""
^DD(912.31,"GL",144,1,144)=""
^DD(912.31,"GL",145,1,145)=""
^DD(912.31,"GL",146,1,146)=""
^DD(912.31,"GL",147,1,147)=""
^DD(912.31,"GL",148,1,148)=""
^DD(912.31,"GL",149,1,149)=""
^DD(912.31,"GL",150,1,150)=""
^DD(912.31,"GL",151,1,151)=""
^DD(912.31,"GL",152,1,152)=""
^DD(912.31,"GL",153,1,153)=""
^DD(912.31,"GL",154,1,154)=""
^DD(912.31,"GL",155,1,155)=""
^DD(912.31,"GL",156,1,156)=""
^DD(912.31,"GL",157,1,157)=""
^DD(912.31,"GL",158,1,158)=""
^DD(912.31,"GL",159,1,159)=""
^DD(912.31,"GL",160,1,160)=""
^DD(912.31,"GL",161,1,161)=""
^DD(912.31,"GL",162,1,162)=""
^DD(912.31,"GL",163,1,163)=""
^DD(912.31,"GL",164,1,164)=""
^DD(912.31,"GL",165,1,165)=""
^DD(912.31,"GL",166,1,166)=""
^DD(912.31,"GL",167,1,167)=""
^DD(912.31,"GL",168,1,168)=""
^DD(912.31,"GL",169,1,169)=""
^DD(912.31,"GL",170,1,170)=""
^DD(912.31,"GL",171,1,171)=""
^DD(912.31,"GL",172,1,172)=""
^DD(912.31,"GL",173,1,173)=""
^DD(912.31,"GL",174,1,174)=""
^DD(912.31,"GL",175,1,175)=""
^DD(912.31,"GL",176,1,176)=""
^DD(912.31,"GL",177,1,177)=""
^DD(912.31,"GL",178,1,178)=""
^DD(912.31,"GL",179,1,179)=""
^DD(912.31,"GL",180,1,180)=""
^DD(912.31,"GL",181,1,181)=""
^DD(912.31,"GL",182,1,182)=""
^DD(912.31,"GL",183,1,183)=""
^DD(912.31,"GL",184,1,184)=""
^DD(912.31,"GL",185,1,185)=""
^DD(912.31,"GL",186,1,186)=""
^DD(912.31,"GL",187,1,187)=""
^DD(912.31,"GL",188,1,188)=""
^DD(912.31,"IX",.01)=""
^DD(912.4,0)="FIELD^^10^3"
^DD(912.4,0,"DDA")="N"
^DD(912.4,0,"DT")="2980421"
^DD(912.4,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(912.4,0,"IX","B",912.4,.01)=""
^DD(912.4,0,"NM","ESP CRIME DATA")=""
^DD(912.4,0,"VR")="1.0"
^DD(912.4,0,"VRPK")="ES"
^DD(912.4,.01,0)="BEGINNING DATE^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(912.4,.01,1,0)="^.1"
^DD(912.4,.01,1,1,0)="912.4^B"
^DD(912.4,.01,1,1,1)="S ^ESP(912.4,""B"",$E(X,1,30),DA)="""""
^DD(912.4,.01,1,1,2)="K ^ESP(912.4,""B"",$E(X,1,30),DA)"
^DD(912.4,.01,3)="This field indicates the beginning date of the generated report"
^DD(912.4,.01,21,0)="^^1^1^2930218^^^"
^DD(912.4,.01,21,1,0)="This field will indicate the beginning date of the generated report."
^DD(912.4,.01,"DT")="2930218"
^DD(912.4,.02,0)="ENDING DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(912.4,.02,3)="This is the ending date of the generated report."
^DD(912.4,.02,21,0)="^^4^4^2930218^"
^DD(912.4,.02,21,1,0)="This is the ending date of the generated report."
^DD(912.4,.02,21,2,0)="This field is stuffed when running the Uniform Crime"
^DD(912.4,.02,21,3,0)="Report option with the date entered at the ""Ending Date"""
^DD(912.4,.02,21,4,0)="prompt."
^DD(912.4,.02,"DT")="2930218"
^DD(912.4,10,0)="INSTITUTION^912.41^^1;0"
^DD(912.4,10,21,0)="^^1^1^2920930^"
^DD(912.4,10,21,1,0)="This field will indicate the local field station generating the report."
^DD(912.4,"B","BEGINNING DATE",.01)=""
^DD(912.4,"B","ENDING DATE",.02)=""
^DD(912.4,"B","INSTITUTION",10)=""
^DD(912.4,"GL",0,1,.01)=""
^DD(912.4,"GL",0,2,.02)=""
^DD(912.4,"GL",1,0,10)=""
^DD(912.4,"IX",.01)=""
^DD(912.4,"RQ",.01)=""
^DD(912.4,"SB",912.41,10)=""
^DD(912.41,0)="INSTITUTION SUB-FIELD^^188^194"
^DD(912.41,0,"DT")="2980421"
^DD(912.41,0,"IX","B",912.41,.01)=""
^DD(912.41,0,"NM","INSTITUTION")=""
^DD(912.41,0,"UP")="912.4"
^DD(912.41,.01,0)="INSTITUTION^F^^0;1^K:$L(X)>35!($L(X)<3) X"
^DD(912.41,.01,1,0)="^.1"
^DD(912.41,.01,1,1,0)="912.41^B"
^DD(912.41,.01,1,1,1)="S ^ESP(912.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(912.41,.01,1,1,2)="K ^ESP(912.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(912.41,.01,3)="Indicates the field station generating the report."
^DD(912.41,.01,21,0)="^^1^1^2920930^"
^DD(912.41,.01,21,1,0)="Indicates the field station generating the report."
^DD(912.41,.01,"DT")="2920924"
^DD(912.41,.02,0)="STATION NUMBER^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<3)!'(X?3N.AN) X"
^DD(912.41,.02,3)="Answer must be 3-7 characters in length."
^DD(912.41,.02,21,0)="^^1^1^2930930^"
^DD(912.41,.02,21,1,0)="This is the 3 digit station number plus any modifiers."
^DD(912.41,.02,"DT")="2930930"
^DD(912.41,1,0)="ASSAULTS^NJ6,0^^1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,1,"DT")="2920929"
^DD(912.41,2,0)="AGGRAVATED^NJ6,0^^2;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,2,"DT")="2921021"
^DD(912.41,3,0)="DANGEROUS^NJ6,0^^3;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,3,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,3,"DT")="2920929"
^DD(912.41,4,0)="KIDNAPPING^NJ6,0^^4;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,4,"DT")="2920929"
^DD(912.41,5,0)="NO WEAPON^NJ6,0^^5;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,5,"DT")="2920929"
^DD(912.41,6,0)="SIMPLE^NJ6,0^^6;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,6,"DT")="2920929"
^DD(912.41,7,0)="BY EMPLOYEES (ASLT)^NJ6,0^^7;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,7,.1)=""
^DD(912.41,7,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,7,"DT")="2920929"
^DD(912.41,8,0)="BY OUTSIDERS (ASLT)^NJ6,0^^8;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,8,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,8,"DT")="2920929"
^DD(912.41,9,0)="BY PATIENTS (ASLT)^NJ6,0^^9;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,9,"DT")="2920929"
^DD(912.41,10,0)="BY UNKNOWN (ASLT)^NJ6,0^^10;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,10,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,10,"DT")="2921207"
^DD(912.41,11,0)="BY VISITOR (ASLT)^NJ6,0^^11;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,11,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,11,"DT")="2920929"
^DD(912.41,12,0)="EMPLOYEE VICTIM (ASLT)^NJ6,0^^12;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,12,"DT")="2920929"
^DD(912.41,13,0)="OFFICER INJURY (ASLT)^NJ6,0^^13;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,13,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,13,"DT")="2921005"
^DD(912.41,14,0)="OUTSIDER VICTIM (ASLT)^NJ6,0^^14;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,14,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,14,"DT")="2920929"
^DD(912.41,15,0)="PATIENT VICTIM (ASLT)^NJ6,0^^15;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,15,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,15,"DT")="2921207"
^DD(912.41,16,0)="UNKNOWN VICTIM (ASLT)^NJ6,0^^16;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,16,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,16,"DT")="2921207"
^DD(912.41,17,0)="VISITOR VICTIM (ASLT)^NJ6,0^^17;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,17,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,17,"DT")="2921207"
^DD(912.41,18,0)="BURGLARIES^NJ6,0^^18;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,18,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,18,"DT")="2920929"
^DD(912.41,19,0)="ALL OTHER AREAS^NJ6,0^^19;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,19,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,19,"DT")="2920929"
^DD(912.41,20,0)="CANTEEN^NJ6,0^^20;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,20,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,20,"DT")="2920929"
^DD(912.41,21,0)="CASHIER^NJ6,0^^21;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,21,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,21,"DT")="2920929"
^DD(912.41,22,0)="LOCKER AREAS^NJ6,0^^22;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,22,.1)=""
^DD(912.41,22,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,22,"DT")="2920929"
^DD(912.41,23,0)="OFFICE^NJ6,0^^23;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,23,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,23,"DT")="2920929"
^DD(912.41,24,0)="PHARMACY^NJ6,0^^24;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,24,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,24,"DT")="2920929"
^DD(912.41,25,0)="VEHICLE^NJ6,0^^25;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,25,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,25,"DT")="2920929"
^DD(912.41,26,0)="$ LOSS (BURGLARY)^NJ9,2^^26;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,26,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,26,"DT")="2920929"
^DD(912.41,27,0)="$ RECOVERED (BURGLARY)^NJ9,2^^27;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,27,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,27,"DT")="2920929"
^DD(912.41,28,0)="CONTRABAND^NJ6,0^^28;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,28,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,28,"DT")="2920929"
^DD(912.41,29,0)="FORGED PRESCRIPTIONS^NJ6,0^^29;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,29,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,29,"DT")="2920929"
^DD(912.41,30,0)="DRUG INTRODUCTION^NJ6,0^^30;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,30,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,30,"DT")="2920929"
^DD(912.41,31,0)="DRUG POSSESSION^NJ6,0^^31;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,31,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,31,"DT")="2920929"
^DD(912.41,32,0)="DRUG SALE^NJ6,0^^32;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,32,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,32,"DT")="2920929"
^DD(912.41,33,0)="UNDER THE INFLUENCE (DRUGS)^NJ6,0^^33;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,33,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,33,"DT")="2921021"
^DD(912.41,34,0)="ALCOHOL INTRODUCTION^NJ6,0^^34;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,34,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,34,"DT")="2921021"
^DD(912.41,35,0)="ALCOHOL POSSESSION^NJ6,0^^35;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,35,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,35,"DT")="2921021"
^DD(912.41,36,0)="UNDER THE INFLUENCE (ALCOHOL)^NJ6,0^^36;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,36,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,36,"DT")="2921021"
^DD(912.41,37,0)="FIREARM POSSESSION^NJ6,0^^37;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,37,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,37,"DT")="2921021"
^DD(912.41,38,0)="KNIVES/HATCHETS/CLUBS/BRASS^NJ6,0^^38;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,38,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,38,"DT")="2921021"
^DD(912.41,39,0)="EXPLOSIVE DEV/AMMUN/COMBUST^NJ6,0^^39;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,39,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,39,"DT")="2921021"
^DD(912.41,40,0)="OTHER WEAPON POSSESSION^NJ6,0^^40;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,40,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,40,"DT")="2921021"
^DD(912.41,41,0)="BY EMPLOYEE (CONT)^NJ6,0^^41;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,41,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,41,"DT")="2921021"
^DD(912.41,42,0)="BY OUTSIDER (CONT)^NJ6,0^^42;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,42,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,42,"DT")="2921021"
^DD(912.41,43,0)="BY PATIENT (CONT)^NJ6,0^^43;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,43,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,43,"DT")="2921021"
^DD(912.41,44,0)="BY UNKNOWN (CONT)^NJ6,0^^44;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,44,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,44,"DT")="2921021"
^DD(912.41,45,0)="BY VISITORS (CONT)^NJ6,0^^45;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,45,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,45,"DT")="2921021"
^DD(912.41,46,0)="DISTURBANCES^NJ6,0^^46;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,46,.1)=""
^DD(912.41,46,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,46,"AUDIT")=""
^DD(912.41,46,"DT")="2921021"
^DD(912.41,47,0)="BOMB THREAT^NJ6,0^^47;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,47,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,47,"DT")="2921021"
^DD(912.41,48,0)="DEMONSTRATIONS^NJ6,0^^48;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,48,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,48,"DT")="2921021"
^DD(912.41,49,0)="DISORDERLY CONDUCT^NJ6,0^^49;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,49,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,49,"DT")="2921021"
^DD(912.41,50,0)="EMPLOYEE THREAT^NJ6,0^^50;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,50,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,50,"DT")="2921021"
^DD(912.41,51,0)="OTHER THREAT^NJ6,0^^51;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,51,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,51,"DT")="2921021"
^DD(912.41,52,0)="SMOKING VIOLATION^NJ6,0^^52;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,52,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,52,"DT")="2921021"
^DD(912.41,53,0)="TRESPASSING^NJ6,0^^53;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,53,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,53,"DT")="2930208"
^DD(912.41,54,0)="UNAUTHORIZED PHOTOGRAPHY^NJ6,0^^54;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,54,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,54,"DT")="2930208"
^DD(912.41,55,0)="UNAUTH/POSS/USE/KEYS/CARDS^NJ6,0^^55;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,55,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,55,"DT")="2930208"
^DD(912.41,56,0)="BY EMPLOYEE (DIST)^NJ6,0^^56;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,56,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,56,"DT")="2930208"
^DD(912.41,57,0)="BY OUTSIDER (DIST)^NJ6,0^^57;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,57,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,57,"DT")="2930208"
^DD(912.41,58,0)="BY PATIENT (DIST)^NJ6,0^^58;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,58,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,58,"DT")="2930208"
^DD(912.41,59,0)="BY UNKNOWN (DIST)^NJ6,0^^59;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,59,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,59,"DT")="2930208"
^DD(912.41,60,0)="BY VISITOR (DIST)^NJ6,0^^60;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,60,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,60,"DT")="2930208"
^DD(912.41,61,0)="MANSLAUGHTER/MURDER/NEGLIGENT^NJ6,0^^61;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,61,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,61,"DT")="2930208"
^DD(912.41,62,0)="MANSLAUGHTER/MURDER/NON-NEG.^NJ6,0^^62;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,62,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,62,"DT")="2930208"
^DD(912.41,63,0)="BY EMPLOYEE (MANS)^NJ6,0^^63;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,63,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,63,"DT")="2930208"
^DD(912.41,64,0)="BY OUTSIDER (MANS)^NJ6,0^^64;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,64,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,64,"DT")="2930208"
^DD(912.41,65,0)="BY PATIENT (MANS)^NJ6,0^^65;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,65,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,65,"DT")="2930208"
^DD(912.41,66,0)="BY UNKNOWN (MANS)^NJ6,0^^66;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,66,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,66,"DT")="2930208"
^DD(912.41,67,0)="BY VISITOR (MANS)^NJ6,0^^67;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,67,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,67,"DT")="2930208"
^DD(912.41,68,0)="EMPLOYEE VICTIM (MANS)^NJ6,0^^68;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,68,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,68,"DT")="2930208"
^DD(912.41,69,0)="OUTSIDER VICTIM (MANS)^NJ6,0^^69;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,69,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,69,"DT")="2930208"
^DD(912.41,70,0)="PATIENT VICTIM (MANS)^NJ6,0^^70;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,70,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,70,"DT")="2930208"
^DD(912.41,71,0)="VISITOR VICTIM (MANS)^NJ6,0^^71;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,71,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,71,"DT")="2930208"
^DD(912.41,72,0)="NON-CRIMINAL INVESTIGATIONS^NJ6,0^^72;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,72,.1)=""
^DD(912.41,72,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,72,"DT")="2930208"
^DD(912.41,73,0)="MISSING PATIENT REACTION^NJ6,0^^73;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,73,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,73,"DT")="2930208"
^DD(912.41,74,0)="MOTOR VEHICLE ACCIDENT^NJ6,0^^74;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,74,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,74,"DT")="2930208"
^DD(912.41,75,0)="GOVERNMENT VEHICLE^NJ6,0^^75;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,75,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,75,"DT")="2930208"
^DD(912.41,76,0)="PERSONAL VEHICLE^NJ6,0^^76;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,76,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,76,"DT")="2930208"
^DD(912.41,77,0)="ASSIST LAW OFFICER^NJ6,0^^77;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,77,.1)=""
^DD(912.41,77,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,77,"DT")="2930208"
^DD(912.41,78,0)="STAFF ASSIST^NJ9,2^^78;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,78,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,78,"DT")="2930208"
^DD(912.41,79,0)="ALARM RESPONSE^NJ6,0^^79;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,79,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,79,"DT")="2930208"
^DD(912.41,80,0)="SAFETY HAZARD^NJ6,0^^80;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,80,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,80,"DT")="2930208"
^DD(912.41,81,0)="OTHER OFFENSES^NJ6,0^^81;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,81,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,81,"DT")="2930208"
^DD(912.41,82,0)="ARSON^NJ6,0^^82;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,82,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,82,"DT")="2930208"
^DD(912.41,83,0)="ARSON $ DAMAGE^NJ9,2^^83;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,83,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,83,"DT")="2930208"
^DD(912.41,84,0)="POSSESSION OF STOLEN PROPERTY^NJ6,0^^84;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,84,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,84,"DT")="2930208"
^DD(912.41,85,0)="RECEIVE/SELL STOLEN PROPERTY^NJ6,0^^85;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,85,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,85,"DT")="2930208"
^DD(912.41,86,0)="SUICIDE^NJ6,0^^86;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,86,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,86,"DT")="2930208"
^DD(912.41,87,0)="SUICIDE ATTEMPT^NJ6,0^^87;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,87,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,87,"DT")="2930208"
^DD(912.41,88,0)="RAPES^NJ6,0^^88;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,88,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,88,"DT")="2921021"
^DD(912.41,89,0)="ATTEMPTED RAPE^NJ6,0^^89;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,89,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,89,"DT")="2921021"
^DD(912.41,90,0)="FORCIBLE RAPE^NJ6,0^^90;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,90,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,90,"DT")="2921021"
^DD(912.41,91,0)="BY EMPLOYEE (RAPE)^NJ6,0^^91;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,91,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,91,"DT")="2921021"
^DD(912.41,92,0)="BY OUTSIDER (RAPE)^NJ6,0^^92;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,92,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,92,"DT")="2921021"
^DD(912.41,93,0)="BY PATIENT (RAPE)^NJ6,0^^93;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,93,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,93,"DT")="2921021"
^DD(912.41,94,0)="BY UNKNOWN (RAPE)^NJ6,0^^94;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,94,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,94,"DT")="2921021"
^DD(912.41,95,0)="BY VISITOR (RAPE)^NJ6,0^^95;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,95,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,95,"DT")="2921021"
^DD(912.41,96,0)="EMPLOYEE VICTIM (RAPE)^NJ6,0^^96;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,96,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,96,"DT")="2921021"
^DD(912.41,97,0)="OUTSIDER VICTIM (RAPE)^NJ9,2^^97;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(912.41,97,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(912.41,97,"DT")="2921021"
^DD(912.41,98,0)="PATIENT VICTIM (RAPE)^NJ6,0^^98;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,98,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,98,"DT")="2921021"
^DD(912.41,99,0)="VISITOR VICTIM (RAPE)^NJ6,0^^99;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,99,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,99,"DT")="2921021"
^DD(912.41,100,0)="ROBBERY^NJ6,0^^100;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,100,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,100,"DT")="2921021"
^DD(912.41,101,0)="ARMED ROBBERY^NJ6,0^^101;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,101,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,101,"DT")="2921021"
^DD(912.41,102,0)="$100 & ABOVE (A-ROBBERY)^NJ6,0^^102;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,102,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,102,"DT")="2930203"
^DD(912.41,103,0)="<$100 (A-ROBBERY)^NJ6,0^^103;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,103,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,103,"DT")="2930203"
^DD(912.41,104,0)="STRONG-ARMED ROBBERY^NJ6,0^^104;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,104,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,104,"DT")="2921207"
^DD(912.41,105,0)="$100 & ABOVE (S-A ROBBERY)^NJ6,0^^105;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,105,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,105,"DT")="2930203"
^DD(912.41,106,0)="<$100 (S-A ROBBERY)^NJ9,2^^106;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,106,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,106,"DT")="2930203"
^DD(912.41,107,0)="DRUGS ONLY (ROBBERY)^NJ9,2^^107;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,107,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,107,"DT")="2921207"
^DD(912.41,108,0)="TOTAL $ LOSS (ROBBERY)^NJ6,0^^108;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,108,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,108,"DT")="2921207"
^DD(912.41,109,0)="TOTAL $ RECOVERED (ROBBERY)^NJ9,2^^109;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,109,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,109,"DT")="2921207"
^DD(912.41,110,0)="STOPS & ARRESTS^NJ6,0^^110;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,110,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,110,"DT")="2921207"
^DD(912.41,111,0)="PHYSICAL ARRESTS^NJ6,0^^111;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,111,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,111,"DT")="2921207"
^DD(912.41,112,0)="OF EMPLOYEES (ARST)^NJ9,2^^112;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,112,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,112,"DT")="2921207"
^DD(912.41,113,0)="OF OUTSIDERS (ARST)^NJ9,2^^113;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,113,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,113,"DT")="2921211"
^DD(912.41,114,0)="OF PATIENTS (ARST)^NJ6,0^^114;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,114,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,114,"DT")="2921211"
^DD(912.41,115,0)="OF VISITORS (ARST)^NJ6,0^^115;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,115,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,115,"DT")="2921207"
^DD(912.41,116,0)="STOPS FOR QUESTIONING^NJ6,0^^116;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,116,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,116,"DT")="2921207"
^DD(912.41,117,0)="NON-PACKAGE STOPS^NJ6,0^^117;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,117,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,117,"DT")="2921207"
^DD(912.41,118,0)="PACKAGE STOPS^NJ9,2^^118;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,118,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,118,"DT")="2921207"
^DD(912.41,119,0)="THEFTS^NJ9,2^^119;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,119,.1)=""
^DD(912.41,119,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,119,"DT")="2921207"
^DD(912.41,120,0)="COIN-OPERATED MACHINES^NJ9,2^^120;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,120,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,120,"DT")="2921207"
^DD(912.41,121,0)="TOTAL $ LOSS (COIN)^NJ9,2^^121;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,121,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,121,"DT")="2921207"
^DD(912.41,122,0)="TOTAL $ RECOVERED (COIN)^NJ6,0^^122;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,122,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,122,"DT")="2921207"
^DD(912.41,123,0)="ACTUAL DRUG THEFT^NJ6,0^^123;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,123,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,123,"DT")="2921207"
^DD(912.41,124,0)="ATTEMPTED DRUG THEFT^NJ6,0^^124;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,124,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,124,"DT")="2921207"
^DD(912.41,125,0)="CONTROLLED SUBSTANCES (AC)^NJ9,2^^125;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,125,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,125,"DT")="2921211"
^DD(912.41,126,0)="NON-CONTROLLED SUBSTANCES (AC)^NJ9,2^^126;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,126,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,126,"DT")="2921211"
^DD(912.41,127,0)="CONTROLLED SUBSTANCES (AT)^NJ6,0^^127;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,127,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,127,"DT")="2921211"
^DD(912.41,128,0)="NON-CONTROLLED SUBSTANCES (AT)^NJ6,0^^128;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,128,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,128,"DT")="2921211"
^DD(912.41,129,0)="TOTAL DRUG THEFTS^NJ6,0^^129;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,129,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,129,"DT")="2921207"
^DD(912.41,130,0)="TOTAL $ LOSS (DRUGS)^NJ6,0^^130;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,130,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,130,"DT")="2921211"
^DD(912.41,131,0)="TOTAL $ RECOVERED (DRUGS)^NJ9,2^^131;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,131,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,131,"DT")="2921211"
^DD(912.41,132,0)="THEFT OF GOVERNMENT PROPERTY^NJ9,2^^132;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,132,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,132,"DT")="2921211"
^DD(912.41,133,0)="$100 & ABOVE (GOV'T)^NJ6,0^^133;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,133,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,133,"DT")="2930203"
^DD(912.41,133.1,0)="$1000 & ABOVE (GOV'T)^NJ6,0^^133.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,133.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,133.1,21,0)="^^2^2^2980421^"
^DD(912.41,133.1,21,1,0)="The number of file #912 records which contained"
^DD(912.41,133.1,21,2,0)="a SUBTYPE of ABOVE $1000 (GOV'T)."
^DD(912.41,133.1,"DT")="2980421"
^DD(912.41,134,0)="<$100 (GOV'T)^NJ9,2^^134;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,134,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,134,"DT")="2930203"
^DD(912.41,134.1,0)="<$1000 (GOV'T)^NJ6,0^^134.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,134.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,134.1,21,0)="^^2^2^2980421^"
^DD(912.41,134.1,21,1,0)="The number of file #912 records which contained"
^DD(912.41,134.1,21,2,0)="a SUBTYPE of BELOW $1000 (GOV'T)."
^DD(912.41,134.1,"DT")="2980421"
^DD(912.41,135,0)="TOTAL $ LOSS (GOV'T)^NJ9,2^^135;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,135,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,135,"DT")="2921211"
^DD(912.41,136,0)="TOTAL $ RECOVERED (GOV'T)^NJ9,2^^136;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,136,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,136,"DT")="2921211"
^DD(912.41,137,0)="THEFT OF PERSONAL PROPERTY^NJ9,2^^137;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,137,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,137,"DT")="2921211"
^DD(912.41,138,0)="$100 & ABOVE (PERSONAL)^NJ6,0^^138;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,138,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,138,"DT")="2930203"
^DD(912.41,138.1,0)="$1000 & ABOVE (PERSONAL)^NJ6,0^^138.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,138.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,138.1,21,0)="^^2^2^2980421^"
^DD(912.41,138.1,21,1,0)="The number of file #912 records which contained"
^DD(912.41,138.1,21,2,0)="a SUBTYPE of ABOVE $1000 (PERSONAL)."
^DD(912.41,138.1,"DT")="2980421"
^DD(912.41,139,0)="<$100 (PERSONAL)^NJ9,2^^139;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(912.41,139,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(912.41,139,"DT")="2930203"
^DD(912.41,139.1,0)="<$1000 (PERSONAL)^NJ6,0^^139.1;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,139.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,139.1,21,0)="^^2^2^2980421^"
^DD(912.41,139.1,21,1,0)="The number of file #912 records which contained"
^DD(912.41,139.1,21,2,0)="a SUBTYPE of BELOW $1000 (PERSONAL)."
^DD(912.41,139.1,"DT")="2980421"
^DD(912.41,140,0)="TOTAL $ LOSS (PERSONAL)^NJ9,2^^140;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,140,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,140,"DT")="2921211"
^DD(912.41,141,0)="TOTAL $ RECOVERED (PERSONAL)^NJ9,2^^141;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,141,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,141,"DT")="2921211"
^DD(912.41,142,0)="THEFT OF MOTOR VEHICLES^NJ6,0^^142;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,142,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,142,"DT")="2921211"
^DD(912.41,143,0)="GOVERNMENT MOTOR VEHICLE^NJ6,0^^143;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,143,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,143,"DT")="2921211"
^DD(912.41,144,0)="$ LOSS (GOV'T VEH)^NJ9,2^^144;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,144,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,144,"DT")="2921211"
^DD(912.41,145,0)="$ RECOVERED (GOV'T VEH)^NJ9,2^^145;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,145,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,145,"DT")="2921211"
^DD(912.41,146,0)="GOVERNMENT VEHICLES RECOVERED^NJ6,0^^146;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,146,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,146,"DT")="2921211"
^DD(912.41,147,0)="THEFT OF PRIVATE VEHICLES^NJ9,2^^147;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,147,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,147,"DT")="2921211"
^DD(912.41,148,0)="$ LOSS (PRIVATE VEH)^NJ6,0^^148;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,148,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,148,"DT")="2921211"
^DD(912.41,149,0)="$ RECOVERED (PRIVATE VEH)^NJ9,2^^149;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,149,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,149,"DT")="2921211"
^DD(912.41,150,0)="PRIVATE VEHICLES RECOVERED^NJ6,0^^150;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,150,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,150,"DT")="2921211"
^DD(912.41,151,0)="$ RECOVERED ALL THEFTS^NJ9,2^^151;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,151,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,151,"DT")="2921211"
^DD(912.41,152,0)="VANDALISM^NJ6,0^^152;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,152,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,152,"DT")="2921211"
^DD(912.41,153,0)="BY EMPLOYEE (VAND)^NJ6,0^^153;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,153,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,153,"DT")="2921211"
^DD(912.41,154,0)="BY OUTSIDER (VAND)^NJ9,2^^154;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,154,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,154,"DT")="2921211"
^DD(912.41,155,0)="BY PATIENT (VAND)^NJ6,0^^155;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,155,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,155,"DT")="2921211"
^DD(912.41,156,0)="BY UNKNOWN (VAND)^NJ6,0^^156;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,156,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,156,"DT")="2921211"
^DD(912.41,157,0)="BY VISITOR (VAND)^NJ6,0^^157;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,157,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,157,"DT")="2921211"
^DD(912.41,158,0)="VANDALISM $ TOTAL^NJ9,2^^158;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(912.41,158,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(912.41,158,"DT")="2921211"
^DD(912.41,159,0)="VICE SOLICITING^NJ6,0^^159;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,159,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,159,"DT")="2921211"
^DD(912.41,160,0)="BRIBERY^NJ6,0^^160;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,160,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,160,"DT")="2921211"
^DD(912.41,161,0)="FORGERY^NJ6,0^^161;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,161,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,161,"DT")="2921211"
^DD(912.41,162,0)="FRAUD^NJ6,0^^162;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,162,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,162,"DT")="2921211"
^DD(912.41,163,0)="GAMBLING^NJ6,0^^163;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,163,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,163,"DT")="2921211"
^DD(912.41,164,0)="SOLICITATION/PROSTITUTION^NJ6,0^^164;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,164,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,164,"DT")="2921211"
^DD(912.41,165,0)="SEXUAL MISCONDUCT^NJ6,0^^165;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,165,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,165,"DT")="2921211"
^DD(912.41,166,0)="BY EMPLOYEE (VICE)^NJ6,0^^166;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,166,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,166,"DT")="2921211"
^DD(912.41,167,0)="BY OUTSIDER (VICE)^NJ6,0^^167;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,167,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,167,"DT")="2921211"
^DD(912.41,168,0)="BY PATIENT (VICE)^NJ6,0^^168;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,168,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,168,"DT")="2921211"
^DD(912.41,169,0)="BY UNKNOWN (VICE)^NJ6,0^^169;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,169,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,169,"DT")="2921211"
^DD(912.41,170,0)="BY VISITOR (VICE)^NJ6,0^^170;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,170,.1)=""
^DD(912.41,170,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,170,"DT")="2921211"
^DD(912.41,171,0)="VIOLATION CHARGES^NJ6,0^^171;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,171,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,171,"DT")="2921211"
^DD(912.41,172,0)="COURTESY WARNINGS^NJ6,0^^172;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,172,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,172,"DT")="2921211"
^DD(912.41,173,0)="WARNINGS NON-TRAFFIC^NJ6,0^^173;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,173,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,173,"DT")="2921211"
^DD(912.41,174,0)="WARNINGS MOVING^NJ6,0^^174;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,174,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,174,"DT")="2921211"
^DD(912.41,175,0)="WARNINGS PARKING^NJ6,0^^175;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,175,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,175,"DT")="2921211"
^DD(912.41,176,0)="TO EMPLOYEES (WARN)^NJ6,0^^176;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,176,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,176,"DT")="2921211"
^DD(912.41,177,0)="TO OUTSIDERS (WARN)^NJ6,0^^177;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,177,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,177,"DT")="2921211"
^DD(912.41,178,0)="TO PATIENTS (WARN)^NJ6,0^^178;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,178,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,178,"DT")="2921211"
^DD(912.41,179,0)="TO VISITORS (WARN)^NJ6,0^^179;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,179,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,179,"DT")="2921211"
^DD(912.41,180,0)="USDC NOTICE^NJ6,0^^180;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,180,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,180,"DT")="2921211"
^DD(912.41,181,0)="TICKET NON-TRAFFIC (USDC)^NJ6,0^^181;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,181,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,181,"DT")="2921211"
^DD(912.41,182,0)="TICKET MOVING (USDC)^NJ6,0^^182;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,182,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,182,"DT")="2921211"
^DD(912.41,183,0)="TICKET PARKING (USDC)^NJ6,0^^183;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(912.41,183,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(912.41,183,"DT")="2921211"
^DD(912.41,184,0)="TO EMPLOYEES (USDC)^NJ6,0^^184;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.41,184,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.41,184,"DT")="2921211"
^DD(912.41,185,0)="TO OUTSIDERS (USDC)^NJ6,0^^185;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.41,185,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.41,185,"DT")="2921211"
^DD(912.41,186,0)="TO PATIENTS (USDC)^NJ6,0^^186;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.41,186,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.41,186,"DT")="2921211"
^DD(912.41,187,0)="TO VISITORS (USDC)^NJ6,0^^187;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.41,187,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.41,187,"DT")="2921211"
^DD(912.41,188,0)="INFORMATION ONLY^NJ6,0^^188;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.41,188,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(912.41,188,"DT")="2940113"
^DD(912.41,"B","$ LOSS (BURGLARY)",26)=""
^DD(912.41,"B","$ LOSS (GOV'T VEH)",144)=""
^DD(912.41,"B","$ LOSS (PRIVATE VEH)",148)=""
^DD(912.41,"B","$ RECOVERED (BURGLARY)",27)=""
^DD(912.41,"B","$ RECOVERED (GOV'T VEH)",145)=""
^DD(912.41,"B","$ RECOVERED (PRIVATE VEH)",149)=""
^DD(912.41,"B","$ RECOVERED ALL THEFTS",151)=""
^DD(912.41,"B","$100 & ABOVE (A-ROBBERY)",102)=""
^DD(912.41,"B","$100 & ABOVE (GOV'T)",133)=""
^DD(912.41,"B","$100 & ABOVE (PERSONAL)",138)=""
^DD(912.41,"B","$100 & ABOVE (S-A ROBBERY)",105)=""
^DD(912.41,"B","$1000 & ABOVE (GOV'T)",133.1)=""
^DD(912.41,"B","$1000 & ABOVE (PERSONAL)",138.1)=""
^DD(912.41,"B","<$100 (A-ROBBERY)",103)=""
^DD(912.41,"B","<$100 (GOV'T)",134)=""
^DD(912.41,"B","<$100 (PERSONAL)",139)=""
^DD(912.41,"B","<$100 (S-A ROBBERY)",106)=""
^DD(912.41,"B","<$1000 (GOV'T)",134.1)=""
^DD(912.41,"B","<$1000 (PERSONAL)",139.1)=""
^DD(912.41,"B","ACTUAL DRUG THEFT",123)=""
^DD(912.41,"B","AGGRAVATED",2)=""
^DD(912.41,"B","ALARM RESPONSE",79)=""
^DD(912.41,"B","ALCOHOL INTRODUCTION",34)=""
^DD(912.41,"B","ALCOHOL POSSESSION",35)=""
^DD(912.41,"B","ALL OTHER AREAS",19)=""
^DD(912.41,"B","ARMED ROBBERY",101)=""
^DD(912.41,"B","ARSON",82)=""
^DD(912.41,"B","ARSON $ DAMAGE",83)=""
^DD(912.41,"B","ASSAULTS",1)=""
^DD(912.41,"B","ASSIST LAW OFFICER",77)=""
^DD(912.41,"B","ATTEMPTED DRUG THEFT",124)=""
^DD(912.41,"B","ATTEMPTED RAPE",89)=""
^DD(912.41,"B","BOMB THREAT",47)=""
^DD(912.41,"B","BRIBERY",160)=""
^DD(912.41,"B","BURGLARIES",18)=""
^DD(912.41,"B","BY EMPLOYEE (CONT)",41)=""
^DD(912.41,"B","BY EMPLOYEE (DIST)",56)=""
^DD(912.41,"B","BY EMPLOYEE (MANS)",63)=""
^DD(912.41,"B","BY EMPLOYEE (RAPE)",91)=""
^DD(912.41,"B","BY EMPLOYEE (VAND)",153)=""
^DD(912.41,"B","BY EMPLOYEE (VICE)",166)=""
^DD(912.41,"B","BY EMPLOYEES (ASLT)",7)=""
^DD(912.41,"B","BY OUTSIDER (CONT)",42)=""
^DD(912.41,"B","BY OUTSIDER (DIST)",57)=""
^DD(912.41,"B","BY OUTSIDER (MANS)",64)=""
^DD(912.41,"B","BY OUTSIDER (RAPE)",92)=""
^DD(912.41,"B","BY OUTSIDER (VAND)",154)=""
^DD(912.41,"B","BY OUTSIDER (VICE)",167)=""
^DD(912.41,"B","BY OUTSIDERS (ASLT)",8)=""
^DD(912.41,"B","BY PATIENT (CONT)",43)=""
^DD(912.41,"B","BY PATIENT (DIST)",58)=""
^DD(912.41,"B","BY PATIENT (MANS)",65)=""
^DD(912.41,"B","BY PATIENT (RAPE)",93)=""
^DD(912.41,"B","BY PATIENT (VAND)",155)=""
^DD(912.41,"B","BY PATIENT (VICE)",168)=""
^DD(912.41,"B","BY PATIENTS (ASLT)",9)=""
^DD(912.41,"B","BY UNKNOWN (ASLT)",10)=""
^DD(912.41,"B","BY UNKNOWN (CONT)",44)=""
^DD(912.41,"B","BY UNKNOWN (DIST)",59)=""
^DD(912.41,"B","BY UNKNOWN (MANS)",66)=""
^DD(912.41,"B","BY UNKNOWN (RAPE)",94)=""
^DD(912.41,"B","BY UNKNOWN (VAND)",156)=""
^DD(912.41,"B","BY UNKNOWN (VICE)",169)=""
^DD(912.41,"B","BY VISITOR (ASLT)",11)=""
^DD(912.41,"B","BY VISITOR (DIST)",60)=""
^DD(912.41,"B","BY VISITOR (MANS)",67)=""
^DD(912.41,"B","BY VISITOR (RAPE)",95)=""
^DD(912.41,"B","BY VISITOR (VAND)",157)=""
^DD(912.41,"B","BY VISITOR (VICE)",170)=""
^DD(912.41,"B","BY VISITORS (CONT)",45)=""
^DD(912.41,"B","CANTEEN",20)=""
^DD(912.41,"B","CASHIER",21)=""
^DD(912.41,"B","COIN-OPERATED MACHINES",120)=""
^DD(912.41,"B","CONTRABAND",28)=""
^DD(912.41,"B","CONTROLLED SUBSTANCES (AC)",125)=""
^DD(912.41,"B","CONTROLLED SUBSTANCES (AT)",127)=""
^DD(912.41,"B","COURTESY WARNINGS",172)=""
^DD(912.41,"B","DANGEROUS",3)=""
^DD(912.41,"B","DEMONSTRATIONS",48)=""
^DD(912.41,"B","DISORDERLY CONDUCT",49)=""
^DD(912.41,"B","DISTURBANCES",46)=""
^DD(912.41,"B","DRUG INTRODUCTION",30)=""
^DD(912.41,"B","DRUG POSSESSION",31)=""
^DD(912.41,"B","DRUG SALE",32)=""
^DD(912.41,"B","DRUGS ONLY (ROBBERY)",107)=""
^DD(912.41,"B","EMPLOYEE THREAT",50)=""
^DD(912.41,"B","EMPLOYEE VICTIM (ASLT)",12)=""
^DD(912.41,"B","EMPLOYEE VICTIM (MANS)",68)=""
^DD(912.41,"B","EMPLOYEE VICTIM (RAPE)",96)=""
^DD(912.41,"B","EXPLOSIVE DEV/AMMUN/COMBUST",39)=""
^DD(912.41,"B","FIREARM POSSESSION",37)=""
^DD(912.41,"B","FORCIBLE RAPE",90)=""
^DD(912.41,"B","FORGED PRESCRIPTIONS",29)=""
^DD(912.41,"B","FORGERY",161)=""
^DD(912.41,"B","FRAUD",162)=""
^DD(912.41,"B","GAMBLING",163)=""
^DD(912.41,"B","GOVERNMENT MOTOR VEHICLE",143)=""
^DD(912.41,"B","GOVERNMENT VEHICLE",75)=""
^DD(912.41,"B","GOVERNMENT VEHICLES RECOVERED",146)=""
^DD(912.41,"B","INFORMATION ONLY",188)=""
^DD(912.41,"B","INSTITUTION",.01)=""
^DD(912.41,"B","KIDNAPPING",4)=""
^DD(912.41,"B","KNIVES/HATCHETS/CLUBS/BRASS",38)=""
^DD(912.41,"B","LOCKER AREAS",22)=""
^DD(912.41,"B","MANSLAUGHTER/MURDER/NEGLIGENT",61)=""
^DD(912.41,"B","MANSLAUGHTER/MURDER/NON-NEG.",62)=""
^DD(912.41,"B","MISSING PATIENT REACTION",73)=""
^DD(912.41,"B","MOTOR VEHICLE ACCIDENT",74)=""
^DD(912.41,"B","NO WEAPON",5)=""
^DD(912.41,"B","NON-CONTROLLED SUBSTANCES (AC)",126)=""
^DD(912.41,"B","NON-CONTROLLED SUBSTANCES (AT)",128)=""
^DD(912.41,"B","NON-CRIMINAL INVESTIGATIONS",72)=""
^DD(912.41,"B","NON-PACKAGE STOPS",117)=""
^DD(912.41,"B","OF EMPLOYEES (ARST)",112)=""
^DD(912.41,"B","OF OUTSIDERS (ARST)",113)=""
^DD(912.41,"B","OF PATIENTS (ARST)",114)=""
^DD(912.41,"B","OF VISITORS (ARST)",115)=""
^DD(912.41,"B","OFFICE",23)=""
^DD(912.41,"B","OFFICER INJURY (ASLT)",13)=""
^DD(912.41,"B","OTHER OFFENSES",81)=""
^DD(912.41,"B","OTHER THREAT",51)=""
^DD(912.41,"B","OTHER WEAPON POSSESSION",40)=""
^DD(912.41,"B","OUTSIDER VICTIM (ASLT)",14)=""
^DD(912.41,"B","OUTSIDER VICTIM (MANS)",69)=""
^DD(912.41,"B","OUTSIDER VICTIM (RAPE)",97)=""
^DD(912.41,"B","PACKAGE STOPS",118)=""
^DD(912.41,"B","PATIENT VICTIM (ASLT)",15)=""
^DD(912.41,"B","PATIENT VICTIM (MANS)",70)=""
^DD(912.41,"B","PATIENT VICTIM (RAPE)",98)=""
^DD(912.41,"B","PERSONAL VEHICLE",76)=""
^DD(912.41,"B","PHARMACY",24)=""
^DD(912.41,"B","PHYSICAL ARRESTS",111)=""
^DD(912.41,"B","POSSESSION OF STOLEN PROPERTY",84)=""
^DD(912.41,"B","PRIVATE VEHICLES RECOVERED",150)=""
^DD(912.41,"B","RAPES",88)=""
^DD(912.41,"B","RECEIVE/SELL STOLEN PROPERTY",85)=""
^DD(912.41,"B","ROBBERY",100)=""
^DD(912.41,"B","SAFETY HAZARD",80)=""
^DD(912.41,"B","SEXUAL MISCONDUCT",165)=""
^DD(912.41,"B","SIMPLE",6)=""
^DD(912.41,"B","SMOKING VIOLATION",52)=""
^DD(912.41,"B","SOLICITATION/PROSTITUTION",164)=""
^DD(912.41,"B","STAFF ASSIST",78)=""
^DD(912.41,"B","STATION NUMBER",.02)=""
^DD(912.41,"B","STOPS & ARRESTS",110)=""
^DD(912.41,"B","STOPS FOR QUESTIONING",116)=""
^DD(912.41,"B","STRONG-ARMED ROBBERY",104)=""
^DD(912.41,"B","SUICIDE",86)=""
^DD(912.41,"B","SUICIDE ATTEMPT",87)=""
^DD(912.41,"B","THEFT OF GOVERNMENT PROPERTY",132)=""
^DD(912.41,"B","THEFT OF MOTOR VEHICLES",142)=""
^DD(912.41,"B","THEFT OF PERSONAL PROPERTY",137)=""
^DD(912.41,"B","THEFT OF PRIVATE VEHICLES",147)=""
^DD(912.41,"B","THEFTS",119)=""
^DD(912.41,"B","TICKET MOVING (USDC)",182)=""
^DD(912.41,"B","TICKET NON-TRAFFIC (USDC)",181)=""
^DD(912.41,"B","TICKET PARKING (USDC)",183)=""
^DD(912.41,"B","TO EMPLOYEES (USDC)",184)=""
^DD(912.41,"B","TO EMPLOYEES (WARN)",176)=""
^DD(912.41,"B","TO OUTSIDERS (USDC)",185)=""
^DD(912.41,"B","TO OUTSIDERS (WARN)",177)=""
^DD(912.41,"B","TO PATIENTS (USDC)",186)=""
^DD(912.41,"B","TO PATIENTS (WARN)",178)=""
^DD(912.41,"B","TO VISITORS (USDC)",187)=""
^DD(912.41,"B","TO VISITORS (WARN)",179)=""
^DD(912.41,"B","TOTAL $ LOSS (COIN)",121)=""
^DD(912.41,"B","TOTAL $ LOSS (DRUGS)",130)=""
^DD(912.41,"B","TOTAL $ LOSS (GOV'T)",135)=""
^DD(912.41,"B","TOTAL $ LOSS (PERSONAL)",140)=""
^DD(912.41,"B","TOTAL $ LOSS (ROBBERY)",108)=""
^DD(912.41,"B","TOTAL $ RECOVERED (COIN)",122)=""
^DD(912.41,"B","TOTAL $ RECOVERED (DRUGS)",131)=""
^DD(912.41,"B","TOTAL $ RECOVERED (GOV'T)",136)=""
^DD(912.41,"B","TOTAL $ RECOVERED (PERSONAL)",141)=""
^DD(912.41,"B","TOTAL $ RECOVERED (ROBBERY)",109)=""
^DD(912.41,"B","TOTAL DRUG THEFTS",129)=""
^DD(912.41,"B","TRESPASSING",53)=""
^DD(912.41,"B","UNAUTH/POSS/USE/KEYS/CARDS",55)=""
^DD(912.41,"B","UNAUTHORIZED PHOTOGRAPHY",54)=""
^DD(912.41,"B","UNDER THE INFLUENCE (ALCOHOL)",36)=""
^DD(912.41,"B","UNDER THE INFLUENCE (DRUGS)",33)=""
^DD(912.41,"B","UNKNOWN VICTIM (ASLT)",16)=""
^DD(912.41,"B","USDC NOTICE",180)=""
^DD(912.41,"B","VANDALISM",152)=""
^DD(912.41,"B","VANDALISM $ TOTAL",158)=""
^DD(912.41,"B","VEHICLE",25)=""
^DD(912.41,"B","VICE SOLICITING",159)=""
^DD(912.41,"B","VIOLATION CHARGES",171)=""
^DD(912.41,"B","VISITOR VICTIM (ASLT)",17)=""
^DD(912.41,"B","VISITOR VICTIM (MANS)",71)=""
^DD(912.41,"B","VISITOR VICTIM (RAPE)",99)=""
^DD(912.41,"B","WARNINGS MOVING",174)=""
^DD(912.41,"B","WARNINGS NON-TRAFFIC",173)=""
^DD(912.41,"B","WARNINGS PARKING",175)=""
^DD(912.41,"GL",0,1,.01)=""
^DD(912.41,"GL",0,2,.02)=""
^DD(912.41,"GL",1,1,1)=""
^DD(912.41,"GL",2,1,2)=""
^DD(912.41,"GL",3,1,3)=""
^DD(912.41,"GL",4,1,4)=""
^DD(912.41,"GL",5,1,5)=""
^DD(912.41,"GL",6,1,6)=""
^DD(912.41,"GL",7,1,7)=""
^DD(912.41,"GL",8,1,8)=""
^DD(912.41,"GL",9,1,9)=""
^DD(912.41,"GL",10,1,10)=""
^DD(912.41,"GL",11,1,11)=""
^DD(912.41,"GL",12,1,12)=""
^DD(912.41,"GL",13,1,13)=""
^DD(912.41,"GL",14,1,14)=""
^DD(912.41,"GL",15,1,15)=""
^DD(912.41,"GL",16,1,16)=""
^DD(912.41,"GL",17,1,17)=""
^DD(912.41,"GL",18,1,18)=""
^DD(912.41,"GL",19,1,19)=""
^DD(912.41,"GL",20,1,20)=""
^DD(912.41,"GL",21,1,21)=""
^DD(912.41,"GL",22,1,22)=""
^DD(912.41,"GL",23,1,23)=""
^DD(912.41,"GL",24,1,24)=""
^DD(912.41,"GL",25,1,25)=""
^DD(912.41,"GL",26,1,26)=""
^DD(912.41,"GL",27,1,27)=""
^DD(912.41,"GL",28,1,28)=""
^DD(912.41,"GL",29,1,29)=""
^DD(912.41,"GL",30,1,30)=""
^DD(912.41,"GL",31,1,31)=""
^DD(912.41,"GL",32,1,32)=""
^DD(912.41,"GL",33,1,33)=""
^DD(912.41,"GL",34,1,34)=""
^DD(912.41,"GL",35,1,35)=""
^DD(912.41,"GL",36,1,36)=""
^DD(912.41,"GL",37,1,37)=""
^DD(912.41,"GL",38,1,38)=""
^DD(912.41,"GL",39,1,39)=""
^DD(912.41,"GL",40,1,40)=""
^DD(912.41,"GL",41,1,41)=""
^DD(912.41,"GL",42,1,42)=""
^DD(912.41,"GL",43,1,43)=""
^DD(912.41,"GL",44,1,44)=""
^DD(912.41,"GL",45,1,45)=""
^DD(912.41,"GL",46,1,46)=""
^DD(912.41,"GL",47,1,47)=""
^DD(912.41,"GL",48,1,48)=""
^DD(912.41,"GL",49,1,49)=""
^DD(912.41,"GL",50,1,50)=""
^DD(912.41,"GL",51,1,51)=""
^DD(912.41,"GL",52,1,52)=""
^DD(912.41,"GL",53,1,53)=""
^DD(912.41,"GL",54,1,54)=""
^DD(912.41,"GL",55,1,55)=""
^DD(912.41,"GL",56,1,56)=""
^DD(912.41,"GL",57,1,57)=""
^DD(912.41,"GL",58,1,58)=""
^DD(912.41,"GL",59,1,59)=""
^DD(912.41,"GL",60,1,60)=""
^DD(912.41,"GL",61,1,61)=""
^DD(912.41,"GL",62,1,62)=""
^DD(912.41,"GL",63,1,63)=""
^DD(912.41,"GL",64,1,64)=""
^DD(912.41,"GL",65,1,65)=""
^DD(912.41,"GL",66,1,66)=""
^DD(912.41,"GL",67,1,67)=""
^DD(912.41,"GL",68,1,68)=""
^DD(912.41,"GL",69,1,69)=""
^DD(912.41,"GL",70,1,70)=""
^DD(912.41,"GL",71,1,71)=""
^DD(912.41,"GL",72,1,72)=""
^DD(912.41,"GL",73,1,73)=""
^DD(912.41,"GL",74,1,74)=""
^DD(912.41,"GL",75,1,75)=""
^DD(912.41,"GL",76,1,76)=""
^DD(912.41,"GL",77,1,77)=""
^DD(912.41,"GL",78,1,78)=""
^DD(912.41,"GL",79,1,79)=""
^DD(912.41,"GL",80,1,80)=""
^DD(912.41,"GL",81,1,81)=""
^DD(912.41,"GL",82,1,82)=""
^DD(912.41,"GL",83,1,83)=""
^DD(912.41,"GL",84,1,84)=""
^DD(912.41,"GL",85,1,85)=""
^DD(912.41,"GL",86,1,86)=""
^DD(912.41,"GL",87,1,87)=""
^DD(912.41,"GL",88,1,88)=""
^DD(912.41,"GL",89,1,89)=""
^DD(912.41,"GL",90,1,90)=""
^DD(912.41,"GL",91,1,91)=""
^DD(912.41,"GL",92,1,92)=""
^DD(912.41,"GL",93,1,93)=""
^DD(912.41,"GL",94,1,94)=""
^DD(912.41,"GL",95,1,95)=""
^DD(912.41,"GL",96,1,96)=""
^DD(912.41,"GL",97,1,97)=""
^DD(912.41,"GL",98,1,98)=""
^DD(912.41,"GL",99,1,99)=""
^DD(912.41,"GL",100,1,100)=""
^DD(912.41,"GL",101,1,101)=""
^DD(912.41,"GL",102,1,102)=""
^DD(912.41,"GL",103,1,103)=""
^DD(912.41,"GL",104,1,104)=""
^DD(912.41,"GL",105,1,105)=""
^DD(912.41,"GL",106,1,106)=""
^DD(912.41,"GL",107,1,107)=""
^DD(912.41,"GL",108,1,108)=""
^DD(912.41,"GL",109,1,109)=""
^DD(912.41,"GL",110,1,110)=""
^DD(912.41,"GL",111,1,111)=""
^DD(912.41,"GL",112,1,112)=""
^DD(912.41,"GL",113,1,113)=""
^DD(912.41,"GL",114,1,114)=""
^DD(912.41,"GL",115,1,115)=""
^DD(912.41,"GL",116,1,116)=""
^DD(912.41,"GL",117,1,117)=""
^DD(912.41,"GL",118,1,118)=""
^DD(912.41,"GL",119,1,119)=""
^DD(912.41,"GL",120,1,120)=""
^DD(912.41,"GL",121,1,121)=""
^DD(912.41,"GL",122,1,122)=""
^DD(912.41,"GL",123,1,123)=""
^DD(912.41,"GL",124,1,124)=""
^DD(912.41,"GL",125,1,125)=""
^DD(912.41,"GL",126,1,126)=""
^DD(912.41,"GL",127,1,127)=""
^DD(912.41,"GL",128,1,128)=""
^DD(912.41,"GL",129,1,129)=""
^DD(912.41,"GL",130,1,130)=""
^DD(912.41,"GL",131,1,131)=""
^DD(912.41,"GL",132,1,132)=""
^DD(912.41,"GL",133,1,133)=""
^DD(912.41,"GL",133.1,1,133.1)=""
^DD(912.41,"GL",134,1,134)=""
^DD(912.41,"GL",134.1,1,134.1)=""
^DD(912.41,"GL",135,1,135)=""
^DD(912.41,"GL",136,1,136)=""
^DD(912.41,"GL",137,1,137)=""
^DD(912.41,"GL",138,1,138)=""
^DD(912.41,"GL",138.1,1,138.1)=""
^DD(912.41,"GL",139,1,139)=""
^DD(912.41,"GL",139.1,1,139.1)=""
^DD(912.41,"GL",140,1,140)=""
^DD(912.41,"GL",141,1,141)=""
^DD(912.41,"GL",142,1,142)=""
^DD(912.41,"GL",143,1,143)=""
^DD(912.41,"GL",144,1,144)=""
^DD(912.41,"GL",145,1,145)=""
^DD(912.41,"GL",146,1,146)=""
^DD(912.41,"GL",147,1,147)=""
^DD(912.41,"GL",148,1,148)=""
^DD(912.41,"GL",149,1,149)=""
^DD(912.41,"GL",150,1,150)=""
^DD(912.41,"GL",151,1,151)=""
^DD(912.41,"GL",152,1,152)=""
^DD(912.41,"GL",153,1,153)=""
^DD(912.41,"GL",154,1,154)=""
^DD(912.41,"GL",155,1,155)=""
^DD(912.41,"GL",156,1,156)=""
^DD(912.41,"GL",157,1,157)=""
^DD(912.41,"GL",158,1,158)=""
^DD(912.41,"GL",159,1,159)=""
^DD(912.41,"GL",160,1,160)=""
^DD(912.41,"GL",161,1,161)=""
^DD(912.41,"GL",162,1,162)=""
^DD(912.41,"GL",163,1,163)=""
^DD(912.41,"GL",164,1,164)=""
^DD(912.41,"GL",165,1,165)=""
^DD(912.41,"GL",166,1,166)=""
^DD(912.41,"GL",167,1,167)=""
^DD(912.41,"GL",168,1,168)=""
^DD(912.41,"GL",169,1,169)=""
^DD(912.41,"GL",170,1,170)=""
^DD(912.41,"GL",171,1,171)=""
^DD(912.41,"GL",172,1,172)=""
^DD(912.41,"GL",173,1,173)=""
^DD(912.41,"GL",174,1,174)=""
^DD(912.41,"GL",175,1,175)=""
^DD(912.41,"GL",176,1,176)=""
^DD(912.41,"GL",177,1,177)=""
^DD(912.41,"GL",178,1,178)=""
^DD(912.41,"GL",179,1,179)=""
^DD(912.41,"GL",180,1,180)=""
^DD(912.41,"GL",181,1,181)=""
^DD(912.41,"GL",182,1,182)=""
^DD(912.41,"GL",183,1,183)=""
^DD(912.41,"GL",184,1,184)=""
^DD(912.41,"GL",185,1,185)=""
^DD(912.41,"GL",186,1,186)=""
^DD(912.41,"GL",187,1,187)=""
^DD(912.41,"GL",188,1,188)=""
^DD(912.41,"IX",.01)=""
^DD(912.5,0)="FIELD^^5^2"
^DD(912.5,0,"DDA")="N"
^DD(912.5,0,"DT")="2930715"
^DD(912.5,0,"IX","B",912.5,.01)=""
^DD(912.5,0,"NM","ESP POLICE TRAINING")=""
^DD(912.5,0,"VR")="1.0"
^DD(912.5,.01,0)="ATTENDEE^R*P200'X^VA(200,^0;1^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(912.5,.01,1,0)="^.1"
^DD(912.5,.01,1,1,0)="912.5^B"
^DD(912.5,.01,1,1,1)="S ^ESP(912.5,""B"",$E(X,1,30),DA)="""""
^DD(912.5,.01,1,1,2)="K ^ESP(912.5,""B"",$E(X,1,30),DA)"
^DD(912.5,.01,3)="Answer must be [3-30 characters]."
^DD(912.5,.01,12)="Select a police officer currently assigned to the Service."
^DD(912.5,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"""
^DD(912.5,.01,21,0)="^^3^3^2930726^^^^"
^DD(912.5,.01,21,1,0)="Enter the name of the police officer receiving credit for the training."
^DD(912.5,.01,21,2,0)="The officer's name must be entered into the NEW PERSON file (200) and must"
^DD(912.5,.01,21,3,0)="also be assigned the ESP POLICE Security Key."
^DD(912.5,.01,"DT")="2930719"
^DD(912.5,5,0)="TRAINING DATE^912.55D^^5;0"
^DD(912.5,5,21,0)="^^1^1^2930708^"
^DD(912.5,5,21,1,0)="This field is used to record the date that training was received."
^DD(912.5,"B","ATTENDEE",.01)=""
^DD(912.5,"B","TRAINING DATE",5)=""
^DD(912.5,"GL",0,1,.01)=""
^DD(912.5,"GL",5,0,5)=""
^DD(912.5,"IX",.01)=""
^DD(912.5,"RQ",.01)=""
^DD(912.5,"SB",912.55,5)=""
^DD(912.55,0)="TRAINING DATE SUB-FIELD^^5^2"
^DD(912.55,0,"DT")="2921029"
^DD(912.55,0,"IX","B",912.55,.01)=""
^DD(912.55,0,"NM","TRAINING DATE")=""
^DD(912.55,0,"UP")="912.5"
^DD(912.55,.01,0)="TRAINING DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(912.55,.01,1,0)="^.1"
^DD(912.55,.01,1,1,0)="912.55^B"
^DD(912.55,.01,1,1,1)="S ^ESP(912.5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(912.55,.01,1,1,2)="K ^ESP(912.5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(912.55,.01,3)="Enter the date."
^DD(912.55,.01,21,0)="^^1^1^2930222^"
^DD(912.55,.01,21,1,0)="Enter the date that the VA Police staff person received the training."
^DD(912.55,.01,"DT")="2921026"
^DD(912.55,5,0)="SUBJECT^912.555^^5;0"
^DD(912.55,"B","SUBJECT",5)=""
^DD(912.55,"B","TRAINING DATE",.01)=""
^DD(912.55,"GL",0,1,.01)=""
^DD(912.55,"GL",5,0,5)=""
^DD(912.55,"IX",.01)=""
^DD(912.55,"SB",912.555,5)=""
^DD(912.555,0)="SUBJECT SUB-FIELD^^.05^5"
^DD(912.555,0,"DT")="2921029"
^DD(912.555,0,"IX","B",912.555,.01)=""
^DD(912.555,0,"NM","SUBJECT")=""
^DD(912.555,0,"UP")="912.55"
^DD(912.555,.01,0)="SUBJECT^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(912.555,.01,1,0)="^.1"
^DD(912.555,.01,1,1,0)="912.555^B"
^DD(912.555,.01,1,1,1)="S ^ESP(912.5,DA(2),5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(912.555,.01,1,1,2)="K ^ESP(912.5,DA(2),5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(912.555,.01,3)="Answer must be [1-30 characters]."
^DD(912.555,.01,21,0)="^^1^1^2930222^"
^DD(912.555,.01,21,1,0)="Enter the subject or course title for the training received."
^DD(912.555,.01,"DT")="2921026"
^DD(912.555,.02,0)="TYPE^S^F:FIRE/SAFETY;I/O:IN-SERVICE/OTHER;O:ORIENTATION;P1:PHASE I;P2:PHASE II;^0;2^Q"
^DD(912.555,.02,3)="Enter the type."
^DD(912.555,.02,21,0)="^^2^2^2930222^"
^DD(912.555,.02,21,1,0)="Enter the category type of the training received.  You must select"
^DD(912.555,.02,21,2,0)="from the available codes."
^DD(912.555,.02,"DT")="2921029"
^DD(912.555,.03,0)="INSTRUCTOR^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(912.555,.03,3)="Answer must be [1-30 characters]."
^DD(912.555,.03,21,0)="^^3^3^2930222^^"
^DD(912.555,.03,21,1,0)="Enter the name of the instructor providing the training."
^DD(912.555,.03,21,2,0)="Name format should be:  LAST,FIRST MIDDLE same as name format through"
^DD(912.555,.03,21,3,0)="out the program."
^DD(912.555,.03,"DT")="2921026"
^DD(912.555,.04,0)="MINUTES^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(912.555,.04,3)="Answer must be numeric[1-999999]."
^DD(912.555,.04,21,0)="^^2^2^2930222^"
^DD(912.555,.04,21,1,0)="Enter the number of minutes of training received.  The program will"
^DD(912.555,.04,21,2,0)="convert the minutes to hours automatically."
^DD(912.555,.04,"DT")="2921026"
^DD(912.555,.05,0)="HOURS^CJ8,2^^ ; ^S Y(912.555,.05,1)=$S($D(^ESP(912.5,D0,5,D1,5,D2,0)):^(0),1:"""") S X=$P(Y(912.555,.05,1),U,4)/60+.005*100\1/100 S X=$J(X,0,2)"
^DD(912.555,.05,9)="^"
^DD(912.555,.05,9.01)="912.555^.04"
^DD(912.555,.05,9.02)="S X=S(""912.555^.04"")/60+.005*100\1/100 S Y=X"
^DD(912.555,.05,9.1)="MINUTES/60+.005*100\1/100"
^DD(912.555,.05,21,0)="^^2^2^2930222^"
^DD(912.555,.05,21,1,0)="The minutes field (.04) will automatically be converted to hours"
^DD(912.555,.05,21,2,0)="of training."
^DD(912.555,"B","HOURS",.05)=""
^DD(912.555,"B","INSTRUCTOR",.03)=""
^DD(912.555,"B","MINUTES",.04)=""
^DD(912.555,"B","SUBJECT",.01)=""
^DD(912.555,"B","TYPE",.02)=""
^DD(912.555,"GL",0,1,.01)=""
^DD(912.555,"GL",0,2,.02)=""
^DD(912.555,"GL",0,3,.03)=""
^DD(912.555,"GL",0,4,.04)=""
^DD(912.555,"IX",.01)=""
^DD(912.555,"RQ",.01)=""
^DD(912.7,0)="FIELD^^.01^1"
^DD(912.7,0,"DDA")="N"
^DD(912.7,0,"DT")="2930222"
^DD(912.7,0,"IX","B",912.7,.01)=""
^DD(912.7,0,"NM","ESP CRIME CATEGORIES")=""
^DD(912.7,0,"PT",912.01,.01)=""
^DD(912.7,0,"PT",912.8,.02)=""
^DD(912.7,0,"PT",912.9,.03)=""
^DD(912.7,0,"VR")="1.0"
^DD(912.7,.01,0)="NAME^RFX^^0;1^K X"
^DD(912.7,.01,1,0)="^.1"
^DD(912.7,.01,1,1,0)="912.7^B"
^DD(912.7,.01,1,1,1)="S ^ESP(912.7,""B"",$E(X,1,30),DA)="""""
^DD(912.7,.01,1,1,2)="K ^ESP(912.7,""B"",$E(X,1,30),DA)"
^DD(912.7,.01,3)="Answer must be [3-30 characters]. "
^DD(912.7,.01,21,0)="^^3^3^2931116^^^"
^DD(912.7,.01,21,1,0)="Enter the name of a primary crime category.  These categories have"
^DD(912.7,.01,21,2,0)="been selected by Security and Law Enforcement program directors.  New"
^DD(912.7,.01,21,3,0)="categories should NOT be added by local sites."
^DD(912.7,.01,"DT")="2930929"
^DD(912.7,"B","NAME",.01)=""
^DD(912.7,"GL",0,1,.01)=""
^DD(912.7,"IX",.01)=""
^DD(912.7,"RQ",.01)=""
^DD(912.8,0)="FIELD^^.02^2"
^DD(912.8,0,"DDA")="N"
^DD(912.8,0,"DT")="2921106"
^DD(912.8,0,"IX","AC",912.8,.02)=""
^DD(912.8,0,"IX","B",912.8,.01)=""
^DD(912.8,0,"NM","ESP CRIME TYPES")=""
^DD(912.8,0,"PT",912.01,.02)=""
^DD(912.8,0,"PT",912.9,.02)=""
^DD(912.8,0,"VR")="1.0"
^DD(912.8,.01,0)="NAME^RFX^^0;1^K X"
^DD(912.8,.01,1,0)="^.1"
^DD(912.8,.01,1,1,0)="912.8^B"
^DD(912.8,.01,1,1,1)="S ^ESP(912.8,""B"",$E(X,1,30),DA)="""""
^DD(912.8,.01,1,1,2)="K ^ESP(912.8,""B"",$E(X,1,30),DA)"
^DD(912.8,.01,3)="Answer must be [3-35 characters]. "
^DD(912.8,.01,21,0)="^^3^3^2930222^"
^DD(912.8,.01,21,1,0)="Enter a crime type.  These crime types have been designated by the"
^DD(912.8,.01,21,2,0)="Security and Law Enforcement program directors.  Local sites should"
^DD(912.8,.01,21,3,0)="NOT add any additional crime types to the program."
^DD(912.8,.01,"DT")="2930929"
^DD(912.8,.02,0)="CATEGORY^P912.7'^ESP(912.7,^0;2^Q"
^DD(912.8,.02,1,0)="^.1"
^DD(912.8,.02,1,1,0)="912.8^AC"
^DD(912.8,.02,1,1,1)="S ^ESP(912.8,""AC"",$E(X,1,30),DA)="""""
^DD(912.8,.02,1,1,2)="K ^ESP(912.8,""AC"",$E(X,1,30),DA)"
^DD(912.8,.02,1,1,"%D",0)="^^2^2^2921109^"
^DD(912.8,.02,1,1,"%D",1,0)="This cross-reference will be used to group the types by"
^DD(912.8,.02,1,1,"%D",2,0)="categories."
^DD(912.8,.02,1,1,"DT")="2921109"
^DD(912.8,.02,3)="Answer must be [3-30 characters]."
^DD(912.8,.02,21,0)="^^1^1^2930222^^"
^DD(912.8,.02,21,1,0)="Enter the primary crime category that applies to this crime type."
^DD(912.8,.02,"DT")="2921109"
^DD(912.8,"B","CATEGORY",.02)=""
^DD(912.8,"B","NAME",.01)=""
^DD(912.8,"GL",0,1,.01)=""
^DD(912.8,"GL",0,2,.02)=""
^DD(912.8,"IX",.01)=""
^DD(912.8,"IX",.02)=""
^DD(912.8,"RQ",.01)=""
^DD(912.9,0)="FIELD^^1^4"
^DD(912.9,0,"DDA")="N"
^DD(912.9,0,"DT")="2921106"
^DD(912.9,0,"IX","AC",912.9,.02)=""
^DD(912.9,0,"IX","AD",912.9,.03)=""
^DD(912.9,0,"IX","B",912.9,.01)=""
^DD(912.9,0,"NM","ESP CRIME SUB-TYPES")=""
^DD(912.9,0,"PT",912.01,.03)=""
^DD(912.9,0,"VR")="1.0"
^DD(912.9,.01,0)="SUB-TYPE^RFX^^0;1^K X"
^DD(912.9,.01,1,0)="^.1"
^DD(912.9,.01,1,1,0)="912.9^B"
^DD(912.9,.01,1,1,1)="S ^ESP(912.9,""B"",$E(X,1,30),DA)="""""
^DD(912.9,.01,1,1,2)="K ^ESP(912.9,""B"",$E(X,1,30),DA)"
^DD(912.9,.01,3)="Answer must be [3-35 characters]. "
^DD(912.9,.01,21,0)="^^3^3^2930222^"
^DD(912.9,.01,21,1,0)="Enter the sub-type of crime.  Crime sub-types have been designated"
^DD(912.9,.01,21,2,0)="by Security and Law Enforcement program directors.  Local sites are"
^DD(912.9,.01,21,3,0)="NOT to add additional sub-types."
^DD(912.9,.01,"DT")="2930929"
^DD(912.9,.02,0)="TYPE^P912.8'^ESP(912.8,^0;2^Q"
^DD(912.9,.02,1,0)="^.1"
^DD(912.9,.02,1,1,0)="912.9^AC"
^DD(912.9,.02,1,1,1)="S ^ESP(912.9,""AC"",$E(X,1,30),DA)="""""
^DD(912.9,.02,1,1,2)="K ^ESP(912.9,""AC"",$E(X,1,30),DA)"
^DD(912.9,.02,1,1,"%D",0)="^^1^1^2921109^"
^DD(912.9,.02,1,1,"%D",1,0)="This cross-reference groups the sub-types by type."
^DD(912.9,.02,1,1,"DT")="2921109"
^DD(912.9,.02,3)="Answer must be [3-30 characters]."
^DD(912.9,.02,21,0)="^^1^1^2930222^"
^DD(912.9,.02,21,1,0)="Enter the Crime Type under which this sub-type is listed."
^DD(912.9,.02,"DT")="2921109"
^DD(912.9,.03,0)="CATEGORY^P912.7'^ESP(912.7,^0;3^Q"
^DD(912.9,.03,1,0)="^.1"
^DD(912.9,.03,1,1,0)="912.9^AD"
^DD(912.9,.03,1,1,1)="S ^ESP(912.9,""AD"",$E(X,1,30),DA)="""""
^DD(912.9,.03,1,1,2)="K ^ESP(912.9,""AD"",$E(X,1,30),DA)"
^DD(912.9,.03,1,1,"%D",0)="^^1^1^2921109^"
^DD(912.9,.03,1,1,"%D",1,0)="This cross-reference groups the sub-types by category."
^DD(912.9,.03,1,1,"DT")="2921109"
^DD(912.9,.03,3)="Answer must be [3-30 characters]."
^DD(912.9,.03,21,0)="^^1^1^2930222^"
^DD(912.9,.03,21,1,0)="Enter the Crime Category under which this sub-type is listed."
^DD(912.9,.03,"DT")="2921109"
^DD(912.9,1,0)="INACTIVATION DATE^DI^^1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(912.9,1,21,0)="^^2^2^2980415^^"
^DD(912.9,1,21,1,0)="This is the date on which this subtype record becomes inactive; i.e.,"
^DD(912.9,1,21,2,0)="the record can no longer be selected."
^DD(912.9,1,"DT")="2980415"
^DD(912.9,"B","CATEGORY",.03)=""
^DD(912.9,"B","INACTIVATION DATE",1)=""
^DD(912.9,"B","SUB-TYPE",.01)=""
^DD(912.9,"B","TYPE",.02)=""
^DD(912.9,"GL",0,1,.01)=""
^DD(912.9,"GL",0,2,.02)=""
^DD(912.9,"GL",0,3,.03)=""
^DD(912.9,"GL",1,1,1)=""
^DD(912.9,"IX",.01)=""
^DD(912.9,"IX",.02)=""
^DD(912.9,"IX",.03)=""
^DD(912.9,"RQ",.01)=""
^DD(913,0)="FIELD^^30^18"
^DD(913,0,"DDA")="N"
^DD(913,0,"DT")="2930715"
^DD(913,0,"IX","B",913,.01)=""
^DD(913,0,"NM","ESP WANTS & WARRANTS")=""
^DD(913,0,"VR")="1.0"
^DD(913,.01,0)="NAME^RP910^ESP(910,^0;1^Q"
^DD(913,.01,1,0)="^.1"
^DD(913,.01,1,1,0)="913^B"
^DD(913,.01,1,1,1)="S ^ESP(913,""B"",$E(X,1,30),DA)="""""
^DD(913,.01,1,1,2)="K ^ESP(913,""B"",$E(X,1,30),DA)"
^DD(913,.01,3)="Answer must be [3-30 characters]."
^DD(913,.01,21,0)="^^3^3^2930222^"
^DD(913,.01,21,1,0)="Enter the name of the wanted person.  Use the standard program"
^DD(913,.01,21,2,0)="format of:  LAST,FIRST MIDDLE.  The name must be entered into the"
^DD(913,.01,21,3,0)=">Master Name File (910)."
^DD(913,.01,"DT")="2911028"
^DD(913,.02,0)="ISSUE DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(913,.02,3)="Enter a date."
^DD(913,.02,21,0)="^^2^2^2930222^"
^DD(913,.02,21,1,0)="Enter the date that the wanted person documentation or flagged"
^DD(913,.02,21,2,0)="patient bulletin is issued."
^DD(913,.02,"DT")="2910912"
^DD(913,.03,0)="EXPIRE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(913,.03,3)="Enter a date."
^DD(913,.03,21,0)="^^2^2^2931027^^^"
^DD(913,.03,21,1,0)="Enter the date that the wanted person documentation or flagged patient"
^DD(913,.03,21,2,0)="bulletin is due to expire."
^DD(913,.03,"DT")="2910912"
^DD(913,.04,0)="UOR NUMBER^P912'OX^ESP(912,^0;4^K:'$D(^ESP(912,""G"",+$P(^ESP(913,DA,0),U),X)) X"
^DD(913,.04,2)="S Y(0)=Y S Y=$P($G(^ESP(912,Y,0)),U,10)"
^DD(913,.04,2.1)="S Y=$P($G(^ESP(912,Y,0)),U,10)"
^DD(913,.04,3)="Enter the Uniform Offense Report #, if any.  Individual must be listed in the UOR as an Offender."
^DD(913,.04,21,0)="^^2^2^2930222^"
^DD(913,.04,21,1,0)="Enter the number of the Uniform Offense Report which contains"
^DD(913,.04,21,2,0)="additional information on this wanted flag."
^DD(913,.04,"DT")="2930702"
^DD(913,.05,0)="ACTION^S^A:ARREST;D:DETAIN;I:FI & RELEASE;O:OBSERVE & NOTIFY;^0;5^Q"
^DD(913,.05,3)="Selected an authorized code."
^DD(913,.05,21,0)="^^2^2^2930222^"
^DD(913,.05,21,1,0)="Enter the code designator for the reason why the wanted bulletin"
^DD(913,.05,21,2,0)="was issued."
^DD(913,.05,"DT")="2910912"
^DD(913,.06,0)="DETAINER STATUS^S^A:ACTIVE;I:INACTIVE;^0;6^Q"
^DD(913,.06,3)="Enter 'A' if this detainer is ACTIVE or 'I' if it is INACTIVE."
^DD(913,.06,21,0)="^^2^2^2930222^"
^DD(913,.06,21,1,0)="Enter the current status for the wanted bulletin.  It must be"
^DD(913,.06,21,2,0)="designated as either Active or Inactive."
^DD(913,.06,"DT")="2910912"
^DD(913,1.01,0)="WARRANT TYPE^S^F:FEDERAL WARRANT;S:STATE WARRANT;Q:QUESTIONING;H:HEARING OFFICER COMMITTED;C:COURT COMMITTED;P:PHYSICIAN'S CERTIFICATES;E:EMERGENCY PETITION INITIATED;^1;1^Q"
^DD(913,1.01,3)="Select from the authorized codes."
^DD(913,1.01,21,0)="^^2^2^2930222^"
^DD(913,1.01,21,1,0)="Enter the type of legal reason or documentation justifying issuance"
^DD(913,1.01,21,2,0)="of the wanted bulletin."
^DD(913,1.01,"DT")="2910912"
^DD(913,1.02,0)="ISSUING AGENCY^F^^1;2^K:$L(X)>40!($L(X)<3) X"
^DD(913,1.02,3)="Answer must be [3-40 characters]. "
^DD(913,1.02,21,0)="^^2^2^2930222^"
^DD(913,1.02,21,1,0)="Enter the name of the agency issuing the original documentation or"
^DD(913,1.02,21,2,0)="request which resulted in the initiation of the wanted bulletin."
^DD(913,1.02,"DT")="2910912"
^DD(913,1.03,0)="WARRANT NUMBER^F^^1;3^K:$L(X)>30!($L(X)<3) X"
^DD(913,1.03,3)="Answer must be [3-30 characters]. "
^DD(913,1.03,21,0)="^^2^2^2930222^"
^DD(913,1.03,21,1,0)="Enter the control number assigned to the legal document that justified"
^DD(913,1.03,21,2,0)="initiation of the wanted bulletin."
^DD(913,1.03,"DT")="2930225"
^DD(913,1.04,0)="WARRANT DATE^DX^^1;4^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(913,1.04,3)="Enter the date of the warrant or detainer.  Future dates not allowed!"
^DD(913,1.04,21,0)="^^1^1^2940331^^^^"
^DD(913,1.04,21,1,0)="Enter the date that the legal documentation was issued."
^DD(913,1.04,"DT")="3030722"
^DD(913,2.01,0)="REPORTING OFFICER^*P200'^VA(200,^2;1^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(913,2.01,3)="Answer must be [3-30 characters]."
^DD(913,2.01,12)="Select a police officer currently assigned to the Service."
^DD(913,2.01,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"""
^DD(913,2.01,21,0)="^^3^3^2930719^^^^"
^DD(913,2.01,21,1,0)="Enter the name of the VA police officer initiating the wanted bulletin."
^DD(913,2.01,21,2,0)="The officer's name must be entered in the NEW PERSON file (200) and"
^DD(913,2.01,21,3,0)="must also be assigned the ESP POLICE Security Key."
^DD(913,2.01,22)=""
^DD(913,2.01,"DT")="2930715"
^DD(913,2.02,0)="REVIEWED BY^*P200'^VA(200,^2;2^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(913,2.02,3)="Answer must be [3-30 characters]."
^DD(913,2.02,12)="Select a police officer currently assigned to the Service."
^DD(913,2.02,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U)))"""
^DD(913,2.02,21,0)="^^3^3^2930719^^^^"
^DD(913,2.02,21,1,0)="Enter the name of the VA police officer reviewing the entry.  The"
^DD(913,2.02,21,2,0)="officer's name must be entered in the NEW PERSON file (200) and"
^DD(913,2.02,21,3,0)="must also be assigned the ESP POLICE Security Key."
^DD(913,2.02,"DT")="2930715"
^DD(913,2.03,0)="REVIEW DATE^D^^2;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(913,2.03,3)="Enter a date."
^DD(913,2.03,21,0)="^^5^5^2930222^"
^DD(913,2.03,21,1,0)="Enter a date that the wanted bulletin was last reviewed to determine"
^DD(913,2.03,21,2,0)="that the justification for the bulletin was still valid.  This is"
^DD(913,2.03,21,3,0)="particularly important when the bulletin was issued as a result of"
^DD(913,2.03,21,4,0)="a Hearing Officer Committment that is only valid for 6 months from"
^DD(913,2.03,21,5,0)="time of issue."
^DD(913,2.03,"DT")="2910912"
^DD(913,3.01,0)="ADMISSION DATE^DX^^3;1^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(913,3.01,3)="If this is an inpatient, enter the admission date.  Future dates not allowed!"
^DD(913,3.01,21,0)="^^3^3^2931027^^^^"
^DD(913,3.01,21,1,0)="Enter the date of the individual's current admission to the Medical"
^DD(913,3.01,21,2,0)="Center.  This information will help clarify time periods for"
^DD(913,3.01,21,3,0)="detainer requests from outside law enforcement agencies."
^DD(913,3.01,"DT")="2931027"
^DD(913,3.02,0)="WARD^F^^3;2^K:$L(X)>15!($L(X)<1) X"
^DD(913,3.02,3)="Answer must be [1-15 characters]. "
^DD(913,3.02,21,0)="^^2^2^2930222^^"
^DD(913,3.02,21,1,0)="Enter the name or number of the ward where the individual is"
^DD(913,3.02,21,2,0)="currently assigned."
^DD(913,3.02,"DT")="2930216"
^DD(913,10,0)="CHARGES^913.01P^^10;0"
^DD(913,10,21,0)="^^2^2^2930708^"
^DD(913,10,21,1,0)="This field is used to record pending charges against an"
^DD(913,10,21,2,0)="individual and other descriptive data."
^DD(913,20,0)="NOTIFY^913.02^^20;0"
^DD(913,20,21,0)="^^3^3^2930708^"
^DD(913,20,21,1,0)="This field is used to record pertinent data about who is"
^DD(913,20,21,2,0)="to be notified as a result of some action required by"
^DD(913,20,21,3,0)="the Want & Warrant entry."
^DD(913,30,0)="REMARKS (CAUTION)^913.03^^30;0"
^DD(913,30,21,0)="^^2^2^2930222^^"
^DD(913,30,21,1,0)="Enter any information that may be necessary to identify reasons"
^DD(913,30,21,2,0)="for using additional caution when confronting the individual."
^DD(913,"B","ACTION",.05)=""
^DD(913,"B","ADMISSION DATE",3.01)=""
^DD(913,"B","CHARGES",10)=""
^DD(913,"B","DETAINER STATUS",.06)=""
^DD(913,"B","EXPIRE DATE",.03)=""
^DD(913,"B","ISSUE DATE",.02)=""
^DD(913,"B","ISSUING AGENCY",1.02)=""
^DD(913,"B","NAME",.01)=""
^DD(913,"B","NOTIFY",20)=""
^DD(913,"B","REMARKS (CAUTION)",30)=""
^DD(913,"B","REPORTING OFFICER",2.01)=""
^DD(913,"B","REVIEW DATE",2.03)=""
^DD(913,"B","REVIEWED BY",2.02)=""
^DD(913,"B","UOR NUMBER",.04)=""
^DD(913,"B","WARD",3.02)=""
^DD(913,"B","WARRANT DATE",1.04)=""
^DD(913,"B","WARRANT NUMBER",1.03)=""
^DD(913,"B","WARRANT TYPE",1.01)=""
^DD(913,"GL",0,1,.01)=""
^DD(913,"GL",0,2,.02)=""
^DD(913,"GL",0,3,.03)=""
^DD(913,"GL",0,4,.04)=""
^DD(913,"GL",0,5,.05)=""
^DD(913,"GL",0,6,.06)=""
^DD(913,"GL",1,1,1.01)=""
^DD(913,"GL",1,2,1.02)=""
^DD(913,"GL",1,3,1.03)=""
^DD(913,"GL",1,4,1.04)=""
^DD(913,"GL",2,1,2.01)=""
^DD(913,"GL",2,2,2.02)=""
^DD(913,"GL",2,3,2.03)=""
^DD(913,"GL",3,1,3.01)=""
^DD(913,"GL",3,2,3.02)=""
^DD(913,"GL",10,0,10)=""
^DD(913,"GL",20,0,20)=""
^DD(913,"GL",30,0,30)=""
^DD(913,"IX",.01)=""
^DD(913,"RQ",.01)=""
^DD(913,"SB",913.01,10)=""
^DD(913,"SB",913.02,20)=""
^DD(913,"SB",913.03,30)=""
^DD(913.01,0)="CHARGES SUB-FIELD^^.01^1"
^DD(913.01,0,"DT")="2930111"
^DD(913.01,0,"IX","B",913.01,.01)=""
^DD(913.01,0,"NM","CHARGES")=""
^DD(913.01,0,"UP")="913"
^DD(913.01,.01,0)="CHARGES^P915'^ESP(915,^0;1^Q"
^DD(913.01,.01,1,0)="^.1"
^DD(913.01,.01,1,1,0)="913.01^B"
^DD(913.01,.01,1,1,1)="S ^ESP(913,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(913.01,.01,1,1,2)="K ^ESP(913,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(913.01,.01,3)="Selected from the authorized codes."
^DD(913.01,.01,21,0)="^^2^2^2930222^"
^DD(913.01,.01,21,1,0)="Enter the offense code which identifies the type of crime committed"
^DD(913.01,.01,21,2,0)="by the individual currently listed on a wanted bulletin."
^DD(913.01,.01,"DT")="2930111"
^DD(913.01,"B","CHARGES",.01)=""
^DD(913.01,"GL",0,1,.01)=""
^DD(913.01,"IX",.01)=""
^DD(913.02,0)="NOTIFY SUB-FIELD^^.03^3"
^DD(913.02,0,"DT")="2910912"
^DD(913.02,0,"IX","B",913.02,.01)=""
^DD(913.02,0,"NM","NOTIFY")=""
^DD(913.02,0,"UP")="913"
^DD(913.02,.01,0)="NOTIFY PERSON^F^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(913.02,.01,1,0)="^.1"
^DD(913.02,.01,1,1,0)="913.02^B"
^DD(913.02,.01,1,1,1)="S ^ESP(913,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(913.02,.01,1,1,2)="K ^ESP(913,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(913.02,.01,3)="Answer must be [3-30 characters]."
^DD(913.02,.01,21,0)="^^3^3^2930222^"
^DD(913.02,.01,21,1,0)="Enter the name of the individual or agency to be notified in the"
^DD(913.02,.01,21,2,0)="event there are further actions to be taken in connection with the"
^DD(913.02,.01,21,3,0)="wanted bulletin."
^DD(913.02,.01,"DT")="2910912"
^DD(913.02,.02,0)="NOTIFY TIME^S^I:IMMEDIATELY;D:DURING BUS. HOURS;A:AFTER BUS. HOURS;^0;2^Q"
^DD(913.02,.02,3)="Select from the authorized codes."
^DD(913.02,.02,21,0)="^^2^2^2930222^^"
^DD(913.02,.02,21,1,0)="Enter the degree of urgency to be used when contacting the person or"
^DD(913.02,.02,21,2,0)="agency listed."
^DD(913.02,.02,"DT")="2910912"
^DD(913.02,.03,0)="PHONE NUMBER^F^^0;3^K:$L(X)>20!($L(X)<4) X"
^DD(913.02,.03,3)="Answer must be [4-20 characters]."
^DD(913.02,.03,21,0)="^^2^2^2930222^"
^DD(913.02,.03,21,1,0)="Enter the telephone number for the person or agency requiring"
^DD(913.02,.03,21,2,0)="notification."
^DD(913.02,.03,"DT")="2910912"
^DD(913.02,"B","NOTIFY PERSON",.01)=""
^DD(913.02,"B","NOTIFY TIME",.02)=""
^DD(913.02,"B","PHONE NUMBER",.03)=""
^DD(913.02,"GL",0,1,.01)=""
^DD(913.02,"GL",0,2,.02)=""
^DD(913.02,"GL",0,3,.03)=""
^DD(913.02,"IX",.01)=""
^DD(913.03,0)="REMARKS (CAUTION) SUB-FIELD^^.01^1"
^DD(913.03,0,"DT")="2911001"
^DD(913.03,0,"NM","REMARKS (CAUTION)")=""
^DD(913.03,0,"UP")="913"
^DD(913.03,.01,0)="REMARKS (CAUTION)^W^^0;1^Q"
^DD(913.03,.01,3)="Enter any cautions for this individual or any remarks."
^DD(913.03,.01,21,0)="^^2^2^2930222^^"
^DD(913.03,.01,21,1,0)="Enter any information that may be necessary to identify reasons"
^DD(913.03,.01,21,2,0)="for using additional caution when confronting the individual."
^DD(913.03,.01,"DT")="2911001"
^DD(913.03,"B","REMARKS (CAUTION)",.01)=""
^DD(913.03,"GL",0,1,.01)=""
^DD(914,0)="FIELD^^10^23"
^DD(914,0,"DDA")="N"
^DD(914,0,"DT")="3040301"
^DD(914,0,"ID",.02)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(914,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ESP(915,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(915,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(914,0,"ID",1.03)="W:$D(^(1)) ""   "",$P(^(1),U,3)"
^DD(914,0,"ID","WRITE")="W ""   "",@(""$P($P($C(59)_$S($D(^DD(914,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(914,0,"ID","WRITE1")="W ""   "",$P(^(0),U,5)"
^DD(914,0,"IX","AC",914,.03)=""
^DD(914,0,"IX","AD",914,.04)=""
^DD(914,0,"IX","AE",914,.06)=""
^DD(914,0,"IX","B",914,.01)=""
^DD(914,0,"IX","C",914,.02)=""
^DD(914,0,"IX","D",914,.05)=""
^DD(914,0,"IX","E",914,.09)=""
^DD(914,0,"IX","F",914,.01)=""
^DD(914,0,"IX","G",914,1.03)=""
^DD(914,0,"IX","I",914,1.02)=""
^DD(914,0,"NM","ESP VIOLATIONS")=""
^DD(914,0,"VR")="1.0"
^DD(914,0,"VRPK")="ES"
^DD(914,.01,0)="ID NUMBER^RNJ12,0X^^0;1^D VIO^ESPOID S DINUM=X"
^DD(914,.01,1,0)="^.1"
^DD(914,.01,1,1,0)="914^B"
^DD(914,.01,1,1,1)="S ^ESP(914,""B"",$E(X,1,30),DA)="""""
^DD(914,.01,1,1,2)="K ^ESP(914,""B"",$E(X,1,30),DA)"
^DD(914,.01,1,2,0)="^^TRIGGER^914^5.01"
^DD(914,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ESP(914,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=^DD(""SITE"",1) X ^DD(914,.01,1,2,1.4)"
^DD(914,.01,1,2,1.4)="S DIH=$S($D(^ESP(914,DIV(0),5)):^(5),1:""""),DIV=X S $P(^(5),U,1)=DIV,DIH=914,DIG=5.01 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(914,.01,1,2,2)="Q"
^DD(914,.01,1,2,3)="This cross-reference cannot be deleted!"
^DD(914,.01,1,2,"CREATE VALUE")="S X=^DD(""SITE"",1)"
^DD(914,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(914,.01,1,2,"DT")="2920113"
^DD(914,.01,1,2,"FIELD")="INSTITUTION"
^DD(914,.01,1,3,0)="914^F^MUMPS"
^DD(914,.01,1,3,1)="S ^ESP(914,""F"",+$E(X,$L(X)-5,$L(X))_"".""_$E(X,$L(X)-7,$L(X)-6),DA)="""""
^DD(914,.01,1,3,2)="K ^ESP(914,""F"",+$E(X,$L(X)-5,$L(X))_"".""_$E(X,$L(X)-7,$L(X)-6),DA)"
^DD(914,.01,1,3,"%D",0)="^^5^5^2940331^^"
^DD(914,.01,1,3,"%D",1,0)="This x-ref allows you to enter a shortcut I.D. # for a Violation."
^DD(914,.01,1,3,"%D",2,0)="The shortcut I.D. # is the sequential number, a period, and the 2-digit"
^DD(914,.01,1,3,"%D",3,0)="year, (e.g., 1.93 is the shortcut I.D. # for 700093000001, where 7000 is"
^DD(914,.01,1,3,"%D",4,0)="the internal entry # in the Institution file, 93 is the 2-digit year,"
^DD(914,.01,1,3,"%D",5,0)="and 000001 is the sequential #)."
^DD(914,.01,1,3,"DT")="2920114"
^DD(914,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(914,.01,21,0)="^^2^2^2940310^^^^"
^DD(914,.01,21,1,0)="This is the violation ID #.  It is the site # concatenated"
^DD(914,.01,21,2,0)="with year and the internal entry number."
^DD(914,.01,"DT")="2930929"
^DD(914,.02,0)="DATE/TIME OF OFFENSE^RDX^^0;2^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(914,.02,1,0)="^.1"
^DD(914,.02,1,1,0)="914^C"
^DD(914,.02,1,1,1)="S ^ESP(914,""C"",$E(X,1,30),DA)="""""
^DD(914,.02,1,1,2)="K ^ESP(914,""C"",$E(X,1,30),DA)"
^DD(914,.02,1,1,"DT")="2920103"
^DD(914,.02,3)="Enter the date/time of the offense."
^DD(914,.02,21,0)="^^3^3^2931027^^^^"
^DD(914,.02,21,1,0)="The date/time of the commission of the offense charged.  Future dates "
^DD(914,.02,21,2,0)="are not allowed.  Enter the date/time of the commission of the offense"
^DD(914,.02,21,3,0)="charged.  BOTH date and time must be entered."
^DD(914,.02,22)=""
^DD(914,.02,"DT")="3030410"
^DD(914,.03,0)="COURTESY/VIOLATION^S^C:COURTESY;V:USDCVN;^0;3^Q"
^DD(914,.03,1,0)="^.1"
^DD(914,.03,1,1,0)="914^AC"
^DD(914,.03,1,1,1)="S ^ESP(914,""AC"",$E(X,1,30),DA)="""""
^DD(914,.03,1,1,2)="K ^ESP(914,""AC"",$E(X,1,30),DA)"
^DD(914,.03,1,1,"DT")="2920103"
^DD(914,.03,3)="Select from the authorized codes."
^DD(914,.03,21,0)="^^1^1^2930222^^"
^DD(914,.03,21,1,0)="Enter 'C' if this is a courtesy ticket or 'V' if this is a USDCVN."
^DD(914,.03,"DT")="2920103"
^DD(914,.04,0)="OFFENSE CHARGED^RP915'^ESP(915,^0;4^Q"
^DD(914,.04,1,0)="^.1"
^DD(914,.04,1,1,0)="914^AD"
^DD(914,.04,1,1,1)="S ^ESP(914,""AD"",$E(X,1,30),DA)="""""
^DD(914,.04,1,1,2)="K ^ESP(914,""AD"",$E(X,1,30),DA)"
^DD(914,.04,1,1,"DT")="2920103"
^DD(914,.04,3)="You must select from the available listing."
^DD(914,.04,21,0)="^^1^1^2930726^^^^"
^DD(914,.04,21,1,0)="Enter the specific statute or regulation violated."
^DD(914,.04,"DT")="2930726"
^DD(914,.05,0)="VIOLATION NUMBER^RNJ7,0X^^0;5^K:$L(X)>7!($L(X)<3) X"
^DD(914,.05,1,0)="^.1"
^DD(914,.05,1,1,0)="914^D"
^DD(914,.05,1,1,1)="S ^ESP(914,""D"",$E(X,1,30),DA)="""""
^DD(914,.05,1,1,2)="K ^ESP(914,""D"",$E(X,1,30),DA)"
^DD(914,.05,1,1,"DT")="2920103"
^DD(914,.05,3)="Answer must be 3-7 characters in length"
^DD(914,.05,21,0)="^.001^3^3^3061212^^^^"
^DD(914,.05,21,1,0)="Enter the number assigned to the U.S.D.C. Violation Notice.  Enter only"
^DD(914,.05,21,2,0)="the numerics of the number, the ""V"" is understood to exist since it"
^DD(914,.05,21,3,0)="has already been designated as a Violation Notice."
^DD(914,.05,"DT")="3061212"
^DD(914,.06,0)="ISSUING OFFICER^R*P200'X^VA(200,^0;6^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(914,.06,1,0)="^.1"
^DD(914,.06,1,1,0)="914^AE"
^DD(914,.06,1,1,1)="S ^ESP(914,""AE"",$E(X,1,30),DA)="""""
^DD(914,.06,1,1,2)="K ^ESP(914,""AE"",$E(X,1,30),DA)"
^DD(914,.06,1,1,"DT")="2920103"
^DD(914,.06,3)="Enter the issuing officer's name."
^DD(914,.06,12)="Select a police officer currently assigned to the Service."
^DD(914,.06,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"""
^DD(914,.06,21,0)="^^3^3^2930726^^^^"
^DD(914,.06,21,1,0)="Enter the name of the police officer issuing the ticket.  The officer's"
^DD(914,.06,21,2,0)="name must already be entered into the NEW PERSON file (200) and must"
^DD(914,.06,21,3,0)="also be assigned the ESP POLICE Security Key."
^DD(914,.06,"DT")="3040324"
^DD(914,.07,0)="LOCATION^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(914,.07,3)="Answer must be [3-30 characters]. "
^DD(914,.07,21,0)="^^3^3^2940310^^^"
^DD(914,.07,21,1,0)="Enter two reference points to identify the location where"
^DD(914,.07,21,2,0)="the violation occurred, (i.e., 10th Street and Union Avenue, Ward"
^DD(914,.07,21,3,0)="37, Room 134, Building 13D, Canteen)."
^DD(914,.07,"DT")="2920103"
^DD(914,.08,0)="OFFENSE DESCRIPTION^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(914,.08,3)="Answer must be [3-30 characters]. "
^DD(914,.08,21,0)="^^3^3^2930222^^"
^DD(914,.08,21,1,0)="The description of the violation charged.  This space may be used to provide"
^DD(914,.08,21,2,0)="shorthand titles for common violations such as speeding or parking."
^DD(914,.08,21,3,0)="This type of entry may be useful in developing violation trend studies."
^DD(914,.08,"DT")="2920103"
^DD(914,.09,0)="OFFENDER^P910^ESP(910,^0;9^Q"
^DD(914,.09,1,0)="^.1"
^DD(914,.09,1,1,0)="914^E"
^DD(914,.09,1,1,1)="S ^ESP(914,""E"",$E(X,1,30),DA)="""""
^DD(914,.09,1,1,2)="K ^ESP(914,""E"",$E(X,1,30),DA)"
^DD(914,.09,1,1,"DT")="2920103"
^DD(914,.09,3)="Answer must be [3-30 characters]."
^DD(914,.09,21,0)="^^3^3^2930222^^^^"
^DD(914,.09,21,1,0)="Enter the name of the person receiving the ticket.  The name must also"
^DD(914,.09,21,2,0)="entered in the Master Name File (910).  The standard LAST,FIRST MIDDLE"
^DD(914,.09,21,3,0)="name format is to be used."
^DD(914,.09,"DT")="2920103"
^DD(914,.1,0)="FACILITY^RP40.8'^DG(40.8,^0;10^Q"
^DD(914,.1,3)="Enter the Facility associated with this violation."
^DD(914,.1,21,0)="^.001^2^2^3040618^^"
^DD(914,.1,21,1,0)="Use this field to identify the Facility that this violation is associated "
^DD(914,.1,21,2,0)="with. "
^DD(914,.1,"DT")="3040618"
^DD(914,1.01,0)="DECAL #^*P910.2'^ESP(910.2,^1;1^S DIC(""S"")=""I $P(^(0),U,4)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(914,1.01,3)=""
^DD(914,1.01,12)="Must be a vehicle registration."
^DD(914,1.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=1"""
^DD(914,1.01,21,0)="^^1^1^2930708^^^^"
^DD(914,1.01,21,1,0)="Enter the parking permit decal number."
^DD(914,1.01,22)=""
^DD(914,1.01,"DT")="2930708"
^DD(914,1.02,0)="DECAL COLOR^*P910.7'^ESP(910.7,^1;2^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(914,1.02,1,0)="^.1"
^DD(914,1.02,1,1,0)="914^I^MUMPS"
^DD(914,1.02,1,1,1)="S ^ESP(914,""I"",$P(^ESP(914,DA,1),""^"",1)_$P(^ESP(910.7,X,0),""^"",1),DA)="""""
^DD(914,1.02,1,1,2)="K ^ESP(914,""I"",$P(^ESP(914,DA,1),""^"",1)_$P(^ESP(910.7,X,0),""^"",1),DA)"
^DD(914,1.02,1,1,"%D",0)="^^1^1^2920104^"
^DD(914,1.02,1,1,"%D",1,0)="This cross-reference is used for lookup by decal # and decal color."
^DD(914,1.02,1,1,"DT")="2920103"
^DD(914,1.02,3)="Choose from the available listing the color of the decal."
^DD(914,1.02,12)="Enter a valid decal color."
^DD(914,1.02,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,7)"""
^DD(914,1.02,21,0)="^^1^1^2930222^^"
^DD(914,1.02,21,1,0)="Enter the color of the decal.  It must be in the Selectables file."
^DD(914,1.02,"DT")="2920103"
^DD(914,1.03,0)="LICENSE TAG #^F^^1;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<1) X"
^DD(914,1.03,1,0)="^.1"
^DD(914,1.03,1,1,0)="914^G"
^DD(914,1.03,1,1,1)="S ^ESP(914,""G"",$E(X,1,30),DA)="""""
^DD(914,1.03,1,1,2)="K ^ESP(914,""G"",$E(X,1,30),DA)"
^DD(914,1.03,1,1,"%D",0)="^^2^2^2931207^"
^DD(914,1.03,1,1,"%D",1,0)="This cross reference allows VA Police staff to inquire and sort"
^DD(914,1.03,1,1,"%D",2,0)="violation records by the License Tag #."
^DD(914,1.03,1,1,"DT")="2931206"
^DD(914,1.03,3)="Answer must be 1-14 characters in length."
^DD(914,1.03,21,0)="^^2^2^2930629^^^^"
^DD(914,1.03,21,1,0)="Enter the license tag number of the vehicle involved in a vehicle"
^DD(914,1.03,21,2,0)="related offense."
^DD(914,1.03,"DT")="2931206"
^DD(914,1.04,0)="LICENSE TAG STATE^P5'^DIC(5,^1;4^Q"
^DD(914,1.04,3)="Enter a State."
^DD(914,1.04,21,0)="^^1^1^2930222^^^"
^DD(914,1.04,21,1,0)="Enter the state that issued the license tag number."
^DD(914,1.04,"DT")="2920103"
^DD(914,1.05,0)="VEHICLE MAKE^*P910.7'^ESP(910.7,^1;5^S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(914,1.05,3)="Enter the vehicle make."
^DD(914,1.05,12)="Enter a valid vehicle make."
^DD(914,1.05,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),U,1)"""
^DD(914,1.05,21,0)="^^1^1^2930222^^"
^DD(914,1.05,21,1,0)="Enter the make of this vehicle.  It must be in the Selectables file."
^DD(914,1.05,"DT")="2920103"
^DD(914,1.06,0)="VEHICLE MODEL^F^^1;6^K:$L(X)>30!($L(X)<3) X"
^DD(914,1.06,3)="Answer must be [3-30 characters]. "
^DD(914,1.06,21,0)="^^1^1^2930222^^"
^DD(914,1.06,21,1,0)="Enter the model of this vehicle, i.e., GALAXIE, MUSTANG, BLAZER, etc."
^DD(914,1.06,"DT")="2920103"
^DD(914,1.07,0)="VEHICLE STYLE^F^^1;7^K:$L(X)>30!($L(X)<3) X"
^DD(914,1.07,3)="Answer must be [3-30 characters]. "
^DD(914,1.07,21,0)="^^1^1^2930628^^^"
^DD(914,1.07,21,1,0)="Enter the style of this vehicle, for example, TWO DOOR."
^DD(914,1.07,"DT")="2920103"
^DD(914,1.08,0)="VEHICLE COLOR^*P910.7'^ESP(910.7,^1;8^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(914,1.08,3)="Enter the vehicle color."
^DD(914,1.08,12)="Enter a valid vehicle color."
^DD(914,1.08,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"""
^DD(914,1.08,21,0)="^^1^1^2930628^^^"
^DD(914,1.08,21,1,0)="Enter the color of this vehicle.  It must be in the Selectables file."
^DD(914,1.08,"DT")="2920103"
^DD(914,1.09,0)="YEAR OF MANUFACTURE^D^^1;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(914,1.09,3)="Enter the year."
^DD(914,1.09,21,0)="^^2^2^2930222^^"
^DD(914,1.09,21,1,0)="Enter the year of manufacture of the vehicle, may be entered as"
^DD(914,1.09,21,2,0)="1990 or 90, etc."
^DD(914,1.09,"DT")="2920104"
^DD(914,2.01,0)="COURT DATE^D^^2;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(914,2.01,3)="Enter a date."
^DD(914,2.01,21,0)="^^1^1^2930222^^"
^DD(914,2.01,21,1,0)="Enter the date/time of the court appearance."
^DD(914,2.01,"DT")="2920103"
^DD(914,2.02,0)="DISPOSITION^*P911.2^ESP(911.2,^2;2^S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(914,2.02,3)="Select from the available listing."
^DD(914,2.02,12)="Select a violation disposition."
^DD(914,2.02,12.1)="S DIC(""S"")=""I $D(^(1)),$P(^(1),U,3)"""
^DD(914,2.02,21,0)="^^2^2^2931025^^^^"
^DD(914,2.02,21,1,0)="Enter the code designating the disposition of this case.  The disposition"
^DD(914,2.02,21,2,0)="entered must be contained in the ESP DISPOSITION CODE file (911.2)."
^DD(914,2.02,"DT")="2920918"
^DD(914,5.01,0)="INSTITUTION^P4'I^DIC(4,^5;1^Q"
^DD(914,5.01,3)="This field is not entered by the user."
^DD(914,5.01,5,1,0)="914^.01^2"
^DD(914,5.01,21,0)="^.001^1^1^3040205^^"
^DD(914,5.01,21,1,0)="This field is automatically triggered by the Institution File."
^DD(914,5.01,"DT")="2930323"
^DD(914,10,0)="REMARKS^914.01^^10;0"
^DD(914,10,21,0)="^^1^1^2930628^^"
^DD(914,10,21,1,0)="Enter any remarks that you feel may be pertinent to record for this record."
^DD(914,10,"DT")="2930628"
^DD(914,"B","COURT DATE",2.01)=""
^DD(914,"B","COURTESY/VIOLATION",.03)=""
^DD(914,"B","DATE/TIME OF OFFENSE",.02)=""
^DD(914,"B","DECAL #",1.01)=""
^DD(914,"B","DECAL COLOR",1.02)=""
^DD(914,"B","DISPOSITION",2.02)=""
^DD(914,"B","FACILITY",.1)=""
^DD(914,"B","ID NUMBER",.01)=""
^DD(914,"B","INSTITUTION",5.01)=""
^DD(914,"B","ISSUING OFFICER",.06)=""
^DD(914,"B","LICENSE TAG #",1.03)=""
^DD(914,"B","LICENSE TAG STATE",1.04)=""
^DD(914,"B","LOCATION",.07)=""
^DD(914,"B","OFFENDER",.09)=""
^DD(914,"B","OFFENSE CHARGED",.04)=""
^DD(914,"B","OFFENSE DESCRIPTION",.08)=""
^DD(914,"B","REMARKS",10)=""
^DD(914,"B","VEHICLE COLOR",1.08)=""
^DD(914,"B","VEHICLE MAKE",1.05)=""
^DD(914,"B","VEHICLE MODEL",1.06)=""
^DD(914,"B","VEHICLE STYLE",1.07)=""
^DD(914,"B","VIOLATION NUMBER",.05)=""
^DD(914,"B","YEAR OF MANUFACTURE",1.09)=""
^DD(914,"GL",0,1,.01)=""
^DD(914,"GL",0,2,.02)=""
^DD(914,"GL",0,3,.03)=""
^DD(914,"GL",0,4,.04)=""
^DD(914,"GL",0,5,.05)=""
^DD(914,"GL",0,6,.06)=""
^DD(914,"GL",0,7,.07)=""
^DD(914,"GL",0,8,.08)=""
^DD(914,"GL",0,9,.09)=""
^DD(914,"GL",0,10,.1)=""
^DD(914,"GL",1,1,1.01)=""
^DD(914,"GL",1,2,1.02)=""
^DD(914,"GL",1,3,1.03)=""
^DD(914,"GL",1,4,1.04)=""
^DD(914,"GL",1,5,1.05)=""
^DD(914,"GL",1,6,1.06)=""
^DD(914,"GL",1,7,1.07)=""
^DD(914,"GL",1,8,1.08)=""
^DD(914,"GL",1,9,1.09)=""
^DD(914,"GL",2,1,2.01)=""
^DD(914,"GL",2,2,2.02)=""
^DD(914,"GL",5,1,5.01)=""
^DD(914,"GL",10,0,10)=""
^DD(914,"IX",.01)=""
^DD(914,"IX",.02)=""
^DD(914,"IX",.03)=""
^DD(914,"IX",.04)=""
^DD(914,"IX",.05)=""
^DD(914,"IX",.06)=""
^DD(914,"IX",.09)=""
^DD(914,"IX",1.02)=""
^DD(914,"IX",1.03)=""
^DD(914,"RQ",.01)=""
^DD(914,"RQ",.02)=""
^DD(914,"RQ",.04)=""
^DD(914,"RQ",.05)=""
^DD(914,"RQ",.06)=""
^DD(914,"RQ",.1)=""
^DD(914,"SB",914.01,10)=""
^DD(914.01,0)="REMARKS SUB-FIELD^^.01^1"
^DD(914.01,0,"DT")="2920103"
^DD(914.01,0,"NM","REMARKS")=""
^DD(914.01,0,"UP")="914"
^DD(914.01,.01,0)="REMARKS^W^^0;1^Q"
^DD(914.01,.01,3)="Enter any remarks you wish to record."
^DD(914.01,.01,"DT")="2930628"
^DD(914.01,"B","REMARKS",.01)=""
^DD(914.01,"GL",0,1,.01)=""
^DD(915,0)="FIELD^^10^6"
^DD(915,0,"DDA")="N"
^DD(915,0,"DT")="2930222"
^DD(915,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(915,0,"ID",.031)="W ""   "",$P(^(0),U,5)"
^DD(915,0,"IX","B",915,.01)=""
^DD(915,0,"IX","C",915,.031)=""
^DD(915,0,"IX","D",915,.032)=""
^DD(915,0,"NM","ESP OFFENSE CODES")=""
^DD(915,0,"PT",912.11,.01)=""
^DD(915,0,"PT",913.01,.01)=""
^DD(915,0,"PT",914,.04)=""
^DD(915,0,"VR")="1.0"
^DD(915,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(915,.01,1,0)="^.1"
^DD(915,.01,1,1,0)="915^B"
^DD(915,.01,1,1,1)="S ^ESP(915,""B"",$E(X,1,30),DA)="""""
^DD(915,.01,1,1,2)="K ^ESP(915,""B"",$E(X,1,30),DA)"
^DD(915,.01,3)="Answer must be [3-30 characters]. "
^DD(915,.01,21,0)="^^4^4^2931116^^^^"
^DD(915,.01,21,1,0)="Enter the commonly known descriptive name for the offense, i.e.,"
^DD(915,.01,21,2,0)="'Burning of An Occupied Dwelling'.  This field will be utilized to"
^DD(915,.01,21,3,0)="assist staff in looking up the exact legal definitions of an offense"
^DD(915,.01,21,4,0)="code was well as facilitating speed of entry throughout the program."
^DD(915,.01,"DT")="2930630"
^DD(915,.03,0)="STATUTE^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(915,.03,3)="Answer must be [3-30 characters]. "
^DD(915,.03,21,0)="^^2^2^2930222^^"
^DD(915,.03,21,1,0)="Enter the Statute number or title governing this offense, i.e.,"
^DD(915,.03,21,2,0)="USC 31, 331 Texas, Center Memorandum #SS-122, etc."
^DD(915,.03,"DT")="2920605"
^DD(915,.031,0)="SECTION^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(915,.031,1,0)="^.1"
^DD(915,.031,1,1,0)="915^C"
^DD(915,.031,1,1,1)="S ^ESP(915,""C"",$E(X,1,30),DA)="""""
^DD(915,.031,1,1,2)="K ^ESP(915,""C"",$E(X,1,30),DA)"
^DD(915,.031,1,1,"DT")="2920827"
^DD(915,.031,3)="Answer must be [1-10 characters]."
^DD(915,.031,21,0)="^^2^2^2930222^"
^DD(915,.031,21,1,0)="Enter the Section number of the referenced Statute, i.e, 32, 21"
^DD(915,.031,21,2,0)="118A, etc."
^DD(915,.031,"DT")="2920827"
^DD(915,.032,0)="PRINT #^NJ3,0^^0;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(915,.032,1,0)="^.1"
^DD(915,.032,1,1,0)="915^D"
^DD(915,.032,1,1,1)="S ^ESP(915,""D"",$E(X,1,30),DA)="""""
^DD(915,.032,1,1,2)="K ^ESP(915,""D"",$E(X,1,30),DA)"
^DD(915,.032,1,1,"DT")="2921112"
^DD(915,.032,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(915,.032,21,0)="^^3^3^2940310^^"
^DD(915,.032,21,1,0)="Entering a number in this field controls placement of the offense"
^DD(915,.032,21,2,0)="description on a physical printout.  Refer to the User's Manual"
^DD(915,.032,21,3,0)="for additional directive information."
^DD(915,.032,"DT")="2930222"
^DD(915,.04,0)="CLASSIFICATION^S^C:CRIMINAL;P:PARKING;M:MOVING;A:ADMINISTRATIVE;^0;4^Q"
^DD(915,.04,3)="You must select from the available codes."
^DD(915,.04,21,0)="^^2^2^2930222^"
^DD(915,.04,21,1,0)="Enter the general classification of offense type.  Enter 'C' for"
^DD(915,.04,21,2,0)="CRIMINAL; 'P' for PARKING; 'M' for MOVING; or 'A' for ADMINISTRATIVE."
^DD(915,.04,"DT")="2920605"
^DD(915,10,0)="DEFINITION^915.01^^10;0"
^DD(915,10,21,0)="^^3^3^2930708^"
^DD(915,10,21,1,0)="This field is used to record the exact legal wording of any"
^DD(915,10,21,2,0)="particular criminal statute entered into the ESP Offense Code"
^DD(915,10,21,3,0)="file."
^DD(915,10,"DT")="2921015"
^DD(915,"B","CLASSIFICATION",.04)=""
^DD(915,"B","DEFINITION",10)=""
^DD(915,"B","NAME",.01)=""
^DD(915,"B","PRINT #",.032)=""
^DD(915,"B","SECTION",.031)=""
^DD(915,"B","STATUTE",.03)=""
^DD(915,"GL",0,1,.01)=""
^DD(915,"GL",0,3,.03)=""
^DD(915,"GL",0,4,.04)=""
^DD(915,"GL",0,5,.031)=""
^DD(915,"GL",0,6,.032)=""
^DD(915,"GL",10,0,10)=""
^DD(915,"IX",.01)=""
^DD(915,"IX",.031)=""
^DD(915,"IX",.032)=""
^DD(915,"RQ",.01)=""
^DD(915,"SB",915.01,10)=""
^DD(915.01,0)="DEFINITION SUB-FIELD^^.01^1"
^DD(915.01,0,"DT")="2920605"
^DD(915.01,0,"NM","DEFINITION")=""
^DD(915.01,0,"UP")="915"
^DD(915.01,.01,0)="DEFINITION^W^^0;1^Q"
^DD(915.01,.01,3)="Enter the exact wording of the statute."
^DD(915.01,.01,21,0)="^^2^2^2930222^^"
^DD(915.01,.01,21,1,0)="Enter the exact wording of the statute as contained within the"
^DD(915.01,.01,21,2,0)="legal documentation description."
^DD(915.01,.01,"DT")="2921015"
^DD(915.01,"B","DEFINITION",.01)=""
^DD(915.01,"GL",0,1,.01)=""
^DD(916,0)="FIELD^^5^7"
^DD(916,0,"DDA")="N"
^DD(916,0,"DT")="3040115"
^DD(916,0,"ID",.5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DG(40.8,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(40.8,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(916,0,"IX","AC",916,.01)=""
^DD(916,0,"IX","B",916,.01)=""
^DD(916,0,"NM","ESP DAILY JOURNAL")=""
^DD(916,0,"VR")="1.0"
^DD(916,0,"VRPK")="ES"
^DD(916,.01,0)="DATE^RDX^^0;1^K:X?4N X Q:'$D(X)  S %DT=""ETX"" D ^%DT S X=Y K:X<1 X"
^DD(916,.01,1,0)="^.1"
^DD(916,.01,1,1,0)="916^B"
^DD(916,.01,1,1,1)="S ^ESP(916,""B"",$E(X,1,30),DA)="""""
^DD(916,.01,1,1,2)="K ^ESP(916,""B"",$E(X,1,30),DA)"
^DD(916,.01,1,2,0)="916^AC^MUMPS"
^DD(916,.01,1,2,1)="I +$G(ESPFAC) S $P(^ESP(916,DA,0),U,2)=ESPFAC"
^DD(916,.01,1,2,2)="Q"
^DD(916,.01,1,2,"DT")="3040120"
^DD(916,.01,3)="(No range limit on date) 4 NUMERIC DIGITS NOT ALLOWED."
^DD(916,.01,21,0)="^^6^6^3030606^"
^DD(916,.01,21,1,0)="This should be the date that the Daily Operations Journal is"
^DD(916,.01,21,2,0)="being opened or initiated regardless of whether the time period"
^DD(916,.01,21,3,0)="covered is from 0001-2400 or 0800-0800.  Enter the date that"
^DD(916,.01,21,4,0)="the Journal is started. Date cannot be (4) numeric digits. Four digit "
^DD(916,.01,21,5,0)="entries could be time (HHMM), and time would be converted to a date if "
^DD(916,.01,21,6,0)="allowed."
^DD(916,.01,"DT")="3040120"
^DD(916,.5,0)="FACILITY^P40.8'I^DG(40.8,^0;2^Q"
^DD(916,.5,21,0)="^.001^1^1^3030415^^^"
^DD(916,.5,21,1,0)="Enter The Facility that the Journal belongs to."
^DD(916,.5,"DT")="2991008"
^DD(916,1,0)="FROM^FX^^1;1^S Y=X,X1=20_$P(X,""-"")-1700_$P(X,""-"",2)_$P(X,""-"",3),X2=DT D ^%DTC K:+$FN(X,""T"")>2!(%Y=0)!($P(Y,""-"",4)'?4N)!(+$P(Y,""-"",4)=0)!(+$P(Y,""-"",4)>2400) X I $D(X) S X=Y"
^DD(916,1,3)="Answer must be 13 characters in length and in YY-MM-DD-HHMM format. Date must be no more than +/- 2 days of current date."
^DD(916,1,21,0)="^^2^2^2930504^^"
^DD(916,1,21,1,0)="Correct format consists of Year-Month-Day-Starting Time, i.e.,"
^DD(916,1,21,2,0)="'93-04-05-0001' or '93-04-05-0800'."
^DD(916,1,"DT")="3040317"
^DD(916,2,0)="TO^FX^^1;2^S Y=X,X1=20_$P(X,""-"")-1700_$P(X,""-"",2)_$P(X,""-"",3),X2=DT D ^%DTC K:+$FN(X,""T"")>2!(%Y=0)!($P(Y,""-"",4)'?4N)!(+$P(Y,""-"",4)=0)!(+$P(Y,""-"",4)>2400) X I $D(X) S X=Y"
^DD(916,2,3)="Answer must be 13 characters in length and in YY-MM-DD-HHMM format. Date must be no more than +/- 2 days of current date. "
^DD(916,2,21,0)="^^2^2^2980625^^"
^DD(916,2,21,1,0)="Correct format consists of Year-Month-Day-Ending Time, i.e.,"
^DD(916,2,21,2,0)="'93-04-05-2400' or '93-04-06-0800'."
^DD(916,2,"DT")="3040317"
^DD(916,3,0)="WATCH^916.03S^^2;0"
^DD(916,3,21,0)="^^2^2^2930726^^^"
^DD(916,3,21,1,0)="This field is used to record the police officers assigned to"
^DD(916,3,21,2,0)="the watch or work shift that is making the Daily Journal entries."
^DD(916,3,22)=""
^DD(916,4,0)="SPECIAL INSTRUCTIONS^916.04^^3;0"
^DD(916,4,21,0)="^^2^2^2930708^"
^DD(916,4,21,1,0)="This field is used to record any specific operational"
^DD(916,4,21,2,0)="instructions for any of the assigned watches or work shifts."
^DD(916,5,0)="TIME^916.05I^^4;0"
^DD(916,5,21,0)="^^2^2^2960410^^"
^DD(916,5,21,1,0)="This field is used to record a time that an activity occurred"
^DD(916,5,21,2,0)="which necessitates the creation of a Daily Journal Entry."
^DD(916,"B","DATE",.01)=""
^DD(916,"B","FACILITY",.5)=""
^DD(916,"B","FROM",1)=""
^DD(916,"B","SPECIAL INSTRUCTIONS",4)=""
^DD(916,"B","TIME",5)=""
^DD(916,"B","TO",2)=""
^DD(916,"B","WATCH",3)=""
^DD(916,"GL",0,1,.01)=""
^DD(916,"GL",0,2,.5)=""
^DD(916,"GL",1,1,1)=""
^DD(916,"GL",1,2,2)=""
^DD(916,"GL",2,0,3)=""
^DD(916,"GL",3,0,4)=""
^DD(916,"GL",4,0,5)=""
^DD(916,"IX",.01)=""
^DD(916,"RQ",.01)=""
^DD(916,"SB",916.03,3)=""
^DD(916,"SB",916.04,4)=""
^DD(916,"SB",916.05,5)=""
^DD(916.03,0)="WATCH SUB-FIELD^^1^2"
^DD(916.03,0,"DT")="3040115"
^DD(916.03,0,"IX","B",916.03,.01)=""
^DD(916.03,0,"NM","WATCH")=""
^DD(916.03,0,"UP")="916"
^DD(916.03,.01,0)="WATCH^MS^A:WATCH A;B:WATCH B;C:WATCH C;^0;1^Q"
^DD(916.03,.01,1,0)="^.1"
^DD(916.03,.01,1,1,0)="916.03^B"
^DD(916.03,.01,1,1,1)="S ^ESP(916,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(916.03,.01,1,1,2)="K ^ESP(916,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(916.03,.01,3)="You must select from the available shift codes."
^DD(916.03,.01,21,0)="^^4^4^2930504^^"
^DD(916.03,.01,21,1,0)="Enter the three shifts for each day, i.e., Watch A, Watch B and"
^DD(916.03,.01,21,2,0)="Watch C.  Time elements associated with each of the shifts have"
^DD(916.03,.01,21,3,0)="not been included, since there is a variance at different field"
^DD(916.03,.01,21,4,0)="stations."
^DD(916.03,.01,"DT")="2930330"
^DD(916.03,1,0)="OFFICER^916.31P^^1;0"
^DD(916.03,1,21,0)="^^2^2^2930708^"
^DD(916.03,1,21,1,0)="This field is used to list all officers assigned to a special"
^DD(916.03,1,21,2,0)="watch or work shift."
^DD(916.03,"B","OFFICER",1)=""
^DD(916.03,"B","WATCH",.01)=""
^DD(916.03,"GL",0,1,.01)=""
^DD(916.03,"GL",1,0,1)=""
^DD(916.03,"IX",.01)=""
^DD(916.03,"SB",916.31,1)=""
^DD(916.04,0)="SPECIAL INSTRUCTIONS SUB-FIELD^^.01^1"
^DD(916.04,0,"DT")="2930330"
^DD(916.04,0,"NM","SPECIAL INSTRUCTIONS")=""
^DD(916.04,0,"UP")="916"
^DD(916.04,.01,0)="SPECIAL INSTRUCTIONS^W^^0;1^Q"
^DD(916.04,.01,"DT")="2930330"
^DD(916.04,"B","SPECIAL INSTRUCTIONS",.01)=""
^DD(916.04,"GL",0,1,.01)=""
^DD(916.05,0)="TIME SUB-FIELD^^3^4"
^DD(916.05,0,"DT")="2930715"
^DD(916.05,0,"ID","WRITE")="S %I=Y,Y=$S('$D(^(1)):"""",$D(^VA(200,+$P(^(1),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(916.05,0,"IX","B",916.05,.01)=""
^DD(916.05,0,"NM","TIME")=""
^DD(916.05,0,"UP")="916"
^DD(916.05,.01,0)="TIME^MFX^^0;1^K:X'?4N!(X<1!(X>2400)) X W:'$D(X) "" Must be a valid time between 0001 and 2400."""
^DD(916.05,.01,1,0)="^.1^^-1"
^DD(916.05,.01,1,1,0)="916.05^B"
^DD(916.05,.01,1,1,1)="S ^ESP(916,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(916.05,.01,1,1,2)="K ^ESP(916,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(916.05,.01,3)="Answer must be 4 numeric characters and a valid military time."
^DD(916.05,.01,21,0)="^^1^1^2960410^^"
^DD(916.05,.01,21,1,0)="Enter the time that the Journal Entry action occurred."
^DD(916.05,.01,"DT")="2930812"
^DD(916.05,1,0)="OFFICER^*P200'X^VA(200,^1;1^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(916.05,1,12)="Select a currently assigned police officer."
^DD(916.05,1,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"""
^DD(916.05,1,21,0)="^^4^4^2930714^^^"
^DD(916.05,1,21,1,0)="Enter the name of the VA Police Officer who was responsible for"
^DD(916.05,1,21,2,0)="the Daily Journal Entry.  The officer's name must be entered in the"
^DD(916.05,1,21,3,0)="NEW PERSON file (200) and must also be assigned the ESP POLICE"
^DD(916.05,1,21,4,0)="Security Key."
^DD(916.05,1,"DT")="3040324"
^DD(916.05,2,0)="ACTIVITY^F^^2;1^K:$L(X)>50!($L(X)<1) X"
^DD(916.05,2,3)="Answer must be 1-50 characters in length."
^DD(916.05,2,21,0)="^^3^3^2930708^"
^DD(916.05,2,21,1,0)="Enter a general description of the type of activity recorded"
^DD(916.05,2,21,2,0)="in the Daily Journal Entry, i.e., Investigation, Traffic Accident,"
^DD(916.05,2,21,3,0)="Administrative, etc."
^DD(916.05,2,"DT")="2930330"
^DD(916.05,3,0)="ENTRY SUMMARY^916.53^^3;0"
^DD(916.05,3,21,0)="^^4^4^2930708^"
^DD(916.05,3,21,1,0)="Enter a brief description of the Daily Journal Entry.  This is"
^DD(916.05,3,21,2,0)="not intended to replace an Offense Report, only record a brief"
^DD(916.05,3,21,3,0)="descriptive record.  Usually the Daily Journal Entry will"
^DD(916.05,3,21,4,0)="reference the Uniform Offense Number when appropriate."
^DD(916.05,"B","ACTIVITY",2)=""
^DD(916.05,"B","ENTRY SUMMARY",3)=""
^DD(916.05,"B","OFFICER",1)=""
^DD(916.05,"B","TIME",.01)=""
^DD(916.05,"GL",0,1,.01)=""
^DD(916.05,"GL",1,1,1)=""
^DD(916.05,"GL",2,1,2)=""
^DD(916.05,"GL",3,0,3)=""
^DD(916.05,"IX",.01)=""
^DD(916.05,"SB",916.53,3)=""
^DD(916.31,0)="OFFICER SUB-FIELD^^.03^3"
^DD(916.31,0,"DT")="3040115"
^DD(916.31,0,"IX","B",916.31,.01)=""
^DD(916.31,0,"NM","OFFICER")=""
^DD(916.31,0,"UP")="916.03"
^DD(916.31,.01,0)="OFFICER^M*P200'X^VA(200,^0;1^S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(916.31,.01,1,0)="^.1"
^DD(916.31,.01,1,1,0)="916.31^B"
^DD(916.31,.01,1,1,1)="S ^ESP(916,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(916.31,.01,1,1,2)="K ^ESP(916,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(916.31,.01,1,2,0)="^^TRIGGER^916.31^.02"
^DD(916.31,.01,1,2,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ESP(916,D0,2,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S HX=X,X=$$SET^ESPCRJO(HX,1) X ^DD(916.31,.01,1,2,1.4)"
^DD(916.31,.01,1,2,1.4)="S DIH=$G(^ESP(916,DIV(0),2,DIV(1),1,DIV(2),0)),DIV=X S $P(^(0),U,2)=DIV,DIH=916.31,DIG=.02 D ^DICR"
^DD(916.31,.01,1,2,2)="Q"
^DD(916.31,.01,1,2,"CREATE VALUE")="S HX=X,X=$$SET^ESPCRJO(HX,1)"
^DD(916.31,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(916.31,.01,1,2,"DT")="3040120"
^DD(916.31,.01,1,2,"FIELD")="BADGE"
^DD(916.31,.01,1,3,0)="^^TRIGGER^916.31^.03"
^DD(916.31,.01,1,3,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^ESP(916,D0,2,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S HX=X,X=$$SET^ESPCRJO(HX,2) X ^DD(916.31,.01,1,3,1.4)"
^DD(916.31,.01,1,3,1.4)="S DIH=$G(^ESP(916,DIV(0),2,DIV(1),1,DIV(2),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=916.31,DIG=.03 D ^DICR"
^DD(916.31,.01,1,3,2)="Q"
^DD(916.31,.01,1,3,"CREATE VALUE")="S HX=X,X=$$SET^ESPCRJO(HX,2)"
^DD(916.31,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(916.31,.01,1,3,"DT")="3040223"
^DD(916.31,.01,1,3,"FIELD")="RANK"
^DD(916.31,.01,3)="You must select from currently assigned police officers."
^DD(916.31,.01,12)="Select a currently assigned police officer."
^DD(916.31,.01,12.1)="S DIC(""S"")=""I $D(^VA(200,""""AK.ESP POLICE"""",$P(^(0),U),+Y))"""
^DD(916.31,.01,21,0)="^^3^3^2930714^^^"
^DD(916.31,.01,21,1,0)="Enter the names of all officers currently assigned to work each"
^DD(916.31,.01,21,2,0)="shift.  The officers' names must be contained within the NEW PERSON"
^DD(916.31,.01,21,3,0)="file (200) and must also be assigned the ESP POLICE Security Key."
^DD(916.31,.01,"DT")="3040618"
^DD(916.31,.02,0)="BADGE NUMBER^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(916.31,.02,.1)="OFFICER BADGE NUMBER"
^DD(916.31,.02,3)="Type a number between 1 and 999999, 0 Decimal Digits"
^DD(916.31,.02,5,1,0)="916.31^.01^2"
^DD(916.31,.02,9)="^"
^DD(916.31,.02,21,0)="^^3^3^3040115^"
^DD(916.31,.02,21,1,0)="Officer badge number"
^DD(916.31,.02,21,2,0)=" "
^DD(916.31,.02,21,3,0)="UNEDITABLE"
^DD(916.31,.02,"AUDIT")="n"
^DD(916.31,.02,"DT")="3040115"
^DD(916.31,.03,0)="RANK^F^^0;3^K:$L(X)>50!($L(X)<2) X"
^DD(916.31,.03,.1)="OFFICER RANK"
^DD(916.31,.03,3)="Answer must be 2-50 characters in length"
^DD(916.31,.03,5,1,0)="916.31^.01^3"
^DD(916.31,.03,9)="^"
^DD(916.31,.03,21,0)="^^3^3^3040115^"
^DD(916.31,.03,21,1,0)="VA officer assigned rank"
^DD(916.31,.03,21,2,0)=" "
^DD(916.31,.03,21,3,0)="UNEDITABLE"
^DD(916.31,.03,"DT")="3040115"
^DD(916.31,"B","BADGE NUMBER",.02)=""
^DD(916.31,"B","OFFICER",.01)=""
^DD(916.31,"B","OFFICER BADGE NUMBER",.02)="1"
^DD(916.31,"B","OFFICER RANK",.03)="1"
^DD(916.31,"B","RANK",.03)=""
^DD(916.31,"GL",0,1,.01)=""
^DD(916.31,"GL",0,2,.02)=""
^DD(916.31,"GL",0,3,.03)=""
^DD(916.31,"IX",.01)=""
^DD(916.53,0)="ENTRY SUMMARY SUB-FIELD^^.01^1"
^DD(916.53,0,"DT")="2930330"
^DD(916.53,0,"NM","ENTRY SUMMARY")=""
^DD(916.53,0,"UP")="916.05"
^DD(916.53,.01,0)="ENTRY SUMMARY^W^^0;1^Q"
^DD(916.53,.01,"DT")="2930330"
^DD(916.53,"B","ENTRY SUMMARY",.01)=""
^DD(916.53,"GL",0,1,.01)=""
^DD(950,0)="FIELD^^1^2"
^DD(950,0,"DT")="2990628"
^DD(950,0,"IX","B",950,.01)=""
^DD(950,0,"NM","XML ENTITY CATALOG")=""
^DD(950,0,"VR")="7.3"
^DD(950,0,"VRPK")="XT"
^DD(950,.01,0)="ID^RFX^^0;1^S X=$$NMLWS^MXMLPRSE(X) K:$L(X)>250!'$L(X) X"
^DD(950,.01,1,0)="^.1^^-1"
^DD(950,.01,1,1,0)="950^B"
^DD(950,.01,1,1,1)="S ^MXML(950,""B"",$E(X,1,30),DA)="""""
^DD(950,.01,1,1,2)="K ^MXML(950,""B"",$E(X,1,30),DA)"
^DD(950,.01,3)="Answer must be 1-250 characters in length."
^DD(950,.01,"DT")="2991122"
^DD(950,1,0)="VALUE^950.01^^1;0"
^DD(950,"B","ID",.01)=""
^DD(950,"B","VALUE",1)=""
^DD(950,"GL",0,1,.01)=""
^DD(950,"GL",1,0,1)=""
^DD(950,"IX",.01)=""
^DD(950,"RQ",.01)=""
^DD(950,"SB",950.01,1)=""
^DD(950.01,0)="VALUE SUB-FIELD^^.01^1"
^DD(950.01,0,"DT")="2990628"
^DD(950.01,0,"NM","VALUE")=""
^DD(950.01,0,"UP")="950"
^DD(950.01,.01,0)="VALUE^WL^^0;1^Q"
^DD(950.01,.01,"DT")="2990628"
^DD(950.01,"B","VALUE",.01)=""
^DD(950.01,"GL",0,1,.01)=""
^DD(984.1,0)="FIELD^^5^5"
^DD(984.1,0,"DDA")="N"
^DD(984.1,0,"DT")="2970207"
^DD(984.1,0,"IX","B",984.1,.01)=""
^DD(984.1,0,"NM","MASTER PATIENT INDEX (LOCAL NUMBERS)")=""
^DD(984.1,0,"VR")="1.0"
^DD(984.1,0,"VRPK")="MASTER PATIENT INDEX VISTA"
^DD(984.1,.01,0)="SITE ID NUMBER^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(984.1,.01,1,0)="^.1"
^DD(984.1,.01,1,1,0)="984.1^B"
^DD(984.1,.01,1,1,1)="S ^MPIF(984.1,""B"",$E(X,1,30),DA)="""""
^DD(984.1,.01,1,1,2)="K ^MPIF(984.1,""B"",$E(X,1,30),DA)"
^DD(984.1,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(984.1,.01,21,0)="^^2^2^2970207^"
^DD(984.1,.01,21,1,0)="This is the number which will be used as a multiple to generate"
^DD(984.1,.01,21,2,0)="local ICNs when the MPI is unreachable."
^DD(984.1,.01,"DT")="2970207"
^DD(984.1,1,0)="LAST NUMBER USED^RNJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(984.1,1,3)="Type a number between 0 and 9999999999, 0 Decimal Digits"
^DD(984.1,1,21,0)="^^1^1^2981221^"
^DD(984.1,1,21,1,0)="This keeps the last number used (not the next number to use)."
^DD(984.1,1,"DT")="3070524"
^DD(984.1,2,0)="CHECK SUM FOR LAST NUMBER USED^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(984.1,2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(984.1,2,21,0)="^^2^2^2981221^"
^DD(984.1,2,21,1,0)="This filed contains the checksum for the last Local ICN (Integration"
^DD(984.1,2,21,2,0)="Control Number) in the LAST NUMBER USED field."
^DD(984.1,2,"DT")="2970207"
^DD(984.1,3,0)="NEXT NUMBER TO USE^NJ10,0^^0;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(984.1,3,3)="Type a number between 0 and 9999999999, 0 Decimal Digits"
^DD(984.1,3,21,0)="^^1^1^2970207^"
^DD(984.1,3,21,1,0)="When used move to last number used and generate a new entry."
^DD(984.1,3,"DT")="3070524"
^DD(984.1,5,0)="CHECK SUM FOR NEXT^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(984.1,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(984.1,5,21,0)="^^2^2^2981221^"
^DD(984.1,5,21,1,0)="This is the checksum for the next number to use.  Move to the checksum"
^DD(984.1,5,21,2,0)="used then generate a new entry."
^DD(984.1,5,"DT")="2981221"
^DD(984.1,"B","CHECK SUM FOR LAST NUMBER USED",2)=""
^DD(984.1,"B","CHECK SUM FOR NEXT",5)=""
^DD(984.1,"B","LAST NUMBER USED",1)=""
^DD(984.1,"B","NEXT NUMBER TO USE",3)=""
^DD(984.1,"B","SITE ID NUMBER",.01)=""
^DD(984.1,"GL",0,1,.01)=""
^DD(984.1,"GL",0,2,1)=""
^DD(984.1,"GL",0,3,2)=""
^DD(984.1,"GL",0,4,3)=""
^DD(984.1,"GL",0,5,5)=""
^DD(984.1,"IX",.01)=""
^DD(984.1,"RQ",.01)=""
^DD(984.1,"RQ",1)=""
^DD(984.5,0)="FIELD^^10^11"
^DD(984.5,0,"DT")="2961124"
^DD(984.5,0,"IX","B",984.5,.01)=""
^DD(984.5,0,"NM","MPI CHECKDIGIT")=""
^DD(984.5,0,"VR")="1.0"
^DD(984.5,0,"VRPK")="MASTER PATIENT INDEX VISTA"
^DD(984.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(984.5,.01,1,0)="^.1"
^DD(984.5,.01,1,1,0)="984.5^B"
^DD(984.5,.01,1,1,1)="S ^MPIF(984.5,""B"",$E(X,1,30),DA)="""""
^DD(984.5,.01,1,1,2)="K ^MPIF(984.5,""B"",$E(X,1,30),DA)"
^DD(984.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(984.5,.01,21,0)="^^1^1^2981221^"
^DD(984.5,.01,21,1,0)="Table name for each check digit schema."
^DD(984.5,1,0)="STRING^F^^0;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,1,3)="Answer must be 31 characters in length."
^DD(984.5,1,21,0)="^^1^1^2981221^"
^DD(984.5,1,21,1,0)="Check digit schema components."
^DD(984.5,1,"DT")="2961124"
^DD(984.5,2,0)="STRING1^F^^1;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,2,3)="Answer must be 31 characters in length."
^DD(984.5,2,21,0)="^^1^1^2981221^"
^DD(984.5,2,21,1,0)="Check digit schema components."
^DD(984.5,2,"DT")="2961124"
^DD(984.5,3,0)="STRING2^F^^2;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,3,3)="Answer must be 31 characters in length."
^DD(984.5,3,21,0)="^^1^1^2981221^"
^DD(984.5,3,21,1,0)="Check digit schema components."
^DD(984.5,3,"DT")="2961124"
^DD(984.5,4,0)="STRING3^F^^3;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,4,3)="Answer must be 31 characters in length."
^DD(984.5,4,21,0)="^^1^1^2981221^"
^DD(984.5,4,21,1,0)="Check digit schema components."
^DD(984.5,4,"DT")="2961124"
^DD(984.5,5,0)="STRING4^F^^4;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,5,3)="Answer must be 31 characters in length."
^DD(984.5,5,21,0)="^^1^1^2981221^"
^DD(984.5,5,21,1,0)="Check digit schema components."
^DD(984.5,5,"DT")="2961124"
^DD(984.5,6,0)="STRING5^F^^5;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,6,3)="Answer must be 31 characters in length."
^DD(984.5,6,21,0)="^^1^1^2981221^"
^DD(984.5,6,21,1,0)="Check digit schema components."
^DD(984.5,6,"DT")="2961124"
^DD(984.5,7,0)="STRING6^F^^6;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,7,3)="Answer must be 31 characters in length."
^DD(984.5,7,21,0)="^^1^1^2981221^"
^DD(984.5,7,21,1,0)="Check digit schema components."
^DD(984.5,7,"DT")="2961124"
^DD(984.5,8,0)="STRING7^F^^7;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,8,3)="Answer must be 31 characters in length."
^DD(984.5,8,21,0)="^^1^1^2981221^"
^DD(984.5,8,21,1,0)="Check digit schema components."
^DD(984.5,8,"DT")="2961124"
^DD(984.5,9,0)="STRING8^F^^8;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,9,3)="Answer must be 31 characters in length."
^DD(984.5,9,21,0)="^^1^1^2981221^"
^DD(984.5,9,21,1,0)="Check digit schema components."
^DD(984.5,9,"DT")="2961124"
^DD(984.5,10,0)="STRING9^F^^9;2^K:$L(X)>31!($L(X)<31) X"
^DD(984.5,10,3)="Answer must be 31 characters in length."
^DD(984.5,10,21,0)="^^1^1^2981221^"
^DD(984.5,10,21,1,0)="Check digit schema components."
^DD(984.5,10,"DT")="2961124"
^DD(984.5,"B","NAME",.01)=""
^DD(984.5,"B","STRING",1)=""
^DD(984.5,"B","STRING1",2)=""
^DD(984.5,"B","STRING2",3)=""
^DD(984.5,"B","STRING3",4)=""
^DD(984.5,"B","STRING4",5)=""
^DD(984.5,"B","STRING5",6)=""
^DD(984.5,"B","STRING6",7)=""
^DD(984.5,"B","STRING7",8)=""
^DD(984.5,"B","STRING8",9)=""
^DD(984.5,"B","STRING9",10)=""
^DD(984.5,"GL",0,1,.01)=""
^DD(984.5,"GL",0,2,1)=""
^DD(984.5,"GL",1,2,2)=""
^DD(984.5,"GL",2,2,3)=""
^DD(984.5,"GL",3,2,4)=""
^DD(984.5,"GL",4,2,5)=""
^DD(984.5,"GL",5,2,6)=""
^DD(984.5,"GL",6,2,7)=""
^DD(984.5,"GL",7,2,8)=""
^DD(984.5,"GL",8,2,9)=""
^DD(984.5,"GL",9,2,10)=""
^DD(984.5,"IX",.01)=""
^DD(984.5,"RQ",.01)=""
^DD(984.8,0)="FIELD^^9^11"
^DD(984.8,0,"DDA")="N"
^DD(984.8,0,"DT")="2990420"
^DD(984.8,0,"IX","B",984.8,.01)=""
^DD(984.8,0,"NM","MPI ICN BUILD MANAGEMENT")=""
^DD(984.8,0,"VR")="1.0"
^DD(984.8,0,"VRPK")="MASTER PATIENT INDEX VISTA"
^DD(984.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(984.8,.01,1,0)="^.1"
^DD(984.8,.01,1,1,0)="984.8^B"
^DD(984.8,.01,1,1,1)="S ^MPIF(984.8,""B"",$E(X,1,30),DA)="""""
^DD(984.8,.01,1,1,2)="K ^MPIF(984.8,""B"",$E(X,1,30),DA)"
^DD(984.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(984.8,.01,21,0)="^^2^2^2981221^"
^DD(984.8,.01,21,1,0)="This field will only have ONE entry - ONE.  It is used to keep track of"
^DD(984.8,.01,21,2,0)="the latest initialization run to the MPI (Master Patient Index)."
^DD(984.8,1,0)="ICN ASSIGNMENT STARTED^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(984.8,1,3)="Enter the date and time to start the initialization job"
^DD(984.8,1,21,0)="^^1^1^2981231^^"
^DD(984.8,1,21,1,0)="The date/time the Master Patient Index (MPI) initialization started."
^DD(984.8,1,"DT")="2970820"
^DD(984.8,2,0)="ICN ASSIGNMENT ENDED^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(984.8,2,3)="Enter the date/time for the Initialization job to stop if it has not completed."
^DD(984.8,2,21,0)="^^1^1^2981221^"
^DD(984.8,2,21,1,0)="The date/time the Master Patient Index (MPI) initialization job stopped."
^DD(984.8,2,"DT")="2970820"
^DD(984.8,3,0)="LAST PATIENT BUILT^NJ10,0^^0;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(984.8,3,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(984.8,3,21,0)="^^2^2^2981221^"
^DD(984.8,3,21,1,0)="This is the DFN of the last patient in the PATIENT file that was"
^DD(984.8,3,21,2,0)="initialized against the Master Patient Index (MPI)."
^DD(984.8,3,"DT")="2970820"
^DD(984.8,3.5,0)="LAST CMOR COMPLETED^NJ7,0^^0;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(984.8,3.5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(984.8,3.5,21,0)="^^2^2^2981221^"
^DD(984.8,3.5,21,1,0)="This is the last CMOR Activity Score that was used to send patients to the"
^DD(984.8,3.5,21,2,0)="MPI for Initialization."
^DD(984.8,3.5,"DT")="2971015"
^DD(984.8,4,0)="STATUS^F^^0;5^K:$L(X)>20!($L(X)<2) X"
^DD(984.8,4,3)="Answer must be 2-20 characters in length."
^DD(984.8,4,21,0)="^^2^2^2990420^^"
^DD(984.8,4,21,1,0)="This field is used by the initialization job to note the activity it is"
^DD(984.8,4,21,2,0)="performing on a given patient."
^DD(984.8,4,"DT")="2990420"
^DD(984.8,5,0)="REQUEST TO STOP^F^^0;6^K:$L(X)>10!($L(X)<2) X"
^DD(984.8,5,3)="Answer must be 2-10 characters in length."
^DD(984.8,5,21,0)="^^2^2^2981221^"
^DD(984.8,5,21,1,0)="This field is used to request the Initialization job to stop.  An option"
^DD(984.8,5,21,2,0)="will be provided to allow a user to stop the job prior to STOP WHEN."
^DD(984.8,5,"DT")="2970821"
^DD(984.8,6,0)="MESSAGE ID^F^^0;7^K:$L(X)>20!($L(X)<2) X"
^DD(984.8,6,3)="Answer must be 2-20 characters in length."
^DD(984.8,6,21,0)="^^2^2^2981221^"
^DD(984.8,6,21,1,0)="This is the HL7 message ID for the last message created during the MPI"
^DD(984.8,6,21,2,0)="Initialization process."
^DD(984.8,6,"DT")="2970821"
^DD(984.8,7,0)="MESSAGE TEXT IEN^F^^0;8^K:$L(X)>20!($L(X)<2) X"
^DD(984.8,7,3)="Answer must be 2-20 characters in length."
^DD(984.8,7,21,0)="^^2^2^2981221^"
^DD(984.8,7,21,1,0)="This is the HL7 message IEN for the last message created during the"
^DD(984.8,7,21,2,0)="MPI Initialization process."
^DD(984.8,7,"DT")="2970821"
^DD(984.8,8,0)="COUNTER SEQUENCE^NJ5,0^^0;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(984.8,8,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(984.8,8,21,0)="^^2^2^2981221^"
^DD(984.8,8,21,1,0)="This is a counter for the number of messages sent to the MPI during the"
^DD(984.8,8,21,2,0)="Initialization process."
^DD(984.8,8,"DT")="2970821"
^DD(984.8,9,0)="STOP WHEN^D^^0;10^S %DT=""ETR"" D ^%DT S X=Y K:Y<1 X"
^DD(984.8,9,3)="TYPE A DATE/TIME WHEN YOU WISH THE PROCESS TO END."
^DD(984.8,9,21,0)="^^2^2^2981221^"
^DD(984.8,9,21,1,0)="This field is a date/time that the user has selected for the"
^DD(984.8,9,21,2,0)="initialization process to stop if it has not completed."
^DD(984.8,9,"DT")="2970916"
^DD(984.8,"B","COUNTER SEQUENCE",8)=""
^DD(984.8,"B","ICN ASSIGNMENT ENDED",2)=""
^DD(984.8,"B","ICN ASSIGNMENT STARTED",1)=""
^DD(984.8,"B","LAST CMOR COMPLETED",3.5)=""
^DD(984.8,"B","LAST PATIENT BUILT",3)=""
^DD(984.8,"B","MESSAGE ID",6)=""
^DD(984.8,"B","MESSAGE TEXT IEN",7)=""
^DD(984.8,"B","NAME",.01)=""
^DD(984.8,"B","REQUEST TO STOP",5)=""
^DD(984.8,"B","STATUS",4)=""
^DD(984.8,"B","STOP WHEN",9)=""
^DD(984.8,"GL",0,1,.01)=""
^DD(984.8,"GL",0,2,1)=""
^DD(984.8,"GL",0,3,2)=""
^DD(984.8,"GL",0,4,3)=""
^DD(984.8,"GL",0,5,4)=""
^DD(984.8,"GL",0,6,5)=""
^DD(984.8,"GL",0,7,6)=""
^DD(984.8,"GL",0,8,7)=""
^DD(984.8,"GL",0,9,8)=""
^DD(984.8,"GL",0,10,9)=""
^DD(984.8,"GL",0,11,3.5)=""
^DD(984.8,"IX",.01)=""
^DD(984.8,"RQ",.01)=""
^DD(984.9,0)="FIELD^^102^20"
^DD(984.9,0,"ID","WR1")="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(984.9,0,"ID","WR2")="W ""   "",@(""$P($P($C(59)_$S($D(^DD(991,.06,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,6)_"""":"""",2),$C(59),1)"")"
^DD(984.9,0,"ID","WR3")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(984.9,0,"IX","AC",984.9,.06)=""
^DD(984.9,0,"IX","AD",984.9,.02)=""
^DD(984.9,0,"IX","AE",984.9,2.01)=""
^DD(984.9,0,"IX","AS1",984.9,.06)=""
^DD(984.9,0,"IX","AS2",984.9,.07)=""
^DD(984.9,0,"IX","B",984.9,.01)=""
^DD(984.9,0,"IX","C",984.9,.04)=""
^DD(984.9,0,"NM","MPIF CMOR REQUEST")=""
^DD(984.9,0,"VR")="1.0"
^DD(984.9,0,"VRPK")="MASTER PATIENT INDEX VISTA"
^DD(984.9,.01,0)="REQUEST NUMBER^RF^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(984.9,.01,1,0)="^.1"
^DD(984.9,.01,1,1,0)="984.9^B"
^DD(984.9,.01,1,1,1)="S ^MPIF(984.9,""B"",$E(X,1,30),DA)="""""
^DD(984.9,.01,1,1,2)="K ^MPIF(984.9,""B"",$E(X,1,30),DA)"
^DD(984.9,.01,3)="Answer must be 3-20 characters in length."
^DD(984.9,.01,21,0)="^^4^4^2970408^^"
^DD(984.9,.01,21,1,0)="Request number is automatically generated by the system and is used"
^DD(984.9,.01,21,2,0)="to identify a specific CMOR request.  When a request is transmitted to"
^DD(984.9,.01,21,3,0)="another station, the request number remains the same across both"
^DD(984.9,.01,21,4,0)="stations."
^DD(984.9,.01,"DT")="2960712"
^DD(984.9,.02,0)="REQUESTED BY^RP200'^VA(200,^0;2^Q"
^DD(984.9,.02,1,0)="^.1"
^DD(984.9,.02,1,1,0)="984.9^AD"
^DD(984.9,.02,1,1,1)="S ^MPIF(984.9,""AD"",$E(X,1,30),DA)="""""
^DD(984.9,.02,1,1,2)="K ^MPIF(984.9,""AD"",$E(X,1,30),DA)"
^DD(984.9,.02,1,1,"DT")="2960703"
^DD(984.9,.02,3)="Select the person making the request from the New Person file."
^DD(984.9,.02,21,0)="^^5^5^3011031^"
^DD(984.9,.02,21,1,0)="The REQUESTED BY field will exist at the originating station only.  Once"
^DD(984.9,.02,21,2,0)="the request is transmitted to another station, the receiving station"
^DD(984.9,.02,21,3,0)="will not have data in this field.  This is due to the fact that the"
^DD(984.9,.02,21,4,0)="receiving location will not have the originating person in their New "
^DD(984.9,.02,21,5,0)="Person (#200) file."
^DD(984.9,.02,"DT")="3011031"
^DD(984.9,.03,0)="DATE REQUESTED^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(984.9,.03,3)="Enter the date/time of the request."
^DD(984.9,.03,21,0)="^^1^1^2970408^^^"
^DD(984.9,.03,21,1,0)="Date requested is the date the request was entered into the system."
^DD(984.9,.03,"DT")="2960702"
^DD(984.9,.04,0)="PATIENT^P2'^DPT(^0;4^Q"
^DD(984.9,.04,1,0)="^.1"
^DD(984.9,.04,1,1,0)="984.9^C"
^DD(984.9,.04,1,1,1)="S ^MPIF(984.9,""C"",$E(X,1,30),DA)="""""
^DD(984.9,.04,1,1,2)="K ^MPIF(984.9,""C"",$E(X,1,30),DA)"
^DD(984.9,.04,1,1,"DT")="2960724"
^DD(984.9,.04,3)="Select the patient that the CMOR request is for."
^DD(984.9,.04,21,0)="^^1^1^2981221^^^"
^DD(984.9,.04,21,1,0)="Patient affected by the CMOR change request."
^DD(984.9,.04,"DT")="2971006"
^DD(984.9,.05,0)="REQUESTOR PHONE NUMBER^RF^^0;5^K:$L(X)>20!($L(X)<4) X"
^DD(984.9,.05,3)="Answer must be 4-20 characters in length."
^DD(984.9,.05,21,0)="^^3^3^2970408^^^^"
^DD(984.9,.05,21,1,0)="Phone number that can be used to contact the person requesting the"
^DD(984.9,.05,21,2,0)="CMOR change request.  This data is transmitted to the receiving location"
^DD(984.9,.05,21,3,0)="and is needed if the person reviewing the request has questions."
^DD(984.9,.05,"DT")="2960703"
^DD(984.9,.06,0)="STATUS^RS^1:OPEN;2:REQUESTED;3:PENDING APPROVAL;4:APPROVED;5:DISAPPROVED;^0;6^Q"
^DD(984.9,.06,1,0)="^.1"
^DD(984.9,.06,1,1,0)="984.9^AC"
^DD(984.9,.06,1,1,1)="S ^MPIF(984.9,""AC"",$E(X,1,30),DA)="""""
^DD(984.9,.06,1,1,2)="K ^MPIF(984.9,""AC"",$E(X,1,30),DA)"
^DD(984.9,.06,1,1,"DT")="2960703"
^DD(984.9,.06,1,2,0)="984.9^AS1^MUMPS"
^DD(984.9,.06,1,2,1)="S:$P(^MPIF(984.9,DA,0),""^"",7)]"""" ^MPIF(984.9,""AS"",$P(^(0),""^"",7),X,DA)="""""
^DD(984.9,.06,1,2,2)="K:$P(^MPIF(984.9,DA,0),""^"",7)]"""" ^MPIF(984.9,""AS"",$P(^(0),""^"",7),X,DA)"
^DD(984.9,.06,1,2,"%D",0)="^^1^1^3010709^"
^DD(984.9,.06,1,2,"%D",1,0)="Compound x-ref on site and status."
^DD(984.9,.06,1,2,"DT")="3010709"
^DD(984.9,.06,3)=""
^DD(984.9,.06,21,0)="^^7^7^3010613^"
^DD(984.9,.06,21,1,0)="This field tracks the progress of the CMOR change request.  As the"
^DD(984.9,.06,21,2,0)="request is being entered, it has a status of Open.  Once the requestor"
^DD(984.9,.06,21,3,0)="sends the request, the status is change to Requested.  At the receiving"
^DD(984.9,.06,21,4,0)="location, the status is set to Pending Approval.  Once it is processed, it"
^DD(984.9,.06,21,5,0)="will be set to Approved or Disapproved.  The requesting site will also"
^DD(984.9,.06,21,6,0)="update the status to Approved or Disapproved once the request has been"
^DD(984.9,.06,21,7,0)="processed."
^DD(984.9,.06,"DT")="3010709"
^DD(984.9,.07,0)="SITE^P4'^DIC(4,^0;7^Q"
^DD(984.9,.07,1,0)="^.1"
^DD(984.9,.07,1,1,0)="984.9^AS2^MUMPS"
^DD(984.9,.07,1,1,1)="S:$P(^MPIF(984.9,DA,0),""^"",6)]"""" ^MPIF(984.9,""AS"",X,$P(^(0),""^"",6),DA)="""""
^DD(984.9,.07,1,1,2)="K:$P(^MPIF(984.9,DA,0),""^"",6)]"""" ^MPIF(984.9,""AS"",X,$P(^(0),""^"",6),DA)"
^DD(984.9,.07,1,1,"%D",0)="^^1^1^3010709^"
^DD(984.9,.07,1,1,"%D",1,0)="Compound x-ref on site and status"
^DD(984.9,.07,1,1,"DT")="3010709"
^DD(984.9,.07,3)=""
^DD(984.9,.07,21,0)="^^3^3^3010618^"
^DD(984.9,.07,21,1,0)="At the site that has RECEIVED the Request/Push the site field will be the"
^DD(984.9,.07,21,2,0)="site that initiated the Request/Push.  At the site that has SENT the"
^DD(984.9,.07,21,3,0)="request it will be the site the request was sent to."
^DD(984.9,.07,"DT")="3010709"
^DD(984.9,.08,0)="TYPE OF MESSAGE^RS^1:RECEIVED;2:SENT;^0;8^Q"
^DD(984.9,.08,21,0)="^^3^3^2981221^"
^DD(984.9,.08,21,1,0)="A type of sent refers to the CMOR request originated from the station and"
^DD(984.9,.08,21,2,0)="is being sent to another station.  A received type refers to the CMOR"
^DD(984.9,.08,21,3,0)="request originated from the other station."
^DD(984.9,.08,"DT")="2960724"
^DD(984.9,.09,0)="CMOR AFTER APPROVAL^P4'^DIC(4,^0;9^Q"
^DD(984.9,.09,21,0)="^^2^2^3010618^"
^DD(984.9,.09,21,1,0)="This field will contain the site that the request is asking to be the"
^DD(984.9,.09,21,2,0)="CMOR or the site that the Push is making the CMOR."
^DD(984.9,.09,"DT")="3010618"
^DD(984.9,1.01,0)="REQUESTOR NAME^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(984.9,1.01,3)="Answer must be 3-30 characters in length."
^DD(984.9,1.01,21,0)="^^4^4^2970408^^^^"
^DD(984.9,1.01,21,1,0)="The requestor name is a free-text name of the person sending the CMOR"
^DD(984.9,1.01,21,2,0)="request.  This field is blank at the originating site since the"
^DD(984.9,1.01,21,3,0)="Request By field points to the person.  This field is used at the"
^DD(984.9,1.01,21,4,0)="receiving location."
^DD(984.9,1.01,"DT")="2960702"
^DD(984.9,1.02,0)="REASON FOR REQUEST^RF^^1;2^K:$L(X)>60!($L(X)<3) X"
^DD(984.9,1.02,3)="Answer must be 3-60 characters in length."
^DD(984.9,1.02,21,0)="^^2^2^2970408^^"
^DD(984.9,1.02,21,1,0)="Enter a brief reason for requesting the CMOR"
^DD(984.9,1.02,21,2,0)="transfer."
^DD(984.9,1.02,"DT")="2960711"
^DD(984.9,1.03,0)="TYPE OF ACTION^RS^1:REQUEST SENT TO;2:REQUEST RECEIVED FROM;3:PUSH SENT TO;4:PUSH RECEIVED FROM;^1;3^Q"
^DD(984.9,1.03,3)=""
^DD(984.9,1.03,21,0)="^^2^2^3010613^"
^DD(984.9,1.03,21,1,0)="This field is used to show which request was made and whether it"
^DD(984.9,1.03,21,2,0)="originated at this facility or was received at this facility."
^DD(984.9,1.03,"DT")="3010618"
^DD(984.9,2.01,0)="REVIEWED BY^P200'^VA(200,^2;1^Q"
^DD(984.9,2.01,1,0)="^.1"
^DD(984.9,2.01,1,1,0)="984.9^AE"
^DD(984.9,2.01,1,1,1)="S ^MPIF(984.9,""AE"",$E(X,1,30),DA)="""""
^DD(984.9,2.01,1,1,2)="K ^MPIF(984.9,""AE"",$E(X,1,30),DA)"
^DD(984.9,2.01,1,1,"DT")="2960722"
^DD(984.9,2.01,3)="Select the user making the request."
^DD(984.9,2.01,21,0)="^^4^4^3010613^"
^DD(984.9,2.01,21,1,0)="The site processing this request will have this field populated with the"
^DD(984.9,2.01,21,2,0)="user that processed the request.  The site that made the request will not"
^DD(984.9,2.01,21,3,0)="have this field populated but will instead have the Reviewer Name field"
^DD(984.9,2.01,21,4,0)="populated.  "
^DD(984.9,2.01,"DT")="3010613"
^DD(984.9,2.02,0)="DATE REVIEWED^D^^2;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(984.9,2.02,3)="Enter the date the request was approved/denied."
^DD(984.9,2.02,21,0)="^^1^1^2981231^^"
^DD(984.9,2.02,21,1,0)="This date reflects the date the request was approved or denied."
^DD(984.9,2.02,"DT")="2960702"
^DD(984.9,2.03,0)="REVIEWER PHONE NUMBER^F^^2;3^K:$L(X)>20!($L(X)<4) X"
^DD(984.9,2.03,3)="Answer must be 4-20 characters in length."
^DD(984.9,2.03,21,0)="^^4^4^2960924^"
^DD(984.9,2.03,21,1,0)="Phone number that is used to contact the person that reviewed and approved"
^DD(984.9,2.03,21,2,0)="or denied the CMOR change request.  This data is transmitted to the"
^DD(984.9,2.03,21,3,0)="requesting station and is needed if the person receiving the result"
^DD(984.9,2.03,21,4,0)="has questions."
^DD(984.9,2.03,"DT")="2960702"
^DD(984.9,3.01,0)="REVIEWER NAME^F^^3;1^K:$L(X)>30!($L(X)<3) X"
^DD(984.9,3.01,3)="Answer must be 3-30 characters in length."
^DD(984.9,3.01,21,0)="^^5^5^3010613^"
^DD(984.9,3.01,21,1,0)="The reviewer name is a free-text name of the person reviewing the"
^DD(984.9,3.01,21,2,0)="CMOR request.  This field is blank at the reviewing site since the"
^DD(984.9,3.01,21,3,0)="Reviewed By field points to the person.  This field is used at the"
^DD(984.9,3.01,21,4,0)="originating station and is transmitted along with the result of the"
^DD(984.9,3.01,21,5,0)="request."
^DD(984.9,3.01,"DT")="3010613"
^DD(984.9,3.02,0)="REVIEWER COMMENTS^F^^3;2^K:$L(X)>60!($L(X)<3) X"
^DD(984.9,3.02,3)="Answer must be 3-60 characters in length."
^DD(984.9,3.02,21,0)="^^3^3^2960924^"
^DD(984.9,3.02,21,1,0)="Comments that are entered by the person reviewing the request.  These"
^DD(984.9,3.02,21,2,0)="comments are transmitted back to the origination station after the"
^DD(984.9,3.02,21,3,0)="request is approved or denied."
^DD(984.9,3.02,"DT")="2960702"
^DD(984.9,100,0)="DAYS OLD^CJ3,0^^ ; ^S X=0 I $P(^MPIF(984.9,D0,0),""^"",3)]"""" S X=$$FMDIFF^XLFDT($S($P($G(^MPIF(984.9,D0,2)),""^"",2)]"""":$P(^(2),""^"",2),1:DT),$P(^MPIF(984.9,D0,0),""^"",3)) S X=$J(X,0,0)"
^DD(984.9,100,9)="^"
^DD(984.9,100,9.01)=""
^DD(984.9,100,9.1)="S X=0 I $P(^MPIF(984.9,D0,0),""^"",3)]"""" S X=$$FMDIFF^XLFDT($S($P($G(^MPIF(984.9,D0,2)),""^"",2)]"""":$P(^(2),""^"",2),1:DT),$P(^MPIF(984.9,D0,0),""^"",3))"
^DD(984.9,100,21,0)="^^3^3^2960924^^"
^DD(984.9,100,21,1,0)="Days old is calculated by comparing the date the request was entered"
^DD(984.9,100,21,2,0)="or received and compared to today's date.  The number of days between"
^DD(984.9,100,21,3,0)="these two dates determines the number of days old a request is."
^DD(984.9,100,"DT")="2960715"
^DD(984.9,101,0)="REQUESTOR^CJ30^^ ; ^S X=$P($G(^VA(200,+$P(^MPIF(984.9,D0,0),""^"",2),0)),""^"") S:X="""" X=$P($G(^MPIF(984.9,D0,1)),""^"") S X=$E(X,1,30)"
^DD(984.9,101,9)="^"
^DD(984.9,101,9.01)=""
^DD(984.9,101,9.1)="S X=$P($G(^VA(200,+$P(^MPIF(984.9,D0,0),""^"",2),0)),""^"") S:X="""" X=$P($G(^MPIF(984.9,D0,1)),""^"") S X=$E(X,1,30)"
^DD(984.9,101,21,0)="^^5^5^2981221^"
^DD(984.9,101,21,1,0)="The result of this computed field is the comparison of the Request By and"
^DD(984.9,101,21,2,0)="the Requestor Name field.  Since only one of these two fields exist within"
^DD(984.9,101,21,3,0)="a CMOR request, this computed field extracts the one that exists and gives"
^DD(984.9,101,21,4,0)="a consistent place to use in print templates for displaying the name"
^DD(984.9,101,"DT")="2960716"
^DD(984.9,102,0)="REVIEWER^CJ30^^ ; ^S X=$P($G(^VA(200,+$P($G(^MPIF(984.9,D0,2)),""^""),0)),""^"") S:X="""" X=$P($G(^MPIF(984.9,D0,3)),""^"") S X=$E(X,1,30)"
^DD(984.9,102,9)="^"
^DD(984.9,102,9.01)=""
^DD(984.9,102,9.1)="S X=$P($G(^VA(200,+$P($G(^MPIF(984.9,D0,2)),""^""),0)),""^"") S:X="""" X=$P($G(^MPIF(984.9,D0,3)),""^"") S X=$E(X,1,30)"
^DD(984.9,102,21,0)="^^5^5^2960924^"
^DD(984.9,102,21,1,0)="The result of this computed field is the comparison of the Reviewed By and"
^DD(984.9,102,21,2,0)="the Reviewer Name field.  Since only on of these two fields exist within"
^DD(984.9,102,21,3,0)="a CMOR request, this computed field extracts the one that exists and gives"
^DD(984.9,102,21,4,0)="a consistent place to use in print templates for displaying the name"
^DD(984.9,102,"DT")="2960716"
^DD(984.9,"B","CMOR AFTER APPROVAL",.09)=""
^DD(984.9,"B","DATE REQUESTED",.03)=""
^DD(984.9,"B","DATE REVIEWED",2.02)=""
^DD(984.9,"B","DAYS OLD",100)=""
^DD(984.9,"B","PATIENT",.04)=""
^DD(984.9,"B","REASON FOR REQUEST",1.02)=""
^DD(984.9,"B","REQUEST NUMBER",.01)=""
^DD(984.9,"B","REQUESTED BY",.02)=""
^DD(984.9,"B","REQUESTOR",101)=""
^DD(984.9,"B","REQUESTOR NAME",1.01)=""
^DD(984.9,"B","REQUESTOR PHONE NUMBER",.05)=""
^DD(984.9,"B","REVIEWED BY",2.01)=""
^DD(984.9,"B","REVIEWER",102)=""
^DD(984.9,"B","REVIEWER COMMENTS",3.02)=""
^DD(984.9,"B","REVIEWER NAME",3.01)=""
^DD(984.9,"B","REVIEWER PHONE NUMBER",2.03)=""
^DD(984.9,"B","SITE",.07)=""
^DD(984.9,"B","STATUS",.06)=""
^DD(984.9,"B","TYPE OF ACTION",1.03)=""
^DD(984.9,"B","TYPE OF MESSAGE",.08)=""
^DD(984.9,"GL",0,1,.01)=""
^DD(984.9,"GL",0,2,.02)=""
^DD(984.9,"GL",0,3,.03)=""
^DD(984.9,"GL",0,4,.04)=""
^DD(984.9,"GL",0,5,.05)=""
^DD(984.9,"GL",0,6,.06)=""
^DD(984.9,"GL",0,7,.07)=""
^DD(984.9,"GL",0,8,.08)=""
^DD(984.9,"GL",0,9,.09)=""
^DD(984.9,"GL",1,1,1.01)=""
^DD(984.9,"GL",1,2,1.02)=""
^DD(984.9,"GL",1,3,1.03)=""
^DD(984.9,"GL",2,1,2.01)=""
^DD(984.9,"GL",2,2,2.02)=""
^DD(984.9,"GL",2,3,2.03)=""
^DD(984.9,"GL",3,1,3.01)=""
^DD(984.9,"GL",3,2,3.02)=""
^DD(984.9,"IX",.01)=""
^DD(984.9,"IX",.02)=""
^DD(984.9,"IX",.04)=""
^DD(984.9,"IX",.06)=""
^DD(984.9,"IX",.07)=""
^DD(984.9,"IX",2.01)=""
^DD(984.9,"RQ",.01)=""
^DD(984.9,"RQ",.02)=""
^DD(984.9,"RQ",.03)=""
^DD(984.9,"RQ",.05)=""
^DD(984.9,"RQ",.06)=""
^DD(984.9,"RQ",.08)=""
^DD(984.9,"RQ",1.02)=""
^DD(984.9,"RQ",1.03)=""
^DD(990.8,0)="FIELD^^11^10"
^DD(990.8,0,"DDA")="N"
^DD(990.8,0,"DT")="2970922"
^DD(990.8,0,"IX","B",990.8,.01)=""
^DD(990.8,0,"NM","CIRN REPOSITORY SITE PARAMETER")=""
^DD(990.8,0,"VRPK")="CLINICAL INFO RESOURCE NETWORK"
^DD(990.8,.01,0)="SITE^RNJ1,0XI^^0;1^S (X,DINUM)=1"
^DD(990.8,.01,1,0)="^.1"
^DD(990.8,.01,1,1,0)="990.8^B"
^DD(990.8,.01,1,1,1)="S ^RGSITE(""COR"",""B"",$E(X,1,30),DA)="""""
^DD(990.8,.01,1,1,2)="K ^RGSITE(""COR"",""B"",$E(X,1,30),DA)"
^DD(990.8,.01,3)="This field is uneditable."
^DD(990.8,.01,21,0)="^^1^1^2990305^"
^DD(990.8,.01,21,1,0)="This is a dummy field whose value should always be 1."
^DD(990.8,.01,"DT")="2950815"
^DD(990.8,.5,0)="PACKAGE MANAGER MAIL GROUP^P3.8'^XMB(3.8,^0;5^Q"
^DD(990.8,.5,3)="Enter the mail group to which package-generated status messages should be sent."
^DD(990.8,.5,21,0)="^^2^2^2990305^"
^DD(990.8,.5,21,1,0)="This is the mail group to whom package-critical status messages "
^DD(990.8,.5,21,2,0)="should be sent."
^DD(990.8,.5,"DT")="2950815"
^DD(990.8,1,0)="RECENT RESULTS INDEX RETENTION^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(990.8,1,3)="Enter the number of days after which entries in the recent results index will be deleted."
^DD(990.8,1,21,0)="^^8^8^2980402.230824"
^DD(990.8,1,21,1,0)="Whenever new data are stored in the COR, an entry is made in the Recent "
^DD(990.8,1,21,2,0)="Results Index that shows the date when the entry was stored.  This index "
^DD(990.8,1,21,3,0)="can be used when browsing the COR to restrict the search to data stored "
^DD(990.8,1,21,4,0)="within the recent past.  This parameter permits the site to dictate how "
^DD(990.8,1,21,5,0)="many days worth of data are to be tracked by this index.  The nightly "
^DD(990.8,1,21,6,0)="purge will remove any entries older than the threshold set by this "
^DD(990.8,1,21,7,0)="parameter.  Typical values will range from 3-5 days, but should be "
^DD(990.8,1,21,8,0)="determined by local clinical needs and storage capacity."
^DD(990.8,1,"DT")="2950815"
^DD(990.8,2,0)="ACCESS LOG RETENTION^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(990.8,2,3)="Enter the number of days after which entries in the ACCESS LOG file will be deleted."
^DD(990.8,2,21,0)="^^5^5^2980402.231053"
^DD(990.8,2,21,1,0)="This parameter dictates how many days worth of CIRN ACCESS LOG data are "
^DD(990.8,2,21,2,0)="to be maintained.  Entries older than this threshold are removed by the "
^DD(990.8,2,21,3,0)="nightly purge.  The value of this parameter is entirely up to the "
^DD(990.8,2,21,4,0)="discretion of the local site.  Obviously, larger values will incur more "
^DD(990.8,2,21,5,0)="storage requirements."
^DD(990.8,2,"DT")="2950815"
^DD(990.8,3,0)="TRANSMITTED RESULT RETENTION^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(990.8,3,3)="Enter the number of days after which verified entries in the data entry holding area will be deleted."
^DD(990.8,3,21,0)="^^3^3^2980402^"
^DD(990.8,3,21,1,0)="Number of days to retain verified and transmitted data from the CIRN "
^DD(990.8,3,21,2,0)="data entry holding area.  Data older than this threshold are deleted by "
^DD(990.8,3,21,3,0)="the nightly purge."
^DD(990.8,3,"DT")="2961106"
^DD(990.8,4,0)="EXCEPTION LOG RETENTION^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(990.8,4,3)="Number of days to retain data in CIRN HL7 EXCEPTION LOG"
^DD(990.8,4,21,0)="^^3^3^2980402.231141"
^DD(990.8,4,21,1,0)="Number of days to retain entries in the CIRN HL7 EXCEPTION LOG file.  "
^DD(990.8,4,21,2,0)="See a description of this file for information about its purpose.  "
^DD(990.8,4,21,3,0)="Entries older than this threshold are removed by the nightly purge."
^DD(990.8,4,"DT")="2961106"
^DD(990.8,5,0)="SUPPRESS EXCEPTION ALERTS?^S^0:NO;1:YES;^0;7^Q"
^DD(990.8,5,3)="If yes, alerts are not sent when exceptions are encountered on sending and receiving HL7 messages."
^DD(990.8,5,21,0)="^^5^5^2980402.2315"
^DD(990.8,5,21,1,0)="When set to yes, this parameter suppresses the generation of all alerts "
^DD(990.8,5,21,2,0)="or email messages when an exception is logged.  This setting overrides "
^DD(990.8,5,21,3,0)="that specified for individual exception types.  It is advisable to set "
^DD(990.8,5,21,4,0)="this parameter to yes during historical load operations to avoid "
^DD(990.8,5,21,5,0)="transmitting large numbers of alerts."
^DD(990.8,5,"DT")="2970311"
^DD(990.8,6,0)="MINIMAL EXCEPTION LOGGING?^S^0:NO;1:YES;^0;8^Q"
^DD(990.8,6,3)="If yes, log entries are created only if an exception occurred."
^DD(990.8,6,21,0)="^^4^4^2980402.232544"
^DD(990.8,6,21,1,0)="If yes, entries are created in the CIRN HL7 EXCEPTION file only if an "
^DD(990.8,6,21,2,0)="exception is logged.  Otherwise, an entry is created each time an event "
^DD(990.8,6,21,3,0)="or message is processed.  The latter permits better tracking of "
^DD(990.8,6,21,4,0)="background activity, but at the expense of greater storage consumption."
^DD(990.8,6,"DT")="2970325"
^DD(990.8,10,0)="STANDARD TIMEZONE^P4.4'^XMB(4.4,^TZ;1^Q"
^DD(990.8,10,3)="Standard time zone for this site."
^DD(990.8,10,21,0)="^^2^2^2990305^^^"
^DD(990.8,10,21,1,0)="This is a pointer to the MAILMAN TIME ZONE file (#4.4)"
^DD(990.8,10,21,2,0)="and indicates the standard time zone for this site."
^DD(990.8,10,"DT")="2970227"
^DD(990.8,11,0)="DST TIMEZONE^P4.4'^XMB(4.4,^TZ;2^Q"
^DD(990.8,11,3)="Daylight savings timezone for this site.  Leave blank if location does not honor DST."
^DD(990.8,11,21,0)="^^4^4^2970227^"
^DD(990.8,11,21,1,0)="Timezone active during daylight savings time."
^DD(990.8,11,21,2,0)="If this locale does not honor daylight savings"
^DD(990.8,11,21,3,0)="time, you may either leave this entry blank or"
^DD(990.8,11,21,4,0)="enter same timezone as standard time."
^DD(990.8,11,"DT")="2970227"
^DD(990.8,"B","ACCESS LOG RETENTION",2)=""
^DD(990.8,"B","DST TIMEZONE",11)=""
^DD(990.8,"B","EXCEPTION LOG RETENTION",4)=""
^DD(990.8,"B","MINIMAL EXCEPTION LOGGING?",6)=""
^DD(990.8,"B","PACKAGE MANAGER MAIL GROUP",.5)=""
^DD(990.8,"B","RECENT RESULTS INDEX RETENTION",1)=""
^DD(990.8,"B","SITE",.01)=""
^DD(990.8,"B","STANDARD TIMEZONE",10)=""
^DD(990.8,"B","SUPPRESS EXCEPTION ALERTS?",5)=""
^DD(990.8,"B","TRANSMITTED RESULT RETENTION",3)=""
^DD(990.8,"GL",0,1,.01)=""
^DD(990.8,"GL",0,2,1)=""
^DD(990.8,"GL",0,3,2)=""
^DD(990.8,"GL",0,4,3)=""
^DD(990.8,"GL",0,5,.5)=""
^DD(990.8,"GL",0,6,4)=""
^DD(990.8,"GL",0,7,5)=""
^DD(990.8,"GL",0,8,6)=""
^DD(990.8,"GL","TZ",1,10)=""
^DD(990.8,"GL","TZ",2,11)=""
^DD(990.8,"IX",.01)=""
^DD(990.8,"RQ",.01)=""
^DD(991.1,0)="FIELD^^5^8"
^DD(991.1,0,"DDA")="N"
^DD(991.1,0,"DT")="2980925"
^DD(991.1,0,"IX","AC",991.12,2)=""
^DD(991.1,0,"IX","AD",991.1,1.5)=""
^DD(991.1,0,"IX","ADFN",991.12,3)=""
^DD(991.1,0,"IX","ASTAT",991.12,6)=""
^DD(991.1,0,"IX","B",991.1,.01)=""
^DD(991.1,0,"IX","HL7",991.1,3)=""
^DD(991.1,0,"NM","CIRN HL7 EXCEPTION LOG")=""
^DD(991.1,0,"VRPK")="CLINICAL INFO RESOURCE NETWORK"
^DD(991.1,.01,0)="NUMBER^RNJ12,0X^^0;1^K:X\1'=X!(X<1) X S:$D(X) DINUM=X"
^DD(991.1,.01,1,0)="^.1"
^DD(991.1,.01,1,1,0)="991.1^B"
^DD(991.1,.01,1,1,1)="S ^RGHL7(991.1,""B"",$E(X,1,30),DA)="""""
^DD(991.1,.01,1,1,2)="K ^RGHL7(991.1,""B"",$E(X,1,30),DA)"
^DD(991.1,.01,3)="Internal entry number of this log entry."
^DD(991.1,.01,21,0)="^^1^1^2990308^^^"
^DD(991.1,.01,21,1,0)="This is the internal entry number (IEN) of this HL7 exception."
^DD(991.1,.01,"DT")="2970313"
^DD(991.1,1,0)="START^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(991.1,1,3)="Date/time message processing started."
^DD(991.1,1,21,0)="^^1^1^2990308^^"
^DD(991.1,1,21,1,0)="This the date/time the message processing started."
^DD(991.1,1,"DT")="2960225"
^DD(991.1,1.5,0)="STOP^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(991.1,1.5,1,0)="^.1"
^DD(991.1,1.5,1,1,0)="991.1^AD"
^DD(991.1,1.5,1,1,1)="S ^RGHL7(991.1,""AD"",$E(X,1,30),DA)="""""
^DD(991.1,1.5,1,1,2)="K ^RGHL7(991.1,""AD"",$E(X,1,30),DA)"
^DD(991.1,1.5,1,1,"DT")="2961030"
^DD(991.1,1.5,3)="Date/time message processing completed."
^DD(991.1,1.5,21,0)="^^1^1^2990308^^^"
^DD(991.1,1.5,21,1,0)="This is the date/time the message processing completed."
^DD(991.1,1.5,"DT")="2961030"
^DD(991.1,1.6,0)="COMPLETION STATUS^S^0:SUCCESS;1:FAILURE;^0;4^Q"
^DD(991.1,1.6,3)="Completion status for this message.  If FAILURE, processing of the message was aborted."
^DD(991.1,1.6,21,0)="^^2^2^2990308^^"
^DD(991.1,1.6,21,1,0)="This is the completion status for this message."
^DD(991.1,1.6,21,2,0)="'0' for Success, '1' for Failure (processing aborted)."
^DD(991.1,1.6,"DT")="2960302"
^DD(991.1,2,0)="EXCEPTION^991.12^^1;0"
^DD(991.1,2,21,0)="^^1^1^2990308^^"
^DD(991.1,2,21,1,0)="This is a multiple field that holds exception data."
^DD(991.1,2,"DT")="2970131"
^DD(991.1,3,0)="MESSAGE^NJ12,0X^^0;5^K:X\1'=X!(X<1) X"
^DD(991.1,3,1,0)="^.1"
^DD(991.1,3,1,1,0)="991.1^HL7"
^DD(991.1,3,1,1,1)="S ^RGHL7(991.1,""HL7"",$E(X,1,30),DA)="""""
^DD(991.1,3,1,1,2)="K ^RGHL7(991.1,""HL7"",$E(X,1,30),DA)"
^DD(991.1,3,1,1,"DT")="2970311"
^DD(991.1,3,3)="Enter HL7 message IEN"
^DD(991.1,3,21,0)="^^1^1^2990308^^"
^DD(991.1,3,21,1,0)="This is the internal entry number (IEN) of the HL7 message."
^DD(991.1,3,"DT")="2980925"
^DD(991.1,4,0)="PARAMETER^F^^2;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(991.1,4,3)="For outbound messages, this is the event stub; for inbound messages, this is the entry point for the message processor."
^DD(991.1,4,21,0)="^^3^3^2990308^^"
^DD(991.1,4,21,1,0)="This is a free text field that holds up to 250 characters."
^DD(991.1,4,21,2,0)="For outbound messages, this is the event stub.  For inbound"
^DD(991.1,4,21,3,0)="messages, this is the entry point for the message processor."
^DD(991.1,4,"DT")="2970407"
^DD(991.1,5,0)="EVENT CLASS^P995'^RGEQASN(^0;6^Q"
^DD(991.1,5,3)="Event class to which stub entry belongs."
^DD(991.1,5,21,0)="^^1^1^2990308^^^"
^DD(991.1,5,21,1,0)="This is a pointer to the CIRN EVENT ASSOCIATION file (#995)."
^DD(991.1,5,"DT")="2970311"
^DD(991.1,"B","COMPLETION STATUS",1.6)=""
^DD(991.1,"B","EVENT CLASS",5)=""
^DD(991.1,"B","EXCEPTION",2)=""
^DD(991.1,"B","MESSAGE",3)=""
^DD(991.1,"B","NUMBER",.01)=""
^DD(991.1,"B","PARAMETER",4)=""
^DD(991.1,"B","START",1)=""
^DD(991.1,"B","STOP",1.5)=""
^DD(991.1,"GL",0,1,.01)=""
^DD(991.1,"GL",0,2,1)=""
^DD(991.1,"GL",0,3,1.5)=""
^DD(991.1,"GL",0,4,1.6)=""
^DD(991.1,"GL",0,5,3)=""
^DD(991.1,"GL",0,6,5)=""
^DD(991.1,"GL",1,0,2)=""
^DD(991.1,"GL",2,"E1,250",4)=""
^DD(991.1,"IX",.01)=""
^DD(991.1,"IX",1.5)=""
^DD(991.1,"IX",3)=""
^DD(991.1,"RQ",.01)=""
^DD(991.1,"RQ",1)=""
^DD(991.1,"SB",991.12,2)=""
^DD(991.11,0)="FIELD^^99^8"
^DD(991.11,0,"DDA")="N"
^DD(991.11,0,"DT")="3001127"
^DD(991.11,0,"ID",10)="W:$D(^(10)) ""   "",$E(^(10),1,100)"
^DD(991.11,0,"IX","B",991.11,.01)=""
^DD(991.11,0,"IX","C",991.11,10)=""
^DD(991.11,0,"NM","CIRN HL7 EXCEPTION TYPE")=" "
^DD(991.11,0,"PT",991.12,2)=""
^DD(991.11,0,"VR")="1.0"
^DD(991.11,0,"VRPK")="RG"
^DD(991.11,.01,0)="NUMBER^RNJ12,0X^^0;1^K:X'=X\1!(X<1) X S:$D(X) DINUM=X"
^DD(991.11,.01,1,0)="^.1"
^DD(991.11,.01,1,1,0)="991.11^B"
^DD(991.11,.01,1,1,1)="S ^RGHL7(991.11,""B"",$E(X,1,30),DA)="""""
^DD(991.11,.01,1,1,2)="K ^RGHL7(991.11,""B"",$E(X,1,30),DA)"
^DD(991.11,.01,3)="Index of this exception."
^DD(991.11,.01,21,0)="^^1^1^2990308^^"
^DD(991.11,.01,21,1,0)="This is the index number of this exception."
^DD(991.11,.01,"DT")="2970201"
^DD(991.11,1,0)="SEVERITY^S^0:INFORMATIONAL;1:MINOR;2:SEVERE;^0;2^Q"
^DD(991.11,1,3)="Severity level of this exception."
^DD(991.11,1,21,0)="^^2^2^2990308^^"
^DD(991.11,1,21,1,0)="This is the severity level of this exception, '0' for Informational,"
^DD(991.11,1,21,2,0)="'1' for Minor or '2' for Severe."
^DD(991.11,1,"DT")="2970201"
^DD(991.11,2,0)="ACTION^S^0:NONE;1:MAIL;2:ALERT;3:MPI EXCEPTION HANDLER;^0;3^Q"
^DD(991.11,2,3)="Action to be taken upon logging this exception."
^DD(991.11,2,21,0)="^^5^5^3001127^^^"
^DD(991.11,2,21,1,0)="This is the action to be taken upon logging this exception,"
^DD(991.11,2,21,2,0)="'0' for None, '1' for Mail, '2' for Alert, or '3' for MPI"
^DD(991.11,2,21,3,0)="Exception Handler. Exceptions whose action is MPI Exception"
^DD(991.11,2,21,4,0)="Handler go to the exception handler located at the Austin"
^DD(991.11,2,21,5,0)="MPI."
^DD(991.11,2,"DT")="3001127"
^DD(991.11,3,0)="COUNT^NJ12,0X^^0;5^K:X\1'=X!(X<0) X"
^DD(991.11,3,3)="Total number of exceptions logged with this type."
^DD(991.11,3,21,0)="^^1^1^2990308^^"
^DD(991.11,3,21,1,0)="This is a count of all exceptions logged of this type."
^DD(991.11,3,"DT")="2970317"
^DD(991.11,6,0)="MAIL GROUP^P3.8'^XMB(3.8,^0;4^Q"
^DD(991.11,6,3)="Mail group to which notification will be sent for alert and mail action types."
^DD(991.11,6,21,0)="^^3^3^2990308^^"
^DD(991.11,6,21,1,0)="This is a pointer to the MAIL GROUP file (#3.8), indicating"
^DD(991.11,6,21,2,0)="which mail group a notification will be sent to for alert"
^DD(991.11,6,21,3,0)="and mail action types."
^DD(991.11,6,"DT")="2970201"
^DD(991.11,10,0)="TEXT^F^^10;E1,100^K:$L(X)>100!($L(X)<1) X"
^DD(991.11,10,1,0)="^.1"
^DD(991.11,10,1,1,0)="991.11^C"
^DD(991.11,10,1,1,1)="S ^RGHL7(991.11,""C"",$E(X,1,30),DA)="""""
^DD(991.11,10,1,1,2)="K ^RGHL7(991.11,""C"",$E(X,1,30),DA)"
^DD(991.11,10,1,1,"DT")="2970201"
^DD(991.11,10,3)="Text message for this exception."
^DD(991.11,10,21,0)="^^2^2^2990308^^"
^DD(991.11,10,21,1,0)="This is a free text field (up to 100 characters) which holds the"
^DD(991.11,10,21,2,0)="message for this exception."
^DD(991.11,10,"DT")="2970201"
^DD(991.11,20,0)="SECURITY KEY^991.112P^^20;0"
^DD(991.11,20,21,0)="^^4^4^2990308^^^"
^DD(991.11,20,21,1,0)="This is used to control access to a particular exception type. "
^DD(991.11,20,21,2,0)="A user must possess at least one of the listed security keys to "
^DD(991.11,20,21,3,0)="access the associated exception.  If no security keys are listed, "
^DD(991.11,20,21,4,0)="access is unrestricted."
^DD(991.11,99,0)="DESCRIPTION^991.1199^^99;0"
^DD(991.11,99,21,0)="^^2^2^2990308^^^"
^DD(991.11,99,21,1,0)="This is a word-processing field used for storing"
^DD(991.11,99,21,2,0)="the detailed explanation of this exception type."
^DD(991.11,"B","ACTION",2)=""
^DD(991.11,"B","COUNT",3)=""
^DD(991.11,"B","DESCRIPTION",99)=""
^DD(991.11,"B","MAIL GROUP",6)=""
^DD(991.11,"B","NUMBER",.01)=""
^DD(991.11,"B","SECURITY KEY",20)=""
^DD(991.11,"B","SEVERITY",1)=""
^DD(991.11,"B","TEXT",10)=""
^DD(991.11,"GL",0,1,.01)=""
^DD(991.11,"GL",0,2,1)=""
^DD(991.11,"GL",0,3,2)=""
^DD(991.11,"GL",0,4,6)=""
^DD(991.11,"GL",0,5,3)=""
^DD(991.11,"GL",10,"E1,100",10)=""
^DD(991.11,"GL",20,0,20)=""
^DD(991.11,"GL",99,0,99)=""
^DD(991.11,"IX",.01)=""
^DD(991.11,"IX",10)=""
^DD(991.11,"RQ",.01)=""
^DD(991.11,"SB",991.112,20)=""
^DD(991.11,"SB",991.1199,99)=""
^DD(991.112,0)="SECURITY KEY SUB-FIELD^^.01^1"
^DD(991.112,0,"DT")="2980721"
^DD(991.112,0,"IX","B",991.112,.01)=""
^DD(991.112,0,"NM","SECURITY KEY")=" "
^DD(991.112,0,"UP")="991.11"
^DD(991.112,.01,0)="SECURITY KEY^MP19.1'X^DIC(19.1,^0;1^S DINUM=X"
^DD(991.112,.01,1,0)="^.1"
^DD(991.112,.01,1,1,0)="991.112^B"
^DD(991.112,.01,1,1,1)="S ^RGHL7(991.11,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(991.112,.01,1,1,2)="K ^RGHL7(991.11,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(991.112,.01,3)="Enter a security key to control access to this exception."
^DD(991.112,.01,21,0)="^^4^4^2990308^^"
^DD(991.112,.01,21,1,0)="This is used to control access to a particular exception type. "
^DD(991.112,.01,21,2,0)="A user must possess at least one of the listed security keys to "
^DD(991.112,.01,21,3,0)="access the associated exception.  If no security keys are listed, "
^DD(991.112,.01,21,4,0)="access is unrestricted."
^DD(991.112,.01,"DT")="2980721"
^DD(991.112,"B","SECURITY KEY",.01)=""
^DD(991.112,"GL",0,1,.01)=""
^DD(991.112,"IX",.01)=""
^DD(991.1199,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(991.1199,0,"DT")="2970201"
^DD(991.1199,0,"NM","DESCRIPTION")=" "
^DD(991.1199,0,"UP")="991.11"
^DD(991.1199,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(991.1199,.01,3)="Detailed explanation of this exception."
^DD(991.1199,.01,21,0)="^^1^1^2990308^^^"
^DD(991.1199,.01,21,1,0)="This field holds the detailed explanation of this exception."
^DD(991.1199,.01,"DT")="2970201"
^DD(991.1199,"B","DESCRIPTION",.01)=""
^DD(991.1199,"GL",0,1,.01)=""
^DD(991.12,0)="EXCEPTION SUB-FIELD^^11^9"
^DD(991.12,0,"DT")="2970202"
^DD(991.12,0,"IX","B",991.12,.01)=""
^DD(991.12,0,"NM","EXCEPTION")=""
^DD(991.12,0,"UP")="991.1"
^DD(991.12,.01,0)="NUMBER^MNJ12,0X^^0;1^K:X'=X\1!(X<1) X"
^DD(991.12,.01,1,0)="^.1"
^DD(991.12,.01,1,1,0)="991.12^B"
^DD(991.12,.01,1,1,1)="S ^RGHL7(991.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(991.12,.01,1,1,2)="K ^RGHL7(991.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(991.12,.01,3)="Index of this exception"
^DD(991.12,.01,21,0)="^^1^1^2990308^^"
^DD(991.12,.01,21,1,0)="This is the index number of this exception."
^DD(991.12,.01,"DT")="2970131"
^DD(991.12,1,0)="LINE^NJ12,0X^^0;2^K:X\1'=X!(X<1) X S:$D(X) DINUM=X"
^DD(991.12,1,3)="HL7 message line number in which exception occurred."
^DD(991.12,1,21,0)="^^1^1^2990308^^"
^DD(991.12,1,21,1,0)="This is the HL7 line number in which the exception occurred."
^DD(991.12,1,"DT")="2970313"
^DD(991.12,2,0)="TYPE^P991.11'^RGHL7(991.11,^0;3^Q"
^DD(991.12,2,1,0)="^.1"
^DD(991.12,2,1,1,0)="991.1^AC"
^DD(991.12,2,1,1,1)="S ^RGHL7(991.1,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(991.12,2,1,1,2)="K ^RGHL7(991.1,""AC"",$E(X,1,30),DA(1),DA)"
^DD(991.12,2,1,1,"DT")="2970202"
^DD(991.12,2,3)="Type of this exception."
^DD(991.12,2,21,0)="^^1^1^2990308^^^"
^DD(991.12,2,21,1,0)="This is a pointer to the CIRN HL7 EXCEPTION TYPE file (#991.11)."
^DD(991.12,2,"DT")="2970202"
^DD(991.12,3,0)="PATIENT^P2'^DPT(^0;4^Q"
^DD(991.12,3,1,0)="^.1"
^DD(991.12,3,1,1,0)="991.1^ADFN^MUMPS"
^DD(991.12,3,1,1,1)="N T S T=$P($G(^RGHL7(991.1,DA(1),1,DA,0)),U,3) I T]"""" S ^RGHL7(991.1,""ADFN"",T,X,DA(1),DA)="""""
^DD(991.12,3,1,1,2)="N T S T=$P($G(^RGHL7(991.1,DA(1),1,DA,0)),U,3) I T]"""" K ^RGHL7(991.1,""ADFN"",T,X,DA(1),DA)"
^DD(991.12,3,1,1,3)="DO NOT DELETE!"
^DD(991.12,3,1,1,"%D",0)="^^8^8^2990922^^"
^DD(991.12,3,1,1,"%D",1,0)="This cross-reference is used to sort entries in the CIRN HL7 EXCEPTION "
^DD(991.12,3,1,1,"%D",2,0)="LOG file (#991.1) by EXCEPTION multiple fields TYPE (#2) and PATIENT (#3)."
^DD(991.12,3,1,1,"%D",3,0)=" "
^DD(991.12,3,1,1,"%D",4,0)="Set logic:"
^DD(991.12,3,1,1,"%D",5,0)="S ^RGHL7(991.1,""ADFN"",(#2) TYPE,(#3) PATIENT,DA(1),DA)="""""
^DD(991.12,3,1,1,"%D",6,0)=" "
^DD(991.12,3,1,1,"%D",7,0)="Kill logic:"
^DD(991.12,3,1,1,"%D",8,0)="K ^RGHL7(991.1,""ADFN"",(#2) TYPE,(#3) PATIENT,DA(1),DA)"
^DD(991.12,3,1,1,"DT")="2990708"
^DD(991.12,3,3)="Enter Patient DFN for this exception."
^DD(991.12,3,21,0)="^^3^3^2990708^^"
^DD(991.12,3,21,1,0)="Pointer to PATIENT file (#2) for the patient involved in this exception"
^DD(991.12,3,21,2,0)="(DFN). This field is not required as every exception type does not have an"
^DD(991.12,3,21,3,0)="associated DFN."
^DD(991.12,3,"DT")="2990708"
^DD(991.12,6,0)="EXCEPTION STATUS^S^0:NOT PROCESSED;1:PROCESSED;^0;5^Q"
^DD(991.12,6,1,0)="^.1"
^DD(991.12,6,1,1,0)="991.1^ASTAT^MUMPS"
^DD(991.12,6,1,1,1)="N T S T=$P($G(^RGHL7(991.1,DA(1),1,DA,0)),U,3) I T]"""" S ^RGHL7(991.1,""ASTAT"",X,T,DA(1),DA)="""""
^DD(991.12,6,1,1,2)="N T S T=$P($G(^RGHL7(991.1,DA(1),1,DA,0)),U,3) I T]"""" K ^RGHL7(991.1,""ASTAT"",X,T,DA(1),DA)"
^DD(991.12,6,1,1,3)="DO NOT DELETE"
^DD(991.12,6,1,1,"%D",0)="^^9^9^3000217^^^"
^DD(991.12,6,1,1,"%D",1,0)="This cross-reference is used to sort entries in the CIRN HL7 "
^DD(991.12,6,1,1,"%D",2,0)="EXCEPTION LOG file (#991.1) by EXCEPTION STATUS (#6) and "
^DD(991.12,6,1,1,"%D",3,0)="TYPE (#2)."
^DD(991.12,6,1,1,"%D",4,0)=" "
^DD(991.12,6,1,1,"%D",5,0)="Set Logic:"
^DD(991.12,6,1,1,"%D",6,0)="S ^RGHL7(991.1,""ASTAT"",(#6) EXCEPTION STATUS,(#2) TYPE,DA(1),DA)="""""
^DD(991.12,6,1,1,"%D",7,0)=" "
^DD(991.12,6,1,1,"%D",8,0)="Kill Logic:"
^DD(991.12,6,1,1,"%D",9,0)="K ^RGHL7(991.1,""ASTAT"",(#6) EXCEPTION STATUS,(#2) TYPE,DA(1),DA)"
^DD(991.12,6,1,1,"DT")="3000217"
^DD(991.12,6,3)="The status for this exception message.  NOT PROCESSED indicates that user intervention is necessary.  Change the status to PROCESSED after confirming that the patient data is correct."
^DD(991.12,6,21,0)="^^4^4^2991028^^"
^DD(991.12,6,21,1,0)="This is the exception status for this message.  A status of NOT"
^DD(991.12,6,21,2,0)="PROCESSED indicates that user intervention is necessary.  The "
^DD(991.12,6,21,3,0)="status should be changed to PROCESSED after confirming that the "
^DD(991.12,6,21,4,0)="patient data is correct."
^DD(991.12,6,"DT")="3000217"
^DD(991.12,7,0)="DATE/TIME PROCESSED^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(991.12,7,3)="Enter the date/time the exception is processed."
^DD(991.12,7,21,0)="^^1^1^3070502^"
^DD(991.12,7,21,1,0)="This field will capture the date/time the exception was marked processed."
^DD(991.12,7,"DT")="3070502"
^DD(991.12,8,0)="WHO MARKED PROCESSED^P200'^VA(200,^0;7^Q"
^DD(991.12,8,3)="Enter the person who marked the exception as processed."
^DD(991.12,8,21,0)="^^1^1^3070502^"
^DD(991.12,8,21,1,0)="This field will capture who has marked the exception as processed."
^DD(991.12,8,"DT")="3070502"
^DD(991.12,10,0)="TEXT^F^^10;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(991.12,10,3)="Supplemental text for exception."
^DD(991.12,10,21,0)="^.001^1^1^3000417^^^^"
^DD(991.12,10,21,1,0)="This is a free text field used for supplemental text for the exception."
^DD(991.12,10,"DT")="3000405"
^DD(991.12,11,0)="NOTES^991.1211A^^11;0"
^DD(991.12,11,21,0)="^^2^2^3011129^"
^DD(991.12,11,21,1,0)="This field allows users to enter notes regarding an exception"
^DD(991.12,11,21,2,0)="to aid in resolving the exception."
^DD(991.12,"B","DATE/TIME PROCESSED",7)=""
^DD(991.12,"B","EXCEPTION STATUS",6)=""
^DD(991.12,"B","LINE",1)=""
^DD(991.12,"B","NOTES",11)=""
^DD(991.12,"B","NUMBER",.01)=""
^DD(991.12,"B","PATIENT",3)=""
^DD(991.12,"B","TEXT",10)=""
^DD(991.12,"B","TYPE",2)=""
^DD(991.12,"B","WHO MARKED PROCESSED",8)=""
^DD(991.12,"GL",0,1,.01)=""
^DD(991.12,"GL",0,2,1)=""
^DD(991.12,"GL",0,3,2)=""
^DD(991.12,"GL",0,4,3)=""
^DD(991.12,"GL",0,5,6)=""
^DD(991.12,"GL",0,6,7)=""
^DD(991.12,"GL",0,7,8)=""
^DD(991.12,"GL",10,"E1,250",10)=""
^DD(991.12,"GL",11,0,11)=""
^DD(991.12,"IX",.01)=""
^DD(991.12,"IX",2)=""
^DD(991.12,"IX",3)=""
^DD(991.12,"IX",6)=""
^DD(991.12,"SB",991.1211,11)=""
^DD(991.1211,0)="NOTES SUB-FIELD^^.01^1"
^DD(991.1211,0,"DT")="3011129"
^DD(991.1211,0,"NM","NOTES")=""
^DD(991.1211,0,"UP")="991.12"
^DD(991.1211,.01,0)="NOTES^W^^0;1^Q"
^DD(991.1211,.01,3)="Enter notes to aid in resolving exception."
^DD(991.1211,.01,21,0)="^^2^2^3011129^^^"
^DD(991.1211,.01,21,1,0)="This field allows users to enter notes regarding an exception"
^DD(991.1211,.01,21,2,0)="to aid in resolving the exception."
^DD(991.1211,.01,"DT")="3011129"
^DD(991.1211,"B","NOTES",.01)=""
^DD(991.1211,"GL",0,1,.01)=""
^DD(991.8,0)="FIELD^^119^54"
^DD(991.8,0,"DDA")="N"
^DD(991.8,0,"DT")="3010925"
^DD(991.8,0,"IX","B",991.8,.01)=""
^DD(991.8,0,"NM","CIRN SITE PARAMETER")=""
^DD(991.8,0,"VR")="1.0"
^DD(991.8,0,"VRPK")="RG"
^DD(991.8,.01,0)="PARAMETER NUMBER^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1.N) X"
^DD(991.8,.01,1,0)="^.1"
^DD(991.8,.01,1,1,0)="991.8^B"
^DD(991.8,.01,1,1,1)="S ^RGSITE(991.8,""B"",$E(X,1,30),DA)="""""
^DD(991.8,.01,1,1,2)="K ^RGSITE(991.8,""B"",$E(X,1,30),DA)"
^DD(991.8,.01,3)="Type a number between 1 and 1, 0 Decimal Digits"
^DD(991.8,.01,21,0)="^^3^3^3010703^"
^DD(991.8,.01,21,1,0)="Number assigned to given site parameter entry.  Entry number 1 is the"
^DD(991.8,.01,21,2,0)="only entry that should exist in this file.  MPI/PD does not support"
^DD(991.8,.01,21,3,0)="multiple site parameter entries for a single station."
^DD(991.8,.01,"DT")="3010703"
^DD(991.8,.02,0)="CMOR REQUEST CHANGE^RS^0:MANUAL;1:AUTOMATIC;^0;2^Q"
^DD(991.8,.02,3)="Enter a '0' if the CMOR information will be manually reviewed or a '1' if it will automatically approved."
^DD(991.8,.02,21,0)="^^3^3^3010703^"
^DD(991.8,.02,21,1,0)="Based on this field setting, any Coordinating Master of Record (CMOR)"
^DD(991.8,.02,21,2,0)="change request received from another station can either be manually"
^DD(991.8,.02,21,3,0)="reviewed or automatically approved."
^DD(991.8,.02,"DT")="3010703"
^DD(991.8,.03,0)="NEW REQUEST MAILGROUP^P3.8'^XMB(3.8,^0;3^Q"
^DD(991.8,.03,3)="Enter a Mailgroup that will receive new CMOR change requests from other station."
^DD(991.8,.03,21,0)="^^3^3^2980922^^^"
^DD(991.8,.03,21,1,0)="If the CMOR Request Change parameter is set to manual, new CMOR change"
^DD(991.8,.03,21,2,0)="requests received will notify the mailgroup entered in this field.  This"
^DD(991.8,.03,21,3,0)="gives a means of prompting someone to review the new request."
^DD(991.8,.03,"DT")="2971208"
^DD(991.8,.04,0)="LOCAL/MISSING DATE LAST RAN^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,.04,3)="Enter the date/time the Local/Missing ICN Resolution Background Job completed."
^DD(991.8,.04,21,0)="^^2^2^3011206^"
^DD(991.8,.04,21,1,0)="This field contains the date and time that the Local/Missing ICN "
^DD(991.8,.04,21,2,0)="Resolution Background Job [MPIF LOC/MIS ICN RES] last ran to completion."
^DD(991.8,.04,"DT")="3011206"
^DD(991.8,11,0)="AUTO ACCEPT DEMOGRAPHICS^S^1:AUTO ACCEPT;0:NOT AUTO ACCEPT;^1;1^Q"
^DD(991.8,11,3)="Enter a '1' to allow automatic updating from non-CMOR sites or a '0' to not allow automatic updating from non-CMOR sites."
^DD(991.8,11,21,0)="^^5^5^2990423^^^^"
^DD(991.8,11,21,1,0)="This field is the parameter that a site would set to determine if data"
^DD(991.8,11,21,2,0)="coming from another site, that is not the owner of the data, could be "
^DD(991.8,11,21,3,0)="automatically uploaded."
^DD(991.8,11,21,4,0)="If this field is not set, then the software will assume that all"
^DD(991.8,11,21,5,0)="incoming data can not be automatically uploaded."
^DD(991.8,11,"DT")="2990423"
^DD(991.8,12,0)="MPI/PD SEEDING COMP DATE/TIME^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,12,3)="Enter the date/time the MPI/PD seeding process completed."
^DD(991.8,12,21,0)="^.001^4^4^3010117^^^"
^DD(991.8,12,21,1,0)="This field, 'MPI/PD SEEDING COMP DATE/TIME', is used to track the"
^DD(991.8,12,21,2,0)="date/time our seeding process completed.  This field is used to ensure"
^DD(991.8,12,21,3,0)="that the seeding process is run once and only once at a facility.  If a"
^DD(991.8,12,21,4,0)="date is present, our seeding process terminates."
^DD(991.8,12,23,0)="^^7^7^3010703^"
^DD(991.8,12,23,1,0)="This field, 'MPI/PD SEEDING COMP DATE/TIME', is used to track the"
^DD(991.8,12,23,2,0)="date/time our seeding process completed.  This field is used to ensure"
^DD(991.8,12,23,3,0)="that the seeding process is run once and only once at a facility.  If a"
^DD(991.8,12,23,4,0)="date is present, our seeding process terminates."
^DD(991.8,12,23,5,0)=" "
^DD(991.8,12,23,6,0)="This field was added as part of the DG*5.3*261 / RG*1.0*4 bundle"
^DD(991.8,12,23,7,0)="(MPI/PD-CPRS REMOTE PATIENT DATA VIEWS)"
^DD(991.8,12,"DT")="3010703"
^DD(991.8,13,0)="MPI/PD DATA COMPARE COMP DATE^D^^1;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,13,3)="Enter the date/time the MPI/PD data comparison process completed."
^DD(991.8,13,21,0)="^^4^4^3010118^"
^DD(991.8,13,21,1,0)="This field, 'MPI/PD DATA COMPARE COMP DATE', is used to track the"
^DD(991.8,13,21,2,0)="date/time our data comparison process completed.  This field is used to"
^DD(991.8,13,21,3,0)="ensure that the data comparison process is run once and only once at a"
^DD(991.8,13,21,4,0)="facility. If a date is present, our data comparison process terminates."
^DD(991.8,13,23,0)="^^7^7^3010703^"
^DD(991.8,13,23,1,0)="This field, 'MPI/PD DATA COMPARE COMP DATE', is used to track the"
^DD(991.8,13,23,2,0)="date/time our data compare process completed.  This field is used to"
^DD(991.8,13,23,3,0)="ensure that the data compare process is run once and only once at a"
^DD(991.8,13,23,4,0)="facility.  If a date is present, our data comparison process terminates."
^DD(991.8,13,23,5,0)=" "
^DD(991.8,13,23,6,0)="This field was added as part of the RG*1.0*14 / RG*1.0*15"
^DD(991.8,13,23,7,0)="multi-build bundle.  (MPI/PD-CPRS REMOTE PATIENT DATA VIEWS)"
^DD(991.8,13,"DT")="3010703"
^DD(991.8,14,0)="MPI/PD DATE LAST TREATED^D^^1;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,14,3)="Enter the evaluated date/time the Date Last Treated process was complete."
^DD(991.8,14,21,0)="^.001^3^3^3010418^^"
^DD(991.8,14,21,1,0)="'MPI/PD DATE LAST TREATED' is used to track the completion date/time"
^DD(991.8,14,21,2,0)="of the Date Last Treated process. This field is used to ensure that this"
^DD(991.8,14,21,3,0)="Date Last Treated process is run only once at a facility."
^DD(991.8,14,23,0)="^.001^8^8^3010418^^"
^DD(991.8,14,23,1,0)="'MPI/PD DATE LAST TREATED' is used to track the completion date/time of"
^DD(991.8,14,23,2,0)="the Date Last Treated process. This field is used to ensure that this Date"
^DD(991.8,14,23,3,0)="Last Treated process is run only once at a facility."
^DD(991.8,14,23,4,0)=" "
^DD(991.8,14,23,5,0)="The RGRSDYN routine had to be modified to handle routing of VistA HL7"
^DD(991.8,14,23,6,0)="messages that are detached from the ADT/HL7 PIVOT (#391.71) file.  This"
^DD(991.8,14,23,7,0)="field was added to the CIRN SITE PARAMETER (#991.8) as a data dictionary"
^DD(991.8,14,23,8,0)="component of patch RG*1.0*17."
^DD(991.8,14,"DT")="3010329"
^DD(991.8,16,0)="STOP MPI/PD MESSAGING^RS^1:SEND MESSAGES;0:STOP MESSAGES;2:SUSPEND MESSAGES;^1;6^Q"
^DD(991.8,16,3)="Enter a '0' to stop MPI/PD messaging or '1' to start MPI/PD messaging or '2' to suspend MPI/PD messaging."
^DD(991.8,16,21,0)="^.001^2^2^3010720^^"
^DD(991.8,16,21,1,0)="This field will instruct the software to allow MPI/PD messaging, stop it"
^DD(991.8,16,21,2,0)="or suspend it."
^DD(991.8,16,"DT")="3010720"
^DD(991.8,17,0)="PRIMARY CARE CLINIC STOPS^991.817P^^PC;0"
^DD(991.8,17,21,0)="^^2^2^2980922^^^"
^DD(991.8,17,21,1,0)="All primary care Clinic Stops (Decision Support System (DSS) Identifiers)."
^DD(991.8,17,21,2,0)="Used in CMOR patient activity score calculations."
^DD(991.8,18,0)="CMOR LAST PATIENT PROCESSED^P2'^DPT(^CMOR;1^Q"
^DD(991.8,18,3)="This field is used to identify the last patient processed through the sequential CMOR patient activity score process."
^DD(991.8,18,21,0)="^^2^2^2980922^^"
^DD(991.8,18,21,1,0)="This field keeps track of the last sequential patient processed through"
^DD(991.8,18,21,2,0)="the CMOR patient activity score calculations process."
^DD(991.8,18,"DT")="2970926"
^DD(991.8,19,0)="CMOR INIT STARTED DATE/TIME^D^^CMOR;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,19,3)="This field contains the initial start date/time of the CMOR score calculations."
^DD(991.8,19,21,0)="^^2^2^3010703^"
^DD(991.8,19,21,1,0)="This field contain the date/time that the Start/Restart CMOR Score "
^DD(991.8,19,21,2,0)="Calculation option [RG CMOR START] was first run."
^DD(991.8,19,"DT")="3010703"
^DD(991.8,20,0)="CMOR INIT STOPPED DATE/TIME^D^^CMOR;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,20,3)="This field contains the last time that the CMOR score calculations were stopped either manually or normally."
^DD(991.8,20,21,0)="^^2^2^3010703^"
^DD(991.8,20,21,1,0)="This field contain the date/time that the Stop CMOR Score Calculation"
^DD(991.8,20,21,2,0)="option [RG CMOR STOP] was last stopped either manually or normally."
^DD(991.8,20,"DT")="3010703"
^DD(991.8,21,0)="CMOR INIT MANUAL STOP^S^Y:YES;^CMOR;4^Q"
^DD(991.8,21,3)="This field is used to manually stop the CMOR score calculations."
^DD(991.8,21,21,0)="^^4^4^3010703^"
^DD(991.8,21,21,1,0)="This field is used to stop the background task started by the"
^DD(991.8,21,21,2,0)="Start/Restart CMOR Score Calculation option [RG CMOR START]."
^DD(991.8,21,21,3,0)="This field is populated by the Stop CMOR Score Calculation option"
^DD(991.8,21,21,4,0)="[RG CMOR STOP]."
^DD(991.8,21,"DT")="3010703"
^DD(991.8,22,0)="CMOR DAILY START TIME^F^^CMOR;5^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(991.8,22,1,0)="^.1^^0"
^DD(991.8,22,3)="Please enter the START TIME in 24 hour format (i.e. 0001 - 2359)."
^DD(991.8,22,21,0)="^^2^2^2980903^"
^DD(991.8,22,21,1,0)="This field identifies the daily start time in 24 hour format for the CMOR"
^DD(991.8,22,21,2,0)="activity score calculations."
^DD(991.8,22,"DT")="2970926"
^DD(991.8,23,0)="CMOR DAILY STOP TIME^F^^CMOR;6^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(991.8,23,3)="Please enter the STOP TIME in 24 hour format (i.e. 0001 - 2359)."
^DD(991.8,23,21,0)="^^2^2^2980903^"
^DD(991.8,23,21,1,0)="This field identifies the daily stop time in 24 hour format for the CMOR"
^DD(991.8,23,21,2,0)="activity score calculations."
^DD(991.8,23,"DT")="2970926"
^DD(991.8,24,0)="CMOR INIT STATUS^S^R:RUNNING;SN:SUCCESSFULLY COMPLETED;SM:STOPPED MANUALLY;INT:INTERRUPTED ABNORMALLY;^CMOR;7^Q"
^DD(991.8,24,3)="This field contains the current status of the CMOR Score Calculation process."
^DD(991.8,24,21,0)="^^2^2^3000315^^^"
^DD(991.8,24,21,1,0)="This field contains the current status of the CMOR Score Calculations"
^DD(991.8,24,21,2,0)="process."
^DD(991.8,24,"DT")="2981105"
^DD(991.8,25,0)="CMOR RUN TYPE^S^I:INITIAL RUN;R:RESET ALL;RS:RESTART FROM LAST CALCULATED;^CMOR;8^Q"
^DD(991.8,25,21,0)="^^3^3^3010703^"
^DD(991.8,25,21,1,0)="This field contains the current type of CMOR Score Calculation run.  "
^DD(991.8,25,21,2,0)="This field is used by the Start/Restart CMOR Score Calculation option"
^DD(991.8,25,21,3,0)="[RG CMOR START] to identify a starting point."
^DD(991.8,25,"DT")="3010703"
^DD(991.8,26,0)="CMOR LAST TASK#^NJ9,0^^CMOR;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(991.8,26,3)="This field contains the task number of the CMOR Score Calculation task."
^DD(991.8,26,21,0)="^^1^1^2980827^"
^DD(991.8,26,21,1,0)="This field contains the task number of the CMOR Score Calculation process."
^DD(991.8,26,"DT")="2971003"
^DD(991.8,30,0)="CMOR COMP LAST PATIENT^P2'^DPT(^COMP;1^Q"
^DD(991.8,30,3)="Patient last processed with CMOR Comparison."
^DD(991.8,30,21,0)="^^2^2^2980827^"
^DD(991.8,30,21,1,0)="This patient was the last processed patient in the CMOR Comparison"
^DD(991.8,30,21,2,0)="process."
^DD(991.8,30,"DT")="2980220"
^DD(991.8,31,0)="CMOR COMP STARTED DATE/TIME^D^^COMP;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,31,3)="Date/time this process started to run."
^DD(991.8,31,21,0)="^^1^1^2980827^"
^DD(991.8,31,21,1,0)="This is the date/time the CMOR Comparison process started."
^DD(991.8,31,"DT")="2980220"
^DD(991.8,32,0)="CMOR COMP STOPPED DATE/TIME^D^^COMP;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,32,3)="Date/time this process was stopped."
^DD(991.8,32,21,0)="^^2^2^2980827^^"
^DD(991.8,32,21,1,0)="When the CMOR Comparison stopped, (either naturally or manually) a time is"
^DD(991.8,32,21,2,0)="logged in this field for record."
^DD(991.8,32,"DT")="2980220"
^DD(991.8,33,0)="CMOR COMP STATUS^S^R:RUNNING;MS:MANUALLY STOPPED;C:COMPLETED;^COMP;4^Q"
^DD(991.8,33,3)="Status of CMOR Comparison process."
^DD(991.8,33,21,0)="^^1^1^2980827^^"
^DD(991.8,33,21,1,0)="This is the status of the CMOR Comparison process in your system."
^DD(991.8,33,"DT")="2980220"
^DD(991.8,34,0)="CMOR COMP LAST TASK #^NJ10,0^^COMP;5^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(991.8,34,3)="This field contains the task number of the last CMOR Comparison task."
^DD(991.8,34,21,0)="^^1^1^2980827^^"
^DD(991.8,34,21,1,0)="This is the task number that the CMOR Comparison ran on last."
^DD(991.8,34,"DT")="2980220"
^DD(991.8,35,0)="CMOR COMP FLAG^S^Y:YES;N:NO;^COMP;6^Q"
^DD(991.8,35,3)="Request to stop the compare process."
^DD(991.8,35,21,0)="^^1^1^2980827^^"
^DD(991.8,35,21,1,0)="This flag is for the user to request the CMOR Comparison process to stop. "
^DD(991.8,35,"DT")="2980220"
^DD(991.8,40,0)="EXC PURGE START DATE/TIME^D^^EXCPRG;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,40,3)="Date and time MPI/PD Exception Purge last started."
^DD(991.8,40,21,0)="^^2^2^3010703^"
^DD(991.8,40,21,1,0)="This field contains the date and time the MPI/PD Exception Purge was last"
^DD(991.8,40,21,2,0)="started."
^DD(991.8,40,"DT")="3010703"
^DD(991.8,41,0)="EXC PURGE STOP DATE/TIME^D^^EXCPRG;2^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,41,3)="Date and time MPI/PD Exception Purge last stopped."
^DD(991.8,41,21,0)="^^2^2^3010703^"
^DD(991.8,41,21,1,0)="This field contains the date and time the MPI/PD Exception Purge last"
^DD(991.8,41,21,2,0)="completed."
^DD(991.8,41,"DT")="3010703"
^DD(991.8,42,0)="EXC PURGE STATUS^S^R:RUNNING;C:COMPLETE;^EXCPRG;3^Q"
^DD(991.8,42,3)="This field contains the current status of the MPI/PD Exception Purge process."
^DD(991.8,42,21,0)="^^2^2^3010703^"
^DD(991.8,42,21,1,0)="This field contains the current status of the MPI/PD Exception Purge"
^DD(991.8,42,21,2,0)="process."
^DD(991.8,42,"DT")="3010703"
^DD(991.8,50,0)="ADMIN POINT OF CONTACT^P200'^VA(200,^POC;1^Q"
^DD(991.8,50,.1)="Administrative Point of Contact"
^DD(991.8,50,3)="Enter the administrative point of contact name for MPI/PD."
^DD(991.8,50,21,0)="^^7^7^3011010^"
^DD(991.8,50,21,1,0)="The ADMIN POINT OF CONTACT field contains the name of the individual"
^DD(991.8,50,21,2,0)="at the facility who is in a position to resolve patient issues for"
^DD(991.8,50,21,3,0)="Master Patient Index/Patient Demographics.  "
^DD(991.8,50,21,4,0)="  "
^DD(991.8,50,21,5,0)="This field is populated using the Add/Edit Point of Contact [RG UPDATE"
^DD(991.8,50,21,6,0)="POINT OF CONTACT] option.  The information is sent to a remote mail "
^DD(991.8,50,21,7,0)="group whose members maintain the point of contact list on the website."
^DD(991.8,50,"DT")="3011010"
^DD(991.8,51,0)="IRM POINT OF CONTACT^P200'^VA(200,^POC;2^Q"
^DD(991.8,51,.1)="IRM Point of Contact"
^DD(991.8,51,3)="Enter the IRM point of contact name for MPI/PD."
^DD(991.8,51,21,0)="^^7^7^3011010^"
^DD(991.8,51,21,1,0)="The IRM POINT OF CONTACT field contains the name of the individual"
^DD(991.8,51,21,2,0)="at the facility who supports the VistA Master Patient Index/Patient"
^DD(991.8,51,21,3,0)="Demographics application."
^DD(991.8,51,21,4,0)="  "
^DD(991.8,51,21,5,0)="This field is populated using the Add/Edit Point of Contact [RG UPDATE"
^DD(991.8,51,21,6,0)="POINT OF CONTACT] option.  The information is sent to a remote mail "
^DD(991.8,51,21,7,0)="group whose members maintain the point of contact list on the website."
^DD(991.8,51,"DT")="3011010"
^DD(991.8,52,0)="HL7 POINT OF CONTACT^P200'^VA(200,^POC;3^Q"
^DD(991.8,52,.1)="HL7 Point of Contact"
^DD(991.8,52,3)="Enter the HL7 point of contact name for MPI/PD."
^DD(991.8,52,21,0)="^^9^9^3011010^"
^DD(991.8,52,21,1,0)="The HL7 POINT OF CONTACT field contains the name of the individual"
^DD(991.8,52,21,2,0)="at the facility who supports the VistA Health Level Seven (HL7)"
^DD(991.8,52,21,3,0)="application.  Master Patient Index/Patient Demographics uses HL7"
^DD(991.8,52,21,4,0)="for message transmission and frequently needs to contact the HL7"
^DD(991.8,52,21,5,0)="point of contact."
^DD(991.8,52,21,6,0)="  "
^DD(991.8,52,21,7,0)="This field is populated using the Add/Edit Point of Contact [RG UPDATE"
^DD(991.8,52,21,8,0)="POINT OF CONTACT] option.  The information is sent to a remote mail "
^DD(991.8,52,21,9,0)="group whose members maintain the point of contact list on the website."
^DD(991.8,52,"DT")="3011010"
^DD(991.8,53,0)="ALT ADMIN POINT OF CONTACT^P200'^VA(200,^POC;4^Q"
^DD(991.8,53,.1)="Alternate Administrative Point of Contact"
^DD(991.8,53,3)="Enter the alternate administrative point of contact name for MPI/PD."
^DD(991.8,53,21,0)="^^7^7^3011015^"
^DD(991.8,53,21,1,0)="The ALT ADMIN POINT OF CONTACT field contains the name of a second"
^DD(991.8,53,21,2,0)="individual at the facility who is in a position to resolve patient"
^DD(991.8,53,21,3,0)="issues for Master Patient Index/Patient Demographics."
^DD(991.8,53,21,4,0)="   "
^DD(991.8,53,21,5,0)="This field is populated using the Add/Edit Point of Contact [RG UPDATE"
^DD(991.8,53,21,6,0)="POINT OF CONTACT] option.  The information is sent to a remote mail"
^DD(991.8,53,21,7,0)="group whose members maintain the point of contact list on the website."
^DD(991.8,53,"DT")="3011015"
^DD(991.8,54,0)="ALT IRM POINT OF CONTACT^P200'^VA(200,^POC;5^Q"
^DD(991.8,54,.1)="Alternate IRM Point of Contact"
^DD(991.8,54,3)="Enter the alternate IRM point of contact name for MPI/PD."
^DD(991.8,54,21,0)="^^7^7^3011015^"
^DD(991.8,54,21,1,0)="The ALT IRM POINT OF CONTACT field contains the name of a second"
^DD(991.8,54,21,2,0)="individual at the facility who supports the VistA Master Patient"
^DD(991.8,54,21,3,0)="Index/Patient Demographics application."
^DD(991.8,54,21,4,0)="   "
^DD(991.8,54,21,5,0)="This field is populated using the Add/Edit Point of Contact [RG UPDATE"
^DD(991.8,54,21,6,0)="POINT OF CONTACT] option.  The information is sent to a remote mail"
^DD(991.8,54,21,7,0)="group whose members maintain the point of contact list on the website."
^DD(991.8,54,"DT")="3011015"
^DD(991.8,55,0)="ALT HL7 POINT OF CONTACT^P200'^VA(200,^POC;6^Q"
^DD(991.8,55,.1)="Alternate HL7 Point of Contact"
^DD(991.8,55,3)="Enter the alternate HL7 point of contact name for MPI/PD."
^DD(991.8,55,21,0)="^^9^9^3011015^"
^DD(991.8,55,21,1,0)="The ALT HL7 POINT OF CONTACT field contains the name of a second"
^DD(991.8,55,21,2,0)="individual at the facility who supports the VistA Health Level Seven"
^DD(991.8,55,21,3,0)="(HL7) application.  Master Patient Index/Patient Demographics uses HL7"
^DD(991.8,55,21,4,0)="for message transmission and frequently needs to contact the HL7 point"
^DD(991.8,55,21,5,0)="of contact."
^DD(991.8,55,21,6,0)="  "
^DD(991.8,55,21,7,0)="This field is populated using the Add/Edit Point of Contact [RG UPDATE"
^DD(991.8,55,21,8,0)="POINT OF CONTACT] option.  The information is sent to a remote mail"
^DD(991.8,55,21,9,0)="group whose members maintain the point of contact list on the website."
^DD(991.8,55,"DT")="3011015"
^DD(991.8,100,0)="REL INIT STATUS^S^R:RUNNING;SN:STOPPED NORMALLY;SM:STOPPED MANUALLY;^PRE;1^Q"
^DD(991.8,100,3)="This field contain the current status of the patient religion process."
^DD(991.8,100,21,0)="^^1^1^2980903^"
^DD(991.8,100,21,1,0)="This field contains the current status of the religion status process."
^DD(991.8,100,"DT")="2971202"
^DD(991.8,101,0)="REL INIT START^D^^PRE;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,101,3)="This field contains the initial start date/time of the patient religion status process."
^DD(991.8,101,21,0)="^^2^2^2980904^^"
^DD(991.8,101,21,1,0)="This field contains the initial start date/time of the patient religion"
^DD(991.8,101,21,2,0)="status process."
^DD(991.8,101,"DT")="2971202"
^DD(991.8,102,0)="REL INIT STOP^D^^PRE;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,102,3)="This field is populated with date/time that the religion status process ended."
^DD(991.8,102,21,0)="^^2^2^2980904^"
^DD(991.8,102,21,1,0)="This field contains the date/time that the patient religion status"
^DD(991.8,102,21,2,0)="process stopped."
^DD(991.8,102,"DT")="2971202"
^DD(991.8,103,0)="REL INIT LAST^P2'^DPT(^PRE;4^Q"
^DD(991.8,103,3)="This field contains the last patient processed by the religion status process."
^DD(991.8,103,21,0)="^^2^2^2980903^"
^DD(991.8,103,21,1,0)="This field contains the last patient processed by the religion status"
^DD(991.8,103,21,2,0)="process."
^DD(991.8,103,"DT")="2971202"
^DD(991.8,104,0)="REL INIT USER^P200'^VA(200,^PRE;5^Q"
^DD(991.8,104,3)="This field identifies the person who ran the initial religion status process."
^DD(991.8,104,21,0)="^^2^2^2980904^"
^DD(991.8,104,21,1,0)="This field contains the person who ran the initial religion status"
^DD(991.8,104,21,2,0)="process."
^DD(991.8,104,"DT")="2971202"
^DD(991.8,105,0)="MAR INIT STATUS^S^R:RUNNING;SN:STOPPED NORMALLY;SM:STOPPED MANUALLY;^PRE;6^Q"
^DD(991.8,105,3)="This field is populated with the status of the initial marital status process."
^DD(991.8,105,21,0)="^^2^2^2980904^"
^DD(991.8,105,21,1,0)="This field contains the status of the marital status initialization"
^DD(991.8,105,21,2,0)="process."
^DD(991.8,105,"DT")="2971202"
^DD(991.8,106,0)="MAR INIT START^D^^PRE;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,106,3)="This field is populated with the exact starting date/time of the marital status initialization process."
^DD(991.8,106,21,0)="^^2^2^2980904^"
^DD(991.8,106,21,1,0)="This field contains the starting date/time of the marital status"
^DD(991.8,106,21,2,0)="initialization process."
^DD(991.8,106,"DT")="2971202"
^DD(991.8,107,0)="MAR INIT STOP^D^^PRE;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,107,3)="This field is populated with the date/time that the marital status initialization process stopped."
^DD(991.8,107,21,0)="^^2^2^2980904^"
^DD(991.8,107,21,1,0)="This field contains the date/time that the marital status initialization"
^DD(991.8,107,21,2,0)="process stopped."
^DD(991.8,107,"DT")="2971202"
^DD(991.8,108,0)="MAR INIT LAST^P2'^DPT(^PRE;9^Q"
^DD(991.8,108,3)="This field is populated with the patient processed by the marital status process."
^DD(991.8,108,21,0)="^^2^2^2980904^"
^DD(991.8,108,21,1,0)="This field contains the last PATIENT file (#2) entry that was processed by"
^DD(991.8,108,21,2,0)="the marital status initialization process."
^DD(991.8,108,"DT")="2971202"
^DD(991.8,109,0)="MAR INIT USER^P200'^VA(200,^PRE;10^Q"
^DD(991.8,109,3)="This field is populated with the user the ran the marital status initialization process."
^DD(991.8,109,21,0)="^^2^2^2980904^"
^DD(991.8,109,21,1,0)="This field contains the user that ran the marital status initialization"
^DD(991.8,109,21,2,0)="process."
^DD(991.8,109,"DT")="2971202"
^DD(991.8,110,0)="ELIG INIT STATUS^S^R:RUNNING;SN:STOPPED NORMALLY;SM:STOPPED MANUALLY;^PRE1;1^Q"
^DD(991.8,110,3)="This field is populated with the current status of the patient eligibility process."
^DD(991.8,110,21,0)="^^2^2^2980904^"
^DD(991.8,110,21,1,0)="This field contains the status of the patient eligibility initialization"
^DD(991.8,110,21,2,0)="process."
^DD(991.8,110,"DT")="2971202"
^DD(991.8,111,0)="ELIG INIT START^D^^PRE1;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,111,3)="This field is populated with the start date/time of the patient eligibility initialization process."
^DD(991.8,111,21,0)="^^2^2^2980904^"
^DD(991.8,111,21,1,0)="This field contains the date/time that the patient eligibility"
^DD(991.8,111,21,2,0)="initialization process was started."
^DD(991.8,111,"DT")="2971202"
^DD(991.8,112,0)="ELIG INIT STOP^D^^PRE1;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,112,3)="This field is populated with the date/time that the patient eligibility initialization process was stopped."
^DD(991.8,112,21,0)="^^2^2^2980904^"
^DD(991.8,112,21,1,0)="This field contains the date/time that the patient eligibility"
^DD(991.8,112,21,2,0)="initialization process was stopped."
^DD(991.8,112,"DT")="2971202"
^DD(991.8,113,0)="ELIG INIT LAST^P2'^DPT(^PRE1;4^Q"
^DD(991.8,113,3)="This field is populated with the last patient processed by the patient eligibility process."
^DD(991.8,113,21,0)="^^2^2^2980904^"
^DD(991.8,113,21,1,0)="This field contains the last PATIENT file (#2) entry processed by the"
^DD(991.8,113,21,2,0)="patient eligibility initialization process."
^DD(991.8,113,"DT")="2971202"
^DD(991.8,114,0)="ELIG INIT USER^P200'^VA(200,^PRE1;5^Q"
^DD(991.8,114,3)="This field is populated with the user that ran the patient eligibility process."
^DD(991.8,114,21,0)="^^2^2^2980904^"
^DD(991.8,114,21,1,0)="This field contains the user that ran the patient eligibility"
^DD(991.8,114,21,2,0)="initialization process."
^DD(991.8,114,"DT")="2971202"
^DD(991.8,115,0)="PSEUDO INIT STATUS^S^R:RUNNING;SN:STOPPED NORMALLY;SM:STOPPED MANUALLY;^PRE1;6^Q"
^DD(991.8,115,3)="This field is populated with the current status of the Pseudo-SSN process."
^DD(991.8,115,21,0)="^^1^1^2980904^"
^DD(991.8,115,21,1,0)="This field contains the status of the Pseudo-SSN initialization process."
^DD(991.8,115,"DT")="2971202"
^DD(991.8,116,0)="PSEUDO INIT START^D^^PRE1;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,116,3)="This field is populated with the date/time that the Pseudo-SSN process was started."
^DD(991.8,116,21,0)="^^2^2^2980904^"
^DD(991.8,116,21,1,0)="This field contains the start date/time of the Pseudo-SSN initialization"
^DD(991.8,116,21,2,0)="process."
^DD(991.8,116,"DT")="2971202"
^DD(991.8,117,0)="PSEUDO INIT STOP^D^^PRE1;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(991.8,117,3)="This field is populated with the date/time that the Pseudo-SSN process was stopped."
^DD(991.8,117,21,0)="^^2^2^2980904^"
^DD(991.8,117,21,1,0)="This field contains the date/time that the Pseudo-SSN initialization"
^DD(991.8,117,21,2,0)="process was stopped."
^DD(991.8,117,"DT")="2971202"
^DD(991.8,118,0)="PSEUDO INIT LAST^P2'^DPT(^PRE1;9^Q"
^DD(991.8,118,3)="This field is populated with the last patient processed by the Pseudo-SSN process."
^DD(991.8,118,21,0)="^^2^2^2980904^"
^DD(991.8,118,21,1,0)="This field contains the last PATIENT file (#2) entry that was processed by"
^DD(991.8,118,21,2,0)="the Pseudo-SSN initialization process."
^DD(991.8,118,"DT")="2971202"
^DD(991.8,119,0)="PSEUDO INIT USER^P200'^VA(200,^PRE1;10^Q"
^DD(991.8,119,3)="This field is populated with the user who ran the Pseudo-SSN process."
^DD(991.8,119,21,0)="^^2^2^2980904^"
^DD(991.8,119,21,1,0)="This field contains the user that ran the Pseudo-SSN initialization"
^DD(991.8,119,21,2,0)="process."
^DD(991.8,119,"DT")="2971202"
^DD(991.8,"B","ADMIN POINT OF CONTACT",50)=""
^DD(991.8,"B","ALT ADMIN POINT OF CONTACT",53)=""
^DD(991.8,"B","ALT HL7 POINT OF CONTACT",55)=""
^DD(991.8,"B","ALT IRM POINT OF CONTACT",54)=""
^DD(991.8,"B","AUTO ACCEPT DEMOGRAPHICS",11)=""
^DD(991.8,"B","Alternate HL7 Point of Contact",55)="1"
^DD(991.8,"B","Alternate IRM Point of Contact",54)="1"
^DD(991.8,"B","CMOR COMP FLAG",35)=""
^DD(991.8,"B","CMOR COMP LAST PATIENT",30)=""
^DD(991.8,"B","CMOR COMP LAST TASK #",34)=""
^DD(991.8,"B","CMOR COMP STARTED DATE/TIME",31)=""
^DD(991.8,"B","CMOR COMP STATUS",33)=""
^DD(991.8,"B","CMOR COMP STOPPED DATE/TIME",32)=""
^DD(991.8,"B","CMOR DAILY START TIME",22)=""
^DD(991.8,"B","CMOR DAILY STOP TIME",23)=""
^DD(991.8,"B","CMOR INIT MANUAL STOP",21)=""
^DD(991.8,"B","CMOR INIT STARTED DATE/TIME",19)=""
^DD(991.8,"B","CMOR INIT STATUS",24)=""
^DD(991.8,"B","CMOR INIT STOPPED DATE/TIME",20)=""
^DD(991.8,"B","CMOR LAST PATIENT PROCESSED",18)=""
^DD(991.8,"B","CMOR LAST TASK#",26)=""
^DD(991.8,"B","CMOR REQUEST CHANGE",.02)=""
^DD(991.8,"B","CMOR RUN TYPE",25)=""
^DD(991.8,"B","ELIG INIT LAST",113)=""
^DD(991.8,"B","ELIG INIT START",111)=""
^DD(991.8,"B","ELIG INIT STATUS",110)=""
^DD(991.8,"B","ELIG INIT STOP",112)=""
^DD(991.8,"B","ELIG INIT USER",114)=""
^DD(991.8,"B","EXC PURGE START DATE/TIME",40)=""
^DD(991.8,"B","EXC PURGE STATUS",42)=""
^DD(991.8,"B","EXC PURGE STOP DATE/TIME",41)=""
^DD(991.8,"B","HL7 POINT OF CONTACT",52)=""
^DD(991.8,"B","HL7 Point of Contact",52)="1"
^DD(991.8,"B","IRM POINT OF CONTACT",51)=""
^DD(991.8,"B","IRM Point of Contact",51)="1"
^DD(991.8,"B","LOCAL/MISSING DATE LAST RAN",.04)=""
^DD(991.8,"B","MAR INIT LAST",108)=""
^DD(991.8,"B","MAR INIT START",106)=""
^DD(991.8,"B","MAR INIT STATUS",105)=""
^DD(991.8,"B","MAR INIT STOP",107)=""
^DD(991.8,"B","MAR INIT USER",109)=""
^DD(991.8,"B","MPI/PD DATA COMPARE COMP DATE",13)=""
^DD(991.8,"B","MPI/PD DATE LAST TREATED",14)=""
^DD(991.8,"B","MPI/PD SEEDING COMP DATE/TIME",12)=""
^DD(991.8,"B","NEW REQUEST MAILGROUP",.03)=""
^DD(991.8,"B","PARAMETER NUMBER",.01)=""
^DD(991.8,"B","PRIMARY CARE CLINIC STOPS",17)=""
^DD(991.8,"B","PSEUDO INIT LAST",118)=""
^DD(991.8,"B","PSEUDO INIT START",116)=""
^DD(991.8,"B","PSEUDO INIT STATUS",115)=""
^DD(991.8,"B","PSEUDO INIT STOP",117)=""
^DD(991.8,"B","PSEUDO INIT USER",119)=""
^DD(991.8,"B","REL INIT LAST",103)=""
^DD(991.8,"B","REL INIT START",101)=""
^DD(991.8,"B","REL INIT STATUS",100)=""
^DD(991.8,"B","REL INIT STOP",102)=""
^DD(991.8,"B","REL INIT USER",104)=""
^DD(991.8,"B","STOP MPI/PD MESSAGING",16)=""
^DD(991.8,"GL",0,1,.01)=""
^DD(991.8,"GL",0,2,.02)=""
^DD(991.8,"GL",0,3,.03)=""
^DD(991.8,"GL",0,4,.04)=""
^DD(991.8,"GL",1,1,11)=""
^DD(991.8,"GL",1,2,12)=""
^DD(991.8,"GL",1,3,13)=""
^DD(991.8,"GL",1,4,14)=""
^DD(991.8,"GL",1,6,16)=""
^DD(991.8,"GL","CMOR",1,18)=""
^DD(991.8,"GL","CMOR",2,19)=""
^DD(991.8,"GL","CMOR",3,20)=""
^DD(991.8,"GL","CMOR",4,21)=""
^DD(991.8,"GL","CMOR",5,22)=""
^DD(991.8,"GL","CMOR",6,23)=""
^DD(991.8,"GL","CMOR",7,24)=""
^DD(991.8,"GL","CMOR",8,25)=""
^DD(991.8,"GL","CMOR",9,26)=""
^DD(991.8,"GL","COMP",1,30)=""
^DD(991.8,"GL","COMP",2,31)=""
^DD(991.8,"GL","COMP",3,32)=""
^DD(991.8,"GL","COMP",4,33)=""
^DD(991.8,"GL","COMP",5,34)=""
^DD(991.8,"GL","COMP",6,35)=""
^DD(991.8,"GL","EXCPRG",1,40)=""
^DD(991.8,"GL","EXCPRG",2,41)=""
^DD(991.8,"GL","EXCPRG",3,42)=""
^DD(991.8,"GL","PC",0,17)=""
^DD(991.8,"GL","POC",1,50)=""
^DD(991.8,"GL","POC",2,51)=""
^DD(991.8,"GL","POC",3,52)=""
^DD(991.8,"GL","POC",4,53)=""
^DD(991.8,"GL","POC",5,54)=""
^DD(991.8,"GL","POC",6,55)=""
^DD(991.8,"GL","PRE",1,100)=""
^DD(991.8,"GL","PRE",2,101)=""
^DD(991.8,"GL","PRE",3,102)=""
^DD(991.8,"GL","PRE",4,103)=""
^DD(991.8,"GL","PRE",5,104)=""
^DD(991.8,"GL","PRE",6,105)=""
^DD(991.8,"GL","PRE",7,106)=""
^DD(991.8,"GL","PRE",8,107)=""
^DD(991.8,"GL","PRE",9,108)=""
^DD(991.8,"GL","PRE",10,109)=""
^DD(991.8,"GL","PRE1",1,110)=""
^DD(991.8,"GL","PRE1",2,111)=""
^DD(991.8,"GL","PRE1",3,112)=""
^DD(991.8,"GL","PRE1",4,113)=""
^DD(991.8,"GL","PRE1",5,114)=""
^DD(991.8,"GL","PRE1",6,115)=""
^DD(991.8,"GL","PRE1",7,116)=""
^DD(991.8,"GL","PRE1",8,117)=""
^DD(991.8,"GL","PRE1",9,118)=""
^DD(991.8,"GL","PRE1",10,119)=""
^DD(991.8,"IX",.01)=""
^DD(991.8,"RQ",.01)=""
^DD(991.8,"RQ",.02)=""
^DD(991.8,"RQ",16)=""
^DD(991.8,"SB",991.817,17)=""
^DD(991.817,0)="PRIMARY CARE CLINIC STOPS SUB-FIELD^^2^3"
^DD(991.817,0,"DT")="2970926"
^DD(991.817,0,"IX","B",991.817,.01)=""
^DD(991.817,0,"NM","PRIMARY CARE CLINIC STOPS")=""
^DD(991.817,0,"UP")="991.8"
^DD(991.817,.01,0)="PRIMARY CARE CLINIC STOPS^MP40.7'^DIC(40.7,^0;1^Q"
^DD(991.817,.01,1,0)="^.1"
^DD(991.817,.01,1,1,0)="991.817^B"
^DD(991.817,.01,1,1,1)="S ^RGSITE(991.8,DA(1),""PC"",""B"",$E(X,1,30),DA)="""""
^DD(991.817,.01,1,1,2)="K ^RGSITE(991.8,DA(1),""PC"",""B"",$E(X,1,30),DA)"
^DD(991.817,.01,3)="Identify the Clinic Stops to use for calculating the CMOR activity scores."
^DD(991.817,.01,21,0)="^^3^3^2980826^"
^DD(991.817,.01,21,1,0)="This field contains the primary care Clinic Stops or Decision Support"
^DD(991.817,.01,21,2,0)="System (DSS) identifiers used to calculate the CMOR patient activity"
^DD(991.817,.01,21,3,0)="scores."
^DD(991.817,.01,"DT")="2970926"
^DD(991.817,1,0)="ACTIVATION DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(991.817,1,3)="Enter the date/time to activate this clinic stop."
^DD(991.817,1,21,0)="^^2^2^2980826^"
^DD(991.817,1,21,1,0)="This field contains the activation date of the clinic stop used in"
^DD(991.817,1,21,2,0)="calculating the CMOR patient activity scores."
^DD(991.817,1,"DT")="2970926"
^DD(991.817,2,0)="INACTIVE DATE^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(991.817,2,3)="Enter the date/time to inactive the use of this clinic stop for calculating CMOR scores."
^DD(991.817,2,21,0)="^^2^2^2980922^^"
^DD(991.817,2,21,1,0)="This field identifies the date/time that the clinic stop will be"
^DD(991.817,2,21,2,0)="inactivated for calculating CMOR patient activity scores."
^DD(991.817,2,"DT")="2970926"
^DD(991.817,"B","ACTIVATION DATE",1)=""
^DD(991.817,"B","INACTIVE DATE",2)=""
^DD(991.817,"B","PRIMARY CARE CLINIC STOPS",.01)=""
^DD(991.817,"GL",0,1,.01)=""
^DD(991.817,"GL",0,2,1)=""
^DD(991.817,"GL",0,3,2)=""
^DD(991.817,"IX",.01)=""
^DD(995,0)="FIELD^^99^8"
^DD(995,0,"DDA")="N"
^DD(995,0,"DT")="2970407"
^DD(995,0,"IX","B",995,.01)=""
^DD(995,0,"NM","CIRN EVENT ASSOCIATION")=""
^DD(995,0,"PT",991.1,5)=""
^DD(995,0,"PT",995.1,.03)=""
^DD(995,0,"PT",995.2,.02)=""
^DD(995,0,"VRPK")="CLINICAL INFO RESOURCE NETWORK"
^DD(995,.01,0)="EVENT TYPE^RFX^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X I $D(X),($E(X)=""A""!(X=""B"")) K X"
^DD(995,.01,1,0)="^.1"
^DD(995,.01,1,1,0)="995^B"
^DD(995,.01,1,1,1)="S ^RGEQASN(""B"",$E(X,1,30),DA)="""""
^DD(995,.01,1,1,2)="K ^RGEQASN(""B"",$E(X,1,30),DA)"
^DD(995,.01,3)="Answer must be 2-30 characters in length."
^DD(995,.01,21,0)="^^2^2^2960928^^"
^DD(995,.01,21,1,0)="Name given to CIRN event that describes the condition that triggers"
^DD(995,.01,21,2,0)="the event."
^DD(995,.01,"DT")="2960321"
^DD(995,1,0)="HL7 EVENT PROTOCOL^*P101'^ORD(101,^0;2^S DIC(""S"")=""I $P(^(0),U,4)=""""E"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(995,1,3)="HL7 event protocol associated with this CIRN event type."
^DD(995,1,12)="Event protocols only"
^DD(995,1,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=""""E"""""""
^DD(995,1,21,0)="^^2^2^2970327^^"
^DD(995,1,21,1,0)="If an event triggers an HL7 message to be transmitted to other stations,"
^DD(995,1,21,2,0)="the event protocol that is triggered should be store in this field."
^DD(995,1,"DT")="2960416"
^DD(995,2,0)="PRIORITY^NJ2,0^^0;3^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(995,2,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(995,2,21,0)="^^2^2^2970327^^"
^DD(995,2,21,1,0)="The priority field defines the system priority that background queue"
^DD(995,2,21,2,0)="is assigned.  A priority of 1 is lowest to priority 10 highest."
^DD(995,2,"DT")="2960329"
^DD(995,4,0)="HANG TIME (SECONDS)^NJ3,0^^0;4^K:+X'=X!(X>600)!(X<30)!(X?.E1"".""1N.N) X"
^DD(995,4,3)="Type a Number between 30 and 600, 0 Decimal Digits"
^DD(995,4,21,0)="^^6^6^2990308^^^^"
^DD(995,4,21,1,0)="When an event is put on a queue to be processed, a separate job"
^DD(995,4,21,2,0)="is started in the background to process the entries on the queue.  After"
^DD(995,4,21,3,0)="all entries on the queue are processed, the job can continue to monitor"
^DD(995,4,21,4,0)="the queue for new entries.  The hang time defines the amount of time"
^DD(995,4,21,5,0)="the job stays active waiting for new entries.  If no entries are placed"
^DD(995,4,21,6,0)="in the queue within the hang time, the background job stops."
^DD(995,4,"DT")="2960321"
^DD(995,5,0)="DISABLE^S^0:NO;1:YES;^0;5^Q"
^DD(995,5,3)="Enter '1' to Disable, '0' to process."
^DD(995,5,21,0)="^^1^1^2990308^^^^"
^DD(995,5,21,1,0)="When a queue is disabled, no entries will be processed on the queue."
^DD(995,5,"DT")="2960321"
^DD(995,10,0)="TAG^F^^1;1^K:$L(X)>8!($L(X)<1)!'(X?1.8AN) X"
^DD(995,10,3)="Optional tag defining entry point for subdaemon."
^DD(995,10,21,0)="^^1^1^2970327^^"
^DD(995,10,21,1,0)="Routine line tag to use to process event entries on the queue."
^DD(995,10,"DT")="2960222"
^DD(995,11,0)="ROUTINE^F^^1;2^K:$L(X)>8!($L(X)<1)!'(X?1.8AN) X"
^DD(995,11,3)="Routine name of subdaemon for this data class."
^DD(995,11,21,0)="^^1^1^2970327^^"
^DD(995,11,21,1,0)="Name of routine to use to process event entries on the queue."
^DD(995,11,"DT")="2960222"
^DD(995,99,0)="DESCRIPTION^995.099^^99;0"
^DD(995,99,21,0)="^^2^2^2990308^^^"
^DD(995,99,21,1,0)="This field holds a detailed explanation of this event type and"
^DD(995,99,21,2,0)="the format of its associated event stub."
^DD(995,"B","DESCRIPTION",99)=""
^DD(995,"B","DISABLE",5)=""
^DD(995,"B","EVENT TYPE",.01)=""
^DD(995,"B","HANG TIME (SECONDS)",4)=""
^DD(995,"B","HL7 EVENT PROTOCOL",1)=""
^DD(995,"B","PRIORITY",2)=""
^DD(995,"B","ROUTINE",11)=""
^DD(995,"B","TAG",10)=""
^DD(995,"GL",0,1,.01)=""
^DD(995,"GL",0,2,1)=""
^DD(995,"GL",0,3,2)=""
^DD(995,"GL",0,4,4)=""
^DD(995,"GL",0,5,5)=""
^DD(995,"GL",1,1,10)=""
^DD(995,"GL",1,2,11)=""
^DD(995,"GL",99,0,99)=""
^DD(995,"IX",.01)=""
^DD(995,"RQ",.01)=""
^DD(995,"SB",995.099,99)=""
^DD(995.099,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(995.099,0,"DT")="2970407"
^DD(995.099,0,"NM","DESCRIPTION")=""
^DD(995.099,0,"UP")="995"
^DD(995.099,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(995.099,.01,3)="Detailed description of this event type and the format of its associated event stub."
^DD(995.099,.01,21,0)="^^2^2^2990308^^^"
^DD(995.099,.01,21,1,0)="This is a word-processing field which holds a detailed explanation"
^DD(995.099,.01,21,2,0)="of this event type and the format of its associated event stub."
^DD(995.099,.01,"DT")="2970407"
^DD(995.099,"B","DESCRIPTION",.01)=""
^DD(995.099,"GL",0,1,.01)=""
^DD(995.1,0)="FIELD^^2^5"
^DD(995.1,0,"DDA")="N"
^DD(995.1,0,"DT")="2960307"
^DD(995.1,0,"ID","WR1")="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(995.1,0,"ID","WR2")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RGEQASN(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(995,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(995.1,0,"IX","AC",995.1,.03)=""
^DD(995.1,0,"IX","B",995.1,.01)=""
^DD(995.1,0,"NM","CIRN EVENT EXCEPTION")=""
^DD(995.1,0,"VRPK")="CLINICAL INFO RESOURCE NETWORK"
^DD(995.1,.01,0)="NUMBER^RNJ8,0^^0;1^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(995.1,.01,1,0)="^.1"
^DD(995.1,.01,1,1,0)="995.1^B"
^DD(995.1,.01,1,1,1)="S ^RGEQEXC(""B"",$E(X,1,30),DA)="""""
^DD(995.1,.01,1,1,2)="K ^RGEQEXC(""B"",$E(X,1,30),DA)"
^DD(995.1,.01,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(995.1,.01,21,0)="^^1^1^2970327^^"
^DD(995.1,.01,21,1,0)="A sequential number assigned to event exceptions."
^DD(995.1,.01,"DT")="2960307"
^DD(995.1,.02,0)="DATE/TIME^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(995.1,.02,3)="Date/time event exception occurred."
^DD(995.1,.02,21,0)="^^1^1^2990308^^^"
^DD(995.1,.02,21,1,0)="Date/time event exception occurred."
^DD(995.1,.02,"DT")="2960307"
^DD(995.1,.03,0)="TYPE^RP995'^RGEQASN(^0;3^Q"
^DD(995.1,.03,1,0)="^.1"
^DD(995.1,.03,1,1,0)="995.1^AC"
^DD(995.1,.03,1,1,1)="S ^RGEQEXC(""AC"",$E(X,1,30),DA)="""""
^DD(995.1,.03,1,1,2)="K ^RGEQEXC(""AC"",$E(X,1,30),DA)"
^DD(995.1,.03,1,1,"DT")="2960325"
^DD(995.1,.03,3)="References the type of CIRN event that caused the exception."
^DD(995.1,.03,21,0)="^^1^1^2990308^^^"
^DD(995.1,.03,21,1,0)="References the type of CIRN event that errored."
^DD(995.1,.03,"DT")="2960325"
^DD(995.1,1,0)="PARAMETERS^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(995.1,1,3)="Answer must be 1-245 characters in length."
^DD(995.1,1,21,0)="^^7^7^2970327^^"
^DD(995.1,1,21,1,0)="When an event is placed on a queue for later process, parameter passing"
^DD(995.1,1,21,2,0)="is supported.  Parameters are required so the processing routine knows"
^DD(995.1,1,21,3,0)="what entries on the queue to process or other special parameters defined"
^DD(995.1,1,21,4,0)="by the event processing routine."
^DD(995.1,1,21,5,0)=" "
^DD(995.1,1,21,6,0)="When an error occurs, the parameters that were required are store in this"
^DD(995.1,1,21,7,0)="field so when re-processing takes place the same parameters can be used."
^DD(995.1,1,"DT")="2960307"
^DD(995.1,2,0)="ERROR^F^^2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(995.1,2,3)="Answer must be 1-245 characters in length."
^DD(995.1,2,21,0)="^^2^2^2970327^^"
^DD(995.1,2,21,1,0)="If a soft-error or hard-error occurs, the description of error is stored"
^DD(995.1,2,21,2,0)="in this field for debugging purposes."
^DD(995.1,2,"DT")="2960307"
^DD(995.1,"B","DATE/TIME",.02)=""
^DD(995.1,"B","ERROR",2)=""
^DD(995.1,"B","NUMBER",.01)=""
^DD(995.1,"B","PARAMETERS",1)=""
^DD(995.1,"B","TYPE",.03)=""
^DD(995.1,"GL",0,1,.01)=""
^DD(995.1,"GL",0,2,.02)=""
^DD(995.1,"GL",0,3,.03)=""
^DD(995.1,"GL",1,"E1,245",1)=""
^DD(995.1,"GL",2,"E1,245",2)=""
^DD(995.1,"IX",.01)=""
^DD(995.1,"IX",.03)=""
^DD(995.1,"RQ",.01)=""
^DD(995.1,"RQ",.02)=""
^DD(995.1,"RQ",.03)=""
^DD(995.2,0)="FIELD^^1.02^5"
^DD(995.2,0,"DT")="2960307"
^DD(995.2,0,"ID","WR1")="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(995.2,0,"ID","WR2")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RGEQASN(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(995,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(995.2,0,"IX","AX1",995.2,.02)=""
^DD(995.2,0,"IX","AX2",995.2,.03)=""
^DD(995.2,0,"IX","B",995.2,.01)=""
^DD(995.2,0,"NM","CIRN EVENT STATISTICS")=""
^DD(995.2,0,"VRPK")="CLINICAL INFO RESOURCE NETWORK"
^DD(995.2,.01,0)="NUMBER^RNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(995.2,.01,1,0)="^.1"
^DD(995.2,.01,1,1,0)="995.2^B"
^DD(995.2,.01,1,1,1)="S ^RGSTAT(995.2,""B"",$E(X,1,30),DA)="""""
^DD(995.2,.01,1,1,2)="K ^RGSTAT(995.2,""B"",$E(X,1,30),DA)"
^DD(995.2,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(995.2,.01,21,0)="^^2^2^2961008^"
^DD(995.2,.01,21,1,0)="A generic number assigned to each statistical entry in the file.  This"
^DD(995.2,.01,21,2,0)="number is sequential."
^DD(995.2,.01,"DT")="2960307"
^DD(995.2,.02,0)="TYPE^RP995'^RGEQASN(^0;2^Q"
^DD(995.2,.02,1,0)="^.1"
^DD(995.2,.02,1,1,0)="995.2^AX1^MUMPS"
^DD(995.2,.02,1,1,1)="I $P(^RGSTAT(995.2,DA,0),""^"",3)]"""" S ^RGSTAT(995.2,""AX"",X,$P(^RGSTAT(995.2,DA,0),""^"",3),DA)="""""
^DD(995.2,.02,1,1,2)="I $P(^RGSTAT(995.2,DA,0),""^"",3)]"""" K ^RGSTAT(995.2,""AX"",X,$P(^RGSTAT(995.2,DA,0),""^"",3),DA)"
^DD(995.2,.02,1,1,"DT")="2960307"
^DD(995.2,.02,3)="References the event type this statistical entry represents."
^DD(995.2,.02,21,0)="^^1^1^2990308^^^"
^DD(995.2,.02,21,1,0)="The event type the statistical entry represents."
^DD(995.2,.02,"DT")="2960307"
^DD(995.2,.03,0)="DATE^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(995.2,.03,1,0)="^.1"
^DD(995.2,.03,1,1,0)="995.2^AX2^MUMPS"
^DD(995.2,.03,1,1,1)="I $P(^RGSTAT(995.2,DA,0),""^"",2)]"""" S ^RGSTAT(995.2,""AX"",$P(^RGSTAT(995.2,DA,0),""^"",2),X,DA)="""""
^DD(995.2,.03,1,1,2)="I $P(^RGSTAT(995.2,DA,0),""^"",2)]"""" K ^RGSTAT(995.2,""AX"",$P(^RGSTAT(995.2,DA,0),""^"",2),X,DA)"
^DD(995.2,.03,1,1,"DT")="2960307"
^DD(995.2,.03,3)="Date this statistical entry was created."
^DD(995.2,.03,21,0)="^^4^4^2990308^^^"
^DD(995.2,.03,21,1,0)="The date the statistical entry was created.  When an event is triggered,"
^DD(995.2,.03,21,2,0)="it creates an entry in this file if one does not exist for the date."
^DD(995.2,.03,21,3,0)="If an event type is not triggered in a particular day, an entry will"
^DD(995.2,.03,21,4,0)="not exist for that date."
^DD(995.2,.03,"DT")="2960307"
^DD(995.2,1.01,0)="PROCESSED^NJ7,0^^1;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(995.2,1.01,3)="Enter the number of times the event was triggered for the date specified."
^DD(995.2,1.01,21,0)="^^2^2^2990308^^^"
^DD(995.2,1.01,21,1,0)="Number representing the number of times the event was triggered for"
^DD(995.2,1.01,21,2,0)="the date specified in the date field."
^DD(995.2,1.01,"DT")="2960307"
^DD(995.2,1.02,0)="ERRORS^NJ7,0^^1;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(995.2,1.02,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(995.2,1.02,21,0)="^^9^9^2961008^^"
^DD(995.2,1.02,21,1,0)="This represents the number of errors that were encountered while trying"
^DD(995.2,1.02,21,2,0)="to process an event.  Since events can be re-processed after an"
^DD(995.2,1.02,21,3,0)="error condition is corrected, the number of errors and number of events"
^DD(995.2,1.02,21,4,0)="successfully processed can be greater than the number of total events."
^DD(995.2,1.02,21,5,0)=" "
^DD(995.2,1.02,21,6,0)="For example: If a single event attempted to run and had an error and"
^DD(995.2,1.02,21,7,0)="was reprocessed successfully, the number of errors would be one and the"
^DD(995.2,1.02,21,8,0)="number processed would be one.  If you totaled these two fields"
^DD(995.2,1.02,21,9,0)="it would equal two, but this represents only one occurrence of an event."
^DD(995.2,1.02,"DT")="2960307"
^DD(995.2,"B","DATE",.03)=""
^DD(995.2,"B","ERRORS",1.02)=""
^DD(995.2,"B","NUMBER",.01)=""
^DD(995.2,"B","PROCESSED",1.01)=""
^DD(995.2,"B","TYPE",.02)=""
^DD(995.2,"GL",0,1,.01)=""
^DD(995.2,"GL",0,2,.02)=""
^DD(995.2,"GL",0,3,.03)=""
^DD(995.2,"GL",1,1,1.01)=""
^DD(995.2,"GL",1,2,1.02)=""
^DD(995.2,"IX",.01)=""
^DD(995.2,"IX",.02)=""
^DD(995.2,"IX",.03)=""
^DD(995.2,"RQ",.01)=""
^DD(995.2,"RQ",.02)=""
^DD(995.2,"RQ",.03)=""
^DD(1020.1,0)="FIELD^^14^15"
^DD(1020.1,0,"DDA")="N"
^DD(1020.1,0,"DT")="2940630"
^DD(1020.1,0,"IX","B",1020.1,.01)=""
^DD(1020.1,0,"NM","PPP PARAMETER")=""
^DD(1020.1,0,"VR")="1.0"
^DD(1020.1,.01,0)="ONE^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1020.1,.01,1,0)="^.1"
^DD(1020.1,.01,1,1,0)="1020.1^B"
^DD(1020.1,.01,1,1,1)="S ^PPP(1020.1,""B"",$E(X,1,30),DA)="""""
^DD(1020.1,.01,1,1,2)="K ^PPP(1020.1,""B"",$E(X,1,30),DA)"
^DD(1020.1,.01,3)="There is only one entry allowed for this file."
^DD(1020.1,.01,21,0)="^^1^1^2920109^"
^DD(1020.1,.01,21,1,0)="This file has one and only one entry."
^DD(1020.1,.01,"DT")="2920109"
^DD(1020.1,1,0)="PRE-CLINIC SCAN DAYS^RNJ3,0^^0;2^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.1,1,3)="Enter the number of days, prior to a scheduled clinic visit, to send PDX requests."
^DD(1020.1,1,21,0)="^^3^3^2920109^^"
^DD(1020.1,1,21,1,0)="This field indicates the number of days prior to a clinic appointment"
^DD(1020.1,1,21,2,0)="that a PDX request is to be made if the patient has been to another"
^DD(1020.1,1,21,3,0)="medical facility."
^DD(1020.1,1,"DT")="2920106"
^DD(1020.1,2,0)="DAYS PDX DATA VALID^RNJ2,0^^0;3^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1020.1,2,3)="Type a Number between 1 and 90, 0 Decimal Digits"
^DD(1020.1,2,21,0)="^^3^3^2920109^"
^DD(1020.1,2,21,1,0)="This field indicates how many days PDX data is considered valid.  After this"
^DD(1020.1,2,21,2,0)="time period, a new PDX will be requested if the patient is scheduled for"
^DD(1020.1,2,21,3,0)="another clinic."
^DD(1020.1,2,"DT")="2920106"
^DD(1020.1,3,0)="LAST AUTO-BUILD DATE^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.1,3,3)="Enter the last date the auto-build routine was run."
^DD(1020.1,3,21,0)="^^1^1^2920109^"
^DD(1020.1,3,21,1,0)="This field contains the last date the auto-build routine was run."
^DD(1020.1,3,"DT")="2920106"
^DD(1020.1,4,0)="MPD EXTENDED ADDRESS^RF^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(1020.1,4,3)="Enter the address as [UCI,VOL]."
^DD(1020.1,4,21,0)="^^1^1^2920109^^"
^DD(1020.1,4,21,1,0)="This field contains the network address [UCI,VOL] for the MPD server."
^DD(1020.1,4,"DT")="2920109"
^DD(1020.1,5,0)="LAST PDX BATCH DATE^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.1,5,3)="Enter the date the last PDX batch request occurred."
^DD(1020.1,5,21,0)="^^2^2^2931220^"
^DD(1020.1,5,21,1,0)=" "
^DD(1020.1,5,21,2,0)=" This field contains the last date the daily batch job was run"
^DD(1020.1,5,"DT")="2920109"
^DD(1020.1,6,0)="PRINT CLINIC PROFILE^S^0:NO;1:YES;^0;7^Q"
^DD(1020.1,6,3)="Enter a 1 to print medication profiles for the clinics."
^DD(1020.1,6,21,0)="^^5^5^2931220^"
^DD(1020.1,6,21,1,0)=" "
^DD(1020.1,6,21,2,0)=" The Pharmacy Prescription Practices software is capable of printing a "
^DD(1020.1,6,21,3,0)=" medication profile, including both local and other facility data, for"
^DD(1020.1,6,21,4,0)=" every patient scheduled for clinic on a given day.  The report is"
^DD(1020.1,6,21,5,0)=" enabled by setting this field to YES, and disabled by setting it to NO."
^DD(1020.1,6,"DT")="2920109"
^DD(1020.1,7,0)="PRINT ALL PROFILES^S^0:NO;1:YES;^0;8^Q"
^DD(1020.1,7,3)="Enter a 0 to print profiles for patients with foreign meds only."
^DD(1020.1,7,21,0)="^^7^7^2931220^"
^DD(1020.1,7,21,1,0)=" "
^DD(1020.1,7,21,2,0)=" If the PRINT CLINIC PROFILES field is set to YES, you have the option"
^DD(1020.1,7,21,3,0)=" of printing profiles for all scheduled patients or only those with"
^DD(1020.1,7,21,4,0)=" medication data from other facilities.  To print medication profiles"
^DD(1020.1,7,21,5,0)=" for all scheduled patients, set this field to YES.  To print only"
^DD(1020.1,7,21,6,0)=" profiles for patients with data fron other facilities, set this field"
^DD(1020.1,7,21,7,0)=" to NO."
^DD(1020.1,7,"DT")="2920109"
^DD(1020.1,8,0)="LOCAL STATION NUMBER^RP4^DIC(4,^0;9^Q"
^DD(1020.1,8,3)=""
^DD(1020.1,8,21,0)="^^2^2^2940630^^"
^DD(1020.1,8,21,1,0)=" "
^DD(1020.1,8,21,2,0)=" The station number for your VA Medical Center"
^DD(1020.1,8,"DT")="2940630"
^DD(1020.1,9,0)="PRE-CLINIC PRINT DAYS^NJ1,0^^0;10^K:+X'=X!(X>7)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.1,9,3)="Enter the number of days before a clinic date to print the profile."
^DD(1020.1,9,21,0)="^^5^5^2950227^"
^DD(1020.1,9,21,1,0)=" "
^DD(1020.1,9,21,2,0)=" This field determines the number of days in advance of the clinic"
^DD(1020.1,9,21,3,0)=" appointments to print the profile report.  For example, if you want the"
^DD(1020.1,9,21,4,0)=" report printed three days prior to the scheduled clinic appointment,"
^DD(1020.1,9,21,5,0)=" enter 3 in this field."
^DD(1020.1,9,"DT")="2920312"
^DD(1020.1,10,0)="LOGFILE RETENTION DAYS^NJ3,0^^0;11^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.1,10,3)="Enter the number of days logfile data is to be kept (0-366)"
^DD(1020.1,10,21,0)="^^4^4^2931220^"
^DD(1020.1,10,21,1,0)=" "
^DD(1020.1,10,21,2,0)=" This field indicates the number of days you want to keep data in the LOG"
^DD(1020.1,10,21,3,0)=" file when using the Purge Log File option.  For example, if you wish to"
^DD(1020.1,10,21,4,0)=" retain the last ten days in the LOG file, enter 10 in this field."
^DD(1020.1,10,"DT")="2920313"
^DD(1020.1,11,0)="XREF RETENTION DAYS^NJ3,0^^0;12^K:+X'=X!(X>366)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.1,11,3)="Enter number of days XREF data is to be kept for after last visit"
^DD(1020.1,11,21,0)="^^3^3^2931220^"
^DD(1020.1,11,21,1,0)=" This field indicates the number of days you want to keep data in the "
^DD(1020.1,11,21,2,0)=" FOREIGN FACILITY XREF file when using the Purge Other Facility Xref"
^DD(1020.1,11,21,3,0)=" option."
^DD(1020.1,11,"DT")="2920313"
^DD(1020.1,12,0)="LOCATION OF DPT GLOBAL^RF^^1;1^K:$L(X)>7!($L(X)<7)!'(X?3U1"",""3U) X"
^DD(1020.1,12,3)="Answer must match UUU,UUU"
^DD(1020.1,12,21,0)="^^3^3^2940630^^^"
^DD(1020.1,12,21,1,0)=" "
^DD(1020.1,12,21,2,0)=" This field contains the Volume Set and UCI for the DPT Global origination"
^DD(1020.1,12,21,3,0)=" point."
^DD(1020.1,12,"DT")="2920616"
^DD(1020.1,13,0)="LOCATION OF TMP GLOBAL^RF^^1;2^K:$L(X)>7!($L(X)<7)!'(X?3U1"",""3U) X"
^DD(1020.1,13,3)="Answer must match UUU,UUU"
^DD(1020.1,13,21,0)="^^3^3^2931220^"
^DD(1020.1,13,21,1,0)=" "
^DD(1020.1,13,21,2,0)=" This field contains the Volume Set and UCI for the TMP Global origination"
^DD(1020.1,13,21,3,0)=" point."
^DD(1020.1,13,"DT")="2920616"
^DD(1020.1,14,0)="LAST SSN PROCESSED^F^^2;1^K:$L(X)>10!($L(X)<9) X"
^DD(1020.1,14,3)="Answer must be 9-10 characters in length."
^DD(1020.1,14,21,0)="^^6^6^2940630^"
^DD(1020.1,14,21,1,0)=" "
^DD(1020.1,14,21,2,0)=" This field is used to reference the last SSN processed when creating"
^DD(1020.1,14,21,3,0)=" the PPP FOREIGN FACILITY XREF FILE.  If this field is empty the Build"
^DD(1020.1,14,21,4,0)=" foreign facility logic knows to start from the beginning, otherwise"
^DD(1020.1,14,21,5,0)=" it starts from the SSN listed in this field."
^DD(1020.1,14,21,6,0)=" "
^DD(1020.1,14,"DT")="2940223"
^DD(1020.1,"B","DAYS PDX DATA VALID",2)=""
^DD(1020.1,"B","LAST AUTO-BUILD DATE",3)=""
^DD(1020.1,"B","LAST PDX BATCH DATE",5)=""
^DD(1020.1,"B","LAST SSN PROCESSED",14)=""
^DD(1020.1,"B","LOCAL STATION NUMBER",8)=""
^DD(1020.1,"B","LOCATION OF DPT GLOBAL",12)=""
^DD(1020.1,"B","LOCATION OF TMP GLOBAL",13)=""
^DD(1020.1,"B","LOGFILE RETENTION DAYS",10)=""
^DD(1020.1,"B","MPD EXTENDED ADDRESS",4)=""
^DD(1020.1,"B","ONE",.01)=""
^DD(1020.1,"B","PRE-CLINIC PRINT DAYS",9)=""
^DD(1020.1,"B","PRE-CLINIC SCAN DAYS",1)=""
^DD(1020.1,"B","PRINT ALL PROFILES",7)=""
^DD(1020.1,"B","PRINT CLINIC PROFILE",6)=""
^DD(1020.1,"B","XREF RETENTION DAYS",11)=""
^DD(1020.1,"GL",0,1,.01)=""
^DD(1020.1,"GL",0,2,1)=""
^DD(1020.1,"GL",0,3,2)=""
^DD(1020.1,"GL",0,4,3)=""
^DD(1020.1,"GL",0,5,4)=""
^DD(1020.1,"GL",0,6,5)=""
^DD(1020.1,"GL",0,7,6)=""
^DD(1020.1,"GL",0,8,7)=""
^DD(1020.1,"GL",0,9,8)=""
^DD(1020.1,"GL",0,10,9)=""
^DD(1020.1,"GL",0,11,10)=""
^DD(1020.1,"GL",0,12,11)=""
^DD(1020.1,"GL",1,1,12)=""
^DD(1020.1,"GL",1,2,13)=""
^DD(1020.1,"GL",2,1,14)=""
^DD(1020.1,"IX",.01)=""
^DD(1020.1,"RQ",.01)=""
^DD(1020.1,"RQ",1)=""
^DD(1020.1,"RQ",2)=""
^DD(1020.1,"RQ",4)=""
^DD(1020.1,"RQ",8)=""
^DD(1020.1,"RQ",12)=""
^DD(1020.1,"RQ",13)=""
^DD(1020.128,0)="FIELD^^1^3"
^DD(1020.128,0,"DT")="2960426"
^DD(1020.128,0,"ID",.02)="W ""   "",$P(^(0),U,3)"
^DD(1020.128,0,"IX","A",1020.128,.01)=""
^DD(1020.128,0,"IX","AC",1020.128,.02)=""
^DD(1020.128,0,"IX","B",1020.128,.01)=""
^DD(1020.128,0,"NM","PPP CONVERSION SITE")=""
^DD(1020.128,0,"VR")="1.0"
^DD(1020.128,.01,0)="LEGACY SITE^P4.2'X^DIC(4.2,^0;1^S DINUM=X"
^DD(1020.128,.01,1,0)="^.1"
^DD(1020.128,.01,1,1,0)="1020.128^B"
^DD(1020.128,.01,1,1,1)="S ^PPP(1020.128,""B"",$E(X,1,30),DA)="""""
^DD(1020.128,.01,1,1,2)="K ^PPP(1020.128,""B"",$E(X,1,30),DA)"
^DD(1020.128,.01,1,2,0)="1020.128^A^MUMPS"
^DD(1020.128,.01,1,2,1)="S ^PPP(1020.128,""A"",$P(^DIC(4.2,X,0),""^""),DA)="""""
^DD(1020.128,.01,1,2,2)="K ^PPP(1020.128,""A"",$P(^DIC(4.2,X,0),""^""),DA)"
^DD(1020.128,.01,1,2,"DT")="2960125"
^DD(1020.128,.01,3)=""
^DD(1020.128,.01,"DT")="2960130"
^DD(1020.128,.02,0)="OLD LEGACY SITE NUMBER^RF^^0;3^K:$L(X)>5!($L(X)<3) X"
^DD(1020.128,.02,1,0)="^.1"
^DD(1020.128,.02,1,1,0)="1020.128^AC"
^DD(1020.128,.02,1,1,1)="S ^PPP(1020.128,""AC"",$E(X,1,30),DA)="""""
^DD(1020.128,.02,1,1,2)="K ^PPP(1020.128,""AC"",$E(X,1,30),DA)"
^DD(1020.128,.02,1,1,3)="do not delete."
^DD(1020.128,.02,1,1,"%D",0)="^^1^1^2960426^"
^DD(1020.128,.02,1,1,"%D",1,0)="This xref is used to index the file by the old legacy site number."
^DD(1020.128,.02,1,1,"DT")="2960426"
^DD(1020.128,.02,3)="Answer must be 3-5 characters in length."
^DD(1020.128,.02,21,0)="^^1^1^2960426^^^"
^DD(1020.128,.02,21,1,0)="This field is used to store the site number of the legacy site."
^DD(1020.128,.02,23,0)="^^1^1^2960426^^"
^DD(1020.128,.02,23,1,0)="free text."
^DD(1020.128,.02,"DT")="2960426"
^DD(1020.128,1,0)="MERGED WITH SITE^FX^^0;2^K:$L(X)>50!($L(X)<3) X Q:'$D(X)  S DIC=""^DIC(4.2,"",DIC(0)=""EQM"" D ^DIC K:Y<0 X S:Y<0 X=$P(Y,""^"",2)"
^DD(1020.128,1,3)="Answer must be 3-50 characters in length."
^DD(1020.128,1,"DT")="2960119"
^DD(1020.128,"B","LEGACY SITE",.01)=""
^DD(1020.128,"B","MERGED WITH SITE",1)=""
^DD(1020.128,"B","OLD LEGACY SITE NUMBER",.02)=""
^DD(1020.128,"GL",0,1,.01)=""
^DD(1020.128,"GL",0,2,1)=""
^DD(1020.128,"GL",0,3,.02)=""
^DD(1020.128,"IX",.01)=""
^DD(1020.128,"IX",.02)=""
^DD(1020.128,"RQ",.02)=""
^DD(1020.2,0)="FIELD^^8^10"
^DD(1020.2,0,"DDA")="N"
^DD(1020.2,0,"DT")="2950308"
^DD(1020.2,0,"IX","AC1",1020.2,.01)=""
^DD(1020.2,0,"IX","AC2",1020.2,1.5)=""
^DD(1020.2,0,"IX","ADT",1020.2,2)=""
^DD(1020.2,0,"IX","APOV",1020.2,1)=""
^DD(1020.2,0,"IX","B",1020.2,.01)=""
^DD(1020.2,0,"IX","C",1020.2,6)=""
^DD(1020.2,0,"IX","D",1020.2,2)=""
^DD(1020.2,0,"NM","PPP FOREIGN FACILITY XREF")=""
^DD(1020.2,0,"VR")="1.0"
^DD(1020.2,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(1020.2,.01,1,0)="^.1"
^DD(1020.2,.01,1,1,0)="1020.2^B"
^DD(1020.2,.01,1,1,1)="S ^PPP(1020.2,""B"",$E(X,1,30),DA)="""""
^DD(1020.2,.01,1,1,2)="K ^PPP(1020.2,""B"",$E(X,1,30),DA)"
^DD(1020.2,.01,1,2,0)="1020.2^AC1^MUMPS"
^DD(1020.2,.01,1,2,1)="S PPPXRF=$$AC^PPPFMX1(DA,1) K PPPXRF"
^DD(1020.2,.01,1,2,2)="S PPPXRF=$$AC^PPPFMX1(DA,0,.01,X) K PPPXRF"
^DD(1020.2,.01,1,2,"%D",0)="^^13^13^2950224^^^"
^DD(1020.2,.01,1,2,"%D",1,0)=" "
^DD(1020.2,.01,1,2,"%D",2,0)=" "
^DD(1020.2,.01,1,2,"%D",3,0)="Creates a cross reference based on the pointer to the patient file and"
^DD(1020.2,.01,1,2,"%D",4,0)="domain for each patient entered."
^DD(1020.2,.01,1,2,"%D",5,0)=" "
^DD(1020.2,.01,1,2,"%D",6,0)="Resulting Node ==> ^PPP(1020.2,""AC"",[.01],[1.5],DA)"
^DD(1020.2,.01,1,2,"%D",7,0)="   Where:  [.01] is field number for patient pointer (file #2)"
^DD(1020.2,.01,1,2,"%D",8,0)="           [1.5] is filed number for domain name"
^DD(1020.2,.01,1,2,"%D",9,0)="           DA is the entry number"
^DD(1020.2,.01,1,2,"%D",10,0)=" "
^DD(1020.2,.01,1,2,"%D",11,0)="The resulting node is created by AC1 and AC2 cross references."
^DD(1020.2,.01,1,2,"%D",12,0)="Re-indexing either of these cross references will correctly update/create"
^DD(1020.2,.01,1,2,"%D",13,0)="the resulting node."
^DD(1020.2,.01,1,2,"DT")="2950223"
^DD(1020.2,.01,3)="Enter the Patients name"
^DD(1020.2,.01,4)=""
^DD(1020.2,.01,21,0)="^^2^2^2940120^^^^"
^DD(1020.2,.01,21,1,0)=" "
^DD(1020.2,.01,21,2,0)=" Pointer to PATIENT file"
^DD(1020.2,.01,"DT")="2950223"
^DD(1020.2,1,0)="PLACE OF VISIT^RP4'^DIC(4,^0;2^Q"
^DD(1020.2,1,1,0)="^.1^^-1"
^DD(1020.2,1,1,1,0)="1020.2^APOV^MUMPS"
^DD(1020.2,1,1,1,1)="D SDFNPOV^PPPFMX"
^DD(1020.2,1,1,1,2)="D KDFNPOV^PPPFMX"
^DD(1020.2,1,1,1,"%D",0)="^^5^5^2931223^"
^DD(1020.2,1,1,1,"%D",1,0)="Creates a cross reference of all institutions for a given patient"
^DD(1020.2,1,1,1,"%D",2,0)=" "
^DD(1020.2,1,1,1,"%D",3,0)="Resulting node ==>  ^PPP(1020.2,""APOV"",[.01],[1],DA)"
^DD(1020.2,1,1,1,"%D",4,0)="   Where:    [.01] is patient pointer"
^DD(1020.2,1,1,1,"%D",5,0)="             [1]   is place of visit pointer"
^DD(1020.2,1,1,1,"DT")="2931220"
^DD(1020.2,1,1,2,0)="^^TRIGGER^1020.2^1.5"
^DD(1020.2,1,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PPP(1020.2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$DOMAIN^PPPFMX(DA) X ^DD(1020.2,1,1,2,1.4)"
^DD(1020.2,1,1,2,1.4)="S DIH=$S($D(^PPP(1020.2,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=1020.2,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(1020.2,1,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PPP(1020.2,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=$$DOMAIN^PPPFMX(DA) X ^DD(1020.2,1,1,2,2.4)"
^DD(1020.2,1,1,2,2.4)="S DIH=$S($D(^PPP(1020.2,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=1020.2,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(1020.2,1,1,2,"%D",0)="^^1^1^2950308^^"
^DD(1020.2,1,1,2,"%D",1,0)="Sets domain from the station number passed from the MPD server"
^DD(1020.2,1,1,2,"CREATE VALUE")="S X=$$DOMAIN^PPPFMX(DA)"
^DD(1020.2,1,1,2,"DELETE VALUE")="S X=$$DOMAIN^PPPFMX(DA)"
^DD(1020.2,1,1,2,"DT")="2950308"
^DD(1020.2,1,1,2,"FIELD")="DOMAIN NAME"
^DD(1020.2,1,3)="Enter the name or station number where the patient was seen."
^DD(1020.2,1,21,0)="^^2^2^2950308^^^"
^DD(1020.2,1,21,1,0)="This field points to the entry in the institution file where the"
^DD(1020.2,1,21,2,0)="patient was seen."
^DD(1020.2,1,"DT")="2950308"
^DD(1020.2,1.5,0)="DOMAIN NAME^*P4.2'^DIC(4.2,^1;5^S DIC(""S"")=""I 1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(1020.2,1.5,1,0)="^.1"
^DD(1020.2,1.5,1,1,0)="1020.2^AC2^MUMPS"
^DD(1020.2,1.5,1,1,1)="S PPPXRF=$$AC^PPPFMX1(DA,1) K PPPXRF"
^DD(1020.2,1.5,1,1,2)="S PPPXRF=$$AC^PPPFMX1(DA,0,1.5,X) K PPPXRF"
^DD(1020.2,1.5,1,1,"%D",0)="^^9^9^2950224^^"
^DD(1020.2,1.5,1,1,"%D",1,0)=" "
^DD(1020.2,1.5,1,1,"%D",2,0)=" "
^DD(1020.2,1.5,1,1,"%D",3,0)="Creates a cross reference based on the pointer to the patient file and"
^DD(1020.2,1.5,1,1,"%D",4,0)="domain for each patient entered."
^DD(1020.2,1.5,1,1,"%D",5,0)=" "
^DD(1020.2,1.5,1,1,"%D",6,0)="Resulting Node ==> ^PPP(1020.2,""AC"",[.01],[1.5],DA)"
^DD(1020.2,1.5,1,1,"%D",7,0)="   Where:  [.01] is field number for patient pointer (file #2)"
^DD(1020.2,1.5,1,1,"%D",8,0)="           [1.5] is filed number for domain name"
^DD(1020.2,1.5,1,1,"%D",9,0)="           DA is the entry number"
^DD(1020.2,1.5,1,1,"DT")="2950223"
^DD(1020.2,1.5,3)=""
^DD(1020.2,1.5,5,1,0)="1020.2^1^2"
^DD(1020.2,1.5,12)="Used to make sure a domain gets selected"
^DD(1020.2,1.5,12.1)="S DIC(""S"")=""I 1"""
^DD(1020.2,1.5,21,0)="^^3^3^2950308^^^^"
^DD(1020.2,1.5,21,1,0)=" "
^DD(1020.2,1.5,21,2,0)=" The exact name of the domain, as used in network addressing"
^DD(1020.2,1.5,21,3,0)=" "
^DD(1020.2,1.5,"DT")="2950308"
^DD(1020.2,2,0)="LAST DATE OF VISIT^RDX^^0;3^S %DT=""EST"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(1020.2,2,1,0)="^.1"
^DD(1020.2,2,1,1,0)="1020.2^ADT^MUMPS"
^DD(1020.2,2,1,1,1)="D SDFNDT^PPPFMX"
^DD(1020.2,2,1,1,2)="D KDFNDT^PPPFMX"
^DD(1020.2,2,1,1,"%D",0)="^^4^4^2931223^"
^DD(1020.2,2,1,1,"%D",1,0)="Creates a cross reference on last date of visit"
^DD(1020.2,2,1,1,"%D",2,0)=" "
^DD(1020.2,2,1,1,"%D",3,0)="Resulting node ==>  ^PPP(1020.2,""ADT"",[2],DA)"
^DD(1020.2,2,1,1,"%D",4,0)="   Where:    [2] is last date of visit"
^DD(1020.2,2,1,1,"DT")="2931222"
^DD(1020.2,2,1,2,0)="^^TRIGGER^1020.2^8"
^DD(1020.2,2,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PPP(1020.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""" I X S X=DIV S Y(1)=$S($D(^PPP(1020.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(1020.2,2,1,2,1.4)"
^DD(1020.2,2,1,2,1.4)="S DIH=$S($D(^PPP(1020.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=1020.2,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(1020.2,2,1,2,2)="Q"
^DD(1020.2,2,1,2,"%D",0)="^^1^1^2950309^"
^DD(1020.2,2,1,2,"%D",1,0)="This trigger establishes the date the entry was added to the file"
^DD(1020.2,2,1,2,"CREATE CONDITION")="ENTRY DATE="""""
^DD(1020.2,2,1,2,"CREATE VALUE")="TODAY"
^DD(1020.2,2,1,2,"DELETE VALUE")="NO EFFECT"
^DD(1020.2,2,1,2,"DT")="2950309"
^DD(1020.2,2,1,2,"FIELD")="ENTRY DATE"
^DD(1020.2,2,1,3,0)="1020.2^D"
^DD(1020.2,2,1,3,1)="S ^PPP(1020.2,""D"",$E(X,1,30),DA)="""""
^DD(1020.2,2,1,3,2)="K ^PPP(1020.2,""D"",$E(X,1,30),DA)"
^DD(1020.2,2,1,3,"%D",0)="^^1^1^2931222^^"
^DD(1020.2,2,1,3,"%D",1,0)=" "
^DD(1020.2,2,1,3,"DT")="2920324"
^DD(1020.2,2,3)="Enter the date the patient was last seen at that facility."
^DD(1020.2,2,21,0)="^^1^1^2940602^^"
^DD(1020.2,2,21,1,0)="This field contains the date the patient was last seen at the facility."
^DD(1020.2,2,"DT")="3001109"
^DD(1020.2,3,0)="LAST PDX TRANSACTION^P394.61'^VAT(394.61,^1;1^Q"
^DD(1020.2,3,3)="Enter PDX transaction number"
^DD(1020.2,3,21,0)="^^2^2^2931223^^^^"
^DD(1020.2,3,21,1,0)="This field contains a pointer to the relevant entry in the PDX Transaction"
^DD(1020.2,3,21,2,0)="file."
^DD(1020.2,3,"DT")="2930810"
^DD(1020.2,4,0)="LAST PDX DATE^D^^1;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.2,4,3)="Enter the date of the last PDX request."
^DD(1020.2,4,21,0)="^^2^2^2920109^"
^DD(1020.2,4,21,1,0)="This field contains the date of the last PDX request for this patient"
^DD(1020.2,4,21,2,0)="to this facility."
^DD(1020.2,4,"DT")="2920106"
^DD(1020.2,5,0)="LAST PDX STATUS^P394.85'^VAT(394.85,^1;3^Q"
^DD(1020.2,5,3)="Enter pointer to PDX Status file."
^DD(1020.2,5,21,0)="^^1^1^2931220^^^"
^DD(1020.2,5,21,1,0)="This field contains the status of the last PDX request."
^DD(1020.2,5,"DT")="2930810"
^DD(1020.2,6,0)="LAST BATCH REQUEST DATE^D^^1;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.2,6,1,0)="^.1"
^DD(1020.2,6,1,1,0)="1020.2^C"
^DD(1020.2,6,1,1,1)="S ^PPP(1020.2,""C"",$E(X,1,30),DA)="""""
^DD(1020.2,6,1,1,2)="K ^PPP(1020.2,""C"",$E(X,1,30),DA)"
^DD(1020.2,6,1,1,"DT")="2920113"
^DD(1020.2,6,3)="Enter the date the last PDX Batch request was made."
^DD(1020.2,6,21,0)="^^1^1^2920109^"
^DD(1020.2,6,21,1,0)="This field contains the date the last batch PDX was made."
^DD(1020.2,6,"DT")="2920113"
^DD(1020.2,7,0)="ENTRY SOURCE^RS^0:AUTO;1:MANUAL;^0;4^Q"
^DD(1020.2,7,3)="Enter a 1 if this entry was done manually."
^DD(1020.2,7,21,0)="^^2^2^2920109^"
^DD(1020.2,7,21,1,0)="This filed indicates whether the entry was made from an auto-build (0) or"
^DD(1020.2,7,21,2,0)="by a manual entry (1)."
^DD(1020.2,7,"DT")="2920106"
^DD(1020.2,8,0)="ENTRY DATE^RD^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.2,8,3)="Enter date entry was made or edited."
^DD(1020.2,8,5,1,0)="1020.2^2^2"
^DD(1020.2,8,21,0)="^^1^1^2931220^^"
^DD(1020.2,8,21,1,0)="This field contains the date this entry was made or edited."
^DD(1020.2,8,"DT")="2920106"
^DD(1020.2,"B","DOMAIN NAME",1.5)=""
^DD(1020.2,"B","ENTRY DATE",8)=""
^DD(1020.2,"B","ENTRY SOURCE",7)=""
^DD(1020.2,"B","LAST BATCH REQUEST DATE",6)=""
^DD(1020.2,"B","LAST DATE OF VISIT",2)=""
^DD(1020.2,"B","LAST PDX DATE",4)=""
^DD(1020.2,"B","LAST PDX STATUS",5)=""
^DD(1020.2,"B","LAST PDX TRANSACTION",3)=""
^DD(1020.2,"B","NAME",.01)=""
^DD(1020.2,"B","PLACE OF VISIT",1)=""
^DD(1020.2,"GL",0,1,.01)=""
^DD(1020.2,"GL",0,2,1)=""
^DD(1020.2,"GL",0,3,2)=""
^DD(1020.2,"GL",0,4,7)=""
^DD(1020.2,"GL",0,5,8)=""
^DD(1020.2,"GL",1,1,3)=""
^DD(1020.2,"GL",1,2,4)=""
^DD(1020.2,"GL",1,3,5)=""
^DD(1020.2,"GL",1,4,6)=""
^DD(1020.2,"GL",1,5,1.5)=""
^DD(1020.2,"IX",.01)=""
^DD(1020.2,"IX",1)=""
^DD(1020.2,"IX",1.5)=""
^DD(1020.2,"IX",2)=""
^DD(1020.2,"IX",6)=""
^DD(1020.2,"RQ",.01)=""
^DD(1020.2,"RQ",1)=""
^DD(1020.2,"RQ",2)=""
^DD(1020.2,"RQ",7)=""
^DD(1020.2,"RQ",8)=""
^DD(1020.3,0)="FIELD^^9^10"
^DD(1020.3,0,"DDA")="N"
^DD(1020.3,0,"IX","B",1020.3,.01)=""
^DD(1020.3,0,"NM","PPP STATISTIC")=""
^DD(1020.3,0,"SCR")="I $$ONENTRY^PPPUTL1(Y)"
^DD(1020.3,0,"VR")="1.0"
^DD(1020.3,.01,0)="ONE^RNJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(1020.3,.01,1,0)="^.1"
^DD(1020.3,.01,1,1,0)="1020.3^B"
^DD(1020.3,.01,1,1,1)="S ^PPP(1020.3,""B"",$E(X,1,30),DA)="""""
^DD(1020.3,.01,1,1,2)="K ^PPP(1020.3,""B"",$E(X,1,30),DA)"
^DD(1020.3,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(1020.3,.01,21,0)="^^1^1^2940615^^^"
^DD(1020.3,.01,21,1,0)="Only one entry is allowed for this file."
^DD(1020.3,.01,"DT")="2920109"
^DD(1020.3,1,0)="DATE INITIALIZED^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.3,1,3)="Enter date"
^DD(1020.3,1,21,0)="^^1^1^2931222^^"
^DD(1020.3,1,21,1,0)="This field contains the date this file was initialized."
^DD(1020.3,1,"DT")="2920106"
^DD(1020.3,2,0)="TOTAL PDX'S SENT^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,2,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,2,21,0)="^^1^1^2920109^"
^DD(1020.3,2,21,1,0)="This field indicates the total number of PDX's sent via the PPP package."
^DD(1020.3,2,"DT")="2920106"
^DD(1020.3,3,0)="TOTAL ALERTS ISSUED^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,3,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,3,21,0)="2^^2^2^2931229^^"
^DD(1020.3,3,21,1,0)="This field indicates how many times a pharmacy clerk was alerted to "
^DD(1020.3,3,21,2,0)="foreign medication data."
^DD(1020.3,4,0)="TOTAL ALERTS IGNORED^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,4,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,4,21,0)="^^2^2^2920109^"
^DD(1020.3,4,21,1,0)="This field indicates how many times a pharmacy clerk chose not to view"
^DD(1020.3,4,21,2,0)="the foreign medication data."
^DD(1020.3,5,0)="TOTAL MANUAL ENTRIES ADDED^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,5,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,5,21,0)="^^2^2^2920109^"
^DD(1020.3,5,21,1,0)="This field indicates how many manual entries/edits were made in the "
^DD(1020.3,5,21,2,0)="Foreign Facility Xref file."
^DD(1020.3,6,0)="TOTAL ENTRIES DELETED^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,6,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,6,21,0)="^^2^2^2920109^"
^DD(1020.3,6,21,1,0)="This field indicates how many entries were deleted form the Foreign"
^DD(1020.3,6,21,2,0)="Facility Xref File."
^DD(1020.3,7,0)="TOTAL ENTRIES EDITED^NJ9,0^^0;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,7,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,7,21,0)="^^2^2^2931229^^"
^DD(1020.3,7,21,1,0)="This field indicates how many entries were edited in the Foreign "
^DD(1020.3,7,21,2,0)="Facitility Xref File."
^DD(1020.3,8,0)="TOTAL NEW PATIENTS ADDED^NJ9,0^^0;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,8,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,8,21,0)="^^2^2^2920109^"
^DD(1020.3,8,21,1,0)="This field indicates how many patients were added via the New Patient"
^DD(1020.3,8,21,2,0)="Routine."
^DD(1020.3,9,0)="TOTAL FMP'S VIEWED/PRINTED^NJ9,0^^0;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(1020.3,9,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(1020.3,9,21,0)="^^2^2^2920109^"
^DD(1020.3,9,21,1,0)="This field indicates how many Foreign Medication Profiles were viewed"
^DD(1020.3,9,21,2,0)="or printed."
^DD(1020.3,"B","DATE INITIALIZED",1)=""
^DD(1020.3,"B","ONE",.01)=""
^DD(1020.3,"B","TOTAL ALERTS IGNORED",4)=""
^DD(1020.3,"B","TOTAL ALERTS ISSUED",3)=""
^DD(1020.3,"B","TOTAL ENTRIES DELETED",6)=""
^DD(1020.3,"B","TOTAL ENTRIES EDITED",7)=""
^DD(1020.3,"B","TOTAL FMP'S VIEWED/PRINTED",9)=""
^DD(1020.3,"B","TOTAL MANUAL ENTRIES ADDED",5)=""
^DD(1020.3,"B","TOTAL NEW PATIENTS ADDED",8)=""
^DD(1020.3,"B","TOTAL PDX'S SENT",2)=""
^DD(1020.3,"GL",0,1,.01)=""
^DD(1020.3,"GL",0,2,1)=""
^DD(1020.3,"GL",0,3,2)=""
^DD(1020.3,"GL",0,4,3)=""
^DD(1020.3,"GL",0,5,4)=""
^DD(1020.3,"GL",0,6,5)=""
^DD(1020.3,"GL",0,7,6)=""
^DD(1020.3,"GL",0,8,7)=""
^DD(1020.3,"GL",0,9,8)=""
^DD(1020.3,"GL",0,10,9)=""
^DD(1020.3,"IX",.01)=""
^DD(1020.3,"RQ",.01)=""
^DD(1020.4,0)="FIELD^^5^5"
^DD(1020.4,0,"DDA")="N"
^DD(1020.4,0,"DT")="2940224"
^DD(1020.4,0,"IX","B",1020.4,.01)=""
^DD(1020.4,0,"IX","C",1020.4,2)=""
^DD(1020.4,0,"NM","PPP LOG")=""
^DD(1020.4,0,"VR")="1.0"
^DD(1020.4,.01,0)="CODE^RP1020.6'^PPP(1020.6,^0;1^Q"
^DD(1020.4,.01,1,0)="^.1"
^DD(1020.4,.01,1,1,0)="1020.4^B"
^DD(1020.4,.01,1,1,1)="S ^PPP(1020.4,""B"",$E(X,1,30),DA)="""""
^DD(1020.4,.01,1,1,2)="K ^PPP(1020.4,""B"",$E(X,1,30),DA)"
^DD(1020.4,.01,1,2,0)="^^TRIGGER^1020.4^2"
^DD(1020.4,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3)="""" I X S X=DIV S Y(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(1020.4,.01,1,2,1.1) X ^DD(1020.4,.01,1,2,1.4)"
^DD(1020.4,.01,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(1020.4,.01,1,2,1.4)="S DIH=$S($D(^PPP(1020.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=1020.4,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(1020.4,.01,1,2,2)="Q"
^DD(1020.4,.01,1,2,"%D",0)="^^1^1^2950309^"
^DD(1020.4,.01,1,2,"%D",1,0)="This trigger establishes the date and time of the events being logged"
^DD(1020.4,.01,1,2,"CREATE CONDITION")="DATE="""""
^DD(1020.4,.01,1,2,"CREATE VALUE")="NOW"
^DD(1020.4,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(1020.4,.01,1,2,"DT")="2950309"
^DD(1020.4,.01,1,2,"FIELD")="DATE"
^DD(1020.4,.01,1,4,0)="^^TRIGGER^1020.4^3"
^DD(1020.4,.01,1,4,1)="X ^DD(1020.4,.01,1,4,1.3) I X S X=DIV S Y(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(1020.4,.01,1,4,1.4)"
^DD(1020.4,.01,1,4,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PPP(1020.4,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1))="""""
^DD(1020.4,.01,1,4,1.4)="S DIH=$S($D(^PPP(1020.4,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=1020.4,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(1020.4,.01,1,4,2)="Q"
^DD(1020.4,.01,1,4,"%D",0)="^^1^1^2940630^"
^DD(1020.4,.01,1,4,"%D",1,0)=" User adding code is automatically stored"
^DD(1020.4,.01,1,4,"CREATE CONDITION")="USER="""""
^DD(1020.4,.01,1,4,"CREATE VALUE")="S X=$G(DUZ)"
^DD(1020.4,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(1020.4,.01,1,4,"DT")="2940630"
^DD(1020.4,.01,1,4,"FIELD")="USER"
^DD(1020.4,.01,3)="Enter PPP code"
^DD(1020.4,.01,21,0)="^^1^1^2940630^^^"
^DD(1020.4,.01,21,1,0)="This field points to the PPP CODE file"
^DD(1020.4,.01,"DT")="2950309"
^DD(1020.4,2,0)="DATE^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.4,2,1,0)="^.1"
^DD(1020.4,2,1,1,0)="1020.4^C"
^DD(1020.4,2,1,1,1)="S ^PPP(1020.4,""C"",$E(X,1,30),DA)="""""
^DD(1020.4,2,1,1,2)="K ^PPP(1020.4,""C"",$E(X,1,30),DA)"
^DD(1020.4,2,1,1,"%D",0)="^^1^1^2920313^"
^DD(1020.4,2,1,1,"%D",1,0)="Used for purging and date lookups"
^DD(1020.4,2,1,1,"DT")="2920313"
^DD(1020.4,2,3)="Enter Date"
^DD(1020.4,2,5,1,0)="1020.4^.01^2"
^DD(1020.4,2,21,0)="^^1^1^2940224^"
^DD(1020.4,2,21,1,0)="This is the date the entry was made to the file"
^DD(1020.4,2,"DT")="2920313"
^DD(1020.4,3,0)="USER^P200'^VA(200,^0;4^Q"
^DD(1020.4,3,3)="Enter User"
^DD(1020.4,3,5,1,0)="1020.4^.01^4"
^DD(1020.4,3,21,0)="^^1^1^2940224^"
^DD(1020.4,3,21,1,0)="This is the user who caused the entry to be entered into this file"
^DD(1020.4,3,"DT")="2920113"
^DD(1020.4,4,0)="ROUTINE^F^^1;1^K:$L(X)>20!($L(X)<2) X"
^DD(1020.4,4,3)="Answer must be 2-20 characters in length."
^DD(1020.4,4,21,0)="^^1^1^2940224^"
^DD(1020.4,4,21,1,0)="This is the routine that was active when an entry was placed into the file."
^DD(1020.4,4,"DT")="2920113"
^DD(1020.4,5,0)="TEXT^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(1020.4,5,3)="Answer must be 1-245 characters in length."
^DD(1020.4,5,21,0)="^^1^1^2940224^"
^DD(1020.4,5,21,1,0)="The field is used to further define the entry"
^DD(1020.4,5,"DT")="2920212"
^DD(1020.4,"B","CODE",.01)=""
^DD(1020.4,"B","DATE",2)=""
^DD(1020.4,"B","ROUTINE",4)=""
^DD(1020.4,"B","TEXT",5)=""
^DD(1020.4,"B","USER",3)=""
^DD(1020.4,"GL",0,1,.01)=""
^DD(1020.4,"GL",0,3,2)=""
^DD(1020.4,"GL",0,4,3)=""
^DD(1020.4,"GL",1,1,4)=""
^DD(1020.4,"GL",2,1,5)=""
^DD(1020.4,"IX",.01)=""
^DD(1020.4,"IX",2)=""
^DD(1020.4,"RQ",.01)=""
^DD(1020.5,0)="FIELD^^2^3"
^DD(1020.5,0,"DDA")="N"
^DD(1020.5,0,"IX","B",1020.5,.01)=""
^DD(1020.5,0,"NM","PPP EXCLUSION")=""
^DD(1020.5,0,"VR")="1.0"
^DD(1020.5,.01,0)="NAME^RP4'^DIC(4,^0;1^Q"
^DD(1020.5,.01,1,0)="^.1"
^DD(1020.5,.01,1,1,0)="1020.5^B"
^DD(1020.5,.01,1,1,1)="S ^PPP(1020.5,""B"",$E(X,1,30),DA)="""""
^DD(1020.5,.01,1,1,2)="K ^PPP(1020.5,""B"",$E(X,1,30),DA)"
^DD(1020.5,.01,1,2,0)="^^TRIGGER^1020.5^2"
^DD(1020.5,.01,1,2,1)="X ^DD(1020.5,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^PPP(1020.5,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(1020.5,.01,1,2,1.4)"
^DD(1020.5,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PPP(1020.5,D0,2)):^(2),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))="""""
^DD(1020.5,.01,1,2,1.4)="S DIH=$S($D(^PPP(1020.5,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=1020.5,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(1020.5,.01,1,2,2)="Q"
^DD(1020.5,.01,1,2,"%D",0)="^^2^2^2950309^"
^DD(1020.5,.01,1,2,"%D",1,0)=" "
^DD(1020.5,.01,1,2,"%D",2,0)="User adding facility to the exclusion file automatically stored"
^DD(1020.5,.01,1,2,"CREATE CONDITION")="USER="""""
^DD(1020.5,.01,1,2,"CREATE VALUE")="S X=$G(DUZ)"
^DD(1020.5,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(1020.5,.01,1,2,"DT")="2950309"
^DD(1020.5,.01,1,2,"FIELD")="USER"
^DD(1020.5,.01,3)="Enter institution"
^DD(1020.5,.01,21,0)="^^1^1^2931222^"
^DD(1020.5,.01,21,1,0)="This field points to the institution file"
^DD(1020.5,.01,"DT")="2950309"
^DD(1020.5,1,0)="REASON^1020.51^^1;0"
^DD(1020.5,1,21,0)="^^1^1^2931223^^"
^DD(1020.5,1,21,1,0)="This field will contain the reason why the entry is being excluded"
^DD(1020.5,2,0)="USER^P200'^VA(200,^2;1^Q"
^DD(1020.5,2,3)="Enter user"
^DD(1020.5,2,5,1,0)="1020.5^.01^2"
^DD(1020.5,2,9)="^"
^DD(1020.5,2,21,0)="^^1^1^2950309^^^"
^DD(1020.5,2,21,1,0)="This field contains the user who enter the data"
^DD(1020.5,2,"DT")="2920113"
^DD(1020.5,"B","NAME",.01)=""
^DD(1020.5,"B","REASON",1)=""
^DD(1020.5,"B","USER",2)=""
^DD(1020.5,"GL",0,1,.01)=""
^DD(1020.5,"GL",1,0,1)=""
^DD(1020.5,"GL",2,1,2)=""
^DD(1020.5,"IX",.01)=""
^DD(1020.5,"RQ",.01)=""
^DD(1020.5,"SB",1020.51,1)=""
^DD(1020.51,0)="REASON SUB-FIELD^^.01^1"
^DD(1020.51,0,"NM","REASON")=""
^DD(1020.51,0,"UP")="1020.5"
^DD(1020.51,.01,0)="REASON^W^^0;1^Q"
^DD(1020.51,.01,3)="Enter reason for exclusion"
^DD(1020.51,.01,"DT")="2920106"
^DD(1020.51,"B","REASON",.01)=""
^DD(1020.51,"GL",0,1,.01)=""
^DD(1020.6,0)="FIELD^^1^2"
^DD(1020.6,0,"DDA")="N"
^DD(1020.6,0,"DT")="2940224"
^DD(1020.6,0,"IX","B",1020.6,.01)=""
^DD(1020.6,0,"NM","PPP CODE")=""
^DD(1020.6,0,"PT",1020.4,.01)=""
^DD(1020.6,0,"VR")="1.0"
^DD(1020.6,.01,0)="CODE^RNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1N.N) X"
^DD(1020.6,.01,1,0)="^.1"
^DD(1020.6,.01,1,1,0)="1020.6^B"
^DD(1020.6,.01,1,1,1)="S ^PPP(1020.6,""B"",$E(X,1,30),DA)="""""
^DD(1020.6,.01,1,1,2)="K ^PPP(1020.6,""B"",$E(X,1,30),DA)"
^DD(1020.6,.01,3)="Type a Number between -9999 and 9999, 0 Decimal Digits"
^DD(1020.6,.01,21,0)="^^1^1^2940224^^^"
^DD(1020.6,.01,21,1,0)="Code numbers for PPP"
^DD(1020.6,.01,"DT")="2940224"
^DD(1020.6,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(1020.6,1,3)="Answer must be 3-80 characters in length."
^DD(1020.6,1,21,0)="^^1^1^2940224^"
^DD(1020.6,1,21,1,0)="Description of codes for PPP"
^DD(1020.6,1,"DT")="2920110"
^DD(1020.6,"B","CODE",.01)=""
^DD(1020.6,"B","DESCRIPTION",1)=""
^DD(1020.6,"GL",0,1,.01)=""
^DD(1020.6,"GL",0,2,1)=""
^DD(1020.6,"IX",.01)=""
^DD(1020.6,"RQ",.01)=""
^DD(1020.7,0)="FIELD^^.01^1"
^DD(1020.7,0,"DDA")="N"
^DD(1020.7,0,"IX","B",1020.7,.01)=""
^DD(1020.7,0,"NM","PPP NEW SSN")=""
^DD(1020.7,0,"VR")="1.0"
^DD(1020.7,.01,0)="SSN^RFX^^0;1^S PPPX=$O(^DPT(""SSN"",X,0)) S DINUM=PPPX K PPPX K:$L(X)>10!($L(X)<9)!'(X'?1P.E)!(DINUM="""") X"
^DD(1020.7,.01,1,0)="^.1"
^DD(1020.7,.01,1,1,0)="1020.7^B"
^DD(1020.7,.01,1,1,1)="S ^PPP(1020.7,""B"",$E(X,1,30),DA)="""""
^DD(1020.7,.01,1,1,2)="K ^PPP(1020.7,""B"",$E(X,1,30),DA)"
^DD(1020.7,.01,3)="Answer must be a valid SSN from the PATIENT file."
^DD(1020.7,.01,21,0)="^^1^1^2940517^^^"
^DD(1020.7,.01,21,1,0)="This field contains a new SSN to be added to the FFX file."
^DD(1020.7,.01,"DT")="2940517"
^DD(1020.7,"B","SSN",.01)=""
^DD(1020.7,"GL",0,1,.01)=""
^DD(1020.7,"IX",.01)=""
^DD(1020.7,"RQ",.01)=""
^DD(1020.8,0)="FIELD^^12^5"
^DD(1020.8,0,"DDA")="N"
^DD(1020.8,0,"DT")="2940407"
^DD(1020.8,0,"IX","B",1020.8,.01)=""
^DD(1020.8,0,"IX","C",1020.8,.02)=""
^DD(1020.8,0,"IX","D",1020.8,12)=""
^DD(1020.8,0,"NM","PPP DOMAIN XREF")=""
^DD(1020.8,0,"VR")="1.0"
^DD(1020.8,.01,0)="STATION^RP4'^DIC(4,^0;1^Q"
^DD(1020.8,.01,1,0)="^.1^^-1"
^DD(1020.8,.01,1,1,0)="1020.8^B"
^DD(1020.8,.01,1,1,1)="S ^PPP(1020.8,""B"",$E(X,1,30),DA)="""""
^DD(1020.8,.01,1,1,2)="K ^PPP(1020.8,""B"",$E(X,1,30),DA)"
^DD(1020.8,.01,1,3,0)="^^TRIGGER^1020.8^10"
^DD(1020.8,.01,1,3,1)="X ^DD(1020.8,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^PPP(1020.8,D0,1)):^(1),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=$G(DUZ) X ^DD(1020.8,.01,1,3,1.4)"
^DD(1020.8,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PPP(1020.8,D0,1)):^(1),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,1),0)):"""",1:$P(^(0),U,1))="""""
^DD(1020.8,.01,1,3,1.4)="S DIH=$S($D(^PPP(1020.8,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,1)=DIV,DIH=1020.8,DIG=10 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(1020.8,.01,1,3,2)="Q"
^DD(1020.8,.01,1,3,"%D",0)="^^1^1^2940407^^"
^DD(1020.8,.01,1,3,"%D",1,0)="User adding remote facility to release group automatically stored"
^DD(1020.8,.01,1,3,"CREATE CONDITION")="Added By="""""
^DD(1020.8,.01,1,3,"CREATE VALUE")="S X=$G(DUZ)"
^DD(1020.8,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(1020.8,.01,1,3,"DT")="2930928"
^DD(1020.8,.01,1,3,"FIELD")="Added By"
^DD(1020.8,.01,1,4,0)="^^TRIGGER^1020.8^11"
^DD(1020.8,.01,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^PPP(1020.8,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2)="""" I X S X=DIV S Y(1)=$S($D(^PPP(1020.8,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(1020.8,.01,1,4,1.1) X ^DD(1020.8,.01,1,4,1.4)"
^DD(1020.8,.01,1,4,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(1020.8,.01,1,4,1.4)="S DIH=$S($D(^PPP(1020.8,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,2)=DIV,DIH=1020.8,DIG=11 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(1020.8,.01,1,4,2)="Q"
^DD(1020.8,.01,1,4,"%D",0)="^^1^1^2940407^^"
^DD(1020.8,.01,1,4,"%D",1,0)="Date/time remote facility is added to release group automatically stored."
^DD(1020.8,.01,1,4,"CREATE CONDITION")="Date Added="""""
^DD(1020.8,.01,1,4,"CREATE VALUE")="NOW"
^DD(1020.8,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(1020.8,.01,1,4,"DT")="2930928"
^DD(1020.8,.01,1,4,"FIELD")="Date Added"
^DD(1020.8,.01,3)=""
^DD(1020.8,.01,21,0)="^^2^2^2940407^^^^"
^DD(1020.8,.01,21,1,0)=" "
^DD(1020.8,.01,21,2,0)="Station name or number for VAMCH"
^DD(1020.8,.01,"DT")="2930928"
^DD(1020.8,.02,0)="DOMAIN^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(1020.8,.02,1,0)="^.1"
^DD(1020.8,.02,1,1,0)="1020.8^C"
^DD(1020.8,.02,1,1,1)="S ^PPP(1020.8,""C"",$E(X,1,30),DA)="""""
^DD(1020.8,.02,1,1,2)="K ^PPP(1020.8,""C"",$E(X,1,30),DA)"
^DD(1020.8,.02,1,1,"DT")="2950201"
^DD(1020.8,.02,3)="Answer must be 3-30 characters in length."
^DD(1020.8,.02,21,0)="^^2^2^2940407^^^"
^DD(1020.8,.02,21,1,0)=" "
^DD(1020.8,.02,21,2,0)=" The domain associated with the station number"
^DD(1020.8,.02,"DT")="2950201"
^DD(1020.8,10,0)="Added By^P200'^VA(200,^1;1^Q"
^DD(1020.8,10,5,1,0)="1020.8^.01^3"
^DD(1020.8,10,9)="^"
^DD(1020.8,10,21,0)="^^1^1^2940407^^"
^DD(1020.8,10,21,1,0)="User who added this facility to the Domain file."
^DD(1020.8,10,"DT")="2921201"
^DD(1020.8,11,0)="Date Added^D^^1;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(1020.8,11,5,1,0)="1020.8^.01^4"
^DD(1020.8,11,9)="^"
^DD(1020.8,11,21,0)="^^1^1^2930218^"
^DD(1020.8,11,21,1,0)="Date the facility was added."
^DD(1020.8,11,"DT")="2921201"
^DD(1020.8,12,0)="STATION NUMBER^F^^0;3^K:$L(X)>10!($L(X)<3) X"
^DD(1020.8,12,1,0)="^.1"
^DD(1020.8,12,1,1,0)="1020.8^D"
^DD(1020.8,12,1,1,1)="S ^PPP(1020.8,""D"",$E(X,1,30),DA)="""""
^DD(1020.8,12,1,1,2)="K ^PPP(1020.8,""D"",$E(X,1,30),DA)"
^DD(1020.8,12,1,1,"DT")="2980304"
^DD(1020.8,12,3)="Answer must be 3-10 characters in length."
^DD(1020.8,12,21,0)="^^2^2^2980317^"
^DD(1020.8,12,21,1,0)="This field is the actual station number value as stored in the INSTITUTION"
^DD(1020.8,12,21,2,0)="file, #4."
^DD(1020.8,12,23,0)="^^2^2^2980317^"
^DD(1020.8,12,23,1,0)="This field necessary because of changing station numbers, and pointer"
^DD(1020.8,12,23,2,0)="values to the INSTITUTION file no longer being the internal entry number."
^DD(1020.8,12,"DT")="2980304"
^DD(1020.8,"B","Added By",10)=""
^DD(1020.8,"B","DOMAIN",.02)=""
^DD(1020.8,"B","Date Added",11)=""
^DD(1020.8,"B","STATION",.01)=""
^DD(1020.8,"B","STATION NUMBER",12)=""
^DD(1020.8,"GL",0,1,.01)=""
^DD(1020.8,"GL",0,2,.02)=""
^DD(1020.8,"GL",0,3,12)=""
^DD(1020.8,"GL",1,1,10)=""
^DD(1020.8,"GL",1,2,11)=""
^DD(1020.8,"IX",.01)=""
^DD(1020.8,"IX",.02)=""
^DD(1020.8,"IX",12)=""
^DD(1020.8,"RQ",.01)=""
^DD(2005,0)="FIELD^^111^60"
^DD(2005,0,"DDA")="N"
^DD(2005,0,"DT")="3001107"
^DD(2005,0,"ID",5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2005,0,"IX","AC",2005,5)=""
^DD(2005,0,"IX","AEXPORT",2005,19)=""
^DD(2005,0,"IX","AIQ",2005,13)=""
^DD(2005,0,"IX","APPXDT",2005,5)=""
^DD(2005,0,"IX","APPXDT5",2005,15)=""
^DD(2005,0,"IX","APPXDT6",2005,6)=""
^DD(2005,0,"IX","ATRKID",2005,108)=""
^DD(2005,0,"IX","B",2005,.01)=""
^DD(2005,0,"IX","P",2005,60)=""
^DD(2005,0,"NM","IMAGE")=""
^DD(2005,0,"PT",3.92005,.01)=""
^DD(2005,0,"PT",4.2995,3)=""
^DD(2005,0,"PT",9.201,.01)=""
^DD(2005,0,"PT",63.22005,.01)=""
^DD(2005,0,"PT",63.28,.01)=""
^DD(2005,0,"PT",63.45,.01)=""
^DD(2005,0,"PT",63.82005,.01)=""
^DD(2005,0,"PT",63.92005,.01)=""
^DD(2005,0,"PT",74.02005,.01)=""
^DD(2005,0,"PT",130.02005,.01)=""
^DD(2005,0,"PT",691.02005,.01)=""
^DD(2005,0,"PT",691.12005,.01)=""
^DD(2005,0,"PT",691.52005,.01)=""
^DD(2005,0,"PT",694.02005,.01)=""
^DD(2005,0,"PT",699.02005,.01)=""
^DD(2005,0,"PT",699.52005,.01)=""
^DD(2005,0,"PT",701.02005,.01)=""
^DD(2005,0,"PT",2005,14)=""
^DD(2005,0,"PT",2005.031,.01)=""
^DD(2005,0,"PT",2005.04,.01)=""
^DD(2005,0,"PT",2006.035,.01)=""
^DD(2005,0,"PT",2006.563,47)=""
^DD(2005,0,"PT",2006.563,73)=""
^DD(2005,0,"PT",2006.574,2)=""
^DD(2005,0,"PT",2006.5744,.01)=""
^DD(2005,0,"PT",2006.5839,3)=""
^DD(2005,0,"PT",2006.59061,.01)=""
^DD(2005,0,"PT",2006.82,6)=""
^DD(2005,0,"PT",2006.95,3)=""
^DD(2005,0,"PT",8925.91,.02)=""
^DD(2005,0,"VR")="3.0"
^DD(2005,0,"VRPK")="IMAGING"
^DD(2005,.001,0)="NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005,.001,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2005,.001,21,0)="^^7^7^3001025^"
^DD(2005,.001,21,1,0)=".001 NUMBER Field is the Internal Entry Number of the Image File Entry."
^DD(2005,.001,21,2,0)="i.e. ""DA"" of the Image File entry."
^DD(2005,.001,21,3,0)="Imaging routines and RPC's use the Image DA for lookups."
^DD(2005,.001,21,4,0)="The Image Files associated with this entry are stored on a Networked Image"
^DD(2005,.001,21,5,0)="A name for the Image Files is generated from the Image DA, the "
^DD(2005,.001,21,6,0)="Extension is appropriate to the Type of Image."
^DD(2005,.001,21,7,0)="i.e. I0014432.JPG"
^DD(2005,.001,"DT")="2940616"
^DD(2005,.01,0)="OBJECT NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(2005,.01,1,0)="^.1"
^DD(2005,.01,1,1,0)="2005^B"
^DD(2005,.01,1,1,1)="S ^MAG(2005,""B"",$E(X,1,60),DA)="""""
^DD(2005,.01,1,1,2)="K ^MAG(2005,""B"",$E(X,1,60),DA)"
^DD(2005,.01,3)="Answer must be 3-70 characters in length."
^DD(2005,.01,21,0)="^.001^3^3^3001010^^^"
^DD(2005,.01,21,1,0)="Each object has a natural language name; this usually consists of the"
^DD(2005,.01,21,2,0)="patient name, social security number, and object description.  This field"
^DD(2005,.01,21,3,0)="is automatically defined by the Imaging software."
^DD(2005,.01,"DT")="2930630"
^DD(2005,.05,0)="ACQUISITION SITE^RP4^DIC(4,^100;3^Q"
^DD(2005,.05,.1)="Name of Site where Image was Created"
^DD(2005,.05,3)="Enter the name of the site where the image was created."
^DD(2005,.05,21,0)="^^7^7^2981013^^^^"
^DD(2005,.05,21,1,0)="The 'origin' location is the location where an image is created."
^DD(2005,.05,21,2,0)="For instance, a site like 'St. Louis' may process images for several"
^DD(2005,.05,21,3,0)="other locations, such as Topeka, Wichita and Leavenworth."
^DD(2005,.05,21,4,0)="Any reference to a site identifier will return the name of the"
^DD(2005,.05,21,5,0)="primary location. For the purpose of finding the 'origin' of images,"
^DD(2005,.05,21,6,0)="the more specific sub-site is needed."
^DD(2005,.05,21,7,0)="This field contains the name of this 'sub-site'."
^DD(2005,.05,"DT")="2981013"
^DD(2005,.06,0)="EXPORT LOCATION^2005.01PA^^5;0"
^DD(2005,.06,21,0)="^^4^4^3011213^"
^DD(2005,.06,21,1,0)="This table contains audit information regarding the export locations"
^DD(2005,.06,21,2,0)="of file copies generated by the generic carbon copy (GCC)"
^DD(2005,.06,21,3,0)="utility.  This utility is used by the Health Eligibility Center"
^DD(2005,.06,21,4,0)="functionality."
^DD(2005,1,0)="FILEREF^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(2005,1,1,0)="^.1^^0"
^DD(2005,1,3)="Answer must be 1-30 characters in length."
^DD(2005,1,21,0)="^^8^8^3050412^"
^DD(2005,1,21,1,0)="This field contains the unique image filename of the image stored on the "
^DD(2005,1,21,2,0)="Vista Imaging file servers.  It is either 12 or 18 characters long.  It "
^DD(2005,1,21,3,0)="contains three elements: the facility's Imaging Namespace, from the "
^DD(2005,1,21,4,0)="Current Namespace field (#.02) of the IMAGING SITE PARAMETERS file "
^DD(2005,1,21,5,0)="(#2006.1), the Image IEN, and padded with zeros if needed, and the "
^DD(2005,1,21,6,0)="extension that indicates the format of the image. Supported formats are "
^DD(2005,1,21,7,0)="stored in the IMAGE FILE TYPES (#2005.021) file.  This field is "
^DD(2005,1,21,8,0)="automatically set by the Imaging software."
^DD(2005,1,"DT")="3050412"
^DD(2005,2,0)="DISK & VOLUME, MAGNETIC^P2005.2'^MAG(2005.2,^0;3^Q"
^DD(2005,2,1,0)="^.1^^0"
^DD(2005,2,3)="Enter the disk name and volume set name where the image will be stored"
^DD(2005,2,21,0)="^^7^7^2970721^"
^DD(2005,2,21,1,0)="This field gives the path for the network location of the stored image"
^DD(2005,2,21,2,0)="(i.e. on which server it resides). After a specified time period during"
^DD(2005,2,21,3,0)="which the image is not viewed, the image is deleted from the magnetic"
^DD(2005,2,21,4,0)="server but remains available upon request from the jukebox. It takes"
^DD(2005,2,21,5,0)="slightly longer to display from the jukebox, but if requested, it is moved"
^DD(2005,2,21,6,0)="back to the server until it is no longer being viewed. This field is set"
^DD(2005,2,21,7,0)="automatically by the Imaging software."
^DD(2005,2,"DT")="2981112"
^DD(2005,2.1,0)="DISK & VOLUME, ABSTRACT^P2005.2'^MAG(2005.2,^0;4^Q"
^DD(2005,2.1,21,0)="^^7^7^2970721^"
^DD(2005,2.1,21,1,0)="This field points to the path of the network storage location for the"
^DD(2005,2.1,21,2,0)="image abstract.  An abstract is a miniature copy of the captured image. If"
^DD(2005,2.1,21,3,0)="the parent image has not been viewed during the specified time period (if"
^DD(2005,2.1,21,4,0)="there is a jukebox), this file will be deleted along with the parent image"
^DD(2005,2.1,21,5,0)="file. Should the abstract be requested for viewing, it will be copied back"
^DD(2005,2.1,21,6,0)="onto the server currently being used to write captured images.  This field"
^DD(2005,2.1,21,7,0)="is automatically set by the Imaging software."
^DD(2005,2.1,"DT")="2981112"
^DD(2005,2.2,0)="DISK & VOLUME, WORM^P2005.2'^MAG(2005.2,^0;5^Q"
^DD(2005,2.2,21,0)="^^3^3^2950315^^^"
^DD(2005,2.2,21,1,0)="This field is a pointer to the Network Location file giving the jukebox"
^DD(2005,2.2,21,2,0)="platter where the image is stored (provided there is a jukebox in the"
^DD(2005,2.2,21,3,0)="Imaging System). If it is a WORM, this file can never be deleted."
^DD(2005,2.2,"DT")="2981112"
^DD(2005,3,0)="OBJECT TYPE^P2005.02'^MAG(2005.02,^0;6^Q"
^DD(2005,3,1,0)="^.1^^0"
^DD(2005,3,21,0)="^^6^6^2950315^^^^"
^DD(2005,3,21,1,0)="This field is a pointer to the Object Type file (2005.02) which defines"
^DD(2005,3,21,2,0)="the object type of this object, e.g., still image, black & white image,"
^DD(2005,3,21,3,0)="x-ray etc. The image type determines how various actions are performed"
^DD(2005,3,21,4,0)="i.e., how the full resolution image is displayed, or how and when the image"
^DD(2005,3,21,5,0)="abstract is displayed.  This field is automatically set by the Imaging"
^DD(2005,3,21,6,0)="software at the time of image capture."
^DD(2005,3,"DT")="2940402"
^DD(2005,4,0)="OBJECT GROUP^2005.04P^^1;0"
^DD(2005,4,21,0)="^^14^14^3000404^^"
^DD(2005,4,21,1,0)="The object group is a multiple field pointing back to the Image file"
^DD(2005,4,21,2,0)="(2005).  Only objects with an object type of GROUP have the Object Group"
^DD(2005,4,21,3,0)="field defined.  These objects can be thought of as the ""parent"" of a set"
^DD(2005,4,21,4,0)="of images.  Generally, instead of having their own abstract, objects of"
^DD(2005,4,21,5,0)="the GROUP type use the abstract of the first entry in their object group"
^DD(2005,4,21,6,0)="multiple.  Sometimes, text will be used in place of the GROUP abstract for"
^DD(2005,4,21,7,0)="speed.  Methods for viewing a GROUP object generally allow viewing of all"
^DD(2005,4,21,8,0)="the members of the group, either selectively or altogether.  A good"
^DD(2005,4,21,9,0)="example would be a set of thirty CT scan images.  Using the Integrated"
^DD(2005,4,21,10,0)="View menu option, the tiled display of image abstracts would contain only"
^DD(2005,4,21,11,0)="one abstract for the group.  Selecting the group object for viewing"
^DD(2005,4,21,12,0)="provides the user with a tiled display of the abstracts of the individual"
^DD(2005,4,21,13,0)="CT scan images.  The user can then identify individual images for full"
^DD(2005,4,21,14,0)="resolution viewing."
^DD(2005,5,0)="PATIENT^P2^DPT(^0;7^Q"
^DD(2005,5,1,0)="^.1"
^DD(2005,5,1,1,0)="2005^AC"
^DD(2005,5,1,1,1)="S ^MAG(2005,""AC"",$E(X,1,30),DA)="""""
^DD(2005,5,1,1,2)="K ^MAG(2005,""AC"",$E(X,1,30),DA)"
^DD(2005,5,1,1,"%D",0)="^^1^1^2970630^"
^DD(2005,5,1,1,"%D",1,0)="This cross-reference will produce a simple ""AC"" on the Patient's DFN."
^DD(2005,5,1,1,"DT")="2970630"
^DD(2005,5,1,2,0)="2005^APPXDT^MUMPS"
^DD(2005,5,1,2,1)="I $P(^MAG(2005,DA,0),U,10)="""" D SETPPXD^MAGUXRF"
^DD(2005,5,1,2,2)="I $P(^MAG(2005,DA,0),U,10)="""" D KILPPXD^MAGUXRF"
^DD(2005,5,1,2,3)="PATIENT,DATETIME,PROCEDURE & PATIENT,PROC,DATETIME"
^DD(2005,5,1,2,"%D",0)="^^17^17^2940520^"
^DD(2005,5,1,2,"%D",1,0)="This Mumps routine will create two cross-references to relate the"
^DD(2005,5,1,2,"%D",2,0)="following variables: DFN (patient), Procedure, Date/time of Procedure"
^DD(2005,5,1,2,"%D",3,0)="        or secondly: DFN (patient), Date/time of Procedure, Procedure"
^DD(2005,5,1,2,"%D",4,0)="NOTE: any record that is a child of a parent, i.e. member of a group is NOT"
^DD(2005,5,1,2,"%D",5,0)="included in the cross-references; only independent members or parents."
^DD(2005,5,1,2,"%D",6,0)=" "
^DD(2005,5,1,2,"%D",7,0)="This cross-reference set is the same for the fields #6 (Procedure) and"
^DD(2005,5,1,2,"%D",8,0)="#15 (Procdedure date and time). For all three of these fields: #5,#6,#15"
^DD(2005,5,1,2,"%D",9,0)="the set and kill of the cross-reference produce the same result. The"
^DD(2005,5,1,2,"%D",10,0)="only difference is the 'X' used which is dependant upon which field."
^DD(2005,5,1,2,"%D",11,0)="Each set produces two cross-references, that differ only by the order"
^DD(2005,5,1,2,"%D",12,0)="of the variables as described above. Other descriptions will be referred"
^DD(2005,5,1,2,"%D",13,0)="to this one to explain the purpose of the cross-reference."
^DD(2005,5,1,2,"%D",14,0)=" "
^DD(2005,5,1,2,"%D",15,0)="The cross-references produced have the following structure:"
^DD(2005,5,1,2,"%D",16,0)="|TAB||TAB|^MAG(2005,""APPXDT"",DFN,PROC,DT,DA)="""""
^DD(2005,5,1,2,"%D",17,0)="|TAB||TAB|^MAG(2005,""APDTPX"",DFN,DT,PROC,DA)="""""
^DD(2005,5,1,2,"DT")="2931202"
^DD(2005,5,21,0)="^^4^4^2970721^^^"
^DD(2005,5,21,1,0)="This field is a pointer to the VistA Patient file (#2), and contains the"
^DD(2005,5,21,2,0)="DFN of the patient that the image or object belongs to. The image or"
^DD(2005,5,21,3,0)="object is part of this patient's medical record. This pointer ties the"
^DD(2005,5,21,4,0)="image to the patient and is automatically set by the Imaging software."
^DD(2005,5,23,0)="^^1^1^2970721^^^^"
^DD(2005,5,23,1,0)=" "
^DD(2005,5,"DT")="2970630"
^DD(2005,6,0)="PROCEDURE^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(2005,6,1,0)="^.1"
^DD(2005,6,1,1,0)="2005^APPXDT6^MUMPS"
^DD(2005,6,1,1,1)="I $P(^MAG(2005,DA,0),U,10)="""" D SETPPXD6^MAGUXRF"
^DD(2005,6,1,1,2)="I $P(^MAG(2005,DA,0),U,10)="""" D KILPPXD6^MAGUXRF"
^DD(2005,6,1,1,3)="PATIENT,DATETIME,PROCEDURE & PATIENT,PROC,DATETIME"
^DD(2005,6,1,1,"%D",0)="^^14^14^3001024^^"
^DD(2005,6,1,1,"%D",1,0)="This MUMPS routine will create two cross references to relate the follwing"
^DD(2005,6,1,1,"%D",2,0)="variables. DFN (patient), Procedure, Date/Time of Procedure or secondly: DFN"
^DD(2005,6,1,1,"%D",3,0)="(patient), Date/Time of Procedure.  Procedure Note: any record that is a child"
^DD(2005,6,1,1,"%D",4,0)="of a parent, i.e. member of a group is NOT included in the cross-references;"
^DD(2005,6,1,1,"%D",5,0)="only independent members or parents.  This cross reference set is the same for"
^DD(2005,6,1,1,"%D",6,0)="the fields #15 (Procedure Date\Time) and #5 (Patient).  For all three of these "
^DD(2005,6,1,1,"%D",7,0)="fields, #5, #6 and #15, the set and kill of the cross reference produces the"
^DD(2005,6,1,1,"%D",8,0)="same results.  The only difference is the 'X' used which is dependant upon which"
^DD(2005,6,1,1,"%D",9,0)="field is being used."
^DD(2005,6,1,1,"%D",10,0)=" "
^DD(2005,6,1,1,"%D",11,0)="The cross references produced have the following structure:"
^DD(2005,6,1,1,"%D",12,0)="               ^MAG(2005,""APPXDT"",DFN,PROC,RDT,DA)="""""
^DD(2005,6,1,1,"%D",13,0)="               ^MAG(2005,""APDTPX"",DFN,,RDT,PROC,DA)="""""
^DD(2005,6,1,1,"%D",14,0)=""
^DD(2005,6,1,1,"DT")="2931202"
^DD(2005,6,3)="Answer must be 1-10 characters in length."
^DD(2005,6,21,0)="^^3^3^2970721^"
^DD(2005,6,21,1,0)="This field is an abbreviation for the procedure (e.g., COL for colonoscopy,"
^DD(2005,6,21,2,0)="SUR for surgery, SP for surgical pathology, X-ray for radiology).  This"
^DD(2005,6,21,3,0)="field is automatically set by the Imaging software."
^DD(2005,6,"DT")="2931228"
^DD(2005,7,0)="DATE/TIME IMAGE SAVED^D^^2;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2005,7,1,0)="^.1^^0"
^DD(2005,7,3)="This is the date and time of image capture."
^DD(2005,7,21,0)="^.001^4^4^3060619^^^^"
^DD(2005,7,21,1,0)="This field is the date and time the image was captured. It is"
^DD(2005,7,21,2,0)="automatically stuffed into the file as ""NOW"". It is not the same as the"
^DD(2005,7,21,3,0)="date and time of the procedure or exam.  This field is set automatically"
^DD(2005,7,21,4,0)="by the Imaging software."
^DD(2005,7,"DT")="3061128"
^DD(2005,8,0)="IMAGE SAVE BY^P200'^VA(200,^2;2^Q"
^DD(2005,8,1,0)="^.1^^0"
^DD(2005,8,21,0)="^^5^5^2970721^"
^DD(2005,8,21,1,0)="This field is a pointer to the New Person file and thus equal to the DUZ"
^DD(2005,8,21,2,0)="of the person who logged in to capture the image.  It identifies who"
^DD(2005,8,21,3,0)="captured or saved the image and is automatically stuffed into the Image"
^DD(2005,8,21,4,0)="file.  An image received via a Multimedia Mail message will not have data"
^DD(2005,8,21,5,0)="in this field."
^DD(2005,8,"DT")="2940527"
^DD(2005,9,0)="SUMMARY OBJECT^S^1:YES;0:NO;^2;3^Q"
^DD(2005,9,1,0)="^.1^^0"
^DD(2005,9,3)="Enter 1 for 'Yes' and 0 (or null) for 'No'."
^DD(2005,9,21,0)="^^6^6^2950328^^"
^DD(2005,9,21,1,0)="This field is used to indicate whether the image or object is to be used"
^DD(2005,9,21,2,0)="as a summary for a group of objects. For example, in a GROUP of images,"
^DD(2005,9,21,3,0)="normally the abstract of the first object in the group multiple is used"
^DD(2005,9,21,4,0)="for the integrated view display.  This field allows the user to select a"
^DD(2005,9,21,5,0)="summary image to be used for this purpose.  This field is currently not in"
^DD(2005,9,21,6,0)="use."
^DD(2005,9,"DT")="2940504"
^DD(2005,10,0)="SHORT DESCRIPTION^F^^2;4^K:$L(X)>60!($L(X)<1) X"
^DD(2005,10,3)="Answer must be 1-60 characters in length."
^DD(2005,10,21,0)="^.001^5^5^3000706^^^^"
^DD(2005,10,21,1,0)="This field allows the user to store a brief, one line description with the"
^DD(2005,10,21,2,0)="image or object record. For images associated with patients, this data is"
^DD(2005,10,21,3,0)="appended to the patient's name and SSN to create the .01 field of the"
^DD(2005,10,21,4,0)="Image file.  It is also permanently written on the upper left corner of"
^DD(2005,10,21,5,0)="the image to provide visible identification."
^DD(2005,10,"DT")="2900914"
^DD(2005,11,0)="LONG DESCRIPTION^2005.011^^3;0"
^DD(2005,11,21,0)="^^6^6^2970721^"
^DD(2005,11,21,1,0)="This word processing field allows the user to describe the image at"
^DD(2005,11,21,2,0)="length.  The user may only choose to append this long description on"
^DD(2005,11,21,3,0)="selected images - those which are ""classic"" or ""unusual"" cases. It can be"
^DD(2005,11,21,4,0)="used to summarize a group of images which have been put together for a"
^DD(2005,11,21,5,0)="conference or consult.  It will be used in the future to a greater extent,"
^DD(2005,11,21,6,0)="as options for image capture (independent of VistA packages) are provided."
^DD(2005,12,0)="LAST ACCESS DATE^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2005,12,3)="Date image last accessed"
^DD(2005,12,21,0)="^^7^7^2970721^^"
^DD(2005,12,21,1,0)="This is the date and time the image was last viewed or accessed. Each time"
^DD(2005,12,21,2,0)="an abstract or image is requested for viewing, this field is automatically"
^DD(2005,12,21,3,0)="set with the current date and time.  In conjunction with the appropriate"
^DD(2005,12,21,4,0)="site parameter, this field is used for automatic file migration.  That is,"
^DD(2005,12,21,5,0)="when an image has not been accessed within the predefined time period, it"
^DD(2005,12,21,6,0)="will be deleted from the magnetic server and will only be accessible from"
^DD(2005,12,21,7,0)="the optical disk jukebox."
^DD(2005,12,"DT")="2920818"
^DD(2005,13,0)="IQ^S^1:YES;^0;11^Q"
^DD(2005,13,1,0)="^.1"
^DD(2005,13,1,1,0)="2005^AIQ"
^DD(2005,13,1,1,1)="S ^MAG(2005,""AIQ"",$E(X,1,30),DA)="""""
^DD(2005,13,1,1,2)="K ^MAG(2005,""AIQ"",$E(X,1,30),DA)"
^DD(2005,13,1,1,"%D",0)="^^2^2^3010824^"
^DD(2005,13,1,1,"%D",1,0)="This cross reference exists to quickly list all images that have"
^DD(2005,13,1,1,"%D",2,0)="questionable integrity."
^DD(2005,13,1,1,"DT")="3010824"
^DD(2005,13,21,0)="^.001^1^1^3010824^^^"
^DD(2005,13,21,1,0)="This indicates that this image entry has questionable integrity."
^DD(2005,13,23,0)="^.001^2^2^3010824^^"
^DD(2005,13,23,1,0)="This field is set by various integrity checkers in the Imaging software."
^DD(2005,13,23,2,0)="This field is set if an entry has questionable integrity."
^DD(2005,13,"DT")="3010824"
^DD(2005,13.5,0)="DUPE^S^1:YES;^0;12^Q"
^DD(2005,13.5,21,0)="^.001^6^6^3050620^^"
^DD(2005,13.5,21,1,0)="This field is to allow screening of images that"
^DD(2005,13.5,21,2,0)="have duplicate instances in the archive file"
^DD(2005,13.5,21,3,0)="and the image file.  The intent is to prevent"
^DD(2005,13.5,21,4,0)="purging of these images on the raid until a"
^DD(2005,13.5,21,5,0)="utility to store this file on the Jukebox is "
^DD(2005,13.5,21,6,0)="implemented."
^DD(2005,13.5,"DT")="3050620"
^DD(2005,14,0)="GROUP PARENT^P2005'^MAG(2005,^0;10^Q"
^DD(2005,14,3)="If this object is a member of a group, enter the parent."
^DD(2005,14,21,0)="^^5^5^2970721^^^^"
^DD(2005,14,21,1,0)="This field is used for images that are part of a group, for example a CT"
^DD(2005,14,21,2,0)="exam might contain 30 images.  This field contains a pointer back to the"
^DD(2005,14,21,3,0)="Image file (2005), to the object whose type is ""GROUP"" that points to this"
^DD(2005,14,21,4,0)="object as a member of its group.  A pointer to this object will be found"
^DD(2005,14,21,5,0)="in the Object Group multiple of the parent GROUP object."
^DD(2005,14,"DT")="2931004"
^DD(2005,15,0)="PROCEDURE/EXAM DATE/TIME^D^^2;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2005,15,1,0)="^.1^^-1"
^DD(2005,15,1,2,0)="2005^APPXDT5^MUMPS"
^DD(2005,15,1,2,1)="I $P(^MAG(2005,DA,0),U,10)="""" D SETPPXD5^MAGUXRF"
^DD(2005,15,1,2,2)="I $P(^MAG(2005,DA,0),U,10)="""" D KILPPXD5^MAGUXRF"
^DD(2005,15,1,2,3)="PATIENT,DATETIME,PROCEDURE & PATIENT,PROC,DATETIME"
^DD(2005,15,1,2,"%D",0)="^^15^15^3001025^^"
^DD(2005,15,1,2,"%D",1,0)="This MUMPS routine will create two cross references to relate the following"
^DD(2005,15,1,2,"%D",2,0)="variables. DFN (patient), Procedure, Date/Time of Procedure or secondly: DFN"
^DD(2005,15,1,2,"%D",3,0)="(patient), Date/Time of Procedure.  Procedure Note: any record that is a child"
^DD(2005,15,1,2,"%D",4,0)="of a parent, i.e. member of a group is NOT included in the cross-references;"
^DD(2005,15,1,2,"%D",5,0)="only independent members or parents.  This cross reference set is the same for"
^DD(2005,15,1,2,"%D",6,0)="the fields #6 (Procedure) and #5 (Patient).  For all three of these fields, "
^DD(2005,15,1,2,"%D",7,0)="#5, #6 and #15, the set and kill of the cross reference produces the same"
^DD(2005,15,1,2,"%D",8,0)="results.  The only difference is the 'X' used which is dependant upon which"
^DD(2005,15,1,2,"%D",9,0)="field is being used.  "
^DD(2005,15,1,2,"%D",10,0)=""
^DD(2005,15,1,2,"%D",11,0)="The cross references produced have the following structure:"
^DD(2005,15,1,2,"%D",12,0)=" "
^DD(2005,15,1,2,"%D",13,0)="              ^MAG(2005,""APPXDT"",DFN,PROC,RDT,DA)="""""
^DD(2005,15,1,2,"%D",14,0)="              ^MAG(2005,""APDTPX"",DFN,RDT,PROC,DA)="""""
^DD(2005,15,1,2,"%D",15,0)=""
^DD(2005,15,1,2,"DT")="2931202"
^DD(2005,15,3)="Enter the DATE-TIME of the Procedure or Exam"
^DD(2005,15,21,0)="^.001^10^10^3000807^^"
^DD(2005,15,21,1,0)="This is the date/time of the procedure or the exam. It is obtained from"
^DD(2005,15,21,2,0)="the Parent Data file (i.e. the date/time of the X-ray exam, the Medical"
^DD(2005,15,21,3,0)="Procedure, the time the Laboratory specimen was obtained from the patient,"
^DD(2005,15,21,4,0)="or the date/time of the Surgical procedure). This often is not the same as"
^DD(2005,15,21,5,0)="the date/time the image was captured. In a long surgical procedure the"
^DD(2005,15,21,6,0)="image capture time may be several hours later than the start of the"
^DD(2005,15,21,7,0)="operation. When a lab specimen is collected from a patient, it may be"
^DD(2005,15,21,8,0)="several days before images are captured from the slide.  If images are"
^DD(2005,15,21,9,0)="initially stored on an intermediate media such as x-ray film or video tape,"
^DD(2005,15,21,10,0)="the capture time can be long after the procedure time."
^DD(2005,15,"DT")="2940527"
^DD(2005,16,0)="PARENT DATA FILE#^P2005.03^MAG(2005.03,^2;6^Q"
^DD(2005,16,3)="The Parent Report file (or sub-file) number."
^DD(2005,16,21,0)="^^67^67^3001006^^"
^DD(2005,16,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005,16,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005,16,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005,16,21,4,0)=""
^DD(2005,16,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005,16,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005,16,21,7,0)="that describes why the image was collected."
^DD(2005,16,21,8,0)=""
^DD(2005,16,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005,16,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005,16,21,11,0)="optionally also field 63."
^DD(2005,16,21,12,0)=""
^DD(2005,16,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005,16,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005,16,21,15,0)="Common parent files are:"
^DD(2005,16,21,16,0)=""
^DD(2005,16,21,17,0)="   File    Name"
^DD(2005,16,21,18,0)="   ====    ===="
^DD(2005,16,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005,16,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005,16,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005,16,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005,16,21,23,0)="    63.09: CYTOLOGY"
^DD(2005,16,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005,16,21,25,0)="    74:    RADIOLOGY"
^DD(2005,16,21,26,0)="   130:    SURGERY"
^DD(2005,16,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005,16,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005,16,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005,16,21,30,0)="   694:    HEMATOLOGY"
^DD(2005,16,21,31,0)="   699:    ENDOSCOPY"
^DD(2005,16,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005,16,21,33,0)="  8925:    TIU"
^DD(2005,16,21,34,0)=""
^DD(2005,16,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005,16,21,36,0)="the list of images that belong to that record."
^DD(2005,16,21,37,0)=""
^DD(2005,16,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005,16,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005,16,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005,16,21,41,0)="The entries in these multiples identify the various images"
^DD(2005,16,21,42,0)="that belong with the record in question."
^DD(2005,16,21,43,0)=""
^DD(2005,16,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005,16,21,45,0)=""
^DD(2005,16,21,46,0)=" Type Number     Form of Root"
^DD(2005,16,21,47,0)=" ===========     ============"
^DD(2005,16,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005,16,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005,16,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005,16,21,51,0)=""
^DD(2005,16,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005,16,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005,16,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005,16,21,55,0)="well as D1 (type 3)."
^DD(2005,16,21,56,0)=""
^DD(2005,16,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005,16,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005,16,21,59,0)=""
^DD(2005,16,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005,16,21,61,0)="   ===========   =============================="
^DD(2005,16,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005,16,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005,16,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005,16,21,65,0)=""
^DD(2005,16,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005,16,21,67,0)="value of LRDFN."
^DD(2005,16,22)=""
^DD(2005,16,"DT")="2951009"
^DD(2005,17,0)="PARENT GLOBAL ROOT D0^NJ10,0^^2;7^K:+X'=X!(X>9999999999.9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005,17,3)="Type a Number between 1 and 9999999999.9999, 0 Decimal Digits"
^DD(2005,17,21,0)="^.001^67^67^3011218^^^"
^DD(2005,17,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005,17,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005,17,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005,17,21,4,0)=""
^DD(2005,17,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005,17,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005,17,21,7,0)="that describes why the image was collected."
^DD(2005,17,21,8,0)=""
^DD(2005,17,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005,17,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005,17,21,11,0)="optionally also field 63."
^DD(2005,17,21,12,0)=""
^DD(2005,17,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005,17,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005,17,21,15,0)="Common parent files are:"
^DD(2005,17,21,16,0)=""
^DD(2005,17,21,17,0)="   File    Name"
^DD(2005,17,21,18,0)="   ====    ===="
^DD(2005,17,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005,17,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005,17,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005,17,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005,17,21,23,0)="    63.09: CYTOLOGY"
^DD(2005,17,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005,17,21,25,0)="    74:    RADIOLOGY"
^DD(2005,17,21,26,0)="   130:    SURGERY"
^DD(2005,17,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005,17,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005,17,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005,17,21,30,0)="   694:    HEMATOLOGY"
^DD(2005,17,21,31,0)="   699:    ENDOSCOPY"
^DD(2005,17,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005,17,21,33,0)="  8925:    TIU"
^DD(2005,17,21,34,0)=""
^DD(2005,17,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005,17,21,36,0)="the list of images that belong to that record."
^DD(2005,17,21,37,0)=""
^DD(2005,17,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005,17,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005,17,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005,17,21,41,0)="The entries in these multiples identify the various images"
^DD(2005,17,21,42,0)="that belong with the record in question."
^DD(2005,17,21,43,0)=""
^DD(2005,17,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005,17,21,45,0)=""
^DD(2005,17,21,46,0)=" Type Number     Form of Root"
^DD(2005,17,21,47,0)=" ===========     ============"
^DD(2005,17,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005,17,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005,17,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005,17,21,51,0)=""
^DD(2005,17,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005,17,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005,17,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005,17,21,55,0)="well as D1 (type 3)."
^DD(2005,17,21,56,0)=""
^DD(2005,17,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005,17,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005,17,21,59,0)=""
^DD(2005,17,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005,17,21,61,0)="   ===========   =============================="
^DD(2005,17,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005,17,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005,17,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005,17,21,65,0)=""
^DD(2005,17,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005,17,21,67,0)="value of LRDFN."
^DD(2005,17,"DT")="3011218"
^DD(2005,18,0)="PARENT DATA FILE IMAGE POINTER^NJ12,4^^2;8^K:+X'=X!(X>9999999.9999)!(X<1)!(X?.E1"".""5N.N) X"
^DD(2005,18,3)="Type a Number between 1 and 9999999.9999, 4 Decimal Digits"
^DD(2005,18,21,0)="^^67^67^3001004^^"
^DD(2005,18,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005,18,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005,18,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005,18,21,4,0)=""
^DD(2005,18,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005,18,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005,18,21,7,0)="that describes why the image was collected."
^DD(2005,18,21,8,0)=""
^DD(2005,18,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005,18,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005,18,21,11,0)="optionally also field 63."
^DD(2005,18,21,12,0)=""
^DD(2005,18,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005,18,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005,18,21,15,0)="Common parent files are:"
^DD(2005,18,21,16,0)=""
^DD(2005,18,21,17,0)="   File    Name"
^DD(2005,18,21,18,0)="   ====    ===="
^DD(2005,18,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005,18,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005,18,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005,18,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005,18,21,23,0)="    63.09: CYTOLOGY"
^DD(2005,18,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005,18,21,25,0)="    74:    RADIOLOGY"
^DD(2005,18,21,26,0)="   130:    SURGERY"
^DD(2005,18,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005,18,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005,18,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005,18,21,30,0)="   694:    HEMATOLOGY"
^DD(2005,18,21,31,0)="   699:    ENDOSCOPY"
^DD(2005,18,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005,18,21,33,0)="  8925:    TIU"
^DD(2005,18,21,34,0)=""
^DD(2005,18,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005,18,21,36,0)="the list of images that belong to that record."
^DD(2005,18,21,37,0)=""
^DD(2005,18,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005,18,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005,18,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005,18,21,41,0)="The entries in these multiples identify the various images"
^DD(2005,18,21,42,0)="that belong with the record in question."
^DD(2005,18,21,43,0)=""
^DD(2005,18,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005,18,21,45,0)=""
^DD(2005,18,21,46,0)=" Type Number     Form of Root"
^DD(2005,18,21,47,0)=" ===========     ============"
^DD(2005,18,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005,18,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005,18,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005,18,21,51,0)=""
^DD(2005,18,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005,18,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005,18,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005,18,21,55,0)="well as D1 (type 3)."
^DD(2005,18,21,56,0)=""
^DD(2005,18,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005,18,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005,18,21,59,0)=""
^DD(2005,18,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005,18,21,61,0)="   ===========   =============================="
^DD(2005,18,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005,18,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005,18,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005,18,21,65,0)=""
^DD(2005,18,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005,18,21,67,0)="value of LRDFN."
^DD(2005,18,"DT")="2940504"
^DD(2005,19,0)="EXPORT REQUEST STATUS^S^1:EXPORT REQUESTED;0:EXPORTED;^2;9^Q"
^DD(2005,19,1,0)="^.1"
^DD(2005,19,1,1,0)="2005^AEXPORT^MUMPS"
^DD(2005,19,1,1,1)="I X S ^MAG(2005,""AEXPORT"",DA)="""""
^DD(2005,19,1,1,2)="K ^MAG(2005,""AEXPORT"",DA)"
^DD(2005,19,1,1,3)="IMAGE EXPORT REQUEST"
^DD(2005,19,1,1,"%D",0)="^^4^4^2940527^"
^DD(2005,19,1,1,"%D",1,0)="Used by Multimedia Mail as a signal to request an image to be copied"
^DD(2005,19,1,1,"%D",2,0)="from the image directory to the export directory. The cross-reference"
^DD(2005,19,1,1,"%D",3,0)="is set when the request is made and killed when the image has been"
^DD(2005,19,1,1,"%D",4,0)="copied over for export."
^DD(2005,19,1,1,"DT")="2940102"
^DD(2005,19,3)="USED BY MULTIMEDIA MAIL - REQUEST TO COPY IMAGE"
^DD(2005,19,21,0)="^^4^4^2970721^^^"
^DD(2005,19,21,1,0)="This field is used by Multimedia MailMan when an image needs to be sent to"
^DD(2005,19,21,2,0)="another site.  The Imaging software sets the field automatically, after"
^DD(2005,19,21,3,0)="checking its status.  After the request is carried out, it will be"
^DD(2005,19,21,4,0)="automatically reset."
^DD(2005,19,"DT")="2940102"
^DD(2005,30,0)="DELETED BY^P200'^VA(200,^30;1^Q"
^DD(2005,30,3)="This is system added field.  The Person who deleted the image."
^DD(2005,30,21,0)="^.001^1^1^3040519^^^^"
^DD(2005,30,21,1,0)="This is the person who deleted the image.  It is a pointer to the new person file.  The system uses the DUZ variable to set the field."
^DD(2005,30,"DT")="3040519"
^DD(2005,30.1,0)="DELETED DATE^D^^30;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2005,30.1,3)="This is the date the Image was deleted from the Image File."
^DD(2005,30.1,21,0)="^.001^1^1^3070124^^^^"
^DD(2005,30.1,21,1,0)="This is the date the Image was deleted from the Image File."
^DD(2005,30.1,"DT")="3070124"
^DD(2005,30.2,0)="DELETED REASON^F^^30;3^K:$L(X)>60!($L(X)<10) X"
^DD(2005,30.2,3)="The Reason that the Image was deleted from the Patient record."
^DD(2005,30.2,21,0)="^.001^1^1^3040519^^^^"
^DD(2005,30.2,21,1,0)="This is the Reason that the Image was deleted."
^DD(2005,30.2,"DT")="3040519"
^DD(2005,40,0)="PACKAGE INDEX^S^RAD:RAD;LAB:LAB;MED:MED;NOTE:NOTE;CP:CP;SUR:SUR;PHOTOID:PHOTOID;NONE:NONE;CONS:CONS;^40;1^Q"
^DD(2005,40,3)="The Package associated with the Image"
^DD(2005,40,21,0)="^.001^1^1^3021113^^^^"
^DD(2005,40,21,1,0)="This is an abbreviation of the package that the Image is attached to."
^DD(2005,40,"DT")="3030203"
^DD(2005,41,0)="CLASS INDEX^P2005.82'^MAG(2005.82,^40;2^Q"
^DD(2005,41,3)=""
^DD(2005,41,21,0)="^.001^2^2^3020422^^^"
^DD(2005,41,21,1,0)="The Classification of the Image.  "
^DD(2005,41,21,2,0)="CLASS is an index field used for sorting and searching."
^DD(2005,41,"DT")="3030203"
^DD(2005,42,0)="TYPE INDEX^P2005.83'^MAG(2005.83,^40;3^Q"
^DD(2005,42,21,0)="^.001^1^1^3020201^^"
^DD(2005,42,21,1,0)="The TYPE of Image.  TYPE is an index field used for sorting and searching."
^DD(2005,42,"DT")="3030203"
^DD(2005,43,0)="PROC/EVENT INDEX^P2005.85'^MAG(2005.85,^40;4^Q"
^DD(2005,43,21,0)="^.001^1^1^3020201^^"
^DD(2005,43,21,1,0)="The PROCEDURE/EVENT of Image.  PROCEDURE/EVENT is an index field used for sorting and searching."
^DD(2005,43,"DT")="3030203"
^DD(2005,44,0)="SPEC/SUBSPEC INDEX^P2005.84'^MAG(2005.84,^40;5^Q"
^DD(2005,44,21,0)="^.001^2^2^3020201^^"
^DD(2005,44,21,1,0)="The SPECIALTY/SUBSPECIALTY of Image."
^DD(2005,44,21,2,0)="  SPECIALTY/SUBSPECIALTY is an index field used for sorting and searching."
^DD(2005,44,"DT")="3030203"
^DD(2005,45,0)="ORIGIN INDEX^S^V:VA;N:NON-VA;D:DOD;F:FEE;^40;6^Q"
^DD(2005,45,21,0)="^.001^2^2^3040929^^^"
^DD(2005,45,21,1,0)="This field indicates whether this image originated inside or outside of "
^DD(2005,45,21,2,0)="VA."
^DD(2005,45,"DT")="3040917"
^DD(2005,50,0)="PATH ACCESSION NUMBER^F^^PATH;1^K:$L(X)>9!($L(X)<5) X"
^DD(2005,50,3)="Answer must be 5-9 characters in length."
^DD(2005,50,21,0)="^^2^2^2970721^^^^"
^DD(2005,50,21,1,0)="This is the Anatomic Pathology accession number - the identifying number"
^DD(2005,50,21,2,0)="for the slide."
^DD(2005,50,"DT")="2930211"
^DD(2005,51,0)="SPECIMEN DESCRIPTION^F^^PATH;2^K:$L(X)>30!($L(X)<3) X"
^DD(2005,51,3)="Answer must be 3-30 characters in length."
^DD(2005,51,21,0)="^^2^2^2970721^^^^"
^DD(2005,51,21,1,0)="This is the description given to the specimen in the Lab Data file - the"
^DD(2005,51,21,2,0)="information is carried over and stuffed into the Image file."
^DD(2005,51,"DT")="2930709"
^DD(2005,52,0)="SPECIMEN#^NJ2,0^^PATH;3^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005,52,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(2005,52,21,0)="^^1^1^2970721^^^^"
^DD(2005,52,21,1,0)="This is the specimen number of the slide given in the Lab Data file."
^DD(2005,52,"DT")="2930216"
^DD(2005,53,0)="STAIN^F^^PATH;4^K:$L(X)>30!($L(X)<2) X"
^DD(2005,53,3)="Answer must be 2-30 characters in length."
^DD(2005,53,21,0)="^^3^3^2970721^"
^DD(2005,53,21,1,0)="Free text description of the Histological Stain. It is the stain used in"
^DD(2005,53,21,2,0)="the preparation of the specimen and is chosen by the pathologist from the"
^DD(2005,53,21,3,0)="Histological Stain file list."
^DD(2005,53,"DT")="2970414"
^DD(2005,54,0)="MICROSCOPIC OBJECTIVE^F^^PATH;5^K:$L(X)>10!($L(X)<1) X"
^DD(2005,54,3)="Answer must be 1-10 characters in length."
^DD(2005,54,21,0)="^^3^3^2970721^"
^DD(2005,54,21,1,0)="Free text description of the Microscopic Objective selected by the"
^DD(2005,54,21,2,0)="pathologist. It identifies the power of the microscope objective used"
^DD(2005,54,21,3,0)="when capturing the image of the slide."
^DD(2005,54,"DT")="2970414"
^DD(2005,60,0)="PACS UID^F^^PACS;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>64!($L(X)<1) X"
^DD(2005,60,1,0)="^.1"
^DD(2005,60,1,1,0)="2005^P"
^DD(2005,60,1,1,1)="S ^MAG(2005,""P"",X,DA)="""""
^DD(2005,60,1,1,2)="K ^MAG(2005,""P"",X,DA)"
^DD(2005,60,1,1,3)="PACS UNIVERSAL IDENTIFIER"
^DD(2005,60,1,1,"%D",0)="^^5^5^3001024^^"
^DD(2005,60,1,1,"%D",1,0)="This cross reference is set by images captured from VistA Imaging DICOM"
^DD(2005,60,1,1,"%D",2,0)="Gateways. The cross reference is set to the Study Instance UID (0020,000D) for"
^DD(2005,60,1,1,"%D",3,0)="a Group Entry, and the SOP Instance UID (0008,0018), or Image UID, for an Image"
^DD(2005,60,1,1,"%D",4,0)="Entry.  (These values are set in ^MAGDIR2A and ^MAGDIR2B, respectively.)"
^DD(2005,60,1,1,"%D",5,0)=""
^DD(2005,60,1,1,"DT")="2930615"
^DD(2005,60,3)="Answer must be 1-64 characters in length."
^DD(2005,60,21,0)="^^2^2^3001107^^"
^DD(2005,60,21,1,0)="This field is used by the VISTA-PACS interface and is the unique (up to) 64"
^DD(2005,60,21,2,0)="character image identifier of the PACS image."
^DD(2005,60,"DT")="3001107"
^DD(2005,61,0)="RADIOLOGY REPORT^P74'^RARPT(^PACS;2^Q"
^DD(2005,61,21,0)="^^2^2^2970721^^^"
^DD(2005,61,21,1,0)="Pointer to Radiology Report file used by the PACS interface to tie the"
^DD(2005,61,21,2,0)="image to the correct radiology report."
^DD(2005,61,"DT")="2930615"
^DD(2005,62,0)="PACS PROCEDURE^P71'^RAMIS(71,^PACS;3^Q"
^DD(2005,62,3)="RADIOLOGICAL PROCEDURE"
^DD(2005,62,21,0)="^^3^3^2981112^^^"
^DD(2005,62,21,1,0)="This field is used by the VistA-PACS interface and is a backwards pointer"
^DD(2005,62,21,2,0)="to the Radiology Reports file with which this radiological image is"
^DD(2005,62,21,3,0)="associated."
^DD(2005,62,"DT")="2930708"
^DD(2005,63,0)="PARENT GLOBAL ROOT D1^NJ9,0^^2;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005,63,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2005,63,21,0)="^.001^67^67^3001025^^^"
^DD(2005,63,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005,63,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005,63,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005,63,21,4,0)=""
^DD(2005,63,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005,63,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005,63,21,7,0)="that describes why the image was collected."
^DD(2005,63,21,8,0)=""
^DD(2005,63,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005,63,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005,63,21,11,0)="optionally also field 63."
^DD(2005,63,21,12,0)=""
^DD(2005,63,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005,63,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005,63,21,15,0)="Common parent files are:"
^DD(2005,63,21,16,0)=""
^DD(2005,63,21,17,0)="   File    Name"
^DD(2005,63,21,18,0)="   ====    ===="
^DD(2005,63,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005,63,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005,63,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005,63,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005,63,21,23,0)="    63.09: CYTOLOGY"
^DD(2005,63,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005,63,21,25,0)="    74:    RADIOLOGY"
^DD(2005,63,21,26,0)="   130:    SURGERY"
^DD(2005,63,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005,63,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005,63,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005,63,21,30,0)="   694:    HEMATOLOGY"
^DD(2005,63,21,31,0)="   699:    ENDOSCOPY"
^DD(2005,63,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005,63,21,33,0)="  8925:    TIU"
^DD(2005,63,21,34,0)=""
^DD(2005,63,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005,63,21,36,0)="the list of images that belong to that record."
^DD(2005,63,21,37,0)=""
^DD(2005,63,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005,63,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005,63,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005,63,21,41,0)="The entries in these multiples identify the various images"
^DD(2005,63,21,42,0)="that belong with the record in question."
^DD(2005,63,21,43,0)=""
^DD(2005,63,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005,63,21,45,0)=""
^DD(2005,63,21,46,0)=" Type Number     Form of Root"
^DD(2005,63,21,47,0)=" ===========     ============"
^DD(2005,63,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005,63,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005,63,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005,63,21,51,0)=""
^DD(2005,63,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005,63,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005,63,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005,63,21,55,0)="well as D1 (type 3)."
^DD(2005,63,21,56,0)=""
^DD(2005,63,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005,63,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005,63,21,59,0)=""
^DD(2005,63,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005,63,21,61,0)="   ===========   =============================="
^DD(2005,63,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005,63,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005,63,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005,63,21,65,0)=""
^DD(2005,63,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005,63,21,67,0)="value of LRDFN."
^DD(2005,63,"DT")="2950316"
^DD(2005,64,0)="PARENT ASSOCIATION DATE^D^^2;11^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2005,64,3)="(No range limit on date)"
^DD(2005,64,21,0)="^.001^2^2^3051222^^^^"
^DD(2005,64,21,1,0)="This is the Date that the Document/Image was associated with the "
^DD(2005,64,21,2,0)="Parent Data File. Field # 16"
^DD(2005,64,"DT")="3051222"
^DD(2005,100,0)="DESCRIPTIVE CATEGORY^P2005.81'^MAG(2005.81,^100;1^Q"
^DD(2005,100,3)="Enter the Category of the Image."
^DD(2005,100,21,0)="^^2^2^3000314^^"
^DD(2005,100,21,1,0)="This is mainly for Document Imaging, it further describes the type of"
^DD(2005,100,21,2,0)="document image."
^DD(2005,100,"DT")="2950714"
^DD(2005,101,0)="CLINIC^P44'^SC(^100;2^Q"
^DD(2005,101,3)="This is a pointer to the hospital location file."
^DD(2005,101,21,0)="^^4^4^3000314^^"
^DD(2005,101,21,1,0)="Points to the Hospital location file and will be used mainly for document"
^DD(2005,101,21,2,0)="images. If an image is associated with a patient encounter (visit), this"
^DD(2005,101,21,3,0)="is the clinic they had (will have) the appointment.  The appointment"
^DD(2005,101,21,4,0)="date/time is in field #15, PROCEDURE/EXAM DATE/TIME."
^DD(2005,101,"DT")="2960710"
^DD(2005,102,0)="BIG MAGNETIC PATH^P2005.2'^MAG(2005.2,^FBIG;1^Q"
^DD(2005,102,3)="This is the BIG file, i.e. the 2k by 2k Radiology image"
^DD(2005,102,21,0)="^^2^2^2980504^^^"
^DD(2005,102,21,1,0)="Full file path description for Image file of .BIG file types."
^DD(2005,102,21,2,0)="This field will indicate on which magnetic server this file resides."
^DD(2005,102,"DT")="2980505"
^DD(2005,103,0)="BIG JUKEBOX PATH^P2005.2'^MAG(2005.2,^FBIG;2^Q"
^DD(2005,103,3)="The JukeBox location of the BIG file. (the 2k by 2k Rad image)"
^DD(2005,103,21,0)="^^2^2^2980504^"
^DD(2005,103,21,1,0)="Full file path on jukebox for images of .BIG file extension.  This field"
^DD(2005,103,21,2,0)="will indicate whether this file is located on the Jukebox."
^DD(2005,103,"DT")="2980505"
^DD(2005,104,0)="RESERVED(BIG)^F^^FBIG;3^K:$L(X)>30!($L(X)<3) X"
^DD(2005,104,3)="Answer must be 3-30 characters in length."
^DD(2005,104,21,0)="^^1^1^2980504^"
^DD(2005,104,21,1,0)="Reserved for future use."
^DD(2005,104,"DT")="2980506"
^DD(2005,106,0)="ROUTING TIMESTAMP^2005.0106DA^^4;0"
^DD(2005,106,21,0)="^.001^1^1^3001005^^^^"
^DD(2005,106,21,1,0)="This field keeps track of any routing activity."
^DD(2005,106,"DT")="3030220"
^DD(2005,107,0)="ACQUISITION DEVICE^P2006.04^MAG(2006.04,^100;4^Q"
^DD(2005,107,3)="Enter the device that performed the Image Acquisition."
^DD(2005,107,"DT")="3010114"
^DD(2005,108,0)="TRACKING ID^F^^100;5^K:$L(X)>30!($L(X)<3) X"
^DD(2005,108,1,0)="^.1"
^DD(2005,108,1,1,0)="2005^ATRKID"
^DD(2005,108,1,1,1)="S ^MAG(2005,""ATRKID"",$E(X,1,30),DA)="""""
^DD(2005,108,1,1,2)="K ^MAG(2005,""ATRKID"",$E(X,1,30),DA)"
^DD(2005,108,1,1,"%D",0)="^^3^3^3010312^"
^DD(2005,108,1,1,"%D",1,0)="Cross reference of images imported using the Import API.  TrkID is "
^DD(2005,108,1,1,"%D",2,0)="a unique identifier of the package, or OTS Application that initiated"
^DD(2005,108,1,1,"%D",3,0)="the Import using Imagings Import API. ( silent call)"
^DD(2005,108,1,1,"DT")="3010312"
^DD(2005,108,3)="Package ID that performed the Import "";"" Internal package identifier"
^DD(2005,108,21,0)="^^4^4^3010114^"
^DD(2005,108,21,1,0)="This field tracks the packages that are using the Import API."
^DD(2005,108,21,2,0)="It is an "";"" (semicolon) delimited free text field.  "
^DD(2005,108,21,3,0)="First piece is the Package ID that performed the Import "
^DD(2005,108,21,4,0)="Second piece is the Internal package identifier"
^DD(2005,108,"DT")="3010312"
^DD(2005,109,0)="CREATE METHOD^F^^METHOD;1^K:$L(X)>245!($L(X)<3) X"
^DD(2005,109,3)="This field holds the command that either has created the image(s), or will dynamically access the Image from the Display GUI."
^DD(2005,109,21,0)="^^5^5^3010130^"
^DD(2005,109,21,1,0)="This field holds the command that either"
^DD(2005,109,21,2,0)="   has created the image(s)"
^DD(2005,109,21,3,0)="   or will dynamically access the Image when called from the Display GUI"
^DD(2005,109,21,4,0)="an example is a DLL provided by a COTS product."
^DD(2005,109,21,5,0)="When the DLL is called, it generates the image."
^DD(2005,109,"DT")="3010130"
^DD(2005,110,0)="CREATION DATE^D^^100;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2005,110,3)="If this image is a scanned document, enter the date of the document.  For Radiology Images it is the Acquisition Date"
^DD(2005,110,21,0)="^.001^4^4^3070206^^^^"
^DD(2005,110,21,1,0)=" Scanned Documents and Images can have a date that is different"
^DD(2005,110,21,2,0)=" than the date of the associated procedure.  This is the Date of the "
^DD(2005,110,21,3,0)=" Document or Image."
^DD(2005,110,21,4,0)=" For Radiology/Dicom images this is the Acquisition Date"
^DD(2005,110,23,0)="^.001^4^4^3070206^^"
^DD(2005,110,23,1,0)="Date Time that the Image was created."
^DD(2005,110,23,2,0)="For Documents this is usually the date the Document was signed"
^DD(2005,110,23,3,0)="  or the Date the Document was transcribed."
^DD(2005,110,23,4,0)="For Radiology/Dicom Images, this is the Acquisition Date"
^DD(2005,110,"DT")="3070125"
^DD(2005,111,0)="ROUTING LOG^2005.0111A^^6;0"
^DD(2005,210,0)="PRESENTATION STATE^2005.05A^^210;0"
^DD(2005,210,21,0)="^.001^2^2^3050608^^^^"
^DD(2005,210,21,1,0)="Image Presentation state data stored below; this is free-text in XML format."
^DD(2005,210,21,2,0)="Annotations are included in this data."
^DD(2005,210,"DT")="3040707"
^DD(2005,251,0)="DICOM SOP CLASS^P2006.532'^MAG(2006.532,^SOP;1^Q"
^DD(2005,251,3)="Identify the SOP Class that was used to acquire this image."
^DD(2005,251,21,0)="^^2^2^3050111^"
^DD(2005,251,21,1,0)="The value of this field is a pointer. The pointed to record"
^DD(2005,251,21,2,0)="identifies the DICOM SOP Class that was used to acquire this image."
^DD(2005,251,"DT")="3050111"
^DD(2005,252,0)="NEW SOP INSTANCE UID^F^^SOP;2^K:$L(X)>64!($L(X)<1)!'($TR(X,""1234567890."")="""") X"
^DD(2005,252,3)="Enter the VA's new SOP instance UID for the corrected image."
^DD(2005,252,21,0)="^^8^8^3041109^"
^DD(2005,252,21,1,0)="The value of this field is a string that represents a DICOM UID."
^DD(2005,252,21,2,0)="The DICOM standard defines the format of a UID: a string containing"
^DD(2005,252,21,3,0)="only digits and periods that does not exceed a length of 64 characters."
^DD(2005,252,21,4,0)="This field is populated when a corrected version of an image"
^DD(2005,252,21,5,0)="is exported, and the corrections are of such a nature that"
^DD(2005,252,21,6,0)="the image cannot be exported with its original SOP Instance UID."
^DD(2005,252,21,7,0)="Note that this UID value is assigned by VA software, and thus"
^DD(2005,252,21,8,0)="will always start with the characters ""1.2.840.113754.""."
^DD(2005,252,"DT")="3041109"
^DD(2005,253,0)="SERIES UID^F^^SERIESUID;1^K:$L(X)>64!($L(X)<1)!'(X?1.64(1N,1""."")) X"
^DD(2005,253,1,0)="^.1^^0"
^DD(2005,253,3)="Enter the Series UID for the current image."
^DD(2005,253,21,0)="^.001^5^5^3050712^^"
^DD(2005,253,21,1,0)="The value of this field is a DICOM unique identifier for"
^DD(2005,253,21,2,0)="the series to which an image belongs."
^DD(2005,253,21,3,0)="A DICOM UID looks like a series of digits and periods,"
^DD(2005,253,21,4,0)="is not longer than 64 characters, starts and ends with a digit"
^DD(2005,253,21,5,0)="and never has two consecutive periods."
^DD(2005,253,"DT")="3050803"
^DD(2005,"B","ACQUISITION DEVICE",107)=""
^DD(2005,"B","ACQUISITION SITE",.05)=""
^DD(2005,"B","BIG JUKEBOX PATH",103)=""
^DD(2005,"B","BIG MAGNETIC PATH",102)=""
^DD(2005,"B","CLASS INDEX",41)=""
^DD(2005,"B","CLINIC",101)=""
^DD(2005,"B","CREATE METHOD",109)=""
^DD(2005,"B","CREATION DATE",110)=""
^DD(2005,"B","DATE/TIME IMAGE SAVED",7)=""
^DD(2005,"B","DELETED BY",30)=""
^DD(2005,"B","DELETED DATE",30.1)=""
^DD(2005,"B","DELETED REASON",30.2)=""
^DD(2005,"B","DESCRIPTIVE CATEGORY",100)=""
^DD(2005,"B","DICOM SOP CLASS",251)=""
^DD(2005,"B","DISK & VOLUME, ABSTRACT",2.1)=""
^DD(2005,"B","DISK & VOLUME, MAGNETIC",2)=""
^DD(2005,"B","DISK & VOLUME, WORM",2.2)=""
^DD(2005,"B","DUPE",13.5)=""
^DD(2005,"B","EXPORT LOCATION",.06)=""
^DD(2005,"B","EXPORT REQUEST STATUS",19)=""
^DD(2005,"B","FILEREF",1)=""
^DD(2005,"B","GROUP PARENT",14)=""
^DD(2005,"B","IMAGE SAVE BY",8)=""
^DD(2005,"B","IQ",13)=""
^DD(2005,"B","LAST ACCESS DATE",12)=""
^DD(2005,"B","LONG DESCRIPTION",11)=""
^DD(2005,"B","MICROSCOPIC OBJECTIVE",54)=""
^DD(2005,"B","NEW SOP INSTANCE UID",252)=""
^DD(2005,"B","NUMBER",.001)=""
^DD(2005,"B","OBJECT GROUP",4)=""
^DD(2005,"B","OBJECT NAME",.01)=""
^DD(2005,"B","OBJECT TYPE",3)=""
^DD(2005,"B","ORIGIN INDEX",45)=""
^DD(2005,"B","PACKAGE INDEX",40)=""
^DD(2005,"B","PACS PROCEDURE",62)=""
^DD(2005,"B","PACS UID",60)=""
^DD(2005,"B","PARENT ASSOCIATION DATE",64)=""
^DD(2005,"B","PARENT DATA FILE IMAGE POINTER",18)=""
^DD(2005,"B","PARENT DATA FILE#",16)=""
^DD(2005,"B","PARENT GLOBAL ROOT D0",17)=""
^DD(2005,"B","PARENT GLOBAL ROOT D1",63)=""
^DD(2005,"B","PATH ACCESSION NUMBER",50)=""
^DD(2005,"B","PATIENT",5)=""
^DD(2005,"B","PRESENTATION STATE",210)=""
^DD(2005,"B","PROC/EVENT INDEX",43)=""
^DD(2005,"B","PROCEDURE",6)=""
^DD(2005,"B","PROCEDURE/EXAM DATE/TIME",15)=""
^DD(2005,"B","RADIOLOGY REPORT",61)=""
^DD(2005,"B","RESERVED(BIG)",104)=""
^DD(2005,"B","ROUTING LOG",111)=""
^DD(2005,"B","ROUTING TIMESTAMP",106)=""
^DD(2005,"B","SERIES UID",253)=""
^DD(2005,"B","SHORT DESCRIPTION",10)=""
^DD(2005,"B","SPEC/SUBSPEC INDEX",44)=""
^DD(2005,"B","SPECIMEN DESCRIPTION",51)=""
^DD(2005,"B","SPECIMEN#",52)=""
^DD(2005,"B","STAIN",53)=""
^DD(2005,"B","SUMMARY OBJECT",9)=""
^DD(2005,"B","TRACKING ID",108)=""
^DD(2005,"B","TYPE INDEX",42)=""
^DD(2005,"GL",0,1,.01)=""
^DD(2005,"GL",0,2,1)=""
^DD(2005,"GL",0,3,2)=""
^DD(2005,"GL",0,4,2.1)=""
^DD(2005,"GL",0,5,2.2)=""
^DD(2005,"GL",0,6,3)=""
^DD(2005,"GL",0,7,5)=""
^DD(2005,"GL",0,8,6)=""
^DD(2005,"GL",0,9,12)=""
^DD(2005,"GL",0,10,14)=""
^DD(2005,"GL",0,11,13)=""
^DD(2005,"GL",0,12,13.5)=""
^DD(2005,"GL",1,0,4)=""
^DD(2005,"GL",2,1,7)=""
^DD(2005,"GL",2,2,8)=""
^DD(2005,"GL",2,3,9)=""
^DD(2005,"GL",2,4,10)=""
^DD(2005,"GL",2,5,15)=""
^DD(2005,"GL",2,6,16)=""
^DD(2005,"GL",2,7,17)=""
^DD(2005,"GL",2,8,18)=""
^DD(2005,"GL",2,9,19)=""
^DD(2005,"GL",2,10,63)=""
^DD(2005,"GL",2,11,64)=""
^DD(2005,"GL",3,0,11)=""
^DD(2005,"GL",4,0,106)=""
^DD(2005,"GL",5,0,.06)=""
^DD(2005,"GL",6,0,111)=""
^DD(2005,"GL",30,1,30)=""
^DD(2005,"GL",30,2,30.1)=""
^DD(2005,"GL",30,3,30.2)=""
^DD(2005,"GL",40,1,40)=""
^DD(2005,"GL",40,2,41)=""
^DD(2005,"GL",40,3,42)=""
^DD(2005,"GL",40,4,43)=""
^DD(2005,"GL",40,5,44)=""
^DD(2005,"GL",40,6,45)=""
^DD(2005,"GL",100,1,100)=""
^DD(2005,"GL",100,2,101)=""
^DD(2005,"GL",100,3,.05)=""
^DD(2005,"GL",100,4,107)=""
^DD(2005,"GL",100,5,108)=""
^DD(2005,"GL",100,6,110)=""
^DD(2005,"GL",210,0,210)=""
^DD(2005,"GL","FBIG",1,102)=""
^DD(2005,"GL","FBIG",2,103)=""
^DD(2005,"GL","FBIG",3,104)=""
^DD(2005,"GL","METHOD",1,109)=""
^DD(2005,"GL","PACS",1,60)=""
^DD(2005,"GL","PACS",2,61)=""
^DD(2005,"GL","PACS",3,62)=""
^DD(2005,"GL","PATH",1,50)=""
^DD(2005,"GL","PATH",2,51)=""
^DD(2005,"GL","PATH",3,52)=""
^DD(2005,"GL","PATH",4,53)=""
^DD(2005,"GL","PATH",5,54)=""
^DD(2005,"GL","SERIESUID",1,253)=""
^DD(2005,"GL","SOP",1,251)=""
^DD(2005,"GL","SOP",2,252)=""
^DD(2005,"IX",.01)=""
^DD(2005,"IX",5)=""
^DD(2005,"IX",6)=""
^DD(2005,"IX",13)=""
^DD(2005,"IX",15)=""
^DD(2005,"IX",19)=""
^DD(2005,"IX",60)=""
^DD(2005,"IX",108)=""
^DD(2005,"RQ",.01)=""
^DD(2005,"RQ",.05)=""
^DD(2005,"SB",2005.01,.06)=""
^DD(2005,"SB",2005.0106,106)=""
^DD(2005,"SB",2005.011,11)=""
^DD(2005,"SB",2005.0111,111)=""
^DD(2005,"SB",2005.04,4)=""
^DD(2005,"SB",2005.05,210)=""
^DD(2005.001,0)="FIELD^^2^4"
^DD(2005.001,0,"DDA")="N"
^DD(2005.001,0,"DT")="3050930"
^DD(2005.001,0,"IX","B",2005.001,.01)=""
^DD(2005.001,0,"NM","IMAGING STUDY")=""
^DD(2005.001,0,"VR")="3.0"
^DD(2005.001,0,"VRPK")="MAG"
^DD(2005.001,.01,0)="PARENT GLOBAL ROOT D0^RNJ10,0^^0;1^K:+X'=X!(X>9999999999.9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005.001,.01,1,0)="^.1"
^DD(2005.001,.01,1,1,0)="2005.001^B"
^DD(2005.001,.01,1,1,1)="S ^MAG(2005.001,""B"",$E(X,1,30),DA)="""""
^DD(2005.001,.01,1,1,2)="K ^MAG(2005.001,""B"",$E(X,1,30),DA)"
^DD(2005.001,.01,3)="Type a Number between 1 and 9999999999.9999, 0 Decimal Digits"
^DD(2005.001,.01,21,0)="^.001^2^2^3050926^^^^"
^DD(2005.001,.01,21,1,0)="This node is where Study level data can be stored, e.g. Key"
^DD(2005.001,.01,21,2,0)="Images."
^DD(2005.001,.01,"DT")="3051011"
^DD(2005.001,1,0)="PARENT DATA FILE#^RP2005.03'^MAG(2005.03,^0;2^Q"
^DD(2005.001,1,1,0)="^.1^^0"
^DD(2005.001,1,3)="Enter the Parent Report file (or sub-file) number."
^DD(2005.001,1,21,0)="^.001^1^1^3050926^^^^"
^DD(2005.001,1,21,1,0)="The Parent Report file (or sub-file) number."
^DD(2005.001,1,"DT")="3051011"
^DD(2005.001,2,0)="PARENT GLOBAL ROOT D1^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.001,2,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2005.001,2,"DT")="3050926"
^DD(2005.001,5,0)="INTERPRETATION IMAGES^2005.031P^^1;0"
^DD(2005.001,5,21,0)="^.001^3^3^3050930^^^^"
^DD(2005.001,5,21,1,0)="This node contains a list of images that were referenced during"
^DD(2005.001,5,21,2,0)="the Exam Interpretation either by annotations, or by designation"
^DD(2005.001,5,21,3,0)="as KEY images."
^DD(2005.001,5,"DT")="3050920"
^DD(2005.001,"B","INTERPRETATION IMAGES",5)=""
^DD(2005.001,"B","PARENT DATA FILE#",1)=""
^DD(2005.001,"B","PARENT GLOBAL ROOT D0",.01)=""
^DD(2005.001,"B","PARENT GLOBAL ROOT D1",2)=""
^DD(2005.001,"GL",0,1,.01)=""
^DD(2005.001,"GL",0,2,1)=""
^DD(2005.001,"GL",0,3,2)=""
^DD(2005.001,"GL",1,0,5)=""
^DD(2005.001,"IX",.01)=""
^DD(2005.001,"RQ",.01)=""
^DD(2005.001,"RQ",1)=""
^DD(2005.001,"SB",2005.031,5)=""
^DD(2005.01,0)="EXPORT LOCATION SUB-FIELD^^2^3"
^DD(2005.01,0,"DT")="3011129"
^DD(2005.01,0,"IX","B",2005.01,.01)=""
^DD(2005.01,0,"NM","EXPORT LOCATION")=""
^DD(2005.01,0,"UP")="2005"
^DD(2005.01,.01,0)="EXPORT LOCATION^P2005.2'^MAG(2005.2,^0;1^Q"
^DD(2005.01,.01,1,0)="^.1"
^DD(2005.01,.01,1,1,0)="2005.01^B"
^DD(2005.01,.01,1,1,1)="S ^MAG(2005,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(2005.01,.01,1,1,2)="K ^MAG(2005,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(2005.01,.01,21,0)="^^2^2^3011213^"
^DD(2005.01,.01,21,1,0)="This is the network location file pointer that successfully received"
^DD(2005.01,.01,21,2,0)="a copy of the file."
^DD(2005.01,.01,"DT")="3011128"
^DD(2005.01,1,0)="TIMESTAMP^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.01,1,21,0)="^^2^2^3011213^"
^DD(2005.01,1,21,1,0)="This is the date and time that the file was copied to the"
^DD(2005.01,1,21,2,0)="network location."
^DD(2005.01,1,"DT")="3011128"
^DD(2005.01,2,0)="EXTENSION^F^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(2005.01,2,3)="Answer must be 3 characters in length."
^DD(2005.01,2,21,0)="^^2^2^3011213^"
^DD(2005.01,2,21,1,0)="This is the file extension that was successfully copied to the "
^DD(2005.01,2,21,2,0)="network location."
^DD(2005.01,2,"DT")="3011129"
^DD(2005.01,"B","EXPORT LOCATION",.01)=""
^DD(2005.01,"B","EXTENSION",2)=""
^DD(2005.01,"B","TIMESTAMP",1)=""
^DD(2005.01,"GL",0,1,.01)=""
^DD(2005.01,"GL",0,2,1)=""
^DD(2005.01,"GL",0,3,2)=""
^DD(2005.01,"IX",.01)=""
^DD(2005.0106,0)="ROUTING TIMESTAMP SUB-FIELD^^7^7"
^DD(2005.0106,0,"DT")="2981208"
^DD(2005.0106,0,"IX","LOC",2005.0106,2)=""
^DD(2005.0106,0,"NM","ROUTING TIMESTAMP")=""
^DD(2005.0106,0,"UP")="2005"
^DD(2005.0106,.01,0)="ROUTING TIMESTAMP^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.0106,.01,1,0)="^.1^^0"
^DD(2005.0106,.01,3)="Enter the date and time when the image file was 'routed'."
^DD(2005.0106,.01,21,0)="^^6^6^2981208^"
^DD(2005.0106,.01,21,1,0)="This field keeps track of any routing activity."
^DD(2005.0106,.01,21,2,0)="For each time that an image file is transmitted in the context"
^DD(2005.0106,.01,21,3,0)="of 'routing', an entry will be added to this multiple that"
^DD(2005.0106,.01,21,4,0)="records which type of image file was transmitted (FULL, BIG,"
^DD(2005.0106,.01,21,5,0)="ABSTRACT, etcetera), and to which destination (pointer to"
^DD(2005.0106,.01,21,6,0)="network location) it was transmitted."
^DD(2005.0106,.01,"DT")="3030220"
^DD(2005.0106,2,0)="DESTINATION^RP2005.2'^MAG(2005.2,^0;2^Q"
^DD(2005.0106,2,.1)=""
^DD(2005.0106,2,1,0)="^.1^^-1"
^DD(2005.0106,2,1,1,0)="2005.0106^LOC"
^DD(2005.0106,2,1,1,1)="S ^MAG(2005,DA(1),4,""LOC"",$E(X,1,30),DA)="""""
^DD(2005.0106,2,1,1,2)="K ^MAG(2005,DA(1),4,""LOC"",$E(X,1,30),DA)"
^DD(2005.0106,2,1,1,"%D",0)="^^3^3^2981222^"
^DD(2005.0106,2,1,1,"%D",1,0)="This cross-reference keeps track of which destinations"
^DD(2005.0106,2,1,1,"%D",2,0)="(network locations) have received image files from the"
^DD(2005.0106,2,1,1,"%D",3,0)="current system."
^DD(2005.0106,2,1,1,"DT")="2981222"
^DD(2005.0106,2,3)="Enter the destination to which the image file was transmitted."
^DD(2005.0106,2,21,0)="^^3^3^2981221^^^"
^DD(2005.0106,2,21,1,0)="The value of this field is a pointer (into the network location file)"
^DD(2005.0106,2,21,2,0)="that indicated where an image file was sent in the context of"
^DD(2005.0106,2,21,3,0)="automated routing."
^DD(2005.0106,2,"DT")="3030220"
^DD(2005.0106,3,0)="TYPE^RS^FULL:Full;ABSTRACT:Abstract;BIG:Big;TEXT:Text;DICOM:DICOM;^0;3^Q"
^DD(2005.0106,3,3)="Enter the type of image file that was transmitted."
^DD(2005.0106,3,21,0)="^^2^2^2981221^^"
^DD(2005.0106,3,21,1,0)="The value of this field indicates what type of image file"
^DD(2005.0106,3,21,2,0)="was transmitted (FULL, BIG, TEXT, DICOM or ABSTRACT)."
^DD(2005.0106,3,"DT")="3030220"
^DD(2005.0106,4,0)="FILENAME^RF^^0;4^K:$L(X)>100!($L(X)<1) X"
^DD(2005.0106,4,3)="Enter the name of the transmitted file (path+name at destination)."
^DD(2005.0106,4,21,0)="^^3^3^2981221^^"
^DD(2005.0106,4,21,1,0)="The value of this field is the name of the transmitted file as"
^DD(2005.0106,4,21,2,0)="it is at the destination location. This file name contains all"
^DD(2005.0106,4,21,3,0)="directory prefixes and a 'type' suffix."
^DD(2005.0106,4,"DT")="3030220"
^DD(2005.0106,5,0)="START TRANSMIT^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.0106,5,3)="Enter the time that the transmission started."
^DD(2005.0106,5,21,0)="^^6^6^3031211^"
^DD(2005.0106,5,21,1,0)="The value of this field is a timestamp that indicates the"
^DD(2005.0106,5,21,2,0)="date and time when the transmission of a file started."
^DD(2005.0106,5,21,3,0)=" "
^DD(2005.0106,5,21,4,0)="Together with the value of the field ROUTING TIMESTAMP,"
^DD(2005.0106,5,21,5,0)="which indicates the time when the transmission completed,"
^DD(2005.0106,5,21,6,0)="statistics can be calculated on how long it took to transmit image files."
^DD(2005.0106,5,"DT")="3031211"
^DD(2005.0106,6,0)="TIMESTAMP QUEUE ENTRY^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.0106,6,3)="Enter the time when the queue-entry was made."
^DD(2005.0106,6,21,0)="^^6^6^3031211^"
^DD(2005.0106,6,21,1,0)="The value of this field is a timestamp that indicates the"
^DD(2005.0106,6,21,2,0)="date and time when the entry was made into the routing queue."
^DD(2005.0106,6,21,3,0)=" "
^DD(2005.0106,6,21,4,0)="Together with the value of the field START TRANSMIT,"
^DD(2005.0106,6,21,5,0)="which indicates when the transmission started, statistics"
^DD(2005.0106,6,21,6,0)="can be calculated related to wait times in the routing queue."
^DD(2005.0106,6,"DT")="3031211"
^DD(2005.0106,7,0)="LOG ENTRY^NJ15,0^^0;7^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.0106,7,3)="Enter the sequence number of the ""permanent"" log entry."
^DD(2005.0106,7,21,0)="^^6^6^3031211^"
^DD(2005.0106,7,21,1,0)="The value of this field is an integer number that indicates"
^DD(2005.0106,7,21,2,0)="the entry in the ""permanent"" log of all routed copies of the"
^DD(2005.0106,7,21,3,0)="current image (as required by HIPAA)."
^DD(2005.0106,7,21,4,0)=" "
^DD(2005.0106,7,21,5,0)="This value is used to record when images are purged from their"
^DD(2005.0106,7,21,6,0)="routed destination."
^DD(2005.0106,7,"DT")="3031211"
^DD(2005.0106,"B","DESTINATION",2)=""
^DD(2005.0106,"B","FILENAME",4)=""
^DD(2005.0106,"B","LOG ENTRY",7)=""
^DD(2005.0106,"B","ROUTING TIMESTAMP",.01)=""
^DD(2005.0106,"B","START TRANSMIT",5)=""
^DD(2005.0106,"B","TIMESTAMP QUEUE ENTRY",6)=""
^DD(2005.0106,"B","TYPE",3)=""
^DD(2005.0106,"GL",0,1,.01)=""
^DD(2005.0106,"GL",0,2,2)=""
^DD(2005.0106,"GL",0,3,3)=""
^DD(2005.0106,"GL",0,4,4)=""
^DD(2005.0106,"GL",0,5,5)=""
^DD(2005.0106,"GL",0,6,6)=""
^DD(2005.0106,"GL",0,7,7)=""
^DD(2005.0106,"IX",2)=""
^DD(2005.0106,"RQ",2)=""
^DD(2005.0106,"RQ",3)=""
^DD(2005.0106,"RQ",4)=""
^DD(2005.011,0)="LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(2005.011,0,"DT")="2930706"
^DD(2005.011,0,"NM","LONG DESCRIPTION")=""
^DD(2005.011,0,"UP")="2005"
^DD(2005.011,.01,0)="LONG DESCRIPTION^W^^0;1^Q"
^DD(2005.011,.01,3)="Enter a complete description of the image."
^DD(2005.011,.01,"DT")="2930706"
^DD(2005.011,"B","LONG DESCRIPTION",.01)=""
^DD(2005.011,"GL",0,1,.01)=""
^DD(2005.0111,0)="ROUTING LOG SUB-FIELD^^7^7"
^DD(2005.0111,0,"DT")="3031211"
^DD(2005.0111,0,"NM","ROUTING LOG")=""
^DD(2005.0111,0,"UP")="2005"
^DD(2005.0111,.01,0)="DESTINATION NAME^F^^0;1^K:$L(X)>63!($L(X)<1) X"
^DD(2005.0111,.01,1,0)="^.1^^0"
^DD(2005.0111,.01,3)="Enter the name of the destination to which the image is routed."
^DD(2005.0111,.01,21,0)="^.001^2^2^3031211^^"
^DD(2005.0111,.01,21,1,0)="The value of this field is a string that identifies the location"
^DD(2005.0111,.01,21,2,0)="to which the current image has been routed."
^DD(2005.0111,.01,"DT")="3031211"
^DD(2005.0111,2,0)="COPY LOCATION^P2005.2'^MAG(2005.2,^0;2^Q"
^DD(2005.0111,2,3)="Enter the name of the Network Location to which this image is being routed."
^DD(2005.0111,2,21,0)="^^4^4^3031211^"
^DD(2005.0111,2,21,1,0)="The value of this field is a pointer to the Network Location table"
^DD(2005.0111,2,21,2,0)="(#2005.2)."
^DD(2005.0111,2,21,3,0)="When an image is transmitted using the ""copy"" method, this field"
^DD(2005.0111,2,21,4,0)="is populated."
^DD(2005.0111,2,"DT")="3031211"
^DD(2005.0111,3,0)="DICOM SEND LOCATION^P2006.587'^MAG(2006.587,^0;3^Q"
^DD(2005.0111,3,3)="Enter the name of the DICOM SCP to which the image is being routed."
^DD(2005.0111,3,21,0)="^^4^4^3031212^^"
^DD(2005.0111,3,21,1,0)="The value of this field is a pointer to the DICOM Transmit Destination"
^DD(2005.0111,3,21,2,0)="table (#2006.587)."
^DD(2005.0111,3,21,3,0)="When an image is transmitted using the DICOM Send method,"
^DD(2005.0111,3,21,4,0)="this field is populated."
^DD(2005.0111,3,"DT")="3031211"
^DD(2005.0111,4,0)="TIMESTAMP TRANSMIT^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.0111,4,3)="Enter the time when the transmission finished."
^DD(2005.0111,4,21,0)="^.001^3^3^3031211^^"
^DD(2005.0111,4,21,1,0)="The value of this field is a timestamp that indicates the"
^DD(2005.0111,4,21,2,0)="date and time when the current image was transmitted to the"
^DD(2005.0111,4,21,3,0)="location described in the current record."
^DD(2005.0111,4,"DT")="3031211"
^DD(2005.0111,5,0)="TIMESTAMP PURGE^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.0111,5,3)="Enter the time when the image was purged at this location."
^DD(2005.0111,5,21,0)="^^3^3^3031211^"
^DD(2005.0111,5,21,1,0)="The value of this field is a timestamp that indicates the date"
^DD(2005.0111,5,21,2,0)="and time when the copy of the current image was purged from"
^DD(2005.0111,5,21,3,0)="the location that is described in the current record."
^DD(2005.0111,5,"DT")="3031211"
^DD(2005.0111,6,0)="FILE NAME^F^^0;6^K:$L(X)>63!($L(X)<1) X"
^DD(2005.0111,6,3)="Enter the name of the file at this destination."
^DD(2005.0111,6,21,0)="^^3^3^3031211^"
^DD(2005.0111,6,21,1,0)="The value of this field is a string that represents the name of"
^DD(2005.0111,6,21,2,0)="the (host system) file as it appears at the location to which the"
^DD(2005.0111,6,21,3,0)="image has been copied."
^DD(2005.0111,6,"DT")="3031211"
^DD(2005.0111,7,0)="FILE TYPE^S^TXT:Text;BIG:Large X-Ray;TGA:Targa(TM);ABS:Thumbnail;DCM:DICOM;DICOM:DICOM;^0;7^Q"
^DD(2005.0111,7,3)="Enter the code for the file-type."
^DD(2005.0111,7,21,0)="^^2^2^3031211^"
^DD(2005.0111,7,21,1,0)="The value of this field is a code for the type of data that"
^DD(2005.0111,7,21,2,0)="is stored in the file that is described in the current record."
^DD(2005.0111,7,"DT")="3031211"
^DD(2005.0111,"B","COPY LOCATION",2)=""
^DD(2005.0111,"B","DESTINATION NAME",.01)=""
^DD(2005.0111,"B","DICOM SEND LOCATION",3)=""
^DD(2005.0111,"B","FILE NAME",6)=""
^DD(2005.0111,"B","FILE TYPE",7)=""
^DD(2005.0111,"B","TIMESTAMP PURGE",5)=""
^DD(2005.0111,"B","TIMESTAMP TRANSMIT",4)=""
^DD(2005.0111,"GL",0,1,.01)=""
^DD(2005.0111,"GL",0,2,2)=""
^DD(2005.0111,"GL",0,3,3)=""
^DD(2005.0111,"GL",0,4,4)=""
^DD(2005.0111,"GL",0,5,5)=""
^DD(2005.0111,"GL",0,6,6)=""
^DD(2005.0111,"GL",0,7,7)=""
^DD(2005.02,0)="FIELD^^5^7"
^DD(2005.02,0,"DDA")="N"
^DD(2005.02,0,"DT")="2950508"
^DD(2005.02,0,"IX","AC",2005.21,.01)=""
^DD(2005.02,0,"IX","AD",2005.02,5)=""
^DD(2005.02,0,"IX","B",2005.02,.01)=""
^DD(2005.02,0,"NM","OBJECT TYPE")=""
^DD(2005.02,0,"PT",2005,3)=""
^DD(2005.02,0,"PT",2005.02,3)=""
^DD(2005.02,0,"PT",2005.021,5)=""
^DD(2005.02,0,"PT",2005.1,3)=""
^DD(2005.02,0,"PT",2005.24,.01)=""
^DD(2005.02,0,"VR")="3.0"
^DD(2005.02,0,"VRPK")="MAG"
^DD(2005.02,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.02,.01,1,0)="^.1"
^DD(2005.02,.01,1,1,0)="2005.02^B"
^DD(2005.02,.01,1,1,1)="S ^MAG(2005.02,""B"",$E(X,1,30),DA)="""""
^DD(2005.02,.01,1,1,2)="K ^MAG(2005.02,""B"",$E(X,1,30),DA)"
^DD(2005.02,.01,1,1,"DT")="2911113"
^DD(2005.02,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2005.02,.01,21,0)="^^4^4^2970721^^^"
^DD(2005.02,.01,21,1,0)="Each kind of data supported by the Imaging System has an entry in"
^DD(2005.02,.01,21,2,0)="the Object Type file.  The Object Type file manages the kinds of"
^DD(2005.02,.01,21,3,0)="actions which that type of object can have and the routines that"
^DD(2005.02,.01,21,4,0)="are executed for each action."
^DD(2005.02,.01,"DT")="2911113"
^DD(2005.02,.02,0)="ABSTRACT REQUIRED^S^1:YES;0:NO;^0;2^Q"
^DD(2005.02,.02,3)="DOES OBJECT TYPE REQUIRE AN ABSTRACT"
^DD(2005.02,.02,21,0)="^^2^2^3001006^"
^DD(2005.02,.02,21,1,0)="This field is reserved for future use and will indicates whether a"
^DD(2005.02,.02,21,2,0)="separate abstract file is required for this type of object."
^DD(2005.02,.02,"DT")="3001006"
^DD(2005.02,1,0)="ACTIONS^2005.21^^1;0"
^DD(2005.02,1,21,0)="^.001^5^5^3020222^^^^"
^DD(2005.02,1,21,1,0)="This field is reserved for future use will contain the kinds of actions"
^DD(2005.02,1,21,2,0)="which apply to the object type. Generally, all objects can be displayed as"
^DD(2005.02,1,21,3,0)="a full image/object and they have an abstract display method.  In"
^DD(2005.02,1,21,4,0)="addition, groups of objects may have other actions such as cineloop"
^DD(2005.02,1,21,5,0)="display or tiled display."
^DD(2005.02,1,"DT")="3001006"
^DD(2005.02,2,0)="EDIT TEMPLATE^F^^2;1^K:$L(X)>20!($L(X)<1) X"
^DD(2005.02,2,3)="Answer must be 1-20 characters in length."
^DD(2005.02,2,21,0)="^^2^2^3001006^"
^DD(2005.02,2,21,1,0)="This field is reserved for future use for the name of the edit"
^DD(2005.02,2,21,2,0)="template used to enter data pertaining to this type of object."
^DD(2005.02,2,"DT")="3001006"
^DD(2005.02,3,0)="PARENT^P2005.02'^MAG(2005.02,^2;2^Q"
^DD(2005.02,3,21,0)="^^2^2^2950331^^"
^DD(2005.02,3,21,1,0)="This field is reserved for future use to allow object types"
^DD(2005.02,3,21,2,0)="to inherit characteristics from a parent object type."
^DD(2005.02,3,"DT")="2910526"
^DD(2005.02,4,0)="CHILD CLASS^2005.24P^^3;0"
^DD(2005.02,4,21,0)="^.001^2^2^3001025^^^^"
^DD(2005.02,4,21,1,0)="This field is reserved for future use to allow object types"
^DD(2005.02,4,21,2,0)="to inherit characteristics from other object types."
^DD(2005.02,4,"DT")="3001006"
^DD(2005.02,5,0)="DEFAULT EXTENSION^F^^4;1^K:$L(X)>3!($L(X)<3) X"
^DD(2005.02,5,1,0)="^.1"
^DD(2005.02,5,1,1,0)="2005.02^AD"
^DD(2005.02,5,1,1,1)="S ^MAG(2005.02,""AD"",$E(X,1,30),DA)="""""
^DD(2005.02,5,1,1,2)="K ^MAG(2005.02,""AD"",$E(X,1,30),DA)"
^DD(2005.02,5,1,1,"%D",0)="^.101^2^2^3020419^^"
^DD(2005.02,5,1,1,"%D",1,0)="This cross-reference is searched when the extension of a file is known "
^DD(2005.02,5,1,1,"%D",2,0)="but not it's Object Type."
^DD(2005.02,5,1,1,"DT")="3010131"
^DD(2005.02,5,3)="Enter the file extension to associate with this object type.  i.e. JPG, TGA, TXT, PDF, DOC..."
^DD(2005.02,5,21,0)="3^.001^3^3^3020419^"
^DD(2005.02,5,21,1,0)="This is the default extension for this type of object."
^DD(2005.02,5,21,2,0)="When Object Type is not known, at time of capture, the extension is "
^DD(2005.02,5,21,3,0)="used to determine the type."
^DD(2005.02,5,"DT")="3010131"
^DD(2005.02,"B","ABSTRACT REQUIRED",.02)=""
^DD(2005.02,"B","ACTIONS",1)=""
^DD(2005.02,"B","CHILD CLASS",4)=""
^DD(2005.02,"B","DEFAULT EXTENSION",5)=""
^DD(2005.02,"B","EDIT TEMPLATE",2)=""
^DD(2005.02,"B","NAME",.01)=""
^DD(2005.02,"B","PARENT",3)=""
^DD(2005.02,"GL",0,1,.01)=""
^DD(2005.02,"GL",0,2,.02)=""
^DD(2005.02,"GL",1,0,1)=""
^DD(2005.02,"GL",2,1,2)=""
^DD(2005.02,"GL",2,2,3)=""
^DD(2005.02,"GL",3,0,4)=""
^DD(2005.02,"GL",4,1,5)=""
^DD(2005.02,"IX",.01)=""
^DD(2005.02,"IX",5)=""
^DD(2005.02,"RQ",.01)=""
^DD(2005.02,"SB",2005.21,1)=""
^DD(2005.02,"SB",2005.24,4)=""
^DD(2005.021,0)="FIELD^^5^6"
^DD(2005.021,0,"DDA")="N"
^DD(2005.021,0,"DT")="3030620"
^DD(2005.021,0,"IX","B",2005.021,.01)=""
^DD(2005.021,0,"IX","C",2005.021,1)=""
^DD(2005.021,0,"IX","D",2005.021,5)=""
^DD(2005.021,0,"NM","IMAGE FILE TYPES")=""
^DD(2005.021,0,"VR")="3.0"
^DD(2005.021,0,"VRPK")="MAG"
^DD(2005.021,.01,0)="NAME^RFI^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(2005.021,.01,1,0)="^.1"
^DD(2005.021,.01,1,1,0)="2005.021^B"
^DD(2005.021,.01,1,1,1)="S ^MAG(2005.021,""B"",$E(X,1,30),DA)="""""
^DD(2005.021,.01,1,1,2)="K ^MAG(2005.021,""B"",$E(X,1,30),DA)"
^DD(2005.021,.01,3)="Answer must be 1-10 characters in length."
^DD(2005.021,.01,21,0)="^.001^1^1^3061219^^^"
^DD(2005.021,.01,21,1,0)="This field contains the image filename extension, i.e., tga."
^DD(2005.021,.01,"DT")="3060110"
^DD(2005.021,.01,"LAYGO",1,0)="I 0"
^DD(2005.021,1,0)="DESCRIPTION^RFI^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2005.021,1,1,0)="^.1"
^DD(2005.021,1,1,1,0)="2005.021^C"
^DD(2005.021,1,1,1,1)="S ^MAG(2005.021,""C"",$E(X,1,30),DA)="""""
^DD(2005.021,1,1,1,2)="K ^MAG(2005.021,""C"",$E(X,1,30),DA)"
^DD(2005.021,1,1,1,"%D",0)="^^1^1^3011008^"
^DD(2005.021,1,1,1,"%D",1,0)="The 3 character image file extension."
^DD(2005.021,1,1,1,"DT")="3011008"
^DD(2005.021,1,3)="Answer must be 1-30 characters in length."
^DD(2005.021,1,21,0)="^^2^2^3020419^"
^DD(2005.021,1,21,1,0)="This field contains the description of the filename extension.  For "
^DD(2005.021,1,21,2,0)="example a filename extension of 'doc' is for Microsoft Word document."
^DD(2005.021,1,"DT")="3050923"
^DD(2005.021,2,0)="VIEWER^RSI^1:YES;0:NO;^0;3^Q"
^DD(2005.021,2,21,0)="^^1^1^3011008^"
^DD(2005.021,2,21,1,0)="Flag, Imaging provides a viewer for files with this extension Y/N"
^DD(2005.021,2,"DT")="3050923"
^DD(2005.021,3,0)="Bitmap for Abstract^FI^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(2005.021,3,3)="Answer must be 3-30 characters in length."
^DD(2005.021,3,21,0)="^^1^1^3011008^"
^DD(2005.021,3,21,1,0)="If Imaging does not create abstracts for this type, this Bitmap will be used for the Abstract."
^DD(2005.021,3,"DT")="3060110"
^DD(2005.021,4,0)="Abstract Created^RSI^1:YES;0:NO;^0;5^Q"
^DD(2005.021,4,3)="Enter Yes if Imaging will create an abstract for this file type."
^DD(2005.021,4,21,0)="^.001^2^2^3020419^^^"
^DD(2005.021,4,21,1,0)="The Capture workstation and Background Processor will create abstracts for "
^DD(2005.021,4,21,2,0)="image files with this extension only if this field is Yes"
^DD(2005.021,4,"DT")="3050923"
^DD(2005.021,5,0)="DEFAULT OBJECT TYPE^P2005.02'I^MAG(2005.02,^0;6^Q"
^DD(2005.021,5,1,0)="^.1"
^DD(2005.021,5,1,1,0)="2005.021^D"
^DD(2005.021,5,1,1,1)="S ^MAG(2005.021,""D"",$E(X,1,30),DA)="""""
^DD(2005.021,5,1,1,2)="K ^MAG(2005.021,""D"",$E(X,1,30),DA)"
^DD(2005.021,5,1,1,"%D",0)="^^1^1^3030122^"
^DD(2005.021,5,1,1,"%D",1,0)="Gives the ability to query the file, based on an Image's 'Object Type'"
^DD(2005.021,5,1,1,"DT")="3030122"
^DD(2005.021,5,3)="Enter the Default Object Type for this file Extension"
^DD(2005.021,5,21,0)="^^1^1^3011008^"
^DD(2005.021,5,21,1,0)="Certain Extensions have a default Object Type defined in this field."
^DD(2005.021,5,"DT")="3050923"
^DD(2005.021,"B","Abstract Created",4)=""
^DD(2005.021,"B","Bitmap for Abstract",3)=""
^DD(2005.021,"B","DEFAULT OBJECT TYPE",5)=""
^DD(2005.021,"B","DESCRIPTION",1)=""
^DD(2005.021,"B","NAME",.01)=""
^DD(2005.021,"B","VIEWER",2)=""
^DD(2005.021,"GL",0,1,.01)=""
^DD(2005.021,"GL",0,2,1)=""
^DD(2005.021,"GL",0,3,2)=""
^DD(2005.021,"GL",0,4,3)=""
^DD(2005.021,"GL",0,5,4)=""
^DD(2005.021,"GL",0,6,5)=""
^DD(2005.021,"IX",.01)=""
^DD(2005.021,"IX",1)=""
^DD(2005.021,"IX",5)=""
^DD(2005.021,"RQ",.01)=""
^DD(2005.021,"RQ",1)=""
^DD(2005.021,"RQ",2)=""
^DD(2005.021,"RQ",4)=""
^DD(2005.03,0)="FIELD^^45^11"
^DD(2005.03,0,"DDA")="N"
^DD(2005.03,0,"DT")="3030814"
^DD(2005.03,0,"IX","B",2005.03,.01)=""
^DD(2005.03,0,"NM","PARENT DATA FILE")=""
^DD(2005.03,0,"PT",2005,16)=""
^DD(2005.03,0,"PT",2005.001,1)=""
^DD(2005.03,0,"PT",2005.1,16)=""
^DD(2005.03,0,"VR")="3.0"
^DD(2005.03,0,"VRPK")="MAG"
^DD(2005.03,.001,0)="FILE/SUBFILE NUMBER^NJ14,5^^ ^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""6N.N) X"
^DD(2005.03,.001,3)="Type a Number between 1 and 99999999, 5 Decimal Digits"
^DD(2005.03,.001,21,0)="^^5^5^2970721^"
^DD(2005.03,.001,21,1,0)="This is the actual number of a file or sub-file of a file. Some examples of"
^DD(2005.03,.001,21,2,0)="the .001 field are: For Radiology Reports file it is 74, for the Message"
^DD(2005.03,.001,21,3,0)="file (MailMan) it is 3.9, for Endoscopy (Medicine) 655, for Surgery 130,"
^DD(2005.03,.001,21,4,0)="and for Surgical Pathology it is 63.08 (the sub-file number of Lab Data"
^DD(2005.03,.001,21,5,0)="file, 63)."
^DD(2005.03,.001,"DT")="2930705"
^DD(2005.03,.01,0)="FILE/SUBFILE NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X?1.E) X"
^DD(2005.03,.01,1,0)="^.1"
^DD(2005.03,.01,1,1,0)="2005.03^B"
^DD(2005.03,.01,1,1,1)="S ^MAG(2005.03,""B"",$E(X,1,30),DA)="""""
^DD(2005.03,.01,1,1,2)="K ^MAG(2005.03,""B"",$E(X,1,30),DA)"
^DD(2005.03,.01,3)="Answer must be 3-40 characters in length."
^DD(2005.03,.01,21,0)="^.001^2^2^3001006^^"
^DD(2005.03,.01,21,1,0)="This is the actual name of the file or sub-file of a file. Some examples"
^DD(2005.03,.01,21,2,0)="would be Message, Surgery, Surgical Pathology."
^DD(2005.03,.01,"DT")="2930909"
^DD(2005.03,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>8!($L(X)<2) X"
^DD(2005.03,.02,3)="Answer must be 2-8 characters in length."
^DD(2005.03,.02,21,0)="^.001^2^2^3001006^^^^"
^DD(2005.03,.02,21,1,0)="This is the commonly used abbreviation for the file or sub-file."
^DD(2005.03,.02,21,2,0)="Some examples would be SUR, MAIL, ENDO, SP etc."
^DD(2005.03,.02,"DT")="2930712"
^DD(2005.03,.03,0)="GLOBAL ROOT TYPE^S^1:ROOT1;2:ROOT2;3:ROOT3;^0;3^Q"
^DD(2005.03,.03,3)="Enter the global root type of the file or sub-file."
^DD(2005.03,.03,21,0)="^.001^9^9^3001006^^^^"
^DD(2005.03,.03,21,1,0)="This is used in the editing and deletion of image pointers in other files."
^DD(2005.03,.03,21,2,0)="Since the Image file (2005) is pointed to by a variety of files a system"
^DD(2005.03,.03,21,3,0)="had to be created to enable backward navigation. The global root data"
^DD(2005.03,.03,21,4,0)="types or forms have been put into three groups:"
^DD(2005.03,.03,21,5,0)=" "
^DD(2005.03,.03,21,6,0)=" ROOT1 -   like ""^RARPT(""; ""^SRO(""; ""^LR("";"
^DD(2005.03,.03,21,7,0)=" ROOT2 -   like ""^XMB(3.9,""; ""^MCAR(699,"""
^DD(2005.03,.03,21,8,0)=" ROOT3 -   like ""^LR(D0,""""SP"""",""                  SUB-FILE of ^LR("
^DD(2005.03,.03,21,9,0)="                   (where D0 = LRDFN)"
^DD(2005.03,.03,"DT")="2940419"
^DD(2005.03,.04,0)="FILE POINTER^P1'^DIC(^0;4^Q"
^DD(2005.03,.04,3)="POINTS TO ^DIC if regular file."
^DD(2005.03,.04,21,0)="^^6^6^2970721^^"
^DD(2005.03,.04,21,1,0)="This is the parent file pointing to ^DIC( - in most cases it will also"
^DD(2005.03,.04,21,2,0)="be the .001 field since it will be a parent file itself. But in the"
^DD(2005.03,.04,21,3,0)="case of sub-files, like the laboratory sub-files, it will not be the .001"
^DD(2005.03,.04,21,4,0)="field, but the number of the parent file. For example the Radiology entry"
^DD(2005.03,.04,21,5,0)="has 74 for the .001 field and 74 for this field. However the Surgical"
^DD(2005.03,.04,21,6,0)="Pathology entry has 68.03 for the .001 field, and 63 for the .04 field."
^DD(2005.03,.04,"DT")="2930909"
^DD(2005.03,40,0)="PACKAGE INDEX^S^RAD:RAD;LAB:LAB;MED:MED;NOTE:NOTE;CP:CP;SUR:SUR;CONS:CONS;PHOTOID:PHOTOID;NONE:NONE;^2;1^Q"
^DD(2005.03,40,3)="The Package associated with the image."
^DD(2005.03,40,21,0)="^.001^2^2^3020819^^"
^DD(2005.03,40,21,1,0)="This is the abbreviation of the application (package) that the image is"
^DD(2005.03,40,21,2,0)="attached to. "
^DD(2005.03,40,"DT")="3030203"
^DD(2005.03,41,0)="CLASS INDEX^P2005.82'^MAG(2005.82,^2;2^Q"
^DD(2005.03,41,21,0)="^^2^2^3020819^"
^DD(2005.03,41,21,1,0)="The classification of the image.  CLASS is an index field used for"
^DD(2005.03,41,21,2,0)="sorting and searching."
^DD(2005.03,41,"DT")="3030203"
^DD(2005.03,42,0)="TYPE INDEX^P2005.83'^MAG(2005.83,^2;3^Q"
^DD(2005.03,42,21,0)="^^1^1^3020819^"
^DD(2005.03,42,21,1,0)="The TYPE of image. TYPE is an index field used for sorting and searching."
^DD(2005.03,42,"DT")="3030203"
^DD(2005.03,43,0)="PROC/EVENT INDEX^P2005.85'^MAG(2005.85,^2;4^Q"
^DD(2005.03,43,21,0)="^^2^2^3020819^"
^DD(2005.03,43,21,1,0)="The PROCEDURE/EVENT for the image.  PROCEDURE/EVENT is an index field"
^DD(2005.03,43,21,2,0)="used for sorting and searching."
^DD(2005.03,43,"DT")="3030203"
^DD(2005.03,44,0)="SPEC/SUBSPEC INDEX^P2005.84'^MAG(2005.84,^2;5^Q"
^DD(2005.03,44,21,0)="^^2^2^3020819^"
^DD(2005.03,44,21,1,0)="The SPECIALTY/SUBSPECIALTY of the image.  SPECIALTY/SUBSPECIALTY is an"
^DD(2005.03,44,21,2,0)="index field used for sorting and searching."
^DD(2005.03,44,"DT")="3030203"
^DD(2005.03,45,0)="ORIGIN INDEX^S^V:VA;N:NON-VA;^2;6^Q"
^DD(2005.03,45,21,0)="^^2^2^3030814^"
^DD(2005.03,45,21,1,0)="This field indicates whether an image or document originated inside or "
^DD(2005.03,45,21,2,0)="outside of VA."
^DD(2005.03,45,"DT")="3030814"
^DD(2005.03,"B","ABBREVIATION",.02)=""
^DD(2005.03,"B","CLASS INDEX",41)=""
^DD(2005.03,"B","FILE POINTER",.04)=""
^DD(2005.03,"B","FILE/SUBFILE NAME",.01)=""
^DD(2005.03,"B","FILE/SUBFILE NUMBER",.001)=""
^DD(2005.03,"B","GLOBAL ROOT TYPE",.03)=""
^DD(2005.03,"B","ORIGIN INDEX",45)=""
^DD(2005.03,"B","PACKAGE INDEX",40)=""
^DD(2005.03,"B","PROC/EVENT INDEX",43)=""
^DD(2005.03,"B","SPEC/SUBSPEC INDEX",44)=""
^DD(2005.03,"B","TYPE INDEX",42)=""
^DD(2005.03,"GL",0,1,.01)=""
^DD(2005.03,"GL",0,2,.02)=""
^DD(2005.03,"GL",0,3,.03)=""
^DD(2005.03,"GL",0,4,.04)=""
^DD(2005.03,"GL",2,1,40)=""
^DD(2005.03,"GL",2,2,41)=""
^DD(2005.03,"GL",2,3,42)=""
^DD(2005.03,"GL",2,4,43)=""
^DD(2005.03,"GL",2,5,44)=""
^DD(2005.03,"GL",2,6,45)=""
^DD(2005.03,"IX",.01)=""
^DD(2005.03,"RQ",.01)=""
^DD(2005.031,0)="INTERPRETATION IMAGES SUB-FIELD^^1^2"
^DD(2005.031,0,"DT")="3050930"
^DD(2005.031,0,"IX","B",2005.031,.01)=""
^DD(2005.031,0,"NM","INTERPRETATION IMAGES")=""
^DD(2005.031,0,"UP")="2005.001"
^DD(2005.031,.01,0)="INTERPRETATION IMAGE^MP2005'^MAG(2005,^0;1^Q"
^DD(2005.031,.01,1,0)="^.1"
^DD(2005.031,.01,1,1,0)="2005.031^B"
^DD(2005.031,.01,1,1,1)="S ^MAG(2005.001,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2005.031,.01,1,1,2)="K ^MAG(2005.001,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2005.031,.01,3)="Enter the image IEN for any image that is KEY or has been annotated."
^DD(2005.031,.01,21,0)="^.001^4^4^3050926^^^^"
^DD(2005.031,.01,21,1,0)="If an image is designated as KEY, or is annotated during"
^DD(2005.031,.01,21,2,0)="the exam interpretation, it's reference IEN is saved here,"
^DD(2005.031,.01,21,3,0)="together with any Presentation State references that were"
^DD(2005.031,.01,21,4,0)="created during the interpretation."
^DD(2005.031,.01,"DT")="3050920"
^DD(2005.031,1,0)="PRESENTATION STATE UID^2005.311^^1;0"
^DD(2005.031,1,21,0)="^.001^2^2^3050930^^^^"
^DD(2005.031,1,21,1,0)="This node contains a list of Presentation State UIDs associated"
^DD(2005.031,1,21,2,0)="with this Image during the Interpretation."
^DD(2005.031,"B","INTERPRETATION IMAGE",.01)=""
^DD(2005.031,"B","PRESENTATION STATE UID",1)=""
^DD(2005.031,"GL",0,1,.01)=""
^DD(2005.031,"GL",1,0,1)=""
^DD(2005.031,"IX",.01)=""
^DD(2005.031,"SB",2005.311,1)=""
^DD(2005.04,0)="OBJECT GROUP SUB-FIELD^^2^3"
^DD(2005.04,0,"DT")="2981117"
^DD(2005.04,0,"IX","ADCM",2005.04,1)=""
^DD(2005.04,0,"IX","ADCM2",2005.04,2)=""
^DD(2005.04,0,"NM","OBJECT GROUP")=""
^DD(2005.04,0,"UP")="2005"
^DD(2005.04,.01,0)="OBJECT GROUP^MP2005'^MAG(2005,^0;1^Q"
^DD(2005.04,.01,1,0)="^.1^^0"
^DD(2005.04,.01,"DT")="2940519"
^DD(2005.04,1,0)="DICOM SERIES NUM^NJ8,0^^0;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.04,1,1,0)="^.1"
^DD(2005.04,1,1,1,0)="2005.04^ADCM^MUMPS"
^DD(2005.04,1,1,1,1)="D SETDCM^MAGUXRF"
^DD(2005.04,1,1,1,2)="D KILLDSN^MAGUXRF"
^DD(2005.04,1,1,1,"%D",0)="^^8^8^3001023^^"
^DD(2005.04,1,1,1,"%D",1,0)="This cross-reference stores the ""ADCM"" index."
^DD(2005.04,1,1,1,"%D",2,0)="It is stored for the multiple in"
^DD(2005.04,1,1,1,"%D",3,0)=""
^DD(2005.04,1,1,1,"%D",4,0)=" ^MAG(2005, DA(1), 1 ,""ADCM"", DICOM SERIES, DICOM IMAGE, IMAGE IEN, DA)="""""
^DD(2005.04,1,1,1,"%D",5,0)=""
^DD(2005.04,1,1,1,"%D",6,0)="This cross-reference keeps track of which images belong to"
^DD(2005.04,1,1,1,"%D",7,0)="which group, and indicates in which sequence the images"
^DD(2005.04,1,1,1,"%D",8,0)="are intended to appear."
^DD(2005.04,1,1,1,"DT")="2981118"
^DD(2005.04,1,3)="This is the Dicom 'Series Number'"
^DD(2005.04,1,"DT")="2981118"
^DD(2005.04,2,0)="DICOM IMAGE NUM^NJ5,0^^0;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.04,2,1,0)="^.1"
^DD(2005.04,2,1,1,0)="2005.04^ADCM2^MUMPS"
^DD(2005.04,2,1,1,1)="D SETDCM^MAGUXRF"
^DD(2005.04,2,1,1,2)="D KILLDIN^MAGUXRF"
^DD(2005.04,2,1,1,"%D",0)="^^8^8^3001023^^"
^DD(2005.04,2,1,1,"%D",1,0)="This cross-reference stores the ""ADCM"" index."
^DD(2005.04,2,1,1,"%D",2,0)="It is stored for the multiple in"
^DD(2005.04,2,1,1,"%D",3,0)=""
^DD(2005.04,2,1,1,"%D",4,0)=" ^MAG(2005, DA(1), 1 ,""ADCM"", DICOM SERIES, DICOM IMAGE, IMAGE IEN, DA)="""""
^DD(2005.04,2,1,1,"%D",5,0)=""
^DD(2005.04,2,1,1,"%D",6,0)="This cross-reference keeps track of which images belong to"
^DD(2005.04,2,1,1,"%D",7,0)="which group, and indicates in which sequence the images"
^DD(2005.04,2,1,1,"%D",8,0)="are intended to appear."
^DD(2005.04,2,1,1,"DT")="2981118"
^DD(2005.04,2,3)="This is the Dicom 'Image Number'"
^DD(2005.04,2,"DT")="2981118"
^DD(2005.04,"B","DICOM IMAGE NUM",2)=""
^DD(2005.04,"B","DICOM SERIES NUM",1)=""
^DD(2005.04,"B","OBJECT GROUP",.01)=""
^DD(2005.04,"GL",0,1,.01)=""
^DD(2005.04,"GL",0,2,1)=""
^DD(2005.04,"GL",0,3,2)=""
^DD(2005.04,"IX",1)=""
^DD(2005.04,"IX",2)=""
^DD(2005.05,0)="PRESENTATION STATE SUB-FIELD^^4^5"
^DD(2005.05,0,"DT")="3040816"
^DD(2005.05,0,"IX","B",2005.05,.01)=""
^DD(2005.05,0,"NM","PRESENTATION STATE")=""
^DD(2005.05,0,"UP")="2005"
^DD(2005.05,.01,0)="PS UID^MF^^0;1^K:$L(X)>120!($L(X)<3) X"
^DD(2005.05,.01,1,0)="^.1"
^DD(2005.05,.01,1,1,0)="2005.05^B"
^DD(2005.05,.01,1,1,1)="S ^MAG(2005,DA(1),210,""B"",$E(X,1,30),DA)="""""
^DD(2005.05,.01,1,1,2)="K ^MAG(2005,DA(1),210,""B"",$E(X,1,30),DA)"
^DD(2005.05,.01,3)="Answer must be 3-120 characters in length."
^DD(2005.05,.01,21,0)="^.001^1^1^3050608^^^"
^DD(2005.05,.01,21,1,0)="This is the presentation state UID for the image."
^DD(2005.05,.01,"DT")="3050608"
^DD(2005.05,1,0)="PS DATA^2005.51^^1;0"
^DD(2005.05,1,21,0)="^.001^1^1^3050608^^"
^DD(2005.05,1,21,1,0)="Lines of free-text data that describe the presentation state, in XML format."
^DD(2005.05,1,"DT")="3050608"
^DD(2005.05,2,0)="PS TYPE^S^I:Interpretation;U:User;K:Key Image;^0;2^Q"
^DD(2005.05,2,21,0)="^.001^2^2^3050608^^"
^DD(2005.05,2,21,1,0)="Indicates the type of presentation state data stored here:"
^DD(2005.05,2,21,2,0)=" Key Image; Interpretation-based; User-specific."
^DD(2005.05,2,"DT")="3050608"
^DD(2005.05,3,0)="WHO^P200'^VA(200,^0;3^Q"
^DD(2005.05,3,21,0)="^^1^1^3050608^"
^DD(2005.05,3,21,1,0)="User who created this presentation state."
^DD(2005.05,3,"DT")="3040707"
^DD(2005.05,4,0)="TIMESTAMP^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.05,4,3)="Enter date/time of Presentation State creation."
^DD(2005.05,4,21,0)="^^1^1^3050608^"
^DD(2005.05,4,21,1,0)="Date/Time when this PS was created."
^DD(2005.05,4,"DT")="3040816"
^DD(2005.05,"B","PS DATA",1)=""
^DD(2005.05,"B","PS TYPE",2)=""
^DD(2005.05,"B","PS UID",.01)=""
^DD(2005.05,"B","TIMESTAMP",4)=""
^DD(2005.05,"B","WHO",3)=""
^DD(2005.05,"GL",0,1,.01)=""
^DD(2005.05,"GL",0,2,2)=""
^DD(2005.05,"GL",0,3,3)=""
^DD(2005.05,"GL",0,4,4)=""
^DD(2005.05,"GL",1,0,1)=""
^DD(2005.05,"IX",.01)=""
^DD(2005.05,"SB",2005.51,1)=""
^DD(2005.1,0)="FIELD^^111^58"
^DD(2005.1,0,"DDA")="N"
^DD(2005.1,0,"DT")="3001107"
^DD(2005.1,0,"ID",5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,7),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2005.1,0,"IX","AC",2005.1,5)=""
^DD(2005.1,0,"IX","B",2005.1,.01)=""
^DD(2005.1,0,"IX","E",2005.1,1)=""
^DD(2005.1,0,"NM","IMAGE AUDIT")=""
^DD(2005.1,0,"PT",2005.1,14)=""
^DD(2005.1,0,"PT",2005.14,.01)=""
^DD(2005.1,0,"VR")="3.0"
^DD(2005.1,0,"VRPK")="IMAGING"
^DD(2005.1,.001,0)="NUMBER^NJ6,0^^ ^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005.1,.001,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2005.1,.001,21,0)="^^7^7^3001025^"
^DD(2005.1,.001,21,1,0)=".001 NUMBER Field is the Internal Entry Number of the Image File Entry."
^DD(2005.1,.001,21,2,0)="i.e. ""DA"" of the Image File entry."
^DD(2005.1,.001,21,3,0)="Imaging routines and RPC's use the Image DA for lookups."
^DD(2005.1,.001,21,4,0)="The Image Files associated with this entry are stored on a Networked Image"
^DD(2005.1,.001,21,5,0)="A name for the Image Files is generated from the Image DA, the"
^DD(2005.1,.001,21,6,0)="Extension is appropriate to the Type of Image."
^DD(2005.1,.001,21,7,0)="i.e. I0014432.JPG"
^DD(2005.1,.001,"DT")="2940616"
^DD(2005.1,.01,0)="OBJECT NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.1,.01,1,0)="^.1"
^DD(2005.1,.01,1,1,0)="2005.1^B"
^DD(2005.1,.01,1,1,1)="S ^MAG(2005.1,""B"",$E(X,1,30),DA)="""""
^DD(2005.1,.01,1,1,2)="K ^MAG(2005.1,""B"",$E(X,1,30),DA)"
^DD(2005.1,.01,3)="Answer must be 3-70 characters in length."
^DD(2005.1,.01,21,0)="^^3^3^2940523^"
^DD(2005.1,.01,21,1,0)="Each object has a natural language name; this usually consists of the"
^DD(2005.1,.01,21,2,0)="patient name, social security number, and object description.  This field"
^DD(2005.1,.01,21,3,0)="is automatically defined by the Imaging software."
^DD(2005.1,.01,"DT")="2930630"
^DD(2005.1,.05,0)="ACQUSITION SITE^RP4'^DIC(4,^100;3^Q"
^DD(2005.1,.05,3)="Enter the name of the site where the image was created."
^DD(2005.1,.05,21,0)="^.001^7^7^3030226^^^^"
^DD(2005.1,.05,21,1,0)="The 'origin' location is the location where an image is created."
^DD(2005.1,.05,21,2,0)="For instance, a site like 'St. Louis' may process images for several"
^DD(2005.1,.05,21,3,0)="other locations, such as Topeka, Wichita and Leavenworth."
^DD(2005.1,.05,21,4,0)="Any reference to a site identifier will return the name of the"
^DD(2005.1,.05,21,5,0)="primary location. For the purpose of finding the 'origin' of images,"
^DD(2005.1,.05,21,6,0)="the more specific sub-site is needed."
^DD(2005.1,.05,21,7,0)="This field contains the name of this 'sub-site'."
^DD(2005.1,.05,"DT")="3030123"
^DD(2005.1,.06,0)="EXPORT LOCATION^2005.11PA^^5;0"
^DD(2005.1,.06,21,0)="^.001^4^4^3040519^^"
^DD(2005.1,.06,21,1,0)="This table contains audit information regarding the export locations"
^DD(2005.1,.06,21,2,0)="of file copies generated by the generic carbon copy (GCC)"
^DD(2005.1,.06,21,3,0)="utility.  This utility is used by the Health Eligibility Center"
^DD(2005.1,.06,21,4,0)="functionality."
^DD(2005.1,1,0)="FILEREF^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(2005.1,1,1,0)="^.1"
^DD(2005.1,1,1,1,0)="2005.1^E"
^DD(2005.1,1,1,1,1)="S ^MAG(2005.1,""E"",$E(X,1,30),DA)="""""
^DD(2005.1,1,1,1,2)="K ^MAG(2005.1,""E"",$E(X,1,30),DA)"
^DD(2005.1,1,1,1,3)="DOS IMAGE file cross-reference."
^DD(2005.1,1,1,1,"%D",0)="^.101^4^4^3001025^^^"
^DD(2005.1,1,1,1,"%D",1,0)="This cross-reference produces a list of unique entries as the DOS file"
^DD(2005.1,1,1,1,"%D",2,0)="reference associated with each image/object is by definition unique."
^DD(2005.1,1,1,1,"%D",3,0)="This cross-reference is used by Multimedia mail to see whether an image"
^DD(2005.1,1,1,1,"%D",4,0)="already is in the image file."
^DD(2005.1,1,1,1,"DT")="2930909"
^DD(2005.1,1,3)="Answer must be 1-30 characters in length."
^DD(2005.1,1,21,0)="^^6^6^2940523^"
^DD(2005.1,1,21,1,0)="This field contains the unique image filename of the image stored on the magnetic server (and the jukebox if you have one). It is always eight characters in length, starting with the facility's 2 character Imaging"
^DD(2005.1,1,21,2,0)="namespace, with the remaining six characters ranging from 000001 to"
^DD(2005.1,1,21,3,0)="999999.  The extensions indicate what type of image it is: .BW for Black"
^DD(2005.1,1,21,4,0)="and White medium resolution (Cath, Path), .TGA for X-ray, .756 for 16-bit"
^DD(2005.1,1,21,5,0)="namespace, with the remaining six characters ranging from 000001 to"
^DD(2005.1,1,21,6,0)="set by the Imaging software."
^DD(2005.1,1,"DT")="3041221"
^DD(2005.1,2,0)="DISK & VOL,MAGNETIC^P2005.2'^MAG(2005.2,^0;3^Q"
^DD(2005.1,2,1,0)="^.1^^0"
^DD(2005.1,2,3)="Enter the disk name and volume set name where the image will be stored"
^DD(2005.1,2,21,0)="^^7^7^2940523^"
^DD(2005.1,2,21,1,0)="This field gives the path for the network location of the stored image"
^DD(2005.1,2,21,2,0)="(i.e. on which server it resides). After a specified time period during"
^DD(2005.1,2,21,3,0)="which the image is not viewed, the image is deleted from the magnetic"
^DD(2005.1,2,21,4,0)="server but remains available upon request from the jukebox. It takes"
^DD(2005.1,2,21,5,0)="slightly longer to display from the jukebox, but if requested, it is moved"
^DD(2005.1,2,21,6,0)="back to the server until it is no longer being viewed. This field is set"
^DD(2005.1,2,21,7,0)="automatically by the Imaging software."
^DD(2005.1,2,"DT")="2940402"
^DD(2005.1,2.1,0)="DISK & VOLUME. - ABSTRACT^P2005.2'^MAG(2005.2,^0;4^Q"
^DD(2005.1,2.1,21,0)="^^6^6^2940523^"
^DD(2005.1,2.1,21,1,0)="This field points to the path of the network storage location for the"
^DD(2005.1,2.1,21,2,0)="Image abstract.  An abstract is miniature copy of the captured image. If"
^DD(2005.1,2.1,21,3,0)="the parent image has not been viewed during the specified time period (if"
^DD(2005.1,2.1,21,4,0)="there is a jukebox), this file will be deleted along with the parent image"
^DD(2005.1,2.1,21,5,0)="onto the server currently being used to write captured images.  This field"
^DD(2005.1,2.1,21,6,0)="is automatically set by the Imaging software."
^DD(2005.1,2.1,"DT")="2930125"
^DD(2005.1,2.2,0)="DISK & VOL.: WORM^P2005.2'^MAG(2005.2,^0;5^Q"
^DD(2005.1,2.2,21,0)="^^4^4^2940519^"
^DD(2005.1,2.2,21,1,0)="This field is a pointer to the Network location file giving the jukebox"
^DD(2005.1,2.2,21,2,0)="platter where the image is stored (provided there is a jukebox in the"
^DD(2005.1,2.2,21,3,0)="Imaging System)."
^DD(2005.1,2.2,21,4,0)=" If the jukebox is a WORM, this file can never be deleted."
^DD(2005.1,2.2,"DT")="2900914"
^DD(2005.1,3,0)="OBJECT TYPE^P2005.02'^MAG(2005.02,^0;6^Q"
^DD(2005.1,3,1,0)="^.1^^0"
^DD(2005.1,3,21,0)="6^^6^6^2950426^"
^DD(2005.1,3,21,1,0)="This field is a pointer to the Object Type file (2005.02) which defines"
^DD(2005.1,3,21,2,0)="the object type of this object, e.g. still image, black & white image,"
^DD(2005.1,3,21,3,0)="X-ray etc. The image type determines how various actions are performed i.e."
^DD(2005.1,3,21,4,0)="how the full resolution image is displayed, or how and when the image"
^DD(2005.1,3,21,5,0)="abstract is displayed.  This field is automatically set by the Imaging"
^DD(2005.1,3,21,6,0)="software at the time of image capture."
^DD(2005.1,3,"DT")="2940402"
^DD(2005.1,4,0)="OBJECT GROUP^2005.14P^^1;0"
^DD(2005.1,4,21,0)="^.001^14^14^3001025^^^^"
^DD(2005.1,4,21,1,0)="The object group is a multiple field pointing back to the Image file"
^DD(2005.1,4,21,2,0)="(2005.1).  Only objects with an object type of GROUP have the object group"
^DD(2005.1,4,21,3,0)="field defined.  These objects can be thought of as the 'parent' of a set"
^DD(2005.1,4,21,4,0)="of images.  Generally, instead of having their own abstract, objects of"
^DD(2005.1,4,21,5,0)="the GROUP type use the abstract of the first entry in their object group"
^DD(2005.1,4,21,6,0)="multiple.  Sometimes, text will be used in place of the GROUP abstract for"
^DD(2005.1,4,21,7,0)="speed.  Methods for viewing a GROUP object generally allow viewing of all"
^DD(2005.1,4,21,8,0)="the members of the group, either selectively or altogether.  A good"
^DD(2005.1,4,21,9,0)="example would be a set of thirty CT scan images.  Using the integrated"
^DD(2005.1,4,21,10,0)="view menu option, the tiled display of image abstracts would contain only"
^DD(2005.1,4,21,11,0)="one abstract for the group.  Selecting the group object for viewing"
^DD(2005.1,4,21,12,0)="provides the user with a tiled display of the abstracts of the individual"
^DD(2005.1,4,21,13,0)="CT scan images.  The user can then identify individual images for full"
^DD(2005.1,4,21,14,0)="resolution viewing."
^DD(2005.1,5,0)="PATIENT^P2^DPT(^0;7^Q"
^DD(2005.1,5,1,0)="^.1"
^DD(2005.1,5,1,1,0)="2005.1^AC"
^DD(2005.1,5,1,1,1)="S ^MAG(2005.1,""AC"",$E(X,1,30),DA)="""""
^DD(2005.1,5,1,1,2)="K ^MAG(2005.1,""AC"",$E(X,1,30),DA)"
^DD(2005.1,5,1,1,"DT")="2970624"
^DD(2005.1,5,21,0)="^^4^4^2950426^^"
^DD(2005.1,5,21,1,0)="This field is a pointer to the VistA patient file (#2), and contains the"
^DD(2005.1,5,21,2,0)="DFN of the patient that the image or object belongs to. The image or"
^DD(2005.1,5,21,3,0)="object is part of this patient's medical record. This pointer ties the"
^DD(2005.1,5,21,4,0)="image to the patient and is automatically set by the imaging software."
^DD(2005.1,5,23,0)="^^1^1^2950426^^^"
^DD(2005.1,5,23,1,0)=" "
^DD(2005.1,5,"DT")="2970624"
^DD(2005.1,6,0)="PROCEDURE^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(2005.1,6,1,0)="^.1^^0"
^DD(2005.1,6,3)="Answer must be 1-10 characters in length."
^DD(2005.1,6,21,0)="^^3^3^2940523^"
^DD(2005.1,6,21,1,0)="This field is an abbreviation for the procedure e.g COL for colonoscopy,"
^DD(2005.1,6,21,2,0)="SUR for surgery, SP for surgical pathology, X-ray for radiology .  This"
^DD(2005.1,6,21,3,0)="field is automatically set by the Imaging software."
^DD(2005.1,6,"DT")="2940628"
^DD(2005.1,7,0)="DATE/TIME IMAGE SAVED^D^^2;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1,7,1,0)="^.1^^0"
^DD(2005.1,7,3)="This is the date and time of image capture."
^DD(2005.1,7,21,0)="^^4^4^2940523^"
^DD(2005.1,7,21,1,0)="This field is the date and time the image was captured. It is"
^DD(2005.1,7,21,2,0)="automatically stuffed into the file as 'NOW'. It is not the same as the"
^DD(2005.1,7,21,3,0)="date and time of the procedure or exam.  This field is set automatically"
^DD(2005.1,7,21,4,0)="by the Imaging software."
^DD(2005.1,7,"DT")="3061108"
^DD(2005.1,8,0)="IMAGE SAVE BY^P200'^VA(200,^2;2^Q"
^DD(2005.1,8,1,0)="^.1^^0"
^DD(2005.1,8,21,0)="^^5^5^2950426^^"
^DD(2005.1,8,21,1,0)="This field is a pointer to the New Person file and thus equal to the DUZ"
^DD(2005.1,8,21,2,0)="of the person who logged in to capture the image.  It identifies who"
^DD(2005.1,8,21,3,0)="captured or saved the image and is automatically stuffed into the image"
^DD(2005.1,8,21,4,0)="file.  An image received via a Multimedia Mail message will not have data"
^DD(2005.1,8,21,5,0)="in this field."
^DD(2005.1,8,"DT")="2940621"
^DD(2005.1,9,0)="SUMMARY OBJECT^S^1:YES;0:NO;^2;3^Q"
^DD(2005.1,9,1,0)="^.1^^0"
^DD(2005.1,9,3)="Enter 1 for 'Yes' and 0 (or null) for 'No'."
^DD(2005.1,9,21,0)="^^6^6^2940523^"
^DD(2005.1,9,21,1,0)="This field is used to indicate whether the image or object is to be used"
^DD(2005.1,9,21,2,0)="as a summary for a group of objects. For example, in a GROUP of images,"
^DD(2005.1,9,21,3,0)="normally the abstract of the first object in the group multiple is used"
^DD(2005.1,9,21,4,0)="for the integrated view display.  This field allows the user to select a"
^DD(2005.1,9,21,5,0)="summary image to be used for this purpose.  This field is currently not in"
^DD(2005.1,9,21,6,0)="use."
^DD(2005.1,9,"DT")="2940504"
^DD(2005.1,10,0)="SHORT DESCRIPTION^F^^2;4^K:$L(X)>60!($L(X)<1) X"
^DD(2005.1,10,3)="Answer must be 1-60 characters in length."
^DD(2005.1,10,21,0)="^^5^5^2940523^"
^DD(2005.1,10,21,1,0)="This field allows the user to store a brief, one line description with the"
^DD(2005.1,10,21,2,0)="image or object record. For images associated with patients, this data is"
^DD(2005.1,10,21,3,0)="appended to the patient's name and SSN to create the .01 field of the"
^DD(2005.1,10,21,4,0)="Image file.  It is also permanently written on the upper left corner of"
^DD(2005.1,10,21,5,0)="the image to provide visible identification."
^DD(2005.1,10,"DT")="2900914"
^DD(2005.1,11,0)="LONG DESCRIPTION^2005.111^^3;0"
^DD(2005.1,11,21,0)="^^6^6^2940523^"
^DD(2005.1,11,21,1,0)="This word processing field allows the user to describe the image at"
^DD(2005.1,11,21,2,0)="length.  The user may only choose to append this long description on"
^DD(2005.1,11,21,3,0)="selected images - ones which are 'classic' or 'unusual' cases. It can be"
^DD(2005.1,11,21,4,0)="used to summarize a group of images which have been put together for a"
^DD(2005.1,11,21,5,0)="conference or consult.  It will be used in the future to a greater extent,"
^DD(2005.1,11,21,6,0)="as options for image capture independent of VistA package are provided."
^DD(2005.1,12,0)="LAST ACCESS DATE^D^^0;9^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1,12,3)="Date image last accessed"
^DD(2005.1,12,21,0)="^^7^7^2940523^"
^DD(2005.1,12,21,1,0)="This is the date and time the image was last viewed or accessed. Each time"
^DD(2005.1,12,21,2,0)="an abstract or image is requested for viewing, this field is automatically"
^DD(2005.1,12,21,3,0)="set with the current date and time.  In conjunction with the appropriate"
^DD(2005.1,12,21,4,0)="site parameter, this field is used for automatic file migration.  That is,"
^DD(2005.1,12,21,5,0)="when an image has not been accessed within the predefined time period, it"
^DD(2005.1,12,21,6,0)="will be deleted from the magnetic server and will only be accessible from"
^DD(2005.1,12,21,7,0)="the optical disk jukebox."
^DD(2005.1,12,"DT")="2920818"
^DD(2005.1,13,0)="IQ^S^1:YES;^0;11^Q"
^DD(2005.1,13,21,0)="^^2^2^3030123^"
^DD(2005.1,13,21,1,0)="This field is set by various integrity checkers in the Imaging software."
^DD(2005.1,13,21,2,0)="This field is set if an entry has questionable integrity."
^DD(2005.1,13,"DT")="3030123"
^DD(2005.1,13.5,0)="DUPE^S^1:YES;^0;12^Q"
^DD(2005.1,13.5,21,0)="^^6^6^3050620^"
^DD(2005.1,13.5,21,1,0)="This field is to allow screening of images that"
^DD(2005.1,13.5,21,2,0)="have duplicate instances in the archive file"
^DD(2005.1,13.5,21,3,0)="and the image file.  The intent is to prevent"
^DD(2005.1,13.5,21,4,0)="purging of these images on the raid until a"
^DD(2005.1,13.5,21,5,0)="utility to store this file on the Jukebox is "
^DD(2005.1,13.5,21,6,0)="implemented."
^DD(2005.1,13.5,"DT")="3050620"
^DD(2005.1,14,0)="GROUP PARENT^P2005.1'^MAG(2005.1,^0;10^Q"
^DD(2005.1,14,3)="If this object is a member of a group, enter the parent."
^DD(2005.1,14,21,0)="^^5^5^2940523^"
^DD(2005.1,14,21,1,0)="This field is used for images that are part of a group, for example a CT"
^DD(2005.1,14,21,2,0)="exam might contain 30 images.  This field contains a pointer back to the"
^DD(2005.1,14,21,3,0)="image file (2005.1), to the object whose type is ""GROUP"" that points to this"
^DD(2005.1,14,21,4,0)="object as a member of its group.  A pointer to this object will be found"
^DD(2005.1,14,21,5,0)="in the Object Group multiple of the parent GROUP object."
^DD(2005.1,14,"DT")="2931004"
^DD(2005.1,15,0)="PROCEDURE/EXAM DATE/TIME^D^^2;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1,15,1,0)="^.1^^0"
^DD(2005.1,15,3)="Enter the DATE-TIME of the Procedure or Exam"
^DD(2005.1,15,21,0)="^^10^10^2940523^"
^DD(2005.1,15,21,1,0)="This is the date/time of the procedure or the exam. It is obtained from"
^DD(2005.1,15,21,2,0)="the parent data file, i.e. the date/time of the X-ray exam, the Medical"
^DD(2005.1,15,21,3,0)="Procedure, the time the Laboratory specimen was obtained from the patient,"
^DD(2005.1,15,21,4,0)="or the date/time of the Surgical procedure. This often is not the same as"
^DD(2005.1,15,21,5,0)="the date/time the image was captured. In a long surgical procedure the"
^DD(2005.1,15,21,6,0)="image capture time may be several hours later than the start of the"
^DD(2005.1,15,21,7,0)="operation. When a lab specimen is collected from a patient, it may be"
^DD(2005.1,15,21,8,0)="several days before images are captured from the slide.  If images are"
^DD(2005.1,15,21,9,0)="initially stored on an intermediate media such as X-ray film or video tape,"
^DD(2005.1,15,21,10,0)="the capture time can be long after the procedure time."
^DD(2005.1,15,"DT")="2940628"
^DD(2005.1,16,0)="PARENT DATA FILE#^RP2005.03^MAG(2005.03,^2;6^Q"
^DD(2005.1,16,3)="The Parent Report file (or sub-file) number."
^DD(2005.1,16,21,0)="^^67^67^3001006^^"
^DD(2005.1,16,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005.1,16,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005.1,16,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005.1,16,21,4,0)=""
^DD(2005.1,16,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005.1,16,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005.1,16,21,7,0)="that describes why the image was collected."
^DD(2005.1,16,21,8,0)=""
^DD(2005.1,16,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005.1,16,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005.1,16,21,11,0)="optionally also field 63."
^DD(2005.1,16,21,12,0)=""
^DD(2005.1,16,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005.1,16,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005.1,16,21,15,0)="Common parent files are:"
^DD(2005.1,16,21,16,0)=""
^DD(2005.1,16,21,17,0)="   File    Name"
^DD(2005.1,16,21,18,0)="   ====    ===="
^DD(2005.1,16,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005.1,16,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005.1,16,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005.1,16,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005.1,16,21,23,0)="    63.09: CYTOLOGY"
^DD(2005.1,16,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005.1,16,21,25,0)="    74:    RADIOLOGY"
^DD(2005.1,16,21,26,0)="   130:    SURGERY"
^DD(2005.1,16,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005.1,16,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005.1,16,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005.1,16,21,30,0)="   694:    HEMATOLOGY"
^DD(2005.1,16,21,31,0)="   699:    ENDOSCOPY"
^DD(2005.1,16,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005.1,16,21,33,0)="  8925:    TIU"
^DD(2005.1,16,21,34,0)=""
^DD(2005.1,16,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005.1,16,21,36,0)="the list of images that belong to that record."
^DD(2005.1,16,21,37,0)=""
^DD(2005.1,16,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005.1,16,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005.1,16,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005.1,16,21,41,0)="The entries in these multiples identify the various images"
^DD(2005.1,16,21,42,0)="that belong with the record in question."
^DD(2005.1,16,21,43,0)=""
^DD(2005.1,16,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005.1,16,21,45,0)=""
^DD(2005.1,16,21,46,0)=" Type Number     Form of Root"
^DD(2005.1,16,21,47,0)=" ===========     ============"
^DD(2005.1,16,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005.1,16,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005.1,16,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005.1,16,21,51,0)=""
^DD(2005.1,16,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005.1,16,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005.1,16,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005.1,16,21,55,0)="well as D1 (type 3)."
^DD(2005.1,16,21,56,0)=""
^DD(2005.1,16,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005.1,16,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005.1,16,21,59,0)=""
^DD(2005.1,16,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005.1,16,21,61,0)="   ===========   =============================="
^DD(2005.1,16,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005.1,16,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005.1,16,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005.1,16,21,65,0)=""
^DD(2005.1,16,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005.1,16,21,67,0)="value of LRDFN."
^DD(2005.1,16,22)=""
^DD(2005.1,16,"DT")="2940504"
^DD(2005.1,17,0)="PARENT GLOBAL ROOT D0^NJ7,0^^2;7^K:+X'=X!(X>9999999.9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005.1,17,3)="Type a Number between 1 and 9999999.9999, 0 Decimal Digits"
^DD(2005.1,17,21,0)="^^67^67^3001006^^"
^DD(2005.1,17,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005.1,17,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005.1,17,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005.1,17,21,4,0)=""
^DD(2005.1,17,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005.1,17,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005.1,17,21,7,0)="that describes why the image was collected."
^DD(2005.1,17,21,8,0)=""
^DD(2005.1,17,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005.1,17,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005.1,17,21,11,0)="optionally also field 63."
^DD(2005.1,17,21,12,0)=""
^DD(2005.1,17,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005.1,17,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005.1,17,21,15,0)="Common parent files are:"
^DD(2005.1,17,21,16,0)=""
^DD(2005.1,17,21,17,0)="   File    Name"
^DD(2005.1,17,21,18,0)="   ====    ===="
^DD(2005.1,17,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005.1,17,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005.1,17,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005.1,17,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005.1,17,21,23,0)="    63.09: CYTOLOGY"
^DD(2005.1,17,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005.1,17,21,25,0)="    74:    RADIOLOGY"
^DD(2005.1,17,21,26,0)="   130:    SURGERY"
^DD(2005.1,17,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005.1,17,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005.1,17,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005.1,17,21,30,0)="   694:    HEMATOLOGY"
^DD(2005.1,17,21,31,0)="   699:    ENDOSCOPY"
^DD(2005.1,17,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005.1,17,21,33,0)="  8925:    TIU"
^DD(2005.1,17,21,34,0)=""
^DD(2005.1,17,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005.1,17,21,36,0)="the list of images that belong to that record."
^DD(2005.1,17,21,37,0)=""
^DD(2005.1,17,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005.1,17,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005.1,17,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005.1,17,21,41,0)="The entries in these multiples identify the various images"
^DD(2005.1,17,21,42,0)="that belong with the record in question."
^DD(2005.1,17,21,43,0)=""
^DD(2005.1,17,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005.1,17,21,45,0)=""
^DD(2005.1,17,21,46,0)=" Type Number     Form of Root"
^DD(2005.1,17,21,47,0)=" ===========     ============"
^DD(2005.1,17,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005.1,17,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005.1,17,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005.1,17,21,51,0)=""
^DD(2005.1,17,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005.1,17,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005.1,17,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005.1,17,21,55,0)="well as D1 (type 3)."
^DD(2005.1,17,21,56,0)=""
^DD(2005.1,17,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005.1,17,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005.1,17,21,59,0)=""
^DD(2005.1,17,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005.1,17,21,61,0)="   ===========   =============================="
^DD(2005.1,17,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005.1,17,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005.1,17,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005.1,17,21,65,0)=""
^DD(2005.1,17,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005.1,17,21,67,0)="value of LRDFN."
^DD(2005.1,17,"DT")="2940504"
^DD(2005.1,18,0)="PARENT DATA FILE IMAGE POINTER^NJ12,4^^2;8^K:+X'=X!(X>9999999.9999)!(X<1)!(X?.E1"".""5N.N) X"
^DD(2005.1,18,3)="Type a Number between 1 and 9999999.9999, 4 Decimal Digits"
^DD(2005.1,18,21,0)="^^67^67^3001006^^"
^DD(2005.1,18,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005.1,18,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005.1,18,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005.1,18,21,4,0)=""
^DD(2005.1,18,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005.1,18,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005.1,18,21,7,0)="that describes why the image was collected."
^DD(2005.1,18,21,8,0)=""
^DD(2005.1,18,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005.1,18,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005.1,18,21,11,0)="optionally also field 63."
^DD(2005.1,18,21,12,0)=""
^DD(2005.1,18,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005.1,18,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005.1,18,21,15,0)="Common parent files are:"
^DD(2005.1,18,21,16,0)=""
^DD(2005.1,18,21,17,0)="   File    Name"
^DD(2005.1,18,21,18,0)="   ====    ===="
^DD(2005.1,18,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005.1,18,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005.1,18,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005.1,18,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005.1,18,21,23,0)="    63.09: CYTOLOGY"
^DD(2005.1,18,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005.1,18,21,25,0)="    74:    RADIOLOGY"
^DD(2005.1,18,21,26,0)="   130:    SURGERY"
^DD(2005.1,18,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005.1,18,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005.1,18,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005.1,18,21,30,0)="   694:    HEMATOLOGY"
^DD(2005.1,18,21,31,0)="   699:    ENDOSCOPY"
^DD(2005.1,18,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005.1,18,21,33,0)="  8925:    TIU"
^DD(2005.1,18,21,34,0)=""
^DD(2005.1,18,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005.1,18,21,36,0)="the list of images that belong to that record."
^DD(2005.1,18,21,37,0)=""
^DD(2005.1,18,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005.1,18,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005.1,18,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005.1,18,21,41,0)="The entries in these multiples identify the various images"
^DD(2005.1,18,21,42,0)="that belong with the record in question."
^DD(2005.1,18,21,43,0)=""
^DD(2005.1,18,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005.1,18,21,45,0)=""
^DD(2005.1,18,21,46,0)=" Type Number     Form of Root"
^DD(2005.1,18,21,47,0)=" ===========     ============"
^DD(2005.1,18,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005.1,18,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005.1,18,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005.1,18,21,51,0)=""
^DD(2005.1,18,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005.1,18,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005.1,18,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005.1,18,21,55,0)="well as D1 (type 3)."
^DD(2005.1,18,21,56,0)=""
^DD(2005.1,18,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005.1,18,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005.1,18,21,59,0)=""
^DD(2005.1,18,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005.1,18,21,61,0)="   ===========   =============================="
^DD(2005.1,18,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005.1,18,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005.1,18,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005.1,18,21,65,0)=""
^DD(2005.1,18,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005.1,18,21,67,0)="value of LRDFN."
^DD(2005.1,18,"DT")="2940504"
^DD(2005.1,19,0)="EXPORT REQUEST STATUS^S^1:EXPORT REQUESTED;0:EXPORTED;^2;9^Q"
^DD(2005.1,19,1,0)="^.1^^0"
^DD(2005.1,19,3)="USED BY MULTIMEDIA MAIL - REQUEST TO COPY IMAGE"
^DD(2005.1,19,21,0)="^^4^4^2940527^"
^DD(2005.1,19,21,1,0)="This field is used by Multimedia Mailman when an image needs to be sent to"
^DD(2005.1,19,21,2,0)="another site.  The Imaging software sets the field automatically, after"
^DD(2005.1,19,21,3,0)="checking its status.  After the request is carried out, it will be"
^DD(2005.1,19,21,4,0)="automatically reset."
^DD(2005.1,19,"DT")="2940628"
^DD(2005.1,30,0)="DELETED BY^P200'^VA(200,^30;1^Q"
^DD(2005.1,30,3)="This is system added field.  The Person who deleted the image."
^DD(2005.1,30,21,0)="^^2^2^3040519^"
^DD(2005.1,30,21,1,0)="This is the person who deleted the image.  It is a pointer to the new person"
^DD(2005.1,30,21,2,0)=" file.  The system uses the DUZ variable to set the field."
^DD(2005.1,30,"DT")="3040519"
^DD(2005.1,30.1,0)="DELETED DATE^D^^30;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1,30.1,3)="This is the date the Image was deleted from the Image File."
^DD(2005.1,30.1,21,0)="^^1^1^3040519^"
^DD(2005.1,30.1,21,1,0)="This is the date the Image was deleted from the Image File."
^DD(2005.1,30.1,"DT")="3040519"
^DD(2005.1,30.2,0)="DELETED REASON^F^^30;3^K:$L(X)>60!($L(X)<10) X"
^DD(2005.1,30.2,3)="The Reason that the Image was deleted from the Patient record."
^DD(2005.1,30.2,21,0)="^^1^1^3040519^"
^DD(2005.1,30.2,21,1,0)="This is the Reason that the Image was deleted."
^DD(2005.1,30.2,"DT")="3040519"
^DD(2005.1,40,0)="PACKAGE INDEX^S^RAD:RAD;LAB:LAB;MED:MED;NOTE:NOTE;CP:CP;SUR:SUR;PHOTOID:PHOTOID;NONE:NONE;CONS:CONS;^40;1^Q"
^DD(2005.1,40,3)="The Package associated with the Image"
^DD(2005.1,40,21,0)="^.001^1^1^3040519^^"
^DD(2005.1,40,21,1,0)="This is an abbreviation of the package that the Image is attached to."
^DD(2005.1,40,"DT")="3040519"
^DD(2005.1,41,0)="CLASS INDEX^P2005.82'^MAG(2005.82,^40;2^Q"
^DD(2005.1,41,21,0)="^.001^2^2^3040519^^"
^DD(2005.1,41,21,1,0)="The Classification of the Image."
^DD(2005.1,41,21,2,0)="CLASS is an index field used for sorting and searching."
^DD(2005.1,41,"DT")="3040519"
^DD(2005.1,42,0)="TYPE INDEX^P2005.83'^MAG(2005.83,^40;3^Q"
^DD(2005.1,42,3)="This field is used to screen image types."
^DD(2005.1,42,"DT")="3040701"
^DD(2005.1,43,0)="PROC/EVENT INDEX^P2005.85'^MAG(2005.85,^40;4^Q"
^DD(2005.1,43,21,0)="^.001^1^1^3040519^^"
^DD(2005.1,43,21,1,0)="The PROCEDURE/EVENT of Image.  PROCEDURE/EVENT is an index field used for sorting and searching."
^DD(2005.1,43,"DT")="3040519"
^DD(2005.1,44,0)="SPEC/SUBSPEC INDEX^P2005.84'^MAG(2005.84,^40;5^Q"
^DD(2005.1,44,21,0)="^.001^2^2^3040519^^"
^DD(2005.1,44,21,1,0)="The SPECIALTY/SUBSPECIALTY of Image."
^DD(2005.1,44,21,2,0)="  SPECIALTY/SUBSPECIALTY is an index field used for sorting and searching."
^DD(2005.1,44,"DT")="3040519"
^DD(2005.1,45,0)="ORIGIN INDEX^S^V:VA;N:NON-VA;^40;6^Q"
^DD(2005.1,45,3)="This field indicates whether this image originated inside or outside of the VA"
^DD(2005.1,45,21,0)="^^1^1^3040519^"
^DD(2005.1,45,21,1,0)="This field indicates whether this image originated inside or outside of  the VA"
^DD(2005.1,45,"DT")="3040519"
^DD(2005.1,50,0)="PATH ACCESSION NUMBER^F^^PATH;1^K:$L(X)>9!($L(X)<5) X"
^DD(2005.1,50,3)="Answer must be 5-9 characters in length."
^DD(2005.1,50,21,0)="^^2^2^2940520^"
^DD(2005.1,50,21,1,0)="This is the Anatomic Pathology accession number - the identifying number"
^DD(2005.1,50,21,2,0)="for the slide."
^DD(2005.1,50,"DT")="2930211"
^DD(2005.1,51,0)="SPECIMEN DESCRIPTION^F^^PATH;2^K:$L(X)>30!($L(X)<3) X"
^DD(2005.1,51,3)="Answer must be 3-30 characters in length."
^DD(2005.1,51,21,0)="^^2^2^2940520^"
^DD(2005.1,51,21,1,0)="This is the description given to the specimen in the Lab Data file - the"
^DD(2005.1,51,21,2,0)="information is carried over and stuffed into the Image file."
^DD(2005.1,51,"DT")="2930709"
^DD(2005.1,52,0)="SPECIMEN#^NJ2,0^^PATH;3^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005.1,52,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(2005.1,52,21,0)="^^1^1^2940520^"
^DD(2005.1,52,21,1,0)="This is the specimen number of the slide given in the Lab Data file."
^DD(2005.1,52,"DT")="2930216"
^DD(2005.1,53,0)="STAIN^F^^PATH;4^K:$L(X)>30!($L(X)<2) X"
^DD(2005.1,53,3)="Answer must be 2-30 characters in length."
^DD(2005.1,53,21,0)="^^2^2^2940520^"
^DD(2005.1,53,21,1,0)="This is a pointer to the Histological Stain file. It is the stain used in"
^DD(2005.1,53,21,2,0)="the preparation of the specimen and is input by the pathologist."
^DD(2005.1,53,"DT")="2970624"
^DD(2005.1,54,0)="MICROSCOPIC OBJECTIVE^F^^PATH;5^K:$L(X)>10!($L(X)<1) X"
^DD(2005.1,54,3)="Answer must be 1-10 characters in length."
^DD(2005.1,54,21,0)="^^3^3^2940523^"
^DD(2005.1,54,21,1,0)="This is a pointer to the Microscopic Objective file. It is input by the"
^DD(2005.1,54,21,2,0)="pathologist and identifies the power of the microscope objective used when"
^DD(2005.1,54,21,3,0)="capturing the image of the slide."
^DD(2005.1,54,"DT")="2970624"
^DD(2005.1,60,0)="PACS UID^F^^PACS;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>64!($L(X)<1) X"
^DD(2005.1,60,1,0)="^.1^^0"
^DD(2005.1,60,3)="A UID has up to 64 characters and must be unique."
^DD(2005.1,60,21,0)="^.001^2^2^3001107^^^"
^DD(2005.1,60,21,1,0)="This field is used by the VISTA-PACS interface and is the unique (up to) 64"
^DD(2005.1,60,21,2,0)="character image identifier of the PACS image."
^DD(2005.1,60,"DT")="3001107"
^DD(2005.1,61,0)="RADIOLOGY REPORT^P74'^RARPT(^PACS;2^Q"
^DD(2005.1,61,21,0)="^^2^2^2940527^"
^DD(2005.1,61,21,1,0)="Pointer to radiology report file used by the PACS interface to tie the"
^DD(2005.1,61,21,2,0)="image to the correct radiology report."
^DD(2005.1,61,"DT")="2930615"
^DD(2005.1,62,0)="PACS PROCEDURE^P71'^RAMIS(71,^PACS;3^Q"
^DD(2005.1,62,3)="RADIOLOGICAL PROCEDURE"
^DD(2005.1,62,21,0)="^^3^3^2940520^"
^DD(2005.1,62,21,1,0)="This field is used by the CHCP-PACS interface and is a backward pointer"
^DD(2005.1,62,21,2,0)="to the Radiology Reports file with which this radiological image is"
^DD(2005.1,62,21,3,0)="associated."
^DD(2005.1,62,"DT")="2930708"
^DD(2005.1,63,0)="PARENT GLOBAL ROOT D1^NJ9,0^^2;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.1,63,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2005.1,63,21,0)="^.001^67^67^3001025^^^^"
^DD(2005.1,63,21,1,0)="The values of fields 16, 17, 18 and 63 are numbers."
^DD(2005.1,63,21,2,0)="These numbers are internal entry numbers. Which field"
^DD(2005.1,63,21,3,0)="corresponds to which internal entry number is explained below."
^DD(2005.1,63,21,4,0)=""
^DD(2005.1,63,21,5,0)="Together, the values of these fields establish a link back"
^DD(2005.1,63,21,6,0)="to the entry in the ""parent"" file, that holds the information"
^DD(2005.1,63,21,7,0)="that describes why the image was collected."
^DD(2005.1,63,21,8,0)=""
^DD(2005.1,63,21,9,0)="The link to the ""parent"" information is brought about by"
^DD(2005.1,63,21,10,0)="the combination of the values of fields 16, 17, and, 18, and"
^DD(2005.1,63,21,11,0)="optionally also field 63."
^DD(2005.1,63,21,12,0)=""
^DD(2005.1,63,21,13,0)="The value of field 16 is a number that indicates the internal"
^DD(2005.1,63,21,14,0)="entry number of the ""parent file"" in the VA-FileMan data dictionary."
^DD(2005.1,63,21,15,0)="Common parent files are:"
^DD(2005.1,63,21,16,0)=""
^DD(2005.1,63,21,17,0)="   File    Name"
^DD(2005.1,63,21,18,0)="   ====    ===="
^DD(2005.1,63,21,19,0)="     3.9:  MAIL MESSAGE"
^DD(2005.1,63,21,20,0)="    63:    AUTOPSY (MICROSCOPIC)"
^DD(2005.1,63,21,21,0)="    63.02: ELECTRON MICROSCOPY"
^DD(2005.1,63,21,22,0)="    63.08: SURGICAL PATHOLOGY"
^DD(2005.1,63,21,23,0)="    63.09: CYTOLOGY"
^DD(2005.1,63,21,24,0)="    63.2:  AUTOPSY (GROSS)"
^DD(2005.1,63,21,25,0)="    74:    RADIOLOGY"
^DD(2005.1,63,21,26,0)="   130:    SURGERY"
^DD(2005.1,63,21,27,0)="   691:    ECHOCARDIOGRAM"
^DD(2005.1,63,21,28,0)="   691.1:  CARDIAC CATHETERIZATION"
^DD(2005.1,63,21,29,0)="   691.5:  ELECTROCARDIOGRAPHY"
^DD(2005.1,63,21,30,0)="   694:    HEMATOLOGY"
^DD(2005.1,63,21,31,0)="   699:    ENDOSCOPY"
^DD(2005.1,63,21,32,0)="   699.5:  GENERIC MEDICINE"
^DD(2005.1,63,21,33,0)="  8925:    TIU"
^DD(2005.1,63,21,34,0)=""
^DD(2005.1,63,21,35,0)="The records in each of these ""parent"" files contain a multiple that itemizes"
^DD(2005.1,63,21,36,0)="the list of images that belong to that record."
^DD(2005.1,63,21,37,0)=""
^DD(2005.1,63,21,38,0)="The field numbers and fixed indexes for those multiples"
^DD(2005.1,63,21,39,0)="all have the number 2005. The entries within these multiples"
^DD(2005.1,63,21,40,0)="all have a field that is a pointer back to the image file."
^DD(2005.1,63,21,41,0)="The entries in these multiples identify the various images"
^DD(2005.1,63,21,42,0)="that belong with the record in question."
^DD(2005.1,63,21,43,0)=""
^DD(2005.1,63,21,44,0)="The various parent files each have their own structure, for instance"
^DD(2005.1,63,21,45,0)=""
^DD(2005.1,63,21,46,0)=" Type Number     Form of Root"
^DD(2005.1,63,21,47,0)=" ===========     ============"
^DD(2005.1,63,21,48,0)="     1           ^RARPT(D0,2005,D1,0)=image..."
^DD(2005.1,63,21,49,0)="     2           ^MCAR(699,D0,2005,D1,0)=image..."
^DD(2005.1,63,21,50,0)="     3           ^LR(D0,""SP"",D1,2005,D2,0)=image..."
^DD(2005.1,63,21,51,0)=""
^DD(2005.1,63,21,52,0)="Depending on the nature of the file structure of the parent file,"
^DD(2005.1,63,21,53,0)="the imaging software will need either just the value of D0 (type"
^DD(2005.1,63,21,54,0)="1 and type 2) to find the correct entry, or the values of D0 as"
^DD(2005.1,63,21,55,0)="well as D1 (type 3)."
^DD(2005.1,63,21,56,0)=""
^DD(2005.1,63,21,57,0)="The values of the fields in the image file correspond to the"
^DD(2005.1,63,21,58,0)="values of the indices in the parent file as follows:"
^DD(2005.1,63,21,59,0)=""
^DD(2005.1,63,21,60,0)="   Type Number   Field Number and FileMan Index"
^DD(2005.1,63,21,61,0)="   ===========   =============================="
^DD(2005.1,63,21,62,0)="       1         field 17 = D0, field 18 = D1"
^DD(2005.1,63,21,63,0)="       2         field 17 = D0, field 18 = D1"
^DD(2005.1,63,21,64,0)="       3         field 17 = D0, field 63 = D1, field 18 = D2"
^DD(2005.1,63,21,65,0)=""
^DD(2005.1,63,21,66,0)="In the case of type 3, the value of D0 is equal to the"
^DD(2005.1,63,21,67,0)="value of LRDFN."
^DD(2005.1,63,"DT")="2970624"
^DD(2005.1,100,0)="DESCRIPTIVE CATEGORY^P2005.81'^MAG(2005.81,^100;1^Q"
^DD(2005.1,100,21,0)="^^2^2^3001025^"
^DD(2005.1,100,21,1,0)="This is mainly for Document Imaging, it"
^DD(2005.1,100,21,2,0)="further describes the type of document image."
^DD(2005.1,100,"DT")="2970624"
^DD(2005.1,101,0)="CLINIC^P44'^SC(^100;2^Q"
^DD(2005.1,101,21,0)="^^5^5^3001025^"
^DD(2005.1,101,21,1,0)="Points to the Hospital location file and will "
^DD(2005.1,101,21,2,0)="be used mainly for document images. If an"
^DD(2005.1,101,21,3,0)="image is associated with a patient encounter(visit), this is the "
^DD(2005.1,101,21,4,0)="clinic they had (will have) the appointment."
^DD(2005.1,101,21,5,0)="The appointment date/time is in field #15, PROCEDURE/EXAM DATE/TIME."
^DD(2005.1,101,"DT")="2970624"
^DD(2005.1,102,0)="BIG MAGNETIC PATH^P2005.2'^MAG(2005.2,^FBIG;1^Q"
^DD(2005.1,102,3)="This is the BIG file, i.e. the 2k by 2k Radiology image"
^DD(2005.1,102,21,0)="^^3^3^3001025^"
^DD(2005.1,102,21,1,0)="Full file path description for Image file of"
^DD(2005.1,102,21,2,0)=".BIG file types.  This field will indicate on"
^DD(2005.1,102,21,3,0)="which magnetic server this file resides."
^DD(2005.1,102,"DT")="2980505"
^DD(2005.1,103,0)="BIG JUKEBOX PATH^P2005.2'^MAG(2005.2,^FBIG;2^Q"
^DD(2005.1,103,3)="The JukeBox location of the BIG file. (the 2k by 2k Rad image)"
^DD(2005.1,103,21,0)="^^3^3^3001025^"
^DD(2005.1,103,21,1,0)="Full file path on jukebox for images of .BIG"
^DD(2005.1,103,21,2,0)="file extension.  This field will indicate"
^DD(2005.1,103,21,3,0)="whether this file is located on the Jukebox."
^DD(2005.1,103,"DT")="2980505"
^DD(2005.1,104,0)="RESERVED(BIG)^F^^FBIG;3^K:$L(X)>30!($L(X)<3) X"
^DD(2005.1,104,3)="Answer must be 3-30 characters in length."
^DD(2005.1,104,21,0)="^^1^1^2980518^"
^DD(2005.1,104,21,1,0)="Reserved for future use."
^DD(2005.1,104,"DT")="2980518"
^DD(2005.1,106,0)="ROUTING TIMESTAMP^2005.1106DA^^4;0"
^DD(2005.1,106,21,0)="^^1^1^3040701^"
^DD(2005.1,106,21,1,0)="This field keeps track of any routing activity."
^DD(2005.1,106,"DT")="3030226"
^DD(2005.1,107,0)="ACQUISITION DEVICE^P2006.04^MAG(2006.04,^100;4^Q"
^DD(2005.1,107,"DT")="3030123"
^DD(2005.1,108,0)="TRACKING ID^F^^100;5^K:$L(X)>30!($L(X)<3) X"
^DD(2005.1,108,3)="Package ID that performed the Import "";"" Internal package identifier"
^DD(2005.1,108,21,0)="^^4^4^3030123^"
^DD(2005.1,108,21,1,0)="This field tracks the packages that are using the Import API."
^DD(2005.1,108,21,2,0)="It is an "";"" (semicolon) delimited free text field."
^DD(2005.1,108,21,3,0)="First piece is the Package ID that performed the Import"
^DD(2005.1,108,21,4,0)="Second piece is the Internal package identifier."
^DD(2005.1,108,"DT")="3030123"
^DD(2005.1,109,0)="CREATE METHOD^F^^METHOD;1^K:$L(X)>245!($L(X)<3) X"
^DD(2005.1,109,3)="This field holds the command that either has created the image(s), or will dynamically access the Image from the Display GUI."
^DD(2005.1,109,21,0)="^^5^5^3030123^"
^DD(2005.1,109,21,1,0)="This field holds the command that either"
^DD(2005.1,109,21,2,0)="   has created the image(s)"
^DD(2005.1,109,21,3,0)="   or will dynamically access the Image when called from the Display GUI"
^DD(2005.1,109,21,4,0)="an example is a DLL provided by a COTS product."
^DD(2005.1,109,21,5,0)="When the DLL is called, it generates the image."
^DD(2005.1,109,"DT")="3030123"
^DD(2005.1,110,0)="DOCUMENT DATE^D^^100;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1,110,3)="If this image is a scanned document, enter the date of the document."
^DD(2005.1,110,21,0)="^^1^1^3030123^"
^DD(2005.1,110,21,1,0)="Document Images can have a seperate date, unlike clinical images that are attached to a procedure, and only procedure date is needed."
^DD(2005.1,110,"DT")="3030123"
^DD(2005.1,111,0)="ROUTING LOG^2005.1111A^^6;0"
^DD(2005.1,251,0)="DICOM SOP CLASS^P2006.532'^MAG(2006.532,^SOP;1^Q"
^DD(2005.1,251,3)="Identify the SOP Class that was used to acquire this image."
^DD(2005.1,251,21,0)="^^2^2^3050111^"
^DD(2005.1,251,21,1,0)="The value of this field is a pointer. The pointed to record"
^DD(2005.1,251,21,2,0)="identifies the DICOM SOP Class that was used to acquire this image."
^DD(2005.1,251,"DT")="3050111"
^DD(2005.1,252,0)="NEW SOP INSTANCE UID^F^^SOP;2^K:$L(X)>64!($L(X)<1)!'($TR(X,""1234567890."")="""") X"
^DD(2005.1,252,3)="Enter the VA's new SOP instance UID for the corrected image."
^DD(2005.1,252,21,0)="^^8^8^3041109^"
^DD(2005.1,252,21,1,0)="The value of this field is a string that represents a DICOM UID."
^DD(2005.1,252,21,2,0)="The DICOM standard defines the format of a UID: a string containing"
^DD(2005.1,252,21,3,0)="only digits and periods that does not exceed a length of 64 characters."
^DD(2005.1,252,21,4,0)="This field is populated when a corrected version of an image"
^DD(2005.1,252,21,5,0)="is exported, and the corrections are of such a nature that"
^DD(2005.1,252,21,6,0)="the image cannot be exported with its original SOP Instance UID."
^DD(2005.1,252,21,7,0)="Note that this UID value is assigned by VA software, and thus"
^DD(2005.1,252,21,8,0)="will always start with the characters ""1.2.840.113754.""."
^DD(2005.1,252,"DT")="3041109"
^DD(2005.1,253,0)="SERIES UID^F^^SERIESUID;1^K:$L(X)>64!($L(X)<1)!'(X?1.64(1N,1""."")) X"
^DD(2005.1,253,1,0)="^.1^^0"
^DD(2005.1,253,3)="Enter the Series UID for the current image."
^DD(2005.1,253,21,0)="^.001^5^5^3050712^^"
^DD(2005.1,253,21,1,0)="The value of this field is a DICOM unique identifier for"
^DD(2005.1,253,21,2,0)="the series to which an image belongs."
^DD(2005.1,253,21,3,0)="A DICOM UID looks like a series of digits and periods,"
^DD(2005.1,253,21,4,0)="is not longer than 64 characters, starts and ends with a digit"
^DD(2005.1,253,21,5,0)="and never has two consecutive periods."
^DD(2005.1,253,"DT")="3050803"
^DD(2005.1,"B","ACQUISITION DEVICE",107)=""
^DD(2005.1,"B","ACQUSITION SITE",.05)=""
^DD(2005.1,"B","BIG JUKEBOX PATH",103)=""
^DD(2005.1,"B","BIG MAGNETIC PATH",102)=""
^DD(2005.1,"B","CLASS INDEX",41)=""
^DD(2005.1,"B","CLINIC",101)=""
^DD(2005.1,"B","CREATE METHOD",109)=""
^DD(2005.1,"B","DATE/TIME IMAGE SAVED",7)=""
^DD(2005.1,"B","DELETED BY",30)=""
^DD(2005.1,"B","DELETED DATE",30.1)=""
^DD(2005.1,"B","DELETED REASON",30.2)=""
^DD(2005.1,"B","DESCRIPTIVE CATEGORY",100)=""
^DD(2005.1,"B","DICOM SOP CLASS",251)=""
^DD(2005.1,"B","DISK & VOL,MAGNETIC",2)=""
^DD(2005.1,"B","DISK & VOL.: WORM",2.2)=""
^DD(2005.1,"B","DISK & VOLUME. - ABSTRACT",2.1)=""
^DD(2005.1,"B","DOCUMENT DATE",110)=""
^DD(2005.1,"B","DUPE",13.5)=""
^DD(2005.1,"B","EXPORT LOCATION",.06)=""
^DD(2005.1,"B","EXPORT REQUEST STATUS",19)=""
^DD(2005.1,"B","FILEREF",1)=""
^DD(2005.1,"B","GROUP PARENT",14)=""
^DD(2005.1,"B","IMAGE SAVE BY",8)=""
^DD(2005.1,"B","IQ",13)=""
^DD(2005.1,"B","LAST ACCESS DATE",12)=""
^DD(2005.1,"B","LONG DESCRIPTION",11)=""
^DD(2005.1,"B","MICROSCOPIC OBJECTIVE",54)=""
^DD(2005.1,"B","NEW SOP INSTANCE UID",252)=""
^DD(2005.1,"B","NUMBER",.001)=""
^DD(2005.1,"B","OBJECT GROUP",4)=""
^DD(2005.1,"B","OBJECT NAME",.01)=""
^DD(2005.1,"B","OBJECT TYPE",3)=""
^DD(2005.1,"B","ORIGIN INDEX",45)=""
^DD(2005.1,"B","PACKAGE INDEX",40)=""
^DD(2005.1,"B","PACS PROCEDURE",62)=""
^DD(2005.1,"B","PACS UID",60)=""
^DD(2005.1,"B","PARENT DATA FILE IMAGE POINTER",18)=""
^DD(2005.1,"B","PARENT DATA FILE#",16)=""
^DD(2005.1,"B","PARENT GLOBAL ROOT D0",17)=""
^DD(2005.1,"B","PARENT GLOBAL ROOT D1",63)=""
^DD(2005.1,"B","PATH ACCESSION NUMBER",50)=""
^DD(2005.1,"B","PATIENT",5)=""
^DD(2005.1,"B","PROC/EVENT INDEX",43)=""
^DD(2005.1,"B","PROCEDURE",6)=""
^DD(2005.1,"B","PROCEDURE/EXAM DATE/TIME",15)=""
^DD(2005.1,"B","RADIOLOGY REPORT",61)=""
^DD(2005.1,"B","RESERVED(BIG)",104)=""
^DD(2005.1,"B","ROUTING LOG",111)=""
^DD(2005.1,"B","ROUTING TIMESTAMP",106)=""
^DD(2005.1,"B","SERIES UID",253)=""
^DD(2005.1,"B","SHORT DESCRIPTION",10)=""
^DD(2005.1,"B","SPEC/SUBSPEC INDEX",44)=""
^DD(2005.1,"B","SPECIMEN DESCRIPTION",51)=""
^DD(2005.1,"B","SPECIMEN#",52)=""
^DD(2005.1,"B","STAIN",53)=""
^DD(2005.1,"B","SUMMARY OBJECT",9)=""
^DD(2005.1,"B","TRACKING ID",108)=""
^DD(2005.1,"B","TYPE INDEX",42)=""
^DD(2005.1,"GL",0,1,.01)=""
^DD(2005.1,"GL",0,2,1)=""
^DD(2005.1,"GL",0,3,2)=""
^DD(2005.1,"GL",0,4,2.1)=""
^DD(2005.1,"GL",0,5,2.2)=""
^DD(2005.1,"GL",0,6,3)=""
^DD(2005.1,"GL",0,7,5)=""
^DD(2005.1,"GL",0,8,6)=""
^DD(2005.1,"GL",0,9,12)=""
^DD(2005.1,"GL",0,10,14)=""
^DD(2005.1,"GL",0,11,13)=""
^DD(2005.1,"GL",0,12,13.5)=""
^DD(2005.1,"GL",1,0,4)=""
^DD(2005.1,"GL",2,1,7)=""
^DD(2005.1,"GL",2,2,8)=""
^DD(2005.1,"GL",2,3,9)=""
^DD(2005.1,"GL",2,4,10)=""
^DD(2005.1,"GL",2,5,15)=""
^DD(2005.1,"GL",2,6,16)=""
^DD(2005.1,"GL",2,7,17)=""
^DD(2005.1,"GL",2,8,18)=""
^DD(2005.1,"GL",2,9,19)=""
^DD(2005.1,"GL",2,10,63)=""
^DD(2005.1,"GL",3,0,11)=""
^DD(2005.1,"GL",4,0,106)=""
^DD(2005.1,"GL",5,0,.06)=""
^DD(2005.1,"GL",6,0,111)=""
^DD(2005.1,"GL",30,1,30)=""
^DD(2005.1,"GL",30,2,30.1)=""
^DD(2005.1,"GL",30,3,30.2)=""
^DD(2005.1,"GL",40,1,40)=""
^DD(2005.1,"GL",40,2,41)=""
^DD(2005.1,"GL",40,3,42)=""
^DD(2005.1,"GL",40,4,43)=""
^DD(2005.1,"GL",40,5,44)=""
^DD(2005.1,"GL",40,6,45)=""
^DD(2005.1,"GL",100,1,100)=""
^DD(2005.1,"GL",100,2,101)=""
^DD(2005.1,"GL",100,3,.05)=""
^DD(2005.1,"GL",100,4,107)=""
^DD(2005.1,"GL",100,5,108)=""
^DD(2005.1,"GL",100,6,110)=""
^DD(2005.1,"GL","FBIG",1,102)=""
^DD(2005.1,"GL","FBIG",2,103)=""
^DD(2005.1,"GL","FBIG",3,104)=""
^DD(2005.1,"GL","METHOD",1,109)=""
^DD(2005.1,"GL","PACS",1,60)=""
^DD(2005.1,"GL","PACS",2,61)=""
^DD(2005.1,"GL","PACS",3,62)=""
^DD(2005.1,"GL","PATH",1,50)=""
^DD(2005.1,"GL","PATH",2,51)=""
^DD(2005.1,"GL","PATH",3,52)=""
^DD(2005.1,"GL","PATH",4,53)=""
^DD(2005.1,"GL","PATH",5,54)=""
^DD(2005.1,"GL","SERIESUID",1,253)=""
^DD(2005.1,"GL","SOP",1,251)=""
^DD(2005.1,"GL","SOP",2,252)=""
^DD(2005.1,"IX",.01)=""
^DD(2005.1,"IX",1)=""
^DD(2005.1,"IX",5)=""
^DD(2005.1,"RQ",.01)=""
^DD(2005.1,"RQ",.05)=""
^DD(2005.1,"RQ",16)=""
^DD(2005.1,"SB",2005.11,.06)=""
^DD(2005.1,"SB",2005.1106,106)=""
^DD(2005.1,"SB",2005.111,11)=""
^DD(2005.1,"SB",2005.1111,111)=""
^DD(2005.1,"SB",2005.14,4)=""
^DD(2005.11,0)="EXPORT LOCATION SUB-FIELD^^2^3"
^DD(2005.11,0,"DT")="3030123"
^DD(2005.11,0,"IX","B",2005.11,.01)=""
^DD(2005.11,0,"NM","EXPORT LOCATION")=""
^DD(2005.11,0,"UP")="2005.1"
^DD(2005.11,.01,0)="EXPORT LOCATION^P2005.2'^MAG(2005.2,^0;1^Q"
^DD(2005.11,.01,1,0)="^.1"
^DD(2005.11,.01,1,1,0)="2005.11^B"
^DD(2005.11,.01,1,1,1)="S ^MAG(2005.1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(2005.11,.01,1,1,2)="K ^MAG(2005.1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(2005.11,.01,21,0)="^.001^2^2^3030123^^"
^DD(2005.11,.01,21,1,0)="This is the network location file pointer that successfully received"
^DD(2005.11,.01,21,2,0)="a copy of the file."
^DD(2005.11,.01,"DT")="3030123"
^DD(2005.11,1,0)="TIMESTAMP^D^^0;2^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.11,1,21,0)="^^2^2^3030123^"
^DD(2005.11,1,21,1,0)="This is the date and time that the file was copied to the"
^DD(2005.11,1,21,2,0)="network location."
^DD(2005.11,1,"DT")="3030123"
^DD(2005.11,2,0)="EXTENSION^F^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(2005.11,2,3)="Answer must be 3 characters in length."
^DD(2005.11,2,21,0)="^^2^2^3030123^"
^DD(2005.11,2,21,1,0)="This is the file extension that was successfully copied to the"
^DD(2005.11,2,21,2,0)="network location."
^DD(2005.11,2,"DT")="3030123"
^DD(2005.11,"B","EXPORT LOCATION",.01)=""
^DD(2005.11,"B","EXTENSION",2)=""
^DD(2005.11,"B","TIMESTAMP",1)=""
^DD(2005.11,"GL",0,1,.01)=""
^DD(2005.11,"GL",0,2,1)=""
^DD(2005.11,"GL",0,3,2)=""
^DD(2005.11,"IX",.01)=""
^DD(2005.1106,0)="ROUTING TIMESTAMP SUB-FIELD^^7^7"
^DD(2005.1106,0,"DT")="2981208"
^DD(2005.1106,0,"IX","LOC",2005.1106,2)=""
^DD(2005.1106,0,"NM","ROUTING TIMESTAMP")=""
^DD(2005.1106,0,"UP")="2005.1"
^DD(2005.1106,.01,0)="ROUTING TIMESTAMP^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1106,.01,1,0)="^.1^^0"
^DD(2005.1106,.01,3)="Enter the date and time when the image file was 'routed'."
^DD(2005.1106,.01,21,0)="^^6^6^2981208^"
^DD(2005.1106,.01,21,1,0)="This field keeps track of any routing activity."
^DD(2005.1106,.01,21,2,0)="For each time that an image file is transmitted in the context"
^DD(2005.1106,.01,21,3,0)="of 'routing', an entry will be added to this multiple that"
^DD(2005.1106,.01,21,4,0)="records which type of image file was transmitted (FULL, BIG,"
^DD(2005.1106,.01,21,5,0)="ABSTRACT, etcetera), and to which destination (pointer to"
^DD(2005.1106,.01,21,6,0)="network location) it was transmitted."
^DD(2005.1106,.01,"DT")="3030226"
^DD(2005.1106,2,0)="DESTINATION^RP2005.2'^MAG(2005.2,^0;2^Q"
^DD(2005.1106,2,1,0)="^.1^^-1"
^DD(2005.1106,2,1,1,0)="2005.1106^LOC"
^DD(2005.1106,2,1,1,1)="S ^MAG(2005.1,DA(1),4,""LOC"",$E(X,1,30),DA)="""""
^DD(2005.1106,2,1,1,2)="K ^MAG(2005.1,DA(1),4,""LOC"",$E(X,1,30),DA)"
^DD(2005.1106,2,1,1,"%D",0)="^^3^3^2981222^"
^DD(2005.1106,2,1,1,"%D",1,0)="This cross-reference keeps track of which destinations"
^DD(2005.1106,2,1,1,"%D",2,0)="(network locations) have received image files from the"
^DD(2005.1106,2,1,1,"%D",3,0)="current system."
^DD(2005.1106,2,1,1,"DT")="2981222"
^DD(2005.1106,2,3)="Enter the destination to which the image file was transmitted."
^DD(2005.1106,2,21,0)="^^3^3^2981221^^^"
^DD(2005.1106,2,21,1,0)="The value of this field is a pointer (into the network location file)"
^DD(2005.1106,2,21,2,0)="that indicated where an image file was sent in the context of"
^DD(2005.1106,2,21,3,0)="automated routing."
^DD(2005.1106,2,"DT")="3030226"
^DD(2005.1106,3,0)="TYPE^RS^FULL:Full;ABSTRACT:Abstract;BIG:Big;TEXT:Text;DICOM:DICOM;^0;3^Q"
^DD(2005.1106,3,3)="Enter the type of image file that was transmitted."
^DD(2005.1106,3,21,0)="^^2^2^2981221^^"
^DD(2005.1106,3,21,1,0)="The value of this field indicates what type of image file"
^DD(2005.1106,3,21,2,0)="was transmitted (FULL, BIG, TEXT, DICOM or ABSTRACT)."
^DD(2005.1106,3,"DT")="3030226"
^DD(2005.1106,4,0)="FILENAME^RF^^0;4^K:$L(X)>100!($L(X)<1) X"
^DD(2005.1106,4,3)="Enter the name of the transmitted file (path+name at destination)."
^DD(2005.1106,4,21,0)="^^3^3^2981221^^"
^DD(2005.1106,4,21,1,0)="The value of this field is the name of the transmitted file as"
^DD(2005.1106,4,21,2,0)="it is at the destination location. This file name contains all"
^DD(2005.1106,4,21,3,0)="directory prefixes and a 'type' suffix."
^DD(2005.1106,4,"DT")="3030226"
^DD(2005.1106,5,0)="START TRANSMIT^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1106,5,3)="Enter the time that the transmission started."
^DD(2005.1106,5,21,0)="^^6^6^3031212^"
^DD(2005.1106,5,21,1,0)="The value of this field is a timestamp that indicates"
^DD(2005.1106,5,21,2,0)="the date and time when the transmission of a file started."
^DD(2005.1106,5,21,3,0)=" "
^DD(2005.1106,5,21,4,0)="Together with the value of the field ROUTING TIMESTAMP,"
^DD(2005.1106,5,21,5,0)="which indicates the time when the transmission completed,"
^DD(2005.1106,5,21,6,0)="statistics can be calculated on how long it took to transmit image files."
^DD(2005.1106,5,"DT")="3031212"
^DD(2005.1106,6,0)="TIMESTAMP QUEUE ENTRY^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1106,6,3)="Enter the time when the queue-entry was made."
^DD(2005.1106,6,21,0)="^^7^7^3031212^"
^DD(2005.1106,6,21,1,0)="The value of this field is a timestamp that indicates"
^DD(2005.1106,6,21,2,0)="the date and time when the entry was made into the routing queue."
^DD(2005.1106,6,21,3,0)=" "
^DD(2005.1106,6,21,4,0)="Together with the value of the field START TRANSMIT,"
^DD(2005.1106,6,21,5,0)="which indicates when the transmission started,"
^DD(2005.1106,6,21,6,0)="statistics can be calculated related to wait times"
^DD(2005.1106,6,21,7,0)="in the routing queue."
^DD(2005.1106,6,"DT")="3031212"
^DD(2005.1106,7,0)="LOG ENTRY^NJ15,0^^0;7^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.1106,7,3)="Enter the sequence number of the ""permanent"" log entry."
^DD(2005.1106,7,21,0)="^^6^6^3031212^"
^DD(2005.1106,7,21,1,0)="The value of this field is an integer number that indicates the entry"
^DD(2005.1106,7,21,2,0)="in the ""permanent"" log of all routed copies of the current"
^DD(2005.1106,7,21,3,0)="image (as required by HIPAA)."
^DD(2005.1106,7,21,4,0)=" "
^DD(2005.1106,7,21,5,0)="This value is used to record when images are purged from their"
^DD(2005.1106,7,21,6,0)="routed destination."
^DD(2005.1106,7,"DT")="3031212"
^DD(2005.1106,"B","DESTINATION",2)=""
^DD(2005.1106,"B","FILENAME",4)=""
^DD(2005.1106,"B","LOG ENTRY",7)=""
^DD(2005.1106,"B","ROUTING TIMESTAMP",.01)=""
^DD(2005.1106,"B","START TRANSMIT",5)=""
^DD(2005.1106,"B","TIMESTAMP QUEUE ENTRY",6)=""
^DD(2005.1106,"B","TYPE",3)=""
^DD(2005.1106,"GL",0,1,.01)=""
^DD(2005.1106,"GL",0,2,2)=""
^DD(2005.1106,"GL",0,3,3)=""
^DD(2005.1106,"GL",0,4,4)=""
^DD(2005.1106,"GL",0,5,5)=""
^DD(2005.1106,"GL",0,6,6)=""
^DD(2005.1106,"GL",0,7,7)=""
^DD(2005.1106,"IX",2)=""
^DD(2005.1106,"RQ",2)=""
^DD(2005.1106,"RQ",3)=""
^DD(2005.1106,"RQ",4)=""
^DD(2005.111,0)="LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(2005.111,0,"NM","LONG DESCRIPTION")=""
^DD(2005.111,0,"UP")="2005.1"
^DD(2005.111,.01,0)="LONG DESCRIPTION^W^^0;1^Q"
^DD(2005.111,.01,3)="Enter a complete description of the image."
^DD(2005.111,.01,"DT")="2930706"
^DD(2005.111,"B","LONG DESCRIPTION",.01)=""
^DD(2005.111,"GL",0,1,.01)=""
^DD(2005.1111,0)="ROUTING LOG SUB-FIELD^^7^7"
^DD(2005.1111,0,"DT")="3031212"
^DD(2005.1111,0,"NM","ROUTING LOG")=""
^DD(2005.1111,0,"UP")="2005.1"
^DD(2005.1111,.01,0)="ROUTING LOG^F^^0;1^K:$L(X)>63!($L(X)<1) X"
^DD(2005.1111,.01,1,0)="^.1^^0"
^DD(2005.1111,.01,3)="Enter the name of the destination to which the image is routed."
^DD(2005.1111,.01,21,0)="^^2^2^3031212^"
^DD(2005.1111,.01,21,1,0)="The value of this field is a string that identifies the location"
^DD(2005.1111,.01,21,2,0)="to which the current image has been routed."
^DD(2005.1111,.01,"DT")="3031212"
^DD(2005.1111,2,0)="COPY LOCATION^P2005.2'^MAG(2005.2,^0;2^Q"
^DD(2005.1111,2,3)="Enter the name of the Network Location to which this image is being routed."
^DD(2005.1111,2,21,0)="^^3^3^3031212^"
^DD(2005.1111,2,21,1,0)="The value of this field is a pointer to the Network ocation table"
^DD(2005.1111,2,21,2,0)="(#2005.2). When an image is transmitted using the ""copy"" method,"
^DD(2005.1111,2,21,3,0)="this field is populated."
^DD(2005.1111,2,"DT")="3031212"
^DD(2005.1111,3,0)="DICOM SEND LOCATION^P2006.587'^MAG(2006.587,^0;3^Q"
^DD(2005.1111,3,3)="Enter the name of the DICOM SCP to which the image is being routed."
^DD(2005.1111,3,21,0)="^^3^3^3031212^"
^DD(2005.1111,3,21,1,0)="The value of this field is a pointer to the DICOM Transmit Destination"
^DD(2005.1111,3,21,2,0)="table (#2006.587). When an image is transmitted using the DICOM Send"
^DD(2005.1111,3,21,3,0)="method, this field is populated."
^DD(2005.1111,3,"DT")="3031212"
^DD(2005.1111,4,0)="TIMESTAMP TRANSMIT^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1111,4,3)="Enter the time when the transmission finished."
^DD(2005.1111,4,21,0)="^^3^3^3031212^"
^DD(2005.1111,4,21,1,0)="The value of this field is a timestamp that indicates the"
^DD(2005.1111,4,21,2,0)="date and time when the current image was transmitted to"
^DD(2005.1111,4,21,3,0)="the location described in the current record."
^DD(2005.1111,4,"DT")="3031212"
^DD(2005.1111,5,0)="TIMESTAMP PURGE^D^^0;5^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.1111,5,3)="Enter the time when the image was purged at this location."
^DD(2005.1111,5,21,0)="^^3^3^3031212^"
^DD(2005.1111,5,21,1,0)="The value of this field is a timestamp that indicates the"
^DD(2005.1111,5,21,2,0)="date and time when the copy of the current image was purged"
^DD(2005.1111,5,21,3,0)="from the location that is described in the current record."
^DD(2005.1111,5,"DT")="3031212"
^DD(2005.1111,6,0)="FILE NAME^F^^0;6^K:$L(X)>63!($L(X)<1) X"
^DD(2005.1111,6,3)="Enter the name of the file at this destination."
^DD(2005.1111,6,21,0)="^^3^3^3031212^"
^DD(2005.1111,6,21,1,0)="The value of this field is a string that represents the name of"
^DD(2005.1111,6,21,2,0)="the (host system) file as it appears at the location to which"
^DD(2005.1111,6,21,3,0)="the image has been copied."
^DD(2005.1111,6,"DT")="3031212"
^DD(2005.1111,7,0)="FILE TYPE^S^TXT:Text;BIG:Large X-Ray;TGA:Targa(TM);ABS:Thumbnail;DCM:DICOM;DICOM:DICOM;^0;7^Q"
^DD(2005.1111,7,3)="Enter the code for the file-type."
^DD(2005.1111,7,21,0)="^^2^2^3031212^"
^DD(2005.1111,7,21,1,0)="The value of this field is a code for the type of data that is"
^DD(2005.1111,7,21,2,0)="stored in the file that is described in the current record."
^DD(2005.1111,7,"DT")="3031212"
^DD(2005.1111,"B","COPY LOCATION",2)=""
^DD(2005.1111,"B","DICOM SEND LOCATION",3)=""
^DD(2005.1111,"B","FILE NAME",6)=""
^DD(2005.1111,"B","FILE TYPE",7)=""
^DD(2005.1111,"B","ROUTING LOG",.01)=""
^DD(2005.1111,"B","TIMESTAMP PURGE",5)=""
^DD(2005.1111,"B","TIMESTAMP TRANSMIT",4)=""
^DD(2005.1111,"GL",0,1,.01)=""
^DD(2005.1111,"GL",0,2,2)=""
^DD(2005.1111,"GL",0,3,3)=""
^DD(2005.1111,"GL",0,4,4)=""
^DD(2005.1111,"GL",0,5,5)=""
^DD(2005.1111,"GL",0,6,6)=""
^DD(2005.1111,"GL",0,7,7)=""
^DD(2005.14,0)="OBJECT GROUP SUB-FIELD^^2^3"
^DD(2005.14,0,"NM","OBJECT GROUP")=""
^DD(2005.14,0,"UP")="2005.1"
^DD(2005.14,.01,0)="OBJECT GROUP^MP2005.1'^MAG(2005.1,^0;1^Q"
^DD(2005.14,.01,1,0)="^.1^^0"
^DD(2005.14,.01,21,0)="^^14^14^3001025^"
^DD(2005.14,.01,21,1,0)="The object group is a multiple field pointing back to the Image file"
^DD(2005.14,.01,21,2,0)="(2005.1).  Only objects with an object type of GROUP have the object group"
^DD(2005.14,.01,21,3,0)="field defined.  These objects can be thought of as the 'parent' of a set"
^DD(2005.14,.01,21,4,0)="of images.  Generally, instead of having their own abstract, objects of"
^DD(2005.14,.01,21,5,0)="the GROUP type use the abstract of the first entry in their object group"
^DD(2005.14,.01,21,6,0)="multiple.  Sometimes, text will be used in place of the GROUP abstract for"
^DD(2005.14,.01,21,7,0)="speed.  Methods for viewing a GROUP object generally allow viewing of all"
^DD(2005.14,.01,21,8,0)="the members of the group, either selectively or altogether.  A good"
^DD(2005.14,.01,21,9,0)="example would be a set of thirty CT scan images.  Using the integrated"
^DD(2005.14,.01,21,10,0)="view menu option, the tiled display of image abstracts would contain only"
^DD(2005.14,.01,21,11,0)="one abstract for the group.  Selecting the group object for viewing"
^DD(2005.14,.01,21,12,0)="provides the user with a tiled display of the abstracts of the individual"
^DD(2005.14,.01,21,13,0)="CT scan images.  The user can then identify individual images for full"
^DD(2005.14,.01,21,14,0)="resolution viewing."
^DD(2005.14,.01,"DT")="2940519"
^DD(2005.14,1,0)="DICOM SERIES NUM^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.14,1,3)="This is the Dicom 'Series Number'"
^DD(2005.14,1,"DT")="2981118"
^DD(2005.14,2,0)="DICOM IMAGE NUM^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.14,2,3)="This is the Dicom 'Image Number'"
^DD(2005.14,2,"DT")="2981118"
^DD(2005.14,"B","DICOM IMAGE NUM",2)=""
^DD(2005.14,"B","DICOM SERIES NUM",1)=""
^DD(2005.14,"B","OBJECT GROUP",.01)=""
^DD(2005.14,"GL",0,1,.01)=""
^DD(2005.14,"GL",0,2,1)=""
^DD(2005.14,"GL",0,3,2)=""
^DD(2005.2,0)="FIELD^^29^30"
^DD(2005.2,0,"DDA")="N"
^DD(2005.2,0,"DT")="3000228"
^DD(2005.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2005.2,0,"ID",6)="W """""
^DD(2005.2,0,"IX","AC",2005.2,1)=""
^DD(2005.2,0,"IX","B",2005.2,.01)=""
^DD(2005.2,0,"IX","E",2005.2,6)=""
^DD(2005.2,0,"NM","NETWORK LOCATION")=""
^DD(2005.2,0,"PT",2005,2)=""
^DD(2005.2,0,"PT",2005,2.1)=""
^DD(2005.2,0,"PT",2005,2.2)=""
^DD(2005.2,0,"PT",2005,102)=""
^DD(2005.2,0,"PT",2005,103)=""
^DD(2005.2,0,"PT",2005.01,.01)=""
^DD(2005.2,0,"PT",2005.0106,2)=""
^DD(2005.2,0,"PT",2005.0111,2)=""
^DD(2005.2,0,"PT",2005.1,2)=""
^DD(2005.2,0,"PT",2005.1,2.1)=""
^DD(2005.2,0,"PT",2005.1,2.2)=""
^DD(2005.2,0,"PT",2005.1,102)=""
^DD(2005.2,0,"PT",2005.1,103)=""
^DD(2005.2,0,"PT",2005.11,.01)=""
^DD(2005.2,0,"PT",2005.1106,2)=""
^DD(2005.2,0,"PT",2005.1111,2)=""
^DD(2005.2,0,"PT",2006.032,2)=""
^DD(2005.2,0,"PT",2006.035,1)=""
^DD(2005.2,0,"PT",2006.1,.03)=""
^DD(2005.2,0,"PT",2006.1,.07)=""
^DD(2005.2,0,"PT",2006.1,.08)=""
^DD(2005.2,0,"PT",2006.1,1.02)=""
^DD(2005.2,0,"PT",2006.1,1.03)=""
^DD(2005.2,0,"PT",2006.1,2.03)=""
^DD(2005.2,0,"PT",2006.1,52)=""
^DD(2005.2,0,"PT",2006.1,53)=""
^DD(2005.2,0,"PT",2006.1,55)=""
^DD(2005.2,0,"VR")="3.0"
^DD(2005.2,0,"VRPK")="IMAGING"
^DD(2005.2,.01,0)="NETWORK LOCATION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1.AN) X"
^DD(2005.2,.01,1,0)="^.1"
^DD(2005.2,.01,1,1,0)="2005.2^B"
^DD(2005.2,.01,1,1,1)="S ^MAG(2005.2,""B"",$E(X,1,30),DA)="""""
^DD(2005.2,.01,1,1,2)="K ^MAG(2005.2,""B"",$E(X,1,30),DA)"
^DD(2005.2,.01,3)="Answer must be 3-30 characters in length."
^DD(2005.2,.01,21,0)="^^1^1^2971110^^^^"
^DD(2005.2,.01,21,1,0)="This is the logical name of the physical location where an image is stored."
^DD(2005.2,.01,23,0)="^^1^1^2971110^^^"
^DD(2005.2,.01,23,1,0)=" "
^DD(2005.2,.01,"DEL",1,0)="D EN^DDIOL(""Deletion is not allowed!"") I 1"
^DD(2005.2,.01,"DT")="2930616"
^DD(2005.2,.04,0)="PLACE^RP2006.1'^MAG(2006.1,^0;10^Q"
^DD(2005.2,.04,1,0)="^.1^^0"
^DD(2005.2,.04,21,0)="^^3^3^3050414^"
^DD(2005.2,.04,21,1,0)="This field references the site parameter file. The Site parameter entry "
^DD(2005.2,.04,21,2,0)="defines all of the attributes of Vista Imaging local area network. This "
^DD(2005.2,.04,21,3,0)="includes facility user preferences, network write locations, etc."
^DD(2005.2,.04,"DT")="3050414"
^DD(2005.2,1,0)="PHYSICAL REFERENCE^RFX^^0;2^K:$L(X)>120!($L(X)<1)!'((X?1""\\"".E1""\"".E1""\"")!(X?1A1"":\""1E.E1""\"")!($P($$UPPER^MAGQE4(X),""//"")[""HTTP"")) X"
^DD(2005.2,1,1,0)="^.1^^-1"
^DD(2005.2,1,1,1,0)="2005.2^AC"
^DD(2005.2,1,1,1,1)="S ^MAG(2005.2,""AC"",X,DA)="""""
^DD(2005.2,1,1,1,2)="K ^MAG(2005.2,""AC"",X,DA)"
^DD(2005.2,1,1,1,"%D",0)="^.101^2^2^3030220^^^^"
^DD(2005.2,1,1,1,"%D",1,0)="This cross-reference allows a network location to be looked up"
^DD(2005.2,1,1,1,"%D",2,0)="by physical name."
^DD(2005.2,1,1,1,"DT")="2951017"
^DD(2005.2,1,3)="Enter the name of the physical location for this device. Answer must be 1-120 character in length."
^DD(2005.2,1,21,0)="^.001^3^3^3030226^^^^"
^DD(2005.2,1,21,1,0)="This is the physical network location where the image is stored. This is"
^DD(2005.2,1,21,2,0)="the Universal Naming Convention (UNC)PATH for the Image Storage. For"
^DD(2005.2,1,21,3,0)="example: \\ISWIMG01\IMAGE1\"
^DD(2005.2,1,"DT")="3050707"
^DD(2005.2,2,0)="TOTAL SPACE^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.2,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2005.2,2,21,0)="^^1^1^2970721^^^"
^DD(2005.2,2,21,1,0)="This is the total available formatted space of this network location (Device dependent)."
^DD(2005.2,2,"DT")="2940609"
^DD(2005.2,3,0)="SPACE USED^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.2,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2005.2,3,21,0)="^^2^2^2990301^^^^"
^DD(2005.2,3,21,1,0)="This is the amount of space which has been used for this network location"
^DD(2005.2,3,21,2,0)="- this value is device dependent."
^DD(2005.2,3,"DT")="2940505"
^DD(2005.2,4,0)="FREE SPACE^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.2,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2005.2,4,21,0)="^^2^2^2990301^^^"
^DD(2005.2,4,21,1,0)="This is the amount of available space remaining for this network location."
^DD(2005.2,4,21,2,0)="This value is device dependent."
^DD(2005.2,4,"DT")="2940505"
^DD(2005.2,5,0)="OPERATIONAL STATUS^RSX^0:Off-Line;1:On-Line;^0;6^Q:DA[""+1""  S:$P(^MAG(2005.2,DA,0),U,6)="""" $P(^MAG(2005.2,DA,0),U,6)=""0"""
^DD(2005.2,5,.1)="Reachability Status"
^DD(2005.2,5,1,0)="^.1^^0"
^DD(2005.2,5,3)="Code the Network Location ONline/OFFline status"
^DD(2005.2,5,21,0)="^.001^3^3^3020211^^^^"
^DD(2005.2,5,21,1,0)="This field tells the Imaging software whether or not this network"
^DD(2005.2,5,21,2,0)="location, where images are stored, is online. The default is online if the"
^DD(2005.2,5,21,3,0)="field is null."
^DD(2005.2,5,23,0)="^.001^1^1^3020211^^^^"
^DD(2005.2,5,23,1,0)=" "
^DD(2005.2,5,"DT")="3030220"
^DD(2005.2,6,0)="STORAGE TYPE^RS^MAG:MAGNETIC;WORM-DG:WORM-DG;WORM-PDT:WORM-PDT;RW:READ/WRITE;WORM-OTG:WORM-OTG;EKG:MUSE-EKG;GCC:EXPORT;DGM:DIAGRAM;URL:URL;^0;7^Q"
^DD(2005.2,6,1,0)="^.1"
^DD(2005.2,6,1,1,0)="2005.2^E"
^DD(2005.2,6,1,1,1)="S ^MAG(2005.2,""E"",$E(X,1,30),DA)="""""
^DD(2005.2,6,1,1,2)="K ^MAG(2005.2,""E"",$E(X,1,30),DA)"
^DD(2005.2,6,1,1,"%D",0)="^.101^1^1^3030813^^"
^DD(2005.2,6,1,1,"%D",1,0)="Storage Type cross reference"
^DD(2005.2,6,1,1,"DT")="3000131"
^DD(2005.2,6,3)="Enter the type of storage this network location is i.e."
^DD(2005.2,6,21,0)="^.001^8^8^3050707^^^^"
^DD(2005.2,6,21,1,0)="This field describes the media type of this network location. It should be"
^DD(2005.2,6,21,2,0)="MAGNETIC for a magnetic disk server. Jukeboxes should be WORM-DG for Data"
^DD(2005.2,6,21,3,0)="General Jukeboxes under Open Netware or WORM-PDT for Pegasus Jukeboxes or"
^DD(2005.2,6,21,4,0)="WORM-OTG for OTG Disk Extender. WORM-DG and WORM-PDT are for backward"
^DD(2005.2,6,21,5,0)="compatibility only.  Note: WORM stands for Write Once, Read Many"
^DD(2005.2,6,21,6,0)="The GCC type refers to the Generic Carbon Copy (GCC) utility implemented"
^DD(2005.2,6,21,7,0)="by the Health Eligibility Center application."
^DD(2005.2,6,21,8,0)="URL is used for Web based file access."
^DD(2005.2,6,"DT")="3050707"
^DD(2005.2,7,0)="HASH SUBDIRECTORY^SX^Y:YES;^0;8^Q"
^DD(2005.2,7,21,0)="^^1^1^2990401^^"
^DD(2005.2,7,21,1,0)="Control whether subdirectory should be hashed."
^DD(2005.2,7,"DT")="2991119"
^DD(2005.2,8,0)="ABSTRACT^S^0:No;1:Yes;^1;1^Q"
^DD(2005.2,8,.1)="Site supports 'ABSTRACT' files"
^DD(2005.2,8,3)="Enter Yes or No."
^DD(2005.2,8,21,0)="^^2^2^3000216^^^^"
^DD(2005.2,8,21,1,0)="The value of this field is a flag that indicates whether or not a network location"
^DD(2005.2,8,21,2,0)="supports image files of the type 'ABSTRACT'."
^DD(2005.2,8,"DT")="2980929"
^DD(2005.2,9,0)="FULL^S^0:No;1:Yes;^1;2^Q"
^DD(2005.2,9,.1)="Site supports 'FULL' files"
^DD(2005.2,9,3)="Enter Yes or No."
^DD(2005.2,9,21,0)="^^2^2^3000216^^"
^DD(2005.2,9,21,1,0)="The value of this field is a flag that indicates whether or not a network location"
^DD(2005.2,9,21,2,0)="supports image files of the type 'FULL'."
^DD(2005.2,9,"DT")="2980929"
^DD(2005.2,10,0)="BIG^S^0:No;1:Yes;^1;3^Q"
^DD(2005.2,10,.1)="Site supports 'BIG' files"
^DD(2005.2,10,3)="Enter Yes or No."
^DD(2005.2,10,21,0)="^^2^2^3000216^^"
^DD(2005.2,10,21,1,0)="The value of this field is a flag that indicates whether or not a network location"
^DD(2005.2,10,21,2,0)="supports image files of the type 'BIG'."
^DD(2005.2,10,"DT")="2980929"
^DD(2005.2,11,0)="TEXT^S^0:No;1:Yes;^1;4^Q"
^DD(2005.2,11,.1)="Site supports 'TEXT' files"
^DD(2005.2,11,3)="Enter Yes or No."
^DD(2005.2,11,21,0)="^^2^2^3000216^^"
^DD(2005.2,11,21,1,0)="The value of this field is a flag that indicates whether or not a network location"
^DD(2005.2,11,21,2,0)="supports image files of the type 'TEXT'."
^DD(2005.2,11,"DT")="2980929"
^DD(2005.2,12,0)="DICOM^S^0:No;1:Yes;^1;5^Q"
^DD(2005.2,12,.1)="Site supports 'DICOM' files"
^DD(2005.2,12,3)="Enter Yes or No."
^DD(2005.2,12,21,0)="^^2^2^3000216^^"
^DD(2005.2,12,21,1,0)="The value of this field is a flag that indicates whether or not a network location"
^DD(2005.2,12,21,2,0)="supports image files of the type 'DICOM'."
^DD(2005.2,12,"DT")="2980929"
^DD(2005.2,14,0)="COMPRESSION^S^NONE:None;J2K:JPEG-2000;^1;7^Q"
^DD(2005.2,14,.1)="Type of data compression"
^DD(2005.2,14,3)="Enter a code for the type of compression (NONE means no compression)."
^DD(2005.2,14,21,0)="^.001^2^2^3040903^^^"
^DD(2005.2,14,21,1,0)="The value of this field is a code that indicate which type of compression,"
^DD(2005.2,14,21,2,0)="if any, is to be used while transmitting files to this network location."
^DD(2005.2,14,"DT")="3040903"
^DD(2005.2,15,0)="USER NAME^F^^2;1^K:$L(X)>31!($L(X)<1) X"
^DD(2005.2,15,.1)="User name"
^DD(2005.2,15,3)="Enter a valid user name for this network location."
^DD(2005.2,15,21,0)="^^2^2^3000216^^"
^DD(2005.2,15,21,1,0)="The value of this field is a user name that will be used to establish a"
^DD(2005.2,15,21,2,0)="connection with the network location."
^DD(2005.2,15,"DT")="2980929"
^DD(2005.2,16,0)="PASSWORD^FX^^2;2^K:$L(X)>30!($L(X)<3) X Q:'$D(X)  S MAGPAS=X S X=$$ENCRYP^XUSRB1(MAGPAS)"
^DD(2005.2,16,.1)="Password"
^DD(2005.2,16,3)="Enter a valid password for this user at this network location."
^DD(2005.2,16,21,0)="^^2^2^3000216^^^"
^DD(2005.2,16,21,1,0)="The value of this field is a password that will be used with a user name"
^DD(2005.2,16,21,2,0)="to establish a connection with this network location."
^DD(2005.2,16,"DT")="2990713"
^DD(2005.2,17,0)="MAINTAINCONNECTION^S^0:NO;1:YES;^2;3^Q"
^DD(2005.2,17,21,0)="^^4^4^3011219^"
^DD(2005.2,17,21,1,0)="The purpose of this field is to allow the user to optimize the Export"
^DD(2005.2,17,21,2,0)="share output by allowing the connection to be maintained between export "
^DD(2005.2,17,21,3,0)="events.  The normal export file copy connects to the share, copies a file "
^DD(2005.2,17,21,4,0)="and then disconnects from the export share."
^DD(2005.2,17,"DT")="3011219"
^DD(2005.2,18,0)="MAX # RETRY ON CONNECT^NJ3,0^^3;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.2,18,.1)="Maximum number of retries on connect"
^DD(2005.2,18,3)="Enter the maximum number of retries to establish a connection."
^DD(2005.2,18,21,0)="^^4^4^3000216^^"
^DD(2005.2,18,21,1,0)="The value of this field is a value that indicates how often attempts should"
^DD(2005.2,18,21,2,0)="be repeated to make a connection with the network location."
^DD(2005.2,18,21,3,0)="When no connection can be established within this number of attempts,"
^DD(2005.2,18,21,4,0)="the status of the network location will be set to 'Off-Line'."
^DD(2005.2,18,"DT")="2980929"
^DD(2005.2,19,0)="MAX # RETRY ON TRANSMIT^NJ3,0^^3;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.2,19,.1)="Maximum number of retries on transmit"
^DD(2005.2,19,3)="Enter the maximum number of retries to transmit a file."
^DD(2005.2,19,21,0)="^^4^4^3000216^^"
^DD(2005.2,19,21,1,0)="The value of this field is a value that indicates how often attempts should"
^DD(2005.2,19,21,2,0)="be repeated to transmit a file."
^DD(2005.2,19,21,3,0)="When a file cannot be transmitted within this number of attempts,"
^DD(2005.2,19,21,4,0)="its status will be set to 'FAILED'."
^DD(2005.2,19,"DT")="2980929"
^DD(2005.2,20,0)="SYNTAX^S^UNC:UNC;^4;1^Q"
^DD(2005.2,20,.1)="Syntax for physical name"
^DD(2005.2,20,3)="Enter a code for the syntax of the name of this network location."
^DD(2005.2,20,21,0)="^^2^2^3000216^^"
^DD(2005.2,20,21,1,0)="The value of this field is a code for the syntax that describes"
^DD(2005.2,20,21,2,0)="the actual (physical) name of the network location."
^DD(2005.2,20,"DT")="2980929"
^DD(2005.2,21,0)="SUBDIRECTORY^F^^4;2^K:$L(X)>64!($L(X)<1) X"
^DD(2005.2,21,.1)="Subdirectory at network location"
^DD(2005.2,21,3)="Enter the name of the subdirectory where files are to be stored."
^DD(2005.2,21,21,0)="^^9^9^3000216^^^"
^DD(2005.2,21,21,1,0)="Files are typically not stored in root directories."
^DD(2005.2,21,21,2,0)="The value of this field is the name of a subdirectory where files are"
^DD(2005.2,21,21,3,0)="to be stored."
^DD(2005.2,21,21,4,0)="The value of this field is concatenated to the name of the"
^DD(2005.2,21,21,5,0)="network location (the 'physical name') to create the complete"
^DD(2005.2,21,21,6,0)="path-name for the location where files are to be stored."
^DD(2005.2,21,21,7,0)="When ""directory hashing"" is active, additional subdirectory names"
^DD(2005.2,21,21,8,0)="will be added to the above-mentioned path-name before the file"
^DD(2005.2,21,21,9,0)="name will be appended."
^DD(2005.2,21,"DT")="2980929"
^DD(2005.2,22,0)="EMAIL^2005.201PA^^5;0"
^DD(2005.2,23,0)="RETENTION PERIOD^NJ3,0^^3;1^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005.2,23,.1)="Number of days before automatic purge"
^DD(2005.2,23,3)="Enter the number of days that routed images will be retained."
^DD(2005.2,23,21,0)="^^6^6^3000216^^^"
^DD(2005.2,23,21,1,0)="The value of this field is the number of days that routed image files"
^DD(2005.2,23,21,2,0)="will be retained at the location identified by this entry in the"
^DD(2005.2,23,21,3,0)="Network Location file."
^DD(2005.2,23,21,4,0)=" "
^DD(2005.2,23,21,5,0)="When Images have been present for more than this number of days,"
^DD(2005.2,23,21,6,0)="they are candidates for automatic removal."
^DD(2005.2,23,"DT")="2981110"
^DD(2005.2,24,0)="LAST PURGE DATE^D^^3;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.2,24,3)="Enter the date of the latest automatic purge at this location."
^DD(2005.2,24,21,0)="^^5^5^2981110^"
^DD(2005.2,24,21,1,0)="The value of this field indicates the date and time of the most recent"
^DD(2005.2,24,21,2,0)="purge at this network location."
^DD(2005.2,24,21,3,0)="An automatic purge will be executed at most once per day; the value"
^DD(2005.2,24,21,4,0)="of this field will be used to determine whether or not a purge has"
^DD(2005.2,24,21,5,0)="already taken place."
^DD(2005.2,24,"DT")="2981110"
^DD(2005.2,25,0)="SITE^F^^3;5^K:$L(X)>20!($L(X)<3) X"
^DD(2005.2,25,3)="Enter the three-letter abbreviation for the site."
^DD(2005.2,25,21,0)="^^6^6^2981211^"
^DD(2005.2,25,21,1,0)="The value of this field is a code for the site where the 'network"
^DD(2005.2,25,21,2,0)="location' in question is."
^DD(2005.2,25,21,3,0)="This code is typically a three-letter abbreviation (WAS for Washington DC,"
^DD(2005.2,25,21,4,0)="STL for St. Louis, etcetera)."
^DD(2005.2,25,21,5,0)="For stations 'at home', a longer code that starts with ""HOME"" is"
^DD(2005.2,25,21,6,0)="to be entered."
^DD(2005.2,25,"DT")="2981211"
^DD(2005.2,26,0)="ROUTER^SOX^0:NO;1:YES;^0;9^Q:DA=""+1""  S:$P(^MAG(2005.2,DA,0),U,9)="""" $P(^MAG(2005.2,DA,0),U,9)=""0"""
^DD(2005.2,26,2)="S Y(0)=Y S:Y="""" Y=""0"""
^DD(2005.2,26,2.1)="S:Y="""" Y=""0"""
^DD(2005.2,26,21,0)="^.001^4^4^3050119^^^"
^DD(2005.2,26,21,1,0)="This boolean value is used to designate certain network location shares"
^DD(2005.2,26,21,2,0)="as routing shares.  This is necessary to allow clinical WS applications"
^DD(2005.2,26,21,3,0)="access to images on these shares but to prevent the background processor"
^DD(2005.2,26,21,4,0)="from designating this share as the current write location."
^DD(2005.2,26,"DT")="3050119"
^DD(2005.2,27,0)="TIME OFFLINE^D^^3;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.2,27,3)="Enter the date and time that this equipment went off-line."
^DD(2005.2,27,21,0)="^^5^5^2990210^"
^DD(2005.2,27,21,1,0)="The value of this field is a time stamp that indicates when the"
^DD(2005.2,27,21,2,0)="equipment in question most recently went off-line."
^DD(2005.2,27,21,3,0)="This time stamp is used by the Routing software to decide whether"
^DD(2005.2,27,21,4,0)="or not to attempt to re-connect to a destination that was not"
^DD(2005.2,27,21,5,0)="reachable at an earlier stage."
^DD(2005.2,27,"DT")="2990210"
^DD(2005.2,28,0)="MUSE SITE #^NJ2,0^^6;1^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2005.2,28,3)="Type a Number between 0 and 20, 0 Decimal Digits"
^DD(2005.2,28,21,0)="^^4^4^3000208^^"
^DD(2005.2,28,21,1,0)="If this is a MUSE EKG network location, enter the MUSE site number for"
^DD(2005.2,28,21,2,0)="this location.  Typically, a site with a single MUSE server that holds EKGs "
^DD(2005.2,28,21,3,0)="for one site would use 1.  If a MUSE server stores EKGs for more than one"
^DD(2005.2,28,21,4,0)="site, then each site would be assigned a MUSE site number by Marquette."
^DD(2005.2,28,"DT")="3000208"
^DD(2005.2,29,0)="MUSE VERSION #^P2006.17'^MAG(2006.17,^6;2^Q"
^DD(2005.2,29,3)="Enter the MUSE version number if this network location is an MUSE EKG storage type."
^DD(2005.2,29,21,0)="^^2^2^3000228^"
^DD(2005.2,29,21,1,0)="Enter the MUSE version number if this network location is an MUSE EKG"
^DD(2005.2,29,21,2,0)="storage type."
^DD(2005.2,29,"DT")="3000228"
^DD(2005.2,"B","ABSTRACT",8)=""
^DD(2005.2,"B","BIG",10)=""
^DD(2005.2,"B","COMPRESSION",14)=""
^DD(2005.2,"B","DICOM",12)=""
^DD(2005.2,"B","EMAIL",22)=""
^DD(2005.2,"B","FREE SPACE",4)=""
^DD(2005.2,"B","FULL",9)=""
^DD(2005.2,"B","HASH SUBDIRECTORY",7)=""
^DD(2005.2,"B","LAST PURGE DATE",24)=""
^DD(2005.2,"B","MAINTAINCONNECTION",17)=""
^DD(2005.2,"B","MAX # RETRY ON CONNECT",18)=""
^DD(2005.2,"B","MAX # RETRY ON TRANSMIT",19)=""
^DD(2005.2,"B","MUSE SITE #",28)=""
^DD(2005.2,"B","MUSE VERSION #",29)=""
^DD(2005.2,"B","NETWORK LOCATION",.01)=""
^DD(2005.2,"B","OPERATIONAL STATUS",5)=""
^DD(2005.2,"B","PASSWORD",16)=""
^DD(2005.2,"B","PHYSICAL REFERENCE",1)=""
^DD(2005.2,"B","PLACE",.04)=""
^DD(2005.2,"B","Password",16)="1"
^DD(2005.2,"B","RETENTION PERIOD",23)=""
^DD(2005.2,"B","ROUTER",26)=""
^DD(2005.2,"B","Reachability Status",5)="1"
^DD(2005.2,"B","SITE",25)=""
^DD(2005.2,"B","SPACE USED",3)=""
^DD(2005.2,"B","STORAGE TYPE",6)=""
^DD(2005.2,"B","SUBDIRECTORY",21)=""
^DD(2005.2,"B","SYNTAX",20)=""
^DD(2005.2,"B","Site supports 'ABSTRACT' files",8)="1"
^DD(2005.2,"B","Site supports 'BIG' files",10)="1"
^DD(2005.2,"B","Site supports 'DICOM' files",12)="1"
^DD(2005.2,"B","Site supports 'FULL' files",9)="1"
^DD(2005.2,"B","Site supports 'TEXT' files",11)="1"
^DD(2005.2,"B","Syntax for physical name",20)="1"
^DD(2005.2,"B","TEXT",11)=""
^DD(2005.2,"B","TIME OFFLINE",27)=""
^DD(2005.2,"B","TOTAL SPACE",2)=""
^DD(2005.2,"B","Type of data compression",14)="1"
^DD(2005.2,"B","USER NAME",15)=""
^DD(2005.2,"B","User name",15)="1"
^DD(2005.2,"GL",0,1,.01)=""
^DD(2005.2,"GL",0,2,1)=""
^DD(2005.2,"GL",0,3,2)=""
^DD(2005.2,"GL",0,4,3)=""
^DD(2005.2,"GL",0,5,4)=""
^DD(2005.2,"GL",0,6,5)=""
^DD(2005.2,"GL",0,7,6)=""
^DD(2005.2,"GL",0,8,7)=""
^DD(2005.2,"GL",0,9,26)=""
^DD(2005.2,"GL",0,10,.04)=""
^DD(2005.2,"GL",1,1,8)=""
^DD(2005.2,"GL",1,2,9)=""
^DD(2005.2,"GL",1,3,10)=""
^DD(2005.2,"GL",1,4,11)=""
^DD(2005.2,"GL",1,5,12)=""
^DD(2005.2,"GL",1,7,14)=""
^DD(2005.2,"GL",2,1,15)=""
^DD(2005.2,"GL",2,2,16)=""
^DD(2005.2,"GL",2,3,17)=""
^DD(2005.2,"GL",3,1,23)=""
^DD(2005.2,"GL",3,2,18)=""
^DD(2005.2,"GL",3,3,19)=""
^DD(2005.2,"GL",3,4,24)=""
^DD(2005.2,"GL",3,5,25)=""
^DD(2005.2,"GL",3,6,27)=""
^DD(2005.2,"GL",4,1,20)=""
^DD(2005.2,"GL",4,2,21)=""
^DD(2005.2,"GL",5,0,22)=""
^DD(2005.2,"GL",6,1,28)=""
^DD(2005.2,"GL",6,2,29)=""
^DD(2005.2,"IX",.01)=""
^DD(2005.2,"IX",1)=""
^DD(2005.2,"IX",6)=""
^DD(2005.2,"RQ",.01)=""
^DD(2005.2,"RQ",.04)=""
^DD(2005.2,"RQ",1)=""
^DD(2005.2,"RQ",5)=""
^DD(2005.2,"RQ",6)=""
^DD(2005.2,"SB",2005.201,22)=""
^DD(2005.201,0)="EMAIL SUB-FIELD^^1^2"
^DD(2005.201,0,"DT")="2980929"
^DD(2005.201,0,"NM","EMAIL")=""
^DD(2005.201,0,"UP")="2005.2"
^DD(2005.201,.01,0)="USER^P200'^VA(200,^0;1^Q"
^DD(2005.201,.01,.1)="User"
^DD(2005.201,.01,1,0)="^.1^^0"
^DD(2005.201,.01,3)="Enter the name of a user that is to be notified."
^DD(2005.201,.01,21,0)="^^5^5^3000216^^^"
^DD(2005.201,.01,21,1,0)="The value of this field is an identification of a user who is to receive"
^DD(2005.201,.01,21,2,0)="notification messages when certain important events have occurred,"
^DD(2005.201,.01,21,3,0)="or when certain amounts of images have been transmitted."
^DD(2005.201,.01,21,4,0)="Messages transmitted to the user identified in this field will be"
^DD(2005.201,.01,21,5,0)="sent through VA-MailMan (FORUM)."
^DD(2005.201,.01,"DT")="2980929"
^DD(2005.201,1,0)="EMAIL^F^^0;2^K:$L(X)>64!($L(X)<1) X"
^DD(2005.201,1,.1)="E-mail"
^DD(2005.201,1,3)="Enter an e-mail address (name@machine.domain)."
^DD(2005.201,1,21,0)="^^4^4^3000216^^"
^DD(2005.201,1,21,1,0)="The value of this field is the e-mail address of a user who is to be"
^DD(2005.201,1,21,2,0)="notified when significant events occur for this network location."
^DD(2005.201,1,21,3,0)="Messages transmitted to a user identified in this field will"
^DD(2005.201,1,21,4,0)="be sent through 'internet e-mail'."
^DD(2005.201,1,"DT")="2980929"
^DD(2005.201,"B","E-mail",1)="1"
^DD(2005.201,"B","EMAIL",1)=""
^DD(2005.201,"B","USER",.01)=""
^DD(2005.201,"B","User",.01)="1"
^DD(2005.201,"GL",0,1,.01)=""
^DD(2005.201,"GL",0,2,1)=""
^DD(2005.21,0)="ACTIONS SUB-FIELD^^.01^2"
^DD(2005.21,0,"DT")="2950508"
^DD(2005.21,0,"IX","B",2005.21,.01)=""
^DD(2005.21,0,"NM","ACTIONS")=""
^DD(2005.21,0,"UP")="2005.02"
^DD(2005.21,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005.21,.001,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(2005.21,.001,21,0)="^^1^1^3001025^"
^DD(2005.21,.001,21,1,0)="Internal Entry number of the ACTIONS Multiple field."
^DD(2005.21,.001,"DT")="2930909"
^DD(2005.21,.01,0)="ACTIONS^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(2005.21,.01,1,0)="^.1"
^DD(2005.21,.01,1,1,0)="2005.21^B"
^DD(2005.21,.01,1,1,1)="S ^MAG(2005.02,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2005.21,.01,1,1,2)="K ^MAG(2005.02,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2005.21,.01,1,2,0)="2005.02^AC^MUMPS"
^DD(2005.21,.01,1,2,1)="D SETACT^MAGUXRF"
^DD(2005.21,.01,1,2,2)="D KILLACT^MAGUXRF"
^DD(2005.21,.01,1,2,"%D",0)="^^1^1^2930909^^"
^DD(2005.21,.01,1,2,"%D",1,0)="Sets Object AC xref for displaying abstracts and objects."
^DD(2005.21,.01,1,2,"DT")="2930909"
^DD(2005.21,.01,3)="Answer must be 1-60 characters in length."
^DD(2005.21,.01,21,0)="^^5^5^3001025^"
^DD(2005.21,.01,21,1,0)="This field is reserved for future use will contain the kinds of actions"
^DD(2005.21,.01,21,2,0)="which apply to the object type. Generally, all objects can be displayed as"
^DD(2005.21,.01,21,3,0)="a full image/object and they have an abstract display method.  In"
^DD(2005.21,.01,21,4,0)="addition, groups of objects may have other actions such as cineloop"
^DD(2005.21,.01,21,5,0)="display or tiled display."
^DD(2005.21,.01,"DT")="2950508"
^DD(2005.21,"B","ACTIONS",.01)=""
^DD(2005.21,"B","NUMBER",.001)=""
^DD(2005.21,"GL",0,1,.01)=""
^DD(2005.21,"IX",.01)=""
^DD(2005.24,0)="CHILD CLASS SUB-FIELD^^.01^1"
^DD(2005.24,0,"IX","B",2005.24,.01)=""
^DD(2005.24,0,"NM","CHILD CLASS")=""
^DD(2005.24,0,"UP")="2005.02"
^DD(2005.24,.01,0)="CHILD CLASS^MP2005.02'^MAG(2005.02,^0;1^Q"
^DD(2005.24,.01,1,0)="^.1"
^DD(2005.24,.01,1,1,0)="2005.24^B"
^DD(2005.24,.01,1,1,1)="S ^MAG(2005.02,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(2005.24,.01,1,1,2)="K ^MAG(2005.02,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(2005.24,.01,21,0)="^^2^2^3001025^"
^DD(2005.24,.01,21,1,0)="This field is reserved for future use to allow object types"
^DD(2005.24,.01,21,2,0)="to inherit characteristics from other object types."
^DD(2005.24,.01,"DT")="2910526"
^DD(2005.24,"B","CHILD CLASS",.01)=""
^DD(2005.24,"GL",0,1,.01)=""
^DD(2005.24,"IX",.01)=""
^DD(2005.311,0)="PRESENTATION STATE UID SUB-FIELD^^2^3"
^DD(2005.311,0,"DT")="3050930"
^DD(2005.311,0,"IX","B",2005.311,.01)=""
^DD(2005.311,0,"NM","PRESENTATION STATE UID")=""
^DD(2005.311,0,"UP")="2005.031"
^DD(2005.311,.01,0)="PRESENTATION STATE UID^MF^^0;1^K:$L(X)>99!($L(X)<3) X"
^DD(2005.311,.01,1,0)="^.1"
^DD(2005.311,.01,1,1,0)="2005.311^B"
^DD(2005.311,.01,1,1,1)="S ^MAG(2005.001,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2005.311,.01,1,1,2)="K ^MAG(2005.001,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2005.311,.01,3)="Answer must be 3-99 characters in length."
^DD(2005.311,.01,21,0)="^.001^2^2^3050926^^^"
^DD(2005.311,.01,21,1,0)="This UID links to the presentation state associated"
^DD(2005.311,.01,21,2,0)="with the image record."
^DD(2005.311,.01,"DT")="3050906"
^DD(2005.311,1,0)="PS TYPE^S^K:KEY;I:INTERPRETATION;^0;2^Q"
^DD(2005.311,1,3)="Enter the type of data this presentation state is for."
^DD(2005.311,1,21,0)="^.001^1^1^3050926^^^^"
^DD(2005.311,1,21,1,0)="Indicates the type of presentation state data stored."
^DD(2005.311,1,"DT")="3050920"
^DD(2005.311,2,0)="SEQUENCE^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2005.311,2,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(2005.311,2,21,0)="^^4^4^3050930^"
^DD(2005.311,2,21,1,0)="The sequence value preserves the order in which the"
^DD(2005.311,2,21,2,0)="image/presentation states are sent from the client.  For"
^DD(2005.311,2,21,3,0)="Key images, this allows that same ordering to be replicated"
^DD(2005.311,2,21,4,0)="when the images are retrieved for display."
^DD(2005.311,2,"DT")="3050930"
^DD(2005.311,"B","PRESENTATION STATE UID",.01)=""
^DD(2005.311,"B","PS TYPE",1)=""
^DD(2005.311,"B","SEQUENCE",2)=""
^DD(2005.311,"GL",0,1,.01)=""
^DD(2005.311,"GL",0,2,1)=""
^DD(2005.311,"GL",0,3,2)=""
^DD(2005.311,"IX",.01)=""
^DD(2005.4,0)="FIELD^^.02^2"
^DD(2005.4,0,"DDA")="N"
^DD(2005.4,0,"DT")="2930219"
^DD(2005.4,0,"IX","B",2005.4,.01)=""
^DD(2005.4,0,"IX","BB",2005.4,.02)=""
^DD(2005.4,0,"NM","IMAGE HISTOLOGICAL STAIN")=""
^DD(2005.4,0,"VR")="3.0"
^DD(2005.4,0,"VRPK")="IMAGING"
^DD(2005.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.4,.01,1,0)="^.1"
^DD(2005.4,.01,1,1,0)="2005.4^B"
^DD(2005.4,.01,1,1,1)="S ^MAG(2005.4,""B"",$E(X,1,30),DA)="""""
^DD(2005.4,.01,1,1,2)="K ^MAG(2005.4,""B"",$E(X,1,30),DA)"
^DD(2005.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2005.4,.01,21,0)="^^1^1^2970721^^^"
^DD(2005.4,.01,21,1,0)="This is the name of the Histological stain used in Anatomic Pathology."
^DD(2005.4,.02,0)="MNEMONIC^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(2005.4,.02,1,0)="^.1"
^DD(2005.4,.02,1,1,0)="2005.4^BB"
^DD(2005.4,.02,1,1,1)="S ^MAG(2005.4,""BB"",$E(X,1,30),DA)="""""
^DD(2005.4,.02,1,1,2)="K ^MAG(2005.4,""BB"",$E(X,1,30),DA)"
^DD(2005.4,.02,1,1,"DT")="2930219"
^DD(2005.4,.02,3)="Answer must be 3-30 characters in length."
^DD(2005.4,.02,21,0)="^^2^2^2970721^^^"
^DD(2005.4,.02,21,1,0)="This field is used for other names that the Pathologists might use to"
^DD(2005.4,.02,21,2,0)="specify a stain, and is available as a lookup name."
^DD(2005.4,.02,"DT")="2940527"
^DD(2005.4,"B","MNEMONIC",.02)=""
^DD(2005.4,"B","NAME",.01)=""
^DD(2005.4,"GL",0,1,.01)=""
^DD(2005.4,"GL",0,2,.02)=""
^DD(2005.4,"IX",.01)=""
^DD(2005.4,"IX",.02)=""
^DD(2005.4,"RQ",.01)=""
^DD(2005.41,0)="FIELD^^.01^1"
^DD(2005.41,0,"DDA")="N"
^DD(2005.41,0,"DT")="2930216"
^DD(2005.41,0,"IX","B",2005.41,.01)=""
^DD(2005.41,0,"NM","MICROSCOPIC OBJECTIVE")=""
^DD(2005.41,0,"VR")="3.0"
^DD(2005.41,0,"VRPK")="IMAGING"
^DD(2005.41,.01,0)="POWER^RFO^^0;1^K:$L(X)>6!($L(X)<1) X"
^DD(2005.41,.01,1,0)="^.1"
^DD(2005.41,.01,1,1,0)="2005.41^B"
^DD(2005.41,.01,1,1,1)="S ^MAG(2005.41,""B"",$E(X,1,30),DA)="""""
^DD(2005.41,.01,1,1,2)="K ^MAG(2005.41,""B"",$E(X,1,30),DA)"
^DD(2005.41,.01,2)="S Y(0)=Y W ?40,Y"
^DD(2005.41,.01,2.1)="W ?40,Y"
^DD(2005.41,.01,3)="Answer must be 1-6 characters in length."
^DD(2005.41,.01,21,0)="^^1^1^2970721^^"
^DD(2005.41,.01,21,1,0)="This is the microscopic power used in the Anatomic Pathology laboratory."
^DD(2005.41,.01,"DT")="2930217"
^DD(2005.41,"B","POWER",.01)=""
^DD(2005.41,"GL",0,1,.01)=""
^DD(2005.41,"IX",.01)=""
^DD(2005.41,"RQ",.01)=""
^DD(2005.51,0)="PS DATA SUB-FIELD^^.01^1"
^DD(2005.51,0,"DT")="3040707"
^DD(2005.51,0,"NM","PS DATA")=""
^DD(2005.51,0,"UP")="2005.05"
^DD(2005.51,.01,0)="PS DATA^WL^^0;1^Q"
^DD(2005.51,.01,21,0)="^^1^1^3050608^"
^DD(2005.51,.01,21,1,0)="Lines of the PS data stored here."
^DD(2005.51,.01,"DT")="3050608"
^DD(2005.51,"B","PS DATA",.01)=""
^DD(2005.51,"GL",0,1,.01)=""
^DD(2005.81,0)="FIELD^^45^12"
^DD(2005.81,0,"DDA")="N"
^DD(2005.81,0,"DT")="3030814"
^DD(2005.81,0,"IX","B",2005.81,.01)=""
^DD(2005.81,0,"NM","MAG DESCRIPTIVE CATEGORIES")=""
^DD(2005.81,0,"PT",2005,100)=""
^DD(2005.81,0,"PT",2005.1,100)=""
^DD(2005.81,0,"VR")="3.0"
^DD(2005.81,0,"VRPK")="MAG"
^DD(2005.81,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.81,.01,1,0)="^.1"
^DD(2005.81,.01,1,1,0)="2005.81^B"
^DD(2005.81,.01,1,1,1)="S ^MAG(2005.81,""B"",$E(X,1,30),DA)="""""
^DD(2005.81,.01,1,1,2)="K ^MAG(2005.81,""B"",$E(X,1,30),DA)"
^DD(2005.81,.01,3)="Answer must be 3-40 characters in length."
^DD(2005.81,.01,21,0)="^.001^4^4^3011206^^^^"
^DD(2005.81,.01,21,1,0)="Descriptive name of the category or document type.  "
^DD(2005.81,.01,21,2,0)="The list of categories is presented to the VistA Imaging Capture user"
^DD(2005.81,.01,21,3,0)="when they select 'User defined Specialty/Category' or 'ADMIN'. "
^DD(2005.81,.01,21,4,0)="can be entered."
^DD(2005.81,.01,23,0)="^.001^2^2^3011206^^^^"
^DD(2005.81,.01,23,1,0)="This file is pointed to by the IMAGE (2005) and IMAGE AUDIT (2005.1) Files."
^DD(2005.81,.01,23,2,0)=""
^DD(2005.81,.01,"DT")="3011206"
^DD(2005.81,1,0)="CLASS^S^ADMIN:ADMIN;CLIN:CLIN;OLD:OLD;^0;2^Q"
^DD(2005.81,1,21,0)="^^4^4^3011218^"
^DD(2005.81,1,21,1,0)="This field indicates the class of document/image being captured.  Defined "
^DD(2005.81,1,21,2,0)="classes include Adminstrative (A) for scanned documents, Clinical (C) for "
^DD(2005.81,1,21,3,0)="images not associated with a VistA package report, or Old (O) for "
^DD(2005.81,1,21,4,0)="categories that are no longer used."
^DD(2005.81,1,"DT")="3011205"
^DD(2005.81,10,0)="ACTION IS ACTIVE^S^1:YES;0:NO;^1;1^Q"
^DD(2005.81,10,3)="The Action is performed on a successful save of an Image if this field is '1'"
^DD(2005.81,10,21,0)="^^1^1^3011210^"
^DD(2005.81,10,21,1,0)="The action associated with this type of Document is performed when the image is first successfully saved.  This flag can turn On/Off the processing of the Action."
^DD(2005.81,10,"DT")="3011210"
^DD(2005.81,11,0)="ACTION DESC^F^^1;2^K:$L(X)>60!($L(X)<3) X"
^DD(2005.81,11,3)="A short description of this action"
^DD(2005.81,11,21,0)="^.001^3^3^3011218^^"
^DD(2005.81,11,21,1,0)="This field indicates whether some software action will be taken when this "
^DD(2005.81,11,21,2,0)="type of image is captured.  For example, scanned MEANS TESTS will be "
^DD(2005.81,11,21,3,0)="automatically copied to a subdirectory at the HEC."
^DD(2005.81,11,"DT")="3011210"
^DD(2005.81,12,0)="ACTION TAG^F^^1;3^K:$L(X)>8!($L(X)<2) X"
^DD(2005.81,12,3)="Answer must be 2-8 characters in length."
^DD(2005.81,12,9)="@"
^DD(2005.81,12,21,0)="^.001^1^1^3011218^^"
^DD(2005.81,12,21,1,0)="The TAG of the Routine that will be called to perform the action."
^DD(2005.81,12,"DT")="3011210"
^DD(2005.81,13,0)="ACTION ROUTINE^F^^1;4^K:$L(X)>8!($L(X)<2) X"
^DD(2005.81,13,3)="Answer must be 2-8 characters in length."
^DD(2005.81,13,9)="@"
^DD(2005.81,13,21,0)="^.001^1^1^3011218^^^"
^DD(2005.81,13,21,1,0)="The routine to call to perform the action."
^DD(2005.81,13,"DT")="3011210"
^DD(2005.81,40,0)="PACKAGE INDEX^S^RAD:RAD;LAB:LAB;MED:MED;NOTE:NOTE;CP:CP;SUR:SUR;CONS:CONS;PHOTOID:PHOTOID;NONE:NONE;^2;1^Q"
^DD(2005.81,40,3)="The package associated with the image."
^DD(2005.81,40,21,0)="^^1^1^3020819^"
^DD(2005.81,40,21,1,0)="This is an abbreviation of the package that the image is attached to."
^DD(2005.81,40,"DT")="3030203"
^DD(2005.81,41,0)="CLASS INDEX^P2005.82'^MAG(2005.82,^2;2^Q"
^DD(2005.81,41,21,0)="^^2^2^3020819^"
^DD(2005.81,41,21,1,0)="The Classification of the images.  CLASS is an index field used for "
^DD(2005.81,41,21,2,0)="sorting and searching."
^DD(2005.81,41,"DT")="3030203"
^DD(2005.81,42,0)="TYPE INDEX^P2005.83'^MAG(2005.83,^2;3^Q"
^DD(2005.81,42,21,0)="^^1^1^3020819^"
^DD(2005.81,42,21,1,0)="The TYPE of image.  TYPE is an index field used for sorting and searching."
^DD(2005.81,42,"DT")="3030203"
^DD(2005.81,43,0)="PROC/EVENT INDEX^P2005.85'^MAG(2005.85,^2;4^Q"
^DD(2005.81,43,21,0)="^^2^2^3020819^"
^DD(2005.81,43,21,1,0)="The PROCEDURE/EVENT of the image.  PROCEDURE/EVENT is an index field used"
^DD(2005.81,43,21,2,0)="for sorting and searching."
^DD(2005.81,43,"DT")="3030203"
^DD(2005.81,44,0)="SPEC/SUBSPEC INDEX^P2005.84'^MAG(2005.84,^2;5^Q"
^DD(2005.81,44,21,0)="^^2^2^3020819^"
^DD(2005.81,44,21,1,0)="The SPECIALTY/SUBSPECIALTY of the image.  SPECIALTY/SUBSPECIALTY is an"
^DD(2005.81,44,21,2,0)="index field used for sorting and searching."
^DD(2005.81,44,"DT")="3030203"
^DD(2005.81,45,0)="ORIGIN INDEX^S^V:VA;N:NON-VA;^2;6^Q"
^DD(2005.81,45,21,0)="^^2^2^3030814^"
^DD(2005.81,45,21,1,0)="This field is used to indicate whether the image or document originated "
^DD(2005.81,45,21,2,0)="inside or outside VA."
^DD(2005.81,45,"DT")="3030814"
^DD(2005.81,"B","ACTION DESC",11)=""
^DD(2005.81,"B","ACTION IS ACTIVE",10)=""
^DD(2005.81,"B","ACTION ROUTINE",13)=""
^DD(2005.81,"B","ACTION TAG",12)=""
^DD(2005.81,"B","CLASS",1)=""
^DD(2005.81,"B","CLASS INDEX",41)=""
^DD(2005.81,"B","NAME",.01)=""
^DD(2005.81,"B","ORIGIN INDEX",45)=""
^DD(2005.81,"B","PACKAGE INDEX",40)=""
^DD(2005.81,"B","PROC/EVENT INDEX",43)=""
^DD(2005.81,"B","SPEC/SUBSPEC INDEX",44)=""
^DD(2005.81,"B","TYPE INDEX",42)=""
^DD(2005.81,"GL",0,1,.01)=""
^DD(2005.81,"GL",0,2,1)=""
^DD(2005.81,"GL",1,1,10)=""
^DD(2005.81,"GL",1,2,11)=""
^DD(2005.81,"GL",1,3,12)=""
^DD(2005.81,"GL",1,4,13)=""
^DD(2005.81,"GL",2,1,40)=""
^DD(2005.81,"GL",2,2,41)=""
^DD(2005.81,"GL",2,3,42)=""
^DD(2005.81,"GL",2,4,43)=""
^DD(2005.81,"GL",2,5,44)=""
^DD(2005.81,"GL",2,6,45)=""
^DD(2005.81,"IX",.01)=""
^DD(2005.81,"RQ",.01)=""
^DD(2005.82,0)="FIELD^^1^2"
^DD(2005.82,0,"DDA")="N"
^DD(2005.82,0,"DT")="3020823"
^DD(2005.82,0,"IX","B",2005.82,.01)=""
^DD(2005.82,0,"NM","IMAGE INDEX FOR CLASS")=""
^DD(2005.82,0,"PT",2005,41)=""
^DD(2005.82,0,"PT",2005.03,41)=""
^DD(2005.82,0,"PT",2005.1,41)=""
^DD(2005.82,0,"PT",2005.81,41)=""
^DD(2005.82,0,"PT",2005.83,1)=""
^DD(2005.82,0,"PT",2005.84,1)=""
^DD(2005.82,0,"PT",2005.85,1)=""
^DD(2005.82,0,"VR")="3.0"
^DD(2005.82,0,"VRPK")="MAG"
^DD(2005.82,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(2005.82,.01,1,0)="^.1"
^DD(2005.82,.01,1,1,0)="2005.82^B"
^DD(2005.82,.01,1,1,1)="S ^MAG(2005.82,""B"",$E(X,1,30),DA)="""""
^DD(2005.82,.01,1,1,2)="K ^MAG(2005.82,""B"",$E(X,1,30),DA)"
^DD(2005.82,.01,3)="Answer must be 2-30 characters in length."
^DD(2005.82,.01,21,0)="^^3^3^3020819^"
^DD(2005.82,.01,21,1,0)="Enter the name of class for the image. For example ADMIN for administrative "
^DD(2005.82,.01,21,2,0)="images.  This field is required for all images and is requested during "
^DD(2005.82,.01,21,3,0)="image capture."
^DD(2005.82,.01,"DT")="3020118"
^DD(2005.82,.01,"LAYGO",1,0)="I 0"
^DD(2005.82,1,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;2^Q"
^DD(2005.82,1,9)="^"
^DD(2005.82,1,21,0)="^^2^2^3020905^"
^DD(2005.82,1,21,1,0)="This field is used to inactivate an entry in this file. It affects which "
^DD(2005.82,1,21,2,0)="classes can be selected in the filtering option of VistA Imaging Display."
^DD(2005.82,1,23,0)="^^3^3^3020905^"
^DD(2005.82,1,23,1,0)="This field is used to inactivate an entry in this file. It affects which"
^DD(2005.82,1,23,2,0)="classes can be selected in the filtering option of VistA Imaging Display "
^DD(2005.82,1,23,3,0)="introduced in Patch 8."
^DD(2005.82,1,"DT")="3020905"
^DD(2005.82,"B","NAME",.01)=""
^DD(2005.82,"B","STATUS",1)=""
^DD(2005.82,"GL",0,1,.01)=""
^DD(2005.82,"GL",0,2,1)=""
^DD(2005.82,"IX",.01)=""
^DD(2005.82,"RQ",.01)=""
^DD(2005.83,0)="FIELD^^3^4"
^DD(2005.83,0,"DT")="3020930"
^DD(2005.83,0,"IX","B",2005.83,.01)=""
^DD(2005.83,0,"IX","C",2005.83,1)=""
^DD(2005.83,0,"NM","IMAGE INDEX FOR TYPES")=""
^DD(2005.83,0,"PT",2005,42)=""
^DD(2005.83,0,"PT",2005.03,42)=""
^DD(2005.83,0,"PT",2005.1,42)=""
^DD(2005.83,0,"PT",2005.81,42)=""
^DD(2005.83,0,"PT",2005.865,.01)=""
^DD(2005.83,0,"VR")="3.0"
^DD(2005.83,0,"VRPK")="MAG"
^DD(2005.83,.01,0)="NAME^RFI^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.83,.01,1,0)="^.1"
^DD(2005.83,.01,1,1,0)="2005.83^B"
^DD(2005.83,.01,1,1,1)="S ^MAG(2005.83,""B"",$E(X,1,40),DA)="""""
^DD(2005.83,.01,1,1,2)="K ^MAG(2005.83,""B"",$E(X,1,40),DA)"
^DD(2005.83,.01,3)="Answer must be 3-40 characters in length."
^DD(2005.83,.01,21,0)="^.001^2^2^3020822^^^^"
^DD(2005.83,.01,21,1,0)="  This field describes the image type.  It is required for"
^DD(2005.83,.01,21,2,0)="  all images: Document Images and Clinical Images."
^DD(2005.83,.01,"DT")="3020201"
^DD(2005.83,.01,"LAYGO",1,0)="I 0"
^DD(2005.83,1,0)="CLASS^RP2005.82'^MAG(2005.82,^0;2^Q"
^DD(2005.83,1,1,0)="^.1"
^DD(2005.83,1,1,1,0)="2005.83^C"
^DD(2005.83,1,1,1,1)="S ^MAG(2005.83,""C"",$E(X,1,30),DA)="""""
^DD(2005.83,1,1,1,2)="K ^MAG(2005.83,""C"",$E(X,1,30),DA)"
^DD(2005.83,1,1,1,"%D",0)="^^1^1^3020201^"
^DD(2005.83,1,1,1,"%D",1,0)="Enable quick display of Image Types descriptions based on Image CLASS"
^DD(2005.83,1,1,1,"DT")="3020201"
^DD(2005.83,1,9)="^"
^DD(2005.83,1,21,0)="^.001^2^2^3020819^^^^"
^DD(2005.83,1,21,1,0)="Images are indexed by Class, and the Type of Image depends on the Class"
^DD(2005.83,1,21,2,0)="of Image."
^DD(2005.83,1,"DT")="3020201"
^DD(2005.83,2,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;3^Q"
^DD(2005.83,2,9)="^"
^DD(2005.83,2,21,0)="^^2^2^3020905^"
^DD(2005.83,2,21,1,0)="This field is used to inactivate an entry in this file. It affects which"
^DD(2005.83,2,21,2,0)="types can be selected in the filtering option of VistA Imaging Display."
^DD(2005.83,2,23,0)="^^3^3^3020905^"
^DD(2005.83,2,23,1,0)="This field is used to inactivate an entry in this file. It affects which"
^DD(2005.83,2,23,2,0)="types can be selected in the filtering option of VistA Imaging Display "
^DD(2005.83,2,23,3,0)="introduced in Patch 8."
^DD(2005.83,2,"DT")="3020905"
^DD(2005.83,3,0)="ABBREVIATION^F^^1;1^K:$L(X)>7!($L(X)<3) X"
^DD(2005.83,3,3)="Answer must be 3-7 characters in length"
^DD(2005.83,3,9)="^"
^DD(2005.83,3,21,0)="^^1^1^3020930^"
^DD(2005.83,3,21,1,0)="Enter an abbreviation for this image type."
^DD(2005.83,3,"DT")="3020930"
^DD(2005.83,"B","ABBREVIATION",3)=""
^DD(2005.83,"B","CLASS",1)=""
^DD(2005.83,"B","NAME",.01)=""
^DD(2005.83,"B","STATUS",2)=""
^DD(2005.83,"GL",0,1,.01)=""
^DD(2005.83,"GL",0,2,1)=""
^DD(2005.83,"GL",0,3,2)=""
^DD(2005.83,"GL",1,1,3)=""
^DD(2005.83,"IX",.01)=""
^DD(2005.83,"IX",1)=""
^DD(2005.83,"RQ",.01)=""
^DD(2005.83,"RQ",1)=""
^DD(2005.84,0)="FIELD^^4^5"
^DD(2005.84,0,"DDA")="N"
^DD(2005.84,0,"DT")="3020823"
^DD(2005.84,0,"IX","ACL",2005.84,1)=""
^DD(2005.84,0,"IX","ASPEC",2005.84,2)=""
^DD(2005.84,0,"IX","B",2005.84,.01)=""
^DD(2005.84,0,"IX","C",2005.84,3)=""
^DD(2005.84,0,"NM","IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY")=""
^DD(2005.84,0,"PT",2005,44)=""
^DD(2005.84,0,"PT",2005.03,44)=""
^DD(2005.84,0,"PT",2005.1,44)=""
^DD(2005.84,0,"PT",2005.81,44)=""
^DD(2005.84,0,"PT",2005.84,2)=""
^DD(2005.84,0,"PT",2005.852,.01)=""
^DD(2005.84,0,"PT",2005.8722,.01)=""
^DD(2005.84,0,"PT",2006.5831,2)=""
^DD(2005.84,0,"PT",2006.5841,2)=""
^DD(2005.84,0,"PT",2006.584311,.01)=""
^DD(2005.84,0,"PT",2006.5849,2)=""
^DD(2005.84,0,"VR")="3.0"
^DD(2005.84,0,"VRPK")="MAG"
^DD(2005.84,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.84,.01,1,0)="^.1"
^DD(2005.84,.01,1,1,0)="2005.84^B"
^DD(2005.84,.01,1,1,1)="S ^MAG(2005.84,""B"",$E(X,1,30),DA)="""""
^DD(2005.84,.01,1,1,2)="K ^MAG(2005.84,""B"",$E(X,1,30),DA)"
^DD(2005.84,.01,3)="Answer must be 3-30 characters in length."
^DD(2005.84,.01,21,0)="^^2^2^3020819^"
^DD(2005.84,.01,21,1,0)="This field contains the name of the Specialty or SubSpecialty that an "
^DD(2005.84,.01,21,2,0)="images is captured to and will be used in sorting during image display. "
^DD(2005.84,.01,"DT")="3020819"
^DD(2005.84,.01,"LAYGO",1,0)="I 0"
^DD(2005.84,1,0)="CLASS^RP2005.82'^MAG(2005.82,^0;2^Q"
^DD(2005.84,1,1,0)="^.1"
^DD(2005.84,1,1,1,0)="2005.84^ACL"
^DD(2005.84,1,1,1,1)="S ^MAG(2005.84,""ACL"",$E(X,1,30),DA)="""""
^DD(2005.84,1,1,1,2)="K ^MAG(2005.84,""ACL"",$E(X,1,30),DA)"
^DD(2005.84,1,1,1,"DT")="3020118"
^DD(2005.84,1,9)="^"
^DD(2005.84,1,21,0)="^^3^3^3020819^"
^DD(2005.84,1,21,1,0)="This field is a pointer to the IMAGE INDEX FOR CLASS file.  Select the"
^DD(2005.84,1,21,2,0)="appropriate class for this specialty. For example, non-document images "
^DD(2005.84,1,21,3,0)="are of class type 'CLIN'. "
^DD(2005.84,1,"DT")="3020118"
^DD(2005.84,2,0)="SPEC LEVEL^P2005.84'^MAG(2005.84,^0;3^Q"
^DD(2005.84,2,1,0)="^.1"
^DD(2005.84,2,1,1,0)="2005.84^ASPEC"
^DD(2005.84,2,1,1,1)="S ^MAG(2005.84,""ASPEC"",$E(X,1,30),DA)="""""
^DD(2005.84,2,1,1,2)="K ^MAG(2005.84,""ASPEC"",$E(X,1,30),DA)"
^DD(2005.84,2,1,1,"DT")="3050222"
^DD(2005.84,2,9)="^"
^DD(2005.84,2,21,0)="^.001^4^4^3050909^^^^"
^DD(2005.84,2,21,1,0)="This field contain the specialty level for the specialty being entered."
^DD(2005.84,2,21,2,0)="For example specialties VASCULAR and UROLOGY are part of the specialty "
^DD(2005.84,2,21,3,0)="level SURGERY. This field will be used in indexing images and provide a"
^DD(2005.84,2,21,4,0)="broad level of sorting."
^DD(2005.84,2,"DT")="3050909"
^DD(2005.84,3,0)="ABBREVIATION^F^^2;1^K:$L(X)>8!($L(X)<2) X"
^DD(2005.84,3,1,0)="^.1"
^DD(2005.84,3,1,1,0)="2005.84^C"
^DD(2005.84,3,1,1,1)="S ^MAG(2005.84,""C"",$E(X,1,30),DA)="""""
^DD(2005.84,3,1,1,2)="K ^MAG(2005.84,""C"",$E(X,1,30),DA)"
^DD(2005.84,3,1,1,"DT")="3020724"
^DD(2005.84,3,3)="Answer must be 2-8 characters in length."
^DD(2005.84,3,9)="^"
^DD(2005.84,3,21,0)="^.001^1^1^3020819^^^"
^DD(2005.84,3,21,1,0)="Enter an abbreviation for this specialty."
^DD(2005.84,3,"DT")="3020801"
^DD(2005.84,4,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;4^Q"
^DD(2005.84,4,21,0)="^^3^3^3020905^"
^DD(2005.84,4,21,1,0)="This field is used to inactivate an entry in this file. It affects which"
^DD(2005.84,4,21,2,0)="specialties can be selected in the filtering option of VistA Imaging"
^DD(2005.84,4,21,3,0)="Display."
^DD(2005.84,4,23,0)="^^3^3^3020905^"
^DD(2005.84,4,23,1,0)="This field is used to inactivate an entry in this file. It affects which"
^DD(2005.84,4,23,2,0)="specialties can be selected in the filtering option of VistA Imaging"
^DD(2005.84,4,23,3,0)="Display introduced in Patch 8."
^DD(2005.84,4,"DT")="3020905"
^DD(2005.84,"B","ABBREVIATION",3)=""
^DD(2005.84,"B","CLASS",1)=""
^DD(2005.84,"B","NAME",.01)=""
^DD(2005.84,"B","SPEC LEVEL",2)=""
^DD(2005.84,"B","STATUS",4)=""
^DD(2005.84,"GL",0,1,.01)=""
^DD(2005.84,"GL",0,2,1)=""
^DD(2005.84,"GL",0,3,2)=""
^DD(2005.84,"GL",0,4,4)=""
^DD(2005.84,"GL",2,1,3)=""
^DD(2005.84,"IX",.01)=""
^DD(2005.84,"IX",1)=""
^DD(2005.84,"IX",2)=""
^DD(2005.84,"IX",3)=""
^DD(2005.84,"RQ",.01)=""
^DD(2005.84,"RQ",1)=""
^DD(2005.85,0)="FIELD^^4^5"
^DD(2005.85,0,"DT")="3020823"
^DD(2005.85,0,"IX","ACL",2005.85,1)=""
^DD(2005.85,0,"IX","B",2005.85,.01)=""
^DD(2005.85,0,"IX","C",2005.85,3)=""
^DD(2005.85,0,"NM","IMAGE INDEX FOR PROCEDURE/EVENT")=""
^DD(2005.85,0,"PT",2005,43)=""
^DD(2005.85,0,"PT",2005.03,43)=""
^DD(2005.85,0,"PT",2005.1,43)=""
^DD(2005.85,0,"PT",2005.81,43)=""
^DD(2005.85,0,"PT",2005.872,1)=""
^DD(2005.85,0,"PT",2005.8722,1)=""
^DD(2005.85,0,"PT",2006.5841,3)=""
^DD(2005.85,0,"PT",2006.5843111,.01)=""
^DD(2005.85,0,"PT",2006.5849,3)=""
^DD(2005.85,0,"VR")="3.0"
^DD(2005.85,0,"VRPK")="MAG"
^DD(2005.85,.01,0)="NAME^RFI^^0;1^K:$L(X)>50!($L(X)<2)!'(X'?1P.E) X"
^DD(2005.85,.01,1,0)="^.1"
^DD(2005.85,.01,1,1,0)="2005.85^B"
^DD(2005.85,.01,1,1,1)="S ^MAG(2005.85,""B"",$E(X,1,30),DA)="""""
^DD(2005.85,.01,1,1,2)="K ^MAG(2005.85,""B"",$E(X,1,30),DA)"
^DD(2005.85,.01,3)="Answer must be 2-50 characters in length."
^DD(2005.85,.01,21,0)="^^1^1^3020819^"
^DD(2005.85,.01,21,1,0)="This field contains the procedure/event for the image being captured.  "
^DD(2005.85,.01,"DT")="3020718"
^DD(2005.85,.01,"LAYGO",1,0)="I 0"
^DD(2005.85,1,0)="CLASS^P2005.82'^MAG(2005.82,^0;2^Q"
^DD(2005.85,1,1,0)="^.1"
^DD(2005.85,1,1,1,0)="2005.85^ACL"
^DD(2005.85,1,1,1,1)="S ^MAG(2005.85,""ACL"",$E(X,1,30),DA)="""""
^DD(2005.85,1,1,1,2)="K ^MAG(2005.85,""ACL"",$E(X,1,30),DA)"
^DD(2005.85,1,1,1,"DT")="3020118"
^DD(2005.85,1,9)="^"
^DD(2005.85,1,21,0)="^^2^2^3020819^"
^DD(2005.85,1,21,1,0)="This field points to the IMAGE INDEX FOR CLASS file.  Select the "
^DD(2005.85,1,21,2,0)="appropriate image class for the procedure being entered."
^DD(2005.85,1,"DT")="3020120"
^DD(2005.85,2,0)="SPECIALTY^2005.852P^^1;0"
^DD(2005.85,2,9)="^"
^DD(2005.85,2,21,0)="^.001^3^3^3020819^^"
^DD(2005.85,2,21,1,0)="This field points to the IMAGE INDEX FOR SPECIALTY/SUBSPECIALTY file."
^DD(2005.85,2,21,2,0)="Select the appropriate specialty for the procedure being entered; it is "
^DD(2005.85,2,21,3,0)="possible to have multiple specialties for one procedure."
^DD(2005.85,3,0)="ABBREVIATION^F^^2;1^K:$L(X)>5!($L(X)<2) X"
^DD(2005.85,3,1,0)="^.1"
^DD(2005.85,3,1,1,0)="2005.85^C"
^DD(2005.85,3,1,1,1)="S ^MAG(2005.85,""C"",$E(X,1,30),DA)="""""
^DD(2005.85,3,1,1,2)="K ^MAG(2005.85,""C"",$E(X,1,30),DA)"
^DD(2005.85,3,1,1,"DT")="3021002"
^DD(2005.85,3,3)="Answer must be 2-5 characters in length."
^DD(2005.85,3,9)="^"
^DD(2005.85,3,21,0)="^^2^2^3020819^"
^DD(2005.85,3,21,1,0)="Enter 2-5 characters abbreviation for the procedure. This can be used as"
^DD(2005.85,3,21,2,0)="part of abstract label on image display."
^DD(2005.85,3,"DT")="3021002"
^DD(2005.85,4,0)="STATUS^S^A:ACTIVE;I:INACTIVE;^0;3^Q"
^DD(2005.85,4,21,0)="^^3^3^3020905^"
^DD(2005.85,4,21,1,0)="This field is used to inactivate an entry in this file. It affects which"
^DD(2005.85,4,21,2,0)="procedures / events can be selected in the filtering option of VistA"
^DD(2005.85,4,21,3,0)="Imaging Display."
^DD(2005.85,4,23,0)="^^3^3^3020905^"
^DD(2005.85,4,23,1,0)="This field is used to inactivate an entry in this file. It affects which"
^DD(2005.85,4,23,2,0)="procedures / events can be selected in the filtering option of VistA"
^DD(2005.85,4,23,3,0)="Imaging Display introduced in Patch 8."
^DD(2005.85,4,"DT")="3020905"
^DD(2005.85,"B","ABBREVIATION",3)=""
^DD(2005.85,"B","CLASS",1)=""
^DD(2005.85,"B","NAME",.01)=""
^DD(2005.85,"B","SPECIALTY",2)=""
^DD(2005.85,"B","STATUS",4)=""
^DD(2005.85,"GL",0,1,.01)=""
^DD(2005.85,"GL",0,2,1)=""
^DD(2005.85,"GL",0,3,4)=""
^DD(2005.85,"GL",1,0,2)=""
^DD(2005.85,"GL",2,1,3)=""
^DD(2005.85,"IX",.01)=""
^DD(2005.85,"IX",1)=""
^DD(2005.85,"IX",3)=""
^DD(2005.85,"RQ",.01)=""
^DD(2005.85,"SB",2005.852,2)=""
^DD(2005.852,0)="SPECIALTY SUB-FIELD^^.01^1"
^DD(2005.852,0,"DT")="3020120"
^DD(2005.852,0,"IX","B",2005.852,.01)=""
^DD(2005.852,0,"NM","SPECIALTY")=""
^DD(2005.852,0,"UP")="2005.85"
^DD(2005.852,.01,0)="SPECIALTY^MP2005.84I^MAG(2005.84,^0;1^Q"
^DD(2005.852,.01,1,0)="^.1"
^DD(2005.852,.01,1,1,0)="2005.852^B"
^DD(2005.852,.01,1,1,1)="S ^MAG(2005.85,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2005.852,.01,1,1,2)="K ^MAG(2005.85,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2005.852,.01,"DT")="3020120"
^DD(2005.852,.01,"LAYGO",1,0)="I 0"
^DD(2005.852,"B","SPECIALTY",.01)=""
^DD(2005.852,"GL",0,1,.01)=""
^DD(2005.852,"IX",.01)=""
^DD(2005.86,0)="FIELD^^5^6"
^DD(2005.86,0,"DDA")="N"
^DD(2005.86,0,"DT")="3020205"
^DD(2005.86,0,"IX","ATYPE",2005.865,.01)=""
^DD(2005.86,0,"IX","B",2005.86,.01)=""
^DD(2005.86,0,"NM","IMAGE ACTIONS")=""
^DD(2005.86,0,"VR")="3.0"
^DD(2005.86,0,"VRPK")="MAG"
^DD(2005.86,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.86,.01,1,0)="^.1"
^DD(2005.86,.01,1,1,0)="2005.86^B"
^DD(2005.86,.01,1,1,1)="S ^MAG(2005.86,""B"",$E(X,1,30),DA)="""""
^DD(2005.86,.01,1,1,2)="K ^MAG(2005.86,""B"",$E(X,1,30),DA)"
^DD(2005.86,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2005.86,.01,21,0)="^^1^1^3020827^"
^DD(2005.86,.01,21,1,0)="Enter the name of the image action to take place."
^DD(2005.86,.01,"DT")="3020913"
^DD(2005.86,1,0)="ACTIVE^S^1:YES;0:NO;^0;2^Q"
^DD(2005.86,1,21,0)="^^1^1^3020201^"
^DD(2005.86,1,21,1,0)="The processing of actions can be turned off/on."
^DD(2005.86,1,"DT")="3020201"
^DD(2005.86,2,0)="TAG^RF^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(2005.86,2,3)="Answer must be 1-20 characters in length."
^DD(2005.86,2,21,0)="^^1^1^3020201^"
^DD(2005.86,2,21,1,0)="The tag of the routine that will be called to process the action."
^DD(2005.86,2,"DT")="3020201"
^DD(2005.86,3,0)="ROUTINE^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(2005.86,3,3)="Answer must be 1-20 characters in length."
^DD(2005.86,3,21,0)="^^1^1^3020201^"
^DD(2005.86,3,21,1,0)="The routine that will be called to process the action."
^DD(2005.86,3,"DT")="3020201"
^DD(2005.86,4,0)="DESC^F^^1;1^K:$L(X)>120!($L(X)<3) X"
^DD(2005.86,4,3)="Answer must be 3-120 characters in length."
^DD(2005.86,4,21,0)="^^1^1^3020201^"
^DD(2005.86,4,21,1,0)="A Description of the Action."
^DD(2005.86,4,"DT")="3020201"
^DD(2005.86,5,0)="TYPE^2005.865P^^2;0"
^DD(2005.86,5,21,0)="^.001^2^2^3020205^^"
^DD(2005.86,5,21,1,0)="Certain Types of images can have actions performed when an entry is made"
^DD(2005.86,5,21,2,0)="in the IMAGE File.  An example is Copying Means Tests Documents to H.E.C."
^DD(2005.86,"B","ACTIVE",1)=""
^DD(2005.86,"B","DESC",4)=""
^DD(2005.86,"B","NAME",.01)=""
^DD(2005.86,"B","ROUTINE",3)=""
^DD(2005.86,"B","TAG",2)=""
^DD(2005.86,"B","TYPE",5)=""
^DD(2005.86,"GL",0,1,.01)=""
^DD(2005.86,"GL",0,2,1)=""
^DD(2005.86,"GL",0,3,2)=""
^DD(2005.86,"GL",0,4,3)=""
^DD(2005.86,"GL",1,1,4)=""
^DD(2005.86,"GL",2,0,5)=""
^DD(2005.86,"IX",.01)=""
^DD(2005.86,"RQ",.01)=""
^DD(2005.86,"RQ",2)=""
^DD(2005.86,"SB",2005.865,5)=""
^DD(2005.865,0)="TYPE SUB-FIELD^^.01^1"
^DD(2005.865,0,"DT")="3020205"
^DD(2005.865,0,"IX","B",2005.865,.01)=""
^DD(2005.865,0,"NM","TYPE")=""
^DD(2005.865,0,"UP")="2005.86"
^DD(2005.865,.01,0)="TYPE^MP2005.83'^MAG(2005.83,^0;1^Q"
^DD(2005.865,.01,1,0)="^.1"
^DD(2005.865,.01,1,1,0)="2005.865^B"
^DD(2005.865,.01,1,1,1)="S ^MAG(2005.86,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2005.865,.01,1,1,2)="K ^MAG(2005.86,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2005.865,.01,1,2,0)="2005.86^ATYPE"
^DD(2005.865,.01,1,2,1)="S ^MAG(2005.86,""ATYPE"",$E(X,1,30),DA(1),DA)="""""
^DD(2005.865,.01,1,2,2)="K ^MAG(2005.86,""ATYPE"",$E(X,1,30),DA(1),DA)"
^DD(2005.865,.01,1,2,"%D",0)="^^1^1^3020205^"
^DD(2005.865,.01,1,2,"%D",1,0)="Quickly find all actions for a certain type"
^DD(2005.865,.01,1,2,"DT")="3020205"
^DD(2005.865,.01,21,0)="0^.001^1^1^3020205^"
^DD(2005.865,.01,21,1,0)="This field points to the Image Types that will have this action "
^DD(2005.865,.01,"DT")="3020205"
^DD(2005.865,"B","TYPE",.01)=""
^DD(2005.865,"GL",0,1,.01)=""
^DD(2005.865,"IX",.01)=""
^DD(2005.87,0)="FIELD^^22^13"
^DD(2005.87,0,"DDA")="N"
^DD(2005.87,0,"DT")="3030731"
^DD(2005.87,0,"ID",20)="S %I=Y,Y=$S('$D(^(1)):"""",$D(^VA(200,+$P(^(1),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2005.87,0,"IX","B",2005.87,.01)=""
^DD(2005.87,0,"IX","C",2005.87,20)=""
^DD(2005.87,0,"IX","D",2005.87,21)=""
^DD(2005.87,0,"NM","IMAGE LIST FILTERS")=""
^DD(2005.87,0,"PT",2006.18,177)=""
^DD(2005.87,0,"VR")="3.0"
^DD(2005.87,0,"VRPK")="MAG"
^DD(2005.87,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2005.87,.01,1,0)="^.1"
^DD(2005.87,.01,1,1,0)="2005.87^B"
^DD(2005.87,.01,1,1,1)="S ^MAG(2005.87,""B"",$E(X,1,30),DA)="""""
^DD(2005.87,.01,1,1,2)="K ^MAG(2005.87,""B"",$E(X,1,30),DA)"
^DD(2005.87,.01,3)="Answer must be 3-30 characters in length."
^DD(2005.87,.01,21,0)="^.001^4^4^3030731^^^"
^DD(2005.87,.01,21,1,0)="Descriptive name of filter.  Names aren't unique in the File, but are "
^DD(2005.87,.01,21,2,0)="forced to be unique by user.  i.e. A user can not have two filters "
^DD(2005.87,.01,21,3,0)="called ""All Clinical"", but two different users can have filters with"
^DD(2005.87,.01,21,4,0)="the same name"
^DD(2005.87,.01,"DT")="3030730"
^DD(2005.87,1,0)="PACKAGE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2005.87,1,3)="Answer must be 1-30 characters in length."
^DD(2005.87,1,21,0)="^.001^1^1^3041011^^^^"
^DD(2005.87,1,21,1,0)="Corresponds to IMAGE File, Field #40 PACKAGE INDEX"
^DD(2005.87,1,"DT")="3040923"
^DD(2005.87,2,0)="CLASS^S^ADMIN:ADMIN;CLIN:CLIN;^0;3^Q"
^DD(2005.87,2,3)="ADMIN or CLIN.  (If field is blank the entry will be considered both Admin and Clin.)"
^DD(2005.87,2,21,0)="^.001^1^1^3030731^^^^"
^DD(2005.87,2,21,1,0)="Corresponds to IMAGE File, Field #41 CLASS INDEX."
^DD(2005.87,2,"DT")="3030608"
^DD(2005.87,3,0)="TYPE^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(2005.87,3,3)="The INDEX TYPE(IENs) seperated by ':' included in this filter."
^DD(2005.87,3,21,0)="^.001^1^1^3030731^^"
^DD(2005.87,3,21,1,0)="Corresponds to IMAGE File, Field #42 TYPE INDEX."
^DD(2005.87,3,"DT")="3030608"
^DD(2005.87,4,0)="EVENT^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(2005.87,4,3)="The INDEX PROC/EVENTS(IENs) seperated by ':' to include."
^DD(2005.87,4,21,0)="^^1^1^3030731^"
^DD(2005.87,4,21,1,0)="Corresponds to IMAGE File, Field #43 PROC/EVENT INDEX."
^DD(2005.87,4,"DT")="3030608"
^DD(2005.87,5,0)="SPEC^F^^0;6^K:$L(X)>50!($L(X)<1) X"
^DD(2005.87,5,3)="The INDEX SPECIALTIES(IENs) seperated by ':' to include."
^DD(2005.87,5,21,0)="^^1^1^3030731^"
^DD(2005.87,5,21,1,0)="Corresponds to IMAGE File, Field ##44 SPEC/SUBSPEC INDEX."
^DD(2005.87,5,"DT")="3030608"
^DD(2005.87,6,0)="FROM^D^^0;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.87,6,3)="(No range limit on date)"
^DD(2005.87,6,21,0)="^.001^3^3^3030731^^^^"
^DD(2005.87,6,21,1,0)="If a specific date range is desired, these fields will be populated:"
^DD(2005.87,6,21,2,0)="FROM and UNTIL.  This isn't a relative date range.  "
^DD(2005.87,6,21,3,0)="If you want images for the last 3 months, use the RELATIVE RANGE FIELD."
^DD(2005.87,6,"DT")="3030731"
^DD(2005.87,7,0)="UNTIL^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2005.87,7,3)="(No range limit on date)"
^DD(2005.87,7,21,0)="^.001^3^3^3030731^^^"
^DD(2005.87,7,21,1,0)="If a specific date range is desired, these fields will be populated:"
^DD(2005.87,7,21,2,0)="FROM and UNTIL.  This isn't a relative date range."
^DD(2005.87,7,21,3,0)="If you want images for the last 3 months, use the RELATIVE RANGE FIELD."
^DD(2005.87,7,"DT")="3030731"
^DD(2005.87,8,0)="RELATIVE RANGE^NJ1,0^^0;9^K:+X'=X!(X>0)!(X<-120)!(X?.E1"".""1N.N) X"
^DD(2005.87,8,1,0)="^.1^^0"
^DD(2005.87,8,3)="Enter the number of Months to search backwards.  -3 = search 3 months back."
^DD(2005.87,8,21,0)="^.001^5^5^3030731^^^^"
^DD(2005.87,8,21,1,0)="This is a relative number of months to search backwards for Images."
^DD(2005.87,8,21,2,0)="  -1 means search back 1 month"
^DD(2005.87,8,21,3,0)=" -12 means search back 1 year  etc."
^DD(2005.87,8,21,4,0)="  0  means get all (unless a specific date range exists"
^DD(2005.87,8,21,5,0)="     in the From and Until Date Fields."
^DD(2005.87,8,"DT")="3030616"
^DD(2005.87,9,0)="ORIGIN^F^^2;1^K:$L(X)>50!($L(X)<1) X"
^DD(2005.87,9,1,0)="^.1^^0"
^DD(2005.87,9,3)="Answer must be 1-50 characters in length."
^DD(2005.87,9,21,0)="^^3^3^3030731^"
^DD(2005.87,9,21,1,0)="This field determines which scope of images to include in the filter"
^DD(2005.87,9,21,2,0)="possible values of scope are VA and NON-VA."
^DD(2005.87,9,21,3,0)="Corresponds to IMAGE File, Field #45 ORIGIN INDEX."
^DD(2005.87,9,"DT")="3030730"
^DD(2005.87,20,0)="USER^P200'^VA(200,^1;1^Q"
^DD(2005.87,20,1,0)="^.1"
^DD(2005.87,20,1,1,0)="2005.87^C"
^DD(2005.87,20,1,1,1)="S ^MAG(2005.87,""C"",$E(X,1,30),DA)="""""
^DD(2005.87,20,1,1,2)="K ^MAG(2005.87,""C"",$E(X,1,30),DA)"
^DD(2005.87,20,1,1,"%D",0)="^^1^1^3030608^"
^DD(2005.87,20,1,1,"%D",1,0)="Cross reference for filters for a specific user."
^DD(2005.87,20,1,1,"DT")="3030608"
^DD(2005.87,20,3)="Enter the User of the Filter"
^DD(2005.87,20,21,0)="^.001^1^1^3030730^^"
^DD(2005.87,20,21,1,0)="Users can have their own filters.  This field determines the user."
^DD(2005.87,20,"DT")="3030608"
^DD(2005.87,21,0)="PUBLIC^S^1:PUBLIC;^1;2^Q"
^DD(2005.87,21,1,0)="^.1"
^DD(2005.87,21,1,1,0)="2005.87^D"
^DD(2005.87,21,1,1,1)="S ^MAG(2005.87,""D"",$E(X,1,30),DA)="""""
^DD(2005.87,21,1,1,2)="K ^MAG(2005.87,""D"",$E(X,1,30),DA)"
^DD(2005.87,21,1,1,"%D",0)="^^1^1^3030608^"
^DD(2005.87,21,1,1,"%D",1,0)="All public filters will be available for all users."
^DD(2005.87,21,1,1,"DT")="3030608"
^DD(2005.87,21,3)="Public filters will be displayed on the Filter (File) menu for all users."
^DD(2005.87,21,21,0)="^.001^1^1^3030731^^^"
^DD(2005.87,21,21,1,0)="If a filter is public, it will be displayed on the Filter (File) menu for all users."
^DD(2005.87,21,"DT")="3030608"
^DD(2005.87,22,0)="CREATED BY^P200'^VA(200,^1;3^Q"
^DD(2005.87,22,3)="This is the person that created the filter."
^DD(2005.87,22,21,0)="^.001^2^2^3030731^^^"
^DD(2005.87,22,21,1,0)="A function (future) of the Imaging Filter window will be that a user"
^DD(2005.87,22,21,2,0)="will be able to create a Filter for another user."
^DD(2005.87,22,"DT")="3030608"
^DD(2005.87,"B","CLASS",2)=""
^DD(2005.87,"B","CREATED BY",22)=""
^DD(2005.87,"B","EVENT",4)=""
^DD(2005.87,"B","FROM",6)=""
^DD(2005.87,"B","NAME",.01)=""
^DD(2005.87,"B","ORIGIN",9)=""
^DD(2005.87,"B","PACKAGE",1)=""
^DD(2005.87,"B","PUBLIC",21)=""
^DD(2005.87,"B","RELATIVE RANGE",8)=""
^DD(2005.87,"B","SPEC",5)=""
^DD(2005.87,"B","TYPE",3)=""
^DD(2005.87,"B","UNTIL",7)=""
^DD(2005.87,"B","USER",20)=""
^DD(2005.87,"GL",0,1,.01)=""
^DD(2005.87,"GL",0,2,1)=""
^DD(2005.87,"GL",0,3,2)=""
^DD(2005.87,"GL",0,4,3)=""
^DD(2005.87,"GL",0,5,4)=""
^DD(2005.87,"GL",0,6,5)=""
^DD(2005.87,"GL",0,7,6)=""
^DD(2005.87,"GL",0,8,7)=""
^DD(2005.87,"GL",0,9,8)=""
^DD(2005.87,"GL",1,1,20)=""
^DD(2005.87,"GL",1,2,21)=""
^DD(2005.87,"GL",1,3,22)=""
^DD(2005.87,"GL",2,1,9)=""
^DD(2005.87,"IX",.01)=""
^DD(2005.87,"IX",20)=""
^DD(2005.87,"IX",21)=""
^DD(2005.87,"RQ",.01)=""
^DD(2005.872,0)="FIELD^^2^3"
^DD(2005.872,0,"DDA")="N"
^DD(2005.872,0,"DT")="3030127"
^DD(2005.872,0,"IX","B",2005.872,.01)=""
^DD(2005.872,0,"NM","DICOM INDEX MAPPING")=""
^DD(2005.872,.01,0)="MODALITY ABBREVIATION^RF^^0;1^K:$L(X)>10!($L(X)<2)!'(X?1.U) X"
^DD(2005.872,.01,1,0)="^.1"
^DD(2005.872,.01,1,1,0)="2005.872^B"
^DD(2005.872,.01,1,1,1)="S ^MAG(2005.872,""B"",$E(X,1,30),DA)="""""
^DD(2005.872,.01,1,1,2)="K ^MAG(2005.872,""B"",$E(X,1,30),DA)"
^DD(2005.872,.01,3)="Answer must be 2-10 characters in length"
^DD(2005.872,.01,21,0)="^^1^1^3030123^"
^DD(2005.872,.01,21,1,0)="This field contains the abbreviation for the DICOM Modality."
^DD(2005.872,.01,"DT")="3030127"
^DD(2005.872,1,0)="PROC/EVENT INDEX (DEFAULT)^P2005.85'^MAG(2005.85,^0;2^Q"
^DD(2005.872,1,21,0)="^^3^3^3030123^"
^DD(2005.872,1,21,1,0)="This field contains the default procedure that is associated with this "
^DD(2005.872,1,21,2,0)="modality, unless a specialty is"
^DD(2005.872,1,21,3,0)="known and has an associated procedure value defined for it."
^DD(2005.872,1,"DT")="3030123"
^DD(2005.872,2,0)="SPECIALTY INDEX^2005.8722P^^1;0"
^DD(2005.872,"B","MODALITY ABBREVIATION",.01)=""
^DD(2005.872,"B","PROC/EVENT INDEX (DEFAULT)",1)=""
^DD(2005.872,"B","SPECIALTY INDEX",2)=""
^DD(2005.872,"GL",0,1,.01)=""
^DD(2005.872,"GL",0,2,1)=""
^DD(2005.872,"GL",1,0,2)=""
^DD(2005.872,"IX",.01)=""
^DD(2005.872,"RQ",.01)=""
^DD(2005.872,"SB",2005.8722,2)=""
^DD(2005.8722,0)="SPECIALTY INDEX SUB-FIELD^^1^2"
^DD(2005.8722,0,"DT")="3030123"
^DD(2005.8722,0,"IX","B",2005.8722,.01)=""
^DD(2005.8722,0,"NM","SPECIALTY INDEX")=""
^DD(2005.8722,0,"UP")="2005.872"
^DD(2005.8722,.01,0)="SPECIALTY INDEX^MP2005.84'^MAG(2005.84,^0;1^Q"
^DD(2005.8722,.01,1,0)="^.1"
^DD(2005.8722,.01,1,1,0)="2005.8722^B"
^DD(2005.8722,.01,1,1,1)="S ^MAG(2005.872,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2005.8722,.01,1,1,2)="K ^MAG(2005.872,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2005.8722,.01,21,0)="^^2^2^3030123^"
^DD(2005.8722,.01,21,1,0)="This is the specialty or subspecialty with which a specific, non-default "
^DD(2005.8722,.01,21,2,0)="procedure is to be associated for this modality."
^DD(2005.8722,.01,"DT")="3030123"
^DD(2005.8722,1,0)="PROCEDURE/EVENT INDEX^P2005.85'^MAG(2005.85,^0;2^Q"
^DD(2005.8722,1,21,0)="^^2^2^3030123^"
^DD(2005.8722,1,21,1,0)="This is the procedure "
^DD(2005.8722,1,21,2,0)="that is associated with this specialty for this modality."
^DD(2005.8722,1,"DT")="3030123"
^DD(2005.8722,"B","PROCEDURE/EVENT INDEX",1)=""
^DD(2005.8722,"B","SPECIALTY INDEX",.01)=""
^DD(2005.8722,"GL",0,1,.01)=""
^DD(2005.8722,"GL",0,2,1)=""
^DD(2005.8722,"IX",.01)=""
^DD(2006.03,0)="FIELD^^10^13"
^DD(2006.03,0,"DDA")="N"
^DD(2006.03,0,"DT")="3001213"
^DD(2006.03,0,"ID",.001)="W ""   "",Y"
^DD(2006.03,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MAG(2006.1,+$P(^(0),U,12),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2006.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2006.03,0,"NM","IMAGE BACKGROUND QUEUE")=""
^DD(2006.03,0,"PT",2006.031,1)=""
^DD(2006.03,0,"PT",2006.034,.01)=""
^DD(2006.03,0,"VR")="3.0"
^DD(2006.03,0,"VRPK")="MAG"
^DD(2006.03,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(2006.03,.001,3)="Type a number between 1 and 99999999, 0 Decimal Digits"
^DD(2006.03,.001,21,0)="^^1^1^3001025^"
^DD(2006.03,.001,21,1,0)="This is the internal entry number (IEN) of the QUEUE entry."
^DD(2006.03,.001,"DT")="3001025"
^DD(2006.03,.01,0)="QUEUE NAME^F^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(2006.03,.01,1,0)="^.1^^0"
^DD(2006.03,.01,3)="Answer must be 1-10 characters in length."
^DD(2006.03,.01,21,0)="^^1^1^2970721^^^"
^DD(2006.03,.01,21,1,0)="Name of the queue holding the entry."
^DD(2006.03,.01,"DT")="3050107"
^DD(2006.03,.04,0)="PLACE^RP2006.1'^MAG(2006.1,^0;12^Q"
^DD(2006.03,.04,1,0)="^.1^^0"
^DD(2006.03,.04,21,0)="^^3^3^3050414^"
^DD(2006.03,.04,21,1,0)="This field references the site parameter file. The Site parameter entry "
^DD(2006.03,.04,21,2,0)="defines all of the attributes of Vista Imaging local area network. This "
^DD(2006.03,.04,21,3,0)="includes facility user preferences, network write locations, etc."
^DD(2006.03,.04,"DT")="3050414"
^DD(2006.03,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(2006.03,1,21,0)="^^1^1^2970721^^^"
^DD(2006.03,1,21,1,0)="Pointer to the user creating the entry in the queue."
^DD(2006.03,1,"DT")="2941220"
^DD(2006.03,2,0)="SYSTEM VOLUME GROUP ID^F^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(2006.03,2,3)="Answer must be 3 characters in length"
^DD(2006.03,2,21,0)="^^1^1^2970721^^"
^DD(2006.03,2,21,1,0)="The identification of the system used to create the entry in the queue."
^DD(2006.03,2,"DT")="3001213"
^DD(2006.03,3,0)="REQUEST DATE & TIME^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.03,3,21,0)="^^1^1^2970721^^"
^DD(2006.03,3,21,1,0)="The date and time that the entry was placed into the queue."
^DD(2006.03,3,"DT")="2941220"
^DD(2006.03,4,0)="COMPLETION STATUS^F^^0;5^K:$L(X)>60!($L(X)<1) X"
^DD(2006.03,4,1,0)="^.1^^0"
^DD(2006.03,4,3)="Answer must be 1-60 characters in length."
^DD(2006.03,4,21,0)="^^5^5^2970721^"
^DD(2006.03,4,21,1,0)="The status of the handing of the request by the Background Processor. The"
^DD(2006.03,4,21,2,0)="field is null until the entry is processed in the background. A positive"
^DD(2006.03,4,21,3,0)="value indicates a successful completion of the request. A negative value"
^DD(2006.03,4,21,4,0)="indicates a failure to complete the request. Explanatory text follows the"
^DD(2006.03,4,21,5,0)="numeric status in this field"
^DD(2006.03,4,"DT")="3041022"
^DD(2006.03,5,0)="COMPLETION DATE & TIME^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.03,5,21,0)="^^1^1^2950318^"
^DD(2006.03,5,21,1,0)="The date and time that the background processor finished the request."
^DD(2006.03,5,"DT")="2941220"
^DD(2006.03,6,0)="IMAGE POINTER^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(2006.03,6,1,0)="^.1^^0"
^DD(2006.03,6,3)="Answer must be 1-20 characters in length."
^DD(2006.03,6,21,0)="^.001^1^1^3000705^^"
^DD(2006.03,6,21,1,0)="Pointer to file 2005."
^DD(2006.03,6,"DT")="3041102"
^DD(2006.03,7,0)="QUEUE TYPE^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(2006.03,7,1,0)="^.1^^0"
^DD(2006.03,7,3)="Answer must be 1-20 characters in length."
^DD(2006.03,7,21,0)="^^1^1^2980323^"
^DD(2006.03,7,21,1,0)="Type of Background or DICOM processor queued process."
^DD(2006.03,7,"DT")="3041109"
^DD(2006.03,8,0)="QUEUED SEQUENCE NUMBER^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(2006.03,8,3)="Answer must be 1-20 characters in length."
^DD(2006.03,8,21,0)="^^2^2^2980323^"
^DD(2006.03,8,21,1,0)="If this field is blank then this queued process record represents is"
^DD(2006.03,8,21,2,0)="in its initial instantiation."
^DD(2006.03,8,"DT")="2980323"
^DD(2006.03,9,0)="FILEPATH^F^^0;10^K:$L(X)>20!($L(X)<1) X"
^DD(2006.03,9,3)="Answer must be 1-20 characters in length."
^DD(2006.03,9,21,0)="^.001^1^1^3000707^^"
^DD(2006.03,9,21,1,0)="Complete Filepath passed from the foreground to the Background Processor."
^DD(2006.03,9,"DT")="2980423"
^DD(2006.03,10,0)="QUEUE DATA ITEM 5^F^^0;11^K:$L(X)>20!($L(X)<1) X"
^DD(2006.03,10,3)="Answer must be 1-20 characters in length."
^DD(2006.03,10,21,0)="^^1^1^2970721^^"
^DD(2006.03,10,21,1,0)="Fifth parameter passed from the foreground to the Background Processor."
^DD(2006.03,10,"DT")="2950321"
^DD(2006.03,"B","COMPLETION DATE & TIME",5)=""
^DD(2006.03,"B","COMPLETION STATUS",4)=""
^DD(2006.03,"B","FILEPATH",9)=""
^DD(2006.03,"B","IMAGE POINTER",6)=""
^DD(2006.03,"B","NUMBER",.001)=""
^DD(2006.03,"B","PLACE",.04)=""
^DD(2006.03,"B","QUEUE DATA ITEM 5",10)=""
^DD(2006.03,"B","QUEUE NAME",.01)=""
^DD(2006.03,"B","QUEUE TYPE",7)=""
^DD(2006.03,"B","QUEUED SEQUENCE NUMBER",8)=""
^DD(2006.03,"B","REQUEST DATE & TIME",3)=""
^DD(2006.03,"B","SYSTEM VOLUME GROUP ID",2)=""
^DD(2006.03,"B","USER",1)=""
^DD(2006.03,"GL",0,1,.01)=""
^DD(2006.03,"GL",0,2,1)=""
^DD(2006.03,"GL",0,3,2)=""
^DD(2006.03,"GL",0,4,3)=""
^DD(2006.03,"GL",0,5,4)=""
^DD(2006.03,"GL",0,6,5)=""
^DD(2006.03,"GL",0,7,6)=""
^DD(2006.03,"GL",0,8,7)=""
^DD(2006.03,"GL",0,9,8)=""
^DD(2006.03,"GL",0,10,9)=""
^DD(2006.03,"GL",0,11,10)=""
^DD(2006.03,"GL",0,12,.04)=""
^DD(2006.03,"RQ",.04)=""
^DD(2006.031,0)="FIELD^^3^5"
^DD(2006.031,0,"DDA")="N"
^DD(2006.031,0,"DT")="3050328"
^DD(2006.031,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MAG(2006.1,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2006.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2006.031,0,"NM","IMAGE BACKGROUND QUEUE POINTER")=""
^DD(2006.031,0,"VR")="3.0"
^DD(2006.031,0,"VRPK")="MAG"
^DD(2006.031,.01,0)="QUEUE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.031,.01,1,0)="^.1^^0"
^DD(2006.031,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.031,.01,21,0)="^^2^2^3001215^"
^DD(2006.031,.01,21,1,0)="Name of the queue holding the entry. The entry is controlled by the"
^DD(2006.031,.01,21,2,0)="Imaging interfaces and should not be entered directly by any user."
^DD(2006.031,.01,"DT")="3050107"
^DD(2006.031,.04,0)="PLACE^RP2006.1'^MAG(2006.1,^0;4^Q"
^DD(2006.031,.04,1,0)="^.1^^0"
^DD(2006.031,.04,21,0)="^^3^3^3050414^"
^DD(2006.031,.04,21,1,0)="This field references the site parameter file.  The Site parameter entry "
^DD(2006.031,.04,21,2,0)="defines all of the attributes of Vista Imaging local area network.  This "
^DD(2006.031,.04,21,3,0)="includes facility user preferences, network write locations, etc."
^DD(2006.031,.04,"DT")="3050414"
^DD(2006.031,1,0)="QUEUE POINTER^P2006.03'^MAGQUEUE(2006.03,^0;2^Q"
^DD(2006.031,1,21,0)="^^1^1^2950318^"
^DD(2006.031,1,21,1,0)="Pointer to the entry in the queue."
^DD(2006.031,1,"DT")="2941220"
^DD(2006.031,2,0)="QUEUE COUNT^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.031,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2006.031,2,21,0)="^^2^2^3050328^"
^DD(2006.031,2,21,1,0)="This field provides a count of the queue entries that have yet to be "
^DD(2006.031,2,21,2,0)="processed in the Queue file (#2006.03) for each queue type."
^DD(2006.031,2,"DT")="3050328"
^DD(2006.031,3,0)="QUEUE TYPE TOTAL^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(2006.031,3,3)="Type a number between 0 and 99999999, 0 Decimal Digits"
^DD(2006.031,3,21,0)="^^5^5^3050414^"
^DD(2006.031,3,21,1,0)="This value is the total number of queues in the queue partition of this "
^DD(2006.031,3,21,2,0)="type for this local area Vista Imaging network.  This value can be used "
^DD(2006.031,3,21,3,0)="in conjunction with the Queue Count field (#2) to determine the number of"
^DD(2006.031,3,21,4,0)="queues in the failed queue partition.  i.e. Queue Type Total - Queue "
^DD(2006.031,3,21,5,0)="Count = failed queues (for this ""PLACE"" and this queue type).."
^DD(2006.031,3,"DT")="3050414"
^DD(2006.031,"B","PLACE",.04)=""
^DD(2006.031,"B","QUEUE COUNT",2)=""
^DD(2006.031,"B","QUEUE NAME",.01)=""
^DD(2006.031,"B","QUEUE POINTER",1)=""
^DD(2006.031,"B","QUEUE TYPE TOTAL",3)=""
^DD(2006.031,"GL",0,1,.01)=""
^DD(2006.031,"GL",0,2,1)=""
^DD(2006.031,"GL",0,3,2)=""
^DD(2006.031,"GL",0,4,.04)=""
^DD(2006.031,"GL",0,5,3)=""
^DD(2006.031,"RQ",.01)=""
^DD(2006.031,"RQ",.04)=""
^DD(2006.032,0)="FIELD^^9^11"
^DD(2006.032,0,"DDA")="N"
^DD(2006.032,0,"DT")="3050418"
^DD(2006.032,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MAG(2006.1,+$P(^(0),U,11),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2006.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2006.032,0,"IX","B",2006.032,.01)=""
^DD(2006.032,0,"NM","JUKEBOX")=""
^DD(2006.032,0,"PT",2006.1,54)=""
^DD(2006.032,0,"VR")="3.0"
^DD(2006.032,0,"VRPK")="MAG"
^DD(2006.032,.01,0)="JUKEBOX NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.032,.01,1,0)="^.1^^0"
^DD(2006.032,.01,1,1,0)="2006.032^B"
^DD(2006.032,.01,1,1,1)="S ^MAGQUEUE(2006.032,""B"",$E(X,1,30),DA)="""""
^DD(2006.032,.01,1,1,2)="K ^MAGQUEUE(2006.032,""B"",$E(X,1,30),DA)"
^DD(2006.032,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.032,.01,21,0)="^^2^2^2970721^^"
^DD(2006.032,.01,21,1,0)="This is the name for the jukebox.  It is typically the name of the"
^DD(2006.032,.01,21,2,0)="manufacturer of the jukebox hardware and/or software."
^DD(2006.032,.01,"DT")="3010313"
^DD(2006.032,.04,0)="PLACE^RP2006.1'^MAG(2006.1,^0;11^Q"
^DD(2006.032,.04,1,0)="^.1^^0"
^DD(2006.032,.04,21,0)="^^3^3^3050414^"
^DD(2006.032,.04,21,1,0)="This field references the site parameter file. The Site parameter entry "
^DD(2006.032,.04,21,2,0)="defines all of the attributes of Vista Imaging local area network. This "
^DD(2006.032,.04,21,3,0)="includes facility user preferences, network write locations, etc."
^DD(2006.032,.04,"DT")="3050414"
^DD(2006.032,1,0)="JUKEBOX DEVICE^RFX^^0;2^K:$L(X)>30!($L(X)<2)!'((X?1""\\"".E1""\"".E1""\"")!(X?1A1"":"")) X"
^DD(2006.032,1,3)="Answer must be 2-30 characters in length.  Type ?? for more detailed help."
^DD(2006.032,1,21,0)="^^2^2^3001025^"
^DD(2006.032,1,21,1,0)="This is the Universal Naming Convention (UNC) name for your jukebox share"
^DD(2006.032,1,21,2,0)="(e.g. \\wasimgjb1\image1$\). Format required: \\servername\sharename\"
^DD(2006.032,1,"DT")="3001025"
^DD(2006.032,2,0)="CURRENT WRITE PLATTER^R*P2005.2'^MAG(2005.2,^0;3^S DIC(""S"")=""I $P(^MAGQUEUE(2006.032,DA,0),U,11)=$P(^MAG(2005.2,Y,0),U,10)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(2006.032,2,12)="The Jukebox and the Network Location file entries must be associated with the same Vista Imaging network or 'PLACE""."
^DD(2006.032,2,12.1)="S DIC(""S"")=""I $P(^MAGQUEUE(2006.032,DA,0),U,11)=$P(^MAG(2005.2,Y,0),U,10)"""
^DD(2006.032,2,21,0)="^^2^2^2970721^"
^DD(2006.032,2,21,1,0)="New files are written to this platter of the jukebox. This field is a"
^DD(2006.032,2,21,2,0)="pointer to the Network Location file (2005.2)."
^DD(2006.032,2,"DT")="3050418"
^DD(2006.032,3,0)="NUMBER OF CARTRIDGES^NJ4,0^^0;4^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.032,3,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.032,3,21,0)="^^2^2^2970721^^"
^DD(2006.032,3,21,1,0)="This field contains the number of cartridges that have been entered into"
^DD(2006.032,3,21,2,0)="the jukebox.  The field is not decremented when cartridges are removed."
^DD(2006.032,3,"DT")="2950318"
^DD(2006.032,4,0)="PERCENT FREE SPACE^NJ4,1^^0;5^K:+X'=X!(X>10)!(X<2.5)!(X?.E1"".""2N.N) X"
^DD(2006.032,4,3)="Type a Number between 2.5 and 10, 1 Decimal Digit"
^DD(2006.032,4,21,0)="^^3^3^2991116^^^^"
^DD(2006.032,4,21,1,0)="The minimum free space specifies the percentage of the platter to"
^DD(2006.032,4,21,2,0)="be kept empty.  For example, if it is 10, then 90% of the platter can"
^DD(2006.032,4,21,3,0)="written to, before swapping to the next platter."
^DD(2006.032,4,"DT")="2991116"
^DD(2006.032,5,0)="LAST TIMESTAMP FOR SIZE^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.032,5,21,0)="^^3^3^2950318^"
^DD(2006.032,5,21,1,0)="The Background Poster must periodically check the amount of free-space"
^DD(2006.032,5,21,2,0)="on the current jukebox platter.  This field records the last time that"
^DD(2006.032,5,21,3,0)="this check was performed."
^DD(2006.032,5,"DT")="2950318"
^DD(2006.032,6,0)="JB VOLUME SIZE ROUTINE^FX^^0;7^K:($E(X,1,3)'=""MAG"") X"
^DD(2006.032,6,3)="Answer must be a routine in the ""MAG"" namespace and located in the routine file."
^DD(2006.032,6,21,0)="^^2^2^2991112^^"
^DD(2006.032,6,21,1,0)="The Background Poster will invoke this MUMPS routine to determine"
^DD(2006.032,6,21,2,0)="how much space is used, and how much is still available."
^DD(2006.032,6,"DT")="2991112"
^DD(2006.032,7,0)="*USE SUBDIRECTORIES^S^Y:Use Subdirectories;N:Don't Use Subdirectories;^0;8^Q"
^DD(2006.032,7,4)=""
^DD(2006.032,7,21,0)="^^4^4^2991112^^^^"
^DD(2006.032,7,21,1,0)="DO NOT USE on an OTG jukebox. "
^DD(2006.032,7,21,2,0)="The Data General Jukebox requires subdirectories of the form"
^DD(2006.032,7,21,3,0)="1a\image\nn\<image file>.  The Pegasus jukebox does not require"
^DD(2006.032,7,21,4,0)="the subdirectories."
^DD(2006.032,7,"DT")="3001025"
^DD(2006.032,8,0)="JUKEBOX VOLUME NAME^S^OJMI:Pegasus OJMI Jukebox;OPTICAL:Data General AViiON Jukebox;DEX:OTG Disk Extender;^0;9^Q"
^DD(2006.032,8,21,0)="^^2^2^2980304^^^"
^DD(2006.032,8,21,1,0)="This is the volume name for the jukebox.  For Pegasus jukebox software, it"
^DD(2006.032,8,21,2,0)="is ""OJMI"" (Optical Jukebox Management Interface)."
^DD(2006.032,8,"DT")="2980304"
^DD(2006.032,9,0)="MEDIA NAME^S^WORM-PDT:Pegasus WORM cartridge;WORM-DG:Data General WORK cartridge;^0;10^Q"
^DD(2006.032,9,21,0)="^^2^2^2950327^"
^DD(2006.032,9,21,1,0)="This identifies the kind of jukebox cartridge.  Use ""WORM-PDT"" for"
^DD(2006.032,9,21,2,0)="Pegasus WORM cartridge and ""WORM-DG"" for Data General WORM cartridges."
^DD(2006.032,9,"DT")="2950318"
^DD(2006.032,"B","*USE SUBDIRECTORIES",7)=""
^DD(2006.032,"B","CURRENT WRITE PLATTER",2)=""
^DD(2006.032,"B","JB VOLUME SIZE ROUTINE",6)=""
^DD(2006.032,"B","JUKEBOX DEVICE",1)=""
^DD(2006.032,"B","JUKEBOX NAME",.01)=""
^DD(2006.032,"B","JUKEBOX VOLUME NAME",8)=""
^DD(2006.032,"B","LAST TIMESTAMP FOR SIZE",5)=""
^DD(2006.032,"B","MEDIA NAME",9)=""
^DD(2006.032,"B","NUMBER OF CARTRIDGES",3)=""
^DD(2006.032,"B","PERCENT FREE SPACE",4)=""
^DD(2006.032,"B","PLACE",.04)=""
^DD(2006.032,"GL",0,1,.01)=""
^DD(2006.032,"GL",0,2,1)=""
^DD(2006.032,"GL",0,3,2)=""
^DD(2006.032,"GL",0,4,3)=""
^DD(2006.032,"GL",0,5,4)=""
^DD(2006.032,"GL",0,6,5)=""
^DD(2006.032,"GL",0,7,6)=""
^DD(2006.032,"GL",0,8,7)=""
^DD(2006.032,"GL",0,9,8)=""
^DD(2006.032,"GL",0,10,9)=""
^DD(2006.032,"GL",0,11,.04)=""
^DD(2006.032,"IX",.01)=""
^DD(2006.032,"RQ",.01)=""
^DD(2006.032,"RQ",.04)=""
^DD(2006.032,"RQ",1)=""
^DD(2006.032,"RQ",2)=""
^DD(2006.033,0)="FIELD^^1^2"
^DD(2006.033,0,"DDA")="N"
^DD(2006.033,0,"DT")="2980812"
^DD(2006.033,0,"IX","B",2006.033,.01)=""
^DD(2006.033,0,"IX","C",2006.033,1)=""
^DD(2006.033,0,"NM","OFFLINE IMAGES")=""
^DD(2006.033,0,"VR")="3.0"
^DD(2006.033,0,"VRPK")="IMAGING"
^DD(2006.033,.01,0)="FILENAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.033,.01,1,0)="^.1"
^DD(2006.033,.01,1,1,0)="2006.033^B"
^DD(2006.033,.01,1,1,1)="S ^MAGQUEUE(2006.033,""B"",$E(X,1,30),DA)="""""
^DD(2006.033,.01,1,1,2)="K ^MAGQUEUE(2006.033,""B"",$E(X,1,30),DA)"
^DD(2006.033,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.033,.01,21,0)="^^1^1^2980812^"
^DD(2006.033,.01,21,1,0)="Name of file that is offline"
^DD(2006.033,.01,"DT")="2980812"
^DD(2006.033,1,0)="JUKEBOX PLATTER^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(2006.033,1,1,0)="^.1"
^DD(2006.033,1,1,1,0)="2006.033^C"
^DD(2006.033,1,1,1,1)="S ^MAGQUEUE(2006.033,""C"",$E(X,1,30),DA)="""""
^DD(2006.033,1,1,1,2)="K ^MAGQUEUE(2006.033,""C"",$E(X,1,30),DA)"
^DD(2006.033,1,1,1,"DT")="2980824"
^DD(2006.033,1,3)="Answer must be 2-30 characters in length."
^DD(2006.033,1,21,0)="^^1^1^2980812^"
^DD(2006.033,1,21,1,0)="Platter where offline file resides"
^DD(2006.033,1,"DT")="2980824"
^DD(2006.033,"B","FILENAME",.01)=""
^DD(2006.033,"B","JUKEBOX PLATTER",1)=""
^DD(2006.033,"GL",0,1,.01)=""
^DD(2006.033,"GL",0,2,1)=""
^DD(2006.033,"IX",.01)=""
^DD(2006.033,"IX",1)=""
^DD(2006.033,"RQ",.01)=""
^DD(2006.034,0)="FIELD^^1^2"
^DD(2006.034,0,"DDA")="N"
^DD(2006.034,0,"DT")="3010405"
^DD(2006.034,0,"IX","B",2006.034,.01)=""
^DD(2006.034,0,"NM","IMPORT QUEUE")=""
^DD(2006.034,0,"VR")="3.0"
^DD(2006.034,0,"VRPK")="MAG"
^DD(2006.034,.01,0)="NAME^RP2006.03X^MAGQUEUE(2006.03,^0;1^S DINUM=X"
^DD(2006.034,.01,1,0)="^.1"
^DD(2006.034,.01,1,1,0)="2006.034^B"
^DD(2006.034,.01,1,1,1)="S ^MAG(2006.034,""B"",$E(X,1,30),DA)="""""
^DD(2006.034,.01,1,1,2)="K ^MAG(2006.034,""B"",$E(X,1,30),DA)"
^DD(2006.034,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2006.034,.01,21,0)="^^8^8^3020419^"
^DD(2006.034,.01,21,1,0)="This field is synchronized (DINUMed) with the original ""IMPORT"" queue"
^DD(2006.034,.01,21,2,0)="created in the Image Background QUEUE file (#2006.03). The two"
^DD(2006.034,.01,21,3,0)="files (2006.034 and 2006.03) are kept in sync by a reference"
^DD(2006.034,.01,21,4,0)="in 2006.03 field QUEUE DATA ITEM (#10).  This back reference is"
^DD(2006.034,.01,21,5,0)="necessary in cases of requeues.  The requeue process involves deleting"
^DD(2006.034,.01,21,6,0)="the originally created 2006.03 entry, preserving field #10 data,"
^DD(2006.034,.01,21,7,0)="and creating a new 2006.03 Import entry.  Thus the DINUM connection"
^DD(2006.034,.01,21,8,0)="between the files 2006.03 and 2006.034 is otherwise broken."
^DD(2006.034,.01,"DT")="3020419"
^DD(2006.034,1,0)="IMAGE DATA^2006.341A^^1;0"
^DD(2006.034,"B","IMAGE DATA",1)=""
^DD(2006.034,"B","NAME",.01)=""
^DD(2006.034,"GL",0,1,.01)=""
^DD(2006.034,"GL",1,0,1)=""
^DD(2006.034,"IX",.01)=""
^DD(2006.034,"RQ",.01)=""
^DD(2006.034,"SB",2006.341,1)=""
^DD(2006.035,0)="FIELD^^9^10"
^DD(2006.035,0,"DDA")="N"
^DD(2006.035,0,"DT")="3030624"
^DD(2006.035,0,"IX","ID",2006.035,9)=""
^DD(2006.035,0,"NM","SEND QUEUE")=""
^DD(2006.035,0,"VR")="3.0"
^DD(2006.035,0,"VRPK")="MAG"
^DD(2006.035,.01,0)="IMAGE^RP2005'^MAG(2005,^0;1^Q"
^DD(2006.035,.01,.1)="Image"
^DD(2006.035,.01,1,0)="^.1^^0"
^DD(2006.035,.01,3)=""
^DD(2006.035,.01,21,0)="^^3^3^3000216^^"
^DD(2006.035,.01,21,1,0)="The value of this field is a pointer to the image file."
^DD(2006.035,.01,21,2,0)="This entry in the SEND queue is intended to cause transmission"
^DD(2006.035,.01,21,3,0)="of files for the image that is indicated by this pointer."
^DD(2006.035,.01,"DT")="3020312"
^DD(2006.035,1,0)="DESTINATION^RV^^0;2^Q"
^DD(2006.035,1,3)="Enter the name of the destination to which images are to be transmitted."
^DD(2006.035,1,21,0)="^.001^10^10^3041029^^^"
^DD(2006.035,1,21,1,0)="The value of this field is a ""Variable Pointer""."
^DD(2006.035,1,21,2,0)=" "
^DD(2006.035,1,21,3,0)="The pointer may reference either an entry in"
^DD(2006.035,1,21,4,0)="either File 2005.2 (Imaging Network Location) or"
^DD(2006.035,1,21,5,0)="File 2006.585 (DICOM User Application)."
^DD(2006.035,1,21,6,0)=" "
^DD(2006.035,1,21,7,0)="When pointing to File 2005.2, images will be"
^DD(2006.035,1,21,8,0)="transmitted using a host-system copy protocol;"
^DD(2006.035,1,21,9,0)="when pointing to File 2006.585, images will be"
^DD(2006.035,1,21,10,0)="transmitted using the DICOM protocol."
^DD(2006.035,1,"DT")="3020312"
^DD(2006.035,1,"V",0)="^.12P^3^3"
^DD(2006.035,1,"V",1,0)="2005.2^Send to which Network Location^1^N^n^n"
^DD(2006.035,1,"V",2,0)="2006.585^Send to which DICOM SCU^2^D^n^n"
^DD(2006.035,1,"V",3,0)="2006.587^Send to which DICOM SCU^3^DCM^n^n"
^DD(2006.035,1,"V","B",2005.2,1)=""
^DD(2006.035,1,"V","B",2006.585,2)=""
^DD(2006.035,1,"V","B",2006.587,3)=""
^DD(2006.035,1,"V","M","Send to which DICOM SCU",2)=""
^DD(2006.035,1,"V","M","Send to which DICOM SCU",3)=""
^DD(2006.035,1,"V","M","Send to which Network Location",1)=""
^DD(2006.035,1,"V","O",1,1)=""
^DD(2006.035,1,"V","O",2,2)=""
^DD(2006.035,1,"V","O",3,3)=""
^DD(2006.035,1,"V","P","D",2)=""
^DD(2006.035,1,"V","P","DCM",3)=""
^DD(2006.035,1,"V","P","N",1)=""
^DD(2006.035,2,0)="TYPE^RS^ABSTRACT:ABSTRACT;FULL:FULL;BIG:BIG;TEXT:TEXT;DICOM:DICOM;^0;3^Q"
^DD(2006.035,2,.1)="Type of file"
^DD(2006.035,2,1,0)="^.1^^0"
^DD(2006.035,2,21,0)="^^2^2^2980921^"
^DD(2006.035,2,21,1,0)="This field identifies the kind of file that is to be transmitted."
^DD(2006.035,2,21,2,0)="Currently 5 possible types exist (Abstract, Full, Big, Text and DICOM)."
^DD(2006.035,2,"DT")="3020312"
^DD(2006.035,3,0)="STATUS^S^WAITING:WAITING;SENDING:SENDING;SENT:SENT;FAILED:FAILED;^1;1^Q"
^DD(2006.035,3,.1)="Status"
^DD(2006.035,3,1,0)="^.1^^0"
^DD(2006.035,3,21,0)="^^11^11^3000216^^"
^DD(2006.035,3,21,1,0)="The value of this field indicates the status of the queue-entry."
^DD(2006.035,3,21,2,0)="Normally, an entry goes through three stages:"
^DD(2006.035,3,21,3,0)="First, the status is ""WAITING""."
^DD(2006.035,3,21,4,0)="When the queue-processor starts working on the current file, the status will become ""SENDING""."
^DD(2006.035,3,21,5,0)="When the file has been transmitted, the status will change to ""SENT""."
^DD(2006.035,3,21,6,0)=" "
^DD(2006.035,3,21,7,0)="When a transmission fails, the queue processor will make a number of additional attempts to"
^DD(2006.035,3,21,8,0)="transmit the file. If all attempts remain unsuccessful, the status"
^DD(2006.035,3,21,9,0)="will be changed to ""FAILED""."
^DD(2006.035,3,21,10,0)=" "
^DD(2006.035,3,21,11,0)="There is a menu option to ""re-queue"" entries with a status of ""FAILED""."
^DD(2006.035,3,"DT")="3020312"
^DD(2006.035,4,0)="PRIORITY^NJ3,0^^1;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.035,4,.1)="Relative priority"
^DD(2006.035,4,1,0)="^.1^^0"
^DD(2006.035,4,3)="Enter a number that represents the priority (normal is 500)."
^DD(2006.035,4,21,0)="^^4^4^3000216^^"
^DD(2006.035,4,21,1,0)="This field indicates the relative priority of the entry in the queue."
^DD(2006.035,4,21,2,0)="Normally, all entries have priority 500."
^DD(2006.035,4,21,3,0)="The software may assign a low priority (250) or a high priority (750)."
^DD(2006.035,4,21,4,0)="In the future further refinement of these priorities is expected."
^DD(2006.035,4,"DT")="3020312"
^DD(2006.035,5,0)="TIME IN^RD^^1;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.035,5,.1)="Timestamp (enter queue)"
^DD(2006.035,5,21,0)="^^2^2^2980921^"
^DD(2006.035,5,21,1,0)="The value of this field is a time-stamp that identifies the date and time"
^DD(2006.035,5,21,2,0)="on which the entry was added to the queue."
^DD(2006.035,5,"DT")="2980921"
^DD(2006.035,6,0)="TIME OUT^D^^1;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.035,6,.1)="Timestamp (processed)"
^DD(2006.035,6,21,0)="^^3^3^2980921^"
^DD(2006.035,6,21,1,0)="The value of this field is a time stamp that identifies when the"
^DD(2006.035,6,21,2,0)="entry in the queue was processed (status changed to either SENT"
^DD(2006.035,6,21,3,0)="or FAILED)."
^DD(2006.035,6,"DT")="2980921"
^DD(2006.035,7,0)="MECHANISM^S^1:MS-DOS Copy;2:DICOM Send;^0;4^Q"
^DD(2006.035,7,3)="Enter a code for the method of transmission."
^DD(2006.035,7,21,0)="^^4^4^3000216^"
^DD(2006.035,7,21,1,0)="The value of this field is a code that indicates how files"
^DD(2006.035,7,21,2,0)="are to be transmitted to the remote location."
^DD(2006.035,7,21,3,0)="Possible methods of transmission are ""MS-DOS copy"" and"
^DD(2006.035,7,21,4,0)="""DICOM copy""."
^DD(2006.035,7,"DT")="2991222"
^DD(2006.035,8,0)="ORIGIN^RP4'^DIC(4,^0;5^Q"
^DD(2006.035,8,3)="Enter the location from which this image originates."
^DD(2006.035,8,21,0)="^^5^5^3010309^"
^DD(2006.035,8,21,1,0)="The value of this field is a pointer (to the Institution"
^DD(2006.035,8,21,2,0)="file, #4). The institution that is identified by this value"
^DD(2006.035,8,21,3,0)="is the place where the image ""comes from"". In the context"
^DD(2006.035,8,21,4,0)="of auto-routing, the image ""comes from"" the place where it"
^DD(2006.035,8,21,5,0)="is permanently stored."
^DD(2006.035,8,"DT")="3020312"
^DD(2006.035,9,0)="TRANSACTION ID^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(2006.035,9,1,0)="^.1"
^DD(2006.035,9,1,1,0)="2006.035^ID"
^DD(2006.035,9,1,1,1)="S ^MAGQUEUE(2006.035,""ID"",$E(X,1,30),DA)="""""
^DD(2006.035,9,1,1,2)="K ^MAGQUEUE(2006.035,""ID"",$E(X,1,30),DA)"
^DD(2006.035,9,1,1,"%D",0)="^^2^2^3030624^"
^DD(2006.035,9,1,1,"%D",1,0)="This cross-reference keeps track of which files belong"
^DD(2006.035,9,1,1,"%D",2,0)="to which transactions (studies)."
^DD(2006.035,9,1,1,"DT")="3030624"
^DD(2006.035,9,3)="Enter an identification for the transaction to which this file belongs."
^DD(2006.035,9,21,0)="^^5^5^3030624^"
^DD(2006.035,9,21,1,0)="The value of this field is a string that identifies the transaction"
^DD(2006.035,9,21,2,0)="to which this file belongs."
^DD(2006.035,9,21,3,0)=" "
^DD(2006.035,9,21,4,0)="A transaction typically corresponds to a ""study"", a group of images"
^DD(2006.035,9,21,5,0)="that are to be manipulated as a unit."
^DD(2006.035,9,"DT")="3030624"
^DD(2006.035,"B","DESTINATION",1)=""
^DD(2006.035,"B","IMAGE",.01)=""
^DD(2006.035,"B","Image",.01)="1"
^DD(2006.035,"B","MECHANISM",7)=""
^DD(2006.035,"B","ORIGIN",8)=""
^DD(2006.035,"B","PRIORITY",4)=""
^DD(2006.035,"B","Relative priority",4)="1"
^DD(2006.035,"B","STATUS",3)=""
^DD(2006.035,"B","Status",3)="1"
^DD(2006.035,"B","TIME IN",5)=""
^DD(2006.035,"B","TIME OUT",6)=""
^DD(2006.035,"B","TRANSACTION ID",9)=""
^DD(2006.035,"B","TYPE",2)=""
^DD(2006.035,"B","Timestamp (enter queue)",5)="1"
^DD(2006.035,"B","Timestamp (processed)",6)="1"
^DD(2006.035,"B","Type of file",2)="1"
^DD(2006.035,"GL",0,1,.01)=""
^DD(2006.035,"GL",0,2,1)=""
^DD(2006.035,"GL",0,3,2)=""
^DD(2006.035,"GL",0,4,7)=""
^DD(2006.035,"GL",0,5,8)=""
^DD(2006.035,"GL",0,6,9)=""
^DD(2006.035,"GL",1,1,3)=""
^DD(2006.035,"GL",1,2,4)=""
^DD(2006.035,"GL",1,3,5)=""
^DD(2006.035,"GL",1,4,6)=""
^DD(2006.035,"IX",9)=""
^DD(2006.035,"RQ",.01)=""
^DD(2006.035,"RQ",1)=""
^DD(2006.035,"RQ",2)=""
^DD(2006.035,"RQ",5)=""
^DD(2006.035,"RQ",8)=""
^DD(2006.036,0)="FIELD^^1^2"
^DD(2006.036,0,"DDA")="N"
^DD(2006.036,0,"DT")="2991104"
^DD(2006.036,0,"NM","ROUTING STATISTICS")=""
^DD(2006.036,0,"VR")="3.0"
^DD(2006.036,0,"VRPK")="MAG"
^DD(2006.036,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(2006.036,.01,1,0)="^.1^^0"
^DD(2006.036,.01,3)="Enter the date for which statistics will be presented."
^DD(2006.036,.01,"DT")="2991104"
^DD(2006.036,1,0)="DETAILS^2006.03601A^^1;0"
^DD(2006.036,"B","DATE",.01)=""
^DD(2006.036,"B","DETAILS",1)=""
^DD(2006.036,"GL",0,1,.01)=""
^DD(2006.036,"GL",1,0,1)=""
^DD(2006.036,"RQ",.01)=""
^DD(2006.036,"SB",2006.03601,1)=""
^DD(2006.03601,0)="DETAILS SUB-FIELD^^6^6"
^DD(2006.03601,0,"DT")="2991104"
^DD(2006.03601,0,"NM","DETAILS")=""
^DD(2006.03601,0,"UP")="2006.036"
^DD(2006.03601,.01,0)="LESS THAN 5 MINUTES^NJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.03601,.01,1,0)="^.1^^0"
^DD(2006.03601,.01,3)="Enter the number of groups that took less than 5 minutes"
^DD(2006.03601,.01,"DT")="2991104"
^DD(2006.03601,2,0)="LESS THAN 15 MINUTES^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.03601,2,3)="Enter the number of groups that took less than 15 minutes."
^DD(2006.03601,2,"DT")="2991104"
^DD(2006.03601,3,0)="LESS THAN 1 HOUR^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.03601,3,3)="Enter the number of groups that took less than 1 hour."
^DD(2006.03601,3,"DT")="2991104"
^DD(2006.03601,4,0)="REST^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.03601,4,3)="Enter the number of groups that took an hour or more."
^DD(2006.03601,4,"DT")="2991104"
^DD(2006.03601,5,0)="LONGEST^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.03601,5,3)="Enter the number of seconds for the image that took the longest."
^DD(2006.03601,5,"DT")="2991104"
^DD(2006.03601,6,0)="DESCRIPTION^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(2006.03601,6,3)="Enter a description for these counts."
^DD(2006.03601,6,"DT")="2991104"
^DD(2006.03601,"B","DESCRIPTION",6)=""
^DD(2006.03601,"B","LESS THAN 1 HOUR",3)=""
^DD(2006.03601,"B","LESS THAN 15 MINUTES",2)=""
^DD(2006.03601,"B","LESS THAN 5 MINUTES",.01)=""
^DD(2006.03601,"B","LONGEST",5)=""
^DD(2006.03601,"B","REST",4)=""
^DD(2006.03601,"GL",0,1,.01)=""
^DD(2006.03601,"GL",0,2,2)=""
^DD(2006.03601,"GL",0,3,3)=""
^DD(2006.03601,"GL",0,4,4)=""
^DD(2006.03601,"GL",0,5,5)=""
^DD(2006.03601,"GL",0,6,6)=""
^DD(2006.04,0)="FIELD^^2^3"
^DD(2006.04,0,"DDA")="N"
^DD(2006.04,0,"DT")="3020419"
^DD(2006.04,0,"IX","B",2006.04,.01)=""
^DD(2006.04,0,"NM","ACQUISITION DEVICE")=""
^DD(2006.04,0,"PT",2005,107)=""
^DD(2006.04,0,"PT",2005.1,107)=""
^DD(2006.04,0,"VR")="3.0"
^DD(2006.04,0,"VRPK")="MAG"
^DD(2006.04,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.04,.01,1,0)="^.1"
^DD(2006.04,.01,1,1,0)="2006.04^B"
^DD(2006.04,.01,1,1,1)="S ^MAG(2006.04,""B"",$E(X,1,30),DA)="""""
^DD(2006.04,.01,1,1,2)="K ^MAG(2006.04,""B"",$E(X,1,30),DA)"
^DD(2006.04,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2006.04,.01,21,0)="^^2^2^3020419^"
^DD(2006.04,.01,21,1,0)="This is the name of the IMPORT device that is used to interface newly "
^DD(2006.04,.01,21,2,0)="captured diagnostic Images and procedures to the clinical database."
^DD(2006.04,.01,"DT")="3020419"
^DD(2006.04,1,0)="SITE^P4'^DIC(4,^0;2^Q"
^DD(2006.04,1,3)=""
^DD(2006.04,1,21,0)="^^2^2^3020419^"
^DD(2006.04,1,21,1,0)="This field references Institution file to designate the facility that "
^DD(2006.04,1,21,2,0)="hosts this acquisition device."
^DD(2006.04,1,"DT")="3020419"
^DD(2006.04,2,0)="LOCATION^P44'^SC(^0;3^Q"
^DD(2006.04,2,21,0)="^.001^2^2^3020419^^"
^DD(2006.04,2,21,1,0)="This field references the physical hospital location of the device that"
^DD(2006.04,2,21,2,0)="captured the images."
^DD(2006.04,2,"DT")="3020419"
^DD(2006.04,"B","LOCATION",2)=""
^DD(2006.04,"B","NAME",.01)=""
^DD(2006.04,"B","SITE",1)=""
^DD(2006.04,"GL",0,1,.01)=""
^DD(2006.04,"GL",0,2,1)=""
^DD(2006.04,"GL",0,3,2)=""
^DD(2006.04,"IX",.01)=""
^DD(2006.04,"RQ",.01)=""
^DD(2006.041,0)="FIELD^^4^6"
^DD(2006.041,0,"DDA")="N"
^DD(2006.041,0,"DT")="3010405"
^DD(2006.041,0,"IX","B",2006.041,.01)=""
^DD(2006.041,0,"IX","C",2006.041,.02)=""
^DD(2006.041,0,"NM","ACQUISITION SESSION FILE")=""
^DD(2006.041,0,"VR")="3.0"
^DD(2006.041,0,"VRPK")="MAG"
^DD(2006.041,.01,0)="QUEUE^RNJ9,0X^^0;1^K:(X<1)!(X>999999999) X"
^DD(2006.041,.01,1,0)="^.1"
^DD(2006.041,.01,1,1,0)="2006.041^B"
^DD(2006.041,.01,1,1,1)="S ^MAG(2006.041,""B"",$E(X,1,30),DA)="""""
^DD(2006.041,.01,1,1,2)="K ^MAG(2006.041,""B"",$E(X,1,30),DA)"
^DD(2006.041,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(2006.041,.01,21,0)="^^2^2^3020419^"
^DD(2006.041,.01,21,1,0)="This field is synchronized with the Import Queue file (#2006.034)."
^DD(2006.041,.01,21,2,0)="This allows the tracking of the  ""IMPORT"" process."
^DD(2006.041,.01,"DT")="3020419"
^DD(2006.041,.02,0)="TRACKING ID^RF^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(2006.041,.02,1,0)="^.1"
^DD(2006.041,.02,1,1,0)="2006.041^C"
^DD(2006.041,.02,1,1,1)="S ^MAG(2006.041,""C"",$E(X,1,30),DA)="""""
^DD(2006.041,.02,1,1,2)="K ^MAG(2006.041,""C"",$E(X,1,30),DA)"
^DD(2006.041,.02,1,1,"DT")="3010703"
^DD(2006.041,.02,3)="Answer must be 1-60 characters in length."
^DD(2006.041,.02,21,0)="^^1^1^3020419^"
^DD(2006.041,.02,21,1,0)="This is the unique identifier generated by the Import queueing process."
^DD(2006.041,.02,"DT")="3020419"
^DD(2006.041,1,0)="ACTIVITY^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(2006.041,1,3)="Answer must be 3-60 characters in length."
^DD(2006.041,1,21,0)="^^2^2^3020419^"
^DD(2006.041,1,21,1,0)="This is the sub process event that is being captured as part of the "
^DD(2006.041,1,21,2,0)="Import process."
^DD(2006.041,1,"DT")="3020419"
^DD(2006.041,2,0)="TIME^D^^0;4^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.041,2,21,0)="^^1^1^3020419^"
^DD(2006.041,2,21,1,0)="This is the precise date and time that this subprocess event occurred."
^DD(2006.041,2,"DT")="3020419"
^DD(2006.041,3,0)="QUEUE STATUS^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(2006.041,3,3)="Answer must be 3-30 characters in length."
^DD(2006.041,3,21,0)="^^2^2^3020419^"
^DD(2006.041,3,21,1,0)="This is the current status information in re this "
^DD(2006.041,3,21,2,0)="subprocess event."
^DD(2006.041,3,"DT")="3020419"
^DD(2006.041,4,0)="IMPORT PROCESS REMARKS^F^^0;6^K:$L(X)>60!($L(X)<3) X"
^DD(2006.041,4,3)="Answer must be 3-60 characters in length."
^DD(2006.041,4,21,0)="^^1^1^3020419^"
^DD(2006.041,4,21,1,0)="This is additional information regarding this Import process."
^DD(2006.041,4,"DT")="3020419"
^DD(2006.041,"B","ACTIVITY",1)=""
^DD(2006.041,"B","IMPORT PROCESS REMARKS",4)=""
^DD(2006.041,"B","QUEUE",.01)=""
^DD(2006.041,"B","QUEUE STATUS",3)=""
^DD(2006.041,"B","TIME",2)=""
^DD(2006.041,"B","TRACKING ID",.02)=""
^DD(2006.041,"GL",0,1,.01)=""
^DD(2006.041,"GL",0,2,.02)=""
^DD(2006.041,"GL",0,3,1)=""
^DD(2006.041,"GL",0,4,2)=""
^DD(2006.041,"GL",0,5,3)=""
^DD(2006.041,"GL",0,6,4)=""
^DD(2006.041,"IX",.01)=""
^DD(2006.041,"IX",.02)=""
^DD(2006.041,"RQ",.01)=""
^DD(2006.041,"RQ",.02)=""
^DD(2006.1,0)="FIELD^^201^63"
^DD(2006.1,0,"DDA")="N"
^DD(2006.1,0,"DT")="3051116"
^DD(2006.1,0,"IX","AC",2006.1,124)=""
^DD(2006.1,0,"IX","AD",2006.1,125)=""
^DD(2006.1,0,"IX","AE",2006.1,10)=""
^DD(2006.1,0,"IX","B",2006.1,.01)=""
^DD(2006.1,0,"IX","C",2006.12,.01)=""
^DD(2006.1,0,"NM","IMAGING SITE PARAMETERS")=""
^DD(2006.1,0,"PT",2005.2,.04)=""
^DD(2006.1,0,"PT",2006.03,.04)=""
^DD(2006.1,0,"PT",2006.031,.04)=""
^DD(2006.1,0,"PT",2006.032,.04)=""
^DD(2006.1,0,"PT",2006.8,.04)=""
^DD(2006.1,0,"PT",2006.81,.04)=""
^DD(2006.1,0,"PT",2006.82,.04)=""
^DD(2006.1,0,"VR")="3.0"
^DD(2006.1,0,"VRPK")="MAG"
^DD(2006.1,.01,0)="INSTITUTION NAME^RP4X^DIC(4,^0;1^I $D(^MAG(2006.1,""B"",X)) K X"
^DD(2006.1,.01,.1)="INSTITUTION NAME"
^DD(2006.1,.01,1,0)="^.1"
^DD(2006.1,.01,1,1,0)="2006.1^B"
^DD(2006.1,.01,1,1,1)="S ^MAG(2006.1,""B"",$E(X,1,30),DA)="""""
^DD(2006.1,.01,1,1,2)="K ^MAG(2006.1,""B"",$E(X,1,30),DA)"
^DD(2006.1,.01,3)="Answer must be 3-30 characters in length"
^DD(2006.1,.01,22)=""
^DD(2006.1,.01,"DT")="3050603"
^DD(2006.1,.02,0)="CURRENT NAMESPACE^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X"
^DD(2006.1,.02,3)="Answer must be 1-45 characters in length."
^DD(2006.1,.02,21,0)="^^2^2^3020411^"
^DD(2006.1,.02,21,1,0)="The Image file is 14 characters. Each facility has it's own unique"
^DD(2006.1,.02,21,2,0)="namespace (e.g., Washington is WAS, Baltimore is BAL)."
^DD(2006.1,.02,"DT")="3020411"
^DD(2006.1,.03,0)="IMAGE NETWORK WRITE LOCATION^P2005.2^MAG(2005.2,^0;3^Q"
^DD(2006.1,.03,3)="Current Network Write Location for Image Storage"
^DD(2006.1,.03,21,0)="^^7^7^2970722^"
^DD(2006.1,.03,21,1,0)="This field is a pointer to the Network Location file defining the current"
^DD(2006.1,.03,21,2,0)="NETWORK WRITE location for captured images. Enter the server that you have"
^DD(2006.1,.03,21,3,0)="designated as the current write server.  There is a separate option to"
^DD(2006.1,.03,21,4,0)="edit this field when this server either ""goes down"", or runs out of space."
^DD(2006.1,.03,21,5,0)="There is a cross-reference on the field ^MAG(2006.1,""ARITE"")=X where X"
^DD(2006.1,.03,21,6,0)="equals the Network Write Location pointer. The software checks this node"
^DD(2006.1,.03,21,7,0)="before writing the DOS Image file to disk."
^DD(2006.1,.03,"DT")="2930909"
^DD(2006.1,.04,0)="ASSOCIATED INSTITUTIONS^2006.12P^^INSTS;0"
^DD(2006.1,.04,21,0)="^.001^3^3^3060127^^"
^DD(2006.1,.04,21,1,0)="Through the use of the subfield's whole file cross-reference this set "
^DD(2006.1,.04,21,2,0)="of values will allow a site to make use of the imaging network of"
^DD(2006.1,.04,21,3,0)="a second institution to store and support images."
^DD(2006.1,.07,0)="GCC EXPORT LOC^*P2005.2'X^MAG(2005.2,^0;7^S DIC(""S"")=""I $P(^(0),U,6,7)=""""1^GCC"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2006.1,.07,12)="Select GCC Network locations only."
^DD(2006.1,.07,12.1)="S DIC(""S"")=""I $P(^(0),U,6,7)=""""1^GCC"""""""
^DD(2006.1,.07,21,0)="^.001^4^4^3011217^^^^"
^DD(2006.1,.07,21,1,0)="This field is a pointer to the Network Location file defining the "
^DD(2006.1,.07,21,2,0)="Generic Carbon Copy (GCC) share were copies of files are sent."
^DD(2006.1,.07,21,3,0)="When the software makes an export request, the file"
^DD(2006.1,.07,21,4,0)="is copied here."
^DD(2006.1,.07,"DT")="3041102"
^DD(2006.1,.08,0)="IMAGE NETWORK IMPORT LOCATION^P2005.2^MAG(2005.2,^0;8^Q"
^DD(2006.1,.08,3)="Enter the Network Location to which Images are imported."
^DD(2006.1,.08,21,0)="^^8^8^2990224^^^^"
^DD(2006.1,.08,21,1,0)="Analogous to the Export location, the image IMPORT location is the"
^DD(2006.1,.08,21,2,0)="directory specified to receive incoming images.  This points to the"
^DD(2006.1,.08,21,3,0)="Network Location file, and a MUMPS cross-reference permits quick access"
^DD(2006.1,.08,21,4,0)="to the site specific location."
^DD(2006.1,.08,21,5,0)=" "
^DD(2006.1,.08,21,6,0)="The format of this subdirectory must be x:\IMPORT\MAIL\.  It must be located"
^DD(2006.1,.08,21,7,0)="on a file server that supports NFS so that it can be accessed by the main"
^DD(2006.1,.08,21,8,0)="VistA systems."
^DD(2006.1,.08,"DT")="2940412"
^DD(2006.1,.09,0)="SITE CODE^F^^0;9^K:$L(X)>3!($L(X)<3)!'(X?3UN) X"
^DD(2006.1,.09,3)="The three-letter network abbreviation for the site."
^DD(2006.1,.09,21,0)="^^4^4^2981223^^"
^DD(2006.1,.09,21,1,0)="This is a unique identifying string for the site where the Imaging Server"
^DD(2006.1,.09,21,2,0)="is installed.  By convention, the abbreviation should correspond to the"
^DD(2006.1,.09,21,3,0)="3-character string used for the site in naming the file servers.  E.g.,"
^DD(2006.1,.09,21,4,0)="for Washington, D.C., the code is ""WAS"", corresponding to vhaWASimm1."
^DD(2006.1,.09,"DT")="2981223"
^DD(2006.1,1.01,0)="PACS INTERFACE SWITCH^S^0:OFF PACS INTERFACE;1:ON PACS INTERFACE;^PACS;1^Q"
^DD(2006.1,1.01,3)="DICOM Gateway INTERFACE SWITCH - Set ON/OFF"
^DD(2006.1,1.01,21,0)="^^4^4^3001006^^"
^DD(2006.1,1.01,21,1,0)="This field is ""NULL"" if there is no DICOM Gateway interface. If there is a"
^DD(2006.1,1.01,21,2,0)="DICOM Gateway, this field serves as a switch to turn the interface ON or"
^DD(2006.1,1.01,21,3,0)="OFF. If it is OFF no messages will be transmitted from VistA to the DICOM"
^DD(2006.1,1.01,21,4,0)="Gateway; if ON, then the messages will be transmitted."
^DD(2006.1,1.01,23,0)="^.001^2^2^3001005^^"
^DD(2006.1,1.01,23,1,0)="The routines to generate/move HL7 messages to the PACS MESSAGE file will"
^DD(2006.1,1.01,23,2,0)="check the existence of this entry before processing. "
^DD(2006.1,1.01,"DT")="3001006"
^DD(2006.1,1.02,0)="PACS DIRECTORY^P2005.2^MAG(2005.2,^PACS;2^Q"
^DD(2006.1,1.02,3)="Enter Network Location where PACS images are written."
^DD(2006.1,1.02,21,0)="^.001^3^3^3001005^^^^"
^DD(2006.1,1.02,21,1,0)="This is a pointer to the Network Location file giving the location where"
^DD(2006.1,1.02,21,2,0)="PACS images are written by the Commercial PACS SYSTEM, and where VistA"
^DD(2006.1,1.02,21,3,0)="first reads them.  (Used mainly if site has a GE PACS using ACRNEMA format.)"
^DD(2006.1,1.02,23,0)="^.001^5^5^3001005^^^^"
^DD(2006.1,1.02,23,1,0)="The PACS SYSTEM, to which VistA is interfaced, will write images to a"
^DD(2006.1,1.02,23,2,0)="designated network location, as defined by this field which can be"
^DD(2006.1,1.02,23,3,0)="changed if necessary. VistA will read from the directory specified"
^DD(2006.1,1.02,23,4,0)="by this field. It points to the Network location file - so the full"
^DD(2006.1,1.02,23,5,0)="network location must be defined in that file for this to work."
^DD(2006.1,1.02,"DT")="2940411"
^DD(2006.1,1.03,0)="PACS IMAGE WRITE LOCATION^P2005.2^MAG(2005.2,^PACS;3^Q"
^DD(2006.1,1.03,3)="Enter Network location where converted DICOM IMAGES are written."
^DD(2006.1,1.03,21,0)="^^4^4^3001006^^"
^DD(2006.1,1.03,21,1,0)="This field points to the Network Location file and informs the DICOM"
^DD(2006.1,1.03,21,2,0)="Image Gateway of the current write drive. DICOM images are first read from the"
^DD(2006.1,1.03,21,3,0)="DICOM directory and later converted and copied to the network location"
^DD(2006.1,1.03,21,4,0)="specified by this field."
^DD(2006.1,1.03,"DT")="3001006"
^DD(2006.1,2.01,0)="JUKEBOX DEVICE^F^^JBX;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?1.A.1"":"") X"
^DD(2006.1,2.01,3)="Answer must be 2 characters in length."
^DD(2006.1,2.01,21,0)="^.001^6^6^3051025^^^^"
^DD(2006.1,2.01,21,1,0)="If you do not have a jukebox in your Imaging System, press ""Enter"" to leave"
^DD(2006.1,2.01,21,2,0)="this field ""null"" - this will signify that there is no jukebox."
^DD(2006.1,2.01,21,3,0)=" "
^DD(2006.1,2.01,21,4,0)="This is the name of the DRIVE for the Jukebox e.g., S: and is the root of"
^DD(2006.1,2.01,21,5,0)="the path for the jukebox files. If you have a jukebox in your Imaging"
^DD(2006.1,2.01,21,6,0)="System, define this field and the following associated jukebox fields."
^DD(2006.1,2.01,"DT")="3001006"
^DD(2006.1,2.02,0)="TOTAL #Platters^NJ3,0^^JBX;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1.N) X"
^DD(2006.1,2.02,3)="Type a number between 1 and 100, 0 Decimal Digits"
^DD(2006.1,2.02,21,0)="^^3^3^3051116^"
^DD(2006.1,2.02,21,1,0)="This is the total number of platters in the jukebox installed with your"
^DD(2006.1,2.02,21,2,0)="Imaging System. The total number of platters will be a function of the"
^DD(2006.1,2.02,21,3,0)="make of the jukebox."
^DD(2006.1,2.02,"DT")="3051116"
^DD(2006.1,2.03,0)="CURRENT PLATTER^P2005.2^MAG(2005.2,^JBX;3^Q"
^DD(2006.1,2.03,3)="CURRENT PLATTER BEING USED"
^DD(2006.1,2.03,21,0)="^^5^5^3051116^"
^DD(2006.1,2.03,21,1,0)="This is a pointer to the Network Location file and defines the jukebox"
^DD(2006.1,2.03,21,2,0)="platter currently being used to copy images from the Network Write"
^DD(2006.1,2.03,21,3,0)="Location file to the jukebox. When the current platter is filled,"
^DD(2006.1,2.03,21,4,0)="this field is automatically changed to point to the next platter,"
^DD(2006.1,2.03,21,5,0)="which then becomes the ""current"" platter."
^DD(2006.1,2.03,"DT")="3051116"
^DD(2006.1,6,0)="TRACK ABSTRACT ACCESSES^S^1:YES;0:NO;^1;3^Q"
^DD(2006.1,6,3)="Enter YES to use abstract accesses in determining archive times"
^DD(2006.1,6,21,0)="^.001^5^5^3051025^^^^"
^DD(2006.1,6,21,1,0)="This field controls whether user accesses to image abstracts will"
^DD(2006.1,6,21,2,0)="cause the LAST ACCESS DATE field in the Image file to be updated."
^DD(2006.1,6,21,3,0)="The LAST ACCESS DATE field is used to determine when full and"
^DD(2006.1,6,21,4,0)="abstract images are removed from magnetic disks and become available"
^DD(2006.1,6,21,5,0)="only from optical disk."
^DD(2006.1,6,"DT")="3001006"
^DD(2006.1,8,0)="PURGE-RETENTION DAYS FULL FILE^RNJ6,0^^1;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,8,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2006.1,8,21,0)="^^4^4^2990317^^"
^DD(2006.1,8,21,1,0)="This field is used by the Background Processor purge to determine the"
^DD(2006.1,8,21,2,0)="number of days to retain full image files. All FULL images that have not"
^DD(2006.1,8,21,3,0)="been accessed in this many days will be removed from magnetic storage by"
^DD(2006.1,8,21,4,0)="the Background Processor purge."
^DD(2006.1,8,"DT")="2980609"
^DD(2006.1,9,0)="PURGE-RETENTION DAYS PACS FILE^NJ6,0^^1;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2006.1,9,21,0)="^^4^4^3001006^^"
^DD(2006.1,9,21,1,0)="This field is used by the Background Processor purge to determine the"
^DD(2006.1,9,21,2,0)="number of days to retain DICOM image files. All DICOM images that have not"
^DD(2006.1,9,21,3,0)="been accessed in this many days will be removed from magnetic storage by"
^DD(2006.1,9,21,4,0)="automatic file migration procedures."
^DD(2006.1,9,"DT")="3001006"
^DD(2006.1,10,0)="SERVER TASK^NJ10,0^^1;7^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,10,1,0)="^.1"
^DD(2006.1,10,1,1,0)="2006.1^AE^MUMPS"
^DD(2006.1,10,1,1,1)="D SAME^MAGDRPC2(1,DA,1,7,X)"
^DD(2006.1,10,1,1,2)="D SAME^MAGDRPC2(0,DA,1,7,X)"
^DD(2006.1,10,1,1,"%D",0)="^^3^3^3051025^"
^DD(2006.1,10,1,1,"%D",1,0)="This MUMPS cross reference is really a trigger that causes"
^DD(2006.1,10,1,1,"%D",2,0)="the values for this field to be the same for all entries"
^DD(2006.1,10,1,1,"%D",3,0)="in the Imaging Site Parameter file."
^DD(2006.1,10,1,1,"DT")="3051025"
^DD(2006.1,10,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(2006.1,10,21,0)="^^4^4^3001025^"
^DD(2006.1,10,21,1,0)="Maintains the last tasked Imaging site usage task number."
^DD(2006.1,10,21,2,0)="This field facilitates the site reporting mechanism.  This automated"
^DD(2006.1,10,21,3,0)="process reports version and Imaging system status back to the"
^DD(2006.1,10,21,4,0)="development site in order to serve the site better."
^DD(2006.1,10,"DT")="3051025"
^DD(2006.1,11,0)="PERCENT SERVER RESERVE^NJ2,0X^^1;8^K:+X'=X!(X>50)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2006.1,11,3)="Type a Number between 5 and 35, 0 Decimal Digits"
^DD(2006.1,11,21,0)="^^9^9^2991130^"
^DD(2006.1,11,21,1,0)="This field allows sites to increase the amount of space that is maintained"
^DD(2006.1,11,21,2,0)="in reserve for each individual Image server share.  The minimum value is"
^DD(2006.1,11,21,3,0)="5, which is the default value that the server reset process uses to"
^DD(2006.1,11,21,4,0)="determine the eligibility of the share for current write location.  Also,"
^DD(2006.1,11,21,5,0)="when this value cannot be maintained by the 'autowrite location update'"
^DD(2006.1,11,21,6,0)="function of the Background processor for any current online server the"
^DD(2006.1,11,21,7,0)="CRITICAL LOW MESSAGE is triggered. Be sure to add the local Image support"
^DD(2006.1,11,21,8,0)="staff person into the local MAG SERVER mail group and at least one pager"
^DD(2006.1,11,21,9,0)="number in the MEMBERS - REMOTE multiple."
^DD(2006.1,11,"DT")="3050608"
^DD(2006.1,11.5,0)="CRITICAL LOW MESSAGE INTERVAL^RNJ2,0^^3;7^K:+X'=X!(X>96)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.1,11.5,3)="Type a Number between 1 and 96, 0 Decimal Digits. This represents the hours between message transmissions."
^DD(2006.1,11.5,21,0)="^^4^4^2991130^"
^DD(2006.1,11.5,21,1,0)="This represents the hours between message transmissions. The Default value"
^DD(2006.1,11.5,21,2,0)="set during the package install is 6.  Be sure to add the local Image"
^DD(2006.1,11.5,21,3,0)="support staff person into the local MAG SERVER mail group and at least one"
^DD(2006.1,11.5,21,4,0)="pager number in the MEMBERS - REMOTE multiple."
^DD(2006.1,11.5,"DT")="2991101"
^DD(2006.1,11.9,0)="DATE OF LAST CRITICAL MESSAGE^D^^3;11^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.1,11.9,3)="This date/time field is automatically set each time a critical message is sent."
^DD(2006.1,11.9,21,0)="^^4^4^2991130^"
^DD(2006.1,11.9,21,1,0)="It is a parameter used in combination with the CRITICAL LOW MESSAGE"
^DD(2006.1,11.9,21,2,0)="INTERVAL to determine if it is appropriate to send a new message when the"
^DD(2006.1,11.9,21,3,0)="Vista cache space falls below the PERCENT SERVER RESERVE value."
^DD(2006.1,11.9,21,4,0)="This field should not be edited directly by a user."
^DD(2006.1,11.9,"DT")="2991030"
^DD(2006.1,12,0)="FILE TYPES^2006.112^^2;0"
^DD(2006.1,12,21,0)="^^3^3^2990317^^"
^DD(2006.1,12,21,1,0)="This multiple is used by the background processor to allow control of file"
^DD(2006.1,12,21,2,0)="migration from the magnetic servers to the jukebox and allow site specific"
^DD(2006.1,12,21,3,0)="file types to be managed."
^DD(2006.1,12.5,0)="MULTI NAMESPACE^2006.11^^4;0"
^DD(2006.1,12.5,21,0)="^.001^3^3^3001024^^^^"
^DD(2006.1,12.5,21,1,0)="This multiple field is used to store all previously used image"
^DD(2006.1,12.5,21,2,0)="prefixes from the CURRENT NAMESPACE field. Any time the CURRENT NAMESPACE"
^DD(2006.1,12.5,21,3,0)="field is changed, enter the previous name in this multiple field."
^DD(2006.1,12.5,23,0)="^.001^3^3^3001024^^^"
^DD(2006.1,12.5,23,1,0)="This multiple field is used to store all previously used image"
^DD(2006.1,12.5,23,2,0)="prefixes from the CURRENT NAMESPACE field. Any time the CURRENT NAMESPACE"
^DD(2006.1,12.5,23,3,0)="field is changed, enter the previous name in this multiple field."
^DD(2006.1,13,0)="RADIOLOGY HOLDS^S^0:NO RADIOLOGY HOLDS;1:RADIOLOGY HOLDS;^1;9^Q"
^DD(2006.1,13,21,0)="^^2^2^2990317^^^^"
^DD(2006.1,13,21,1,0)="In order to configure a site which wants to screen out radiology"
^DD(2006.1,13,21,2,0)="images from the purge process if the radiology hold node is set."
^DD(2006.1,13,"DT")="2980326"
^DD(2006.1,14,0)="JBX ALL^SIX^0:false;1:true;^JBEX;1^K X Q"
^DD(2006.1,14,3)=""
^DD(2006.1,14,21,0)="^^4^4^2990317^^^^"
^DD(2006.1,14,21,1,0)="Purge control which defines the outcome of purge if magnetic"
^DD(2006.1,14,21,2,0)="file is associated with 2005 entry with no Jukebox reference."
^DD(2006.1,14,21,3,0)="If set to 1 then ALL images with no Jukebox reference will be"
^DD(2006.1,14,21,4,0)="purged within the date of last access aging criteria."
^DD(2006.1,14,"DT")="3001222"
^DD(2006.1,15,0)="JBX ALL PACS^SIX^0:false;1:true;^JBEX;2^K X Q"
^DD(2006.1,15,3)=""
^DD(2006.1,15,21,0)="^^4^4^2990317^^^^"
^DD(2006.1,15,21,1,0)="Purge control which defines the outcome of purge if magnetic"
^DD(2006.1,15,21,2,0)="file is associated with 2005 entry with no Jukebox reference."
^DD(2006.1,15,21,3,0)="If set to 1 then ALL PACS images with no Jukebox reference will be"
^DD(2006.1,15,21,4,0)="purged within the date of last access aging criteria."
^DD(2006.1,15,"DT")="3001222"
^DD(2006.1,16,0)="JBX PACS BIG^SIX^0:FALSE;1:TRUE;^JBEX;3^K X Q"
^DD(2006.1,16,21,0)="^^4^4^2990302^^^"
^DD(2006.1,16,21,1,0)="Purge control which defines the outcome of purge if magnetic"
^DD(2006.1,16,21,2,0)="file is associated with 2005 entry with no Jukebox reference."
^DD(2006.1,16,21,3,0)="If set to 1 then BIG PACS images with no Jukebox reference will be"
^DD(2006.1,16,21,4,0)="purged."
^DD(2006.1,16,"DT")="3001222"
^DD(2006.1,17,0)="JBX BIG NON-PACS^SIX^0:FALSE;1:TRUE;^JBEX;4^K X Q"
^DD(2006.1,17,3)=""
^DD(2006.1,17,21,0)="^^4^4^2990317^^^^"
^DD(2006.1,17,21,1,0)="Purge control which defines the outcome of purge if magnetic"
^DD(2006.1,17,21,2,0)="file is associated with 2005 entry with no Jukebox reference."
^DD(2006.1,17,21,3,0)="If set to 1 then BIG / NON-PACS images with no Jukebox reference"
^DD(2006.1,17,21,4,0)="will be purged."
^DD(2006.1,17,"DT")="3001222"
^DD(2006.1,18,0)="NO JB DELETE ENTRY^SIX^0:DON'T DELETE ENTRY;1:DELETE ENTRY;^JBEX;5^K X Q"
^DD(2006.1,18,21,0)="^^2^2^2990317^^^^"
^DD(2006.1,18,21,1,0)="This field is used during the purge at sites without jukeboxes"
^DD(2006.1,18,21,2,0)="to determine whether to delete the 2005 entry or clear the pointers."
^DD(2006.1,18,"DT")="3001222"
^DD(2006.1,19,0)="JBX PACS BIG VER TGA^SIX^0:FALSE;1:TRUE;^JBEX;6^K X Q"
^DD(2006.1,19,3)="Purge PACS BIG files only if TGA file is in cache."
^DD(2006.1,19,21,0)="^^4^4^2990317^^"
^DD(2006.1,19,21,1,0)="Purge control which defines the outcome of purge if magnetic"
^DD(2006.1,19,21,2,0)="file is associated with 2005 entry with no Jukebox reference."
^DD(2006.1,19,21,3,0)="If set to ""1"" then BIG PACS files will be purged from the magnetic"
^DD(2006.1,19,21,4,0)="servers, but only if the companion TGA file is present."
^DD(2006.1,19,"DT")="3001222"
^DD(2006.1,20,0)="NO AUTOWRITE UPDATE^S^0:AUTOWRITE UPDATE OK;1:NO AUTOWRITE UPDATE;^1;10^Q"
^DD(2006.1,20,21,0)="^^4^4^2991130^^^^"
^DD(2006.1,20,21,1,0)="This field enables or disables the background processor function which"
^DD(2006.1,20,21,2,0)="evaluates the space availability on each of the online magnetic shares"
^DD(2006.1,20,21,3,0)="and assigns the current write location to the share with the greatest"
^DD(2006.1,20,21,4,0)="space available both for PACS and regular image capture. "
^DD(2006.1,20,"DT")="2980512"
^DD(2006.1,21,0)="PURGE-RETEN DAYS PACS BIG FILE^NJ5,0^^3;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,21,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(2006.1,21,21,0)="^^4^4^3001006^^"
^DD(2006.1,21,21,1,0)="This field is used by the Background Processor purge to determine the number"
^DD(2006.1,21,21,2,0)="of days to retain BIG DICOM files. All BIG DICOM images that have not been"
^DD(2006.1,21,21,3,0)="accessed in this many days will be removed from magnetic storage by the"
^DD(2006.1,21,21,4,0)="Background Processor purge."
^DD(2006.1,21,"DT")="3001006"
^DD(2006.1,22,0)="PURGE-RETENTION DAYS BIG FILE^NJ5,0^^3;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,22,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2006.1,22,21,0)="^^4^4^2990317^^"
^DD(2006.1,22,21,1,0)="This field is used by the Background Processor purge to determine the"
^DD(2006.1,22,21,2,0)="number of days to retain BIG files. All BIG images that have not been"
^DD(2006.1,22,21,3,0)="accessed in this many days will be removed from magnetic storage by the"
^DD(2006.1,22,21,4,0)="Background Processor purge."
^DD(2006.1,22,"DT")="2981210"
^DD(2006.1,23,0)="PURGE-RETENTION DAYS ABS FILE^NJ4,0^^3;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,23,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2006.1,23,21,0)="^^4^4^3001006^^"
^DD(2006.1,23,21,1,0)="This field is used by the Background Processor purge to determine the"
^DD(2006.1,23,21,2,0)="number of days to retain ABS files. All ABS images that have not been"
^DD(2006.1,23,21,3,0)="accessed in this many days will be removed from magnetic storage by the"
^DD(2006.1,23,21,4,0)="Background Processor purge."
^DD(2006.1,23,"DT")="2990225"
^DD(2006.1,24,0)="PURGE-RETENTION DAYS PACS ABS^NJ4,0^^3;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,24,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2006.1,24,21,0)="^.001^4^4^3001005^^^^"
^DD(2006.1,24,21,1,0)="This field is used by the Background Processor purge to determine the"
^DD(2006.1,24,21,2,0)="number of days to retain DICOM ABS files. All DICOM ABS images that have not"
^DD(2006.1,24,21,3,0)="been accessed in this many days will be removed from magnetic storage by"
^DD(2006.1,24,21,4,0)="the Background Processor purge."
^DD(2006.1,24,"DT")="3001006"
^DD(2006.1,25,0)="IMPORT QUEUE SECURITY^S^0:OFF;1:ON;^3;12^Q"
^DD(2006.1,25,21,0)="^^1^1^3050608^"
^DD(2006.1,25,21,1,0)="This field enables network security for the Import Queue."
^DD(2006.1,25,"DT")="3050608"
^DD(2006.1,50,0)="NET USERNAME^F^^NET;1^K:$L(X)>30!($L(X)<3) X"
^DD(2006.1,50,3)="Answer must be 3-30 characters in length."
^DD(2006.1,50,21,0)="^.001^1^1^3000922^^^"
^DD(2006.1,50,21,1,0)="This field contains the NT username that the Imaging application uses to access images from the Image shares."
^DD(2006.1,50,"DT")="2961119"
^DD(2006.1,51,0)="NET PASSWORD^FXO^^NET;2^K:$L(X)>30!($L(X)<3) X S MAGPAS=X S X=$$ENCRYP^XUSRB1(MAGPAS)"
^DD(2006.1,51,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(2006.1,51,2.1)="S Y=""<Hidden>"""
^DD(2006.1,51,3)="The encrypted network password (between 3 and 30 characters in length) for the NET USERNAME entity."
^DD(2006.1,51,21,0)="^.001^2^2^3000922^^^"
^DD(2006.1,51,21,1,0)="This field contains the network password for the NET USERNAME entity.  The"
^DD(2006.1,51,21,2,0)="password is encrypted."
^DD(2006.1,51,23,0)="^.001^2^2^3000922^^"
^DD(2006.1,51,23,1,0)="This field must be set to the NT password for the IU account."
^DD(2006.1,51,23,2,0)="It will be encrypted before it is stored in the system."
^DD(2006.1,51,"DT")="2991130"
^DD(2006.1,52,0)="NET UPDATE DIRECTORY^P2005.2'^MAG(2005.2,^NET;3^Q"
^DD(2006.1,52,21,0)="^^8^8^2970722^"
^DD(2006.1,52,21,1,0)="This is the directory where Imaging releases, to be tested, are copied."
^DD(2006.1,52,21,2,0)="Workstations with the ""WRKS RUNS TEST UPDATES"" field set to True will"
^DD(2006.1,52,21,3,0)="check the directory, defined in this field, for the latest Imaging"
^DD(2006.1,52,21,4,0)="software to test.  A site can limit the number of workstations that will"
^DD(2006.1,52,21,5,0)="use this procedure to test new versions of the software.  When a site is"
^DD(2006.1,52,21,6,0)="satisfied with the new version, it copies MAGSETUP.EXE to the NETUPDATE"
^DD(2006.1,52,21,7,0)="DIRECTORY where all workstations will be updated. This field points to the"
^DD(2006.1,52,21,8,0)="Network Location file (2005.2)."
^DD(2006.1,52,"DT")="2970421"
^DD(2006.1,53,0)="NET UPDATE TEST DIRECTORY^P2005.2'^MAG(2005.2,^NET;4^Q"
^DD(2006.1,53,21,0)="^^9^9^2970421^"
^DD(2006.1,53,21,1,0)="This is the directory where Imaging releases to be tested are"
^DD(2006.1,53,21,2,0)="copied.  Workstations with NET UPDATE TEST DIRECTORY"
^DD(2006.1,53,21,3,0)="Field of the IMAGING WORKSTATIONS file = TRUE"
^DD(2006.1,53,21,4,0)="will check this directory for new versions of"
^DD(2006.1,53,21,5,0)="Imaging (MAGSETUP.EXE)"
^DD(2006.1,53,21,6,0)="A site can limit the number of workstations that will test new"
^DD(2006.1,53,21,7,0)="versions of imaging this way.  When a site is satisfied with the"
^DD(2006.1,53,21,8,0)="new version, they copy MAGSETUP.EXE to the NET UPDATE DIRECTORY where"
^DD(2006.1,53,21,9,0)="all workstations will update from."
^DD(2006.1,53,"DT")="2970421"
^DD(2006.1,54,0)="JUKEBOX DEFAULT^P2006.032'^MAGQUEUE(2006.032,^1;6^Q"
^DD(2006.1,54,3)="If you have more than 1 jukebox, you will need to enter the active jukebox here"
^DD(2006.1,54,21,0)="^^1^1^2970804^"
^DD(2006.1,54,21,1,0)="This field will point to the currently active jukebox if more than 1 exists"
^DD(2006.1,54,"DT")="2970804"
^DD(2006.1,55,0)="NET SITE SERVICE^P2005.2'^MAG(2005.2,^NET;5^Q"
^DD(2006.1,55,3)="This network location is used to access the VistA Site Service.  The VistA Site Service is used by Remote Image Views to gain access to remote sites."
^DD(2006.1,55,21,0)="^.001^2^2^3050722^^"
^DD(2006.1,55,21,1,0)="The VistA Site Service is used by Remote Image Views to gain access"
^DD(2006.1,55,21,2,0)="to remote sites."
^DD(2006.1,55,"DT")="3050722"
^DD(2006.1,60,0)="NEW AUTOPURGE^S^0:OFF;1:ON;^5;1^Q"
^DD(2006.1,60,3)="This value is used by the Background processor to determine whether to start a purge process when the Vista Cache low water mark has been reached."
^DD(2006.1,60,21,0)="^.001^2^2^3031205^^"
^DD(2006.1,60,21,1,0)="This boolean value is used by the Background Processor to determine whether"
^DD(2006.1,60,21,2,0)="to launch the purge when the Vista Cache low water mark has been reached."
^DD(2006.1,60,"DT")="3031205"
^DD(2006.1,61,0)="CONTINUOUS PURGE^SX^0:OFF;1:ON;^5;2^S:X=1 $P(^MAG(2006.1,DA,5),U,3)=0"
^DD(2006.1,61,3)="This value is used to determine whether the BP Queue processor should maintain a continuous Vista Cache purge process."
^DD(2006.1,61,21,0)="^^3^3^3031205^"
^DD(2006.1,61,21,1,0)="This boolean value is used to determine whether the BP Queue processor should "
^DD(2006.1,61,21,2,0)="maintain a continuous purge process.  This process cannot be co-enabled with "
^DD(2006.1,61,21,3,0)="the scheduled purge process."
^DD(2006.1,61,"DT")="3031205"
^DD(2006.1,62,0)="SCHEDULED PURGE^SX^0:OFF;1:ON;^5;3^S:X=1 $P(^MAG(2006.1,DA,5),U,2)=0"
^DD(2006.1,62,3)="This value is used to determine whether the BP Queue Processor will trigger a purge process on a scheduled frequency."
^DD(2006.1,62,21,0)="^.001^6^6^3031205^^"
^DD(2006.1,62,21,1,0)="This boolean value is used to determine whether the BP Queue Processor"
^DD(2006.1,62,21,2,0)="will trigger a scheduled purge process.  This value cannot be co-enabled "
^DD(2006.1,62,21,3,0)="with the continuous purge process.  The frequency will be determined by"
^DD(2006.1,62,21,4,0)="the frequency days and the date of the last purge. A default value of 28"
^DD(2006.1,62,21,5,0)="days will be used if the frequency value is null.  A default vault of"
^DD(2006.1,62,21,6,0)="2400 hour will be used if the Purge Time is not set."
^DD(2006.1,62,"DT")="3031205"
^DD(2006.1,63,0)="SCHEDULED PURGE FREQUENCY^NJ3,0^^5;4^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.1,63,3)="Type a Number between 1 and 365, 0 Decimal Digits"
^DD(2006.1,63,21,0)="^^5^5^3031205^"
^DD(2006.1,63,21,1,0)="When Scheduled Purge process is enabled this value will be added"
^DD(2006.1,63,21,2,0)="to the date of the last purge for the BP Queue processor to"
^DD(2006.1,63,21,3,0)="evaluate for launching a purge process.  If the Schedule "
^DD(2006.1,63,21,4,0)="Purge process is enabled and this value is not set, then the"
^DD(2006.1,63,21,5,0)="default value of 28 days will be used."
^DD(2006.1,63,"DT")="3031205"
^DD(2006.1,64,0)="SCHEDULED PURGE TIME^NJ4,0X^^5;5^S X=+X K:(X>2400)!(X<0)!(X?.E1"".""1N.N)!($E(X,$L(X)-1,$L(X))>59) X"
^DD(2006.1,64,3)="Type a Number between 0000 and 2400, 0 Decimal Digits"
^DD(2006.1,64,21,0)="^^5^5^3031205^"
^DD(2006.1,64,21,1,0)="This military time value is used to determine what time of day the scheduled"
^DD(2006.1,64,21,2,0)="purge will be triggered.  A default value of 2400 will be used by the "
^DD(2006.1,64,21,3,0)="BP Queue Processor if the Scheduled Purge option is enabled and the "
^DD(2006.1,64,21,4,0)="frequency days plus date of last purge threshold has been reached and this"
^DD(2006.1,64,21,5,0)="value is undefined."
^DD(2006.1,64,"DT")="3031205"
^DD(2006.1,65,0)="DATE OF LAST PURGE^D^^5;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.1,65,3)="This date is automatically set by the purge process when that process has successfully completed."
^DD(2006.1,65,21,0)="^^2^2^3031205^"
^DD(2006.1,65,21,1,0)="This date is set by the BP Purge process.  It is used in conjunction with"
^DD(2006.1,65,21,2,0)="the Scheduled purge process to automated the purge process execution."
^DD(2006.1,65,"DT")="3031205"
^DD(2006.1,70,0)="CT PRESETS^F^^CT;1^K:$L(X)>245!($L(X)<3) X"
^DD(2006.1,70,3)="These are used by the Imaging Display Radiology Viewer"
^DD(2006.1,70,21,0)="^^5^5^3040407^"
^DD(2006.1,70,21,1,0)=" A Series of CT Presets delimited by '~'.  Defined at the site."
^DD(2006.1,70,21,2,0)=" These are used by the Imaging Display Radiology Viewer."
^DD(2006.1,70,21,3,0)=" They are presented to the user on the CT Presets Menu Option."
^DD(2006.1,70,21,4,0)=" example of two :"
^DD(2006.1,70,21,5,0)=" Abdomen|350|1041~Bone|500|1274"
^DD(2006.1,70,"DT")="3040407"
^DD(2006.1,100,0)="DEFAULT USER PREFERENCE^P2006.18'^MAG(2006.18,^USERPREF;1^Q"
^DD(2006.1,100,3)="This is the default window setting for all new Imaging users."
^DD(2006.1,100,21,0)="^.001^4^4^3001025^^^^"
^DD(2006.1,100,21,1,0)="This field contains the user preference setting for first time users of"
^DD(2006.1,100,21,2,0)="the Imaging System.  This field points to the Imaging User Preference file"
^DD(2006.1,100,21,3,0)="(2005.18).  If this field is empty, the default user preferences "
^DD(2006.1,100,21,4,0)="are created by the imaging routines."
^DD(2006.1,100,"DT")="2961114"
^DD(2006.1,101,0)="DEFAULT MUSE SITE #^NJ2,0^^USERPREF;2^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1.N) X"
^DD(2006.1,101,3)="Type a number between 1 and 20, 0 Decimal Digits"
^DD(2006.1,101,21,0)="^.001^14^14^3001002^^^"
^DD(2006.1,101,21,1,0)=" "
^DD(2006.1,101,21,2,0)="Enter the default MUSE"
^DD(2006.1,101,21,3,0)="site that the Imaging Display application will connect to."
^DD(2006.1,101,21,4,0)="Site numbers are usually 1,2,3... etc."
^DD(2006.1,101,21,5,0)="If this field is empty, the application will default to 1."
^DD(2006.1,101,21,6,0)=" "
^DD(2006.1,101,21,7,0)="Most sites that have a MUSE server that serves EKG data to a "
^DD(2006.1,101,21,8,0)="single Medical Center would"
^DD(2006.1,101,21,9,0)="have the MUSE site number set to 1.  If multiple sites "
^DD(2006.1,101,21,10,0)="are sharing a single MUSE server, each site could be assigned "
^DD(2006.1,101,21,11,0)="a unique MUSE site number by Marquette.  In some cases a single "
^DD(2006.1,101,21,12,0)="shared MUSE database has been created to serve multiple Medical"
^DD(2006.1,101,21,13,0)="Centers.  In this case all sites would most likely have the"
^DD(2006.1,101,21,14,0)="MUSE site number set to 1."
^DD(2006.1,101,"DT")="3001002"
^DD(2006.1,102,0)="PCT FREE SPACE DICOM MSGS^NJ3,0^^3;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,102,.1)="Percentage of free disk space for DICOM messages"
^DD(2006.1,102,3)="Enter the minimum percentage (0 to 100) of free space for a DICOM server"
^DD(2006.1,102,21,0)="^^2^2^2990618^^"
^DD(2006.1,102,21,1,0)="The value of this field is the minimum percentage of free space"
^DD(2006.1,102,21,2,0)="for a DICOM server."
^DD(2006.1,102,"DT")="2991130"
^DD(2006.1,103,0)="RETENTION DAYS DICOM MSGS^NJ5,0^^3;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.1,103,.1)="Number of days to retain DICOM messages"
^DD(2006.1,103,3)="Enter the number of days (Enter the number of days (between 0 and 99999) that DICOM messages are to be retained.) that DICOM messages are to be retained."
^DD(2006.1,103,21,0)="^^4^4^2990618^^"
^DD(2006.1,103,21,1,0)="The value of this parameter is the number of days that DICOM"
^DD(2006.1,103,21,2,0)="messages are to be retained."
^DD(2006.1,103,21,3,0)="The subroutine that purges old DICOM messages will only remove"
^DD(2006.1,103,21,4,0)="messages that are older than this number of days."
^DD(2006.1,103,"DT")="2991130"
^DD(2006.1,120,0)="USE CAPTURE KEYS^S^1:TRUE;0:FALSE;^KEYS;1^Q"
^DD(2006.1,120,3)="True - Check users Imaging keys for permission to capture."
^DD(2006.1,120,21,0)="^.001^7^7^3001025^^^^"
^DD(2006.1,120,21,1,0)="This field controls whether the Image capture security keys will be"
^DD(2006.1,120,21,2,0)="used. If set to true, the appropriate keys must be given for the"
^DD(2006.1,120,21,3,0)="appropriate Image capture.  'Capture' functionality and Procedure lookup"
^DD(2006.1,120,21,4,0)="functionality will not be allowed from the capture window if the user does"
^DD(2006.1,120,21,5,0)="not have the proper security key allocated.  The Medicine procedure"
^DD(2006.1,120,21,6,0)="selection window will only display the types of procedures that the user"
^DD(2006.1,120,21,7,0)="has keys for."
^DD(2006.1,120,"DT")="2970417"
^DD(2006.1,121,0)="TIMEOUT WINDOWS DISPLAY^NJ3,0^^KEYS;2^K:+X'=X!(X>600)!(X<5)!(X?.E1"".""1N.N) X"
^DD(2006.1,121,3)="Enter the number of Minutes (between 6 and 600) until the Imaging Display Application will close due to inactivity."
^DD(2006.1,121,21,0)="^^4^4^2990504^^"
^DD(2006.1,121,21,1,0)="  This is the number of Minutes used as the Time Out for the Imaging Display"
^DD(2006.1,121,21,2,0)="  Application.  If no activity occurs for this number of minutes, the user"
^DD(2006.1,121,21,3,0)="  will be prompted with a dialog window and given 30 seconds to"
^DD(2006.1,121,21,4,0)="  'Click' on the 'Stay Connected' button or the application will be closed."
^DD(2006.1,121,"DT")="2991130"
^DD(2006.1,122,0)="TIMEOUT WINDOWS CAPTURE^NJ3,0^^KEYS;3^K:+X'=X!(X>600)!(X<5)!(X?.E1"".""1N.N) X"
^DD(2006.1,122,3)="Enter the number of Minutes (between 6 and 600) until the Imaging Capture Application will close due to inactivity."
^DD(2006.1,122,21,0)="^^4^4^2990504^^^"
^DD(2006.1,122,21,1,0)="This is the number of Minutes used as the Time Out for the Imaging Capture"
^DD(2006.1,122,21,2,0)="Application.  If no activity occurs for this number of minutes, the user "
^DD(2006.1,122,21,3,0)="will be prompted with a dialog window and given 30 seconds to "
^DD(2006.1,122,21,4,0)="'Click' on the 'Stay Connected' button or the application will be closed."
^DD(2006.1,122,"DT")="2991130"
^DD(2006.1,123,0)="TIMEOUT WINDOWS VISTARAD^NJ3,0^^KEYS;4^K:+X'=X!(X>600)!(X<5)!(X?.E1"".""1N.N) X"
^DD(2006.1,123,3)="Enter the number of Minutes(between 6 and 600) until the Imaging VISTARad Application will close due to inactivity."
^DD(2006.1,123,21,0)="^^4^4^2990504^^"
^DD(2006.1,123,21,1,0)="  This is the number of Minutes used as Time Out for the Imaging VISTARad"
^DD(2006.1,123,21,2,0)="  Application.  If no activity occurs for this number of minutes, the user"
^DD(2006.1,123,21,3,0)="  will be prompted with a dialog window and given 30 seconds to"
^DD(2006.1,123,21,4,0)="  'Click' on the 'Stay Connected' button or the application will be closed."
^DD(2006.1,123,"DT")="2991130"
^DD(2006.1,124,0)="DICOM GATEWAY ACCESS CODE^FXO^^GW;1^K:$L(X)>30!($L(X)<3) X Q:'$D(X)  S X=$$ENCRYP^XUSRB1(X)"
^DD(2006.1,124,1,0)="^.1"
^DD(2006.1,124,1,1,0)="2006.1^AC^MUMPS"
^DD(2006.1,124,1,1,1)="D SAME^MAGDRPC2(1,DA,""GW"",1,X)"
^DD(2006.1,124,1,1,2)="D SAME^MAGDRPC2(0,DA,""GW"",1,X)"
^DD(2006.1,124,1,1,"%D",0)="^.101^3^3^3051025^^^"
^DD(2006.1,124,1,1,"%D",1,0)="This MUMPS cross reference is really a trigger that causes"
^DD(2006.1,124,1,1,"%D",2,0)="the values for this field to be the same for all entries"
^DD(2006.1,124,1,1,"%D",3,0)="in the Imaging Site Parameter file."
^DD(2006.1,124,1,1,"DT")="3031120"
^DD(2006.1,124,2)="S Y(0)=Y S Y=""<hidden>"""
^DD(2006.1,124,2.1)="S Y=""<hidden>"""
^DD(2006.1,124,3)="Enter the access code that DICOM Gateways may use."
^DD(2006.1,124,21,0)="^^4^4^3031119^"
^DD(2006.1,124,21,1,0)="The value of this field is a string that may be used by a DICOM"
^DD(2006.1,124,21,2,0)="Gateway when it needs to provide an ACCESS CODE to the VistA system."
^DD(2006.1,124,21,3,0)=" "
^DD(2006.1,124,21,4,0)="This value is stored encrypted."
^DD(2006.1,124,"DT")="3031120"
^DD(2006.1,125,0)="DICOM GATEWAY VERIFY CODE^FXO^^GW;2^K:$L(X)>30!($L(X)<3) X Q:'$D(X)  S X=$$ENCRYP^XUSRB1(X)"
^DD(2006.1,125,1,0)="^.1"
^DD(2006.1,125,1,1,0)="2006.1^AD^MUMPS"
^DD(2006.1,125,1,1,1)="D SAME^MAGDRPC2(1,DA,""GW"",2,X)"
^DD(2006.1,125,1,1,2)="D SAME^MAGDRPC2(0,DA,""GW"",2,X)"
^DD(2006.1,125,1,1,"%D",0)="^^3^3^3031120^"
^DD(2006.1,125,1,1,"%D",1,0)="This MUMPS cross reference is really a trigger that causes"
^DD(2006.1,125,1,1,"%D",2,0)="the values for this field to be the same for all entries"
^DD(2006.1,125,1,1,"%D",3,0)="in the Imaging Site Parameter file."
^DD(2006.1,125,1,1,"DT")="3031120"
^DD(2006.1,125,2)="S Y(0)=Y S Y=""<hidden>"""
^DD(2006.1,125,2.1)="S Y=""<hidden>"""
^DD(2006.1,125,3)="Enter the verify code that DICOM Gateways may use."
^DD(2006.1,125,21,0)="^^4^4^3031119^"
^DD(2006.1,125,21,1,0)=">The value of this field is a string that may be used by a DICOM "
^DD(2006.1,125,21,2,0)="Gateway when it needs to provide a VERIFY CODE to a VistA system."
^DD(2006.1,125,21,3,0)=" "
^DD(2006.1,125,21,4,0)="This value is stored encrypted."
^DD(2006.1,125,"DT")="3031120"
^DD(2006.1,126,0)="LAST ROUTING ACTIVITY^D^^LASTROUTE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.1,126,3)="Enter the date when routing was last active."
^DD(2006.1,126,21,0)="^^5^5^3050110^"
^DD(2006.1,126,21,1,0)="The value of this field is a date (FileMan format, date only,"
^DD(2006.1,126,21,2,0)="no time). This value indicates the most recent date"
^DD(2006.1,126,21,3,0)="on which any routing activity took place at the current site."
^DD(2006.1,126,21,4,0)="  "
^DD(2006.1,126,21,5,0)="Routing activity can be either Rule Evaluation or Image Transmission."
^DD(2006.1,126,"DT")="3050110"
^DD(2006.1,127,0)="LAST ROUTING CHECK^D^^LASTROUTE;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.1,127,3)="Enter the date when routing activity was most recently checked."
^DD(2006.1,127,21,0)="^^4^4^3040603^"
^DD(2006.1,127,21,1,0)="The value of this field is a date (FileMan format, date only,"
^DD(2006.1,127,21,2,0)="no time part). This value indicates the most recent date"
^DD(2006.1,127,21,3,0)="on which a check was performed whether or not Routing is"
^DD(2006.1,127,21,4,0)="still active at the current site."
^DD(2006.1,127,"DT")="3040603"
^DD(2006.1,130,0)="VERSION CHECKING^S^0:NO;1:YES;^KEYS;5^Q"
^DD(2006.1,130,3)="Turn ON to stop Imaging Clients that are no longer supported, from connecting to VistA."
^DD(2006.1,130,21,0)="^.001^13^13^3050110^^"
^DD(2006.1,130,21,1,0)="Turn ON to stop old versions of Imaging Display and Capture Clients"
^DD(2006.1,130,21,2,0)="from connecting to VistA."
^DD(2006.1,130,21,3,0)="Old versions of the client software will sometimes not perform"
^DD(2006.1,130,21,4,0)="correctly and will not have the latest updates and functionality."
^DD(2006.1,130,21,5,0)="When turned ON:"
^DD(2006.1,130,21,6,0)="     The most recent versions of Client software will continue to"
^DD(2006.1,130,21,7,0)="     work okay, but the user will be informed that a newer version"
^DD(2006.1,130,21,8,0)="     exists."
^DD(2006.1,130,21,9,0)="     Old Client versions will not be allowed to connect to VistA."
^DD(2006.1,130,21,10,0)="     A message will be shown to the user, informing them that the"
^DD(2006.1,130,21,11,0)="     version is too old, and will be aborted."
^DD(2006.1,130,21,12,0)="     Check the Imaging Patch Description for a list of"
^DD(2006.1,130,21,13,0)="     previous versions that will be allowed to connect."
^DD(2006.1,130,"DT")="3050110"
^DD(2006.1,131,0)="TELEREADER TIMEOUT (MINUTES)^NJ6,0^^KEYS;6^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.1,131,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2006.1,131,21,0)="^.001^2^2^3060509^^"
^DD(2006.1,131,21,1,0)="The number of minutes that the TeleReader application will remain active "
^DD(2006.1,131,21,2,0)="before closing due to inactivity."
^DD(2006.1,131,"DT")="3060330"
^DD(2006.1,201,0)="VISTARAD GROUPING^2006.1201P^^201;0"
^DD(2006.1,201,21,0)="^^3^3^3060125^"
^DD(2006.1,201,21,1,0)="This field allows multiple Institutions and/or Associated Institutions"
^DD(2006.1,201,21,2,0)="to be grouped together within VistARad for purposes of Exam Locking"
^DD(2006.1,201,21,3,0)="and Unread Exams lists display."
^DD(2006.1,201,"DT")="3060125"
^DD(2006.1,"B","ASSOCIATED INSTITUTIONS",.04)=""
^DD(2006.1,"B","CONTINUOUS PURGE",61)=""
^DD(2006.1,"B","CRITICAL LOW MESSAGE INTERVAL",11.5)=""
^DD(2006.1,"B","CT PRESETS",70)=""
^DD(2006.1,"B","CURRENT NAMESPACE",.02)=""
^DD(2006.1,"B","CURRENT PLATTER",2.03)=""
^DD(2006.1,"B","DATE OF LAST CRITICAL MESSAGE",11.9)=""
^DD(2006.1,"B","DATE OF LAST PURGE",65)=""
^DD(2006.1,"B","DEFAULT MUSE SITE #",101)=""
^DD(2006.1,"B","DEFAULT USER PREFERENCE",100)=""
^DD(2006.1,"B","DICOM GATEWAY ACCESS CODE",124)=""
^DD(2006.1,"B","DICOM GATEWAY VERIFY CODE",125)=""
^DD(2006.1,"B","FILE TYPES",12)=""
^DD(2006.1,"B","GCC EXPORT LOC",.07)=""
^DD(2006.1,"B","IMAGE NETWORK IMPORT LOCATION",.08)=""
^DD(2006.1,"B","IMAGE NETWORK WRITE LOCATION",.03)=""
^DD(2006.1,"B","IMPORT QUEUE SECURITY",25)=""
^DD(2006.1,"B","INSTITUTION NAME",.01)="1"
^DD(2006.1,"B","JBX ALL",14)=""
^DD(2006.1,"B","JBX ALL PACS",15)=""
^DD(2006.1,"B","JBX BIG NON-PACS",17)=""
^DD(2006.1,"B","JBX PACS BIG",16)=""
^DD(2006.1,"B","JBX PACS BIG VER TGA",19)=""
^DD(2006.1,"B","JUKEBOX DEFAULT",54)=""
^DD(2006.1,"B","JUKEBOX DEVICE",2.01)=""
^DD(2006.1,"B","LAST ROUTING ACTIVITY",126)=""
^DD(2006.1,"B","LAST ROUTING CHECK",127)=""
^DD(2006.1,"B","MULTI NAMESPACE",12.5)=""
^DD(2006.1,"B","NET PASSWORD",51)=""
^DD(2006.1,"B","NET SITE SERVICE",55)=""
^DD(2006.1,"B","NET UPDATE DIRECTORY",52)=""
^DD(2006.1,"B","NET UPDATE TEST DIRECTORY",53)=""
^DD(2006.1,"B","NET USERNAME",50)=""
^DD(2006.1,"B","NEW AUTOPURGE",60)=""
^DD(2006.1,"B","NO AUTOWRITE UPDATE",20)=""
^DD(2006.1,"B","NO JB DELETE ENTRY",18)=""
^DD(2006.1,"B","PACS DIRECTORY",1.02)=""
^DD(2006.1,"B","PACS IMAGE WRITE LOCATION",1.03)=""
^DD(2006.1,"B","PACS INTERFACE SWITCH",1.01)=""
^DD(2006.1,"B","PCT FREE SPACE DICOM MSGS",102)=""
^DD(2006.1,"B","PERCENT SERVER RESERVE",11)=""
^DD(2006.1,"B","PURGE-RETEN DAYS PACS BIG FILE",21)=""
^DD(2006.1,"B","PURGE-RETENTION DAYS ABS FILE",23)=""
^DD(2006.1,"B","PURGE-RETENTION DAYS BIG FILE",22)=""
^DD(2006.1,"B","PURGE-RETENTION DAYS FULL FILE",8)=""
^DD(2006.1,"B","PURGE-RETENTION DAYS PACS ABS",24)=""
^DD(2006.1,"B","PURGE-RETENTION DAYS PACS FILE",9)=""
^DD(2006.1,"B","RADIOLOGY HOLDS",13)=""
^DD(2006.1,"B","RETENTION DAYS DICOM MSGS",103)=""
^DD(2006.1,"B","SCHEDULED PURGE",62)=""
^DD(2006.1,"B","SCHEDULED PURGE FREQUENCY",63)=""
^DD(2006.1,"B","SCHEDULED PURGE TIME",64)=""
^DD(2006.1,"B","SERVER TASK",10)=""
^DD(2006.1,"B","SITE CODE",.09)=""
^DD(2006.1,"B","TELEREADER TIMEOUT (MINUTES)",131)=""
^DD(2006.1,"B","TIMEOUT WINDOWS CAPTURE",122)=""
^DD(2006.1,"B","TIMEOUT WINDOWS DISPLAY",121)=""
^DD(2006.1,"B","TIMEOUT WINDOWS VISTARAD",123)=""
^DD(2006.1,"B","TOTAL #Platters",2.02)=""
^DD(2006.1,"B","TRACK ABSTRACT ACCESSES",6)=""
^DD(2006.1,"B","USE CAPTURE KEYS",120)=""
^DD(2006.1,"B","VERSION CHECKING",130)=""
^DD(2006.1,"B","VISTARAD GROUPING",201)=""
^DD(2006.1,"GL",0,1,.01)=""
^DD(2006.1,"GL",0,2,.02)=""
^DD(2006.1,"GL",0,3,.03)=""
^DD(2006.1,"GL",0,7,.07)=""
^DD(2006.1,"GL",0,8,.08)=""
^DD(2006.1,"GL",0,9,.09)=""
^DD(2006.1,"GL",1,2,8)=""
^DD(2006.1,"GL",1,3,6)=""
^DD(2006.1,"GL",1,5,9)=""
^DD(2006.1,"GL",1,6,54)=""
^DD(2006.1,"GL",1,7,10)=""
^DD(2006.1,"GL",1,8,11)=""
^DD(2006.1,"GL",1,9,13)=""
^DD(2006.1,"GL",1,10,20)=""
^DD(2006.1,"GL",2,0,12)=""
^DD(2006.1,"GL",3,1,21)=""
^DD(2006.1,"GL",3,2,22)=""
^DD(2006.1,"GL",3,3,23)=""
^DD(2006.1,"GL",3,4,24)=""
^DD(2006.1,"GL",3,5,102)=""
^DD(2006.1,"GL",3,6,103)=""
^DD(2006.1,"GL",3,7,11.5)=""
^DD(2006.1,"GL",3,11,11.9)=""
^DD(2006.1,"GL",3,12,25)=""
^DD(2006.1,"GL",4,0,12.5)=""
^DD(2006.1,"GL",5,1,60)=""
^DD(2006.1,"GL",5,2,61)=""
^DD(2006.1,"GL",5,3,62)=""
^DD(2006.1,"GL",5,4,63)=""
^DD(2006.1,"GL",5,5,64)=""
^DD(2006.1,"GL",5,6,65)=""
^DD(2006.1,"GL",201,0,201)=""
^DD(2006.1,"GL","CT",1,70)=""
^DD(2006.1,"GL","GW",1,124)=""
^DD(2006.1,"GL","GW",2,125)=""
^DD(2006.1,"GL","INSTS",0,.04)=""
^DD(2006.1,"GL","JBEX",1,14)=""
^DD(2006.1,"GL","JBEX",2,15)=""
^DD(2006.1,"GL","JBEX",3,16)=""
^DD(2006.1,"GL","JBEX",4,17)=""
^DD(2006.1,"GL","JBEX",5,18)=""
^DD(2006.1,"GL","JBEX",6,19)=""
^DD(2006.1,"GL","JBX",1,2.01)=""
^DD(2006.1,"GL","JBX",2,2.02)=""
^DD(2006.1,"GL","JBX",3,2.03)=""
^DD(2006.1,"GL","KEYS",1,120)=""
^DD(2006.1,"GL","KEYS",2,121)=""
^DD(2006.1,"GL","KEYS",3,122)=""
^DD(2006.1,"GL","KEYS",4,123)=""
^DD(2006.1,"GL","KEYS",5,130)=""
^DD(2006.1,"GL","KEYS",6,131)=""
^DD(2006.1,"GL","LASTROUTE",1,126)=""
^DD(2006.1,"GL","LASTROUTE",2,127)=""
^DD(2006.1,"GL","NET",1,50)=""
^DD(2006.1,"GL","NET",2,51)=""
^DD(2006.1,"GL","NET",3,52)=""
^DD(2006.1,"GL","NET",4,53)=""
^DD(2006.1,"GL","NET",5,55)=""
^DD(2006.1,"GL","PACS",1,1.01)=""
^DD(2006.1,"GL","PACS",2,1.02)=""
^DD(2006.1,"GL","PACS",3,1.03)=""
^DD(2006.1,"GL","USERPREF",1,100)=""
^DD(2006.1,"GL","USERPREF",2,101)=""
^DD(2006.1,"IX",.01)=""
^DD(2006.1,"IX",10)=""
^DD(2006.1,"IX",124)=""
^DD(2006.1,"IX",125)=""
^DD(2006.1,"RQ",.01)=""
^DD(2006.1,"RQ",.02)=""
^DD(2006.1,"RQ",8)=""
^DD(2006.1,"RQ",11.5)=""
^DD(2006.1,"SB",2006.11,12.5)=""
^DD(2006.1,"SB",2006.112,12)=""
^DD(2006.1,"SB",2006.12,.04)=""
^DD(2006.1,"SB",2006.1201,201)=""
^DD(2006.11,0)="MULTI NAMESPACE SUB-FIELD^^.01^1"
^DD(2006.11,0,"DT")="3001024"
^DD(2006.11,0,"IX","B",2006.11,.01)=""
^DD(2006.11,0,"NM","MULTI NAMESPACE")=""
^DD(2006.11,0,"UP")="2006.1"
^DD(2006.11,.01,0)="MULTI NAMESPACE^MFM^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(2006.11,.01,1,0)="^.1"
^DD(2006.11,.01,1,1,0)="2006.11^B"
^DD(2006.11,.01,1,1,1)="S ^MAG(2006.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(2006.11,.01,1,1,2)="K ^MAG(2006.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(2006.11,.01,3)="Answer must be 1-45 characters in length"
^DD(2006.11,.01,21,0)="^^4^4^3020411^"
^DD(2006.11,.01,21,1,0)="This multiple field is used to store all previously used image "
^DD(2006.11,.01,21,2,0)="prefixes from the CURRENT NAMESPACE field. Any time the "
^DD(2006.11,.01,21,3,0)="CURRENT NAMESPACE field is changed, enter the previous name "
^DD(2006.11,.01,21,4,0)="in this multiple field."
^DD(2006.11,.01,23,0)="^.001^3^3^3001024^^^"
^DD(2006.11,.01,23,1,0)="This multiple field is used to store all previously used image"
^DD(2006.11,.01,23,2,0)="prefixes from the CURRENT NAMESPACE field. Any time the CURRENT NAMESPACE"
^DD(2006.11,.01,23,3,0)="field is changed, enter the previous name in this multiple field."
^DD(2006.11,.01,"DT")="3020411"
^DD(2006.11,"B","MULTI NAMESPACE",.01)=""
^DD(2006.11,"GL",0,1,.01)=""
^DD(2006.11,"IX",.01)=""
^DD(2006.112,0)="FILE TYPES SUB-FIELD^^.01^1"
^DD(2006.112,0,"DT")="2980227"
^DD(2006.112,0,"IX","B",2006.112,.01)=""
^DD(2006.112,0,"NM","FILE TYPES")=""
^DD(2006.112,0,"UP")="2006.1"
^DD(2006.112,.01,0)="FILE TYPES^MF^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(2006.112,.01,1,0)="^.1"
^DD(2006.112,.01,1,1,0)="2006.112^B"
^DD(2006.112,.01,1,1,1)="S ^MAG(2006.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2006.112,.01,1,1,2)="K ^MAG(2006.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2006.112,.01,3)="File extensions for background copies"
^DD(2006.112,.01,"DT")="2980227"
^DD(2006.112,"B","FILE TYPES",.01)=""
^DD(2006.112,"GL",0,1,.01)=""
^DD(2006.112,"IX",.01)=""
^DD(2006.12,0)="ASSOCIATED INSTITUTIONS SUB-FIELD^^201^2"
^DD(2006.12,0,"DT")="3050520"
^DD(2006.12,0,"IX","B",2006.12,.01)=""
^DD(2006.12,0,"NM","ASSOCIATED INSTITUTIONS")=""
^DD(2006.12,0,"UP")="2006.1"
^DD(2006.12,.01,0)="ASSOCIATED INSTITUTIONS^P4'X^DIC(4,^0;1^Q"
^DD(2006.12,.01,1,0)="^.1"
^DD(2006.12,.01,1,1,0)="2006.12^B"
^DD(2006.12,.01,1,1,1)="S ^MAG(2006.1,DA(1),""INSTS"",""B"",$E(X,1,30),DA)="""""
^DD(2006.12,.01,1,1,2)="K ^MAG(2006.1,DA(1),""INSTS"",""B"",$E(X,1,30),DA)"
^DD(2006.12,.01,1,2,0)="2006.1^C^MUMPS"
^DD(2006.12,.01,1,2,1)="S ^MAG(2006.1,""B"",$E(X,1,30),DA(1))="""""
^DD(2006.12,.01,1,2,2)="K ^MAG(2006.1,""B"",$E(X,1,30),DA(1))"
^DD(2006.12,.01,1,2,"%D",0)="^.101^1^1^3060127^^"
^DD(2006.12,.01,1,2,"%D",1,0)="This associates the institution with a set of site paramters."
^DD(2006.12,.01,1,2,"DT")="3050520"
^DD(2006.12,.01,3)="Select an Institution that is a member of the Medical Division file."
^DD(2006.12,.01,21,0)="^.001^3^3^3060127^^"
^DD(2006.12,.01,21,1,0)="This set of institution values will allow users to associate"
^DD(2006.12,.01,21,2,0)="one institutions logon to an imaging network that hosts or stores "
^DD(2006.12,.01,21,3,0)="the images."
^DD(2006.12,.01,"DT")="3060127"
^DD(2006.12,201,0)="VISTARAD GROUPING^2006.12201P^^201;0"
^DD(2006.12,201,21,0)="^^3^3^3060125^"
^DD(2006.12,201,21,1,0)="This field allows multiple Institutions and/or Associated Institutions"
^DD(2006.12,201,21,2,0)="to be grouped together within VistARad for purposes of Exam Locking"
^DD(2006.12,201,21,3,0)="and Unread Exams lists display."
^DD(2006.12,201,"DT")="3060125"
^DD(2006.12,"B","ASSOCIATED INSTITUTIONS",.01)=""
^DD(2006.12,"B","VISTARAD GROUPING",201)=""
^DD(2006.12,"GL",0,1,.01)=""
^DD(2006.12,"GL",201,0,201)=""
^DD(2006.12,"IX",.01)=""
^DD(2006.12,"SB",2006.12201,201)=""
^DD(2006.1201,0)="VISTARAD GROUPING SUB-FIELD^^.01^1"
^DD(2006.1201,0,"DT")="3060124"
^DD(2006.1201,0,"IX","B",2006.1201,.01)=""
^DD(2006.1201,0,"NM","VISTARAD GROUPING")=""
^DD(2006.1201,0,"UP")="2006.1"
^DD(2006.1201,.01,0)="VISTARAD GROUP^MP4'X^DIC(4,^0;1^Q"
^DD(2006.1201,.01,1,0)="^.1"
^DD(2006.1201,.01,1,1,0)="2006.1201^B"
^DD(2006.1201,.01,1,1,1)="S ^MAG(2006.1,DA(1),201,""B"",$E(X,1,30),DA)="""""
^DD(2006.1201,.01,1,1,2)="K ^MAG(2006.1,DA(1),201,""B"",$E(X,1,30),DA)"
^DD(2006.1201,.01,3)="To allow reading for other institutions, enter them here."
^DD(2006.1201,.01,21,0)="^.001^9^9^3060125^^^^"
^DD(2006.1201,.01,21,1,0)="A radiologist logged in to this Institution (Division) can lock"
^DD(2006.1201,.01,21,2,0)="and interpret exams for the logon division.  When logged in to"
^DD(2006.1201,.01,21,3,0)="this Institution, IF you want the radiologist to be able to"
^DD(2006.1201,.01,21,4,0)="lock/interpret exams for other divisions (including Associated"
^DD(2006.1201,.01,21,5,0)="Institutions), enter those divisions here.  Note that this setting"
^DD(2006.1201,.01,21,6,0)="controls exam locking and updating, as well as filtering of the"
^DD(2006.1201,.01,21,7,0)="UNREAD Exams lists to show only the Institutions that are"
^DD(2006.1201,.01,21,8,0)="defined here.  Normally, only Associated Institutions should be"
^DD(2006.1201,.01,21,9,0)="entered here."
^DD(2006.1201,.01,"DT")="3060127"
^DD(2006.1201,"B","VISTARAD GROUP",.01)=""
^DD(2006.1201,"GL",0,1,.01)=""
^DD(2006.1201,"IX",.01)=""
^DD(2006.12201,0)="VISTARAD GROUPING SUB-FIELD^^.01^1"
^DD(2006.12201,0,"DT")="3060124"
^DD(2006.12201,0,"IX","B",2006.12201,.01)=""
^DD(2006.12201,0,"NM","VISTARAD GROUPING")=""
^DD(2006.12201,0,"UP")="2006.12"
^DD(2006.12201,.01,0)="VISTARAD GROUP^MP4'X^DIC(4,^0;1^Q"
^DD(2006.12201,.01,1,0)="^.1"
^DD(2006.12201,.01,1,1,0)="2006.12201^B"
^DD(2006.12201,.01,1,1,1)="S ^MAG(2006.1,DA(2),""INSTS"",DA(1),201,""B"",$E(X,1,30),DA)="""""
^DD(2006.12201,.01,1,1,2)="K ^MAG(2006.1,DA(2),""INSTS"",DA(1),201,""B"",$E(X,1,30),DA)"
^DD(2006.12201,.01,3)="To allow reading for other institutions, enter them here."
^DD(2006.12201,.01,21,0)="^.001^8^8^3060125^^^^"
^DD(2006.12201,.01,21,1,0)="A radiologist logged in to this Associated Institution (Division)"
^DD(2006.12201,.01,21,2,0)="can lock and interpret exams for the logon division.  When logged"
^DD(2006.12201,.01,21,3,0)="in to this Institution, IF you want the radiologist to be able to"
^DD(2006.12201,.01,21,4,0)="lock/interpret exams for other divisions (including the Parent"
^DD(2006.12201,.01,21,5,0)="Institution or other Associated Institutions), enter those"
^DD(2006.12201,.01,21,6,0)="divisions here.  Note that this setting controls exam locking and"
^DD(2006.12201,.01,21,7,0)="updating, as well as filtering of the UNREAD Exams lists to show"
^DD(2006.12201,.01,21,8,0)="only the Institutions that are defined here."
^DD(2006.12201,.01,"DT")="3060127"
^DD(2006.12201,"B","VISTARAD GROUP",.01)=""
^DD(2006.12201,"GL",0,1,.01)=""
^DD(2006.12201,"IX",.01)=""
^DD(2006.17,0)="FIELD^^.01^1"
^DD(2006.17,0,"DDA")="N"
^DD(2006.17,0,"DT")="3000228"
^DD(2006.17,0,"IX","B",2006.17,.01)=""
^DD(2006.17,0,"NM","MUSE VERSIONS")=""
^DD(2006.17,0,"PT",2005.2,29)=""
^DD(2006.17,0,"VR")="3.0"
^DD(2006.17,0,"VRPK")="IMAGING"
^DD(2006.17,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(2006.17,.01,1,0)="^.1"
^DD(2006.17,.01,1,1,0)="2006.17^B"
^DD(2006.17,.01,1,1,1)="S ^MAG(2006.17,""B"",$E(X,1,30),DA)="""""
^DD(2006.17,.01,1,1,2)="K ^MAG(2006.17,""B"",$E(X,1,30),DA)"
^DD(2006.17,.01,3)="Answer must be 2-30 characters in length"
^DD(2006.17,.01,"DT")="3000228"
^DD(2006.17,"B","NAME",.01)=""
^DD(2006.17,"GL",0,1,.01)=""
^DD(2006.17,"IX",.01)=""
^DD(2006.17,"RQ",.01)=""
^DD(2006.18,0)="FIELD^^179^148"
^DD(2006.18,0,"DDA")="N"
^DD(2006.18,0,"DT")="3000615"
^DD(2006.18,0,"IX","AC",2006.18,1)=""
^DD(2006.18,0,"IX","B",2006.18,.01)=""
^DD(2006.18,0,"NM","IMAGING USER PREFERENCE")=""
^DD(2006.18,0,"PT",2006.1,100)=""
^DD(2006.18,0,"VR")="3.0"
^DD(2006.18,0,"VRPK")="IMAGING"
^DD(2006.18,.01,0)="DESCRIPTION^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.18,.01,1,0)="^.1"
^DD(2006.18,.01,1,1,0)="2006.18^B"
^DD(2006.18,.01,1,1,1)="S ^MAG(2006.18,""B"",$E(X,1,30),DA)="""""
^DD(2006.18,.01,1,1,2)="K ^MAG(2006.18,""B"",$E(X,1,30),DA)"
^DD(2006.18,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2006.18,.01,21,0)="^^1^1^2970722^"
^DD(2006.18,.01,21,1,0)="The preference style name."
^DD(2006.18,.01,"DT")="2990126"
^DD(2006.18,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(2006.18,1,1,0)="^.1"
^DD(2006.18,1,1,1,0)="2006.18^AC"
^DD(2006.18,1,1,1,1)="S ^MAG(2006.18,""AC"",$E(X,1,30),DA)="""""
^DD(2006.18,1,1,1,2)="K ^MAG(2006.18,""AC"",$E(X,1,30),DA)"
^DD(2006.18,1,1,1,"DT")="2961102"
^DD(2006.18,1,21,0)="^^1^1^2970722^"
^DD(2006.18,1,21,1,0)="This field will contain the name of the user.  This field is a pointer to the New Person file (200)."
^DD(2006.18,1,"DT")="2961102"
^DD(2006.18,2,0)="ABS COUNT^NJ2,0^^0;3^K:+X'=X!(X>64)!(X<4)!(X?.E1"".""1N.N) X"
^DD(2006.18,2,3)="Type a Number between 4 and 64, 0 Decimal Digits"
^DD(2006.18,2,21,0)="^^1^1^2970722^"
^DD(2006.18,2,21,1,0)="The number of abstract images to be displayed."
^DD(2006.18,2,"DT")="2961102"
^DD(2006.18,3,0)="GROUP ABS COUNT^NJ2,0^^0;4^K:+X'=X!(X>64)!(X<4)!(X?.E1"".""1N.N) X"
^DD(2006.18,3,3)="Type a Number between 4 and 64, 0 Decimal Digits"
^DD(2006.18,3,21,0)="^^1^1^2970722^"
^DD(2006.18,3,21,1,0)="The number of abstract images to be displayed in a group."
^DD(2006.18,3,"DT")="2961102"
^DD(2006.18,4,0)="MAIN STYLE^S^0:fsMDIChild;1:fsMDIForm;2:fsNormal;3:fsStayOnTop;^MAIN;1^Q"
^DD(2006.18,4,21,0)="^^1^1^2970722^"
^DD(2006.18,4,21,1,0)="Set of codes defining the type of window style for the main window."
^DD(2006.18,4,"DT")="2961102"
^DD(2006.18,5,0)="MAIN LEFT^NJ4,0^^MAIN;2^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,5,3)="Type a Number between 0 and 3000, 0 Decimal Digits"
^DD(2006.18,5,21,0)="^^1^1^2970722^"
^DD(2006.18,5,21,1,0)="The left main window settings."
^DD(2006.18,5,"DT")="2961102"
^DD(2006.18,6,0)="MAIN TOP^NJ4,0^^MAIN;3^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,6,3)="Type a Number between 0 and 3000, 0 Decimal Digits"
^DD(2006.18,6,21,0)="^^1^1^2970722^"
^DD(2006.18,6,21,1,0)="The top main window settings."
^DD(2006.18,6,"DT")="2961102"
^DD(2006.18,7,0)="MAIN WIDTH^NJ4,0^^MAIN;4^K:+X'=X!(X>4000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2006.18,7,3)="Type a Number between 100 and 4000, 0 Decimal Digits"
^DD(2006.18,7,21,0)="^^1^1^2970722^"
^DD(2006.18,7,21,1,0)="The main window width settings."
^DD(2006.18,7,"DT")="2961102"
^DD(2006.18,8,0)="MAIN HEIGHT^NJ4,0^^MAIN;5^K:+X'=X!(X>4000)!(X<30)!(X?.E1"".""1N.N) X"
^DD(2006.18,8,3)="Type a Number between 30 and 4000, 0 Decimal Digits"
^DD(2006.18,8,21,0)="^^1^1^2970722^"
^DD(2006.18,8,21,1,0)="The main window height settings."
^DD(2006.18,8,"DT")="2961102"
^DD(2006.18,8.5,0)="MAIN TOOLBAR^S^0:FALSE;1:TRUE;^MAIN;6^Q"
^DD(2006.18,8.5,3)=""
^DD(2006.18,8.5,21,0)="^.001^1^1^3020419^^^"
^DD(2006.18,8.5,21,1,0)="This determines if the Main Toolbar is Visible or Not."
^DD(2006.18,8.5,"DT")="3020225"
^DD(2006.18,9,0)="ABS STYLE^S^0:fsMDIChild;2:fsNormal;3:fsStayOnTop;^ABS;1^Q"
^DD(2006.18,9,21,0)="^^2^2^2970722^"
^DD(2006.18,9,21,1,0)="Set of codes defining the type of window style for the abstract image"
^DD(2006.18,9,21,2,0)="window."
^DD(2006.18,9,"DT")="2961102"
^DD(2006.18,10,0)="ABS LEFT^NJ4,0^^ABS;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,10,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,10,21,0)="^^1^1^2970722^"
^DD(2006.18,10,21,1,0)="The left abstract window settings."
^DD(2006.18,10,"DT")="2961102"
^DD(2006.18,11,0)="ABS TOP^NJ4,0^^ABS;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,11,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,11,21,0)="^^1^1^2970722^"
^DD(2006.18,11,21,1,0)="The top abstract window settings."
^DD(2006.18,11,"DT")="2961102"
^DD(2006.18,12,0)="ABS WIDTH^NJ4,0^^ABS;4^K:+X'=X!(X>4000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2006.18,12,3)="Type a Number between 100 and 4000, 0 Decimal Digits"
^DD(2006.18,12,21,0)="^^1^1^2970722^"
^DD(2006.18,12,21,1,0)="The abstract window width settings."
^DD(2006.18,12,"DT")="2961102"
^DD(2006.18,13,0)="ABS HEIGHT^NJ4,0^^ABS;5^K:+X'=X!(X>4000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2006.18,13,3)="Type a Number between 100 and 4000, 0 Decimal Digits"
^DD(2006.18,13,21,0)="^^1^1^2970722^"
^DD(2006.18,13,21,1,0)="The abstract window height settings."
^DD(2006.18,13,"DT")="2961102"
^DD(2006.18,14,0)="GROUP STYLE^S^0:fsMDIChild;2:fsNormal;3:fsStayOnTop;^GROUP;1^Q"
^DD(2006.18,14,21,0)="^^1^1^2970722^"
^DD(2006.18,14,21,1,0)="Set of codes defining the window style for a group of abstracts."
^DD(2006.18,14,"DT")="2961102"
^DD(2006.18,15,0)="GROUP LEFT^NJ4,0^^GROUP;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,15,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,15,21,0)="^^1^1^2970722^"
^DD(2006.18,15,21,1,0)="The left group window settings."
^DD(2006.18,15,"DT")="2961102"
^DD(2006.18,16,0)="GROUP TOP^NJ4,0^^GROUP;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,16,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,16,21,0)="^^1^1^2970722^"
^DD(2006.18,16,21,1,0)="The top group window settings."
^DD(2006.18,16,"DT")="2961102"
^DD(2006.18,17,0)="GROUP WIDTH^NJ4,0^^GROUP;4^K:+X'=X!(X>4000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2006.18,17,3)="Type a Number between 100 and 4000, 0 Decimal Digits"
^DD(2006.18,17,21,0)="^^1^1^2970722^"
^DD(2006.18,17,21,1,0)="The group window width settings."
^DD(2006.18,17,"DT")="2961102"
^DD(2006.18,18,0)="GROUP HEIGHT^NJ4,0^^GROUP;5^K:+X'=X!(X>4000)!(X<30)!(X?.E1"".""1N.N) X"
^DD(2006.18,18,3)="Type a Number between 30 and 4000, 0 Decimal Digits"
^DD(2006.18,18,21,0)="^^1^1^2970722^"
^DD(2006.18,18,21,1,0)="The group window height settings."
^DD(2006.18,18,"DT")="2961102"
^DD(2006.18,19,0)="FULL STYLE^S^0:fsMDIChild;2:fsNormal;3:fsStayOnTop;^FULL;1^Q"
^DD(2006.18,19,21,0)="^^1^1^2970722^"
^DD(2006.18,19,21,1,0)="Set of codes defining the window style for a full image display."
^DD(2006.18,19,"DT")="2961102"
^DD(2006.18,20,0)="FULL LEFT^NJ4,0^^FULL;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,20,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,20,21,0)="^^1^1^2970722^"
^DD(2006.18,20,21,1,0)="The left full image window settings."
^DD(2006.18,20,"DT")="2961102"
^DD(2006.18,21,0)="FULL TOP^NJ4,0^^FULL;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,21,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,21,21,0)="^^1^1^2981029^^"
^DD(2006.18,21,21,1,0)="The top full image window settings."
^DD(2006.18,21,"DT")="2961102"
^DD(2006.18,22,0)="FULL WIDTH^NJ4,0^^FULL;4^K:+X'=X!(X>4000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2006.18,22,3)="Type a Number between 100 and 4000, 0 Decimal Digits"
^DD(2006.18,22,21,0)="^^1^1^2970722^"
^DD(2006.18,22,21,1,0)="The full image window width settings."
^DD(2006.18,22,"DT")="2961102"
^DD(2006.18,23,0)="FULL HEIGHT^NJ4,0^^FULL;5^K:+X'=X!(X>4000)!(X<30)!(X?.E1"".""1N.N) X"
^DD(2006.18,23,3)="Type a Number between 30 and 4000, 0 Decimal Digits"
^DD(2006.18,23,21,0)="^^1^1^2981029^^"
^DD(2006.18,23,21,1,0)="The full image window height settings."
^DD(2006.18,23,"DT")="2961102"
^DD(2006.18,24,0)="REPORT STYLE^S^0:fsMDIChild;2:fsNormal;3:fsStayOnTop;^REPORT;1^Q"
^DD(2006.18,24,21,0)="^^1^1^2970722^"
^DD(2006.18,24,21,1,0)="Set of codes defining the window style for a report display."
^DD(2006.18,24,"DT")="2961102"
^DD(2006.18,25,0)="REPORT LEFT^NJ4,0^^REPORT;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,25,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,25,21,0)="^^1^1^2970722^"
^DD(2006.18,25,21,1,0)="The left report window settings."
^DD(2006.18,25,"DT")="2961102"
^DD(2006.18,26,0)="REPORT TOP^NJ4,0^^REPORT;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,26,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,26,21,0)="^^1^1^2970722^"
^DD(2006.18,26,21,1,0)="The top report window settings."
^DD(2006.18,26,"DT")="2961102"
^DD(2006.18,27,0)="REPORT WIDTH^NJ4,0^^REPORT;4^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,27,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,27,21,0)="^^1^1^2970722^"
^DD(2006.18,27,21,1,0)="The report window width settings."
^DD(2006.18,27,"DT")="2961102"
^DD(2006.18,28,0)="REPORT HEIGHT^NJ4,0^^REPORT;5^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,28,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,28,21,0)="^^1^1^2970722^"
^DD(2006.18,28,21,1,0)="The report window height settings."
^DD(2006.18,28,"DT")="2961102"
^DD(2006.18,29,0)="REPORT FONT^F^^REPORT;6^K:$L(X)>30!($L(X)<2) X"
^DD(2006.18,29,3)="Answer must be 2-30 characters in length."
^DD(2006.18,29,21,0)="^^1^1^2970722^^"
^DD(2006.18,29,21,1,0)="Set of codes for the fonts to be used in report display."
^DD(2006.18,29,"DT")="2961102"
^DD(2006.18,30,0)="REPORT FONT STYLE^S^0:Regular;1:Italic;2:Bold;3:Bold Italic;^REPORT;7^Q"
^DD(2006.18,30,"DT")="2961102"
^DD(2006.18,31,0)="REPORT FONT SIZE^NJ3,0^^REPORT;8^K:+X'=X!(X>100)!(X<4)!(X?.E1"".""1N.N) X"
^DD(2006.18,31,3)="Type a Number between 4 and 100, 0 Decimal Digits"
^DD(2006.18,31,21,0)="^^1^1^2970722^"
^DD(2006.18,31,21,1,0)="The font size for report display."
^DD(2006.18,31,"DT")="2961102"
^DD(2006.18,32,0)="DOC STYLE^S^0:fsMDIChild;2:fsNormal;3:fsStayOnTop;^DOC;1^Q"
^DD(2006.18,32,21,0)="^^1^1^2970722^"
^DD(2006.18,32,21,1,0)="Set of codes defining the window style for a document."
^DD(2006.18,32,"DT")="2961102"
^DD(2006.18,33,0)="DOC LEFT^NJ4,0^^DOC;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,33,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,33,21,0)="^^1^1^2970722^"
^DD(2006.18,33,21,1,0)="The left document window settings."
^DD(2006.18,33,"DT")="2961102"
^DD(2006.18,34,0)="DOC TOP^NJ4,0^^DOC;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,34,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,34,21,0)="^^1^1^2970722^"
^DD(2006.18,34,21,1,0)="The top document window settings."
^DD(2006.18,34,"DT")="2961102"
^DD(2006.18,35,0)="DOC WIDTH^NJ4,0^^DOC;4^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,35,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,35,21,0)="^^1^1^2970722^"
^DD(2006.18,35,21,1,0)="The document window width settings."
^DD(2006.18,35,"DT")="2961102"
^DD(2006.18,36,0)="DOC HEIGHT^NJ4,0^^DOC;5^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,36,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,36,21,0)="^^1^1^2970722^"
^DD(2006.18,36,21,1,0)="The document window height settings."
^DD(2006.18,36,"DT")="2961102"
^DD(2006.18,37,0)="ABS IMAGE WIDTH^NJ4,0^^ABS;6^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,37,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,37,"DT")="2961102"
^DD(2006.18,38,0)="ABS IMAGE HEIGHT^NJ4,0^^ABS;7^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,38,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,38,"DT")="2961102"
^DD(2006.18,39,0)="GROUP IMAGE WIDTH^NJ5,0^^GROUP;6^K:+X'=X!(X>40000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,39,3)="Type a Number between 10 and 40000, 0 Decimal Digits"
^DD(2006.18,39,21,0)="^^1^1^2970722^"
^DD(2006.18,39,21,1,0)="The group image window width settings."
^DD(2006.18,39,"DT")="2961102"
^DD(2006.18,40,0)="GROUP IMAGE HEIGHT^NJ4,0^^GROUP;7^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,40,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,40,21,0)="^^1^1^2970722^"
^DD(2006.18,40,21,1,0)="The group image window height settings."
^DD(2006.18,40,"DT")="2961102"
^DD(2006.18,41,0)="IMAGEGRID STYLE^S^0:fsMDIChild;1:fsMDIForm;2:fsNormal;3:fsStayOnTop;^IMAGEGRID;1^Q"
^DD(2006.18,41,21,0)="^.001^1^1^3000615^^^"
^DD(2006.18,41,21,1,0)="Set of codes defining the window style for an image grid."
^DD(2006.18,41,"DT")="2961105"
^DD(2006.18,42,0)="IMAGEGRID LEFT^NJ4,0^^IMAGEGRID;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,42,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,42,21,0)="^.001^1^1^3000615^^^"
^DD(2006.18,42,21,1,0)="The image grid left window settings."
^DD(2006.18,42,"DT")="2961105"
^DD(2006.18,43,0)="IMAGEGRID TOP^NJ4,0^^IMAGEGRID;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,43,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,43,21,0)="^.001^1^1^3000615^^^^"
^DD(2006.18,43,21,1,0)="The image grid top window settings."
^DD(2006.18,43,"DT")="2961105"
^DD(2006.18,44,0)="IMAGEGRID WIDTH^NJ4,0^^IMAGEGRID;4^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,44,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,44,21,0)="^.001^1^1^3000615^^"
^DD(2006.18,44,21,1,0)="The image grid width window settings."
^DD(2006.18,44,"DT")="2961105"
^DD(2006.18,45,0)="IMAGEGRID HEIGHT^NJ4,0^^IMAGEGRID;5^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,45,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,45,21,0)="^^1^1^2970722^"
^DD(2006.18,45,21,1,0)="The image grid height window settings."
^DD(2006.18,45,"DT")="2961105"
^DD(2006.18,46,0)="DOC FITWIDTH^S^0:FALSE;1:TRUE;^DOC;6^Q"
^DD(2006.18,46,21,0)="^^1^1^2970722^"
^DD(2006.18,46,21,1,0)="Whether the document should fit the width defined."
^DD(2006.18,46,"DT")="2961106"
^DD(2006.18,47,0)="DOC FITHEIGHT^S^0:FALSE;1:TRUE;^DOC;7^Q"
^DD(2006.18,47,21,0)="^^1^1^2970722^"
^DD(2006.18,47,21,1,0)="Whether the document should fit the height defined."
^DD(2006.18,47,"DT")="2961106"
^DD(2006.18,48,0)="DOC BANDINGMODE^S^0:Normal;1:Mouse Up Zoom;2:Right Click Zoom;3:Pan;^DOC;8^Q"
^DD(2006.18,48,21,0)="^^1^1^2970722^"
^DD(2006.18,48,21,1,0)="Set of codes defining the banding mode."
^DD(2006.18,48,"DT")="2961106"
^DD(2006.18,49,0)="ABS SHOW^S^0:FALSE;1:TRUE;^ABS;8^Q"
^DD(2006.18,49,21,0)="^^1^1^2970722^"
^DD(2006.18,49,21,1,0)="Whether or not to display abstracts."
^DD(2006.18,49,"DT")="2961108"
^DD(2006.18,50,0)="IMAGEGRID SHOW^S^0:FALSE;1:TRUE;^IMAGEGRID;6^Q"
^DD(2006.18,50,21,0)="^.001^1^1^3000615^^"
^DD(2006.18,50,21,1,0)="Whether or not to display the image grid."
^DD(2006.18,50,"DT")="2961108"
^DD(2006.18,51,0)="REMOTE CONNECT [FUTURE USE]^S^0:FALSE;1:TRUE;^0;5^Q"
^DD(2006.18,51,21,0)="^^3^3^3001025^"
^DD(2006.18,51,21,1,0)="[FOR FUTURE USE]"
^DD(2006.18,51,21,2,0)="This field tells whether this computer was signed on remotely,"
^DD(2006.18,51,21,3,0)="or is a part of the Sites Network."
^DD(2006.18,51,"DT")="3001025"
^DD(2006.18,52,0)="VIEWJBOX IMAGES^S^0:FALSE;1:TRUE;^0;6^Q"
^DD(2006.18,52,21,0)="^^1^1^2970722^"
^DD(2006.18,52,21,1,0)="Control whether images from the jukebox will be displayed."
^DD(2006.18,52,"DT")="2961112"
^DD(2006.18,53,0)="REVERSE ORDER^S^0:FALSE;1:TRUE;^0;7^Q"
^DD(2006.18,53,21,0)="^^1^1^2970722^"
^DD(2006.18,53,21,1,0)="Display images in reverse order."
^DD(2006.18,53,"DT")="2961112"
^DD(2006.18,54,0)="RADEXAMS STYLE^S^0:fsMDIChild;1:fsMDIForm;2:fsNormal;3:fsStayOnTop;^RADLISTWIN;1^Q"
^DD(2006.18,54,21,0)="^^1^1^2970722^"
^DD(2006.18,54,21,1,0)="Set of codes defining the window style for a Radiology Exam display."
^DD(2006.18,54,"DT")="2961115"
^DD(2006.18,55,0)="RADEXAMS LEFT^NJ4,0^^RADLISTWIN;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,55,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,55,21,0)="^^1^1^2970722^"
^DD(2006.18,55,21,1,0)="The radiology exams left window settings."
^DD(2006.18,55,"DT")="2961115"
^DD(2006.18,56,0)="RADEXAMS TOP^NJ4,0^^RADLISTWIN;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,56,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,56,21,0)="^^1^1^2970722^"
^DD(2006.18,56,21,1,0)="The radiology exams top window settings."
^DD(2006.18,56,"DT")="2961115"
^DD(2006.18,57,0)="RADEXAMS WIDTH^NJ4,0^^RADLISTWIN;4^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,57,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,57,21,0)="^^1^1^2970722^"
^DD(2006.18,57,21,1,0)="The radiology exams width window settings."
^DD(2006.18,57,"DT")="2961115"
^DD(2006.18,58,0)="RADEXAMS HEIGHT^NJ4,0^^RADLISTWIN;5^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,58,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,58,21,0)="^^1^1^2970722^"
^DD(2006.18,58,21,1,0)="The radiology exams height window settings."
^DD(2006.18,58,"DT")="2961115"
^DD(2006.18,59,0)="RADEXAMS SHOW^S^0:FALSE;1:TRUE;^RADLISTWIN;6^Q"
^DD(2006.18,59,21,0)="^^1^1^2970722^"
^DD(2006.18,59,21,1,0)="Radiology exams view preference."
^DD(2006.18,59,"DT")="2961115"
^DD(2006.18,60,0)="SMTP/POP Server Address^F^^EMAIL;1^K:$L(X)>50!($L(X)<2) X"
^DD(2006.18,60,3)="Enter Your default SMTP/POP3 server to send/receive image mail"
^DD(2006.18,60,21,0)="^^2^2^2970722^"
^DD(2006.18,60,21,1,0)="The default SMTP/POP3 server to send and receive emailed images.  It must"
^DD(2006.18,60,21,2,0)="be a server that can handle SMTP and POP3 mail protocols."
^DD(2006.18,60,"DT")="2961218"
^DD(2006.18,61,0)="Image Email Address^F^^EMAIL;2^K:$L(X)>50!($L(X)<5) X"
^DD(2006.18,61,3)="Enter email address where images will be sent."
^DD(2006.18,61,21,0)="^^1^1^2961218^"
^DD(2006.18,61,21,1,0)="This field contains the email address of the person who will receive images."
^DD(2006.18,61,"DT")="2961218"
^DD(2006.18,62,0)="Alias^F^^EMAIL;3^K:$L(X)>30!($L(X)<5) X"
^DD(2006.18,62,3)="Enter the full name of the mail user."
^DD(2006.18,62,21,0)="^^1^1^2961218^"
^DD(2006.18,62,21,1,0)="This name will appear on the Message header."
^DD(2006.18,62,"DT")="2961218"
^DD(2006.18,63,0)="POP3 Username^F^^EMAIL;4^K:$L(X)>20!($L(X)<3) X"
^DD(2006.18,63,3)="Enter the POP3 account username to login to the POP3 server"
^DD(2006.18,63,21,0)="^^1^1^2961218^"
^DD(2006.18,63,21,1,0)="This is the account username for the POP3 server where user will receive image mail from."
^DD(2006.18,63,"DT")="2961218"
^DD(2006.18,64,0)="POP3 Password^F^^EMAIL;5^K:$L(X)>20!($L(X)<3) X"
^DD(2006.18,64,3)="Enter the POP3 account password to login to the POP3 server."
^DD(2006.18,64,21,0)="^^2^2^2970722^"
^DD(2006.18,64,21,1,0)="The POP3 password for the user to login and retrieve messages from the"
^DD(2006.18,64,21,2,0)="POP3 server."
^DD(2006.18,64,"DT")="2961218"
^DD(2006.18,65,0)="PCanywhere Script Name^F^^EMAIL;6^K:$L(X)>20!($L(X)<3) X"
^DD(2006.18,65,3)="User's script name to send images via PCanywhere"
^DD(2006.18,65,21,0)="^^1^1^2970722^"
^DD(2006.18,65,21,1,0)="The user's script name to send images via PCanywhere."
^DD(2006.18,65,"DT")="2961230"
^DD(2006.18,66,0)="LAST TEN PATIENTS^F^^PAT;1^K:$L(X)>200!($L(X)<1) X"
^DD(2006.18,66,3)="Answer must be 1-200 characters in length."
^DD(2006.18,66,21,0)="^^1^1^2970722^"
^DD(2006.18,66,21,1,0)="The last ten patients the user last referenced."
^DD(2006.18,66,"DT")="2970310"
^DD(2006.18,67,0)="PATIENT LIST^2006.1867PA^^PATLIST;0"
^DD(2006.18,100,0)="EKG STYLE^S^0:fsMDIChild;2:fsNormal;3:fsStayOnTop;^EKG;1^Q"
^DD(2006.18,100,"DT")="2980731"
^DD(2006.18,101,0)="EKG LEFT^NJ4,0^^EKG;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,101,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,101,"DT")="2980731"
^DD(2006.18,102,0)="EKG TOP^NJ4,0^^EKG;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,102,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,102,"DT")="2980731"
^DD(2006.18,103,0)="EKG WIDTH^NJ4,0^^EKG;4^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,103,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,103,"DT")="2980731"
^DD(2006.18,104,0)="EKG HEIGHT^NJ4,0^^EKG;5^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,104,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,104,"DT")="2980731"
^DD(2006.18,105,0)="EKG SHOW^S^0:FALSE;1:TRUE;^EKG;6^Q"
^DD(2006.18,105,"DT")="2980731"
^DD(2006.18,110,0)="DICOM WIN STYLE^S^0:fsMDIChild;2:fsNormal;3:fsStayOnTop;^DICOMWIN;1^Q"
^DD(2006.18,110,"DT")="2981029"
^DD(2006.18,111,0)="DICOM WIN LEFT^NJ4,0^^DICOMWIN;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,111,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,111,"DT")="2981029"
^DD(2006.18,112,0)="DICOM WIN TOP^NJ4,0^^DICOMWIN;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,112,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,112,"DT")="2981029"
^DD(2006.18,113,0)="DICOM WIN WIDTH^NJ4,0^^DICOMWIN;4^K:+X'=X!(X>4000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2006.18,113,3)="Type a Number between 100 and 4000, 0 Decimal Digits"
^DD(2006.18,113,"DT")="2981029"
^DD(2006.18,114,0)="DICOM WIN HEIGHT^NJ4,0^^DICOMWIN;5^K:+X'=X!(X>4000)!(X<100)!(X?.E1"".""1N.N) X"
^DD(2006.18,114,3)="Type a Number between 100 and 4000, 0 Decimal Digits"
^DD(2006.18,114,"DT")="2981029"
^DD(2006.18,130,0)="NOTESWIN STYLE^S^0:fsMDIChild;1:fsMDIForm;2:fsNormal;3:fsStayOnTop;^NOTES;1^Q"
^DD(2006.18,130,21,0)="^^1^1^3000615^"
^DD(2006.18,130,21,1,0)="Set of codes defining the window style for TIU Documents window"
^DD(2006.18,130,"DT")="3000615"
^DD(2006.18,131,0)="NOTESWIN LEFT^NJ4,0^^NOTES;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,131,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,131,21,0)="^^2^2^3000615^"
^DD(2006.18,131,21,1,0)="The left setting for the TIU Documents window position."
^DD(2006.18,131,21,2,0)=""
^DD(2006.18,131,"DT")="3000615"
^DD(2006.18,132,0)="NOTESWIN TOP^NJ4,0^^NOTES;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,132,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,132,21,0)="^^1^1^3000615^"
^DD(2006.18,132,21,1,0)="The top setting for the TIU Documents window position."
^DD(2006.18,132,"DT")="3000615"
^DD(2006.18,133,0)="NOTESWIN WIDTH^NJ4,0^^NOTES;4^K:+X'=X!(X>4000)!(X<50)!(X?.E1"".""1N.N) X"
^DD(2006.18,133,3)="Type a Number between 50 and 4000, 0 Decimal Digits"
^DD(2006.18,133,21,0)="^.001^1^1^3000615^^"
^DD(2006.18,133,21,1,0)="The width of the TIU Documents window."
^DD(2006.18,133,"DT")="3000615"
^DD(2006.18,134,0)="NOTESWIN HEIGHT^NJ4,0^^NOTES;5^K:+X'=X!(X>4000)!(X<50)!(X?.E1"".""1N.N) X"
^DD(2006.18,134,3)="Type a Number between 50 and 4000, 0 Decimal Digits"
^DD(2006.18,134,21,0)="^^1^1^3000615^"
^DD(2006.18,134,21,1,0)="The Height of the TIU Documents window."
^DD(2006.18,134,"DT")="3000615"
^DD(2006.18,135,0)="NOTESWIN SHOW^S^0:FALSE;1:TRUE;^NOTES;6^Q"
^DD(2006.18,135,21,0)="^^2^2^3000615^"
^DD(2006.18,135,21,1,0)="Whether or not to automatically open (show) "
^DD(2006.18,135,21,2,0)="this window when a patient is selected."
^DD(2006.18,135,"DT")="3000615"
^DD(2006.18,137,0)="ABS COLS^NJ4,0^^ABS;10^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,137,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,137,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,137,21,1,0)="This field contains the number of columns in the Abstract window."
^DD(2006.18,137,"DT")="3020724"
^DD(2006.18,138,0)="ABS MAXLOAD^NJ4,0^^ABS;11^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,138,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,138,21,0)="^.001^1^1^3021010^^^"
^DD(2006.18,138,21,1,0)="This field contains the maximum number of abstracts to load in the Abstract window. "
^DD(2006.18,138,"DT")="3020724"
^DD(2006.18,140,0)="FULL COLS^NJ4,0^^FULL;10^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,140,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,140,21,0)="^.001^1^1^3021010^^^"
^DD(2006.18,140,21,1,0)="This field contains the number of columns in the Full Resolution window. "
^DD(2006.18,140,"DT")="3020724"
^DD(2006.18,141,0)="FULL MAXLOAD^NJ4,0^^FULL;11^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,141,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,141,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,141,21,1,0)="This field contains the maximum number of images to load in the Full Resolution window."
^DD(2006.18,141,"DT")="3020724"
^DD(2006.18,143,0)="DOC COLS^NJ4,0^^DOC;10^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,143,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,143,21,0)="^.001^1^1^3021010^^"
^DD(2006.18,143,21,1,0)="This field contains the number of columns in the Document window."
^DD(2006.18,143,"DT")="3020724"
^DD(2006.18,144,0)="DOC MAXLOAD^NJ4,0^^DOC;11^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,144,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,144,21,0)="^.001^1^1^3021010^^^"
^DD(2006.18,144,21,1,0)="This field contains the maximum number of images to load in the Document window."
^DD(2006.18,144,"DT")="3020724"
^DD(2006.18,146,0)="GRP COLS^NJ4,0^^GROUP;10^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,146,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,146,21,0)="^.001^1^1^3021010^^"
^DD(2006.18,146,21,1,0)="This field contains the number of columns in the Group window."
^DD(2006.18,146,"DT")="3020724"
^DD(2006.18,147,0)="GRP MAXLOAD^NJ4,0^^GROUP;11^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,147,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,147,21,0)="^.001^1^1^3021010^^^"
^DD(2006.18,147,21,1,0)="This field contains the maximum number of images to load in the Group Abstract window."
^DD(2006.18,147,"DT")="3020724"
^DD(2006.18,148,0)="ABS TOOLBAR^NJ2,0^^ABS;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,148,3)="Type '0' to hide or '1' to display the toolbar on the Abstract window."
^DD(2006.18,148,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,148,21,1,0)="Show or Hide the toolbar on the Abstract window."
^DD(2006.18,148,"DT")="3020724"
^DD(2006.18,149,0)="FULL TOOLBAR^NJ2,0^^FULL;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,149,3)="Type '0' to hide or '1' to display the toolbar on the Full Resolution window."
^DD(2006.18,149,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,149,21,1,0)="Show or Hide the toolbar on the Full Resolution window."
^DD(2006.18,149,"DT")="3020724"
^DD(2006.18,150,0)="DOC TOOLBAR^NJ2,0^^DOC;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,150,3)="Type '0' to hide or '1' to display the toolbar on the Document window."
^DD(2006.18,150,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,150,21,1,0)="Show or Hide the toolbar on the Document window."
^DD(2006.18,150,"DT")="3020724"
^DD(2006.18,151,0)="GRP TOOLBAR^NJ2,0^^GROUP;9^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,151,3)="Type '0' to hide or '1' to display the toolbar on the Group Abstract window."
^DD(2006.18,151,21,0)="^.001^1^1^3021010^^^"
^DD(2006.18,151,21,1,0)="Show or Hide the toolbar on the Group Abstract window."
^DD(2006.18,151,"DT")="3020724"
^DD(2006.18,152,0)="ABS ROWS^NJ4,0^^ABS;12^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,152,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,152,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,152,21,1,0)="This field contains the number of rows of images to display in the Abstract window."
^DD(2006.18,152,"DT")="3020724"
^DD(2006.18,153,0)="FULL ROWS^NJ4,0^^FULL;12^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,153,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,153,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,153,21,1,0)=" This field contains the number of rows of images to display in the Full Resolution window."
^DD(2006.18,153,"DT")="3020724"
^DD(2006.18,154,0)="DOC ROWS^NJ4,0^^DOC;12^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,154,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,154,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,154,21,1,0)="This field contains the number of rows of images to display in the Document window."
^DD(2006.18,154,"DT")="3020724"
^DD(2006.18,155,0)="GRP ROWS^NJ4,0^^GROUP;12^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,155,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,155,21,0)="^.001^1^1^3021010^^^^"
^DD(2006.18,155,21,1,0)="This field contains the number of rows of images in the Group Abstract window."
^DD(2006.18,155,"DT")="3020724"
^DD(2006.18,156,0)="ABS LOCKSIZE^NJ2,0^^ABS;13^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,156,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(2006.18,156,21,0)="^.001^2^2^3021010^^"
^DD(2006.18,156,21,1,0)="Lock the size of the image when resizing the window. "
^DD(2006.18,156,21,2,0)="User will see more images, not bigger images."
^DD(2006.18,156,"DT")="3020724"
^DD(2006.18,157,0)="FULL LOCKSIZE^NJ2,0^^FULL;13^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,157,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(2006.18,157,21,0)="^^2^2^3020724^"
^DD(2006.18,157,21,1,0)="Lock the size of the image when resizing the window."
^DD(2006.18,157,21,2,0)="User will see more images, not bigger images"
^DD(2006.18,157,"DT")="3020724"
^DD(2006.18,158,0)="DOC LOCKSIZE^NJ2,0^^DOC;13^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,158,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(2006.18,158,21,0)="^^2^2^3020724^"
^DD(2006.18,158,21,1,0)="Lock the size of the image when resizing the window."
^DD(2006.18,158,21,2,0)="User will see more images, not bigger images"
^DD(2006.18,158,"DT")="3020724"
^DD(2006.18,159,0)="GRP LOCKSIZE^NJ2,0^^GROUP;13^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,159,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(2006.18,159,21,0)="^^2^2^3020724^"
^DD(2006.18,159,21,1,0)="Lock the size of the image when resizing the window."
^DD(2006.18,159,21,2,0)="User will see more images, not bigger images"
^DD(2006.18,159,"DT")="3020724"
^DD(2006.18,163,0)="COLUMN WIDTHS^F^^IMAGEGRID;7^K:$L(X)>60!($L(X)<3) X"
^DD(2006.18,163,3)="Answer must be 3-60 characters in length."
^DD(2006.18,163,21,0)="^^3^3^3020812^"
^DD(2006.18,163,21,1,0)="This is a Comma delimited string of widths of the columns "
^DD(2006.18,163,21,2,0)="in the image list window.  "
^DD(2006.18,163,21,3,0)="$p(columnwidths,',',1)= width of column 1 etc."
^DD(2006.18,163,"DT")="3020812"
^DD(2006.18,164,0)="FULL IMAGE WIDTH^NJ4,0^^FULL;6^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,164,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,164,21,0)="^^1^1^3020819^"
^DD(2006.18,164,21,1,0)="This is the Width of the Images in the Full Resolution window"
^DD(2006.18,164,"DT")="3020819"
^DD(2006.18,165,0)="FULL IMAGE HEIGHT^NJ4,0^^FULL;7^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.18,165,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(2006.18,165,21,0)="^^1^1^3020819^"
^DD(2006.18,165,21,1,0)="This is the Height of the Images in the Full Resolution window."
^DD(2006.18,165,"DT")="3020819"
^DD(2006.18,174,0)="VIEW REMOTE ABS^S^1:TRUE;0:FALSE;^0;8^Q"
^DD(2006.18,174,3)="If true, Imaging display will display abstracts located on remote servers. If flase, only abstracts on local servers will be displayed."
^DD(2006.18,174,21,0)="^.001^6^6^3021105^^^"
^DD(2006.18,174,21,1,0)="If True, Imaging display will always display abstracts"
^DD(2006.18,174,21,2,0)=" even if they are located on remote servers"
^DD(2006.18,174,21,3,0)="If False, Imaging display will only display abstracts"
^DD(2006.18,174,21,4,0)=" if they are on local servers."
^DD(2006.18,174,21,5,0)="In a Consolidated Site, 'Local Site' is where the User logs into"
^DD(2006.18,174,21,6,0)="All others are considered 'Remote Sites'."
^DD(2006.18,174,"DT")="3021105"
^DD(2006.18,175,0)="ABS PREVIEW^S^1:YES;0:NO;^LISTWIN1;1^Q"
^DD(2006.18,175,3)="Set to yes if user wants to preview the abstract in the Image List window."
^DD(2006.18,175,21,0)="^^2^2^3030930^"
^DD(2006.18,175,21,1,0)="if Yes, the Image Abstract will be displayed when the user selects an "
^DD(2006.18,175,21,2,0)="an entry from the Image List."
^DD(2006.18,175,"DT")="3030930"
^DD(2006.18,176,0)="REPORT PREVIEW^S^1:YES;0:NO;^LISTWIN1;2^Q"
^DD(2006.18,176,3)="Set to yes if user wants to preview the report in the image list window"
^DD(2006.18,176,21,0)="^^2^2^3030930^"
^DD(2006.18,176,21,1,0)="if Yes, the Image Report will be displayed when the user selects an"
^DD(2006.18,176,21,2,0)="an entry from the Image List."
^DD(2006.18,176,"DT")="3030930"
^DD(2006.18,177,0)="FILTER DEFAULT^P2005.87'^MAG(2005.87,^LISTWIN1;3^Q"
^DD(2006.18,177,3)="Enter the default filter for the User."
^DD(2006.18,177,21,0)="^.001^2^2^3030930^^^"
^DD(2006.18,177,21,1,0)="Pointer to the Image List filter file."
^DD(2006.18,177,21,2,0)="This is the users default Image Filter."
^DD(2006.18,177,"DT")="3030930"
^DD(2006.18,178,0)="FILTER TABS^S^1:YES;0:NO;^LISTWIN1;4^Q"
^DD(2006.18,178,3)="Select yes to display the filters as Tabs across the top of the image list window."
^DD(2006.18,178,21,0)="^^3^3^3030930^"
^DD(2006.18,178,21,1,0)="If set to YES (1), the list of filters will be displayed across"
^DD(2006.18,178,21,2,0)="the top of image list window as Tabs."
^DD(2006.18,178,21,3,0)="This will allow quick access to different filters, and subsets of images."
^DD(2006.18,178,"DT")="3030930"
^DD(2006.18,179,0)="FILTER TABS MULTILINE^S^1:YES;0:NO;^LISTWIN1;5^Q"
^DD(2006.18,179,3)="Enter yes to display the filter tabs as multi-line tabs."
^DD(2006.18,179,21,0)="^^7^7^3030930^"
^DD(2006.18,179,21,1,0)="If YES (1) then filters will be displayed as multi-line tabs when there"
^DD(2006.18,179,21,2,0)="are too many to fit in one line.  This will allow all filters to be visible"
^DD(2006.18,179,21,3,0)="when the window is resized, or there are too many to fit in one line."
^DD(2006.18,179,21,4,0)="If NO (0) and too many filters exist to display in one line, then scroll"
^DD(2006.18,179,21,5,0)="buttons will be displayed to the right of the last visible filter.  The "
^DD(2006.18,179,21,6,0)="user can use the scroll buttons to access any filters (tabs) that aren't"
^DD(2006.18,179,21,7,0)="visible."
^DD(2006.18,179,"DT")="3030930"
^DD(2006.18,180,0)="TIU TOP^NJ5,0^^CAPTIU;1^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,180,3)="This is the Top pixel location of the Notes Window in Capture."
^DD(2006.18,180,21,0)="^.001^1^1^3060629^^"
^DD(2006.18,180,21,1,0)="This is the Top pixel location of the Notes Window in Capture."
^DD(2006.18,180,"DT")="3060629"
^DD(2006.18,181,0)="TIU LEFT^NJ5,0^^CAPTIU;2^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,181,3)="This is the Left pixel location of the Notes Window in Capture."
^DD(2006.18,181,21,0)="^^1^1^3060629^"
^DD(2006.18,181,21,1,0)="This is the Left pixel location of the Notes Window in Capture."
^DD(2006.18,181,"DT")="3060629"
^DD(2006.18,182,0)="TIU HEIGHT^NJ5,0^^CAPTIU;3^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,182,3)="This is the pixel Height of the Notes Window in Capture."
^DD(2006.18,182,21,0)="^^1^1^3060629^"
^DD(2006.18,182,21,1,0)="This is the pixel Height of the Notes Window in Capture."
^DD(2006.18,182,"DT")="3060629"
^DD(2006.18,183,0)="TIU WIDTH^NJ5,0^^CAPTIU;4^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,183,3)="This is the pixel Width of the Notes Window in Capture."
^DD(2006.18,183,21,0)="^.001^1^1^3060629^^"
^DD(2006.18,183,21,1,0)="This is the pixel Width of the Notes Window in Capture."
^DD(2006.18,183,"DT")="3060629"
^DD(2006.18,184,0)="TIU PREVIEW HEIGHT^NJ4,0^^CAPTIU;5^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,184,3)="This is the pixel height of the Preview Panel in the Notes Window in Capture."
^DD(2006.18,184,21,0)="^^1^1^3060629^"
^DD(2006.18,184,21,1,0)="This is the pixel height of the Preview Panel in the Notes Window in Capture."
^DD(2006.18,184,"DT")="3060629"
^DD(2006.18,185,0)="TIU TEXT HEIGHT^NJ4,0^^CAPTIU;6^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,185,3)="This is the pixel height of the Text area in the Notes Window in Capture."
^DD(2006.18,185,21,0)="^.001^1^1^3060629^^"
^DD(2006.18,185,21,1,0)="This is the pixel height of the Text area in the Notes Window in Capture."
^DD(2006.18,185,"DT")="3060629"
^DD(2006.18,186,0)="TIU TITLE HEIGHT^NJ4,0^^CAPTIU;7^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,186,3)="This is the pixel height of the Title List in the Notes Window in Capture."
^DD(2006.18,186,21,0)="^.001^1^1^3060629^^^"
^DD(2006.18,186,21,1,0)="This is the pixel height of the Title List in the Notes Window in Capture."
^DD(2006.18,186,"DT")="3060629"
^DD(2006.18,187,0)="TIU PREVIEW ON^S^0:FALSE;1:TRUE;^CAPTIU;8^Q"
^DD(2006.18,187,3)="Enter '1' to make the Preview Panel in the Notes Window visible."
^DD(2006.18,187,21,0)="^^1^1^3060629^"
^DD(2006.18,187,21,1,0)="Enter '1' to make the Preview Panel in the Notes Window visible."
^DD(2006.18,187,"DT")="3060629"
^DD(2006.18,188,0)="TIU SHOW ADDENDUMS^S^0:FALSE;1:TRUE;^CAPTIU;9^Q"
^DD(2006.18,188,3)="Enter '1' to show related Addendums in the Note Listing."
^DD(2006.18,188,21,0)="^^1^1^3060629^"
^DD(2006.18,188,21,1,0)="Enter '1' to show related Addendums in the Note Listing."
^DD(2006.18,188,"DT")="3060629"
^DD(2006.18,189,0)="TIU VISIT LOCATION^F^^CAPTIU;10^K:$L(X)>40!($L(X)<1) X"
^DD(2006.18,189,3)="This is the IEN ~ NAME of the Visit Location default to use for New Notes."
^DD(2006.18,189,21,0)="^^1^1^3060629^"
^DD(2006.18,189,21,1,0)="This is the IEN ~ NAME of the Visit Location default to use for New Notes."
^DD(2006.18,189,"DT")="3060629"
^DD(2006.18,190,0)="TIU STATUS ICONS ON^S^0:FALSE;1:TRUE;^CAPTIU;11^Q"
^DD(2006.18,190,3)="Enter '1' to use icons in the Note Listing to represent the Note Status."
^DD(2006.18,190,21,0)="^^1^1^3060629^"
^DD(2006.18,190,21,1,0)="Enter '1' to use icons in the Note Listing to represent the Note Status."
^DD(2006.18,190,"DT")="3060629"
^DD(2006.18,191,0)="TIU LIST COUNT^NJ4,0^^CAPTIU;12^K:+X'=X!(X>3000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,191,3)="Maximun number of Notes to list."
^DD(2006.18,191,21,0)="^^1^1^3060629^"
^DD(2006.18,191,21,1,0)="Maximun number of Notes to list."
^DD(2006.18,191,"DT")="3060629"
^DD(2006.18,192,0)="TIU LIST MONTHS^NJ3,0^^CAPTIU;13^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(2006.18,192,3)="List a Patient's Notes for this number of Previous Months."
^DD(2006.18,192,21,0)="^^1^1^3060629^"
^DD(2006.18,192,21,1,0)="List a Patient's Notes for this number of Previous Months."
^DD(2006.18,192,"DT")="3060629"
^DD(2006.18,193,0)="TIU LIST FROM^D^^CAPTIU;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.18,193,3)="List a Patient's note in the Date Range starting with This Date."
^DD(2006.18,193,21,0)="^^1^1^3060629^"
^DD(2006.18,193,21,1,0)="List a Patient's note in the Date Range starting with This Date."
^DD(2006.18,193,"DT")="3060629"
^DD(2006.18,194,0)="TIU LIST TO^D^^CAPTIU;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.18,194,3)="List a Patient's note in the Date Range ending with This Date."
^DD(2006.18,194,21,0)="^.001^1^1^3060629^^"
^DD(2006.18,194,21,1,0)="List a Patient's note in the Date Range ending with This Date."
^DD(2006.18,194,"DT")="3060629"
^DD(2006.18,195,0)="TIU NOTE GLYPHS ON^S^0:FALSE;1:TRUE;^CAPTIU;16^Q"
^DD(2006.18,195,3)="Enter '1' to use glyphs rather than text to display note info."
^DD(2006.18,195,21,0)="^^3^3^3060629^"
^DD(2006.18,195,21,1,0)="Enter '1' to use glyphs rather than text to display note info."
^DD(2006.18,195,21,2,0)="This refers to the Note-Status-Location information field that "
^DD(2006.18,195,21,3,0)="is displayed when a Progress Note is selected."
^DD(2006.18,195,"DT")="3060629"
^DD(2006.18,196,0)="TIU USE DEFAULT LOCATION^S^0:FALSE;1:TRUE;^CAPTIU;17^Q"
^DD(2006.18,196,3)="Enter '1' to Use the defaults for Visit Location."
^DD(2006.18,196,21,0)="^^2^2^3060629^"
^DD(2006.18,196,21,1,0)="Enter '1' to Use the defaults for Visit Location."
^DD(2006.18,196,21,2,0)="Enter '0' to be prompted each time a visit location is needed."
^DD(2006.18,196,"DT")="3060629"
^DD(2006.18,200,0)="TELEREADER FORM STYLE^S^1:on;0:off;^TELEREADER_1;1^Q"
^DD(2006.18,200,21,0)="^^2^2^3060509^"
^DD(2006.18,200,21,1,0)="This is a set of codes to define the window style for TeleReader (this "
^DD(2006.18,200,21,2,0)="field is not currently being used)."
^DD(2006.18,200,"DT")="3060509"
^DD(2006.18,201,0)="TELEREADER LEFT^NJ4,0^^TELEREADER_1;2^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,201,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,201,21,0)="^^1^1^3060509^"
^DD(2006.18,201,21,1,0)="This defines the left side of the TeleReader window settings."
^DD(2006.18,201,"DT")="3060509"
^DD(2006.18,202,0)="TELEREADER TOP^NJ4,0^^TELEREADER_1;3^K:+X'=X!(X>4000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.18,202,3)="Type a Number between 0 and 4000, 0 Decimal Digits"
^DD(2006.18,202,21,0)="^^1^1^3060509^"
^DD(2006.18,202,21,1,0)="This defines the top side of the TeleReader window settings."
^DD(2006.18,202,"DT")="3060509"
^DD(2006.18,203,0)="TELEREADER WIDTH^NJ4,0^^TELEREADER_1;4^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,203,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,203,21,0)="^^1^1^3060509^"
^DD(2006.18,203,21,1,0)="This defines the TeleReader window width settings."
^DD(2006.18,203,"DT")="3060509"
^DD(2006.18,204,0)="TELEREADER HEIGHT^NJ4,0^^TELEREADER_1;5^K:+X'=X!(X>4000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2006.18,204,3)="Type a Number between 10 and 4000, 0 Decimal Digits"
^DD(2006.18,204,21,0)="^^1^1^3060509^"
^DD(2006.18,204,21,1,0)="This defines the TeleReader window height settings."
^DD(2006.18,204,"DT")="3060509"
^DD(2006.18,205,0)="TELEREADER SHOW OR NOT SHOW^S^1:SHOW;0:NOT SHOW;^TELEREADER_1;6^Q"
^DD(2006.18,205,21,0)="^^2^2^3060509^"
^DD(2006.18,205,21,1,0)="Determines if the user wants to have the TeleReader visible or not (this "
^DD(2006.18,205,21,2,0)="field is not currently being used)."
^DD(2006.18,205,"DT")="3060509"
^DD(2006.18,206,0)="TELEREADER UNREAD COL WIDTHS^F^^TELEREADER_1;7^K:$L(X)>60!($L(X)<3) X"
^DD(2006.18,206,3)="Answer must be 3-60 characters in length."
^DD(2006.18,206,21,0)="^.001^1^1^3060503^^"
^DD(2006.18,206,21,1,0)="This determines the width of the columns in the TeleReader Unread Window."
^DD(2006.18,206,"DT")="3060330"
^DD(2006.18,207,0)="TELEREADER AUTO-LAUNCH^S^1:YES;0:NO;^TELEREADER_1;8^Q"
^DD(2006.18,207,21,0)="^^2^2^3060127^"
^DD(2006.18,207,21,1,0)="Determines if TeleReader should automatically launch CPRS and Display "
^DD(2006.18,207,21,2,0)="when the user selects a study (if they are not already launched)."
^DD(2006.18,207,"DT")="3060127"
^DD(2006.18,208,0)="TELEREADER VIEW ALL STUDIES^S^1:YES;0:NO;^TELEREADER_1;9^Q"
^DD(2006.18,208,21,0)="^^2^2^3060127^"
^DD(2006.18,208,21,1,0)="Determines if TeleReader should view all studies or only studies "
^DD(2006.18,208,21,2,0)="available to the user for resulting."
^DD(2006.18,208,"DT")="3060127"
^DD(2006.18,209,0)="TELEREADER SHOW DIALOG^S^1:YES;0:NO;^TELEREADER_1;10^Q"
^DD(2006.18,209,21,0)="^^1^1^3060127^"
^DD(2006.18,209,21,1,0)="Determines if TeleReader should show the Specialties dialog at startup."
^DD(2006.18,209,"DT")="3060127"
^DD(2006.18,210,0)="TELEREADER SAVE SETTINGS^S^1:YES;0:NO;^TELEREADER_1;11^Q"
^DD(2006.18,210,21,0)="^^2^2^3060509^"
^DD(2006.18,210,21,1,0)="Determines if the user wants to save their user preferences when the user "
^DD(2006.18,210,21,2,0)="logs off."
^DD(2006.18,210,"DT")="3060509"
^DD(2006.18,211,0)="TELEREADER READ COL WIDTHS^F^^TELEREADER_1;12^K:$L(X)>60!($L(X)<3) X"
^DD(2006.18,211,3)="Answer must be 3-60 characters in length."
^DD(2006.18,211,21,0)="^^1^1^3060503^"
^DD(2006.18,211,21,1,0)="This determines the width of the columns in the TeleReader Read Window."
^DD(2006.18,211,"DT")="3060330"
^DD(2006.18,300,0)="RIVER AUTO CONNECT ENABLED^S^1:ENABLED;0:DISABLED;^RIVER;1^Q"
^DD(2006.18,300,21,0)="^^2^2^3060403^"
^DD(2006.18,300,21,1,0)="Determines if the display client should automatically connect to remote "
^DD(2006.18,300,21,2,0)="sites for the selected patient."
^DD(2006.18,300,"DT")="3060403"
^DD(2006.18,301,0)="RIVER CONNECT VISN ONLY^S^1:YES;0:NO;^RIVER;2^Q"
^DD(2006.18,301,21,0)="^^2^2^3060403^"
^DD(2006.18,301,21,1,0)="Determines if the display client should automatically connect to remote "
^DD(2006.18,301,21,2,0)="sites only in the users VISN."
^DD(2006.18,301,"DT")="3060403"
^DD(2006.18,302,0)="RIVER HIDE EMPTY SITES^S^1:YES;0:NO;^RIVER;3^Q"
^DD(2006.18,302,21,0)="^^2^2^3060509^"
^DD(2006.18,302,21,1,0)="Determines if the display client should hide sites with 0 (zero) images on"
^DD(2006.18,302,21,2,0)="the RIV (Remote Image View) toolbar."
^DD(2006.18,302,"DT")="3060509"
^DD(2006.18,303,0)="RIVER HIDE DISCONNECTED SITES^S^1:YES;0:NO;^RIVER;4^Q"
^DD(2006.18,303,3)=""
^DD(2006.18,303,21,0)="^^2^2^3060509^"
^DD(2006.18,303,21,1,0)="Determines if the display client should hide disconnected sites on the "
^DD(2006.18,303,21,2,0)="RIV (Remote Image View) toolbar."
^DD(2006.18,303,"DT")="3060509"
^DD(2006.18,"B","ABS COLS",137)=""
^DD(2006.18,"B","ABS COUNT",2)=""
^DD(2006.18,"B","ABS HEIGHT",13)=""
^DD(2006.18,"B","ABS IMAGE HEIGHT",38)=""
^DD(2006.18,"B","ABS IMAGE WIDTH",37)=""
^DD(2006.18,"B","ABS LEFT",10)=""
^DD(2006.18,"B","ABS LOCKSIZE",156)=""
^DD(2006.18,"B","ABS MAXLOAD",138)=""
^DD(2006.18,"B","ABS PREVIEW",175)=""
^DD(2006.18,"B","ABS ROWS",152)=""
^DD(2006.18,"B","ABS SHOW",49)=""
^DD(2006.18,"B","ABS STYLE",9)=""
^DD(2006.18,"B","ABS TOOLBAR",148)=""
^DD(2006.18,"B","ABS TOP",11)=""
^DD(2006.18,"B","ABS WIDTH",12)=""
^DD(2006.18,"B","Alias",62)=""
^DD(2006.18,"B","COLUMN WIDTHS",163)=""
^DD(2006.18,"B","DESCRIPTION",.01)=""
^DD(2006.18,"B","DICOM WIN HEIGHT",114)=""
^DD(2006.18,"B","DICOM WIN LEFT",111)=""
^DD(2006.18,"B","DICOM WIN STYLE",110)=""
^DD(2006.18,"B","DICOM WIN TOP",112)=""
^DD(2006.18,"B","DICOM WIN WIDTH",113)=""
^DD(2006.18,"B","DOC BANDINGMODE",48)=""
^DD(2006.18,"B","DOC COLS",143)=""
^DD(2006.18,"B","DOC FITHEIGHT",47)=""
^DD(2006.18,"B","DOC FITWIDTH",46)=""
^DD(2006.18,"B","DOC HEIGHT",36)=""
^DD(2006.18,"B","DOC LEFT",33)=""
^DD(2006.18,"B","DOC LOCKSIZE",158)=""
^DD(2006.18,"B","DOC MAXLOAD",144)=""
^DD(2006.18,"B","DOC ROWS",154)=""
^DD(2006.18,"B","DOC STYLE",32)=""
^DD(2006.18,"B","DOC TOOLBAR",150)=""
^DD(2006.18,"B","DOC TOP",34)=""
^DD(2006.18,"B","DOC WIDTH",35)=""
^DD(2006.18,"B","EKG HEIGHT",104)=""
^DD(2006.18,"B","EKG LEFT",101)=""
^DD(2006.18,"B","EKG SHOW",105)=""
^DD(2006.18,"B","EKG STYLE",100)=""
^DD(2006.18,"B","EKG TOP",102)=""
^DD(2006.18,"B","EKG WIDTH",103)=""
^DD(2006.18,"B","FILTER DEFAULT",177)=""
^DD(2006.18,"B","FILTER TABS",178)=""
^DD(2006.18,"B","FILTER TABS MULTILINE",179)=""
^DD(2006.18,"B","FULL COLS",140)=""
^DD(2006.18,"B","FULL HEIGHT",23)=""
^DD(2006.18,"B","FULL IMAGE HEIGHT",165)=""
^DD(2006.18,"B","FULL IMAGE WIDTH",164)=""
^DD(2006.18,"B","FULL LEFT",20)=""
^DD(2006.18,"B","FULL LOCKSIZE",157)=""
^DD(2006.18,"B","FULL MAXLOAD",141)=""
^DD(2006.18,"B","FULL ROWS",153)=""
^DD(2006.18,"B","FULL STYLE",19)=""
^DD(2006.18,"B","FULL TOOLBAR",149)=""
^DD(2006.18,"B","FULL TOP",21)=""
^DD(2006.18,"B","FULL WIDTH",22)=""
^DD(2006.18,"B","GROUP ABS COUNT",3)=""
^DD(2006.18,"B","GROUP HEIGHT",18)=""
^DD(2006.18,"B","GROUP IMAGE HEIGHT",40)=""
^DD(2006.18,"B","GROUP IMAGE WIDTH",39)=""
^DD(2006.18,"B","GROUP LEFT",15)=""
^DD(2006.18,"B","GROUP STYLE",14)=""
^DD(2006.18,"B","GROUP TOP",16)=""
^DD(2006.18,"B","GROUP WIDTH",17)=""
^DD(2006.18,"B","GRP COLS",146)=""
^DD(2006.18,"B","GRP LOCKSIZE",159)=""
^DD(2006.18,"B","GRP MAXLOAD",147)=""
^DD(2006.18,"B","GRP ROWS",155)=""
^DD(2006.18,"B","GRP TOOLBAR",151)=""
^DD(2006.18,"B","IMAGEGRID HEIGHT",45)=""
^DD(2006.18,"B","IMAGEGRID LEFT",42)=""
^DD(2006.18,"B","IMAGEGRID SHOW",50)=""
^DD(2006.18,"B","IMAGEGRID STYLE",41)=""
^DD(2006.18,"B","IMAGEGRID TOP",43)=""
^DD(2006.18,"B","IMAGEGRID WIDTH",44)=""
^DD(2006.18,"B","Image Email Address",61)=""
^DD(2006.18,"B","LAST TEN PATIENTS",66)=""
^DD(2006.18,"B","MAIN HEIGHT",8)=""
^DD(2006.18,"B","MAIN LEFT",5)=""
^DD(2006.18,"B","MAIN STYLE",4)=""
^DD(2006.18,"B","MAIN TOOLBAR",8.5)=""
^DD(2006.18,"B","MAIN TOP",6)=""
^DD(2006.18,"B","MAIN WIDTH",7)=""
^DD(2006.18,"B","NOTESWIN HEIGHT",134)=""
^DD(2006.18,"B","NOTESWIN LEFT",131)=""
^DD(2006.18,"B","NOTESWIN SHOW",135)=""
^DD(2006.18,"B","NOTESWIN STYLE",130)=""
^DD(2006.18,"B","NOTESWIN TOP",132)=""
^DD(2006.18,"B","NOTESWIN WIDTH",133)=""
^DD(2006.18,"B","PATIENT LIST",67)=""
^DD(2006.18,"B","PCanywhere Script Name",65)=""
^DD(2006.18,"B","POP3 Password",64)=""
^DD(2006.18,"B","POP3 Username",63)=""
^DD(2006.18,"B","RADEXAMS HEIGHT",58)=""
^DD(2006.18,"B","RADEXAMS LEFT",55)=""
^DD(2006.18,"B","RADEXAMS SHOW",59)=""
^DD(2006.18,"B","RADEXAMS STYLE",54)=""
^DD(2006.18,"B","RADEXAMS TOP",56)=""
^DD(2006.18,"B","RADEXAMS WIDTH",57)=""
^DD(2006.18,"B","REMOTE CONNECT [FUTURE USE]",51)=""
^DD(2006.18,"B","REPORT FONT",29)=""
^DD(2006.18,"B","REPORT FONT SIZE",31)=""
^DD(2006.18,"B","REPORT FONT STYLE",30)=""
^DD(2006.18,"B","REPORT HEIGHT",28)=""
^DD(2006.18,"B","REPORT LEFT",25)=""
^DD(2006.18,"B","REPORT PREVIEW",176)=""
^DD(2006.18,"B","REPORT STYLE",24)=""
^DD(2006.18,"B","REPORT TOP",26)=""
^DD(2006.18,"B","REPORT WIDTH",27)=""
^DD(2006.18,"B","REVERSE ORDER",53)=""
^DD(2006.18,"B","RIVER AUTO CONNECT ENABLED",300)=""
^DD(2006.18,"B","RIVER CONNECT VISN ONLY",301)=""
^DD(2006.18,"B","RIVER HIDE DISCONNECTED SITES",303)=""
^DD(2006.18,"B","RIVER HIDE EMPTY SITES",302)=""
^DD(2006.18,"B","SMTP/POP Server Address",60)=""
^DD(2006.18,"B","TELEREADER AUTO-LAUNCH",207)=""
^DD(2006.18,"B","TELEREADER FORM STYLE",200)=""
^DD(2006.18,"B","TELEREADER HEIGHT",204)=""
^DD(2006.18,"B","TELEREADER LEFT",201)=""
^DD(2006.18,"B","TELEREADER READ COL WIDTHS",211)=""
^DD(2006.18,"B","TELEREADER SAVE SETTINGS",210)=""
^DD(2006.18,"B","TELEREADER SHOW DIALOG",209)=""
^DD(2006.18,"B","TELEREADER SHOW OR NOT SHOW",205)=""
^DD(2006.18,"B","TELEREADER TOP",202)=""
^DD(2006.18,"B","TELEREADER UNREAD COL WIDTHS",206)=""
^DD(2006.18,"B","TELEREADER VIEW ALL STUDIES",208)=""
^DD(2006.18,"B","TELEREADER WIDTH",203)=""
^DD(2006.18,"B","TIU HEIGHT",182)=""
^DD(2006.18,"B","TIU LEFT",181)=""
^DD(2006.18,"B","TIU LIST COUNT",191)=""
^DD(2006.18,"B","TIU LIST FROM",193)=""
^DD(2006.18,"B","TIU LIST MONTHS",192)=""
^DD(2006.18,"B","TIU LIST TO",194)=""
^DD(2006.18,"B","TIU NOTE GLYPHS ON",195)=""
^DD(2006.18,"B","TIU PREVIEW HEIGHT",184)=""
^DD(2006.18,"B","TIU PREVIEW ON",187)=""
^DD(2006.18,"B","TIU SHOW ADDENDUMS",188)=""
^DD(2006.18,"B","TIU STATUS ICONS ON",190)=""
^DD(2006.18,"B","TIU TEXT HEIGHT",185)=""
^DD(2006.18,"B","TIU TITLE HEIGHT",186)=""
^DD(2006.18,"B","TIU TOP",180)=""
^DD(2006.18,"B","TIU USE DEFAULT LOCATION",196)=""
^DD(2006.18,"B","TIU VISIT LOCATION",189)=""
^DD(2006.18,"B","TIU WIDTH",183)=""
^DD(2006.18,"B","USER",1)=""
^DD(2006.18,"B","VIEW REMOTE ABS",174)=""
^DD(2006.18,"B","VIEWJBOX IMAGES",52)=""
^DD(2006.18,"GL",0,1,.01)=""
^DD(2006.18,"GL",0,2,1)=""
^DD(2006.18,"GL",0,3,2)=""
^DD(2006.18,"GL",0,4,3)=""
^DD(2006.18,"GL",0,5,51)=""
^DD(2006.18,"GL",0,6,52)=""
^DD(2006.18,"GL",0,7,53)=""
^DD(2006.18,"GL",0,8,174)=""
^DD(2006.18,"GL","ABS",1,9)=""
^DD(2006.18,"GL","ABS",2,10)=""
^DD(2006.18,"GL","ABS",3,11)=""
^DD(2006.18,"GL","ABS",4,12)=""
^DD(2006.18,"GL","ABS",5,13)=""
^DD(2006.18,"GL","ABS",6,37)=""
^DD(2006.18,"GL","ABS",7,38)=""
^DD(2006.18,"GL","ABS",8,49)=""
^DD(2006.18,"GL","ABS",9,148)=""
^DD(2006.18,"GL","ABS",10,137)=""
^DD(2006.18,"GL","ABS",11,138)=""
^DD(2006.18,"GL","ABS",12,152)=""
^DD(2006.18,"GL","ABS",13,156)=""
^DD(2006.18,"GL","CAPTIU",1,180)=""
^DD(2006.18,"GL","CAPTIU",2,181)=""
^DD(2006.18,"GL","CAPTIU",3,182)=""
^DD(2006.18,"GL","CAPTIU",4,183)=""
^DD(2006.18,"GL","CAPTIU",5,184)=""
^DD(2006.18,"GL","CAPTIU",6,185)=""
^DD(2006.18,"GL","CAPTIU",7,186)=""
^DD(2006.18,"GL","CAPTIU",8,187)=""
^DD(2006.18,"GL","CAPTIU",9,188)=""
^DD(2006.18,"GL","CAPTIU",10,189)=""
^DD(2006.18,"GL","CAPTIU",11,190)=""
^DD(2006.18,"GL","CAPTIU",12,191)=""
^DD(2006.18,"GL","CAPTIU",13,192)=""
^DD(2006.18,"GL","CAPTIU",14,193)=""
^DD(2006.18,"GL","CAPTIU",15,194)=""
^DD(2006.18,"GL","CAPTIU",16,195)=""
^DD(2006.18,"GL","CAPTIU",17,196)=""
^DD(2006.18,"GL","DICOMWIN",1,110)=""
^DD(2006.18,"GL","DICOMWIN",2,111)=""
^DD(2006.18,"GL","DICOMWIN",3,112)=""
^DD(2006.18,"GL","DICOMWIN",4,113)=""
^DD(2006.18,"GL","DICOMWIN",5,114)=""
^DD(2006.18,"GL","DOC",1,32)=""
^DD(2006.18,"GL","DOC",2,33)=""
^DD(2006.18,"GL","DOC",3,34)=""
^DD(2006.18,"GL","DOC",4,35)=""
^DD(2006.18,"GL","DOC",5,36)=""
^DD(2006.18,"GL","DOC",6,46)=""
^DD(2006.18,"GL","DOC",7,47)=""
^DD(2006.18,"GL","DOC",8,48)=""
^DD(2006.18,"GL","DOC",9,150)=""
^DD(2006.18,"GL","DOC",10,143)=""
^DD(2006.18,"GL","DOC",11,144)=""
^DD(2006.18,"GL","DOC",12,154)=""
^DD(2006.18,"GL","DOC",13,158)=""
^DD(2006.18,"GL","EKG",1,100)=""
^DD(2006.18,"GL","EKG",2,101)=""
^DD(2006.18,"GL","EKG",3,102)=""
^DD(2006.18,"GL","EKG",4,103)=""
^DD(2006.18,"GL","EKG",5,104)=""
^DD(2006.18,"GL","EKG",6,105)=""
^DD(2006.18,"GL","EMAIL",1,60)=""
^DD(2006.18,"GL","EMAIL",2,61)=""
^DD(2006.18,"GL","EMAIL",3,62)=""
^DD(2006.18,"GL","EMAIL",4,63)=""
^DD(2006.18,"GL","EMAIL",5,64)=""
^DD(2006.18,"GL","EMAIL",6,65)=""
^DD(2006.18,"GL","FULL",1,19)=""
^DD(2006.18,"GL","FULL",2,20)=""
^DD(2006.18,"GL","FULL",3,21)=""
^DD(2006.18,"GL","FULL",4,22)=""
^DD(2006.18,"GL","FULL",5,23)=""
^DD(2006.18,"GL","FULL",6,164)=""
^DD(2006.18,"GL","FULL",7,165)=""
^DD(2006.18,"GL","FULL",9,149)=""
^DD(2006.18,"GL","FULL",10,140)=""
^DD(2006.18,"GL","FULL",11,141)=""
^DD(2006.18,"GL","FULL",12,153)=""
^DD(2006.18,"GL","FULL",13,157)=""
^DD(2006.18,"GL","GROUP",1,14)=""
^DD(2006.18,"GL","GROUP",2,15)=""
^DD(2006.18,"GL","GROUP",3,16)=""
^DD(2006.18,"GL","GROUP",4,17)=""
^DD(2006.18,"GL","GROUP",5,18)=""
^DD(2006.18,"GL","GROUP",6,39)=""
^DD(2006.18,"GL","GROUP",7,40)=""
^DD(2006.18,"GL","GROUP",9,151)=""
^DD(2006.18,"GL","GROUP",10,146)=""
^DD(2006.18,"GL","GROUP",11,147)=""
^DD(2006.18,"GL","GROUP",12,155)=""
^DD(2006.18,"GL","GROUP",13,159)=""
^DD(2006.18,"GL","IMAGEGRID",1,41)=""
^DD(2006.18,"GL","IMAGEGRID",2,42)=""
^DD(2006.18,"GL","IMAGEGRID",3,43)=""
^DD(2006.18,"GL","IMAGEGRID",4,44)=""
^DD(2006.18,"GL","IMAGEGRID",5,45)=""
^DD(2006.18,"GL","IMAGEGRID",6,50)=""
^DD(2006.18,"GL","IMAGEGRID",7,163)=""
^DD(2006.18,"GL","LISTWIN1",1,175)=""
^DD(2006.18,"GL","LISTWIN1",2,176)=""
^DD(2006.18,"GL","LISTWIN1",3,177)=""
^DD(2006.18,"GL","LISTWIN1",4,178)=""
^DD(2006.18,"GL","LISTWIN1",5,179)=""
^DD(2006.18,"GL","MAIN",1,4)=""
^DD(2006.18,"GL","MAIN",2,5)=""
^DD(2006.18,"GL","MAIN",3,6)=""
^DD(2006.18,"GL","MAIN",4,7)=""
^DD(2006.18,"GL","MAIN",5,8)=""
^DD(2006.18,"GL","MAIN",6,8.5)=""
^DD(2006.18,"GL","NOTES",1,130)=""
^DD(2006.18,"GL","NOTES",2,131)=""
^DD(2006.18,"GL","NOTES",3,132)=""
^DD(2006.18,"GL","NOTES",4,133)=""
^DD(2006.18,"GL","NOTES",5,134)=""
^DD(2006.18,"GL","NOTES",6,135)=""
^DD(2006.18,"GL","PAT",1,66)=""
^DD(2006.18,"GL","PATLIST",0,67)=""
^DD(2006.18,"GL","RADLISTWIN",1,54)=""
^DD(2006.18,"GL","RADLISTWIN",2,55)=""
^DD(2006.18,"GL","RADLISTWIN",3,56)=""
^DD(2006.18,"GL","RADLISTWIN",4,57)=""
^DD(2006.18,"GL","RADLISTWIN",5,58)=""
^DD(2006.18,"GL","RADLISTWIN",6,59)=""
^DD(2006.18,"GL","REPORT",1,24)=""
^DD(2006.18,"GL","REPORT",2,25)=""
^DD(2006.18,"GL","REPORT",3,26)=""
^DD(2006.18,"GL","REPORT",4,27)=""
^DD(2006.18,"GL","REPORT",5,28)=""
^DD(2006.18,"GL","REPORT",6,29)=""
^DD(2006.18,"GL","REPORT",7,30)=""
^DD(2006.18,"GL","REPORT",8,31)=""
^DD(2006.18,"GL","RIVER",1,300)=""
^DD(2006.18,"GL","RIVER",2,301)=""
^DD(2006.18,"GL","RIVER",3,302)=""
^DD(2006.18,"GL","RIVER",4,303)=""
^DD(2006.18,"GL","TELEREADER_1",1,200)=""
^DD(2006.18,"GL","TELEREADER_1",2,201)=""
^DD(2006.18,"GL","TELEREADER_1",3,202)=""
^DD(2006.18,"GL","TELEREADER_1",4,203)=""
^DD(2006.18,"GL","TELEREADER_1",5,204)=""
^DD(2006.18,"GL","TELEREADER_1",6,205)=""
^DD(2006.18,"GL","TELEREADER_1",7,206)=""
^DD(2006.18,"GL","TELEREADER_1",8,207)=""
^DD(2006.18,"GL","TELEREADER_1",9,208)=""
^DD(2006.18,"GL","TELEREADER_1",10,209)=""
^DD(2006.18,"GL","TELEREADER_1",11,210)=""
^DD(2006.18,"GL","TELEREADER_1",12,211)=""
^DD(2006.18,"IX",.01)=""
^DD(2006.18,"IX",1)=""
^DD(2006.18,"RQ",.01)=""
^DD(2006.18,"SB",2006.1867,67)=""
^DD(2006.1867,0)="PATIENT LIST SUB-FIELD^^.01^1"
^DD(2006.1867,0,"DT")="2980410"
^DD(2006.1867,0,"IX","B",2006.1867,.01)=""
^DD(2006.1867,0,"NM","PATIENT LIST")=""
^DD(2006.1867,0,"UP")="2006.18"
^DD(2006.1867,.01,0)="PATIENT LIST^P2'^DPT(^0;1^Q"
^DD(2006.1867,.01,1,0)="^.1"
^DD(2006.1867,.01,1,1,0)="2006.1867^B"
^DD(2006.1867,.01,1,1,1)="S ^MAG(2006.18,DA(1),""PATLIST"",""B"",$E(X,1,30),DA)="""""
^DD(2006.1867,.01,1,1,2)="K ^MAG(2006.18,DA(1),""PATLIST"",""B"",$E(X,1,30),DA)"
^DD(2006.1867,.01,3)="List of patients that the user wants to have easy access to."
^DD(2006.1867,.01,21,0)="^^3^3^2980410^"
^DD(2006.1867,.01,21,1,0)="The user can define a list of his/her patients.  This list will be displayed"
^DD(2006.1867,.01,21,2,0)="on the Imaging Workstation menu option: 'Patients'. Users may add to and remove from"
^DD(2006.1867,.01,21,3,0)="to this list as they please."
^DD(2006.1867,.01,"DT")="2980410"
^DD(2006.1867,"B","PATIENT LIST",.01)=""
^DD(2006.1867,"GL",0,1,.01)=""
^DD(2006.1867,"IX",.01)=""
^DD(2006.19,0)="FIELD^^3^7"
^DD(2006.19,0,"DDA")="N"
^DD(2006.19,0,"DT")="3020411"
^DD(2006.19,0,"ID",.02)="W ?35,$P(^(0),U,2)"
^DD(2006.19,0,"IX","B",2006.19,.01)=""
^DD(2006.19,0,"IX","C",2006.19,.02)=""
^DD(2006.19,0,"IX","D",2006.19,.05)=""
^DD(2006.19,0,"IX","E",2006.19,2)=""
^DD(2006.19,0,"NM","IMAGING USERS")=""
^DD(2006.19,0,"VR")="3.0"
^DD(2006.19,0,"VRPK")="MAG"
^DD(2006.19,.01,0)="DOMAIN NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3) X I $D(X) K:$O(^MAG(2006.19,""B"",X,+DA),-1)!$O(^MAG(2006.19,""B"",X,+DA)) X"
^DD(2006.19,.01,1,0)="^.1"
^DD(2006.19,.01,1,1,0)="2006.19^B"
^DD(2006.19,.01,1,1,1)="S ^MAG(2006.19,""B"",$E(X,1,30),DA)="""""
^DD(2006.19,.01,1,1,2)="K ^MAG(2006.19,""B"",$E(X,1,30),DA)"
^DD(2006.19,.01,1,1,"DT")="2940609"
^DD(2006.19,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.19,.01,21,0)="^^13^13^3001218^"
^DD(2006.19,.01,21,1,0)="This is the mail domain name for the site. It cannot be altered expect by"
^DD(2006.19,.01,21,2,0)="programmers."
^DD(2006.19,.01,21,3,0)=" "
^DD(2006.19,.01,21,4,0)="A site that is not yet configured for Imaging will have an entry in this"
^DD(2006.19,.01,21,5,0)="file created during a production account install, a local image prefix"
^DD(2006.19,.01,21,6,0)="assigned to this entry that screens on this file to maintain uniqueness,"
^DD(2006.19,.01,21,7,0)="that prefix is added to the file locally, and a message is sent to update"
^DD(2006.19,.01,21,8,0)="the master file in the VistA Imaging development account."
^DD(2006.19,.01,21,9,0)=" "
^DD(2006.19,.01,21,10,0)="An example of the .01 field is ""WASHINGTON.MED.VA.GOV"".  This file is used"
^DD(2006.19,.01,21,11,0)="to interpret the source of incoming monthly site activity messages that"
^DD(2006.19,.01,21,12,0)="help determine the efficacy and productivity of the ""Imaging Device"" in"
^DD(2006.19,.01,21,13,0)="order to meet FDA requirements."
^DD(2006.19,.01,"DT")="3031014"
^DD(2006.19,.02,0)="IMAGE FILE NAMESPACE^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) Q:$E(X,1)=""Z""  K:$L(X)>45!($L(X)<1) X I $D(X) K:$O(^MAG(2006.19,""C"",X,DA),-1)!$O(^MAG(2006.19,""C"",X,DA)) X"
^DD(2006.19,.02,1,0)="^.1"
^DD(2006.19,.02,1,1,0)="2006.19^C"
^DD(2006.19,.02,1,1,1)="S ^MAG(2006.19,""C"",$E(X,1,30),DA)="""""
^DD(2006.19,.02,1,1,2)="K ^MAG(2006.19,""C"",$E(X,1,30),DA)"
^DD(2006.19,.02,1,1,"DT")="2940609"
^DD(2006.19,.02,3)="Answer must be 1-45 characters in length."
^DD(2006.19,.02,21,0)="^.001^3^3^3020621^^"
^DD(2006.19,.02,21,1,0)="This is the alpha prefix code assigned to this site.  These"
^DD(2006.19,.02,21,2,0)="characters are used as the first characters of image files"
^DD(2006.19,.02,21,3,0)="created by this site."
^DD(2006.19,.02,"DT")="3020621"
^DD(2006.19,.05,0)="INSTITUTION^RP4'^DIC(4,^0;3^Q"
^DD(2006.19,.05,1,0)="^.1"
^DD(2006.19,.05,1,1,0)="2006.19^D"
^DD(2006.19,.05,1,1,1)="S ^MAG(2006.19,""D"",$E(X,1,30),DA)="""""
^DD(2006.19,.05,1,1,2)="K ^MAG(2006.19,""D"",$E(X,1,30),DA)"
^DD(2006.19,.05,1,1,"DT")="3010426"
^DD(2006.19,.05,"DT")="3010426"
^DD(2006.19,.06,0)="MAIL DOMAIN^F^^2;1^K:$L(X)>99!($L(X)<6) X"
^DD(2006.19,.06,3)="Answer must be 6-99 characters in length."
^DD(2006.19,.06,"DT")="3010426"
^DD(2006.19,1,0)="ADDITIONAL NAMESPACE^2006.191^^1;0"
^DD(2006.19,2,0)="NEW NMSP^FX^^0;4^Q:$E(X,1)=""Z""  K:X[""""""""!($A(X)=45) X S X=$$UPPER^MAGQST(X) I $D(X) K:$L(X)>45!($L(X)<1) X I $D(X) K:$O(^MAG(2006.19,""E"",X,DA),-1)!$O(^MAG(2006.19,""E"",X,DA)) X"
^DD(2006.19,2,1,0)="^.1"
^DD(2006.19,2,1,1,0)="2006.19^E"
^DD(2006.19,2,1,1,1)="S ^MAG(2006.19,""E"",$E(X,1,30),DA)="""""
^DD(2006.19,2,1,1,2)="K ^MAG(2006.19,""E"",$E(X,1,30),DA)"
^DD(2006.19,2,1,1,"DT")="3020618"
^DD(2006.19,2,3)="Answer must be 1-45 characters in length and unique."
^DD(2006.19,2,4)="D:$T(LST^MAGQST)'="""" LST^MAGQST"
^DD(2006.19,2,21,0)="^.001^1^1^3020807^^^^"
^DD(2006.19,2,21,1,0)="This field is used by Imaging for recording the site's new namespace."
^DD(2006.19,2,23,0)="^.001^2^2^3020807^^"
^DD(2006.19,2,23,1,0)="This field is only edited and maintained at the Imaging Enterprise"
^DD(2006.19,2,23,2,0)="account.  The Executable Help uses a routine that is not distributed."
^DD(2006.19,2,"DT")="3020626"
^DD(2006.19,3,0)="PRODUCTION^S^0:NO;1:YES;^0;5^Q"
^DD(2006.19,3,21,0)="^^2^2^3020411^"
^DD(2006.19,3,21,1,0)="This field is used to distinguish mail messages from production"
^DD(2006.19,3,21,2,0)="accounts and non production accounts."
^DD(2006.19,3,"DT")="3020411"
^DD(2006.19,"B","ADDITIONAL NAMESPACE",1)=""
^DD(2006.19,"B","DOMAIN NAME",.01)=""
^DD(2006.19,"B","IMAGE FILE NAMESPACE",.02)=""
^DD(2006.19,"B","INSTITUTION",.05)=""
^DD(2006.19,"B","MAIL DOMAIN",.06)=""
^DD(2006.19,"B","NEW NMSP",2)=""
^DD(2006.19,"B","PRODUCTION",3)=""
^DD(2006.19,"GL",0,1,.01)=""
^DD(2006.19,"GL",0,2,.02)=""
^DD(2006.19,"GL",0,3,.05)=""
^DD(2006.19,"GL",0,4,2)=""
^DD(2006.19,"GL",0,5,3)=""
^DD(2006.19,"GL",1,0,1)=""
^DD(2006.19,"GL",2,1,.06)=""
^DD(2006.19,"IX",.01)=""
^DD(2006.19,"IX",.02)=""
^DD(2006.19,"IX",.05)=""
^DD(2006.19,"IX",2)=""
^DD(2006.19,"RQ",.01)=""
^DD(2006.19,"RQ",.05)=""
^DD(2006.19,"SB",2006.191,1)=""
^DD(2006.191,0)="ADDITIONAL NAMESPACE SUB-FIELD^^.01^1"
^DD(2006.191,0,"DT")="3000502"
^DD(2006.191,0,"IX","B",2006.191,.01)=""
^DD(2006.191,0,"NM","ADDITIONAL NAMESPACE")=""
^DD(2006.191,0,"UP")="2006.19"
^DD(2006.191,.01,0)="ADDITIONAL NAMESPACE^MFX^^0;1^K:(($L(X)>45!($L(X)<1))!($D(^MAG(2006.19,DA(1),1,""B"",$E(X,1,30))))) X"
^DD(2006.191,.01,1,0)="^.1"
^DD(2006.191,.01,1,1,0)="2006.191^B"
^DD(2006.191,.01,1,1,1)="S ^MAG(2006.19,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.191,.01,1,1,2)="K ^MAG(2006.19,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.191,.01,3)="Answer must be 1-45 characters in length."
^DD(2006.191,.01,21,0)="^^5^5^3020411^"
^DD(2006.191,.01,21,1,0)="This multiple field is used to store all previously assigned"
^DD(2006.191,.01,21,2,0)="image prefixes from the CURRENT NAMESPACE field.  This allows "
^DD(2006.191,.01,21,3,0)="the background processor, purge, and verifier processes to recognize"
^DD(2006.191,.01,21,4,0)="these as locally supported images.  Foreign image files are not"
^DD(2006.191,.01,21,5,0)="processed."
^DD(2006.191,.01,"DT")="3020411"
^DD(2006.191,"B","ADDITIONAL NAMESPACE",.01)=""
^DD(2006.191,"GL",0,1,.01)=""
^DD(2006.191,"IX",.01)=""
^DD(2006.341,0)="IMAGE DATA SUB-FIELD^^.01^1"
^DD(2006.341,0,"DT")="3010405"
^DD(2006.341,0,"NM","IMAGE DATA")=""
^DD(2006.341,0,"UP")="2006.034"
^DD(2006.341,.01,0)="IMAGE DATA^F^^0;1^K:$L(X)>250!($L(X)<3) X"
^DD(2006.341,.01,1,0)="^.1^^0"
^DD(2006.341,.01,3)="Answer must be 3-250 characters in length."
^DD(2006.341,.01,21,0)="^^2^2^3020419^"
^DD(2006.341,.01,21,1,0)="These entries are the parameters necessary to Import an image"
^DD(2006.341,.01,21,2,0)="into the Vista Imaging network."
^DD(2006.341,.01,"DT")="3020419"
^DD(2006.341,"B","IMAGE DATA",.01)=""
^DD(2006.341,"GL",0,1,.01)=""
^DD(2006.5,0)="FIELD^^6^7"
^DD(2006.5,0,"DDA")="N"
^DD(2006.5,0,"DT")="2990401"
^DD(2006.5,0,"IX","B",2006.5,.01)=""
^DD(2006.5,0,"IX","C",2006.5,.03)=""
^DD(2006.5,0,"IX","D",2006.5,2)=""
^DD(2006.5,0,"NM","PACS MESSAGE")=""
^DD(2006.5,0,"PT",2006.563,20)=""
^DD(2006.5,0,"VR")="3.0"
^DD(2006.5,0,"VRPK")="IMAGING"
^DD(2006.5,.01,0)="DATE^RD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5,.01,1,0)="^.1"
^DD(2006.5,.01,1,1,0)="2006.5^B"
^DD(2006.5,.01,1,1,1)="S ^MAGDHL7(2006.5,""B"",$E(X,1,30),DA)="""""
^DD(2006.5,.01,1,1,2)="K ^MAGDHL7(2006.5,""B"",$E(X,1,30),DA)"
^DD(2006.5,.01,3)=""
^DD(2006.5,.01,21,0)="^^1^1^3000216^^^^"
^DD(2006.5,.01,21,1,0)="Enter the date the message is being entered into this file."
^DD(2006.5,.01,23,0)="^^1^1^3000216^^^^"
^DD(2006.5,.01,23,1,0)="This field's cross reference is used to purge entries in this file."
^DD(2006.5,.01,"DT")="2960625"
^DD(2006.5,.02,0)="MESSAGE TYPE^F^^0;2^K:$L(X)>6!($L(X)<3) X"
^DD(2006.5,.02,3)="Answer must be 3-6 characters in length."
^DD(2006.5,.02,21,0)="^^1^1^3000216^^^"
^DD(2006.5,.02,21,1,0)="Type of HL7 message transmitted."
^DD(2006.5,.02,"DT")="2960625"
^DD(2006.5,.03,0)="TIME MESSAGE CREATED^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5,.03,1,0)="^.1"
^DD(2006.5,.03,1,1,0)="2006.5^C"
^DD(2006.5,.03,1,1,1)="S ^MAGDHL7(2006.5,""C"",$E(X,1,30),DA)="""""
^DD(2006.5,.03,1,1,2)="K ^MAGDHL7(2006.5,""C"",$E(X,1,30),DA)"
^DD(2006.5,.03,1,1,"%D",0)="^^1^1^3001024^^"
^DD(2006.5,.03,1,1,"%D",1,0)="Create a report to show the frequency of message creation."
^DD(2006.5,.03,1,1,"DT")="2960625"
^DD(2006.5,.03,21,0)="^^1^1^3000216^"
^DD(2006.5,.03,21,1,0)="Enter the date and time the message was created."
^DD(2006.5,.03,"DT")="2960625"
^DD(2006.5,1,0)="MESSAGE SEGMENTS^2006.502^^1;0"
^DD(2006.5,1,21,0)="^^2^2^3000216^"
^DD(2006.5,1,21,1,0)="This word process field will contain the entire HL7 message segments"
^DD(2006.5,1,21,2,0)="pertaining to one message entry. "
^DD(2006.5,2,0)="PATIENT^P2'^DPT(^0;4^Q"
^DD(2006.5,2,1,0)="^.1"
^DD(2006.5,2,1,1,0)="2006.5^D"
^DD(2006.5,2,1,1,1)="S ^MAGDHL7(2006.5,""D"",$E(X,1,30),DA)="""""
^DD(2006.5,2,1,1,2)="K ^MAGDHL7(2006.5,""D"",$E(X,1,30),DA)"
^DD(2006.5,2,1,1,"DT")="2990407"
^DD(2006.5,2,21,0)="^^3^3^2990406^^"
^DD(2006.5,2,21,1,0)="The HL7 message pertains to this patient."
^DD(2006.5,2,21,2,0)="Will be updated by the DICOM Text gateway after it processes the message"
^DD(2006.5,2,21,3,0)="into a DICOM file."
^DD(2006.5,2,"DT")="2990407"
^DD(2006.5,5,0)="SENT PROTOCOL^F^^0;5^K:$L(X)>45!($L(X)<3) X"
^DD(2006.5,5,1,0)="^.1^^0"
^DD(2006.5,5,3)="Answer must be 3-45 characters in length."
^DD(2006.5,5,21,0)="^^3^3^2990406^^"
^DD(2006.5,5,21,1,0)="This HL7 message was sent by this protocol (Patient Demographics, Order Entry, etc.)."
^DD(2006.5,5,21,2,0)="Will be updated by the DICOM Text Gateway after it processes the message"
^DD(2006.5,5,21,3,0)="into a DICOM file."
^DD(2006.5,5,"DT")="3010425"
^DD(2006.5,6,0)="REQUEUED^S^1:YES;^0;6^Q"
^DD(2006.5,6,21,0)="^^3^3^2990406^^"
^DD(2006.5,6,21,1,0)="If this field is set, it will indicate that a request has been made to"
^DD(2006.5,6,21,2,0)="resend the information to the PACS Vendor or a Modality Worklist requestor."
^DD(2006.5,6,21,3,0)="Process will be updated by the DICOM Text Gateway. "
^DD(2006.5,6,"DT")="2990401"
^DD(2006.5,"B","DATE",.01)=""
^DD(2006.5,"B","MESSAGE SEGMENTS",1)=""
^DD(2006.5,"B","MESSAGE TYPE",.02)=""
^DD(2006.5,"B","PATIENT",2)=""
^DD(2006.5,"B","REQUEUED",6)=""
^DD(2006.5,"B","SENT PROTOCOL",5)=""
^DD(2006.5,"B","TIME MESSAGE CREATED",.03)=""
^DD(2006.5,"GL",0,1,.01)=""
^DD(2006.5,"GL",0,2,.02)=""
^DD(2006.5,"GL",0,3,.03)=""
^DD(2006.5,"GL",0,4,2)=""
^DD(2006.5,"GL",0,5,5)=""
^DD(2006.5,"GL",0,6,6)=""
^DD(2006.5,"GL",1,0,1)=""
^DD(2006.5,"IX",.01)=""
^DD(2006.5,"IX",.03)=""
^DD(2006.5,"IX",2)=""
^DD(2006.5,"RQ",.01)=""
^DD(2006.5,"SB",2006.502,1)=""
^DD(2006.502,0)="MESSAGE SEGMENTS SUB-FIELD^^.01^1"
^DD(2006.502,0,"DT")="2960625"
^DD(2006.502,0,"NM","MESSAGE SEGMENTS")=""
^DD(2006.502,0,"UP")="2006.5"
^DD(2006.502,.01,0)="MESSAGE SEGMENTS^WL^^0;1^Q"
^DD(2006.502,.01,21,0)="^^1^1^2960625^"
^DD(2006.502,.01,21,1,0)="HL7 message segments."
^DD(2006.502,.01,"DT")="2960625"
^DD(2006.502,"B","MESSAGE SEGMENTS",.01)=""
^DD(2006.502,"GL",0,1,.01)=""
^DD(2006.51,0)="FIELD^^6^7"
^DD(2006.51,0,"DDA")="N"
^DD(2006.51,0,"DT")="3050111"
^DD(2006.51,0,"IX","B",2006.51,.01)=""
^DD(2006.51,0,"NM","DICOM DATA ELEMENT DICTIONARY")=""
^DD(2006.51,0,"VR")="3.0"
^DD(2006.51,0,"VRPK")="IMAGING"
^DD(2006.51,.01,0)="TAG^RF^^0;1^K:$L(X)>20!($L(X)<10)!'(X'?1P.E) X"
^DD(2006.51,.01,.1)="ELEMENT TAG"
^DD(2006.51,.01,1,0)="^.1"
^DD(2006.51,.01,1,1,0)="2006.51^B"
^DD(2006.51,.01,1,1,1)="S ^MAGDICOM(2006.51,""B"",$E(X,1,30),DA)="""""
^DD(2006.51,.01,1,1,2)="K ^MAGDICOM(2006.51,""B"",$E(X,1,30),DA)"
^DD(2006.51,.01,3)="The ELEMENT TAG must be of the format gggg,owner,eeee."
^DD(2006.51,.01,21,0)="^^2^2^2950421^^"
^DD(2006.51,.01,21,1,0)="The ELEMENT TAG is a the triplet {group, owner, element} that uniquely"
^DD(2006.51,.01,21,2,0)="identifies each DICOM element."
^DD(2006.51,.01,"DT")="2950421"
^DD(2006.51,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(2006.51,1,1,0)="^.1^^0"
^DD(2006.51,1,3)="Answer must be 3-30 characters in length."
^DD(2006.51,1,21,0)="^^1^1^2980128^^"
^DD(2006.51,1,21,1,0)="Description from the DICOM Data Dictionary."
^DD(2006.51,1,"DT")="2990830"
^DD(2006.51,2,0)="VALUE REPRESENTATION^RS^AE:AE;AS:AS;AT:AT;CS:CS;DA:DA;DS:DS;DT:DT;FL:FL;FD:FD;IS:IS;LO:LO;LT:LT;OB:OB;OW:OW;PN:PN;SH:SH;SL:SL;SQ:SQ;SS:SS;ST:ST;TM:TM;UI:UI;UL:UL;US:US;NULL:NULL;UT:UT;^0;3^Q"
^DD(2006.51,2,21,0)="^^29^29^3000216^^^^"
^DD(2006.51,2,21,1,0)="The value of this field is a code for the ""value representation"""
^DD(2006.51,2,21,2,0)="of the DICOM element."
^DD(2006.51,2,21,3,0)="Possible values are taken from part 5, section 6 of the DICOM standard:"
^DD(2006.51,2,21,4,0)=" AE: Application Entity"
^DD(2006.51,2,21,5,0)=" AS: Age String"
^DD(2006.51,2,21,6,0)=" AT: Attribute Tag"
^DD(2006.51,2,21,7,0)=" CS: Code String"
^DD(2006.51,2,21,8,0)=" DA: Date"
^DD(2006.51,2,21,9,0)=" DS: Decimal String"
^DD(2006.51,2,21,10,0)=" DT: Date Time"
^DD(2006.51,2,21,11,0)=" FL: Floating Point"
^DD(2006.51,2,21,12,0)=" FD: Floating Point Double"
^DD(2006.51,2,21,13,0)=" IS: Integer String"
^DD(2006.51,2,21,14,0)=" LO: Long String"
^DD(2006.51,2,21,15,0)=" LT: Long Text"
^DD(2006.51,2,21,16,0)=" OB: Other Byte String"
^DD(2006.51,2,21,17,0)=" OW: Other Word String"
^DD(2006.51,2,21,18,0)=" PN: Person Name"
^DD(2006.51,2,21,19,0)=" SH: Short String"
^DD(2006.51,2,21,20,0)=" SL: Signed Long"
^DD(2006.51,2,21,21,0)=" SQ: Sequence of Items"
^DD(2006.51,2,21,22,0)=" SS: Signed Short"
^DD(2006.51,2,21,23,0)=" ST: Short Text"
^DD(2006.51,2,21,24,0)=" TM: Time"
^DD(2006.51,2,21,25,0)=" UI: Unique Identifier (UID)"
^DD(2006.51,2,21,26,0)=" UL: Unsigned Long"
^DD(2006.51,2,21,27,0)=" UN: Unknown"
^DD(2006.51,2,21,28,0)=" US: Unsigned Short"
^DD(2006.51,2,21,29,0)=" UT: Unlimited Text"
^DD(2006.51,2,"DT")="3000216"
^DD(2006.51,3,0)="VALUE MULTIPLICITY^RF^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(2006.51,3,3)="Answer must be 1-10 characters in length."
^DD(2006.51,3,21,0)="^^2^2^3000216^^"
^DD(2006.51,3,21,1,0)="Specifies the maximum number of values contained in the value field of a"
^DD(2006.51,3,21,2,0)="DICOM data element."
^DD(2006.51,3,"DT")="2950421"
^DD(2006.51,4,0)="ENUMERATED VALUE^2006.514^^1;0"
^DD(2006.51,5,0)="PERMITTED VALUES^S^E:Enumerated List;D:Defined List;^0;5^Q"
^DD(2006.51,5,3)="Qualify the type of values that are allowed for this entity."
^DD(2006.51,5,21,0)="^^7^7^3050111^"
^DD(2006.51,5,21,1,0)="The value of this field provides information about"
^DD(2006.51,5,21,2,0)="the meaning of the list of possible values."
^DD(2006.51,5,21,3,0)="When the value of this field is ""D"" (Defined list),"
^DD(2006.51,5,21,4,0)="an implementor may choose to add values to the list"
^DD(2006.51,5,21,5,0)="for their implementation."
^DD(2006.51,5,21,6,0)="When the value of this field is ""E"" (Enumerated list),"
^DD(2006.51,5,21,7,0)="only those values specified in the DICOM standard may occur."
^DD(2006.51,5,"DT")="3050111"
^DD(2006.51,6,0)="STATUS^S^R:Retired;^0;6^Q"
^DD(2006.51,6,3)="Indicate whether or not this entity is retired."
^DD(2006.51,6,21,0)="^^5^5^3050111^"
^DD(2006.51,6,21,1,0)="The value of this field is a code that indicates whether"
^DD(2006.51,6,21,2,0)="or not the current entity is ""Retired"" from the DICOM Standard."
^DD(2006.51,6,21,3,0)=" "
^DD(2006.51,6,21,4,0)="When the value of this field is blank, this entity is active."
^DD(2006.51,6,21,5,0)="When the value of this field is equal to ""R"", this entity is retired."
^DD(2006.51,6,"DT")="3050111"
^DD(2006.51,"B","DESCRIPTION",1)=""
^DD(2006.51,"B","ELEMENT TAG",.01)="1"
^DD(2006.51,"B","ENUMERATED VALUE",4)=""
^DD(2006.51,"B","PERMITTED VALUES",5)=""
^DD(2006.51,"B","STATUS",6)=""
^DD(2006.51,"B","TAG",.01)=""
^DD(2006.51,"B","VALUE MULTIPLICITY",3)=""
^DD(2006.51,"B","VALUE REPRESENTATION",2)=""
^DD(2006.51,"GL",0,1,.01)=""
^DD(2006.51,"GL",0,2,1)=""
^DD(2006.51,"GL",0,3,2)=""
^DD(2006.51,"GL",0,4,3)=""
^DD(2006.51,"GL",0,5,5)=""
^DD(2006.51,"GL",0,6,6)=""
^DD(2006.51,"GL",1,0,4)=""
^DD(2006.51,"IX",.01)=""
^DD(2006.51,"RQ",.01)=""
^DD(2006.51,"RQ",2)=""
^DD(2006.51,"RQ",3)=""
^DD(2006.51,"SB",2006.514,4)=""
^DD(2006.511,0)="FIELD^^2^2"
^DD(2006.511,0,"DDA")="N"
^DD(2006.511,0,"DT")="2990830"
^DD(2006.511,0,"IX","B",2006.511,.01)=""
^DD(2006.511,0,"NM","DIAGNOSTIC INFO FIELD")=""
^DD(2006.511,0,"VR")="3.0"
^DD(2006.511,0,"VRPK")="IMAGING"
^DD(2006.511,.01,0)="FILENAME^RF^^0;1^K:$L(X)>100!($L(X)<1)!'(X'?1P.E) X"
^DD(2006.511,.01,1,0)="^.1"
^DD(2006.511,.01,1,1,0)="2006.511^B"
^DD(2006.511,.01,1,1,1)="S ^MAGDICOM(2006.511,""B"",$E(X,1,30),DA)="""""
^DD(2006.511,.01,1,1,2)="K ^MAGDICOM(2006.511,""B"",$E(X,1,30),DA)"
^DD(2006.511,.01,3)="Enter the name of the master file."
^DD(2006.511,.01,21,0)="^^2^2^2990830^"
^DD(2006.511,.01,21,1,0)="The value of this field is the name of the ""master file"" that"
^DD(2006.511,.01,21,2,0)="contains the list of fields."
^DD(2006.511,.01,"DT")="2990830"
^DD(2006.511,2,0)="TAG^2006.5112A^^1;0"
^DD(2006.511,"B","FILENAME",.01)=""
^DD(2006.511,"B","TAG",2)=""
^DD(2006.511,"GL",0,1,.01)=""
^DD(2006.511,"GL",1,0,2)=""
^DD(2006.511,"IX",.01)=""
^DD(2006.511,"RQ",.01)=""
^DD(2006.511,"SB",2006.5112,2)=""
^DD(2006.5112,0)="TAG SUB-FIELD^^2^2"
^DD(2006.5112,0,"DT")="2990830"
^DD(2006.5112,0,"NM","TAG")=""
^DD(2006.5112,0,"UP")="2006.511"
^DD(2006.5112,.01,0)="TAG^RF^^0;1^K:$L(X)>9!($L(X)<9) X"
^DD(2006.5112,.01,1,0)="^.1^^0"
^DD(2006.5112,.01,3)="Enter the DICOM 'tag' for this field."
^DD(2006.5112,.01,21,0)="^^4^4^2990830^^"
^DD(2006.5112,.01,21,1,0)="The value of this field is the DICOM 'tag' (group,element)"
^DD(2006.5112,.01,21,2,0)="for the element described by this entry."
^DD(2006.5112,.01,21,3,0)="'Tags' consist of two groups of four hexadecimal digits, separated"
^DD(2006.5112,.01,21,4,0)="by a comma."
^DD(2006.5112,.01,"DT")="2990830"
^DD(2006.5112,2,0)="NAME^RF^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5112,2,3)="Enter the name of this field."
^DD(2006.5112,2,21,0)="^^2^2^2990830^"
^DD(2006.5112,2,21,1,0)="The value of this field is the name of the DICOM element"
^DD(2006.5112,2,21,2,0)="that is described by this entry."
^DD(2006.5112,2,"DT")="2990830"
^DD(2006.5112,"B","NAME",2)=""
^DD(2006.5112,"B","TAG",.01)=""
^DD(2006.5112,"GL",0,1,.01)=""
^DD(2006.5112,"GL",0,2,2)=""
^DD(2006.5112,"RQ",.01)=""
^DD(2006.5112,"RQ",2)=""
^DD(2006.514,0)="ENUMERATED VALUE SUB-FIELD^^2^2"
^DD(2006.514,0,"DT")="2990830"
^DD(2006.514,0,"IX","B",2006.514,.01)=""
^DD(2006.514,0,"NM","ENUMERATED VALUE")=""
^DD(2006.514,0,"UP")="2006.51"
^DD(2006.514,.01,0)="ENUMERATED VALUE^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.514,.01,1,0)="^.1"
^DD(2006.514,.01,1,1,0)="2006.514^B"
^DD(2006.514,.01,1,1,1)="S ^MAGDICOM(2006.51,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.514,.01,1,1,2)="K ^MAGDICOM(2006.51,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.514,.01,3)="Answer must be 1-50 characters in length."
^DD(2006.514,.01,21,0)="^^2^2^3001004^^"
^DD(2006.514,.01,21,1,0)="The value of this field is a code."
^DD(2006.514,.01,21,2,0)="Possible values for these codes are described in the DICOM standard."
^DD(2006.514,.01,"DT")="2950421"
^DD(2006.514,2,0)="MEANING^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(2006.514,2,3)="Enter a text that describes the meaning of the value."
^DD(2006.514,2,21,0)="^^2^2^3001004^^"
^DD(2006.514,2,21,1,0)="The value of this field is a text that describes the meaning"
^DD(2006.514,2,21,2,0)="of the code that is specified in the current entry."
^DD(2006.514,2,"DT")="2990830"
^DD(2006.514,"B","ENUMERATED VALUE",.01)=""
^DD(2006.514,"B","MEANING",2)=""
^DD(2006.514,"GL",0,1,.01)=""
^DD(2006.514,"GL",0,2,2)=""
^DD(2006.514,"IX",.01)=""
^DD(2006.52,0)="FIELD^^6^6"
^DD(2006.52,0,"DT")="2981113"
^DD(2006.52,0,"IX","B",2006.52,.01)=""
^DD(2006.52,0,"NM","DICOM MESSAGE TEMPLATE DICTIONARY")=""
^DD(2006.52,0,"VR")="3.0"
^DD(2006.52,0,"VRPK")="IMAGING"
^DD(2006.52,.01,0)="TITLE^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2006.52,.01,1,0)="^.1"
^DD(2006.52,.01,1,1,0)="2006.52^B"
^DD(2006.52,.01,1,1,1)="S ^MAGDICOM(2006.52,""B"",$E(X,1,30),DA)="""""
^DD(2006.52,.01,1,1,2)="K ^MAGDICOM(2006.52,""B"",$E(X,1,30),DA)"
^DD(2006.52,.01,3)="Enter the name of this template."
^DD(2006.52,.01,21,0)="^^2^2^3000218^^"
^DD(2006.52,.01,21,1,0)="The value of this field identifies the template"
^DD(2006.52,.01,21,2,0)="that is defined in this entry."
^DD(2006.52,.01,"DT")="2981113"
^DD(2006.52,2,0)="DIMSE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.52,2,3)="Enter the name of a DIMSE command."
^DD(2006.52,2,21,0)="^^7^7^3000218^^"
^DD(2006.52,2,21,1,0)="DIMSE stands for DICOM Message Service Element."
^DD(2006.52,2,21,2,0)=" "
^DD(2006.52,2,21,3,0)="The value of this field is a command that"
^DD(2006.52,2,21,4,0)="is recognized in a DICOM communication stream."
^DD(2006.52,2,21,5,0)="The template described in this entry describes"
^DD(2006.52,2,21,6,0)="the list of data fields that are exchanged for"
^DD(2006.52,2,21,7,0)="this command."
^DD(2006.52,2,"DT")="2981113"
^DD(2006.52,3,0)="SOPCLASS^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(2006.52,3,3)="Enter the name of the SOP-class on which this template operates."
^DD(2006.52,3,21,0)="^^4^4^3000218^^"
^DD(2006.52,3,21,1,0)="SOP stands for Service-Object pair."
^DD(2006.52,3,21,2,0)=" "
^DD(2006.52,3,21,3,0)="The value of this field is the name of the SOP-class"
^DD(2006.52,3,21,4,0)="on which the DIMSE command in this entry will operate."
^DD(2006.52,3,"DT")="2981113"
^DD(2006.52,4,0)="TYPENAME^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(2006.52,4,3)="Enter the name of a DICOM Event Type."
^DD(2006.52,4,21,0)="^^3^3^3000218^^"
^DD(2006.52,4,21,1,0)="The value of this field is a text that identifies"
^DD(2006.52,4,21,2,0)="the kind of event for the SOP-class on which this"
^DD(2006.52,4,21,3,0)="template operates."
^DD(2006.52,4,"DT")="2981113"
^DD(2006.52,5,0)="TYPEID^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(2006.52,5,3)="Enter a DICOM Event Type ID code."
^DD(2006.52,5,21,0)="^^3^3^3000218^^"
^DD(2006.52,5,21,1,0)="The value of this field is a code that identifies"
^DD(2006.52,5,21,2,0)="the kind of event for the SOP-class on which this"
^DD(2006.52,5,21,3,0)="template operates."
^DD(2006.52,5,"DT")="2981113"
^DD(2006.52,6,0)="MESSAGE^2006.5204A^^1;0"
^DD(2006.52,"B","DIMSE",2)=""
^DD(2006.52,"B","MESSAGE",6)=""
^DD(2006.52,"B","SOPCLASS",3)=""
^DD(2006.52,"B","TITLE",.01)=""
^DD(2006.52,"B","TYPEID",5)=""
^DD(2006.52,"B","TYPENAME",4)=""
^DD(2006.52,"GL",0,1,.01)=""
^DD(2006.52,"GL",0,2,2)=""
^DD(2006.52,"GL",0,3,3)=""
^DD(2006.52,"GL",0,4,4)=""
^DD(2006.52,"GL",0,5,5)=""
^DD(2006.52,"GL",1,0,6)=""
^DD(2006.52,"IX",.01)=""
^DD(2006.52,"RQ",.01)=""
^DD(2006.52,"SB",2006.5204,6)=""
^DD(2006.5204,0)="MESSAGE SUB-FIELD^^5^5"
^DD(2006.5204,0,"DT")="2981113"
^DD(2006.5204,0,"NM","MESSAGE")=""
^DD(2006.5204,0,"UP")="2006.52"
^DD(2006.5204,.01,0)="TAG^F^^0;1^K:$L(X)>9!($L(X)<9) X"
^DD(2006.5204,.01,1,0)="^.1^^0"
^DD(2006.5204,.01,3)="Enter a DICOM tag (nnnn,nnnn)."
^DD(2006.5204,.01,21,0)="^^5^5^3000218^^"
^DD(2006.5204,.01,21,1,0)="The value of this field is a 'tag' as defined"
^DD(2006.5204,.01,21,2,0)="in the DICOM element dictionary."
^DD(2006.5204,.01,21,3,0)="Such a tag consists of 4 hexadecimal digits,"
^DD(2006.5204,.01,21,4,0)="a comma, and 4 more hexadecimal digits."
^DD(2006.5204,.01,21,5,0)="A 'tag' uniquely identifies a DICOM data element."
^DD(2006.5204,.01,"DT")="2981113"
^DD(2006.5204,2,0)="NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5204,2,3)="Copy the name of this data element from the DICOM standard."
^DD(2006.5204,2,21,0)="^^7^7^3000218^^"
^DD(2006.5204,2,21,1,0)="The value of this field is the name of a DICOM"
^DD(2006.5204,2,21,2,0)="data element."
^DD(2006.5204,2,21,3,0)="Names of DICOM data elements are defined in the"
^DD(2006.5204,2,21,4,0)="DICOM standard."
^DD(2006.5204,2,21,5,0)="The 'tag' in this entry uniquely identifies the"
^DD(2006.5204,2,21,6,0)="DICOM data element. The DICOM standard specifies"
^DD(2006.5204,2,21,7,0)="the name for this data element."
^DD(2006.5204,2,"DT")="2981113"
^DD(2006.5204,3,0)="SCUSCP^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5204,3,3)="Enter the Required/Optional Type Codes for this element."
^DD(2006.5204,3,21,0)="^^20^20^3000218^^"
^DD(2006.5204,3,21,1,0)="SCU stands for Service Class User;"
^DD(2006.5204,3,21,2,0)="SCP stands for Service Class Provider."
^DD(2006.5204,3,21,3,0)=" "
^DD(2006.5204,3,21,4,0)="The value of this field consists of two numeric parts,"
^DD(2006.5204,3,21,5,0)="separated by a slash. The first piece is a code that"
^DD(2006.5204,3,21,6,0)="specified whether or not the data element in this entry"
^DD(2006.5204,3,21,7,0)="is required for an SCU; the second piece is a code that"
^DD(2006.5204,3,21,8,0)="specifies whether or not this data element is required"
^DD(2006.5204,3,21,9,0)="for an SCP"
^DD(2006.5204,3,21,10,0)=" "
^DD(2006.5204,3,21,11,0)="The 'required' codes may be:"
^DD(2006.5204,3,21,12,0)="   1: Always required"
^DD(2006.5204,3,21,13,0)="   2: Required, but may be left 'empty' when not known"
^DD(2006.5204,3,21,14,0)="   3: Optional"
^DD(2006.5204,3,21,15,0)=" "
^DD(2006.5204,3,21,16,0)="Any of these numeric codes may be followed by a letter C"
^DD(2006.5204,3,21,17,0)="to indicate that the classification is conditional."
^DD(2006.5204,3,21,18,0)="When this is the case, the DICOM standard spells out"
^DD(2006.5204,3,21,19,0)="the conditions when the data element is required,"
^DD(2006.5204,3,21,20,0)="and when not."
^DD(2006.5204,3,"DT")="2981113"
^DD(2006.5204,4,0)="VALUE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5204,4,3)="If a fixed value is to be transmitted, enter that value."
^DD(2006.5204,4,21,0)="^^7^7^3000218^^"
^DD(2006.5204,4,21,1,0)="The value of this field, if non-empty, is the"
^DD(2006.5204,4,21,2,0)="value that will be transmitted for this data element."
^DD(2006.5204,4,21,3,0)="Normally, a value would be derived from the information"
^DD(2006.5204,4,21,4,0)="that pertains to the patient or study at hand, in"
^DD(2006.5204,4,21,5,0)="which case this field is left empty, but sometimes"
^DD(2006.5204,4,21,6,0)="the value to be transmitted is a fixed value,"
^DD(2006.5204,4,21,7,0)="in which case a value is entered in this field."
^DD(2006.5204,4,"DT")="2981113"
^DD(2006.5204,5,0)="POINTER^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5204,5,3)="Identify the start of the sequence for this element (if any)."
^DD(2006.5204,5,21,0)="^^6^6^3000218^^"
^DD(2006.5204,5,21,1,0)="The value of this field is a pointer to the entry"
^DD(2006.5204,5,21,2,0)="in this list of data elements that is the start of the"
^DD(2006.5204,5,21,3,0)="sequence to which the current data element belongs."
^DD(2006.5204,5,21,4,0)=" "
^DD(2006.5204,5,21,5,0)="If the current data element is not part of a sequence,"
^DD(2006.5204,5,21,6,0)="this field will be left empty."
^DD(2006.5204,5,"DT")="2981113"
^DD(2006.5204,"B","NAME",2)=""
^DD(2006.5204,"B","POINTER",5)=""
^DD(2006.5204,"B","SCUSCP",3)=""
^DD(2006.5204,"B","TAG",.01)=""
^DD(2006.5204,"B","VALUE",4)=""
^DD(2006.5204,"GL",0,1,.01)=""
^DD(2006.5204,"GL",0,2,2)=""
^DD(2006.5204,"GL",0,3,3)=""
^DD(2006.5204,"GL",0,4,4)=""
^DD(2006.5204,"GL",0,5,5)=""
^DD(2006.53,0)="FIELD^^5^5"
^DD(2006.53,0,"DDA")="N"
^DD(2006.53,0,"DT")="3000218"
^DD(2006.53,0,"IX","B",2006.53,.01)=""
^DD(2006.53,0,"IX","C",2006.53,2)=""
^DD(2006.53,0,"NM","DICOM UID DICTIONARY")=""
^DD(2006.53,0,"VR")="3.0"
^DD(2006.53,0,"VRPK")="IMAGING"
^DD(2006.53,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.53,.01,1,0)="^.1"
^DD(2006.53,.01,1,1,0)="2006.53^B"
^DD(2006.53,.01,1,1,1)="S ^MAGDICOM(2006.53,""B"",$E(X,1,30),DA)="""""
^DD(2006.53,.01,1,1,2)="K ^MAGDICOM(2006.53,""B"",$E(X,1,30),DA)"
^DD(2006.53,.01,3)="Copy the name of this UID from the DICOM standard."
^DD(2006.53,.01,21,0)="^^3^3^3000218^"
^DD(2006.53,.01,21,1,0)="The value of this field is the name of the UID."
^DD(2006.53,.01,21,2,0)="(A UID is an Unique IDentifier.)"
^DD(2006.53,.01,21,3,0)="Names of UIDs are defined in the DICOM standard."
^DD(2006.53,.01,"DT")="3000218"
^DD(2006.53,2,0)="UID CODE^F^^0;2^K:$L(X)>64!($L(X)<1) X"
^DD(2006.53,2,1,0)="^.1"
^DD(2006.53,2,1,1,0)="2006.53^C"
^DD(2006.53,2,1,1,1)="S ^MAGDICOM(2006.53,""C"",$E(X,1,30),DA)="""""
^DD(2006.53,2,1,1,2)="K ^MAGDICOM(2006.53,""C"",$E(X,1,30),DA)"
^DD(2006.53,2,1,1,"DT")="2990830"
^DD(2006.53,2,3)="Enter the UID code."
^DD(2006.53,2,21,0)="^^7^7^3000218^"
^DD(2006.53,2,21,1,0)="The value of this field is a numeric code that uniquely identifies"
^DD(2006.53,2,21,2,0)="an object."
^DD(2006.53,2,21,3,0)="The code consists of an indeterminate number of integer numbers,"
^DD(2006.53,2,21,4,0)="separated by dots."
^DD(2006.53,2,21,5,0)="The DICOM standard defines a number of such unique identifiers;"
^DD(2006.53,2,21,6,0)="vendors and other organizations may create their own unique identifiers"
^DD(2006.53,2,21,7,0)="by requesting an 'UID-root' from their national standards organization."
^DD(2006.53,2,"DT")="2990830"
^DD(2006.53,3,0)="FUNCTION^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(2006.53,3,3)="Indicate the usage for this UID."
^DD(2006.53,3,"DT")="3000218"
^DD(2006.53,4,0)="METAFLAG^S^0:Normal UID;1:Meta UID;^0;4^Q"
^DD(2006.53,4,3)="Indicate whether or not this UID is a Meta UID."
^DD(2006.53,4,21,0)="^^3^3^3000218^"
^DD(2006.53,4,21,1,0)="The value of this field is a code that specifies whether"
^DD(2006.53,4,21,2,0)="this UID is a 'normal' UID, or a Meta UID."
^DD(2006.53,4,21,3,0)="A Meta-UID has Sub-UIDs."
^DD(2006.53,4,"DT")="3000218"
^DD(2006.53,5,0)="SUB UID^2006.5305A^^1;0"
^DD(2006.53,"B","FUNCTION",3)=""
^DD(2006.53,"B","METAFLAG",4)=""
^DD(2006.53,"B","NAME",.01)=""
^DD(2006.53,"B","SUB UID",5)=""
^DD(2006.53,"B","UID CODE",2)=""
^DD(2006.53,"GL",0,1,.01)=""
^DD(2006.53,"GL",0,2,2)=""
^DD(2006.53,"GL",0,3,3)=""
^DD(2006.53,"GL",0,4,4)=""
^DD(2006.53,"GL",1,0,5)=""
^DD(2006.53,"IX",.01)=""
^DD(2006.53,"IX",2)=""
^DD(2006.53,"RQ",.01)=""
^DD(2006.53,"SB",2006.5305,5)=""
^DD(2006.5305,0)="SUB UID SUB-FIELD^^2^2"
^DD(2006.5305,0,"DT")="2990830"
^DD(2006.5305,0,"IX","B",2006.5305,.01)=""
^DD(2006.5305,0,"IX","C",2006.5305,2)=""
^DD(2006.5305,0,"NM","SUB UID")=""
^DD(2006.5305,0,"UP")="2006.53"
^DD(2006.5305,.01,0)="NAME^F^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5305,.01,1,0)="^.1"
^DD(2006.5305,.01,1,1,0)="2006.5305^B"
^DD(2006.5305,.01,1,1,1)="S ^MAGDICOM(2006.53,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.5305,.01,1,1,2)="K ^MAGDICOM(2006.53,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.5305,.01,3)="Enter the name for this UID."
^DD(2006.5305,.01,21,0)="^^3^3^3000218^"
^DD(2006.5305,.01,21,1,0)="The value of this field is the name of the UID."
^DD(2006.5305,.01,21,2,0)="(A UID is an Unique IDentifier.)"
^DD(2006.5305,.01,21,3,0)="Names of UIDs are defined in the DICOM standard."
^DD(2006.5305,.01,"DT")="2990830"
^DD(2006.5305,2,0)="UID CODE^F^^0;2^K:$L(X)>64!($L(X)<1) X"
^DD(2006.5305,2,1,0)="^.1"
^DD(2006.5305,2,1,1,0)="2006.5305^C"
^DD(2006.5305,2,1,1,1)="S ^MAGDICOM(2006.53,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(2006.5305,2,1,1,2)="K ^MAGDICOM(2006.53,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(2006.5305,2,1,1,"DT")="2990830"
^DD(2006.5305,2,3)="Enter the UID code."
^DD(2006.5305,2,21,0)="^^7^7^3000218^"
^DD(2006.5305,2,21,1,0)="The value of this field is a numeric code that uniquely identifies"
^DD(2006.5305,2,21,2,0)="an object."
^DD(2006.5305,2,21,3,0)="The code consists of an indeterminate number of integer numbers,"
^DD(2006.5305,2,21,4,0)="separated by dots."
^DD(2006.5305,2,21,5,0)="The DICOM standard defines a number of such unique identifiers;"
^DD(2006.5305,2,21,6,0)="vendors and other organizations may create their own unique identifiers"
^DD(2006.5305,2,21,7,0)="by requesting an 'UID-root' from their national standards organization."
^DD(2006.5305,2,"DT")="2990830"
^DD(2006.5305,"B","NAME",.01)=""
^DD(2006.5305,"B","UID CODE",2)=""
^DD(2006.5305,"GL",0,1,.01)=""
^DD(2006.5305,"GL",0,2,2)=""
^DD(2006.5305,"IX",.01)=""
^DD(2006.5305,"IX",2)=""
^DD(2006.531,0)="FIELD^^3^3"
^DD(2006.531,0,"DDA")="N"
^DD(2006.531,0,"DT")="2981113"
^DD(2006.531,0,"IX","B",2006.531,.01)=""
^DD(2006.531,0,"NM","EXTENDED SOP NEGOTIATION")=""
^DD(2006.531,0,"VR")="3.0"
^DD(2006.531,0,"VRPK")="IMAGING"
^DD(2006.531,.01,0)="UIDNAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2006.531,.01,1,0)="^.1"
^DD(2006.531,.01,1,1,0)="2006.531^B"
^DD(2006.531,.01,1,1,1)="S ^MAGDICOM(2006.531,""B"",$E(X,1,30),DA)="""""
^DD(2006.531,.01,1,1,2)="K ^MAGDICOM(2006.531,""B"",$E(X,1,30),DA)"
^DD(2006.531,.01,3)="Enter the name of a SOP-class."
^DD(2006.531,.01,21,0)="^^3^3^3000218^^^^"
^DD(2006.531,.01,21,1,0)="The value of this field is the name of a SOP-class"
^DD(2006.531,.01,21,2,0)="for which 'Extended SOP Negotiation' is supported."
^DD(2006.531,.01,21,3,0)=" "
^DD(2006.531,.01,23,0)="^^1^1^3000218^^^"
^DD(2006.531,.01,23,1,0)="^DESC"
^DD(2006.531,.01,"DT")="2981113"
^DD(2006.531,2,0)="READCODE^F^^0;2^K:$L(X)>17!($L(X)<1) X"
^DD(2006.531,2,3)="Enter the name of the entry point (TAG.ROUTINE) to perform read operations."
^DD(2006.531,2,8)="@"
^DD(2006.531,2,8.5)="@"
^DD(2006.531,2,9)="@"
^DD(2006.531,2,21,0)="^.001^6^6^3001004^^^^"
^DD(2006.531,2,21,1,0)="The value of this field is the name of the entry-point"
^DD(2006.531,2,21,2,0)="that will be called as a subroutine when information"
^DD(2006.531,2,21,3,0)="is to be read for this SOP-class."
^DD(2006.531,2,21,4,0)=" "
^DD(2006.531,2,21,5,0)="In the value of this field, the caret that would normally"
^DD(2006.531,2,21,6,0)="separate the label from the routine-name is replaced by a dot."
^DD(2006.531,2,"DT")="2981113"
^DD(2006.531,3,0)="WRITECODE^F^^0;3^K:$L(X)>17!($L(X)<1) X"
^DD(2006.531,3,3)="Enter the name of the entry point (TAG.ROUTINE) to perform write operations."
^DD(2006.531,3,8)="@"
^DD(2006.531,3,8.5)="@"
^DD(2006.531,3,9)="@"
^DD(2006.531,3,21,0)="^^6^6^3000218^^^"
^DD(2006.531,3,21,1,0)="The value of this field is the name of the entry-point"
^DD(2006.531,3,21,2,0)="that will be called as a subroutine when information"
^DD(2006.531,3,21,3,0)="is to be written for this SOP-class."
^DD(2006.531,3,21,4,0)=" "
^DD(2006.531,3,21,5,0)="In the value of this field, the caret that would normally"
^DD(2006.531,3,21,6,0)="separate the label from the routine-name is replaced by a dot."
^DD(2006.531,3,"DT")="2981113"
^DD(2006.531,"B","READCODE",2)=""
^DD(2006.531,"B","UIDNAME",.01)=""
^DD(2006.531,"B","WRITECODE",3)=""
^DD(2006.531,"GL",0,1,.01)=""
^DD(2006.531,"GL",0,2,2)=""
^DD(2006.531,"GL",0,3,3)=""
^DD(2006.531,"IX",.01)=""
^DD(2006.531,"RQ",.01)=""
^DD(2006.532,0)="FIELD^^4^4"
^DD(2006.532,0,"DT")="3050114"
^DD(2006.532,0,"NM","DICOM SOP CLASS")=""
^DD(2006.532,0,"PT",2005,251)=""
^DD(2006.532,0,"PT",2005.1,251)=""
^DD(2006.532,0,"PT",2006.532,3)=""
^DD(2006.532,.01,0)="SOP CLASS UID^RF^^0;1^K:$L(X)>64!($L(X)<1)!'($TR(X,""1234567890."")="""") X"
^DD(2006.532,.01,1,0)="^.1^^0"
^DD(2006.532,.01,3)="Enter the SOP Class that was used to acquire an image."
^DD(2006.532,.01,21,0)="^^6^6^3050111^"
^DD(2006.532,.01,21,1,0)="The value of this field is a DICOM UID."
^DD(2006.532,.01,21,2,0)="A unique identifier (UID) in DICOM is a string of up to 64 characters"
^DD(2006.532,.01,21,3,0)="long that consists of only digits and periods."
^DD(2006.532,.01,21,4,0)=" "
^DD(2006.532,.01,21,5,0)="The UIDs that are stored in this file identify the SOP Classes"
^DD(2006.532,.01,21,6,0)="that are being used for Image Acquisition."
^DD(2006.532,.01,"DT")="3050111"
^DD(2006.532,2,0)="SOP CLASS NAME^RF^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(2006.532,2,3)="Enter the name of this SOP Class."
^DD(2006.532,2,21,0)="^^4^4^3050114^"
^DD(2006.532,2,21,1,0)="The value of this field is a string. This string identifies"
^DD(2006.532,2,21,2,0)="a DICOM SOP Class."
^DD(2006.532,2,21,3,0)=" "
^DD(2006.532,2,21,4,0)="Valid names for SOP Classes are defined in the DICOM Standard."
^DD(2006.532,2,"DT")="3050114"
^DD(2006.532,3,0)="EQUIVALENCE CLASS^P2006.532'^MAG(2006.532,^0;3^Q"
^DD(2006.532,3,3)="If there is an equivalent SOP Class, enter its identification."
^DD(2006.532,3,21,0)="^^6^6^3050114^"
^DD(2006.532,3,21,1,0)="The value of this field is a pointer to another entry in this same table."
^DD(2006.532,3,21,2,0)="If the SOP Class that is described in the current record is"
^DD(2006.532,3,21,3,0)="equivalent to another one, the value of this field identifies"
^DD(2006.532,3,21,4,0)="this other SOP Class."
^DD(2006.532,3,21,5,0)=" "
^DD(2006.532,3,21,6,0)="If there is no equivalent SOP Class, this field is empty."
^DD(2006.532,3,"DT")="3050114"
^DD(2006.532,4,0)="ACTIVE^RS^A:Active;R:Retired;^0;4^Q"
^DD(2006.532,4,3)="Indicate whether the current entry is Active or Retired."
^DD(2006.532,4,21,0)="^^6^6^3050114^"
^DD(2006.532,4,21,1,0)="The value of this field is a code that indicates whether the"
^DD(2006.532,4,21,2,0)="SOP Class that is described in the current entry is active or"
^DD(2006.532,4,21,3,0)="retired."
^DD(2006.532,4,21,4,0)=" "
^DD(2006.532,4,21,5,0)="Retired entries cannot be removed from this table (because"
^DD(2006.532,4,21,6,0)="they may still be ""pointed to"")."
^DD(2006.532,4,"DT")="3050114"
^DD(2006.532,"B","ACTIVE",4)=""
^DD(2006.532,"B","EQUIVALENCE CLASS",3)=""
^DD(2006.532,"B","SOP CLASS NAME",2)=""
^DD(2006.532,"B","SOP CLASS UID",.01)=""
^DD(2006.532,"GL",0,1,.01)=""
^DD(2006.532,"GL",0,2,2)=""
^DD(2006.532,"GL",0,3,3)=""
^DD(2006.532,"GL",0,4,4)=""
^DD(2006.532,"RQ",.01)=""
^DD(2006.532,"RQ",2)=""
^DD(2006.532,"RQ",4)=""
^DD(2006.54,0)="FIELD^^3^3"
^DD(2006.54,0,"DDA")="N"
^DD(2006.54,0,"DT")="3000218"
^DD(2006.54,0,"IX","B",2006.54,.01)=""
^DD(2006.54,0,"NM","PDU TYPE")=""
^DD(2006.54,0,"VR")="3.0"
^DD(2006.54,0,"VRPK")="IMAGING"
^DD(2006.54,.01,0)="CODE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.54,.01,1,0)="^.1"
^DD(2006.54,.01,1,1,0)="2006.54^B"
^DD(2006.54,.01,1,1,1)="S ^MAGDICOM(2006.54,""B"",$E(X,1,30),DA)="""""
^DD(2006.54,.01,1,1,2)="K ^MAGDICOM(2006.54,""B"",$E(X,1,30),DA)"
^DD(2006.54,.01,3)="Enter a (hexadecimal) code for a PDU (nnnH)."
^DD(2006.54,.01,21,0)="^^5^5^3000218^^"
^DD(2006.54,.01,21,1,0)="The value of this field is a (hexadecimal) code for the"
^DD(2006.54,.01,21,2,0)="PDU (Protocol Data Unit) that is defined in this entry."
^DD(2006.54,.01,21,3,0)=" "
^DD(2006.54,.01,21,4,0)="This code is formatted as a number of hexadecimal digits,"
^DD(2006.54,.01,21,5,0)="followed by a capital letter H."
^DD(2006.54,.01,"DT")="3000218"
^DD(2006.54,2,0)="NAME^RF^^0;2^K:$L(X)>63!($L(X)<1) X"
^DD(2006.54,2,3)="Enter the name of this PDU."
^DD(2006.54,2,21,0)="^^2^2^3000218^"
^DD(2006.54,2,21,1,0)="The value of this field is the name of the PDU"
^DD(2006.54,2,21,2,0)="(Protocol Data Unit) that is defined in this entry."
^DD(2006.54,2,"DT")="3000218"
^DD(2006.54,3,0)="REFERENCE^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(2006.54,3,3)="Enter the chapter in the DICOM standard where this PDU is defined."
^DD(2006.54,3,21,0)="^^2^2^3000218^"
^DD(2006.54,3,21,1,0)="The value of this field identifies the chapter and verse in the"
^DD(2006.54,3,21,2,0)="DICOM standard where this PDU (Protocol Data Unit) is defined."
^DD(2006.54,3,"DT")="3000218"
^DD(2006.54,"B","CODE",.01)=""
^DD(2006.54,"B","NAME",2)=""
^DD(2006.54,"B","REFERENCE",3)=""
^DD(2006.54,"GL",0,1,.01)=""
^DD(2006.54,"GL",0,2,2)=""
^DD(2006.54,"GL",0,3,3)=""
^DD(2006.54,"IX",.01)=""
^DD(2006.54,"RQ",.01)=""
^DD(2006.54,"RQ",2)=""
^DD(2006.55,0)="FIELD^^2^2"
^DD(2006.55,0,"DDA")="N"
^DD(2006.55,0,"DT")="3020605"
^DD(2006.55,0,"IX","C",2006.552,2)=""
^DD(2006.55,0,"IX","D",2006.552,3)=""
^DD(2006.55,0,"IX","E",2006.552,7)=""
^DD(2006.55,0,"NM","DICOM WORKLIST PATIENT")=""
^DD(2006.55,0,"VR")="3.0"
^DD(2006.55,0,"VRPK")="MAG"
^DD(2006.55,.01,0)="DIVISION^RP4'XI^DIC(4,^0;1^S DINUM=X"
^DD(2006.55,.01,1,0)="^.1^^0"
^DD(2006.55,.01,3)="Enter the name of the division."
^DD(2006.55,.01,21,0)="^^3^3^2990202^^^"
^DD(2006.55,.01,21,1,0)="The value of this field is a pointer into the INSTITUTION file (#4)."
^DD(2006.55,.01,21,2,0)="The pointed to location is the division where a study for a patient"
^DD(2006.55,.01,21,3,0)="is scheduled to be performed."
^DD(2006.55,.01,"DT")="2990203"
^DD(2006.55,2,0)="PATIENT^2006.552PA^^1;0"
^DD(2006.55,"B","DIVISION",.01)=""
^DD(2006.55,"B","PATIENT",2)=""
^DD(2006.55,"GL",0,1,.01)=""
^DD(2006.55,"GL",1,0,2)=""
^DD(2006.55,"RQ",.01)=""
^DD(2006.55,"SB",2006.552,2)=""
^DD(2006.552,0)="PATIENT SUB-FIELD^^12^13"
^DD(2006.552,0,"DT")="3020605"
^DD(2006.552,0,"IX","B",2006.552,.01)=""
^DD(2006.552,0,"IX","C",2006.552,2)=""
^DD(2006.552,0,"IX","D",2006.552,3)=""
^DD(2006.552,0,"IX","E",2006.552,7)=""
^DD(2006.552,0,"NM","PATIENT")=""
^DD(2006.552,0,"UP")="2006.55"
^DD(2006.552,.001,0)="PATIENT-NUMBER^P2'^DPT(^ ^Q"
^DD(2006.552,.001,3)="Enter the name of the patient."
^DD(2006.552,.001,21,0)="^^2^2^3000218^^"
^DD(2006.552,.001,21,1,0)="The value of this field is the internal entry number of the patient"
^DD(2006.552,.001,21,2,0)="for whom the study is scheduled in the VistA Database."
^DD(2006.552,.001,"DT")="3000218"
^DD(2006.552,.01,0)="SITE^RP4'^DIC(4,^0;1^Q"
^DD(2006.552,.01,1,0)="^.1^^0"
^DD(2006.552,.01,1,1,0)="2006.552^B"
^DD(2006.552,.01,1,1,1)="S ^MAGDWLST(2006.55,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.552,.01,1,1,2)="K ^MAGDWLST(2006.55,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.552,.01,3)="Enter the name of the site where this study is to be performed."
^DD(2006.552,.01,21,0)="^^3^3^2990202^^^"
^DD(2006.552,.01,21,1,0)="The value of this field is a pointer into the INSTITUTION file (#4)."
^DD(2006.552,.01,21,2,0)="The pointed to location is the division where a study for a patient"
^DD(2006.552,.01,21,3,0)="is scheduled to be performed."
^DD(2006.552,.01,"DT")="3000218"
^DD(2006.552,2,0)="PATIENT NAME^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.552,2,1,0)="^.1"
^DD(2006.552,2,1,1,0)="2006.552^C"
^DD(2006.552,2,1,1,1)="S ^MAGDWLST(2006.55,DA(1),1,""C"",$E(X,1,30),DA)="""""
^DD(2006.552,2,1,1,2)="K ^MAGDWLST(2006.55,DA(1),1,""C"",$E(X,1,30),DA)"
^DD(2006.552,2,1,1,"%D",0)="^^2^2^3001204^"
^DD(2006.552,2,1,1,"%D",1,0)="This cross reference keeps track of which patients (name) are"
^DD(2006.552,2,1,1,"%D",2,0)="seen at which location."
^DD(2006.552,2,1,1,"DT")="3001204"
^DD(2006.552,2,3)="Enter the name of the patient."
^DD(2006.552,2,21,0)="^^7^7^3000218^^"
^DD(2006.552,2,21,1,0)="The value of this field is the name of the patient"
^DD(2006.552,2,21,2,0)="for whom the study is scheduled."
^DD(2006.552,2,21,3,0)=" "
^DD(2006.552,2,21,4,0)="This value if copied from the VistA Database, so that"
^DD(2006.552,2,21,5,0)="worklist queries can also be performed when the network"
^DD(2006.552,2,21,6,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,2,21,7,0)="is not available."
^DD(2006.552,2,"DT")="3001204"
^DD(2006.552,3,0)="PID^RF^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(2006.552,3,1,0)="^.1"
^DD(2006.552,3,1,1,0)="2006.552^D"
^DD(2006.552,3,1,1,1)="S ^MAGDWLST(2006.55,DA(1),1,""D"",$E(X,1,30),DA)="""""
^DD(2006.552,3,1,1,2)="K ^MAGDWLST(2006.55,DA(1),1,""D"",$E(X,1,30),DA)"
^DD(2006.552,3,1,1,"%D",0)="^^2^2^3001204^"
^DD(2006.552,3,1,1,"%D",1,0)="This cross reference keeps track of which patients (ID) are"
^DD(2006.552,3,1,1,"%D",2,0)="seen at which location."
^DD(2006.552,3,1,1,"DT")="3001204"
^DD(2006.552,3,3)="Enter the Patient ID"
^DD(2006.552,3,21,0)="^^11^11^3001006^^"
^DD(2006.552,3,21,1,0)="The value of this field is the value that is transmitted"
^DD(2006.552,3,21,2,0)="for DICOM element 0010,0020."
^DD(2006.552,3,21,3,0)="Typically, the value of this field is equal to"
^DD(2006.552,3,21,4,0)="the Social Security Number of the patient"
^DD(2006.552,3,21,5,0)="for whom the study is scheduled."
^DD(2006.552,3,21,6,0)="(Without the dashes between the number-groups.)"
^DD(2006.552,3,21,7,0)=" "
^DD(2006.552,3,21,8,0)="This value is copied from the VistA Database, so that"
^DD(2006.552,3,21,9,0)="worklist queries can also be performed when the network"
^DD(2006.552,3,21,10,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,3,21,11,0)="is not available."
^DD(2006.552,3,"DT")="3001204"
^DD(2006.552,4,0)="SSN^RF^^0;4^K:$L(X)>11!($L(X)<1) X"
^DD(2006.552,4,3)="Enter the patient's SSN"
^DD(2006.552,4,21,0)="^^8^8^3000218^^"
^DD(2006.552,4,21,1,0)="The value of this field is the Social Security Number of the patient"
^DD(2006.552,4,21,2,0)="for whom the study is scheduled."
^DD(2006.552,4,21,3,0)="(With the dashes between the number-groups.)"
^DD(2006.552,4,21,4,0)=" "
^DD(2006.552,4,21,5,0)="This value if copied from the VistA Database, so that"
^DD(2006.552,4,21,6,0)="worklist queries can also be performed when the network"
^DD(2006.552,4,21,7,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,4,21,8,0)="is not available."
^DD(2006.552,4,"DT")="2990311"
^DD(2006.552,5,0)="DOB^RD^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.552,5,3)="Enter the patient's date of birth."
^DD(2006.552,5,21,0)="^^7^7^3000218^^"
^DD(2006.552,5,21,1,0)="The value of this field is the date of birth of the patient"
^DD(2006.552,5,21,2,0)="for whom the study is scheduled."
^DD(2006.552,5,21,3,0)=" "
^DD(2006.552,5,21,4,0)="This value if copied from the VistA Database, so that"
^DD(2006.552,5,21,5,0)="worklist queries can also be performed when the network"
^DD(2006.552,5,21,6,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,5,21,7,0)="is not available."
^DD(2006.552,5,"DT")="2990311"
^DD(2006.552,6,0)="GENDER^S^M:Male;F:Female;U:Unknown;^0;6^Q"
^DD(2006.552,6,3)="Enter the patient's gender."
^DD(2006.552,6,21,0)="^^7^7^3000218^^"
^DD(2006.552,6,21,1,0)="The value of this field is the gender of the patient"
^DD(2006.552,6,21,2,0)="for whom the study is scheduled."
^DD(2006.552,6,21,3,0)=" "
^DD(2006.552,6,21,4,0)="This value if copied from the VistA Database, so that"
^DD(2006.552,6,21,5,0)="worklist queries can also be performed when the network"
^DD(2006.552,6,21,6,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,6,21,7,0)="is not available."
^DD(2006.552,6,"DT")="2990311"
^DD(2006.552,7,0)="SHORT ID^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(2006.552,7,1,0)="^.1"
^DD(2006.552,7,1,1,0)="2006.552^E"
^DD(2006.552,7,1,1,1)="S ^MAGDWLST(2006.55,DA(1),1,""E"",$E(X,1,30),DA)="""""
^DD(2006.552,7,1,1,2)="K ^MAGDWLST(2006.55,DA(1),1,""E"",$E(X,1,30),DA)"
^DD(2006.552,7,1,1,"%D",0)="^^2^2^3001204^"
^DD(2006.552,7,1,1,"%D",1,0)="This cross reference keeps track of which patients (short ID)"
^DD(2006.552,7,1,1,"%D",2,0)="are seen at which location."
^DD(2006.552,7,1,1,"DT")="3001204"
^DD(2006.552,7,3)="Enter any other IDs for this patient."
^DD(2006.552,7,21,0)="^^13^13^3001006^^"
^DD(2006.552,7,21,1,0)="The value of this field is the value that is transmitted"
^DD(2006.552,7,21,2,0)="for DICOM element 0010,1000."
^DD(2006.552,7,21,3,0)="Typically, the value of this field is equal to"
^DD(2006.552,7,21,4,0)="the first letter of the last name of the patient, followed by"
^DD(2006.552,7,21,5,0)="the last four digits of the Social Security Number of the patient"
^DD(2006.552,7,21,6,0)="for whom the study is scheduled."
^DD(2006.552,7,21,7,0)=""
^DD(2006.552,7,21,8,0)="Sometimes, this data element is also referred to as the ""Quick ID""."
^DD(2006.552,7,21,9,0)=" "
^DD(2006.552,7,21,10,0)="This value is copied from the VistA Database, so that"
^DD(2006.552,7,21,11,0)="worklist queries can also be performed when the network"
^DD(2006.552,7,21,12,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,7,21,13,0)="is not available."
^DD(2006.552,7,"DT")="3001204"
^DD(2006.552,8,0)="RACE^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(2006.552,8,3)="Enter the patient's race."
^DD(2006.552,8,21,0)="^^7^7^3001024^^"
^DD(2006.552,8,21,1,0)="The value of this field is the race of the patient"
^DD(2006.552,8,21,2,0)="for whom the study is scheduled."
^DD(2006.552,8,21,3,0)=" "
^DD(2006.552,8,21,4,0)="This value if copied from the VistA Database, so that"
^DD(2006.552,8,21,5,0)="worklist queries can also be performed when the network"
^DD(2006.552,8,21,6,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,8,21,7,0)="is not available."
^DD(2006.552,8,"DT")="2990311"
^DD(2006.552,9,0)="PREGNANCY STATUS^S^1:Not pregnant;2:Possibly pregnant;3:Definitely pregnant;4:Unknown;^0;9^Q"
^DD(2006.552,9,3)="Indicate whether or not the patient is pregnant."
^DD(2006.552,9,21,0)="^^7^7^3001024^^"
^DD(2006.552,9,21,1,0)="The value of this field is the pregnancy status of the patient"
^DD(2006.552,9,21,2,0)="for whom the study is scheduled."
^DD(2006.552,9,21,3,0)=" "
^DD(2006.552,9,21,4,0)="This value if copied from the VistA Database, so that"
^DD(2006.552,9,21,5,0)="worklist queries can also be performed when the network"
^DD(2006.552,9,21,6,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,9,21,7,0)="is not available."
^DD(2006.552,9,"DT")="3001011"
^DD(2006.552,10,0)="CURRENT PATIENT LOCATION^F^^0;10^K:$L(X)>20!($L(X)<1) X"
^DD(2006.552,10,3)="Indicate where the patient currently is located."
^DD(2006.552,10,21,0)="^^7^7^3001024^^"
^DD(2006.552,10,21,1,0)="The value of this field is the location of the patient"
^DD(2006.552,10,21,2,0)="for whom the study is scheduled."
^DD(2006.552,10,21,3,0)=" "
^DD(2006.552,10,21,4,0)="This value if copied from the VistA Database, so that"
^DD(2006.552,10,21,5,0)="worklist queries can also be performed when the network"
^DD(2006.552,10,21,6,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.552,10,21,7,0)="is not available."
^DD(2006.552,10,"DT")="3001011"
^DD(2006.552,11,0)="PATIENT ADDRESS^F^^0;11^K:$L(X)>30!($L(X)<1) X"
^DD(2006.552,11,3)="Enter the Patient's address, 1-30 characters."
^DD(2006.552,11,21,0)="^^1^1^3020605^"
^DD(2006.552,11,21,1,0)="This field stores the patient address."
^DD(2006.552,11,"DT")="3020401"
^DD(2006.552,12,0)="INTEGRATION CONTROL NUMBER^F^^0;12^K:$L(X)>30!($L(X)<1) X"
^DD(2006.552,12,3)="Enter the Integration Control Number for this patient."
^DD(2006.552,12,21,0)="^.001^8^8^3020605^^^"
^DD(2006.552,12,21,1,0)="The value of this field is an Integration Control Number."
^DD(2006.552,12,21,2,0)=" "
^DD(2006.552,12,21,3,0)="The format and possible values for this field are determined by the"
^DD(2006.552,12,21,4,0)="software that maintains the Master Patient Index."
^DD(2006.552,12,21,5,0)=" "
^DD(2006.552,12,21,6,0)="Values for this field are obtained by calling $$GETICN^MPIF001(dfn) (only"
^DD(2006.552,12,21,7,0)="the first piece of the return value is retained (ICNVICN), not the"
^DD(2006.552,12,21,8,0)="checksum)."
^DD(2006.552,12,"DT")="3020605"
^DD(2006.552,"B","CURRENT PATIENT LOCATION",10)=""
^DD(2006.552,"B","DOB",5)=""
^DD(2006.552,"B","GENDER",6)=""
^DD(2006.552,"B","INTEGRATION CONTROL NUMBER",12)=""
^DD(2006.552,"B","PATIENT ADDRESS",11)=""
^DD(2006.552,"B","PATIENT NAME",2)=""
^DD(2006.552,"B","PATIENT-NUMBER",.001)=""
^DD(2006.552,"B","PID",3)=""
^DD(2006.552,"B","PREGNANCY STATUS",9)=""
^DD(2006.552,"B","RACE",8)=""
^DD(2006.552,"B","SHORT ID",7)=""
^DD(2006.552,"B","SITE",.01)=""
^DD(2006.552,"B","SSN",4)=""
^DD(2006.552,"GL",0,1,.01)=""
^DD(2006.552,"GL",0,2,2)=""
^DD(2006.552,"GL",0,3,3)=""
^DD(2006.552,"GL",0,4,4)=""
^DD(2006.552,"GL",0,5,5)=""
^DD(2006.552,"GL",0,6,6)=""
^DD(2006.552,"GL",0,7,7)=""
^DD(2006.552,"GL",0,8,8)=""
^DD(2006.552,"GL",0,9,9)=""
^DD(2006.552,"GL",0,10,10)=""
^DD(2006.552,"GL",0,11,11)=""
^DD(2006.552,"GL",0,12,12)=""
^DD(2006.552,"IX",.01)=""
^DD(2006.552,"IX",2)=""
^DD(2006.552,"IX",3)=""
^DD(2006.552,"IX",7)=""
^DD(2006.552,"RQ",.01)=""
^DD(2006.552,"RQ",2)=""
^DD(2006.552,"RQ",3)=""
^DD(2006.552,"RQ",4)=""
^DD(2006.552,"RQ",5)=""
^DD(2006.56,0)="FIELD^^2^2"
^DD(2006.56,0,"DDA")="N"
^DD(2006.56,0,"DT")="3000218"
^DD(2006.56,0,"IX","AC",2006.562,3)=""
^DD(2006.56,0,"IX","AD",2006.562,4)=""
^DD(2006.56,0,"IX","AF",2006.562,5)=""
^DD(2006.56,0,"IX","C",2006.562,.01)=""
^DD(2006.56,0,"IX","D",2006.562,.01)=""
^DD(2006.56,0,"IX","E",2006.562,.01)=""
^DD(2006.56,0,"IX","F",2006.562,11)=""
^DD(2006.56,0,"IX","S",2006.562,2)=""
^DD(2006.56,0,"NM","DICOM WORKLIST STUDY")=""
^DD(2006.56,0,"VRPK")="MAG"
^DD(2006.56,.01,0)="DIVISION^RP4'XI^DIC(4,^0;1^S DINUM=X"
^DD(2006.56,.01,1,0)="^.1^^0"
^DD(2006.56,.01,3)="Enter the name of the division."
^DD(2006.56,.01,21,0)="^^3^3^2990202^^^"
^DD(2006.56,.01,21,1,0)="The value of this field is a pointer into the INSTITUTION file (#4)."
^DD(2006.56,.01,21,2,0)="The pointed to location is the division where a study for a patient"
^DD(2006.56,.01,21,3,0)="is scheduled to be performed."
^DD(2006.56,.01,"DT")="2990203"
^DD(2006.56,2,0)="STUDY^2006.562A^^1;0"
^DD(2006.56,2,21,0)="^.001^1^1^3060511^^^^"
^DD(2006.56,2,21,1,0)="This subfile holds the studies for the current division."
^DD(2006.56,2,"DT")="2990615"
^DD(2006.56,"B","DIVISION",.01)=""
^DD(2006.56,"B","STUDY",2)=""
^DD(2006.56,"GL",0,1,.01)=""
^DD(2006.56,"GL",1,0,2)=""
^DD(2006.56,"RQ",.01)=""
^DD(2006.56,"SB",2006.562,2)=""
^DD(2006.562,0)="STUDY SUB-FIELD^^23^22"
^DD(2006.562,0,"DT")="3000218"
^DD(2006.562,0,"IX","S",2006.562,2)=""
^DD(2006.562,0,"NM","STUDY")=""
^DD(2006.562,0,"UP")="2006.56"
^DD(2006.562,.01,0)="SERVICE^RF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(2006.562,.01,1,0)="^.1^^0"
^DD(2006.562,.01,1,1,0)="2006.56^C^MUMPS"
^DD(2006.562,.01,1,1,1)="N ACC S ACC=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",3) S:ACC'="""" ^MAGDWLST(2006.56,""C"",DA(1),X,ACC,DA)="""""
^DD(2006.562,.01,1,1,2)="N ACC S ACC=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",3) K:ACC'="""" ^MAGDWLST(2006.56,""C"",DA(1),X,ACC,DA)"
^DD(2006.562,.01,1,1,"%D",0)="^^1^1^2990312^"
^DD(2006.562,.01,1,1,"%D",1,0)="This cross reference keeps track of which accession numbers belong to which services."
^DD(2006.562,.01,1,1,"DT")="2990312"
^DD(2006.562,.01,1,2,0)="2006.56^D^MUMPS"
^DD(2006.562,.01,1,2,1)="N SID S SID=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",4) S:SID'="""" ^MAGDWLST(2006.56,""D"",DA(1),X,SID,DA)="""""
^DD(2006.562,.01,1,2,2)="N SID S SID=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",4) K:SID'="""" ^MAGDWLST(2006.56,""D"",DA(1),X,SID,DA)"
^DD(2006.562,.01,1,2,"%D",0)="^^1^1^2990312^"
^DD(2006.562,.01,1,2,"%D",1,0)="This cross reference keeps track of which study-IDs belong to which services."
^DD(2006.562,.01,1,2,"DT")="2990312"
^DD(2006.562,.01,1,3,0)="2006.56^E^MUMPS"
^DD(2006.562,.01,1,3,1)="N MOD,TIM,Z S Z=$G(^MAGDWLST(2006.56,DA(1),1,DA,0)),MOD=$P(Z,""^"",10),TIM=$P(X,""^"",5) I MOD'="""",TIM'="""" S ^MAGDWLST(2006.56,""E"",DA(1),X,MOD,TIM,DA)="""""
^DD(2006.562,.01,1,3,2)="N MOD,TIM,Z S Z=$G(^MAGDWLST(2006.56,DA(1),1,DA,0)),MOD=$P(Z,""^"",10),TIM=$P(X,""^"",5) I MOD'="""",TIM'="""" K ^MAGDWLST(2006.56,""E"",DA(1),X,MOD,TIM,DA)"
^DD(2006.562,.01,1,3,"%D",0)="^^1^1^2990312^^"
^DD(2006.562,.01,1,3,"%D",1,0)="This cross reference keeps track of which modalities perform which services, and when these services are scheduled."
^DD(2006.562,.01,1,3,"DT")="2990312"
^DD(2006.562,.01,3)="Enter the name of a service"
^DD(2006.562,.01,21,0)="^.001^2^2^3021105^^^^"
^DD(2006.562,.01,21,1,0)="The value of this field identifies the service to be"
^DD(2006.562,.01,21,2,0)="performed for the patient."
^DD(2006.562,.01,"DT")="3030114"
^DD(2006.562,2,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(2006.562,2,1,0)="^.1"
^DD(2006.562,2,1,1,0)="2006.562^S"
^DD(2006.562,2,1,1,1)="S ^MAGDWLST(2006.56,DA(1),1,""S"",$E(X,1,30),DA)="""""
^DD(2006.562,2,1,1,2)="K ^MAGDWLST(2006.56,DA(1),1,""S"",$E(X,1,30),DA)"
^DD(2006.562,2,1,1,"%D",0)="^^1^1^3001204^"
^DD(2006.562,2,1,1,"%D",1,0)="This cross reference keeps track of which studies belong to which patients."
^DD(2006.562,2,1,1,"DT")="3001204"
^DD(2006.562,2,3)="Enter the name of a patient."
^DD(2006.562,2,21,0)="^^3^3^2990311^"
^DD(2006.562,2,21,1,0)="The value of this field is a pointer into the PATIENT file (#2)."
^DD(2006.562,2,21,2,0)="The patient being pointed to is a patient for whom a study"
^DD(2006.562,2,21,3,0)="being scheduled."
^DD(2006.562,2,"DT")="3001204"
^DD(2006.562,3,0)="ACCESSION^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(2006.562,3,1,0)="^.1^^0"
^DD(2006.562,3,1,1,0)="2006.56^AC^MUMPS"
^DD(2006.562,3,1,1,1)="N SVC S SVC=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",1) I SVC'="""" S ^MAGDWLST(2006.56,""C"",DA(1),SVC,X,DA)="""""
^DD(2006.562,3,1,1,2)="N SVC S SVC=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",1) I SVC'="""" K ^MAGDWLST(2006.56,""C"",DA(1),SVC,X,DA)"
^DD(2006.562,3,1,1,"DT")="2990312"
^DD(2006.562,3,3)="Enter an accession number."
^DD(2006.562,3,21,0)="^^7^7^3000218^^"
^DD(2006.562,3,21,1,0)="The value of this field is the (long) accession number"
^DD(2006.562,3,21,2,0)="for the study being performed."
^DD(2006.562,3,21,3,0)=" "
^DD(2006.562,3,21,4,0)="An accession number is created by encoding the date"
^DD(2006.562,3,21,5,0)="in six digits (ddmmyy), and suffixing a dash and an"
^DD(2006.562,3,21,6,0)="integer number (no leading zeroes) that uniquely identifies the study"
^DD(2006.562,3,21,7,0)="for that date."
^DD(2006.562,3,"DT")="3030114"
^DD(2006.562,4,0)="STUDY ID^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(2006.562,4,1,0)="^.1^^0"
^DD(2006.562,4,1,1,0)="2006.56^AD^MUMPS"
^DD(2006.562,4,1,1,1)="N SVC S SVC=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",1) I SVC'="""" S ^MAGDWLST(2006.56,""D"",DA(1),SVC,X,DA)="""""
^DD(2006.562,4,1,1,2)="N SVC S SVC=$P($G(^MAGDWLST(2006.56,DA(1),1,DA,0)),""^"",1) I SVC'="""" K ^MAGDWLST(2006.56,""D"",DA(1),SVC,X,DA)"
^DD(2006.562,4,1,1,"DT")="2990312"
^DD(2006.562,4,3)="Enter a Study ID."
^DD(2006.562,4,21,0)="^^6^6^3000218^^"
^DD(2006.562,4,21,1,0)="The value of this field is the (short) accession number"
^DD(2006.562,4,21,2,0)="for the study being performed."
^DD(2006.562,4,21,3,0)=" "
^DD(2006.562,4,21,4,0)="A short accession number is an"
^DD(2006.562,4,21,5,0)="integer number (no leading zeroes) that uniquely identifies"
^DD(2006.562,4,21,6,0)="a study during the day on which it occurs."
^DD(2006.562,4,"DT")="3030114"
^DD(2006.562,5,0)="TIMESTAMP^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.562,5,1,0)="^.1^^0"
^DD(2006.562,5,1,1,0)="2006.56^AF^MUMPS"
^DD(2006.562,5,1,1,1)="N MOD,SVC,Z S Z=$G(^MAGDWLST(2006.56,DA(1),1,DA,0)),SVC=$P(Z,""^"",1),MOD=$P(Z,""^"",10) I SVC'="""",MOD'="""" S ^MAGDWLST(2006.56,""E"",DA(1),SVC,MOD,X,DA)="""""
^DD(2006.562,5,1,1,2)="N MOD,SVC,Z S Z=$G(^MAGDWLST(2006.56,DA(1),1,DA,0)),SVC=$P(Z,""^"",1),MOD=$P(Z,""^"",10) I SVC'="""",MOD'="""" K ^MAGDWLST(2006.56,""E"",DA(1),SVC,MOD,X,DA)"
^DD(2006.562,5,1,1,"DT")="2990312"
^DD(2006.562,5,3)="Enter the date and time of the study."
^DD(2006.562,5,21,0)="^^3^3^3000218^^"
^DD(2006.562,5,21,1,0)="The value of this field indicates the date and time"
^DD(2006.562,5,21,2,0)="for which the procedure that is described in this"
^DD(2006.562,5,21,3,0)="entry has been scheduled."
^DD(2006.562,5,"DT")="3030114"
^DD(2006.562,6,0)="PROCEDURE^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(2006.562,6,3)="Enter a code for the procedure to be performed during the study."
^DD(2006.562,6,21,0)="^^5^5^3000218^^"
^DD(2006.562,6,21,1,0)="The value of this field is the internal entry number"
^DD(2006.562,6,21,2,0)="in ^RAMIS(71,... that identifies the procedure"
^DD(2006.562,6,21,3,0)="that is described in this entry."
^DD(2006.562,6,21,4,0)=" "
^DD(2006.562,6,21,5,0)="VA-FileMan file 71 (RAD/NUC MED procedures) is stored in ^RAMIS(71,..."
^DD(2006.562,6,"DT")="2990202"
^DD(2006.562,7,0)="PROCEDURE DESCRIPTION^F^^4;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.562,7,3)="Enter a description of the procedure to be performed."
^DD(2006.562,7,21,0)="^^6^6^3000218^^"
^DD(2006.562,7,21,1,0)="The value of this field is the name of the procedure"
^DD(2006.562,7,21,2,0)="that is described in this entry."
^DD(2006.562,7,21,3,0)="This name is copied from ^RAMIS(71,... so that"
^DD(2006.562,7,21,4,0)="worklist queries can also be performed when the network"
^DD(2006.562,7,21,5,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.562,7,21,6,0)="is not available."
^DD(2006.562,7,"DT")="2990202"
^DD(2006.562,8,0)="CPT CODE^F^^0;8^K:$L(X)>10!($L(X)<1) X"
^DD(2006.562,8,3)="Enter the CPT code for the procedure to be performed."
^DD(2006.562,8,21,0)="^^5^5^3000218^^"
^DD(2006.562,8,21,1,0)="The value of this field is the internal entry number"
^DD(2006.562,8,21,2,0)="in ^ICPT(... that identifies the procedure"
^DD(2006.562,8,21,3,0)="that is described in this entry."
^DD(2006.562,8,21,4,0)=" "
^DD(2006.562,8,21,5,0)="VA-FileMan file 81 (CPT codes) is stored in ^ICPT(..."
^DD(2006.562,8,"DT")="2990202"
^DD(2006.562,9,0)="CPT DESCRIPTION^F^^5;1^K:$L(X)>10!($L(X)<1) X"
^DD(2006.562,9,3)="Enter the description of the CPT code for the procedure to be performed."
^DD(2006.562,9,21,0)="^^9^9^3000218^^"
^DD(2006.562,9,21,1,0)="The value of this field is the name of the procedure"
^DD(2006.562,9,21,2,0)="that is described in this entry."
^DD(2006.562,9,21,3,0)=" "
^DD(2006.562,9,21,4,0)="CPT stands for Current Procedural Terminology."
^DD(2006.562,9,21,5,0)=" "
^DD(2006.562,9,21,6,0)="This name is copied from ^ICPT(... so that"
^DD(2006.562,9,21,7,0)="worklist queries can also be performed when the network"
^DD(2006.562,9,21,8,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.562,9,21,9,0)="is not available."
^DD(2006.562,9,"DT")="2990312"
^DD(2006.562,10,0)="MODALITY^F^^0;10^K:$L(X)>20!($L(X)<1) X"
^DD(2006.562,10,1,0)="^.1^^0"
^DD(2006.562,10,3)="Enter the name of the modality."
^DD(2006.562,10,21,0)="^^43^43^3000218^^"
^DD(2006.562,10,21,1,0)="The value of this field is a list of codes, separated"
^DD(2006.562,10,21,2,0)="by commas, that each identify a modality on which the"
^DD(2006.562,10,21,3,0)="requested procedure can be performed."
^DD(2006.562,10,21,4,0)=" "
^DD(2006.562,10,21,5,0)="Possible codes for modalities are:"
^DD(2006.562,10,21,6,0)="   AS: Angioscopy"
^DD(2006.562,10,21,7,0)="   BI: Biomagnetic imaging"
^DD(2006.562,10,21,8,0)="   CD: Color flow Doppler"
^DD(2006.562,10,21,9,0)="   CF: Cinefluorography"
^DD(2006.562,10,21,10,0)="   CP: Culposcopy"
^DD(2006.562,10,21,11,0)="   CR: Computed Radiography"
^DD(2006.562,10,21,12,0)="   CS: Cystoscopy"
^DD(2006.562,10,21,13,0)="   CT: Computed Tomography"
^DD(2006.562,10,21,14,0)="   DD: Duplex Doppler"
^DD(2006.562,10,21,15,0)="   DF: Digital fluoroscopy"
^DD(2006.562,10,21,16,0)="   DG: Diaphanography"
^DD(2006.562,10,21,17,0)="   DM: Digital microscopy"
^DD(2006.562,10,21,18,0)="   DS: Digital Subtraction Angiography"
^DD(2006.562,10,21,19,0)="   DX: Digital Radiography"
^DD(2006.562,10,21,20,0)="   EC: Echocardiography"
^DD(2006.562,10,21,21,0)="   ES: Endoscopy"
^DD(2006.562,10,21,22,0)="   FA: Fluorescein angiography"
^DD(2006.562,10,21,23,0)="   FS: Fundoscopy"
^DD(2006.562,10,21,24,0)="   IO: Intra-oral Radiology"
^DD(2006.562,10,21,25,0)="   LP: Laparoscopy"
^DD(2006.562,10,21,26,0)="   LS: Laser surface scan"
^DD(2006.562,10,21,27,0)="   MA: Magnetic resonance angiography"
^DD(2006.562,10,21,28,0)="   MG: Mammography"
^DD(2006.562,10,21,29,0)="   MR: Magnetic Resonance"
^DD(2006.562,10,21,30,0)="   MS: Magnetic resonance spectroscopy"
^DD(2006.562,10,21,31,0)="   NM: Nuclear Medicine"
^DD(2006.562,10,21,32,0)="   OT: Other"
^DD(2006.562,10,21,33,0)="   PT: Positron emission tomography (PET)"
^DD(2006.562,10,21,34,0)="   RF: Radio Fluoroscopy"
^DD(2006.562,10,21,35,0)="   RG: Radiographic imaging (conventional film/screen)"
^DD(2006.562,10,21,36,0)="   ST: Single-photon emission computed tomography (SPECT)"
^DD(2006.562,10,21,37,0)="   TG: Thermography"
^DD(2006.562,10,21,38,0)="   US: Ultrasound"
^DD(2006.562,10,21,39,0)="   VF: Videofluorography"
^DD(2006.562,10,21,40,0)="   VL: Visable Light"
^DD(2006.562,10,21,41,0)="   XA: X-Ray Angiography"
^DD(2006.562,10,21,42,0)=" "
^DD(2006.562,10,21,43,0)="These codes are also stored in ^RAMIS(73.1,..."
^DD(2006.562,10,"DT")="3030114"
^DD(2006.562,11,0)="STUDY UID^F^^1;1^K:$L(X)>99!($L(X)<1) X"
^DD(2006.562,11,1,0)="^.1"
^DD(2006.562,11,1,1,0)="2006.56^F^MUMPS"
^DD(2006.562,11,1,1,1)="S ^MAGDWLST(2006.56,""F"",X,DA(1),DA)="""""
^DD(2006.562,11,1,1,2)="K ^MAGDWLST(2006.56,""F"",X,DA(1),DA)"
^DD(2006.562,11,1,1,"%D",0)="^^3^3^2990615^^"
^DD(2006.562,11,1,1,"%D",1,0)="This cross reference keeps track of the Study UIDs."
^DD(2006.562,11,1,1,"%D",2,0)="Since the UIDs are unique, the division is a later subscript"
^DD(2006.562,11,1,1,"%D",3,0)="in this cross reference than in all other cross references on this file."
^DD(2006.562,11,1,1,"DT")="2990615"
^DD(2006.562,11,3)="Enter the unique identifier for the study to be performed."
^DD(2006.562,11,21,0)="^^2^2^3000218^^"
^DD(2006.562,11,21,1,0)="The value of this field is a unique identifier for"
^DD(2006.562,11,21,2,0)="the study that is described in this entry."
^DD(2006.562,11,"DT")="2990615"
^DD(2006.562,12,0)="PATIENT HISTORY^2006.5621A^^2;0"
^DD(2006.562,13,0)="REFERRING PHYSICIAN^F^^3;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.562,13,1,0)="^.1^^0"
^DD(2006.562,13,3)="Enter the name of the referring physician."
^DD(2006.562,13,21,0)="^^2^2^3000218^^"
^DD(2006.562,13,21,1,0)="The value of this field, if any, is the name of the"
^DD(2006.562,13,21,2,0)="physician who sends a patient to another doctor or institution for specialty care or services."
^DD(2006.562,13,"DT")="2990312"
^DD(2006.562,14,0)="ATTENDING PHYSICIAN^F^^3;2^K:$L(X)>20!($L(X)<1) X"
^DD(2006.562,14,3)="Enter the name of the attending physician."
^DD(2006.562,14,21,0)="^^2^2^3000218^^"
^DD(2006.562,14,21,1,0)="The value of this field, if any, is the name of the"
^DD(2006.562,14,21,2,0)="physician who is currently responsible for the care of this patient."
^DD(2006.562,14,"DT")="2990312"
^DD(2006.562,15,0)="REQUESTING PHYSICIAN^F^^3;3^K:$L(X)>20!($L(X)<1) X"
^DD(2006.562,15,3)="Enter the name of the requesting physician"
^DD(2006.562,15,21,0)="^^3^3^3000218^^"
^DD(2006.562,15,21,1,0)="The value of this field, if any, is the name of the"
^DD(2006.562,15,21,2,0)="physician who requested the study that is described"
^DD(2006.562,15,21,3,0)="in this entry."
^DD(2006.562,15,"DT")="2990312"
^DD(2006.562,16,0)="REQUESTED SERVICE^F^^3;4^K:$L(X)>20!($L(X)<1) X"
^DD(2006.562,16,3)="Enter the name of the requested service."
^DD(2006.562,16,21,0)="^^4^4^3000218^^"
^DD(2006.562,16,21,1,0)="The value of this field, if any, is the name of the"
^DD(2006.562,16,21,2,0)="service that was requested for the study that is described"
^DD(2006.562,16,21,3,0)="in this entry."
^DD(2006.562,16,21,4,0)=""
^DD(2006.562,16,"DT")="2990311"
^DD(2006.562,17,0)="TYPE CODE^F^^0;11^K:$L(X)>10!($L(X)<1) X"
^DD(2006.562,17,3)="Enter the 'type code'."
^DD(2006.562,17,21,0)="^.001^19^19^3020401^^^"
^DD(2006.562,17,21,1,0)="The value of this field is a code for the type of imaging"
^DD(2006.562,17,21,2,0)="activity."
^DD(2006.562,17,21,3,0)=""
^DD(2006.562,17,21,4,0)="The value for this field is obtained from the HL7 message"
^DD(2006.562,17,21,5,0)="that was transmitted for this event."
^DD(2006.562,17,21,6,0)=""
^DD(2006.562,17,21,7,0)="Typical values are codes like:"
^DD(2006.562,17,21,8,0)="   ANI"
^DD(2006.562,17,21,9,0)="   CT"
^DD(2006.562,17,21,10,0)="   MAM"
^DD(2006.562,17,21,11,0)="   MRI"
^DD(2006.562,17,21,12,0)="   NM"
^DD(2006.562,17,21,13,0)="   RAD"
^DD(2006.562,17,21,14,0)="   US"
^DD(2006.562,17,21,15,0)="   VAS"
^DD(2006.562,17,21,16,0)=""
^DD(2006.562,17,21,17,0)="Since any value obtained from an HL7 message will be considered"
^DD(2006.562,17,21,18,0)="valid when entering data into this file, this field is typed as"
^DD(2006.562,17,21,19,0)="""free text"", rather than as a ""set of codes""."
^DD(2006.562,17,"DT")="2990318"
^DD(2006.562,19,0)="STATUS^S^CREATED:Created;SCHEDULED:Scheduled;ARRIVED:Arrived;STARTED:Started;COMPLETED:Completed;VERIFIED:Verified;^0;7^Q"
^DD(2006.562,19,3)="Enter a code for the status of this study."
^DD(2006.562,19,21,0)="^^10^10^3020401^"
^DD(2006.562,19,21,1,0)="The value of this field is a code that identifies the current"
^DD(2006.562,19,21,2,0)="status of the study."
^DD(2006.562,19,21,3,0)=" "
^DD(2006.562,19,21,4,0)="Initially, the following possible values are defined:"
^DD(2006.562,19,21,5,0)="  CREATED      Ordered or Created, but not yet Scheduled"
^DD(2006.562,19,21,6,0)="  SCHEDULED    Scheduled, but not yet started"
^DD(2006.562,19,21,7,0)="  ARRIVED      Patient has arrived, but study has not yet started"
^DD(2006.562,19,21,8,0)="  STARTED      Study has started, but not yet finished"
^DD(2006.562,19,21,9,0)="  COMPLETED    Study has completed"
^DD(2006.562,19,21,10,0)="  VERIFIED     Study has completed, and image quality has been verified"
^DD(2006.562,19,"DT")="3020401"
^DD(2006.562,20,0)="PRIORITY^S^STAT:STAT;HIGH:High;MEDIUM:Medium;ROUTINE:Routine;LOW:Low;^0;9^Q"
^DD(2006.562,20,3)="Enter a code for the priority of this study."
^DD(2006.562,20,21,0)="^^2^2^3020401^"
^DD(2006.562,20,21,1,0)="The value of this field is a code that identifies the"
^DD(2006.562,20,21,2,0)="priority of the study."
^DD(2006.562,20,"DT")="3020401"
^DD(2006.562,21,0)="TIU NOTE SIGNED^S^0:No;1:Yes;^0;12^Q"
^DD(2006.562,21,3)="Indicate whether or not the TIU note has been signed."
^DD(2006.562,21,21,0)="^.001^6^6^3020422^^^^"
^DD(2006.562,21,21,1,0)="The value for this field is a code that indicates"
^DD(2006.562,21,21,2,0)="whether or not the TIU note with which this study is"
^DD(2006.562,21,21,3,0)="associated has been signed."
^DD(2006.562,21,21,4,0)=" "
^DD(2006.562,21,21,5,0)="A value of 0 indicates that the note has not yet been signed."
^DD(2006.562,21,21,6,0)="A value of 1 indicates that the note has been signed."
^DD(2006.562,21,"DT")="3020422"
^DD(2006.562,22,0)="INTENDED RECIPIENT OF RESULTS^F^^3;5^K:$L(X)>30!($L(X)<1) X"
^DD(2006.562,22,3)="Enter the name of the recipient of the results of this study."
^DD(2006.562,22,21,0)="^.001^6^6^3021105^^^"
^DD(2006.562,22,21,1,0)="The value of this field is a string that contains the name of"
^DD(2006.562,22,21,2,0)="the person who is intended to receive the results of this study."
^DD(2006.562,22,21,3,0)=" "
^DD(2006.562,22,21,4,0)="(Intentionally, this field is NOT a pointer to the Person File"
^DD(2006.562,22,21,5,0)="(#200), because that file may not be accessible when the value"
^DD(2006.562,22,21,6,0)="for this field is being retrieved.)"
^DD(2006.562,22,"DT")="3020401"
^DD(2006.562,23,0)="APPOINTMENT SCHEDULE^2006.5622A^^7;0"
^DD(2006.562,"B","ACCESSION",3)=""
^DD(2006.562,"B","APPOINTMENT SCHEDULE",23)=""
^DD(2006.562,"B","ATTENDING PHYSICIAN",14)=""
^DD(2006.562,"B","CPT CODE",8)=""
^DD(2006.562,"B","CPT DESCRIPTION",9)=""
^DD(2006.562,"B","INTENDED RECIPIENT OF RESULTS",22)=""
^DD(2006.562,"B","MODALITY",10)=""
^DD(2006.562,"B","PATIENT",2)=""
^DD(2006.562,"B","PATIENT HISTORY",12)=""
^DD(2006.562,"B","PRIORITY",20)=""
^DD(2006.562,"B","PROCEDURE",6)=""
^DD(2006.562,"B","PROCEDURE DESCRIPTION",7)=""
^DD(2006.562,"B","REFERRING PHYSICIAN",13)=""
^DD(2006.562,"B","REQUESTED SERVICE",16)=""
^DD(2006.562,"B","REQUESTING PHYSICIAN",15)=""
^DD(2006.562,"B","SERVICE",.01)=""
^DD(2006.562,"B","STATUS",19)=""
^DD(2006.562,"B","STUDY ID",4)=""
^DD(2006.562,"B","STUDY UID",11)=""
^DD(2006.562,"B","TIMESTAMP",5)=""
^DD(2006.562,"B","TIU NOTE SIGNED",21)=""
^DD(2006.562,"B","TYPE CODE",17)=""
^DD(2006.562,"GL",0,1,.01)=""
^DD(2006.562,"GL",0,2,2)=""
^DD(2006.562,"GL",0,3,3)=""
^DD(2006.562,"GL",0,4,4)=""
^DD(2006.562,"GL",0,5,5)=""
^DD(2006.562,"GL",0,6,6)=""
^DD(2006.562,"GL",0,7,19)=""
^DD(2006.562,"GL",0,8,8)=""
^DD(2006.562,"GL",0,9,20)=""
^DD(2006.562,"GL",0,10,10)=""
^DD(2006.562,"GL",0,11,17)=""
^DD(2006.562,"GL",0,12,21)=""
^DD(2006.562,"GL",1,1,11)=""
^DD(2006.562,"GL",2,0,12)=""
^DD(2006.562,"GL",3,1,13)=""
^DD(2006.562,"GL",3,2,14)=""
^DD(2006.562,"GL",3,3,15)=""
^DD(2006.562,"GL",3,4,16)=""
^DD(2006.562,"GL",3,5,22)=""
^DD(2006.562,"GL",4,1,7)=""
^DD(2006.562,"GL",5,1,9)=""
^DD(2006.562,"GL",7,0,23)=""
^DD(2006.562,"IX",.01)=""
^DD(2006.562,"IX",2)=""
^DD(2006.562,"IX",3)=""
^DD(2006.562,"IX",4)=""
^DD(2006.562,"IX",5)=""
^DD(2006.562,"IX",11)=""
^DD(2006.562,"RQ",.01)=""
^DD(2006.562,"SB",2006.5621,12)=""
^DD(2006.562,"SB",2006.5622,23)=""
^DD(2006.5621,0)="PATIENT HISTORY SUB-FIELD^^.01^1"
^DD(2006.5621,0,"DT")="2990202"
^DD(2006.5621,0,"NM","PATIENT HISTORY")=""
^DD(2006.5621,0,"UP")="2006.562"
^DD(2006.5621,.01,0)="PATIENT HISTORY^F^^0;1^K:$L(X)>99!($L(X)<1) X"
^DD(2006.5621,.01,1,0)="^.1^^0"
^DD(2006.5621,.01,3)="Enter a line of patient history text."
^DD(2006.5621,.01,21,0)="^^6^6^3000218^^"
^DD(2006.5621,.01,21,1,0)="The text in this multi-line entry describes any"
^DD(2006.5621,.01,21,2,0)="patient history that is germane in the context"
^DD(2006.5621,.01,21,3,0)="of the study that is described in this entry."
^DD(2006.5621,.01,21,4,0)=" "
^DD(2006.5621,.01,21,5,0)="Often, this section of the patient's history is"
^DD(2006.5621,.01,21,6,0)="referred to as the 'reason for study'."
^DD(2006.5621,.01,"DT")="2990202"
^DD(2006.5621,"B","PATIENT HISTORY",.01)=""
^DD(2006.5621,"GL",0,1,.01)=""
^DD(2006.5622,0)="APPOINTMENT SCHEDULE SUB-FIELD^^1^2"
^DD(2006.5622,0,"DT")="3020521"
^DD(2006.5622,0,"IX","B",2006.5622,.01)=""
^DD(2006.5622,0,"NM","APPOINTMENT SCHEDULE")=""
^DD(2006.5622,0,"UP")="2006.562"
^DD(2006.5622,.01,0)="CLINIC NAME^F^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(2006.5622,.01,1,0)="^.1^^0"
^DD(2006.5622,.01,1,1,0)="2006.5622^B"
^DD(2006.5622,.01,1,1,1)="S ^MAGDWLST(2006.56,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(2006.5622,.01,1,1,2)="K ^MAGDWLST(2006.56,DA(2),1,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(2006.5622,.01,3)="Enter the name of the clinic where the appointment will take place."
^DD(2006.5622,.01,21,0)="^.001^3^3^3021105^^^"
^DD(2006.5622,.01,21,1,0)="The value of this field is a string that identifies"
^DD(2006.5622,.01,21,2,0)="the name of the clinic where the appointment will"
^DD(2006.5622,.01,21,3,0)="take place."
^DD(2006.5622,.01,"DT")="3030114"
^DD(2006.5622,1,0)="DATE/TIME^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5622,1,21,0)="^^1^1^3020521^"
^DD(2006.5622,1,21,1,0)="Date and time of appointment."
^DD(2006.5622,1,"DT")="3020521"
^DD(2006.5622,"B","CLINIC NAME",.01)=""
^DD(2006.5622,"B","DATE/TIME",1)=""
^DD(2006.5622,"GL",0,1,.01)=""
^DD(2006.5622,"GL",0,2,1)=""
^DD(2006.5622,"IX",.01)=""
^DD(2006.563,0)="FIELD^^105^97"
^DD(2006.563,0,"DDA")="N"
^DD(2006.563,0,"DT")="3051028"
^DD(2006.563,0,"NM","DICOM GATEWAY PARAMETER")=""
^DD(2006.563,0,"VR")="3.0"
^DD(2006.563,0,"VRPK")="IMAGING"
^DD(2006.563,.01,0)="SYSTEM TITLE^RF^^SYSTEM TITLE;1^K:$L(X)>60!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.563,.01,1,0)="^.1^^0"
^DD(2006.563,.01,3)="Enter a descriptive text for this Gateway Station."
^DD(2006.563,.01,21,0)="^^6^6^3000218^^"
^DD(2006.563,.01,21,1,0)="The value of this field is a text that identifies"
^DD(2006.563,.01,21,2,0)="the computer on which this database is stored."
^DD(2006.563,.01,21,3,0)=" "
^DD(2006.563,.01,21,4,0)="Note that each VistA DICOM Gateway computer has its"
^DD(2006.563,.01,21,5,0)="own copy of ^MAGDICOM, in which these site-parameters"
^DD(2006.563,.01,21,6,0)="are stored."
^DD(2006.563,2,0)="ASCII DICOM TEXT^F^^ASCII DICOM TEXT;1^K:$L(X)>10!($L(X)<1) X"
^DD(2006.563,2,3)="Indicate whether or not ASCII Text files are to be produced."
^DD(2006.563,2,21,0)="^^16^16^3000218^^"
^DD(2006.563,2,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,2,21,2,0)="whether or not files will be created that make the"
^DD(2006.563,2,21,3,0)="data-streams that are exchanged according to the"
^DD(2006.563,2,21,4,0)="DICOM protocol available in a human-readable form."
^DD(2006.563,2,21,5,0)=" "
^DD(2006.563,2,21,6,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,2,21,7,0)="(fully spelled, in capitals)."
^DD(2006.563,2,21,8,0)=" "
^DD(2006.563,2,21,9,0)="The human-readable files will have a file name"
^DD(2006.563,2,21,10,0)="extension of '.TXT'."
^DD(2006.563,2,21,11,0)=" "
^DD(2006.563,2,21,12,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,2,21,13,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,2,21,14,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,2,21,15,0)="value whether or not the network link with the VistA"
^DD(2006.563,2,21,16,0)="system (DDP) is available."
^DD(2006.563,2,"DT")="2991018"
^DD(2006.563,3,0)="COMMERCIAL PACS^F^^COMMERCIAL PACS;1^K:$L(X)>10!($L(X)<1) X"
^DD(2006.563,3,3)="Indicate whether or not a commercial PACS is present."
^DD(2006.563,3,21,0)="^^13^13^3000218^^"
^DD(2006.563,3,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,3,21,2,0)="if a PACS is present at the site, and, if so,"
^DD(2006.563,3,21,3,0)="whether or not this PACS has a brand-name of"
^DD(2006.563,3,21,4,0)="General Electric."
^DD(2006.563,3,21,5,0)=" "
^DD(2006.563,3,21,6,0)="Possible values for this code are 'N/A',"
^DD(2006.563,3,21,7,0)="'GE' and 'NON-GE'."
^DD(2006.563,3,21,8,0)=" "
^DD(2006.563,3,21,9,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,3,21,10,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,3,21,11,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,3,21,12,0)="value whether or not the network link with the VistA"
^DD(2006.563,3,21,13,0)="system (DDP) is available."
^DD(2006.563,3,"DT")="2991018"
^DD(2006.563,4,0)="DATA PATH^2006.5631A^^DATA PATH;0"
^DD(2006.563,4,3)="Enter the directory path name for the location where data is to be stored."
^DD(2006.563,4,"DT")="2991018"
^DD(2006.563,5,0)="DICT PATH^F^^DICT PATH;1^K:$L(X)>10!($L(X)<1) X"
^DD(2006.563,5,3)="Enter the directory path name for the location where master files are stored."
^DD(2006.563,5,21,0)="^^6^6^3000218^^"
^DD(2006.563,5,21,1,0)="The value of this field is the 'path-prefix'"
^DD(2006.563,5,21,2,0)="that needs to be applied to gain access to the"
^DD(2006.563,5,21,3,0)="'dictionary' files (also known as 'master files)."
^DD(2006.563,5,21,4,0)=" "
^DD(2006.563,5,21,5,0)="These 'master files' contain the various tables"
^DD(2006.563,5,21,6,0)="that drive the operation of the VistA DICOM Gateways."
^DD(2006.563,5,"DT")="2991018"
^DD(2006.563,6,0)="HIS/RIS^F^^HIS/RIS;1^K:$L(X)>10!($L(X)<1) X"
^DD(2006.563,6,3)="Enter the name of the HIS or RIS that is being used."
^DD(2006.563,6,21,0)="^^11^11^3000218^^"
^DD(2006.563,6,21,1,0)="The value of this field is a code that identifies"
^DD(2006.563,6,21,2,0)="the type of Hospital Information System that is being"
^DD(2006.563,6,21,3,0)="used at the site."
^DD(2006.563,6,21,4,0)=" "
^DD(2006.563,6,21,5,0)="Currently, this value is always equal to 'VISTA'."
^DD(2006.563,6,21,6,0)=" "
^DD(2006.563,6,21,7,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,6,21,8,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,6,21,9,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,6,21,10,0)="value whether or not the network link with the VistA"
^DD(2006.563,6,21,11,0)="system (DDP) is available."
^DD(2006.563,6,"DT")="2991018"
^DD(2006.563,7,0)="IMAGE INPUT PATH^F^^IMAGE INPUT PATH;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.563,7,3)="Enter the name of the directory where incoming images are stored."
^DD(2006.563,7,21,0)="^^4^4^3000218^^"
^DD(2006.563,7,21,1,0)="The value of this field is the 'path-prefix'"
^DD(2006.563,7,21,2,0)="that needs to be applied to gain access to the"
^DD(2006.563,7,21,3,0)="files that are being used by the VistA DICOM Image"
^DD(2006.563,7,21,4,0)="Gateway for newly created image files."
^DD(2006.563,7,"DT")="2991018"
^DD(2006.563,8,0)="IMAGE OUTPUT PATH^F^^IMAGE OUTPUT PATH;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.563,8,3)="Enter the name of the directory where outgoing images are stored."
^DD(2006.563,8,21,0)="^^5^5^3000218^^"
^DD(2006.563,8,21,1,0)="The value of this field is the 'path-prefix'"
^DD(2006.563,8,21,2,0)="that needs to be applied to gain access to the"
^DD(2006.563,8,21,3,0)="files that are being used by the VistA DICOM Image"
^DD(2006.563,8,21,4,0)="Gateway for image files that need to be copied"
^DD(2006.563,8,21,5,0)="to other destinations."
^DD(2006.563,8,"DT")="2991018"
^DD(2006.563,9,0)="MACHINE ID^F^^MACHINE ID;1^K:$L(X)>1!($L(X)<1) X"
^DD(2006.563,9,.1)="Machine ID"
^DD(2006.563,9,3)="Enter the letter for the current processor."
^DD(2006.563,9,21,0)="^^7^7^3000229^^"
^DD(2006.563,9,21,1,0)="The value of this field is a single-character"
^DD(2006.563,9,21,2,0)="code that identifies the computer on which this"
^DD(2006.563,9,21,3,0)="database is stored."
^DD(2006.563,9,21,4,0)=" "
^DD(2006.563,9,21,5,0)="This code will be used as a prefix for names"
^DD(2006.563,9,21,6,0)="of image files that are created by the software"
^DD(2006.563,9,21,7,0)="that runs on this computer."
^DD(2006.563,9,"DT")="2991018"
^DD(2006.563,10,0)="MESSAGE LOG^S^YES:YES;NO:NO;^MESSAGE LOG;1^Q"
^DD(2006.563,10,3)="Enter 'YES' or 'NO'."
^DD(2006.563,10,21,0)="^.001^15^15^3001004^^^"
^DD(2006.563,10,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,10,21,2,0)="whether or not diagnostic messages will be kept in"
^DD(2006.563,10,21,3,0)="a global variable after they have been displayed on"
^DD(2006.563,10,21,4,0)="a monitor."
^DD(2006.563,10,21,5,0)=" "
^DD(2006.563,10,21,6,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,10,21,7,0)="(fully spelled, in capitals)."
^DD(2006.563,10,21,8,0)=" "
^DD(2006.563,10,21,9,0)="It is recommended that this value always be set to 'YES'."
^DD(2006.563,10,21,10,0)=" "
^DD(2006.563,10,21,11,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,10,21,12,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,10,21,13,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,10,21,14,0)="value whether or not the network link with the VistA"
^DD(2006.563,10,21,15,0)="system (DDP) is available."
^DD(2006.563,10,"DT")="3001004"
^DD(2006.563,11,0)="INSTRUMENT PATH^F^^INSTRUMENT PATH;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.563,11,3)="Enter the name of the directory where the ASCII Text files are stored."
^DD(2006.563,11,21,0)="^^5^5^3000218^^"
^DD(2006.563,11,21,1,0)="The value of this field is the 'path-prefix'"
^DD(2006.563,11,21,2,0)="that needs to be applied to gain access to the"
^DD(2006.563,11,21,3,0)="files that are being used by the VistA DICOM Image"
^DD(2006.563,11,21,4,0)="Gateway to store intermediate copies of image files"
^DD(2006.563,11,21,5,0)="as they are received by the C-Store program."
^DD(2006.563,11,"DT")="3000218"
^DD(2006.563,12,0)="MODALITY WORKLIST^S^YES:YES;NO:NO;^MODALITY WORKLIST;1^Q"
^DD(2006.563,12,3)="Enter 'YES' or 'NO'."
^DD(2006.563,12,21,0)="^.001^7^7^3001004^^^^"
^DD(2006.563,12,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,12,21,2,0)="whether or not the machine on which this table is"
^DD(2006.563,12,21,3,0)="stored will be executing the tasks of a Modality"
^DD(2006.563,12,21,4,0)="Worklist Provider."
^DD(2006.563,12,21,5,0)=" "
^DD(2006.563,12,21,6,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,12,21,7,0)="(fully spelled, in capitals)."
^DD(2006.563,12,"DT")="3001004"
^DD(2006.563,13,0)="PACS IMAGES^S^YES:YES;NO:NO;^PACS IMAGES;1^Q"
^DD(2006.563,13,3)="Enter 'YES' or 'NO'."
^DD(2006.563,13,21,0)="^.001^12^12^3001004^^^"
^DD(2006.563,13,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,13,21,2,0)="whether or not a PACS will be sending images to"
^DD(2006.563,13,21,3,0)="the VistA Hospital Information System."
^DD(2006.563,13,21,4,0)=" "
^DD(2006.563,13,21,5,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,13,21,6,0)="(fully spelled, in capitals)."
^DD(2006.563,13,21,7,0)=" "
^DD(2006.563,13,21,8,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,13,21,9,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,13,21,10,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,13,21,11,0)="value whether or not the network link with the VistA"
^DD(2006.563,13,21,12,0)="system (DDP) is available."
^DD(2006.563,13,"DT")="3001004"
^DD(2006.563,14,0)="ROUTING RULES^S^YES:YES;NO:NO;^ROUTING RULES;1^Q"
^DD(2006.563,14,3)="Enter 'YES' or 'NO'."
^DD(2006.563,14,21,0)="^.001^19^19^3021209^^^^"
^DD(2006.563,14,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,14,21,2,0)="whether or not the site where this table is stored"
^DD(2006.563,14,21,3,0)="is using the automated routing facility that is part"
^DD(2006.563,14,21,4,0)="of the VistA DICOM Gateway."
^DD(2006.563,14,21,5,0)=" "
^DD(2006.563,14,21,6,0)="Automated routing is not included in Version 2.5"
^DD(2006.563,14,21,7,0)="of the VistA DICOM Gateway and only sites that are"
^DD(2006.563,14,21,8,0)="executing an pre-alpha test of this functionality"
^DD(2006.563,14,21,9,0)="should set this parameter to YES."
^DD(2006.563,14,21,10,0)="All other sites should set this parameter to NO."
^DD(2006.563,14,21,11,0)=" "
^DD(2006.563,14,21,12,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,14,21,13,0)="(fully spelled, in capitals)."
^DD(2006.563,14,21,14,0)=" "
^DD(2006.563,14,21,15,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,14,21,16,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,14,21,17,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,14,21,18,0)="value whether or not the network link with the VistA"
^DD(2006.563,14,21,19,0)="system (DDP) is available."
^DD(2006.563,14,"DT")="3021209"
^DD(2006.563,15,0)="SCRATCH^F^^SCRATCH;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.563,15,3)="Enter the name of the directory where scratch files may be stored."
^DD(2006.563,15,21,0)="^^7^7^3000218^^"
^DD(2006.563,15,21,1,0)="The value of this field is the 'path-prefix'"
^DD(2006.563,15,21,2,0)="that needs to be applied to gain access to the"
^DD(2006.563,15,21,3,0)="temporary files that are used by the VistA DICOM"
^DD(2006.563,15,21,4,0)="Gateway."
^DD(2006.563,15,21,5,0)=" "
^DD(2006.563,15,21,6,0)="Typically, the value of this field will be equal to"
^DD(2006.563,15,21,7,0)="c:\temp\"
^DD(2006.563,15,"DT")="2991018"
^DD(2006.563,16,0)="SEND PACS TEXT^S^YES:YES;NO:NO;^SEND PACS TEXT;1^Q"
^DD(2006.563,16,3)="Enter 'YES' or 'NO'."
^DD(2006.563,16,21,0)="^.001^7^7^3001004^^^"
^DD(2006.563,16,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,16,21,2,0)="whether or not the VistA DICOM Gateway computer"
^DD(2006.563,16,21,3,0)="on which this table is stored will be transmitting"
^DD(2006.563,16,21,4,0)="text messages to a PACS."
^DD(2006.563,16,21,5,0)=" "
^DD(2006.563,16,21,6,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,16,21,7,0)="(fully spelled, in capitals)."
^DD(2006.563,16,"DT")="3001004"
^DD(2006.563,17,0)="PLACE^P4'^DIC(4,^LOCATION;1^Q"
^DD(2006.563,17,3)="Enter the name of the institution where this gateway resides."
^DD(2006.563,17,21,0)="^^3^3^3010309^"
^DD(2006.563,17,21,1,0)="The value of this field is a pointer to the Institution file (#4)."
^DD(2006.563,17,21,2,0)="This value identifies the institution where this DICOM Gateway"
^DD(2006.563,17,21,3,0)="computer resides."
^DD(2006.563,17,"DT")="3010309"
^DD(2006.563,18,0)="UID ROOT^F^^UID ROOT;1^K:$L(X)>64!($L(X)<1) X"
^DD(2006.563,18,3)="Enter the UID root for this installation."
^DD(2006.563,18,21,0)="^^14^14^3000218^^"
^DD(2006.563,18,21,1,0)="The value of this field is a code that identifies"
^DD(2006.563,18,21,2,0)="the 'root' for unique identifiers that are"
^DD(2006.563,18,21,3,0)="created for the purpose of uniquely identifying"
^DD(2006.563,18,21,4,0)="DICOM objects."
^DD(2006.563,18,21,5,0)=" "
^DD(2006.563,18,21,6,0)="This value has been assigned to the Veterans Administration"
^DD(2006.563,18,21,7,0)="by the American National Standards Institute and"
^DD(2006.563,18,21,8,0)="may not be changed by any site."
^DD(2006.563,18,21,9,0)=" "
^DD(2006.563,18,21,10,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,18,21,11,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,18,21,12,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,18,21,13,0)="value whether or not the network link with the VistA"
^DD(2006.563,18,21,14,0)="system (DDP) is available."
^DD(2006.563,18,"DT")="2991018"
^DD(2006.563,19,0)="VERSION^F^^VERSION;1^K:$L(X)>64!($L(X)<1) X"
^DD(2006.563,19,3)="Answer must be 1-64 characters in length."
^DD(2006.563,19,21,0)="^^11^11^3000218^^"
^DD(2006.563,19,21,1,0)="The value of this field is a code that identifies"
^DD(2006.563,19,21,2,0)="the version of the implementation of the VA DICOM"
^DD(2006.563,19,21,3,0)="SOP Classes."
^DD(2006.563,19,21,4,0)=" "
^DD(2006.563,19,21,5,0)="This value should not be modified by any sites."
^DD(2006.563,19,21,6,0)=" "
^DD(2006.563,19,21,7,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,19,21,8,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,19,21,9,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,19,21,10,0)="value whether or not the network link with the VistA"
^DD(2006.563,19,21,11,0)="system (DDP) is available."
^DD(2006.563,19,"DT")="2991018"
^DD(2006.563,20,0)="HL7 POINTER^P2006.5'^MAGDHL7(2006.5,^HL7_PTR;1^Q"
^DD(2006.563,20,3)="Enter the internal entry number of a HL7 message."
^DD(2006.563,20,21,0)="^^11^11^3000218^^"
^DD(2006.563,20,21,1,0)="The value of this field is a pointer to the table that"
^DD(2006.563,20,21,2,0)="contains the HL7-messages that are to be processed by"
^DD(2006.563,20,21,3,0)="a VistA DICOM Text Gateway."
^DD(2006.563,20,21,4,0)="This value corresponds to the internal entry number"
^DD(2006.563,20,21,5,0)="of the last message that was processed."
^DD(2006.563,20,21,6,0)=" "
^DD(2006.563,20,21,7,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,20,21,8,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,20,21,9,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,20,21,10,0)="value whether or not the network link with the VistA"
^DD(2006.563,20,21,11,0)="system (DDP) is available."
^DD(2006.563,20,"DT")="3000222"
^DD(2006.563,21,0)="FREE DISK SPACE^NJ3,0^^FREE DISK SPACE;1^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.563,21,3)="Enter the percentage of free disk space required to allow C-Store."
^DD(2006.563,21,21,0)="^^5^5^3000218^^"
^DD(2006.563,21,21,1,0)="The value of this field is an integer number that"
^DD(2006.563,21,21,2,0)="indicates the percentage of disk space that needs to"
^DD(2006.563,21,21,3,0)="be left as free space. The acquisition of image files"
^DD(2006.563,21,21,4,0)="will be suspended when the amount of free disk space"
^DD(2006.563,21,21,5,0)="drops below this threshold."
^DD(2006.563,21,"DT")="2991020"
^DD(2006.563,22,0)="TEXT GATEWAY^S^YES:YES;NO:NO;^TEXT GATEWAY;1^Q"
^DD(2006.563,22,3)="Enter 'YES' or 'NO'."
^DD(2006.563,22,21,0)="^.001^6^6^3001004^^^"
^DD(2006.563,22,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,22,21,2,0)="whether or not the computer on which this table"
^DD(2006.563,22,21,3,0)="is stored will operate as a Text Gateway."
^DD(2006.563,22,21,4,0)=" "
^DD(2006.563,22,21,5,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,22,21,6,0)="(fully spelled, in capitals)."
^DD(2006.563,22,"DT")="3001004"
^DD(2006.563,23,0)="LAST SYSTEM REPORT^NJ7,0^^DAILY REPORT;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.563,23,3)="Enter the $HOROLOG number of the date of the last site report."
^DD(2006.563,23,21,0)="^^7^7^3001004^^"
^DD(2006.563,23,21,1,0)="The value of this field is a code for the date on which"
^DD(2006.563,23,21,2,0)="the most recent system report was e-mailed to the VistA"
^DD(2006.563,23,21,3,0)="central repository."
^DD(2006.563,23,21,4,0)="This value is encoded as a $HOROLOG date."
^DD(2006.563,23,21,5,0)="This value is calculated by the application as the"
^DD(2006.563,23,21,6,0)="report in question is being produced, and never entered"
^DD(2006.563,23,21,7,0)="by an end-user."
^DD(2006.563,23,"DT")="3000222"
^DD(2006.563,24,0)="POST OFFICE^F^^POST OFFICE;1^K:$L(X)>64!($L(X)<1) X"
^DD(2006.563,24,3)="Enter the IP address of the SMTP post office for this site."
^DD(2006.563,24,21,0)="^^9^9^3000218^^"
^DD(2006.563,24,21,1,0)="The value of this field is the IP address of the"
^DD(2006.563,24,21,2,0)="computer that will function as the SMTP post office"
^DD(2006.563,24,21,3,0)="for sending e-mail from this site."
^DD(2006.563,24,21,4,0)=" "
^DD(2006.563,24,21,5,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,24,21,6,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,24,21,7,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,24,21,8,0)="value whether or not the network link with the VistA"
^DD(2006.563,24,21,9,0)="system (DDP) is available."
^DD(2006.563,24,"DT")="3000222"
^DD(2006.563,25,0)="CONSOLIDATED IMAGING SOFTWARE^S^YES:Consolidated;NO:Non-Consolidated;^CONSOLIDATED;1^Q"
^DD(2006.563,25,3)="Indicate whether or not this site is running the consolidated Imaging software."
^DD(2006.563,25,21,0)="^^6^6^3021212^"
^DD(2006.563,25,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,25,21,2,0)="the current site is running the consolidated version of the Imaging"
^DD(2006.563,25,21,3,0)="software."
^DD(2006.563,25,21,4,0)=" "
^DD(2006.563,25,21,5,0)="A value of ""YES"" indicates that the consolidated software is in use."
^DD(2006.563,25,21,6,0)="A value of ""NO"" indicates that the non-consolidated software is in use."
^DD(2006.563,25,"DT")="3021212"
^DD(2006.563,26,0)="CPT MODIFIER^S^YES:YES;NO:NO;^SEND CPT MODIFIERS;1^Q"
^DD(2006.563,26,3)="Indicate whether or not this computer will include CPT modifier codes in messages."
^DD(2006.563,26,21,0)="^^7^7^3000218^^"
^DD(2006.563,26,21,1,0)="The value of this field is a code that indicates"
^DD(2006.563,26,21,2,0)="whether or not CPT modifier codes will be included in"
^DD(2006.563,26,21,3,0)="messages that are transmitted by the computer on which"
^DD(2006.563,26,21,4,0)="this table is stored."
^DD(2006.563,26,21,5,0)=" "
^DD(2006.563,26,21,6,0)="Possible values for this code are 'YES' and 'NO'"
^DD(2006.563,26,21,7,0)="(fully spelled, in capitals)."
^DD(2006.563,26,"DT")="3000222"
^DD(2006.563,27,0)="TIME ZONE OFFSET^NJ4,0^^TIME ZONE;1^K:+X'=X!(X>2500)!(X<-2500)!(X?.E1"".""1N.N) X"
^DD(2006.563,27,3)="Enter the ISO code for the time zone offset for this computer."
^DD(2006.563,27,21,0)="^^17^17^3000218^^"
^DD(2006.563,27,21,1,0)="The value of this field is an integer number that"
^DD(2006.563,27,21,2,0)="indicates the time zone offset for the computer on"
^DD(2006.563,27,21,3,0)="which this table is stored."
^DD(2006.563,27,21,4,0)=" "
^DD(2006.563,27,21,5,0)="The time zone offset is encoded as 100*hours+minutes,"
^DD(2006.563,27,21,6,0)="and is a positive number when the time is later than"
^DD(2006.563,27,21,7,0)="GMT (Greenwich Mean Time), or a negative number when"
^DD(2006.563,27,21,8,0)="the time is earlier than GMT."
^DD(2006.563,27,21,9,0)=" "
^DD(2006.563,27,21,10,0)="E.g. EST in the USA corresponds to a time zone offset"
^DD(2006.563,27,21,11,0)="of -500."
^DD(2006.563,27,21,12,0)=" "
^DD(2006.563,27,21,13,0)="This value is stored in this table (^MAGDICOM(2006.563,..."
^DD(2006.563,27,21,14,0)="rather than in ^MAG(2006.1,...), because the VistA"
^DD(2006.563,27,21,15,0)="DICOM Gateway will need to be able to access this"
^DD(2006.563,27,21,16,0)="value whether or not the network link with the VistA"
^DD(2006.563,27,21,17,0)="system (DDP) is available."
^DD(2006.563,27,"DT")="3000222"
^DD(2006.563,28,0)="LOCATION NAME^F^^LOCATION NAME;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.563,28,3)="Enter the name of the location to which this station belongs."
^DD(2006.563,28,21,0)="^^7^7^3011016^"
^DD(2006.563,28,21,1,0)="The value of this field is a string that represents the name"
^DD(2006.563,28,21,2,0)="of a site. Its value is copied from the INSTITUTION file when"
^DD(2006.563,28,21,3,0)="a value is assigned to the field LOCATION in this table."
^DD(2006.563,28,21,4,0)=" "
^DD(2006.563,28,21,5,0)="A DICOM Gateway stores a redundant copy of this name, so that"
^DD(2006.563,28,21,6,0)="it will be able to display the name when DDP is not available,"
^DD(2006.563,28,21,7,0)="and the value cannot be fetched from ^DIC."
^DD(2006.563,28,"DT")="3011016"
^DD(2006.563,29,0)="ACCESS CODE^F^^LOGIN ACCESS;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.563,29,3)="Enter the access code for this gateway."
^DD(2006.563,29,21,0)="^^2^2^3010226^"
^DD(2006.563,29,21,1,0)="The value of this field is a string that represents the access code that will be used"
^DD(2006.563,29,21,2,0)="to operate this DICOM Gateway."
^DD(2006.563,29,"DT")="3010226"
^DD(2006.563,30,0)="VERIFY CODE^F^^LOGIN VERIFY;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.563,30,3)="Enter the verify code for this gateway."
^DD(2006.563,30,21,0)="^^2^2^3010226^"
^DD(2006.563,30,21,1,0)="The value of this field is a string that represents the verify"
^DD(2006.563,30,21,2,0)="code that will be used to operate this DICOM Gateway."
^DD(2006.563,30,"DT")="3010226"
^DD(2006.563,31,0)="READ ONLY ACCESS^F^^LOGIN PRINT/VIEW ONLY;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.563,31,3)="Enter the read-only access code for this gateway."
^DD(2006.563,31,21,0)="^^2^2^3010226^"
^DD(2006.563,31,21,1,0)="The value of this field is a string that represents the access"
^DD(2006.563,31,21,2,0)="code that will be used to operate this gateway in ""read only"" mode."
^DD(2006.563,31,"DT")="3010226"
^DD(2006.563,32,0)="PROGRAMMER ACCESS^F^^LOGIN PROGRAMMER ACCESS;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.563,32,3)="Enter the programmer access code for this gateway."
^DD(2006.563,32,21,0)="^^2^2^3010226^"
^DD(2006.563,32,21,1,0)="The value of this field is a string that represents the access"
^DD(2006.563,32,21,2,0)="code that will be used to gain programmer access to this gateway."
^DD(2006.563,32,"DT")="3010226"
^DD(2006.563,33,0)="EVALUATOR^S^0:No;1:Yes;^EVAL;1^Q"
^DD(2006.563,33,3)="Indicate whether a Rule Evaluator may currently run on this computer."
^DD(2006.563,33,21,0)="^^7^7^3020809^"
^DD(2006.563,33,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,33,21,2,0)="a Rule Evaluator may currently run on this computer."
^DD(2006.563,33,21,3,0)=" "
^DD(2006.563,33,21,4,0)="This flag is automatically set to 1 (yes) when the menu option"
^DD(2006.563,33,21,5,0)="is used to start a Rule Evaluator, and to 0 (no) when the"
^DD(2006.563,33,21,6,0)="menu option is used to stop all Rule Evaluators."
^DD(2006.563,33,21,7,0)=" "
^DD(2006.563,33,"DT")="3020809"
^DD(2006.563,34,0)="CSTORE CONTROL PORT^NJ5,0^^CSTORE CONTROL PORT;1^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.563,34,3)="Enter a TCP/IP port number (between 1 and 65535)."
^DD(2006.563,34,21,0)="^.001^6^6^3020828^^"
^DD(2006.563,34,21,1,0)="The value of this field is an integer number that identifies"
^DD(2006.563,34,21,2,0)="the TCP/IP port that will be used by each C-Store process to"
^DD(2006.563,34,21,3,0)="obtain information from a DICOM Gateway."
^DD(2006.563,34,21,4,0)=" "
^DD(2006.563,34,21,5,0)="The information provided is limited to known ""modalities"" and"
^DD(2006.563,34,21,6,0)="which port numbers are assigned to these modalities."
^DD(2006.563,34,"DT")="3020828"
^DD(2006.563,35,0)="WORKLIST PORT^NJ5,0^^WORKLIST PORT;1^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.563,35,3)="Enter a TCP/IP port number (between 1 and 65535)."
^DD(2006.563,35,21,0)="^^3^3^3020828^"
^DD(2006.563,35,21,1,0)="The value of this field is an integer number that identifies"
^DD(2006.563,35,21,2,0)="the TCP/IP port that will be used by DICOM WorkList processes"
^DD(2006.563,35,21,3,0)="to post their requests and obtain their results."
^DD(2006.563,35,"DT")="3020828"
^DD(2006.563,36,0)="VISTA RPC PORT^NJ5,0^^M-to-M BROKER PORT;1^K:+X'=X!(X>65535)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.563,36,3)="Enter the port number for the MUMPS-to-MUMPS broker on the VistA system"
^DD(2006.563,36,21,0)="^.001^3^3^3021107^^"
^DD(2006.563,36,21,1,0)="The value of this field is an integer number between 0 and"
^DD(2006.563,36,21,2,0)="65,535 that identifies the port number on which a"
^DD(2006.563,36,21,3,0)="(MUMPS-to-MUMPS) RPC broker is ""listening"" on the VistA system."
^DD(2006.563,36,"DT")="3021002"
^DD(2006.563,37,0)="VISTA RPC IP ADDRESS^F^^M-to-M BROKER ADDR;1^K:$L(X)>63!($L(X)<1) X"
^DD(2006.563,37,3)="Enter the IP address of the VistA system."
^DD(2006.563,37,21,0)="^^3^3^3021002^"
^DD(2006.563,37,21,1,0)="The value of this field is a string that identifies the IP address"
^DD(2006.563,37,21,2,0)="of the VistA system. This IP address is used to establish"
^DD(2006.563,37,21,3,0)="a MUMPS-to-MUMPS RPC broker connection."
^DD(2006.563,37,"DT")="3021002"
^DD(2006.563,38,0)="PROFILE^2006.5632A^^PROFILE;0"
^DD(2006.563,40,0)="MAILGROUP^F^^MAILGROUP;1^K:$L(X)>240!($L(X)<5) X"
^DD(2006.563,40,3)="Enter the name of a mailgroup for emergency messages."
^DD(2006.563,40,21,0)="^^6^6^3021118^"
^DD(2006.563,40,21,1,0)="The value of this field is a string that identifies a (SMTP) mailgroup."
^DD(2006.563,40,21,2,0)="When emergencies arise, a DICOM Gateway will send an e-mail message"
^DD(2006.563,40,21,3,0)="to this mailgroup."
^DD(2006.563,40,21,4,0)="Since the emergency might be that the connection with the VistA system"
^DD(2006.563,40,21,5,0)="is temporarily not available, such messages are sent by SMTP mail,"
^DD(2006.563,40,21,6,0)="not by FORUM mail."
^DD(2006.563,40,"DT")="3021118"
^DD(2006.563,46,0)="DELAY FOR C-MOVE TO EMED^NJ5,0^^EMED_C_MOVE_DELAY;1^K:+X'=X!(X>36000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.563,46,3)="Enter the waiting time (seconds) before a C-Move to an E-Med may occur."
^DD(2006.563,46,21,0)="^^4^4^3021212^"
^DD(2006.563,46,21,1,0)="The value of this field is an integer number. This number indicates"
^DD(2006.563,46,21,2,0)="the waiting time (in seconds) that has to elapse between the"
^DD(2006.563,46,21,3,0)="acquisition of an image and the time when this image may be"
^DD(2006.563,46,21,4,0)="relayed on to an E-Med picture archival system."
^DD(2006.563,46,"DT")="3021212"
^DD(2006.563,47,0)="LAST IMAGE POINTER^P2005'^MAG(2005,^LAST IMAGE POINTER;1^Q"
^DD(2006.563,47,3)="Indicate the highest-numbered image processed."
^DD(2006.563,47,21,0)="^^10^10^3021212^^"
^DD(2006.563,47,21,1,0)="The value of this field is a pointer to the Image File (#2005)."
^DD(2006.563,47,21,2,0)="The pointed-to image is the one with the highest IEN that has"
^DD(2006.563,47,21,3,0)="been processed by a DICOM Gateway."
^DD(2006.563,47,21,4,0)=" "
^DD(2006.563,47,21,5,0)="This value is being tracked for patient-safety reasons."
^DD(2006.563,47,21,6,0)=" "
^DD(2006.563,47,21,7,0)="At a number of sites it has happened that procedural mistakes during"
^DD(2006.563,47,21,8,0)="normal maintenance caused part of the Image File to ""disappear""."
^DD(2006.563,47,21,9,0)="Keeping track of this highest IEN allows the imaging software to"
^DD(2006.563,47,21,10,0)="cause a ""controlled shut-down"" when such a situation occurs."
^DD(2006.563,47,"DT")="3021212"
^DD(2006.563,48,0)="LAST RAD REPORT POINTER^P74'^RARPT(^LAST RAD REPORT POINTER;1^Q"
^DD(2006.563,48,3)="Indicate the highest numbered Radiology Report processed."
^DD(2006.563,48,21,0)="^^10^10^3021212^^"
^DD(2006.563,48,21,1,0)="The value of this field is a pointer to the Rad/Nuc Report File (#74)."
^DD(2006.563,48,21,2,0)="The pointed-to report is the one with the highest IEN that has"
^DD(2006.563,48,21,3,0)="been processed by a DICOM Gateway."
^DD(2006.563,48,21,4,0)=" "
^DD(2006.563,48,21,5,0)="This value is being tracked for patient-safety reasons."
^DD(2006.563,48,21,6,0)=" "
^DD(2006.563,48,21,7,0)="At a number of sites it has happened that procedural mistakes during"
^DD(2006.563,48,21,8,0)="normal maintenance caused part of the Rad/Nuc Report to ""disappear""."
^DD(2006.563,48,21,9,0)="Keeping track of this highest IEN allows the imaging software to"
^DD(2006.563,48,21,10,0)="cause a ""controlled shut-down"" when such a situation occurs."
^DD(2006.563,48,"DT")="3021212"
^DD(2006.563,49,0)="SUPPORT ACCESS^F^^LOGIN SUPPORT;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.563,49,3)="Enter the code that allows support staff local access to a DICOM Gateway."
^DD(2006.563,49,21,0)="^^2^2^3021212^^"
^DD(2006.563,49,21,1,0)="The value of this field is a string that represents the access"
^DD(2006.563,49,21,2,0)="code that will be used to gain 'support staff' access to this gateway."
^DD(2006.563,49,"DT")="3021212"
^DD(2006.563,50,0)="ET PHONES HOME^S^YES:Yes;NO:No;^MAGDBB;1^Q"
^DD(2006.563,50,3)="Indicate whether or not the ET-Phone Home service will be active."
^DD(2006.563,50,21,0)="^^8^8^3021212^"
^DD(2006.563,50,21,1,0)="The value of this field is a code that indicates whether or"
^DD(2006.563,50,21,2,0)="not the ""ET-Phone Home"" feature will be enabled."
^DD(2006.563,50,21,3,0)=" "
^DD(2006.563,50,21,4,0)="When the value of this field is equal to ""YES"", the DICOM Gateway"
^DD(2006.563,50,21,5,0)="will send a report to the support-organization in Silver Spring"
^DD(2006.563,50,21,6,0)="each day. This report includes a summary of the entries in the"
^DD(2006.563,50,21,7,0)="error trap, information of site-specific parameters and station-specific"
^DD(2006.563,50,21,8,0)="parameters, checksums of routines, and usage statistics."
^DD(2006.563,50,"DT")="3021212"
^DD(2006.563,51,0)="M-to-M BROKER MESSAGES^S^YES:Yes;NO:No;^M-to-M BROKER MSGS;1^Q"
^DD(2006.563,51,3)="Indicate whether or not messages about the M-to-M broker will be logged."
^DD(2006.563,51,21,0)="^^6^6^3021212^"
^DD(2006.563,51,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,51,21,2,0)="messages will be logged that report on the usage of the MUMPS-to-MUMPS"
^DD(2006.563,51,21,3,0)="RPC Broker."
^DD(2006.563,51,21,4,0)=" "
^DD(2006.563,51,21,5,0)="When the value of this field is equal to ""YES"", such"
^DD(2006.563,51,21,6,0)="messages will be logged."
^DD(2006.563,51,"DT")="3021212"
^DD(2006.563,52,0)="PACS EXAM COMPLETE^S^YES:Yes;NO:No;^PACS EXAM COMPLETE;1^Q"
^DD(2006.563,52,3)="Indicate whether or not a PACS will be sending Exam Complete messages."
^DD(2006.563,52,21,0)="^^6^6^3021212^"
^DD(2006.563,52,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,52,21,2,0)="this DICOM Gateway will be receiving ""Exam Complete"" messages"
^DD(2006.563,52,21,3,0)="from a PACS."
^DD(2006.563,52,21,4,0)=" "
^DD(2006.563,52,21,5,0)="When the value of this field is ""YES"", such messages will be"
^DD(2006.563,52,21,6,0)="processed."
^DD(2006.563,52,"DT")="3021212"
^DD(2006.563,54,0)="STOP ROUTING TRANSMITTER^S^1:Stop;0:Run;^ROUTE AQ EXIT;1^Q"
^DD(2006.563,54,3)="Indicate whether routing transmitters may run."
^DD(2006.563,54,21,0)="^^13^13^3021212^"
^DD(2006.563,54,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,54,21,2,0)="routing transmitters are currently allowed to run on a suite"
^DD(2006.563,54,21,3,0)="of DICOM Gateways."
^DD(2006.563,54,21,4,0)=" "
^DD(2006.563,54,21,5,0)="When a routing transmitter process is started, the value of this"
^DD(2006.563,54,21,6,0)="field is set to 0 (run)."
^DD(2006.563,54,21,7,0)=" "
^DD(2006.563,54,21,8,0)="When the menu option ""Stop Transmission Processors"" is executed,"
^DD(2006.563,54,21,9,0)="the value of this field is set to 1 (Stop)."
^DD(2006.563,54,21,10,0)=" "
^DD(2006.563,54,21,11,0)="The software of the transmission processor checks this value to"
^DD(2006.563,54,21,12,0)="determine whether to stop gracefully, or to continue transmitting"
^DD(2006.563,54,21,13,0)="the next file."
^DD(2006.563,54,"DT")="3021212"
^DD(2006.563,55,0)="DASHES IN SSN FOR PACS^S^YES:Include dashes;NO:Omit dashes;^SSN DASHES FOR PACS;1^Q"
^DD(2006.563,55,3)="Indicate whether or not the PACS wants dashes in SSNs."
^DD(2006.563,55,21,0)="^^8^8^3021212^"
^DD(2006.563,55,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,55,21,2,0)="the PACS (Picture Archival and Communication System) that"
^DD(2006.563,55,21,3,0)="is connected to this DICOM Gateway requires that SSNs are"
^DD(2006.563,55,21,4,0)="transmitted with dashes included or not."
^DD(2006.563,55,21,5,0)=" "
^DD(2006.563,55,21,6,0)="When the value of this field is equal to ""YES"", SSNs will be"
^DD(2006.563,55,21,7,0)="transmitted to this PACS with dashed included; otherwise the"
^DD(2006.563,55,21,8,0)="dashes will be omitted."
^DD(2006.563,55,"DT")="3021212"
^DD(2006.563,56,0)="INSTALLATION^2006.5634A^^INSTALL;0"
^DD(2006.563,56,"DT")="3021212"
^DD(2006.563,58,0)="LAST CONFIGURATION CHANGE^D^^CONFIG DATE/TIME;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,58,3)="Enter the date and time the configuration was last changed."
^DD(2006.563,58,21,0)="^^3^3^3040303^"
^DD(2006.563,58,21,1,0)="The value of this field is a timestamp (VA-FileMan format)"
^DD(2006.563,58,21,2,0)="that indicates the date and time when the most recent configuration"
^DD(2006.563,58,21,3,0)="update occurred on this DICOM Gateway."
^DD(2006.563,58,"DT")="3040303"
^DD(2006.563,59,0)="DICOM TRANSMITTER ACTIVE^S^RUN:Running;STOP:Inactive;^DICOM XMIT;1^Q"
^DD(2006.563,59,3)="Indicate whether a DICOM transmitter is running or not."
^DD(2006.563,59,21,0)="^^6^6^3040303^"
^DD(2006.563,59,21,1,0)="The value of this field is a code that indicates whether or"
^DD(2006.563,59,21,2,0)="not a DICOM Transmitter is currently running."
^DD(2006.563,59,21,3,0)="Possible values are ""RUN"" and ""STOP""."
^DD(2006.563,59,21,4,0)="Each active DICOM Transmitter will periodically check the value of"
^DD(2006.563,59,21,5,0)="this field, and gracefully terminate if the value of this field"
^DD(2006.563,59,21,6,0)="has been set to ""STOP""."
^DD(2006.563,59,"DT")="3040303"
^DD(2006.563,60,0)="DOMAIN^F^^DOMAIN;1^K:$L(X)>63!($L(X)<1) X"
^DD(2006.563,60,3)="Enter the site's domain name."
^DD(2006.563,60,21,0)="^^5^5^3040303^"
^DD(2006.563,60,21,1,0)="The value of this field is a string that identifies the domain"
^DD(2006.563,60,21,2,0)="to which the site belongs at which this DICOM Gateway is located."
^DD(2006.563,60,21,3,0)="This field is populated automatically, using an RPC to query"
^DD(2006.563,60,21,4,0)="the VistA system for the current values of its Kernel Site Parameters"
^DD(2006.563,60,21,5,0)="when the configuration of the DICOM Gateway is updated."
^DD(2006.563,60,"DT")="3040303"
^DD(2006.563,61,0)="PACS QUERY^2006.5633A^^GE CONV #HRS;0"
^DD(2006.563,62,0)="PACS QUERY ACTIVE^S^YES:Active;NO:Idle;STOP:Stop Requested;^GE CONV ACTIVE;1^Q"
^DD(2006.563,62,3)="Indicate whether a PACS Query is currently running."
^DD(2006.563,62,21,0)="^^10^10^3040303^"
^DD(2006.563,62,21,1,0)="The value of this field is a code that indicates whether"
^DD(2006.563,62,21,2,0)="a PACS query process is currently active."
^DD(2006.563,62,21,3,0)="Possible values are ""YES"", ""NO"" and ""STOP""."
^DD(2006.563,62,21,4,0)=" "
^DD(2006.563,62,21,5,0)="Each PACS Query process will periodically check the value of"
^DD(2006.563,62,21,6,0)="this field, and gracefully terminate if the value of this field"
^DD(2006.563,62,21,7,0)="has been set to ""STOP""."
^DD(2006.563,62,21,8,0)=" "
^DD(2006.563,62,21,9,0)="When a PACS Query Process fully completed its activity, it"
^DD(2006.563,62,21,10,0)="will set the value of this field to ""NO""."
^DD(2006.563,62,"DT")="3040303"
^DD(2006.563,63,0)="PACS QUERY DIRECTION^S^ASCENDING:Ascending Order;DESCENDING:Descending Order;^GE CONV DIR;1^Q"
^DD(2006.563,63,3)="Indicate the traversal direction."
^DD(2006.563,63,21,0)="^^3^3^3040303^"
^DD(2006.563,63,21,1,0)="The value of this field is a code that indicates in which direction"
^DD(2006.563,63,21,2,0)="the PACS QUery process will traverse the database."
^DD(2006.563,63,21,3,0)="Possible values are ""ASCENDING"" and ""DESCENDING""."
^DD(2006.563,63,"DT")="3040303"
^DD(2006.563,64,0)="PACS QUERY ERA 1 START^D^^GE CONV ERA1;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,64,3)="Indicate the start of the ACR/NEMA era."
^DD(2006.563,64,21,0)="^^16^16^3040303^"
^DD(2006.563,64,21,1,0)="The value of this field is a timestamp (VA FileMan format,"
^DD(2006.563,64,21,2,0)="date only) that indicates the start of the time-period during"
^DD(2006.563,64,21,3,0)="which communication with the PACS was conducted using the"
^DD(2006.563,64,21,4,0)="ACR/NEMA protocol."
^DD(2006.563,64,21,5,0)=" "
^DD(2006.563,64,21,6,0)="When querying the PACS, the query process will issue its queries"
^DD(2006.563,64,21,7,0)="according to this protocol for all studies that were conducted"
^DD(2006.563,64,21,8,0)="between the start and end dates that are registered in this"
^DD(2006.563,64,21,9,0)="field (and the next)."
^DD(2006.563,64,21,10,0)=" "
^DD(2006.563,64,21,11,0)="Note that protocol-eras are allowed to overlap. The result"
^DD(2006.563,64,21,12,0)="of registering overlapping protocol eras will be that the"
^DD(2006.563,64,21,13,0)="query process will issues its requests according to all protocols"
^DD(2006.563,64,21,14,0)="that could have been valid at the time. The PACS, on the other"
^DD(2006.563,64,21,15,0)="hand, will only respond to requests that correspond to the"
^DD(2006.563,64,21,16,0)="protocol that was actually active at the time."
^DD(2006.563,64,"DT")="3040303"
^DD(2006.563,65,0)="PACS QUERY ERA 1 END^D^^GE CONV ERA1;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,65,3)="Indicate the end of the ACR/NEMA era."
^DD(2006.563,65,21,0)="^^16^16^3040303^"
^DD(2006.563,65,21,1,0)="The value of this field is a timestamp (VA FileMan format,"
^DD(2006.563,65,21,2,0)="date only) that indicates the end of the time-period during"
^DD(2006.563,65,21,3,0)="which communication with the PACS was conducted using the"
^DD(2006.563,65,21,4,0)="ACR/NEMA protocol."
^DD(2006.563,65,21,5,0)=" "
^DD(2006.563,65,21,6,0)="When querying the PACS, the query process will issue its queries"
^DD(2006.563,65,21,7,0)="according to this protocol for all studies that were conducted"
^DD(2006.563,65,21,8,0)="between the start and end dates that are registered in this"
^DD(2006.563,65,21,9,0)="field (and the previous)."
^DD(2006.563,65,21,10,0)=" "
^DD(2006.563,65,21,11,0)="Note that protocol-eras are allowed to overlap. The result"
^DD(2006.563,65,21,12,0)="of registering overlapping protocol eras will be that the"
^DD(2006.563,65,21,13,0)="query process will issues its requests according to all protocols"
^DD(2006.563,65,21,14,0)="that could have been valid at the time. The PACS, on the other"
^DD(2006.563,65,21,15,0)="hand, will only respond to requests that correspond to the"
^DD(2006.563,65,21,16,0)="protocol that was actually active at the time."
^DD(2006.563,65,"DT")="3040303"
^DD(2006.563,66,0)="PACS QUERY ERA 2 START^D^^GE CONV ERA2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,66,3)="Indicate the start of the Pre 12.1 era."
^DD(2006.563,66,21,0)="^^16^16^3040303^"
^DD(2006.563,66,21,1,0)="The value of this field is a timestamp (VA FileMan format,"
^DD(2006.563,66,21,2,0)="date only) that indicates the start of the time-period during"
^DD(2006.563,66,21,3,0)="which communication with the PACS was conducted using the"
^DD(2006.563,66,21,4,0)="Pre Version 12.1 protocol."
^DD(2006.563,66,21,5,0)=" "
^DD(2006.563,66,21,6,0)="When querying the PACS, the query process will issue its queries"
^DD(2006.563,66,21,7,0)="according to this protocol for all studies that were conducted"
^DD(2006.563,66,21,8,0)="between the start and end dates that are registered in this"
^DD(2006.563,66,21,9,0)="field (and the next)."
^DD(2006.563,66,21,10,0)=" "
^DD(2006.563,66,21,11,0)="Note that protocol-eras are allowed to overlap. The result"
^DD(2006.563,66,21,12,0)="of registering overlapping protocol eras will be that the"
^DD(2006.563,66,21,13,0)="query process will issues its requests according to all protocols"
^DD(2006.563,66,21,14,0)="that could have been valid at the time. The PACS, on the other"
^DD(2006.563,66,21,15,0)="hand, will only respond to requests that correspond to the"
^DD(2006.563,66,21,16,0)="protocol that was actually active at the time."
^DD(2006.563,66,"DT")="3040303"
^DD(2006.563,67,0)="PACS QUERY ERA 2 END^D^^GE CONV ERA2;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,67,3)="Indicate the end of the Pre 12.1 era."
^DD(2006.563,67,21,0)="^^16^16^3040303^"
^DD(2006.563,67,21,1,0)="The value of this field is a timestamp (VA FileMan format,"
^DD(2006.563,67,21,2,0)="date only) that indicates the end of the time-period during"
^DD(2006.563,67,21,3,0)="which communication with the PACS was conducted using the"
^DD(2006.563,67,21,4,0)="Pre Version 12.1 protocol."
^DD(2006.563,67,21,5,0)=" "
^DD(2006.563,67,21,6,0)="When querying the PACS, the query process will issue its queries"
^DD(2006.563,67,21,7,0)="according to this protocol for all studies that were conducted"
^DD(2006.563,67,21,8,0)="between the start and end dates that are registered in this"
^DD(2006.563,67,21,9,0)="field (and the previous)."
^DD(2006.563,67,21,10,0)=" "
^DD(2006.563,67,21,11,0)="Note that protocol-eras are allowed to overlap. The result"
^DD(2006.563,67,21,12,0)="of registering overlapping protocol eras will be that the"
^DD(2006.563,67,21,13,0)="query process will issues its requests according to all protocols"
^DD(2006.563,67,21,14,0)="that could have been valid at the time. The PACS, on the other"
^DD(2006.563,67,21,15,0)="hand, will only respond to requests that correspond to the"
^DD(2006.563,67,21,16,0)="protocol that was actually active at the time."
^DD(2006.563,67,"DT")="3040303"
^DD(2006.563,68,0)="PACS QUERY ERA 3 START^D^^GE CONV ERA3;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,68,3)="Indicate the start of the Post 12.1 era."
^DD(2006.563,68,21,0)="^^16^16^3040303^"
^DD(2006.563,68,21,1,0)="The value of this field is a timestamp (VA FileMan format,"
^DD(2006.563,68,21,2,0)="date only) that indicates the start of the time-period during"
^DD(2006.563,68,21,3,0)="which communication with the PACS was conducted using the"
^DD(2006.563,68,21,4,0)="Post Version 12.1 protocol."
^DD(2006.563,68,21,5,0)=" "
^DD(2006.563,68,21,6,0)="When querying the PACS, the query process will issue its queries"
^DD(2006.563,68,21,7,0)="according to this protocol for all studies that were conducted"
^DD(2006.563,68,21,8,0)="between the start and end dates that are registered in this"
^DD(2006.563,68,21,9,0)="field (and the next)."
^DD(2006.563,68,21,10,0)=" "
^DD(2006.563,68,21,11,0)="Note that protocol-eras are allowed to overlap. The result"
^DD(2006.563,68,21,12,0)="of registering overlapping protocol eras will be that the"
^DD(2006.563,68,21,13,0)="query process will issues its requests according to all protocols"
^DD(2006.563,68,21,14,0)="that could have been valid at the time. The PACS, on the other"
^DD(2006.563,68,21,15,0)="hand, will only respond to requests that correspond to the"
^DD(2006.563,68,21,16,0)="protocol that was actually active at the time."
^DD(2006.563,68,"DT")="3040303"
^DD(2006.563,69,0)="PACS QUERY ERA 3 END^D^^GE CONV ERA3;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,69,3)="Indicate the end of the Post 12.1 era."
^DD(2006.563,69,21,0)="^^16^16^3040303^"
^DD(2006.563,69,21,1,0)="The value of this field is a timestamp (VA FileMan format,"
^DD(2006.563,69,21,2,0)="date only) that indicates the end of the time-period during"
^DD(2006.563,69,21,3,0)="which communication with the PACS was conducted using the"
^DD(2006.563,69,21,4,0)="Post Version 12.1 protocol."
^DD(2006.563,69,21,5,0)=" "
^DD(2006.563,69,21,6,0)="When querying the PACS, the query process will issue its queries"
^DD(2006.563,69,21,7,0)="according to this protocol for all studies that were conducted"
^DD(2006.563,69,21,8,0)="between the start and end dates that are registered in this"
^DD(2006.563,69,21,9,0)="field (and the previous)."
^DD(2006.563,69,21,10,0)=" "
^DD(2006.563,69,21,11,0)="Note that protocol-eras are allowed to overlap. The result"
^DD(2006.563,69,21,12,0)="of registering overlapping protocol eras will be that the"
^DD(2006.563,69,21,13,0)="query process will issues its requests according to all protocols"
^DD(2006.563,69,21,14,0)="that could have been valid at the time. The PACS, on the other"
^DD(2006.563,69,21,15,0)="hand, will only respond to requests that correspond to the"
^DD(2006.563,69,21,16,0)="protocol that was actually active at the time."
^DD(2006.563,69,"DT")="3040303"
^DD(2006.563,70,0)="PACS QUERY UPPER LIMIT^P74'^RARPT(^GE CONV HI;1^Q"
^DD(2006.563,70,3)="Identify the most recent Radiology Report to be queried."
^DD(2006.563,70,21,0)="^^9^9^3040303^"
^DD(2006.563,70,21,1,0)="The value of this field is a pointer to the Radiology Report Table"
^DD(2006.563,70,21,2,0)="(#74). This pointer identifies the highest internal entry number of"
^DD(2006.563,70,21,3,0)="a report that was scanned by the PACS Query Process."
^DD(2006.563,70,21,4,0)=" "
^DD(2006.563,70,21,5,0)="When the ""highest"" and ""lowest"" pointer values ""pass"" one another,"
^DD(2006.563,70,21,6,0)="the scanning process is complete."
^DD(2006.563,70,21,7,0)=" "
^DD(2006.563,70,21,8,0)="Note that the end-user may decide to switch the scanning direction"
^DD(2006.563,70,21,9,0)="from ""ASCENDING"" to ""DESCENDING"" (or the other way about) at any time."
^DD(2006.563,70,"DT")="3040303"
^DD(2006.563,71,0)="PACS QUERY LOWER LIMIT^P74'^RARPT(^GE CONV LO;1^Q"
^DD(2006.563,71,3)="Indicate the oldest Radiology Report to be queried."
^DD(2006.563,71,21,0)="^^9^9^3040303^"
^DD(2006.563,71,21,1,0)="The value of this field is a pointer to the Radiology Report Table"
^DD(2006.563,71,21,2,0)="(#74). This pointer identifies the lowest internal entry number of"
^DD(2006.563,71,21,3,0)="a report that was scanned by the PACS Query Process."
^DD(2006.563,71,21,4,0)=" "
^DD(2006.563,71,21,5,0)="When the ""highest"" and ""lowest"" pointer values ""pass"" one another,"
^DD(2006.563,71,21,6,0)="the scanning process is complete."
^DD(2006.563,71,21,7,0)=" "
^DD(2006.563,71,21,8,0)="Note that the end-user may decide to switch the scanning direction"
^DD(2006.563,71,21,9,0)="from ""ASCENDING"" to ""DESCENDING"" (or the other way about) at any time."
^DD(2006.563,71,"DT")="3040303"
^DD(2006.563,72,0)="PACS QUERY ALLOW ACTIVITY^F^^GE CONV HRS;1^K:$L(X)>24!($L(X)<24) X"
^DD(2006.563,72,3)="Indicate when PACS Queries may be active."
^DD(2006.563,72,21,0)="^^10^10^3040303^"
^DD(2006.563,72,21,1,0)="The value of this field is a string of exactly 24 characters."
^DD(2006.563,72,21,2,0)="Each of these characters is either a ""Y"" or an ""N""."
^DD(2006.563,72,21,3,0)="Each character in this string corresponds to an hour of the day,"
^DD(2006.563,72,21,4,0)="and indicates whether or not a PACS Query Process is allowed to"
^DD(2006.563,72,21,5,0)="be active during that hour of the day."
^DD(2006.563,72,21,6,0)=" "
^DD(2006.563,72,21,7,0)="The first character corresponds to the hour between midnight and 1am,"
^DD(2006.563,72,21,8,0)="the last one corresponds to the hour between 11pm and midnight."
^DD(2006.563,72,21,9,0)=" "
^DD(2006.563,72,21,10,0)="The default value of this field is ""YYYYYYYYYYYYYYYYYYYYYYYY""."
^DD(2006.563,72,"DT")="3040303"
^DD(2006.563,73,0)="CURRENT IMAGE POINTER^P2005'^MAG(2005,^CURRENT IMAGE POINTER;1^Q"
^DD(2006.563,73,3)="Identify the image currently being processed."
^DD(2006.563,73,21,0)="^^3^3^3040303^"
^DD(2006.563,73,21,1,0)="The value of this field is a pointer to the Image Table"
^DD(2006.563,73,21,2,0)="(#2005). This value identifies the image that is currently"
^DD(2006.563,73,21,3,0)="being processed."
^DD(2006.563,73,"DT")="3040303"
^DD(2006.563,74,0)="CURRENT IMAGE DESTINATION^F^^CURRENT IMAGE DESTINATION;1^K:$L(X)>250!($L(X)<1) X"
^DD(2006.563,74,3)="Identify the directory and file name where this image will be stored."
^DD(2006.563,74,21,0)="^^3^3^3040303^"
^DD(2006.563,74,21,1,0)="The value of this field is a string that identifies the image file"
^DD(2006.563,74,21,2,0)="(host system file name, including directory path) that is"
^DD(2006.563,74,21,3,0)="currently being created."
^DD(2006.563,74,"DT")="3040303"
^DD(2006.563,75,0)="CURRENT IMAGE FILE NAME^F^^CURRENT IMAGE FILE NAME;1^K:$L(X)>240!($L(X)<1) X"
^DD(2006.563,75,3)="Identify the file (HSF) currently being processed."
^DD(2006.563,75,21,0)="^^3^3^3040303^"
^DD(2006.563,75,21,1,0)="The value of this field is a string that identifies the image file"
^DD(2006.563,75,21,2,0)="(host system file name, no directory path) that is"
^DD(2006.563,75,21,3,0)="currently being processed."
^DD(2006.563,75,"DT")="3040303"
^DD(2006.563,76,0)="CURRENT IMAGE SOURCE^F^^CURRENT IMAGE SOURCE;1^K:$L(X)>240!($L(X)<1) X"
^DD(2006.563,76,3)="Identify the directory where the current file resides."
^DD(2006.563,76,21,0)="^^2^2^3040303^"
^DD(2006.563,76,21,1,0)="The value of this field is a string that identifies the image file"
^DD(2006.563,76,21,2,0)="(directory path, no file name) that is currently being processed."
^DD(2006.563,76,"DT")="3040303"
^DD(2006.563,77,0)="LAST UID^F^^LAST UID;1^K:$L(X)>64!($L(X)<1) X"
^DD(2006.563,77,3)="Record the most recently issued UID for a new object."
^DD(2006.563,77,21,0)="^^6^6^3040303^"
^DD(2006.563,77,21,1,0)="The value of this field is a string that meets the format"
^DD(2006.563,77,21,2,0)="of a Unique Object Identifier as specified in the DICOM Standard"
^DD(2006.563,77,21,3,0)="(maximum 64 characters, only digits and periods, leading characters"
^DD(2006.563,77,21,4,0)="are the root-numbers that are assigned by ANSI to the VA)."
^DD(2006.563,77,21,5,0)="The value of this field is the UID that was most recently assigned"
^DD(2006.563,77,21,6,0)="by the DICOM Gateway."
^DD(2006.563,77,"DT")="3040303"
^DD(2006.563,78,0)="BACKGROUND PROCESS ACCESS^F^^M-to-M BROKER BGND ACCESS;1^K:$L(X)>63!($L(X)<1) X"
^DD(2006.563,78,3)="Enter the access code for background processes."
^DD(2006.563,78,21,0)="^^8^8^3040303^"
^DD(2006.563,78,21,1,0)="The value of this field is an (encrypted) string. This value will"
^DD(2006.563,78,21,2,0)="be used as an access code by the DICOM Gateway when a ""modality"""
^DD(2006.563,78,21,3,0)="performs a Modality Worklist Query, in those special cases where"
^DD(2006.563,78,21,4,0)="the DICOM Gateway needs to query the VistA system about details"
^DD(2006.563,78,21,5,0)="about ""old"" Radiology studies. (Under normal circumstances, a"
^DD(2006.563,78,21,6,0)="DICOM Gateway will be able to respond to a Modality Worklist"
^DD(2006.563,78,21,7,0)="QUery using only information that is stored on the DICOM Gateway"
^DD(2006.563,78,21,8,0)="itself.)"
^DD(2006.563,78,"DT")="3040303"
^DD(2006.563,79,0)="BACKGROUND PROCESS VERIFY^F^^M-to-M BROKER BGND VERIFY;1^K:$L(X)>63!($L(X)<1) X"
^DD(2006.563,79,3)="Enter the verify code for background processes."
^DD(2006.563,79,21,0)="^^8^8^3040303^"
^DD(2006.563,79,21,1,0)="The value of this field is an (encrypted) string. This value will"
^DD(2006.563,79,21,2,0)="be used as a verify code by the DICOM Gateway when a ""modality"""
^DD(2006.563,79,21,3,0)="performs a Modality Worklist Query, in those special cases where"
^DD(2006.563,79,21,4,0)="the DICOM Gateway needs to query the VistA system about details"
^DD(2006.563,79,21,5,0)="about ""old"" Radiology studies. (Under normal circumstances, a"
^DD(2006.563,79,21,6,0)="DICOM Gateway will be able to respond to a Modality Worklist"
^DD(2006.563,79,21,7,0)="QUery using only information that is stored on the DICOM Gateway"
^DD(2006.563,79,21,8,0)="itself.)"
^DD(2006.563,79,"DT")="3040303"
^DD(2006.563,80,0)="M2M BROKER DEBUG^S^1:Yes;0:No;^M2M DEBUG;1^Q"
^DD(2006.563,80,3)="Indicate whether or not debugging is active for M2M Broker sessions."
^DD(2006.563,80,21,0)="^^13^13^3040303^"
^DD(2006.563,80,21,1,0)="The value of this field is a code that indicates whether"
^DD(2006.563,80,21,2,0)="or not the client for the MUMPS-to-MUMPS Broker should record"
^DD(2006.563,80,21,3,0)="any debugging information. Possible values are 1 (do record"
^DD(2006.563,80,21,4,0)="information) and 0 (do NOT record any information)."
^DD(2006.563,80,21,5,0)=" "
^DD(2006.563,80,21,6,0)="When a DICOM Gateway is installed at a new site, the value of"
^DD(2006.563,80,21,7,0)="this field is ""false"", and this field can only receive a ""true"""
^DD(2006.563,80,21,8,0)="value through a manual operation from ""programmer mode""."
^DD(2006.563,80,21,9,0)=" "
^DD(2006.563,80,21,10,0)="Since the information that is recorded when this switch is turned"
^DD(2006.563,80,21,11,0)="""on"" is quite voluminous, this switch should only be used by"
^DD(2006.563,80,21,12,0)="support personnel to diagnose a problem, and turned off "
^DD(2006.563,80,21,13,0)="immediately after the problem is diagnosed."
^DD(2006.563,80,"DT")="3040303"
^DD(2006.563,81,0)="MULTIFRAME COUNTER^NJ9,0^^MULTIFRAME COUNTER;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.563,81,3)="Record the sequence number of the last-processed frame."
^DD(2006.563,81,21,0)="^^13^13^3040303^"
^DD(2006.563,81,21,1,0)="The value of this field is an integer number that records the"
^DD(2006.563,81,21,2,0)="progress through the various frames of a multi-frame image"
^DD(2006.563,81,21,3,0)="as data for that image is being received."
^DD(2006.563,81,21,4,0)=" "
^DD(2006.563,81,21,5,0)="Under normal circumstances, the various ""frames"" are converted"
^DD(2006.563,81,21,6,0)="to individual images, and there is no need to know the number of"
^DD(2006.563,81,21,7,0)="frames processed to any process process other than the one"
^DD(2006.563,81,21,8,0)="receiving the image data."
^DD(2006.563,81,21,9,0)=" "
^DD(2006.563,81,21,10,0)="However, if that process is interrupted (user interrupt, network"
^DD(2006.563,81,21,11,0)="outage, power failure), a subsequent process will need to know"
^DD(2006.563,81,21,12,0)="which sub-images have already been created when it starts processing"
^DD(2006.563,81,21,13,0)="the re-transmission of the image data."
^DD(2006.563,81,"DT")="3040303"
^DD(2006.563,82,0)="SHOW PATIENT IDENTIFIERS^S^YES:Yes;NO:No;^SHOW PATIENT NAME & ID;1^Q"
^DD(2006.563,82,3)="Indicate whether or not Patient Identifiers will be displayed."
^DD(2006.563,82,21,0)="^^11^11^3040303^"
^DD(2006.563,82,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,82,21,2,0)="an Image Gateway is to display patient identifying information"
^DD(2006.563,82,21,3,0)="while processing images."
^DD(2006.563,82,21,4,0)="Possible values are ""YES"" and ""NO""."
^DD(2006.563,82,21,5,0)=" "
^DD(2006.563,82,21,6,0)="When a DICOM Gateway is located in a well-protected area, it is"
^DD(2006.563,82,21,7,0)="permissible to leave the value of this field equal to ""YES""."
^DD(2006.563,82,21,8,0)="When a DICOM Gateway is located in a publicly accessible area,"
^DD(2006.563,82,21,9,0)="the value of this field may only be set to ""YES"" while an"
^DD(2006.563,82,21,10,0)="adequately privileged user is diagnosing a problem, and should"
^DD(2006.563,82,21,11,0)="be set to ""NO"" at all other times."
^DD(2006.563,82,"DT")="3040303"
^DD(2006.563,83,0)="TEXT GATEWAY SERVICE^S^RAD:Radiology;CON:Consults;^TEXT GATEWAY SERVICE;1^Q"
^DD(2006.563,83,3)="Identify the kind of Imaging Service that is processed by this Gateway."
^DD(2006.563,83,21,0)="^^3^3^3040303^"
^DD(2006.563,83,21,1,0)="The value of this field is a code that indicates which imaging"
^DD(2006.563,83,21,2,0)="service is being performed by this Text Gateway."
^DD(2006.563,83,21,3,0)="Possible values are ""RAD"" (Radiology) and ""CON"" (Consults)."
^DD(2006.563,83,"DT")="3040303"
^DD(2006.563,84,0)="ET ADDRESS^F^^ET ADDRESS;1^K:$L(X)>100!($L(X)<3) X"
^DD(2006.563,84,3)="Enter the e-mail address for the ET Phone Home mailgroup."
^DD(2006.563,84,21,0)="^^5^5^3050224^"
^DD(2006.563,84,21,1,0)="The value of this field is a string. This string identifies"
^DD(2006.563,84,21,2,0)="the mail-group that is used to process messages containing"
^DD(2006.563,84,21,3,0)="routine checksum information."
^DD(2006.563,84,21,4,0)=" "
^DD(2006.563,84,21,5,0)="Typically, the value will look like: G.MAGDBB@LAVC-WASH.MED.VA.GOV"
^DD(2006.563,84,"DT")="3050224"
^DD(2006.563,85,0)="MAG VISTA CHECKSUMS^S^YES:Yes;NO:No;^MAG VISTA CHECKSUMS;1^Q"
^DD(2006.563,85,3)="Indicate whether or not reports with VistA routine checksums are to be sent."
^DD(2006.563,85,21,0)="^^6^6^3050224^"
^DD(2006.563,85,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.563,85,21,2,0)="reports will be sent containing the checksums of all imaging"
^DD(2006.563,85,21,3,0)="routines on the VistA system."
^DD(2006.563,85,21,4,0)=" "
^DD(2006.563,85,21,5,0)="A value of YES indicates that reports are to be sent."
^DD(2006.563,85,21,6,0)="A value of NO indicates that no reports are to be sent."
^DD(2006.563,85,"DT")="3050224"
^DD(2006.563,86,0)="EXPORT ACTIVE^S^YES:Yes;NO:No;^EXPORT ACTIVE;1^Q"
^DD(2006.563,86,3)="Indicate whether or not an export batch run is active."
^DD(2006.563,86,21,0)="^^3^3^3051006^"
^DD(2006.563,86,21,1,0)="The value of this field is a code that indicates whether or"
^DD(2006.563,86,21,2,0)="not a batch export run is currently active."
^DD(2006.563,86,21,3,0)="Possible values are ""YES"" and ""NO""."
^DD(2006.563,86,"DT")="3051006"
^DD(2006.563,87,0)="EXPORT BATCH IMAGES^NJ12,0^^EXPORT BATCH #IMAGES;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.563,87,3)="Indicate how many images are queued up for batch transmission."
^DD(2006.563,87,21,0)="^^3^3^3051006^"
^DD(2006.563,87,21,1,0)="The value of this field is an integer number. This number"
^DD(2006.563,87,21,2,0)="indicates the number of images that have been queued up for"
^DD(2006.563,87,21,3,0)="batch transmission."
^DD(2006.563,87,"DT")="3051006"
^DD(2006.563,88,0)="EXPORT BATCH GROUP COUNT^NJ12,0^^EXPORT BATCH COUNT;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.563,88,3)="Indicate how many groups have been queued up for transmission."
^DD(2006.563,88,21,0)="^^3^3^3051006^"
^DD(2006.563,88,21,1,0)="The value of this field is an integer number. This number"
^DD(2006.563,88,21,2,0)="indicates the number of image groups that have been queued up for"
^DD(2006.563,88,21,3,0)="batch transmission."
^DD(2006.563,88,"DT")="3051006"
^DD(2006.563,89,0)="EXPORT BATCH MAX GROUP^NJ12,0^^EXPORT BATCH SIZE;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.563,89,3)="Indicate the maximum number of image groups for a batch run."
^DD(2006.563,89,21,0)="^^2^2^3051006^"
^DD(2006.563,89,21,1,0)="is the default value for the maximum number of image groups that may be"
^DD(2006.563,89,21,2,0)="queued up in the next batch transmission."
^DD(2006.563,89,"DT")="3051006"
^DD(2006.563,90,0)="EXPORT BEGIN DATE^D^^EXPORT BEGIN DATE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,90,3)="Indicate the first date to include in scans of Radiology reports."
^DD(2006.563,90,21,0)="^^3^3^3051006^"
^DD(2006.563,90,21,1,0)="The value of this field is a (VA-FileMan formatted) date."
^DD(2006.563,90,21,2,0)="This date is the default value for the first day of the period that is"
^DD(2006.563,90,21,3,0)="intended to be included in the next DICOM export batch."
^DD(2006.563,90,"DT")="3051006"
^DD(2006.563,91,0)="EXPORT FIRST REPORT NUMBER^P74'^RARPT(^EXPORT RADIOLOGY REPORT # START;1^Q"
^DD(2006.563,91,3)="Identify the first report to be included in the next batch scan."
^DD(2006.563,91,21,0)="^^4^4^3051006^"
^DD(2006.563,91,21,1,0)="The value of this field is a pointer to the Radiology Report"
^DD(2006.563,91,21,2,0)="table (FileMan file # 74)."
^DD(2006.563,91,21,3,0)="This pointer is the default value for the first report for which images"
^DD(2006.563,91,21,4,0)="will be included in the next DICOM batch transmission."
^DD(2006.563,91,"DT")="3051006"
^DD(2006.563,92,0)="EXPORT LAST REPORT NUMBER^P74'^RARPT(^EXPORT RADIOLOGY REPORT # STOP;1^Q"
^DD(2006.563,92,3)="Identify the last report to include in the next batch scan."
^DD(2006.563,92,21,0)="^^4^4^3051006^"
^DD(2006.563,92,21,1,0)="The value of this field is a pointer to the Radiology Report"
^DD(2006.563,92,21,2,0)="table (FileMan file # 74)."
^DD(2006.563,92,21,3,0)="This pointer is the default value for the last report for which images"
^DD(2006.563,92,21,4,0)="will be included in a DICOM batch transmission."
^DD(2006.563,92,"DT")="3051006"
^DD(2006.563,93,0)="DICOM EXPORT RUN NUMBER^P2006.565'^MAGDICOM(2006.565,^EXPORT DICOM RUN NUMBER;1^Q"
^DD(2006.563,93,3)="Idenfify the latest DICOM export batch run."
^DD(2006.563,93,21,0)="^^3^3^3051007^"
^DD(2006.563,93,21,1,0)="The value of this field is a pointer to the table that"
^DD(2006.563,93,21,2,0)="keeps track of the various DICOM export batch runs (#2006.565)."
^DD(2006.563,93,21,3,0)="This field identifies the most recently added entry to that table."
^DD(2006.563,93,"DT")="3051007"
^DD(2006.563,94,0)="EXPORT DICOM STORAGE SCP^P2006.585'^MAGDICOM(2006.585,^EXPORT DICOM STORAGE SCP;1^Q"
^DD(2006.563,94,3)="Identify the (default) destination of the next batch transmission."
^DD(2006.563,94,21,0)="^^4^4^3051006^"
^DD(2006.563,94,21,1,0)="The value of this field is a pointer to the User Application table"
^DD(2006.563,94,21,2,0)="(FileMan file # 2006.585). This pointer is the default value for"
^DD(2006.563,94,21,3,0)="the Storage SCP to which the images are to be transmitted in"
^DD(2006.563,94,21,4,0)="the next batch run."
^DD(2006.563,94,"DT")="3051006"
^DD(2006.563,95,0)="EXPORT DIRECTION^S^ASCENDING:Ascending;DESCENDING:Descending;^EXPORT DIRECTION;1^Q"
^DD(2006.563,95,3)="Indicate the (default) scanning direction for the next batch run."
^DD(2006.563,95,21,0)="^^4^4^3051006^"
^DD(2006.563,95,21,1,0)="The value of this field is a code that indicates the direction"
^DD(2006.563,95,21,2,0)="in which the Radiology Report table is to be scanned."
^DD(2006.563,95,21,3,0)="This value is the default code to be used in the next batch run."
^DD(2006.563,95,21,4,0)="Possible values are ""ASCENDING"" and ""DESCENDING""."
^DD(2006.563,95,"DT")="3051006"
^DD(2006.563,96,0)="EXPORT HOURS OF OPERATION^F^^EXPORT HOURS OF OPERATION;1^K:$L(X)>24!($L(X)<24) X"
^DD(2006.563,96,3)="Indicate when batch runs are allowed to be active."
^DD(2006.563,96,21,0)="^^12^12^3051006^"
^DD(2006.563,96,21,1,0)="The value of this field is a string. This string consists of"
^DD(2006.563,96,21,2,0)="the letters ""Y"" and ""N"". This value indicates during which hours"
^DD(2006.563,96,21,3,0)="of the day this batch run may be active."
^DD(2006.563,96,21,4,0)=" "
^DD(2006.563,96,21,5,0)="A string of 24 letters ""Y"" denotes a batch run that may run all day long."
^DD(2006.563,96,21,6,0)=" "
^DD(2006.563,96,21,7,0)="A string like ""YYYYYYYYNNNNNNNNNYYYYYYY"" denotes a batch run"
^DD(2006.563,96,21,8,0)="that may only run outside of regular office hours (midnight to 9am"
^DD(2006.563,96,21,9,0)="and 6pm to midnight)."
^DD(2006.563,96,21,10,0)=" "
^DD(2006.563,96,21,11,0)="This value is the default for the setting to be used in the"
^DD(2006.563,96,21,12,0)="next batch run."
^DD(2006.563,96,"DT")="3051006"
^DD(2006.563,97,0)="EXPORT PATIENT^P2'^DPT(^EXPORT PATIENT;1^Q"
^DD(2006.563,97,3)="Identify the patient for whom to scan reports in the next batch run."
^DD(2006.563,97,21,0)="^^1^1^3051006^"
^DD(2006.563,97,21,1,0)="---???---"
^DD(2006.563,97,"DT")="3051006"
^DD(2006.563,98,0)="EXPORT RADIOLOGY REPORT^P74'^RARPT(^EXPORT RADIOLOGY REPORT #;1^Q"
^DD(2006.563,98,3)="Identify the Radiology Report that was processed most recently."
^DD(2006.563,98,21,0)="^^4^4^3051006^"
^DD(2006.563,98,21,1,0)="The value of this field is a pointer to the Radiology Report"
^DD(2006.563,98,21,2,0)="table (FileMan file # 74)."
^DD(2006.563,98,21,3,0)="This pointer identifies the report that has been scanned most"
^DD(2006.563,98,21,4,0)="recently in a batch run."
^DD(2006.563,98,"DT")="3051006"
^DD(2006.563,99,0)="EXPORT SCAN MODE^S^DATE:Date;NUMBER:Report;PATIENT:Patient;^EXPORT SCAN MODE;1^Q"
^DD(2006.563,99,3)="Identify the primary scanning criterium for the next batch run."
^DD(2006.563,99,21,0)="^^14^14^3051006^"
^DD(2006.563,99,21,1,0)="Set of codes: DATE, NUMBER, PATIENT"
^DD(2006.563,99,21,2,0)="The value of this field is a code that identifies the method"
^DD(2006.563,99,21,3,0)="of scanning the Radiology Reports."
^DD(2006.563,99,21,4,0)="Possible values are ""DATE"", ""NUMBER"" and ""PATIENT""."
^DD(2006.563,99,21,5,0)=" "
^DD(2006.563,99,21,6,0)="A value of ""DATE"" indicates that the reports are scanned by date."
^DD(2006.563,99,21,7,0)=" "
^DD(2006.563,99,21,8,0)="A value of ""PATIENT"" indicates that the reports are scanned"
^DD(2006.563,99,21,9,0)="by (internal entry number of) patient."
^DD(2006.563,99,21,10,0)=" "
^DD(2006.563,99,21,11,0)="A value of ""NUMBER"" indicates that the reports are scanned"
^DD(2006.563,99,21,12,0)="by (internal entry number of) report."
^DD(2006.563,99,21,13,0)=" "
^DD(2006.563,99,21,14,0)="This value is the default to be used in the next batch run."
^DD(2006.563,99,"DT")="3051006"
^DD(2006.563,100,0)="FUJI PACS START DATE^D^^GE CONV ERA4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,100,3)="Indicate when the Fuji PACS became active."
^DD(2006.563,100,21,0)="^^4^4^3051006^"
^DD(2006.563,100,21,1,0)="The value of this field is a (VA-FileMan formatted) date"
^DD(2006.563,100,21,2,0)="that indicates the first day of the period during which"
^DD(2006.563,100,21,3,0)="information was stored according to the format for a"
^DD(2006.563,100,21,4,0)="Fuji PACS."
^DD(2006.563,100,"DT")="3051006"
^DD(2006.563,101,0)="FUJI PACS END DATE^D^^GE CONV ERA4;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,101,3)="Indicate when the Fuji PACS ceased to be active."
^DD(2006.563,101,21,0)="^^4^4^3051006^"
^DD(2006.563,101,21,1,0)="The value of this field is a (VA-FileMan formatted) date"
^DD(2006.563,101,21,2,0)="that indicates the last day of the period during which"
^DD(2006.563,101,21,3,0)="information was stored according to the format for a"
^DD(2006.563,101,21,4,0)="Fuji PACS."
^DD(2006.563,101,"DT")="3051006"
^DD(2006.563,102,0)="QUERY STUDY SELECTION^S^1:All Studies;2:Studies without images;3:Studies with images;^GE CONV IMGSTU;1^Q"
^DD(2006.563,102,3)="Indicate for which studies queries should be issued."
^DD(2006.563,102,21,0)="^^5^5^3051006^"
^DD(2006.563,102,21,1,0)="The value of this field is a code that indicates for"
^DD(2006.563,102,21,2,0)="which studies queries will be issued:"
^DD(2006.563,102,21,3,0)="  1 = for all studies"
^DD(2006.563,102,21,4,0)="  2 = only for studies that don't currently have images"
^DD(2006.563,102,21,5,0)="  3 = only for studies that already have images"
^DD(2006.563,102,"DT")="3051006"
^DD(2006.563,103,0)="DASHES FOR SSN IN PACS QUERY^S^YES:Yes;NO:No;^GE CONV SSNDASH;1^Q"
^DD(2006.563,103,3)="Indicate whether or not to include dashes in SSNs for PACS queries."
^DD(2006.563,103,21,0)="^^4^4^3051006^"
^DD(2006.563,103,21,1,0)="The value of this field is a code that indicates whether"
^DD(2006.563,103,21,2,0)="or not dashes are to be included in values of SSNs that"
^DD(2006.563,103,21,3,0)="are transmitted to the external PACS."
^DD(2006.563,103,21,4,0)="Possible values are ""YES"" and ""NO""."
^DD(2006.563,103,"DT")="3051006"
^DD(2006.563,104,0)="EXPORT STOP DATE^D^^EXPORT STOP DATE;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.563,104,3)="Indicate the last date to be scanned in the next batch run."
^DD(2006.563,104,21,0)="^^3^3^3051006^"
^DD(2006.563,104,21,1,0)="The value of this field is a (VA-FileMan formatted) date."
^DD(2006.563,104,21,2,0)="This date is the default value for the last day of the period"
^DD(2006.563,104,21,3,0)="that is intended to be included in the next DICOM export batch."
^DD(2006.563,104,"DT")="3051006"
^DD(2006.563,105,0)="WORKLIST PORT^2006.5635A^^WORKLIST PORT;0"
^DD(2006.563,"B","ACCESS CODE",29)=""
^DD(2006.563,"B","ASCII DICOM TEXT",2)=""
^DD(2006.563,"B","BACKGROUND PROCESS ACCESS",78)=""
^DD(2006.563,"B","BACKGROUND PROCESS VERIFY",79)=""
^DD(2006.563,"B","COMMERCIAL PACS",3)=""
^DD(2006.563,"B","CONSOLIDATED IMAGING SOFTWARE",25)=""
^DD(2006.563,"B","CPT MODIFIER",26)=""
^DD(2006.563,"B","CSTORE CONTROL PORT",34)=""
^DD(2006.563,"B","CURRENT IMAGE DESTINATION",74)=""
^DD(2006.563,"B","CURRENT IMAGE FILE NAME",75)=""
^DD(2006.563,"B","CURRENT IMAGE POINTER",73)=""
^DD(2006.563,"B","CURRENT IMAGE SOURCE",76)=""
^DD(2006.563,"B","DASHES FOR SSN IN PACS QUERY",103)=""
^DD(2006.563,"B","DASHES IN SSN FOR PACS",55)=""
^DD(2006.563,"B","DATA PATH",4)=""
^DD(2006.563,"B","DELAY FOR C-MOVE TO EMED",46)=""
^DD(2006.563,"B","DICOM EXPORT RUN NUMBER",93)=""
^DD(2006.563,"B","DICOM TRANSMITTER ACTIVE",59)=""
^DD(2006.563,"B","DICT PATH",5)=""
^DD(2006.563,"B","DOMAIN",60)=""
^DD(2006.563,"B","ET ADDRESS",84)=""
^DD(2006.563,"B","ET PHONES HOME",50)=""
^DD(2006.563,"B","EVALUATOR",33)=""
^DD(2006.563,"B","EXPORT ACTIVE",86)=""
^DD(2006.563,"B","EXPORT BATCH GROUP COUNT",88)=""
^DD(2006.563,"B","EXPORT BATCH IMAGES",87)=""
^DD(2006.563,"B","EXPORT BATCH MAX GROUP",89)=""
^DD(2006.563,"B","EXPORT BEGIN DATE",90)=""
^DD(2006.563,"B","EXPORT DICOM STORAGE SCP",94)=""
^DD(2006.563,"B","EXPORT DIRECTION",95)=""
^DD(2006.563,"B","EXPORT FIRST REPORT NUMBER",91)=""
^DD(2006.563,"B","EXPORT HOURS OF OPERATION",96)=""
^DD(2006.563,"B","EXPORT LAST REPORT NUMBER",92)=""
^DD(2006.563,"B","EXPORT PATIENT",97)=""
^DD(2006.563,"B","EXPORT RADIOLOGY REPORT",98)=""
^DD(2006.563,"B","EXPORT SCAN MODE",99)=""
^DD(2006.563,"B","EXPORT STOP DATE",104)=""
^DD(2006.563,"B","FREE DISK SPACE",21)=""
^DD(2006.563,"B","FUJI PACS END DATE",101)=""
^DD(2006.563,"B","FUJI PACS START DATE",100)=""
^DD(2006.563,"B","HIS/RIS",6)=""
^DD(2006.563,"B","HL7 POINTER",20)=""
^DD(2006.563,"B","IMAGE INPUT PATH",7)=""
^DD(2006.563,"B","IMAGE OUTPUT PATH",8)=""
^DD(2006.563,"B","INSTALLATION",56)=""
^DD(2006.563,"B","INSTRUMENT PATH",11)=""
^DD(2006.563,"B","LAST CONFIGURATION CHANGE",58)=""
^DD(2006.563,"B","LAST IMAGE POINTER",47)=""
^DD(2006.563,"B","LAST RAD REPORT POINTER",48)=""
^DD(2006.563,"B","LAST SYSTEM REPORT",23)=""
^DD(2006.563,"B","LAST UID",77)=""
^DD(2006.563,"B","LOCATION NAME",28)=""
^DD(2006.563,"B","M-to-M BROKER MESSAGES",51)=""
^DD(2006.563,"B","M2M BROKER DEBUG",80)=""
^DD(2006.563,"B","MACHINE ID",9)=""
^DD(2006.563,"B","MAG VISTA CHECKSUMS",85)=""
^DD(2006.563,"B","MAILGROUP",40)=""
^DD(2006.563,"B","MESSAGE LOG",10)=""
^DD(2006.563,"B","MODALITY WORKLIST",12)=""
^DD(2006.563,"B","MULTIFRAME COUNTER",81)=""
^DD(2006.563,"B","Machine ID",9)="1"
^DD(2006.563,"B","PACS EXAM COMPLETE",52)=""
^DD(2006.563,"B","PACS IMAGES",13)=""
^DD(2006.563,"B","PACS QUERY",61)=""
^DD(2006.563,"B","PACS QUERY ACTIVE",62)=""
^DD(2006.563,"B","PACS QUERY ALLOW ACTIVITY",72)=""
^DD(2006.563,"B","PACS QUERY DIRECTION",63)=""
^DD(2006.563,"B","PACS QUERY ERA 1 END",65)=""
^DD(2006.563,"B","PACS QUERY ERA 1 START",64)=""
^DD(2006.563,"B","PACS QUERY ERA 2 END",67)=""
^DD(2006.563,"B","PACS QUERY ERA 2 START",66)=""
^DD(2006.563,"B","PACS QUERY ERA 3 END",69)=""
^DD(2006.563,"B","PACS QUERY ERA 3 START",68)=""
^DD(2006.563,"B","PACS QUERY LOWER LIMIT",71)=""
^DD(2006.563,"B","PACS QUERY UPPER LIMIT",70)=""
^DD(2006.563,"B","PLACE",17)=""
^DD(2006.563,"B","POST OFFICE",24)=""
^DD(2006.563,"B","PROFILE",38)=""
^DD(2006.563,"B","PROGRAMMER ACCESS",32)=""
^DD(2006.563,"B","QUERY STUDY SELECTION",102)=""
^DD(2006.563,"B","READ ONLY ACCESS",31)=""
^DD(2006.563,"B","ROUTING RULES",14)=""
^DD(2006.563,"B","SCRATCH",15)=""
^DD(2006.563,"B","SEND PACS TEXT",16)=""
^DD(2006.563,"B","SHOW PATIENT IDENTIFIERS",82)=""
^DD(2006.563,"B","STOP ROUTING TRANSMITTER",54)=""
^DD(2006.563,"B","SUPPORT ACCESS",49)=""
^DD(2006.563,"B","SYSTEM TITLE",.01)=""
^DD(2006.563,"B","TEXT GATEWAY",22)=""
^DD(2006.563,"B","TEXT GATEWAY SERVICE",83)=""
^DD(2006.563,"B","TIME ZONE OFFSET",27)=""
^DD(2006.563,"B","UID ROOT",18)=""
^DD(2006.563,"B","VERIFY CODE",30)=""
^DD(2006.563,"B","VERSION",19)=""
^DD(2006.563,"B","VISTA RPC IP ADDRESS",37)=""
^DD(2006.563,"B","VISTA RPC PORT",36)=""
^DD(2006.563,"B","WORKLIST PORT",35)=""
^DD(2006.563,"B","WORKLIST PORT",105)=""
^DD(2006.563,"GL","ASCII DICOM TEXT",1,2)=""
^DD(2006.563,"GL","COMMERCIAL PACS",1,3)=""
^DD(2006.563,"GL","CONFIG DATE/TIME",1,58)=""
^DD(2006.563,"GL","CONSOLIDATED",1,25)=""
^DD(2006.563,"GL","CSTORE CONTROL PORT",1,34)=""
^DD(2006.563,"GL","CURRENT IMAGE DESTINATION",1,74)=""
^DD(2006.563,"GL","CURRENT IMAGE FILE NAME",1,75)=""
^DD(2006.563,"GL","CURRENT IMAGE POINTER",1,73)=""
^DD(2006.563,"GL","CURRENT IMAGE SOURCE",1,76)=""
^DD(2006.563,"GL","DAILY REPORT",1,23)=""
^DD(2006.563,"GL","DATA PATH",0,4)=""
^DD(2006.563,"GL","DICOM XMIT",1,59)=""
^DD(2006.563,"GL","DICT PATH",1,5)=""
^DD(2006.563,"GL","DOMAIN",1,60)=""
^DD(2006.563,"GL","EMED_C_MOVE_DELAY",1,46)=""
^DD(2006.563,"GL","ET ADDRESS",1,84)=""
^DD(2006.563,"GL","EVAL",1,33)=""
^DD(2006.563,"GL","EXPORT ACTIVE",1,86)=""
^DD(2006.563,"GL","EXPORT BATCH #IMAGES",1,87)=""
^DD(2006.563,"GL","EXPORT BATCH COUNT",1,88)=""
^DD(2006.563,"GL","EXPORT BATCH SIZE",1,89)=""
^DD(2006.563,"GL","EXPORT BEGIN DATE",1,90)=""
^DD(2006.563,"GL","EXPORT DICOM RUN NUMBER",1,93)=""
^DD(2006.563,"GL","EXPORT DICOM STORAGE SCP",1,94)=""
^DD(2006.563,"GL","EXPORT DIRECTION",1,95)=""
^DD(2006.563,"GL","EXPORT HOURS OF OPERATION",1,96)=""
^DD(2006.563,"GL","EXPORT PATIENT",1,97)=""
^DD(2006.563,"GL","EXPORT RADIOLOGY REPORT #",1,98)=""
^DD(2006.563,"GL","EXPORT RADIOLOGY REPORT # START",1,91)=""
^DD(2006.563,"GL","EXPORT RADIOLOGY REPORT # STOP",1,92)=""
^DD(2006.563,"GL","EXPORT SCAN MODE",1,99)=""
^DD(2006.563,"GL","EXPORT STOP DATE",1,104)=""
^DD(2006.563,"GL","FREE DISK SPACE",1,21)=""
^DD(2006.563,"GL","GE CONV #HRS",0,61)=""
^DD(2006.563,"GL","GE CONV ACTIVE",1,62)=""
^DD(2006.563,"GL","GE CONV DIR",1,63)=""
^DD(2006.563,"GL","GE CONV ERA1",1,64)=""
^DD(2006.563,"GL","GE CONV ERA1",2,65)=""
^DD(2006.563,"GL","GE CONV ERA2",1,66)=""
^DD(2006.563,"GL","GE CONV ERA2",2,67)=""
^DD(2006.563,"GL","GE CONV ERA3",1,68)=""
^DD(2006.563,"GL","GE CONV ERA3",2,69)=""
^DD(2006.563,"GL","GE CONV ERA4",1,100)=""
^DD(2006.563,"GL","GE CONV ERA4",2,101)=""
^DD(2006.563,"GL","GE CONV HI",1,70)=""
^DD(2006.563,"GL","GE CONV HRS",1,72)=""
^DD(2006.563,"GL","GE CONV IMGSTU",1,102)=""
^DD(2006.563,"GL","GE CONV LO",1,71)=""
^DD(2006.563,"GL","GE CONV SSNDASH",1,103)=""
^DD(2006.563,"GL","HIS/RIS",1,6)=""
^DD(2006.563,"GL","HL7_PTR",1,20)=""
^DD(2006.563,"GL","IMAGE INPUT PATH",1,7)=""
^DD(2006.563,"GL","IMAGE OUTPUT PATH",1,8)=""
^DD(2006.563,"GL","INSTALL",0,56)=""
^DD(2006.563,"GL","INSTRUMENT PATH",1,11)=""
^DD(2006.563,"GL","LAST IMAGE POINTER",1,47)=""
^DD(2006.563,"GL","LAST RAD REPORT POINTER",1,48)=""
^DD(2006.563,"GL","LAST UID",1,77)=""
^DD(2006.563,"GL","LOCATION",1,17)=""
^DD(2006.563,"GL","LOCATION NAME",1,28)=""
^DD(2006.563,"GL","LOGIN ACCESS",1,29)=""
^DD(2006.563,"GL","LOGIN PRINT/VIEW ONLY",1,31)=""
^DD(2006.563,"GL","LOGIN PROGRAMMER ACCESS",1,32)=""
^DD(2006.563,"GL","LOGIN SUPPORT",1,49)=""
^DD(2006.563,"GL","LOGIN VERIFY",1,30)=""
^DD(2006.563,"GL","M-to-M BROKER ADDR",1,37)=""
^DD(2006.563,"GL","M-to-M BROKER BGND ACCESS",1,78)=""
^DD(2006.563,"GL","M-to-M BROKER BGND VERIFY",1,79)=""
^DD(2006.563,"GL","M-to-M BROKER MSGS",1,51)=""
^DD(2006.563,"GL","M-to-M BROKER PORT",1,36)=""
^DD(2006.563,"GL","M2M DEBUG",1,80)=""
^DD(2006.563,"GL","MACHINE ID",1,9)=""
^DD(2006.563,"GL","MAG VISTA CHECKSUMS",1,85)=""
^DD(2006.563,"GL","MAGDBB",1,50)=""
^DD(2006.563,"GL","MAILGROUP",1,40)=""
^DD(2006.563,"GL","MESSAGE LOG",1,10)=""
^DD(2006.563,"GL","MODALITY WORKLIST",1,12)=""
^DD(2006.563,"GL","MULTIFRAME COUNTER",1,81)=""
^DD(2006.563,"GL","PACS EXAM COMPLETE",1,52)=""
^DD(2006.563,"GL","PACS IMAGES",1,13)=""
^DD(2006.563,"GL","POST OFFICE",1,24)=""
^DD(2006.563,"GL","PROFILE",0,38)=""
^DD(2006.563,"GL","ROUTE AQ EXIT",1,54)=""
^DD(2006.563,"GL","ROUTING RULES",1,14)=""
^DD(2006.563,"GL","SCRATCH",1,15)=""
^DD(2006.563,"GL","SEND CPT MODIFIERS",1,26)=""
^DD(2006.563,"GL","SEND PACS TEXT",1,16)=""
^DD(2006.563,"GL","SHOW PATIENT NAME & ID",1,82)=""
^DD(2006.563,"GL","SSN DASHES FOR PACS",1,55)=""
^DD(2006.563,"GL","SYSTEM TITLE",1,.01)=""
^DD(2006.563,"GL","TEXT GATEWAY",1,22)=""
^DD(2006.563,"GL","TEXT GATEWAY SERVICE",1,83)=""
^DD(2006.563,"GL","TIME ZONE",1,27)=""
^DD(2006.563,"GL","UID ROOT",1,18)=""
^DD(2006.563,"GL","VERSION",1,19)=""
^DD(2006.563,"GL","WORKLIST PORT",0,105)=""
^DD(2006.563,"GL","WORKLIST PORT",1,35)=""
^DD(2006.563,"RQ",.01)=""
^DD(2006.563,"SB",2006.5631,4)=""
^DD(2006.563,"SB",2006.5632,38)=""
^DD(2006.563,"SB",2006.5633,61)=""
^DD(2006.563,"SB",2006.5634,56)=""
^DD(2006.563,"SB",2006.5635,105)=""
^DD(2006.5631,0)="DATA PATH SUB-FIELD^^2^3"
^DD(2006.5631,0,"DT")="3010227"
^DD(2006.5631,0,"IX","B",2006.5631,.01)=""
^DD(2006.5631,0,"NM","DATA PATH")=""
^DD(2006.5631,0,"UP")="2006.563"
^DD(2006.5631,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5631,.001,3)="Enter the sequence number of this data channel."
^DD(2006.5631,.001,21,0)="^^2^2^3010227^^"
^DD(2006.5631,.001,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.5631,.001,21,2,0)="the channel number of the data channel being described in this record."
^DD(2006.5631,.001,"DT")="3010227"
^DD(2006.5631,.01,0)="CHANNEL^RNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(2006.5631,.01,1,0)="^.1"
^DD(2006.5631,.01,1,1,0)="2006.5631^B"
^DD(2006.5631,.01,1,1,1)="S ^MAGDICOM(2006.563,DA(1),""DATA PATH"",""B"",$E(X,1,30),DA)="""""
^DD(2006.5631,.01,1,1,2)="K ^MAGDICOM(2006.563,DA(1),""DATA PATH"",""B"",$E(X,1,30),DA)"
^DD(2006.5631,.01,3)="Enter the sequence number of this data channel."
^DD(2006.5631,.01,21,0)="^^2^2^3010227^^"
^DD(2006.5631,.01,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.5631,.01,21,2,0)="the channel number of the data channel being described in this record."
^DD(2006.5631,.01,"DT")="3010227"
^DD(2006.5631,2,0)="PATH^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5631,2,3)="Enter the directory-prefix for this data channel."
^DD(2006.5631,2,21,0)="^^4^4^3010227^^"
^DD(2006.5631,2,21,1,0)="The value of this field is the 'path-prefix'"
^DD(2006.5631,2,21,2,0)="that needs to be applied to gain access to the"
^DD(2006.5631,2,21,3,0)="files that are created to implement the FIFO"
^DD(2006.5631,2,21,4,0)="queues."
^DD(2006.5631,2,"DT")="3010227"
^DD(2006.5631,"B","CHANNEL",.01)=""
^DD(2006.5631,"B","NUMBER",.001)=""
^DD(2006.5631,"B","PATH",2)=""
^DD(2006.5631,"GL",0,1,.01)=""
^DD(2006.5631,"GL",0,2,2)=""
^DD(2006.5631,"IX",.01)=""
^DD(2006.5631,"RQ",.01)=""
^DD(2006.5632,0)="PROFILE SUB-FIELD^^4^4"
^DD(2006.5632,0,"DT")="3040303"
^DD(2006.5632,0,"IX","B",2006.5632,.01)=""
^DD(2006.5632,0,"NM","PROFILE")=""
^DD(2006.5632,0,"UP")="2006.563"
^DD(2006.5632,.01,0)="USER^NJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5632,.01,1,0)="^.1"
^DD(2006.5632,.01,1,1,0)="2006.5632^B"
^DD(2006.5632,.01,1,1,1)="S ^MAGDICOM(2006.563,DA(1),""PROFILE"",""B"",$E(X,1,30),DA)="""""
^DD(2006.5632,.01,1,1,2)="K ^MAGDICOM(2006.563,DA(1),""PROFILE"",""B"",$E(X,1,30),DA)"
^DD(2006.5632,.01,3)="Enter a number that uniquely identifies this user."
^DD(2006.5632,.01,21,0)="^.001^3^3^3021002^^"
^DD(2006.5632,.01,21,1,0)="The value of this field is an integer number that identifies a user."
^DD(2006.5632,.01,21,2,0)="The value for this field is copied from the value of ""DUZ"" (user number)"
^DD(2006.5632,.01,21,3,0)="on the VistA system where this number is registered."
^DD(2006.5632,.01,"DT")="3021002"
^DD(2006.5632,1,0)="ACCESS LEVEL^S^1:Full Access;2:View Only Access;^0;2^Q"
^DD(2006.5632,1,3)="Indicate the access level for this user."
^DD(2006.5632,1,21,0)="^^5^5^3021002^"
^DD(2006.5632,1,21,1,0)="The value of this field is a code that identifies the"
^DD(2006.5632,1,21,2,0)="access level (on the DICOM Gateway) for the current user."
^DD(2006.5632,1,21,3,0)=" "
^DD(2006.5632,1,21,4,0)="On a DICOM Gateway, a user can have full access (value is 1)"
^DD(2006.5632,1,21,5,0)="or view only access (value is 2)."
^DD(2006.5632,1,"DT")="3021002"
^DD(2006.5632,2,0)="VISTA ACCESS INFO^F^^0;3^K:$L(X)>63!($L(X)<1) X"
^DD(2006.5632,2,3)="Enter access information for this user."
^DD(2006.5632,2,21,0)="^^3^3^3021002^"
^DD(2006.5632,2,21,1,0)="The value of this field, which is stored in an encrypted"
^DD(2006.5632,2,21,2,0)="fashion, is a string that is passed to a VistA system as"
^DD(2006.5632,2,21,3,0)="the access and verify codes for the current user."
^DD(2006.5632,2,"DT")="3021002"
^DD(2006.5632,4,0)="VISTA SERVICE ACCOUNT^F^^0;4^K:$L(X)>63!($L(X)<1) X"
^DD(2006.5632,4,3)="Enter the (encrypted) service credentials."
^DD(2006.5632,4,21,0)="^^11^11^3040303^"
^DD(2006.5632,4,21,1,0)="The value of this field is a string containing encrypted data."
^DD(2006.5632,4,21,2,0)="This value contains the access and verify codes that the DICOM Gateway"
^DD(2006.5632,4,21,3,0)="is allowed to use as a ""service account"" when the credentials that"
^DD(2006.5632,4,21,4,0)="were provided by the end-user during login expire during the course"
^DD(2006.5632,4,21,5,0)="of the session."
^DD(2006.5632,4,21,6,0)=" "
^DD(2006.5632,4,21,7,0)="This field is automatically populated when an end-user successfully"
^DD(2006.5632,4,21,8,0)="logs in on a DICOM Gateway."
^DD(2006.5632,4,21,9,0)=" "
^DD(2006.5632,4,21,10,0)="When a site decides not to have such a service account, the value"
^DD(2006.5632,4,21,11,0)="of this field will be an encrypted value for the string "";""."
^DD(2006.5632,4,"DT")="3040303"
^DD(2006.5632,"B","ACCESS LEVEL",1)=""
^DD(2006.5632,"B","USER",.01)=""
^DD(2006.5632,"B","VISTA ACCESS INFO",2)=""
^DD(2006.5632,"B","VISTA SERVICE ACCOUNT",4)=""
^DD(2006.5632,"GL",0,1,.01)=""
^DD(2006.5632,"GL",0,2,1)=""
^DD(2006.5632,"GL",0,3,2)=""
^DD(2006.5632,"GL",0,4,4)=""
^DD(2006.5632,"IX",.01)=""
^DD(2006.5633,0)="PACS QUERY SUB-FIELD^^2^2"
^DD(2006.5633,0,"DT")="3040303"
^DD(2006.5633,0,"IX","B",2006.5633,.01)=""
^DD(2006.5633,0,"NM","PACS QUERY")=""
^DD(2006.5633,0,"UP")="2006.563"
^DD(2006.5633,.01,0)="PACS QUERY START^F^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5633,.01,1,0)="^.1"
^DD(2006.5633,.01,1,1,0)="2006.5633^B"
^DD(2006.5633,.01,1,1,1)="S ^MAGDICOM(2006.563,DA(1),""GE CONV #HRS"",""B"",$E(X,1,30),DA)="""""
^DD(2006.5633,.01,1,1,2)="K ^MAGDICOM(2006.563,DA(1),""GE CONV #HRS"",""B"",$E(X,1,30),DA)"
^DD(2006.5633,.01,3)="Indicate when this query session started."
^DD(2006.5633,.01,21,0)="^.001^3^3^3040303^^"
^DD(2006.5633,.01,21,1,0)="The value of this field is a timestamp ($HOROLOG) that"
^DD(2006.5633,.01,21,2,0)="indicates the date and time when a PACS query process"
^DD(2006.5633,.01,21,3,0)="was started."
^DD(2006.5633,.01,"DT")="3040303"
^DD(2006.5633,2,0)="PACS QUERY END^F^^1;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5633,2,3)="Indicate when this query ended."
^DD(2006.5633,2,21,0)="^^7^7^3040303^"
^DD(2006.5633,2,21,1,0)="The value of this field is a timestamp ($HOROLOG) that"
^DD(2006.5633,2,21,2,0)="indicates the date and time when a PACS query process"
^DD(2006.5633,2,21,3,0)="completed."
^DD(2006.5633,2,21,4,0)="  "
^DD(2006.5633,2,21,5,0)="Note: when a PACS query process was terminated as a side-effect"
^DD(2006.5633,2,21,6,0)="of a system-shut-down operation, no completion time"
^DD(2006.5633,2,21,7,0)="will be recorded."
^DD(2006.5633,2,"DT")="3040303"
^DD(2006.5633,"B","PACS QUERY END",2)=""
^DD(2006.5633,"B","PACS QUERY START",.01)=""
^DD(2006.5633,"GL",0,1,.01)=""
^DD(2006.5633,"GL",1,1,2)=""
^DD(2006.5633,"IX",.01)=""
^DD(2006.5634,0)="INSTALLATION SUB-FIELD^^1^2"
^DD(2006.5634,0,"DT")="3021212"
^DD(2006.5634,0,"NM","INSTALLATION")=""
^DD(2006.5634,0,"UP")="2006.563"
^DD(2006.5634,.01,0)="INSTALLATION^F^^0;1^K:$L(X)>14!($L(X)<3)!'(X?1.N1"".""1.5N) X"
^DD(2006.5634,.01,1,0)="^.1^^0"
^DD(2006.5634,.01,3)="Enter the time-stamp ($H-format) for this installation."
^DD(2006.5634,.01,21,0)="^.001^3^3^3021212^^"
^DD(2006.5634,.01,21,1,0)="The value of this field is a time-stamp (in $Horolog-format) that"
^DD(2006.5634,.01,21,2,0)="identifies the date and time when the current installation of"
^DD(2006.5634,.01,21,3,0)="software on the current DICOM Gateway completed."
^DD(2006.5634,.01,"DT")="3021212"
^DD(2006.5634,1,0)="COMMENT^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(2006.5634,1,3)="Enter a comment that identifies this installation."
^DD(2006.5634,1,21,0)="^^2^2^3021212^"
^DD(2006.5634,1,21,1,0)="The value of this field is a text that describes the"
^DD(2006.5634,1,21,2,0)="software that was installed."
^DD(2006.5634,1,"DT")="3021212"
^DD(2006.5634,"B","COMMENT",1)=""
^DD(2006.5634,"B","INSTALLATION",.01)=""
^DD(2006.5634,"GL",0,1,.01)=""
^DD(2006.5634,"GL",0,2,1)=""
^DD(2006.5635,0)="WORKLIST PORT SUB-FIELD^^.01^1"
^DD(2006.5635,0,"DT")="3051028"
^DD(2006.5635,0,"IX","B",2006.5635,.01)=""
^DD(2006.5635,0,"NM","WORKLIST PORT")=""
^DD(2006.5635,0,"UP")="2006.563"
^DD(2006.5635,.01,0)="WORKLIST PORT^NJ5,0^^0;1^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.5635,.01,1,0)="^.1"
^DD(2006.5635,.01,1,1,0)="2006.5635^B"
^DD(2006.5635,.01,1,1,1)="S ^MAGDICOM(2006.563,DA(1),""WORKLIST PORT"",""B"",$E(X,1,30),DA)="""""
^DD(2006.5635,.01,1,1,2)="K ^MAGDICOM(2006.563,DA(1),""WORKLIST PORT"",""B"",$E(X,1,30),DA)"
^DD(2006.5635,.01,3)="Enter a TCP/IP port number (between 1 and 65536)."
^DD(2006.5635,.01,21,0)="^^3^3^3051028^"
^DD(2006.5635,.01,21,1,0)="The value of this field is an integer number that identifies"
^DD(2006.5635,.01,21,2,0)="the TCP/IP port that will be used by DICOM WorkList processes"
^DD(2006.5635,.01,21,3,0)="to post their requests and obtain their results."
^DD(2006.5635,.01,"DT")="3051028"
^DD(2006.5635,"B","WORKLIST PORT",.01)=""
^DD(2006.5635,"GL",0,1,.01)=""
^DD(2006.5635,"IX",.01)=""
^DD(2006.564,0)="FIELD^^6^6"
^DD(2006.564,0,"DDA")="N"
^DD(2006.564,0,"DT")="2991018"
^DD(2006.564,0,"NM","DICOM QUEUE")=""
^DD(2006.564,0,"VR")="3.0"
^DD(2006.564,0,"VRPK")="IMAGING"
^DD(2006.564,.01,0)="LETTER^RF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(2006.564,.01,.1)="Queue Letter"
^DD(2006.564,.01,1,0)="^.1^^0"
^DD(2006.564,.01,3)="Enter the letter for this queue"
^DD(2006.564,.01,21,0)="^^4^4^3000222^^"
^DD(2006.564,.01,21,1,0)="The value of this field is a single letter that"
^DD(2006.564,.01,21,2,0)="identifies the queue that is defined in this entry."
^DD(2006.564,.01,21,3,0)=" "
^DD(2006.564,.01,21,4,0)="See the description at the 'file' level for more details."
^DD(2006.564,.01,"DT")="2991018"
^DD(2006.564,2,0)="CHANNEL^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(2006.564,2,3)="Enter a number, or '*' when any channel is allowed."
^DD(2006.564,2,21,0)="^^6^6^3000222^^"
^DD(2006.564,2,21,1,0)="The value of this field is either an integer number"
^DD(2006.564,2,21,2,0)="that identifies the channel number that is dedicated"
^DD(2006.564,2,21,3,0)="to the queue that is defined in this entry, or an"
^DD(2006.564,2,21,4,0)="asterisk to indicate that any channel could be used."
^DD(2006.564,2,21,5,0)=" "
^DD(2006.564,2,21,6,0)="See the description at the 'file' level for more details."
^DD(2006.564,2,"DT")="2991018"
^DD(2006.564,3,0)="MESSAGE^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(2006.564,3,3)="Enter the message ID"
^DD(2006.564,3,21,0)="^^3^3^3000222^^"
^DD(2006.564,3,21,1,0)="The value of this field is an integer number that"
^DD(2006.564,3,21,2,0)="indicates the number of messages that is currently"
^DD(2006.564,3,21,3,0)="waiting in the queue that is defined in this entry."
^DD(2006.564,3,"DT")="2991018"
^DD(2006.564,4,0)="DIRECTION^RF^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(2006.564,4,3)="Enter either 'INCOMING' or 'OUTGOING'."
^DD(2006.564,4,21,0)="^^7^7^3000222^^"
^DD(2006.564,4,21,1,0)="The value of this field is a string that identifies"
^DD(2006.564,4,21,2,0)="the direction in which information will flow for"
^DD(2006.564,4,21,3,0)="the queue that is defined in this entry."
^DD(2006.564,4,21,4,0)=" "
^DD(2006.564,4,21,5,0)="Possible values are INCOMING and OUTGOING."
^DD(2006.564,4,21,6,0)=" "
^DD(2006.564,4,21,7,0)="See the description at the 'file' level for more details."
^DD(2006.564,4,"DT")="2991018"
^DD(2006.564,5,0)="TYPE^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(2006.564,5,3)="Enter either 'REQUEST' or 'RESPONSE'"
^DD(2006.564,5,21,0)="^^7^7^3000222^^"
^DD(2006.564,5,21,1,0)="The value of this field is a string that identifies"
^DD(2006.564,5,21,2,0)="the type of message that is transmitted through the"
^DD(2006.564,5,21,3,0)="queue that is defined in this entry."
^DD(2006.564,5,21,4,0)=" "
^DD(2006.564,5,21,5,0)="Possible values are REQUEST and RESPONSE."
^DD(2006.564,5,21,6,0)=" "
^DD(2006.564,5,21,7,0)="See the description at the 'file' level for more details."
^DD(2006.564,5,"DT")="2991018"
^DD(2006.564,6,0)="PRIORITY^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(2006.564,6,3)="Enter one of 'LOW', 'MEDIUM', 'HIGH' or 'IMMEDIATE'"
^DD(2006.564,6,21,0)="^^7^7^3000222^^"
^DD(2006.564,6,21,1,0)="The value of this field is a string that identifies"
^DD(2006.564,6,21,2,0)="the relative priority of the queue that is defined"
^DD(2006.564,6,21,3,0)="in this entry."
^DD(2006.564,6,21,4,0)=" "
^DD(2006.564,6,21,5,0)="Possible values are LOW, MEDIUM, HIGH and IMMEDIATE."
^DD(2006.564,6,21,6,0)=" "
^DD(2006.564,6,21,7,0)="See the description at the 'file' level for more details."
^DD(2006.564,6,"DT")="2991018"
^DD(2006.564,"B","CHANNEL",2)=""
^DD(2006.564,"B","DIRECTION",4)=""
^DD(2006.564,"B","LETTER",.01)=""
^DD(2006.564,"B","MESSAGE",3)=""
^DD(2006.564,"B","PRIORITY",6)=""
^DD(2006.564,"B","Queue Letter",.01)="1"
^DD(2006.564,"B","TYPE",5)=""
^DD(2006.564,"GL",0,1,.01)=""
^DD(2006.564,"GL",0,2,2)=""
^DD(2006.564,"GL",0,3,3)=""
^DD(2006.564,"GL",0,4,4)=""
^DD(2006.564,"GL",0,5,5)=""
^DD(2006.564,"GL",0,6,6)=""
^DD(2006.564,"RQ",.01)=""
^DD(2006.564,"RQ",4)=""
^DD(2006.5641,0)="FIELD^^3^3"
^DD(2006.5641,0,"DT")="3041210"
^DD(2006.5641,0,"IX","B",2006.5641,.01)=""
^DD(2006.5641,0,"IX","C",2006.5641,2)=""
^DD(2006.5641,0,"NM","DICOM GATEWAY MACHINE ID")=""
^DD(2006.5641,.01,0)="MACHINE ID^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1U) X"
^DD(2006.5641,.01,1,0)="^.1"
^DD(2006.5641,.01,1,1,0)="2006.5641^B"
^DD(2006.5641,.01,1,1,1)="S ^MAGDICOM(2006.5641,""B"",$E(X,1,30),DA)="""""
^DD(2006.5641,.01,1,1,2)="K ^MAGDICOM(2006.5641,""B"",$E(X,1,30),DA)"
^DD(2006.5641,.01,3)="Enter the Machine ID (1 letter) of this DICOM Gateway."
^DD(2006.5641,.01,21,0)="^^3^3^3041210^"
^DD(2006.5641,.01,21,1,0)="The value of this field is a string that is used as the"
^DD(2006.5641,.01,21,2,0)="""Machine ID"" of a DICOM Gateway. A ""Machine ID"" is a"
^DD(2006.5641,.01,21,3,0)="single uppercase character."
^DD(2006.5641,.01,"DT")="3041210"
^DD(2006.5641,2,0)="HOSTNAME^RF^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5641,2,1,0)="^.1"
^DD(2006.5641,2,1,1,0)="2006.5641^C"
^DD(2006.5641,2,1,1,1)="S ^MAGDICOM(2006.5641,""C"",$E(X,1,30),DA)="""""
^DD(2006.5641,2,1,1,2)="K ^MAGDICOM(2006.5641,""C"",$E(X,1,30),DA)"
^DD(2006.5641,2,1,1,"%D",0)="^^1^1^3041210^"
^DD(2006.5641,2,1,1,"%D",1,0)="This cross reference keeps track of which hostnames are registered."
^DD(2006.5641,2,1,1,"DT")="3041210"
^DD(2006.5641,2,3)="Enter the hostname of the computer that is used for this DICOM Gateway."
^DD(2006.5641,2,21,0)="^^9^9^3041210^"
^DD(2006.5641,2,21,1,0)="The value of this field is a string. This string represents the"
^DD(2006.5641,2,21,2,0)="'hostname' of the computer that is used for the DICOM Gateway that"
^DD(2006.5641,2,21,3,0)="is described in the current record."
^DD(2006.5641,2,21,4,0)=" "
^DD(2006.5641,2,21,5,0)="The format of the 'hostname' is subject to VA policy."
^DD(2006.5641,2,21,6,0)="Policies regarding the format of these names are subject to change, hence no"
^DD(2006.5641,2,21,7,0)="additional formatting restrictions are imposed in this data"
^DD(2006.5641,2,21,8,0)="definition."
^DD(2006.5641,2,21,9,0)=" "
^DD(2006.5641,2,"DT")="3041210"
^DD(2006.5641,3,0)="TIMESTAMP^F^^0;3^K:$L(X)>10!($L(X)<1)!'(X?1.N1"",""1.N) X"
^DD(2006.5641,3,3)="Enter the current date and time ($Horolog format)"
^DD(2006.5641,3,21,0)="^.001^3^3^3041210^^"
^DD(2006.5641,3,21,1,0)="The value of this field is a date/time value ($Horolog format)."
^DD(2006.5641,3,21,2,0)="This value represents the date and time when the content of this"
^DD(2006.5641,3,21,3,0)="record was most recently confirmed."
^DD(2006.5641,3,"DT")="3041210"
^DD(2006.5641,"B","HOSTNAME",2)=""
^DD(2006.5641,"B","MACHINE ID",.01)=""
^DD(2006.5641,"B","TIMESTAMP",3)=""
^DD(2006.5641,"GL",0,1,.01)=""
^DD(2006.5641,"GL",0,2,2)=""
^DD(2006.5641,"GL",0,3,3)=""
^DD(2006.5641,"IX",.01)=""
^DD(2006.5641,"IX",2)=""
^DD(2006.5641,"RQ",.01)=""
^DD(2006.5641,"RQ",2)=""
^DD(2006.565,0)="FIELD^^15^15"
^DD(2006.565,0,"DT")="3051115"
^DD(2006.565,0,"IX","B",2006.565,.01)=""
^DD(2006.565,0,"NM","EXPORT DICOM RUN")=""
^DD(2006.565,0,"PT",2006.563,93)=""
^DD(2006.565,.01,0)="RUN DATE^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.565,.01,1,0)="^.1"
^DD(2006.565,.01,1,1,0)="2006.565^B"
^DD(2006.565,.01,1,1,1)="S ^MAGDICOM(2006.565,""B"",X,DA)="""""
^DD(2006.565,.01,1,1,2)="K ^MAGDICOM(2006.565,""B"",X,DA)"
^DD(2006.565,.01,3)="Indicate when this batch run started."
^DD(2006.565,.01,21,0)="^.001^3^3^3051006^^"
^DD(2006.565,.01,21,1,0)="The value of this field is a (VA-FileMan formatted) date/time value."
^DD(2006.565,.01,21,2,0)="This value is the time-stamp that indicates the date and time"
^DD(2006.565,.01,21,3,0)="when a batch-run was entered into the database."
^DD(2006.565,.01,"DT")="3051006"
^DD(2006.565,2,0)="STORAGE SCP^P2006.585'^MAGDICOM(2006.585,^0;2^Q"
^DD(2006.565,2,3)="Identify the destination for this transmission."
^DD(2006.565,2,21,0)="^^3^3^3051006^"
^DD(2006.565,2,21,1,0)="The value of this field is a pointer to the User Application table"
^DD(2006.565,2,21,2,0)="(FileMan file # 2006.585). This pointer identifies the Storage SCP"
^DD(2006.565,2,21,3,0)="to which the images are to be transmitted in this batch run."
^DD(2006.565,2,"DT")="3051006"
^DD(2006.565,3,0)="SORT ORDER^S^ASCENDING:Ascending;DESCENDING:Descending;^0;3^Q"
^DD(2006.565,3,3)="Indicate the scanning direction for this batch run."
^DD(2006.565,3,21,0)="^^4^4^3051006^"
^DD(2006.565,3,21,1,0)="The value of this field is a code that indicates the direction"
^DD(2006.565,3,21,2,0)="in which the Radiology Report table is to be scanned in this"
^DD(2006.565,3,21,3,0)="batch run."
^DD(2006.565,3,21,4,0)="Possible values are ""ASCENDING"" and ""DESCENDING""."
^DD(2006.565,3,"DT")="3051006"
^DD(2006.565,4,0)="FIRST REPORT^P74'^RARPT(^0;4^Q"
^DD(2006.565,4,3)="Identify the first report to include in this scan."
^DD(2006.565,4,21,0)="^^4^4^3051006^"
^DD(2006.565,4,21,1,0)="The value of this field is a pointer to the Radiology Report"
^DD(2006.565,4,21,2,0)="table (FileMan file # 74)."
^DD(2006.565,4,21,3,0)="This pointer identifies the first report for which images"
^DD(2006.565,4,21,4,0)="will be included in this batch run."
^DD(2006.565,4,"DT")="3051006"
^DD(2006.565,5,0)="MAXIMUM NUMBER OF GROUPS^NJ12,0^^0;5^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.565,5,3)="Indicate the maximum number of image groups to include in this scan."
^DD(2006.565,5,21,0)="^^3^3^3051006^"
^DD(2006.565,5,21,1,0)="The value of this field is an integer number. This number identifies"
^DD(2006.565,5,21,2,0)="the maximum number of image groups that may be included in this"
^DD(2006.565,5,21,3,0)="batch run."
^DD(2006.565,5,"DT")="3051006"
^DD(2006.565,6,0)="HOURS^F^^0;6^K:$L(X)>24!($L(X)<24) X"
^DD(2006.565,6,3)="Indicate when this scan is allowed to be active."
^DD(2006.565,6,21,0)="^^9^9^3051006^"
^DD(2006.565,6,21,1,0)="The value of this field is a string. This string consists of"
^DD(2006.565,6,21,2,0)="the letters ""Y"" and ""N"". This value indicates during which hours"
^DD(2006.565,6,21,3,0)="of the day this batch run may be active."
^DD(2006.565,6,21,4,0)=" "
^DD(2006.565,6,21,5,0)="A string of 24 letters ""Y"" denotes a batch run that may run all day long."
^DD(2006.565,6,21,6,0)=" "
^DD(2006.565,6,21,7,0)="A string like ""YYYYYYYYNNNNNNNNNYYYYYYY"" denotes a batch run"
^DD(2006.565,6,21,8,0)="that may only run outside of regular office hours (midnight to 9am"
^DD(2006.565,6,21,9,0)="and 6pm to midnight)."
^DD(2006.565,6,"DT")="3051006"
^DD(2006.565,7,0)="END DATE^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.565,7,3)="Indicate date and time of last transmission."
^DD(2006.565,7,21,0)="^.001^3^3^3051115^^^"
^DD(2006.565,7,21,1,0)="The value of this field is a (FileMan formatted) date/time.."
^DD(2006.565,7,21,2,0)="This value represents the timestamp for the most recent"
^DD(2006.565,7,21,3,0)="transmission of a study."
^DD(2006.565,7,"DT")="3051115"
^DD(2006.565,8,0)="LAST REPORT^P74'^RARPT(^0;8^Q"
^DD(2006.565,8,3)="Identify the last report for which images were transmitted."
^DD(2006.565,8,21,0)="^.001^3^3^3051115^^^"
^DD(2006.565,8,21,1,0)="The value of this field is a pointer to the"
^DD(2006.565,8,21,2,0)="Radiology Report table. This pointer identifies the"
^DD(2006.565,8,21,3,0)="study that was transmitted most recently."
^DD(2006.565,8,"DT")="3051006"
^DD(2006.565,9,0)="STUDIES^NJ11,0^^0;9^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.565,9,3)="Indicate how many studies have been processed in this batch run."
^DD(2006.565,9,21,0)="^.001^3^3^3051115^^^"
^DD(2006.565,9,21,1,0)="The value of this field is an integer number."
^DD(2006.565,9,21,2,0)="This value identifies the number of studies that have been"
^DD(2006.565,9,21,3,0)="processed in the current batch-run."
^DD(2006.565,9,"DT")="3051006"
^DD(2006.565,10,0)="NUMBER OF IMAGES^NJ12,0^^0;10^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.565,10,3)="Indicate how many images have been transmitted in this batch run."
^DD(2006.565,10,21,0)="^.001^3^3^3051115^^"
^DD(2006.565,10,21,1,0)="The value of this field is an integer number."
^DD(2006.565,10,21,2,0)="This value identifies the number of images that have been"
^DD(2006.565,10,21,3,0)="transmitted in the current batch-run."
^DD(2006.565,10,"DT")="3051006"
^DD(2006.565,11,0)="SCAN MODE^S^DATE:Date;NUMBER:Report;PATIENT:Patient;^0;11^Q"
^DD(2006.565,11,3)="Identify the primary scanning criterium for this batch run."
^DD(2006.565,11,21,0)="^^11^11^3051006^"
^DD(2006.565,11,21,1,0)="The value of this field is a code that identifies the method"
^DD(2006.565,11,21,2,0)="of scanning the Radiology Reports."
^DD(2006.565,11,21,3,0)="Possible values are ""DATE"", ""NUMBER"" and ""PATIENT""."
^DD(2006.565,11,21,4,0)=" "
^DD(2006.565,11,21,5,0)="A value of ""DATE"" indicates that the reports are scanned by date."
^DD(2006.565,11,21,6,0)=" "
^DD(2006.565,11,21,7,0)="A value of ""PATIENT"" indicates that the reports are scanned"
^DD(2006.565,11,21,8,0)="by (internal entry number of) patient."
^DD(2006.565,11,21,9,0)=" "
^DD(2006.565,11,21,10,0)="A value of ""NUMBER"" indicates that the reports are scanned"
^DD(2006.565,11,21,11,0)="by (internal entry number of) report."
^DD(2006.565,11,"DT")="3051006"
^DD(2006.565,12,0)="START DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.565,12,3)="Identify the first report date to include in this scan."
^DD(2006.565,12,21,0)="^^3^3^3051006^"
^DD(2006.565,12,21,1,0)="The value of this field is a (VA-FileMan formatted) date."
^DD(2006.565,12,21,2,0)="This date identifies the first day of the period that is"
^DD(2006.565,12,21,3,0)="intended to be included in this batch run."
^DD(2006.565,12,"DT")="3051006"
^DD(2006.565,13,0)="END DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.565,13,3)="Identify the last report date to include in this scan."
^DD(2006.565,13,21,0)="^^3^3^3051006^"
^DD(2006.565,13,21,1,0)="The value of this field is a (VA-FileMan formatted) date."
^DD(2006.565,13,21,2,0)="This date identifies the last day of the period that is"
^DD(2006.565,13,21,3,0)="intended to be included in this batch run."
^DD(2006.565,13,"DT")="3051006"
^DD(2006.565,14,0)="LAST DATE^D^^0;14^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.565,14,3)="Indicate the date and time for the most recently processed report."
^DD(2006.565,14,21,0)="^^3^3^3051006^"
^DD(2006.565,14,21,1,0)="The value of this field is a (VA-FileMan formatted) date/time value."
^DD(2006.565,14,21,2,0)="This value is the time-stamp that indicates when the Radiology"
^DD(2006.565,14,21,3,0)="Report was created for the current study in this batch run."
^DD(2006.565,14,"DT")="3051006"
^DD(2006.565,15,0)="PATIENT^P2'^DPT(^0;15^Q"
^DD(2006.565,15,3)="Identify the patient to whom the current report applies."
^DD(2006.565,15,21,0)="^^1^1^3051006^"
^DD(2006.565,15,21,1,0)="The patient to whom the current report applies."
^DD(2006.565,15,"DT")="3051007"
^DD(2006.565,"B","END DATE",7)=""
^DD(2006.565,"B","END DATE",13)=""
^DD(2006.565,"B","FIRST REPORT",4)=""
^DD(2006.565,"B","HOURS",6)=""
^DD(2006.565,"B","LAST DATE",14)=""
^DD(2006.565,"B","LAST REPORT",8)=""
^DD(2006.565,"B","MAXIMUM NUMBER OF GROUPS",5)=""
^DD(2006.565,"B","NUMBER OF IMAGES",10)=""
^DD(2006.565,"B","PATIENT",15)=""
^DD(2006.565,"B","RUN DATE",.01)=""
^DD(2006.565,"B","SCAN MODE",11)=""
^DD(2006.565,"B","SORT ORDER",3)=""
^DD(2006.565,"B","START DATE",12)=""
^DD(2006.565,"B","STORAGE SCP",2)=""
^DD(2006.565,"B","STUDIES",9)=""
^DD(2006.565,"GL",0,1,.01)=""
^DD(2006.565,"GL",0,2,2)=""
^DD(2006.565,"GL",0,3,3)=""
^DD(2006.565,"GL",0,4,4)=""
^DD(2006.565,"GL",0,5,5)=""
^DD(2006.565,"GL",0,6,6)=""
^DD(2006.565,"GL",0,7,7)=""
^DD(2006.565,"GL",0,8,8)=""
^DD(2006.565,"GL",0,9,9)=""
^DD(2006.565,"GL",0,10,10)=""
^DD(2006.565,"GL",0,11,11)=""
^DD(2006.565,"GL",0,12,12)=""
^DD(2006.565,"GL",0,13,13)=""
^DD(2006.565,"GL",0,14,14)=""
^DD(2006.565,"GL",0,15,15)=""
^DD(2006.565,"IX",.01)=""
^DD(2006.565,"RQ",.01)=""
^DD(2006.57,0)="FIELD^^3^3"
^DD(2006.57,0,"DDA")="N"
^DD(2006.57,0,"DT")="3001004"
^DD(2006.57,0,"IX","B",2006.57,.01)=""
^DD(2006.57,0,"NM","DICOM HL7 SEGMENT")=""
^DD(2006.57,0,"VR")="3.0"
^DD(2006.57,0,"VRPK")="IMAGING"
^DD(2006.57,.01,0)="SEGMENT^RF^^0;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.57,.01,1,0)="^.1"
^DD(2006.57,.01,1,1,0)="2006.57^B"
^DD(2006.57,.01,1,1,1)="S ^MAGDICOM(2006.57,""B"",$E(X,1,30),DA)="""""
^DD(2006.57,.01,1,1,2)="K ^MAGDICOM(2006.57,""B"",$E(X,1,30),DA)"
^DD(2006.57,.01,3)="Enter the abbreviation for the segment-name."
^DD(2006.57,.01,21,0)="^^1^1^2990830^"
^DD(2006.57,.01,21,1,0)="The value of this field is the abbreviation for the name of the segment."
^DD(2006.57,.01,"DT")="2990830"
^DD(2006.57,2,0)="NAME^RF^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(2006.57,2,3)="Enter the name of the segment."
^DD(2006.57,2,21,0)="^^1^1^2990830^"
^DD(2006.57,2,21,1,0)="The value of this field is the name of the segment (fully written out)."
^DD(2006.57,2,"DT")="2990830"
^DD(2006.57,3,0)="ELEMENT^2006.5701A^^1;0"
^DD(2006.57,"B","ELEMENT",3)=""
^DD(2006.57,"B","NAME",2)=""
^DD(2006.57,"B","SEGMENT",.01)=""
^DD(2006.57,"GL",0,1,.01)=""
^DD(2006.57,"GL",0,2,2)=""
^DD(2006.57,"GL",1,0,3)=""
^DD(2006.57,"IX",.01)=""
^DD(2006.57,"RQ",.01)=""
^DD(2006.57,"RQ",2)=""
^DD(2006.57,"SB",2006.5701,3)=""
^DD(2006.5701,0)="ELEMENT SUB-FIELD^^.01^2"
^DD(2006.5701,0,"DT")="3001004"
^DD(2006.5701,0,"NM","ELEMENT")=""
^DD(2006.5701,0,"UP")="2006.57"
^DD(2006.5701,.001,0)="POSITION NUMBER^NJ9,0^^ ^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.5701,.001,3)="Enter the sequence number of this element."
^DD(2006.5701,.001,21,0)="^^1^1^3001004^"
^DD(2006.5701,.001,21,1,0)="The value of this field is the position number of the current element."
^DD(2006.5701,.001,"DT")="3001004"
^DD(2006.5701,.01,0)="ELEMENT^F^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5701,.01,1,0)="^.1^^0"
^DD(2006.5701,.01,3)="Enter the name of the element."
^DD(2006.5701,.01,21,0)="^.001^3^3^3001004^^"
^DD(2006.5701,.01,21,1,0)="The value of this field is the name of the element."
^DD(2006.5701,.01,21,2,0)="Note that the internal entry number is also the position-number"
^DD(2006.5701,.01,21,3,0)="of the element in the segment."
^DD(2006.5701,.01,"DT")="2990830"
^DD(2006.5701,"B","ELEMENT",.01)=""
^DD(2006.5701,"B","POSITION NUMBER",.001)=""
^DD(2006.5701,"GL",0,1,.01)=""
^DD(2006.571,0)="FIELD^^11^4"
^DD(2006.571,0,"DDA")="N"
^DD(2006.571,0,"DT")="3021121"
^DD(2006.571,0,"IX","B",2006.571,.01)=""
^DD(2006.571,0,"NM","DICOM RAW IMAGE")=""
^DD(2006.571,0,"VR")="3.0"
^DD(2006.571,0,"VRPK")="IMAGING"
^DD(2006.571,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.571,.01,1,0)="^.1"
^DD(2006.571,.01,1,1,0)="2006.571^B"
^DD(2006.571,.01,1,1,1)="S ^MAGDINPT(2006.571,""B"",$E(X,1,30),DA)="""""
^DD(2006.571,.01,1,1,2)="K ^MAGDINPT(2006.571,""B"",$E(X,1,30),DA)"
^DD(2006.571,.01,3)="Enter the name of the file as received from the instrument."
^DD(2006.571,.01,21,0)="^^3^3^3000222^^^"
^DD(2006.571,.01,21,1,0)="The value of this field is the complete file name"
^DD(2006.571,.01,21,2,0)="(directory path + name + extension) of a file that"
^DD(2006.571,.01,21,3,0)="has been received by a DICOM Image Gateway."
^DD(2006.571,.01,"DT")="3000222"
^DD(2006.571,2,0)="INSTRUMENT^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(2006.571,2,.1)="Image Generating Instrument Abbreviation"
^DD(2006.571,2,3)="Enter the abbreviation for the instrument that generated the image."
^DD(2006.571,2,21,0)="^^7^7^3000222^^"
^DD(2006.571,2,21,1,0)="The value of this field is the name of the instrument"
^DD(2006.571,2,21,2,0)="that transmitted the image file that is described in"
^DD(2006.571,2,21,3,0)="this entry."
^DD(2006.571,2,21,4,0)=" "
^DD(2006.571,2,21,5,0)="The spelling of the name of the instrument must correspond to"
^DD(2006.571,2,21,6,0)="the name (.01 field) of an instrument that is described"
^DD(2006.571,2,21,7,0)="in File 2006.581 (stored in ^MAGDICOM(2006.581,...)"
^DD(2006.571,2,"DT")="2990820"
^DD(2006.571,3,0)="COMPLETE^S^0:Not Complete;1:Complete;^0;3^Q"
^DD(2006.571,3,3)="Indicate whether or not the image has been received completely."
^DD(2006.571,3,21,0)="^^5^5^3000222^^"
^DD(2006.571,3,21,1,0)="The value of this field is a code that indicates whether"
^DD(2006.571,3,21,2,0)="or not the received file is 'complete'."
^DD(2006.571,3,21,3,0)=" "
^DD(2006.571,3,21,4,0)="0 indicates that the file is incomplete;"
^DD(2006.571,3,21,5,0)="1 indicates that the file is complete."
^DD(2006.571,3,"DT")="2990820"
^DD(2006.571,11,0)="MESSAGE^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(2006.571,11,3)="Enter a warning message text."
^DD(2006.571,11,21,0)="^^3^3^3021121^"
^DD(2006.571,11,21,1,0)="The value of this field is a string that can be displayed as"
^DD(2006.571,11,21,2,0)="a warning message, indicating the reason why the current entry"
^DD(2006.571,11,21,3,0)="was made into this file."
^DD(2006.571,11,"DT")="3021121"
^DD(2006.571,"B","COMPLETE",3)=""
^DD(2006.571,"B","INSTRUMENT",2)=""
^DD(2006.571,"B","MESSAGE",11)=""
^DD(2006.571,"B","NAME",.01)=""
^DD(2006.571,"GL",0,1,.01)=""
^DD(2006.571,"GL",0,2,2)=""
^DD(2006.571,"GL",0,3,3)=""
^DD(2006.571,"GL",1,1,11)=""
^DD(2006.571,"IX",.01)=""
^DD(2006.571,"RQ",.01)=""
^DD(2006.5711,0)="FIELD^^.01^1"
^DD(2006.5711,0,"DDA")="N"
^DD(2006.5711,0,"DT")="3021121"
^DD(2006.5711,0,"NM","DICOM M2MB RPC QUEUE")=""
^DD(2006.5711,.01,0)="DATA RECORD^RFX^^0;E1,240^Q"
^DD(2006.5711,.01,1,0)="^.1^^0"
^DD(2006.5711,.01,3)="Enter a data record for the RPC to process."
^DD(2006.5711,.01,21,0)="^^5^5^3021121^^"
^DD(2006.5711,.01,21,1,0)="The value of this field is a record to be passed on to the remote"
^DD(2006.5711,.01,21,2,0)="procedure call."
^DD(2006.5711,.01,21,3,0)=" "
^DD(2006.5711,.01,21,4,0)="One of the parameters of this remote procedure decides how to"
^DD(2006.5711,.01,21,5,0)="treat the data record that is stored in this field."
^DD(2006.5711,.01,"DT")="3021121"
^DD(2006.5711,"B","DATA RECORD",.01)=""
^DD(2006.5711,"GL",0,"E1,240",.01)=""
^DD(2006.5711,"RQ",.01)=""
^DD(2006.5712,0)="FIELD^^9^9"
^DD(2006.5712,0,"DT")="3021122"
^DD(2006.5712,0,"NM","DICOM FIXED QUEUE")=""
^DD(2006.5712,.01,0)="IMAGE^RP2006.575'^MAGD(2006.575,^0;1^Q"
^DD(2006.5712,.01,1,0)="^.1^^0"
^DD(2006.5712,.01,3)="Identify the image to be fixed."
^DD(2006.5712,.01,21,0)="^.001^2^2^3021122^^^"
^DD(2006.5712,.01,21,1,0)="The value of this field is a pointer to the Image file (#2005)."
^DD(2006.5712,.01,21,2,0)="[ ... ]"
^DD(2006.5712,.01,"DT")="3021122"
^DD(2006.5712,2,0)="STUDY^P2006.575'^MAGD(2006.575,^0;2^Q"
^DD(2006.5712,2,3)="Identify the study for which this image was submitted."
^DD(2006.5712,2,21,0)="^^4^4^3021121^^"
^DD(2006.5712,2,21,1,0)="The value of this field is a pointer to the DICOM Failed Images"
^DD(2006.5712,2,21,2,0)="File (#2005.575)."
^DD(2006.5712,2,21,3,0)=""
^DD(2006.5712,2,21,4,0)="[...]"
^DD(2006.5712,2,"DT")="3021121"
^DD(2006.5712,3,0)="DELETE^S^NONE:Nothing to be deleted;IMAGE:Delete the Image;STUDY:Delete the Study;^0;3^Q"
^DD(2006.5712,3,3)="Indicate what is to be deleted."
^DD(2006.5712,3,21,0)="^^6^6^3021121^^"
^DD(2006.5712,3,21,1,0)="The value of this field is a code that indicates whether or"
^DD(2006.5712,3,21,2,0)="not anything is to be deleted for this queue entry."
^DD(2006.5712,3,21,3,0)=""
^DD(2006.5712,3,21,4,0)="A value of ""NONE"" indicates that nothing is to be deleted."
^DD(2006.5712,3,21,5,0)="A value of ""IMAGE"" indicates that the image is to be deleted."
^DD(2006.5712,3,21,6,0)="A value of ""STUDY"" indicates that the study is to be deleted."
^DD(2006.5712,3,"DT")="3021121"
^DD(2006.5712,4,0)="INSTRUMENT NAME^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5712,4,3)="Identify the instrument that produced the image."
^DD(2006.5712,4,21,0)="^^5^5^3021121^^"
^DD(2006.5712,4,21,1,0)="The value of this field is an abbreviation that"
^DD(2006.5712,4,21,2,0)="identifies the instrument that is being described"
^DD(2006.5712,4,21,3,0)="in this entry."
^DD(2006.5712,4,21,4,0)=" "
^DD(2006.5712,4,21,5,0)="Typical abbreviations are CR1, CT2, US, etcetera."
^DD(2006.5712,4,"DT")="3021121"
^DD(2006.5712,5,0)="FROM PATH^F^^0;5^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5712,5,3)="Enter the name of the image (in IMAGE_IN)."
^DD(2006.5712,5,21,0)="^^5^5^3021121^^"
^DD(2006.5712,5,21,1,0)="The value of this field is a string that identifies a file."
^DD(2006.5712,5,21,2,0)="This value is the original name of the image file"
^DD(2006.5712,5,21,3,0)="(directory path, filename and extension) of the image."
^DD(2006.5712,5,21,4,0)=""
^DD(2006.5712,5,21,5,0)="Files of this type are always stored in a directory called xx:\DICOM\IMAGE_IN."
^DD(2006.5712,5,"DT")="3021121"
^DD(2006.5712,6,0)="STUDY UID^F^^0;6^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5712,6,3)="Enter the Study UID."
^DD(2006.5712,6,"DT")="3021121"
^DD(2006.5712,7,0)="NEW PATIENT NAME^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5712,7,3)="Enter the corrected name for the patient."
^DD(2006.5712,7,"DT")="3021121"
^DD(2006.5712,8,0)="NEW PATIENT ID^F^^0;8^K:$L(X)>15!($L(X)<1) X"
^DD(2006.5712,8,3)="Enter the corrected ID for the patient."
^DD(2006.5712,8,"DT")="3021121"
^DD(2006.5712,9,0)="NEW ACCESSION NUMBER^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5712,9,3)="Enter the corrected accession number for the study."
^DD(2006.5712,9,"DT")="3021121"
^DD(2006.5712,"B","DELETE",3)=""
^DD(2006.5712,"B","FROM PATH",5)=""
^DD(2006.5712,"B","IMAGE",.01)=""
^DD(2006.5712,"B","INSTRUMENT NAME",4)=""
^DD(2006.5712,"B","NEW ACCESSION NUMBER",9)=""
^DD(2006.5712,"B","NEW PATIENT ID",8)=""
^DD(2006.5712,"B","NEW PATIENT NAME",7)=""
^DD(2006.5712,"B","STUDY",2)=""
^DD(2006.5712,"B","STUDY UID",6)=""
^DD(2006.5712,"GL",0,1,.01)=""
^DD(2006.5712,"GL",0,2,2)=""
^DD(2006.5712,"GL",0,3,3)=""
^DD(2006.5712,"GL",0,4,4)=""
^DD(2006.5712,"GL",0,5,5)=""
^DD(2006.5712,"GL",0,6,6)=""
^DD(2006.5712,"GL",0,7,7)=""
^DD(2006.5712,"GL",0,8,8)=""
^DD(2006.5712,"GL",0,9,9)=""
^DD(2006.5712,"RQ",.01)=""
^DD(2006.5713,0)="FIELD^^6^6"
^DD(2006.5713,0,"DT")="3021121"
^DD(2006.5713,0,"IX","B",2006.5713,.01)=""
^DD(2006.5713,0,"NM","DICOM UNKNOWN MODALITY")=""
^DD(2006.5713,.01,0)="TIMESTAMP^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5713,.01,1,0)="^.1"
^DD(2006.5713,.01,1,1,0)="2006.5713^B"
^DD(2006.5713,.01,1,1,1)="S ^MAGDINPT(2006.5713,""B"",$E(X,1,30),DA)="""""
^DD(2006.5713,.01,1,1,2)="K ^MAGDINPT(2006.5713,""B"",$E(X,1,30),DA)"
^DD(2006.5713,.01,3)="Enter the date and time when the problem was noticed.."
^DD(2006.5713,.01,21,0)="^.001^4^4^3030804^^^"
^DD(2006.5713,.01,21,1,0)="The value of this field is a date/time value that represents"
^DD(2006.5713,.01,21,2,0)="the timestamp of the moment when it was discovered that the"
^DD(2006.5713,.01,21,3,0)="current image (identified by its file-name in the field"
^DD(2006.5713,.01,21,4,0)="FROM PATH) could not be processed."
^DD(2006.5713,.01,"DT")="3021121"
^DD(2006.5713,2,0)="MANUFACTURER^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5713,2,3)="Enter the name of the manufacturer of the instrument."
^DD(2006.5713,2,21,0)="^^8^8^3021121^^"
^DD(2006.5713,2,21,1,0)="Name of the company the produces this equipment."
^DD(2006.5713,2,21,2,0)="The value of this field is a text that identifies the"
^DD(2006.5713,2,21,3,0)="manufacturer of the modality that is described in the"
^DD(2006.5713,2,21,4,0)="current entry."
^DD(2006.5713,2,21,5,0)=" "
^DD(2006.5713,2,21,6,0)="This name must be spelled exactly as it is presented"
^DD(2006.5713,2,21,7,0)="in the headers of the image files that are produced"
^DD(2006.5713,2,21,8,0)="by modalities of this type."
^DD(2006.5713,2,"DT")="3021121"
^DD(2006.5713,3,0)="MODEL^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5713,3,3)="Enter the name of the model of the instrument."
^DD(2006.5713,3,21,0)="^^7^7^3021121^^"
^DD(2006.5713,3,21,1,0)="The value of this field is a text that identifies the"
^DD(2006.5713,3,21,2,0)="model of the modality that is described in the"
^DD(2006.5713,3,21,3,0)="current entry."
^DD(2006.5713,3,21,4,0)=" "
^DD(2006.5713,3,21,5,0)="This name must be spelled exactly as it is presented"
^DD(2006.5713,3,21,6,0)="in the headers of the image files that are produced"
^DD(2006.5713,3,21,7,0)="by modalities of this type."
^DD(2006.5713,3,"DT")="3021121"
^DD(2006.5713,4,0)="MODALITY^F^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(2006.5713,4,3)="Enter the two-letter modality code for the instrument."
^DD(2006.5713,4,21,0)="^^6^6^3021121^^"
^DD(2006.5713,4,21,1,0)="The value of this field is a code that identifies the"
^DD(2006.5713,4,21,2,0)="type of modality for the current entry."
^DD(2006.5713,4,21,3,0)=" "
^DD(2006.5713,4,21,4,0)="The possible values for this two-letter code are"
^DD(2006.5713,4,21,5,0)="defined in the DICOM standard, and are also stored in"
^DD(2006.5713,4,21,6,0)="file 73.1, stored in ^RAMIS(73.1,...)"
^DD(2006.5713,4,"DT")="3021121"
^DD(2006.5713,5,0)="INSTRUMENT NAME^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5713,5,3)="Enter the name of the instrument."
^DD(2006.5713,5,21,0)="^^5^5^3021121^^"
^DD(2006.5713,5,21,1,0)="The value of this field is an abbreviation that"
^DD(2006.5713,5,21,2,0)="identifies the instrument that is being described"
^DD(2006.5713,5,21,3,0)="in this entry."
^DD(2006.5713,5,21,4,0)=" "
^DD(2006.5713,5,21,5,0)="Typical abbreviations are CR1, CT2, US, etcetera."
^DD(2006.5713,5,"DT")="3021121"
^DD(2006.5713,6,0)="FROM PATH^F^^0;6^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5713,6,3)="Enter the name of the image (in IMAGE_IN)."
^DD(2006.5713,6,21,0)="^^5^5^3021121^^"
^DD(2006.5713,6,21,1,0)="The value of this field is a string that identifies a file."
^DD(2006.5713,6,21,2,0)="This value is the original name of the image file"
^DD(2006.5713,6,21,3,0)="(directory path, filename and extension) of the image."
^DD(2006.5713,6,21,4,0)=""
^DD(2006.5713,6,21,5,0)="Files of this type are always stored in a directory called xx:\DICOM\IMAGE_IN."
^DD(2006.5713,6,"DT")="3021121"
^DD(2006.5713,"B","FROM PATH",6)=""
^DD(2006.5713,"B","INSTRUMENT NAME",5)=""
^DD(2006.5713,"B","MANUFACTURER",2)=""
^DD(2006.5713,"B","MODALITY",4)=""
^DD(2006.5713,"B","MODEL",3)=""
^DD(2006.5713,"B","TIMESTAMP",.01)=""
^DD(2006.5713,"GL",0,1,.01)=""
^DD(2006.5713,"GL",0,2,2)=""
^DD(2006.5713,"GL",0,3,3)=""
^DD(2006.5713,"GL",0,4,4)=""
^DD(2006.5713,"GL",0,5,5)=""
^DD(2006.5713,"GL",0,6,6)=""
^DD(2006.5713,"IX",.01)=""
^DD(2006.5713,"RQ",.01)=""
^DD(2006.5715,0)="FIELD^^2^2"
^DD(2006.5715,0,"DT")="3050225"
^DD(2006.5715,0,"IX","B",2006.5715,.01)=""
^DD(2006.5715,0,"NM","CURRENT IMAGE")=""
^DD(2006.5715,.01,0)="MACHINE ID^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1U) X"
^DD(2006.5715,.01,1,0)="^.1"
^DD(2006.5715,.01,1,1,0)="2006.5715^B"
^DD(2006.5715,.01,1,1,1)="S ^MAGD(2006.5715,""B"",$E(X,1,30),DA)="""""
^DD(2006.5715,.01,1,1,2)="K ^MAGD(2006.5715,""B"",$E(X,1,30),DA)"
^DD(2006.5715,.01,3)="Enter the Machine ID for the current DICOM Gateway."
^DD(2006.5715,.01,21,0)="^^3^3^3050225^"
^DD(2006.5715,.01,21,1,0)="The value of this field is a 1-character string."
^DD(2006.5715,.01,21,2,0)="This value identifies the DICOM Gateway for which the"
^DD(2006.5715,.01,21,3,0)="current image is tracked in this record."
^DD(2006.5715,.01,"DT")="3050225"
^DD(2006.5715,2,0)="UID^RF^^0;2^K:$L(X)>64!($L(X)<1)!'(X?.(1.N,1""."")) X"
^DD(2006.5715,2,3)="Enter the UID of the image that is being processed for this DICOM Gateway."
^DD(2006.5715,2,21,0)="^^5^5^3050225^"
^DD(2006.5715,2,21,1,0)="The value of this field is a string."
^DD(2006.5715,2,21,2,0)="This string conforms to the DICOM definition of a UID"
^DD(2006.5715,2,21,3,0)="(unique object identifier)."
^DD(2006.5715,2,21,4,0)="This value identifies the image that is currently being processed"
^DD(2006.5715,2,21,5,0)="for the DICOM Gateway that is registered in this record."
^DD(2006.5715,2,"DT")="3050225"
^DD(2006.5715,"B","MACHINE ID",.01)=""
^DD(2006.5715,"B","UID",2)=""
^DD(2006.5715,"GL",0,1,.01)=""
^DD(2006.5715,"GL",0,2,2)=""
^DD(2006.5715,"IX",.01)=""
^DD(2006.5715,"RQ",.01)=""
^DD(2006.5715,"RQ",2)=""
^DD(2006.5719,0)="FIELD^^3^4"
^DD(2006.5719,0,"DDA")="N"
^DD(2006.5719,0,"DT")="2980507"
^DD(2006.5719,0,"IX","B",2006.5719,.01)=""
^DD(2006.5719,0,"NM","DICOM ERROR LOG")=""
^DD(2006.5719,0,"VRPK")="IMAGING"
^DD(2006.5719,.01,0)="DATE & TIME^RD^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5719,.01,.1)="Timestamp (FileMan format)"
^DD(2006.5719,.01,1,0)="^.1"
^DD(2006.5719,.01,1,1,0)="2006.5719^B"
^DD(2006.5719,.01,1,1,1)="S ^MAGDINPT(2006.5719,""B"",$E(X,1,30),DA)="""""
^DD(2006.5719,.01,1,1,2)="K ^MAGDINPT(2006.5719,""B"",$E(X,1,30),DA)"
^DD(2006.5719,.01,3)="Enter this moment's date and time (FileMan format)."
^DD(2006.5719,.01,21,0)="^^5^5^3000229^^"
^DD(2006.5719,.01,21,1,0)="The value of this field is a string that denotes"
^DD(2006.5719,.01,21,2,0)="the date and time when this entry was logged into"
^DD(2006.5719,.01,21,3,0)="the database."
^DD(2006.5719,.01,21,4,0)=" "
^DD(2006.5719,.01,21,5,0)="This timestamp is stored in FileMan format."
^DD(2006.5719,.01,"DT")="2980121"
^DD(2006.5719,1,0)="REASON^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(2006.5719,1,.1)="Reason"
^DD(2006.5719,1,3)="Enter a brief description of the problem."
^DD(2006.5719,1,21,0)="^^3^3^3000229^^"
^DD(2006.5719,1,21,1,0)="The value of this field is a string that contains"
^DD(2006.5719,1,21,2,0)="a brief description of the reason why the current"
^DD(2006.5719,1,21,3,0)="entry is being entered into this table."
^DD(2006.5719,1,"DT")="2980121"
^DD(2006.5719,2,0)="FILE DIRECTORY^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(2006.5719,2,.1)="File Directory"
^DD(2006.5719,2,3)="Enter the full identification of the DICOM file (directory+name)."
^DD(2006.5719,2,21,0)="^^5^5^3000229^^"
^DD(2006.5719,2,21,1,0)="The value of this field is a string that identifies the"
^DD(2006.5719,2,21,2,0)="DICOM file that contains the information that was the"
^DD(2006.5719,2,21,3,0)="reason why this error is being logged."
^DD(2006.5719,2,21,4,0)=" "
^DD(2006.5719,2,21,5,0)="This file name contains the full directory (path) prefix."
^DD(2006.5719,2,"DT")="2980121"
^DD(2006.5719,3,0)="INSTRUMENT NAME^F^^0;4^K:$L(X)>60!($L(X)<3) X"
^DD(2006.5719,3,.1)="Instrument"
^DD(2006.5719,3,3)="Enter the type of modality (2 letter code)."
^DD(2006.5719,3,21,0)="^.001^5^5^3021203^^^"
^DD(2006.5719,3,21,1,0)="The value of this field is a code that identifies the"
^DD(2006.5719,3,21,2,0)="kind of modality that transmitted the image."
^DD(2006.5719,3,21,3,0)=" "
^DD(2006.5719,3,21,4,0)="The two-letter codes for the modality types are defined"
^DD(2006.5719,3,21,5,0)="in the DICOM standard."
^DD(2006.5719,3,"DT")="3021203"
^DD(2006.5719,"B","DATE & TIME",.01)=""
^DD(2006.5719,"B","FILE DIRECTORY",2)=""
^DD(2006.5719,"B","File Directory",2)="1"
^DD(2006.5719,"B","INSTRUMENT NAME",3)=""
^DD(2006.5719,"B","Instrument",3)="1"
^DD(2006.5719,"B","REASON",1)=""
^DD(2006.5719,"B","Reason",1)="1"
^DD(2006.5719,"B","Timestamp (FileMan format)",.01)="1"
^DD(2006.5719,"GL",0,1,.01)=""
^DD(2006.5719,"GL",0,2,1)=""
^DD(2006.5719,"GL",0,3,2)=""
^DD(2006.5719,"GL",0,4,3)=""
^DD(2006.5719,"IX",.01)=""
^DD(2006.5719,"RQ",.01)=""
^DD(2006.572,0)="FIELD^^4^5"
^DD(2006.572,0,"DDA")="N"
^DD(2006.572,0,"DT")="2981113"
^DD(2006.572,0,"NM","EXAMINATION COMPLETE")=""
^DD(2006.572,0,"VR")="3.0"
^DD(2006.572,0,"VRPK")="IMAGING"
^DD(2006.572,.01,0)="DONE^RS^1:DONE;^0;1^Q"
^DD(2006.572,.01,1,0)="^.1^^0"
^DD(2006.572,.01,3)=""
^DD(2006.572,.01,21,0)="^^8^8^3000222^^"
^DD(2006.572,.01,21,1,0)="The value of this field is a code that indicates"
^DD(2006.572,.01,21,2,0)="whether or not the data in the current entry is"
^DD(2006.572,.01,21,3,0)="completely entered."
^DD(2006.572,.01,21,4,0)=" "
^DD(2006.572,.01,21,5,0)="When the value of this field is not present, or when"
^DD(2006.572,.01,21,6,0)="it is present and equal to 0, the record is incomplete."
^DD(2006.572,.01,21,7,0)="When the value of this field is equal to 1, the"
^DD(2006.572,.01,21,8,0)="record is complete."
^DD(2006.572,.01,"DT")="2981113"
^DD(2006.572,1,0)="ACNUMB^F^^A_ACNUMB;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.572,1,3)="Answer must be 1-30 characters in length."
^DD(2006.572,1,21,0)="^^2^2^3000222^^"
^DD(2006.572,1,21,1,0)="The value of this field is the accession number"
^DD(2006.572,1,21,2,0)="for the study that is referenced in this entry."
^DD(2006.572,1,"DT")="2981113"
^DD(2006.572,2,0)="PID^F^^A_PID;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.572,2,3)="Answer must be 1-30 characters in length."
^DD(2006.572,2,21,0)="^^6^6^3001006^^"
^DD(2006.572,2,21,1,0)="The value of this field is the value that is transmitted"
^DD(2006.572,2,21,2,0)="for DICOM element 0010,0020."
^DD(2006.572,2,21,3,0)="Typically, the value of this field is equal to"
^DD(2006.572,2,21,4,0)="the Social Security Number of the patient"
^DD(2006.572,2,21,5,0)="for whom the study is scheduled."
^DD(2006.572,2,21,6,0)="(Without the dashes between the number-groups.)"
^DD(2006.572,2,"DT")="2981113"
^DD(2006.572,3,0)="PNAME^F^^A_PNAME;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.572,3,3)="Answer must be 1-30 characters in length."
^DD(2006.572,3,21,0)="^^7^7^3000222^^"
^DD(2006.572,3,21,1,0)="The value of this field is equal to the name of the"
^DD(2006.572,3,21,2,0)="patient for whom the study in question is performed."
^DD(2006.572,3,21,3,0)=" "
^DD(2006.572,3,21,4,0)="This value is copied from ^DPT so that the VistA"
^DD(2006.572,3,21,5,0)="DICOM Gateway will need to be able to access this"
^DD(2006.572,3,21,6,0)="value whether or not the network link with the VistA"
^DD(2006.572,3,21,7,0)="system (DDP) is available."
^DD(2006.572,3,"DT")="2981113"
^DD(2006.572,4,0)="STUDY UID^F^^A_STUDYUID;1^K:$L(X)>63!($L(X)<1) X"
^DD(2006.572,4,3)="Answer must be 1-63 characters in length."
^DD(2006.572,4,21,0)="^^5^5^3000222^^"
^DD(2006.572,4,21,1,0)="The value of this field is a code that identifies"
^DD(2006.572,4,21,2,0)="the study that is referenced in this entry."
^DD(2006.572,4,21,3,0)=" "
^DD(2006.572,4,21,4,0)="This unique identifier is the DICOM UID for the"
^DD(2006.572,4,21,5,0)="Study SOP Instance."
^DD(2006.572,4,"DT")="2981113"
^DD(2006.572,"B","ACNUMB",1)=""
^DD(2006.572,"B","DONE",.01)=""
^DD(2006.572,"B","PID",2)=""
^DD(2006.572,"B","PNAME",3)=""
^DD(2006.572,"B","STUDY UID",4)=""
^DD(2006.572,"GL",0,1,.01)=""
^DD(2006.572,"GL","A_ACNUMB",1,1)=""
^DD(2006.572,"GL","A_PID",1,2)=""
^DD(2006.572,"GL","A_PNAME",1,3)=""
^DD(2006.572,"GL","A_STUDYUID",1,4)=""
^DD(2006.572,"RQ",.01)=""
^DD(2006.573,0)="FIELD^^5^5"
^DD(2006.573,0,"DDA")="N"
^DD(2006.573,0,"DT")="3000222"
^DD(2006.573,0,"IX","B",2006.573,.01)=""
^DD(2006.573,0,"NM","GE PACS QUERY/RETRIEVE")=""
^DD(2006.573,0,"VR")="3.0"
^DD(2006.573,0,"VRPK")="IMAGING"
^DD(2006.573,.01,0)="DONE^RS^0:No;1:Yes;^0;1^Q"
^DD(2006.573,.01,1,0)="^.1"
^DD(2006.573,.01,1,1,0)="2006.573^B"
^DD(2006.573,.01,1,1,1)="S ^MAGDGEQR(2006.573,""B"",$E(X,1,30),DA)="""""
^DD(2006.573,.01,1,1,2)="K ^MAGDGEQR(2006.573,""B"",$E(X,1,30),DA)"
^DD(2006.573,.01,3)="Indicate whether this record is complete."
^DD(2006.573,.01,21,0)="^^8^8^3000222^^"
^DD(2006.573,.01,21,1,0)="The value of this field is a code that indicates"
^DD(2006.573,.01,21,2,0)="whether or not the data in the current entry is"
^DD(2006.573,.01,21,3,0)="completely entered."
^DD(2006.573,.01,21,4,0)=" "
^DD(2006.573,.01,21,5,0)="When the value of this field is not present, or when"
^DD(2006.573,.01,21,6,0)="it is present and equal to 0, the record is incomplete."
^DD(2006.573,.01,21,7,0)="When the value of this field is equal to 1, the"
^DD(2006.573,.01,21,8,0)="record is complete."
^DD(2006.573,.01,"DT")="3000222"
^DD(2006.573,2,0)="STUDY DATE^F^^A_STUDYDAT;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.573,2,3)="Enter the date that this study is performed."
^DD(2006.573,2,21,0)="^^5^5^3000222^^"
^DD(2006.573,2,21,1,0)="The value of this field is the date on which"
^DD(2006.573,2,21,2,0)="the study that is referenced in this entry was"
^DD(2006.573,2,21,3,0)="performed."
^DD(2006.573,2,21,4,0)=" "
^DD(2006.573,2,21,5,0)="This date is encoded as yyyy.mm.dd"
^DD(2006.573,2,"DT")="3000222"
^DD(2006.573,3,0)="PATIENT NAME^F^^A_PNAME;1^K:$L(X)>63!($L(X)<1) X"
^DD(2006.573,3,3)="Enter the name of the patient."
^DD(2006.573,3,21,0)="^^7^7^3000222^^"
^DD(2006.573,3,21,1,0)="The value of this field is equal to the name of the"
^DD(2006.573,3,21,2,0)="patient for whom the study in question is performed."
^DD(2006.573,3,21,3,0)=" "
^DD(2006.573,3,21,4,0)="This value is copied from ^DPT so that the VistA"
^DD(2006.573,3,21,5,0)="DICOM Gateway will need to be able to access this"
^DD(2006.573,3,21,6,0)="value whether or not the network link with the VistA"
^DD(2006.573,3,21,7,0)="system (DDP) is available."
^DD(2006.573,3,"DT")="3000222"
^DD(2006.573,4,0)="SSN^F^^A_SSN;1^K:$L(X)>14!($L(X)<9) X"
^DD(2006.573,4,3)="Enter the patient's Social Security Number."
^DD(2006.573,4,21,0)="^^8^8^3000222^^"
^DD(2006.573,4,21,1,0)="The value of this field is a code that identifies"
^DD(2006.573,4,21,2,0)="a patient. This code is equal to the patient's"
^DD(2006.573,4,21,3,0)="Social Security Number."
^DD(2006.573,4,21,4,0)=" "
^DD(2006.573,4,21,5,0)="This value is copied from ^DPT so that the VistA"
^DD(2006.573,4,21,6,0)="DICOM Gateway will need to be able to access this"
^DD(2006.573,4,21,7,0)="value whether or not the network link with the VistA"
^DD(2006.573,4,21,8,0)="system (DDP) is available."
^DD(2006.573,4,"DT")="3000222"
^DD(2006.573,5,0)="CASE NUMBER^F^^A_CASENUMB;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.573,5,3)="Enter the case number for this study."
^DD(2006.573,5,21,0)="^^10^10^3000222^^"
^DD(2006.573,5,21,1,0)="The value of this field is the (short) case number"
^DD(2006.573,5,21,2,0)="for the study that is referenced in this entry."
^DD(2006.573,5,21,3,0)=" "
^DD(2006.573,5,21,4,0)="A long case number consists of two groups of digits"
^DD(2006.573,5,21,5,0)="separated by a dash. The first group is 6 digits,"
^DD(2006.573,5,21,6,0)="and is derived from the date. The second group is"
^DD(2006.573,5,21,7,0)="an integer number that uniquely identifies the study"
^DD(2006.573,5,21,8,0)="for that date."
^DD(2006.573,5,21,9,0)=" "
^DD(2006.573,5,21,10,0)="For this field, just that second number is entered."
^DD(2006.573,5,"DT")="3000222"
^DD(2006.573,"B","CASE NUMBER",5)=""
^DD(2006.573,"B","DONE",.01)=""
^DD(2006.573,"B","PATIENT NAME",3)=""
^DD(2006.573,"B","SSN",4)=""
^DD(2006.573,"B","STUDY DATE",2)=""
^DD(2006.573,"GL",0,1,.01)=""
^DD(2006.573,"GL","A_CASENUMB",1,5)=""
^DD(2006.573,"GL","A_PNAME",1,3)=""
^DD(2006.573,"GL","A_SSN",1,4)=""
^DD(2006.573,"GL","A_STUDYDAT",1,2)=""
^DD(2006.573,"IX",.01)=""
^DD(2006.573,"RQ",.01)=""
^DD(2006.5732,0)="FIELD^^5^5"
^DD(2006.5732,0,"DT")="3041201"
^DD(2006.5732,0,"IX","B",2006.5732,.01)=""
^DD(2006.5732,0,"NM","DICOM QUERY RETRIEVE RESULT")=""
^DD(2006.5732,.01,0)="RESULT^RNJ12,0^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5732,.01,1,0)="^.1"
^DD(2006.5732,.01,1,1,0)="2006.5732^B"
^DD(2006.5732,.01,1,1,1)="S ^MAGDQR(2006.5732,""B"",$E(X,1,30),DA)="""""
^DD(2006.5732,.01,1,1,2)="K ^MAGDQR(2006.5732,""B"",$E(X,1,30),DA)"
^DD(2006.5732,.01,3)="Enter the sequence number of this result-set."
^DD(2006.5732,.01,21,0)="^^5^5^3041201^"
^DD(2006.5732,.01,21,1,0)="The value of this field is an integer number."
^DD(2006.5732,.01,21,2,0)="This number uniquely identifies a result-set that"
^DD(2006.5732,.01,21,3,0)="results from a DICOM Query/Retrieve request."
^DD(2006.5732,.01,21,4,0)=" "
^DD(2006.5732,.01,21,5,0)="The rest of the record is the result-set in question."
^DD(2006.5732,.01,"DT")="3041201"
^DD(2006.5732,2,0)="STATUS^S^IP:Query in progress;OK:Query complete;X:Query completely reported;^0;2^Q"
^DD(2006.5732,2,3)="Indicate the status of this query."
^DD(2006.5732,2,21,0)="^^14^14^3041201^"
^DD(2006.5732,2,21,1,0)="The value of this field is a code that indicates the status of"
^DD(2006.5732,2,21,2,0)="a query."
^DD(2006.5732,2,21,3,0)=" "
^DD(2006.5732,2,21,4,0)="When a query is initiated, the value of this field will be set"
^DD(2006.5732,2,21,5,0)="to IP = In Progress."
^DD(2006.5732,2,21,6,0)=" "
^DD(2006.5732,2,21,7,0)="When a query is complete, the value of this field will be changed"
^DD(2006.5732,2,21,8,0)="to OK = Query Complete."
^DD(2006.5732,2,21,9,0)=" "
^DD(2006.5732,2,21,10,0)="When all results that are logged for the query have been reported,"
^DD(2006.5732,2,21,11,0)="the value of this field will be set to X = Query Completely Reported,"
^DD(2006.5732,2,21,12,0)="so that a clean-up process may remove the now obsolete result-set."
^DD(2006.5732,2,21,13,0)=" "
^DD(2006.5732,2,21,14,0)="(See also the field TIMESTAMP.)"
^DD(2006.5732,2,"DT")="3041201"
^DD(2006.5732,3,0)="TIMESTAMP^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5732,3,3)="Enter the date and time of last access to this result-set."
^DD(2006.5732,3,21,0)="^^10^10^3041201^"
^DD(2006.5732,3,21,1,0)="The value of this field is a timestamp that indicates when a"
^DD(2006.5732,3,21,2,0)="result-set was last accessed."
^DD(2006.5732,3,21,3,0)=" "
^DD(2006.5732,3,21,4,0)="This value is set to the current date and time when the result-set"
^DD(2006.5732,3,21,5,0)="is first marked as complete, and will be updated each time"
^DD(2006.5732,3,21,6,0)="a (partial) result is reported."
^DD(2006.5732,3,21,7,0)=" "
^DD(2006.5732,3,21,8,0)="The main purpose of this field to to assist a maintenance process"
^DD(2006.5732,3,21,9,0)="in cleaning up result-sets that haven't been accessed in more than"
^DD(2006.5732,3,21,10,0)="a couple of days."
^DD(2006.5732,3,"DT")="3041201"
^DD(2006.5732,4,0)="TAG^2006.57321A^^1;0"
^DD(2006.5732,5,0)="TASKMAN^NJ12,0^^0;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5732,5,3)="Enter the process-number of the TaskMan process that does the query."
^DD(2006.5732,5,21,0)="^^11^11^3041201^"
^DD(2006.5732,5,21,1,0)="The value of this field is a number."
^DD(2006.5732,5,21,2,0)=" "
^DD(2006.5732,5,21,3,0)="This number is returned by TaskMan when a new background"
^DD(2006.5732,5,21,4,0)="process is created to perform the actual query."
^DD(2006.5732,5,21,5,0)=" "
^DD(2006.5732,5,21,6,0)="This number will be used to query TaskMan to see whether"
^DD(2006.5732,5,21,7,0)="the background process has completed."
^DD(2006.5732,5,21,8,0)=" "
^DD(2006.5732,5,21,9,0)="Note: if the background process is no longer active,"
^DD(2006.5732,5,21,10,0)="and no result-set has been delivered, the error log should"
^DD(2006.5732,5,21,11,0)="be checked for any problems."
^DD(2006.5732,5,"DT")="3041201"
^DD(2006.5732,"B","RESULT",.01)=""
^DD(2006.5732,"B","STATUS",2)=""
^DD(2006.5732,"B","TAG",4)=""
^DD(2006.5732,"B","TASKMAN",5)=""
^DD(2006.5732,"B","TIMESTAMP",3)=""
^DD(2006.5732,"GL",0,1,.01)=""
^DD(2006.5732,"GL",0,2,2)=""
^DD(2006.5732,"GL",0,3,3)=""
^DD(2006.5732,"GL",0,4,5)=""
^DD(2006.5732,"GL",1,0,4)=""
^DD(2006.5732,"IX",.01)=""
^DD(2006.5732,"RQ",.01)=""
^DD(2006.5732,"SB",2006.57321,4)=""
^DD(2006.57321,0)="TAG SUB-FIELD^^2^2"
^DD(2006.57321,0,"DT")="3041201"
^DD(2006.57321,0,"IX","B",2006.57321,.01)=""
^DD(2006.57321,0,"NM","TAG")=""
^DD(2006.57321,0,"UP")="2006.5732"
^DD(2006.57321,.01,0)="TAG^RF^^0;1^K:$L(X)>9!($L(X)<9) X"
^DD(2006.57321,.01,1,0)="^.1"
^DD(2006.57321,.01,1,1,0)="2006.57321^B"
^DD(2006.57321,.01,1,1,1)="S ^MAGDQR(2006.5732,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.57321,.01,1,1,2)="K ^MAGDQR(2006.5732,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.57321,.01,3)="Enter the DICOM tag (xxxx,xxxx) for the current value."
^DD(2006.57321,.01,21,0)="^^6^6^3041201^"
^DD(2006.57321,.01,21,1,0)="The value of this field is a string that represents a DICOM tag."
^DD(2006.57321,.01,21,2,0)="A DICOM tag consists of two pairs of 4 hexadecimal digits,"
^DD(2006.57321,.01,21,3,0)="separated by a comma."
^DD(2006.57321,.01,21,4,0)=" "
^DD(2006.57321,.01,21,5,0)="The DICOM tag qualifies the meaning of the data-value that"
^DD(2006.57321,.01,21,6,0)="is stored in the rest of the current record."
^DD(2006.57321,.01,"DT")="3041201"
^DD(2006.57321,2,0)="VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(2006.57321,2,3)="Enter the value for the current DICOM tag."
^DD(2006.57321,2,21,0)="^^5^5^3041201^"
^DD(2006.57321,2,21,1,0)="The value of this field is a string."
^DD(2006.57321,2,21,2,0)="This value is used to report the actual value of a certain"
^DD(2006.57321,2,21,3,0)="DICOM element in response to a query. The DICOM element in"
^DD(2006.57321,2,21,4,0)="question is identified by the TAG at the start of the current"
^DD(2006.57321,2,21,5,0)="record."
^DD(2006.57321,2,"DT")="3041201"
^DD(2006.57321,"B","TAG",.01)=""
^DD(2006.57321,"B","VALUE",2)=""
^DD(2006.57321,"GL",0,1,.01)=""
^DD(2006.57321,"GL",0,2,2)=""
^DD(2006.57321,"IX",.01)=""
^DD(2006.57321,"RQ",.01)=""
^DD(2006.574,0)="FIELD^^8^8"
^DD(2006.574,0,"DDA")="N"
^DD(2006.574,0,"DT")="3060213"
^DD(2006.574,0,"IX","STUDY",2006.574,7)=""
^DD(2006.574,0,"NM","DICOM IMAGE OUTPUT")=""
^DD(2006.574,0,"VRPK")="IMAGING"
^DD(2006.574,.01,0)="APPLICATION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.574,.01,1,0)="^.1^^0"
^DD(2006.574,.01,3)="Enter the name of the application that will receive the file(s)."
^DD(2006.574,.01,21,0)="^^8^8^3000222^^"
^DD(2006.574,.01,21,1,0)="The value of this field is a string that identifies"
^DD(2006.574,.01,21,2,0)="the application that will receive the image files"
^DD(2006.574,.01,21,3,0)="for which this entry describes the parameters."
^DD(2006.574,.01,21,4,0)=" "
^DD(2006.574,.01,21,5,0)="The name that is entered here corresponds to the"
^DD(2006.574,.01,21,6,0)="name (.01 field) in file 2006.585 (stored in ^MAGDICOM(2006.585,...)"
^DD(2006.574,.01,21,7,0)="of the storage provider that will receive the image"
^DD(2006.574,.01,21,8,0)="files."
^DD(2006.574,.01,"DT")="3000222"
^DD(2006.574,2,0)="GROUP^P2005'^MAG(2005,^0;2^Q"
^DD(2006.574,2,3)="Identify the group of images that is to be transported."
^DD(2006.574,2,21,0)="^^7^7^3000222^^"
^DD(2006.574,2,21,1,0)="The value of this field is a pointer that identifies"
^DD(2006.574,2,21,2,0)="the image that is the 'parent' of the group of images"
^DD(2006.574,2,21,3,0)="for which this entry describes the transmission to"
^DD(2006.574,2,21,4,0)="another storage provider."
^DD(2006.574,2,21,5,0)=" "
^DD(2006.574,2,21,6,0)="The value of this field is a pointer to the Image File"
^DD(2006.574,2,21,7,0)="(2005, stored in ^MAG(2005,...)."
^DD(2006.574,2,"DT")="3000222"
^DD(2006.574,3,0)="ACCESSION NUMBER^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(2006.574,3,3)="Enter the accession number for the (group of) image(s) to be transported."
^DD(2006.574,3,21,0)="^^10^10^3000222^^"
^DD(2006.574,3,21,1,0)="The value of this field is the (short) case number"
^DD(2006.574,3,21,2,0)="for the study that is referenced in this entry."
^DD(2006.574,3,21,3,0)=" "
^DD(2006.574,3,21,4,0)="A long case number consists of two groups of digits"
^DD(2006.574,3,21,5,0)="separated by a dash. The first group is 6 digits,"
^DD(2006.574,3,21,6,0)="and is derived from the date. The second group is"
^DD(2006.574,3,21,7,0)="an integer number that uniquely identifies the study"
^DD(2006.574,3,21,8,0)="for that date."
^DD(2006.574,3,21,9,0)=" "
^DD(2006.574,3,21,10,0)="For this field, the whole accession number is entered."
^DD(2006.574,3,"DT")="3000222"
^DD(2006.574,4,0)="IMAGE^2006.5744PA^^1;0"
^DD(2006.574,5,0)="FROM^P4'^DIC(4,^0;4^Q"
^DD(2006.574,5,1,0)="^.1^^0"
^DD(2006.574,5,3)="Enter the name of the ""place"" from which the image originates."
^DD(2006.574,5,21,0)="^^3^3^3010308^"
^DD(2006.574,5,21,1,0)="The value of this field is a pointer (to the Institution file, #4)."
^DD(2006.574,5,21,2,0)="This pointer identifies the ""place"" where the image is permanently"
^DD(2006.574,5,21,3,0)="stored."
^DD(2006.574,5,"DT")="3041029"
^DD(2006.574,6,0)="PRIORITY^NJ9,0^^0;5^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.574,6,3)="Enter an integer number to represent the priority of this queue entry."
^DD(2006.574,6,21,0)="^^6^6^3050602^"
^DD(2006.574,6,21,1,0)="The value of this field is a positive integer number."
^DD(2006.574,6,21,2,0)="This number indicates the relative priority of an entry in the queue."
^DD(2006.574,6,21,3,0)=" "
^DD(2006.574,6,21,4,0)="A higher number indicates a higher priority, i.e. when two entries"
^DD(2006.574,6,21,5,0)="have different priorities, the entry with the higher priority"
^DD(2006.574,6,21,6,0)="will be processed before the one with the lower priority."
^DD(2006.574,6,"DT")="3050602"
^DD(2006.574,7,0)="STUDY UID^F^^2;1^K:$L(X)>64!($L(X)<1)!'(X?1.(1N,1""."")) X"
^DD(2006.574,7,1,0)="^.1"
^DD(2006.574,7,1,1,0)="2006.574^STUDY"
^DD(2006.574,7,1,1,1)="S ^MAGDOUTP(2006.574,""STUDY"",$E(X,1,30),DA)="""""
^DD(2006.574,7,1,1,2)="K ^MAGDOUTP(2006.574,""STUDY"",$E(X,1,30),DA)"
^DD(2006.574,7,1,1,"%D",0)="^^2^2^3050818^"
^DD(2006.574,7,1,1,"%D",1,0)="This cross reference keeps track of which ""studies"" are currently"
^DD(2006.574,7,1,1,"%D",2,0)="queued for transmission."
^DD(2006.574,7,1,1,"DT")="3050818"
^DD(2006.574,7,3)="Enter the Study UID for this group of images."
^DD(2006.574,7,21,0)="^^9^9^3050818^"
^DD(2006.574,7,21,1,0)="The value of this field is a string that represents a"
^DD(2006.574,7,21,2,0)="DICOM Unique Object Identifier. A DICOM UID is a string"
^DD(2006.574,7,21,3,0)="that consists of up to 64 characters, each character must"
^DD(2006.574,7,21,4,0)="be either a digit or a period, no two consecutive periods"
^DD(2006.574,7,21,5,0)="are allowed, none of the series of consecutive digits"
^DD(2006.574,7,21,6,0)="may start with a zero."
^DD(2006.574,7,21,7,0)=" "
^DD(2006.574,7,21,8,0)="This UID identifies the study to which the images"
^DD(2006.574,7,21,9,0)="belong that are included in the current entry."
^DD(2006.574,7,"DT")="3050818"
^DD(2006.574,8,0)="COPY TO RAID^S^0:Do not copy;1:Make a copy;^0;6^Q"
^DD(2006.574,8,3)="Indicate whether or not a copy of the image is to be made on RAID."
^DD(2006.574,8,21,0)="^^4^4^3060213^"
^DD(2006.574,8,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.574,8,21,2,0)="a copy of the image file(s) is to be made on RAID."
^DD(2006.574,8,21,3,0)="A value of 0 indicates that no copy is to be made on RAID."
^DD(2006.574,8,21,4,0)="A value of 1 indicates that a copy should be made."
^DD(2006.574,8,"DT")="3060213"
^DD(2006.574,"B","ACCESSION NUMBER",3)=""
^DD(2006.574,"B","APPLICATION",.01)=""
^DD(2006.574,"B","COPY TO RAID",8)=""
^DD(2006.574,"B","FROM",5)=""
^DD(2006.574,"B","GROUP",2)=""
^DD(2006.574,"B","IMAGE",4)=""
^DD(2006.574,"B","PRIORITY",6)=""
^DD(2006.574,"B","STUDY UID",7)=""
^DD(2006.574,"GL",0,1,.01)=""
^DD(2006.574,"GL",0,2,2)=""
^DD(2006.574,"GL",0,3,3)=""
^DD(2006.574,"GL",0,4,5)=""
^DD(2006.574,"GL",0,5,6)=""
^DD(2006.574,"GL",0,6,8)=""
^DD(2006.574,"GL",1,0,4)=""
^DD(2006.574,"GL",2,1,7)=""
^DD(2006.574,"IX",7)=""
^DD(2006.574,"RQ",.01)=""
^DD(2006.574,"SB",2006.5744,4)=""
^DD(2006.5744,0)="IMAGE SUB-FIELD^^3^3"
^DD(2006.5744,0,"DT")="3041029"
^DD(2006.5744,0,"NM","IMAGE")=""
^DD(2006.5744,0,"UP")="2006.574"
^DD(2006.5744,.01,0)="IMAGE^P2005'^MAG(2005,^0;1^Q"
^DD(2006.5744,.01,1,0)="^.1^^0"
^DD(2006.5744,.01,3)="Identify the image(s) in this transmission."
^DD(2006.5744,.01,21,0)="^^6^6^3000222^^"
^DD(2006.5744,.01,21,1,0)="The value of this field is a pointer that identifies"
^DD(2006.5744,.01,21,2,0)="one of the images that is to be transmitted to"
^DD(2006.5744,.01,21,3,0)="another storage provider."
^DD(2006.5744,.01,21,4,0)=" "
^DD(2006.5744,.01,21,5,0)="The value of this field is a pointer to the Image File"
^DD(2006.5744,.01,21,6,0)="(2005, stored in ^MAG(2005,...)."
^DD(2006.5744,.01,"DT")="3000222"
^DD(2006.5744,2,0)="STATUS^S^WAITING:Waiting to be transmitted;XMIT:Transmission in progress;FAIL:Transmission failed;SUCCESS:Transmission successfully completed;^0;2^Q"
^DD(2006.5744,2,3)="Indicate the current status of this entry."
^DD(2006.5744,2,21,0)="^^7^7^3041029^"
^DD(2006.5744,2,21,1,0)="The value of this field is a code that indicates the current"
^DD(2006.5744,2,21,2,0)="status of the entry in this table."
^DD(2006.5744,2,21,3,0)="Possible values are ""waiting to be transmitted"", ""transmission"
^DD(2006.5744,2,21,4,0)="in progress"" and ""successful transmission"" or ""failed transmission""."
^DD(2006.5744,2,21,5,0)=" "
^DD(2006.5744,2,21,6,0)="A cross-reference on this field is used to prevent issuing the"
^DD(2006.5744,2,21,7,0)="same file to multiple transmission processes."
^DD(2006.5744,2,"DT")="3041029"
^DD(2006.5744,3,0)="TIMESTAMP^F^^0;3^K:$L(X)>15!($L(X)<3)!'(X?1.N1"",""1.N) X"
^DD(2006.5744,3,3)="Indicate the current time ($H format)."
^DD(2006.5744,3,21,0)="^^10^10^3041029^"
^DD(2006.5744,3,21,1,0)="The value of this field is a string ($Horolog format) that"
^DD(2006.5744,3,21,2,0)="indicates the date and time that the current status was established."
^DD(2006.5744,3,21,3,0)=" "
^DD(2006.5744,3,21,4,0)="This value is used when checking on files that are in a status"
^DD(2006.5744,3,21,5,0)="of ""transmission in progress"". When a file is too long in this"
^DD(2006.5744,3,21,6,0)="status, the current entry will be moved back to a status of"
^DD(2006.5744,3,21,7,0)="""waiting for transmission""."
^DD(2006.5744,3,21,8,0)=" "
^DD(2006.5744,3,21,9,0)="See the RPC named ""MAG DICOM GET NEXT QUEUE ENTRY"" for the"
^DD(2006.5744,3,21,10,0)="actual time-lag that decides on a change-back of the status."
^DD(2006.5744,3,"DT")="3041029"
^DD(2006.5744,"B","IMAGE",.01)=""
^DD(2006.5744,"B","STATUS",2)=""
^DD(2006.5744,"B","TIMESTAMP",3)=""
^DD(2006.5744,"GL",0,1,.01)=""
^DD(2006.5744,"GL",0,2,2)=""
^DD(2006.5744,"GL",0,3,3)=""
^DD(2006.575,0)="FIELD^^37^37"
^DD(2006.575,0,"DDA")="N"
^DD(2006.575,0,"DT")="3040609"
^DD(2006.575,0,"IX","B",2006.575,.01)=""
^DD(2006.575,0,"IX","F",2006.575,9)=""
^DD(2006.575,0,"NM","DICOM FAILED IMAGES")=""
^DD(2006.575,0,"PT",2006.5712,.01)=""
^DD(2006.575,0,"PT",2006.5712,2)=""
^DD(2006.575,0,"PT",2006.57526,.01)=""
^DD(2006.575,0,"VRPK")="MAG"
^DD(2006.575,.01,0)="FILEPATH^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.575,.01,.1)="File Path"
^DD(2006.575,.01,1,0)="^.1"
^DD(2006.575,.01,1,1,0)="2006.575^B"
^DD(2006.575,.01,1,1,1)="S ^MAGD(2006.575,""B"",$E(X,1,30),DA)="""""
^DD(2006.575,.01,1,1,2)="K ^MAGD(2006.575,""B"",$E(X,1,30),DA)"
^DD(2006.575,.01,3)="Enter the name of the image file (including directory path)."
^DD(2006.575,.01,21,0)="^^3^3^3000306^^"
^DD(2006.575,.01,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,.01,21,2,0)="the name of the image file that failed the matching"
^DD(2006.575,.01,21,3,0)="process on the local DICOM Image gateway processing the image."
^DD(2006.575,.01,"DT")="2970226"
^DD(2006.575,1,0)="FAILED REASON^S^NO CASE #:No case number;PID ERROR:Could not match patient;UNKNOWN:Any other reason;BAD CASE #:Format error in case number;CANCELLED:Case cancelled;^0;2^Q"
^DD(2006.575,1,.1)="Reason for Failure"
^DD(2006.575,1,3)="Enter 'No Case #', 'Bad Case #', 'PID Error' or 'Unknown' or 'Cancelled'."
^DD(2006.575,1,21,0)="^^11^11^3030421^"
^DD(2006.575,1,21,1,0)="The value of this field is a code that indicates the"
^DD(2006.575,1,21,2,0)="reason why the image file that is described in the"
^DD(2006.575,1,21,3,0)="current entry could not be matched with a patient"
^DD(2006.575,1,21,4,0)="and study."
^DD(2006.575,1,21,5,0)=" "
^DD(2006.575,1,21,6,0)="The possible values for this field are NOCASE#, PATIENT, UNKNOWN or "
^DD(2006.575,1,21,7,0)="CANCELLED."
^DD(2006.575,1,21,8,0)=" "
^DD(2006.575,1,21,9,0)="When the entry is processed the match for the Radiology entry is by"
^DD(2006.575,1,21,10,0)="case number and then by patient ID. If these entries are not provided"
^DD(2006.575,1,21,11,0)="correctly then entries are made into this file."
^DD(2006.575,1,"DT")="3030421"
^DD(2006.575,2,0)="PID^F^^0;3^K:$L(X)>12!($L(X)<3) X"
^DD(2006.575,2,.1)="Patient ID"
^DD(2006.575,2,1,0)="^.1^^0"
^DD(2006.575,2,3)="Enter the patient's SSN."
^DD(2006.575,2,21,0)="^^11^11^3001006^^"
^DD(2006.575,2,21,1,0)="The value of this field is the value that is transmitted"
^DD(2006.575,2,21,2,0)="by the modality for DICOM element 0010,0020."
^DD(2006.575,2,21,3,0)="Typically, the value of this field is equal to"
^DD(2006.575,2,21,4,0)="the Social Security Number of the patient"
^DD(2006.575,2,21,5,0)="for whom the study is scheduled."
^DD(2006.575,2,21,6,0)="(Without the dashes between the number-groups.)"
^DD(2006.575,2,21,7,0)=" "
^DD(2006.575,2,21,8,0)="This value is copied from the VistA Database, so that"
^DD(2006.575,2,21,9,0)="worklist queries can also be performed when the network"
^DD(2006.575,2,21,10,0)="connection (DDP) with the main Hospital Information System"
^DD(2006.575,2,21,11,0)="is not available."
^DD(2006.575,2,"DT")="3041216"
^DD(2006.575,3,0)="PATIENT^F^^0;4^K:$L(X)>35!($L(X)<3) X"
^DD(2006.575,3,.1)="Patient Name (VA)"
^DD(2006.575,3,1,0)="^.1^^0"
^DD(2006.575,3,3)="Enter the name of the patient."
^DD(2006.575,3,21,0)="^^7^7^3000306^^"
^DD(2006.575,3,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,3,21,2,0)="the name of the patient."
^DD(2006.575,3,21,3,0)=" "
^DD(2006.575,3,21,4,0)="This value is reformatted as LAST NAME,FIRST NAME MID. The actual"
^DD(2006.575,3,21,5,0)="name sent by the Radiology modality is in field PNAMEDCM. This field"
^DD(2006.575,3,21,6,0)="will be used as one of the possible lookups for correction to this"
^DD(2006.575,3,21,7,0)="entry."
^DD(2006.575,3,"DT")="3041216"
^DD(2006.575,4,0)="PNAMEDCM^F^^0;5^K:$L(X)>35!($L(X)<3) X"
^DD(2006.575,4,.1)="Patient Name (DICOM)"
^DD(2006.575,4,1,0)="^.1^^0"
^DD(2006.575,4,3)="Enter the name of the patient."
^DD(2006.575,4,21,0)="^^6^6^3000306^^"
^DD(2006.575,4,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,4,21,2,0)="the name of the patient."
^DD(2006.575,4,21,3,0)=" "
^DD(2006.575,4,21,4,0)="This value is copied from the information that was"
^DD(2006.575,4,21,5,0)="transmitted by the Radiology"
^DD(2006.575,4,21,6,0)="modality."
^DD(2006.575,4,"DT")="3041216"
^DD(2006.575,5,0)="CASENUMB^F^^1;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,5,.1)="Case Number (Modality)"
^DD(2006.575,5,3)="Enter the case number."
^DD(2006.575,5,21,0)="^^6^6^3000306^^"
^DD(2006.575,5,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,5,21,2,0)="the case number for the study."
^DD(2006.575,5,21,3,0)=" "
^DD(2006.575,5,21,4,0)="This value is copied from the information that was"
^DD(2006.575,5,21,5,0)="transmitted by the Radiology"
^DD(2006.575,5,21,6,0)="X-Ray equipment."
^DD(2006.575,5,"DT")="2970226"
^DD(2006.575,6,0)="CASE NO.^F^^1;2^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,6,.1)="Case Number (Technician)"
^DD(2006.575,6,3)="Enter the case number."
^DD(2006.575,6,21,0)="^^8^8^3000306^^"
^DD(2006.575,6,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,6,21,2,0)="the case number for the study."
^DD(2006.575,6,21,3,0)=" "
^DD(2006.575,6,21,4,0)="This value is copied from the information that was"
^DD(2006.575,6,21,5,0)="entered by the technician during the image capture at"
^DD(2006.575,6,21,6,0)="the Radiology X-Ray modality. This field will usually be empty since the"
^DD(2006.575,6,21,7,0)="file will contain only entries that failed during the copying of images"
^DD(2006.575,6,21,8,0)="to the Imaging file."
^DD(2006.575,6,"DT")="2970226"
^DD(2006.575,7,0)="DATE ENTERED^D^^1;3^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(2006.575,7,.1)="Date Entered"
^DD(2006.575,7,3)="Enter today's date."
^DD(2006.575,7,21,0)="^^4^4^3000306^^"
^DD(2006.575,7,21,1,0)="The value of this field is a date value."
^DD(2006.575,7,21,2,0)=" "
^DD(2006.575,7,21,3,0)="This value must be an exact date and represents"
^DD(2006.575,7,21,4,0)="the date on which the entry was made into this file."
^DD(2006.575,7,"DT")="3041216"
^DD(2006.575,8,0)="IMAGE UID^F^^AIUID;1^K:$L(X)>70!($L(X)<1) X"
^DD(2006.575,8,.1)="Image UID"
^DD(2006.575,8,3)="Enter the Image UID code."
^DD(2006.575,8,21,0)="^^7^7^3000306^^"
^DD(2006.575,8,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,8,21,2,0)="the Image UID."
^DD(2006.575,8,21,3,0)=" "
^DD(2006.575,8,21,4,0)="This value is copied from the information that is"
^DD(2006.575,8,21,5,0)="transmitted by the modality. The Image UID is"
^DD(2006.575,8,21,6,0)="a unique ID number assigned to the image by the Radiology X-Ray"
^DD(2006.575,8,21,7,0)="modality."
^DD(2006.575,8,"DT")="2970226"
^DD(2006.575,9,0)="STUDY UID^F^^ASUID;1^K:$L(X)>70!($L(X)<1) X"
^DD(2006.575,9,.1)="Study UID"
^DD(2006.575,9,1,0)="^.1^^-1"
^DD(2006.575,9,1,1,0)="2006.575^F^MUMPS"
^DD(2006.575,9,1,1,1)="D XREF^MAGDLB6"
^DD(2006.575,9,1,1,2)="D XREFK^MAGDLB6"
^DD(2006.575,9,1,1,"%D",0)="^^2^2^3030828^"
^DD(2006.575,9,1,1,"%D",1,0)="This cross-reference indexes failed images by location and study instance "
^DD(2006.575,9,1,1,"%D",2,0)="UID."
^DD(2006.575,9,1,1,"DT")="3030828"
^DD(2006.575,9,3)="Enter the Study UID code."
^DD(2006.575,9,21,0)="^.001^9^9^3021018^^^"
^DD(2006.575,9,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,9,21,2,0)="the Study UID."
^DD(2006.575,9,21,3,0)=" "
^DD(2006.575,9,21,4,0)="This value is copied from the information that is"
^DD(2006.575,9,21,5,0)="transmitted by the modality. The Image UID is"
^DD(2006.575,9,21,6,0)="a unique ID number assigned to the image by the Radiology X-Ray"
^DD(2006.575,9,21,7,0)="modality."
^DD(2006.575,9,21,8,0)="A case study will consist of several images, each of which has its"
^DD(2006.575,9,21,9,0)="own unique Image UID code."
^DD(2006.575,9,"DT")="3041216"
^DD(2006.575,10,0)="INSTRUMENT NAME^F^^AMFG;1^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,10,.1)="Instrument Name"
^DD(2006.575,10,1,0)="^.1^^0"
^DD(2006.575,10,3)="Enter the name of the instrument."
^DD(2006.575,10,21,0)="^^5^5^3000306^^"
^DD(2006.575,10,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,10,21,2,0)="the name of the instrument that produced the image file."
^DD(2006.575,10,21,3,0)=" "
^DD(2006.575,10,21,4,0)="Typical values for this field are texts like"
^DD(2006.575,10,21,5,0)="CT1, CT2, CR3, and so forth."
^DD(2006.575,10,"DT")="3041216"
^DD(2006.575,11,0)="ROWS^F^^AMFG;2^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,11,.1)="Rows"
^DD(2006.575,11,3)="Enter the number of pixel rows in the image."
^DD(2006.575,11,21,0)="^^5^5^3000306^^"
^DD(2006.575,11,21,1,0)="The value of this field is an integer number that"
^DD(2006.575,11,21,2,0)="represents the number of pixel rows in the image."
^DD(2006.575,11,21,3,0)=" "
^DD(2006.575,11,21,4,0)="This value is copied from the information that is"
^DD(2006.575,11,21,5,0)="transmitted by the Radiology modality."
^DD(2006.575,11,"DT")="2970226"
^DD(2006.575,12,0)="COLUMNS^F^^AMFG;3^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,12,.1)="Columns"
^DD(2006.575,12,3)="Enter the number of pixel columns in the image."
^DD(2006.575,12,21,0)="^^5^5^3000306^^"
^DD(2006.575,12,21,1,0)="The value of this field is an integer number that"
^DD(2006.575,12,21,2,0)="represents the number of pixel columns in the image."
^DD(2006.575,12,21,3,0)=" "
^DD(2006.575,12,21,4,0)="This value is copied from the information that is"
^DD(2006.575,12,21,5,0)="transmitted by the Radiology modality."
^DD(2006.575,12,"DT")="2970226"
^DD(2006.575,13,0)="OFFSET^F^^AMFG;4^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,13,.1)="Offset"
^DD(2006.575,13,3)="Enter the byte address where the image data begins."
^DD(2006.575,13,21,0)="^^6^6^3000306^^"
^DD(2006.575,13,21,1,0)="The value of this field is an integer number that"
^DD(2006.575,13,21,2,0)="represents the byte address in the image file where"
^DD(2006.575,13,21,3,0)="the image data begins."
^DD(2006.575,13,21,4,0)=" "
^DD(2006.575,13,21,5,0)="This value is copied from the information that is"
^DD(2006.575,13,21,6,0)="transmitted by the Radiology modality."
^DD(2006.575,13,"DT")="2970226"
^DD(2006.575,14,0)="MODIEN^F^^AMFG;5^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,14,.1)="Modien"
^DD(2006.575,14,3)="Identify the modality."
^DD(2006.575,14,21,0)="^^5^5^3000306^^"
^DD(2006.575,14,21,1,0)="The value of this field is a pointer to the Modality"
^DD(2006.575,14,21,2,0)="file (# 2006.582, stored in ^MAGDICOM(2006.582,...)."
^DD(2006.575,14,21,3,0)=" "
^DD(2006.575,14,21,4,0)="This value identifies the modality (type of instrument)"
^DD(2006.575,14,21,5,0)="that transmitted the image file."
^DD(2006.575,14,"DT")="2970226"
^DD(2006.575,16,0)="FIXED^S^1:YES;^FIXD;1^Q"
^DD(2006.575,16,.1)="Fixed"
^DD(2006.575,16,1,0)="^.1^^0"
^DD(2006.575,16,3)="Identify whether or not this entry has been corrected."
^DD(2006.575,16,21,0)="^^12^12^3000306^^"
^DD(2006.575,16,21,1,0)="The value of this field is a code that identifies"
^DD(2006.575,16,21,2,0)="whether or not the problem that is reported in the"
^DD(2006.575,16,21,3,0)="current entry has been corrected."
^DD(2006.575,16,21,4,0)=" "
^DD(2006.575,16,21,5,0)="Entries are corrected in this file using either of"
^DD(2006.575,16,21,6,0)="the menu options"
^DD(2006.575,16,21,7,0)=" MAGD FIX DICOM or"
^DD(2006.575,16,21,8,0)=" MAGD FIX MEDICINE"
^DD(2006.575,16,21,9,0)=" "
^DD(2006.575,16,21,10,0)="When the entry is"
^DD(2006.575,16,21,11,0)="manually matched with a patient and procedure the correction routine will"
^DD(2006.575,16,21,12,0)="update this field."
^DD(2006.575,16,23,0)="^^2^2^3000216^"
^DD(2006.575,16,23,1,0)="This field creates a cross reference used by the DICOM Image server to know"
^DD(2006.575,16,23,2,0)="which entries are ready for re-processing. "
^DD(2006.575,16,"DT")="3041216"
^DD(2006.575,17,0)="NEWDFN^F^^FIXD;2^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,17,.1)="New DFN"
^DD(2006.575,17,3)="Identify the patient."
^DD(2006.575,17,21,0)="^^8^8^3000306^^"
^DD(2006.575,17,21,1,0)="The value of this field is a pointer to the Patient"
^DD(2006.575,17,21,2,0)="file (# 2, stored in ^DPT(...)."
^DD(2006.575,17,21,3,0)=" "
^DD(2006.575,17,21,4,0)="This value identifies the (new) patient, and is"
^DD(2006.575,17,21,5,0)="defined using either of"
^DD(2006.575,17,21,6,0)="the menu options"
^DD(2006.575,17,21,7,0)=" MAGD FIX DICOM or"
^DD(2006.575,17,21,8,0)=" MAGD FIX MEDICINE"
^DD(2006.575,17,"DT")="2970226"
^DD(2006.575,18,0)="NEWNME^F^^FIXD;3^K:$L(X)>35!($L(X)<1) X"
^DD(2006.575,18,.1)="New Name"
^DD(2006.575,18,3)="Enter the name of the patient."
^DD(2006.575,18,21,0)="^^8^8^3000306^^"
^DD(2006.575,18,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,18,21,2,0)="the name of a patient."
^DD(2006.575,18,21,3,0)=" "
^DD(2006.575,18,21,4,0)="This value identifies the (new) patient, and is"
^DD(2006.575,18,21,5,0)="defined using either of"
^DD(2006.575,18,21,6,0)="the menu options"
^DD(2006.575,18,21,7,0)=" MAGD FIX DICOM or"
^DD(2006.575,18,21,8,0)=" MAGD FIX MEDICINE"
^DD(2006.575,18,"DT")="2970226"
^DD(2006.575,19,0)="NEWSSN^F^^FIXD;4^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,19,.1)="Newssn"
^DD(2006.575,19,3)="Enter the patient's SSN."
^DD(2006.575,19,21,0)="^^8^8^3000306^^"
^DD(2006.575,19,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,19,21,2,0)="the Social Security Number of a patient."
^DD(2006.575,19,21,3,0)=" "
^DD(2006.575,19,21,4,0)="This value identifies the (new) patient, and is"
^DD(2006.575,19,21,5,0)="defined using either of"
^DD(2006.575,19,21,6,0)="the menu options"
^DD(2006.575,19,21,7,0)=" MAGD FIX DICOM or"
^DD(2006.575,19,21,8,0)=" MAGD FIX MEDICINE"
^DD(2006.575,19,"DT")="2970226"
^DD(2006.575,20,0)="NEWCASE NO^F^^FIXD;5^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,20,.1)="New Case Number"
^DD(2006.575,20,3)="Enter the case number."
^DD(2006.575,20,21,0)="^^8^8^3000306^^"
^DD(2006.575,20,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,20,21,2,0)="the accession number for a study."
^DD(2006.575,20,21,3,0)=" "
^DD(2006.575,20,21,4,0)="This value identifies the (new) study, and is"
^DD(2006.575,20,21,5,0)="defined using either of"
^DD(2006.575,20,21,6,0)="the menu options"
^DD(2006.575,20,21,7,0)=" MAGD FIX DICOM or"
^DD(2006.575,20,21,8,0)=" MAGD FIX MEDICINE"
^DD(2006.575,20,"DT")="2970226"
^DD(2006.575,21,0)="NEW RADTI^F^^FIXD;6^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,21,.1)="New Reverse Date"
^DD(2006.575,21,3)="Identify the date/time of the study."
^DD(2006.575,21,21,0)="^^12^12^3000306^^"
^DD(2006.575,21,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,21,21,2,0)="the date and time when the study was executed."
^DD(2006.575,21,21,3,0)=" "
^DD(2006.575,21,21,4,0)="This value is a 'reverse' date time, as defined by"
^DD(2006.575,21,21,5,0)="the Radiology software. It is used as the second subscript (RADTI)"
^DD(2006.575,21,21,6,0)="in references like ^RARPT(RADPT,""DT"",RADTI,""P"",RACNI"
^DD(2006.575,21,21,7,0)=" "
^DD(2006.575,21,21,8,0)="This value timestamps the (new) study, and is"
^DD(2006.575,21,21,9,0)="defined using either of"
^DD(2006.575,21,21,10,0)="the menu options"
^DD(2006.575,21,21,11,0)=" MAGD FIX DICOM or"
^DD(2006.575,21,21,12,0)=" MAGD FIX MEDICINE"
^DD(2006.575,21,"DT")="2970226"
^DD(2006.575,22,0)="NEW RACNI^F^^FIXD;7^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,22,.1)="New Case Number"
^DD(2006.575,22,3)="Enter the case number."
^DD(2006.575,22,21,0)="^^11^11^3000306^^"
^DD(2006.575,22,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,22,21,2,0)="the case number for the study."
^DD(2006.575,22,21,3,0)=" "
^DD(2006.575,22,21,4,0)="This value is used as the third subscript (RADCNI)"
^DD(2006.575,22,21,5,0)="in references like ^RARPT(RADPT,""DT"",RADTI,""P"",RACNI"
^DD(2006.575,22,21,6,0)=" "
^DD(2006.575,22,21,7,0)="This value identifies the (new) study, and is"
^DD(2006.575,22,21,8,0)="defined using either of"
^DD(2006.575,22,21,9,0)="the menu options"
^DD(2006.575,22,21,10,0)=" MAGD FIX DICOM or"
^DD(2006.575,22,21,11,0)=" MAGD FIX MEDICINE"
^DD(2006.575,22,"DT")="2970226"
^DD(2006.575,23,0)="DATE/TIME^F^^FIXD;8^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,23,.1)="Date/Time"
^DD(2006.575,23,3)="Enter this moment's date and time."
^DD(2006.575,23,21,0)="^^7^7^3000306^^"
^DD(2006.575,23,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,23,21,2,0)="a date/time value."
^DD(2006.575,23,21,3,0)=" "
^DD(2006.575,23,21,4,0)="This value is copied from the information that was"
^DD(2006.575,23,21,5,0)="transmitted by the Radiology modality. It is"
^DD(2006.575,23,21,6,0)="a timestamp for the moment when the image"
^DD(2006.575,23,21,7,0)="file was processed."
^DD(2006.575,23,"DT")="2970226"
^DD(2006.575,24,0)="NEW PROC IEN^F^^FIXPR;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,24,.1)="New Procedure IEN"
^DD(2006.575,24,3)="Identify the procedure."
^DD(2006.575,24,21,0)="^^8^8^3000306^^"
^DD(2006.575,24,21,1,0)="The value of this field is a pointer to the"
^DD(2006.575,24,21,2,0)="Rad/Nuc procedure file (#71, stored in ^RAMIS(71,...)."
^DD(2006.575,24,21,3,0)=" "
^DD(2006.575,24,21,4,0)="This value is an internal entry number, and is"
^DD(2006.575,24,21,5,0)="defined using either of"
^DD(2006.575,24,21,6,0)="the menu options"
^DD(2006.575,24,21,7,0)=" MAGD FIX DICOM or"
^DD(2006.575,24,21,8,0)=" MAGD FIX MEDICINE"
^DD(2006.575,24,"DT")="2970226"
^DD(2006.575,25,0)="NEW PROCEDURE^F^^FIXPR;2^K:$L(X)>70!($L(X)<1) X"
^DD(2006.575,25,.1)="New Procedure"
^DD(2006.575,25,3)="Enter the name of the procedure."
^DD(2006.575,25,21,0)="^^9^9^3000306^^"
^DD(2006.575,25,21,1,0)="This is the new procedure name defined using the MAGD FIX DICOM or MAGD FIX MEDICINE menu option."
^DD(2006.575,25,21,2,0)="The value of this field is a string that represents"
^DD(2006.575,25,21,3,0)="the name of a procedure found in the Rad/Nuc procedure file (#71, stored in ^RAMIS(71,...)."
^DD(2006.575,25,21,4,0)=" "
^DD(2006.575,25,21,5,0)="This value is the name of a procedure, and is"
^DD(2006.575,25,21,6,0)="defined using either of"
^DD(2006.575,25,21,7,0)="the menu options"
^DD(2006.575,25,21,8,0)=" MAGD FIX DICOM or"
^DD(2006.575,25,21,9,0)=" MAGD FIX MEDICINE"
^DD(2006.575,25,"DT")="2970226"
^DD(2006.575,26,0)="RELATED IMAGES^2006.57526PA^^RLATE;0"
^DD(2006.575,26,21,0)="^^2^2^3000216^"
^DD(2006.575,26,21,1,0)="This is the multiple sub-file that repoints to this file.  This sub-file"
^DD(2006.575,26,21,2,0)="will point to all the related images having the same study instance UID."
^DD(2006.575,26,23,0)="^^5^5^3000216^"
^DD(2006.575,26,23,1,0)="This field creates a cross reference that is used by the DICOM Image"
^DD(2006.575,26,23,2,0)="gateway to process all images pertaining to one unique study instance UID."
^DD(2006.575,26,23,3,0)=" This field also allow the manual correction routines to only"
^DD(2006.575,26,23,4,0)="prompt/display a single entry needing corrections and will apply the"
^DD(2006.575,26,23,5,0)="corrections made to all entries in this sub-file."
^DD(2006.575,27,0)="MODALITY^F^^AMFG;6^K:$L(X)>30!($L(X)<1) X"
^DD(2006.575,27,.1)="Modality"
^DD(2006.575,27,3)="Enter the name of the modality (instrument type)."
^DD(2006.575,27,21,0)="^^5^5^3000306^^"
^DD(2006.575,27,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,27,21,2,0)="the name of a modality."
^DD(2006.575,27,21,3,0)=" "
^DD(2006.575,27,21,4,0)="This value represents the name of the modality"
^DD(2006.575,27,21,5,0)="(i.e., the type of of instrument) for the images requiring manual correction."
^DD(2006.575,27,"DT")="2970305"
^DD(2006.575,28,0)="MACHINE ID^F^^1;4^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,28,.1)="Machine ID"
^DD(2006.575,28,3)="Identify the Image Gateway that received the image file."
^DD(2006.575,28,21,0)="^^5^5^3000306^^"
^DD(2006.575,28,21,1,0)="The value of this field is a code that identifies"
^DD(2006.575,28,21,2,0)="the VistA DICOM Image Gateway computer that received"
^DD(2006.575,28,21,3,0)="the image file."
^DD(2006.575,28,21,4,0)=" "
^DD(2006.575,28,21,5,0)="Such a code is a single alphabetic letter."
^DD(2006.575,28,"DT")="3041216"
^DD(2006.575,29,0)="COMMENT^F^^ACSTXT;1^K:$L(X)>250!($L(X)<2) X"
^DD(2006.575,29,.1)="Comment"
^DD(2006.575,29,3)="Enter a comment."
^DD(2006.575,29,21,0)="^^7^7^3000306^^"
^DD(2006.575,29,21,1,0)="The value of this field is a string that represents"
^DD(2006.575,29,21,2,0)="a comment."
^DD(2006.575,29,21,3,0)=" "
^DD(2006.575,29,21,4,0)="This value is copied from the information that was"
^DD(2006.575,29,21,5,0)="transmitted by the Radiology equipment."
^DD(2006.575,29,21,6,0)=" "
^DD(2006.575,29,21,7,0)="Typically, this value contains the accession number."
^DD(2006.575,29,"DT")="2970521"
^DD(2006.575,30,0)="IMAGE POINTER^NJ11,0^^FIXPR;3^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.575,30,.1)="Image Pointer"
^DD(2006.575,30,3)="Identify the image."
^DD(2006.575,30,21,0)="^^6^6^3000306^^"
^DD(2006.575,30,21,1,0)="The value of this field is a pointer to the Image"
^DD(2006.575,30,21,2,0)="file (#2005, stored in ^MAG(2005,...)."
^DD(2006.575,30,21,3,0)=" "
^DD(2006.575,30,21,4,0)="This value identifies the image that is the 'parent'"
^DD(2006.575,30,21,5,0)="of the group to which the image that is described in"
^DD(2006.575,30,21,6,0)="this entry belongs."
^DD(2006.575,30,"DT")="2980501"
^DD(2006.575,31,0)="PARENT FILE^NJ10,0^^FIXPR;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.575,31,.1)="Parent File"
^DD(2006.575,31,3)="Identity the parent file."
^DD(2006.575,31,21,0)="^^23^23^3000306^^"
^DD(2006.575,31,21,1,0)="The value of this field is a pointer to the File of"
^DD(2006.575,31,21,2,0)="Files (#1, stored in ^DIC(...)."
^DD(2006.575,31,21,3,0)=" "
^DD(2006.575,31,21,4,0)="This value identifies the Imaging Parent file that"
^DD(2006.575,31,21,5,0)="contains the clinical information of which the image"
^DD(2006.575,31,21,6,0)="file that is described in this entry is a part."
^DD(2006.575,31,21,7,0)=" "
^DD(2006.575,31,21,8,0)="Possible parent files are:"
^DD(2006.575,31,21,9,0)="    3.9    MAIL MESSAGE"
^DD(2006.575,31,21,10,0)="   63      AUTOPSY (MICROSCOPIC)"
^DD(2006.575,31,21,11,0)="   63.02   ELECTRON MICROSCOPY"
^DD(2006.575,31,21,12,0)="   63.08   SURGICAL PATHOLOGY"
^DD(2006.575,31,21,13,0)="   63.09   CYTOLOGY"
^DD(2006.575,31,21,14,0)="   63.2    AUTOPSY (GROSS)"
^DD(2006.575,31,21,15,0)="   74      RADIOLOGY"
^DD(2006.575,31,21,16,0)="  130      SURGERY"
^DD(2006.575,31,21,17,0)="  691      ECHOCARDIOGRAM"
^DD(2006.575,31,21,18,0)="  691.1    CARDIAC CATHETERIZATION"
^DD(2006.575,31,21,19,0)="  691.5    ELECTROCARDIOGRAPHY"
^DD(2006.575,31,21,20,0)="  694      HEMATOLOGY"
^DD(2006.575,31,21,21,0)="  699      ENDOSCOPY"
^DD(2006.575,31,21,22,0)="  699.5    GENERIC MEDICINE"
^DD(2006.575,31,21,23,0)=" 8925      TIU"
^DD(2006.575,31,"DT")="2980501"
^DD(2006.575,32,0)="SERVICE TYPE^F^^TYPE;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,32,.1)="Service Type"
^DD(2006.575,32,3)="Enter the name of the imaging service."
^DD(2006.575,32,21,0)="^^9^9^3000306^^"
^DD(2006.575,32,21,1,0)="The value of this field is a string that identifies"
^DD(2006.575,32,21,2,0)="the 'imaging service' that is performed by the"
^DD(2006.575,32,21,3,0)="instrument that is described in this entry."
^DD(2006.575,32,21,4,0)=" "
^DD(2006.575,32,21,5,0)="The imaging services are itemized in file 2006.589"
^DD(2006.575,32,21,6,0)="(stored in ^MAGDICOM(2006.589,...)"
^DD(2006.575,32,21,7,0)=" "
^DD(2006.575,32,21,8,0)="Currently, the only entries in this file are RAD"
^DD(2006.575,32,21,9,0)="and MED-ENDO."
^DD(2006.575,32,"DT")="3041216"
^DD(2006.575,33,0)="DELETE FLAG^S^1:FILE IS DELETED;^0;6^Q"
^DD(2006.575,33,.1)="Delete Flag"
^DD(2006.575,33,3)="Indicate whether or not this file is to be deleted."
^DD(2006.575,33,21,0)="^^12^12^3000306^^"
^DD(2006.575,33,21,1,0)="The value of this field is a code that indicates"
^DD(2006.575,33,21,2,0)="whether of not the image file that is described"
^DD(2006.575,33,21,3,0)="in this entry is to be deleted."
^DD(2006.575,33,21,4,0)=" "
^DD(2006.575,33,21,5,0)="Corrections are made using either of"
^DD(2006.575,33,21,6,0)="the menu options"
^DD(2006.575,33,21,7,0)=" MAGD FIX DICOM or"
^DD(2006.575,33,21,8,0)=" MAGD FIX MEDICINE"
^DD(2006.575,33,21,9,0)=" "
^DD(2006.575,33,21,10,0)="If the images files are for a test patient, then"
^DD(2006.575,33,21,11,0)="setting this field will not process the images but delete the files from"
^DD(2006.575,33,21,12,0)="the DICOM Image gateway. "
^DD(2006.575,33,23,0)="^^2^2^3000216^^"
^DD(2006.575,33,23,1,0)="If this field is present, the software on the DICOM Image gateway will"
^DD(2006.575,33,23,2,0)="not process this image file but will delete it from the IMAGE_IN directory."
^DD(2006.575,33,"DT")="3000216"
^DD(2006.575,34,0)="MANUFACTURER^F^^AMFG;7^K:$L(X)>20!($L(X)<1) X"
^DD(2006.575,34,.1)="Manufacturer"
^DD(2006.575,34,3)="Enter the name of the manufacturer of the modality"
^DD(2006.575,34,21,0)="^^3^3^3000306^^"
^DD(2006.575,34,21,1,0)="The value of this field is a string that identifies"
^DD(2006.575,34,21,2,0)="the manufacturer of the instrument that transmitted"
^DD(2006.575,34,21,3,0)="the images that require manual correction."
^DD(2006.575,34,"DT")="2991210"
^DD(2006.575,35,0)="MODEL^F^^AMFG;8^K:$L(X)>10!($L(X)<1) X"
^DD(2006.575,35,.1)="Model"
^DD(2006.575,35,3)="Enter the name of the model of the modality."
^DD(2006.575,35,21,0)="^^3^3^3000306^^"
^DD(2006.575,35,21,1,0)="The value of this field is a string that identifies"
^DD(2006.575,35,21,2,0)="the model of the instrument that transmitted"
^DD(2006.575,35,21,3,0)="the images that require manual correction."
^DD(2006.575,35,"DT")="2991210"
^DD(2006.575,36,0)="GATEWAY LOCATION^P4'^DIC(4,^1;5^Q"
^DD(2006.575,36,3)="Identify the institution where the gateway is located."
^DD(2006.575,36,21,0)="^.001^1^1^3041216^^^"
^DD(2006.575,36,21,1,0)="This field will contain the institution where the gateway is located."
^DD(2006.575,36,"DT")="3041216"
^DD(2006.575,37,0)="Instrument Site^F^^AMFG;9^K:$L(X)>30!($L(X)<1) X"
^DD(2006.575,37,3)="Answer must be 1-30 characters in length."
^DD(2006.575,37,21,0)="^^1^1^3010319^"
^DD(2006.575,37,21,1,0)="This field will contain the institution where the instrument is located."
^DD(2006.575,37,"DT")="3010319"
^DD(2006.575,"B","CASE NO.",6)=""
^DD(2006.575,"B","CASENUMB",5)=""
^DD(2006.575,"B","COLUMNS",12)=""
^DD(2006.575,"B","COMMENT",29)=""
^DD(2006.575,"B","Case Number (Modality)",5)="1"
^DD(2006.575,"B","Case Number (Technician)",6)="1"
^DD(2006.575,"B","Columns",12)="1"
^DD(2006.575,"B","Comment",29)="1"
^DD(2006.575,"B","DATE ENTERED",7)=""
^DD(2006.575,"B","DATE/TIME",23)=""
^DD(2006.575,"B","DELETE FLAG",33)=""
^DD(2006.575,"B","Date Entered",7)="1"
^DD(2006.575,"B","Date/Time",23)="1"
^DD(2006.575,"B","Delete Flag",33)="1"
^DD(2006.575,"B","FAILED REASON",1)=""
^DD(2006.575,"B","FILEPATH",.01)=""
^DD(2006.575,"B","FIXED",16)=""
^DD(2006.575,"B","File Path",.01)="1"
^DD(2006.575,"B","Fixed",16)="1"
^DD(2006.575,"B","GATEWAY LOCATION",36)=""
^DD(2006.575,"B","IMAGE POINTER",30)=""
^DD(2006.575,"B","IMAGE UID",8)=""
^DD(2006.575,"B","INSTRUMENT NAME",10)=""
^DD(2006.575,"B","Image Pointer",30)="1"
^DD(2006.575,"B","Image UID",8)="1"
^DD(2006.575,"B","Instrument Name",10)="1"
^DD(2006.575,"B","Instrument Site",37)=""
^DD(2006.575,"B","MACHINE ID",28)=""
^DD(2006.575,"B","MANUFACTURER",34)=""
^DD(2006.575,"B","MODALITY",27)=""
^DD(2006.575,"B","MODEL",35)=""
^DD(2006.575,"B","MODIEN",14)=""
^DD(2006.575,"B","Machine ID",28)="1"
^DD(2006.575,"B","Manufacturer",34)="1"
^DD(2006.575,"B","Modality",27)="1"
^DD(2006.575,"B","Model",35)="1"
^DD(2006.575,"B","Modien",14)="1"
^DD(2006.575,"B","NEW PROC IEN",24)=""
^DD(2006.575,"B","NEW PROCEDURE",25)=""
^DD(2006.575,"B","NEW RACNI",22)=""
^DD(2006.575,"B","NEW RADTI",21)=""
^DD(2006.575,"B","NEWCASE NO",20)=""
^DD(2006.575,"B","NEWDFN",17)=""
^DD(2006.575,"B","NEWNME",18)=""
^DD(2006.575,"B","NEWSSN",19)=""
^DD(2006.575,"B","New Case Number",20)="1"
^DD(2006.575,"B","New Case Number",22)="1"
^DD(2006.575,"B","New DFN",17)="1"
^DD(2006.575,"B","New Name",18)="1"
^DD(2006.575,"B","New Procedure",25)="1"
^DD(2006.575,"B","New Procedure IEN",24)="1"
^DD(2006.575,"B","New Reverse Date",21)="1"
^DD(2006.575,"B","Newssn",19)="1"
^DD(2006.575,"B","OFFSET",13)=""
^DD(2006.575,"B","Offset",13)="1"
^DD(2006.575,"B","PARENT FILE",31)=""
^DD(2006.575,"B","PATIENT",3)=""
^DD(2006.575,"B","PID",2)=""
^DD(2006.575,"B","PNAMEDCM",4)=""
^DD(2006.575,"B","Parent File",31)="1"
^DD(2006.575,"B","Patient ID",2)="1"
^DD(2006.575,"B","Patient Name (DICOM)",4)="1"
^DD(2006.575,"B","Patient Name (VA)",3)="1"
^DD(2006.575,"B","RELATED IMAGES",26)=""
^DD(2006.575,"B","ROWS",11)=""
^DD(2006.575,"B","Reason for Failure",1)="1"
^DD(2006.575,"B","Rows",11)="1"
^DD(2006.575,"B","SERVICE TYPE",32)=""
^DD(2006.575,"B","STUDY UID",9)=""
^DD(2006.575,"B","Service Type",32)="1"
^DD(2006.575,"B","Study UID",9)="1"
^DD(2006.575,"GL",0,1,.01)=""
^DD(2006.575,"GL",0,2,1)=""
^DD(2006.575,"GL",0,3,2)=""
^DD(2006.575,"GL",0,4,3)=""
^DD(2006.575,"GL",0,5,4)=""
^DD(2006.575,"GL",0,6,33)=""
^DD(2006.575,"GL",1,1,5)=""
^DD(2006.575,"GL",1,2,6)=""
^DD(2006.575,"GL",1,3,7)=""
^DD(2006.575,"GL",1,4,28)=""
^DD(2006.575,"GL",1,5,36)=""
^DD(2006.575,"GL","ACSTXT",1,29)=""
^DD(2006.575,"GL","AIUID",1,8)=""
^DD(2006.575,"GL","AMFG",1,10)=""
^DD(2006.575,"GL","AMFG",2,11)=""
^DD(2006.575,"GL","AMFG",3,12)=""
^DD(2006.575,"GL","AMFG",4,13)=""
^DD(2006.575,"GL","AMFG",5,14)=""
^DD(2006.575,"GL","AMFG",6,27)=""
^DD(2006.575,"GL","AMFG",7,34)=""
^DD(2006.575,"GL","AMFG",8,35)=""
^DD(2006.575,"GL","AMFG",9,37)=""
^DD(2006.575,"GL","ASUID",1,9)=""
^DD(2006.575,"GL","FIXD",1,16)=""
^DD(2006.575,"GL","FIXD",2,17)=""
^DD(2006.575,"GL","FIXD",3,18)=""
^DD(2006.575,"GL","FIXD",4,19)=""
^DD(2006.575,"GL","FIXD",5,20)=""
^DD(2006.575,"GL","FIXD",6,21)=""
^DD(2006.575,"GL","FIXD",7,22)=""
^DD(2006.575,"GL","FIXD",8,23)=""
^DD(2006.575,"GL","FIXPR",1,24)=""
^DD(2006.575,"GL","FIXPR",2,25)=""
^DD(2006.575,"GL","FIXPR",3,30)=""
^DD(2006.575,"GL","FIXPR",4,31)=""
^DD(2006.575,"GL","RLATE",0,26)=""
^DD(2006.575,"GL","TYPE",1,32)=""
^DD(2006.575,"IX",.01)=""
^DD(2006.575,"IX",9)=""
^DD(2006.575,"RQ",.01)=""
^DD(2006.575,"SB",2006.57526,26)=""
^DD(2006.57526,0)="RELATED IMAGES SUB-FIELD^^.01^1"
^DD(2006.57526,0,"DT")="2970226"
^DD(2006.57526,0,"IX","B",2006.57526,.01)=""
^DD(2006.57526,0,"NM","RELATED IMAGES")=""
^DD(2006.57526,0,"UP")="2006.575"
^DD(2006.57526,.01,0)="RELATED IMAGES^P2006.575'^MAGD(2006.575,^0;1^Q"
^DD(2006.57526,.01,.1)="Related Image"
^DD(2006.57526,.01,1,0)="^.1"
^DD(2006.57526,.01,1,1,0)="2006.57526^B"
^DD(2006.57526,.01,1,1,1)="S ^MAGD(2006.575,DA(1),""RLATE"",""B"",$E(X,1,30),DA)="""""
^DD(2006.57526,.01,1,1,2)="K ^MAGD(2006.575,DA(1),""RLATE"",""B"",$E(X,1,30),DA)"
^DD(2006.57526,.01,3)=""
^DD(2006.57526,.01,21,0)="^^7^7^3000306^^"
^DD(2006.57526,.01,21,1,0)="The value of this field is a pointer to the Image"
^DD(2006.57526,.01,21,2,0)="file (#2005, stored in ^MAG(2005,...)."
^DD(2006.57526,.01,21,3,0)=" "
^DD(2006.57526,.01,21,4,0)="The entries in this subfile constitute the list of"
^DD(2006.57526,.01,21,5,0)="all images which have the same unique study UID."
^DD(2006.57526,.01,21,6,0)="The first entry made into this subfile will be the parent entry. The next images with"
^DD(2006.57526,.01,21,7,0)="the same Study UID will be entered as additional entries in this subfile."
^DD(2006.57526,.01,"DT")="2970226"
^DD(2006.57526,"B","RELATED IMAGES",.01)=""
^DD(2006.57526,"B","Related Image",.01)="1"
^DD(2006.57526,"GL",0,1,.01)=""
^DD(2006.57526,"IX",.01)=""
^DD(2006.5761,0)="FIELD^^2^3"
^DD(2006.5761,0,"DDA")="N"
^DD(2006.5761,0,"DT")="3010227"
^DD(2006.5761,0,"NM","DICOM MESSAGE STATISTISTICS")=""
^DD(2006.5761,0,"VR")="3.0"
^DD(2006.5761,0,"VRPK")="IMAGING"
^DD(2006.5761,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5761,.001,3)="ENter a FileMan Date."
^DD(2006.5761,.001,21,0)="^^3^3^3010227^^"
^DD(2006.5761,.001,21,1,0)="The value of this field is a date string (no time part) that"
^DD(2006.5761,.001,21,2,0)="identifies the day on which the statistics in the current"
^DD(2006.5761,.001,21,3,0)="entry were collected."
^DD(2006.5761,.001,"DT")="3010227"
^DD(2006.5761,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(2006.5761,.01,1,0)="^.1^^0"
^DD(2006.5761,.01,3)="Enter today's date (no time)."
^DD(2006.5761,.01,21,0)="^^3^3^3010227^^"
^DD(2006.5761,.01,21,1,0)="The value of this field is a date string (no time part) that"
^DD(2006.5761,.01,21,2,0)="identifies the day on which the statistics in the current"
^DD(2006.5761,.01,21,3,0)="entry were collected."
^DD(2006.5761,.01,"DT")="3010223"
^DD(2006.5761,2,0)="MESSAGE^2006.57611A^^1;0"
^DD(2006.5761,"B","DATE",.01)=""
^DD(2006.5761,"B","MESSAGE",2)=""
^DD(2006.5761,"B","NUMBER",.001)=""
^DD(2006.5761,"GL",0,1,.01)=""
^DD(2006.5761,"GL",1,0,2)=""
^DD(2006.5761,"RQ",.01)=""
^DD(2006.5761,"SB",2006.57611,2)=""
^DD(2006.57611,0)="MESSAGE SUB-FIELD^^3^3"
^DD(2006.57611,0,"DT")="3010223"
^DD(2006.57611,0,"IX","B",2006.57611,.01)=""
^DD(2006.57611,0,"NM","MESSAGE")=""
^DD(2006.57611,0,"UP")="2006.5761"
^DD(2006.57611,.01,0)="MESSAGE^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.57611,.01,1,0)="^.1"
^DD(2006.57611,.01,1,1,0)="2006.57611^B"
^DD(2006.57611,.01,1,1,1)="S ^MAGDAUDT(2006.5761,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.57611,.01,1,1,2)="K ^MAGDAUDT(2006.5761,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.57611,.01,3)="Enter the name of a message."
^DD(2006.57611,.01,21,0)="^^5^5^3010223^"
^DD(2006.57611,.01,21,1,0)="The value of this field is a string that identifies the name"
^DD(2006.57611,.01,21,2,0)="of a message class."
^DD(2006.57611,.01,21,3,0)=" "
^DD(2006.57611,.01,21,4,0)="The current record tallies the number of occurrences of this"
^DD(2006.57611,.01,21,5,0)="type of message during a single day."
^DD(2006.57611,.01,"DT")="3010223"
^DD(2006.57611,2,0)="COUNT^RNJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.57611,2,3)="Enter the number of occurrences of the current message."
^DD(2006.57611,2,21,0)="^^3^3^3010223^"
^DD(2006.57611,2,21,1,0)="The value of this field is an integer number that identifies the"
^DD(2006.57611,2,21,2,0)="number of occurrences on the current day of the message that"
^DD(2006.57611,2,21,3,0)="is described in the current entry."
^DD(2006.57611,2,"DT")="3010223"
^DD(2006.57611,3,0)="TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.57611,3,3)="Enter the date and time the most recent message was processed."
^DD(2006.57611,3,21,0)="^^3^3^3010223^"
^DD(2006.57611,3,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.57611,3,21,2,0)="the timestamp of the moment when the most recent occurrence of"
^DD(2006.57611,3,21,3,0)="the message described in the current entry was processed."
^DD(2006.57611,3,"DT")="3010223"
^DD(2006.57611,"B","COUNT",2)=""
^DD(2006.57611,"B","MESSAGE",.01)=""
^DD(2006.57611,"B","TIME",3)=""
^DD(2006.57611,"GL",0,1,.01)=""
^DD(2006.57611,"GL",0,2,2)=""
^DD(2006.57611,"GL",0,3,3)=""
^DD(2006.57611,"IX",.01)=""
^DD(2006.57611,"RQ",.01)=""
^DD(2006.57611,"RQ",2)=""
^DD(2006.57611,"RQ",3)=""
^DD(2006.5762,0)="FIELD^^2^3"
^DD(2006.5762,0,"DDA")="N"
^DD(2006.5762,0,"DT")="3041108"
^DD(2006.5762,0,"NM","DICOM INSTRUMENT STATISTICS")=""
^DD(2006.5762,0,"VRPK")="IMAGING"
^DD(2006.5762,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5762,.001,3)="Enter a FileMan Date."
^DD(2006.5762,.001,21,0)="^^3^3^3010227^^"
^DD(2006.5762,.001,21,1,0)="The value of this field is a date string (no time part) that"
^DD(2006.5762,.001,21,2,0)="identifies the day on which the statistics in the current"
^DD(2006.5762,.001,21,3,0)="entry were collected."
^DD(2006.5762,.001,"DT")="3010227"
^DD(2006.5762,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(2006.5762,.01,1,0)="^.1^^0"
^DD(2006.5762,.01,3)="Enter today's date (no time)."
^DD(2006.5762,.01,21,0)="^^3^3^3010223^^"
^DD(2006.5762,.01,21,1,0)="The value of this field is a date string (no time part) that"
^DD(2006.5762,.01,21,2,0)="identifies the day on which the statistics in the current"
^DD(2006.5762,.01,21,3,0)="entry were collected."
^DD(2006.5762,.01,"DT")="3010223"
^DD(2006.5762,1,0)="LOCATION^2006.57621PA^^1;0"
^DD(2006.5762,"B","DATE",.01)=""
^DD(2006.5762,"B","LOCATION",1)=""
^DD(2006.5762,"B","NUMBER",.001)=""
^DD(2006.5762,"GL",0,1,.01)=""
^DD(2006.5762,"GL",1,0,1)=""
^DD(2006.5762,"RQ",.01)=""
^DD(2006.5762,"SB",2006.57621,1)=""
^DD(2006.57621,0)="LOCATION SUB-FIELD^^5^2"
^DD(2006.57621,0,"DT")="3041108"
^DD(2006.57621,0,"IX","B",2006.57621,.01)=""
^DD(2006.57621,0,"NM","LOCATION")=""
^DD(2006.57621,0,"UP")="2006.5762"
^DD(2006.57621,.01,0)="LOCATION^RP4'^DIC(4,^0;1^Q"
^DD(2006.57621,.01,1,0)="^.1^^0"
^DD(2006.57621,.01,1,1,0)="2006.57621^B"
^DD(2006.57621,.01,1,1,1)="S ^MAGDAUDT(2006.5762,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.57621,.01,1,1,2)="K ^MAGDAUDT(2006.5762,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.57621,.01,3)="Enter the name of the division for this instrument."
^DD(2006.57621,.01,21,0)="^^3^3^3041108^"
^DD(2006.57621,.01,21,1,0)="The value of this field is a pointer. This pointer identifies"
^DD(2006.57621,.01,21,2,0)="the location (division) in the Institution file (#4) with which"
^DD(2006.57621,.01,21,3,0)="the instrument is associated."
^DD(2006.57621,.01,"DT")="3041108"
^DD(2006.57621,1,0)="INSTRUMENT^2006.576211A^^1;0"
^DD(2006.57621,"B","INSTRUMENT",1)=""
^DD(2006.57621,"B","LOCATION",.01)=""
^DD(2006.57621,"GL",0,1,.01)=""
^DD(2006.57621,"GL",1,0,1)=""
^DD(2006.57621,"IX",.01)=""
^DD(2006.57621,"RQ",.01)=""
^DD(2006.57621,"SB",2006.576211,1)=""
^DD(2006.576211,0)="INSTRUMENT SUB-FIELD^^5^5"
^DD(2006.576211,0,"DT")="3010403"
^DD(2006.576211,0,"IX","B",2006.576211,.01)=""
^DD(2006.576211,0,"NM","INSTRUMENT")=""
^DD(2006.576211,0,"UP")="2006.57621"
^DD(2006.576211,.01,0)="INSTRUMENT^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.576211,.01,1,0)="^.1"
^DD(2006.576211,.01,1,1,0)="2006.576211^B"
^DD(2006.576211,.01,1,1,1)="S ^MAGDAUDT(2006.5762,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.576211,.01,1,1,2)="K ^MAGDAUDT(2006.5762,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.576211,.01,3)="Enter the name of the current instrument."
^DD(2006.576211,.01,21,0)="^^2^2^3010403^^"
^DD(2006.576211,.01,21,1,0)="The value of this field is a string that identifies the instrument"
^DD(2006.576211,.01,21,2,0)="for which statistics are being tallied in the current entry."
^DD(2006.576211,.01,"DT")="3010403"
^DD(2006.576211,2,0)="ACQUIRED^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.576211,2,3)="Enter the number of images acquired from this instrument."
^DD(2006.576211,2,21,0)="^^4^4^3010403^^"
^DD(2006.576211,2,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.576211,2,21,2,0)="the number of images that have been acquired from the instrument"
^DD(2006.576211,2,21,3,0)="that is described in the current record (on the date"
^DD(2006.576211,2,21,4,0)="for this record)."
^DD(2006.576211,2,"DT")="3010403"
^DD(2006.576211,3,0)="LAST ACQUISITION^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.576211,3,3)="Enter the time of today's last image acquisition from this instrument."
^DD(2006.576211,3,21,0)="^^4^4^3010403^^"
^DD(2006.576211,3,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.576211,3,21,2,0)="the time-stamp for the most recent acquisition of an image"
^DD(2006.576211,3,21,3,0)="for the instrument that is described in the current record"
^DD(2006.576211,3,21,4,0)="(on the date for this record)."
^DD(2006.576211,3,"DT")="3010403"
^DD(2006.576211,4,0)="PROCESSED^NJ10,0^^0;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.576211,4,3)="Enter the number of images processed."
^DD(2006.576211,4,21,0)="^^3^3^3010403^^"
^DD(2006.576211,4,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.576211,4,21,2,0)="the number of images from the instrument that have been processed"
^DD(2006.576211,4,21,3,0)="on the date for this record."
^DD(2006.576211,4,"DT")="3010403"
^DD(2006.576211,5,0)="LAST PROCESSING^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.576211,5,3)="Enter the date and time when the last image was processed for this instrument."
^DD(2006.576211,5,21,0)="^^4^4^3010403^^"
^DD(2006.576211,5,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.576211,5,21,2,0)="the time-stamp for the most recent image processing of an"
^DD(2006.576211,5,21,3,0)="image from the instrument that is described in the current record"
^DD(2006.576211,5,21,4,0)="(on the date for this record)."
^DD(2006.576211,5,"DT")="3010403"
^DD(2006.576211,"B","ACQUIRED",2)=""
^DD(2006.576211,"B","INSTRUMENT",.01)=""
^DD(2006.576211,"B","LAST ACQUISITION",3)=""
^DD(2006.576211,"B","LAST PROCESSING",5)=""
^DD(2006.576211,"B","PROCESSED",4)=""
^DD(2006.576211,"GL",0,1,.01)=""
^DD(2006.576211,"GL",0,2,2)=""
^DD(2006.576211,"GL",0,3,3)=""
^DD(2006.576211,"GL",0,4,4)=""
^DD(2006.576211,"GL",0,5,5)=""
^DD(2006.576211,"IX",.01)=""
^DD(2006.576211,"RQ",.01)=""
^DD(2006.5763,0)="FIELD^^2^3"
^DD(2006.5763,0,"DDA")="N"
^DD(2006.5763,0,"DT")="3010227"
^DD(2006.5763,0,"NM","DICOM PACS STATISTICS")=""
^DD(2006.5763,0,"VR")="3.0"
^DD(2006.5763,0,"VRPK")="IMAGING"
^DD(2006.5763,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5763,.001,3)="Enter a FileMan date."
^DD(2006.5763,.001,21,0)="^^3^3^3010227^^"
^DD(2006.5763,.001,21,1,0)="The value of this field is a date string (no time part) that"
^DD(2006.5763,.001,21,2,0)="identifies the day on which the statistics in the current"
^DD(2006.5763,.001,21,3,0)="entry were collected."
^DD(2006.5763,.001,"DT")="3010227"
^DD(2006.5763,.01,0)="DATE^RDX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(2006.5763,.01,1,0)="^.1^^0"
^DD(2006.5763,.01,3)="Enter today's date (no time)."
^DD(2006.5763,.01,21,0)="^^3^3^3010223^^"
^DD(2006.5763,.01,21,1,0)="The value of this field is a date string (no time part) that"
^DD(2006.5763,.01,21,2,0)="identifies the day on which the statistics in the current"
^DD(2006.5763,.01,21,3,0)="entry were collected."
^DD(2006.5763,.01,"DT")="3010223"
^DD(2006.5763,2,0)="ACCESSION NUMBER^2006.57631A^^1;0"
^DD(2006.5763,"B","ACCESSION NUMBER",2)=""
^DD(2006.5763,"B","DATE",.01)=""
^DD(2006.5763,"B","NUMBER",.001)=""
^DD(2006.5763,"GL",0,1,.01)=""
^DD(2006.5763,"GL",1,0,2)=""
^DD(2006.5763,"RQ",.01)=""
^DD(2006.5763,"SB",2006.57631,2)=""
^DD(2006.57631,0)="ACCESSION NUMBER SUB-FIELD^^4^4"
^DD(2006.57631,0,"DT")="3010223"
^DD(2006.57631,0,"IX","B",2006.57631,.01)=""
^DD(2006.57631,0,"NM","ACCESSION NUMBER")=""
^DD(2006.57631,0,"UP")="2006.5763"
^DD(2006.57631,.01,0)="ACCESSION NUMBER^RF^^0;1^K:$L(X)>20!($L(X)<3) X"
^DD(2006.57631,.01,1,0)="^.1"
^DD(2006.57631,.01,1,1,0)="2006.57631^B"
^DD(2006.57631,.01,1,1,1)="S ^MAGDAUDT(2006.5763,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.57631,.01,1,1,2)="K ^MAGDAUDT(2006.5763,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.57631,.01,3)="Enter an accession number (date, dash, sequence#)."
^DD(2006.57631,.01,21,0)="^^7^7^3010223^"
^DD(2006.57631,.01,21,1,0)="The value of this field is a string that represents an"
^DD(2006.57631,.01,21,2,0)="accession number. Accession numbers are encoded as:"
^DD(2006.57631,.01,21,3,0)=" first a sequence of 6 digits that represent the date"
^DD(2006.57631,.01,21,4,0)=" then a dash"
^DD(2006.57631,.01,21,5,0)=" then one or more digits that represent a sequence number"
^DD(2006.57631,.01,21,6,0)=" "
^DD(2006.57631,.01,21,7,0)="Note: Within VistA, accession numbers are not always ""unique""."
^DD(2006.57631,.01,"DT")="3010223"
^DD(2006.57631,2,0)="COUNT^RNJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.57631,2,3)="Enter the number of messages for the current accession number."
^DD(2006.57631,2,21,0)="^.001^3^3^3010223^^"
^DD(2006.57631,2,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.57631,2,21,2,0)="the number of messages that have been sent to PACSs for the"
^DD(2006.57631,2,21,3,0)="current accession number."
^DD(2006.57631,2,"DT")="3010223"
^DD(2006.57631,3,0)="EVENT^2006.576311A^^1;0"
^DD(2006.57631,4,0)="TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.57631,4,3)="Enter the date and time for the most recent image."
^DD(2006.57631,4,21,0)="^^3^3^3010223^"
^DD(2006.57631,4,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.57631,4,21,2,0)="the time-stamp for the most recent image that was processed"
^DD(2006.57631,4,21,3,0)="for the accession number described in this record."
^DD(2006.57631,4,"DT")="3010223"
^DD(2006.57631,"B","ACCESSION NUMBER",.01)=""
^DD(2006.57631,"B","COUNT",2)=""
^DD(2006.57631,"B","EVENT",3)=""
^DD(2006.57631,"B","TIME",4)=""
^DD(2006.57631,"GL",0,1,.01)=""
^DD(2006.57631,"GL",0,2,4)=""
^DD(2006.57631,"GL",0,3,2)=""
^DD(2006.57631,"GL",1,0,3)=""
^DD(2006.57631,"IX",.01)=""
^DD(2006.57631,"RQ",.01)=""
^DD(2006.57631,"RQ",2)=""
^DD(2006.57631,"SB",2006.576311,3)=""
^DD(2006.576311,0)="EVENT SUB-FIELD^^5^5"
^DD(2006.576311,0,"DT")="3010223"
^DD(2006.576311,0,"IX","B",2006.576311,.01)=""
^DD(2006.576311,0,"NM","EVENT")=""
^DD(2006.576311,0,"UP")="2006.57631"
^DD(2006.576311,.01,0)="EVENT^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.576311,.01,1,0)="^.1"
^DD(2006.576311,.01,1,1,0)="2006.576311^B"
^DD(2006.576311,.01,1,1,1)="S ^MAGDAUDT(2006.5763,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.576311,.01,1,1,2)="K ^MAGDAUDT(2006.5763,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.576311,.01,3)="Enter a code that identifies an event."
^DD(2006.576311,.01,21,0)="^^5^5^3010223^"
^DD(2006.576311,.01,21,1,0)="The value of this field is a string that represents a code"
^DD(2006.576311,.01,21,2,0)="for an event. Possible values for such strings depend on"
^DD(2006.576311,.01,21,3,0)="the nature of the transactions with the various PACSs and"
^DD(2006.576311,.01,21,4,0)="are determined by the software at run-time (see routine"
^DD(2006.576311,.01,21,5,0)="MAGDAUD3 for the determination of valid codes for events)."
^DD(2006.576311,.01,"DT")="3010223"
^DD(2006.576311,2,0)="TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.576311,2,3)="Enter the date and time for the current event."
^DD(2006.576311,2,21,0)="^^3^3^3010223^"
^DD(2006.576311,2,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.576311,2,21,2,0)="a time-stamp for the occurrence of the event that is described"
^DD(2006.576311,2,21,3,0)="in the current record."
^DD(2006.576311,2,"DT")="3010223"
^DD(2006.576311,3,0)="SITE^P4'^DIC(4,^0;3^Q"
^DD(2006.576311,3,3)="Enter the name of the site where the event occurred."
^DD(2006.576311,3,21,0)="^^3^3^3010223^"
^DD(2006.576311,3,21,1,0)="The value of this field is a pointer to the Institution file."
^DD(2006.576311,3,21,2,0)="The institution being pointed to is the site where the event occurred"
^DD(2006.576311,3,21,3,0)="that is described in the current record."
^DD(2006.576311,3,"DT")="3010223"
^DD(2006.576311,4,0)="TYPE^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(2006.576311,4,3)="Enter a code for the type of event."
^DD(2006.576311,4,21,0)="^^19^19^3010223^^"
^DD(2006.576311,4,21,1,0)="The value of this field is a code for the type of imaging"
^DD(2006.576311,4,21,2,0)="activity."
^DD(2006.576311,4,21,3,0)=""
^DD(2006.576311,4,21,4,0)="The value for this field is obtained from the HL7 message"
^DD(2006.576311,4,21,5,0)="that was transmitted for this event."
^DD(2006.576311,4,21,6,0)=""
^DD(2006.576311,4,21,7,0)="Typical values are codes like:"
^DD(2006.576311,4,21,8,0)="   ANI"
^DD(2006.576311,4,21,9,0)="   CT"
^DD(2006.576311,4,21,10,0)="   MAM"
^DD(2006.576311,4,21,11,0)="   MRI"
^DD(2006.576311,4,21,12,0)="   NM"
^DD(2006.576311,4,21,13,0)="   RAD"
^DD(2006.576311,4,21,14,0)="   US"
^DD(2006.576311,4,21,15,0)="   VAS"
^DD(2006.576311,4,21,16,0)=""
^DD(2006.576311,4,21,17,0)="Since any value obtained from an HL7 message will be considered"
^DD(2006.576311,4,21,18,0)="valid when entering data into this file, this field is typed as"
^DD(2006.576311,4,21,19,0)="""free text"", rather than as a ""set of codes""."
^DD(2006.576311,4,"DT")="3010223"
^DD(2006.576311,5,0)="PROCEDURE^NJ10,0^^0;5^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.576311,5,3)="Enter the VistA Procedure Code for this event."
^DD(2006.576311,5,21,0)="^^5^5^3010223^^"
^DD(2006.576311,5,21,1,0)="The value of this field is the internal entry number"
^DD(2006.576311,5,21,2,0)="in ^RAMIS(71,... that identifies the procedure"
^DD(2006.576311,5,21,3,0)="that is described in this entry."
^DD(2006.576311,5,21,4,0)=" "
^DD(2006.576311,5,21,5,0)="VA-FileMan file 71 (RAD/NUC MED procedures) is stored in ^RAMIS(71,..."
^DD(2006.576311,5,"DT")="3010223"
^DD(2006.576311,"B","EVENT",.01)=""
^DD(2006.576311,"B","PROCEDURE",5)=""
^DD(2006.576311,"B","SITE",3)=""
^DD(2006.576311,"B","TIME",2)=""
^DD(2006.576311,"B","TYPE",4)=""
^DD(2006.576311,"GL",0,1,.01)=""
^DD(2006.576311,"GL",0,2,2)=""
^DD(2006.576311,"GL",0,3,3)=""
^DD(2006.576311,"GL",0,4,4)=""
^DD(2006.576311,"GL",0,5,5)=""
^DD(2006.576311,"IX",.01)=""
^DD(2006.576311,"RQ",.01)=""
^DD(2006.5764,0)="FIELD^^5^6"
^DD(2006.5764,0,"DDA")="N"
^DD(2006.5764,0,"DT")="3010227"
^DD(2006.5764,0,"IX","B",2006.5764,.01)=""
^DD(2006.5764,0,"NM","DICOM LOCAL INSTRUMENT STATISTICS")=""
^DD(2006.5764,0,"VR")="3.0"
^DD(2006.5764,0,"VRPK")="IMAGING"
^DD(2006.5764,.01,0)="INSTRUMENT^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.5764,.01,1,0)="^.1"
^DD(2006.5764,.01,1,1,0)="2006.5764^B"
^DD(2006.5764,.01,1,1,1)="S ^MAGDICOM(2006.5764,""B"",$E(X,1,30),DA)="""""
^DD(2006.5764,.01,1,1,2)="K ^MAGDICOM(2006.5764,""B"",$E(X,1,30),DA)"
^DD(2006.5764,.01,3)="Enter the name of an instrument."
^DD(2006.5764,.01,21,0)="^^2^2^3010226^"
^DD(2006.5764,.01,21,1,0)="The value of this field is a string that represents the name of"
^DD(2006.5764,.01,21,2,0)="an instrument."
^DD(2006.5764,.01,"DT")="3010226"
^DD(2006.5764,1,0)="CONNECT^S^0:NOT CONNECTED;1:CONNECTED;^0;2^Q"
^DD(2006.5764,1,3)="Indicate whether the C-Store program for this instrument is running (0/1)."
^DD(2006.5764,1,21,0)="^^4^4^3010227^^"
^DD(2006.5764,1,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.5764,1,21,2,0)="the C-Store program for this instrument is currently running."
^DD(2006.5764,1,21,3,0)="A value of 1 indicates that the program has started successfully."
^DD(2006.5764,1,21,4,0)="A value of 0 indicates that no connection is currently active."
^DD(2006.5764,1,"DT")="3010226"
^DD(2006.5764,2,0)="LAST CONNECTION^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5764,2,3)="Enter the current date and time."
^DD(2006.5764,2,21,0)="^^3^3^3010227^^"
^DD(2006.5764,2,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.5764,2,21,2,0)="the timestamp for the time that the most recent connection"
^DD(2006.5764,2,21,3,0)="was either established or relinquished."
^DD(2006.5764,2,"DT")="3010226"
^DD(2006.5764,3,0)="ASSOCIATION^S^0:No Association;1:Association established;^0;4^Q"
^DD(2006.5764,3,3)="Indicate whether or not an association has been established (0/1)."
^DD(2006.5764,3,21,0)="^^4^4^3010227^^"
^DD(2006.5764,3,21,1,0)="The value of this field is a code that indicates whether or not"
^DD(2006.5764,3,21,2,0)="an association is currently established for this instrument."
^DD(2006.5764,3,21,3,0)="A value of 1 indicates that an association is established."
^DD(2006.5764,3,21,4,0)="A value of 0 indicates that no association is currently established."
^DD(2006.5764,3,"DT")="3010226"
^DD(2006.5764,4,0)="LAST ASSOCIATION^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5764,4,3)="Enter the current date and time."
^DD(2006.5764,4,21,0)="^^3^3^3010226^"
^DD(2006.5764,4,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.5764,4,21,2,0)="the fimestamp for the time that the most recent association"
^DD(2006.5764,4,21,3,0)="was either established or terminated."
^DD(2006.5764,4,"DT")="3010226"
^DD(2006.5764,5,0)="DATE^2006.57641DA^^1;0"
^DD(2006.5764,"B","ASSOCIATION",3)=""
^DD(2006.5764,"B","CONNECT",1)=""
^DD(2006.5764,"B","DATE",5)=""
^DD(2006.5764,"B","INSTRUMENT",.01)=""
^DD(2006.5764,"B","LAST ASSOCIATION",4)=""
^DD(2006.5764,"B","LAST CONNECTION",2)=""
^DD(2006.5764,"GL",0,1,.01)=""
^DD(2006.5764,"GL",0,2,1)=""
^DD(2006.5764,"GL",0,3,2)=""
^DD(2006.5764,"GL",0,4,3)=""
^DD(2006.5764,"GL",0,5,4)=""
^DD(2006.5764,"GL",1,0,5)=""
^DD(2006.5764,"IX",.01)=""
^DD(2006.5764,"RQ",.01)=""
^DD(2006.5764,"SB",2006.57641,5)=""
^DD(2006.57641,0)="DATE SUB-FIELD^^5^5"
^DD(2006.57641,0,"DT")="3010227"
^DD(2006.57641,0,"NM","DATE")=""
^DD(2006.57641,0,"UP")="2006.5764"
^DD(2006.57641,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.57641,.001,3)="Enter a FileMan date."
^DD(2006.57641,.001,21,0)="^^3^3^3010227^^"
^DD(2006.57641,.001,21,1,0)="The value of this field is a date string (no time part) that"
^DD(2006.57641,.001,21,2,0)="identifies the day on which the statistics in the current"
^DD(2006.57641,.001,21,3,0)="entry were collected."
^DD(2006.57641,.001,"DT")="3010227"
^DD(2006.57641,.01,0)="DATE^DX^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X"
^DD(2006.57641,.01,1,0)="^.1^^0"
^DD(2006.57641,.01,3)="Enter today's date."
^DD(2006.57641,.01,21,0)="^^3^3^3010227^^"
^DD(2006.57641,.01,21,1,0)="The value of this field is a date string that represents the"
^DD(2006.57641,.01,21,2,0)="date for which statistics are being collected for the current"
^DD(2006.57641,.01,21,3,0)="instrument."
^DD(2006.57641,.01,"DT")="3010227"
^DD(2006.57641,2,0)="ASSOCIATIONS^NJ10,0^^0;2^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.57641,2,3)="Enter the number of associations established on this date."
^DD(2006.57641,2,21,0)="^^3^3^3010226^"
^DD(2006.57641,2,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.57641,2,21,2,0)="the number of associations that have been established"
^DD(2006.57641,2,21,3,0)="for the current instrument on the current date."
^DD(2006.57641,2,"DT")="3010226"
^DD(2006.57641,4,0)="IMAGES^NJ10,0^^0;3^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.57641,4,3)="Enter the number of images for this instrument on this date."
^DD(2006.57641,4,21,0)="^^3^3^3010226^"
^DD(2006.57641,4,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.57641,4,21,2,0)="the number of images that was transmitted by the current"
^DD(2006.57641,4,21,3,0)="instrument on the current date."
^DD(2006.57641,4,"DT")="3010226"
^DD(2006.57641,5,0)="LAST IMAGE^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.57641,5,3)="Enter the current date and time."
^DD(2006.57641,5,21,0)="^^3^3^3010226^"
^DD(2006.57641,5,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.57641,5,21,2,0)="the timestamp for the transmission of the most recent image"
^DD(2006.57641,5,21,3,0)="from the current instrument on the current date."
^DD(2006.57641,5,"DT")="3010226"
^DD(2006.57641,"B","ASSOCIATIONS",2)=""
^DD(2006.57641,"B","DATE",.01)=""
^DD(2006.57641,"B","IMAGES",4)=""
^DD(2006.57641,"B","LAST IMAGE",5)=""
^DD(2006.57641,"B","NUMBER",.001)=""
^DD(2006.57641,"GL",0,1,.01)=""
^DD(2006.57641,"GL",0,2,2)=""
^DD(2006.57641,"GL",0,3,4)=""
^DD(2006.57641,"GL",0,4,5)=""
^DD(2006.577,0)="FIELD^^2^3"
^DD(2006.577,0,"DDA")="N"
^DD(2006.577,0,"DT")="3010227"
^DD(2006.577,0,"NM","DICOM FIFO QUEUE")=""
^DD(2006.577,0,"VR")="3.0"
^DD(2006.577,0,"VRPK")="IMAGING"
^DD(2006.577,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.577,.001,3)="Enter the sequence number of this data channel."
^DD(2006.577,.001,21,0)="^^2^2^3010227^^"
^DD(2006.577,.001,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.577,.001,21,2,0)="the channel number of the data channel being described in this record."
^DD(2006.577,.001,"DT")="3010227"
^DD(2006.577,.01,0)="CHANNEL^RNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(2006.577,.01,1,0)="^.1^^0"
^DD(2006.577,.01,3)="Enter the number of the data channel being described in this record."
^DD(2006.577,.01,21,0)="^^3^3^3010222^"
^DD(2006.577,.01,21,1,0)="The value of this field is an integer number that represents"
^DD(2006.577,.01,21,2,0)="the number of ""channels"" to external PACSs that is being"
^DD(2006.577,.01,21,3,0)="used by a DICOM Text Gateway to transmit messages."
^DD(2006.577,.01,"DT")="3010223"
^DD(2006.577,2,0)="QUEUE LETTER^2006.5771A^^1;0"
^DD(2006.577,"B","CHANNEL",.01)=""
^DD(2006.577,"B","NUMBER",.001)=""
^DD(2006.577,"B","QUEUE LETTER",2)=""
^DD(2006.577,"GL",0,1,.01)=""
^DD(2006.577,"GL",1,0,2)=""
^DD(2006.577,"RQ",.01)=""
^DD(2006.577,"SB",2006.5771,2)=""
^DD(2006.5771,0)="QUEUE LETTER SUB-FIELD^^3^3"
^DD(2006.5771,0,"DT")="3010222"
^DD(2006.5771,0,"IX","B",2006.5771,.01)=""
^DD(2006.5771,0,"NM","QUEUE LETTER")=""
^DD(2006.5771,0,"UP")="2006.577"
^DD(2006.5771,.01,0)="QUEUE LETTER^RF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(2006.5771,.01,1,0)="^.1"
^DD(2006.5771,.01,1,1,0)="2006.5771^B"
^DD(2006.5771,.01,1,1,1)="S ^MAGDAUDT(2006.577,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.5771,.01,1,1,2)="K ^MAGDAUDT(2006.577,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.5771,.01,3)="Enter the single upper case letter that identifies this queue."
^DD(2006.5771,.01,21,0)="^^5^5^3010222^"
^DD(2006.5771,.01,21,1,0)="The value of this field is a single upper case letter."
^DD(2006.5771,.01,21,2,0)="This letter identifies a FIFO queue that is being processed"
^DD(2006.5771,.01,21,3,0)="on a DICOM Text Gateway."
^DD(2006.5771,.01,21,4,0)="There are 16 such queues (A, B, C, D, E, F, G, H,"
^DD(2006.5771,.01,21,5,0)="S, T, U, V, W, X, Y and Z)."
^DD(2006.5771,.01,"DT")="3010222"
^DD(2006.5771,2,0)="NUMBER^RNJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5771,2,3)="Enter the current sequence number in this queue."
^DD(2006.5771,2,21,0)="^^5^5^3010222^"
^DD(2006.5771,2,21,1,0)="The value of this field is an integer number that identifies"
^DD(2006.5771,2,21,2,0)="the entry in the FIFO queue that will be processed next."
^DD(2006.5771,2,21,3,0)="The initial value for this field is 9999999."
^DD(2006.5771,2,21,4,0)="When, during normal processing, this number would be incremented"
^DD(2006.5771,2,21,5,0)="to a value larger then 9999999, the number will be reset to 0."
^DD(2006.5771,2,"DT")="3010222"
^DD(2006.5771,3,0)="TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5771,3,3)="Enter the date and time when the last entry was processed."
^DD(2006.5771,3,21,0)="^^3^3^3010222^"
^DD(2006.5771,3,21,1,0)="The value of this field is a date/time string that represents"
^DD(2006.5771,3,21,2,0)="the time stamp that indicates when the most recent entry"
^DD(2006.5771,3,21,3,0)="was processed for the current queue."
^DD(2006.5771,3,"DT")="3010222"
^DD(2006.5771,"B","NUMBER",2)=""
^DD(2006.5771,"B","QUEUE LETTER",.01)=""
^DD(2006.5771,"B","TIME",3)=""
^DD(2006.5771,"GL",0,1,.01)=""
^DD(2006.5771,"GL",0,2,2)=""
^DD(2006.5771,"GL",0,3,3)=""
^DD(2006.5771,"IX",.01)=""
^DD(2006.5771,"RQ",.01)=""
^DD(2006.5771,"RQ",2)=""
^DD(2006.5771,"RQ",3)=""
^DD(2006.58,0)="FIELD^^5^5"
^DD(2006.58,0,"DDA")="N"
^DD(2006.58,0,"DT")="3000225"
^DD(2006.58,0,"IX","B",2006.58,.01)=""
^DD(2006.58,0,"NM","DICOM LOG")=""
^DD(2006.58,0,"VR")="3.0"
^DD(2006.58,0,"VRPK")="IMAGING"
^DD(2006.58,.01,0)="JOB^RNJ10,0^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.58,.01,.1)="Job"
^DD(2006.58,.01,1,0)="^.1"
^DD(2006.58,.01,1,1,0)="2006.58^B"
^DD(2006.58,.01,1,1,1)="S ^MAGDMLOG(""B"",$E(X,1,30),DA)="""""
^DD(2006.58,.01,1,1,2)="K ^MAGDMLOG(""B"",$E(X,1,30),DA)"
^DD(2006.58,.01,3)="Enter your job-number."
^DD(2006.58,.01,21,0)="^^8^8^3000225^^"
^DD(2006.58,.01,21,1,0)="The value of this field is an integer number that"
^DD(2006.58,.01,21,2,0)="identifies the MUMPS-job that created the current"
^DD(2006.58,.01,21,3,0)="log-file."
^DD(2006.58,.01,21,4,0)=" "
^DD(2006.58,.01,21,5,0)="While there may be 'old' log-files remaining from"
^DD(2006.58,.01,21,6,0)="a job with the same number, the ""B"" cross-reference"
^DD(2006.58,.01,21,7,0)="for this field will only keep track of the log-file that"
^DD(2006.58,.01,21,8,0)="is currently open for any given job."
^DD(2006.58,.01,"DT")="3000225"
^DD(2006.58,2,0)="TIMESTAMP^RF^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(2006.58,2,.1)="Timestamp"
^DD(2006.58,2,3)="Enter this moment's date and time ($HOROLOG format)."
^DD(2006.58,2,21,0)="^^5^5^3000225^^"
^DD(2006.58,2,21,1,0)="The value of this field is a string that identifies"
^DD(2006.58,2,21,2,0)="the date and time on which the current log-file"
^DD(2006.58,2,21,3,0)="was created."
^DD(2006.58,2,21,4,0)=" "
^DD(2006.58,2,21,5,0)="This value is encoded in $Horolog Format."
^DD(2006.58,2,"DT")="3000225"
^DD(2006.58,3,0)="TITLE^F^^0;3^K:$L(X)>100!($L(X)<1) X"
^DD(2006.58,3,.1)="Title"
^DD(2006.58,3,3)="Enter the title for this log entry."
^DD(2006.58,3,21,0)="^^2^2^3000225^^"
^DD(2006.58,3,21,1,0)="The value of this field is a string that is used"
^DD(2006.58,3,21,2,0)="as a header for the current log-file."
^DD(2006.58,3,"DT")="3000225"
^DD(2006.58,4,0)="TEXT^2006.5801A^^1;0"
^DD(2006.58,5,0)="LINE^2006.5802A^^2;0"
^DD(2006.58,"B","JOB",.01)=""
^DD(2006.58,"B","Job",.01)="1"
^DD(2006.58,"B","LINE",5)=""
^DD(2006.58,"B","TEXT",4)=""
^DD(2006.58,"B","TIMESTAMP",2)=""
^DD(2006.58,"B","TITLE",3)=""
^DD(2006.58,"B","Timestamp",2)="1"
^DD(2006.58,"B","Title",3)="1"
^DD(2006.58,"GL",0,1,.01)=""
^DD(2006.58,"GL",0,2,2)=""
^DD(2006.58,"GL",0,3,3)=""
^DD(2006.58,"GL",1,0,4)=""
^DD(2006.58,"GL",2,0,5)=""
^DD(2006.58,"IX",.01)=""
^DD(2006.58,"RQ",.01)=""
^DD(2006.58,"RQ",2)=""
^DD(2006.58,"SB",2006.5801,4)=""
^DD(2006.58,"SB",2006.5802,5)=""
^DD(2006.5801,0)="TEXT SUB-FIELD^^.01^1"
^DD(2006.5801,0,"DT")="3000225"
^DD(2006.5801,0,"NM","TEXT")=""
^DD(2006.5801,0,"UP")="2006.58"
^DD(2006.5801,.01,0)="TEXT^F^^0;1^K:$L(X)>100!($L(X)<1) X"
^DD(2006.5801,.01,.1)="Text"
^DD(2006.5801,.01,1,0)="^.1^^0"
^DD(2006.5801,.01,3)="Enter a line of text."
^DD(2006.5801,.01,21,0)="^^2^2^3000225^^"
^DD(2006.5801,.01,21,1,0)="The value of this field is a string that makes up"
^DD(2006.5801,.01,21,2,0)="one line in the current log-file."
^DD(2006.5801,.01,"DT")="3000225"
^DD(2006.5801,"B","TEXT",.01)=""
^DD(2006.5801,"B","Text",.01)="1"
^DD(2006.5801,"GL",0,1,.01)=""
^DD(2006.5802,0)="LINE SUB-FIELD^^2^2"
^DD(2006.5802,0,"DT")="3000225"
^DD(2006.5802,0,"NM","LINE")=""
^DD(2006.5802,0,"UP")="2006.58"
^DD(2006.5802,.01,0)="TIMESTAMP^F^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5802,.01,.1)="Timestamp"
^DD(2006.5802,.01,1,0)="^.1^^0"
^DD(2006.5802,.01,3)="Enter this moment's date and time ($HOROLOG format)."
^DD(2006.5802,.01,21,0)="^^5^5^3000225^^"
^DD(2006.5802,.01,21,1,0)="The value of this field is a string that identifies"
^DD(2006.5802,.01,21,2,0)="the date and time on which the current line of text"
^DD(2006.5802,.01,21,3,0)="was created."
^DD(2006.5802,.01,21,4,0)=" "
^DD(2006.5802,.01,21,5,0)="This value is encoded in $Horolog Format."
^DD(2006.5802,.01,"DT")="3000225"
^DD(2006.5802,2,0)="FROM^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(2006.5802,2,.1)="From"
^DD(2006.5802,2,3)="Identify the location from where this log-entry was produced."
^DD(2006.5802,2,21,0)="^^3^3^3000225^^"
^DD(2006.5802,2,21,1,0)="The value of this field is a string that indicates"
^DD(2006.5802,2,21,2,0)="the line in the MUMPS program from which the current"
^DD(2006.5802,2,21,3,0)="line was added to the log-file."
^DD(2006.5802,2,"DT")="3000225"
^DD(2006.5802,"B","FROM",2)=""
^DD(2006.5802,"B","From",2)="1"
^DD(2006.5802,"B","TIMESTAMP",.01)=""
^DD(2006.5802,"B","Timestamp",.01)="1"
^DD(2006.5802,"GL",0,1,.01)=""
^DD(2006.5802,"GL",0,2,2)=""
^DD(2006.581,0)="FIELD^^6^6"
^DD(2006.581,0,"DDA")="N"
^DD(2006.581,0,"DT")="3000229"
^DD(2006.581,0,"IX","B",2006.581,.01)=""
^DD(2006.581,0,"NM","INSTRUMENT DICTIONARY")=""
^DD(2006.581,0,"VR")="3.0"
^DD(2006.581,0,"VRPK")="IMAGING"
^DD(2006.581,.01,0)="NICKNAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.581,.01,1,0)="^.1"
^DD(2006.581,.01,1,1,0)="2006.581^B"
^DD(2006.581,.01,1,1,1)="S ^MAGDICOM(2006.581,""B"",$E(X,1,30),DA)="""""
^DD(2006.581,.01,1,1,2)="K ^MAGDICOM(2006.581,""B"",$E(X,1,30),DA)"
^DD(2006.581,.01,3)="Enter the nickname for this instrument."
^DD(2006.581,.01,21,0)="^^5^5^3000222^^"
^DD(2006.581,.01,21,1,0)="The value of this field is an abbreviation that"
^DD(2006.581,.01,21,2,0)="identifies the instrument that is being described"
^DD(2006.581,.01,21,3,0)="in this entry."
^DD(2006.581,.01,21,4,0)=" "
^DD(2006.581,.01,21,5,0)="Typical abbreviations are CR1, CT2, US, etcetera."
^DD(2006.581,.01,"DT")="2990830"
^DD(2006.581,2,0)="DESCRIPTION^F^^0;2^K:$L(X)>25!($L(X)<1) X"
^DD(2006.581,2,3)="Enter some descriptive text for this instrument."
^DD(2006.581,2,21,0)="^^4^4^3000211^"
^DD(2006.581,2,21,1,0)="The value of this field is a description that identifies"
^DD(2006.581,2,21,2,0)="the equipment that is specified by this entry."
^DD(2006.581,2,21,3,0)="Such a description typically includes the name of a building"
^DD(2006.581,2,21,4,0)="or the number of a room."
^DD(2006.581,2,"DT")="2990830"
^DD(2006.581,3,0)="SERVICE^S^CON:Consults;RAD:Radiology;^0;3^Q"
^DD(2006.581,3,3)="Indicate the type of studies for this instrument (RAD or CON)."
^DD(2006.581,3,21,0)="^.001^6^6^3060516^^^"
^DD(2006.581,3,21,1,0)="The value of this field is a code that indicates the kind"
^DD(2006.581,3,21,2,0)="of studies that is supported by this instrument."
^DD(2006.581,3,21,3,0)=" "
^DD(2006.581,3,21,4,0)="Possible values are:"
^DD(2006.581,3,21,5,0)="   ""RAD""   for Radiology"
^DD(2006.581,3,21,6,0)="   ""CON""   for Consults"
^DD(2006.581,3,"DT")="3060516"
^DD(2006.581,4,0)="PORT^NJ5,0^^0;4^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.581,4,3)="Enter the TCP/IP port number to which this instrument connects."
^DD(2006.581,4,21,0)="^^8^8^3000222^^"
^DD(2006.581,4,21,1,0)="The value of this field is an integer number that"
^DD(2006.581,4,21,2,0)="identifies the TCP/IP port number to which the"
^DD(2006.581,4,21,3,0)="instrument connects that is described in this entry."
^DD(2006.581,4,21,4,0)=" "
^DD(2006.581,4,21,5,0)="TCP/IP port numbers are integers between 1 and 65535."
^DD(2006.581,4,21,6,0)=" "
^DD(2006.581,4,21,7,0)="The TCP/IP connection in question is between this instrument"
^DD(2006.581,4,21,8,0)="and the computer on which this table is stored."
^DD(2006.581,4,"DT")="2990830"
^DD(2006.581,5,0)="SITE^P4'^DIC(4,^0;5^Q"
^DD(2006.581,5,3)="Enter the name of the site where this instrument is located."
^DD(2006.581,5,21,0)="^^6^6^3000222^^"
^DD(2006.581,5,21,1,0)="The value of this field is a pointer that identifies"
^DD(2006.581,5,21,2,0)="the site where the instrument is located that is"
^DD(2006.581,5,21,3,0)="described in this entry."
^DD(2006.581,5,21,4,0)=" "
^DD(2006.581,5,21,5,0)="The value of this field is a pointer to the Institution File"
^DD(2006.581,5,21,6,0)="(number 4, stored in ^DIC(4,...)"
^DD(2006.581,5,"DT")="2990830"
^DD(2006.581,6,0)="MACHINE ID^F^^0;6^K:$L(X)>1!($L(X)<1) X"
^DD(2006.581,6,.1)="Machine ID"
^DD(2006.581,6,3)="Enter the letter for the processor that receives files from this instrument."
^DD(2006.581,6,21,0)="^^6^6^3000302^^"
^DD(2006.581,6,21,1,0)="The value of this field is a single-character"
^DD(2006.581,6,21,2,0)="code that identifies the computer on which the"
^DD(2006.581,6,21,3,0)="image files for this instrument are stored."
^DD(2006.581,6,21,4,0)=" "
^DD(2006.581,6,21,5,0)="This code is also used as a prefix for the names"
^DD(2006.581,6,21,6,0)="of these image files."
^DD(2006.581,6,"DT")="3000229"
^DD(2006.581,"B","DESCRIPTION",2)=""
^DD(2006.581,"B","MACHINE ID",6)=""
^DD(2006.581,"B","Machine ID",6)="1"
^DD(2006.581,"B","NICKNAME",.01)=""
^DD(2006.581,"B","PORT",4)=""
^DD(2006.581,"B","SERVICE",3)=""
^DD(2006.581,"B","SITE",5)=""
^DD(2006.581,"GL",0,1,.01)=""
^DD(2006.581,"GL",0,2,2)=""
^DD(2006.581,"GL",0,3,3)=""
^DD(2006.581,"GL",0,4,4)=""
^DD(2006.581,"GL",0,5,5)=""
^DD(2006.581,"GL",0,6,6)=""
^DD(2006.581,"IX",.01)=""
^DD(2006.581,"RQ",.01)=""
^DD(2006.582,0)="FIELD^^8^9"
^DD(2006.582,0,"DDA")="N"
^DD(2006.582,0,"DT")="3030610"
^DD(2006.582,0,"NM","MODALITY TYPE DICTIONARY")=""
^DD(2006.582,0,"VR")="3.0"
^DD(2006.582,0,"VRPK")="MAG"
^DD(2006.582,.01,0)="MANUFACTURER^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2006.582,.01,1,0)="^.1^^0"
^DD(2006.582,.01,3)="Enter the name of the manufacturer of this equipment."
^DD(2006.582,.01,21,0)="^^8^8^3021121^^"
^DD(2006.582,.01,21,1,0)="Name of the company the produces this equipment."
^DD(2006.582,.01,21,2,0)="The value of this field is a text that identifies the"
^DD(2006.582,.01,21,3,0)="manufacturer of the modality that is described in the"
^DD(2006.582,.01,21,4,0)="current entry."
^DD(2006.582,.01,21,5,0)=" "
^DD(2006.582,.01,21,6,0)="This name must be spelled exactly as it is presented"
^DD(2006.582,.01,21,7,0)="in the headers of the image files that are produced"
^DD(2006.582,.01,21,8,0)="by modalities of this type."
^DD(2006.582,.01,"DT")="2990830"
^DD(2006.582,2,0)="MODEL^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(2006.582,2,3)="Enter the name of the model of this equipment."
^DD(2006.582,2,21,0)="^^7^7^3021121^^"
^DD(2006.582,2,21,1,0)="The value of this field is a text that identifies the"
^DD(2006.582,2,21,2,0)="model of the modality that is described in the"
^DD(2006.582,2,21,3,0)="current entry."
^DD(2006.582,2,21,4,0)=" "
^DD(2006.582,2,21,5,0)="This name must be spelled exactly as it is presented"
^DD(2006.582,2,21,6,0)="in the headers of the image files that are produced"
^DD(2006.582,2,21,7,0)="by modalities of this type."
^DD(2006.582,2,"DT")="2990830"
^DD(2006.582,3,0)="MODALITY^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(2006.582,3,3)="Enter the code for the modality."
^DD(2006.582,3,21,0)="^^6^6^3021121^^"
^DD(2006.582,3,21,1,0)="The value of this field is a code that identifies the"
^DD(2006.582,3,21,2,0)="type of modality for the current entry."
^DD(2006.582,3,21,3,0)=" "
^DD(2006.582,3,21,4,0)="The possible values for this two-letter code are"
^DD(2006.582,3,21,5,0)="defined in the DICOM standard, and are also stored in"
^DD(2006.582,3,21,6,0)="file 73.1, stored in ^RAMIS(73.1,...)"
^DD(2006.582,3,"DT")="2990830"
^DD(2006.582,4,0)="DICOM TO TARGA PARAMETERS^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(2006.582,4,.1)="Dicom To Targa Parameters"
^DD(2006.582,4,3)="Enter the parameter list for the program dcmtotga.exe."
^DD(2006.582,4,21,0)="^^15^15^3000302^^"
^DD(2006.582,4,21,1,0)="The value of this field is a string that provides the"
^DD(2006.582,4,21,2,0)="parameters that are to be specified when the program"
^DD(2006.582,4,21,3,0)="is called that converts an image in DICOM format to"
^DD(2006.582,4,21,4,0)="Targa(TM) format."
^DD(2006.582,4,21,5,0)=" "
^DD(2006.582,4,21,6,0)="These parameters will apply to files that originate from"
^DD(2006.582,4,21,7,0)="the type of modality that is described in the current entry."
^DD(2006.582,4,21,8,0)=" "
^DD(2006.582,4,21,9,0)="When the parameters are different for the conversion"
^DD(2006.582,4,21,10,0)="to an 'clinical resolution' image than they are"
^DD(2006.582,4,21,11,0)="for a 'full resolution' image, the value of this field consists"
^DD(2006.582,4,21,12,0)="of two parts, separated by a slash (""/"")."
^DD(2006.582,4,21,13,0)="In that case, the first part specifies the parameters"
^DD(2006.582,4,21,14,0)="for clinical images, and the second part specifies the"
^DD(2006.582,4,21,15,0)="parameters for the full images."
^DD(2006.582,4,"DT")="2981013"
^DD(2006.582,5,0)="CASE LOOKUP^F^^0;5^K:$L(X)>17!($L(X)<1) X"
^DD(2006.582,5,.1)="Accession Number Lookup"
^DD(2006.582,5,3)="Enter the entry point for the Accession Number lookup code."
^DD(2006.582,5,8)="@"
^DD(2006.582,5,8.5)="@"
^DD(2006.582,5,9)="@"
^DD(2006.582,5,21,0)="^^9^9^3000302^^"
^DD(2006.582,5,21,1,0)="The value of this field is a string that identifies"
^DD(2006.582,5,21,2,0)="the entry point that is called as a subroutine when"
^DD(2006.582,5,21,3,0)="the DICOM Image Gateway needs to look up the Accession Number"
^DD(2006.582,5,21,4,0)="number, given the information provided by the modality"
^DD(2006.582,5,21,5,0)="that is described in this entry."
^DD(2006.582,5,21,6,0)=" "
^DD(2006.582,5,21,7,0)="In the name of this entry point, the caret that separates"
^DD(2006.582,5,21,8,0)="the name of the label from the name of the routine"
^DD(2006.582,5,21,9,0)="is replaced by a period."
^DD(2006.582,5,"DT")="2981013"
^DD(2006.582,6,0)="DATA EXTRACTION^F^^0;6^K:$L(X)>17!($L(X)<1) X"
^DD(2006.582,6,3)="Enter the entry point for the data extraction code."
^DD(2006.582,6,8)="@"
^DD(2006.582,6,8.5)="@"
^DD(2006.582,6,9)="@"
^DD(2006.582,6,21,0)="^^9^9^3000222^^"
^DD(2006.582,6,21,1,0)="The value of this field is a string that identifies"
^DD(2006.582,6,21,2,0)="the entry point that is called as a subroutine when"
^DD(2006.582,6,21,3,0)="the DICOM Image Gateway needs to extract data,"
^DD(2006.582,6,21,4,0)="given the information provided by the modality"
^DD(2006.582,6,21,5,0)="that is described in this entry."
^DD(2006.582,6,21,6,0)=" "
^DD(2006.582,6,21,7,0)="In the name of this entry point, the caret that separates"
^DD(2006.582,6,21,8,0)="the name of the label from the name of the routine"
^DD(2006.582,6,21,9,0)="is replaced by a period."
^DD(2006.582,6,"DT")="2981013"
^DD(2006.582,7,0)="EXTRACTION FILE^F^^0;7^K:$L(X)>16!($L(X)<1) X"
^DD(2006.582,7,3)="Enter the name of the file that describes the extraction parameters."
^DD(2006.582,7,21,0)="^^9^9^3000222^^"
^DD(2006.582,7,21,1,0)="The value of this field is the name of a file that"
^DD(2006.582,7,21,2,0)="contains a list of additional fields to be displayed"
^DD(2006.582,7,21,3,0)="on a diagnostic workstation for images that are produced"
^DD(2006.582,7,21,4,0)="by a modality of the type that is described in the current entry."
^DD(2006.582,7,21,5,0)=" "
^DD(2006.582,7,21,6,0)="Currently, three such files exist:"
^DD(2006.582,7,21,7,0)="   datamisc.dic"
^DD(2006.582,7,21,8,0)="   data_cr.dic"
^DD(2006.582,7,21,9,0)="   datagect.dic"
^DD(2006.582,7,"DT")="2981013"
^DD(2006.582,8,0)="IMAGING SERVICE^S^RAD:Radiology;CON:Consults;^0;8^Q"
^DD(2006.582,8,3)="Indicate the Imaging Service (RAD or CON)."
^DD(2006.582,8,8)="@"
^DD(2006.582,8,8.5)="@"
^DD(2006.582,8,9)="@"
^DD(2006.582,8,21,0)="^^6^6^3030610^^"
^DD(2006.582,8,21,1,0)="The value of this field is a code that indicates the ""Imaging Service"""
^DD(2006.582,8,21,2,0)="for this type of instrument."
^DD(2006.582,8,21,3,0)=""
^DD(2006.582,8,21,4,0)="Possible Imaging Services are:"
^DD(2006.582,8,21,5,0)="   RAD:   Radiology"
^DD(2006.582,8,21,6,0)="   CON:   Consults"
^DD(2006.582,8,"DT")="3030610"
^DD(2006.582,9,0)="ACTIVE^S^1:Active;0:Not Currently Used;^0;9^Q"
^DD(2006.582,9,3)="Indicate whether this entry is active."
^DD(2006.582,9,21,0)="^^4^4^3041029^"
^DD(2006.582,9,21,1,0)="The value of this field is a code that indicates whether"
^DD(2006.582,9,21,2,0)="or not this entry is currently active. Possible values:"
^DD(2006.582,9,21,3,0)="    1: active"
^DD(2006.582,9,21,4,0)="    0: currently not in use"
^DD(2006.582,9,"DT")="3041029"
^DD(2006.582,"B","ACTIVE",9)=""
^DD(2006.582,"B","Accession Number Lookup",5)="1"
^DD(2006.582,"B","CASE LOOKUP",5)=""
^DD(2006.582,"B","DATA EXTRACTION",6)=""
^DD(2006.582,"B","DICOM TO TARGA PARAMETERS",4)=""
^DD(2006.582,"B","Dicom To Targa Parameters",4)="1"
^DD(2006.582,"B","EXTRACTION FILE",7)=""
^DD(2006.582,"B","IMAGING SERVICE",8)=""
^DD(2006.582,"B","MANUFACTURER",.01)=""
^DD(2006.582,"B","MODALITY",3)=""
^DD(2006.582,"B","MODEL",2)=""
^DD(2006.582,"GL",0,1,.01)=""
^DD(2006.582,"GL",0,2,2)=""
^DD(2006.582,"GL",0,3,3)=""
^DD(2006.582,"GL",0,4,4)=""
^DD(2006.582,"GL",0,5,5)=""
^DD(2006.582,"GL",0,6,6)=""
^DD(2006.582,"GL",0,7,7)=""
^DD(2006.582,"GL",0,8,8)=""
^DD(2006.582,"GL",0,9,9)=""
^DD(2006.582,"RQ",.01)=""
^DD(2006.583,0)="FIELD^^6^6"
^DD(2006.583,0,"DDA")="N"
^DD(2006.583,0,"DT")="3000211"
^DD(2006.583,0,"IX","B",2006.583,.01)=""
^DD(2006.583,0,"NM","MODALITY WORKLIST DICTIONARY")=""
^DD(2006.583,0,"VR")="3.0"
^DD(2006.583,0,"VRPK")="IMAGING"
^DD(2006.583,.01,0)="AE TITLE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.583,.01,1,0)="^.1"
^DD(2006.583,.01,1,1,0)="2006.583^B"
^DD(2006.583,.01,1,1,1)="S ^MAGDICOM(2006.583,""B"",$E(X,1,30),DA)="""""
^DD(2006.583,.01,1,1,2)="K ^MAGDICOM(2006.583,""B"",$E(X,1,30),DA)"
^DD(2006.583,.01,3)="Enter the Application Entity Title."
^DD(2006.583,.01,21,0)="^^3^3^3000222^^"
^DD(2006.583,.01,21,1,0)="The value of this field is a string that specifies"
^DD(2006.583,.01,21,2,0)="the Application Entity Title for the equipment being"
^DD(2006.583,.01,21,3,0)="described in the current entry."
^DD(2006.583,.01,"DT")="2990830"
^DD(2006.583,2,0)="SITE^P4'^DIC(4,^0;2^Q"
^DD(2006.583,2,3)="Enter the name of the site for this modality."
^DD(2006.583,2,21,0)="^^6^6^3000222^^"
^DD(2006.583,2,21,1,0)="The value of this field is a pointer that identifies"
^DD(2006.583,2,21,2,0)="the site where the equipment is located that is"
^DD(2006.583,2,21,3,0)="described in this entry."
^DD(2006.583,2,21,4,0)=" "
^DD(2006.583,2,21,5,0)="The value of this field is a pointer to the Institution File"
^DD(2006.583,2,21,6,0)="(number 4, stored in ^DIC(4,...)"
^DD(2006.583,2,"DT")="2990830"
^DD(2006.583,3,0)="SERVICE^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(2006.583,3,3)="Enter the name of the Imaging Service."
^DD(2006.583,3,21,0)="^^3^3^3020919^^"
^DD(2006.583,3,21,1,0)="The value of this field is a string that identifies"
^DD(2006.583,3,21,2,0)="the 'Imaging Service' that is performed by the"
^DD(2006.583,3,21,3,0)="instrument that is described in this entry."
^DD(2006.583,3,"DT")="2990830"
^DD(2006.583,4,0)="TYPE^P79.2'^RA(79.2,^0;4^Q"
^DD(2006.583,4,3)="Enter the name of the imaging type."
^DD(2006.583,4,21,0)="^^9^9^3000222^^"
^DD(2006.583,4,21,1,0)="The value of this field is a pointer that identifies"
^DD(2006.583,4,21,2,0)="the 'imaging type' that is performed by the"
^DD(2006.583,4,21,3,0)="instrument that is described in this entry."
^DD(2006.583,4,21,4,0)=" "
^DD(2006.583,4,21,5,0)="The imaging types are itemized in file 79.2"
^DD(2006.583,4,21,6,0)="(stored in ^RA(79.2,...)"
^DD(2006.583,4,21,7,0)=" "
^DD(2006.583,4,21,8,0)="The most often used value for this field is 'RAD',"
^DD(2006.583,4,21,9,0)="(general Radiology)."
^DD(2006.583,4,"DT")="2990830"
^DD(2006.583,5,0)="ACCESSION^S^L:Long Accession Number;S:Short Accession Number;^0;5^Q"
^DD(2006.583,5,3)="Indicate whether this modality uses Long or Short Accession Numbers."
^DD(2006.583,5,21,0)="^^16^16^3000222^^"
^DD(2006.583,5,21,1,0)="The value of this field is a code that specifies"
^DD(2006.583,5,21,2,0)="whether the equipment described in the current entry"
^DD(2006.583,5,21,3,0)="uses 'short' or 'long' accession numbers."
^DD(2006.583,5,21,4,0)=" "
^DD(2006.583,5,21,5,0)="A complete accession number consists of two groups of digits"
^DD(2006.583,5,21,6,0)="separated by a dash. The first group is 6 digits,"
^DD(2006.583,5,21,7,0)="and is derived from the date. The second group is"
^DD(2006.583,5,21,8,0)="an integer number that uniquely identifies the study"
^DD(2006.583,5,21,9,0)="for that date."
^DD(2006.583,5,21,10,0)=" "
^DD(2006.583,5,21,11,0)="When the value of this field stars with an 'L',"
^DD(2006.583,5,21,12,0)="'long' accession numbers are assumed (both parts"
^DD(2006.583,5,21,13,0)="are to be provided)."
^DD(2006.583,5,21,14,0)="When the value of this field starts with an 'S',"
^DD(2006.583,5,21,15,0)="'short' accession numbers are assumed (only the second"
^DD(2006.583,5,21,16,0)="part is to be provided)."
^DD(2006.583,5,"DT")="2990830"
^DD(2006.583,6,0)="DESCRIPTION^F^^0;6^K:$L(X)>50!($L(X)<1) X"
^DD(2006.583,6,.1)="Description"
^DD(2006.583,6,3)="Enter the name of the menu option for this Provider Port."
^DD(2006.583,6,21,0)="^^4^4^3000302^^"
^DD(2006.583,6,21,1,0)="The value of this field is a description that identifies"
^DD(2006.583,6,21,2,0)="the equipment that is specified by this entry."
^DD(2006.583,6,21,3,0)="Such a description typically includes the name of a building"
^DD(2006.583,6,21,4,0)="or the number of a room."
^DD(2006.583,6,"DT")="3000211"
^DD(2006.583,"B","ACCESSION",5)=""
^DD(2006.583,"B","AE TITLE",.01)=""
^DD(2006.583,"B","DESCRIPTION",6)=""
^DD(2006.583,"B","Description",6)="1"
^DD(2006.583,"B","SERVICE",3)=""
^DD(2006.583,"B","SITE",2)=""
^DD(2006.583,"B","TYPE",4)=""
^DD(2006.583,"GL",0,1,.01)=""
^DD(2006.583,"GL",0,2,2)=""
^DD(2006.583,"GL",0,3,3)=""
^DD(2006.583,"GL",0,4,4)=""
^DD(2006.583,"GL",0,5,5)=""
^DD(2006.583,"GL",0,6,6)=""
^DD(2006.583,"IX",.01)=""
^DD(2006.583,"RQ",.01)=""
^DD(2006.5831,0)="FIELD^^4^4"
^DD(2006.5831,0,"DDA")="N"
^DD(2006.5831,0,"DT")="3030512"
^DD(2006.5831,0,"NM","DICOM HEALTHCARE PROVIDER SERVICE")=""
^DD(2006.5831,0,"VR")="3.0"
^DD(2006.5831,0,"VRPK")="MAG"
^DD(2006.5831,.01,0)="REQUESTED SERVICE^RP123.5'X^GMR(123.5,^0;1^S DINUM=X"
^DD(2006.5831,.01,1,0)="^.1^^0"
^DD(2006.5831,.01,3)="Enter the name of the service being requested."
^DD(2006.5831,.01,21,0)="^.001^8^8^3020409^^"
^DD(2006.5831,.01,21,1,0)="The value of this field is a pointer into the ""Request Services"""
^DD(2006.5831,.01,21,2,0)="file (#123.5)."
^DD(2006.5831,.01,21,3,0)=" "
^DD(2006.5831,.01,21,4,0)="The purpose of this file is to link groups of types of"
^DD(2006.5831,.01,21,5,0)="Requests for Consults to entities that we'll call"
^DD(2006.5831,.01,21,6,0)="""Worklist Classes""."
^DD(2006.5831,.01,21,7,0)=" "
^DD(2006.5831,.01,21,8,0)="This file is DINUMed with file #123.5."
^DD(2006.5831,.01,"DT")="3020409"
^DD(2006.5831,2,0)="SERVICE GROUP^RP2005.84'^MAG(2005.84,^0;2^Q"
^DD(2006.5831,2,3)="Enter the name of the WorkList Class."
^DD(2006.5831,2,21,0)="^^10^10^3020730^^"
^DD(2006.5831,2,21,1,0)="The value of this field is a pointer to the SPECIALTY or SUBSPECIALTY"
^DD(2006.5831,2,21,2,0)="file."
^DD(2006.5831,2,21,3,0)=" "
^DD(2006.5831,2,21,4,0)="Image Types are groups of services that are being treated"
^DD(2006.5831,2,21,5,0)="the same as far as DICOM WorkList requests are concerned."
^DD(2006.5831,2,21,6,0)=" "
^DD(2006.5831,2,21,7,0)="Service Requests are described in file 123.5, and (sub)specialties"
^DD(2006.5831,2,21,8,0)="are described in file 2005.84."
^DD(2006.5831,2,21,9,0)=" "
^DD(2006.5831,2,21,10,0)="The purpose of this file is to establish a link between the two."
^DD(2006.5831,2,"DT")="3020730"
^DD(2006.5831,3,0)="SERVICE DIVISION^P4'^DIC(4,^0;3^Q"
^DD(2006.5831,3,3)="Identify the division where these procedures are executed."
^DD(2006.5831,3,21,0)="^.001^4^4^3020827^^^^"
^DD(2006.5831,3,21,1,0)="The value of this field is a pointer to the"
^DD(2006.5831,3,21,2,0)="INSTITUTION file."
^DD(2006.5831,3,21,3,0)=" "
^DD(2006.5831,3,21,4,0)="This value identifies the division where the request will be performed."
^DD(2006.5831,3,"DT")="3020827"
^DD(2006.5831,4,0)="CLINIC^2006.58314PA^^1;0"
^DD(2006.5831,"B","CLINIC",4)=""
^DD(2006.5831,"B","REQUESTED SERVICE",.01)=""
^DD(2006.5831,"B","SERVICE DIVISION",3)=""
^DD(2006.5831,"B","SERVICE GROUP",2)=""
^DD(2006.5831,"GL",0,1,.01)=""
^DD(2006.5831,"GL",0,2,2)=""
^DD(2006.5831,"GL",0,3,3)=""
^DD(2006.5831,"GL",1,0,4)=""
^DD(2006.5831,"RQ",.01)=""
^DD(2006.5831,"RQ",2)=""
^DD(2006.5831,"SB",2006.58314,4)=""
^DD(2006.58314,0)="CLINIC SUB-FIELD^^.01^1"
^DD(2006.58314,0,"DT")="3030512"
^DD(2006.58314,0,"IX","B",2006.58314,.01)=""
^DD(2006.58314,0,"NM","CLINIC")=""
^DD(2006.58314,0,"UP")="2006.5831"
^DD(2006.58314,.01,0)="CLINIC^MP44'^SC(^0;1^Q"
^DD(2006.58314,.01,1,0)="^.1"
^DD(2006.58314,.01,1,1,0)="2006.58314^B"
^DD(2006.58314,.01,1,1,1)="S ^MAG(2006.5831,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.58314,.01,1,1,2)="K ^MAG(2006.5831,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.58314,.01,3)="Identify the clinic where this service may take place."
^DD(2006.58314,.01,21,0)="^^3^3^3030512^"
^DD(2006.58314,.01,21,1,0)="The value of this field is a pointer to file #44 (Hospital Location)."
^DD(2006.58314,.01,21,2,0)="This value identifies a clinic where a specific kind of service"
^DD(2006.58314,.01,21,3,0)="may be provided."
^DD(2006.58314,.01,"DT")="3030512"
^DD(2006.58314,"B","CLINIC",.01)=""
^DD(2006.58314,"GL",0,1,.01)=""
^DD(2006.58314,"IX",.01)=""
^DD(2006.5839,0)="FIELD^^3^3"
^DD(2006.5839,0,"DDA")="N"
^DD(2006.5839,0,"DT")="3020409"
^DD(2006.5839,0,"IX","B",2006.5839,.01)=""
^DD(2006.5839,0,"NM","DICOM GMRC TEMP LIST")=""
^DD(2006.5839,0,"VR")="3.0"
^DD(2006.5839,0,"VRPK")="MAG"
^DD(2006.5839,.01,0)="FILE NUMBER^RS^123:Consults/Requests;^0;1^Q"
^DD(2006.5839,.01,1,0)="^.1^^0"
^DD(2006.5839,.01,1,1,0)="2006.5839^B"
^DD(2006.5839,.01,1,1,1)="S ^MAG(2006.5839,""B"",$E(X,1,30),DA)="""""
^DD(2006.5839,.01,1,1,2)="K ^MAG(2006.5839,""B"",$E(X,1,30),DA)"
^DD(2006.5839,.01,1,1,"DT")="3021107"
^DD(2006.5839,.01,3)="Enter the number of the file to which this image will be connected temporarily."
^DD(2006.5839,.01,21,0)="^^7^7^3020409^"
^DD(2006.5839,.01,21,1,0)="The value of this field is a pointer to a file."
^DD(2006.5839,.01,21,2,0)=" "
^DD(2006.5839,.01,21,3,0)="Since this field may point only to a very limited number"
^DD(2006.5839,.01,21,4,0)="of files, the datatype for this field is a SET OF CODES,"
^DD(2006.5839,.01,21,5,0)="rather than a pointer to the File of Files."
^DD(2006.5839,.01,21,6,0)=" "
^DD(2006.5839,.01,21,7,0)="Currently, the only possible value is 123 (Consults)."
^DD(2006.5839,.01,"DT")="3021114"
^DD(2006.5839,2,0)="ENTRY NUMBER^RNJ13,0^^0;2^K:+X'=X!(X>9999999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.5839,2,3)="Enter the internal entry number in the temporary file."
^DD(2006.5839,2,21,0)="^^7^7^3020409^"
^DD(2006.5839,2,21,1,0)="The value of this field is a pointer into a file."
^DD(2006.5839,2,21,2,0)=" "
^DD(2006.5839,2,21,3,0)="The file number of the file into which this field points"
^DD(2006.5839,2,21,4,0)="is stored as the value of field FILE NUMBER."
^DD(2006.5839,2,21,5,0)=" "
^DD(2006.5839,2,21,6,0)="Since this value is not a ""variable pointer"", nor a ""normal pointer"","
^DD(2006.5839,2,21,7,0)="the data type of this field is NUMBER, not POINTER."
^DD(2006.5839,2,"DT")="3021106"
^DD(2006.5839,3,0)="IMAGE^RP2005'^MAG(2005,^0;3^Q"
^DD(2006.5839,3,3)="Enter the internal entry number of the image."
^DD(2006.5839,3,21,0)="^^9^9^3020409^"
^DD(2006.5839,3,21,1,0)="The value of this field is a pointer into the Image File (2005)."
^DD(2006.5839,3,21,2,0)=" "
^DD(2006.5839,3,21,3,0)="The image that is being pointed to is usually the group-parent"
^DD(2006.5839,3,21,4,0)="of the group of images that is linked to the entity in the"
^DD(2006.5839,3,21,5,0)="temporary file."
^DD(2006.5839,3,21,6,0)=" "
^DD(2006.5839,3,21,7,0)="(When the image group consists of one single image,"
^DD(2006.5839,3,21,8,0)="that image won't have a ""group parent"", and this field"
^DD(2006.5839,3,21,9,0)="will point to the image itself.)"
^DD(2006.5839,3,"DT")="3021106"
^DD(2006.5839,"B","ENTRY NUMBER",2)=""
^DD(2006.5839,"B","FILE NUMBER",.01)=""
^DD(2006.5839,"B","IMAGE",3)=""
^DD(2006.5839,"GL",0,1,.01)=""
^DD(2006.5839,"GL",0,2,2)=""
^DD(2006.5839,"GL",0,3,3)=""
^DD(2006.5839,"IX",.01)=""
^DD(2006.5839,"RQ",.01)=""
^DD(2006.5839,"RQ",2)=""
^DD(2006.5839,"RQ",3)=""
^DD(2006.584,0)="FIELD^^5^5"
^DD(2006.584,0,"DDA")="N"
^DD(2006.584,0,"DT")="2990830"
^DD(2006.584,0,"IX","B",2006.584,.01)=""
^DD(2006.584,0,"NM","TCP/IP PROVIDER PORT LIST")=""
^DD(2006.584,0,"VR")="3.0"
^DD(2006.584,0,"VRPK")="IMAGING"
^DD(2006.584,.01,0)="MENU OPTION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.584,.01,1,0)="^.1"
^DD(2006.584,.01,1,1,0)="2006.584^B"
^DD(2006.584,.01,1,1,1)="S ^MAGDICOM(2006.584,""B"",$E(X,1,30),DA)="""""
^DD(2006.584,.01,1,1,2)="K ^MAGDICOM(2006.584,""B"",$E(X,1,30),DA)"
^DD(2006.584,.01,3)="Enter the name of the menu option that is started to use this port."
^DD(2006.584,.01,21,0)="^^2^2^3000222^^"
^DD(2006.584,.01,21,1,0)="The value of this field is a text that is presented as a menu-prompt"
^DD(2006.584,.01,21,2,0)="to select the equipment that is described in this entry."
^DD(2006.584,.01,"DT")="2990830"
^DD(2006.584,2,0)="AE TITLE^F^^0;2^K:$L(X)>25!($L(X)<1) X"
^DD(2006.584,2,3)="Enter the Application Entity Title for this port."
^DD(2006.584,2,21,0)="^^3^3^3000222^^"
^DD(2006.584,2,21,1,0)="The value of this field is a string that specifies"
^DD(2006.584,2,21,2,0)="the Application Entity Title for the equipment being"
^DD(2006.584,2,21,3,0)="described in the current entry."
^DD(2006.584,2,"DT")="2990830"
^DD(2006.584,3,0)="PORT^NJ5,0^^0;3^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.584,3,3)="Enter the TCP/IP port number for this port."
^DD(2006.584,3,21,0)="^^5^5^3000222^^"
^DD(2006.584,3,21,1,0)="The value of this field is an integer number that"
^DD(2006.584,3,21,2,0)="identifies the TCP/IP port number to which the"
^DD(2006.584,3,21,3,0)="equipment connects that is described in this entry."
^DD(2006.584,3,21,4,0)=" "
^DD(2006.584,3,21,5,0)="TCP/IP port numbers are integers between 1 and 65535."
^DD(2006.584,3,"DT")="2990830"
^DD(2006.584,4,0)="MODE^S^F:FIFO Queue;D:Direct;^0;4^Q"
^DD(2006.584,4,3)="Indicate whether this port is accessed Directly or through a FIFO Queue."
^DD(2006.584,4,21,0)="^^6^6^3000222^^"
^DD(2006.584,4,21,1,0)="The value of this field is a code that specifies"
^DD(2006.584,4,21,2,0)="how the communication takes place with the equipment"
^DD(2006.584,4,21,3,0)="that is described in this entry."
^DD(2006.584,4,21,4,0)=" "
^DD(2006.584,4,21,5,0)="Possible values are DIRECT and by FIFO queue"
^DD(2006.584,4,21,6,0)="(First In, First Out)."
^DD(2006.584,4,"DT")="2990830"
^DD(2006.584,5,0)="CHANNEL^NJ4,0^^0;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.584,5,3)="Enter the channel number through which this port is accessed."
^DD(2006.584,5,21,0)="^^7^7^3000222^^"
^DD(2006.584,5,21,1,0)="The value of this field is an integer number that"
^DD(2006.584,5,21,2,0)="identifies the channel that is used for the communication"
^DD(2006.584,5,21,3,0)="with the equipment described in this entry."
^DD(2006.584,5,21,4,0)=" "
^DD(2006.584,5,21,5,0)="Channel numbers are integer numbers. The lowest channel"
^DD(2006.584,5,21,6,0)="number is one; typically, a site has only two channels,"
^DD(2006.584,5,21,7,0)="on occasion a higher number of channels may be utilized."
^DD(2006.584,5,"DT")="2990830"
^DD(2006.584,"B","AE TITLE",2)=""
^DD(2006.584,"B","CHANNEL",5)=""
^DD(2006.584,"B","MENU OPTION",.01)=""
^DD(2006.584,"B","MODE",4)=""
^DD(2006.584,"B","PORT",3)=""
^DD(2006.584,"GL",0,1,.01)=""
^DD(2006.584,"GL",0,2,2)=""
^DD(2006.584,"GL",0,3,3)=""
^DD(2006.584,"GL",0,4,4)=""
^DD(2006.584,"GL",0,5,5)=""
^DD(2006.584,"IX",.01)=""
^DD(2006.584,"RQ",.01)=""
^DD(2006.5841,0)="FIELD^^6^7"
^DD(2006.5841,0,"DDA")="N"
^DD(2006.5841,0,"DT")="3060202"
^DD(2006.5841,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^GMR(123.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(123.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2006.5841,0,"IX","B",2006.5841,.01)=""
^DD(2006.5841,0,"NM","TELEREADER ACQUISITION SERVICE")=""
^DD(2006.5841,.01,0)="NAME^RP123.5'^GMR(123.5,^0;1^Q"
^DD(2006.5841,.01,1,0)="^.1"
^DD(2006.5841,.01,1,1,0)="2006.5841^B"
^DD(2006.5841,.01,1,1,1)="S ^MAG(2006.5841,""B"",$E(X,1,30),DA)="""""
^DD(2006.5841,.01,1,1,2)="K ^MAG(2006.5841,""B"",$E(X,1,30),DA)"
^DD(2006.5841,.01,3)=""
^DD(2006.5841,.01,21,0)="^^1^1^3060509^"
^DD(2006.5841,.01,21,1,0)="The Consult Request Tracking ""To Service"" at the Acquisition Site."
^DD(2006.5841,.01,"DT")="3060509"
^DD(2006.5841,1,0)="PROCEDURE^P123.3'^GMR(123.3,^0;2^Q"
^DD(2006.5841,1,21,0)="^^1^1^3060509^"
^DD(2006.5841,1,21,1,0)="The Consult Request Tracking ""Procedure"" that is to be performed."
^DD(2006.5841,1,"DT")="3060509"
^DD(2006.5841,2,0)="SPECIALTY INDEX^RP2005.84'^MAG(2005.84,^0;3^Q"
^DD(2006.5841,2,21,0)="^^1^1^3060509^"
^DD(2006.5841,2,21,1,0)="The Specialty/Subspecialty for the Unread List."
^DD(2006.5841,2,"DT")="3060509"
^DD(2006.5841,3,0)="PROCEDURE INDEX^RP2005.85'^MAG(2005.85,^0;4^Q"
^DD(2006.5841,3,21,0)="^^1^1^3060509^"
^DD(2006.5841,3,21,1,0)="The Procedure/Event for the Unread List."
^DD(2006.5841,3,"DT")="3060509"
^DD(2006.5841,4,0)="ACQUISITION SITE^RP4'^DIC(4,^0;5^Q"
^DD(2006.5841,4,21,0)="^^1^1^3060509^"
^DD(2006.5841,4,21,1,0)="The Acquisition Site where the images will be captured."
^DD(2006.5841,4,"DT")="3060509"
^DD(2006.5841,5,0)="UNREAD LIST CREATION TRIGGER^RS^I:CREATE/UPDATE WITH EVERY ACQUIRED IMAGE;O:CREATE WHEN REQUEST IS ORDERED;F:CREATE WHEN CONSULT IS FORWARDED TO IFC;^0;6^Q"
^DD(2006.5841,5,3)=""
^DD(2006.5841,5,21,0)="^^1^1^3060509^"
^DD(2006.5841,5,21,1,0)="The trigger event which will put the study on the Unread List."
^DD(2006.5841,5,"DT")="3060509"
^DD(2006.5841,6,0)="TIU NOTE FILE^RP8925.1'^TIU(8925.1,^0;7^Q"
^DD(2006.5841,6,3)=""
^DD(2006.5841,6,21,0)="^^1^1^3060509^"
^DD(2006.5841,6,21,1,0)="The TIU Note Title to be used when the IFC has been completed."
^DD(2006.5841,6,"DT")="3060509"
^DD(2006.5841,"B","ACQUISITION SITE",4)=""
^DD(2006.5841,"B","NAME",.01)=""
^DD(2006.5841,"B","PROCEDURE",1)=""
^DD(2006.5841,"B","PROCEDURE INDEX",3)=""
^DD(2006.5841,"B","SPECIALTY INDEX",2)=""
^DD(2006.5841,"B","TIU NOTE FILE",6)=""
^DD(2006.5841,"B","UNREAD LIST CREATION TRIGGER",5)=""
^DD(2006.5841,"GL",0,1,.01)=""
^DD(2006.5841,"GL",0,2,1)=""
^DD(2006.5841,"GL",0,3,2)=""
^DD(2006.5841,"GL",0,4,3)=""
^DD(2006.5841,"GL",0,5,4)=""
^DD(2006.5841,"GL",0,6,5)=""
^DD(2006.5841,"GL",0,7,6)=""
^DD(2006.5841,"IX",.01)=""
^DD(2006.5841,"RQ",.01)=""
^DD(2006.5841,"RQ",2)=""
^DD(2006.5841,"RQ",3)=""
^DD(2006.5841,"RQ",4)=""
^DD(2006.5841,"RQ",5)=""
^DD(2006.5841,"RQ",6)=""
^DD(2006.5842,0)="FIELD^^3^4"
^DD(2006.5842,0,"DDA")="N"
^DD(2006.5842,0,"DT")="3060207"
^DD(2006.5842,0,"IX","B",2006.5842,.01)=""
^DD(2006.5842,0,"NM","TELEREADER ACQUISITION SITE")=""
^DD(2006.5842,0,"PT",2006.58431,.01)=""
^DD(2006.5842,.01,0)="NAME^RP4'X^DIC(4,^0;1^S DINUM=X Q"
^DD(2006.5842,.01,1,0)="^.1"
^DD(2006.5842,.01,1,1,0)="2006.5842^B"
^DD(2006.5842,.01,1,1,1)="S ^MAG(2006.5842,""B"",$E(X,1,30),DA)="""""
^DD(2006.5842,.01,1,1,2)="K ^MAG(2006.5842,""B"",$E(X,1,30),DA)"
^DD(2006.5842,.01,3)=""
^DD(2006.5842,.01,21,0)="^^1^1^3060509^"
^DD(2006.5842,.01,21,1,0)="The Site (Institution) where the images will be acquired."
^DD(2006.5842,.01,"DT")="3060509"
^DD(2006.5842,1,0)="PRIMARY SITE^P4'^DIC(4,^0;2^Q"
^DD(2006.5842,1,3)=""
^DD(2006.5842,1,21,0)="^^1^1^3060509^"
^DD(2006.5842,1,21,1,0)="The Site where the VistA HIS for the Acquisition Site is located."
^DD(2006.5842,1,"DT")="3060509"
^DD(2006.5842,2,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;3^Q"
^DD(2006.5842,2,3)=""
^DD(2006.5842,2,21,0)="^^2^2^3060509^"
^DD(2006.5842,2,21,1,0)="Determines if the acquisition site is active or inactive.  (To determine "
^DD(2006.5842,2,21,2,0)="if this site should be read from)."
^DD(2006.5842,2,"DT")="3060509"
^DD(2006.5842,3,0)="LOCK TIMEOUT IN MINUTES^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5842,3,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2006.5842,3,21,0)="^^3^3^3060330^"
^DD(2006.5842,3,21,1,0)="The number of minutes a study can be locked by a user.  After this period"
^DD(2006.5842,3,21,2,0)="of time, a study that is still locked is automatically unlocked.  The"
^DD(2006.5842,3,21,3,0)="default time is 180 minutes."
^DD(2006.5842,3,"DT")="3060228"
^DD(2006.5842,"B","LOCK TIMEOUT IN MINUTES",3)=""
^DD(2006.5842,"B","NAME",.01)=""
^DD(2006.5842,"B","PRIMARY SITE",1)=""
^DD(2006.5842,"B","STATUS",2)=""
^DD(2006.5842,"GL",0,1,.01)=""
^DD(2006.5842,"GL",0,2,1)=""
^DD(2006.5842,"GL",0,3,2)=""
^DD(2006.5842,"GL",0,4,3)=""
^DD(2006.5842,"IX",.01)=""
^DD(2006.5842,"RQ",.01)=""
^DD(2006.5843,0)="FIELD^^1^2"
^DD(2006.5843,0,"DDA")="N"
^DD(2006.5843,0,"DT")="3060228"
^DD(2006.5843,0,"IX","B",2006.5843,.01)=""
^DD(2006.5843,0,"NM","TELEREADER READER")=""
^DD(2006.5843,.01,0)="READER^RP200'^VA(200,^0;1^Q"
^DD(2006.5843,.01,1,0)="^.1"
^DD(2006.5843,.01,1,1,0)="2006.5843^B"
^DD(2006.5843,.01,1,1,1)="S ^MAG(2006.5843,""B"",$E(X,1,30),DA)="""""
^DD(2006.5843,.01,1,1,2)="K ^MAG(2006.5843,""B"",$E(X,1,30),DA)"
^DD(2006.5843,.01,3)=""
^DD(2006.5843,.01,21,0)="^^1^1^3060509^"
^DD(2006.5843,.01,21,1,0)="The name of the person that will be reading the exam."
^DD(2006.5843,.01,"DT")="3060509"
^DD(2006.5843,1,0)="ACQUISITION SITE^2006.58431PA^^1;0"
^DD(2006.5843,1,21,0)="^^1^1^3060509^"
^DD(2006.5843,1,21,1,0)="The Site (Institution) where the images are acquired."
^DD(2006.5843,"B","ACQUISITION SITE",1)=""
^DD(2006.5843,"B","READER",.01)=""
^DD(2006.5843,"GL",0,1,.01)=""
^DD(2006.5843,"GL",1,0,1)=""
^DD(2006.5843,"IX",.01)=""
^DD(2006.5843,"RQ",.01)=""
^DD(2006.5843,"SB",2006.58431,1)=""
^DD(2006.58431,0)="ACQUISITION SITE SUB-FIELD^^1^3"
^DD(2006.58431,0,"DT")="3060228"
^DD(2006.58431,0,"IX","B",2006.58431,.01)=""
^DD(2006.58431,0,"NM","ACQUISITION SITE")=""
^DD(2006.58431,0,"UP")="2006.5843"
^DD(2006.58431,.01,0)="ACQUISITION SITE^MP2006.5842'^MAG(2006.5842,^0;1^Q"
^DD(2006.58431,.01,1,0)="^.1"
^DD(2006.58431,.01,1,1,0)="2006.58431^B"
^DD(2006.58431,.01,1,1,1)="S ^MAG(2006.5843,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.58431,.01,1,1,2)="K ^MAG(2006.5843,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.58431,.01,21,0)="^^1^1^3060509^"
^DD(2006.58431,.01,21,1,0)="The Site (Institution) where the images are acquired."
^DD(2006.58431,.01,"DT")="3060509"
^DD(2006.58431,.5,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(2006.58431,.5,21,0)="^.001^2^2^3060330^^"
^DD(2006.58431,.5,21,1,0)="The Status indicates whether or not the Reader Signed on to the "
^DD(2006.58431,.5,21,2,0)="TeleReader application can read a study from the Acquisition Site."
^DD(2006.58431,.5,"DT")="3060228"
^DD(2006.58431,1,0)="SPECIALTY INDEX^2006.584311PA^^1;0"
^DD(2006.58431,1,21,0)="^^1^1^3060503^"
^DD(2006.58431,1,21,1,0)="The SPECIALTY/SUBSPECIALTY of the image."
^DD(2006.58431,"B","ACQUISITION SITE",.01)=""
^DD(2006.58431,"B","SPECIALTY INDEX",1)=""
^DD(2006.58431,"B","STATUS",.5)=""
^DD(2006.58431,"GL",0,1,.01)=""
^DD(2006.58431,"GL",0,2,.5)=""
^DD(2006.58431,"GL",1,0,1)=""
^DD(2006.58431,"IX",.01)=""
^DD(2006.58431,"SB",2006.584311,1)=""
^DD(2006.584311,0)="SPECIALTY INDEX SUB-FIELD^^1^3"
^DD(2006.584311,0,"DT")="3060228"
^DD(2006.584311,0,"IX","B",2006.584311,.01)=""
^DD(2006.584311,0,"NM","SPECIALTY INDEX")=""
^DD(2006.584311,0,"UP")="2006.58431"
^DD(2006.584311,.01,0)="SPECIALTY INDEX^MP2005.84'^MAG(2005.84,^0;1^Q"
^DD(2006.584311,.01,1,0)="^.1"
^DD(2006.584311,.01,1,1,0)="2006.584311^B"
^DD(2006.584311,.01,1,1,1)="S ^MAG(2006.5843,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.584311,.01,1,1,2)="K ^MAG(2006.5843,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.584311,.01,21,0)="^^1^1^3060503^"
^DD(2006.584311,.01,21,1,0)="The SPECIALTY/SUBSPECIALTY of the image."
^DD(2006.584311,.01,"DT")="3051209"
^DD(2006.584311,.5,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(2006.584311,.5,21,0)="^^3^3^3060228^"
^DD(2006.584311,.5,21,1,0)="The Status indicates whether or not the Reader Signed on to the"
^DD(2006.584311,.5,21,2,0)="TeleReader application can read a study from the Acquisition Site for "
^DD(2006.584311,.5,21,3,0)="this specific Specialty."
^DD(2006.584311,.5,"DT")="3060228"
^DD(2006.584311,1,0)="PROCEDURE INDEX^2006.5843111PA^^1;0"
^DD(2006.584311,1,21,0)="^^1^1^3060503^"
^DD(2006.584311,1,21,1,0)="The PROCEDURE/EVENT of the image."
^DD(2006.584311,"B","PROCEDURE INDEX",1)=""
^DD(2006.584311,"B","SPECIALTY INDEX",.01)=""
^DD(2006.584311,"B","STATUS",.5)=""
^DD(2006.584311,"GL",0,1,.01)=""
^DD(2006.584311,"GL",0,2,.5)=""
^DD(2006.584311,"GL",1,0,1)=""
^DD(2006.584311,"IX",.01)=""
^DD(2006.584311,"SB",2006.5843111,1)=""
^DD(2006.5843111,0)="PROCEDURE INDEX SUB-FIELD^^1^3"
^DD(2006.5843111,0,"DT")="3060228"
^DD(2006.5843111,0,"IX","B",2006.5843111,.01)=""
^DD(2006.5843111,0,"NM","PROCEDURE INDEX")=""
^DD(2006.5843111,0,"UP")="2006.584311"
^DD(2006.5843111,.01,0)="PROCEDURE INDEX^MP2005.85'^MAG(2005.85,^0;1^Q"
^DD(2006.5843111,.01,1,0)="^.1"
^DD(2006.5843111,.01,1,1,0)="2006.5843111^B"
^DD(2006.5843111,.01,1,1,1)="S ^MAG(2006.5843,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.5843111,.01,1,1,2)="K ^MAG(2006.5843,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.5843111,.01,21,0)="^^1^1^3060503^"
^DD(2006.5843111,.01,21,1,0)="The PROCEDURE/EVENT of the image."
^DD(2006.5843111,.01,"DT")="3051209"
^DD(2006.5843111,.5,0)="STATUS^S^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(2006.5843111,.5,21,0)="^^3^3^3060228^"
^DD(2006.5843111,.5,21,1,0)="The Status indicates whether or not the Reader Signed on to the"
^DD(2006.5843111,.5,21,2,0)="TeleReader application and read a study from the Acquisition Site, for the"
^DD(2006.5843111,.5,21,3,0)="Specialty, for this specific Procedure."
^DD(2006.5843111,.5,"DT")="3060228"
^DD(2006.5843111,1,0)="USER PREFERENCE^S^1:ACTIVE;0:INACTIVE;^0;3^Q"
^DD(2006.5843111,1,3)=""
^DD(2006.5843111,1,21,0)="^^2^2^3060509^"
^DD(2006.5843111,1,21,1,0)="Determines whether or not the User will be able to read an image with this"
^DD(2006.5843111,1,21,2,0)="Procedure for the Specialty for the Acquisitions site."
^DD(2006.5843111,1,"DT")="3060509"
^DD(2006.5843111,"B","PROCEDURE INDEX",.01)=""
^DD(2006.5843111,"B","STATUS",.5)=""
^DD(2006.5843111,"B","USER PREFERENCE",1)=""
^DD(2006.5843111,"GL",0,1,.01)=""
^DD(2006.5843111,"GL",0,2,.5)=""
^DD(2006.5843111,"GL",0,3,1)=""
^DD(2006.5843111,"IX",.01)=""
^DD(2006.5849,0)="FIELD^^18^19"
^DD(2006.5849,0,"DDA")="N"
^DD(2006.5849,0,"DT")="3060921"
^DD(2006.5849,0,"IX","B",2006.5849,.01)=""
^DD(2006.5849,0,"IX","C",2006.5849,1)=""
^DD(2006.5849,0,"NM","TELEREADER READ/UNREAD LIST")=""
^DD(2006.5849,.01,0)="CONSULT REQUEST^RP123'^GMR(123,^0;1^Q"
^DD(2006.5849,.01,1,0)="^.1"
^DD(2006.5849,.01,1,1,0)="2006.5849^B"
^DD(2006.5849,.01,1,1,1)="S ^MAG(2006.5849,""B"",$E(X,1,30),DA)="""""
^DD(2006.5849,.01,1,1,2)="K ^MAG(2006.5849,""B"",$E(X,1,30),DA)"
^DD(2006.5849,.01,3)=""
^DD(2006.5849,.01,21,0)="^^1^1^3060509^"
^DD(2006.5849,.01,21,1,0)="The date and time the consult was requested."
^DD(2006.5849,.01,"DT")="3060509"
^DD(2006.5849,1,0)="ACQUISITION DIVISION NUMBER^P4'^DIC(4,^0;2^Q"
^DD(2006.5849,1,1,0)="^.1"
^DD(2006.5849,1,1,1,0)="2006.5849^C"
^DD(2006.5849,1,1,1,1)="S ^MAG(2006.5849,""C"",$E(X,1,30),DA)="""""
^DD(2006.5849,1,1,1,2)="K ^MAG(2006.5849,""C"",$E(X,1,30),DA)"
^DD(2006.5849,1,1,1,"DT")="3060421"
^DD(2006.5849,1,21,0)="^^1^1^3060509^"
^DD(2006.5849,1,21,1,0)="The site where the images are acquired."
^DD(2006.5849,1,"DT")="3060509"
^DD(2006.5849,2,0)="IMAGE INDEX FOR SPECIALTY^P2005.84'^MAG(2005.84,^0;3^Q"
^DD(2006.5849,2,21,0)="^^1^1^3060509^"
^DD(2006.5849,2,21,1,0)="The specific specialty as requested by the acquisition site."
^DD(2006.5849,2,"DT")="3060509"
^DD(2006.5849,3,0)="IMAGE INDEX FOR PROCEDURE^P2005.85'^MAG(2005.85,^0;4^Q"
^DD(2006.5849,3,21,0)="^^1^1^3060503^"
^DD(2006.5849,3,21,1,0)="The procedure performed by the acquisition site."
^DD(2006.5849,3,"DT")="3060117"
^DD(2006.5849,4,0)="CONSULT ORDERED/FORWARDED^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,4,21,0)="^^2^2^3060503^"
^DD(2006.5849,4,21,1,0)="The Date/Time that the consult was ordered or forwarded to the remote"
^DD(2006.5849,4,21,2,0)="site."
^DD(2006.5849,4,"DT")="3051212"
^DD(2006.5849,5,0)="REMOTE SITE RESPONSE^D^^0;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,5,3)=""
^DD(2006.5849,5,21,0)="^^2^2^3060503^"
^DD(2006.5849,5,21,1,0)="The Date/Time that the remote site responds to the IFC request by creating"
^DD(2006.5849,5,21,2,0)="a remote consult."
^DD(2006.5849,5,"DT")="3051212"
^DD(2006.5849,6,0)="ACQUISITION START^D^^0;7^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,6,3)=""
^DD(2006.5849,6,21,0)="^^1^1^3060503^"
^DD(2006.5849,6,21,1,0)="The start date and time of the acquisition of images."
^DD(2006.5849,6,"DT")="3051212"
^DD(2006.5849,7,0)="NEXT ACQUISITION^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,7,3)=""
^DD(2006.5849,7,21,0)="^^1^1^3060503^"
^DD(2006.5849,7,21,1,0)="The date and time of the acquisition of additional images."
^DD(2006.5849,7,"DT")="3051212"
^DD(2006.5849,8,0)="LAST ACTIVITY^D^^0;9^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,8,3)=""
^DD(2006.5849,8,21,0)="^^1^1^3060503^"
^DD(2006.5849,8,21,1,0)="The date and time of the last activity."
^DD(2006.5849,8,"DT")="3051212"
^DD(2006.5849,9,0)="NUMBER OF IMAGES^NJ5,0^^0;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5849,9,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2006.5849,9,21,0)="^^1^1^3060503^"
^DD(2006.5849,9,21,1,0)="The number of images acquired."
^DD(2006.5849,9,"DT")="3051212"
^DD(2006.5849,10,0)="STATUS^S^C:Cancelled;W:Waiting;R:Read;L:Locked;U:Unread;D:Deleted;^0;11^Q"
^DD(2006.5849,10,1,0)="^.1^^0"
^DD(2006.5849,10,21,0)="^^1^1^3060509^"
^DD(2006.5849,10,21,1,0)="The status of the exam; read, unread, etc., in the TeleReader program."
^DD(2006.5849,10,"DT")="3060509"
^DD(2006.5849,11,0)="FULL NAME OF READER^F^^0;12^K:$L(X)>35!($L(X)<1) X"
^DD(2006.5849,11,3)="Answer must be 1-35 characters in length."
^DD(2006.5849,11,21,0)="^^1^1^3060509^"
^DD(2006.5849,11,21,1,0)="The name of the person who will be reading the exam."
^DD(2006.5849,11,"DT")="3060509"
^DD(2006.5849,12,0)="READER'S INITIALS^F^^0;13^K:$L(X)>5!($L(X)<1) X"
^DD(2006.5849,12,3)="Answer must be 1-5 characters in length."
^DD(2006.5849,12,21,0)="^^1^1^3060503^"
^DD(2006.5849,12,21,1,0)="The initials of the person responsible for reading the exam."
^DD(2006.5849,12,"DT")="3051212"
^DD(2006.5849,13,0)="READER DUZ AT ACQUISITION SITE^P200'^VA(200,^0;14^Q"
^DD(2006.5849,13,3)=""
^DD(2006.5849,13,21,0)="^^1^1^3060503^"
^DD(2006.5849,13,21,1,0)="The Reader's DUZ at the Acquisition Site."
^DD(2006.5849,13,"DT")="3060203"
^DD(2006.5849,14,0)="READER DUZ AT READING SITE^NJ10,0^^0;15^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.5849,14,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2006.5849,14,21,0)="^^1^1^3060509^"
^DD(2006.5849,14,21,1,0)="The DUZ of the person reading the exam at the Reader's Site."
^DD(2006.5849,14,"DT")="3060509"
^DD(2006.5849,15,0)="READER SITE^P4'^DIC(4,^0;16^Q"
^DD(2006.5849,15,3)=""
^DD(2006.5849,15,21,0)="^^1^1^3060503^"
^DD(2006.5849,15,21,1,0)="The division where the reader is located."
^DD(2006.5849,15,"DT")="3060203"
^DD(2006.5849,16,0)="READING START^D^^0;17^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,16,3)=""
^DD(2006.5849,16,21,0)="^^1^1^3060503^"
^DD(2006.5849,16,21,1,0)="The date and time when the exam is selected to be read."
^DD(2006.5849,16,"DT")="3060203"
^DD(2006.5849,17,0)="READING STOP^D^^0;18^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,17,1,0)="^.1^^0"
^DD(2006.5849,17,21,0)="^^1^1^3060503^"
^DD(2006.5849,17,21,1,0)="The date and time when the reader completes the reading of the exam."
^DD(2006.5849,17,"DT")="3060421"
^DD(2006.5849,18,0)="REPAIR DATE/TIME^D^^0;19^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.5849,18,3)="DATE AND TIME OF REPAIRING ENTRY"
^DD(2006.5849,18,"DT")="3060921"
^DD(2006.5849,"B","ACQUISITION DIVISION NUMBER",1)=""
^DD(2006.5849,"B","ACQUISITION START",6)=""
^DD(2006.5849,"B","CONSULT ORDERED/FORWARDED",4)=""
^DD(2006.5849,"B","CONSULT REQUEST",.01)=""
^DD(2006.5849,"B","FULL NAME OF READER",11)=""
^DD(2006.5849,"B","IMAGE INDEX FOR PROCEDURE",3)=""
^DD(2006.5849,"B","IMAGE INDEX FOR SPECIALTY",2)=""
^DD(2006.5849,"B","LAST ACTIVITY",8)=""
^DD(2006.5849,"B","NEXT ACQUISITION",7)=""
^DD(2006.5849,"B","NUMBER OF IMAGES",9)=""
^DD(2006.5849,"B","READER DUZ AT ACQUISITION SITE",13)=""
^DD(2006.5849,"B","READER DUZ AT READING SITE",14)=""
^DD(2006.5849,"B","READER SITE",15)=""
^DD(2006.5849,"B","READER'S INITIALS",12)=""
^DD(2006.5849,"B","READING START",16)=""
^DD(2006.5849,"B","READING STOP",17)=""
^DD(2006.5849,"B","REMOTE SITE RESPONSE",5)=""
^DD(2006.5849,"B","REPAIR DATE/TIME",18)=""
^DD(2006.5849,"B","STATUS",10)=""
^DD(2006.5849,"GL",0,1,.01)=""
^DD(2006.5849,"GL",0,2,1)=""
^DD(2006.5849,"GL",0,3,2)=""
^DD(2006.5849,"GL",0,4,3)=""
^DD(2006.5849,"GL",0,5,4)=""
^DD(2006.5849,"GL",0,6,5)=""
^DD(2006.5849,"GL",0,7,6)=""
^DD(2006.5849,"GL",0,8,7)=""
^DD(2006.5849,"GL",0,9,8)=""
^DD(2006.5849,"GL",0,10,9)=""
^DD(2006.5849,"GL",0,11,10)=""
^DD(2006.5849,"GL",0,12,11)=""
^DD(2006.5849,"GL",0,13,12)=""
^DD(2006.5849,"GL",0,14,13)=""
^DD(2006.5849,"GL",0,15,14)=""
^DD(2006.5849,"GL",0,16,15)=""
^DD(2006.5849,"GL",0,17,16)=""
^DD(2006.5849,"GL",0,18,17)=""
^DD(2006.5849,"GL",0,19,18)=""
^DD(2006.5849,"IX",.01)=""
^DD(2006.5849,"IX",1)=""
^DD(2006.5849,"RQ",.01)=""
^DD(2006.585,0)="FIELD^^8^8"
^DD(2006.585,0,"DDA")="N"
^DD(2006.585,0,"DT")="3050603"
^DD(2006.585,0,"IX","B",2006.585,.01)=""
^DD(2006.585,0,"NM","USER APPLICATION")=""
^DD(2006.585,0,"PT",2006.035,1)=""
^DD(2006.585,0,"PT",2006.563,94)=""
^DD(2006.585,0,"PT",2006.565,2)=""
^DD(2006.585,0,"VR")="3.0"
^DD(2006.585,0,"VRPK")="IMAGING"
^DD(2006.585,.01,0)="SERVICE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.585,.01,1,0)="^.1"
^DD(2006.585,.01,1,1,0)="2006.585^B"
^DD(2006.585,.01,1,1,1)="S ^MAGDICOM(2006.585,""B"",$E(X,1,30),DA)="""""
^DD(2006.585,.01,1,1,2)="K ^MAGDICOM(2006.585,""B"",$E(X,1,30),DA)"
^DD(2006.585,.01,3)="Enter the name of the service that is provided by this application."
^DD(2006.585,.01,21,0)="^^3^3^3000222^^"
^DD(2006.585,.01,21,1,0)="The value of this field is a string that specifies"
^DD(2006.585,.01,21,2,0)="the name of the service that is called for the application described in the"
^DD(2006.585,.01,21,3,0)="current entry."
^DD(2006.585,.01,"DT")="2990830"
^DD(2006.585,2,0)="SOP CLASS^2006.5852A^^1;0"
^DD(2006.585,3,0)="CALLED AE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.585,3,.1)="Called Application Entity"
^DD(2006.585,3,3)="Enter the AE Title of the application being called."
^DD(2006.585,3,21,0)="^^3^3^3000302^^"
^DD(2006.585,3,21,1,0)="The value of this field is a string that specifies"
^DD(2006.585,3,21,2,0)="the Application Entity Title for the equipment being"
^DD(2006.585,3,21,3,0)="called for the application that is described in the current entry."
^DD(2006.585,3,"DT")="2991118"
^DD(2006.585,4,0)="CALLING AE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(2006.585,4,3)="Enter the AE Title of the entity that calls for the application."
^DD(2006.585,4,21,0)="^^3^3^3000222^^"
^DD(2006.585,4,21,1,0)="The value of this field is a string that specifies"
^DD(2006.585,4,21,2,0)="the Application Entity Title for the equipment from which"
^DD(2006.585,4,21,3,0)="the application is called that is described in the current entry."
^DD(2006.585,4,"DT")="2991118"
^DD(2006.585,5,0)="DESTINATION^F^^0;4^K:$L(X)>16!($L(X)<1) X"
^DD(2006.585,5,3)="Enter the TCP/IP address of the called application entity."
^DD(2006.585,5,21,0)="^^2^2^3000222^^"
^DD(2006.585,5,21,1,0)="The value of this field is a string that specifies the TCP/IP address"
^DD(2006.585,5,21,2,0)="of the called application entity."
^DD(2006.585,5,"DT")="2991118"
^DD(2006.585,6,0)="PORT^NJ5,0^^0;5^K:+X'=X!(X>65536)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.585,6,3)="Enter the TCP/IP port number for the called application entity."
^DD(2006.585,6,21,0)="^^5^5^3000222^^"
^DD(2006.585,6,21,1,0)="The value of this field is an integer number that"
^DD(2006.585,6,21,2,0)="identifies the TCP/IP port number to which the"
^DD(2006.585,6,21,3,0)="equipment connects calls the application that is described in this entry."
^DD(2006.585,6,21,4,0)=" "
^DD(2006.585,6,21,5,0)="TCP/IP port numbers are integers between 1 and 65535."
^DD(2006.585,6,"DT")="2991118"
^DD(2006.585,7,0)="PACS^S^GE:General Electric;KODAK:Kodak;^0;6^Q"
^DD(2006.585,7,3)="Enter the type of PACS."
^DD(2006.585,7,21,0)="^^6^6^3050603^"
^DD(2006.585,7,21,1,0)="The value of this parameter is a string. This string can be"
^DD(2006.585,7,21,2,0)="one of a limited number of values. This value identifies"
^DD(2006.585,7,21,3,0)="the kind of PACS that hosts the current storage provider."
^DD(2006.585,7,21,4,0)=" "
^DD(2006.585,7,21,5,0)="Supported types are currently: GE (General Electric)"
^DD(2006.585,7,21,6,0)="and KODAK."
^DD(2006.585,7,"DT")="3050603"
^DD(2006.585,8,0)="PRIORITY^NJ10,0^^0;7^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.585,8,3)="Enter the relative priority of transmissions to this SCP (default is 500)."
^DD(2006.585,8,21,0)="^^6^6^3050603^"
^DD(2006.585,8,21,1,0)="The value of this field is a positive integer number."
^DD(2006.585,8,21,2,0)="This number identifies the relative priority of transmissions"
^DD(2006.585,8,21,3,0)="to the SCP that is described in this record."
^DD(2006.585,8,21,4,0)=" "
^DD(2006.585,8,21,5,0)="This field is optional. If no value is specified, a default value"
^DD(2006.585,8,21,6,0)="of 500 will be used."
^DD(2006.585,8,"DT")="3050603"
^DD(2006.585,"B","CALLED AE",3)=""
^DD(2006.585,"B","CALLING AE",4)=""
^DD(2006.585,"B","Called Application Entity",3)="1"
^DD(2006.585,"B","DESTINATION",5)=""
^DD(2006.585,"B","PACS",7)=""
^DD(2006.585,"B","PORT",6)=""
^DD(2006.585,"B","PRIORITY",8)=""
^DD(2006.585,"B","SERVICE",.01)=""
^DD(2006.585,"B","SOP CLASS",2)=""
^DD(2006.585,"GL",0,1,.01)=""
^DD(2006.585,"GL",0,2,3)=""
^DD(2006.585,"GL",0,3,4)=""
^DD(2006.585,"GL",0,4,5)=""
^DD(2006.585,"GL",0,5,6)=""
^DD(2006.585,"GL",0,6,7)=""
^DD(2006.585,"GL",0,7,8)=""
^DD(2006.585,"GL",1,0,2)=""
^DD(2006.585,"IX",.01)=""
^DD(2006.585,"RQ",.01)=""
^DD(2006.585,"SB",2006.5852,2)=""
^DD(2006.5852,0)="SOP CLASS SUB-FIELD^^2^2"
^DD(2006.5852,0,"DT")="3000222"
^DD(2006.5852,0,"NM","SOP CLASS")=""
^DD(2006.5852,0,"UP")="2006.585"
^DD(2006.5852,.01,0)="SOP CLASS^F^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(2006.5852,.01,1,0)="^.1^^0"
^DD(2006.5852,.01,3)="Enter the name of the SOP Class."
^DD(2006.5852,.01,21,0)="^^4^4^3000222^^"
^DD(2006.5852,.01,21,1,0)="The value of this field is a string that specifies"
^DD(2006.5852,.01,21,2,0)="the name of the SOP class that is supported by the service"
^DD(2006.5852,.01,21,3,0)="that is called for the application that is described"
^DD(2006.5852,.01,21,4,0)="in the current entry."
^DD(2006.5852,.01,"DT")="3000222"
^DD(2006.5852,2,0)="TRANSFER SYNTAX^2006.58522A^^1;0"
^DD(2006.5852,"B","SOP CLASS",.01)=""
^DD(2006.5852,"B","TRANSFER SYNTAX",2)=""
^DD(2006.5852,"GL",0,1,.01)=""
^DD(2006.5852,"GL",1,0,2)=""
^DD(2006.5852,"SB",2006.58522,2)=""
^DD(2006.58522,0)="TRANSFER SYNTAX SUB-FIELD^^.01^1"
^DD(2006.58522,0,"DT")="3000222"
^DD(2006.58522,0,"IX","B",2006.58522,.01)=""
^DD(2006.58522,0,"NM","TRANSFER SYNTAX")=""
^DD(2006.58522,0,"UP")="2006.5852"
^DD(2006.58522,.01,0)="TRANSFER SYNTAX^F^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(2006.58522,.01,1,0)="^.1"
^DD(2006.58522,.01,1,1,0)="2006.58522^B"
^DD(2006.58522,.01,1,1,1)="S ^MAGDICOM(2006.585,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.58522,.01,1,1,2)="K ^MAGDICOM(2006.585,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.58522,.01,1,2,0)="2006.58522^B"
^DD(2006.58522,.01,1,2,1)="S ^MAGDICOM(2006.585,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.58522,.01,1,2,2)="K ^MAGDICOM(2006.585,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.58522,.01,1,2,"DT")="3000222"
^DD(2006.58522,.01,3)="Enter the name of the transfer syntax."
^DD(2006.58522,.01,21,0)="^^10^10^3000222^^"
^DD(2006.58522,.01,21,1,0)="The value of this field is a string that specifies"
^DD(2006.58522,.01,21,2,0)="a transfer syntax that may be used for the service"
^DD(2006.58522,.01,21,3,0)="that is called for the application that is described"
^DD(2006.58522,.01,21,4,0)="in the current entry."
^DD(2006.58522,.01,21,5,0)=" "
^DD(2006.58522,.01,21,6,0)="Possible values for this field are:"
^DD(2006.58522,.01,21,7,0)="   Implicit VR Little Endian"
^DD(2006.58522,.01,21,8,0)="   Implicit VR Big Endian"
^DD(2006.58522,.01,21,9,0)="   Explicit VR Little Endian"
^DD(2006.58522,.01,21,10,0)="   Explicit VR Big Endian"
^DD(2006.58522,.01,"DT")="3000222"
^DD(2006.58522,"B","TRANSFER SYNTAX",.01)=""
^DD(2006.58522,"GL",0,1,.01)=""
^DD(2006.58522,"IX",.01)=""
^DD(2006.586,0)="FIELD^^3^3"
^DD(2006.586,0,"DDA")="N"
^DD(2006.586,0,"DT")="2990830"
^DD(2006.586,0,"IX","B",2006.586,.01)=""
^DD(2006.586,0,"NM","PROVIDER APPLICATION")=""
^DD(2006.586,0,"VR")="3.0"
^DD(2006.586,0,"VRPK")="IMAGING"
^DD(2006.586,.01,0)="AETITLE^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2006.586,.01,1,0)="^.1"
^DD(2006.586,.01,1,1,0)="2006.586^B"
^DD(2006.586,.01,1,1,1)="S ^MAGDICOM(2006.586,""B"",$E(X,1,30),DA)="""""
^DD(2006.586,.01,1,1,2)="K ^MAGDICOM(2006.586,""B"",$E(X,1,30),DA)"
^DD(2006.586,.01,3)="Enter the Application Entity Title for the device that provides this application."
^DD(2006.586,.01,21,0)="^^3^3^3000223^^"
^DD(2006.586,.01,21,1,0)="The value of this field is a string that specifies"
^DD(2006.586,.01,21,2,0)="the Application Entity Title for the equipment that"
^DD(2006.586,.01,21,3,0)="acts as a provider for the application that is described in the current entry."
^DD(2006.586,.01,"DT")="2981113"
^DD(2006.586,2,0)="APPNAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.586,2,3)="Enter name of this Application."
^DD(2006.586,2,21,0)="^^3^3^3000223^^"
^DD(2006.586,2,21,1,0)="The value of this field is a string that specifies"
^DD(2006.586,2,21,2,0)="the name of the application that is described in the"
^DD(2006.586,2,21,3,0)="current entry."
^DD(2006.586,2,"DT")="2981113"
^DD(2006.586,3,0)="SOP^2006.5863A^^1;0"
^DD(2006.586,"B","AETITLE",.01)=""
^DD(2006.586,"B","APPNAME",2)=""
^DD(2006.586,"B","SOP",3)=""
^DD(2006.586,"GL",0,1,.01)=""
^DD(2006.586,"GL",0,2,2)=""
^DD(2006.586,"GL",1,0,3)=""
^DD(2006.586,"IX",.01)=""
^DD(2006.586,"RQ",.01)=""
^DD(2006.586,"SB",2006.5863,3)=""
^DD(2006.5863,0)="SOP SUB-FIELD^^3^3"
^DD(2006.5863,0,"DT")="2990830"
^DD(2006.5863,0,"IX","B",2006.5863,.01)=""
^DD(2006.5863,0,"NM","SOP")=""
^DD(2006.5863,0,"UP")="2006.586"
^DD(2006.5863,.01,0)="SOP UID^F^^0;1^K:$L(X)>63!($L(X)<1) X"
^DD(2006.5863,.01,1,0)="^.1"
^DD(2006.5863,.01,1,1,0)="2006.5863^B"
^DD(2006.5863,.01,1,1,1)="S ^MAGDICOM(2006.586,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.5863,.01,1,1,2)="K ^MAGDICOM(2006.586,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.5863,.01,3)="Enter the SOP Class UID for this class."
^DD(2006.5863,.01,21,0)="^^6^6^3000223^^"
^DD(2006.5863,.01,21,1,0)="The value of this field is a string that specifies"
^DD(2006.5863,.01,21,2,0)="the a unique identifier for a SOP class that is supported by the service"
^DD(2006.5863,.01,21,3,0)="that is called for the application that is described"
^DD(2006.5863,.01,21,4,0)="in the current entry."
^DD(2006.5863,.01,21,5,0)=" "
^DD(2006.5863,.01,21,6,0)="Such unique identifiers are defined in the DICOM standard."
^DD(2006.5863,.01,"DT")="2981113"
^DD(2006.5863,2,0)="SOP CLASS^F^^0;2^K:$L(X)>63!($L(X)<1) X"
^DD(2006.5863,2,3)="Enter the name of this SOP class."
^DD(2006.5863,2,21,0)="^^4^4^3000223^^"
^DD(2006.5863,2,21,1,0)="The value of this field is a string that specifies"
^DD(2006.5863,2,21,2,0)="the name of a SOP class that is supported by the service"
^DD(2006.5863,2,21,3,0)="that is called for the application that is described"
^DD(2006.5863,2,21,4,0)="in the current entry."
^DD(2006.5863,2,"DT")="2981113"
^DD(2006.5863,3,0)="TRANSFER SYNTAX UID^2006.58633A^^1;0"
^DD(2006.5863,"B","SOP CLASS",2)=""
^DD(2006.5863,"B","SOP UID",.01)=""
^DD(2006.5863,"B","TRANSFER SYNTAX UID",3)=""
^DD(2006.5863,"GL",0,1,.01)=""
^DD(2006.5863,"GL",0,2,2)=""
^DD(2006.5863,"GL",1,0,3)=""
^DD(2006.5863,"IX",.01)=""
^DD(2006.5863,"SB",2006.58633,3)=""
^DD(2006.58633,0)="TRANSFER SYNTAX UID SUB-FIELD^^2^2"
^DD(2006.58633,0,"DT")="2990830"
^DD(2006.58633,0,"IX","B",2006.58633,.01)=""
^DD(2006.58633,0,"NM","TRANSFER SYNTAX UID")=""
^DD(2006.58633,0,"UP")="2006.5863"
^DD(2006.58633,.01,0)="TRANSFER SYNTAX UID^F^^0;1^K:$L(X)>64!($L(X)<1) X"
^DD(2006.58633,.01,1,0)="^.1"
^DD(2006.58633,.01,1,1,0)="2006.58633^B"
^DD(2006.58633,.01,1,1,1)="S ^MAGDICOM(2006.586,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.58633,.01,1,1,2)="K ^MAGDICOM(2006.586,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.58633,.01,3)="Enter the UID for a transfer syntax that is supported for this SOP Class."
^DD(2006.58633,.01,21,0)="^^7^7^3000223^^"
^DD(2006.58633,.01,21,1,0)="The value of this field is a string that specifies"
^DD(2006.58633,.01,21,2,0)="the a unique identifier for a transfer syntax"
^DD(2006.58633,.01,21,3,0)="that is supported for a SOP class that is supported by the service"
^DD(2006.58633,.01,21,4,0)="that is called for the application that is described"
^DD(2006.58633,.01,21,5,0)="in the current entry."
^DD(2006.58633,.01,21,6,0)=" "
^DD(2006.58633,.01,21,7,0)="Such unique identifiers are defined in the DICOM standard."
^DD(2006.58633,.01,"DT")="2990830"
^DD(2006.58633,2,0)="TRANSFER SYNTAX NAME^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(2006.58633,2,3)="Enter the name of a transfer syntax that is supported for this SOP Class."
^DD(2006.58633,2,21,0)="^^10^10^3000223^^"
^DD(2006.58633,2,21,1,0)="The value of this field is a string that specifies"
^DD(2006.58633,2,21,2,0)="a transfer syntax that may be used for the service"
^DD(2006.58633,2,21,3,0)="that is called for the application that is described"
^DD(2006.58633,2,21,4,0)="in the current entry."
^DD(2006.58633,2,21,5,0)=" "
^DD(2006.58633,2,21,6,0)="Possible values for this field are:"
^DD(2006.58633,2,21,7,0)="   Implicit VR Little Endian"
^DD(2006.58633,2,21,8,0)="   Implicit VR Big Endian"
^DD(2006.58633,2,21,9,0)="   Explicit VR Little Endian"
^DD(2006.58633,2,21,10,0)="   Explicit VR Big Endian"
^DD(2006.58633,2,"DT")="2990830"
^DD(2006.58633,"B","TRANSFER SYNTAX NAME",2)=""
^DD(2006.58633,"B","TRANSFER SYNTAX UID",.01)=""
^DD(2006.58633,"GL",0,1,.01)=""
^DD(2006.58633,"GL",0,2,2)=""
^DD(2006.58633,"IX",.01)=""
^DD(2006.587,0)="FIELD^^8^8"
^DD(2006.587,0,"DT")="3030514"
^DD(2006.587,0,"IX","B",2006.587,.01)=""
^DD(2006.587,0,"NM","DICOM TRANSMIT DESTINATION")=""
^DD(2006.587,0,"PT",2005.0111,3)=""
^DD(2006.587,0,"PT",2005.1111,3)=""
^DD(2006.587,0,"PT",2006.035,1)=""
^DD(2006.587,.01,0)="SERVICE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.587,.01,1,0)="^.1"
^DD(2006.587,.01,1,1,0)="2006.587^B"
^DD(2006.587,.01,1,1,1)="S ^MAG(2006.587,""B"",$E(X,1,30),DA)="""""
^DD(2006.587,.01,1,1,2)="K ^MAG(2006.587,""B"",$E(X,1,30),DA)"
^DD(2006.587,.01,3)="Enter the name of the Service Class Provider."
^DD(2006.587,.01,21,0)="^^2^2^3030514^^"
^DD(2006.587,.01,21,1,0)="The value of this field is a string that specifies the name of the"
^DD(2006.587,.01,21,2,0)="service that is called for the application described in the current entry."
^DD(2006.587,.01,"DT")="3050609"
^DD(2006.587,2,0)="SERVICE PROVIDER AE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2006.587,2,3)="Enter the Application Entity Title of the Service Class Provider."
^DD(2006.587,2,21,0)="^^3^3^3030514^^"
^DD(2006.587,2,21,1,0)="The value of this field is a string that specifies the Application"
^DD(2006.587,2,21,2,0)="Entity Title for the equipment being called for the application that"
^DD(2006.587,2,21,3,0)="is described in the current entry."
^DD(2006.587,2,"DT")="3030514"
^DD(2006.587,3,0)="IP ADDRESS^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(2006.587,3,3)="Enter the TCP/IP address of the Service Class Provider."
^DD(2006.587,3,21,0)="^^2^2^3030514^^"
^DD(2006.587,3,21,1,0)="The value of this field is a string that specifies the TCP/IP address"
^DD(2006.587,3,21,2,0)="of the called application entity."
^DD(2006.587,3,"DT")="3030514"
^DD(2006.587,4,0)="PORT NUMBER^NJ5,0^^0;4^K:+X'=X!(X>65535)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.587,4,3)="Enter the port number for the Service Class Provider."
^DD(2006.587,4,21,0)="^^3^3^3030514^^"
^DD(2006.587,4,21,1,0)="The value of this field is an integer number that identifies the TCP/IP"
^DD(2006.587,4,21,2,0)="port number to which the equipment connects calls the application that"
^DD(2006.587,4,21,3,0)="is described in this entry. "
^DD(2006.587,4,"DT")="3030514"
^DD(2006.587,5,0)="GATEWAY SYSTEM TITLE^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(2006.587,5,3)="Enter the system title of the DICOM Gateway."
^DD(2006.587,5,21,0)="^^5^5^3030514^^"
^DD(2006.587,5,21,1,0)="The value of this field is a text that identifies the computer that"
^DD(2006.587,5,21,2,0)="communicates with this service class provider."
^DD(2006.587,5,21,3,0)=" "
^DD(2006.587,5,21,4,0)="Note that each VistA DICOM Gateway computer has its own copy of ^MAGDICOM,"
^DD(2006.587,5,21,5,0)="in which its station-parameters are stored."
^DD(2006.587,5,"DT")="3050609"
^DD(2006.587,6,0)="GATEWAY AE^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(2006.587,6,3)="Enter the Application Entity Title of the DICOM Gateway"
^DD(2006.587,6,21,0)="^^3^3^3030514^^"
^DD(2006.587,6,21,1,0)="The value of this field is a string that specifies the Application"
^DD(2006.587,6,21,2,0)="Entity Title for the VistA DICOM Gatewat from which the application is called"
^DD(2006.587,6,21,3,0)="that is described in the current entry."
^DD(2006.587,6,"DT")="3030514"
^DD(2006.587,7,0)="GATEWAY LOCATION^RP4'^DIC(4,^0;7^Q"
^DD(2006.587,7,3)="Identify the clinic where the DICOM Gateway is located."
^DD(2006.587,7,21,0)="^^2^2^3030514^^"
^DD(2006.587,7,21,1,0)="The value of this field is a pointer to the Institution file (#4)."
^DD(2006.587,7,21,2,0)="This value identifies the institution where this DICOM Gateway computer resides."
^DD(2006.587,7,"DT")="3050609"
^DD(2006.587,8,0)="TIMESTAMP^RD^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.587,8,3)="Enter the date and time of this update."
^DD(2006.587,8,"DT")="3030514"
^DD(2006.587,"B","GATEWAY AE",6)=""
^DD(2006.587,"B","GATEWAY LOCATION",7)=""
^DD(2006.587,"B","GATEWAY SYSTEM TITLE",5)=""
^DD(2006.587,"B","IP ADDRESS",3)=""
^DD(2006.587,"B","PORT NUMBER",4)=""
^DD(2006.587,"B","SERVICE NAME",.01)=""
^DD(2006.587,"B","SERVICE PROVIDER AE",2)=""
^DD(2006.587,"B","TIMESTAMP",8)=""
^DD(2006.587,"GL",0,1,.01)=""
^DD(2006.587,"GL",0,2,2)=""
^DD(2006.587,"GL",0,3,3)=""
^DD(2006.587,"GL",0,4,4)=""
^DD(2006.587,"GL",0,5,5)=""
^DD(2006.587,"GL",0,6,6)=""
^DD(2006.587,"GL",0,7,7)=""
^DD(2006.587,"GL",0,8,8)=""
^DD(2006.587,"IX",.01)=""
^DD(2006.587,"RQ",.01)=""
^DD(2006.587,"RQ",7)=""
^DD(2006.587,"RQ",8)=""
^DD(2006.59,0)="FIELD^^4^5"
^DD(2006.59,0,"DDA")="N"
^DD(2006.59,0,"DT")="2981112"
^DD(2006.59,0,"NM","ROUTING RULE")=""
^DD(2006.59,0,"PT",2006.5906,.01)=""
^DD(2006.59,0,"VR")="3.0"
^DD(2006.59,0,"VRPK")="MAG"
^DD(2006.59,.01,0)="RULE NUMBER^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.59,.01,.1)="Rule Number"
^DD(2006.59,.01,1,0)="^.1^^0"
^DD(2006.59,.01,3)="Enter an integer number that uniquely identifies a rule."
^DD(2006.59,.01,21,0)="^^2^2^3000223^^"
^DD(2006.59,.01,21,1,0)="The value of this field is an integer number"
^DD(2006.59,.01,21,2,0)="that uniquely identifies a routing rule."
^DD(2006.59,.01,"DT")="2980921"
^DD(2006.59,1,0)="RAW TEXT^2006.5901A^^1;0"
^DD(2006.59,2,0)="ACTION^2006.5902A^^ACTION;0"
^DD(2006.59,3,0)="CONDITION^2006.5904A^^CONDITION;0"
^DD(2006.59,4,0)="PRIORITY^S^HIGH:High;NORMAL:Normal;LOW:Low;^PRIORITY;1^Q"
^DD(2006.59,4,3)="Enter a priority for this action (High, Normal or Low)."
^DD(2006.59,4,21,0)="^^3^3^3000223^^"
^DD(2006.59,4,21,1,0)="The value of this field is a priority to be assigned to this action."
^DD(2006.59,4,21,2,0)="The priority will be observed by the queue manager that takes"
^DD(2006.59,4,21,3,0)="actions off a queue."
^DD(2006.59,4,"DT")="2981112"
^DD(2006.59,"B","ACTION",2)=""
^DD(2006.59,"B","CONDITION",3)=""
^DD(2006.59,"B","PRIORITY",4)=""
^DD(2006.59,"B","RAW TEXT",1)=""
^DD(2006.59,"B","RULE NUMBER",.01)=""
^DD(2006.59,"B","Rule Number",.01)="1"
^DD(2006.59,"GL",0,1,.01)=""
^DD(2006.59,"GL",1,0,1)=""
^DD(2006.59,"GL","ACTION",0,2)=""
^DD(2006.59,"GL","CONDITION",0,3)=""
^DD(2006.59,"GL","PRIORITY",1,4)=""
^DD(2006.59,"RQ",.01)=""
^DD(2006.59,"SB",2006.5901,1)=""
^DD(2006.59,"SB",2006.5902,2)=""
^DD(2006.59,"SB",2006.5904,3)=""
^DD(2006.5901,0)="RAW TEXT SUB-FIELD^^.01^1"
^DD(2006.5901,0,"DT")="2980911"
^DD(2006.5901,0,"NM","RAW TEXT")=""
^DD(2006.5901,0,"UP")="2006.59"
^DD(2006.5901,.01,0)="LINE^MRF^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(2006.5901,.01,1,0)="^.1^^0"
^DD(2006.5901,.01,3)="Enter a text that defines a routing rule."
^DD(2006.5901,.01,21,0)="^^7^7^3000223^^"
^DD(2006.5901,.01,21,1,0)="The value of this field is a line of text that would"
^DD(2006.5901,.01,21,2,0)="be read from the file 'route.dic'."
^DD(2006.5901,.01,21,3,0)=" "
^DD(2006.5901,.01,21,4,0)="The text in this file specifies a group of routing"
^DD(2006.5901,.01,21,5,0)="rules. The further fields in this file contain the"
^DD(2006.5901,.01,21,6,0)="parsed values from these texts that are used to"
^DD(2006.5901,.01,21,7,0)="evaluate the rules at run time."
^DD(2006.5901,.01,"DT")="2990422"
^DD(2006.5901,"B","LINE",.01)=""
^DD(2006.5901,"GL",0,1,.01)=""
^DD(2006.5901,"RQ",.01)=""
^DD(2006.5902,0)="ACTION SUB-FIELD^^1^2"
^DD(2006.5902,0,"DT")="2980911"
^DD(2006.5902,0,"NM","ACTION")=""
^DD(2006.5902,0,"UP")="2006.59"
^DD(2006.5902,.01,0)="VERB^F^^0;1^K:$L(X)>31!($L(X)<1) X"
^DD(2006.5902,.01,1,0)="^.1^^0"
^DD(2006.5902,.01,3)="Enter a verb like 'SEND' or 'BALANCE'."
^DD(2006.5902,.01,21,0)="^^5^5^3000223^^"
^DD(2006.5902,.01,21,1,0)="The value of this field is a string that defines"
^DD(2006.5902,.01,21,2,0)="the action-verb for the rule at hand."
^DD(2006.5902,.01,21,3,0)=" "
^DD(2006.5902,.01,21,4,0)="Currently, only 'SEND' and 'BALANCE' are defined"
^DD(2006.5902,.01,21,5,0)="actions."
^DD(2006.5902,.01,"DT")="2990422"
^DD(2006.5902,1,0)="PARAMETER^2006.5903A^^1;0"
^DD(2006.5902,"B","PARAMETER",1)=""
^DD(2006.5902,"B","VERB",.01)=""
^DD(2006.5902,"GL",0,1,.01)=""
^DD(2006.5902,"GL",1,0,1)=""
^DD(2006.5902,"SB",2006.5903,1)=""
^DD(2006.5903,0)="PARAMETER SUB-FIELD^^.01^1"
^DD(2006.5903,0,"DT")="2980911"
^DD(2006.5903,0,"NM","PARAMETER")=""
^DD(2006.5903,0,"UP")="2006.5902"
^DD(2006.5903,.01,0)="VALUE^F^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(2006.5903,.01,1,0)="^.1^^0"
^DD(2006.5903,.01,3)="Enter the value of a positional parameter."
^DD(2006.5903,.01,21,0)="^^5^5^3000223^^"
^DD(2006.5903,.01,21,1,0)="The value of this field is a string that defines"
^DD(2006.5903,.01,21,2,0)="a parameter to a routing rule."
^DD(2006.5903,.01,21,3,0)=" "
^DD(2006.5903,.01,21,4,0)="For the verb 'SEND', the parameter would be the"
^DD(2006.5903,.01,21,5,0)="name of the destination to send a file to."
^DD(2006.5903,.01,"DT")="2990422"
^DD(2006.5903,"B","VALUE",.01)=""
^DD(2006.5903,"GL",0,1,.01)=""
^DD(2006.5904,0)="CONDITION SUB-FIELD^^4^5"
^DD(2006.5904,0,"DT")="2980911"
^DD(2006.5904,0,"NM","CONDITION")=""
^DD(2006.5904,0,"UP")="2006.59"
^DD(2006.5904,.01,0)="FIELD^F^^0;1^K:$L(X)>250!($L(X)<1) X"
^DD(2006.5904,.01,1,0)="^.1^^0"
^DD(2006.5904,.01,3)="Enter a the name of a parameter."
^DD(2006.5904,.01,21,0)="^^6^6^3000223^^"
^DD(2006.5904,.01,21,1,0)="The value of this field is a string that identifies"
^DD(2006.5904,.01,21,2,0)="a parameter that is checked for the purpose of evaluating"
^DD(2006.5904,.01,21,3,0)="the current condition."
^DD(2006.5904,.01,21,4,0)=" "
^DD(2006.5904,.01,21,5,0)="Such a parameter can be any field from the Image File"
^DD(2006.5904,.01,21,6,0)="(# 2005, stored in ^MAG(2005,...), or 'NOW'."
^DD(2006.5904,.01,"DT")="2990422"
^DD(2006.5904,1,0)="DATATYPE^S^DT:Date Time;LO:Long String;SH:Short String;AE:AE;AS:AS;AT:AT;CS:CS;DA:DA;DS:DS;FL:FL;FD:FD;IS:IS;LT:LT;OB:OB;OW:OW;PN:PN;SL:SL;SQ:SQ;SS:SS;ST:ST;TM:TM;UI:UI;UL:UL;UN:UN;US:US;UT:UT;^DATATYPE;1^Q"
^DD(2006.5904,1,3)="Enter the data type for this condition."
^DD(2006.5904,1,21,0)="^^30^30^3000223^^"
^DD(2006.5904,1,21,1,0)="The value of this field is a code that identifies"
^DD(2006.5904,1,21,2,0)="the data type of the field that is referenced in"
^DD(2006.5904,1,21,3,0)="the current condition to be evaluated."
^DD(2006.5904,1,21,4,0)=" "
^DD(2006.5904,1,21,5,0)="Possible data types are:"
^DD(2006.5904,1,21,6,0)="  AE   Application Entity"
^DD(2006.5904,1,21,7,0)="  AS   Age String"
^DD(2006.5904,1,21,8,0)="  AT   Attribute Tag"
^DD(2006.5904,1,21,9,0)="  CS   Code String"
^DD(2006.5904,1,21,10,0)="  DA   Date"
^DD(2006.5904,1,21,11,0)="  DS   Decimal String"
^DD(2006.5904,1,21,12,0)="  DT   Date/Time"
^DD(2006.5904,1,21,13,0)="  FL   Floating Point Single"
^DD(2006.5904,1,21,14,0)="  FD   Floating Point Double"
^DD(2006.5904,1,21,15,0)="  IS   Integer String"
^DD(2006.5904,1,21,16,0)="  LO   Long String"
^DD(2006.5904,1,21,17,0)="  LT   Long Text"
^DD(2006.5904,1,21,18,0)="  OB   Other Byte String"
^DD(2006.5904,1,21,19,0)="  OW   Other Word String"
^DD(2006.5904,1,21,20,0)="  PN   Person Name"
^DD(2006.5904,1,21,21,0)="  SH   Short String"
^DD(2006.5904,1,21,22,0)="  SL   Signed Long"
^DD(2006.5904,1,21,23,0)="  SQ   Sequence of Items"
^DD(2006.5904,1,21,24,0)="  SS   Signed Short"
^DD(2006.5904,1,21,25,0)="  ST   Short Text"
^DD(2006.5904,1,21,26,0)="  TM   Time"
^DD(2006.5904,1,21,27,0)="  UI   Unique Identifier"
^DD(2006.5904,1,21,28,0)="  UL   Unsigned Long"
^DD(2006.5904,1,21,29,0)="  US   Unsigned Short"
^DD(2006.5904,1,21,30,0)="  UT   Unlimited Text"
^DD(2006.5904,1,"DT")="2980911"
^DD(2006.5904,2,0)="OPERATOR^F^^OPERATOR;1^K:$L(X)>5!($L(X)<1) X"
^DD(2006.5904,2,3)="Enter an operator for this comparison."
^DD(2006.5904,2,21,0)="^^6^6^3000223^^"
^DD(2006.5904,2,21,1,0)="The value if this field is a short string that defines"
^DD(2006.5904,2,21,2,0)="the operator that is applied to compare the value of a"
^DD(2006.5904,2,21,3,0)="parameter with a specified value."
^DD(2006.5904,2,21,4,0)=" "
^DD(2006.5904,2,21,5,0)="Typical operators are = (equal), != (not equal),"
^DD(2006.5904,2,21,6,0)="> (greater or later than) and < (less or earlier than)."
^DD(2006.5904,2,"DT")="2980911"
^DD(2006.5904,3,0)="VALUE^F^^VALUE;1^K:$L(X)>250!($L(X)<1) X"
^DD(2006.5904,3,3)="Enter the value to compare this parameter to."
^DD(2006.5904,3,21,0)="^^3^3^3000223^^"
^DD(2006.5904,3,21,1,0)="The value of this field is a string that defines"
^DD(2006.5904,3,21,2,0)="the value to which a parameter is being compared"
^DD(2006.5904,3,21,3,0)="in the context of evaluating the current rule."
^DD(2006.5904,3,"DT")="2980911"
^DD(2006.5904,4,0)="TIMEFRAME^2006.5905A^^1;0"
^DD(2006.5904,"B","DATATYPE",1)=""
^DD(2006.5904,"B","FIELD",.01)=""
^DD(2006.5904,"B","OPERATOR",2)=""
^DD(2006.5904,"B","TIMEFRAME",4)=""
^DD(2006.5904,"B","VALUE",3)=""
^DD(2006.5904,"GL",0,1,.01)=""
^DD(2006.5904,"GL",1,0,4)=""
^DD(2006.5904,"GL","DATATYPE",1,1)=""
^DD(2006.5904,"GL","OPERATOR",1,2)=""
^DD(2006.5904,"GL","VALUE",1,3)=""
^DD(2006.5904,"SB",2006.5905,4)=""
^DD(2006.5905,0)="TIMEFRAME SUB-FIELD^^3^4"
^DD(2006.5905,0,"DT")="2980911"
^DD(2006.5905,0,"NM","TIMEFRAME")=""
^DD(2006.5905,0,"UP")="2006.5904"
^DD(2006.5905,.01,0)="NUMBER^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.5905,.01,1,0)="^.1^^0"
^DD(2006.5905,.01,3)="Enter an integer number that uniquely identifies a time-frame."
^DD(2006.5905,.01,21,0)="^^2^2^3000223^^"
^DD(2006.5905,.01,21,1,0)="The value of this field is an integer number"
^DD(2006.5905,.01,21,2,0)="that uniquely identifies a time frame for a routing rule."
^DD(2006.5905,.01,"DT")="2990422"
^DD(2006.5905,1,0)="MASK^F^^MASK;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5905,1,3)="Enter a date/time mask ('ddd yyymmdd.hhmmss')."
^DD(2006.5905,1,21,0)="^.001^8^8^3020815^^^"
^DD(2006.5905,1,21,1,0)="The value of this field is a string of characters"
^DD(2006.5905,1,21,2,0)="that indicates which fields in the values for the"
^DD(2006.5905,1,21,3,0)="start and end of the current time-frame are validated"
^DD(2006.5905,1,21,4,0)="while evaluating the current routing rule."
^DD(2006.5905,1,21,5,0)=" "
^DD(2006.5905,1,21,6,0)="Those characters in the 'begin' and 'end' fields"
^DD(2006.5905,1,21,7,0)="that correspond to upper case characters in this"
^DD(2006.5905,1,21,8,0)="mask, will be evaluated."
^DD(2006.5905,1,"DT")="2980911"
^DD(2006.5905,2,0)="BEGIN DATE/TIME^F^^BEGIN;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5905,2,3)="Enter a date/time ('ddd yyymmdd.hhmmss' start of frame)."
^DD(2006.5905,2,21,0)="^^4^4^3000223^^"
^DD(2006.5905,2,21,1,0)="The value of this field is a date/time string"
^DD(2006.5905,2,21,2,0)="that indicates the start of the time-frame that"
^DD(2006.5905,2,21,3,0)="validates as 'positive' for this part of the"
^DD(2006.5905,2,21,4,0)="routing rule."
^DD(2006.5905,2,"DT")="2980911"
^DD(2006.5905,3,0)="END DATE/TIME^F^^END;1^K:$L(X)>20!($L(X)<1) X"
^DD(2006.5905,3,3)="Enter a date/time ('ddd yyymmdd.hhmmss' end of frame)."
^DD(2006.5905,3,21,0)="^^4^4^3000223^^"
^DD(2006.5905,3,21,1,0)="The value of this field is a date/time string"
^DD(2006.5905,3,21,2,0)="that indicates the end of the time-frame that"
^DD(2006.5905,3,21,3,0)="validates as 'positive' for this part of the"
^DD(2006.5905,3,21,4,0)="routing rule."
^DD(2006.5905,3,"DT")="2980911"
^DD(2006.5905,"B","BEGIN DATE/TIME",2)=""
^DD(2006.5905,"B","END DATE/TIME",3)=""
^DD(2006.5905,"B","MASK",1)=""
^DD(2006.5905,"B","NUMBER",.01)=""
^DD(2006.5905,"GL",0,1,.01)=""
^DD(2006.5905,"GL","BEGIN",1,2)=""
^DD(2006.5905,"GL","END",1,3)=""
^DD(2006.5905,"GL","MASK",1,1)=""
^DD(2006.5906,0)="FIELD^^2^3"
^DD(2006.5906,0,"DT")="3020405"
^DD(2006.5906,0,"NM","ROUTE LOAD BALANCE")=""
^DD(2006.5906,0,"VR")="3.0"
^DD(2006.5906,0,"VRPK")="MAG"
^DD(2006.5906,.01,0)="RULE^RP2006.59'^MAGDICOM(2006.59,^0;1^Q"
^DD(2006.5906,.01,1,0)="^.1^^0"
^DD(2006.5906,.01,3)="Identify the routing rule for this record."
^DD(2006.5906,.01,21,0)="^^9^9^3020405^"
^DD(2006.5906,.01,21,1,0)="The value of this field is a pointer to a Routing Rule"
^DD(2006.5906,.01,21,2,0)="(file # 2006.59)."
^DD(2006.5906,.01,21,3,0)=" "
^DD(2006.5906,.01,21,4,0)="The information in the current record describes how image files"
^DD(2006.5906,.01,21,5,0)="are being routed to destinations, and how the load per destination"
^DD(2006.5906,.01,21,6,0)="is balanced, based on a routing rule."
^DD(2006.5906,.01,21,7,0)=" "
^DD(2006.5906,.01,21,8,0)="The value of this field identifies the routing rule that governs"
^DD(2006.5906,.01,21,9,0)="the balancing act that is described in the current record."
^DD(2006.5906,.01,"DT")="3020405"
^DD(2006.5906,1,0)="PARENT^2006.59061PA^^1;0"
^DD(2006.5906,2,0)="BALANCE^F^^2;E1,250^K:$L(X)>250!($L(X)<1) X"
^DD(2006.5906,2,3)="Enter the balancing parameters."
^DD(2006.5906,2,21,0)="^^9^9^3020405^"
^DD(2006.5906,2,21,1,0)="The value of this field is computed by the program that"
^DD(2006.5906,2,21,2,0)="balances the load over multiple destinations."
^DD(2006.5906,2,21,3,0)=" "
^DD(2006.5906,2,21,4,0)="This value is a string that consists of a variable number"
^DD(2006.5906,2,21,5,0)="of data elements (the number depends on the number of possible"
^DD(2006.5906,2,21,6,0)="destinations in the routine rule, see file # 2006.59)."
^DD(2006.5906,2,21,7,0)=" "
^DD(2006.5906,2,21,8,0)="The value for this string is calculated and updated in subroutine"
^DD(2006.5906,2,21,9,0)="BALANCE^MAGBRTE2(IMAGE,RULE)."
^DD(2006.5906,2,"DT")="3020405"
^DD(2006.5906,"B","BALANCE",2)=""
^DD(2006.5906,"B","PARENT",1)=""
^DD(2006.5906,"B","RULE",.01)=""
^DD(2006.5906,"GL",0,1,.01)=""
^DD(2006.5906,"GL",1,0,1)=""
^DD(2006.5906,"GL",2,"E1,250",2)=""
^DD(2006.5906,"RQ",.01)=""
^DD(2006.5906,"SB",2006.59061,1)=""
^DD(2006.59061,0)="PARENT SUB-FIELD^^2^3"
^DD(2006.59061,0,"DT")="3020405"
^DD(2006.59061,0,"NM","PARENT")=""
^DD(2006.59061,0,"UP")="2006.5906"
^DD(2006.59061,.01,0)="PARENT^P2005'^MAG(2005,^0;1^Q"
^DD(2006.59061,.01,1,0)="^.1^^0"
^DD(2006.59061,.01,3)="Identify the image(group) to be routed."
^DD(2006.59061,.01,21,0)="^^12^12^3020405^"
^DD(2006.59061,.01,21,1,0)="The value of this field is a pointer to the Image File (# 2005)."
^DD(2006.59061,.01,21,2,0)=" "
^DD(2006.59061,.01,21,3,0)="While balancing the load over multiple destinations, all images"
^DD(2006.59061,.01,21,4,0)="for a given study should be sent to the same destination."
^DD(2006.59061,.01,21,5,0)=" "
^DD(2006.59061,.01,21,6,0)="When the first image of a study is being routed, the balancer"
^DD(2006.59061,.01,21,7,0)="creates a new record in this multiple to indicate where all other images"
^DD(2006.59061,.01,21,8,0)="for the study to which that image belongs."
^DD(2006.59061,.01,21,9,0)=" "
^DD(2006.59061,.01,21,10,0)="The value of this pointer identifies either the ""parent"" of"
^DD(2006.59061,.01,21,11,0)="a group of images, or a single image, if that image is a ""group"
^DD(2006.59061,.01,21,12,0)="of 1""."
^DD(2006.59061,.01,"DT")="3020405"
^DD(2006.59061,1,0)="ROUTE DATE^RD^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.59061,1,3)="Enter the date on which this image is to be routed."
^DD(2006.59061,1,21,0)="^^6^6^3020405^"
^DD(2006.59061,1,21,1,0)="The value of this field is a string that represents a date"
^DD(2006.59061,1,21,2,0)="(no time part included). This date identifies the date on which"
^DD(2006.59061,1,21,3,0)="an image file is being routed to a remote destination."
^DD(2006.59061,1,21,4,0)=" "
^DD(2006.59061,1,21,5,0)="The load-balancer uses this date to balance the load (per day)"
^DD(2006.59061,1,21,6,0)="over the various possible destinations."
^DD(2006.59061,1,"DT")="3020405"
^DD(2006.59061,2,0)="DESTINATION^RNJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.59061,2,3)="Identify the destination for all images of this study."
^DD(2006.59061,2,21,0)="^^10^10^3020405^"
^DD(2006.59061,2,21,1,0)="The value of this field is a pointer to a destination."
^DD(2006.59061,2,21,2,0)="This value is not a pointer in the ""normal"" sense that FileMan uses:"
^DD(2006.59061,2,21,3,0)="it is the value of D2 in the reference"
^DD(2006.59061,2,21,4,0)="  ^MAGDICOM(2006.59,D0,""ACTION"",D1,1,D2,0)"
^DD(2006.59061,2,21,5,0)=" "
^DD(2006.59061,2,21,6,0)="This pointer identifies the data record that contains the identification"
^DD(2006.59061,2,21,7,0)="of the destination (which is a variable pointer to either a"
^DD(2006.59061,2,21,8,0)="Network Location (file # 2005.2) or a DICOM Application"
^DD(2006.59061,2,21,9,0)="(file # 2006.585) to which all images of the current study are"
^DD(2006.59061,2,21,10,0)="being transmitted."
^DD(2006.59061,2,"DT")="3020405"
^DD(2006.59061,"B","DESTINATION",2)=""
^DD(2006.59061,"B","PARENT",.01)=""
^DD(2006.59061,"B","ROUTE DATE",1)=""
^DD(2006.59061,"GL",0,1,.01)=""
^DD(2006.59061,"GL",0,2,1)=""
^DD(2006.59061,"GL",0,3,2)=""
^DD(2006.59061,"RQ",1)=""
^DD(2006.59061,"RQ",2)=""
^DD(2006.596,0)="FIELD^^1^2"
^DD(2006.596,0,"DT")="3020404"
^DD(2006.596,0,"IX","B",2006.596,.01)=""
^DD(2006.596,0,"NM","ACTION QUEUE STATUS")=""
^DD(2006.596,0,"VR")="3.0"
^DD(2006.596,0,"VRPK")="MAG"
^DD(2006.596,.01,0)="ACTION QUEUE^RS^SEND:Send;^0;1^Q"
^DD(2006.596,.01,1,0)="^.1"
^DD(2006.596,.01,1,1,0)="2006.596^B"
^DD(2006.596,.01,1,1,1)="S ^MAGDICOM(2006.596,""B"",$E(X,1,30),DA)="""""
^DD(2006.596,.01,1,1,2)="K ^MAGDICOM(2006.596,""B"",$E(X,1,30),DA)"
^DD(2006.596,.01,3)="Enter the name of the queue."
^DD(2006.596,.01,21,0)="^^2^2^3020404^"
^DD(2006.596,.01,21,1,0)="The value of this field is the name of an ""action queue""."
^DD(2006.596,.01,21,2,0)="Currently, only one action queue exists, which has the name ""SEND""."
^DD(2006.596,.01,"DT")="3020404"
^DD(2006.596,1,0)="THREAD^2006.5961A^^1;0"
^DD(2006.596,"B","ACTION QUEUE",.01)=""
^DD(2006.596,"B","THREAD",1)=""
^DD(2006.596,"GL",0,1,.01)=""
^DD(2006.596,"GL",1,0,1)=""
^DD(2006.596,"IX",.01)=""
^DD(2006.596,"RQ",.01)=""
^DD(2006.596,"SB",2006.5961,1)=""
^DD(2006.5961,0)="THREAD SUB-FIELD^^2^2"
^DD(2006.5961,0,"DT")="3020404"
^DD(2006.5961,0,"NM","THREAD")=""
^DD(2006.5961,0,"UP")="2006.596"
^DD(2006.5961,.01,0)="THREAD^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.5961,.01,1,0)="^.1^^0"
^DD(2006.5961,.01,3)="Enter the name of a queue-thread."
^DD(2006.5961,.01,21,0)="^.001^6^6^3020404^^"
^DD(2006.5961,.01,21,1,0)="Each queue may have zero or more ""threads""."
^DD(2006.5961,.01,21,2,0)="Each thread will process an instance of the queue,"
^DD(2006.5961,.01,21,3,0)="thus taking care of the workload for one or more ""origins"","
^DD(2006.5961,.01,21,4,0)="and delivering to one or more ""destinations""."
^DD(2006.5961,.01,21,5,0)=" "
^DD(2006.5961,.01,21,6,0)="The format of names for threads is yet to be decided..."
^DD(2006.5961,.01,"DT")="3020404"
^DD(2006.5961,2,0)="STATUS^S^ACTIVE:Active;IDLE:Idle;SUSPENDED:Suspended;^0;2^Q"
^DD(2006.5961,2,3)="Enter the code for the current status of the queue-thread."
^DD(2006.5961,2,21,0)="^^5^5^3020404^"
^DD(2006.5961,2,21,1,0)="The value of this field is a code for the status of the queue-thread."
^DD(2006.5961,2,21,2,0)="Possible values are:"
^DD(2006.5961,2,21,3,0)=" ACTIVE - thread is active, and has files to process"
^DD(2006.5961,2,21,4,0)=" IDLE - thread is active, and has no files to process"
^DD(2006.5961,2,21,5,0)=" SUSPENDED - thread is not active"
^DD(2006.5961,2,"DT")="3020404"
^DD(2006.5961,"B","STATUS",2)=""
^DD(2006.5961,"B","THREAD",.01)=""
^DD(2006.5961,"GL",0,1,.01)=""
^DD(2006.5961,"GL",0,2,2)=""
^DD(2006.598,0)="FIELD^^6^6"
^DD(2006.598,0,"DT")="3030716"
^DD(2006.598,0,"IX","B",2006.598,.01)=""
^DD(2006.598,0,"NM","DICOM ERROR MESSAGE QUEUE")=""
^DD(2006.598,0,"VR")="3.0"
^DD(2006.598,0,"VRPK")="MAG"
^DD(2006.598,.01,0)="HEADER^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.598,.01,1,0)="^.1"
^DD(2006.598,.01,1,1,0)="2006.598^B"
^DD(2006.598,.01,1,1,1)="S ^MAGDICOM(2006.598,""B"",$E(X,1,30),DA)="""""
^DD(2006.598,.01,1,1,2)="K ^MAGDICOM(2006.598,""B"",$E(X,1,30),DA)"
^DD(2006.598,.01,3)="Enter a header for the error message."
^DD(2006.598,.01,21,0)="^^2^2^3030716^"
^DD(2006.598,.01,21,1,0)="The value of this field is a string that is used as the header"
^DD(2006.598,.01,21,2,0)="for the error message."
^DD(2006.598,.01,"DT")="3030716"
^DD(2006.598,2,0)="ROUTINE^F^^1;1^K:$L(X)>8!($L(X)<1) X"
^DD(2006.598,2,3)="Enter the name of the routine that invoked the error trap."
^DD(2006.598,2,21,0)="^^1^1^3030716^"
^DD(2006.598,2,21,1,0)="The value of this field is a string that identifies a MUMPS routine."
^DD(2006.598,2,"DT")="3030716"
^DD(2006.598,3,0)="IGNORE^S^0:Create error log;1:Ignore error log;^1;2^Q"
^DD(2006.598,3,3)="Indicate whether or not to create an error log."
^DD(2006.598,3,21,0)="^^4^4^3030716^"
^DD(2006.598,3,21,1,0)="The value of this field is a flag that indicates whether or"
^DD(2006.598,3,21,2,0)="not an error log is to be produced. When the value of this"
^DD(2006.598,3,21,3,0)="field is false, an error log is created, otherwise the creation"
^DD(2006.598,3,21,4,0)="of the error log is ignored."
^DD(2006.598,3,"DT")="3030716"
^DD(2006.598,4,0)="CRITICAL^S^0:Not critical;1:Critical;^1;3^Q"
^DD(2006.598,4,3)="Indicate whether or not this is a critical error."
^DD(2006.598,4,21,0)="^^4^4^3030716^"
^DD(2006.598,4,21,1,0)="The value of this field is a flag that indicates whether or not"
^DD(2006.598,4,21,2,0)="the current error is a ""critical"" one. When an error is"
^DD(2006.598,4,21,3,0)="""critical"", a e-mail message will be transmitted to the"
^DD(2006.598,4,21,4,0)="Imaging Team in Silver Spring."
^DD(2006.598,4,"DT")="3030716"
^DD(2006.598,5,0)="MESSAGE TEXT^2006.5985^^2;0"
^DD(2006.598,6,0)="ERROR REPORT^2006.5986A^^3;0"
^DD(2006.598,"B","CRITICAL",4)=""
^DD(2006.598,"B","ERROR REPORT",6)=""
^DD(2006.598,"B","HEADER",.01)=""
^DD(2006.598,"B","IGNORE",3)=""
^DD(2006.598,"B","MESSAGE TEXT",5)=""
^DD(2006.598,"B","ROUTINE",2)=""
^DD(2006.598,"GL",0,1,.01)=""
^DD(2006.598,"GL",1,1,2)=""
^DD(2006.598,"GL",1,2,3)=""
^DD(2006.598,"GL",1,3,4)=""
^DD(2006.598,"GL",2,0,5)=""
^DD(2006.598,"GL",3,0,6)=""
^DD(2006.598,"IX",.01)=""
^DD(2006.598,"RQ",.01)=""
^DD(2006.598,"SB",2006.5985,5)=""
^DD(2006.598,"SB",2006.5986,6)=""
^DD(2006.5985,0)="MESSAGE TEXT SUB-FIELD^^.01^1"
^DD(2006.5985,0,"DT")="3030716"
^DD(2006.5985,0,"IX","B",2006.5985,.01)=""
^DD(2006.5985,0,"NM","MESSAGE TEXT")=""
^DD(2006.5985,0,"UP")="2006.598"
^DD(2006.5985,.01,0)="MESSAGE TEXT^MF^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(2006.5985,.01,1,0)="^.1"
^DD(2006.5985,.01,1,1,0)="2006.5985^B"
^DD(2006.5985,.01,1,1,1)="S ^MAGDICOM(2006.598,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2006.5985,.01,1,1,2)="K ^MAGDICOM(2006.598,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2006.5985,.01,3)="Enter the error message text."
^DD(2006.5985,.01,21,0)="^^2^2^3030716^"
^DD(2006.5985,.01,21,1,0)="The values in this multiple make up the error message that is"
^DD(2006.5985,.01,21,2,0)="to be transmitted in an e-mail."
^DD(2006.5985,.01,"DT")="3030716"
^DD(2006.5985,"B","MESSAGE TEXT",.01)=""
^DD(2006.5985,"GL",0,1,.01)=""
^DD(2006.5985,"IX",.01)=""
^DD(2006.5986,0)="ERROR REPORT SUB-FIELD^^.01^1"
^DD(2006.5986,0,"DT")="3030716"
^DD(2006.5986,0,"IX","B",2006.5986,.01)=""
^DD(2006.5986,0,"NM","ERROR REPORT")=""
^DD(2006.5986,0,"UP")="2006.598"
^DD(2006.5986,.01,0)="ERROR REPORT^F^^0;1^K:$L(X)>240!($L(X)<1) X"
^DD(2006.5986,.01,1,0)="^.1"
^DD(2006.5986,.01,1,1,0)="2006.5986^B"
^DD(2006.5986,.01,1,1,1)="S ^MAGDICOM(2006.598,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(2006.5986,.01,1,1,2)="K ^MAGDICOM(2006.598,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(2006.5986,.01,3)="Enter the reason why the e-mail could not be sent."
^DD(2006.5986,.01,21,0)="^^6^6^3030716^"
^DD(2006.5986,.01,21,1,0)="The value in this field is a text that indicates a reason why"
^DD(2006.5986,.01,21,2,0)="an e-mail message could not be transmitted."
^DD(2006.5986,.01,21,3,0)=" "
^DD(2006.5986,.01,21,4,0)="Typical reasons are"
^DD(2006.5986,.01,21,5,0)=" - could not connect to ""post-office"""
^DD(2006.5986,.01,21,6,0)=" - unexpected MUMPS error in mail-preparation software"
^DD(2006.5986,.01,"DT")="3030716"
^DD(2006.5986,"B","ERROR REPORT",.01)=""
^DD(2006.5986,"GL",0,1,.01)=""
^DD(2006.5986,"IX",.01)=""
^DD(2006.599,0)="FIELD^^11^12"
^DD(2006.599,0,"DDA")="N"
^DD(2006.599,0,"DT")="2980507"
^DD(2006.599,0,"IX","B",2006.599,.01)=""
^DD(2006.599,0,"NM","DICOM Error Log")=""
^DD(2006.599,0,"VR")="3.0"
^DD(2006.599,0,"VRPK")="IMAGING"
^DD(2006.599,.01,0)="DATE & TIME^RD^^0;1^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.599,.01,.1)="Timestamp (FileMan format)"
^DD(2006.599,.01,1,0)="^.1"
^DD(2006.599,.01,1,1,0)="2006.599^B"
^DD(2006.599,.01,1,1,1)="S ^MAGD(2006.599,""B"",$E(X,1,30),DA)="""""
^DD(2006.599,.01,1,1,2)="K ^MAGD(2006.599,""B"",$E(X,1,30),DA)"
^DD(2006.599,.01,3)="Enter this moment's date and time (FileMan format)."
^DD(2006.599,.01,21,0)="^^5^5^3000229^^"
^DD(2006.599,.01,21,1,0)="The value of this field is a string that denotes"
^DD(2006.599,.01,21,2,0)="the date and time when this entry was logged into"
^DD(2006.599,.01,21,3,0)="the database."
^DD(2006.599,.01,21,4,0)=" "
^DD(2006.599,.01,21,5,0)="This timestamp is stored in FileMan format."
^DD(2006.599,.01,"DT")="2980121"
^DD(2006.599,1,0)="REASON^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(2006.599,1,.1)="Reason"
^DD(2006.599,1,3)="Enter a brief description of the problem."
^DD(2006.599,1,21,0)="^^3^3^3000229^^"
^DD(2006.599,1,21,1,0)="The value of this field is a string that contains"
^DD(2006.599,1,21,2,0)="a brief description of the reason why the current"
^DD(2006.599,1,21,3,0)="entry is being entered into this table."
^DD(2006.599,1,"DT")="2980121"
^DD(2006.599,2,0)="FILE DIRECTORY^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(2006.599,2,.1)="File Directory"
^DD(2006.599,2,3)="Enter the full identification of the DICOM file (directory+name)."
^DD(2006.599,2,21,0)="^^5^5^3000229^^"
^DD(2006.599,2,21,1,0)="The value of this field is a string that identifies the"
^DD(2006.599,2,21,2,0)="DICOM file that contains the information that was the"
^DD(2006.599,2,21,3,0)="reason why this error is being logged."
^DD(2006.599,2,21,4,0)=" "
^DD(2006.599,2,21,5,0)="This file name contains the full directory (path) prefix."
^DD(2006.599,2,"DT")="2980121"
^DD(2006.599,3,0)="MODALITY^F^^0;4^K:$L(X)>60!($L(X)<3) X"
^DD(2006.599,3,.1)="Modality Code"
^DD(2006.599,3,3)="Enter the type of modality (2 letter code)."
^DD(2006.599,3,21,0)="^^5^5^3000229^^"
^DD(2006.599,3,21,1,0)="The value of this field is a code that identifies the"
^DD(2006.599,3,21,2,0)="kind of modality that transmitted the image."
^DD(2006.599,3,21,3,0)=" "
^DD(2006.599,3,21,4,0)="The two-letter codes for the modality types are defined"
^DD(2006.599,3,21,5,0)="in the DICOM standard."
^DD(2006.599,3,"DT")="2980121"
^DD(2006.599,4,0)="RESERVED^F^^0;5^K:$L(X)>10!($L(X)<3) X"
^DD(2006.599,4,3)="Answer must be 3-10 characters in length."
^DD(2006.599,4,"DT")="2980507"
^DD(2006.599,5,0)="RESERVED^F^^0;6^K:$L(X)>45!($L(X)<3) X"
^DD(2006.599,5,3)="Answer must be 3-45 characters in length."
^DD(2006.599,5,"DT")="2980507"
^DD(2006.599,6,0)="RESERVED^F^^0;7^K:$L(X)>15!($L(X)<3) X"
^DD(2006.599,6,3)="Answer must be 3-15 characters in length."
^DD(2006.599,6,"DT")="2980507"
^DD(2006.599,7,0)="DELETED BY^F^^1;1^K:$L(X)>35!($L(X)<2) X"
^DD(2006.599,7,.1)="Deleted By"
^DD(2006.599,7,3)="Enter the name of the person deleting this file."
^DD(2006.599,7,21,0)="^^11^11^3000229^^"
^DD(2006.599,7,21,1,0)="The value of this field is a string that represents"
^DD(2006.599,7,21,2,0)="the name of the person who requested that one or more"
^DD(2006.599,7,21,3,0)="image files be deleted."
^DD(2006.599,7,21,4,0)=" "
^DD(2006.599,7,21,5,0)="This field is only populated when a request to delete"
^DD(2006.599,7,21,6,0)="image files is being logged."
^DD(2006.599,7,21,7,0)=" "
^DD(2006.599,7,21,8,0)="Removal of image files can be requested through either"
^DD(2006.599,7,21,9,0)="of the menu options"
^DD(2006.599,7,21,10,0)=" MAGD FIX DICOM and"
^DD(2006.599,7,21,11,0)=" MAGD FIX MEDICINE."
^DD(2006.599,7,"DT")="2980501"
^DD(2006.599,8,0)="PATIENT^F^^1;2^K:$L(X)>35!($L(X)<2) X"
^DD(2006.599,8,.1)="Patient"
^DD(2006.599,8,3)="Enter the name of the patient for whom images are being deleted."
^DD(2006.599,8,21,0)="^^10^10^3000229^^"
^DD(2006.599,8,21,1,0)="The name value of this field is a string that represents"
^DD(2006.599,8,21,2,0)="the name of the patient for whom images are being deleted."
^DD(2006.599,8,21,3,0)=" "
^DD(2006.599,8,21,4,0)="This field is only populated when a request to delete"
^DD(2006.599,8,21,5,0)="image files is being logged."
^DD(2006.599,8,21,6,0)=" "
^DD(2006.599,8,21,7,0)="Removal of image files can be requested through either"
^DD(2006.599,8,21,8,0)="of the menu options"
^DD(2006.599,8,21,9,0)=" MAGD FIX DICOM and"
^DD(2006.599,8,21,10,0)=" MAGD FIX MEDICINE."
^DD(2006.599,8,"DT")="2980507"
^DD(2006.599,9,0)="SSN^F^^1;3^K:$L(X)>10!($L(X)<1) X"
^DD(2006.599,9,.1)="Ssn"
^DD(2006.599,9,3)="Enter the SSN of the patient for whom images are being deleted."
^DD(2006.599,9,21,0)="^^10^10^3000229^^"
^DD(2006.599,9,21,1,0)="The name value of this field is a string that represents"
^DD(2006.599,9,21,2,0)="the SSN of the patient for whom images are being deleted."
^DD(2006.599,9,21,3,0)=" "
^DD(2006.599,9,21,4,0)="This field is only populated when a request to delete"
^DD(2006.599,9,21,5,0)="image files is being logged."
^DD(2006.599,9,21,6,0)=" "
^DD(2006.599,9,21,7,0)="Removal of image files can be requested through either"
^DD(2006.599,9,21,8,0)="of the menu options"
^DD(2006.599,9,21,9,0)=" MAGD FIX DICOM and"
^DD(2006.599,9,21,10,0)=" MAGD FIX MEDICINE."
^DD(2006.599,9,"DT")="2980507"
^DD(2006.599,10,0)="CASE NUMBER^F^^1;4^K:$L(X)>20!($L(X)<1) X"
^DD(2006.599,10,.1)="Accession Number"
^DD(2006.599,10,3)="Enter the Accession Number for the study for which images are being deleted."
^DD(2006.599,10,21,0)="^^10^10^3000229^^"
^DD(2006.599,10,21,1,0)="The name value of this field is a string that represents"
^DD(2006.599,10,21,2,0)="the accession number for the study for which images are being deleted."
^DD(2006.599,10,21,3,0)=" "
^DD(2006.599,10,21,4,0)="This field is only populated when a request to delete"
^DD(2006.599,10,21,5,0)="image files is being logged."
^DD(2006.599,10,21,6,0)=" "
^DD(2006.599,10,21,7,0)="Removal of image files can be requested through either"
^DD(2006.599,10,21,8,0)="of the menu options"
^DD(2006.599,10,21,9,0)=" MAGD FIX DICOM and"
^DD(2006.599,10,21,10,0)=" MAGD FIX MEDICINE."
^DD(2006.599,10,"DT")="2980507"
^DD(2006.599,11,0)="MACHINE ID^F^^1;5^K:$L(X)>20!($L(X)<1) X"
^DD(2006.599,11,.1)="Machine ID"
^DD(2006.599,11,3)="Enter the letter for the processor where this problem occurred."
^DD(2006.599,11,21,0)="^^3^3^3000229^^"
^DD(2006.599,11,21,1,0)="The value of this field is a single-character"
^DD(2006.599,11,21,2,0)="code that identifies the computer on which the"
^DD(2006.599,11,21,3,0)="problem occurred that is described in this entry."
^DD(2006.599,11,"DT")="2980507"
^DD(2006.599,"B","Accession Number",10)="1"
^DD(2006.599,"B","CASE NUMBER",10)=""
^DD(2006.599,"B","DATE & TIME",.01)=""
^DD(2006.599,"B","DELETED BY",7)=""
^DD(2006.599,"B","Deleted By",7)="1"
^DD(2006.599,"B","FILE DIRECTORY",2)=""
^DD(2006.599,"B","File Directory",2)="1"
^DD(2006.599,"B","MACHINE ID",11)=""
^DD(2006.599,"B","MODALITY",3)=""
^DD(2006.599,"B","Machine ID",11)="1"
^DD(2006.599,"B","Modality Code",3)="1"
^DD(2006.599,"B","PATIENT",8)=""
^DD(2006.599,"B","Patient",8)="1"
^DD(2006.599,"B","REASON",1)=""
^DD(2006.599,"B","RESERVED",4)=""
^DD(2006.599,"B","RESERVED",5)=""
^DD(2006.599,"B","RESERVED",6)=""
^DD(2006.599,"B","Reason",1)="1"
^DD(2006.599,"B","SSN",9)=""
^DD(2006.599,"B","Ssn",9)="1"
^DD(2006.599,"B","Timestamp (FileMan format)",.01)="1"
^DD(2006.599,"GL",0,1,.01)=""
^DD(2006.599,"GL",0,2,1)=""
^DD(2006.599,"GL",0,3,2)=""
^DD(2006.599,"GL",0,4,3)=""
^DD(2006.599,"GL",0,5,4)=""
^DD(2006.599,"GL",0,6,5)=""
^DD(2006.599,"GL",0,7,6)=""
^DD(2006.599,"GL",1,1,7)=""
^DD(2006.599,"GL",1,2,8)=""
^DD(2006.599,"GL",1,3,9)=""
^DD(2006.599,"GL",1,4,10)=""
^DD(2006.599,"GL",1,5,11)=""
^DD(2006.599,"IX",.01)=""
^DD(2006.599,"RQ",.01)=""
^DD(2006.621,0)="FIELD^^1^2"
^DD(2006.621,0,"DDA")="N"
^DD(2006.621,0,"DT")="3060802"
^DD(2006.621,0,"IX","B",2006.621,.01)=""
^DD(2006.621,0,"NM","MAG CT PARAMETER")=""
^DD(2006.621,0,"VR")="3.0"
^DD(2006.621,0,"VRPK")="MAG"
^DD(2006.621,.01,0)="LOCATION^RF^^0;1^K:$L(X)>6!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.621,.01,1,0)="^.1"
^DD(2006.621,.01,1,1,0)="2006.621^B"
^DD(2006.621,.01,1,1,1)="S ^MAG(2006.621,""B"",$E(X,1,30),DA)="""""
^DD(2006.621,.01,1,1,2)="K ^MAG(2006.621,""B"",$E(X,1,30),DA)"
^DD(2006.621,.01,3)="Answer must be 3-6 characters in length."
^DD(2006.621,.01,21,0)="^.001^2^2^3060728^^"
^DD(2006.621,.01,21,1,0)="Free-text version of the Location/Site code corresponding to the"
^DD(2006.621,.01,21,2,0)="division where the images were acquired."
^DD(2006.621,.01,"DT")="3060726"
^DD(2006.621,1,0)="MANUFACTURER^2006.6211^^1;0"
^DD(2006.621,1,21,0)="^.001^1^1^3060802^^^^"
^DD(2006.621,1,21,1,0)="Modality Manufacturer name."
^DD(2006.621,"B","LOCATION",.01)=""
^DD(2006.621,"B","MANUFACTURER",1)=""
^DD(2006.621,"GL",0,1,.01)=""
^DD(2006.621,"GL",1,0,1)=""
^DD(2006.621,"IX",.01)=""
^DD(2006.621,"RQ",.01)=""
^DD(2006.621,"SB",2006.6211,1)=""
^DD(2006.6211,0)="MANUFACTURER SUB-FIELD^^1^2"
^DD(2006.6211,0,"DT")="3060802"
^DD(2006.6211,0,"IX","B",2006.6211,.01)=""
^DD(2006.6211,0,"NM","MANUFACTURER")=""
^DD(2006.6211,0,"UP")="2006.621"
^DD(2006.6211,.01,0)="MANUFACTURER^MRF^^0;1^K:$L(X)>33!($L(X)<1) X"
^DD(2006.6211,.01,1,0)="^.1"
^DD(2006.6211,.01,1,1,0)="2006.6211^B"
^DD(2006.6211,.01,1,1,1)="S ^MAG(2006.621,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.6211,.01,1,1,2)="K ^MAG(2006.621,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.6211,.01,3)="Enter Manufacturer Name exactly as it appears in the image header; if unknown, enter a single asterisk (*)."
^DD(2006.6211,.01,21,0)="^.001^1^1^3060728^^"
^DD(2006.6211,.01,21,1,0)="Modality Manufacturer name."
^DD(2006.6211,.01,"DT")="3060726"
^DD(2006.6211,1,0)="MODEL^2006.62111^^1;0"
^DD(2006.6211,1,21,0)="^.001^1^1^3060802^^^^"
^DD(2006.6211,1,21,1,0)="Model name."
^DD(2006.6211,"B","MANUFACTURER",.01)=""
^DD(2006.6211,"B","MODEL",1)=""
^DD(2006.6211,"GL",0,1,.01)=""
^DD(2006.6211,"GL",1,0,1)=""
^DD(2006.6211,"IX",.01)=""
^DD(2006.6211,"RQ",.01)=""
^DD(2006.6211,"SB",2006.62111,1)=""
^DD(2006.62111,0)="MODEL SUB-FIELD^^1^2"
^DD(2006.62111,0,"DT")="3060802"
^DD(2006.62111,0,"IX","B",2006.62111,.01)=""
^DD(2006.62111,0,"NM","MODEL")=""
^DD(2006.62111,0,"UP")="2006.6211"
^DD(2006.62111,.01,0)="MODEL^MRF^^0;1^K:$L(X)>51!($L(X)<1) X"
^DD(2006.62111,.01,1,0)="^.1"
^DD(2006.62111,.01,1,1,0)="2006.62111^B"
^DD(2006.62111,.01,1,1,1)="S ^MAG(2006.621,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.62111,.01,1,1,2)="K ^MAG(2006.621,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.62111,.01,3)="Enter Model Name exactly as it appears in the image header; if unknown, enter a single asterisk (*)."
^DD(2006.62111,.01,21,0)="^.001^1^1^3060728^^"
^DD(2006.62111,.01,21,1,0)="Model name."
^DD(2006.62111,.01,"DT")="3060726"
^DD(2006.62111,1,0)="DATE^2006.621111D^^1;0"
^DD(2006.62111,1,21,0)="^.001^1^1^3060802^^^"
^DD(2006.62111,1,21,1,0)="Effective date for the processing parameters."
^DD(2006.62111,"B","DATE",1)=""
^DD(2006.62111,"B","MODEL",.01)=""
^DD(2006.62111,"GL",0,1,.01)=""
^DD(2006.62111,"GL",1,0,1)=""
^DD(2006.62111,"IX",.01)=""
^DD(2006.62111,"RQ",.01)=""
^DD(2006.62111,"SB",2006.621111,1)=""
^DD(2006.621111,0)="DATE SUB-FIELD^^1^2"
^DD(2006.621111,0,"DT")="3060802"
^DD(2006.621111,0,"IX","B",2006.621111,.01)=""
^DD(2006.621111,0,"NM","DATE")=""
^DD(2006.621111,0,"UP")="2006.62111"
^DD(2006.621111,.01,0)="DATE^MRD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.621111,.01,1,0)="^.1"
^DD(2006.621111,.01,1,1,0)="2006.621111^B"
^DD(2006.621111,.01,1,1,1)="S ^MAG(2006.621,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.621111,.01,1,1,2)="K ^MAG(2006.621,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.621111,.01,3)="ENTER A START DATE FOR THE PARAMETERS TO BE DEFINED"
^DD(2006.621111,.01,21,0)="^^1^1^3060728^"
^DD(2006.621111,.01,21,1,0)="Effective date for the processing parameters."
^DD(2006.621111,.01,"DT")="3060726"
^DD(2006.621111,1,0)="PARAMETER^F^^0;2^K:$L(X)>40!($L(X)<2) X"
^DD(2006.621111,1,3)="Enter the DCM-to-TGA conversion parameters."
^DD(2006.621111,1,21,0)="^.001^1^1^3060802^^"
^DD(2006.621111,1,21,1,0)="Processing parameters for the CT Dicom-to-TGA conversion."
^DD(2006.621111,1,"DT")="3060802"
^DD(2006.621111,"B","DATE",.01)=""
^DD(2006.621111,"B","PARAMETER",1)=""
^DD(2006.621111,"GL",0,1,.01)=""
^DD(2006.621111,"GL",0,2,1)=""
^DD(2006.621111,"IX",.01)=""
^DD(2006.621111,"RQ",.01)=""
^DD(2006.623,0)="FIELD^^1^2"
^DD(2006.623,0,"DDA")="N"
^DD(2006.623,0,"DT")="3060802"
^DD(2006.623,0,"IX","B",2006.623,.01)=""
^DD(2006.623,0,"NM","MAG CR PARAMETER")=""
^DD(2006.623,0,"VR")="3.0"
^DD(2006.623,0,"VRPK")="MAG"
^DD(2006.623,.01,0)="LOCATION^RF^^0;1^K:$L(X)>6!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.623,.01,1,0)="^.1"
^DD(2006.623,.01,1,1,0)="2006.623^B"
^DD(2006.623,.01,1,1,1)="S ^MAG(2006.623,""B"",$E(X,1,30),DA)="""""
^DD(2006.623,.01,1,1,2)="K ^MAG(2006.623,""B"",$E(X,1,30),DA)"
^DD(2006.623,.01,3)="Answer must be 3-6 characters in length."
^DD(2006.623,.01,21,0)="^.001^2^2^3060728^^"
^DD(2006.623,.01,21,1,0)="Free-text version of the Location/Site code corresponding to"
^DD(2006.623,.01,21,2,0)="the division where the images were acquired."
^DD(2006.623,.01,"DT")="3060728"
^DD(2006.623,1,0)="MANUFACTURER^2006.6231^^1;0"
^DD(2006.623,"B","LOCATION",.01)=""
^DD(2006.623,"B","MANUFACTURER",1)=""
^DD(2006.623,"GL",0,1,.01)=""
^DD(2006.623,"GL",1,0,1)=""
^DD(2006.623,"IX",.01)=""
^DD(2006.623,"RQ",.01)=""
^DD(2006.623,"SB",2006.6231,1)=""
^DD(2006.6231,0)="MANUFACTURER SUB-FIELD^^1^2"
^DD(2006.6231,0,"DT")="3060802"
^DD(2006.6231,0,"IX","B",2006.6231,.01)=""
^DD(2006.6231,0,"NM","MANUFACTURER")=""
^DD(2006.6231,0,"UP")="2006.623"
^DD(2006.6231,.01,0)="MANUFACTURER^MRF^^0;1^K:$L(X)>33!($L(X)<3) X"
^DD(2006.6231,.01,1,0)="^.1"
^DD(2006.6231,.01,1,1,0)="2006.6231^B"
^DD(2006.6231,.01,1,1,1)="S ^MAG(2006.623,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.6231,.01,1,1,2)="K ^MAG(2006.623,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.6231,.01,3)="Enter Manufacturer Name exactly as it appears in the image header."
^DD(2006.6231,.01,21,0)="^.001^1^1^3060802^^^^"
^DD(2006.6231,.01,21,1,0)="Modality Manufacturer name."
^DD(2006.6231,.01,"DT")="3060728"
^DD(2006.6231,1,0)="MODEL^2006.62311^^1;0"
^DD(2006.6231,1,21,0)="^.001^1^1^3060802^^^^"
^DD(2006.6231,1,21,1,0)="Model Name."
^DD(2006.6231,"B","MANUFACTURER",.01)=""
^DD(2006.6231,"B","MODEL",1)=""
^DD(2006.6231,"GL",0,1,.01)=""
^DD(2006.6231,"GL",1,0,1)=""
^DD(2006.6231,"IX",.01)=""
^DD(2006.6231,"RQ",.01)=""
^DD(2006.6231,"SB",2006.62311,1)=""
^DD(2006.62311,0)="MODEL SUB-FIELD^^1^2"
^DD(2006.62311,0,"DT")="3060802"
^DD(2006.62311,0,"IX","B",2006.62311,.01)=""
^DD(2006.62311,0,"NM","MODEL")=""
^DD(2006.62311,0,"UP")="2006.6231"
^DD(2006.62311,.01,0)="MODEL^MRF^^0;1^K:$L(X)>40!($L(X)<3) X"
^DD(2006.62311,.01,1,0)="^.1"
^DD(2006.62311,.01,1,1,0)="2006.62311^B"
^DD(2006.62311,.01,1,1,1)="S ^MAG(2006.623,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.62311,.01,1,1,2)="K ^MAG(2006.623,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.62311,.01,3)="Enter Model Name exactly as it appears in the image header."
^DD(2006.62311,.01,21,0)="^.001^1^1^3060802^^^^"
^DD(2006.62311,.01,21,1,0)="Model name."
^DD(2006.62311,.01,"DT")="3060802"
^DD(2006.62311,1,0)="SOFTWARE VERSION^2006.623111^^1;0"
^DD(2006.62311,1,21,0)="^.001^1^1^3060802^^^^"
^DD(2006.62311,1,21,1,0)="Software version as it appears in the Image header for this model"
^DD(2006.62311,"B","MODEL",.01)=""
^DD(2006.62311,"B","SOFTWARE VERSION",1)=""
^DD(2006.62311,"GL",0,1,.01)=""
^DD(2006.62311,"GL",1,0,1)=""
^DD(2006.62311,"IX",.01)=""
^DD(2006.62311,"RQ",.01)=""
^DD(2006.62311,"SB",2006.623111,1)=""
^DD(2006.623111,0)="SOFTWARE VERSION SUB-FIELD^^1^2"
^DD(2006.623111,0,"DT")="3060802"
^DD(2006.623111,0,"IX","B",2006.623111,.01)=""
^DD(2006.623111,0,"NM","SOFTWARE VERSION")=""
^DD(2006.623111,0,"UP")="2006.62311"
^DD(2006.623111,.01,0)="SOFTWARE VERSION^MRF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(2006.623111,.01,1,0)="^.1"
^DD(2006.623111,.01,1,1,0)="2006.623111^B"
^DD(2006.623111,.01,1,1,1)="S ^MAG(2006.623,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.623111,.01,1,1,2)="K ^MAG(2006.623,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.623111,.01,3)="Enter Software Version exactly as it appears in the image header."
^DD(2006.623111,.01,21,0)="^.001^1^1^3060802^^^"
^DD(2006.623111,.01,21,1,0)="Software version as it appears in the Image header for this model"
^DD(2006.623111,.01,"DT")="3060802"
^DD(2006.623111,1,0)="USE OLD PIXEL SPACING VALUE^S^1:YES;0:NO;^0;2^Q"
^DD(2006.623111,1,3)="For this software version, enter YES to use the Old Pixel Spacing value (0028,0030) for distance calculations."
^DD(2006.623111,1,21,0)="^.001^9^9^3060802^^^^"
^DD(2006.623111,1,21,1,0)="This is a flag to indicate that the older Pixel Spacing field's"
^DD(2006.623111,1,21,2,0)="value should be used when calculating distance measurements for"
^DD(2006.623111,1,21,3,0)="this model/software version.  This corrects for a bug in the"
^DD(2006.623111,1,21,4,0)="Fuji CR image header in which the incorrect values were stored"
^DD(2006.623111,1,21,5,0)="in the newer field (Imager Pixel Spacing--0018,1164), whereas the"
^DD(2006.623111,1,21,6,0)="older field (Pixel Spacing--0028,0030) still carried the correct"
^DD(2006.623111,1,21,7,0)="value; answering YES to this prompt enables the program"
^DD(2006.623111,1,21,8,0)="to prefer the older field when calculating a measurement for"
^DD(2006.623111,1,21,9,0)="images acquired with the Fuji bug."
^DD(2006.623111,1,"DT")="3060731"
^DD(2006.623111,"B","SOFTWARE VERSION",.01)=""
^DD(2006.623111,"B","USE OLD PIXEL SPACING VALUE",1)=""
^DD(2006.623111,"GL",0,1,.01)=""
^DD(2006.623111,"GL",0,2,1)=""
^DD(2006.623111,"IX",.01)=""
^DD(2006.623111,"RQ",.01)=""
^DD(2006.63,0)="FIELD^^7^8"
^DD(2006.63,0,"DDA")="N"
^DD(2006.63,0,"DT")="3000107"
^DD(2006.63,0,"IX","ASRTREV",2006.63,6)=""
^DD(2006.63,0,"IX","B",2006.63,.01)=""
^DD(2006.63,0,"NM","MAG RAD LIST DATA ELEMENTS")=""
^DD(2006.63,0,"PT",2006.6311,.01)=""
^DD(2006.63,0,"PT",2006.6312,.01)=""
^DD(2006.63,0,"VR")="3.0"
^DD(2006.63,0,"VRPK")="MAG"
^DD(2006.63,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.63,.01,1,0)="^.1"
^DD(2006.63,.01,1,1,0)="2006.63^B"
^DD(2006.63,.01,1,1,1)="S ^MAG(2006.63,""B"",$E(X,1,30),DA)="""""
^DD(2006.63,.01,1,1,2)="K ^MAG(2006.63,""B"",$E(X,1,30),DA)"
^DD(2006.63,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.63,.01,"DT")="3011106"
^DD(2006.63,1,0)="ABBREVIATION^RFI^^0;2^K:$L(X)>15!($L(X)<1)!'('(X[""~""!(X[""|""))) X"
^DD(2006.63,1,3)="Answer must be 1-15 characters in length; no tilde or pipe (~, |)."
^DD(2006.63,1,"DT")="3000107"
^DD(2006.63,2,0)="COLUMN HEADER^F^^0;3^K:$L(X)>15!($L(X)<1)!'('(X[""~""!(X[""|""))) X"
^DD(2006.63,2,3)="Answer must be 1-15 characters in length; no tilde or pipe (~, |)."
^DD(2006.63,2,"DT")="3000107"
^DD(2006.63,3,0)="Sort Only?^SI^1:Yes;0:No;^0;4^Q"
^DD(2006.63,3,3)="Enter YES only if this field should be used solely for sorting, vs displaying its value."
^DD(2006.63,3,"DT")="2990322"
^DD(2006.63,4,0)="Internal Use Only?^SI^1:Yes;^0;5^Q"
^DD(2006.63,4,"DT")="2990322"
^DD(2006.63,5,0)="RELATIVE ORDER^RNJ4,1I^^0;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2006.63,5,1,0)="^.1^^0"
^DD(2006.63,5,3)="Type a Number between 0 and 99, 1 Decimal Digit"
^DD(2006.63,5,21,0)="^^2^2^2990304^"
^DD(2006.63,5,21,1,0)="Output columns will always appear in a fixed relative order according to"
^DD(2006.63,5,21,2,0)="the value of this field."
^DD(2006.63,5,"DT")="2990322"
^DD(2006.63,6,0)="REVERSABLE SORT?^S^1:YES;^0;7^Q"
^DD(2006.63,6,1,0)="^.1"
^DD(2006.63,6,1,1,0)="2006.63^ASRTREV"
^DD(2006.63,6,1,1,1)="S ^MAG(2006.63,""ASRTREV"",$E(X,1,30),DA)="""""
^DD(2006.63,6,1,1,2)="K ^MAG(2006.63,""ASRTREV"",$E(X,1,30),DA)"
^DD(2006.63,6,1,1,"DT")="2990507"
^DD(2006.63,6,3)="To enable reverse sort by this field, enter YES (Date & Numeric valued fields only!)"
^DD(2006.63,6,"DT")="2990507"
^DD(2006.63,7,0)="COLUMN TYPE^S^S1:Date/Time;S2:Numeric;S3:Day/Case #;^0;8^Q"
^DD(2006.63,7,3)="Answer this ONLY if the data for this field fits a defined Type."
^DD(2006.63,7,21,0)="^^5^5^3000107^"
^DD(2006.63,7,21,1,0)="This indicates to the VistsRad Client that the data for this column"
^DD(2006.63,7,21,2,0)="requires special handling for either the Sort, or other defined needs.  No"
^DD(2006.63,7,21,3,0)="answer, by default, says treat column data as free-text data.  Defined"
^DD(2006.63,7,21,4,0)="needs are: Indicate Sort requirements (for Date & Numeric values)"
^DD(2006.63,7,21,5,0)="           Indicate Day/Case Number (used for key in Client App)"
^DD(2006.63,7,"DT")="3000107"
^DD(2006.63,"B","ABBREVIATION",1)=""
^DD(2006.63,"B","COLUMN HEADER",2)=""
^DD(2006.63,"B","COLUMN TYPE",7)=""
^DD(2006.63,"B","Internal Use Only?",4)=""
^DD(2006.63,"B","NAME",.01)=""
^DD(2006.63,"B","RELATIVE ORDER",5)=""
^DD(2006.63,"B","REVERSABLE SORT?",6)=""
^DD(2006.63,"B","Sort Only?",3)=""
^DD(2006.63,"GL",0,1,.01)=""
^DD(2006.63,"GL",0,2,1)=""
^DD(2006.63,"GL",0,3,2)=""
^DD(2006.63,"GL",0,4,3)=""
^DD(2006.63,"GL",0,5,4)=""
^DD(2006.63,"GL",0,6,5)=""
^DD(2006.63,"GL",0,7,6)=""
^DD(2006.63,"GL",0,8,7)=""
^DD(2006.63,"IX",.01)=""
^DD(2006.63,"IX",6)=""
^DD(2006.63,"RQ",.01)=""
^DD(2006.63,"RQ",1)=""
^DD(2006.63,"RQ",5)=""
^DD(2006.631,0)="FIELD^^2^9"
^DD(2006.631,0,"DDA")="N"
^DD(2006.631,0,"DT")="3041021"
^DD(2006.631,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(2006.631,0,"IX","B",2006.631,.01)=""
^DD(2006.631,0,"IX","C",2006.631,.02)=""
^DD(2006.631,0,"NM","MAG RAD LISTS DEFINITION")=""
^DD(2006.631,0,"VR")="3.0"
^DD(2006.631,0,"VRPK")="MAG"
^DD(2006.631,.01,0)="NAME^RF^^0;1^K:$L(X)>75!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.631,.01,1,0)="^.1"
^DD(2006.631,.01,1,1,0)="2006.631^B"
^DD(2006.631,.01,1,1,1)="S ^MAG(2006.631,""B"",$E(X,1,30),DA)="""""
^DD(2006.631,.01,1,1,2)="K ^MAG(2006.631,""B"",$E(X,1,30),DA)"
^DD(2006.631,.01,3)="Answer must be 3-75 characters in length."
^DD(2006.631,.01,"DT")="2990712"
^DD(2006.631,.02,0)="LIST #^RNJ3,0XI^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N)!($D(^MAG(2006.631,""C"",X))) X"
^DD(2006.631,.02,1,0)="^.1^^-1"
^DD(2006.631,.02,1,1,0)="2006.631^C"
^DD(2006.631,.02,1,1,1)="S ^MAG(2006.631,""C"",$E(X,1,30),DA)="""""
^DD(2006.631,.02,1,1,2)="K ^MAG(2006.631,""C"",$E(X,1,30),DA)"
^DD(2006.631,.02,1,1,"DT")="2990226"
^DD(2006.631,.02,3)="Type an Integer between 1 and 999; the value must be unique."
^DD(2006.631,.02,4)="N T,L,C,Q S C=2,L(1)=""Used values are:"",(L(1,""F""),L(2,""F""))=""?10"",(L(2),T)="""" F  S T=$O(^MAG(2006.631,""C"",T)),Q=('T!(T>9990)) S:'Q&($L(L(C))>40) C=C+1,L(C)="""",L(C,""F"")=""!?26"" S:'Q L(C)=L(C)_""  ""_T I Q D EN^DDIOL(.L) Q"
^DD(2006.631,.02,21,0)="^^3^3^2990607^^^^"
^DD(2006.631,.02,21,1,0)="Enter a number to be used to uniquely identify this list; this number will"
^DD(2006.631,.02,21,2,0)="be passed as a parameter from the workstation to cause this list to be"
^DD(2006.631,.02,21,3,0)="generated."
^DD(2006.631,.02,"DT")="2990607"
^DD(2006.631,.03,0)="LIST TYPE^R*S^U:UNREAD;R:RECENT;A:ALL UNREAD & RECENT;P:PENDING;N:Newly Interpreted;H:History;^0;3^Q"
^DD(2006.631,.03,3)="Enter the List Type for this list; enter ?? for more help."
^DD(2006.631,.03,12)="N and H values are for internal use only, and have no use for defining lists."
^DD(2006.631,.03,12.1)="S DIC(""S"")=""I Y'=""""N""""&(Y'=""""H"""")"""
^DD(2006.631,.03,21,0)="^.001^12^12^3050603^^^"
^DD(2006.631,.03,21,1,0)="This determines what subset of the exams to display, based on the Exam"
^DD(2006.631,.03,21,2,0)="Status value.  Choices are:"
^DD(2006.631,.03,21,3,0)=" "
^DD(2006.631,.03,21,4,0)="  U  -- UNREAD Exams only; Exam Status Category= E(xamined)"
^DD(2006.631,.03,21,5,0)="  R  -- RECENT Exams; Status Categories D(ictated) & T(ranscribed)"
^DD(2006.631,.03,21,6,0)="  A  -- ALL Active Exams; Categories E, D, & T"
^DD(2006.631,.03,21,7,0)="  P  -- PENDING Exams; Category= W(aiting for Exam)"
^DD(2006.631,.03,21,8,0)="  N  -- Newly-Interpreted; NO Category"
^DD(2006.631,.03,21,9,0)="  H -- History List; NO Category"
^DD(2006.631,.03,21,10,0)=" "
^DD(2006.631,.03,21,11,0)="List Types N and H are for internal use only,"
^DD(2006.631,.03,21,12,0)="and are not available for defining reports."
^DD(2006.631,.03,"DT")="3041021"
^DD(2006.631,.04,0)="IMAGING TYPES^RS^ALL:ALL;^0;4^Q"
^DD(2006.631,.04,3)="Enter ALL; this field may have other values in the future."
^DD(2006.631,.04,"DT")="2990226"
^DD(2006.631,.05,0)="LAST EDITED^D^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.631,.05,3)="When finished all list definition changes, Enter ""NOW"" to log time of last edit."
^DD(2006.631,.05,21,0)="^^1^1^2990324^"
^DD(2006.631,.05,21,1,0)="Log of last time this report was edited."
^DD(2006.631,.05,23,0)="^^3^3^2990324^"
^DD(2006.631,.05,23,1,0)="Whenever the report definition is edited, the compile process must"
^DD(2006.631,.05,23,2,0)="re-build some needed internal data structures that support the"
^DD(2006.631,.05,23,3,0)="execution of the List compile routines."
^DD(2006.631,.05,"DT")="2990226"
^DD(2006.631,.06,0)="ENABLE LIST?^S^1:Y;0:N;^0;6^Q"
^DD(2006.631,.06,3)="Enable this LIST only when it is ready for live use."
^DD(2006.631,.06,21,0)="^^5^5^2990324^^"
^DD(2006.631,.06,21,1,0)="Until the List definition is Enabled, it will not be available for"
^DD(2006.631,.06,21,2,0)="use from the VistARad Workstation; this allows you time to develop and/or"
^DD(2006.631,.06,21,3,0)="modify list definitions without worrying about end-users accessing a"
^DD(2006.631,.06,21,4,0)="fully-defined list.  Also, you can retire a list that is no longer needed"
^DD(2006.631,.06,21,5,0)="by deleting this field's answer."
^DD(2006.631,.06,"DT")="2990324"
^DD(2006.631,.07,0)="BUTTON LABEL^RF^^0;7^K:$L(X)>15!($L(X)<3) X"
^DD(2006.631,.07,3)="Answer must be 3-15 characters in length."
^DD(2006.631,.07,"DT")="2990630"
^DD(2006.631,1,0)="COLUMNS^2006.6311PA^^1;0"
^DD(2006.631,1,21,0)="^.001^1^1^3020313^^^"
^DD(2006.631,1,21,1,0)="Specify output columns here."
^DD(2006.631,2,0)="SORT^2006.6312PA^^2;0"
^DD(2006.631,2,21,0)="^^1^1^2990607^^^^"
^DD(2006.631,2,21,1,0)="The sort sequence may be specified here."
^DD(2006.631,"B","BUTTON LABEL",.07)=""
^DD(2006.631,"B","COLUMNS",1)=""
^DD(2006.631,"B","ENABLE LIST?",.06)=""
^DD(2006.631,"B","IMAGING TYPES",.04)=""
^DD(2006.631,"B","LAST EDITED",.05)=""
^DD(2006.631,"B","LIST #",.02)=""
^DD(2006.631,"B","LIST TYPE",.03)=""
^DD(2006.631,"B","NAME",.01)=""
^DD(2006.631,"B","SORT",2)=""
^DD(2006.631,"GL",0,1,.01)=""
^DD(2006.631,"GL",0,2,.02)=""
^DD(2006.631,"GL",0,3,.03)=""
^DD(2006.631,"GL",0,4,.04)=""
^DD(2006.631,"GL",0,5,.05)=""
^DD(2006.631,"GL",0,6,.06)=""
^DD(2006.631,"GL",0,7,.07)=""
^DD(2006.631,"GL",1,0,1)=""
^DD(2006.631,"GL",2,0,2)=""
^DD(2006.631,"IX",.01)=""
^DD(2006.631,"IX",.02)=""
^DD(2006.631,"RQ",.01)=""
^DD(2006.631,"RQ",.02)=""
^DD(2006.631,"RQ",.03)=""
^DD(2006.631,"RQ",.04)=""
^DD(2006.631,"RQ",.07)=""
^DD(2006.631,"SB",2006.6311,1)=""
^DD(2006.631,"SB",2006.6312,2)=""
^DD(2006.6311,0)="COLUMNS SUB-FIELD^^1^2"
^DD(2006.6311,0,"DT")="2990324"
^DD(2006.6311,0,"IX","B",2006.6311,.01)=""
^DD(2006.6311,0,"NM","COLUMNS")=""
^DD(2006.6311,0,"UP")="2006.631"
^DD(2006.6311,.01,0)="COLUMN^MP2006.63'^MAG(2006.63,^0;1^Q"
^DD(2006.6311,.01,1,0)="^.1"
^DD(2006.6311,.01,1,1,0)="2006.6311^B"
^DD(2006.6311,.01,1,1,1)="S ^MAG(2006.631,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.6311,.01,1,1,2)="K ^MAG(2006.631,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.6311,.01,3)="Enter output columns for the list."
^DD(2006.6311,.01,21,0)="^^2^2^3020313^"
^DD(2006.6311,.01,21,1,0)="This field is a pointer to MAG RAD LIST DATA ELEMENTS and specifies the "
^DD(2006.6311,.01,21,2,0)="display column in the Exam Lists."
^DD(2006.6311,.01,"DT")="2990302"
^DD(2006.6311,1,0)="WIDTH^NJ2,0^^0;2^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.6311,1,3)="Type a Number between 0 and 30, 0 Decimal Digits"
^DD(2006.6311,1,21,0)="^^1^1^2990324^"
^DD(2006.6311,1,21,1,0)="Output values may be truncated to the specified width, if desired."
^DD(2006.6311,1,"DT")="2990324"
^DD(2006.6311,"B","COLUMN",.01)=""
^DD(2006.6311,"B","WIDTH",1)=""
^DD(2006.6311,"GL",0,1,.01)=""
^DD(2006.6311,"GL",0,2,1)=""
^DD(2006.6311,"IX",.01)=""
^DD(2006.6312,0)="SORT SUB-FIELD^^1^2"
^DD(2006.6312,0,"DT")="2990607"
^DD(2006.6312,0,"IX","B",2006.6312,.01)=""
^DD(2006.6312,0,"NM","SORT")=""
^DD(2006.6312,0,"UP")="2006.631"
^DD(2006.6312,.01,0)="SORT^MP2006.63'^MAG(2006.63,^0;1^Q"
^DD(2006.6312,.01,1,0)="^.1^^-1"
^DD(2006.6312,.01,1,1,0)="2006.6312^B"
^DD(2006.6312,.01,1,1,1)="S ^MAG(2006.631,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2006.6312,.01,1,1,2)="K ^MAG(2006.631,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2006.6312,.01,3)="Specify the sort values, in the desired sort order."
^DD(2006.6312,.01,21,0)="^^1^1^2990607^^"
^DD(2006.6312,.01,21,1,0)="The order in which fields are entered here determines the sort order."
^DD(2006.6312,.01,"DT")="2990607"
^DD(2006.6312,1,0)="REVERSE?^S^1:YES;0:NO;^0;2^Q"
^DD(2006.6312,1,3)="If a reverse sort is desired, this should be answered ""Y""."
^DD(2006.6312,1,21,0)="^^2^2^2990607^^^^"
^DD(2006.6312,1,21,1,0)="If a reverse sort is desired, this should be answered ""Y""; reverse sort "
^DD(2006.6312,1,21,2,0)="is only valid for date/time and numeric-valued fields."
^DD(2006.6312,1,"DT")="2990607"
^DD(2006.6312,"B","REVERSE?",1)=""
^DD(2006.6312,"B","SORT",.01)=""
^DD(2006.6312,"GL",0,1,.01)=""
^DD(2006.6312,"GL",0,2,1)=""
^DD(2006.6312,"IX",.01)=""
^DD(2006.634,0)="FIELD^^32^32"
^DD(2006.634,0,"DDA")="Y"
^DD(2006.634,0,"DT")="3050803"
^DD(2006.634,0,"IX","B",2006.634,.01)=""
^DD(2006.634,0,"NM","MAGJ ZLIST SEARCH")=""
^DD(2006.634,0,"VR")="3.0"
^DD(2006.634,0,"VRPK")="MAG"
^DD(2006.634,.01,0)="CASE NUMBER^RF^^0;1^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,.01,1,0)="^.1"
^DD(2006.634,.01,1,1,0)="2006.634^B"
^DD(2006.634,.01,1,1,1)="S ^MAG(2006.634,""B"",$E(X,1,30),DA)="""""
^DD(2006.634,.01,1,1,2)="K ^MAG(2006.634,""B"",$E(X,1,30),DA)"
^DD(2006.634,.01,3)="Answer must be 1-3 characters in length."
^DD(2006.634,.01,21,0)="^^1^1^3020313^"
^DD(2006.634,.01,21,1,0)="The search entry that corresponds to the Case Number."
^DD(2006.634,.01,"DT")="2990329"
^DD(2006.634,2,0)="EXAM LOCK IND^RF^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(2006.634,2,3)="Answer must be 1-4 characters in length."
^DD(2006.634,2,21,0)="^^1^1^3020313^"
^DD(2006.634,2,21,1,0)="The search entry that corresponds to the Exam Lock Indicator."
^DD(2006.634,2,"DT")="2990329"
^DD(2006.634,3,0)="PATIENT NAME^RF^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,3,3)="Answer must be 1-3 characters in length."
^DD(2006.634,3,21,0)="^^1^1^3020313^"
^DD(2006.634,3,21,1,0)="The search entry that corresponds to the Patient Name."
^DD(2006.634,3,"DT")="2990329"
^DD(2006.634,4,0)="PATIENT ID^RF^^0;4^K:$L(X)>5!($L(X)<1) X"
^DD(2006.634,4,3)="Answer must be 1-5 characters in length."
^DD(2006.634,4,21,0)="^^1^1^3020313^"
^DD(2006.634,4,21,1,0)="The search entry that corresponds to the Patient Identification."
^DD(2006.634,4,"DT")="2990329"
^DD(2006.634,5,0)="PRIORITY^RF^^0;5^K:$L(X)>5!($L(X)<1) X"
^DD(2006.634,5,3)="Answer must be 1-5 characters in length."
^DD(2006.634,5,21,0)="^.001^1^1^3020313^^"
^DD(2006.634,5,21,1,0)="The search entry that corresponds to the Priority of the case."
^DD(2006.634,5,"DT")="2990329"
^DD(2006.634,6,0)="PROCEDURE^RF^^0;6^K:$L(X)>5!($L(X)<1) X"
^DD(2006.634,6,3)="Answer must be 1-5 characters in length."
^DD(2006.634,6,21,0)="^.001^1^1^3020313^^^"
^DD(2006.634,6,21,1,0)="The search entry that corresponds to Procedure."
^DD(2006.634,6,"DT")="2990329"
^DD(2006.634,7,0)="IMAGE DATE/TIME^F^^0;7^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,7,3)="Answer must be 1-3 characters in length."
^DD(2006.634,7,21,0)="^^1^1^3020313^"
^DD(2006.634,7,21,1,0)="The search entry that corresponds to the Image Date and Time."
^DD(2006.634,7,"DT")="2990329"
^DD(2006.634,8,0)="STATUS^RF^^0;8^K:$L(X)>4!($L(X)<1) X"
^DD(2006.634,8,3)="Answer must be 1-4 characters in length."
^DD(2006.634,8,21,0)="^^1^1^3020313^"
^DD(2006.634,8,21,1,0)="The search entry that corresponds to the Status of the case."
^DD(2006.634,8,"DT")="2990329"
^DD(2006.634,9,0)="NUMBER OF IMAGES^RF^^0;9^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,9,3)="Answer must be 1-3 characters in length."
^DD(2006.634,9,21,0)="^^1^1^3020313^"
^DD(2006.634,9,21,1,0)="The search entry that corresponds to Number of Images for the case."
^DD(2006.634,9,"DT")="2990329"
^DD(2006.634,10,0)="ONLINE STATUS^RF^^0;10^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,10,3)="Answer must be 1-3 characters in length."
^DD(2006.634,10,21,0)="^^1^1^3020313^"
^DD(2006.634,10,21,1,0)="The search entry that corresponds to Online Status of the images."
^DD(2006.634,10,"DT")="2990329"
^DD(2006.634,11,0)="IMAGING LOCATION^RF^^0;11^K:$L(X)>5!($L(X)<1) X"
^DD(2006.634,11,3)="Answer must be 1-5 characters in length."
^DD(2006.634,11,21,0)="^^1^1^3020313^"
^DD(2006.634,11,21,1,0)="The search entry that corresponds to the Imaging Location of the images."
^DD(2006.634,11,"DT")="2990329"
^DD(2006.634,12,0)="REMOTE CACHE INDICATOR^RF^^0;12^K:$L(X)>5!($L(X)<1) X"
^DD(2006.634,12,3)="Answer must be 1-5 characters in length."
^DD(2006.634,12,21,0)="^^1^1^3020313^"
^DD(2006.634,12,21,1,0)="The search entry that corresponds to Remote Cache Indicator for the images."
^DD(2006.634,12,"DT")="2990329"
^DD(2006.634,13,0)="IMAGES EXIST INDICATOR^RF^^0;13^K:$L(X)>1!($L(X)<1) X"
^DD(2006.634,13,3)="Answer must be 1 character in length."
^DD(2006.634,13,21,0)="^^1^1^3020313^"
^DD(2006.634,13,21,1,0)="The search entry that corresponds to Images Exist Indicator for the case."
^DD(2006.634,13,"DT")="2990329"
^DD(2006.634,14,0)="IMAGE DATE/TIME-SORTABLE^RF^^0;14^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,14,3)="Answer must be 1-3 characters in length."
^DD(2006.634,14,21,0)="^^1^1^3020313^"
^DD(2006.634,14,21,1,0)="The search entry that corresponds to Image Date & Time Sortable."
^DD(2006.634,14,"DT")="2990329"
^DD(2006.634,15,0)="MODALITY^RF^^0;15^K:$L(X)>2!($L(X)<1) X"
^DD(2006.634,15,3)="Answer must be 1-2 characters in length."
^DD(2006.634,15,21,0)="^.001^1^1^3020313^^"
^DD(2006.634,15,21,1,0)="The search entry that corresponds to Modality."
^DD(2006.634,15,"DT")="2990329"
^DD(2006.634,16,0)="INTERNAL EXAM STATUS^RF^^0;16^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,16,3)="Answer must be 1-3 characters in length."
^DD(2006.634,16,21,0)="^^1^1^3020313^"
^DD(2006.634,16,21,1,0)="The search entry that corresponds to Internal Exam Status."
^DD(2006.634,16,"DT")="2990329"
^DD(2006.634,17,0)="IMAGE TYPE ABBREVIATION^RF^^0;17^K:$L(X)>4!($L(X)<1) X"
^DD(2006.634,17,3)="Answer must be 1-4 characters in length."
^DD(2006.634,17,21,0)="^^1^1^3020313^"
^DD(2006.634,17,21,1,0)="The search entry that corresponds to Image Type Abbreviation."
^DD(2006.634,17,"DT")="2990329"
^DD(2006.634,18,0)="PATIENT LOCATION ABBREV^RF^^0;18^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,18,3)="Answer must be 1-3 characters in length."
^DD(2006.634,18,21,0)="^^1^1^3020313^"
^DD(2006.634,18,21,1,0)="The search entry that corresponds to Patient Location Abbreviation."
^DD(2006.634,18,"DT")="3010820"
^DD(2006.634,19,0)="PATIENT LOCATION NAME^RF^^0;19^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,19,3)="Answer must be 1-3 characters in length."
^DD(2006.634,19,21,0)="^^1^1^3020313^"
^DD(2006.634,19,21,1,0)="The search entry that corresponds to the Patient Location Name. "
^DD(2006.634,19,"DT")="3010820"
^DD(2006.634,20,0)="INTERPRETING RADIOLOGISTS^RF^^0;20^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,20,3)="Answer must be 1-3 characters in length."
^DD(2006.634,20,21,0)="^.001^1^1^3020313^^"
^DD(2006.634,20,21,1,0)="The search entry that corresponds to the Interpreting Radiologist."
^DD(2006.634,20,"DT")="3010820"
^DD(2006.634,21,0)="SSN LAST 4^RF^^0;21^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,21,3)="Answer must be 1-3 characters in length."
^DD(2006.634,21,21,0)="^^2^2^3020313^"
^DD(2006.634,21,21,1,0)="The search entry that corresponds to the last 4 digits of the social "
^DD(2006.634,21,21,2,0)="security number for the patient.."
^DD(2006.634,21,"DT")="3010820"
^DD(2006.634,22,0)="RADIOLOGY DIVISION^RF^^0;22^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,22,3)="Answer must be 1-3 characters in length."
^DD(2006.634,22,21,0)="^^1^1^3020313^"
^DD(2006.634,22,21,1,0)="The search entry that corresponds to the Radiology division."
^DD(2006.634,22,"DT")="3010820"
^DD(2006.634,23,0)="SITE CODE^RF^^0;23^K:$L(X)>3!($L(X)<1) X"
^DD(2006.634,23,3)="Answer must be 1-3 characters in length."
^DD(2006.634,23,21,0)="^^1^1^3020313^"
^DD(2006.634,23,21,1,0)="The search entry that corresponds to the Site code."
^DD(2006.634,23,"DT")="3010820"
^DD(2006.634,24,0)="INTERP BY LOGON RADIOLOGIST?^S^Y:YES;N:NO;^0;24^Q"
^DD(2006.634,24,21,0)="^^1^1^3020313^"
^DD(2006.634,24,21,1,0)="The search entry that corresponds to Interpreted By Login Radiologist."
^DD(2006.634,24,"DT")="3011106"
^DD(2006.634,25,0)="PROCEDURE MODIFIER^F^^0;25^K:$L(X)>30!($L(X)<2) X"
^DD(2006.634,25,3)="Answer must be 2-30 characters in length."
^DD(2006.634,25,21,0)="^^1^1^3030501^"
^DD(2006.634,25,21,1,0)="The search entry that corresponds to Procedure Modifier."
^DD(2006.634,25,"DT")="3030501"
^DD(2006.634,26,0)="PATIENT LOCATION TYPE^F^^0;26^K:$L(X)>10!($L(X)<1) X"
^DD(2006.634,26,3)="Answer must be 1-10 characters in length."
^DD(2006.634,26,21,0)="^^1^1^3030501^"
^DD(2006.634,26,21,1,0)="The search entry that corresponds to Patient Location Type."
^DD(2006.634,26,"DT")="3030501"
^DD(2006.634,27,0)="CPT CODE^F^^0;27^K:$L(X)>5!($L(X)<3) X"
^DD(2006.634,27,3)="Answer must be 3-5 characters in length."
^DD(2006.634,27,21,0)="^^1^1^3041013^"
^DD(2006.634,27,21,1,0)="The search entry that corresponds to the Procedure CPT Code"
^DD(2006.634,27,"DT")="3041013"
^DD(2006.634,28,0)="WARD^F^^0;28^K:$L(X)>10!($L(X)<2) X"
^DD(2006.634,28,3)="Answer must be 2-10 characters in length."
^DD(2006.634,28,21,0)="^^1^1^3041013^"
^DD(2006.634,28,21,1,0)="The search entry that corresponds to the Patient Ward"
^DD(2006.634,28,"DT")="3041013"
^DD(2006.634,29,0)="HISTORY IEN^NJ6,0^^0;29^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.634,29,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2006.634,29,21,0)="^^1^1^3050803^"
^DD(2006.634,29,21,1,0)="The search entry that corresponds to the History List IEN."
^DD(2006.634,29,"DT")="3050803"
^DD(2006.634,30,0)="HISTORY TIMESTAMP^F^^0;30^K:$L(X)>10!($L(X)<1) X"
^DD(2006.634,30,3)="Answer must be 1-10 characters in length."
^DD(2006.634,30,21,0)="^^1^1^3050803^"
^DD(2006.634,30,21,1,0)="The search entry that corresponds to the History List timestamp."
^DD(2006.634,30,"DT")="3050803"
^DD(2006.634,31,0)="HISTORY LOCK STATUS^S^N:No;Y:Yes;^0;31^Q"
^DD(2006.634,31,3)=""
^DD(2006.634,31,21,0)="^.001^1^1^3050803^^"
^DD(2006.634,31,21,1,0)="The search entry that corresponds to the History List lock status."
^DD(2006.634,31,"DT")="3050803"
^DD(2006.634,32,0)="HISTORY HP USED^F^^0;32^K:$L(X)>30!($L(X)<2) X"
^DD(2006.634,32,3)="Answer must be 2-30 characters in length."
^DD(2006.634,32,21,0)="^^1^1^3050803^"
^DD(2006.634,32,21,1,0)="The search entry that corresponds to the History List HP or TP used."
^DD(2006.634,32,"DT")="3050803"
^DD(2006.634,"B","CASE NUMBER",.01)=""
^DD(2006.634,"B","CPT CODE",27)=""
^DD(2006.634,"B","EXAM LOCK IND",2)=""
^DD(2006.634,"B","HISTORY HP USED",32)=""
^DD(2006.634,"B","HISTORY IEN",29)=""
^DD(2006.634,"B","HISTORY LOCK STATUS",31)=""
^DD(2006.634,"B","HISTORY TIMESTAMP",30)=""
^DD(2006.634,"B","IMAGE DATE/TIME",7)=""
^DD(2006.634,"B","IMAGE DATE/TIME-SORTABLE",14)=""
^DD(2006.634,"B","IMAGE TYPE ABBREVIATION",17)=""
^DD(2006.634,"B","IMAGES EXIST INDICATOR",13)=""
^DD(2006.634,"B","IMAGING LOCATION",11)=""
^DD(2006.634,"B","INTERNAL EXAM STATUS",16)=""
^DD(2006.634,"B","INTERP BY LOGON RADIOLOGIST?",24)=""
^DD(2006.634,"B","INTERPRETING RADIOLOGISTS",20)=""
^DD(2006.634,"B","MODALITY",15)=""
^DD(2006.634,"B","NUMBER OF IMAGES",9)=""
^DD(2006.634,"B","ONLINE STATUS",10)=""
^DD(2006.634,"B","PATIENT ID",4)=""
^DD(2006.634,"B","PATIENT LOCATION ABBREV",18)=""
^DD(2006.634,"B","PATIENT LOCATION NAME",19)=""
^DD(2006.634,"B","PATIENT LOCATION TYPE",26)=""
^DD(2006.634,"B","PATIENT NAME",3)=""
^DD(2006.634,"B","PRIORITY",5)=""
^DD(2006.634,"B","PROCEDURE",6)=""
^DD(2006.634,"B","PROCEDURE MODIFIER",25)=""
^DD(2006.634,"B","RADIOLOGY DIVISION",22)=""
^DD(2006.634,"B","REMOTE CACHE INDICATOR",12)=""
^DD(2006.634,"B","SITE CODE",23)=""
^DD(2006.634,"B","SSN LAST 4",21)=""
^DD(2006.634,"B","STATUS",8)=""
^DD(2006.634,"B","WARD",28)=""
^DD(2006.634,"GL",0,1,.01)=""
^DD(2006.634,"GL",0,2,2)=""
^DD(2006.634,"GL",0,3,3)=""
^DD(2006.634,"GL",0,4,4)=""
^DD(2006.634,"GL",0,5,5)=""
^DD(2006.634,"GL",0,6,6)=""
^DD(2006.634,"GL",0,7,7)=""
^DD(2006.634,"GL",0,8,8)=""
^DD(2006.634,"GL",0,9,9)=""
^DD(2006.634,"GL",0,10,10)=""
^DD(2006.634,"GL",0,11,11)=""
^DD(2006.634,"GL",0,12,12)=""
^DD(2006.634,"GL",0,13,13)=""
^DD(2006.634,"GL",0,14,14)=""
^DD(2006.634,"GL",0,15,15)=""
^DD(2006.634,"GL",0,16,16)=""
^DD(2006.634,"GL",0,17,17)=""
^DD(2006.634,"GL",0,18,18)=""
^DD(2006.634,"GL",0,19,19)=""
^DD(2006.634,"GL",0,20,20)=""
^DD(2006.634,"GL",0,21,21)=""
^DD(2006.634,"GL",0,22,22)=""
^DD(2006.634,"GL",0,23,23)=""
^DD(2006.634,"GL",0,24,24)=""
^DD(2006.634,"GL",0,25,25)=""
^DD(2006.634,"GL",0,26,26)=""
^DD(2006.634,"GL",0,27,27)=""
^DD(2006.634,"GL",0,28,28)=""
^DD(2006.634,"GL",0,29,29)=""
^DD(2006.634,"GL",0,30,30)=""
^DD(2006.634,"GL",0,31,31)=""
^DD(2006.634,"GL",0,32,32)=""
^DD(2006.634,"IX",.01)=""
^DD(2006.634,"RQ",.01)=""
^DD(2006.634,"RQ",2)=""
^DD(2006.634,"RQ",3)=""
^DD(2006.634,"RQ",4)=""
^DD(2006.634,"RQ",5)=""
^DD(2006.634,"RQ",6)=""
^DD(2006.634,"RQ",8)=""
^DD(2006.634,"RQ",9)=""
^DD(2006.634,"RQ",10)=""
^DD(2006.634,"RQ",11)=""
^DD(2006.634,"RQ",12)=""
^DD(2006.634,"RQ",13)=""
^DD(2006.634,"RQ",14)=""
^DD(2006.634,"RQ",15)=""
^DD(2006.634,"RQ",16)=""
^DD(2006.634,"RQ",17)=""
^DD(2006.634,"RQ",18)=""
^DD(2006.634,"RQ",19)=""
^DD(2006.634,"RQ",20)=""
^DD(2006.634,"RQ",21)=""
^DD(2006.634,"RQ",22)=""
^DD(2006.634,"RQ",23)=""
^DD(2006.65,0)="FIELD^^1^3"
^DD(2006.65,0,"DDA")="N"
^DD(2006.65,0,"DT")="2990629"
^DD(2006.65,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(2006.65,0,"IX","B",2006.65,.01)=""
^DD(2006.65,0,"IX","C",2006.65,.02)=""
^DD(2006.65,0,"NM","MAG RAD PRIOR EXAMS LOGIC")=""
^DD(2006.65,0,"VR")="3.0"
^DD(2006.65,0,"VRPK")="IMAGING"
^DD(2006.65,.01,0)="CURRENT CASE CPT GROUP^RF^^0;1^K:$L(X)>5!($L(X)<3)!'(X?3.5N) X"
^DD(2006.65,.01,1,0)="^.1"
^DD(2006.65,.01,1,1,0)="2006.65^B"
^DD(2006.65,.01,1,1,1)="S ^MAG(2006.65,""B"",$E(X,1,30),DA)="""""
^DD(2006.65,.01,1,1,2)="K ^MAG(2006.65,""B"",$E(X,1,30),DA)"
^DD(2006.65,.01,3)="Answer must be 3-5 characters in length."
^DD(2006.65,.01,20,0)="^.3LA^^0"
^DD(2006.65,.01,21,0)="^^11^11^2990629^^^^"
^DD(2006.65,.01,21,1,0)="The CPT ""GROUP"" corresponds to the Current Case's CPT code, by which logic"
^DD(2006.65,.01,21,2,0)="is defined for finding other exams (by their CPT codes) that may be of"
^DD(2006.65,.01,21,3,0)="interest when viewing an exam that is part of the defined CPT GROUP.  The"
^DD(2006.65,.01,21,4,0)="CPT GROUP is either: A 5-digit CPT code; the first 4 digits; or, the first"
^DD(2006.65,.01,21,5,0)="3 digits of the CPT code.  For example, possible CPT GROUP values for the"
^DD(2006.65,.01,21,6,0)="CPT code 71020 are: 71020; 7102; and 710.  CPT GROUP thus allows rules to"
^DD(2006.65,.01,21,7,0)="be defined for specific CPT codes, or whole groups of codes that share the"
^DD(2006.65,.01,21,8,0)="same leading 3 or 4 digits.  The rationale for this is that the CPT coding"
^DD(2006.65,.01,21,9,0)="scheme GENERALLY (not always) groups code ranges by body parts--we can"
^DD(2006.65,.01,21,10,0)="take advantage of this to greatly reduce the numbers of entries that would"
^DD(2006.65,.01,21,11,0)="be required to define mappings of exams by their CPT codes."
^DD(2006.65,.01,"DT")="2970320"
^DD(2006.65,.02,0)="CURRENT CPT DESC^F^^0;2^K:$L(X)>75!($L(X)<3) X"
^DD(2006.65,.02,1,0)="^.1"
^DD(2006.65,.02,1,1,0)="2006.65^C"
^DD(2006.65,.02,1,1,1)="S ^MAG(2006.65,""C"",$E(X,1,30),DA)="""""
^DD(2006.65,.02,1,1,2)="K ^MAG(2006.65,""C"",$E(X,1,30),DA)"
^DD(2006.65,.02,1,1,"DT")="2990701"
^DD(2006.65,.02,3)="Answer must be 3-75 characters in length."
^DD(2006.65,.02,21,0)="^^1^1^3020313^"
^DD(2006.65,.02,21,1,0)="This is a free text description for the current CPT group."
^DD(2006.65,.02,"DT")="2990701"
^DD(2006.65,1,0)="PRIOR CASE MATCHING CPT GROUP^2006.66AI^^1;0"
^DD(2006.65,1,21,0)="^.001^5^5^3020313^^^^"
^DD(2006.65,1,21,1,0)="The CPT GROUP concept, explained above in the CURRENT CASE CPT GROUP"
^DD(2006.65,1,21,2,0)="field, applies here.  These are the codes which, if associated with Prior"
^DD(2006.65,1,21,3,0)="Cases for a patient, will cause the system to retrieve the images and/or"
^DD(2006.65,1,21,4,0)="information automatically for the intended purposes (e.g., Pre-Fetch or"
^DD(2006.65,1,21,5,0)="Auto-Display)."
^DD(2006.65,1,"DT")="2970311"
^DD(2006.65,"B","CURRENT CASE CPT GROUP",.01)=""
^DD(2006.65,"B","CURRENT CPT DESC",.02)=""
^DD(2006.65,"B","PRIOR CASE MATCHING CPT GROUP",1)=""
^DD(2006.65,"GL",0,1,.01)=""
^DD(2006.65,"GL",0,2,.02)=""
^DD(2006.65,"GL",1,0,1)=""
^DD(2006.65,"IX",.01)=""
^DD(2006.65,"IX",.02)=""
^DD(2006.65,"RQ",.01)=""
^DD(2006.65,"SB",2006.66,1)=""
^DD(2006.66,0)="PRIOR CASE MATCHING CPT GROUP SUB-FIELD^^7^8"
^DD(2006.66,0,"DT")="2990629"
^DD(2006.66,0,"ID",7)="W ""   "",$P(^(0),U,8)"
^DD(2006.66,0,"IX","B",2006.66,.01)=""
^DD(2006.66,0,"NM","PRIOR CASE MATCHING CPT GROUP")=""
^DD(2006.66,0,"UP")="2006.65"
^DD(2006.66,.01,0)="MATCHING CPT GROUP^MRF^^0;1^K:$L(X)>5!($L(X)<3)!'(X?3.5N) X"
^DD(2006.66,.01,1,0)="^.1"
^DD(2006.66,.01,1,1,0)="2006.66^B"
^DD(2006.66,.01,1,1,1)="S ^MAG(2006.65,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.66,.01,1,1,2)="K ^MAG(2006.65,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.66,.01,3)="Answer must be 3-5 characters in length."
^DD(2006.66,.01,21,0)="^.001^3^3^3020313^^"
^DD(2006.66,.01,21,1,0)="This is the CPT group to be matched to the current CPT group. It can "
^DD(2006.66,.01,21,2,0)="consist of the first 3 to 5 digits of the CPT code.  (See CURRENT CASE "
^DD(2006.66,.01,21,3,0)="CPT GROUP description for more details."
^DD(2006.66,.01,"DT")="2970313"
^DD(2006.66,1,0)="AUTO-DISPLAY?^S^1:YES;0:NO;^0;2^Q"
^DD(2006.66,1,3)="If you want the defined CPT codes combination to result in Automatically displaying prior exams, enter ""YES""; otherwise, enter ""NO""."
^DD(2006.66,1,21,0)="^^16^16^2990607^^"
^DD(2006.66,1,21,1,0)="If prior cases having this CPT GROUP should be automatically displayed"
^DD(2006.66,1,21,2,0)="when reading a Current Case, then the answer should be 'YES'; if not, the"
^DD(2006.66,1,21,3,0)="answer should be 'NO'.  By allowing this YES/NO for each entry defined, it"
^DD(2006.66,1,21,4,0)="becomes possible to define rules flexibly, using combinations of Inclusive"
^DD(2006.66,1,21,5,0)="and Exclusive logic.  For example, a possible definition for the CURRENT"
^DD(2006.66,1,21,6,0)="CASE CPT GROUP for 735:"
^DD(2006.66,1,21,7,0)="     CURRENT      PRIOR      AUTO-DISPLAY?"
^DD(2006.66,1,21,8,0)="       735         735           Y"
^DD(2006.66,1,21,9,0)="                   7356          N"
^DD(2006.66,1,21,10,0)="                   7358          N"
^DD(2006.66,1,21,11,0)="                   7359          N"
^DD(2006.66,1,21,12,0)="This example says, for a Current Case with CPT code beginning with 735, do"
^DD(2006.66,1,21,13,0)="the Auto-Display for any Prior Case having a CPT of 735nn, except for"
^DD(2006.66,1,21,14,0)="those having CPTs of 7356n, 7358n, and 7359n.  A more complete definition"
^DD(2006.66,1,21,15,0)="of this example would then (likely) define three CURRENT entries for these"
^DD(2006.66,1,21,16,0)="latter 4-digit groups."
^DD(2006.66,1,"DT")="2990607"
^DD(2006.66,2,0)="DAYS LIMIT/AUTO-DISPLAY^NJ5,0^^0;3^K:+X'=X!(X>20000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.66,2,3)="To limit auto-display of images based on the time interval between the Current Case and the Prior exam specify a limit in days.  If no time limit is applicable, do NOT enter a value."
^DD(2006.66,2,21,0)="^^3^3^2980818^^"
^DD(2006.66,2,21,1,0)="To limit auto-display of images based on the time interval between the"
^DD(2006.66,2,21,2,0)="Current Case and the Prior exam, a limit may be specified, expressed in"
^DD(2006.66,2,21,3,0)="days.  If no time limit is applicable, no value should be entered."
^DD(2006.66,2,"DT")="2970313"
^DD(2006.66,3,0)="VERSION LIMIT/AUTO-DISPLAY^NJ2,0^^0;4^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.66,3,3)="Enter a number from 1 to 10; this is the maximum number of exams matching this MATCHING CPT GROUP that will be AUTO-DISPLAYED."
^DD(2006.66,3,21,0)="^^4^4^2980818^^"
^DD(2006.66,3,21,1,0)="The value entered here will limit the total number of prior exams that"
^DD(2006.66,3,21,2,0)="match this MATCHING CPT GROUP that will be automatically displayed. The"
^DD(2006.66,3,21,3,0)="first 'N' (N=VERSION LIMIT) exams, from the most recent to the oldest,"
^DD(2006.66,3,21,4,0)="that match will be Auto_Displayed."
^DD(2006.66,3,"DT")="2970311"
^DD(2006.66,4,0)="PRE-FETCH?^RS^1:YES;0:NO;^0;5^Q"
^DD(2006.66,4,3)="If you want the defined CPT codes combination to result in Automatically Pre-fetching images from archive storage, enter ""YES""; otherwise, enter ""NO""."
^DD(2006.66,4,21,0)="^^3^3^2980818^^^^"
^DD(2006.66,4,21,1,0)="If prior cases having this CPT GROUP should be automatically Pre-fetched"
^DD(2006.66,4,21,2,0)="from archive storage (i.e. Jukebox) to magnetic disk, then the answer"
^DD(2006.66,4,21,3,0)="should be 'YES'; if not, the answer should be 'NO'."
^DD(2006.66,4,"DT")="2970108"
^DD(2006.66,5,0)="DAYS LIMIT-PREFETCH^NJ5,0^^0;6^K:+X'=X!(X>20000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.66,5,3)="To limit pre-fetch of images based on the time interval between the Current Case and the Prior exam, specify a limit in days.  If no time limit is applicable, do NOT enter a value."
^DD(2006.66,5,21,0)="^^3^3^2980818^^^"
^DD(2006.66,5,21,1,0)="To limit pre-fetch of images based on the time interval between the"
^DD(2006.66,5,21,2,0)="Current Case and the Prior exam, a limit may be specified, expressed in"
^DD(2006.66,5,21,3,0)="days.  If no time limit is applicable, no value should be entered."
^DD(2006.66,5,"DT")="2970313"
^DD(2006.66,6,0)="VERSION LIMIT-PREFETCH^NJ2,0^^0;7^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2006.66,6,3)="Enter a number from 1 to 10; this is the maximum number of exams matching this MATCHING CPT GROUP that will be pre-fetched."
^DD(2006.66,6,21,0)="^^4^4^2980818^^"
^DD(2006.66,6,21,1,0)="The value entered here will limit the total number of prior exams that"
^DD(2006.66,6,21,2,0)="match this MATCHING CPT GROUP that will be pre-fetched from archive"
^DD(2006.66,6,21,3,0)="storage. The first 'N' (N=VERSION LIMIT) exams, from the most recent to"
^DD(2006.66,6,21,4,0)="the oldest, that match will be pre-fetched."
^DD(2006.66,6,"DT")="2970108"
^DD(2006.66,7,0)="PRIOR CPT DESC^F^^0;8^K:$L(X)>75!($L(X)<3) X"
^DD(2006.66,7,3)="Answer must be 3-75 characters in length."
^DD(2006.66,7,21,0)="^^1^1^3020313^"
^DD(2006.66,7,21,1,0)="This is a free text description for the CPT group. "
^DD(2006.66,7,"DT")="2990629"
^DD(2006.66,"B","AUTO-DISPLAY?",1)=""
^DD(2006.66,"B","DAYS LIMIT-PREFETCH",5)=""
^DD(2006.66,"B","DAYS LIMIT/AUTO-DISPLAY",2)=""
^DD(2006.66,"B","MATCHING CPT GROUP",.01)=""
^DD(2006.66,"B","PRE-FETCH?",4)=""
^DD(2006.66,"B","PRIOR CPT DESC",7)=""
^DD(2006.66,"B","VERSION LIMIT-PREFETCH",6)=""
^DD(2006.66,"B","VERSION LIMIT/AUTO-DISPLAY",3)=""
^DD(2006.66,"GL",0,1,.01)=""
^DD(2006.66,"GL",0,2,1)=""
^DD(2006.66,"GL",0,3,2)=""
^DD(2006.66,"GL",0,4,3)=""
^DD(2006.66,"GL",0,5,4)=""
^DD(2006.66,"GL",0,6,5)=""
^DD(2006.66,"GL",0,7,6)=""
^DD(2006.66,"GL",0,8,7)=""
^DD(2006.66,"IX",.01)=""
^DD(2006.66,"RQ",.01)=""
^DD(2006.66,"RQ",4)=""
^DD(2006.67,0)="FIELD^^5^6"
^DD(2006.67,0,"DDA")="N"
^DD(2006.67,0,"DT")="3050527"
^DD(2006.67,0,"IX","B",2006.67,.01)=""
^DD(2006.67,0,"IX","BODYPART",2006.674,.01)=""
^DD(2006.67,0,"IX","CPTMATCH",2006.67,3)=""
^DD(2006.67,0,"IX","MDL",2006.675,.01)=""
^DD(2006.67,0,"NM","MAG RAD CPT MATCHING")=""
^DD(2006.67,0,"PT",2006.67,3)=""
^DD(2006.67,0,"VR")="3.0"
^DD(2006.67,0,"VRPK")="MAG"
^DD(2006.67,.01,0)="CPT CODE^RP81'^ICPT(^0;1^Q"
^DD(2006.67,.01,1,0)="^.1"
^DD(2006.67,.01,1,1,0)="2006.67^B"
^DD(2006.67,.01,1,1,1)="S ^MAG(2006.67,""B"",$E(X,1,30),DA)="""""
^DD(2006.67,.01,1,1,2)="K ^MAG(2006.67,""B"",$E(X,1,30),DA)"
^DD(2006.67,.01,3)=""
^DD(2006.67,.01,21,0)="^.001^1^1^3050614^^"
^DD(2006.67,.01,21,1,0)="CPT code for creating an entry in this file."
^DD(2006.67,.01,23,0)="^.001^1^1^3050614^^^^"
^DD(2006.67,.01,23,1,0)="Pointer to the CPT file."
^DD(2006.67,.01,"DEL",1,0)="D EN^DDIOL(""Deletion is not allowed!"") I 1"
^DD(2006.67,.01,"DT")="3050301"
^DD(2006.67,1,0)="AMA BODY REGION^P2006.672'^MAG(2006.672,^0;2^Q"
^DD(2006.67,1,3)=""
^DD(2006.67,1,21,0)="^.001^4^4^3050606^^"
^DD(2006.67,1,21,1,0)="This field contains generic body region descriptive information"
^DD(2006.67,1,21,2,0)="derived from the AMA CPT book.  The values used are from the "
^DD(2006.67,1,21,3,0)="Radiology procedures section; it provides a general frame of"
^DD(2006.67,1,21,4,0)="reference when assigning Body Part asociations."
^DD(2006.67,1,"DT")="3050526"
^DD(2006.67,2,0)="VRAD BODY REGION^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(2006.67,2,1,0)="^.1^^0"
^DD(2006.67,2,3)="Answer must be 1-30 characters in length."
^DD(2006.67,2,21,0)="^.001^1^1^3050606^^"
^DD(2006.67,2,21,1,0)="Provides another means for grouping body part designations."
^DD(2006.67,2,"DT")="3050603"
^DD(2006.67,3,0)="MATCH GROUP^P2006.67'^MAG(2006.67,^0;4^Q"
^DD(2006.67,3,1,0)="^.1"
^DD(2006.67,3,1,1,0)="2006.67^CPTMATCH"
^DD(2006.67,3,1,1,1)="S ^MAG(2006.67,""CPTMATCH"",$E(X,1,30),DA)="""""
^DD(2006.67,3,1,1,2)="K ^MAG(2006.67,""CPTMATCH"",$E(X,1,30),DA)"
^DD(2006.67,3,1,1,"DT")="3050301"
^DD(2006.67,3,3)="Enter cpt code that defines the cpt match group for this code."
^DD(2006.67,3,21,0)="^.001^8^8^3050531^^^"
^DD(2006.67,3,21,1,0)="This field points to another CPT entry in this file.  It is used"
^DD(2006.67,3,21,2,0)="to identify another procedure that is ""similar"" to this one for"
^DD(2006.67,3,21,3,0)="automatic prior exams matching.  As many CPTs as desired may point"
^DD(2006.67,3,21,4,0)="to the same MATCH GROUP CPT value--this will have the effect where"
^DD(2006.67,3,21,5,0)="any one of those procedures are thus part of the same group of exams"
^DD(2006.67,3,21,6,0)="for matching.  I.e., looking for matching priors for any one of"
^DD(2006.67,3,21,7,0)="those values would be able to retrieve exams that correspond to"
^DD(2006.67,3,21,8,0)="all of the CPTs so defined."
^DD(2006.67,3,"DT")="3050316"
^DD(2006.67,4,0)="BODY PART^2006.674P^^1;0"
^DD(2006.67,4,21,0)="^.001^5^5^3050531^^^^"
^DD(2006.67,4,21,1,0)="Searching for prior exams may be done by matching the Body Part(s) of"
^DD(2006.67,4,21,2,0)="the current exam with prior exams of the same Body Part as defined"
^DD(2006.67,4,21,3,0)="in this file."
^DD(2006.67,4,21,4,0)="Note that prior exams matching logic may use Body Part in combination"
^DD(2006.67,4,21,5,0)="with Modality to find matching CPT codes."
^DD(2006.67,5,0)="MODALITY^2006.675P^^2;0"
^DD(2006.67,5,21,0)="^.001^4^4^3050531^^"
^DD(2006.67,5,21,1,0)="Searching for prior exams may be done by matching the Modality(s) of"
^DD(2006.67,5,21,2,0)="the current exam with prior exams of the same Modality.  Note that"
^DD(2006.67,5,21,3,0)="the matching may optionally be based on Modality and Body Part in "
^DD(2006.67,5,21,4,0)="combination."
^DD(2006.67,"B","AMA BODY REGION",1)=""
^DD(2006.67,"B","BODY PART",4)=""
^DD(2006.67,"B","CPT CODE",.01)=""
^DD(2006.67,"B","MATCH GROUP",3)=""
^DD(2006.67,"B","MODALITY",5)=""
^DD(2006.67,"B","VRAD BODY REGION",2)=""
^DD(2006.67,"GL",0,1,.01)=""
^DD(2006.67,"GL",0,2,1)=""
^DD(2006.67,"GL",0,3,2)=""
^DD(2006.67,"GL",0,4,3)=""
^DD(2006.67,"GL",1,0,4)=""
^DD(2006.67,"GL",2,0,5)=""
^DD(2006.67,"IX",.01)=""
^DD(2006.67,"IX",3)=""
^DD(2006.67,"RQ",.01)=""
^DD(2006.67,"SB",2006.674,4)=""
^DD(2006.67,"SB",2006.675,5)=""
^DD(2006.671,0)="FIELD^^.01^1"
^DD(2006.671,0,"DT")="3050315"
^DD(2006.671,0,"IX","B",2006.671,.01)=""
^DD(2006.671,0,"NM","MAG RAD BODY PART")=""
^DD(2006.671,0,"PT",2006.674,.01)=""
^DD(2006.671,0,"VR")="3.0"
^DD(2006.671,0,"VRPK")="MAG"
^DD(2006.671,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.671,.01,1,0)="^.1"
^DD(2006.671,.01,1,1,0)="2006.671^B"
^DD(2006.671,.01,1,1,1)="S ^MAG(2006.671,""B"",$E(X,1,30),DA)="""""
^DD(2006.671,.01,1,1,2)="K ^MAG(2006.671,""B"",$E(X,1,30),DA)"
^DD(2006.671,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.671,.01,21,0)="^.001^2^2^3050527^^"
^DD(2006.671,.01,21,1,0)="Body part file for use in assigning body part designations to the"
^DD(2006.671,.01,21,2,0)="MAG RAD CPT MATCHING file entries."
^DD(2006.671,.01,"DT")="3050315"
^DD(2006.671,"B","NAME",.01)=""
^DD(2006.671,"GL",0,1,.01)=""
^DD(2006.671,"IX",.01)=""
^DD(2006.671,"RQ",.01)=""
^DD(2006.672,0)="FIELD^^.01^1"
^DD(2006.672,0,"DDA")="N"
^DD(2006.672,0,"DT")="3050316"
^DD(2006.672,0,"IX","B",2006.672,.01)=""
^DD(2006.672,0,"NM","MAG RAD BODY REGION")=""
^DD(2006.672,0,"PT",2006.67,1)=""
^DD(2006.672,0,"VR")="3.0"
^DD(2006.672,0,"VRPK")="MAG"
^DD(2006.672,.01,0)="NAME^RFI^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.672,.01,1,0)="^.1"
^DD(2006.672,.01,1,1,0)="2006.672^B"
^DD(2006.672,.01,1,1,1)="S ^MAG(2006.672,""B"",$E(X,1,30),DA)="""""
^DD(2006.672,.01,1,1,2)="K ^MAG(2006.672,""B"",$E(X,1,30),DA)"
^DD(2006.672,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.672,.01,21,0)="^.001^2^2^3050527^^^^"
^DD(2006.672,.01,21,1,0)="The values used for this field are derived from the AMA CPT book's"
^DD(2006.672,.01,21,2,0)="RADIOLOGY Chapter, and correspond to the subsection ""body part"" headings."
^DD(2006.672,.01,"DT")="3050527"
^DD(2006.672,"B","NAME",.01)=""
^DD(2006.672,"GL",0,1,.01)=""
^DD(2006.672,"IX",.01)=""
^DD(2006.672,"RQ",.01)=""
^DD(2006.674,0)="BODY PART SUB-FIELD^^.01^1"
^DD(2006.674,0,"DT")="3050527"
^DD(2006.674,0,"IX","B",2006.674,.01)=""
^DD(2006.674,0,"NM","BODY PART")=""
^DD(2006.674,0,"UP")="2006.67"
^DD(2006.674,.01,0)="BODY PART^MP2006.671'^MAG(2006.671,^0;1^Q"
^DD(2006.674,.01,1,0)="^.1"
^DD(2006.674,.01,1,1,0)="2006.674^B"
^DD(2006.674,.01,1,1,1)="S ^MAG(2006.67,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2006.674,.01,1,1,2)="K ^MAG(2006.67,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2006.674,.01,1,2,0)="2006.67^BODYPART"
^DD(2006.674,.01,1,2,1)="S ^MAG(2006.67,""BODYPART"",$E(X,1,30),DA(1),DA)="""""
^DD(2006.674,.01,1,2,2)="K ^MAG(2006.67,""BODYPART"",$E(X,1,30),DA(1),DA)"
^DD(2006.674,.01,1,2,"DT")="3050301"
^DD(2006.674,.01,3)="Enter body part for this CPT code."
^DD(2006.674,.01,21,0)="^.001^6^6^3050531^^"
^DD(2006.674,.01,21,1,0)="Enter the body part(s) for which this procedure applies.  This will"
^DD(2006.674,.01,21,2,0)="allow prior exams logic to include this CPT when trying to match"
^DD(2006.674,.01,21,3,0)="other exams for the same Body Part.  Multiple values may be assigned"
^DD(2006.674,.01,21,4,0)="for any given CPT code."
^DD(2006.674,.01,21,5,0)="Note that prior exams matching logic may use Body Part in combination"
^DD(2006.674,.01,21,6,0)="with Modality to find matching CPT codes."
^DD(2006.674,.01,"DT")="3050527"
^DD(2006.674,"B","BODY PART",.01)=""
^DD(2006.674,"GL",0,1,.01)=""
^DD(2006.674,"IX",.01)=""
^DD(2006.675,0)="MODALITY SUB-FIELD^^.01^1"
^DD(2006.675,0,"DT")="3050302"
^DD(2006.675,0,"IX","B",2006.675,.01)=""
^DD(2006.675,0,"NM","MODALITY")=""
^DD(2006.675,0,"UP")="2006.67"
^DD(2006.675,.01,0)="MODALITY^MP73.1'^RAMIS(73.1,^0;1^Q"
^DD(2006.675,.01,1,0)="^.1"
^DD(2006.675,.01,1,1,0)="2006.675^B"
^DD(2006.675,.01,1,1,1)="S ^MAG(2006.67,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2006.675,.01,1,1,2)="K ^MAG(2006.67,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2006.675,.01,1,2,0)="2006.67^MDL"
^DD(2006.675,.01,1,2,1)="S ^MAG(2006.67,""MDL"",$E(X,1,30),DA(1),DA)="""""
^DD(2006.675,.01,1,2,2)="K ^MAG(2006.67,""MDL"",$E(X,1,30),DA(1),DA)"
^DD(2006.675,.01,1,2,"DT")="3050509"
^DD(2006.675,.01,3)="Choose a modality from the pre-defined list"
^DD(2006.675,.01,21,0)="^^6^6^3050531^"
^DD(2006.675,.01,21,1,0)="Enter the Modality(ies) used for this procedure.  This will allow"
^DD(2006.675,.01,21,2,0)="prior exams logic to include this Modality when trying to match"
^DD(2006.675,.01,21,3,0)="other exams for the same Modality.  Multiple values may be assigned"
^DD(2006.675,.01,21,4,0)="for any given CPT code."
^DD(2006.675,.01,21,5,0)="Note that prior exams matching logic may use Modality in combination"
^DD(2006.675,.01,21,6,0)="with Body Part to find matching CPT codes."
^DD(2006.675,.01,"DT")="3050509"
^DD(2006.675,"B","MODALITY",.01)=""
^DD(2006.675,"GL",0,1,.01)=""
^DD(2006.675,"IX",.01)=""
^DD(2006.68,0)="FIELD^^3^5"
^DD(2006.68,0,"DT")="3060307"
^DD(2006.68,0,"IX","AC",2006.68,1)=""
^DD(2006.68,0,"IX","B",2006.68,.01)=""
^DD(2006.68,0,"NM","MAGJ USER DATA")=""
^DD(2006.68,0,"VR")="3.0"
^DD(2006.68,0,"VRPK")="MAG"
^DD(2006.68,.01,0)="DESCRIPTION^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.68,.01,1,0)="^.1"
^DD(2006.68,.01,1,1,0)="2006.68^B"
^DD(2006.68,.01,1,1,1)="S ^MAG(2006.68,""B"",$E(X,1,30),DA)="""""
^DD(2006.68,.01,1,1,2)="K ^MAG(2006.68,""B"",$E(X,1,30),DA)"
^DD(2006.68,.01,3)="Answer must be 3-30 characters in length."
^DD(2006.68,.01,21,0)="^.001^1^1^3050606^^"
^DD(2006.68,.01,21,1,0)="The User Data entry name."
^DD(2006.68,.01,"DT")="3030115"
^DD(2006.68,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(2006.68,1,1,0)="^.1"
^DD(2006.68,1,1,1,0)="2006.68^AC"
^DD(2006.68,1,1,1,1)="S ^MAG(2006.68,""AC"",$E(X,1,30),DA)="""""
^DD(2006.68,1,1,1,2)="K ^MAG(2006.68,""AC"",$E(X,1,30),DA)"
^DD(2006.68,1,1,1,"DT")="3040213"
^DD(2006.68,1,21,0)="^^1^1^3050203^"
^DD(2006.68,1,21,1,0)="The name of the user;   pointer the New Person file (200)"
^DD(2006.68,1,"DT")="3040213"
^DD(2006.68,1.5,0)="USER TYPE^RS^0:Non-Radiology;1:Rad Tech;2:Resident Radiologist;3:Staff Radiologist;9:sysAdmin;^0;3^Q"
^DD(2006.68,1.5,3)="Enter User Type code"
^DD(2006.68,1.5,"DT")="3050404"
^DD(2006.68,2,0)="VR-WS^2006.682A^^VR-WS;0"
^DD(2006.68,2,21,0)="^.001^1^1^3060307^^^^"
^DD(2006.68,2,21,1,0)="Vistarad workstation preferences stored under this node."
^DD(2006.68,2,"DT")="3040218"
^DD(2006.68,3,0)="VR-HP^2006.683A^^VR-HP;0"
^DD(2006.68,3,21,0)="^.001^1^1^3060307^^^^"
^DD(2006.68,3,21,1,0)="Hanging Protocols, templates, and related data stored under this node."
^DD(2006.68,"B","DESCRIPTION",.01)=""
^DD(2006.68,"B","USER",1)=""
^DD(2006.68,"B","USER TYPE",1.5)=""
^DD(2006.68,"B","VR-HP",3)=""
^DD(2006.68,"B","VR-WS",2)=""
^DD(2006.68,"GL",0,1,.01)=""
^DD(2006.68,"GL",0,2,1)=""
^DD(2006.68,"GL",0,3,1.5)=""
^DD(2006.68,"GL","VR-HP",0,3)=""
^DD(2006.68,"GL","VR-WS",0,2)=""
^DD(2006.68,"IX",.01)=""
^DD(2006.68,"IX",1)=""
^DD(2006.68,"RQ",.01)=""
^DD(2006.68,"RQ",1.5)=""
^DD(2006.68,"SB",2006.682,2)=""
^DD(2006.68,"SB",2006.683,3)=""
^DD(2006.682,0)="VR-WS SUB-FIELD^^3^3"
^DD(2006.682,0,"DT")="3060307"
^DD(2006.682,0,"IX","B",2006.682,.01)=""
^DD(2006.682,0,"NM","VR-WS")=""
^DD(2006.682,0,"UP")="2006.68"
^DD(2006.682,.01,0)="TAG^RF^^0;1^K:$L(X)>80!($L(X)<1) X"
^DD(2006.682,.01,1,0)="^.1"
^DD(2006.682,.01,1,1,0)="2006.682^B"
^DD(2006.682,.01,1,1,1)="S ^MAG(2006.68,DA(1),""VR-WS"",""B"",$E(X,1,30),DA)="""""
^DD(2006.682,.01,1,1,2)="K ^MAG(2006.68,DA(1),""VR-WS"",""B"",$E(X,1,30),DA)"
^DD(2006.682,.01,3)="Answer must be 1-80 characters in length."
^DD(2006.682,.01,21,0)="^.001^1^1^3060307^^^^"
^DD(2006.682,.01,21,1,0)="Tag, or label, that identifies this collection of settings/preferences."
^DD(2006.682,.01,23,0)="^.001^6^6^3060307^^^^"
^DD(2006.682,.01,23,1,0)="The details of the data stored are defined by the client software, and"
^DD(2006.682,.01,23,2,0)="are aggregated under separate tags for different w/s types.  Each tag's"
^DD(2006.682,.01,23,3,0)="data is independently accessible by the client,which can query for:"
^DD(2006.682,.01,23,4,0)="  1) Tags stored; or,"
^DD(2006.682,.01,23,5,0)="  2) Data for named tags, or"
^DD(2006.682,.01,23,6,0)="  3) Tags and associated KEYS (described below)"
^DD(2006.682,.01,"DT")="3060307"
^DD(2006.682,1,0)="DATA^2006.6821^^1;0"
^DD(2006.682,1,21,0)="^.001^1^1^3050606^^^^"
^DD(2006.682,1,21,1,0)="Client data is stored here."
^DD(2006.682,1,"DT")="3030404"
^DD(2006.682,3,0)="KEYS^2006.6823^^2;0"
^DD(2006.682,3,21,0)="^.001^4^4^3050606^^^^"
^DD(2006.682,3,21,1,0)="Keys data are strings that are structured by the client for containing"
^DD(2006.682,3,21,2,0)="search values for the internal operation of the workstation preferences,"
^DD(2006.682,3,21,3,0)="whenever and/or if applicable.  The Vistarad RPCs can provide access to"
^DD(2006.682,3,21,4,0)="the Keys data separately from the full set of user preference data."
^DD(2006.682,"B","DATA",1)=""
^DD(2006.682,"B","KEYS",3)=""
^DD(2006.682,"B","TAG",.01)=""
^DD(2006.682,"GL",0,1,.01)=""
^DD(2006.682,"GL",1,0,1)=""
^DD(2006.682,"GL",2,0,3)=""
^DD(2006.682,"IX",.01)=""
^DD(2006.682,"RQ",.01)=""
^DD(2006.682,"SB",2006.6821,1)=""
^DD(2006.682,"SB",2006.6823,3)=""
^DD(2006.6821,0)="DATA SUB-FIELD^^.01^1"
^DD(2006.6821,0,"NM","DATA")=""
^DD(2006.6821,0,"UP")="2006.682"
^DD(2006.6821,.01,0)="DATA^WL^^0;1^Q"
^DD(2006.6821,.01,"DT")="3030404"
^DD(2006.6821,"B","DATA",.01)=""
^DD(2006.6821,"GL",0,1,.01)=""
^DD(2006.6823,0)="KEYS SUB-FIELD^^.01^1"
^DD(2006.6823,0,"NM","KEYS")=""
^DD(2006.6823,0,"UP")="2006.682"
^DD(2006.6823,.01,0)="KEYS^WL^^0;1^Q"
^DD(2006.6823,.01,"DT")="3040504"
^DD(2006.6823,"B","KEYS",.01)=""
^DD(2006.6823,"GL",0,1,.01)=""
^DD(2006.683,0)="VR-HP SUB-FIELD^^2^3"
^DD(2006.683,0,"DT")="3060307"
^DD(2006.683,0,"IX","B",2006.683,.01)=""
^DD(2006.683,0,"NM","VR-HP")=""
^DD(2006.683,0,"UP")="2006.68"
^DD(2006.683,.01,0)="TAG^F^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(2006.683,.01,1,0)="^.1"
^DD(2006.683,.01,1,1,0)="2006.683^B"
^DD(2006.683,.01,1,1,1)="S ^MAG(2006.68,DA(1),""VR-HP"",""B"",$E(X,1,30),DA)="""""
^DD(2006.683,.01,1,1,2)="K ^MAG(2006.68,DA(1),""VR-HP"",""B"",$E(X,1,30),DA)"
^DD(2006.683,.01,3)="Answer must be 3-80 characters in length."
^DD(2006.683,.01,21,0)="^.001^1^1^3060307^^^^"
^DD(2006.683,.01,21,1,0)="Tag, or label, that identifies the HP or Template."
^DD(2006.683,.01,23,0)="^.001^7^7^3060307^^^"
^DD(2006.683,.01,23,1,0)="The details of the data stored are defined by the client software, and"
^DD(2006.683,.01,23,2,0)="are aggregated under separate tags for each Hanging protocol or template."
^DD(2006.683,.01,23,3,0)="Each tag's data is independently accessible by the client, which can"
^DD(2006.683,.01,23,4,0)="query for:"
^DD(2006.683,.01,23,5,0)="  1) Tags stored; or,"
^DD(2006.683,.01,23,6,0)="  2) Data for named tags, or"
^DD(2006.683,.01,23,7,0)="  3) Tags and associated KEYS (described below)"
^DD(2006.683,.01,"DT")="3060307"
^DD(2006.683,1,0)="DATA^2006.6831^^1;0"
^DD(2006.683,1,21,0)="^.001^1^1^3050606^^"
^DD(2006.683,1,21,1,0)="The actual hanging protocol and template data is stored here."
^DD(2006.683,2,0)="KEYS^2006.6832^^2;0"
^DD(2006.683,2,21,0)="^^4^4^3050606^"
^DD(2006.683,2,21,1,0)="Keys data are strings that are structured by the client for containing"
^DD(2006.683,2,21,2,0)="search values for the internal operation of the hanging protocols,"
^DD(2006.683,2,21,3,0)="whenever and/or if applicable.  The Vistarad RPCs can provide access to"
^DD(2006.683,2,21,4,0)="the Keys data separately from the full HP definition data."
^DD(2006.683,"B","DATA",1)=""
^DD(2006.683,"B","KEYS",2)=""
^DD(2006.683,"B","TAG",.01)=""
^DD(2006.683,"GL",0,1,.01)=""
^DD(2006.683,"GL",1,0,1)=""
^DD(2006.683,"GL",2,0,2)=""
^DD(2006.683,"IX",.01)=""
^DD(2006.683,"SB",2006.6831,1)=""
^DD(2006.683,"SB",2006.6832,2)=""
^DD(2006.6831,0)="DATA SUB-FIELD^^.01^1"
^DD(2006.6831,0,"DT")="3050404"
^DD(2006.6831,0,"NM","DATA")=""
^DD(2006.6831,0,"UP")="2006.683"
^DD(2006.6831,.01,0)="DATA^WL^^0;1^Q"
^DD(2006.6831,.01,21,0)="^.001^1^1^3050606^^^"
^DD(2006.6831,.01,21,1,0)="HP and Template data, formatted by client in XML format."
^DD(2006.6831,.01,"DT")="3050404"
^DD(2006.6831,"B","DATA",.01)=""
^DD(2006.6831,"GL",0,1,.01)=""
^DD(2006.6832,0)="KEYS SUB-FIELD^^.01^1"
^DD(2006.6832,0,"DT")="3050404"
^DD(2006.6832,0,"NM","KEYS")=""
^DD(2006.6832,0,"UP")="2006.683"
^DD(2006.6832,.01,0)="KEYS^WL^^0;1^Q"
^DD(2006.6832,.01,21,0)="^.001^4^4^3050606^^"
^DD(2006.6832,.01,21,1,0)="Keys data are strings that are structured by the client for containing"
^DD(2006.6832,.01,21,2,0)="search values for the internal operation of the HP logic."
^DD(2006.6832,.01,21,3,0)="The Keys are exerpted from the XML data to support client operations"
^DD(2006.6832,.01,21,4,0)="and/or logic outside the HP which complements logic inside the HP."
^DD(2006.6832,.01,"DT")="3050404"
^DD(2006.6832,"B","KEYS",.01)=""
^DD(2006.6832,"GL",0,1,.01)=""
^DD(2006.69,0)="FIELD^^12^17"
^DD(2006.69,0,"DDA")="N"
^DD(2006.69,0,"DT")="3050217"
^DD(2006.69,0,"IX","B",2006.69,.01)=""
^DD(2006.69,0,"IX","RECENT",2006.69,1)=""
^DD(2006.69,0,"IX","UNREAD",2006.69,2)=""
^DD(2006.69,0,"NM","MAG VISTARAD SITE PARAMETERS")=""
^DD(2006.69,0,"VR")="3.0"
^DD(2006.69,0,"VRPK")="MAG"
^DD(2006.69,.01,0)="VISTARAD SITE NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3) X S DINUM=1"
^DD(2006.69,.01,1,0)="^.1"
^DD(2006.69,.01,1,1,0)="2006.69^B"
^DD(2006.69,.01,1,1,1)="S ^MAG(2006.69,""B"",$E(X,1,30),DA)="""""
^DD(2006.69,.01,1,1,2)="K ^MAG(2006.69,""B"",$E(X,1,30),DA)"
^DD(2006.69,.01,3)="Enter Name of your site, 3 to 30 characters."
^DD(2006.69,.01,21,0)="^^1^1^3020313^"
^DD(2006.69,.01,21,1,0)="Field contains the name of the site."
^DD(2006.69,.01,"DT")="2970924"
^DD(2006.69,.05,0)="ENABLE STATUS UPDATE?^S^1:YES;0:NO;^0;4^Q"
^DD(2006.69,.05,3)="Enter YES to enable VistaRad to update the Radiology Package Exam Status field"
^DD(2006.69,.05,21,0)="^^4^4^3000307^"
^DD(2006.69,.05,21,1,0)="Answering this question ""YES"" will enable VistaRad to update the Radiology"
^DD(2006.69,.05,21,2,0)="Package Interpreting Radiologist fields (#12 & #15), and the Exam Status"
^DD(2006.69,.05,21,3,0)="field (#3).  Otherwise, use of VistaRad provides read-only access to VISTA"
^DD(2006.69,.05,21,4,0)="data."
^DD(2006.69,.05,"DT")="2980917"
^DD(2006.69,1,0)="RECENT EXAMS DAYS LIMIT^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2006.69,1,1,0)="^.1^^0"
^DD(2006.69,1,1,1,0)="2006.69^RECENT^MUMPS"
^DD(2006.69,1,1,1,1)="S ^MAG(2006.69,""RECENT"")=X"
^DD(2006.69,1,1,1,2)="K ^MAG(2006.69,""RECENT"")"
^DD(2006.69,1,1,1,"DT")="2970924"
^DD(2006.69,1,3)="Type a Number between 2 and 99999, 0 Decimal Digits"
^DD(2006.69,1,21,0)="^.001^6^6^3020313^^"
^DD(2006.69,1,21,1,0)="The RECENT Exams list shows all exams having a Status of Interpreted or"
^DD(2006.69,1,21,2,0)="Transcribed.  The list can be further restricted to show only exams up to"
^DD(2006.69,1,21,3,0)="'N' days old--use this field to define a value for 'N'.  Note that for"
^DD(2006.69,1,21,4,0)="most sites, Exams are likely to be marked Complete within 3 to 4 working"
^DD(2006.69,1,21,5,0)="days of being Interpreted, at which point they no longer show up on the"
^DD(2006.69,1,21,6,0)="RECENT Exams list.  If NOT defined, the system defaults to  a value of 6."
^DD(2006.69,1,"DT")="3020313"
^DD(2006.69,2,0)="UNREAD EXAMS DAYS LIMIT^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2006.69,2,1,0)="^.1^^0"
^DD(2006.69,2,1,1,0)="2006.69^UNREAD^MUMPS"
^DD(2006.69,2,1,1,1)="S ^MAG(2006.69,""UNREAD"")=X"
^DD(2006.69,2,1,1,2)="K ^MAG(2006.69,""UNREAD"")"
^DD(2006.69,2,1,1,"DT")="2970924"
^DD(2006.69,2,3)="The Unread Exams list will not display exams older than the number of days you specify."
^DD(2006.69,2,21,0)="^^4^4^3000307^"
^DD(2006.69,2,21,1,0)="The UNREAD Exams list shows all exams having a Status of EXAMINED.  The"
^DD(2006.69,2,21,2,0)="list can be further restricted to show only exams up to 'N' days old--use"
^DD(2006.69,2,21,3,0)="this field to define a value for 'N'.  If NOT defined, the system defaults"
^DD(2006.69,2,21,4,0)="to a value of 30."
^DD(2006.69,2,"DT")="3020313"
^DD(2006.69,3,0)="PREFETCH ACTIVE?^S^1:YES;0:NO;^0;5^Q"
^DD(2006.69,3,3)="To Enable Prefetch of prior exams' images from archive, enter YES."
^DD(2006.69,3,21,0)="^^4^4^2980821^"
^DD(2006.69,3,21,1,0)="Exam images that have been archived, e.g. to jukebox storage, may be"
^DD(2006.69,3,21,2,0)="retrieved to magnetic disk at the time a new exam is registered for a"
^DD(2006.69,3,21,3,0)="patient.  Enabling this allows immediate retrieval of the patient's prior"
^DD(2006.69,3,21,4,0)="exams when the radiologist is ready to read the new exam."
^DD(2006.69,3,"DT")="2980821"
^DD(2006.69,4,0)="AUTODISPLAY ACTIVE?^S^1:YES;0:NO;^0;6^Q"
^DD(2006.69,4,3)="To enable Auto-display of prior exams' images enter YES."
^DD(2006.69,4,21,0)="^^2^2^2980821^"
^DD(2006.69,4,21,1,0)="Enabling this turns on automatic retrieval and display of the patient's"
^DD(2006.69,4,21,2,0)="prior exams when the radiologist reads a new exam."
^DD(2006.69,4,"DT")="2980821"
^DD(2006.69,5,0)="LIST ONLY EXAMS HAVING IMAGES?^S^0:NO;1:YES;^0;7^Q"
^DD(2006.69,5,3)="Enter 'NO' to list ALL exams, 'YES' to list only exams that have images.    This applies only to UNREAD, ACTIVE, PENDING, and ALL EXAMS lists."
^DD(2006.69,5,21,0)="^^7^7^3000307^"
^DD(2006.69,5,21,1,0)="Some sites may have a mix of exams that do, and do not, have images stored"
^DD(2006.69,5,21,2,0)="digitally.  In this case, the UNREAD, ACTIVE and PENDING exams lists may"
^DD(2006.69,5,21,3,0)="be optionally configured to either list only the exams that have images"
^DD(2006.69,5,21,4,0)="available for display on the VistaRad workstation, or to list all exams,"
^DD(2006.69,5,21,5,0)="including those that do not have images available for display."
^DD(2006.69,5,21,6,0)="NOTE that the Patient Exams List always lists ALL exams, regardless of"
^DD(2006.69,5,21,7,0)="whether images exist or not."
^DD(2006.69,5,"DT")="2980825"
^DD(2006.69,5.5,0)="ENABLE SERIES DISPLAY?^S^1:YES;0:NO;^0;12^Q"
^DD(2006.69,5.5,3)="Answer YES to turn on image display of multiple Series within one exam."
^DD(2006.69,5.5,21,0)="^^6^6^2990920^"
^DD(2006.69,5.5,21,1,0)="The Vistarad Viewer code is not yet able to distinguish between different"
^DD(2006.69,5.5,21,2,0)="image series within one exam.  However, the back-end code often can"
^DD(2006.69,5.5,21,3,0)="determine which images in a study may be grouped into separate series, and"
^DD(2006.69,5.5,21,4,0)="can feed image information to the viewer that allow it to recognize and"
^DD(2006.69,5.5,21,5,0)="display these separate series in separate ""exam"" windows.  This prompt"
^DD(2006.69,5.5,21,6,0)="allows the Vistarad site to turn this processing on or off."
^DD(2006.69,5.5,"DT")="2990920"
^DD(2006.69,6,0)="BACKGROUND COMPILE EXAM LISTS?^S^1:YES;0:NO;^0;8^Q"
^DD(2006.69,6,3)="To compile Exam Lists in the background, enter desired value."
^DD(2006.69,6,21,0)="^^16^16^3000307^"
^DD(2006.69,6,21,1,0)="The process of compiling UNREAD & RECENT exam lists from the radiology"
^DD(2006.69,6,21,2,0)="database may be relatively lengthy.  To enable these lists to reach"
^DD(2006.69,6,21,3,0)="the radiology workstation rapidly, they can be compiled periodically"
^DD(2006.69,6,21,4,0)="in the background on the Vista system.  Enabling this option generally"
^DD(2006.69,6,21,5,0)="should provide for very fast retrieval of the exam lists."
^DD(2006.69,6,21,6,0)="Note, however, that on the UNREAD Exams list the most recently completed"
^DD(2006.69,6,21,7,0)="(""EXAMINED"") exams may not appear on the list, up to a time limit defined"
^DD(2006.69,6,21,8,0)="below; however, exams that are ""INTERPRETED"" will be dropped from the"
^DD(2006.69,6,21,9,0)="UNREAD list, even in between compiles."
^DD(2006.69,6,21,10,0)="UNREAD compiles are automatically started by requesting an UNREAD Exams"
^DD(2006.69,6,21,11,0)="list at the workstation.  The background program is initiated via an"
^DD(2006.69,6,21,12,0)="internal TaskMan call, but it will run continuously in the background"
^DD(2006.69,6,21,13,0)="after being initiated. The RECENT compile is initiated using the TaskMan"
^DD(2006.69,6,21,14,0)="Scheduled Options capability.  The Option to schedule is MAGJ SCHED RECENT"
^DD(2006.69,6,21,15,0)="LIST COMPILE; it is recommended that this process be scheduled to run"
^DD(2006.69,6,21,16,0)="every 30 to 90 minutes."
^DD(2006.69,6,"DT")="3000223"
^DD(2006.69,7,0)="UNREAD BKGND COMPILE INTERVAL^NJ2,0^^0;9^K:+X'=X!(X>15)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2006.69,7,.1)="BACKGROUND COMPILE INTERVAL--UNREAD LIST"
^DD(2006.69,7,3)="Type a Number between 2 and 15, 0 Decimal Digits"
^DD(2006.69,7,21,0)="^^7^7^3000313^"
^DD(2006.69,7,21,1,0)="If compiling exams lists in the background, this field is used to"
^DD(2006.69,7,21,2,0)="define the number of minutes to wait in between each successive compile of"
^DD(2006.69,7,21,3,0)="the UNREAD Exams List.  If not specified, the default value used will be 6"
^DD(2006.69,7,21,4,0)="minutes."
^DD(2006.69,7,21,5,0)="For sites that tend to have more than 100 Unread exams on average, it is "
^DD(2006.69,7,21,6,0)="recommended to use a value of 3 or 4 minutes; less than 100, use 2 or 3"
^DD(2006.69,7,21,7,0)="minutes."
^DD(2006.69,7,"DT")="3000307"
^DD(2006.69,7.2,0)="RECENT BKGND COMPILE INTERVAL^NJ3,0^^0;13^K:+X'=X!(X>240)!(X<30)!(X?.E1"".""1N.N) X"
^DD(2006.69,7.2,.1)=""
^DD(2006.69,7.2,3)="Type a Number between 30 and 240, 0 Decimal Digits"
^DD(2006.69,7.2,21,0)="^.001^8^8^3011003^^"
^DD(2006.69,7.2,21,1,0)="The Recent List Background Compile is managed by Taskman, where a"
^DD(2006.69,7.2,21,2,0)="Scheduled Option should be defined for periodically compiling this list"
^DD(2006.69,7.2,21,3,0)="(recommended to compile every two to three hours).  Use this field to let"
^DD(2006.69,7.2,21,4,0)="VistARad know what you have defined in TaskMan as the interval between"
^DD(2006.69,7.2,21,5,0)="compiles.  This value is used to provide a warning message to the VistaRad"
^DD(2006.69,7.2,21,6,0)="user should it appear that the Background Compile has not run for more"
^DD(2006.69,7.2,21,7,0)="than this expected interval of time.  Obviously, this field only is useful"
^DD(2006.69,7.2,21,8,0)="if BACKGROUND COMPILE EXAM LISTS has been Enabled."
^DD(2006.69,7.2,"DT")="3000405"
^DD(2006.69,8,0)="REMOTE LIST ONLY REMOTE CACHE?^S^1:YES;0:NO;^0;10^Q"
^DD(2006.69,8,3)="Enter 'NO' to list ALL exams, 'YES' to list only exams that were routed to the remote site."
^DD(2006.69,8,21,0)="^.001^6^6^3021001^^^"
^DD(2006.69,8,21,1,0)="This question only applies to sites that use the Imaging Routing Gateway"
^DD(2006.69,8,21,2,0)="to route images to a remote facility for reading."
^DD(2006.69,8,21,3,0)=" "
^DD(2006.69,8,21,4,0)="At the remote reading workstation, the Unread & Recent Exams lists may"
^DD(2006.69,8,21,5,0)="display either all exams, or only the subset of the exams that have been"
^DD(2006.69,8,21,6,0)="routed to the remote site. Enter YES to display only the routed exams."
^DD(2006.69,8,"DT")="2981222"
^DD(2006.69,9,0)="SITE SENDS TO REMOTE CACHE^S^1:YES;0:NO;^0;11^Q"
^DD(2006.69,9,3)="Enter YES if this site routes images to remote locations."
^DD(2006.69,9,21,0)="^.001^5^5^3021001^^^"
^DD(2006.69,9,21,1,0)="This question only applies to sites that use the Imaging Routing Gateway"
^DD(2006.69,9,21,2,0)="to route images to a remote facility for reading."
^DD(2006.69,9,21,3,0)=" "
^DD(2006.69,9,21,4,0)="Answering this question YES turns on extra processing that is needed"
^DD(2006.69,9,21,5,0)="to manage the remote exams properly in VistARad."
^DD(2006.69,9,"DT")="2990319"
^DD(2006.69,10,0)="PATIENT LIST LIMIT # YEARS^NJ2,0^^0;14^K:+X'=X!(X>20)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2006.69,10,3)="Enter Number of Years back to limit the Patient Exams List, from 2 to 20."
^DD(2006.69,10,21,0)="^^9^9^3000313^^"
^DD(2006.69,10,21,1,0)="The Patient Exams List can display a subset of all a patient's exams,"
^DD(2006.69,10,21,2,0)="limited by how old the exams are.  This field is used to specify how far"
^DD(2006.69,10,21,3,0)="back in time the patient list should go before stopping."
^DD(2006.69,10,21,4,0)="NOTE that the user does have a separate option to list ALL the patient's"
^DD(2006.69,10,21,5,0)="exams, regardless of the setting of this field."
^DD(2006.69,10,21,6,0)="NOT entering a value will force the Patient Exams List to go back to the"
^DD(2006.69,10,21,7,0)="earliest exams on record for a patient.  Greater efficiency in compiling"
^DD(2006.69,10,21,8,0)="this list is achieved by limiting the number of years to a ""most useful"""
^DD(2006.69,10,21,9,0)="value (clinically speaking)."
^DD(2006.69,10,"DT")="3000215"
^DD(2006.69,11,0)="PATIENT LIST LIMIT # EXAMS^NJ2,0^^0;15^K:+X'=X!(X>75)!(X<15)!(X?.E1"".""1N.N) X"
^DD(2006.69,11,3)="Enter the maximum number of exams to list for a patient, from 15 to 75."
^DD(2006.69,11,21,0)="^^7^7^3000313^"
^DD(2006.69,11,21,1,0)="The Patient Exams List can display a subset of all a patient's exams,"
^DD(2006.69,11,21,2,0)="limited by a maximum number of exams to display. This field is used to"
^DD(2006.69,11,21,3,0)="specify the maximum to list before stopping."
^DD(2006.69,11,21,4,0)="NOTE that the user does have a separate option to list ALL the patient's"
^DD(2006.69,11,21,5,0)="exams, regardless of the setting of this field."
^DD(2006.69,11,21,6,0)="NOT entering a value will force the Patient Exams List to list all exams"
^DD(2006.69,11,21,7,0)="in the defined time period for a patient."
^DD(2006.69,11,"DT")="3000215"
^DD(2006.69,12,0)="REQUISITION FOR RAD STAFF ONLY^S^1:Y;^0;16^Q"
^DD(2006.69,12,3)="Enter YES to restrict access to the Requisition report."
^DD(2006.69,12,21,0)="^^5^5^3050217^"
^DD(2006.69,12,21,1,0)="Setting this value to YES will prevent non-radiology personnel from"
^DD(2006.69,12,21,2,0)="viewing the Radiology Requisition from Vistarad."
^DD(2006.69,12,21,3,0)="Some sites have data that appears on the requisition which is"
^DD(2006.69,12,21,4,0)="strictly for internal radiology staff use.  This prompt provides"
^DD(2006.69,12,21,5,0)="a way to restrict access to that report."
^DD(2006.69,12,"DT")="3050217"
^DD(2006.69,20,0)="UNREAD LIST PRIORITY SEQ^F^^1;E1,245^S X=$TR(X,""supr;. "",""SUPR,,"") K:'((X?1U1"",""1U1"",""1U1"",""1U)&($F(X,""R"")&$F(X,""S"")&$F(X,""P"")&$F(X,""U""))) X"
^DD(2006.69,20,3)="Answer must be 7 characters in length, using the letters S, U, P & R; enter ?? for more help."
^DD(2006.69,20,9)="@"
^DD(2006.69,20,21,0)="^^9^9^2990222^^^"
^DD(2006.69,20,21,1,0)="The Unread lists show a column, PRIORITY, that is typically used as a "
^DD(2006.69,20,21,2,0)="sort item for the list.  Four values are possible (from the Radiology Exam"
^DD(2006.69,20,21,3,0)="order, file 75.1).  This field allows the site to define the preferred"
^DD(2006.69,20,21,4,0)="sort ordering for these 4 values.  The default order is:"
^DD(2006.69,20,21,5,0)="   Stat, Urgent, Pre-op, Routine"
^DD(2006.69,20,21,6,0)="To achieve this ordering, the value for this field would be specified:"
^DD(2006.69,20,21,7,0)="   S,U,P,R"
^DD(2006.69,20,21,8,0)="Any sequence of these 4 letters may be defined, and then will be used by"
^DD(2006.69,20,21,9,0)="the list program."
^DD(2006.69,20,"DT")="2990222"
^DD(2006.69,"B","AUTODISPLAY ACTIVE?",4)=""
^DD(2006.69,"B","BACKGROUND COMPILE EXAM LISTS?",6)=""
^DD(2006.69,"B","ENABLE SERIES DISPLAY?",5.5)=""
^DD(2006.69,"B","ENABLE STATUS UPDATE?",.05)=""
^DD(2006.69,"B","LIST ONLY EXAMS HAVING IMAGES?",5)=""
^DD(2006.69,"B","PATIENT LIST LIMIT # EXAMS",11)=""
^DD(2006.69,"B","PATIENT LIST LIMIT # YEARS",10)=""
^DD(2006.69,"B","PREFETCH ACTIVE?",3)=""
^DD(2006.69,"B","RECENT BKGND COMPILE INTERVAL",7.2)=""
^DD(2006.69,"B","RECENT EXAMS DAYS LIMIT",1)=""
^DD(2006.69,"B","REMOTE LIST ONLY REMOTE CACHE?",8)=""
^DD(2006.69,"B","REQUISITION FOR RAD STAFF ONLY",12)=""
^DD(2006.69,"B","SITE SENDS TO REMOTE CACHE",9)=""
^DD(2006.69,"B","UNREAD BKGND COMPILE INTERVAL",7)=""
^DD(2006.69,"B","UNREAD EXAMS DAYS LIMIT",2)=""
^DD(2006.69,"B","UNREAD LIST PRIORITY SEQ",20)=""
^DD(2006.69,"B","VISTARAD SITE NAME",.01)=""
^DD(2006.69,"GL",0,1,.01)=""
^DD(2006.69,"GL",0,2,1)=""
^DD(2006.69,"GL",0,3,2)=""
^DD(2006.69,"GL",0,4,.05)=""
^DD(2006.69,"GL",0,5,3)=""
^DD(2006.69,"GL",0,6,4)=""
^DD(2006.69,"GL",0,7,5)=""
^DD(2006.69,"GL",0,8,6)=""
^DD(2006.69,"GL",0,9,7)=""
^DD(2006.69,"GL",0,10,8)=""
^DD(2006.69,"GL",0,11,9)=""
^DD(2006.69,"GL",0,12,5.5)=""
^DD(2006.69,"GL",0,13,7.2)=""
^DD(2006.69,"GL",0,14,10)=""
^DD(2006.69,"GL",0,15,11)=""
^DD(2006.69,"GL",0,16,12)=""
^DD(2006.69,"GL",1,"E1,245",20)=""
^DD(2006.69,"IX",.01)=""
^DD(2006.69,"IX",1)=""
^DD(2006.69,"IX",2)=""
^DD(2006.69,"RQ",.01)=""
^DD(2006.8,0)="FIELD^^53^16"
^DD(2006.8,0,"DDA")="N"
^DD(2006.8,0,"DT")="3011213"
^DD(2006.8,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^MAG(2006.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2006.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2006.8,0,"IX","B",2006.8,.01)=""
^DD(2006.8,0,"NM","BP WORKSTATIONS")=""
^DD(2006.8,0,"VR")="3.0"
^DD(2006.8,0,"VRPK")="MAG"
^DD(2006.8,.01,0)="NAME^RFX^^0;1^S DIC(""S"")=""I '$O(^MAG(2006.8,""""B"""",X,0))"" K:($L(X)>3!($L(X)<3))!($O(^MAG(2006.8,""B"",X,0))) X"
^DD(2006.8,.01,1,0)="^.1"
^DD(2006.8,.01,1,1,0)="2006.8^B"
^DD(2006.8,.01,1,1,1)="S ^MAG(2006.8,""B"",$E(X,1,30),DA)="""""
^DD(2006.8,.01,1,1,2)="K ^MAG(2006.8,""B"",$E(X,1,30),DA)"
^DD(2006.8,.01,3)="This must be a unique three letter name."
^DD(2006.8,.01,12.1)="S DIC(""S"")=""I '$O(^MAG(2006.8,""""B"""",X,0))"""
^DD(2006.8,.01,21,0)="^^2^2^2990330^^^^"
^DD(2006.8,.01,21,1,0)="This is the three letter name beginning with ""I"" that is given to a"
^DD(2006.8,.01,21,2,0)="particular workstation. This identifying name remains with the system."
^DD(2006.8,.01,"DT")="2950315"
^DD(2006.8,.04,0)="PLACE^RP2006.1'^MAG(2006.1,^0;2^Q"
^DD(2006.8,.04,1,0)="^.1^^0"
^DD(2006.8,.04,21,0)="^^3^3^3050414^"
^DD(2006.8,.04,21,1,0)="This field references the site parameter file. The Site parameter entry "
^DD(2006.8,.04,21,2,0)="defines all of the attributes of Vista Imaging local area network. This "
^DD(2006.8,.04,21,3,0)="includes facility user preferences, network write locations, etc."
^DD(2006.8,.04,"DT")="3050414"
^DD(2006.8,11,0)="BACKGROUND PROCESSOR^SX^0:NO;1:YES;^0;12^S DIC(""S"")=""I $L($P(^(1),U))>2"" D:'X BPCLR^MAGQBUT1(DA)"
^DD(2006.8,11,3)="Enter YES if this system is to be used as a BACKGROUND PROCESSOR"
^DD(2006.8,11,21,0)="^^4^4^2970722^^^^"
^DD(2006.8,11,21,1,0)="This field identifies the BACKGROUND PROCESSOR system."
^DD(2006.8,11,21,2,0)="If this system functions as a BACKGROUND PROCESSOR system, this"
^DD(2006.8,11,21,3,0)="field should be set to YES.  It should"
^DD(2006.8,11,21,4,0)="be set to NO for Imaging Workstations."
^DD(2006.8,11,"DT")="2990325"
^DD(2006.8,12,0)="ABSTRACT^*SX^0:NO;1:YES;^0;13^S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""ABSTRACT"""")"" S:'$$BPPS^MAGQBUT1(X,DA,""ABSTRACT"") $P(^MAG(2006.8,DA,0),U,13)=""0"""
^DD(2006.8,12,3)="Only one Background Processor may be assigned this ask at a time.  Retire the Abstract assignment from its current assignee then reassign."
^DD(2006.8,12,12.1)="S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""ABSTRACT"""")"""
^DD(2006.8,12,21,0)="^^1^1^2990401^^^^"
^DD(2006.8,12,21,1,0)="Indicate that this BACKGROUND PROCESSOR is to create Image ABSTRACTS"
^DD(2006.8,12,"DT")="2990326"
^DD(2006.8,13,0)="JUKEBOX^SX^0:NO;1:YES;^0;14^S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""JUKEBOX"""")"" S:'$$BPPS^MAGQBUT1(X,DA,""JUKEBOX"") $P(^MAG(2006.8,DA,0),U,14)=""0"""
^DD(2006.8,13,3)="Only one Background Processor may be assigned this ask at a time.  Retire the JUKEBOX assignment from its current assignee then reassign."
^DD(2006.8,13,12.1)="S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""JUKEBOX"""")"""
^DD(2006.8,13,21,0)="^^2^2^2970722^^^^"
^DD(2006.8,13,21,1,0)="This field indicates that this BACKGROUND PROCESSOR is to copy"
^DD(2006.8,13,21,2,0)="files to the JUKEBOX"
^DD(2006.8,13,"DT")="2990325"
^DD(2006.8,14,0)="JBTOHD^SX^0:NO;1:YES;^0;15^S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""JBTOHD"""")"" S:'$$BPPS^MAGQBUT1(X,DA,""JBTOHD"") $P(^MAG(2006.8,DA,0),U,15)=""0"""
^DD(2006.8,14,3)="Only one Background Processor may be assigned this ask at a time.  Retire the JBTOHD assignment from its current assignee then reassign."
^DD(2006.8,14,12.1)="S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""JBTOHD"""")"""
^DD(2006.8,14,21,0)="^^2^2^2950328^^^^"
^DD(2006.8,14,21,1,0)="This field indicates that this BACKGROUND PROCESSOR is to copy"
^DD(2006.8,14,21,2,0)="files from the JUKEBOX to the HARD DISK."
^DD(2006.8,14,"DT")="2990325"
^DD(2006.8,15,0)="PREFET^*S^0:NO;1:YES;^0;16^S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""PREFET"""")"" S:'$$BPPS^MAGQBUT1(X,DA,""PREFET"") $P(^MAG(2006.8,DA,0),U,16)=""0"""
^DD(2006.8,15,3)="Only one Background Processor may be assigned this ask at a time.  Retire the PREFET assignment from its current assignee then reassign."
^DD(2006.8,15,12)=""
^DD(2006.8,15,12.1)="S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""PREFET"""")"""
^DD(2006.8,15,21,0)="^^2^2^3000313^^^^"
^DD(2006.8,15,21,1,0)="This field indicates that this BACKGROUND PROCESSOR is to copy"
^DD(2006.8,15,21,2,0)="files from the JUKEBOX to the HARD DISK ."
^DD(2006.8,15,"DT")="3000313"
^DD(2006.8,16,0)="IMPORT^SX^0:NO;1:YES;^0;17^S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""IMPORT"""")"" S:'$$BPPS^MAGQBUT1(X,DA,""IMPORT"") $P(^MAG(2006.8,DA,0),U,17)=""0"""
^DD(2006.8,16,3)="Only one Background Processor may be assigned this ask at a time.  Retire the IMPORT assignment from its current assignee then reassign."
^DD(2006.8,16,12.1)="S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""IMPORT"""")"""
^DD(2006.8,16,21,0)="^^2^2^2970722^^^^"
^DD(2006.8,16,21,1,0)="This field indicates that this BACKGROUND PROCESSOR is to copy"
^DD(2006.8,16,21,2,0)="files to the IMPORT"
^DD(2006.8,16,"DT")="3010405"
^DD(2006.8,17,0)="GCC^*SX^0:NO;1:YES;^0;18^S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""GCC"""")"" S:'$$BPPS^MAGQBUT1(X,DA,""GCC"") $P(^MAG(2006.8,DA,0),U,18)=""0"""
^DD(2006.8,17,12.1)="S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""GCC"""")"""
^DD(2006.8,17,21,0)="^^1^1^3011213^"
^DD(2006.8,17,21,1,0)="Indicate that this BACKGROUND PROCESSOR is to process Generic Carbon Copies."
^DD(2006.8,17,"DT")="3011129"
^DD(2006.8,20,0)="DELETE^*SX^0:NO;1:YES;^0;23^S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""DELETE"""")"" S:'$$BPPS^MAGQBUT1(X,DA,""DELETE"") $P(^MAG(2006.8,DA,0),U,23)=""0"""
^DD(2006.8,20,3)="Only one Background Processor may be assigned this ask at a time.  Retire the DELETE assignment from its current assignee then reassign."
^DD(2006.8,20,12.1)="S DIC(""S"")=""I $$BPPS^MAGQBUT1(X,DA,""""DELETE"""")"""
^DD(2006.8,20,21,0)="^^1^1^2970722^"
^DD(2006.8,20,21,1,0)="Indicates that the background Processor is to delete image files."
^DD(2006.8,20,"DT")="2990325"
^DD(2006.8,24,0)="EVALUATE^S^1:Yes;0:No;^0;24^Q"
^DD(2006.8,24,3)="Enter 'Yes' when this processor evaluates routing rules."
^DD(2006.8,24,21,0)="^^2^2^2990129^^"
^DD(2006.8,24,21,1,0)="This field indicates whether or not a background processor"
^DD(2006.8,24,21,2,0)="evaluates routing rules."
^DD(2006.8,24,"DT")="2981014"
^DD(2006.8,25,0)="SEND^S^1:Yes;0:No;^0;25^Q"
^DD(2006.8,25,3)="Enter 'Yes' when this background processor processes 'SEND' actions."
^DD(2006.8,25,21,0)="^^2^2^2981014^"
^DD(2006.8,25,21,1,0)="This field indicates whether or not a background processor"
^DD(2006.8,25,21,2,0)="processes 'SEND' actions."
^DD(2006.8,25,"DT")="2981014"
^DD(2006.8,50,0)="WRKS COMPUTER NAME^F^^1;1^S DIC(""S"")=""I '$O(^MAG(2006.8,""""C"""",$$PLACE^MAGBAPI(+$G(DUZ(2))),X,0))"" K:($L(X)>30!($L(X)<3))!($O(^MAG(2006.8,""C"",$$PLACE^MAGBAPI(+$G(DUZ(2))),X,0))) X"
^DD(2006.8,50,1,0)="^.1^^0"
^DD(2006.8,50,3)="The computer name defined in network properties on the workstation"
^DD(2006.8,50,12.1)="S DIC(""S"")=""I '$O(^MAG(2006.8,""""C"""",$$PLACE^MAGBAPI(+$G(DUZ(2))),X,0))"""
^DD(2006.8,50,21,0)="^^2^2^2970722^^^"
^DD(2006.8,50,21,1,0)="This is the computer name defined on the workstation for network operation"
^DD(2006.8,50,21,2,0)="(i.e. the Network computer name)."
^DD(2006.8,50,"DT")="3041022"
^DD(2006.8,51,0)="BP CLIENT VERSION^F^^1;2^K:$L(X)>24!($L(X)<3) X"
^DD(2006.8,51,3)="Answer must be 3-24 characters in length"
^DD(2006.8,51,"DT")="3000208"
^DD(2006.8,52,0)="BP CLIENT DISTRIBUTION DATE^F^^1;3^K:$L(X)>32!($L(X)<1) X"
^DD(2006.8,52,3)="Answer must be 1-32 characters in length"
^DD(2006.8,52,"DT")="3000204"
^DD(2006.8,53,0)="WORKSTATION OS^F^^1;4^K:$L(X)>60!($L(X)<3) X"
^DD(2006.8,53,3)="Answer must be 3-60 characters in length."
^DD(2006.8,53,"DT")="3000329"
^DD(2006.8,"B","ABSTRACT",12)=""
^DD(2006.8,"B","BACKGROUND PROCESSOR",11)=""
^DD(2006.8,"B","BP CLIENT DISTRIBUTION DATE",52)=""
^DD(2006.8,"B","BP CLIENT VERSION",51)=""
^DD(2006.8,"B","DELETE",20)=""
^DD(2006.8,"B","EVALUATE",24)=""
^DD(2006.8,"B","GCC",17)=""
^DD(2006.8,"B","IMPORT",16)=""
^DD(2006.8,"B","JBTOHD",14)=""
^DD(2006.8,"B","JUKEBOX",13)=""
^DD(2006.8,"B","NAME",.01)=""
^DD(2006.8,"B","PLACE",.04)=""
^DD(2006.8,"B","PREFET",15)=""
^DD(2006.8,"B","SEND",25)=""
^DD(2006.8,"B","WORKSTATION OS",53)=""
^DD(2006.8,"B","WRKS COMPUTER NAME",50)=""
^DD(2006.8,"GL",0,1,.01)=""
^DD(2006.8,"GL",0,2,.04)=""
^DD(2006.8,"GL",0,12,11)=""
^DD(2006.8,"GL",0,13,12)=""
^DD(2006.8,"GL",0,14,13)=""
^DD(2006.8,"GL",0,15,14)=""
^DD(2006.8,"GL",0,16,15)=""
^DD(2006.8,"GL",0,17,16)=""
^DD(2006.8,"GL",0,18,17)=""
^DD(2006.8,"GL",0,23,20)=""
^DD(2006.8,"GL",0,24,24)=""
^DD(2006.8,"GL",0,25,25)=""
^DD(2006.8,"GL",1,1,50)=""
^DD(2006.8,"GL",1,2,51)=""
^DD(2006.8,"GL",1,3,52)=""
^DD(2006.8,"GL",1,4,53)=""
^DD(2006.8,"IX",.01)=""
^DD(2006.8,"RQ",.01)=""
^DD(2006.8,"RQ",.04)=""
^DD(2006.81,0)="FIELD^^13^18"
^DD(2006.81,0,"DDA")="N"
^DD(2006.81,0,"DT")="3021104"
^DD(2006.81,0,"IX","AC",2006.81,2)=""
^DD(2006.81,0,"IX","AD",2006.81,8)=""
^DD(2006.81,0,"IX","B",2006.81,.01)=""
^DD(2006.81,0,"IX","C",2006.81,.04)=""
^DD(2006.81,0,"NM","IMAGING WINDOWS WORKSTATIONS")=""
^DD(2006.81,0,"PT",2006.82,4)=""
^DD(2006.81,0,"VR")="3.0"
^DD(2006.81,0,"VRPK")="MAG"
^DD(2006.81,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.81,.01,1,0)="^.1"
^DD(2006.81,.01,1,1,0)="2006.81^B"
^DD(2006.81,.01,1,1,1)="S ^MAG(2006.81,""B"",$E(X,1,30),DA)="""""
^DD(2006.81,.01,1,1,2)="K ^MAG(2006.81,""B"",$E(X,1,30),DA)"
^DD(2006.81,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2006.81,.01,21,0)="^.001^1^1^3001010^^^^"
^DD(2006.81,.01,21,1,0)="The network computer name as defined through MS Windows."
^DD(2006.81,.04,0)="PLACE^P2006.1'^MAG(2006.1,^1;2^Q"
^DD(2006.81,.04,1,0)="^.1"
^DD(2006.81,.04,1,1,0)="2006.81^C"
^DD(2006.81,.04,1,1,1)="S ^MAG(2006.81,""C"",$E(X,1,30),DA)="""""
^DD(2006.81,.04,1,1,2)="K ^MAG(2006.81,""C"",$E(X,1,30),DA)"
^DD(2006.81,.04,1,1,"%D",0)="^^1^1^3030514^"
^DD(2006.81,.04,1,1,"%D",1,0)="This allows the workstations to be distinguishable between sites."
^DD(2006.81,.04,1,1,"DT")="3030514"
^DD(2006.81,.04,21,0)="^^3^3^3050414^"
^DD(2006.81,.04,21,1,0)="This field references the site parameter file. The Site parameter entry "
^DD(2006.81,.04,21,2,0)="defines all of the attributes of Vista Imaging local area network. This "
^DD(2006.81,.04,21,3,0)="includes facility user preferences, network write locations, etc."
^DD(2006.81,.04,"DT")="3050414"
^DD(2006.81,1,0)="LAST USER^P200'^VA(200,^0;2^Q"
^DD(2006.81,1,21,0)="^.001^2^2^3001010^^^^"
^DD(2006.81,1,21,1,0)="The last user to logon to VistA using VistA Imaging GUI Applications from"
^DD(2006.81,1,21,2,0)="this workstation."
^DD(2006.81,1,"DT")="2970515"
^DD(2006.81,2,0)="LAST LOGON DTTM^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.81,2,1,0)="^.1"
^DD(2006.81,2,1,1,0)="2006.81^AC^MUMPS"
^DD(2006.81,2,1,1,1)="S ^MAG(2006.81,""AC"",""L""_X,DA)="""""
^DD(2006.81,2,1,1,2)="K ^MAG(2006.81,""AC"",""L""_X,DA)"
^DD(2006.81,2,1,1,"%D",0)="^^3^3^3001025^"
^DD(2006.81,2,1,1,"%D",1,0)="Last Logon Date/Time"
^DD(2006.81,2,1,1,"%D",2,0)="Index is used by lookup routines to get a sorted list of logons, by Date/Time"
^DD(2006.81,2,1,1,"%D",3,0)="of last logon."
^DD(2006.81,2,1,1,"DT")="2980727"
^DD(2006.81,2,21,0)="^.001^2^2^3001025^^^^"
^DD(2006.81,2,21,1,0)="The last date and time that a user logged on to VistA using the VistA Imaging"
^DD(2006.81,2,21,2,0)="GUI Applications from this workstation."
^DD(2006.81,2,"DT")="2980727"
^DD(2006.81,3,0)="LAST LOGOFF DTTM^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.81,3,21,0)="^.001^3^3^3001010^^^^"
^DD(2006.81,3,21,1,0)="The last date and time that a user logged off of VistA using the VistA Imaging"
^DD(2006.81,3,21,2,0)="GUI Applications from this workstation."
^DD(2006.81,3,21,3,0)=""
^DD(2006.81,3,"DT")="2970515"
^DD(2006.81,4,0)="CAPTURE APP DTTM^D^^0;5^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.81,4,21,0)="^.001^2^2^3001010^^^^"
^DD(2006.81,4,21,1,0)="The date and time of the Imaging Capture application"
^DD(2006.81,4,21,2,0)=" that is installed on this workstation"
^DD(2006.81,4,"DT")="2970515"
^DD(2006.81,5,0)="DISPLAY APP DTTM^D^^0;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.81,5,21,0)="^.001^2^2^3001010^^^^"
^DD(2006.81,5,21,1,0)="The date and time of the Imaging Display application"
^DD(2006.81,5,21,2,0)=" that is installed on this workstation"
^DD(2006.81,5,"DT")="2970515"
^DD(2006.81,6,0)="LOCATION OF WRKS^F^^1;1^K:$L(X)>60!($L(X)<3) X"
^DD(2006.81,6,3)="Answer must be 3-60 characters in length."
^DD(2006.81,6,21,0)="^.001^5^5^3001010^^^^"
^DD(2006.81,6,21,1,0)="The location of the workstation as defined in the MAG.INI file,"
^DD(2006.81,6,21,2,0)=" Section: [SYS_SiteParam]   entry:   Location="
^DD(2006.81,6,21,3,0)="When a Site Manager is setting up the Imaging workstation for the "
^DD(2006.81,6,21,4,0)="first time, they should enter a brief description of the location of "
^DD(2006.81,6,21,5,0)="the workstation.  i.e. Exam Room 232A"
^DD(2006.81,6,"DT")="2970515"
^DD(2006.81,7,0)="MAGSETUP DTTM^D^^0;7^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.81,7,3)="This is the date of the last MAGSETUP.EXE that was"
^DD(2006.81,7,21,0)="^.001^2^2^3001010^^^^"
^DD(2006.81,7,21,1,0)="This is the date/time of the MAGSETUP.EXE File that was last run"
^DD(2006.81,7,21,2,0)="on this workstation"
^DD(2006.81,7,"DT")="2970819"
^DD(2006.81,8,0)="ACTIVE^S^1:ON-Line;0:not;^0;8^Q"
^DD(2006.81,8,1,0)="^.1"
^DD(2006.81,8,1,1,0)="2006.81^AD"
^DD(2006.81,8,1,1,1)="S ^MAG(2006.81,""AD"",$E(X,1,30),DA)="""""
^DD(2006.81,8,1,1,2)="K ^MAG(2006.81,""AD"",$E(X,1,30),DA)"
^DD(2006.81,8,1,1,"%D",0)="^^1^1^2980730^^"
^DD(2006.81,8,1,1,"%D",1,0)="Active workstations can be accessed easily from this cross-reference"
^DD(2006.81,8,1,1,"DT")="2980727"
^DD(2006.81,8,3)=""
^DD(2006.81,8,21,0)="^.001^10^10^3001010^^^^"
^DD(2006.81,8,21,1,0)="This field tells whether an Imaging session (Display or Capture)"
^DD(2006.81,8,21,2,0)="is currently active on the workstation.  1 = Session is active"
^DD(2006.81,8,21,3,0)="It is modified each time a user logs on via the Imaging application,"
^DD(2006.81,8,21,4,0)="and set to 0 when the user logs off."
^DD(2006.81,8,21,5,0)="(If the Imaging application crashes, it'll still be set and will"
^DD(2006.81,8,21,6,0)="give false impression that the Imaging application is still active)"
^DD(2006.81,8,21,7,0)="It is set to 0 when the application quits (if it quits correctly)."
^DD(2006.81,8,21,8,0)="The value of this field is checked and fixed when the Imaging System"
^DD(2006.81,8,21,9,0)="Manager ( alpha version ) Imaging session viewer is run from any "
^DD(2006.81,8,21,10,0)="workstation."
^DD(2006.81,8,"DT")="2980727"
^DD(2006.81,9,0)="DISPLAY VERSION^F^^0;9^K:$L(X)>15!($L(X)<1) X"
^DD(2006.81,9,3)="Answer must be 1-15 characters in length."
^DD(2006.81,9,21,0)="^.001^2^2^3001010^^"
^DD(2006.81,9,21,1,0)="This is the Version of Imaging Display that is currently installed"
^DD(2006.81,9,21,2,0)="on the workstation"
^DD(2006.81,9,"DT")="2990122"
^DD(2006.81,9.5,0)="CAPTURE VERSION^F^^0;13^K:$L(X)>18!($L(X)<1) X"
^DD(2006.81,9.5,3)="Answer must be 1-18 characters in length."
^DD(2006.81,9.5,21,0)="^.001^2^2^3001010^^"
^DD(2006.81,9.5,21,1,0)="This is the Version of Imaging Display that is currently installed"
^DD(2006.81,9.5,21,2,0)="on the workstation"
^DD(2006.81,9.5,"DT")="2990122"
^DD(2006.81,9.7,0)="VISTARADVERSION^F^^0;15^K:$L(X)>30!($L(X)<3) X"
^DD(2006.81,9.7,3)="Answer must be 3-30 characters in length."
^DD(2006.81,9.7,21,0)="^^2^2^3021030^"
^DD(2006.81,9.7,21,1,0)="This is the version of VistA RAD software that started was last"
^DD(2006.81,9.7,21,2,0)="run on this workstation."
^DD(2006.81,9.7,"DT")="3021030"
^DD(2006.81,10,0)="SESSION^P2006.82'^MAG(2006.82,^0;10^Q"
^DD(2006.81,10,21,0)="^.001^3^3^3001010^^"
^DD(2006.81,10,21,1,0)="This is a pointer to the Imaging Windows Session file, which holds "
^DD(2006.81,10,21,2,0)="statistical information about each Imaging session."
^DD(2006.81,10,21,3,0)="It points to the last Imaging Session run on this workstation."
^DD(2006.81,10,"DT")="2980724"
^DD(2006.81,11,0)="SESSION ERROR^NJ4,0^^0;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.81,11,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2006.81,11,21,0)="^.001^1^1^3001010^^"
^DD(2006.81,11,21,1,0)="This holds a count of Errors trapped during the current session."
^DD(2006.81,11,"DT")="2980724"
^DD(2006.81,12,0)="SESSION COUNT^NJ5,0^^0;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.81,12,3)="This is the total number of sessions started on this workstation."
^DD(2006.81,12,21,0)="^.001^4^4^3001010^^"
^DD(2006.81,12,21,1,0)="This field is incremented by 1, each time an Imaging session is connected"
^DD(2006.81,12,21,2,0)="to VistA from this workstation.  It is a total count of Imaging sessions "
^DD(2006.81,12,21,3,0)="run on this workstaion.  (Total count of sessions since version 2.5 was "
^DD(2006.81,12,21,4,0)="installed)"
^DD(2006.81,12,"DT")="2980727"
^DD(2006.81,12.5,0)="IMPORT COUNT^NJ9,0^^0;14^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.81,12.5,3)=" This is the total count of Import sessions."
^DD(2006.81,12.5,21,0)="^^2^2^3020506^"
^DD(2006.81,12.5,21,1,0)="This is a count of the number of times the Import API was called with This"
^DD(2006.81,12.5,21,2,0)="Workstation as the Acquisiton Device."
^DD(2006.81,12.5,"DT")="3020506"
^DD(2006.81,13,0)="OS VERSION^F^^1;3^K:$L(X)>100!($L(X)<3) X"
^DD(2006.81,13,3)="Answer must be 3-100 characters in length."
^DD(2006.81,13,21,0)="^^1^1^3021104^"
^DD(2006.81,13,21,1,0)="This is the Operation System installed on this workstation."
^DD(2006.81,13,"DT")="3021104"
^DD(2006.81,"B","ACTIVE",8)=""
^DD(2006.81,"B","CAPTURE APP DTTM",4)=""
^DD(2006.81,"B","CAPTURE VERSION",9.5)=""
^DD(2006.81,"B","DISPLAY APP DTTM",5)=""
^DD(2006.81,"B","DISPLAY VERSION",9)=""
^DD(2006.81,"B","IMPORT COUNT",12.5)=""
^DD(2006.81,"B","LAST LOGOFF DTTM",3)=""
^DD(2006.81,"B","LAST LOGON DTTM",2)=""
^DD(2006.81,"B","LAST USER",1)=""
^DD(2006.81,"B","LOCATION OF WRKS",6)=""
^DD(2006.81,"B","MAGSETUP DTTM",7)=""
^DD(2006.81,"B","NAME",.01)=""
^DD(2006.81,"B","OS VERSION",13)=""
^DD(2006.81,"B","PLACE",.04)=""
^DD(2006.81,"B","SESSION",10)=""
^DD(2006.81,"B","SESSION COUNT",12)=""
^DD(2006.81,"B","SESSION ERROR",11)=""
^DD(2006.81,"B","VISTARADVERSION",9.7)=""
^DD(2006.81,"GL",0,1,.01)=""
^DD(2006.81,"GL",0,2,1)=""
^DD(2006.81,"GL",0,3,2)=""
^DD(2006.81,"GL",0,4,3)=""
^DD(2006.81,"GL",0,5,4)=""
^DD(2006.81,"GL",0,6,5)=""
^DD(2006.81,"GL",0,7,7)=""
^DD(2006.81,"GL",0,8,8)=""
^DD(2006.81,"GL",0,9,9)=""
^DD(2006.81,"GL",0,10,10)=""
^DD(2006.81,"GL",0,11,11)=""
^DD(2006.81,"GL",0,12,12)=""
^DD(2006.81,"GL",0,13,9.5)=""
^DD(2006.81,"GL",0,14,12.5)=""
^DD(2006.81,"GL",0,15,9.7)=""
^DD(2006.81,"GL",1,1,6)=""
^DD(2006.81,"GL",1,2,.04)=""
^DD(2006.81,"GL",1,3,13)=""
^DD(2006.81,"IX",.01)=""
^DD(2006.81,"IX",.04)=""
^DD(2006.81,"IX",2)=""
^DD(2006.81,"IX",8)=""
^DD(2006.81,"RQ",.01)=""
^DD(2006.82,0)="FIELD^^30^20"
^DD(2006.82,0,"DDA")="N"
^DD(2006.82,0,"DT")="3021104"
^DD(2006.82,0,"ID",2)="W ""   "",$$FMTE^DILIBF($P(^(0),U,3),5)"
^DD(2006.82,0,"IX","AC",2006.82,2)=""
^DD(2006.82,0,"IX","ACWRK",2006.82,4)=""
^DD(2006.82,0,"IX","B",2006.82,.01)=""
^DD(2006.82,0,"IX","C",2006.82,4)=""
^DD(2006.82,0,"IX","D",2006.82,1)=""
^DD(2006.82,0,"IX","E",2006.82,8)=""
^DD(2006.82,0,"NM","IMAGING WINDOWS SESSIONS")=""
^DD(2006.82,0,"PT",2006.81,10)=""
^DD(2006.82,0,"VR")="3.0"
^DD(2006.82,0,"VRPK")="MAG"
^DD(2006.82,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2006.82,.01,1,0)="^.1"
^DD(2006.82,.01,1,1,0)="2006.82^B"
^DD(2006.82,.01,1,1,1)="S ^MAG(2006.82,""B"",$E(X,1,30),DA)="""""
^DD(2006.82,.01,1,1,2)="K ^MAG(2006.82,""B"",$E(X,1,30),DA)"
^DD(2006.82,.01,3)="Answer must be 3-30 characters in length"
^DD(2006.82,.01,21,0)="^.001^1^1^3001107^^^^"
^DD(2006.82,.01,21,1,0)="The users name is entered in this field."
^DD(2006.82,.01,"DT")="3001010"
^DD(2006.82,.04,0)="PLACE^P2006.1'^MAG(2006.1,^1;4^Q"
^DD(2006.82,.04,3)="Select the Imaging Site Parameter entry where this image was captured."
^DD(2006.82,.04,21,0)="^^3^3^3050414^"
^DD(2006.82,.04,21,1,0)="This field references the site parameter file. The Site parameter entry "
^DD(2006.82,.04,21,2,0)="defines all of the attributes of Vista Imaging local area network. This "
^DD(2006.82,.04,21,3,0)="includes facility user preferences, network write locations, etc."
^DD(2006.82,.04,"DT")="3050414"
^DD(2006.82,1,0)="USER^P200'^VA(200,^0;2^Q"
^DD(2006.82,1,1,0)="^.1^^-1"
^DD(2006.82,1,1,1,0)="2006.82^D"
^DD(2006.82,1,1,1,1)="S ^MAG(2006.82,""D"",$E(X,1,30),DA)="""""
^DD(2006.82,1,1,1,2)="K ^MAG(2006.82,""D"",$E(X,1,30),DA)"
^DD(2006.82,1,1,1,"%D",0)="^.101^1^1^3021120^^"
^DD(2006.82,1,1,1,"%D",1,0)="Cross reference by User, to make it easy to list all sessions of a user for a day or range of days."
^DD(2006.82,1,1,1,"DT")="3001120"
^DD(2006.82,1,21,0)="^.001^1^1^3001107^^^"
^DD(2006.82,1,21,1,0)="Pointer to New Person file.  This is the user of the VistA Imaging Application."
^DD(2006.82,1,"DT")="3021120"
^DD(2006.82,2,0)="START^D^^0;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.82,2,1,0)="^.1^^-1"
^DD(2006.82,2,1,1,0)="2006.82^AC^MUMPS"
^DD(2006.82,2,1,1,1)="S ^MAG(2006.82,""AC"",""L""_X,DA)="""""
^DD(2006.82,2,1,1,2)="K ^MAG(2006.82,""AC"",""L""_X,DA)"
^DD(2006.82,2,1,1,"%D",0)="^^2^2^3001025^"
^DD(2006.82,2,1,1,"%D",1,0)="This is the Start Time of the Session.  The Index is used by lookup routines to "
^DD(2006.82,2,1,1,"%D",2,0)="display a list sorted by the Start Time of the Imaging Session."
^DD(2006.82,2,1,1,"DT")="2980914"
^DD(2006.82,2,21,0)="^.001^1^1^3001107^^^"
^DD(2006.82,2,21,1,0)="This the Date Time (to the minute) when this imaging session started."
^DD(2006.82,2,"DT")="3041027"
^DD(2006.82,3,0)="END^D^^0;4^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.82,3,21,0)="^.001^1^1^3001107^^^"
^DD(2006.82,3,21,1,0)="This is the Date Time (to the minute) when this imaging session ended."
^DD(2006.82,3,"DT")="2980508"
^DD(2006.82,4,0)="WORKSTATION^P2006.81'^MAG(2006.81,^0;5^Q"
^DD(2006.82,4,1,0)="^.1"
^DD(2006.82,4,1,1,0)="2006.82^C"
^DD(2006.82,4,1,1,1)="S ^MAG(2006.82,""C"",$E(X,1,30),DA)="""""
^DD(2006.82,4,1,1,2)="K ^MAG(2006.82,""C"",$E(X,1,30),DA)"
^DD(2006.82,4,1,1,"DT")="2980818"
^DD(2006.82,4,1,2,0)="2006.82^ACWRK^MUMPS"
^DD(2006.82,4,1,2,1)="S ^MAG(2006.82,""ACWRK"",X,""L""_$P(^MAG(2006.82,DA,0),U,3),DA)="""""
^DD(2006.82,4,1,2,2)="K ^MAG(2006.82,""ACWRK"",X,""L""_$P(^MAG(2006.82,DA,0),U,3),DA)"
^DD(2006.82,4,1,2,"DT")="2990304"
^DD(2006.82,4,21,0)="^.001^1^1^3001025^^^"
^DD(2006.82,4,21,1,0)="This is the workstation that was used for this Imaging session. "
^DD(2006.82,4,"DT")="2990304"
^DD(2006.82,5,0)="PATIENT^P2'^DPT(^0;6^Q"
^DD(2006.82,5,1,0)="^.1^^0"
^DD(2006.82,5,21,0)="^.001^1^1^3001010^^"
^DD(2006.82,5,21,1,0)="This is the last patient (or current patient) accessed during this Imaging session."
^DD(2006.82,5,"DT")="3001120"
^DD(2006.82,6,0)="IMAGE^P2005'^MAG(2005,^0;7^Q"
^DD(2006.82,6,21,0)="^.001^1^1^3001010^^"
^DD(2006.82,6,21,1,0)="This is the last Image ( or current Image ) accessed during this Imaging session"
^DD(2006.82,6,"DT")="2980724"
^DD(2006.82,7,0)="USER SERVICE/SECTION^P49'^DIC(49,^0;8^Q"
^DD(2006.82,7,21,0)="^.001^2^2^3001025^^"
^DD(2006.82,7,21,1,0)="The Service/Section of the Imaging User."
^DD(2006.82,7,21,2,0)="Capturing this information provides statistical data to the site."
^DD(2006.82,7,"DT")="2980824"
^DD(2006.82,8,0)="TRACKING ID^F^^0;9^K:$L(X)>40!($L(X)<3) X"
^DD(2006.82,8,1,0)="^.1"
^DD(2006.82,8,1,1,0)="2006.82^E"
^DD(2006.82,8,1,1,1)="S ^MAG(2006.82,""E"",$E(X,1,30),DA)="""""
^DD(2006.82,8,1,1,2)="K ^MAG(2006.82,""E"",$E(X,1,30),DA)"
^DD(2006.82,8,1,1,"%D",0)="^^1^1^3020506^"
^DD(2006.82,8,1,1,"%D",1,0)="Tracking ID associated with the Import."
^DD(2006.82,8,1,1,"DT")="3020506"
^DD(2006.82,8,3)="Answer must be 3-40 characters in length."
^DD(2006.82,8,21,0)="^^2^2^3020506^"
^DD(2006.82,8,21,1,0)="This is the tracking id sent by the Application doing the Import"
^DD(2006.82,8,21,2,0)="It is a unique number, to be used for tracking purposes."
^DD(2006.82,8,"DT")="3020506"
^DD(2006.82,9,0)="CLIENT VERSION^F^^0;10^K:$L(X)>20!($L(X)<3) X"
^DD(2006.82,9,3)="Answer must be 3-20 characters in length."
^DD(2006.82,9,21,0)="^^1^1^3021029^"
^DD(2006.82,9,21,1,0)="This is the version of the Client application."
^DD(2006.82,9,"DT")="3021029"
^DD(2006.82,9.2,0)="HOST VERSION^F^^0;11^K:$L(X)>20!($L(X)<2) X"
^DD(2006.82,9.2,3)="Answer must be 2-20 characters in length."
^DD(2006.82,9.2,21,0)="^^1^1^3021029^"
^DD(2006.82,9.2,21,1,0)="This is the Version of Imaging installed on the Host."
^DD(2006.82,9.2,"DT")="3021029"
^DD(2006.82,9.4,0)="OS VERSION^F^^0;12^K:$L(X)>20!($L(X)<3) X"
^DD(2006.82,9.4,3)="Answer must be 3-20 characters in length."
^DD(2006.82,9.4,21,0)="^^2^2^3021029^"
^DD(2006.82,9.4,21,1,0)="This is the Operating System Version installed "
^DD(2006.82,9.4,21,2,0)="on the Workstation."
^DD(2006.82,9.4,"DT")="3021029"
^DD(2006.82,10,0)="PAT CT^NJ4,0^^1;1^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.82,10,3)="This is a count of the Number of patients that were accessed during this imaging session."
^DD(2006.82,10,21,0)="^.001^1^1^3001025^^"
^DD(2006.82,10,21,1,0)="This is the number of patients accessed during this imaging session."
^DD(2006.82,10,"DT")="2980724"
^DD(2006.82,11,0)="IMAGE CT^NJ5,0^^1;2^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.82,11,3)="This is a count of the number of images that were accessed during this imaging session."
^DD(2006.82,11,21,0)="^.001^5^5^3001025^^"
^DD(2006.82,11,21,1,0)="This is the number of images viewed during the imaging session."
^DD(2006.82,11,21,2,0)="Images of all types are counted.  Documents, Full Color, EKGs and Radiology "
^DD(2006.82,11,21,3,0)="images."
^DD(2006.82,11,21,4,0)="Whenever a user clicks on an Abstract or Image list entry, and the images is "
^DD(2006.82,11,21,5,0)="displayed, it is counted.  Abstracts are not counted."
^DD(2006.82,11,"DT")="2980724"
^DD(2006.82,12,0)="CAP CT^NJ6,0^^1;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.82,12,3)="Number of images captured this session."
^DD(2006.82,12,21,0)="^.001^3^3^3001025^^"
^DD(2006.82,12,21,1,0)="This is a count of the number of images captured during this Imaging session. "
^DD(2006.82,12,21,2,0)="All images are counted.  A Group of 10 is counted as 10."
^DD(2006.82,12,21,3,0)="Multipage Images are counted as 1 image."
^DD(2006.82,12,"DT")="2980824"
^DD(2006.82,13,0)="START MODE^S^1:NORMAL;2:CPRS;3:IMPORT API;^1;6^Q"
^DD(2006.82,13,3)=""
^DD(2006.82,13,21,0)="^.001^5^5^3021107^^^^"
^DD(2006.82,13,21,1,0)="Numerical Code to determine how the session started."
^DD(2006.82,13,21,2,0)="1 := normal start"
^DD(2006.82,13,21,3,0)="2 := Started By CPRS"
^DD(2006.82,13,21,4,0)="3 := Import API called."
^DD(2006.82,13,21,5,0)="Other codes to be determined later."
^DD(2006.82,13,"DT")="3021104"
^DD(2006.82,14,0)="CONNECT TIME^NJ5,0^^1;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.82,14,3)="Number of Minutes this session was connected."
^DD(2006.82,14,21,0)="^.001^2^2^3011219^^"
^DD(2006.82,14,21,1,0)="Number of minutes this session was connected."
^DD(2006.82,14,21,2,0)="(If a session has no End Time... we don't set this field)"
^DD(2006.82,14,"DT")="3011219"
^DD(2006.82,20,0)="ACTIONS^2006.821A^^ACT;0"
^DD(2006.82,20,21,0)="^.001^3^3^3021120^^^^"
^DD(2006.82,20,21,1,0)="Certain actions are tracked in abbreviated form."
^DD(2006.82,20,21,2,0)="Patient selection, Image Capture, Image selection, Errors, Logon and Logoff."
^DD(2006.82,20,21,3,0)="This is mainly for debugging purposes."
^DD(2006.82,20,23,0)="^.001^9^9^3021120^^^^"
^DD(2006.82,20,23,1,0)="The information in this 'ACTION' multiple can be viewed by using the "
^DD(2006.82,20,23,2,0)="MAGSYS.EXE utility program.  This is mainly used for debugging information."
^DD(2006.82,20,23,3,0)="//"
^DD(2006.82,20,23,4,0)="(an example of the display)"
^DD(2006.82,20,23,5,0)="LOGON^^^^3001010.1213"
^DD(2006.82,20,23,6,0)="PAT^99999^^^3001010.1213"
^DD(2006.82,20,23,7,0)="IMG^99999^12345^Anatomic Diagram^3001010.1214"
^DD(2006.82,20,23,8,0)="ERROR^99999^12345^description of error^3001010.1214"
^DD(2006.82,20,23,9,0)="LOGOFF^^^^3001010.1215"
^DD(2006.82,30,0)="ERRORS^2006.823A^^ERR;0"
^DD(2006.82,30,21,0)="^.001^4^4^3001025^^^"
^DD(2006.82,30,21,1,0)="Errors that occur in 'M' routines are tracked for the Imaging session.  The"
^DD(2006.82,30,21,2,0)="Error description is saved, and the Date/Time the error occured."
^DD(2006.82,30,21,3,0)="By using the MAGSYS.EXE Utility (for Imaging System Managers) the sequence of "
^DD(2006.82,30,21,4,0)="actions that preceded the Error can be viewed."
^DD(2006.82,"B","ACTIONS",20)=""
^DD(2006.82,"B","CAP CT",12)=""
^DD(2006.82,"B","CLIENT VERSION",9)=""
^DD(2006.82,"B","CONNECT TIME",14)=""
^DD(2006.82,"B","END",3)=""
^DD(2006.82,"B","ERRORS",30)=""
^DD(2006.82,"B","HOST VERSION",9.2)=""
^DD(2006.82,"B","IMAGE",6)=""
^DD(2006.82,"B","IMAGE CT",11)=""
^DD(2006.82,"B","NAME",.01)=""
^DD(2006.82,"B","OS VERSION",9.4)=""
^DD(2006.82,"B","PAT CT",10)=""
^DD(2006.82,"B","PATIENT",5)=""
^DD(2006.82,"B","PLACE",.04)=""
^DD(2006.82,"B","START",2)=""
^DD(2006.82,"B","START MODE",13)=""
^DD(2006.82,"B","TRACKING ID",8)=""
^DD(2006.82,"B","USER",1)=""
^DD(2006.82,"B","USER SERVICE/SECTION",7)=""
^DD(2006.82,"B","WORKSTATION",4)=""
^DD(2006.82,"GL",0,1,.01)=""
^DD(2006.82,"GL",0,2,1)=""
^DD(2006.82,"GL",0,3,2)=""
^DD(2006.82,"GL",0,4,3)=""
^DD(2006.82,"GL",0,5,4)=""
^DD(2006.82,"GL",0,6,5)=""
^DD(2006.82,"GL",0,7,6)=""
^DD(2006.82,"GL",0,8,7)=""
^DD(2006.82,"GL",0,9,8)=""
^DD(2006.82,"GL",0,10,9)=""
^DD(2006.82,"GL",0,11,9.2)=""
^DD(2006.82,"GL",0,12,9.4)=""
^DD(2006.82,"GL",1,1,10)=""
^DD(2006.82,"GL",1,2,11)=""
^DD(2006.82,"GL",1,3,12)=""
^DD(2006.82,"GL",1,4,.04)=""
^DD(2006.82,"GL",1,5,14)=""
^DD(2006.82,"GL",1,6,13)=""
^DD(2006.82,"GL","ACT",0,20)=""
^DD(2006.82,"GL","ERR",0,30)=""
^DD(2006.82,"IX",.01)=""
^DD(2006.82,"IX",1)=""
^DD(2006.82,"IX",2)=""
^DD(2006.82,"IX",4)=""
^DD(2006.82,"IX",8)=""
^DD(2006.82,"RQ",.01)=""
^DD(2006.82,"SB",2006.821,20)=""
^DD(2006.82,"SB",2006.823,30)=""
^DD(2006.821,0)="ACTIONS SUB-FIELD^^13^14"
^DD(2006.821,0,"DT")="3021023"
^DD(2006.821,0,"NM","ACTIONS")=""
^DD(2006.821,0,"UP")="2006.82"
^DD(2006.821,.01,0)="ACTION^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(2006.821,.01,1,0)="^.1^^0"
^DD(2006.821,.01,3)="Answer must be 1-30 characters in length."
^DD(2006.821,.01,21,0)="^.001^9^9^3021108^^^^"
^DD(2006.821,.01,21,1,0)="The Action field is an abbreviated form of the actual information.  The "
^DD(2006.821,.01,21,2,0)="information in the field can be used for debugging purposes."
^DD(2006.821,.01,21,3,0)="The information contains the Action, DFN, MAGIEN, Desc, Date/Time"
^DD(2006.821,.01,21,4,0)="Possible actions are :"
^DD(2006.821,.01,21,5,0)="   LOGON,PAT (patient selected), IMG (image viewed),"
^DD(2006.821,.01,21,6,0)="   CAP (image captured), MOD (image data modified), ERROR ('M' error occurred)"
^DD(2006.821,.01,21,7,0)="   and LOGOFF."
^DD(2006.821,.01,21,8,0)=""
^DD(2006.821,.01,21,9,0)="  IMPORT, Data, Result, and WSCheck are additional actions."
^DD(2006.821,.01,"DT")="2980827"
^DD(2006.821,1,0)="DFN^F^^0;2^K:$L(X)>11!($L(X)<1) X"
^DD(2006.821,1,3)="Answer must be 1-11 characters in length"
^DD(2006.821,1,21,0)="^^2^2^3021108^"
^DD(2006.821,1,21,1,0)="This is the internal entry number that relates the Imaging action to "
^DD(2006.821,1,21,2,0)="the Vista Patient file."
^DD(2006.821,1,"DT")="3021023"
^DD(2006.821,2,0)="Image IEN^F^^0;3^K:$L(X)>11!($L(X)<1) X"
^DD(2006.821,2,3)="Answer must be 1-11 characters in length"
^DD(2006.821,2,21,0)="^^2^2^3021108^"
^DD(2006.821,2,21,1,0)="This is the internal entry number of the Vista Image file (#2005) that"
^DD(2006.821,2,21,2,0)="relates the ACTION activity to the Image."
^DD(2006.821,2,"DT")="3021023"
^DD(2006.821,3,0)="Procedure^F^^0;4^K:$L(X)>64!($L(X)<1) X"
^DD(2006.821,3,3)="Answer must be 1-64 characters in length"
^DD(2006.821,3,21,0)="^^2^2^3021108^"
^DD(2006.821,3,21,1,0)="This is the Imaging application or modality that resulted in this"
^DD(2006.821,3,21,2,0)="session action."
^DD(2006.821,3,"DT")="3021023"
^DD(2006.821,4,0)="TIMESTAMP^F^^0;5^K:$L(X)>26!($L(X)<1) X"
^DD(2006.821,4,3)="Answer must be 1-26 characters in length"
^DD(2006.821,4,21,0)="^^1^1^3021108^"
^DD(2006.821,4,21,1,0)="This is the time and date that this action event occurred."
^DD(2006.821,4,"DT")="3021023"
^DD(2006.821,5,0)="V-RAD IMAGES^F^^0;6^K:$L(X)>9!($L(X)<1) X"
^DD(2006.821,5,3)="Answer must be 1-9 characters in length"
^DD(2006.821,5,21,0)="^^1^1^3021108^"
^DD(2006.821,5,21,1,0)="This is the number of images associated with this VistaRad action."
^DD(2006.821,5,"DT")="3021023"
^DD(2006.821,6,0)="V-RAD PATIENTS^F^^0;7^K:$L(X)>9!($L(X)<1) X"
^DD(2006.821,6,3)="Answer must be 1-9 characters in length"
^DD(2006.821,6,21,0)="^^1^1^3021108^"
^DD(2006.821,6,21,1,0)="This is the number of patients associated with this VistaRad action."
^DD(2006.821,6,"DT")="3021023"
^DD(2006.821,7,0)="V-RAD USER TYPE^F^^0;8^K:$L(X)>18!($L(X)<1) X"
^DD(2006.821,7,3)="Answer must be 1-18 characters in length"
^DD(2006.821,7,21,0)="^^1^1^3021108^"
^DD(2006.821,7,21,1,0)="This is the VistaRad user type associated with this action."
^DD(2006.821,7,"DT")="3021023"
^DD(2006.821,8,0)="V-RAD REMOTE READ FLAG^S^1:Yes;0:No;^0;9^Q"
^DD(2006.821,8,3)="Null is the default for local V-Rad user."
^DD(2006.821,8,21,0)="^.001^2^2^3021120^^"
^DD(2006.821,8,21,1,0)="This is the flag that specifies whether this VistaRad action occurred"
^DD(2006.821,8,21,2,0)="locally or remotely."
^DD(2006.821,8,"DT")="3021023"
^DD(2006.821,9,0)="RESOLUTION HEIGHT^F^^0;10^K:$L(X)>11!($L(X)<1) X"
^DD(2006.821,9,3)="Answer must be 1-11 characters in length"
^DD(2006.821,9,21,0)="^^1^1^3021108^"
^DD(2006.821,9,21,1,0)="This is the monitor resolution height settings at the action event."
^DD(2006.821,9,"DT")="3021023"
^DD(2006.821,10,0)="RESOLUTION WIDTH^F^^0;11^K:$L(X)>11!($L(X)<1) X"
^DD(2006.821,10,3)="Answer must be 1-11 characters in length"
^DD(2006.821,10,21,0)="^^1^1^3021108^"
^DD(2006.821,10,21,1,0)="This is the monitor resolution width at the action event."
^DD(2006.821,10,"DT")="3021023"
^DD(2006.821,11,0)="RESOLUTION BITS^F^^0;12^K:$L(X)>4!($L(X)<1) X"
^DD(2006.821,11,3)="Answer must be 1-4 characters in length"
^DD(2006.821,11,21,0)="^^1^1^3021108^"
^DD(2006.821,11,21,1,0)="This is the monitor resolution bit settings at the action event."
^DD(2006.821,11,"DT")="3021023"
^DD(2006.821,12,0)="DISPLAY TYPE^S^CL:Clinical Quality;ND:Non-Dome;VR:VistaRad Quality;TC:Thin Client;^0;13^Q"
^DD(2006.821,12,3)="CL (Default) is Clinical Quality, ND is VistaRAD non-dome, etc... "
^DD(2006.821,12,21,0)="^^1^1^3021108^"
^DD(2006.821,12,21,1,0)="This field defines the monitor settings resolution quality at the action event."
^DD(2006.821,12,"DT")="3021023"
^DD(2006.821,13,0)="ACTION PARAMETER^F^^1;1^K:$L(X)>250!($L(X)<1) X"
^DD(2006.821,13,3)="Answer must be 1-250 characters in length"
^DD(2006.821,13,21,0)="^^1^1^3021108^"
^DD(2006.821,13,21,1,0)="This is the data parameters used for Data and Result action events."
^DD(2006.821,13,"DT")="3021023"
^DD(2006.821,"B","ACTION",.01)=""
^DD(2006.821,"B","ACTION PARAMETER",13)=""
^DD(2006.821,"B","DFN",1)=""
^DD(2006.821,"B","DISPLAY TYPE",12)=""
^DD(2006.821,"B","Image IEN",2)=""
^DD(2006.821,"B","Procedure",3)=""
^DD(2006.821,"B","RESOLUTION BITS",11)=""
^DD(2006.821,"B","RESOLUTION HEIGHT",9)=""
^DD(2006.821,"B","RESOLUTION WIDTH",10)=""
^DD(2006.821,"B","TIMESTAMP",4)=""
^DD(2006.821,"B","V-RAD IMAGES",5)=""
^DD(2006.821,"B","V-RAD PATIENTS",6)=""
^DD(2006.821,"B","V-RAD REMOTE READ FLAG",8)=""
^DD(2006.821,"B","V-RAD USER TYPE",7)=""
^DD(2006.821,"GL",0,1,.01)=""
^DD(2006.821,"GL",0,2,1)=""
^DD(2006.821,"GL",0,3,2)=""
^DD(2006.821,"GL",0,4,3)=""
^DD(2006.821,"GL",0,5,4)=""
^DD(2006.821,"GL",0,6,5)=""
^DD(2006.821,"GL",0,7,6)=""
^DD(2006.821,"GL",0,8,7)=""
^DD(2006.821,"GL",0,9,8)=""
^DD(2006.821,"GL",0,10,9)=""
^DD(2006.821,"GL",0,11,10)=""
^DD(2006.821,"GL",0,12,11)=""
^DD(2006.821,"GL",0,13,12)=""
^DD(2006.821,"GL",1,1,13)=""
^DD(2006.823,0)="ERRORS SUB-FIELD^^.01^1"
^DD(2006.823,0,"DT")="2980724"
^DD(2006.823,0,"NM","ERRORS")=""
^DD(2006.823,0,"UP")="2006.82"
^DD(2006.823,.01,0)="ERRORS^F^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(2006.823,.01,1,0)="^.1^^0"
^DD(2006.823,.01,3)="These errors happened during this imaging session"
^DD(2006.823,.01,21,0)="^.001^1^1^3001010^^^"
^DD(2006.823,.01,21,1,0)="If 'M' errors occur during this imaging session, they are logged here."
^DD(2006.823,.01,"DT")="2980724"
^DD(2006.823,"B","ERRORS",.01)=""
^DD(2006.823,"GL",0,1,.01)=""
^DD(2006.95,0)="FIELD^^100^11"
^DD(2006.95,0,"DDA")="N"
^DD(2006.95,0,"DT")="3030811"
^DD(2006.95,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2006.95,0,"ID",7)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,8),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(2006.95,0,"IX","AC",2006.95,6)=""
^DD(2006.95,0,"IX","AS",2006.95,9)=""
^DD(2006.95,0,"IX","B",2006.95,.01)=""
^DD(2006.95,0,"NM","IMAGE ACCESS LOG")=""
^DD(2006.95,0,"VR")="3.0"
^DD(2006.95,0,"VRPK")="MAG"
^DD(2006.95,.01,0)="IMAGE ACCESS IEN^RNJ12,0X^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1.N) X S:$D(X)#10 DINUM=X"
^DD(2006.95,.01,1,0)="^.1"
^DD(2006.95,.01,1,1,0)="2006.95^B"
^DD(2006.95,.01,1,1,1)="S ^MAG(2006.95,""B"",$E(X,1,30),DA)="""""
^DD(2006.95,.01,1,1,2)="K ^MAG(2006.95,""B"",$E(X,1,30),DA)"
^DD(2006.95,.01,3)="Type a number between 1 and 999999999999, 0 Decimal Digits"
^DD(2006.95,.01,21,0)="^^1^1^3030811^"
^DD(2006.95,.01,21,1,0)="This field contains the internal entry number of the image access."
^DD(2006.95,.01,"DT")="3030811"
^DD(2006.95,1,0)="ACCESS TYPE^RF^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(2006.95,1,3)="Answer must be 1-10 characters in length."
^DD(2006.95,1,21,0)="^^2^2^2970722^^"
^DD(2006.95,1,21,1,0)="This field describes the type of access made to the image or"
^DD(2006.95,1,21,2,0)="page of image abstracts."
^DD(2006.95,1,"DT")="2950118"
^DD(2006.95,2,0)="USER^P200'^VA(200,^0;3^Q"
^DD(2006.95,2,21,0)="^^2^2^2950323^"
^DD(2006.95,2,21,1,0)="This field indicates the user who accessed the image or page"
^DD(2006.95,2,21,2,0)="of abstracts."
^DD(2006.95,2,"DT")="2950118"
^DD(2006.95,3,0)="IMAGE^RP2005'^MAG(2005,^0;4^Q"
^DD(2006.95,3,21,0)="^^1^1^2950323^"
^DD(2006.95,3,21,1,0)="This field contains a pointer to the image that was accessed."
^DD(2006.95,3,"DT")="2950118"
^DD(2006.95,4,0)="USER INTERFACE SOFTWARE^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(2006.95,4,3)="Answer must be 1-10 characters in length."
^DD(2006.95,4,21,0)="^^2^2^2950323^"
^DD(2006.95,4,21,1,0)="This field indicates the software package that was being used"
^DD(2006.95,4,21,2,0)="to access the image."
^DD(2006.95,4,"DT")="2950118"
^DD(2006.95,5,0)="WORKSTATION^F^^0;6^K:$L(X)>3!($L(X)<3) X"
^DD(2006.95,5,3)="Answer must be 3 characters in length."
^DD(2006.95,5,21,0)="^^3^3^3030811^"
^DD(2006.95,5,21,1,0)="This field records the 3-letter abbreviation of the"
^DD(2006.95,5,21,2,0)="workstation on which the image access was made.  Meaningful only for MSM "
^DD(2006.95,5,21,3,0)="systems."
^DD(2006.95,5,"DT")="3030811"
^DD(2006.95,6,0)="ACCESS DATE/TIME^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2006.95,6,1,0)="^.1"
^DD(2006.95,6,1,1,0)="2006.95^AC"
^DD(2006.95,6,1,1,1)="S ^MAG(2006.95,""AC"",$E(X,1,30),DA)="""""
^DD(2006.95,6,1,1,2)="K ^MAG(2006.95,""AC"",$E(X,1,30),DA)"
^DD(2006.95,6,1,1,"DT")="2970711"
^DD(2006.95,6,21,0)="^^1^1^2950323^"
^DD(2006.95,6,21,1,0)="This field holds the date and time of the image access."
^DD(2006.95,6,"DT")="2970711"
^DD(2006.95,7,0)="PATIENT^P2'^DPT(^0;8^Q"
^DD(2006.95,7,21,0)="^^1^1^2950323^"
^DD(2006.95,7,21,1,0)="This field indicates the patient whose images were accessed (optional)."
^DD(2006.95,7,"DT")="2950118"
^DD(2006.95,8,0)="IMAGE COUNT^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.95,8,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2006.95,8,21,0)="^^1^1^2950323^^"
^DD(2006.95,8,21,1,0)="Number of images accessed for abstract accesses"
^DD(2006.95,8,"DT")="2950119"
^DD(2006.95,9,0)="SESSION^NJ14,0^^0;10^K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2006.95,9,1,0)="^.1"
^DD(2006.95,9,1,1,0)="2006.95^AS"
^DD(2006.95,9,1,1,1)="S ^MAG(2006.95,""AS"",$E(X,1,30),DA)="""""
^DD(2006.95,9,1,1,2)="K ^MAG(2006.95,""AS"",$E(X,1,30),DA)"
^DD(2006.95,9,1,1,"%D",0)="^^1^1^3020723^"
^DD(2006.95,9,1,1,"%D",1,0)="Cross reference to group actions together by session."
^DD(2006.95,9,1,1,"DT")="3020723"
^DD(2006.95,9,3)="This is the Imaging Session that initiated the action."
^DD(2006.95,9,21,0)="^^1^1^3020723^"
^DD(2006.95,9,21,1,0)="This is the IEN of the Imaging Windows Session file."
^DD(2006.95,9,"DT")="3020723"
^DD(2006.95,100,0)="ADDITIONAL DATA^F^^100;1^K:$L(X)>60!($L(X)<1) X"
^DD(2006.95,100,3)="Answer must be 1-60 characters in length."
^DD(2006.95,100,21,0)="^^10^10^3030811^"
^DD(2006.95,100,21,1,0)="This field contains audit-specific information that cannot be fully "
^DD(2006.95,100,21,2,0)="recorded in other fields in the IMAGE ACCESS LOG File.  The specific "
^DD(2006.95,100,21,3,0)="information contained is based on the value of the USER INTERFACE "
^DD(2006.95,100,21,4,0)="SOFTWARE Field (#4), as follows:"
^DD(2006.95,100,21,5,0)=" "
^DD(2006.95,100,21,6,0)="Field 4   Field 100"
^DD(2006.95,100,21,7,0)="value     meaning"
^DD(2006.95,100,21,8,0)=" "
^DD(2006.95,100,21,9,0)="P17CV     Range of entries committed in Image Index Conversion:"
^DD(2006.95,100,21,10,0)="          first_last"
^DD(2006.95,100,"DT")="3030811"
^DD(2006.95,"B","ACCESS DATE/TIME",6)=""
^DD(2006.95,"B","ACCESS TYPE",1)=""
^DD(2006.95,"B","ADDITIONAL DATA",100)=""
^DD(2006.95,"B","IMAGE",3)=""
^DD(2006.95,"B","IMAGE ACCESS IEN",.01)=""
^DD(2006.95,"B","IMAGE COUNT",8)=""
^DD(2006.95,"B","PATIENT",7)=""
^DD(2006.95,"B","SESSION",9)=""
^DD(2006.95,"B","USER",2)=""
^DD(2006.95,"B","USER INTERFACE SOFTWARE",4)=""
^DD(2006.95,"B","WORKSTATION",5)=""
^DD(2006.95,"GL",0,1,.01)=""
^DD(2006.95,"GL",0,2,1)=""
^DD(2006.95,"GL",0,3,2)=""
^DD(2006.95,"GL",0,4,3)=""
^DD(2006.95,"GL",0,5,4)=""
^DD(2006.95,"GL",0,6,5)=""
^DD(2006.95,"GL",0,7,6)=""
^DD(2006.95,"GL",0,8,7)=""
^DD(2006.95,"GL",0,9,8)=""
^DD(2006.95,"GL",0,10,9)=""
^DD(2006.95,"GL",100,1,100)=""
^DD(2006.95,"IX",.01)=""
^DD(2006.95,"IX",6)=""
^DD(2006.95,"IX",9)=""
^DD(2006.95,"RQ",.01)=""
^DD(2006.95,"RQ",1)=""
^DD(2006.95,"RQ",3)=""
^DD(2006.96,0)="FIELD^^.01^2"
^DD(2006.96,0,"DDA")="N"
^DD(2006.96,0,"DT")="3030812"
^DD(2006.96,0,"NM","IMAGE INDEX CONVERSION")=""
^DD(2006.96,0,"VR")="3.0"
^DD(2006.96,0,"VRPK")="MAG"
^DD(2006.96,.001,0)="IMAGE FILE IEN^NJ10,0^^ ^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(2006.96,.001,3)="Type a number between 0 and 9999999999, 0 Decimal Digits"
^DD(2006.96,.001,"DT")="3030808"
^DD(2006.96,.01,0)="CONVERTED BY^RS^0:UNKNOWN;1:PATCH 25;2:PATCH 59;^0;1^Q"
^DD(2006.96,.01,1,0)="^.1^^0"
^DD(2006.96,.01,3)="Do not modify the entries in this file."
^DD(2006.96,.01,21,0)="^.001^1^1^3050829^^^^"
^DD(2006.96,.01,21,1,0)="This field indicates by what means the index values were converted."
^DD(2006.96,.01,"DT")="3050829"
^DD(2006.96,"B","CONVERTED BY",.01)=""
^DD(2006.96,"B","IMAGE FILE IEN",.001)=""
^DD(2006.96,"GL",0,1,.01)=""
^DD(2006.96,"RQ",.01)=""
^DD(2040,0)="FIELD^^14^36"
^DD(2040,0,"DDA")="N"
^DD(2040,0,"DT")="2980528"
^DD(2040,0,"IX","AB",2040.06,.01)=""
^DD(2040,0,"IX","AC",2040.03,.01)=""
^DD(2040,0,"IX","B",2040,.01)=""
^DD(2040,0,"NM","VIST ROSTER")=""
^DD(2040,0,"PT",2041.7,.01)=""
^DD(2040,0,"PT",2042.5,.01)=""
^DD(2040,0,"PT",2043.5,.01)=""
^DD(2040,0,"VR")="4.0"
^DD(2040,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2040,.01,0)="NAME^RP2'^DPT(^0;1^Q"
^DD(2040,.01,1,0)="^.1"
^DD(2040,.01,1,1,0)="2040^B"
^DD(2040,.01,1,1,1)="S ^ANRV(2040,""B"",$E(X,1,30),DA)="""""
^DD(2040,.01,1,1,2)="K ^ANRV(2040,""B"",$E(X,1,30),DA)"
^DD(2040,.01,1,2,0)="^^TRIGGER^2040^3"
^DD(2040,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ANRV(2040,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(2040,.01,1,2,1.1) X ^DD(2040,.01,1,2,1.4)"
^DD(2040,.01,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DPT(+D0,0)) D0=-1 S Y(101)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=$S('$D(^DIC(8,+$P(Y(101),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0)"
^DD(2040,.01,1,2,1.4)="S DIH=$S($D(^ANRV(2040,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=2040,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2040,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ANRV(2040,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(2040,.01,1,2,2.4)"
^DD(2040,.01,1,2,2.4)="S DIH=$S($D(^ANRV(2040,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=2040,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2040,.01,1,2,"CREATE VALUE")="#.01:ELIGIBILITY CODE"
^DD(2040,.01,1,2,"DELETE VALUE")="@"
^DD(2040,.01,1,2,"FIELD")="VA ELIGIBILITY"
^DD(2040,.01,3)="Enter the veteran's name."
^DD(2040,.01,21,0)="^^1^1^2980528^^^^"
^DD(2040,.01,21,1,0)="This is the name of the VIST veteran."
^DD(2040,.01,"DT")="2980528"
^DD(2040,.01,"LAYGO",.01,0)="D:$P($G(^DPT(+X,.35)),""^"") EN^DDIOL(""Patient Deceased, cannot be added!"") I '$P($G(^DPT(+X,.35)),""^"")"
^DD(2040,.015,0)="ENROLLMENT DATE^DX^^7;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2040,.015,3)="Enter date of enrollment."
^DD(2040,.015,21,0)="^^1^1^2980312^^^^"
^DD(2040,.015,21,1,0)="This is the date the veteran was added to the VIST roster."
^DD(2040,.015,"DT")="2980220"
^DD(2040,.5,0)="REFERRAL SOURCE^S^1:VA EYE CLINIC;2:NON-VA EYE CLINIC;3:STATE AGENCY;4:COMMUNITY AGENCY;5:VA STAFF;6:VETERANS SERVICE ORGANIZATION;7:FAMILY/FRIEND;8:SELF;9:OTHER;^9;1^Q"
^DD(2040,.5,3)="Enter source of referral."
^DD(2040,.5,21,0)="^^2^2^2980312^^^^"
^DD(2040,.5,21,1,0)="This is the person, organization, service or other source for the referral"
^DD(2040,.5,21,2,0)="to the VIST program."
^DD(2040,.5,"DT")="2930517"
^DD(2040,1,0)="NUMBER OF DEPENDENTS^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2040,1,3)="Type a number between 0 and 99, 0 decimal digits."
^DD(2040,1,21,0)="^^2^2^2980312^^^^"
^DD(2040,1,21,1,0)="This is the number of people in addition to the veteran for whom the"
^DD(2040,1,21,2,0)="veteran has financial responsibility."
^DD(2040,1,"DT")="2890502"
^DD(2040,1.2,0)="LIVING ARRANGEMENT^S^1:ALONE;2:FAMILY;3:NURSING HOME;4:STATE VETERANS CENTER;5:UNKNOWN;6:LIVES WITH FRIEND;7:BOARD AND CARE;8:OTHER;^7;5^Q"
^DD(2040,1.2,3)="Enter the veteran's living arrangements."
^DD(2040,1.2,21,0)="^^1^1^2980312^^^"
^DD(2040,1.2,21,1,0)="This describes with whom the veteran resides."
^DD(2040,1.2,"DT")="2930518"
^DD(2040,1.5,0)="SPOUSE'S NAME^F^^13;1^K:$L(X)>80!($L(X)<3) X"
^DD(2040,1.5,3)="Enter the name of the veteran's spouse (3-80 characters in length)."
^DD(2040,1.5,21,0)="^^1^1^2980312^^^"
^DD(2040,1.5,21,1,0)="This is the name of the veteran's spouse."
^DD(2040,1.5,"DT")="2890502"
^DD(2040,2,0)="DEPENDENT'S NAME & INFO^2040.02^^1;0"
^DD(2040,2,21,0)="^^2^2^2980312^^^^"
^DD(2040,2,21,1,0)="These are the names of the veteran's dependents.  You can"
^DD(2040,2,21,2,0)="also include other information, i.e. phone numbers, etc."
^DD(2040,2.3,0)="DATE OF BIRTH^DC^^ ; ^X ^DD(2040,2.3,9.2) S Y(2040,2.3,101)=$S($D(^DPT(D0,0)):^(0),1:"""") S X=$P(Y(2040,2.3,101),U,3) S D0=Y(2040,2.3,80)"
^DD(2040,2.3,9)="^"
^DD(2040,2.3,9.01)="2^.03;2040^.01"
^DD(2040,2.3,9.1)="NAME:DATE OF BIRTH"
^DD(2040,2.3,9.2)="S Y(2040,2.3,80)=$S($D(D0):D0,1:""""),Y(2040,2.3,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(2040,2.3,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(2040,2.5,0)="AGE^CJ8^^ ; ^X ^DD(2040,2.5,9.2) X $P(^DD(2,.033,0),U,5,99) S Y(2040,2.5,101)=X S X=Y(2040,2.5,101) S D0=Y(2040,2.5,80)"
^DD(2040,2.5,9)="^"
^DD(2040,2.5,9.01)="2^.033;2040^.01"
^DD(2040,2.5,9.1)="NAME:AGE"
^DD(2040,2.5,9.2)="S Y(2040,2.5,80)=$S($D(D0):D0,1:""""),Y(2040,2.5,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(2040,2.5,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1"
^DD(2040,3,0)="VIST ELIGIBILITY^F^^2;1^K:$L(X)>80!($L(X)<3) X"
^DD(2040,3,3)="Answer must be 3-80 characters in length."
^DD(2040,3,5,1,0)="2040^.01^2"
^DD(2040,3,21,0)="^^1^1^2980330^^^^"
^DD(2040,3,21,1,0)="This describes the category of VA eligibility of the veteran."
^DD(2040,3,"DT")="2980330"
^DD(2040,3.3,0)="PERIOD OF SERVICE^CJ15^^ ; ^X ^DD(2040,3.3,9.3) S X=$S('$D(^DIC(21,+$P(Y(2040,3.3,101),U,3),0)):"""",1:$P(^(0),U,1)) S D0=Y(2040,3.3,80)"
^DD(2040,3.3,9)="^"
^DD(2040,3.3,9.01)="2^.323;2040^.01"
^DD(2040,3.3,9.1)="NAME:PERIOD OF SERVICE:PERIOD OF SERVICE"
^DD(2040,3.3,9.2)="S Y(2040,3.3,80)=$S($D(D0):D0,1:""""),Y(2040,3.3,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(2040,3.3,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(2040,3.3,180)=$S($D(D0):D0,1:"""")"
^DD(2040,3.3,9.3)="X ^DD(2040,3.3,9.2) S Y(2040,3.3,101)=$S($D(^DPT(D0,.32)):^(.32),1:""""),D0=$P(Y(2040,3.3,101),U,3) S:'$D(^DIC(21,+D0,0)) D0=-1"
^DD(2040,3.3,21,0)="^^1^1^2980312^^^"
^DD(2040,3.3,21,1,0)="This is the last period of active service the veteran served."
^DD(2040,3.3,"DT")="2890411"
^DD(2040,3.5,0)="VA ENTITLEMENT (AMIS)^S^022:0% ONLY (022);023:10% SC THRU SMC (023);024:SC FOR BLINDNESS (024);025:NSC PENSION A&A/HB (025);NSC:NSC PENSION ONLY;OTH:NSC OTHER ELIGIBILITY;^5;1^Q"
^DD(2040,3.5,3)="Enter VA entitlement."
^DD(2040,3.5,21,0)="^^1^1^2980312^^^"
^DD(2040,3.5,21,1,0)="This is the category of VIST eligibility as prescribed on the VIST AMIS."
^DD(2040,3.5,"DT")="2910905"
^DD(2040,4,0)="EYE EXAM DATE & VISUAL STATUS^2040.04D^^3;0"
^DD(2040,4,21,0)="^^2^2^2980515^^^^"
^DD(2040,4,21,1,0)="This is the date of the eye examination and the entry of the veteran's"
^DD(2040,4,21,2,0)="visual acuities and/or fields."
^DD(2040,4.2,0)="EYE DIAGNOSIS^2040.01P^^15;0"
^DD(2040,4.2,21,0)="^^1^1^2980312^^^"
^DD(2040,4.2,21,1,0)="This states the diagnosis causing the veteran's visual loss."
^DD(2040,4.5,0)="VISUAL ACTIVITY (AMIS)^RS^004:NO SIGHT (004);005:LP UP TO & INCLUDING 5/200 (005);006:LP OF 6/200 TO 20/200 (006);007:FIELD RESTRICTION (007);008:NOT KNOWN (008);^7;3^Q"
^DD(2040,4.5,3)="Enter Visual Acuities or fields per AMIS guidelines."
^DD(2040,4.5,21,0)="^^1^1^2980312^^^^"
^DD(2040,4.5,21,1,0)="This describes the veteran's degree of vision loss."
^DD(2040,4.5,"DT")="2890327"
^DD(2040,5,0)="GENERAL HEALTH^2040.05^^4;0"
^DD(2040,5,21,0)="^^1^1^2980312^^^"
^DD(2040,5,21,1,0)="This provides a summary of the veteran's general health."
^DD(2040,6,0)="VIS TEAM REVIEW DATE^2040.06D^^6;0"
^DD(2040,6,21,0)="^^1^1^2980320^^^^"
^DD(2040,6,21,1,0)="This is the date of the most recent VIST Review."
^DD(2040,6.5,0)="VIST FIELD VISIT DATE (AMIS)^2040.03D^^10;0"
^DD(2040,6.5,21,0)="^^1^1^2980312^^^^"
^DD(2040,6.5,21,1,0)="This is the date of the most recent field or home visit to the veteran."
^DD(2040,7,0)="VIST ELIGIBLE (AMIS)^RS^001:YES (001);002:NO - REVIEWED FOR BRC ATTENDANCE (002);003:NO - OTHER (003);NO:NO - NOT LEGALLY BLIND;I:INACTIVE;^13;2^Q"
^DD(2040,7,3)="Enter veteran's eligibility for VIST services."
^DD(2040,7,21,0)="^^1^1^2980312^^^"
^DD(2040,7,21,1,0)="This states whether the veteran is eligible for VIST services."
^DD(2040,7,"DT")="2890523"
^DD(2040,8,0)="NON VIST ELIGIBLE (AMIS)^S^002:REVIEWED FOR BRC (002);003:OTHER (003);^7;2^Q"
^DD(2040,8,3)="Enter if veteran is not eligible for VIST services."
^DD(2040,8,21,0)="^^1^1^2980312^^^"
^DD(2040,8,21,1,0)="This denotes veterans not eligible for VIST Services."
^DD(2040,8,"DT")="2890327"
^DD(2040,8.5,0)="PERIOD OF SERVICE (AMIS)^CJ8^^ ; ^X ^DD(2040,8.5,9.5) S X=$S(Y(2040,8.5,2):Y(2040,8.5,3),Y(2040,8.5,4):Y(2040,8.5,5),Y(2040,8.5,6):Y(2040,8.5,7),Y(2040,8.5,8):Y(2040,8.5,9),Y(2040,8.5,10):Y(2040,8.5,11),Y(2040,8.5,12):X)"
^DD(2040,8.5,9)="^"
^DD(2040,8.5,9.01)="2040^3.3"
^DD(2040,8.5,9.1)="$S(PERIOD OF SERVICE=""WORLD WAR I"":""016"",PERIOD OF SERVICE=""SPANISH AMERICAN"":""016"",PERIOD OF SERVICE=""WORLD WAR II"":""017"",PERIOD OF SERVICE=""KOREAN"":""018"",PERIOD OF SERVICE=""VIETNAM ERA"":""019"",1:"" "")"
^DD(2040,8.5,9.2)="X $P(^DD(2040,3.3,0),U,5,99) S Y(2040,8.5,1)=X S X=Y(2040,8.5,1)=""WORLD WAR I"",Y(2040,8.5,2)=X S X=""016"",Y(2040,8.5,3)=X S X=Y(2040,8.5,1)"
^DD(2040,8.5,9.3)="X ^DD(2040,8.5,9.2) S X=X=""SPANISH AMERICAN"",Y(2040,8.5,4)=X S X=""016"",Y(2040,8.5,5)=X S X=Y(2040,8.5,1)=""WORLD WAR II"",Y(2040,8.5,6)=X S X=""017"""
^DD(2040,8.5,9.4)="X ^DD(2040,8.5,9.3) S Y(2040,8.5,7)=X S X=Y(2040,8.5,1)=""KOREAN"",Y(2040,8.5,8)=X S X=""018"",Y(2040,8.5,9)=X S X=Y(2040,8.5,1)=""VIETNAM ERA"""
^DD(2040,8.5,9.5)="X ^DD(2040,8.5,9.4) S Y(2040,8.5,10)=X S X=""019"",Y(2040,8.5,11)=X S X=1,Y(2040,8.5,12)=X S X="" """
^DD(2040,8.5,21,0)="^^1^1^2980312^^^"
^DD(2040,8.5,21,1,0)="This is the period of Service the veteran spent in the military."
^DD(2040,8.5,"DT")="2890724"
^DD(2040,8.6,0)="PERIOD OF SERVICE (AMIS) II^CJ8^^ ; ^X ^DD(2040,8.6,9.5) S X=$S(Y(2040,8.6,2):Y(2040,8.6,3),Y(2040,8.6,4):Y(2040,8.6,5),Y(2040,8.6,6):Y(2040,8.6,7),Y(2040,8.6,8):Y(2040,8.6,9),Y(2040,8.6,10):Y(2040,8.6,11),Y(2040,8.6,12):X)"
^DD(2040,8.6,9)="^"
^DD(2040,8.6,9.01)="2040^3.3"
^DD(2040,8.6,9.1)="$S(PERIOD OF SERVICE=""POST-KOREAN"":""020"",PERIOD OF SERVICE=""POST-VIETNAM"":""020"",PERIOD OF SERVICE=""PRE-KOREAN"":""020"",PERIOD OF SERVICE=""OTHER OR NONE"":""020"",PERIOD OF SERVICE=""PERSIAN GULF WAR"":""020"",1:"" "")"
^DD(2040,8.6,9.2)="X $P(^DD(2040,3.3,0),U,5,99) S Y(2040,8.6,1)=X S X=Y(2040,8.6,1)=""POST-KOREAN"",Y(2040,8.6,2)=X S X=""020"",Y(2040,8.6,3)=X S X=Y(2040,8.6,1)"
^DD(2040,8.6,9.3)="X ^DD(2040,8.6,9.2) S X=X=""POST-VIETNAM"",Y(2040,8.6,4)=X S X=""020"",Y(2040,8.6,5)=X S X=Y(2040,8.6,1)=""PRE-KOREAN"",Y(2040,8.6,6)=X S X=""020"""
^DD(2040,8.6,9.4)="X ^DD(2040,8.6,9.3) S Y(2040,8.6,7)=X S X=Y(2040,8.6,1)=""OTHER OR NONE"",Y(2040,8.6,8)=X S X=""020"",Y(2040,8.6,9)=X S X=Y(2040,8.6,1)=""PERSIAN GULF WAR"""
^DD(2040,8.6,9.5)="X ^DD(2040,8.6,9.4) S Y(2040,8.6,10)=X S X=""020"",Y(2040,8.6,11)=X S X=1,Y(2040,8.6,12)=X S X="" """
^DD(2040,8.6,21,0)="^^1^1^2980312^^^"
^DD(2040,8.6,21,1,0)="This is the AMIS field for period of service."
^DD(2040,8.6,"DT")="2890724"
^DD(2040,8.7,0)="AGE CATEGORY I^CJ8^^ ; ^X ^DD(2040,8.7,9.7) S X=$S(Y(2040,8.7,2):Y(2040,8.7,3),Y(2040,8.7,5):Y(2040,8.7,6),Y(2040,8.7,8):Y(2040,8.7,9),Y(2040,8.7,11):Y(2040,8.7,12),Y(2040,8.7,14):Y(2040,8.7,15),Y(2040,8.7,16):X)"
^DD(2040,8.7,9)="^"
^DD(2040,8.7,9.01)="2040^2.5"
^DD(2040,8.7,9.1)="$S(AGE<25:""026"",AGE>24&(AGE<35):""027"",AGE>34&(AGE<45):""028"",AGE>44&(AGE<55):""029"",AGE>54&(AGE<65):""030"",AGE>64:"" "")"
^DD(2040,8.7,9.2)="X $P(^DD(2040,2.5,0),U,5,99) S Y(2040,8.7,1)=X S X=Y(2040,8.7,1)<25,Y(2040,8.7,2)=X S X=""026"",Y(2040,8.7,3)=X S X=Y(2040,8.7,1)>24"
^DD(2040,8.7,9.3)="X ^DD(2040,8.7,9.2) S Y(2040,8.7,4)=X S X=Y(2040,8.7,1)<35,Y=X,X=Y(2040,8.7,4),X=X&Y,Y(2040,8.7,5)=X S X=""027"",Y(2040,8.7,6)=X S X=Y(2040,8.7,1)"
^DD(2040,8.7,9.4)="X ^DD(2040,8.7,9.3) S X=X>34,Y(2040,8.7,7)=X S X=Y(2040,8.7,1)<45,Y=X,X=Y(2040,8.7,7),X=X&Y,Y(2040,8.7,8)=X S X=""028"",Y(2040,8.7,9)=X S X=Y(2040,8.7,1)"
^DD(2040,8.7,9.5)="X ^DD(2040,8.7,9.4) S X=X>44,Y(2040,8.7,10)=X S X=Y(2040,8.7,1)<55,Y=X,X=Y(2040,8.7,10),X=X&Y,Y(2040,8.7,11)=X S X=""029"",Y(2040,8.7,12)=X S X=Y(2040,8.7,1)"
^DD(2040,8.7,9.6)="X ^DD(2040,8.7,9.5) S X=X>54,Y(2040,8.7,13)=X S X=Y(2040,8.7,1)<65,Y=X,X=Y(2040,8.7,13),X=X&Y,Y(2040,8.7,14)=X S X=""030"",Y(2040,8.7,15)=X S X=Y(2040,8.7,1)"
^DD(2040,8.7,9.7)="X ^DD(2040,8.7,9.6) S X=X>64,Y(2040,8.7,16)=X S X="" """
^DD(2040,8.7,21,0)="^^2^2^2980312^^^"
^DD(2040,8.7,21,1,0)="This is the field denoting the age category in which the veteran"
^DD(2040,8.7,21,2,0)="is currently."
^DD(2040,8.7,"DT")="2890404"
^DD(2040,8.9,0)="AGE CATEGORY II^CJ8^^ ; ^X ^DD(2040,8.9,9.5) S X=$S(Y(2040,8.9,2):Y(2040,8.9,3),Y(2040,8.9,5):Y(2040,8.9,6),Y(2040,8.9,8):Y(2040,8.9,9),Y(2040,8.9,10):X)"
^DD(2040,8.9,9)="^"
^DD(2040,8.9,9.01)="2040^2.5"
^DD(2040,8.9,9.1)="$S(AGE<65:"" "",AGE>64&(AGE<75):""031"",AGE>74&(AGE<85):""032"",AGE>84:""033"")"
^DD(2040,8.9,9.2)="X $P(^DD(2040,2.5,0),U,5,99) S Y(2040,8.9,1)=X S X=Y(2040,8.9,1)<65,Y(2040,8.9,2)=X S X="" "",Y(2040,8.9,3)=X S X=Y(2040,8.9,1)>64"
^DD(2040,8.9,9.3)="X ^DD(2040,8.9,9.2) S Y(2040,8.9,4)=X S X=Y(2040,8.9,1)<75,Y=X,X=Y(2040,8.9,4),X=X&Y,Y(2040,8.9,5)=X S X=""031"",Y(2040,8.9,6)=X S X=Y(2040,8.9,1)"
^DD(2040,8.9,9.4)="X ^DD(2040,8.9,9.3) S X=X>74,Y(2040,8.9,7)=X S X=Y(2040,8.9,1)<85,Y=X,X=Y(2040,8.9,7),X=X&Y,Y(2040,8.9,8)=X S X=""032"",Y(2040,8.9,9)=X S X=Y(2040,8.9,1)"
^DD(2040,8.9,9.5)="X ^DD(2040,8.9,9.4) S X=X>84,Y(2040,8.9,10)=X S X=""033"""
^DD(2040,8.9,21,0)="^^1^1^2980312^^"
^DD(2040,8.9,21,1,0)="This is the field that denotes the age of the veteran."
^DD(2040,8.9,"DT")="2890404"
^DD(2040,9,0)="MAJOR ACTIVITY (AMIS)^RS^009:EMP FOR PAY (009);010:ENG IN TRN/SCHOOL (010);011:VOL WORK 10HRS/WK (011);012:RETIRED W/APPROP. ACT. (012);013:TOO ILL OR TOO DISABLED (013);014:NO WELL DEFINED ACT. (014);015:NOT KNOWN (015);^7;4^Q"
^DD(2040,9,3)="Enter the code corresponding to the veteran's major activity."
^DD(2040,9,21,0)="^^2^2^2980312^^^"
^DD(2040,9,21,1,0)="This field denotes the veteran's major activities, work, school, volunteer"
^DD(2040,9,21,2,0)="activities, retired, too ill. "
^DD(2040,9,"DT")="2890327"
^DD(2040,10,0)="COUNTY^Cm^^ ; ^X ^DD(2040,10,9.6) S X=X_$P(Y(2040,10,303),U,3)_$P(Y(2040,10,303),U,1) S D0=Y(2040,10,80) S D1=Y(2040,10,281)"
^DD(2040,10,9)="^"
^DD(2040,10,9.01)="5.01^.01;5.01^2;5^.01;5^3;2^.115;2040^.01"
^DD(2040,10,9.1)="NAME:STATE:COUNTY:COUNTY:NAME_VA COUNTY CODE_COUNTY"
^DD(2040,10,9.2)="S I(200)=""^DIC(5,"",J(200)=5 F D=0:0 S (D,D1)=$N(^DIC(5,D0,1,D)) Q:D'>0  I $D(^(D,0))#2 S X=$P(^(0),U,1) X DICMX Q:'$D(D)  S D=D1"
^DD(2040,10,9.3)="S Y(2040,10,80)=$S($D(D0):D0,1:""""),Y(2040,10,1)=$S($D(^ANRV(2040,D0,0)):^(0),1:""""),D0=$P(Y(2040,10,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(2040,10,180)=$S($D(D0):D0,1:"""")"
^DD(2040,10,9.4)="X ^DD(2040,10,9.3) S Y(2040,10,101)=$S($D(^DPT(D0,.11)):^(.11),1:""""),D0=$P(Y(2040,10,101),U,5) S:'$D(^DIC(5,+D0,0)) D0=-1 S Y(2040,10,280)=$S($D(D0):D0,1:"""")"
^DD(2040,10,9.5)="X ^DD(2040,10,9.4) S Y(2040,10,281)=$S($D(D1):D1,1:"""") X ^DD(2040,10,9.2):D0>0 S X="""" K DIC S Y=-1,DIC=""^DIC(5,D0,1,"",DIC(0)=""NMF"" D ^DIC:D0>0 S (D,D1)=+Y"
^DD(2040,10,9.6)="X ^DD(2040,10,9.5) S Y(2040,10,302)=$S($D(^DIC(5,D0,0)):^(0),1:""""),Y(2040,10,303)=$S($D(^DIC(5,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(2040,10,302),U,1)"
^DD(2040,10,21,0)="^^1^1^2980312^^^"
^DD(2040,10,21,1,0)="This denotes the county in which the veteran resides."
^DD(2040,10,"DT")="2890413"
^DD(2040,11,0)="VIST COORDINATOR^P200'^VA(200,^7;1^Q"
^DD(2040,11,3)="Enter the name of the VIST Coordinator."
^DD(2040,11,21,0)="^^2^2^2980309^^"
^DD(2040,11,21,1,0)="This is the VIST coordinator responsible for providing the veteran"
^DD(2040,11,21,2,0)="the VIST services."
^DD(2040,11,"DT")="2940426"
^DD(2040,11.5,0)="DATE VETERAN DISCHARGED (AMIS)^2040.07D^^14;0"
^DD(2040,11.5,21,0)="^^2^2^2980312^^^"
^DD(2040,11.5,21,1,0)="This is the date a veteran was discharged from a blind"
^DD(2040,11.5,21,2,0)="rehabilitation program."
^DD(2040,12,0)="*ASSESSMENT^2040.012^^11;0"
^DD(2040,12,21,0)="^^2^2^2980309^"
^DD(2040,12,21,1,0)="This is an outline of the veteran's general functioning within his"
^DD(2040,12,21,2,0)="environment. (freetext)"
^DD(2040,12,"DT")="2930517"
^DD(2040,12.1,0)="FINANCIAL AND BENEFITS INFO^2040.08^^16;0"
^DD(2040,12.1,21,0)="^^1^1^2980309^^"
^DD(2040,12.1,21,1,0)="This indicates the veteran's financial status."
^DD(2040,12.1,"DT")="2980127"
^DD(2040,12.2,0)="PATIENT HISTORY^2040.09^^17;0"
^DD(2040,12.2,21,0)="^^2^2^2980309^"
^DD(2040,12.2,21,1,0)="This provides an outline for the veteran's family, education, military,"
^DD(2040,12.2,21,2,0)="marital and work history. (freetext)"
^DD(2040,12.3,0)="ACTIVITIES^2040.1^^18;0"
^DD(2040,12.3,21,0)="^^2^2^2980309^"
^DD(2040,12.3,21,1,0)="This outlines the veteran's general activities within his environment."
^DD(2040,12.3,21,2,0)="(freetext)"
^DD(2040,12.4,0)="ADJUSTMENT TO BLINDNESS^2040.11^^19;0"
^DD(2040,12.4,21,0)="^^2^2^2980309^"
^DD(2040,12.4,21,1,0)="This summarizes the degree to which the veteran has adjusted to the "
^DD(2040,12.4,21,2,0)="loss of sight. (freetext)"
^DD(2040,12.5,0)="IMPRESSIONS^2040.12^^20;0"
^DD(2040,12.5,21,0)="^^2^2^2980309^"
^DD(2040,12.5,21,1,0)="This outlines observations regarding the veteran's general "
^DD(2040,12.5,21,2,0)="functioning with respect to his/her vision loss. (freetext)"
^DD(2040,13,0)="PLAN^2040.013^^12;0"
^DD(2040,13,21,0)="^^2^2^2980309^"
^DD(2040,13,21,1,0)="This states the proposed action steps to meet the presented needs."
^DD(2040,13,21,2,0)="(freetext)"
^DD(2040,14,0)="INACTIVATION DATE^2040.014DA^^8;0"
^DD(2040,14,21,0)="^^2^2^2980309^^^^"
^DD(2040,14,21,1,0)="The date after which the veteran was no longer carried on the active "
^DD(2040,14,21,2,0)="VIST ROSTER."
^DD(2040,"B","*ASSESSMENT",12)=""
^DD(2040,"B","ACTIVITIES",12.3)=""
^DD(2040,"B","ADJUSTMENT TO BLINDNESS",12.4)=""
^DD(2040,"B","AGE",2.5)=""
^DD(2040,"B","AGE CATEGORY I",8.7)=""
^DD(2040,"B","AGE CATEGORY II",8.9)=""
^DD(2040,"B","COUNTY",10)=""
^DD(2040,"B","DATE OF BIRTH",2.3)=""
^DD(2040,"B","DATE VETERAN DISCHARGED (AMIS)",11.5)=""
^DD(2040,"B","DEPENDENT'S NAME & INFO",2)=""
^DD(2040,"B","ENROLLMENT DATE",.015)=""
^DD(2040,"B","EYE DIAGNOSIS",4.2)=""
^DD(2040,"B","EYE EXAM DATE & VISUAL STATUS",4)=""
^DD(2040,"B","FINANCIAL AND BENEFITS INFO",12.1)=""
^DD(2040,"B","GENERAL HEALTH",5)=""
^DD(2040,"B","IMPRESSIONS",12.5)=""
^DD(2040,"B","INACTIVATION DATE",14)=""
^DD(2040,"B","LIVING ARRANGEMENT",1.2)=""
^DD(2040,"B","MAJOR ACTIVITY (AMIS)",9)=""
^DD(2040,"B","NAME",.01)=""
^DD(2040,"B","NON VIST ELIGIBLE (AMIS)",8)=""
^DD(2040,"B","NUMBER OF DEPENDENTS",1)=""
^DD(2040,"B","PATIENT HISTORY",12.2)=""
^DD(2040,"B","PERIOD OF SERVICE",3.3)=""
^DD(2040,"B","PERIOD OF SERVICE (AMIS)",8.5)=""
^DD(2040,"B","PERIOD OF SERVICE (AMIS) II",8.6)=""
^DD(2040,"B","PLAN",13)=""
^DD(2040,"B","REFERRAL SOURCE",.5)=""
^DD(2040,"B","SPOUSE'S NAME",1.5)=""
^DD(2040,"B","VA ENTITLEMENT (AMIS)",3.5)=""
^DD(2040,"B","VIS TEAM REVIEW DATE",6)=""
^DD(2040,"B","VIST COORDINATOR",11)=""
^DD(2040,"B","VIST ELIGIBILITY",3)=""
^DD(2040,"B","VIST ELIGIBLE (AMIS)",7)=""
^DD(2040,"B","VIST FIELD VISIT DATE (AMIS)",6.5)=""
^DD(2040,"B","VISUAL ACTIVITY (AMIS)",4.5)=""
^DD(2040,"GL",0,1,.01)=""
^DD(2040,"GL",0,2,1)=""
^DD(2040,"GL",1,0,2)=""
^DD(2040,"GL",2,1,3)=""
^DD(2040,"GL",3,0,4)=""
^DD(2040,"GL",4,0,5)=""
^DD(2040,"GL",5,1,3.5)=""
^DD(2040,"GL",6,0,6)=""
^DD(2040,"GL",7,1,11)=""
^DD(2040,"GL",7,2,8)=""
^DD(2040,"GL",7,3,4.5)=""
^DD(2040,"GL",7,4,9)=""
^DD(2040,"GL",7,5,1.2)=""
^DD(2040,"GL",7,6,.015)=""
^DD(2040,"GL",8,0,14)=""
^DD(2040,"GL",9,1,.5)=""
^DD(2040,"GL",10,0,6.5)=""
^DD(2040,"GL",11,0,12)=""
^DD(2040,"GL",12,0,13)=""
^DD(2040,"GL",13,1,1.5)=""
^DD(2040,"GL",13,2,7)=""
^DD(2040,"GL",14,0,11.5)=""
^DD(2040,"GL",15,0,4.2)=""
^DD(2040,"GL",16,0,12.1)=""
^DD(2040,"GL",17,0,12.2)=""
^DD(2040,"GL",18,0,12.3)=""
^DD(2040,"GL",19,0,12.4)=""
^DD(2040,"GL",20,0,12.5)=""
^DD(2040,"IX",.01)=""
^DD(2040,"RQ",.01)=""
^DD(2040,"RQ",4.5)=""
^DD(2040,"RQ",7)=""
^DD(2040,"RQ",9)=""
^DD(2040,"SB",2040.01,4.2)=""
^DD(2040,"SB",2040.012,12)=""
^DD(2040,"SB",2040.013,13)=""
^DD(2040,"SB",2040.014,14)=""
^DD(2040,"SB",2040.02,2)=""
^DD(2040,"SB",2040.03,6.5)=""
^DD(2040,"SB",2040.04,4)=""
^DD(2040,"SB",2040.05,5)=""
^DD(2040,"SB",2040.06,6)=""
^DD(2040,"SB",2040.07,11.5)=""
^DD(2040,"SB",2040.08,12.1)=""
^DD(2040,"SB",2040.09,12.2)=""
^DD(2040,"SB",2040.1,12.3)=""
^DD(2040,"SB",2040.11,12.4)=""
^DD(2040,"SB",2040.12,12.5)=""
^DD(2040.01,0)="EYE DIAGNOSIS SUB-FIELD^^.01^1"
^DD(2040.01,0,"DT")="2980211"
^DD(2040.01,0,"IX","B",2040.01,.01)=""
^DD(2040.01,0,"NM","EYE DIAGNOSIS")=""
^DD(2040.01,0,"UP")="2040"
^DD(2040.01,.01,0)="EYE DIAGNOSIS^MP2041.5^ANRV(2041.5,^0;1^Q"
^DD(2040.01,.01,1,0)="^.1"
^DD(2040.01,.01,1,1,0)="2040.01^B"
^DD(2040.01,.01,1,1,1)="S ^ANRV(2040,DA(1),15,""B"",$E(X,1,30),DA)="""""
^DD(2040.01,.01,1,1,2)="K ^ANRV(2040,DA(1),15,""B"",$E(X,1,30),DA)"
^DD(2040.01,.01,3)="Enter Eye Diagnosis."
^DD(2040.01,.01,21,0)="^^1^1^2980312^^"
^DD(2040.01,.01,21,1,0)="This states the diagnosis of the cause of the veteran's visual loss."
^DD(2040.01,.01,"DT")="2980211"
^DD(2040.01,"B","EYE DIAGNOSIS",.01)=""
^DD(2040.01,"GL",0,1,.01)=""
^DD(2040.01,"IX",.01)=""
^DD(2040.012,0)="*ASSESSMENT SUB-FIELD^^.01^1"
^DD(2040.012,0,"NM","*ASSESSMENT")=""
^DD(2040.012,0,"UP")="2040"
^DD(2040.012,.01,0)="ASSESSMENT^W^^0;1^Q"
^DD(2040.012,.01,3)="Enter your assessment of the veteran's current level of functioning."
^DD(2040.012,.01,21,0)="^^2^2^2980309^"
^DD(2040.012,.01,21,1,0)="This is an outline of the veteran's general functioning within his"
^DD(2040.012,.01,21,2,0)="environment. (freetext)"
^DD(2040.012,.01,"DT")="2890307"
^DD(2040.012,"B","ASSESSMENT",.01)=""
^DD(2040.012,"GL",0,1,.01)=""
^DD(2040.013,0)="PLAN SUB-FIELD^^.01^1"
^DD(2040.013,0,"NM","PLAN")=""
^DD(2040.013,0,"UP")="2040"
^DD(2040.013,.01,0)="PLAN^W^^0;1^Q"
^DD(2040.013,.01,3)="Enter your plan."
^DD(2040.013,.01,21,0)="^^2^2^2980309^"
^DD(2040.013,.01,21,1,0)="This states the proposed action steps to meet the presented needs."
^DD(2040.013,.01,21,2,0)="(freetext)"
^DD(2040.013,.01,"DT")="2890307"
^DD(2040.013,"B","PLAN",.01)=""
^DD(2040.013,"GL",0,1,.01)=""
^DD(2040.014,0)="INACTIVATION DATE SUB-FIELD^^1^2"
^DD(2040.014,0,"NM","INACTIVATION DATE")=""
^DD(2040.014,0,"UP")="2040"
^DD(2040.014,.01,0)="INACTIVATION DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2040.014,.01,3)="Enter date when placed on inactive roster."
^DD(2040.014,.01,21,0)="^^2^2^2980309^^^^"
^DD(2040.014,.01,21,1,0)="The date after which the veteran was no longer carried on the active "
^DD(2040.014,.01,21,2,0)="VIST ROSTER."
^DD(2040.014,.01,"DT")="2890523"
^DD(2040.014,1,0)="REASON^RS^1:DECEASED;2:RELOCATED;3:NOT LEGALLY BLIND;^0;2^Q"
^DD(2040.014,1,3)="Enter the reason that this veteran was inactivated."
^DD(2040.014,1,21,0)="^^1^1^2980309^^^"
^DD(2040.014,1,21,1,0)="This is the reason why the veteran was inactivated from the VIST Roster."
^DD(2040.014,1,"DT")="2890523"
^DD(2040.014,"B","INACTIVATION DATE",.01)=""
^DD(2040.014,"B","REASON",1)=""
^DD(2040.014,"GL",0,1,.01)=""
^DD(2040.014,"GL",0,2,1)=""
^DD(2040.014,"RQ",1)=""
^DD(2040.02,0)="DEPENDENT'S NAME & INFO SUB-FIELD^^.01^1"
^DD(2040.02,0,"IX","B",2040.02,.01)=""
^DD(2040.02,0,"NM","DEPENDENT'S NAME & INFO")=""
^DD(2040.02,0,"UP")="2040"
^DD(2040.02,.01,0)="NAME OF DEPENDENT & INFO^MF^^0;1^K:$L(X)>80!($L(X)<3) X"
^DD(2040.02,.01,1,0)="^.1"
^DD(2040.02,.01,1,1,0)="2040.02^B"
^DD(2040.02,.01,1,1,1)="S ^ANRV(2040,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2040.02,.01,1,1,2)="K ^ANRV(2040,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2040.02,.01,3)="Enter name of dependents and pertinent information. (3-80 characters in length)"
^DD(2040.02,.01,21,0)="^^2^2^2980312^^^"
^DD(2040.02,.01,21,1,0)="These are the names of the veteran's dependents.  You can"
^DD(2040.02,.01,21,2,0)="also include other information, i.e. phone numbers, etc."
^DD(2040.02,.01,"DT")="2890502"
^DD(2040.02,"B","NAME OF DEPENDENT & INFO",.01)=""
^DD(2040.02,"GL",0,1,.01)=""
^DD(2040.02,"IX",.01)=""
^DD(2040.03,0)="VIST FIELD VISIT DATE (AMIS) SUB-FIELD^^.01^1"
^DD(2040.03,0,"NM","VIST FIELD VISIT DATE (AMIS)")=""
^DD(2040.03,0,"UP")="2040"
^DD(2040.03,.01,0)="VIST FIELD VISIT DATE (AMIS)^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2040.03,.01,1,0)="^.1"
^DD(2040.03,.01,1,1,0)="2040^AC"
^DD(2040.03,.01,1,1,1)="S ^ANRV(2040,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(2040.03,.01,1,1,2)="K ^ANRV(2040,""AC"",$E(X,1,30),DA(1),DA)"
^DD(2040.03,.01,3)="Enter date of VIST Field Visit."
^DD(2040.03,.01,21,0)="^^1^1^2980312^^^"
^DD(2040.03,.01,21,1,0)="This is the date of the most recent field or home visit to the veteran."
^DD(2040.03,.01,"DT")="2890518"
^DD(2040.03,"B","VIST FIELD VISIT DATE (AMIS)",.01)=""
^DD(2040.03,"GL",0,1,.01)=""
^DD(2040.03,"IX",.01)=""
^DD(2040.04,0)="EYE EXAM DATE & VISUAL STATUS SUB-FIELD^^5^6"
^DD(2040.04,0,"NM","EYE EXAM DATE & VISUAL STATUS")=""
^DD(2040.04,0,"UP")="2040"
^DD(2040.04,.01,0)="EYE EXAM DATE^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2040.04,.01,3)="Enter the date of the last eye exam."
^DD(2040.04,.01,21,0)="^^2^2^2980312^^^"
^DD(2040.04,.01,21,1,0)="This is the date of the eye examination and the determination of legal"
^DD(2040.04,.01,21,2,0)="blindness, low vision, or normal sight."
^DD(2040.04,1,0)="EYE DIAGNOSIS NARRATIVE^F^^0;2^K:$L(X)>80!($L(X)<3) X"
^DD(2040.04,1,3)="Enter a free text narrative, 3-80 characters in length."
^DD(2040.04,1,21,0)="^^1^1^2980312^^^^"
^DD(2040.04,1,21,1,0)="This is a free text narrative of the eye exam conducted on this date."
^DD(2040.04,1,"DT")="2930523"
^DD(2040.04,2,0)="VISUAL ACUITY RIGHT EYE^F^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(2040.04,2,3)="Enter the visual acuity for the veteran's right eye (free text 1-25 characters)."
^DD(2040.04,2,21,0)="^^1^1^2980317^"
^DD(2040.04,2,21,1,0)="This is the visual acuity of the veteran's right eye."
^DD(2040.04,2,"DT")="2890502"
^DD(2040.04,3,0)="VISUAL ACUITY LEFT EYE^F^^0;4^K:$L(X)>25!($L(X)<1) X"
^DD(2040.04,3,3)="Enter the visual acuity for the veteran's left eye (free text 1-25 characters)."
^DD(2040.04,3,21,0)="^^1^1^2980515^^"
^DD(2040.04,3,21,1,0)="This is the visual acuity of the veteran's left eye."
^DD(2040.04,3,"DT")="2890502"
^DD(2040.04,4,0)="VISUAL FIELD RIGHT EYE^F^^0;5^K:$L(X)>25!($L(X)<1) X"
^DD(2040.04,4,3)="Enter the visual field for the veteran's right eye (free text 1-25 characters)."
^DD(2040.04,4,21,0)="^^1^1^2980317^"
^DD(2040.04,4,21,1,0)="This is the visual field for the veteran's right eye."
^DD(2040.04,4,"DT")="2890502"
^DD(2040.04,5,0)="VISUAL FIELD LEFT EYE^F^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(2040.04,5,3)="Enter the visual field for the veteran's left eye (free text 1-25 characters)."
^DD(2040.04,5,21,0)="^^1^1^2980317^"
^DD(2040.04,5,21,1,0)="This is the visual field for the veteran's left eye."
^DD(2040.04,5,"DT")="2890502"
^DD(2040.04,"B","EYE DIAGNOSIS NARRATIVE",1)=""
^DD(2040.04,"B","EYE EXAM DATE",.01)=""
^DD(2040.04,"B","VISUAL ACUITY LEFT EYE",3)=""
^DD(2040.04,"B","VISUAL ACUITY RIGHT EYE",2)=""
^DD(2040.04,"B","VISUAL FIELD LEFT EYE",5)=""
^DD(2040.04,"B","VISUAL FIELD RIGHT EYE",4)=""
^DD(2040.04,"GL",0,1,.01)=""
^DD(2040.04,"GL",0,2,1)=""
^DD(2040.04,"GL",0,3,2)=""
^DD(2040.04,"GL",0,4,3)=""
^DD(2040.04,"GL",0,5,4)=""
^DD(2040.04,"GL",0,6,5)=""
^DD(2040.05,0)="GENERAL HEALTH SUB-FIELD^^.01^1"
^DD(2040.05,0,"NM","GENERAL HEALTH")=""
^DD(2040.05,0,"UP")="2040"
^DD(2040.05,.01,0)="GENERAL HEALTH^W^^0;1^Q"
^DD(2040.05,.01,3)="Enter narrative description of the veteran's current health."
^DD(2040.05,.01,21,0)="^^1^1^2980312^^^"
^DD(2040.05,.01,21,1,0)="This narrative provides a summary of the veteran's general health."
^DD(2040.05,.01,"DT")="2890307"
^DD(2040.05,"B","GENERAL HEALTH",.01)=""
^DD(2040.05,"GL",0,1,.01)=""
^DD(2040.06,0)="VIS TEAM REVIEW DATE SUB-FIELD^^3^4"
^DD(2040.06,0,"DT")="2980320"
^DD(2040.06,0,"NM","VIS TEAM REVIEW DATE")=""
^DD(2040.06,0,"UP")="2040"
^DD(2040.06,.01,0)="VIS TEAM REVIEW DATE^MDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2040.06,.01,1,0)="^.1"
^DD(2040.06,.01,1,1,0)="2040^AB"
^DD(2040.06,.01,1,1,1)="S ^ANRV(2040,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(2040.06,.01,1,1,2)="K ^ANRV(2040,""AB"",$E(X,1,30),DA(1),DA)"
^DD(2040.06,.01,1,1,"%D",0)="^^9^9^2980212^^"
^DD(2040.06,.01,1,1,"%D",1,0)="This is a regular cross reference on the VIS TEAM REVIEW DATE field."
^DD(2040.06,.01,1,1,"%D",2,0)="It sets the ""AB"" cross reference in the following format;"
^DD(2040.06,.01,1,1,"%D",3,0)=" "
^DD(2040.06,.01,1,1,"%D",4,0)="  ^ANRV(2040,""AB"",2980204,4,1)="""""
^DD(2040.06,.01,1,1,"%D",5,0)=" "
^DD(2040.06,.01,1,1,"%D",6,0)="   20980204 - VIS TEAM REVIEW DATE"
^DD(2040.06,.01,1,1,"%D",7,0)="   4        - Internal Entry # of the Patient in the VIST ROSTER file"
^DD(2040.06,.01,1,1,"%D",8,0)="   1        - Internal Entry # of the VIS TEAM REVIEW DATE multiple"
^DD(2040.06,.01,1,1,"%D",9,0)=" "
^DD(2040.06,.01,1,2,0)="^^TRIGGER^2040.06^3"
^DD(2040.06,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ANRV(2040,D0,6,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(2040.06,.01,1,2,1.1) X ^DD(2040.06,.01,1,2,1.4)"
^DD(2040.06,.01,1,2,1.1)="S X=DIV S Y(1)=$S($D(^ANRV(2040,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1)"
^DD(2040.06,.01,1,2,1.4)="S DIH=$S($D(^ANRV(2040,DIV(0),6,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=2040.06,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2040.06,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ANRV(2040,D0,6,D1,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(2040.06,.01,1,2,2.4)"
^DD(2040.06,.01,1,2,2.4)="S DIH=$S($D(^ANRV(2040,DIV(0),6,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=2040.06,DIG=3 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(2040.06,.01,1,2,"CREATE VALUE")="VA ELIGIBILITY"
^DD(2040.06,.01,1,2,"DELETE VALUE")="@"
^DD(2040.06,.01,1,2,"FIELD")="ELIGIBILITY ON REVIEW DATE"
^DD(2040.06,.01,3)="Enter date of VIST Review."
^DD(2040.06,.01,21,0)="^^1^1^2980312^^^"
^DD(2040.06,.01,21,1,0)="This is the date of the most recent VIST Review."
^DD(2040.06,.01,"DT")="2980220"
^DD(2040.06,1,0)="AMIS-STATUS OF REVIEW^S^035:COMPLETE (035);036:DECLINED (036);037:NO SHOW (037);^0;2^Q"
^DD(2040.06,1,3)="Enter the AMIS status at the time of review."
^DD(2040.06,1,21,0)="^^1^1^2980312^^^"
^DD(2040.06,1,21,1,0)="This is the AMIS status on the date of review."
^DD(2040.06,1,"DT")="2890329"
^DD(2040.06,2,0)="TYPE OF REVIEW^S^1:FORMAL;2:COMPONENT;^0;3^Q"
^DD(2040.06,2,3)="Enter the type of review."
^DD(2040.06,2,21,0)="^^2^2^2980312^^"
^DD(2040.06,2,21,1,0)="This determines the type of review. Possible choices are ""FORMAL"" and"
^DD(2040.06,2,21,2,0)="""COMPONENT""."
^DD(2040.06,2,"DT")="2890504"
^DD(2040.06,3,0)="ELIGIBILITY ON REVIEW DATE^F^^0;4^K:$L(X)>80!($L(X)<3) X"
^DD(2040.06,3,3)="Answer must be 3-80 characters in length."
^DD(2040.06,3,5,1,0)="2040.06^.01^2"
^DD(2040.06,3,21,0)="^^1^1^2980320^^^^"
^DD(2040.06,3,21,1,0)="This is the veteran's eligibility status on the date of this review."
^DD(2040.06,3,"DT")="2980320"
^DD(2040.06,"B","AMIS-STATUS OF REVIEW",1)=""
^DD(2040.06,"B","ELIGIBILITY ON REVIEW DATE",3)=""
^DD(2040.06,"B","TYPE OF REVIEW",2)=""
^DD(2040.06,"B","VIS TEAM REVIEW DATE",.01)=""
^DD(2040.06,"GL",0,1,.01)=""
^DD(2040.06,"GL",0,2,1)=""
^DD(2040.06,"GL",0,3,2)=""
^DD(2040.06,"GL",0,4,3)=""
^DD(2040.06,"IX",.01)=""
^DD(2040.07,0)="DATE VETERAN DISCHARGED (AMIS) SUB-FIELD^^.01^1"
^DD(2040.07,0,"NM","DATE VETERAN DISCHARGED (AMIS)")=""
^DD(2040.07,0,"UP")="2040"
^DD(2040.07,.01,0)="DATE VETERAN DISCHARGED (AMIS)^D^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2040.07,.01,3)="Enter the date that the veteran was discharged from Blind Rehabilitation."
^DD(2040.07,.01,21,0)="^^2^2^2980312^^^"
^DD(2040.07,.01,21,1,0)="This is the date a veteran was discharged from a blind"
^DD(2040.07,.01,21,2,0)="rehabilitation program."
^DD(2040.07,.01,"DT")="2890324"
^DD(2040.07,"B","DATE VETERAN DISCHARGED (AMIS)",.01)=""
^DD(2040.07,"GL",0,1,.01)=""
^DD(2040.08,0)="FINANCIAL AND BENEFITS INFO SUB-FIELD^^.01^1"
^DD(2040.08,0,"NM","FINANCIAL AND BENEFITS INFO")=""
^DD(2040.08,0,"UP")="2040"
^DD(2040.08,.01,0)="FINANCIAL AND BENEFITS INFO^W^^0;1^Q"
^DD(2040.08,.01,3)="Enter current financial and benefits information for the veteran."
^DD(2040.08,.01,21,0)="^^1^1^2980309^^^"
^DD(2040.08,.01,21,1,0)="This indicates the veteran's financial status."
^DD(2040.08,.01,"DT")="2980127"
^DD(2040.08,"B","FINANCIAL AND BENEFITS INFO",.01)=""
^DD(2040.08,"GL",0,1,.01)=""
^DD(2040.09,0)="PATIENT HISTORY SUB-FIELD^^.01^1"
^DD(2040.09,0,"NM","PATIENT HISTORY")=""
^DD(2040.09,0,"UP")="2040"
^DD(2040.09,.01,0)="PATIENT HISTORY^W^^0;1^Q"
^DD(2040.09,.01,3)="Enter patient history."
^DD(2040.09,.01,21,0)="^^2^2^2980309^"
^DD(2040.09,.01,21,1,0)="This provides an outline for the veteran's family, education, military,"
^DD(2040.09,.01,21,2,0)="marital and work history. (freetext)"
^DD(2040.09,.01,"DT")="2930817"
^DD(2040.09,"B","PATIENT HISTORY",.01)=""
^DD(2040.09,"GL",0,1,.01)=""
^DD(2040.1,0)="ACTIVITIES SUB-FIELD^^.01^1"
^DD(2040.1,0,"NM","ACTIVITIES")=""
^DD(2040.1,0,"UP")="2040"
^DD(2040.1,.01,0)="ACTIVITIES^W^^0;1^Q"
^DD(2040.1,.01,3)="Enter veteran's current activities."
^DD(2040.1,.01,21,0)="^^2^2^2980309^"
^DD(2040.1,.01,21,1,0)="This outlines the veteran's general activities within his environment."
^DD(2040.1,.01,21,2,0)="(freetext)"
^DD(2040.1,.01,"DT")="2930517"
^DD(2040.1,"B","ACTIVITIES",.01)=""
^DD(2040.1,"GL",0,1,.01)=""
^DD(2040.11,0)="ADJUSTMENT TO BLINDNESS SUB-FIELD^^.01^1"
^DD(2040.11,0,"NM","ADJUSTMENT TO BLINDNESS")=""
^DD(2040.11,0,"UP")="2040"
^DD(2040.11,.01,0)="ADJUSTMENT TO BLINDNESS^W^^0;1^Q"
^DD(2040.11,.01,3)="Enter your assessment of the veteran's adjustment to blindness."
^DD(2040.11,.01,21,0)="^^2^2^2980309^"
^DD(2040.11,.01,21,1,0)="This summarizes the degree to which the veteran has adjusted to the"
^DD(2040.11,.01,21,2,0)="loss of sight. (freetext)"
^DD(2040.11,.01,"DT")="2930517"
^DD(2040.11,"B","ADJUSTMENT TO BLINDNESS",.01)=""
^DD(2040.11,"GL",0,1,.01)=""
^DD(2040.12,0)="IMPRESSIONS SUB-FIELD^^.01^1"
^DD(2040.12,0,"NM","IMPRESSIONS")=""
^DD(2040.12,0,"UP")="2040"
^DD(2040.12,.01,0)="IMPRESSIONS^W^^0;1^Q"
^DD(2040.12,.01,3)="Enter your assessment of the veteran's overall abilities and needs."
^DD(2040.12,.01,21,0)="^^2^2^2980309^"
^DD(2040.12,.01,21,1,0)="This outlines observations regarding the veteran's general"
^DD(2040.12,.01,21,2,0)="functioning with respect to his/her vision loss. (freetext)"
^DD(2040.12,.01,"DT")="2930517"
^DD(2040.12,"B","IMPRESSIONS",.01)=""
^DD(2040.12,"GL",0,1,.01)=""
^DD(2041,0)="FIELD^^.05^5"
^DD(2041,0,"DDA")="N"
^DD(2041,0,"IX","B",2041,.01)=""
^DD(2041,0,"NM","VIST PARAMETERS")=""
^DD(2041,0,"VR")="4.0"
^DD(2041,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2041,.01,0)="SITE NAME^RP4'X^DIC(4,^0;1^"
^DD(2041,.01,1,0)="^.1"
^DD(2041,.01,1,1,0)="2041^B"
^DD(2041,.01,1,1,1)="S ^ANRV(2041,""B"",$E(X,1,30),DA)="""""
^DD(2041,.01,1,1,2)="K ^ANRV(2041,""B"",$E(X,1,30),DA)"
^DD(2041,.01,3)="Enter location where VIST services are provided to veteran."
^DD(2041,.01,21,0)="^^2^2^2980309^^^^"
^DD(2041,.01,21,1,0)="The site name is a pointer to the institution file (#4).  Only"
^DD(2041,.01,21,2,0)="one site may be entered into this file."
^DD(2041,.01,"DT")="2980204"
^DD(2041,.02,0)="VIST COORDINATOR^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(2041,.02,3)="Answer must be 3-40 characters in length."
^DD(2041,.02,21,0)="^^4^4^2980515^^^^"
^DD(2041,.02,21,1,0)="     The VIST coordinator's name should be entered as you want it to"
^DD(2041,.02,21,2,0)="look on the VIST Patient Record.  It should include any title or"
^DD(2041,.02,21,3,0)="other information you wish to see as a part of the name."
^DD(2041,.02,21,4,0)="     For example: John Q Smith, Ph.D."
^DD(2041,.03,0)="ROUTING SYMBOL OR PHONE^F^^0;3^K:$L(X)>8!($L(X)<2) X"
^DD(2041,.03,3)="Answer must be 2-8 characters in length."
^DD(2041,.03,21,0)="^^9^9^2980515^^^^"
^DD(2041,.03,21,1,0)="     This field contains the telephone extension and/or routing symbol,"
^DD(2041,.03,21,2,0)="whichever you prefer, that will be printed on the VIST Veteran Record"
^DD(2041,.03,21,3,0)="directly under the name of the VIST coordinator."
^DD(2041,.03,21,4,0)=" "
^DD(2041,.03,21,5,0)="     If the field (ROUTING SYMBOL OR PHONE) contains X2598 then the"
^DD(2041,.03,21,6,0)="following will print on the veteran record:"
^DD(2041,.03,21,7,0)=" "
^DD(2041,.03,21,8,0)="     John Q Smith, Ph.D."
^DD(2041,.03,21,9,0)="     VIST Coordinator - X2598"
^DD(2041,.03,"DT")="2901114"
^DD(2041,.04,0)="DEFAULT REGIONAL OFFICE^P4'^DIC(4,^0;4^Q"
^DD(2041,.04,3)="Enter VARO which serves the majority of veterans in your area."
^DD(2041,.04,21,0)="^^4^4^2980309^^^^"
^DD(2041,.04,21,1,0)="     When you enter VARO claims, you will be asked which regional"
^DD(2041,.04,21,2,0)="office the claim was submitted to.  Enter the name of the regional"
^DD(2041,.04,21,3,0)="office you use most often in this field and it will appear as the"
^DD(2041,.04,21,4,0)="default whenever you enter VARO claims."
^DD(2041,.04,"DT")="2931025"
^DD(2041,.05,0)="EMAIL AMIS REPORT TO^RF^^0;5^K:$L(X)>100!($L(X)<1) X"
^DD(2041,.05,3)="Answer must be 1-100 characters in length."
^DD(2041,.05,21,0)="^^2^2^2990407^^^"
^DD(2041,.05,21,1,0)="This field is used to enter the distribution list for transmitting"
^DD(2041,.05,21,2,0)="the AMIS report to the program office."
^DD(2041,.05,"DT")="2990304"
^DD(2041,"B","DEFAULT REGIONAL OFFICE",.04)=""
^DD(2041,"B","EMAIL AMIS REPORT TO",.05)=""
^DD(2041,"B","ROUTING SYMBOL OR PHONE",.03)=""
^DD(2041,"B","SITE NAME",.01)=""
^DD(2041,"B","VIST COORDINATOR",.02)=""
^DD(2041,"GL",0,1,.01)=""
^DD(2041,"GL",0,2,.02)=""
^DD(2041,"GL",0,3,.03)=""
^DD(2041,"GL",0,4,.04)=""
^DD(2041,"GL",0,5,.05)=""
^DD(2041,"IX",.01)=""
^DD(2041,"RQ",.01)=""
^DD(2041,"RQ",.05)=""
^DD(2041.5,0)="FIELD^^.01^1"
^DD(2041.5,0,"DDA")="N"
^DD(2041.5,0,"IX","B",2041.5,.01)=""
^DD(2041.5,0,"NM","VIST EYE DIAGNOSIS")=""
^DD(2041.5,0,"PT",2040.01,.01)=""
^DD(2041.5,0,"VR")="4.0"
^DD(2041.5,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2041.5,.01,0)="EYE DIAGNOSIS^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2041.5,.01,1,0)="^.1"
^DD(2041.5,.01,1,1,0)="2041.5^B"
^DD(2041.5,.01,1,1,1)="S ^ANRV(2041.5,""B"",$E(X,1,30),DA)="""""
^DD(2041.5,.01,1,1,2)="K ^ANRV(2041.5,""B"",$E(X,1,30),DA)"
^DD(2041.5,.01,3)="Answer must be 3-30 characters in length."
^DD(2041.5,.01,21,0)="^^3^3^2980309^"
^DD(2041.5,.01,21,1,0)="This is the field citing the veteran's visual diagnosis.  You can choose"
^DD(2041.5,.01,21,2,0)="from a list of common diagnoses or type in a specific diagnosis or choose"
^DD(2041.5,.01,21,3,0)="""other""."
^DD(2041.5,.01,"DT")="2930517"
^DD(2041.5,"B","EYE DIAGNOSIS",.01)=""
^DD(2041.5,"GL",0,1,.01)=""
^DD(2041.5,"IX",.01)=""
^DD(2041.5,"RQ",.01)=""
^DD(2041.6,0)="FIELD^^.01^1"
^DD(2041.6,0,"DDA")="N"
^DD(2041.6,0,"IX","B",2041.6,.01)=""
^DD(2041.6,0,"NM","VIST CHECKLIST OPTIONS")=""
^DD(2041.6,0,"PT",2041.7,1)=""
^DD(2041.6,0,"PT",2041.7,2)=""
^DD(2041.6,0,"PT",2041.7,3)=""
^DD(2041.6,0,"PT",2041.7,4)=""
^DD(2041.6,0,"PT",2041.7,5)=""
^DD(2041.6,0,"PT",2041.7,6)=""
^DD(2041.6,0,"PT",2041.7,7)=""
^DD(2041.6,0,"PT",2041.7,8)=""
^DD(2041.6,0,"PT",2041.7,9)=""
^DD(2041.6,0,"PT",2041.7,10)=""
^DD(2041.6,0,"PT",2041.7,11)=""
^DD(2041.6,0,"PT",2041.7,12)=""
^DD(2041.6,0,"PT",2041.7,13)=""
^DD(2041.6,0,"PT",2041.7,14)=""
^DD(2041.6,0,"PT",2041.7,15)=""
^DD(2041.6,0,"PT",2041.7,16)=""
^DD(2041.6,0,"PT",2041.7,17)=""
^DD(2041.6,0,"PT",2041.7,18)=""
^DD(2041.6,0,"PT",2041.7,19)=""
^DD(2041.6,0,"PT",2041.7,20)=""
^DD(2041.6,0,"PT",2041.7,21)=""
^DD(2041.6,0,"PT",2041.7,22)=""
^DD(2041.6,0,"PT",2041.7,23)=""
^DD(2041.6,0,"PT",2041.7,24)=""
^DD(2041.6,0,"PT",2041.7,25)=""
^DD(2041.6,0,"PT",2041.7,26)=""
^DD(2041.6,0,"PT",2041.7,27)=""
^DD(2041.6,0,"PT",2041.7,28)=""
^DD(2041.6,0,"PT",2041.7,29)=""
^DD(2041.6,0,"PT",2041.7,30)=""
^DD(2041.6,0,"PT",2041.7,31)=""
^DD(2041.6,0,"PT",2041.732,1)=""
^DD(2041.6,0,"VR")="4.0"
^DD(2041.6,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2041.6,.01,0)="CHECKLIST NAME^F^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(2041.6,.01,1,0)="^.1"
^DD(2041.6,.01,1,1,0)="2041.6^B"
^DD(2041.6,.01,1,1,1)="S ^ANRV(2041.6,""B"",$E(X,1,30),DA)="""""
^DD(2041.6,.01,1,1,2)="K ^ANRV(2041.6,""B"",$E(X,1,30),DA)"
^DD(2041.6,.01,3)="Answer must be 1-15 characters in length."
^DD(2041.6,.01,21,0)="^^3^3^2980309^"
^DD(2041.6,.01,21,1,0)="Enter the text you wish to choose from as an answer to the fields in"
^DD(2041.6,.01,21,2,0)="the VIST BENEFITS AND SERVICES CHECKLIST file.  These fields include"
^DD(2041.6,.01,21,3,0)="BLIND REHAB. TRAINING, CHAMPUS, CHAMPVA, CLOTHING ALLOWANCE, ect."
^DD(2041.6,.01,"DT")="2930518"
^DD(2041.6,"B","CHECKLIST NAME",.01)=""
^DD(2041.6,"GL",0,1,.01)=""
^DD(2041.6,"IX",.01)=""
^DD(2041.7,0)="FIELD^^32^33"
^DD(2041.7,0,"DDA")="N"
^DD(2041.7,0,"DT")="2980211"
^DD(2041.7,0,"IX","B",2041.7,.01)=""
^DD(2041.7,0,"NM","VIST BENEFITS AND SERVICES CHECKLIST")=""
^DD(2041.7,0,"VR")="4.0"
^DD(2041.7,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2041.7,.01,0)="NAME^RP2040'^ANRV(2040,^0;1^Q"
^DD(2041.7,.01,1,0)="^.1"
^DD(2041.7,.01,1,1,0)="2041.7^B"
^DD(2041.7,.01,1,1,1)="S ^ANRV(2041.7,""B"",$E(X,1,30),DA)="""""
^DD(2041.7,.01,1,1,2)="K ^ANRV(2041.7,""B"",$E(X,1,30),DA)"
^DD(2041.7,.01,3)="Enter the veteran's name."
^DD(2041.7,.01,21,0)="^^1^1^2980309^"
^DD(2041.7,.01,21,1,0)="Enter veteran's name.  It must be in the main VIST roster."
^DD(2041.7,.01,"DT")="2980211"
^DD(2041.7,1,0)="AUTO GRANT^RP2041.6'^ANRV(2041.6,^0;2^Q"
^DD(2041.7,1,3)="Enter whether or not the veteran has used or is eligible for the Auto Grant."
^DD(2041.7,1,21,0)="^^2^2^2980309^"
^DD(2041.7,1,21,1,0)="This field denotes whether the veteran has exercised his/her right to an"
^DD(2041.7,1,21,2,0)="Auto Grant."
^DD(2041.7,1,"DT")="2980211"
^DD(2041.7,2,0)="BLIND REHAB. TRAINING^RP2041.6'^ANRV(2041.6,^0;3^Q"
^DD(2041.7,2,3)="Enter whether or not the veteran has applied for blind rehab training."
^DD(2041.7,2,21,0)="^^3^3^2980309^"
^DD(2041.7,2,21,1,0)="This field allows you to note whether the veteran has attended or declined"
^DD(2041.7,2,21,2,0)="blind rehabilitation services.  You may also indicated if the veteran has"
^DD(2041.7,2,21,3,0)="a pending application for blind rehab."
^DD(2041.7,2,"DT")="2980211"
^DD(2041.7,3,0)="CHAMPUS^RP2041.6'^ANRV(2041.6,^0;4^Q"
^DD(2041.7,3,3)="Enter if veteran/family is eligible for CHAMPUS."
^DD(2041.7,3,21,0)="^^2^2^2980312^^"
^DD(2041.7,3,21,1,0)="This field allows you to indicate if the veteran/family is eligible for"
^DD(2041.7,3,21,2,0)="CHAMPUS. You may also indicate if an application is pending for CHAMPUS."
^DD(2041.7,3,"DT")="2980211"
^DD(2041.7,4,0)="CHAMPVA^RP2041.6'^ANRV(2041.6,^0;5^Q"
^DD(2041.7,4,3)="Enter if veteran/family is eligible for CHAMPVA."
^DD(2041.7,4,21,0)="^^2^2^2980309^"
^DD(2041.7,4,21,1,0)="This field allows you to indicate if the veteran/family is eligible for"
^DD(2041.7,4,21,2,0)="CHAMPVA.  You can also indicate if an application is pending for CHAMPVA."
^DD(2041.7,4,"DT")="2980211"
^DD(2041.7,5,0)="CLOTHING ALLOWANCE^RP2041.6'^ANRV(2041.6,^0;6^Q"
^DD(2041.7,5,3)="Enter if veteran is eligible for clothing allowance."
^DD(2041.7,5,21,0)="^^3^3^2980309^"
^DD(2041.7,5,21,1,0)="This field allows you to indicate if the veteran is eligible for the"
^DD(2041.7,5,21,2,0)="clothing allowance.  You can also indicate if an application for the"
^DD(2041.7,5,21,3,0)="clothing allowance is pending approval by PSAS."
^DD(2041.7,5,"DT")="2980211"
^DD(2041.7,6,0)="EDUCATION - VA^RP2041.6'^ANRV(2041.6,^0;7^Q"
^DD(2041.7,6,3)="Enter if veteran has taken advantage of VA Education benefits."
^DD(2041.7,6,21,0)="^^3^3^2980309^"
^DD(2041.7,6,21,1,0)="This field allows you to indicate if the veteran/family have taken"
^DD(2041.7,6,21,2,0)="advantage of the Education benefit.  You may also note if an application"
^DD(2041.7,6,21,3,0)="is pending."
^DD(2041.7,6,"DT")="2980211"
^DD(2041.7,7,0)="FEE BASIS^RP2041.6'^ANRV(2041.6,^0;8^Q"
^DD(2041.7,7,3)="Enter if veteran is using VA Fee Basis services."
^DD(2041.7,7,21,0)="^^2^2^2980309^"
^DD(2041.7,7,21,1,0)="This field will indicate a veteran's eligibility for and status with Fee"
^DD(2041.7,7,21,2,0)="Basis services. "
^DD(2041.7,7,"DT")="2980211"
^DD(2041.7,8,0)="HISA^RP2041.6'^ANRV(2041.6,^0;9^Q"
^DD(2041.7,8,3)="Enter eligibility for the HISA grant."
^DD(2041.7,8,21,0)="^^2^2^2980309^"
^DD(2041.7,8,21,1,0)="This field indicates if the veteran has eligibility for and/or used the"
^DD(2041.7,8,21,2,0)="HISA grant."
^DD(2041.7,8,"DT")="2980211"
^DD(2041.7,9,0)="INSURANCE - SDVI^RP2041.6'^ANRV(2041.6,^0;10^Q"
^DD(2041.7,9,3)="Enter eligibility for SDVI Life Insurance."
^DD(2041.7,9,21,0)="^^1^1^2980309^"
^DD(2041.7,9,21,1,0)="This indicates if the veteran has insurance."
^DD(2041.7,9,"DT")="2980211"
^DD(2041.7,10,0)="INSURANCE - WAIVE PREMIUM^RP2041.6'^ANRV(2041.6,^0;11^Q"
^DD(2041.7,10,3)="Enter eligibility for waiver of the premium for SDVI Life Insurance."
^DD(2041.7,10,21,0)="^^2^2^2980312^^"
^DD(2041.7,10,21,1,0)="This field indicates whether or not the veteran is eligible for and has"
^DD(2041.7,10,21,2,0)="applied for a waiver of the premiums for the SDVI Life Insurance."
^DD(2041.7,10,"DT")="2980211"
^DD(2041.7,11,0)="PROSTHETICS^RP2041.6'^ANRV(2041.6,^0;12^Q"
^DD(2041.7,11,3)="Enter veteran's eligibility for prosthetics."
^DD(2041.7,11,21,0)="^^1^1^2980309^"
^DD(2041.7,11,21,1,0)="This field describes if the veteran is eligible for prosthetic items."
^DD(2041.7,11,"DT")="2980211"
^DD(2041.7,12,0)="SAH - 801(a)^RP2041.6'^ANRV(2041.6,^0;13^Q"
^DD(2041.7,12,3)="Enter eligibility and use of 2101(a) grant."
^DD(2041.7,12,21,0)="^^3^3^2980312^^"
^DD(2041.7,12,21,1,0)="This is the structural alteration to housing program administered by the"
^DD(2041.7,12,21,2,0)="VARO.  This field allows you to enter the veteran's use and eligibility for"
^DD(2041.7,12,21,3,0)="this grant."
^DD(2041.7,12,"DT")="2980211"
^DD(2041.7,13,0)="SAH - 801(b)^RP2041.6'^ANRV(2041.6,^0;14^Q"
^DD(2041.7,13,3)="Enter eligibility for and use of 2101(b) grant."
^DD(2041.7,13,21,0)="^^3^3^2980312^^"
^DD(2041.7,13,21,1,0)="This is the structural alteration to housing program administered by the"
^DD(2041.7,13,21,2,0)="VARO.  This field allows you to enter the veteran's use and eligibility"
^DD(2041.7,13,21,3,0)="for this grant."
^DD(2041.7,13,"DT")="2980312"
^DD(2041.7,14,0)="VA VOCATIONAL REHABILITATION^RP2041.6'^ANRV(2041.6,^0;15^Q"
^DD(2041.7,14,3)="Enter eligibility for and use of VA Voc Rehab benefits."
^DD(2041.7,14,21,0)="^^2^2^2980309^^"
^DD(2041.7,14,21,1,0)="This denotes if the veteran has participated in the VA vocational "
^DD(2041.7,14,21,2,0)="rehabilitation program."
^DD(2041.7,14,"DT")="2980211"
^DD(2041.7,15,0)="VIST ANNUAL REVIEW^RP2041.6'^ANRV(2041.6,^0;16^Q"
^DD(2041.7,15,3)="Enter veteran's participation in the annual VIST review."
^DD(2041.7,15,21,0)="^^2^2^2980312^^"
^DD(2041.7,15,21,1,0)="This field allows you to enter information regarding the veteran's"
^DD(2041.7,15,21,2,0)="participation in the annual VIST review in your program."
^DD(2041.7,15,"DT")="2980211"
^DD(2041.7,16,0)="IDENTIFICATION CARD^RP2041.6'^ANRV(2041.6,^0;17^Q"
^DD(2041.7,16,3)="Enter whether veteran has applied for a national, state, or local ID card for the legally blind."
^DD(2041.7,16,21,0)="^^4^4^2980312^^^"
^DD(2041.7,16,21,1,0)="The AFB form of identification is no longer available.  Individuals should"
^DD(2041.7,16,21,2,0)="apply at their state motor vehicle offices for non-drivers identification"
^DD(2041.7,16,21,3,0)="cards that serve the same purpose and provide legal identification"
^DD(2041.7,16,21,4,0)="comparable to the sighted person's drivers license."
^DD(2041.7,16,"DT")="2980312"
^DD(2041.7,17,0)="BLINDED VETERANS ASSOCIATION^RP2041.6'^ANRV(2041.6,^0;18^Q"
^DD(2041.7,17,3)="Enter information regarding veteran's membership status with BVA."
^DD(2041.7,17,21,0)="^^6^6^2980309^^"
^DD(2041.7,17,21,1,0)="This is the Congressionally chartered service organization established for"
^DD(2041.7,17,21,2,0)="blind veterans.  Although originally established for SC veterans, over the"
^DD(2041.7,17,21,3,0)="years the BVA has amended its bylaws and now allows all NSC veterans with"
^DD(2041.7,17,21,4,0)="vision problems to join as equal members with a few significant exceptions"
^DD(2041.7,17,21,5,0)="including the necessity to be a SC veteran for blindness in order to stand"
^DD(2041.7,17,21,6,0)="for the offices of President and Vice President of the organization."
^DD(2041.7,17,"DT")="2980211"
^DD(2041.7,18,0)="COMMISSARY AND EXCHANGE^RP2041.6'^ANRV(2041.6,^0;19^Q"
^DD(2041.7,18,3)="Enter eligibility for and use of Commissary/Exchange."
^DD(2041.7,18,21,0)="^^3^3^2980309^^^"
^DD(2041.7,18,21,1,0)="These are privileges granted to SC veterans rated 100%.  A blind veteran"
^DD(2041.7,18,21,2,0)="may also select a sighted companion who will be admitted with a letter of"
^DD(2041.7,18,21,3,0)="proof by the eligible veteran."
^DD(2041.7,18,"DT")="2980211"
^DD(2041.7,19,0)="NATIONAL CONSUMER GROUPS^RP2041.6'^ANRV(2041.6,^0;20^Q"
^DD(2041.7,19,3)="Enter veteran's awareness of and/or membership in one of the national consumer groups for/of the blind."
^DD(2041.7,19,21,0)="^^3^3^2980309^^"
^DD(2041.7,19,21,1,0)="These are the principal advocacy organizations of and for the blind.  The"
^DD(2041.7,19,21,2,0)="American Council of the Blind, the National Federation of the Blind and"
^DD(2041.7,19,21,3,0)="the Guide Dog Users, Inc. are among the major organizations."
^DD(2041.7,19,"DT")="2980211"
^DD(2041.7,20,0)="FREE POSTAGE^RP2041.6'^ANRV(2041.6,^0;21^Q"
^DD(2041.7,20,3)="Enter veteran's awareness of and/or use of the free mailing privileges for the blind."
^DD(2041.7,20,21,0)="^^3^3^2980309^^"
^DD(2041.7,20,21,1,0)="This is the provision by which a blind person may send large print,"
^DD(2041.7,20,21,2,0)="Braille and taped materials free of postage to a person requiring these"
^DD(2041.7,20,21,3,0)="media. "
^DD(2041.7,20,"DT")="2980211"
^DD(2041.7,21,0)="PHONE DIRECTORY ASSISTANCE^RP2041.6'^ANRV(2041.6,^0;22^Q"
^DD(2041.7,21,3)="Enter veteran's use of free directory assistance."
^DD(2041.7,21,21,0)="^^4^4^2980309^"
^DD(2041.7,21,21,1,0)="This is the service available in most areas of the country enabling a"
^DD(2041.7,21,21,2,0)="blind customer to be waived of information charges on their residential"
^DD(2041.7,21,21,3,0)="phone.  You must apply for this service with both your local and long"
^DD(2041.7,21,21,4,0)="distance carrier."
^DD(2041.7,21,"DT")="2980211"
^DD(2041.7,22,0)="DOG GUIDE TRAINING^RP2041.6'^ANRV(2041.6,^0;23^Q"
^DD(2041.7,22,3)="Indicate veteran's knowledge of this O&M option if appropriate."
^DD(2041.7,22,21,0)="^^3^3^2980309^^^"
^DD(2041.7,22,21,1,0)="There are approximately 16 schools across the country that provide"
^DD(2041.7,22,21,2,0)="selection of, matching with and training in the use of guide dogs for"
^DD(2041.7,22,21,3,0)="legally blind persons. "
^DD(2041.7,22,"DT")="2980211"
^DD(2041.7,23,0)="HADLEY SCHOOL FOR THE BLIND^RP2041.6'^ANRV(2041.6,^0;24^Q"
^DD(2041.7,23,3)="Indicate veteran's awareness of this program."
^DD(2041.7,23,21,0)="^^3^3^2980515^^^^"
^DD(2041.7,23,21,1,0)="This is an international correspondence school providing courses in many"
^DD(2041.7,23,21,2,0)="subject areas. Instructional materials are provided in Braille, large"
^DD(2041.7,23,21,3,0)="print and tape formats."
^DD(2041.7,23,"DT")="2980211"
^DD(2041.7,24,0)="HANDICAP PARKING PLACARD^RP2041.6'^ANRV(2041.6,^1;1^Q"
^DD(2041.7,24,3)="Indicate if veteran has applied for this benefit."
^DD(2041.7,24,21,0)="^^7^7^2980309^^"
^DD(2041.7,24,21,1,0)="This is a privilege granted to eligible disabled persons that will allow"
^DD(2041.7,24,21,2,0)="them to park in designated handicapped parking spaces or to park free of"
^DD(2041.7,24,21,3,0)="meter charges or to remain in time-restricted parking spaces beyond the"
^DD(2041.7,24,21,4,0)="posted limit with the display of the placard or with disabled license tags"
^DD(2041.7,24,21,5,0)="on the car.  The disabled person may but does not need to be the driver,"
^DD(2041.7,24,21,6,0)="so a blind person may obtain disabled tags or the placard for use in a"
^DD(2041.7,24,21,7,0)="vehicle he/she owns or in which he/she rides."
^DD(2041.7,24,"DT")="2980211"
^DD(2041.7,25,0)="INCOME TAX DEDUCTION^RP2041.6'^ANRV(2041.6,^1;2^Q"
^DD(2041.7,25,3)="Indicate veteran's awareness of this benefit."
^DD(2041.7,25,21,0)="^^4^4^2980309^^"
^DD(2041.7,25,21,1,0)="This is a provision in the IRS code that enables a legally blind person to"
^DD(2041.7,25,21,2,0)="take an extra amount in deductions from their long form tax return.  In"
^DD(2041.7,25,21,3,0)="the past this was a full dependent's deduction but was reduced in the IRS"
^DD(2041.7,25,21,4,0)="reforms of 1993 and is currently approximately $600."
^DD(2041.7,25,"DT")="2980211"
^DD(2041.7,26,0)="NAT'L PARKS ADMISSION PERMIT^RP2041.6'^ANRV(2041.6,^1;3^Q"
^DD(2041.7,26,3)="Indicate veteran's awareness of this program."
^DD(2041.7,26,21,0)="^^3^3^2980515^^^^"
^DD(2041.7,26,21,1,0)="This is a life-long permit a disabled person may obtain at any National"
^DD(2041.7,26,21,2,0)="park that will entitle them and any companions accompanying them in the"
^DD(2041.7,26,21,3,0)="same vehicle free admission to National parks."
^DD(2041.7,26,"DT")="2980211"
^DD(2041.7,27,0)="RADIO READING SERVICE^RP2041.6'^ANRV(2041.6,^1;4^Q"
^DD(2041.7,27,3)="Indicate veteran's awareness of this program."
^DD(2041.7,27,21,0)="^^4^4^2980309^^^"
^DD(2041.7,27,21,1,0)="This is a service available in many parts of the country that provides"
^DD(2041.7,27,21,2,0)="materials such as the local paper and current publication read over a"
^DD(2041.7,27,21,3,0)="closed circuit radio receiver for which a special receiver must be"
^DD(2041.7,27,21,4,0)="obtained from the service."
^DD(2041.7,27,"DT")="2980211"
^DD(2041.7,28,0)="RECORDING FOR THE BLIND^RP2041.6'^ANRV(2041.6,^1;5^Q"
^DD(2041.7,28,3)="Indicate veteran's awareness of this program where appropriate."
^DD(2041.7,28,21,0)="^^2^2^2980309^^^"
^DD(2041.7,28,21,1,0)="This is a service that provides text and professional materials recorded"
^DD(2041.7,28,21,2,0)="on tape. "
^DD(2041.7,28,"DT")="2980211"
^DD(2041.7,29,0)="SOCIAL SECURITY^RP2041.6'^ANRV(2041.6,^1;6^Q"
^DD(2041.7,29,3)="There are several SSA programs from which a blind veteran might benefit."
^DD(2041.7,29,21,0)="^^4^4^2980309^^"
^DD(2041.7,29,21,1,0)="The Social Security Administration has several benefits a blind person may"
^DD(2041.7,29,21,2,0)="be eligible for including SSI and SSDI.  For blind persons receiving SSDI,"
^DD(2041.7,29,21,3,0)="the earning limit for gainful employment is higher than for other disabled"
^DD(2041.7,29,21,4,0)="persons; currently it is $1000 a month."
^DD(2041.7,29,"DT")="2980211"
^DD(2041.7,30,0)="TALKING BOOKS^RP2041.6'^ANRV(2041.6,^1;7^Q"
^DD(2041.7,30,3)="Indicate veteran's awareness of and participation in this program."
^DD(2041.7,30,21,0)="^^3^3^2980309^^^"
^DD(2041.7,30,21,1,0)="This is a service available from the National Library Service, Library of"
^DD(2041.7,30,21,2,0)="Congress that provides recorded books for persons unable to read regular"
^DD(2041.7,30,21,3,0)="print.  The NLS program also provides books and magazines in Braille."
^DD(2041.7,30,"DT")="2980211"
^DD(2041.7,31,0)="VOTING RIGHTS^RP2041.6'^ANRV(2041.6,^1;8^Q"
^DD(2041.7,31,3)="Indicate veteran's awareness of this issue."
^DD(2041.7,31,21,0)="^^4^4^2980309^^^"
^DD(2041.7,31,21,1,0)="A blind or visually impaired person has the right to be accompanied by the"
^DD(2041.7,31,21,2,0)="person of their choice into the voting booth to assist them in casting"
^DD(2041.7,31,21,3,0)="their vote.  There are some slight variations in some jurisdictions with"
^DD(2041.7,31,21,4,0)="respect to what forms of identification the escort must provide."
^DD(2041.7,31,"DT")="2980211"
^DD(2041.7,32,0)="LOCAL BENEFITS AND SERVICES^2041.732P^^2;0"
^DD(2041.7,32,21,0)="^^5^5^2980309^^"
^DD(2041.7,32,21,1,0)="There are a variety of local programs, services and benefits from which a"
^DD(2041.7,32,21,2,0)="blind or visually impaired veteran may benefit.  These vary widely"
^DD(2041.7,32,21,3,0)="throughout the country and it is important to be familiar with those in"
^DD(2041.7,32,21,4,0)="your area in order to provide blind veterans the greatest array of"
^DD(2041.7,32,21,5,0)="services."
^DD(2041.7,"B","AUTO GRANT",1)=""
^DD(2041.7,"B","BLIND REHAB. TRAINING",2)=""
^DD(2041.7,"B","BLINDED VETERANS ASSOCIATION",17)=""
^DD(2041.7,"B","CHAMPUS",3)=""
^DD(2041.7,"B","CHAMPVA",4)=""
^DD(2041.7,"B","CLOTHING ALLOWANCE",5)=""
^DD(2041.7,"B","COMMISSARY AND EXCHANGE",18)=""
^DD(2041.7,"B","DOG GUIDE TRAINING",22)=""
^DD(2041.7,"B","EDUCATION - VA",6)=""
^DD(2041.7,"B","FEE BASIS",7)=""
^DD(2041.7,"B","FREE POSTAGE",20)=""
^DD(2041.7,"B","HADLEY SCHOOL FOR THE BLIND",23)=""
^DD(2041.7,"B","HANDICAP PARKING PLACARD",24)=""
^DD(2041.7,"B","HISA",8)=""
^DD(2041.7,"B","IDENTIFICATION CARD",16)=""
^DD(2041.7,"B","INCOME TAX DEDUCTION",25)=""
^DD(2041.7,"B","INSURANCE - SDVI",9)=""
^DD(2041.7,"B","INSURANCE - WAIVE PREMIUM",10)=""
^DD(2041.7,"B","LOCAL BENEFITS AND SERVICES",32)=""
^DD(2041.7,"B","NAME",.01)=""
^DD(2041.7,"B","NAT'L PARKS ADMISSION PERMIT",26)=""
^DD(2041.7,"B","NATIONAL CONSUMER GROUPS",19)=""
^DD(2041.7,"B","PHONE DIRECTORY ASSISTANCE",21)=""
^DD(2041.7,"B","PROSTHETICS",11)=""
^DD(2041.7,"B","RADIO READING SERVICE",27)=""
^DD(2041.7,"B","RECORDING FOR THE BLIND",28)=""
^DD(2041.7,"B","SAH - 801(a)",12)=""
^DD(2041.7,"B","SAH - 801(b)",13)=""
^DD(2041.7,"B","SOCIAL SECURITY",29)=""
^DD(2041.7,"B","TALKING BOOKS",30)=""
^DD(2041.7,"B","VA VOCATIONAL REHABILITATION",14)=""
^DD(2041.7,"B","VIST ANNUAL REVIEW",15)=""
^DD(2041.7,"B","VOTING RIGHTS",31)=""
^DD(2041.7,"GL",0,1,.01)=""
^DD(2041.7,"GL",0,2,1)=""
^DD(2041.7,"GL",0,3,2)=""
^DD(2041.7,"GL",0,4,3)=""
^DD(2041.7,"GL",0,5,4)=""
^DD(2041.7,"GL",0,6,5)=""
^DD(2041.7,"GL",0,7,6)=""
^DD(2041.7,"GL",0,8,7)=""
^DD(2041.7,"GL",0,9,8)=""
^DD(2041.7,"GL",0,10,9)=""
^DD(2041.7,"GL",0,11,10)=""
^DD(2041.7,"GL",0,12,11)=""
^DD(2041.7,"GL",0,13,12)=""
^DD(2041.7,"GL",0,14,13)=""
^DD(2041.7,"GL",0,15,14)=""
^DD(2041.7,"GL",0,16,15)=""
^DD(2041.7,"GL",0,17,16)=""
^DD(2041.7,"GL",0,18,17)=""
^DD(2041.7,"GL",0,19,18)=""
^DD(2041.7,"GL",0,20,19)=""
^DD(2041.7,"GL",0,21,20)=""
^DD(2041.7,"GL",0,22,21)=""
^DD(2041.7,"GL",0,23,22)=""
^DD(2041.7,"GL",0,24,23)=""
^DD(2041.7,"GL",1,1,24)=""
^DD(2041.7,"GL",1,2,25)=""
^DD(2041.7,"GL",1,3,26)=""
^DD(2041.7,"GL",1,4,27)=""
^DD(2041.7,"GL",1,5,28)=""
^DD(2041.7,"GL",1,6,29)=""
^DD(2041.7,"GL",1,7,30)=""
^DD(2041.7,"GL",1,8,31)=""
^DD(2041.7,"GL",2,0,32)=""
^DD(2041.7,"IX",.01)=""
^DD(2041.7,"RQ",.01)=""
^DD(2041.7,"RQ",1)=""
^DD(2041.7,"RQ",2)=""
^DD(2041.7,"RQ",3)=""
^DD(2041.7,"RQ",4)=""
^DD(2041.7,"RQ",5)=""
^DD(2041.7,"RQ",6)=""
^DD(2041.7,"RQ",7)=""
^DD(2041.7,"RQ",8)=""
^DD(2041.7,"RQ",9)=""
^DD(2041.7,"RQ",10)=""
^DD(2041.7,"RQ",11)=""
^DD(2041.7,"RQ",12)=""
^DD(2041.7,"RQ",13)=""
^DD(2041.7,"RQ",14)=""
^DD(2041.7,"RQ",15)=""
^DD(2041.7,"RQ",16)=""
^DD(2041.7,"RQ",17)=""
^DD(2041.7,"RQ",18)=""
^DD(2041.7,"RQ",19)=""
^DD(2041.7,"RQ",20)=""
^DD(2041.7,"RQ",21)=""
^DD(2041.7,"RQ",22)=""
^DD(2041.7,"RQ",23)=""
^DD(2041.7,"RQ",24)=""
^DD(2041.7,"RQ",25)=""
^DD(2041.7,"RQ",26)=""
^DD(2041.7,"RQ",27)=""
^DD(2041.7,"RQ",28)=""
^DD(2041.7,"RQ",29)=""
^DD(2041.7,"RQ",30)=""
^DD(2041.7,"RQ",31)=""
^DD(2041.7,"SB",2041.732,32)=""
^DD(2041.732,0)="LOCAL BENEFITS AND SERVICES SUB-FIELD^^1^2"
^DD(2041.732,0,"DT")="2980211"
^DD(2041.732,0,"IX","B",2041.732,.01)=""
^DD(2041.732,0,"NM","LOCAL BENEFITS AND SERVICES")=""
^DD(2041.732,0,"UP")="2041.7"
^DD(2041.732,.01,0)="LOCAL BENEFITS AND SERVICES^MP2044'^ANRV(2044,^0;1^Q"
^DD(2041.732,.01,1,0)="^.1"
^DD(2041.732,.01,1,1,0)="2041.732^B"
^DD(2041.732,.01,1,1,1)="S ^ANRV(2041.7,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2041.732,.01,1,1,2)="K ^ANRV(2041.7,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2041.732,.01,3)="Indicate veteran's awareness of these programs."
^DD(2041.732,.01,21,0)="^^4^4^2980309^^"
^DD(2041.732,.01,21,1,0)="There are a variety of local programs, services and benefits from which a"
^DD(2041.732,.01,21,2,0)="blind or visually veteran may benefit.  These vary widely throughout the"
^DD(2041.732,.01,21,3,0)="country and it is important to be familiar with those in your area in"
^DD(2041.732,.01,21,4,0)="order to provide blind veterans the greatest array of services."
^DD(2041.732,.01,"DT")="2980211"
^DD(2041.732,1,0)="STATUS^P2041.6'^ANRV(2041.6,^0;2^Q"
^DD(2041.732,1,3)="Enter the patient's status in regards to this benefit or service."
^DD(2041.732,1,21,0)="^^1^1^2980225^"
^DD(2041.732,1,21,1,0)="This is the patient's status in regards to the local benefit or service."
^DD(2041.732,1,"DT")="2980211"
^DD(2041.732,"B","LOCAL BENEFITS AND SERVICES",.01)=""
^DD(2041.732,"B","STATUS",1)=""
^DD(2041.732,"GL",0,1,.01)=""
^DD(2041.732,"GL",0,2,1)=""
^DD(2041.732,"IX",.01)=""
^DD(2042,0)="FIELD^^.01^1"
^DD(2042,0,"DDA")="N"
^DD(2042,0,"IX","B",2042,.01)=""
^DD(2042,0,"NM","VIST REFERRAL FACILITY")=""
^DD(2042,0,"PT",2042.51,1)=""
^DD(2042,0,"VR")="4.0"
^DD(2042,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2042,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(2042,.01,1,0)="^.1"
^DD(2042,.01,1,1,0)="2042^B"
^DD(2042,.01,1,1,1)="S ^ANRV(2042,""B"",$E(X,1,30),DA)="""""
^DD(2042,.01,1,1,2)="K ^ANRV(2042,""B"",$E(X,1,30),DA)"
^DD(2042,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(2042,.01,21,0)="^^3^3^2980312^"
^DD(2042,.01,21,1,0)="This gives a choice of which facility a referral for training was made."
^DD(2042,.01,21,2,0)="Currently there is a list that includes all VA BRC's, VICTORS, and"
^DD(2042,.01,21,3,0)="gives the option of a State or Community Agency."
^DD(2042,"B","NAME",.01)=""
^DD(2042,"GL",0,1,.01)=""
^DD(2042,"IX",.01)=""
^DD(2042,"RQ",.01)=""
^DD(2042.5,0)="FIELD^^1^2"
^DD(2042.5,0,"DDA")="N"
^DD(2042.5,0,"DT")="2980211"
^DD(2042.5,0,"IX","AC",2042.51,4)=""
^DD(2042.5,0,"IX","AD",2042.51,6)=""
^DD(2042.5,0,"IX","B",2042.5,.01)=""
^DD(2042.5,0,"IX","C",2042.51,.01)=""
^DD(2042.5,0,"NM","VIST REFERRAL ROSTER")=""
^DD(2042.5,0,"VR")="4.0"
^DD(2042.5,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2042.5,.01,0)="NAME^RP2040'^ANRV(2040,^0;1^Q"
^DD(2042.5,.01,1,0)="^.1"
^DD(2042.5,.01,1,1,0)="2042.5^B"
^DD(2042.5,.01,1,1,1)="S ^ANRV(2042.5,""B"",$E(X,1,30),DA)="""""
^DD(2042.5,.01,1,1,2)="K ^ANRV(2042.5,""B"",$E(X,1,30),DA)"
^DD(2042.5,.01,3)="Enter the veteran's name."
^DD(2042.5,.01,21,0)="^^3^3^2980312^^"
^DD(2042.5,.01,21,1,0)="This allows a listing of veteran name, date of referral, the place of"
^DD(2042.5,.01,21,2,0)="referral, status of the application, notification date, admit and"
^DD(2042.5,.01,21,3,0)="discharge dates."
^DD(2042.5,.01,"DT")="2980211"
^DD(2042.5,1,0)="REFERRAL DATE^2042.51D^^1;0"
^DD(2042.5,1,21,0)="^^1^1^2980317^^^"
^DD(2042.5,1,21,1,0)="Allows entry of date VIST Coordinator referred application for training."
^DD(2042.5,"B","NAME",.01)=""
^DD(2042.5,"B","REFERRAL DATE",1)=""
^DD(2042.5,"GL",0,1,.01)=""
^DD(2042.5,"GL",1,0,1)=""
^DD(2042.5,"IX",.01)=""
^DD(2042.5,"RQ",.01)=""
^DD(2042.5,"SB",2042.51,1)=""
^DD(2042.51,0)="REFERRAL DATE SUB-FIELD^^7^8"
^DD(2042.51,0,"DT")="2980211"
^DD(2042.51,0,"NM","REFERRAL DATE")=""
^DD(2042.51,0,"UP")="2042.5"
^DD(2042.51,.01,0)="REFERRAL DATE^MD^^0;1^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2042.51,.01,1,0)="^.1"
^DD(2042.51,.01,1,1,0)="2042.5^C"
^DD(2042.51,.01,1,1,1)="S ^ANRV(2042.5,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(2042.51,.01,1,1,2)="K ^ANRV(2042.5,""C"",$E(X,1,30),DA(1),DA)"
^DD(2042.51,.01,1,1,"%D",0)="^^8^8^2980212^"
^DD(2042.51,.01,1,1,"%D",1,0)="This is a regular cross reference on the REFERRAL DATE field. It sets the"
^DD(2042.51,.01,1,1,"%D",2,0)="""C"" cross reference in the following format;"
^DD(2042.51,.01,1,1,"%D",3,0)=" "
^DD(2042.51,.01,1,1,"%D",4,0)="  ^ANRV(2042.5,""C"",2980202,2,1)="""""
^DD(2042.51,.01,1,1,"%D",5,0)=" "
^DD(2042.51,.01,1,1,"%D",6,0)="   2980202  - Referral Date"
^DD(2042.51,.01,1,1,"%D",7,0)="   2        - IEN of the patient in the VIST REFERRAL ROSER file"
^DD(2042.51,.01,1,1,"%D",8,0)="   1        - IEN of the Referral Date in the Referral Date multiple"
^DD(2042.51,.01,3)="Enter the date application for training was referred."
^DD(2042.51,.01,21,0)="^^1^1^2980312^"
^DD(2042.51,.01,21,1,0)="Allows entry of date VIST Coordinator referred application for training."
^DD(2042.51,.01,"DT")="2890518"
^DD(2042.51,1,0)="PLACE OF REFERRAL^P2042^ANRV(2042,^0;2^Q"
^DD(2042.51,1,3)="Enter the name of the VIST Referral Facility."
^DD(2042.51,1,21,0)="^^1^1^2980312^"
^DD(2042.51,1,21,1,0)="This is the name of the facility the veteran's application was referred to."
^DD(2042.51,1,"DT")="2980211"
^DD(2042.51,2,0)="TYPE OF REFERRAL (AMIS)^S^039:CTR 1ST EXP (039);040:CTR ADDL TRN (040);041:CLINIC 1ST EXP (041);042:CLINIC ADDL TRN (042);043:NON VA 1ST EXP (043);044:NON VA ADDL TRN (044);^2;1^Q"
^DD(2042.51,2,3)="Enter the type of referral."
^DD(2042.51,2,21,0)="^^1^1^2980312^"
^DD(2042.51,2,21,1,0)="This is the type of referral made."
^DD(2042.51,2,"DT")="2890705"
^DD(2042.51,3,0)="STATUS OF APPLICATION^S^051:ACCEPTED;045:REJECTED (CENTER);046:REJECTED (CLINIC);052:WITHDREW;053:PENDING;^2;2^Q"
^DD(2042.51,3,3)="Enter the status of the application."
^DD(2042.51,3,21,0)="^^1^1^2980312^"
^DD(2042.51,3,21,1,0)="This is the status of the application."
^DD(2042.51,3,"DT")="2930518"
^DD(2042.51,4,0)="DATE OF NOTIFICATION^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2042.51,4,1,0)="^.1"
^DD(2042.51,4,1,1,0)="2042.5^AC"
^DD(2042.51,4,1,1,1)="S ^ANRV(2042.5,""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(2042.51,4,1,1,2)="K ^ANRV(2042.5,""AC"",$E(X,1,30),DA(1),DA)"
^DD(2042.51,4,1,1,"%D",0)="^^9^9^2980212^"
^DD(2042.51,4,1,1,"%D",1,0)="This is a regular cross reference on the DATE OF NOTIFICATION field"
^DD(2042.51,4,1,1,"%D",2,0)="within the REFERRAL DATE multiple. It sets the ""AC"" cross reference in the"
^DD(2042.51,4,1,1,"%D",3,0)="following format;"
^DD(2042.51,4,1,1,"%D",4,0)=" "
^DD(2042.51,4,1,1,"%D",5,0)="  ^ANRV(2042.5,""AC"",2980202,2,1)="""""
^DD(2042.51,4,1,1,"%D",6,0)=" "
^DD(2042.51,4,1,1,"%D",7,0)="   2980202  - Date of Notification"
^DD(2042.51,4,1,1,"%D",8,0)="   2        - IEN of the patient in the VIST REFERRAL ROSER file"
^DD(2042.51,4,1,1,"%D",9,0)="   1        - IEN of the Referral Date in the Referral Date multiple"
^DD(2042.51,4,3)="Enter the date of notification."
^DD(2042.51,4,"DT")="2890518"
^DD(2042.51,5,0)="BLIND REHAB ADMISSION DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2042.51,5,3)="Enter the Blind Rehab admission date."
^DD(2042.51,5,21,0)="^^2^2^2980317^"
^DD(2042.51,5,21,1,0)="This is the date the veteran was or will be admitted to the"
^DD(2042.51,5,21,2,0)="blind rehab program."
^DD(2042.51,5,"DT")="2890518"
^DD(2042.51,6,0)="BLIND REHAB DISCHARGE DATE^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2042.51,6,1,0)="^.1"
^DD(2042.51,6,1,1,0)="2042.5^AD"
^DD(2042.51,6,1,1,1)="S ^ANRV(2042.5,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(2042.51,6,1,1,2)="K ^ANRV(2042.5,""AD"",$E(X,1,30),DA(1),DA)"
^DD(2042.51,6,1,1,"%D",0)="^^9^9^2980212^"
^DD(2042.51,6,1,1,"%D",1,0)="This is a regular cross reference on the BLIND REHAB DISCHARGE DATE field"
^DD(2042.51,6,1,1,"%D",2,0)="within the REFERRAL DATE multiple. It sets the ""AD"" cross reference in the"
^DD(2042.51,6,1,1,"%D",3,0)="following format;"
^DD(2042.51,6,1,1,"%D",4,0)=" "
^DD(2042.51,6,1,1,"%D",5,0)="  ^ANRV(2042.5,""AD"",2980202,2,1)="""""
^DD(2042.51,6,1,1,"%D",6,0)=" "
^DD(2042.51,6,1,1,"%D",7,0)="   2980202  - Blind Rehab Discharge Date"
^DD(2042.51,6,1,1,"%D",8,0)="   2        - IEN of the patient in the VIST REFERRAL ROSER file"
^DD(2042.51,6,1,1,"%D",9,0)="   1        - IEN of the Referral Date in the Referral Date multiple"
^DD(2042.51,6,3)="Enter the Blind Rehab discharge date."
^DD(2042.51,6,21,0)="^^2^2^2980317^"
^DD(2042.51,6,21,1,0)="This is the date the veteran was or will be discharged from the"
^DD(2042.51,6,21,2,0)="blind rehab program."
^DD(2042.51,6,"DT")="2890518"
^DD(2042.51,7,0)="TYPE OF DISCHARGE^S^047:BLIND CENTER (047);048:BLIND CLINIC (048);049:OTHER NON VA (049);^0;6^Q"
^DD(2042.51,7,3)="Enter the type of discharge."
^DD(2042.51,7,21,0)="^^1^1^2980317^"
^DD(2042.51,7,21,1,0)="This is the type of discharge the veteran received."
^DD(2042.51,7,"DT")="2890518"
^DD(2042.51,"B","BLIND REHAB ADMISSION DATE",5)=""
^DD(2042.51,"B","BLIND REHAB DISCHARGE DATE",6)=""
^DD(2042.51,"B","DATE OF NOTIFICATION",4)=""
^DD(2042.51,"B","PLACE OF REFERRAL",1)=""
^DD(2042.51,"B","REFERRAL DATE",.01)=""
^DD(2042.51,"B","STATUS OF APPLICATION",3)=""
^DD(2042.51,"B","TYPE OF DISCHARGE",7)=""
^DD(2042.51,"B","TYPE OF REFERRAL (AMIS)",2)=""
^DD(2042.51,"GL",0,1,.01)=""
^DD(2042.51,"GL",0,2,1)=""
^DD(2042.51,"GL",0,3,4)=""
^DD(2042.51,"GL",0,4,5)=""
^DD(2042.51,"GL",0,5,6)=""
^DD(2042.51,"GL",0,6,7)=""
^DD(2042.51,"GL",2,1,2)=""
^DD(2042.51,"GL",2,2,3)=""
^DD(2042.51,"IX",.01)=""
^DD(2042.51,"IX",4)=""
^DD(2042.51,"IX",6)=""
^DD(2043,0)="FIELD^^1^3"
^DD(2043,0,"DDA")="N"
^DD(2043,0,"IX","B",2043,.01)=""
^DD(2043,0,"NM","VIST LETTER")=""
^DD(2043,0,"VR")="4.0"
^DD(2043,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2043,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2043,.01,1,0)="^.1"
^DD(2043,.01,1,1,0)="2043^B"
^DD(2043,.01,1,1,1)="S ^ANRV(2043,""B"",$E(X,1,30),DA)="""""
^DD(2043,.01,1,1,2)="K ^ANRV(2043,""B"",$E(X,1,30),DA)"
^DD(2043,.01,3)="Answer must be 3-30 characters in length."
^DD(2043,.01,21,0)="^^4^4^2980310^"
^DD(2043,.01,21,1,0)="Allows the user to edit and print letters and labels for various"
^DD(2043,.01,21,2,0)="functions related to VIST.  Letters available include BRC application"
^DD(2043,.01,21,3,0)="letter, Claim letter, Invitation for VIST Review letter, and IRS"
^DD(2043,.01,21,4,0)="Exemption letter."
^DD(2043,.01,"DT")="2930527"
^DD(2043,.02,0)="REQUIRES PATIENT NAME^S^0:NO;1:YES;^0;2^Q"
^DD(2043,.02,3)="Answer yes or no."
^DD(2043,.02,21,0)="^^4^4^2980310^"
^DD(2043,.02,21,1,0)="Answering ""yes"" to this allows In-step to pull a specific veteran's name"
^DD(2043,.02,21,2,0)="and related information into a letter.  Can do a specific name or a range"
^DD(2043,.02,21,3,0)="of names.  Answering ""no"" will cause the user to not be prompted for a"
^DD(2043,.02,21,4,0)="veteran's name during the printing of that letter."
^DD(2043,.02,"DT")="2931201"
^DD(2043,1,0)="TEXT OF LETTER^2043.01^^1;0"
^DD(2043,1,21,0)="^^2^2^2980310^"
^DD(2043,1,21,1,0)="Allows specific information about veteran, VIST, dates, etc. to be added"
^DD(2043,1,21,2,0)="to the letter."
^DD(2043,"B","NAME",.01)=""
^DD(2043,"B","REQUIRES PATIENT NAME",.02)=""
^DD(2043,"B","TEXT OF LETTER",1)=""
^DD(2043,"GL",0,1,.01)=""
^DD(2043,"GL",0,2,.02)=""
^DD(2043,"GL",1,0,1)=""
^DD(2043,"IX",.01)=""
^DD(2043,"RQ",.01)=""
^DD(2043,"SB",2043.01,1)=""
^DD(2043.01,0)="TEXT OF LETTER SUB-FIELD^^.01^1"
^DD(2043.01,0,"NM","TEXT OF LETTER")=""
^DD(2043.01,0,"UP")="2043"
^DD(2043.01,.01,0)="TEXT OF LETTER^W^^0;1^Q"
^DD(2043.01,.01,21,0)="^^2^2^2980310^"
^DD(2043.01,.01,21,1,0)="Allows specific information about veteran, VIST, dates, etc. to be added"
^DD(2043.01,.01,21,2,0)="to the letter."
^DD(2043.01,.01,"DT")="2930615"
^DD(2043.01,"B","TEXT OF LETTER",.01)=""
^DD(2043.01,"GL",0,1,.01)=""
^DD(2043.5,0)="FIELD^^1^2"
^DD(2043.5,0,"DDA")="N"
^DD(2043.5,0,"DT")="2980226"
^DD(2043.5,0,"IX","B",2043.5,.01)=""
^DD(2043.5,0,"NM","VARO CLAIMS")=""
^DD(2043.5,0,"VR")="4.0"
^DD(2043.5,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2043.5,.01,0)="NAME^RP2040'X^ANRV(2040,^0;1^Q"
^DD(2043.5,.01,1,0)="^.1"
^DD(2043.5,.01,1,1,0)="2043.5^B"
^DD(2043.5,.01,1,1,1)="S ^ANRV(2043.5,""B"",$E(X,1,30),DA)="""""
^DD(2043.5,.01,1,1,2)="K ^ANRV(2043.5,""B"",$E(X,1,30),DA)"
^DD(2043.5,.01,3)="Enter the veteran's name."
^DD(2043.5,.01,21,0)="^^1^1^2980312^^^"
^DD(2043.5,.01,21,1,0)="This is the name of the veteran for which the claim is entered."
^DD(2043.5,.01,"DT")="2980211"
^DD(2043.5,1,0)="CLAIM^2043.51D^^1;0"
^DD(2043.5,1,21,0)="^^1^1^2980312^^^^"
^DD(2043.5,1,21,1,0)="This is the type of VARO claim filed for this veteran."
^DD(2043.5,"B","CLAIM",1)=""
^DD(2043.5,"B","NAME",.01)=""
^DD(2043.5,"GL",0,1,.01)=""
^DD(2043.5,"GL",1,0,1)=""
^DD(2043.5,"IX",.01)=""
^DD(2043.5,"RQ",.01)=""
^DD(2043.5,"SB",2043.51,1)=""
^DD(2043.51,0)="CLAIM SUB-FIELD^^.04^4"
^DD(2043.51,0,"DT")="2980226"
^DD(2043.51,0,"IX","B",2043.51,.01)=""
^DD(2043.51,0,"NM","CLAIM")=""
^DD(2043.51,0,"UP")="2043.5"
^DD(2043.51,.01,0)="DATE OF CLAIM^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2043.51,.01,1,0)="^.1"
^DD(2043.51,.01,1,1,0)="2043.51^B"
^DD(2043.51,.01,1,1,1)="S ^ANRV(2043.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2043.51,.01,1,1,2)="K ^ANRV(2043.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2043.51,.01,3)="Enter the date of this claim."
^DD(2043.51,.01,21,0)="^^1^1^2980312^^^"
^DD(2043.51,.01,21,1,0)="This is the date that the claim was filed."
^DD(2043.51,.01,"DT")="2901005"
^DD(2043.51,.02,0)="CLAIM^S^01:A&A/HB (IMPROVED PENSION);02:INCREASE SC RATING;03:INITIAL SC RATING;04:SWITCH TO IMPROVED PENSION;05:OTHER;^0;2^Q"
^DD(2043.51,.02,3)="Enter the type of claim being filed."
^DD(2043.51,.02,21,0)="^^1^1^2980312^^"
^DD(2043.51,.02,21,1,0)="This is the type of claim being filed for this veteran."
^DD(2043.51,.02,"DT")="2901005"
^DD(2043.51,.03,0)="REGIONAL OFFICE^RP4'^DIC(4,^0;3^Q"
^DD(2043.51,.03,3)="Enter the name of the Regional Office."
^DD(2043.51,.03,4)=""
^DD(2043.51,.03,21,0)="^^1^1^2980312^^^"
^DD(2043.51,.03,21,1,0)="This is the regional office where the claim will be filed."
^DD(2043.51,.03,"DT")="2931126"
^DD(2043.51,.04,0)="VARO DECISION^S^A:ACCEPTED;D:DENIED;P:PENDING;^0;4^Q"
^DD(2043.51,.04,3)="Enter the VARO decision, accepted ,denied, or pending, regarding this claim."
^DD(2043.51,.04,21,0)="^^3^3^2980312^^^^"
^DD(2043.51,.04,21,1,0)="This is the VARO decision regarding this claim.  Enter ""A"" for ""ACCEPTED"","
^DD(2043.51,.04,21,2,0)="""D"" for ""DENIED"", or ""P"" for ""PENDING""."
^DD(2043.51,.04,21,3,0)=" "
^DD(2043.51,.04,"DT")="2980226"
^DD(2043.51,"B","CLAIM",.02)=""
^DD(2043.51,"B","DATE OF CLAIM",.01)=""
^DD(2043.51,"B","REGIONAL OFFICE",.03)=""
^DD(2043.51,"B","VARO DECISION",.04)=""
^DD(2043.51,"GL",0,1,.01)=""
^DD(2043.51,"GL",0,2,.02)=""
^DD(2043.51,"GL",0,3,.03)=""
^DD(2043.51,"GL",0,4,.04)=""
^DD(2043.51,"IX",.01)=""
^DD(2043.51,"RQ",.03)=""
^DD(2044,0)="FIELD^^.01^1"
^DD(2044,0,"DDA")="N"
^DD(2044,0,"IX","B",2044,.01)=""
^DD(2044,0,"NM","VIST LOCAL BENEFITS AND SERVICES")=""
^DD(2044,0,"PT",2041.732,.01)=""
^DD(2044,0,"VR")="4.0"
^DD(2044,0,"VRPK")="VISUAL IMPAIRMENT SERVICE TEAM (VIST)"
^DD(2044,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(2044,.01,1,0)="^.1"
^DD(2044,.01,1,1,0)="2044^B"
^DD(2044,.01,1,1,1)="S ^ANRV(2044,""B"",$E(X,1,30),DA)="""""
^DD(2044,.01,1,1,2)="K ^ANRV(2044,""B"",$E(X,1,30),DA)"
^DD(2044,.01,3)="Answer must be 3-40 characters in length."
^DD(2044,.01,21,0)="^^2^2^2980317^"
^DD(2044,.01,21,1,0)="Enter the text of the local benefit or service that is available."
^DD(2044,.01,21,2,0)="This is free text from 3-40 characters in length."
^DD(2044,.01,"DT")="2930518"
^DD(2044,"B","NAME",.01)=""
^DD(2044,"GL",0,1,.01)=""
^DD(2044,"IX",.01)=""
^DD(2044,"RQ",.01)=""
^DD(2048,0)="FIELD^^1^5"
^DD(2048,0,"DDA")="N"
^DD(2048,0,"DT")="3020515"
^DD(2048,0,"IX","B",2048,.01)=""
^DD(2048,0,"NM","ANRV PATIENT REVIEW")=" "
^DD(2048,0,"VR")="4.0"
^DD(2048,0,"VRPK")="ANRV"
^DD(2048,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(2048,.01,.1)="Patient"
^DD(2048,.01,1,0)="^.1"
^DD(2048,.01,1,1,0)="2048^B"
^DD(2048,.01,1,1,1)="S ^ANRV(2048,""B"",$E(X,1,30),DA)="""""
^DD(2048,.01,1,1,2)="K ^ANRV(2048,""B"",$E(X,1,30),DA)"
^DD(2048,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2048,.01,"DT")="3010822"
^DD(2048,.02,0)="DATE OF OUTCOME^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:X<1 X"
^DD(2048,.02,.1)="Date Created"
^DD(2048,.02,3)="(No range limit on date)"
^DD(2048,.02,"DT")="3010822"
^DD(2048,.03,0)="STATUS^S^I:Incomplete;O:Other;C:Complete;^0;3^Q"
^DD(2048,.03,.1)="Patient Review Status"
^DD(2048,.03,"DT")="3020514"
^DD(2048,.04,0)="TYPE^S^R:PRE OUTCOME;O:POST OUTCOME;A:ANNUAL OUTCOME;^0;4^Q"
^DD(2048,.04,.1)="Type of Patient Review"
^DD(2048,.04,"DT")="3020515"
^DD(2048,1,0)="SECTION^2048.01P^^1;0"
^DD(2048,"B","DATE OF OUTCOME",.02)=""
^DD(2048,"B","Date Created",.02)="1"
^DD(2048,"B","PATIENT",.01)=""
^DD(2048,"B","Patient",.01)="1"
^DD(2048,"B","Patient Review Status",.03)="1"
^DD(2048,"B","SECTION",1)=""
^DD(2048,"B","STATUS",.03)=""
^DD(2048,"B","TYPE",.04)=""
^DD(2048,"B","Type of Patient Review",.04)="1"
^DD(2048,"GL",0,1,.01)=""
^DD(2048,"GL",0,2,.02)=""
^DD(2048,"GL",0,3,.03)=""
^DD(2048,"GL",0,4,.04)=""
^DD(2048,"GL",1,0,1)=""
^DD(2048,"IX",.01)=""
^DD(2048,"RQ",.01)=""
^DD(2048,"SB",2048.01,1)=""
^DD(2048.01,0)="SECTION SUB-FIELD^^1^3"
^DD(2048.01,0,"DT")="3010822"
^DD(2048.01,0,"IX","B",2048.01,.01)=""
^DD(2048.01,0,"NM","SECTION")=" "
^DD(2048.01,0,"UP")="2048"
^DD(2048.01,.01,0)="SECTION^MP2048.1'^ANRV(2048.1,^0;1^Q"
^DD(2048.01,.01,.1)="Section(s)"
^DD(2048.01,.01,1,0)="^.1"
^DD(2048.01,.01,1,1,0)="2048.01^B"
^DD(2048.01,.01,1,1,1)="S ^ANRV(2048,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2048.01,.01,1,1,2)="K ^ANRV(2048,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2048.01,.01,"DT")="3010822"
^DD(2048.01,.02,0)="SECTSTAT^S^0:INCOMPLETE;1:COMPLETE;^0;2^Q"
^DD(2048.01,.02,.1)="Section Status"
^DD(2048.01,.02,"DT")="3011211"
^DD(2048.01,1,0)="TEXT^2048.11^^1;0"
^DD(2048.01,1,"DT")="3021113"
^DD(2048.01,"B","SECTION",.01)=""
^DD(2048.01,"B","SECTSTAT",.02)=""
^DD(2048.01,"B","Section Status",.02)="1"
^DD(2048.01,"B","Section(s)",.01)="1"
^DD(2048.01,"B","TEXT",1)=""
^DD(2048.01,"GL",0,1,.01)=""
^DD(2048.01,"GL",0,2,.02)=""
^DD(2048.01,"GL",1,0,1)=""
^DD(2048.01,"IX",.01)=""
^DD(2048.01,"SB",2048.11,1)=""
^DD(2048.1,0)="FIELD^^.09^4"
^DD(2048.1,0,"DDA")="N"
^DD(2048.1,0,"DT")="3010822"
^DD(2048.1,0,"IX","B",2048.1,.01)=""
^DD(2048.1,0,"NM","ANRV PATIENT REVIEW SECTIONS")=" "
^DD(2048.1,0,"PT",2048.01,.01)=" "
^DD(2048.1,0,"VR")="4.0"
^DD(2048.1,0,"VRPK")="ANRV"
^DD(2048.1,.01,0)="SECTION NUMBER^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1.N) X"
^DD(2048.1,.01,1,0)="^.1"
^DD(2048.1,.01,1,1,0)="2048.1^B"
^DD(2048.1,.01,1,1,1)="S ^ANRV(2048.1,""B"",$E(X,1,30),DA)="""""
^DD(2048.1,.01,1,1,2)="K ^ANRV(2048.1,""B"",$E(X,1,30),DA)"
^DD(2048.1,.01,3)="Type a number between 1 and 9999, 0 Decimal Digits"
^DD(2048.1,.01,"DT")="3010822"
^DD(2048.1,.02,0)="NAME^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(2048.1,.02,.1)="SECTION NAME"
^DD(2048.1,.02,3)="Answer must be 1-40 characters in length"
^DD(2048.1,.02,"DT")="3010822"
^DD(2048.1,.03,0)="ACTIVE^S^0:NO;1:YES;^2;1^Q"
^DD(2048.1,.03,.1)="ACTIVE SECTION"
^DD(2048.1,.03,"DT")="3010822"
^DD(2048.1,.09,0)="EXE NAME^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(2048.1,.09,3)="Answer must be 1-30 characters in length"
^DD(2048.1,.09,"DT")="3010822"
^DD(2048.1,"B","ACTIVE",.03)=""
^DD(2048.1,"B","ACTIVE SECTION",.03)="1"
^DD(2048.1,"B","EXE NAME",.09)=""
^DD(2048.1,"B","NAME",.02)=""
^DD(2048.1,"B","SECTION NAME",.02)="1"
^DD(2048.1,"B","SECTION NUMBER",.01)=""
^DD(2048.1,"GL",0,1,.01)=""
^DD(2048.1,"GL",0,2,.02)=""
^DD(2048.1,"GL",2,1,.03)=""
^DD(2048.1,"GL",2,2,.09)=""
^DD(2048.1,"IX",.01)=""
^DD(2048.11,0)="TEXT SUB-FIELD^^.01^1"
^DD(2048.11,0,"DT")="3010822"
^DD(2048.11,0,"NM","TEXT")=" "
^DD(2048.11,0,"UP")="2048.01"
^DD(2048.11,.01,0)="TEXT^WL^^0;1"
^DD(2048.11,.01,.1)="Section Titles"
^DD(2048.11,.01,"DT")="3010822"
^DD(2048.11,"B","Section Titles",.01)="1"
^DD(2048.11,"B","TEXT",.01)=""
^DD(2048.11,"GL",0,1,.01)=""
^DD(2100,0)="FIELD^^5067^2603"
^DD(2100,0,"DDA")="N"
^DD(2100,0,"DT")="2950127"
^DD(2100,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2100,0,"ID",7)="W ""   "",$P(^(0),U,8)"
^DD(2100,0,"ID",9)="S %=$P(^(0),U,10) I %'="""" W ?40,""Created: "",$E(%,4,5),""/"",$E(%,6,7),""/"",$E(%,2,3)"
^DD(2100,0,"ID",9.1)="S %=$P(^(0),U,9) W:%'="""" ?60,""Amis MO/YR: "",$E(%,4,5),""/"",17+$E(%),$E(%,2,3) I $G(DZ)=""??"" S %=$$STATUS^GECSUSTA(Y)"
^DD(2100,0,"IX","AB",2100,.8)=""
^DD(2100,0,"IX","AC",2100,.1)=""
^DD(2100,0,"IX","AE",2100,.15)=""
^DD(2100,0,"IX","B",2100,.01)=""
^DD(2100,0,"NM","GENERIC CODE SHEET")=""
^DD(2100,0,"VR")="2.0"
^DD(2100,.01,0)="ID^RF^^0;1^K:$L(X)>21!($L(X)<4)!'(X'?1P.E) X"
^DD(2100,.01,1,0)="^.1"
^DD(2100,.01,1,1,0)="2100^B"
^DD(2100,.01,1,1,1)="S ^GECS(2100,""B"",$E(X,1,30),DA)="""""
^DD(2100,.01,1,1,2)="K ^GECS(2100,""B"",$E(X,1,30),DA)"
^DD(2100,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2100,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2100,.01,3)="ANSWER MUST BE 4-21 CHARACTERS IN LENGTH"
^DD(2100,.01,21,0)="^^2^2^2890427^"
^DD(2100,.01,21,1,0)="The id number of the code sheet.  The input is in the form 'code sheet"
^DD(2100,.01,21,2,0)="number'-'fiscal year'.  Example: 10-89."
^DD(2100,.01,"DT")="2900815"
^DD(2100,.1,0)="READY FOR BATCHING^S^Y:YES;^TRANS;1^Q"
^DD(2100,.1,1,0)="^.1"
^DD(2100,.1,1,1,0)="2100^AC"
^DD(2100,.1,1,1,1)="S ^GECS(2100,""AC"",$E(X,1,30),DA)="""""
^DD(2100,.1,1,1,2)="K ^GECS(2100,""AC"",$E(X,1,30),DA)"
^DD(2100,.1,1,1,"%D",0)="^^3^3^2940629^"
^DD(2100,.1,1,1,"%D",1,0)="This cross reference is used to sort the code sheets which are ready"
^DD(2100,.1,1,1,"%D",2,0)="for batching.  When code sheets are batched, this cross reference is"
^DD(2100,.1,1,1,"%D",3,0)="used to select the code sheets to batch."
^DD(2100,.1,21,0)="^^2^2^2940628^^^"
^DD(2100,.1,21,1,0)="This field is used internally by the Generic Code Sheet Package to"
^DD(2100,.1,21,2,0)="indicate if a code sheet is ready for batching."
^DD(2100,.1,"DT")="2881024"
^DD(2100,.15,0)="READY FOR TRANSMISSION^S^Y:YES;^TRANS;2^Q"
^DD(2100,.15,1,0)="^.1"
^DD(2100,.15,1,1,0)="2100^AE"
^DD(2100,.15,1,1,1)="S ^GECS(2100,""AE"",$E(X,1,30),DA)="""""
^DD(2100,.15,1,1,2)="K ^GECS(2100,""AE"",$E(X,1,30),DA)"
^DD(2100,.15,1,1,"%D",0)="^^6^6^2940629^^"
^DD(2100,.15,1,1,"%D",1,0)="This cross reference is used to sort the code sheets which are ready"
^DD(2100,.15,1,1,"%D",2,0)="for transmission.  After the code sheet is batched, the ready for"
^DD(2100,.15,1,1,"%D",3,0)="transmission flag will be set to yes."
^DD(2100,.15,1,1,"%D",4,0)=" "
^DD(2100,.15,1,1,"%D",5,0)="The cross reference is used by VA FileMan in the GECS READY FOR"
^DD(2100,.15,1,1,"%D",6,0)="TRANSMISSION sort template."
^DD(2100,.15,21,0)="^^2^2^2940628^^"
^DD(2100,.15,21,1,0)="This field is used internally by the Generic Code Sheet Package to"
^DD(2100,.15,21,2,0)="indicate if a code sheet is ready for transmission."
^DD(2100,.15,"DT")="2881024"
^DD(2100,.6,0)="SCHEDULED TRANSMISSION DATE^RD^^TRANS;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,.6,21,0)="^^2^2^2890427^"
^DD(2100,.6,21,1,0)="The date this code sheet is scheduled for transmission.  This field is"
^DD(2100,.6,21,2,0)="checked against the date when batching code sheets."
^DD(2100,.6,"DT")="2890807"
^DD(2100,.8,0)="BATCH NUMBER^FX^^TRANS;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<10) X I $D(X) K:$O(^GECS(2101.3,""B"",X,0))="""" X"
^DD(2100,.8,1,0)="^.1"
^DD(2100,.8,1,1,0)="2100^AB"
^DD(2100,.8,1,1,1)="S ^GECS(2100,""AB"",$E(X,1,30),DA)="""""
^DD(2100,.8,1,1,2)="K ^GECS(2100,""AB"",$E(X,1,30),DA)"
^DD(2100,.8,1,1,"%D",0)="^^4^4^2940629^"
^DD(2100,.8,1,1,"%D",1,0)="This cross reference is used to sort the code sheets by batch number."
^DD(2100,.8,1,1,"%D",2,0)="When the code sheets are batched, the batch number field is populated."
^DD(2100,.8,1,1,"%D",3,0)="The transmission of the batch uses the AB cross reference to select"
^DD(2100,.8,1,1,"%D",4,0)="the code sheets which should be transmitted in the batch."
^DD(2100,.8,3)="ANSWER MUST BE 10-20 CHARACTERS IN LENGTH"
^DD(2100,.8,21,0)="^^1^1^2940628^^^^"
^DD(2100,.8,21,1,0)="This field stores the batch number given to the code sheet."
^DD(2100,.8,"DT")="2890202"
^DD(2100,.85,0)="STACK DOCUMENT^F^^TRANS;3^K:$L(X)>30!($L(X)<3) X"
^DD(2100,.85,3)="Answer must be 3-30 characters in length."
^DD(2100,.85,21,0)="^^3^3^2940628^^"
^DD(2100,.85,21,1,0)="This field is used to store the stack document which was used for"
^DD(2100,.85,21,2,0)="transmitting the code sheet.  This field is used internally by the"
^DD(2100,.85,21,3,0)="Generic Code Sheet Package for informational purposes."
^DD(2100,.85,"DT")="2931215"
^DD(2100,.9,0)="BATCH PRIORITY^RNJ1,0^^TRANS;10^K:+X'=X!(X>6)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2100,.9,3)="Type a Number between 2 and 6, 0 Decimal Digits"
^DD(2100,.9,21,0)="^^2^2^2890427^"
^DD(2100,.9,21,1,0)="The priority of the code sheet in a batch.  A low priority will be"
^DD(2100,.9,21,2,0)="transmitted first."
^DD(2100,.9,"DT")="2900809"
^DD(2100,.95,0)="PREPARED BY^P200'^VA(200,^TRANS;12^Q"
^DD(2100,.95,21,0)="1^^1^1^2940628^"
^DD(2100,.95,21,1,0)="This field is used to store the user who created the code sheet."
^DD(2100,.95,"DT")="2931213"
^DD(2100,1,0)="SYSTEM IDENTIFIER^F^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(2100,1,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(2100,1,21,0)="^^2^2^2890427^"
^DD(2100,1,21,1,0)="The system identifier indicates the 'code sheet system identifier' from"
^DD(2100,1,21,2,0)="file 2101.1 GENERIC CODE SHEET BATCH TYPE."
^DD(2100,1,"DT")="2890113"
^DD(2100,2,0)="BATCH TYPE^RP2101.1'^GECS(2101.1,^0;3^Q"
^DD(2100,2,21,0)="^^3^3^2940628^"
^DD(2100,2,21,1,0)="This field is used to store the batch type from the batch type"
^DD(2100,2,21,2,0)="file 2101.1.  When code sheets are batched, this field is used"
^DD(2100,2,21,3,0)="to group code sheets by batch type."
^DD(2100,2,"DT")="2900816"
^DD(2100,5,0)="STATION NUMBER^F^^0;6^K:$L(X)>4!($L(X)<3) X"
^DD(2100,5,3)="Answer must be 3-4 characters in length."
^DD(2100,5,21,0)="^^2^2^2940628^^"
^DD(2100,5,21,1,0)="This field is used to store the station number from the INSTITUTION"
^DD(2100,5,21,2,0)="file used to create the code sheet."
^DD(2100,5,"DT")="2900406"
^DD(2100,6,0)="SUFFIX^FOX^^0;7^K:$L(X)>2 X Q:'$D(X)  I $D(^GECS(2100,DA,0)) K:'$D(^DIC(4,""D"",$P($G(^GECS(2100,DA,0)),""^"",6)_X)) X"
^DD(2100,6,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,6,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,6,3)="ANSWER MUST BE 0-2 CHARACTERS FOR STATION NUMBER SUFFIX"
^DD(2100,6,21,0)="^^2^2^2940628^^^"
^DD(2100,6,21,1,0)="This field is used to store the station suffix from the INSTITUTION"
^DD(2100,6,21,2,0)="file used to create the code sheet."
^DD(2100,6,"DT")="2960109"
^DD(2100,7,0)="TRANSACTION TYPE/SEGMENT^F^^0;8^K:$L(X)>6!($L(X)<2) X"
^DD(2100,7,3)="ANSWER MUST BE 2-6 CHARACTERS IN LENGTH"
^DD(2100,7,21,0)="^^2^2^2890427^"
^DD(2100,7,21,1,0)="The transaction type/segment type of this code sheet (found in file"
^DD(2100,7,21,2,0)="2101.2 GENERIC CODE SHEET TRANSACTION TYPE/SEGEMENT)."
^DD(2100,7,"DT")="2881024"
^DD(2100,9,0)="DATE CREATED^D^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,9,21,0)="^^3^3^2940628^^^^"
^DD(2100,9,21,1,0)="This field is used to store the date the code sheet was created."
^DD(2100,9,21,2,0)="It is used internally by the Generic Code Sheet package for purging"
^DD(2100,9,21,3,0)="code sheets."
^DD(2100,9,"DT")="2931213"
^DD(2100,9.01,0)="CREATED BY^P200'^VA(200,^0;4^Q"
^DD(2100,9.01,21,0)="^^1^1^2940628^"
^DD(2100,9.01,21,1,0)="This field is used to store the user who created the code sheet."
^DD(2100,9.01,"DT")="2931103"
^DD(2100,9.1,0)="AMIS MONTH/YEAR^RDX^^0;9^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) K:'+$E(X,4,5) X I $D(X) S X=$E(X,1,5)_""00"""
^DD(2100,9.1,21,0)="^^3^3^2940628^"
^DD(2100,9.1,21,1,0)="This field is used to store the AMIS month and year.  For AMIS code"
^DD(2100,9.1,21,2,0)="sheets, the AMIS MONTH/YEAR will be asked automatically by the Generic"
^DD(2100,9.1,21,3,0)="Code Sheet Package."
^DD(2100,9.1,"DT")="2890921"
^DD(2100,10,0)="EDIT TEMPLATE NAME^F^^0;11^K:$L(X)>30!($L(X)<2) X"
^DD(2100,10,3)="Answer must be 2-30 characters in length."
^DD(2100,10,21,0)="^^3^3^2940628^^"
^DD(2100,10,21,1,0)="This field is used to store the name of the input template from the"
^DD(2100,10,21,2,0)="code sheet segment file 2101.2 which was used when creating the"
^DD(2100,10,21,3,0)="code sheet."
^DD(2100,10,"DT")="2900816"
^DD(2100,50,0)="CODE^2100.01A^^CODE;0"
^DD(2100,50,21,0)="^^2^2^2940628^^^"
^DD(2100,50,21,1,0)="This field is used to store the generated code sheet which will"
^DD(2100,50,21,2,0)="be transmitted."
^DD(2100,51,0)="KEYPUNCH CODE SHEET^2100.051^^KEY;0"
^DD(2100,51,21,0)="^^2^2^2940628^^"
^DD(2100,51,21,1,0)="The field used for input into a keypunch code sheet.  The user may use"
^DD(2100,51,21,2,0)="this field to directly input a code sheet (via a word processing field)."
^DD(2100,52.1,0)="SEG. START CHAR.^F^^52;1^K:$L(X)>2!($L(X)<2) X"
^DD(2100,52.1,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(2100,52.1,"DT")="2890612"
^DD(2100,52.2,0)="VERSION NO.^F^^52;2^K:$L(X)>1!($L(X)<1) X"
^DD(2100,52.2,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(2100,52.2,"DT")="2890612"
^DD(2100,52.3,0)="DEPT. CODE^F^^52;3^K:$L(X)>1!($L(X)<1) X"
^DD(2100,52.3,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(2100,52.3,"DT")="2890612"
^DD(2100,52.4,0)="SEG. MODIFIER^FO^^52;4^K:$L(X)>1!($L(X)<1) X"
^DD(2100,52.4,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,52.4,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,52.4,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(2100,52.4,"DT")="2900629"
^DD(2100,53.001,0)="001-3 CHAR^FXO^^53;1^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.001,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.001,3)="Enter a whole number between 1 and 999."
^DD(2100,53.001,"DT")="2900509"
^DD(2100,53.002,0)="002-3 CHAR^FXO^^53;2^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.002,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.002,3)="Enter a whole number between 1 and 999."
^DD(2100,53.002,"DT")="2900509"
^DD(2100,53.003,0)="003-3 CHAR^FXO^^53;3^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.003,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.003,3)="Enter a whole number between 1 and 999."
^DD(2100,53.003,"DT")="2900509"
^DD(2100,53.004,0)="004-3 CHAR^FXO^^53;4^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.004,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.004,3)="Enter a whole number between 1 and 999."
^DD(2100,53.004,"DT")="2900509"
^DD(2100,53.005,0)="005-3 CHAR^FXO^^53;5^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.005,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.005,3)="Enter a whole number between 1 and 999."
^DD(2100,53.005,"DT")="2900509"
^DD(2100,53.006,0)="006-3 CHAR^FXO^^53;6^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.006,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.006,3)="Enter a whole number between 1 and 999."
^DD(2100,53.006,"DT")="2900509"
^DD(2100,53.007,0)="007-3 CHAR^FXO^^53;7^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.007,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.007,3)="Enter a whole number between 1 and 999."
^DD(2100,53.007,"DT")="2900509"
^DD(2100,53.008,0)="008-3 CHAR^FXO^^53;8^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.008,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.008,3)="Enter a whole number between 1 and 999."
^DD(2100,53.008,"DT")="2900509"
^DD(2100,53.009,0)="009-3 CHAR^FXO^^53;9^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.009,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.009,3)="Enter a whole number between 1 and 999."
^DD(2100,53.009,"DT")="2900509"
^DD(2100,53.01,0)="010-3 CHAR^FXO^^53;10^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.01,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.01,3)="Enter a whole number between 1 and 999."
^DD(2100,53.01,"DT")="2900509"
^DD(2100,53.011,0)="011-3 CHAR^FXO^^53;11^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.011,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.011,3)="Enter a whole number between 1 and 999."
^DD(2100,53.011,"DT")="2900509"
^DD(2100,53.012,0)="012-3 CHAR^FXO^^53;12^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.012,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.012,3)="Enter a whole number between 1 and 999."
^DD(2100,53.012,"DT")="2900509"
^DD(2100,53.013,0)="013-3 CHAR^FXO^^53;13^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.013,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.013,3)="Enter a whole number between 1 and 999."
^DD(2100,53.013,"DT")="2900509"
^DD(2100,53.014,0)="014-3 CHAR^FXO^^53;14^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.014,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.014,3)="Enter a whole number between 1 and 999."
^DD(2100,53.014,"DT")="2900509"
^DD(2100,53.015,0)="015-3 CHAR^FXO^^53;15^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.015,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.015,3)="Enter a whole number between 1 and 999."
^DD(2100,53.015,"DT")="2900509"
^DD(2100,53.016,0)="016-3 CHAR^FXO^^53;16^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.016,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.016,3)="Enter a whole number between 1 and 999."
^DD(2100,53.016,"DT")="2900509"
^DD(2100,53.017,0)="017-3 CHAR^FXO^^53;17^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.017,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.017,3)="Enter a whole number between 1 and 999."
^DD(2100,53.017,"DT")="2900509"
^DD(2100,53.018,0)="018-3 CHAR^FXO^^53;18^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.018,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.018,3)="Enter a whole number between 1 and 999."
^DD(2100,53.018,"DT")="2900509"
^DD(2100,53.019,0)="019-3 CHAR^FXO^^53;19^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.019,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.019,3)="Enter a whole number between 1 and 999."
^DD(2100,53.019,"DT")="2900509"
^DD(2100,53.02,0)="020-3 CHAR^FXO^^53;20^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.02,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.02,3)="Enter a whole number between 1 and 999."
^DD(2100,53.02,"DT")="2900509"
^DD(2100,53.021,0)="021-3 CHAR^FXO^^53;21^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.021,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.021,3)="Enter a whole number between 1 and 999."
^DD(2100,53.021,"DT")="2900509"
^DD(2100,53.022,0)="022-3 CHAR^FXO^^53;22^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.022,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.022,3)="Enter a whole number between 1 and 999."
^DD(2100,53.022,"DT")="2900509"
^DD(2100,53.023,0)="023-3 CHAR^FXO^^53;23^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.023,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.023,3)="Enter a whole number between 1 and 999."
^DD(2100,53.023,"DT")="2900509"
^DD(2100,53.024,0)="024-3 CHAR^FXO^^53;24^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.024,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.024,3)="Enter a whole number between 1 and 999."
^DD(2100,53.024,"DT")="2900509"
^DD(2100,53.025,0)="025-3 CHAR^FXO^^53;25^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.025,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.025,3)="Enter a whole number between 1 and 999."
^DD(2100,53.025,"DT")="2900509"
^DD(2100,53.026,0)="026-3 CHAR^FXO^^53;26^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.026,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.026,3)="Enter a whole number between 1 and 999."
^DD(2100,53.026,"DT")="2900509"
^DD(2100,53.027,0)="027-3 CHAR^FXO^^53;27^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.027,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.027,3)="Enter a whole number between 1 and 999."
^DD(2100,53.027,"DT")="2900509"
^DD(2100,53.028,0)="028-3 CHAR^FXO^^53;28^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.028,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.028,3)="Enter a whole number between 1 and 999."
^DD(2100,53.028,"DT")="2900509"
^DD(2100,53.029,0)="029-3 CHAR^FXO^^53;29^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.029,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.029,3)="Enter a whole number between 1 and 999."
^DD(2100,53.029,"DT")="2900509"
^DD(2100,53.03,0)="030-3 CHAR^FXO^^53;30^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.03,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.03,3)="Enter a whole number between 1 and 999."
^DD(2100,53.03,"DT")="2900509"
^DD(2100,53.031,0)="031-3 CHAR^FXO^^53;31^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.031,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.031,3)="Enter a whole number between 1 and 999."
^DD(2100,53.031,"DT")="2900509"
^DD(2100,53.032,0)="032-3 CHAR^FXO^^53;32^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.032,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.032,3)="Enter a whole number between 1 and 999."
^DD(2100,53.032,"DT")="2900509"
^DD(2100,53.033,0)="033-3 CHAR^FXO^^53;33^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.033,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.033,3)="Enter a whole number between 1 and 999."
^DD(2100,53.033,"DT")="2900509"
^DD(2100,53.034,0)="034-3 CHAR^FXO^^53;34^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.034,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.034,3)="Enter a whole number between 1 and 999."
^DD(2100,53.034,"DT")="2900509"
^DD(2100,53.035,0)="035-3 CHAR^FXO^^53;35^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.035,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.035,3)="Enter a whole number between 1 and 999."
^DD(2100,53.035,"DT")="2900509"
^DD(2100,53.036,0)="036-3 CHAR^FXO^^53;36^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.036,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.036,3)="Enter a whole number between 1 and 999."
^DD(2100,53.036,"DT")="2900509"
^DD(2100,53.037,0)="037-3 CHAR^FXO^^53;37^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.037,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.037,3)="Enter a whole number between 1 and 999."
^DD(2100,53.037,"DT")="2900509"
^DD(2100,53.038,0)="038-3 CHAR^FXO^^53;38^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.038,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.038,3)="Enter a whole number between 1 and 999."
^DD(2100,53.038,"DT")="2900509"
^DD(2100,53.039,0)="039-3 CHAR^FXO^^53;39^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.039,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.039,3)="Enter a whole number between 1 and 999."
^DD(2100,53.039,"DT")="2900509"
^DD(2100,53.04,0)="040-3 CHAR^FXO^^53;40^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.04,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.04,3)="Enter a whole number between 1 and 999."
^DD(2100,53.04,"DT")="2900509"
^DD(2100,53.041,0)="041-3 CHAR^FXO^^53;41^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.041,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.041,3)="Enter a whole number between 1 and 999."
^DD(2100,53.041,"DT")="2900509"
^DD(2100,53.042,0)="042-3 CHAR^FXO^^53;42^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.042,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.042,3)="Enter a whole number between 1 and 999."
^DD(2100,53.042,"DT")="2900509"
^DD(2100,53.043,0)="043-3 CHAR^FXO^^53;43^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.043,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.043,3)="Enter a whole number between 1 and 999."
^DD(2100,53.043,"DT")="2900509"
^DD(2100,53.044,0)="044-3 CHAR^FXO^^53;44^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.044,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.044,3)="Enter a whole number between 1 and 999."
^DD(2100,53.044,"DT")="2900509"
^DD(2100,53.045,0)="045-3 CHAR^FXO^^53;45^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.045,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.045,3)="Enter a whole number between 1 and 999."
^DD(2100,53.045,"DT")="2900509"
^DD(2100,53.046,0)="046-3 CHAR^FXO^^53;46^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.046,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.046,3)="Enter a whole number between 1 and 999."
^DD(2100,53.046,"DT")="2900509"
^DD(2100,53.047,0)="047-3 CHAR^FXO^^53;47^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.047,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.047,3)="Enter a whole number between 1 and 999."
^DD(2100,53.047,"DT")="2900509"
^DD(2100,53.048,0)="048-3 CHAR^FXO^^53;48^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.048,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.048,3)="Enter a whole number between 1 and 999."
^DD(2100,53.048,"DT")="2900509"
^DD(2100,53.049,0)="049-3 CHAR^FXO^^53;49^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.049,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.049,3)="Enter a whole number between 1 and 999."
^DD(2100,53.049,"DT")="2900509"
^DD(2100,53.05,0)="050-3 CHAR^FXO^^53;50^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.05,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.05,3)="Enter a whole number between 1 and 999."
^DD(2100,53.05,"DT")="2900509"
^DD(2100,53.051,0)="051-3 CHAR^FXO^^53;51^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.051,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.051,3)="Enter a whole number between 1 and 999."
^DD(2100,53.051,"DT")="2900509"
^DD(2100,53.052,0)="052-3 CHAR^FXO^^53;52^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.052,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.052,3)="Enter a whole number between 1 and 999."
^DD(2100,53.052,"DT")="2900509"
^DD(2100,53.053,0)="053-3 CHAR^FXO^^53;53^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.053,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.053,3)="Enter a whole number between 1 and 999."
^DD(2100,53.053,"DT")="2900509"
^DD(2100,53.054,0)="054-3 CHAR^FXO^^53;54^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.054,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.054,3)="Enter a whole number between 1 and 999."
^DD(2100,53.054,"DT")="2900509"
^DD(2100,53.055,0)="055-3 CHAR^FXO^^53;55^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.055,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.055,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.055,3)="Enter a whole number between 1 and 999."
^DD(2100,53.055,"DT")="2900509"
^DD(2100,53.056,0)="056-3 CHAR^FXO^^53;56^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.056,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.056,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.056,3)="Enter a whole number between 1 and 999."
^DD(2100,53.056,"DT")="2900509"
^DD(2100,53.057,0)="057-3 CHAR^FXO^^53;57^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.057,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.057,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.057,3)="Enter a whole number between 1 and 999."
^DD(2100,53.057,"DT")="2900509"
^DD(2100,53.058,0)="058-3 CHAR^FXO^^53;58^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.058,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.058,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.058,3)="Enter a whole number between 1 and 999."
^DD(2100,53.058,"DT")="2900509"
^DD(2100,53.059,0)="059-3 CHAR^FXO^^53;59^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.059,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.059,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.059,3)="Enter a whole number between 1 and 999."
^DD(2100,53.059,"DT")="2900509"
^DD(2100,53.06,0)="060-3 CHAR^FXO^^53;60^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.06,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.06,3)="Enter a whole number between 1 and 999."
^DD(2100,53.06,"DT")="2900509"
^DD(2100,53.061,0)="061-3 CHAR^FXO^^53;61^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.061,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.061,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.061,3)="Enter a whole number between 1 and 999."
^DD(2100,53.061,"DT")="2900509"
^DD(2100,53.062,0)="062-3 CHAR^FXO^^53;62^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.062,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.062,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.062,3)="Enter a whole number between 1 and 999."
^DD(2100,53.062,"DT")="2900509"
^DD(2100,53.063,0)="063-3 CHAR^FXO^^53A;1^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.063,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.063,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.063,3)="Enter a whole number between 1 and 999."
^DD(2100,53.063,"DT")="2900509"
^DD(2100,53.064,0)="064-3 CHAR^FXO^^53A;2^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.064,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.064,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.064,3)="Enter a whole number between 1 and 999."
^DD(2100,53.064,"DT")="2900509"
^DD(2100,53.065,0)="065-3 CHAR^FXO^^53A;3^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.065,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.065,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.065,3)="Enter a whole number between 1 and 999."
^DD(2100,53.065,"DT")="2900509"
^DD(2100,53.066,0)="066-3 CHAR^FXO^^53A;4^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.066,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.066,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.066,3)="Enter a whole number between 1 and 999."
^DD(2100,53.066,"DT")="2900509"
^DD(2100,53.067,0)="067-3 CHAR^FXO^^53A;5^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.067,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.067,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.067,3)="Enter a whole number between 1 and 999."
^DD(2100,53.067,"DT")="2900509"
^DD(2100,53.068,0)="068-3 CHAR^FXO^^53A;6^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.068,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.068,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.068,3)="Enter a whole number between 1 and 999."
^DD(2100,53.068,"DT")="2900509"
^DD(2100,53.069,0)="069-3 CHAR^FXO^^53A;7^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.069,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.069,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.069,3)="Enter a whole number between 1 and 999."
^DD(2100,53.069,"DT")="2900509"
^DD(2100,53.07,0)="070-3 CHAR^FXO^^53A;8^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.07,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.07,3)="Enter a whole number between 1 and 999."
^DD(2100,53.07,"DT")="2900509"
^DD(2100,53.071,0)="071-3 CHAR^FXO^^53A;9^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.071,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.071,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.071,3)="Enter a whole number between 1 and 999."
^DD(2100,53.071,"DT")="2900509"
^DD(2100,53.072,0)="072-3 CHAR^FXO^^53A;10^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.072,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.072,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.072,3)="Enter a whole number between 1 and 999."
^DD(2100,53.072,"DT")="2900509"
^DD(2100,53.073,0)="073-3 CHAR^FXO^^53A;11^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.073,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.073,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.073,3)="Enter a whole number between 1 and 999."
^DD(2100,53.073,"DT")="2900509"
^DD(2100,53.074,0)="074-3 CHAR^FXO^^53A;12^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.074,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.074,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.074,3)="Enter a whole number between 1 and 999."
^DD(2100,53.074,"DT")="2900509"
^DD(2100,53.075,0)="075-3 CHAR^FXO^^53A;13^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.075,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.075,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.075,3)="Enter a whole number between 1 and 999."
^DD(2100,53.075,"DT")="2900509"
^DD(2100,53.076,0)="076-3 CHAR^FXO^^53A;14^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.076,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.076,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.076,3)="Enter a whole number between 1 and 999."
^DD(2100,53.076,"DT")="2900509"
^DD(2100,53.077,0)="077-3 CHAR^FXO^^53A;15^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.077,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.077,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.077,3)="Enter a whole number between 1 and 999."
^DD(2100,53.077,"DT")="2900509"
^DD(2100,53.078,0)="078-3 CHAR^FXO^^53A;16^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.078,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.078,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.078,3)="Enter a whole number between 1 and 999."
^DD(2100,53.078,"DT")="2900509"
^DD(2100,53.079,0)="079-3 CHAR^FXO^^53A;17^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.079,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.079,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.079,3)="Enter a whole number between 1 and 999."
^DD(2100,53.079,"DT")="2900509"
^DD(2100,53.08,0)="080-3 CHAR^FXO^^53A;18^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.08,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.08,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.08,3)="Enter a whole number between 1 and 999."
^DD(2100,53.08,"DT")="2900509"
^DD(2100,53.081,0)="081-3 CHAR^FXO^^53A;19^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.081,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.081,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.081,3)="Enter a whole number between 1 and 999."
^DD(2100,53.081,"DT")="2900509"
^DD(2100,53.082,0)="082-3 CHAR^FXO^^53A;20^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.082,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.082,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.082,3)="Enter a whole number between 1 and 999."
^DD(2100,53.082,"DT")="2900509"
^DD(2100,53.083,0)="083-3 CHAR^FXO^^53A;21^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.083,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.083,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.083,3)="Enter a whole number between 1 and 999."
^DD(2100,53.083,"DT")="2900509"
^DD(2100,53.084,0)="084-3 CHAR^FXO^^53A;22^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.084,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.084,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.084,3)="Enter a whole number between 1 and 999."
^DD(2100,53.084,"DT")="2900509"
^DD(2100,53.085,0)="085-3 CHAR^FXO^^53A;23^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.085,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.085,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.085,3)="Enter a whole number between 1 and 999."
^DD(2100,53.085,"DT")="2900509"
^DD(2100,53.086,0)="086-3 CHAR^FXO^^53A;24^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.086,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.086,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.086,3)="Enter a whole number between 1 and 999."
^DD(2100,53.086,"DT")="2900509"
^DD(2100,53.087,0)="087-3 CHAR^FXO^^53A;25^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.087,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.087,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.087,3)="Enter a whole number between 1 and 999."
^DD(2100,53.087,"DT")="2900509"
^DD(2100,53.088,0)="088-3 CHAR^FXO^^53A;26^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.088,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.088,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.088,3)="Enter a whole number between 1 and 999."
^DD(2100,53.088,"DT")="2900509"
^DD(2100,53.089,0)="089-3 CHAR^FXO^^53A;27^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.089,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.089,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.089,3)="Enter a whole number between 1 and 999."
^DD(2100,53.089,"DT")="2900509"
^DD(2100,53.09,0)="090-3 CHAR^FXO^^53A;28^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.09,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.09,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.09,3)="Enter a whole number between 1 and 999."
^DD(2100,53.09,"DT")="2900509"
^DD(2100,53.091,0)="091-3 CHAR^FXO^^53A;29^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.091,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.091,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.091,3)="Enter a whole number between 1 and 999."
^DD(2100,53.091,"DT")="2900509"
^DD(2100,53.092,0)="092-3 CHAR^FXO^^53A;30^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.092,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.092,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.092,3)="Enter a whole number between 1 and 999."
^DD(2100,53.092,"DT")="2900509"
^DD(2100,53.093,0)="093-3 CHAR^FXO^^53A;31^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.093,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.093,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.093,3)="Enter a whole number between 1 and 999."
^DD(2100,53.093,"DT")="2900509"
^DD(2100,53.094,0)="094-3 CHAR^FXO^^53A;32^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.094,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.094,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.094,3)="Enter a whole number between 1 and 999."
^DD(2100,53.094,"DT")="2900509"
^DD(2100,53.095,0)="095-3 CHAR^FXO^^53A;33^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,53.095,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.095,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,53.095,3)="Enter a whole number between 1 and 999."
^DD(2100,53.095,"DT")="2900509"
^DD(2100,54.001,0)="001-4 CHAR^FXO^^54;1^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.001,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.001,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.001,"DT")="2900509"
^DD(2100,54.002,0)="002-4 CHAR^FXO^^54;2^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.002,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.002,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.002,"DT")="2900509"
^DD(2100,54.003,0)="003-4 CHAR^FXO^^54;3^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.003,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.003,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.003,"DT")="2900509"
^DD(2100,54.004,0)="004-4 CHAR^FXO^^54;4^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.004,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.004,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.004,"DT")="2900509"
^DD(2100,54.005,0)="005-4 CHAR^FXO^^54;5^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.005,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.005,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.005,"DT")="2900509"
^DD(2100,54.006,0)="006-4 CHAR^FXO^^54;6^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.006,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.006,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.006,"DT")="2900509"
^DD(2100,54.007,0)="007-4 CHAR^FXO^^54;7^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.007,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.007,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.007,"DT")="2900509"
^DD(2100,54.008,0)="008-4 CHAR^FXO^^54;8^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.008,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.008,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.008,"DT")="2900509"
^DD(2100,54.009,0)="009-4 CHAR^FXO^^54;9^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.009,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.009,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.009,"DT")="2900509"
^DD(2100,54.01,0)="010-4 CHAR^FXO^^54;10^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.01,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.01,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.01,"DT")="2900509"
^DD(2100,54.011,0)="011-4 CHAR^FXO^^54;11^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.011,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.011,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.011,"DT")="2900509"
^DD(2100,54.012,0)="012-4 CHAR^FXO^^54;12^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.012,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.012,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.012,"DT")="2900509"
^DD(2100,54.013,0)="013-4 CHAR^FXO^^54;13^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.013,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.013,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.013,"DT")="2900509"
^DD(2100,54.014,0)="014-4 CHAR^FXO^^54;14^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.014,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.014,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.014,"DT")="2900509"
^DD(2100,54.015,0)="015-4 CHAR^FXO^^54;15^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.015,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.015,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.015,"DT")="2900509"
^DD(2100,54.016,0)="016-4 CHAR^FXO^^54;16^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.016,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.016,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.016,"DT")="2900509"
^DD(2100,54.017,0)="017-4 CHAR^FXO^^54;17^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.017,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.017,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.017,"DT")="2900509"
^DD(2100,54.018,0)="018-4 CHAR^FXO^^54;18^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.018,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.018,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.018,"DT")="2900509"
^DD(2100,54.019,0)="019-4 CHAR^FXO^^54;19^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.019,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.019,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.019,"DT")="2900509"
^DD(2100,54.02,0)="020-4 CHAR^FXO^^54;20^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.02,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.02,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.02,"DT")="2900509"
^DD(2100,54.021,0)="021-4 CHAR^FXO^^54;21^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.021,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.021,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.021,"DT")="2900509"
^DD(2100,54.022,0)="022-4 CHAR^FXO^^54;22^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.022,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.022,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.022,"DT")="2900509"
^DD(2100,54.023,0)="023-4 CHAR^FXO^^54;23^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.023,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.023,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.023,"DT")="2900509"
^DD(2100,54.024,0)="024-4 CHAR^FXO^^54;24^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.024,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.024,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.024,"DT")="2900509"
^DD(2100,54.025,0)="025-4 CHAR^FXO^^54;25^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.025,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.025,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.025,"DT")="2900509"
^DD(2100,54.026,0)="026-4 CHAR^FXO^^54;26^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.026,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.026,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.026,"DT")="2900509"
^DD(2100,54.027,0)="027-4 CHAR^FXO^^54;27^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.027,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.027,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.027,"DT")="2900509"
^DD(2100,54.028,0)="028-4 CHAR^FXO^^54;28^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.028,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.028,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.028,"DT")="2900509"
^DD(2100,54.029,0)="029-4 CHAR^FXO^^54;29^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.029,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.029,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.029,"DT")="2900509"
^DD(2100,54.03,0)="030-4 CHAR^FXO^^54;30^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.03,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.03,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.03,"DT")="2900509"
^DD(2100,54.031,0)="031-4 CHAR^FXO^^54;31^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.031,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.031,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.031,"DT")="2900509"
^DD(2100,54.032,0)="032-4 CHAR^FXO^^54;32^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.032,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.032,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.032,"DT")="2900509"
^DD(2100,54.033,0)="033-4 CHAR^FXO^^54;33^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.033,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.033,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.033,"DT")="2900509"
^DD(2100,54.034,0)="034-4 CHAR^FXO^^54;34^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.034,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.034,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.034,"DT")="2900509"
^DD(2100,54.035,0)="035-4 CHAR^FXO^^54;35^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.035,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.035,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.035,"DT")="2900509"
^DD(2100,54.036,0)="036-4 CHAR^FXO^^54;36^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.036,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.036,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.036,"DT")="2900509"
^DD(2100,54.037,0)="037-4 CHAR^FXO^^54;37^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.037,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.037,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.037,"DT")="2900509"
^DD(2100,54.038,0)="038-4 CHAR^FXO^^54;38^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.038,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.038,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.038,"DT")="2900509"
^DD(2100,54.039,0)="039-4 CHAR^FXO^^54;39^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.039,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.039,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.039,"DT")="2900509"
^DD(2100,54.04,0)="040-4 CHAR^FXO^^54;40^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.04,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.04,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.04,"DT")="2900509"
^DD(2100,54.041,0)="041-4 CHAR^FXO^^54;41^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.041,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.041,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.041,"DT")="2900509"
^DD(2100,54.042,0)="042-4 CHAR^FXO^^54;42^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.042,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.042,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.042,"DT")="2900509"
^DD(2100,54.043,0)="043-4 CHAR^FXO^^54;43^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.043,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.043,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.043,"DT")="2900509"
^DD(2100,54.044,0)="044-4 CHAR^FXO^^54;44^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.044,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.044,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.044,"DT")="2900509"
^DD(2100,54.045,0)="045-4 CHAR^FXO^^54;45^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.045,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.045,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.045,"DT")="2900509"
^DD(2100,54.046,0)="046-4 CHAR^FXO^^54;46^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.046,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.046,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.046,"DT")="2900509"
^DD(2100,54.047,0)="047-4 CHAR^FXO^^54;47^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.047,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.047,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.047,"DT")="2900509"
^DD(2100,54.048,0)="048-4 CHAR^FXO^^54;48^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.048,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.048,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.048,"DT")="2900509"
^DD(2100,54.049,0)="049-4 CHAR^FXO^^54;49^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.049,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.049,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.049,"DT")="2900509"
^DD(2100,54.05,0)="050-4 CHAR^FXO^^54;50^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.05,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.05,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.05,"DT")="2900509"
^DD(2100,54.051,0)="051-4 CHAR^FXO^^54A;1^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.051,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.051,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.051,"DT")="2900509"
^DD(2100,54.052,0)="052-4 CHAR^FXO^^54A;2^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.052,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.052,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.052,"DT")="2900509"
^DD(2100,54.053,0)="053-4 CHAR^FXO^^54A;3^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.053,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.053,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.053,"DT")="2900509"
^DD(2100,54.054,0)="054-4 CHAR^FXO^^54A;4^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.054,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.054,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.054,"DT")="2900509"
^DD(2100,54.055,0)="055-4 CHAR^FXO^^54A;5^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.055,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.055,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.055,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.055,"DT")="2900509"
^DD(2100,54.056,0)="056-4 CHAR^FXO^^54A;6^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.056,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.056,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.056,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.056,"DT")="2900509"
^DD(2100,54.057,0)="057-4 CHAR^FXO^^54A;7^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.057,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.057,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.057,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.057,"DT")="2900509"
^DD(2100,54.058,0)="058-4 CHAR^FXO^^54A;8^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.058,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.058,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.058,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.058,"DT")="2900509"
^DD(2100,54.059,0)="059-4 CHAR^FXO^^54A;9^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.059,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.059,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.059,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.059,"DT")="2900509"
^DD(2100,54.06,0)="060-4 CHAR^FXO^^54A;10^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.06,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.06,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.06,"DT")="2900509"
^DD(2100,54.061,0)="061-4 CHAR^FXO^^54A;11^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.061,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.061,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.061,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.061,"DT")="2900509"
^DD(2100,54.062,0)="062-4 CHAR^FXO^^54A;12^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.062,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.062,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.062,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.062,"DT")="2900509"
^DD(2100,54.063,0)="063-4 CHAR^FXO^^54A;13^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.063,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.063,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.063,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.063,"DT")="2900509"
^DD(2100,54.064,0)="064-4 CHAR^FXO^^54A;14^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.064,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.064,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.064,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.064,"DT")="2900509"
^DD(2100,54.065,0)="065-4 CHAR^FXO^^54A;15^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.065,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.065,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.065,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.065,"DT")="2900509"
^DD(2100,54.066,0)="066-4 CHAR^FXO^^54A;16^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.066,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.066,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.066,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.066,"DT")="2900509"
^DD(2100,54.067,0)="067-4 CHAR^FXO^^54A;17^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.067,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.067,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.067,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.067,"DT")="2900509"
^DD(2100,54.068,0)="068-4 CHAR^FXO^^54A;18^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.068,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.068,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.068,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.068,"DT")="2900509"
^DD(2100,54.069,0)="069-4 CHAR^FXO^^54A;19^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.069,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.069,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.069,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.069,"DT")="2900509"
^DD(2100,54.07,0)="070-4 CHAR^FXO^^54A;20^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.07,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.07,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.07,"DT")="2900509"
^DD(2100,54.071,0)="071-4 CHAR^FXO^^54A;21^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.071,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.071,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.071,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.071,"DT")="2900509"
^DD(2100,54.072,0)="072-4 CHAR^FXO^^54A;22^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.072,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.072,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.072,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.072,"DT")="2900509"
^DD(2100,54.073,0)="073-4 CHAR^FXO^^54A;23^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.073,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.073,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.073,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.073,"DT")="2900509"
^DD(2100,54.074,0)="074-4 CHAR^FXO^^54A;24^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.074,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.074,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.074,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.074,"DT")="2900509"
^DD(2100,54.075,0)="075-4 CHAR^FXO^^54A;25^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.075,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.075,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.075,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.075,"DT")="2900509"
^DD(2100,54.076,0)="076-4 CHAR^FXO^^54A;26^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.076,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.076,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.076,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.076,"DT")="2900509"
^DD(2100,54.077,0)="077-4 CHAR^FXO^^54A;27^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.077,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.077,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.077,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.077,"DT")="2900509"
^DD(2100,54.078,0)="078-4 CHAR^FXO^^54A;28^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.078,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.078,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.078,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.078,"DT")="2900509"
^DD(2100,54.079,0)="079-4 CHAR^FXO^^54A;29^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.079,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.079,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.079,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.079,"DT")="2900509"
^DD(2100,54.08,0)="080-4 CHAR^FXO^^54A;30^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.08,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.08,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.08,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.08,"DT")="2900509"
^DD(2100,54.081,0)="081-4 CHAR^FXO^^54A;31^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.081,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.081,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.081,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.081,"DT")="2900509"
^DD(2100,54.082,0)="082-4 CHAR^FXO^^54A;32^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.082,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.082,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.082,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.082,"DT")="2900509"
^DD(2100,54.083,0)="083-4 CHAR^FXO^^54A;33^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.083,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.083,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.083,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.083,"DT")="2900509"
^DD(2100,54.084,0)="084-4 CHAR^FXO^^54A;34^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.084,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.084,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.084,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.084,"DT")="2900509"
^DD(2100,54.085,0)="085-4 CHAR^FXO^^54A;35^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.085,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.085,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.085,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.085,"DT")="2900509"
^DD(2100,54.086,0)="086-4 CHAR^FXO^^54A;36^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.086,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.086,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.086,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.086,"DT")="2900509"
^DD(2100,54.087,0)="087-4 CHAR^FXO^^54A;37^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.087,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.087,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.087,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.087,"DT")="2900509"
^DD(2100,54.088,0)="088-4 CHAR^FXO^^54A;38^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.088,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.088,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.088,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.088,"DT")="2900509"
^DD(2100,54.089,0)="089-4 CHAR^FXO^^54A;39^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.089,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.089,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.089,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.089,"DT")="2900509"
^DD(2100,54.09,0)="090-4 CHAR^FXO^^54A;40^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.09,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.09,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.09,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.09,"DT")="2900509"
^DD(2100,54.091,0)="091-4 CHAR^FXO^^54A;41^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.091,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.091,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.091,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.091,"DT")="2900509"
^DD(2100,54.092,0)="092-4 CHAR^FXO^^54A;42^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.092,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.092,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.092,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.092,"DT")="2900509"
^DD(2100,54.093,0)="093-4 CHAR^FXO^^54A;43^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.093,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.093,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.093,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.093,"DT")="2900509"
^DD(2100,54.094,0)="094-4 CHAR^FXO^^54A;44^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.094,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.094,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.094,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.094,"DT")="2900509"
^DD(2100,54.095,0)="095-4 CHAR^FXO^^54A;45^K:$L(X)>4!($L(X)<1)!'(X?1.4N) X"
^DD(2100,54.095,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.095,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,54.095,3)="Enter a whole number between 1 and 9999."
^DD(2100,54.095,"DT")="2900509"
^DD(2100,55.001,0)="001-5 CHAR^FXO^^55;1^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.001,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.001,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.001,"DT")="2900509"
^DD(2100,55.002,0)="002-5 CHAR^FXO^^55;2^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.002,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.002,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.002,"DT")="2900509"
^DD(2100,55.003,0)="003-5 CHAR^FXO^^55;3^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.003,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.003,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.003,"DT")="2900509"
^DD(2100,55.004,0)="004-5 CHAR^FXO^^55;4^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.004,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.004,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.004,"DT")="2900509"
^DD(2100,55.005,0)="005-5 CHAR^FXO^^55;5^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.005,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.005,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.005,"DT")="2900509"
^DD(2100,55.006,0)="006-5 CHAR^FXO^^55;6^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.006,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.006,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.006,"DT")="2900509"
^DD(2100,55.007,0)="007-5 CHAR^FXO^^55;7^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.007,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.007,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.007,"DT")="2900509"
^DD(2100,55.008,0)="008-5 CHAR^FXO^^55;8^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.008,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.008,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.008,"DT")="2900509"
^DD(2100,55.009,0)="009-5 CHAR^FXO^^55;9^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.009,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.009,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.009,"DT")="2900509"
^DD(2100,55.01,0)="010-5 CHAR^FXO^^55;10^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.01,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.01,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.01,"DT")="2900509"
^DD(2100,55.011,0)="011-5 CHAR^FXO^^55;11^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.011,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.011,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.011,"DT")="2900509"
^DD(2100,55.012,0)="012-5 CHAR^FXO^^55;12^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.012,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.012,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.012,"DT")="2900509"
^DD(2100,55.013,0)="013-5 CHAR^FXO^^55;13^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.013,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.013,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.013,"DT")="2900509"
^DD(2100,55.014,0)="014-5 CHAR^FXO^^55;14^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.014,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.014,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.014,"DT")="2900509"
^DD(2100,55.015,0)="015-5 CHAR^FXO^^55;15^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.015,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.015,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.015,"DT")="2900509"
^DD(2100,55.016,0)="016-5 CHAR^FXO^^55;16^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.016,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.016,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.016,"DT")="2900509"
^DD(2100,55.017,0)="017-5 CHAR^FXO^^55;17^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.017,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.017,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.017,"DT")="2900509"
^DD(2100,55.018,0)="018-5 CHAR^FXO^^55;18^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.018,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.018,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.018,"DT")="2900509"
^DD(2100,55.019,0)="019-5 CHAR^FXO^^55;19^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.019,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.019,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.019,"DT")="2900509"
^DD(2100,55.02,0)="020-5 CHAR^FXO^^55;20^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.02,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.02,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.02,"DT")="2900509"
^DD(2100,55.021,0)="021-5 CHAR^FXO^^55;21^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.021,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.021,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.021,"DT")="2900509"
^DD(2100,55.022,0)="022-5 CHAR^FXO^^55;22^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.022,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.022,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.022,"DT")="2900509"
^DD(2100,55.023,0)="023-5 CHAR^FXO^^55;23^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.023,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.023,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.023,"DT")="2900509"
^DD(2100,55.024,0)="024-5 CHAR^FXO^^55;24^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.024,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.024,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.024,"DT")="2900509"
^DD(2100,55.025,0)="025-5 CHAR^FXO^^55;25^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.025,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.025,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.025,"DT")="2900509"
^DD(2100,55.026,0)="026-5 CHAR^FXO^^55;26^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.026,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.026,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.026,"DT")="2900509"
^DD(2100,55.027,0)="027-5 CHAR^FXO^^55;27^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.027,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.027,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.027,"DT")="2900509"
^DD(2100,55.028,0)="028-5 CHAR^FXO^^55;28^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.028,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.028,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.028,"DT")="2900509"
^DD(2100,55.029,0)="029-5 CHAR^FXO^^55;29^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.029,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.029,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.029,"DT")="2900509"
^DD(2100,55.03,0)="030-5 CHAR^FXO^^55;30^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.03,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.03,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.03,"DT")="2900509"
^DD(2100,55.031,0)="031-5 CHAR^FXO^^55;31^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.031,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.031,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.031,"DT")="2900509"
^DD(2100,55.032,0)="032-5 CHAR^FXO^^55;32^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.032,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.032,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.032,"DT")="2900509"
^DD(2100,55.033,0)="033-5 CHAR^FXO^^55;33^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.033,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.033,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.033,"DT")="2900509"
^DD(2100,55.034,0)="034-5 CHAR^FXO^^55;34^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.034,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.034,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.034,"DT")="2900509"
^DD(2100,55.035,0)="035-5 CHAR^FXO^^55;35^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.035,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.035,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.035,"DT")="2900509"
^DD(2100,55.036,0)="036-5 CHAR^FXO^^55;36^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.036,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.036,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.036,"DT")="2900509"
^DD(2100,55.037,0)="037-5 CHAR^FXO^^55;37^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.037,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.037,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.037,"DT")="2900509"
^DD(2100,55.038,0)="038-5 CHAR^FXO^^55;38^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.038,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.038,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.038,"DT")="2900509"
^DD(2100,55.039,0)="039-5 CHAR^FXO^^55;39^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.039,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.039,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.039,"DT")="2900509"
^DD(2100,55.04,0)="040-5 CHAR^FXO^^55;40^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.04,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.04,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.04,"DT")="2900509"
^DD(2100,55.041,0)="041-5 CHAR^FXO^^55;41^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.041,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.041,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.041,"DT")="2900509"
^DD(2100,55.042,0)="042-5 CHAR^FXO^^55;42^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.042,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.042,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.042,"DT")="2900509"
^DD(2100,55.043,0)="043-5 CHAR^FXO^^55A;1^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.043,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.043,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.043,"DT")="2900509"
^DD(2100,55.044,0)="044-5 CHAR^FXO^^55A;2^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.044,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.044,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.044,"DT")="2900509"
^DD(2100,55.045,0)="045-5 CHAR^FXO^^55A;3^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.045,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.045,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.045,"DT")="2900509"
^DD(2100,55.046,0)="046-5 CHAR^FXO^^55A;4^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.046,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.046,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.046,"DT")="2900509"
^DD(2100,55.047,0)="047-5 CHAR^FXO^^55A;5^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.047,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.047,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.047,"DT")="2900509"
^DD(2100,55.048,0)="048-5 CHAR^FXO^^55A;6^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.048,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.048,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.048,"DT")="2900509"
^DD(2100,55.049,0)="049-5 CHAR^FXO^^55A;7^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.049,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.049,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.049,"DT")="2900509"
^DD(2100,55.05,0)="050-5 CHAR^FXO^^55A;8^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.05,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.05,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.05,"DT")="2900509"
^DD(2100,55.051,0)="051-5 CHAR^FXO^^55A;9^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.051,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.051,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.051,"DT")="2900509"
^DD(2100,55.052,0)="052-5 CHAR^FXO^^55A;10^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.052,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.052,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.052,"DT")="2900509"
^DD(2100,55.053,0)="053-5 CHAR^FXO^^55A;11^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.053,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.053,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.053,"DT")="2900509"
^DD(2100,55.054,0)="054-5 CHAR^FXO^^55A;12^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.054,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.054,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.054,"DT")="2900509"
^DD(2100,55.055,0)="055-5 CHAR^FXO^^55A;13^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.055,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.055,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.055,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.055,"DT")="2900509"
^DD(2100,55.056,0)="056-5 CHAR^FXO^^55A;14^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.056,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.056,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.056,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.056,"DT")="2900509"
^DD(2100,55.057,0)="057-5 CHAR^FXO^^55A;15^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.057,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.057,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.057,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.057,"DT")="2900509"
^DD(2100,55.058,0)="058-5 CHAR^FXO^^55A;16^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.058,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.058,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.058,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.058,"DT")="2900509"
^DD(2100,55.059,0)="059-5 CHAR^FXO^^55A;17^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.059,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.059,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.059,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.059,"DT")="2900509"
^DD(2100,55.06,0)="060-5 CHAR^FXO^^55A;18^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.06,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.06,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.06,"DT")="2900509"
^DD(2100,55.061,0)="061-5 CHAR^FXO^^55A;19^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.061,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.061,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.061,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.061,"DT")="2900509"
^DD(2100,55.062,0)="062-5 CHAR^FXO^^55A;20^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.062,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.062,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.062,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.062,"DT")="2900509"
^DD(2100,55.063,0)="063-5 CHAR^FXO^^55A;21^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.063,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.063,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.063,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.063,"DT")="2900509"
^DD(2100,55.064,0)="064-5 CHAR^FXO^^55A;22^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.064,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.064,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.064,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.064,"DT")="2900509"
^DD(2100,55.065,0)="065-5 CHAR^FXO^^55A;23^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.065,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.065,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.065,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.065,"DT")="2900509"
^DD(2100,55.066,0)="066-5 CHAR^FXO^^55A;24^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.066,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.066,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.066,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.066,"DT")="2900509"
^DD(2100,55.067,0)="067-5 CHAR^FXO^^55A;25^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.067,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.067,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.067,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.067,"DT")="2900509"
^DD(2100,55.068,0)="068-5 CHAR^FXO^^55A;26^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.068,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.068,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.068,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.068,"DT")="2900509"
^DD(2100,55.069,0)="069-5 CHAR^FXO^^55A;27^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.069,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.069,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.069,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.069,"DT")="2900509"
^DD(2100,55.07,0)="070-5 CHAR^FXO^^55A;28^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.07,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.07,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.07,"DT")="2900509"
^DD(2100,55.071,0)="071-5 CHAR^FXO^^55A;29^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.071,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.071,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.071,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.071,"DT")="2900509"
^DD(2100,55.072,0)="072-5 CHAR^FXO^^55A;30^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.072,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.072,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.072,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.072,"DT")="2900509"
^DD(2100,55.073,0)="073-5 CHAR^FXO^^55A;31^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.073,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.073,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.073,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.073,"DT")="2900509"
^DD(2100,55.074,0)="074-5 CHAR^FXO^^55A;32^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.074,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.074,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.074,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.074,"DT")="2900509"
^DD(2100,55.075,0)="075-5 CHAR^FXO^^55A;33^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.075,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.075,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.075,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.075,"DT")="2900509"
^DD(2100,55.076,0)="076-5 CHAR^FXO^^55A;34^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.076,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.076,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.076,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.076,"DT")="2900509"
^DD(2100,55.077,0)="077-5 CHAR^FXO^^55A;35^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.077,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.077,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.077,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.077,"DT")="2900509"
^DD(2100,55.078,0)="078-5 CHAR^FXO^^55A;36^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.078,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.078,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.078,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.078,"DT")="2900509"
^DD(2100,55.079,0)="079-5 CHAR^FXO^^55A;37^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.079,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.079,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.079,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.079,"DT")="2900509"
^DD(2100,55.08,0)="080-5 CHAR^FXO^^55A;38^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,55.08,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.08,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,55.08,3)="Enter a whole number between 1 and 99999."
^DD(2100,55.08,"DT")="2900509"
^DD(2100,56.001,0)="001-6 CHAR^FXO^^56;1^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.001,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.001,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.001,"DT")="2900509"
^DD(2100,56.002,0)="002-6 CHAR^FXO^^56;2^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.002,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.002,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.002,"DT")="2900509"
^DD(2100,56.003,0)="003-6 CHAR^FXO^^56;3^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.003,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.003,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.003,"DT")="2900509"
^DD(2100,56.004,0)="004-6 CHAR^FXO^^56;4^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.004,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.004,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.004,"DT")="2900509"
^DD(2100,56.005,0)="005-6 CHAR^FXO^^56;5^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.005,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.005,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.005,"DT")="2900509"
^DD(2100,56.006,0)="006-6 CHAR^FXO^^56;6^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.006,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.006,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.006,"DT")="2900509"
^DD(2100,56.007,0)="007-6 CHAR^FXO^^56;7^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.007,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.007,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.007,"DT")="2900509"
^DD(2100,56.008,0)="008-6 CHAR^FXO^^56;8^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.008,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.008,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.008,"DT")="2900509"
^DD(2100,56.009,0)="009-6 CHAR^FXO^^56;9^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.009,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.009,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.009,"DT")="2900509"
^DD(2100,56.01,0)="010-6 CHAR^FXO^^56;10^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.01,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.01,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.01,"DT")="2900509"
^DD(2100,56.011,0)="011-6 CHAR^FXO^^56;11^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.011,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.011,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.011,"DT")="2900509"
^DD(2100,56.012,0)="012-6 CHAR^FXO^^56;12^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.012,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.012,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.012,"DT")="2900509"
^DD(2100,56.013,0)="013-6 CHAR^FXO^^56;13^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.013,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.013,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.013,"DT")="2900509"
^DD(2100,56.014,0)="014-6 CHAR^FXO^^56;14^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.014,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.014,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.014,"DT")="2900509"
^DD(2100,56.015,0)="015-6 CHAR^FXO^^56;15^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.015,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.015,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.015,"DT")="2900509"
^DD(2100,56.016,0)="016-6 CHAR^FXO^^56;16^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.016,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.016,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.016,"DT")="2900509"
^DD(2100,56.017,0)="017-6 CHAR^FXO^^56;17^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.017,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.017,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.017,"DT")="2900509"
^DD(2100,56.018,0)="018-6 CHAR^FXO^^56;18^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.018,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.018,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.018,"DT")="2900509"
^DD(2100,56.019,0)="019-6 CHAR^FXO^^56;19^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.019,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.019,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.019,"DT")="2900509"
^DD(2100,56.02,0)="020-6 CHAR^FXO^^56;20^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.02,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.02,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.02,"DT")="2900509"
^DD(2100,56.021,0)="021-6 CHAR^FXO^^56;21^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.021,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.021,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.021,"DT")="2900509"
^DD(2100,56.022,0)="022-6 CHAR^FXO^^56;22^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.022,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.022,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.022,"DT")="2900509"
^DD(2100,56.023,0)="023-6 CHAR^FXO^^56;23^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.023,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.023,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.023,"DT")="2900509"
^DD(2100,56.024,0)="024-6 CHAR^FXO^^56;24^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.024,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.024,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.024,"DT")="2900509"
^DD(2100,56.025,0)="025-6 CHAR^FXO^^56;25^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.025,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.025,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.025,"DT")="2900509"
^DD(2100,56.026,0)="026-6 CHAR^FXO^^56;26^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.026,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.026,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.026,"DT")="2900509"
^DD(2100,56.027,0)="027-6 CHAR^FXO^^56;27^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.027,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.027,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.027,"DT")="2900509"
^DD(2100,56.028,0)="028-6 CHAR^FXO^^56;28^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.028,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.028,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.028,"DT")="2900509"
^DD(2100,56.029,0)="029-6 CHAR^FXO^^56;29^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.029,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.029,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.029,"DT")="2900509"
^DD(2100,56.03,0)="030-6 CHAR^FXO^^56;30^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.03,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.03,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.03,"DT")="2900509"
^DD(2100,56.031,0)="031-6 CHAR^FXO^^56;31^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.031,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.031,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.031,"DT")="2900509"
^DD(2100,56.032,0)="032-6 CHAR^FXO^^56;32^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.032,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.032,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.032,"DT")="2900509"
^DD(2100,56.033,0)="033-6 CHAR^FXO^^56;33^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.033,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.033,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.033,"DT")="2900509"
^DD(2100,56.034,0)="034-6 CHAR^FXO^^56;34^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.034,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.034,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.034,"DT")="2900509"
^DD(2100,56.035,0)="035-6 CHAR^FXO^^56;35^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.035,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.035,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.035,"DT")="2900509"
^DD(2100,56.036,0)="036-6 CHAR^FXO^^56A;1^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.036,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.036,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.036,"DT")="2900509"
^DD(2100,56.037,0)="037-6 CHAR^FXO^^56A;2^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.037,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.037,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.037,"DT")="2900509"
^DD(2100,56.038,0)="038-6 CHAR^FXO^^56A;3^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.038,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.038,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.038,"DT")="2900509"
^DD(2100,56.039,0)="039-6 CHAR^FXO^^56A;4^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.039,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.039,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.039,"DT")="2900509"
^DD(2100,56.04,0)="040-6 CHAR^FXO^^56A;5^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.04,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.04,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.04,"DT")="2900509"
^DD(2100,56.041,0)="041-6 CHAR^FXO^^56A;6^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.041,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.041,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.041,"DT")="2900509"
^DD(2100,56.042,0)="042-6 CHAR^FXO^^56A;7^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.042,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.042,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.042,"DT")="2900509"
^DD(2100,56.043,0)="043-6 CHAR^FXO^^56A;8^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.043,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.043,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.043,"DT")="2900509"
^DD(2100,56.044,0)="044-6 CHAR^FXO^^56A;9^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.044,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.044,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.044,"DT")="2900509"
^DD(2100,56.045,0)="045-6 CHAR^FXO^^56A;10^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.045,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.045,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.045,"DT")="2900509"
^DD(2100,56.046,0)="046-6 CHAR^FXO^^56A;11^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.046,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.046,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.046,"DT")="2900509"
^DD(2100,56.047,0)="047-6 CHAR^FXO^^56A;12^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.047,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.047,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.047,"DT")="2900509"
^DD(2100,56.048,0)="048-6 CHAR^FXO^^56A;13^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.048,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.048,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.048,"DT")="2900509"
^DD(2100,56.049,0)="049-6 CHAR^FXO^^56A;14^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.049,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.049,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.049,"DT")="2900509"
^DD(2100,56.05,0)="050-6 CHAR^FXO^^56A;15^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.05,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.05,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.05,"DT")="2900509"
^DD(2100,56.051,0)="051-6 CHAR^FXO^^56A;16^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.051,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.051,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.051,"DT")="2900509"
^DD(2100,56.052,0)="052-6 CHAR^FXO^^56A;17^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.052,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.052,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.052,"DT")="2900509"
^DD(2100,56.053,0)="053-6 CHAR^FXO^^56A;18^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.053,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.053,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.053,"DT")="2900509"
^DD(2100,56.054,0)="054-6 CHAR^FXO^^56A;19^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.054,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.054,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.054,"DT")="2900509"
^DD(2100,56.055,0)="055-6 CHAR^FXO^^56A;20^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.055,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.055,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.055,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.055,"DT")="2900509"
^DD(2100,56.056,0)="056-6 CHAR^FXO^^56A;21^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.056,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.056,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.056,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.056,"DT")="2900509"
^DD(2100,56.057,0)="057-6 CHAR^FXO^^56A;22^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.057,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.057,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.057,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.057,"DT")="2900509"
^DD(2100,56.058,0)="058-6 CHAR^FXO^^56A;23^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.058,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.058,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.058,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.058,"DT")="2900509"
^DD(2100,56.059,0)="059-6 CHAR^FXO^^56A;24^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.059,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.059,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.059,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.059,"DT")="2900509"
^DD(2100,56.06,0)="060-6 CHAR^FXO^^56A;25^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.06,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.06,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.06,"DT")="2900509"
^DD(2100,56.061,0)="061-6 CHAR^FXO^^56A;26^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.061,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.061,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.061,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.061,"DT")="2900509"
^DD(2100,56.062,0)="062-6 CHAR^FXO^^56A;27^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.062,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.062,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.062,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.062,"DT")="2900509"
^DD(2100,56.063,0)="063-6 CHAR^FXO^^56A;28^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.063,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.063,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.063,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.063,"DT")="2900509"
^DD(2100,56.064,0)="064-6 CHAR^FXO^^56A;29^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.064,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.064,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.064,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.064,"DT")="2900509"
^DD(2100,56.065,0)="065-6 CHAR^FXO^^56A;30^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.065,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.065,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.065,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.065,"DT")="2900509"
^DD(2100,56.066,0)="066-6 CHAR^FXO^^56A;31^K:$L(X)>6!($L(X)<1)!'(X?1.6N) X"
^DD(2100,56.066,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.066,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,56.066,3)="Enter a whole number from 1 to 999999."
^DD(2100,56.066,"DT")="2900509"
^DD(2100,57.001,0)="001-2 CHAR^FXO^^57;1^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.001,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.001,3)="Enter a whole number between 1 and 99."
^DD(2100,57.001,"DT")="2900509"
^DD(2100,57.002,0)="002-2 CHAR^FXO^^57;2^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.002,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.002,3)="Enter a whole number between 1 and 99."
^DD(2100,57.002,"DT")="2900509"
^DD(2100,57.003,0)="003-2 CHAR^FXO^^57;3^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.003,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.003,3)="Enter a whole number between 1 and 99."
^DD(2100,57.003,"DT")="2900509"
^DD(2100,57.004,0)="004-2 CHAR^FXO^^57;4^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.004,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.004,3)="Enter a whole number between 1 and 99."
^DD(2100,57.004,"DT")="2900509"
^DD(2100,57.005,0)="005-2 CHAR^FXO^^57;5^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.005,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.005,3)="Enter a whole number between 1 and 99."
^DD(2100,57.005,"DT")="2900509"
^DD(2100,57.006,0)="006-2 CHAR^FXO^^57;6^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.006,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.006,3)="Enter a whole number between 1 and 99."
^DD(2100,57.006,"DT")="2900509"
^DD(2100,57.007,0)="007-2 CHAR^FXO^^57;7^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.007,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.007,3)="Enter a whole number between 1 and 99."
^DD(2100,57.007,"DT")="2900509"
^DD(2100,57.008,0)="008-2 CHAR^FXO^^57;8^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.008,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.008,3)="Enter a whole number between 1 and 99."
^DD(2100,57.008,"DT")="2900509"
^DD(2100,57.009,0)="009-2 CHAR^FXO^^57;9^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.009,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.009,3)="Enter a whole number between 1 and 99."
^DD(2100,57.009,"DT")="2900509"
^DD(2100,57.01,0)="010-2 CHAR^FXO^^57;10^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.01,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.01,3)="Enter a whole number between 1 and 99."
^DD(2100,57.01,"DT")="2900509"
^DD(2100,57.011,0)="011-2 CHAR^FXO^^57;11^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.011,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.011,3)="Enter a whole number between 1 and 99."
^DD(2100,57.011,"DT")="2900509"
^DD(2100,57.012,0)="012-2 CHAR^FXO^^57;12^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.012,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.012,3)="Enter a whole number between 1 and 99."
^DD(2100,57.012,"DT")="2900509"
^DD(2100,57.013,0)="013-2 CHAR^FXO^^57;13^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.013,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.013,3)="Enter a whole number between 1 and 99."
^DD(2100,57.013,"DT")="2900509"
^DD(2100,57.014,0)="014-2 CHAR^FXO^^57;14^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.014,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.014,3)="Enter a whole number between 1 and 99."
^DD(2100,57.014,"DT")="2900509"
^DD(2100,57.015,0)="015-2 CHAR^FXO^^57;15^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.015,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.015,3)="Enter a whole number between 1 and 99."
^DD(2100,57.015,"DT")="2900509"
^DD(2100,57.016,0)="016-2 CHAR^FXO^^57;16^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.016,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.016,3)="Enter a whole number between 1 and 99."
^DD(2100,57.016,"DT")="2900509"
^DD(2100,57.017,0)="017-2 CHAR^FXO^^57;17^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.017,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.017,3)="Enter a whole number between 1 and 99."
^DD(2100,57.017,"DT")="2900509"
^DD(2100,57.018,0)="018-2 CHAR^FXO^^57;18^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.018,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.018,3)="Enter a whole number between 1 and 99."
^DD(2100,57.018,"DT")="2900509"
^DD(2100,57.019,0)="019-2 CHAR^FXO^^57;19^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.019,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.019,3)="Enter a whole number between 1 and 99."
^DD(2100,57.019,"DT")="2900509"
^DD(2100,57.02,0)="020-2 CHAR^FXO^^57;20^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.02,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.02,3)="Enter a whole number between 1 and 99."
^DD(2100,57.02,"DT")="2900509"
^DD(2100,57.021,0)="021-2 CHAR^FXO^^57;21^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.021,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.021,3)="Enter a whole number between 1 and 99."
^DD(2100,57.021,"DT")="2900509"
^DD(2100,57.022,0)="022-2 CHAR^FXO^^57;22^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.022,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.022,3)="Enter a whole number between 1 and 99."
^DD(2100,57.022,"DT")="2900509"
^DD(2100,57.023,0)="023-2 CHAR^FXO^^57;23^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.023,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.023,3)="Enter a whole number between 1 and 99."
^DD(2100,57.023,"DT")="2900509"
^DD(2100,57.024,0)="024-2 CHAR^FXO^^57;24^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.024,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.024,3)="Enter a whole number between 1 and 99."
^DD(2100,57.024,"DT")="2900509"
^DD(2100,57.025,0)="025-2 CHAR^FXO^^57;25^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.025,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.025,3)="Enter a whole number between 1 and 99."
^DD(2100,57.025,"DT")="2900509"
^DD(2100,57.026,0)="026-2 CHAR^FXO^^57;26^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.026,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.026,3)="Enter a whole number between 1 and 99."
^DD(2100,57.026,"DT")="2900509"
^DD(2100,57.027,0)="027-2 CHAR^FXO^^57;27^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.027,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.027,3)="Enter a whole number between 1 and 99."
^DD(2100,57.027,"DT")="2900509"
^DD(2100,57.028,0)="028-2 CHAR^FXO^^57;28^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.028,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.028,3)="Enter a whole number between 1 and 99."
^DD(2100,57.028,"DT")="2900509"
^DD(2100,57.029,0)="029-2 CHAR^FXO^^57;29^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.029,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.029,3)="Enter a whole number between 1 and 99."
^DD(2100,57.029,"DT")="2900509"
^DD(2100,57.03,0)="030-2 CHAR^FXO^^57;30^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.03,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.03,3)="Enter a whole number between 1 and 99."
^DD(2100,57.03,"DT")="2900509"
^DD(2100,57.031,0)="031-2 CHAR^FXO^^57;31^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.031,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.031,3)="Enter a whole number between 1 and 99."
^DD(2100,57.031,"DT")="2900509"
^DD(2100,57.032,0)="032-2 CHAR^FXO^^57;32^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.032,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.032,3)="Enter a whole number between 1 and 99."
^DD(2100,57.032,"DT")="2900509"
^DD(2100,57.033,0)="033-2 CHAR^FXO^^57;33^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.033,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.033,3)="Enter a whole number between 1 and 99."
^DD(2100,57.033,"DT")="2900509"
^DD(2100,57.034,0)="034-2 CHAR^FXO^^57;34^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.034,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.034,3)="Enter a whole number between 1 and 99."
^DD(2100,57.034,"DT")="2900509"
^DD(2100,57.035,0)="035-2 CHAR^FXO^^57;35^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.035,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.035,3)="Enter a whole number between 1 and 99."
^DD(2100,57.035,"DT")="2900509"
^DD(2100,57.036,0)="036-2 CHAR^FXO^^57;36^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.036,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.036,3)="Enter a whole number between 1 and 99."
^DD(2100,57.036,"DT")="2900509"
^DD(2100,57.037,0)="037-2 CHAR^FXO^^57;37^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.037,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.037,3)="Enter a whole number between 1 and 99."
^DD(2100,57.037,"DT")="2900509"
^DD(2100,57.038,0)="038-2 CHAR^FXO^^57;38^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.038,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.038,3)="Enter a whole number between 1 and 99."
^DD(2100,57.038,"DT")="2900509"
^DD(2100,57.039,0)="039-2 CHAR^FXO^^57;39^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.039,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.039,3)="Enter a whole number between 1 and 99."
^DD(2100,57.039,"DT")="2900509"
^DD(2100,57.04,0)="040-2 CHAR^FXO^^57;40^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.04,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.04,3)="Enter a whole number between 1 and 99."
^DD(2100,57.04,"DT")="2900509"
^DD(2100,57.041,0)="041-2 CHAR^FXO^^57;41^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.041,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.041,3)="Enter a whole number between 1 and 99."
^DD(2100,57.041,"DT")="2900509"
^DD(2100,57.042,0)="042-2 CHAR^FXO^^57;42^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.042,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.042,3)="Enter a whole number between 1 and 99."
^DD(2100,57.042,"DT")="2900509"
^DD(2100,57.043,0)="043-2 CHAR^FXO^^57;43^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.043,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.043,3)="Enter a whole number between 1 and 99."
^DD(2100,57.043,"DT")="2900509"
^DD(2100,57.044,0)="044-2 CHAR^FXO^^57;44^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.044,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.044,3)="Enter a whole number between 1 and 99."
^DD(2100,57.044,"DT")="2900509"
^DD(2100,57.045,0)="045-2 CHAR^FXO^^57;45^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.045,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.045,3)="Enter a whole number between 1 and 99."
^DD(2100,57.045,"DT")="2900509"
^DD(2100,57.046,0)="046-2 CHAR^FXO^^57;46^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.046,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.046,3)="Enter a whole number between 1 and 99."
^DD(2100,57.046,"DT")="2900509"
^DD(2100,57.047,0)="047-2 CHAR^FXO^^57;47^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.047,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.047,3)="Enter a whole number between 1 and 99."
^DD(2100,57.047,"DT")="2900509"
^DD(2100,57.048,0)="048-2 CHAR^FXO^^57;48^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.048,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.048,3)="Enter a whole number between 1 and 99."
^DD(2100,57.048,"DT")="2900509"
^DD(2100,57.049,0)="049-2 CHAR^FXO^^57;49^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.049,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.049,3)="Enter a whole number between 1 and 99."
^DD(2100,57.049,"DT")="2900509"
^DD(2100,57.05,0)="050-2 CHAR^FXO^^57;50^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.05,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.05,3)="Enter a whole number between 1 and 99."
^DD(2100,57.05,"DT")="2900509"
^DD(2100,57.051,0)="051-2 CHAR^FXO^^57;51^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.051,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.051,3)="Enter a whole number between 1 and 99."
^DD(2100,57.051,"DT")="2900509"
^DD(2100,57.052,0)="052-2 CHAR^FXO^^57;52^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.052,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.052,3)="Enter a whole number between 1 and 99."
^DD(2100,57.052,"DT")="2900509"
^DD(2100,57.053,0)="053-2 CHAR^FXO^^57;53^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.053,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.053,3)="Enter a whole number between 1 and 99."
^DD(2100,57.053,"DT")="2900509"
^DD(2100,57.054,0)="054-2 CHAR^FXO^^57;54^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.054,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.054,3)="Enter a whole number between 1 and 99."
^DD(2100,57.054,"DT")="2900509"
^DD(2100,57.055,0)="055-2 CHAR^FXO^^57;55^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.055,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.055,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.055,3)="Enter a whole number between 1 and 99."
^DD(2100,57.055,"DT")="2900509"
^DD(2100,57.056,0)="056-2 CHAR^FXO^^57;56^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.056,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.056,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.056,3)="Enter a whole number between 1 and 99."
^DD(2100,57.056,"DT")="2900509"
^DD(2100,57.057,0)="057-2 CHAR^FXO^^57;57^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.057,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.057,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.057,3)="Enter a whole number between 1 and 99."
^DD(2100,57.057,"DT")="2900509"
^DD(2100,57.058,0)="058-2 CHAR^FXO^^57;58^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.058,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.058,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.058,3)="Enter a whole number between 1 and 99."
^DD(2100,57.058,"DT")="2900509"
^DD(2100,57.059,0)="059-2 CHAR^FXO^^57;59^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.059,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.059,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.059,3)="Enter a whole number between 1 and 99."
^DD(2100,57.059,"DT")="2900509"
^DD(2100,57.06,0)="060-2 CHAR^FXO^^57;60^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.06,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.06,3)="Enter a whole number between 1 and 99."
^DD(2100,57.06,"DT")="2900509"
^DD(2100,57.061,0)="061-2 CHAR^FXO^^57;61^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.061,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.061,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.061,3)="Enter a whole number between 1 and 99."
^DD(2100,57.061,"DT")="2900509"
^DD(2100,57.062,0)="062-2 CHAR^FXO^^57;62^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.062,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.062,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.062,3)="Enter a whole number between 1 and 99."
^DD(2100,57.062,"DT")="2900509"
^DD(2100,57.063,0)="063-2 CHAR^FXO^^57;63^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.063,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.063,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.063,3)="Enter a whole number between 1 and 99."
^DD(2100,57.063,"DT")="2900509"
^DD(2100,57.064,0)="064-2 CHAR^FXO^^57;64^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.064,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.064,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.064,3)="Enter a whole number between 1 and 99."
^DD(2100,57.064,"DT")="2900509"
^DD(2100,57.065,0)="065-2 CHAR^FXO^^57;65^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.065,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.065,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.065,3)="Enter a whole number between 1 and 99."
^DD(2100,57.065,"DT")="2900509"
^DD(2100,57.066,0)="066-2 CHAR^FXO^^57;66^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.066,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.066,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.066,3)="Enter a whole number between 1 and 99."
^DD(2100,57.066,"DT")="2900509"
^DD(2100,57.067,0)="067-2 CHAR^FXO^^57;67^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.067,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.067,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.067,3)="Enter a whole number between 1 and 99."
^DD(2100,57.067,"DT")="2900509"
^DD(2100,57.068,0)="068-2 CHAR^FXO^^57;68^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.068,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.068,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.068,3)="Enter a whole number between 1 and 99."
^DD(2100,57.068,"DT")="2900509"
^DD(2100,57.069,0)="069-2 CHAR^FXO^^57;69^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.069,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.069,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.069,3)="Enter a whole number between 1 and 99."
^DD(2100,57.069,"DT")="2900509"
^DD(2100,57.07,0)="070-2 CHAR^FXO^^57;70^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.07,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.07,3)="Enter a whole number between 1 and 99."
^DD(2100,57.07,"DT")="2900509"
^DD(2100,57.071,0)="071-2 CHAR^FXO^^57;71^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.071,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.071,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.071,3)="Enter a whole number between 1 and 99."
^DD(2100,57.071,"DT")="2900509"
^DD(2100,57.072,0)="072-2 CHAR^FXO^^57;72^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.072,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.072,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.072,3)="Enter a whole number between 1 and 99."
^DD(2100,57.072,"DT")="2900509"
^DD(2100,57.073,0)="073-2 CHAR^FXO^^57;73^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.073,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.073,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.073,3)="Enter a whole number between 1 and 99."
^DD(2100,57.073,"DT")="2900509"
^DD(2100,57.074,0)="074-2 CHAR^FXO^^57;74^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.074,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.074,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.074,3)="Enter a whole number between 1 and 99."
^DD(2100,57.074,"DT")="2900509"
^DD(2100,57.075,0)="075-2 CHAR^FXO^^57;75^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.075,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.075,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.075,3)="Enter a whole number between 1 and 99."
^DD(2100,57.075,"DT")="2900509"
^DD(2100,57.076,0)="076-2 CHAR^FXO^^57;76^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.076,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.076,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.076,3)="Enter a whole number between 1 and 99."
^DD(2100,57.076,"DT")="2900509"
^DD(2100,57.077,0)="077-2 CHAR^FXO^^57;77^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.077,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.077,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.077,3)="Enter a whole number between 1 and 99."
^DD(2100,57.077,"DT")="2900509"
^DD(2100,57.078,0)="078-2 CHAR^FXO^^57;78^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.078,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.078,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.078,3)="Enter a whole number between 1 and 99."
^DD(2100,57.078,"DT")="2900509"
^DD(2100,57.079,0)="079-2 CHAR^FXO^^57;79^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.079,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.079,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.079,3)="Enter a whole number between 1 and 99."
^DD(2100,57.079,"DT")="2900509"
^DD(2100,57.08,0)="080-2 CHAR^FXO^^57;80^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.08,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.08,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.08,3)="Enter a whole number between 1 and 99."
^DD(2100,57.08,"DT")="2900509"
^DD(2100,57.081,0)="081-2 CHAR^FXO^^57A;1^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.081,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.081,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.081,3)="Enter a whole number between 1 and 99."
^DD(2100,57.081,"DT")="2900509"
^DD(2100,57.082,0)="082-2 CHAR^FXO^^57A;2^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.082,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.082,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.082,3)="Enter a whole number between 1 and 99."
^DD(2100,57.082,"DT")="2900509"
^DD(2100,57.083,0)="083-2 CHAR^FXO^^57A;3^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.083,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.083,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.083,3)="Enter a whole number between 1 and 99."
^DD(2100,57.083,"DT")="2900509"
^DD(2100,57.084,0)="084-2 CHAR^FXO^^57A;4^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.084,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.084,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.084,3)="Enter a whole number between 1 and 99."
^DD(2100,57.084,"DT")="2900509"
^DD(2100,57.085,0)="085-2 CHAR^FXO^^57A;5^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.085,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.085,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.085,3)="Enter a whole number between 1 and 99."
^DD(2100,57.085,"DT")="2900509"
^DD(2100,57.086,0)="086-2 CHAR^FXO^^57A;6^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.086,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.086,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.086,3)="Enter a whole number between 1 and 99."
^DD(2100,57.086,"DT")="2900509"
^DD(2100,57.087,0)="087-2 CHAR^FXO^^57A;7^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.087,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.087,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.087,3)="Enter a whole number between 1 and 99."
^DD(2100,57.087,"DT")="2900918"
^DD(2100,57.088,0)="088-2 CHAR^FXO^^57A;8^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.088,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.088,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.088,3)="Enter a whole number between 1 and 99."
^DD(2100,57.088,"DT")="2900918"
^DD(2100,57.089,0)="089-2 CHAR^FXO^^57A;9^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.089,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.089,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.089,3)="Enter a whole number between 1 and 99."
^DD(2100,57.089,"DT")="2900509"
^DD(2100,57.09,0)="090-2 CHAR^FXO^^57A;10^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.09,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.09,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.09,3)="Enter a whole number between 1 and 99."
^DD(2100,57.09,"DT")="2900509"
^DD(2100,57.091,0)="091-2 CHAR^FXO^^57A;11^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.091,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.091,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.091,3)="Enter a whole number between 1 and 99."
^DD(2100,57.091,"DT")="2900509"
^DD(2100,57.092,0)="092-2 CHAR^FXO^^57A;12^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.092,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.092,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.092,3)="Enter a whole number between 1 and 99."
^DD(2100,57.092,"DT")="2900509"
^DD(2100,57.093,0)="093-2 CHAR^FXO^^57A;13^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.093,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.093,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.093,3)="Enter a whole number between 1 and 99."
^DD(2100,57.093,"DT")="2900509"
^DD(2100,57.094,0)="094-2 CHAR^FXO^^57A;14^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.094,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.094,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.094,3)="Enter a whole number between 1 and 99."
^DD(2100,57.094,"DT")="2900509"
^DD(2100,57.095,0)="095-2 CHAR^FXO^^57A;15^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,57.095,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.095,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,57.095,3)="Enter a whole number between 1 and 99."
^DD(2100,57.095,"DT")="2900509"
^DD(2100,58.014,0)="014-7 CHAR^FXO^^58;1^K:$L(X)>7!($L(X)<1)!'(X?1.7N) X"
^DD(2100,58.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,58.014,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,58.014,3)="Enter a whole number from 1 to 9999999."
^DD(2100,58.014,"DT")="2900509"
^DD(2100,58.039,0)="039-7 CHAR^FXO^^58;2^K:$L(X)>7!($L(X)<1)!'(X?1.7N) X"
^DD(2100,58.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,58.039,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,58.039,3)="Enter a whole number from 1 to 9999999."
^DD(2100,58.039,"DT")="2900509"
^DD(2100,59.094,0)="094-8 CHAR^FXO^^59;1^K:$L(X)>8!($L(X)<1)!'(X?1.8N) X"
^DD(2100,59.094,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,59.094,2.1)="I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,59.094,3)="Enter a whole number from 1 to 99999999."
^DD(2100,59.094,"DT")="2900509"
^DD(2100,99,0)="AUTOMATIC TERMINATOR^F^^0;12^K:$L(X)>1!($L(X)<1)!'(X?1""$"") X"
^DD(2100,99,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(2100,99,21,0)="^^1^1^2890427^"
^DD(2100,99,21,1,0)="The terminating character used to indicate the end of the code sheet."
^DD(2100,99,"DT")="2881019"
^DD(2100,200,0)="FACILITY NUMBER^RFO^^VOLUVOL2;1^K:$L(X)>4!($L(X)<3)!'(X?3N!(X?3N1U)) X"
^DD(2100,200,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""    "",1,4-$L(Y))"
^DD(2100,200,2.1)="I $D(GECSOT) S Y=Y_$E(""    "",1,4-$L(Y))"
^DD(2100,200,3)="ANSWER MUST BE 3-4 CHARACTERS IN LENGTH"
^DD(2100,200,"DT")="2900712"
^DD(2100,201,0)="PSEUDO INDICATOR^FO^^VOLUVOL2;2^K:$L(X)>1!($L(X)<1)!'(X?1""P"") X"
^DD(2100,201,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,201,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,201,3)="ENTER A 'P' TO INDICATE PSEUDO SSN"
^DD(2100,201,"DT")="2900712"
^DD(2100,202,0)="SOCIAL SECURITY NUMBER^RFO^^VOLUVOL2;3^K:$L(X)>9!($L(X)<9)!'(X?9N) X"
^DD(2100,202,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,202,2.1)="I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,202,3)="ENTER SSN IN THE FOLLOWING FORMAT ie. 123456789"
^DD(2100,202,"DT")="2900712"
^DD(2100,203,0)="STREET ADDRESS^FO^^VOLUVOL2;4^K:$L(X)>19!($L(X)<1) X"
^DD(2100,203,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                   "",1,19-$L(Y))"
^DD(2100,203,2.1)="I $D(GECSOT) S Y=Y_$E(""                   "",1,19-$L(Y))"
^DD(2100,203,3)="ANSWER MUST BE 1-19 CHARACTERS IN LENGTH"
^DD(2100,203,"DT")="2900712"
^DD(2100,204,0)="CITY^FO^^VOLUVOL2;5^K:$L(X)>15!($L(X)<1) X"
^DD(2100,204,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""               "",1,15-$L(Y))"
^DD(2100,204,2.1)="I $D(GECSOT) S Y=Y_$E(""               "",1,15-$L(Y))"
^DD(2100,204,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(2100,204,"DT")="2900712"
^DD(2100,205,0)="STATE^FO^^VOLUVOL2;6^K:$L(X)>2!($L(X)<2)!'(X?2U) X"
^DD(2100,205,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""  "",1,2-$L(Y))"
^DD(2100,205,2.1)="I $D(GECSOT) S Y=Y_$E(""  "",1,2-$L(Y))"
^DD(2100,205,3)="ENTER STATE ABBREVIATION ie. PENNSYLVANIA = PA"
^DD(2100,205,"DT")="2900712"
^DD(2100,206,0)="ZIP CODE^FO^^VOLUVOL2;7^K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(2100,206,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,206,2.1)="I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,206,3)="ENTER WITH 5 DIGIT ZIP OR 9 DIGIT ZIP (WITHOUT DASH)"
^DD(2100,206,"DT")="2900712"
^DD(2100,207,0)="SEX^SO^M:MALE;B:BOY;F:FEMALE;G:GIRL;^VOLUVOL2;8^Q"
^DD(2100,207,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,207,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,207,"DT")="2900712"
^DD(2100,208,0)="BIRTH DATE^DO^^VOLUVOL2;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,208,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,2,3)_$E(""    "",1,4-$L(Y))"
^DD(2100,208,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,2,3)_$E(""    "",1,4-$L(Y))"
^DD(2100,208,3)="ENTER STANDARD FILEMANAGER DATE."
^DD(2100,208,"DT")="2980706"
^DD(2100,209,0)="ENTRY DATE^DO^^VOLUVOL2;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,209,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,2,3)_$E(""    "",1,4-$L(Y))"
^DD(2100,209,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,2,3)_$E(""    "",1,4-$L(Y))"
^DD(2100,209,3)="ENTER STANDARD FIMEMANAGER DATE. COMPUTER WILL CONVERT FOR CODE SHEET."
^DD(2100,209,"DT")="2980706"
^DD(2100,210,0)="TERMINATION DATE^DO^^VOLUVOL2;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,210,2)="S Y(0)=Y I $D(GECSOT),Y]"""" S Y=""                                                      ""_$E(Y,4,5)_$E(Y,2,3)"
^DD(2100,210,2.1)="I $D(GECSOT),Y]"""" S Y=""                                                      ""_$E(Y,4,5)_$E(Y,2,3)"
^DD(2100,210,3)="ENTER STANDARD FILEMANAGER DATE. COMPUTER WILL CONVERT FOR CODE SHEET."
^DD(2100,210,"DT")="2901107"
^DD(2100,211,0)="COMBINATION 1^FO^^VOLUVOL2;12^K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8""*"")) X"
^DD(2100,211,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,211,2.1)="I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,211,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(2100,211,"DT")="2890130"
^DD(2100,212,0)="COMBINATION 2^FO^^VOLUVOL2;13^K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8""*"")) X"
^DD(2100,212,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,212,2.1)="I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,212,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(2100,212,"DT")="2890130"
^DD(2100,213,0)="COMBINATION 3^FO^^VOLUVOL2;14^K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8""*"")) X"
^DD(2100,213,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,213,2.1)="I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,213,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(2100,213,"DT")="2890130"
^DD(2100,214,0)="COMBINATION 4^FO^^VOLUVOL2;15^K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8""*"")) X"
^DD(2100,214,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,214,2.1)="I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,214,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(2100,214,"DT")="2890130"
^DD(2100,215,0)="COMBINATION 5^FO^^VOLUVOL2;16^K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8""*"")) X"
^DD(2100,215,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,215,2.1)="I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,215,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(2100,215,"DT")="2890130"
^DD(2100,216,0)="COMBINATION 6^FO^^VOLUVOL2;17^K:$L(X)>8!($L(X)<7)!'(X?3N1E3N!(X?3N1E3N1U)!(X?8""*"")) X"
^DD(2100,216,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,216,2.1)="I $D(GECSOT) S Y=Y_$E(""        "",1,8-$L(Y))"
^DD(2100,216,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(2100,216,"DT")="2890130"
^DD(2100,217,0)="YEARS OF SERVICE^FO^^VOLUVOL2;18^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,217,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,217,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,217,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(2100,217,"DT")="2901105"
^DD(2100,218,0)="TOTAL CUM HOURS^FO^^VOLUVOL2;19^K:$L(X)>5!($L(X)<1)!'(X?1.5N) X"
^DD(2100,218,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y]"""":$E(""00000"",$L(Y)+1,5)_Y,1:Y_$E(""     "",1,5-$L(Y)))"
^DD(2100,218,2.1)="I $D(GECSOT) S Y=$S(Y]"""":$E(""00000"",$L(Y)+1,5)_Y,1:Y_$E(""     "",1,5-$L(Y)))"
^DD(2100,218,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(2100,218,"DT")="2900712"
^DD(2100,219,0)="LAST AWARD HOURS^FO^^VOLUVOL2;20^K:$L(X)>5!($L(X)<2)!'(X?2.5N) X"
^DD(2100,219,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y]"""":$E(""00000"",$L(Y)+1,5)_Y,1:Y_$E(""     "",1,5-$L(Y)))"
^DD(2100,219,2.1)="I $D(GECSOT) S Y=$S(Y]"""":$E(""00000"",$L(Y)+1,5)_Y,1:Y_$E(""     "",1,5-$L(Y)))"
^DD(2100,219,3)="ANSWER MUST BE 2-5 CHARACTERS IN LENGTH"
^DD(2100,219,"DT")="2900307"
^DD(2100,220,0)="LAST AWARD MO/YR^FO^^VOLUVOL2;21^K:$L(X)>4!($L(X)<3)!'(X?3.4N) X"
^DD(2100,220,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y]"""":$E(""0000"",$L(Y)+1,4)_Y,1:Y_$E(""    "",1,4-$L(Y)))"
^DD(2100,220,2.1)="I $D(GECSOT) S Y=$S(Y]"""":$E(""0000"",$L(Y)+1,4)_Y,1:Y_$E(""    "",1,4-$L(Y)))"
^DD(2100,220,3)="ENTER MONTH YEAR OF AWARD WITHOUT DASH. ie. 189 FOR JAN 1989"
^DD(2100,220,"DT")="2901105"
^DD(2100,221,0)="LAST NAME^FO^^VOLUVOL2;22^K:$L(X)>14!($L(X)<3) X"
^DD(2100,221,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""              "",1,14-$L(Y))"
^DD(2100,221,2.1)="I $D(GECSOT) S Y=Y_$E(""              "",1,14-$L(Y))"
^DD(2100,221,3)="ANSWER MUST BE 3-14 CHARACTERS IN LENGTH"
^DD(2100,221,"DT")="2900712"
^DD(2100,222,0)="FIRST NAME^FO^^VOLUVOL2;23^K:$L(X)>10!($L(X)<3) X"
^DD(2100,222,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",1,10-$L(Y))"
^DD(2100,222,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",1,10-$L(Y))"
^DD(2100,222,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(2100,222,"DT")="2900712"
^DD(2100,223,0)="TERMINATION STARS^FO^^VOLUVOL2;24^K:$L(X)>6!($L(X)<1)!'(X?1.6""*"") X"
^DD(2100,223,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""                                                          "",1,58-$L(Y))_Y"
^DD(2100,223,2.1)="I $D(GECSOT) S Y=$E(""                                                          "",1,58-$L(Y))_Y"
^DD(2100,223,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(2100,223,"DT")="2900712"
^DD(2100,224,0)="C&A STATION NUMBER^RFO^^PRCCCA2;1^K:$L(X)>4!($L(X)<3)!'(X?3N) X"
^DD(2100,224,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,224,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,224,3)="Enter 3 Digit station number"
^DD(2100,224,"DT")="2901022"
^DD(2100,225,0)="IDENTIFICATION NUMBER^RFO^^PRCCCA2;2^K:$L(X)>9!($L(X)<3) X"
^DD(2100,225,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,225,2.1)="I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,225,3)="Enter Participants SSN or Employee Identification Number (corporation tax number)"
^DD(2100,225,"DT")="2900712"
^DD(2100,226,0)="NAME CODE^RF^^PRCCCA2;3^K:$L(X)>3!($L(X)<3) X"
^DD(2100,226,3)="Enter Participants name code.  First initial of first name followed by a space followed by first initial of middle name.  if no middle name leave blank. ie C (space) T or C (space) (space)"
^DD(2100,226,"DT")="2900411"
^DD(2100,227,0)="DAY NUMBER^RFO^^PRCCCA2;4^K:$L(X)>3!($L(X)<1)!'(X?3N) X"
^DD(2100,227,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,227,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,227,3)="Enter Julian day number"
^DD(2100,227,"DT")="2900712"
^DD(2100,228,0)="TRANS TYPE^RF^^PRCCCA2;5^K:$L(X)>2!($L(X)<2)!'(X=""D1""!(X=""D2"")!(X=""D3"")!(X=""DB"")) X"
^DD(2100,228,3)="Enter D1, D2, D3 or DB."
^DD(2100,228,"DT")="2900412"
^DD(2100,229,0)="ACTION^RF^^PRCCCA2;6^K:$L(X)>1!($L(X)<1)!'(X?1""C""!(X?1""R"")!(X?1""T"")!(X?1""A"")) X"
^DD(2100,229,3)="Enter Action Code: A=Accession, C=Change, R=Renewal or T=Termination"
^DD(2100,229,"DT")="2900411"
^DD(2100,230,0)="DECIMAL SUFFIX^FO^^PRCCCA2;7^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(2100,230,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y=Y_$E(""   "",1,3-$L(Y))"
^DD(2100,230,2.1)="I $D(GECSOT) S:Y="""" Y=Y_$E(""   "",1,3-$L(Y))"
^DD(2100,230,3)="Enter 3 digit suffix assigned by the Austin DPC."
^DD(2100,230,"DT")="2900712"
^DD(2100,231,0)="PARTICIPANT'S NAME^FO^^PRCCCA2;8^K:$L(X)>17!($L(X)<4)!'(X?4.17A!(X?1A1"" ""1.15A)) X"
^DD(2100,231,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                 "",1,17-$L(Y))"
^DD(2100,231,2.1)="I $D(GECSOT) S Y=Y_$E(""                 "",1,17-$L(Y))"
^DD(2100,231,3)="Answer must be 4-17 characters in length."
^DD(2100,231,"DT")="2901030"
^DD(2100,232,0)="C&A TITLE^SO^1:MD;2:DPM;3:DO;4:PH.D;5:DDS;6:DVM;7:RN;8:OD;9:DMD;^PRCCCA2;9^Q"
^DD(2100,232,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,232,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,232,3)=""
^DD(2100,232,"DT")="2901030"
^DD(2100,233,0)="C&A TYPE^SO^C:CONSULTANT;A:ATTENDING;^PRCCCA2;10^Q"
^DD(2100,233,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,233,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,233,3)=""
^DD(2100,233,"DT")="2901030"
^DD(2100,234,0)="DATE OF APPOINTMENT^FO^^PRCCCA2;11^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(2100,234,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""     "",$L(Y)+1,5)_Y"
^DD(2100,234,2.1)="I $D(GECSOT) S Y=$E(""     "",$L(Y)+1,5)_Y"
^DD(2100,234,3)="Answer must be 5 characters in length."
^DD(2100,234,"DT")="2901030"
^DD(2100,235,0)="OCCUPATION SERIES^FO^^PRCCCA2;12^K:$L(X)>8!($L(X)<8) X"
^DD(2100,235,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""        "",$L(Y)+1,8)_Y"
^DD(2100,235,2.1)="I $D(GECSOT) S Y=$E(""        "",$L(Y)+1,8)_Y"
^DD(2100,235,3)="Answer must be 8 characters in length."
^DD(2100,235,"DT")="2901030"
^DD(2100,236,0)="ADDRESS LINE 1^FO^^PRCCCA2;13^K:$L(X)>23!($L(X)<2) X"
^DD(2100,236,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                       "",1,23-$L(Y))"
^DD(2100,236,2.1)="I $D(GECSOT) S Y=Y_$E(""                       "",1,23-$L(Y))"
^DD(2100,236,3)="Answer must be 2-23 characters in length."
^DD(2100,236,"DT")="2900712"
^DD(2100,237,0)="ADDRESS LINE 2^FO^^PRCCCA2;14^K:$L(X)>23!($L(X)<2) X"
^DD(2100,237,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                       "",1,23-$L(Y))"
^DD(2100,237,2.1)="I $D(GECSOT) S Y=Y_$E(""                       "",1,23-$L(Y))"
^DD(2100,237,3)="Answer must be 2-23 characters in length."
^DD(2100,237,"DT")="2900712"
^DD(2100,238,0)="C&A CITY^FO^^PRCCCA2;15^K:$L(X)>13!($L(X)<3) X"
^DD(2100,238,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""             "",1,13-$L(Y))"
^DD(2100,238,2.1)="I $D(GECSOT) S Y=Y_$E(""             "",1,13-$L(Y))"
^DD(2100,238,3)="Answer must be 3-13 characters in length."
^DD(2100,238,"DT")="2901030"
^DD(2100,239,0)="C&A STATE^FO^^PRCCCA2;16^K:$L(X)>2!($L(X)<2)!'(X?2A) X"
^DD(2100,239,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,239,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,239,3)="Answer must be 2 characters in length."
^DD(2100,239,"DT")="2901030"
^DD(2100,240,0)="C&A ZIP CODE^FO^^PRCCCA2;17^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(2100,240,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""     "",$L(Y)+1,5)_Y"
^DD(2100,240,2.1)="I $D(GECSOT) S Y=$E(""     "",$L(Y)+1,5)_Y"
^DD(2100,240,3)="Answer must be 5 characters in length."
^DD(2100,240,"DT")="2901030"
^DD(2100,241,0)="COST CENTER^FO^^PRCCCA2;18^K:$L(X)>6!($L(X)<6)!'(X?4N1""00"") X"
^DD(2100,241,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y]"""":Y_""00"",1:$E(""      "",$L(Y)+1,6)),Y=$E(Y,1,6)"
^DD(2100,241,2.1)="I $D(GECSOT) S Y=$S(Y]"""":Y_""00"",1:$E(""      "",$L(Y)+1,6)),Y=$E(Y,1,6)"
^DD(2100,241,3)="Answer must be 6 characters in length."
^DD(2100,241,"DT")="2901106"
^DD(2100,242,0)="SUB ACCOUNT^NJ4,0^^PRCCCA2;19^K:+X'=X!(X>2576)!(X<2576)!(X?.E1"".""1N.N) X"
^DD(2100,242,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y]"""":Y,1:""    "")"
^DD(2100,242,2.1)="I $D(GECSOT) S Y=$S(Y]"""":Y,1:""    "")"
^DD(2100,242,3)="Type a Number between 2576 and 2576, 0 Decimal Digits"
^DD(2100,242,"DT")="2901106"
^DD(2100,243,0)="RESERVED^FO^^PRCCCA2;20^K:$L(X)>6!($L(X)<6) X"
^DD(2100,243,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""      "",1,6-$L(Y))"
^DD(2100,243,2.1)="I $D(GECSOT) S Y=Y_$E(""      "",1,6-$L(Y))"
^DD(2100,243,3)="Answer must be 6 characters in length."
^DD(2100,243,"DT")="2900717"
^DD(2100,244,0)="NUMBER OF VISITS^NJ3,0O^^PRCCCA2;21^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,244,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y I +Y=0,$D(^GECS(2100,DA,""PRCCCA2"")),$P(^(""PRCCCA2""),U,6)[""R"" S Y=""   """
^DD(2100,244,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y I +Y=0,$D(^GECS(2100,DA,""PRCCCA2"")),$P(^(""PRCCCA2""),U,6)[""R"" S Y=""   """
^DD(2100,244,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,244,"DT")="2910911"
^DD(2100,245,0)="AMOUNT-DOLLARS/CENTS^NJ5,0O^^PRCCCA2;22^K:+X'=X!(X>99900)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,245,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y I +Y=0,$D(^GECS(2100,DA,""PRCCCA2"")),$P(^(""PRCCCA2""),U,6)[""R"" S Y=""     """
^DD(2100,245,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y I +Y=0,$D(^GECS(2100,DA,""PRCCCA2"")),$P(^(""PRCCCA2""),U,6)[""R"" S Y=""     """
^DD(2100,245,3)="Enter dollar amount without decimal.  ie 4500 for $45.00"
^DD(2100,245,"DT")="2910911"
^DD(2100,246,0)="PER DIEM-DOLLARS/CENTS^NJ5,0O^^PRCCCA2;23^K:+X'=X!(X>99900)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,246,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y I +Y=0,$D(^GECS(2100,DA,""PRCCCA2"")),$P(^(""PRCCCA2""),U,6)[""R"" S Y=""     """
^DD(2100,246,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y I +Y=0,$D(^GECS(2100,DA,""PRCCCA2"")),$P(^(""PRCCCA2""),U,6)[""R"" S Y=""     """
^DD(2100,246,3)="Enter dollar amount without decimal.  ie 4500 for $45.00"
^DD(2100,246,"DT")="2910911"
^DD(2100,247,0)="ID NUMBER IDENTIFIER^SO^1:SOCIAL SECURITY NUMBER;2:EMPLOYEE IDENTIFICATION NUMBER;^PRCCCA2;24^Q"
^DD(2100,247,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y]"""":Y,1:"" "")"
^DD(2100,247,2.1)="I $D(GECSOT) S Y=$S(Y]"""":Y,1:"" "")"
^DD(2100,247,3)=""
^DD(2100,247,"DT")="2901116"
^DD(2100,248,0)="ID NUMBER CHANGE^FO^^PRCCCA2;25^K:$L(X)>9!($L(X)<9) X"
^DD(2100,248,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,248,2.1)="I $D(GECSOT) S Y=Y_$E(""         "",1,9-$L(Y))"
^DD(2100,248,3)="Enter new ID number for participant.  If ID number change is entered, ID Number Identifier field must be completed."
^DD(2100,248,"DT")="2900717"
^DD(2100,249,0)="NO PAY^SO^0:CHANGE FROM NO PAY TO PAY STATUS;Y:NO PAY VISITS AUTHORIZED;^PRCCCA2;26^Q"
^DD(2100,249,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y="""":"" "",1:Y)"
^DD(2100,249,2.1)="I $D(GECSOT) S Y=$S(Y="""":"" "",1:Y)"
^DD(2100,249,3)=""
^DD(2100,249,"DT")="2901106"
^DD(2100,250,0)="DAY 1^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;1^Q"
^DD(2100,250,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,250,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,250,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,250,"DT")="2900430"
^DD(2100,251,0)="DAY 2^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;2^Q"
^DD(2100,251,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,251,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,251,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,251,"DT")="2900430"
^DD(2100,252,0)="DAY 3^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;3^Q"
^DD(2100,252,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,252,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,252,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,252,"DT")="2900430"
^DD(2100,253,0)="DAY 4^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;4^Q"
^DD(2100,253,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,253,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,253,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,253,"DT")="2900430"
^DD(2100,254,0)="DAY 5^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;5^Q"
^DD(2100,254,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,254,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,254,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,254,"DT")="2900430"
^DD(2100,255,0)="DAY 6^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;6^Q"
^DD(2100,255,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,255,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,255,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,255,"DT")="2900430"
^DD(2100,256,0)="DAY 7^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;7^Q"
^DD(2100,256,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,256,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,256,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,256,"DT")="2900430"
^DD(2100,257,0)="DAY 8^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;8^Q"
^DD(2100,257,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,257,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,257,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,257,"DT")="2900430"
^DD(2100,258,0)="DAY 9^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;9^Q"
^DD(2100,258,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,258,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,258,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,258,"DT")="2900430"
^DD(2100,259,0)="DAY 10^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;10^Q"
^DD(2100,259,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,259,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,259,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,259,"DT")="2900430"
^DD(2100,260,0)="DAY 11^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;11^Q"
^DD(2100,260,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,260,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,260,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,260,"DT")="2900430"
^DD(2100,261,0)="DAY 12^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;12^Q"
^DD(2100,261,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,261,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,261,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,261,"DT")="2900430"
^DD(2100,262,0)="DAY 13^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;13^Q"
^DD(2100,262,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,262,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,262,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,262,"DT")="2900430"
^DD(2100,263,0)="DAY 14^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;14^Q"
^DD(2100,263,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,263,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,263,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,263,"DT")="2900430"
^DD(2100,264,0)="DAY 15^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;15^Q"
^DD(2100,264,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,264,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,264,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,264,"DT")="2900430"
^DD(2100,265,0)="DAY 16^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;16^Q"
^DD(2100,265,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,265,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,265,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,265,"DT")="2900430"
^DD(2100,266,0)="DAY 17^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;17^Q"
^DD(2100,266,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,266,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,266,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,266,"DT")="2900501"
^DD(2100,267,0)="DAY 18^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;18^Q"
^DD(2100,267,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,267,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,267,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,267,"DT")="2900501"
^DD(2100,268,0)="DAY 19^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;19^Q"
^DD(2100,268,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,268,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,268,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,268,"DT")="2900501"
^DD(2100,269,0)="DAY 20^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;20^Q"
^DD(2100,269,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,269,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,269,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,269,"DT")="2900501"
^DD(2100,270,0)="DAY 21^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;21^Q"
^DD(2100,270,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,270,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,270,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,270,"DT")="2900501"
^DD(2100,271,0)="DAY 22^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;22^Q"
^DD(2100,271,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,271,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,271,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,271,"DT")="2900501"
^DD(2100,272,0)="DAY 23^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;23^Q"
^DD(2100,272,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,272,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,272,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,272,"DT")="2900501"
^DD(2100,273,0)="DAY 24^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;24^Q"
^DD(2100,273,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,273,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,273,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,273,"DT")="2900501"
^DD(2100,274,0)="DAY 25^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;25^Q"
^DD(2100,274,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,274,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,274,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,274,"DT")="2900501"
^DD(2100,275,0)="DAY 26^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;26^Q"
^DD(2100,275,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,275,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,275,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,275,"DT")="2900501"
^DD(2100,276,0)="DAY 27^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;27^Q"
^DD(2100,276,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,276,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,276,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,276,"DT")="2900501"
^DD(2100,277,0)="DAY 28^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;28^Q"
^DD(2100,277,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,277,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,277,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,277,"DT")="2900501"
^DD(2100,278,0)="DAY 29^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;29^Q"
^DD(2100,278,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,278,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,278,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,278,"DT")="2900501"
^DD(2100,279,0)="DAY 30^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;30^Q"
^DD(2100,279,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,279,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,279,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,279,"DT")="2900501"
^DD(2100,280,0)="DAY 31^SO^X:PAID;W:WITHOUT PAY;^PRCCCA2A;31^Q"
^DD(2100,280,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,280,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,280,3)="Enter X if PAID visit or W if WITHOUT PAY visit."
^DD(2100,280,"DT")="2900501"
^DD(2100,281,0)="PAY VISITS^RNJ2,0O^^PRCCCA2A;32^K:+X'=X!(X>31)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,281,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,281,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,281,3)="Enter the number of PAY visits (0-31) for this reporting period."
^DD(2100,281,"DT")="2901126"
^DD(2100,282,0)="NO PAY VISITS^NJ2,0O^^PRCCCA2A;33^K:+X'=X!(X>31)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,282,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,282,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,282,3)="Enter number of NO PAY visits (0-31) for this reporting period."
^DD(2100,282,21,0)="0"
^DD(2100,282,21,1,0)=""
^DD(2100,282,23,0)="0"
^DD(2100,282,23,1,0)=""
^DD(2100,282,"DT")="2940812"
^DD(2100,283,0)="NUMBER OF DEBTS (QUARTERLY)^NJ3,0O^^PRCAAR2;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,283,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,283,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,283,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,283,"DT")="2900712"
^DD(2100,284,0)="SEGMENT NUMBER^NJ3,0^^PRCAAR2;2^K:+X'=X!(X>298)!(X<243)!(X?.E1"".""1N.N) X"
^DD(2100,284,3)="Enter segment number 243-249, 251-254 or 292-298"
^DD(2100,284,"DT")="2920519"
^DD(2100,285,0)="MODIFIER^FO^^PRCAAR21;4^K:$L(X)>1!($L(X)<1) X"
^DD(2100,285,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,285,2.1)="I $D(GECSOT) S Y=Y_$E("" "",1,1-$L(Y))"
^DD(2100,285,3)="Answer must be 1 character in length."
^DD(2100,285,"DT")="2900712"
^DD(2100,286,0)="NUMBER OF DEBITS (MONTHLY)^NJ7,0O^^PRCAAR2;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,286,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,286,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,286,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,286,"DT")="2900715"
^DD(2100,287,0)="DOLLAR AMOUNT (MONTHLY)^NJ10,0O^^PRCAAR2;4^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,287,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,287,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,287,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(2100,287,"DT")="2900712"
^DD(2100,288,0)="DOLLAR AMOUNT (QUARTERLY)^NJ6,0O^^PRCAAR2;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,288,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,288,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,288,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,288,"DT")="2900712"
^DD(2100,289,0)="REQ NO. DEBTS^NJ3,0^^PRCAAR2;6^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,289,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,289,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,289,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,289,"DT")="2900713"
^DD(2100,290,0)="IAQ NO DEBTS^NJ3,0^^PRCAAR2;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,290,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,290,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,290,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,291,0)="DEQ NO DEBTS^NJ3,0^^PRCAAR2;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,291,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,291,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,291,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,292,0)="CCRAQ NO BEBTS^NJ3,0^^PRCAAR2;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,292,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,292,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,292,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,293,0)="CAQ NO DEBTS^NJ3,0^^PRCAAR2;10^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,293,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,293,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,293,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,294,0)="CAWQ NO DEBTS^NJ3,0^^PRCAAR2;11^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,294,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,294,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,294,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,295,0)="CATQ NO DEBTS^NJ3,0^^PRCAAR2;12^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,295,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,295,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,295,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,296,0)="REQ DOLLAR AMOUNT^NJ6,0^^PRCAAR2;13^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,296,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,296,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,296,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,296,"DT")="2900713"
^DD(2100,297,0)="IAQ DOLLAR AMT^NJ6,0^^PRCAAR2;14^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,297,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,297,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,297,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,298,0)="DAQ DOLLAR AMT^NJ6,0^^PRCAAR2;15^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,298,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,298,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,298,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,299,0)="CCPRAQ DOLLAR AMT^NJ6,0^^PRCAAR2;16^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,299,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,299,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,299,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,299.1,0)="MIP NUMBER OF DEBTS^NJ7,0O^^PRCAAR21;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,299.1,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,299.1,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,299.1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,299.1,"DT")="2911015"
^DD(2100,299.2,0)="MIP DOLLAR AMOUNT^NJ10,0O^^PRCAAR21;6^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,299.2,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,299.2,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,299.2,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(2100,299.2,"DT")="2910814"
^DD(2100,340.1,0)="BEG BUDGET FY^F^^340;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,340.1,3)="Answer must be 2 characters in length."
^DD(2100,340.1,21,0)="^^2^2^2940822^"
^DD(2100,340.1,21,1,0)="This field is used in Accounts Receivable FMS documents to donate"
^DD(2100,340.1,21,2,0)="the Beginning Budget Fiscal Year for multi-year appropriations."
^DD(2100,340.1,"DT")="2940509"
^DD(2100,340.2,0)="OFFSET CASH ACCOUNT^F^^340;2^K:$L(X)>4!($L(X)<4) X"
^DD(2100,340.2,3)="Answer must be 4 characters in length."
^DD(2100,340.2,21,0)="^^2^2^2940822^"
^DD(2100,340.2,21,1,0)="This field is contained in cash receipt (and write-off) documents."
^DD(2100,340.2,21,2,0)="Currently no data is stored in this field."
^DD(2100,340.2,"DT")="2940509"
^DD(2100,340.3,0)="DEPOSIT NUMBER^F^^340;3^K:$L(X)>12!($L(X)<1) X"
^DD(2100,340.3,3)="Answer must be 1-12 characters in length."
^DD(2100,340.3,"DT")="2940509"
^DD(2100,340.4,0)="BILLED FUND^F^^340;4^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,340.4,3)="Answer must be 1-15 characters in length."
^DD(2100,340.4,"DT")="2940509"
^DD(2100,340.5,0)="ACCOMPLISHED YEAR^F^^340;5^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,340.5,3)="Answer must be 2 characters in length."
^DD(2100,340.5,"DT")="2940509"
^DD(2100,340.6,0)="ACCOMPLISHED MONTH^F^^340;6^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,340.6,3)="Answer must be 2 characters in length."
^DD(2100,340.6,"DT")="2940509"
^DD(2100,340.7,0)="ACCOMPLISHED DAY^F^^340;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,340.7,3)="Answer must be 2 characters in length."
^DD(2100,340.7,"DT")="2940509"
^DD(2100,340.8,0)="HDR EXP REV GL IND^F^^340;8^K:$L(X)>1!($L(X)<1) X"
^DD(2100,340.8,3)="Answer must be 1 character in length."
^DD(2100,340.8,"DT")="2940512"
^DD(2100,340.9,0)="REVERSAL FISC YEAR^F^^340;9^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,340.9,3)="Answer must be 2 characters in length."
^DD(2100,340.9,"DT")="2940512"
^DD(2100,340.91,0)="REVERSAL FISC MONTH^F^^340;10^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,340.91,3)="Answer must be 2 characters in length."
^DD(2100,340.91,"DT")="2940512"
^DD(2100,340.92,0)="BUDGET OVERRIDE IND^F^^340;11^K:$L(X)>1!($L(X)<1) X"
^DD(2100,340.92,3)="Answer must be 1 character in length."
^DD(2100,340.92,"DT")="2940512"
^DD(2100,341.1,0)="LINE AMOUNT (SVB)^NJ15,2O^^341;1^K:+X'=X!(X>999999999999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2100,341.1,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,341.1,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,341.1,3)="Type a Number between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,341.1,"DT")="2940512"
^DD(2100,341.2,0)="LINE ACTION (SVB)^F^^341;2^K:$L(X)>1!($L(X)<1) X"
^DD(2100,341.2,3)="Answer must be 1 character in length."
^DD(2100,341.2,"DT")="2940512"
^DD(2100,341.3,0)="LINE DESCRITION (SVB)^F^^341;3^K:$L(X)>30!($L(X)<1) X"
^DD(2100,341.3,3)="Answer must be 1-30 characters in length."
^DD(2100,341.3,"DT")="2940512"
^DD(2100,341.4,0)="EXP REV GL IND (SVB)^F^^341;4^K:$L(X)>1!($L(X)<1) X"
^DD(2100,341.4,3)="Answer must be 1 character in length."
^DD(2100,341.4,"DT")="2940512"
^DD(2100,341.5,0)="TREASURY SCHEDULE NO.^F^^341;5^K:$L(X)>11!($L(X)<11) X"
^DD(2100,341.5,3)="Answer must be 11 characters in length."
^DD(2100,341.5,"DT")="2940512"
^DD(2100,341.6,0)="ADVANCE FLAG^F^^341;6^K:$L(X)>1!($L(X)<1) X"
^DD(2100,341.6,3)="Answer must be 1 character in length."
^DD(2100,341.6,"DT")="2950127"
^DD(2100,341.7,0)="OBLIGATION FISCAL YR^F^^341;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,341.7,3)="Answer must be 2 characters in length."
^DD(2100,341.7,"DT")="2950127"
^DD(2100,341.8,0)="CLOSED BEG BUDGET FY^F^^341;8^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,341.8,3)="Answer must be 2 characters in length."
^DD(2100,341.8,"DT")="2950127"
^DD(2100,341.9,0)="CLOSED END BUDGET FY^F^^341;9^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,341.9,3)="Answer must be 2 characters in length."
^DD(2100,341.9,"DT")="2950127"
^DD(2100,341.91,0)="CLOSED FUND^F^^341;10^K:$L(X)>6!($L(X)<6) X"
^DD(2100,341.91,3)="Answer must be 6 characters in length."
^DD(2100,341.91,"DT")="2950127"
^DD(2100,341.92,0)="PAYMENT OFFSET IND^F^^341;11^K:$L(X)>1!($L(X)<1) X"
^DD(2100,341.92,3)="Answer must be 1 character in length."
^DD(2100,341.92,"DT")="2950127"
^DD(2100,341.93,0)="XDIVISION^F^^341;12^K:$L(X)>4!($L(X)<4) X"
^DD(2100,341.93,3)="Answer must be 4 characters in length."
^DD(2100,341.93,"DT")="2950127"
^DD(2100,341.94,0)="TRAVEL ADVANCE FLAG^F^^341;13^K:$L(X)>1!($L(X)<1) X"
^DD(2100,341.94,3)="Answer must be 1 character in length."
^DD(2100,341.94,"DT")="2950127"
^DD(2100,341.95,0)="CHECK NUMBER FILLER^F^^341;14^K:$L(X)>4!($L(X)<4) X"
^DD(2100,341.95,3)="Answer must be 4 characters in length."
^DD(2100,341.95,"DT")="2950127"
^DD(2100,401,0)="TRANSACTION CODE^F^^FMS;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,401,3)="Answer must be 2 characters in length."
^DD(2100,401,21,0)="^^1^1^2940721^"
^DD(2100,401,21,1,0)="Transaction code for FMS document."
^DD(2100,401,"DT")="2940721"
^DD(2100,402,0)="TRANSACTION NUMBER^RFX^^FMS;2^K:$L(X)>11!($L(X)<9) X I $D(X),X?.P W ""  NO PUNCTUATION CHARACTERS"" K X"
^DD(2100,402,3)="Enter the first 3 digits of the station number, 6 characters for the document number (from the common number series), optional 2 characters for the partial number.  No punctuation characters allowed."
^DD(2100,402,21,0)="^^1^1^2940721^"
^DD(2100,402,21,1,0)="Transaction number for FMS document."
^DD(2100,402,"DT")="2931214"
^DD(2100,403,0)="MODIFICATION DOCUMENT^S^Y:YES;N:NO;^FMS;3^Q"
^DD(2100,403,21,0)="^^1^1^2940831^^"
^DD(2100,403,21,1,0)="This field indicates if the FMS document is a modification document."
^DD(2100,403,"DT")="2940831"
^DD(2100,404,0)="SECURITY CODE^RF^^FMS;4^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,404,3)="Answer must be 2 characters in length."
^DD(2100,404,21,0)="^^1^1^2940721^"
^DD(2100,404,21,1,0)="This field indicates the SECURITY CODE for FMS document."
^DD(2100,404,"DT")="2940721"
^DD(2100,405,0)="FCP UPDATED^RS^Y:YES, TRANSACTION HAS UPDATED IFCAP FCP BALANCE;N:NO, TRANSACTION HAS NOT UPDATED IFCAP FCP BALANCE;^FMS;5^Q"
^DD(2100,405,21,0)="^^3^3^2940721^"
^DD(2100,405,21,1,0)="This field indicates whether the transaction has updated IFCAP FCP"
^DD(2100,405,21,2,0)="BALANCE.  Enter Y for a transaction has updated IFCAP FCP BALANCE."
^DD(2100,405,21,3,0)="Enter N for a transaction has not updated IFCAP FCP BALANCE."
^DD(2100,405,"DT")="2931214"
^DD(2100,420.2,0)="SEGMENT ID <TC>2^F^^FMS1;1^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,420.2,3)="Answer must be 3 characters in length."
^DD(2100,420.2,21,0)="^^1^1^2940721^"
^DD(2100,420.2,21,1,0)="SEGMENT ID for FMS DOCUMENT."
^DD(2100,420.2,"DT")="2940721"
^DD(2100,420.3,0)="SEGMENT ID <TC>3^F^^FMS1;3^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,420.3,3)="Answer must be 3 characters in length."
^DD(2100,420.3,21,0)="^^1^1^2940721^"
^DD(2100,420.3,21,1,0)="SEGMENT ID for FMS document."
^DD(2100,420.3,"DT")="2940721"
^DD(2100,420.4,0)="SEGMENT ID <TC>4^F^^FMS1;5^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,420.4,3)="Answer must be 3 characters in length."
^DD(2100,420.4,21,0)="^^1^1^2940721^"
^DD(2100,420.4,21,1,0)="SEGMENT ID for FMS document."
^DD(2100,420.4,"DT")="2940721"
^DD(2100,420.5,0)="SEGMENT ID <TC>5^F^^FMS1;7^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,420.5,3)="Answer must be 3 characters in length."
^DD(2100,420.5,21,0)="^^1^1^2940721^"
^DD(2100,420.5,21,1,0)="SEGMENT ID for FMS document."
^DD(2100,420.5,"DT")="2940721"
^DD(2100,420.6,0)="SEGMENT ID <TC>6^F^^FMS1;9^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,420.6,3)="Answer must be 3 characters in length."
^DD(2100,420.6,21,0)="^^1^1^2940721^"
^DD(2100,420.6,21,1,0)="SEGMENT ID for FMS document."
^DD(2100,420.6,"DT")="2940721"
^DD(2100,421.2,0)="SEGMENT DELIMITER <TC>2^F^^FMS1;2^K:$L(X)>1!($L(X)<1) X"
^DD(2100,421.2,3)="Answer must be 1 character in length."
^DD(2100,421.2,21,0)="^^1^1^2940721^^^"
^DD(2100,421.2,21,1,0)="SEGMENT DELIMITER for FMS document."
^DD(2100,421.2,"DT")="2940721"
^DD(2100,421.3,0)="SEGMENT DELIMITER <TC>3^F^^FMS1;4^K:$L(X)>1!($L(X)<1) X"
^DD(2100,421.3,3)="Answer must be 1 character in length."
^DD(2100,421.3,21,0)="^^1^1^2940721^"
^DD(2100,421.3,21,1,0)="SEGMENT DELIMITER for FMS document."
^DD(2100,421.3,"DT")="2931215"
^DD(2100,421.4,0)="SEGMENT DELIMITER <TC>4^F^^FMS1;6^K:$L(X)>1!($L(X)<1) X"
^DD(2100,421.4,3)="Answer must be 1 character in length."
^DD(2100,421.4,21,0)="^^1^1^2940721^"
^DD(2100,421.4,21,1,0)="SEGMENT DELIMITER for FMS document."
^DD(2100,421.4,"DT")="2931215"
^DD(2100,421.5,0)="SEGMENT DELIMITER <TC>5^F^^FMS1;8^K:$L(X)>1!($L(X)<1) X"
^DD(2100,421.5,3)="Answer must be 1 character in length."
^DD(2100,421.5,21,0)="^^1^1^2940721^"
^DD(2100,421.5,21,1,0)="SEGMENT ID for FMS document."
^DD(2100,421.5,"DT")="2931215"
^DD(2100,421.6,0)="SEGMENT DELIMITER <TC>6^F^^FMS1;10^K:$L(X)>1!($L(X)<1) X"
^DD(2100,421.6,3)="Answer must be 1 character in length."
^DD(2100,421.6,21,0)="^^1^1^2940721^"
^DD(2100,421.6,21,1,0)="SEGMENT DELIMITER for FMS document."
^DD(2100,421.6,"DT")="2931215"
^DD(2100,450.01,0)="VENDOR ID^RF^^FMSTV2;1^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.01,3)="Answer must be 1-9 characters in length."
^DD(2100,450.01,21,0)="^^4^4^2940628^"
^DD(2100,450.01,21,1,0)="This is a required field on original entry document of FMS. May not be"
^DD(2100,450.01,21,2,0)="changed by a modification document unless new document is only for"
^DD(2100,450.01,21,3,0)="advance, and original obligation document used an Employee ID with the"
^DD(2100,450.01,21,4,0)="Miscellaneous flag of Y on Vendor Table."
^DD(2100,450.01,"DT")="2940413"
^DD(2100,450.02,0)="VENDOR ADDRESS CODE^F^^FMSTV2;2^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.02,3)="Answer must be 1-2 characters in length."
^DD(2100,450.02,21,0)="^^1^1^2940628^"
^DD(2100,450.02,21,1,0)="This VENDOR ADDRESS CODE has a size of 1-2 characters in length."
^DD(2100,450.02,"DT")="2940413"
^DD(2100,450.03,0)="MILEAGE^NJ8,0^^FMSTV2;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,450.03,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(2100,450.03,21,0)="^^3^3^2940628^"
^DD(2100,450.03,21,1,0)="This is the field the number of miles for which reimbursement is sought."
^DD(2100,450.03,21,2,0)="It is a optional field. If left blank, it defaults to zero. This field may"
^DD(2100,450.03,21,3,0)="be changed by a MODIFY FMS document."
^DD(2100,450.03,"DT")="2931215"
^DD(2100,450.04,0)="MILEAGE COST^NJ7,2O^^FMSTV2;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,450.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.04,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.04,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,450.04,21,0)="^^3^3^2940628^"
^DD(2100,450.04,21,1,0)="This is the amount of total mileage reimbursement, in dollars and cents."
^DD(2100,450.04,21,2,0)="If left blank, it defaults to zero. This field may be changed by a MODIFY"
^DD(2100,450.04,21,3,0)="document."
^DD(2100,450.04,"DT")="2940419"
^DD(2100,450.05,0)="FISC YEAR^F^^FMSTV2;5^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.05,3)="Answer must be 2 characters in length and numeric."
^DD(2100,450.05,21,0)="^^2^2^2940628^"
^DD(2100,450.05,21,1,0)="This is FMS fiscal year.  If left blank, the accounting period is inferred"
^DD(2100,450.05,21,2,0)="from the document date."
^DD(2100,450.05,"DT")="2940331"
^DD(2100,450.06,0)="FISC MONTH^NJ2,0X^^FMSTV2;6^K:X'?1.2N!(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)"
^DD(2100,450.06,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,450.06,21,0)="^^2^2^2940628^"
^DD(2100,450.06,21,1,0)="This FMS fiscal month.  If left blank, the accounting period is inferrred"
^DD(2100,450.06,21,2,0)="from the document date."
^DD(2100,450.06,"DT")="2940428"
^DD(2100,450.07,0)="HOME ORG^F^^FMSTV2;7^K:$L(X)>7!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,450.07,3)="Answer must be 3-7 characters in length."
^DD(2100,450.07,21,0)="^^2^2^2940628^"
^DD(2100,450.07,21,1,0)="This is FMS system-maintained field. This is the station to which the"
^DD(2100,450.07,21,2,0)="employee is assigned from the Vendor Table."
^DD(2100,450.07,"DT")="2940413"
^DD(2100,450.08,0)="HDR FUND^RF^^FMSTV2;8^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.08,3)="Answer must be 1-6 characters in length."
^DD(2100,450.08,21,0)="^^2^2^2940628^"
^DD(2100,450.08,21,1,0)="This is FMS required field. Must be a valid entry on the Fund Table."
^DD(2100,450.08,21,2,0)="This field may not be changed by a MODIFY document."
^DD(2100,450.08,"DT")="2940628"
^DD(2100,450.09,0)="TRANSACTION TYPE^RF^^FMSTV2;9^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,450.09,3)="Answer must be 2 characters in length."
^DD(2100,450.09,21,0)="^^4^4^2940628^"
^DD(2100,450.09,21,1,0)="This is FMS required field. This field may not be changed by a MODIFY"
^DD(2100,450.09,21,2,0)="document. Enter the transaction type code that is appropriate for the"
^DD(2100,450.09,21,3,0)="dollar amounts being entered.  This code must be a valid entry in Generic"
^DD(2100,450.09,21,4,0)="Code Sheet Transaction Type/Segment file."
^DD(2100,450.09,"DT")="2940413"
^DD(2100,450.1,0)="TRAVEL PURPOSES^F^^FMSTV2;10^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.1,3)="Answer must be 1-5 characters in length."
^DD(2100,450.1,21,0)="^^3^3^2940629^"
^DD(2100,450.1,21,1,0)="This is FMS optional field. If classified, enter only Travel Purpose Code"
^DD(2100,450.1,21,2,0)="whose Classified Flag is Y on Travel Purpose Table. If left balnk,"
^DD(2100,450.1,21,3,0)="defaults to X."
^DD(2100,450.1,"DT")="2940413"
^DD(2100,450.11,0)="RECORD YEAR^F^^FMSTV2;11^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.11,3)="Answer must be 2 characters in length."
^DD(2100,450.11,21,0)="^^1^1^2940629^"
^DD(2100,450.11,21,1,0)="This is the transaction year assoicated with the FMS document."
^DD(2100,450.11,"DT")="2940128"
^DD(2100,450.12,0)="RECORD MONTH^F^^FMSTV2;12^K:$L(X)>2!($L(X)<2)!'(X?2N&(0<X<13)) X"
^DD(2100,450.12,3)="Answer must be 2 characters in length."
^DD(2100,450.12,21,0)="^^1^1^2940629^^"
^DD(2100,450.12,21,1,0)="This is the transaction month associated with the FMS document."
^DD(2100,450.12,"DT")="2940629"
^DD(2100,450.13,0)="RECORD DAY^F^^FMSTV2;13^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.13,3)="Answer must be 2 characters in length."
^DD(2100,450.13,21,0)="^^1^1^2940629^"
^DD(2100,450.13,21,1,0)="This is the transaction day associated with FMS document."
^DD(2100,450.13,"DT")="2940510"
^DD(2100,450.14,0)="NUMBER OF DAYS^RNJ5,0^^FMSTV2;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,450.14,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,450.14,21,0)="^^2^2^2940629^"
^DD(2100,450.14,21,1,0)="This is the number of days of the FMS document (travel voucher, etc.)"
^DD(2100,450.14,21,2,0)="covers. If left blank, it defaults to zero."
^DD(2100,450.14,"DT")="2940128"
^DD(2100,450.15,0)="YEAR TRAVEL BEGINS^RF^^FMSTV2;15^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.15,3)="Answer must be 2 characters in length."
^DD(2100,450.15,21,0)="^^1^1^2940629^"
^DD(2100,450.15,21,1,0)="This is the starting year covered by the FMS document."
^DD(2100,450.15,"DT")="2940128"
^DD(2100,450.16,0)="MONTH TRAVEL BEGINS^F^^FMSTV2;16^K:$L(X)>2!($L(X)<2)!'(X?2N&(0<X<13)) X"
^DD(2100,450.16,3)="Answer must be 2 characters in length."
^DD(2100,450.16,21,0)="^^1^1^2940629^"
^DD(2100,450.16,21,1,0)="This the starting month covered by the FMS Document."
^DD(2100,450.16,"DT")="2940629"
^DD(2100,450.17,0)="DAY TRAVEL BEGINS^F^^FMSTV2;17^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,450.17,3)="Answer must be 1-2 characters in length."
^DD(2100,450.17,21,0)="^^1^1^2940629^"
^DD(2100,450.17,21,1,0)="This is the starting day covered by the FMS Document."
^DD(2100,450.17,"DT")="2940228"
^DD(2100,450.18,0)="YEAR TRAVEL ENDS^RF^^FMSTV2;18^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.18,3)="Answer must be 2 characters in length."
^DD(2100,450.18,21,0)="^^1^1^2940629^"
^DD(2100,450.18,21,1,0)="This is the ending year covered by the FMS document."
^DD(2100,450.18,"DT")="2940128"
^DD(2100,450.19,0)="MONTH TRAVEL ENDS^F^^FMSTV2;19^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.19,3)="Answer must be 2 characters in length."
^DD(2100,450.19,21,0)="^^1^1^2940629^"
^DD(2100,450.19,21,1,0)="This is the ending month covered by the FMS document."
^DD(2100,450.19,"DT")="2940128"
^DD(2100,450.2,0)="DAY TRAVEL ENDS^F^^FMSTV2;20^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.2,3)="Answer must be 2 characters in length."
^DD(2100,450.2,21,0)="^^1^1^2940629^"
^DD(2100,450.2,21,1,0)="This is the ending day covered by FMS document."
^DD(2100,450.2,"DT")="2940201"
^DD(2100,450.21,0)="BUDGET FY^F^^FMSTV2;21^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.21,3)="Answer must be 2 characters in length."
^DD(2100,450.21,21,0)="^^1^1^2940629^"
^DD(2100,450.21,21,1,0)="This is the last 2 digits fiscal years to which the FMS Document applies."
^DD(2100,450.21,"DT")="2940128"
^DD(2100,450.22,0)="END BUDGET FY^F^^FMSTV2;22^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.22,3)="Answer must be 2 characters in length."
^DD(2100,450.22,21,0)="^^2^2^2940708^"
^DD(2100,450.22,21,1,0)="This is the last 2 digits ending fiscal years to which the FMS document"
^DD(2100,450.22,21,2,0)="applies."
^DD(2100,450.22,"DT")="2940128"
^DD(2100,450.23,0)="VENDOR NAME^F^^FMSTV2;23^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,450.23,3)="Answer must be 3-30 characters in length."
^DD(2100,450.23,21,0)="^^1^1^2940808^^"
^DD(2100,450.23,21,1,0)="This is the VENDOR name to be printed on FMS document."
^DD(2100,450.23,"DT")="2940413"
^DD(2100,450.24,0)="VENDOR ADDRESS 1^F^^FMSTV2;24^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,450.24,3)="Answer must be 3-30 characters in length."
^DD(2100,450.24,21,0)="^^1^1^2940629^"
^DD(2100,450.24,21,1,0)="This is vendor address 1 associated with vendor name of FMS document."
^DD(2100,450.24,"DT")="2940413"
^DD(2100,450.25,0)="VENDOR ADDRESS 2^F^^FMSTV2;25^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,450.25,3)="Answer must be 3-30 characters in length."
^DD(2100,450.25,21,0)="^^1^1^2940629^"
^DD(2100,450.25,21,1,0)="This is vendor address 2 accociated with vendor name of FMS document."
^DD(2100,450.25,"DT")="2940413"
^DD(2100,450.26,0)="CITY (FMS)^F^^FMSTV2;26^K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.26,3)="Answer must be 1-19 characters in length."
^DD(2100,450.26,21,0)="^^1^1^2940629^"
^DD(2100,450.26,21,1,0)="This is city name associated with venodr name of FMS document."
^DD(2100,450.26,"DT")="2940413"
^DD(2100,450.27,0)="STATE CODE (FMS)^F^^FMSTV2;27^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,450.27,3)="Answer must be 2 characters in length."
^DD(2100,450.27,21,0)="^^1^1^2940629^"
^DD(2100,450.27,21,1,0)="This is state code associated with vendor name of FMS document."
^DD(2100,450.27,"DT")="2940413"
^DD(2100,450.28,0)="ZIP CODE (FMS)^FX^^FMSTV2;28^K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X"
^DD(2100,450.28,3)="Enter with 5 digits zip or 9 digits zip without dash."
^DD(2100,450.28,21,0)="^^1^1^2940809^^"
^DD(2100,450.28,21,1,0)="This is zip code associated with vendor name of FMS document."
^DD(2100,450.28,"DT")="2940809"
^DD(2100,450.29,0)="HDR PF IND^FX^^FMSTV3;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.29,3)="Enter a 'P' for partial, 'F' for final."
^DD(2100,450.29,21,0)="^^1^1^2940629^"
^DD(2100,450.29,21,1,0)="This is the field entered to indicate PARTIAL/FINAL FMS document."
^DD(2100,450.29,"DT")="2940421"
^DD(2100,450.3,0)="HDR REF TRANS CODE^F^^FMSTV3;2^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,450.3,3)="Answer must be 2 characters in length."
^DD(2100,450.3,21,0)="^^2^2^2940706^"
^DD(2100,450.3,21,1,0)="This is the reference transaction code of FMS document. If entered, the"
^DD(2100,450.3,21,2,0)="transaction code will be the defauts for all lines of FMS document."
^DD(2100,450.3,"DT")="2940413"
^DD(2100,450.31,0)="HDR REF TRANS NUMBER^F^^FMSTV3;3^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.31,3)="Answer must be 1-11 characters in length."
^DD(2100,450.31,21,0)="^^2^2^2940629^"
^DD(2100,450.31,21,1,0)="This is the reference transaction number of FMS document. If entered, the"
^DD(2100,450.31,21,2,0)="transaction number will be defausts for all lines of FMS document."
^DD(2100,450.31,"DT")="2940413"
^DD(2100,450.32,0)="XORGANIZATION SUBMIT^RF^^FMSTV3;4^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.32,3)="Answer must be 1-7 characters in length."
^DD(2100,450.32,21,0)="^^1^1^2940705^"
^DD(2100,450.32,21,1,0)="This is FMS document user's default sub station."
^DD(2100,450.32,"DT")="2940413"
^DD(2100,450.33,0)="TICKET AMT^RNJ12,2O^^FMSTV3;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(2100,450.33,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) S:Y=""0.00"" Y="""""
^DD(2100,450.33,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) S:Y=""0.00"" Y="""""
^DD(2100,450.33,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(2100,450.33,21,0)="^^1^1^2940629^"
^DD(2100,450.33,21,1,0)="This is the amount entered on the ticket lines of FMS document."
^DD(2100,450.33,"DT")="2940419"
^DD(2100,450.34,0)="DOCUMENT ACTION^S^E:NEW ENTRY;M:MODIFY;X:CANCEL;^FMSTV3;6^Q"
^DD(2100,450.34,3)="Enter E for new entry, M to modify, X to cancel. Defauts to E."
^DD(2100,450.34,21,0)="^^11^11^2940629^"
^DD(2100,450.34,21,1,0)="This field is optional. If blank, defaults to 'E'."
^DD(2100,450.34,21,2,0)=" "
^DD(2100,450.34,21,3,0)="Enter 'E' if the document is new entry."
^DD(2100,450.34,21,4,0)=" "
^DD(2100,450.34,21,5,0)="Enter 'M' if the doucment is modifying a previous document. This allows"
^DD(2100,450.34,21,6,0)="you to add lines to a previous document, change the amounts of existing"
^DD(2100,450.34,21,7,0)="lines and certain codes, or cancel a line (decrease a line amount to"
^DD(2100,450.34,21,8,0)="zero)."
^DD(2100,450.34,21,9,0)=" "
^DD(2100,450.34,21,10,0)="Enter 'X' if the document is to cancel a previous document. The document"
^DD(2100,450.34,21,11,0)="to be canceled may not have been closed by any disbursements porcessing."
^DD(2100,450.34,"DT")="2940308"
^DD(2100,450.35,0)="HEADER EXCEPTION AMT^NJ15,2O^^FMSTV3;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.35,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.35,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.35,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.35,21,0)="^^3^3^2940629^"
^DD(2100,450.35,21,1,0)="This is the amount of exceptions taken to the FMS document."
^DD(2100,450.35,21,2,0)="If left blank, defaults to the sum of all accounting expense line"
^DD(2100,450.35,21,3,0)="Exception Amount."
^DD(2100,450.35,"DT")="2940421"
^DD(2100,450.36,0)="EXCEPTION INC DEC^FX^^FMSTV3;8^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.36,3)="Enter 'D' for decrease, 'I' for increase."
^DD(2100,450.36,21,0)="^^2^2^2940629^"
^DD(2100,450.36,21,1,0)="Enter a 'D' for a decrease in exception amount. 'I' for an increase. If"
^DD(2100,450.36,21,2,0)="left blank, it defaults to I (increase)."
^DD(2100,450.36,"DT")="2940421"
^DD(2100,450.37,0)="EXCEPTION CODE^FX^^FMSTV3;9^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.37,3)="Answer must be 1 character in length."
^DD(2100,450.37,21,0)="^^2^2^2940629^"
^DD(2100,450.37,21,1,0)="This field is required if the Exception amount on the header or any line"
^DD(2100,450.37,21,2,0)="is not zero. This field may be changed by a MODIFY document."
^DD(2100,450.37,"DT")="2940421"
^DD(2100,450.38,0)="TOTAL VERIFIED AMT^RNJ15,2O^^FMSTV3;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.38,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.38,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.38,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.38,21,0)="^^2^2^2940629^"
^DD(2100,450.38,21,1,0)="This is a required field. This is the sum of all Actual Costs on the"
^DD(2100,450.38,21,2,0)="accounting expense lines."
^DD(2100,450.38,"DT")="2940419"
^DD(2100,450.39,0)="WTA AMT^NJ15,2O^^FMSTV3;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.39,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2)"
^DD(2100,450.39,2.1)="I $D(GECSOT) S Y=$J(Y,0,2)"
^DD(2100,450.39,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.39,21,0)="^^3^3^2940629^"
^DD(2100,450.39,21,1,0)="This is Withholding Tax Allowance (WTA) field.  This is a system"
^DD(2100,450.39,21,2,0)="maintained field. The system automatically computes the amount of the WTA"
^DD(2100,450.39,21,3,0)="entered on the accounting expense lines."
^DD(2100,450.39,"DT")="2940418"
^DD(2100,450.4,0)="TAX WITHHELD AMT^NJ15,2O^^FMSTV3;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.4,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.4,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.4,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits."
^DD(2100,450.4,21,0)="^^4^4^2940629^^"
^DD(2100,450.4,21,1,0)="This is the amount for tax withheld, including any amounts for"
^DD(2100,450.4,21,2,0)="WTA(Withholding Tax Allowance). It cannot exceed the Taxable amount. If"
^DD(2100,450.4,21,3,0)="left blank, it defaults to zero. This field may be changed by a MODIFY"
^DD(2100,450.4,21,4,0)="document."
^DD(2100,450.4,"DT")="2940420"
^DD(2100,450.41,0)="TAX WITHHELD INC DEC^FX^^FMSTV3;13^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.41,3)="Enter a 'D' for a decrease, 'I' for an increase."
^DD(2100,450.41,21,0)="^^2^2^2940629^"
^DD(2100,450.41,21,1,0)="This field is optional for modification documents, leave blank on original"
^DD(2100,450.41,21,2,0)="entry. Enter a 'D' for decrease, 'I' for increase."
^DD(2100,450.41,"DT")="2940421"
^DD(2100,450.42,0)="TAXABLE AMT^NJ15,2O^^FMSTV3;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.42,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.42,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.42,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.42,21,0)="^^2^2^2940629^"
^DD(2100,450.42,21,1,0)="This is the amount for the voucher which is subjet to tax. It can't be"
^DD(2100,450.42,21,2,0)="exceed the Total Verified amount, or less than the Tax Withheld Amount."
^DD(2100,450.42,"DT")="2940420"
^DD(2100,450.43,0)="TAXABLE INC DEC^FX^^FMSTV3;15^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.43,3)="Enter a 'D' for a decrease, 'I' for an increase."
^DD(2100,450.43,21,0)="^^2^2^2940629^"
^DD(2100,450.43,21,1,0)="This field indicates a INCREASE or DECREASE in taxable amount. If left"
^DD(2100,450.43,21,2,0)="blank, it defaults to 'I' (increase)."
^DD(2100,450.43,"DT")="2940421"
^DD(2100,450.44,0)="OWED EMPLOYEE^NJ15,2O^^FMSTV3;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.44,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.44,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.44,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.44,21,0)="^^4^4^2940629^"
^DD(2100,450.44,21,1,0)="This is a required field.  Enter the amount of reimbursement which is to"
^DD(2100,450.44,21,2,0)="be paid by check. Must be equal to Total Verified minus Tax Withheld minus"
^DD(2100,450.44,21,3,0)="sum of the Applied amounts. This field may be changed by a MODIFY"
^DD(2100,450.44,21,4,0)="document."
^DD(2100,450.44,"DT")="2940510"
^DD(2100,450.45,0)="OWED INC DEC^FX^^FMSTV3;17^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.45,3)="Answer must be 1 character in length. Enter 'I' for increase. 'D' for decrease."
^DD(2100,450.45,21,0)="^^4^4^2940629^^"
^DD(2100,450.45,21,1,0)="Optional for modification documents, leave blank on original entry. Enter"
^DD(2100,450.45,21,2,0)="a 'D' for a decrease in Net Owed to Employee, 'I' for a increase. If left"
^DD(2100,450.45,21,3,0)="blank, it defauts to I(increase). This field may be changed by a MODIFY"
^DD(2100,450.45,21,4,0)="document."
^DD(2100,450.45,"DT")="2940421"
^DD(2100,450.46,0)="FICA WAGE AMT^NJ15,2O^^FMSTV3;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.46,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.46,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.46,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.46,21,0)="^^3^3^2940629^"
^DD(2100,450.46,21,1,0)="This field is optional.  Enter a amount of wages subject to FICA(OASDI)"
^DD(2100,450.46,21,2,0)="tax. If left blank, it defaults to I (increase). This field may be changed"
^DD(2100,450.46,21,3,0)="by a MODIFY document."
^DD(2100,450.46,"DT")="2940420"
^DD(2100,450.47,0)="FICA INC DEC^FX^^FMSTV3;19^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.47,3)="Answer must be 1 character in length."
^DD(2100,450.47,21,0)="^^3^3^2940629^"
^DD(2100,450.47,21,1,0)="Enter a 'D' for a decrease in FICA (OASDI) WAGE, 'I' for increase. If left"
^DD(2100,450.47,21,2,0)="blank, it defaluts to increase. This field may be changed by a MODIFY"
^DD(2100,450.47,21,3,0)="document."
^DD(2100,450.47,"DT")="2940421"
^DD(2100,450.48,0)="AGENCY SCHEDULE NO^FX^^FMSTV3;20^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.48,3)="Answer must be 1-9 characters in length."
^DD(2100,450.48,21,0)="^^2^2^2941205^^^^"
^DD(2100,450.48,21,1,0)="This field is required if Print Check Flag is 'N' and No Check"
^DD(2100,450.48,21,2,0)="Disbursement Flag is not 'Y'."
^DD(2100,450.48,"DT")="2941205"
^DD(2100,450.49,0)="PMT SEQUENCE NUMBER^F^^FMSTV3;21^K:$L(X)>8!($L(X)<1)!'(X?1.8N) X"
^DD(2100,450.49,3)="Answer must be 1-8 characters in length."
^DD(2100,450.49,21,0)="^^1^1^2940629^"
^DD(2100,450.49,21,1,0)="This field is required if Print Check Flag is N."
^DD(2100,450.49,"DT")="2940309"
^DD(2100,450.5,0)="PRINT CHECK FLAG^RFX^^FMSTV3;22^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.5,3)="Enter 'N' to print check via manual Schedule SF-1166. Enter 'Y' to print check at disbursing office or to produce Treasury tape."
^DD(2100,450.5,21,0)="^^3^3^2940629^"
^DD(2100,450.5,21,1,0)="This field is required if Net Amount is not zero. N to print check via"
^DD(2100,450.5,21,2,0)="manual Schedule SF-1166 or if No Check Disbursement Flay is Y; Y to print"
^DD(2100,450.5,21,3,0)="check at disbursing office or to produce Treasury tape."
^DD(2100,450.5,"DT")="2940422"
^DD(2100,450.51,0)="DISBURSING OFFICE^FX^^FMSTV3;23^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.51,3)="Answer must be 1-4 characters in length."
^DD(2100,450.51,21,0)="^^3^3^2940629^"
^DD(2100,450.51,21,1,0)="Enter the Treasury Disbursing Office which will be paying for the voucher."
^DD(2100,450.51,21,2,0)="If entered, it must be a valid code in the Treasury Disbursing Office"
^DD(2100,450.51,21,3,0)="Reference Table."
^DD(2100,450.51,"DT")="2940421"
^DD(2100,450.52,0)="NO CHECK DISB FLAG^FX^^FMSTV3;24^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.52,3)="Answer must be 1 character in length."
^DD(2100,450.52,21,0)="^^5^5^2940629^"
^DD(2100,450.52,21,1,0)="This field defaults to 'N'."
^DD(2100,450.52,21,2,0)="If payment is a disbursement which will have no check number associated"
^DD(2100,450.52,21,3,0)="with it, enter a 'Y' in this field. You must ener a 'Y' in this field only"
^DD(2100,450.52,21,4,0)="if the SF-1166 Schedule number is blank and the Print Check Flag is not"
^DD(2100,450.52,21,5,0)="'Y'."
^DD(2100,450.52,"DT")="2940421"
^DD(2100,450.53,0)="AGENCY SCHD FISC YR^F^^FMSTV3;25^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,450.53,3)="Answer must be 2 characters in length."
^DD(2100,450.53,21,0)="^^2^2^2940701^"
^DD(2100,450.53,21,1,0)="Enter the fiscal year of the Treasury schedule. If left blank, it will"
^DD(2100,450.53,21,2,0)="default to the fiscal year of the Accounting Period."
^DD(2100,450.53,"DT")="2940309"
^DD(2100,450.54,0)="VOUCHER SCHEDULE CAT^FX^^FMSTV3;26^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.54,3)="Answer must be 1 character in length."
^DD(2100,450.54,21,0)="^^4^4^2940629^"
^DD(2100,450.54,21,1,0)="This field is optional. Enter the code appropriate for the schedule pay"
^DD(2100,450.54,21,2,0)="this voucher. Valid values are 'T' for automated treasury schedule, 'M'"
^DD(2100,450.54,21,3,0)="for manual treasury schedule, 'C' for CTP payment, and 'A' for CCD+"
^DD(2100,450.54,21,4,0)="payment."
^DD(2100,450.54,"DT")="2940421"
^DD(2100,450.55,0)="TRAVEL TYPE1^F^^FMSTV4;1^K:$L(X)>3!($L(X)<1) X"
^DD(2100,450.55,3)="Answer must be 1-3 characters in length."
^DD(2100,450.55,21,0)="^^2^2^2940629^"
^DD(2100,450.55,21,1,0)="This is the advance travel type field against which the voucher is to be"
^DD(2100,450.55,21,2,0)="applied."
^DD(2100,450.55,"DT")="2940309"
^DD(2100,450.56,0)="TO TRANS CODE 1^FX^^FMSTV4;2^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.56,3)="Answer must be 1-2 characters in length."
^DD(2100,450.56,21,0)="^^2^2^2940629^"
^DD(2100,450.56,21,1,0)="This field is required if Applied Advance Travel Type requires an"
^DD(2100,450.56,21,2,0)="obligation."
^DD(2100,450.56,"DT")="2940421"
^DD(2100,450.57,0)="TO TRANS NUMBER 1^FX^^FMSTV4;3^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.57,3)="Answer must be 1-11 characters in length."
^DD(2100,450.57,21,0)="^^2^2^2940630^"
^DD(2100,450.57,21,1,0)="This field is required if Applied Advance Travel Type requires an"
^DD(2100,450.57,21,2,0)="obligation."
^DD(2100,450.57,"DT")="2940421"
^DD(2100,450.58,0)="TRAVEL ADVANCE NUMBER 1^FX^^FMSTV4;4^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.58,3)="Answer must be 1-6 characters in length."
^DD(2100,450.58,21,0)="^^2^2^2940630^"
^DD(2100,450.58,21,1,0)="This field is required for each advance application line with a non blank"
^DD(2100,450.58,21,2,0)="Travel Type."
^DD(2100,450.58,"DT")="2940421"
^DD(2100,450.59,0)="APPLIED AMT 1^NJ15,2O^^FMSTV4;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.59,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.59,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.59,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.59,21,0)="^^2^2^2940630^"
^DD(2100,450.59,21,1,0)="This field is required for each advance application line with a non-blank"
^DD(2100,450.59,21,2,0)="Travel Type."
^DD(2100,450.59,"DT")="2940510"
^DD(2100,450.6,0)="APPLIED 1 INC DEC^FX^^FMSTV4;6^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.6,3)="Answer must be 1 character in length."
^DD(2100,450.6,21,0)="^^2^2^2940630^"
^DD(2100,450.6,21,1,0)="This field is optional for modification documents. Blank on original"
^DD(2100,450.6,21,2,0)="entry."
^DD(2100,450.6,"DT")="2940421"
^DD(2100,450.61,0)="ADV BALANCE 1^NJ16,2O^^FMSTV4;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999.99)!(X<0) X"
^DD(2100,450.61,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.61,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.61,3)="Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits"
^DD(2100,450.61,21,0)="^^3^3^2940630^"
^DD(2100,450.61,21,1,0)="This is system maintained field. This field displays the outstanding"
^DD(2100,450.61,21,2,0)="balance of the travel advance for this Employee, Travel Type and Travel"
^DD(2100,450.61,21,3,0)="Order, excluding the current document."
^DD(2100,450.61,"DT")="2940420"
^DD(2100,450.62,0)="HEADER DESCRIPTION 1^FX^^FMSTV4;8^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.62,3)="Answer must be 1-12 characters in length."
^DD(2100,450.62,21,0)="^^1^1^2940701^"
^DD(2100,450.62,21,1,0)="Enter any information you want recorded about this advance."
^DD(2100,450.62,"DT")="2940421"
^DD(2100,450.63,0)="TRAVEL TYPE2^FX^^FMSTV4;9^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.63,3)="Answer must be 1-3 characters in length."
^DD(2100,450.63,21,0)="^^1^1^2940630^^"
^DD(2100,450.63,21,1,0)="Enter the advance travel type against which this voucher is to be applied."
^DD(2100,450.63,"DT")="2940421"
^DD(2100,450.64,0)="TO TRANS CODE 2^FX^^FMSTV4;10^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.64,3)="Answer must be 1-2 characters in length."
^DD(2100,450.64,21,0)="^^2^2^2940630^"
^DD(2100,450.64,21,1,0)="This field is required if Applied Advance Travel Type requires an"
^DD(2100,450.64,21,2,0)="obligation."
^DD(2100,450.64,"DT")="2940421"
^DD(2100,450.65,0)="TO TRANS NUMBER 2^FX^^FMSTV4;11^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.65,3)="Answer must be 1-11 characters in length."
^DD(2100,450.65,21,0)="^^2^2^2940630^"
^DD(2100,450.65,21,1,0)="This field is required if Applied Advance Travel Type requires an"
^DD(2100,450.65,21,2,0)="obligation."
^DD(2100,450.65,"DT")="2940421"
^DD(2100,450.66,0)="TRAVEL ADVANCE NUMBER 2^FX^^FMSTV4;12^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.66,3)="Answer must be 1-6 characters in length."
^DD(2100,450.66,21,0)="^^2^2^2940630^"
^DD(2100,450.66,21,1,0)="This field is required for each advance application line with a non-blank"
^DD(2100,450.66,21,2,0)="Travel Type."
^DD(2100,450.66,"DT")="2940421"
^DD(2100,450.67,0)="APPLIED AMT 2^NJ15,2O^^FMSTV4;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.67,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.67,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.67,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.67,21,0)="^^2^2^2940630^"
^DD(2100,450.67,21,1,0)="This field is required for each advance application line with a non-blank"
^DD(2100,450.67,21,2,0)="Travel Type."
^DD(2100,450.67,"DT")="2940420"
^DD(2100,450.68,0)="APPLIED 2 INC DEC^FX^^FMSTV4;14^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.68,3)="Answer must be 1 character in length."
^DD(2100,450.68,21,0)="^^2^2^2940630^"
^DD(2100,450.68,21,1,0)="This field is optional for modification documents. Blank on original"
^DD(2100,450.68,21,2,0)="entry. Defaults to I (increase)."
^DD(2100,450.68,"DT")="2940421"
^DD(2100,450.69,0)="ADV BALANCE 2^NJ16,2O^^FMSTV4;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999.99)!(X<0) X"
^DD(2100,450.69,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.69,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.69,3)="Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits"
^DD(2100,450.69,21,0)="^^3^3^2940630^"
^DD(2100,450.69,21,1,0)="This field is system-maintained. Displays the outstanding balance of the"
^DD(2100,450.69,21,2,0)="travel advance for this Employee, Travel Type and Travel Order, excluding"
^DD(2100,450.69,21,3,0)="the current document."
^DD(2100,450.69,"DT")="2940420"
^DD(2100,450.7,0)="HEADER DESCRIPTION 2^FX^^FMSTV4;16^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.7,3)="Answer must be 1-12 characters in length."
^DD(2100,450.7,21,0)="^^2^2^2940701^"
^DD(2100,450.7,21,1,0)="Enter any information you want recorded about this advance application"
^DD(2100,450.7,21,2,0)="line. This field may be changed by a MODIFY document."
^DD(2100,450.7,"DT")="2940421"
^DD(2100,450.71,0)="TRAVEL TYPE3^FX^^FMSTV4;17^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.71,3)="Answer must be 1-3 characters in length."
^DD(2100,450.71,21,0)="^^1^1^2940630^"
^DD(2100,450.71,21,1,0)="Enter the advance travel type against which this voucher is to be applied."
^DD(2100,450.71,"DT")="2940421"
^DD(2100,450.72,0)="TO TRANS CODE 3^FX^^FMSTV4;18^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.72,3)="Answer must be 1-2 characters in length."
^DD(2100,450.72,21,0)="^^2^2^2940822^^"
^DD(2100,450.72,21,1,0)="This field is required if Applied Advance Travel Type requires an"
^DD(2100,450.72,21,2,0)="obligation."
^DD(2100,450.72,"DT")="2940421"
^DD(2100,450.73,0)="TO TRANS NUMBER 3^FX^^FMSTV4;19^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.73,3)="Answer must be 1-11 characters in length."
^DD(2100,450.73,21,0)="^^2^2^2940822^"
^DD(2100,450.73,21,1,0)="This field is required if Applied Advance Travel Type requires an"
^DD(2100,450.73,21,2,0)="obligation."
^DD(2100,450.73,"DT")="2940421"
^DD(2100,450.74,0)="TRAVEL ADVANCE NUMBER 3^FX^^FMSTV4;20^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.74,3)="Answer must be 1-6 characters in length."
^DD(2100,450.74,21,0)="^^2^2^2940630^"
^DD(2100,450.74,21,1,0)="This field is required for each advance application line with a non-blank"
^DD(2100,450.74,21,2,0)="Travel Type."
^DD(2100,450.74,"DT")="2940421"
^DD(2100,450.75,0)="APPLIED AMT 3^NJ15,2O^^FMSTV4;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,450.75,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.75,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.75,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,450.75,21,0)="^^2^2^2940630^"
^DD(2100,450.75,21,1,0)="This field is required for each advance application line with a non-blank"
^DD(2100,450.75,21,2,0)="Travel Type."
^DD(2100,450.75,"DT")="2940420"
^DD(2100,450.76,0)="APPLIED 3 INC DEC^FX^^FMSTV4;22^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.76,3)="Answer must be 1 character in length."
^DD(2100,450.76,21,0)="^^2^2^2940630^"
^DD(2100,450.76,21,1,0)="This field is optional for modification documents. Blank on original"
^DD(2100,450.76,21,2,0)="entry. Defaults to I (increase)."
^DD(2100,450.76,"DT")="2940421"
^DD(2100,450.77,0)="ADV BALANCE 3^NJ16,2O^^FMSTV4;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999.99)!(X<0) X"
^DD(2100,450.77,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.77,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,450.77,3)="Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits"
^DD(2100,450.77,21,0)="^^3^3^2940630^"
^DD(2100,450.77,21,1,0)="This field is system-maintained. Displays the outstanding balance of the"
^DD(2100,450.77,21,2,0)="travel advance for this Employee, Trvel Type and Travel Order, excludiing"
^DD(2100,450.77,21,3,0)="the current document."
^DD(2100,450.77,"DT")="2940420"
^DD(2100,450.78,0)="HEADER DESCRIPTION 3^FX^^FMSTV4;24^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.78,3)="Answer must be 1-12 characters in length."
^DD(2100,450.78,21,0)="^^2^2^2940701^"
^DD(2100,450.78,21,1,0)="Enter any information you want recorded about this advance application"
^DD(2100,450.78,21,2,0)="line. This field may be changed by a MODIFY document."
^DD(2100,450.78,"DT")="2940421"
^DD(2100,450.79,0)="TYPE OF VOUCHER^FX^^FMSTV5;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.79,3)="Answer must be 1 character in length."
^DD(2100,450.79,21,0)="^^1^1^2940630^"
^DD(2100,450.79,21,1,0)="This is not a FMS doucment required field. It is not on the screen."
^DD(2100,450.79,"DT")="2940421"
^DD(2100,450.8,0)="OCR PRINT FLAG^F^^FMSTV5;2^K:$L(X)>1!($L(X)<1) X"
^DD(2100,450.8,3)="Answer must be 1 character in length."
^DD(2100,450.8,21,0)="^^1^1^2940630^"
^DD(2100,450.8,21,1,0)="This is not a FMS document required field. It is not on the user screen."
^DD(2100,450.8,"DT")="2940309"
^DD(2100,450.81,0)="SCHEDULE DISB FLAG^FX^^FMSTV5;3^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.81,3)="Answer must be 1 character in length."
^DD(2100,450.81,21,0)="^^1^1^2940630^"
^DD(2100,450.81,21,1,0)="This is not a FMS document required field. It is not on user input screen."
^DD(2100,450.81,"DT")="2940421"
^DD(2100,450.82,0)="TRAVEL DATE BEGINS^RD^^FMSTV2;29^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,450.82,21,0)="^^1^1^2940630^"
^DD(2100,450.82,21,1,0)="This field store the travel begin date in YYMMDD format."
^DD(2100,450.82,"DT")="2940408"
^DD(2100,450.83,0)="TRAVEL DATE ENDS^RD^^FMSTV2;30^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,450.83,21,0)="^^1^1^2940630^"
^DD(2100,450.83,21,1,0)="This field stroes the travel ending date in YYMMDD format."
^DD(2100,450.83,"DT")="2940408"
^DD(2100,450.84,0)="SCHEDULED PAY DATE^D^^FMSTV2;31^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,450.84,21,0)="^^1^1^2940810^"
^DD(2100,450.84,21,1,0)="This field stores the scheduled pay date in YYMMDD format."
^DD(2100,450.84,"DT")="2940408"
^DD(2100,450.85,0)="UNAPPLIED DEP NUM^F^^FMSTV3;27^K:$L(X)>13!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,450.85,3)="Answer must be 1-13 characters in length."
^DD(2100,450.85,21,0)="^^1^1^2940630^"
^DD(2100,450.85,21,1,0)="Enter unapplied deposit number."
^DD(2100,450.85,"DT")="2940413"
^DD(2100,452.05,0)="TRAVEL TYPE^RFX^^FMSTO2;5^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.05,3)="Answer must be 1-3 characters in length."
^DD(2100,452.05,21,0)="^^2^2^2940630^^^"
^DD(2100,452.05,21,1,0)="This is a required field. Enter the type of travel for this order or"
^DD(2100,452.05,21,2,0)="advance.  This field may not be changed by a MODIFY document."
^DD(2100,452.05,"DT")="2940421"
^DD(2100,452.14,0)="CREDIT CARD FLAG^FX^^FMSTO2;14^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.14,3)="Answer must be 1 character in length."
^DD(2100,452.14,21,0)="^^2^2^2940630^"
^DD(2100,452.14,21,1,0)="This field is system-maintained. It indicates whether or not the employee"
^DD(2100,452.14,21,2,0)="has been issued a government credit card."
^DD(2100,452.14,"DT")="2940421"
^DD(2100,452.16,0)="PRINT FLAG^FX^^FMSTO2;16^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.16,3)="Answer must be 1 character in length."
^DD(2100,452.16,21,0)="^^2^2^2940630^"
^DD(2100,452.16,21,1,0)="Optional for original entry document. Y to print travel order; N to not"
^DD(2100,452.16,21,2,0)="print travel order."
^DD(2100,452.16,"DT")="2940421"
^DD(2100,452.17,0)="TO VENDOR ADDRESS 1^FX^^FMSTO2;17^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,452.17,3)="Answer must be 3-30 characters in length."
^DD(2100,452.17,21,0)="^^1^1^2940630^"
^DD(2100,452.17,21,1,0)="This is a system-maintained field."
^DD(2100,452.17,"DT")="2940421"
^DD(2100,452.18,0)="TO VENDOR ADDRESS 2^FX^^FMSTO2;18^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,452.18,3)="Answer must be 3-30 characters in length."
^DD(2100,452.18,21,0)="^^1^1^2940630^"
^DD(2100,452.18,21,1,0)="This is a system-maintained field."
^DD(2100,452.18,"DT")="2940421"
^DD(2100,452.19,0)="TO CITY^FX^^FMSTO2;19^K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.19,3)="Answer must be 1-19 characters in length."
^DD(2100,452.19,21,0)="^^1^1^2940630^"
^DD(2100,452.19,21,1,0)="This is a system-maintained field."
^DD(2100,452.19,"DT")="2940421"
^DD(2100,452.2,0)="TO STATE CODE^FX^^FMSTO2;20^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,452.2,3)="Answer must be 2 characters in length."
^DD(2100,452.2,21,0)="^^1^1^2940630^"
^DD(2100,452.2,21,1,0)="This is a system-maintained field for FMS transaction category TO."
^DD(2100,452.2,"DT")="2940421"
^DD(2100,452.21,0)="TO ZIP CODE^F^^FMSTO2;21^K:$L(X)>9!($L(X)<5)!'(X?5N!(X?9N)) X"
^DD(2100,452.21,3)="Answer must be 5-9 characters in length."
^DD(2100,452.21,21,0)="^^1^1^2940630^^"
^DD(2100,452.21,21,1,0)="This is a system-maintained field of FMS TO document."
^DD(2100,452.21,"DT")="2940630"
^DD(2100,452.22,0)="OUTSTANDING BALANCE^NJ16,2O^^FMSTO2;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999.99)!(X<0) X"
^DD(2100,452.22,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.22,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.22,3)="Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits"
^DD(2100,452.22,21,0)="^^3^3^2940630^^"
^DD(2100,452.22,21,1,0)="This is a system-maintained field. It displays the outstanding balance of"
^DD(2100,452.22,21,2,0)="the travel advance for this employee and Travel Type, excluding the"
^DD(2100,452.22,21,3,0)="current document."
^DD(2100,452.22,"DT")="2940420"
^DD(2100,452.23,0)="REMAINING ADVANCE^NJ16,2O^^FMSTO2;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999.99)!(X<0) X"
^DD(2100,452.23,2)="S Y(0)=Y S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.23,2.1)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.23,3)="Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits"
^DD(2100,452.23,21,0)="^^1^1^2940630^"
^DD(2100,452.23,21,1,0)="This is a system-maintained field."
^DD(2100,452.23,"DT")="2940420"
^DD(2100,452.24,0)="TEXT TYPE^FX^^FMSTO2;24^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.24,3)="Answer must be 1-2 characters in length."
^DD(2100,452.24,21,0)="^^2^2^2940630^"
^DD(2100,452.24,21,1,0)="This is a optional field. The text type entered is associated with the"
^DD(2100,452.24,21,2,0)="document as a whole."
^DD(2100,452.24,"DT")="2940421"
^DD(2100,452.31,0)="END TRAVEL DESC^F^^FMSTO3;4^K:$L(X)>15!($L(X)<1) X"
^DD(2100,452.31,3)="Answer must be 1-15 characters in length."
^DD(2100,452.31,21,0)="^^2^2^2940630^"
^DD(2100,452.31,21,1,0)="Enter a text description of the end date of this Travel Order, such as On"
^DD(2100,452.31,21,2,0)="arrival. This field may be changed by a MODIFY document."
^DD(2100,452.31,"DT")="2940201"
^DD(2100,452.32,0)="TRAVEL MODE CODES^FX^^FMSTO3;5^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.32,3)="Answer must be 1-4 characters in length."
^DD(2100,452.32,21,0)="^^2^2^2940630^"
^DD(2100,452.32,21,1,0)="Enter the codes for the different modes of transportation to be used"
^DD(2100,452.32,21,2,0)="under this travel order."
^DD(2100,452.32,"DT")="2940421"
^DD(2100,452.33,0)="TRAVEL PURPOSE CODES^RFX^^FMSTO3;6^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.33,3)="Answer must be 1-5 characters in length."
^DD(2100,452.33,21,0)="^^2^2^2940630^"
^DD(2100,452.33,21,1,0)="Enter the codes which detail the purpose or purposes of the travel"
^DD(2100,452.33,21,2,0)="associated with this travel order."
^DD(2100,452.33,"DT")="2940421"
^DD(2100,452.34,0)="PCS AUTH CODES^FX^^FMSTO3;7^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.34,3)="Answer must be 1-7 characters in length."
^DD(2100,452.34,21,0)="^^2^2^2940630^"
^DD(2100,452.34,21,1,0)="Required if Travel Type's Transfer of Station Code Required flag is Y on"
^DD(2100,452.34,21,2,0)="Travel Type Table unless classified."
^DD(2100,452.34,"DT")="2940421"
^DD(2100,452.35,0)="PER DIEM CODE^FX^^FMSTO3;8^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.35,3)="Answer must be 1 character in length."
^DD(2100,452.35,21,0)="^^1^1^2940630^"
^DD(2100,452.35,21,1,0)="Enter the code which indicates the type of per diem allowance."
^DD(2100,452.35,"DT")="2940421"
^DD(2100,452.36,0)="PER DIEM AMOUNT^NJ14,2O^^FMSTO3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100,452.36,2)="S Y(0)=Y S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.36,2.1)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.36,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100,452.36,21,0)="^^2^2^2940630^^"
^DD(2100,452.36,21,1,0)="Enter the amount in dollars (no cents), that the traveler is authorized to"
^DD(2100,452.36,21,2,0)="spend daily for subsistence."
^DD(2100,452.36,"DT")="2940420"
^DD(2100,452.37,0)="PER DIEM INC DEC^FX^^FMSTO3;10^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.37,3)="Answer must be 1 character in length."
^DD(2100,452.37,21,0)="^^1^1^2940630^"
^DD(2100,452.37,21,1,0)="Enter 'D' for a decrease in per diem rate, 'I' for an increase."
^DD(2100,452.37,"DT")="2940421"
^DD(2100,452.38,0)="OBLIG TRANS TYPE^RFX^^FMSTO3;11^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.38,3)="Answer must be 1-2 characters in length."
^DD(2100,452.38,21,0)="^^2^2^2940630^"
^DD(2100,452.38,21,1,0)="This is a required field. Enter the transaction type code that is"
^DD(2100,452.38,21,2,0)="appropriate for the dollar amount being entered for the Travel Advance."
^DD(2100,452.38,"DT")="2940421"
^DD(2100,452.39,0)="TOTAL OBLIGATION^RNJ14,2O^^FMSTO3;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100,452.39,2)="S Y(0)=Y S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.39,2.1)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.39,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits."
^DD(2100,452.39,21,0)="^^4^4^2940630^^^"
^DD(2100,452.39,21,1,0)="This is a required field. Enter the unsignee summed amount of all"
^DD(2100,452.39,21,2,0)="obligation lines on the document. When summing, subtract the decrease"
^DD(2100,452.39,21,3,0)="amounts in a modifying document. This field may be changed by a MODIFY"
^DD(2100,452.39,21,4,0)="document."
^DD(2100,452.39,"DT")="2940420"
^DD(2100,452.4,0)="TRAVEL ITINERARY 1^FX^^FMSTO3;13^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,452.4,3)="Answer must be 3-60 characters in length."
^DD(2100,452.4,21,0)="^^2^2^2940630^"
^DD(2100,452.4,21,1,0)="Enter a textual listing of the cities to be visited, and the point of"
^DD(2100,452.4,21,2,0)="departure. Only 2 lines of text are permitted here."
^DD(2100,452.4,"DT")="2940421"
^DD(2100,452.41,0)="TRAVEL ITINERARY 2^FX^^FMSTO3;14^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,452.41,3)="Answer must be 3-60 characters in length."
^DD(2100,452.41,21,0)="^^2^2^2940630^"
^DD(2100,452.41,21,1,0)="Enter a textual listing of cities to be visited, and the point of"
^DD(2100,452.41,21,2,0)="departure. Only two lines of text are permitted here."
^DD(2100,452.41,"DT")="2940421"
^DD(2100,452.42,0)="ADVANCE TRANS TYPE^RFX^^FMSTO3;15^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.42,3)="Answer must be 1-2 characters in length."
^DD(2100,452.42,21,0)="^^2^2^2950119^^"
^DD(2100,452.42,21,1,0)="Enter the transaction type code that is appropriate for the dollar amount"
^DD(2100,452.42,21,2,0)="being entered for the Travel Advance."
^DD(2100,452.42,"DT")="2950119"
^DD(2100,452.43,0)="TOTAL ADVANCE^RNJ14,2O^^FMSTO3;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100,452.43,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.43,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.43,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100,452.43,21,0)="^^1^1^2940701^"
^DD(2100,452.43,21,1,0)="This is a required field. Includes decimal point and two decimal places."
^DD(2100,452.43,"DT")="2940422"
^DD(2100,452.44,0)="TOTAL ADV INC DEC^FX^^FMSTO3;17^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.44,3)="Answer must be 1 character in length. Enter 'I' for an increase. 'D' for decrease."
^DD(2100,452.44,21,0)="^^2^2^2940701^"
^DD(2100,452.44,21,1,0)="Enter a 'D' for a decrease in advance amount, 'I' for an increase. If left"
^DD(2100,452.44,21,2,0)="blank, it defaults to 'I'."
^DD(2100,452.44,"DT")="2940421"
^DD(2100,452.47,0)="ADVANCE VNDR ADDR^FX^^FMSTO4;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.47,3)="Answer must be 1-2 characters in length."
^DD(2100,452.47,21,0)="^^1^1^2940701^"
^DD(2100,452.47,21,1,0)="This field is optional if Print Check Flag is Y. Otherwise blank."
^DD(2100,452.47,"DT")="2940421"
^DD(2100,452.48,0)="YEAR REQUIRED^F^^FMSTO4;2^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,452.48,3)="Answer must be 2 characters in length."
^DD(2100,452.48,21,0)="^^2^2^2940701^"
^DD(2100,452.48,21,1,0)="This is the year of the date on which you want the payment to be"
^DD(2100,452.48,21,2,0)="selected by the automated disbursements process."
^DD(2100,452.48,"DT")="2940202"
^DD(2100,452.49,0)="MONTH REQUIRED^F^^FMSTO4;3^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,452.49,3)="Answer must be 1-2 characters in length."
^DD(2100,452.49,21,0)="^^2^2^2940701^"
^DD(2100,452.49,21,1,0)="This is the month of the date on which you want the payment to be selected"
^DD(2100,452.49,21,2,0)="by the automated disbursments process."
^DD(2100,452.49,"DT")="2940202"
^DD(2100,452.5,0)="DAY REQUIRED^F^^FMSTO4;4^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,452.5,3)="Answer must be 1-2 characters in length."
^DD(2100,452.5,21,0)="^^2^2^2940701^"
^DD(2100,452.5,21,1,0)="This is the day of the date on which you want the payment to be selected"
^DD(2100,452.5,21,2,0)="by the automated disbursements process."
^DD(2100,452.5,"DT")="2940202"
^DD(2100,452.51,0)="COMMENT LINE 1^FX^^FMSTO4;5^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.51,3)="Answer must be 1-40 characters in length."
^DD(2100,452.51,21,0)="^^1^1^2940701^"
^DD(2100,452.51,21,1,0)="This field is optional if Print Flag Check is Y. Otherwise blank."
^DD(2100,452.51,"DT")="2940421"
^DD(2100,452.52,0)="COMMENT LINE 2^FX^^FMSTO4;6^K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.52,3)="Answer must be 1-40 characters in length."
^DD(2100,452.52,21,0)="^^1^1^2940701^"
^DD(2100,452.52,21,1,0)="This field is optional if Print Check Flag is Y. Otherwise blank."
^DD(2100,452.52,"DT")="2940421"
^DD(2100,452.53,0)="ADV VENDOR ADDRESS 1^FX^^FMSTO4;7^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.53,3)="Answer must be 1-30 characters in length."
^DD(2100,452.53,21,0)="^^2^2^2940701^"
^DD(2100,452.53,21,1,0)="This field is optional. Alternate address may be entered. Otherwise"
^DD(2100,452.53,21,2,0)="system-maintained."
^DD(2100,452.53,"DT")="2940421"
^DD(2100,452.54,0)="ADV VENDOR ADDRESS 2^FX^^FMSTO4;8^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.54,3)="Answer must be 1-30 characters in length."
^DD(2100,452.54,21,0)="^^2^2^2940701^"
^DD(2100,452.54,21,1,0)="This field is optional. Alternate address may be entered. Otherwise"
^DD(2100,452.54,21,2,0)="system-maintained."
^DD(2100,452.54,"DT")="2940421"
^DD(2100,452.55,0)="ADV CITY^FX^^FMSTO4;9^K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.55,3)="Answer must be 1-19 characters in length."
^DD(2100,452.55,21,0)="^^2^2^2940701^^"
^DD(2100,452.55,21,1,0)="This field is optional. Alternate address may be entered. Otherwise"
^DD(2100,452.55,21,2,0)="system-maintained."
^DD(2100,452.55,"DT")="2940421"
^DD(2100,452.56,0)="ADV STATE CODE^FX^^FMSTO4;10^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,452.56,3)="Answer must be 2 characters in length."
^DD(2100,452.56,21,0)="^^2^2^2940701^"
^DD(2100,452.56,21,1,0)="This field is optional.  Alternate address may be entered. Otherwise"
^DD(2100,452.56,21,2,0)="system-maintained."
^DD(2100,452.56,"DT")="2940421"
^DD(2100,452.57,0)="ADV ZIP CODE^F^^FMSTO4;11^K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X"
^DD(2100,452.57,3)="Answer must be 5-9 characters in length."
^DD(2100,452.57,21,0)="^^2^2^2940701^^^"
^DD(2100,452.57,21,1,0)="This field is optional. Alternate address may be entered. Otherwise"
^DD(2100,452.57,21,2,0)="system-maintained."
^DD(2100,452.57,"DT")="2940701"
^DD(2100,452.59,0)="PICK UP CHECK^FX^^FMSTO4;13^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.59,3)="Answer must be 1 character in length."
^DD(2100,452.59,21,0)="^^2^2^2940701^"
^DD(2100,452.59,21,1,0)="This field is optional. Y to send check to Agency; S to send check with"
^DD(2100,452.59,21,2,0)="enclosures. Defaults to N."
^DD(2100,452.59,"DT")="2940421"
^DD(2100,452.6,0)="SEQ NUMBER^RFX^^FMSTO4;14^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.6,3)="Answer must be 1-8 characters in length."
^DD(2100,452.6,21,0)="^^1^1^2940701^"
^DD(2100,452.6,21,1,0)="This field is required if Print Check Flag is N. Blank otherwise."
^DD(2100,452.6,"DT")="2940422"
^DD(2100,452.62,0)="TRAVEL ADVANCE NUMB^RFX^^FMSTO4;16^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.62,3)="Answer must be 1-6 characters in length."
^DD(2100,452.62,21,0)="^^1^1^2940701^"
^DD(2100,452.62,21,1,0)="This field is required if advance is being entered or modified."
^DD(2100,452.62,"DT")="2940426"
^DD(2100,452.63,0)="HEADER XORGANIZATION^RFX^^FMSTO4;17^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.63,3)="Answer must be 1-7 characters in length."
^DD(2100,452.63,21,0)="^^3^3^2940701^"
^DD(2100,452.63,21,1,0)="Enter the code for the station which is funding this travel advance. This"
^DD(2100,452.63,21,2,0)="field may not changed by a MODIFY document, unless a new Advance Number is"
^DD(2100,452.63,21,3,0)="used."
^DD(2100,452.63,"DT")="2940426"
^DD(2100,452.64,0)="HEADER SUB ORG^FX^^FMSTO4;18^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.64,3)="Answer must be 1-2 characters in length."
^DD(2100,452.64,21,0)="^^2^2^2940701^"
^DD(2100,452.64,21,1,0)="Enter the Satellite Station. This field may not be changed by a MODIFY"
^DD(2100,452.64,21,2,0)="document, unless a new Advance is used."
^DD(2100,452.64,"DT")="2940421"
^DD(2100,452.65,0)="HEADER COST ORG^FX^^FMSTO4;19^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.65,3)="Answer must be 1-7 characters in length."
^DD(2100,452.65,21,0)="^^3^3^2940701^"
^DD(2100,452.65,21,1,0)="This is optional field. Enter this code only if the station benefitting"
^DD(2100,452.65,21,2,0)="from the travel advance being paid for on this voucher is different from"
^DD(2100,452.65,21,3,0)="the station."
^DD(2100,452.65,"DT")="2940421"
^DD(2100,452.66,0)="HEADER COST SUB ORG^FX^^FMSTO5;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.66,3)="Answer must be 1-2 characters in length."
^DD(2100,452.66,21,0)="^^1^1^2940701^"
^DD(2100,452.66,21,1,0)="Enter the sub cost center."
^DD(2100,452.66,"DT")="2940421"
^DD(2100,452.67,0)="HEADER JOB NUMBER^FX^^FMSTO5;2^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.67,3)="Answer must be 1-8 characters in length."
^DD(2100,452.67,21,0)="^^1^1^2940701^"
^DD(2100,452.67,21,1,0)="This is a optional field."
^DD(2100,452.67,"DT")="2940421"
^DD(2100,452.68,0)="HEADER XPROGRAM^FX^^FMSTO5;3^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.68,3)="Answer must be 1-9 characters in length."
^DD(2100,452.68,21,0)="^^3^3^2940701^"
^DD(2100,452.68,21,1,0)="This field is required if the Allotment, Suballotment, Allowance Program"
^DD(2100,452.68,21,2,0)="Option or Suballowance FCP/PRJ is Y or A. This field may not be changed"
^DD(2100,452.68,21,3,0)="by a MODIFY document, unless a new Advance Number is used."
^DD(2100,452.68,"DT")="2940421"
^DD(2100,452.69,0)="HEADER REPORT CAT^FX^^FMSTO5;4^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.69,3)="Answer must be 1-4 characters in length."
^DD(2100,452.69,21,0)="^^4^4^2940701^"
^DD(2100,452.69,21,1,0)="This is optional field. Enter a appropriate code from the Reporting"
^DD(2100,452.69,21,2,0)="Category Table. The code used must be valid for the Administration /Staff"
^DD(2100,452.69,21,3,0)="Office inferred from the station code or a combination of other codes as"
^DD(2100,452.69,21,4,0)="specified on the Budget Options Fund Table."
^DD(2100,452.69,"DT")="2940421"
^DD(2100,452.7,0)="HEADER DESCRIPTION^FX^^FMSTO5;5^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.7,3)="Answer must be 1-12 characters in length."
^DD(2100,452.7,21,0)="^^2^2^2940701^^"
^DD(2100,452.7,21,1,0)="Enter any information you want recorded about this advance application"
^DD(2100,452.7,21,2,0)="line.  This field may be changed by a MODIFY document."
^DD(2100,452.7,"DT")="2940421"
^DD(2100,452.71,0)="ADV FUND^RFX^^FMSTO5;6^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.71,3)="Answer must be 1-6 characters in length."
^DD(2100,452.71,21,0)="^^5^5^2940701^"
^DD(2100,452.71,21,1,0)="This field is required on original entry if fund on header is blank. Enter"
^DD(2100,452.71,21,2,0)="the fund appropriate for this advance. The fund must be valid on Fund"
^DD(2100,452.71,21,3,0)="Table. If left blank, it defaults to the fund entered in the header. This"
^DD(2100,452.71,21,4,0)="field may not be changed by a MODIFY document, unless a new Advance Number"
^DD(2100,452.71,21,5,0)="is used."
^DD(2100,452.71,"DT")="2940426"
^DD(2100,452.72,0)="ADV BUDGET FY^RF^^FMSTO5;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,452.72,3)="Answer must be 2 characters in length."
^DD(2100,452.72,21,0)="^^3^3^2940701^"
^DD(2100,452.72,21,1,0)="Enter the last 2 digits of the fiscal years appropriate for this advance."
^DD(2100,452.72,21,2,0)="The years must be defined in Fiscal Year Table. If left blank, it defaults"
^DD(2100,452.72,21,3,0)="to the budget fiscal year entered in the header."
^DD(2100,452.72,"DT")="2940426"
^DD(2100,452.73,0)="ADV END BUDGET FY^RF^^FMSTO5;8^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,452.73,3)="Answer must be 2 characters in length."
^DD(2100,452.73,21,0)="^^2^2^2940701^"
^DD(2100,452.73,21,1,0)="Enter the last 2 digits of ending budget fiscal years appropriate for"
^DD(2100,452.73,21,2,0)="this advance."
^DD(2100,452.73,"DT")="2940426"
^DD(2100,452.74,0)="AGAENCY SCHD FISC YR^F^^FMSTO5;9^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,452.74,3)="Answer must be 2 characters in length."
^DD(2100,452.74,21,0)="^^1^1^2940819^"
^DD(2100,452.74,21,1,0)="This field is optional. Default to fiscal year of Accounting Period."
^DD(2100,452.74,"DT")="2940202"
^DD(2100,452.77,0)="CHECK ADVANCE^NJ14,2O^^FMSTO6;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100,452.77,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.77,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,452.77,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100,452.77,21,0)="^^1^1^2940701^"
^DD(2100,452.77,21,1,0)="This field is not on the screen."
^DD(2100,452.77,"DT")="2940420"
^DD(2100,452.78,0)="CHECK ADV INC DEC^FX^^FMSTO6;2^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.78,3)="Answer must be 1 character in length."
^DD(2100,452.78,21,0)="^^1^1^2940701^"
^DD(2100,452.78,21,1,0)="This field is not on the screen."
^DD(2100,452.78,"DT")="2940421"
^DD(2100,452.79,0)="CASH ADVANCE^NJ14,2O^^FMSTO6;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100,452.79,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2)"
^DD(2100,452.79,2.1)="I $D(GECSOT) S Y=$J(Y,0,2)"
^DD(2100,452.79,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100,452.79,21,0)="^^1^1^2940701^"
^DD(2100,452.79,21,1,0)="This field is not on the screen."
^DD(2100,452.79,"DT")="2940419"
^DD(2100,452.8,0)="CASH ADV INC DEC^FX^^FMSTO6;4^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,452.8,3)="Answer must be 1 character in length."
^DD(2100,452.8,21,0)="^^1^1^2940701^"
^DD(2100,452.8,21,1,0)="This field is not on the screen."
^DD(2100,452.8,"DT")="2940421"
^DD(2100,454.06,0)="HDR BUDGET FY^F^^FMSTP2;6^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,454.06,3)="Answer must be 2 characters in length."
^DD(2100,454.06,21,0)="^^3^3^2940701^"
^DD(2100,454.06,21,1,0)="This is a optional field. If left blank, inferred from the document date."
^DD(2100,454.06,21,2,0)="Enter the last 2 digits of the fiscal years appropriate for this"
^DD(2100,454.06,21,3,0)="document."
^DD(2100,454.06,"DT")="2940304"
^DD(2100,454.07,0)="HDR END BUDGET FY^F^^FMSTP2;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,454.07,3)="Answer must be 2 characters in length."
^DD(2100,454.07,21,0)="^^2^2^2940701^"
^DD(2100,454.07,21,1,0)="Enter the last 2 digits of the ending budget fiscal years appropriate to"
^DD(2100,454.07,21,2,0)="the document."
^DD(2100,454.07,"DT")="2940304"
^DD(2100,454.09,0)="HDR TRANS TYPE^FX^^FMSTP2;9^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100,454.09,3)="Answer must be 2 characters in length."
^DD(2100,454.09,21,0)="^^2^2^2940701^"
^DD(2100,454.09,21,1,0)="Enter the transaction type appropriate for the accounting model desired"
^DD(2100,454.09,21,2,0)="for this document."
^DD(2100,454.09,"DT")="2940421"
^DD(2100,454.1,0)="DOCUMENT TYPE^RFX^^FMSTP2;10^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,454.1,3)="Answer must be 1 character in length."
^DD(2100,454.1,21,0)="^^4^4^2940701^"
^DD(2100,454.1,21,1,0)="This field is optional. Blank defaults to 1. This is a user defined field."
^DD(2100,454.1,21,2,0)="Any one alpha-numberic character may be used to define various types of"
^DD(2100,454.1,21,3,0)="vouchers, for example, GBL, service relocation, storage, damage claim by"
^DD(2100,454.1,21,4,0)="employee, etc. This field may not be changed by a MODIFY document."
^DD(2100,454.1,"DT")="2940427"
^DD(2100,454.11,0)="SCHED YEAR^F^^FMSTP2;11^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,454.11,3)="Answer must be 2 characters in length."
^DD(2100,454.11,21,0)="^^2^2^2940701^"
^DD(2100,454.11,21,1,0)="Enter the year of the date on which you want this payment to be selected"
^DD(2100,454.11,21,2,0)="by the automated disbursements process."
^DD(2100,454.11,"DT")="2940304"
^DD(2100,454.12,0)="SCHED MONTH^F^^FMSTP2;12^K:$L(X)>2!($L(X)<1)!'(X?1.2N&(0<X<13)) X"
^DD(2100,454.12,3)="Answer must be 1-2 characters in length."
^DD(2100,454.12,21,0)="^^2^2^2940701^"
^DD(2100,454.12,21,1,0)="Enter the month of the date on which you want this payment to be selected"
^DD(2100,454.12,21,2,0)="by the automated disbursements process."
^DD(2100,454.12,"DT")="2940304"
^DD(2100,454.13,0)="SCHED DAY^F^^FMSTP2;13^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,454.13,3)="Answer must be 1-2 characters in length."
^DD(2100,454.13,21,0)="^^2^2^2940701^"
^DD(2100,454.13,21,1,0)="Enter the day of the date on which you want this payment to be selected by"
^DD(2100,454.13,21,2,0)="the automated disbursements process."
^DD(2100,454.13,"DT")="2940304"
^DD(2100,454.14,0)="VOUCHER SCHEDULE TYP^FX^^FMSTP2;14^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,454.14,3)="Answer must be 1 character in length."
^DD(2100,454.14,21,0)="^^3^3^2940701^^"
^DD(2100,454.14,21,1,0)="This field is required for automated disbursements. Enter T if this"
^DD(2100,454.14,21,2,0)="voucher is common carrier oriented, and M otherwise. This field may not be"
^DD(2100,454.14,21,3,0)="changed by a MODIFY document."
^DD(2100,454.14,"DT")="2940421"
^DD(2100,454.16,0)="DOCUMENT DESCRIPTION^FX^^FMSTP2;16^K:$L(X)>12!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,454.16,3)="Answer must be 3-12 characters in length."
^DD(2100,454.16,21,0)="^^3^3^2940701^"
^DD(2100,454.16,21,1,0)="This field is optional. Used for reporting purposes only. Enter notes"
^DD(2100,454.16,21,2,0)="about this voucher document. This field may be changed by a MODIFY"
^DD(2100,454.16,21,3,0)="document."
^DD(2100,454.16,"DT")="2940421"
^DD(2100,454.18,0)="FA IND^FX^^FMSTP2;18^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,454.18,3)="Answer must be 1 character in length."
^DD(2100,454.18,21,0)="^^2^2^2940701^"
^DD(2100,454.18,21,1,0)="This is optional on PZ document. Y if payment authorization pertains to"
^DD(2100,454.18,21,2,0)="fix assets acquisition."
^DD(2100,454.18,"DT")="2940421"
^DD(2100,454.21,0)="DOCUMENT TOTAL^NJ15,2O^^FMSTP2;21^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,454.21,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.21,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.21,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,454.21,21,0)="^^3^3^2940701^"
^DD(2100,454.21,21,1,0)="Total of unsigned line amounts. On a modification document, only total of"
^DD(2100,454.21,21,2,0)="changes to the original line amounts. Include deciaml point and 2 deciaml"
^DD(2100,454.21,21,3,0)="places."
^DD(2100,454.21,"DT")="2940420"
^DD(2100,454.23,0)="VENDOR ADDRESS LINE1^FX^^FMSTP2;23^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,454.23,3)="Answer must be 3-30 characters in length."
^DD(2100,454.23,21,0)="^^2^2^2940705^"
^DD(2100,454.23,21,1,0)="This field is optional if Miscellaneous Vendor Code is used."
^DD(2100,454.23,21,2,0)="System-maintained otherwise."
^DD(2100,454.23,"DT")="2940421"
^DD(2100,454.24,0)="VENDOR ADDRESS LINE2^FX^^FMSTP2;24^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,454.24,3)="Answer must be 3-30 characters in length."
^DD(2100,454.24,21,0)="^^2^2^2940701^"
^DD(2100,454.24,21,1,0)="This field is optional if Miscellaneous Vendor Code is used."
^DD(2100,454.24,21,2,0)="System-maintaiined otherwise."
^DD(2100,454.24,"DT")="2940421"
^DD(2100,454.28,0)="HAND PICK CK IND^FX^^FMSPT2;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,454.28,3)="Answer must be 1 character in length."
^DD(2100,454.28,21,0)="^^3^3^2940701^"
^DD(2100,454.28,21,1,0)="This field is optional. Y for hand pick up checks; S for checks to be held"
^DD(2100,454.28,21,2,0)="for additional enclosures; B for checks to be held for additional"
^DD(2100,454.28,21,3,0)="enclosures and for hand pick-up. Defaults to N."
^DD(2100,454.28,"DT")="2940421"
^DD(2100,454.29,0)="COMMENTS TO PRINT^FX^^FMSTP3;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,454.29,3)="Answer must be 3-40 characters in length."
^DD(2100,454.29,21,0)="^^4^4^2940701^"
^DD(2100,454.29,21,1,0)="Optional. Enter 40 characters of text in this field. If entered, this text"
^DD(2100,454.29,21,2,0)="will be printed on the face of the checks if issued by Treasury. If the"
^DD(2100,454.29,21,3,0)="agency prints its own check, the comment will be printed on the check"
^DD(2100,454.29,21,4,0)="stub."
^DD(2100,454.29,"DT")="2940421"
^DD(2100,454.35,0)="DISCOUNT DAYS 1^F^^FMSTP3;7^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,454.35,3)="Answer must be 1-2 characters in length."
^DD(2100,454.35,21,0)="^^2^2^2940701^"
^DD(2100,454.35,21,1,0)="This field is required if discount percent or discount amount are entered."
^DD(2100,454.35,21,2,0)="Blank otherwise."
^DD(2100,454.35,"DT")="2940304"
^DD(2100,454.36,0)="DISCOUNT PERCENT 1^FO^^FMSTP3;8^K:$L(X)>6!($L(X)<4)!'(X?1.2N1"".""3N) X"
^DD(2100,454.36,2)="S Y(0)=Y I Y=""0.000"" S Y="""""
^DD(2100,454.36,2.1)="I Y=""0.000"" S Y="""""
^DD(2100,454.36,3)="Answer must be 4-6 characters in length. Type a Discount %. Must include decimal point and three decimal places."
^DD(2100,454.36,21,0)="^^1^1^2940701^"
^DD(2100,454.36,21,1,0)="This field is optional. Includes decimal point and 3 decimal places."
^DD(2100,454.36,"DT")="2940601"
^DD(2100,454.37,0)="DISCOUNT AMOUNT 1^NJ8,2O^^FMSTP3;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(2100,454.37,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.37,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.37,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(2100,454.37,21,0)="^^1^1^2940701^"
^DD(2100,454.37,21,1,0)="This field is optional. Includes decimal point and two decimal places."
^DD(2100,454.37,"DT")="2940420"
^DD(2100,454.38,0)="DISCOUNT DAYS 2^F^^FMSTP3;10^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,454.38,3)="Answer must be 1-2 characters in length."
^DD(2100,454.38,21,0)="^^2^2^2940701^"
^DD(2100,454.38,21,1,0)="This field is required if discount percent or discount amount are entered."
^DD(2100,454.38,21,2,0)="Blank otherwise."
^DD(2100,454.38,"DT")="2940304"
^DD(2100,454.39,0)="DISCOUNT PERCENT 2^FO^^FMSTP3;11^K:$L(X)>6!($L(X)<4)!'(X?1.2N1"".""3N) X"
^DD(2100,454.39,2)="S Y(0)=Y I Y=""0.000"" S Y="""""
^DD(2100,454.39,2.1)="I Y=""0.000"" S Y="""""
^DD(2100,454.39,3)="Answer must be 4-6 characters in length. Type a discount %. Must includes decimal point and three decimal places."
^DD(2100,454.39,21,0)="^^1^1^2940701^"
^DD(2100,454.39,21,1,0)="This field is optional. Includes decimal point and 3 decimal places."
^DD(2100,454.39,"DT")="2940601"
^DD(2100,454.4,0)="DISCOUNT AMOUNT 2^NJ8,2O^^FMSTP3;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(2100,454.4,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.4,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.4,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(2100,454.4,21,0)="^^1^1^2940701^"
^DD(2100,454.4,21,1,0)="This field is optional. Includes decimal point and two deciaml places."
^DD(2100,454.4,"DT")="2940420"
^DD(2100,454.41,0)="DISCOUNT DAYS 3^F^^FMSTP3;13^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,454.41,3)="Answer must be 1-2 characters in length."
^DD(2100,454.41,21,0)="^^2^2^2940701^"
^DD(2100,454.41,21,1,0)="This field is required if discount percent or discount amount are entered."
^DD(2100,454.41,21,2,0)="Blank otherwise."
^DD(2100,454.41,"DT")="2940304"
^DD(2100,454.42,0)="DISCOUNT PERCENT 3^FO^^FMSTP3;14^K:$L(X)>6!($L(X)<4)!'(X?1.2N1"".""3N) X"
^DD(2100,454.42,2)="S Y(0)=Y I Y=""0.000"" S Y="""""
^DD(2100,454.42,2.1)="I Y=""0.000"" S Y="""""
^DD(2100,454.42,3)="Answer must be 4-6 characters in length. Type a discount %. Must includes decimal point and three decimal places."
^DD(2100,454.42,21,0)="^^1^1^2940701^"
^DD(2100,454.42,21,1,0)="This field is optional. Includes decimal point and 3 decimal places."
^DD(2100,454.42,"DT")="2940601"
^DD(2100,454.43,0)="DISCOUNT AMOUNT 3^NJ8,2O^^FMSTP3;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(2100,454.43,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.43,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,454.43,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(2100,454.43,21,0)="^^1^1^2940701^"
^DD(2100,454.43,21,1,0)="This field is optional. Includes decimal point and two decimal places."
^DD(2100,454.43,"DT")="2940420"
^DD(2100,454.44,0)="HDR DISC LOST RSN CD^FX^^FMSTP3;16^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,454.44,3)="Answer must be 1 character in length."
^DD(2100,454.44,21,0)="^^2^2^2940701^"
^DD(2100,454.44,21,1,0)="This field is optional. Enter a discount lost reason code if the discounts"
^DD(2100,454.44,21,2,0)="associated with this voucher has been lost."
^DD(2100,454.44,"DT")="2940421"
^DD(2100,454.46,0)="PROX EOM 1^NJ2,0^^FMSTP3;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,454.46,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,454.46,21,0)="^^1^1^2940701^"
^DD(2100,454.46,21,1,0)="Optional. Enter the PROX/EOM discount term associated with the vendor."
^DD(2100,454.46,"DT")="2940407"
^DD(2100,454.47,0)="PROX EOM 2^NJ2,0^^FMSTP3;19^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,454.47,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,454.47,21,0)="^^1^1^2940701^"
^DD(2100,454.47,21,1,0)="Optional. Enter the discount terms associated with the vendor."
^DD(2100,454.47,"DT")="2940407"
^DD(2100,454.48,0)="PROX EOM 3^NJ2,0^^FMSTP3;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,454.48,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,454.48,21,0)="^^1^1^2940701^"
^DD(2100,454.48,21,1,0)="Optional. Enter the discount terms associated with the vendor."
^DD(2100,454.48,"DT")="2940407"
^DD(2100,455.17,0)="INTR AGCY SYMBOL^F^^FMSDD2;17^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,455.17,3)="Answer must be 1-15 characters in length."
^DD(2100,455.17,21,0)="^^4^4^2940701^"
^DD(2100,455.17,21,1,0)="Optional. Enter the Treasury Symbol of the fund to which payment is being"
^DD(2100,455.17,21,2,0)="made. Enter the Treasury Symbol to record both sides of a SIBAC"
^DD(2100,455.17,21,3,0)="transaction. This symbol is recorded in the detail journal and will be"
^DD(2100,455.17,21,4,0)="available for later reporting(including the SF-224 and SF-1220)."
^DD(2100,455.17,"DT")="2940428"
^DD(2100,455.18,0)="DIRECT DISB NUMBER^RFX^^FMSDD2;18^K:$L(X)>11!($L(X)<1)!(X?1P.E) X"
^DD(2100,455.18,3)="Answer must be 1-11 characters in length."
^DD(2100,455.18,21,0)="^^3^3^2940701^"
^DD(2100,455.18,21,1,0)="This is a required field. Enter the pre-printed number associated with the"
^DD(2100,455.18,21,2,0)="direct disbursement document. This field may not be changed by a MODIFY"
^DD(2100,455.18,21,3,0)="document."
^DD(2100,455.18,"DT")="2940428"
^DD(2100,455.19,0)="AGREEMENT NUMBER^F^^FMSDD2;19^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,455.19,3)="Answer must be 1-15 characters in length."
^DD(2100,455.19,21,0)="^^3^3^2940701^"
^DD(2100,455.19,21,1,0)="Optional for direct disbursement (DD). If this document represents a"
^DD(2100,455.19,21,2,0)="refund of an over-collection associated with a billable customer"
^DD(2100,455.19,21,3,0)="agreement, enter the agreement number here."
^DD(2100,455.19,"DT")="2940428"
^DD(2100,455.22,0)="ADVANCE LIQ AMT^NJ15,2O^^FMSDD2;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,455.22,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,455.22,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,455.22,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,455.22,21,0)="^^2^2^2940701^"
^DD(2100,455.22,21,1,0)="Optional. Required if this payment contains any advance offset lines."
^DD(2100,455.22,21,2,0)="Enter the unsigned net of all advance offset lines. Otherwise leave blank."
^DD(2100,455.22,"DT")="2940420"
^DD(2100,458.01,0)="DATE COVERED FROM^D^^FMSIF2;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,458.01,21,0)="^^2^2^2940705^"
^DD(2100,458.01,21,1,0)="This field stores the starting date covered by FMS document in YYMMDD"
^DD(2100,458.01,21,2,0)="format."
^DD(2100,458.01,"DT")="2940414"
^DD(2100,458.02,0)="DATE COVERED TO^D^^FMSIF2;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,458.02,21,0)="^^2^2^2940705^"
^DD(2100,458.02,21,1,0)="This field stores the ending date covered by FMS imprest document in"
^DD(2100,458.02,21,2,0)="YYMMDD format."
^DD(2100,458.02,"DT")="2940414"
^DD(2100,458.1,0)="COVERED FROM YEAR^F^^FMSIF2;10^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,458.1,3)="Answer must be 2 characters in length."
^DD(2100,458.1,21,0)="^^1^1^2940705^"
^DD(2100,458.1,21,1,0)="This field stores the starting year covered by FMS imprest document."
^DD(2100,458.1,"DT")="2940217"
^DD(2100,458.11,0)="COVERED FROM MONTH^NJ2,0X^^FMSIF2;11^K:X'?1.2N!(+X<0)!(+X>12) X"
^DD(2100,458.11,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,458.11,21,0)="^^1^1^2940705^"
^DD(2100,458.11,21,1,0)="This field stores the starting month covered by FMS imprest document."
^DD(2100,458.11,"DT")="2940414"
^DD(2100,458.12,0)="COVERED FROM DAY^F^^FMSIF2;12^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,458.12,3)="Answer must be 1-2 characters in length."
^DD(2100,458.12,21,0)="^^1^1^2940705^"
^DD(2100,458.12,21,1,0)="This field stores the starting day covered by FMS imprest document."
^DD(2100,458.12,"DT")="2940217"
^DD(2100,458.13,0)="COVERED TO YEAR^F^^FMSIF2;13^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,458.13,3)="Answer must be 2 characters in length."
^DD(2100,458.13,21,0)="^^1^1^2940705^"
^DD(2100,458.13,21,1,0)="This field stores the ending year covered by FMS imprest document."
^DD(2100,458.13,"DT")="2940217"
^DD(2100,458.14,0)="COVERED TO MONTH^NJ2,0X^^FMSIF2;14^K:X'?1.2N!(+X<0)!(+X>12) X"
^DD(2100,458.14,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,458.14,21,0)="^^1^1^2940705^"
^DD(2100,458.14,21,1,0)="This field stores the ending month covered by FMS imprest document."
^DD(2100,458.14,"DT")="2940414"
^DD(2100,458.15,0)="COVERED TO DAY^F^^FMSIF2;15^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,458.15,3)="Answer must be 1-2 characters in length."
^DD(2100,458.15,21,0)="^^1^1^2940705^"
^DD(2100,458.15,21,1,0)="This field stores the ending day covered by FMS imprest document."
^DD(2100,458.15,"DT")="2940217"
^DD(2100,458.19,0)="HDR VENDOR ID^RF^^FMSIF2;19^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,458.19,3)="Answer must be 1-9 characters in length."
^DD(2100,458.19,21,0)="^^1^1^2940705^"
^DD(2100,458.19,21,1,0)="Vendor/provider code must be a V or B in Vendor Table."
^DD(2100,458.19,"DT")="2940428"
^DD(2100,458.2,0)="HDR VENDOR ADDR CODE^F^^FMSIF2;20^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,458.2,3)="Answer must be 1-2 characters in length."
^DD(2100,458.2,21,0)="^^1^1^2940705^"
^DD(2100,458.2,21,1,0)="Vendor/provider code must be a V or B in Vendor Table."
^DD(2100,458.2,"DT")="2940428"
^DD(2100,458.22,0)="HDR VENDOR NAME^F^^FMSIF2;22^K:$L(X)>30!($L(X)<3) X"
^DD(2100,458.22,3)="Answer must be 3-30 characters in length."
^DD(2100,458.22,21,0)="^^2^2^2940705^"
^DD(2100,458.22,21,1,0)="This field is required if Miscellaneous Vendor Code is used."
^DD(2100,458.22,21,2,0)="System-maintained otherwise."
^DD(2100,458.22,"DT")="2940217"
^DD(2100,458.23,0)="HDR VENDOR ADDRESS 1^F^^FMSIF2;23^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,458.23,3)="Answer must be 3-30 characters in length."
^DD(2100,458.23,21,0)="^^2^2^2940705^"
^DD(2100,458.23,21,1,0)="This field is required if Miscellaneous Vendor Code is used."
^DD(2100,458.23,21,2,0)="System-maintained otherwise."
^DD(2100,458.23,"DT")="2940428"
^DD(2100,458.24,0)="HDR VENDOR ADDRESS 2^F^^FMSIF2;24^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,458.24,3)="Answer must be 3-30 characters in length."
^DD(2100,458.24,21,0)="^^2^2^2940705^"
^DD(2100,458.24,21,1,0)="This field is required if Miscellaneous Vendor Code is used."
^DD(2100,458.24,21,2,0)="System-maintained otherwise."
^DD(2100,458.24,"DT")="2940428"
^DD(2100,460.01,0)="COLLECTION DUE DATE^D^^FMSTB2;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,460.01,21,0)="^^1^1^2940705^"
^DD(2100,460.01,21,1,0)="This field stores the FMS document Collection Due Date in YYMMDD format."
^DD(2100,460.01,"DT")="2940413"
^DD(2100,460.06,0)="ACCTG TRANS TYPE^F^^FMSTB2;6^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.06,3)="Answer must be 1-2 characters in length."
^DD(2100,460.06,21,0)="^^2^2^2940705^"
^DD(2100,460.06,21,1,0)="Optional. Enter the transaction type appropriate for the accounting model"
^DD(2100,460.06,21,2,0)="desired for the FMS document."
^DD(2100,460.06,"DT")="2940428"
^DD(2100,460.13,0)="FUND^F^^FMSTB2;13^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.13,3)="Answer must be 1-6 characters in length."
^DD(2100,460.13,21,0)="^^2^2^2940708^"
^DD(2100,460.13,21,1,0)="Enter the code of the fund to be associated with this Transportation Bill."
^DD(2100,460.13,21,2,0)="Must be a valid entry in the Fund Table."
^DD(2100,460.13,"DT")="2940428"
^DD(2100,460.15,0)="VEND ADDRESS LINE1^F^^FMSTB2;15^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,460.15,3)="Answer must be 3-30 characters in length."
^DD(2100,460.15,21,0)="^^2^2^2940705^"
^DD(2100,460.15,21,1,0)="Required when vendor code is for a miscellaneous vendor."
^DD(2100,460.15,21,2,0)="System maintained otherwise."
^DD(2100,460.15,"DT")="2940428"
^DD(2100,460.16,0)="VEND ADDRESS LINE2^F^^FMSTB2;16^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,460.16,3)="Answer must be 3-30 characters in length."
^DD(2100,460.16,21,0)="^^2^2^2940705^"
^DD(2100,460.16,21,1,0)="Required when vendor code is for a miscellaneous vendor. System-maintained"
^DD(2100,460.16,21,2,0)="otherwise."
^DD(2100,460.16,"DT")="2940428"
^DD(2100,460.17,0)="VEND CITY^F^^FMSTB2;17^K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.17,3)="Answer must be 1-19 characters in length."
^DD(2100,460.17,21,0)="^^2^2^2940705^"
^DD(2100,460.17,21,1,0)="Required when vendor code is for a miscellaneous vendor."
^DD(2100,460.17,21,2,0)="System-maintained otherwise."
^DD(2100,460.17,"DT")="2940428"
^DD(2100,460.18,0)="VEND STATE CODE^F^^FMSTB2;18^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.18,3)="Answer must be 1-2 characters in length."
^DD(2100,460.18,21,0)="^^2^2^2940705^"
^DD(2100,460.18,21,1,0)="Required when vendor code is for a miscellaneous vendor."
^DD(2100,460.18,21,2,0)="System-maintained otherwise."
^DD(2100,460.18,"DT")="2940428"
^DD(2100,460.19,0)="VEND ZIP 1^F^^FMSTB2;19^K:$L(X)>5!($L(X)<5)!'(X'?1P.E) X"
^DD(2100,460.19,3)="Answer must be 5 characters in length."
^DD(2100,460.19,21,0)="^^2^2^2940705^^"
^DD(2100,460.19,21,1,0)="Required when vendor code is for a miscellaneous vendor."
^DD(2100,460.19,21,2,0)="System-maintained otherwise."
^DD(2100,460.19,"DT")="2940705"
^DD(2100,460.2,0)="VEND ZIP 2^F^^FMSTB2;20^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.2,3)="Answer must be 1-4 characters in length."
^DD(2100,460.2,21,0)="^^2^2^2940705^"
^DD(2100,460.2,21,1,0)="Required when vendor code is for a miscellaneous vendor."
^DD(2100,460.2,21,2,0)="System-maintained otherwise."
^DD(2100,460.2,"DT")="2940428"
^DD(2100,460.21,0)="GTR NUMBER^F^^FMSTB2;21^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.21,3)="Answer must be 1-10 characters in length."
^DD(2100,460.21,21,0)="^^2^2^2940705^"
^DD(2100,460.21,21,1,0)="Optional. Enter the number of the GTR, or the contract number of GTS. If"
^DD(2100,460.21,21,2,0)="this field is entered, it must be a default GTR number on the ticket line."
^DD(2100,460.21,"DT")="2940428"
^DD(2100,460.22,0)="BILL PRINT FLAG^F^^FMSTB2;22^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,460.22,3)="Answer must be 1 character in length."
^DD(2100,460.22,21,0)="^^3^3^2940705^"
^DD(2100,460.22,21,1,0)="Optional for original entry document. Y to print  travel order; N to not"
^DD(2100,460.22,21,2,0)="print travel order. Defaults to Print Flag value on Transaction Category"
^DD(2100,460.22,21,3,0)="Table (TCAT)."
^DD(2100,460.22,"DT")="2940428"
^DD(2100,460.23,0)="COLLECTED DUE YY^F^^FMSTB2;23^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,460.23,3)="Answer must be 2 characters in length."
^DD(2100,460.23,21,0)="^^2^2^2980707^^^"
^DD(2100,460.23,21,1,0)="Optional. If left blank, it will be calculated by adding the number of"
^DD(2100,460.23,21,2,0)="cycle days to the transaction date."
^DD(2100,460.23,"DT")="2980707"
^DD(2100,460.24,0)="COLLECTED DUE MM^NJ2,0X^^FMSTB2;24^K:X'?1.2N!(+X<0)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)"
^DD(2100,460.24,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,460.24,21,0)="^^2^2^2940705^"
^DD(2100,460.24,21,1,0)="Optional. If left blank, it will be calculated by adding the number of"
^DD(2100,460.24,21,2,0)="cycle days to the transaction date."
^DD(2100,460.24,"DT")="2940428"
^DD(2100,460.25,0)="COLLECTED DUE DD^F^^FMSTB2;25^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,460.25,3)="Answer must be 1-2 characters in length."
^DD(2100,460.25,21,0)="^^2^2^2940705^"
^DD(2100,460.25,21,1,0)="Optional. If left blank, it will be calculated by adding the number of"
^DD(2100,460.25,21,2,0)="cycle days to the transaction date."
^DD(2100,460.25,"DT")="2940218"
^DD(2100,460.26,0)="INTEREST RATE^NJ7,3X^^FMSTB3;26^K:(+X<0)!(+X>100) X I $D(X) S DINUM=+X S Y=$P(X,""."",1)_"".""_$P(X,""."",2)_$E(""000"",3-$L($P(X,""."",2))) S X=Y"
^DD(2100,460.26,3)="Type a Number between 0 and 100, 3 Decimal Digits"
^DD(2100,460.26,21,0)="^^2^2^2940705^"
^DD(2100,460.26,21,1,0)="Optional. Enter the interest rate to apply if the receivable is subject to"
^DD(2100,460.26,21,2,0)="interest  charges and it is not collected by the collection due date."
^DD(2100,460.26,"DT")="2940428"
^DD(2100,460.28,0)="WAIVER FLAG^F^^FMSTB2;28^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.28,3)="Answer must be 1-2 characters in length."
^DD(2100,460.28,21,0)="^^1^1^2940705^"
^DD(2100,460.28,21,1,0)="Optional. Valid codes are I,H,P,A,IH,IP,HP."
^DD(2100,460.28,"DT")="2940428"
^DD(2100,460.29,0)="CAUSE OF OVERPAYMENT^F^^FMSTB2;29^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,460.29,3)="Answer must be 1-3 characters in length."
^DD(2100,460.29,21,0)="^^2^2^2940705^"
^DD(2100,460.29,21,1,0)="Optional. Enter the code representing the cause of overpayment for the"
^DD(2100,460.29,21,2,0)="Transportation Billing Document."
^DD(2100,460.29,"DT")="2940428"
^DD(2100,460.3,0)="CASE HIST FLAG^F^^FMSTB2;30^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,460.3,3)="Answer must be 1 character in length."
^DD(2100,460.3,21,0)="^^1^1^2940705^"
^DD(2100,460.3,21,1,0)="Optional."
^DD(2100,460.3,"DT")="2940428"
^DD(2100,461.01,0)="TICKET AS OF DATE^D^^FMSTN2;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,461.01,21,0)="^^2^2^2940810^"
^DD(2100,461.01,21,1,0)="This field created to hold the ticket as of date entered by user in YYMMDD"
^DD(2100,461.01,21,2,0)="format . This field not used for FMS document template prompt."
^DD(2100,461.01,"DT")="2940810"
^DD(2100,461.08,0)="VENDOR INVOICE^RF^^FMSTN2;8^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,461.08,3)="Answer must be 1-20 characters in length."
^DD(2100,461.08,21,0)="^^2^2^2940705^"
^DD(2100,461.08,21,1,0)="Required.  Enter the invoice number used by the vendor for identification."
^DD(2100,461.08,21,2,0)="This field may not changed by a MODIFY document."
^DD(2100,461.08,"DT")="2940428"
^DD(2100,461.17,0)="YEAR OF PAYMENT^F^^FMSTN2;17^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,461.17,3)="Answer must be 2 characters in length."
^DD(2100,461.17,21,0)="^^2^2^2980707^^^"
^DD(2100,461.17,21,1,0)="Optional. Enter the year on which you want this payment to be selected by"
^DD(2100,461.17,21,2,0)="the automated disbursements process."
^DD(2100,461.17,"DT")="2980706"
^DD(2100,461.18,0)="MONTH OF PAYMENT^NJ2,0X^^FMSTN2;18^K:(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)"
^DD(2100,461.18,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,461.18,21,0)="^^2^2^2940705^"
^DD(2100,461.18,21,1,0)="Optional. Enter the month on which you want this payment to be selected by"
^DD(2100,461.18,21,2,0)="the automated disbursements process."
^DD(2100,461.18,"DT")="2940428"
^DD(2100,461.19,0)="DAY OF PAYMENT^F^^FMSTN2;19^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,461.19,3)="Answer must be 1-2 characters in length."
^DD(2100,461.19,21,0)="^^2^2^2940705^"
^DD(2100,461.19,21,1,0)="Optional. Enter the day on which you want this payment to be selected by"
^DD(2100,461.19,21,2,0)="the automated disbursements porcress."
^DD(2100,461.19,"DT")="2940222"
^DD(2100,461.2,0)="BEGIN YEAR^F^^FMSTN2;20^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,461.2,3)="Answer must be 2 characters in length."
^DD(2100,461.2,21,0)="^^1^1^2940705^"
^DD(2100,461.2,21,1,0)="Optional. Enter the beginning year covered by the invoice."
^DD(2100,461.2,"DT")="2980706"
^DD(2100,461.21,0)="BEGIN MONTH^NJ2,0X^^FMSTN2;21^K:(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)"
^DD(2100,461.21,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,461.21,21,0)="^^1^1^2940705^"
^DD(2100,461.21,21,1,0)="Optional. Enter the beginning month covered by the invoice."
^DD(2100,461.21,"DT")="2940428"
^DD(2100,461.22,0)="BEGIN DAY^F^^FMSTN2;22^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,461.22,3)="Answer must be 1-2 characters in length."
^DD(2100,461.22,21,0)="^^1^1^2940705^"
^DD(2100,461.22,21,1,0)="Optional. Enter the day covered by the invoice."
^DD(2100,461.22,"DT")="2940222"
^DD(2100,461.23,0)="VENDOR INVOICE YEAR^RF^^FMSTN2;23^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,461.23,3)="Answer must be 2 characters in length."
^DD(2100,461.23,21,0)="^^3^3^2940705^"
^DD(2100,461.23,21,1,0)="This is a required field. Enter the year used on the invoice received by"
^DD(2100,461.23,21,2,0)="the vendor. The system uses the vendor invoice date to access the voucher"
^DD(2100,461.23,21,3,0)="tracking record."
^DD(2100,461.23,"DT")="2980707"
^DD(2100,461.24,0)="VENDOR INVOICE MONTH^NJ2,0X^^FMSTN2;24^K:(+X<1)!(+X>12) X I $D(X) S DINUM=+X,X=$E(100+X,2,3)"
^DD(2100,461.24,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,461.24,21,0)="^^2^2^2940705^"
^DD(2100,461.24,21,1,0)="This is a required field. Enter the month used on the invoice received by"
^DD(2100,461.24,21,2,0)="the vendor."
^DD(2100,461.24,"DT")="2940428"
^DD(2100,461.25,0)="VENDOR INVOICE DAY^F^^FMSTN2;25^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,461.25,3)="Answer must be 1-2 characters in length."
^DD(2100,461.25,21,0)="^^2^2^2940705^"
^DD(2100,461.25,21,1,0)="This is a required field. Enter the field used on the invoice received by"
^DD(2100,461.25,21,2,0)="the vendor."
^DD(2100,461.25,"DT")="2940222"
^DD(2100,461.26,0)="INT REASON CODE^F^^FMSTN2;26^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,461.26,3)="Answer must be 1 character in length."
^DD(2100,461.26,21,0)="^^4^4^2940705^"
^DD(2100,461.26,21,1,0)="Optional. If interest is applied against this invoice because of prompt"
^DD(2100,461.26,21,2,0)="pay rules when the check is issued--as defined in the Prompt Pay Reference"
^DD(2100,461.26,21,3,0)="Table--users can enter the reason code for the payment delay in this"
^DD(2100,461.26,21,4,0)="field."
^DD(2100,461.26,"DT")="2940428"
^DD(2100,461.27,0)="TRANS TYPE (FMS)^F^^FMSTN2;27^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,461.27,3)="Answer must be 1-2 characters in length."
^DD(2100,461.27,21,0)="^^2^2^2940705^"
^DD(2100,461.27,21,1,0)="Optional. Enter the transaction type code that is appropriate for the"
^DD(2100,461.27,21,2,0)="dollar amount being entered."
^DD(2100,461.27,"DT")="2940428"
^DD(2100,461.4,0)="REF ADV TRANS CODE^F^^FMSTN3;9^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,461.4,3)="Answer must be 1-2 characters in length."
^DD(2100,461.4,21,0)="^^2^2^2940705^"
^DD(2100,461.4,21,1,0)="Optional. Enter the Transaction Code of the document used to issue the"
^DD(2100,461.4,21,2,0)="advance."
^DD(2100,461.4,"DT")="2940428"
^DD(2100,461.41,0)="REF ADV TRANS NUMBER^F^^FMSTN3;10^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,461.41,3)="Answer must be 1-11 characters in length."
^DD(2100,461.41,21,0)="^^2^2^2940705^"
^DD(2100,461.41,21,1,0)="Optional. Enter the Transaction Number of the document use to issue the"
^DD(2100,461.41,21,2,0)="advance."
^DD(2100,461.41,"DT")="2940428"
^DD(2100,461.42,0)="REF ADV TRANS LINE^NJ3,0X^^FMSTN3;11^K:X'?1.3N!(+X<1) X I $D(X) S DINUM=+X,X=$E(1000+X,2,4)"
^DD(2100,461.42,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,461.42,21,0)="^^2^2^2940705^"
^DD(2100,461.42,21,1,0)="Optional. Enter the line number of the document used to issue the"
^DD(2100,461.42,21,2,0)="document."
^DD(2100,461.42,"DT")="2940428"
^DD(2100,461.44,0)="VI TRANS CODE^F^^FMSTN4;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,461.44,3)="Answer must be 1-2 characters in length."
^DD(2100,461.44,21,0)="^^1^1^2940705^"
^DD(2100,461.44,21,1,0)="This field is not on the screen. This field is for future use."
^DD(2100,461.44,"DT")="2940428"
^DD(2100,461.45,0)="TELETICKET FLAG^F^^FMSTN4;2^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,461.45,3)="Answer must be 1 character in length."
^DD(2100,461.45,21,0)="^^1^1^2940705^"
^DD(2100,461.45,21,1,0)="This field is not on the screen. This field is for future use."
^DD(2100,461.45,"DT")="2940428"
^DD(2100,462.01,0)="START DATE^D^^FMSMO1;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,462.01,21,0)="^^1^1^2940705^"
^DD(2100,462.01,21,1,0)="This field stores the starting date for AO,CO,SO in YYMMDD format."
^DD(2100,462.01,"DT")="2940526"
^DD(2100,462.02,0)="END DATE^D^^FMSMO1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,462.02,21,0)="^^1^1^2940705^"
^DD(2100,462.02,21,1,0)="This field stores the ending date of AO,CO,SO in YYMMDD format."
^DD(2100,462.02,"DT")="2940526"
^DD(2100,462.06,0)="HEADER BUDGET FY^F^^FMSMO2;6^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.06,3)="Answer must be 2 characters in length."
^DD(2100,462.06,21,0)="^^2^2^2940705^"
^DD(2100,462.06,21,1,0)="Optional. If left blank, the fisrt budget fiscal year defaults to the"
^DD(2100,462.06,21,2,0)="budget fiscal year inferred from the document date."
^DD(2100,462.06,"DT")="2980706"
^DD(2100,462.07,0)="HEADER END BUDGET FY^F^^FMSMO2;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.07,3)="Answer must be 2 characters in length."
^DD(2100,462.07,21,0)="^^2^2^2940705^"
^DD(2100,462.07,21,1,0)="Optional. If left blank, the fisrt end budget fiscal year defaults to the"
^DD(2100,462.07,21,2,0)="end budget fiscal year inferred from the document date."
^DD(2100,462.07,"DT")="2980706"
^DD(2100,462.08,0)="HEADER FUND^F^^FMSMO2;8^K:$L(X)>6!($L(X)<6) X"
^DD(2100,462.08,3)="Answer must be 6 characters in length."
^DD(2100,462.08,21,0)="^^3^3^2940705^"
^DD(2100,462.08,21,1,0)="Optional. If entered, this code is the default for all lines on this"
^DD(2100,462.08,21,2,0)="purchase order document on which fund code is spaces. If left blank, then"
^DD(2100,462.08,21,3,0)="fund code must be entered on every line of the document."
^DD(2100,462.08,"DT")="2940224"
^DD(2100,462.11,0)="RESP PERSON^F^^FMSMO2;11^K:$L(X)>15!($L(X)<1) X"
^DD(2100,462.11,3)="Answer must be 1-15 characters in length."
^DD(2100,462.11,21,0)="^^1^1^2940705^"
^DD(2100,462.11,21,1,0)="Enter the person to whom questions should be addressed about the order."
^DD(2100,462.11,"DT")="2940224"
^DD(2100,462.16,0)="VENDOR ADDR1^F^^FMSMO2;16^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.16,3)="Answer must be 1-30 characters in length."
^DD(2100,462.16,21,0)="^^2^2^2940705^"
^DD(2100,462.16,21,1,0)="System-maintained if Vendor Type not ""Miscellaneous"". Inferred from the"
^DD(2100,462.16,21,2,0)="Vendor Table."
^DD(2100,462.16,"DT")="2940705"
^DD(2100,462.17,0)="VENDOR ADDR2^F^^FMSMO2;17^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.17,3)="Answer must be 1-30 characters in length."
^DD(2100,462.17,21,0)="^^2^2^2940705^"
^DD(2100,462.17,21,1,0)="System-maintained if Vendor Type not ""Miscellaneous"". Inferred from the"
^DD(2100,462.17,21,2,0)="Vendor table."
^DD(2100,462.17,"DT")="2940705"
^DD(2100,462.21,0)="VENDOR CONTACT^F^^FMSMO2;21^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.21,3)="Answer must be 1-30 characters in length."
^DD(2100,462.21,21,0)="^^3^3^2940808^^"
^DD(2100,462.21,21,1,0)="Required for Contract Order (AO,CO). Optional if the Contract Required"
^DD(2100,462.21,21,2,0)="flag on the Transaction Category Table (TCAT) is set to N. Enter the"
^DD(2100,462.21,21,3,0)="contract number under which the puschase order is being issued."
^DD(2100,462.21,"DT")="2940705"
^DD(2100,462.22,0)="CONFIRMATION ORDER^SX^Y:YES;N:NO;^FMSMO2;22^K:(X?1P.E) X"
^DD(2100,462.22,3)=""
^DD(2100,462.22,21,0)="^^3^3^2940808^^"
^DD(2100,462.22,21,1,0)="Enter Y if this is a confirmation order, in which case the purchase order"
^DD(2100,462.22,21,2,0)="printing program will print ""CONFIRMATION ORDER"" on the purchase order."
^DD(2100,462.22,21,3,0)="Defaults to N."
^DD(2100,462.22,"DT")="2940808"
^DD(2100,462.23,0)="FOB POINT^SX^O:ORIGIN;D:DESTINATION;^FMSMO2;23^K:(X?1P.E) X"
^DD(2100,462.23,21,0)="^^2^2^2940808^^"
^DD(2100,462.23,21,1,0)="Enter the freight on board point. If entered, it must be valid on the"
^DD(2100,462.23,21,2,0)="Freight On Board Table."
^DD(2100,462.23,"DT")="2940808"
^DD(2100,462.24,0)="DELIVERY YY^F^^FMSMO3;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.24,3)="Answer must be 2 characters in length."
^DD(2100,462.24,21,0)="^^1^1^2940705^"
^DD(2100,462.24,21,1,0)="Enter the year by which the order must be received."
^DD(2100,462.24,"DT")="2980706"
^DD(2100,462.25,0)="DELIVERY MM^F^^FMSMO3;2^K:$L(X)>2!($L(X)<2)!'(0<X<13) X"
^DD(2100,462.25,3)="Answer must be 2 characters in length."
^DD(2100,462.25,21,0)="^^1^1^2940705^"
^DD(2100,462.25,21,1,0)="Enter the month by which the order must be received."
^DD(2100,462.25,"DT")="2940705"
^DD(2100,462.26,0)="DELIVERY DD^F^^FMSMO3;3^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.26,3)="Answer must be 2 characters in length."
^DD(2100,462.26,21,0)="^^1^1^2940705^"
^DD(2100,462.26,21,1,0)="Enter the day by which the order must be received."
^DD(2100,462.26,"DT")="2940224"
^DD(2100,462.27,0)="BLANKET NUMBER^F^^FMSMO3;4^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.27,3)="Answer must be 1-11 characters in length."
^DD(2100,462.27,21,0)="^^2^2^2940705^"
^DD(2100,462.27,21,1,0)="Enter the number of the blanket agreement between the goverment and the"
^DD(2100,462.27,21,2,0)="vendor which governs the terms of this order."
^DD(2100,462.27,"DT")="2940603"
^DD(2100,462.28,0)="BUYER^F^^FMSMO3;5^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.28,3)="Answer must be 1-2 characters in length."
^DD(2100,462.28,21,0)="^^1^1^2940705^"
^DD(2100,462.28,21,1,0)="Enter the code of the buyer processing the order."
^DD(2100,462.28,"DT")="2940603"
^DD(2100,462.29,0)="SHIP ADDRESS CODE^F^^FMSMO3;6^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.29,3)="Answer must be 1-12 characters in length."
^DD(2100,462.29,21,0)="^^2^2^2940705^"
^DD(2100,462.29,21,1,0)="Enter the code that represents the receiving location. This field is used"
^DD(2100,462.29,21,2,0)="to infer to the ""ship to"" address printed on the purchase order."
^DD(2100,462.29,"DT")="2940603"
^DD(2100,462.31,0)="ENDING YY^F^^FMSMO3;8^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.31,3)="Answer must be 2 characters in length."
^DD(2100,462.31,21,0)="^^2^2^2940706^"
^DD(2100,462.31,21,1,0)="Required for Contact Order Document (AO,CO) and Service Order Document"
^DD(2100,462.31,21,2,0)="(SO) if the Auto Accrue Indicator field is set to Y, otherwise optional."
^DD(2100,462.31,"DT")="2980706"
^DD(2100,462.32,0)="ENDING MM^F^^FMSMO3;9^K:$L(X)>2!($L(X)<1)!'(0<X<13) X"
^DD(2100,462.32,3)="Answer must be 1-2 characters in length."
^DD(2100,462.32,21,0)="^^2^2^2940706^^"
^DD(2100,462.32,21,1,0)="Required for Contract Order Document (AO,CO) and Service Order Document"
^DD(2100,462.32,21,2,0)="(SO)if the Auto Accrue Indicator field is set to Y, otherwise optional."
^DD(2100,462.32,"DT")="2940706"
^DD(2100,462.33,0)="ENDING DD^F^^FMSMO3;10^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.33,3)="Answer must be 2 characters in length."
^DD(2100,462.33,21,0)="^^2^2^2940706^"
^DD(2100,462.33,21,1,0)="Required for Contract Order Document (AO,SO) and Service Order Document"
^DD(2100,462.33,21,2,0)="(SO) if the Auto Accrue Indicator field is set to Y, otherwise optional."
^DD(2100,462.33,"DT")="2940224"
^DD(2100,462.34,0)="ENDING DATE DESC^F^^FMSMO3;11^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.34,3)="Answer must be 1-12 characters in length."
^DD(2100,462.34,21,0)="^^1^1^2940706^"
^DD(2100,462.34,21,1,0)="Use if there is no specific calendar end date, for example, ""when done""."
^DD(2100,462.34,"DT")="2940603"
^DD(2100,462.35,0)="INSPECT ACCEPT DAYS^NJ2,0^^FMSMO3;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,462.35,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,462.35,21,0)="^^1^1^2940706^"
^DD(2100,462.35,21,1,0)="Enter the number of days negotiated for this order."
^DD(2100,462.35,"DT")="2940603"
^DD(2100,462.36,0)="NEG PAYMENT DAYS^NJ2,0^^FMSMO3;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,462.36,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,462.36,21,0)="^^5^5^2940706^"
^DD(2100,462.36,21,1,0)="The payment terms negotiate for payment of this order after an invoice is"
^DD(2100,462.36,21,2,0)="received against it. If this field is entered, it is used by payment"
^DD(2100,462.36,21,3,0)="voucher program to determine the scheduled payment date for any invoice"
^DD(2100,462.36,21,4,0)="referencing this order, and is used by the disbursements subsystem in"
^DD(2100,462.36,21,5,0)="determining if any interest is due on payment made against this order."
^DD(2100,462.36,"DT")="2940603"
^DD(2100,462.38,0)="NO OF OPTIONS^NJ1,0^^FMSMO3;15^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,462.38,3)="Type a Number between 1 and 2, 0 Decimal Digits"
^DD(2100,462.38,21,0)="^^1^1^2940819^"
^DD(2100,462.38,21,1,0)="Optional on MZ,SZ documents. Blank otherwise."
^DD(2100,462.38,"DT")="2940224"
^DD(2100,462.39,0)="PURCHASE METHOD^F^^FMSMO3;16^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,462.39,3)="Answer must be 1 character in length."
^DD(2100,462.39,21,0)="^^2^2^2940706^^"
^DD(2100,462.39,21,1,0)="This is a user defined field. Enter the appropriate code for the type of"
^DD(2100,462.39,21,2,0)="purchase order being entered."
^DD(2100,462.39,"DT")="2940706"
^DD(2100,462.4,0)="EFFECTIVE YY^F^^FMSMO3;17^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.4,3)="Answer must be 2 characters in length."
^DD(2100,462.4,21,0)="^^3^3^2940706^"
^DD(2100,462.4,21,1,0)="Required on AO,CO,SO documents if Auto Accrue Indicator field is set to Y,"
^DD(2100,462.4,21,2,0)="otherwise optional. Optional on MZ,SZ,WO,TG document; defaults to document"
^DD(2100,462.4,21,3,0)="date."
^DD(2100,462.4,"DT")="2980706"
^DD(2100,462.41,0)="EFFECTIVE MM^F^^FMSMO3;18^K:$L(X)>2!($L(X)<1)!'(0<X<13) X"
^DD(2100,462.41,3)="Answer must be 1-2 characters in length."
^DD(2100,462.41,21,0)="^^3^3^2940706^"
^DD(2100,462.41,21,1,0)="Required on AO,CO,SO documents if Auto Accrue Indicator field is set to Y,"
^DD(2100,462.41,21,2,0)="otherwise optional.  Optional on MZ,SZ,WO,TG documents; defaults to"
^DD(2100,462.41,21,3,0)="document date."
^DD(2100,462.41,"DT")="2940706"
^DD(2100,462.42,0)="EFFECTIVE DD^F^^FMSMO3;19^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,462.42,3)="Answer must be 2 characters in length."
^DD(2100,462.42,21,0)="^^3^3^2940706^"
^DD(2100,462.42,21,1,0)="Required on AO,CO,SO documents if Auto Accure Indicator field is set to Y,"
^DD(2100,462.42,21,2,0)="otherwise optional.  Optional on MZ,SZ,WO,TG documents; defaults to"
^DD(2100,462.42,21,3,0)="document date."
^DD(2100,462.42,"DT")="2940301"
^DD(2100,462.43,0)="ALT PAY ID^F^^FMSMO3;20^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.43,3)="Answer must be 1-9 characters in length."
^DD(2100,462.43,21,0)="^^6^6^2940706^"
^DD(2100,462.43,21,1,0)="Optional.  If entered must be a valid vendor in the Vendor Table, but must"
^DD(2100,462.43,21,2,0)="be different from the Vendor Code. Either the Alternate Payee or the"
^DD(2100,462.43,21,3,0)="Vendor may be coded on a payment voucher that references this order. In"
^DD(2100,462.43,21,4,0)="both cases, the Vendor Code on the payment voucher must match the first 9"
^DD(2100,462.43,21,5,0)="characters of the appropriate code on the order (either Vendor Code or"
^DD(2100,462.43,21,6,0)="Alternate Payee)."
^DD(2100,462.43,"DT")="2940603"
^DD(2100,462.44,0)="ALT PAY ADDRESS CODE^F^^FMSMO3;21^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.44,3)="Answer must be 1-2 characters in length."
^DD(2100,462.44,21,0)="^^1^1^2940706^"
^DD(2100,462.44,21,1,0)="Must be different from the Vendor Code if entered."
^DD(2100,462.44,"DT")="2940603"
^DD(2100,462.45,0)="ALT PAY NAME^F^^FMSMO3;22^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.45,3)="Answer must be 1-30 characters in length."
^DD(2100,462.45,21,0)="^^2^2^2940706^"
^DD(2100,462.45,21,1,0)="System-maintained.  Inferred from the Vendor Table when an Alternate Payee"
^DD(2100,462.45,21,2,0)="code is entered."
^DD(2100,462.45,"DT")="2940603"
^DD(2100,462.46,0)="PRINT PO^F^^FMSMO3;23^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,462.46,3)="Answer must be 1 character in length."
^DD(2100,462.46,21,0)="^^3^3^2940706^"
^DD(2100,462.46,21,1,0)="Optional on MZ,SZ,TG,WO document. N to prevent order from being printed;"
^DD(2100,462.46,21,2,0)="Y to print order. Defaults to value of Print Order Flag on Transaction"
^DD(2100,462.46,21,3,0)="Category Table (TCAT)."
^DD(2100,462.46,"DT")="2940603"
^DD(2100,462.47,0)="RECEIVER REQUIRED^F^^FMSMO3;24^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,462.47,3)="Answer must be 1 character in length."
^DD(2100,462.47,21,0)="^^3^3^2940706^"
^DD(2100,462.47,21,1,0)="Optional on MZ,SZ,TG,WO documents. Defaults to value stored in Obligation"
^DD(2100,462.47,21,2,0)="Requires Receiver field on Transaction Category Table (TCAT) for this type"
^DD(2100,462.47,21,3,0)="of order (commodity or non-commodity)."
^DD(2100,462.47,"DT")="2940603"
^DD(2100,462.48,0)="VENDOR INV REQUIRED^F^^FMSMO3;25^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,462.48,3)="Answer must be 1 character in length."
^DD(2100,462.48,21,0)="^^4^4^2940706^"
^DD(2100,462.48,21,1,0)="Optional on MZ,SZ,TG,WO documents. Defaualt to value stored in Obligation"
^DD(2100,462.48,21,2,0)="Invoice field on Transaction Category Table (TCAT) for this type of order."
^DD(2100,462.48,21,3,0)="Y indicates payments against order cannot exceed dollar value of goods"
^DD(2100,462.48,21,4,0)="invoiced."
^DD(2100,462.48,"DT")="2940603"
^DD(2100,462.5,0)="COURSE CODE^F^^FMSMO3;27^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.5,3)="Answer must be 1-8 characters in length."
^DD(2100,462.5,21,0)="^^1^1^2940706^"
^DD(2100,462.5,21,1,0)="Optional to TG document. Blank otherwise."
^DD(2100,462.5,"DT")="2940603"
^DD(2100,462.51,0)="TRAINING CODE^F^^FMSMO3;28^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.51,3)="Answer must be 1-8 characters in length."
^DD(2100,462.51,21,0)="^^1^1^2940706^"
^DD(2100,462.51,21,1,0)="Optional to TG documents. Blank otherwise."
^DD(2100,462.51,"DT")="2940603"
^DD(2100,462.52,0)="VENDOR CLASS^F^^FMSMO3;29^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.52,3)="Answer must be 1-5 characters in length."
^DD(2100,462.52,21,0)="^^1^1^2940706^"
^DD(2100,462.52,21,1,0)="Optional to TG documents. Blank otherwise."
^DD(2100,462.52,"DT")="2940603"
^DD(2100,462.53,0)="DUTY HOURS^NJ4,0^^FMSMO3;30^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,462.53,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,462.53,21,0)="^^1^1^2940706^"
^DD(2100,462.53,21,1,0)="Optional to TG documents. Blank otherwise."
^DD(2100,462.53,"DT")="2940224"
^DD(2100,462.54,0)="OFF DUTY HOURS^NJ4,0^^FMSMO3;31^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,462.54,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,462.54,21,0)="^^1^1^2940706^"
^DD(2100,462.54,21,1,0)="Optional on TG documents. Blank otherwise."
^DD(2100,462.54,"DT")="2940224"
^DD(2100,462.55,0)="CONTRACT NUMBER^F^^FMSMO3;32^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.55,3)="Answer must be 1-10 characters in length."
^DD(2100,462.55,21,0)="^^2^2^2940706^"
^DD(2100,462.55,21,1,0)="Required on AO,CO documents. Optional if Contract Required flag on"
^DD(2100,462.55,21,2,0)="Transaction Category Table (TCAT) is set to N."
^DD(2100,462.55,"DT")="2940603"
^DD(2100,462.56,0)="INVITATION NUMBER^F^^FMSMO3;33^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.56,3)="Answer must be 1-10 characters in length."
^DD(2100,462.56,21,0)="^^1^1^2940706^"
^DD(2100,462.56,21,1,0)="Optional on MZ,SZ,WO documents. Blank otherwise."
^DD(2100,462.56,"DT")="2940603"
^DD(2100,462.57,0)="ASSOC TRAN CODE HDR^F^^FMSMO3;34^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.57,.1)="TRANSACTION CODE OF ASSOCIATED DOCUMENT"
^DD(2100,462.57,3)="Answer must be 1-2 characters in length."
^DD(2100,462.57,21,0)="^^1^1^2940706^"
^DD(2100,462.57,21,1,0)="Transaction code."
^DD(2100,462.57,"DT")="2940603"
^DD(2100,462.58,0)="ASSOC DOC ID HDR^F^^FMSMO3;35^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.58,.1)="DOCUMENT NUMBER OF ASSOCIATED DOCUMENT"
^DD(2100,462.58,3)="Answer must be 1-11 characters in length."
^DD(2100,462.58,21,0)="^^1^1^2940706^"
^DD(2100,462.58,21,1,0)="Transaction number."
^DD(2100,462.58,"DT")="2940603"
^DD(2100,462.67,0)="AUTO ACCRUE IND^F^^FMSMO4;8^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,462.67,3)="Answer must be 1 character in length."
^DD(2100,462.67,21,0)="^^2^2^2940706^"
^DD(2100,462.67,21,1,0)="Optional on AO,CO,SO documents. Defaults to Y on SO document and to N on"
^DD(2100,462.67,21,2,0)="AO,CO documents."
^DD(2100,462.67,"DT")="2940603"
^DD(2100,462.71,0)="HDR WAREHOUSE CODE^F^^FMSMO5;1^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.71,3)="Answer must be 1-4 characters in length."
^DD(2100,462.71,21,0)="^^1^1^2940706^"
^DD(2100,462.71,21,1,0)="This field is not on the user screen.  Will be used in the future."
^DD(2100,462.71,"DT")="2940603"
^DD(2100,462.72,0)="SHIP ADDR CODE VIA^F^^FMSMO5;2^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.72,3)="Answer must be 1-12 characters in length."
^DD(2100,462.72,21,0)="^^1^1^2940706^"
^DD(2100,462.72,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,462.72,"DT")="2940603"
^DD(2100,462.73,0)="RELATED GBL^F^^FMSMO5;3^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.73,3)="Answer must be 1-11 characters in length."
^DD(2100,462.73,21,0)="^^1^1^2940706^"
^DD(2100,462.73,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,462.73,"DT")="2940603"
^DD(2100,462.74,0)="DISCOUNT TYPE^F^^FMSMO5;4^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,462.74,3)="Answer must be 1 character in length."
^DD(2100,462.74,21,0)="^^1^1^2940706^"
^DD(2100,462.74,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,462.74,"DT")="2940603"
^DD(2100,462.75,0)="GPO PROGRAM^F^^FMSMO5;5^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.75,3)="Answer must be 1-6 characters in length."
^DD(2100,462.75,21,0)="^^1^1^2940706^"
^DD(2100,462.75,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,462.75,"DT")="2940603"
^DD(2100,462.76,0)="GPO JACKET^F^^FMSMO5;6^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.76,3)="Answer must be 1-6 characters in length."
^DD(2100,462.76,21,0)="^^1^1^2940706^"
^DD(2100,462.76,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,462.76,"DT")="2940603"
^DD(2100,462.77,0)="PUBLICATION CTL^F^^FMSMO5;7^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.77,3)="Answer must be 1-6 characters in length."
^DD(2100,462.77,21,0)="^^1^1^2940706^"
^DD(2100,462.77,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,462.77,"DT")="2940603"
^DD(2100,462.78,0)="BILLING ADDRESS^F^^FMSMO5;8^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,462.78,3)="Answer must be 1-6 characters in length."
^DD(2100,462.78,21,0)="^^1^1^2940706^"
^DD(2100,462.78,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,462.78,"DT")="2940603"
^DD(2100,463.01,0)="RECEIVED BY^RF^^FMSRC2;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,463.01,3)="Answer must be 1-20 characters in length."
^DD(2100,463.01,21,0)="^^1^1^2940706^"
^DD(2100,463.01,21,1,0)="Required on original entry document. Optional otherwise."
^DD(2100,463.01,"DT")="2940526"
^DD(2100,463.02,0)="CARRIER CODE^F^^FMSRC2;2^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,463.02,3)="Answer must be 1-3 characters in length."
^DD(2100,463.02,21,0)="^^3^3^2940706^"
^DD(2100,463.02,21,1,0)="Optional on RZ documents. Blank otherwise."
^DD(2100,463.02,21,2,0)="Enter the code of the carrier that transported the shipment. The code must"
^DD(2100,463.02,21,3,0)="be valid in the Carrier Table."
^DD(2100,463.02,"DT")="2940526"
^DD(2100,463.03,0)="CARRIER NAME^F^^FMSRC2;3^K:$L(X)>25!($L(X)<3)!'(X'?1P.E) X"
^DD(2100,463.03,3)="Answer must be 3-25 characters in length."
^DD(2100,463.03,21,0)="^^1^1^2940706^"
^DD(2100,463.03,21,1,0)="System-maintained for RZ documents. Provided for verification purposes."
^DD(2100,463.03,"DT")="2940526"
^DD(2100,463.04,0)="CARRIER NUM^F^^FMSRC2;4^K:$L(X)>14!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,463.04,3)="Answer must be 1-14 characters in length."
^DD(2100,463.04,21,0)="^^1^1^2940706^"
^DD(2100,463.04,21,1,0)="System-maintained for RZ documents. Provided for verification purposes."
^DD(2100,463.04,"DT")="2940526"
^DD(2100,463.05,0)="CLEAR ALL^F^^FMSRC2;5^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,463.05,3)="Enter 'R' to receive all goods. Enter 'A' to accept all goods, or accept quantities previously received but not accepted."
^DD(2100,463.05,21,0)="^^4^4^2940707^"
^DD(2100,463.05,21,1,0)="Optional.  R to receive all goods (update commodity and accounting lines);"
^DD(2100,463.05,21,2,0)="A to accept all goods, or accept quantities previously received but not"
^DD(2100,463.05,21,3,0)="accepted (update accounting lines only ). If blank, receiver lines must be"
^DD(2100,463.05,21,4,0)="entered."
^DD(2100,463.05,"DT")="2940526"
^DD(2100,463.06,0)="COMMENTS (FMS-RC)^F^^FMSRC3;1^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,463.06,3)="Answer must be 1-12 characters in length."
^DD(2100,463.06,21,0)="^^1^1^2940707^"
^DD(2100,463.06,21,1,0)="Optional on RZ documents. Blank otherwise."
^DD(2100,463.06,"DT")="2940526"
^DD(2100,463.07,0)="RECEIVER DLN^RNJ11,0^^FMSRC3;2^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,463.07,3)="Type a Number between 0 and 99999999999, 0 Decimal Digits"
^DD(2100,463.07,21,0)="^^4^4^2940707^"
^DD(2100,463.07,21,1,0)="Optional. Required if the DLN Required field on the Transaction Category"
^DD(2100,463.07,21,2,0)="Table (TCAT) is set to Y for this document's transaction code. Enter the"
^DD(2100,463.07,21,3,0)="Document Locator Number (DLN) for this document. A duplicate DLN cannot"
^DD(2100,463.07,21,4,0)="exist on the CAPP DLN database."
^DD(2100,463.07,"DT")="2940526"
^DD(2100,463.08,0)="REF TRANS CODE^RF^^FMSRC2;6^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,463.08,3)="Answer must be 1-2 characters in length."
^DD(2100,463.08,21,0)="^^3^3^2940707^"
^DD(2100,463.08,21,1,0)="Required when referencing a previous purchase order, otherwise optional."
^DD(2100,463.08,21,2,0)="Enter the transaction number and unique number that identifies the order"
^DD(2100,463.08,21,3,0)="against the goods that have been received."
^DD(2100,463.08,"DT")="2940527"
^DD(2100,463.09,0)="REF TRANS NUMBER^RF^^FMSRC2;7^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,463.09,3)="Answer must be 1-11 characters in length."
^DD(2100,463.09,21,0)="^^3^3^2940707^"
^DD(2100,463.09,21,1,0)="Required when referencing a previous purchase order. otherwise optional."
^DD(2100,463.09,21,2,0)="Enter the transaction code and unique number that identifies the order"
^DD(2100,463.09,21,3,0)="against the goods that have been received."
^DD(2100,463.09,"DT")="2940527"
^DD(2100,463.1,0)="VENDOR ADDR IND^F^^FMSRC2;8^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,463.1,3)="Answer must be 1-2 characters in length."
^DD(2100,463.1,21,0)="^^2^2^2940707^"
^DD(2100,463.1,21,1,0)="Required on original entry of a receiver not referencing a previous"
^DD(2100,463.1,21,2,0)="purchase order, otherwise optional."
^DD(2100,463.1,"DT")="2940527"
^DD(2100,463.11,0)="REVERSAL FISC YEAR (RC)^F^^FMSRC3;3^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,463.11,3)="Answer must be 2 characters in length."
^DD(2100,463.11,21,0)="^^1^1^2940715^"
^DD(2100,463.11,21,1,0)="Optional on AR document. Blank otherwise."
^DD(2100,463.11,"DT")="2980706"
^DD(2100,463.12,0)="REVERSAL FISC MONTH (RC)^F^^FMSRC3;4^K:$L(X)>2!($L(X)<1)!'(0<X<13) X"
^DD(2100,463.12,3)="Answer must be 1-2 characters in length."
^DD(2100,463.12,21,0)="^^1^1^2940715^"
^DD(2100,463.12,21,1,0)="Optional on AR document. Blank otherwise."
^DD(2100,463.12,"DT")="2940715"
^DD(2100,465.1,0)="FMSB FCP 1^F^^FMSB;1^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,465.1,3)="Answer must be 1-15 characters in length."
^DD(2100,465.1,21,0)="^^1^1^2940715^"
^DD(2100,465.1,21,1,0)="FMSB Fund Control Point 1."
^DD(2100,465.1,"DT")="2940715"
^DD(2100,465.101,0)="FMSB FCP 2^F^^FMSB;2^K:$L(X)>15!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,465.101,3)="Answer must be 1-15 characters in length."
^DD(2100,465.101,21,0)="^^1^1^2940715^"
^DD(2100,465.101,21,1,0)="FMSB Fund Control Point 2."
^DD(2100,465.101,"DT")="2940715"
^DD(2100,465.11,0)="FMSB POST TR TYPE^F^^FMSB;11^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,465.11,3)="Answer must be 1-2 characters in length."
^DD(2100,465.11,21,0)="^^7^7^2940715^"
^DD(2100,465.11,21,1,0)="Required if the Pending/Approval/Posting Indicator is PA,PP, or DP."
^DD(2100,465.11,21,2,0)="Otherwise leave blank. If required and left blank, this value is inferred"
^DD(2100,465.11,21,3,0)="from the Suballowance Spending Control Table (SASP), if available. If"
^DD(2100,465.11,21,4,0)="coded, this value must be the same as the value stored on the table, if"
^DD(2100,465.11,21,5,0)="available. Enter a Transaction Type that is appropriate for posting fund."
^DD(2100,465.11,21,6,0)="The Transaction Type is used to access the Accounting Entries Tables"
^DD(2100,465.11,21,7,0)="(ACED,ACEN) to determine the journal postings for the document."
^DD(2100,465.11,"DT")="2940715"
^DD(2100,465.12,0)="FMSB POST THRU QTR^NJ1,0^^FMSB;12^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,465.12,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(2100,465.12,21,0)="^^3^3^2940715^"
^DD(2100,465.12,21,1,0)="Required if the value of the Pending/Approval/Posting Indicator is PA or"
^DD(2100,465.12,21,2,0)="PP. Otherwise, leave blank. Enter the apportionment period through which"
^DD(2100,465.12,21,3,0)="you are granting authority."
^DD(2100,465.12,"DT")="2940504"
^DD(2100,465.2,0)="FMSB DATE^D^^FMSB;3^S %DT=""EX"" D ^%DT S X=Y K:3991231<X!(2500101>X) X"
^DD(2100,465.2,3)="TYPE A DATE BETWEEN 1/1/1950 AND 12/31/2099"
^DD(2100,465.2,21,0)="^^3^3^2940715^"
^DD(2100,465.2,21,1,0)="Optional. Enter the date that you want to associate with these documents,"
^DD(2100,465.2,21,2,0)="usually the current date, in MMDDYY format. It may not be a future date."
^DD(2100,465.2,21,3,0)="If left blank, the date the document is accepted by the system is used."
^DD(2100,465.2,"DT")="2940504"
^DD(2100,465.3,0)="FMSB ACCTG PRD^F^^FMSB;4^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,465.3,3)="Answer must be 1-4 characters in length."
^DD(2100,465.3,21,0)="^^6^6^2940715^"
^DD(2100,465.3,21,1,0)="Optional. If left blank, the accounting period is inferred from the"
^DD(2100,465.3,21,2,0)="Transaction Date. If you want these documents to be recorded in some other"
^DD(2100,465.3,21,3,0)="accounting perios, enter the desired period using fiscal months and fiscal"
^DD(2100,465.3,21,4,0)="year (MMYY). The period used must be open, however, it may be a future"
^DD(2100,465.3,21,5,0)="period if the Future Period Allowed flag is Y on the Transaction Category"
^DD(2100,465.3,21,6,0)="Table (TCAT) for this transaction code."
^DD(2100,465.3,"DT")="2940715"
^DD(2100,465.4,0)="FMSB FUND^F^^FMSB;5^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,465.4,3)="Answer must be 1-6 characters in length."
^DD(2100,465.4,21,0)="^^3^3^2940715^"
^DD(2100,465.4,21,1,0)="Required. Enter the code of the fund that is to be associated with this"
^DD(2100,465.4,21,2,0)="document. The code must be valid on the Fund Table (FUND). If entered on a"
^DD(2100,465.4,21,3,0)="change document, the code must match the original document."
^DD(2100,465.4,"DT")="2940715"
^DD(2100,465.5,0)="FMSB BUDGET FYS^NJ4,0^^FMSB;6^K:+X'=X!(X>2099)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(2100,465.5,3)="Type a Number between 1000 and 2099, 0 Decimal Digits"
^DD(2100,465.5,21,0)="^^5^5^2940715^^"
^DD(2100,465.5,21,1,0)="Optional. If left blank, the beginning budget fiscal year defaults to the"
^DD(2100,465.5,21,2,0)="fiscal year of the accounting period. If entered, the year must be valid"
^DD(2100,465.5,21,3,0)="in the Fiscal Year Table. This applies to both the beginning and ending"
^DD(2100,465.5,21,4,0)="budget fiscal years. Enter the last 2 digits of the fiscal year to which"
^DD(2100,465.5,21,5,0)="this document applies."
^DD(2100,465.5,"DT")="2940715"
^DD(2100,465.6,0)="FMSB TOTAL CHANGE AMT^NJ11,2^^FMSB;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.""-"".N.1""."".2N!(X>99999999)!(X<-99999999) X"
^DD(2100,465.6,3)="Type a Dollar Amount between -99999999 and 99999999, 2 Decimal Digits"
^DD(2100,465.6,21,0)="^^6^6^2940715^"
^DD(2100,465.6,21,1,0)="Required when the Pending/Approval/Posting Indicator is PN,DA, or DP."
^DD(2100,465.6,21,2,0)="Optional when the Pending/Approval/Posting Indicator is AP."
^DD(2100,465.6,21,3,0)="Enter the unsigned net of the Suballowance Increase/Decrease Amount"
^DD(2100,465.6,21,4,0)="column. If entered, it must equal the system calculated amount. Must be"
^DD(2100,465.6,21,5,0)="blank if you are deactivating or reactivating this suballowance, or if the"
^DD(2100,465.6,21,6,0)="Pending/Approval/Posting Indicator is RJ,PA, or PP."
^DD(2100,465.6,"DT")="2940504"
^DD(2100,465.7,0)="FMSB PEND/APRV/POST IND^S^PN:PENDING;RJ:REJECT;AP:APPROVE;PP:APPROVE/POST;PA:POST PREVIOULY APPROVE;DA:DIRECTLY APPROVE;DP:DIRECTLY POST;^FMSB;8^Q"
^DD(2100,465.7,21,0)="^^24^24^2940715^"
^DD(2100,465.7,21,1,0)="Required. Code one of the following:"
^DD(2100,465.7,21,2,0)=" "
^DD(2100,465.7,21,3,0)="          PN  To update pending budget amounts or modify existing pending"
^DD(2100,465.7,21,4,0)="              amounts."
^DD(2100,465.7,21,5,0)=" "
^DD(2100,465.7,21,6,0)="          RJ  To reject and clear previously entered pending budget"
^DD(2100,465.7,21,7,0)="              amount."
^DD(2100,465.7,21,8,0)=" "
^DD(2100,465.7,21,9,0)="          AP  To approve previously entered pending budget amounts."
^DD(2100,465.7,21,10,0)=" "
^DD(2100,465.7,21,11,0)="          PP  To approve and post pending budget amount through the"
^DD(2100,465.7,21,12,0)="              specify quarter."
^DD(2100,465.7,21,13,0)=" "
^DD(2100,465.7,21,14,0)="          PA  To post previously approved budget amounts through the"
^DD(2100,465.7,21,15,0)="              specify quarter."
^DD(2100,465.7,21,16,0)=" "
^DD(2100,465.7,21,17,0)="          DA  To directly approve quarterly specified budget amounts or"
^DD(2100,465.7,21,18,0)="              modify existing approved amounts."
^DD(2100,465.7,21,19,0)=" "
^DD(2100,465.7,21,20,0)="          DP  To directly post quarterly specified budget amounts or"
^DD(2100,465.7,21,21,0)="              modify existing posted amounts."
^DD(2100,465.7,21,22,0)=" "
^DD(2100,465.7,21,23,0)="May be spaces when the document Action on all lines is D to deactivate or"
^DD(2100,465.7,21,24,0)="R to reactivate."
^DD(2100,465.7,"DT")="2940504"
^DD(2100,465.8,0)="FMSB PEND TR TYPE^F^^FMSB;9^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,465.8,3)="Answer must be 1-2 characters in length."
^DD(2100,465.8,21,0)="^^2^2^2940715^"
^DD(2100,465.8,21,1,0)="Required if the Pending/Approval/Posting Indicator is PN,DA, or DP."
^DD(2100,465.8,21,2,0)="Otherwise, leave blank."
^DD(2100,465.8,"DT")="2940715"
^DD(2100,465.9,0)="FMSB APRV TR TYPE^S^AP:APPROVE PREVIOUSLY;PP:POST PENDING;DA:APPROVE DIRECTLY;DP:POST DIRECTLY;^FMSB;13^Q"
^DD(2100,465.9,21,0)="^^8^8^2940822^"
^DD(2100,465.9,21,1,0)="Required if the Pending/Approval/Posting Indicator is AP,PP,DA or DP."
^DD(2100,465.9,21,2,0)="Otherwise, leave blank. If required and left blank, this value is inferred"
^DD(2100,465.9,21,3,0)="from the Suballowance Spending Control Table(SASP), if available. If"
^DD(2100,465.9,21,4,0)="coded, this value must be the same as the value stored on the table, if"
^DD(2100,465.9,21,5,0)="available. Enter the Transaction Type that is appropriate for the approval"
^DD(2100,465.9,21,6,0)="transaction.  The Transaction Type is used to access the Accounting"
^DD(2100,465.9,21,7,0)="Entries Tables (ACED,ACEN) to determine the journal postings for the"
^DD(2100,465.9,21,8,0)="document."
^DD(2100,465.9,"DT")="2940721"
^DD(2100,466.01,0)="SELLING CONTROL POINT IEN^NJ9,0^^FMSIV2;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,466.01,3)="This field stores the internal entry number for the selected control point (from 1 to 999999999)."
^DD(2100,466.01,21,0)="^^3^3^2940707^"
^DD(2100,466.01,21,1,0)="This field stores the internal entry number for the selected control"
^DD(2100,466.01,21,2,0)="point.  It is not used on the FMS code sheets.  It is used to default"
^DD(2100,466.01,21,3,0)="the selected control point when editing a previously entered code sheet."
^DD(2100,466.01,"DT")="2940406"
^DD(2100,466.02,0)="BUYING CONTROL POINT IEN^NJ9,0^^FMSIV2;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,466.02,3)="This field stores the internal entry number for the selected control point (from 1 to 999999999)."
^DD(2100,466.02,21,0)="^^3^3^2940707^^"
^DD(2100,466.02,21,1,0)="This field stores the internal entry number for the selected control"
^DD(2100,466.02,21,2,0)="point.  It is not used on the FMS code sheets.  It is used to default"
^DD(2100,466.02,21,3,0)="the selected control point when editing a previously entered code sheet."
^DD(2100,466.02,"DT")="2940406"
^DD(2100,466.03,0)="TRANSACTION DATE^D^^FMSIV2;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,466.03,21,0)="^^3^3^2940707^"
^DD(2100,466.03,21,1,0)="This field is used to store the transaction date for the FMS document"
^DD(2100,466.03,21,2,0)="which the user entered.  This field is used to store the selected date"
^DD(2100,466.03,21,3,0)="which will be used as the default response when editing a code sheet."
^DD(2100,466.03,"DT")="2940406"
^DD(2100,467.01,0)="BENEFICIARY ID^F^^FMSPV4;1^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,467.01,3)="Answer must be 1-9 characters in length."
^DD(2100,467.01,21,0)="^^2^2^2940707^"
^DD(2100,467.01,21,1,0)="Optional. On a third-party payment, enter the vendor whose invoice is"
^DD(2100,467.01,21,2,0)="being paid. This field may not be changed on a MODIFY document."
^DD(2100,467.01,"DT")="2940624"
^DD(2100,467.02,0)="BENEF ADDRESS CODE^F^^FMSPV4;2^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,467.02,3)="Answer must be 1-2 characters in length."
^DD(2100,467.02,21,0)="^^2^2^2940707^"
^DD(2100,467.02,21,1,0)="Optional. On a third-party payment, enter the vendor whose invoice is"
^DD(2100,467.02,21,2,0)="being paid. This field may not be changed on a MODIFY document."
^DD(2100,467.02,"DT")="2940624"
^DD(2100,467.03,0)="HOLDBACK TOTAL^NJ15,2O^^FMSPV3;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,467.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.03,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.03,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,467.03,21,0)="^^3^3^2940707^"
^DD(2100,467.03,21,1,0)="Required for PZ and MV when contract holdback lines will be entered on the"
^DD(2100,467.03,21,2,0)="payment voucher. The unsigned net of all contract holdback lines on the"
^DD(2100,467.03,21,3,0)="document. This field may be changed by a MODIFY document."
^DD(2100,467.03,"DT")="2940523"
^DD(2100,467.04,0)="HDR ACCEPT YEAR^F^^FMSPV3;2^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,467.04,3)="Answer must be 2 characters in length."
^DD(2100,467.04,21,0)="^^3^3^2940707^"
^DD(2100,467.04,21,1,0)="Optional for PZ, AV and MV. Enter the YEAR on which the goods authorized"
^DD(2100,467.04,21,2,0)="for payment on this document were accepted. This YEAR is used in"
^DD(2100,467.04,21,3,0)="scheduling voucher for payment."
^DD(2100,467.04,"DT")="2980706"
^DD(2100,467.05,0)="HDR ACCEPT MONTH^F^^FMSPV3;3^K:$L(X)>2!($L(X)<2)!'(X?2N&(0<+X<13)) X"
^DD(2100,467.05,3)="Answer must be 2 characters in length."
^DD(2100,467.05,21,0)="^^3^3^2940707^"
^DD(2100,467.05,21,1,0)="Optional for PZ, AV and MV. Enter the MONTH on which the goods authorized"
^DD(2100,467.05,21,2,0)="for payment on this document were accepted. The MONTH is used in"
^DD(2100,467.05,21,3,0)="scheduling voucher for payment."
^DD(2100,467.05,"DT")="2940523"
^DD(2100,467.06,0)="HDR ACCEPT DAY^F^^FMSPV3;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,467.06,3)="Answer must be 2 characters in length."
^DD(2100,467.06,21,0)="^^2^2^2940707^"
^DD(2100,467.06,21,1,0)="Optional for PZ, AV and MV. Enter the day on which the goods authorized"
^DD(2100,467.06,21,2,0)="for payment on this document were accepted."
^DD(2100,467.06,"DT")="2940523"
^DD(2100,467.08,0)="HDR VENDOR INVOICE^F^^FMSPV3;5^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(2100,467.08,3)="Answer must be 1-20 characters in length."
^DD(2100,467.08,21,0)="^^4^4^2940707^^"
^DD(2100,467.08,21,1,0)="Optional for PZ, AV and MV. If entered, this Vendor Invoice Code are the"
^DD(2100,467.08,21,2,0)="defaults for all lines on this payment voucher document on which the"
^DD(2100,467.08,21,3,0)="vendor invoice number is spaces. If left blank, then reference vendor"
^DD(2100,467.08,21,4,0)="invoice code must be entered on every applicable line of the document."
^DD(2100,467.08,"DT")="2940707"
^DD(2100,467.09,0)="HDR VI YEAR^F^^FMSPV3;6^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,467.09,3)="Answer must be 2 characters in length."
^DD(2100,467.09,21,0)="^^1^1^2940707^"
^DD(2100,467.09,21,1,0)="Optional on PZ, AV and MV documents. Defaults to document date."
^DD(2100,467.09,"DT")="2980706"
^DD(2100,467.1,0)="HDR VI MONTH^F^^FMSPV3;7^K:$L(X)>2!($L(X)<2)!'(X?2N&(0<+X<13)) X"
^DD(2100,467.1,3)="Answer must be 2 characters (01-12) in length."
^DD(2100,467.1,21,0)="^^1^1^2940707^"
^DD(2100,467.1,21,1,0)="Optional on PZ, AV and MV document. Defaults to document date."
^DD(2100,467.1,"DT")="2940523"
^DD(2100,467.11,0)="HDR VI DAY^F^^FMSPV3;8^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,467.11,3)="Answer must be 2 characters in length."
^DD(2100,467.11,21,0)="^^1^1^2940707^"
^DD(2100,467.11,21,1,0)="Optional on PZ, AV and MV. Defaults to document date."
^DD(2100,467.11,"DT")="2940523"
^DD(2100,467.12,0)="HDR VI LOG YEAR^F^^FMSPV3;9^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,467.12,3)="Answer must be 2 characters in length."
^DD(2100,467.12,21,0)="^^4^4^2940707^"
^DD(2100,467.12,21,1,0)="Required on PZ, AV and MV documents if Trigger Date Flag for prompt pay"
^DD(2100,467.12,21,2,0)="type is I or L and Invoice Log Date is not available from Voucher Tracking"
^DD(2100,467.12,21,3,0)="Inquiry Screen (VCTI). Optional on PZ, AV and MV documents if Trigger Date"
^DD(2100,467.12,21,4,0)="Flag for prompt pay type is D."
^DD(2100,467.12,"DT")="2980706"
^DD(2100,467.13,0)="HDR VI LOG MONTH^F^^FMSPV3;10^K:$L(X)>2!($L(X)<2)!'(X?2N&(0<+X<13)) X"
^DD(2100,467.13,3)="Answer must be 2 characters (01 - 12 months) in length."
^DD(2100,467.13,21,0)="^^1^1^2940707^"
^DD(2100,467.13,21,1,0)="Refer to HDR VI LOG YEAR field."
^DD(2100,467.13,"DT")="2940523"
^DD(2100,467.14,0)="HDR VI LOG DAY^F^^FMSPV3;11^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,467.14,3)="Answer must be 2 characters in length."
^DD(2100,467.14,21,0)="^^1^1^2940707^"
^DD(2100,467.14,21,1,0)="Refer to HDR VI LOG YEAR field."
^DD(2100,467.14,"DT")="2940523"
^DD(2100,467.15,0)="HDR INT REASON CODE^F^^FMSPV3;12^K:$L(X)>1!($L(X)<1) X"
^DD(2100,467.15,3)="Answer must be 1 character in length."
^DD(2100,467.15,21,0)="^^5^5^2940707^"
^DD(2100,467.15,21,1,0)="Optional on PZ and MV document. If entered, this field must be valid on"
^DD(2100,467.15,21,2,0)="the Interest Reason Code table (IRCT). If entered, this Interest Reason"
^DD(2100,467.15,21,3,0)="Code is the default  for all lines on this payment voucher document on"
^DD(2100,467.15,21,4,0)="which the interest reason code is spaces. If left blank, then interest"
^DD(2100,467.15,21,5,0)="reason code must be entered on every applicable line of the document."
^DD(2100,467.15,"DT")="2940523"
^DD(2100,467.16,0)="PROMPT PAY TYPE^F^^FMSPV3;13^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,467.16,3)="Answer must be 1 character in length."
^DD(2100,467.16,21,0)="^^4^4^2940707^"
^DD(2100,467.16,21,1,0)="Optional. Enter the prompt pay type associated with the voucher if the"
^DD(2100,467.16,21,2,0)="voucher is subject to prompt pay. If not entered and a receiver is"
^DD(2100,467.16,21,3,0)="referenced, it will default to the prompt pay type on the referenced"
^DD(2100,467.16,21,4,0)="receiver."
^DD(2100,467.16,"DT")="2940707"
^DD(2100,467.17,0)="WORK INSTALLED^RNJ15,2O^^FMSPV4;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,467.17,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.17,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.17,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,467.17,21,0)="^^3^3^2940707^"
^DD(2100,467.17,21,1,0)="Required for original entry MV document if document total is no entered."
^DD(2100,467.17,21,2,0)="Must be entered in conjunction with net payment amount. Enter the value of"
^DD(2100,467.17,21,3,0)="work installed."
^DD(2100,467.17,"DT")="2940624"
^DD(2100,467.18,0)="NET PAYMENT AMT^RNJ15,2O^^FMSPV4;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,467.18,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.18,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.18,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,467.18,21,0)="^^3^3^2940707^"
^DD(2100,467.18,21,1,0)="Required for original entry MV documents if document total is not entered."
^DD(2100,467.18,21,2,0)="Must be entered in conjunction with work installed. Enter the amount to be"
^DD(2100,467.18,21,3,0)="paid."
^DD(2100,467.18,"DT")="2940624"
^DD(2100,467.19,0)="HOLDBACK PYMT AMT^RNJ15,2O^^FMSPV4;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100,467.19,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.19,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100,467.19,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100,467.19,21,0)="^^2^2^2940707^"
^DD(2100,467.19,21,1,0)="Required for original entry MV documents if a holdback release amount is"
^DD(2100,467.19,21,2,0)="included in the net payment amount."
^DD(2100,467.19,"DT")="2940624"
^DD(2100,467.2,0)="HDR INVOICE DLN^NJ2,0^^FMSPV4;6^K:+X'=X!(X>11)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,467.2,3)="Type a Number between 1 and 11, 0 Decimal Digits"
^DD(2100,467.2,21,0)="^^3^3^2940707^"
^DD(2100,467.2,21,1,0)="Required if the DLN Required Flag on the Transaction Category Table (TCAT)"
^DD(2100,467.2,21,2,0)="is set to Y for this document's transaction code. Enter the document"
^DD(2100,467.2,21,3,0)="locator number (DLN) for the invoice associated with this document."
^DD(2100,467.2,"DT")="2940523"
^DD(2100,467.21,0)="HDR INVOICE DLN SEQ^NJ3,0^^FMSPV4;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,467.21,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,467.21,21,0)="^^6^6^2940707^"
^DD(2100,467.21,21,1,0)="Optional for PZ and CV documents. Enter the invoice DLN sequence number"
^DD(2100,467.21,21,2,0)="associated with the extract of the invoice. If entered, the invoice DLN"
^DD(2100,467.21,21,3,0)="sequence number is the default for all lines on the payment voucher"
^DD(2100,467.21,21,4,0)="document on which the invoice DLN sequence number is spaces. If left"
^DD(2100,467.21,21,5,0)="blank, then invoice DLN sequence number must be entered on every"
^DD(2100,467.21,21,6,0)="applicable line of the document."
^DD(2100,467.21,"DT")="2940523"
^DD(2100,467.22,0)="HDR RECEIVER DLN^NJ11,0^^FMSPV4;8^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,467.22,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(2100,467.22,21,0)="^^2^2^2940707^"
^DD(2100,467.22,21,1,0)="Optional for PZ and CV document. Enter the document locator number (DLN)"
^DD(2100,467.22,21,2,0)="for the receiver associated with this document."
^DD(2100,467.22,"DT")="2940523"
^DD(2100,467.23,0)="HDR RECEIVER DLN SEQ^NJ3,0^^FMSPV4;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,467.23,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100,467.23,21,0)="^^2^2^2940707^"
^DD(2100,467.23,21,1,0)="Enter the receiver DLN sequence number associated with the abstract of the"
^DD(2100,467.23,21,2,0)="referenced receiver."
^DD(2100,467.23,"DT")="2940523"
^DD(2100,467.24,0)="FISCAL APRV^F^^FMSPV4;10^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100,467.24,3)="Answer must be 1 character in length."
^DD(2100,467.24,21,0)="^^1^1^2940707^^"
^DD(2100,467.24,21,1,0)="This field is not on the user screen. Will be used in the future."
^DD(2100,467.24,"DT")="2940707"
^DD(2100,467.25,0)="ACCP/DEL DATE^D^^FMSPV5;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,467.25,21,0)="^^3^3^2940707^"
^DD(2100,467.25,21,1,0)="This field is used to store the ACCP/DEL DATE for the FMS document which"
^DD(2100,467.25,21,2,0)="the user entered. This field also used to store the selected date which"
^DD(2100,467.25,21,3,0)="will be used as the default response when editing a code sheet."
^DD(2100,467.25,"DT")="2940524"
^DD(2100,467.26,0)="INVOICE DATE^D^^FMSPV5;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,467.26,21,0)="^^3^3^2940707^"
^DD(2100,467.26,21,1,0)="This field is used to store INVOICE DATE for the FMS document which the"
^DD(2100,467.26,21,2,0)="user entered. This field is also used to store the selected date which"
^DD(2100,467.26,21,3,0)="will be used as the default response when editing a code sheet."
^DD(2100,467.26,"DT")="2940524"
^DD(2100,467.27,0)="LOG DATE^D^^FMSPV5;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,467.27,21,0)="^^3^3^2940707^"
^DD(2100,467.27,21,1,0)="This field is used to store the LOG DATE for the FMS document which the"
^DD(2100,467.27,21,2,0)="user entered. This field is used to store the selected date which will be"
^DD(2100,467.27,21,3,0)="used as the default response when editing a code sheet."
^DD(2100,467.27,"DT")="2940524"
^DD(2100,500,0)="LINE^2100.02^^FMSLIN;0"
^DD(2100,500,21,0)="^^4^4^2950206^^^^"
^DD(2100,500,21,1,0)="This field stores the FMS line numbers from 1 to 999.  When the code"
^DD(2100,500,21,2,0)="sheet is created, the FMS line number will be formatted as three"
^DD(2100,500,21,3,0)="characters.  For example, if the FMS line number is 1, it will appear"
^DD(2100,500,21,4,0)="on the code sheet as 001."
^DD(2100,500,"DT")="2940303"
^DD(2100,700.01,0)="CANTEEN (FORCED ENTRIES)^FO^^ESPAMS7;1^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.01,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.01,3)="Enter the number of forced entries into the CANTEEN [1-2 numerics]."
^DD(2100,700.01,"DT")="2900531"
^DD(2100,700.02,0)="CASHIER (FORCED ENTRIES)^FO^^ESPAMS7;2^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.02,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.02,3)="Answer must be 1-2 characters in length."
^DD(2100,700.02,"DT")="2900531"
^DD(2100,700.03,0)="PHARMACY (FORCED ENTRIES)^FO^^ESPAMS7;3^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.03,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.03,3)="Answer must be 1-2 characters in length."
^DD(2100,700.03,"DT")="2900531"
^DD(2100,700.04,0)="LOCKER AREAS (FORCED ENTRIES)^FO^^ESPAMS7;4^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.04,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.04,3)="Answer must be 1-2 characters in length."
^DD(2100,700.04,"DT")="2900531"
^DD(2100,700.05,0)="ALL OTHER (FORCED ENTRIES)^FO^^ESPAMS7;5^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.05,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.05,3)="Answer must be 1-2 characters in length."
^DD(2100,700.05,"DT")="2900531"
^DD(2100,700.06,0)="PERSONAL PROPERTY (OVER $50)^FO^^ESPAMS7;6^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.06,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.06,3)="Answer must be 1-2 characters in length."
^DD(2100,700.06,"DT")="2900531"
^DD(2100,700.07,0)="PERSONAL PROPERTY (UNDER $50)^FO^^ESPAMS7;7^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.07,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.07,3)="Answer must be 1-2 characters in length."
^DD(2100,700.07,"DT")="2900531"
^DD(2100,700.08,0)="PERSONAL PROPERTY (TOTAL LOSS)^FO^^ESPAMS7;8^K:$L(X)>5!($L(X)<1)!'(X?.N) X"
^DD(2100,700.08,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.08,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.08,3)="Answer must be 1-5 characters in length."
^DD(2100,700.08,"DT")="2900531"
^DD(2100,700.09,0)="GOVERNMENT PROPERTY (OVER $50)^FO^^ESPAMS7;9^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.09,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.09,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.09,3)="Answer must be 1-2 characters in length."
^DD(2100,700.09,"DT")="2900531"
^DD(2100,700.1,0)="GOV'T PROPERTY (UNDER $50)^FO^^ESPAMS7;10^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.1,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.1,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.1,3)="Answer must be 1-3 characters in length."
^DD(2100,700.1,"DT")="2900531"
^DD(2100,700.11,0)="GOV'T PROPERTY (TOTAL LOSS)^FO^^ESPAMS7;11^K:$L(X)>6!($L(X)<1)!'(X?.N) X"
^DD(2100,700.11,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,700.11,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,700.11,3)="Enter the Total dollar loss attributed to thefts of government property [1-6 numerics]."
^DD(2100,700.11,"DT")="2900531"
^DD(2100,700.12,0)="COIN MACHINE THEFTS^FO^^ESPAMS7;12^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.12,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.12,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.12,3)="Answer must be 1-2 characters in length."
^DD(2100,700.12,"DT")="2900531"
^DD(2100,700.13,0)="COIN MACHINE (TOTAL LOSS)^FO^^ESPAMS7;13^K:$L(X)>4!($L(X)<1)!'(X?.N) X"
^DD(2100,700.13,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,700.13,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,700.13,3)="Answer must be 1-4 characters in length."
^DD(2100,700.13,"DT")="2900531"
^DD(2100,700.14,0)="AUTO THEFT-GOV'T VEHICLE^FO^^ESPAMS7;14^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.14,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.14,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.14,3)="Answer must be 1-2 characters in length."
^DD(2100,700.14,"DT")="2900531"
^DD(2100,700.15,0)="GOV'T VEHICLE (TOTAL LOSS)^FO^^ESPAMS7;15^K:$L(X)>5!($L(X)<1)!'(X?.N) X"
^DD(2100,700.15,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.15,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.15,3)="Answer must be 1-5 characters in length."
^DD(2100,700.15,"DT")="2900531"
^DD(2100,700.16,0)="AUTO THEFT-PRIVATE VEHICLE^FO^^ESPAMS7;16^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.16,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.16,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.16,3)="Answer must be 1-2 characters in length."
^DD(2100,700.16,"DT")="2900531"
^DD(2100,700.17,0)="PRIVATE VEHICLE (TOTAL LOSS)^FO^^ESPAMS7;17^K:$L(X)>5!($L(X)<1)!'(X?.N) X"
^DD(2100,700.17,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.17,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.17,3)="Answer must be 1-5 characters in length."
^DD(2100,700.17,"DT")="2900531"
^DD(2100,700.18,0)="DRUG THEFTS^FO^^ESPAMS7;18^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.18,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.18,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.18,3)="Answer must be 1-2 characters in length."
^DD(2100,700.18,"DT")="2900531"
^DD(2100,700.19,0)="DRUG THEFTS-ATTEMPTED^FO^^ESPAMS7;19^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.19,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.19,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.19,3)="Answer must be 1-2 characters in length."
^DD(2100,700.19,"DT")="2900531"
^DD(2100,700.2,0)="ARMED ROBBERY^FO^^ESPAMS7;20^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.2,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.2,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.2,3)="Answer must be 1-2 characters in length."
^DD(2100,700.2,"DT")="2900531"
^DD(2100,700.21,0)="STRONG-ARM ROBBERY^FO^^ESPAMS7;21^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.21,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.21,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.21,3)="Answer must be 1-2 characters in length."
^DD(2100,700.21,"DT")="2900531"
^DD(2100,700.22,0)="ROBBERY (OVER $50)^FO^^ESPAMS7;22^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.22,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.22,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.22,3)="Answer must be 1-2 characters in length."
^DD(2100,700.22,"DT")="2900531"
^DD(2100,700.23,0)="ROBBERY (UNDER $50)^FO^^ESPAMS7;23^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.23,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.23,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.23,3)="Answer must be 1-2 characters in length."
^DD(2100,700.23,"DT")="2900531"
^DD(2100,700.24,0)="ROBBERY (DRUGS ONLY)^FO^^ESPAMS7;24^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.24,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.24,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.24,3)="Answer must be 1-2 characters in length."
^DD(2100,700.24,"DT")="2900531"
^DD(2100,700.25,0)="TOTAL DOLLAR LOSS TO ROBBERY^FO^^ESPAMS7;25^K:$L(X)>5!($L(X)<1)!'(X?.N) X"
^DD(2100,700.25,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.25,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.25,3)="Answer must be 1-5 characters in length."
^DD(2100,700.25,"DT")="2900531"
^DD(2100,700.26,0)="ASSAULT WITH DANGEROUS WEAPON^FO^^ESPAMS7;26^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.26,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.26,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.26,3)="Answer must be 1-2 characters in length."
^DD(2100,700.26,"DT")="2900531"
^DD(2100,700.27,0)="ASSAULT WITH NO WEAPON^FO^^ESPAMS7;27^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.27,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.27,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.27,3)="Answer must be 1-2 characters in length."
^DD(2100,700.27,"DT")="2900531"
^DD(2100,700.28,0)="SIMPLE ASSAULT^FO^^ESPAMS7;28^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.28,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.28,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.28,3)="Answer must be 1-2 characters in length."
^DD(2100,700.28,"DT")="2900531"
^DD(2100,700.29,0)="ASSAULT BY PATIENTS^FO^^ESPAMS7;29^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.29,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.29,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.29,3)="Answer must be 1-2 characters in length."
^DD(2100,700.29,"DT")="2900531"
^DD(2100,700.3,0)="ASSAULT BY EMPLOYEES^FO^^ESPAMS7;30^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.3,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.3,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.3,3)="Answer must be 1-2 characters in length."
^DD(2100,700.3,"DT")="2900531"
^DD(2100,700.31,0)="ASSAULT BY OUTSIDERS^FO^^ESPAMS7;31^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.31,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.31,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.31,3)="Answer must be 1-2 characters in length."
^DD(2100,700.31,"DT")="2900531"
^DD(2100,700.32,0)="ASSAULT BY UNKNOWN PERSONS^FO^^ESPAMS7;32^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.32,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.32,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.32,3)="Answer must be 1-2 characters in length."
^DD(2100,700.32,"DT")="2900531"
^DD(2100,700.33,0)="ASSAULT ON PATIENTS^FO^^ESPAMS7;33^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.33,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.33,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.33,3)="Answer must be 1-2 characters in length."
^DD(2100,700.33,"DT")="2900531"
^DD(2100,700.34,0)="ASSAULT ON EMPLOYEES^FO^^ESPAMS7;34^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.34,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.34,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.34,3)="Answer must be 1-2 characters in length."
^DD(2100,700.34,"DT")="2900531"
^DD(2100,700.35,0)="ASSAULT ON OUTSIDERS^FO^^ESPAMS7;35^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.35,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.35,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.35,3)="Answer must be 1-2 characters in length."
^DD(2100,700.35,"DT")="2900531"
^DD(2100,700.36,0)="FORCIBLE RAPE^FO^^ESPAMS7A;1^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.36,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.36,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.36,3)="Answer must be 1-2 characters in length."
^DD(2100,700.36,"DT")="2900531"
^DD(2100,700.37,0)="ATTEMPTED RAPE^FO^^ESPAMS7A;2^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.37,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.37,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.37,3)="Answer must be 1-2 characters in length."
^DD(2100,700.37,"DT")="2900531"
^DD(2100,700.38,0)="PATIENTS COMMITTING RAPE^FO^^ESPAMS7A;3^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.38,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.38,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.38,3)="Answer must be 1-2 characters in length."
^DD(2100,700.38,"DT")="2900531"
^DD(2100,700.39,0)="EMPLOYEES COMMITTING RAPE^FO^^ESPAMS7A;4^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.39,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.39,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.39,3)="Answer must be 1-2 characters in length."
^DD(2100,700.39,"DT")="2900531"
^DD(2100,700.4,0)="OUTSIDERS COMMITTING RAPE^FO^^ESPAMS7A;5^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.4,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.4,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.4,3)="Answer must be 1-2 characters in length."
^DD(2100,700.4,"DT")="2900531"
^DD(2100,700.41,0)="OTHER PERSONS COMMITTING RAPE^FO^^ESPAMS7A;6^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.41,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.41,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.41,3)="Answer must be 1-2 characters in length."
^DD(2100,700.41,"DT")="2900531"
^DD(2100,700.42,0)="RAPE OF PATIENTS^FO^^ESPAMS7A;7^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.42,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.42,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.42,3)="Answer must be 1-2 characters in length."
^DD(2100,700.42,"DT")="2900531"
^DD(2100,700.43,0)="RAPE OF EMPLOYEES^FO^^ESPAMS7A;8^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.43,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.43,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.43,3)="Answer must be 1-2 characters in length."
^DD(2100,700.43,"DT")="2900531"
^DD(2100,700.44,0)="RAPE OF OUTSIDERS^FO^^ESPAMS7A;9^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.44,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.44,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.44,3)="Answer must be 1-2 characters in length."
^DD(2100,700.44,"DT")="2900531"
^DD(2100,700.45,0)="DISTURBANCE BY OUTSIDERS^FO^^ESPAMS7A;10^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.45,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.45,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.45,3)="Answer must be 1-3 characters in length."
^DD(2100,700.45,"DT")="2900531"
^DD(2100,700.46,0)="EMPLOYEE/PATIENT DISTURBANCE^FO^^ESPAMS7A;11^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.46,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.46,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.46,3)="Answer must be 1-3 characters in length."
^DD(2100,700.46,"DT")="2900531"
^DD(2100,700.47,0)="BOMB THREATS^FO^^ESPAMS7A;12^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.47,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.47,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.47,3)="Answer must be 1-2 characters in length."
^DD(2100,700.47,"DT")="2900531"
^DD(2100,700.48,0)="THREATS TO EMPLOYEES^FO^^ESPAMS7A;13^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.48,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.48,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.48,3)="Answer must be 1-3 characters in length."
^DD(2100,700.48,"DT")="2900531"
^DD(2100,700.49,0)="NEGLIGENT MANSLAUGHTER^FO^^ESPAMS7A;14^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.49,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.49,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.49,3)="Answer must be 1-2 characters in length."
^DD(2100,700.49,"DT")="2900531"
^DD(2100,700.5,0)="NON-NEGLIGENT MANSLAUGHTER^FO^^ESPAMS7A;15^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.5,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.5,3)="Answer must be 1-2 characters in length."
^DD(2100,700.5,"DT")="2900531"
^DD(2100,700.51,0)="MANSLAUGHTER BY PATIENTS^FO^^ESPAMS7A;16^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.51,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.51,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.51,3)="Answer must be 1-2 characters in length."
^DD(2100,700.51,"DT")="2900531"
^DD(2100,700.52,0)="MANSLAUGHTER BY EMPLOYEES^FO^^ESPAMS7A;17^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.52,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.52,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.52,3)="Answer must be 1-2 characters in length."
^DD(2100,700.52,"DT")="2900531"
^DD(2100,700.53,0)="MANSLAUGHTER BY OUTSIDERS^FO^^ESPAMS7A;18^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.53,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.53,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.53,3)="Answer must be 1-2 characters in length."
^DD(2100,700.53,"DT")="2900531"
^DD(2100,700.54,0)="MANSLAUGHTER BY UNKNOWN PERSON^FO^^ESPAMS7A;19^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.54,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.54,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.54,3)="Answer must be 1-2 characters in length."
^DD(2100,700.54,"DT")="2900531"
^DD(2100,700.55,0)="MANSLAUGHTER ON PATIENT^FO^^ESPAMS7A;20^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.55,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.55,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.55,3)="Answer must be 1-2 characters in length."
^DD(2100,700.55,"DT")="2900531"
^DD(2100,700.56,0)="MANSLAUGHTER ON EMPLOYEE^FO^^ESPAMS7A;21^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.56,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.56,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.56,3)="Answer must be 1-2 characters in length."
^DD(2100,700.56,"DT")="2900531"
^DD(2100,700.57,0)="MANSLAUGHTER ON OUTSIDER^FO^^ESPAMS7A;22^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.57,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.57,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.57,3)="Answer must be 1-2 characters in length."
^DD(2100,700.57,"DT")="2900531"
^DD(2100,700.58,0)="PATIENT VANDALISM^FO^^ESPAMS7A;23^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.58,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.58,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.58,3)="Answer must be 1-2 characters in length."
^DD(2100,700.58,"DT")="2900531"
^DD(2100,700.59,0)="EMPLOYEE VANDALISM^FO^^ESPAMS7A;24^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.59,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.59,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.59,3)="Answer must be 1-2 characters in length."
^DD(2100,700.59,"DT")="2900531"
^DD(2100,700.6,0)="OUTSIDE VANDALISM^FO^^ESPAMS7A;25^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.6,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.6,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.6,3)="Answer must be 1-2 characters in length."
^DD(2100,700.6,"DT")="2900531"
^DD(2100,700.61,0)="VANDALISM (TOTAL DOLLAR LOSS)^FO^^ESPAMS7A;26^K:$L(X)>5!($L(X)<1)!'(X?.N) X"
^DD(2100,700.61,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.61,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.61,3)="Answer must be 1-5 characters in length."
^DD(2100,700.61,"DT")="2900531"
^DD(2100,700.62,0)="COURTESY PARKING VIOLATIONS^FO^^ESPAMS7A;27^K:$L(X)>4!($L(X)<1)!'(X?.N) X"
^DD(2100,700.62,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,700.62,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,700.62,3)="Answer must be 1-4 characters in length."
^DD(2100,700.62,"DT")="2900531"
^DD(2100,700.63,0)="MOVING VIOLATIONS^FO^^ESPAMS7A;28^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.63,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.63,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.63,3)="Answer must be 1-3 characters in length."
^DD(2100,700.63,"DT")="2900531"
^DD(2100,700.64,0)="TRAFFIC COURT VIOLATION NOTICE^FO^^ESPAMS7A;29^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.64,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.64,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.64,3)="Answer must be 1-3 characters in length."
^DD(2100,700.64,"DT")="2900531"
^DD(2100,700.65,0)="ARSON^FO^^ESPAMS7A;30^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.65,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.65,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.65,3)="Answer must be 1-2 characters in length."
^DD(2100,700.65,"DT")="2900531"
^DD(2100,700.66,0)="TOTAL DOLLAR LOSS DUE TO ARSON^FO^^ESPAMS7A;31^K:$L(X)>5!($L(X)<1)!'(X?.N) X"
^DD(2100,700.66,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.66,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,700.66,3)="Answer must be 1-5 characters in length."
^DD(2100,700.66,"DT")="2900531"
^DD(2100,700.67,0)="LIQUOR POSSESSION/INTRODUCTION^FO^^ESPAMS7A;32^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.67,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.67,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.67,3)="Answer must be 1-2 characters in length."
^DD(2100,700.67,"DT")="2900531"
^DD(2100,700.68,0)="DRUG POSSESSION/INTRODUCTION^FO^^ESPAMS7A;33^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.68,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.68,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.68,3)="Answer must be 1-2 characters in length."
^DD(2100,700.68,"DT")="2900531"
^DD(2100,700.69,0)="RECEIPT/SELL STOLEN PROPERTY^FO^^ESPAMS7A;34^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.69,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.69,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.69,3)="Answer must be 1-2 characters in length."
^DD(2100,700.69,"DT")="2900531"
^DD(2100,700.7,0)="WEAPON POSSESSION^FO^^ESPAMS7A;35^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.7,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.7,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.7,3)="Answer must be 1-2 characters in length."
^DD(2100,700.7,"DT")="2900531"
^DD(2100,700.71,0)="VICE SOLICITING^FO^^ESPAMS7A;36^K:$L(X)>2!($L(X)<1)!'(X?.N) X"
^DD(2100,700.71,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.71,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,700.71,3)="Answer must be 1-2 characters in length."
^DD(2100,700.71,"DT")="2900531"
^DD(2100,700.72,0)="STOPS FOR QUESTIONING^FO^^ESPAMS7A;37^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.72,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.72,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.72,3)="Answer must be 1-3 characters in length."
^DD(2100,700.72,"DT")="2900531"
^DD(2100,700.73,0)="PHYSICAL ARRESTS^FO^^ESPAMS7A;38^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.73,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.73,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.73,3)="Answer must be 1-3 characters in length."
^DD(2100,700.73,"DT")="2900531"
^DD(2100,700.74,0)="ARRESTS THRU US DIST. COURT^FO^^ESPAMS7A;39^K:$L(X)>3!($L(X)<1)!'(X?.N) X"
^DD(2100,700.74,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.74,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,700.74,3)="Answer must be 1-3 characters in length."
^DD(2100,700.74,"DT")="2900531"
^DD(2100,1209,0)="ADMISSIONS(MED) INC TRFS^FXO^^FBFEE1;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1209,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1209,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1209,3)="Answer must be 1-4 numerics in length."
^DD(2100,1209,"DT")="2890320"
^DD(2100,1210,0)="CHANGES IN BEDSECTION(+MED)^FXO^^FBFEE1;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1210,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1210,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1210,3)="Answer must be 1-4 numerics in length."
^DD(2100,1210,"DT")="2890320"
^DD(2100,1211,0)="DEATHS(MED)^FXO^^FBFEE1;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1211,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1211,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1211,3)="Answer must be 1-4 numerics in length."
^DD(2100,1211,"DT")="2890320"
^DD(2100,1211.5,0)="DISCHARGES(MED)^FXO^^FBFEE1;13^K:$L(X)>4!(X'?.N) X"
^DD(2100,1211.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1211.5,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1211.5,3)="Answer must be 1-4 characters in length."
^DD(2100,1211.5,"DT")="2890320"
^DD(2100,1212,0)="CHANGES IN BEDSECTION(-MED)^FXO^^FBFEE1;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1212,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1212,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1212,3)="Answer must be 1-4 numerics in length."
^DD(2100,1212,"DT")="2890320"
^DD(2100,1213,0)="BO (MED PTS REMAINING EOP)^FXO^^FBFEE1;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1213,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1213,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1213,3)="Answer must be 1-4 numerics in length."
^DD(2100,1213,"DT")="2890320"
^DD(2100,1214,0)="ABO (MED PTS REMAINING EOP)^FXO^^FBFEE1;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1214,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1214,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1214,3)="Answer must be 1-4 numerics in length."
^DD(2100,1214,"DT")="2890320"
^DD(2100,1215,0)="TOTAL DAYS OF CARE(MED)^FXO^^FBFEE1;7^K:$L(X)>6!(X'?.N) X"
^DD(2100,1215,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1215,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1215,3)="Answer must be 1-6 numerics in length."
^DD(2100,1215,"DT")="2890320"
^DD(2100,1216,0)="REIMBUR.DAYS UNAUTH CARE(MED)^FXO^^FBFEE1;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1216,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1216,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1216,3)="Answer must be 1-4 numerics in length."
^DD(2100,1216,"DT")="2890320"
^DD(2100,1217,0)="ADMISSIONS(SURG) INC TRFS^FXO^^FBFEE1;9^K:$L(X)>4!(X'?.N) X"
^DD(2100,1217,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1217,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1217,3)="Answer must be 1-4 numerics in length."
^DD(2100,1217,"DT")="2890320"
^DD(2100,1218,0)="CHANGES IN BEDSECTION(+SURG)^FXO^^FBFEE1;10^K:$L(X)>4!(X'?.N) X"
^DD(2100,1218,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1218,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1218,3)="Answer must be 1-4 numerics in length."
^DD(2100,1218,"DT")="2890320"
^DD(2100,1219,0)="DEATHS(SURG)^FXO^^FBFEE1;11^K:$L(X)>4!(X'?.N) X"
^DD(2100,1219,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1219,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1219,3)="Answer must be 1-4 numerics in length."
^DD(2100,1219,"DT")="2890320"
^DD(2100,1220,0)="DISCHARGES(SURG)^FXO^^FBFEE1;12^K:$L(X)>4!(X'?.N) X"
^DD(2100,1220,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1220,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1220,3)="Answer must be 1-4 numerics in length."
^DD(2100,1220,"DT")="2890320"
^DD(2100,1221,0)="CHANGES IN BEDSECTION(-SURG)^FXO^^FBFEE1;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1221,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1221,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1221,3)="Answer must be 1-4 numerics in length."
^DD(2100,1221,"DT")="2890320"
^DD(2100,1222,0)="BO (SURG PTS REMAINING EOP)^FXO^^FBFEE1;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1222,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1222,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1222,3)="Answer must be 1-4 numerics in length."
^DD(2100,1222,"DT")="2890320"
^DD(2100,1223,0)="ABO (SURG PTS REMAINING EOP)^FXO^^FBFEE1;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1223,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1223,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1223,3)="Answer must be 1-4 numerics in length."
^DD(2100,1223,"DT")="2890320"
^DD(2100,1224,0)="TOTAL DAYS OF CARE(SURG)^FXO^^FBFEE1;17^K:$L(X)>6!(X'?.N) X"
^DD(2100,1224,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1224,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1224,3)="Answer must be 1-6 numerics in length."
^DD(2100,1224,"DT")="2890320"
^DD(2100,1225,0)="REIMBUR.DAYS UNAUTH CARE(SURG)^FXO^^FBFEE1;18^K:$L(X)>4!(X'?.N) X"
^DD(2100,1225,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1225,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1225,3)="Answer must be 1-4 numerics in length."
^DD(2100,1225,"DT")="2890320"
^DD(2100,1226,0)="ADMISSIONS(PSYC) INC TRFS^FXO^^FBFEE1;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1226,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1226,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1226,3)="Answer must be 1-4 numerics in length."
^DD(2100,1226,"DT")="2890320"
^DD(2100,1227,0)="CHANGES IN BEDSECTION(+PSYC)^FXO^^FBFEE1;20^K:$L(X)>4!(X'?.N) X"
^DD(2100,1227,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1227,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1227,3)="Answer must be 1-4 numerics in length."
^DD(2100,1227,"DT")="2890320"
^DD(2100,1228,0)="DEATHS(PSYC)^FXO^^FBFEE1;21^K:$L(X)>4!(X'?.N) X"
^DD(2100,1228,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1228,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1228,3)="Answer must be 1-4 numerics in length."
^DD(2100,1228,"DT")="2890320"
^DD(2100,1229,0)="DISCHARGES(PSYC)^FXO^^FBFEE1;22^K:$L(X)>4!(X'?.N) X"
^DD(2100,1229,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1229,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1229,3)="Answer must be 1-4 numerics in length."
^DD(2100,1229,"DT")="2890320"
^DD(2100,1230,0)="CHANGES IN BEDSECTION(-PSYC)^FXO^^FBFEE1;23^K:$L(X)>4!(X'?.N) X"
^DD(2100,1230,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1230,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1230,3)="Answer must be 1-4 numerics in length."
^DD(2100,1230,"DT")="2890320"
^DD(2100,1231,0)="BO (PSYC PTS REMAINING EOP)^FXO^^FBFEE1;24^K:$L(X)>4!(X'?.N) X"
^DD(2100,1231,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1231,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1231,3)="Answer must be 1-4 numerics in length."
^DD(2100,1231,"DT")="2890320"
^DD(2100,1232,0)="ABO (PSYC PTS REMAINING EOP)^FXO^^FBFEE1;25^K:$L(X)>4!(X'?.N) X"
^DD(2100,1232,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1232,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1232,3)="Answer must be 1-4 numerics in length."
^DD(2100,1232,"DT")="2890320"
^DD(2100,1233,0)="TOTAL DAYS OF CARE(PSYC)^FXO^^FBFEE1;26^K:$L(X)>6!(X'?.N) X"
^DD(2100,1233,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1233,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1233,3)="Answer must be 1-6 numerics in length."
^DD(2100,1233,"DT")="2890320"
^DD(2100,1234,0)="REIMBUR.DAYS UNAUTH CARE(PSYC)^FXO^^FBFEE1;27^K:$L(X)>4!(X'?.N) X"
^DD(2100,1234,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1234,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1234,3)="Answer must be 1-4 numerics in length."
^DD(2100,1234,"DT")="2890320"
^DD(2100,1235,0)="TOTAL ADMISSIONS^FXO^^DGAMS1;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1235,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1235,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1235,3)="Answer must be 1-4 numerics in length."
^DD(2100,1235,"DT")="2890320"
^DD(2100,1236,0)="TRANSFERS IN^FXO^^DGAMS1;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1236,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1236,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1236,3)="Answer must be 1-4 numerics in length."
^DD(2100,1236,"DT")="2890320"
^DD(2100,1237,0)="CHANGES IN BEDSECTION(+)^FXO^^DGAMS1;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1237,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1237,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1237,3)="Answer must be 1-4 numerics in length."
^DD(2100,1237,"DT")="2890316"
^DD(2100,1238,0)="DEATHS,BO AND ABO^FXO^^DGAMS1;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1238,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1238,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1238,3)="Answer must be 1-4 numerics in length."
^DD(2100,1238,"DT")="2890316"
^DD(2100,1239,0)="DISCHARGE TO OPT/NSC^FXO^^DGAMS1;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1239,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1239,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1239,3)="Answer must be 1-4 numerics in length."
^DD(2100,1239,"DT")="2890316"
^DD(2100,1240,0)="DISCHARGES NOT OPT/NSC^FXO^^DGAMS1;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1240,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1240,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1240,3)="Answer must be 1-4 numerics in length."
^DD(2100,1240,"DT")="2890316"
^DD(2100,1241,0)="TRANSFERS OUT^FXO^^DGAMS1;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1241,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1241,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1241,3)="Answer must be 1-4 numerics in length."
^DD(2100,1241,"DT")="2890316"
^DD(2100,1242,0)="CHANGES IN BEDSECTION(-)^FXO^^DGAMS1;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1242,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1242,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1242,3)="Answer must be 1-4 numerics in length."
^DD(2100,1242,"DT")="2890316"
^DD(2100,1243,0)="BED OCCUPANTS EOM^FXO^^DGAMS1;9^K:$L(X)>4!(X'?.N) X"
^DD(2100,1243,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1243,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1243,3)="Answer must be 1-4 numerics in length."
^DD(2100,1243,"DT")="2890316"
^DD(2100,1244,0)="ABSENT BED OCCUPANTS EOM^FXO^^DGAMS1;10^K:$L(X)>4!(X'?.N) X"
^DD(2100,1244,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1244,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1244,3)="Answer must be 1-4 numerics in length."
^DD(2100,1244,"DT")="2890316"
^DD(2100,1245,0)="PATIENT DAYS OF CARE^FXO^^DGAMS1;11^K:$L(X)>6!(X'?.N) X"
^DD(2100,1245,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1245,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1245,3)="Answer must be 1-6 numerics in length."
^DD(2100,1245,"DT")="2890316"
^DD(2100,1246,0)="PATIENT DAYS OF CARE ( >45)^FXO^^DGAMS1;12^K:$L(X)>6!(X'?.N) X"
^DD(2100,1246,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1246,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1246,3)="Answer must be 1-6 numerics in length."
^DD(2100,1246,"DT")="2890316"
^DD(2100,1247,0)="DAYS OF AUTH ABSENCE <96HRS^FXO^^DGAMS1;13^K:$L(X)>4!(X'?.N) X"
^DD(2100,1247,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1247,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1247,3)="Answer must be 1-4 numerics in length."
^DD(2100,1247,"DT")="2890316"
^DD(2100,1248,0)="CATEGORY A ON WAITING LIST EOM^FXO^^DGAMS1;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1248,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1248,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1248,3)="Answer must be 1-4 numerics in length."
^DD(2100,1248,"DT")="2890316"
^DD(2100,1249,0)="CATEGORY B ON WAITING LIST EOM^FXO^^DGAMS1;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1249,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1249,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1249,3)="Answer must be 1-4 numerics in length."
^DD(2100,1249,"DT")="2890316"
^DD(2100,1250,0)="CATEGORY C ON WAIT LIST EOM^FXO^^DGAMS1;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1250,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1250,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1250,3)="Answer must be 1-4 numerics in length."
^DD(2100,1250,"DT")="2890316"
^DD(2100,1251,0)="OPERATING BEDS EOM^FXO^^DGAMS1;17^K:$L(X)>4!(X'?.N) X"
^DD(2100,1251,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1251,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1251,3)="Answer must be 1-4 numerics in length."
^DD(2100,1251,"DT")="2890316"
^DD(2100,1252,0)="FEMALE PATIENTS REMAINING EOM^FXO^^DGAMS1;18^K:$L(X)>4!(X'?.N) X"
^DD(2100,1252,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1252,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1252,3)="Answer must be 1-4 numerics in length."
^DD(2100,1252,"DT")="2890316"
^DD(2100,1253,0)="DIALYSIS OPERATING BEDS^FXO^^DGAMS1;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1253,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1253,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1253,3)="Answer must be 1-4 numerics in length."
^DD(2100,1253,"DT")="2890316"
^DD(2100,1254,0)="SEG START CHAR^F^^DGAMS1;20^K:$L(X)>2!($L(X)<2) X"
^DD(2100,1254,3)="Answer must be 2 characters in length."
^DD(2100,1254,"DT")="2890316"
^DD(2100,1255,0)="VERSION NUMBER^F^^DGAMS1;21^K:$L(X)>1!($L(X)<1) X"
^DD(2100,1255,3)="Answer must be 1 character in length."
^DD(2100,1255,"DT")="2890316"
^DD(2100,1256,0)="DEPT CODE^F^^DGAMS1;22^K:$L(X)>1!($L(X)<1) X"
^DD(2100,1256,3)="Answer must be 1 character in length."
^DD(2100,1256,"DT")="2890316"
^DD(2100,1257,0)="SEGMENT MODIFIER^FO^^DGAMS1;23^K:$L(X)>1!($L(X)<1) X"
^DD(2100,1257,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,1257,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,1257,3)="Answer must be 1 character in length."
^DD(2100,1257,"DT")="2900719"
^DD(2100,1258,0)="NUMBER OF APPLICATIONS^FXO^^DGAMS1;24^K:$L(X)>4!(X'?.N) X"
^DD(2100,1258,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1258,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1258,3)="Answer must be 1-4 numerics in length."
^DD(2100,1258,"DT")="2890316"
^DD(2100,1259,0)="HOSP CARE RECEIVED^FXO^^DGAMS1;25^K:$L(X)>4!(X'?.N) X"
^DD(2100,1259,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1259,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1259,3)="Answer must be 1-4 numerics in length."
^DD(2100,1259,"DT")="2890316"
^DD(2100,1260,0)="HOSP WAIT LIST^FXO^^DGAMS1;26^K:$L(X)>4!(X'?.N) X"
^DD(2100,1260,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1260,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1260,3)="Answer must be 1-4 numerics in length."
^DD(2100,1260,"DT")="2890316"
^DD(2100,1261,0)="NHCU CARE RECEIVED^FXO^^DGAMS1;27^K:$L(X)>4!(X'?.N) X"
^DD(2100,1261,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1261,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1261,3)="Answer must be 1-4 numerics in length."
^DD(2100,1261,"DT")="2890316"
^DD(2100,1262,0)="NHCU WAIT LIST^FXO^^DGAMS1;28^K:$L(X)>4!(X'?.N) X"
^DD(2100,1262,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1262,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1262,3)="Answer must be 1-4 numerics in length."
^DD(2100,1262,"DT")="2890316"
^DD(2100,1263,0)="DOMICILIARY CARE RECEIVED^FXO^^DGAMS1;29^K:$L(X)>4!(X'?.N) X"
^DD(2100,1263,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1263,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1263,3)="Answer must be 1-4 numerics in length."
^DD(2100,1263,"DT")="2890316"
^DD(2100,1264,0)="DOM WAIT LIST^FXO^^DGAMS1;30^K:$L(X)>4!(X'?.N) X"
^DD(2100,1264,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1264,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1264,3)="Answer must be 1-4 numerics in length."
^DD(2100,1264,"DT")="2890316"
^DD(2100,1265,0)="OUTPATIENT CARE RECEIVED^FXO^^DGAMS1;31^K:$L(X)>4!(X'?.N) X"
^DD(2100,1265,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1265,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1265,3)="Answer must be 1-4 numerics in length."
^DD(2100,1265,"DT")="2890316"
^DD(2100,1266,0)="EXAMINED, NO FURTHER CARE^FXO^^DGAMS1;32^K:$L(X)>4!(X'?.N) X"
^DD(2100,1266,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1266,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1266,3)="Answer must be 1-4 numerics in length."
^DD(2100,1266,"DT")="2890316"
^DD(2100,1267,0)="CANCELLED^FXO^^DGAMS1;33^K:$L(X)>4!(X'?.N) X"
^DD(2100,1267,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1267,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1267,3)="Answer must be 1-4 numerics in length."
^DD(2100,1267,"DT")="2890316"
^DD(2100,1268,0)="INELIG-DENTAL^FXO^^DGAMS1;34^K:$L(X)>4!(X'?.N) X"
^DD(2100,1268,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1268,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1268,3)="Answer must be 1-4 numerics in length."
^DD(2100,1268,"DT")="2890316"
^DD(2100,1269,0)="INELIG-PLASTIC SURGERY^FXO^^DGAMS1;35^K:$L(X)>4!(X'?.N) X"
^DD(2100,1269,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1269,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1269,3)="Answer must be 1-4 numerics in length."
^DD(2100,1269,"DT")="2890316"
^DD(2100,1270,0)="INELIG-STERILIZATION^FXO^^DGAMS1;36^K:$L(X)>4!(X'?.N) X"
^DD(2100,1270,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1270,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1270,3)="Answer must be 1-4 numerics in length."
^DD(2100,1270,"DT")="2890316"
^DD(2100,1271,0)="INELIG-PREGNANCY^FXO^^DGAMS1;37^K:$L(X)>4!(X'?.N) X"
^DD(2100,1271,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1271,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1271,3)="Answer must be 1-4 numerics in length."
^DD(2100,1271,"DT")="2890316"
^DD(2100,1272,0)="INELIG-OTHER^FXO^^DGAMS1;38^K:$L(X)>4!(X'?.N) X"
^DD(2100,1272,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1272,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1272,3)="Answer must be 1-4 numerics in length."
^DD(2100,1272,"DT")="2890316"
^DD(2100,1273,0)="HOSPITAL TYPE OF SERV^FXO^^DGAMS1;39^K:$L(X)>4!(X'?.N) X"
^DD(2100,1273,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1273,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1273,3)="Answer must be 1-4 numerics in length."
^DD(2100,1273,"DT")="2890316"
^DD(2100,1274,0)="NHCU CARE TYPE OF SERV^FXO^^DGAMS1;40^K:$L(X)>4!(X'?.N) X"
^DD(2100,1274,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1274,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1274,3)="Answer must be 1-4 numerics in length."
^DD(2100,1274,"DT")="2890316"
^DD(2100,1275,0)="DOMICILIARY TYPE OF SERV^FXO^^DGAMS1;41^K:$L(X)>4!(X'?.N) X"
^DD(2100,1275,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1275,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1275,3)="Answer must be 1-4 numerics in length."
^DD(2100,1275,"DT")="2890316"
^DD(2100,1276,0)="OPT CARE TYPE OF SERV^FXO^^DGAMS1;42^K:$L(X)>4!(X'?.N) X"
^DD(2100,1276,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1276,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1276,3)="Answer must be 1-4 numerics in length."
^DD(2100,1276,"DT")="2890316"
^DD(2100,1277,0)="DISPOSITION TO COMMUNITY^FXO^^DGAMS1;43^K:$L(X)>4!(X'?.N) X"
^DD(2100,1277,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1277,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1277,3)="Answer must be 1-4 numerics in length."
^DD(2100,1277,"DT")="2890316"
^DD(2100,1278,0)="DISPOSITION TO OTHER^FXO^^DGAMS1;44^K:$L(X)>4!(X'?.N) X"
^DD(2100,1278,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1278,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1278,3)="Answer must be 1-4 numerics in length."
^DD(2100,1278,"DT")="2890316"
^DD(2100,1279,0)="TRT MOD UNAVAIL-HOSP^FXO^^DGAMS1;45^K:$L(X)>4!(X'?.N) X"
^DD(2100,1279,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1279,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1279,3)="Answer must be 1-4 numerics in length."
^DD(2100,1279,"DT")="2890316"
^DD(2100,1280,0)="TRT MOD UNAVAIL-NHCU^FXO^^DGAMS1;46^K:$L(X)>4!(X'?.N) X"
^DD(2100,1280,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1280,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1280,3)="Answer must be 1-4 numerics in length."
^DD(2100,1280,"DT")="2890316"
^DD(2100,1281,0)="TRT MOD UNAVAIL-DOM^FXO^^DGAMS1;47^K:$L(X)>4!(X'?.N) X"
^DD(2100,1281,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1281,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1281,3)="Answer must be 1-4 numerics in length."
^DD(2100,1281,"DT")="2890316"
^DD(2100,1282,0)="TRT MOD UNAVAIL-OPT^FXO^^DGAMS1;48^K:$L(X)>4!(X'?.N) X"
^DD(2100,1282,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1282,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1282,3)="Answer must be 1-4 numerics in length."
^DD(2100,1282,"DT")="2890316"
^DD(2100,1283,0)="TRT MOD UNAVAIL-TO COMMUNITY^FXO^^DGAMS1;49^K:$L(X)>4!(X'?.N) X"
^DD(2100,1283,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1283,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1283,3)="Answer must be 1-4 numerics in length."
^DD(2100,1283,"DT")="2890316"
^DD(2100,1284,0)="TRT MOD UNAVAIL-TO OTHER VA^FXO^^DGAMS1;50^K:$L(X)>4!(X'?.N) X"
^DD(2100,1284,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1284,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1284,3)="Answer must be 1-4 numerics in length."
^DD(2100,1284,"DT")="2890316"
^DD(2100,1285,0)="TRT MOD UNAVAIL-TO FEE^FXO^^DGAMS1;51^K:$L(X)>4!(X'?.N) X"
^DD(2100,1285,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1285,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1285,3)="Answer must be 1-4 numerics in length."
^DD(2100,1285,"DT")="2890316"
^DD(2100,1286,0)="TRT MOD UNAVAIL-TO OTHER^FXO^^DGAMS1A;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1286,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1286,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1286,3)="Answer must be 1-4 numerics in length."
^DD(2100,1286,"DT")="2890316"
^DD(2100,1287,0)="LOW PRIORITY-HOSP CARE^FXO^^DGAMS1A;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1287,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1287,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1287,3)="Answer must be 1-4 numerics in length."
^DD(2100,1287,"DT")="2890316"
^DD(2100,1288,0)="LOW PRIORITY-NHCU CARE^FXO^^DGAMS1A;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1288,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1288,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1288,3)="Answer must be 1-4 numerics in length."
^DD(2100,1288,"DT")="2890316"
^DD(2100,1289,0)="LOW PRIORITY-DOM CARE^FXO^^DGAMS1A;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1289,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1289,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1289,3)="Answer must be 1-4 numerics in length."
^DD(2100,1289,"DT")="2890316"
^DD(2100,1290,0)="LOW PRIORITY-OPT CARE^FXO^^DGAMS1A;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1290,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1290,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1290,3)="Answer must be 1-4 numerics in length."
^DD(2100,1290,"DT")="2890316"
^DD(2100,1291,0)="LOW PRIORITY-TO COMMUNITY^FXO^^DGAMS1A;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1291,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1291,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1291,3)="Answer must be 1-4 numerics in length."
^DD(2100,1291,"DT")="2890316"
^DD(2100,1292,0)="LOW PRIORITY-TO OTHER CARE^FXO^^DGAMS1A;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1292,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1292,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1292,3)="Answer must be 1-4 numerics in length."
^DD(2100,1292,"DT")="2890316"
^DD(2100,1293,0)="LOW PRIORITY-TO FEE^FXO^^DGAMS1A;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1293,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1293,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1293,3)="Answer must be 1-4 numerics in length."
^DD(2100,1293,"DT")="2890316"
^DD(2100,1294,0)="LOW PRIORITY-TO OTHER^FXO^^DGAMS1A;9^K:$L(X)>4!(X'?.N) X"
^DD(2100,1294,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1294,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1294,3)="Answer must be 1-4 numerics in length."
^DD(2100,1294,"DT")="2890316"
^DD(2100,1295,0)="PENDING DETERMINATION^FXO^^DGAMS1A;10^K:$L(X)>4!(X'?.N) X"
^DD(2100,1295,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1295,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1295,3)="Answer must be 1-4 numerics in length."
^DD(2100,1295,"DT")="2890316"
^DD(2100,1296,0)="WON'T PAY DEDUCTIBLE^FXO^^DGAMS1A;11^K:$L(X)>4!(X'?.N) X"
^DD(2100,1296,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1296,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1296,3)="Answer must be 1-4 numerics in length."
^DD(2100,1296,"DT")="2890316"
^DD(2100,1297,0)="NON-VETERAN APPLICANTS^FXO^^DGAMS1A;12^K:$L(X)>4!(X'?.N) X"
^DD(2100,1297,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1297,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1297,3)="Answer must be 1-4 numerics in length."
^DD(2100,1297,"DT")="2890316"
^DD(2100,1298,0)="SC 50% OR MORE^FXO^^SDAMS1;1^K:$L(X)>6!(X'?.N) X"
^DD(2100,1298,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1298,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1298,3)="Answer must be 1-6 numerics in length."
^DD(2100,1298,"DT")="2890316"
^DD(2100,1299,0)="AA/HB;POW;WW1(NSC)^FXO^^SDAMS1;2^K:$L(X)>6!(X'?.N) X"
^DD(2100,1299,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1299,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1299,3)="Answer must be 1-6 numerics in length."
^DD(2100,1299,"DT")="2890316"
^DD(2100,1300,0)="SC LESS THAN 50%^FXO^^SDAMS1;3^K:$L(X)>6!(X'?.N) X"
^DD(2100,1300,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1300,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1300,3)="Answer must be 1-6 numerics in length."
^DD(2100,1300,"DT")="2890316"
^DD(2100,1301,0)="NSC,RECEIVING VA PENSION^FXO^^SDAMS1;4^K:$L(X)>6!(X'?.N) X"
^DD(2100,1301,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1301,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1301,3)="Answer must be 1-6 numerics in length."
^DD(2100,1301,"DT")="2890316"
^DD(2100,1302,0)="OTHER NSC^FXO^^SDAMS1;5^K:$L(X)>6!(X'?.N) X"
^DD(2100,1302,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1302,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1302,3)="Answer must be 1-6 numerics in length."
^DD(2100,1302,"DT")="2890316"
^DD(2100,1303,0)="DOMICILIARY MEMBER(NSC)^FXO^^SDAMS1;6^K:$L(X)>6!(X'?.N) X"
^DD(2100,1303,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1303,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1303,3)="Answer must be 1-6 numerics in length."
^DD(2100,1303,"DT")="2890316"
^DD(2100,1304,0)="CHAMP VA^FXO^^SDAMS1;7^K:$L(X)>6!(X'?.N) X"
^DD(2100,1304,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1304,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1304,3)="Answer must be 1-6 numerics in length."
^DD(2100,1304,"DT")="2890316"
^DD(2100,1305,0)="COLLATERAL OF VETERAN^FXO^^SDAMS1;8^K:$L(X)>6!(X'?.N) X"
^DD(2100,1305,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1305,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1305,3)="Answer must be 1-6 numerics in length."
^DD(2100,1305,"DT")="2890316"
^DD(2100,1306,0)="VA EMPLOYEE^FXO^^SDAMS1;9^K:$L(X)>6!(X'?.N) X"
^DD(2100,1306,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1306,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1306,3)="Answer must be 1-6 numerics in length."
^DD(2100,1306,"DT")="2890316"
^DD(2100,1307,0)="OTHER FEDERAL AGENCY^FXO^^SDAMS1;10^K:$L(X)>6!(X'?.N) X"
^DD(2100,1307,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1307,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1307,3)="Answer must be 1-6 numerics in length."
^DD(2100,1307,"DT")="2890316"
^DD(2100,1308,0)="ALLIED VETERAN^FXO^^SDAMS1;11^K:$L(X)>6!(X'?.N) X"
^DD(2100,1308,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1308,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1308,3)="Answer must be 1-6 numerics in length."
^DD(2100,1308,"DT")="2890316"
^DD(2100,1309,0)="HUMANITARIAN EMERGENCY^FXO^^SDAMS1;12^K:$L(X)>6!(X'?.N) X"
^DD(2100,1309,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1309,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1309,3)="Answer must be 1-6 numerics in length."
^DD(2100,1309,"DT")="2890316"
^DD(2100,1310,0)="SHARING AGREEMENT^FXO^^SDAMS1;13^K:$L(X)>6!(X'?.N) X"
^DD(2100,1310,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1310,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1310,3)="Answer must be 1-6 numerics in length."
^DD(2100,1310,"DT")="2890316"
^DD(2100,1311,0)="INSURANCE^FXO^^SDAMS1;14^K:$L(X)>6!(X'?.N) X"
^DD(2100,1311,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1311,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1311,3)="Answer must be 1-6 numerics in length."
^DD(2100,1311,"DT")="2890316"
^DD(2100,1312,0)="C&P EXAM^FXO^^SDAMS1;15^K:$L(X)>6!(X'?.N) X"
^DD(2100,1312,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1312,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1312,3)="Answer must be 1-6 numerics in length."
^DD(2100,1312,"DT")="2890316"
^DD(2100,1313,0)="10-10^FXO^^SDAMS1;16^K:$L(X)>6!(X'?.N) X"
^DD(2100,1313,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1313,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1313,3)="Answer must be 1-6 numerics in length."
^DD(2100,1313,"DT")="2890316"
^DD(2100,1314,0)="SCHEDULED VISIT^FXO^^SDAMS1;17^K:$L(X)>6!(X'?.N) X"
^DD(2100,1314,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1314,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1314,3)="Answer must be 1-6 numerics in length."
^DD(2100,1314,"DT")="2890316"
^DD(2100,1315,0)="UNSCHEDULED VISIT^FXO^^SDAMS1;18^K:$L(X)>6!(X'?.N) X"
^DD(2100,1315,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1315,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1315,3)="Answer must be 1-6 numerics in length."
^DD(2100,1315,"DT")="2890316"
^DD(2100,1316,0)="MENTAL HYGIENE GROUP^FXO^^SDAMS1;19^K:$L(X)>5!(X'?.N) X"
^DD(2100,1316,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1316,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1316,3)="Answer must be 1-5 numerics in length."
^DD(2100,1316,"DT")="2890316"
^DD(2100,1317,0)="MENTAL HYGIENE INDIVIDUAL^FXO^^SDAMS1;20^K:$L(X)>5!(X'?.N) X"
^DD(2100,1317,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1317,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1317,3)="Answer must be 1-5 numerics in length."
^DD(2100,1317,"DT")="2890316"
^DD(2100,1318,0)="DAY TREATMENT CENTER^FXO^^SDAMS1;21^K:$L(X)>5!(X'?.N) X"
^DD(2100,1318,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1318,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1318,3)="Answer must be 1-5 numerics in length."
^DD(2100,1318,"DT")="2890316"
^DD(2100,1319,0)="DAY HOSPITAL^FXO^^SDAMS1;22^K:$L(X)>5!(X'?.N) X"
^DD(2100,1319,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1319,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1319,3)="Answer must be 1-5 numerics in length."
^DD(2100,1319,"DT")="2890316"
^DD(2100,1320,0)="READJUSTMENT COUNSELING^FXO^^SDAMS1;23^K:$L(X)>5!(X'?.N) X"
^DD(2100,1320,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1320,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1320,3)="Answer must be 1-5 numerics in length."
^DD(2100,1320,"DT")="2890316"
^DD(2100,1321,0)="HBHC^FXO^^SDAMS1;24^K:$L(X)>5!(X'?.N) X"
^DD(2100,1321,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1321,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1321,3)="Answer must be 1-5 numerics in length."
^DD(2100,1321,"DT")="2890316"
^DD(2100,1322,0)="ADMIS AFTER REHOSP >30 DAYS^FXO^^DGAMS1A;13^K:$L(X)>4!(X'?.N) X S:$D(X) X=$E(""0000"",$L(X)+1,4)_X"
^DD(2100,1322,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1322,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1322,3)="Answer must be 1-4 numerics in length."
^DD(2100,1322,"DT")="2890316"
^DD(2100,1323,0)="ADMISSIONS - ALL OTHERS^FXO^^DGAMS1A;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1323,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1323,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1323,3)="Answer must be 1-4 numerics in length."
^DD(2100,1323,"DT")="2890316"
^DD(2100,1324,0)="TRANSFERS IN SIMILAR FACIL^FXO^^DGAMS1A;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1324,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1324,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1324,3)="Answer must be 1-4 numerics in length."
^DD(2100,1324,"DT")="2890316"
^DD(2100,1325,0)="FROM ASIH^FXO^^DGAMS1A;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1325,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1325,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1325,3)="Answer must be 1-4 numerics in length."
^DD(2100,1325,"DT")="2890316"
^DD(2100,1326,0)="DISCHARGES^FXO^^DGAMS1A;17^K:$L(X)>4!(X'?.N) X"
^DD(2100,1326,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1326,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1326,3)="Answer must be 1-4 numerics in length."
^DD(2100,1326,"DT")="2890316"
^DD(2100,1327,0)="TRANSFERS OUT-SIMILAR FACIL^FXO^^DGAMS1A;18^K:$L(X)>4!(X'?.N) X"
^DD(2100,1327,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1327,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1327,3)="Answer must be 1-4 numerics in length."
^DD(2100,1327,"DT")="2890316"
^DD(2100,1328,0)="TO ASIH^FXO^^DGAMS1A;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1328,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1328,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1328,3)="Answer must be 1-4 numerics in length."
^DD(2100,1328,"DT")="2890316"
^DD(2100,1329,0)="ASIH^FXO^^DGAMS1A;20^K:$L(X)>4!(X'?.N) X"
^DD(2100,1329,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1329,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1329,3)="Answer must be 1-4 numerics in length."
^DD(2100,1329,"DT")="2890316"
^DD(2100,1330,0)="DISCHARGES-ASIH^FXO^^DGAMS1A;21^K:$L(X)>4!(X'?.N) X"
^DD(2100,1330,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1330,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1330,3)="Answer must be 1-4 numerics in length."
^DD(2100,1330,"DT")="2890316"
^DD(2100,1331,0)="DIED-ASIH^FXO^^DGAMS1A;22^K:$L(X)>4!(X'?.N) X"
^DD(2100,1331,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1331,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1331,3)="Answer must be 1-4 numerics in length."
^DD(2100,1331,"DT")="2890316"
^DD(2100,1332,0)="ADMIS AFTER REHOSP >15 DAYS^FXO^^DGAMS1A;23^K:$L(X)>4!(X'?.N) X"
^DD(2100,1332,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1332,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1332,3)="Answer must be 1-4 numerics in length."
^DD(2100,1332,"DT")="2890316"
^DD(2100,1333,0)="TRANSFERS IN FROM CNH^FXO^^DGAMS1A;24^K:$L(X)>4!(X'?.N) X"
^DD(2100,1333,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1333,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1333,3)="Answer must be 1-4 numerics in length."
^DD(2100,1333,"DT")="2890316"
^DD(2100,1334,0)="TRANSFERS OUT TO CNH^FXO^^DGAMS1A;25^K:$L(X)>4!(X'?.N) X"
^DD(2100,1334,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1334,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1334,3)="Answer must be 1-4 numerics in length."
^DD(2100,1334,"DT")="2890316"
^DD(2100,1335,0)="SC PATIENTS PLACED^FXO^^DGAMS1A;26^K:$L(X)>4!(X'?.N) X"
^DD(2100,1335,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1335,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1335,3)="Answer must be 1-4 numerics in length."
^DD(2100,1335,"DT")="2890316"
^DD(2100,1336,0)="MEDICARE^FXO^^DGAMS1A;27^K:$L(X)>4!(X'?.N) X"
^DD(2100,1336,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1336,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1336,3)="Answer must be 1-4 numerics in length."
^DD(2100,1336,"DT")="2890316"
^DD(2100,1337,0)="MEDICAID^FXO^^DGAMS1A;28^K:$L(X)>4!(X'?.N) X"
^DD(2100,1337,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1337,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1337,3)="Answer must be 1-4 numerics in length."
^DD(2100,1337,"DT")="2890316"
^DD(2100,1338,0)="VA AUTH OUTPT VISITS(MED)^FXO^^DGAMS1A;29^K:$L(X)>4!(X'?.N) X"
^DD(2100,1338,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1338,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1338,3)="Answer must be 1-4 numerics in length."
^DD(2100,1338,"DT")="2890316"
^DD(2100,1339,0)="VA AUTH OUTPT VISITS(SURG)^FXO^^DGAMS1A;30^K:$L(X)>4!(X'?.N) X"
^DD(2100,1339,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1339,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1339,3)="Answer must be 1-4 numerics in length."
^DD(2100,1339,"DT")="2890316"
^DD(2100,1340,0)="VA AUTH OUTPT VISITS(PSYC)^FXO^^DGAMS1A;31^K:$L(X)>4!(X'?.N) X"
^DD(2100,1340,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1340,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1340,3)="Answer must be 1-4 numerics in length."
^DD(2100,1340,"DT")="2890316"
^DD(2100,1341,0)="1-DAY INP DIALYSIS VISITS(MED)^FXO^^DGAMS1A;32^K:$L(X)>4!(X'?.N) X"
^DD(2100,1341,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1341,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1341,3)="Answer must be 1-4 numerics in length."
^DD(2100,1341,"DT")="2890316"
^DD(2100,1342,0)="ADMISSIONS FROM SNH/SHH(DOM)^FXO^^FBFEE1A;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1342,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1342,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1342,3)="Answer must be 1-4 numerics in length."
^DD(2100,1342,"DT")="2890316"
^DD(2100,1343,0)="ADMISSIONS OTHER (DOM)^FXO^^FBFEE1A;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1343,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1343,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1343,3)="Answer must be 1-4 numerics in length."
^DD(2100,1343,"DT")="2890316"
^DD(2100,1344,0)="FROM AA >96HRS (DOM)^FXO^^FBFEE1A;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1344,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1344,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1344,3)="Answer must be 1-4 numerics in length."
^DD(2100,1344,"DT")="2890316"
^DD(2100,1345,0)="DISCHARGES TO SNH/SHH (DOM)^FXO^^FBFEE1A;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1345,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1345,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1345,3)="Answer must be 1-4 numerics in length."
^DD(2100,1345,"DT")="2890316"
^DD(2100,1346,0)="DISCHARGES OTHER (DOM)^FXO^^FBFEE1A;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1346,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1346,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1346,3)="Answer must be 1-4 numerics in length."
^DD(2100,1346,"DT")="2890316"
^DD(2100,1347,0)="DEATHS (DOM)^FXO^^FBFEE1A;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1347,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1347,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1347,3)="Answer must be 1-4 numerics in length."
^DD(2100,1347,"DT")="2890316"
^DD(2100,1348,0)="TO AA >96HRS (DOM)^FXO^^FBFEE1A;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1348,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1348,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1348,3)="Answer must be 1-4 numerics in length."
^DD(2100,1348,"DT")="2890316"
^DD(2100,1349,0)="BED OCCUPANTS EOP (DOM)^FXO^^FBFEE1A;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1349,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1349,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1349,3)="Answer must be 1-4 numerics in length."
^DD(2100,1349,"DT")="2890316"
^DD(2100,1350,0)="MEMBER DAYS OF CARE (DOM)^FXO^^FBFEE1A;9^K:$L(X)>6!(X'?.N) X"
^DD(2100,1350,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1350,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1350,3)="Answer must be 1-6 numerics in length."
^DD(2100,1350,"DT")="2890316"
^DD(2100,1351,0)="ADMISSIONS FROM DOM/SHH (SNH)^FXO^^FBFEE1A;10^K:$L(X)>4!(X'?.N) X"
^DD(2100,1351,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1351,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1351,3)="Answer must be 1-4 numerics in length."
^DD(2100,1351,"DT")="2890316"
^DD(2100,1352,0)="ADMISSIONS OTHER (SNH)^FXO^^FBFEE1A;11^K:$L(X)>4!(X'?.N) X"
^DD(2100,1352,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1352,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1352,3)="Answer must be 1-4 numerics in length."
^DD(2100,1352,"DT")="2890316"
^DD(2100,1353,0)="FROM AA >96HRS (SNH)^FXO^^FBFEE1A;12^K:$L(X)>4!(X'?.N) X"
^DD(2100,1353,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1353,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1353,3)="Answer must be 1-4 numerics in length."
^DD(2100,1353,"DT")="2890316"
^DD(2100,1354,0)="DISCHARGES TO DOM/SHH (SNH)^FXO^^FBFEE1A;13^K:$L(X)>4!(X'?.N) X"
^DD(2100,1354,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1354,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1354,3)="Answer must be 1-4 numerics in length."
^DD(2100,1354,"DT")="2890316"
^DD(2100,1355,0)="DISCHARGES OTHER (SNH)^FXO^^FBFEE1A;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1355,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1355,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1355,3)="Answer must be 1-4 numerics in length."
^DD(2100,1355,"DT")="2890316"
^DD(2100,1356,0)="DEATHS (SNH)^FXO^^FBFEE1A;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1356,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1356,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1356,3)="Answer must be 1-4 numerics in length."
^DD(2100,1356,"DT")="2890316"
^DD(2100,1357,0)="TO AA >96HRS (SNH)^FXO^^FBFEE1A;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1357,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1357,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1357,3)="Answer must be 1-4 numerics in length."
^DD(2100,1357,"DT")="2890316"
^DD(2100,1358,0)="BED OCCUPANTS EOP (SNH)^FXO^^FBFEE1A;17^K:$L(X)>4!(X'?.N) X"
^DD(2100,1358,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1358,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1358,3)="Answer must be 1-4 numerics in length."
^DD(2100,1358,"DT")="2890316"
^DD(2100,1359,0)="PATIENT DAYS OF CARE (SNH)^FXO^^FBFEE1A;18^K:$L(X)>6!(X'?.N) X"
^DD(2100,1359,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1359,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1359,3)="Answer must be 1-6 numerics in length."
^DD(2100,1359,"DT")="2890316"
^DD(2100,1360,0)="ADMISSIONS TO DOM/SNH (SHH)^FXO^^FBFEE1A;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1360,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1360,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1360,3)="Answer must be 1-4 numerics in length."
^DD(2100,1360,"DT")="2890316"
^DD(2100,1361,0)="ADMISSIONS OTHER (SHH)^FXO^^FBFEE1A;20^K:$L(X)>4!(X'?.N) X"
^DD(2100,1361,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1361,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1361,3)="Answer must be 1-4 numerics in length."
^DD(2100,1361,"DT")="2890316"
^DD(2100,1362,0)="FROM AA >96HRS (SHH)^FXO^^FBFEE1A;21^K:$L(X)>4!(X'?.N) X"
^DD(2100,1362,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1362,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1362,3)="Answer must be 1-4 numerics in length."
^DD(2100,1362,"DT")="2890316"
^DD(2100,1363,0)="DISCHARGE TO DOM/SNH (SHH)^FXO^^FBFEE1A;22^K:$L(X)>4!(X'?.N) X"
^DD(2100,1363,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1363,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1363,3)="Answer must be 1-4 numerics in length."
^DD(2100,1363,"DT")="2890316"
^DD(2100,1364,0)="DISCHARGE OTHER (SHH)^FXO^^FBFEE1A;23^K:$L(X)>4!(X'?.N) X"
^DD(2100,1364,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1364,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1364,3)="Answer must be 1-4 numerics in length."
^DD(2100,1364,"DT")="2890316"
^DD(2100,1365,0)="DEATHS (SHH)^FXO^^FBFEE1A;24^K:$L(X)>4!(X'?.N) X"
^DD(2100,1365,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1365,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1365,3)="Answer must be 1-4 numerics in length."
^DD(2100,1365,"DT")="2890316"
^DD(2100,1366,0)="TO AA >96HRS (SHH)^FXO^^FBFEE1A;25^K:$L(X)>4!(X'?.N) X"
^DD(2100,1366,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1366,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1366,3)="Answer must be 1-4 numerics in length."
^DD(2100,1366,"DT")="2890316"
^DD(2100,1367,0)="BED OCCUPANTS EOP (SHH)^FXO^^FBFEE1A;26^K:$L(X)>4!(X'?.N) X"
^DD(2100,1367,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1367,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1367,3)="Answer must be 1-4 numerics in length."
^DD(2100,1367,"DT")="2890316"
^DD(2100,1368,0)="PATIENT DAYS OF CARE (SHH)^FXO^^FBFEE1A;27^K:$L(X)>6!(X'?.N) X"
^DD(2100,1368,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1368,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1368,3)="Answer must be 1-6 numerics in length."
^DD(2100,1368,"DT")="2890316"
^DD(2100,1369,0)="FEMALE PATIENTS EOP (DOM)^FXO^^FBFEE1A;28^K:$L(X)>3!(X'?.N) X"
^DD(2100,1369,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1369,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1369,3)="Answer must be 1-3 numerics in length."
^DD(2100,1369,"DT")="2890316"
^DD(2100,1370,0)="FEMALE PATIENTS EOP (SNH)^FXO^^FBFEE1A;29^K:$L(X)>3!(X'?.N) X"
^DD(2100,1370,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1370,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1370,3)="Answer must be 1-3 numerics in length."
^DD(2100,1370,"DT")="2890316"
^DD(2100,1371,0)="FEMALE PATIENTS EOP (SHH)^FXO^^FBFEE1A;30^K:$L(X)>3!(X'?.N) X"
^DD(2100,1371,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1371,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1371,3)="Answer must be 1-3 numerics in length."
^DD(2100,1371,"DT")="2890316"
^DD(2100,1372,0)="NON-VET BED OCCUPANTS EOP(DOM)^FXO^^FBFEE1A;31^K:$L(X)>3!(X'?.N) X"
^DD(2100,1372,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1372,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1372,3)="Answer must be 1-3 numerics in length."
^DD(2100,1372,"DT")="2890316"
^DD(2100,1373,0)="NON-VET BED OCCUPANTS EOP(SNH)^FXO^^FBFEE1A;32^K:$L(X)>3!(X'?.N) X"
^DD(2100,1373,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1373,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1373,3)="Answer must be 1-3 numerics in length."
^DD(2100,1373,"DT")="2890316"
^DD(2100,1374,0)="NON-VET BED OCCUPANTS EOP(SHH)^FXO^^FBFEE1A;33^K:$L(X)>3!(X'?.N) X"
^DD(2100,1374,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1374,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1374,3)="Answer must be 1-3 numerics in length."
^DD(2100,1374,"DT")="2890316"
^DD(2100,1375,0)="TOTAL BEDS EOP (DOM)^FXO^^FBFEE1A;34^K:$L(X)>4!(X'?.N) X"
^DD(2100,1375,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1375,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1375,3)="Answer must be 1-4 numerics in length."
^DD(2100,1375,"DT")="2890316"
^DD(2100,1376,0)="TOTAL BEDS EOP (SNH)^FXO^^FBFEE1A;35^K:$L(X)>4!(X'?.N) X"
^DD(2100,1376,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1376,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1376,3)="Answer must be 1-4 numerics in length."
^DD(2100,1376,"DT")="2890316"
^DD(2100,1377,0)="TOTAL BEDS EOP (SHH)^FXO^^FBFEE1A;36^K:$L(X)>4!(X'?.N) X"
^DD(2100,1377,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1377,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1377,3)="Answer must be 1-4 numerics in length."
^DD(2100,1377,"DT")="2890316"
^DD(2100,1378,0)="BED CAPACITY EOP BY VA (DOM)^FXO^^FBFEE1A;37^K:$L(X)>4!(X'?.N) X"
^DD(2100,1378,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1378,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1378,3)="Answer must be 1-4 numerics in length."
^DD(2100,1378,"DT")="2890316"
^DD(2100,1379,0)="BED CAPACITY EOP BY VA (SNH)^FXO^^FBFEE1A;38^K:$L(X)>4!(X'?.N) X"
^DD(2100,1379,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1379,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1379,3)="Answer must be 1-4 numerics in length."
^DD(2100,1379,"DT")="2890316"
^DD(2100,1380,0)="BED CAPACITY EOP BY VA (SHH)^FXO^^FBFEE1A;39^K:$L(X)>4!(X'?.N) X"
^DD(2100,1380,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1380,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1380,3)="Answer must be 1-4 numerics in length."
^DD(2100,1380,"DT")="2890320"
^DD(2100,1381,0)="PATIENT DAYS OF CARE (1-45)^FXO^^DGAMS1A;33^K:$L(X)>6!(X'?.N) X"
^DD(2100,1381,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1381,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,1381,3)="Answer must be 1-6 numerics in length."
^DD(2100,1381,"DT")="2890612"
^DD(2100,1382,0)="REC'D FR ADJ PR1 AUDIO^FOX^^DGAMS1B;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1382,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1382,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1382,3)="Answer must be 1-4 numerics in length."
^DD(2100,1382,"DT")="2890613"
^DD(2100,1383,0)="REC'D FR ADJ PR1 PSYCH^FOX^^DGAMS1B;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1383,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1383,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1383,3)="Answer must be 1-4 numerics in length."
^DD(2100,1383,"DT")="2890613"
^DD(2100,1384,0)="REC'D FR ADJ PR1 OTHER^F^^DGAMS1B;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1384,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1384,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1384,3)="Answer must be 1-4 numerics in length."
^DD(2100,1384,"DT")="2890613"
^DD(2100,1385,0)="REC'D FR ADJ PR2 AUDIO^F^^DGAMS1B;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1385,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1385,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1385,3)="Answer must be 1-4 numerics in length."
^DD(2100,1385,"DT")="2890613"
^DD(2100,1386,0)="REC'D FR ADJ PR2 PSYCH^F^^DGAMS1B;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1386,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1386,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1386,3)="Answer must be 1-4 numerics in length."
^DD(2100,1386,"DT")="2890613"
^DD(2100,1387,0)="REC'D FR ADJ PR2 OTHER^F^^DGAMS1B;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1387,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1387,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1387,3)="Answer must be 1-4 numerics in length."
^DD(2100,1387,"DT")="2890613"
^DD(2100,1388,0)="RET TO ADJ PR1 AUDIO^F^^DGAMS1B;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1388,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1388,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1388,3)="Answer must be 1-4 numerics in length."
^DD(2100,1388,"DT")="2890613"
^DD(2100,1389,0)="RET TO ADJ PR1 PSYCH^F^^DGAMS1B;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1389,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1389,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1389,3)="Answer must be 1-4 numerics in length."
^DD(2100,1389,"DT")="2890613"
^DD(2100,1390,0)="RET TO ADJ PR1 OTHER^F^^DGAMS1B;9^K:$L(X)>4!(X'?.N) X"
^DD(2100,1390,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1390,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1390,3)="Answer must be 1-4 numerics in length."
^DD(2100,1390,"DT")="2890613"
^DD(2100,1391,0)="RET TO ADJ PR2 AUDIO^F^^DGAMS1B;10^K:$L(X)>4!(X'?.N) X"
^DD(2100,1391,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1391,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1391,3)="Answer must be 1-4 numerics in length."
^DD(2100,1391,"DT")="2890613"
^DD(2100,1392,0)="RET TO ADJ PR2 PSYCH^F^^DGAMS1B;11^K:$L(X)>4!(X'?.N) X"
^DD(2100,1392,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1392,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1392,3)="Answer must be 1-4 numerics in length."
^DD(2100,1392,"DT")="2890613"
^DD(2100,1393,0)="RET TO ADJ PR2 OTHER^F^^DGAMS1B;12^K:$L(X)>4!(X'?.N) X"
^DD(2100,1393,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1393,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1393,3)="Answer must be 1-4 numerics in length."
^DD(2100,1393,"DT")="2890613"
^DD(2100,1394,0)="PEND 1MO OR LESS PR1 AUDIO^F^^DGAMS1B;13^K:$L(X)>4!(X'?.N) X"
^DD(2100,1394,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1394,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1394,3)="Answer must be 1-4 numerics in length."
^DD(2100,1394,"DT")="2890613"
^DD(2100,1395,0)="PEND 1MO OR LESS PR1 PSYCH^F^^DGAMS1B;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1395,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1395,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1395,3)="Answer must be 1-4 numerics in length."
^DD(2100,1395,"DT")="2890613"
^DD(2100,1396,0)="PEND 1MO OR LESS PR1 OTHER^F^^DGAMS1B;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1396,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1396,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1396,3)="Answer must be 1-4 numerics in length."
^DD(2100,1396,"DT")="2890613"
^DD(2100,1397,0)="PEND 1MO OR LESS PR2 AUDIO^F^^DGAMS1B;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1397,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1397,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1397,3)="Answer must be 1-4 numerics in length."
^DD(2100,1397,"DT")="2890613"
^DD(2100,1398,0)="PEND 1MO OR LESS PR2 PSYCH^F^^DGAMS1B;17^K:$L(X)>4!(X'?.N) X"
^DD(2100,1398,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1398,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1398,3)="Answer must be 1-4 numerics in length."
^DD(2100,1398,"DT")="2890613"
^DD(2100,1399,0)="PEND 1MO OR LESS PR2 OTHER^F^^DGAMS1B;18^K:$L(X)>4!(X'?.N) X"
^DD(2100,1399,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1399,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1399,3)="Answer must be 1-4 numerics in length."
^DD(2100,1399,"DT")="2890613"
^DD(2100,1400,0)="PEND 2MO OR LESS PR1 AUDIO^F^^DGAMS1B;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1400,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1400,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1400,3)="Answer must be 1-4 numerics in length."
^DD(2100,1400,"DT")="2890613"
^DD(2100,1401,0)="PEND 2MO OR LESS PR1 PSYCH^F^^DGAMS1B;20^K:$L(X)>4!(X'?.N) X"
^DD(2100,1401,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1401,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1401,3)="Answer must be 1-4 numerics in length."
^DD(2100,1401,"DT")="2890613"
^DD(2100,1402,0)="PEND 2MO OR LESS PR1 OTHER^F^^DGAMS1B;21^K:$L(X)>4!(X'?.N) X"
^DD(2100,1402,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1402,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1402,3)="Answer must be 1-4 numerics in length."
^DD(2100,1402,"DT")="2890613"
^DD(2100,1403,0)="PEND 2MO OR LESS PR2 AUDIO^F^^DGAMS1B;22^K:$L(X)>4!(X'?.N) X"
^DD(2100,1403,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1403,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1403,3)="Answer must be 1-4 numerics in length."
^DD(2100,1403,"DT")="2890613"
^DD(2100,1404,0)="PEND 2MO OR LESS PR2 PSYCH^F^^DGAMS1B;23^K:$L(X)>4!(X'?.N) X"
^DD(2100,1404,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1404,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1404,3)="Answer must be 1-4 numerics in length."
^DD(2100,1404,"DT")="2890613"
^DD(2100,1405,0)="PEND 2MO OR LESS PR2 OTHER^F^^DGAMS1B;24^K:$L(X)>4!(X'?.N) X"
^DD(2100,1405,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1405,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1405,3)="Answer must be 1-4 numerics in length."
^DD(2100,1405,"DT")="2890613"
^DD(2100,1406,0)="PEND LESS THAN 6MO PR1 AUDIO^F^^DGAMS1B;25^K:$L(X)>4!(X'?.N) X"
^DD(2100,1406,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1406,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1406,3)="Answer must be 1-4 numerics in length."
^DD(2100,1406,"DT")="2890613"
^DD(2100,1407,0)="PEND LESS THAN 6MO PR1 PSYCH^F^^DGAMS1B;26^K:$L(X)>4!(X'?.N) X"
^DD(2100,1407,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1407,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1407,3)="Answer must be 1-4 numerics in length."
^DD(2100,1407,"DT")="2890613"
^DD(2100,1408,0)="PEND LESS THAN 6MO PR1 OTHER^F^^DGAMS1B;27^K:$L(X)>4!(X'?.N) X"
^DD(2100,1408,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1408,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1408,3)="Answer must be 1-4 numerics in length."
^DD(2100,1408,"DT")="2890613"
^DD(2100,1409,0)="PEND LESS THAN 6MO PR2 AUDIO^F^^DGAMS1B;28^K:$L(X)>4!(X'?.N) X"
^DD(2100,1409,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1409,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1409,3)="Answer must be 1-4 numerics in length."
^DD(2100,1409,"DT")="2890613"
^DD(2100,1410,0)="PEND LESS THAN 6MO PR2 PSYCH^F^^DGAMS1B;29^K:$L(X)>4!(X'?.N) X"
^DD(2100,1410,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1410,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1410,3)="Answer must be 1-4 numerics in length."
^DD(2100,1410,"DT")="2890613"
^DD(2100,1411,0)="PEND LESS THAN 6MO PR2 OTHER^F^^DGAMS1B;30^K:$L(X)>4!(X'?.N) X"
^DD(2100,1411,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1411,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1411,3)="Answer must be 1-4 numerics in length."
^DD(2100,1411,"DT")="2890613"
^DD(2100,1412,0)="PEND 6 TO <12 MO PR1 AUDIO^F^^DGAMS1B;31^K:$L(X)>4!(X'?.N) X"
^DD(2100,1412,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1412,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1412,3)="Answer must be 1-4 numerics in length."
^DD(2100,1412,"DT")="2890613"
^DD(2100,1413,0)="PEND 6 TO <12 MO PR1 PSYCH^F^^DGAMS1B;32^K:$L(X)>4!(X'?.N) X"
^DD(2100,1413,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1413,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1413,3)="Answer must be 1-4 numerics in length."
^DD(2100,1413,"DT")="2890613"
^DD(2100,1414,0)="PEND 6 TO <12 MO PR1 OTHER^F^^DGAMS1B;33^K:$L(X)>4!(X'?.N) X"
^DD(2100,1414,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1414,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1414,3)="Answer must be 1-4 numerics in length."
^DD(2100,1414,"DT")="2890613"
^DD(2100,1415,0)="PEND 6 TO <12 MO PR2 AUDIO^F^^DGAMS1B;34^K:$L(X)>4!(X'?.N) X"
^DD(2100,1415,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1415,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1415,3)="Answer must be 1-4 numerics in length."
^DD(2100,1415,"DT")="2890613"
^DD(2100,1416,0)="PEND 6 TO <12 MO PR2 PSYCH^F^^DGAMS1B;35^K:$L(X)>4!(X'?.N) X"
^DD(2100,1416,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1416,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1416,3)="Answer must be 1-4 numerics in length."
^DD(2100,1416,"DT")="2890613"
^DD(2100,1417,0)="PEND 6 TO <12 MO PR2 OTHER^F^^DGAMS1B;36^K:$L(X)>4!(X'?.N) X"
^DD(2100,1417,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1417,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1417,3)="Answer must be 1-4 numerics in length."
^DD(2100,1417,"DT")="2890613"
^DD(2100,1418,0)="PEND 12MO AND OVER PR1 AUDIO^F^^DGAMS1B;37^K:$L(X)>4!(X'?.N) X"
^DD(2100,1418,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1418,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1418,3)="Answer must be 1-4 numerics in length."
^DD(2100,1418,"DT")="2890613"
^DD(2100,1419,0)="PEND 12MO AND OVER PR1 PSYCH^F^^DGAMS1B;38^K:$L(X)>4!(X'?.N) X"
^DD(2100,1419,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1419,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1419,3)="Answer must be 1-4 numerics in length."
^DD(2100,1419,"DT")="2890613"
^DD(2100,1420,0)="PEND 12MO AND OVER PR1 OTHER^F^^DGAMS1B;39^K:$L(X)>4!(X'?.N) X"
^DD(2100,1420,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1420,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1420,3)="Answer must be 1-4 numerics in length."
^DD(2100,1420,"DT")="2890613"
^DD(2100,1421,0)="PEND 12MO AND OVER PR2 AUDIO^F^^DGAMS1B;40^K:$L(X)>4!(X'?.N) X"
^DD(2100,1421,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1421,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1421,3)="Answer must be 1-4 numerics in length."
^DD(2100,1421,"DT")="2890613"
^DD(2100,1422,0)="PEND 12MO AND OVER PR2 PSYCH^F^^DGAMS1B;41^K:$L(X)>4!(X'?.N) X"
^DD(2100,1422,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1422,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1422,3)="Answer must be 1-4 numerics in length."
^DD(2100,1422,"DT")="2890613"
^DD(2100,1423,0)="PEND 12MO AND OVER PR2 OTHER^F^^DGAMS1B;42^K:$L(X)>4!(X'?.N) X"
^DD(2100,1423,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1423,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1423,3)="Answer must be 1-4 numerics in length."
^DD(2100,1423,"DT")="2890613"
^DD(2100,1424,0)="TOT PEND EOM PR1 AUDIO^F^^DGAMS1B;43^K:$L(X)>4!(X'?.N) X"
^DD(2100,1424,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1424,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1424,3)="Answer must be 1-4 numerics in length."
^DD(2100,1424,"DT")="2890613"
^DD(2100,1425,0)="TOT PEND EOM PR1 PSYCH^F^^DGAMS1B;44^K:$L(X)>4!(X'?.N) X"
^DD(2100,1425,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1425,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1425,3)="Answer must be 1-4 numerics in length."
^DD(2100,1425,"DT")="2890613"
^DD(2100,1426,0)="TOT PEND EOM PR1 OTHER^F^^DGAMS1B;45^K:$L(X)>4!(X'?.N) X"
^DD(2100,1426,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1426,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1426,3)="Answer must be 1-4 numerics in length."
^DD(2100,1426,"DT")="2890613"
^DD(2100,1427,0)="TOT PEND EOM PR2 AUDIO^F^^DGAMS1B;46^K:$L(X)>4!(X'?.N) X"
^DD(2100,1427,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1427,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1427,3)="Answer must be 1-4 numerics in length."
^DD(2100,1427,"DT")="2890613"
^DD(2100,1428,0)="TOT PEND EOM PR2 PSYCH^F^^DGAMS1B;47^K:$L(X)>4!(X'?.N) X"
^DD(2100,1428,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1428,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1428,3)="Answer must be 1-4 numerics in length."
^DD(2100,1428,"DT")="2890613"
^DD(2100,1429,0)="TOT PEND EOM PR2 OTHER^F^^DGAMS1B;48^K:$L(X)>4!(X'?.N) X"
^DD(2100,1429,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1429,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1429,3)="Answer must be 1-4 numerics in length."
^DD(2100,1429,"DT")="2890613"
^DD(2100,1430,0)="NEW CASES^FXO^^DGAMS1C;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1430,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1430,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1430,3)="Answer must be 1-4 numerics in length."
^DD(2100,1430,"DT")="2890712"
^DD(2100,1431,0)="REOPENED CASES^FXO^^DGAMS1C;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1431,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1431,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1431,3)="Answer must be 1-4 numerics in length."
^DD(2100,1431,"DT")="2890712"
^DD(2100,1432,0)="NO FURTHER TREATMENT REQ(-)^FXO^^DGAMS1C;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1432,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1432,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1432,3)="Answer must be 1-4 numerics in length."
^DD(2100,1432,"DT")="2890712"
^DD(2100,1433,0)="TO REHOSP PSY BEDSECTION(-)^FXO^^DGAMS1C;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1433,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1433,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1433,3)="Answer must be 1-4 numerics in length."
^DD(2100,1433,"DT")="2890712"
^DD(2100,1434,0)="OTHER (-)^FXO^^DGAMS1C;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1434,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1434,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1434,3)="Answer must be 1-4 numerics in length."
^DD(2100,1434,"DT")="2890712"
^DD(2100,1435,0)="ACTIVE CASES EOP < 1 YEAR^FXO^^DGAMS1C;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1435,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1435,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1435,3)="Answer must be 1-4 numerics in length."
^DD(2100,1435,"DT")="2890712"
^DD(2100,1436,0)="ACTIVE CASES EOP 1-5 YEARS^FXO^^DGAMS1C;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1436,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1436,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1436,3)="Answer must be 1-4 numerics in length."
^DD(2100,1436,"DT")="2890712"
^DD(2100,1437,0)="ACTIVE CASES EOP > 5 YEARS^FXO^^DGAMS1C;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1437,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1437,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1437,3)="Answer must be 1-4 numerics in length."
^DD(2100,1437,"DT")="2890712"
^DD(2100,1438,0)="DAYS OF MHC OPERATION^FXO^^DGAMS1C;9^K:$L(X)>4!(X'?.N) X"
^DD(2100,1438,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1438,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1438,3)="Answer must be 1-4 numerics in length."
^DD(2100,1438,"DT")="2890712"
^DD(2100,1439,0)="PROFESSIONAL FTEE^FXO^^DGAMS1C;10^K:$L(X)>5!($L(X)<1)!(X'?.N1"".""1N) X"
^DD(2100,1439,2)="S Y(0)=Y I $D(GECSOT) S Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1439,2.1)="I $D(GECSOT) S Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1439,3)="Answer with total professional FTEE between .1 and 999.9"
^DD(2100,1439,"DT")="2890714"
^DD(2100,1440,0)="NON-PROFESSIONAL FTEE^FXO^^DGAMS1C;11^K:$L(X)>5!($L(X)<1)!(X'?.N1"".""1N) X"
^DD(2100,1440,2)="S Y(0)=Y I $D(GECSOT) S Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1440,2.1)="I $D(GECSOT) S Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1440,3)="Answer with total non-professional FTEE between .1 and 999.9"
^DD(2100,1440,"DT")="2890714"
^DD(2100,1441,0)="# OF PTS SEEN BY PSYCHIATRIST^FXO^^DGAMS1C;12^K:$L(X)>4!(X'?.N) X"
^DD(2100,1441,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1441,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1441,3)="Answer must be 1-4 numerics in length."
^DD(2100,1441,"DT")="2890712"
^DD(2100,1442,0)="# OF PTS SEEN BY PSYCHOLOGIST^FXO^^DGAMS1C;13^K:$L(X)>4!(X'?.N) X"
^DD(2100,1442,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1442,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1442,3)="Answer must be 1-4 numerics in length."
^DD(2100,1442,"DT")="2890712"
^DD(2100,1443,0)="# OF PTS SEEN BY SOCIAL WORKER^FXO^^DGAMS1C;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1443,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1443,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1443,3)="Answer must be 1-4 numerics in length."
^DD(2100,1443,"DT")="2890712"
^DD(2100,1444,0)="# OF PTS SEEN BY NURSE^FXO^^DGAMS1C;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1444,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1444,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1444,3)="Answer must be 1-4 numerics in length."
^DD(2100,1444,"DT")="2890712"
^DD(2100,1445,0)="# OF PTS SEEN BY OTHER^FXO^^DGAMS1C;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1445,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1445,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1445,3)="Answer must be 1-4 numerics in length."
^DD(2100,1445,"DT")="2890712"
^DD(2100,1446,0)="TOT # OF DIFF SC VETS TREATED^FXO^^DGAMS1C;17^K:$L(X)>4!(X'?.N) X"
^DD(2100,1446,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1446,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1446,3)="Answer must be 1-4 numerics in length."
^DD(2100,1446,"DT")="2890712"
^DD(2100,1447,0)="TOT # OF DIFF NSC VETS TREATED^FXO^^DGAMS1C;18^K:$L(X)>4!(X'?.N) X"
^DD(2100,1447,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1447,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1447,3)="Answer must be 1-4 numerics in length."
^DD(2100,1447,"DT")="2890712"
^DD(2100,1448,0)="TOT # DIFF V.N.ERA VETS TREAT^FXO^^DGAMS1C;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1448,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1448,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1448,3)="Answer must be 1-4 numerics in length."
^DD(2100,1448,"DT")="2890712"
^DD(2100,1449,0)="WAITING LIST EOP^FXO^^DGAMS1C;20^K:$L(X)>4!(X'?.N) X"
^DD(2100,1449,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1449,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1449,3)="Answer must be 1-4 numerics in length."
^DD(2100,1449,"DT")="2890712"
^DD(2100,1450,0)="SUPPORT VISITS^FXO^^DGAMS1C;21^K:$L(X)>4!(X'?.N) X"
^DD(2100,1450,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1450,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1450,3)="Answer must be 1-4 numerics in length."
^DD(2100,1450,"DT")="2890712"
^DD(2100,1451,0)="PENDING PRIOR MONTH^FXO^^DGAMS1D;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1451,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1451,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1451,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1451,"DT")="2890925"
^DD(2100,1452,0)="RECEIVED^FXO^^DGAMS1D;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1452,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1452,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1452,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1452,"DT")="2890925"
^DD(2100,1453,0)="RETURNED COMPLETED^FXO^^DGAMS1D;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1453,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1453,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1453,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1453,"DT")="2890925"
^DD(2100,1454,0)="RETURNED INCOMPLETE^FXO^^DGAMS1D;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1454,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1454,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1454,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1454,"DT")="2890925"
^DD(2100,1455,0)="PENDING EOM^FXO^^DGAMS1D;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1455,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1455,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1455,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1455,"DT")="2890925"
^DD(2100,1456,0)="AVG PROCESSING TIME (DAYS)^FXO^^DGAMS1D;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1456,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1456,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1456,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1456,"DT")="2890925"
^DD(2100,1457,0)="OVER 3 DAYS TO SCHEDULE^FXO^^DGAMS1D;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1457,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1457,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1457,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1457,21,0)="^^1^1^2890925^"
^DD(2100,1457,21,1,0)="REQUIRED FROM DATE OF RECEIPT"
^DD(2100,1457,"DT")="2911205"
^DD(2100,1458,0)="OVER 30 DAYS TO EXAMINE^FXO^^DGAMS1D;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1458,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1458,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1458,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1458,21,0)="^^1^1^2890925^"
^DD(2100,1458,21,1,0)="REQUIRED FROM DATE OF RECEIPT"
^DD(2100,1458,"DT")="2911205"
^DD(2100,1459,0)="PEND 90 DAYS OR LESS^FXO^^DGAMS1D;9^K:$L(X)>4!(X'?.N) X"
^DD(2100,1459,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1459,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1459,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1459,21,0)="^^1^1^2890925^"
^DD(2100,1459,21,1,0)="PENDING RETURN TO ADJUDICATION"
^DD(2100,1459,"DT")="2890925"
^DD(2100,1460,0)="PEND 91 DAYS TO 120 DAYS^FXO^^DGAMS1D;10^K:$L(X)>4!(X'?.N) X"
^DD(2100,1460,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1460,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1460,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1460,21,0)="^^1^1^2890925^"
^DD(2100,1460,21,1,0)="PENDING RETURN TO ADJUDICATION"
^DD(2100,1460,"DT")="2890925"
^DD(2100,1461,0)="PEND 121 DAYS TO 150 DAYS^FXO^^DGAMS1D;11^K:$L(X)>4!(X'?.N) X"
^DD(2100,1461,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1461,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1461,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1461,21,0)="^^1^1^2890925^"
^DD(2100,1461,21,1,0)="PENDING RETURN TO ADJUDICATION"
^DD(2100,1461,"DT")="2890925"
^DD(2100,1462,0)="PEND 151 DAYS TO 180 DAYS^FXO^^DGAMS1D;12^K:$L(X)>4!(X'?.N) X"
^DD(2100,1462,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1462,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1462,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1462,21,0)="^^1^1^2890925^"
^DD(2100,1462,21,1,0)="PENDING RETURN TO ADJUDICATION"
^DD(2100,1462,"DT")="2890925"
^DD(2100,1463,0)="PEND 181 DAYS TO 365 DAYS^FXO^^DGAMS1D;13^K:$L(X)>4!(X'?.N) X"
^DD(2100,1463,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1463,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1463,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1463,21,0)="^^1^1^2890925^"
^DD(2100,1463,21,1,0)="PENDING RETURN TO ADJUDICATION"
^DD(2100,1463,"DT")="2890925"
^DD(2100,1464,0)="PEND 366 DAYS AND OVER^FXO^^DGAMS1D;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1464,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1464,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1464,3)="ANSWER MUST BE 1-4 NUMBERS IN LENGTH"
^DD(2100,1464,21,0)="^^1^1^2890925^"
^DD(2100,1464,21,1,0)="PENDING RETURN TO ADJUDICATION"
^DD(2100,1464,"DT")="2890925"
^DD(2100,1465,0)="SKULL^FXO^^RAAMS1;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1465,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1465,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1465,3)="Answer must be 1-4 numbers in length."
^DD(2100,1465,"DT")="2900409"
^DD(2100,1466,0)="CHEST (Single View)^FOX^^RAAMS1;2^K:$L(X)>4!(X'?.N) X"
^DD(2100,1466,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1466,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1466,3)="Answer must be 1-4 numbers in length."
^DD(2100,1466,21,0)="^^1^1^2900406^"
^DD(2100,1466,21,1,0)=" "
^DD(2100,1466,"DT")="2900410"
^DD(2100,1467,0)="CHEST (Multiple View)^FO^^RAAMS1;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1467,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1467,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1467,3)="Answer must be 1-4 numbers in length."
^DD(2100,1467,"DT")="2900409"
^DD(2100,1468,0)="CARDIAC SERIES^FO^^RAAMS1;4^K:$L(X)>4!(X'?.N) X"
^DD(2100,1468,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1468,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1468,3)="Answer must be 1-4 numbers in length."
^DD(2100,1468,"DT")="2900409"
^DD(2100,1469,0)="ABDOMEN-KUB^FO^^RAAMS1;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1469,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1469,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1469,3)="Answer must be 1-4 numbers in length."
^DD(2100,1469,"DT")="2900409"
^DD(2100,1470,0)="OBSTRUCTIVE SERIES^FO^^RAAMS1;6^K:$L(X)>4!(X'?.N) X"
^DD(2100,1470,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1470,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1470,3)="Answer must be 1-4 numbers in length."
^DD(2100,1470,"DT")="2900409"
^DD(2100,1471,0)="SPINE AND SACROILIAC(Skeletal)^FO^^RAAMS1;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1471,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1471,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1471,3)="Answer must be 1-4 numbers in length."
^DD(2100,1471,"DT")="2900409"
^DD(2100,1472,0)="BONE AND JOINTS(Skeletal)^FO^^RAAMS1;8^K:$L(X)>4!(X'?.N) X"
^DD(2100,1472,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1472,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1472,3)="Answer must be 1-4 numbers in length."
^DD(2100,1472,"DT")="2900409"
^DD(2100,1473,0)="GASTROINTESTINAL^FO^^RAAMS1;9^K:$L(X)>4!(X'?.N) X"
^DD(2100,1473,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1473,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1473,3)="Answer must be 1-4 numbers in length."
^DD(2100,1473,"DT")="2900409"
^DD(2100,1474,0)="GENITOURINARY^FO^^RAAMS1;10^K:$L(X)>4!(X'?.N) X"
^DD(2100,1474,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1474,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1474,3)="Answer must be 1-4 numbers in length."
^DD(2100,1474,"DT")="2900409"
^DD(2100,1475,0)="CHOLECYSTOGRAM(ORAL)^FO^^RAAMS1;11^K:$L(X)>4!(X'?.N) X"
^DD(2100,1475,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1475,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1475,3)="Answer must be 1-4 numbers in length."
^DD(2100,1475,"DT")="2900409"
^DD(2100,1476,0)="CHOLANGIOGRAM^FO^^RAAMS1;12^K:$L(X)>4!(X'?.N) X"
^DD(2100,1476,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1476,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1476,3)="Answer must be 1-4 numbers in length."
^DD(2100,1476,"DT")="2900409"
^DD(2100,1477,0)="LAMINAGRAM^FO^^RAAMS1;13^K:$L(X)>4!(X'?.N) X"
^DD(2100,1477,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1477,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1477,3)="Answer must be 1-4 numbers in length."
^DD(2100,1477,"DT")="2900409"
^DD(2100,1478,0)="BRONCHOGRAM^FO^^RAAMS1;14^K:$L(X)>4!(X'?.N) X"
^DD(2100,1478,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1478,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1478,3)="Answer must be 1-4 numbers in length."
^DD(2100,1478,"DT")="2900409"
^DD(2100,1479,0)="DIGITAL SUB.ANGIOGRAPHY^FO^^RAAMS1;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1479,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1479,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1479,3)="Answer must be 1-4 numbers in length."
^DD(2100,1479,"DT")="2900409"
^DD(2100,1480,0)="CEREBRAL(ANGIO or CATH)^FO^^RAAMS1;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1480,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1480,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1480,3)="Answer must be 1-4 numbers in length."
^DD(2100,1480,"DT")="2900409"
^DD(2100,1481,0)="VISCERAL(ANGIO or CATH)^FO^^RAAMS1;17^K:$L(X)>4!(X'?.N) X"
^DD(2100,1481,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1481,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1481,3)="Answer must be 1-4 numbers in length."
^DD(2100,1481,"DT")="2900409"
^DD(2100,1482,0)="PERIPHERAL(ANGIO or CATH)^FO^^RAAMS1;18^K:$L(X)>4!(X'?.N) X"
^DD(2100,1482,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1482,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1482,3)="Answer must be 1-4 numbers in length."
^DD(2100,1482,"DT")="2900409"
^DD(2100,1483,0)="VENOGRAM^FO^^RAAMS1;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1483,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1483,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1483,3)="Answer must be 1-4 numbers in length."
^DD(2100,1483,"DT")="2900409"
^DD(2100,1484,0)="MYELOGRAM^FO^^RAAMS1;20^K:$L(X)>4!(X'?.N) X"
^DD(2100,1484,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1484,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1484,3)="Answer must be 1-4 numbers in length."
^DD(2100,1484,"DT")="2900409"
^DD(2100,1485,0)="COMPUTED TOMOGRAPHY^FO^^RAAMS1;21^K:$L(X)>4!(X'?.N) X"
^DD(2100,1485,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1485,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1485,3)="Answer must be 1-4 numbers in length."
^DD(2100,1485,"DT")="2900409"
^DD(2100,1486,0)="INTERVENTIONAL RADIOGRAPHY^FO^^RAAMS1;22^K:$L(X)>4!(X'?.N) X"
^DD(2100,1486,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1486,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1486,3)="Answer must be 1-4 numbers in length."
^DD(2100,1486,"DT")="2900409"
^DD(2100,1487,0)="ULTRASOUND/ECHOENCEPHALOGRAM^FO^^RAAMS1;23^K:$L(X)>4!(X'?.N) X"
^DD(2100,1487,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1487,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1487,3)="Answer must be 1-4 numbers in length."
^DD(2100,1487,"DT")="2900409"
^DD(2100,1488,0)="OTHER^FO^^RAAMS1;24^K:$L(X)>4!(X'?.N) X"
^DD(2100,1488,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1488,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1488,3)="Answer must be 1-4 numbers in length."
^DD(2100,1488,"DT")="2900409"
^DD(2100,1489,0)="EXAM IN OR AT SURGERY^FO^^RAAMS1;25^K:$L(X)>4!(X'?.N) X"
^DD(2100,1489,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1489,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1489,3)="Answer must be 1-4 numbers in length."
^DD(2100,1489,"DT")="2900409"
^DD(2100,1490,0)="BEDSIDE EXAM^FO^^RAAMS1;26^K:$L(X)>4!(X'?.N) X"
^DD(2100,1490,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1490,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1490,3)="Answer must be 1-4 numbers in length."
^DD(2100,1490,"DT")="2900409"
^DD(2100,1491,0)="CINE RUN^FXO^^RAAMS1;27^K:$L(X)>5!(X'?.N) X"
^DD(2100,1491,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1491,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1491,3)="Answer must be 1-5 numbers in length."
^DD(2100,1491,"DT")="2900409"
^DD(2100,1492,0)="PATIENT VISITS^FXO^^RAAMS1;28^K:$L(X)>5!(X'?.N) X"
^DD(2100,1492,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1492,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1492,3)="Answer must be 1-5 numbers in length."
^DD(2100,1492,"DT")="2900409"
^DD(2100,1493,0)="NUMBER OF FILMS USED^FXO^^RAAMS1;29^K:$L(X)>5!(X'?.N) X"
^DD(2100,1493,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1493,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1493,3)="Answer must be 1-5 numbers in length."
^DD(2100,1493,"DT")="2900409"
^DD(2100,1494,0)="# OF FEET OF CINE ROLLS USED^FXO^^RAAMS1;30^K:$L(X)>5!(X'?.N) X"
^DD(2100,1494,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1494,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1494,3)="Answer must be 1-5 number in length."
^DD(2100,1494,"DT")="2900409"
^DD(2100,1495,0)="VA PATIENTS(Superficial X-RAY)^FXO^^RAAMS1;31^K:$L(X)>3!(X'?.N) X"
^DD(2100,1495,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1495,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1495,3)="Answer must be 1-3 numbers in length."
^DD(2100,1495,"DT")="2900409"
^DD(2100,1496,0)="VA VISITS(Superficial X-RAY)^FXO^^RAAMS1;32^K:$L(X)>4!(X'?.N) X"
^DD(2100,1496,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1496,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1496,3)="Answer must be 1-4 numbers in length."
^DD(2100,1496,"DT")="2900409"
^DD(2100,1497,0)="VA PATIENTS(Deep X-RAY)^FXO^^RAAMS1;33^K:$L(X)>3!(X'?.N) X"
^DD(2100,1497,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1497,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1497,3)="Answer must be 1-3 numbers in length."
^DD(2100,1497,"DT")="2900409"
^DD(2100,1498,0)="VA VISITS(Deep X-RAY)^FXO^^RAAMS1;34^K:$L(X)>4!(X'?.N) X"
^DD(2100,1498,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1498,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1498,3)="Answer must be 1-4 numbers in length."
^DD(2100,1498,"DT")="2900409"
^DD(2100,1499,0)="VA PATIENTS(Cobalt Tel.)^FXO^^RAAMS1;35^K:$L(X)>3!(X'?.N) X"
^DD(2100,1499,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1499,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1499,3)="Answer must be 1-3 numbers in length."
^DD(2100,1499,"DT")="2900409"
^DD(2100,1500,0)="VA VISITS(Cobalt Tel.)^FXO^^RAAMS1;36^K:$L(X)>4!(X'?.N) X"
^DD(2100,1500,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1500,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1500,3)="Answer must be 1-4 numbers in length."
^DD(2100,1500,"DT")="2900409"
^DD(2100,1501,0)="VA PATIENTS(Lin.ACC.&Betatron)^FXO^^RAAMS1;37^K:$L(X)>3!(X'?.N) X"
^DD(2100,1501,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1501,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1501,3)="Answer must be 1-3 numbers in length."
^DD(2100,1501,"DT")="2900409"
^DD(2100,1502,0)="VA VISITS(Lin ACC &Betatron)^FXO^^RAAMS1;38^K:$L(X)>4!(X'?.N) X"
^DD(2100,1502,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1502,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1502,3)="Answer must be 1-4 numbers in length."
^DD(2100,1502,"DT")="2900409"
^DD(2100,1503,0)="VA PATIENTS(Radio Implts/APPL)^FXO^^RAAMS1;39^K:$L(X)>3!(X'?.N) X"
^DD(2100,1503,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1503,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1503,3)="Answer must be 1-3 numbers in length."
^DD(2100,1503,"DT")="2900409"
^DD(2100,1504,0)="VA VISITS(Radio Implts/APPL)^FXO^^RAAMS1;40^K:$L(X)>4!(X'?.N) X"
^DD(2100,1504,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1504,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1504,3)="Answer must be 1-4 numbers in length."
^DD(2100,1504,"DT")="2900409"
^DD(2100,1505,0)="VA CONSULTATION^FXO^^RAAMS1;41^K:$L(X)>3!(X'?.N) X"
^DD(2100,1505,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1505,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1505,3)="Answer must be 1-3 numbers in length."
^DD(2100,1505,"DT")="2900409"
^DD(2100,1506,0)="VA TREATMENT PLANNING^FXO^^RAAMS1;42^K:$L(X)>4!(X'?.N) X"
^DD(2100,1506,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1506,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1506,3)="Answer must be 1-4 numbers in length."
^DD(2100,1506,"DT")="2900409"
^DD(2100,1507,0)="VA FOLLOW-UP VISITS^FXO^^RAAMS1;43^K:$L(X)>4!(X'?.N) X"
^DD(2100,1507,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1507,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1507,3)="Answer must be 1-4 numbers in length."
^DD(2100,1507,"DT")="2900409"
^DD(2100,1508,0)="VA SPECIAL PROCEDURES^FXO^^RAAMS1;44^K:$L(X)>4!(X'?.N) X"
^DD(2100,1508,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1508,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1508,3)="Answer must be 1-4 numbers in length."
^DD(2100,1508,"DT")="2900409"
^DD(2100,1509,0)="CONTRACT PTS(Superf X-RAY)^FXO^^RAAMS1;45^K:$L(X)>3!(X'?.N) X"
^DD(2100,1509,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1509,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1509,3)="Answer must be 1-3 numbers in length."
^DD(2100,1509,"DT")="2900409"
^DD(2100,1510,0)="CONTRACT VISITS(Superf X-RAY)^FXO^^RAAMS1;46^K:$L(X)>4!(X'?.N) X"
^DD(2100,1510,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1510,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1510,3)="Answer must be 1-4 numbers in length."
^DD(2100,1510,"DT")="2900409"
^DD(2100,1511,0)="CONTRACT PTS(Deep X-RAY)^FXO^^RAAMS1;47^K:$L(X)>3!(X'?.N) X"
^DD(2100,1511,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1511,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1511,3)="Answer must be 1-3 numbers in length."
^DD(2100,1511,"DT")="2900409"
^DD(2100,1512,0)="CONTRACT VISITS(Deep X-RAY)^FXO^^RAAMS1;48^K:$L(X)>4!(X'?.N) X"
^DD(2100,1512,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1512,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1512,3)="Answer must be 1-4 numbers in length."
^DD(2100,1512,"DT")="2900409"
^DD(2100,1513,0)="CONTRACT PTS(Cobalt Teleth)^FXO^^RAAMS1;49^K:$L(X)>3!(X'?.N) X"
^DD(2100,1513,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1513,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1513,3)="Answer must be 1-3 numbers in length."
^DD(2100,1513,"DT")="2900409"
^DD(2100,1514,0)="CONTRACT VISITS(Cobalt Tel)^FXO^^RAAMS1;50^K:$L(X)>4!(X'?.N) X"
^DD(2100,1514,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1514,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1514,3)="Answer must be 1-4 numbers in length."
^DD(2100,1514,"DT")="2900409"
^DD(2100,1515,0)="CONTRACT PTS(Lin ACC/Betatron)^FXO^^RAAMS1;51^K:$L(X)>3!(X'?.N) X"
^DD(2100,1515,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1515,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1515,3)="Answer must be 1-3 numbers in length."
^DD(2100,1515,"DT")="2900409"
^DD(2100,1516,0)="CONTRACT VISITS(Lin ACC/Betat)^FXO^^RAAMS1A;1^K:$L(X)>4!(X'?.N) X"
^DD(2100,1516,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1516,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1516,3)="Answer must be 1-4 numbers in length."
^DD(2100,1516,"DT")="2900409"
^DD(2100,1517,0)="CONTRACT PTS(Radio Imp/Appl)^FXO^^RAAMS1A;2^K:$L(X)>3!(X'?.N) X"
^DD(2100,1517,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1517,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1517,3)="Answer must be 1-3 numbers in length."
^DD(2100,1517,"DT")="2900409"
^DD(2100,1518,0)="CONTRACT VISITS(Radio Imp/App)^FXO^^RAAMS1A;3^K:$L(X)>4!(X'?.N) X"
^DD(2100,1518,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1518,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1518,3)="Answer must be 1-4 numbers in length."
^DD(2100,1518,"DT")="2900409"
^DD(2100,1519,0)="CONTRACT CONSUTATIONS^FXO^^RAAMS1A;4^K:$L(X)>3!(X'?.N) X"
^DD(2100,1519,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1519,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1519,3)="Answer must be 1-3 numbers in length."
^DD(2100,1519,"DT")="2900409"
^DD(2100,1520,0)="CONTRACT TREATMENT PLANNING^FXO^^RAAMS1A;5^K:$L(X)>4!(X'?.N) X"
^DD(2100,1520,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1520,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1520,3)="Answer must be 1-4 numbers in length."
^DD(2100,1520,"DT")="2900409"
^DD(2100,1521,0)="CONTRACT FOLLOW-UP VISITS^FXO^^RAAMS1A;6^K:$L(X)>3!(X'?.N) X"
^DD(2100,1521,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1521,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1521,3)="Answer must be 1-3 numbers in length."
^DD(2100,1521,"DT")="2900409"
^DD(2100,1522,0)="CONTRACT SPECIAL PROCEDURES^FXO^^RAAMS1A;7^K:$L(X)>4!(X'?.N) X"
^DD(2100,1522,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1522,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1522,3)="Answer must be 1-4 numbers in length."
^DD(2100,1522,"DT")="2900409"
^DD(2100,1523,0)="PAID HOURS(DIAG TECH)^FXO^^RAAMS1A;8^K:$L(X)>5!(X'?.N) X"
^DD(2100,1523,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1523,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1523,3)="Answer must be 1-5 numbers in length."
^DD(2100,1523,"DT")="2900409"
^DD(2100,1524,0)="AVAILABLE HOURS(DIAG TECH)^FXO^^RAAMS1A;9^K:$L(X)>5!(X'?.N) X"
^DD(2100,1524,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1524,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1524,3)="Answer must be 1-5 numbers in length."
^DD(2100,1524,"DT")="2900409"
^DD(2100,1525,0)="PAID HOURS(THERAP TECH)^FXO^^RAAMS1A;10^K:$L(X)>5!(X'?.N) X"
^DD(2100,1525,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1525,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1525,3)="Answer must be 1-5 numbers in length."
^DD(2100,1525,"DT")="2900409"
^DD(2100,1526,0)="AVAILABLE HOURS(THERAP TECH)^FXO^^RAAMS1A;11^K:$L(X)>5!(X'?.N) X"
^DD(2100,1526,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1526,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,1526,3)="Answer must be 1-5 numbers in length."
^DD(2100,1526,"DT")="2900409"
^DD(2100,1527,0)="TOTAL TECH FTE^FXO^^RAAMS1A;12^K:$L(X)>5!($L(X)<1)!(X'?.N1"".""1N) X"
^DD(2100,1527,2)="S Y(0)=Y I $D(GECSOT) S Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1527,2.1)="I $D(GECSOT) S Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1527,3)="Answer must be 1-4 numbers including one decimal place in length."
^DD(2100,1527,"DT")="2900409"
^DD(2100,1530,0)="(2) ADDITION/REESTABLISHMENT^SO^A:ADDITION;R:REESTABLISHMENT;^FBAMS1;1^Q"
^DD(2100,1530,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y="""":"" "",1:$E(Y))"
^DD(2100,1530,2.1)="I $D(GECSOT) S Y=$S(Y="""":"" "",1:$E(Y))"
^DD(2100,1530,3)=""
^DD(2100,1530,21,0)="^^4^4^2900910^"
^DD(2100,1530,21,1,0)="If the NH has never been under contract before, enter an 'A'. If"
^DD(2100,1530,21,2,0)="the NH has a terminated contract which has been reestablished, enter"
^DD(2100,1530,21,3,0)="an 'R'. If the NH is not and ADD or REESTABLISHMENT, leave this field"
^DD(2100,1530,21,4,0)="blank."
^DD(2100,1530,"DT")="2900911"
^DD(2100,1531,0)="(3) ALPHA CODE FOR ITEM 2^RFO^^FBAMS1;2^K:$L(X)>1!($L(X)<1) X"
^DD(2100,1531,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y="""":"" "",1:$E(Y))"
^DD(2100,1531,2.1)="I $D(GECSOT) S Y=$S(Y="""":"" "",1:$E(Y))"
^DD(2100,1531,3)="Answer must be 1 character in length."
^DD(2100,1531,"DT")="2900921"
^DD(2100,1532,0)="(4) CARD NUMBER^NJ1,0^^FBAMS1;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,1532,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(2100,1532,"DT")="2900910"
^DD(2100,1533,0)="(5) MEDICAL DISTRICT NUMBER^RFO^^FBAMS1;4^K:$L(X)>2!($L(X)<1) X"
^DD(2100,1533,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,1533,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,1533,3)="Answer must be 1-2 characters in length."
^DD(2100,1533,"DT")="2900911"
^DD(2100,1534,0)="NAME OF COMMUNITY NH^RFO^^FBAMS1;5^K:$L(X)>23!($L(X)<3) X"
^DD(2100,1534,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                       "",$L(Y)+1,23)"
^DD(2100,1534,2.1)="I $D(GECSOT) S Y=Y_$E(""                       "",$L(Y)+1,23)"
^DD(2100,1534,3)="Answer must be 3-23 characters in length."
^DD(2100,1534,21,0)="^^9^9^2900910^"
^DD(2100,1534,21,1,0)="This field contains the name of the community nursing home."
^DD(2100,1534,21,2,0)="Since the field is only 23 characters long abbreviations"
^DD(2100,1534,21,3,0)="should be used. Examples are:"
^DD(2100,1534,21,4,0)="      N = NURSING         H = HOME or HOSPITAL"
^DD(2100,1534,21,5,0)="      C = CONVALESCENT or CENTER   S = SANITARIUM"
^DD(2100,1534,21,6,0)="      R = REST or REHABILITATION or RESTORIUM"
^DD(2100,1534,21,7,0)="      G = GERIATRIC       I = INCORPERATED"
^DD(2100,1534,21,8,0)="     SC = SENIOR CITIZEN "
^DD(2100,1534,21,9,0)="     HA = HOME FOR THE AGED"
^DD(2100,1534,"DT")="2940727"
^DD(2100,1535,0)="CITY OF COMMUNITY NH^RFO^^FBAMS1;6^K:$L(X)>15!($L(X)<3) X"
^DD(2100,1535,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""               "",$L(Y)+1,15)"
^DD(2100,1535,2.1)="I $D(GECSOT) S Y=Y_$E(""               "",$L(Y)+1,15)"
^DD(2100,1535,3)="Answer must be 3-15 characters in length."
^DD(2100,1535,"DT")="2940727"
^DD(2100,1536,0)="STATE CODE OF CNH^RFX^^FBAMS1;7^K:$L(X)>30!($L(X)<2) X I $D(X) N DIC S DIC(0)=""EMZ"",DIC=""^DIC(5,"" D ^DIC S DIC=DIE D DO^DIC1 K:Y<0 X I $D(X) S X=$P(Y(0),U,3) K:$L(X)'=2 X"
^DD(2100,1536,3)="Answer with the name of the state or the two digit state code."
^DD(2100,1536,4)="S DIC(0)=""EM"",DIC=""^DIC(5,"",D=""C"" D DQ^DICQ"
^DD(2100,1536,"DT")="2940819"
^DD(2100,1537,0)="COUNTY CODE OF CNH^RFX^^FBAMS1;8^N Z0,DIC S Z0=+$O(^DIC(5,""C"",$P($G(^GECS(2100,DA,""FBAMS1"")),U,7),0)) K:'Z0 X Q:'Z0!('$D(^DIC(5,Z0,1,0)))  S DIC=""^DIC(5,Z0,1,"",DIC(0)=""EMNZ"" D ^DIC K:Y'>0 X I $D(X) S X=$P(Y(0),U,3) K:$L(X)'=3 X"
^DD(2100,1537,3)="Answer must be 3 numerics in length."
^DD(2100,1537,4)="N D,Z0 S X=""?"",Z0=+$O(^DIC(5,""C"",$P($G(^GECS(2100,DA,""FBAMS1"")),U,7),0)) Q:'Z0!('$D(^DIC(5,Z0,1,0)))  S DIC(0)=""QEM"",DIC=""^DIC(5,Z0,1,"" D ^DIC S DIC=DIE"
^DD(2100,1537,"DT")="2940819"
^DD(2100,1538,0)="(10) LEVEL OF CARE^RSO^S:SKILLED CARE;I:INTERMEDIATE CARE;B:BOTH SKILLED AND INTERMEDIATE;^FBAMS1;9^Q"
^DD(2100,1538,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y)"
^DD(2100,1538,2.1)="I $D(GECSOT) S Y=$E(Y)"
^DD(2100,1538,"DT")="2900921"
^DD(2100,1539,0)="NUMBER OF BEDS IN CNH^FOX^^FBAMS1;10^K:X'?1N.N!($L(X)>3)!($L(X)<1) X"
^DD(2100,1539,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1539,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1539,3)="Answer must be 1-3 numbers in length."
^DD(2100,1539,"DT")="2940819"
^DD(2100,1540,0)="(11A) NO. OF INTERMEDIATE BEDS^FO^^FBAMS1;11^K:$L(X)>3!($L(X)<1) X"
^DD(2100,1540,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1540,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1540,3)="Answer must be 1-3 numbers in length."
^DD(2100,1540,"DT")="2900911"
^DD(2100,1541,0)="NH INSPECTED/ACCREDITED^RSO^I:INSPECTED BY VA;A:ACCREDITED BY JCAHO;B:BOTH INSPECTED & ACCREDITED;^FBAMS1;12^Q"
^DD(2100,1541,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y)"
^DD(2100,1541,2.1)="I $D(GECSOT) S Y=$E(Y)"
^DD(2100,1541,"DT")="2940727"
^DD(2100,1542,0)="PER DIEM RATE (HIGH)^NJ3,0O^^FBAMS1;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,1542,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1542,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1542,3)="Answer must be 1-3 numbers in length.  Round off to nearest dollar.  If there is only one rate for this nursing home, it must be reported in this field."
^DD(2100,1542,"DT")="2940727"
^DD(2100,1543,0)="PER DIEM RATE (LOW)^NJ3,0OX^^FBAMS1;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X'<+$P($G(^GECS(2100,DA,""FBAMS1"")),U,13) K X"
^DD(2100,1543,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1543,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1543,3)="Answer must be 1-3 numbers in length.  Round off to nearest dollar.  Cannot exceed high per dium rate.  If there is only one rate it must be reported in field 'PER DIUM RATE (HIGH)'."
^DD(2100,1543,"DT")="2940819"
^DD(2100,1544,0)="CERT.MEDICARE/MEDICAID^RSO^1:NOT CERT.MEDICARE/MEDICAID;2:CERTIFIED MEDICARE ONLY;3:CERTIFIED MEDICAID ONLY;4:CERT.BOTH MEDICARE/MEDICAID;^FBAMS1;15^Q"
^DD(2100,1544,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y)"
^DD(2100,1544,2.1)="I $D(GECSOT) S Y=$E(Y)"
^DD(2100,1544,"DT")="2940727"
^DD(2100,1545,0)="TOTAL NUMBER OF VETS IN NH^FOX^^FBAMS1;16^K:X'?1N.N!($L(X)>3)!($L(X)<1) X I $D(X),X>+$P($G(^GECS(2100,DA,""FBAMS1"")),U,10) K X"
^DD(2100,1545,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1545,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1545,3)="Answer must be 1-3 numbers in length.  The total number of patients cannot exceed the total number of beds reported for this nursing home."
^DD(2100,1545,"DT")="2940819"
^DD(2100,1546,0)="NO. VETS INTERMEDIATE HOME^FO^^FBAMS1;17^K:$L(X)>3!($L(X)<1) X"
^DD(2100,1546,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1546,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,1546,3)="Answer must be 1-3 numbers in length."
^DD(2100,1546,"DT")="2900911"
^DD(2100,1547,0)="DATE OF LAST ASSESSMENT^RDOX^^FBAMS1;18^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT(0) S X=Y K:Y<1 X I $D(X) K:'+$E(X,4,5) X I $D(X) S X=$E(X,1,5)_""00"""
^DD(2100,1547,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y,4,5)_$E(Y,2,3)"
^DD(2100,1547,2.1)="I $D(GECSOT) S Y=$E(Y,4,5)_$E(Y,2,3)"
^DD(2100,1547,"DT")="3001106"
^DD(2100,1548,0)="(16) REPEAT COLUMNS 1-5^F^^FBAMS1;19^K:$L(X)>5!($L(X)<5) X"
^DD(2100,1548,3)="Answer must be 5 characters in length."
^DD(2100,1548,"DT")="2900911"
^DD(2100,1549,0)="(17) CARD NUMBER^NJ1,0^^FBAMS1;20^K:+X'=X!(X>2)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2100,1549,3)="Type a Number between 2 and 2, 0 Decimal Digits"
^DD(2100,1549,"DT")="2900911"
^DD(2100,1550,0)="(18) STREET ADDRESS OF NH^FO^^FBAMS1;21^K:$L(X)>30!($L(X)<3) X"
^DD(2100,1550,2)="S Y(0)=Y I $D(GECSOT),$P(^GECS(2100,DA,""FBAMS1""),U,19)]"""" S Y=Y_$E(""                              "",$L(Y)+1,30)"
^DD(2100,1550,2.1)="I $D(GECSOT),$P(^GECS(2100,DA,""FBAMS1""),U,19)]"""" S Y=Y_$E(""                              "",$L(Y)+1,30)"
^DD(2100,1550,3)="Answer must be 3-30 characters in length."
^DD(2100,1550,"DT")="2901123"
^DD(2100,1551,0)="(19) ZIP CODE OF NH^RF^^FBAMS1;22^K:$L(X)>5!($L(X)<5) X"
^DD(2100,1551,3)="Answer must be 5 characters in length."
^DD(2100,1551,"DT")="2900921"
^DD(2100,1552,0)="CNH 40 BLANKS^FO^^FBAMS1;23^K:$L(X)>40!($L(X)<1) X"
^DD(2100,1552,2)="S Y(0)=Y I $D(GECSOT),$P(^GECS(2100,DA,""FBAMS1""),U,19)]"""" S Y=$E(""                                       "",$L(Y)+1,40)_Y"
^DD(2100,1552,2.1)="I $D(GECSOT),$P(^GECS(2100,DA,""FBAMS1""),U,19)]"""" S Y=$E(""                                       "",$L(Y)+1,40)_Y"
^DD(2100,1552,3)="Answer must be 1-40 characters in length."
^DD(2100,1552,"DT")="2901123"
^DD(2100,1553,0)="TRANSFERS IN FROM OTHER SITES^FXO^^DGAMS1D;15^K:$L(X)>4!(X'?.N) X"
^DD(2100,1553,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1553,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1553,3)="Answer must be 1-4 numbers in length."
^DD(2100,1553,21,0)="^^1^1^2911205^"
^DD(2100,1553,21,1,0)="This field contains Inter-Facility action of transfers in from another VAMC."
^DD(2100,1553,23,0)="^^1^1^2911205^"
^DD(2100,1553,23,1,0)="If this field is left blank, the output transform will fill in zeros."
^DD(2100,1553,"DT")="2920109"
^DD(2100,1554,0)="TRANSFERS RETD TO OTHER SITES^FXO^^DGAMS1D;16^K:$L(X)>4!(X'?.N) X"
^DD(2100,1554,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1554,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1554,3)="Answer must be 1-4 numbers in length."
^DD(2100,1554,21,0)="^^1^1^2911205^"
^DD(2100,1554,21,1,0)="This field contains Inter-Facility action of returned to VAMC."
^DD(2100,1554,23,0)="^^1^1^2911205^"
^DD(2100,1554,23,1,0)="If this field is left blank, the output transform will fill in zeros."
^DD(2100,1554,"DT")="2920109"
^DD(2100,1555,0)="TFRS PEND RTN TO OTHER SITES^FXO^^DGAMS1D;17^K:$L(X)>4!(X'?.N) X"
^DD(2100,1555,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1555,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1555,3)="Answer must be 1-4 numbers in length."
^DD(2100,1555,21,0)="^^1^1^2911205^"
^DD(2100,1555,21,1,0)="This field contains Inter-Facility action on pending returns to VAMC."
^DD(2100,1555,23,0)="^^1^1^2911205^"
^DD(2100,1555,23,1,0)="If this field is left blank, the output transform will fill in zeros."
^DD(2100,1555,"DT")="2920109"
^DD(2100,1556,0)="TRANSFERS OUT TO OTHER SITES^FXO^^DGAMS1D;18^K:$L(X)>4!(X'?.N) X"
^DD(2100,1556,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1556,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1556,3)="Answer must be 1-4 numbers in length."
^DD(2100,1556,21,0)="^^2^2^2911205^"
^DD(2100,1556,21,1,0)="This field contains Inter-Facility action on the number of"
^DD(2100,1556,21,2,0)="transfers out to VAMC."
^DD(2100,1556,23,0)="^^1^1^2911205^"
^DD(2100,1556,23,1,0)="If this field is left blank, the output transform will fill in zeros."
^DD(2100,1556,"DT")="2920109"
^DD(2100,1557,0)="TRANSFERS RETD FROM OTH SITES^FXO^^DGAMS1D;19^K:$L(X)>4!(X'?.N) X"
^DD(2100,1557,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1557,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1557,3)="Answer must be 1-4 numbers in length."
^DD(2100,1557,21,0)="^^2^2^2911205^"
^DD(2100,1557,21,1,0)="This field contains Inter-Facility action on the number"
^DD(2100,1557,21,2,0)="returned from VAMC."
^DD(2100,1557,23,0)="^^1^1^2911205^"
^DD(2100,1557,23,1,0)="If this field is left blank, the output transform will fill in with zeros."
^DD(2100,1557,"DT")="2920109"
^DD(2100,1558,0)="TFRS PEND RTN FROM OTH SITES^FXO^^DGAMS1D;20^K:$L(X)>4!(X'?.N) X"
^DD(2100,1558,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1558,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1558,3)="Answer must be 1-4 numbers in length."
^DD(2100,1558,21,0)="^^2^2^2911205^"
^DD(2100,1558,21,1,0)="This field contains Inter-Facility action on the number"
^DD(2100,1558,21,2,0)="pending return from VAMC."
^DD(2100,1558,23,0)="^^1^1^2911205^"
^DD(2100,1558,23,1,0)="If this field is left blank, the output transform will fill in with zeros."
^DD(2100,1558,"DT")="2920109"
^DD(2100,1559,0)="INSUFFICIENT RCD FR VARO^FXO^^DGAMS1D;21^K:$L(X)>4!(X'?.N) X"
^DD(2100,1559,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1559,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,1559,3)="Answer must be 1-4 numbers in length."
^DD(2100,1559,21,0)="^^2^2^2911205^"
^DD(2100,1559,21,1,0)="This field is used for reporting the monthly workload on the number"
^DD(2100,1559,21,2,0)="of insufficient received from VARO."
^DD(2100,1559,23,0)="^^1^1^2911205^"
^DD(2100,1559,23,1,0)="If this field is left blank, the output transform will fill in with zeros."
^DD(2100,1559,"DT")="2911205"
^DD(2100,1600,0)="FEE TRANSACTION DATE^RF^^FBFEE2;1^S %DT=""EX"" D ^%DT S X=$E(Y,4,7)_$E(Y,2,3) K:Y<0 X"
^DD(2100,1600,3)="Answer must be 6 characters in length in the form MMYYDD."
^DD(2100,1600,21,0)="^^1^1^2980707^^"
^DD(2100,1600,21,1,0)="This is the transaction date in the form MMDDYY."
^DD(2100,1600,"DT")="2980706"
^DD(2100,1601,0)="FEE REFERENCE NUMBER^RF^^FBFEE2;2^K:$L(X)>6!($L(X)<6) X"
^DD(2100,1601,3)="Answer must be 6 characters in length."
^DD(2100,1601,21,0)="^^1^1^2940609^"
^DD(2100,1601,21,1,0)="This is the reference number for the transaction."
^DD(2100,1601,"DT")="2940609"
^DD(2100,1602,0)="FEE SYSTEM IDENTIFIER^F^^FBFEE2;3^K:$L(X)>3!($L(X)<3) X"
^DD(2100,1602,3)="Answer must be 3 characters in length."
^DD(2100,1602,21,0)="^^4^4^2940609^"
^DD(2100,1602,21,1,0)="This field stores the 3 character system identifer for the"
^DD(2100,1602,21,2,0)="code sheets.  The system identifier is dependent on the"
^DD(2100,1602,21,3,0)="Fee Basis package version number and is controlled by"
^DD(2100,1602,21,4,0)="the Fee Basis package."
^DD(2100,1602,"DT")="2940609"
^DD(2100,2000,0)="CAWP DOLLAR AMOUNT^NJ6,0^^PRCAAR2;18^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2000,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2000,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2000,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,2000,"DT")="2900917"
^DD(2100,2001,0)="CATCQ DOLLAR AMOUNT^NJ6,0^^PRCAAR2;19^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2001,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2001,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,2001,"DT")="2900917"
^DD(2100,2002,0)="CATFOQ DOLLAR AMOUNT^NJ6,0^^PRCAAR2;20^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2002,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2002,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,2002,"DT")="2890607"
^DD(2100,2003,0)="CCRAQ DOLLAR AMOUNT^NJ6,0^^PRCAAR2;21^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2003,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2003,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,2003,"DT")="2890607"
^DD(2100,2004,0)="CAW DOLLAR AMT^NJ6,0^^PRCAAR2;17^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2004,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2004,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(2100,2005,0)="REM NO OF DEBTS^NJ7,0O^^PRCAAR2;22^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2005,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2005,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,2006,0)="IAM NO OF DEBTS^NJ7,0O^^PRCAAR2;23^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2006,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2006,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,2007,0)="DAM NO OF DEBTS^NJ7,0O^^PRCAAR2;24^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2007,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2007,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,2008,0)="CCRAM NO OF DEBTS^NJ7,0O^^PRCAAR2;25^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2008,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2008,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,2009,0)="CCPRAM DOLLAR AMOUNT^NJ10,0O^^PRCAAR2;26^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2009,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2009,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2009,"DT")="2900715"
^DD(2100,2010,0)="CAWFM NO OF DEBTS^NJ7,0O^^PRCAAR2;27^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2010,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2010,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2010,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,2011,0)="CATCM NO OF DEBTS^NJ7,0O^^PRCAAR2;28^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2011,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2011,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,2012,0)="CATFOM NO OF DEBTS^NJ7,0O^^PRCAAR2;29^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2012,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2012,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(2100,2013,0)="REM DOLLAR AMOUNT^NJ10,0O^^PRCAAR2;30^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2013,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2013,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2014,0)="IAM DOLLAR AMOUNT^NJ10,0O^^PRCAAR2;31^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2014,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2014,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2015,0)="DEM DOLLAR AMOUNT^NJ10,0O^^PRCAAR2;32^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2015,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2015,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2016,0)="CCRAM DOLLAR AMOUNT^NJ10,0O^^PRCAAR2;33^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2016,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2016,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2017,0)="CAWF DOLLAR AMOUNT^NJ10,0O^^PRCAAR2;34^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2017,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2017,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2018,0)="CAWPM DOLLAR AMOUNT^NJ10,0O^^PRCAAR21;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2018,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2018,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2019,0)="CATCM DOLLAR AMOUNT^NJ10,0O^^PRCAAR21;2^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2019,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2019,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2020,0)="CATFOM DOLLAR AMOUNT^NJ10,0O^^PRCAAR21;3^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2020,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2020,2.1)="I $D(GECSOT) S Y=$E(""0000000000"",$L(Y)+1,10)_Y"
^DD(2100,2020,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(2100,2021,0)="PAID TRANSMISSION NUMBER^RNJ3,0O^^PRCCCA2;27^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2021,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2021,3)="Enter PAID transmission number from 0 to 999."
^DD(2100,2021,"DT")="2901025"
^DD(2100,2022,0)="C&A DA^FO^^PRCCCA2;28^K:$L(X)>2!($L(X)<2)!'(X?1""DA"") X"
^DD(2100,2022,2)="S Y(0)=Y I $D(GECSOT) S Y=""DA"""
^DD(2100,2022,2.1)="I $D(GECSOT) S Y=""DA"""
^DD(2100,2022,3)="Answer must be 2 characters in length."
^DD(2100,2022,"DT")="2901025"
^DD(2100,2023,0)="MONTH^RNJ2,0O^^PRCCCA2;29^K:+X'=X!(X>12)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2023,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2023,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100,2023,"DT")="2901025"
^DD(2100,2024,0)="DAY^RNJ2,0O^^PRCCCA2;30^K:+X'=X!(X>31)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,2024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2024,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2024,3)="Enter Last Day of Month."
^DD(2100,2024,"DT")="2901025"
^DD(2100,2025,0)="YEAR^RFO^^PRCCCA2;31^K:$L(X)>2!($L(X)<2)!'(X?2N!(X?1""00"")) X"
^DD(2100,2025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2025,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2025,3)="Enter last 2 digits of the year for which this card is prepared."
^DD(2100,2025,"DT")="2901025"
^DD(2100,2026,0)="NO. OF 10-2418A TRANSMITTED^RNJ4,0O^^PRCCCA2;32^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2026,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2026,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2026,"DT")="2901025"
^DD(2100,2027,0)="TOTAL PAY AND NON PAY VISITS^RNJ5,0O^^PRCCCA2;33^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2027,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2027,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,2027,"DT")="2901025"
^DD(2100,2028,0)="BLANK-6^FO^^PRCCCA2;34^K:$L(X)>6!($L(X)<6) X"
^DD(2100,2028,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""      "",1,6-$L(Y))"
^DD(2100,2028,2.1)="I $D(GECSOT) S Y=Y_$E(""      "",1,6-$L(Y))"
^DD(2100,2028,3)="Answer must be 6 characters in length."
^DD(2100,2028,"DT")="2901025"
^DD(2100,2029,0)="BLANK-3^FO^^PRCCCA2;35^K:$L(X)>3!($L(X)<3) X"
^DD(2100,2029,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""   "",1,3-$L(Y))"
^DD(2100,2029,2.1)="I $D(GECSOT) S Y=Y_$E(""   "",1,3-$L(Y))"
^DD(2100,2029,3)="Answer must be 3 characters in length."
^DD(2100,2029,"DT")="2901025"
^DD(2100,2200,0)="FORM NUMBER^S^3:FORM 3;4:FORM 4;5:FORM 5;^GECOHBHC2;39^Q"
^DD(2100,2200,21,0)="^^1^1^2900717^^"
^DD(2100,2200,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200,"DT")="2900717"
^DD(2100,2200.01,0)="DATE EVALUATED^RDOX^^GECOHBHC2;1^S %DT=""E"",%DT(0)=""2770101"" D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(2100,2200.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.01,2.1)="I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.01,21,0)="^^3^3^2980707^^^^"
^DD(2100,2200.01,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.01,21,2,0)="The date the evaluation was begun.  Month, Day, Year.  Ex: 010190 for Jan 1,"
^DD(2100,2200.01,21,3,0)="1990."
^DD(2100,2200.01,"DT")="3001106"
^DD(2100,2200.02,0)="STATE CODE^RFO^^GECOHBHC2;2^K:$L(X)>2!($L(X)<2) X"
^DD(2100,2200.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2200.02,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2200.02,3)="Answer must be 2 characters in length."
^DD(2100,2200.02,21,0)="^^2^2^2940201^^^"
^DD(2100,2200.02,21,1,0)="Used by the Hospital Based Home Care code sheet.  The two digit code assigned"
^DD(2100,2200.02,21,2,0)="by the VA to the state the patient lives in."
^DD(2100,2200.02,"DT")="2900716"
^DD(2100,2200.03,0)="COUNTY CODE^RFO^^GECOHBHC2;3^K:$L(X)>3!($L(X)<3) X"
^DD(2100,2200.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2200.03,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2200.03,3)="Answer must be 3 characters in length."
^DD(2100,2200.03,21,0)="^^2^2^2900717^^"
^DD(2100,2200.03,21,1,0)="Used by the Hospital Based Home Care code sheet.  The three digit code"
^DD(2100,2200.03,21,2,0)="assigned by the VA to the county the patient lives in."
^DD(2100,2200.03,"DT")="2900716"
^DD(2100,2200.04,0)="ZIP CODE^RFO^^GECOHBHC2;4^K:$L(X)>5!($L(X)<5) X"
^DD(2100,2200.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y_""    """
^DD(2100,2200.04,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y_""    """
^DD(2100,2200.04,3)="The patients zip code, 5 digits in length."
^DD(2100,2200.04,21,0)="^^2^2^2900717^^"
^DD(2100,2200.04,21,1,0)="Used by the Hospital Based Home Care code sheet.  The patients zip code, 5"
^DD(2100,2200.04,21,2,0)="digits in length."
^DD(2100,2200.04,"DT")="2900717"
^DD(2100,2200.05,0)="ELIGIBILITY^RSO^01:SERVICE CONNECTED 50% OR MORE;02:AID & ATTENDANCE OR HOUSEBOUND;03:SERVICE CONNECTED LESS THAN 50%;04:NON-SERVICE CONNECTED, RECEIVING VA PENSION;05:OTHER NON-SERVICE CONNECTED;^GECOHBHC2;5^Q"
^DD(2100,2200.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2200.05,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2200.05,21,0)="^^4^4^2900717^^"
^DD(2100,2200.05,21,1,0)="Used by the Hospital Based Home Care code sheet.  Choose from the following 5"
^DD(2100,2200.05,21,2,0)="categories [01]=service connected 50% or more, [02]=aid & attendance or"
^DD(2100,2200.05,21,3,0)="housebound, [03]=service connected less than 50%, [04]=non-service connected,"
^DD(2100,2200.05,21,4,0)="receiving a VA pension, [05]=other non-service connected."
^DD(2100,2200.05,"DT")="2900716"
^DD(2100,2200.06,0)="BIRTH YEAR^RFO^^GECOHBHC2;6^K:$L(X)>2!($L(X)<2) X"
^DD(2100,2200.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2200.06,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2200.06,3)="Answer must be 2 characters in length."
^DD(2100,2200.06,21,0)="^^2^2^2980707^"
^DD(2100,2200.06,21,1,0)="Used by the Hospital Based Home Care code sheets.  The terminal two"
^DD(2100,2200.06,21,2,0)="digits of the year of birth of the patient."
^DD(2100,2200.06,"DT")="2980706"
^DD(2100,2200.07,0)="PERIOD OF SERVICE^RSO^00:KOREA;01:WORLD WAR I;02:WORLD WAR II;03:SPANISH & AMERICAN;04:PRE-KOREA (PEACETIME);05:POST KOREA;07:VIETNAM;08:POST VIETNAM;10:OTHER, NONE;09:NOT DETERMINED;^GECOHBHC2;7^Q"
^DD(2100,2200.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,2200.07,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,2200.07,21,0)="^^1^1^2900716^^"
^DD(2100,2200.07,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.07,"DT")="2900717"
^DD(2100,2200.08,0)="SEX^RS^1:MALE;2:FEMALE;^GECOHBHC2;8^Q"
^DD(2100,2200.08,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.08,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.08,21,0)="^^1^1^2900716^^"
^DD(2100,2200.08,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.08,"DT")="2900716"
^DD(2100,2200.09,0)="RACE/ETHNICITY^RS^1:WHITE;2:BLACK;3:HISPANIC ORGIN;4:AMERICAN INDIAN/ALASKAN NATIVE;5:ASIAN/PACIFIC ISLANDER;9:NOT DETERMINED;^GECOHBHC2;9^Q"
^DD(2100,2200.09,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.09,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.09,21,0)="^^1^1^2900716^^"
^DD(2100,2200.09,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.09,"DT")="2900716"
^DD(2100,2200.1,0)="MARITAL STATUS^RS^1:MARRIED;2:WIDOWED;3:SEPARATED;4:DIVORCED;5:NEVER MARRIED;9:NOT DETERMINED;^GECOHBHC2;10^Q"
^DD(2100,2200.1,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.1,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.1,21,0)="^^1^1^2900716^^"
^DD(2100,2200.1,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.1,"DT")="2900716"
^DD(2100,2200.11,0)="USUAL LIVING ARRANGEMENTS^RS^1:ALONE;2:WITH SPOUSE;3:WITH RELATIVES;4:WITH NON RELATIVES;5:GROUP QUARTERS, NOT HEALTH RELATED;9:NOT DETERMINED;^GECOHBHC2;11^Q"
^DD(2100,2200.11,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.11,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.11,21,0)="^^1^1^2900716^^"
^DD(2100,2200.11,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.11,"DT")="2900716"
^DD(2100,2200.12,0)="LAST AGENCY PROVIDING CARE^RS^1:VA PROVIDED CARE (EXCLUDING VA FEE BASIS (CONTRACT);2:NON VA CARE;3:VA FEE BASIS/CONTRACT;^GECOHBHC2;12^Q"
^DD(2100,2200.12,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.12,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.12,21,0)="^^1^1^2900716^^"
^DD(2100,2200.12,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.12,"DT")="2900716"
^DD(2100,2200.13,0)="TYPE OF AGENCY^RS^1:GENERAL HOSPITAL;2:SPECIALTY HOSPITAL;3:NURSING HOME;4:RESIDENTIAL CARE FACILITY;5:HOSPICE;6:COMMUNITY BASED SERVICES;7:SELF/FAMILY NO/REG SOURCE;9:NOT DETERMINED;^GECOHBHC2;13^Q"
^DD(2100,2200.13,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.13,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.13,21,0)="^^1^1^2900716^^"
^DD(2100,2200.13,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.13,"DT")="2900716"
^DD(2100,2200.14,0)="ACTION^RS^1:ADMIT TO HBHC;2:REJECT FROM HBHC;^GECOHBHC2;14^Q"
^DD(2100,2200.14,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.14,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.14,21,0)="^^1^1^2900716^^"
^DD(2100,2200.14,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.14,"DT")="2900716"
^DD(2100,2200.15,0)="PRIMARY REASON FOR REJECTION^RF^^GECOHBHC2;15^K:$L(X)>2!($L(X)<2) X"
^DD(2100,2200.15,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,2200.15,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,2200.15,3)="Answer must be 2 characters in length."
^DD(2100,2200.15,21,0)="^^1^1^2900716^^"
^DD(2100,2200.15,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.15,"DT")="2900717"
^DD(2100,2200.16,0)="DISPOSITION OF REJECTION^RS^1:REFERRED BACK TO REFERRAL SOURCE;2:DISPOSITION MADE BY HBHC;^GECOHBHC2;16^Q"
^DD(2100,2200.16,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.16,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.16,21,0)="^^1^1^2900716^^"
^DD(2100,2200.16,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.16,"DT")="2900716"
^DD(2100,2200.17,0)="PATIENTS FULL NAME^RF^^GECOHBHC2;17^K:$L(X)>30!($L(X)<1) X"
^DD(2100,2200.17,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                              "",$L(Y)+1,30)"
^DD(2100,2200.17,2.1)="I $D(GECSOT) S Y=Y_$E(""                              "",$L(Y)+1,30)"
^DD(2100,2200.17,3)="Answer must be 1-30 characters in length."
^DD(2100,2200.17,21,0)="^^1^1^2900716^^"
^DD(2100,2200.17,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.17,"DT")="2900716"
^DD(2100,2200.18,0)="SOCIAL SECURITY NUMBER^RF^^GECOHBHC2;18^K:$L(X)>9!($L(X)<9) X"
^DD(2100,2200.18,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""         "",$L(Y)+1,9)"
^DD(2100,2200.18,2.1)="I $D(GECSOT) S Y=Y_$E(""         "",$L(Y)+1,9)"
^DD(2100,2200.18,3)="Answer must be 9 characters in length."
^DD(2100,2200.18,21,0)="^^1^1^2900716^^"
^DD(2100,2200.18,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.18,"DT")="2900716"
^DD(2100,2200.19,0)="HBHC ADMISSION DATE^RDO^^GECOHBHC2;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,2200.19,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.19,2.1)="I $D(GECSOT) S Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.19,21,0)="^^1^1^2900716^^"
^DD(2100,2200.19,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.19,"DT")="2980706"
^DD(2100,2200.2,0)="PRIMARY DIAGNOSIS^RF^^GECOHBHC2;20^K:$L(X)>6!($L(X)<4) X"
^DD(2100,2200.2,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""      "",$L(Y)+1,6)"
^DD(2100,2200.2,2.1)="I $D(GECSOT) S Y=Y_$E(""      "",$L(Y)+1,6)"
^DD(2100,2200.2,3)="Answer must be 4-6 characters in length."
^DD(2100,2200.2,21,0)="^^1^1^2900716^^"
^DD(2100,2200.2,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.2,"DT")="2900716"
^DD(2100,2200.21,0)="VISION (WITH LENSES IF WORN)^RS^1:NORMAL OR MINIMAL LOSS;2:MODERATE LOSS;3:SEVERE LOSS;4:TOTAL BLINDNESS;9:NOT DETERMINED;^GECOHBHC2;21^Q"
^DD(2100,2200.21,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.21,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.21,21,0)="^^1^1^2900716^^"
^DD(2100,2200.21,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.21,"DT")="2900716"
^DD(2100,2200.22,0)="HEARING (WITH AID IF WORN)^RS^1:NORMAL OR MINIMAL LOSS;2:MODERATE LOSS;3:SEVERE LOSS;4:TOTAL DEAFNESS;9:NOT DETERMINED;^GECOHBHC2;22^Q"
^DD(2100,2200.22,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.22,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.22,21,0)="^^1^1^2900716^^"
^DD(2100,2200.22,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.22,"DT")="2900716"
^DD(2100,2200.23,0)="EXPRESSIVE COMMUNICATION^RS^1:SPEAKS AND IS USUALLY UNDERSTOOD;2:SPEAKS BUT IS ONLY UNDERSTOOD WITH DIFF;3:USES ONLY SIGN LANG, SYM, OR WRITING;4:USES ONLY GESTURES, GRUNTS, OR PRIM SYM;5:DOES NOT CONVEY NEEDS;9:NOT DETERMINED;^GECOHBHC2;23^Q"
^DD(2100,2200.23,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.23,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.23,21,0)="^^1^1^2900716^^"
^DD(2100,2200.23,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.23,"DT")="2900716"
^DD(2100,2200.24,0)="RECEPTIVE COMMUNICATION^RS^1:UNDERSTANDS ORAL COMMUN;2:LIMITED COMPRE OF ORAL COMMUN;3:DEPENDS ON LIP READING, WRITTEN MAT, OR SIGN LANG;4:UNDERSTANDS PRIM GESTURES, PICTURES, ETC;5:DOES NOT UNDERSTAND;9:NOT DETERMINED;^GECOHBHC2;24^Q"
^DD(2100,2200.24,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.24,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.24,21,0)="^^1^1^2900716^^"
^DD(2100,2200.24,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.24,"DT")="2900716"
^DD(2100,2200.25,0)="BATHING/SHOWER ACTIVITY^RS^1:NO HELP;2:RECEIVES HELP;3:NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;9:NOT DETERMINED;^GECOHBHC2;25^Q"
^DD(2100,2200.25,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.25,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.25,21,0)="^^1^1^2900716^^"
^DD(2100,2200.25,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.25,"DT")="2900716"
^DD(2100,2200.26,0)="DRESSING ACTIVITY^RS^1:NO HELP;2:RECEIVES HELP;3:NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;9:NOT DETERMINED;^GECOHBHC2;26^Q"
^DD(2100,2200.26,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.26,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.26,3)=""
^DD(2100,2200.26,21,0)="^^1^1^2900716^^"
^DD(2100,2200.26,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.27,0)="USING TOILET ACTIVITY^RS^1:NO HELP;2:RECEIVES HELP;3:NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;9:NOT DETERMINED;^GECOHBHC2;27^Q"
^DD(2100,2200.27,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.27,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.27,3)=""
^DD(2100,2200.27,21,0)="^^1^1^2900716^^"
^DD(2100,2200.27,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.28,0)="TRANSFER ACTIVITY^RS^1:NO HELP;2:RECEIVES HELP;3:NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;9:NOT DETERMINED;^GECOHBHC2;28^Q"
^DD(2100,2200.28,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.28,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.28,3)=""
^DD(2100,2200.28,21,0)="^^1^1^2900716^^"
^DD(2100,2200.28,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.29,0)="EATING ACTIVITY^RS^1:NO HELP;2:RECEIVES HELP;3:NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;9:NOT DETERMINED;^GECOHBHC2;29^Q"
^DD(2100,2200.29,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.29,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.29,3)=""
^DD(2100,2200.29,21,0)="^^1^1^2900716^^"
^DD(2100,2200.29,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.3,0)="WALKING ACTIVITY^RS^1:NO HELP;2:RECEIVES HELP;3:NOT DONE OR DONE WITHOUT PATIENT PARTICIPATION;9:NOT DETERMINED;^GECOHBHC2;30^Q"
^DD(2100,2200.3,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.3,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.3,3)=""
^DD(2100,2200.3,21,0)="^^1^1^2900716^^"
^DD(2100,2200.3,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.31,0)="CONTINENCE (BOWEL)^RS^1:CONTINENT OR OSTOMY SELF CARE;2:INCONTINENT OCCASIONALLY;3:INCONTINENT OR OSTOMY NOT SELF CARE;9:NOT DETERMINED;^GECOHBHC2;31^Q"
^DD(2100,2200.31,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.31,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.31,21,0)="^^1^1^2900716^^"
^DD(2100,2200.31,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.31,"DT")="2900716"
^DD(2100,2200.32,0)="CONTINENCE (BLADDER)^RS^1:CONTINENT OR CATHETER SELF CARE;2:INCONTINENT OCCASIONALLY;3:INCONTINENT OR CATHETER NOT SELF CARE;9:NOT DETERMINED;^GECOHBHC2;32^Q"
^DD(2100,2200.32,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.32,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.32,3)=""
^DD(2100,2200.32,21,0)="^^1^1^2900716^^"
^DD(2100,2200.32,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.32,"DT")="2900716"
^DD(2100,2200.33,0)="MOBILITY (WITH MECHANICAL AID)^RS^1:GOES OUTDOORS WITHOUT HELP;2:GOES OUTDOORS WITH HELP;3:CONFINED INDOORS, NOT BED DISABLED;4:BED DISABLED;9:NOT DETERMINED;^GECOHBHC2;33^Q"
^DD(2100,2200.33,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.33,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.33,21,0)="^^1^1^2900716^^"
^DD(2100,2200.33,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.33,"DT")="2900716"
^DD(2100,2200.34,0)="ADAPTIVE TASKS^RS^1:NO HELP;2:REQUIRED HELP;9:NOT DETERMINED;^GECOHBHC2;34^Q"
^DD(2100,2200.34,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.34,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.34,21,0)="^^1^1^2900716^^"
^DD(2100,2200.34,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.34,"DT")="2900716"
^DD(2100,2200.35,0)="BEHAVIOR PROBLEMS^RS^1:DOES NOT EXHIBIT THIS CHARACTERISTIC;2:EXHIBITS THIS CHARACTERISTIC;9:NOT DETERMINED;^GECOHBHC2;35^Q"
^DD(2100,2200.35,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.35,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.35,21,0)="^^1^1^2900716^^"
^DD(2100,2200.35,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.35,"DT")="2900716"
^DD(2100,2200.36,0)="DISORIENTATION/MEMORY/IMPAIR^RS^1:DOES NOT EXHIBIT THIS CHARACTERISTIC;2:EXHIBITS THIS CHARACTERISTIC;9:NOT DETERMINED;^GECOHBHC2;36^Q"
^DD(2100,2200.36,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.36,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.36,21,0)="^^1^1^2900716^^"
^DD(2100,2200.36,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.36,"DT")="2900716"
^DD(2100,2200.37,0)="DISTURBANCE OF MOOD^RS^1:DOES NOT EXHIBIT THIS CHARACTERISTIC;2:EXHIBITS THIS CHARACTERISTIC;9:NOT DETERMINED;^GECOHBHC2;37^Q"
^DD(2100,2200.37,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.37,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.37,21,0)="^^1^1^2900716^^"
^DD(2100,2200.37,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.37,"DT")="2900716"
^DD(2100,2200.38,0)="CAREGIVER LIMITATIONS^RS^1:MINIMAL OR NONE;2:MODERATE;3:MODERATELY SEVERE;4:NO CAREGIVER;8:NOT DETERMINED;^GECOHBHC2;38^Q"
^DD(2100,2200.38,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.38,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.38,21,0)="^^1^1^2900716^^"
^DD(2100,2200.38,21,1,0)="Used by the Hospital Based Home Care code sheets."
^DD(2100,2200.38,"DT")="2900716"
^DD(2100,2200.39,0)="PAD HBHC5 46 SPACES^FO^^GECOHBHC2;40^K:$L(X)>46!($L(X)<1) X"
^DD(2100,2200.39,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                                              "",$L(Y)+1,46)"
^DD(2100,2200.39,2.1)="I $D(GECSOT) S Y=Y_$E(""                                              "",$L(Y)+1,46)"
^DD(2100,2200.39,3)="Answer must be 1-46 characters in length."
^DD(2100,2200.39,"DT")="2900920"
^DD(2100,2200.4,0)="PROVIDER #, DIGIT 1^RSO^1:NONSTUDENTS;2:STUDENTS;^GECOHBHC2A;1^Q"
^DD(2100,2200.4,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.4,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.4,21,0)="^^1^1^2900717^^"
^DD(2100,2200.4,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.4,"DT")="2900717"
^DD(2100,2200.41,0)="PROVIDER #, DIGIT 2^RSO^0:RN;1:LPN, LVN, HOME HEALTH AIDE OR TECH, NURSING ASSISTANT;2:SOCIAL WORKER;3:OT,PT,CT, REHAB THERAPIST;4:DIETITIAN, NUTRITIONIST;5:PHYSICIAN;6:NURSE PRACTITIONER;7:CLINICAL PHARMACIST;8:OTHER;^GECOHBHC2A;2^Q"
^DD(2100,2200.41,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.41,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.41,21,0)="^^1^1^2900717^^"
^DD(2100,2200.41,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.41,"DT")="2900717"
^DD(2100,2200.42,0)="PROVIDER #, DIGIT 3^RSO^0:FIRST STAFF MEMBER IN THE DISCIPLINE;1:SECOND STAFF;2:THIRD STAFF;3:FOURTH STAFF;4:FIFTH STAFF;5:SIXTH STAFF;6:SEVENTH STAFF;7:EIGHT STAFF;8:NINTH STAFF;9:TENTH STAFF;^GECOHBHC2A;3^Q"
^DD(2100,2200.42,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.42,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.42,21,0)="^^1^1^2900717^^"
^DD(2100,2200.42,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.42,"DT")="2900717"
^DD(2100,2200.43,0)="DATE OF VISIT^RDO^^GECOHBHC2A;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,2200.43,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.43,2.1)="I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.43,21,0)="^^1^1^2900717^^"
^DD(2100,2200.43,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.43,"DT")="2980706"
^DD(2100,2200.44,0)="PATIENTS LAST NAME^RFO^^GECOHBHC2A;5^K:$L(X)>11!($L(X)<1) X"
^DD(2100,2200.44,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""           "",$L(Y)+1,11)"
^DD(2100,2200.44,2.1)="I $D(GECSOT) S Y=Y_$E(""           "",$L(Y)+1,11)"
^DD(2100,2200.44,3)="Answer must be 1-11 characters in length."
^DD(2100,2200.44,21,0)="^^1^1^2900717^^"
^DD(2100,2200.44,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.44,"DT")="2900717"
^DD(2100,2200.45,0)="TYPE OF VISIT^RSO^1:HOME VISIT;2:PRE-PLACEMENT HOME VISIT;3:WARD VISIT;4:OUTPATIENT VISIT;6:POST DISCHARGE FOLLOW-UP OFF VA GROUNDS;7:POST VISIT FOLLOW-UP ON VA GROUNDS;^GECOHBHC2A;6^Q"
^DD(2100,2200.45,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" "" S Y=""  ""_Y"
^DD(2100,2200.45,2.1)="I $D(GECSOT) S:Y="""" Y="" "" S Y=""  ""_Y"
^DD(2100,2200.45,21,0)="^^1^1^2900717^^"
^DD(2100,2200.45,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.45,"DT")="2900717"
^DD(2100,2200.5,0)="DISCHARGE DATE^RDO^^GECOHBHC2A;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,2200.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.5,2.1)="I $D(GECSOT) S Y=$E(Y,4,7)_$E(Y,2,3),Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,2200.5,21,0)="^^1^1^2900717^^"
^DD(2100,2200.5,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.5,"DT")="2980706"
^DD(2100,2200.51,0)="DISCHARGE STATUS^RSO^1:TRANSFERRED TO OTHER PROVIDER;2:ANTICIPATED INSTITUTIONALIZATION;3:FAMILY OR SELF CARE/NO REGULAR SOURCE;4:DIED ON HBHC;6:MOVED AWAY/LOST TO CONTACT;9:NOT DETERMINED;^GECOHBHC2A;8^Q"
^DD(2100,2200.51,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.51,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.51,21,0)="^^1^1^2900717^^"
^DD(2100,2200.51,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.51,"DT")="2900717"
^DD(2100,2200.52,0)="TRANSFER DESTINATION^RSO^1:VA PROVIDED CARE;2:NON VA CARE;3:VA FEE BASIS/CONTRACT;^GECOHBHC2A;9^Q"
^DD(2100,2200.52,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.52,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.52,21,0)="^^1^1^2900717^^"
^DD(2100,2200.52,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.52,"DT")="2900717"
^DD(2100,2200.53,0)="TYPE OF AGENCY^RSO^1:GENERAL HOSPITAL;2:SPECIALTY HOSPITAL;3:NURSING HOME;4:RES CARE FACILITY/DOM;5:HOSPICE;6:COMMUNITY BASED SERVICE;9:NOT DETERMINED;^GECOHBHC2A;10^Q"
^DD(2100,2200.53,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.53,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2200.53,21,0)="^^1^1^2900717^^"
^DD(2100,2200.53,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.53,"DT")="2900717"
^DD(2100,2200.54,0)="PAD 2 SPACES^RFO^^GECOHBHC2A;11^K:$L(X)>2!($L(X)<2) X"
^DD(2100,2200.54,2)="S Y(0)=Y I $D(GECSOT) S Y=""  """
^DD(2100,2200.54,2.1)="I $D(GECSOT) S Y=""  """
^DD(2100,2200.54,3)="Answer must be 2 characters in length."
^DD(2100,2200.54,21,0)="^^1^1^2900718^^"
^DD(2100,2200.54,21,1,0)="Used by the Hospital Based Home Care code sheet."
^DD(2100,2200.54,"DT")="2900718"
^DD(2100,2200.55,0)="PAD HBHC 73 SPACES^FO^^GECOHBHC2A;12^K:$L(X)>73!($L(X)<1) X"
^DD(2100,2200.55,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                                                                         "",$L(Y)+1,73)"
^DD(2100,2200.55,2.1)="I $D(GECSOT) S Y=Y_$E(""                                                                         "",$L(Y)+1,73)"
^DD(2100,2200.55,3)="Answer must be 1-73 characters in length."
^DD(2100,2200.55,"DT")="2900920"
^DD(2100,2201.01,0)="TRANSACTION NUMBER^RNJ3,0O^^GECOFORM2;1^K:+X'=X!(X>999)!(X<111)!(X?.E1"".""1N.N) X"
^DD(2100,2201.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2201.01,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2201.01,3)="Type a Number between 111 and 999, 0 Decimal Digits"
^DD(2100,2201.01,21,0)="^^1^1^2900718^^"
^DD(2100,2201.01,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.01,"DT")="2900718"
^DD(2100,2201.02,0)="TYPE^RSO^R:REGULAR SUBMISSION;E:EMERGENCY;A:ACCOUNTABLE FORM;S:OFF SCHEDULE;I:INSUFFICIENT INITIAL DISTRIBUTION;^GECOFORM2;2^Q"
^DD(2100,2201.02,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2201.02,2.1)="I $D(GECSOT) S:Y="""" Y="" """
^DD(2100,2201.02,21,0)="^^1^1^2900718^^"
^DD(2100,2201.02,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.02,"DT")="2900718"
^DD(2100,2201.03,0)="REQUISITION NUMBER^RNJ5,0O^^GECOFORM2;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2201.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2201.03,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2201.03,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,2201.03,21,0)="^^1^1^2900718^^"
^DD(2100,2201.03,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.03,"DT")="2900718"
^DD(2100,2201.04,0)="FTS TELEPHONE NUMBER^RNJ7,0O^^GECOFORM2;4^K:+X'=X!(X>9999999)!(X<1111111)!(X?.E1"".""1N.N) X"
^DD(2100,2201.04,2)="S Y(0)=Y I $D(GECSOT) S Y=""   ""_$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2201.04,2.1)="I $D(GECSOT) S Y=""   ""_$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,2201.04,3)="Type a Number between 1111111 and 9999999, 0 Decimal Digits"
^DD(2100,2201.04,21,0)="^^1^1^2900718^^"
^DD(2100,2201.04,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.04,"DT")="2900920"
^DD(2100,2201.06,0)="DEPOT STOCK NUMBER^RFO^^GECOFORM2;6^K:$L(X)>6!($L(X)<1) X"
^DD(2100,2201.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2201.06,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2201.06,3)="Answer must be 1-6 characters in length."
^DD(2100,2201.06,21,0)="^^1^1^2900718^^"
^DD(2100,2201.06,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.06,"DT")="2901101"
^DD(2100,2201.08,0)="UNIT OF USE^RFO^^GECOFORM2;7^K:$L(X)>2!($L(X)<1) X"
^DD(2100,2201.08,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,2201.08,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,2201.08,3)="Answer must be 1-2 characters in length."
^DD(2100,2201.08,21,0)="^^1^1^2900718^^"
^DD(2100,2201.08,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.08,"DT")="2900718"
^DD(2100,2201.09,0)="QUANTITY ORDERED^RNJ8,0O^^GECOFORM2;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2201.09,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,2201.09,2.1)="I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,2201.09,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(2100,2201.09,21,0)="^^1^1^2900718^^"
^DD(2100,2201.09,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.09,"DT")="2900718"
^DD(2100,2201.1,0)="PAD FORM 7 SPACES^RFO^^GECOFORM2;9^K:$L(X)>7!($L(X)<7) X"
^DD(2100,2201.1,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""       "",$L(Y)+1,7)_Y"
^DD(2100,2201.1,2.1)="I $D(GECSOT) S Y=$E(""       "",$L(Y)+1,7)_Y"
^DD(2100,2201.1,3)="Answer must be 7 characters in length."
^DD(2100,2201.1,21,0)="^^1^1^2900718^^"
^DD(2100,2201.1,21,1,0)="Form and Form Letter Requisition Code Sheet - LOG 1."
^DD(2100,2201.1,"DT")="2900718"
^DD(2100,2201.11,0)="PAD FORM 35 SPACES (AT END)^F^^GECOFORM2;5^K:$L(X)>35!($L(X)<1) X"
^DD(2100,2201.11,3)="Answer must be 1-35 characters in length."
^DD(2100,2201.11,"DT")="2900920"
^DD(2100,2401,0)="ASSISTED (FULL CARE)-DIAL.^NJ3,0O^^MCAMS2A;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2401,.1)="DIALYSIS/BEDS/FACILITIES ASSISTED (FULL CARE)"
^DD(2100,2401,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2401,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2401,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2401,"DT")="2900627"
^DD(2100,2402,0)="LIMITED/SELF CARE DIALY.^NJ3,0O^^MCAMS2A;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2402,.1)="DIALYSIS/BEDS/FACILITIES: LIMITED/SELF-CARE"
^DD(2100,2402,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2402,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2402,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2402,"DT")="2900627"
^DD(2100,2403,0)="HOME (SELF) DIALY. TRAINING^NJ3,0O^^MCAMS2A;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2403,.1)="DIALYSIS/BEDS/FACILITIES: HOME (SELF) DIALYSIS TRAINING"
^DD(2100,2403,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2403,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2403,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2403,"DT")="2900627"
^DD(2100,2404,0)="MAINT. DIALY. SHIFTS/DAY^NJ3,1O^^MCAMS2A;4^K:+X'=X!(X>9.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2404,.1)="MAINT. DIALYSIS SHIFTS PER WORK DAY"
^DD(2100,2404,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2404,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2404,3)="Type a Number between 0 and 9.9, 1 Decimal Digit"
^DD(2100,2404,"DT")="2900629"
^DD(2100,2405,0)="OPERATING DAYS PER WEEK^NJ2,0O^^MCAMS2A;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2405,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2405,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2405,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,2405,"DT")="2900627"
^DD(2100,2406,0)="REC. CARE FROM RPTG. UNIT^NJ3,0O^^MCAMS2A;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2406,.1)="PATIENTS RECEIVING CARE BEGINNING OF PERIOD DIRECTLY FROM RPTG. UNIT"
^DD(2100,2406,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2406,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2406,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2406,"DT")="2900627"
^DD(2100,2407,0)="CARE IN NON-VA UNIT^NJ3,0O^^MCAMS2A;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2407,.1)="PATIENTS RECEIVING CARE BEGINNING OF PERIOD IN NON-VA UNIT"
^DD(2100,2407,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2407,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2407,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2407,"DT")="2900627"
^DD(2100,2408,0)="ADMITTED FOR FIRST TIME(ADD.)^NJ3,0O^^MCAMS2A;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2408,.1)="ADDITIONS DURING REPORTING PERIOD: ADMITTED FOR FIRST TIME"
^DD(2100,2408,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2408,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2408,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2408,"DT")="2900627"
^DD(2100,2409,0)="TRANS. FROM OTHER VA DIALY.^NJ3,0O^^MCAMS2A;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2409,.1)="ADDITIONS DURING REPORTING PERIOD: TRANSFERRED FROM OTHER VA DIALYSIS PROGRAM"
^DD(2100,2409,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2409,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2409,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2409,"DT")="2900627"
^DD(2100,2410,0)="RETURNING/ OTHER VA/NON VA^NJ3,0O^^MCAMS2A;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2410,.1)="ADDITIONS DURING REPORTING PERIOD: RETURNING FROM OTHER VA & NON-VA PROGRAMS"
^DD(2100,2410,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2410,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2410,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2410,"DT")="2900627"
^DD(2100,2411,0)="RETURNING-TRANSPLANTATION^NJ3,0O^^MCAMS2A;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2411,.1)="ADDITIONS DURING REPORTING PERIOD: RETURNING AFTER TRANSPLANTATION"
^DD(2100,2411,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2411,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2411,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2411,4)=""
^DD(2100,2411,"DT")="2900627"
^DD(2100,2412,0)="OTHER ADM./RE-ADM. (DIALY.)^NJ3,0O^^MCAMS2A;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2412,.1)="ADDITIONS DURING REPORTING PERIOD: OTHER ADMISSIONS/READMISSIONS"
^DD(2100,2412,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2412,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2412,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2412,"DT")="2900627"
^DD(2100,2413,0)="DEATHS (DIALY.)^NJ3,0O^^MCAMS2A;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2413,.1)="LOSSES: DEATHS"
^DD(2100,2413,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2413,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2413,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2413,"DT")="2900627"
^DD(2100,2414,0)="RECOVERED KIDNEY FUNCTION^NJ3,0O^^MCAMS2A;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2414,.1)="LOSSES: RECOVERED KIDNEY FUNCTION"
^DD(2100,2414,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2414,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2414,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2414,"DT")="2900627"
^DD(2100,2415,0)="RECEIVED TRANSPLANT^NJ3,0O^^MCAMS2A;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2415,.1)="LOSSES: RECEIVED TRANSPLANT"
^DD(2100,2415,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2415,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2415,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2415,"DT")="2900627"
^DD(2100,2416,0)="TRANSFERRED TO OTHER VA DIAL.^NJ3,0O^^MCAMS2A;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2416,.1)="LOSSES: TRANSFERRED TO OTHER VA DIALYSIS PROGRAM"
^DD(2100,2416,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2416,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2416,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2416,"DT")="2900627"
^DD(2100,2417,0)="DISCHARGED TO NON-VA^NJ3,0O^^MCAMS2A;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2417,.1)="LOSSES: DISCHARGED TO NON-VA CARE"
^DD(2100,2417,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2417,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2417,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2417,"DT")="2900627"
^DD(2100,2418,0)="OTHER LOSSES (DIALY.)^NJ3,0O^^MCAMS2A;18^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2418,.1)="LOSSES: OTHER"
^DD(2100,2418,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2418,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2418,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2418,"DT")="2900627"
^DD(2100,2419,0)="ACUTE ASSISTED HEMODIALYSIS^NJ3,0O^^MCAMS2A;19^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2419,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2419,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2419,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2419,"DT")="2900627"
^DD(2100,2420,0)="ACUTE ASSISTED PERI. DIALY.^NJ3,0O^^MCAMS2A;20^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2420,.1)="ACUTE ASSISTED PEARITONEAL DIALYSIS"
^DD(2100,2420,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2420,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2420,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2420,"DT")="2900627"
^DD(2100,2421,0)="CHRONIC ASSISTED HEMO. INP.^NJ3,0O^^MCAMS2A;21^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2421,.1)="CHRONIC ASSISTED HEMODIALYSIS INPATIENT"
^DD(2100,2421,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2421,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2421,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2421,"DT")="2900627"
^DD(2100,2422,0)="CHRONIC ASSISTED HEMO. OUTPT.^NJ3,0O^^MCAMS2A;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2422,.1)="CHRONIC ASSISTED HEMODIALYSIS OUTPATIENT"
^DD(2100,2422,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2422,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2422,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2422,"DT")="2900627"
^DD(2100,2423,0)="CHRONIC ASSISTED PERI. INP.^NJ3,0O^^MCAMS2A;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2423,.1)="CHRONIC ASSISTED PERITONEAL DIALYSIS INPATIENT"
^DD(2100,2423,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2423,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2423,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2423,"DT")="2900627"
^DD(2100,2424,0)="CHRONIC ASSISTED PERI. OUTP.^NJ3,0O^^MCAMS2A;24^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2424,.1)="CHRONIC ASSISTED PERITONEAL DIALYSIS OUTPATIENT"
^DD(2100,2424,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2424,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2424,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2424,"DT")="2900627"
^DD(2100,2425,0)="LIMITED/SELF CARE HEMO. INP.^NJ3,0O^^MCAMS2A;25^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2425,.1)="LIMITED/SELF CARE HEMODIALYSIS INPATIENT"
^DD(2100,2425,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2425,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2425,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2425,"DT")="2900627"
^DD(2100,2426,0)="LIMITED/SELF CARE HEMO. OUTPT.^NJ3,0O^^MCAMS2A;26^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2426,.1)="LIMITED/SELF CARE HEMODIALYSIS OUTPATIENT"
^DD(2100,2426,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2426,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2426,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2426,"DT")="2900627"
^DD(2100,2427,0)="LIMITED/SELF CARE PERI. INP.^NJ3,0O^^MCAMS2A;27^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2427,.1)="LIMITED/SELF CARE PERITONEAL DIALYSIS INPATIENT"
^DD(2100,2427,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2427,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2427,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2427,"DT")="2900627"
^DD(2100,2428,0)="LIMITED/SELF CARE PERI. OUTPT.^NJ3,0O^^MCAMS2A;28^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2428,.1)="LIMITED/SELF CARE PERITONEAL DIALYSIS OUTPATIENT"
^DD(2100,2428,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2428,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2428,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2428,"DT")="2900627"
^DD(2100,2429,0)="HEMO. INP. (HOME TRAINING)^NJ3,0O^^MCAMS2A;29^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2429,.1)="HOME (SELF) DIALYSIS TRAINING: HEMODIALYSIS INPATIENT"
^DD(2100,2429,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2429,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2429,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2429,"DT")="2900627"
^DD(2100,2430,0)="HEMO OUTPT. (HOME TRAINING)^NJ3,0O^^MCAMS2A;30^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2430,.1)="HOME (SELF) DIALYSIS TRAINING: HEMODIALYSIS OUTPATIENT"
^DD(2100,2430,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2430,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2430,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2430,"DT")="2900627"
^DD(2100,2431,0)="PERI. INP. (HOME TRAINING)^NJ3,0O^^MCAMS2A;31^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2431,.1)="HOME (SELF) DIALYSIS TRAINING: PERITONEAL DIALYSIS INPATIENT"
^DD(2100,2431,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2431,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2431,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2431,"DT")="2900627"
^DD(2100,2432,0)="PERI. OUTPT. (HOME TRAINING)^NJ3,0O^^MCAMS2A;32^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2432,.1)="HOME (SELF) DIALYSIS TRAINING: PERITONEAL DIALYSIS OUTPATIENT"
^DD(2100,2432,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2432,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2432,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2432,"DT")="2900627"
^DD(2100,2433,0)="HEMO. (HOME DIALYSIS)^NJ3,0O^^MCAMS2A;33^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2433,.1)="HOME DIALYSIS: HEMODIALYSIS"
^DD(2100,2433,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2433,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2433,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2433,"DT")="2900627"
^DD(2100,2434,0)="PERI. (HOME DIALYSIS)^NJ3,0O^^MCAMS2A;34^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2434,.1)="HOME DIALYSIS: PERITONEAL DIALYSIS"
^DD(2100,2434,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2434,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2434,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2434,"DT")="2900627"
^DD(2100,2435,0)="TOTAL DIALY. PAT. REMAINING^NJ4,0O^^MCAMS2A;35^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2435,.1)="TOTAL DIALYSIS PATIENT REMAINING: END OF PERIOD"
^DD(2100,2435,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2435,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2435,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2435,"DT")="2900627"
^DD(2100,2436,0)="CONTRACT/FEE BASIS (HEMO.)^NJ3,0O^^MCAMS2A;36^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2436,.1)="CONTRACT/FEE BASIS HEMODIALYSIS"
^DD(2100,2436,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2436,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2436,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2436,"DT")="2900627"
^DD(2100,2437,0)="CONTRACT/FEE BASIS (PERI.)^NJ3,0O^^MCAMS2A;37^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2437,.1)="CONTRACT/FEE BASIS PERITONEAL DIALYSIS"
^DD(2100,2437,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2437,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2437,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2437,"DT")="2900627"
^DD(2100,2438,0)="CONTRACT/FEE BASIS (TOTAL)^NJ4,0O^^MCAMS2A;38^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2438,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2438,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2438,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2438,"DT")="2900627"
^DD(2100,2439,0)="S-C FOR RENAL DISEASE^NJ3,0O^^MCAMS2A;39^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2439,.1)="NUMBER S-C FOR RENAL DISEASE"
^DD(2100,2439,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2439,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2439,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2439,"DT")="2900627"
^DD(2100,2440,0)="S-C OTHER (DIALY.)^NJ3,0O^^MCAMS2A;40^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2440,.1)="NUMBER S-C FOR OTHER"
^DD(2100,2440,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2440,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2440,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2440,"DT")="2900627"
^DD(2100,2441,0)="NON-VA PATIENTS TREATED^NJ3,0O^^MCAMS2A;41^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2441,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2441,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2441,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2441,"DT")="2900627"
^DD(2100,2442,0)="AWAITING TRANSPLANT^NJ3,0O^^MCAMS2A;42^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2442,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2442,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2442,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2442,"DT")="2900627"
^DD(2100,2443,0)="ACUTE ASS. HEMO. TREATMENTS^NJ4,0O^^MCAMS2A;43^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2443,.1)="DIALYSIS CENTER TREATMENTS: ACUTE ASSISTED HEMODIALYSIS"
^DD(2100,2443,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2443,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2443,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2443,"DT")="2900627"
^DD(2100,2444,0)="CHRONIC ASS. HEMO. TREATMENTS^NJ4,0O^^MCAMS2A;44^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2444,.1)="DIALYSIS CENTER TREATMENTS: CHRONIC ASSISTED HEMODIALYSIS"
^DD(2100,2444,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2444,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2444,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2444,"DT")="2900627"
^DD(2100,2445,0)="LIMITED/SELF HEMO. TREATMENTS^NJ4,0O^^MCAMS2A;45^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2445,.1)="DIALYSIS CENTER TREATMENTS: LIMITED/SELF HEMODIALYSIS"
^DD(2100,2445,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2445,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2445,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2445,"DT")="2900627"
^DD(2100,2446,0)="ACUTE ASS. PERI. TREATMENTS^NJ4,0O^^MCAMS2A;46^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2446,.1)="DIALYSIS CENTER TREATMENTS: ACUTE ASSISTED PERITONEAL DIALYSIS"
^DD(2100,2446,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2446,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2446,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2446,"DT")="2900627"
^DD(2100,2447,0)="CHRONIC ASS. PERI. TREATMENTS^NJ4,0O^^MCAMS2A;47^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2447,.1)="DIALYSIS CENTER TREATMENTS: CHRONIC ASSISTED PERITONEAL DIALYSIS"
^DD(2100,2447,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2447,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2447,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2447,"DT")="2900627"
^DD(2100,2448,0)="LIMITED/SELF PERI. TREATMENTS^NJ4,0O^^MCAMS2A;48^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2448,.1)="DIALYSIS CENTER TREATMENTS: LIMITED/SELF PERITONEAL DIALYSIS"
^DD(2100,2448,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2448,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2448,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2448,"DT")="2900627"
^DD(2100,2449,0)="TOTAL DIALY. CENTER TREATMENTS^NJ4,0O^^MCAMS2A;49^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2449,.1)="TOTAL DIALYSIS CENTER TREATMENTS"
^DD(2100,2449,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2449,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2449,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2449,"DT")="2900627"
^DD(2100,2450,0)="AVG. TREATMENTS/BED/WEEK^NJ4,0O^^MCAMS2A;50^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2450,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2450,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2450,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2450,"DT")="2900627"
^DD(2100,2451,0)="HEMO. TRAINING TREATMENTS^NJ4,0O^^MCAMS2A;51^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2451,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2451,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2451,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2451,"DT")="2900627"
^DD(2100,2452,0)="PERIDIAL. TRAINING TREATMENTS^NJ4,0O^^MCAMS2A;52^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2452,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2452,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2452,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2452,"DT")="2900627"
^DD(2100,2453,0)="HOME HEMODIALYSIS TREATMENTS^NJ4,0O^^MCAMS2A;53^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2453,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2453,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2453,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2453,"DT")="2900627"
^DD(2100,2454,0)="HOME PERIDIAL. TREATMENTS^NJ4,0O^^MCAMS2A;54^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2454,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2454,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2454,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2454,"DT")="2900627"
^DD(2100,2455,0)="TREATMENTS ON NON-VETERANS^NJ4,0O^^MCAMS2A;55^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2455,.1)="DIALYSIS TREATMENTS PERFORMED ON NON-VETERANS"
^DD(2100,2455,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2455,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2455,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2455,"DT")="2900627"
^DD(2100,2456,0)="HOME HEMO. (INIT. TRN. COMP.)^NJ4,0O^^MCAMS2A;56^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2456,.1)="PATIENTS COMPLETING INITIAL TRAINING: HOME HEMODIALYSIS"
^DD(2100,2456,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2456,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2456,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2456,"DT")="2900627"
^DD(2100,2457,0)="LIMITED/SELF HEMO. INIT. TRNG.^NJ4,0O^^MCAMS2A;57^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2457,.1)="PATIENTS COMPLETING INITIAL TRAINING: LIMITED/SELF HEMODIALYSIS"
^DD(2100,2457,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2457,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2457,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2457,"DT")="2900627"
^DD(2100,2458,0)="HOME PERI. INIT. TRNG. COMP.^NJ4,0O^^MCAMS2A;58^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2458,.1)="PATIENTS COMPLETING INITIAL TRAINING: HOME PERITONEAL DIALYSIS"
^DD(2100,2458,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2458,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2458,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2458,"DT")="2900627"
^DD(2100,2459,0)="LIMITED/SELF INIT. TRNG.^NJ4,0O^^MCAMS2B;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2459,.1)="PATIENTS COMPLETING INITIAL TRAINING: LIMITED/SELF PERITONEAL DIALYSIS"
^DD(2100,2459,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2459,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2459,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2459,"DT")="2900627"
^DD(2100,2460,0)="TISSUE TYPING TESTS^NJ4,0O^^MCAMS2B;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2460,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2460,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2460,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2460,"DT")="2900627"
^DD(2100,2461,0)="FEE PAID (HEMO.-OWN FACILITY)^NJ4,0O^^MCAMS2B;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2461,.1)="CONTRACT/FEE BASIS HEMO. TREATMENTS PAID FOR BY YOUR FACILITY"
^DD(2100,2461,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2461,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2461,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2461,"DT")="2900627"
^DD(2100,2462,0)="FEE PAID (PERI.-OWN FACILITY)^NJ4,0O^^MCAMS2B;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2462,.1)="CONTRACT/FEE BASIS PERIDIAL. TREATMENTS PAID FOR BY YOUR FACILITY"
^DD(2100,2462,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2462,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2462,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2462,"DT")="2900627"
^DD(2100,2463,0)="FEE PAID (HEMO.-OTHER FAC.)^NJ4,0O^^MCAMS2B;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2463,.1)="CONTRACT/FEE BASIS HEMO. TREATMENTS PAID FOR BY ANOTHER FACILITY"
^DD(2100,2463,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2463,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2463,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2463,"DT")="2900627"
^DD(2100,2464,0)="FEE PAID (PERI.-OTHER FAC.)^NJ4,0O^^MCAMS2B;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2464,.1)="CONTRACT/FEE BASIS PERIDIAL. TREATMENTS PAID FOR BY ANOTHER FACILITY"
^DD(2100,2464,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2464,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2464,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2464,"DT")="2900627"
^DD(2100,2473,0)="TOTAL CRF. PATIENTS DIALYZED^NJ5,0O^^MCAMS2B;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2473,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2473,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2473,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,2473,"DT")="2900627"
^DD(2100,2474,0)="DIALYZED-DIABETIC^NJ4,0O^^MCAMS2B;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2474,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2474,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2474,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2474,"DT")="2900627"
^DD(2100,2475,0)="DIALYZED-FRACTION DIABETIC^NJ5,3O^^MCAMS2B;9^K:+X'=X!(X>9.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(2100,2475,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2475,2.1)="I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2475,3)="Type a Number between 0 and 9.999, 3 Decimal Digits"
^DD(2100,2475,"DT")="2900629"
^DD(2100,2476,0)="DIALYZED-AGE 55 OR OVER^NJ4,0O^^MCAMS2B;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2476,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2476,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2476,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2476,"DT")="2900627"
^DD(2100,2477,0)="DIALYZED-FRACTION 55 OR OVER^NJ5,3O^^MCAMS2B;11^K:+X'=X!(X>9.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(2100,2477,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2477,2.1)="I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2477,3)="Type a Number between 0 and 9.999, 3 Decimal Digits"
^DD(2100,2477,4)=""
^DD(2100,2477,"DT")="2900629"
^DD(2100,2478,0)="DIALYZED-90 DAYS OR LESS^NJ4,0O^^MCAMS2B;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2478,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2478,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2478,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2478,"DT")="2900627"
^DD(2100,2479,0)="DIAL.-DEATHS 90 DAYS OR LESS^NJ4,0O^^MCAMS2B;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2479,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2479,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2479,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2479,"DT")="2900627"
^DD(2100,2480,0)="DIALY.-FRACTION CRF < 91 DAYS^NJ5,3O^^MCAMS2B;14^K:+X'=X!(X>9.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(2100,2480,.1)="DIALYZED- FRACTION (CASE FAT RATE) 90 DAYS OR LESS"
^DD(2100,2480,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2480,2.1)="I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2480,3)="Type a Number between 0 and 9.999, 3 Decimal Digits"
^DD(2100,2480,"DT")="2900629"
^DD(2100,2481,0)="DIALYZED OVER 90 DAYS^NJ4,0O^^MCAMS2B;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2481,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2481,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2481,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2481,"DT")="2900627"
^DD(2100,2482,0)="DIAL.-DEATHS OVER 90 DAYS^NJ4,0O^^MCAMS2B;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2482,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2482,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2482,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2482,"DT")="2900627"
^DD(2100,2483,0)="FRACTION CRF > 90 DAYS^NJ5,3O^^MCAMS2B;17^K:+X'=X!(X>9.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(2100,2483,.1)="FRACTION (CASE FAT RATE) OVER 90 DAYS"
^DD(2100,2483,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2483,2.1)="I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2483,3)="Type a Number between 0 and 9.999, 3 Decimal Digits"
^DD(2100,2483,"DT")="2900629"
^DD(2100,2484,0)="DIALYZED-TOTAL ARF PATIENTS^NJ5,0O^^MCAMS2B;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2484,.1)="TOTAL ACUTE RENAL FAILURE DIALYZED"
^DD(2100,2484,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2484,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2484,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,2484,"DT")="2900627"
^DD(2100,2485,0)="DIALYZED-DEATHS (ARF)^NJ4,0O^^MCAMS2B;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2485,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2485,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2485,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2485,"DT")="2900627"
^DD(2100,2486,0)="DIALYZED-FRACTION CRF-ARF^NJ5,3O^^MCAMS2B;20^K:+X'=X!(X>9.999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(2100,2486,.1)="DIALYZED-FRACTION (CASE FAT RATE) ARF"
^DD(2100,2486,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2486,2.1)="I $D(GECSOT) S Y=$J(Y,1,3),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2486,3)="Type a Number between 0 and 9.999, 3 Decimal Digits"
^DD(2100,2486,"DT")="2900629"
^DD(2100,2500,0)="BEDS^NJ4,0O^^MCAMS2;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2500,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2500,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2500,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2500,"DT")="2900627"
^DD(2100,2501,0)="ADMISSIONS^NJ4,0O^^MCAMS2;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2501,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2501,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2501,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2501,"DT")="2900627"
^DD(2100,2502,0)="DISCHARGES-MEDICINE^NJ4,0O^^MCAMS2;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2502,.1)="LOSSES: DISCHARGES"
^DD(2100,2502,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2502,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2502,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2502,"DT")="2900627"
^DD(2100,2503,0)="TRANSFERS OUT TO ANOTHER ICU^NJ4,0O^^MCAMS2;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2503,.1)="LOSSES: TRANSFERS OUT TO ANOTHER ICU"
^DD(2100,2503,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2503,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2503,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2503,"DT")="2900627"
^DD(2100,2504,0)="TRANSFERS OUT TO WARD^NJ4,0O^^MCAMS2;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2504,.1)="LOSSES: TRANSFERS OUT TO WARD"
^DD(2100,2504,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2504,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2504,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2504,"DT")="2900627"
^DD(2100,2505,0)="DEATHS IN ICU^NJ4,0O^^MCAMS2;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2505,.1)="LOSSES: DEATHS IN ICU"
^DD(2100,2505,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2505,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2505,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2505,"DT")="2900627"
^DD(2100,2506,0)="PATIENTS REMAINING^NJ4,0O^^MCAMS2;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2506,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2506,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2506,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2506,"DT")="2900627"
^DD(2100,2507,0)="PATIENT DAYS OF CARE (M)^NJ6,0O^^MCAMS2;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2507,.1)="PATIENT DAYS OF CARE"
^DD(2100,2507,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2507,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2507,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,2507,"DT")="2900627"
^DD(2100,2508,0)="CARDIOPULMONARY RESUSCITATIONS^NJ6,0O^^MCAMS2;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2508,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2508,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2508,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,2508,"DT")="2900627"
^DD(2100,2509,0)="DESIGNATED BEDS (MED/SUR)^NJ4,0O^^MCAMS2;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2509,.1)="DESIGNATED BEDS IN GENERAL PURPOSE UNITS: MEDICAL/SURGICAL"
^DD(2100,2509,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,6)_Y"
^DD(2100,2509,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,6)_Y"
^DD(2100,2509,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2509,"DT")="2900627"
^DD(2100,2510,0)="DESIGNATED BEDS (MED/COR)^NJ4,0O^^MCAMS2;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2510,.1)="DESIGNATED BEDS IN GENERAL PURPOSE UNITS: MEDICAL/CORONARY"
^DD(2100,2510,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2510,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2510,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2510,"DT")="2900627"
^DD(2100,2511,0)="DESIGNATED BEDS (MED/SURG/COR)^NJ4,0O^^MCAMS2;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2511,.1)="DESIGNATED BEDS IN GENERAL PURPOSE UNITS: MED/SURG/CORONARY"
^DD(2100,2511,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2511,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2511,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2511,"DT")="2900627"
^DD(2100,2512,0)="FTEE-PHYSICIANS^NJ5,1O^^MCAMS2;13^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2512,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2512,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2512,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2512,"DT")="2900629"
^DD(2100,2513,0)="FTEE-PHYSICIAN ASSISTANTS^NJ5,1O^^MCAMS2;14^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2513,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2513,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2513,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2513,"DT")="2900629"
^DD(2100,2514,0)="FTEE-NURSES^NJ5,1O^^MCAMS2;15^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2514,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2514,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2514,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2514,"DT")="2900629"
^DD(2100,2515,0)="FTEE-NURSING ASSISTANTS^NJ5,1O^^MCAMS2;16^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2515,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2515,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2515,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2515,"DT")="2900629"
^DD(2100,2516,0)="FTEE-NON PROFESSIONAL^NJ5,1O^^MCAMS2;17^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2516,.1)="FTEE-NON PROFESSIONAL PERSONNEL"
^DD(2100,2516,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2516,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2516,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2516,"DT")="2900629"
^DD(2100,2517,0)="FTEE-ADMINISTRATIVE^NJ5,1O^^MCAMS2;18^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2517,.1)="FTEE-ADMINISTRATIVE PERSONNEL"
^DD(2100,2517,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2517,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2517,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2517,"DT")="2900629"
^DD(2100,2518,0)="FTEE-OTHER^NJ5,1O^^MCAMS2;19^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2518,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2518,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2518,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2518,"DT")="2900629"
^DD(2100,2519,0)="FTEE-DIALYSIS TECH/THERAPIST^NJ5,1O^^MCAMS2;20^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2519,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2519,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2519,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2519,"DT")="2900629"
^DD(2100,2520,0)="FTEE-SOCIAL WORKERS^NJ5,1O^^MCAMS2;21^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2520,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2520,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2520,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2520,"DT")="2900629"
^DD(2100,2521,0)="FTEE-DIETITIANS^NJ5,1O^^MCAMS2;22^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2521,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2521,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2521,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2521,"DT")="2900629"
^DD(2100,2522,0)="FTEE-TECHNICIANS^NJ5,1O^^MCAMS2;23^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2522,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2522,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2522,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2522,"DT")="2900629"
^DD(2100,2523,0)="FTEE-CLERKS^NJ5,1O^^MCAMS2;24^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2523,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2523,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2523,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,2523,"DT")="2900629"
^DD(2100,2601,0)="AUTHORIZED FTEE^NJ4,1O^^MCAMS2C;1^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2601,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2601,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2601,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,2601,"DT")="2900629"
^DD(2100,2602,0)="ACTUAL FTEE^NJ4,1O^^MCAMS2C;2^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,2602,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2602,2.1)="I $D(GECSOT) S Y=$J(Y,1,1),Y=$P(Y,""."",1)_$P(Y,""."",2),Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2602,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,2602,"DT")="2900629"
^DD(2100,2603,0)="ON DUTY HOURS-AUDIOLOGIST^NJ4,0O^^MCAMS2C;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2603,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2603,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2603,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2603,"DT")="2900627"
^DD(2100,2604,0)="ON DUTY HRS-SPEECH PATHOLOGIST^NJ4,0O^^MCAMS2C;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2604,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2604,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2604,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2604,"DT")="2900627"
^DD(2100,2605,0)="HEARING AID EVALUATIONS^NJ3,0O^^MCAMS2C;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2605,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2605,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2605,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2605,"DT")="2900627"
^DD(2100,2606,0)="ASS. OF SOCIAL EFFICIENCY^NJ3,0O^^MCAMS2C;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2606,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2606,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2606,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2606,"DT")="2900627"
^DD(2100,2607,0)="CONSULTS-AUDIOLOGY^NJ3,0O^^MCAMS2C;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2607,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2607,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2607,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2607,"DT")="2900627"
^DD(2100,2608,0)="AURAL REHAB PATIENTS^NJ3,0O^^MCAMS2C;8^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2608,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2608,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2608,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2608,"DT")="2900627"
^DD(2100,2609,0)="CASES COMPLETED^NJ3,0O^^MCAMS2C;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2609,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2609,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2609,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2609,"DT")="2900627"
^DD(2100,2610,0)="CASE HISTORIES-AUDIOLOGY^NJ3,0O^^MCAMS2C;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2610,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2610,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2610,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2610,"DT")="2900627"
^DD(2100,2611,0)="SCREENING-AUDIOLOGY^NJ3,0O^^MCAMS2C;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2611,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2611,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2611,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2611,"DT")="2900627"
^DD(2100,2612,0)="PURE TONE AIR CONDUCTION^NJ3,0O^^MCAMS2C;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2612,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2612,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2612,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2612,"DT")="2900627"
^DD(2100,2613,0)="PURE TONE BONE CONDUCTION^NJ3,0O^^MCAMS2C;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2613,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2613,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2613,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2613,"DT")="2900627"
^DD(2100,2614,0)="SPEECH AUDIOMETRY^NJ3,0O^^MCAMS2C;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2614,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2614,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2614,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2614,"DT")="2900627"
^DD(2100,2615,0)="STENGER TESTS^NJ3,0O^^MCAMS2C;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2615,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2615,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2615,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2615,"DT")="2900627"
^DD(2100,2616,0)="TONE DECAY^NJ3,0O^^MCAMS2C;16^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2616,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2616,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2616,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2616,"DT")="2900627"
^DD(2100,2617,0)="OTO-IMMITTANCE^NJ3,0O^^MCAMS2C;17^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2617,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2617,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2617,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2617,"DT")="2900627"
^DD(2100,2618,0)="EVOKED POTENTIALS^NJ3,0O^^MCAMS2C;18^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2618,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2618,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2618,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2618,"DT")="2900627"
^DD(2100,2619,0)="ENG^NJ3,0O^^MCAMS2C;19^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2619,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2619,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2619,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2619,"DT")="2900627"
^DD(2100,2620,0)="OTHER SITE OF LESION TESTS^NJ3,0O^^MCAMS2C;20^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2620,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2620,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2620,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2620,"DT")="2900627"
^DD(2100,2621,0)="CENTRAL AUDITORY TESTS^NJ3,0O^^MCAMS2C;21^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2621,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2621,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2621,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2621,"DT")="2900627"
^DD(2100,2622,0)="AURAL REHAB TESTS^NJ3,0O^^MCAMS2C;22^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2622,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2622,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2622,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2622,"DT")="2900627"
^DD(2100,2623,0)="DIAGNOSTIC REPORT^NJ3,0O^^MCAMS2C;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2623,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2623,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2623,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2623,"DT")="2900627"
^DD(2100,2624,0)="TREATMENT PLANNING-AUDIOLOGY^NJ3,0O^^MCAMS2C;24^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2624,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2624,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2624,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2624,"DT")="2900627"
^DD(2100,2625,0)="AURAL REHAB^NJ3,0O^^MCAMS2C;25^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2625,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2625,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2625,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2625,"DT")="2900627"
^DD(2100,2626,0)="FAMILY COUNSELING-AUDIOLOGY^NJ3,0O^^MCAMS2C;26^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2626,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2626,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2626,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2626,"DT")="2900627"
^DD(2100,2627,0)="PROGRESS NOTES-AUDIOLOGY^NJ4,0O^^MCAMS2C;27^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2627,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2627,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2627,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2627,"DT")="2900627"
^DD(2100,2628,0)="OTHER CONTACTS-AUDIOLOGY^NJ4,0O^^MCAMS2C;28^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2628,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2628,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2628,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2628,"DT")="2900627"
^DD(2100,2629,0)="PROSTHETICS EVALUATION-AUD.^NJ4,0O^^MCAMS2C;29^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2629,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2629,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2629,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2629,"DT")="2900627"
^DD(2100,2630,0)="ROUNDS-AUDIOLOGY^NJ3,0O^^MCAMS2C;30^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2630,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2630,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2630,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2630,"DT")="2900627"
^DD(2100,2631,0)="EQUIP. MAINT. CALIBRATION-AUD.^NJ3,0O^^MCAMS2C;31^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2631,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2631,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2631,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2631,"DT")="2900627"
^DD(2100,2632,0)="HEARING CONSERVATION^NJ3,0O^^MCAMS2C;32^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2632,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2632,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2632,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2632,"DT")="2900627"
^DD(2100,2633,0)="STUDENT TRAINING-AUDIOLOGY^NJ4,0O^^MCAMS2C;33^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2633,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2633,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2633,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2633,"DT")="2900627"
^DD(2100,2634,0)="ON STATION TRAVEL-AUDIOLOGY^NJ3,0O^^MCAMS2C;34^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2634,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2634,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2634,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2634,"DT")="2900627"
^DD(2100,2635,0)="OFF STATION TRAVEL-AUDIOLOGY^NJ3,0O^^MCAMS2C;35^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2635,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2635,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2635,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2635,"DT")="2900627"
^DD(2100,2636,0)="CONSULTS-SPEECH PATHOLOGY^NJ3,0O^^MCAMS2C;36^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2636,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2636,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2636,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2636,"DT")="2900627"
^DD(2100,2637,0)="PATIENTS WAITING FOR THERAPY^NJ3,0O^^MCAMS2C;37^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2637,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2637,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2637,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2637,"DT")="2900627"
^DD(2100,2638,0)="CASE HISTORIES-SPEECH PATH.^NJ3,0O^^MCAMS2C;38^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2638,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2638,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2638,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2638,"DT")="2900627"
^DD(2100,2639,0)="SCREENING-SPEECH PATHOLOGY^NJ3,0O^^MCAMS2C;39^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2639,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2639,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2639,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2639,"DT")="2900627"
^DD(2100,2640,0)="COMP. LANG. COG EVALUATIONS^NJ3,0O^^MCAMS2C;40^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2640,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2640,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2640,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2640,"DT")="2900627"
^DD(2100,2641,0)="SPEC. LIMITED LANG. COG EVAL.^NJ3,0O^^MCAMS2C;41^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2641,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2641,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2641,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2641,"DT")="2900627"
^DD(2100,2642,0)="ORAL MOTOR STRUCTURAL EVAL.^NJ3,0O^^MCAMS2C;42^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2642,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2642,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2642,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2642,"DT")="2900627"
^DD(2100,2643,0)="VOICE RESONANCE ARTIC. EVAL.^NJ3,0O^^MCAMS2C;43^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2643,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2643,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2643,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2643,"DT")="2900627"
^DD(2100,2644,0)="FLUENCY EVALUATIONS^NJ3,0O^^MCAMS2C;44^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2644,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2644,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2644,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2644,"DT")="2900627"
^DD(2100,2645,0)="DYSPHAGIA EVALUATIONS^NJ3,0O^^MCAMS2C;45^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2645,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2645,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2645,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2645,"DT")="2900627"
^DD(2100,2646,0)="DIAGNOSTIC REPORTS^NJ3,0O^^MCAMS2C;46^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2646,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2646,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2646,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2646,"DT")="2900627"
^DD(2100,2647,0)="TREATMENT PLANNING-SP. PATH.^NJ4,0O^^MCAMS2C;47^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2647,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2647,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2647,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2647,"DT")="2900627"
^DD(2100,2648,0)="THERAPY SESSION PLANNING^NJ3,0O^^MCAMS2C;48^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2648,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2648,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2648,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2648,"DT")="2900627"
^DD(2100,2649,0)="TREATMENT-SPEECH PATHOLOGY^NJ4,0O^^MCAMS2C;49^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2649,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2649,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2649,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2649,"DT")="2900627"
^DD(2100,2650,0)="FAMILY COUNSELING-SPEECH PATH.^NJ3,0O^^MCAMS2C;50^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2650,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2650,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2650,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2650,"DT")="2900627"
^DD(2100,2651,0)="PROGRESS NOTES-SPEECH PATH.^NJ3,0O^^MCAMS2C;51^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2651,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2651,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2651,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2651,"DT")="2900627"
^DD(2100,2652,0)="OTHER CONTACTS-SPEECH PATH.^NJ3,0O^^MCAMS2C;52^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2652,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2652,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2652,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2652,"DT")="2900627"
^DD(2100,2653,0)="PROSTHETICS EVAL.-SPEECH PATH.^NJ3,0O^^MCAMS2C;53^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2653,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2653,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2653,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2653,"DT")="2900627"
^DD(2100,2654,0)="ROUNDS-SPEECH PATHOLOGY^NJ3,0O^^MCAMS2C;54^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2654,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2654,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2654,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2654,"DT")="2900627"
^DD(2100,2655,0)="EQUIP. MAIN. CAL.-SPEECH^NJ3,0O^^MCAMS2C;55^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2655,.1)="EQUIPMENT MAINTENANCE CALIBRATION-SPEECH PATHOLOGY"
^DD(2100,2655,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2655,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2655,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2655,"DT")="2900627"
^DD(2100,2656,0)="STUDENT TRAINING-SPEECH PATH.^NJ4,0O^^MCAMS2C;56^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2656,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2656,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2656,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2656,"DT")="2900627"
^DD(2100,2657,0)="ON STATION TRAVEL-SPEECH PATH.^NJ3,0O^^MCAMS2C;57^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2657,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2657,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2657,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2657,"DT")="2900627"
^DD(2100,2658,0)="OFF STATION TRAVEL-SPEECH PATH^NJ3,0O^^MCAMS2C;58^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2658,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2658,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,2658,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,2658,"DT")="2900627"
^DD(2100,2659,0)="ADMINISTRATIVE HOURS^NJ4,0O^^MCAMS2C;59^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2659,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2659,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2659,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2659,"DT")="2900627"
^DD(2100,2660,0)="MEETINGS^NJ4,0O^^MCAMS2D;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2660,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2660,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2660,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2660,"DT")="2900627"
^DD(2100,2661,0)="CONTINUING EDUCATION RECEIVED^NJ4,0O^^MCAMS2D;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2661,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2661,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2661,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2661,"DT")="2900627"
^DD(2100,2662,0)="OTHER TRAINING RECEIVED^NJ4,0O^^MCAMS2D;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2662,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2662,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2662,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2662,"DT")="2900627"
^DD(2100,2663,0)="TRAINING GIVEN^NJ4,0O^^MCAMS2D;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2663,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2663,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2663,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2663,"DT")="2900627"
^DD(2100,2664,0)="SERVICE STATUS^NJ2,0O^^MCAMS2D;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2664,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2664,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,2664,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,2664,"DT")="2900627"
^DD(2100,2665,0)="RESEARCH HOURS^NJ4,0O^^MCAMS2D;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2665,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2665,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2665,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2665,"DT")="2900627"
^DD(2100,2666,0)="SECRETERIAL/CLER. HRS.^NJ4,0O^^MCAMS2D;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2666,.1)="SECRETERIAL/CLERICAL HOURS WORKED"
^DD(2100,2666,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2666,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2666,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2666,"DT")="2900627"
^DD(2100,2701,0)="TOTAL CATHERIZATIONS^NJ5,0O^^MCAMS2E;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2701,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2701,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,2701,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,2701,"DT")="2900627"
^DD(2100,2702,0)="EVENTUALLY HAD CARDIAC SURGERY^NJ4,0O^^MCAMS2E;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2702,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2702,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2702,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2702,"DT")="2900627"
^DD(2100,2703,0)="LEFT HEART PROCEDURES^NJ4,0O^^MCAMS2E;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2703,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2703,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2703,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2703,"DT")="2900627"
^DD(2100,2704,0)="RIGHT HEART PROCEDURES^NJ4,0O^^MCAMS2E;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2704,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2704,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2704,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2704,"DT")="2900627"
^DD(2100,2705,0)="TEMPORARY PACEMAKERS^NJ4,0O^^MCAMS2E;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2705,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2705,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2705,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2705,"DT")="2900627"
^DD(2100,2706,0)="PERMANENT PACEMAKERS^NJ4,0O^^MCAMS2E;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2706,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2706,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2706,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2706,"DT")="2900627"
^DD(2100,2707,0)="ANGIOPLASTY^NJ4,0O^^MCAMS2E;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2707,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2707,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2707,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2707,"DT")="2900627"
^DD(2100,2708,0)="STREPTOKINASE^NJ4,0O^^MCAMS2E;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2708,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2708,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2708,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2708,"DT")="2900627"
^DD(2100,2709,0)="DIGITAL CONTRAST^NJ4,0O^^MCAMS2E;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2709,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2709,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2709,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2709,"DT")="2900627"
^DD(2100,2710,0)="ELECTROPHYSIOLOGY^NJ4,0O^^MCAMS2E;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2710,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2710,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2710,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2710,"DT")="2900627"
^DD(2100,2711,0)="RESEARCH USE OF CCL^NJ4,0O^^MCAMS2E;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2711,.1)="RESEARCH USE OF CCL (# OF PATIENTS)"
^DD(2100,2711,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2711,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2711,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2711,"DT")="2900627"
^DD(2100,2712,0)="USE OTHER THAN CARDIOLOGY^NJ4,0O^^MCAMS2E;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2712,.1)="SHARED USE OF CCL BY OTHER THAN CARDIOLOGY (# OF PATIENTS)"
^DD(2100,2712,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2712,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2712,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2712,"DT")="2900627"
^DD(2100,2713,0)="USE BY OTHER FEDERAL AGENCIES^NJ4,0O^^MCAMS2E;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2713,.1)="SHARED USE OF CCL BY OTHER FEDERAL AGENCIES (# OF PATIENTS)"
^DD(2100,2713,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2713,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2713,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2713,"DT")="2900627"
^DD(2100,2714,0)="USE BY PRIVATE SECTOR^NJ4,0O^^MCAMS2E;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2714,.1)="SHARED USE OF CCL BY PRIVATE SECTOR (# OF PATIENTS)"
^DD(2100,2714,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2714,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2714,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2714,"DT")="2900627"
^DD(2100,2715,0)="MYOCARDIAL INFARCTION^NJ4,0O^^MCAMS2E;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2715,.1)="COMPLICATIONS WITHIN 24 HOURS: MYOCARDIAL INFARCTION"
^DD(2100,2715,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2715,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2715,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2715,"DT")="2900627"
^DD(2100,2716,0)="STROKE^NJ4,0O^^MCAMS2E;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2716,.1)="COMPLICATIONS WITHIN 24 HOURS: STROKE"
^DD(2100,2716,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2716,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2716,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2716,"DT")="2900627"
^DD(2100,2717,0)="PERFORATION^NJ4,0O^^MCAMS2E;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2717,.1)="COMPLICATIONS WITHIN 24 HOURS: PERFORATION"
^DD(2100,2717,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2717,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2717,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2717,"DT")="2900627"
^DD(2100,2718,0)="PERIPHERAL VASCULAR^NJ4,0O^^MCAMS2E;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2718,.1)="COMPLICATIONS WITHIN 24 HOURS: PERIPHERAL VASCULAR"
^DD(2100,2718,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2718,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2718,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2718,"DT")="2900627"
^DD(2100,2719,0)="OTHER MAJOR COMPLICATIONS^NJ4,0O^^MCAMS2E;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2719,.1)="COMPLICATIONS WITHIN 24 HOURS: OTHER MAJOR"
^DD(2100,2719,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2719,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2719,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2719,"DT")="2900627"
^DD(2100,2720,0)="DEATHS (CARDIAC CATH)^NJ4,0O^^MCAMS2E;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2720,.1)="DEATHS WITHIN 24 HOURS"
^DD(2100,2720,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2720,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2720,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2720,"DT")="2900627"
^DD(2100,2801,0)="S/C PATIENTS ON HOME OXYGEN^NJ4,0O^^MCAMS2F;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2801,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2801,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2801,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2801,"DT")="2900627"
^DD(2100,2802,0)="S/C PATIENTS DROPPED^NJ4,0O^^MCAMS2F;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2802,.1)="S/C PATIENTS DROPPED FROM PROGRAM"
^DD(2100,2802,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2802,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2802,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2802,"DT")="2900627"
^DD(2100,2803,0)="S/C PATIENTS STARTED^NJ4,0O^^MCAMS2F;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2803,.1)="S/C NEW PATIENTS STARTED ON HOME OXYGEN"
^DD(2100,2803,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2803,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2803,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2803,"DT")="2900627"
^DD(2100,2804,0)="N/S/C PATIENTS ON HOME OXYGEN^NJ4,0O^^MCAMS2F;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2804,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2804,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2804,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2804,"DT")="2900627"
^DD(2100,2805,0)="N/S/C PATIENTS DROPPED^NJ4,0O^^MCAMS2F;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2805,.1)="N/S/C PATIENTS DROPPED FROM PROGRAM"
^DD(2100,2805,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2805,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2805,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2805,"DT")="2900627"
^DD(2100,2806,0)="N/S/C NEW PATIENTS STARTED^NJ4,0O^^MCAMS2F;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2806,.1)="N/S/C NEW PATIENTS STARTED ON HOME OXYGEN"
^DD(2100,2806,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2806,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2806,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2806,"DT")="2900627"
^DD(2100,2807,0)="PATIENTS ON COMPRESSED GAS^NJ4,0O^^MCAMS2F;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2807,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2807,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2807,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2807,"DT")="2900627"
^DD(2100,2808,0)="PATIENTS ON LIQUID OXYGEN^NJ4,0O^^MCAMS2F;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2808,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2808,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2808,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2808,"DT")="2900627"
^DD(2100,2809,0)="PATIENTS ON RENTED CONCEN.^NJ4,0O^^MCAMS2F;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2809,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2809,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2809,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2809,"DT")="2900627"
^DD(2100,2810,0)="PATIENTS ON OWNED CONCEN.^NJ4,0O^^MCAMS2F;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2810,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2810,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2810,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2810,"DT")="2900627"
^DD(2100,2811,0)="OXY. DEPENDENT VENTILATOR PAT.^NJ4,0O^^MCAMS2F;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2811,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2811,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,2811,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,2811,"DT")="2900627"
^DD(2100,2812,0)="QUARTERLY COST-COMPRESSED GAS^NJ6,0O^^MCAMS2F;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2812,.1)=""
^DD(2100,2812,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2812,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2812,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,2812,"DT")="2900627"
^DD(2100,2813,0)="QUARTERLY COSTS-LIQUID OXYGEN^NJ6,0O^^MCAMS2F;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2813,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2813,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2813,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,2813,"DT")="2900627"
^DD(2100,2814,0)="QUARTERLY COSTS-RENTED CONCEN.^NJ6,0O^^MCAMS2F;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2814,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2814,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2814,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,2814,"DT")="2900627"
^DD(2100,2815,0)="QUAT. COSTS-VA OWNED CONCEN.^NJ6,0O^^MCAMS2F;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2815,.1)="QUARTERLY COSTS-VA OWNED CONCEN."
^DD(2100,2815,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2815,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2815,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,2815,"DT")="2900627"
^DD(2100,2816,0)="QUARTERLY COSTS-VENTILATORS^NJ6,0O^^MCAMS2F;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,2816,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2816,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,2816,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,2816,"DT")="2900627"
^DD(2100,2998,0)="MC SEGMENT MODIFIER^FO^^MCAMS2Z;2^K:$L(X)>1!($L(X)<1) X"
^DD(2100,2998,.1)="SEGMENT MODIFIER"
^DD(2100,2998,2)="S Y(0)=Y I $D(GECSOT),Y="""" S Y="" """
^DD(2100,2998,2.1)="I $D(GECSOT),Y="""" S Y="" """
^DD(2100,2998,3)="Answer must be 1 character in length."
^DD(2100,2998,"DT")="2900518"
^DD(2100,2999,0)="J41-43 ZEROES^F^^MCAMS2Z;1^K:$L(X)>12!($L(X)<12)!'(X?12""0"") X"
^DD(2100,2999,3)="Answer must be 12 characters in length."
^DD(2100,2999,"DT")="2901022"
^DD(2100,3000,0)="TOTAL ANESTHETICS ADMINISTERED^NJ5,0O^^SRAMS3;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3000,.1)="TOTAL ANESTHETICS ADMINISTERED (01)"
^DD(2100,3000,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=5:Y,$L(Y)=4:""0""_Y,$L(Y)=3:""00""_Y,$L(Y)=2:""000""_Y,$L(Y)=1:""0000""_Y,1:""00000"")"
^DD(2100,3000,2.1)="I $D(GECSOT) S Y=$S($L(Y)=5:Y,$L(Y)=4:""0""_Y,$L(Y)=3:""00""_Y,$L(Y)=2:""000""_Y,$L(Y)=1:""0000""_Y,1:""00000"")"
^DD(2100,3000,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3000,"DT")="2900917"
^DD(2100,3001,0)="TOTAL INHALATION (02)^NJ4,0O^^SRAMS3;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3001,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3001,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3001,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3001,"DT")="2900514"
^DD(2100,3002,0)="TOTAL INTRAVENOUS (03)^NJ4,0O^^SRAMS3;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3002,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3002,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3002,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3002,"DT")="2900514"
^DD(2100,3003,0)="TOTAL INFILTRATION (04)^NJ4,0O^^SRAMS3;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3003,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3003,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3003,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3003,"DT")="2900514"
^DD(2100,3004,0)="TOTAL FIELD BLOCK (05)^NJ4,0O^^SRAMS3;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3004,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3004,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3004,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3004,"DT")="2900514"
^DD(2100,3005,0)="TOTAL NERVE BLOCK (06)^NJ4,0O^^SRAMS3;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3005,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3005,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3005,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3005,"DT")="2900514"
^DD(2100,3006,0)="TOTAL SPINAL OR EPIDURAL (07)^NJ4,0O^^SRAMS3;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3006,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3006,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3006,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3006,"DT")="2900514"
^DD(2100,3007,0)="TOTAL TOPICAL (08)^NJ4,0O^^SRAMS3;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3007,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3007,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3007,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3007,"DT")="2900514"
^DD(2100,3008,0)="TOTAL RECTAL (09)^NJ4,0O^^SRAMS3;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3008,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3008,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3008,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3008,"DT")="2900514"
^DD(2100,3009,0)="TOTAL OTHER (10)^NJ4,0O^^SRAMS3;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3009,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3009,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3009,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3009,"DT")="2900514"
^DD(2100,3010,0)="SURG, ANES, TOTAL^NJ4,0O^^SRAMS3;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3010,.1)="NUMBER OF ANESTHETICS ADMINISTERED BY ANESTHESIOLOGISTS (11)"
^DD(2100,3010,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3010,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3010,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3010,"DT")="2901010"
^DD(2100,3011,0)="SURG, ANES, # DEATHS^NJ2,0O^^SRAMS3;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3011,.1)="NUMBER OF DEATHS WHEN ADMINISTERED BY ANESTHESIOLOGIST (12)"
^DD(2100,3011,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3011,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3011,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3011,"DT")="2900514"
^DD(2100,3012,0)="SURG, NURSE, TOTAL^NJ4,0O^^SRAMS3;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3012,.1)="NUMBER OF ANESTHETICS ADMINISTERED BY NURSE ANESTHETISTS (13)"
^DD(2100,3012,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3012,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3012,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3012,"DT")="2900517"
^DD(2100,3013,0)="SURG, NURSE, DEATHS^NJ2,0O^^SRAMS3;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3013,.1)="NUMBER OF DEATHS WHEN ADMINISTERED BY NURSE ANESTHETISTS (14)"
^DD(2100,3013,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3013,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3013,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3013,"DT")="2900514"
^DD(2100,3014,0)="SURG, OTHER, TOTAL^NJ4,0O^^SRAMS3;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3014,.1)="NUMBER OF ANESTHETICS ADMINISTERED BY OTHERS (15)"
^DD(2100,3014,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3014,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3014,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3014,"DT")="2900514"
^DD(2100,3015,0)="SURG, OTHER, DEATHS^NJ2,0O^^SRAMS3;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3015,.1)="NUMBER OF DEATHS WHEN ADMINISTERED BY OTHERS (16)"
^DD(2100,3015,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3015,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3015,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3015,"DT")="2900514"
^DD(2100,3016,0)="DIAG, ANES, TOTAL^NJ4,0O^^SRAMS3;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3016,.1)="NUMBER OF ANESTHETICS ADMINISTERED BY ANESTHESIOLOGISTS (17)"
^DD(2100,3016,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3016,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3016,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3016,"DT")="2900514"
^DD(2100,3017,0)="DIAG, ANES, DEATHS^NJ2,0O^^SRAMS3;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3017,.1)="NUMBER OF DEATHS WHEN ADMINISTERED BY ANESTHESIOLOGISTS (18)"
^DD(2100,3017,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3017,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3017,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3017,"DT")="2900514"
^DD(2100,3018,0)="DIAG, NURSE, TOTAL^NJ4,0O^^SRAMS3;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3018,.1)="NUMBER OF ANESTHETICS ADMINISTERED BY NURSE ANESTHETISTS (19)"
^DD(2100,3018,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3018,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3018,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3018,"DT")="2900514"
^DD(2100,3019,0)="DIAG, NURSE, DEATHS^NJ2,0O^^SRAMS3;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3019,.1)="NUMBER OF DEATHS WHEN ADMINISTERED BY NURSE ANESTHETISTS (20)"
^DD(2100,3019,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3019,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3019,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3019,"DT")="2900514"
^DD(2100,3020,0)="DIAG, OTHER, TOTAL^NJ4,0O^^SRAMS3;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3020,.1)="NUMBER OF ANESTHETICS ADMINISTERED BY OTHERS (21)"
^DD(2100,3020,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3020,2.1)="I $D(GECSOT) S Y=$S($L(Y)=4:Y,$L(Y)=3:""0""_Y,$L(Y)=2:""00""_Y,$L(Y)=1:""000""_Y,1:""0000"")"
^DD(2100,3020,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3020,"DT")="2900514"
^DD(2100,3021,0)="DIAG, OTHER, DEATHS^NJ2,0O^^SRAMS3;22^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3021,.1)="NUMBER OF DEATHS WHEN ADMINISTERED BY OTHERS (22)"
^DD(2100,3021,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3021,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3021,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3021,"DT")="2900514"
^DD(2100,3022,0)="TOTAL NUMBER OF DEATHS (23)^NJ3,0O^^SRAMS3;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3022,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:""0""_Y,$L(Y)=1:""00""_Y,1:""000"")"
^DD(2100,3022,2.1)="I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:""0""_Y,$L(Y)=1:""00""_Y,1:""000"")"
^DD(2100,3022,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,3022,"DT")="2900514"
^DD(2100,3023,0)="DEATHS, INHALATION^NJ2,0O^^SRAMS3;24^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3023,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, INHALATION (24)"
^DD(2100,3023,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3023,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3023,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3023,"DT")="2900514"
^DD(2100,3024,0)="DEATHS, IVS^NJ2,0O^^SRAMS3;25^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3024,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, INTRAVENOUS (25)"
^DD(2100,3024,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3024,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3024,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3024,"DT")="2900514"
^DD(2100,3025,0)="DEATHS, INFILTRATION^NJ2,0O^^SRAMS3;26^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3025,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, INFILTRATION (26)"
^DD(2100,3025,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3025,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3025,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3025,"DT")="2900514"
^DD(2100,3026,0)="DEATHS, FIELD^NJ2,0O^^SRAMS3;27^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3026,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, FIELD BLOCK (27)"
^DD(2100,3026,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3026,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3026,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3026,"DT")="2900514"
^DD(2100,3027,0)="DEATHS, NERVE^NJ2,0O^^SRAMS3;28^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3027,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, NERVE BLOCK (28)"
^DD(2100,3027,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3027,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3027,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3027,"DT")="2900514"
^DD(2100,3028,0)="DEATHS, SPINAL^NJ2,0O^^SRAMS3;29^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3028,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, SPINAL OR EPIDURAL (29)"
^DD(2100,3028,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3028,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3028,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3028,"DT")="2900514"
^DD(2100,3029,0)="DEATHS, TOPICAL^NJ2,0O^^SRAMS3;30^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3029,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, TOPICAL (30)"
^DD(2100,3029,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3029,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3029,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3029,"DT")="2900514"
^DD(2100,3030,0)="DEATHS, RECTAL^NJ2,0O^^SRAMS3;31^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3030,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, RECTAL (31)"
^DD(2100,3030,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3030,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3030,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3030,"DT")="2900514"
^DD(2100,3031,0)="DEATHS, OTHER^NJ2,0O^^SRAMS3;32^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3031,.1)="DEATHS WITH PRINCIPAL TECHNIQUE, OTHER (32)"
^DD(2100,3031,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3031,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3031,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3031,"DT")="2900514"
^DD(2100,3032,0)="ANES CAUSE DEATH, DEFINITE^NJ2,0O^^SRAMS3;33^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3032,.1)="DEATHS IN WHICH ANESTHETICS DEFINITELY CONTRIBUTED (33)"
^DD(2100,3032,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3032,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3032,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3032,"DT")="2900514"
^DD(2100,3033,0)="ANES CAUSE DEATH, MAYBE^NJ2,0O^^SRAMS3;34^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3033,.1)="DEATHS IN WHICH ANESTHETICS POSSIBLY CONTRIBUTED (034)"
^DD(2100,3033,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3033,2.1)="I $D(GECSOT) S Y=$S($L(Y)=2:Y,$L(Y)=1:""0""_Y,1:""00"")"
^DD(2100,3033,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3033,"DT")="2900514"
^DD(2100,3034,0)="ANES CAUSE DEATH, NO WAY JOSE^NJ3,0O^^SRAMS3;35^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3034,.1)="DEATHS IN WHICH ANESTHETICS DID NOT CONTRIBUTE (35)"
^DD(2100,3034,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:""0""_Y,$L(Y)=1:""00""_Y,1:""000"")"
^DD(2100,3034,2.1)="I $D(GECSOT) S Y=$S($L(Y)=3:Y,$L(Y)=2:""0""_Y,$L(Y)=1:""00""_Y,1:""000"")"
^DD(2100,3034,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,3034,"DT")="2900524"
^DD(2100,3100,0)="UNIT DOSES ADMIN 01^NJ8,0O^^PSGAMS3;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3100,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,3100,2.1)="I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,3100,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(2100,3100,"DT")="2900514"
^DD(2100,3101,0)="AVG COST PER DOSE 02^NJ3,0O^^PSGAMS3;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3101,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,3101,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,3101,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,3101,"DT")="2900524"
^DD(2100,3102,0)="WARD STOCK 03^NJ8,0^^PSGAMS3;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3102,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,3102,2.1)="I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,3102,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(2100,3102,"DT")="2900511"
^DD(2100,3103,0)="AUTO REPLENISHMENT 04^NJ8,0^^PSGAMS3;4^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3103,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,3103,2.1)="I $D(GECSOT) S Y=$E(""00000000"",$L(Y)+1,8)_Y"
^DD(2100,3103,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(2100,3103,"DT")="2900511"
^DD(2100,3104,0)="AVG COST PER DOSE 05^NJ3,0^^PSGAMS3;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3104,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,3104,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,3104,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,3104,"DT")="2900511"
^DD(2100,3105,0)="WARD STOCK 06^NJ6,0^^PSGAMS3;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3105,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3105,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3105,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3105,"DT")="2900511"
^DD(2100,3106,0)="AUTO REPLENISHMENT 07^NJ7,0^^PSGAMS3;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3106,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3106,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3106,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,3106,"DT")="2900511"
^DD(2100,3107,0)="AVG COST PER UNIT 08^NJ4,0^^PSGAMS3;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3107,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3107,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3107,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3107,"DT")="2900511"
^DD(2100,3108,0)="TOTAL NUMBER 09^NJ5,0^^PSGAMS3;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3108,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3108,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3108,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3108,"DT")="2900511"
^DD(2100,3109,0)="AVERAGE COST 10^NJ4,0^^PSGAMS3;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3109,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3109,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3109,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3109,"DT")="2900511"
^DD(2100,3110,0)="ADMIXTURES 11^NJ6,0^^PSGAMS3;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3110,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3110,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3110,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3110,"DT")="2900511"
^DD(2100,3111,0)="AVG UNIT COST 12^NJ4,0^^PSGAMS3;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3111,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3111,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3111,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3111,"DT")="2900511"
^DD(2100,3112,0)="PIGGY BACKS 13^NJ6,0^^PSGAMS3;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3112,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3112,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3112,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3112,"DT")="2900511"
^DD(2100,3113,0)="AVG UNIT COST 14^NJ4,0^^PSGAMS3;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3113,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3113,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3113,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3113,"DT")="2900511"
^DD(2100,3114,0)="HYPERAL FLUIDS 15^NJ5,0^^PSGAMS3;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3114,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3114,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3114,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3114,"DT")="2900511"
^DD(2100,3115,0)="AVG UNIT COST 16^NJ4,0^^PSGAMS3;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3115,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3115,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3115,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3115,"DT")="2900511"
^DD(2100,3116,0)="FLUIDS AND ADMIN SETS 17^NJ7,0^^PSGAMS3;17^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3116,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3116,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3116,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,3116,"DT")="2900511"
^DD(2100,3117,0)="AVG UNIT COST 18^NJ4,0^^PSGAMS3;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3117,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3117,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3117,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3117,"DT")="2900511"
^DD(2100,3118,0)="CONTROLLED SUBS ORDERS 19^NJ4,0^^PSGAMS3;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3118,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3118,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3118,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3118,"DT")="2900511"
^DD(2100,3119,0)="AVG UNIT COST 20^NJ4,0O^^PSGAMS3;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3119,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3119,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3119,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3119,"DT")="2940818"
^DD(2100,3120,0)="REGULAR 21^NJ6,0^^PSGAMS3;21^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3120,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3120,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3120,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3120,"DT")="2900511"
^DD(2100,3121,0)="OVERTIME 22^NJ5,0^^PSGAMS3;22^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3121,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3121,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3121,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3121,"DT")="2900511"
^DD(2100,3122,0)="REGULAR 23^NJ6,0^^PSGAMS3;23^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3122,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3122,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3122,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3122,"DT")="2900511"
^DD(2100,3123,0)="OVERTIME 24^NJ5,0^^PSGAMS3;24^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3123,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3123,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3123,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3123,"DT")="2900511"
^DD(2100,3201,0)="OUTPT SERVICE CONNECTED 001^NJ6,0^^PSAMS3A;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3201,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3201,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3201,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3201,"DT")="2900514"
^DD(2100,3202,0)="A&A HOUSEBOUND 002^NJ6,0^^PSAMS3A;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3202,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3202,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3202,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3202,"DT")="2900514"
^DD(2100,3203,0)="ALL OTHER 003^NJ6,0^^PSAMS3A;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3203,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3203,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3203,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3203,"DT")="2900514"
^DD(2100,3204,0)="METHADONE 004^NJ6,0^^PSAMS3A;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3204,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3204,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3204,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3204,"DT")="2900514"
^DD(2100,3205,0)="MEDICATION REQUESTS 005^NJ6,0^^PSAMS3A;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3205,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3205,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3205,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3205,"DT")="2900514"
^DD(2100,3206,0)="FEE BASIS 006^NJ6,0^^PSAMS3A;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3206,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3206,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3206,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3206,"DT")="2900514"
^DD(2100,3207,0)="STAFF 007^NJ6,0^^PSAMS3A;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3207,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3207,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3207,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3207,"DT")="2900514"
^DD(2100,3208,0)="NEW 008^NJ6,0^^PSAMS3A;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3208,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3208,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3208,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3208,"DT")="2900514"
^DD(2100,3209,0)="REFILL 009^NJ6,0^^PSAMS3A;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3209,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3209,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3209,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3209,"DT")="2900514"
^DD(2100,3210,0)="WINDOW 010^NJ6,0^^PSAMS3A;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3210,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3210,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3210,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3210,"DT")="2900514"
^DD(2100,3211,0)="MAILOUT 011^NJ6,0^^PSAMS3A;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3211,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3211,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3211,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3211,"DT")="2900514"
^DD(2100,3212,0)="AVG RX INGREDIENT COST 012^NJ4,0^^PSAMS3A;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3212,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3212,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3212,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3212,"DT")="2900514"
^DD(2100,3213,0)="REGULAR 013^NJ6,0^^PSAMS3A;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3213,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3213,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3213,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3213,"DT")="2900514"
^DD(2100,3214,0)="OVERTIME 014^NJ5,0^^PSAMS3A;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3214,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3214,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3214,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3214,"DT")="2900514"
^DD(2100,3215,0)="REGULAR 015^NJ6,0^^PSAMS3A;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3215,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3215,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3215,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3215,"DT")="2900514"
^DD(2100,3216,0)="OVERTIME 016^NJ5,0^^PSAMS3A;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3216,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3216,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3216,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3216,"DT")="2900514"
^DD(2100,3217,0)="TOTAL # OF RXs 017^NJ6,0^^PSAMS3A;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3217,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3217,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3217,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3217,"DT")="2900514"
^DD(2100,3218,0)="TOTAL COST OF RXs 018^NJ7,0^^PSAMS3A;18^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3218,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3218,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3218,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,3218,"DT")="2900514"
^DD(2100,3219,0)="MEDICATION 019^NJ9,0^^PSAMS3A;19^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3219,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000000"",$L(Y)+1,9)_Y"
^DD(2100,3219,2.1)="I $D(GECSOT) S Y=$E(""000000000"",$L(Y)+1,9)_Y"
^DD(2100,3219,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2100,3219,"DT")="2900514"
^DD(2100,3220,0)="MEDICAL SUPPLIES 020^NJ7,0^^PSAMS3A;20^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3220,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3220,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,3220,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,3220,"DT")="2900514"
^DD(2100,3221,0)="OTHER SUPPLIES 021^NJ6,0^^PSAMS3A;21^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3221,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3221,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3221,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3221,"DT")="2900514"
^DD(2100,3222,0)="BLOOD FRACT & REL PDCTS 022^NJ6,0^^PSAMS3A;22^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3222,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3222,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3222,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3222,"DT")="2900514"
^DD(2100,3223,0)="RESIDENTS & INTERNS 023^NJ6,0^^PSAMS3A;23^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3223,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3223,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3223,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3223,"DT")="2900514"
^DD(2100,3224,0)="OTHER EDUCATIONAL 024^NJ6,0^^PSAMS3A;24^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3224,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3224,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3224,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3224,"DT")="2900514"
^DD(2100,3225,0)="VOL SERVICE 025^NJ6,0^^PSAMS3A;25^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3225,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3225,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3225,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3225,"DT")="2900514"
^DD(2100,3226,0)="OTH PTNT ORIENT ACT 026^NJ6,0^^PSAMS3A;26^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3226,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3226,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,3226,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,3226,"DT")="2900514"
^DD(2100,3227,0)="INV PROTOCOLS 027^NJ3,0^^PSAMS3A;27^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3227,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,3227,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,3227,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,3227,"DT")="2900514"
^DD(2100,3228,0)="INVESTIG DRUG RXs 028^NJ5,0^^PSAMS3A;28^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3228,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3228,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,3228,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,3228,"DT")="2900514"
^DD(2100,3500,0)="LESS THAN 25 (001)^NJ2,0O^^SOWKAM257;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3500,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3500,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3500,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3500,"DT")="2900514"
^DD(2100,3501,0)="25-34 (002)^NJ2,0^^SOWKAM257;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3501,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3501,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3501,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3502,0)="35-44 (003)^NJ2,0^^SOWKAM257;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3502,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3502,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3502,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3503,0)="45-55 (004)^NJ2,0O^^SOWKAM257;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3503,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3503,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3503,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3503,"DT")="2900917"
^DD(2100,3504,0)="56-64 (005)^NJ2,0^^SOWKAM257;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3504,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3504,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3504,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3505,0)="65-74 (006)^NJ2,0^^SOWKAM257;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3505,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3505,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3505,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3506,0)="75-84 (007)^NJ2,0^^SOWKAM257;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3506,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3506,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3506,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3507,0)="85 & UP (008)^NJ2,0^^SOWKAM257;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3507,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3507,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3507,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3508,0)="TO INDIVIDUAL LIVING (009)^NJ2,0^^SOWKAM257;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3508,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3508,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3508,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3509,0)="TO HOSPITAL (010)^NJ2,0^^SOWKAM257;10^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3509,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3509,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3509,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3510,0)="OTHER INSTITUTION CARE (011)^NJ2,0^^SOWKAM257;11^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3510,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3510,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3510,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3511,0)="DEATH (012)^NJ2,0^^SOWKAM257;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3511,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3511,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3511,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3512,0)="LESS THAN 1 YR. (013)^NJ4,0O^^SOWKAM257;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3512,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3512,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3512,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3512,"DT")="2900525"
^DD(2100,3513,0)="1-2 (014)^NJ4,0O^^SOWKAM257;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3513,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3513,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3513,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3513,"DT")="2900525"
^DD(2100,3514,0)="3-5 YRS (015)^NJ4,0O^^SOWKAM257;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3514,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3514,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3514,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3514,"DT")="2900525"
^DD(2100,3515,0)="OVER 5 YRS. (016)^NJ4,0O^^SOWKAM257;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3515,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3515,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3515,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3515,"DT")="2910201"
^DD(2100,3516,0)="LESS THAN 25 (017)^NJ2,0O^^SOWKAM257;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3516,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3516,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3516,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3516,"DT")="2910306"
^DD(2100,3517,0)="25-34 (018)^NJ2,0^^SOWKAM257;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3517,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3517,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3517,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3518,0)="35-44 (019)^NJ2,0^^SOWKAM257;19^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3518,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3518,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3518,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3519,0)="45-54 (020)^NJ2,0^^SOWKAM257;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3519,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3519,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3519,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3520,0)="55-64 (021)^NJ2,0^^SOWKAM257;21^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3520,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3520,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3520,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3521,0)="65-74 (022)^NJ2,0^^SOWKAM257;22^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3521,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3521,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3521,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3522,0)="75-84 (023)^NJ2,0^^SOWKAM257;23^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3522,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3522,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3522,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3523,0)="85 & UP (024)^NJ2,0^^SOWKAM257;24^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3523,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3523,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3523,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3524,0)="TO INDIVIDUAL LIVING (025)^NJ2,0^^SOWKAM257;25^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3524,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3524,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3524,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3525,0)="TO HOSPITAL (026)^NJ2,0^^SOWKAM257;26^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3525,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3525,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3525,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3526,0)="OTHER INSTITUTION CARE (027)^NJ2,0^^SOWKAM257;27^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3526,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3526,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3526,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3527,0)="DEATH (028)^NJ2,0^^SOWKAM257;28^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3527,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3527,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3527,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3528,0)="LESS THAN 1 YR. (029)^NJ4,0O^^SOWKAM257A;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3528,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3528,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3528,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3528,"DT")="2900514"
^DD(2100,3529,0)="1-2 YRS. (030)^NJ4,0^^SOWKAM257A;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3529,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3529,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3529,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3530,0)="3-5 YRS. (031)^NJ4,0^^SOWKAM257A;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3530,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3530,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3530,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3531,0)="OVER 5 YRS. (032)^NJ4,0^^SOWKAM257A;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3531,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3531,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3531,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3532,0)="LESS THAN 25 (033)^NJ2,0^^SOWKAM257A;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3532,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3532,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3532,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3532,"DT")="2900514"
^DD(2100,3533,0)="25-34 (034)^NJ2,0^^SOWKAM257A;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3533,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3533,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3533,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3534,0)="35-44 (035)^NJ2,0^^SOWKAM257A;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3534,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3534,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3534,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3535,0)="45-54 (036)^NJ2,0^^SOWKAM257A;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3535,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3535,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3535,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3536,0)="55-64 (037)^NJ2,0^^SOWKAM257A;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3536,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3536,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3536,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3537,0)="65-74 (038)^NJ2,0^^SOWKAM257A;10^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3537,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3537,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3537,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3538,0)="75-84 (039)^NJ2,0^^SOWKAM257A;11^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3538,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3538,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3538,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3539,0)="85 & OVER (040)^NJ2,0^^SOWKAM257A;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3539,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3539,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3539,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3540,0)="TO INDIVIDUAL LIVING (041)^NJ2,0^^SOWKAM257A;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3540,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3540,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3540,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3540,"DT")="2900514"
^DD(2100,3541,0)="TO HOSPITAL (042)^NJ2,0^^SOWKAM257A;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3541,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3541,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3541,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3542,0)="OTHER INSTITUTION CARE (043)^NJ2,0^^SOWKAM257A;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3542,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3542,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3542,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3543,0)="DEATH (044)^NJ2,0^^SOWKAM257A;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3543,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3543,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3543,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3544,0)="LESS THAN 1 YR. (045)^NJ4,0^^SOWKAM257A;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3544,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3544,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3544,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3544,"DT")="2900514"
^DD(2100,3545,0)="1-2 YRS. (046)^NJ4,0^^SOWKAM257A;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3545,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3545,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3545,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3546,0)="3-5 YRS. (047)^NJ4,0^^SOWKAM257A;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3546,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3546,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3546,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3547,0)="OVER 5 YRS. (048)^NJ4,0^^SOWKAM257A;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3547,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3547,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3547,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3548,0)="LESS THAN 25 (049)^NJ2,0^^SOWKAM257A;21^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3548,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3548,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3548,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3548,"DT")="2900514"
^DD(2100,3549,0)="25-34 (050)^NJ2,0^^SOWKAM257A;22^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3549,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3549,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3549,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3550,0)="35-44 (051)^NJ2,0^^SOWKAM257A;23^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3550,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3550,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3550,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3551,0)="45-54 (052)^NJ2,0^^SOWKAM257A;24^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3551,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3551,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3551,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3552,0)="55-64 (053)^NJ2,0^^SOWKAM257A;25^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3552,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3552,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3552,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3553,0)="65-74 (054)^NJ2,0^^SOWKAM257B;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3553,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3553,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3553,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3554,0)="75-84 (055)^NJ2,0^^SOWKAM257B;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3554,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3554,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3554,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3555,0)="85 & UP (056)^NJ2,0^^SOWKAM257B;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3555,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3555,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3555,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3556,0)="TO INDIVIDUAL LIVING (057)^NJ2,0^^SOWKAM257B;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3556,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3556,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3556,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3556,"DT")="2900514"
^DD(2100,3557,0)="TO HOSPITAL (058)^NJ2,0^^SOWKAM257B;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3557,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3557,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3557,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3558,0)="OTHER INSTITUTION CARE (059)^NJ2,0^^SOWKAM257B;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3558,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3558,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3558,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3559,0)="DEATH (060)^NJ2,0^^SOWKAM257B;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3559,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3559,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3559,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3560,0)="LESS THAN 1 YR. (061)^NJ4,0^^SOWKAM257B;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3560,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3560,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3560,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3560,"DT")="2900514"
^DD(2100,3561,0)="1-2 YRS (062)^NJ4,0^^SOWKAM257B;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3561,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3561,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3561,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3562,0)="3-5 YRS (063)^NJ4,0^^SOWKAM257B;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3562,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3562,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3562,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3563,0)="OVER 5 YRS. (064)^NJ4,0^^SOWKAM257B;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3563,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3563,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3563,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3564,0)="LESS THAN 25 (065)^NJ2,0^^SOWKAM257B;12^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3564,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3564,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3564,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3564,"DT")="2900514"
^DD(2100,3565,0)="25-34 (066)^NJ2,0^^SOWKAM257B;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3565,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3565,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3565,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3565,"DT")="2900514"
^DD(2100,3566,0)="35-44 (067)^NJ2,0^^SOWKAM257B;14^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3566,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3566,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3566,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3566,"DT")="2900514"
^DD(2100,3567,0)="45-54 (068)^NJ2,0^^SOWKAM257B;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3567,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3567,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3567,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3567,"DT")="2900514"
^DD(2100,3568,0)="55-64 (069)^NJ2,0^^SOWKAM257B;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3568,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3568,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3568,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3568,"DT")="2900514"
^DD(2100,3569,0)="65-74 (070)^NJ2,0^^SOWKAM257B;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3569,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3569,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3569,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3569,"DT")="2900514"
^DD(2100,3570,0)="75-84 (071)^NJ2,0^^SOWKAM257B;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3570,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3570,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3570,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3570,"DT")="2900514"
^DD(2100,3571,0)="85 & UP (072)^NJ2,0^^SOWKAM257B;19^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3571,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3571,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3571,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3572,0)="TO INDIVIDUAL LIVING (073)^NJ2,0^^SOWKAM257B;20^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3572,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3572,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3572,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3573,0)="TO HOSPITAL (074)^NJ2,0^^SOWKAM257B;21^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3573,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3573,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3573,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3574,0)="OTHER INSTITUTION CARE (075)^NJ2,0^^SOWKAM257B;22^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3574,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3574,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3574,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3575,0)="DEATH (076)^NJ2,0^^SOWKAM257B;23^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3575,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3575,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,3575,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,3576,0)="LESS THAN 1 YR. (077)^NJ4,0^^SOWKAM257B;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3576,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3576,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3576,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3576,"DT")="2900514"
^DD(2100,3577,0)="1-2 YRS. (078)^NJ4,0^^SOWKAM257B;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3577,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3577,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3577,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3578,0)="3-5 YRS (079)^NJ4,0^^SOWKAM257B;26^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3578,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3578,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3578,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3579,0)="OVER 5 YRS. (080)^NJ4,0^^SOWKAM257C;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3579,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3579,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3579,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3580,0)="HOSPITAL (081)^NJ4,0^^SOWKAM257C;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3580,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3580,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3580,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3581,0)="NHCU (082)^NJ4,0^^SOWKAM257C;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3581,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3581,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3581,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3582,0)="CNH (083)^NJ4,0^^SOWKAM257C;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3582,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3582,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3582,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3583,0)="VA DOM (084)^NJ4,0^^SOWKAM257C;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3583,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3583,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3583,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3584,0)="COMM. (085)^NJ4,0^^SOWKAM257C;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3584,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3584,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3584,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3585,0)="OTHER (086)^NJ4,0^^SOWKAM257C;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3585,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3585,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3585,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3586,0)="1-3 BEDS (001)^NJ4,0^^SOWKAM257C;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3586,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3586,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3586,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3587,0)="4-6 BEDS (002)^NJ4,0^^SOWKAM257C;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3587,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3587,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3587,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3588,0)="7-15 (003)^NJ4,0^^SOWKAM257C;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3588,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3588,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3588,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3589,0)="16-25 (004)^NJ4,0^^SOWKAM257C;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3589,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3589,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3589,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3590,0)="OVER 25 BEDS (005)^NJ4,0^^SOWKAM257C;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3590,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3590,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3590,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3591,0)="MEDICAL/SURGICAL (006)^NJ4,0^^SOWKAM257C;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3591,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3591,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3591,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3592,0)="PSYCHOSIS/NEUROSIS (007)^NJ4,0^^SOWKAM257C;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3592,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3592,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3592,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3593,0)="ORGANIC & SENILE DISEASE (008)^NJ4,0^^SOWKAM257C;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3593,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3593,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3593,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3594,0)="SUBSTANCE ABUSE (009)^NJ4,0^^SOWKAM257C;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3594,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3594,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3594,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3595,0)="ALL OTHER (010)^NJ4,0^^SOWKAM257C;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3595,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3595,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3595,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3596,0)="NSC (011)^NJ4,0^^SOWKAM257C;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3596,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3596,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3596,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3597,0)="LESS THAN 50% (012)^NJ4,0^^SOWKAM257C;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3597,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3597,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3597,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3598,0)="50% OR MORE SC (013)^NJ4,0^^SOWKAM257C;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3598,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3598,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3598,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3599,0)="VETERANS INCOMP. (014)^NJ4,0^^SOWKAM257C;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3599,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3599,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3599,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3600,0)="VETERANS COMPETENT (015)^NJ4,0^^SOWKAM257C;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3600,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3600,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3600,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3601,0)="GAINS (001)^NJ4,0^^SOWKAM361;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3601,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3601,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3601,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3601,"DT")="2900521"
^DD(2100,3602,0)="TREATMENT GOAL ACHIEVED (002)^NJ4,0^^SOWKAM361;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3602,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3602,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3602,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3603,0)="REHOSPITALIZATION (003)^NJ4,0^^SOWKAM361;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3603,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3603,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3603,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3604,0)="DEATHS IN HOME (004)^NJ4,0^^SOWKAM361;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3604,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3604,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3604,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3605,0)="OTHER LOSSES (005)^NJ4,0^^SOWKAM361;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3605,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3605,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3605,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3606,0)="REMAINING HBHC PATIENTS (006)^NJ4,0^^SOWKAM361;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3606,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3606,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3606,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3607,0)="PATIENT DAYS OF CARE (007)^NJ7,0O^^SOWKAM361;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3607,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,4)_Y"
^DD(2100,3607,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,4)_Y"
^DD(2100,3607,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,3607,"DT")="2900622"
^DD(2100,3608,0)="S.C. (008)^NJ4,0^^SOWKAM361;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3608,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3608,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3608,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3609,0)="N.S.C. (009)^NJ4,0^^SOWKAM361;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3609,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3609,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3609,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3610,0)="# REC. OF A&A BENEFITS (010)^NJ4,0^^SOWKAM361;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3610,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3610,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3610,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3611,0)="S.C. (011)^NJ4,0^^SOWKAM361;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3611,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3611,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3611,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3612,0)="N.S.C. (012)^NJ4,0^^SOWKAM361;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3612,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3612,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3612,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3613,0)="PHYSICIAN (013)^NJ4,0^^SOWKAM361;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3613,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3613,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3613,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3614,0)="RN (014)^NJ4,0^^SOWKAM361;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3614,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3614,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3614,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3615,0)="LPN (015)^NJ4,0^^SOWKAM361;15^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3615,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3615,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3615,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3616,0)="DIETITIAN (016)^NJ4,0^^SOWKAM361;16^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3616,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3616,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3616,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3617,0)="SOCIAL WORKER (017)^NJ4,0^^SOWKAM361;17^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3617,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3617,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3617,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3618,0)="RMS (018)^NJ4,0^^SOWKAM361;18^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3618,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3618,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3618,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3619,0)="HOME HEALTH AIDE (019)^NJ4,0^^SOWKAM361;19^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3619,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3619,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3619,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3620,0)="STUDENTS (020)^NJ4,0^^SOWKAM361;20^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3620,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3620,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3620,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3621,0)="OTHERS (021)^NJ4,0^^SOWKAM361;21^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3621,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3621,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3621,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3622,0)="PHYSICIAN (022)^NJ4,0^^SOWKAM361;22^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3622,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3622,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3622,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3623,0)="RN (023)^NJ4,0^^SOWKAM361;23^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3623,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3623,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3623,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3624,0)="LPN (024)^NJ4,0^^SOWKAM361;24^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3624,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3624,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3624,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3625,0)="DIETITIAN (025)^NJ4,0^^SOWKAM361;25^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3625,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3625,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3625,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3626,0)="SOCIAL WORKER (026)^NJ4,0^^SOWKAM361A;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3626,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3626,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3626,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3627,0)="RMS (027)^NJ4,0^^SOWKAM361A;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3627,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3627,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3627,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3628,0)="HOME HEALTH AIDE (028)^NJ4,0^^SOWKAM361A;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3628,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3628,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3628,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3629,0)="STUDENTS (029)^NJ4,0^^SOWKAM361A;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3629,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3629,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3629,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,3630,0)="OTHER (030)^NJ4,0^^SOWKAM361A;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,3630,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3630,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,3630,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4000,0)="DATE OF POSITION VACANCY^DXO^^GECOPER4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X Q:'$D(X)  S X=$E(X,4,7)_$E(X,2,3)"
^DD(2100,4000,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4000,2.1)="I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4000,21,0)="^^1^1^2901009^"
^DD(2100,4000,21,1,0)="This is the date of the position vacancy in the format of 'mmddyy'."
^DD(2100,4000,"DT")="2901009"
^DD(2100,4001,0)="SUPERVISORY LEVEL^FO^^GECOPER4;2^K:$L(X)>1!($L(X)<1)!'(X?1AN) X"
^DD(2100,4001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4001,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4001,3)="Answer must be 1 character in length."
^DD(2100,4001,21,0)="^^1^1^2901009^^"
^DD(2100,4001,21,1,0)="This is the code for the level of supervision this position provides."
^DD(2100,4001,"DT")="2901009"
^DD(2100,4002,0)="POSITION NUMBER^FO^^GECOPER4;3^K:$L(X)>6!($L(X)<1)!'(X?1.6AN) X"
^DD(2100,4002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y S:Y=""000000"" Y=""      """
^DD(2100,4002,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y S:Y=""000000"" Y=""      """
^DD(2100,4002,3)="Answer must be 1-6 characters in length."
^DD(2100,4002,21,0)="^^1^1^2901009^^"
^DD(2100,4002,21,1,0)="This is the station defined position number."
^DD(2100,4002,"DT")="2901009"
^DD(2100,4003,0)="FLSA^SO^E:EXEMPT;N:NON-EXEMPT;^GECOPER4;4^Q"
^DD(2100,4003,.1)="FAIR LABOR STANDARDS ACT"
^DD(2100,4003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4003,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4003,21,0)="^^2^2^2901009^^"
^DD(2100,4003,21,1,0)="This is the code which indicates if the position is exempt from the"
^DD(2100,4003,21,2,0)="Fair Labor Standards Act."
^DD(2100,4003,"DT")="2901009"
^DD(2100,4004,0)="FUNCTIONAL CODE^FO^^GECOPER4;5^K:$L(X)>1!($L(X)<1)!'(X?1AN) X"
^DD(2100,4004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4004,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4004,3)="Answer must be 1 character in length."
^DD(2100,4004,21,0)="^^2^2^2901009^"
^DD(2100,4004,21,1,0)="This field indicates the primary functions of scientific (including"
^DD(2100,4004,21,2,0)="Title 38) and engineering positions."
^DD(2100,4004,"DT")="2901009"
^DD(2100,4005,0)="PAY PLAN^FO^^GECOPER4;6^K:$L(X)>1!($L(X)<1)!'(X?1AN) X"
^DD(2100,4005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4005,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4005,3)="Answer must be 1 character in length."
^DD(2100,4005,21,0)="^^1^1^2901009^^^^"
^DD(2100,4005,21,1,0)="This is the one character code which identifies the pay category (e.g. 'A')."
^DD(2100,4005,"DT")="2901009"
^DD(2100,4006,0)="OCCUPATIONAL SERIES & TITLE^FOX^^GECOPER4;7^K:$L(X)>6!($L(X)<6)!'(X?5N1AN) X"
^DD(2100,4006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4006,2.1)="I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4006,3)="Answer must be 5 digits and 1 alpha OR 6 digits in length."
^DD(2100,4006,21,0)="^^2^2^2901009^"
^DD(2100,4006,21,1,0)="The first four digits represent the occupational series. The fifth and"
^DD(2100,4006,21,2,0)="sixth digits identify the position title."
^DD(2100,4006,"DT")="2910128"
^DD(2100,4007,0)="GRADE^FO^^GECOPER4;8^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4007,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4007,3)="Answer must be 1-2 digits in length."
^DD(2100,4007,21,0)="^^1^1^2901009^"
^DD(2100,4007,21,1,0)="This field indicates the grade level."
^DD(2100,4007,"DT")="2901009"
^DD(2100,4008,0)="ORGANIZATION & COST CENTER^FO^^GECOPER4;9^K:$L(X)>8!($L(X)<8)!'(X?8N) X"
^DD(2100,4008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""        "",$L(Y)+1,8)_Y"
^DD(2100,4008,2.1)="I $D(GECSOT) S Y=$E(""        "",$L(Y)+1,8)_Y"
^DD(2100,4008,3)="Answer must be 8 digits in length."
^DD(2100,4008,21,0)="^^2^2^2901009^"
^DD(2100,4008,21,1,0)="The first 4 digits represent the COST CENTER and the last 4 digits"
^DD(2100,4008,21,2,0)="represent the ORGANIZATION."
^DD(2100,4008,"DT")="2901009"
^DD(2100,4009,0)="DUTY BASIS^SO^1:FULL-TIME;2:PART-TIME;3:INTERMITTENT;^GECOPER4;10^Q"
^DD(2100,4009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4009,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4009,21,0)="^^2^2^2901009^"
^DD(2100,4009,21,1,0)="This field contains the code which identifies the position as full/part-"
^DD(2100,4009,21,2,0)="time or intermittent."
^DD(2100,4009,"DT")="2901009"
^DD(2100,4010,0)="DUTY STATION^FO^^GECOPER4;11^K:$L(X)>1!($L(X)<1)!'(X?1AN) X"
^DD(2100,4010,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4010,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4010,3)="Answer must be 1 character in length."
^DD(2100,4010,21,0)="^^1^1^2901009^"
^DD(2100,4010,21,1,0)="This field contains the code for the duty station."
^DD(2100,4010,"DT")="2901009"
^DD(2100,4011,0)="NUMBER OF VACANCIES^NJ2,0O^^GECOPER4;12^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4011,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4011,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2100,4011,21,0)="^^1^1^2901009^"
^DD(2100,4011,21,1,0)="This is the number of vacancies for this position."
^DD(2100,4011,"DT")="2901009"
^DD(2100,4012,0)="GRADE OF POSITION-2^FO^^GECOPER4;13^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4012,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4012,3)="Answer must be 1-2 digits in length."
^DD(2100,4012,21,0)="^^1^1^2901009^^"
^DD(2100,4012,21,1,0)="This is a target grade for this position."
^DD(2100,4012,"DT")="2901009"
^DD(2100,4013,0)="GRADE OF POSITION-3^FO^^GECOPER4;14^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4013,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4013,3)="Answer must be 1-2 digits in length."
^DD(2100,4013,21,0)="^^1^1^2901009^^"
^DD(2100,4013,21,1,0)="This is a target grade for this position."
^DD(2100,4013,"DT")="2901009"
^DD(2100,4014,0)="GRADE OF POSITION-4^FO^^GECOPER4;15^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4014,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:Y=""00"" Y=""  """
^DD(2100,4014,3)="Answer must be 1-2 digits in length."
^DD(2100,4014,21,0)="^^1^1^2901009^"
^DD(2100,4014,21,1,0)="This is a target grade for this position."
^DD(2100,4014,"DT")="2901009"
^DD(2100,4015,0)="ASSIGNMENT CODE^FO^^GECOPER4;16^K:$L(X)>2!($L(X)<2)!'(X?2AN) X"
^DD(2100,4015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4015,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4015,3)="Answer must be 2 characters in length."
^DD(2100,4015,21,0)="^^1^1^2901009^"
^DD(2100,4015,21,1,0)="This is the code for the specialty area of the position."
^DD(2100,4015,"DT")="2901009"
^DD(2100,4016,0)="PAY PLAN ^FO^^GECOPER4;17^K:$L(X)>2!($L(X)<2)!'(X?2A) X"
^DD(2100,4016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4016,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4016,3)="Answer must be 2 characters in length."
^DD(2100,4016,21,0)="^^1^1^2901009^^"
^DD(2100,4016,21,1,0)="This is the two letter code which identifies the pay category (e.g. 'GS')."
^DD(2100,4016,"DT")="2901009"
^DD(2100,4017,0)="HOURLY RATE^NJ5,2O^^GECOPER4;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99.99)!(X<3.8) X"
^DD(2100,4017,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""0000"" Y=""    """
^DD(2100,4017,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""0000"" Y=""    """
^DD(2100,4017,3)="Type a Dollar Amount between 3.8 and 99.99, 2 Decimal Digits"
^DD(2100,4017,21,0)="^^1^1^2901009^"
^DD(2100,4017,21,1,0)="This field indicates the hourly rate for wage vacancies."
^DD(2100,4017,"DT")="2901009"
^DD(2100,4018,0)="VA ONLY^SO^1:CURRENT VA EMPLOYEES ONLY;^GECOPER4;19^Q"
^DD(2100,4018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4018,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4018,21,0)="^^2^2^2901009^"
^DD(2100,4018,21,1,0)="This field indicates if applications are invited from current VA"
^DD(2100,4018,21,2,0)="employees only."
^DD(2100,4018,"DT")="2901009"
^DD(2100,4019,0)="CHIEF OR ASST CHIEF^SO^C:CHIEF OF SERVICE POSITION;A:ASSISTANT CHIEF OF SERVICE POSITION;^GECOPER4;20^Q"
^DD(2100,4019,.1)="CHIEF OR ASSISTANT CHIEF PHYSICIAN & DENTIST VACANCIES"
^DD(2100,4019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4019,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4019,21,0)="^^2^2^2901009^"
^DD(2100,4019,21,1,0)="This field indicates if a physician or dentist assignment is for a"
^DD(2100,4019,21,2,0)="service or assistant service chief."
^DD(2100,4019,"DT")="2901009"
^DD(2100,4020,0)="PART-TIME POSITION^SO^1:PART-TIME;^GECOPER4;21^Q"
^DD(2100,4020,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4020,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4020,21,0)="^^1^1^2901009^"
^DD(2100,4020,21,1,0)="This field indicates if the position is part-time."
^DD(2100,4020,"DT")="2901009"
^DD(2100,4021,0)="RESERVED-1^FO^^GECOPER4;22^K:$L(X)>1!($L(X)<1) X"
^DD(2100,4021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4021,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4021,3)="Answer must be 1 character in length."
^DD(2100,4021,"DT")="2901010"
^DD(2100,4141.001,0)="PROTESTANT CENSUS^NJ4,0O^^A4CGAMS4A;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.001,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.001,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.001,21,0)="^^1^1^2900420^^^^"
^DD(2100,4141.001,21,1,0)="The Protestant census as of the last day of the report period."
^DD(2100,4141.001,"DT")="2900419"
^DD(2100,4141.002,0)="CATHOLIC CENSUS^NJ4,0O^^A4CGAMS4A;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.002,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.002,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.002,21,0)="^^1^1^2900420^^^^"
^DD(2100,4141.002,21,1,0)="The Catholic census as of the last day of the report period."
^DD(2100,4141.002,"DT")="2900419"
^DD(2100,4141.003,0)="JEWISH CENSUS^NJ3,0O^^A4CGAMS4A;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.003,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.003,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.003,21,0)="^^1^1^2900420^^^^"
^DD(2100,4141.003,21,1,0)="The Jewish census as of the last day of the report period."
^DD(2100,4141.003,"DT")="2900419"
^DD(2100,4141.004,0)="EASTERN ORTHODOX CENSUS^NJ3,0O^^A4CGAMS4A;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.004,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.004,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.004,21,0)="^^1^1^2900420^^^^"
^DD(2100,4141.004,21,1,0)="The Eastern Orthodox census as of the last day of the report period."
^DD(2100,4141.004,"DT")="2900419"
^DD(2100,4141.005,0)="CENSUS (OTHER)^NJ3,0O^^A4CGAMS4A;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.005,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.005,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.005,21,0)="^^2^2^2900420^^^^"
^DD(2100,4141.005,21,1,0)="The census of all other religious denominations as of the last day"
^DD(2100,4141.005,21,2,0)="of the report period."
^DD(2100,4141.005,"DT")="2900419"
^DD(2100,4141.006,0)="CENSUS (NO PREFERENCE)^NJ3,0O^^A4CGAMS4A;6^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.006,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.006,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.006,21,0)="^^2^2^2900420^^^^"
^DD(2100,4141.006,21,1,0)="The census of all patients and persons as of the last day of the"
^DD(2100,4141.006,21,2,0)="report period who have no religious preference."
^DD(2100,4141.006,"DT")="2900419"
^DD(2100,4141.007,0)="PROTESTANT CONTRACT CHAPLAINS^NJ2,0O^^A4CGAMS4A;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.007,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.007,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.007,21,0)="^^2^2^2900420^^^^"
^DD(2100,4141.007,21,1,0)="The number of Protestant contract chaplains who provided services"
^DD(2100,4141.007,21,2,0)="during the period."
^DD(2100,4141.007,"DT")="2900419"
^DD(2100,4141.008,0)="CATHOLIC CONTRACT CHAPLAINS^NJ2,0O^^A4CGAMS4A;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.008,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.008,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.008,21,0)="^^2^2^2900420^^^^"
^DD(2100,4141.008,21,1,0)="The number of Catholic contract chaplains who provided services"
^DD(2100,4141.008,21,2,0)="during the period."
^DD(2100,4141.008,"DT")="2900419"
^DD(2100,4141.009,0)="JEWISH CONTRACT CHAPLAINS^NJ2,0O^^A4CGAMS4A;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.009,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.009,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.009,21,0)="^^2^2^2900420^^^^"
^DD(2100,4141.009,21,1,0)="The number of Jewish contract chaplains who provided services"
^DD(2100,4141.009,21,2,0)="during the period."
^DD(2100,4141.009,"DT")="2900419"
^DD(2100,4141.01,0)="E ORTHODOX CONTRACT CHAPLAINS^NJ2,0O^^A4CGAMS4A;10^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.01,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.01,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.01,21,0)="^^2^2^2900420^^^^"
^DD(2100,4141.01,21,1,0)="The number of Eastern Orthodox contract chaplains who provided"
^DD(2100,4141.01,21,2,0)="services during the period."
^DD(2100,4141.01,"DT")="2900419"
^DD(2100,4141.011,0)="PROTESTANT CONTRACT $'S^NJ5,0O^^A4CGAMS4A;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.011,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.011,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.011,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.011,21,1,0)="The total dollars paid out to contract chaplains during the period"
^DD(2100,4141.011,21,2,0)="for Protestant services."
^DD(2100,4141.011,"DT")="2900419"
^DD(2100,4141.012,0)="CATHOLIC CONTRACT $'S^NJ5,0O^^A4CGAMS4A;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.012,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.012,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.012,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.012,21,1,0)="The total dollars paid out to contract chaplains during the period"
^DD(2100,4141.012,21,2,0)="for Catholic services."
^DD(2100,4141.012,"DT")="2900419"
^DD(2100,4141.013,0)="JEWISH CONTRACT $'S^NJ5,0O^^A4CGAMS4A;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.013,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.013,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.013,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.013,21,1,0)="The total dollars paid out to contract chaplains during the period"
^DD(2100,4141.013,21,2,0)="for Jewish services."
^DD(2100,4141.013,"DT")="2900419"
^DD(2100,4141.014,0)="E ORTHODOX CONTRACT $'S^NJ5,0O^^A4CGAMS4A;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.014,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.014,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.014,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.014,21,1,0)="The total dollars paid out to contract chaplains during the period"
^DD(2100,4141.014,21,2,0)="for Eastern Orthodox services."
^DD(2100,4141.014,"DT")="2900419"
^DD(2100,4141.015,0)="PROTESTANT FEE BASIS^NJ2,0O^^A4CGAMS4A;15^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.015,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.015,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.015,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.015,21,1,0)="The number of Protestant chaplains who provided services on a"
^DD(2100,4141.015,21,2,0)="fee basis during the period."
^DD(2100,4141.015,"DT")="2900419"
^DD(2100,4141.016,0)="CATHOLIC FEE BASIS^NJ2,0O^^A4CGAMS4A;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.016,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.016,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.016,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.016,21,1,0)="The number of Catholic chaplains who provided services on a fee"
^DD(2100,4141.016,21,2,0)="basis during the period."
^DD(2100,4141.016,"DT")="2900419"
^DD(2100,4141.017,0)="JEWISH FEE BASIS^NJ2,0O^^A4CGAMS4A;17^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.017,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.017,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.017,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.017,21,1,0)="The number of Jewish chaplains who provided services on a fee basis"
^DD(2100,4141.017,21,2,0)="during the period."
^DD(2100,4141.017,"DT")="2900419"
^DD(2100,4141.018,0)="E ORTHODOX FEE BASIS^NJ2,0O^^A4CGAMS4A;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.018,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.018,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4141.018,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.018,21,1,0)="The number of Eastern Orthodox chaplains who provided services on a"
^DD(2100,4141.018,21,2,0)="fee basis during the period."
^DD(2100,4141.018,"DT")="2900419"
^DD(2100,4141.019,0)="PROTESTANT FEE BASIS $'S^NJ5,0O^^A4CGAMS4A;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.019,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.019,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.019,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.019,21,1,0)="The total dollars paid out to fee basis chaplains during the period"
^DD(2100,4141.019,21,2,0)="for Protestant services."
^DD(2100,4141.019,"DT")="2900419"
^DD(2100,4141.02,0)="CATHOLIC FEE BASIS $'S^NJ5,0O^^A4CGAMS4A;20^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.02,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.02,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.02,21,1,0)="The total dollars paid out to fee basis chaplains during the period"
^DD(2100,4141.02,21,2,0)="for Catholic services."
^DD(2100,4141.02,"DT")="2900419"
^DD(2100,4141.021,0)="JEWISH FEE BASIS $'S^NJ5,0O^^A4CGAMS4A;21^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.021,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.021,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.021,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.021,21,1,0)="The total dollars paid out to fee basis chaplains during the period"
^DD(2100,4141.021,21,2,0)="for Jewish services."
^DD(2100,4141.021,"DT")="2900419"
^DD(2100,4141.022,0)="E ORTHODOX FEE BASIS $'S^NJ5,0O^^A4CGAMS4A;22^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.022,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.022,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.022,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.022,21,1,0)="The total dollars paid out to fee basis chaplains during the period"
^DD(2100,4141.022,21,2,0)="for Eastern Orthodox services."
^DD(2100,4141.022,"DT")="2900419"
^DD(2100,4141.023,0)="FULL TIME CHAPLAINS^NJ3,0O^^A4CGAMS4A;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.023,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.023,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.023,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.023,21,1,0)="The number of full-time chaplains during the period who provided"
^DD(2100,4141.023,21,2,0)="services."
^DD(2100,4141.023,"DT")="2900419"
^DD(2100,4141.024,0)="PART TIME CHAPLAINS^NJ3,0O^^A4CGAMS4A;24^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.024,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.024,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.024,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.024,21,1,0)="The number of part-time chaplains during the period who provided"
^DD(2100,4141.024,21,2,0)="services."
^DD(2100,4141.024,"DT")="2900419"
^DD(2100,4141.025,0)="INTERMITTENT CHAPLAINS^NJ3,0O^^A4CGAMS4A;25^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.025,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.025,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.025,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.025,21,1,0)="The number of intermittent chaplains during the period who provided"
^DD(2100,4141.025,21,2,0)="services."
^DD(2100,4141.025,"DT")="2900419"
^DD(2100,4141.026,0)="PROTESTANT CHAPLAINS^NJ3,0O^^A4CGAMS4A;26^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.026,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.026,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.026,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.026,21,1,0)="The total number of Protestant chaplains who provided services during"
^DD(2100,4141.026,21,2,0)="the period."
^DD(2100,4141.026,"DT")="2900419"
^DD(2100,4141.027,0)="CATHOLIC CHAPLAINS^NJ3,0O^^A4CGAMS4A;27^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.027,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.027,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.027,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.027,21,1,0)="The total number of Catholic chaplains who provided services during"
^DD(2100,4141.027,21,2,0)="the period."
^DD(2100,4141.027,"DT")="2900419"
^DD(2100,4141.028,0)="JEWISH CHAPLAINS^NJ3,0O^^A4CGAMS4A;28^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.028,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.028,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.028,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.028,21,1,0)="The total number of Jewish chaplains who provided services during"
^DD(2100,4141.028,21,2,0)="the period."
^DD(2100,4141.028,"DT")="2900419"
^DD(2100,4141.029,0)="E ORTHODOX CHAPLAINS^NJ3,0O^^A4CGAMS4A;29^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.029,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.029,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.029,21,0)="^^2^2^2900420^^^"
^DD(2100,4141.029,21,1,0)="The total number of Eastern Orthodox chaplains who provided services"
^DD(2100,4141.029,21,2,0)="during the period."
^DD(2100,4141.029,"DT")="2900419"
^DD(2100,4141.03,0)="RELIGIOUS SERVICES (TIMES)^NJ4,0O^^A4CGAMS4A;30^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.03,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.03,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.03,21,0)="^^3^3^2900420^^^"
^DD(2100,4141.03,21,1,0)="The number of times regularly established worship services and masses"
^DD(2100,4141.03,21,2,0)="were held in the chapel, chapel room, ward, or day room. Jewish chaplains"
^DD(2100,4141.03,21,3,0)="will include yahrseit minyon."
^DD(2100,4141.03,"DT")="2900419"
^DD(2100,4141.031,0)="RELIGIOUS SERVICES (PERSONS)^NJ6,0O^^A4CGAMS4A;31^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.031,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.031,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4141.031,21,0)="^^3^3^2900420^^"
^DD(2100,4141.031,21,1,0)="The number of persons attending regularly established worship services"
^DD(2100,4141.031,21,2,0)="and masses in the chapel, chapel room, ward, or day room. Jewish"
^DD(2100,4141.031,21,3,0)="chaplains will include yahrseit minyon."
^DD(2100,4141.031,"DT")="2900419"
^DD(2100,4141.032,0)="GROUP MEETINGS (TIMES)^NJ4,0O^^A4CGAMS4A;32^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.032,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.032,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.032,21,0)="^^2^2^2900420^^"
^DD(2100,4141.032,21,1,0)="The number of group meetings devoted to religious education, Bible"
^DD(2100,4141.032,21,2,0)="class, and religious instructions and discussions."
^DD(2100,4141.032,"DT")="2900419"
^DD(2100,4141.033,0)="GROUP MEETINGS (PERSONS)^NJ6,0O^^A4CGAMS4A;33^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.033,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.033,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4141.033,21,0)="^^2^2^2900420^^"
^DD(2100,4141.033,21,1,0)="The number of persons attending group meetings devoted to religious"
^DD(2100,4141.033,21,2,0)="education, Bible class, and religious instructions and discussions."
^DD(2100,4141.033,"DT")="2900419"
^DD(2100,4141.034,0)="HOLY COMMUNION (CHAPEL)^NJ5,0O^^A4CGAMS4A;34^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.034,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.034,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.034,21,0)="^^1^1^2900420^^"
^DD(2100,4141.034,21,1,0)="The total number of communions distributed in the chapel."
^DD(2100,4141.034,"DT")="2900419"
^DD(2100,4141.035,0)="HOLY COMMUNION (BEDSIDE)^NJ5,0O^^A4CGAMS4A;35^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.035,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.035,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.035,21,0)="^^1^1^2900420^^"
^DD(2100,4141.035,21,1,0)="The total number of communions distributed at bedside."
^DD(2100,4141.035,"DT")="2900419"
^DD(2100,4141.036,0)="CONFESSIONS^NJ4,0O^^A4CGAMS4A;36^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.036,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.036,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.036,21,0)="^^1^1^2900420^^"
^DD(2100,4141.036,21,1,0)="The number of confessions heard."
^DD(2100,4141.036,"DT")="2900419"
^DD(2100,4141.037,0)="MINISTRY TO DYING^NJ4,0O^^A4CGAMS4A;37^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.037,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.037,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.037,21,0)="^^2^2^2900420^^"
^DD(2100,4141.037,21,1,0)="All ministry to the dying or Sacraments of the sick. Jewish chaplains"
^DD(2100,4141.037,21,2,0)="will report Vidui (confession) prayers in this field."
^DD(2100,4141.037,"DT")="2900419"
^DD(2100,4141.038,0)="EMERGENCY CALLS^NJ4,0O^^A4CGAMS4A;38^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.038,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.038,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.038,21,0)="^^2^2^2900420^^"
^DD(2100,4141.038,21,1,0)="The number of emergency calls of all types conducted outside of"
^DD(2100,4141.038,21,2,0)="duty hours."
^DD(2100,4141.038,"DT")="2900419"
^DD(2100,4141.039,0)="VISITS TO SERIOUSLY ILL^NJ5,0O^^A4CGAMS4A;39^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.039,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.039,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.039,21,0)="^^1^1^2900420^^"
^DD(2100,4141.039,21,1,0)="The number of visits made to seriously ill patients."
^DD(2100,4141.039,"DT")="2900419"
^DD(2100,4141.04,0)="VISITS TO NEWLY ADMITTED^NJ5,0O^^A4CGAMS4A;40^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.04,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.04,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.04,21,0)="^^1^1^2900420^^"
^DD(2100,4141.04,21,1,0)="The number of initial visits to newly admitted patients."
^DD(2100,4141.04,"DT")="2900419"
^DD(2100,4141.041,0)="PRE & POST SURGERY VISITS^NJ5,0O^^A4CGAMS4A;41^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.041,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.041,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.041,21,0)="^^1^1^2900420^^"
^DD(2100,4141.041,21,1,0)="The number of visits made to pre- and post-surgery patients."
^DD(2100,4141.041,"DT")="2900419"
^DD(2100,4141.042,0)="PATIENT/RELATIVE CONSULTATIONS^NJ5,0O^^A4CGAMS4A;42^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.042,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.042,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.042,21,0)="^^2^2^2900420^^"
^DD(2100,4141.042,21,1,0)="The number of consultations of all types with patients and relatives"
^DD(2100,4141.042,21,2,0)="of patients."
^DD(2100,4141.042,"DT")="2900419"
^DD(2100,4141.043,0)="CONSULTATIONS W/STAFF^NJ5,0O^^A4CGAMS4A;43^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.043,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.043,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.043,21,0)="^^1^1^2900420^^"
^DD(2100,4141.043,21,1,0)="The number of times staff members were consulted about patients."
^DD(2100,4141.043,"DT")="2900419"
^DD(2100,4141.044,0)="FUNERALS (SERVICES)^NJ5,0O^^A4CGAMS4A;44^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.044,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.044,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.044,21,0)="^^1^1^2900727^^^^"
^DD(2100,4141.044,21,1,0)="The number of Funeral Services which were a part of official duty."
^DD(2100,4141.044,"DT")="2900419"
^DD(2100,4141.045,0)="FUNERALS (ATTENDANCE)^NJ5,0O^^A4CGAMS4A;45^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.045,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.045,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.045,21,0)="^^1^1^2900727^^^^"
^DD(2100,4141.045,21,1,0)="The number of people in attendance."
^DD(2100,4141.045,21,2,0)="of funerals."
^DD(2100,4141.045,"DT")="2900419"
^DD(2100,4141.046,0)="AMBULATORY CARE (PERSONS)^NJ6,0O^^A4CGAMS4A;46^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.046,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.046,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4141.046,21,0)="^^2^2^2900420^^"
^DD(2100,4141.046,21,1,0)="The number of non-hospitalized, ambulatory care patients who were"
^DD(2100,4141.046,21,2,0)="visited by the chaplain."
^DD(2100,4141.046,"DT")="2900419"
^DD(2100,4141.047,0)="RADIO & TV (TIMES)^NJ4,0O^^A4CGAMS4A;47^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.047,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.047,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.047,21,0)="^^1^1^2900420^^"
^DD(2100,4141.047,21,1,0)="The number of times religious radio and TV programs were given."
^DD(2100,4141.047,"DT")="2900419"
^DD(2100,4141.048,0)="USE OF VISUAL AIDS (TIMES)^NJ4,0O^^A4CGAMS4A;48^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.048,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.048,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.048,21,0)="^^2^2^2900420^^"
^DD(2100,4141.048,21,1,0)="The number of times religious audio and visual aids (other than"
^DD(2100,4141.048,21,2,0)="radio and TV) were used. These include cassettes, records, etc."
^DD(2100,4141.048,"DT")="2900419"
^DD(2100,4141.049,0)="ORIENTATION LECTURES^NJ4,0O^^A4CGAMS4A;49^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.049,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.049,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.049,21,0)="^^2^2^2900420^^"
^DD(2100,4141.049,21,1,0)="The number of orientation lectures to interns, residents, nurses"
^DD(2100,4141.049,21,2,0)="and allother staff disciplines."
^DD(2100,4141.049,"DT")="2900419"
^DD(2100,4141.05,0)="STAFF MEETINGS^NJ4,0O^^A4CGAMS4A;50^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.05,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.05,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.05,21,0)="^^2^2^2900420^^"
^DD(2100,4141.05,21,1,0)="The number of administrative and multi-disciplinary staff meetings"
^DD(2100,4141.05,21,2,0)="attended."
^DD(2100,4141.05,"DT")="2900419"
^DD(2100,4141.051,0)="MENTAL HEALTH CARE MEETINGS^NJ4,0O^^A4CGAMS4A;51^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.051,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.051,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.051,21,0)="^^3^3^2900420^^"
^DD(2100,4141.051,21,1,0)="The number of group meetings of all types with mental health care"
^DD(2100,4141.051,21,2,0)="patients which were attended by a chaplain (e.g., group therapy,"
^DD(2100,4141.051,21,3,0)="orientation lectures, patient government)."
^DD(2100,4141.051,"DT")="2900419"
^DD(2100,4141.052,0)="SERVICES BY VISITING CLERGY^NJ3,0O^^A4CGAMS4B;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.052,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4141.052,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4141.052,21,0)="^^1^1^2900420^^"
^DD(2100,4141.052,21,1,0)="The number of services of all types provided by visiting clergy."
^DD(2100,4141.052,"DT")="2900419"
^DD(2100,4141.053,0)="VOLUNTEERS (PERSONS)^NJ4,0O^^A4CGAMS4B;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.053,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.053,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.053,21,0)="^^2^2^2900420^^"
^DD(2100,4141.053,21,1,0)="The number of different volunteers who worked on activities for"
^DD(2100,4141.053,21,2,0)="Chaplain Service."
^DD(2100,4141.053,"DT")="2900419"
^DD(2100,4141.054,0)="VOLUNTEER (HOURS)^NJ6,0O^^A4CGAMS4B;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.054,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4141.054,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4141.054,21,0)="^^1^1^2900420^^"
^DD(2100,4141.054,21,1,0)="The number of hours worked by volunteers."
^DD(2100,4141.054,"DT")="2900419"
^DD(2100,4141.055,0)="REGULAR VISITATIONS^NJ5,0O^^A4CGAMS4B;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.055,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.055,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.055,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.055,21,0)="^^1^1^2900420^^"
^DD(2100,4141.055,21,1,0)="The number of regular pastoral visits to patients."
^DD(2100,4141.055,"DT")="2900419"
^DD(2100,4141.056,0)="OUTPATIENTS SEEN (TIMES)^NJ5,0O^^A4CGAMS4B;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.056,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.056,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.056,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.056,21,0)="^^2^2^2900430^^^^"
^DD(2100,4141.056,21,1,0)="The number of times outpatients were seen by a chaplain on a one-to-"
^DD(2100,4141.056,21,2,0)="one basis."
^DD(2100,4141.056,"DT")="2900419"
^DD(2100,4141.057,0)="MENTAL HEALTH SETTING^NJ4,0O^^A4CGAMS4V;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.057,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.057,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.057,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.057,21,0)="^^1^1^2900730^^"
^DD(2100,4141.057,21,1,0)="Pastoral counseling conducted in or with a mental health setting."
^DD(2100,4141.057,"DT")="2900727"
^DD(2100,4141.058,0)="POST TRAUMATIC STRESS^NJ4,0O^^A4CGAMS4V;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.058,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.058,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.058,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.058,21,0)="^^1^1^2900730^^^"
^DD(2100,4141.058,21,1,0)="The number of patients with Post Traumatic Stress Disorders seen."
^DD(2100,4141.058,"DT")="2900727"
^DD(2100,4141.059,0)="AIDS/HIV^NJ4,0O^^A4CGAMS4V;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.059,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.059,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.059,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.059,21,0)="^^1^1^2900727^^"
^DD(2100,4141.059,21,1,0)="The number of patients counseled."
^DD(2100,4141.059,"DT")="2900727"
^DD(2100,4141.06,0)="SUBSTANCE ABUSE^NJ4,0O^^A4CGAMS4V;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.06,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.06,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.06,21,0)="^^1^1^2900727^"
^DD(2100,4141.06,21,1,0)="The number of patients counseled."
^DD(2100,4141.06,"DT")="2900727"
^DD(2100,4141.061,0)="HOMELESS^NJ4,0O^^A4CGAMS4V;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.061,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.061,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.061,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.061,21,0)="^^1^1^2900727^"
^DD(2100,4141.061,21,1,0)="The number of homeless seen, counseled or helped by chaplains."
^DD(2100,4141.061,"DT")="2900727"
^DD(2100,4141.062,0)="BEREAVEMENT^NJ4,0O^^A4CGAMS4V;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.062,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.062,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.062,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.062,21,0)="^^1^1^2900727^"
^DD(2100,4141.062,21,1,0)="The number of persons counseled either one-on-one or in a group."
^DD(2100,4141.062,"DT")="2900727"
^DD(2100,4141.063,0)="ONCOLOGY^NJ4,0O^^A4CGAMS4V;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.063,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.063,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.063,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.063,21,0)="^^1^1^2900727^"
^DD(2100,4141.063,21,1,0)="The number of patients counseled in this field."
^DD(2100,4141.063,"DT")="2900727"
^DD(2100,4141.064,0)="PERSON ABUSE^NJ4,0O^^A4CGAMS4V;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.064,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.064,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.064,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.064,21,0)="^^1^1^2900727^"
^DD(2100,4141.064,21,1,0)="The number of persons counseled."
^DD(2100,4141.064,"DT")="2900727"
^DD(2100,4141.065,0)="GERIATRIC^NJ4,0O^^A4CGAMS4V;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.065,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.065,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.065,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.065,21,0)="^^2^2^2900727^"
^DD(2100,4141.065,21,1,0)="All patients seen in extended care, adult day care, nursing home care,"
^DD(2100,4141.065,21,2,0)="GRECC and other aging Veteran activities."
^DD(2100,4141.065,"DT")="2900727"
^DD(2100,4141.066,0)="COLLATERAL VISITS^NJ4,0O^^A4CGAMS4V;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.066,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.066,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.066,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.066,21,0)="^^2^2^2900727^"
^DD(2100,4141.066,21,1,0)="The number of visits that qualify under the definition of a collateral"
^DD(2100,4141.066,21,2,0)="visit."
^DD(2100,4141.066,"DT")="2900727"
^DD(2100,4141.067,0)="VETS CENTER^NJ4,0O^^A4CGAMS4V;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.067,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.067,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.067,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.067,21,0)="^^2^2^2900727^"
^DD(2100,4141.067,21,1,0)="The total number of veterans and staff seen while visiting local"
^DD(2100,4141.067,21,2,0)="veterans centers."
^DD(2100,4141.067,"DT")="2900727"
^DD(2100,4141.068,0)="MGMT COMMITTEE (HRS TRAIN)^NJ4,0O^^A4CGAMS4V;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.068,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.068,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.068,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.068,21,0)="^^1^1^2900727^"
^DD(2100,4141.068,21,1,0)="The number of hours spent in class or on-the-job training."
^DD(2100,4141.068,"DT")="2900727"
^DD(2100,4141.069,0)="MGMT COMMITTEE (HRS SPENT)^NJ4,0O^^A4CGAMS4V;13^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.069,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.069,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4141.069,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4141.069,21,0)="^^2^2^2900727^"
^DD(2100,4141.069,21,1,0)="The number of hours spent serving on management committees."
^DD(2100,4141.069,21,2,0)="Include both clinical and administrative management."
^DD(2100,4141.069,"DT")="2900727"
^DD(2100,4141.07,0)="MULTI-DISCIPLINARY^NJ5,0O^^A4CGAMS4V;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4141.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.07,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4141.07,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4141.07,21,0)="^^2^2^2900730^^"
^DD(2100,4141.07,21,1,0)="The number of team meetings the chaplains attended during the"
^DD(2100,4141.07,21,2,0)="reporting period."
^DD(2100,4141.07,"DT")="2900730"
^DD(2100,4141.071,0)="ETHIC COMMITTEE CHAIRMAN^NJ1,0O^^A4CGAMS4V;15^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4141.071,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.071,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.071,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(2100,4141.071,21,0)="^^1^1^2900730^^^"
^DD(2100,4141.071,21,1,0)="Enter '1' if you served as a chairman on an ethic committee."
^DD(2100,4141.071,"DT")="2900727"
^DD(2100,4141.072,0)="ETHIC COMMITTEE MEMBER^NJ1,0O^^A4CGAMS4V;16^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4141.072,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.072,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4141.072,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(2100,4141.072,21,0)="^^1^1^2900730^^^^"
^DD(2100,4141.072,21,1,0)="Enter '1' if you served as a member of an ethic committee."
^DD(2100,4141.072,"DT")="2900727"
^DD(2100,4142.01,0)="CHAPEL OFFERINGS (PROTESTANT)^NJ7,2O^^A4CGAMS4C;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.01,.1)="CHAPEL OFFERINGS RECEIPTS (PROTESTANT)"
^DD(2100,4142.01,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.01,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.01,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.01,21,0)="^^1^1^2900427^^^^"
^DD(2100,4142.01,21,1,0)="All receipts from chapel offerings to the Protestant Chaplain's Fund."
^DD(2100,4142.01,"DT")="2900427"
^DD(2100,4142.02,0)="OTHER DONATIONS (PROTESTANT)^NJ7,2O^^A4CGAMS4C;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.02,.1)="OTHER DONATIONS RECEIPTS (PROTESTANT)"
^DD(2100,4142.02,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.02,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.02,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.02,21,0)="^^2^2^2900423^^^"
^DD(2100,4142.02,21,1,0)="All receipts from other donations (non-chapel offerings) to the"
^DD(2100,4142.02,21,2,0)="Protestant Chaplain's Fund."
^DD(2100,4142.02,"DT")="2900427"
^DD(2100,4142.03,0)="SUPPLIES/EQUIP (PROTESTANT)^NJ7,2O^^A4CGAMS4C;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.03,.1)="SUPPLIES/EQUIP DISBURSEMENTS (PROTESTANT)"
^DD(2100,4142.03,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.03,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.03,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.03,21,0)="^^2^2^2900423^^^"
^DD(2100,4142.03,21,1,0)="All monies spent on supplies, equipment, etc, from the Protestant"
^DD(2100,4142.03,21,2,0)="Chaplain's Fund."
^DD(2100,4142.03,"DT")="2900427"
^DD(2100,4142.04,0)="CONTRIBUTIONS (PROTESTANT)^NJ7,2O^^A4CGAMS4C;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.04,.1)="CONTRIBUTIONS DISBURSEMENTS (PROTESTANT)"
^DD(2100,4142.04,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.04,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.04,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.04,21,0)="^^2^2^2900423^^^"
^DD(2100,4142.04,21,1,0)="All monies contributed to institutions, organizations, etc, from"
^DD(2100,4142.04,21,2,0)="the Protestant Chaplain's Fund."
^DD(2100,4142.04,"DT")="2900427"
^DD(2100,4142.05,0)="HONORARIA (PROTESTANT)^NJ7,2O^^A4CGAMS4C;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.05,.1)="HONORARIA DISBURSEMENTS (PROTESTANT)"
^DD(2100,4142.05,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.05,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.05,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.05,21,0)="^^1^1^2900423^^^"
^DD(2100,4142.05,21,1,0)="All monies used as honoraria from the Protestant Chaplain's Fund."
^DD(2100,4142.05,"DT")="2900427"
^DD(2100,4142.06,0)="BALANCE EOP (PROTESTANT)^NJ7,2O^^A4CGAMS4C;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.06,.1)="BALANCE ON HAND EOP (PROTESTANT)"
^DD(2100,4142.06,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.06,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.06,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.06,21,0)="^^2^2^2900420^^"
^DD(2100,4142.06,21,1,0)="The amount remaining in the Protestant Chaplain Fund at the end"
^DD(2100,4142.06,21,2,0)="of the period."
^DD(2100,4142.06,"DT")="2900427"
^DD(2100,4142.07,0)="AUDIT (PROTESTANT)^RNJ1,0^^A4CGAMS4C;7^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4142.07,3)="Enter 1 for YES or 2 for NO."
^DD(2100,4142.07,21,0)="^^2^2^2900423^^^"
^DD(2100,4142.07,21,1,0)="Whether or not the Protestant Chaplain's Fund was audited"
^DD(2100,4142.07,21,2,0)="during the period."
^DD(2100,4142.07,"DT")="2900411"
^DD(2100,4142.08,0)="CHAPEL OFFERINGS (CATHOLIC)^NJ7,2O^^A4CGAMS4C;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.08,.1)="CHAPEL OFFERINGS RECEIPTS (CATHOLIC)"
^DD(2100,4142.08,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.08,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.08,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.08,21,0)="^^1^1^2900420^^"
^DD(2100,4142.08,21,1,0)="All receipts from chapel offerings to the Catholic Chaplain's Fund."
^DD(2100,4142.08,"DT")="2900427"
^DD(2100,4142.09,0)="OTHER DONATIONS (CATHOLIC)^NJ7,2O^^A4CGAMS4C;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.09,.1)="OTHER DONATIONS RECEIPTS (CATHOLIC)"
^DD(2100,4142.09,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.09,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.09,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.09,21,0)="^^2^2^2900420^"
^DD(2100,4142.09,21,1,0)="All receipts from other donations (non-chapel offerings) to the"
^DD(2100,4142.09,21,2,0)="Catholic Chaplain's Fund."
^DD(2100,4142.09,"DT")="2900427"
^DD(2100,4142.1,0)="SUPPLIES/EQUIP (CATHOLIC)^NJ7,2O^^A4CGAMS4C;10^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.1,.1)="SUPPLIES/EQUIP DISBURSEMENTS (CATHOLIC)"
^DD(2100,4142.1,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.1,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.1,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.1,21,0)="^^2^2^2900420^"
^DD(2100,4142.1,21,1,0)="All monies spent on supplies, equipment,...etc from the Catholic"
^DD(2100,4142.1,21,2,0)="Chaplain's Fund"
^DD(2100,4142.1,"DT")="2900427"
^DD(2100,4142.11,0)="CONTRIBUTIONS (CATHOLIC)^NJ7,2O^^A4CGAMS4C;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.11,.1)="CONTRIBUTIONS DISBURSEMENTS (CATHOLIC)"
^DD(2100,4142.11,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.11,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.11,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.11,21,0)="^^2^2^2900420^"
^DD(2100,4142.11,21,1,0)="All monies contributed to institutions, organizations,...etc from"
^DD(2100,4142.11,21,2,0)="the Catholic Chaplain's Fund."
^DD(2100,4142.11,"DT")="2900427"
^DD(2100,4142.12,0)="HONORARIA (CATHOLIC)^NJ7,2O^^A4CGAMS4C;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.12,.1)="HONORARIA DISBURSEMENTS (CATHOLIC)"
^DD(2100,4142.12,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.12,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.12,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.12,21,0)="^^1^1^2900420^"
^DD(2100,4142.12,21,1,0)="All monies used as honoraria from the Catholic Chaplain's Fund."
^DD(2100,4142.12,"DT")="2900427"
^DD(2100,4142.13,0)="BALANCE EOP (CATHOLIC)^NJ7,2O^^A4CGAMS4C;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.13,.1)="BALANCE ON HAND EOP (CATHOLIC)"
^DD(2100,4142.13,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.13,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.13,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.13,21,0)="^^1^1^2900420^"
^DD(2100,4142.13,21,1,0)="The end-of-period amount remaining in the Catholic Chaplain's Fund."
^DD(2100,4142.13,"DT")="2900427"
^DD(2100,4142.14,0)="AUDIT (CATHOLIC)^RNJ1,0^^A4CGAMS4C;14^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4142.14,3)="Enter 1 for YES or 2 for NO."
^DD(2100,4142.14,21,0)="^^2^2^2900423^^"
^DD(2100,4142.14,21,1,0)="Whether or not the Catholic Chaplain's Fund was audited"
^DD(2100,4142.14,21,2,0)="during the period."
^DD(2100,4142.14,"DT")="2900411"
^DD(2100,4142.15,0)="CHAPEL OFFERINGS (JEWISH)^NJ7,2O^^A4CGAMS4C;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.15,.1)="CHAPEL OFFERINGS RECEIPTS (JEWISH)"
^DD(2100,4142.15,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.15,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.15,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.15,21,0)="^^1^1^2900420^"
^DD(2100,4142.15,21,1,0)="All receipts from chapel offerings to the Jewish Chaplain's Fund."
^DD(2100,4142.15,"DT")="2900427"
^DD(2100,4142.16,0)="OTHER DONATIONS (JEWISH)^NJ7,2O^^A4CGAMS4C;16^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.16,.1)="OTHER DONATIONS RECEIPTS (JEWISH)"
^DD(2100,4142.16,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.16,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.16,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.16,21,0)="^^2^2^2900420^"
^DD(2100,4142.16,21,1,0)="All receipts from other donations (non-chapel offerings) to the"
^DD(2100,4142.16,21,2,0)="Jewish Chaplain's Fund."
^DD(2100,4142.16,"DT")="2900427"
^DD(2100,4142.17,0)="SUPPLIES/EQUIP (JEWISH)^NJ7,2O^^A4CGAMS4C;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.17,.1)="SUPPLIES/EQUIP DISBURSEMENTS (JEWISH)"
^DD(2100,4142.17,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.17,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.17,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.17,21,0)="^^2^2^2900420^"
^DD(2100,4142.17,21,1,0)="All monies spent on supplies, equipment,...etc from the Jewish"
^DD(2100,4142.17,21,2,0)="Chaplain's Fund."
^DD(2100,4142.17,"DT")="2900427"
^DD(2100,4142.18,0)="CONTRIBUTIONS (JEWISH)^NJ7,2O^^A4CGAMS4C;18^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.18,.1)="CONTRIBUTIONS DISBURSEMENTS (JEWISH)"
^DD(2100,4142.18,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.18,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.18,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.18,21,0)="^^2^2^2900420^"
^DD(2100,4142.18,21,1,0)="All monies contributed to institutions, organizations,...etc from"
^DD(2100,4142.18,21,2,0)="the Jewish Chaplain's Fund."
^DD(2100,4142.18,"DT")="2900427"
^DD(2100,4142.19,0)="HONORARIA (JEWISH)^NJ7,2O^^A4CGAMS4C;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.19,.1)="HONORARIA DISBURSEMENTS (JEWISH)"
^DD(2100,4142.19,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.19,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.19,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.19,21,0)="^^1^1^2900420^"
^DD(2100,4142.19,21,1,0)="All monies used as honoraria from the Jewish Chaplain's Fund."
^DD(2100,4142.19,"DT")="2900427"
^DD(2100,4142.2,0)="BALANCE EOP (JEWISH)^NJ7,2O^^A4CGAMS4C;20^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.2,.1)="BALANCE ON HAND EOP (JEWISH)"
^DD(2100,4142.2,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.2,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.2,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.2,21,0)="^^1^1^2900420^"
^DD(2100,4142.2,21,1,0)="The end-of-period amount remaining in the Jewish Chaplain's Fund."
^DD(2100,4142.2,"DT")="2900427"
^DD(2100,4142.21,0)="AUDIT (JEWISH)^RNJ1,0^^A4CGAMS4C;21^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4142.21,3)="Enter 1 for YES or 2 for NO."
^DD(2100,4142.21,21,0)="^^2^2^2900420^"
^DD(2100,4142.21,21,1,0)="Whether or not the Jewish Chaplain's Fund was audited during the"
^DD(2100,4142.21,21,2,0)="period."
^DD(2100,4142.21,"DT")="2900411"
^DD(2100,4142.22,0)="CHAPEL OFFERINGS (E ORTHODOX)^NJ7,2O^^A4CGAMS4C;22^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.22,.1)="CHAPEL OFFERINGS RECEIPTS (E ORTHODOX)"
^DD(2100,4142.22,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.22,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.22,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.22,21,0)="^^2^2^2900420^"
^DD(2100,4142.22,21,1,0)="All receipts from chapel offerings to the Eastern Orthodox Chaplain's"
^DD(2100,4142.22,21,2,0)="Fund."
^DD(2100,4142.22,"DT")="2900427"
^DD(2100,4142.23,0)="OTHER DONATIONS (E ORTHODOX)^NJ7,2O^^A4CGAMS4C;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.23,.1)="OTHER DONATIONS RECEIPTS (E ORTHODOX)"
^DD(2100,4142.23,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.23,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.23,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.23,21,0)="^^2^2^2900420^"
^DD(2100,4142.23,21,1,0)="All receipts from other donations (non-chapel offerings) to the"
^DD(2100,4142.23,21,2,0)="Eastern Orthodox Chaplain's Fund."
^DD(2100,4142.23,"DT")="2900427"
^DD(2100,4142.24,0)="SUPPLIES/EQUIP (E ORTHODOX)^NJ7,2O^^A4CGAMS4C;24^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.24,.1)="SUPPLIES/EQUIP DISBURSEMENTS (E ORTHODOX)"
^DD(2100,4142.24,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.24,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.24,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.24,21,0)="^^2^2^2900420^"
^DD(2100,4142.24,21,1,0)="All monies spent on supplies, equipment,...etc from the Eastern"
^DD(2100,4142.24,21,2,0)="Orthodox Chaplain's Fund."
^DD(2100,4142.24,"DT")="2900427"
^DD(2100,4142.25,0)="CONTRIBUTIONS (E ORTHODOX)^NJ7,2O^^A4CGAMS4C;25^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.25,.1)="CONTRIBUTIONS DISBURSEMENTS (E ORTHODOX)"
^DD(2100,4142.25,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.25,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.25,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.25,21,0)="^^2^2^2900420^"
^DD(2100,4142.25,21,1,0)="All monies contributed to institutions, organizations,...etc"
^DD(2100,4142.25,21,2,0)="from the Eastern Orthodox Chaplain's Fund."
^DD(2100,4142.25,"DT")="2900427"
^DD(2100,4142.26,0)="HONORARIA (E ORTHODOX)^NJ7,2O^^A4CGAMS4C;26^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.26,.1)="HONORARIA DISBURSEMENTS (E ORTHODOX)"
^DD(2100,4142.26,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.26,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.26,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.26,21,0)="^^2^2^2900420^"
^DD(2100,4142.26,21,1,0)="All monies used as honoraria from the Eastern Orthodox Chaplain's"
^DD(2100,4142.26,21,2,0)="Fund."
^DD(2100,4142.26,"DT")="2900427"
^DD(2100,4142.27,0)="BALANCE EOP (E ORTHODOX)^NJ7,2O^^A4CGAMS4C;27^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999.99)!(X<0) X"
^DD(2100,4142.27,.1)="BALANCE ON HAND EOP (E ORTHODOX)"
^DD(2100,4142.27,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.27,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$S($L($P(Y,""."",2))=0:Y_""00"",$L($P(Y,""."",2))=1:Y_""0"",1:Y),$P(Y,""."",1)=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4142.27,3)="Type a Dollar Amount between 0 and 9999.99, 2 Decimal Digits"
^DD(2100,4142.27,21,0)="^^2^2^2900420^"
^DD(2100,4142.27,21,1,0)="The end-of-period amount remaining in the Eastern Orthodox Chaplain's"
^DD(2100,4142.27,21,2,0)="Fund."
^DD(2100,4142.27,"DT")="2900427"
^DD(2100,4142.28,0)="AUDIT (E ORTHODOX)^RNJ1,0^^A4CGAMS4C;28^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4142.28,3)="Enter 1 for YES or 2 for NO."
^DD(2100,4142.28,21,0)="^^2^2^2900420^"
^DD(2100,4142.28,21,1,0)="Whether or not the Eastern Orthodox Chaplain's Fund was audited"
^DD(2100,4142.28,21,2,0)="during the period."
^DD(2100,4142.28,"DT")="2900411"
^DD(2100,4165.01,0)="PHOTO I^NJ5,0O^^A4CGAMS4D;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.01,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.01,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.01,21,0)="^^2^2^2900427^^"
^DD(2100,4165.01,21,1,0)="The total number of work units performed for basic photography,"
^DD(2100,4165.01,21,2,0)="black and white or color and copy photography products."
^DD(2100,4165.01,"DT")="2900419"
^DD(2100,4165.02,0)="PHOTO II^NJ5,0O^^A4CGAMS4D;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.02,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.02,21,0)="^^2^2^2900427^^"
^DD(2100,4165.02,21,1,0)="The total number of work units performed for studio, location or"
^DD(2100,4165.02,21,2,0)="small object photography and photomicrography."
^DD(2100,4165.02,"DT")="2900419"
^DD(2100,4165.03,0)="PHOTO III^NJ5,0O^^A4CGAMS4D;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.03,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.03,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.03,21,0)="^^2^2^2900427^^"
^DD(2100,4165.03,21,1,0)="The total number of work units performed for complex and"
^DD(2100,4165.03,21,2,0)="photomicrography."
^DD(2100,4165.03,"DT")="2900419"
^DD(2100,4165.04,0)="PHOTO IV^NJ5,0O^^A4CGAMS4D;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.04,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.04,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.04,21,0)="^^2^2^2900427^^"
^DD(2100,4165.04,21,1,0)="The total number of work units performed for support activities of"
^DD(2100,4165.04,21,2,0)="all photographic functions."
^DD(2100,4165.04,"DT")="2900419"
^DD(2100,4165.05,0)="% PERS COST (PHOTO)^NJ3,0O^^A4CGAMS4D;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.05,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.05,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.05,21,0)="^^1^1^2900427^^"
^DD(2100,4165.05,21,1,0)="The percentage of total personnel costs for the photography section."
^DD(2100,4165.05,"DT")="2900419"
^DD(2100,4165.06,0)="% SUPPLY COST (PHOTO)^NJ3,0O^^A4CGAMS4D;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.06,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.06,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.06,21,0)="^^2^2^2900427^^"
^DD(2100,4165.06,21,1,0)="The percentage of total cost of supplies and services for the"
^DD(2100,4165.06,21,2,0)="photography section."
^DD(2100,4165.06,"DT")="2900419"
^DD(2100,4165.07,0)="% SPACE COST (PHOTO)^NJ3,0O^^A4CGAMS4D;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.07,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.07,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.07,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.07,21,0)="^^1^1^2900427^^"
^DD(2100,4165.07,21,1,0)="The percentage of the total cost of space for the photography section."
^DD(2100,4165.07,"DT")="2900419"
^DD(2100,4165.08,0)="EQUIPMENT COST (PHOTO)^NJ6,0O^^A4CGAMS4D;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.08,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.08,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.08,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.08,21,0)="^^1^1^2900427^^"
^DD(2100,4165.08,21,1,0)="The total acquisition cost for all photographic equipment."
^DD(2100,4165.08,"DT")="2900419"
^DD(2100,4165.09,0)="ILL/GRA I^NJ5,0O^^A4CGAMS4D;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.09,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.09,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.09,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.09,21,0)="^^2^2^2900427^^"
^DD(2100,4165.09,21,1,0)="The total number of work units performed for simple paste-up"
^DD(2100,4165.09,21,2,0)="typesetting, and charts and graphs."
^DD(2100,4165.09,"DT")="2900419"
^DD(2100,4165.1,0)="ILL/GRA II^NJ5,0O^^A4CGAMS4D;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.1,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.1,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.1,21,0)="^^2^2^2900427^^"
^DD(2100,4165.1,21,1,0)="The total number of work units performed for diagrams, simple line"
^DD(2100,4165.1,21,2,0)="drawings, complex charts and graphs, brochures, and displays."
^DD(2100,4165.1,"DT")="2900419"
^DD(2100,4165.11,0)="ILL/GRA III^NJ5,0O^^A4CGAMS4D;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.11,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.11,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.11,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.11,21,0)="^^2^2^2900427^^"
^DD(2100,4165.11,21,1,0)="The total number of work units performed for complex illustration"
^DD(2100,4165.11,21,2,0)="and/or graphics, TV art and major cover designs."
^DD(2100,4165.11,"DT")="2900419"
^DD(2100,4165.12,0)="ILL/GRA IV^NJ5,0O^^A4CGAMS4D;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.12,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.12,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.12,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.12,21,0)="^^2^2^2900427^^"
^DD(2100,4165.12,21,1,0)="The total number of work units performed for support activities"
^DD(2100,4165.12,21,2,0)="for all illustration and graphic functions."
^DD(2100,4165.12,"DT")="2900419"
^DD(2100,4165.13,0)="% PERS COST (ILL/GRA)^NJ3,0O^^A4CGAMS4D;13^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.13,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.13,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.13,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.13,21,0)="^^2^2^2900427^^"
^DD(2100,4165.13,21,1,0)="The percentage of total personnel costs for the illustration/graphics"
^DD(2100,4165.13,21,2,0)="section."
^DD(2100,4165.13,"DT")="2900419"
^DD(2100,4165.14,0)="% SUPPLY COST (ILL/GRA)^NJ3,0O^^A4CGAMS4D;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.14,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.14,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.14,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.14,21,0)="^^2^2^2900427^^"
^DD(2100,4165.14,21,1,0)="The percentage of total cost of supplies and services for the"
^DD(2100,4165.14,21,2,0)="illustration/graphics section."
^DD(2100,4165.14,"DT")="2900419"
^DD(2100,4165.15,0)="% SPACE COST (ILL/GRA)^NJ3,0O^^A4CGAMS4D;15^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.15,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.15,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.15,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.15,21,0)="^^2^2^2900427^^"
^DD(2100,4165.15,21,1,0)="The percentage of total cost of space for the illustration/graphics"
^DD(2100,4165.15,21,2,0)="section."
^DD(2100,4165.15,"DT")="2900419"
^DD(2100,4165.16,0)="EQUIPMENT COST (ILL/GRA)^NJ6,0O^^A4CGAMS4D;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.16,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.16,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.16,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.16,21,0)="^^2^2^2900427^"
^DD(2100,4165.16,21,1,0)="The total acquisition cost for all illustration and graphics"
^DD(2100,4165.16,21,2,0)="equipment."
^DD(2100,4165.16,"DT")="2900419"
^DD(2100,4165.17,0)="CAG I^NJ5,0O^^A4CGAMS4D;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.17,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.17,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.17,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.17,21,0)="^^2^2^2900427^"
^DD(2100,4165.17,21,1,0)="The total number of work units performed for all simple slides"
^DD(2100,4165.17,21,2,0)="generated by computer."
^DD(2100,4165.17,"DT")="2900419"
^DD(2100,4165.18,0)="CAG II^NJ5,0O^^A4CGAMS4D;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.18,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.18,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.18,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.18,21,0)="^^2^2^2900427^"
^DD(2100,4165.18,21,1,0)="The total number of work units performed for chart and graph slides"
^DD(2100,4165.18,21,2,0)="and more complex word slides generated by computer."
^DD(2100,4165.18,"DT")="2900419"
^DD(2100,4165.19,0)="CAG III^NJ5,0O^^A4CGAMS4D;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.19,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.19,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.19,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.19,21,0)="^^2^2^2900427^"
^DD(2100,4165.19,21,1,0)="The total number of work units performed for all original"
^DD(2100,4165.19,21,2,0)="illustration slides that require free hand computer digitizing."
^DD(2100,4165.19,"DT")="2900419"
^DD(2100,4165.2,0)="CAG IV^NJ5,0O^^A4CGAMS4D;20^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.2,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.2,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.2,21,0)="^^2^2^2900430^^"
^DD(2100,4165.2,21,1,0)="The total number of work units performed on all support activities"
^DD(2100,4165.2,21,2,0)="for the computer aided graphics section."
^DD(2100,4165.2,"DT")="2900419"
^DD(2100,4165.21,0)="% PERS COST (CAG)^NJ3,0O^^A4CGAMS4D;21^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.21,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.21,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.21,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.21,21,0)="^^2^2^2900427^"
^DD(2100,4165.21,21,1,0)="The percentage of total personnel costs for the computer aided"
^DD(2100,4165.21,21,2,0)="graphics section."
^DD(2100,4165.21,"DT")="2900419"
^DD(2100,4165.22,0)="% SUPPLY COST (CAG)^NJ3,0O^^A4CGAMS4D;22^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.22,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.22,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.22,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.22,21,0)="^^2^2^2900427^"
^DD(2100,4165.22,21,1,0)="The percentage of total cost of supplies and services for the"
^DD(2100,4165.22,21,2,0)="computer aided graphics section."
^DD(2100,4165.22,"DT")="2900419"
^DD(2100,4165.23,0)="% SPACE COST (CAG)^NJ3,0O^^A4CGAMS4D;23^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.23,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.23,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.23,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.23,21,0)="^^2^2^2900427^"
^DD(2100,4165.23,21,1,0)="The percentage of the total cost of space for the computer aided"
^DD(2100,4165.23,21,2,0)="graphics section."
^DD(2100,4165.23,"DT")="2900419"
^DD(2100,4165.24,0)="EQUIPMENT COST (CAG)^NJ6,0O^^A4CGAMS4D;24^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.24,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.24,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.24,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.24,21,0)="^^1^1^2900427^"
^DD(2100,4165.24,21,1,0)="The total acquisition cost for all computer aided graphics equipment."
^DD(2100,4165.24,"DT")="2900419"
^DD(2100,4165.25,0)="A/V I^NJ5,0O^^A4CGAMS4D;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.25,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.25,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.25,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.25,21,0)="^^2^2^2900427^"
^DD(2100,4165.25,21,1,0)="The total number of minutes spent for motion picture, sound recording,"
^DD(2100,4165.25,21,2,0)="media services activities and level III video notebooking."
^DD(2100,4165.25,"DT")="2900419"
^DD(2100,4165.26,0)="A/V II^NJ5,0O^^A4CGAMS4D;26^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.26,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.26,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.26,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.26,21,0)="^^2^2^2900427^"
^DD(2100,4165.26,21,1,0)="The total number of minutes spent for video production products"
^DD(2100,4165.26,21,2,0)="which will be utilized at the local medical center."
^DD(2100,4165.26,"DT")="2900419"
^DD(2100,4165.27,0)="A/V III^NJ5,0O^^A4CGAMS4D;27^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.27,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.27,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.27,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.27,21,0)="^^3^3^2900427^"
^DD(2100,4165.27,21,1,0)="The total number of minutes spent on those productions which are"
^DD(2100,4165.27,21,2,0)="instructional and/or informational and intended for regional or"
^DD(2100,4165.27,21,3,0)="national distribution."
^DD(2100,4165.27,"DT")="2900419"
^DD(2100,4165.28,0)="A/V IV^NJ5,0O^^A4CGAMS4D;28^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.28,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.28,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.28,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.28,21,0)="^^2^2^2900427^"
^DD(2100,4165.28,21,1,0)="The total number of minutes spent on all support activities for"
^DD(2100,4165.28,21,2,0)="the audiovisual section."
^DD(2100,4165.28,"DT")="2900419"
^DD(2100,4165.29,0)="% PERS COST (A/V)^NJ3,0O^^A4CGAMS4D;29^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.29,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.29,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.29,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.29,21,0)="^^1^1^2900427^"
^DD(2100,4165.29,21,1,0)="The percentage of total personnel costs for the audiovisual section."
^DD(2100,4165.29,"DT")="2900419"
^DD(2100,4165.3,0)="% SUPPLY COST (A/V)^NJ3,0O^^A4CGAMS4D;30^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.3,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.3,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.3,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.3,21,0)="^^2^2^2900427^"
^DD(2100,4165.3,21,1,0)="The percentage of total cost of supplies and services for the"
^DD(2100,4165.3,21,2,0)="audiovisual section."
^DD(2100,4165.3,"DT")="2900419"
^DD(2100,4165.31,0)="% SPACE COST (A/V)^NJ3,0O^^A4CGAMS4D;31^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.31,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.31,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.31,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.31,21,0)="^^2^2^2900427^"
^DD(2100,4165.31,21,1,0)="The percentage of the total cost of space for the audiovisual"
^DD(2100,4165.31,21,2,0)="section."
^DD(2100,4165.31,"DT")="2900419"
^DD(2100,4165.32,0)="EQUIPMENT COST (A/V)^NJ6,0O^^A4CGAMS4D;32^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.32,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.32,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.32,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.32,21,0)="^^1^1^2900427^"
^DD(2100,4165.32,21,1,0)="The total acquisition cost for all audiovisual equipment."
^DD(2100,4165.32,"DT")="2900419"
^DD(2100,4165.33,0)="MISC/ADMIN OPERATIONS^NJ5,0O^^A4CGAMS4D;33^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.33,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.33,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4165.33,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4165.33,21,0)="^^2^2^2900427^"
^DD(2100,4165.33,21,1,0)="The total number of minutes spent on all management, administration"
^DD(2100,4165.33,21,2,0)="and clerical activities."
^DD(2100,4165.33,"DT")="2900419"
^DD(2100,4165.34,0)="% PERS COST (MO/A)^NJ3,0O^^A4CGAMS4D;34^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.34,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.34,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.34,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.34,21,0)="^^2^2^2900427^"
^DD(2100,4165.34,21,1,0)="The percentage of total personnel costs for miscellaneous operations"
^DD(2100,4165.34,21,2,0)="and administration."
^DD(2100,4165.34,"DT")="2900419"
^DD(2100,4165.35,0)="% SUPPLY COST (MO/A)^NJ3,0O^^A4CGAMS4D;35^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.35,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.35,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.35,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.35,21,0)="^^2^2^2900427^"
^DD(2100,4165.35,21,1,0)="The percentage of total cost of supplies and services for miscellaneous"
^DD(2100,4165.35,21,2,0)="operations and administration."
^DD(2100,4165.35,"DT")="2900419"
^DD(2100,4165.36,0)="% SPACE COST (MO/A)^NJ3,0O^^A4CGAMS4D;36^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.36,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.36,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4165.36,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(2100,4165.36,21,0)="^^2^2^2900427^"
^DD(2100,4165.36,21,1,0)="The percentage of the total cost of space for miscellaneous operations"
^DD(2100,4165.36,21,2,0)="and administration."
^DD(2100,4165.36,"DT")="2900419"
^DD(2100,4165.37,0)="EQUIPMENT COST (MO/A)^NJ6,0O^^A4CGAMS4D;37^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.37,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.37,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.37,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.37,21,0)="^^2^2^2900427^"
^DD(2100,4165.37,21,1,0)="The total acquisition cost for all miscellaneous and administrative"
^DD(2100,4165.37,21,2,0)="equipment."
^DD(2100,4165.37,"DT")="2900419"
^DD(2100,4165.38,0)="PERSONNEL (TOTAL COST)^NJ6,0O^^A4CGAMS4D;38^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.38,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.38,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.38,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.38,21,0)="^^1^1^2900427^"
^DD(2100,4165.38,21,1,0)="The total personnel cost for the quarter rounded to the nearest dollar."
^DD(2100,4165.38,"DT")="2900419"
^DD(2100,4165.39,0)="SUPPLIES/SERVICES (TOTAL COST)^NJ6,0O^^A4CGAMS4D;39^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.39,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.39,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.39,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.39,21,0)="^^2^2^2900427^"
^DD(2100,4165.39,21,1,0)="The total cost of supplies and services used by all Medical Media"
^DD(2100,4165.39,21,2,0)="Production activities rounded to the nearest dollar."
^DD(2100,4165.39,"DT")="2900419"
^DD(2100,4165.4,0)="SPACE (TOTAL COST)^NJ6,0O^^A4CGAMS4D;40^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.4,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.4,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4165.4,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4165.4,21,0)="^^1^1^2900427^"
^DD(2100,4165.4,21,1,0)="The total space cost for the quarter rounded to the nearest dollar."
^DD(2100,4165.4,"DT")="2900419"
^DD(2100,4165.41,0)="MEDICAL REQUESTS^NJ2,0O^^A4CGAMS4D;41^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.41,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4165.41,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4165.41,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4165.41,21,0)="^^3^3^2900427^^"
^DD(2100,4165.41,21,1,0)="The percentage of the total number of requests received by Medical"
^DD(2100,4165.41,21,2,0)="Media Production Service for all categories of operations for which"
^DD(2100,4165.41,21,3,0)="the subject of the completed project was medically oriented."
^DD(2100,4165.41,"DT")="2900419"
^DD(2100,4165.42,0)="NON MEDICAL REQUESTS^NJ2,0O^^A4CGAMS4D;42^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.42,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4165.42,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4165.42,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4165.42,21,0)="^^3^3^2900427^"
^DD(2100,4165.42,21,1,0)="The percentage of the total number of requests received by Medical"
^DD(2100,4165.42,21,2,0)="Media Production Service for which the subject of the completed"
^DD(2100,4165.42,21,3,0)="product was not medically oriented."
^DD(2100,4165.42,"DT")="2900419"
^DD(2100,4165.43,0)="RESEARCH REQUESTS^NJ2,0O^^A4CGAMS4D;43^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.43,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4165.43,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4165.43,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4165.43,21,0)="^^3^3^2900427^^"
^DD(2100,4165.43,21,1,0)="The percentage of the total number of requests received by Medical"
^DD(2100,4165.43,21,2,0)="Media Production Service for which the subject of the completed"
^DD(2100,4165.43,21,3,0)="product was research oriented."
^DD(2100,4165.43,"DT")="2900419"
^DD(2100,4165.44,0)="HOURS WORKED (CHIEF)^NJ4,0O^^A4CGAMS4D;44^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.44,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.44,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.44,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.44,21,0)="^^2^2^2900427^"
^DD(2100,4165.44,21,1,0)="The total number of hours worked by the Office of the Chief,"
^DD(2100,4165.44,21,2,0)="Medical Media Service."
^DD(2100,4165.44,"DT")="2900419"
^DD(2100,4165.45,0)="HOURS WORKED (CLERICAL)^NJ4,0O^^A4CGAMS4D;45^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.45,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.45,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.45,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.45,21,0)="^^1^1^2900427^"
^DD(2100,4165.45,21,1,0)="The total number of clerical hours worked."
^DD(2100,4165.45,"DT")="2900419"
^DD(2100,4165.46,0)="HOURS WORKED (VOLUNTEER)^NJ4,0O^^A4CGAMS4D;46^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.46,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.46,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.46,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.46,21,0)="^^1^1^2900427^"
^DD(2100,4165.46,21,1,0)="The total number of hours worked by volunteers."
^DD(2100,4165.46,"DT")="2900419"
^DD(2100,4165.47,0)="HOURS WORKED (PRODUCTION)^NJ4,0O^^A4CGAMS4D;47^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.47,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.47,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.47,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.47,21,0)="^^1^1^2900427^"
^DD(2100,4165.47,21,1,0)="The total number of hours worked by the production staff."
^DD(2100,4165.47,"DT")="2900419"
^DD(2100,4165.48,0)="HOURS WORKED (TRAINEES)^NJ4,0O^^A4CGAMS4E;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.48,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.48,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.48,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.48,21,0)="^^1^1^2900427^"
^DD(2100,4165.48,21,1,0)="The total number of hours worked by trainees."
^DD(2100,4165.48,"DT")="2900419"
^DD(2100,4165.49,0)="HOURS WORKED (ALL EMPLOYEES)^NJ4,0O^^A4CGAMS4E;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.49,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.49,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.49,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.49,21,0)="^^2^2^2900427^"
^DD(2100,4165.49,21,1,0)="The total number of hours worked by all Medical Media Production"
^DD(2100,4165.49,21,2,0)="Service employees."
^DD(2100,4165.49,"DT")="2900419"
^DD(2100,4165.5,0)="HOURS PAID (CHIEF)^NJ4,0O^^A4CGAMS4E;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.5,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.5,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.5,21,0)="^^2^2^2900427^"
^DD(2100,4165.5,21,1,0)="The total number of paid hours for the Office of the Chief,"
^DD(2100,4165.5,21,2,0)="Medical Media Service."
^DD(2100,4165.5,"DT")="2900419"
^DD(2100,4165.51,0)="HOURS PAID (CLERICAL)^NJ4,0O^^A4CGAMS4E;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.51,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.51,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.51,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.51,21,0)="^^1^1^2900427^"
^DD(2100,4165.51,21,1,0)="The total number of paid hours for clerical work."
^DD(2100,4165.51,"DT")="2900419"
^DD(2100,4165.52,0)="HOURS PAID (PRODUCTION)^NJ4,0O^^A4CGAMS4E;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.52,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.52,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.52,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.52,21,0)="^^1^1^2900427^"
^DD(2100,4165.52,21,1,0)="The total number of paid hours for production work."
^DD(2100,4165.52,"DT")="2900419"
^DD(2100,4165.53,0)="HOURS PAID OT (ALL EMPLOYEES)^NJ4,0O^^A4CGAMS4E;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.53,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.53,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.53,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.53,21,0)="^^1^1^2900427^"
^DD(2100,4165.53,21,1,0)="The total number of paid overtime hours for all employees."
^DD(2100,4165.53,"DT")="2900419"
^DD(2100,4165.54,0)="LWOP HOURS^NJ4,0O^^A4CGAMS4E;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.54,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.54,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.54,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.54,21,0)="^^1^1^2900427^"
^DD(2100,4165.54,21,1,0)="The number of Leave Without Pay (LWOP) hours used."
^DD(2100,4165.54,"DT")="2900419"
^DD(2100,4165.55,0)="COP 45-DAY^NJ4,0O^^A4CGAMS4E;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4165.55,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.55,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4165.55,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4165.55,21,0)="^^1^1^2900427^^"
^DD(2100,4165.55,21,1,0)="The number of days of Continuation of Pay (COP) used."
^DD(2100,4165.55,"DT")="2900419"
^DD(2100,4165.56,0)="FTEE PAID^NJ5,2O^^A4CGAMS4E;9^K:+X'=X!(X>99.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2100,4165.56,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2)"
^DD(2100,4165.56,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2)"
^DD(2100,4165.56,3)="Type a Number between 0 and 99.99, 2 Decimal Digits"
^DD(2100,4165.56,21,0)="^^1^1^2900427^"
^DD(2100,4165.56,21,1,0)="The paid FTEE ceiling for Medical Media Production Service."
^DD(2100,4165.56,"DT")="2900427"
^DD(2100,4200.001,0)="PSYCHIATRIC I^NJ5,0O^^A4CGAMS4F;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.001,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.001,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.001,21,0)="1"
^DD(2100,4200.001,21,1,0)="The number of Intensive Care patients in the psychiatric bed section."
^DD(2100,4200.001,"DT")="2900424"
^DD(2100,4200.002,0)="PSYCHIATRIC II^NJ5,0O^^A4CGAMS4F;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.002,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.002,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.002,21,0)="^^1^1^2900424^"
^DD(2100,4200.002,21,1,0)="The number of Acute I Care patients in the psychiatric bed section."
^DD(2100,4200.002,"DT")="2900424"
^DD(2100,4200.003,0)="PSYCHIATRIC III^NJ5,0O^^A4CGAMS4F;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.003,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.003,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.003,21,0)="^^1^1^2900424^"
^DD(2100,4200.003,21,1,0)="The number of Acute II Care patients in the psychiatric bed section."
^DD(2100,4200.003,"DT")="2900424"
^DD(2100,4200.004,0)="PSYCHIATRIC IV^NJ5,0O^^A4CGAMS4F;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.004,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.004,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.004,21,0)="^^2^2^2900424^"
^DD(2100,4200.004,21,1,0)="The number of Extended Hospice Care patients in the psychiatric bed"
^DD(2100,4200.004,21,2,0)="section."
^DD(2100,4200.004,"DT")="2900424"
^DD(2100,4200.005,0)="NO. OF PSYCHIATRIC WARDS^NJ4,1O^^A4CGAMS4F;5^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.005,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.005,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.005,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.005,21,0)="^^1^1^2900424^"
^DD(2100,4200.005,21,1,0)="The average number of psychiatric wards."
^DD(2100,4200.005,"DT")="2900427"
^DD(2100,4200.006,0)="ALCOHOL & DRUG DEP TRMT I^NJ5,0O^^A4CGAMS4F;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.006,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.006,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.006,21,0)="^^2^2^2900424^"
^DD(2100,4200.006,21,1,0)="The number of Intensive Care patients in the alcohol and drug"
^DD(2100,4200.006,21,2,0)="dependence treatment bed section."
^DD(2100,4200.006,"DT")="2900424"
^DD(2100,4200.007,0)="ALCOHOL & DRUG DEP TRMT II^NJ5,0O^^A4CGAMS4F;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.007,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.007,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.007,21,0)="^^2^2^2900424^"
^DD(2100,4200.007,21,1,0)="The number of Acute I Care patients in the alcohol and drug"
^DD(2100,4200.007,21,2,0)="dependence treatment bed section."
^DD(2100,4200.007,"DT")="2900424"
^DD(2100,4200.008,0)="ALCOHOL & DRUG DEP TRMT III^NJ5,0O^^A4CGAMS4F;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.008,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.008,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.008,21,0)="^^2^2^2900424^"
^DD(2100,4200.008,21,1,0)="The number of Acute II Care patients in the alcohol and drug"
^DD(2100,4200.008,21,2,0)="dependence treatment bed section."
^DD(2100,4200.008,"DT")="2900424"
^DD(2100,4200.009,0)="ALCOHOL & DRUG DEP TRMT IV^NJ5,0O^^A4CGAMS4F;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.009,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.009,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.009,21,0)="^^2^2^2900424^"
^DD(2100,4200.009,21,1,0)="The number of Extended Hospice Care patients in the alcohol and"
^DD(2100,4200.009,21,2,0)="drug dependence treatment bed section."
^DD(2100,4200.009,"DT")="2900424"
^DD(2100,4200.01,0)="NO. OF ALCOHOL/DRUG TRMT WARDS^NJ4,1O^^A4CGAMS4F;10^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.01,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.01,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.01,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.01,21,0)="^^1^1^2900424^"
^DD(2100,4200.01,21,1,0)="The average number of alcohol and drug dependence treatment wards."
^DD(2100,4200.01,"DT")="2900427"
^DD(2100,4200.011,0)="SURGICAL I^NJ5,0O^^A4CGAMS4F;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.011,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.011,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.011,21,0)="^^1^1^2900424^"
^DD(2100,4200.011,21,1,0)="The number of Intensive Care patients in the surgical bed section."
^DD(2100,4200.011,"DT")="2900424"
^DD(2100,4200.012,0)="SURGICAL II^NJ5,0O^^A4CGAMS4F;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.012,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.012,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.012,21,0)="^^1^1^2900424^"
^DD(2100,4200.012,21,1,0)="The number of Acute I Care patients in the surgical bed section."
^DD(2100,4200.012,"DT")="2900424"
^DD(2100,4200.013,0)="SURGICAL III^NJ5,0O^^A4CGAMS4F;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.013,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.013,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.013,21,0)="^^1^1^2900424^"
^DD(2100,4200.013,21,1,0)="The number of Acute II Care patients in the surgical bed section."
^DD(2100,4200.013,"DT")="2900424"
^DD(2100,4200.014,0)="SURGICAL IV^NJ5,0O^^A4CGAMS4F;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.014,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.014,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.014,21,0)="^^2^2^2900424^"
^DD(2100,4200.014,21,1,0)="The number of Extended Hospice Care patients in the surgical bed"
^DD(2100,4200.014,21,2,0)="section."
^DD(2100,4200.014,"DT")="2900424"
^DD(2100,4200.015,0)="NO. OF SURGICAL WARDS^NJ4,1O^^A4CGAMS4F;15^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.015,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.015,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.015,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.015,21,0)="^^1^1^2900424^"
^DD(2100,4200.015,21,1,0)="The average number of surgical wards."
^DD(2100,4200.015,"DT")="2900427"
^DD(2100,4200.016,0)="MEDICAL I^NJ5,0O^^A4CGAMS4F;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.016,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.016,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.016,21,0)="^^1^1^2900424^"
^DD(2100,4200.016,21,1,0)="The number of Intensive Care patients in the medical bed section."
^DD(2100,4200.016,"DT")="2900424"
^DD(2100,4200.017,0)="MEDICAL II^NJ5,0O^^A4CGAMS4F;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.017,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.017,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.017,21,0)="^^1^1^2900424^"
^DD(2100,4200.017,21,1,0)="The number of Acute I Care patients in the medical bed section."
^DD(2100,4200.017,"DT")="2900424"
^DD(2100,4200.018,0)="MEDICAL III^NJ5,0O^^A4CGAMS4F;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.018,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.018,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.018,21,0)="^^1^1^2900424^"
^DD(2100,4200.018,21,1,0)="The number of Acute II Care patients in the medical bed section."
^DD(2100,4200.018,"DT")="2900424"
^DD(2100,4200.019,0)="MEDICAL IV^NJ5,0O^^A4CGAMS4F;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.019,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.019,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.019,21,0)="^^2^2^2900424^"
^DD(2100,4200.019,21,1,0)="The number of Extended Hospice Care patients in the medical bed"
^DD(2100,4200.019,21,2,0)="section."
^DD(2100,4200.019,"DT")="2900424"
^DD(2100,4200.02,0)="NO. OF MEDICAL WARDS^NJ4,1O^^A4CGAMS4F;20^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.02,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.02,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.02,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.02,21,0)="^^1^1^2900424^"
^DD(2100,4200.02,21,1,0)="The average number of medical wards."
^DD(2100,4200.02,"DT")="2900427"
^DD(2100,4200.021,0)="SPINAL CORD INJURY I^NJ5,0O^^A4CGAMS4F;21^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.021,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.021,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.021,21,0)="^^2^2^2900424^"
^DD(2100,4200.021,21,1,0)="The number of Intensive Care patients in the spinal cord injury bed"
^DD(2100,4200.021,21,2,0)="section."
^DD(2100,4200.021,"DT")="2900424"
^DD(2100,4200.022,0)="SPINAL CORD INJURY II^NJ5,0O^^A4CGAMS4F;22^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.022,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.022,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.022,21,0)="^^2^2^2900424^"
^DD(2100,4200.022,21,1,0)="The number of Acute I Care patients in the spinal cord injury bed"
^DD(2100,4200.022,21,2,0)="section."
^DD(2100,4200.022,"DT")="2900424"
^DD(2100,4200.023,0)="SPINAL CORD INJURY III^NJ5,0O^^A4CGAMS4F;23^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.023,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.023,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.023,21,0)="^^2^2^2900424^"
^DD(2100,4200.023,21,1,0)="The number of Acute II Care patients in the spinal cord injury bed"
^DD(2100,4200.023,21,2,0)="section."
^DD(2100,4200.023,"DT")="2900424"
^DD(2100,4200.024,0)="SPINAL CORD INJURY IV^NJ5,0O^^A4CGAMS4F;24^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.024,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.024,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.024,21,0)="^^2^2^2900424^"
^DD(2100,4200.024,21,1,0)="The number of Extended Hospice Care patients in the spinal cord"
^DD(2100,4200.024,21,2,0)="injury bed section."
^DD(2100,4200.024,"DT")="2900424"
^DD(2100,4200.025,0)="SPINAL CORD INJURY V^NJ5,0O^^A4CGAMS4F;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.025,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.025,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.025,21,0)="^^2^2^2900424^"
^DD(2100,4200.025,21,1,0)="The number of Minimal Care patients in the spinal cord injury bed"
^DD(2100,4200.025,21,2,0)="section."
^DD(2100,4200.025,"DT")="2900424"
^DD(2100,4200.026,0)="NO. OF SPINAL CORD INJ WARDS^NJ4,1O^^A4CGAMS4F;26^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.026,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.026,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.026,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.026,21,0)="^^2^2^2900424^"
^DD(2100,4200.026,21,1,0)="The average number of medical wards for spinal cord injury patients"
^DD(2100,4200.026,21,2,0)="at the SCI Center only."
^DD(2100,4200.026,"DT")="2900427"
^DD(2100,4200.027,0)="NURSING HOME CARE I^NJ5,0O^^A4CGAMS4F;27^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.027,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.027,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.027,21,0)="^^2^2^2900424^"
^DD(2100,4200.027,21,1,0)="The number of Intensive Care patients in VA Nursing Home Care Units"
^DD(2100,4200.027,21,2,0)="only."
^DD(2100,4200.027,"DT")="2900424"
^DD(2100,4200.028,0)="NURSING HOME CARE II^NJ5,0O^^A4CGAMS4F;28^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.028,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.028,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.028,21,0)="^^1^1^2900424^"
^DD(2100,4200.028,21,1,0)="The number of Acute I Care patients in VA Nursing Home Care Units only."
^DD(2100,4200.028,"DT")="2900424"
^DD(2100,4200.029,0)="NURSING HOME CARE III^NJ5,0O^^A4CGAMS4F;29^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.029,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.029,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.029,21,0)="^^1^1^2900424^"
^DD(2100,4200.029,21,1,0)="The number of Acute II Care patients in VA Nursing Home Care Units only."
^DD(2100,4200.029,"DT")="2900424"
^DD(2100,4200.03,0)="NO. OF NURSING HOME CARE WARDS^NJ4,1O^^A4CGAMS4F;30^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.03,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.03,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.03,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.03,21,0)="^^1^1^2900424^"
^DD(2100,4200.03,21,1,0)="The average number of wards assigned to VA Nursing Home Care."
^DD(2100,4200.03,"DT")="2900427"
^DD(2100,4200.031,0)="NO. OF HEMODIALYSIS TREATMENTS^NJ5,0O^^A4CGAMS4F;31^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.031,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.031,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.031,21,0)="^^1^1^2900424^"
^DD(2100,4200.031,21,1,0)="The cumulative number of hemodialysis treatments during the quarter."
^DD(2100,4200.031,"DT")="2900424"
^DD(2100,4200.032,0)="NO. OF HEMODIALYSIS UNITS^NJ4,1O^^A4CGAMS4F;32^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.032,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.032,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.032,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.032,21,0)="^^1^1^2900424^"
^DD(2100,4200.032,21,1,0)="The average number of hemodialysis units."
^DD(2100,4200.032,"DT")="2900427"
^DD(2100,4200.033,0)="HEMODIALYSIS DAYS OF OPERATION^NJ4,0O^^A4CGAMS4F;33^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4200.033,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4200.033,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4200.033,21,0)="^^2^2^2900424^"
^DD(2100,4200.033,21,1,0)="The total number of days that hemodialysis units were in operation"
^DD(2100,4200.033,21,2,0)="during the quarter."
^DD(2100,4200.033,"DT")="2900424"
^DD(2100,4200.034,0)="INTERMEDIATE CARE I^NJ5,0O^^A4CGAMS4F;34^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.034,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.034,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.034,21,0)="^^2^2^2900424^"
^DD(2100,4200.034,21,1,0)="The number of Intensive Care patients who are in a bed section"
^DD(2100,4200.034,21,2,0)="officially designated as an intermediate bed section."
^DD(2100,4200.034,"DT")="2900424"
^DD(2100,4200.035,0)="INTERMEDIATE CARE II^NJ5,0O^^A4CGAMS4F;35^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.035,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.035,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.035,21,0)="^^2^2^2900424^"
^DD(2100,4200.035,21,1,0)="The number of Acute I Care patients who are in a bed section"
^DD(2100,4200.035,21,2,0)="officially designated as an intermediate bed section."
^DD(2100,4200.035,"DT")="2900424"
^DD(2100,4200.036,0)="INTERMEDIATE CARE III^NJ5,0O^^A4CGAMS4F;36^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.036,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.036,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.036,21,0)="^^2^2^2900424^"
^DD(2100,4200.036,21,1,0)="The number of Acute II Care patients who are in a bed section"
^DD(2100,4200.036,21,2,0)="officially designated as an intermediate bed section."
^DD(2100,4200.036,"DT")="2900424"
^DD(2100,4200.037,0)="NO. OF INTERMEDIATE WARDS^NJ4,1O^^A4CGAMS4G;26^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.037,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.037,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.037,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.037,21,0)="^^1^1^2900424^"
^DD(2100,4200.037,21,1,0)="The average number of intermediate care wards."
^DD(2100,4200.037,"DT")="2900427"
^DD(2100,4200.038,0)="DOMICILIARY (MEMBERS)^NJ5,0O^^A4CGAMS4G;27^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.038,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.038,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.038,21,0)="^^1^1^2900424^"
^DD(2100,4200.038,21,1,0)="The number of members who are in a domiciliary care unit."
^DD(2100,4200.038,"DT")="2900424"
^DD(2100,4200.039,0)="DOMICILIARY (UNITS)^NJ2,0O^^A4CGAMS4G;28^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4200.039,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4200.039,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4200.039,21,0)="^^1^1^2900424^"
^DD(2100,4200.039,21,1,0)="The average number of domiciliary units."
^DD(2100,4200.039,"DT")="2900424"
^DD(2100,4200.04,0)="CRITICAL CARE I^NJ5,0O^^A4CGAMS4G;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.04,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.04,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.04,21,0)="^^1^1^2900424^^^"
^DD(2100,4200.04,21,1,0)="The number of Intensive Care patients in the critical care section."
^DD(2100,4200.04,"DT")="2900423"
^DD(2100,4200.041,0)="CRITICAL CARE II^NJ5,0O^^A4CGAMS4G;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.041,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.041,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.041,21,0)="^^1^1^2900424^^^"
^DD(2100,4200.041,21,1,0)="The number of Acute I Care patients in the critical care section."
^DD(2100,4200.041,"DT")="2900423"
^DD(2100,4200.042,0)="CRITICAL CARE III^NJ5,0O^^A4CGAMS4G;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.042,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.042,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.042,21,0)="^^1^1^2900424^^^"
^DD(2100,4200.042,21,1,0)="The number of Acute II Care patients in the critical care section."
^DD(2100,4200.042,"DT")="2900423"
^DD(2100,4200.043,0)="NO. OF CRITICAL CARE UNITS^NJ4,1O^^A4CGAMS4G;4^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4200.043,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.043,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4200.043,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4200.043,21,0)="^^1^1^2900424^^"
^DD(2100,4200.043,21,1,0)="The average number of critical care units."
^DD(2100,4200.043,"DT")="2900427"
^DD(2100,4200.044,0)="OPERATING ROOM I^NJ5,0O^^A4CGAMS4G;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.044,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.044,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.044,21,0)="^^1^1^2900424^^"
^DD(2100,4200.044,21,1,0)="The number of Intensive Care patients in the operating room section."
^DD(2100,4200.044,"DT")="2900423"
^DD(2100,4200.045,0)="OPERATING ROOM II^NJ5,0O^^A4CGAMS4G;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.045,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.045,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.045,21,0)="1"
^DD(2100,4200.045,21,1,0)="The number of Acute I Care patients in the operating room section."
^DD(2100,4200.045,"DT")="2900423"
^DD(2100,4200.046,0)="OPERATING ROOM III^NJ5,0O^^A4CGAMS4G;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.046,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.046,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.046,21,0)="^^1^1^2900423^"
^DD(2100,4200.046,21,1,0)="The number of Acute II Care patients in the operating room section."
^DD(2100,4200.046,"DT")="2900423"
^DD(2100,4200.047,0)="OPERATING ROOM IV^NJ5,0O^^A4CGAMS4G;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.047,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.047,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.047,21,0)="^^2^2^2900423^"
^DD(2100,4200.047,21,1,0)="The number of Extended Hospice Care patients in the operating room"
^DD(2100,4200.047,21,2,0)="section."
^DD(2100,4200.047,"DT")="2900423"
^DD(2100,4200.048,0)="NO. OF OPERATING ROOMS^NJ2,0O^^A4CGAMS4G;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4200.048,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4200.048,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4200.048,21,0)="^^1^1^2900423^"
^DD(2100,4200.048,21,1,0)="The average number of rooms in the operating room section."
^DD(2100,4200.048,"DT")="2900423"
^DD(2100,4200.049,0)="RECOVERY ROOM I^NJ5,0O^^A4CGAMS4G;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.049,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.049,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.049,21,0)="^^1^1^2900423^"
^DD(2100,4200.049,21,1,0)="The number of Acute I Care patients in the recovery room section."
^DD(2100,4200.049,"DT")="2900423"
^DD(2100,4200.05,0)="RECOVERY ROOM II^NJ5,0O^^A4CGAMS4G;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.05,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.05,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.05,21,0)="^^1^1^2900423^"
^DD(2100,4200.05,21,1,0)="The number of Acute II Care patients in the recovery room section."
^DD(2100,4200.05,"DT")="2900423"
^DD(2100,4200.051,0)="RECOVERY ROOM III^NJ5,0O^^A4CGAMS4G;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.051,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.051,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.051,21,0)="^^1^1^2900423^"
^DD(2100,4200.051,21,1,0)="The number of Acute II Care patients in the recovery room section."
^DD(2100,4200.051,"DT")="2900423"
^DD(2100,4200.052,0)="NO. OF RECOVERY ROOM BEDS^NJ2,0O^^A4CGAMS4G;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4200.052,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4200.052,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4200.052,21,0)="^^1^1^2900423^"
^DD(2100,4200.052,21,1,0)="The average number of beds in the recovery room section."
^DD(2100,4200.052,"DT")="2900423"
^DD(2100,4200.053,0)="AMBULATORY CARE I^NJ5,0O^^A4CGAMS4G;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.053,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.053,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.053,21,0)="^^1^1^2900423^"
^DD(2100,4200.053,21,1,0)="The number of Intensive Care patients in the ambulatory care section."
^DD(2100,4200.053,"DT")="2900423"
^DD(2100,4200.054,0)="AMBULATORY CARE II^NJ5,0O^^A4CGAMS4G;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.054,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.054,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.054,21,0)="^^1^1^2900423^"
^DD(2100,4200.054,21,1,0)="The number of Acute I Care patients in the ambulatory care section."
^DD(2100,4200.054,"DT")="2900423"
^DD(2100,4200.055,0)="AMBULATORY CARE III^NJ5,0O^^A4CGAMS4G;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.055,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.055,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.055,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.055,21,0)="^^1^1^2900423^"
^DD(2100,4200.055,21,1,0)="The number of Acute II Care patients in the ambulatory care section."
^DD(2100,4200.055,"DT")="2900423"
^DD(2100,4200.056,0)="AMBULATORY CARE IV^NJ5,0O^^A4CGAMS4G;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.056,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.056,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.056,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.056,21,0)="^^2^2^2900423^"
^DD(2100,4200.056,21,1,0)="The number of Extended Hospice Care patients in the ambulatory care"
^DD(2100,4200.056,21,2,0)="section."
^DD(2100,4200.056,"DT")="2900423"
^DD(2100,4200.057,0)="AMBULATORY CARE V^NJ5,0O^^A4CGAMS4G;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.057,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.057,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.057,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.057,21,0)="^^1^1^2900423^"
^DD(2100,4200.057,21,1,0)="The number of Minimal Care patients in the ambulatory care section."
^DD(2100,4200.057,"DT")="2900423"
^DD(2100,4200.058,0)="AMBULATORY SURGERY I^NJ5,0O^^A4CGAMS4G;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.058,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.058,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.058,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.058,21,0)="^^1^1^2900423^"
^DD(2100,4200.058,21,1,0)="The number of Intensive Care patients in the ambulatory surgery section."
^DD(2100,4200.058,"DT")="2900423"
^DD(2100,4200.059,0)="AMBULATORY SURGERY II^NJ5,0O^^A4CGAMS4G;20^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.059,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.059,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.059,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.059,21,0)="^^1^1^2900423^"
^DD(2100,4200.059,21,1,0)="The number of Acute I Care patients in the ambulatory surgery section."
^DD(2100,4200.059,"DT")="2900423"
^DD(2100,4200.06,0)="AMBULATORY SURGERY III^NJ5,0O^^A4CGAMS4G;21^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.06,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.06,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.06,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.06,21,0)="^^1^1^2900423^"
^DD(2100,4200.06,21,1,0)="The number of Acute II Care patients in the ambulatory surgery section."
^DD(2100,4200.06,"DT")="2900423"
^DD(2100,4200.061,0)="AMBULATORY SURGERY IV^NJ5,0O^^A4CGAMS4G;22^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.061,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.061,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.061,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.061,21,0)="^^2^2^2900423^"
^DD(2100,4200.061,21,1,0)="The number of Extended Hospice Care patients in the ambulatory surgery"
^DD(2100,4200.061,21,2,0)="section."
^DD(2100,4200.061,"DT")="2900423"
^DD(2100,4200.062,0)="AMBULATORY SURGERY RECOVERY I^NJ5,0O^^A4CGAMS4G;23^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.062,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.062,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.062,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.062,21,0)="^^2^2^2900423^"
^DD(2100,4200.062,21,1,0)="The number of Intensive Care patients in the ambulatory surgery"
^DD(2100,4200.062,21,2,0)="recovery section."
^DD(2100,4200.062,"DT")="2900423"
^DD(2100,4200.063,0)="AMBULATORY SURGERY RECOVERY II^NJ5,0O^^A4CGAMS4G;24^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.063,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.063,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.063,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.063,21,0)="^^2^2^2900423^"
^DD(2100,4200.063,21,1,0)="The number of Acute I Care patients in the ambulatory surgery"
^DD(2100,4200.063,21,2,0)="recovery section."
^DD(2100,4200.063,"DT")="2900423"
^DD(2100,4200.064,0)="AMBULATORY SURG RECOVERY III^NJ5,0O^^A4CGAMS4G;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4200.064,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.064,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4200.064,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4200.064,21,0)="^^2^2^2900423^"
^DD(2100,4200.064,21,1,0)="The number of Acute II Care patients in the ambulatory surgery"
^DD(2100,4200.064,21,2,0)="recovery section."
^DD(2100,4200.064,"DT")="2900423"
^DD(2100,4201.001,0)="PSYCHIATRIC (RN)^NJ5,0O^^A4CGAMS4H;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.001,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.001,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.001,21,0)="^^2^2^2900423^^"
^DD(2100,4201.001,21,1,0)="The number of RN man-hours worked by nursing service personnel in"
^DD(2100,4201.001,21,2,0)="the psychiatric bed sections."
^DD(2100,4201.001,"DT")="2900419"
^DD(2100,4201.002,0)="PSYCHIATRIC (LPN)^NJ5,0O^^A4CGAMS4H;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.002,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.002,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.002,21,0)="2"
^DD(2100,4201.002,21,1,0)="The number of LPN man-hours worked by nursing service personnel in"
^DD(2100,4201.002,21,2,0)="the psychiatric bed sections."
^DD(2100,4201.002,"DT")="2900419"
^DD(2100,4201.003,0)="PSYCHIATRIC (NA)^NJ6,0O^^A4CGAMS4H;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4201.003,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4201.003,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4201.003,21,0)="^^2^2^2900420^"
^DD(2100,4201.003,21,1,0)="The number of NA man-hours worked by nursing service personnel in"
^DD(2100,4201.003,21,2,0)="the psychiatric bed sections."
^DD(2100,4201.003,"DT")="2900419"
^DD(2100,4201.004,0)="SURGICAL (RN)^NJ5,0O^^A4CGAMS4H;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.004,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.004,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.004,21,0)="^^2^2^2900420^"
^DD(2100,4201.004,21,1,0)="The number of RN man-hours worked by nursing service personnel in"
^DD(2100,4201.004,21,2,0)="the surgical bed section."
^DD(2100,4201.004,"DT")="2900419"
^DD(2100,4201.005,0)="SURGICAL (LPN)^NJ5,0O^^A4CGAMS4H;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.005,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.005,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.005,21,0)="^^2^2^2900420^"
^DD(2100,4201.005,21,1,0)="The number of LPN man-hours worked by nursing service personnel in"
^DD(2100,4201.005,21,2,0)="the surgical bed section."
^DD(2100,4201.005,"DT")="2900419"
^DD(2100,4201.006,0)="SURGICAL (NA)^NJ5,0O^^A4CGAMS4H;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.006,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.006,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.006,21,0)="^^2^2^2900420^"
^DD(2100,4201.006,21,1,0)="The number of NA man-hours worked by nursing service personnel in"
^DD(2100,4201.006,21,2,0)="the surgical bed section."
^DD(2100,4201.006,"DT")="2900419"
^DD(2100,4201.007,0)="MEDICAL (RN)^NJ5,0O^^A4CGAMS4H;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.007,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.007,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.007,21,0)="^^2^2^2900420^"
^DD(2100,4201.007,21,1,0)="The number of RN man-hours worked by nursing service personnel in"
^DD(2100,4201.007,21,2,0)="the medical bed section"
^DD(2100,4201.007,"DT")="2900419"
^DD(2100,4201.008,0)="MEDICAL (LPN)^NJ5,0O^^A4CGAMS4H;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.008,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.008,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.008,21,0)="^^2^2^2900420^"
^DD(2100,4201.008,21,1,0)="The number of LPN man-hours worked by nursing service personnel in"
^DD(2100,4201.008,21,2,0)="the medical bed section."
^DD(2100,4201.008,"DT")="2900419"
^DD(2100,4201.009,0)="MEDICAL (NA)^NJ5,0O^^A4CGAMS4H;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.009,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.009,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.009,21,0)="^^2^2^2900420^"
^DD(2100,4201.009,21,1,0)="The number of NA man-hours worked by nursing service personnel in"
^DD(2100,4201.009,21,2,0)="the medical bed section."
^DD(2100,4201.009,"DT")="2900419"
^DD(2100,4201.01,0)="SPINAL CORD INJURY (RN)^NJ5,0O^^A4CGAMS4H;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.01,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.01,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.01,21,0)="^^2^2^2900420^"
^DD(2100,4201.01,21,1,0)="The number of RN man-hours worked by nursing service personnel in"
^DD(2100,4201.01,21,2,0)="the spinal cord injury bed section."
^DD(2100,4201.01,"DT")="2900419"
^DD(2100,4201.011,0)="SPINAL CORD INJURY (LPN)^NJ5,0O^^A4CGAMS4H;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.011,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.011,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.011,21,0)="^^2^2^2900420^"
^DD(2100,4201.011,21,1,0)="The number of LPN man-hours worked by nursing service personnel in"
^DD(2100,4201.011,21,2,0)="the spinal cord injury bed section."
^DD(2100,4201.011,"DT")="2900419"
^DD(2100,4201.012,0)="SPINAL CORD INJURY (NA)^NJ5,0O^^A4CGAMS4H;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.012,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.012,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.012,21,0)="^^2^2^2900420^"
^DD(2100,4201.012,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.012,21,2,0)="spinal cord injury bed section."
^DD(2100,4201.012,"DT")="2900419"
^DD(2100,4201.013,0)="IMMEDIATE CARE (RN)^NJ5,0O^^A4CGAMS4H;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.013,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.013,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.013,21,0)="^^2^2^2900420^"
^DD(2100,4201.013,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.013,21,2,0)="immediate care bed section."
^DD(2100,4201.013,"DT")="2900419"
^DD(2100,4201.014,0)="IMMEDIATE CARE (LPN)^NJ5,0O^^A4CGAMS4H;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.014,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.014,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.014,21,0)="^^2^2^2900420^"
^DD(2100,4201.014,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.014,21,2,0)="immediate care bed section."
^DD(2100,4201.014,"DT")="2900419"
^DD(2100,4201.015,0)="IMMEDIATE CARE (NA)^NJ5,0O^^A4CGAMS4H;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.015,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.015,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.015,21,0)="^^2^2^2900420^"
^DD(2100,4201.015,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.015,21,2,0)="immediate care bed section."
^DD(2100,4201.015,"DT")="2900419"
^DD(2100,4201.016,0)="NURSING HOME CARE (RN)^NJ5,0O^^A4CGAMS4H;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.016,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.016,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.016,21,0)="^^2^2^2900420^"
^DD(2100,4201.016,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.016,21,2,0)="nursing home care section."
^DD(2100,4201.016,"DT")="2900419"
^DD(2100,4201.017,0)="NURSING HOME CARE (LPN)^NJ5,0O^^A4CGAMS4H;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.017,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.017,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.017,21,0)="^^2^2^2900420^"
^DD(2100,4201.017,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.017,21,2,0)="nursing home care section."
^DD(2100,4201.017,"DT")="2900419"
^DD(2100,4201.018,0)="NURSING HOME CARE (NA)^NJ5,0O^^A4CGAMS4H;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.018,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.018,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.018,21,0)="^^2^2^2900420^"
^DD(2100,4201.018,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.018,21,2,0)="nursing home care section."
^DD(2100,4201.018,"DT")="2900419"
^DD(2100,4201.019,0)="CRITICAL CARE (RN)^NJ5,0O^^A4CGAMS4H;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.019,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.019,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.019,21,0)="^^2^2^2900420^"
^DD(2100,4201.019,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.019,21,2,0)="critical care section."
^DD(2100,4201.019,"DT")="2900419"
^DD(2100,4201.02,0)="CRITICAL CARE (LPN)^NJ5,0O^^A4CGAMS4H;20^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.02,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.02,21,0)="^^2^2^2900420^"
^DD(2100,4201.02,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.02,21,2,0)="critical care section."
^DD(2100,4201.02,"DT")="2900419"
^DD(2100,4201.021,0)="CRITICAL CARE (NA)^NJ5,0O^^A4CGAMS4H;21^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.021,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.021,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.021,21,0)="^^2^2^2900420^"
^DD(2100,4201.021,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.021,21,2,0)="critical care section."
^DD(2100,4201.021,"DT")="2900419"
^DD(2100,4201.022,0)="HEMODIALYSIS (RN)^NJ5,0O^^A4CGAMS4H;22^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.022,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.022,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.022,21,0)="^^2^2^2900420^"
^DD(2100,4201.022,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.022,21,2,0)="hemodialysis care section."
^DD(2100,4201.022,"DT")="2900419"
^DD(2100,4201.023,0)="HEMODIALYSIS (LPN)^NJ5,0O^^A4CGAMS4H;23^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.023,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.023,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.023,21,0)="^^2^2^2900420^"
^DD(2100,4201.023,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.023,21,2,0)="hemodialysis care section."
^DD(2100,4201.023,"DT")="2900419"
^DD(2100,4201.024,0)="HEMODIALYSIS (NA)^NJ5,0O^^A4CGAMS4H;24^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.024,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.024,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.024,21,0)="^^2^2^2900420^"
^DD(2100,4201.024,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.024,21,2,0)="hemodialysis care section."
^DD(2100,4201.024,"DT")="2900419"
^DD(2100,4201.025,0)="OPERATING ROOM (RN)^NJ5,0O^^A4CGAMS4H;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.025,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.025,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.025,21,0)="^^2^2^2900420^"
^DD(2100,4201.025,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.025,21,2,0)="operating room."
^DD(2100,4201.025,"DT")="2900419"
^DD(2100,4201.026,0)="OPERATING ROOM (LPN)^NJ5,0O^^A4CGAMS4H;26^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.026,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.026,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.026,21,0)="^^2^2^2900420^"
^DD(2100,4201.026,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.026,21,2,0)="operating room."
^DD(2100,4201.026,"DT")="2900419"
^DD(2100,4201.027,0)="OPERATING ROOM (NA)^NJ5,0O^^A4CGAMS4H;27^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.027,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.027,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.027,21,0)="^^2^2^2900420^"
^DD(2100,4201.027,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.027,21,2,0)="operating room."
^DD(2100,4201.027,"DT")="2900419"
^DD(2100,4201.028,0)="ESCORT ACTIVITIES (RN)^NJ5,0O^^A4CGAMS4H;28^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.028,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.028,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.028,21,0)="^^2^2^2900420^"
^DD(2100,4201.028,21,1,0)="The number of RN man-hours worked by nursing service personnel in"
^DD(2100,4201.028,21,2,0)="escort activities."
^DD(2100,4201.028,"DT")="2900419"
^DD(2100,4201.029,0)="ESCORT ACTIVITIES (LPN)^NJ5,0O^^A4CGAMS4H;29^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.029,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.029,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.029,21,0)="^^2^2^2900420^"
^DD(2100,4201.029,21,1,0)="The number of LPN man-hours worked by nursing service personnel in"
^DD(2100,4201.029,21,2,0)="escort activities."
^DD(2100,4201.029,"DT")="2900419"
^DD(2100,4201.03,0)="ESCORT ACTIVITIES (NA)^NJ5,0O^^A4CGAMS4H;30^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.03,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.03,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.03,21,0)="^^2^2^2900420^"
^DD(2100,4201.03,21,1,0)="The number of NA man-hours worked by nursing service personnel in"
^DD(2100,4201.03,21,2,0)="escort activities."
^DD(2100,4201.03,"DT")="2900419"
^DD(2100,4201.031,0)="DOMICILIARY (RN)^NJ5,0O^^A4CGAMS4H;31^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.031,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.031,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.031,21,0)="^^2^2^2900420^"
^DD(2100,4201.031,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.031,21,2,0)="domiciliary."
^DD(2100,4201.031,"DT")="2900419"
^DD(2100,4201.032,0)="DOMICILIARY (LPN)^NJ5,0O^^A4CGAMS4H;32^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.032,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.032,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.032,21,0)="^^2^2^2900420^"
^DD(2100,4201.032,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.032,21,2,0)="domiciliary."
^DD(2100,4201.032,"DT")="2900419"
^DD(2100,4201.033,0)="DOMICILIARY (NA)^NJ5,0O^^A4CGAMS4H;33^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.033,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.033,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.033,21,0)="^^2^2^2900420^"
^DD(2100,4201.033,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.033,21,2,0)="domiciliary."
^DD(2100,4201.033,"DT")="2900419"
^DD(2100,4201.034,0)="AMBULATORY CARE (RN)^NJ5,0O^^A4CGAMS4H;34^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.034,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.034,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.034,21,0)="^^2^2^2900420^"
^DD(2100,4201.034,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.034,21,2,0)="ambulatory care section."
^DD(2100,4201.034,"DT")="2900419"
^DD(2100,4201.035,0)="AMBULATORY CARE (LPN)^NJ5,0O^^A4CGAMS4H;35^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.035,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.035,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.035,21,0)="^^2^2^2900420^"
^DD(2100,4201.035,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.035,21,2,0)="ambulatory care section."
^DD(2100,4201.035,"DT")="2900419"
^DD(2100,4201.036,0)="AMBULATORY CARE (NA)^NJ5,0O^^A4CGAMS4H;36^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.036,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.036,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.036,21,0)="^^2^2^2900420^"
^DD(2100,4201.036,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.036,21,2,0)="ambulatory care section."
^DD(2100,4201.036,"DT")="2900419"
^DD(2100,4201.037,0)="HOSPITAL BASED HOME CARE (RN)^NJ5,0O^^A4CGAMS4H;37^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.037,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.037,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.037,21,0)="^^2^2^2900420^"
^DD(2100,4201.037,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.037,21,2,0)="hospital based home care program."
^DD(2100,4201.037,"DT")="2900419"
^DD(2100,4201.038,0)="HOSPITAL BASED HOME CARE (LPN)^NJ5,0O^^A4CGAMS4H;38^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.038,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.038,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.038,21,0)="^^2^2^2900420^"
^DD(2100,4201.038,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.038,21,2,0)="hospital based home care program."
^DD(2100,4201.038,"DT")="2900419"
^DD(2100,4201.039,0)="HOSPITAL BASED HOME CARE (NA)^NJ5,0O^^A4CGAMS4H;39^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.039,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.039,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.039,21,0)="^^2^2^2900420^"
^DD(2100,4201.039,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.039,21,2,0)="hospital based home care program."
^DD(2100,4201.039,"DT")="2900419"
^DD(2100,4201.04,0)="SATELLITE CLINICS (RN)^NJ5,0O^^A4CGAMS4H;40^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.04,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.04,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.04,21,0)="^^2^2^2900420^"
^DD(2100,4201.04,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.04,21,2,0)="satellite clinics."
^DD(2100,4201.04,"DT")="2900419"
^DD(2100,4201.041,0)="SATELLITE CLINICS (LPN)^NJ5,0O^^A4CGAMS4H;41^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.041,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.041,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.041,21,0)="^^2^2^2900420^"
^DD(2100,4201.041,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.041,21,2,0)="satellite clinics."
^DD(2100,4201.041,"DT")="2900419"
^DD(2100,4201.042,0)="SATELLITE CLINICS (NA)^NJ5,0O^^A4CGAMS4I;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.042,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.042,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.042,21,0)="^^2^2^2900420^"
^DD(2100,4201.042,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.042,21,2,0)="satellite clinics."
^DD(2100,4201.042,"DT")="2900419"
^DD(2100,4201.043,0)="RECOVERY ROOM (RN)^NJ5,0O^^A4CGAMS4I;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.043,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.043,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.043,21,0)="^^2^2^2900420^"
^DD(2100,4201.043,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.043,21,2,0)="recovery room."
^DD(2100,4201.043,"DT")="2900419"
^DD(2100,4201.044,0)="RECOVERY ROOM (LPN)^NJ5,0O^^A4CGAMS4I;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.044,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.044,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.044,21,0)="^^2^2^2900420^"
^DD(2100,4201.044,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.044,21,2,0)="recovery room."
^DD(2100,4201.044,"DT")="2900419"
^DD(2100,4201.045,0)="RECOVERY ROOM (NA)^NJ5,0O^^A4CGAMS4I;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.045,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.045,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.045,21,0)="^^2^2^2900420^"
^DD(2100,4201.045,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.045,21,2,0)="recovery room."
^DD(2100,4201.045,"DT")="2900419"
^DD(2100,4201.046,0)="ALCOHOL/DRUG DEP TRMT (RN)^NJ5,0O^^A4CGAMS4I;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.046,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.046,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.046,21,0)="^^2^2^2900420^"
^DD(2100,4201.046,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.046,21,2,0)="alcohol and drug dependence treatment section."
^DD(2100,4201.046,"DT")="2900419"
^DD(2100,4201.047,0)="ALCOHOL/DRUG DEP TRMT (LPN)^NJ5,0O^^A4CGAMS4I;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.047,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.047,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.047,21,0)="^^2^2^2900420^"
^DD(2100,4201.047,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.047,21,2,0)="alcohol and drug dependence treatment section."
^DD(2100,4201.047,"DT")="2900419"
^DD(2100,4201.048,0)="ALCOHOL/DRUG DEP TRMT (NA)^NJ5,0O^^A4CGAMS4I;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.048,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.048,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.048,21,0)="^^2^2^2900420^"
^DD(2100,4201.048,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.048,21,2,0)="alcohol and drug dependence treatment section."
^DD(2100,4201.048,"DT")="2900419"
^DD(2100,4201.049,0)="AMBULATORY SURGERY (RN)^NJ5,0O^^A4CGAMS4I;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.049,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.049,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.049,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.049,21,0)="^^2^2^2900420^"
^DD(2100,4201.049,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.049,21,2,0)="ambulatory surgery care section."
^DD(2100,4201.049,"DT")="2900419"
^DD(2100,4201.05,0)="AMBULATORY SURGERY (LPN)^NJ5,0O^^A4CGAMS4I;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.05,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.05,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.05,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.05,21,0)="^^2^2^2900420^"
^DD(2100,4201.05,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.05,21,2,0)="ambulatory surgery care section."
^DD(2100,4201.05,"DT")="2900419"
^DD(2100,4201.051,0)="AMBULATORY SURGERY (NA)^NJ5,0O^^A4CGAMS4I;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.051,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.051,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.051,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.051,21,0)="^^2^2^2900420^"
^DD(2100,4201.051,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.051,21,2,0)="ambulatory surgery care section."
^DD(2100,4201.051,"DT")="2900419"
^DD(2100,4201.052,0)="AMBULATORY SURG RECOVERY (RN)^NJ5,0O^^A4CGAMS4I;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.052,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.052,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.052,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.052,21,0)="^^2^2^2900420^"
^DD(2100,4201.052,21,1,0)="The number of RN man-hours worked by nursing service personnel in the"
^DD(2100,4201.052,21,2,0)="ambulatory surgery recovery care section."
^DD(2100,4201.052,"DT")="2900419"
^DD(2100,4201.053,0)="AMBULATORY SURG RECOVERY (LPN)^NJ5,0O^^A4CGAMS4I;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.053,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.053,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.053,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.053,21,0)="^^2^2^2900420^"
^DD(2100,4201.053,21,1,0)="The number of LPN man-hours worked by nursing service personnel in the"
^DD(2100,4201.053,21,2,0)="ambulatory surgery recovery care section."
^DD(2100,4201.053,"DT")="2900419"
^DD(2100,4201.054,0)="AMBULATORY SURG RECOVERY (NA)^NJ5,0O^^A4CGAMS4I;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4201.054,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.054,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4201.054,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4201.054,21,0)="^^2^2^2900420^^"
^DD(2100,4201.054,21,1,0)="The number of NA man-hours worked by nursing service personnel in the"
^DD(2100,4201.054,21,2,0)="ambulatory surgery recovery care section."
^DD(2100,4201.054,"DT")="2900419"
^DD(2100,4202.001,0)="RN FTEE CEILING^NJ6,1O^^A4CGAMS4J;1^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.001,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.001,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.001,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.001,21,0)="^^2^2^2900423^^"
^DD(2100,4202.001,21,1,0)="The RN ceiling (FTEE) for nursing personnel assigned to Nursing Service"
^DD(2100,4202.001,21,2,0)="only."
^DD(2100,4202.001,"DT")="2900427"
^DD(2100,4202.002,0)="LPN FTEE CEILING^NJ6,1O^^A4CGAMS4J;2^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.002,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.002,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.002,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.002,21,0)="^^2^2^2900420^"
^DD(2100,4202.002,21,1,0)="The LPN ceiling (FTEE) for nursing personnel assigned to Nursing Service"
^DD(2100,4202.002,21,2,0)="only."
^DD(2100,4202.002,"DT")="2900427"
^DD(2100,4202.003,0)="NA FTEE CEILING^NJ6,1O^^A4CGAMS4J;3^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.003,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.003,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.003,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.003,21,0)="^^2^2^2900420^"
^DD(2100,4202.003,21,1,0)="The NA ceiling (FTEE) for nursing personnel assigned to Nursing Service"
^DD(2100,4202.003,21,2,0)="only."
^DD(2100,4202.003,"DT")="2900427"
^DD(2100,4202.004,0)="CLERICAL FTEE CEILING^NJ6,1O^^A4CGAMS4J;4^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.004,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.004,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.004,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.004,21,0)="^^1^1^2900420^"
^DD(2100,4202.004,21,1,0)="The clerical ceiling (FTEE) for Nursing Service."
^DD(2100,4202.004,"DT")="2900427"
^DD(2100,4202.005,0)="ADMIN OFFICER FTEE CEILING^NJ5,1O^^A4CGAMS4J;5^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.005,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.005,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.005,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.005,21,0)="^^3^3^2900423^^"
^DD(2100,4202.005,21,1,0)="The ceiling (FTEE) for persons assigned to Nursing Service who"
^DD(2100,4202.005,21,2,0)="serve as Administrative Officers. They are not to be counted"
^DD(2100,4202.005,21,3,0)="under clerical."
^DD(2100,4202.005,"DT")="2900427"
^DD(2100,4202.006,0)="CLINICAL SPEC FTEE CEILING^NJ5,1O^^A4CGAMS4J;6^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.006,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.006,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.006,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.006,21,0)="^^1^1^2900423^^"
^DD(2100,4202.006,21,1,0)="The RN ceiling (FTEE) for Clinical Specialist."
^DD(2100,4202.006,"DT")="2900427"
^DD(2100,4202.007,0)="NURSE PRAC FTEE CEILING^NJ5,1O^^A4CGAMS4J;7^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.007,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.007,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.007,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.007,21,0)="^^1^1^2900423^^"
^DD(2100,4202.007,21,1,0)="The RN ceiling (FTEE) for Nurse Practitioner."
^DD(2100,4202.007,"DT")="2900427"
^DD(2100,4202.008,0)="INFECT CTRL FTEE CEILING^NJ5,1O^^A4CGAMS4J;8^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.008,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.008,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.008,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.008,21,0)="^^1^1^2900423^^"
^DD(2100,4202.008,21,1,0)="The RN ceiling (FTEE) for Infection Control Nurse."
^DD(2100,4202.008,"DT")="2900427"
^DD(2100,4202.009,0)="PUB HLTH FTEE CEILING^NJ5,1O^^A4CGAMS4J;9^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.009,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.009,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.009,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.009,21,0)="^^1^1^2900423^^"
^DD(2100,4202.009,21,1,0)="The RN ceiling (FTEE) for Public Health Coordinator."
^DD(2100,4202.009,"DT")="2900427"
^DD(2100,4202.01,0)="STAFF NURSE FTEE CEILING^NJ5,1O^^A4CGAMS4J;10^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.01,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.01,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.01,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.01,21,0)="^^3^3^2900420^"
^DD(2100,4202.01,21,1,0)="The RN ceiling (FTEE) for any registered nurse working in direct"
^DD(2100,4202.01,21,2,0)="patient care within a bed unit or clinical/diagnostic area (i.e.,"
^DD(2100,4202.01,21,3,0)="specialized medical program)."
^DD(2100,4202.01,"DT")="2900427"
^DD(2100,4202.011,0)="CHIEF NURSE FTEE CEILING^NJ5,1O^^A4CGAMS4J;11^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.011,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.011,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.011,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.011,21,0)="^^1^1^2900423^^"
^DD(2100,4202.011,21,1,0)="The RN ceiling (FTEE) for Chief Nurse."
^DD(2100,4202.011,"DT")="2900427"
^DD(2100,4202.012,0)="ASST CHIEF FTEE CEILING^NJ5,1O^^A4CGAMS4J;12^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.012,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.012,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.012,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.012,21,0)="^^1^1^2900423^^"
^DD(2100,4202.012,21,1,0)="The RN ceiling (FTEE) for Assistant Chief Nurse."
^DD(2100,4202.012,"DT")="2900427"
^DD(2100,4202.013,0)="ASSOC CHIEF FTEE CEILING^NJ5,1O^^A4CGAMS4J;13^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.013,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.013,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.013,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.013,21,0)="^^1^1^2900423^^"
^DD(2100,4202.013,21,1,0)="The RN ceiling (FTEE) for Associate Chief Nurse."
^DD(2100,4202.013,"DT")="2900427"
^DD(2100,4202.014,0)="ADMN SUPERVISOR FTEE CEILING^NJ5,1O^^A4CGAMS4J;14^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.014,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.014,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.014,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.014,21,0)="^^1^1^2900423^^"
^DD(2100,4202.014,21,1,0)="The RN ceiling (FTEE) for Supervisor."
^DD(2100,4202.014,"DT")="2900427"
^DD(2100,4202.015,0)="ADMN HEAD NURSE FTEE CEILING^NJ5,1O^^A4CGAMS4J;15^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.015,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.015,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.015,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.015,21,0)="^^1^1^2900423^^"
^DD(2100,4202.015,21,1,0)="The RN ceiling (FTEE) for Head Nurse."
^DD(2100,4202.015,"DT")="2900427"
^DD(2100,4202.016,0)="OTHER ADMN FTEE CEILING^NJ5,1O^^A4CGAMS4J;16^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.016,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.016,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.016,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.016,21,0)="^^5^5^2900421^^^^"
^DD(2100,4202.016,21,1,0)="The RN ceiling (FTEE) for other than Staff Nurse. Include trainees"
^DD(2100,4202.016,21,2,0)="assigned to nursing service, ombudsmen (i.e., patient advocates),"
^DD(2100,4202.016,21,3,0)="quality assurance coordinators or utilization review coordinators."
^DD(2100,4202.016,21,4,0)="Oncology nurses not classified as clinical specialists/nurse"
^DD(2100,4202.016,21,5,0)="practitioners should be included under this category."
^DD(2100,4202.016,"DT")="2900427"
^DD(2100,4202.017,0)="RESEARCH FTEE CEILING^NJ5,1O^^A4CGAMS4J;17^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.017,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.017,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.017,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.017,21,0)="^^1^1^2900421^^^^"
^DD(2100,4202.017,21,1,0)="The RN ceiling (FTEE) for Nurse Researcher."
^DD(2100,4202.017,"DT")="2900427"
^DD(2100,4202.018,0)="ASSOC CHIEF RES FTEE CEILING^NJ5,1O^^A4CGAMS4J;18^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.018,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.018,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.018,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.018,21,0)="2^^2^2^2900423^^^^"
^DD(2100,4202.018,21,1,0)="The RN ceiling (FTEE) for Associate Chief, Research Section, Nursing"
^DD(2100,4202.018,21,2,0)="Service."
^DD(2100,4202.018,"DT")="2900427"
^DD(2100,4202.019,0)="ASSOC CHIEF ED FTEE CEILING^NJ5,1O^^A4CGAMS4J;19^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.019,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.019,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.019,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.019,21,0)="^^2^2^2900423^^^^"
^DD(2100,4202.019,21,1,0)="The  RN ceiling (FTEE) for Associate Chief, Education Section, Nursing"
^DD(2100,4202.019,21,2,0)="Service."
^DD(2100,4202.019,"DT")="2900427"
^DD(2100,4202.02,0)="INSTRUCTOR FTEE CEILING^NJ5,1O^^A4CGAMS4J;20^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.02,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.02,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.02,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.02,21,0)="^^1^1^2900421^^^^"
^DD(2100,4202.02,21,1,0)="The RN ceiling (FTEE) for Nurse Instructor."
^DD(2100,4202.02,"DT")="2900427"
^DD(2100,4202.021,0)="RN POSITIONS FILLED^NJ6,1O^^A4CGAMS4J;21^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.021,.1)="RN POSITIONS FILLED EOQ"
^DD(2100,4202.021,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.021,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.021,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.021,21,0)="^^1^1^2900423^^^^"
^DD(2100,4202.021,21,1,0)="The number of Nursing Service RN positions filled (FTEE)."
^DD(2100,4202.021,"DT")="2900427"
^DD(2100,4202.022,0)="LPN POSITIONS FILLED^NJ6,1O^^A4CGAMS4J;22^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.022,.1)="LPN POSITIONS FILLED EOQ"
^DD(2100,4202.022,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.022,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.022,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.022,21,0)="2^^1^1^2900423^^^^"
^DD(2100,4202.022,21,1,0)="The number of Nursing Service LPN positions filled (FTEE)."
^DD(2100,4202.022,"DT")="2900427"
^DD(2100,4202.023,0)="NA POSITIONS FILLED^NJ6,1O^^A4CGAMS4J;23^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.023,.1)="NA POSITIONS FILLED EOQ"
^DD(2100,4202.023,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.023,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.023,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.023,21,0)="2^^1^1^2900423^^^"
^DD(2100,4202.023,21,1,0)="The number of Nursing Service NA positions filled (FTEE)."
^DD(2100,4202.023,"DT")="2900427"
^DD(2100,4202.024,0)="CLERICAL POSITIONS FILLED^NJ6,1O^^A4CGAMS4J;24^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.024,.1)="CLERICAL POSITIONS FILLED EOQ"
^DD(2100,4202.024,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.024,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""0000"",$L($P(Y,""."",1))+1,4)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.024,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4202.024,21,0)="^^1^1^2900423^^^^"
^DD(2100,4202.024,21,1,0)="The number of Nursing Service clerical positions filled (FTEE)."
^DD(2100,4202.024,"DT")="2900427"
^DD(2100,4202.025,0)="ADMIN OFFICER POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;25^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.025,.1)="ADMIN OFFICER POSITIONS FILLED EOQ"
^DD(2100,4202.025,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.025,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.025,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.025,21,0)="^^2^2^2900421^^"
^DD(2100,4202.025,21,1,0)="The number of Administrative Officer positions filled (FTEE)."
^DD(2100,4202.025,21,2,0)="They are not to be counted under the clerical category."
^DD(2100,4202.025,"DT")="2900427"
^DD(2100,4202.026,0)="CLINICAL SPEC POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;26^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.026,.1)="CLINICAL SPEC POSITIONS FILLED EOQ"
^DD(2100,4202.026,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.026,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.026,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.026,21,0)="^^1^1^2900421^^"
^DD(2100,4202.026,21,1,0)="The number of positions filled (FTEE) for Clinical Specialist."
^DD(2100,4202.026,"DT")="2900427"
^DD(2100,4202.027,0)="NURSE PRAC POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;27^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.027,.1)="NURSE PRAC POSITIONS FILLED EOQ"
^DD(2100,4202.027,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.027,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.027,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.027,21,0)="^^1^1^2900421^^"
^DD(2100,4202.027,21,1,0)="The number of positions filled (FTEE) for Nurse Practitioner."
^DD(2100,4202.027,"DT")="2900427"
^DD(2100,4202.028,0)="INFECT CTRL POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;28^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.028,.1)="INFECT CONTROL POSITIONS FILLED EOQ"
^DD(2100,4202.028,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.028,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.028,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.028,21,0)="^^1^1^2900421^^"
^DD(2100,4202.028,21,1,0)="The number of positions filled (FTEE) for Infection Control Nurse."
^DD(2100,4202.028,"DT")="2900427"
^DD(2100,4202.029,0)="PUB HLTH POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;29^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.029,.1)="PUBLIC HEALTH POSITIONS FILLED EOQ"
^DD(2100,4202.029,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.029,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.029,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.029,21,0)="^^1^1^2900421^^"
^DD(2100,4202.029,21,1,0)="The number of positions filled (FTEE) for Public Health Coordinator."
^DD(2100,4202.029,"DT")="2900427"
^DD(2100,4202.03,0)="STAFF NURSE POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;30^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.03,.1)="STAFF NURSE POSITIONS FILLED EOQ"
^DD(2100,4202.03,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.03,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.03,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.03,21,0)="^^3^3^2900423^^^"
^DD(2100,4202.03,21,1,0)="The number of positions filled (FTEE) for Staff Nurse. A Staff Nurse"
^DD(2100,4202.03,21,2,0)="is any registered nurse working in direct patient care within a bed"
^DD(2100,4202.03,21,3,0)="unit or clinical/diagnostic area (i.e., specialized medical program)."
^DD(2100,4202.03,"DT")="2900427"
^DD(2100,4202.031,0)="CHIEF NURSE POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;31^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.031,.1)="CHIEF NURSE POSITIONS FILLED EOQ"
^DD(2100,4202.031,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.031,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.031,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.031,21,0)="^^1^1^2900421^^"
^DD(2100,4202.031,21,1,0)="The number of positions filled (FTEE) for Chief Nurse."
^DD(2100,4202.031,"DT")="2900427"
^DD(2100,4202.032,0)="ASST CHIEF POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;32^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.032,.1)="ASST CHIEF POSITIONS FILLED EOQ"
^DD(2100,4202.032,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.032,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.032,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.032,21,0)="1^^1^1^2900421^"
^DD(2100,4202.032,21,1,0)="The number of positions filled (FTEE) for Assistant Chief Nurse."
^DD(2100,4202.032,"DT")="2900427"
^DD(2100,4202.033,0)="ASSOC CHIEF POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;33^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.033,.1)="ASSOC CHIEF POSITIONS FILLED EOQ"
^DD(2100,4202.033,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.033,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.033,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.033,21,0)="^^2^2^2900421^"
^DD(2100,4202.033,21,1,0)="The number of positions filled (FTEE) for Associate Chief, Nursing"
^DD(2100,4202.033,21,2,0)="Service."
^DD(2100,4202.033,"DT")="2900427"
^DD(2100,4202.034,0)="SUPERVISOR POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;34^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.034,.1)="SUPERVISOR POSITIONS FILLED EOQ"
^DD(2100,4202.034,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.034,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.034,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.034,21,0)="^^1^1^2900421^"
^DD(2100,4202.034,21,1,0)="The number of positions filled (FTEE) for Supervisor."
^DD(2100,4202.034,"DT")="2900427"
^DD(2100,4202.035,0)="HEAD NURSE POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;35^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.035,.1)="HEAD NURSE POSITIONS FILLED EOQ"
^DD(2100,4202.035,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.035,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.035,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.035,21,0)="^^1^1^2900421^"
^DD(2100,4202.035,21,1,0)="The number of positions filled (FTEE) for Head Nurse."
^DD(2100,4202.035,"DT")="2900427"
^DD(2100,4202.036,0)="OTHER POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;36^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.036,.1)="OTHER POSITIONS FILLED EOQ"
^DD(2100,4202.036,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.036,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.036,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.036,21,0)="^^6^6^2900421^"
^DD(2100,4202.036,21,1,0)="The number of positions filled (FTEE) for other than Staff Nurse."
^DD(2100,4202.036,21,2,0)="Include trainees assigned to Nursing Service, ombudsmen (i.e.,"
^DD(2100,4202.036,21,3,0)="patient advocates), quality assurance coordinators or utilization"
^DD(2100,4202.036,21,4,0)="review coordinators. Oncology nurses not classified as clinical"
^DD(2100,4202.036,21,5,0)="specialists/nurse practitioners should be included under this"
^DD(2100,4202.036,21,6,0)="category."
^DD(2100,4202.036,"DT")="2900427"
^DD(2100,4202.037,0)="RESEARCH POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;37^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.037,.1)="RESEARCH POSITIONS FILLED EOQ"
^DD(2100,4202.037,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.037,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.037,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.037,21,0)="^^1^1^2900421^"
^DD(2100,4202.037,21,1,0)="The number of positions filled (FTEE) for Nurse Researcher."
^DD(2100,4202.037,"DT")="2900427"
^DD(2100,4202.038,0)="ASSOC CHIEF RESHR POSITIONS^NJ5,1O^^A4CGAMS4J;38^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.038,.1)="ASSOC CHIEF RESHR POSITIONS FILLED EOQ"
^DD(2100,4202.038,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.038,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.038,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.038,21,0)="^^2^2^2900421^"
^DD(2100,4202.038,21,1,0)="The number of positions filled (FTEE) for Associate Chief, Research"
^DD(2100,4202.038,21,2,0)="Section; Nursing Service."
^DD(2100,4202.038,"DT")="2900427"
^DD(2100,4202.039,0)="ASSOC CHIEF ED POSITIONS^NJ5,1O^^A4CGAMS4J;39^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.039,.1)="ASSOC CHIEF ED POSITIONS FILLED EOQ"
^DD(2100,4202.039,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.039,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.039,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.039,21,0)="^^2^2^2900421^"
^DD(2100,4202.039,21,1,0)="The number of positions filled (FTEE) for Associate Chief, Education"
^DD(2100,4202.039,21,2,0)="Section; Nursing Service."
^DD(2100,4202.039,"DT")="2900427"
^DD(2100,4202.04,0)="INSTRUCTOR POSITIONS FILLED^NJ5,1O^^A4CGAMS4J;40^K:+X'=X!(X>999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4202.04,.1)="INSTRUCTOR POSITIONS FILLED EOQ"
^DD(2100,4202.04,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.04,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S Y=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1)_$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1)"
^DD(2100,4202.04,3)="Type a Number between 0 and 999.9, 1 Decimal Digit"
^DD(2100,4202.04,21,0)="^^1^1^2900421^"
^DD(2100,4202.04,21,1,0)="The number of positions filled (FTEE) for Nurse Instructor."
^DD(2100,4202.04,"DT")="2900427"
^DD(2100,4217.001,0)="561 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.001,.1)="561 (OFFICE OF THE CHIEF SUPERVISORY HOURS)"
^DD(2100,4217.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.001,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.001,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.001,21,0)="^^2^2^2900421^"
^DD(2100,4217.001,21,1,0)="The total number of actual supervisory hours worked for the Office"
^DD(2100,4217.001,21,2,0)="of the Chief, Building Management Service."
^DD(2100,4217.001,"DT")="2900419"
^DD(2100,4217.002,0)="562 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.002,.1)="562 (ENVIRONMENTAL CARE SUPERVISORY HOURS)"
^DD(2100,4217.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.002,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.002,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.002,21,0)="^^2^2^2900421^"
^DD(2100,4217.002,21,1,0)="The total number of actual supervisory hours worked for Pest Control"
^DD(2100,4217.002,21,2,0)="Operations."
^DD(2100,4217.002,"DT")="2900419"
^DD(2100,4217.003,0)="563 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.003,.1)="563 (ENVIRONMENTAL CARE SUPERVISORY HOURS)"
^DD(2100,4217.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.003,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.003,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.003,21,0)="^^2^2^2900421^"
^DD(2100,4217.003,21,1,0)="The total number of actual supervisory hours worked for Ground"
^DD(2100,4217.003,21,2,0)="Management Operations."
^DD(2100,4217.003,"DT")="2900419"
^DD(2100,4217.004,0)="564 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.004,.1)="564 (ENVIRONMENTAL CARE SUPERVISORY HOURS)"
^DD(2100,4217.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.004,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.004,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.004,21,0)="^^2^2^2900421^"
^DD(2100,4217.004,21,1,0)="The total number of actual supervisory hours worked for Sanitation"
^DD(2100,4217.004,21,2,0)="Operations."
^DD(2100,4217.004,"DT")="2900419"
^DD(2100,4217.005,0)="565 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.005,.1)="565 (ENVIRONMENTAL CARE SUPERVISORY HOURS)"
^DD(2100,4217.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.005,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.005,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.005,21,0)="^^2^2^2900421^"
^DD(2100,4217.005,21,1,0)="The total number of actual supervisory hours worked for Bed Services"
^DD(2100,4217.005,21,2,0)="Operations."
^DD(2100,4217.005,"DT")="2900419"
^DD(2100,4217.006,0)="566 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.006,.1)="566 (ENVIRONMENTAL CARE SUPERVISORY HOURS)"
^DD(2100,4217.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.006,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.006,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.006,21,0)="^^2^2^2900421^"
^DD(2100,4217.006,21,1,0)="The total number of actual supervisory hours worked for Glazing"
^DD(2100,4217.006,21,2,0)="Maintenance Operations."
^DD(2100,4217.006,"DT")="2900419"
^DD(2100,4217.007,0)="567 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.007,.1)="567 (ENVIRONMENTAL CARE SUPERVISORY HOURS)"
^DD(2100,4217.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.007,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.007,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.007,21,0)="^^2^2^2900421^"
^DD(2100,4217.007,21,1,0)="The total number of actual supervisory hours worked for Waste"
^DD(2100,4217.007,21,2,0)="Management Operations."
^DD(2100,4217.007,"DT")="2900419"
^DD(2100,4217.008,0)="570 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.008,.1)="570 (TEXTILE CARE SUPERVISORY HOURS)"
^DD(2100,4217.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.008,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.008,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.008,21,0)="^^2^2^2900421^"
^DD(2100,4217.008,21,1,0)="The total number of actual supervisory hours worked for Laundry"
^DD(2100,4217.008,21,2,0)="and Dry Cleaning Operations."
^DD(2100,4217.008,"DT")="2900419"
^DD(2100,4217.009,0)="571 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.009,.1)="571 (TEXTILE CARE SUPERVISORY HOURS)"
^DD(2100,4217.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.009,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.009,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.009,21,0)="^^2^2^2900421^"
^DD(2100,4217.009,21,1,0)="The total number of actual supervisory hours worked for Linen"
^DD(2100,4217.009,21,2,0)="Operations."
^DD(2100,4217.009,"DT")="2900419"
^DD(2100,4217.01,0)="572 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.01,.1)="572 (TEXTILE CARE SUPERVISORY HOURS)"
^DD(2100,4217.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.01,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.01,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.01,21,0)="^^2^2^2900421^"
^DD(2100,4217.01,21,1,0)="The total number of actual supervisory hours worked for Uniform"
^DD(2100,4217.01,21,2,0)="Operations."
^DD(2100,4217.01,"DT")="2900419"
^DD(2100,4217.011,0)="573 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.011,.1)="573 (TEXTILE CARE SUPERVISORY HOURS)"
^DD(2100,4217.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.011,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.011,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.011,21,0)="^^2^2^2900421^"
^DD(2100,4217.011,21,1,0)="The total number of actual supervisory hours worked for Patients"
^DD(2100,4217.011,21,2,0)="Assistance Operations."
^DD(2100,4217.011,"DT")="2900419"
^DD(2100,4217.012,0)="575 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.012,.1)="575 (INTERIOR DESIGN SUPERVISORY HOURS)"
^DD(2100,4217.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.012,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.012,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.012,21,0)="^^2^2^2900423^^^"
^DD(2100,4217.012,21,1,0)="The total number of actual supervisory hours worked for Interior"
^DD(2100,4217.012,21,2,0)="Design Operations."
^DD(2100,4217.012,"DT")="2900419"
^DD(2100,4217.013,0)="577 (SUPERVISORY HOURS)^NJ5,0O^^A4CGAMS4K;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.013,.1)="577 (INTERIOR DESIGN SUPERVISORY HOURS)"
^DD(2100,4217.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.013,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.013,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.013,21,0)="^^2^2^2900421^^"
^DD(2100,4217.013,21,1,0)="The total number of actual supervisory hours worked for Directional"
^DD(2100,4217.013,21,2,0)="Systems Operations."
^DD(2100,4217.013,"DT")="2900419"
^DD(2100,4217.014,0)="561 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.014,.1)="561 (OFFICE OF THE CHIEF LABOR HOURS)"
^DD(2100,4217.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.014,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.014,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.014,21,0)="^^2^2^2900421^"
^DD(2100,4217.014,21,1,0)="The total number of actual direct labor staff hours worked for the"
^DD(2100,4217.014,21,2,0)="Office of the Chief, Building Management Services."
^DD(2100,4217.014,"DT")="2900419"
^DD(2100,4217.015,0)="562 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.015,.1)="562 (ENVIRONMENTAL CARE LABOR HOURS)"
^DD(2100,4217.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.015,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.015,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.015,21,0)="^^2^2^2900421^"
^DD(2100,4217.015,21,1,0)="The total number of actual direct labor staff hours worked for Pest"
^DD(2100,4217.015,21,2,0)="Control Operations."
^DD(2100,4217.015,"DT")="2900419"
^DD(2100,4217.016,0)="563 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.016,.1)="563 (ENVIRONMENTAL CARE LABOR HOURS)"
^DD(2100,4217.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.016,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.016,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.016,21,0)="^^2^2^2900421^"
^DD(2100,4217.016,21,1,0)="The total number of actual direct labor staff hours worked for Ground"
^DD(2100,4217.016,21,2,0)="Management Operations."
^DD(2100,4217.016,"DT")="2900419"
^DD(2100,4217.017,0)="564 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.017,.1)="564 (ENVIRONMENTAL CARE LABOR HOURS)"
^DD(2100,4217.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.017,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.017,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.017,21,0)="^^2^2^2900421^"
^DD(2100,4217.017,21,1,0)="The total number of actual direct labor staff hours worked Sanitation"
^DD(2100,4217.017,21,2,0)="Operations."
^DD(2100,4217.017,"DT")="2900419"
^DD(2100,4217.018,0)="565 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.018,.1)="565 (ENVIRONMENTAL CARE LABOR HOURS)"
^DD(2100,4217.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.018,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.018,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.018,21,0)="^^2^2^2900421^"
^DD(2100,4217.018,21,1,0)="The total number of actual direct labor staff hours worked Bed"
^DD(2100,4217.018,21,2,0)="Services Operations."
^DD(2100,4217.018,"DT")="2900419"
^DD(2100,4217.019,0)="566 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.019,.1)="566 (ENVIRONMENTAL CARE LABOR HOURS)"
^DD(2100,4217.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.019,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.019,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.019,21,0)="^^2^2^2900421^"
^DD(2100,4217.019,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.019,21,2,0)="Glazing Maintenance Operations."
^DD(2100,4217.019,"DT")="2900419"
^DD(2100,4217.02,0)="567 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.02,.1)="567 (ENVIRONMENTAL CARE LABOR HOURS)"
^DD(2100,4217.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.02,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.02,21,0)="^^2^2^2900421^"
^DD(2100,4217.02,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.02,21,2,0)="Waste Management Operations."
^DD(2100,4217.02,"DT")="2900419"
^DD(2100,4217.021,0)="570 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.021,.1)="570 (TEXTILE CARE LABOR HOURS)"
^DD(2100,4217.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.021,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.021,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.021,21,0)="^^2^2^2900421^"
^DD(2100,4217.021,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.021,21,2,0)="Laundry and Dry Cleaning Operations."
^DD(2100,4217.021,"DT")="2900419"
^DD(2100,4217.022,0)="571 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.022,.1)="571 (TEXTILE CARE LABOR HOURS)"
^DD(2100,4217.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.022,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.022,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.022,21,0)="^^2^2^2900421^"
^DD(2100,4217.022,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.022,21,2,0)="Linen Operations."
^DD(2100,4217.022,"DT")="2900419"
^DD(2100,4217.023,0)="572 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.023,.1)="572 (TEXTILE CARE LABOR HOURS)"
^DD(2100,4217.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.023,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.023,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.023,21,0)="^^2^2^2900421^"
^DD(2100,4217.023,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.023,21,2,0)="Uniform Operations."
^DD(2100,4217.023,"DT")="2900419"
^DD(2100,4217.024,0)="573 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.024,.1)="573 (TEXTILE CARE LABOR HOURS)"
^DD(2100,4217.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.024,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.024,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.024,21,0)="^^2^2^2900421^"
^DD(2100,4217.024,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.024,21,2,0)="Patients Assistance Operations."
^DD(2100,4217.024,"DT")="2900419"
^DD(2100,4217.025,0)="575 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.025,.1)="575 (INTERIOR DESIGN LABOR HOURS)"
^DD(2100,4217.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.025,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.025,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.025,21,0)="^^2^2^2900421^^"
^DD(2100,4217.025,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.025,21,2,0)="Interior Design Operations."
^DD(2100,4217.025,"DT")="2900419"
^DD(2100,4217.026,0)="577 (LABOR HOURS)^NJ5,0O^^A4CGAMS4L;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.026,.1)="577 (INTERIOR DESIGN LABOR HOURS)"
^DD(2100,4217.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.026,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.026,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.026,21,0)="^^2^2^2900421^^^"
^DD(2100,4217.026,21,1,0)="The total number of actual direct labor staff hours worked for"
^DD(2100,4217.026,21,2,0)="Directional System Operations."
^DD(2100,4217.026,"DT")="2900419"
^DD(2100,4217.027,0)="561 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.027,.1)="561 (OFFICE OF THE CHIEF THERAPY HOURS)"
^DD(2100,4217.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.027,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.027,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.027,21,0)="^^2^2^2900421^^"
^DD(2100,4217.027,21,1,0)="The total paid incentive therapy staff hours for the"
^DD(2100,4217.027,21,2,0)="Office of the Chief, Building Management Service."
^DD(2100,4217.027,"DT")="2900419"
^DD(2100,4217.028,0)="563 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.028,.1)="563 (ENVIRONMENTAL CARE THERAPY HOURS)"
^DD(2100,4217.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.028,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.028,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.028,21,0)="^^2^2^2900421^"
^DD(2100,4217.028,21,1,0)="The total paid incentive therapy staff hours for Ground Management"
^DD(2100,4217.028,21,2,0)="Operations."
^DD(2100,4217.028,"DT")="2900419"
^DD(2100,4217.029,0)="564 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.029,.1)="564 (ENVIRONMENTAL CARE THERAPY HOURS)"
^DD(2100,4217.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.029,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.029,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.029,21,0)="^^2^2^2900421^"
^DD(2100,4217.029,21,1,0)="The total paid incentive therapy staff hours for Sanitation"
^DD(2100,4217.029,21,2,0)="Operations."
^DD(2100,4217.029,"DT")="2900419"
^DD(2100,4217.03,0)="565 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.03,.1)="565 (ENVIRONMENTAL CARE THERAPY HOURS)"
^DD(2100,4217.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.03,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.03,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.03,21,0)="^^2^2^2900421^"
^DD(2100,4217.03,21,1,0)="The total paid incentive therapy staff hours for Bed Services"
^DD(2100,4217.03,21,2,0)="Operations."
^DD(2100,4217.03,"DT")="2900419"
^DD(2100,4217.031,0)="566 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.031,.1)="566 (ENVIRONMENTAL CARE THERAPY HOURS)"
^DD(2100,4217.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.031,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.031,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.031,21,0)="^^2^2^2900421^"
^DD(2100,4217.031,21,1,0)="The total paid incentive therapy staff hours for Glazing Maintenance"
^DD(2100,4217.031,21,2,0)="Operations."
^DD(2100,4217.031,"DT")="2900419"
^DD(2100,4217.032,0)="567 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.032,.1)="567 (ENVIRONMENTAL CARE THERAPY HOURS)"
^DD(2100,4217.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.032,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.032,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.032,21,0)="^^2^2^2900421^"
^DD(2100,4217.032,21,1,0)="The total paid incentive therapy staff hours for Waste Management"
^DD(2100,4217.032,21,2,0)="Operations."
^DD(2100,4217.032,"DT")="2900419"
^DD(2100,4217.033,0)="570 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.033,.1)="570 (TEXTILE CARE THERAPY HOURS)"
^DD(2100,4217.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.033,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.033,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.033,21,0)="^^2^2^2900421^"
^DD(2100,4217.033,21,1,0)="The total paid incentive therapy staff hours for Laundry and Dry"
^DD(2100,4217.033,21,2,0)="Cleaning Operations."
^DD(2100,4217.033,"DT")="2900419"
^DD(2100,4217.034,0)="571 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.034,.1)="571 (TEXTILE CARE THERAPY HOURS)"
^DD(2100,4217.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.034,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.034,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.034,21,0)="^^1^1^2900421^"
^DD(2100,4217.034,21,1,0)="The total paid incentive therapy staff hours for Linen Operations."
^DD(2100,4217.034,"DT")="2900419"
^DD(2100,4217.035,0)="572 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.035,.1)="572 (TEXTILE CARE THERAPY HOURS)"
^DD(2100,4217.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.035,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.035,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.035,21,0)="^^1^1^2900421^"
^DD(2100,4217.035,21,1,0)="The total paid incentive therapy staff hours for Uniform Operations."
^DD(2100,4217.035,"DT")="2900419"
^DD(2100,4217.036,0)="573 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.036,.1)="573 (TEXTILE CARE THERAPY HOURS)"
^DD(2100,4217.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.036,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.036,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.036,21,0)="^^2^2^2900421^"
^DD(2100,4217.036,21,1,0)="The total paid incentive therapy staff hours for Patients Assistance"
^DD(2100,4217.036,21,2,0)="Operations."
^DD(2100,4217.036,"DT")="2900419"
^DD(2100,4217.037,0)="575 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.037,.1)="575 (INTERIOR DESIGN THERAPY HOURS)"
^DD(2100,4217.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.037,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.037,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.037,21,0)="^^2^2^2900421^"
^DD(2100,4217.037,21,1,0)="The total paid incentive therapy staff hours for Interior Design"
^DD(2100,4217.037,21,2,0)="Operations."
^DD(2100,4217.037,"DT")="2900419"
^DD(2100,4217.038,0)="577 (THERAPY HOURS)^NJ5,0O^^A4CGAMS4M;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.038,.1)="577 (INTERIOR DESIGN THERAPY HOURS)"
^DD(2100,4217.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.038,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.038,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.038,21,0)="^^2^2^2900421^"
^DD(2100,4217.038,21,1,0)="The total paid incentive therapy staff hours for Directional"
^DD(2100,4217.038,21,2,0)="System Operations."
^DD(2100,4217.038,"DT")="2900419"
^DD(2100,4217.039,0)="OT/COMP HOURS WORKED^NJ5,0O^^A4CGAMS4N;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.039,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4217.039,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4217.039,21,0)="^^2^2^2900421^"
^DD(2100,4217.039,21,1,0)="The total overtime and compensatory hours worked by all employees"
^DD(2100,4217.039,21,2,0)="within Building Management Service."
^DD(2100,4217.039,"DT")="2900419"
^DD(2100,4217.04,0)="VACANT BED UNITS SERVICED^NJ4,0O^^A4CGAMS4N;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4217.04,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4217.04,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4217.04,21,0)="^^3^3^2900423^^"
^DD(2100,4217.04,21,1,0)="The total units serviced. Vacant bed units are generally identified"
^DD(2100,4217.04,21,2,0)="as: terminal discharge cleaning, interward transfer, vacant bed"
^DD(2100,4217.04,21,3,0)="maintenance, etc."
^DD(2100,4217.04,"DT")="2900419"
^DD(2100,4217.041,0)="DIET (FTEE ASSIGNED)^NJ2,0O^^A4CGAMS4N;3^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.041,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.041,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4217.041,21,0)="^^1^1^2900421^"
^DD(2100,4217.041,21,1,0)="The total number of Sanitation Operations FTEE who worked in Dietetics."
^DD(2100,4217.041,"DT")="2900419"
^DD(2100,4217.042,0)="OR (FTEE ASSIGNED)^NJ2,0O^^A4CGAMS4N;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.042,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.042,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4217.042,21,0)="^^2^2^2900421^"
^DD(2100,4217.042,21,1,0)="The total number of Sanitation Operations FTEE who worked in Surgical"
^DD(2100,4217.042,21,2,0)="Suite (OR)."
^DD(2100,4217.042,"DT")="2900419"
^DD(2100,4217.043,0)="NHQ (FTEE ASSIGNED)^NJ2,0O^^A4CGAMS4N;5^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.043,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.043,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4217.043,21,0)="^^2^2^2900421^"
^DD(2100,4217.043,21,1,0)="The total number of Sanitation Operations FTEE who worked in "
^DD(2100,4217.043,21,2,0)="Non-Housekeeping Quarters."
^DD(2100,4217.043,"DT")="2900419"
^DD(2100,4217.044,0)="HQ (FTEE ASSIGNED)^NJ2,0O^^A4CGAMS4N;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.044,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.044,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4217.044,21,0)="^^2^2^2900421^"
^DD(2100,4217.044,21,1,0)="The total number of Sanitation Operations FTEE who worked in"
^DD(2100,4217.044,21,2,0)="Housekeeping Quarters."
^DD(2100,4217.044,"DT")="2900419"
^DD(2100,4217.045,0)="CANT (FTEE ASSIGNED)^NJ2,0O^^A4CGAMS4N;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.045,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.045,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4217.045,21,0)="^^1^1^2900421^"
^DD(2100,4217.045,21,1,0)="The total number of Sanitation Operations FTEE who worked in Canteen."
^DD(2100,4217.045,"DT")="2900419"
^DD(2100,4217.046,0)="FURNITURE HANDLING (FTEE)^NJ2,0O^^A4CGAMS4N;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.046,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.046,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4217.046,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4217.046,21,0)="^^2^2^2900423^^"
^DD(2100,4217.046,21,1,0)="The total number of Furniture Handling Operations FTEE who worked in"
^DD(2100,4217.046,21,2,0)="Interior Design. This includes moving, assembly, set-up, etc."
^DD(2100,4217.046,"DT")="2900419"
^DD(2100,4217.047,0)="G-1 STAFFING STANDARDS^NJ7,0O^^A4CGAMS4N;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.047,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4217.047,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4217.047,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4217.047,21,0)="^^3^3^2900421^"
^DD(2100,4217.047,21,1,0)="Program Guide, Building Management Service Manpower Determination"
^DD(2100,4217.047,21,2,0)="Methodology for Laundry Operations: M-1, Part VII, G-1."
^DD(2100,4217.047,21,3,0)="Enter zeros until further instructions."
^DD(2100,4217.047,"DT")="2900419"
^DD(2100,4217.048,0)="G-2 STAFFING STANDARDS^NJ7,0O^^A4CGAMS4N;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4217.048,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4217.048,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4217.048,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4217.048,21,0)="^^3^3^2900421^"
^DD(2100,4217.048,21,1,0)="The number of supervisory and direct labor staff hours required for"
^DD(2100,4217.048,21,2,0)="Sanitation Operations as developed by utilizing Program Guide G-2."
^DD(2100,4217.048,21,3,0)="Exclude administrative and clerical staff."
^DD(2100,4217.048,"DT")="2900419"
^DD(2100,4218.001,0)="PSYCHIATRY (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.001,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.001,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.001,21,0)="^^2^2^2900421^"
^DD(2100,4218.001,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.001,21,2,0)="Psychiatry."
^DD(2100,4218.001,"DT")="2900419"
^DD(2100,4218.002,0)="INTERMEDIATE (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.002,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.002,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.002,21,0)="^^2^2^2900421^"
^DD(2100,4218.002,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.002,21,2,0)="Intermediate Care."
^DD(2100,4218.002,"DT")="2900419"
^DD(2100,4218.003,0)="MEDICINE (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.003,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.003,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.003,21,0)="^^2^2^2900421^"
^DD(2100,4218.003,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.003,21,2,0)="Medicine."
^DD(2100,4218.003,"DT")="2900419"
^DD(2100,4218.004,0)="NEUROLOGY (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.004,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.004,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.004,21,0)="^^2^2^2900421^"
^DD(2100,4218.004,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.004,21,2,0)="Neurology."
^DD(2100,4218.004,"DT")="2900419"
^DD(2100,4218.005,0)="REHAB MEDICINE (NET SQ FEET)^NJ6,0O^^A4CGAMS4O;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.005,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.005,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.005,21,0)="^^3^3^2900421^"
^DD(2100,4218.005,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.005,21,2,0)="Rehabilitation Medicine. This will include Blind Rehabilitation"
^DD(2100,4218.005,21,3,0)="Medicine."
^DD(2100,4218.005,"DT")="2900419"
^DD(2100,4218.006,0)="SPINAL CORD INJURY (NET SQ FT)^NJ6,0O^^A4CGAMS4O;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.006,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.006,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.006,21,0)="^^2^2^2900421^"
^DD(2100,4218.006,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.006,21,2,0)="Spinal Cord Injury."
^DD(2100,4218.006,"DT")="2900419"
^DD(2100,4218.007,0)="SURGERY (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.007,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.007,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.007,21,0)="^^2^2^2900421^"
^DD(2100,4218.007,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.007,21,2,0)="Surgery."
^DD(2100,4218.007,"DT")="2900419"
^DD(2100,4218.008,0)="NHCU (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.008,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.008,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.008,21,0)="^^2^2^2900421^"
^DD(2100,4218.008,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.008,21,2,0)="Nursing Home Care Unit."
^DD(2100,4218.008,"DT")="2900419"
^DD(2100,4218.009,0)="DOMICILIARY (NET SQ FEET)^NJ6,0O^^A4CGAMS4O;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.009,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.009,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.009,21,0)="^^2^2^2900421^"
^DD(2100,4218.009,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.009,21,2,0)="Domiciliary."
^DD(2100,4218.009,"DT")="2900419"
^DD(2100,4218.01,0)="CLINICS (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.01,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.01,21,0)="^^4^4^2900421^"
^DD(2100,4218.01,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.01,21,2,0)="Clinics. Include Outpatient, Mental Hygiene, Day Treatment Center, Day"
^DD(2100,4218.01,21,3,0)="Hospital, Drug Dependence, Alcohol Treatment, etc. Do not include"
^DD(2100,4218.01,21,4,0)="satellite outpatient clinics."
^DD(2100,4218.01,"DT")="2900419"
^DD(2100,4218.011,0)="DENTAL (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.011,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.011,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.011,21,0)="^^2^2^2900421^"
^DD(2100,4218.011,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.011,21,2,0)="Dental. Do not include Central Dental Laboratories."
^DD(2100,4218.011,"DT")="2900419"
^DD(2100,4218.012,0)="RESEARCH (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.012,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.012,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.012,21,0)="^^2^2^2900421^"
^DD(2100,4218.012,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.012,21,2,0)="Research. Include all research areas including administrative space."
^DD(2100,4218.012,"DT")="2900419"
^DD(2100,4218.013,0)="ADMINISTRATIVE (NET SQ FEET)^NJ6,0O^^A4CGAMS4O;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.013,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.013,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.013,21,0)="^^5^5^2900421^"
^DD(2100,4218.013,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.013,21,2,0)="Administrative areas. Include Dietetic Service, Canteen, Non-Housekeeping"
^DD(2100,4218.013,21,3,0)="Quarters, and other facility-related functions not indicated elsewhere."
^DD(2100,4218.013,21,4,0)="Also, include conference rooms, training rooms and offices not"
^DD(2100,4218.013,21,5,0)="specifically included elsewhere."
^DD(2100,4218.013,"DT")="2900419"
^DD(2100,4218.014,0)="OTHER (NET SQUARE FEET)^NJ6,0O^^A4CGAMS4O;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.014,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4218.014,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4218.014,21,0)="^^4^4^2900423^^"
^DD(2100,4218.014,21,1,0)="The total net square feet maintained by Sanitation Operations Labor for"
^DD(2100,4218.014,21,2,0)="all other areas. Include stairwells, corridors, lobbies, vending areas,"
^DD(2100,4218.014,21,3,0)="central dental laboratories, satellite outpatient clinics, regional"
^DD(2100,4218.014,21,4,0)="medical educational center (RMEC), non-VA organizations, etc."
^DD(2100,4218.014,"DT")="2900419"
^DD(2100,4218.015,0)="PSYCHIATRY (MAN HOURS)^NJ5,0O^^A4CGAMS4P;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.015,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.015,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.015,21,0)="^^2^2^2900421^"
^DD(2100,4218.015,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.015,21,2,0)="Psychiatry."
^DD(2100,4218.015,"DT")="2900419"
^DD(2100,4218.016,0)="INTERMEDIATE (MAN HOURS)^NJ5,0O^^A4CGAMS4P;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.016,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.016,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.016,21,0)="^^2^2^2900421^"
^DD(2100,4218.016,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.016,21,2,0)="Intermediate Care."
^DD(2100,4218.016,"DT")="2900419"
^DD(2100,4218.017,0)="MEDICINE (MAN HOURS)^NJ5,0O^^A4CGAMS4P;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.017,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.017,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.017,21,0)="^^2^2^2900421^"
^DD(2100,4218.017,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.017,21,2,0)="Medicine."
^DD(2100,4218.017,"DT")="2900419"
^DD(2100,4218.018,0)="NEUROLOGY (MAN HOURS)^NJ5,0O^^A4CGAMS4P;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.018,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.018,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.018,21,0)="^^2^2^2900421^"
^DD(2100,4218.018,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.018,21,2,0)="Neurology."
^DD(2100,4218.018,"DT")="2900419"
^DD(2100,4218.019,0)="REHAB MEDICINE (MAN HOURS)^NJ5,0O^^A4CGAMS4P;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.019,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.019,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.019,21,0)="^^2^2^2900421^"
^DD(2100,4218.019,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.019,21,2,0)="Rehabilitation Medicine. Include Blind Rehabilitation Medicine."
^DD(2100,4218.019,"DT")="2900419"
^DD(2100,4218.02,0)="SPINAL CORD INJURY (MAN HRS)^NJ5,0O^^A4CGAMS4P;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.02,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.02,21,0)="^^2^2^2900421^"
^DD(2100,4218.02,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.02,21,2,0)="Spinal Cord Injury."
^DD(2100,4218.02,"DT")="2900419"
^DD(2100,4218.021,0)="SURGERY (MAN HOURS)^NJ5,0O^^A4CGAMS4P;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.021,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.021,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.021,21,0)="^^2^2^2900421^"
^DD(2100,4218.021,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.021,21,2,0)="Surgery."
^DD(2100,4218.021,"DT")="2900419"
^DD(2100,4218.022,0)="NHCU (MAN HOURS)^NJ5,0O^^A4CGAMS4P;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.022,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.022,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.022,21,0)="^^2^2^2900421^"
^DD(2100,4218.022,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.022,21,2,0)="Nursing Home Care Unit."
^DD(2100,4218.022,"DT")="2900419"
^DD(2100,4218.023,0)="DOMICILIARY (MAN HOURS)^NJ5,0O^^A4CGAMS4P;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.023,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.023,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.023,21,0)="^^2^2^2900421^"
^DD(2100,4218.023,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.023,21,2,0)="the Domiciliary."
^DD(2100,4218.023,"DT")="2900419"
^DD(2100,4218.024,0)="CLINICS (MAN HOURS)^NJ5,0O^^A4CGAMS4P;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.024,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.024,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.024,21,0)="^^4^4^2900421^"
^DD(2100,4218.024,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.024,21,2,0)="Clinics. Include Outpatient, Mental Hygiene, Day Treatment Center, Day"
^DD(2100,4218.024,21,3,0)="Hospital, Drug Dependence, Alcohol Treatment, etc. Do not include"
^DD(2100,4218.024,21,4,0)="satellite outpatient clincs."
^DD(2100,4218.024,"DT")="2900419"
^DD(2100,4218.025,0)="DENTAL (MAN HOURS)^NJ5,0O^^A4CGAMS4P;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.025,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.025,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.025,21,0)="^^2^2^2900421^"
^DD(2100,4218.025,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.025,21,2,0)="Dental. Do not include Central Dental Laboratories."
^DD(2100,4218.025,"DT")="2900419"
^DD(2100,4218.026,0)="RESEARCH (MAN HOURS)^NJ5,0O^^A4CGAMS4P;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.026,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.026,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.026,21,0)="^^2^2^2900421^^"
^DD(2100,4218.026,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.026,21,2,0)="Research. Include research administrative space."
^DD(2100,4218.026,"DT")="2900419"
^DD(2100,4218.027,0)="ADMINISTRATIVE (MAN HOURS)^NJ5,0O^^A4CGAMS4P;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.027,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.027,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.027,21,0)="^^6^6^2900421^"
^DD(2100,4218.027,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.027,21,2,0)="Administrative areas. Include Dietetic Service, Canteen Service, "
^DD(2100,4218.027,21,3,0)="Non-Housekeeping Quarters and other facility-related functions not"
^DD(2100,4218.027,21,4,0)="indicated elsewhere. Also include conference rooms, training rooms"
^DD(2100,4218.027,21,5,0)="and offices not specifically included as part of the operations"
^DD(2100,4218.027,21,6,0)="indicated elsewhere."
^DD(2100,4218.027,"DT")="2900419"
^DD(2100,4218.028,0)="OTHER (MAN HOURS)^NJ5,0O^^A4CGAMS4P;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.028,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4218.028,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4218.028,21,0)="^^5^5^2900421^"
^DD(2100,4218.028,21,1,0)="The total actual staff hours worked by Sanitation Operations Labor for"
^DD(2100,4218.028,21,2,0)="other areas. Include all stairwells, corridors, lobbies, vending areas,"
^DD(2100,4218.028,21,3,0)="central dental laboratories, satellite outpatient clinics, regional"
^DD(2100,4218.028,21,4,0)="medical education center (RMEC), or non-Va organizations not included"
^DD(2100,4218.028,21,5,0)="elsewhere."
^DD(2100,4218.028,"DT")="2900419"
^DD(2100,4218.029,0)="FACILITY GROSS SQ FOOTAGE^NJ7,0O^^A4CGAMS4P;15^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4218.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4218.029,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4218.029,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4218.029,21,0)="^^1^1^2900423^^"
^DD(2100,4218.029,21,1,0)="The gross square footage of the facility."
^DD(2100,4218.029,"DT")="2900419"
^DD(2100,4219.001,0)="MULTI-ACTIVITY LDRY (LBS)^NJ7,0O^^A4CGAMS4Q;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.001,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.001,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4219.001,21,0)="^^3^3^2900421^^^"
^DD(2100,4219.001,21,1,0)="The total pounds of soiled laundry processed by VA activities producing"
^DD(2100,4219.001,21,2,0)="linen/uniforms for their own and for other VA activities and/or for"
^DD(2100,4219.001,21,3,0)="other than VA use."
^DD(2100,4219.001,"DT")="2900419"
^DD(2100,4219.002,0)="SINGLE-ACTIVITY LDRY (LBS)^NJ7,0O^^A4CGAMS4Q;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.002,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.002,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4219.002,21,0)="^^2^2^2900423^^^^"
^DD(2100,4219.002,21,1,0)="The total pounds of soiled laundry processed by VA activities producing"
^DD(2100,4219.002,21,2,0)="linen/uniforms for their own use and/or for other than VA use."
^DD(2100,4219.002,"DT")="2900419"
^DD(2100,4219.003,0)="COMMERCIAL CONTRACT (LBS)^NJ7,0O^^A4CGAMS4Q;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.003,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.003,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4219.003,21,0)="^^2^2^2900421^^^"
^DD(2100,4219.003,21,1,0)="The total pounds of soiled laundry processed by VA activities contracting"
^DD(2100,4219.003,21,2,0)="with a commercial source for their laundry/uniforms production."
^DD(2100,4219.003,"DT")="2900419"
^DD(2100,4219.004,0)="ALL OTHER (LBS)^NJ7,0O^^A4CGAMS4Q;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.004,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4219.004,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4219.004,21,0)="^^1^1^2900421^^^"
^DD(2100,4219.004,21,1,0)="All other pounds of soiled laundry processed for non-VA organizations."
^DD(2100,4219.004,"DT")="2900419"
^DD(2100,4219.005,0)="UNIFORMS (PIECE COUNT)^NJ6,0O^^A4CGAMS4Q;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.005,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.005,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.005,21,0)="^^3^3^2900421^^^"
^DD(2100,4219.005,21,1,0)="The total number of uniform pieces (shirts and trousers are considered"
^DD(2100,4219.005,21,2,0)="separate pieces) processed for each medical care facility whether"
^DD(2100,4219.005,21,3,0)="processed by multi-activity, single activity, or commercial contract."
^DD(2100,4219.005,"DT")="2900419"
^DD(2100,4219.006,0)="PATIENT'S CLOTHING (COUNT)^NJ6,0O^^A4CGAMS4Q;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.006,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.006,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.006,21,0)="^^3^3^2900423^^^^"
^DD(2100,4219.006,21,1,0)="The total number of patient's clothing pieces processed for each"
^DD(2100,4219.006,21,2,0)="medical care facility, whether processed by multi-activity, single-"
^DD(2100,4219.006,21,3,0)="activity, or commercial contract."
^DD(2100,4219.006,"DT")="2900419"
^DD(2100,4219.007,0)="DIETETICS (PIECE COUNT)^NJ6,0O^^A4CGAMS4Q;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.007,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.007,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.007,21,0)="^^2^2^2900423^^"
^DD(2100,4219.007,21,1,0)="The total number of linen and uniform pieces issued to Dietetic"
^DD(2100,4219.007,21,2,0)="Service."
^DD(2100,4219.007,"DT")="2900419"
^DD(2100,4219.008,0)="CANTEEN (PIECE COUNT)^NJ6,0O^^A4CGAMS4Q;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.008,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.008,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.008,21,0)="^^2^2^2900423^^"
^DD(2100,4219.008,21,1,0)="The total number of linen and uniform pieces issued to Canteen"
^DD(2100,4219.008,21,2,0)="Service."
^DD(2100,4219.008,"DT")="2900419"
^DD(2100,4219.009,0)="LAUNDRY SQUARE FOOTAGE^NJ6,0O^^A4CGAMS4Q;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.009,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.009,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.009,21,0)="^^6^6^2900421^"
^DD(2100,4219.009,21,1,0)="The net square footage encompassing the laundry production process"
^DD(2100,4219.009,21,2,0)="(i.e., soil storage and sorting, wash condition, dry, iron, fold,"
^DD(2100,4219.009,21,3,0)="or otherwise preparing linen prior to storage for distribution)."
^DD(2100,4219.009,21,4,0)="Include respective locker, lounge, toilet, shower, and administrative"
^DD(2100,4219.009,21,5,0)="areas. Surgical pack preparation and linen/uniform mending are linen"
^DD(2100,4219.009,21,6,0)="functions and not part of the laundry production process."
^DD(2100,4219.009,"DT")="2900419"
^DD(2100,4219.01,0)="SATELLITE FACILITY (1)^NJ3,0O^^A4CGAMS4Q;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.01,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4219.01,21,0)="^^2^2^2900421^"
^DD(2100,4219.01,21,1,0)="Multi-activity laundries will enter the three digit VA medical care "
^DD(2100,4219.01,21,2,0)="facility number for the satellite served."
^DD(2100,4219.01,"DT")="2900419"
^DD(2100,4219.011,0)="SATELLITE FACILITY (2)^NJ3,0O^^A4CGAMS4Q;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.011,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.011,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4219.011,21,0)="^^2^2^2900421^"
^DD(2100,4219.011,21,1,0)="Multi-activity laundries will enter the three digit VA medical care"
^DD(2100,4219.011,21,2,0)="facility number for the satellite served."
^DD(2100,4219.011,"DT")="2900419"
^DD(2100,4219.012,0)="SATELLITE FACILITY (3)^NJ3,0O^^A4CGAMS4Q;12^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.012,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.012,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4219.012,21,0)="^^2^2^2900421^"
^DD(2100,4219.012,21,1,0)="Multi-activity laundries will enter the three digit VA medical care"
^DD(2100,4219.012,21,2,0)="facility number for the satellite served."
^DD(2100,4219.012,"DT")="2900419"
^DD(2100,4219.013,0)="SATELLITE FACILITY (4)^NJ3,0O^^A4CGAMS4Q;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.013,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.013,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4219.013,21,0)="^^2^2^2900421^"
^DD(2100,4219.013,21,1,0)="Multi-activity laundries will enter the three digit VA medical care"
^DD(2100,4219.013,21,2,0)="facility number for the satellite served."
^DD(2100,4219.013,"DT")="2900419"
^DD(2100,4219.014,0)="SATELLITE FACILITY (5)^NJ3,0O^^A4CGAMS4Q;14^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.014,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.014,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4219.014,21,0)="^^2^2^2900421^"
^DD(2100,4219.014,21,1,0)="Multi-activity laundries will enter the three digit VA medical care"
^DD(2100,4219.014,21,2,0)="facility number for the satellite served."
^DD(2100,4219.014,"DT")="2900419"
^DD(2100,4219.015,0)="SATELLITE FACILITY (6)^NJ3,0O^^A4CGAMS4Q;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.015,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4219.015,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100,4219.015,21,0)="^^2^2^2900421^"
^DD(2100,4219.015,21,1,0)="Multi-activity laundries will enter the three digit VA medical care"
^DD(2100,4219.015,21,2,0)="facility number for the satellite served."
^DD(2100,4219.015,"DT")="2900419"
^DD(2100,4219.016,0)="PSYCHIATRY (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.016,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.016,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.016,21,0)="^^1^1^2900421^"
^DD(2100,4219.016,21,1,0)="The total pounds of linen issued, not including uniforms, to Psychiatry."
^DD(2100,4219.016,"DT")="2900419"
^DD(2100,4219.017,0)="INTERMEDIATE (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.017,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.017,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.017,21,0)="^^2^2^2900421^"
^DD(2100,4219.017,21,1,0)="The total pounds of linen issued, not including uniforms, to"
^DD(2100,4219.017,21,2,0)="Intermediate Care."
^DD(2100,4219.017,"DT")="2900419"
^DD(2100,4219.018,0)="MEDICINE (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;18^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.018,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.018,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.018,21,0)="^^1^1^2900421^"
^DD(2100,4219.018,21,1,0)="The total pounds of linen issued, not including uniforms, to Medicine."
^DD(2100,4219.018,"DT")="2900419"
^DD(2100,4219.019,0)="NEUROLOGY (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;19^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.019,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.019,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.019,21,0)="^^1^1^2900421^"
^DD(2100,4219.019,21,1,0)="The total pounds of linen issued, not including uniforms, to Neurology."
^DD(2100,4219.019,"DT")="2900419"
^DD(2100,4219.02,0)="REHAB MEDICINE (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;20^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.02,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.02,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.02,21,0)="^^2^2^2900421^"
^DD(2100,4219.02,21,1,0)="The total pounds of linen issued, not including uniforms, to"
^DD(2100,4219.02,21,2,0)="Rehabilitation Medicine. Include Blind Rehabilitation Medicine."
^DD(2100,4219.02,"DT")="2900419"
^DD(2100,4219.021,0)="SPINAL CORD INJURY (LBS ISS)^NJ6,0O^^A4CGAMS4Q;21^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.021,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.021,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.021,21,0)="^^2^2^2900421^"
^DD(2100,4219.021,21,1,0)="The total pounds of linen issued, not including uniforms, to Spinal"
^DD(2100,4219.021,21,2,0)="Cord Injury."
^DD(2100,4219.021,"DT")="2900419"
^DD(2100,4219.022,0)="SURGERY (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;22^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.022,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.022,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.022,21,0)="^^1^1^2900421^"
^DD(2100,4219.022,21,1,0)="The total pounds of linen issued, not including uniforms, to Surgery."
^DD(2100,4219.022,"DT")="2900419"
^DD(2100,4219.023,0)="NHCU (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;23^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.023,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.023,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.023,21,0)="^^2^2^2900421^"
^DD(2100,4219.023,21,1,0)="The total pounds of linen issued, not including uniforms, to Nursing"
^DD(2100,4219.023,21,2,0)="Home Care Unit."
^DD(2100,4219.023,"DT")="2900419"
^DD(2100,4219.024,0)="DOMICILIARY (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;24^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.024,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.024,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.024,21,0)="^^2^2^2900421^"
^DD(2100,4219.024,21,1,0)="The total pounds of linen issued, not including uniforms, to the"
^DD(2100,4219.024,21,2,0)="Domiciliary."
^DD(2100,4219.024,"DT")="2900419"
^DD(2100,4219.025,0)="CLINICS (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;25^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.025,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.025,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.025,21,0)="^^4^4^2900421^"
^DD(2100,4219.025,21,1,0)="The total pounds of linen issued, not including uniforms, to the "
^DD(2100,4219.025,21,2,0)="Clinics. Include Outpatient, Mental Hygiene, Day Treatment Center,"
^DD(2100,4219.025,21,3,0)="Day Hospital, Drug Dependence, Alcohol Treatment, etc. Do not"
^DD(2100,4219.025,21,4,0)="include satellite outpatient clinics."
^DD(2100,4219.025,"DT")="2900419"
^DD(2100,4219.026,0)="DENTAL (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;26^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.026,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.026,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.026,21,0)="^^2^2^2900421^"
^DD(2100,4219.026,21,1,0)="The total pounds of linen issued, not including uniforms, to Dental."
^DD(2100,4219.026,21,2,0)="Do not include Central Dental Laboratories."
^DD(2100,4219.026,"DT")="2900419"
^DD(2100,4219.027,0)="RESEARCH (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;27^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.027,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.027,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.027,21,0)="^^1^1^2900421^"
^DD(2100,4219.027,21,1,0)="The total pounds of linen issued, not including uniforms, to Research."
^DD(2100,4219.027,"DT")="2900419"
^DD(2100,4219.028,0)="ADMINISTRATIVE (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;28^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.028,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.028,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.028,21,0)="^^5^5^2900423^^"
^DD(2100,4219.028,21,1,0)="The total pounds of linen issued, not including uniforms, to"
^DD(2100,4219.028,21,2,0)="Administrative. Includes Dietetic Service, Canteen Service, "
^DD(2100,4219.028,21,3,0)="Non-Housekeeping Quarters, OD Rooms, and other facility-related"
^DD(2100,4219.028,21,4,0)="functions not indicated elsewhere. Also, include conference rooms,"
^DD(2100,4219.028,21,5,0)="training rooms, and offices not specifically indicated elsewhere."
^DD(2100,4219.028,"DT")="2900419"
^DD(2100,4219.029,0)="OTHER (LBS ISSUED)^NJ6,0O^^A4CGAMS4Q;29^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.029,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4219.029,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4219.029,21,0)="^^5^5^2900421^"
^DD(2100,4219.029,21,1,0)="The total pounds of linen issued, not including uniforms, to all"
^DD(2100,4219.029,21,2,0)="other areas. Include regional medical education center (RMEC),"
^DD(2100,4219.029,21,3,0)="regional offices, central dental laboratories, satellite outpatient"
^DD(2100,4219.029,21,4,0)="clinics, or non-VA organizations not included as part of the"
^DD(2100,4219.029,21,5,0)="operations listed elsewhere."
^DD(2100,4219.029,"DT")="2900419"
^DD(2100,4219.03,0)="UTILITY COST^NJ5,0O^^A4CGAMS4Q;30^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4219.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4219.03,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4219.03,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4219.03,21,0)="^^3^3^2900421^"
^DD(2100,4219.03,21,1,0)="The total cost for in-house laundry utilities. This amount should"
^DD(2100,4219.03,21,2,0)="equal the monthly cost transfer reports submitted by Engineering"
^DD(2100,4219.03,21,3,0)="Service to Fiscal Service."
^DD(2100,4219.03,"DT")="2900419"
^DD(2100,4220.001,0)="OFFICE OF THE CHIEF^NJ5,0O^^A4CGAMS4R;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4220.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.001,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.001,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4220.001,21,0)="^^3^3^2900421^^"
^DD(2100,4220.001,21,1,0)="The total hours for all contracted employee staff hours in the"
^DD(2100,4220.001,21,2,0)="Office of the Chief including management, supervisory, direct labor,"
^DD(2100,4220.001,21,3,0)="and clerical employees."
^DD(2100,4220.001,"DT")="2900410"
^DD(2100,4220.002,0)="ENVIRONMENTAL CARE^NJ5,0O^^A4CGAMS4R;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4220.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.002,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.002,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4220.002,21,0)="^^3^3^2900423^^"
^DD(2100,4220.002,21,1,0)="The total hours for all contracted employee staff hours in Environmental"
^DD(2100,4220.002,21,2,0)="Care including management, supervisory, direct labor, and clerical"
^DD(2100,4220.002,21,3,0)="employees."
^DD(2100,4220.002,"DT")="2900410"
^DD(2100,4220.003,0)="TEXTILE CARE^NJ5,0O^^A4CGAMS4R;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4220.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.003,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.003,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4220.003,21,0)="^^3^3^2900423^^"
^DD(2100,4220.003,21,1,0)="The total hours for all contracted employee staff hours in Textile"
^DD(2100,4220.003,21,2,0)="Care including management, supervisory, direct labor, and clerical"
^DD(2100,4220.003,21,3,0)="employees."
^DD(2100,4220.003,"DT")="2900410"
^DD(2100,4220.004,0)="INTERIOR DESIGN^NJ5,0O^^A4CGAMS4R;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4220.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.004,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.004,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4220.004,21,0)="^^3^3^2900421^^"
^DD(2100,4220.004,21,1,0)="The total hours for all contracted employee staff hours in Interior"
^DD(2100,4220.004,21,2,0)="Design including management, supervisory, direct labor, and clerical"
^DD(2100,4220.004,21,3,0)="employees."
^DD(2100,4220.004,"DT")="2900410"
^DD(2100,4220.005,0)="VOLUNTEER HOURS^NJ5,0O^^A4CGAMS4R;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4220.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.005,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.005,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4220.005,21,0)="^^1^1^2900421^"
^DD(2100,4220.005,21,1,0)="The total hours donated by volunteers for all cost center assignments."
^DD(2100,4220.005,"DT")="2900410"
^DD(2100,4220.006,0)="NON-PAID HOURS^NJ5,0O^^A4CGAMS4R;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4220.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.006,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4220.006,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4220.006,21,0)="^^2^2^2900423^^^"
^DD(2100,4220.006,21,1,0)="The total non-paid hours such as non-paid incentive therapy, etc.,"
^DD(2100,4220.006,21,2,0)="for all cost centers. Exclude all reported volunteer hours."
^DD(2100,4220.006,"DT")="2900410"
^DD(2100,4224.001,0)="MEAT, FISH, ETC. TOTAL COST^NJ7,0O^^FHAMS4A;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.001,.1)="MEAT, FISH, POULTRY, EGGS & CONV ENTREES TOTAL COST"
^DD(2100,4224.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.001,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.001,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.001,"DT")="2900430"
^DD(2100,4224.002,0)="MILK TOTAL COST^NJ7,0O^^FHAMS4A;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.002,.1)="MILK/MILK PROD TOTAL COST"
^DD(2100,4224.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.002,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.002,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.002,"DT")="2900430"
^DD(2100,4224.003,0)="FRUITS/VEGS TOTAL COST^NJ7,0O^^FHAMS4A;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.003,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.003,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.003,"DT")="2900430"
^DD(2100,4224.004,0)="BREAD, ETC. TOTAL COST^NJ7,0O^^FHAMS4A;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.004,.1)="BREAD, FLOUR, CEREAL, ETC. TOTAL COST"
^DD(2100,4224.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.004,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.004,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.004,"DT")="2900430"
^DD(2100,4224.005,0)="NUT. PROD. TOTAL COST^NJ7,0O^^FHAMS4A;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.005,.1)="COMM NUTR PROD TOTAL COST"
^DD(2100,4224.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.005,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.005,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.005,"DT")="2900430"
^DD(2100,4224.006,0)="MISC. TOTAL COST^NJ7,0O^^FHAMS4A;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.006,.1)="MISCELLANEOUS FOODS TOTAL COST"
^DD(2100,4224.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.006,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.006,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.006,"DT")="2900430"
^DD(2100,4224.007,0)="INVENTORY TOTAL VALUE^NJ7,0O^^FHAMS4A;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.007,.1)="INVENTORY TOTAL VALUE EOP"
^DD(2100,4224.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.007,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.007,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.007,"DT")="2900430"
^DD(2100,4224.008,0)="INPATIENT MEALS^NJ7,0O^^FHAMS4A;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.008,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.008,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.008,"DT")="2900430"
^DD(2100,4224.009,0)="OUTPATIENT MEALS^NJ7,0O^^FHAMS4A;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.009,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.009,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.009,"DT")="2900430"
^DD(2100,4224.01,0)="PAID MEALS^NJ7,0O^^FHAMS4A;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.01,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.01,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.01,"DT")="2900430"
^DD(2100,4224.011,0)="GRATUITOUS MEALS^NJ7,0O^^FHAMS4A;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.011,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.011,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.011,"DT")="2900430"
^DD(2100,4224.012,0)="TOTAL MEALS SERVED^NJ7,0O^^FHAMS4A;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4224.012,.1)="TOTAL DAILY MEALS SERVED"
^DD(2100,4224.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.012,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4224.012,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4224.012,"DT")="2900430"
^DD(2100,4264.001,0)="HOBBIES (HOURS)^NJ4,0O^^A4CGAMS4S;1^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.001,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.001,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.001,21,0)="^^2^2^2900421^"
^DD(2100,4264.001,21,1,0)="The number of program hours needed by the staff to conduct hobbies"
^DD(2100,4264.001,21,2,0)="(i.e., programs focused towards arts, crafts, collections, clubs, etc)."
^DD(2100,4264.001,"DT")="2900418"
^DD(2100,4264.002,0)="MUSIC (HOURS)^NJ4,0O^^A4CGAMS4S;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.002,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.002,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.002,21,0)="^^3^3^2900421^"
^DD(2100,4264.002,21,1,0)="The number of program hours needed by the staff to conduct music"
^DD(2100,4264.002,21,2,0)="(i.e., programs utilizing the basic tools of music as a medium in"
^DD(2100,4264.002,21,3,0)="which the patient is an active participant)."
^DD(2100,4264.002,"DT")="2900418"
^DD(2100,4264.003,0)="GAMES/SPORTS/ATHLETICS (HRS)^NJ4,0O^^A4CGAMS4S;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.003,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.003,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.003,21,0)="^^3^3^2900421^^"
^DD(2100,4264.003,21,1,0)="The number of program hours needed by the staff to conduct games,"
^DD(2100,4264.003,21,2,0)="sports and athletics (i.e., individual, dual and other group"
^DD(2100,4264.003,21,3,0)="activities in nature)."
^DD(2100,4264.003,"DT")="2900418"
^DD(2100,4264.004,0)="SPECIAL EVENTS (HOURS)^NJ4,0O^^A4CGAMS4S;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.004,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.004,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.004,21,0)="^^3^3^2900421^"
^DD(2100,4264.004,21,1,0)="The number of program hours needed by the staff to conduct special"
^DD(2100,4264.004,21,2,0)="events (i.e., all programs and celebrations which are not scheduled"
^DD(2100,4264.004,21,3,0)="monthly)."
^DD(2100,4264.004,"DT")="2900418"
^DD(2100,4264.005,0)="DANCE (HOURS)^NJ4,0O^^A4CGAMS4S;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.005,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.005,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.005,21,0)="^^3^3^2900421^"
^DD(2100,4264.005,21,1,0)="The number of program hours needed by the staff to conduct dances"
^DD(2100,4264.005,21,2,0)="(i.e., all programs that engage, teach or encourage patients in"
^DD(2100,4264.005,21,3,0)="any form of basic dance movement and rhythmic action)."
^DD(2100,4264.005,"DT")="2900418"
^DD(2100,4264.006,0)="CREATIVE COMMUNICATION (HRS)^NJ4,0O^^A4CGAMS4S;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.006,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.006,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.006,21,0)="^^4^4^2900421^"
^DD(2100,4264.006,21,1,0)="The number of program hours needed by the staff to conduct creative"
^DD(2100,4264.006,21,2,0)="communication (i.e., all programs using reading, speaking, writing,"
^DD(2100,4264.006,21,3,0)="radio/TV production, etc., in which the primary emphasis is on"
^DD(2100,4264.006,21,4,0)="creative use of these media)."
^DD(2100,4264.006,"DT")="2900418"
^DD(2100,4264.007,0)="SOCIAL RECREATION (HOURS)^NJ4,0O^^A4CGAMS4S;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.007,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.007,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.007,21,0)="^^4^4^2900421^"
^DD(2100,4264.007,21,1,0)="The number of program hours needed by the staff to conduct social"
^DD(2100,4264.007,21,2,0)="recreation (i.e., programs such as parties, coffee hours, ward"
^DD(2100,4264.007,21,3,0)="visitations, etc., which are adapted and conducted to provide"
^DD(2100,4264.007,21,4,0)="opportunity for social functioning and personal interaction)."
^DD(2100,4264.007,"DT")="2900418"
^DD(2100,4264.008,0)="OUTDOOR RECREATION (HOURS)^NJ4,0O^^A4CGAMS4S;8^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.008,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.008,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.008,21,0)="^^4^4^2900421^"
^DD(2100,4264.008,21,1,0)="The number of program hours needed by the staff to conduct outdoor"
^DD(2100,4264.008,21,2,0)="recreation (i.e., programs which have their main focus on nature"
^DD(2100,4264.008,21,3,0)="and outdoor appreciation, study and skill development in activities"
^DD(2100,4264.008,21,4,0)="such as fishing, skiing, cycling, etc)."
^DD(2100,4264.008,"DT")="2900418"
^DD(2100,4264.009,0)="PHYSICAL FITNESS (HOURS)^NJ4,0O^^A4CGAMS4S;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.009,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.009,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.009,21,0)="^^3^3^2900421^"
^DD(2100,4264.009,21,1,0)="The number of program hours needed by the staff to conduct physical"
^DD(2100,4264.009,21,2,0)="fitness (i.e., programs which stress basic improvement or "
^DD(2100,4264.009,21,3,0)="maintenance of physical conditioning."
^DD(2100,4264.009,"DT")="2900418"
^DD(2100,4264.01,0)="SPECTATOR EVENTS (HOURS)^NJ4,0O^^A4CGAMS4S;10^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.01,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.01,21,0)="^^4^4^2900421^"
^DD(2100,4264.01,21,1,0)="The number of program hours needed by the staff to conduct spectator"
^DD(2100,4264.01,21,2,0)="events (i.e., planned programs in which principal involvement of"
^DD(2100,4264.01,21,3,0)="patients is that of observing such activities as movies, shows,"
^DD(2100,4264.01,21,4,0)="sporting events, etc)."
^DD(2100,4264.01,"DT")="2900418"
^DD(2100,4264.011,0)="LEISURE/EDUC/COUNSEL (HRS)^NJ4,0O^^A4CGAMS4S;11^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.011,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.011,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.011,21,0)="^^5^5^2900423^^^"
^DD(2100,4264.011,21,1,0)="The number of program hours needed by the staff to conduct leisure/"
^DD(2100,4264.011,21,2,0)="education/counseling (i.e., programs in which patient leisure problems"
^DD(2100,4264.011,21,3,0)="are assessed, and counseling techniques are predominately used for"
^DD(2100,4264.011,21,4,0)="specific patients in group or individual sessions to develop decision"
^DD(2100,4264.011,21,5,0)="making and problem solving skills, related to leisure participation)."
^DD(2100,4264.011,"DT")="2900418"
^DD(2100,4264.012,0)="SPECIAL THERAPY (HOURS)^NJ4,0O^^A4CGAMS4S;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.012,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y"
^DD(2100,4264.012,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100,4264.012,21,0)="^^5^5^2900421^"
^DD(2100,4264.012,21,1,0)="The number of program hours needed by the staff to conduct special"
^DD(2100,4264.012,21,2,0)="programs (i.e., programs which are designed to meet specific needs"
^DD(2100,4264.012,21,3,0)="that are not listed in other categories such as psychodrama,"
^DD(2100,4264.012,21,4,0)="individual or group therapy, reality orientation, sensory"
^DD(2100,4264.012,21,5,0)="integration, etc)."
^DD(2100,4264.012,"DT")="2900418"
^DD(2100,4264.013,0)="HOBBIES (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;13^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.013,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.013,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.013,21,0)="^^1^1^2900421^"
^DD(2100,4264.013,21,1,0)="The number of patients attending all hobby programs."
^DD(2100,4264.013,"DT")="2900419"
^DD(2100,4264.014,0)="MUSIC (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;14^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.014,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.014,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.014,21,0)="^^1^1^2900421^"
^DD(2100,4264.014,21,1,0)="The number of patients attending all music programs."
^DD(2100,4264.014,"DT")="2900419"
^DD(2100,4264.015,0)="GAMES/SPORTS/ATH (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.015,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.015,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.015,21,0)="^^1^1^2900421^"
^DD(2100,4264.015,21,1,0)="The number of patients attending all games/sports/athletic programs."
^DD(2100,4264.015,"DT")="2900419"
^DD(2100,4264.016,0)="SPECIAL EVENTS (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;16^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.016,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.016,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.016,21,0)="^^1^1^2900421^"
^DD(2100,4264.016,21,1,0)="The number of patients attending all special event programs."
^DD(2100,4264.016,"DT")="2900419"
^DD(2100,4264.017,0)="DANCE (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;17^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.017,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.017,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.017,21,0)="^^1^1^2900421^"
^DD(2100,4264.017,21,1,0)="The number of patients attending all dance programs."
^DD(2100,4264.017,"DT")="2900419"
^DD(2100,4264.018,0)="CREATIVE COMM (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.018,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.018,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.018,21,0)="^^1^1^2900421^"
^DD(2100,4264.018,21,1,0)="The number of patients attending all creative communication programs."
^DD(2100,4264.018,"DT")="2900419"
^DD(2100,4264.019,0)="SOCIAL RECREATION (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.019,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.019,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.019,21,0)="^^1^1^2900421^"
^DD(2100,4264.019,21,1,0)="The number of patients attending all social recreation programs."
^DD(2100,4264.019,"DT")="2900419"
^DD(2100,4264.02,0)="OUTDOOR REC (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;20^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.02,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.02,21,0)="^^1^1^2900421^"
^DD(2100,4264.02,21,1,0)="The number of patients attending all outdoor recreation programs."
^DD(2100,4264.02,"DT")="2900419"
^DD(2100,4264.021,0)="PHYSICAL FITNESS (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;21^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.021,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.021,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.021,21,0)="^^1^1^2900421^"
^DD(2100,4264.021,21,1,0)="The number of patients attending all physical fitness programs."
^DD(2100,4264.021,"DT")="2900419"
^DD(2100,4264.022,0)="SPECTATOR EVENTS (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;22^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.022,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.022,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.022,21,0)="^^1^1^2900421^"
^DD(2100,4264.022,21,1,0)="The number of patients attending all spectator event programs."
^DD(2100,4264.022,"DT")="2900419"
^DD(2100,4264.023,0)="LEISURE/EDUC/COUN (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;23^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.023,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.023,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.023,21,0)="^^2^2^2900423^^"
^DD(2100,4264.023,21,1,0)="The number of patients attending all leisure/education/counseling"
^DD(2100,4264.023,21,2,0)="programs."
^DD(2100,4264.023,"DT")="2900419"
^DD(2100,4264.024,0)="SPECIAL THERAPY (ATTENDANCE)^NJ5,0O^^A4CGAMS4S;24^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.024,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.024,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.024,21,0)="^^1^1^2900421^"
^DD(2100,4264.024,21,1,0)="The number of patients attending all specical therapy programs."
^DD(2100,4264.024,"DT")="2900419"
^DD(2100,4264.025,0)="VA GIVEN (TRAINING HRS)^NJ5,0O^^A4CGAMS4S;25^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.025,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.025,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.025,21,0)="^^3^3^2900421^"
^DD(2100,4264.025,21,1,0)="The total Recreation Service staff hours provided for VA training"
^DD(2100,4264.025,21,2,0)="(i.e., leading, teaching, planning, etc). Include training with"
^DD(2100,4264.025,21,3,0)="affiliated and other students, volunteers, employees, etc."
^DD(2100,4264.025,"DT")="2900419"
^DD(2100,4264.026,0)="VA TAKEN (TRAINING HRS)^NJ5,0O^^A4CGAMS4S;26^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.026,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.026,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.026,21,0)="^^2^2^2900421^"
^DD(2100,4264.026,21,1,0)="The total Recreation Service staff hours of attendance in training"
^DD(2100,4264.026,21,2,0)="given by the VA."
^DD(2100,4264.026,"DT")="2900419"
^DD(2100,4264.027,0)="OTHER GIVEN (TRAINING HRS)^NJ5,0O^^A4CGAMS4S;27^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.027,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.027,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.027,21,0)="^^2^2^2900421^"
^DD(2100,4264.027,21,1,0)="The total Recreation Service staff hours provided for training other"
^DD(2100,4264.027,21,2,0)="than VA, (i.e., leading, teaching, planning, etc)."
^DD(2100,4264.027,"DT")="2900419"
^DD(2100,4264.028,0)="OTHER TAKEN (TRAINING HRS)^NJ5,0O^^A4CGAMS4S;28^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.028,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.028,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.028,21,0)="^^2^2^2900421^"
^DD(2100,4264.028,21,1,0)="The total Recreation Service staff hours of attendance in training"
^DD(2100,4264.028,21,2,0)="given by other than VA."
^DD(2100,4264.028,"DT")="2900419"
^DD(2100,4264.029,0)="RESEARCH STAFF HOURS^NJ5,0O^^A4CGAMS4S;29^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.029,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.029,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.029,21,0)="^^6^6^2900421^"
^DD(2100,4264.029,21,1,0)="The total staff hours used for research programs in Recreation"
^DD(2100,4264.029,21,2,0)="Service, (i.e., writing proposals, planning, testing formats,"
^DD(2100,4264.029,21,3,0)="developing instrumentation, data compiling, analysis, etc)."
^DD(2100,4264.029,21,4,0)="Staff hours used in conducting, assisting and supervising"
^DD(2100,4264.029,21,5,0)="recreational programs for which data is compiled should not be"
^DD(2100,4264.029,21,6,0)="counted in this total."
^DD(2100,4264.029,"DT")="2900419"
^DD(2100,4264.03,0)="PATIENT TRMT MEETINGS^NJ6,0O^^A4CGAMS4S;30^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.03,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.03,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4264.03,21,0)="^^3^3^2900421^"
^DD(2100,4264.03,21,1,0)="The total Recreation Service staff hours used in attending any"
^DD(2100,4264.03,21,2,0)="patient staff meeting, (i.e., ward or chart rounds, treatment"
^DD(2100,4264.03,21,3,0)="planning meeting, etc)."
^DD(2100,4264.03,"DT")="2900419"
^DD(2100,4264.031,0)="RECREATION (ADMIN HRS)^NJ5,0O^^A4CGAMS4S;31^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.031,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.031,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.031,21,0)="^^2^2^2900421^"
^DD(2100,4264.031,21,1,0)="The total staff hours used in attending administrative meetings"
^DD(2100,4264.031,21,2,0)="conducted by and for Recreation Service."
^DD(2100,4264.031,"DT")="2900419"
^DD(2100,4264.032,0)="MEDICAL CTR (ADMIN HRS)^NJ5,0O^^A4CGAMS4S;32^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.032,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.032,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.032,21,0)="^^4^4^2900421^"
^DD(2100,4264.032,21,1,0)="The total Recreation Service staff hours used in attending medical"
^DD(2100,4264.032,21,2,0)="center administrative and committee meetings (i.e., Director's"
^DD(2100,4264.032,21,3,0)="Staff Conference, Administrative Executive Board, VAVS Committee,"
^DD(2100,4264.032,21,4,0)="Position Management Committee, etc)."
^DD(2100,4264.032,"DT")="2900419"
^DD(2100,4264.033,0)="PROFESSIONAL (OTHER MEETING)^NJ5,0O^^A4CGAMS4S;33^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.033,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.033,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.033,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.033,21,0)="^^2^2^2900421^"
^DD(2100,4264.033,21,1,0)="The total Recreation Service staff hours of authorized absence granted"
^DD(2100,4264.033,21,2,0)="for attending local or national professional meetings."
^DD(2100,4264.033,"DT")="2900419"
^DD(2100,4264.034,0)="COMMUNITY (OTHER MEETING)^NJ5,0O^^A4CGAMS4S;34^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.034,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.034,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.034,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.034,21,0)="^^3^3^2900421^"
^DD(2100,4264.034,21,1,0)="The total Recreation Service staff hours of authorized absence granted"
^DD(2100,4264.034,21,2,0)="for attending community meetings, (i.e., American Red Cross, United"
^DD(2100,4264.034,21,3,0)="Way, service organizations, etc)."
^DD(2100,4264.034,"DT")="2900419"
^DD(2100,4264.035,0)="BUDGET^NJ6,0O^^A4CGAMS4S;35^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.035,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.035,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.035,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4264.035,21,0)="^^3^3^2900421^"
^DD(2100,4264.035,21,1,0)="The quarterly operating budget in whole dollars for Recreation"
^DD(2100,4264.035,21,2,0)="Service from the medical center's appropriated funds. General Post"
^DD(2100,4264.035,21,3,0)="and donated funds should not be included."
^DD(2100,4264.035,"DT")="2900419"
^DD(2100,4264.036,0)="WEEKEND/HOLIDAY HOURS^NJ7,0O^^A4CGAMS4S;36^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.036,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.036,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.036,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4264.036,21,0)="^^3^3^2900421^"
^DD(2100,4264.036,21,1,0)="The total Recreation Service staff hours worked for all weekends"
^DD(2100,4264.036,21,2,0)="and Federally approved holidays. Weekend hours are counted from"
^DD(2100,4264.036,21,3,0)="4:30 p.m. Friday until 7:00 a.m. Monday."
^DD(2100,4264.036,"DT")="2900419"
^DD(2100,4264.037,0)="THERAPIST HOURS^NJ7,0O^^A4CGAMS4S;37^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.037,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.037,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.037,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4264.037,21,0)="^^3^3^2900423^^^"
^DD(2100,4264.037,21,1,0)="The number of hours actually worked by the therapist, assistant"
^DD(2100,4264.037,21,2,0)="chief, chief, and supervisors. Do not include annual, sick, or"
^DD(2100,4264.037,21,3,0)="other types of leave."
^DD(2100,4264.037,"DT")="2900419"
^DD(2100,4264.038,0)="ASSISTANTS HOURS^NJ7,0O^^A4CGAMS4S;38^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.038,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.038,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.038,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4264.038,21,0)="^^2^2^2900423^^"
^DD(2100,4264.038,21,1,0)="The number of assistants' hours actually worked. Do not include"
^DD(2100,4264.038,21,2,0)="annual, sick, LWOP, or other types of leave."
^DD(2100,4264.038,"DT")="2900419"
^DD(2100,4264.039,0)="CLERICAL HOURS^NJ5,0O^^A4CGAMS4S;39^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.039,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.039,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4264.039,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4264.039,21,0)="^^3^3^2900421^^"
^DD(2100,4264.039,21,1,0)="The number of clerical hours actually worked. Do not include hours"
^DD(2100,4264.039,21,2,0)="assigned to other services, or annual, sick, LWOP, or other types"
^DD(2100,4264.039,21,3,0)="of leave."
^DD(2100,4264.039,"DT")="2900419"
^DD(2100,4264.04,0)="OTHER HOURS^NJ7,0O^^A4CGAMS4S;40^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.04,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.04,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4264.04,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4264.04,21,0)="^^5^5^2900423^^"
^DD(2100,4264.04,21,1,0)="The number of hours actually worked by employees other than"
^DD(2100,4264.04,21,2,0)="those reported elsewhere. Include drivers assigned to Recreation"
^DD(2100,4264.04,21,3,0)="Service, projectionists, stay-in-school employees and other"
^DD(2100,4264.04,21,4,0)="similar types of employees. Do not include annual, sick or other"
^DD(2100,4264.04,21,5,0)="types of leave."
^DD(2100,4264.04,"DT")="2900419"
^DD(2100,4264.041,0)="RECREATION EQUIPMENT^NJ6,0O^^A4CGAMS4S;41^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.041,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.041,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.041,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4264.041,21,0)="^^3^3^2900421^"
^DD(2100,4264.041,21,1,0)="The whole dollar value of nonexpendable implements/articles donated"
^DD(2100,4264.041,21,2,0)="to Recreation Service for use in the operation of recreation"
^DD(2100,4264.041,21,3,0)="programs (i.e., pool tables, pianos, bulletin boards, projectors etc)."
^DD(2100,4264.041,"DT")="2900419"
^DD(2100,4264.042,0)="RECREATION MATERIALS^NJ6,0O^^A4CGAMS4T;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.042,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.042,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.042,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4264.042,21,0)="^^3^3^2900421^"
^DD(2100,4264.042,21,1,0)="The whole dollar value of expendable supplies/elements donated to"
^DD(2100,4264.042,21,2,0)="Recreation Service for use in conducting recreation programs (i.e.,"
^DD(2100,4264.042,21,3,0)="playing cards, plastic models, game prizes, decorations, etc)."
^DD(2100,4264.042,"DT")="2900419"
^DD(2100,4264.043,0)="PROGRAM SERVICES^NJ6,0O^^A4CGAMS4T;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.043,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.043,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.043,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4264.043,21,0)="^^3^3^2900423^^"
^DD(2100,4264.043,21,1,0)="The whole dollar value of auxiliary services donated to Recreation"
^DD(2100,4264.043,21,2,0)="Service for use in providing recreation programs (i.e., transportation,"
^DD(2100,4264.043,21,3,0)="fees, admissions, performers, etc)."
^DD(2100,4264.043,"DT")="2900419"
^DD(2100,4264.044,0)="PERSONAL COMFORT^NJ6,0O^^A4CGAMS4T;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.044,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.044,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.044,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4264.044,21,0)="^^4^4^2900421^"
^DD(2100,4264.044,21,1,0)="The whole dollar value of expendable individual patient items"
^DD(2100,4264.044,21,2,0)="donated to Recreation Service for use as a part of recreation"
^DD(2100,4264.044,21,3,0)="programs (i.e., refreshments, holiday gifts, party favors,"
^DD(2100,4264.044,21,4,0)="grooming accessories, etc)."
^DD(2100,4264.044,"DT")="2900419"
^DD(2100,4264.045,0)="PLANNED OFF FACILITY COMM^NJ6,0O^^A4CGAMS4T;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4264.045,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.045,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4264.045,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4264.045,21,0)="^^2^2^2900421^"
^DD(2100,4264.045,21,1,0)="The total number of ""off-facility"" activities that were planned"
^DD(2100,4264.045,21,2,0)="by Recreation Service."
^DD(2100,4264.045,"DT")="2900419"
^DD(2100,4265.001,0)="HOBBIES^NJ5,0O^^A4CGAMS4U;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.001,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.001,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.001,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.001,21,0)="^^1^1^2900421^"
^DD(2100,4265.001,21,1,0)="The number of prescribed 30 minute treatment units for hobbies."
^DD(2100,4265.001,"DT")="2900419"
^DD(2100,4265.002,0)="MUSIC^NJ5,0O^^A4CGAMS4U;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.002,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.002,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.002,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.002,21,0)="^^1^1^2900421^"
^DD(2100,4265.002,21,1,0)="The number of prescribed 30 minute treatment units for music."
^DD(2100,4265.002,"DT")="2900419"
^DD(2100,4265.003,0)="GAMES/SPORTS/ATHLETICS^NJ5,0O^^A4CGAMS4U;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.003,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.003,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.003,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.003,21,0)="^^2^2^2900423^^"
^DD(2100,4265.003,21,1,0)="The number of prescribed 30 minute treatment units for games/sports/"
^DD(2100,4265.003,21,2,0)="athletics."
^DD(2100,4265.003,"DT")="2900419"
^DD(2100,4265.004,0)="SPECIAL EVENTS^NJ5,0O^^A4CGAMS4U;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.004,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.004,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.004,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.004,21,0)="^^1^1^2900421^"
^DD(2100,4265.004,21,1,0)="The number of prescribed 30 minute treatment units for special events."
^DD(2100,4265.004,"DT")="2900419"
^DD(2100,4265.005,0)="DANCE^NJ5,0O^^A4CGAMS4U;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.005,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.005,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.005,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.005,21,0)="^^1^1^2900421^"
^DD(2100,4265.005,21,1,0)="The number of prescribed 30 minute treatment units for dance."
^DD(2100,4265.005,"DT")="2900419"
^DD(2100,4265.006,0)="CREATIVE COMMUNICATION^NJ5,0O^^A4CGAMS4U;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.006,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.006,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.006,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.006,21,0)="^^2^2^2900421^"
^DD(2100,4265.006,21,1,0)="The number of prescribed 30 minute treatment units for creative"
^DD(2100,4265.006,21,2,0)="communication."
^DD(2100,4265.006,"DT")="2900419"
^DD(2100,4265.007,0)="SOCIAL RECREATION^NJ5,0O^^A4CGAMS4U;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.007,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.007,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.007,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.007,21,0)="^^2^2^2900421^"
^DD(2100,4265.007,21,1,0)="The number of prescribed 30 minute treatment units for social"
^DD(2100,4265.007,21,2,0)="recreation."
^DD(2100,4265.007,"DT")="2900419"
^DD(2100,4265.008,0)="OUTDOOR RECREATION^NJ5,0O^^A4CGAMS4U;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.008,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.008,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.008,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.008,21,0)="^^2^2^2900421^"
^DD(2100,4265.008,21,1,0)="The number of prescribed 30 minute treatment units for outdoor"
^DD(2100,4265.008,21,2,0)="recreation."
^DD(2100,4265.008,"DT")="2900419"
^DD(2100,4265.009,0)="PHYSICAL FITNESS^NJ5,0O^^A4CGAMS4U;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.009,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.009,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.009,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.009,21,0)="^^2^2^2900421^"
^DD(2100,4265.009,21,1,0)="The number of prescribed 30 minute treatment units for physical"
^DD(2100,4265.009,21,2,0)="fitness."
^DD(2100,4265.009,"DT")="2900419"
^DD(2100,4265.01,0)="SPECTATOR EVENTS^NJ5,0O^^A4CGAMS4U;10^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.01,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.01,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.01,21,0)="^^2^2^2900421^"
^DD(2100,4265.01,21,1,0)="The number of prescribed 30 minute treatment units for spectator"
^DD(2100,4265.01,21,2,0)="events."
^DD(2100,4265.01,"DT")="2900419"
^DD(2100,4265.011,0)="LEISURE/EDUC/COUNSELING^NJ5,0O^^A4CGAMS4U;11^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.011,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.011,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.011,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.011,21,0)="^^2^2^2900423^^"
^DD(2100,4265.011,21,1,0)="The number of prescribed 30 minute treatment units for leisure/"
^DD(2100,4265.011,21,2,0)="education/counseling."
^DD(2100,4265.011,"DT")="2900419"
^DD(2100,4265.012,0)="SPECIAL THERAPY PROGRAMS^NJ5,0O^^A4CGAMS4U;12^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.012,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.012,2.1)="I $D(GECSOT) S Y=$E(""00000"",$L(Y)+1,5)_Y"
^DD(2100,4265.012,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4265.012,21,0)="^^2^2^2900421^"
^DD(2100,4265.012,21,1,0)="The number of prescribed 30 minute treatment units for special"
^DD(2100,4265.012,21,2,0)="therapy."
^DD(2100,4265.012,"DT")="2900419"
^DD(2100,4265.013,0)="PSYCHIATRY (UNITS)^NJ6,0O^^A4CGAMS4U;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.013,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.013,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.013,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.013,21,0)="^^1^1^2900421^"
^DD(2100,4265.013,21,1,0)="The number of prescribed 30 minute treatment units by Psychiatry."
^DD(2100,4265.013,"DT")="2900419"
^DD(2100,4265.014,0)="INTERMEDIATE MEDICINE (UNITS)^NJ6,0O^^A4CGAMS4U;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.014,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.014,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.014,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.014,21,0)="^^2^2^2900421^"
^DD(2100,4265.014,21,1,0)="The number of prescribed 30 minute treatment units by Intermediate"
^DD(2100,4265.014,21,2,0)="Medicine."
^DD(2100,4265.014,"DT")="2900419"
^DD(2100,4265.015,0)="MEDICINE (UNITS)^NJ6,0O^^A4CGAMS4U;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.015,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.015,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.015,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.015,21,0)="^^1^1^2900421^"
^DD(2100,4265.015,21,1,0)="The number of prescribed 30 minute treatment units by Medicine."
^DD(2100,4265.015,"DT")="2900419"
^DD(2100,4265.016,0)="NEUROLOGY (UNITS)^NJ6,0O^^A4CGAMS4U;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.016,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.016,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.016,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.016,21,0)="^^1^1^2900421^"
^DD(2100,4265.016,21,1,0)="The number of prescribed 30 minute treatment units by Neurology."
^DD(2100,4265.016,"DT")="2900419"
^DD(2100,4265.017,0)="REHAB MEDICINE (UNITS)^NJ6,0O^^A4CGAMS4U;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.017,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.017,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.017,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.017,21,0)="^^2^2^2900421^"
^DD(2100,4265.017,21,1,0)="The number of prescribed 30 minute treatment units by Rehabilitation"
^DD(2100,4265.017,21,2,0)="Medicine."
^DD(2100,4265.017,"DT")="2900419"
^DD(2100,4265.018,0)="BLIND REHABILITATION (UNITS)^NJ6,0O^^A4CGAMS4U;18^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.018,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.018,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.018,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.018,21,0)="^^2^2^2900421^"
^DD(2100,4265.018,21,1,0)="The number of prescribed 30 minute treatment units by Blind"
^DD(2100,4265.018,21,2,0)="Rehabilitation Medicine."
^DD(2100,4265.018,"DT")="2900419"
^DD(2100,4265.019,0)="DRUG DEP TRMT INPATIENT^NJ6,0O^^A4CGAMS4U;19^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.019,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.019,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.019,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.019,21,0)="^^2^2^2900421^"
^DD(2100,4265.019,21,1,0)="The number of prescribed 30 minute treatment units by Drug"
^DD(2100,4265.019,21,2,0)="Dependence Treatment Unit (Inpatient)."
^DD(2100,4265.019,"DT")="2900419"
^DD(2100,4265.02,0)="ALCOHOL TRMT INPATIENT^NJ6,0O^^A4CGAMS4U;20^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.02,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.02,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.02,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.02,21,0)="^^2^2^2900421^"
^DD(2100,4265.02,21,1,0)="The number of prescribed 30 minute treatment units by Alcohol"
^DD(2100,4265.02,21,2,0)="Treatment Unit (Inpatient)."
^DD(2100,4265.02,"DT")="2900419"
^DD(2100,4265.021,0)="SCI INPATIENT^NJ6,0O^^A4CGAMS4U;21^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.021,.1)="SCI INPATIENT (DESIGNATED SCI CENTER)"
^DD(2100,4265.021,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.021,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.021,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.021,21,0)="^^2^2^2900421^"
^DD(2100,4265.021,21,1,0)="The number of prescribed 30 minute treatment units by Spinal"
^DD(2100,4265.021,21,2,0)="Cord Injury (Inpatient)"
^DD(2100,4265.021,"DT")="2900419"
^DD(2100,4265.022,0)="SURGERY (INC NEUROSURGERY)^NJ6,0O^^A4CGAMS4U;22^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.022,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.022,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.022,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.022,21,0)="^^2^2^2900421^"
^DD(2100,4265.022,21,1,0)="The number of prescribed 30 minute treatment units by Surgery"
^DD(2100,4265.022,21,2,0)="including Neurosurgery."
^DD(2100,4265.022,"DT")="2900419"
^DD(2100,4265.023,0)="VA NURSING HOME^NJ6,0O^^A4CGAMS4U;23^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.023,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.023,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.023,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.023,21,0)="^^2^2^2900421^"
^DD(2100,4265.023,21,1,0)="The number of prescribed 30 minute treatment units by VA Nursing"
^DD(2100,4265.023,21,2,0)="Home Care Unit."
^DD(2100,4265.023,"DT")="2900419"
^DD(2100,4265.024,0)="DAY TEATMENT CENTER^NJ6,0O^^A4CGAMS4U;24^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.024,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.024,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.024,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.024,21,0)="^^2^2^2900421^"
^DD(2100,4265.024,21,1,0)="The number of prescribed 30 minute treatment units by Day Treatment"
^DD(2100,4265.024,21,2,0)="Center."
^DD(2100,4265.024,"DT")="2900419"
^DD(2100,4265.025,0)="DAY HOSPITAL PROGRAM^NJ6,0O^^A4CGAMS4U;25^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.025,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.025,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.025,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.025,21,0)="^^2^2^2900421^"
^DD(2100,4265.025,21,1,0)="The number of prescribed 30 minute treatment units by Day Hospital"
^DD(2100,4265.025,21,2,0)="Program."
^DD(2100,4265.025,"DT")="2900419"
^DD(2100,4265.026,0)="VA DOMICILIARY^NJ6,0O^^A4CGAMS4U;26^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.026,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.026,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.026,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.026,21,0)="^^1^1^2900421^"
^DD(2100,4265.026,21,1,0)="The number of prescribed 30 minute treatment units by VA Domiciliary."
^DD(2100,4265.026,"DT")="2900419"
^DD(2100,4265.027,0)="COMM NURSING HOME^NJ6,0O^^A4CGAMS4U;27^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.027,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.027,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.027,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.027,21,0)="^^2^2^2900421^"
^DD(2100,4265.027,21,1,0)="The number of prescribed 30 minute treatment units by Community"
^DD(2100,4265.027,21,2,0)="Nursing Home Care."
^DD(2100,4265.027,"DT")="2900419"
^DD(2100,4265.028,0)="MENTAL HEALTH (OUTPATIENT)^NJ6,0O^^A4CGAMS4U;28^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.028,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.028,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.028,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.028,21,0)="^^2^2^2900421^"
^DD(2100,4265.028,21,1,0)="The number of prescribed 30 minute treatment units by Mental"
^DD(2100,4265.028,21,2,0)="Hygiene Clinic (Outpatient)."
^DD(2100,4265.028,"DT")="2900419"
^DD(2100,4265.029,0)="DRUG DEP (OUTPATIENT)^NJ6,0O^^A4CGAMS4U;29^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.029,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.029,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.029,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.029,21,0)="^^2^2^2900421^"
^DD(2100,4265.029,21,1,0)="The number of prescribed 30 minute treatment units by Drug"
^DD(2100,4265.029,21,2,0)="Dependence Treatment Center (Outpatient)."
^DD(2100,4265.029,"DT")="2900419"
^DD(2100,4265.03,0)="ALCOHOL TRMT (OUTPATIENT)^NJ6,0O^^A4CGAMS4U;30^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.03,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.03,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.03,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.03,21,0)="^^2^2^2900421^"
^DD(2100,4265.03,21,1,0)="The number of prescribed 30 minute treatment units by Alcohol"
^DD(2100,4265.03,21,2,0)="Treatment Unit (Outpatient)."
^DD(2100,4265.03,"DT")="2900419"
^DD(2100,4265.031,0)="SCI (OUTPATIENT)^NJ6,0O^^A4CGAMS4U;31^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.031,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.031,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.031,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.031,21,0)="^^2^2^2900421^"
^DD(2100,4265.031,21,1,0)="The number of prescribed 30 minute treatment units by Spinal Cord"
^DD(2100,4265.031,21,2,0)="Injury (Outpatient)."
^DD(2100,4265.031,"DT")="2900419"
^DD(2100,4265.032,0)="MEDICAL/SURGICAL (OUTPATIENT)^NJ6,0O^^A4CGAMS4U;32^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4265.032,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.032,2.1)="I $D(GECSOT) S Y=$E(""000000"",$L(Y)+1,6)_Y"
^DD(2100,4265.032,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4265.032,21,0)="2"
^DD(2100,4265.032,21,1,0)="The number of prescribed 30 minute treatment units by Medical/"
^DD(2100,4265.032,21,2,0)="Surgical (Outpatient)."
^DD(2100,4265.032,"DT")="2900419"
^DD(2100,4266,0)="QUARTER^RNJ1,0O^^GECOPHY4;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4266,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4266,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4266,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(2100,4266,21,0)="1^^1^1^2900629^^"
^DD(2100,4266,21,1,0)="The reporting quarter (e.g., ""1"" = first quarter, ""2"" = second, etc.)"
^DD(2100,4266,"DT")="2900713"
^DD(2100,4267,0)="FISCAL YEAR^RFO^^GECOPHY4;2^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100,4267,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4267,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4267,3)="Answer must be 2 characters in length and numeric."
^DD(2100,4267,21,0)="^^1^1^2980707^"
^DD(2100,4267,21,1,0)="The last two digits of the reporting fiscal year (e.g., ""90"" = 1990)."
^DD(2100,4267,"DT")="2980706"
^DD(2100,4268,0)="FACILITY CODE SUFFIX^FO^^GECOPHY4;3^K:$L(X)>2!($L(X)<2)!'(X?2AN) X"
^DD(2100,4268,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4268,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4268,3)="Answer must be 2 characters in length."
^DD(2100,4268,21,0)="^^1^1^2900629^^"
^DD(2100,4268,21,1,0)="The two character suffix for multiple facility reporting units."
^DD(2100,4268,"DT")="2900705"
^DD(2100,4269,0)="ID (PART-1)^NJ1,0O^^GECOPHY4;4^K:+X'=X!(X>2)!(X<2)!(X?.E1"".""1N.N) X"
^DD(2100,4269,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4269,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4269,3)="Type a Number between 2 and 2, 0 Decimal Digits"
^DD(2100,4269,21,0)="^^2^2^2900713^^^"
^DD(2100,4269,21,1,0)="Indicates the data which follows is related to ""contract physician"
^DD(2100,4269,21,2,0)="service""."
^DD(2100,4269,"DT")="2900713"
^DD(2100,4270,0)="SPECIALTY ASSIGNMENT (PART-1)^RFO^^GECOPHY4;5^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4270,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4270,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4270,3)="Answer must be 1-2 characters in length and numeric."
^DD(2100,4270,21,0)="^^1^1^2900629^^"
^DD(2100,4270,21,1,0)="The specialty assignment code for each contract physician."
^DD(2100,4270,"DT")="2900709"
^DD(2100,4271,0)="FTEE (PART-1)^RNJ4,1O^^GECOPHY4;6^K:+X'=X!(X>99.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4271,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$E(""0"",$L($P(Y,""."",2))+1,1)_$P(Y,""."",2),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4271,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""00"",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$E(""0"",$L($P(Y,""."",2))+1,1)_$P(Y,""."",2),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4271,3)="Type a Number between 0 and 99.9, 1 Decimal Digit"
^DD(2100,4271,21,0)="^^2^2^2900629^^"
^DD(2100,4271,21,1,0)="The number of full-time physicians (employee) equivalents (FTEE)"
^DD(2100,4271,21,2,0)="rounded to the nearest tenth for each specialty reported."
^DD(2100,4271,"DT")="2900712"
^DD(2100,4272,0)="CONTRACT STARTING DATE^RDO^^GECOPHY4;7^S %DT=""E"" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X)  S X=$E(X,4,5)_$E(X,2,3)"
^DD(2100,4272,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4272,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4272,21,0)="^^2^2^2900702^"
^DD(2100,4272,21,1,0)="The month and last two digits of the calendar year in which the current"
^DD(2100,4272,21,2,0)="contract started."
^DD(2100,4272,"DT")="2980706"
^DD(2100,4273,0)="CONTRACT TERMINATION DATE^RDO^^GECOPHY4;8^S %DT=""E"" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X)  S X=$E(X,4,5)_$E(X,2,3)"
^DD(2100,4273,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4273,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4273,21,0)="^^2^2^2900702^"
^DD(2100,4273,21,1,0)="The month and last two digits of the calendar year in which the"
^DD(2100,4273,21,2,0)="contract will expire."
^DD(2100,4273,"DT")="2980706"
^DD(2100,4274,0)="TOTAL CONTRACT COST^RNJ7,0O^^GECOPHY4;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4274,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4274,2.1)="I $D(GECSOT) S Y=$E(""0000000"",$L(Y)+1,7)_Y"
^DD(2100,4274,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100,4274,21,0)="^^3^3^2900629^^"
^DD(2100,4274,21,1,0)="The total contract cost rounded to the nearest whole dollar. This should"
^DD(2100,4274,21,2,0)="be the cost of the contract regardless of the number of years or FTEE"
^DD(2100,4274,21,3,0)="involved."
^DD(2100,4274,"DT")="2900709"
^DD(2100,4275,0)="GAIN OR LOSS INDICATOR^RSO^3:GAIN;4:LOSS;^GECOPHY4;10^Q"
^DD(2100,4275,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4275,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4275,21,0)="^^1^1^2900714^^^"
^DD(2100,4275,21,1,0)="Identifies the data as a gain or loss to the reporting system."
^DD(2100,4275,"DT")="2900713"
^DD(2100,4276,0)="SPECIALTY ASSIGNMENT (PART-2)^RFO^^GECOPHY4;11^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4276,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4276,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4276,3)="Answer must be 1-2 characters in length and numeric."
^DD(2100,4276,21,0)="^^1^1^2900706^^^"
^DD(2100,4276,21,1,0)="The specialty assignment code for the gain or loss."
^DD(2100,4276,"DT")="2900709"
^DD(2100,4277,0)="DUTY STATUS (PART-2)^RSO^F:FULL-TIME;P:PART-TIME;^GECOPHY4;12^Q"
^DD(2100,4277,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4277,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4277,21,0)="^^1^1^2900629^^"
^DD(2100,4277,21,1,0)="The duty status of each physician gain or loss."
^DD(2100,4277,"DT")="2900713"
^DD(2100,4278,0)="PHYSICIAN GRADE (PART-2)^RSO^1:ASSOCIATE;2:FULL;3:INTERMEDIATE;4:SENIOR;5:CHIEF;6:EXECUTIVE;7:DIRECTOR;9:STATUTORY;0:UNGRADED;^GECOPHY4;13^Q"
^DD(2100,4278,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4278,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4278,21,0)="^^1^1^2900629^^"
^DD(2100,4278,21,1,0)="The grade of the physician gain or loss."
^DD(2100,4278,"DT")="2900713"
^DD(2100,4279,0)="PHYSICIAN STEP (PART-2)^RSO^1:1;2:2;3:3;4:4;5:5;6:6;7:7;8:8;9:9;0:10;^GECOPHY4;14^Q"
^DD(2100,4279,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4279,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4279,21,0)="^^1^1^2900629^^"
^DD(2100,4279,21,1,0)="The step of the physician gain or loss."
^DD(2100,4279,"DT")="2900713"
^DD(2100,4280,0)="DIPLOMATE STATUS (PART-2)^RSO^B:BOARD CERTIFIED;N:NOT BOARD CERTIFIED;^GECOPHY4;15^Q"
^DD(2100,4280,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4280,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4280,21,0)="^^2^2^2900629^^"
^DD(2100,4280,21,1,0)="Whether or not the physician gain or loss is certified by an American"
^DD(2100,4280,21,2,0)="Specialty Board."
^DD(2100,4280,"DT")="2900713"
^DD(2100,4281,0)="DATE 0F BIRTH (PART-2)^RDO^^GECOPHY4;16^S %DT=""E"" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X)  S X=$E(X,4,5)_$E(X,2,3)"
^DD(2100,4281,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4281,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4281,21,0)="^^1^1^2900711^"
^DD(2100,4281,21,1,0)="The date of birth (month and year only) of the physician gain or loss."
^DD(2100,4281,"DT")="2980706"
^DD(2100,4282,0)="EDUCATION STATUS (PART-2)^RSO^U:U.S./CANADIAN MEDICAL SCHOOL;F:FOREIGN MEDICAL SCHOOL;^GECOPHY4;17^Q"
^DD(2100,4282,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4282,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4282,21,0)="^^2^2^2900713^^^^"
^DD(2100,4282,21,1,0)="Whether the physician gain or loss is a U.S./Canadian or foreign medical"
^DD(2100,4282,21,2,0)="school graduate."
^DD(2100,4282,"DT")="2900713"
^DD(2100,4283,0)="GAIN FROM CODE (PART-2)^FO^^GECOPHY4;18^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4283,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4283,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4283,3)="Answer must be 1-2 characters in length and numeric."
^DD(2100,4283,21,0)="^^2^2^2900713^^^"
^DD(2100,4283,21,1,0)="The code which identifies the physician's most recent principal"
^DD(2100,4283,21,2,0)="employment or activity before joining the VA."
^DD(2100,4283,"DT")="2900713"
^DD(2100,4284,0)="MONTHS SPENT RECRUITING-PT 2^NJ2,0O^^GECOPHY4;19^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4284,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4284,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4284,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2100,4284,21,0)="^^3^3^2900629^^"
^DD(2100,4284,21,1,0)="The total number of months that were actually spent actively recruiting"
^DD(2100,4284,21,2,0)="for the position now occupied by the gain. Round the time to the nearest"
^DD(2100,4284,21,3,0)="whole month."
^DD(2100,4284,"DT")="2900714"
^DD(2100,4285,0)="OFFERS MADE^NJ2,0O^^GECOPHY4;20^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4285,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4285,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4285,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2100,4285,21,0)="^^2^2^2900629^^"
^DD(2100,4285,21,1,0)="The total number of formal offers made to physicians to fill this"
^DD(2100,4285,21,2,0)="position including the offer that was accepted."
^DD(2100,4285,"DT")="2901106"
^DD(2100,4286,0)="LOSS TO CODE^FO^^GECOPHY4;21^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4286,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4286,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4286,3)="Answer must be 1-2 characters in length and numeric."
^DD(2100,4286,21,0)="^^2^2^2900713^^^"
^DD(2100,4286,21,1,0)="The code which identifies the destination of the physician after"
^DD(2100,4286,21,2,0)="leaving VA employment."
^DD(2100,4286,"DT")="2900713"
^DD(2100,4286.5,0)="LENGTH OF VA SERVICE^FXO^^GECOPHY4;22^K:$L(X)>4!($L(X)<4)!'((X?4N)&(+$E(X,3,4)<12)) X"
^DD(2100,4286.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4286.5,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4286.5,3)="Answer must be 4 characters in length and numeric. A length of VA service of 6 years, 9 months is to be entered as '0609'."
^DD(2100,4286.5,21,0)="^^3^3^2900711^^"
^DD(2100,4286.5,21,1,0)="The length of VA service acquired by the physician loss is to be reported"
^DD(2100,4286.5,21,2,0)="in full years and full months only. Disregard days entirely. Only VA"
^DD(2100,4286.5,21,3,0)="service is to be counted. Do not include other government service."
^DD(2100,4286.5,"DT")="2900713"
^DD(2100,4287,0)="DUTY STATUS (PART-3)^RSO^6:FULL-TIME POSITION;7:PART-TIME POSITION;^GECOPHY4A;1^Q"
^DD(2100,4287,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4287,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4287,21,0)="^^2^2^2900629^^"
^DD(2100,4287,21,1,0)="The duty status of the position that is reported as vacant, recruited"
^DD(2100,4287,21,2,0)="for, or committed."
^DD(2100,4287,"DT")="2900713"
^DD(2100,4288,0)="SPECIALTY ASSIGNMENT (PART-3)^RFO^^GECOPHY4A;2^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4288,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4288,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4288,3)="Answer must be 1-2 characters in length and numeric."
^DD(2100,4288,21,0)="^^1^1^2900706^^^"
^DD(2100,4288,21,1,0)="The specialty assignment code of the physician vacancy."
^DD(2100,4288,"DT")="2900709"
^DD(2100,4289,0)="TYPE OF POSITION^SO^C:CENTRALIZED POSITION;N:NON-CENTRALIZED POSITION;^GECOPHY4A;3^Q"
^DD(2100,4289,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4289,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4289,21,0)="^^2^2^2900629^^"
^DD(2100,4289,21,1,0)="Whether or not the vacant position is ""centralized"" (for recruitment"
^DD(2100,4289,21,2,0)="purposes)."
^DD(2100,4289,"DT")="2900712"
^DD(2100,4290,0)="MONTHS VACANT^NJ2,0O^^GECOPHY4A;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4290,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4290,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4290,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2100,4290,21,0)="^^3^3^2900629^^"
^DD(2100,4290,21,1,0)="The total number of months the position has been vacant. If a position"
^DD(2100,4290,21,2,0)="has been vacant for any portion of a month it should be reported as a"
^DD(2100,4290,21,3,0)="whole month."
^DD(2100,4290,"DT")="2900712"
^DD(2100,4291,0)="MONTHS SPENT RECRUITING-PT 3^NJ2,0O^^GECOPHY4A;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4291,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4291,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4291,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2100,4291,21,0)="^^2^2^2900629^^"
^DD(2100,4291,21,1,0)="The total number of months spent actively recruiting for the position."
^DD(2100,4291,21,2,0)="Round to the nearest whole month."
^DD(2100,4291,"DT")="2900713"
^DD(2100,4292,0)="OFFERS MADE BY VA^NJ2,0O^^GECOPHY4A;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4292,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y=""  "" Q:Y=""  ""  S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4292,2.1)="I $D(GECSOT) S:Y="""" Y=""  "" Q:Y=""  ""  S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4292,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4292,21,0)="^^4^4^2900629^^"
^DD(2100,4292,21,1,0)="The total number of formal offers made during the entire active"
^DD(2100,4292,21,2,0)="recruitment period. Do not include offers made and then withdrawn"
^DD(2100,4292,21,3,0)="by the facility and do not include offers made that were subsequently"
^DD(2100,4292,21,4,0)="accepted."
^DD(2100,4292,"DT")="2901106"
^DD(2100,4293,0)="OFFERS REFUSED^NJ2,0O^^GECOPHY4A;7^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4293,2)="S Y(0)=Y I $D(GECSOT) S:Y="""" Y=""  "" Q:Y=""  ""  S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4293,2.1)="I $D(GECSOT) S:Y="""" Y=""  "" Q:Y=""  ""  S Y=$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4293,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2100,4293,21,0)="^^1^1^2900629^^"
^DD(2100,4293,21,1,0)="The number of offers that were refused."
^DD(2100,4293,"DT")="2901106"
^DD(2100,4294,0)="PHYSICIAN GRADE (PART-3)^SO^1:ASSOCIATE;2:FULL;3:INTERMEDIATE;4:SENIOR;5:CHIEF;6:EXECUTIVE;7:DIRECTOR;9:STATUTORY;0:UNGRADED;^GECOPHY4A;8^Q"
^DD(2100,4294,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4294,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4294,21,0)="^^1^1^2900629^^"
^DD(2100,4294,21,1,0)="The grade approved for the candidate committed to the position."
^DD(2100,4294,"DT")="2900713"
^DD(2100,4295,0)="PHYSICIAN STEP (PART-3)^SO^1:1;2:2;3:3;4:4;5:5;6:6;7:7;8:8;9:9;0:10;^GECOPHY4A;9^Q"
^DD(2100,4295,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4295,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4295,21,0)="^^1^1^2900629^^"
^DD(2100,4295,21,1,0)="The step approved for the candidate committed to the position."
^DD(2100,4295,"DT")="2900713"
^DD(2100,4296,0)="DIPLOMATE STATUS (PART-3)^SO^B:BOARD CERTIFIED;N:NOT BOARD CERTIFIED;^GECOPHY4A;10^Q"
^DD(2100,4296,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4296,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4296,21,0)="^^2^2^2900629^^"
^DD(2100,4296,21,1,0)="Whether or not the candidate committed is certified by an American"
^DD(2100,4296,21,2,0)="Specialty Board."
^DD(2100,4296,"DT")="2900713"
^DD(2100,4297,0)="DATE OF BIRTH (PART-3)^DO^^GECOPHY4A;11^S %DT=""E"" D ^%DT S X=Y K:(Y<1)!(+$E(X,4,5)=0) X Q:'$D(X)  S X=$E(X,4,5)_$E(X,2,3)"
^DD(2100,4297,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4297,2.1)="I $D(GECSOT) S Y=$E(""0000"",$L(Y)+1,4)_Y S:+Y=0 Y=""    """
^DD(2100,4297,21,0)="^^1^1^2900629^^"
^DD(2100,4297,21,1,0)="The date of birth (month and year) of the candidate committed."
^DD(2100,4297,"DT")="2980706"
^DD(2100,4298,0)="EDUCATION STATUS (PART-3)^SO^U:U.S./CANADIAN MEDICAL SCHOOL;F:FOREIGN MEDICAL SCHOOL;^GECOPHY4A;12^Q"
^DD(2100,4298,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4298,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4298,21,0)="^^2^2^2900713^^^^"
^DD(2100,4298,21,1,0)="Whether the candidate committed is a U.S./Canadian or foreign medical"
^DD(2100,4298,21,2,0)="school graduate."
^DD(2100,4298,"DT")="2900713"
^DD(2100,4299,0)="GAIN FROM CODE (PART-3)^FO^^GECOPHY4A;13^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4299,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4299,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4299,3)="Answer must be 1-2 characters in length and numeric."
^DD(2100,4299,21,0)="^^2^2^2900629^^"
^DD(2100,4299,21,1,0)="The code which identifies the physician's most recent principal"
^DD(2100,4299,21,2,0)="employment before joining the VA."
^DD(2100,4299,"DT")="2900713"
^DD(2100,4300,0)="MONTH REPORTING FOR DUTY^SO^1:JANUARY;2:FEBRUARY;3:MARCH;4:APRIL;5:MAY;6:JUNE;7:JULY;8:AUGUST;9:SEPTEMBER;10:OCTOBER;11:NOVEMBER;12:DECEMBER;^GECOPHY4A;14^Q"
^DD(2100,4300,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4300,2.1)="I $D(GECSOT) S Y=$E(""00"",$L(Y)+1,2)_Y S:+Y=0 Y=""  """
^DD(2100,4300,21,0)="^^2^2^2900629^^"
^DD(2100,4300,21,1,0)="The numerical equivalent of the month when the physician is scheduled"
^DD(2100,4300,21,2,0)="to report for duty."
^DD(2100,4300,"DT")="2900713"
^DD(2100,4301,0)="ID (PART-4)^NJ1,0O^^GECOPHY4A;15^K:+X'=X!(X>8)!(X<8)!(X?.E1"".""1N.N) X"
^DD(2100,4301,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4301,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4301,3)="Type a Number between 8 and 8, 0 Decimal Digits"
^DD(2100,4301,21,0)="^^1^1^2900713^^^"
^DD(2100,4301,21,1,0)="Indicates the data which follows will be related to FTEE ceiling."
^DD(2100,4301,"DT")="2900713"
^DD(2100,4302,0)="FTEE (PART-4)^RNJ6,2O^^GECOPHY4A;16^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2100,4302,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),$P(Y,""."",1)=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4302,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),$P(Y,""."",1)=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2)"
^DD(2100,4302,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(2100,4302,21,0)="^^2^2^2900629^^"
^DD(2100,4302,21,1,0)="The total ceiling for full-time equivalent physician employees that"
^DD(2100,4302,21,2,0)="was available at the beginning of the reporting quarter."
^DD(2100,4302,"DT")="2900709"
^DD(2100,4303,0)="POSITIVE ADJUSTMENTS^NJ6,2O^^GECOPHY4A;17^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2100,4303,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),$P(Y,""."",1)=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:+Y=0 Y=""     """
^DD(2100,4303,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),$P(Y,""."",1)=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:+Y=0 Y=""     """
^DD(2100,4303,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(2100,4303,21,0)="^^2^2^2900629^^"
^DD(2100,4303,21,1,0)="Any net increase in the FTEE for physicians since the beginning of the"
^DD(2100,4303,21,2,0)="quarter. Only the amount of the increase is to be entered."
^DD(2100,4303,"DT")="2900711"
^DD(2100,4304,0)="NEGATIVE ADJUSTMENTS^NJ6,2O^^GECOPHY4A;18^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2100,4304,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),$P(Y,""."",1)=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:+Y=0 Y=""     """
^DD(2100,4304,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",2)=$P(Y,""."",2)_$E(""00"",$L($P(Y,""."",2))+1,2),$P(Y,""."",1)=$E(""000"",$L($P(Y,""."",1))+1,3)_$P(Y,""."",1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:+Y=0 Y=""     """
^DD(2100,4304,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(2100,4304,21,0)="^^2^2^2900629^^"
^DD(2100,4304,21,1,0)="Any net decrease in the FTEE for physicians since the beginning of the"
^DD(2100,4304,21,2,0)="quarter. Only the amount of the decrease is to be entered."
^DD(2100,4304,"DT")="2900711"
^DD(2100,4304.9,0)="FWS PARAMETERS (COLUMNS 1-9)^FO^^GECOWGE4C;1^K:$L(X)>9!($L(X)<1) X"
^DD(2100,4304.9,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""         "",$L(Y)+1,9)"
^DD(2100,4304.9,2.1)="I $D(GECSOT) S Y=Y_$E(""         "",$L(Y)+1,9)"
^DD(2100,4304.9,3)="Answer must be 1-9 characters in length."
^DD(2100,4304.9,"DT")="2900924"
^DD(2100,4304.91,0)="FWS PARAMETERS (COLUMNS 10-19)^FO^^GECOWGE4C;2^K:$L(X)>10!($L(X)<1) X"
^DD(2100,4304.91,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.91,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.91,3)="Answer must be 1-10 characters in length."
^DD(2100,4304.91,"DT")="2900924"
^DD(2100,4304.92,0)="FWS PARAMETERS (COLUMNS 20-29)^FO^^GECOWGE4C;3^K:$L(X)>10!($L(X)<1) X"
^DD(2100,4304.92,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.92,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.92,3)="Answer must be 1-10 characters in length."
^DD(2100,4304.92,"DT")="2900924"
^DD(2100,4304.93,0)="FWS PARAMETERS (COLUMNS 30-39)^FO^^GECOWGE4C;4^K:$L(X)>10!($L(X)<1) X"
^DD(2100,4304.93,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.93,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.93,3)="Answer must be 1-10 characters in length."
^DD(2100,4304.93,"DT")="2900924"
^DD(2100,4304.94,0)="FWS PARAMETERS (COLUMNS 40-49)^FO^^GECOWGE4C;5^K:$L(X)>10!($L(X)<1) X"
^DD(2100,4304.94,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.94,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.94,3)="Answer must be 1-10 characters in length."
^DD(2100,4304.94,"DT")="2900924"
^DD(2100,4304.95,0)="FWS PARAMETERS (COLUMNS 50-59)^FO^^GECOWGE4C;6^K:$L(X)>10!($L(X)<1) X"
^DD(2100,4304.95,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.95,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.95,3)="Answer must be 1-10 characters in length."
^DD(2100,4304.95,"DT")="2900924"
^DD(2100,4304.96,0)="FWS PARAMETERS (COLUMNS 60-69)^FO^^GECOWGE4C;7^K:$L(X)>10!($L(X)<1) X"
^DD(2100,4304.96,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.96,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,4304.96,3)="Answer must be 1-10 characters in length."
^DD(2100,4304.96,"DT")="2900924"
^DD(2100,4304.97,0)="FWS PARAMETERS (COLUMNS 70-78)^FO^^GECOWGE4C;8^K:$L(X)>9!($L(X)<1) X"
^DD(2100,4304.97,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""         "",$L(Y)+1,9)"
^DD(2100,4304.97,2.1)="I $D(GECSOT) S Y=Y_$E(""         "",$L(Y)+1,9)"
^DD(2100,4304.97,3)="Answer must be 1-9 characters in length."
^DD(2100,4304.97,"DT")="2900924"
^DD(2100,4304.98,0)="FWS PARAMETERS (COLUMN 79)^FO^^GECOWGE4C;9^K:$L(X)>1!($L(X)<1) X"
^DD(2100,4304.98,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4304.98,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4304.98,3)="Answer must be 1 character in length."
^DD(2100,4304.98,"DT")="2900924"
^DD(2100,4304.99,0)="FWS PARAMETERS (COLUMN 80)^RFO^^GECOWGE4C;10^K:$L(X)>1!($L(X)<1) X"
^DD(2100,4304.99,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4304.99,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4304.99,3)="Answer must be 1 character in length."
^DD(2100,4304.99,"DT")="2900924"
^DD(2100,4305,0)="AREA CODE^RFO^^GECOWGE4;1^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,4305,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4305,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4305,3)="Answer must be 1-3 characters in length and numeric."
^DD(2100,4305,21,0)="1^^1^1^2900706^^"
^DD(2100,4305,21,1,0)="The wage survey area code as assigned by the Bureau of Labor Statistics."
^DD(2100,4305,"DT")="2900924"
^DD(2100,4306,0)="ESTABLISHMENT CODE^RFO^^GECOWGE4;2^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,4306,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4306,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4306,3)="Answer must be 1-3 characters in length and numeric."
^DD(2100,4306,21,0)="^^2^2^2900705^^^"
^DD(2100,4306,21,1,0)="The numeric code for the business establishment as supplied by the"
^DD(2100,4306,21,2,0)="Bureau of Labor Statistics."
^DD(2100,4306,"DT")="2900924"
^DD(2100,4307,0)="STATUS^FO^^GECOWGE4;3^K:$L(X)>1!($L(X)<1)!'(""P""[X) X"
^DD(2100,4307,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4307,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4307,3)="Enter the letter 'P'."
^DD(2100,4307,21,0)="^^2^2^2900705^^^"
^DD(2100,4307,21,1,0)="The status of the business establishment as a candidiate in the survey."
^DD(2100,4307,21,2,0)="It will always be the letter ""P"" (i.e., Prime)."
^DD(2100,4307,"DT")="2900712"
^DD(2100,4308,0)="SIC CODE^RFO^^GECOWGE4;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(2100,4308,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4308,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4308,3)="Answer must be 4 digits in length."
^DD(2100,4308,21,0)="^^2^2^2900705^^^"
^DD(2100,4308,21,1,0)="The Standard Industrial Classification Code assigned to the business"
^DD(2100,4308,21,2,0)="establishment by the Bureau of Labor Statistics."
^DD(2100,4308,"DT")="2900713"
^DD(2100,4309,0)="WEIGHT^RFO^^GECOWGE4;5^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,4309,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4309,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4309,3)="Answer must be 1-2 characters in length numeric."
^DD(2100,4309,21,0)="^^2^2^2900705^^^"
^DD(2100,4309,21,1,0)="The survey weight of the business establishment as assigned by the"
^DD(2100,4309,21,2,0)="Bureau of Labor Statistics."
^DD(2100,4309,"DT")="2900924"
^DD(2100,4310,0)="TOTAL NUMBER OF EMPLOYEES^NJ6,0O^^GECOWGE4;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4310,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4310,2.1)="I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4310,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4310,21,0)="^^1^1^2900705^^^"
^DD(2100,4310,21,1,0)="The total number of employees of the business establishment."
^DD(2100,4310,"DT")="2900712"
^DD(2100,4311,0)="PREVIOUS PARTICIPATION^FO^^GECOWGE4;7^K:$L(X)>1!($L(X)<1)!'(""*""[X) X"
^DD(2100,4311,2)="S Y(0)=Y I $D(GECSOT) S Y=""   ""_$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4311,2.1)="I $D(GECSOT) S Y=""   ""_$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4311,3)="Enter '*' (asterisk) if the establishment participated in the most recent survey."
^DD(2100,4311,21,0)="^^2^2^2900709^^^^"
^DD(2100,4311,21,1,0)="If the business establishment participated in the most recent survey,"
^DD(2100,4311,21,2,0)="then enter an '*' (asterisk) in this field."
^DD(2100,4311,"DT")="2900712"
^DD(2100,4312,0)="ESTABLISHMENT NAME^RFO^^GECOWGE4;8^K:$L(X)>32!($L(X)<1) X"
^DD(2100,4312,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                                "",$L(Y)+1,32)"
^DD(2100,4312,2.1)="I $D(GECSOT) S Y=Y_$E(""                                "",$L(Y)+1,32)"
^DD(2100,4312,3)="Answer must be 1-32 characters in length."
^DD(2100,4312,21,0)="^^1^1^2900705^^^"
^DD(2100,4312,21,1,0)="The name of the business establishment."
^DD(2100,4312,"DT")="2900711"
^DD(2100,4313,0)="NON-PARTICIPATION CODE^SO^-50:LESS THAN 50 EMPLOYEES;WSC:WRONG SIC CODE;CMB:COMBINED WITH OTHER ENTRY;COS:ON STRIKE;DNU:DATA NOT USABLE;DUP:DUPLICATE;OOA:OUT OF SURVEY AREA;OOB:OUT OF BUSINESS;REF:REFUSAL;UNL:UNABLE TO LOCATE;^GECOWGE4;9^Q"
^DD(2100,4313,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""   "",$L(Y)+1,3)_Y_""                    """
^DD(2100,4313,2.1)="I $D(GECSOT) S Y=$E(""   "",$L(Y)+1,3)_Y_""                    """
^DD(2100,4313,21,0)="^^2^2^2900709^^^^"
^DD(2100,4313,21,1,0)="The reason why the business establishment did not participate in the"
^DD(2100,4313,21,2,0)="survey."
^DD(2100,4313,"DT")="2901010"
^DD(2100,4313.5,0)="FORM ID^FO^^GECOWGE4;10^K:$L(X)>1!($L(X)<1) X"
^DD(2100,4313.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4313.5,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4313.5,3)="Answer must be 1 character in length."
^DD(2100,4313.5,21,0)="^^2^2^2900712^"
^DD(2100,4313.5,21,1,0)="The character which identifies the code sheet (e.g., '1' for the"
^DD(2100,4313.5,21,2,0)="Establishment Information Form)."
^DD(2100,4313.5,"DT")="2900924"
^DD(2100,4314,0)="TYPE OF SURVEY^RSO^0:FULL SCALE;1:FIRST WAGE CHANGE;^GECOWGE4A;1^Q"
^DD(2100,4314,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4314,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4314,21,0)="^^1^1^2900706^^^^"
^DD(2100,4314,21,1,0)="Whether the data input is from a Full Scale or Wage Change Survey."
^DD(2100,4314,21,2,0)="Wage Change Survey."
^DD(2100,4314,"DT")="2900712"
^DD(2100,4315,0)="OVERTIME DAILY RATE^NJ3,1O^^GECOWGE4A;2^K:+X'=X!(X>2)!(X<1.3)!(X?.E1"".""2N.N) X"
^DD(2100,4315,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4315,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4315,3)="Type a Number between 1.3 and 2, 1 Decimal Digit"
^DD(2100,4315,21,0)="^^2^2^2900705^^"
^DD(2100,4315,21,1,0)="The percentage rate the business establishment pays its employees for"
^DD(2100,4315,21,2,0)="overtime hours worked beyond the regular daily work shift."
^DD(2100,4315,"DT")="2901010"
^DD(2100,4316,0)="OVERTIME DAILY HOURS^NJ4,1O^^GECOWGE4A;3^K:+X'=X!(X>12)!(X<7)!(X?.E1"".""2N.N) X"
^DD(2100,4316,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  0"" Y=""   """
^DD(2100,4316,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  0"" Y=""   """
^DD(2100,4316,3)="Type a Number between 7 and 12, 1 Decimal Digit"
^DD(2100,4316,21,0)="^^2^2^2900705^^"
^DD(2100,4316,21,1,0)="The number of hours in one day an employee of the business establishment"
^DD(2100,4316,21,2,0)="must work before earning overtime pay."
^DD(2100,4316,"DT")="2901010"
^DD(2100,4317,0)="OVERTIME WEEKLY RATE^NJ3,1O^^GECOWGE4A;4^K:+X'=X!(X>2)!(X<1.3)!(X?.E1"".""2N.N) X"
^DD(2100,4317,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4317,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4317,3)="Type a Number between 1.3 and 2, 1 Decimal Digit"
^DD(2100,4317,21,0)="^^2^2^2900705^^"
^DD(2100,4317,21,1,0)="The percentage rate the business establishment pays its employees for"
^DD(2100,4317,21,2,0)="overtime hours worked beyond the regular workweek."
^DD(2100,4317,"DT")="2901010"
^DD(2100,4318,0)="OVERTIME WEEKLY HOURS^NJ4,1O^^GECOWGE4A;5^K:+X'=X!(X>48)!(X<35)!(X?.E1"".""2N.N) X"
^DD(2100,4318,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  0"" Y=""   """
^DD(2100,4318,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  0"" Y=""   """
^DD(2100,4318,3)="Type a Number between 35 and 48, 1 Decimal Digit"
^DD(2100,4318,21,0)="^^2^2^2900705^^"
^DD(2100,4318,21,1,0)="The number of hours an employee of the business establishment must work"
^DD(2100,4318,21,2,0)="in one week before earning overtime pay."
^DD(2100,4318,"DT")="2901010"
^DD(2100,4319,0)="SUNDAY RATE^NJ3,1O^^GECOWGE4A;6^K:+X'=X!(X>3)!(X<1.5)!(X?.E1"".""2N.N) X"
^DD(2100,4319,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4319,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4319,3)="Type a Number between 1.5 and 3, 1 Decimal Digit"
^DD(2100,4319,21,0)="^^2^2^2900705^^"
^DD(2100,4319,21,1,0)="The percentage rate the business establishment pays its employees for"
^DD(2100,4319,21,2,0)="working on Sunday."
^DD(2100,4319,"DT")="2901010"
^DD(2100,4320,0)="HOLIDAY RATE^NJ3,1O^^GECOWGE4A;7^K:+X'=X!(X>3.5)!(X<1.5)!(X?.E1"".""2N.N) X"
^DD(2100,4320,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4320,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E("" "",$L($P(Y,""."",1))+1,1)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y="" 0"" Y=""  """
^DD(2100,4320,3)="Type a Number between 1.5 and 3.5, 1 Decimal Digit"
^DD(2100,4320,21,0)="^^2^2^2900705^^"
^DD(2100,4320,21,1,0)="The percentage rate the business establishment pays its employees for"
^DD(2100,4320,21,2,0)="working on holidays."
^DD(2100,4320,"DT")="2901010"
^DD(2100,4321,0)="NORMAL WORKWEEK^NJ4,1O^^GECOWGE4A;8^K:+X'=X!(X>60)!(X<35)!(X?.E1"".""2N.N) X"
^DD(2100,4321,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  0"" Y=""   """
^DD(2100,4321,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""0"",$L($P(Y,""."",2))+1,1),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  0"" Y=""   """
^DD(2100,4321,3)="Type a Number between 35 and 60, 1 Decimal Digit"
^DD(2100,4321,21,0)="^^2^2^2900705^^"
^DD(2100,4321,21,1,0)="The number of hours in a normal workweek as defined by the business"
^DD(2100,4321,21,2,0)="establishment."
^DD(2100,4321,"DT")="2901010"
^DD(2100,4322,0)="NR TRD-CRFT-LBR(PLANT) WORKERS^NJ6,0O^^GECOWGE4A;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4322,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4322,2.1)="I $D(GECSOT) S Y=$E(""      "",$L(Y)+1,6)_Y"
^DD(2100,4322,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2100,4322,21,0)="^^2^2^2900705^^"
^DD(2100,4322,21,1,0)="The total number of trade, craft and labor workers on all shifts employed"
^DD(2100,4322,21,2,0)="at the business establishment."
^DD(2100,4322,"DT")="2900712"
^DD(2100,4323,0)="MONTH OF RAISES^SO^0:NO SET MONTH;1:JANUARY;2:FEBRUARY;3:MARCH;4:APRIL;5:MAY;6:JUNE;7:JULY;8:AUGUST;9:SEPTEMBER;10:OCTOBER;11:NOVEMBER;12:DECEMBER;^GECOWGE4A;10^Q"
^DD(2100,4323,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4323,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4323,21,0)="^^1^1^2900705^^"
^DD(2100,4323,21,1,0)="The month raises normally take effect at the business establishment."
^DD(2100,4323,"DT")="2900712"
^DD(2100,4324,0)="COLLECTIVE BARGAINING CONTRACT^SO^Y:YES, OBTAINED;N:NOT OBTAINED;0:NO CONTRACT;^GECOWGE4A;11^Q"
^DD(2100,4324,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y_""   """
^DD(2100,4324,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y_""   """
^DD(2100,4324,21,0)="^^3^3^2900705^^"
^DD(2100,4324,21,1,0)="Whether or not the business establishment has a collective bargaining"
^DD(2100,4324,21,2,0)="agreement and if a copy of the contract(s) was obtained by the wage"
^DD(2100,4324,21,3,0)="data collection team."
^DD(2100,4324,"DT")="2900712"
^DD(2100,4325,0)="FIRST INCREASE GRANTED^FOX^^GECOWGE4A;12^K:$L(X)>6!($L(X)<1)!'(X?.2N1"".""2N.1""P"") X"
^DD(2100,4325,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4325,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4325,3)="Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P"
^DD(2100,4325,21,0)="^^1^1^2900714^^^"
^DD(2100,4325,21,1,0)="The amount of the first wage increase granted."
^DD(2100,4325,"DT")="2901010"
^DD(2100,4326,0)="REASON FOR INCREASE GRANTED-1^SO^C:COLA;G:GENERAL;N:NONE;^GECOWGE4A;13^Q"
^DD(2100,4326,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4326,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4326,21,0)="^^1^1^2900712^^^^"
^DD(2100,4326,21,1,0)="The reason for the first increase granted."
^DD(2100,4326,"DT")="2900712"
^DD(2100,4327,0)="SECOND INCREASE GRANTED^FOX^^GECOWGE4A;14^K:$L(X)>6!($L(X)<1)!'(X?.2N1"".""2N.1""P"") X"
^DD(2100,4327,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4327,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4327,3)="Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P"
^DD(2100,4327,21,0)="^^1^1^2900714^^^^"
^DD(2100,4327,21,1,0)="The amount of the second increase granted."
^DD(2100,4327,"DT")="2901010"
^DD(2100,4327.5,0)="REASON FOR INCREASE GRANTED-2^SO^C:COLA;G:GENERAL;N:NONE;^GECOWGE4A;16^Q"
^DD(2100,4327.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4327.5,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4327.5,21,0)="^^1^1^2900712^"
^DD(2100,4327.5,21,1,0)="The reason for the second increase granted."
^DD(2100,4327.5,"DT")="2900712"
^DD(2100,4328,0)="TOTAL INCREASES GRANTED^SO^1:ONE;2:TWO;^GECOWGE4A;15^Q"
^DD(2100,4328,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4328,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4328,21,0)="^^1^1^2900712^^^"
^DD(2100,4328,21,1,0)="The total number of increases granted."
^DD(2100,4328,"DT")="2900713"
^DD(2100,4329,0)="JOB NUMBER^RFO^^GECOWGE4B;1^K:$L(X)>3!($L(X)<1)!'(X?1.3N) X"
^DD(2100,4329,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4329,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100,4329,3)="Answer must be 1-3 characters in length and numeric."
^DD(2100,4329,21,0)="^^2^2^2900705^^^"
^DD(2100,4329,21,1,0)="The job number assigned by the Bureau of Labor Statistics to the"
^DD(2100,4329,21,2,0)="occupation being surveyed."
^DD(2100,4329,"DT")="2900924"
^DD(2100,4330,0)="JOB MATCH-1^RSO^Y:YES;N:NO;^GECOWGE4B;2^Q"
^DD(2100,4330,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4330,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4330,21,0)="^^1^1^2900712^^^^"
^DD(2100,4330,21,1,0)="The first job match entry for this code sheet."
^DD(2100,4330,"DT")="2900712"
^DD(2100,4331,0)="NUMBER OF EMPLOYEES-1^RNJ4,0O^^GECOWGE4B;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4331,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4331,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4331,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(2100,4331,21,0)="^^1^1^2900712^^^^"
^DD(2100,4331,21,1,0)="The number of employees at this particular straight time hourly rate."
^DD(2100,4331,"DT")="2900712"
^DD(2100,4332,0)="STRAIGHT TIME HOURLY RATE-1^NJ6,3O^^GECOWGE4B;4^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4332,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4332,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4332,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4332,21,0)="^^1^1^2900712^^^^"
^DD(2100,4332,21,1,0)="The straight time hourly rate paid for this job match."
^DD(2100,4332,"DT")="2901010"
^DD(2100,4333,0)="COLA^NJ5,3O^^GECOWGE4B;5^K:+X'=X!(X>.999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(2100,4333,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y="".""_Y S Y=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3) S:Y=""000"" Y=""   """
^DD(2100,4333,2.1)="I $D(GECSOT) S:Y'[""."" Y="".""_Y S Y=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3) S:Y=""000"" Y=""   """
^DD(2100,4333,3)="Type a Number between .001 and .999, 3 Decimal Digits"
^DD(2100,4333,21,0)="^^3^3^2900713^^^"
^DD(2100,4333,21,1,0)="The amount of any cost-of-living-allowance expressed in cents per"
^DD(2100,4333,21,2,0)="hour (e.g., 39 1/2 cents would be entered as .395 and 5 cents would"
^DD(2100,4333,21,3,0)="be expressed as .05)."
^DD(2100,4333,"DT")="2901010"
^DD(2100,4334,0)="BONUS PER HOUR^NJ5,3O^^GECOWGE4B;6^K:+X'=X!(X>.999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(2100,4334,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y="".""_Y S Y=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3) S:Y=""000"" Y=""   """
^DD(2100,4334,2.1)="I $D(GECSOT) S:Y'[""."" Y="".""_Y S Y=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3) S:Y=""000"" Y=""   """
^DD(2100,4334,3)="Type a Number between .001 and .999, 3 Decimal Digits"
^DD(2100,4334,21,0)="^^2^2^2900713^^^"
^DD(2100,4334,21,1,0)="The amount of any bonus paid expressed in cents per hour (e.g., 39 1/2"
^DD(2100,4334,21,2,0)="cents would be entered as .395 and 5 cents would be entered as .05)."
^DD(2100,4334,"DT")="2901010"
^DD(2100,4335,0)="NUMBER OF STEPS^RNJ2,0O^^GECOWGE4B;7^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4335,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4335,2.1)="I $D(GECSOT) S Y=$E(""  "",$L(Y)+1,2)_Y"
^DD(2100,4335,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2100,4335,21,0)="^^2^2^2900713^^^"
^DD(2100,4335,21,1,0)="The number of discreet pay steps within the pay range for this"
^DD(2100,4335,21,2,0)="occupation at the business establishment."
^DD(2100,4335,"DT")="2900712"
^DD(2100,4336,0)="MINIMUM JOB RATE^NJ6,3O^^GECOWGE4B;8^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4336,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4336,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4336,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4336,21,0)="^^2^2^2900713^^^"
^DD(2100,4336,21,1,0)="The minimum rate per hour the business establishment is paying for"
^DD(2100,4336,21,2,0)="this occupation."
^DD(2100,4336,"DT")="2901010"
^DD(2100,4337,0)="MAXIMUM JOB RATE^NJ6,3O^^GECOWGE4B;9^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4337,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4337,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4337,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4337,21,0)="^^2^2^2900713^^^"
^DD(2100,4337,21,1,0)="The maximum rate per hour the business establishment is paying for"
^DD(2100,4337,21,2,0)="this occupation."
^DD(2100,4337,"DT")="2901010"
^DD(2100,4338,0)="REASON FOR RATE CHANGE^SO^C:COMBINATION;L:LONGEVITY;M:MERIT;N:NONE;X:OTHER;^GECOWGE4B;10^Q"
^DD(2100,4338,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4338,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4338,21,0)="^^1^1^2900706^^^"
^DD(2100,4338,21,1,0)="The reason for the differences between pay rates."
^DD(2100,4338,"DT")="2900712"
^DD(2100,4339,0)="INCENTIVE RATE^NJ6,3O^^GECOWGE4B;11^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4339,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4339,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4339,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4339,21,0)="^^2^2^2900705^^"
^DD(2100,4339,21,1,0)="The amount of any incentive rate the employee(s) earned at this"
^DD(2100,4339,21,2,0)="occupation."
^DD(2100,4339,"DT")="2901010"
^DD(2100,4340,0)="GUARANTEED MINIMUM^NJ6,3O^^GECOWGE4B;12^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4340,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     "" S Y=Y_""         """
^DD(2100,4340,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     "" S Y=Y_""         """
^DD(2100,4340,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4340,21,0)="^^2^2^2900705^^"
^DD(2100,4340,21,1,0)="The guaranteed minimum rate for incentive-paid employees in this"
^DD(2100,4340,21,2,0)="occupation."
^DD(2100,4340,"DT")="2901010"
^DD(2100,4341,0)="MULTIPLE JOB MATCH^RNJ1,0O^^GECOWGE4B;13^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4341,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4341,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4341,3)="Type a Number between 0 and 9, 0 Decimal Digits"
^DD(2100,4341,21,0)="^^2^2^2900713^^^"
^DD(2100,4341,21,1,0)="A number from 0-9 used to differentiate multiple occupations at the"
^DD(2100,4341,21,2,0)="business establishment which match this particular survey job."
^DD(2100,4341,"DT")="2900713"
^DD(2100,4342,0)="FIRST INCREASE PENDING^FOX^^GECOWGE4B;14^K:$L(X)>6!($L(X)<1)!'(X?.2N1"".""2N.1""P"") X"
^DD(2100,4342,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4342,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4342,3)="Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P"
^DD(2100,4342,21,0)="^^1^1^2900714^^^^"
^DD(2100,4342,21,1,0)="The amount of the first increase pending payment."
^DD(2100,4342,"DT")="2901010"
^DD(2100,4342.5,0)="REASON FOR PENDING INCREASE-1^SO^C:COLA;G:GENERAL;N:NONE;^GECOWGE4A;17^Q"
^DD(2100,4342.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4342.5,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4342.5,21,0)="^^1^1^2900712^^"
^DD(2100,4342.5,21,1,0)="The reason for the first increase pending."
^DD(2100,4342.5,"DT")="2900712"
^DD(2100,4343,0)="SECOND INCREASE PENDING^FOX^^GECOWGE4B;15^K:$L(X)>6!($L(X)<1)!'(X?.2N1"".""2N.1""P"") X"
^DD(2100,4343,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4343,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4343,3)="Examples: enter 25 cents as .25, one dollar as 1.00, 2 1/2 percent as 2.50P, 5 percent as 5.00P"
^DD(2100,4343,21,0)="^^1^1^2900714^^^^"
^DD(2100,4343,21,1,0)="The amount of the second increase pending payment."
^DD(2100,4343,"DT")="2901010"
^DD(2100,4344,0)="REASON FOR PENDING INCREASE-2^SO^C:COLA;G:GENERAL;N:NONE;^GECOWGE4A;18^Q"
^DD(2100,4344,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4344,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4344,21,0)="^^1^1^2900712^"
^DD(2100,4344,21,1,0)="The reason for the second pending increase."
^DD(2100,4344,"DT")="2900712"
^DD(2100,4345,0)="TOTAL INCREASES PENDING^SO^1:ONE;2:TWO;^GECOWGE4A;19^Q"
^DD(2100,4345,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y_""    """
^DD(2100,4345,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y_""    """
^DD(2100,4345,21,0)="^^1^1^2900712^"
^DD(2100,4345,21,1,0)="The total number of increases pending."
^DD(2100,4345,"DT")="2901010"
^DD(2100,4346,0)="JOB MATCH-2^SO^Y:YES;N:NO;^GECOWGE4B;16^Q"
^DD(2100,4346,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346,21,0)="^^1^1^2900712^"
^DD(2100,4346,21,1,0)="The second job match for this code sheet."
^DD(2100,4346,"DT")="2900712"
^DD(2100,4346.1,0)="NUMBER OF EMPLOYEES-2^NJ4,0O^^GECOWGE4B;17^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4346.1,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4346.1,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4346.1,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(2100,4346.1,21,0)="^^1^1^2900712^"
^DD(2100,4346.1,21,1,0)="The number of employees at this particular straight time hourly rate."
^DD(2100,4346.1,"DT")="2900712"
^DD(2100,4346.2,0)="STRAIGHT TIME HOURLY RATE-2^NJ6,3O^^GECOWGE4B;18^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4346.2,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4346.2,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4346.2,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4346.2,21,0)="^^1^1^2900712^"
^DD(2100,4346.2,21,1,0)="The straight time hourly rate paid for this job match."
^DD(2100,4346.2,"DT")="2901010"
^DD(2100,4346.3,0)="JOB MATCH-3^SO^Y:YES;N:NO;^GECOWGE4B;19^Q"
^DD(2100,4346.3,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346.3,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346.3,21,0)="^^1^1^2900714^^"
^DD(2100,4346.3,21,1,0)="The third job match entry for this code sheet."
^DD(2100,4346.3,"DT")="2900712"
^DD(2100,4346.4,0)="NUMBER OF EMPLOYEES-3^NJ4,0O^^GECOWGE4B;20^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4346.4,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4346.4,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4346.4,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(2100,4346.4,21,0)="^^1^1^2900712^"
^DD(2100,4346.4,21,1,0)="The number of employees at this particular straight time hourly rate."
^DD(2100,4346.4,"DT")="2900712"
^DD(2100,4346.5,0)="STRAIGHT TIME HOURLY RATE-3^NJ6,3O^^GECOWGE4B;21^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4346.5,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4346.5,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4346.5,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4346.5,21,0)="^^1^1^2900712^"
^DD(2100,4346.5,21,1,0)="The straight time hourly rate paid for this job match."
^DD(2100,4346.5,"DT")="2901010"
^DD(2100,4346.6,0)="JOB MATCH-4^SO^Y:YES;N:NO;^GECOWGE4B;22^Q"
^DD(2100,4346.6,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346.6,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346.6,21,0)="^^1^1^2900712^"
^DD(2100,4346.6,21,1,0)="The fourth job match entry for this code sheet."
^DD(2100,4346.6,"DT")="2900712"
^DD(2100,4346.7,0)="NUMBER OF EMPLOYEES-4^NJ4,0O^^GECOWGE4B;23^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4346.7,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4346.7,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4346.7,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(2100,4346.7,21,0)="^^1^1^2900712^"
^DD(2100,4346.7,21,1,0)="The number of employees at this particular straight time hourly rate."
^DD(2100,4346.7,"DT")="2900712"
^DD(2100,4346.8,0)="STRAIGHT TIME HOURLY RATE-4^NJ6,3O^^GECOWGE4B;24^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4346.8,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4346.8,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4346.8,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4346.8,21,0)="^^1^1^2900712^"
^DD(2100,4346.8,21,1,0)="The straight time hourly rate paid for this job match."
^DD(2100,4346.8,"DT")="2901010"
^DD(2100,4346.9,0)="JOB MATCH-5^SO^Y:YES;N:NO;^GECOWGE4B;25^Q"
^DD(2100,4346.9,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346.9,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4346.9,21,0)="^^1^1^2900712^"
^DD(2100,4346.9,21,1,0)="The fifth job match entry for this code sheet."
^DD(2100,4346.9,"DT")="2900712"
^DD(2100,4347,0)="NUMBER OF EMPLOYEES-5^NJ4,0O^^GECOWGE4B;26^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4347,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4347,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4347,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(2100,4347,21,0)="^^1^1^2900712^"
^DD(2100,4347,21,1,0)="The number of employees at this particular straight time hourly rate."
^DD(2100,4347,"DT")="2900712"
^DD(2100,4347.1,0)="STRAIGHT TIME HOURLY RATE-5^NJ6,3O^^GECOWGE4B;27^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4347.1,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4347.1,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     """
^DD(2100,4347.1,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4347.1,21,0)="^^1^1^2900712^"
^DD(2100,4347.1,21,1,0)="The straight time hourly rate paid for this job match."
^DD(2100,4347.1,"DT")="2901010"
^DD(2100,4347.2,0)="JOB MATCH-6^SO^Y:YES;N:NO;^GECOWGE4B;28^Q"
^DD(2100,4347.2,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4347.2,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4347.2,21,0)="^^1^1^2900712^"
^DD(2100,4347.2,21,1,0)="The sixth job match entry for this code sheet."
^DD(2100,4347.2,"DT")="2900712"
^DD(2100,4347.3,0)="NUMBER OF EMPLOYEES-6^NJ4,0O^^GECOWGE4B;29^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4347.3,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4347.3,2.1)="I $D(GECSOT) S Y=$E(""    "",$L(Y)+1,4)_Y"
^DD(2100,4347.3,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(2100,4347.3,21,0)="^^1^1^2900712^"
^DD(2100,4347.3,21,1,0)="The number of employees at this particular straight time hourly rate."
^DD(2100,4347.3,"DT")="2900712"
^DD(2100,4347.4,0)="STRAIGHT TIME HOURLY RATE-6^NJ6,3O^^GECOWGE4B;30^K:+X'=X!(X>37.99)!(X<3.8)!(X?.E1"".""4N.N) X"
^DD(2100,4347.4,2)="S Y(0)=Y I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     "" S Y=Y_""        """
^DD(2100,4347.4,2.1)="I $D(GECSOT) S:Y'[""."" Y=Y_""."" S $P(Y,""."",1)=$E(""  "",$L($P(Y,""."",1))+1,2)_$P(Y,""."",1),$P(Y,""."",2)=$P(Y,""."",2)_$E(""000"",$L($P(Y,""."",2))+1,3),Y=$P(Y,""."",1)_$P(Y,""."",2) S:Y=""  000"" Y=""     "" S Y=Y_""        """
^DD(2100,4347.4,3)="Type a Number between 3.8 and 37.99, 3 Decimal Digits"
^DD(2100,4347.4,21,0)="^^1^1^2900712^"
^DD(2100,4347.4,21,1,0)="The straight time hourly rate paid for this job match."
^DD(2100,4347.4,"DT")="2901010"
^DD(2100,4347.5,0)="CONTINUATION COUNT^RFO^^GECOWGE4B;31^K:$L(X)>1!($L(X)<1)!'(X?1N!(X?1"" "")) X"
^DD(2100,4347.5,2)="S Y(0)=Y I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4347.5,2.1)="I $D(GECSOT) S Y=$E("" "",$L(Y)+1,1)_Y"
^DD(2100,4347.5,3)="Enter '0' (zero) for the first Continuation Form used for this particular job, '1' for the second, '2' for the third and so on."
^DD(2100,4347.5,21,0)="^^1^1^2900924^"
^DD(2100,4347.5,21,1,0)="This field contains the Continuation Form count."
^DD(2100,4347.5,"DT")="2900924"
^DD(2100,4348,0)="FACILITY NUMBER^RFO^^GECONSY4;18^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(2100,4348,2)="S Y(0)=Y I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4348,2.1)="I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4348,3)="Answer must be 3 characters in length and numeric."
^DD(2100,4348,21,0)="^^1^1^2900706^"
^DD(2100,4348,21,1,0)="The facility's three digit identification number."
^DD(2100,4348,"DT")="2900711"
^DD(2100,4349,0)="REPORT PERIOD^RNJ1,0O^^GECONSY4;19^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4349,2)="S Y(0)=Y I $D(GECSOT) S Y=""/""_$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4349,2.1)="I $D(GECSOT) S Y=""/""_$E(""00"",$L(Y)+1,2)_Y"
^DD(2100,4349,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(2100,4349,21,0)="^^1^1^2900706^"
^DD(2100,4349,21,1,0)="The reporting quarter (e.g., ""1"" = first quarter, ""2"" = second, etc)."
^DD(2100,4349,"DT")="2900706"
^DD(2100,4350,0)="PERIOD ENDING^RDO^^GECONSY4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X Q:'$D(X)  S X=$E(X,4,7)_$E(X,2,3)"
^DD(2100,4350,2)="S Y(0)=Y I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4350,2.1)="I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4350,21,0)="^^1^1^2900705^^"
^DD(2100,4350,21,1,0)="The date the reporting period ended."
^DD(2100,4350,"DT")="2980706"
^DD(2100,4351,0)="SERVICE^RFO^^GECONSY4;2^K:$L(X)>4!($L(X)<4) X"
^DD(2100,4351,2)="S Y(0)=Y I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4351,2.1)="I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4351,3)="Answer must be 4 characters in length."
^DD(2100,4351,21,0)="^^1^1^2900705^^"
^DD(2100,4351,21,1,0)="The abbreviation for the Service."
^DD(2100,4351,"DT")="2900706"
^DD(2100,4352,0)="SECTION^RFO^^GECONSY4;3^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(2100,4352,2)="S Y(0)=Y I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4352,2.1)="I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4352,3)="Answer must be 5 characters in length and numeric."
^DD(2100,4352,21,0)="^^1^1^2900705^^"
^DD(2100,4352,21,1,0)="The numeric code which identifies the Section number."
^DD(2100,4352,"DT")="2900713"
^DD(2100,4353,0)="COST CENTER^RFO^^GECONSY4;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(2100,4353,2)="S Y(0)=Y I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4353,2.1)="I $D(GECSOT) S Y=""/""_Y"
^DD(2100,4353,3)="Answer must be 4 characters in length and numeric."
^DD(2100,4353,21,0)="^^1^1^2900705^^"
^DD(2100,4353,21,1,0)="The 4 digit code which identifies the Cost Center."
^DD(2100,4353,"DT")="2900706"
^DD(2100,4354,0)="PAGE NUMBER^RNJ2,0O^^GECONSY4;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100,4354,2)="S Y(0)=Y I $D(GECSOT) S Y=""/""_$E(""00"",$L(Y)+1,2)_Y_"";"""
^DD(2100,4354,2.1)="I $D(GECSOT) S Y=""/""_$E(""00"",$L(Y)+1,2)_Y_"";"""
^DD(2100,4354,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2100,4354,21,0)="^^1^1^2900705^^"
^DD(2100,4354,21,1,0)="The code sheet page number."
^DD(2100,4354,"DT")="2900706"
^DD(2100,4355,0)="502 - EMPLOYEE SEPARATIONS^RNJ5,0O^^GECONSY4;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4355,2)="S Y(0)=Y I $D(GECSOT) S Y=""/502/""_Y"
^DD(2100,4355,2.1)="I $D(GECSOT) S Y=""/502/""_Y"
^DD(2100,4355,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4355,21,0)="^^5^5^2900714^^"
^DD(2100,4355,21,1,0)="The number of separation actions (full-time, part-time, intermittent,"
^DD(2100,4355,21,2,0)="permanent and temporary) that represent losses to the facility. Do not"
^DD(2100,4355,21,3,0)="include Leave Without Pay (LWOP) actions, fee basis consultants,"
^DD(2100,4355,21,4,0)="attendings, and others who are on fee-basis contracts or Without"
^DD(2100,4355,21,5,0)="Compensation (WOCs)."
^DD(2100,4355,"DT")="2900706"
^DD(2100,4356,0)="509 - EMPLOYEE HEAD COUNT^RNJ5,0O^^GECONSY4;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100,4356,2)="S Y(0)=Y I $D(GECSOT) S Y=""/509/""_Y_"";"""
^DD(2100,4356,2.1)="I $D(GECSOT) S Y=""/509/""_Y_"";"""
^DD(2100,4356,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100,4356,21,0)="^^8^8^2900713^^"
^DD(2100,4356,21,1,0)="The total number of employees (full-time, part-time, intermittent,"
^DD(2100,4356,21,2,0)="temporary and permanent) on the rolls as of the end of the report"
^DD(2100,4356,21,3,0)="period. Include all employees for whom the Personnel Service is"
^DD(2100,4356,21,4,0)="providing personnel services. Include employees of a District Office,"
^DD(2100,4356,21,5,0)="a Canteen Service, a Research Service, an Outpatient Clinic, a"
^DD(2100,4356,21,6,0)="National Cemetery, or any other unit serviced. Do not include fee"
^DD(2100,4356,21,7,0)="basis consultants, attendings, and others that are on fee-basis"
^DD(2100,4356,21,8,0)="contracts or Without Compensation (WOC)."
^DD(2100,4356,"DT")="2900706"
^DD(2100,4357,0)="100 - TOTAL HOURS WORKED^RNJ8,1O^^GECONSY4;8^K:+X'=X!(X>999999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4357,2)="S Y(0)=Y I $D(GECSOT) S Y=""/100/""_Y"
^DD(2100,4357,2.1)="I $D(GECSOT) S Y=""/100/""_Y"
^DD(2100,4357,3)="Type a Number between 0 and 999999.9, 1 Decimal Digit"
^DD(2100,4357,21,0)="^^5^5^2900706^^^^"
^DD(2100,4357,21,1,0)="The number of hours actually worked performing Personnel Service"
^DD(2100,4357,21,2,0)="activities i.e., hours spent on the job. These hours should include"
^DD(2100,4357,21,3,0)="the normal duty hours and overtime/compensatory hours worked by "
^DD(2100,4357,21,4,0)="employees, work-study students, Without Compensation (WOC) appointed"
^DD(2100,4357,21,5,0)="personnel, etc."
^DD(2100,4357,"DT")="2900706"
^DD(2100,4358,0)="200 - TOTAL PAID HOURS^RNJ8,1O^^GECONSY4;9^K:+X'=X!(X>999999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4358,2)="S Y(0)=Y I $D(GECSOT) S Y=""/200/""_Y_"";"""
^DD(2100,4358,2.1)="I $D(GECSOT) S Y=""/200/""_Y_"";"""
^DD(2100,4358,3)="Type a Number between 0 and 999999.9, 1 Decimal Digit"
^DD(2100,4358,21,0)="^^3^3^2900705^^"
^DD(2100,4358,21,1,0)="The number of man-hours paid during the report period for all"
^DD(2100,4358,21,2,0)="Personnel Service employees. Include hours for authorized paid"
^DD(2100,4358,21,3,0)="overtime, leave and holidays."
^DD(2100,4358,"DT")="2900706"
^DD(2100,4359,0)="205 - PAID OVERTIME HOURS^RNJ7,1O^^GECONSY4;10^K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4359,2)="S Y(0)=Y I $D(GECSOT) S Y=""/205/""_Y"
^DD(2100,4359,2.1)="I $D(GECSOT) S Y=""/205/""_Y"
^DD(2100,4359,3)="Type a Number between 0 and 99999.9, 1 Decimal Digit"
^DD(2100,4359,21,0)="^^2^2^2900705^^"
^DD(2100,4359,21,1,0)="The paid hours worked by Personnel Service employees in excess of"
^DD(2100,4359,21,2,0)="eight hours in a day or forty hours in an administrative workweek."
^DD(2100,4359,"DT")="2900706"
^DD(2100,4360,0)="215 - COP HOURS^RNJ7,1O^^GECONSY4;11^K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4360,2)="S Y(0)=Y I $D(GECSOT) S Y=""/215/""_Y_"";"""
^DD(2100,4360,2.1)="I $D(GECSOT) S Y=""/215/""_Y_"";"""
^DD(2100,4360,3)="Type a Number between 0 and 99999.9, 1 Decimal Digit"
^DD(2100,4360,21,0)="^^3^3^2900705^^"
^DD(2100,4360,21,1,0)="The total number of Continuation Of Pay (COP) hours due to job-related"
^DD(2100,4360,21,2,0)="injuries for all employees whose paid hours are charged to Personnel"
^DD(2100,4360,21,3,0)="Service."
^DD(2100,4360,"DT")="2900706"
^DD(2100,4361,0)="300 - TOTAL UNPAID LWOP & AWOL^RNJ7,1O^^GECONSY4;12^K:+X'=X!(X>99999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4361,2)="S Y(0)=Y I $D(GECSOT) S Y=""/300/""_Y"
^DD(2100,4361,2.1)="I $D(GECSOT) S Y=""/300/""_Y"
^DD(2100,4361,3)="Type a Number between 0 and 99999.9, 1 Decimal Digit"
^DD(2100,4361,21,0)="^^3^3^2900705^^"
^DD(2100,4361,21,1,0)="The total number of hours officially recorded as Leave Without Pay (LWOP)"
^DD(2100,4361,21,2,0)="or Absence Without Leave (AWOL) for all employees assigned to Personnel"
^DD(2100,4361,21,3,0)="Service."
^DD(2100,4361,"DT")="2900706"
^DD(2100,4362,0)="400 - TOTAL FUNDED FTEE^RNJ6,1O^^GECONSY4;13^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4362,2)="S Y(0)=Y I $D(GECSOT) S Y=""/400/""_Y_"";"""
^DD(2100,4362,2.1)="I $D(GECSOT) S Y=""/400/""_Y_"";"""
^DD(2100,4362,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4362,21,0)="^^4^4^2900705^^"
^DD(2100,4362,21,1,0)="The full-time employee equivalents of Personnel Service for the"
^DD(2100,4362,21,2,0)="total number of positions that are filled, plus any additional"
^DD(2100,4362,21,3,0)="positions which funds are available for recruitment and placement"
^DD(2100,4362,21,4,0)="as of the end of the report period."
^DD(2100,4362,"DT")="2900706"
^DD(2100,4363,0)="405 - MAN-HOURS BORROWED^RNJ6,1O^^GECONSY4;14^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4363,2)="S Y(0)=Y I $D(GECSOT) S Y=""/405/""_Y"
^DD(2100,4363,2.1)="I $D(GECSOT) S Y=""/405/""_Y"
^DD(2100,4363,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4363,21,0)="^^2^2^2900705^^"
^DD(2100,4363,21,1,0)="The hours spent performing Personnel Service activities by employees"
^DD(2100,4363,21,2,0)="assigned to another Service."
^DD(2100,4363,"DT")="2900706"
^DD(2100,4364,0)="410 - MAN-HOURS LOANED^RNJ6,1O^^GECONSY4;15^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4364,2)="S Y(0)=Y I $D(GECSOT) S Y=""/410/""_Y_"";"""
^DD(2100,4364,2.1)="I $D(GECSOT) S Y=""/410/""_Y_"";"""
^DD(2100,4364,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4364,21,0)="^^2^2^2900705^^"
^DD(2100,4364,21,1,0)="The hours spent by employees of Personnel Service performing"
^DD(2100,4364,21,2,0)="activities of another Service."
^DD(2100,4364,"DT")="2900706"
^DD(2100,4365,0)="701 - VOLUNTEER HOURS WORKED^RNJ6,1O^^GECONSY4;16^K:+X'=X!(X>9999.9)!(X<0)!(X?.E1"".""2N.N) X"
^DD(2100,4365,2)="S Y(0)=Y I $D(GECSOT) S Y=""/701/""_Y_"";"""
^DD(2100,4365,2.1)="I $D(GECSOT) S Y=""/701/""_Y_"";"""
^DD(2100,4365,3)="Type a Number between 0 and 9999.9, 1 Decimal Digit"
^DD(2100,4365,21,0)="^^2^2^2900714^^^^"
^DD(2100,4365,21,1,0)="The hours devoted to activities of Personnel Service by formal"
^DD(2100,4365,21,2,0)="volunteers."
^DD(2100,4365,"DT")="2900706"
^DD(2100,4366,0)="SYSTEM ID^RFO^^GECONSY4;17^K:$L(X)>3!($L(X)<3) X"
^DD(2100,4366,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""   "",$L(Y)+1,3)_Y"
^DD(2100,4366,2.1)="I $D(GECSOT) S Y=$E(""   "",$L(Y)+1,3)_Y"
^DD(2100,4366,3)="Answer must be 3 characters in length."
^DD(2100,4366,21,0)="^^1^1^2900713^^"
^DD(2100,4366,21,1,0)="The three character system identification code for this report."
^DD(2100,4366,"DT")="2900713"
^DD(2100,5000,0)="CLINIC^RFO^^YSDDC5;1^K:$L(X)>2!($L(X)<2)!'(X?1A1N) X"
^DD(2100,5000,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1A1N:""  "",1:Y)"
^DD(2100,5000,2.1)="I $D(GECSOT) S Y=$S(Y'?1A1N:""  "",1:Y)"
^DD(2100,5000,3)="Answer must be 2 characters in length. First character alphabetic; Second character numeric."
^DD(2100,5000,21,0)="^^3^3^2910528^^^"
^DD(2100,5000,21,1,0)="This is the two-character designation of the drug dependency clinic."
^DD(2100,5000,21,2,0)="The first character must be alphabetic.  The second character must be"
^DD(2100,5000,21,3,0)="numeric."
^DD(2100,5000,"DT")="2910405"
^DD(2100,5001,0)="PATIENT IDENTIFICATION NUMBER^RFO^^YSDDC5;2^K:$L(X)>10!($L(X)<9)!'(X?1""P""9N!(X?1"" ""9N)!(X?9N)) X"
^DD(2100,5001,2)="S Y(0)=Y I $D(GECSOT),($L(Y)<10) S Y="" ""_Y"
^DD(2100,5001,2.1)="I $D(GECSOT),($L(Y)<10) S Y="" ""_Y"
^DD(2100,5001,3)="Answer must be 9-10 characters in length."
^DD(2100,5001,21,0)="^^16^16^2910528^^^^"
^DD(2100,5001,21,1,0)="This is the Patient Identification Number (SSN or Pseudo SSN) as it"
^DD(2100,5001,21,2,0)="appears on the active patient census.  NOTE:  IF THE PATIENT HAS NO"
^DD(2100,5001,21,3,0)="SSN OR REFUSES TO DIVULGE IT, A PSEUDO SSN CAN BE GENERATED AS FOLLOWS:"
^DD(2100,5001,21,4,0)="   1. Enter a ""P"" as the first character to indicate a Pseudo SSN."
^DD(2100,5001,21,5,0)="   2. The next three characters will correspond to the patient's"
^DD(2100,5001,21,6,0)="      initials in first name, middle initial, last name order using"
^DD(2100,5001,21,7,0)="      the numeric code from the table below:"
^DD(2100,5001,21,8,0)="                  A,B,C = 1     J,K,L = 4     S,T,U = 7"
^DD(2100,5001,21,9,0)="                  D,E,F = 2     M,N,O = 5     V,W,X = 8"
^DD(2100,5001,21,10,0)="                  G,H,I = 3     P,Q,R = 6     Y,Z   = 9"
^DD(2100,5001,21,11,0)="                                No MI = 0"
^DD(2100,5001,21,12,0)="      The remaining six digits will correspond to the numeric date"
^DD(2100,5001,21,13,0)="      of birth, in the format MMDDYY (e.g., April 1, 1949 would be"
^DD(2100,5001,21,14,0)="      040149), WITHOUT delimiters (e.g., ""/"" or ""-"")."
^DD(2100,5001,21,15,0)="   3. As a complete example, a Pseudo SSN for John A. Doe, born on"
^DD(2100,5001,21,16,0)="      April 1, 1949 would be constructed as:  P412040149."
^DD(2100,5001,"DT")="2910401"
^DD(2100,5002,0)="PATIENT LAST NAME^RFO^^YSDDC5;3^K:$L(X)>18!($L(X)<1)!'(X?1.18AP) X"
^DD(2100,5002,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                  "",$L(Y)+1,18)"
^DD(2100,5002,2.1)="I $D(GECSOT) S Y=Y_$E(""                  "",$L(Y)+1,18)"
^DD(2100,5002,3)="Answer must be 1-18 characters in length."
^DD(2100,5002,21,0)="^^2^2^2910528^"
^DD(2100,5002,21,1,0)="This is the patients last name, as it appears on the active patient"
^DD(2100,5002,21,2,0)="census."
^DD(2100,5002,"DT")="2910401"
^DD(2100,5003,0)="PATIENT FIRST NAME^FO^^YSDDC5;4^K:$L(X)>10!($L(X)<1)!'(X?1.10AP) X"
^DD(2100,5003,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,5003,2.1)="I $D(GECSOT) S Y=Y_$E(""          "",$L(Y)+1,10)"
^DD(2100,5003,3)="Answer must be 1-10 characters in length."
^DD(2100,5003,21,0)="^^2^2^2910605^^^"
^DD(2100,5003,21,1,0)="This is the patient's first name, as it appears on the active patient"
^DD(2100,5003,21,2,0)="census."
^DD(2100,5003,"DT")="2910605"
^DD(2100,5004,0)="PATIENT MI^FO^^YSDDC5;5^K:$L(X)>1!($L(X)<1)!'(X?1A) X"
^DD(2100,5004,2)="S Y(0)=Y I $D(GECSOT) S:$L(Y)<1 Y="" """
^DD(2100,5004,2.1)="I $D(GECSOT) S:$L(Y)<1 Y="" """
^DD(2100,5004,3)="Answer must be 1 character in length."
^DD(2100,5004,21,0)="^^2^2^2910528^^"
^DD(2100,5004,21,1,0)="This is the patient's middle initial, if present, as it appears on the"
^DD(2100,5004,21,2,0)="active patient census."
^DD(2100,5004,"DT")="2910328"
^DD(2100,5005,0)="ETHNIC BACKGROUND CODE (EBC)^SO^01:White;02:Black;03:Native American;04:Eskimo - Alaskan Native;05:Asian/Pacific Islander;06:Mexican;07:Puerto Rican;08:Cuban;09:Hispanic (NES);99:Unspecified;^YSDDC5;6^Q"
^DD(2100,5005,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y="""":""  "",Y'?1.2N:""99"",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5005,2.1)="I $D(GECSOT) S Y=$S(Y="""":""  "",Y'?1.2N:""99"",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5005,3)=""
^DD(2100,5005,21,0)="^^11^11^2910604^^^"
^DD(2100,5005,21,1,0)="This is the two digit numeric code for the patient's ethnic background:"
^DD(2100,5005,21,2,0)="          01 = White (not of Hispanic origin)"
^DD(2100,5005,21,3,0)="          02 = Black (not of Hispanic origin)"
^DD(2100,5005,21,4,0)="          03 = Native American (Indian)"
^DD(2100,5005,21,5,0)="          04 = Alaskan Native (Aleutian, Eskimo Indian)"
^DD(2100,5005,21,6,0)="          05 = Asian or Pacific Islander"
^DD(2100,5005,21,7,0)="          06 = Hispanic - Mexican origin"
^DD(2100,5005,21,8,0)="          07 = Hispanic - Puerto Rican origin"
^DD(2100,5005,21,9,0)="          08 = Hispanic - Cuban origin"
^DD(2100,5005,21,10,0)="          09 = Hispanic - other than above"
^DD(2100,5005,21,11,0)="          99 = Unspecified"
^DD(2100,5005,"DT")="2910604"
^DD(2100,5006,0)="PATIENT SEX^SO^M:male;F:female;^YSDDC5;7^Q"
^DD(2100,5006,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y="""":"" "",1:Y)"
^DD(2100,5006,2.1)="I $D(GECSOT) S Y=$S(Y="""":"" "",1:Y)"
^DD(2100,5006,21,0)="^^1^1^2910528^"
^DD(2100,5006,21,1,0)="This is the patient's gender (""M"" if male, ""F"" if female)."
^DD(2100,5006,"DT")="2910327"
^DD(2100,5007,0)="PATIENT DATE OF BIRTH^DO^^YSDDC5;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,5007,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$S(+Y'>0:""      "",1:$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3))"
^DD(2100,5007,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$S(+Y'>0:""      "",1:$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3))"
^DD(2100,5007,"DT")="2980707"
^DD(2100,5008,0)="COUNSELOR ID NUMBER^FO^^YSDDC5;9^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,5008,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5008,2.1)="I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5008,3)="Enter counselor's ID #, or 00 if counselor not assigned. Answer must be 1-2 characters in length."
^DD(2100,5008,21,0)="^^2^2^2910528^"
^DD(2100,5008,21,1,0)="This is the two-digit number assigned to the counselor to which the"
^DD(2100,5008,21,2,0)="patient has been assigned at your station."
^DD(2100,5008,"DT")="2910403"
^DD(2100,5009,0)="ACTION CODE^RS^A:admission;C:change patient information;D:discharge;^YSDDC5;10^Q"
^DD(2100,5009,3)=""
^DD(2100,5009,21,0)="^^1^1^2910528^"
^DD(2100,5009,21,1,0)="This is the alphabetic code for the action which this transaction describes."
^DD(2100,5009,"DT")="2910329"
^DD(2100,5010,0)="TYPE CODE^RS^0:Admission - drug abuse Tx;1:Completed Tx or Type 1 change;2:Transfer or Type 2 change;3:Irregular or Type 3 change;4:Non-compliance;5:Jail (incarceration);6:Death;9:Admission - other;^YSDDC5;11^Q"
^DD(2100,5010,3)=""
^DD(2100,5010,21,0)="^^15^15^2910604^^^^"
^DD(2100,5010,21,1,0)="This is the one-digit numeric code which describes the action as follows:"
^DD(2100,5010,21,2,0)="   If the ACTION is ""A"" for Admission the TYPE can be:"
^DD(2100,5010,21,3,0)="                 ""0"" = drug abuse treatment"
^DD(2100,5010,21,4,0)="                 ""9"" = for any other purpose"
^DD(2100,5010,21,5,0)="   If the ACTION is ""C"" for Change Patient Information the TYPE can be:"
^DD(2100,5010,21,6,0)="                 ""1"" = type 1 change (Pt. Name, EBC, Sex, DOB or Counselor)"
^DD(2100,5010,21,7,0)="                 ""2"" = type 2 change (change of Modality Admitted to code)"
^DD(2100,5010,21,8,0)="                 ""3"" = type 3 change (modify error in previous transmission)"
^DD(2100,5010,21,9,0)="   If the ACTION is ""D"" for Discharge the TYPE can be: "
^DD(2100,5010,21,10,0)="                 ""1"" = treatment complete"
^DD(2100,5010,21,11,0)="                 ""2"" = transfer"
^DD(2100,5010,21,12,0)="                 ""3"" = irregular"
^DD(2100,5010,21,13,0)="                 ""4"" = non-compliance"
^DD(2100,5010,21,14,0)="                 ""5"" = incarceration"
^DD(2100,5010,21,15,0)="                 ""6"" = death"
^DD(2100,5010,"DT")="2910604"
^DD(2100,5011,0)="ACTION EFFECTIVE DATE^RDO^^YSDDC5;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,5011,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5011,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5011,3)="Enter the date on which patient was accepted for treatment."
^DD(2100,5011,21,0)="^^2^2^2910529^"
^DD(2100,5011,21,1,0)="This is the date on which the action described by this transaction will be"
^DD(2100,5011,21,2,0)="effective (usually TODAY)."
^DD(2100,5011,"DT")="2980706"
^DD(2100,5012,0)="TREATMENT MODALITY^SO^A:detoxification treatment - methadone;B:maintenance treatment - methadone;C:Drug free treatment;Z:None of the above;^YSDDC5;13^Q"
^DD(2100,5012,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y="""":"" "",1:Y)"
^DD(2100,5012,2.1)="I $D(GECSOT) S Y=$S(Y="""":"" "",1:Y)"
^DD(2100,5012,3)=""
^DD(2100,5012,21,0)="^^3^3^2910529^"
^DD(2100,5012,21,1,0)="This is the treatment modality to which the patient is admitted.  It is"
^DD(2100,5012,21,2,0)="MANDATORY for all ADMISSION type transactions, and can only be modified"
^DD(2100,5012,21,3,0)="by a change type 2 transaction."
^DD(2100,5012,"DT")="2910328"
^DD(2100,5013,0)="TRANSACTION CODE^F^^YSDDC5;14^K:$L(X)>2!($L(X)<2)!'(X?1.2N) X"
^DD(2100,5013,3)="Answer must be 2 characters in length."
^DD(2100,5013,21,0)="^^4^4^2940124^^^"
^DD(2100,5013,21,1,0)="This is the code for the transaction being made (e.g., 01 for Patient"
^DD(2100,5013,21,2,0)="Information Sheet - form 5356, 02 for Patient Dosage Schedule - form"
^DD(2100,5013,21,3,0)="5357, etc.).  It is always appended to the end of the record"
^DD(2100,5013,21,4,0)="automatically, and is transparent to the user."
^DD(2100,5013,"DT")="2910328"
^DD(2100,5014,0)="DDCSS DATA CODE^FO^^YSDDC5;15^K:$L(X)>1!($L(X)<1) X"
^DD(2100,5014,2)="S Y(0)=Y I $D(GECSOT) S:Y'=""@"" Y=""@"""
^DD(2100,5014,2.1)="I $D(GECSOT) S:Y'=""@"" Y=""@"""
^DD(2100,5014,3)="Answer must be 1 character in length."
^DD(2100,5014,21,0)="^^2^2^2910529^^"
^DD(2100,5014,21,1,0)="This is the end of record indicator ""@"".  It is always appended to the"
^DD(2100,5014,21,2,0)="record automatically, and is transparent to the user."
^DD(2100,5014,"DT")="2910328"
^DD(2100,5015,0)="END OF DATA INDICATOR^FO^^YSDDC5;16^K:$L(X)>1!($L(X)<1) X"
^DD(2100,5015,2)="S Y(0)=Y I $D(GECSOT) S:Y'=""$"" Y=""$"""
^DD(2100,5015,2.1)="I $D(GECSOT) S:Y'=""$"" Y=""$"""
^DD(2100,5015,3)="Answer must be 1 character in length."
^DD(2100,5015,21,0)="^^2^2^2910529^"
^DD(2100,5015,21,1,0)="This is the end of data indicator ""$"".  It is always appended to the"
^DD(2100,5015,21,2,0)="end of a given transaction automatically, and is transparent to the user."
^DD(2100,5015,"DT")="2910328"
^DD(2100,5017,0)="EFFECTIVE DATE '01' SEQUENCE^RDO^^YSDDC5;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,5017,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5017,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5017,3)="Enter the effective date of the first sequence of this series of medications."
^DD(2100,5017,21,0)="^^1^1^2910529^"
^DD(2100,5017,21,1,0)="This is the effective date of the first dosing sequence for the patient."
^DD(2100,5017,"DT")="2980706"
^DD(2100,5018,0)="PICKUP CODE^RF^^YSDDC5;19^K:$L(X)>2!($L(X)<2)!'(X?1N1U!(X?1N1P)) X"
^DD(2100,5018,3)="Enter pickup code, ""??"" for brief description or ""???"" for detailed help."
^DD(2100,5018,4)="I X=""???"" S XQH=""GECQ PICKUP CODES"" D EN^XQH K XQH"
^DD(2100,5018,21,0)="^^2^2^2910604^^^^"
^DD(2100,5018,21,1,0)="This is the two character code for the patient's medication pickup"
^DD(2100,5018,21,2,0)="schedule."
^DD(2100,5018,22)=""
^DD(2100,5018,"DT")="2910529"
^DD(2100,5019,0)="MEDICATION SEQUENCE^FO^^YSDDC5;20^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,5019,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5019,2.1)="I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5019,3)="Enter as coded. (e.g., 1 or 01 for first dosing sequence, etc.)."
^DD(2100,5019,21,0)="^^2^2^2910604^"
^DD(2100,5019,21,1,0)="This is the number of the dosing sequence for the patient (e.g., enter"
^DD(2100,5019,21,2,0)="""1"" or ""01"" to indicate first dosing, etc.)."
^DD(2100,5019,"DT")="2910403"
^DD(2100,5020,0)="DOSAGE^FOX^^YSDDC5;21^K:$L(X)>3!($L(X)<1)!'(X?1.3N)!(X<0)!((X>150)&(X'=888)) X"
^DD(2100,5020,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5020,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5020,3)="Enter dosage strength in milligrams from 1 to 150. Enter 0 if no medication today. Enter ""888"" for placebos."
^DD(2100,5020,21,0)="^^3^3^2910604^"
^DD(2100,5020,21,1,0)="This is the dosage strength in milligrams (from 1 to 150) of the medication"
^DD(2100,5020,21,2,0)="which the patient is to recieve.  If no medication is to be given today,"
^DD(2100,5020,21,3,0)="then enter ""0"" or ""000"".  Placebo dosings are entered as ""888""."
^DD(2100,5020,"DT")="2910403"
^DD(2100,5021,0)="DOSAGE DURATION^FO^^YSDDC5;22^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,5021,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5021,2.1)="I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5021,3)="Enter number of days patient will recieve this dosage level: count today as day 1. Enter ""99"" if patient is to maintained indefinitely at this level."
^DD(2100,5021,21,0)="^^4^4^2910604^"
^DD(2100,5021,21,1,0)="This is the number of days the patient will be recieving the indicated"
^DD(2100,5021,21,2,0)="dosage level.  Count today as day 1.  If the patient is to be maintained"
^DD(2100,5021,21,3,0)="indefinitely at this dosage, enter ""99"".  IF THE DURATION IS ENTERED AS"
^DD(2100,5021,21,4,0)="""99"" FOR THE FIRST DOSAGE SEQUENCE, THEN DO NOT MAKE ANY FURTHER CHANGES."
^DD(2100,5021,"DT")="2910403"
^DD(2100,5022,0)="HCF TEXT CODE^RS^1:CLINIC NAME;2:STREET ADDRESS;3:CITY;4:STATE;5:ZIP CODE;6:CLINIC TELEPHONE NUMBER;7:PRESCRIBING PHYSICIAN NAMES;8:HCF NAME;^YSDDC5;23^Q"
^DD(2100,5022,3)=""
^DD(2100,5022,21,0)="^^2^2^2910604^^"
^DD(2100,5022,21,1,0)="Enter the code for the data element which you wish to change with this"
^DD(2100,5022,21,2,0)="transaction."
^DD(2100,5022,"DT")="2910405"
^DD(2100,5023,0)="HCF SPACE^F^^YSDDC5;24^K:$L(X)>1!($L(X)<1)!'(X?1"" "") X"
^DD(2100,5023,3)="Answer must be 1 character in length."
^DD(2100,5023,21,0)="^^2^2^2910604^"
^DD(2100,5023,21,1,0)="This is simply a blank space which transparently pads each transaction"
^DD(2100,5023,21,2,0)="for the HCF Information Form (5333)."
^DD(2100,5023,"DT")="2910327"
^DD(2100,5024,0)="HCF TEXT^RFO^^YSDDC5;25^K:$L(X)>25!($L(X)<1) X"
^DD(2100,5024,2)="S Y(0)=Y I $D(GECSOT) S Y=Y_$E(""                         "",$L(Y)+1,25)"
^DD(2100,5024,2.1)="I $D(GECSOT) S Y=Y_$E(""                         "",$L(Y)+1,25)"
^DD(2100,5024,3)="Answer must be 1-25 characters in length."
^DD(2100,5024,21,0)="^^2^2^2910604^"
^DD(2100,5024,21,1,0)="Enter the appropriate textual changes for the data element indicated"
^DD(2100,5024,21,2,0)="by the TEXT CODE entered above."
^DD(2100,5024,"DT")="2910328"
^DD(2100,5025,0)="MEDICATION FOR WEEK OF^RDO^^YSDDC5;26^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,5025,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5025,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5025,3)="Upper left of form. Date of first day of week."
^DD(2100,5025,21,0)="^^2^2^2910604^"
^DD(2100,5025,21,1,0)="This is the date of the first day of the week described by the"
^DD(2100,5025,21,2,0)="present transaction."
^DD(2100,5025,"DT")="2980706"
^DD(2100,5026,0)="DOSAGE CODE-MONDAY^SO^P:picked up & ingested;T:taken home;A:authorized absence;D:death;H:hospitalized;J:jail;U:unauthorized absence;W:withheld;X:discharged;^YSDDC5;27^Q"
^DD(2100,5026,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5026,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5026,3)=""
^DD(2100,5026,21,0)="^^3^3^2910604^^^"
^DD(2100,5026,21,1,0)="This is the code describing the circumstances under which the medication"
^DD(2100,5026,21,2,0)="was dispensed or not.  <RETURN> if the patient wasn't scheduled for"
^DD(2100,5026,21,3,0)="medication on Monday."
^DD(2100,5026,"DT")="2910604"
^DD(2100,5027,0)="DOSAGE-MONDAY^FO^^YSDDC5;28^K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1"" "")) X"
^DD(2100,5027,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5027,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5027,3)="Enter the dosage dispensed, in milligrams. Otherwise enter blank."
^DD(2100,5027,21,0)="^^1^1^2910604^^"
^DD(2100,5027,21,1,0)="This is the dosage dispensed to the patient in milligrams."
^DD(2100,5027,"DT")="2910403"
^DD(2100,5028,0)="DOSAGE CODE-TUESDAY^SO^P:picked up & ingested;T:taken home;A:authorized absence;D:death;H:hospitalized;J:jail;U:unauthorized absence;W:withheld;X:discharged;^YSDDC5;29^Q"
^DD(2100,5028,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5028,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5028,3)=""
^DD(2100,5028,21,0)="^^3^3^2910604^^"
^DD(2100,5028,21,1,0)="This is the code describing the circumstances under which the medication"
^DD(2100,5028,21,2,0)="was dispensed or not.  <RETURN> if the patient wasn't scheduled for"
^DD(2100,5028,21,3,0)="medication on Tuesday."
^DD(2100,5028,"DT")="2910604"
^DD(2100,5029,0)="DOSAGE-TUESDAY^FO^^YSDDC5;30^K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1"" "")) X"
^DD(2100,5029,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5029,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5029,3)="Enter the dosage dispensed, in milligrams. Otherwise enter blank."
^DD(2100,5029,21,0)="^^1^1^2910604^"
^DD(2100,5029,21,1,0)="This is the dosage dispensed to the patient in milligrams."
^DD(2100,5029,"DT")="2910403"
^DD(2100,5030,0)="DOSAGE CODE-WEDNESDAY^SO^P:picked up & ingested;T:taken home;A:authorized absence;D:death;H:hospitalized;J:jail;U:unauthorized absence;W:withheld;X:discharged;^YSDDC5;31^Q"
^DD(2100,5030,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5030,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5030,3)=""
^DD(2100,5030,21,0)="^^3^3^2910604^"
^DD(2100,5030,21,1,0)="This is the code describing the circumstances under which the medication"
^DD(2100,5030,21,2,0)="was dispensed or not.  <RETURN> if the patient wasn't scheduled for"
^DD(2100,5030,21,3,0)="medication on Wednesday."
^DD(2100,5030,"DT")="2910604"
^DD(2100,5031,0)="DOSAGE-WEDNESDAY^FO^^YSDDC5;32^K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1"" "")) X"
^DD(2100,5031,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5031,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5031,3)="Enter the dosage dispensed, in milligrams. Otherwise enter blank."
^DD(2100,5031,21,0)="^^1^1^2910604^"
^DD(2100,5031,21,1,0)="This is the dosage dispensed to the patient in milligrams."
^DD(2100,5031,"DT")="2910403"
^DD(2100,5032,0)="DOSAGE CODE-THURSDAY^SO^P:picked up & ingested;T:taken home;A:authorized absence;D:death;H:hospitalized;J:jail;U:unauthorized absence;W:withheld;X:discharged;^YSDDC5;33^Q"
^DD(2100,5032,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5032,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5032,3)=""
^DD(2100,5032,21,0)="^^3^3^2910604^"
^DD(2100,5032,21,1,0)="This is the code describing the circumstances under which the medication"
^DD(2100,5032,21,2,0)="was dispensed or not.  <RETURN> if the patient wasn't scheduled for"
^DD(2100,5032,21,3,0)="medication on Thursday."
^DD(2100,5032,"DT")="2910604"
^DD(2100,5033,0)="DOSAGE-THURSDAY^FO^^YSDDC5;34^K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1"" "")) X"
^DD(2100,5033,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5033,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5033,3)="Enter the dosage dispensed, in milligrams. Otherwise enter blank."
^DD(2100,5033,21,0)="^^1^1^2910604^"
^DD(2100,5033,21,1,0)="This is the dosage dispensed to the patient in milligrams."
^DD(2100,5033,"DT")="2910403"
^DD(2100,5034,0)="DOSAGE CODE-FRIDAY^SO^P:picked up & ingested;T:taken home;A:authorized absence;D:death;H:hospital;J:jail;U:unauthorized absence;W:withheld;X:discharged;^YSDDC5;35^Q"
^DD(2100,5034,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5034,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5034,3)=""
^DD(2100,5034,21,0)="^^3^3^2910604^^"
^DD(2100,5034,21,1,0)="This is the code describing the circumstances under which the medication"
^DD(2100,5034,21,2,0)="was dispensed or not.  <RETURN> if the patient wasn't scheduled for"
^DD(2100,5034,21,3,0)="medication on Friday."
^DD(2100,5034,"DT")="2910604"
^DD(2100,5035,0)="DOSAGE-FRIDAY^FO^^YSDDC5;36^K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1"" "")) X"
^DD(2100,5035,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5035,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5035,3)="Enter the dosage dispensed, in milligrams. Otherwise enter blank."
^DD(2100,5035,21,0)="^^1^1^2910604^"
^DD(2100,5035,21,1,0)="This is the dosage dispensed to the patient in milligrams."
^DD(2100,5035,"DT")="2910403"
^DD(2100,5036,0)="DOSAGE CODE-SATURDAY^SO^P:picked up & ingested;T:taken home;A:authorized absence;D:death;H:hospitalized;J:jail;U:unauthorized absence;W:withheld;X:discharged;^YSDDC5;37^Q"
^DD(2100,5036,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5036,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5036,3)=""
^DD(2100,5036,21,0)="^^3^3^2910604^"
^DD(2100,5036,21,1,0)="This is the code describing the circumstances under which the medication"
^DD(2100,5036,21,2,0)="was dispensed or not.  <RETURN> if the patient wasn't scheduled for"
^DD(2100,5036,21,3,0)="medication on Saturday."
^DD(2100,5036,"DT")="2910604"
^DD(2100,5037,0)="DOSAGE-SATURDAY^FO^^YSDDC5;38^K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1"" "")) X"
^DD(2100,5037,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5037,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5037,3)="Enter the dosage dispensed, in milligrams. Otherwise enter blank."
^DD(2100,5037,21,0)="^^1^1^2910604^"
^DD(2100,5037,21,1,0)="This is the dosage dispensed to the patient in milligrams."
^DD(2100,5037,"DT")="2910403"
^DD(2100,5038,0)="DOSAGE CODE-SUNDAY^SO^P:picked up & ingested;T:taken home;A:authorized absence;D:death;H:hospitalized;J:jail;U:unauthorized absence;W:withheld;X:discharged;^YSDDC5;39^Q"
^DD(2100,5038,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5038,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5038,3)=""
^DD(2100,5038,21,0)="^^3^3^2910604^"
^DD(2100,5038,21,1,0)="This is the code describing the circumstances under which the medication"
^DD(2100,5038,21,2,0)="was dispensed or not.  <RETURN> if the patient wasn't scheduled for"
^DD(2100,5038,21,3,0)="medication on Sunday."
^DD(2100,5038,"DT")="2910604"
^DD(2100,5039,0)="DOSAGE-SUNDAY^FO^^YSDDC5;40^K:$L(X)>3!($L(X)<1)!'(X?1.3N!(X?1"" "")) X"
^DD(2100,5039,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5039,2.1)="I $D(GECSOT) S Y=$S(Y'?1.3N:""   "",$L(Y)=1:""00""_Y,$L(Y)=2:""0""_Y,1:Y)"
^DD(2100,5039,3)="Enter the dosage dispensed, in milligrams. Otherwise enter blank."
^DD(2100,5039,21,0)="^^1^1^2910604^"
^DD(2100,5039,21,1,0)="This is the dosage dispensed to the patient in milligrams."
^DD(2100,5039,"DT")="2910403"
^DD(2100,5040,0)="SPECIMEN COLLECTION DATE^RDO^^YSDDC5;41^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,5040,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5040,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5040,3)="Upper right of form. Enter date specimen collected."
^DD(2100,5040,21,0)="^^1^1^2910604^"
^DD(2100,5040,21,1,0)="This is the date on which the specimen for urinalysis was collected."
^DD(2100,5040,"DT")="2980706"
^DD(2100,5041,0)="MORPHINE PRESCRIBED^SO^X:YES;^YSDDC5;42^Q"
^DD(2100,5041,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5041,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5041,3)="Enter ""X"" or <RETURN>"
^DD(2100,5041,21,0)="^^1^1^2910604^^^"
^DD(2100,5041,21,1,0)="This is a flag to indicate that morphine is prescribed for this patient."
^DD(2100,5041,"DT")="2910328"
^DD(2100,5042,0)="DRUG NAME/CODE MORPHINE^SO^01:MORPHINE RESULT AVAILABLE;^YSDDC5;43^Q"
^DD(2100,5042,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5042,2.1)="I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5042,3)="Enter only if entry is made for result in card column 43."
^DD(2100,5042,21,0)="^^2^2^2910604^^^^"
^DD(2100,5042,21,1,0)="This is a code indicating that a result is available for morphine level"
^DD(2100,5042,21,2,0)="in the urinalysis."
^DD(2100,5042,"DT")="2910328"
^DD(2100,5043,0)="MORPHINE RESULT^SO^P:positive;N:negative;Q:questionable;^YSDDC5;44^Q"
^DD(2100,5043,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5043,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5043,21,0)="^^2^2^2910604^^^^"
^DD(2100,5043,21,1,0)="This is a code indicating whether the result of the urine morphine assay"
^DD(2100,5043,21,2,0)="was positive, negative or questionable."
^DD(2100,5043,"DT")="2910328"
^DD(2100,5044,0)="BARBITURATE PRESCRIBED^SO^X:YES;^YSDDC5;45^Q"
^DD(2100,5044,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5044,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5044,3)="Enter ""X"" or <RETURN>"
^DD(2100,5044,21,0)="^^1^1^2910604^^^^"
^DD(2100,5044,21,1,0)="This is a flag indicating that barbiturate is prescribed for this patient."
^DD(2100,5044,"DT")="2910328"
^DD(2100,5045,0)="DRUG NAME/CODE BARBITURATE^SO^02:BARBITURATE RESULT AVAILABLE;^YSDDC5;46^Q"
^DD(2100,5045,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5045,2.1)="I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5045,3)="Enter only if entry is made for result in card column 47."
^DD(2100,5045,21,0)="^^2^2^2910604^^^"
^DD(2100,5045,21,1,0)="This is a code indicating that a result is available for barbiturate level"
^DD(2100,5045,21,2,0)="in the urinalysis."
^DD(2100,5045,"DT")="2910328"
^DD(2100,5046,0)="BARBITURATE RESULT^SO^P:positive;N:negative;Q:questionable;^YSDDC5;47^Q"
^DD(2100,5046,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5046,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5046,21,0)="^^2^2^2910604^^^"
^DD(2100,5046,21,1,0)="This is a code indicating whether the result of the urine barbiturate assay"
^DD(2100,5046,21,2,0)="was positive, negative or questionable."
^DD(2100,5046,"DT")="2910328"
^DD(2100,5047,0)="AMPHETAMINE PRESCRIBED^SO^X:YES;^YSDDC5;48^Q"
^DD(2100,5047,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5047,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5047,3)="Enter ""X"" or <RETURN>"
^DD(2100,5047,21,0)="^^1^1^2910604^^"
^DD(2100,5047,21,1,0)="This is a flag to indicate that amphetamine is prescribed for this patient."
^DD(2100,5047,"DT")="2910328"
^DD(2100,5048,0)="DRUG NAME/CODE AMPHETAMINE^SO^03:AMPHETAMINE RESULT AVAILABLE;^YSDDC5;49^Q"
^DD(2100,5048,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5048,2.1)="I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5048,3)="Enter only if entry is made for result in card column 51."
^DD(2100,5048,20,0)="^.3LA^^0"
^DD(2100,5048,21,0)="^^2^2^2910604^^"
^DD(2100,5048,21,1,0)="This is a code indicating that a result is available for amphetamine level"
^DD(2100,5048,21,2,0)="in the urinalysis."
^DD(2100,5048,"DT")="2910328"
^DD(2100,5049,0)="AMPHETAMINE RESULT^SO^P:positive;N:negative;Q:questionable;^YSDDC5;50^Q"
^DD(2100,5049,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5049,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5049,21,0)="^^2^2^2910604^"
^DD(2100,5049,21,1,0)="This is a code indicating whether the result of the urine amphetamine assay"
^DD(2100,5049,21,2,0)="was positive, negative or questionable."
^DD(2100,5049,"DT")="2910328"
^DD(2100,5050,0)="METHADONE PRESCRIBED^SO^X:YES;^YSDDC5;51^Q"
^DD(2100,5050,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5050,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5050,3)="Enter ""X"" or <RETURN>"
^DD(2100,5050,21,0)="^^1^1^2910604^"
^DD(2100,5050,21,1,0)="This is a flag to indicate that methadone is prescribed for this patient."
^DD(2100,5050,"DT")="2910328"
^DD(2100,5051,0)="DRUG NAME/CODE METHADONE^SO^04:METHADONE RESULT AVAILABLE;^YSDDC5;52^Q"
^DD(2100,5051,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5051,2.1)="I $D(GECSOT),(Y']"""") S Y=""  """
^DD(2100,5051,3)="Enter only if entry is made for result in card column 55."
^DD(2100,5051,21,0)="^^2^2^2910604^"
^DD(2100,5051,21,1,0)="This is a code indicating that a result is available for methadone level"
^DD(2100,5051,21,2,0)="in the urinalysis."
^DD(2100,5051,"DT")="2910328"
^DD(2100,5052,0)="METHADONE RESULT^SO^P:positive;N:negative;Q:questionable;^YSDDC5;53^Q"
^DD(2100,5052,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5052,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5052,21,0)="^^2^2^2910604^"
^DD(2100,5052,21,1,0)="This is a code indicating whether the result of the urine methadone assay"
^DD(2100,5052,21,2,0)="was positive, negative or questionable."
^DD(2100,5052,"DT")="2910328"
^DD(2100,5053,0)="OTHER DRUG 1 PRESCRIBED^SO^X:YES;^YSDDC5;54^Q"
^DD(2100,5053,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5053,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5053,3)="Enter ""X"" or <RETURN>"
^DD(2100,5053,21,0)="^^1^1^2910604^"
^DD(2100,5053,21,1,0)="This is a flag to indicate that another drug is prescribed for this patient."
^DD(2100,5053,"DT")="2910328"
^DD(2100,5054,0)="DRUG NAME/CODE OTHER 1^FO^^YSDDC5;55^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,5054,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5054,2.1)="I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5054,3)="Enter Drug/Name Code only if entry is made for result in column 59."
^DD(2100,5054,21,0)="^^2^2^2910604^^"
^DD(2100,5054,21,1,0)="This is a code indicating that a result is available for another drug level"
^DD(2100,5054,21,2,0)="in the urinalysis."
^DD(2100,5054,"DT")="2910404"
^DD(2100,5055,0)="OTHER DRUG 1 RESULT^SO^P:positive;N:negative;Q:questionable;^YSDDC5;56^Q"
^DD(2100,5055,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5055,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5055,21,0)="^^2^2^2910604^"
^DD(2100,5055,21,1,0)="This is a code indicating whether the result of the urine assay"
^DD(2100,5055,21,2,0)="was positive, negative or questionable."
^DD(2100,5055,"DT")="2910328"
^DD(2100,5056,0)="OTHER DRUG 2 PRESCRIBED^SO^X:YES;^YSDDC5;57^Q"
^DD(2100,5056,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5056,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5056,3)="Enter ""X"" or <RETURN>"
^DD(2100,5056,21,0)="^^1^1^2910604^^"
^DD(2100,5056,21,1,0)="This is a flag to indicate that another drug is prescribed for this patient."
^DD(2100,5056,"DT")="2910328"
^DD(2100,5057,0)="DRUG NAME/CODE OTHER 2^FO^^YSDDC5;58^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,5057,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5057,2.1)="I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5057,3)="Enter only if entry is made for result in card column 63."
^DD(2100,5057,21,0)="^^2^2^2910604^^"
^DD(2100,5057,21,1,0)="This is a code indicating that a result is available for another drug level"
^DD(2100,5057,21,2,0)="in the urinalysis."
^DD(2100,5057,"DT")="2910404"
^DD(2100,5058,0)="OTHER DRUG 2 RESULT^SO^P:positive;N:negative;Q:questionable;^YSDDC5;59^Q"
^DD(2100,5058,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5058,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5058,21,0)="^^2^2^2910604^^"
^DD(2100,5058,21,1,0)="This is a code indicating whether the result of the urine assay"
^DD(2100,5058,21,2,0)="was positive, negative or questionable."
^DD(2100,5058,"DT")="2910328"
^DD(2100,5059,0)="OTHER DRUG 3 PRESCRIBED^SO^X:YES;^YSDDC5;60^Q"
^DD(2100,5059,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5059,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5059,3)="Enter ""X"" or <RETURN>"
^DD(2100,5059,21,0)="^^1^1^2910604^"
^DD(2100,5059,21,1,0)="This is a flag to indicate that another drug is prescribed for this patient."
^DD(2100,5059,"DT")="2910328"
^DD(2100,5060,0)="DRUG NAME/CODE OTHER 3^FO^^YSDDC5;61^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100,5060,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5060,2.1)="I $D(GECSOT) S Y=$S(Y'?1.2N:""  "",$L(Y)=1:""0""_Y,1:Y)"
^DD(2100,5060,3)="Enter only if entry is made for result in card column 67."
^DD(2100,5060,21,0)="^^2^2^2910604^"
^DD(2100,5060,21,1,0)="This is a code indicating that a result is available for another drug level"
^DD(2100,5060,21,2,0)="in the urinalysis."
^DD(2100,5060,"DT")="2910404"
^DD(2100,5061,0)="OTHER DRUG 3 RESULT^SO^P:positive;N:negative;Q:questionable;^YSDDC5;62^Q"
^DD(2100,5061,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5061,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5061,21,0)="^^2^2^2910604^^"
^DD(2100,5061,21,1,0)="This is a code indicating whether the result of the urine assay"
^DD(2100,5061,21,2,0)="was positive, negative or questionable."
^DD(2100,5061,"DT")="2910328"
^DD(2100,5062,0)="NOT TESTED-QTY NOT SUFFICIENT^SO^X:YES;^YSDDC5;63^Q"
^DD(2100,5062,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5062,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5062,3)="Enter ""X"" if specimen was too small to test"
^DD(2100,5062,21,0)="^^2^2^2910604^"
^DD(2100,5062,21,1,0)="This is a flag it indicate the specimen collected for urinalysis was"
^DD(2100,5062,21,2,0)="NOT tested, due to insufficient quantity."
^DD(2100,5062,"DT")="2910328"
^DD(2100,5063,0)="COUNSELING SESSION DATE^RDO^^YSDDC5A;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100,5063,2)="S Y(0)=Y S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5063,2.1)="S %=Y D DD^%DT I $D(GECSOT) S Y=%,Y=$E(Y,4,5)_$E(Y,6,7)_$E(Y,2,3)"
^DD(2100,5063,3)="Enter the date of the counseling session."
^DD(2100,5063,21,0)="^^2^2^2910604^"
^DD(2100,5063,21,1,0)="This is the date on which the counseling session being reported by this"
^DD(2100,5063,21,2,0)="transaction occurred."
^DD(2100,5063,"DT")="2980706"
^DD(2100,5064,0)="SUBJ DISC/REASON FOR ABS 1^RS^B:subst abuse;E:economics;M:medical;P:psychological;S:social;C:couns unavailable;H:hospital;J:jail;U:unauthorized absence;V:avoidance of couns;A:authorized absence;^YSDDC5A;2^Q"
^DD(2100,5064,21,0)="^^2^2^2910604^"
^DD(2100,5064,21,1,0)="This is a code describing the subjects discussed, or the reason for"
^DD(2100,5064,21,2,0)="absence from the counseling session being reported by this transaction."
^DD(2100,5064,"DT")="2910327"
^DD(2100,5065,0)="SUBJ DISC/REASON FOR ABS 2^SO^B:subst abuse;E:economics;M:medical;P:psychological;S:social;C:couns unavailable;H:hospital;J:jail;U:unauthorized absence;V:avoidance of couns;^YSDDC5A;3^Q"
^DD(2100,5065,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5065,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5065,21,0)="^^2^2^2910604^"
^DD(2100,5065,21,1,0)="This is a code describing the subjects discussed, or the reason for"
^DD(2100,5065,21,2,0)="absence from the counseling session being reported by this transaction."
^DD(2100,5065,"DT")="2910328"
^DD(2100,5066,0)="SUBJ DISC/REASON FOR ABS 3^SO^B:subst abuse;E:economics;M:medical;P:psychological;S:social;C:couns unavailable;H:hospital;J:jail;U:unauthorized absence;V:avoidance of couns;^YSDDC5A;4^Q"
^DD(2100,5066,2)="S Y(0)=Y I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5066,2.1)="I $D(GECSOT),(Y']"""") S Y="" """
^DD(2100,5066,21,0)="^^2^2^2910604^"
^DD(2100,5066,21,1,0)="This is a code describing the subjects discussed, or the reason for"
^DD(2100,5066,21,2,0)="absence from the counseling session being reported by this transaction."
^DD(2100,5066,"DT")="2910328"
^DD(2100,5067,0)="HCF CENTRAL OFFICE USE ONLY^FO^^YSDDC5A;5^K:$L(X)>4!($L(X)<4) X"
^DD(2100,5067,2)="S Y(0)=Y I $D(GECSOT) S Y=$S($L(Y)<4:""    "",1:Y)"
^DD(2100,5067,2.1)="I $D(GECSOT) S Y=$S($L(Y)<4:""    "",1:Y)"
^DD(2100,5067,3)="Answer must be 4 characters in length."
^DD(2100,5067,21,0)="^^2^2^2910604^"
^DD(2100,5067,21,1,0)="This is a four character pad reserved in the record for central office"
^DD(2100,5067,21,2,0)="use.  Its existence is transparent to the user."
^DD(2100,5067,"DT")="2910405"
^DD(2100,"B","# OF FEET OF CINE ROLLS USED",1494)=""
^DD(2100,"B","# OF PTS SEEN BY NURSE",1444)=""
^DD(2100,"B","# OF PTS SEEN BY OTHER",1445)=""
^DD(2100,"B","# OF PTS SEEN BY PSYCHIATRIST",1441)=""
^DD(2100,"B","# OF PTS SEEN BY PSYCHOLOGIST",1442)=""
^DD(2100,"B","# OF PTS SEEN BY SOCIAL WORKER",1443)=""
^DD(2100,"B","# REC. OF A&A BENEFITS (010)",3610)=""
^DD(2100,"B","% PERS COST (A/V)",4165.29)=""
^DD(2100,"B","% PERS COST (CAG)",4165.21)=""
^DD(2100,"B","% PERS COST (ILL/GRA)",4165.13)=""
^DD(2100,"B","% PERS COST (MO/A)",4165.34)=""
^DD(2100,"B","% PERS COST (PHOTO)",4165.05)=""
^DD(2100,"B","% SPACE COST (A/V)",4165.31)=""
^DD(2100,"B","% SPACE COST (CAG)",4165.23)=""
^DD(2100,"B","% SPACE COST (ILL/GRA)",4165.15)=""
^DD(2100,"B","% SPACE COST (MO/A)",4165.36)=""
^DD(2100,"B","% SPACE COST (PHOTO)",4165.07)=""
^DD(2100,"B","% SUPPLY COST (A/V)",4165.3)=""
^DD(2100,"B","% SUPPLY COST (CAG)",4165.22)=""
^DD(2100,"B","% SUPPLY COST (ILL/GRA)",4165.14)=""
^DD(2100,"B","% SUPPLY COST (MO/A)",4165.35)=""
^DD(2100,"B","% SUPPLY COST (PHOTO)",4165.06)=""
^DD(2100,"B","(10) LEVEL OF CARE",1538)=""
^DD(2100,"B","(11A) NO. OF INTERMEDIATE BEDS",1540)=""
^DD(2100,"B","(16) REPEAT COLUMNS 1-5",1548)=""
^DD(2100,"B","(17) CARD NUMBER",1549)=""
^DD(2100,"B","(18) STREET ADDRESS OF NH",1550)=""
^DD(2100,"B","(19) ZIP CODE OF NH",1551)=""
^DD(2100,"B","(2) ADDITION/REESTABLISHMENT",1530)=""
^DD(2100,"B","(3) ALPHA CODE FOR ITEM 2",1531)=""
^DD(2100,"B","(4) CARD NUMBER",1532)=""
^DD(2100,"B","(5) MEDICAL DISTRICT NUMBER",1533)=""
^DD(2100,"B","001-2 CHAR",57.001)=""
^DD(2100,"B","001-3 CHAR",53.001)=""
^DD(2100,"B","001-4 CHAR",54.001)=""
^DD(2100,"B","001-5 CHAR",55.001)=""
^DD(2100,"B","001-6 CHAR",56.001)=""
^DD(2100,"B","002-2 CHAR",57.002)=""
^DD(2100,"B","002-3 CHAR",53.002)=""
^DD(2100,"B","002-4 CHAR",54.002)=""
^DD(2100,"B","002-5 CHAR",55.002)=""
^DD(2100,"B","002-6 CHAR",56.002)=""
^DD(2100,"B","003-2 CHAR",57.003)=""
^DD(2100,"B","003-3 CHAR",53.003)=""
^DD(2100,"B","003-4 CHAR",54.003)=""
^DD(2100,"B","003-5 CHAR",55.003)=""
^DD(2100,"B","003-6 CHAR",56.003)=""
^DD(2100,"B","004-2 CHAR",57.004)=""
^DD(2100,"B","004-3 CHAR",53.004)=""
^DD(2100,"B","004-4 CHAR",54.004)=""
^DD(2100,"B","004-5 CHAR",55.004)=""
^DD(2100,"B","004-6 CHAR",56.004)=""
^DD(2100,"B","005-2 CHAR",57.005)=""
^DD(2100,"B","005-3 CHAR",53.005)=""
^DD(2100,"B","005-4 CHAR",54.005)=""
^DD(2100,"B","005-5 CHAR",55.005)=""
^DD(2100,"B","005-6 CHAR",56.005)=""
^DD(2100,"B","006-2 CHAR",57.006)=""
^DD(2100,"B","006-3 CHAR",53.006)=""
^DD(2100,"B","006-4 CHAR",54.006)=""
^DD(2100,"B","006-5 CHAR",55.006)=""
^DD(2100,"B","006-6 CHAR",56.006)=""
^DD(2100,"B","007-2 CHAR",57.007)=""
^DD(2100,"B","007-3 CHAR",53.007)=""
^DD(2100,"B","007-4 CHAR",54.007)=""
^DD(2100,"B","007-5 CHAR",55.007)=""
^DD(2100,"B","007-6 CHAR",56.007)=""
^DD(2100,"B","008-2 CHAR",57.008)=""
^DD(2100,"B","008-3 CHAR",53.008)=""
^DD(2100,"B","008-4 CHAR",54.008)=""
^DD(2100,"B","008-5 CHAR",55.008)=""
^DD(2100,"B","008-6 CHAR",56.008)=""
^DD(2100,"B","009-2 CHAR",57.009)=""
^DD(2100,"B","009-3 CHAR",53.009)=""
^DD(2100,"B","009-4 CHAR",54.009)=""
^DD(2100,"B","009-5 CHAR",55.009)=""
^DD(2100,"B","009-6 CHAR",56.009)=""
^DD(2100,"B","010-2 CHAR",57.01)=""
^DD(2100,"B","010-3 CHAR",53.01)=""
^DD(2100,"B","010-4 CHAR",54.01)=""
^DD(2100,"B","010-5 CHAR",55.01)=""
^DD(2100,"B","010-6 CHAR",56.01)=""
^DD(2100,"B","011-2 CHAR",57.011)=""
^DD(2100,"B","011-3 CHAR",53.011)=""
^DD(2100,"B","011-4 CHAR",54.011)=""
^DD(2100,"B","011-5 CHAR",55.011)=""
^DD(2100,"B","011-6 CHAR",56.011)=""
^DD(2100,"B","012-2 CHAR",57.012)=""
^DD(2100,"B","012-3 CHAR",53.012)=""
^DD(2100,"B","012-4 CHAR",54.012)=""
^DD(2100,"B","012-5 CHAR",55.012)=""
^DD(2100,"B","012-6 CHAR",56.012)=""
^DD(2100,"B","013-2 CHAR",57.013)=""
^DD(2100,"B","013-3 CHAR",53.013)=""
^DD(2100,"B","013-4 CHAR",54.013)=""
^DD(2100,"B","013-5 CHAR",55.013)=""
^DD(2100,"B","013-6 CHAR",56.013)=""
^DD(2100,"B","014-2 CHAR",57.014)=""
^DD(2100,"B","014-3 CHAR",53.014)=""
^DD(2100,"B","014-4 CHAR",54.014)=""
^DD(2100,"B","014-5 CHAR",55.014)=""
^DD(2100,"B","014-6 CHAR",56.014)=""
^DD(2100,"B","014-7 CHAR",58.014)=""
^DD(2100,"B","015-2 CHAR",57.015)=""
^DD(2100,"B","015-3 CHAR",53.015)=""
^DD(2100,"B","015-4 CHAR",54.015)=""
^DD(2100,"B","015-5 CHAR",55.015)=""
^DD(2100,"B","015-6 CHAR",56.015)=""
^DD(2100,"B","016-2 CHAR",57.016)=""
^DD(2100,"B","016-3 CHAR",53.016)=""
^DD(2100,"B","016-4 CHAR",54.016)=""
^DD(2100,"B","016-5 CHAR",55.016)=""
^DD(2100,"B","016-6 CHAR",56.016)=""
^DD(2100,"B","017-2 CHAR",57.017)=""
^DD(2100,"B","017-3 CHAR",53.017)=""
^DD(2100,"B","017-4 CHAR",54.017)=""
^DD(2100,"B","017-5 CHAR",55.017)=""
^DD(2100,"B","017-6 CHAR",56.017)=""
^DD(2100,"B","018-2 CHAR",57.018)=""
^DD(2100,"B","018-3 CHAR",53.018)=""
^DD(2100,"B","018-4 CHAR",54.018)=""
^DD(2100,"B","018-5 CHAR",55.018)=""
^DD(2100,"B","018-6 CHAR",56.018)=""
^DD(2100,"B","019-2 CHAR",57.019)=""
^DD(2100,"B","019-3 CHAR",53.019)=""
^DD(2100,"B","019-4 CHAR",54.019)=""
^DD(2100,"B","019-5 CHAR",55.019)=""
^DD(2100,"B","019-6 CHAR",56.019)=""
^DD(2100,"B","020-2 CHAR",57.02)=""
^DD(2100,"B","020-3 CHAR",53.02)=""
^DD(2100,"B","020-4 CHAR",54.02)=""
^DD(2100,"B","020-5 CHAR",55.02)=""
^DD(2100,"B","020-6 CHAR",56.02)=""
^DD(2100,"B","021-2 CHAR",57.021)=""
^DD(2100,"B","021-3 CHAR",53.021)=""
^DD(2100,"B","021-4 CHAR",54.021)=""
^DD(2100,"B","021-5 CHAR",55.021)=""
^DD(2100,"B","021-6 CHAR",56.021)=""
^DD(2100,"B","022-2 CHAR",57.022)=""
^DD(2100,"B","022-3 CHAR",53.022)=""
^DD(2100,"B","022-4 CHAR",54.022)=""
^DD(2100,"B","022-5 CHAR",55.022)=""
^DD(2100,"B","022-6 CHAR",56.022)=""
^DD(2100,"B","023-2 CHAR",57.023)=""
^DD(2100,"B","023-3 CHAR",53.023)=""
^DD(2100,"B","023-4 CHAR",54.023)=""
^DD(2100,"B","023-5 CHAR",55.023)=""
^DD(2100,"B","023-6 CHAR",56.023)=""
^DD(2100,"B","024-2 CHAR",57.024)=""
^DD(2100,"B","024-3 CHAR",53.024)=""
^DD(2100,"B","024-4 CHAR",54.024)=""
^DD(2100,"B","024-5 CHAR",55.024)=""
^DD(2100,"B","024-6 CHAR",56.024)=""
^DD(2100,"B","025-2 CHAR",57.025)=""
^DD(2100,"B","025-3 CHAR",53.025)=""
^DD(2100,"B","025-4 CHAR",54.025)=""
^DD(2100,"B","025-5 CHAR",55.025)=""
^DD(2100,"B","025-6 CHAR",56.025)=""
^DD(2100,"B","026-2 CHAR",57.026)=""
^DD(2100,"B","026-3 CHAR",53.026)=""
^DD(2100,"B","026-4 CHAR",54.026)=""
^DD(2100,"B","026-5 CHAR",55.026)=""
^DD(2100,"B","026-6 CHAR",56.026)=""
^DD(2100,"B","027-2 CHAR",57.027)=""
^DD(2100,"B","027-3 CHAR",53.027)=""
^DD(2100,"B","027-4 CHAR",54.027)=""
^DD(2100,"B","027-5 CHAR",55.027)=""
^DD(2100,"B","027-6 CHAR",56.027)=""
^DD(2100,"B","028-2 CHAR",57.028)=""
^DD(2100,"B","028-3 CHAR",53.028)=""
^DD(2100,"B","028-4 CHAR",54.028)=""
^DD(2100,"B","028-5 CHAR",55.028)=""
^DD(2100,"B","028-6 CHAR",56.028)=""
^DD(2100,"B","029-2 CHAR",57.029)=""
^DD(2100,"B","029-3 CHAR",53.029)=""
^DD(2100,"B","029-4 CHAR",54.029)=""
^DD(2100,"B","029-5 CHAR",55.029)=""
^DD(2100,"B","029-6 CHAR",56.029)=""
^DD(2100,"B","030-2 CHAR",57.03)=""
^DD(2100,"B","030-3 CHAR",53.03)=""
^DD(2100,"B","030-4 CHAR",54.03)=""
^DD(2100,"B","030-5 CHAR",55.03)=""
^DD(2100,"B","030-6 CHAR",56.03)=""
^DD(2100,"B","031-2 CHAR",57.031)=""
^DD(2100,"B","031-3 CHAR",53.031)=""
^DD(2100,"B","031-4 CHAR",54.031)=""
^DD(2100,"B","031-5 CHAR",55.031)=""
^DD(2100,"B","031-6 CHAR",56.031)=""
^DD(2100,"B","032-2 CHAR",57.032)=""
^DD(2100,"B","032-3 CHAR",53.032)=""
^DD(2100,"B","032-4 CHAR",54.032)=""
^DD(2100,"B","032-5 CHAR",55.032)=""
^DD(2100,"B","032-6 CHAR",56.032)=""
^DD(2100,"B","033-2 CHAR",57.033)=""
^DD(2100,"B","033-3 CHAR",53.033)=""
^DD(2100,"B","033-4 CHAR",54.033)=""
^DD(2100,"B","033-5 CHAR",55.033)=""
^DD(2100,"B","033-6 CHAR",56.033)=""
^DD(2100,"B","034-2 CHAR",57.034)=""
^DD(2100,"B","034-3 CHAR",53.034)=""
^DD(2100,"B","034-4 CHAR",54.034)=""
^DD(2100,"B","034-5 CHAR",55.034)=""
^DD(2100,"B","034-6 CHAR",56.034)=""
^DD(2100,"B","035-2 CHAR",57.035)=""
^DD(2100,"B","035-3 CHAR",53.035)=""
^DD(2100,"B","035-4 CHAR",54.035)=""
^DD(2100,"B","035-5 CHAR",55.035)=""
^DD(2100,"B","035-6 CHAR",56.035)=""
^DD(2100,"B","036-2 CHAR",57.036)=""
^DD(2100,"B","036-3 CHAR",53.036)=""
^DD(2100,"B","036-4 CHAR",54.036)=""
^DD(2100,"B","036-5 CHAR",55.036)=""
^DD(2100,"B","036-6 CHAR",56.036)=""
^DD(2100,"B","037-2 CHAR",57.037)=""
^DD(2100,"B","037-3 CHAR",53.037)=""
^DD(2100,"B","037-4 CHAR",54.037)=""
^DD(2100,"B","037-5 CHAR",55.037)=""
^DD(2100,"B","037-6 CHAR",56.037)=""
^DD(2100,"B","038-2 CHAR",57.038)=""
^DD(2100,"B","038-3 CHAR",53.038)=""
^DD(2100,"B","038-4 CHAR",54.038)=""
^DD(2100,"B","038-5 CHAR",55.038)=""
^DD(2100,"B","038-6 CHAR",56.038)=""
^DD(2100,"B","039-2 CHAR",57.039)=""
^DD(2100,"B","039-3 CHAR",53.039)=""
^DD(2100,"B","039-4 CHAR",54.039)=""
^DD(2100,"B","039-5 CHAR",55.039)=""
^DD(2100,"B","039-6 CHAR",56.039)=""
^DD(2100,"B","039-7 CHAR",58.039)=""
^DD(2100,"B","040-2 CHAR",57.04)=""
^DD(2100,"B","040-3 CHAR",53.04)=""
^DD(2100,"B","040-4 CHAR",54.04)=""
^DD(2100,"B","040-5 CHAR",55.04)=""
^DD(2100,"B","040-6 CHAR",56.04)=""
^DD(2100,"B","041-2 CHAR",57.041)=""
^DD(2100,"B","041-3 CHAR",53.041)=""
^DD(2100,"B","041-4 CHAR",54.041)=""
^DD(2100,"B","041-5 CHAR",55.041)=""
^DD(2100,"B","041-6 CHAR",56.041)=""
^DD(2100,"B","042-2 CHAR",57.042)=""
^DD(2100,"B","042-3 CHAR",53.042)=""
^DD(2100,"B","042-4 CHAR",54.042)=""
^DD(2100,"B","042-5 CHAR",55.042)=""
^DD(2100,"B","042-6 CHAR",56.042)=""
^DD(2100,"B","043-2 CHAR",57.043)=""
^DD(2100,"B","043-3 CHAR",53.043)=""
^DD(2100,"B","043-4 CHAR",54.043)=""
^DD(2100,"B","043-5 CHAR",55.043)=""
^DD(2100,"B","043-6 CHAR",56.043)=""
^DD(2100,"B","044-2 CHAR",57.044)=""
^DD(2100,"B","044-3 CHAR",53.044)=""
^DD(2100,"B","044-4 CHAR",54.044)=""
^DD(2100,"B","044-5 CHAR",55.044)=""
^DD(2100,"B","044-6 CHAR",56.044)=""
^DD(2100,"B","045-2 CHAR",57.045)=""
^DD(2100,"B","045-3 CHAR",53.045)=""
^DD(2100,"B","045-4 CHAR",54.045)=""
^DD(2100,"B","045-5 CHAR",55.045)=""
^DD(2100,"B","045-6 CHAR",56.045)=""
^DD(2100,"B","046-2 CHAR",57.046)=""
^DD(2100,"B","046-3 CHAR",53.046)=""
^DD(2100,"B","046-4 CHAR",54.046)=""
^DD(2100,"B","046-5 CHAR",55.046)=""
^DD(2100,"B","046-6 CHAR",56.046)=""
^DD(2100,"B","047-2 CHAR",57.047)=""
^DD(2100,"B","047-3 CHAR",53.047)=""
^DD(2100,"B","047-4 CHAR",54.047)=""
^DD(2100,"B","047-5 CHAR",55.047)=""
^DD(2100,"B","047-6 CHAR",56.047)=""
^DD(2100,"B","048-2 CHAR",57.048)=""
^DD(2100,"B","048-3 CHAR",53.048)=""
^DD(2100,"B","048-4 CHAR",54.048)=""
^DD(2100,"B","048-5 CHAR",55.048)=""
^DD(2100,"B","048-6 CHAR",56.048)=""
^DD(2100,"B","049-2 CHAR",57.049)=""
^DD(2100,"B","049-3 CHAR",53.049)=""
^DD(2100,"B","049-4 CHAR",54.049)=""
^DD(2100,"B","049-5 CHAR",55.049)=""
^DD(2100,"B","049-6 CHAR",56.049)=""
^DD(2100,"B","050-2 CHAR",57.05)=""
^DD(2100,"B","050-3 CHAR",53.05)=""
^DD(2100,"B","050-4 CHAR",54.05)=""
^DD(2100,"B","050-5 CHAR",55.05)=""
^DD(2100,"B","050-6 CHAR",56.05)=""
^DD(2100,"B","051-2 CHAR",57.051)=""
^DD(2100,"B","051-3 CHAR",53.051)=""
^DD(2100,"B","051-4 CHAR",54.051)=""
^DD(2100,"B","051-5 CHAR",55.051)=""
^DD(2100,"B","051-6 CHAR",56.051)=""
^DD(2100,"B","052-2 CHAR",57.052)=""
^DD(2100,"B","052-3 CHAR",53.052)=""
^DD(2100,"B","052-4 CHAR",54.052)=""
^DD(2100,"B","052-5 CHAR",55.052)=""
^DD(2100,"B","052-6 CHAR",56.052)=""
^DD(2100,"B","053-2 CHAR",57.053)=""
^DD(2100,"B","053-3 CHAR",53.053)=""
^DD(2100,"B","053-4 CHAR",54.053)=""
^DD(2100,"B","053-5 CHAR",55.053)=""
^DD(2100,"B","053-6 CHAR",56.053)=""
^DD(2100,"B","054-2 CHAR",57.054)=""
^DD(2100,"B","054-3 CHAR",53.054)=""
^DD(2100,"B","054-4 CHAR",54.054)=""
^DD(2100,"B","054-5 CHAR",55.054)=""
^DD(2100,"B","054-6 CHAR",56.054)=""
^DD(2100,"B","055-2 CHAR",57.055)=""
^DD(2100,"B","055-3 CHAR",53.055)=""
^DD(2100,"B","055-4 CHAR",54.055)=""
^DD(2100,"B","055-5 CHAR",55.055)=""
^DD(2100,"B","055-6 CHAR",56.055)=""
^DD(2100,"B","056-2 CHAR",57.056)=""
^DD(2100,"B","056-3 CHAR",53.056)=""
^DD(2100,"B","056-4 CHAR",54.056)=""
^DD(2100,"B","056-5 CHAR",55.056)=""
^DD(2100,"B","056-6 CHAR",56.056)=""
^DD(2100,"B","057-2 CHAR",57.057)=""
^DD(2100,"B","057-3 CHAR",53.057)=""
^DD(2100,"B","057-4 CHAR",54.057)=""
^DD(2100,"B","057-5 CHAR",55.057)=""
^DD(2100,"B","057-6 CHAR",56.057)=""
^DD(2100,"B","058-2 CHAR",57.058)=""
^DD(2100,"B","058-3 CHAR",53.058)=""
^DD(2100,"B","058-4 CHAR",54.058)=""
^DD(2100,"B","058-5 CHAR",55.058)=""
^DD(2100,"B","058-6 CHAR",56.058)=""
^DD(2100,"B","059-2 CHAR",57.059)=""
^DD(2100,"B","059-3 CHAR",53.059)=""
^DD(2100,"B","059-4 CHAR",54.059)=""
^DD(2100,"B","059-5 CHAR",55.059)=""
^DD(2100,"B","059-6 CHAR",56.059)=""
^DD(2100,"B","060-2 CHAR",57.06)=""
^DD(2100,"B","060-3 CHAR",53.06)=""
^DD(2100,"B","060-4 CHAR",54.06)=""
^DD(2100,"B","060-5 CHAR",55.06)=""
^DD(2100,"B","060-6 CHAR",56.06)=""
^DD(2100,"B","061-2 CHAR",57.061)=""
^DD(2100,"B","061-3 CHAR",53.061)=""
^DD(2100,"B","061-4 CHAR",54.061)=""
^DD(2100,"B","061-5 CHAR",55.061)=""
^DD(2100,"B","061-6 CHAR",56.061)=""
^DD(2100,"B","062-2 CHAR",57.062)=""
^DD(2100,"B","062-3 CHAR",53.062)=""
^DD(2100,"B","062-4 CHAR",54.062)=""
^DD(2100,"B","062-5 CHAR",55.062)=""
^DD(2100,"B","062-6 CHAR",56.062)=""
^DD(2100,"B","063-2 CHAR",57.063)=""
^DD(2100,"B","063-3 CHAR",53.063)=""
^DD(2100,"B","063-4 CHAR",54.063)=""
^DD(2100,"B","063-5 CHAR",55.063)=""
^DD(2100,"B","063-6 CHAR",56.063)=""
^DD(2100,"B","064-2 CHAR",57.064)=""
^DD(2100,"B","064-3 CHAR",53.064)=""
^DD(2100,"B","064-4 CHAR",54.064)=""
^DD(2100,"B","064-5 CHAR",55.064)=""
^DD(2100,"B","064-6 CHAR",56.064)=""
^DD(2100,"B","065-2 CHAR",57.065)=""
^DD(2100,"B","065-3 CHAR",53.065)=""
^DD(2100,"B","065-4 CHAR",54.065)=""
^DD(2100,"B","065-5 CHAR",55.065)=""
^DD(2100,"B","065-6 CHAR",56.065)=""
^DD(2100,"B","066-2 CHAR",57.066)=""
^DD(2100,"B","066-3 CHAR",53.066)=""
^DD(2100,"B","066-4 CHAR",54.066)=""
^DD(2100,"B","066-5 CHAR",55.066)=""
^DD(2100,"B","066-6 CHAR",56.066)=""
^DD(2100,"B","067-2 CHAR",57.067)=""
^DD(2100,"B","067-3 CHAR",53.067)=""
^DD(2100,"B","067-4 CHAR",54.067)=""
^DD(2100,"B","067-5 CHAR",55.067)=""
^DD(2100,"B","068-2 CHAR",57.068)=""
^DD(2100,"B","068-3 CHAR",53.068)=""
^DD(2100,"B","068-4 CHAR",54.068)=""
^DD(2100,"B","068-5 CHAR",55.068)=""
^DD(2100,"B","069-2 CHAR",57.069)=""
^DD(2100,"B","069-3 CHAR",53.069)=""
^DD(2100,"B","069-4 CHAR",54.069)=""
^DD(2100,"B","069-5 CHAR",55.069)=""
^DD(2100,"B","070-2 CHAR",57.07)=""
^DD(2100,"B","070-3 CHAR",53.07)=""
^DD(2100,"B","070-4 CHAR",54.07)=""
^DD(2100,"B","070-5 CHAR",55.07)=""
^DD(2100,"B","071-2 CHAR",57.071)=""
^DD(2100,"B","071-3 CHAR",53.071)=""
^DD(2100,"B","071-4 CHAR",54.071)=""
^DD(2100,"B","071-5 CHAR",55.071)=""
^DD(2100,"B","072-2 CHAR",57.072)=""
^DD(2100,"B","072-3 CHAR",53.072)=""
^DD(2100,"B","072-4 CHAR",54.072)=""
^DD(2100,"B","072-5 CHAR",55.072)=""
^DD(2100,"B","073-2 CHAR",57.073)=""
^DD(2100,"B","073-3 CHAR",53.073)=""
^DD(2100,"B","073-4 CHAR",54.073)=""
^DD(2100,"B","073-5 CHAR",55.073)=""
^DD(2100,"B","074-2 CHAR",57.074)=""
^DD(2100,"B","074-3 CHAR",53.074)=""
^DD(2100,"B","074-4 CHAR",54.074)=""
^DD(2100,"B","074-5 CHAR",55.074)=""
^DD(2100,"B","075-2 CHAR",57.075)=""
^DD(2100,"B","075-3 CHAR",53.075)=""
^DD(2100,"B","075-4 CHAR",54.075)=""
^DD(2100,"B","075-5 CHAR",55.075)=""
^DD(2100,"B","076-2 CHAR",57.076)=""
^DD(2100,"B","076-3 CHAR",53.076)=""
^DD(2100,"B","076-4 CHAR",54.076)=""
^DD(2100,"B","076-5 CHAR",55.076)=""
^DD(2100,"B","077-2 CHAR",57.077)=""
^DD(2100,"B","077-3 CHAR",53.077)=""
^DD(2100,"B","077-4 CHAR",54.077)=""
^DD(2100,"B","077-5 CHAR",55.077)=""
^DD(2100,"B","078-2 CHAR",57.078)=""
^DD(2100,"B","078-3 CHAR",53.078)=""
^DD(2100,"B","078-4 CHAR",54.078)=""
^DD(2100,"B","078-5 CHAR",55.078)=""
^DD(2100,"B","079-2 CHAR",57.079)=""
^DD(2100,"B","079-3 CHAR",53.079)=""
^DD(2100,"B","079-4 CHAR",54.079)=""
^DD(2100,"B","079-5 CHAR",55.079)=""
^DD(2100,"B","080-2 CHAR",57.08)=""
^DD(2100,"B","080-3 CHAR",53.08)=""
^DD(2100,"B","080-4 CHAR",54.08)=""
^DD(2100,"B","080-5 CHAR",55.08)=""
^DD(2100,"B","081-2 CHAR",57.081)=""
^DD(2100,"B","081-3 CHAR",53.081)=""
^DD(2100,"B","081-4 CHAR",54.081)=""
^DD(2100,"B","082-2 CHAR",57.082)=""
^DD(2100,"B","082-3 CHAR",53.082)=""
^DD(2100,"B","082-4 CHAR",54.082)=""
^DD(2100,"B","083-2 CHAR",57.083)=""
^DD(2100,"B","083-3 CHAR",53.083)=""
^DD(2100,"B","083-4 CHAR",54.083)=""
^DD(2100,"B","084-2 CHAR",57.084)=""
^DD(2100,"B","084-3 CHAR",53.084)=""
^DD(2100,"B","084-4 CHAR",54.084)=""
^DD(2100,"B","085-2 CHAR",57.085)=""
^DD(2100,"B","085-3 CHAR",53.085)=""
^DD(2100,"B","085-4 CHAR",54.085)=""
^DD(2100,"B","086-2 CHAR",57.086)=""
^DD(2100,"B","086-3 CHAR",53.086)=""
^DD(2100,"B","086-4 CHAR",54.086)=""
^DD(2100,"B","087-2 CHAR",57.087)=""
^DD(2100,"B","087-3 CHAR",53.087)=""
^DD(2100,"B","087-4 CHAR",54.087)=""
^DD(2100,"B","088-2 CHAR",57.088)=""
^DD(2100,"B","088-3 CHAR",53.088)=""
^DD(2100,"B","088-4 CHAR",54.088)=""
^DD(2100,"B","089-2 CHAR",57.089)=""
^DD(2100,"B","089-3 CHAR",53.089)=""
^DD(2100,"B","089-4 CHAR",54.089)=""
^DD(2100,"B","090-2 CHAR",57.09)=""
^DD(2100,"B","090-3 CHAR",53.09)=""
^DD(2100,"B","090-4 CHAR",54.09)=""
^DD(2100,"B","091-2 CHAR",57.091)=""
^DD(2100,"B","091-3 CHAR",53.091)=""
^DD(2100,"B","091-4 CHAR",54.091)=""
^DD(2100,"B","092-2 CHAR",57.092)=""
^DD(2100,"B","092-3 CHAR",53.092)=""
^DD(2100,"B","092-4 CHAR",54.092)=""
^DD(2100,"B","093-2 CHAR",57.093)=""
^DD(2100,"B","093-3 CHAR",53.093)=""
^DD(2100,"B","093-4 CHAR",54.093)=""
^DD(2100,"B","094-2 CHAR",57.094)=""
^DD(2100,"B","094-3 CHAR",53.094)=""
^DD(2100,"B","094-4 CHAR",54.094)=""
^DD(2100,"B","094-8 CHAR",59.094)=""
^DD(2100,"B","095-2 CHAR",57.095)=""
^DD(2100,"B","095-3 CHAR",53.095)=""
^DD(2100,"B","095-4 CHAR",54.095)=""
^DD(2100,"B","1-2 (014)",3513)=""
^DD(2100,"B","1-2 YRS (062)",3561)=""
^DD(2100,"B","1-2 YRS. (030)",3529)=""
^DD(2100,"B","1-2 YRS. (046)",3545)=""
^DD(2100,"B","1-2 YRS. (078)",3577)=""
^DD(2100,"B","1-3 BEDS (001)",3586)=""
^DD(2100,"B","1-DAY INP DIALYSIS VISITS(MED)",1341)=""
^DD(2100,"B","10-10",1313)=""
^DD(2100,"B","100 - TOTAL HOURS WORKED",4357)=""
^DD(2100,"B","16-25 (004)",3589)=""
^DD(2100,"B","200 - TOTAL PAID HOURS",4358)=""
^DD(2100,"B","205 - PAID OVERTIME HOURS",4359)=""
^DD(2100,"B","215 - COP HOURS",4360)=""
^DD(2100,"B","25-34 (002)",3501)=""
^DD(2100,"B","25-34 (018)",3517)=""
^DD(2100,"B","25-34 (034)",3533)=""
^DD(2100,"B","25-34 (050)",3549)=""
^DD(2100,"B","25-34 (066)",3565)=""
^DD(2100,"B","3-5 YRS (015)",3514)=""
^DD(2100,"B","3-5 YRS (063)",3562)=""
^DD(2100,"B","3-5 YRS (079)",3578)=""
^DD(2100,"B","3-5 YRS. (031)",3530)=""
^DD(2100,"B","3-5 YRS. (047)",3546)=""
^DD(2100,"B","300 - TOTAL UNPAID LWOP & AWOL",4361)=""
^DD(2100,"B","35-44 (003)",3502)=""
^DD(2100,"B","35-44 (019)",3518)=""
^DD(2100,"B","35-44 (035)",3534)=""
^DD(2100,"B","35-44 (051)",3550)=""
^DD(2100,"B","35-44 (067)",3566)=""
^DD(2100,"B","4-6 BEDS (002)",3587)=""
^DD(2100,"B","400 - TOTAL FUNDED FTEE",4362)=""
^DD(2100,"B","405 - MAN-HOURS BORROWED",4363)=""
^DD(2100,"B","410 - MAN-HOURS LOANED",4364)=""
^DD(2100,"B","45-54 (020)",3519)=""
^DD(2100,"B","45-54 (036)",3535)=""
^DD(2100,"B","45-54 (052)",3551)=""
^DD(2100,"B","45-54 (068)",3567)=""
^DD(2100,"B","45-55 (004)",3503)=""
^DD(2100,"B","50% OR MORE SC (013)",3598)=""
^DD(2100,"B","502 - EMPLOYEE SEPARATIONS",4355)=""
^DD(2100,"B","509 - EMPLOYEE HEAD COUNT",4356)=""
^DD(2100,"B","55-64 (021)",3520)=""
^DD(2100,"B","55-64 (037)",3536)=""
^DD(2100,"B","55-64 (053)",3552)=""
^DD(2100,"B","55-64 (069)",3568)=""
^DD(2100,"B","56-64 (005)",3504)=""
^DD(2100,"B","561 (LABOR HOURS)",4217.014)=""
^DD(2100,"B","561 (SUPERVISORY HOURS)",4217.001)=""
^DD(2100,"B","561 (THERAPY HOURS)",4217.027)=""
^DD(2100,"B","562 (LABOR HOURS)",4217.015)=""
^DD(2100,"B","562 (SUPERVISORY HOURS)",4217.002)=""
^DD(2100,"B","563 (LABOR HOURS)",4217.016)=""
^DD(2100,"B","563 (SUPERVISORY HOURS)",4217.003)=""
^DD(2100,"B","563 (THERAPY HOURS)",4217.028)=""
^DD(2100,"B","564 (LABOR HOURS)",4217.017)=""
^DD(2100,"B","564 (SUPERVISORY HOURS)",4217.004)=""
^DD(2100,"B","564 (THERAPY HOURS)",4217.029)=""
^DD(2100,"B","565 (LABOR HOURS)",4217.018)=""
^DD(2100,"B","565 (SUPERVISORY HOURS)",4217.005)=""
^DD(2100,"B","565 (THERAPY HOURS)",4217.03)=""
^DD(2100,"B","566 (LABOR HOURS)",4217.019)=""
^DD(2100,"B","566 (SUPERVISORY HOURS)",4217.006)=""
^DD(2100,"B","566 (THERAPY HOURS)",4217.031)=""
^DD(2100,"B","567 (LABOR HOURS)",4217.02)=""
^DD(2100,"B","567 (SUPERVISORY HOURS)",4217.007)=""
^DD(2100,"B","567 (THERAPY HOURS)",4217.032)=""
^DD(2100,"B","570 (LABOR HOURS)",4217.021)=""
^DD(2100,"B","570 (SUPERVISORY HOURS)",4217.008)=""
^DD(2100,"B","570 (TEXTILE CARE LABOR HOURS)",4217.021)="1"
^DD(2100,"B","570 (THERAPY HOURS)",4217.033)=""
^DD(2100,"B","571 (LABOR HOURS)",4217.022)=""
^DD(2100,"B","571 (SUPERVISORY HOURS)",4217.009)=""
^DD(2100,"B","571 (TEXTILE CARE LABOR HOURS)",4217.022)="1"
^DD(2100,"B","571 (THERAPY HOURS)",4217.034)=""
^DD(2100,"B","572 (LABOR HOURS)",4217.023)=""
^DD(2100,"B","572 (SUPERVISORY HOURS)",4217.01)=""
^DD(2100,"B","572 (TEXTILE CARE LABOR HOURS)",4217.023)="1"
^DD(2100,"B","572 (THERAPY HOURS)",4217.035)=""
^DD(2100,"B","573 (LABOR HOURS)",4217.024)=""
^DD(2100,"B","573 (SUPERVISORY HOURS)",4217.011)=""
^DD(2100,"B","573 (TEXTILE CARE LABOR HOURS)",4217.024)="1"
^DD(2100,"B","573 (THERAPY HOURS)",4217.036)=""
^DD(2100,"B","575 (LABOR HOURS)",4217.025)=""
^DD(2100,"B","575 (SUPERVISORY HOURS)",4217.012)=""
^DD(2100,"B","575 (THERAPY HOURS)",4217.037)=""
^DD(2100,"B","577 (LABOR HOURS)",4217.026)=""
^DD(2100,"B","577 (SUPERVISORY HOURS)",4217.013)=""
^DD(2100,"B","577 (THERAPY HOURS)",4217.038)=""
^DD(2100,"B","65-74 (006)",3505)=""
^DD(2100,"B","65-74 (022)",3521)=""
^DD(2100,"B","65-74 (038)",3537)=""
^DD(2100,"B","65-74 (054)",3553)=""
^DD(2100,"B","65-74 (070)",3569)=""
^DD(2100,"B","7-15 (003)",3588)=""
^DD(2100,"B","701 - VOLUNTEER HOURS WORKED",4365)=""
^DD(2100,"B","75-84 (007)",3506)=""
^DD(2100,"B","75-84 (023)",3522)=""
^DD(2100,"B","75-84 (039)",3538)=""
^DD(2100,"B","75-84 (055)",3554)=""
^DD(2100,"B","75-84 (071)",3570)=""
^DD(2100,"B","85 & OVER (040)",3539)=""
^DD(2100,"B","85 & UP (008)",3507)=""
^DD(2100,"B","85 & UP (024)",3523)=""
^DD(2100,"B","85 & UP (056)",3555)=""
^DD(2100,"B","85 & UP (072)",3571)=""
^DD(2100,"B","A&A HOUSEBOUND 002",3202)=""
^DD(2100,"B","A/V I",4165.25)=""
^DD(2100,"B","A/V II",4165.26)=""
^DD(2100,"B","A/V III",4165.27)=""
^DD(2100,"B","A/V IV",4165.28)=""
^DD(2100,"B","AA/HB;POW;WW1(NSC)",1299)=""
^DD(2100,"B","ABDOMEN-KUB",1469)=""
^DD(2100,"B","ABO (MED PTS REMAINING EOP)",1214)=""
^DD(2100,"B","ABO (PSYC PTS REMAINING EOP)",1232)=""
^DD(2100,"B","ABO (SURG PTS REMAINING EOP)",1223)=""
^DD(2100,"B","ABSENT BED OCCUPANTS EOM",1244)=""
^DD(2100,"B","ACCOMPLISHED DAY",340.7)=""
^DD(2100,"B","ACCOMPLISHED MONTH",340.6)=""
^DD(2100,"B","ACCOMPLISHED YEAR",340.5)=""
^DD(2100,"B","ACCP/DEL DATE",467.25)=""
^DD(2100,"B","ACCTG TRANS TYPE",460.06)=""
^DD(2100,"B","ACTION",229)=""
^DD(2100,"B","ACTION",2200.14)=""
^DD(2100,"B","ACTION CODE",5009)=""
^DD(2100,"B","ACTION EFFECTIVE DATE",5011)=""
^DD(2100,"B","ACTIVE CASES EOP 1-5 YEARS",1436)=""
^DD(2100,"B","ACTIVE CASES EOP < 1 YEAR",1435)=""
^DD(2100,"B","ACTIVE CASES EOP > 5 YEARS",1437)=""
^DD(2100,"B","ACTUAL FTEE",2602)=""
^DD(2100,"B","ACUTE ASS. HEMO. TREATMENTS",2443)=""
^DD(2100,"B","ACUTE ASS. PERI. TREATMENTS",2446)=""
^DD(2100,"B","ACUTE ASSISTED HEMODIALYSIS",2419)=""
^DD(2100,"B","ACUTE ASSISTED PERI. DIALY.",2420)=""
^DD(2100,"B","ADAPTIVE TASKS",2200.34)=""
^DD(2100,"B","ADDRESS LINE 1",236)=""
^DD(2100,"B","ADDRESS LINE 2",237)=""
^DD(2100,"B","ADMIN OFFICER FTEE CEILING",4202.005)=""
^DD(2100,"B","ADMIN OFFICER POSITIONS FILLED",4202.025)=""
^DD(2100,"B","ADMINISTRATIVE (LBS ISSUED)",4219.028)=""
^DD(2100,"B","ADMINISTRATIVE (MAN HOURS)",4218.027)=""
^DD(2100,"B","ADMINISTRATIVE (NET SQ FEET)",4218.013)=""
^DD(2100,"B","ADMINISTRATIVE HOURS",2659)=""
^DD(2100,"B","ADMIS AFTER REHOSP >15 DAYS",1332)=""
^DD(2100,"B","ADMIS AFTER REHOSP >30 DAYS",1322)=""
^DD(2100,"B","ADMISSIONS",2501)=""
^DD(2100,"B","ADMISSIONS - ALL OTHERS",1323)=""
^DD(2100,"B","ADMISSIONS FROM DOM/SHH (SNH)",1351)=""
^DD(2100,"B","ADMISSIONS FROM SNH/SHH(DOM)",1342)=""
^DD(2100,"B","ADMISSIONS OTHER (DOM)",1343)=""
^DD(2100,"B","ADMISSIONS OTHER (SHH)",1361)=""
^DD(2100,"B","ADMISSIONS OTHER (SNH)",1352)=""
^DD(2100,"B","ADMISSIONS TO DOM/SNH (SHH)",1360)=""
^DD(2100,"B","ADMISSIONS(MED) INC TRFS",1209)=""
^DD(2100,"B","ADMISSIONS(PSYC) INC TRFS",1226)=""
^DD(2100,"B","ADMISSIONS(SURG) INC TRFS",1217)=""
^DD(2100,"B","ADMITTED FOR FIRST TIME(ADD.)",2408)=""
^DD(2100,"B","ADMIXTURES 11",3110)=""
^DD(2100,"B","ADMN HEAD NURSE FTEE CEILING",4202.015)=""
^DD(2100,"B","ADMN SUPERVISOR FTEE CEILING",4202.014)=""
^DD(2100,"B","ADV BALANCE 1",450.61)=""
^DD(2100,"B","ADV BALANCE 2",450.69)=""
^DD(2100,"B","ADV BALANCE 3",450.77)=""
^DD(2100,"B","ADV BUDGET FY",452.72)=""
^DD(2100,"B","ADV CITY",452.55)=""
^DD(2100,"B","ADV END BUDGET FY",452.73)=""
^DD(2100,"B","ADV FUND",452.71)=""
^DD(2100,"B","ADV STATE CODE",452.56)=""
^DD(2100,"B","ADV VENDOR ADDRESS 1",452.53)=""
^DD(2100,"B","ADV VENDOR ADDRESS 2",452.54)=""
^DD(2100,"B","ADV ZIP CODE",452.57)=""
^DD(2100,"B","ADVANCE FLAG",341.6)=""
^DD(2100,"B","ADVANCE LIQ AMT",455.22)=""
^DD(2100,"B","ADVANCE TRANS TYPE",452.42)=""
^DD(2100,"B","ADVANCE VNDR ADDR",452.47)=""
^DD(2100,"B","AGAENCY SCHD FISC YR",452.74)=""
^DD(2100,"B","AGENCY SCHD FISC YR",450.53)=""
^DD(2100,"B","AGENCY SCHEDULE NO",450.48)=""
^DD(2100,"B","AGREEMENT NUMBER",455.19)=""
^DD(2100,"B","AIDS/HIV",4141.059)=""
^DD(2100,"B","ALCOHOL & DRUG DEP TRMT I",4200.006)=""
^DD(2100,"B","ALCOHOL & DRUG DEP TRMT II",4200.007)=""
^DD(2100,"B","ALCOHOL & DRUG DEP TRMT III",4200.008)=""
^DD(2100,"B","ALCOHOL & DRUG DEP TRMT IV",4200.009)=""
^DD(2100,"B","ALCOHOL TRMT (OUTPATIENT)",4265.03)=""
^DD(2100,"B","ALCOHOL TRMT INPATIENT",4265.02)=""
^DD(2100,"B","ALCOHOL/DRUG DEP TRMT (LPN)",4201.047)=""
^DD(2100,"B","ALCOHOL/DRUG DEP TRMT (NA)",4201.048)=""
^DD(2100,"B","ALCOHOL/DRUG DEP TRMT (RN)",4201.046)=""
^DD(2100,"B","ALL OTHER (010)",3595)=""
^DD(2100,"B","ALL OTHER (FORCED ENTRIES)",700.05)=""
^DD(2100,"B","ALL OTHER (LBS)",4219.004)=""
^DD(2100,"B","ALL OTHER 003",3203)=""
^DD(2100,"B","ALLIED VETERAN",1308)=""
^DD(2100,"B","ALT PAY ADDRESS CODE",462.44)=""
^DD(2100,"B","ALT PAY ID",462.43)=""
^DD(2100,"B","ALT PAY NAME",462.45)=""
^DD(2100,"B","AMBULATORY CARE (LPN)",4201.035)=""
^DD(2100,"B","AMBULATORY CARE (NA)",4201.036)=""
^DD(2100,"B","AMBULATORY CARE (PERSONS)",4141.046)=""
^DD(2100,"B","AMBULATORY CARE (RN)",4201.034)=""
^DD(2100,"B","AMBULATORY CARE I",4200.053)=""
^DD(2100,"B","AMBULATORY CARE II",4200.054)=""
^DD(2100,"B","AMBULATORY CARE III",4200.055)=""
^DD(2100,"B","AMBULATORY CARE IV",4200.056)=""
^DD(2100,"B","AMBULATORY CARE V",4200.057)=""
^DD(2100,"B","AMBULATORY SURG RECOVERY (LPN)",4201.053)=""
^DD(2100,"B","AMBULATORY SURG RECOVERY (NA)",4201.054)=""
^DD(2100,"B","AMBULATORY SURG RECOVERY (RN)",4201.052)=""
^DD(2100,"B","AMBULATORY SURG RECOVERY III",4200.064)=""
^DD(2100,"B","AMBULATORY SURGERY (LPN)",4201.05)=""
^DD(2100,"B","AMBULATORY SURGERY (NA)",4201.051)=""
^DD(2100,"B","AMBULATORY SURGERY (RN)",4201.049)=""
^DD(2100,"B","AMBULATORY SURGERY I",4200.058)=""
^DD(2100,"B","AMBULATORY SURGERY II",4200.059)=""
^DD(2100,"B","AMBULATORY SURGERY III",4200.06)=""
^DD(2100,"B","AMBULATORY SURGERY IV",4200.061)=""
^DD(2100,"B","AMBULATORY SURGERY RECOVERY I",4200.062)=""
^DD(2100,"B","AMBULATORY SURGERY RECOVERY II",4200.063)=""
^DD(2100,"B","AMIS MONTH/YEAR",9.1)=""
^DD(2100,"B","AMOUNT-DOLLARS/CENTS",245)=""
^DD(2100,"B","AMPHETAMINE PRESCRIBED",5047)=""
^DD(2100,"B","AMPHETAMINE RESULT",5049)=""
^DD(2100,"B","ANES CAUSE DEATH, DEFINITE",3032)=""
^DD(2100,"B","ANES CAUSE DEATH, MAYBE",3033)=""
^DD(2100,"B","ANES CAUSE DEATH, NO WAY JOSE",3034)=""
^DD(2100,"B","ANGIOPLASTY",2707)=""
^DD(2100,"B","APPLIED 1 INC DEC",450.6)=""
^DD(2100,"B","APPLIED 2 INC DEC",450.68)=""
^DD(2100,"B","APPLIED 3 INC DEC",450.76)=""
^DD(2100,"B","APPLIED AMT 1",450.59)=""
^DD(2100,"B","APPLIED AMT 2",450.67)=""
^DD(2100,"B","APPLIED AMT 3",450.75)=""
^DD(2100,"B","AREA CODE",4305)=""
^DD(2100,"B","ARMED ROBBERY",700.2)=""
^DD(2100,"B","ARRESTS THRU US DIST. COURT",700.74)=""
^DD(2100,"B","ARSON",700.65)=""
^DD(2100,"B","ASIH",1329)=""
^DD(2100,"B","ASS. OF SOCIAL EFFICIENCY",2606)=""
^DD(2100,"B","ASSAULT BY EMPLOYEES",700.3)=""
^DD(2100,"B","ASSAULT BY OUTSIDERS",700.31)=""
^DD(2100,"B","ASSAULT BY PATIENTS",700.29)=""
^DD(2100,"B","ASSAULT BY UNKNOWN PERSONS",700.32)=""
^DD(2100,"B","ASSAULT ON EMPLOYEES",700.34)=""
^DD(2100,"B","ASSAULT ON OUTSIDERS",700.35)=""
^DD(2100,"B","ASSAULT ON PATIENTS",700.33)=""
^DD(2100,"B","ASSAULT WITH DANGEROUS WEAPON",700.26)=""
^DD(2100,"B","ASSAULT WITH NO WEAPON",700.27)=""
^DD(2100,"B","ASSIGNMENT CODE",4015)=""
^DD(2100,"B","ASSISTANTS HOURS",4264.038)=""
^DD(2100,"B","ASSISTED (FULL CARE)-DIAL.",2401)=""
^DD(2100,"B","ASSOC CHIEF ED FTEE CEILING",4202.019)=""
^DD(2100,"B","ASSOC CHIEF ED POSITIONS",4202.039)=""
^DD(2100,"B","ASSOC CHIEF FTEE CEILING",4202.013)=""
^DD(2100,"B","ASSOC CHIEF POSITIONS FILLED",4202.033)=""
^DD(2100,"B","ASSOC CHIEF RES FTEE CEILING",4202.018)=""
^DD(2100,"B","ASSOC CHIEF RESHR POSITIONS",4202.038)=""
^DD(2100,"B","ASSOC DOC ID HDR",462.58)=""
^DD(2100,"B","ASSOC TRAN CODE HDR",462.57)=""
^DD(2100,"B","ASST CHIEF FTEE CEILING",4202.012)=""
^DD(2100,"B","ASST CHIEF POSITIONS FILLED",4202.032)=""
^DD(2100,"B","ATTEMPTED RAPE",700.37)=""
^DD(2100,"B","AUDIT (CATHOLIC)",4142.14)=""
^DD(2100,"B","AUDIT (E ORTHODOX)",4142.28)=""
^DD(2100,"B","AUDIT (JEWISH)",4142.21)=""
^DD(2100,"B","AUDIT (PROTESTANT)",4142.07)=""
^DD(2100,"B","AURAL REHAB",2625)=""
^DD(2100,"B","AURAL REHAB PATIENTS",2608)=""
^DD(2100,"B","AURAL REHAB TESTS",2622)=""
^DD(2100,"B","AUTHORIZED FTEE",2601)=""
^DD(2100,"B","AUTO ACCRUE IND",462.67)=""
^DD(2100,"B","AUTO REPLENISHMENT 04",3103)=""
^DD(2100,"B","AUTO REPLENISHMENT 07",3106)=""
^DD(2100,"B","AUTO THEFT-GOV'T VEHICLE",700.14)=""
^DD(2100,"B","AUTO THEFT-PRIVATE VEHICLE",700.16)=""
^DD(2100,"B","AUTOMATIC TERMINATOR",99)=""
^DD(2100,"B","AVAILABLE HOURS(DIAG TECH)",1524)=""
^DD(2100,"B","AVAILABLE HOURS(THERAP TECH)",1526)=""
^DD(2100,"B","AVERAGE COST 10",3109)=""
^DD(2100,"B","AVG COST PER DOSE 02",3101)=""
^DD(2100,"B","AVG COST PER DOSE 05",3104)=""
^DD(2100,"B","AVG COST PER UNIT 08",3107)=""
^DD(2100,"B","AVG PROCESSING TIME (DAYS)",1456)=""
^DD(2100,"B","AVG RX INGREDIENT COST 012",3212)=""
^DD(2100,"B","AVG UNIT COST 12",3111)=""
^DD(2100,"B","AVG UNIT COST 14",3113)=""
^DD(2100,"B","AVG UNIT COST 16",3115)=""
^DD(2100,"B","AVG UNIT COST 18",3117)=""
^DD(2100,"B","AVG UNIT COST 20",3119)=""
^DD(2100,"B","AVG. TREATMENTS/BED/WEEK",2450)=""
^DD(2100,"B","AWAITING TRANSPLANT",2442)=""
^DD(2100,"B","BALANCE EOP (CATHOLIC)",4142.13)=""
^DD(2100,"B","BALANCE EOP (E ORTHODOX)",4142.27)=""
^DD(2100,"B","BALANCE EOP (JEWISH)",4142.2)=""
^DD(2100,"B","BALANCE EOP (PROTESTANT)",4142.06)=""
^DD(2100,"B","BALANCE ON HAND EOP (CATHOLIC)",4142.13)="1"
^DD(2100,"B","BALANCE ON HAND EOP (JEWISH)",4142.2)="1"
^DD(2100,"B","BARBITURATE PRESCRIBED",5044)=""
^DD(2100,"B","BARBITURATE RESULT",5046)=""
^DD(2100,"B","BATCH NUMBER",.8)=""
^DD(2100,"B","BATCH PRIORITY",.9)=""
^DD(2100,"B","BATCH TYPE",2)=""
^DD(2100,"B","BATHING/SHOWER ACTIVITY",2200.25)=""
^DD(2100,"B","BED CAPACITY EOP BY VA (DOM)",1378)=""
^DD(2100,"B","BED CAPACITY EOP BY VA (SHH)",1380)=""
^DD(2100,"B","BED CAPACITY EOP BY VA (SNH)",1379)=""
^DD(2100,"B","BED OCCUPANTS EOM",1243)=""
^DD(2100,"B","BED OCCUPANTS EOP (DOM)",1349)=""
^DD(2100,"B","BED OCCUPANTS EOP (SHH)",1367)=""
^DD(2100,"B","BED OCCUPANTS EOP (SNH)",1358)=""
^DD(2100,"B","BEDS",2500)=""
^DD(2100,"B","BEDSIDE EXAM",1490)=""
^DD(2100,"B","BEG BUDGET FY",340.1)=""
^DD(2100,"B","BEGIN DAY",461.22)=""
^DD(2100,"B","BEGIN MONTH",461.21)=""
^DD(2100,"B","BEGIN YEAR",461.2)=""
^DD(2100,"B","BEHAVIOR PROBLEMS",2200.35)=""
^DD(2100,"B","BENEF ADDRESS CODE",467.02)=""
^DD(2100,"B","BENEFICIARY ID",467.01)=""
^DD(2100,"B","BEREAVEMENT",4141.062)=""
^DD(2100,"B","BILL PRINT FLAG",460.22)=""
^DD(2100,"B","BILLED FUND",340.4)=""
^DD(2100,"B","BILLING ADDRESS",462.78)=""
^DD(2100,"B","BIRTH DATE",208)=""
^DD(2100,"B","BIRTH YEAR",2200.06)=""
^DD(2100,"B","BLANK-3",2029)=""
^DD(2100,"B","BLANK-6",2028)=""
^DD(2100,"B","BLANKET NUMBER",462.27)=""
^DD(2100,"B","BLIND REHABILITATION (UNITS)",4265.018)=""
^DD(2100,"B","BLOOD FRACT & REL PDCTS 022",3222)=""
^DD(2100,"B","BO (MED PTS REMAINING EOP)",1213)=""
^DD(2100,"B","BO (PSYC PTS REMAINING EOP)",1231)=""
^DD(2100,"B","BO (SURG PTS REMAINING EOP)",1222)=""
^DD(2100,"B","BOMB THREATS",700.47)=""
^DD(2100,"B","BONE AND JOINTS(Skeletal)",1472)=""
^DD(2100,"B","BONUS PER HOUR",4334)=""
^DD(2100,"B","BREAD, ETC. TOTAL COST",4224.004)=""
^DD(2100,"B","BRONCHOGRAM",1478)=""
^DD(2100,"B","BUDGET",4264.035)=""
^DD(2100,"B","BUDGET FY",450.21)=""
^DD(2100,"B","BUDGET OVERRIDE IND",340.92)=""
^DD(2100,"B","BUYER",462.28)=""
^DD(2100,"B","BUYING CONTROL POINT IEN",466.02)=""
^DD(2100,"B","C&A CITY",238)=""
^DD(2100,"B","C&A DA",2022)=""
^DD(2100,"B","C&A STATE",239)=""
^DD(2100,"B","C&A STATION NUMBER",224)=""
^DD(2100,"B","C&A TITLE",232)=""
^DD(2100,"B","C&A TYPE",233)=""
^DD(2100,"B","C&A ZIP CODE",240)=""
^DD(2100,"B","C&P EXAM",1312)=""
^DD(2100,"B","CAG I",4165.17)=""
^DD(2100,"B","CAG II",4165.18)=""
^DD(2100,"B","CAG III",4165.19)=""
^DD(2100,"B","CAG IV",4165.2)=""
^DD(2100,"B","CANCELLED",1267)=""
^DD(2100,"B","CANT (FTEE ASSIGNED)",4217.045)=""
^DD(2100,"B","CANTEEN (FORCED ENTRIES)",700.01)=""
^DD(2100,"B","CANTEEN (PIECE COUNT)",4219.008)=""
^DD(2100,"B","CAQ NO DEBTS",293)=""
^DD(2100,"B","CARDIAC SERIES",1468)=""
^DD(2100,"B","CARDIOPULMONARY RESUSCITATIONS",2508)=""
^DD(2100,"B","CARE IN NON-VA UNIT",2407)=""
^DD(2100,"B","CAREGIVER LIMITATIONS",2200.38)=""
^DD(2100,"B","CARRIER CODE",463.02)=""
^DD(2100,"B","CARRIER NAME",463.03)=""
^DD(2100,"B","CARRIER NUM",463.04)=""
^DD(2100,"B","CASE HIST FLAG",460.3)=""
^DD(2100,"B","CASE HISTORIES-AUDIOLOGY",2610)=""
^DD(2100,"B","CASE HISTORIES-SPEECH PATH.",2638)=""
^DD(2100,"B","CASES COMPLETED",2609)=""
^DD(2100,"B","CASH ADV INC DEC",452.8)=""
^DD(2100,"B","CASH ADVANCE",452.79)=""
^DD(2100,"B","CASHIER (FORCED ENTRIES)",700.02)=""
^DD(2100,"B","CATCM DOLLAR AMOUNT",2019)=""
^DD(2100,"B","CATCM NO OF DEBTS",2011)=""
^DD(2100,"B","CATCQ DOLLAR AMOUNT",2001)=""
^DD(2100,"B","CATEGORY A ON WAITING LIST EOM",1248)=""
^DD(2100,"B","CATEGORY B ON WAITING LIST EOM",1249)=""
^DD(2100,"B","CATEGORY C ON WAIT LIST EOM",1250)=""
^DD(2100,"B","CATFOM DOLLAR AMOUNT",2020)=""
^DD(2100,"B","CATFOM NO OF DEBTS",2012)=""
^DD(2100,"B","CATFOQ DOLLAR AMOUNT",2002)=""
^DD(2100,"B","CATHOLIC CENSUS",4141.002)=""
^DD(2100,"B","CATHOLIC CHAPLAINS",4141.027)=""
^DD(2100,"B","CATHOLIC CONTRACT $'S",4141.012)=""
^DD(2100,"B","CATHOLIC CONTRACT CHAPLAINS",4141.008)=""
^DD(2100,"B","CATHOLIC FEE BASIS",4141.016)=""
^DD(2100,"B","CATHOLIC FEE BASIS $'S",4141.02)=""
^DD(2100,"B","CATQ NO DEBTS",295)=""
^DD(2100,"B","CAUSE OF OVERPAYMENT",460.29)=""
^DD(2100,"B","CAW DOLLAR AMT",2004)=""
^DD(2100,"B","CAWF DOLLAR AMOUNT",2017)=""
^DD(2100,"B","CAWFM NO OF DEBTS",2010)=""
^DD(2100,"B","CAWP DOLLAR AMOUNT",2000)=""
^DD(2100,"B","CAWPM DOLLAR AMOUNT",2018)=""
^DD(2100,"B","CAWQ NO DEBTS",294)=""
^DD(2100,"B","CCPRAM DOLLAR AMOUNT",2009)=""
^DD(2100,"B","CCPRAQ DOLLAR AMT",299)=""
^DD(2100,"B","CCRAM DOLLAR AMOUNT",2016)=""
^DD(2100,"B","CCRAM NO OF DEBTS",2008)=""
^DD(2100,"B","CCRAQ DOLLAR AMOUNT",2003)=""
^DD(2100,"B","CCRAQ NO BEBTS",292)=""
^DD(2100,"B","CENSUS (NO PREFERENCE)",4141.006)=""
^DD(2100,"B","CENSUS (OTHER)",4141.005)=""
^DD(2100,"B","CENTRAL AUDITORY TESTS",2621)=""
^DD(2100,"B","CEREBRAL(ANGIO or CATH)",1480)=""
^DD(2100,"B","CERT.MEDICARE/MEDICAID",1544)=""
^DD(2100,"B","CHAMP VA",1304)=""
^DD(2100,"B","CHANGES IN BEDSECTION(+)",1237)=""
^DD(2100,"B","CHANGES IN BEDSECTION(+MED)",1210)=""
^DD(2100,"B","CHANGES IN BEDSECTION(+PSYC)",1227)=""
^DD(2100,"B","CHANGES IN BEDSECTION(+SURG)",1218)=""
^DD(2100,"B","CHANGES IN BEDSECTION(-)",1242)=""
^DD(2100,"B","CHANGES IN BEDSECTION(-MED)",1212)=""
^DD(2100,"B","CHANGES IN BEDSECTION(-PSYC)",1230)=""
^DD(2100,"B","CHANGES IN BEDSECTION(-SURG)",1221)=""
^DD(2100,"B","CHAPEL OFFERINGS (CATHOLIC)",4142.08)=""
^DD(2100,"B","CHAPEL OFFERINGS (E ORTHODOX)",4142.22)=""
^DD(2100,"B","CHAPEL OFFERINGS (JEWISH)",4142.15)=""
^DD(2100,"B","CHAPEL OFFERINGS (PROTESTANT)",4142.01)=""
^DD(2100,"B","CHECK ADV INC DEC",452.78)=""
^DD(2100,"B","CHECK ADVANCE",452.77)=""
^DD(2100,"B","CHECK NUMBER FILLER",341.95)=""
^DD(2100,"B","CHEST (Multiple View)",1467)=""
^DD(2100,"B","CHEST (Single View)",1466)=""
^DD(2100,"B","CHIEF NURSE FTEE CEILING",4202.011)=""
^DD(2100,"B","CHIEF NURSE POSITIONS FILLED",4202.031)=""
^DD(2100,"B","CHIEF OR ASST CHIEF",4019)=""
^DD(2100,"B","CHOLANGIOGRAM",1476)=""
^DD(2100,"B","CHOLECYSTOGRAM(ORAL)",1475)=""
^DD(2100,"B","CHRONIC ASS. HEMO. TREATMENTS",2444)=""
^DD(2100,"B","CHRONIC ASS. PERI. TREATMENTS",2447)=""
^DD(2100,"B","CHRONIC ASSISTED HEMO. INP.",2421)=""
^DD(2100,"B","CHRONIC ASSISTED HEMO. OUTPT.",2422)=""
^DD(2100,"B","CHRONIC ASSISTED PERI. INP.",2423)=""
^DD(2100,"B","CHRONIC ASSISTED PERI. OUTP.",2424)=""
^DD(2100,"B","CINE RUN",1491)=""
^DD(2100,"B","CITY",204)=""
^DD(2100,"B","CITY (FMS)",450.26)=""
^DD(2100,"B","CITY OF COMMUNITY NH",1535)=""
^DD(2100,"B","CLEAR ALL",463.05)=""
^DD(2100,"B","CLERICAL FTEE CEILING",4202.004)=""
^DD(2100,"B","CLERICAL HOURS",4264.039)=""
^DD(2100,"B","CLERICAL POSITIONS FILLED",4202.024)=""
^DD(2100,"B","CLERICAL POSITIONS FILLED EOQ",4202.024)="1"
^DD(2100,"B","CLINIC",5000)=""
^DD(2100,"B","CLINICAL SPEC FTEE CEILING",4202.006)=""
^DD(2100,"B","CLINICAL SPEC POSITIONS FILLED",4202.026)=""
^DD(2100,"B","CLINICS (LBS ISSUED)",4219.025)=""
^DD(2100,"B","CLINICS (MAN HOURS)",4218.024)=""
^DD(2100,"B","CLINICS (NET SQUARE FEET)",4218.01)=""
^DD(2100,"B","CLOSED BEG BUDGET FY",341.8)=""
^DD(2100,"B","CLOSED END BUDGET FY",341.9)=""
^DD(2100,"B","CLOSED FUND",341.91)=""
^DD(2100,"B","CNH (083)",3582)=""
^DD(2100,"B","CNH 40 BLANKS",1552)=""
^DD(2100,"B","CODE",50)=""
^DD(2100,"B","COIN MACHINE (TOTAL LOSS)",700.13)=""
^DD(2100,"B","COIN MACHINE THEFTS",700.12)=""
^DD(2100,"B","COLA",4333)=""
^DD(2100,"B","COLLATERAL OF VETERAN",1305)=""
^DD(2100,"B","COLLATERAL VISITS",4141.066)=""
^DD(2100,"B","COLLECTED DUE DD",460.25)=""
^DD(2100,"B","COLLECTED DUE MM",460.24)=""
^DD(2100,"B","COLLECTED DUE YY",460.23)=""
^DD(2100,"B","COLLECTION DUE DATE",460.01)=""
^DD(2100,"B","COLLECTIVE BARGAINING CONTRACT",4324)=""
^DD(2100,"B","COMBINATION 1",211)=""
^DD(2100,"B","COMBINATION 2",212)=""
^DD(2100,"B","COMBINATION 3",213)=""
^DD(2100,"B","COMBINATION 4",214)=""
^DD(2100,"B","COMBINATION 5",215)=""
^DD(2100,"B","COMBINATION 6",216)=""
^DD(2100,"B","COMM NURSING HOME",4265.027)=""
^DD(2100,"B","COMM NUTR PROD TOTAL COST",4224.005)="1"
^DD(2100,"B","COMM. (085)",3584)=""
^DD(2100,"B","COMMENT LINE 1",452.51)=""
^DD(2100,"B","COMMENT LINE 2",452.52)=""
^DD(2100,"B","COMMENTS (FMS-RC)",463.06)=""
^DD(2100,"B","COMMENTS TO PRINT",454.29)=""
^DD(2100,"B","COMMERCIAL CONTRACT (LBS)",4219.003)=""
^DD(2100,"B","COMMUNITY (OTHER MEETING)",4264.034)=""
^DD(2100,"B","COMP. LANG. COG EVALUATIONS",2640)=""
^DD(2100,"B","COMPUTED TOMOGRAPHY",1485)=""
^DD(2100,"B","CONFESSIONS",4141.036)=""
^DD(2100,"B","CONFIRMATION ORDER",462.22)=""
^DD(2100,"B","CONSULTATIONS W/STAFF",4141.043)=""
^DD(2100,"B","CONSULTS-AUDIOLOGY",2607)=""
^DD(2100,"B","CONSULTS-SPEECH PATHOLOGY",2636)=""
^DD(2100,"B","CONTINENCE (BLADDER)",2200.32)=""
^DD(2100,"B","CONTINENCE (BOWEL)",2200.31)=""
^DD(2100,"B","CONTINUATION COUNT",4347.5)=""
^DD(2100,"B","CONTINUING EDUCATION RECEIVED",2661)=""
^DD(2100,"B","CONTRACT CONSUTATIONS",1519)=""
^DD(2100,"B","CONTRACT FOLLOW-UP VISITS",1521)=""
^DD(2100,"B","CONTRACT NUMBER",462.55)=""
^DD(2100,"B","CONTRACT PTS(Cobalt Teleth)",1513)=""
^DD(2100,"B","CONTRACT PTS(Deep X-RAY)",1511)=""
^DD(2100,"B","CONTRACT PTS(Lin ACC/Betatron)",1515)=""
^DD(2100,"B","CONTRACT PTS(Radio Imp/Appl)",1517)=""
^DD(2100,"B","CONTRACT PTS(Superf X-RAY)",1509)=""
^DD(2100,"B","CONTRACT SPECIAL PROCEDURES",1522)=""
^DD(2100,"B","CONTRACT STARTING DATE",4272)=""
^DD(2100,"B","CONTRACT TERMINATION DATE",4273)=""
^DD(2100,"B","CONTRACT TREATMENT PLANNING",1520)=""
^DD(2100,"B","CONTRACT VISITS(Cobalt Tel)",1514)=""
^DD(2100,"B","CONTRACT VISITS(Deep X-RAY)",1512)=""
^DD(2100,"B","CONTRACT VISITS(Lin ACC/Betat)",1516)=""
^DD(2100,"B","CONTRACT VISITS(Radio Imp/App)",1518)=""
^DD(2100,"B","CONTRACT VISITS(Superf X-RAY)",1510)=""
^DD(2100,"B","CONTRACT/FEE BASIS (HEMO.)",2436)=""
^DD(2100,"B","CONTRACT/FEE BASIS (PERI.)",2437)=""
^DD(2100,"B","CONTRACT/FEE BASIS (TOTAL)",2438)=""
^DD(2100,"B","CONTRIBUTIONS (CATHOLIC)",4142.11)=""
^DD(2100,"B","CONTRIBUTIONS (E ORTHODOX)",4142.25)=""
^DD(2100,"B","CONTRIBUTIONS (JEWISH)",4142.18)=""
^DD(2100,"B","CONTRIBUTIONS (PROTESTANT)",4142.04)=""
^DD(2100,"B","CONTROLLED SUBS ORDERS 19",3118)=""
^DD(2100,"B","COP 45-DAY",4165.55)=""
^DD(2100,"B","COST CENTER",241)=""
^DD(2100,"B","COST CENTER",4353)=""
^DD(2100,"B","COUNSELING SESSION DATE",5063)=""
^DD(2100,"B","COUNSELOR ID NUMBER",5008)=""
^DD(2100,"B","COUNTY CODE",2200.03)=""
^DD(2100,"B","COUNTY CODE OF CNH",1537)=""
^DD(2100,"B","COURSE CODE",462.5)=""
^DD(2100,"B","COURTESY PARKING VIOLATIONS",700.62)=""
^DD(2100,"B","COVERED FROM DAY",458.12)=""
^DD(2100,"B","COVERED FROM MONTH",458.11)=""
^DD(2100,"B","COVERED FROM YEAR",458.1)=""
^DD(2100,"B","COVERED TO DAY",458.15)=""
^DD(2100,"B","COVERED TO MONTH",458.14)=""
^DD(2100,"B","COVERED TO YEAR",458.13)=""
^DD(2100,"B","CREATED BY",9.01)=""
^DD(2100,"B","CREATIVE COMM (ATTENDANCE)",4264.018)=""
^DD(2100,"B","CREATIVE COMMUNICATION",4265.006)=""
^DD(2100,"B","CREATIVE COMMUNICATION (HRS)",4264.006)=""
^DD(2100,"B","CREDIT CARD FLAG",452.14)=""
^DD(2100,"B","CRITICAL CARE (LPN)",4201.02)=""
^DD(2100,"B","CRITICAL CARE (NA)",4201.021)=""
^DD(2100,"B","CRITICAL CARE (RN)",4201.019)=""
^DD(2100,"B","CRITICAL CARE I",4200.04)=""
^DD(2100,"B","CRITICAL CARE II",4200.041)=""
^DD(2100,"B","CRITICAL CARE III",4200.042)=""
^DD(2100,"B","DAM NO OF DEBTS",2007)=""
^DD(2100,"B","DANCE",4265.005)=""
^DD(2100,"B","DANCE (ATTENDANCE)",4264.017)=""
^DD(2100,"B","DANCE (HOURS)",4264.005)=""
^DD(2100,"B","DAQ DOLLAR AMT",298)=""
^DD(2100,"B","DATE 0F BIRTH (PART-2)",4281)=""
^DD(2100,"B","DATE COVERED FROM",458.01)=""
^DD(2100,"B","DATE COVERED TO",458.02)=""
^DD(2100,"B","DATE CREATED",9)=""
^DD(2100,"B","DATE EVALUATED",2200.01)=""
^DD(2100,"B","DATE OF APPOINTMENT",234)=""
^DD(2100,"B","DATE OF BIRTH (PART-3)",4297)=""
^DD(2100,"B","DATE OF LAST ASSESSMENT",1547)=""
^DD(2100,"B","DATE OF POSITION VACANCY",4000)=""
^DD(2100,"B","DATE OF VISIT",2200.43)=""
^DD(2100,"B","DAY",2024)=""
^DD(2100,"B","DAY 1",250)=""
^DD(2100,"B","DAY 10",259)=""
^DD(2100,"B","DAY 11",260)=""
^DD(2100,"B","DAY 12",261)=""
^DD(2100,"B","DAY 13",262)=""
^DD(2100,"B","DAY 14",263)=""
^DD(2100,"B","DAY 15",264)=""
^DD(2100,"B","DAY 16",265)=""
^DD(2100,"B","DAY 17",266)=""
^DD(2100,"B","DAY 18",267)=""
^DD(2100,"B","DAY 19",268)=""
^DD(2100,"B","DAY 2",251)=""
^DD(2100,"B","DAY 20",269)=""
^DD(2100,"B","DAY 21",270)=""
^DD(2100,"B","DAY 22",271)=""
^DD(2100,"B","DAY 23",272)=""
^DD(2100,"B","DAY 24",273)=""
^DD(2100,"B","DAY 25",274)=""
^DD(2100,"B","DAY 26",275)=""
^DD(2100,"B","DAY 27",276)=""
^DD(2100,"B","DAY 28",277)=""
^DD(2100,"B","DAY 29",278)=""
^DD(2100,"B","DAY 3",252)=""
^DD(2100,"B","DAY 30",279)=""
^DD(2100,"B","DAY 31",280)=""
^DD(2100,"B","DAY 4",253)=""
^DD(2100,"B","DAY 5",254)=""
^DD(2100,"B","DAY 6",255)=""
^DD(2100,"B","DAY 7",256)=""
^DD(2100,"B","DAY 8",257)=""
^DD(2100,"B","DAY 9",258)=""
^DD(2100,"B","DAY HOSPITAL",1319)=""
^DD(2100,"B","DAY HOSPITAL PROGRAM",4265.025)=""
^DD(2100,"B","DAY NUMBER",227)=""
^DD(2100,"B","DAY OF PAYMENT",461.19)=""
^DD(2100,"B","DAY REQUIRED",452.5)=""
^DD(2100,"B","DAY TEATMENT CENTER",4265.024)=""
^DD(2100,"B","DAY TRAVEL BEGINS",450.17)=""
^DD(2100,"B","DAY TRAVEL ENDS",450.2)=""
^DD(2100,"B","DAY TREATMENT CENTER",1318)=""
^DD(2100,"B","DAYS OF AUTH ABSENCE <96HRS",1247)=""
^DD(2100,"B","DAYS OF MHC OPERATION",1438)=""
^DD(2100,"B","DDCSS DATA CODE",5014)=""
^DD(2100,"B","DEATH (012)",3511)=""
^DD(2100,"B","DEATH (028)",3527)=""
^DD(2100,"B","DEATH (044)",3543)=""
^DD(2100,"B","DEATH (060)",3559)=""
^DD(2100,"B","DEATH (076)",3575)=""
^DD(2100,"B","DEATHS (CARDIAC CATH)",2720)=""
^DD(2100,"B","DEATHS (DIALY.)",2413)=""
^DD(2100,"B","DEATHS (DOM)",1347)=""
^DD(2100,"B","DEATHS (SHH)",1365)=""
^DD(2100,"B","DEATHS (SNH)",1356)=""
^DD(2100,"B","DEATHS IN HOME (004)",3604)=""
^DD(2100,"B","DEATHS IN ICU",2505)=""
^DD(2100,"B","DEATHS WITHIN 24 HOURS",2720)="1"
^DD(2100,"B","DEATHS(MED)",1211)=""
^DD(2100,"B","DEATHS(PSYC)",1228)=""
^DD(2100,"B","DEATHS(SURG)",1219)=""
^DD(2100,"B","DEATHS, FIELD",3026)=""
^DD(2100,"B","DEATHS, INFILTRATION",3025)=""
^DD(2100,"B","DEATHS, INHALATION",3023)=""
^DD(2100,"B","DEATHS, IVS",3024)=""
^DD(2100,"B","DEATHS, NERVE",3027)=""
^DD(2100,"B","DEATHS, OTHER",3031)=""
^DD(2100,"B","DEATHS, RECTAL",3030)=""
^DD(2100,"B","DEATHS, SPINAL",3028)=""
^DD(2100,"B","DEATHS, TOPICAL",3029)=""
^DD(2100,"B","DEATHS,BO AND ABO",1238)=""
^DD(2100,"B","DECIMAL SUFFIX",230)=""
^DD(2100,"B","DELIVERY DD",462.26)=""
^DD(2100,"B","DELIVERY MM",462.25)=""
^DD(2100,"B","DELIVERY YY",462.24)=""
^DD(2100,"B","DEM DOLLAR AMOUNT",2015)=""
^DD(2100,"B","DENTAL (LBS ISSUED)",4219.026)=""
^DD(2100,"B","DENTAL (MAN HOURS)",4218.025)=""
^DD(2100,"B","DENTAL (NET SQUARE FEET)",4218.011)=""
^DD(2100,"B","DEPOSIT NUMBER",340.3)=""
^DD(2100,"B","DEPOT STOCK NUMBER",2201.06)=""
^DD(2100,"B","DEPT CODE",1256)=""
^DD(2100,"B","DEPT. CODE",52.3)=""
^DD(2100,"B","DEQ NO DEBTS",291)=""
^DD(2100,"B","DESIGNATED BEDS (MED/COR)",2510)=""
^DD(2100,"B","DESIGNATED BEDS (MED/SUR)",2509)=""
^DD(2100,"B","DESIGNATED BEDS (MED/SURG/COR)",2511)=""
^DD(2100,"B","DIAG, ANES, DEATHS",3017)=""
^DD(2100,"B","DIAG, ANES, TOTAL",3016)=""
^DD(2100,"B","DIAG, NURSE, DEATHS",3019)=""
^DD(2100,"B","DIAG, NURSE, TOTAL",3018)=""
^DD(2100,"B","DIAG, OTHER, DEATHS",3021)=""
^DD(2100,"B","DIAG, OTHER, TOTAL",3020)=""
^DD(2100,"B","DIAGNOSTIC REPORT",2623)=""
^DD(2100,"B","DIAGNOSTIC REPORTS",2646)=""
^DD(2100,"B","DIAL.-DEATHS 90 DAYS OR LESS",2479)=""
^DD(2100,"B","DIAL.-DEATHS OVER 90 DAYS",2482)=""
^DD(2100,"B","DIALY.-FRACTION CRF < 91 DAYS",2480)=""
^DD(2100,"B","DIALYSIS OPERATING BEDS",1253)=""
^DD(2100,"B","DIALYZED OVER 90 DAYS",2481)=""
^DD(2100,"B","DIALYZED-90 DAYS OR LESS",2478)=""
^DD(2100,"B","DIALYZED-AGE 55 OR OVER",2476)=""
^DD(2100,"B","DIALYZED-DEATHS (ARF)",2485)=""
^DD(2100,"B","DIALYZED-DIABETIC",2474)=""
^DD(2100,"B","DIALYZED-FRACTION 55 OR OVER",2477)=""
^DD(2100,"B","DIALYZED-FRACTION CRF-ARF",2486)=""
^DD(2100,"B","DIALYZED-FRACTION DIABETIC",2475)=""
^DD(2100,"B","DIALYZED-TOTAL ARF PATIENTS",2484)=""
^DD(2100,"B","DIED-ASIH",1331)=""
^DD(2100,"B","DIET (FTEE ASSIGNED)",4217.041)=""
^DD(2100,"B","DIETETICS (PIECE COUNT)",4219.007)=""
^DD(2100,"B","DIETITIAN (016)",3616)=""
^DD(2100,"B","DIETITIAN (025)",3625)=""
^DD(2100,"B","DIGITAL CONTRAST",2709)=""
^DD(2100,"B","DIGITAL SUB.ANGIOGRAPHY",1479)=""
^DD(2100,"B","DIPLOMATE STATUS (PART-2)",4280)=""
^DD(2100,"B","DIPLOMATE STATUS (PART-3)",4296)=""
^DD(2100,"B","DIRECT DISB NUMBER",455.18)=""
^DD(2100,"B","DISBURSING OFFICE",450.51)=""
^DD(2100,"B","DISCHARGE DATE",2200.5)=""
^DD(2100,"B","DISCHARGE OTHER (SHH)",1364)=""
^DD(2100,"B","DISCHARGE STATUS",2200.51)=""
^DD(2100,"B","DISCHARGE TO DOM/SNH (SHH)",1363)=""
^DD(2100,"B","DISCHARGE TO OPT/NSC",1239)=""
^DD(2100,"B","DISCHARGED TO NON-VA",2417)=""
^DD(2100,"B","DISCHARGES",1326)=""
^DD(2100,"B","DISCHARGES NOT OPT/NSC",1240)=""
^DD(2100,"B","DISCHARGES OTHER (DOM)",1346)=""
^DD(2100,"B","DISCHARGES OTHER (SNH)",1355)=""
^DD(2100,"B","DISCHARGES TO DOM/SHH (SNH)",1354)=""
^DD(2100,"B","DISCHARGES TO SNH/SHH (DOM)",1345)=""
^DD(2100,"B","DISCHARGES(MED)",1211.5)=""
^DD(2100,"B","DISCHARGES(PSYC)",1229)=""
^DD(2100,"B","DISCHARGES(SURG)",1220)=""
^DD(2100,"B","DISCHARGES-ASIH",1330)=""
^DD(2100,"B","DISCHARGES-MEDICINE",2502)=""
^DD(2100,"B","DISCOUNT AMOUNT 1",454.37)=""
^DD(2100,"B","DISCOUNT AMOUNT 2",454.4)=""
^DD(2100,"B","DISCOUNT AMOUNT 3",454.43)=""
^DD(2100,"B","DISCOUNT DAYS 1",454.35)=""
^DD(2100,"B","DISCOUNT DAYS 2",454.38)=""
^DD(2100,"B","DISCOUNT DAYS 3",454.41)=""
^DD(2100,"B","DISCOUNT PERCENT 1",454.36)=""
^DD(2100,"B","DISCOUNT PERCENT 2",454.39)=""
^DD(2100,"B","DISCOUNT PERCENT 3",454.42)=""
^DD(2100,"B","DISCOUNT TYPE",462.74)=""
^DD(2100,"B","DISORIENTATION/MEMORY/IMPAIR",2200.36)=""
^DD(2100,"B","DISPOSITION OF REJECTION",2200.16)=""
^DD(2100,"B","DISPOSITION TO COMMUNITY",1277)=""
^DD(2100,"B","DISPOSITION TO OTHER",1278)=""
^DD(2100,"B","DISTURBANCE BY OUTSIDERS",700.45)=""
^DD(2100,"B","DISTURBANCE OF MOOD",2200.37)=""
^DD(2100,"B","DOCUMENT ACTION",450.34)=""
^DD(2100,"B","DOCUMENT DESCRIPTION",454.16)=""
^DD(2100,"B","DOCUMENT TOTAL",454.21)=""
^DD(2100,"B","DOCUMENT TYPE",454.1)=""
^DD(2100,"B","DOLLAR AMOUNT (MONTHLY)",287)=""
^DD(2100,"B","DOLLAR AMOUNT (QUARTERLY)",288)=""
^DD(2100,"B","DOM WAIT LIST",1264)=""
^DD(2100,"B","DOMICILIARY (LBS ISSUED)",4219.024)=""
^DD(2100,"B","DOMICILIARY (LPN)",4201.032)=""
^DD(2100,"B","DOMICILIARY (MAN HOURS)",4218.023)=""
^DD(2100,"B","DOMICILIARY (MEMBERS)",4200.038)=""
^DD(2100,"B","DOMICILIARY (NA)",4201.033)=""
^DD(2100,"B","DOMICILIARY (NET SQ FEET)",4218.009)=""
^DD(2100,"B","DOMICILIARY (RN)",4201.031)=""
^DD(2100,"B","DOMICILIARY (UNITS)",4200.039)=""
^DD(2100,"B","DOMICILIARY CARE RECEIVED",1263)=""
^DD(2100,"B","DOMICILIARY MEMBER(NSC)",1303)=""
^DD(2100,"B","DOMICILIARY TYPE OF SERV",1275)=""
^DD(2100,"B","DOSAGE",5020)=""
^DD(2100,"B","DOSAGE CODE-FRIDAY",5034)=""
^DD(2100,"B","DOSAGE CODE-MONDAY",5026)=""
^DD(2100,"B","DOSAGE CODE-SATURDAY",5036)=""
^DD(2100,"B","DOSAGE CODE-SUNDAY",5038)=""
^DD(2100,"B","DOSAGE CODE-THURSDAY",5032)=""
^DD(2100,"B","DOSAGE CODE-TUESDAY",5028)=""
^DD(2100,"B","DOSAGE CODE-WEDNESDAY",5030)=""
^DD(2100,"B","DOSAGE DURATION",5021)=""
^DD(2100,"B","DOSAGE-FRIDAY",5035)=""
^DD(2100,"B","DOSAGE-MONDAY",5027)=""
^DD(2100,"B","DOSAGE-SATURDAY",5037)=""
^DD(2100,"B","DOSAGE-SUNDAY",5039)=""
^DD(2100,"B","DOSAGE-THURSDAY",5033)=""
^DD(2100,"B","DOSAGE-TUESDAY",5029)=""
^DD(2100,"B","DOSAGE-WEDNESDAY",5031)=""
^DD(2100,"B","DRESSING ACTIVITY",2200.26)=""
^DD(2100,"B","DRUG DEP (OUTPATIENT)",4265.029)=""
^DD(2100,"B","DRUG DEP TRMT INPATIENT",4265.019)=""
^DD(2100,"B","DRUG NAME/CODE AMPHETAMINE",5048)=""
^DD(2100,"B","DRUG NAME/CODE BARBITURATE",5045)=""
^DD(2100,"B","DRUG NAME/CODE METHADONE",5051)=""
^DD(2100,"B","DRUG NAME/CODE MORPHINE",5042)=""
^DD(2100,"B","DRUG NAME/CODE OTHER 1",5054)=""
^DD(2100,"B","DRUG NAME/CODE OTHER 2",5057)=""
^DD(2100,"B","DRUG NAME/CODE OTHER 3",5060)=""
^DD(2100,"B","DRUG POSSESSION/INTRODUCTION",700.68)=""
^DD(2100,"B","DRUG THEFTS",700.18)=""
^DD(2100,"B","DRUG THEFTS-ATTEMPTED",700.19)=""
^DD(2100,"B","DUTY BASIS",4009)=""
^DD(2100,"B","DUTY HOURS",462.53)=""
^DD(2100,"B","DUTY STATION",4010)=""
^DD(2100,"B","DUTY STATUS (PART-2)",4277)=""
^DD(2100,"B","DUTY STATUS (PART-3)",4287)=""
^DD(2100,"B","DYSPHAGIA EVALUATIONS",2645)=""
^DD(2100,"B","E ORTHODOX CHAPLAINS",4141.029)=""
^DD(2100,"B","E ORTHODOX CONTRACT $'S",4141.014)=""
^DD(2100,"B","E ORTHODOX CONTRACT CHAPLAINS",4141.01)=""
^DD(2100,"B","E ORTHODOX FEE BASIS",4141.018)=""
^DD(2100,"B","E ORTHODOX FEE BASIS $'S",4141.022)=""
^DD(2100,"B","EASTERN ORTHODOX CENSUS",4141.004)=""
^DD(2100,"B","EATING ACTIVITY",2200.29)=""
^DD(2100,"B","EDIT TEMPLATE NAME",10)=""
^DD(2100,"B","EDUCATION STATUS (PART-2)",4282)=""
^DD(2100,"B","EDUCATION STATUS (PART-3)",4298)=""
^DD(2100,"B","EFFECTIVE DATE '01' SEQUENCE",5017)=""
^DD(2100,"B","EFFECTIVE DD",462.42)=""
^DD(2100,"B","EFFECTIVE MM",462.41)=""
^DD(2100,"B","EFFECTIVE YY",462.4)=""
^DD(2100,"B","ELECTROPHYSIOLOGY",2710)=""
^DD(2100,"B","ELIGIBILITY",2200.05)=""
^DD(2100,"B","EMERGENCY CALLS",4141.038)=""
^DD(2100,"B","EMPLOYEE VANDALISM",700.59)=""
^DD(2100,"B","EMPLOYEE/PATIENT DISTURBANCE",700.46)=""
^DD(2100,"B","EMPLOYEES COMMITTING RAPE",700.39)=""
^DD(2100,"B","END BUDGET FY",450.22)=""
^DD(2100,"B","END DATE",462.02)=""
^DD(2100,"B","END OF DATA INDICATOR",5015)=""
^DD(2100,"B","END TRAVEL DESC",452.31)=""
^DD(2100,"B","ENDING DATE DESC",462.34)=""
^DD(2100,"B","ENDING DD",462.33)=""
^DD(2100,"B","ENDING MM",462.32)=""
^DD(2100,"B","ENDING YY",462.31)=""
^DD(2100,"B","ENG",2619)=""
^DD(2100,"B","ENTRY DATE",209)=""
^DD(2100,"B","ENVIRONMENTAL CARE",4220.002)=""
^DD(2100,"B","EQUIP. MAIN. CAL.-SPEECH",2655)=""
^DD(2100,"B","EQUIP. MAINT. CALIBRATION-AUD.",2631)=""
^DD(2100,"B","EQUIPMENT COST (A/V)",4165.32)=""
^DD(2100,"B","EQUIPMENT COST (CAG)",4165.24)=""
^DD(2100,"B","EQUIPMENT COST (ILL/GRA)",4165.16)=""
^DD(2100,"B","EQUIPMENT COST (MO/A)",4165.37)=""
^DD(2100,"B","EQUIPMENT COST (PHOTO)",4165.08)=""
^DD(2100,"B","ESCORT ACTIVITIES (LPN)",4201.029)=""
^DD(2100,"B","ESCORT ACTIVITIES (NA)",4201.03)=""
^DD(2100,"B","ESCORT ACTIVITIES (RN)",4201.028)=""
^DD(2100,"B","ESTABLISHMENT CODE",4306)=""
^DD(2100,"B","ESTABLISHMENT NAME",4312)=""
^DD(2100,"B","ETHIC COMMITTEE CHAIRMAN",4141.071)=""
^DD(2100,"B","ETHIC COMMITTEE MEMBER",4141.072)=""
^DD(2100,"B","ETHNIC BACKGROUND CODE (EBC)",5005)=""
^DD(2100,"B","EVENTUALLY HAD CARDIAC SURGERY",2702)=""
^DD(2100,"B","EVOKED POTENTIALS",2618)=""
^DD(2100,"B","EXAM IN OR AT SURGERY",1489)=""
^DD(2100,"B","EXAMINED, NO FURTHER CARE",1266)=""
^DD(2100,"B","EXCEPTION CODE",450.37)=""
^DD(2100,"B","EXCEPTION INC DEC",450.36)=""
^DD(2100,"B","EXP REV GL IND (SVB)",341.4)=""
^DD(2100,"B","EXPRESSIVE COMMUNICATION",2200.23)=""
^DD(2100,"B","FA IND",454.18)=""
^DD(2100,"B","FACILITY CODE SUFFIX",4268)=""
^DD(2100,"B","FACILITY GROSS SQ FOOTAGE",4218.029)=""
^DD(2100,"B","FACILITY NUMBER",200)=""
^DD(2100,"B","FACILITY NUMBER",4348)=""
^DD(2100,"B","FAIR LABOR STANDARDS ACT",4003)="1"
^DD(2100,"B","FAMILY COUNSELING-AUDIOLOGY",2626)=""
^DD(2100,"B","FAMILY COUNSELING-SPEECH PATH.",2650)=""
^DD(2100,"B","FCP UPDATED",405)=""
^DD(2100,"B","FEE BASIS 006",3206)=""
^DD(2100,"B","FEE PAID (HEMO.-OTHER FAC.)",2463)=""
^DD(2100,"B","FEE PAID (HEMO.-OWN FACILITY)",2461)=""
^DD(2100,"B","FEE PAID (PERI.-OTHER FAC.)",2464)=""
^DD(2100,"B","FEE PAID (PERI.-OWN FACILITY)",2462)=""
^DD(2100,"B","FEE REFERENCE NUMBER",1601)=""
^DD(2100,"B","FEE SYSTEM IDENTIFIER",1602)=""
^DD(2100,"B","FEE TRANSACTION DATE",1600)=""
^DD(2100,"B","FEMALE PATIENTS EOP (DOM)",1369)=""
^DD(2100,"B","FEMALE PATIENTS EOP (SHH)",1371)=""
^DD(2100,"B","FEMALE PATIENTS EOP (SNH)",1370)=""
^DD(2100,"B","FEMALE PATIENTS REMAINING EOM",1252)=""
^DD(2100,"B","FICA INC DEC",450.47)=""
^DD(2100,"B","FICA WAGE AMT",450.46)=""
^DD(2100,"B","FIRST INCREASE GRANTED",4325)=""
^DD(2100,"B","FIRST INCREASE PENDING",4342)=""
^DD(2100,"B","FIRST NAME",222)=""
^DD(2100,"B","FISC MONTH",450.06)=""
^DD(2100,"B","FISC YEAR",450.05)=""
^DD(2100,"B","FISCAL APRV",467.24)=""
^DD(2100,"B","FISCAL YEAR",4267)=""
^DD(2100,"B","FLSA",4003)=""
^DD(2100,"B","FLUENCY EVALUATIONS",2644)=""
^DD(2100,"B","FLUIDS AND ADMIN SETS 17",3116)=""
^DD(2100,"B","FMSB ACCTG PRD",465.3)=""
^DD(2100,"B","FMSB APRV TR TYPE",465.9)=""
^DD(2100,"B","FMSB BUDGET FYS",465.5)=""
^DD(2100,"B","FMSB DATE",465.2)=""
^DD(2100,"B","FMSB FCP 1",465.1)=""
^DD(2100,"B","FMSB FCP 2",465.101)=""
^DD(2100,"B","FMSB FUND",465.4)=""
^DD(2100,"B","FMSB PEND TR TYPE",465.8)=""
^DD(2100,"B","FMSB PEND/APRV/POST IND",465.7)=""
^DD(2100,"B","FMSB POST THRU QTR",465.12)=""
^DD(2100,"B","FMSB POST TR TYPE",465.11)=""
^DD(2100,"B","FMSB TOTAL CHANGE AMT",465.6)=""
^DD(2100,"B","FOB POINT",462.23)=""
^DD(2100,"B","FORCIBLE RAPE",700.36)=""
^DD(2100,"B","FORM ID",4313.5)=""
^DD(2100,"B","FORM NUMBER",2200)=""
^DD(2100,"B","FRACTION CRF > 90 DAYS",2483)=""
^DD(2100,"B","FROM AA >96HRS (DOM)",1344)=""
^DD(2100,"B","FROM AA >96HRS (SHH)",1362)=""
^DD(2100,"B","FROM AA >96HRS (SNH)",1353)=""
^DD(2100,"B","FROM ASIH",1325)=""
^DD(2100,"B","FRUITS/VEGS TOTAL COST",4224.003)=""
^DD(2100,"B","FTEE (PART-1)",4271)=""
^DD(2100,"B","FTEE (PART-4)",4302)=""
^DD(2100,"B","FTEE PAID",4165.56)=""
^DD(2100,"B","FTEE-ADMINISTRATIVE",2517)=""
^DD(2100,"B","FTEE-ADMINISTRATIVE PERSONNEL",2517)="1"
^DD(2100,"B","FTEE-CLERKS",2523)=""
^DD(2100,"B","FTEE-DIALYSIS TECH/THERAPIST",2519)=""
^DD(2100,"B","FTEE-DIETITIANS",2521)=""
^DD(2100,"B","FTEE-NON PROFESSIONAL",2516)=""
^DD(2100,"B","FTEE-NURSES",2514)=""
^DD(2100,"B","FTEE-NURSING ASSISTANTS",2515)=""
^DD(2100,"B","FTEE-OTHER",2518)=""
^DD(2100,"B","FTEE-PHYSICIAN ASSISTANTS",2513)=""
^DD(2100,"B","FTEE-PHYSICIANS",2512)=""
^DD(2100,"B","FTEE-SOCIAL WORKERS",2520)=""
^DD(2100,"B","FTEE-TECHNICIANS",2522)=""
^DD(2100,"B","FTS TELEPHONE NUMBER",2201.04)=""
^DD(2100,"B","FULL TIME CHAPLAINS",4141.023)=""
^DD(2100,"B","FUNCTIONAL CODE",4004)=""
^DD(2100,"B","FUND",460.13)=""
^DD(2100,"B","FUNERALS (ATTENDANCE)",4141.045)=""
^DD(2100,"B","FUNERALS (SERVICES)",4141.044)=""
^DD(2100,"B","FURNITURE HANDLING (FTEE)",4217.046)=""
^DD(2100,"B","FWS PARAMETERS (COLUMN 79)",4304.98)=""
^DD(2100,"B","FWS PARAMETERS (COLUMN 80)",4304.99)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 1-9)",4304.9)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 10-19)",4304.91)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 20-29)",4304.92)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 30-39)",4304.93)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 40-49)",4304.94)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 50-59)",4304.95)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 60-69)",4304.96)=""
^DD(2100,"B","FWS PARAMETERS (COLUMNS 70-78)",4304.97)=""
^DD(2100,"B","G-1 STAFFING STANDARDS",4217.047)=""
^DD(2100,"B","G-2 STAFFING STANDARDS",4217.048)=""
^DD(2100,"B","GAIN FROM CODE (PART-2)",4283)=""
^DD(2100,"B","GAIN FROM CODE (PART-3)",4299)=""
^DD(2100,"B","GAIN OR LOSS INDICATOR",4275)=""
^DD(2100,"B","GAINS (001)",3601)=""
^DD(2100,"B","GAMES/SPORTS/ATH (ATTENDANCE)",4264.015)=""
^DD(2100,"B","GAMES/SPORTS/ATHLETICS",4265.003)=""
^DD(2100,"B","GAMES/SPORTS/ATHLETICS (HRS)",4264.003)=""
^DD(2100,"B","GASTROINTESTINAL",1473)=""
^DD(2100,"B","GENITOURINARY",1474)=""
^DD(2100,"B","GERIATRIC",4141.065)=""
^DD(2100,"B","GOV'T PROPERTY (TOTAL LOSS)",700.11)=""
^DD(2100,"B","GOV'T PROPERTY (UNDER $50)",700.1)=""
^DD(2100,"B","GOV'T VEHICLE (TOTAL LOSS)",700.15)=""
^DD(2100,"B","GOVERNMENT PROPERTY (OVER $50)",700.09)=""
^DD(2100,"B","GPO JACKET",462.76)=""
^DD(2100,"B","GPO PROGRAM",462.75)=""
^DD(2100,"B","GRADE",4007)=""
^DD(2100,"B","GRADE OF POSITION-2",4012)=""
^DD(2100,"B","GRADE OF POSITION-3",4013)=""
^DD(2100,"B","GRADE OF POSITION-4",4014)=""
^DD(2100,"B","GRATUITOUS MEALS",4224.011)=""
^DD(2100,"B","GROUP MEETINGS (PERSONS)",4141.033)=""
^DD(2100,"B","GROUP MEETINGS (TIMES)",4141.032)=""
^DD(2100,"B","GTR NUMBER",460.21)=""
^DD(2100,"B","GUARANTEED MINIMUM",4340)=""
^DD(2100,"B","HAND PICK CK IND",454.28)=""
^DD(2100,"B","HBHC",1321)=""
^DD(2100,"B","HBHC ADMISSION DATE",2200.19)=""
^DD(2100,"B","HCF CENTRAL OFFICE USE ONLY",5067)=""
^DD(2100,"B","HCF SPACE",5023)=""
^DD(2100,"B","HCF TEXT",5024)=""
^DD(2100,"B","HCF TEXT CODE",5022)=""
^DD(2100,"B","HDR ACCEPT DAY",467.06)=""
^DD(2100,"B","HDR ACCEPT MONTH",467.05)=""
^DD(2100,"B","HDR ACCEPT YEAR",467.04)=""
^DD(2100,"B","HDR BUDGET FY",454.06)=""
^DD(2100,"B","HDR DISC LOST RSN CD",454.44)=""
^DD(2100,"B","HDR END BUDGET FY",454.07)=""
^DD(2100,"B","HDR EXP REV GL IND",340.8)=""
^DD(2100,"B","HDR FUND",450.08)=""
^DD(2100,"B","HDR INT REASON CODE",467.15)=""
^DD(2100,"B","HDR INVOICE DLN",467.2)=""
^DD(2100,"B","HDR INVOICE DLN SEQ",467.21)=""
^DD(2100,"B","HDR PF IND",450.29)=""
^DD(2100,"B","HDR RECEIVER DLN",467.22)=""
^DD(2100,"B","HDR RECEIVER DLN SEQ",467.23)=""
^DD(2100,"B","HDR REF TRANS CODE",450.3)=""
^DD(2100,"B","HDR REF TRANS NUMBER",450.31)=""
^DD(2100,"B","HDR TRANS TYPE",454.09)=""
^DD(2100,"B","HDR VENDOR ADDR CODE",458.2)=""
^DD(2100,"B","HDR VENDOR ADDRESS 1",458.23)=""
^DD(2100,"B","HDR VENDOR ADDRESS 2",458.24)=""
^DD(2100,"B","HDR VENDOR ID",458.19)=""
^DD(2100,"B","HDR VENDOR INVOICE",467.08)=""
^DD(2100,"B","HDR VENDOR NAME",458.22)=""
^DD(2100,"B","HDR VI DAY",467.11)=""
^DD(2100,"B","HDR VI LOG DAY",467.14)=""
^DD(2100,"B","HDR VI LOG MONTH",467.13)=""
^DD(2100,"B","HDR VI LOG YEAR",467.12)=""
^DD(2100,"B","HDR VI MONTH",467.1)=""
^DD(2100,"B","HDR VI YEAR",467.09)=""
^DD(2100,"B","HDR WAREHOUSE CODE",462.71)=""
^DD(2100,"B","HEAD NURSE POSITIONS FILLED",4202.035)=""
^DD(2100,"B","HEADER BUDGET FY",462.06)=""
^DD(2100,"B","HEADER COST ORG",452.65)=""
^DD(2100,"B","HEADER COST SUB ORG",452.66)=""
^DD(2100,"B","HEADER DESCRIPTION",452.7)=""
^DD(2100,"B","HEADER DESCRIPTION 1",450.62)=""
^DD(2100,"B","HEADER DESCRIPTION 2",450.7)=""
^DD(2100,"B","HEADER DESCRIPTION 3",450.78)=""
^DD(2100,"B","HEADER END BUDGET FY",462.07)=""
^DD(2100,"B","HEADER EXCEPTION AMT",450.35)=""
^DD(2100,"B","HEADER FUND",462.08)=""
^DD(2100,"B","HEADER JOB NUMBER",452.67)=""
^DD(2100,"B","HEADER REPORT CAT",452.69)=""
^DD(2100,"B","HEADER SUB ORG",452.64)=""
^DD(2100,"B","HEADER XORGANIZATION",452.63)=""
^DD(2100,"B","HEADER XPROGRAM",452.68)=""
^DD(2100,"B","HEARING (WITH AID IF WORN)",2200.22)=""
^DD(2100,"B","HEARING AID EVALUATIONS",2605)=""
^DD(2100,"B","HEARING CONSERVATION",2632)=""
^DD(2100,"B","HEMO OUTPT. (HOME TRAINING)",2430)=""
^DD(2100,"B","HEMO. (HOME DIALYSIS)",2433)=""
^DD(2100,"B","HEMO. INP. (HOME TRAINING)",2429)=""
^DD(2100,"B","HEMO. TRAINING TREATMENTS",2451)=""
^DD(2100,"B","HEMODIALYSIS (LPN)",4201.023)=""
^DD(2100,"B","HEMODIALYSIS (NA)",4201.024)=""
^DD(2100,"B","HEMODIALYSIS (RN)",4201.022)=""
^DD(2100,"B","HEMODIALYSIS DAYS OF OPERATION",4200.033)=""
^DD(2100,"B","HOBBIES",4265.001)=""
^DD(2100,"B","HOBBIES (ATTENDANCE)",4264.013)=""
^DD(2100,"B","HOBBIES (HOURS)",4264.001)=""
^DD(2100,"B","HOLDBACK PYMT AMT",467.19)=""
^DD(2100,"B","HOLDBACK TOTAL",467.03)=""
^DD(2100,"B","HOLIDAY RATE",4320)=""
^DD(2100,"B","HOLY COMMUNION (BEDSIDE)",4141.035)=""
^DD(2100,"B","HOLY COMMUNION (CHAPEL)",4141.034)=""
^DD(2100,"B","HOME (SELF) DIALY. TRAINING",2403)=""
^DD(2100,"B","HOME DIALYSIS: HEMODIALYSIS",2433)="1"
^DD(2100,"B","HOME HEALTH AIDE (019)",3619)=""
^DD(2100,"B","HOME HEALTH AIDE (028)",3628)=""
^DD(2100,"B","HOME HEMO. (INIT. TRN. COMP.)",2456)=""
^DD(2100,"B","HOME HEMODIALYSIS TREATMENTS",2453)=""
^DD(2100,"B","HOME ORG",450.07)=""
^DD(2100,"B","HOME PERI. INIT. TRNG. COMP.",2458)=""
^DD(2100,"B","HOME PERIDIAL. TREATMENTS",2454)=""
^DD(2100,"B","HOMELESS",4141.061)=""
^DD(2100,"B","HONORARIA (CATHOLIC)",4142.12)=""
^DD(2100,"B","HONORARIA (E ORTHODOX)",4142.26)=""
^DD(2100,"B","HONORARIA (JEWISH)",4142.19)=""
^DD(2100,"B","HONORARIA (PROTESTANT)",4142.05)=""
^DD(2100,"B","HOSP CARE RECEIVED",1259)=""
^DD(2100,"B","HOSP WAIT LIST",1260)=""
^DD(2100,"B","HOSPITAL (081)",3580)=""
^DD(2100,"B","HOSPITAL BASED HOME CARE (LPN)",4201.038)=""
^DD(2100,"B","HOSPITAL BASED HOME CARE (NA)",4201.039)=""
^DD(2100,"B","HOSPITAL BASED HOME CARE (RN)",4201.037)=""
^DD(2100,"B","HOSPITAL TYPE OF SERV",1273)=""
^DD(2100,"B","HOURLY RATE",4017)=""
^DD(2100,"B","HOURS PAID (CHIEF)",4165.5)=""
^DD(2100,"B","HOURS PAID (CLERICAL)",4165.51)=""
^DD(2100,"B","HOURS PAID (PRODUCTION)",4165.52)=""
^DD(2100,"B","HOURS PAID OT (ALL EMPLOYEES)",4165.53)=""
^DD(2100,"B","HOURS WORKED (ALL EMPLOYEES)",4165.49)=""
^DD(2100,"B","HOURS WORKED (CHIEF)",4165.44)=""
^DD(2100,"B","HOURS WORKED (CLERICAL)",4165.45)=""
^DD(2100,"B","HOURS WORKED (PRODUCTION)",4165.47)=""
^DD(2100,"B","HOURS WORKED (TRAINEES)",4165.48)=""
^DD(2100,"B","HOURS WORKED (VOLUNTEER)",4165.46)=""
^DD(2100,"B","HQ (FTEE ASSIGNED)",4217.044)=""
^DD(2100,"B","HUMANITARIAN EMERGENCY",1309)=""
^DD(2100,"B","HYPERAL FLUIDS 15",3114)=""
^DD(2100,"B","IAM DOLLAR AMOUNT",2014)=""
^DD(2100,"B","IAM NO OF DEBTS",2006)=""
^DD(2100,"B","IAQ DOLLAR AMT",297)=""
^DD(2100,"B","IAQ NO DEBTS",290)=""
^DD(2100,"B","ID",.01)=""
^DD(2100,"B","ID (PART-1)",4269)=""
^DD(2100,"B","ID (PART-4)",4301)=""
^DD(2100,"B","ID NUMBER CHANGE",248)=""
^DD(2100,"B","ID NUMBER IDENTIFIER",247)=""
^DD(2100,"B","IDENTIFICATION NUMBER",225)=""
^DD(2100,"B","ILL/GRA I",4165.09)=""
^DD(2100,"B","ILL/GRA II",4165.1)=""
^DD(2100,"B","ILL/GRA III",4165.11)=""
^DD(2100,"B","ILL/GRA IV",4165.12)=""
^DD(2100,"B","IMMEDIATE CARE (LPN)",4201.014)=""
^DD(2100,"B","IMMEDIATE CARE (NA)",4201.015)=""
^DD(2100,"B","IMMEDIATE CARE (RN)",4201.013)=""
^DD(2100,"B","INCENTIVE RATE",4339)=""
^DD(2100,"B","INELIG-DENTAL",1268)=""
^DD(2100,"B","INELIG-OTHER",1272)=""
^DD(2100,"B","INELIG-PLASTIC SURGERY",1269)=""
^DD(2100,"B","INELIG-PREGNANCY",1271)=""
^DD(2100,"B","INELIG-STERILIZATION",1270)=""
^DD(2100,"B","INFECT CTRL FTEE CEILING",4202.008)=""
^DD(2100,"B","INFECT CTRL POSITIONS FILLED",4202.028)=""
^DD(2100,"B","INPATIENT MEALS",4224.008)=""
^DD(2100,"B","INSPECT ACCEPT DAYS",462.35)=""
^DD(2100,"B","INSTRUCTOR FTEE CEILING",4202.02)=""
^DD(2100,"B","INSTRUCTOR POSITIONS FILLED",4202.04)=""
^DD(2100,"B","INSUFFICIENT RCD FR VARO",1559)=""
^DD(2100,"B","INSURANCE",1311)=""
^DD(2100,"B","INT REASON CODE",461.26)=""
^DD(2100,"B","INTEREST RATE",460.26)=""
^DD(2100,"B","INTERIOR DESIGN",4220.004)=""
^DD(2100,"B","INTERMEDIATE (LBS ISSUED)",4219.017)=""
^DD(2100,"B","INTERMEDIATE (MAN HOURS)",4218.016)=""
^DD(2100,"B","INTERMEDIATE (NET SQUARE FEET)",4218.002)=""
^DD(2100,"B","INTERMEDIATE CARE I",4200.034)=""
^DD(2100,"B","INTERMEDIATE CARE II",4200.035)=""
^DD(2100,"B","INTERMEDIATE CARE III",4200.036)=""
^DD(2100,"B","INTERMEDIATE MEDICINE (UNITS)",4265.014)=""
^DD(2100,"B","INTERMITTENT CHAPLAINS",4141.025)=""
^DD(2100,"B","INTERVENTIONAL RADIOGRAPHY",1486)=""
^DD(2100,"B","INTR AGCY SYMBOL",455.17)=""
^DD(2100,"B","INV PROTOCOLS 027",3227)=""
^DD(2100,"B","INVENTORY TOTAL VALUE",4224.007)=""
^DD(2100,"B","INVENTORY TOTAL VALUE EOP",4224.007)="1"
^DD(2100,"B","INVESTIG DRUG RXs 028",3228)=""
^DD(2100,"B","INVITATION NUMBER",462.56)=""
^DD(2100,"B","INVOICE DATE",467.26)=""
^DD(2100,"B","J41-43 ZEROES",2999)=""
^DD(2100,"B","JEWISH CENSUS",4141.003)=""
^DD(2100,"B","JEWISH CHAPLAINS",4141.028)=""
^DD(2100,"B","JEWISH CONTRACT $'S",4141.013)=""
^DD(2100,"B","JEWISH CONTRACT CHAPLAINS",4141.009)=""
^DD(2100,"B","JEWISH FEE BASIS",4141.017)=""
^DD(2100,"B","JEWISH FEE BASIS $'S",4141.021)=""
^DD(2100,"B","JOB MATCH-1",4330)=""
^DD(2100,"B","JOB MATCH-2",4346)=""
^DD(2100,"B","JOB MATCH-3",4346.3)=""
^DD(2100,"B","JOB MATCH-4",4346.6)=""
^DD(2100,"B","JOB MATCH-5",4346.9)=""
^DD(2100,"B","JOB MATCH-6",4347.2)=""
^DD(2100,"B","JOB NUMBER",4329)=""
^DD(2100,"B","KEYPUNCH CODE SHEET",51)=""
^DD(2100,"B","LAMINAGRAM",1477)=""
^DD(2100,"B","LAST AGENCY PROVIDING CARE",2200.12)=""
^DD(2100,"B","LAST AWARD HOURS",219)=""
^DD(2100,"B","LAST AWARD MO/YR",220)=""
^DD(2100,"B","LAST NAME",221)=""
^DD(2100,"B","LAUNDRY SQUARE FOOTAGE",4219.009)=""
^DD(2100,"B","LEFT HEART PROCEDURES",2703)=""
^DD(2100,"B","LEISURE/EDUC/COUN (ATTENDANCE)",4264.023)=""
^DD(2100,"B","LEISURE/EDUC/COUNSEL (HRS)",4264.011)=""
^DD(2100,"B","LEISURE/EDUC/COUNSELING",4265.011)=""
^DD(2100,"B","LENGTH OF VA SERVICE",4286.5)=""
^DD(2100,"B","LESS THAN 1 YR. (013)",3512)=""
^DD(2100,"B","LESS THAN 1 YR. (029)",3528)=""
^DD(2100,"B","LESS THAN 1 YR. (045)",3544)=""
^DD(2100,"B","LESS THAN 1 YR. (061)",3560)=""
^DD(2100,"B","LESS THAN 1 YR. (077)",3576)=""
^DD(2100,"B","LESS THAN 25 (001)",3500)=""
^DD(2100,"B","LESS THAN 25 (017)",3516)=""
^DD(2100,"B","LESS THAN 25 (033)",3532)=""
^DD(2100,"B","LESS THAN 25 (049)",3548)=""
^DD(2100,"B","LESS THAN 25 (065)",3564)=""
^DD(2100,"B","LESS THAN 50% (012)",3597)=""
^DD(2100,"B","LIMITED/SELF CARE DIALY.",2402)=""
^DD(2100,"B","LIMITED/SELF CARE HEMO. INP.",2425)=""
^DD(2100,"B","LIMITED/SELF CARE HEMO. OUTPT.",2426)=""
^DD(2100,"B","LIMITED/SELF CARE PERI. INP.",2427)=""
^DD(2100,"B","LIMITED/SELF CARE PERI. OUTPT.",2428)=""
^DD(2100,"B","LIMITED/SELF HEMO. INIT. TRNG.",2457)=""
^DD(2100,"B","LIMITED/SELF HEMO. TREATMENTS",2445)=""
^DD(2100,"B","LIMITED/SELF INIT. TRNG.",2459)=""
^DD(2100,"B","LIMITED/SELF PERI. TREATMENTS",2448)=""
^DD(2100,"B","LINE",500)=""
^DD(2100,"B","LINE ACTION (SVB)",341.2)=""
^DD(2100,"B","LINE AMOUNT (SVB)",341.1)=""
^DD(2100,"B","LINE DESCRITION (SVB)",341.3)=""
^DD(2100,"B","LIQUOR POSSESSION/INTRODUCTION",700.67)=""
^DD(2100,"B","LOCKER AREAS (FORCED ENTRIES)",700.04)=""
^DD(2100,"B","LOG DATE",467.27)=""
^DD(2100,"B","LOSS TO CODE",4286)=""
^DD(2100,"B","LOSSES: DEATHS",2413)="1"
^DD(2100,"B","LOSSES: DEATHS IN ICU",2505)="1"
^DD(2100,"B","LOSSES: DISCHARGES",2502)="1"
^DD(2100,"B","LOSSES: OTHER",2418)="1"
^DD(2100,"B","LOSSES: RECEIVED TRANSPLANT",2415)="1"
^DD(2100,"B","LOSSES: TRANSFERS OUT TO WARD",2504)="1"
^DD(2100,"B","LOW PRIORITY-DOM CARE",1289)=""
^DD(2100,"B","LOW PRIORITY-HOSP CARE",1287)=""
^DD(2100,"B","LOW PRIORITY-NHCU CARE",1288)=""
^DD(2100,"B","LOW PRIORITY-OPT CARE",1290)=""
^DD(2100,"B","LOW PRIORITY-TO COMMUNITY",1291)=""
^DD(2100,"B","LOW PRIORITY-TO FEE",1293)=""
^DD(2100,"B","LOW PRIORITY-TO OTHER",1294)=""
^DD(2100,"B","LOW PRIORITY-TO OTHER CARE",1292)=""
^DD(2100,"B","LPN (015)",3615)=""
^DD(2100,"B","LPN (024)",3624)=""
^DD(2100,"B","LPN FTEE CEILING",4202.002)=""
^DD(2100,"B","LPN POSITIONS FILLED",4202.022)=""
^DD(2100,"B","LPN POSITIONS FILLED EOQ",4202.022)="1"
^DD(2100,"B","LWOP HOURS",4165.54)=""
^DD(2100,"B","MAILOUT 011",3211)=""
^DD(2100,"B","MAINT. DIALY. SHIFTS/DAY",2404)=""
^DD(2100,"B","MANSLAUGHTER BY EMPLOYEES",700.52)=""
^DD(2100,"B","MANSLAUGHTER BY OUTSIDERS",700.53)=""
^DD(2100,"B","MANSLAUGHTER BY PATIENTS",700.51)=""
^DD(2100,"B","MANSLAUGHTER BY UNKNOWN PERSON",700.54)=""
^DD(2100,"B","MANSLAUGHTER ON EMPLOYEE",700.56)=""
^DD(2100,"B","MANSLAUGHTER ON OUTSIDER",700.57)=""
^DD(2100,"B","MANSLAUGHTER ON PATIENT",700.55)=""
^DD(2100,"B","MARITAL STATUS",2200.1)=""
^DD(2100,"B","MAXIMUM JOB RATE",4337)=""
^DD(2100,"B","MC SEGMENT MODIFIER",2998)=""
^DD(2100,"B","MEAT, FISH, ETC. TOTAL COST",4224.001)=""
^DD(2100,"B","MEDICAID",1337)=""
^DD(2100,"B","MEDICAL (LPN)",4201.008)=""
^DD(2100,"B","MEDICAL (NA)",4201.009)=""
^DD(2100,"B","MEDICAL (RN)",4201.007)=""
^DD(2100,"B","MEDICAL CTR (ADMIN HRS)",4264.032)=""
^DD(2100,"B","MEDICAL I",4200.016)=""
^DD(2100,"B","MEDICAL II",4200.017)=""
^DD(2100,"B","MEDICAL III",4200.018)=""
^DD(2100,"B","MEDICAL IV",4200.019)=""
^DD(2100,"B","MEDICAL REQUESTS",4165.41)=""
^DD(2100,"B","MEDICAL SUPPLIES 020",3220)=""
^DD(2100,"B","MEDICAL/SURGICAL (006)",3591)=""
^DD(2100,"B","MEDICAL/SURGICAL (OUTPATIENT)",4265.032)=""
^DD(2100,"B","MEDICARE",1336)=""
^DD(2100,"B","MEDICATION 019",3219)=""
^DD(2100,"B","MEDICATION FOR WEEK OF",5025)=""
^DD(2100,"B","MEDICATION REQUESTS 005",3205)=""
^DD(2100,"B","MEDICATION SEQUENCE",5019)=""
^DD(2100,"B","MEDICINE (LBS ISSUED)",4219.018)=""
^DD(2100,"B","MEDICINE (MAN HOURS)",4218.017)=""
^DD(2100,"B","MEDICINE (NET SQUARE FEET)",4218.003)=""
^DD(2100,"B","MEDICINE (UNITS)",4265.015)=""
^DD(2100,"B","MEETINGS",2660)=""
^DD(2100,"B","MEMBER DAYS OF CARE (DOM)",1350)=""
^DD(2100,"B","MENTAL HEALTH (OUTPATIENT)",4265.028)=""
^DD(2100,"B","MENTAL HEALTH CARE MEETINGS",4141.051)=""
^DD(2100,"B","MENTAL HEALTH SETTING",4141.057)=""
^DD(2100,"B","MENTAL HYGIENE GROUP",1316)=""
^DD(2100,"B","MENTAL HYGIENE INDIVIDUAL",1317)=""
^DD(2100,"B","METHADONE 004",3204)=""
^DD(2100,"B","METHADONE PRESCRIBED",5050)=""
^DD(2100,"B","METHADONE RESULT",5052)=""
^DD(2100,"B","MGMT COMMITTEE (HRS SPENT)",4141.069)=""
^DD(2100,"B","MGMT COMMITTEE (HRS TRAIN)",4141.068)=""
^DD(2100,"B","MILEAGE",450.03)=""
^DD(2100,"B","MILEAGE COST",450.04)=""
^DD(2100,"B","MILK TOTAL COST",4224.002)=""
^DD(2100,"B","MILK/MILK PROD TOTAL COST",4224.002)="1"
^DD(2100,"B","MINIMUM JOB RATE",4336)=""
^DD(2100,"B","MINISTRY TO DYING",4141.037)=""
^DD(2100,"B","MIP DOLLAR AMOUNT",299.2)=""
^DD(2100,"B","MIP NUMBER OF DEBTS",299.1)=""
^DD(2100,"B","MISC. TOTAL COST",4224.006)=""
^DD(2100,"B","MISC/ADMIN OPERATIONS",4165.33)=""
^DD(2100,"B","MISCELLANEOUS FOODS TOTAL COST",4224.006)="1"
^DD(2100,"B","MOBILITY (WITH MECHANICAL AID)",2200.33)=""
^DD(2100,"B","MODIFICATION DOCUMENT",403)=""
^DD(2100,"B","MODIFIER",285)=""
^DD(2100,"B","MONTH",2023)=""
^DD(2100,"B","MONTH OF PAYMENT",461.18)=""
^DD(2100,"B","MONTH OF RAISES",4323)=""
^DD(2100,"B","MONTH REPORTING FOR DUTY",4300)=""
^DD(2100,"B","MONTH REQUIRED",452.49)=""
^DD(2100,"B","MONTH TRAVEL BEGINS",450.16)=""
^DD(2100,"B","MONTH TRAVEL ENDS",450.19)=""
^DD(2100,"B","MONTHS SPENT RECRUITING-PT 2",4284)=""
^DD(2100,"B","MONTHS SPENT RECRUITING-PT 3",4291)=""
^DD(2100,"B","MONTHS VACANT",4290)=""
^DD(2100,"B","MORPHINE PRESCRIBED",5041)=""
^DD(2100,"B","MORPHINE RESULT",5043)=""
^DD(2100,"B","MOVING VIOLATIONS",700.63)=""
^DD(2100,"B","MULTI-ACTIVITY LDRY (LBS)",4219.001)=""
^DD(2100,"B","MULTI-DISCIPLINARY",4141.07)=""
^DD(2100,"B","MULTIPLE JOB MATCH",4341)=""
^DD(2100,"B","MUSIC",4265.002)=""
^DD(2100,"B","MUSIC (ATTENDANCE)",4264.014)=""
^DD(2100,"B","MUSIC (HOURS)",4264.002)=""
^DD(2100,"B","MYELOGRAM",1484)=""
^DD(2100,"B","MYOCARDIAL INFARCTION",2715)=""
^DD(2100,"B","N.S.C. (009)",3609)=""
^DD(2100,"B","N.S.C. (012)",3612)=""
^DD(2100,"B","N/S/C NEW PATIENTS STARTED",2806)=""
^DD(2100,"B","N/S/C PATIENTS DROPPED",2805)=""
^DD(2100,"B","N/S/C PATIENTS ON HOME OXYGEN",2804)=""
^DD(2100,"B","NA FTEE CEILING",4202.003)=""
^DD(2100,"B","NA POSITIONS FILLED",4202.023)=""
^DD(2100,"B","NA POSITIONS FILLED EOQ",4202.023)="1"
^DD(2100,"B","NAME CODE",226)=""
^DD(2100,"B","NAME OF COMMUNITY NH",1534)=""
^DD(2100,"B","NEG PAYMENT DAYS",462.36)=""
^DD(2100,"B","NEGATIVE ADJUSTMENTS",4304)=""
^DD(2100,"B","NEGLIGENT MANSLAUGHTER",700.49)=""
^DD(2100,"B","NET PAYMENT AMT",467.18)=""
^DD(2100,"B","NEUROLOGY (LBS ISSUED)",4219.019)=""
^DD(2100,"B","NEUROLOGY (MAN HOURS)",4218.018)=""
^DD(2100,"B","NEUROLOGY (NET SQUARE FEET)",4218.004)=""
^DD(2100,"B","NEUROLOGY (UNITS)",4265.016)=""
^DD(2100,"B","NEW 008",3208)=""
^DD(2100,"B","NEW CASES",1430)=""
^DD(2100,"B","NH INSPECTED/ACCREDITED",1541)=""
^DD(2100,"B","NHCU (082)",3581)=""
^DD(2100,"B","NHCU (LBS ISSUED)",4219.023)=""
^DD(2100,"B","NHCU (MAN HOURS)",4218.022)=""
^DD(2100,"B","NHCU (NET SQUARE FEET)",4218.008)=""
^DD(2100,"B","NHCU CARE RECEIVED",1261)=""
^DD(2100,"B","NHCU CARE TYPE OF SERV",1274)=""
^DD(2100,"B","NHCU WAIT LIST",1262)=""
^DD(2100,"B","NHQ (FTEE ASSIGNED)",4217.043)=""
^DD(2100,"B","NO CHECK DISB FLAG",450.52)=""
^DD(2100,"B","NO FURTHER TREATMENT REQ(-)",1432)=""
^DD(2100,"B","NO OF OPTIONS",462.38)=""
^DD(2100,"B","NO PAY",249)=""
^DD(2100,"B","NO PAY VISITS",282)=""
^DD(2100,"B","NO. OF 10-2418A TRANSMITTED",2026)=""
^DD(2100,"B","NO. OF ALCOHOL/DRUG TRMT WARDS",4200.01)=""
^DD(2100,"B","NO. OF CRITICAL CARE UNITS",4200.043)=""
^DD(2100,"B","NO. OF HEMODIALYSIS TREATMENTS",4200.031)=""
^DD(2100,"B","NO. OF HEMODIALYSIS UNITS",4200.032)=""
^DD(2100,"B","NO. OF INTERMEDIATE WARDS",4200.037)=""
^DD(2100,"B","NO. OF MEDICAL WARDS",4200.02)=""
^DD(2100,"B","NO. OF NURSING HOME CARE WARDS",4200.03)=""
^DD(2100,"B","NO. OF OPERATING ROOMS",4200.048)=""
^DD(2100,"B","NO. OF PSYCHIATRIC WARDS",4200.005)=""
^DD(2100,"B","NO. OF RECOVERY ROOM BEDS",4200.052)=""
^DD(2100,"B","NO. OF SPINAL CORD INJ WARDS",4200.026)=""
^DD(2100,"B","NO. OF SURGICAL WARDS",4200.015)=""
^DD(2100,"B","NO. VETS INTERMEDIATE HOME",1546)=""
^DD(2100,"B","NON MEDICAL REQUESTS",4165.42)=""
^DD(2100,"B","NON-NEGLIGENT MANSLAUGHTER",700.5)=""
^DD(2100,"B","NON-PAID HOURS",4220.006)=""
^DD(2100,"B","NON-PARTICIPATION CODE",4313)=""
^DD(2100,"B","NON-PROFESSIONAL FTEE",1440)=""
^DD(2100,"B","NON-VA PATIENTS TREATED",2441)=""
^DD(2100,"B","NON-VET BED OCCUPANTS EOP(DOM)",1372)=""
^DD(2100,"B","NON-VET BED OCCUPANTS EOP(SHH)",1374)=""
^DD(2100,"B","NON-VET BED OCCUPANTS EOP(SNH)",1373)=""
^DD(2100,"B","NON-VETERAN APPLICANTS",1297)=""
^DD(2100,"B","NORMAL WORKWEEK",4321)=""
^DD(2100,"B","NOT TESTED-QTY NOT SUFFICIENT",5062)=""
^DD(2100,"B","NR TRD-CRFT-LBR(PLANT) WORKERS",4322)=""
^DD(2100,"B","NSC (011)",3596)=""
^DD(2100,"B","NSC,RECEIVING VA PENSION",1301)=""
^DD(2100,"B","NUMBER OF APPLICATIONS",1258)=""
^DD(2100,"B","NUMBER OF BEDS IN CNH",1539)=""
^DD(2100,"B","NUMBER OF DAYS",450.14)=""
^DD(2100,"B","NUMBER OF DEBITS (MONTHLY)",286)=""
^DD(2100,"B","NUMBER OF DEBTS (QUARTERLY)",283)=""
^DD(2100,"B","NUMBER OF EMPLOYEES-1",4331)=""
^DD(2100,"B","NUMBER OF EMPLOYEES-2",4346.1)=""
^DD(2100,"B","NUMBER OF EMPLOYEES-3",4346.4)=""
^DD(2100,"B","NUMBER OF EMPLOYEES-4",4346.7)=""
^DD(2100,"B","NUMBER OF EMPLOYEES-5",4347)=""
^DD(2100,"B","NUMBER OF EMPLOYEES-6",4347.3)=""
^DD(2100,"B","NUMBER OF FILMS USED",1493)=""
^DD(2100,"B","NUMBER OF STEPS",4335)=""
^DD(2100,"B","NUMBER OF VACANCIES",4011)=""
^DD(2100,"B","NUMBER OF VISITS",244)=""
^DD(2100,"B","NUMBER S-C FOR OTHER",2440)="1"
^DD(2100,"B","NUMBER S-C FOR RENAL DISEASE",2439)="1"
^DD(2100,"B","NURSE PRAC FTEE CEILING",4202.007)=""
^DD(2100,"B","NURSE PRAC POSITIONS FILLED",4202.027)=""
^DD(2100,"B","NURSING HOME CARE (LPN)",4201.017)=""
^DD(2100,"B","NURSING HOME CARE (NA)",4201.018)=""
^DD(2100,"B","NURSING HOME CARE (RN)",4201.016)=""
^DD(2100,"B","NURSING HOME CARE I",4200.027)=""
^DD(2100,"B","NURSING HOME CARE II",4200.028)=""
^DD(2100,"B","NURSING HOME CARE III",4200.029)=""
^DD(2100,"B","NUT. PROD. TOTAL COST",4224.005)=""
^DD(2100,"B","OBLIG TRANS TYPE",452.38)=""
^DD(2100,"B","OBLIGATION FISCAL YR",341.7)=""
^DD(2100,"B","OBSTRUCTIVE SERIES",1470)=""
^DD(2100,"B","OCCUPATION SERIES",235)=""
^DD(2100,"B","OCCUPATIONAL SERIES & TITLE",4006)=""
^DD(2100,"B","OCR PRINT FLAG",450.8)=""
^DD(2100,"B","OFF DUTY HOURS",462.54)=""
^DD(2100,"B","OFF STATION TRAVEL-AUDIOLOGY",2635)=""
^DD(2100,"B","OFF STATION TRAVEL-SPEECH PATH",2658)=""
^DD(2100,"B","OFFERS MADE",4285)=""
^DD(2100,"B","OFFERS MADE BY VA",4292)=""
^DD(2100,"B","OFFERS REFUSED",4293)=""
^DD(2100,"B","OFFICE OF THE CHIEF",4220.001)=""
^DD(2100,"B","OFFSET CASH ACCOUNT",340.2)=""
^DD(2100,"B","ON DUTY HOURS-AUDIOLOGIST",2603)=""
^DD(2100,"B","ON DUTY HRS-SPEECH PATHOLOGIST",2604)=""
^DD(2100,"B","ON STATION TRAVEL-AUDIOLOGY",2634)=""
^DD(2100,"B","ON STATION TRAVEL-SPEECH PATH.",2657)=""
^DD(2100,"B","ONCOLOGY",4141.063)=""
^DD(2100,"B","OPERATING BEDS EOM",1251)=""
^DD(2100,"B","OPERATING DAYS PER WEEK",2405)=""
^DD(2100,"B","OPERATING ROOM (LPN)",4201.026)=""
^DD(2100,"B","OPERATING ROOM (NA)",4201.027)=""
^DD(2100,"B","OPERATING ROOM (RN)",4201.025)=""
^DD(2100,"B","OPERATING ROOM I",4200.044)=""
^DD(2100,"B","OPERATING ROOM II",4200.045)=""
^DD(2100,"B","OPERATING ROOM III",4200.046)=""
^DD(2100,"B","OPERATING ROOM IV",4200.047)=""
^DD(2100,"B","OPT CARE TYPE OF SERV",1276)=""
^DD(2100,"B","OR (FTEE ASSIGNED)",4217.042)=""
^DD(2100,"B","ORAL MOTOR STRUCTURAL EVAL.",2642)=""
^DD(2100,"B","ORGANIC & SENILE DISEASE (008)",3593)=""
^DD(2100,"B","ORGANIZATION & COST CENTER",4008)=""
^DD(2100,"B","ORIENTATION LECTURES",4141.049)=""
^DD(2100,"B","OT/COMP HOURS WORKED",4217.039)=""
^DD(2100,"B","OTH PTNT ORIENT ACT 026",3226)=""
^DD(2100,"B","OTHER",1488)=""
^DD(2100,"B","OTHER (-)",1434)=""
^DD(2100,"B","OTHER (030)",3630)=""
^DD(2100,"B","OTHER (086)",3585)=""
^DD(2100,"B","OTHER (LBS ISSUED)",4219.029)=""
^DD(2100,"B","OTHER (MAN HOURS)",4218.028)=""
^DD(2100,"B","OTHER (NET SQUARE FEET)",4218.014)=""
^DD(2100,"B","OTHER ADM./RE-ADM. (DIALY.)",2412)=""
^DD(2100,"B","OTHER ADMN FTEE CEILING",4202.016)=""
^DD(2100,"B","OTHER CONTACTS-AUDIOLOGY",2628)=""
^DD(2100,"B","OTHER CONTACTS-SPEECH PATH.",2652)=""
^DD(2100,"B","OTHER DONATIONS (CATHOLIC)",4142.09)=""
^DD(2100,"B","OTHER DONATIONS (E ORTHODOX)",4142.23)=""
^DD(2100,"B","OTHER DONATIONS (JEWISH)",4142.16)=""
^DD(2100,"B","OTHER DONATIONS (PROTESTANT)",4142.02)=""
^DD(2100,"B","OTHER DRUG 1 PRESCRIBED",5053)=""
^DD(2100,"B","OTHER DRUG 1 RESULT",5055)=""
^DD(2100,"B","OTHER DRUG 2 PRESCRIBED",5056)=""
^DD(2100,"B","OTHER DRUG 2 RESULT",5058)=""
^DD(2100,"B","OTHER DRUG 3 PRESCRIBED",5059)=""
^DD(2100,"B","OTHER DRUG 3 RESULT",5061)=""
^DD(2100,"B","OTHER EDUCATIONAL 024",3224)=""
^DD(2100,"B","OTHER FEDERAL AGENCY",1307)=""
^DD(2100,"B","OTHER GIVEN (TRAINING HRS)",4264.027)=""
^DD(2100,"B","OTHER HOURS",4264.04)=""
^DD(2100,"B","OTHER INSTITUTION CARE (011)",3510)=""
^DD(2100,"B","OTHER INSTITUTION CARE (027)",3526)=""
^DD(2100,"B","OTHER INSTITUTION CARE (043)",3542)=""
^DD(2100,"B","OTHER INSTITUTION CARE (059)",3558)=""
^DD(2100,"B","OTHER INSTITUTION CARE (075)",3574)=""
^DD(2100,"B","OTHER LOSSES (005)",3605)=""
^DD(2100,"B","OTHER LOSSES (DIALY.)",2418)=""
^DD(2100,"B","OTHER MAJOR COMPLICATIONS",2719)=""
^DD(2100,"B","OTHER NSC",1302)=""
^DD(2100,"B","OTHER PERSONS COMMITTING RAPE",700.41)=""
^DD(2100,"B","OTHER POSITIONS FILLED",4202.036)=""
^DD(2100,"B","OTHER POSITIONS FILLED EOQ",4202.036)="1"
^DD(2100,"B","OTHER SITE OF LESION TESTS",2620)=""
^DD(2100,"B","OTHER SUPPLIES 021",3221)=""
^DD(2100,"B","OTHER TAKEN (TRAINING HRS)",4264.028)=""
^DD(2100,"B","OTHER TRAINING RECEIVED",2662)=""
^DD(2100,"B","OTHERS (021)",3621)=""
^DD(2100,"B","OTO-IMMITTANCE",2617)=""
^DD(2100,"B","OUTDOOR REC (ATTENDANCE)",4264.02)=""
^DD(2100,"B","OUTDOOR RECREATION",4265.008)=""
^DD(2100,"B","OUTDOOR RECREATION (HOURS)",4264.008)=""
^DD(2100,"B","OUTPATIENT CARE RECEIVED",1265)=""
^DD(2100,"B","OUTPATIENT MEALS",4224.009)=""
^DD(2100,"B","OUTPATIENTS SEEN (TIMES)",4141.056)=""
^DD(2100,"B","OUTPT SERVICE CONNECTED 001",3201)=""
^DD(2100,"B","OUTSIDE VANDALISM",700.6)=""
^DD(2100,"B","OUTSIDERS COMMITTING RAPE",700.4)=""
^DD(2100,"B","OUTSTANDING BALANCE",452.22)=""
^DD(2100,"B","OVER 25 BEDS (005)",3590)=""
^DD(2100,"B","OVER 3 DAYS TO SCHEDULE",1457)=""
^DD(2100,"B","OVER 30 DAYS TO EXAMINE",1458)=""
^DD(2100,"B","OVER 5 YRS. (016)",3515)=""
^DD(2100,"B","OVER 5 YRS. (032)",3531)=""
^DD(2100,"B","OVER 5 YRS. (048)",3547)=""
^DD(2100,"B","OVER 5 YRS. (064)",3563)=""
^DD(2100,"B","OVER 5 YRS. (080)",3579)=""
^DD(2100,"B","OVERTIME 014",3214)=""
^DD(2100,"B","OVERTIME 016",3216)=""
^DD(2100,"B","OVERTIME 22",3121)=""
^DD(2100,"B","OVERTIME 24",3123)=""
^DD(2100,"B","OVERTIME DAILY HOURS",4316)=""
^DD(2100,"B","OVERTIME DAILY RATE",4315)=""
^DD(2100,"B","OVERTIME WEEKLY HOURS",4318)=""
^DD(2100,"B","OVERTIME WEEKLY RATE",4317)=""
^DD(2100,"B","OWED EMPLOYEE",450.44)=""
^DD(2100,"B","OWED INC DEC",450.45)=""
^DD(2100,"B","OXY. DEPENDENT VENTILATOR PAT.",2811)=""
^DD(2100,"B","PAD 2 SPACES",2200.54)=""
^DD(2100,"B","PAD FORM 35 SPACES (AT END)",2201.11)=""
^DD(2100,"B","PAD FORM 7 SPACES",2201.1)=""
^DD(2100,"B","PAD HBHC 73 SPACES",2200.55)=""
^DD(2100,"B","PAD HBHC5 46 SPACES",2200.39)=""
^DD(2100,"B","PAGE NUMBER",4354)=""
^DD(2100,"B","PAID HOURS(DIAG TECH)",1523)=""
^DD(2100,"B","PAID HOURS(THERAP TECH)",1525)=""
^DD(2100,"B","PAID MEALS",4224.01)=""
^DD(2100,"B","PAID TRANSMISSION NUMBER",2021)=""
^DD(2100,"B","PART TIME CHAPLAINS",4141.024)=""
^DD(2100,"B","PART-TIME POSITION",4020)=""
^DD(2100,"B","PARTICIPANT'S NAME",231)=""
^DD(2100,"B","PATIENT DATE OF BIRTH",5007)=""
^DD(2100,"B","PATIENT DAYS OF CARE",1245)=""
^DD(2100,"B","PATIENT DAYS OF CARE",2507)="1"
^DD(2100,"B","PATIENT DAYS OF CARE ( >45)",1246)=""
^DD(2100,"B","PATIENT DAYS OF CARE (007)",3607)=""
^DD(2100,"B","PATIENT DAYS OF CARE (1-45)",1381)=""
^DD(2100,"B","PATIENT DAYS OF CARE (M)",2507)=""
^DD(2100,"B","PATIENT DAYS OF CARE (SHH)",1368)=""
^DD(2100,"B","PATIENT DAYS OF CARE (SNH)",1359)=""
^DD(2100,"B","PATIENT FIRST NAME",5003)=""
^DD(2100,"B","PATIENT IDENTIFICATION NUMBER",5001)=""
^DD(2100,"B","PATIENT LAST NAME",5002)=""
^DD(2100,"B","PATIENT MI",5004)=""
^DD(2100,"B","PATIENT SEX",5006)=""
^DD(2100,"B","PATIENT TRMT MEETINGS",4264.03)=""
^DD(2100,"B","PATIENT VANDALISM",700.58)=""
^DD(2100,"B","PATIENT VISITS",1492)=""
^DD(2100,"B","PATIENT'S CLOTHING (COUNT)",4219.006)=""
^DD(2100,"B","PATIENT/RELATIVE CONSULTATIONS",4141.042)=""
^DD(2100,"B","PATIENTS COMMITTING RAPE",700.38)=""
^DD(2100,"B","PATIENTS FULL NAME",2200.17)=""
^DD(2100,"B","PATIENTS LAST NAME",2200.44)=""
^DD(2100,"B","PATIENTS ON COMPRESSED GAS",2807)=""
^DD(2100,"B","PATIENTS ON LIQUID OXYGEN",2808)=""
^DD(2100,"B","PATIENTS ON OWNED CONCEN.",2810)=""
^DD(2100,"B","PATIENTS ON RENTED CONCEN.",2809)=""
^DD(2100,"B","PATIENTS REMAINING",2506)=""
^DD(2100,"B","PATIENTS WAITING FOR THERAPY",2637)=""
^DD(2100,"B","PAY PLAN",4005)=""
^DD(2100,"B","PAY PLAN ",4016)=""
^DD(2100,"B","PAY VISITS",281)=""
^DD(2100,"B","PAYMENT OFFSET IND",341.92)=""
^DD(2100,"B","PCS AUTH CODES",452.34)=""
^DD(2100,"B","PEND 121 DAYS TO 150 DAYS",1461)=""
^DD(2100,"B","PEND 12MO AND OVER PR1 AUDIO",1418)=""
^DD(2100,"B","PEND 12MO AND OVER PR1 OTHER",1420)=""
^DD(2100,"B","PEND 12MO AND OVER PR1 PSYCH",1419)=""
^DD(2100,"B","PEND 12MO AND OVER PR2 AUDIO",1421)=""
^DD(2100,"B","PEND 12MO AND OVER PR2 OTHER",1423)=""
^DD(2100,"B","PEND 12MO AND OVER PR2 PSYCH",1422)=""
^DD(2100,"B","PEND 151 DAYS TO 180 DAYS",1462)=""
^DD(2100,"B","PEND 181 DAYS TO 365 DAYS",1463)=""
^DD(2100,"B","PEND 1MO OR LESS PR1 AUDIO",1394)=""
^DD(2100,"B","PEND 1MO OR LESS PR1 OTHER",1396)=""
^DD(2100,"B","PEND 1MO OR LESS PR1 PSYCH",1395)=""
^DD(2100,"B","PEND 1MO OR LESS PR2 AUDIO",1397)=""
^DD(2100,"B","PEND 1MO OR LESS PR2 OTHER",1399)=""
^DD(2100,"B","PEND 1MO OR LESS PR2 PSYCH",1398)=""
^DD(2100,"B","PEND 2MO OR LESS PR1 AUDIO",1400)=""
^DD(2100,"B","PEND 2MO OR LESS PR1 OTHER",1402)=""
^DD(2100,"B","PEND 2MO OR LESS PR1 PSYCH",1401)=""
^DD(2100,"B","PEND 2MO OR LESS PR2 AUDIO",1403)=""
^DD(2100,"B","PEND 2MO OR LESS PR2 OTHER",1405)=""
^DD(2100,"B","PEND 2MO OR LESS PR2 PSYCH",1404)=""
^DD(2100,"B","PEND 366 DAYS AND OVER",1464)=""
^DD(2100,"B","PEND 6 TO <12 MO PR1 AUDIO",1412)=""
^DD(2100,"B","PEND 6 TO <12 MO PR1 OTHER",1414)=""
^DD(2100,"B","PEND 6 TO <12 MO PR1 PSYCH",1413)=""
^DD(2100,"B","PEND 6 TO <12 MO PR2 AUDIO",1415)=""
^DD(2100,"B","PEND 6 TO <12 MO PR2 OTHER",1417)=""
^DD(2100,"B","PEND 6 TO <12 MO PR2 PSYCH",1416)=""
^DD(2100,"B","PEND 90 DAYS OR LESS",1459)=""
^DD(2100,"B","PEND 91 DAYS TO 120 DAYS",1460)=""
^DD(2100,"B","PEND LESS THAN 6MO PR1 AUDIO",1406)=""
^DD(2100,"B","PEND LESS THAN 6MO PR1 OTHER",1408)=""
^DD(2100,"B","PEND LESS THAN 6MO PR1 PSYCH",1407)=""
^DD(2100,"B","PEND LESS THAN 6MO PR2 AUDIO",1409)=""
^DD(2100,"B","PEND LESS THAN 6MO PR2 OTHER",1411)=""
^DD(2100,"B","PEND LESS THAN 6MO PR2 PSYCH",1410)=""
^DD(2100,"B","PENDING DETERMINATION",1295)=""
^DD(2100,"B","PENDING EOM",1455)=""
^DD(2100,"B","PENDING PRIOR MONTH",1451)=""
^DD(2100,"B","PER DIEM AMOUNT",452.36)=""
^DD(2100,"B","PER DIEM CODE",452.35)=""
^DD(2100,"B","PER DIEM INC DEC",452.37)=""
^DD(2100,"B","PER DIEM RATE (HIGH)",1542)=""
^DD(2100,"B","PER DIEM RATE (LOW)",1543)=""
^DD(2100,"B","PER DIEM-DOLLARS/CENTS",246)=""
^DD(2100,"B","PERFORATION",2717)=""
^DD(2100,"B","PERI. (HOME DIALYSIS)",2434)=""
^DD(2100,"B","PERI. INP. (HOME TRAINING)",2431)=""
^DD(2100,"B","PERI. OUTPT. (HOME TRAINING)",2432)=""
^DD(2100,"B","PERIDIAL. TRAINING TREATMENTS",2452)=""
^DD(2100,"B","PERIOD ENDING",4350)=""
^DD(2100,"B","PERIOD OF SERVICE",2200.07)=""
^DD(2100,"B","PERIPHERAL VASCULAR",2718)=""
^DD(2100,"B","PERIPHERAL(ANGIO or CATH)",1482)=""
^DD(2100,"B","PERMANENT PACEMAKERS",2706)=""
^DD(2100,"B","PERSON ABUSE",4141.064)=""
^DD(2100,"B","PERSONAL COMFORT",4264.044)=""
^DD(2100,"B","PERSONAL PROPERTY (OVER $50)",700.06)=""
^DD(2100,"B","PERSONAL PROPERTY (TOTAL LOSS)",700.08)=""
^DD(2100,"B","PERSONAL PROPERTY (UNDER $50)",700.07)=""
^DD(2100,"B","PERSONNEL (TOTAL COST)",4165.38)=""
^DD(2100,"B","PHARMACY (FORCED ENTRIES)",700.03)=""
^DD(2100,"B","PHOTO I",4165.01)=""
^DD(2100,"B","PHOTO II",4165.02)=""
^DD(2100,"B","PHOTO III",4165.03)=""
^DD(2100,"B","PHOTO IV",4165.04)=""
^DD(2100,"B","PHYSICAL ARRESTS",700.73)=""
^DD(2100,"B","PHYSICAL FITNESS",4265.009)=""
^DD(2100,"B","PHYSICAL FITNESS (ATTENDANCE)",4264.021)=""
^DD(2100,"B","PHYSICAL FITNESS (HOURS)",4264.009)=""
^DD(2100,"B","PHYSICIAN (013)",3613)=""
^DD(2100,"B","PHYSICIAN (022)",3622)=""
^DD(2100,"B","PHYSICIAN GRADE (PART-2)",4278)=""
^DD(2100,"B","PHYSICIAN GRADE (PART-3)",4294)=""
^DD(2100,"B","PHYSICIAN STEP (PART-2)",4279)=""
^DD(2100,"B","PHYSICIAN STEP (PART-3)",4295)=""
^DD(2100,"B","PICK UP CHECK",452.59)=""
^DD(2100,"B","PICKUP CODE",5018)=""
^DD(2100,"B","PIGGY BACKS 13",3112)=""
^DD(2100,"B","PLANNED OFF FACILITY COMM",4264.045)=""
^DD(2100,"B","PMT SEQUENCE NUMBER",450.49)=""
^DD(2100,"B","POSITION NUMBER",4002)=""
^DD(2100,"B","POSITIVE ADJUSTMENTS",4303)=""
^DD(2100,"B","POST TRAUMATIC STRESS",4141.058)=""
^DD(2100,"B","PRE & POST SURGERY VISITS",4141.041)=""
^DD(2100,"B","PREPARED BY",.95)=""
^DD(2100,"B","PREVIOUS PARTICIPATION",4311)=""
^DD(2100,"B","PRIMARY DIAGNOSIS",2200.2)=""
^DD(2100,"B","PRIMARY REASON FOR REJECTION",2200.15)=""
^DD(2100,"B","PRINT CHECK FLAG",450.5)=""
^DD(2100,"B","PRINT FLAG",452.16)=""
^DD(2100,"B","PRINT PO",462.46)=""
^DD(2100,"B","PRIVATE VEHICLE (TOTAL LOSS)",700.17)=""
^DD(2100,"B","PROFESSIONAL (OTHER MEETING)",4264.033)=""
^DD(2100,"B","PROFESSIONAL FTEE",1439)=""
^DD(2100,"B","PROGRAM SERVICES",4264.043)=""
^DD(2100,"B","PROGRESS NOTES-AUDIOLOGY",2627)=""
^DD(2100,"B","PROGRESS NOTES-SPEECH PATH.",2651)=""
^DD(2100,"B","PROMPT PAY TYPE",467.16)=""
^DD(2100,"B","PROSTHETICS EVAL.-SPEECH PATH.",2653)=""
^DD(2100,"B","PROSTHETICS EVALUATION-AUD.",2629)=""
^DD(2100,"B","PROTESTANT CENSUS",4141.001)=""
^DD(2100,"B","PROTESTANT CHAPLAINS",4141.026)=""
^DD(2100,"B","PROTESTANT CONTRACT $'S",4141.011)=""
^DD(2100,"B","PROTESTANT CONTRACT CHAPLAINS",4141.007)=""
^DD(2100,"B","PROTESTANT FEE BASIS",4141.015)=""
^DD(2100,"B","PROTESTANT FEE BASIS $'S",4141.019)=""
^DD(2100,"B","PROVIDER #, DIGIT 1",2200.4)=""
^DD(2100,"B","PROVIDER #, DIGIT 2",2200.41)=""
^DD(2100,"B","PROVIDER #, DIGIT 3",2200.42)=""
^DD(2100,"B","PROX EOM 1",454.46)=""
^DD(2100,"B","PROX EOM 2",454.47)=""
^DD(2100,"B","PROX EOM 3",454.48)=""
^DD(2100,"B","PSEUDO INDICATOR",201)=""
^DD(2100,"B","PSYCHIATRIC (LPN)",4201.002)=""
^DD(2100,"B","PSYCHIATRIC (NA)",4201.003)=""
^DD(2100,"B","PSYCHIATRIC (RN)",4201.001)=""
^DD(2100,"B","PSYCHIATRIC I",4200.001)=""
^DD(2100,"B","PSYCHIATRIC II",4200.002)=""
^DD(2100,"B","PSYCHIATRIC III",4200.003)=""
^DD(2100,"B","PSYCHIATRIC IV",4200.004)=""
^DD(2100,"B","PSYCHIATRY (LBS ISSUED)",4219.016)=""
^DD(2100,"B","PSYCHIATRY (MAN HOURS)",4218.015)=""
^DD(2100,"B","PSYCHIATRY (NET SQUARE FEET)",4218.001)=""
^DD(2100,"B","PSYCHIATRY (UNITS)",4265.013)=""
^DD(2100,"B","PSYCHOSIS/NEUROSIS (007)",3592)=""
^DD(2100,"B","PUB HLTH FTEE CEILING",4202.009)=""
^DD(2100,"B","PUB HLTH POSITIONS FILLED",4202.029)=""
^DD(2100,"B","PUBLICATION CTL",462.77)=""
^DD(2100,"B","PURCHASE METHOD",462.39)=""
^DD(2100,"B","PURE TONE AIR CONDUCTION",2612)=""
^DD(2100,"B","PURE TONE BONE CONDUCTION",2613)=""
^DD(2100,"B","QUANTITY ORDERED",2201.09)=""
^DD(2100,"B","QUARTER",4266)=""
^DD(2100,"B","QUARTERLY COST-COMPRESSED GAS",2812)=""
^DD(2100,"B","QUARTERLY COSTS-LIQUID OXYGEN",2813)=""
^DD(2100,"B","QUARTERLY COSTS-RENTED CONCEN.",2814)=""
^DD(2100,"B","QUARTERLY COSTS-VENTILATORS",2816)=""
^DD(2100,"B","QUAT. COSTS-VA OWNED CONCEN.",2815)=""
^DD(2100,"B","RACE/ETHNICITY",2200.09)=""
^DD(2100,"B","RADIO & TV (TIMES)",4141.047)=""
^DD(2100,"B","RAPE OF EMPLOYEES",700.43)=""
^DD(2100,"B","RAPE OF OUTSIDERS",700.44)=""
^DD(2100,"B","RAPE OF PATIENTS",700.42)=""
^DD(2100,"B","READJUSTMENT COUNSELING",1320)=""
^DD(2100,"B","READY FOR BATCHING",.1)=""
^DD(2100,"B","READY FOR TRANSMISSION",.15)=""
^DD(2100,"B","REASON FOR INCREASE GRANTED-1",4326)=""
^DD(2100,"B","REASON FOR INCREASE GRANTED-2",4327.5)=""
^DD(2100,"B","REASON FOR PENDING INCREASE-1",4342.5)=""
^DD(2100,"B","REASON FOR PENDING INCREASE-2",4344)=""
^DD(2100,"B","REASON FOR RATE CHANGE",4338)=""
^DD(2100,"B","REC'D FR ADJ PR1 AUDIO",1382)=""
^DD(2100,"B","REC'D FR ADJ PR1 OTHER",1384)=""
^DD(2100,"B","REC'D FR ADJ PR1 PSYCH",1383)=""
^DD(2100,"B","REC'D FR ADJ PR2 AUDIO",1385)=""
^DD(2100,"B","REC'D FR ADJ PR2 OTHER",1387)=""
^DD(2100,"B","REC'D FR ADJ PR2 PSYCH",1386)=""
^DD(2100,"B","REC. CARE FROM RPTG. UNIT",2406)=""
^DD(2100,"B","RECEIPT/SELL STOLEN PROPERTY",700.69)=""
^DD(2100,"B","RECEIVED",1452)=""
^DD(2100,"B","RECEIVED BY",463.01)=""
^DD(2100,"B","RECEIVED TRANSPLANT",2415)=""
^DD(2100,"B","RECEIVER DLN",463.07)=""
^DD(2100,"B","RECEIVER REQUIRED",462.47)=""
^DD(2100,"B","RECEPTIVE COMMUNICATION",2200.24)=""
^DD(2100,"B","RECORD DAY",450.13)=""
^DD(2100,"B","RECORD MONTH",450.12)=""
^DD(2100,"B","RECORD YEAR",450.11)=""
^DD(2100,"B","RECOVERED KIDNEY FUNCTION",2414)=""
^DD(2100,"B","RECOVERY ROOM (LPN)",4201.044)=""
^DD(2100,"B","RECOVERY ROOM (NA)",4201.045)=""
^DD(2100,"B","RECOVERY ROOM (RN)",4201.043)=""
^DD(2100,"B","RECOVERY ROOM I",4200.049)=""
^DD(2100,"B","RECOVERY ROOM II",4200.05)=""
^DD(2100,"B","RECOVERY ROOM III",4200.051)=""
^DD(2100,"B","RECREATION (ADMIN HRS)",4264.031)=""
^DD(2100,"B","RECREATION EQUIPMENT",4264.041)=""
^DD(2100,"B","RECREATION MATERIALS",4264.042)=""
^DD(2100,"B","REF ADV TRANS CODE",461.4)=""
^DD(2100,"B","REF ADV TRANS LINE",461.42)=""
^DD(2100,"B","REF ADV TRANS NUMBER",461.41)=""
^DD(2100,"B","REF TRANS CODE",463.08)=""
^DD(2100,"B","REF TRANS NUMBER",463.09)=""
^DD(2100,"B","REFILL 009",3209)=""
^DD(2100,"B","REGULAR 013",3213)=""
^DD(2100,"B","REGULAR 015",3215)=""
^DD(2100,"B","REGULAR 21",3120)=""
^DD(2100,"B","REGULAR 23",3122)=""
^DD(2100,"B","REGULAR VISITATIONS",4141.055)=""
^DD(2100,"B","REHAB MEDICINE (LBS ISSUED)",4219.02)=""
^DD(2100,"B","REHAB MEDICINE (MAN HOURS)",4218.019)=""
^DD(2100,"B","REHAB MEDICINE (NET SQ FEET)",4218.005)=""
^DD(2100,"B","REHAB MEDICINE (UNITS)",4265.017)=""
^DD(2100,"B","REHOSPITALIZATION (003)",3603)=""
^DD(2100,"B","REIMBUR.DAYS UNAUTH CARE(MED)",1216)=""
^DD(2100,"B","REIMBUR.DAYS UNAUTH CARE(PSYC)",1234)=""
^DD(2100,"B","REIMBUR.DAYS UNAUTH CARE(SURG)",1225)=""
^DD(2100,"B","RELATED GBL",462.73)=""
^DD(2100,"B","RELIGIOUS SERVICES (PERSONS)",4141.031)=""
^DD(2100,"B","RELIGIOUS SERVICES (TIMES)",4141.03)=""
^DD(2100,"B","REM DOLLAR AMOUNT",2013)=""
^DD(2100,"B","REM NO OF DEBTS",2005)=""
^DD(2100,"B","REMAINING ADVANCE",452.23)=""
^DD(2100,"B","REMAINING HBHC PATIENTS (006)",3606)=""
^DD(2100,"B","REOPENED CASES",1431)=""
^DD(2100,"B","REPORT PERIOD",4349)=""
^DD(2100,"B","REQ DOLLAR AMOUNT",296)=""
^DD(2100,"B","REQ NO. DEBTS",289)=""
^DD(2100,"B","REQUISITION NUMBER",2201.03)=""
^DD(2100,"B","RESEARCH (LBS ISSUED)",4219.027)=""
^DD(2100,"B","RESEARCH (MAN HOURS)",4218.026)=""
^DD(2100,"B","RESEARCH (NET SQUARE FEET)",4218.012)=""
^DD(2100,"B","RESEARCH FTEE CEILING",4202.017)=""
^DD(2100,"B","RESEARCH HOURS",2665)=""
^DD(2100,"B","RESEARCH POSITIONS FILLED",4202.037)=""
^DD(2100,"B","RESEARCH POSITIONS FILLED EOQ",4202.037)="1"
^DD(2100,"B","RESEARCH REQUESTS",4165.43)=""
^DD(2100,"B","RESEARCH STAFF HOURS",4264.029)=""
^DD(2100,"B","RESEARCH USE OF CCL",2711)=""
^DD(2100,"B","RESERVED",243)=""
^DD(2100,"B","RESERVED-1",4021)=""
^DD(2100,"B","RESIDENTS & INTERNS 023",3223)=""
^DD(2100,"B","RESP PERSON",462.11)=""
^DD(2100,"B","RET TO ADJ PR1 AUDIO",1388)=""
^DD(2100,"B","RET TO ADJ PR1 OTHER",1390)=""
^DD(2100,"B","RET TO ADJ PR1 PSYCH",1389)=""
^DD(2100,"B","RET TO ADJ PR2 AUDIO",1391)=""
^DD(2100,"B","RET TO ADJ PR2 OTHER",1393)=""
^DD(2100,"B","RET TO ADJ PR2 PSYCH",1392)=""
^DD(2100,"B","RETURNED COMPLETED",1453)=""
^DD(2100,"B","RETURNED INCOMPLETE",1454)=""
^DD(2100,"B","RETURNING-TRANSPLANTATION",2411)=""
^DD(2100,"B","RETURNING/ OTHER VA/NON VA",2410)=""
^DD(2100,"B","REVERSAL FISC MONTH",340.91)=""
^DD(2100,"B","REVERSAL FISC MONTH (RC)",463.12)=""
^DD(2100,"B","REVERSAL FISC YEAR",340.9)=""
^DD(2100,"B","REVERSAL FISC YEAR (RC)",463.11)=""
^DD(2100,"B","RIGHT HEART PROCEDURES",2704)=""
^DD(2100,"B","RMS (018)",3618)=""
^DD(2100,"B","RMS (027)",3627)=""
^DD(2100,"B","RN (014)",3614)=""
^DD(2100,"B","RN (023)",3623)=""
^DD(2100,"B","RN FTEE CEILING",4202.001)=""
^DD(2100,"B","RN POSITIONS FILLED",4202.021)=""
^DD(2100,"B","RN POSITIONS FILLED EOQ",4202.021)="1"
^DD(2100,"B","ROBBERY (DRUGS ONLY)",700.24)=""
^DD(2100,"B","ROBBERY (OVER $50)",700.22)=""
^DD(2100,"B","ROBBERY (UNDER $50)",700.23)=""
^DD(2100,"B","ROUNDS-AUDIOLOGY",2630)=""
^DD(2100,"B","ROUNDS-SPEECH PATHOLOGY",2654)=""
^DD(2100,"B","S-C FOR RENAL DISEASE",2439)=""
^DD(2100,"B","S-C OTHER (DIALY.)",2440)=""
^DD(2100,"B","S.C. (008)",3608)=""
^DD(2100,"B","S.C. (011)",3611)=""
^DD(2100,"B","S/C PATIENTS DROPPED",2802)=""
^DD(2100,"B","S/C PATIENTS ON HOME OXYGEN",2801)=""
^DD(2100,"B","S/C PATIENTS STARTED",2803)=""
^DD(2100,"B","SATELLITE CLINICS (LPN)",4201.041)=""
^DD(2100,"B","SATELLITE CLINICS (NA)",4201.042)=""
^DD(2100,"B","SATELLITE CLINICS (RN)",4201.04)=""
^DD(2100,"B","SATELLITE FACILITY (1)",4219.01)=""
^DD(2100,"B","SATELLITE FACILITY (2)",4219.011)=""
^DD(2100,"B","SATELLITE FACILITY (3)",4219.012)=""
^DD(2100,"B","SATELLITE FACILITY (4)",4219.013)=""
^DD(2100,"B","SATELLITE FACILITY (5)",4219.014)=""
^DD(2100,"B","SATELLITE FACILITY (6)",4219.015)=""
^DD(2100,"B","SC 50% OR MORE",1298)=""
^DD(2100,"B","SC LESS THAN 50%",1300)=""
^DD(2100,"B","SC PATIENTS PLACED",1335)=""
^DD(2100,"B","SCHED DAY",454.13)=""
^DD(2100,"B","SCHED MONTH",454.12)=""
^DD(2100,"B","SCHED YEAR",454.11)=""
^DD(2100,"B","SCHEDULE DISB FLAG",450.81)=""
^DD(2100,"B","SCHEDULED PAY DATE",450.84)=""
^DD(2100,"B","SCHEDULED TRANSMISSION DATE",.6)=""
^DD(2100,"B","SCHEDULED VISIT",1314)=""
^DD(2100,"B","SCI (OUTPATIENT)",4265.031)=""
^DD(2100,"B","SCI INPATIENT",4265.021)=""
^DD(2100,"B","SCREENING-AUDIOLOGY",2611)=""
^DD(2100,"B","SCREENING-SPEECH PATHOLOGY",2639)=""
^DD(2100,"B","SECOND INCREASE GRANTED",4327)=""
^DD(2100,"B","SECOND INCREASE PENDING",4343)=""
^DD(2100,"B","SECRETERIAL/CLER. HRS.",2666)=""
^DD(2100,"B","SECTION",4352)=""
^DD(2100,"B","SECURITY CODE",404)=""
^DD(2100,"B","SEG START CHAR",1254)=""
^DD(2100,"B","SEG. MODIFIER",52.4)=""
^DD(2100,"B","SEG. START CHAR.",52.1)=""
^DD(2100,"B","SEGMENT DELIMITER <TC>2",421.2)=""
^DD(2100,"B","SEGMENT DELIMITER <TC>3",421.3)=""
^DD(2100,"B","SEGMENT DELIMITER <TC>4",421.4)=""
^DD(2100,"B","SEGMENT DELIMITER <TC>5",421.5)=""
^DD(2100,"B","SEGMENT DELIMITER <TC>6",421.6)=""
^DD(2100,"B","SEGMENT ID <TC>2",420.2)=""
^DD(2100,"B","SEGMENT ID <TC>3",420.3)=""
^DD(2100,"B","SEGMENT ID <TC>4",420.4)=""
^DD(2100,"B","SEGMENT ID <TC>5",420.5)=""
^DD(2100,"B","SEGMENT ID <TC>6",420.6)=""
^DD(2100,"B","SEGMENT MODIFIER",1257)=""
^DD(2100,"B","SEGMENT MODIFIER",2998)="1"
^DD(2100,"B","SEGMENT NUMBER",284)=""
^DD(2100,"B","SELLING CONTROL POINT IEN",466.01)=""
^DD(2100,"B","SEQ NUMBER",452.6)=""
^DD(2100,"B","SERVICE",4351)=""
^DD(2100,"B","SERVICE STATUS",2664)=""
^DD(2100,"B","SERVICES BY VISITING CLERGY",4141.052)=""
^DD(2100,"B","SEX",207)=""
^DD(2100,"B","SEX",2200.08)=""
^DD(2100,"B","SHARING AGREEMENT",1310)=""
^DD(2100,"B","SHIP ADDR CODE VIA",462.72)=""
^DD(2100,"B","SHIP ADDRESS CODE",462.29)=""
^DD(2100,"B","SIC CODE",4308)=""
^DD(2100,"B","SIMPLE ASSAULT",700.28)=""
^DD(2100,"B","SINGLE-ACTIVITY LDRY (LBS)",4219.002)=""
^DD(2100,"B","SKULL",1465)=""
^DD(2100,"B","SOCIAL RECREATION",4265.007)=""
^DD(2100,"B","SOCIAL RECREATION (ATTENDANCE)",4264.019)=""
^DD(2100,"B","SOCIAL RECREATION (HOURS)",4264.007)=""
^DD(2100,"B","SOCIAL SECURITY NUMBER",202)=""
^DD(2100,"B","SOCIAL SECURITY NUMBER",2200.18)=""
^DD(2100,"B","SOCIAL WORKER (017)",3617)=""
^DD(2100,"B","SOCIAL WORKER (026)",3626)=""
^DD(2100,"B","SPACE (TOTAL COST)",4165.4)=""
^DD(2100,"B","SPEC. LIMITED LANG. COG EVAL.",2641)=""
^DD(2100,"B","SPECIAL EVENTS",4265.004)=""
^DD(2100,"B","SPECIAL EVENTS (ATTENDANCE)",4264.016)=""
^DD(2100,"B","SPECIAL EVENTS (HOURS)",4264.004)=""
^DD(2100,"B","SPECIAL THERAPY (ATTENDANCE)",4264.024)=""
^DD(2100,"B","SPECIAL THERAPY (HOURS)",4264.012)=""
^DD(2100,"B","SPECIAL THERAPY PROGRAMS",4265.012)=""
^DD(2100,"B","SPECIALTY ASSIGNMENT (PART-1)",4270)=""
^DD(2100,"B","SPECIALTY ASSIGNMENT (PART-2)",4276)=""
^DD(2100,"B","SPECIALTY ASSIGNMENT (PART-3)",4288)=""
^DD(2100,"B","SPECIMEN COLLECTION DATE",5040)=""
^DD(2100,"B","SPECTATOR EVENTS",4265.01)=""
^DD(2100,"B","SPECTATOR EVENTS (ATTENDANCE)",4264.022)=""
^DD(2100,"B","SPECTATOR EVENTS (HOURS)",4264.01)=""
^DD(2100,"B","SPEECH AUDIOMETRY",2614)=""
^DD(2100,"B","SPINAL CORD INJURY (LBS ISS)",4219.021)=""
^DD(2100,"B","SPINAL CORD INJURY (LPN)",4201.011)=""
^DD(2100,"B","SPINAL CORD INJURY (MAN HRS)",4218.02)=""
^DD(2100,"B","SPINAL CORD INJURY (NA)",4201.012)=""
^DD(2100,"B","SPINAL CORD INJURY (NET SQ FT)",4218.006)=""
^DD(2100,"B","SPINAL CORD INJURY (RN)",4201.01)=""
^DD(2100,"B","SPINAL CORD INJURY I",4200.021)=""
^DD(2100,"B","SPINAL CORD INJURY II",4200.022)=""
^DD(2100,"B","SPINAL CORD INJURY III",4200.023)=""
^DD(2100,"B","SPINAL CORD INJURY IV",4200.024)=""
^DD(2100,"B","SPINAL CORD INJURY V",4200.025)=""
^DD(2100,"B","SPINE AND SACROILIAC(Skeletal)",1471)=""
^DD(2100,"B","STACK DOCUMENT",.85)=""
^DD(2100,"B","STAFF 007",3207)=""
^DD(2100,"B","STAFF MEETINGS",4141.05)=""
^DD(2100,"B","STAFF NURSE FTEE CEILING",4202.01)=""
^DD(2100,"B","STAFF NURSE POSITIONS FILLED",4202.03)=""
^DD(2100,"B","START DATE",462.01)=""
^DD(2100,"B","STATE",205)=""
^DD(2100,"B","STATE CODE",2200.02)=""
^DD(2100,"B","STATE CODE (FMS)",450.27)=""
^DD(2100,"B","STATE CODE OF CNH",1536)=""
^DD(2100,"B","STATION NUMBER",5)=""
^DD(2100,"B","STATUS",4307)=""
^DD(2100,"B","STENGER TESTS",2615)=""
^DD(2100,"B","STOPS FOR QUESTIONING",700.72)=""
^DD(2100,"B","STRAIGHT TIME HOURLY RATE-1",4332)=""
^DD(2100,"B","STRAIGHT TIME HOURLY RATE-2",4346.2)=""
^DD(2100,"B","STRAIGHT TIME HOURLY RATE-3",4346.5)=""
^DD(2100,"B","STRAIGHT TIME HOURLY RATE-4",4346.8)=""
^DD(2100,"B","STRAIGHT TIME HOURLY RATE-5",4347.1)=""
^DD(2100,"B","STRAIGHT TIME HOURLY RATE-6",4347.4)=""
^DD(2100,"B","STREET ADDRESS",203)=""
^DD(2100,"B","STREPTOKINASE",2708)=""
^DD(2100,"B","STROKE",2716)=""
^DD(2100,"B","STRONG-ARM ROBBERY",700.21)=""
^DD(2100,"B","STUDENT TRAINING-AUDIOLOGY",2633)=""
^DD(2100,"B","STUDENT TRAINING-SPEECH PATH.",2656)=""
^DD(2100,"B","STUDENTS (020)",3620)=""
^DD(2100,"B","STUDENTS (029)",3629)=""
^DD(2100,"B","SUB ACCOUNT",242)=""
^DD(2100,"B","SUBJ DISC/REASON FOR ABS 1",5064)=""
^DD(2100,"B","SUBJ DISC/REASON FOR ABS 2",5065)=""
^DD(2100,"B","SUBJ DISC/REASON FOR ABS 3",5066)=""
^DD(2100,"B","SUBSTANCE ABUSE",4141.06)=""
^DD(2100,"B","SUBSTANCE ABUSE (009)",3594)=""
^DD(2100,"B","SUFFIX",6)=""
^DD(2100,"B","SUNDAY RATE",4319)=""
^DD(2100,"B","SUPERVISOR POSITIONS FILLED",4202.034)=""
^DD(2100,"B","SUPERVISORY LEVEL",4001)=""
^DD(2100,"B","SUPPLIES/EQUIP (CATHOLIC)",4142.1)=""
^DD(2100,"B","SUPPLIES/EQUIP (E ORTHODOX)",4142.24)=""
^DD(2100,"B","SUPPLIES/EQUIP (JEWISH)",4142.17)=""
^DD(2100,"B","SUPPLIES/EQUIP (PROTESTANT)",4142.03)=""
^DD(2100,"B","SUPPLIES/SERVICES (TOTAL COST)",4165.39)=""
^DD(2100,"B","SUPPORT VISITS",1450)=""
^DD(2100,"B","SURG, ANES, # DEATHS",3011)=""
^DD(2100,"B","SURG, ANES, TOTAL",3010)=""
^DD(2100,"B","SURG, NURSE, DEATHS",3013)=""
^DD(2100,"B","SURG, NURSE, TOTAL",3012)=""
^DD(2100,"B","SURG, OTHER, DEATHS",3015)=""
^DD(2100,"B","SURG, OTHER, TOTAL",3014)=""
^DD(2100,"B","SURGERY (INC NEUROSURGERY)",4265.022)=""
^DD(2100,"B","SURGERY (LBS ISSUED)",4219.022)=""
^DD(2100,"B","SURGERY (MAN HOURS)",4218.021)=""
^DD(2100,"B","SURGERY (NET SQUARE FEET)",4218.007)=""
^DD(2100,"B","SURGICAL (LPN)",4201.005)=""
^DD(2100,"B","SURGICAL (NA)",4201.006)=""
^DD(2100,"B","SURGICAL (RN)",4201.004)=""
^DD(2100,"B","SURGICAL I",4200.011)=""
^DD(2100,"B","SURGICAL II",4200.012)=""
^DD(2100,"B","SURGICAL III",4200.013)=""
^DD(2100,"B","SURGICAL IV",4200.014)=""
^DD(2100,"B","SYSTEM ID",4366)=""
^DD(2100,"B","SYSTEM IDENTIFIER",1)=""
^DD(2100,"B","TAX WITHHELD AMT",450.4)=""
^DD(2100,"B","TAX WITHHELD INC DEC",450.41)=""
^DD(2100,"B","TAXABLE AMT",450.42)=""
^DD(2100,"B","TAXABLE INC DEC",450.43)=""
^DD(2100,"B","TELETICKET FLAG",461.45)=""
^DD(2100,"B","TEMPORARY PACEMAKERS",2705)=""
^DD(2100,"B","TERMINATION DATE",210)=""
^DD(2100,"B","TERMINATION STARS",223)=""
^DD(2100,"B","TEXT TYPE",452.24)=""
^DD(2100,"B","TEXTILE CARE",4220.003)=""
^DD(2100,"B","TFRS PEND RTN FROM OTH SITES",1558)=""
^DD(2100,"B","TFRS PEND RTN TO OTHER SITES",1555)=""
^DD(2100,"B","THERAPIST HOURS",4264.037)=""
^DD(2100,"B","THERAPY SESSION PLANNING",2648)=""
^DD(2100,"B","THREATS TO EMPLOYEES",700.48)=""
^DD(2100,"B","TICKET AMT",450.33)=""
^DD(2100,"B","TICKET AS OF DATE",461.01)=""
^DD(2100,"B","TISSUE TYPING TESTS",2460)=""
^DD(2100,"B","TO AA >96HRS (DOM)",1348)=""
^DD(2100,"B","TO AA >96HRS (SHH)",1366)=""
^DD(2100,"B","TO AA >96HRS (SNH)",1357)=""
^DD(2100,"B","TO ASIH",1328)=""
^DD(2100,"B","TO CITY",452.19)=""
^DD(2100,"B","TO HOSPITAL (010)",3509)=""
^DD(2100,"B","TO HOSPITAL (026)",3525)=""
^DD(2100,"B","TO HOSPITAL (042)",3541)=""
^DD(2100,"B","TO HOSPITAL (058)",3557)=""
^DD(2100,"B","TO HOSPITAL (074)",3573)=""
^DD(2100,"B","TO INDIVIDUAL LIVING (009)",3508)=""
^DD(2100,"B","TO INDIVIDUAL LIVING (025)",3524)=""
^DD(2100,"B","TO INDIVIDUAL LIVING (041)",3540)=""
^DD(2100,"B","TO INDIVIDUAL LIVING (057)",3556)=""
^DD(2100,"B","TO INDIVIDUAL LIVING (073)",3572)=""
^DD(2100,"B","TO REHOSP PSY BEDSECTION(-)",1433)=""
^DD(2100,"B","TO STATE CODE",452.2)=""
^DD(2100,"B","TO TRANS CODE 1",450.56)=""
^DD(2100,"B","TO TRANS CODE 2",450.64)=""
^DD(2100,"B","TO TRANS CODE 3",450.72)=""
^DD(2100,"B","TO TRANS NUMBER 1",450.57)=""
^DD(2100,"B","TO TRANS NUMBER 2",450.65)=""
^DD(2100,"B","TO TRANS NUMBER 3",450.73)=""
^DD(2100,"B","TO VENDOR ADDRESS 1",452.17)=""
^DD(2100,"B","TO VENDOR ADDRESS 2",452.18)=""
^DD(2100,"B","TO ZIP CODE",452.21)=""
^DD(2100,"B","TONE DECAY",2616)=""
^DD(2100,"B","TOT # DIFF V.N.ERA VETS TREAT",1448)=""
^DD(2100,"B","TOT # OF DIFF NSC VETS TREATED",1447)=""
^DD(2100,"B","TOT # OF DIFF SC VETS TREATED",1446)=""
^DD(2100,"B","TOT PEND EOM PR1 AUDIO",1424)=""
^DD(2100,"B","TOT PEND EOM PR1 OTHER",1426)=""
^DD(2100,"B","TOT PEND EOM PR1 PSYCH",1425)=""
^DD(2100,"B","TOT PEND EOM PR2 AUDIO",1427)=""
^DD(2100,"B","TOT PEND EOM PR2 OTHER",1429)=""
^DD(2100,"B","TOT PEND EOM PR2 PSYCH",1428)=""
^DD(2100,"B","TOTAL # OF RXs 017",3217)=""
^DD(2100,"B","TOTAL ADMISSIONS",1235)=""
^DD(2100,"B","TOTAL ADV INC DEC",452.44)=""
^DD(2100,"B","TOTAL ADVANCE",452.43)=""
^DD(2100,"B","TOTAL ANESTHETICS ADMINISTERED",3000)=""
^DD(2100,"B","TOTAL BEDS EOP (DOM)",1375)=""
^DD(2100,"B","TOTAL BEDS EOP (SHH)",1377)=""
^DD(2100,"B","TOTAL BEDS EOP (SNH)",1376)=""
^DD(2100,"B","TOTAL CATHERIZATIONS",2701)=""
^DD(2100,"B","TOTAL CONTRACT COST",4274)=""
^DD(2100,"B","TOTAL COST OF RXs 018",3218)=""
^DD(2100,"B","TOTAL CRF. PATIENTS DIALYZED",2473)=""
^DD(2100,"B","TOTAL CUM HOURS",218)=""
^DD(2100,"B","TOTAL DAILY MEALS SERVED",4224.012)="1"
^DD(2100,"B","TOTAL DAYS OF CARE(MED)",1215)=""
^DD(2100,"B","TOTAL DAYS OF CARE(PSYC)",1233)=""
^DD(2100,"B","TOTAL DAYS OF CARE(SURG)",1224)=""
^DD(2100,"B","TOTAL DIALY. CENTER TREATMENTS",2449)=""
^DD(2100,"B","TOTAL DIALY. PAT. REMAINING",2435)=""
^DD(2100,"B","TOTAL DOLLAR LOSS DUE TO ARSON",700.66)=""
^DD(2100,"B","TOTAL DOLLAR LOSS TO ROBBERY",700.25)=""
^DD(2100,"B","TOTAL FIELD BLOCK (05)",3004)=""
^DD(2100,"B","TOTAL INCREASES GRANTED",4328)=""
^DD(2100,"B","TOTAL INCREASES PENDING",4345)=""
^DD(2100,"B","TOTAL INFILTRATION (04)",3003)=""
^DD(2100,"B","TOTAL INHALATION (02)",3001)=""
^DD(2100,"B","TOTAL INTRAVENOUS (03)",3002)=""
^DD(2100,"B","TOTAL MEALS SERVED",4224.012)=""
^DD(2100,"B","TOTAL NERVE BLOCK (06)",3005)=""
^DD(2100,"B","TOTAL NUMBER 09",3108)=""
^DD(2100,"B","TOTAL NUMBER OF DEATHS (23)",3022)=""
^DD(2100,"B","TOTAL NUMBER OF EMPLOYEES",4310)=""
^DD(2100,"B","TOTAL NUMBER OF VETS IN NH",1545)=""
^DD(2100,"B","TOTAL OBLIGATION",452.39)=""
^DD(2100,"B","TOTAL OTHER (10)",3009)=""
^DD(2100,"B","TOTAL PAY AND NON PAY VISITS",2027)=""
^DD(2100,"B","TOTAL RECTAL (09)",3008)=""
^DD(2100,"B","TOTAL SPINAL OR EPIDURAL (07)",3006)=""
^DD(2100,"B","TOTAL TECH FTE",1527)=""
^DD(2100,"B","TOTAL TOPICAL (08)",3007)=""
^DD(2100,"B","TOTAL VERIFIED AMT",450.38)=""
^DD(2100,"B","TRAFFIC COURT VIOLATION NOTICE",700.64)=""
^DD(2100,"B","TRAINING CODE",462.51)=""
^DD(2100,"B","TRAINING GIVEN",2663)=""
^DD(2100,"B","TRANS TYPE",228)=""
^DD(2100,"B","TRANS TYPE (FMS)",461.27)=""
^DD(2100,"B","TRANS. FROM OTHER VA DIALY.",2409)=""
^DD(2100,"B","TRANSACTION CODE",401)=""
^DD(2100,"B","TRANSACTION CODE",5013)=""
^DD(2100,"B","TRANSACTION DATE",466.03)=""
^DD(2100,"B","TRANSACTION NUMBER",402)=""
^DD(2100,"B","TRANSACTION NUMBER",2201.01)=""
^DD(2100,"B","TRANSACTION TYPE",450.09)=""
^DD(2100,"B","TRANSACTION TYPE/SEGMENT",7)=""
^DD(2100,"B","TRANSFER ACTIVITY",2200.28)=""
^DD(2100,"B","TRANSFER DESTINATION",2200.52)=""
^DD(2100,"B","TRANSFERRED TO OTHER VA DIAL.",2416)=""
^DD(2100,"B","TRANSFERS IN",1236)=""
^DD(2100,"B","TRANSFERS IN FROM CNH",1333)=""
^DD(2100,"B","TRANSFERS IN FROM OTHER SITES",1553)=""
^DD(2100,"B","TRANSFERS IN SIMILAR FACIL",1324)=""
^DD(2100,"B","TRANSFERS OUT",1241)=""
^DD(2100,"B","TRANSFERS OUT TO ANOTHER ICU",2503)=""
^DD(2100,"B","TRANSFERS OUT TO CNH",1334)=""
^DD(2100,"B","TRANSFERS OUT TO OTHER SITES",1556)=""
^DD(2100,"B","TRANSFERS OUT TO WARD",2504)=""
^DD(2100,"B","TRANSFERS OUT-SIMILAR FACIL",1327)=""
^DD(2100,"B","TRANSFERS RETD FROM OTH SITES",1557)=""
^DD(2100,"B","TRANSFERS RETD TO OTHER SITES",1554)=""
^DD(2100,"B","TRAVEL ADVANCE FLAG",341.94)=""
^DD(2100,"B","TRAVEL ADVANCE NUMB",452.62)=""
^DD(2100,"B","TRAVEL ADVANCE NUMBER 1",450.58)=""
^DD(2100,"B","TRAVEL ADVANCE NUMBER 2",450.66)=""
^DD(2100,"B","TRAVEL ADVANCE NUMBER 3",450.74)=""
^DD(2100,"B","TRAVEL DATE BEGINS",450.82)=""
^DD(2100,"B","TRAVEL DATE ENDS",450.83)=""
^DD(2100,"B","TRAVEL ITINERARY 1",452.4)=""
^DD(2100,"B","TRAVEL ITINERARY 2",452.41)=""
^DD(2100,"B","TRAVEL MODE CODES",452.32)=""
^DD(2100,"B","TRAVEL PURPOSE CODES",452.33)=""
^DD(2100,"B","TRAVEL PURPOSES",450.1)=""
^DD(2100,"B","TRAVEL TYPE",452.05)=""
^DD(2100,"B","TRAVEL TYPE1",450.55)=""
^DD(2100,"B","TRAVEL TYPE2",450.63)=""
^DD(2100,"B","TRAVEL TYPE3",450.71)=""
^DD(2100,"B","TREASURY SCHEDULE NO.",341.5)=""
^DD(2100,"B","TREATMENT GOAL ACHIEVED (002)",3602)=""
^DD(2100,"B","TREATMENT MODALITY",5012)=""
^DD(2100,"B","TREATMENT PLANNING-AUDIOLOGY",2624)=""
^DD(2100,"B","TREATMENT PLANNING-SP. PATH.",2647)=""
^DD(2100,"B","TREATMENT-SPEECH PATHOLOGY",2649)=""
^DD(2100,"B","TREATMENTS ON NON-VETERANS",2455)=""
^DD(2100,"B","TRT MOD UNAVAIL-DOM",1281)=""
^DD(2100,"B","TRT MOD UNAVAIL-HOSP",1279)=""
^DD(2100,"B","TRT MOD UNAVAIL-NHCU",1280)=""
^DD(2100,"B","TRT MOD UNAVAIL-OPT",1282)=""
^DD(2100,"B","TRT MOD UNAVAIL-TO COMMUNITY",1283)=""
^DD(2100,"B","TRT MOD UNAVAIL-TO FEE",1285)=""
^DD(2100,"B","TRT MOD UNAVAIL-TO OTHER",1286)=""
^DD(2100,"B","TRT MOD UNAVAIL-TO OTHER VA",1284)=""
^DD(2100,"B","TYPE",2201.02)=""
^DD(2100,"B","TYPE CODE",5010)=""
^DD(2100,"B","TYPE OF AGENCY",2200.13)=""
^DD(2100,"B","TYPE OF AGENCY",2200.53)=""
^DD(2100,"B","TYPE OF POSITION",4289)=""
^DD(2100,"B","TYPE OF SURVEY",4314)=""
^DD(2100,"B","TYPE OF VISIT",2200.45)=""
^DD(2100,"B","TYPE OF VOUCHER",450.79)=""
^DD(2100,"B","ULTRASOUND/ECHOENCEPHALOGRAM",1487)=""
^DD(2100,"B","UNAPPLIED DEP NUM",450.85)=""
^DD(2100,"B","UNIFORMS (PIECE COUNT)",4219.005)=""
^DD(2100,"B","UNIT DOSES ADMIN 01",3100)=""
^DD(2100,"B","UNIT OF USE",2201.08)=""
^DD(2100,"B","UNSCHEDULED VISIT",1315)=""
^DD(2100,"B","USE BY OTHER FEDERAL AGENCIES",2713)=""
^DD(2100,"B","USE BY PRIVATE SECTOR",2714)=""
^DD(2100,"B","USE OF VISUAL AIDS (TIMES)",4141.048)=""
^DD(2100,"B","USE OTHER THAN CARDIOLOGY",2712)=""
^DD(2100,"B","USING TOILET ACTIVITY",2200.27)=""
^DD(2100,"B","USUAL LIVING ARRANGEMENTS",2200.11)=""
^DD(2100,"B","UTILITY COST",4219.03)=""
^DD(2100,"B","VA AUTH OUTPT VISITS(MED)",1338)=""
^DD(2100,"B","VA AUTH OUTPT VISITS(PSYC)",1340)=""
^DD(2100,"B","VA AUTH OUTPT VISITS(SURG)",1339)=""
^DD(2100,"B","VA CONSULTATION",1505)=""
^DD(2100,"B","VA DOM (084)",3583)=""
^DD(2100,"B","VA DOMICILIARY",4265.026)=""
^DD(2100,"B","VA EMPLOYEE",1306)=""
^DD(2100,"B","VA FOLLOW-UP VISITS",1507)=""
^DD(2100,"B","VA GIVEN (TRAINING HRS)",4264.025)=""
^DD(2100,"B","VA NURSING HOME",4265.023)=""
^DD(2100,"B","VA ONLY",4018)=""
^DD(2100,"B","VA PATIENTS(Cobalt Tel.)",1499)=""
^DD(2100,"B","VA PATIENTS(Deep X-RAY)",1497)=""
^DD(2100,"B","VA PATIENTS(Lin.ACC.&Betatron)",1501)=""
^DD(2100,"B","VA PATIENTS(Radio Implts/APPL)",1503)=""
^DD(2100,"B","VA PATIENTS(Superficial X-RAY)",1495)=""
^DD(2100,"B","VA SPECIAL PROCEDURES",1508)=""
^DD(2100,"B","VA TAKEN (TRAINING HRS)",4264.026)=""
^DD(2100,"B","VA TREATMENT PLANNING",1506)=""
^DD(2100,"B","VA VISITS(Cobalt Tel.)",1500)=""
^DD(2100,"B","VA VISITS(Deep X-RAY)",1498)=""
^DD(2100,"B","VA VISITS(Lin ACC &Betatron)",1502)=""
^DD(2100,"B","VA VISITS(Radio Implts/APPL)",1504)=""
^DD(2100,"B","VA VISITS(Superficial X-RAY)",1496)=""
^DD(2100,"B","VACANT BED UNITS SERVICED",4217.04)=""
^DD(2100,"B","VANDALISM (TOTAL DOLLAR LOSS)",700.61)=""
^DD(2100,"B","VEND ADDRESS LINE1",460.15)=""
^DD(2100,"B","VEND ADDRESS LINE2",460.16)=""
^DD(2100,"B","VEND CITY",460.17)=""
^DD(2100,"B","VEND STATE CODE",460.18)=""
^DD(2100,"B","VEND ZIP 1",460.19)=""
^DD(2100,"B","VEND ZIP 2",460.2)=""
^DD(2100,"B","VENDOR ADDR IND",463.1)=""
^DD(2100,"B","VENDOR ADDR1",462.16)=""
^DD(2100,"B","VENDOR ADDR2",462.17)=""
^DD(2100,"B","VENDOR ADDRESS 1",450.24)=""
^DD(2100,"B","VENDOR ADDRESS 2",450.25)=""
^DD(2100,"B","VENDOR ADDRESS CODE",450.02)=""
^DD(2100,"B","VENDOR ADDRESS LINE1",454.23)=""
^DD(2100,"B","VENDOR ADDRESS LINE2",454.24)=""
^DD(2100,"B","VENDOR CLASS",462.52)=""
^DD(2100,"B","VENDOR CONTACT",462.21)=""
^DD(2100,"B","VENDOR ID",450.01)=""
^DD(2100,"B","VENDOR INV REQUIRED",462.48)=""
^DD(2100,"B","VENDOR INVOICE",461.08)=""
^DD(2100,"B","VENDOR INVOICE DAY",461.25)=""
^DD(2100,"B","VENDOR INVOICE MONTH",461.24)=""
^DD(2100,"B","VENDOR INVOICE YEAR",461.23)=""
^DD(2100,"B","VENDOR NAME",450.23)=""
^DD(2100,"B","VENOGRAM",1483)=""
^DD(2100,"B","VERSION NO.",52.2)=""
^DD(2100,"B","VERSION NUMBER",1255)=""
^DD(2100,"B","VETERANS COMPETENT (015)",3600)=""
^DD(2100,"B","VETERANS INCOMP. (014)",3599)=""
^DD(2100,"B","VETS CENTER",4141.067)=""
^DD(2100,"B","VI TRANS CODE",461.44)=""
^DD(2100,"B","VICE SOLICITING",700.71)=""
^DD(2100,"B","VISCERAL(ANGIO or CATH)",1481)=""
^DD(2100,"B","VISION (WITH LENSES IF WORN)",2200.21)=""
^DD(2100,"B","VISITS TO NEWLY ADMITTED",4141.04)=""
^DD(2100,"B","VISITS TO SERIOUSLY ILL",4141.039)=""
^DD(2100,"B","VOICE RESONANCE ARTIC. EVAL.",2643)=""
^DD(2100,"B","VOL SERVICE 025",3225)=""
^DD(2100,"B","VOLUNTEER (HOURS)",4141.054)=""
^DD(2100,"B","VOLUNTEER HOURS",4220.005)=""
^DD(2100,"B","VOLUNTEERS (PERSONS)",4141.053)=""
^DD(2100,"B","VOUCHER SCHEDULE CAT",450.54)=""
^DD(2100,"B","VOUCHER SCHEDULE TYP",454.14)=""
^DD(2100,"B","WAITING LIST EOP",1449)=""
^DD(2100,"B","WAIVER FLAG",460.28)=""
^DD(2100,"B","WALKING ACTIVITY",2200.3)=""
^DD(2100,"B","WARD STOCK 03",3102)=""
^DD(2100,"B","WARD STOCK 06",3105)=""
^DD(2100,"B","WEAPON POSSESSION",700.7)=""
^DD(2100,"B","WEEKEND/HOLIDAY HOURS",4264.036)=""
^DD(2100,"B","WEIGHT",4309)=""
^DD(2100,"B","WINDOW 010",3210)=""
^DD(2100,"B","WON'T PAY DEDUCTIBLE",1296)=""
^DD(2100,"B","WORK INSTALLED",467.17)=""
^DD(2100,"B","WTA AMT",450.39)=""
^DD(2100,"B","XDIVISION",341.93)=""
^DD(2100,"B","XORGANIZATION SUBMIT",450.32)=""
^DD(2100,"B","YEAR",2025)=""
^DD(2100,"B","YEAR OF PAYMENT",461.17)=""
^DD(2100,"B","YEAR REQUIRED",452.48)=""
^DD(2100,"B","YEAR TRAVEL BEGINS",450.15)=""
^DD(2100,"B","YEAR TRAVEL ENDS",450.18)=""
^DD(2100,"B","YEARS OF SERVICE",217)=""
^DD(2100,"B","ZIP CODE",206)=""
^DD(2100,"B","ZIP CODE",2200.04)=""
^DD(2100,"B","ZIP CODE (FMS)",450.28)=""
^DD(2100,"GL",0,1,.01)=""
^DD(2100,"GL",0,2,1)=""
^DD(2100,"GL",0,3,2)=""
^DD(2100,"GL",0,4,9.01)=""
^DD(2100,"GL",0,6,5)=""
^DD(2100,"GL",0,7,6)=""
^DD(2100,"GL",0,8,7)=""
^DD(2100,"GL",0,9,9.1)=""
^DD(2100,"GL",0,10,9)=""
^DD(2100,"GL",0,11,10)=""
^DD(2100,"GL",0,12,99)=""
^DD(2100,"GL",52,1,52.1)=""
^DD(2100,"GL",52,2,52.2)=""
^DD(2100,"GL",52,3,52.3)=""
^DD(2100,"GL",52,4,52.4)=""
^DD(2100,"GL",53,1,53.001)=""
^DD(2100,"GL",53,2,53.002)=""
^DD(2100,"GL",53,3,53.003)=""
^DD(2100,"GL",53,4,53.004)=""
^DD(2100,"GL",53,5,53.005)=""
^DD(2100,"GL",53,6,53.006)=""
^DD(2100,"GL",53,7,53.007)=""
^DD(2100,"GL",53,8,53.008)=""
^DD(2100,"GL",53,9,53.009)=""
^DD(2100,"GL",53,10,53.01)=""
^DD(2100,"GL",53,11,53.011)=""
^DD(2100,"GL",53,12,53.012)=""
^DD(2100,"GL",53,13,53.013)=""
^DD(2100,"GL",53,14,53.014)=""
^DD(2100,"GL",53,15,53.015)=""
^DD(2100,"GL",53,16,53.016)=""
^DD(2100,"GL",53,17,53.017)=""
^DD(2100,"GL",53,18,53.018)=""
^DD(2100,"GL",53,19,53.019)=""
^DD(2100,"GL",53,20,53.02)=""
^DD(2100,"GL",53,21,53.021)=""
^DD(2100,"GL",53,22,53.022)=""
^DD(2100,"GL",53,23,53.023)=""
^DD(2100,"GL",53,24,53.024)=""
^DD(2100,"GL",53,25,53.025)=""
^DD(2100,"GL",53,26,53.026)=""
^DD(2100,"GL",53,27,53.027)=""
^DD(2100,"GL",53,28,53.028)=""
^DD(2100,"GL",53,29,53.029)=""
^DD(2100,"GL",53,30,53.03)=""
^DD(2100,"GL",53,31,53.031)=""
^DD(2100,"GL",53,32,53.032)=""
^DD(2100,"GL",53,33,53.033)=""
^DD(2100,"GL",53,34,53.034)=""
^DD(2100,"GL",53,35,53.035)=""
^DD(2100,"GL",53,36,53.036)=""
^DD(2100,"GL",53,37,53.037)=""
^DD(2100,"GL",53,38,53.038)=""
^DD(2100,"GL",53,39,53.039)=""
^DD(2100,"GL",53,40,53.04)=""
^DD(2100,"GL",53,41,53.041)=""
^DD(2100,"GL",53,42,53.042)=""
^DD(2100,"GL",53,43,53.043)=""
^DD(2100,"GL",53,44,53.044)=""
^DD(2100,"GL",53,45,53.045)=""
^DD(2100,"GL",53,46,53.046)=""
^DD(2100,"GL",53,47,53.047)=""
^DD(2100,"GL",53,48,53.048)=""
^DD(2100,"GL",53,49,53.049)=""
^DD(2100,"GL",53,50,53.05)=""
^DD(2100,"GL",53,51,53.051)=""
^DD(2100,"GL",53,52,53.052)=""
^DD(2100,"GL",53,53,53.053)=""
^DD(2100,"GL",53,54,53.054)=""
^DD(2100,"GL",53,55,53.055)=""
^DD(2100,"GL",53,56,53.056)=""
^DD(2100,"GL",53,57,53.057)=""
^DD(2100,"GL",53,58,53.058)=""
^DD(2100,"GL",53,59,53.059)=""
^DD(2100,"GL",53,60,53.06)=""
^DD(2100,"GL",53,61,53.061)=""
^DD(2100,"GL",53,62,53.062)=""
^DD(2100,"GL",54,1,54.001)=""
^DD(2100,"GL",54,2,54.002)=""
^DD(2100,"GL",54,3,54.003)=""
^DD(2100,"GL",54,4,54.004)=""
^DD(2100,"GL",54,5,54.005)=""
^DD(2100,"GL",54,6,54.006)=""
^DD(2100,"GL",54,7,54.007)=""
^DD(2100,"GL",54,8,54.008)=""
^DD(2100,"GL",54,9,54.009)=""
^DD(2100,"GL",54,10,54.01)=""
^DD(2100,"GL",54,11,54.011)=""
^DD(2100,"GL",54,12,54.012)=""
^DD(2100,"GL",54,13,54.013)=""
^DD(2100,"GL",54,14,54.014)=""
^DD(2100,"GL",54,15,54.015)=""
^DD(2100,"GL",54,16,54.016)=""
^DD(2100,"GL",54,17,54.017)=""
^DD(2100,"GL",54,18,54.018)=""
^DD(2100,"GL",54,19,54.019)=""
^DD(2100,"GL",54,20,54.02)=""
^DD(2100,"GL",54,21,54.021)=""
^DD(2100,"GL",54,22,54.022)=""
^DD(2100,"GL",54,23,54.023)=""
^DD(2100,"GL",54,24,54.024)=""
^DD(2100,"GL",54,25,54.025)=""
^DD(2100,"GL",54,26,54.026)=""
^DD(2100,"GL",54,27,54.027)=""
^DD(2100,"GL",54,28,54.028)=""
^DD(2100,"GL",54,29,54.029)=""
^DD(2100,"GL",54,30,54.03)=""
^DD(2100,"GL",54,31,54.031)=""
^DD(2100,"GL",54,32,54.032)=""
^DD(2100,"GL",54,33,54.033)=""
^DD(2100,"GL",54,34,54.034)=""
^DD(2100,"GL",54,35,54.035)=""
^DD(2100,"GL",54,36,54.036)=""
^DD(2100,"GL",54,37,54.037)=""
^DD(2100,"GL",54,38,54.038)=""
^DD(2100,"GL",54,39,54.039)=""
^DD(2100,"GL",54,40,54.04)=""
^DD(2100,"GL",54,41,54.041)=""
^DD(2100,"GL",54,42,54.042)=""
^DD(2100,"GL",54,43,54.043)=""
^DD(2100,"GL",54,44,54.044)=""
^DD(2100,"GL",54,45,54.045)=""
^DD(2100,"GL",54,46,54.046)=""
^DD(2100,"GL",54,47,54.047)=""
^DD(2100,"GL",54,48,54.048)=""
^DD(2100,"GL",54,49,54.049)=""
^DD(2100,"GL",54,50,54.05)=""
^DD(2100,"GL",55,1,55.001)=""
^DD(2100,"GL",55,2,55.002)=""
^DD(2100,"GL",55,3,55.003)=""
^DD(2100,"GL",55,4,55.004)=""
^DD(2100,"GL",55,5,55.005)=""
^DD(2100,"GL",55,6,55.006)=""
^DD(2100,"GL",55,7,55.007)=""
^DD(2100,"GL",55,8,55.008)=""
^DD(2100,"GL",55,9,55.009)=""
^DD(2100,"GL",55,10,55.01)=""
^DD(2100,"GL",55,11,55.011)=""
^DD(2100,"GL",55,12,55.012)=""
^DD(2100,"GL",55,13,55.013)=""
^DD(2100,"GL",55,14,55.014)=""
^DD(2100,"GL",55,15,55.015)=""
^DD(2100,"GL",55,16,55.016)=""
^DD(2100,"GL",55,17,55.017)=""
^DD(2100,"GL",55,18,55.018)=""
^DD(2100,"GL",55,19,55.019)=""
^DD(2100,"GL",55,20,55.02)=""
^DD(2100,"GL",55,21,55.021)=""
^DD(2100,"GL",55,22,55.022)=""
^DD(2100,"GL",55,23,55.023)=""
^DD(2100,"GL",55,24,55.024)=""
^DD(2100,"GL",55,25,55.025)=""
^DD(2100,"GL",55,26,55.026)=""
^DD(2100,"GL",55,27,55.027)=""
^DD(2100,"GL",55,28,55.028)=""
^DD(2100,"GL",55,29,55.029)=""
^DD(2100,"GL",55,30,55.03)=""
^DD(2100,"GL",55,31,55.031)=""
^DD(2100,"GL",55,32,55.032)=""
^DD(2100,"GL",55,33,55.033)=""
^DD(2100,"GL",55,34,55.034)=""
^DD(2100,"GL",55,35,55.035)=""
^DD(2100,"GL",55,36,55.036)=""
^DD(2100,"GL",55,37,55.037)=""
^DD(2100,"GL",55,38,55.038)=""
^DD(2100,"GL",55,39,55.039)=""
^DD(2100,"GL",55,40,55.04)=""
^DD(2100,"GL",55,41,55.041)=""
^DD(2100,"GL",55,42,55.042)=""
^DD(2100,"GL",56,1,56.001)=""
^DD(2100,"GL",56,2,56.002)=""
^DD(2100,"GL",56,3,56.003)=""
^DD(2100,"GL",56,4,56.004)=""
^DD(2100,"GL",56,5,56.005)=""
^DD(2100,"GL",56,6,56.006)=""
^DD(2100,"GL",56,7,56.007)=""
^DD(2100,"GL",56,8,56.008)=""
^DD(2100,"GL",56,9,56.009)=""
^DD(2100,"GL",56,10,56.01)=""
^DD(2100,"GL",56,11,56.011)=""
^DD(2100,"GL",56,12,56.012)=""
^DD(2100,"GL",56,13,56.013)=""
^DD(2100,"GL",56,14,56.014)=""
^DD(2100,"GL",56,15,56.015)=""
^DD(2100,"GL",56,16,56.016)=""
^DD(2100,"GL",56,17,56.017)=""
^DD(2100,"GL",56,18,56.018)=""
^DD(2100,"GL",56,19,56.019)=""
^DD(2100,"GL",56,20,56.02)=""
^DD(2100,"GL",56,21,56.021)=""
^DD(2100,"GL",56,22,56.022)=""
^DD(2100,"GL",56,23,56.023)=""
^DD(2100,"GL",56,24,56.024)=""
^DD(2100,"GL",56,25,56.025)=""
^DD(2100,"GL",56,26,56.026)=""
^DD(2100,"GL",56,27,56.027)=""
^DD(2100,"GL",56,28,56.028)=""
^DD(2100,"GL",56,29,56.029)=""
^DD(2100,"GL",56,30,56.03)=""
^DD(2100,"GL",56,31,56.031)=""
^DD(2100,"GL",56,32,56.032)=""
^DD(2100,"GL",56,33,56.033)=""
^DD(2100,"GL",56,34,56.034)=""
^DD(2100,"GL",56,35,56.035)=""
^DD(2100,"GL",57,1,57.001)=""
^DD(2100,"GL",57,2,57.002)=""
^DD(2100,"GL",57,3,57.003)=""
^DD(2100,"GL",57,4,57.004)=""
^DD(2100,"GL",57,5,57.005)=""
^DD(2100,"GL",57,6,57.006)=""
^DD(2100,"GL",57,7,57.007)=""
^DD(2100,"GL",57,8,57.008)=""
^DD(2100,"GL",57,9,57.009)=""
^DD(2100,"GL",57,10,57.01)=""
^DD(2100,"GL",57,11,57.011)=""
^DD(2100,"GL",57,12,57.012)=""
^DD(2100,"GL",57,13,57.013)=""
^DD(2100,"GL",57,14,57.014)=""
^DD(2100,"GL",57,15,57.015)=""
^DD(2100,"GL",57,16,57.016)=""
^DD(2100,"GL",57,17,57.017)=""
^DD(2100,"GL",57,18,57.018)=""
^DD(2100,"GL",57,19,57.019)=""
^DD(2100,"GL",57,20,57.02)=""
^DD(2100,"GL",57,21,57.021)=""
^DD(2100,"GL",57,22,57.022)=""
^DD(2100,"GL",57,23,57.023)=""
^DD(2100,"GL",57,24,57.024)=""
^DD(2100,"GL",57,25,57.025)=""
^DD(2100,"GL",57,26,57.026)=""
^DD(2100,"GL",57,27,57.027)=""
^DD(2100,"GL",57,28,57.028)=""
^DD(2100,"GL",57,29,57.029)=""
^DD(2100,"GL",57,30,57.03)=""
^DD(2100,"GL",57,31,57.031)=""
^DD(2100,"GL",57,32,57.032)=""
^DD(2100,"GL",57,33,57.033)=""
^DD(2100,"GL",57,34,57.034)=""
^DD(2100,"GL",57,35,57.035)=""
^DD(2100,"GL",57,36,57.036)=""
^DD(2100,"GL",57,37,57.037)=""
^DD(2100,"GL",57,38,57.038)=""
^DD(2100,"GL",57,39,57.039)=""
^DD(2100,"GL",57,40,57.04)=""
^DD(2100,"GL",57,41,57.041)=""
^DD(2100,"GL",57,42,57.042)=""
^DD(2100,"GL",57,43,57.043)=""
^DD(2100,"GL",57,44,57.044)=""
^DD(2100,"GL",57,45,57.045)=""
^DD(2100,"GL",57,46,57.046)=""
^DD(2100,"GL",57,47,57.047)=""
^DD(2100,"GL",57,48,57.048)=""
^DD(2100,"GL",57,49,57.049)=""
^DD(2100,"GL",57,50,57.05)=""
^DD(2100,"GL",57,51,57.051)=""
^DD(2100,"GL",57,52,57.052)=""
^DD(2100,"GL",57,53,57.053)=""
^DD(2100,"GL",57,54,57.054)=""
^DD(2100,"GL",57,55,57.055)=""
^DD(2100,"GL",57,56,57.056)=""
^DD(2100,"GL",57,57,57.057)=""
^DD(2100,"GL",57,58,57.058)=""
^DD(2100,"GL",57,59,57.059)=""
^DD(2100,"GL",57,60,57.06)=""
^DD(2100,"GL",57,61,57.061)=""
^DD(2100,"GL",57,62,57.062)=""
^DD(2100,"GL",57,63,57.063)=""
^DD(2100,"GL",57,64,57.064)=""
^DD(2100,"GL",57,65,57.065)=""
^DD(2100,"GL",57,66,57.066)=""
^DD(2100,"GL",57,67,57.067)=""
^DD(2100,"GL",57,68,57.068)=""
^DD(2100,"GL",57,69,57.069)=""
^DD(2100,"GL",57,70,57.07)=""
^DD(2100,"GL",57,71,57.071)=""
^DD(2100,"GL",57,72,57.072)=""
^DD(2100,"GL",57,73,57.073)=""
^DD(2100,"GL",57,74,57.074)=""
^DD(2100,"GL",57,75,57.075)=""
^DD(2100,"GL",57,76,57.076)=""
^DD(2100,"GL",57,77,57.077)=""
^DD(2100,"GL",57,78,57.078)=""
^DD(2100,"GL",57,79,57.079)=""
^DD(2100,"GL",57,80,57.08)=""
^DD(2100,"GL",58,1,58.014)=""
^DD(2100,"GL",58,2,58.039)=""
^DD(2100,"GL",59,1,59.094)=""
^DD(2100,"GL",340,1,340.1)=""
^DD(2100,"GL",340,2,340.2)=""
^DD(2100,"GL",340,3,340.3)=""
^DD(2100,"GL",340,4,340.4)=""
^DD(2100,"GL",340,5,340.5)=""
^DD(2100,"GL",340,6,340.6)=""
^DD(2100,"GL",340,7,340.7)=""
^DD(2100,"GL",340,8,340.8)=""
^DD(2100,"GL",340,9,340.9)=""
^DD(2100,"GL",340,10,340.91)=""
^DD(2100,"GL",340,11,340.92)=""
^DD(2100,"GL",341,1,341.1)=""
^DD(2100,"GL",341,2,341.2)=""
^DD(2100,"GL",341,3,341.3)=""
^DD(2100,"GL",341,4,341.4)=""
^DD(2100,"GL",341,5,341.5)=""
^DD(2100,"GL",341,6,341.6)=""
^DD(2100,"GL",341,7,341.7)=""
^DD(2100,"GL",341,8,341.8)=""
^DD(2100,"GL",341,9,341.9)=""
^DD(2100,"GL",341,10,341.91)=""
^DD(2100,"GL",341,11,341.92)=""
^DD(2100,"GL",341,12,341.93)=""
^DD(2100,"GL",341,13,341.94)=""
^DD(2100,"GL",341,14,341.95)=""
^DD(2100,"GL","53A",1,53.063)=""
^DD(2100,"GL","53A",2,53.064)=""
^DD(2100,"GL","53A",3,53.065)=""
^DD(2100,"GL","53A",4,53.066)=""
^DD(2100,"GL","53A",5,53.067)=""
^DD(2100,"GL","53A",6,53.068)=""
^DD(2100,"GL","53A",7,53.069)=""
^DD(2100,"GL","53A",8,53.07)=""
^DD(2100,"GL","53A",9,53.071)=""
^DD(2100,"GL","53A",10,53.072)=""
^DD(2100,"GL","53A",11,53.073)=""
^DD(2100,"GL","53A",12,53.074)=""
^DD(2100,"GL","53A",13,53.075)=""
^DD(2100,"GL","53A",14,53.076)=""
^DD(2100,"GL","53A",15,53.077)=""
^DD(2100,"GL","53A",16,53.078)=""
^DD(2100,"GL","53A",17,53.079)=""
^DD(2100,"GL","53A",18,53.08)=""
^DD(2100,"GL","53A",19,53.081)=""
^DD(2100,"GL","53A",20,53.082)=""
^DD(2100,"GL","53A",21,53.083)=""
^DD(2100,"GL","53A",22,53.084)=""
^DD(2100,"GL","53A",23,53.085)=""
^DD(2100,"GL","53A",24,53.086)=""
^DD(2100,"GL","53A",25,53.087)=""
^DD(2100,"GL","53A",26,53.088)=""
^DD(2100,"GL","53A",27,53.089)=""
^DD(2100,"GL","53A",28,53.09)=""
^DD(2100,"GL","53A",29,53.091)=""
^DD(2100,"GL","53A",30,53.092)=""
^DD(2100,"GL","53A",31,53.093)=""
^DD(2100,"GL","53A",32,53.094)=""
^DD(2100,"GL","53A",33,53.095)=""
^DD(2100,"GL","54A",1,54.051)=""
^DD(2100,"GL","54A",2,54.052)=""
^DD(2100,"GL","54A",3,54.053)=""
^DD(2100,"GL","54A",4,54.054)=""
^DD(2100,"GL","54A",5,54.055)=""
^DD(2100,"GL","54A",6,54.056)=""
^DD(2100,"GL","54A",7,54.057)=""
^DD(2100,"GL","54A",8,54.058)=""
^DD(2100,"GL","54A",9,54.059)=""
^DD(2100,"GL","54A",10,54.06)=""
^DD(2100,"GL","54A",11,54.061)=""
^DD(2100,"GL","54A",12,54.062)=""
^DD(2100,"GL","54A",13,54.063)=""
^DD(2100,"GL","54A",14,54.064)=""
^DD(2100,"GL","54A",15,54.065)=""
^DD(2100,"GL","54A",16,54.066)=""
^DD(2100,"GL","54A",17,54.067)=""
^DD(2100,"GL","54A",18,54.068)=""
^DD(2100,"GL","54A",19,54.069)=""
^DD(2100,"GL","54A",20,54.07)=""
^DD(2100,"GL","54A",21,54.071)=""
^DD(2100,"GL","54A",22,54.072)=""
^DD(2100,"GL","54A",23,54.073)=""
^DD(2100,"GL","54A",24,54.074)=""
^DD(2100,"GL","54A",25,54.075)=""
^DD(2100,"GL","54A",26,54.076)=""
^DD(2100,"GL","54A",27,54.077)=""
^DD(2100,"GL","54A",28,54.078)=""
^DD(2100,"GL","54A",29,54.079)=""
^DD(2100,"GL","54A",30,54.08)=""
^DD(2100,"GL","54A",31,54.081)=""
^DD(2100,"GL","54A",32,54.082)=""
^DD(2100,"GL","54A",33,54.083)=""
^DD(2100,"GL","54A",34,54.084)=""
^DD(2100,"GL","54A",35,54.085)=""
^DD(2100,"GL","54A",36,54.086)=""
^DD(2100,"GL","54A",37,54.087)=""
^DD(2100,"GL","54A",38,54.088)=""
^DD(2100,"GL","54A",39,54.089)=""
^DD(2100,"GL","54A",40,54.09)=""
^DD(2100,"GL","54A",41,54.091)=""
^DD(2100,"GL","54A",42,54.092)=""
^DD(2100,"GL","54A",43,54.093)=""
^DD(2100,"GL","54A",44,54.094)=""
^DD(2100,"GL","54A",45,54.095)=""
^DD(2100,"GL","55A",1,55.043)=""
^DD(2100,"GL","55A",2,55.044)=""
^DD(2100,"GL","55A",3,55.045)=""
^DD(2100,"GL","55A",4,55.046)=""
^DD(2100,"GL","55A",5,55.047)=""
^DD(2100,"GL","55A",6,55.048)=""
^DD(2100,"GL","55A",7,55.049)=""
^DD(2100,"GL","55A",8,55.05)=""
^DD(2100,"GL","55A",9,55.051)=""
^DD(2100,"GL","55A",10,55.052)=""
^DD(2100,"GL","55A",11,55.053)=""
^DD(2100,"GL","55A",12,55.054)=""
^DD(2100,"GL","55A",13,55.055)=""
^DD(2100,"GL","55A",14,55.056)=""
^DD(2100,"GL","55A",15,55.057)=""
^DD(2100,"GL","55A",16,55.058)=""
^DD(2100,"GL","55A",17,55.059)=""
^DD(2100,"GL","55A",18,55.06)=""
^DD(2100,"GL","55A",19,55.061)=""
^DD(2100,"GL","55A",20,55.062)=""
^DD(2100,"GL","55A",21,55.063)=""
^DD(2100,"GL","55A",22,55.064)=""
^DD(2100,"GL","55A",23,55.065)=""
^DD(2100,"GL","55A",24,55.066)=""
^DD(2100,"GL","55A",25,55.067)=""
^DD(2100,"GL","55A",26,55.068)=""
^DD(2100,"GL","55A",27,55.069)=""
^DD(2100,"GL","55A",28,55.07)=""
^DD(2100,"GL","55A",29,55.071)=""
^DD(2100,"GL","55A",30,55.072)=""
^DD(2100,"GL","55A",31,55.073)=""
^DD(2100,"GL","55A",32,55.074)=""
^DD(2100,"GL","55A",33,55.075)=""
^DD(2100,"GL","55A",34,55.076)=""
^DD(2100,"GL","55A",35,55.077)=""
^DD(2100,"GL","55A",36,55.078)=""
^DD(2100,"GL","55A",37,55.079)=""
^DD(2100,"GL","55A",38,55.08)=""
^DD(2100,"GL","56A",1,56.036)=""
^DD(2100,"GL","56A",2,56.037)=""
^DD(2100,"GL","56A",3,56.038)=""
^DD(2100,"GL","56A",4,56.039)=""
^DD(2100,"GL","56A",5,56.04)=""
^DD(2100,"GL","56A",6,56.041)=""
^DD(2100,"GL","56A",7,56.042)=""
^DD(2100,"GL","56A",8,56.043)=""
^DD(2100,"GL","56A",9,56.044)=""
^DD(2100,"GL","56A",10,56.045)=""
^DD(2100,"GL","56A",11,56.046)=""
^DD(2100,"GL","56A",12,56.047)=""
^DD(2100,"GL","56A",13,56.048)=""
^DD(2100,"GL","56A",14,56.049)=""
^DD(2100,"GL","56A",15,56.05)=""
^DD(2100,"GL","56A",16,56.051)=""
^DD(2100,"GL","56A",17,56.052)=""
^DD(2100,"GL","56A",18,56.053)=""
^DD(2100,"GL","56A",19,56.054)=""
^DD(2100,"GL","56A",20,56.055)=""
^DD(2100,"GL","56A",21,56.056)=""
^DD(2100,"GL","56A",22,56.057)=""
^DD(2100,"GL","56A",23,56.058)=""
^DD(2100,"GL","56A",24,56.059)=""
^DD(2100,"GL","56A",25,56.06)=""
^DD(2100,"GL","56A",26,56.061)=""
^DD(2100,"GL","56A",27,56.062)=""
^DD(2100,"GL","56A",28,56.063)=""
^DD(2100,"GL","56A",29,56.064)=""
^DD(2100,"GL","56A",30,56.065)=""
^DD(2100,"GL","56A",31,56.066)=""
^DD(2100,"GL","57A",1,57.081)=""
^DD(2100,"GL","57A",2,57.082)=""
^DD(2100,"GL","57A",3,57.083)=""
^DD(2100,"GL","57A",4,57.084)=""
^DD(2100,"GL","57A",5,57.085)=""
^DD(2100,"GL","57A",6,57.086)=""
^DD(2100,"GL","57A",7,57.087)=""
^DD(2100,"GL","57A",8,57.088)=""
^DD(2100,"GL","57A",9,57.089)=""
^DD(2100,"GL","57A",10,57.09)=""
^DD(2100,"GL","57A",11,57.091)=""
^DD(2100,"GL","57A",12,57.092)=""
^DD(2100,"GL","57A",13,57.093)=""
^DD(2100,"GL","57A",14,57.094)=""
^DD(2100,"GL","57A",15,57.095)=""
^DD(2100,"GL","A4CGAMS4A",1,4141.001)=""
^DD(2100,"GL","A4CGAMS4A",2,4141.002)=""
^DD(2100,"GL","A4CGAMS4A",3,4141.003)=""
^DD(2100,"GL","A4CGAMS4A",4,4141.004)=""
^DD(2100,"GL","A4CGAMS4A",5,4141.005)=""
^DD(2100,"GL","A4CGAMS4A",6,4141.006)=""
^DD(2100,"GL","A4CGAMS4A",7,4141.007)=""
^DD(2100,"GL","A4CGAMS4A",8,4141.008)=""
^DD(2100,"GL","A4CGAMS4A",9,4141.009)=""
^DD(2100,"GL","A4CGAMS4A",10,4141.01)=""
^DD(2100,"GL","A4CGAMS4A",11,4141.011)=""
^DD(2100,"GL","A4CGAMS4A",12,4141.012)=""
^DD(2100,"GL","A4CGAMS4A",13,4141.013)=""
^DD(2100,"GL","A4CGAMS4A",14,4141.014)=""
^DD(2100,"GL","A4CGAMS4A",15,4141.015)=""
^DD(2100,"GL","A4CGAMS4A",16,4141.016)=""
^DD(2100,"GL","A4CGAMS4A",17,4141.017)=""
^DD(2100,"GL","A4CGAMS4A",18,4141.018)=""
^DD(2100,"GL","A4CGAMS4A",19,4141.019)=""
^DD(2100,"GL","A4CGAMS4A",20,4141.02)=""
^DD(2100,"GL","A4CGAMS4A",21,4141.021)=""
^DD(2100,"GL","A4CGAMS4A",22,4141.022)=""
^DD(2100,"GL","A4CGAMS4A",23,4141.023)=""
^DD(2100,"GL","A4CGAMS4A",24,4141.024)=""
^DD(2100,"GL","A4CGAMS4A",25,4141.025)=""
^DD(2100,"GL","A4CGAMS4A",26,4141.026)=""
^DD(2100,"GL","A4CGAMS4A",27,4141.027)=""
^DD(2100,"GL","A4CGAMS4A",28,4141.028)=""
^DD(2100,"GL","A4CGAMS4A",29,4141.029)=""
^DD(2100,"GL","A4CGAMS4A",30,4141.03)=""
^DD(2100,"GL","A4CGAMS4A",31,4141.031)=""
^DD(2100,"GL","A4CGAMS4A",32,4141.032)=""
^DD(2100,"GL","A4CGAMS4A",33,4141.033)=""
^DD(2100,"GL","A4CGAMS4A",34,4141.034)=""
^DD(2100,"GL","A4CGAMS4A",35,4141.035)=""
^DD(2100,"GL","A4CGAMS4A",36,4141.036)=""
^DD(2100,"GL","A4CGAMS4A",37,4141.037)=""
^DD(2100,"GL","A4CGAMS4A",38,4141.038)=""
^DD(2100,"GL","A4CGAMS4A",39,4141.039)=""
^DD(2100,"GL","A4CGAMS4A",40,4141.04)=""
^DD(2100,"GL","A4CGAMS4A",41,4141.041)=""
^DD(2100,"GL","A4CGAMS4A",42,4141.042)=""
^DD(2100,"GL","A4CGAMS4A",43,4141.043)=""
^DD(2100,"GL","A4CGAMS4A",44,4141.044)=""
^DD(2100,"GL","A4CGAMS4A",45,4141.045)=""
^DD(2100,"GL","A4CGAMS4A",46,4141.046)=""
^DD(2100,"GL","A4CGAMS4A",47,4141.047)=""
^DD(2100,"GL","A4CGAMS4A",48,4141.048)=""
^DD(2100,"GL","A4CGAMS4A",49,4141.049)=""
^DD(2100,"GL","A4CGAMS4A",50,4141.05)=""
^DD(2100,"GL","A4CGAMS4A",51,4141.051)=""
^DD(2100,"GL","A4CGAMS4B",1,4141.052)=""
^DD(2100,"GL","A4CGAMS4B",2,4141.053)=""
^DD(2100,"GL","A4CGAMS4B",3,4141.054)=""
^DD(2100,"GL","A4CGAMS4B",4,4141.055)=""
^DD(2100,"GL","A4CGAMS4B",5,4141.056)=""
^DD(2100,"GL","A4CGAMS4C",1,4142.01)=""
^DD(2100,"GL","A4CGAMS4C",2,4142.02)=""
^DD(2100,"GL","A4CGAMS4C",3,4142.03)=""
^DD(2100,"GL","A4CGAMS4C",4,4142.04)=""
^DD(2100,"GL","A4CGAMS4C",5,4142.05)=""
^DD(2100,"GL","A4CGAMS4C",6,4142.06)=""
^DD(2100,"GL","A4CGAMS4C",7,4142.07)=""
^DD(2100,"GL","A4CGAMS4C",8,4142.08)=""
^DD(2100,"GL","A4CGAMS4C",9,4142.09)=""
^DD(2100,"GL","A4CGAMS4C",10,4142.1)=""
^DD(2100,"GL","A4CGAMS4C",11,4142.11)=""
^DD(2100,"GL","A4CGAMS4C",12,4142.12)=""
^DD(2100,"GL","A4CGAMS4C",13,4142.13)=""
^DD(2100,"GL","A4CGAMS4C",14,4142.14)=""
^DD(2100,"GL","A4CGAMS4C",15,4142.15)=""
^DD(2100,"GL","A4CGAMS4C",16,4142.16)=""
^DD(2100,"GL","A4CGAMS4C",17,4142.17)=""
^DD(2100,"GL","A4CGAMS4C",18,4142.18)=""
^DD(2100,"GL","A4CGAMS4C",19,4142.19)=""
^DD(2100,"GL","A4CGAMS4C",20,4142.2)=""
^DD(2100,"GL","A4CGAMS4C",21,4142.21)=""
^DD(2100,"GL","A4CGAMS4C",22,4142.22)=""
^DD(2100,"GL","A4CGAMS4C",23,4142.23)=""
^DD(2100,"GL","A4CGAMS4C",24,4142.24)=""
^DD(2100,"GL","A4CGAMS4C",25,4142.25)=""
^DD(2100,"GL","A4CGAMS4C",26,4142.26)=""
^DD(2100,"GL","A4CGAMS4C",27,4142.27)=""
^DD(2100,"GL","A4CGAMS4C",28,4142.28)=""
^DD(2100,"GL","A4CGAMS4D",1,4165.01)=""
^DD(2100,"GL","A4CGAMS4D",2,4165.02)=""
^DD(2100,"GL","A4CGAMS4D",3,4165.03)=""
^DD(2100,"GL","A4CGAMS4D",4,4165.04)=""
^DD(2100,"GL","A4CGAMS4D",5,4165.05)=""
^DD(2100,"GL","A4CGAMS4D",6,4165.06)=""
^DD(2100,"GL","A4CGAMS4D",7,4165.07)=""
^DD(2100,"GL","A4CGAMS4D",8,4165.08)=""
^DD(2100,"GL","A4CGAMS4D",9,4165.09)=""
^DD(2100,"GL","A4CGAMS4D",10,4165.1)=""
^DD(2100,"GL","A4CGAMS4D",11,4165.11)=""
^DD(2100,"GL","A4CGAMS4D",12,4165.12)=""
^DD(2100,"GL","A4CGAMS4D",13,4165.13)=""
^DD(2100,"GL","A4CGAMS4D",14,4165.14)=""
^DD(2100,"GL","A4CGAMS4D",15,4165.15)=""
^DD(2100,"GL","A4CGAMS4D",16,4165.16)=""
^DD(2100,"GL","A4CGAMS4D",17,4165.17)=""
^DD(2100,"GL","A4CGAMS4D",18,4165.18)=""
^DD(2100,"GL","A4CGAMS4D",19,4165.19)=""
^DD(2100,"GL","A4CGAMS4D",20,4165.2)=""
^DD(2100,"GL","A4CGAMS4D",21,4165.21)=""
^DD(2100,"GL","A4CGAMS4D",22,4165.22)=""
^DD(2100,"GL","A4CGAMS4D",23,4165.23)=""
^DD(2100,"GL","A4CGAMS4D",24,4165.24)=""
^DD(2100,"GL","A4CGAMS4D",25,4165.25)=""
^DD(2100,"GL","A4CGAMS4D",26,4165.26)=""
^DD(2100,"GL","A4CGAMS4D",27,4165.27)=""
^DD(2100,"GL","A4CGAMS4D",28,4165.28)=""
^DD(2100,"GL","A4CGAMS4D",29,4165.29)=""
^DD(2100,"GL","A4CGAMS4D",30,4165.3)=""
^DD(2100,"GL","A4CGAMS4D",31,4165.31)=""
^DD(2100,"GL","A4CGAMS4D",32,4165.32)=""
^DD(2100,"GL","A4CGAMS4D",33,4165.33)=""
^DD(2100,"GL","A4CGAMS4D",34,4165.34)=""
^DD(2100,"GL","A4CGAMS4D",35,4165.35)=""
^DD(2100,"GL","A4CGAMS4D",36,4165.36)=""
^DD(2100,"GL","A4CGAMS4D",37,4165.37)=""
^DD(2100,"GL","A4CGAMS4D",38,4165.38)=""
^DD(2100,"GL","A4CGAMS4D",39,4165.39)=""
^DD(2100,"GL","A4CGAMS4D",40,4165.4)=""
^DD(2100,"GL","A4CGAMS4D",41,4165.41)=""
^DD(2100,"GL","A4CGAMS4D",42,4165.42)=""
^DD(2100,"GL","A4CGAMS4D",43,4165.43)=""
^DD(2100,"GL","A4CGAMS4D",44,4165.44)=""
^DD(2100,"GL","A4CGAMS4D",45,4165.45)=""
^DD(2100,"GL","A4CGAMS4D",46,4165.46)=""
^DD(2100,"GL","A4CGAMS4D",47,4165.47)=""
^DD(2100,"GL","A4CGAMS4E",1,4165.48)=""
^DD(2100,"GL","A4CGAMS4E",2,4165.49)=""
^DD(2100,"GL","A4CGAMS4E",3,4165.5)=""
^DD(2100,"GL","A4CGAMS4E",4,4165.51)=""
^DD(2100,"GL","A4CGAMS4E",5,4165.52)=""
^DD(2100,"GL","A4CGAMS4E",6,4165.53)=""
^DD(2100,"GL","A4CGAMS4E",7,4165.54)=""
^DD(2100,"GL","A4CGAMS4E",8,4165.55)=""
^DD(2100,"GL","A4CGAMS4E",9,4165.56)=""
^DD(2100,"GL","A4CGAMS4F",1,4200.001)=""
^DD(2100,"GL","A4CGAMS4F",2,4200.002)=""
^DD(2100,"GL","A4CGAMS4F",3,4200.003)=""
^DD(2100,"GL","A4CGAMS4F",4,4200.004)=""
^DD(2100,"GL","A4CGAMS4F",5,4200.005)=""
^DD(2100,"GL","A4CGAMS4F",6,4200.006)=""
^DD(2100,"GL","A4CGAMS4F",7,4200.007)=""
^DD(2100,"GL","A4CGAMS4F",8,4200.008)=""
^DD(2100,"GL","A4CGAMS4F",9,4200.009)=""
^DD(2100,"GL","A4CGAMS4F",10,4200.01)=""
^DD(2100,"GL","A4CGAMS4F",11,4200.011)=""
^DD(2100,"GL","A4CGAMS4F",12,4200.012)=""
^DD(2100,"GL","A4CGAMS4F",13,4200.013)=""
^DD(2100,"GL","A4CGAMS4F",14,4200.014)=""
^DD(2100,"GL","A4CGAMS4F",15,4200.015)=""
^DD(2100,"GL","A4CGAMS4F",16,4200.016)=""
^DD(2100,"GL","A4CGAMS4F",17,4200.017)=""
^DD(2100,"GL","A4CGAMS4F",18,4200.018)=""
^DD(2100,"GL","A4CGAMS4F",19,4200.019)=""
^DD(2100,"GL","A4CGAMS4F",20,4200.02)=""
^DD(2100,"GL","A4CGAMS4F",21,4200.021)=""
^DD(2100,"GL","A4CGAMS4F",22,4200.022)=""
^DD(2100,"GL","A4CGAMS4F",23,4200.023)=""
^DD(2100,"GL","A4CGAMS4F",24,4200.024)=""
^DD(2100,"GL","A4CGAMS4F",25,4200.025)=""
^DD(2100,"GL","A4CGAMS4F",26,4200.026)=""
^DD(2100,"GL","A4CGAMS4F",27,4200.027)=""
^DD(2100,"GL","A4CGAMS4F",28,4200.028)=""
^DD(2100,"GL","A4CGAMS4F",29,4200.029)=""
^DD(2100,"GL","A4CGAMS4F",30,4200.03)=""
^DD(2100,"GL","A4CGAMS4F",31,4200.031)=""
^DD(2100,"GL","A4CGAMS4F",32,4200.032)=""
^DD(2100,"GL","A4CGAMS4F",33,4200.033)=""
^DD(2100,"GL","A4CGAMS4F",34,4200.034)=""
^DD(2100,"GL","A4CGAMS4F",35,4200.035)=""
^DD(2100,"GL","A4CGAMS4F",36,4200.036)=""
^DD(2100,"GL","A4CGAMS4G",1,4200.04)=""
^DD(2100,"GL","A4CGAMS4G",2,4200.041)=""
^DD(2100,"GL","A4CGAMS4G",3,4200.042)=""
^DD(2100,"GL","A4CGAMS4G",4,4200.043)=""
^DD(2100,"GL","A4CGAMS4G",5,4200.044)=""
^DD(2100,"GL","A4CGAMS4G",6,4200.045)=""
^DD(2100,"GL","A4CGAMS4G",7,4200.046)=""
^DD(2100,"GL","A4CGAMS4G",8,4200.047)=""
^DD(2100,"GL","A4CGAMS4G",9,4200.048)=""
^DD(2100,"GL","A4CGAMS4G",10,4200.049)=""
^DD(2100,"GL","A4CGAMS4G",11,4200.05)=""
^DD(2100,"GL","A4CGAMS4G",12,4200.051)=""
^DD(2100,"GL","A4CGAMS4G",13,4200.052)=""
^DD(2100,"GL","A4CGAMS4G",14,4200.053)=""
^DD(2100,"GL","A4CGAMS4G",15,4200.054)=""
^DD(2100,"GL","A4CGAMS4G",16,4200.055)=""
^DD(2100,"GL","A4CGAMS4G",17,4200.056)=""
^DD(2100,"GL","A4CGAMS4G",18,4200.057)=""
^DD(2100,"GL","A4CGAMS4G",19,4200.058)=""
^DD(2100,"GL","A4CGAMS4G",20,4200.059)=""
^DD(2100,"GL","A4CGAMS4G",21,4200.06)=""
^DD(2100,"GL","A4CGAMS4G",22,4200.061)=""
^DD(2100,"GL","A4CGAMS4G",23,4200.062)=""
^DD(2100,"GL","A4CGAMS4G",24,4200.063)=""
^DD(2100,"GL","A4CGAMS4G",25,4200.064)=""
^DD(2100,"GL","A4CGAMS4G",26,4200.037)=""
^DD(2100,"GL","A4CGAMS4G",27,4200.038)=""
^DD(2100,"GL","A4CGAMS4G",28,4200.039)=""
^DD(2100,"GL","A4CGAMS4H",1,4201.001)=""
^DD(2100,"GL","A4CGAMS4H",2,4201.002)=""
^DD(2100,"GL","A4CGAMS4H",3,4201.003)=""
^DD(2100,"GL","A4CGAMS4H",4,4201.004)=""
^DD(2100,"GL","A4CGAMS4H",5,4201.005)=""
^DD(2100,"GL","A4CGAMS4H",6,4201.006)=""
^DD(2100,"GL","A4CGAMS4H",7,4201.007)=""
^DD(2100,"GL","A4CGAMS4H",8,4201.008)=""
^DD(2100,"GL","A4CGAMS4H",9,4201.009)=""
^DD(2100,"GL","A4CGAMS4H",10,4201.01)=""
^DD(2100,"GL","A4CGAMS4H",11,4201.011)=""
^DD(2100,"GL","A4CGAMS4H",12,4201.012)=""
^DD(2100,"GL","A4CGAMS4H",13,4201.013)=""
^DD(2100,"GL","A4CGAMS4H",14,4201.014)=""
^DD(2100,"GL","A4CGAMS4H",15,4201.015)=""
^DD(2100,"GL","A4CGAMS4H",16,4201.016)=""
^DD(2100,"GL","A4CGAMS4H",17,4201.017)=""
^DD(2100,"GL","A4CGAMS4H",18,4201.018)=""
^DD(2100,"GL","A4CGAMS4H",19,4201.019)=""
^DD(2100,"GL","A4CGAMS4H",20,4201.02)=""
^DD(2100,"GL","A4CGAMS4H",21,4201.021)=""
^DD(2100,"GL","A4CGAMS4H",22,4201.022)=""
^DD(2100,"GL","A4CGAMS4H",23,4201.023)=""
^DD(2100,"GL","A4CGAMS4H",24,4201.024)=""
^DD(2100,"GL","A4CGAMS4H",25,4201.025)=""
^DD(2100,"GL","A4CGAMS4H",26,4201.026)=""
^DD(2100,"GL","A4CGAMS4H",27,4201.027)=""
^DD(2100,"GL","A4CGAMS4H",28,4201.028)=""
^DD(2100,"GL","A4CGAMS4H",29,4201.029)=""
^DD(2100,"GL","A4CGAMS4H",30,4201.03)=""
^DD(2100,"GL","A4CGAMS4H",31,4201.031)=""
^DD(2100,"GL","A4CGAMS4H",32,4201.032)=""
^DD(2100,"GL","A4CGAMS4H",33,4201.033)=""
^DD(2100,"GL","A4CGAMS4H",34,4201.034)=""
^DD(2100,"GL","A4CGAMS4H",35,4201.035)=""
^DD(2100,"GL","A4CGAMS4H",36,4201.036)=""
^DD(2100,"GL","A4CGAMS4H",37,4201.037)=""
^DD(2100,"GL","A4CGAMS4H",38,4201.038)=""
^DD(2100,"GL","A4CGAMS4H",39,4201.039)=""
^DD(2100,"GL","A4CGAMS4H",40,4201.04)=""
^DD(2100,"GL","A4CGAMS4H",41,4201.041)=""
^DD(2100,"GL","A4CGAMS4I",1,4201.042)=""
^DD(2100,"GL","A4CGAMS4I",2,4201.043)=""
^DD(2100,"GL","A4CGAMS4I",3,4201.044)=""
^DD(2100,"GL","A4CGAMS4I",4,4201.045)=""
^DD(2100,"GL","A4CGAMS4I",5,4201.046)=""
^DD(2100,"GL","A4CGAMS4I",6,4201.047)=""
^DD(2100,"GL","A4CGAMS4I",7,4201.048)=""
^DD(2100,"GL","A4CGAMS4I",8,4201.049)=""
^DD(2100,"GL","A4CGAMS4I",9,4201.05)=""
^DD(2100,"GL","A4CGAMS4I",10,4201.051)=""
^DD(2100,"GL","A4CGAMS4I",11,4201.052)=""
^DD(2100,"GL","A4CGAMS4I",12,4201.053)=""
^DD(2100,"GL","A4CGAMS4I",13,4201.054)=""
^DD(2100,"GL","A4CGAMS4J",1,4202.001)=""
^DD(2100,"GL","A4CGAMS4J",2,4202.002)=""
^DD(2100,"GL","A4CGAMS4J",3,4202.003)=""
^DD(2100,"GL","A4CGAMS4J",4,4202.004)=""
^DD(2100,"GL","A4CGAMS4J",5,4202.005)=""
^DD(2100,"GL","A4CGAMS4J",6,4202.006)=""
^DD(2100,"GL","A4CGAMS4J",7,4202.007)=""
^DD(2100,"GL","A4CGAMS4J",8,4202.008)=""
^DD(2100,"GL","A4CGAMS4J",9,4202.009)=""
^DD(2100,"GL","A4CGAMS4J",10,4202.01)=""
^DD(2100,"GL","A4CGAMS4J",11,4202.011)=""
^DD(2100,"GL","A4CGAMS4J",12,4202.012)=""
^DD(2100,"GL","A4CGAMS4J",13,4202.013)=""
^DD(2100,"GL","A4CGAMS4J",14,4202.014)=""
^DD(2100,"GL","A4CGAMS4J",15,4202.015)=""
^DD(2100,"GL","A4CGAMS4J",16,4202.016)=""
^DD(2100,"GL","A4CGAMS4J",17,4202.017)=""
^DD(2100,"GL","A4CGAMS4J",18,4202.018)=""
^DD(2100,"GL","A4CGAMS4J",19,4202.019)=""
^DD(2100,"GL","A4CGAMS4J",20,4202.02)=""
^DD(2100,"GL","A4CGAMS4J",21,4202.021)=""
^DD(2100,"GL","A4CGAMS4J",22,4202.022)=""
^DD(2100,"GL","A4CGAMS4J",23,4202.023)=""
^DD(2100,"GL","A4CGAMS4J",24,4202.024)=""
^DD(2100,"GL","A4CGAMS4J",25,4202.025)=""
^DD(2100,"GL","A4CGAMS4J",26,4202.026)=""
^DD(2100,"GL","A4CGAMS4J",27,4202.027)=""
^DD(2100,"GL","A4CGAMS4J",28,4202.028)=""
^DD(2100,"GL","A4CGAMS4J",29,4202.029)=""
^DD(2100,"GL","A4CGAMS4J",30,4202.03)=""
^DD(2100,"GL","A4CGAMS4J",31,4202.031)=""
^DD(2100,"GL","A4CGAMS4J",32,4202.032)=""
^DD(2100,"GL","A4CGAMS4J",33,4202.033)=""
^DD(2100,"GL","A4CGAMS4J",34,4202.034)=""
^DD(2100,"GL","A4CGAMS4J",35,4202.035)=""
^DD(2100,"GL","A4CGAMS4J",36,4202.036)=""
^DD(2100,"GL","A4CGAMS4J",37,4202.037)=""
^DD(2100,"GL","A4CGAMS4J",38,4202.038)=""
^DD(2100,"GL","A4CGAMS4J",39,4202.039)=""
^DD(2100,"GL","A4CGAMS4J",40,4202.04)=""
^DD(2100,"GL","A4CGAMS4K",1,4217.001)=""
^DD(2100,"GL","A4CGAMS4K",2,4217.002)=""
^DD(2100,"GL","A4CGAMS4K",3,4217.003)=""
^DD(2100,"GL","A4CGAMS4K",4,4217.004)=""
^DD(2100,"GL","A4CGAMS4K",5,4217.005)=""
^DD(2100,"GL","A4CGAMS4K",6,4217.006)=""
^DD(2100,"GL","A4CGAMS4K",7,4217.007)=""
^DD(2100,"GL","A4CGAMS4K",8,4217.008)=""
^DD(2100,"GL","A4CGAMS4K",9,4217.009)=""
^DD(2100,"GL","A4CGAMS4K",10,4217.01)=""
^DD(2100,"GL","A4CGAMS4K",11,4217.011)=""
^DD(2100,"GL","A4CGAMS4K",12,4217.012)=""
^DD(2100,"GL","A4CGAMS4K",13,4217.013)=""
^DD(2100,"GL","A4CGAMS4L",1,4217.014)=""
^DD(2100,"GL","A4CGAMS4L",2,4217.015)=""
^DD(2100,"GL","A4CGAMS4L",3,4217.016)=""
^DD(2100,"GL","A4CGAMS4L",4,4217.017)=""
^DD(2100,"GL","A4CGAMS4L",5,4217.018)=""
^DD(2100,"GL","A4CGAMS4L",6,4217.019)=""
^DD(2100,"GL","A4CGAMS4L",7,4217.02)=""
^DD(2100,"GL","A4CGAMS4L",8,4217.021)=""
^DD(2100,"GL","A4CGAMS4L",9,4217.022)=""
^DD(2100,"GL","A4CGAMS4L",10,4217.023)=""
^DD(2100,"GL","A4CGAMS4L",11,4217.024)=""
^DD(2100,"GL","A4CGAMS4L",12,4217.025)=""
^DD(2100,"GL","A4CGAMS4L",13,4217.026)=""
^DD(2100,"GL","A4CGAMS4M",1,4217.027)=""
^DD(2100,"GL","A4CGAMS4M",2,4217.028)=""
^DD(2100,"GL","A4CGAMS4M",3,4217.029)=""
^DD(2100,"GL","A4CGAMS4M",4,4217.03)=""
^DD(2100,"GL","A4CGAMS4M",5,4217.031)=""
^DD(2100,"GL","A4CGAMS4M",6,4217.032)=""
^DD(2100,"GL","A4CGAMS4M",7,4217.033)=""
^DD(2100,"GL","A4CGAMS4M",8,4217.034)=""
^DD(2100,"GL","A4CGAMS4M",9,4217.035)=""
^DD(2100,"GL","A4CGAMS4M",10,4217.036)=""
^DD(2100,"GL","A4CGAMS4M",11,4217.037)=""
^DD(2100,"GL","A4CGAMS4M",12,4217.038)=""
^DD(2100,"GL","A4CGAMS4N",1,4217.039)=""
^DD(2100,"GL","A4CGAMS4N",2,4217.04)=""
^DD(2100,"GL","A4CGAMS4N",3,4217.041)=""
^DD(2100,"GL","A4CGAMS4N",4,4217.042)=""
^DD(2100,"GL","A4CGAMS4N",5,4217.043)=""
^DD(2100,"GL","A4CGAMS4N",6,4217.044)=""
^DD(2100,"GL","A4CGAMS4N",7,4217.045)=""
^DD(2100,"GL","A4CGAMS4N",8,4217.046)=""
^DD(2100,"GL","A4CGAMS4N",9,4217.047)=""
^DD(2100,"GL","A4CGAMS4N",10,4217.048)=""
^DD(2100,"GL","A4CGAMS4O",1,4218.001)=""
^DD(2100,"GL","A4CGAMS4O",2,4218.002)=""
^DD(2100,"GL","A4CGAMS4O",3,4218.003)=""
^DD(2100,"GL","A4CGAMS4O",4,4218.004)=""
^DD(2100,"GL","A4CGAMS4O",5,4218.005)=""
^DD(2100,"GL","A4CGAMS4O",6,4218.006)=""
^DD(2100,"GL","A4CGAMS4O",7,4218.007)=""
^DD(2100,"GL","A4CGAMS4O",8,4218.008)=""
^DD(2100,"GL","A4CGAMS4O",9,4218.009)=""
^DD(2100,"GL","A4CGAMS4O",10,4218.01)=""
^DD(2100,"GL","A4CGAMS4O",11,4218.011)=""
^DD(2100,"GL","A4CGAMS4O",12,4218.012)=""
^DD(2100,"GL","A4CGAMS4O",13,4218.013)=""
^DD(2100,"GL","A4CGAMS4O",14,4218.014)=""
^DD(2100,"GL","A4CGAMS4P",1,4218.015)=""
^DD(2100,"GL","A4CGAMS4P",2,4218.016)=""
^DD(2100,"GL","A4CGAMS4P",3,4218.017)=""
^DD(2100,"GL","A4CGAMS4P",4,4218.018)=""
^DD(2100,"GL","A4CGAMS4P",5,4218.019)=""
^DD(2100,"GL","A4CGAMS4P",6,4218.02)=""
^DD(2100,"GL","A4CGAMS4P",7,4218.021)=""
^DD(2100,"GL","A4CGAMS4P",8,4218.022)=""
^DD(2100,"GL","A4CGAMS4P",9,4218.023)=""
^DD(2100,"GL","A4CGAMS4P",10,4218.024)=""
^DD(2100,"GL","A4CGAMS4P",11,4218.025)=""
^DD(2100,"GL","A4CGAMS4P",12,4218.026)=""
^DD(2100,"GL","A4CGAMS4P",13,4218.027)=""
^DD(2100,"GL","A4CGAMS4P",14,4218.028)=""
^DD(2100,"GL","A4CGAMS4P",15,4218.029)=""
^DD(2100,"GL","A4CGAMS4Q",1,4219.001)=""
^DD(2100,"GL","A4CGAMS4Q",2,4219.002)=""
^DD(2100,"GL","A4CGAMS4Q",3,4219.003)=""
^DD(2100,"GL","A4CGAMS4Q",4,4219.004)=""
^DD(2100,"GL","A4CGAMS4Q",5,4219.005)=""
^DD(2100,"GL","A4CGAMS4Q",6,4219.006)=""
^DD(2100,"GL","A4CGAMS4Q",7,4219.007)=""
^DD(2100,"GL","A4CGAMS4Q",8,4219.008)=""
^DD(2100,"GL","A4CGAMS4Q",9,4219.009)=""
^DD(2100,"GL","A4CGAMS4Q",10,4219.01)=""
^DD(2100,"GL","A4CGAMS4Q",11,4219.011)=""
^DD(2100,"GL","A4CGAMS4Q",12,4219.012)=""
^DD(2100,"GL","A4CGAMS4Q",13,4219.013)=""
^DD(2100,"GL","A4CGAMS4Q",14,4219.014)=""
^DD(2100,"GL","A4CGAMS4Q",15,4219.015)=""
^DD(2100,"GL","A4CGAMS4Q",16,4219.016)=""
^DD(2100,"GL","A4CGAMS4Q",17,4219.017)=""
^DD(2100,"GL","A4CGAMS4Q",18,4219.018)=""
^DD(2100,"GL","A4CGAMS4Q",19,4219.019)=""
^DD(2100,"GL","A4CGAMS4Q",20,4219.02)=""
^DD(2100,"GL","A4CGAMS4Q",21,4219.021)=""
^DD(2100,"GL","A4CGAMS4Q",22,4219.022)=""
^DD(2100,"GL","A4CGAMS4Q",23,4219.023)=""
^DD(2100,"GL","A4CGAMS4Q",24,4219.024)=""
^DD(2100,"GL","A4CGAMS4Q",25,4219.025)=""
^DD(2100,"GL","A4CGAMS4Q",26,4219.026)=""
^DD(2100,"GL","A4CGAMS4Q",27,4219.027)=""
^DD(2100,"GL","A4CGAMS4Q",28,4219.028)=""
^DD(2100,"GL","A4CGAMS4Q",29,4219.029)=""
^DD(2100,"GL","A4CGAMS4Q",30,4219.03)=""
^DD(2100,"GL","A4CGAMS4R",1,4220.001)=""
^DD(2100,"GL","A4CGAMS4R",2,4220.002)=""
^DD(2100,"GL","A4CGAMS4R",3,4220.003)=""
^DD(2100,"GL","A4CGAMS4R",4,4220.004)=""
^DD(2100,"GL","A4CGAMS4R",5,4220.005)=""
^DD(2100,"GL","A4CGAMS4R",6,4220.006)=""
^DD(2100,"GL","A4CGAMS4S",1,4264.001)=""
^DD(2100,"GL","A4CGAMS4S",2,4264.002)=""
^DD(2100,"GL","A4CGAMS4S",3,4264.003)=""
^DD(2100,"GL","A4CGAMS4S",4,4264.004)=""
^DD(2100,"GL","A4CGAMS4S",5,4264.005)=""
^DD(2100,"GL","A4CGAMS4S",6,4264.006)=""
^DD(2100,"GL","A4CGAMS4S",7,4264.007)=""
^DD(2100,"GL","A4CGAMS4S",8,4264.008)=""
^DD(2100,"GL","A4CGAMS4S",9,4264.009)=""
^DD(2100,"GL","A4CGAMS4S",10,4264.01)=""
^DD(2100,"GL","A4CGAMS4S",11,4264.011)=""
^DD(2100,"GL","A4CGAMS4S",12,4264.012)=""
^DD(2100,"GL","A4CGAMS4S",13,4264.013)=""
^DD(2100,"GL","A4CGAMS4S",14,4264.014)=""
^DD(2100,"GL","A4CGAMS4S",15,4264.015)=""
^DD(2100,"GL","A4CGAMS4S",16,4264.016)=""
^DD(2100,"GL","A4CGAMS4S",17,4264.017)=""
^DD(2100,"GL","A4CGAMS4S",18,4264.018)=""
^DD(2100,"GL","A4CGAMS4S",19,4264.019)=""
^DD(2100,"GL","A4CGAMS4S",20,4264.02)=""
^DD(2100,"GL","A4CGAMS4S",21,4264.021)=""
^DD(2100,"GL","A4CGAMS4S",22,4264.022)=""
^DD(2100,"GL","A4CGAMS4S",23,4264.023)=""
^DD(2100,"GL","A4CGAMS4S",24,4264.024)=""
^DD(2100,"GL","A4CGAMS4S",25,4264.025)=""
^DD(2100,"GL","A4CGAMS4S",26,4264.026)=""
^DD(2100,"GL","A4CGAMS4S",27,4264.027)=""
^DD(2100,"GL","A4CGAMS4S",28,4264.028)=""
^DD(2100,"GL","A4CGAMS4S",29,4264.029)=""
^DD(2100,"GL","A4CGAMS4S",30,4264.03)=""
^DD(2100,"GL","A4CGAMS4S",31,4264.031)=""
^DD(2100,"GL","A4CGAMS4S",32,4264.032)=""
^DD(2100,"GL","A4CGAMS4S",33,4264.033)=""
^DD(2100,"GL","A4CGAMS4S",34,4264.034)=""
^DD(2100,"GL","A4CGAMS4S",35,4264.035)=""
^DD(2100,"GL","A4CGAMS4S",36,4264.036)=""
^DD(2100,"GL","A4CGAMS4S",37,4264.037)=""
^DD(2100,"GL","A4CGAMS4S",38,4264.038)=""
^DD(2100,"GL","A4CGAMS4S",39,4264.039)=""
^DD(2100,"GL","A4CGAMS4S",40,4264.04)=""
^DD(2100,"GL","A4CGAMS4S",41,4264.041)=""
^DD(2100,"GL","A4CGAMS4T",1,4264.042)=""
^DD(2100,"GL","A4CGAMS4T",2,4264.043)=""
^DD(2100,"GL","A4CGAMS4T",3,4264.044)=""
^DD(2100,"GL","A4CGAMS4T",4,4264.045)=""
^DD(2100,"GL","A4CGAMS4U",1,4265.001)=""
^DD(2100,"GL","A4CGAMS4U",2,4265.002)=""
^DD(2100,"GL","A4CGAMS4U",3,4265.003)=""
^DD(2100,"GL","A4CGAMS4U",4,4265.004)=""
^DD(2100,"GL","A4CGAMS4U",5,4265.005)=""
^DD(2100,"GL","A4CGAMS4U",6,4265.006)=""
^DD(2100,"GL","A4CGAMS4U",7,4265.007)=""
^DD(2100,"GL","A4CGAMS4U",8,4265.008)=""
^DD(2100,"GL","A4CGAMS4U",9,4265.009)=""
^DD(2100,"GL","A4CGAMS4U",10,4265.01)=""
^DD(2100,"GL","A4CGAMS4U",11,4265.011)=""
^DD(2100,"GL","A4CGAMS4U",12,4265.012)=""
^DD(2100,"GL","A4CGAMS4U",13,4265.013)=""
^DD(2100,"GL","A4CGAMS4U",14,4265.014)=""
^DD(2100,"GL","A4CGAMS4U",15,4265.015)=""
^DD(2100,"GL","A4CGAMS4U",16,4265.016)=""
^DD(2100,"GL","A4CGAMS4U",17,4265.017)=""
^DD(2100,"GL","A4CGAMS4U",18,4265.018)=""
^DD(2100,"GL","A4CGAMS4U",19,4265.019)=""
^DD(2100,"GL","A4CGAMS4U",20,4265.02)=""
^DD(2100,"GL","A4CGAMS4U",21,4265.021)=""
^DD(2100,"GL","A4CGAMS4U",22,4265.022)=""
^DD(2100,"GL","A4CGAMS4U",23,4265.023)=""
^DD(2100,"GL","A4CGAMS4U",24,4265.024)=""
^DD(2100,"GL","A4CGAMS4U",25,4265.025)=""
^DD(2100,"GL","A4CGAMS4U",26,4265.026)=""
^DD(2100,"GL","A4CGAMS4U",27,4265.027)=""
^DD(2100,"GL","A4CGAMS4U",28,4265.028)=""
^DD(2100,"GL","A4CGAMS4U",29,4265.029)=""
^DD(2100,"GL","A4CGAMS4U",30,4265.03)=""
^DD(2100,"GL","A4CGAMS4U",31,4265.031)=""
^DD(2100,"GL","A4CGAMS4U",32,4265.032)=""
^DD(2100,"GL","A4CGAMS4V",1,4141.057)=""
^DD(2100,"GL","A4CGAMS4V",2,4141.058)=""
^DD(2100,"GL","A4CGAMS4V",3,4141.059)=""
^DD(2100,"GL","A4CGAMS4V",4,4141.06)=""
^DD(2100,"GL","A4CGAMS4V",5,4141.061)=""
^DD(2100,"GL","A4CGAMS4V",6,4141.062)=""
^DD(2100,"GL","A4CGAMS4V",7,4141.063)=""
^DD(2100,"GL","A4CGAMS4V",8,4141.064)=""
^DD(2100,"GL","A4CGAMS4V",9,4141.065)=""
^DD(2100,"GL","A4CGAMS4V",10,4141.066)=""
^DD(2100,"GL","A4CGAMS4V",11,4141.067)=""
^DD(2100,"GL","A4CGAMS4V",12,4141.068)=""
^DD(2100,"GL","A4CGAMS4V",13,4141.069)=""
^DD(2100,"GL","A4CGAMS4V",14,4141.07)=""
^DD(2100,"GL","A4CGAMS4V",15,4141.071)=""
^DD(2100,"GL","A4CGAMS4V",16,4141.072)=""
^DD(2100,"GL","CODE",0,50)=""
^DD(2100,"GL","DGAMS1",1,1235)=""
^DD(2100,"GL","DGAMS1",2,1236)=""
^DD(2100,"GL","DGAMS1",3,1237)=""
^DD(2100,"GL","DGAMS1",4,1238)=""
^DD(2100,"GL","DGAMS1",5,1239)=""
^DD(2100,"GL","DGAMS1",6,1240)=""
^DD(2100,"GL","DGAMS1",7,1241)=""
^DD(2100,"GL","DGAMS1",8,1242)=""
^DD(2100,"GL","DGAMS1",9,1243)=""
^DD(2100,"GL","DGAMS1",10,1244)=""
^DD(2100,"GL","DGAMS1",11,1245)=""
^DD(2100,"GL","DGAMS1",12,1246)=""
^DD(2100,"GL","DGAMS1",13,1247)=""
^DD(2100,"GL","DGAMS1",14,1248)=""
^DD(2100,"GL","DGAMS1",15,1249)=""
^DD(2100,"GL","DGAMS1",16,1250)=""
^DD(2100,"GL","DGAMS1",17,1251)=""
^DD(2100,"GL","DGAMS1",18,1252)=""
^DD(2100,"GL","DGAMS1",19,1253)=""
^DD(2100,"GL","DGAMS1",20,1254)=""
^DD(2100,"GL","DGAMS1",21,1255)=""
^DD(2100,"GL","DGAMS1",22,1256)=""
^DD(2100,"GL","DGAMS1",23,1257)=""
^DD(2100,"GL","DGAMS1",24,1258)=""
^DD(2100,"GL","DGAMS1",25,1259)=""
^DD(2100,"GL","DGAMS1",26,1260)=""
^DD(2100,"GL","DGAMS1",27,1261)=""
^DD(2100,"GL","DGAMS1",28,1262)=""
^DD(2100,"GL","DGAMS1",29,1263)=""
^DD(2100,"GL","DGAMS1",30,1264)=""
^DD(2100,"GL","DGAMS1",31,1265)=""
^DD(2100,"GL","DGAMS1",32,1266)=""
^DD(2100,"GL","DGAMS1",33,1267)=""
^DD(2100,"GL","DGAMS1",34,1268)=""
^DD(2100,"GL","DGAMS1",35,1269)=""
^DD(2100,"GL","DGAMS1",36,1270)=""
^DD(2100,"GL","DGAMS1",37,1271)=""
^DD(2100,"GL","DGAMS1",38,1272)=""
^DD(2100,"GL","DGAMS1",39,1273)=""
^DD(2100,"GL","DGAMS1",40,1274)=""
^DD(2100,"GL","DGAMS1",41,1275)=""
^DD(2100,"GL","DGAMS1",42,1276)=""
^DD(2100,"GL","DGAMS1",43,1277)=""
^DD(2100,"GL","DGAMS1",44,1278)=""
^DD(2100,"GL","DGAMS1",45,1279)=""
^DD(2100,"GL","DGAMS1",46,1280)=""
^DD(2100,"GL","DGAMS1",47,1281)=""
^DD(2100,"GL","DGAMS1",48,1282)=""
^DD(2100,"GL","DGAMS1",49,1283)=""
^DD(2100,"GL","DGAMS1",50,1284)=""
^DD(2100,"GL","DGAMS1",51,1285)=""
^DD(2100,"GL","DGAMS1A",1,1286)=""
^DD(2100,"GL","DGAMS1A",2,1287)=""
^DD(2100,"GL","DGAMS1A",3,1288)=""
^DD(2100,"GL","DGAMS1A",4,1289)=""
^DD(2100,"GL","DGAMS1A",5,1290)=""
^DD(2100,"GL","DGAMS1A",6,1291)=""
^DD(2100,"GL","DGAMS1A",7,1292)=""
^DD(2100,"GL","DGAMS1A",8,1293)=""
^DD(2100,"GL","DGAMS1A",9,1294)=""
^DD(2100,"GL","DGAMS1A",10,1295)=""
^DD(2100,"GL","DGAMS1A",11,1296)=""
^DD(2100,"GL","DGAMS1A",12,1297)=""
^DD(2100,"GL","DGAMS1A",13,1322)=""
^DD(2100,"GL","DGAMS1A",14,1323)=""
^DD(2100,"GL","DGAMS1A",15,1324)=""
^DD(2100,"GL","DGAMS1A",16,1325)=""
^DD(2100,"GL","DGAMS1A",17,1326)=""
^DD(2100,"GL","DGAMS1A",18,1327)=""
^DD(2100,"GL","DGAMS1A",19,1328)=""
^DD(2100,"GL","DGAMS1A",20,1329)=""
^DD(2100,"GL","DGAMS1A",21,1330)=""
^DD(2100,"GL","DGAMS1A",22,1331)=""
^DD(2100,"GL","DGAMS1A",23,1332)=""
^DD(2100,"GL","DGAMS1A",24,1333)=""
^DD(2100,"GL","DGAMS1A",25,1334)=""
^DD(2100,"GL","DGAMS1A",26,1335)=""
^DD(2100,"GL","DGAMS1A",27,1336)=""
^DD(2100,"GL","DGAMS1A",28,1337)=""
^DD(2100,"GL","DGAMS1A",29,1338)=""
^DD(2100,"GL","DGAMS1A",30,1339)=""
^DD(2100,"GL","DGAMS1A",31,1340)=""
^DD(2100,"GL","DGAMS1A",32,1341)=""
^DD(2100,"GL","DGAMS1A",33,1381)=""
^DD(2100,"GL","DGAMS1B",1,1382)=""
^DD(2100,"GL","DGAMS1B",2,1383)=""
^DD(2100,"GL","DGAMS1B",3,1384)=""
^DD(2100,"GL","DGAMS1B",4,1385)=""
^DD(2100,"GL","DGAMS1B",5,1386)=""
^DD(2100,"GL","DGAMS1B",6,1387)=""
^DD(2100,"GL","DGAMS1B",7,1388)=""
^DD(2100,"GL","DGAMS1B",8,1389)=""
^DD(2100,"GL","DGAMS1B",9,1390)=""
^DD(2100,"GL","DGAMS1B",10,1391)=""
^DD(2100,"GL","DGAMS1B",11,1392)=""
^DD(2100,"GL","DGAMS1B",12,1393)=""
^DD(2100,"GL","DGAMS1B",13,1394)=""
^DD(2100,"GL","DGAMS1B",14,1395)=""
^DD(2100,"GL","DGAMS1B",15,1396)=""
^DD(2100,"GL","DGAMS1B",16,1397)=""
^DD(2100,"GL","DGAMS1B",17,1398)=""
^DD(2100,"GL","DGAMS1B",18,1399)=""
^DD(2100,"GL","DGAMS1B",19,1400)=""
^DD(2100,"GL","DGAMS1B",20,1401)=""
^DD(2100,"GL","DGAMS1B",21,1402)=""
^DD(2100,"GL","DGAMS1B",22,1403)=""
^DD(2100,"GL","DGAMS1B",23,1404)=""
^DD(2100,"GL","DGAMS1B",24,1405)=""
^DD(2100,"GL","DGAMS1B",25,1406)=""
^DD(2100,"GL","DGAMS1B",26,1407)=""
^DD(2100,"GL","DGAMS1B",27,1408)=""
^DD(2100,"GL","DGAMS1B",28,1409)=""
^DD(2100,"GL","DGAMS1B",29,1410)=""
^DD(2100,"GL","DGAMS1B",30,1411)=""
^DD(2100,"GL","DGAMS1B",31,1412)=""
^DD(2100,"GL","DGAMS1B",32,1413)=""
^DD(2100,"GL","DGAMS1B",33,1414)=""
^DD(2100,"GL","DGAMS1B",34,1415)=""
^DD(2100,"GL","DGAMS1B",35,1416)=""
^DD(2100,"GL","DGAMS1B",36,1417)=""
^DD(2100,"GL","DGAMS1B",37,1418)=""
^DD(2100,"GL","DGAMS1B",38,1419)=""
^DD(2100,"GL","DGAMS1B",39,1420)=""
^DD(2100,"GL","DGAMS1B",40,1421)=""
^DD(2100,"GL","DGAMS1B",41,1422)=""
^DD(2100,"GL","DGAMS1B",42,1423)=""
^DD(2100,"GL","DGAMS1B",43,1424)=""
^DD(2100,"GL","DGAMS1B",44,1425)=""
^DD(2100,"GL","DGAMS1B",45,1426)=""
^DD(2100,"GL","DGAMS1B",46,1427)=""
^DD(2100,"GL","DGAMS1B",47,1428)=""
^DD(2100,"GL","DGAMS1B",48,1429)=""
^DD(2100,"GL","DGAMS1C",1,1430)=""
^DD(2100,"GL","DGAMS1C",2,1431)=""
^DD(2100,"GL","DGAMS1C",3,1432)=""
^DD(2100,"GL","DGAMS1C",4,1433)=""
^DD(2100,"GL","DGAMS1C",5,1434)=""
^DD(2100,"GL","DGAMS1C",6,1435)=""
^DD(2100,"GL","DGAMS1C",7,1436)=""
^DD(2100,"GL","DGAMS1C",8,1437)=""
^DD(2100,"GL","DGAMS1C",9,1438)=""
^DD(2100,"GL","DGAMS1C",10,1439)=""
^DD(2100,"GL","DGAMS1C",11,1440)=""
^DD(2100,"GL","DGAMS1C",12,1441)=""
^DD(2100,"GL","DGAMS1C",13,1442)=""
^DD(2100,"GL","DGAMS1C",14,1443)=""
^DD(2100,"GL","DGAMS1C",15,1444)=""
^DD(2100,"GL","DGAMS1C",16,1445)=""
^DD(2100,"GL","DGAMS1C",17,1446)=""
^DD(2100,"GL","DGAMS1C",18,1447)=""
^DD(2100,"GL","DGAMS1C",19,1448)=""
^DD(2100,"GL","DGAMS1C",20,1449)=""
^DD(2100,"GL","DGAMS1C",21,1450)=""
^DD(2100,"GL","DGAMS1D",1,1451)=""
^DD(2100,"GL","DGAMS1D",2,1452)=""
^DD(2100,"GL","DGAMS1D",3,1453)=""
^DD(2100,"GL","DGAMS1D",4,1454)=""
^DD(2100,"GL","DGAMS1D",5,1455)=""
^DD(2100,"GL","DGAMS1D",6,1456)=""
^DD(2100,"GL","DGAMS1D",7,1457)=""
^DD(2100,"GL","DGAMS1D",8,1458)=""
^DD(2100,"GL","DGAMS1D",9,1459)=""
^DD(2100,"GL","DGAMS1D",10,1460)=""
^DD(2100,"GL","DGAMS1D",11,1461)=""
^DD(2100,"GL","DGAMS1D",12,1462)=""
^DD(2100,"GL","DGAMS1D",13,1463)=""
^DD(2100,"GL","DGAMS1D",14,1464)=""
^DD(2100,"GL","DGAMS1D",15,1553)=""
^DD(2100,"GL","DGAMS1D",16,1554)=""
^DD(2100,"GL","DGAMS1D",17,1555)=""
^DD(2100,"GL","DGAMS1D",18,1556)=""
^DD(2100,"GL","DGAMS1D",19,1557)=""
^DD(2100,"GL","DGAMS1D",20,1558)=""
^DD(2100,"GL","DGAMS1D",21,1559)=""
^DD(2100,"GL","ESPAMS7",1,700.01)=""
^DD(2100,"GL","ESPAMS7",2,700.02)=""
^DD(2100,"GL","ESPAMS7",3,700.03)=""
^DD(2100,"GL","ESPAMS7",4,700.04)=""
^DD(2100,"GL","ESPAMS7",5,700.05)=""
^DD(2100,"GL","ESPAMS7",6,700.06)=""
^DD(2100,"GL","ESPAMS7",7,700.07)=""
^DD(2100,"GL","ESPAMS7",8,700.08)=""
^DD(2100,"GL","ESPAMS7",9,700.09)=""
^DD(2100,"GL","ESPAMS7",10,700.1)=""
^DD(2100,"GL","ESPAMS7",11,700.11)=""
^DD(2100,"GL","ESPAMS7",12,700.12)=""
^DD(2100,"GL","ESPAMS7",13,700.13)=""
^DD(2100,"GL","ESPAMS7",14,700.14)=""
^DD(2100,"GL","ESPAMS7",15,700.15)=""
^DD(2100,"GL","ESPAMS7",16,700.16)=""
^DD(2100,"GL","ESPAMS7",17,700.17)=""
^DD(2100,"GL","ESPAMS7",18,700.18)=""
^DD(2100,"GL","ESPAMS7",19,700.19)=""
^DD(2100,"GL","ESPAMS7",20,700.2)=""
^DD(2100,"GL","ESPAMS7",21,700.21)=""
^DD(2100,"GL","ESPAMS7",22,700.22)=""
^DD(2100,"GL","ESPAMS7",23,700.23)=""
^DD(2100,"GL","ESPAMS7",24,700.24)=""
^DD(2100,"GL","ESPAMS7",25,700.25)=""
^DD(2100,"GL","ESPAMS7",26,700.26)=""
^DD(2100,"GL","ESPAMS7",27,700.27)=""
^DD(2100,"GL","ESPAMS7",28,700.28)=""
^DD(2100,"GL","ESPAMS7",29,700.29)=""
^DD(2100,"GL","ESPAMS7",30,700.3)=""
^DD(2100,"GL","ESPAMS7",31,700.31)=""
^DD(2100,"GL","ESPAMS7",32,700.32)=""
^DD(2100,"GL","ESPAMS7",33,700.33)=""
^DD(2100,"GL","ESPAMS7",34,700.34)=""
^DD(2100,"GL","ESPAMS7",35,700.35)=""
^DD(2100,"GL","ESPAMS7A",1,700.36)=""
^DD(2100,"GL","ESPAMS7A",2,700.37)=""
^DD(2100,"GL","ESPAMS7A",3,700.38)=""
^DD(2100,"GL","ESPAMS7A",4,700.39)=""
^DD(2100,"GL","ESPAMS7A",5,700.4)=""
^DD(2100,"GL","ESPAMS7A",6,700.41)=""
^DD(2100,"GL","ESPAMS7A",7,700.42)=""
^DD(2100,"GL","ESPAMS7A",8,700.43)=""
^DD(2100,"GL","ESPAMS7A",9,700.44)=""
^DD(2100,"GL","ESPAMS7A",10,700.45)=""
^DD(2100,"GL","ESPAMS7A",11,700.46)=""
^DD(2100,"GL","ESPAMS7A",12,700.47)=""
^DD(2100,"GL","ESPAMS7A",13,700.48)=""
^DD(2100,"GL","ESPAMS7A",14,700.49)=""
^DD(2100,"GL","ESPAMS7A",15,700.5)=""
^DD(2100,"GL","ESPAMS7A",16,700.51)=""
^DD(2100,"GL","ESPAMS7A",17,700.52)=""
^DD(2100,"GL","ESPAMS7A",18,700.53)=""
^DD(2100,"GL","ESPAMS7A",19,700.54)=""
^DD(2100,"GL","ESPAMS7A",20,700.55)=""
^DD(2100,"GL","ESPAMS7A",21,700.56)=""
^DD(2100,"GL","ESPAMS7A",22,700.57)=""
^DD(2100,"GL","ESPAMS7A",23,700.58)=""
^DD(2100,"GL","ESPAMS7A",24,700.59)=""
^DD(2100,"GL","ESPAMS7A",25,700.6)=""
^DD(2100,"GL","ESPAMS7A",26,700.61)=""
^DD(2100,"GL","ESPAMS7A",27,700.62)=""
^DD(2100,"GL","ESPAMS7A",28,700.63)=""
^DD(2100,"GL","ESPAMS7A",29,700.64)=""
^DD(2100,"GL","ESPAMS7A",30,700.65)=""
^DD(2100,"GL","ESPAMS7A",31,700.66)=""
^DD(2100,"GL","ESPAMS7A",32,700.67)=""
^DD(2100,"GL","ESPAMS7A",33,700.68)=""
^DD(2100,"GL","ESPAMS7A",34,700.69)=""
^DD(2100,"GL","ESPAMS7A",35,700.7)=""
^DD(2100,"GL","ESPAMS7A",36,700.71)=""
^DD(2100,"GL","ESPAMS7A",37,700.72)=""
^DD(2100,"GL","ESPAMS7A",38,700.73)=""
^DD(2100,"GL","ESPAMS7A",39,700.74)=""
^DD(2100,"GL","FBAMS1",1,1530)=""
^DD(2100,"GL","FBAMS1",2,1531)=""
^DD(2100,"GL","FBAMS1",3,1532)=""
^DD(2100,"GL","FBAMS1",4,1533)=""
^DD(2100,"GL","FBAMS1",5,1534)=""
^DD(2100,"GL","FBAMS1",6,1535)=""
^DD(2100,"GL","FBAMS1",7,1536)=""
^DD(2100,"GL","FBAMS1",8,1537)=""
^DD(2100,"GL","FBAMS1",9,1538)=""
^DD(2100,"GL","FBAMS1",10,1539)=""
^DD(2100,"GL","FBAMS1",11,1540)=""
^DD(2100,"GL","FBAMS1",12,1541)=""
^DD(2100,"GL","FBAMS1",13,1542)=""
^DD(2100,"GL","FBAMS1",14,1543)=""
^DD(2100,"GL","FBAMS1",15,1544)=""
^DD(2100,"GL","FBAMS1",16,1545)=""
^DD(2100,"GL","FBAMS1",17,1546)=""
^DD(2100,"GL","FBAMS1",18,1547)=""
^DD(2100,"GL","FBAMS1",19,1548)=""
^DD(2100,"GL","FBAMS1",20,1549)=""
^DD(2100,"GL","FBAMS1",21,1550)=""
^DD(2100,"GL","FBAMS1",22,1551)=""
^DD(2100,"GL","FBAMS1",23,1552)=""
^DD(2100,"GL","FBFEE1",1,1209)=""
^DD(2100,"GL","FBFEE1",2,1210)=""
^DD(2100,"GL","FBFEE1",3,1211)=""
^DD(2100,"GL","FBFEE1",4,1212)=""
^DD(2100,"GL","FBFEE1",5,1213)=""
^DD(2100,"GL","FBFEE1",6,1214)=""
^DD(2100,"GL","FBFEE1",7,1215)=""
^DD(2100,"GL","FBFEE1",8,1216)=""
^DD(2100,"GL","FBFEE1",9,1217)=""
^DD(2100,"GL","FBFEE1",10,1218)=""
^DD(2100,"GL","FBFEE1",11,1219)=""
^DD(2100,"GL","FBFEE1",12,1220)=""
^DD(2100,"GL","FBFEE1",13,1211.5)=""
^DD(2100,"GL","FBFEE1",14,1221)=""
^DD(2100,"GL","FBFEE1",15,1222)=""
^DD(2100,"GL","FBFEE1",16,1223)=""
^DD(2100,"GL","FBFEE1",17,1224)=""
^DD(2100,"GL","FBFEE1",18,1225)=""
^DD(2100,"GL","FBFEE1",19,1226)=""
^DD(2100,"GL","FBFEE1",20,1227)=""
^DD(2100,"GL","FBFEE1",21,1228)=""
^DD(2100,"GL","FBFEE1",22,1229)=""
^DD(2100,"GL","FBFEE1",23,1230)=""
^DD(2100,"GL","FBFEE1",24,1231)=""
^DD(2100,"GL","FBFEE1",25,1232)=""
^DD(2100,"GL","FBFEE1",26,1233)=""
^DD(2100,"GL","FBFEE1",27,1234)=""
^DD(2100,"GL","FBFEE1A",1,1342)=""
^DD(2100,"GL","FBFEE1A",2,1343)=""
^DD(2100,"GL","FBFEE1A",3,1344)=""
^DD(2100,"GL","FBFEE1A",4,1345)=""
^DD(2100,"GL","FBFEE1A",5,1346)=""
^DD(2100,"GL","FBFEE1A",6,1347)=""
^DD(2100,"GL","FBFEE1A",7,1348)=""
^DD(2100,"GL","FBFEE1A",8,1349)=""
^DD(2100,"GL","FBFEE1A",9,1350)=""
^DD(2100,"GL","FBFEE1A",10,1351)=""
^DD(2100,"GL","FBFEE1A",11,1352)=""
^DD(2100,"GL","FBFEE1A",12,1353)=""
^DD(2100,"GL","FBFEE1A",13,1354)=""
^DD(2100,"GL","FBFEE1A",14,1355)=""
^DD(2100,"GL","FBFEE1A",15,1356)=""
^DD(2100,"GL","FBFEE1A",16,1357)=""
^DD(2100,"GL","FBFEE1A",17,1358)=""
^DD(2100,"GL","FBFEE1A",18,1359)=""
^DD(2100,"GL","FBFEE1A",19,1360)=""
^DD(2100,"GL","FBFEE1A",20,1361)=""
^DD(2100,"GL","FBFEE1A",21,1362)=""
^DD(2100,"GL","FBFEE1A",22,1363)=""
^DD(2100,"GL","FBFEE1A",23,1364)=""
^DD(2100,"GL","FBFEE1A",24,1365)=""
^DD(2100,"GL","FBFEE1A",25,1366)=""
^DD(2100,"GL","FBFEE1A",26,1367)=""
^DD(2100,"GL","FBFEE1A",27,1368)=""
^DD(2100,"GL","FBFEE1A",28,1369)=""
^DD(2100,"GL","FBFEE1A",29,1370)=""
^DD(2100,"GL","FBFEE1A",30,1371)=""
^DD(2100,"GL","FBFEE1A",31,1372)=""
^DD(2100,"GL","FBFEE1A",32,1373)=""
^DD(2100,"GL","FBFEE1A",33,1374)=""
^DD(2100,"GL","FBFEE1A",34,1375)=""
^DD(2100,"GL","FBFEE1A",35,1376)=""
^DD(2100,"GL","FBFEE1A",36,1377)=""
^DD(2100,"GL","FBFEE1A",37,1378)=""
^DD(2100,"GL","FBFEE1A",38,1379)=""
^DD(2100,"GL","FBFEE1A",39,1380)=""
^DD(2100,"GL","FBFEE2",1,1600)=""
^DD(2100,"GL","FBFEE2",2,1601)=""
^DD(2100,"GL","FBFEE2",3,1602)=""
^DD(2100,"GL","FHAMS4A",1,4224.001)=""
^DD(2100,"GL","FHAMS4A",2,4224.002)=""
^DD(2100,"GL","FHAMS4A",3,4224.003)=""
^DD(2100,"GL","FHAMS4A",4,4224.004)=""
^DD(2100,"GL","FHAMS4A",5,4224.005)=""
^DD(2100,"GL","FHAMS4A",6,4224.006)=""
^DD(2100,"GL","FHAMS4A",7,4224.007)=""
^DD(2100,"GL","FHAMS4A",8,4224.008)=""
^DD(2100,"GL","FHAMS4A",9,4224.009)=""
^DD(2100,"GL","FHAMS4A",10,4224.01)=""
^DD(2100,"GL","FHAMS4A",11,4224.011)=""
^DD(2100,"GL","FHAMS4A",12,4224.012)=""
^DD(2100,"GL","FMS",1,401)=""
^DD(2100,"GL","FMS",2,402)=""
^DD(2100,"GL","FMS",3,403)=""
^DD(2100,"GL","FMS",4,404)=""
^DD(2100,"GL","FMS",5,405)=""
^DD(2100,"GL","FMS1",1,420.2)=""
^DD(2100,"GL","FMS1",2,421.2)=""
^DD(2100,"GL","FMS1",3,420.3)=""
^DD(2100,"GL","FMS1",4,421.3)=""
^DD(2100,"GL","FMS1",5,420.4)=""
^DD(2100,"GL","FMS1",6,421.4)=""
^DD(2100,"GL","FMS1",7,420.5)=""
^DD(2100,"GL","FMS1",8,421.5)=""
^DD(2100,"GL","FMS1",9,420.6)=""
^DD(2100,"GL","FMS1",10,421.6)=""
^DD(2100,"GL","FMSB",1,465.1)=""
^DD(2100,"GL","FMSB",2,465.101)=""
^DD(2100,"GL","FMSB",3,465.2)=""
^DD(2100,"GL","FMSB",4,465.3)=""
^DD(2100,"GL","FMSB",5,465.4)=""
^DD(2100,"GL","FMSB",6,465.5)=""
^DD(2100,"GL","FMSB",7,465.6)=""
^DD(2100,"GL","FMSB",8,465.7)=""
^DD(2100,"GL","FMSB",9,465.8)=""
^DD(2100,"GL","FMSB",11,465.11)=""
^DD(2100,"GL","FMSB",12,465.12)=""
^DD(2100,"GL","FMSB",13,465.9)=""
^DD(2100,"GL","FMSDD2",17,455.17)=""
^DD(2100,"GL","FMSDD2",18,455.18)=""
^DD(2100,"GL","FMSDD2",19,455.19)=""
^DD(2100,"GL","FMSDD2",22,455.22)=""
^DD(2100,"GL","FMSIF2",1,458.01)=""
^DD(2100,"GL","FMSIF2",2,458.02)=""
^DD(2100,"GL","FMSIF2",10,458.1)=""
^DD(2100,"GL","FMSIF2",11,458.11)=""
^DD(2100,"GL","FMSIF2",12,458.12)=""
^DD(2100,"GL","FMSIF2",13,458.13)=""
^DD(2100,"GL","FMSIF2",14,458.14)=""
^DD(2100,"GL","FMSIF2",15,458.15)=""
^DD(2100,"GL","FMSIF2",19,458.19)=""
^DD(2100,"GL","FMSIF2",20,458.2)=""
^DD(2100,"GL","FMSIF2",22,458.22)=""
^DD(2100,"GL","FMSIF2",23,458.23)=""
^DD(2100,"GL","FMSIF2",24,458.24)=""
^DD(2100,"GL","FMSIV2",1,466.01)=""
^DD(2100,"GL","FMSIV2",2,466.02)=""
^DD(2100,"GL","FMSIV2",3,466.03)=""
^DD(2100,"GL","FMSLIN",0,500)=""
^DD(2100,"GL","FMSMO1",1,462.01)=""
^DD(2100,"GL","FMSMO1",2,462.02)=""
^DD(2100,"GL","FMSMO2",6,462.06)=""
^DD(2100,"GL","FMSMO2",7,462.07)=""
^DD(2100,"GL","FMSMO2",8,462.08)=""
^DD(2100,"GL","FMSMO2",11,462.11)=""
^DD(2100,"GL","FMSMO2",16,462.16)=""
^DD(2100,"GL","FMSMO2",17,462.17)=""
^DD(2100,"GL","FMSMO2",21,462.21)=""
^DD(2100,"GL","FMSMO2",22,462.22)=""
^DD(2100,"GL","FMSMO2",23,462.23)=""
^DD(2100,"GL","FMSMO3",1,462.24)=""
^DD(2100,"GL","FMSMO3",2,462.25)=""
^DD(2100,"GL","FMSMO3",3,462.26)=""
^DD(2100,"GL","FMSMO3",4,462.27)=""
^DD(2100,"GL","FMSMO3",5,462.28)=""
^DD(2100,"GL","FMSMO3",6,462.29)=""
^DD(2100,"GL","FMSMO3",8,462.31)=""
^DD(2100,"GL","FMSMO3",9,462.32)=""
^DD(2100,"GL","FMSMO3",10,462.33)=""
^DD(2100,"GL","FMSMO3",11,462.34)=""
^DD(2100,"GL","FMSMO3",12,462.35)=""
^DD(2100,"GL","FMSMO3",13,462.36)=""
^DD(2100,"GL","FMSMO3",15,462.38)=""
^DD(2100,"GL","FMSMO3",16,462.39)=""
^DD(2100,"GL","FMSMO3",17,462.4)=""
^DD(2100,"GL","FMSMO3",18,462.41)=""
^DD(2100,"GL","FMSMO3",19,462.42)=""
^DD(2100,"GL","FMSMO3",20,462.43)=""
^DD(2100,"GL","FMSMO3",21,462.44)=""
^DD(2100,"GL","FMSMO3",22,462.45)=""
^DD(2100,"GL","FMSMO3",23,462.46)=""
^DD(2100,"GL","FMSMO3",24,462.47)=""
^DD(2100,"GL","FMSMO3",25,462.48)=""
^DD(2100,"GL","FMSMO3",27,462.5)=""
^DD(2100,"GL","FMSMO3",28,462.51)=""
^DD(2100,"GL","FMSMO3",29,462.52)=""
^DD(2100,"GL","FMSMO3",30,462.53)=""
^DD(2100,"GL","FMSMO3",31,462.54)=""
^DD(2100,"GL","FMSMO3",32,462.55)=""
^DD(2100,"GL","FMSMO3",33,462.56)=""
^DD(2100,"GL","FMSMO3",34,462.57)=""
^DD(2100,"GL","FMSMO3",35,462.58)=""
^DD(2100,"GL","FMSMO4",8,462.67)=""
^DD(2100,"GL","FMSMO5",1,462.71)=""
^DD(2100,"GL","FMSMO5",2,462.72)=""
^DD(2100,"GL","FMSMO5",3,462.73)=""
^DD(2100,"GL","FMSMO5",4,462.74)=""
^DD(2100,"GL","FMSMO5",5,462.75)=""
^DD(2100,"GL","FMSMO5",6,462.76)=""
^DD(2100,"GL","FMSMO5",7,462.77)=""
^DD(2100,"GL","FMSMO5",8,462.78)=""
^DD(2100,"GL","FMSPT2",1,454.28)=""
^DD(2100,"GL","FMSPV3",1,467.03)=""
^DD(2100,"GL","FMSPV3",2,467.04)=""
^DD(2100,"GL","FMSPV3",3,467.05)=""
^DD(2100,"GL","FMSPV3",4,467.06)=""
^DD(2100,"GL","FMSPV3",5,467.08)=""
^DD(2100,"GL","FMSPV3",6,467.09)=""
^DD(2100,"GL","FMSPV3",7,467.1)=""
^DD(2100,"GL","FMSPV3",8,467.11)=""
^DD(2100,"GL","FMSPV3",9,467.12)=""
^DD(2100,"GL","FMSPV3",10,467.13)=""
^DD(2100,"GL","FMSPV3",11,467.14)=""
^DD(2100,"GL","FMSPV3",12,467.15)=""
^DD(2100,"GL","FMSPV3",13,467.16)=""
^DD(2100,"GL","FMSPV4",1,467.01)=""
^DD(2100,"GL","FMSPV4",2,467.02)=""
^DD(2100,"GL","FMSPV4",3,467.17)=""
^DD(2100,"GL","FMSPV4",4,467.18)=""
^DD(2100,"GL","FMSPV4",5,467.19)=""
^DD(2100,"GL","FMSPV4",6,467.2)=""
^DD(2100,"GL","FMSPV4",7,467.21)=""
^DD(2100,"GL","FMSPV4",8,467.22)=""
^DD(2100,"GL","FMSPV4",9,467.23)=""
^DD(2100,"GL","FMSPV4",10,467.24)=""
^DD(2100,"GL","FMSPV5",1,467.25)=""
^DD(2100,"GL","FMSPV5",2,467.26)=""
^DD(2100,"GL","FMSPV5",3,467.27)=""
^DD(2100,"GL","FMSRC2",1,463.01)=""
^DD(2100,"GL","FMSRC2",2,463.02)=""
^DD(2100,"GL","FMSRC2",3,463.03)=""
^DD(2100,"GL","FMSRC2",4,463.04)=""
^DD(2100,"GL","FMSRC2",5,463.05)=""
^DD(2100,"GL","FMSRC2",6,463.08)=""
^DD(2100,"GL","FMSRC2",7,463.09)=""
^DD(2100,"GL","FMSRC2",8,463.1)=""
^DD(2100,"GL","FMSRC3",1,463.06)=""
^DD(2100,"GL","FMSRC3",2,463.07)=""
^DD(2100,"GL","FMSRC3",3,463.11)=""
^DD(2100,"GL","FMSRC3",4,463.12)=""
^DD(2100,"GL","FMSTB2",1,460.01)=""
^DD(2100,"GL","FMSTB2",6,460.06)=""
^DD(2100,"GL","FMSTB2",13,460.13)=""
^DD(2100,"GL","FMSTB2",15,460.15)=""
^DD(2100,"GL","FMSTB2",16,460.16)=""
^DD(2100,"GL","FMSTB2",17,460.17)=""
^DD(2100,"GL","FMSTB2",18,460.18)=""
^DD(2100,"GL","FMSTB2",19,460.19)=""
^DD(2100,"GL","FMSTB2",20,460.2)=""
^DD(2100,"GL","FMSTB2",21,460.21)=""
^DD(2100,"GL","FMSTB2",22,460.22)=""
^DD(2100,"GL","FMSTB2",23,460.23)=""
^DD(2100,"GL","FMSTB2",24,460.24)=""
^DD(2100,"GL","FMSTB2",25,460.25)=""
^DD(2100,"GL","FMSTB2",28,460.28)=""
^DD(2100,"GL","FMSTB2",29,460.29)=""
^DD(2100,"GL","FMSTB2",30,460.3)=""
^DD(2100,"GL","FMSTB3",26,460.26)=""
^DD(2100,"GL","FMSTN2",1,461.01)=""
^DD(2100,"GL","FMSTN2",8,461.08)=""
^DD(2100,"GL","FMSTN2",17,461.17)=""
^DD(2100,"GL","FMSTN2",18,461.18)=""
^DD(2100,"GL","FMSTN2",19,461.19)=""
^DD(2100,"GL","FMSTN2",20,461.2)=""
^DD(2100,"GL","FMSTN2",21,461.21)=""
^DD(2100,"GL","FMSTN2",22,461.22)=""
^DD(2100,"GL","FMSTN2",23,461.23)=""
^DD(2100,"GL","FMSTN2",24,461.24)=""
^DD(2100,"GL","FMSTN2",25,461.25)=""
^DD(2100,"GL","FMSTN2",26,461.26)=""
^DD(2100,"GL","FMSTN2",27,461.27)=""
^DD(2100,"GL","FMSTN3",9,461.4)=""
^DD(2100,"GL","FMSTN3",10,461.41)=""
^DD(2100,"GL","FMSTN3",11,461.42)=""
^DD(2100,"GL","FMSTN4",1,461.44)=""
^DD(2100,"GL","FMSTN4",2,461.45)=""
^DD(2100,"GL","FMSTO2",5,452.05)=""
^DD(2100,"GL","FMSTO2",14,452.14)=""
^DD(2100,"GL","FMSTO2",16,452.16)=""
^DD(2100,"GL","FMSTO2",17,452.17)=""
^DD(2100,"GL","FMSTO2",18,452.18)=""
^DD(2100,"GL","FMSTO2",19,452.19)=""
^DD(2100,"GL","FMSTO2",20,452.2)=""
^DD(2100,"GL","FMSTO2",21,452.21)=""
^DD(2100,"GL","FMSTO2",22,452.22)=""
^DD(2100,"GL","FMSTO2",23,452.23)=""
^DD(2100,"GL","FMSTO2",24,452.24)=""
^DD(2100,"GL","FMSTO3",4,452.31)=""
^DD(2100,"GL","FMSTO3",5,452.32)=""
^DD(2100,"GL","FMSTO3",6,452.33)=""
^DD(2100,"GL","FMSTO3",7,452.34)=""
^DD(2100,"GL","FMSTO3",8,452.35)=""
^DD(2100,"GL","FMSTO3",9,452.36)=""
^DD(2100,"GL","FMSTO3",10,452.37)=""
^DD(2100,"GL","FMSTO3",11,452.38)=""
^DD(2100,"GL","FMSTO3",12,452.39)=""
^DD(2100,"GL","FMSTO3",13,452.4)=""
^DD(2100,"GL","FMSTO3",14,452.41)=""
^DD(2100,"GL","FMSTO3",15,452.42)=""
^DD(2100,"GL","FMSTO3",16,452.43)=""
^DD(2100,"GL","FMSTO3",17,452.44)=""
^DD(2100,"GL","FMSTO4",1,452.47)=""
^DD(2100,"GL","FMSTO4",2,452.48)=""
^DD(2100,"GL","FMSTO4",3,452.49)=""
^DD(2100,"GL","FMSTO4",4,452.5)=""
^DD(2100,"GL","FMSTO4",5,452.51)=""
^DD(2100,"GL","FMSTO4",6,452.52)=""
^DD(2100,"GL","FMSTO4",7,452.53)=""
^DD(2100,"GL","FMSTO4",8,452.54)=""
^DD(2100,"GL","FMSTO4",9,452.55)=""
^DD(2100,"GL","FMSTO4",10,452.56)=""
^DD(2100,"GL","FMSTO4",11,452.57)=""
^DD(2100,"GL","FMSTO4",13,452.59)=""
^DD(2100,"GL","FMSTO4",14,452.6)=""
^DD(2100,"GL","FMSTO4",16,452.62)=""
^DD(2100,"GL","FMSTO4",17,452.63)=""
^DD(2100,"GL","FMSTO4",18,452.64)=""
^DD(2100,"GL","FMSTO4",19,452.65)=""
^DD(2100,"GL","FMSTO5",1,452.66)=""
^DD(2100,"GL","FMSTO5",2,452.67)=""
^DD(2100,"GL","FMSTO5",3,452.68)=""
^DD(2100,"GL","FMSTO5",4,452.69)=""
^DD(2100,"GL","FMSTO5",5,452.7)=""
^DD(2100,"GL","FMSTO5",6,452.71)=""
^DD(2100,"GL","FMSTO5",7,452.72)=""
^DD(2100,"GL","FMSTO5",8,452.73)=""
^DD(2100,"GL","FMSTO5",9,452.74)=""
^DD(2100,"GL","FMSTO6",1,452.77)=""
^DD(2100,"GL","FMSTO6",2,452.78)=""
^DD(2100,"GL","FMSTO6",3,452.79)=""
^DD(2100,"GL","FMSTO6",4,452.8)=""
^DD(2100,"GL","FMSTP2",6,454.06)=""
^DD(2100,"GL","FMSTP2",7,454.07)=""
^DD(2100,"GL","FMSTP2",9,454.09)=""
^DD(2100,"GL","FMSTP2",10,454.1)=""
^DD(2100,"GL","FMSTP2",11,454.11)=""
^DD(2100,"GL","FMSTP2",12,454.12)=""
^DD(2100,"GL","FMSTP2",13,454.13)=""
^DD(2100,"GL","FMSTP2",14,454.14)=""
^DD(2100,"GL","FMSTP2",16,454.16)=""
^DD(2100,"GL","FMSTP2",18,454.18)=""
^DD(2100,"GL","FMSTP2",21,454.21)=""
^DD(2100,"GL","FMSTP2",23,454.23)=""
^DD(2100,"GL","FMSTP2",24,454.24)=""
^DD(2100,"GL","FMSTP3",1,454.29)=""
^DD(2100,"GL","FMSTP3",7,454.35)=""
^DD(2100,"GL","FMSTP3",8,454.36)=""
^DD(2100,"GL","FMSTP3",9,454.37)=""
^DD(2100,"GL","FMSTP3",10,454.38)=""
^DD(2100,"GL","FMSTP3",11,454.39)=""
^DD(2100,"GL","FMSTP3",12,454.4)=""
^DD(2100,"GL","FMSTP3",13,454.41)=""
^DD(2100,"GL","FMSTP3",14,454.42)=""
^DD(2100,"GL","FMSTP3",15,454.43)=""
^DD(2100,"GL","FMSTP3",16,454.44)=""
^DD(2100,"GL","FMSTP3",18,454.46)=""
^DD(2100,"GL","FMSTP3",19,454.47)=""
^DD(2100,"GL","FMSTP3",20,454.48)=""
^DD(2100,"GL","FMSTV2",1,450.01)=""
^DD(2100,"GL","FMSTV2",2,450.02)=""
^DD(2100,"GL","FMSTV2",3,450.03)=""
^DD(2100,"GL","FMSTV2",4,450.04)=""
^DD(2100,"GL","FMSTV2",5,450.05)=""
^DD(2100,"GL","FMSTV2",6,450.06)=""
^DD(2100,"GL","FMSTV2",7,450.07)=""
^DD(2100,"GL","FMSTV2",8,450.08)=""
^DD(2100,"GL","FMSTV2",9,450.09)=""
^DD(2100,"GL","FMSTV2",10,450.1)=""
^DD(2100,"GL","FMSTV2",11,450.11)=""
^DD(2100,"GL","FMSTV2",12,450.12)=""
^DD(2100,"GL","FMSTV2",13,450.13)=""
^DD(2100,"GL","FMSTV2",14,450.14)=""
^DD(2100,"GL","FMSTV2",15,450.15)=""
^DD(2100,"GL","FMSTV2",16,450.16)=""
^DD(2100,"GL","FMSTV2",17,450.17)=""
^DD(2100,"GL","FMSTV2",18,450.18)=""
^DD(2100,"GL","FMSTV2",19,450.19)=""
^DD(2100,"GL","FMSTV2",20,450.2)=""
^DD(2100,"GL","FMSTV2",21,450.21)=""
^DD(2100,"GL","FMSTV2",22,450.22)=""
^DD(2100,"GL","FMSTV2",23,450.23)=""
^DD(2100,"GL","FMSTV2",24,450.24)=""
^DD(2100,"GL","FMSTV2",25,450.25)=""
^DD(2100,"GL","FMSTV2",26,450.26)=""
^DD(2100,"GL","FMSTV2",27,450.27)=""
^DD(2100,"GL","FMSTV2",28,450.28)=""
^DD(2100,"GL","FMSTV2",29,450.82)=""
^DD(2100,"GL","FMSTV2",30,450.83)=""
^DD(2100,"GL","FMSTV2",31,450.84)=""
^DD(2100,"GL","FMSTV3",1,450.29)=""
^DD(2100,"GL","FMSTV3",2,450.3)=""
^DD(2100,"GL","FMSTV3",3,450.31)=""
^DD(2100,"GL","FMSTV3",4,450.32)=""
^DD(2100,"GL","FMSTV3",5,450.33)=""
^DD(2100,"GL","FMSTV3",6,450.34)=""
^DD(2100,"GL","FMSTV3",7,450.35)=""
^DD(2100,"GL","FMSTV3",8,450.36)=""
^DD(2100,"GL","FMSTV3",9,450.37)=""
^DD(2100,"GL","FMSTV3",10,450.38)=""
^DD(2100,"GL","FMSTV3",11,450.39)=""
^DD(2100,"GL","FMSTV3",12,450.4)=""
^DD(2100,"GL","FMSTV3",13,450.41)=""
^DD(2100,"GL","FMSTV3",14,450.42)=""
^DD(2100,"GL","FMSTV3",15,450.43)=""
^DD(2100,"GL","FMSTV3",16,450.44)=""
^DD(2100,"GL","FMSTV3",17,450.45)=""
^DD(2100,"GL","FMSTV3",18,450.46)=""
^DD(2100,"GL","FMSTV3",19,450.47)=""
^DD(2100,"GL","FMSTV3",20,450.48)=""
^DD(2100,"GL","FMSTV3",21,450.49)=""
^DD(2100,"GL","FMSTV3",22,450.5)=""
^DD(2100,"GL","FMSTV3",23,450.51)=""
^DD(2100,"GL","FMSTV3",24,450.52)=""
^DD(2100,"GL","FMSTV3",25,450.53)=""
^DD(2100,"GL","FMSTV3",26,450.54)=""
^DD(2100,"GL","FMSTV3",27,450.85)=""
^DD(2100,"GL","FMSTV4",1,450.55)=""
^DD(2100,"GL","FMSTV4",2,450.56)=""
^DD(2100,"GL","FMSTV4",3,450.57)=""
^DD(2100,"GL","FMSTV4",4,450.58)=""
^DD(2100,"GL","FMSTV4",5,450.59)=""
^DD(2100,"GL","FMSTV4",6,450.6)=""
^DD(2100,"GL","FMSTV4",7,450.61)=""
^DD(2100,"GL","FMSTV4",8,450.62)=""
^DD(2100,"GL","FMSTV4",9,450.63)=""
^DD(2100,"GL","FMSTV4",10,450.64)=""
^DD(2100,"GL","FMSTV4",11,450.65)=""
^DD(2100,"GL","FMSTV4",12,450.66)=""
^DD(2100,"GL","FMSTV4",13,450.67)=""
^DD(2100,"GL","FMSTV4",14,450.68)=""
^DD(2100,"GL","FMSTV4",15,450.69)=""
^DD(2100,"GL","FMSTV4",16,450.7)=""
^DD(2100,"GL","FMSTV4",17,450.71)=""
^DD(2100,"GL","FMSTV4",18,450.72)=""
^DD(2100,"GL","FMSTV4",19,450.73)=""
^DD(2100,"GL","FMSTV4",20,450.74)=""
^DD(2100,"GL","FMSTV4",21,450.75)=""
^DD(2100,"GL","FMSTV4",22,450.76)=""
^DD(2100,"GL","FMSTV4",23,450.77)=""
^DD(2100,"GL","FMSTV4",24,450.78)=""
^DD(2100,"GL","FMSTV5",1,450.79)=""
^DD(2100,"GL","FMSTV5",2,450.8)=""
^DD(2100,"GL","FMSTV5",3,450.81)=""
^DD(2100,"GL","GECOFORM2",1,2201.01)=""
^DD(2100,"GL","GECOFORM2",2,2201.02)=""
^DD(2100,"GL","GECOFORM2",3,2201.03)=""
^DD(2100,"GL","GECOFORM2",4,2201.04)=""
^DD(2100,"GL","GECOFORM2",5,2201.11)=""
^DD(2100,"GL","GECOFORM2",6,2201.06)=""
^DD(2100,"GL","GECOFORM2",7,2201.08)=""
^DD(2100,"GL","GECOFORM2",8,2201.09)=""
^DD(2100,"GL","GECOFORM2",9,2201.1)=""
^DD(2100,"GL","GECOHBHC2",1,2200.01)=""
^DD(2100,"GL","GECOHBHC2",2,2200.02)=""
^DD(2100,"GL","GECOHBHC2",3,2200.03)=""
^DD(2100,"GL","GECOHBHC2",4,2200.04)=""
^DD(2100,"GL","GECOHBHC2",5,2200.05)=""
^DD(2100,"GL","GECOHBHC2",6,2200.06)=""
^DD(2100,"GL","GECOHBHC2",7,2200.07)=""
^DD(2100,"GL","GECOHBHC2",8,2200.08)=""
^DD(2100,"GL","GECOHBHC2",9,2200.09)=""
^DD(2100,"GL","GECOHBHC2",10,2200.1)=""
^DD(2100,"GL","GECOHBHC2",11,2200.11)=""
^DD(2100,"GL","GECOHBHC2",12,2200.12)=""
^DD(2100,"GL","GECOHBHC2",13,2200.13)=""
^DD(2100,"GL","GECOHBHC2",14,2200.14)=""
^DD(2100,"GL","GECOHBHC2",15,2200.15)=""
^DD(2100,"GL","GECOHBHC2",16,2200.16)=""
^DD(2100,"GL","GECOHBHC2",17,2200.17)=""
^DD(2100,"GL","GECOHBHC2",18,2200.18)=""
^DD(2100,"GL","GECOHBHC2",19,2200.19)=""
^DD(2100,"GL","GECOHBHC2",20,2200.2)=""
^DD(2100,"GL","GECOHBHC2",21,2200.21)=""
^DD(2100,"GL","GECOHBHC2",22,2200.22)=""
^DD(2100,"GL","GECOHBHC2",23,2200.23)=""
^DD(2100,"GL","GECOHBHC2",24,2200.24)=""
^DD(2100,"GL","GECOHBHC2",25,2200.25)=""
^DD(2100,"GL","GECOHBHC2",26,2200.26)=""
^DD(2100,"GL","GECOHBHC2",27,2200.27)=""
^DD(2100,"GL","GECOHBHC2",28,2200.28)=""
^DD(2100,"GL","GECOHBHC2",29,2200.29)=""
^DD(2100,"GL","GECOHBHC2",30,2200.3)=""
^DD(2100,"GL","GECOHBHC2",31,2200.31)=""
^DD(2100,"GL","GECOHBHC2",32,2200.32)=""
^DD(2100,"GL","GECOHBHC2",33,2200.33)=""
^DD(2100,"GL","GECOHBHC2",34,2200.34)=""
^DD(2100,"GL","GECOHBHC2",35,2200.35)=""
^DD(2100,"GL","GECOHBHC2",36,2200.36)=""
^DD(2100,"GL","GECOHBHC2",37,2200.37)=""
^DD(2100,"GL","GECOHBHC2",38,2200.38)=""
^DD(2100,"GL","GECOHBHC2",39,2200)=""
^DD(2100,"GL","GECOHBHC2",40,2200.39)=""
^DD(2100,"GL","GECOHBHC2A",1,2200.4)=""
^DD(2100,"GL","GECOHBHC2A",2,2200.41)=""
^DD(2100,"GL","GECOHBHC2A",3,2200.42)=""
^DD(2100,"GL","GECOHBHC2A",4,2200.43)=""
^DD(2100,"GL","GECOHBHC2A",5,2200.44)=""
^DD(2100,"GL","GECOHBHC2A",6,2200.45)=""
^DD(2100,"GL","GECOHBHC2A",7,2200.5)=""
^DD(2100,"GL","GECOHBHC2A",8,2200.51)=""
^DD(2100,"GL","GECOHBHC2A",9,2200.52)=""
^DD(2100,"GL","GECOHBHC2A",10,2200.53)=""
^DD(2100,"GL","GECOHBHC2A",11,2200.54)=""
^DD(2100,"GL","GECOHBHC2A",12,2200.55)=""
^DD(2100,"GL","GECONSY4",1,4350)=""
^DD(2100,"GL","GECONSY4",2,4351)=""
^DD(2100,"GL","GECONSY4",3,4352)=""
^DD(2100,"GL","GECONSY4",4,4353)=""
^DD(2100,"GL","GECONSY4",5,4354)=""
^DD(2100,"GL","GECONSY4",6,4355)=""
^DD(2100,"GL","GECONSY4",7,4356)=""
^DD(2100,"GL","GECONSY4",8,4357)=""
^DD(2100,"GL","GECONSY4",9,4358)=""
^DD(2100,"GL","GECONSY4",10,4359)=""
^DD(2100,"GL","GECONSY4",11,4360)=""
^DD(2100,"GL","GECONSY4",12,4361)=""
^DD(2100,"GL","GECONSY4",13,4362)=""
^DD(2100,"GL","GECONSY4",14,4363)=""
^DD(2100,"GL","GECONSY4",15,4364)=""
^DD(2100,"GL","GECONSY4",16,4365)=""
^DD(2100,"GL","GECONSY4",17,4366)=""
^DD(2100,"GL","GECONSY4",18,4348)=""
^DD(2100,"GL","GECONSY4",19,4349)=""
^DD(2100,"GL","GECOPER4",1,4000)=""
^DD(2100,"GL","GECOPER4",2,4001)=""
^DD(2100,"GL","GECOPER4",3,4002)=""
^DD(2100,"GL","GECOPER4",4,4003)=""
^DD(2100,"GL","GECOPER4",5,4004)=""
^DD(2100,"GL","GECOPER4",6,4005)=""
^DD(2100,"GL","GECOPER4",7,4006)=""
^DD(2100,"GL","GECOPER4",8,4007)=""
^DD(2100,"GL","GECOPER4",9,4008)=""
^DD(2100,"GL","GECOPER4",10,4009)=""
^DD(2100,"GL","GECOPER4",11,4010)=""
^DD(2100,"GL","GECOPER4",12,4011)=""
^DD(2100,"GL","GECOPER4",13,4012)=""
^DD(2100,"GL","GECOPER4",14,4013)=""
^DD(2100,"GL","GECOPER4",15,4014)=""
^DD(2100,"GL","GECOPER4",16,4015)=""
^DD(2100,"GL","GECOPER4",17,4016)=""
^DD(2100,"GL","GECOPER4",18,4017)=""
^DD(2100,"GL","GECOPER4",19,4018)=""
^DD(2100,"GL","GECOPER4",20,4019)=""
^DD(2100,"GL","GECOPER4",21,4020)=""
^DD(2100,"GL","GECOPER4",22,4021)=""
^DD(2100,"GL","GECOPHY4",1,4266)=""
^DD(2100,"GL","GECOPHY4",2,4267)=""
^DD(2100,"GL","GECOPHY4",3,4268)=""
^DD(2100,"GL","GECOPHY4",4,4269)=""
^DD(2100,"GL","GECOPHY4",5,4270)=""
^DD(2100,"GL","GECOPHY4",6,4271)=""
^DD(2100,"GL","GECOPHY4",7,4272)=""
^DD(2100,"GL","GECOPHY4",8,4273)=""
^DD(2100,"GL","GECOPHY4",9,4274)=""
^DD(2100,"GL","GECOPHY4",10,4275)=""
^DD(2100,"GL","GECOPHY4",11,4276)=""
^DD(2100,"GL","GECOPHY4",12,4277)=""
^DD(2100,"GL","GECOPHY4",13,4278)=""
^DD(2100,"GL","GECOPHY4",14,4279)=""
^DD(2100,"GL","GECOPHY4",15,4280)=""
^DD(2100,"GL","GECOPHY4",16,4281)=""
^DD(2100,"GL","GECOPHY4",17,4282)=""
^DD(2100,"GL","GECOPHY4",18,4283)=""
^DD(2100,"GL","GECOPHY4",19,4284)=""
^DD(2100,"GL","GECOPHY4",20,4285)=""
^DD(2100,"GL","GECOPHY4",21,4286)=""
^DD(2100,"GL","GECOPHY4",22,4286.5)=""
^DD(2100,"GL","GECOPHY4A",1,4287)=""
^DD(2100,"GL","GECOPHY4A",2,4288)=""
^DD(2100,"GL","GECOPHY4A",3,4289)=""
^DD(2100,"GL","GECOPHY4A",4,4290)=""
^DD(2100,"GL","GECOPHY4A",5,4291)=""
^DD(2100,"GL","GECOPHY4A",6,4292)=""
^DD(2100,"GL","GECOPHY4A",7,4293)=""
^DD(2100,"GL","GECOPHY4A",8,4294)=""
^DD(2100,"GL","GECOPHY4A",9,4295)=""
^DD(2100,"GL","GECOPHY4A",10,4296)=""
^DD(2100,"GL","GECOPHY4A",11,4297)=""
^DD(2100,"GL","GECOPHY4A",12,4298)=""
^DD(2100,"GL","GECOPHY4A",13,4299)=""
^DD(2100,"GL","GECOPHY4A",14,4300)=""
^DD(2100,"GL","GECOPHY4A",15,4301)=""
^DD(2100,"GL","GECOPHY4A",16,4302)=""
^DD(2100,"GL","GECOPHY4A",17,4303)=""
^DD(2100,"GL","GECOPHY4A",18,4304)=""
^DD(2100,"GL","GECOWGE4",1,4305)=""
^DD(2100,"GL","GECOWGE4",2,4306)=""
^DD(2100,"GL","GECOWGE4",3,4307)=""
^DD(2100,"GL","GECOWGE4",4,4308)=""
^DD(2100,"GL","GECOWGE4",5,4309)=""
^DD(2100,"GL","GECOWGE4",6,4310)=""
^DD(2100,"GL","GECOWGE4",7,4311)=""
^DD(2100,"GL","GECOWGE4",8,4312)=""
^DD(2100,"GL","GECOWGE4",9,4313)=""
^DD(2100,"GL","GECOWGE4",10,4313.5)=""
^DD(2100,"GL","GECOWGE4A",1,4314)=""
^DD(2100,"GL","GECOWGE4A",2,4315)=""
^DD(2100,"GL","GECOWGE4A",3,4316)=""
^DD(2100,"GL","GECOWGE4A",4,4317)=""
^DD(2100,"GL","GECOWGE4A",5,4318)=""
^DD(2100,"GL","GECOWGE4A",6,4319)=""
^DD(2100,"GL","GECOWGE4A",7,4320)=""
^DD(2100,"GL","GECOWGE4A",8,4321)=""
^DD(2100,"GL","GECOWGE4A",9,4322)=""
^DD(2100,"GL","GECOWGE4A",10,4323)=""
^DD(2100,"GL","GECOWGE4A",11,4324)=""
^DD(2100,"GL","GECOWGE4A",12,4325)=""
^DD(2100,"GL","GECOWGE4A",13,4326)=""
^DD(2100,"GL","GECOWGE4A",14,4327)=""
^DD(2100,"GL","GECOWGE4A",15,4328)=""
^DD(2100,"GL","GECOWGE4A",16,4327.5)=""
^DD(2100,"GL","GECOWGE4A",17,4342.5)=""
^DD(2100,"GL","GECOWGE4A",18,4344)=""
^DD(2100,"GL","GECOWGE4A",19,4345)=""
^DD(2100,"GL","GECOWGE4B",1,4329)=""
^DD(2100,"GL","GECOWGE4B",2,4330)=""
^DD(2100,"GL","GECOWGE4B",3,4331)=""
^DD(2100,"GL","GECOWGE4B",4,4332)=""
^DD(2100,"GL","GECOWGE4B",5,4333)=""
^DD(2100,"GL","GECOWGE4B",6,4334)=""
^DD(2100,"GL","GECOWGE4B",7,4335)=""
^DD(2100,"GL","GECOWGE4B",8,4336)=""
^DD(2100,"GL","GECOWGE4B",9,4337)=""
^DD(2100,"GL","GECOWGE4B",10,4338)=""
^DD(2100,"GL","GECOWGE4B",11,4339)=""
^DD(2100,"GL","GECOWGE4B",12,4340)=""
^DD(2100,"GL","GECOWGE4B",13,4341)=""
^DD(2100,"GL","GECOWGE4B",14,4342)=""
^DD(2100,"GL","GECOWGE4B",15,4343)=""
^DD(2100,"GL","GECOWGE4B",16,4346)=""
^DD(2100,"GL","GECOWGE4B",17,4346.1)=""
^DD(2100,"GL","GECOWGE4B",18,4346.2)=""
^DD(2100,"GL","GECOWGE4B",19,4346.3)=""
^DD(2100,"GL","GECOWGE4B",20,4346.4)=""
^DD(2100,"GL","GECOWGE4B",21,4346.5)=""
^DD(2100,"GL","GECOWGE4B",22,4346.6)=""
^DD(2100,"GL","GECOWGE4B",23,4346.7)=""
^DD(2100,"GL","GECOWGE4B",24,4346.8)=""
^DD(2100,"GL","GECOWGE4B",25,4346.9)=""
^DD(2100,"GL","GECOWGE4B",26,4347)=""
^DD(2100,"GL","GECOWGE4B",27,4347.1)=""
^DD(2100,"GL","GECOWGE4B",28,4347.2)=""
^DD(2100,"GL","GECOWGE4B",29,4347.3)=""
^DD(2100,"GL","GECOWGE4B",30,4347.4)=""
^DD(2100,"GL","GECOWGE4B",31,4347.5)=""
^DD(2100,"GL","GECOWGE4C",1,4304.9)=""
^DD(2100,"GL","GECOWGE4C",2,4304.91)=""
^DD(2100,"GL","GECOWGE4C",3,4304.92)=""
^DD(2100,"GL","GECOWGE4C",4,4304.93)=""
^DD(2100,"GL","GECOWGE4C",5,4304.94)=""
^DD(2100,"GL","GECOWGE4C",6,4304.95)=""
^DD(2100,"GL","GECOWGE4C",7,4304.96)=""
^DD(2100,"GL","GECOWGE4C",8,4304.97)=""
^DD(2100,"GL","GECOWGE4C",9,4304.98)=""
^DD(2100,"GL","GECOWGE4C",10,4304.99)=""
^DD(2100,"GL","KEY",0,51)=""
^DD(2100,"GL","MCAMS2",1,2500)=""
^DD(2100,"GL","MCAMS2",2,2501)=""
^DD(2100,"GL","MCAMS2",3,2502)=""
^DD(2100,"GL","MCAMS2",4,2503)=""
^DD(2100,"GL","MCAMS2",5,2504)=""
^DD(2100,"GL","MCAMS2",6,2505)=""
^DD(2100,"GL","MCAMS2",7,2506)=""
^DD(2100,"GL","MCAMS2",8,2507)=""
^DD(2100,"GL","MCAMS2",9,2508)=""
^DD(2100,"GL","MCAMS2",10,2509)=""
^DD(2100,"GL","MCAMS2",11,2510)=""
^DD(2100,"GL","MCAMS2",12,2511)=""
^DD(2100,"GL","MCAMS2",13,2512)=""
^DD(2100,"GL","MCAMS2",14,2513)=""
^DD(2100,"GL","MCAMS2",15,2514)=""
^DD(2100,"GL","MCAMS2",16,2515)=""
^DD(2100,"GL","MCAMS2",17,2516)=""
^DD(2100,"GL","MCAMS2",18,2517)=""
^DD(2100,"GL","MCAMS2",19,2518)=""
^DD(2100,"GL","MCAMS2",20,2519)=""
^DD(2100,"GL","MCAMS2",21,2520)=""
^DD(2100,"GL","MCAMS2",22,2521)=""
^DD(2100,"GL","MCAMS2",23,2522)=""
^DD(2100,"GL","MCAMS2",24,2523)=""
^DD(2100,"GL","MCAMS2A",1,2401)=""
^DD(2100,"GL","MCAMS2A",2,2402)=""
^DD(2100,"GL","MCAMS2A",3,2403)=""
^DD(2100,"GL","MCAMS2A",4,2404)=""
^DD(2100,"GL","MCAMS2A",5,2405)=""
^DD(2100,"GL","MCAMS2A",6,2406)=""
^DD(2100,"GL","MCAMS2A",7,2407)=""
^DD(2100,"GL","MCAMS2A",8,2408)=""
^DD(2100,"GL","MCAMS2A",9,2409)=""
^DD(2100,"GL","MCAMS2A",10,2410)=""
^DD(2100,"GL","MCAMS2A",11,2411)=""
^DD(2100,"GL","MCAMS2A",12,2412)=""
^DD(2100,"GL","MCAMS2A",13,2413)=""
^DD(2100,"GL","MCAMS2A",14,2414)=""
^DD(2100,"GL","MCAMS2A",15,2415)=""
^DD(2100,"GL","MCAMS2A",16,2416)=""
^DD(2100,"GL","MCAMS2A",17,2417)=""
^DD(2100,"GL","MCAMS2A",18,2418)=""
^DD(2100,"GL","MCAMS2A",19,2419)=""
^DD(2100,"GL","MCAMS2A",20,2420)=""
^DD(2100,"GL","MCAMS2A",21,2421)=""
^DD(2100,"GL","MCAMS2A",22,2422)=""
^DD(2100,"GL","MCAMS2A",23,2423)=""
^DD(2100,"GL","MCAMS2A",24,2424)=""
^DD(2100,"GL","MCAMS2A",25,2425)=""
^DD(2100,"GL","MCAMS2A",26,2426)=""
^DD(2100,"GL","MCAMS2A",27,2427)=""
^DD(2100,"GL","MCAMS2A",28,2428)=""
^DD(2100,"GL","MCAMS2A",29,2429)=""
^DD(2100,"GL","MCAMS2A",30,2430)=""
^DD(2100,"GL","MCAMS2A",31,2431)=""
^DD(2100,"GL","MCAMS2A",32,2432)=""
^DD(2100,"GL","MCAMS2A",33,2433)=""
^DD(2100,"GL","MCAMS2A",34,2434)=""
^DD(2100,"GL","MCAMS2A",35,2435)=""
^DD(2100,"GL","MCAMS2A",36,2436)=""
^DD(2100,"GL","MCAMS2A",37,2437)=""
^DD(2100,"GL","MCAMS2A",38,2438)=""
^DD(2100,"GL","MCAMS2A",39,2439)=""
^DD(2100,"GL","MCAMS2A",40,2440)=""
^DD(2100,"GL","MCAMS2A",41,2441)=""
^DD(2100,"GL","MCAMS2A",42,2442)=""
^DD(2100,"GL","MCAMS2A",43,2443)=""
^DD(2100,"GL","MCAMS2A",44,2444)=""
^DD(2100,"GL","MCAMS2A",45,2445)=""
^DD(2100,"GL","MCAMS2A",46,2446)=""
^DD(2100,"GL","MCAMS2A",47,2447)=""
^DD(2100,"GL","MCAMS2A",48,2448)=""
^DD(2100,"GL","MCAMS2A",49,2449)=""
^DD(2100,"GL","MCAMS2A",50,2450)=""
^DD(2100,"GL","MCAMS2A",51,2451)=""
^DD(2100,"GL","MCAMS2A",52,2452)=""
^DD(2100,"GL","MCAMS2A",53,2453)=""
^DD(2100,"GL","MCAMS2A",54,2454)=""
^DD(2100,"GL","MCAMS2A",55,2455)=""
^DD(2100,"GL","MCAMS2A",56,2456)=""
^DD(2100,"GL","MCAMS2A",57,2457)=""
^DD(2100,"GL","MCAMS2A",58,2458)=""
^DD(2100,"GL","MCAMS2B",1,2459)=""
^DD(2100,"GL","MCAMS2B",2,2460)=""
^DD(2100,"GL","MCAMS2B",3,2461)=""
^DD(2100,"GL","MCAMS2B",4,2462)=""
^DD(2100,"GL","MCAMS2B",5,2463)=""
^DD(2100,"GL","MCAMS2B",6,2464)=""
^DD(2100,"GL","MCAMS2B",7,2473)=""
^DD(2100,"GL","MCAMS2B",8,2474)=""
^DD(2100,"GL","MCAMS2B",9,2475)=""
^DD(2100,"GL","MCAMS2B",10,2476)=""
^DD(2100,"GL","MCAMS2B",11,2477)=""
^DD(2100,"GL","MCAMS2B",12,2478)=""
^DD(2100,"GL","MCAMS2B",13,2479)=""
^DD(2100,"GL","MCAMS2B",14,2480)=""
^DD(2100,"GL","MCAMS2B",15,2481)=""
^DD(2100,"GL","MCAMS2B",16,2482)=""
^DD(2100,"GL","MCAMS2B",17,2483)=""
^DD(2100,"GL","MCAMS2B",18,2484)=""
^DD(2100,"GL","MCAMS2B",19,2485)=""
^DD(2100,"GL","MCAMS2B",20,2486)=""
^DD(2100,"GL","MCAMS2C",1,2601)=""
^DD(2100,"GL","MCAMS2C",2,2602)=""
^DD(2100,"GL","MCAMS2C",3,2603)=""
^DD(2100,"GL","MCAMS2C",4,2604)=""
^DD(2100,"GL","MCAMS2C",5,2605)=""
^DD(2100,"GL","MCAMS2C",6,2606)=""
^DD(2100,"GL","MCAMS2C",7,2607)=""
^DD(2100,"GL","MCAMS2C",8,2608)=""
^DD(2100,"GL","MCAMS2C",9,2609)=""
^DD(2100,"GL","MCAMS2C",10,2610)=""
^DD(2100,"GL","MCAMS2C",11,2611)=""
^DD(2100,"GL","MCAMS2C",12,2612)=""
^DD(2100,"GL","MCAMS2C",13,2613)=""
^DD(2100,"GL","MCAMS2C",14,2614)=""
^DD(2100,"GL","MCAMS2C",15,2615)=""
^DD(2100,"GL","MCAMS2C",16,2616)=""
^DD(2100,"GL","MCAMS2C",17,2617)=""
^DD(2100,"GL","MCAMS2C",18,2618)=""
^DD(2100,"GL","MCAMS2C",19,2619)=""
^DD(2100,"GL","MCAMS2C",20,2620)=""
^DD(2100,"GL","MCAMS2C",21,2621)=""
^DD(2100,"GL","MCAMS2C",22,2622)=""
^DD(2100,"GL","MCAMS2C",23,2623)=""
^DD(2100,"GL","MCAMS2C",24,2624)=""
^DD(2100,"GL","MCAMS2C",25,2625)=""
^DD(2100,"GL","MCAMS2C",26,2626)=""
^DD(2100,"GL","MCAMS2C",27,2627)=""
^DD(2100,"GL","MCAMS2C",28,2628)=""
^DD(2100,"GL","MCAMS2C",29,2629)=""
^DD(2100,"GL","MCAMS2C",30,2630)=""
^DD(2100,"GL","MCAMS2C",31,2631)=""
^DD(2100,"GL","MCAMS2C",32,2632)=""
^DD(2100,"GL","MCAMS2C",33,2633)=""
^DD(2100,"GL","MCAMS2C",34,2634)=""
^DD(2100,"GL","MCAMS2C",35,2635)=""
^DD(2100,"GL","MCAMS2C",36,2636)=""
^DD(2100,"GL","MCAMS2C",37,2637)=""
^DD(2100,"GL","MCAMS2C",38,2638)=""
^DD(2100,"GL","MCAMS2C",39,2639)=""
^DD(2100,"GL","MCAMS2C",40,2640)=""
^DD(2100,"GL","MCAMS2C",41,2641)=""
^DD(2100,"GL","MCAMS2C",42,2642)=""
^DD(2100,"GL","MCAMS2C",43,2643)=""
^DD(2100,"GL","MCAMS2C",44,2644)=""
^DD(2100,"GL","MCAMS2C",45,2645)=""
^DD(2100,"GL","MCAMS2C",46,2646)=""
^DD(2100,"GL","MCAMS2C",47,2647)=""
^DD(2100,"GL","MCAMS2C",48,2648)=""
^DD(2100,"GL","MCAMS2C",49,2649)=""
^DD(2100,"GL","MCAMS2C",50,2650)=""
^DD(2100,"GL","MCAMS2C",51,2651)=""
^DD(2100,"GL","MCAMS2C",52,2652)=""
^DD(2100,"GL","MCAMS2C",53,2653)=""
^DD(2100,"GL","MCAMS2C",54,2654)=""
^DD(2100,"GL","MCAMS2C",55,2655)=""
^DD(2100,"GL","MCAMS2C",56,2656)=""
^DD(2100,"GL","MCAMS2C",57,2657)=""
^DD(2100,"GL","MCAMS2C",58,2658)=""
^DD(2100,"GL","MCAMS2C",59,2659)=""
^DD(2100,"GL","MCAMS2D",1,2660)=""
^DD(2100,"GL","MCAMS2D",2,2661)=""
^DD(2100,"GL","MCAMS2D",3,2662)=""
^DD(2100,"GL","MCAMS2D",4,2663)=""
^DD(2100,"GL","MCAMS2D",5,2664)=""
^DD(2100,"GL","MCAMS2D",6,2665)=""
^DD(2100,"GL","MCAMS2D",7,2666)=""
^DD(2100,"GL","MCAMS2E",1,2701)=""
^DD(2100,"GL","MCAMS2E",2,2702)=""
^DD(2100,"GL","MCAMS2E",3,2703)=""
^DD(2100,"GL","MCAMS2E",4,2704)=""
^DD(2100,"GL","MCAMS2E",5,2705)=""
^DD(2100,"GL","MCAMS2E",6,2706)=""
^DD(2100,"GL","MCAMS2E",7,2707)=""
^DD(2100,"GL","MCAMS2E",8,2708)=""
^DD(2100,"GL","MCAMS2E",9,2709)=""
^DD(2100,"GL","MCAMS2E",10,2710)=""
^DD(2100,"GL","MCAMS2E",11,2711)=""
^DD(2100,"GL","MCAMS2E",12,2712)=""
^DD(2100,"GL","MCAMS2E",13,2713)=""
^DD(2100,"GL","MCAMS2E",14,2714)=""
^DD(2100,"GL","MCAMS2E",15,2715)=""
^DD(2100,"GL","MCAMS2E",16,2716)=""
^DD(2100,"GL","MCAMS2E",17,2717)=""
^DD(2100,"GL","MCAMS2E",18,2718)=""
^DD(2100,"GL","MCAMS2E",19,2719)=""
^DD(2100,"GL","MCAMS2E",20,2720)=""
^DD(2100,"GL","MCAMS2F",1,2801)=""
^DD(2100,"GL","MCAMS2F",2,2802)=""
^DD(2100,"GL","MCAMS2F",3,2803)=""
^DD(2100,"GL","MCAMS2F",4,2804)=""
^DD(2100,"GL","MCAMS2F",5,2805)=""
^DD(2100,"GL","MCAMS2F",6,2806)=""
^DD(2100,"GL","MCAMS2F",7,2807)=""
^DD(2100,"GL","MCAMS2F",8,2808)=""
^DD(2100,"GL","MCAMS2F",9,2809)=""
^DD(2100,"GL","MCAMS2F",10,2810)=""
^DD(2100,"GL","MCAMS2F",11,2811)=""
^DD(2100,"GL","MCAMS2F",12,2812)=""
^DD(2100,"GL","MCAMS2F",13,2813)=""
^DD(2100,"GL","MCAMS2F",14,2814)=""
^DD(2100,"GL","MCAMS2F",15,2815)=""
^DD(2100,"GL","MCAMS2F",16,2816)=""
^DD(2100,"GL","MCAMS2Z",1,2999)=""
^DD(2100,"GL","MCAMS2Z",2,2998)=""
^DD(2100,"GL","PRCAAR2",1,283)=""
^DD(2100,"GL","PRCAAR2",2,284)=""
^DD(2100,"GL","PRCAAR2",3,286)=""
^DD(2100,"GL","PRCAAR2",4,287)=""
^DD(2100,"GL","PRCAAR2",5,288)=""
^DD(2100,"GL","PRCAAR2",6,289)=""
^DD(2100,"GL","PRCAAR2",7,290)=""
^DD(2100,"GL","PRCAAR2",8,291)=""
^DD(2100,"GL","PRCAAR2",9,292)=""
^DD(2100,"GL","PRCAAR2",10,293)=""
^DD(2100,"GL","PRCAAR2",11,294)=""
^DD(2100,"GL","PRCAAR2",12,295)=""
^DD(2100,"GL","PRCAAR2",13,296)=""
^DD(2100,"GL","PRCAAR2",14,297)=""
^DD(2100,"GL","PRCAAR2",15,298)=""
^DD(2100,"GL","PRCAAR2",16,299)=""
^DD(2100,"GL","PRCAAR2",17,2004)=""
^DD(2100,"GL","PRCAAR2",18,2000)=""
^DD(2100,"GL","PRCAAR2",19,2001)=""
^DD(2100,"GL","PRCAAR2",20,2002)=""
^DD(2100,"GL","PRCAAR2",21,2003)=""
^DD(2100,"GL","PRCAAR2",22,2005)=""
^DD(2100,"GL","PRCAAR2",23,2006)=""
^DD(2100,"GL","PRCAAR2",24,2007)=""
^DD(2100,"GL","PRCAAR2",25,2008)=""
^DD(2100,"GL","PRCAAR2",26,2009)=""
^DD(2100,"GL","PRCAAR2",27,2010)=""
^DD(2100,"GL","PRCAAR2",28,2011)=""
^DD(2100,"GL","PRCAAR2",29,2012)=""
^DD(2100,"GL","PRCAAR2",30,2013)=""
^DD(2100,"GL","PRCAAR2",31,2014)=""
^DD(2100,"GL","PRCAAR2",32,2015)=""
^DD(2100,"GL","PRCAAR2",33,2016)=""
^DD(2100,"GL","PRCAAR2",34,2017)=""
^DD(2100,"GL","PRCAAR21",1,2018)=""
^DD(2100,"GL","PRCAAR21",2,2019)=""
^DD(2100,"GL","PRCAAR21",3,2020)=""
^DD(2100,"GL","PRCAAR21",4,285)=""
^DD(2100,"GL","PRCAAR21",5,299.1)=""
^DD(2100,"GL","PRCAAR21",6,299.2)=""
^DD(2100,"GL","PRCCCA2",1,224)=""
^DD(2100,"GL","PRCCCA2",2,225)=""
^DD(2100,"GL","PRCCCA2",3,226)=""
^DD(2100,"GL","PRCCCA2",4,227)=""
^DD(2100,"GL","PRCCCA2",5,228)=""
^DD(2100,"GL","PRCCCA2",6,229)=""
^DD(2100,"GL","PRCCCA2",7,230)=""
^DD(2100,"GL","PRCCCA2",8,231)=""
^DD(2100,"GL","PRCCCA2",9,232)=""
^DD(2100,"GL","PRCCCA2",10,233)=""
^DD(2100,"GL","PRCCCA2",11,234)=""
^DD(2100,"GL","PRCCCA2",12,235)=""
^DD(2100,"GL","PRCCCA2",13,236)=""
^DD(2100,"GL","PRCCCA2",14,237)=""
^DD(2100,"GL","PRCCCA2",15,238)=""
^DD(2100,"GL","PRCCCA2",16,239)=""
^DD(2100,"GL","PRCCCA2",17,240)=""
^DD(2100,"GL","PRCCCA2",18,241)=""
^DD(2100,"GL","PRCCCA2",19,242)=""
^DD(2100,"GL","PRCCCA2",20,243)=""
^DD(2100,"GL","PRCCCA2",21,244)=""
^DD(2100,"GL","PRCCCA2",22,245)=""
^DD(2100,"GL","PRCCCA2",23,246)=""
^DD(2100,"GL","PRCCCA2",24,247)=""
^DD(2100,"GL","PRCCCA2",25,248)=""
^DD(2100,"GL","PRCCCA2",26,249)=""
^DD(2100,"GL","PRCCCA2",27,2021)=""
^DD(2100,"GL","PRCCCA2",28,2022)=""
^DD(2100,"GL","PRCCCA2",29,2023)=""
^DD(2100,"GL","PRCCCA2",30,2024)=""
^DD(2100,"GL","PRCCCA2",31,2025)=""
^DD(2100,"GL","PRCCCA2",32,2026)=""
^DD(2100,"GL","PRCCCA2",33,2027)=""
^DD(2100,"GL","PRCCCA2",34,2028)=""
^DD(2100,"GL","PRCCCA2",35,2029)=""
^DD(2100,"GL","PRCCCA2A",1,250)=""
^DD(2100,"GL","PRCCCA2A",2,251)=""
^DD(2100,"GL","PRCCCA2A",3,252)=""
^DD(2100,"GL","PRCCCA2A",4,253)=""
^DD(2100,"GL","PRCCCA2A",5,254)=""
^DD(2100,"GL","PRCCCA2A",6,255)=""
^DD(2100,"GL","PRCCCA2A",7,256)=""
^DD(2100,"GL","PRCCCA2A",8,257)=""
^DD(2100,"GL","PRCCCA2A",9,258)=""
^DD(2100,"GL","PRCCCA2A",10,259)=""
^DD(2100,"GL","PRCCCA2A",11,260)=""
^DD(2100,"GL","PRCCCA2A",12,261)=""
^DD(2100,"GL","PRCCCA2A",13,262)=""
^DD(2100,"GL","PRCCCA2A",14,263)=""
^DD(2100,"GL","PRCCCA2A",15,264)=""
^DD(2100,"GL","PRCCCA2A",16,265)=""
^DD(2100,"GL","PRCCCA2A",17,266)=""
^DD(2100,"GL","PRCCCA2A",18,267)=""
^DD(2100,"GL","PRCCCA2A",19,268)=""
^DD(2100,"GL","PRCCCA2A",20,269)=""
^DD(2100,"GL","PRCCCA2A",21,270)=""
^DD(2100,"GL","PRCCCA2A",22,271)=""
^DD(2100,"GL","PRCCCA2A",23,272)=""
^DD(2100,"GL","PRCCCA2A",24,273)=""
^DD(2100,"GL","PRCCCA2A",25,274)=""
^DD(2100,"GL","PRCCCA2A",26,275)=""
^DD(2100,"GL","PRCCCA2A",27,276)=""
^DD(2100,"GL","PRCCCA2A",28,277)=""
^DD(2100,"GL","PRCCCA2A",29,278)=""
^DD(2100,"GL","PRCCCA2A",30,279)=""
^DD(2100,"GL","PRCCCA2A",31,280)=""
^DD(2100,"GL","PRCCCA2A",32,281)=""
^DD(2100,"GL","PRCCCA2A",33,282)=""
^DD(2100,"GL","PSAMS3A",1,3201)=""
^DD(2100,"GL","PSAMS3A",2,3202)=""
^DD(2100,"GL","PSAMS3A",3,3203)=""
^DD(2100,"GL","PSAMS3A",4,3204)=""
^DD(2100,"GL","PSAMS3A",5,3205)=""
^DD(2100,"GL","PSAMS3A",6,3206)=""
^DD(2100,"GL","PSAMS3A",7,3207)=""
^DD(2100,"GL","PSAMS3A",8,3208)=""
^DD(2100,"GL","PSAMS3A",9,3209)=""
^DD(2100,"GL","PSAMS3A",10,3210)=""
^DD(2100,"GL","PSAMS3A",11,3211)=""
^DD(2100,"GL","PSAMS3A",12,3212)=""
^DD(2100,"GL","PSAMS3A",13,3213)=""
^DD(2100,"GL","PSAMS3A",14,3214)=""
^DD(2100,"GL","PSAMS3A",15,3215)=""
^DD(2100,"GL","PSAMS3A",16,3216)=""
^DD(2100,"GL","PSAMS3A",17,3217)=""
^DD(2100,"GL","PSAMS3A",18,3218)=""
^DD(2100,"GL","PSAMS3A",19,3219)=""
^DD(2100,"GL","PSAMS3A",20,3220)=""
^DD(2100,"GL","PSAMS3A",21,3221)=""
^DD(2100,"GL","PSAMS3A",22,3222)=""
^DD(2100,"GL","PSAMS3A",23,3223)=""
^DD(2100,"GL","PSAMS3A",24,3224)=""
^DD(2100,"GL","PSAMS3A",25,3225)=""
^DD(2100,"GL","PSAMS3A",26,3226)=""
^DD(2100,"GL","PSAMS3A",27,3227)=""
^DD(2100,"GL","PSAMS3A",28,3228)=""
^DD(2100,"GL","PSGAMS3",1,3100)=""
^DD(2100,"GL","PSGAMS3",2,3101)=""
^DD(2100,"GL","PSGAMS3",3,3102)=""
^DD(2100,"GL","PSGAMS3",4,3103)=""
^DD(2100,"GL","PSGAMS3",5,3104)=""
^DD(2100,"GL","PSGAMS3",6,3105)=""
^DD(2100,"GL","PSGAMS3",7,3106)=""
^DD(2100,"GL","PSGAMS3",8,3107)=""
^DD(2100,"GL","PSGAMS3",9,3108)=""
^DD(2100,"GL","PSGAMS3",10,3109)=""
^DD(2100,"GL","PSGAMS3",11,3110)=""
^DD(2100,"GL","PSGAMS3",12,3111)=""
^DD(2100,"GL","PSGAMS3",13,3112)=""
^DD(2100,"GL","PSGAMS3",14,3113)=""
^DD(2100,"GL","PSGAMS3",15,3114)=""
^DD(2100,"GL","PSGAMS3",16,3115)=""
^DD(2100,"GL","PSGAMS3",17,3116)=""
^DD(2100,"GL","PSGAMS3",18,3117)=""
^DD(2100,"GL","PSGAMS3",19,3118)=""
^DD(2100,"GL","PSGAMS3",20,3119)=""
^DD(2100,"GL","PSGAMS3",21,3120)=""
^DD(2100,"GL","PSGAMS3",22,3121)=""
^DD(2100,"GL","PSGAMS3",23,3122)=""
^DD(2100,"GL","PSGAMS3",24,3123)=""
^DD(2100,"GL","RAAMS1",1,1465)=""
^DD(2100,"GL","RAAMS1",2,1466)=""
^DD(2100,"GL","RAAMS1",3,1467)=""
^DD(2100,"GL","RAAMS1",4,1468)=""
^DD(2100,"GL","RAAMS1",5,1469)=""
^DD(2100,"GL","RAAMS1",6,1470)=""
^DD(2100,"GL","RAAMS1",7,1471)=""
^DD(2100,"GL","RAAMS1",8,1472)=""
^DD(2100,"GL","RAAMS1",9,1473)=""
^DD(2100,"GL","RAAMS1",10,1474)=""
^DD(2100,"GL","RAAMS1",11,1475)=""
^DD(2100,"GL","RAAMS1",12,1476)=""
^DD(2100,"GL","RAAMS1",13,1477)=""
^DD(2100,"GL","RAAMS1",14,1478)=""
^DD(2100,"GL","RAAMS1",15,1479)=""
^DD(2100,"GL","RAAMS1",16,1480)=""
^DD(2100,"GL","RAAMS1",17,1481)=""
^DD(2100,"GL","RAAMS1",18,1482)=""
^DD(2100,"GL","RAAMS1",19,1483)=""
^DD(2100,"GL","RAAMS1",20,1484)=""
^DD(2100,"GL","RAAMS1",21,1485)=""
^DD(2100,"GL","RAAMS1",22,1486)=""
^DD(2100,"GL","RAAMS1",23,1487)=""
^DD(2100,"GL","RAAMS1",24,1488)=""
^DD(2100,"GL","RAAMS1",25,1489)=""
^DD(2100,"GL","RAAMS1",26,1490)=""
^DD(2100,"GL","RAAMS1",27,1491)=""
^DD(2100,"GL","RAAMS1",28,1492)=""
^DD(2100,"GL","RAAMS1",29,1493)=""
^DD(2100,"GL","RAAMS1",30,1494)=""
^DD(2100,"GL","RAAMS1",31,1495)=""
^DD(2100,"GL","RAAMS1",32,1496)=""
^DD(2100,"GL","RAAMS1",33,1497)=""
^DD(2100,"GL","RAAMS1",34,1498)=""
^DD(2100,"GL","RAAMS1",35,1499)=""
^DD(2100,"GL","RAAMS1",36,1500)=""
^DD(2100,"GL","RAAMS1",37,1501)=""
^DD(2100,"GL","RAAMS1",38,1502)=""
^DD(2100,"GL","RAAMS1",39,1503)=""
^DD(2100,"GL","RAAMS1",40,1504)=""
^DD(2100,"GL","RAAMS1",41,1505)=""
^DD(2100,"GL","RAAMS1",42,1506)=""
^DD(2100,"GL","RAAMS1",43,1507)=""
^DD(2100,"GL","RAAMS1",44,1508)=""
^DD(2100,"GL","RAAMS1",45,1509)=""
^DD(2100,"GL","RAAMS1",46,1510)=""
^DD(2100,"GL","RAAMS1",47,1511)=""
^DD(2100,"GL","RAAMS1",48,1512)=""
^DD(2100,"GL","RAAMS1",49,1513)=""
^DD(2100,"GL","RAAMS1",50,1514)=""
^DD(2100,"GL","RAAMS1",51,1515)=""
^DD(2100,"GL","RAAMS1A",1,1516)=""
^DD(2100,"GL","RAAMS1A",2,1517)=""
^DD(2100,"GL","RAAMS1A",3,1518)=""
^DD(2100,"GL","RAAMS1A",4,1519)=""
^DD(2100,"GL","RAAMS1A",5,1520)=""
^DD(2100,"GL","RAAMS1A",6,1521)=""
^DD(2100,"GL","RAAMS1A",7,1522)=""
^DD(2100,"GL","RAAMS1A",8,1523)=""
^DD(2100,"GL","RAAMS1A",9,1524)=""
^DD(2100,"GL","RAAMS1A",10,1525)=""
^DD(2100,"GL","RAAMS1A",11,1526)=""
^DD(2100,"GL","RAAMS1A",12,1527)=""
^DD(2100,"GL","SDAMS1",1,1298)=""
^DD(2100,"GL","SDAMS1",2,1299)=""
^DD(2100,"GL","SDAMS1",3,1300)=""
^DD(2100,"GL","SDAMS1",4,1301)=""
^DD(2100,"GL","SDAMS1",5,1302)=""
^DD(2100,"GL","SDAMS1",6,1303)=""
^DD(2100,"GL","SDAMS1",7,1304)=""
^DD(2100,"GL","SDAMS1",8,1305)=""
^DD(2100,"GL","SDAMS1",9,1306)=""
^DD(2100,"GL","SDAMS1",10,1307)=""
^DD(2100,"GL","SDAMS1",11,1308)=""
^DD(2100,"GL","SDAMS1",12,1309)=""
^DD(2100,"GL","SDAMS1",13,1310)=""
^DD(2100,"GL","SDAMS1",14,1311)=""
^DD(2100,"GL","SDAMS1",15,1312)=""
^DD(2100,"GL","SDAMS1",16,1313)=""
^DD(2100,"GL","SDAMS1",17,1314)=""
^DD(2100,"GL","SDAMS1",18,1315)=""
^DD(2100,"GL","SDAMS1",19,1316)=""
^DD(2100,"GL","SDAMS1",20,1317)=""
^DD(2100,"GL","SDAMS1",21,1318)=""
^DD(2100,"GL","SDAMS1",22,1319)=""
^DD(2100,"GL","SDAMS1",23,1320)=""
^DD(2100,"GL","SDAMS1",24,1321)=""
^DD(2100,"GL","SOWKAM257",1,3500)=""
^DD(2100,"GL","SOWKAM257",2,3501)=""
^DD(2100,"GL","SOWKAM257",3,3502)=""
^DD(2100,"GL","SOWKAM257",4,3503)=""
^DD(2100,"GL","SOWKAM257",5,3504)=""
^DD(2100,"GL","SOWKAM257",6,3505)=""
^DD(2100,"GL","SOWKAM257",7,3506)=""
^DD(2100,"GL","SOWKAM257",8,3507)=""
^DD(2100,"GL","SOWKAM257",9,3508)=""
^DD(2100,"GL","SOWKAM257",10,3509)=""
^DD(2100,"GL","SOWKAM257",11,3510)=""
^DD(2100,"GL","SOWKAM257",12,3511)=""
^DD(2100,"GL","SOWKAM257",13,3512)=""
^DD(2100,"GL","SOWKAM257",14,3513)=""
^DD(2100,"GL","SOWKAM257",15,3514)=""
^DD(2100,"GL","SOWKAM257",16,3515)=""
^DD(2100,"GL","SOWKAM257",17,3516)=""
^DD(2100,"GL","SOWKAM257",18,3517)=""
^DD(2100,"GL","SOWKAM257",19,3518)=""
^DD(2100,"GL","SOWKAM257",20,3519)=""
^DD(2100,"GL","SOWKAM257",21,3520)=""
^DD(2100,"GL","SOWKAM257",22,3521)=""
^DD(2100,"GL","SOWKAM257",23,3522)=""
^DD(2100,"GL","SOWKAM257",24,3523)=""
^DD(2100,"GL","SOWKAM257",25,3524)=""
^DD(2100,"GL","SOWKAM257",26,3525)=""
^DD(2100,"GL","SOWKAM257",27,3526)=""
^DD(2100,"GL","SOWKAM257",28,3527)=""
^DD(2100,"GL","SOWKAM257A",1,3528)=""
^DD(2100,"GL","SOWKAM257A",2,3529)=""
^DD(2100,"GL","SOWKAM257A",3,3530)=""
^DD(2100,"GL","SOWKAM257A",4,3531)=""
^DD(2100,"GL","SOWKAM257A",5,3532)=""
^DD(2100,"GL","SOWKAM257A",6,3533)=""
^DD(2100,"GL","SOWKAM257A",7,3534)=""
^DD(2100,"GL","SOWKAM257A",8,3535)=""
^DD(2100,"GL","SOWKAM257A",9,3536)=""
^DD(2100,"GL","SOWKAM257A",10,3537)=""
^DD(2100,"GL","SOWKAM257A",11,3538)=""
^DD(2100,"GL","SOWKAM257A",12,3539)=""
^DD(2100,"GL","SOWKAM257A",13,3540)=""
^DD(2100,"GL","SOWKAM257A",14,3541)=""
^DD(2100,"GL","SOWKAM257A",15,3542)=""
^DD(2100,"GL","SOWKAM257A",16,3543)=""
^DD(2100,"GL","SOWKAM257A",17,3544)=""
^DD(2100,"GL","SOWKAM257A",18,3545)=""
^DD(2100,"GL","SOWKAM257A",19,3546)=""
^DD(2100,"GL","SOWKAM257A",20,3547)=""
^DD(2100,"GL","SOWKAM257A",21,3548)=""
^DD(2100,"GL","SOWKAM257A",22,3549)=""
^DD(2100,"GL","SOWKAM257A",23,3550)=""
^DD(2100,"GL","SOWKAM257A",24,3551)=""
^DD(2100,"GL","SOWKAM257A",25,3552)=""
^DD(2100,"GL","SOWKAM257B",1,3553)=""
^DD(2100,"GL","SOWKAM257B",2,3554)=""
^DD(2100,"GL","SOWKAM257B",3,3555)=""
^DD(2100,"GL","SOWKAM257B",4,3556)=""
^DD(2100,"GL","SOWKAM257B",5,3557)=""
^DD(2100,"GL","SOWKAM257B",6,3558)=""
^DD(2100,"GL","SOWKAM257B",7,3559)=""
^DD(2100,"GL","SOWKAM257B",8,3560)=""
^DD(2100,"GL","SOWKAM257B",9,3561)=""
^DD(2100,"GL","SOWKAM257B",10,3562)=""
^DD(2100,"GL","SOWKAM257B",11,3563)=""
^DD(2100,"GL","SOWKAM257B",12,3564)=""
^DD(2100,"GL","SOWKAM257B",13,3565)=""
^DD(2100,"GL","SOWKAM257B",14,3566)=""
^DD(2100,"GL","SOWKAM257B",15,3567)=""
^DD(2100,"GL","SOWKAM257B",16,3568)=""
^DD(2100,"GL","SOWKAM257B",17,3569)=""
^DD(2100,"GL","SOWKAM257B",18,3570)=""
^DD(2100,"GL","SOWKAM257B",19,3571)=""
^DD(2100,"GL","SOWKAM257B",20,3572)=""
^DD(2100,"GL","SOWKAM257B",21,3573)=""
^DD(2100,"GL","SOWKAM257B",22,3574)=""
^DD(2100,"GL","SOWKAM257B",23,3575)=""
^DD(2100,"GL","SOWKAM257B",24,3576)=""
^DD(2100,"GL","SOWKAM257B",25,3577)=""
^DD(2100,"GL","SOWKAM257B",26,3578)=""
^DD(2100,"GL","SOWKAM257C",1,3579)=""
^DD(2100,"GL","SOWKAM257C",2,3580)=""
^DD(2100,"GL","SOWKAM257C",3,3581)=""
^DD(2100,"GL","SOWKAM257C",4,3582)=""
^DD(2100,"GL","SOWKAM257C",5,3583)=""
^DD(2100,"GL","SOWKAM257C",6,3584)=""
^DD(2100,"GL","SOWKAM257C",7,3585)=""
^DD(2100,"GL","SOWKAM257C",8,3586)=""
^DD(2100,"GL","SOWKAM257C",9,3587)=""
^DD(2100,"GL","SOWKAM257C",10,3588)=""
^DD(2100,"GL","SOWKAM257C",11,3589)=""
^DD(2100,"GL","SOWKAM257C",12,3590)=""
^DD(2100,"GL","SOWKAM257C",13,3591)=""
^DD(2100,"GL","SOWKAM257C",14,3592)=""
^DD(2100,"GL","SOWKAM257C",15,3593)=""
^DD(2100,"GL","SOWKAM257C",16,3594)=""
^DD(2100,"GL","SOWKAM257C",17,3595)=""
^DD(2100,"GL","SOWKAM257C",18,3596)=""
^DD(2100,"GL","SOWKAM257C",19,3597)=""
^DD(2100,"GL","SOWKAM257C",20,3598)=""
^DD(2100,"GL","SOWKAM257C",21,3599)=""
^DD(2100,"GL","SOWKAM257C",22,3600)=""
^DD(2100,"GL","SOWKAM361",1,3601)=""
^DD(2100,"GL","SOWKAM361",2,3602)=""
^DD(2100,"GL","SOWKAM361",3,3603)=""
^DD(2100,"GL","SOWKAM361",4,3604)=""
^DD(2100,"GL","SOWKAM361",5,3605)=""
^DD(2100,"GL","SOWKAM361",6,3606)=""
^DD(2100,"GL","SOWKAM361",7,3607)=""
^DD(2100,"GL","SOWKAM361",8,3608)=""
^DD(2100,"GL","SOWKAM361",9,3609)=""
^DD(2100,"GL","SOWKAM361",10,3610)=""
^DD(2100,"GL","SOWKAM361",11,3611)=""
^DD(2100,"GL","SOWKAM361",12,3612)=""
^DD(2100,"GL","SOWKAM361",13,3613)=""
^DD(2100,"GL","SOWKAM361",14,3614)=""
^DD(2100,"GL","SOWKAM361",15,3615)=""
^DD(2100,"GL","SOWKAM361",16,3616)=""
^DD(2100,"GL","SOWKAM361",17,3617)=""
^DD(2100,"GL","SOWKAM361",18,3618)=""
^DD(2100,"GL","SOWKAM361",19,3619)=""
^DD(2100,"GL","SOWKAM361",20,3620)=""
^DD(2100,"GL","SOWKAM361",21,3621)=""
^DD(2100,"GL","SOWKAM361",22,3622)=""
^DD(2100,"GL","SOWKAM361",23,3623)=""
^DD(2100,"GL","SOWKAM361",24,3624)=""
^DD(2100,"GL","SOWKAM361",25,3625)=""
^DD(2100,"GL","SOWKAM361A",1,3626)=""
^DD(2100,"GL","SOWKAM361A",2,3627)=""
^DD(2100,"GL","SOWKAM361A",3,3628)=""
^DD(2100,"GL","SOWKAM361A",4,3629)=""
^DD(2100,"GL","SOWKAM361A",5,3630)=""
^DD(2100,"GL","SRAMS3",1,3000)=""
^DD(2100,"GL","SRAMS3",2,3001)=""
^DD(2100,"GL","SRAMS3",3,3002)=""
^DD(2100,"GL","SRAMS3",4,3003)=""
^DD(2100,"GL","SRAMS3",5,3004)=""
^DD(2100,"GL","SRAMS3",6,3005)=""
^DD(2100,"GL","SRAMS3",7,3006)=""
^DD(2100,"GL","SRAMS3",8,3007)=""
^DD(2100,"GL","SRAMS3",9,3008)=""
^DD(2100,"GL","SRAMS3",10,3009)=""
^DD(2100,"GL","SRAMS3",11,3010)=""
^DD(2100,"GL","SRAMS3",12,3011)=""
^DD(2100,"GL","SRAMS3",13,3012)=""
^DD(2100,"GL","SRAMS3",14,3013)=""
^DD(2100,"GL","SRAMS3",15,3014)=""
^DD(2100,"GL","SRAMS3",16,3015)=""
^DD(2100,"GL","SRAMS3",17,3016)=""
^DD(2100,"GL","SRAMS3",18,3017)=""
^DD(2100,"GL","SRAMS3",19,3018)=""
^DD(2100,"GL","SRAMS3",20,3019)=""
^DD(2100,"GL","SRAMS3",21,3020)=""
^DD(2100,"GL","SRAMS3",22,3021)=""
^DD(2100,"GL","SRAMS3",23,3022)=""
^DD(2100,"GL","SRAMS3",24,3023)=""
^DD(2100,"GL","SRAMS3",25,3024)=""
^DD(2100,"GL","SRAMS3",26,3025)=""
^DD(2100,"GL","SRAMS3",27,3026)=""
^DD(2100,"GL","SRAMS3",28,3027)=""
^DD(2100,"GL","SRAMS3",29,3028)=""
^DD(2100,"GL","SRAMS3",30,3029)=""
^DD(2100,"GL","SRAMS3",31,3030)=""
^DD(2100,"GL","SRAMS3",32,3031)=""
^DD(2100,"GL","SRAMS3",33,3032)=""
^DD(2100,"GL","SRAMS3",34,3033)=""
^DD(2100,"GL","SRAMS3",35,3034)=""
^DD(2100,"GL","TRANS",1,.1)=""
^DD(2100,"GL","TRANS",2,.15)=""
^DD(2100,"GL","TRANS",3,.85)=""
^DD(2100,"GL","TRANS",7,.6)=""
^DD(2100,"GL","TRANS",9,.8)=""
^DD(2100,"GL","TRANS",10,.9)=""
^DD(2100,"GL","TRANS",12,.95)=""
^DD(2100,"GL","VOLUVOL2",1,200)=""
^DD(2100,"GL","VOLUVOL2",2,201)=""
^DD(2100,"GL","VOLUVOL2",3,202)=""
^DD(2100,"GL","VOLUVOL2",4,203)=""
^DD(2100,"GL","VOLUVOL2",5,204)=""
^DD(2100,"GL","VOLUVOL2",6,205)=""
^DD(2100,"GL","VOLUVOL2",7,206)=""
^DD(2100,"GL","VOLUVOL2",8,207)=""
^DD(2100,"GL","VOLUVOL2",9,208)=""
^DD(2100,"GL","VOLUVOL2",10,209)=""
^DD(2100,"GL","VOLUVOL2",11,210)=""
^DD(2100,"GL","VOLUVOL2",12,211)=""
^DD(2100,"GL","VOLUVOL2",13,212)=""
^DD(2100,"GL","VOLUVOL2",14,213)=""
^DD(2100,"GL","VOLUVOL2",15,214)=""
^DD(2100,"GL","VOLUVOL2",16,215)=""
^DD(2100,"GL","VOLUVOL2",17,216)=""
^DD(2100,"GL","VOLUVOL2",18,217)=""
^DD(2100,"GL","VOLUVOL2",19,218)=""
^DD(2100,"GL","VOLUVOL2",20,219)=""
^DD(2100,"GL","VOLUVOL2",21,220)=""
^DD(2100,"GL","VOLUVOL2",22,221)=""
^DD(2100,"GL","VOLUVOL2",23,222)=""
^DD(2100,"GL","VOLUVOL2",24,223)=""
^DD(2100,"GL","YSDDC5",1,5000)=""
^DD(2100,"GL","YSDDC5",2,5001)=""
^DD(2100,"GL","YSDDC5",3,5002)=""
^DD(2100,"GL","YSDDC5",4,5003)=""
^DD(2100,"GL","YSDDC5",5,5004)=""
^DD(2100,"GL","YSDDC5",6,5005)=""
^DD(2100,"GL","YSDDC5",7,5006)=""
^DD(2100,"GL","YSDDC5",8,5007)=""
^DD(2100,"GL","YSDDC5",9,5008)=""
^DD(2100,"GL","YSDDC5",10,5009)=""
^DD(2100,"GL","YSDDC5",11,5010)=""
^DD(2100,"GL","YSDDC5",12,5011)=""
^DD(2100,"GL","YSDDC5",13,5012)=""
^DD(2100,"GL","YSDDC5",14,5013)=""
^DD(2100,"GL","YSDDC5",15,5014)=""
^DD(2100,"GL","YSDDC5",16,5015)=""
^DD(2100,"GL","YSDDC5",18,5017)=""
^DD(2100,"GL","YSDDC5",19,5018)=""
^DD(2100,"GL","YSDDC5",20,5019)=""
^DD(2100,"GL","YSDDC5",21,5020)=""
^DD(2100,"GL","YSDDC5",22,5021)=""
^DD(2100,"GL","YSDDC5",23,5022)=""
^DD(2100,"GL","YSDDC5",24,5023)=""
^DD(2100,"GL","YSDDC5",25,5024)=""
^DD(2100,"GL","YSDDC5",26,5025)=""
^DD(2100,"GL","YSDDC5",27,5026)=""
^DD(2100,"GL","YSDDC5",28,5027)=""
^DD(2100,"GL","YSDDC5",29,5028)=""
^DD(2100,"GL","YSDDC5",30,5029)=""
^DD(2100,"GL","YSDDC5",31,5030)=""
^DD(2100,"GL","YSDDC5",32,5031)=""
^DD(2100,"GL","YSDDC5",33,5032)=""
^DD(2100,"GL","YSDDC5",34,5033)=""
^DD(2100,"GL","YSDDC5",35,5034)=""
^DD(2100,"GL","YSDDC5",36,5035)=""
^DD(2100,"GL","YSDDC5",37,5036)=""
^DD(2100,"GL","YSDDC5",38,5037)=""
^DD(2100,"GL","YSDDC5",39,5038)=""
^DD(2100,"GL","YSDDC5",40,5039)=""
^DD(2100,"GL","YSDDC5",41,5040)=""
^DD(2100,"GL","YSDDC5",42,5041)=""
^DD(2100,"GL","YSDDC5",43,5042)=""
^DD(2100,"GL","YSDDC5",44,5043)=""
^DD(2100,"GL","YSDDC5",45,5044)=""
^DD(2100,"GL","YSDDC5",46,5045)=""
^DD(2100,"GL","YSDDC5",47,5046)=""
^DD(2100,"GL","YSDDC5",48,5047)=""
^DD(2100,"GL","YSDDC5",49,5048)=""
^DD(2100,"GL","YSDDC5",50,5049)=""
^DD(2100,"GL","YSDDC5",51,5050)=""
^DD(2100,"GL","YSDDC5",52,5051)=""
^DD(2100,"GL","YSDDC5",53,5052)=""
^DD(2100,"GL","YSDDC5",54,5053)=""
^DD(2100,"GL","YSDDC5",55,5054)=""
^DD(2100,"GL","YSDDC5",56,5055)=""
^DD(2100,"GL","YSDDC5",57,5056)=""
^DD(2100,"GL","YSDDC5",58,5057)=""
^DD(2100,"GL","YSDDC5",59,5058)=""
^DD(2100,"GL","YSDDC5",60,5059)=""
^DD(2100,"GL","YSDDC5",61,5060)=""
^DD(2100,"GL","YSDDC5",62,5061)=""
^DD(2100,"GL","YSDDC5",63,5062)=""
^DD(2100,"GL","YSDDC5A",1,5063)=""
^DD(2100,"GL","YSDDC5A",2,5064)=""
^DD(2100,"GL","YSDDC5A",3,5065)=""
^DD(2100,"GL","YSDDC5A",4,5066)=""
^DD(2100,"GL","YSDDC5A",5,5067)=""
^DD(2100,"IX",.01)=""
^DD(2100,"IX",.1)=""
^DD(2100,"IX",.15)=""
^DD(2100,"IX",.8)=""
^DD(2100,"RQ",.01)=""
^DD(2100,"RQ",.6)=""
^DD(2100,"RQ",.9)=""
^DD(2100,"RQ",2)=""
^DD(2100,"RQ",9.1)=""
^DD(2100,"RQ",200)=""
^DD(2100,"RQ",202)=""
^DD(2100,"RQ",224)=""
^DD(2100,"RQ",225)=""
^DD(2100,"RQ",226)=""
^DD(2100,"RQ",227)=""
^DD(2100,"RQ",228)=""
^DD(2100,"RQ",229)=""
^DD(2100,"RQ",281)=""
^DD(2100,"RQ",402)=""
^DD(2100,"RQ",404)=""
^DD(2100,"RQ",405)=""
^DD(2100,"RQ",450.01)=""
^DD(2100,"RQ",450.08)=""
^DD(2100,"RQ",450.09)=""
^DD(2100,"RQ",450.14)=""
^DD(2100,"RQ",450.15)=""
^DD(2100,"RQ",450.18)=""
^DD(2100,"RQ",450.32)=""
^DD(2100,"RQ",450.33)=""
^DD(2100,"RQ",450.38)=""
^DD(2100,"RQ",450.5)=""
^DD(2100,"RQ",450.82)=""
^DD(2100,"RQ",450.83)=""
^DD(2100,"RQ",452.05)=""
^DD(2100,"RQ",452.33)=""
^DD(2100,"RQ",452.38)=""
^DD(2100,"RQ",452.39)=""
^DD(2100,"RQ",452.42)=""
^DD(2100,"RQ",452.43)=""
^DD(2100,"RQ",452.6)=""
^DD(2100,"RQ",452.62)=""
^DD(2100,"RQ",452.63)=""
^DD(2100,"RQ",452.71)=""
^DD(2100,"RQ",452.72)=""
^DD(2100,"RQ",452.73)=""
^DD(2100,"RQ",454.1)=""
^DD(2100,"RQ",455.18)=""
^DD(2100,"RQ",458.19)=""
^DD(2100,"RQ",461.08)=""
^DD(2100,"RQ",461.23)=""
^DD(2100,"RQ",463.01)=""
^DD(2100,"RQ",463.07)=""
^DD(2100,"RQ",463.08)=""
^DD(2100,"RQ",463.09)=""
^DD(2100,"RQ",467.17)=""
^DD(2100,"RQ",467.18)=""
^DD(2100,"RQ",467.19)=""
^DD(2100,"RQ",1531)=""
^DD(2100,"RQ",1533)=""
^DD(2100,"RQ",1534)=""
^DD(2100,"RQ",1535)=""
^DD(2100,"RQ",1536)=""
^DD(2100,"RQ",1537)=""
^DD(2100,"RQ",1538)=""
^DD(2100,"RQ",1541)=""
^DD(2100,"RQ",1544)=""
^DD(2100,"RQ",1547)=""
^DD(2100,"RQ",1551)=""
^DD(2100,"RQ",1600)=""
^DD(2100,"RQ",1601)=""
^DD(2100,"RQ",2021)=""
^DD(2100,"RQ",2023)=""
^DD(2100,"RQ",2024)=""
^DD(2100,"RQ",2025)=""
^DD(2100,"RQ",2026)=""
^DD(2100,"RQ",2027)=""
^DD(2100,"RQ",2200.01)=""
^DD(2100,"RQ",2200.02)=""
^DD(2100,"RQ",2200.03)=""
^DD(2100,"RQ",2200.04)=""
^DD(2100,"RQ",2200.05)=""
^DD(2100,"RQ",2200.06)=""
^DD(2100,"RQ",2200.07)=""
^DD(2100,"RQ",2200.08)=""
^DD(2100,"RQ",2200.09)=""
^DD(2100,"RQ",2200.1)=""
^DD(2100,"RQ",2200.11)=""
^DD(2100,"RQ",2200.12)=""
^DD(2100,"RQ",2200.13)=""
^DD(2100,"RQ",2200.14)=""
^DD(2100,"RQ",2200.15)=""
^DD(2100,"RQ",2200.16)=""
^DD(2100,"RQ",2200.17)=""
^DD(2100,"RQ",2200.18)=""
^DD(2100,"RQ",2200.19)=""
^DD(2100,"RQ",2200.2)=""
^DD(2100,"RQ",2200.21)=""
^DD(2100,"RQ",2200.22)=""
^DD(2100,"RQ",2200.23)=""
^DD(2100,"RQ",2200.24)=""
^DD(2100,"RQ",2200.25)=""
^DD(2100,"RQ",2200.26)=""
^DD(2100,"RQ",2200.27)=""
^DD(2100,"RQ",2200.28)=""
^DD(2100,"RQ",2200.29)=""
^DD(2100,"RQ",2200.3)=""
^DD(2100,"RQ",2200.31)=""
^DD(2100,"RQ",2200.32)=""
^DD(2100,"RQ",2200.33)=""
^DD(2100,"RQ",2200.34)=""
^DD(2100,"RQ",2200.35)=""
^DD(2100,"RQ",2200.36)=""
^DD(2100,"RQ",2200.37)=""
^DD(2100,"RQ",2200.38)=""
^DD(2100,"RQ",2200.4)=""
^DD(2100,"RQ",2200.41)=""
^DD(2100,"RQ",2200.42)=""
^DD(2100,"RQ",2200.43)=""
^DD(2100,"RQ",2200.44)=""
^DD(2100,"RQ",2200.45)=""
^DD(2100,"RQ",2200.5)=""
^DD(2100,"RQ",2200.51)=""
^DD(2100,"RQ",2200.52)=""
^DD(2100,"RQ",2200.53)=""
^DD(2100,"RQ",2200.54)=""
^DD(2100,"RQ",2201.01)=""
^DD(2100,"RQ",2201.02)=""
^DD(2100,"RQ",2201.03)=""
^DD(2100,"RQ",2201.04)=""
^DD(2100,"RQ",2201.06)=""
^DD(2100,"RQ",2201.08)=""
^DD(2100,"RQ",2201.09)=""
^DD(2100,"RQ",2201.1)=""
^DD(2100,"RQ",4142.07)=""
^DD(2100,"RQ",4142.14)=""
^DD(2100,"RQ",4142.21)=""
^DD(2100,"RQ",4142.28)=""
^DD(2100,"RQ",4266)=""
^DD(2100,"RQ",4267)=""
^DD(2100,"RQ",4270)=""
^DD(2100,"RQ",4271)=""
^DD(2100,"RQ",4272)=""
^DD(2100,"RQ",4273)=""
^DD(2100,"RQ",4274)=""
^DD(2100,"RQ",4275)=""
^DD(2100,"RQ",4276)=""
^DD(2100,"RQ",4277)=""
^DD(2100,"RQ",4278)=""
^DD(2100,"RQ",4279)=""
^DD(2100,"RQ",4280)=""
^DD(2100,"RQ",4281)=""
^DD(2100,"RQ",4282)=""
^DD(2100,"RQ",4287)=""
^DD(2100,"RQ",4288)=""
^DD(2100,"RQ",4302)=""
^DD(2100,"RQ",4304.99)=""
^DD(2100,"RQ",4305)=""
^DD(2100,"RQ",4306)=""
^DD(2100,"RQ",4308)=""
^DD(2100,"RQ",4309)=""
^DD(2100,"RQ",4312)=""
^DD(2100,"RQ",4314)=""
^DD(2100,"RQ",4329)=""
^DD(2100,"RQ",4330)=""
^DD(2100,"RQ",4331)=""
^DD(2100,"RQ",4335)=""
^DD(2100,"RQ",4341)=""
^DD(2100,"RQ",4347.5)=""
^DD(2100,"RQ",4348)=""
^DD(2100,"RQ",4349)=""
^DD(2100,"RQ",4350)=""
^DD(2100,"RQ",4351)=""
^DD(2100,"RQ",4352)=""
^DD(2100,"RQ",4353)=""
^DD(2100,"RQ",4354)=""
^DD(2100,"RQ",4355)=""
^DD(2100,"RQ",4356)=""
^DD(2100,"RQ",4357)=""
^DD(2100,"RQ",4358)=""
^DD(2100,"RQ",4359)=""
^DD(2100,"RQ",4360)=""
^DD(2100,"RQ",4361)=""
^DD(2100,"RQ",4362)=""
^DD(2100,"RQ",4363)=""
^DD(2100,"RQ",4364)=""
^DD(2100,"RQ",4365)=""
^DD(2100,"RQ",4366)=""
^DD(2100,"RQ",5000)=""
^DD(2100,"RQ",5001)=""
^DD(2100,"RQ",5002)=""
^DD(2100,"RQ",5009)=""
^DD(2100,"RQ",5010)=""
^DD(2100,"RQ",5011)=""
^DD(2100,"RQ",5017)=""
^DD(2100,"RQ",5018)=""
^DD(2100,"RQ",5022)=""
^DD(2100,"RQ",5024)=""
^DD(2100,"RQ",5025)=""
^DD(2100,"RQ",5040)=""
^DD(2100,"RQ",5063)=""
^DD(2100,"RQ",5064)=""
^DD(2100,"SB",2100.01,50)=""
^DD(2100,"SB",2100.02,500)=""
^DD(2100,"SB",2100.051,51)=""
^DD(2100.01,0)="CODE SUB-FIELD^^.01^1"
^DD(2100.01,0,"NM","CODE")=""
^DD(2100.01,0,"UP")="2100"
^DD(2100.01,.01,0)="CODE^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>200!($L(X)<1) X"
^DD(2100.01,.01,1,0)="^.1^^0"
^DD(2100.01,.01,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(2100.01,.01,21,0)="^^2^2^2940628^"
^DD(2100.01,.01,21,1,0)="This field is used to store the generated code sheet which will"
^DD(2100.01,.01,21,2,0)="be transmitted."
^DD(2100.01,.01,"DT")="2890810"
^DD(2100.01,"B","CODE",.01)=""
^DD(2100.01,"GL",0,1,.01)=""
^DD(2100.02,0)="LINE SUB-FIELD^^1604^244"
^DD(2100.02,0,"DT")="2950130"
^DD(2100.02,0,"IX","B",2100.02,.01)=""
^DD(2100.02,0,"NM","LINE")=""
^DD(2100.02,0,"UP")="2100"
^DD(2100.02,.01,0)="LINE^MNJ3,0XO^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(2100.02,.01,1,0)="^.1"
^DD(2100.02,.01,1,1,0)="2100.02^B"
^DD(2100.02,.01,1,1,1)="S ^GECS(2100,DA(1),""FMSLIN"",""B"",$E(X,1,30),DA)="""""
^DD(2100.02,.01,1,1,2)="K ^GECS(2100,DA(1),""FMSLIN"",""B"",$E(X,1,30),DA)"
^DD(2100.02,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2100.02,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2100.02,.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100.02,.01,2.1)="I $D(GECSOT) S Y=$E(""000"",$L(Y)+1,3)_Y"
^DD(2100.02,.01,3)="Enter the FMS line number from 1 to 999."
^DD(2100.02,.01,21,0)="^^4^4^2940713^^^"
^DD(2100.02,.01,21,1,0)="This field stores the FMS line numbers from 1 to 999.  When the code"
^DD(2100.02,.01,21,2,0)="sheet is created, the FMS line number will be formatted as three"
^DD(2100.02,.01,21,3,0)="characters.  For example, if the FMS line number is 1, it will appear"
^DD(2100.02,.01,21,4,0)="on the code sheet as 001."
^DD(2100.02,.01,"DT")="2940406"
^DD(2100.02,50.01,0)="FUND^F^^TVA;1^K:$L(X)>6!($L(X)<1) X"
^DD(2100.02,50.01,3)="Answer must be 1-6 characters in length."
^DD(2100.02,50.01,21,0)="^^3^3^2940711^"
^DD(2100.02,50.01,21,1,0)="System-maintained. The code of the fund to be charged for the item on this"
^DD(2100.02,50.01,21,2,0)="line. This field is the same as that entered in the header portion of the"
^DD(2100.02,50.01,21,3,0)="document."
^DD(2100.02,50.01,"DT")="2931215"
^DD(2100.02,50.02,0)="XORGANIZATION^F^^TVA;2^K:$L(X)>7!($L(X)<1) X"
^DD(2100.02,50.02,3)="Answer must be 1-7 characters in length."
^DD(2100.02,50.02,21,0)="^^1^1^2940711^"
^DD(2100.02,50.02,21,1,0)="Enter the code for the station which is funding this part of FMS document."
^DD(2100.02,50.02,"DT")="2931215"
^DD(2100.02,50.03,0)="SAT STATION^F^^TVC;3^K:$L(X)>2!($L(X)<1) X"
^DD(2100.02,50.03,3)="Answer must be 1-2 characters in length."
^DD(2100.02,50.03,21,0)="^^2^2^2940708^"
^DD(2100.02,50.03,21,1,0)="Optional. Enter the satellite station. The code must be valid in the"
^DD(2100.02,50.03,21,2,0)="Satellite Station/Sub Cost Center Table (SORG)."
^DD(2100.02,50.03,"DT")="2940510"
^DD(2100.02,50.04,0)="COST CENTER^FX^^TVA;4^S DIC=""^PRCD(420.1,"",DIC(0)=""EMNQZ"" D ^DIC K:Y<0 X I Y>0 S X=$E($P(Y(0),""^""),1,7)"
^DD(2100.02,50.04,3)="Answer must be 1-7 characters in length."
^DD(2100.02,50.04,21,0)="^^4^4^2940708^"
^DD(2100.02,50.04,21,1,0)="Optional. Enter this code only if the station using the goods being paid"
^DD(2100.02,50.04,21,2,0)="for on this voucher is different from the Station. The code used must be"
^DD(2100.02,50.04,21,3,0)="valid in the Station/Cost Center Table (ORGN). This field may not be"
^DD(2100.02,50.04,21,4,0)="changed by a MODIFY document."
^DD(2100.02,50.04,"DT")="2940510"
^DD(2100.02,50.04,"TVA")="0160A1^688^^^^2102^94"
^DD(2100.02,50.05,0)="SUB COST CENTER^F^^TVC;4^K:$L(X)>2!($L(X)<1) X"
^DD(2100.02,50.05,3)="Answer must be 1-2 characters in length."
^DD(2100.02,50.05,21,0)="^^3^3^2940708^"
^DD(2100.02,50.05,21,1,0)="Optional. Enter the sub cost center. The code used must be valid in the"
^DD(2100.02,50.05,21,2,0)="Satellite Station/Sub Cost Center(SORG). This field may not be changed by"
^DD(2100.02,50.05,21,3,0)="a MODIFY document."
^DD(2100.02,50.05,"DT")="2940510"
^DD(2100.02,50.06,0)="BUDGET OBJECT CODE^RFX^^TVA;6^S DIC=""^PRCD(420.2,"",DIC(0)=""EMNQZ"" D ^DIC K:Y<0 X I Y>0 S X=$E($P(Y(0),""^""),1,4)"
^DD(2100.02,50.06,3)="Answer must be 1-4 characters in length."
^DD(2100.02,50.06,21,0)="^^4^4^2940708^"
^DD(2100.02,50.06,21,1,0)="Required expense lines unless a reference document and line number are"
^DD(2100.02,50.06,21,2,0)="entered, must be blank for disbursement lines (Line Type of O or T). Enter"
^DD(2100.02,50.06,21,3,0)="the code from the Budget Object/Limitation Table(BOAT) that best describe"
^DD(2100.02,50.06,21,4,0)="this accounting expense line."
^DD(2100.02,50.06,"DT")="2940503"
^DD(2100.02,50.06,"TVA")="0160A1^688^^^^^94^^^^^0100201B1"
^DD(2100.02,50.07,0)="BUDGET FY^RF^^TVA;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,50.07,3)="Answer must be 2 characters in length."
^DD(2100.02,50.07,21,0)="^^3^3^2940708^"
^DD(2100.02,50.07,21,1,0)="System-maintained. The last 2 digits of the fiscal years to be charged for"
^DD(2100.02,50.07,21,2,0)="the item on this line.  This field is the same as that entered in the"
^DD(2100.02,50.07,21,3,0)="header portion of the document."
^DD(2100.02,50.07,"DT")="2940131"
^DD(2100.02,50.08,0)="END BUDGET FY^F^^TVA;8^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,50.08,3)="Answer must be 2 characters in length."
^DD(2100.02,50.08,21,0)="^^2^2^2940708^"
^DD(2100.02,50.08,21,1,0)="Enter the last 2 digits of ending fiscal year to which the FMS document"
^DD(2100.02,50.08,21,2,0)="applies."
^DD(2100.02,50.08,"DT")="2940131"
^DD(2100.02,50.09,0)="SUB BOC^F^^TVC;5^K:$L(X)>2!($L(X)<1) X"
^DD(2100.02,50.09,3)="Answer must be 1-2 characters in length."
^DD(2100.02,50.09,21,0)="^^5^5^2940708^"
^DD(2100.02,50.09,21,1,0)="Required if the Budget Object Code has a Y in the Sub-object code required"
^DD(2100.02,50.09,21,2,0)="field.  Optional if the Prior Document Reference Option in the System"
^DD(2100.02,50.09,21,3,0)="Control Option Table (SOPT) is Y and a Travel Order is referenced on the"
^DD(2100.02,50.09,21,4,0)="line.  Enter the code from the Sub-Object Table (SOBJ) that best describes"
^DD(2100.02,50.09,21,5,0)="this accounting expense line."
^DD(2100.02,50.09,"DT")="2940510"
^DD(2100.02,50.1,0)="REPORTING CATEGORY^F^^TVA;10^K:$L(X)>4!($L(X)<1) X"
^DD(2100.02,50.1,3)="Answer must be 1-4 characters in length."
^DD(2100.02,50.1,21,0)="^^3^3^2940708^"
^DD(2100.02,50.1,21,1,0)="Optional. Record an appropriate code from the Reporting Category Table"
^DD(2100.02,50.1,21,2,0)="(RPTG). If this field is entered when the line references a Travel Order,"
^DD(2100.02,50.1,21,3,0)="the code must be the same as the one used on the referenced line."
^DD(2100.02,50.1,"DT")="2940131"
^DD(2100.02,50.11,0)="JOB NUMBER^F^^TVA;11^K:$L(X)>8!($L(X)<1) X"
^DD(2100.02,50.11,3)="Answer must be 1-8 characters in length."
^DD(2100.02,50.11,21,0)="^^1^1^2940708^"
^DD(2100.02,50.11,21,1,0)="Enter the code for the job which is being charged."
^DD(2100.02,50.11,"DT")="2940131"
^DD(2100.02,50.12,0)="XPROGRAM^RF^^TVA;12^K:$L(X)>9!($L(X)<1) X"
^DD(2100.02,50.12,3)="Answer must be 1-9 characters in length."
^DD(2100.02,50.12,21,0)="^^2^2^2940708^"
^DD(2100.02,50.12,21,1,0)="Enter the code of the FCP/PRJ related to this voucher. The FCP/Project, in"
^DD(2100.02,50.12,21,2,0)="conjunction with the station code, must be valid in the FCP/Project Table."
^DD(2100.02,50.12,"DT")="2940131"
^DD(2100.02,50.13,0)="TRAVEL TYPE^F^^TVA;13^K:$L(X)>3!($L(X)<1) X"
^DD(2100.02,50.13,3)="Answer must be 1-3 characters in length."
^DD(2100.02,50.13,21,0)="^^7^7^2940711^"
^DD(2100.02,50.13,21,1,0)="Required for expense lines if decentralized Travel Order was entered as"
^DD(2100.02,50.13,21,2,0)="the reference document and this order does not exist on the TOHT.  Not"
^DD(2100.02,50.13,21,3,0)="allowed for disbursement lines (Line Type  O or T). Identifies the type of"
^DD(2100.02,50.13,21,4,0)="travel with which this expense is associated.  Valid values are maintained"
^DD(2100.02,50.13,21,5,0)="on the Travel Type Table (TTYP). If left blank, it defautls to the Tvavel"
^DD(2100.02,50.13,21,6,0)="Type of the travel order.  This field may not be changed by a MODIFY"
^DD(2100.02,50.13,21,7,0)="document."
^DD(2100.02,50.13,"DT")="2940131"
^DD(2100.02,50.14,0)="DESCRIPTION CODE^S^B:BENEFICIARY/VET;C:COMMERCIAL PAYMENTS;E:EMPLOYEE PAYMENTS;G:GSA;R:RITA;W:WTA;X:CONVERSION;^TVC;6^Q"
^DD(2100.02,50.14,3)="Enter 'B' for Beneficiary/Vet.  'C' for Commercial Payments.  'E' for Employee Payments.  'G' for GSA. 'R' for RITA.  'W' For WTA.  'X' for Conversion."
^DD(2100.02,50.14,21,0)="^^2^2^2940711^"
^DD(2100.02,50.14,21,1,0)="Required if Exception Amount is not blank or zero. Valid exception codes"
^DD(2100.02,50.14,21,2,0)="are maintained on the Travel Exception Reason Code Table (TXRC)."
^DD(2100.02,50.14,"DT")="2940510"
^DD(2100.02,50.15,0)="REF TRANS CODE^F^^TVA;15^K:$L(X)>2!($L(X)<1) X"
^DD(2100.02,50.15,3)="Answer must be 1-2 characters in length."
^DD(2100.02,50.15,21,0)="^^2^2^2940711^"
^DD(2100.02,50.15,21,1,0)="Required for expense liines if either Decentralized Travel Order flags on"
^DD(2100.02,50.15,21,2,0)="TTYP or ORGN for this travel type is Y."
^DD(2100.02,50.15,"DT")="2940131"
^DD(2100.02,50.16,0)="REF TRANS NUMBER^F^^TVA;16^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,50.16,3)="Answer must be 1-11 characters in length."
^DD(2100.02,50.16,21,0)="^^1^1^2940819^"
^DD(2100.02,50.16,21,1,0)="Required only if reference document is entered.(001-999)"
^DD(2100.02,50.16,"DT")="2940818"
^DD(2100.02,50.17,0)="REF TRANS LINE NUM^NJ3,0X^^TVA;17^K:X'?1.3N!(+X<1) X I $D(X) S DINUM=+X,X=$E(1000+X,2,4)"
^DD(2100.02,50.17,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100.02,50.17,21,0)="^^2^2^2940818^"
^DD(2100.02,50.17,21,1,0)="Required if reference document is entered; leave blank otherwise. Enter"
^DD(2100.02,50.17,21,2,0)="the Travel Order Line Number which obligated this expense."
^DD(2100.02,50.17,"DT")="2940428"
^DD(2100.02,50.18,0)="ACTUAL COST INC DEC^F^^TVA;18^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,50.18,3)="Answer must be 1 character in length."
^DD(2100.02,50.18,21,0)="^^2^2^2940711^"
^DD(2100.02,50.18,21,1,0)="Optional for modification documents, leave blank on original entry. Enter"
^DD(2100.02,50.18,21,2,0)="a D for a decrease in exception amount, I for an increase."
^DD(2100.02,50.18,"DT")="2940427"
^DD(2100.02,50.19,0)="ACTUAL COST AMOUNT^RNJ14,2O^^TVA;19^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100.02,50.19,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.19,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.19,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100.02,50.19,21,0)="^^3^3^2940711^"
^DD(2100.02,50.19,21,1,0)="Required . If this is a new line, enter the dollar amount of the item(s)"
^DD(2100.02,50.19,21,2,0)="described on this line. This should be the claimed amount net of any"
^DD(2100.02,50.19,21,3,0)="exception."
^DD(2100.02,50.19,"DT")="2940427"
^DD(2100.02,50.2,0)="EXCEPTION INC DEC^F^^TVA;20^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,50.2,3)="Answer must be 1 character in length."
^DD(2100.02,50.2,21,0)="^^4^4^2940711^"
^DD(2100.02,50.2,21,1,0)="Optional for modification document, leave blank on original entry. Enter a"
^DD(2100.02,50.2,21,2,0)="D for a decrease in actual cost, I for an increase. When document action"
^DD(2100.02,50.2,21,3,0)="is E, a blank defaults to I (increae). This field may be changed by a"
^DD(2100.02,50.2,21,4,0)="Modify document."
^DD(2100.02,50.2,"DT")="2940131"
^DD(2100.02,50.21,0)="EXCEPTION AMT^NJ14,2O^^TVA1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100.02,50.21,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.21,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.21,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100.02,50.21,21,0)="^^4^4^2940711^"
^DD(2100.02,50.21,21,1,0)="Optional. Enter the amount to which exception is taken. This amount is"
^DD(2100.02,50.21,21,2,0)="used for reporting purposes only and must be positive.  If an exception is"
^DD(2100.02,50.21,21,3,0)="entered in the header, then any amount entered here is not recorded on any"
^DD(2100.02,50.21,21,4,0)="tables. This field may be changed by a MODIFY document."
^DD(2100.02,50.21,"DT")="2940427"
^DD(2100.02,50.22,0)="EXCEPT CODE^F^^TVA1;2^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,50.22,3)="Answer must be 1 character in length."
^DD(2100.02,50.22,21,0)="^^1^1^2940711^"
^DD(2100.02,50.22,21,1,0)="Required if Exception Amount is not blank or zero."
^DD(2100.02,50.22,"DT")="2940131"
^DD(2100.02,50.23,0)="TAX CODE^F^^TVA1;3^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,50.23,3)="Answer must be 1 character in length."
^DD(2100.02,50.23,21,0)="^^1^1^2940818^"
^DD(2100.02,50.23,21,1,0)="Required for expense lines if Travel Type has a Taxable flag of Y on TTYP."
^DD(2100.02,50.23,"DT")="2940818"
^DD(2100.02,50.24,0)="PARTIAL FINAL FLAG^F^^TVA1;4^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,50.24,3)="Answer must be 1 character in length."
^DD(2100.02,50.24,21,0)="^^3^3^2940711^"
^DD(2100.02,50.24,21,1,0)="Optional. This field is used only when a travel order is referenced and is"
^DD(2100.02,50.24,21,2,0)="determined by the combination of reference order outstanding amount,"
^DD(2100.02,50.24,21,3,0)="travel payment line amount, and liquidation amount."
^DD(2100.02,50.24,"DT")="2940131"
^DD(2100.02,50.25,0)="TAX TYPE^F^^TVA1;5^K:$L(X)>2!($L(X)<1) X"
^DD(2100.02,50.25,3)="Answer must be 1-2 characters in length."
^DD(2100.02,50.25,21,0)="^^3^3^2940711^"
^DD(2100.02,50.25,21,1,0)="Required if the line type is T, otherwise it must be left blank, Enter the"
^DD(2100.02,50.25,21,2,0)="tax type associated with the tax being withheld on this line. The code"
^DD(2100.02,50.25,21,3,0)="must be valid on the Tax Withholding Payment Table (TWPT)."
^DD(2100.02,50.25,"DT")="2940131"
^DD(2100.02,50.26,0)="GTR NUMBER^F^^TVA1;6^K:$L(X)>10!($L(X)<1) X"
^DD(2100.02,50.26,3)="Answer must be 1-10 characters in length."
^DD(2100.02,50.26,21,0)="^^3^3^2940711^"
^DD(2100.02,50.26,21,1,0)="Optional for TY document. Enter the number of the GTR. If this ticket was"
^DD(2100.02,50.26,21,2,0)="purchased through the GTS, you may enter contract number.  If left blank,"
^DD(2100.02,50.26,21,3,0)="it defaults to the GTR listed on the Ticket Table."
^DD(2100.02,50.26,"DT")="2940131"
^DD(2100.02,50.27,0)="TICKET NUMBER^F^^TVA1;7^K:$L(X)>12!($L(X)<1) X"
^DD(2100.02,50.27,3)="Answer must be 1-12 characters in length."
^DD(2100.02,50.27,21,0)="^^5^5^2940711^"
^DD(2100.02,50.27,21,1,0)="Required for TY document if the Ticket Processing Option flag on the"
^DD(2100.02,50.27,21,2,0)="Travel Special Options Table (TSPC) is R. Enter the ticket number. If the"
^DD(2100.02,50.27,21,3,0)="ticket was downgraded, use the original ticket number. This field may be"
^DD(2100.02,50.27,21,4,0)="changed by a MODIFY document only if the Ticket Processing Option flag on"
^DD(2100.02,50.27,21,5,0)="the Travel Special Option Table (TSPC) is N."
^DD(2100.02,50.27,22)=""
^DD(2100.02,50.27,"DT")="2940131"
^DD(2100.02,50.28,0)="TO TRANS CODE^F^^TVA1;8^K:$L(X)>2!($L(X)<1) X"
^DD(2100.02,50.28,3)="Answer must be 1-2 characters in length."
^DD(2100.02,50.28,21,0)="^^3^3^2940711^"
^DD(2100.02,50.28,21,1,0)="Enter the transaction code of the Travel Order which authorized funds for"
^DD(2100.02,50.28,21,2,0)="this ticket.  If entered, the Travel Order must be present on the Travel"
^DD(2100.02,50.28,21,3,0)="Order Header Table (THOT). This field may be changed by a MODIFY document."
^DD(2100.02,50.28,"DT")="2940131"
^DD(2100.02,50.29,0)="TO TRANS NUMBER^F^^TVA1;9^K:$L(X)>11!($L(X)<1) X"
^DD(2100.02,50.29,3)="Answer must be 1-11 characters in length."
^DD(2100.02,50.29,21,0)="^^4^4^2940711^"
^DD(2100.02,50.29,21,1,0)="Optional for TY Document. Enter the transaction number of the Travel Order"
^DD(2100.02,50.29,21,2,0)="which authorized funds for this ticket. If entered, the Travel Order must"
^DD(2100.02,50.29,21,3,0)="be present on the Travel Order Header Table(TOHT). This field may be"
^DD(2100.02,50.29,21,4,0)="changed by a MODIFY document."
^DD(2100.02,50.29,"DT")="2940131"
^DD(2100.02,50.3,0)="TICKET INC DEC^F^^TVA1;10^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,50.3,3)="Answer must be 1 character in length."
^DD(2100.02,50.3,21,0)="^^2^2^2940711^"
^DD(2100.02,50.3,21,1,0)="Optional for modification documents. Blank on original entry. Defaults to"
^DD(2100.02,50.3,21,2,0)="I (increase)."
^DD(2100.02,50.3,"DT")="2940131"
^DD(2100.02,50.31,0)="TICKET AMOUNT^RNJ12,2O^^TVA1;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999.99)!(X<0) X"
^DD(2100.02,50.31,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.31,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.31,3)="Type a Dollar Amount between 0 and 999999999.99, 2 Decimal Digits"
^DD(2100.02,50.31,21,0)="^^3^3^2940711^"
^DD(2100.02,50.31,21,1,0)="Required for TY document if Ticket number has been entered. Enter the"
^DD(2100.02,50.31,21,2,0)="amount of the ticket on this line. If the ticket was downgraded, use the"
^DD(2100.02,50.31,21,3,0)="lower,net amount. Thsi field may be changed by a MODIFY document."
^DD(2100.02,50.31,"DT")="2940421"
^DD(2100.02,50.33,0)="STAT JOB NUMBER^F^^TVA1;13^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,50.33,3)="Answer must be 1-8 characters in length."
^DD(2100.02,50.33,21,0)="^^6^6^2940711^"
^DD(2100.02,50.33,21,1,0)="Required for TY document if Travel Statistics flag for the Home Station's"
^DD(2100.02,50.33,21,2,0)="Administration/Staff Office is Y on the Administration/Staff Office Table,"
^DD(2100.02,50.33,21,3,0)="unless classified. Enter the code for the job which is being charged. This"
^DD(2100.02,50.33,21,4,0)="job number is not edited against any tables, and is not used by the"
^DD(2100.02,50.33,21,5,0)="Project Cost Accounting subsystem. This field may not be changed by a"
^DD(2100.02,50.33,21,6,0)="MODIFY document."
^DD(2100.02,50.33,"DT")="2940711"
^DD(2100.02,50.34,0)="LOCATION CODE^RF^^TVA1;14^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,50.34,3)="Answer must be 1-4 characters in length."
^DD(2100.02,50.34,21,0)="^^4^4^2940711^"
^DD(2100.02,50.34,21,1,0)="Required for TY document if Travel Statistics flag for the Home Station's"
^DD(2100.02,50.34,21,2,0)="administration/staff office is Y on the Administration/Staff Office"
^DD(2100.02,50.34,21,3,0)="Table(DVSN), unless classified. Enter the code which indicates where the"
^DD(2100.02,50.34,21,4,0)="employee has travelled."
^DD(2100.02,50.34,"DT")="2940711"
^DD(2100.02,50.35,0)="NUMBER OF DAYS^RNJ5,0^^TVA1;15^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,50.35,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(2100.02,50.35,21,0)="^^4^4^2940711^"
^DD(2100.02,50.35,21,1,0)="Required for TY document if Travel Statistics flag for the Home Station's"
^DD(2100.02,50.35,21,2,0)="administration/staff is Y on the Administration/Staff Office Table (DVSN),"
^DD(2100.02,50.35,21,3,0)="unless classified. Enter the number of days involved in the travel for"
^DD(2100.02,50.35,21,4,0)="that job. This field may be changed by a MODIFY document."
^DD(2100.02,50.35,"DT")="2940131"
^DD(2100.02,50.36,0)="ROLE CODE^RF^^TVA1;16^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,50.36,3)="Answer must be 1-4 characters in length."
^DD(2100.02,50.36,21,0)="^^5^5^2940711^^"
^DD(2100.02,50.36,21,1,0)="Enter the code which indicates the role of the employee for this"
^DD(2100.02,50.36,21,2,0)="assignment. Valid code are maintained on the Travel Role Table (TROL)."
^DD(2100.02,50.36,21,3,0)="Required for TY document if Travel Statistics flag for the Home Station's"
^DD(2100.02,50.36,21,4,0)="administration/staff office is Y on the Administraton/Staff Office Table,"
^DD(2100.02,50.36,21,5,0)="unless classified. This field may be changed by a MODIFY document."
^DD(2100.02,50.36,"DT")="2940711"
^DD(2100.02,50.37,0)="STAT COST AMT^RNJ14,2O^^TVB;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100.02,50.37,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.37,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.37,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100.02,50.37,21,0)="^^3^3^2940711^"
^DD(2100.02,50.37,21,1,0)="Emter the amount charged against this job code. Required for TY document"
^DD(2100.02,50.37,21,2,0)="if Travel Statistics flag for the Home Station's Admin/Staff office is Y"
^DD(2100.02,50.37,21,3,0)="on the Admin/Staff Office Table, unless classified."
^DD(2100.02,50.37,"DT")="2940711"
^DD(2100.02,50.38,0)="STAT COST INC DEC^F^^TVB;2^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,50.38,3)="Answer must be 1 character in length."
^DD(2100.02,50.38,21,0)="^^2^2^2940711^"
^DD(2100.02,50.38,21,1,0)="Optional for Modification documents. Blank on original entry. Defaults to"
^DD(2100.02,50.38,21,2,0)="I (increase)."
^DD(2100.02,50.38,"DT")="2940711"
^DD(2100.02,50.39,0)="LINE TYPE^RF^^TVB;3^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,50.39,3)="Answer must be 1 character in length."
^DD(2100.02,50.39,21,0)="^^2^2^2940711^"
^DD(2100.02,50.39,21,1,0)="Required. Enter E for expenses, O if owed to an employee, T for tax"
^DD(2100.02,50.39,21,2,0)="withheld. Defaults to E."
^DD(2100.02,50.39,"DT")="2940711"
^DD(2100.02,50.4,0)="LINE DESCRIPTION^F^^TVB;4^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,50.4,3)="Answer must be 1-30 characters in length."
^DD(2100.02,50.4,21,0)="^^2^2^2940711^"
^DD(2100.02,50.4,21,1,0)="Optional. Enter any information you want recorded about this accounting"
^DD(2100.02,50.4,21,2,0)="expense line. This field may be changed by a MODIFY document."
^DD(2100.02,50.4,"DT")="2940711"
^DD(2100.02,50.41,0)="LIQUIDATION AMOUNT^NJ14,2O^^TVB;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100.02,50.41,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.41,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,50.41,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100.02,50.41,21,0)="^^6^6^2940711^"
^DD(2100.02,50.41,21,1,0)="Optional. This field may be entered on original entry travel voucher"
^DD(2100.02,50.41,21,2,0)="documents to automatically adjust the referenced obligation. If the line"
^DD(2100.02,50.41,21,3,0)="amount entered is greater than the liquidation amount, the corresponding"
^DD(2100.02,50.41,21,4,0)="obligation will be increased by the difference between the line amount and"
^DD(2100.02,50.41,21,5,0)="the liquidation amount. If the line amount is less than the liquidation"
^DD(2100.02,50.41,21,6,0)="amount, the corresponding obligation will be decreased by the difference"
^DD(2100.02,50.41,"DT")="2940427"
^DD(2100.02,50.42,0)="CLOSED BEG BUDGET FY^F^^TVB;6^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,50.42,3)="Answer must be 2 characters in length."
^DD(2100.02,50.42,21,0)="^^5^5^2940712^"
^DD(2100.02,50.42,21,1,0)="Required if subclass Indicator on the Fund Table (FUND) for the entered"
^DD(2100.02,50.42,21,2,0)="budget fiscal year(s) and fund is Y; must be blank otherwise. Enter the"
^DD(2100.02,50.42,21,3,0)="Budget Fiscal Year(s) of the applicable closed fund for which this"
^DD(2100.02,50.42,21,4,0)="document was originally chargeable. This field may not be changed by a"
^DD(2100.02,50.42,21,5,0)="MODIFY document."
^DD(2100.02,50.42,"DT")="2940418"
^DD(2100.02,50.43,0)="CLOSED END BUDGET FY^F^^TVB;7^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,50.43,3)="Answer must be 2 characters in length."
^DD(2100.02,50.43,21,0)="^^5^5^2940712^"
^DD(2100.02,50.43,21,1,0)="Required if the Subclass Indicator on the Fund Table (FUND) for the"
^DD(2100.02,50.43,21,2,0)="entered budget fiscal year(s) and fund is Y; must be blank otherwise."
^DD(2100.02,50.43,21,3,0)="Enter the Budget Fiscal Year(s) of the applicable closed fund for which"
^DD(2100.02,50.43,21,4,0)="this document was originally chargeable. This field may not be changed by"
^DD(2100.02,50.43,21,5,0)="a MODIFY document."
^DD(2100.02,50.43,"DT")="2940418"
^DD(2100.02,50.44,0)="CLOSED FUND^F^^TVB;8^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,50.44,3)="Answer must be 1-6 characters in length."
^DD(2100.02,50.44,21,0)="^^5^5^2940712^"
^DD(2100.02,50.44,21,1,0)="Required if the Subclass Indicator on the Fund Table (FUND) for the"
^DD(2100.02,50.44,21,2,0)="entered budget fiscal year(s) and fund is Y; must be blank otherwise."
^DD(2100.02,50.44,21,3,0)="Enter the fund of the applicable closed fund for which this document was"
^DD(2100.02,50.44,21,4,0)="originally chargeable. The code must be valid on the Fund Table (FUND)."
^DD(2100.02,50.44,21,5,0)="This field may not be changed by a MODIFY document."
^DD(2100.02,50.44,"DT")="2940712"
^DD(2100.02,50.45,0)="PAID FLAG^F^^TVC;1^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,50.45,3)="Answer must be 1 character in length."
^DD(2100.02,50.45,21,0)="^^1^1^2940712^"
^DD(2100.02,50.45,21,1,0)="Not on the user screen. Will be used in the future."
^DD(2100.02,50.45,"DT")="2940712"
^DD(2100.02,50.46,0)="XDIVISION^F^^TVC;2^K:$L(X)>4!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,50.46,3)="Answer must be 1-4 characters in length."
^DD(2100.02,50.46,21,0)="^^1^1^2940712^"
^DD(2100.02,50.46,21,1,0)="Not on the user screen.  System-maintained."
^DD(2100.02,50.46,"DT")="2940712"
^DD(2100.02,52.12,0)="LINE AMOUNT^RNJ14,2O^^TOA;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999.99)!(X<0) X"
^DD(2100.02,52.12,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,52.12,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,52.12,3)="Type a Dollar Amount between 0 and 99999999999.99, 2 Decimal Digits"
^DD(2100.02,52.12,21,0)="^^2^2^2940712^"
^DD(2100.02,52.12,21,1,0)="Required. Enter the obligation amount associated with the station and"
^DD(2100.02,52.12,21,2,0)="budget object code. This field may be changed by a MODIFY document."
^DD(2100.02,52.12,"DT")="2940506"
^DD(2100.02,52.13,0)="LINE AMOUNT INC DEC^S^I:INCREASE;D:DECREASE;^TOA;13^Q"
^DD(2100.02,52.13,3)=""
^DD(2100.02,52.13,21,0)="^^4^4^2940712^"
^DD(2100.02,52.13,21,1,0)="Optional for modification document, leave blank on original entry. Enter a"
^DD(2100.02,52.13,21,2,0)="D for a decrease in obligation amount, I for an increase. If left blank,"
^DD(2100.02,52.13,21,3,0)="it defaults to I (increase). This field may be changed by a MODIFY"
^DD(2100.02,52.13,21,4,0)="document."
^DD(2100.02,52.13,"DT")="2940407"
^DD(2100.02,54.03,0)="REF TRANS LINE^NJ3,0X^^TPA;3^K:X'?1.3N!(+X<1) X I $D(X) S DINUM=+X,X=$E(1000+X,2,4)"
^DD(2100.02,54.03,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100.02,54.03,21,0)="^^1^1^2940712^"
^DD(2100.02,54.03,21,1,0)="Required if obligating document is not blank. Blank otherwise."
^DD(2100.02,54.03,"DT")="2940428"
^DD(2100.02,54.04,0)="ACCEPT YEAR^F^^TPA;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,54.04,3)="Answer must be 2 characters in length."
^DD(2100.02,54.04,21,0)="^^5^5^2940712^"
^DD(2100.02,54.04,21,1,0)="Optional. Enter the date on which the goods or services authorized for"
^DD(2100.02,54.04,21,2,0)="payment on this line have been accepted. This date is used in scheduling"
^DD(2100.02,54.04,21,3,0)="vouchers for payment. You need to enter this date only if it is later than"
^DD(2100.02,54.04,21,4,0)="the vendor invoice date in the Document Tracking Subsystem. This field may"
^DD(2100.02,54.04,21,5,0)="not be changed by a MODIFY document."
^DD(2100.02,54.04,"DT")="2940304"
^DD(2100.02,54.05,0)="ACCEPT MONTH^F^^TPA;5^K:$L(X)>2!($L(X)<1)!'(X?1.2N&(0<X<13)) X"
^DD(2100.02,54.05,3)="Answer must be 1-2 characters in length."
^DD(2100.02,54.05,21,0)="^^1^1^2940712^"
^DD(2100.02,54.05,21,1,0)="Refer to ACCEPT YEAR."
^DD(2100.02,54.05,"DT")="2940304"
^DD(2100.02,54.06,0)="ACCEPT DAY^F^^TPA;6^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,54.06,3)="Answer must be 1-2 characters in length."
^DD(2100.02,54.06,21,0)="^^1^1^2940712^"
^DD(2100.02,54.06,21,1,0)="Refer to ACCEPT YEAR."
^DD(2100.02,54.06,"DT")="2940304"
^DD(2100.02,54.07,0)="VENDOR INVOICE^F^^TPA;7^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.07,3)="Answer must be 1-20 characters in length."
^DD(2100.02,54.07,21,0)="^^2^2^2940712^"
^DD(2100.02,54.07,21,1,0)="Optional. Enter the vendor's invoice number for which authorization for"
^DD(2100.02,54.07,21,2,0)="payment is being made on this document."
^DD(2100.02,54.07,"DT")="2940712"
^DD(2100.02,54.08,0)="VENDOR INVOICE LINE^NJ3,0X^^TPA;8^K:X'?1.3N!(+X<1) X I $D(X) S DINUM=+X,X=$E(1000+X,2,4)"
^DD(2100.02,54.08,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100.02,54.08,21,0)="^^1^1^2940712^"
^DD(2100.02,54.08,21,1,0)="Enter the specific vendor's invoice line here."
^DD(2100.02,54.08,"DT")="2940428"
^DD(2100.02,54.1,0)="LINE TRANS TYPE^F^^TPA;10^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.1,3)="Answer must be 1-2 characters in length."
^DD(2100.02,54.1,21,0)="^^3^3^2940712^"
^DD(2100.02,54.1,21,1,0)="Required on original entry if not entered in the header portion of the"
^DD(2100.02,54.1,21,2,0)="document. Enter the transaction type appropriate for the accounting model"
^DD(2100.02,54.1,21,3,0)="desired for this line."
^DD(2100.02,54.1,"DT")="2940712"
^DD(2100.02,54.11,0)="LINE BUDGET FY^RF^^TPA;11^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,54.11,3)="Answer must be 2 characters in length."
^DD(2100.02,54.11,21,0)="^^2^2^2940712^"
^DD(2100.02,54.11,21,1,0)="Required. Enter the last two digits of the fiscal year to be charged for"
^DD(2100.02,54.11,21,2,0)="the items on this line."
^DD(2100.02,54.11,"DT")="2940304"
^DD(2100.02,54.12,0)="LINE END BUDGET FY^F^^TPA;12^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,54.12,3)="Answer must be 2 characters in length."
^DD(2100.02,54.12,21,0)="^^2^2^2940712^"
^DD(2100.02,54.12,21,1,0)="Required if Ending Budget Fiscal Year is not same as Beginning Budget"
^DD(2100.02,54.12,21,2,0)="Fiscal Year. Blank otherwise."
^DD(2100.02,54.12,"DT")="2940304"
^DD(2100.02,54.13,0)="LINE FUND^F^^TPA;13^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.13,3)="Answer must be 1-6 characters in length."
^DD(2100.02,54.13,21,0)="^^1^1^2940712^"
^DD(2100.02,54.13,21,1,0)="Enter the fund for which this line was originally chargeable."
^DD(2100.02,54.13,"DT")="2940712"
^DD(2100.02,54.23,0)="GL ACCOUNT^F^^TPA;23^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.23,3)="Answer must be 1-4 characters in length."
^DD(2100.02,54.23,21,0)="^^5^5^2940712^"
^DD(2100.02,54.23,21,1,0)="Optional. usually left blank for expense and expenditure document. If"
^DD(2100.02,54.23,21,2,0)="entered, this code is used as the override account when accessing the"
^DD(2100.02,54.23,21,3,0)="Accounting Entries Tabel. The code must be valid in the General Ledger"
^DD(2100.02,54.23,21,4,0)="Account Reference Table (GLAC), and can not be one for which the"
^DD(2100.02,54.23,21,5,0)="Prohibited on Input flag is Y."
^DD(2100.02,54.23,"DT")="2940712"
^DD(2100.02,54.24,0)="QUANTITY^F^^TPA;24^K:$L(X)>9!($L(X)<1)!'(X?1.9N) X"
^DD(2100.02,54.24,3)="Answer must be 1-9 characters in length and numeric."
^DD(2100.02,54.24,21,0)="^^2^2^2940712^"
^DD(2100.02,54.24,21,1,0)="Optional, for reporting purposes only. If entered, must be numeric. This"
^DD(2100.02,54.24,21,2,0)="field may be  changed by a MODIFY document."
^DD(2100.02,54.24,"DT")="2940304"
^DD(2100.02,54.25,0)="REVENUE SOURCE^F^^TPA;25^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.25,3)="Answer must be 1-4 characters in length."
^DD(2100.02,54.25,21,0)="^^1^1^2940712^"
^DD(2100.02,54.25,21,1,0)="Required for governmental refund documents. Blank otherwise."
^DD(2100.02,54.25,"DT")="2940712"
^DD(2100.02,54.26,0)="SUB REV SOURCE^F^^TPA;26^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.26,3)="Answer must be 1-2 characters in length."
^DD(2100.02,54.26,21,0)="^^3^3^2940712^"
^DD(2100.02,54.26,21,1,0)="Required for agency refunds if the Sub-Revenue Source Option in the"
^DD(2100.02,54.26,21,2,0)="Revenue Source Table (RSRC) is Y for the revenue source code used."
^DD(2100.02,54.26,21,3,0)="Optional otherwise for agency refunds. Blank otherwise."
^DD(2100.02,54.26,"DT")="2940712"
^DD(2100.02,54.27,0)="VENDOR INVOICE YEAR^F^^TPA;27^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,54.27,3)="Answer must be 2 characters in length."
^DD(2100.02,54.27,21,0)="^^1^1^2940712^"
^DD(2100.02,54.27,21,1,0)="Optional. Defaults to document date."
^DD(2100.02,54.27,"DT")="2940427"
^DD(2100.02,54.28,0)="VENDOR INVOICE MONTH^FX^^TPA;28^K:$L(X)>2!($L(X)<1)!'(X?1.2N&(0<X<13)) X"
^DD(2100.02,54.28,3)="Answer must be 1-2 characters in length."
^DD(2100.02,54.28,21,0)="^^1^1^2940712^"
^DD(2100.02,54.28,21,1,0)="Optional. Defaults to document date."
^DD(2100.02,54.28,"DT")="2940427"
^DD(2100.02,54.29,0)="VENDOR INVOICE DAY^F^^TPA;29^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,54.29,3)="Answer must be 1-2 characters in length."
^DD(2100.02,54.29,21,0)="^^1^1^2940712^"
^DD(2100.02,54.29,21,1,0)="Optional. Defaults to document date."
^DD(2100.02,54.29,"DT")="2940427"
^DD(2100.02,54.3,0)="INT REASON CODE^F^^TPA;30^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,54.3,3)="Answer must be 1 character in length."
^DD(2100.02,54.3,21,0)="^^2^2^2940712^"
^DD(2100.02,54.3,21,1,0)="This field is optional. Enter the appropriate INT REASON CODE for this"
^DD(2100.02,54.3,21,2,0)="line."
^DD(2100.02,54.3,"DT")="2940712"
^DD(2100.02,54.32,0)="INCREASE/DECREASE INDICATOR^F^^TPA;32^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,54.32,3)="Answer must be 1 character in length."
^DD(2100.02,54.32,21,0)="^^1^1^2940712^"
^DD(2100.02,54.32,21,1,0)="Optional. Enter a I for increase, D for decrease."
^DD(2100.02,54.32,"DT")="2940712"
^DD(2100.02,54.33,0)="PARTIAL FINAL IND^F^^TPA;33^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,54.33,3)="Answer must be 1 character in length."
^DD(2100.02,54.33,21,0)="^^2^2^2940712^"
^DD(2100.02,54.33,21,1,0)="Optional. P for partial payment of reference document line; F for full"
^DD(2100.02,54.33,21,2,0)="payment of reference document line."
^DD(2100.02,54.33,"DT")="2940712"
^DD(2100.02,54.34,0)="EMPLOYEE ID^F^^TPA;34^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.34,3)="Answer must be 1-9 characters in length."
^DD(2100.02,54.34,21,0)="^^2^2^2940712^"
^DD(2100.02,54.34,21,1,0)="Required if Vendor Control Option in System Control Options Table (SOPT)"
^DD(2100.02,54.34,21,2,0)="is Y. Blank otherwise."
^DD(2100.02,54.34,"DT")="2940712"
^DD(2100.02,54.35,0)="EMPLOYEE ADDR CODE^F^^TPA;35^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.35,3)="Answer must be 1-2 characters in length."
^DD(2100.02,54.35,21,0)="^^2^2^2940712^"
^DD(2100.02,54.35,21,1,0)="Required if Vendor Control Option in System Control Options Table is Y."
^DD(2100.02,54.35,21,2,0)="Blank otherwise."
^DD(2100.02,54.35,"DT")="2940712"
^DD(2100.02,54.37,0)="RELATED GBL^F^^TPB;1^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,54.37,3)="Answer must be 1-11 characters in length."
^DD(2100.02,54.37,21,0)="^^1^1^2940712^"
^DD(2100.02,54.37,21,1,0)="This field is optional."
^DD(2100.02,54.37,"DT")="2940712"
^DD(2100.02,54.38,0)="DISC LOST RSN CODE^F^^TPB;2^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,54.38,3)="Answer must be 1 character in length."
^DD(2100.02,54.38,21,0)="^^1^1^2940712^"
^DD(2100.02,54.38,21,1,0)="Optional."
^DD(2100.02,54.38,"DT")="2940712"
^DD(2100.02,54.44,0)="DISCOUNT TYPE^F^^TPC;2^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,54.44,3)="Answer must be 1 character in length."
^DD(2100.02,54.44,21,0)="^^1^1^2940712^"
^DD(2100.02,54.44,21,1,0)="This field is not on user screen. Will be used in the future."
^DD(2100.02,54.44,"DT")="2940712"
^DD(2100.02,55.34,0)="ADVANCE FLAG^F^^DDA;34^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,55.34,3)="Answer must be 1 character in length."
^DD(2100.02,55.34,21,0)="^^3^3^2940712^"
^DD(2100.02,55.34,21,1,0)="Optional for Direct Disbursement (DD). Enter A if this line represents a"
^DD(2100.02,55.34,21,2,0)="refund of a previously received customer agreement advance. If A is"
^DD(2100.02,55.34,21,3,0)="entered, the agreement number must also be entered."
^DD(2100.02,55.34,"DT")="2940712"
^DD(2100.02,55.35,0)="VI LOG YEAR^F^^DDA;35^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,55.35,3)="Answer must be 1-2 characters in length."
^DD(2100.02,55.35,21,0)="^^3^3^2940712^"
^DD(2100.02,55.35,21,1,0)="Optional. Enter the official receipt date for the vendor invoice entered"
^DD(2100.02,55.35,21,2,0)="on this line if voucher tracking is not entered. If entered, the invoice"
^DD(2100.02,55.35,21,3,0)="Log Date must be greater than or equal to the Vendor Invoice Date."
^DD(2100.02,55.35,"DT")="2940217"
^DD(2100.02,55.36,0)="VI LOG MONTH^F^^DDA;36^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,55.36,3)="Answer must be 1-2 characters in length."
^DD(2100.02,55.36,21,0)="^^1^1^2940712^"
^DD(2100.02,55.36,21,1,0)="Refer to VI LOG YEAR."
^DD(2100.02,55.36,"DT")="2940217"
^DD(2100.02,55.37,0)="VI LOG DAY^F^^DDA;37^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,55.37,3)="Answer must be 1-2 characters in length."
^DD(2100.02,55.37,21,0)="^^1^1^2940712^"
^DD(2100.02,55.37,21,1,0)="Refer to VI LOG DAY."
^DD(2100.02,55.37,"DT")="2940217"
^DD(2100.02,55.38,0)="REF ADV TRANS CODE^F^^DDA;38^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100.02,55.38,3)="Answer must be 2 characters in length."
^DD(2100.02,55.38,21,0)="^^3^3^2940712^"
^DD(2100.02,55.38,21,1,0)="Optional. Required if this is an advance offset line. Enter the"
^DD(2100.02,55.38,21,2,0)="transaction code of the document used to issue the advance. Otherwise"
^DD(2100.02,55.38,21,3,0)="leave blank."
^DD(2100.02,55.38,"DT")="2940712"
^DD(2100.02,55.39,0)="REF ADV TRANS NUMBER^F^^DDB;1^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,55.39,3)="Answer must be 1-11 characters in length."
^DD(2100.02,55.39,21,0)="^^3^3^2940712^^"
^DD(2100.02,55.39,21,1,0)="Optional. Required if this is an advance offset line. Enter the"
^DD(2100.02,55.39,21,2,0)="Transaction Number of the document used to issue the advance. Otherwise"
^DD(2100.02,55.39,21,3,0)="leave blank."
^DD(2100.02,55.39,"DT")="2940712"
^DD(2100.02,55.4,0)="REF ADV TRANS LINE^NJ3,0X^^DDB;2^K:X'?1.3N!(+X<1) X I $D(X) S DINUM=+X,X=$E(1000+X,2,4)"
^DD(2100.02,55.4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100.02,55.4,21,0)="^^1^1^2940712^"
^DD(2100.02,55.4,21,1,0)="Required if line is advance offset. Otherwise blank."
^DD(2100.02,55.4,"DT")="2940428"
^DD(2100.02,55.41,0)="ADVANCE INDICATOR^F^^DDB;3^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,55.41,3)="Answer must be 1 character in length."
^DD(2100.02,55.41,21,0)="^^1^1^2940712^"
^DD(2100.02,55.41,21,1,0)="Required if line is advance offset. Otherwise blank."
^DD(2100.02,55.41,"DT")="2940712"
^DD(2100.02,55.46,0)="CAN CODE^F^^DDZ;1^K:$L(X)>9!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,55.46,3)="Answer must be 1-9 characters in length."
^DD(2100.02,55.46,21,0)="^^1^1^2940712^"
^DD(2100.02,55.46,21,1,0)="This field is not on user screen.  For future user only."
^DD(2100.02,55.46,"DT")="2940712"
^DD(2100.02,55.47,0)="UNAPPLIED DEP NUM^F^^DDB;8^K:$L(X)>13!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,55.47,3)="Answer must be 1-13 characters in length."
^DD(2100.02,55.47,21,0)="^^1^1^2940712^"
^DD(2100.02,55.47,21,1,0)="Enter unapplied deposit number."
^DD(2100.02,55.47,"DT")="2940712"
^DD(2100.02,55.48,0)="ACCP/DEL DATE^D^^DDA;39^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100.02,55.48,21,0)="^^3^3^2940712^"
^DD(2100.02,55.48,21,1,0)="This field is used to store the ACCP/DEL DATE the user enter for the FMS"
^DD(2100.02,55.48,21,2,0)="document.  This data entered will then be used as the default response"
^DD(2100.02,55.48,21,3,0)="when editing a code sheet."
^DD(2100.02,55.48,"DT")="2940411"
^DD(2100.02,55.49,0)="INVOICE DATE^D^^DDA;40^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100.02,55.49,21,0)="^^3^3^2940712^"
^DD(2100.02,55.49,21,1,0)="This field is used to store the INVOICE DATE the user entered for the FMS"
^DD(2100.02,55.49,21,2,0)="document. This data entered will then be used as the default response when"
^DD(2100.02,55.49,21,3,0)="editing a code sheet."
^DD(2100.02,55.49,"DT")="2940411"
^DD(2100.02,55.5,0)="LOG DATE^D^^DDA;41^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100.02,55.5,21,0)="^^3^3^2940712^"
^DD(2100.02,55.5,21,1,0)="This field is used to store the LOG DATE the user entered for the FMS"
^DD(2100.02,55.5,21,2,0)="document. This data entered will then be used as the default response when"
^DD(2100.02,55.5,21,3,0)="editing a code sheet."
^DD(2100.02,55.5,"DT")="2940411"
^DD(2100.02,57.01,0)="CANCELLATION CODE^RS^R:REPLACEMENT;C:CANCEL AND REISSUE;X:CANCEL AND DELETE;^CXA;1^Q"
^DD(2100.02,57.01,3)="please enter 'R' for replacement. 'C' to cancel and reissue. 'X' to cancel and delete"
^DD(2100.02,57.01,21,0)="^^2^2^2940712^"
^DD(2100.02,57.01,21,1,0)="Required. R for replacement, C to cancel and reissue, or X to cancel and"
^DD(2100.02,57.01,21,2,0)="delete."
^DD(2100.02,57.01,"DT")="2940421"
^DD(2100.02,57.02,0)="CHECK NUMBER^RF^^CXA;2^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,57.02,3)="Answer must be 1-8 characters in length."
^DD(2100.02,57.02,21,0)="^^2^2^2940712^^^"
^DD(2100.02,57.02,21,1,0)="Required. Enter the check number of the check to be cancelled or if this"
^DD(2100.02,57.02,21,2,0)="is an EFT cancellation, the payment sequence number of the EFT payment."
^DD(2100.02,57.02,"DT")="2940712"
^DD(2100.02,57.03,0)="DISBURSING OFFICE^F^^CXA;3^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,57.03,3)="Answer must be 1-4 characters in length."
^DD(2100.02,57.03,21,0)="^^6^6^2940712^"
^DD(2100.02,57.03,21,1,0)="Required. Enter the disbursing office code for the payment to be canceled."
^DD(2100.02,57.03,21,2,0)="The combination of payment number and disbursing office code must exist in"
^DD(2100.02,57.03,21,3,0)="the Check Header Table and must not have already been canceled for check"
^DD(2100.02,57.03,21,4,0)="cancellations. For EFT cancellations, the combination of schedule"
^DD(2100.02,57.03,21,5,0)="information, EFT number, and disbursing office must exist in the EFT"
^DD(2100.02,57.03,21,6,0)="Header Table."
^DD(2100.02,57.03,"DT")="2940712"
^DD(2100.02,57.04,0)="CANCELLATION TYPE^RS^A:AVAILABLE;Y:AVAILABLE AND TO RE-OPEN A REFERENCED DOCUMENT;U:UNAVAILABLE WITHOUT RE-OPENING THE REFERENCE DOCUMENT;^CXA;4^Q"
^DD(2100.02,57.04,3)=""
^DD(2100.02,57.04,21,0)="^^3^3^2940712^"
^DD(2100.02,57.04,21,1,0)="Required. A to identify as available, Y if available and to re-open a"
^DD(2100.02,57.04,21,2,0)="referenced document, U if unavailable without re-opening the reference"
^DD(2100.02,57.04,21,3,0)="document."
^DD(2100.02,57.04,"DT")="2940216"
^DD(2100.02,57.05,0)="SCHED YEAR^F^^CXA;5^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,57.05,3)="Answer must be 2 characters in length."
^DD(2100.02,57.05,21,0)="^^3^3^2940713^^^"
^DD(2100.02,57.05,21,1,0)="Optional. Enter a schedule date if you wish to specify a new schedule date"
^DD(2100.02,57.05,21,2,0)="for all payment associated with this payment. The date may only be"
^DD(2100.02,57.05,21,3,0)="specified with checks canceled for reissue."
^DD(2100.02,57.05,"DT")="2940713"
^DD(2100.02,57.06,0)="SCHED MONTH^F^^CXA;6^K:$L(X)>2!($L(X)<1)!'(0<X<13) X"
^DD(2100.02,57.06,3)="Answer must be 1-2 characters in length."
^DD(2100.02,57.06,21,0)="^^1^1^2940713^^"
^DD(2100.02,57.06,21,1,0)="Refer to SCHED MONTH."
^DD(2100.02,57.06,"DT")="2940713"
^DD(2100.02,57.07,0)="SCHED DAY^F^^CXA;7^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,57.07,3)="Answer must be 1-2 characters in length."
^DD(2100.02,57.07,21,0)="^^1^1^2940713^"
^DD(2100.02,57.07,21,1,0)="Refer to SCHED YEAR."
^DD(2100.02,57.07,"DT")="2940713"
^DD(2100.02,57.08,0)="VENDOR NAME^F^^CXA;8^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,57.08,3)="Answer must be 3-30 characters in length."
^DD(2100.02,57.08,21,0)="^^2^2^2940713^"
^DD(2100.02,57.08,21,1,0)="System-maintained. The payee name is inferred from the Vendor Table (VEND)"
^DD(2100.02,57.08,21,2,0)="based on the vendor code stored on the Check Header Table (CHKH)."
^DD(2100.02,57.08,"DT")="2940713"
^DD(2100.02,57.09,0)="F CHECK AMOUNT^NJ16,2O^^CXA;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999999.99)!(X<0) X"
^DD(2100.02,57.09,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,57.09,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,57.09,3)="Type a Dollar Amount between 0 and 9999999999999.99, 2 Decimal Digits"
^DD(2100.02,57.09,21,0)="^^1^1^2940713^"
^DD(2100.02,57.09,21,1,0)="System-maintained. The payment amount from the Check or EFT Header Tables."
^DD(2100.02,57.09,"DT")="2940420"
^DD(2100.02,57.1,0)="SCHD FISCAL YEAR^RF^^CXA;10^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,57.1,3)="Answer must be 2 characters in length."
^DD(2100.02,57.1,21,0)="^^3^3^2940713^"
^DD(2100.02,57.1,21,1,0)="Required if the EFT cancellation indicator is Y. Prohibited otherwise."
^DD(2100.02,57.1,21,2,0)="Enter the fiscal year associated with the schedule on which the EFT"
^DD(2100.02,57.1,21,3,0)="payment was made.PP"
^DD(2100.02,57.1,"DT")="2940426"
^DD(2100.02,57.11,0)="VOUCHER SCHEDULE CAT^RS^A:CCD+ PAYMENT  SCHEDULE;C:CTP PAYMENT SCHEDULE;^CXA;11^Q"
^DD(2100.02,57.11,3)="Enter 'A' for CCD+ Payment Schedule, 'C"" for CTP Payment Schedule."
^DD(2100.02,57.11,21,0)="^^2^2^2940713^"
^DD(2100.02,57.11,21,1,0)="Required if the EFT cancellation indicator is Y. Blank otherwise. Valid"
^DD(2100.02,57.11,21,2,0)="categories are A for CCD+ Payment Schedule and C for CTP Payment Schedule."
^DD(2100.02,57.11,"DT")="2940426"
^DD(2100.02,57.12,0)="VOUCHER SCHEDULE TYPE^RS^T:TRANSPORTATION SCHEDULE;M:MISCELLANEOUS SCHEDULE;^CXA;12^Q"
^DD(2100.02,57.12,3)="Enter 'T' for Transportation Schedule. 'M' for Miscellances Schedule."
^DD(2100.02,57.12,21,0)="^^2^2^2940713^"
^DD(2100.02,57.12,21,1,0)="Required if the EFT cancellation indicator is Y. Blank otherwise. Valid"
^DD(2100.02,57.12,21,2,0)="categories are T for Transportation Schedule or M Miscellaneous Schedule."
^DD(2100.02,57.12,"DT")="2940426"
^DD(2100.02,57.13,0)="AGENCY SCHEDULE NO^RF^^CXA;13^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,57.13,3)="Answer must be 1-9 characters in length."
^DD(2100.02,57.13,21,0)="^^2^2^2940713^"
^DD(2100.02,57.13,21,1,0)="Required if the EFT cancellation indicator is Y. Prohibited otherwise."
^DD(2100.02,57.13,21,2,0)="Enter the schedule number on which this payment was disbursed."
^DD(2100.02,57.13,"DT")="2940713"
^DD(2100.02,57.14,0)="EFT IND^S^Y:AN EFT PAYMENT CANCELLATION;N:NOT AN EFT PAYMENT CANCELLATION;^CXA;14^Q"
^DD(2100.02,57.14,3)="Enter 'Y' for an EFT payment cancellation. Enter 'N' otherwise. Defaults to N."
^DD(2100.02,57.14,21,0)="^^2^2^2940713^"
^DD(2100.02,57.14,21,1,0)="Optional. Enter Y for an EFT payment cancellation. Enter N otherwise."
^DD(2100.02,57.14,21,2,0)="Defaults to N."
^DD(2100.02,57.14,"DT")="2940426"
^DD(2100.02,57.15,0)="VENDOR ADDRESS LINE1^F^^CXA;15^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,57.15,3)="Answer must be 3-30 characters in length."
^DD(2100.02,57.15,21,0)="^^1^1^2940713^"
^DD(2100.02,57.15,21,1,0)="System-maintained."
^DD(2100.02,57.15,"DT")="2940713"
^DD(2100.02,57.16,0)="VENDOR ADDRESS LINE2^F^^CXA;16^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,57.16,3)="Answer must be 3-30 characters in length."
^DD(2100.02,57.16,21,0)="^^1^1^2940713^"
^DD(2100.02,57.16,21,1,0)="System-maintained."
^DD(2100.02,57.16,"DT")="2940713"
^DD(2100.02,57.17,0)="CITY^F^^CXA;17^K:$L(X)>19!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,57.17,3)="Answer must be 1-19 characters in length."
^DD(2100.02,57.17,21,0)="^^1^1^2940713^"
^DD(2100.02,57.17,21,1,0)="System-maintained."
^DD(2100.02,57.17,"DT")="2940713"
^DD(2100.02,57.18,0)="STATE CODE^F^^CXA;18^K:$L(X)>2!($L(X)<2)!'(X?2U) X"
^DD(2100.02,57.18,3)="Answer must be 2 upper case characters in length."
^DD(2100.02,57.18,21,0)="^^1^1^2940713^^^"
^DD(2100.02,57.18,21,1,0)="System-maintained."
^DD(2100.02,57.18,"DT")="2940713"
^DD(2100.02,57.19,0)="ZIP CODE^F^^CXA;19^K:$L(X)>9!($L(X)<5)!'((X?5N)!(X?9N)) X"
^DD(2100.02,57.19,3)="Answer must be 5 or 9 numeric digits in length."
^DD(2100.02,57.19,21,0)="^^1^1^2940713^^"
^DD(2100.02,57.19,21,1,0)="System-maintained."
^DD(2100.02,57.19,"DT")="2940713"
^DD(2100.02,57.2,0)="TREASURY CANCEL NO^F^^CXA;20^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,57.2,3)="Answer must be 1-11 characters in length."
^DD(2100.02,57.2,21,0)="^^1^1^2940713^"
^DD(2100.02,57.2,21,1,0)="Required if confirming a cancellation. If left blank, EFT defaults to N."
^DD(2100.02,57.2,"DT")="2940713"
^DD(2100.02,57.21,0)="CONFIRM DATE YEAR^F^^CXA;21^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,57.21,3)="Answer must be 2 characters in length."
^DD(2100.02,57.21,21,0)="^^1^1^2940713^"
^DD(2100.02,57.21,21,1,0)="Required if confirming a cancellation."
^DD(2100.02,57.21,"DT")="2940216"
^DD(2100.02,57.22,0)="CONFIRM DATE MONTH^NJ2,0X^^CXA;22^K:X'?1.2N!(+X<0)!(+X>12) X"
^DD(2100.02,57.22,3)="Type a Number between 0 and 12, 0 Decimal Digits"
^DD(2100.02,57.22,21,0)="^^1^1^2940713^"
^DD(2100.02,57.22,21,1,0)="Required if confirming a cancellation."
^DD(2100.02,57.22,"DT")="2940414"
^DD(2100.02,57.23,0)="CONFIRM DATE DAY^F^^CXA;23^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,57.23,3)="Answer must be 1-2 characters in length."
^DD(2100.02,57.23,21,0)="^^1^1^2940713^"
^DD(2100.02,57.23,21,1,0)="Required if  confirming a cancellation."
^DD(2100.02,57.23,"DT")="2940216"
^DD(2100.02,57.24,0)="REASON CODE^RF^^CXA;24^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,57.24,3)="Answer must be 1 character in length."
^DD(2100.02,57.24,21,0)="^^1^1^2940713^"
^DD(2100.02,57.24,21,1,0)="Required if confirming a cancellation."
^DD(2100.02,57.24,"DT")="2940713"
^DD(2100.02,57.25,0)="CONFIRM DATE^D^^CXA;25^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2100.02,57.25,21,0)="^^3^3^2940713^^"
^DD(2100.02,57.25,21,1,0)="This field stores the CONFIRM DATE the user entered for the FMS document."
^DD(2100.02,57.25,21,2,0)="This selected date will then be used as the default response in editing"
^DD(2100.02,57.25,21,3,0)="the code sheet."
^DD(2100.02,57.25,"DT")="2940414"
^DD(2100.02,58.13,0)="VENDOR ID^F^^IFA;13^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,58.13,3)="Answer must be 1-9 characters in length."
^DD(2100.02,58.13,21,0)="^^5^5^2940713^"
^DD(2100.02,58.13,21,1,0)="Required when the vendor control option is Y on the System Control Option"
^DD(2100.02,58.13,21,2,0)="Table, optional otherwise. If entered, must be valid in the Vendor Table."
^DD(2100.02,58.13,21,3,0)="This code is the payee code of the actual recipient of an imprest fund"
^DD(2100.02,58.13,21,4,0)="distribution. The recipient may be a vendor or employee. This field may"
^DD(2100.02,58.13,21,5,0)="not be changed by a MODIFY document."
^DD(2100.02,58.13,"DT")="2940713"
^DD(2100.02,58.14,0)="VENDOR ADDRESS CODE^F^^IFA;14^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,58.14,3)="Answer must be 1-2 characters in length."
^DD(2100.02,58.14,21,0)="^^1^1^2940713^"
^DD(2100.02,58.14,21,1,0)="Refer to VENDOR ID."
^DD(2100.02,58.14,"DT")="2940713"
^DD(2100.02,58.18,0)="INC DEC IND^F^^IFA;18^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,58.18,3)="Answer must be 1 character in length."
^DD(2100.02,58.18,21,0)="^^2^2^2940713^"
^DD(2100.02,58.18,21,1,0)="Optional if this is an original entry document. Required if this is a"
^DD(2100.02,58.18,21,2,0)="modification document. Defaults to I."
^DD(2100.02,58.18,"DT")="2940713"
^DD(2100.02,58.23,0)="LINE GL ACCOUNT^F^^IFA;23^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,58.23,3)="Answer must be 1-4 characters in length."
^DD(2100.02,58.23,21,0)="^^2^2^2940713^"
^DD(2100.02,58.23,21,1,0)="Optional. Enter the code for the general ledger account to be used in"
^DD(2100.02,58.23,21,2,0)="posting this imprest fund document line."
^DD(2100.02,58.23,"DT")="2940713"
^DD(2100.02,58.26,0)="TRAVEL PURPOSES^F^^IFA;26^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,58.26,3)="Answer must be 1-5 characters in length."
^DD(2100.02,58.26,21,0)="^^1^1^2940713^"
^DD(2100.02,58.26,21,1,0)="Required when travel type is entered. Optional otherwise."
^DD(2100.02,58.26,"DT")="2940713"
^DD(2100.02,58.27,0)="MILEAGE^F^^IFA;27^K:$L(X)>8!($L(X)<1)!'(X?1.8N) X"
^DD(2100.02,58.27,3)="Answer must be 1-8 characters in length."
^DD(2100.02,58.27,21,0)="^^3^3^2940713^"
^DD(2100.02,58.27,21,1,0)="Optional. Enter the number of miles for which reimbursement is sought."
^DD(2100.02,58.27,21,2,0)="This field defaults to zero if left blank. This field may be changed by a"
^DD(2100.02,58.27,21,3,0)="MODIFY document."
^DD(2100.02,58.27,"DT")="2940217"
^DD(2100.02,58.28,0)="MILEAGE COST^NJ8,2O^^IFA;28^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999.99)!(X<0) X"
^DD(2100.02,58.28,2)="S Y(0)=Y S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2)"
^DD(2100.02,58.28,2.1)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2)"
^DD(2100.02,58.28,3)="Type a Dollar Amount between 0 and 99999.99, 2 Decimal Digits"
^DD(2100.02,58.28,21,0)="^^3^3^2940713^"
^DD(2100.02,58.28,21,1,0)="Optional. Enter the amount of mileage reimbursement, in dollars and cents."
^DD(2100.02,58.28,21,2,0)="If left blank, this amount defaults to zero. This field may be changed by"
^DD(2100.02,58.28,21,3,0)="a MODIFY document."
^DD(2100.02,58.28,"DT")="2940414"
^DD(2100.02,58.29,0)="TRAVEL ADVANCE NUMB^F^^IFA;29^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,58.29,3)="Answer must be 1-6 characters in length."
^DD(2100.02,58.29,21,0)="^^1^1^2940713^"
^DD(2100.02,58.29,21,1,0)="Required for travel advances. Blank otherwise."
^DD(2100.02,58.29,"DT")="2940713"
^DD(2100.02,58.3,0)="TRAVEL END YEAR^F^^IFA;30^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,58.3,3)="Answer must be 2 characters in length."
^DD(2100.02,58.3,21,0)="^^1^1^2940713^"
^DD(2100.02,58.3,21,1,0)="Required if Travel Order is referenced."
^DD(2100.02,58.3,"DT")="2940217"
^DD(2100.02,58.31,0)="TRAVEL END MONTH^NJ2,0X^^IFA;31^K:X'?1.2N!(+X<0)!(+X>12) X"
^DD(2100.02,58.31,3)="Type a Number between 1 and 12, 0 Decimal Digits"
^DD(2100.02,58.31,21,0)="^^1^1^2940818^"
^DD(2100.02,58.31,21,1,0)="Required if Travel Order is referenced."
^DD(2100.02,58.31,"DT")="2940414"
^DD(2100.02,58.32,0)="TRAVEL END DAY^F^^IFB;1^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2100.02,58.32,3)="Answer must be 1-2 characters in length."
^DD(2100.02,58.32,21,0)="^^1^1^2940818^"
^DD(2100.02,58.32,21,1,0)="Required if Travel Order is referenced."
^DD(2100.02,58.32,"DT")="2940217"
^DD(2100.02,58.35,0)="TRVL ADV FLAG FILLER^F^^IFC;2^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,58.35,3)="Answer must be 1 character in length."
^DD(2100.02,58.35,21,0)="^^1^1^2940713^"
^DD(2100.02,58.35,21,1,0)="This field is not on the user screen. For future use only."
^DD(2100.02,58.35,"DT")="2940713"
^DD(2100.02,60.01,0)="LINE BEG BUDGET FY^F^^TBA;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100.02,60.01,3)="Answer must be 2 characters in length."
^DD(2100.02,60.01,21,0)="^^4^4^2940713^"
^DD(2100.02,60.01,21,1,0)="Required if budget fiscal years on header is blank. If budget fiscal years"
^DD(2100.02,60.01,21,2,0)="was entered on the header of this document, then only enter the budget"
^DD(2100.02,60.01,21,3,0)="fiscal year if this line is to use budget fiscal year different from that"
^DD(2100.02,60.01,21,4,0)="in the header."
^DD(2100.02,60.01,"DT")="2940713"
^DD(2100.02,60.08,0)="LINE GTR NUMBER^F^^TBA;8^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,60.08,3)="Answer must be 1-10 characters in length."
^DD(2100.02,60.08,21,0)="^^3^3^2940713^"
^DD(2100.02,60.08,21,1,0)="Optional. Enter the number of the GTR. If this ticket was purchased"
^DD(2100.02,60.08,21,2,0)="through the GTS, you may enter contract number. If left blank, it first"
^DD(2100.02,60.08,21,3,0)="defaults to the GTR listed on the Ticket Table."
^DD(2100.02,60.08,"DT")="2940713"
^DD(2100.02,60.1,0)="TEXT TYPE^F^^TBA;10^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,60.1,3)="Answer must be 1-2 characters in length."
^DD(2100.02,60.1,21,0)="^^2^2^2940713^^"
^DD(2100.02,60.1,21,1,0)="Optional. Enter a valid text type from the Text Type Tabale. The text"
^DD(2100.02,60.1,21,2,0)="type will be used to print the associated clauses on the bill."
^DD(2100.02,60.1,"DT")="2940713"
^DD(2100.02,60.11,0)="INTEREST RATE^F^^TBA;11^K:$L(X)>7!($L(X)<4)!'(X?1.3N1"".""3N&(+X'>100)) X"
^DD(2100.02,60.11,3)="Answer must be 4-7 characters in length. Typa a number between 0 and 100. 3 Decimal Digits."
^DD(2100.02,60.11,21,0)="^^2^2^2940713^"
^DD(2100.02,60.11,21,1,0)="Optional. Enter the interest rate to apply if the receivable is subject to"
^DD(2100.02,60.11,21,2,0)="interest charges and it is not collected by the collection due date."
^DD(2100.02,60.11,"DT")="2940413"
^DD(2100.02,60.29,0)="TN TRANS CODE^F^^TBA;29^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,60.29,3)="Answer must be 1-2 characters in length."
^DD(2100.02,60.29,21,0)="^^2^2^2940713^"
^DD(2100.02,60.29,21,1,0)="Optional. Enter the Transportation invoice number and line number which"
^DD(2100.02,60.29,21,2,0)="paid this ticket. This field may not be changed by a MODIFY document."
^DD(2100.02,60.29,"DT")="2940713"
^DD(2100.02,60.3,0)="TN TRANS NUMBER^F^^TBA;30^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,60.3,3)="Answer must be 1-11 characters in length."
^DD(2100.02,60.3,21,0)="^^1^1^2940713^"
^DD(2100.02,60.3,21,1,0)="Refer to TN TRANS CODE."
^DD(2100.02,60.3,"DT")="2940713"
^DD(2100.02,60.31,0)="TN TRANS LINE^NJ3,0X^^TBA;31^K:X'?1.3N!(+X<1) X I $D(X) S DINUM=+X,X=$E(1000+X,2,4)"
^DD(2100.02,60.31,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100.02,60.31,21,0)="^^1^1^2940713^"
^DD(2100.02,60.31,21,1,0)="Refer to TN TRANS CODE."
^DD(2100.02,60.31,"DT")="2940428"
^DD(2100.02,60.32,0)="SOURCE OF OVERPAYMENT^F^^TBA;32^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,60.32,3)="Answer must be 1-4 characters in length."
^DD(2100.02,60.32,21,0)="^^2^2^2940713^"
^DD(2100.02,60.32,21,1,0)="Optional. Enter the source of discovery of overpayment that will be used"
^DD(2100.02,60.32,21,2,0)="for this TB document."
^DD(2100.02,60.32,"DT")="2940713"
^DD(2100.02,60.33,0)="OVERPAYMENT TYPE^F^^TBA;33^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,60.33,3)="Answer must be 1-3 characters in length."
^DD(2100.02,60.33,21,0)="^^2^2^2940713^"
^DD(2100.02,60.33,21,1,0)="Optional. Enter the type of overpayment that will be used for this"
^DD(2100.02,60.33,21,2,0)="TB document."
^DD(2100.02,60.33,"DT")="2940713"
^DD(2100.02,60.34,0)="ACTION OUT^F^^TBA;34^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,60.34,3)="Answer must be 1-3 characters in length."
^DD(2100.02,60.34,21,0)="^^1^1^2940713^"
^DD(2100.02,60.34,21,1,0)="Optional. Enter the action out that will be used for this TB document."
^DD(2100.02,60.34,"DT")="2940713"
^DD(2100.02,61.11,0)="VOID FLAG^F^^TNA;11^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,61.11,3)="Answer must be 1 character in length."
^DD(2100.02,61.11,21,0)="^^1^1^2940713^"
^DD(2100.02,61.11,21,1,0)="Optional. Enter Y if this ticket is void."
^DD(2100.02,61.11,"DT")="2940713"
^DD(2100.02,61.12,0)="GBAT FLAG^F^^TNA;12^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,61.12,3)="Answer must be 1 character in length."
^DD(2100.02,61.12,21,0)="^^3^3^2940713^"
^DD(2100.02,61.12,21,1,0)="Optional. Enter Y if this ticket or GTR is for excess baggage. This field"
^DD(2100.02,61.12,21,2,0)="is for reporting purpose only; there is no impact on processing. If left"
^DD(2100.02,61.12,21,3,0)="blank, it defaults to N."
^DD(2100.02,61.12,"DT")="2940713"
^DD(2100.02,61.13,0)="TRANS TYPE^RF^^TNA;13^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,61.13,3)="Answer must be 1-2 characters in length."
^DD(2100.02,61.13,21,0)="^^3^3^2940713^"
^DD(2100.02,61.13,21,1,0)="Required on original entry if Transaction Type on header is blank. Enter"
^DD(2100.02,61.13,21,2,0)="the transaction type that is appropriate for the dollar amount being"
^DD(2100.02,61.13,21,3,0)="entered for the ticket payment."
^DD(2100.02,61.13,"DT")="2940713"
^DD(2100.02,61.15,0)="TO TRANS LINE^NJ3,0O^^TNA;15^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100.02,61.15,2)="S Y(0)=Y I $D(GECSOT) S Y=$S(Y="""":"""",1:$E(""000"",$L(Y)+1,3)_Y)"
^DD(2100.02,61.15,2.1)="I $D(GECSOT) S Y=$S(Y="""":"""",1:$E(""000"",$L(Y)+1,3)_Y)"
^DD(2100.02,61.15,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100.02,61.15,21,0)="^^1^1^2950206^^^"
^DD(2100.02,61.15,21,1,0)="Optional. Required if this is an advance offset line."
^DD(2100.02,61.15,"DT")="2950206"
^DD(2100.02,61.25,0)="TRAVEL AGENT REF^F^^TNA;25^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,61.25,3)="Answer must be 1-12 characters in length."
^DD(2100.02,61.25,21,0)="^^2^2^2940714^"
^DD(2100.02,61.25,21,1,0)="Optional, for reporting purposes only. Enter the reference transaction"
^DD(2100.02,61.25,21,2,0)="number assigned by the travel agent."
^DD(2100.02,61.25,"DT")="2940713"
^DD(2100.02,62.18,0)="PARTIAL FINAL^S^P:PARTIAL;F:FINAL;^MOA;18^Q"
^DD(2100.02,62.18,21,0)="^^4^4^2940714^"
^DD(2100.02,62.18,21,1,0)="Required for MZ,SZ,TG and WO. Only used if referencing a requisition. If"
^DD(2100.02,62.18,21,2,0)="you know this is a partial order, enter P; if this is the final order to"
^DD(2100.02,62.18,21,3,0)="be placed against the requistion, enter F.  You must enter an F if this"
^DD(2100.02,62.18,21,4,0)="order line causes the ordered amount to exceed the requisitioned amount."
^DD(2100.02,62.18,"DT")="2940301"
^DD(2100.02,62.19,0)="ACCTG DESCRIPTION^F^^MOA;19^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,62.19,3)="Answer must be 3-30 characters in length."
^DD(2100.02,62.19,21,0)="^^1^1^2940714^^"
^DD(2100.02,62.19,21,1,0)="Optional, for reporting purposes only. Enter notes about this line."
^DD(2100.02,62.19,"DT")="2940714"
^DD(2100.02,62.2,0)="ASSOC TRAN CODE^F^^MOA;20^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.2,3)="Answer must be 1-2 characters in length."
^DD(2100.02,62.2,21,0)="^^3^3^2940714^"
^DD(2100.02,62.2,21,1,0)="Optional for MZ,SZ,TG and WO. If desired, enter the transaction code and"
^DD(2100.02,62.2,21,2,0)="decument number of an obligation document which is to be associated with"
^DD(2100.02,62.2,21,3,0)="this line."
^DD(2100.02,62.2,"DT")="2940714"
^DD(2100.02,62.21,0)="ASSOC DOC ID^F^^MOA;21^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.21,3)="Answer must be 1-11 characters in length."
^DD(2100.02,62.21,21,0)="^^1^1^2940714^"
^DD(2100.02,62.21,21,1,0)="Refer to ASSOC TRAN CODE."
^DD(2100.02,62.21,"DT")="2940714"
^DD(2100.02,62.23,0)="C LINE NO^NJ3,0^^MOB;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,62.23,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100.02,62.23,21,0)="^^1^1^2940714^"
^DD(2100.02,62.23,21,1,0)="System-maintained. Not on the user screen."
^DD(2100.02,62.23,"DT")="2940301"
^DD(2100.02,62.24,0)="C REF TRANS CODE^F^^MOB;3^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.24,3)="Answer must be 1-2 characters in length."
^DD(2100.02,62.24,21,0)="^^1^1^2940714^"
^DD(2100.02,62.24,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.24,"DT")="2940714"
^DD(2100.02,62.25,0)="C REF TRANS NUMBER^F^^MOB;4^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.25,3)="Answer must be 1-11 characters in length."
^DD(2100.02,62.25,21,0)="^^1^1^2940714^^^^"
^DD(2100.02,62.25,21,1,0)="System-maintained. Not on the user screen."
^DD(2100.02,62.25,"DT")="2940714"
^DD(2100.02,62.26,0)="C REF TRANS LINE^NJ3,0^^MOB;5^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,62.26,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2100.02,62.26,21,0)="^^1^1^2940714^"
^DD(2100.02,62.26,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.26,"DT")="2940301"
^DD(2100.02,62.28,0)="QUANT INC DEC IND^F^^MOB;7^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,62.28,3)="Answer must be 1 character in length."
^DD(2100.02,62.28,21,0)="^^1^1^2940714^"
^DD(2100.02,62.28,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.28,"DT")="2940714"
^DD(2100.02,62.29,0)="UNIT OF MEASURE^F^^MOB;8^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.29,3)="Answer must be 1-4 characters in length."
^DD(2100.02,62.29,21,0)="^^1^1^2940714^"
^DD(2100.02,62.29,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.29,"DT")="2940714"
^DD(2100.02,62.3,0)="COMMODITY CODE^F^^MOB;9^K:$L(X)>14!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.3,3)="Answer must be 1-14 characters in length."
^DD(2100.02,62.3,21,0)="^^1^1^2940714^"
^DD(2100.02,62.3,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.3,"DT")="2940714"
^DD(2100.02,62.31,0)="CATLOG PART NUMBER^F^^MOB;10^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.31,3)="Answer must be 1-11 characters in length."
^DD(2100.02,62.31,21,0)="^^1^1^2940714^"
^DD(2100.02,62.31,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.31,"DT")="2940714"
^DD(2100.02,62.32,0)="DESCRIPTION^F^^MOB;11^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,62.32,3)="Answer must be 3-60 characters in length."
^DD(2100.02,62.32,21,0)="^^1^1^2940714^"
^DD(2100.02,62.32,21,1,0)="System-maintained. Not on user screen (MO)."
^DD(2100.02,62.32,"DT")="2940714"
^DD(2100.02,62.33,0)="UNIT COST^NJ15,2^^MOB;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100.02,62.33,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100.02,62.33,21,0)="^^1^1^2940714^"
^DD(2100.02,62.33,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.33,"DT")="2940301"
^DD(2100.02,62.34,0)="UNIT INC DEC IND^F^^MOB;13^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,62.34,3)="Answer must be 1 character in length."
^DD(2100.02,62.34,21,0)="^^1^1^2940714^"
^DD(2100.02,62.34,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.34,"DT")="2940714"
^DD(2100.02,62.35,0)="EXTENDED COST^NJ15,2^^MOB;14^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100.02,62.35,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100.02,62.35,21,0)="^^1^1^2940714^"
^DD(2100.02,62.35,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.35,"DT")="2940301"
^DD(2100.02,62.36,0)="C PARTIAL FINAL^F^^MOB;15^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,62.36,3)="Answer must be 1 character in length."
^DD(2100.02,62.36,21,0)="^^1^1^2940714^"
^DD(2100.02,62.36,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.36,"DT")="2940714"
^DD(2100.02,62.37,0)="REVALUATION^F^^MOB;16^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,62.37,3)="Answer must be 1 character in length."
^DD(2100.02,62.37,21,0)="^^1^1^2940714^"
^DD(2100.02,62.37,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.37,"DT")="2940714"
^DD(2100.02,62.38,0)="ITEM CODE^F^^MOB;17^K:$L(X)>3!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.38,3)="Answer must be 1-3 characters in length."
^DD(2100.02,62.38,21,0)="^^1^1^2940714^"
^DD(2100.02,62.38,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.38,"DT")="2940714"
^DD(2100.02,62.39,0)="TEXT FLAG^F^^MOB;18^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,62.39,3)="Answer must be 1 character in length."
^DD(2100.02,62.39,21,0)="^^1^1^2940714^"
^DD(2100.02,62.39,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.39,"DT")="2940714"
^DD(2100.02,62.41,0)="BUILDING^F^^MOB;20^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.41,3)="Answer must be 1-4 characters in length."
^DD(2100.02,62.41,21,0)="^^1^1^2940714^"
^DD(2100.02,62.41,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.41,"DT")="2940714"
^DD(2100.02,62.42,0)="ROOM^F^^MOB;21^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.42,3)="Answer must be 1-6 characters in length."
^DD(2100.02,62.42,21,0)="^^1^1^2940714^"
^DD(2100.02,62.42,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.42,"DT")="2940714"
^DD(2100.02,62.43,0)="WAREHOUSE CODE^F^^MOB;22^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.43,3)="Answer must be 1-4 characters in length."
^DD(2100.02,62.43,21,0)="^^1^1^2940714^"
^DD(2100.02,62.43,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.43,"DT")="2940714"
^DD(2100.02,62.44,0)="DISCOUNT AMOUNT^NJ15,2^^MOB;23^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100.02,62.44,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100.02,62.44,21,0)="^^1^1^2940714^"
^DD(2100.02,62.44,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.44,"DT")="2940301"
^DD(2100.02,62.45,0)="DISCOUNT PERCENT^F^^MOB;24^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,62.45,3)="Answer must be 1-6 characters in length."
^DD(2100.02,62.45,21,0)="^^1^1^2940714^"
^DD(2100.02,62.45,21,1,0)="System-maintained. Not on user screen."
^DD(2100.02,62.45,"DT")="2940714"
^DD(2100.02,63.01,0)="QUANTITY ORDERED^NJ9,0^^RCA;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,63.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2100.02,63.01,21,0)="^^2^2^2940714^"
^DD(2100.02,63.01,21,1,0)="System-maintained for RZ document. Shows quantity that was ordered less"
^DD(2100.02,63.01,21,2,0)="quantity received prior to this receiver."
^DD(2100.02,63.01,"DT")="2940526"
^DD(2100.02,63.02,0)="DESCRIPTION (FMS-RC)^F^^RCA;2^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,63.02,3)="Answer must be 3-30 characters in length."
^DD(2100.02,63.02,21,0)="^^1^1^2940714^"
^DD(2100.02,63.02,21,1,0)="Optional for RZ. Enter any remarks to describe the shipment."
^DD(2100.02,63.02,"DT")="2940526"
^DD(2100.02,63.03,0)="QUANTITY RECEIVED^NJ9,0^^RCA;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,63.03,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2100.02,63.03,21,0)="^^2^2^2940714^"
^DD(2100.02,63.03,21,1,0)="Required for RZ. Enter the number of goods received for this commodity"
^DD(2100.02,63.03,21,2,0)="line."
^DD(2100.02,63.03,"DT")="2940527"
^DD(2100.02,63.04,0)="QUANTITY ACCEPTED^NJ9,0^^RCA;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,63.04,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2100.02,63.04,21,0)="^^3^3^2940714^"
^DD(2100.02,63.04,21,1,0)="Optional for RZ document. Enter the number of goods received and accepted"
^DD(2100.02,63.04,21,2,0)="only if not all units received are being accepted. If left blank, all"
^DD(2100.02,63.04,21,3,0)="units received are marked as accepted."
^DD(2100.02,63.04,"DT")="2940527"
^DD(2100.02,63.05,0)="REC INC DEC IND^F^^RCA;5^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,63.05,3)="Answer must be 1 character in length."
^DD(2100.02,63.05,21,0)="^^3^3^2940714^"
^DD(2100.02,63.05,21,1,0)="Required on RZ documents. Otherwise blank. I to increase quantity"
^DD(2100.02,63.05,21,2,0)="received. D to decrease quantity received. Defaults to I on original entry"
^DD(2100.02,63.05,21,3,0)="document."
^DD(2100.02,63.05,"DT")="2940527"
^DD(2100.02,63.06,0)="ACC INC DEC IND^F^^RCA;6^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,63.06,3)="Answer must be 1 character in length."
^DD(2100.02,63.06,21,0)="^^2^2^2940714^"
^DD(2100.02,63.06,21,1,0)="Required on RZ documents. Otherwise blank. I to increase quantity"
^DD(2100.02,63.06,21,2,0)="accepted; D to decrease quantity accepted."
^DD(2100.02,63.06,"DT")="2940714"
^DD(2100.02,63.07,0)="CONDITION-S^F^^RCA;7^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,63.07,3)="Answer must be 1-2 characters in length."
^DD(2100.02,63.07,21,0)="^^1^1^2940714^"
^DD(2100.02,63.07,21,1,0)="Optional on RZ documents. Otherwise blank."
^DD(2100.02,63.07,"DT")="2940527"
^DD(2100.02,63.08,0)="C PARTIAL FINAL FLAG^F^^RCA;8^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,63.08,3)="Answer must be 1 character in length. 'P' for partial receipt. 'F' for final receipt."
^DD(2100.02,63.08,21,0)="^^1^1^2940714^"
^DD(2100.02,63.08,21,1,0)="Required on RZ documents. P for partial receipt; F for final receipt."
^DD(2100.02,63.08,"DT")="2940527"
^DD(2100.02,63.09,0)="LOC SEQUENCE^F^^RCA;9^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,63.09,3)="Answer must be 1 character in length."
^DD(2100.02,63.09,21,0)="^^3^3^2940714^"
^DD(2100.02,63.09,21,1,0)="Optional on RZ documents. Otherwise blank. Goods returned to: 1 primary"
^DD(2100.02,63.09,21,2,0)="location: 2 alternat location one: 3 alternate location two. If blank,"
^DD(2100.02,63.09,21,3,0)="inferred from Loc Number."
^DD(2100.02,63.09,"DT")="2940527"
^DD(2100.02,63.1,0)="LOC NUMBER^F^^RCA;10^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,63.1,3)="Answer must be 1-9 characters in length."
^DD(2100.02,63.1,21,0)="^^3^3^2940714^"
^DD(2100.02,63.1,21,1,0)="Optional on RZ document. Otherwise blank. If blank and Loc Seq is not"
^DD(2100.02,63.1,21,2,0)="blank, it will be inferred from Loc Seq. If blank and Loc Seq is blank, it"
^DD(2100.02,63.1,21,3,0)="will default to last location for stock item."
^DD(2100.02,63.1,"DT")="2940527"
^DD(2100.02,63.11,0)="SHELF LIFE CODE^F^^RCA;11^K:$L(X)>1!($L(X)<1)!'(X'?1P) X"
^DD(2100.02,63.11,3)="Answer must be 1 character in length."
^DD(2100.02,63.11,21,0)="^^1^1^2940714^"
^DD(2100.02,63.11,21,1,0)="System-maintained."
^DD(2100.02,63.11,"DT")="2940527"
^DD(2100.02,63.12,0)="SL EXPIRATION DATE^NJ4,0^^RCA;12^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,63.12,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2100.02,63.12,21,0)="^^1^1^2940714^"
^DD(2100.02,63.12,21,1,0)="Optional on RZ documents. Otherwise blank. Enter in format MMYY."
^DD(2100.02,63.12,"DT")="2940527"
^DD(2100.02,63.13,0)="CATALOG PART NUMBER^F^^RCA;13^K:$L(X)>11!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,63.13,3)="Answer must be 1-11 characters in length."
^DD(2100.02,63.13,21,0)="^^1^1^2940714^"
^DD(2100.02,63.13,21,1,0)="Optional on RZ documents. Otherwise blank."
^DD(2100.02,63.13,"DT")="2940527"
^DD(2100.02,63.14,0)="ACCTG TRAN TYPE (RC)^F^^RCA;14^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(2100.02,63.14,3)="Answer must be 2 characters in length."
^DD(2100.02,63.14,21,0)="^^1^1^2940715^"
^DD(2100.02,63.14,21,1,0)="Optional on RZ document. Blank otherwise."
^DD(2100.02,63.14,"DT")="2940715"
^DD(2100.02,66.01,0)="BUY-XORGANIZATION^F^^IVA;1^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.01,3)="Answer must be 1-7 characters in length."
^DD(2100.02,66.01,21,0)="^^1^1^2940714^"
^DD(2100.02,66.01,21,1,0)="System-maintained. Derived from CAN code."
^DD(2100.02,66.01,"DT")="2940714"
^DD(2100.02,66.02,0)="BUY SUB ORG^F^^IVA;2^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.02,3)="Answer must be 1-2 characters in length."
^DD(2100.02,66.02,21,0)="^^4^4^2940714^"
^DD(2100.02,66.02,21,1,0)="Optional, used for reporting purposes only. Record the code of the"
^DD(2100.02,66.02,21,2,0)="satellite station appropriate for the buyer for this line."
^DD(2100.02,66.02,21,3,0)="If this is a modification document, the code may be inferred from the"
^DD(2100.02,66.02,21,4,0)="Internal Voucher Line Table."
^DD(2100.02,66.02,"DT")="2940714"
^DD(2100.02,66.03,0)="BUY COST ORGANIZATION^F^^IVA;3^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.03,3)="Answer must be 1-7 characters in length."
^DD(2100.02,66.03,21,0)="^^1^1^2940714^"
^DD(2100.02,66.03,21,1,0)="System-maintained. Derived from CAN code."
^DD(2100.02,66.03,"DT")="2940714"
^DD(2100.02,66.04,0)="BUY COST SUB ORG^F^^IVA;4^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.04,3)="Answer must be 1-2 characters in length."
^DD(2100.02,66.04,21,0)="^^3^3^2940714^"
^DD(2100.02,66.04,21,1,0)="Optional, used for reporting purposes only. Record the code of the sub"
^DD(2100.02,66.04,21,2,0)="cost center appropriate for the buyer for this line. The code must be"
^DD(2100.02,66.04,21,3,0)="valid in the Satellite Station/Sub Cost Center Table."
^DD(2100.02,66.04,"DT")="2940714"
^DD(2100.02,66.05,0)="BUY XPROGRAM^F^^IVA;5^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.05,3)="Answer must be 1-9 characters in length."
^DD(2100.02,66.05,21,0)="^^13^13^2940714^"
^DD(2100.02,66.05,21,1,0)="Optional, when agreement number is entered on the header and the SOPT Job"
^DD(2100.02,66.05,21,2,0)="Cost option is Y. If entered, the FCP/Project must match the FCP/Project"
^DD(2100.02,66.05,21,3,0)="on the corresponding Customer Accounting Distribution Table (CADT) entry."
^DD(2100.02,66.05,21,4,0)="If this field is specified as required in the Project Options Table"
^DD(2100.02,66.05,21,5,0)="(PRJO), then entry is required; if this field is not specified as required"
^DD(2100.02,66.05,21,6,0)="in PRJO and, if left blank, will default from CADT"
^DD(2100.02,66.05,21,7,0)=" "
^DD(2100.02,66.05,21,8,0)="In all other cases,entry is optional. Enter the code of the FCP/Project"
^DD(2100.02,66.05,21,9,0)="appropriate for the seller for this line. The FCP/Project, in conjunction"
^DD(2100.02,66.05,21,10,0)="with the station code, must be valid in the FCP/Project Table(PGMT)."
^DD(2100.02,66.05,21,11,0)=" "
^DD(2100.02,66.05,21,12,0)="If this is a modification document, the code may be inferred from the"
^DD(2100.02,66.05,21,13,0)="Internal Voucher Line Table."
^DD(2100.02,66.05,"DT")="2940714"
^DD(2100.02,66.06,0)="BUY BUDGET OBJECT CODE^F^^IVA;6^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.06,3)="Answer must be 1-4 characters in length."
^DD(2100.02,66.06,21,0)="^^11^11^2940714^"
^DD(2100.02,66.06,21,1,0)="Optional, when agreement number is entered on the header and the SOPT Job"
^DD(2100.02,66.06,21,2,0)="Cost option is Y. If entered, the budget object code must match the budget"
^DD(2100.02,66.06,21,3,0)="object code  on the corrresponding Customer Accounting Distribution Table"
^DD(2100.02,66.06,21,4,0)="(CADT) entry and, if left blank, will be defaulted from CADT."
^DD(2100.02,66.06,21,5,0)=" "
^DD(2100.02,66.06,21,6,0)="In all other cases, entry is optional. Enter the budget object code tht"
^DD(2100.02,66.06,21,7,0)="best describes the item(s) for this seller for this line. The code used"
^DD(2100.02,66.06,21,8,0)="must be valid in the Budget Object/Limitation Table (BOCT)."
^DD(2100.02,66.06,21,9,0)=" "
^DD(2100.02,66.06,21,10,0)="If this is a modification document, the code may be inferred from the"
^DD(2100.02,66.06,21,11,0)="Internal Voucher Line Table."
^DD(2100.02,66.06,"DT")="2940714"
^DD(2100.02,66.07,0)="BUY SUB OBJECT^F^^IVA;7^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.07,3)="Answer must be 1-2 characters in length."
^DD(2100.02,66.07,21,0)="^^2^2^2940714^"
^DD(2100.02,66.07,21,1,0)="Required on original entry if the BOC for this transaction has a Y in the"
^DD(2100.02,66.07,21,2,0)="Sub-BOC Option field. Otherwise, optional."
^DD(2100.02,66.07,"DT")="2940714"
^DD(2100.02,66.08,0)="BUY REPORTING CATEGORY^F^^IVA;8^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.08,3)="Answer must be 1-4 characters in length."
^DD(2100.02,66.08,21,0)="^^2^2^2940714^"
^DD(2100.02,66.08,21,1,0)="Optional, when agreement number is entered on the header and the SOPT Job"
^DD(2100.02,66.08,21,2,0)="Cost option is Y."
^DD(2100.02,66.08,"DT")="2940714"
^DD(2100.02,66.09,0)="BUY JOB NUMBER^F^^IVA;9^K:$L(X)>8!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.09,3)="Answer must be 1-8 characters in length."
^DD(2100.02,66.09,21,0)="^^1^1^2940714^"
^DD(2100.02,66.09,21,1,0)="Optional."
^DD(2100.02,66.09,"DT")="2940714"
^DD(2100.02,66.1,0)="INDIRECT COST TRANSFER FLAG^S^E:TRANSFER OF INDIRECT COSTS SUPPORTED BY EXPENDITURE BURDEN;O:TRANSFER OF COSTS SUPPORTED BY OBLIGATION BURDEN;N:NONE;^IVA;10^Q"
^DD(2100.02,66.1,21,0)="^^3^3^2940714^"
^DD(2100.02,66.1,21,1,0)="Optional. E for transfer of indirect costs supported by expenditure"
^DD(2100.02,66.1,21,2,0)="burden; O for transfer of costs supported by obligation burden; defaults"
^DD(2100.02,66.1,21,3,0)="to N."
^DD(2100.02,66.1,"DT")="2940405"
^DD(2100.02,66.11,0)="BUY CLOSED BUDGET FY^F^^IVA;11^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,66.11,3)="Answer must be 2 characters in length."
^DD(2100.02,66.11,21,0)="^^3^3^2940714^"
^DD(2100.02,66.11,21,1,0)="Enter the Budget Fiscal Year(s) of the applicable closed fund for which"
^DD(2100.02,66.11,21,2,0)="this document was originally chargeable. This field may not be changed by"
^DD(2100.02,66.11,21,3,0)="a MODIFY document."
^DD(2100.02,66.11,"DT")="2940405"
^DD(2100.02,66.12,0)="BUY CLOSED END BUDGET FY^F^^IVA;12^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,66.12,3)="Answer must be 2 characters in length."
^DD(2100.02,66.12,21,0)="^^3^3^2940714^"
^DD(2100.02,66.12,21,1,0)="Enter the End Budget Fiscal Year(s) of the applicable closed fund for"
^DD(2100.02,66.12,21,2,0)="which this document was originally chargeable. This field may not be"
^DD(2100.02,66.12,21,3,0)="changed by a MODIFY document."
^DD(2100.02,66.12,"DT")="2940405"
^DD(2100.02,66.13,0)="BUY CLOSED FUND^F^^IVA;13^K:$L(X)>6!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,66.13,3)="Answer must be 1-6 characters in length."
^DD(2100.02,66.13,21,0)="^^2^2^2940714^"
^DD(2100.02,66.13,21,1,0)="Enter the fund of the applicable closed fund for which this document was"
^DD(2100.02,66.13,21,2,0)="originally chargeable."
^DD(2100.02,66.13,"DT")="2940714"
^DD(2100.02,67,0)="FMSB ACT^RS^A:ADD NEW SUBALLOWANCE;C:CHANGE FIELDS IN ACTIVE SUBALLOWANCES;D:DEACTIVATE A SUBALLOWANCE LINE;R:REACTIVATE A DEACTIVATED SUBALLOWANCE LINE;^FMSB;19^Q"
^DD(2100.02,67,21,0)="^^3^3^2940819^"
^DD(2100.02,67,21,1,0)="This field stores FMS action codes. Enter 'A' to add new suballowance."
^DD(2100.02,67,21,2,0)="'C' to change field in active suballowance. 'D' to deactivate a"
^DD(2100.02,67,21,3,0)="suballowance line. 'D' to reactivate a deactivated suballowance line."
^DD(2100.02,67,"DT")="2940520"
^DD(2100.02,67.01,0)="OUTSTAND OBLIG^NJ15,2O^^PVB;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999.99)!(X<0) X"
^DD(2100.02,67.01,2)="S Y(0)=Y I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,67.01,2.1)="I $D(GECSOT) S Y=$J(Y,0,2) I Y=""0.00"" S Y="""""
^DD(2100.02,67.01,3)="Type a Dollar Amount between 0 and 999999999999.99, 2 Decimal Digits"
^DD(2100.02,67.01,21,0)="^^1^1^2940714^"
^DD(2100.02,67.01,21,1,0)="System-maintained."
^DD(2100.02,67.01,"DT")="2940624"
^DD(2100.02,67.02,0)="INVOICE DLN^NJ11,0^^PVB;2^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100.02,67.02,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(2100.02,67.02,21,0)="^^1^1^2940714^"
^DD(2100.02,67.02,21,1,0)="Optional for PZ, CT and CV. Required if Dln Required Flag on TCAT is Y."
^DD(2100.02,67.02,"DT")="2940523"
^DD(2100.02,67.03,0)="INVOICE DLN SEQ^NJ3,0^^PVB;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100.02,67.03,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100.02,67.03,21,0)="^^1^1^2940714^"
^DD(2100.02,67.03,21,1,0)="Optional for PZ and CV."
^DD(2100.02,67.03,"DT")="2940523"
^DD(2100.02,67.04,0)="RECEIVER DLN^NJ11,0^^PVB;4^K:+X'=X!(X>99999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100.02,67.04,3)="Type a Number between 1 and 99999999999, 0 Decimal Digits"
^DD(2100.02,67.04,21,0)="^^1^1^2940714^"
^DD(2100.02,67.04,21,1,0)="Optional for PZ and CV."
^DD(2100.02,67.04,"DT")="2940523"
^DD(2100.02,67.05,0)="RECEIVER DLN SEQ^NJ3,0^^PVB;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100.02,67.05,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2100.02,67.05,21,0)="^^1^1^2940714^"
^DD(2100.02,67.05,21,1,0)="Optional for PZ and CV."
^DD(2100.02,67.05,"DT")="2940523"
^DD(2100.02,67.06,0)="REF VEND ID^F^^PVB;6^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.06,3)="Answer must be 1-9 characters in length."
^DD(2100.02,67.06,21,0)="^^1^1^2940714^"
^DD(2100.02,67.06,21,1,0)="System-maintained."
^DD(2100.02,67.06,"DT")="2940714"
^DD(2100.02,67.07,0)="REF VEND ADDRESS COD^F^^PVB;7^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.07,3)="Answer must be 1-2 characters in length."
^DD(2100.02,67.07,21,0)="^^1^1^2940714^"
^DD(2100.02,67.07,21,1,0)="System-maintained."
^DD(2100.02,67.07,"DT")="2940714"
^DD(2100.02,67.08,0)="REF VEND NAME^F^^PVB;8^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,67.08,3)="Answer must be 3-30 characters in length."
^DD(2100.02,67.08,21,0)="^^1^1^2940714^"
^DD(2100.02,67.08,21,1,0)="System-maintained."
^DD(2100.02,67.08,"DT")="2940714"
^DD(2100.02,67.1,0)="FMSB A/O^F^^FMSB;2^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.1,3)="Answer must be 1-4 characters in length."
^DD(2100.02,67.1,21,0)="^^10^10^2940715^"
^DD(2100.02,67.1,21,1,0)="Required if the Suballowance Administration Option in the Suballowance"
^DD(2100.02,67.1,21,2,0)="Options Table (SAOP) is Y for the fund. If the Budget Options Fund Table"
^DD(2100.02,67.1,21,3,0)="(AFND) is not set up to infer administration/staff office, this field may"
^DD(2100.02,67.1,21,4,0)="be left blank and inferred from the station if it is coded. If left blank"
^DD(2100.02,67.1,21,5,0)="and the Budget Option Table (AOPT)is being used to infer"
^DD(2100.02,67.1,21,6,0)="administration/staff office, the A/O office is inferred from the Budget"
^DD(2100.02,67.1,21,7,0)="Option Table (AOPT). Must not be coded if the option is N. The A/O code"
^DD(2100.02,67.1,21,8,0)="must be valid in the A/O Office Table (DVSN) for the budget fiscal year."
^DD(2100.02,67.1,21,9,0)="If you are changing existing lines, this code must match the previously"
^DD(2100.02,67.1,21,10,0)="assigned A/O code."
^DD(2100.02,67.1,"DT")="2940715"
^DD(2100.02,67.101,0)="FMSB A/O 2^F^^FMSB1;2^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.101,3)="Answer must be 1-4 characters in length."
^DD(2100.02,67.101,21,0)="^^16^16^2940819^"
^DD(2100.02,67.101,21,1,0)="Required if this administration/staff office does not allow by"
^DD(2100.02,67.101,21,2,0)="station(i.e., the Allowance Station Option in the Administration/Staff"
^DD(2100.02,67.101,21,3,0)="Office Table (DVSN) is N) and the Budget Option Table (AOPT) is not used"
^DD(2100.02,67.101,21,4,0)="to infer the administration/staff office; or if the Budget Option Tabale"
^DD(2100.02,67.101,21,5,0)="(AOPT) is used to infer the administration/staff office and all of the"
^DD(2100.02,67.101,21,6,0)="element required to access the administration/staff office on the Budget"
^DD(2100.02,67.101,21,7,0)="Option Table (AOPT) are not specified as allowance dimensions on the"
^DD(2100.02,67.101,21,8,0)="Administration/Staff Office Table(DVSN); optional otherwise. The code must"
^DD(2100.02,67.101,21,9,0)="be valid in the Administration/Staff Office Table(DVSN) for the budget"
^DD(2100.02,67.101,21,10,0)="fiscal year. If left blank and the Budget Option Table(AOPT) is not being"
^DD(2100.02,67.101,21,11,0)="used to infer administration/staff office, the administration/staff if"
^DD(2100.02,67.101,21,12,0)="inferred from the station code if it is coded. If left blank and the"
^DD(2100.02,67.101,21,13,0)="Budget Options Table (AOPT) is being used to infer administration/staff"
^DD(2100.02,67.101,21,14,0)="office, the administration/staff office is inferred from the Budget Option"
^DD(2100.02,67.101,21,15,0)="Table (AOPT). If you are changing existing lines, this code must match the"
^DD(2100.02,67.101,21,16,0)="previously assigned administration/staff office code."
^DD(2100.02,67.101,"DT")="2940819"
^DD(2100.02,67.102,0)="FMSB STATION 2^RF^^FMSB1;1^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.102,3)="Answer must be 1-7 characters in length."
^DD(2100.02,67.102,21,0)="^^5^5^2940819^"
^DD(2100.02,67.102,21,1,0)="Required if the Allowance Station Option in the Administration/Staff"
^DD(2100.02,67.102,21,2,0)="Office Table (DVSN) is Y for this administration/staff office. Must be"
^DD(2100.02,67.102,21,3,0)="coded if the option is N. The code must be valid in the Station/Cost"
^DD(2100.02,67.102,21,4,0)="Center Table (ORGN) for the budget fiscal year. If the program code is"
^DD(2100.02,67.102,21,5,0)="entered, then the station code must also be entered."
^DD(2100.02,67.102,"DT")="2940819"
^DD(2100.02,67.11,0)="FMSB 1ST QTR I/D^S^I:INCREASE;D:DECREASE;^FMSB;10^Q"
^DD(2100.02,67.11,3)="Enter I for Increase, D for decrease."
^DD(2100.02,67.11,21,0)="^^2^2^2940715^"
^DD(2100.02,67.11,21,1,0)="Optional if the Suballowance Increase/Decrease Amount field is coded."
^DD(2100.02,67.11,21,2,0)="Defaults to I. Blank otherwise."
^DD(2100.02,67.11,"DT")="2940520"
^DD(2100.02,67.1101,0)="FMSB 2ND QTR I/D^S^I:INCREASE;D:DECREASE;^FMSB;14^Q"
^DD(2100.02,67.1101,3)="Enter I for Increase, D for decrease."
^DD(2100.02,67.1101,21,0)="^^2^2^2940715^"
^DD(2100.02,67.1101,21,1,0)="Optional if the Suballowance Increase/Decrease Amount field is coded."
^DD(2100.02,67.1101,21,2,0)="Defaults to I. Blank otherwise."
^DD(2100.02,67.1101,"DT")="2940520"
^DD(2100.02,67.1102,0)="FMSB 3RD QTR I/D^S^I:INCREASE;D:DECREASE;^FMSB;15^Q"
^DD(2100.02,67.1102,3)="Enter I for Increase, D for Decrease."
^DD(2100.02,67.1102,21,0)="^^2^2^2940715^"
^DD(2100.02,67.1102,21,1,0)="Optional if the Suballowance Increase/Decrease Amount field is coded."
^DD(2100.02,67.1102,21,2,0)="Defaults to I. Blank otherwise."
^DD(2100.02,67.1102,"DT")="2940520"
^DD(2100.02,67.1103,0)="FMSB 4TH QTR^S^I:INCREASE;D:DECREASE;^FMSB;16^Q"
^DD(2100.02,67.1103,3)="Enter I for Increase, D for Decrease."
^DD(2100.02,67.1103,21,0)="^^2^2^2940715^"
^DD(2100.02,67.1103,21,1,0)="Optional if the Suballowance Increase/Decrease Amount field is coded."
^DD(2100.02,67.1103,21,2,0)="Defaults to I. Blank otherwise."
^DD(2100.02,67.1103,"DT")="2940520"
^DD(2100.02,67.12,0)="FMSB DESCRIPTION^F^^FMSB;17^K:$L(X)>30!($L(X)<3)!'(X'?.E1.""~"".E) X"
^DD(2100.02,67.12,3)="Answer must be 3-30 characters in length."
^DD(2100.02,67.12,21,0)="^^4^4^2940715^"
^DD(2100.02,67.12,21,1,0)="Optional. Enter the alphanumeric budget line description. If left blank"
^DD(2100.02,67.12,21,2,0)="and the FCP/PRJ exists at the suballowance level, the FCP/PRJ Name will be"
^DD(2100.02,67.12,21,3,0)="inferred from the FCP/Project Table (PGMT). If the FCP/Prj does not exist"
^DD(2100.02,67.12,21,4,0)="at the suballowance level, the limitation name will be inferred."
^DD(2100.02,67.12,"DT")="2940715"
^DD(2100.02,67.13,0)="FMSB FTES/QTY^NJ7,0^^FMSB;18^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.02,67.13,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2100.02,67.13,21,0)="^^3^3^2940715^"
^DD(2100.02,67.13,21,1,0)="Optional. Enter the number of Full-Time Equivalent (FTE) positions or"
^DD(2100.02,67.13,21,2,0)="quantity of items budgeted in this line. You can enter up to 7 digits"
^DD(2100.02,67.13,21,3,0)="(whole units)."
^DD(2100.02,67.13,"DT")="2940715"
^DD(2100.02,67.14,0)="FMSB PROGRAM^F^^FMSB;20^K:$L(X)>8!($L(X)<2)!'(X'?1P.E) X"
^DD(2100.02,67.14,3)="Answer must be 2-8 characters in length."
^DD(2100.02,67.14,21,0)="^^10^10^2940819^"
^DD(2100.02,67.14,21,1,0)="Required if the Allowance Program Option in the Administration/Staff"
^DD(2100.02,67.14,21,2,0)="Office Table(DVSN) is Y for this administration/staff office. Must not be"
^DD(2100.02,67.14,21,3,0)="coded if the option is N. The code must be valid in the table specified by"
^DD(2100.02,67.14,21,4,0)="the Allowance Program Definition (on the Fund Table (FUND)) for the budget"
^DD(2100.02,67.14,21,5,0)="fiscal year. For example, if the program definition is the higher level"
^DD(2100.02,67.14,21,6,0)="program classification PCLS, the code must be a valid program class in the"
^DD(2100.02,67.14,21,7,0)="Program Class Table (PCLS). If the program definition is PGMT, the program"
^DD(2100.02,67.14,21,8,0)="code, in conjunction with the station code, must exist in the FCP/Project"
^DD(2100.02,67.14,21,9,0)="Table (PGMT). If you are changing existing lines, this code must match the"
^DD(2100.02,67.14,21,10,0)="previously assigned program (if one was previously coded)."
^DD(2100.02,67.14,"DT")="2940819"
^DD(2100.02,67.141,0)="FMSB PROGRAM 2^F^^FMSB1;4^K:$L(X)>8!($L(X)<2)!'(X'?1P.E) X"
^DD(2100.02,67.141,3)="Answer must be 2-8 characters in length."
^DD(2100.02,67.141,21,0)="^^11^11^2940819^"
^DD(2100.02,67.141,21,1,0)="Required if the Allowance Program Option in the Administration /Staff"
^DD(2100.02,67.141,21,2,0)="Office Table (DVSN) is Y for this administration/staff office. Must not be"
^DD(2100.02,67.141,21,3,0)="coded if the option is N. The code must be valid in the table specified by"
^DD(2100.02,67.141,21,4,0)="the Allowance Program Definition (on the Fund Table (FUND)) for the budget"
^DD(2100.02,67.141,21,5,0)="fiscal year. For example, if the program definition is the higher level"
^DD(2100.02,67.141,21,6,0)="program classification PCLS, the code must be valid program class in the"
^DD(2100.02,67.141,21,7,0)="Program Class Table (PCLS).  If the program definition is PGMT, the"
^DD(2100.02,67.141,21,8,0)="program code, in conjunction with the station code, must exist in the"
^DD(2100.02,67.141,21,9,0)="FCP/Project Table(PGMT). If you are changing existing lines, this code"
^DD(2100.02,67.141,21,10,0)="must match the previously assigned program code (if one was previously"
^DD(2100.02,67.141,21,11,0)="coded)."
^DD(2100.02,67.141,"DT")="2940819"
^DD(2100.02,67.15,0)="FMSB QUARTER^NJ1,0^^FMSB;21^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100.02,67.15,1,0)="^.1"
^DD(2100.02,67.15,1,1,0)="^^TRIGGER^2100.02^67.1501"
^DD(2100.02,67.15,1,1,1)="X ^DD(2100.02,67.15,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^GECS(2100,D0,""FMSLIN"",D1,""FMSB1"")):^(""FMSB1""),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(2100.02,67.15,1,1,1.4)"
^DD(2100.02,67.15,1,1,1.3)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(0)=X S Y(1)=$S($D(^GECS(2100,D0,""FMSLIN"",D1,""FMSB1"")):^(""FMSB1""),1:"""") S X=$P(Y(1),U,3)="""""
^DD(2100.02,67.15,1,1,1.4)="S DIH=$S($D(^GECS(2100,DIV(0),""FMSLIN"",DIV(1),""FMSB1"")):^(""FMSB1""),1:""""),DIV=X S $P(^(""FMSB1""),U,3)=DIV,DIH=2100.02,DIG=67.1501 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(2100.02,67.15,1,1,2)="Q"
^DD(2100.02,67.15,1,1,"CREATE CONDITION")="FMSB QUARTER 2="""""
^DD(2100.02,67.15,1,1,"CREATE VALUE")="FMSB QUARTER"
^DD(2100.02,67.15,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2100.02,67.15,1,1,"DT")="2940722"
^DD(2100.02,67.15,1,1,"FIELD")="FMSB QUARTER 2"
^DD(2100.02,67.15,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(2100.02,67.15,21,0)="^^4^4^2940819^"
^DD(2100.02,67.15,21,1,0)="Required. Enter the quarter from which you are transferring funds. The"
^DD(2100.02,67.15,21,2,0)="appropriate allowance amount (posted, approved, or pending, as specified"
^DD(2100.02,67.15,21,3,0)="by the Amount Type indicator), is decreased by the amount entered on the"
^DD(2100.02,67.15,21,4,0)="line."
^DD(2100.02,67.15,"DT")="2940722"
^DD(2100.02,67.1501,0)="FMSB QUARTER 2^NJ1,0^^FMSB1;3^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2100.02,67.1501,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(2100.02,67.1501,5,1,0)="2100.02^67.15^1"
^DD(2100.02,67.1501,21,0)="^^7^7^2940819^"
^DD(2100.02,67.1501,21,1,0)="Required. Enter the quarter to which you are transferring funds. The"
^DD(2100.02,67.1501,21,2,0)="amount field (posted, approved, or pending) in the TO record corresponding"
^DD(2100.02,67.1501,21,3,0)="to the amount field in the FROM record is updated.  If posted or approved"
^DD(2100.02,67.1501,21,4,0)="funds in a given quarter are moved into a record that has not been posted"
^DD(2100.02,67.1501,21,5,0)="or approved through that quarter, the posted or approved indicator (as"
^DD(2100.02,67.1501,21,6,0)="appropriate) is changed to a value of T (transfer) on the Allowance Table"
^DD(2100.02,67.1501,21,7,0)="(ALLW)."
^DD(2100.02,67.1501,"DT")="2940722"
^DD(2100.02,67.16,0)="FMSB TRANSFER IND^S^Y:YEAR TO DATE FUND;A:APPROVED FUND;^FMSB;22^Q"
^DD(2100.02,67.16,21,0)="^^4^4^2940819^"
^DD(2100.02,67.16,21,1,0)="Required. Enter either Y to indicate the transfer of YTD Posted funds, A"
^DD(2100.02,67.16,21,2,0)="to indicate the transfer of approved funds, or P to indicate the transfer"
^DD(2100.02,67.16,21,3,0)="of pending funds. When transferring posted funds, the equivalent amount of"
^DD(2100.02,67.16,21,4,0)="approved funds are automatically transferred."
^DD(2100.02,67.16,"DT")="2940722"
^DD(2100.02,67.2,0)="FMSB STATION^RF^^FMSB;1^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.2,3)="Answer must be 1-7 characters in length."
^DD(2100.02,67.2,21,0)="^^7^7^2940725^^"
^DD(2100.02,67.2,21,1,0)="Required if the Suballowance Station Option in the Suballowance Option"
^DD(2100.02,67.2,21,2,0)="Table (SAOP) is Y for the fund. Must not be coded if the option if N."
^DD(2100.02,67.2,21,3,0)="The code must be valid in the Station/Cost Center Table (ORGN) for the"
^DD(2100.02,67.2,21,4,0)="budget fiscal year and the code must be the Allowance Station specified in"
^DD(2100.02,67.2,21,5,0)="the table. If the FCP/PRJ code is entered, then the station code must also"
^DD(2100.02,67.2,21,6,0)="be entered. If you are changing existing lines, this code must match the"
^DD(2100.02,67.2,21,7,0)="previously assigned station code (if one was previously entered)."
^DD(2100.02,67.2,"DT")="2940725"
^DD(2100.02,67.3,0)="FMSB REF STN^F^^FMSB;3^K:$L(X)>7!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.3,3)="Answer must be 1-7 characters in length."
^DD(2100.02,67.3,21,0)="^^2^2^2940715^"
^DD(2100.02,67.3,21,1,0)="Required if the Suballowance Station Option in the Suballowance Options"
^DD(2100.02,67.3,21,2,0)="Table (SAOP) is Y for the referenced allowance line."
^DD(2100.02,67.3,"DT")="2940715"
^DD(2100.02,67.4,0)="FMSB FCP/PRJ^F^^FMSB;4^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.4,3)="Answer must be 1-9 characters in length."
^DD(2100.02,67.4,21,0)="^^6^6^2940715^"
^DD(2100.02,67.4,21,1,0)="Required if the Suballowance FCP/PRJ Option in the Suballowance Option"
^DD(2100.02,67.4,21,2,0)="Table (SAOP) is Y for the fund. Must not be entered if the option is N."
^DD(2100.02,67.4,21,3,0)="The FCP/PRJ code, in conjunction with the station code, must be valid in"
^DD(2100.02,67.4,21,4,0)="the FCP/Project Table (PGMT) for the budget fiscal year. If you are"
^DD(2100.02,67.4,21,5,0)="changing existing lines, this code must match the previously assigned"
^DD(2100.02,67.4,21,6,0)="program code (if one was previously coded)."
^DD(2100.02,67.4,"DT")="2940715"
^DD(2100.02,67.401,0)="FMSB FCP/PRJ 2^F^^FMSB1;6^K:$L(X)>9!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.401,3)="Answer must be 1-9 characters in length."
^DD(2100.02,67.401,21,0)="^^5^5^2940819^^"
^DD(2100.02,67.401,21,1,0)="Required if the Suballowance FCP/Project Option for this allotment is Y."
^DD(2100.02,67.401,21,2,0)="Must not be coded if the option is N. The FCP/Project, in conjunction with"
^DD(2100.02,67.401,21,3,0)="the station code, must be valid in the FCP/Project Table (PGMT) for the"
^DD(2100.02,67.401,21,4,0)="budget fiscal year, and must be the Allowance FCP/Project specified in the"
^DD(2100.02,67.401,21,5,0)="table."
^DD(2100.02,67.401,"DT")="2940819"
^DD(2100.02,67.5,0)="FMSB OBJECT CLASS^F^^FMSB;5^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.5,3)="Answer must be 1-4 characters in length."
^DD(2100.02,67.5,21,0)="^^2^2^2940715^"
^DD(2100.02,67.5,21,1,0)="Required if the Suballowance Limitation Option in the Suballowance Options"
^DD(2100.02,67.5,21,2,0)="Table (SAOP) is Y for the fund. Blank otherwise."
^DD(2100.02,67.5,"DT")="2940715"
^DD(2100.02,67.501,0)="FMSB OBJECT CLASS 2^F^^FMSB1;5^K:$L(X)>4!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.501,3)="Answer must be 1-4 characters in length."
^DD(2100.02,67.501,21,0)="^^4^4^2940819^"
^DD(2100.02,67.501,21,1,0)="Required if the Allowance LMT option in the Administration/Staff Office"
^DD(2100.02,67.501,21,2,0)="Table (DVSN) is Y for this administration/staff office. Must not be coded"
^DD(2100.02,67.501,21,3,0)="if the option is N. The code must be valid in the Budget Object/Limitation"
^DD(2100.02,67.501,21,4,0)="Table (BOCT) for the budget fiscal year."
^DD(2100.02,67.501,"DT")="2940819"
^DD(2100.02,67.6,0)="FMSB OVR^S^C:FULL CONTROL;P:PRESENCE CONTROL;*:DELETE ANY EXISTING SPENDING CONTROL OVERRIDE;^FMSB;6^Q"
^DD(2100.02,67.6,21,0)="^^7^7^2940715^"
^DD(2100.02,67.6,21,1,0)="Optional. If the Spending Control Override field is left blank, spending"
^DD(2100.02,67.6,21,2,0)="documents will infer the default Spending Control level specified on the"
^DD(2100.02,67.6,21,3,0)="Sulallowance Option Table (SAOP). Coding this field will override the"
^DD(2100.02,67.6,21,4,0)="default spending control level. Valid values are: (C) - Full Control is in"
^DD(2100.02,67.6,21,5,0)="effect for the budget line, (P) - Presence Control is in effect for the"
^DD(2100.02,67.6,21,6,0)="budget line and asterisk (*) - Delete any existing Spending Control"
^DD(2100.02,67.6,21,7,0)="Override value and return control to the Fund Table value."
^DD(2100.02,67.6,"DT")="2940516"
^DD(2100.02,67.7,0)="FMSB AI^S^N:NONDIRECT;D:DIRECT;^FMSB;7^Q"
^DD(2100.02,67.7,21,0)="^^9^9^2940715^"
^DD(2100.02,67.7,21,1,0)="Required. Enter the appropriation indicator using one of the following"
^DD(2100.02,67.7,21,2,0)="codes:"
^DD(2100.02,67.7,21,3,0)="         N   To specify suballowance budget line is a nondirect  line item"
^DD(2100.02,67.7,21,4,0)="             appropriation."
^DD(2100.02,67.7,21,5,0)=" "
^DD(2100.02,67.7,21,6,0)="         D   To specify suballowance budget line is a direct line item"
^DD(2100.02,67.7,21,7,0)="             appropriation."
^DD(2100.02,67.7,21,8,0)=" "
^DD(2100.02,67.7,21,9,0)="If left blank the appropriation indicator will default to N."
^DD(2100.02,67.7,"DT")="2940516"
^DD(2100.02,67.8,0)="FMSB REVISED SUBALL AMT^F^^FMSB;8^K:$L(X)>12!($L(X)<1)!'(X'?1P.E) X"
^DD(2100.02,67.8,3)="Answer must be 1-12 characters in length."
^DD(2100.02,67.8,21,0)="^^7^7^2940715^"
^DD(2100.02,67.8,21,1,0)="System-maintained. This field reflects the revised suballowance amount"
^DD(2100.02,67.8,21,2,0)="(i.e., any previously entered budget amounts plus or minus the changes"
^DD(2100.02,67.8,21,3,0)="specified in the Suballowance Increase/Decrease Amount field). When the"
^DD(2100.02,67.8,21,4,0)="Pending/Approval/Posting Indicator is PN or RJ, this field represents"
^DD(2100.02,67.8,21,5,0)="pending amounts; when the indicator is AP or DA, this field represents"
^DD(2100.02,67.8,21,6,0)="approved amounts; and when the indicator is PA, PP, or DP, this field"
^DD(2100.02,67.8,21,7,0)="represents posted amounts."
^DD(2100.02,67.8,"DT")="2940715"
^DD(2100.02,67.9,0)="FMSB SUBALL 1ST QTR AMT^NJ12,2^^FMSB;9^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<1) X"
^DD(2100.02,67.9,3)="Type a Dollar Amount between 1 and 999999999, 2 Decimal Digits"
^DD(2100.02,67.9,21,0)="^^1^1^2940715^"
^DD(2100.02,67.9,21,1,0)="Refer to FMSB REVISED SUBALL AMT."
^DD(2100.02,67.9,"DT")="2940516"
^DD(2100.02,67.901,0)="FMSB SUBALL 2ND QTR AMT^NJ11,2^^FMSB;11^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(2100.02,67.901,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(2100.02,67.901,21,0)="^^1^1^2940715^"
^DD(2100.02,67.901,21,1,0)="Refer to FMSB REVISED SUBALL AMT."
^DD(2100.02,67.901,"DT")="2940520"
^DD(2100.02,67.902,0)="FMSB SUBALL 3RD QTR AMT^NJ11,2^^FMSB;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(2100.02,67.902,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(2100.02,67.902,21,0)="^^1^1^2940715^"
^DD(2100.02,67.902,21,1,0)="Refer to FMSB REVISED SUBALL AMT."
^DD(2100.02,67.902,"DT")="2940520"
^DD(2100.02,67.903,0)="FMSB SUBALL 4TH QTR AMT^NJ11,2^^FMSB;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(2100.02,67.903,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(2100.02,67.903,21,0)="^^1^1^2940715^"
^DD(2100.02,67.903,21,1,0)="Refer to FMSB REVISED SUBALL AMT."
^DD(2100.02,67.903,"DT")="2940520"
^DD(2100.02,340.1,0)="ACCTG TRANS TYPE^F^^340;1^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(2100.02,340.1,3)="Answer must be 2 characters in length."
^DD(2100.02,340.1,21,0)="^^1^1^2940823^"
^DD(2100.02,340.1,21,1,0)="This is the transcaction type for the document."
^DD(2100.02,340.1,"DT")="2940512"
^DD(2100.02,340.2,0)="OBJ REV SRCE^F^^340;2^K:$L(X)>4!($L(X)<4) X"
^DD(2100.02,340.2,3)="Answer must be 4 characters in length."
^DD(2100.02,340.2,21,0)="^^2^2^2940823^"
^DD(2100.02,340.2,21,1,0)="This is the revenue source.  Accounts Receivable documents using this"
^DD(2100.02,340.2,21,2,0)="field will always use ""ARRV""."
^DD(2100.02,340.2,"DT")="2940512"
^DD(2100.02,340.3,0)="AGREEMENT NUMBER^F^^340;3^K:$L(X)>15!($L(X)<15) X"
^DD(2100.02,340.3,3)="Answer must be 15 characters in length."
^DD(2100.02,340.3,"DT")="2950130"
^DD(2100.02,420,0)="SEGMENT ID LIN^F^^0;2^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,420,3)="Answer must be 3 characters in length."
^DD(2100.02,420,21,0)="^^1^1^2940721^"
^DD(2100.02,420,21,1,0)="SEGMENT ID LIN for FMS LINE SEGMENT."
^DD(2100.02,420,"DT")="2940721"
^DD(2100.02,420.1,0)="SEGMENT ID <TC>A^F^^0;4^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,420.1,3)="Answer must be 3 characters in length."
^DD(2100.02,420.1,21,0)="^^1^1^2940721^"
^DD(2100.02,420.1,21,1,0)="SEGMENT ID for FMS LINE SEGMENT."
^DD(2100.02,420.1,"DT")="2940721"
^DD(2100.02,420.2,0)="SEGMENT ID <TC>B^F^^0;6^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,420.2,3)="Answer must be 3 characters in length."
^DD(2100.02,420.2,21,0)="^^1^1^2940818^"
^DD(2100.02,420.2,21,1,0)="SEGMENT ID for FMS LINE SEGMENT."
^DD(2100.02,420.2,"DT")="2940721"
^DD(2100.02,420.26,0)="SEGMENT ID <TC>Z^F^^0;10^K:$L(X)>3!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.02,420.26,3)="Answer must be 3 characters in length."
^DD(2100.02,420.26,21,0)="^^1^1^2940721^"
^DD(2100.02,420.26,21,1,0)="SEGMENT ID for FMS LINE SEGMENT in alphabetical order."
^DD(2100.02,420.26,"DT")="2940721"
^DD(2100.02,420.3,0)="SEGMENT ID <TC>C^F^^0;8^K:$L(X)>3!($L(X)<3) X"
^DD(2100.02,420.3,3)="Answer must be 3 characters in length."
^DD(2100.02,420.3,21,0)="^^1^1^2940818^"
^DD(2100.02,420.3,21,1,0)="SEGMENT ID for FMS line segment."
^DD(2100.02,420.3,"DT")="2931215"
^DD(2100.02,421,0)="SEGMENT DELIMITER LIN^F^^0;3^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,421,3)="Answer must be 1 character in length."
^DD(2100.02,421,21,0)="^^1^1^2940721^"
^DD(2100.02,421,21,1,0)="SEGMENT DELIMITER LIN for FMS LINE SEGMENT."
^DD(2100.02,421,"DT")="2931215"
^DD(2100.02,421.1,0)="SEGMENT DELIMITER <TC>A^F^^0;5^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,421.1,3)="Answer must be 1 character in length."
^DD(2100.02,421.1,21,0)="^^1^1^2940721^"
^DD(2100.02,421.1,21,1,0)="SEGMENT DELIMITER for FMS LINE SEGMENT."
^DD(2100.02,421.1,"DT")="2931215"
^DD(2100.02,421.2,0)="SEGMENT DELIMITER <TC>B^F^^0;7^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,421.2,3)="Answer must be 1 character in length."
^DD(2100.02,421.2,21,0)="^^1^1^2940721^"
^DD(2100.02,421.2,21,1,0)="SEGMENT DELIMITER for FMS LINE SEGMENT."
^DD(2100.02,421.2,"DT")="2931215"
^DD(2100.02,421.26,0)="SEGMENT DELIMITER <TC>Z^F^^0;11^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,421.26,3)="Answer must be 1 character in length."
^DD(2100.02,421.26,21,0)="^^1^1^2940721^"
^DD(2100.02,421.26,21,1,0)="SEGMENT DELIMITER for FMS LINE SEGMENT."
^DD(2100.02,421.26,"DT")="2931215"
^DD(2100.02,421.3,0)="SEGMENT DELIMITER <TC>C^F^^0;9^K:$L(X)>1!($L(X)<1) X"
^DD(2100.02,421.3,3)="Answer must be 1 character in length."
^DD(2100.02,421.3,21,0)="^^1^1^2940721^"
^DD(2100.02,421.3,21,1,0)="SEGMENT DELIMITER for FMS LINE SEGMENT."
^DD(2100.02,421.3,"DT")="2931215"
^DD(2100.02,1600,0)="INTERFACE RECORD IDENT  #1^F^^FBFEE2;1^K:$L(X)>10!($L(X)<10)!'(X?.UN) X"
^DD(2100.02,1600,3)="Enter 4 character prefix followed by 6 character number.  Fill with ""X"" when required."
^DD(2100.02,1600,21,0)="^^2^2^2940609^"
^DD(2100.02,1600,21,1,0)="This is the 4 character prefix followed by a 6 digit number of the"
^DD(2100.02,1600,21,2,0)="interface record."
^DD(2100.02,1600,"DT")="2940609"
^DD(2100.02,1601,0)="INTERFACE RECORD IDENT  #2^F^^FBFEE2;2^K:$L(X)>10!($L(X)<10)!'(X?.UN) X"
^DD(2100.02,1601,3)="Enter 4 character prefix followed by 6 character number.  Fill with ""X"" when required."
^DD(2100.02,1601,21,0)="^^2^2^2940609^"
^DD(2100.02,1601,21,1,0)="This is the 4 character prefix followed by a 6 digit number of the"
^DD(2100.02,1601,21,2,0)="interface record."
^DD(2100.02,1601,"DT")="2940609"
^DD(2100.02,1602,0)="GROUP IDENTIFICATION #1^RF^^FBFEE2;3^K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X"
^DD(2100.02,1602,3)="Enter 3 digit station number followed by 4 digit record prefix."
^DD(2100.02,1602,21,0)="^^2^2^2940609^"
^DD(2100.02,1602,21,1,0)="This is the 3 digit station number followed by a 4 digit"
^DD(2100.02,1602,21,2,0)="record prefix identifcation number 1."
^DD(2100.02,1602,"DT")="2940609"
^DD(2100.02,1603,0)="GROUP IDENTIFICATION #2^F^^FBFEE2;4^K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X"
^DD(2100.02,1603,3)="Enter 3 digit station number followed by 4 digit record prefix."
^DD(2100.02,1603,21,0)="^^2^2^2940609^"
^DD(2100.02,1603,21,1,0)="This is the 3 digit station number followed by a 4 digit"
^DD(2100.02,1603,21,2,0)="record prefix identification number 2."
^DD(2100.02,1603,"DT")="2940609"
^DD(2100.02,1604,0)="GROUP IDENTIFICATION #3^F^^FBFEE2;5^K:$L(X)>7!($L(X)<7)!'(X?3N.UN) X"
^DD(2100.02,1604,3)="Enter 3 digit station number followed by 4 digit record prefix."
^DD(2100.02,1604,21,0)="^^2^2^2940609^"
^DD(2100.02,1604,21,1,0)="This is the 3 digit station number followed by a 4 digit"
^DD(2100.02,1604,21,2,0)="record prefix identification number 3."
^DD(2100.02,1604,"DT")="2940609"
^DD(2100.02,"B","ACC INC DEC IND",63.06)=""
^DD(2100.02,"B","ACCEPT DAY",54.06)=""
^DD(2100.02,"B","ACCEPT MONTH",54.05)=""
^DD(2100.02,"B","ACCEPT YEAR",54.04)=""
^DD(2100.02,"B","ACCP/DEL DATE",55.48)=""
^DD(2100.02,"B","ACCTG DESCRIPTION",62.19)=""
^DD(2100.02,"B","ACCTG TRAN TYPE (RC)",63.14)=""
^DD(2100.02,"B","ACCTG TRANS TYPE",340.1)=""
^DD(2100.02,"B","ACTION OUT",60.34)=""
^DD(2100.02,"B","ACTUAL COST AMOUNT",50.19)=""
^DD(2100.02,"B","ACTUAL COST INC DEC",50.18)=""
^DD(2100.02,"B","ADVANCE FLAG",55.34)=""
^DD(2100.02,"B","ADVANCE INDICATOR",55.41)=""
^DD(2100.02,"B","AGENCY SCHEDULE NO",57.13)=""
^DD(2100.02,"B","AGREEMENT NUMBER",340.3)=""
^DD(2100.02,"B","ASSOC DOC ID",62.21)=""
^DD(2100.02,"B","ASSOC TRAN CODE",62.2)=""
^DD(2100.02,"B","BUDGET FY",50.07)=""
^DD(2100.02,"B","BUDGET OBJECT CODE",50.06)=""
^DD(2100.02,"B","BUILDING",62.41)=""
^DD(2100.02,"B","BUY BUDGET OBJECT CODE",66.06)=""
^DD(2100.02,"B","BUY CLOSED BUDGET FY",66.11)=""
^DD(2100.02,"B","BUY CLOSED END BUDGET FY",66.12)=""
^DD(2100.02,"B","BUY CLOSED FUND",66.13)=""
^DD(2100.02,"B","BUY COST ORGANIZATION",66.03)=""
^DD(2100.02,"B","BUY COST SUB ORG",66.04)=""
^DD(2100.02,"B","BUY JOB NUMBER",66.09)=""
^DD(2100.02,"B","BUY REPORTING CATEGORY",66.08)=""
^DD(2100.02,"B","BUY SUB OBJECT",66.07)=""
^DD(2100.02,"B","BUY SUB ORG",66.02)=""
^DD(2100.02,"B","BUY XPROGRAM",66.05)=""
^DD(2100.02,"B","BUY-XORGANIZATION",66.01)=""
^DD(2100.02,"B","C LINE NO",62.23)=""
^DD(2100.02,"B","C PARTIAL FINAL",62.36)=""
^DD(2100.02,"B","C PARTIAL FINAL FLAG",63.08)=""
^DD(2100.02,"B","C REF TRANS CODE",62.24)=""
^DD(2100.02,"B","C REF TRANS LINE",62.26)=""
^DD(2100.02,"B","C REF TRANS NUMBER",62.25)=""
^DD(2100.02,"B","CAN CODE",55.46)=""
^DD(2100.02,"B","CANCELLATION CODE",57.01)=""
^DD(2100.02,"B","CANCELLATION TYPE",57.04)=""
^DD(2100.02,"B","CATALOG PART NUMBER",63.13)=""
^DD(2100.02,"B","CATLOG PART NUMBER",62.31)=""
^DD(2100.02,"B","CHECK NUMBER",57.02)=""
^DD(2100.02,"B","CITY",57.17)=""
^DD(2100.02,"B","CLOSED BEG BUDGET FY",50.42)=""
^DD(2100.02,"B","CLOSED END BUDGET FY",50.43)=""
^DD(2100.02,"B","CLOSED FUND",50.44)=""
^DD(2100.02,"B","COMMODITY CODE",62.3)=""
^DD(2100.02,"B","CONDITION-S",63.07)=""
^DD(2100.02,"B","CONFIRM DATE",57.25)=""
^DD(2100.02,"B","CONFIRM DATE DAY",57.23)=""
^DD(2100.02,"B","CONFIRM DATE MONTH",57.22)=""
^DD(2100.02,"B","CONFIRM DATE YEAR",57.21)=""
^DD(2100.02,"B","COST CENTER",50.04)=""
^DD(2100.02,"B","DESCRIPTION",62.32)=""
^DD(2100.02,"B","DESCRIPTION (FMS-RC)",63.02)=""
^DD(2100.02,"B","DESCRIPTION CODE",50.14)=""
^DD(2100.02,"B","DISBURSING OFFICE",57.03)=""
^DD(2100.02,"B","DISC LOST RSN CODE",54.38)=""
^DD(2100.02,"B","DISCOUNT AMOUNT",62.44)=""
^DD(2100.02,"B","DISCOUNT PERCENT",62.45)=""
^DD(2100.02,"B","DISCOUNT TYPE",54.44)=""
^DD(2100.02,"B","EFT IND",57.14)=""
^DD(2100.02,"B","EMPLOYEE ADDR CODE",54.35)=""
^DD(2100.02,"B","EMPLOYEE ID",54.34)=""
^DD(2100.02,"B","END BUDGET FY",50.08)=""
^DD(2100.02,"B","EXCEPT CODE",50.22)=""
^DD(2100.02,"B","EXCEPTION AMT",50.21)=""
^DD(2100.02,"B","EXCEPTION INC DEC",50.2)=""
^DD(2100.02,"B","EXTENDED COST",62.35)=""
^DD(2100.02,"B","F CHECK AMOUNT",57.09)=""
^DD(2100.02,"B","FMSB 1ST QTR I/D",67.11)=""
^DD(2100.02,"B","FMSB 2ND QTR I/D",67.1101)=""
^DD(2100.02,"B","FMSB 3RD QTR I/D",67.1102)=""
^DD(2100.02,"B","FMSB 4TH QTR",67.1103)=""
^DD(2100.02,"B","FMSB A/O",67.1)=""
^DD(2100.02,"B","FMSB A/O 2",67.101)=""
^DD(2100.02,"B","FMSB ACT",67)=""
^DD(2100.02,"B","FMSB AI",67.7)=""
^DD(2100.02,"B","FMSB DESCRIPTION",67.12)=""
^DD(2100.02,"B","FMSB FCP/PRJ",67.4)=""
^DD(2100.02,"B","FMSB FCP/PRJ 2",67.401)=""
^DD(2100.02,"B","FMSB FTES/QTY",67.13)=""
^DD(2100.02,"B","FMSB OBJECT CLASS",67.5)=""
^DD(2100.02,"B","FMSB OBJECT CLASS 2",67.501)=""
^DD(2100.02,"B","FMSB OVR",67.6)=""
^DD(2100.02,"B","FMSB PROGRAM",67.14)=""
^DD(2100.02,"B","FMSB PROGRAM 2",67.141)=""
^DD(2100.02,"B","FMSB QUARTER",67.15)=""
^DD(2100.02,"B","FMSB QUARTER 2",67.1501)=""
^DD(2100.02,"B","FMSB REF STN",67.3)=""
^DD(2100.02,"B","FMSB REVISED SUBALL AMT",67.8)=""
^DD(2100.02,"B","FMSB STATION",67.2)=""
^DD(2100.02,"B","FMSB STATION 2",67.102)=""
^DD(2100.02,"B","FMSB SUBALL 1ST QTR AMT",67.9)=""
^DD(2100.02,"B","FMSB SUBALL 2ND QTR AMT",67.901)=""
^DD(2100.02,"B","FMSB SUBALL 3RD QTR AMT",67.902)=""
^DD(2100.02,"B","FMSB SUBALL 4TH QTR AMT",67.903)=""
^DD(2100.02,"B","FMSB TRANSFER IND",67.16)=""
^DD(2100.02,"B","FUND",50.01)=""
^DD(2100.02,"B","GBAT FLAG",61.12)=""
^DD(2100.02,"B","GL ACCOUNT",54.23)=""
^DD(2100.02,"B","GROUP IDENTIFICATION #1",1602)=""
^DD(2100.02,"B","GROUP IDENTIFICATION #2",1603)=""
^DD(2100.02,"B","GROUP IDENTIFICATION #3",1604)=""
^DD(2100.02,"B","GTR NUMBER",50.26)=""
^DD(2100.02,"B","INC DEC IND",58.18)=""
^DD(2100.02,"B","INCREASE/DECREASE INDICATOR",54.32)=""
^DD(2100.02,"B","INDIRECT COST TRANSFER FLAG",66.1)=""
^DD(2100.02,"B","INT REASON CODE",54.3)=""
^DD(2100.02,"B","INTEREST RATE",60.11)=""
^DD(2100.02,"B","INTERFACE RECORD IDENT  #1",1600)=""
^DD(2100.02,"B","INTERFACE RECORD IDENT  #2",1601)=""
^DD(2100.02,"B","INVOICE DATE",55.49)=""
^DD(2100.02,"B","INVOICE DLN",67.02)=""
^DD(2100.02,"B","INVOICE DLN SEQ",67.03)=""
^DD(2100.02,"B","ITEM CODE",62.38)=""
^DD(2100.02,"B","JOB NUMBER",50.11)=""
^DD(2100.02,"B","LINE",.01)=""
^DD(2100.02,"B","LINE AMOUNT",52.12)=""
^DD(2100.02,"B","LINE AMOUNT INC DEC",52.13)=""
^DD(2100.02,"B","LINE BEG BUDGET FY",60.01)=""
^DD(2100.02,"B","LINE BUDGET FY",54.11)=""
^DD(2100.02,"B","LINE DESCRIPTION",50.4)=""
^DD(2100.02,"B","LINE END BUDGET FY",54.12)=""
^DD(2100.02,"B","LINE FUND",54.13)=""
^DD(2100.02,"B","LINE GL ACCOUNT",58.23)=""
^DD(2100.02,"B","LINE GTR NUMBER",60.08)=""
^DD(2100.02,"B","LINE TRANS TYPE",54.1)=""
^DD(2100.02,"B","LINE TYPE",50.39)=""
^DD(2100.02,"B","LIQUIDATION AMOUNT",50.41)=""
^DD(2100.02,"B","LOC NUMBER",63.1)=""
^DD(2100.02,"B","LOC SEQUENCE",63.09)=""
^DD(2100.02,"B","LOCATION CODE",50.34)=""
^DD(2100.02,"B","LOG DATE",55.5)=""
^DD(2100.02,"B","MILEAGE",58.27)=""
^DD(2100.02,"B","MILEAGE COST",58.28)=""
^DD(2100.02,"B","NUMBER OF DAYS",50.35)=""
^DD(2100.02,"B","OBJ REV SRCE",340.2)=""
^DD(2100.02,"B","OUTSTAND OBLIG",67.01)=""
^DD(2100.02,"B","OVERPAYMENT TYPE",60.33)=""
^DD(2100.02,"B","PAID FLAG",50.45)=""
^DD(2100.02,"B","PARTIAL FINAL",62.18)=""
^DD(2100.02,"B","PARTIAL FINAL FLAG",50.24)=""
^DD(2100.02,"B","PARTIAL FINAL IND",54.33)=""
^DD(2100.02,"B","QUANT INC DEC IND",62.28)=""
^DD(2100.02,"B","QUANTITY",54.24)=""
^DD(2100.02,"B","QUANTITY ACCEPTED",63.04)=""
^DD(2100.02,"B","QUANTITY ORDERED",63.01)=""
^DD(2100.02,"B","QUANTITY RECEIVED",63.03)=""
^DD(2100.02,"B","REASON CODE",57.24)=""
^DD(2100.02,"B","REC INC DEC IND",63.05)=""
^DD(2100.02,"B","RECEIVER DLN",67.04)=""
^DD(2100.02,"B","RECEIVER DLN SEQ",67.05)=""
^DD(2100.02,"B","REF ADV TRANS CODE",55.38)=""
^DD(2100.02,"B","REF ADV TRANS LINE",55.4)=""
^DD(2100.02,"B","REF ADV TRANS NUMBER",55.39)=""
^DD(2100.02,"B","REF TRANS CODE",50.15)=""
^DD(2100.02,"B","REF TRANS LINE",54.03)=""
^DD(2100.02,"B","REF TRANS LINE NUM",50.17)=""
^DD(2100.02,"B","REF TRANS NUMBER",50.16)=""
^DD(2100.02,"B","REF VEND ADDRESS COD",67.07)=""
^DD(2100.02,"B","REF VEND ID",67.06)=""
^DD(2100.02,"B","REF VEND NAME",67.08)=""
^DD(2100.02,"B","RELATED GBL",54.37)=""
^DD(2100.02,"B","REPORTING CATEGORY",50.1)=""
^DD(2100.02,"B","REVALUATION",62.37)=""
^DD(2100.02,"B","REVENUE SOURCE",54.25)=""
^DD(2100.02,"B","ROLE CODE",50.36)=""
^DD(2100.02,"B","ROOM",62.42)=""
^DD(2100.02,"B","SAT STATION",50.03)=""
^DD(2100.02,"B","SCHD FISCAL YEAR",57.1)=""
^DD(2100.02,"B","SCHED DAY",57.07)=""
^DD(2100.02,"B","SCHED MONTH",57.06)=""
^DD(2100.02,"B","SCHED YEAR",57.05)=""
^DD(2100.02,"B","SEGMENT DELIMITER <TC>A",421.1)=""
^DD(2100.02,"B","SEGMENT DELIMITER <TC>B",421.2)=""
^DD(2100.02,"B","SEGMENT DELIMITER <TC>C",421.3)=""
^DD(2100.02,"B","SEGMENT DELIMITER <TC>Z",421.26)=""
^DD(2100.02,"B","SEGMENT DELIMITER LIN",421)=""
^DD(2100.02,"B","SEGMENT ID <TC>A",420.1)=""
^DD(2100.02,"B","SEGMENT ID <TC>B",420.2)=""
^DD(2100.02,"B","SEGMENT ID <TC>C",420.3)=""
^DD(2100.02,"B","SEGMENT ID <TC>Z",420.26)=""
^DD(2100.02,"B","SEGMENT ID LIN",420)=""
^DD(2100.02,"B","SHELF LIFE CODE",63.11)=""
^DD(2100.02,"B","SL EXPIRATION DATE",63.12)=""
^DD(2100.02,"B","SOURCE OF OVERPAYMENT",60.32)=""
^DD(2100.02,"B","STAT COST AMT",50.37)=""
^DD(2100.02,"B","STAT COST INC DEC",50.38)=""
^DD(2100.02,"B","STAT JOB NUMBER",50.33)=""
^DD(2100.02,"B","STATE CODE",57.18)=""
^DD(2100.02,"B","SUB BOC",50.09)=""
^DD(2100.02,"B","SUB COST CENTER",50.05)=""
^DD(2100.02,"B","SUB REV SOURCE",54.26)=""
^DD(2100.02,"B","TAX CODE",50.23)=""
^DD(2100.02,"B","TAX TYPE",50.25)=""
^DD(2100.02,"B","TEXT FLAG",62.39)=""
^DD(2100.02,"B","TEXT TYPE",60.1)=""
^DD(2100.02,"B","TICKET AMOUNT",50.31)=""
^DD(2100.02,"B","TICKET INC DEC",50.3)=""
^DD(2100.02,"B","TICKET NUMBER",50.27)=""
^DD(2100.02,"B","TN TRANS CODE",60.29)=""
^DD(2100.02,"B","TN TRANS LINE",60.31)=""
^DD(2100.02,"B","TN TRANS NUMBER",60.3)=""
^DD(2100.02,"B","TO TRANS CODE",50.28)=""
^DD(2100.02,"B","TO TRANS LINE",61.15)=""
^DD(2100.02,"B","TO TRANS NUMBER",50.29)=""
^DD(2100.02,"B","TRANS TYPE",61.13)=""
^DD(2100.02,"B","TRAVEL ADVANCE NUMB",58.29)=""
^DD(2100.02,"B","TRAVEL AGENT REF",61.25)=""
^DD(2100.02,"B","TRAVEL END DAY",58.32)=""
^DD(2100.02,"B","TRAVEL END MONTH",58.31)=""
^DD(2100.02,"B","TRAVEL END YEAR",58.3)=""
^DD(2100.02,"B","TRAVEL PURPOSES",58.26)=""
^DD(2100.02,"B","TRAVEL TYPE",50.13)=""
^DD(2100.02,"B","TREASURY CANCEL NO",57.2)=""
^DD(2100.02,"B","TRVL ADV FLAG FILLER",58.35)=""
^DD(2100.02,"B","UNAPPLIED DEP NUM",55.47)=""
^DD(2100.02,"B","UNIT COST",62.33)=""
^DD(2100.02,"B","UNIT INC DEC IND",62.34)=""
^DD(2100.02,"B","UNIT OF MEASURE",62.29)=""
^DD(2100.02,"B","VENDOR ADDRESS CODE",58.14)=""
^DD(2100.02,"B","VENDOR ADDRESS LINE1",57.15)=""
^DD(2100.02,"B","VENDOR ADDRESS LINE2",57.16)=""
^DD(2100.02,"B","VENDOR ID",58.13)=""
^DD(2100.02,"B","VENDOR INVOICE",54.07)=""
^DD(2100.02,"B","VENDOR INVOICE DAY",54.29)=""
^DD(2100.02,"B","VENDOR INVOICE LINE",54.08)=""
^DD(2100.02,"B","VENDOR INVOICE MONTH",54.28)=""
^DD(2100.02,"B","VENDOR INVOICE YEAR",54.27)=""
^DD(2100.02,"B","VENDOR NAME",57.08)=""
^DD(2100.02,"B","VI LOG DAY",55.37)=""
^DD(2100.02,"B","VI LOG MONTH",55.36)=""
^DD(2100.02,"B","VI LOG YEAR",55.35)=""
^DD(2100.02,"B","VOID FLAG",61.11)=""
^DD(2100.02,"B","VOUCHER SCHEDULE CAT",57.11)=""
^DD(2100.02,"B","VOUCHER SCHEDULE TYPE",57.12)=""
^DD(2100.02,"B","WAREHOUSE CODE",62.43)=""
^DD(2100.02,"B","XDIVISION",50.46)=""
^DD(2100.02,"B","XORGANIZATION",50.02)=""
^DD(2100.02,"B","XPROGRAM",50.12)=""
^DD(2100.02,"B","ZIP CODE",57.19)=""
^DD(2100.02,"GL",0,1,.01)=""
^DD(2100.02,"GL",0,2,420)=""
^DD(2100.02,"GL",0,3,421)=""
^DD(2100.02,"GL",0,4,420.1)=""
^DD(2100.02,"GL",0,5,421.1)=""
^DD(2100.02,"GL",0,6,420.2)=""
^DD(2100.02,"GL",0,7,421.2)=""
^DD(2100.02,"GL",0,8,420.3)=""
^DD(2100.02,"GL",0,9,421.3)=""
^DD(2100.02,"GL",0,10,420.26)=""
^DD(2100.02,"GL",0,11,421.26)=""
^DD(2100.02,"GL",340,1,340.1)=""
^DD(2100.02,"GL",340,2,340.2)=""
^DD(2100.02,"GL",340,3,340.3)=""
^DD(2100.02,"GL","CXA",1,57.01)=""
^DD(2100.02,"GL","CXA",2,57.02)=""
^DD(2100.02,"GL","CXA",3,57.03)=""
^DD(2100.02,"GL","CXA",4,57.04)=""
^DD(2100.02,"GL","CXA",5,57.05)=""
^DD(2100.02,"GL","CXA",6,57.06)=""
^DD(2100.02,"GL","CXA",7,57.07)=""
^DD(2100.02,"GL","CXA",8,57.08)=""
^DD(2100.02,"GL","CXA",9,57.09)=""
^DD(2100.02,"GL","CXA",10,57.1)=""
^DD(2100.02,"GL","CXA",11,57.11)=""
^DD(2100.02,"GL","CXA",12,57.12)=""
^DD(2100.02,"GL","CXA",13,57.13)=""
^DD(2100.02,"GL","CXA",14,57.14)=""
^DD(2100.02,"GL","CXA",15,57.15)=""
^DD(2100.02,"GL","CXA",16,57.16)=""
^DD(2100.02,"GL","CXA",17,57.17)=""
^DD(2100.02,"GL","CXA",18,57.18)=""
^DD(2100.02,"GL","CXA",19,57.19)=""
^DD(2100.02,"GL","CXA",20,57.2)=""
^DD(2100.02,"GL","CXA",21,57.21)=""
^DD(2100.02,"GL","CXA",22,57.22)=""
^DD(2100.02,"GL","CXA",23,57.23)=""
^DD(2100.02,"GL","CXA",24,57.24)=""
^DD(2100.02,"GL","CXA",25,57.25)=""
^DD(2100.02,"GL","DDA",34,55.34)=""
^DD(2100.02,"GL","DDA",35,55.35)=""
^DD(2100.02,"GL","DDA",36,55.36)=""
^DD(2100.02,"GL","DDA",37,55.37)=""
^DD(2100.02,"GL","DDA",38,55.38)=""
^DD(2100.02,"GL","DDA",39,55.48)=""
^DD(2100.02,"GL","DDA",40,55.49)=""
^DD(2100.02,"GL","DDA",41,55.5)=""
^DD(2100.02,"GL","DDB",1,55.39)=""
^DD(2100.02,"GL","DDB",2,55.4)=""
^DD(2100.02,"GL","DDB",3,55.41)=""
^DD(2100.02,"GL","DDB",8,55.47)=""
^DD(2100.02,"GL","DDZ",1,55.46)=""
^DD(2100.02,"GL","FBFEE2",1,1600)=""
^DD(2100.02,"GL","FBFEE2",2,1601)=""
^DD(2100.02,"GL","FBFEE2",3,1602)=""
^DD(2100.02,"GL","FBFEE2",4,1603)=""
^DD(2100.02,"GL","FBFEE2",5,1604)=""
^DD(2100.02,"GL","FMSB",1,67.2)=""
^DD(2100.02,"GL","FMSB",2,67.1)=""
^DD(2100.02,"GL","FMSB",3,67.3)=""
^DD(2100.02,"GL","FMSB",4,67.4)=""
^DD(2100.02,"GL","FMSB",5,67.5)=""
^DD(2100.02,"GL","FMSB",6,67.6)=""
^DD(2100.02,"GL","FMSB",7,67.7)=""
^DD(2100.02,"GL","FMSB",8,67.8)=""
^DD(2100.02,"GL","FMSB",9,67.9)=""
^DD(2100.02,"GL","FMSB",10,67.11)=""
^DD(2100.02,"GL","FMSB",11,67.901)=""
^DD(2100.02,"GL","FMSB",12,67.902)=""
^DD(2100.02,"GL","FMSB",13,67.903)=""
^DD(2100.02,"GL","FMSB",14,67.1101)=""
^DD(2100.02,"GL","FMSB",15,67.1102)=""
^DD(2100.02,"GL","FMSB",16,67.1103)=""
^DD(2100.02,"GL","FMSB",17,67.12)=""
^DD(2100.02,"GL","FMSB",18,67.13)=""
^DD(2100.02,"GL","FMSB",19,67)=""
^DD(2100.02,"GL","FMSB",20,67.14)=""
^DD(2100.02,"GL","FMSB",21,67.15)=""
^DD(2100.02,"GL","FMSB",22,67.16)=""
^DD(2100.02,"GL","FMSB1",1,67.102)=""
^DD(2100.02,"GL","FMSB1",2,67.101)=""
^DD(2100.02,"GL","FMSB1",3,67.1501)=""
^DD(2100.02,"GL","FMSB1",4,67.141)=""
^DD(2100.02,"GL","FMSB1",5,67.501)=""
^DD(2100.02,"GL","FMSB1",6,67.401)=""
^DD(2100.02,"GL","IFA",13,58.13)=""
^DD(2100.02,"GL","IFA",14,58.14)=""
^DD(2100.02,"GL","IFA",18,58.18)=""
^DD(2100.02,"GL","IFA",23,58.23)=""
^DD(2100.02,"GL","IFA",26,58.26)=""
^DD(2100.02,"GL","IFA",27,58.27)=""
^DD(2100.02,"GL","IFA",28,58.28)=""
^DD(2100.02,"GL","IFA",29,58.29)=""
^DD(2100.02,"GL","IFA",30,58.3)=""
^DD(2100.02,"GL","IFA",31,58.31)=""
^DD(2100.02,"GL","IFB",1,58.32)=""
^DD(2100.02,"GL","IFC",2,58.35)=""
^DD(2100.02,"GL","IVA",1,66.01)=""
^DD(2100.02,"GL","IVA",2,66.02)=""
^DD(2100.02,"GL","IVA",3,66.03)=""
^DD(2100.02,"GL","IVA",4,66.04)=""
^DD(2100.02,"GL","IVA",5,66.05)=""
^DD(2100.02,"GL","IVA",6,66.06)=""
^DD(2100.02,"GL","IVA",7,66.07)=""
^DD(2100.02,"GL","IVA",8,66.08)=""
^DD(2100.02,"GL","IVA",9,66.09)=""
^DD(2100.02,"GL","IVA",10,66.1)=""
^DD(2100.02,"GL","IVA",11,66.11)=""
^DD(2100.02,"GL","IVA",12,66.12)=""
^DD(2100.02,"GL","IVA",13,66.13)=""
^DD(2100.02,"GL","MOA",18,62.18)=""
^DD(2100.02,"GL","MOA",19,62.19)=""
^DD(2100.02,"GL","MOA",20,62.2)=""
^DD(2100.02,"GL","MOA",21,62.21)=""
^DD(2100.02,"GL","MOB",2,62.23)=""
^DD(2100.02,"GL","MOB",3,62.24)=""
^DD(2100.02,"GL","MOB",4,62.25)=""
^DD(2100.02,"GL","MOB",5,62.26)=""
^DD(2100.02,"GL","MOB",7,62.28)=""
^DD(2100.02,"GL","MOB",8,62.29)=""
^DD(2100.02,"GL","MOB",9,62.3)=""
^DD(2100.02,"GL","MOB",10,62.31)=""
^DD(2100.02,"GL","MOB",11,62.32)=""
^DD(2100.02,"GL","MOB",12,62.33)=""
^DD(2100.02,"GL","MOB",13,62.34)=""
^DD(2100.02,"GL","MOB",14,62.35)=""
^DD(2100.02,"GL","MOB",15,62.36)=""
^DD(2100.02,"GL","MOB",16,62.37)=""
^DD(2100.02,"GL","MOB",17,62.38)=""
^DD(2100.02,"GL","MOB",18,62.39)=""
^DD(2100.02,"GL","MOB",20,62.41)=""
^DD(2100.02,"GL","MOB",21,62.42)=""
^DD(2100.02,"GL","MOB",22,62.43)=""
^DD(2100.02,"GL","MOB",23,62.44)=""
^DD(2100.02,"GL","MOB",24,62.45)=""
^DD(2100.02,"GL","PVB",1,67.01)=""
^DD(2100.02,"GL","PVB",2,67.02)=""
^DD(2100.02,"GL","PVB",3,67.03)=""
^DD(2100.02,"GL","PVB",4,67.04)=""
^DD(2100.02,"GL","PVB",5,67.05)=""
^DD(2100.02,"GL","PVB",6,67.06)=""
^DD(2100.02,"GL","PVB",7,67.07)=""
^DD(2100.02,"GL","PVB",8,67.08)=""
^DD(2100.02,"GL","RCA",1,63.01)=""
^DD(2100.02,"GL","RCA",2,63.02)=""
^DD(2100.02,"GL","RCA",3,63.03)=""
^DD(2100.02,"GL","RCA",4,63.04)=""
^DD(2100.02,"GL","RCA",5,63.05)=""
^DD(2100.02,"GL","RCA",6,63.06)=""
^DD(2100.02,"GL","RCA",7,63.07)=""
^DD(2100.02,"GL","RCA",8,63.08)=""
^DD(2100.02,"GL","RCA",9,63.09)=""
^DD(2100.02,"GL","RCA",10,63.1)=""
^DD(2100.02,"GL","RCA",11,63.11)=""
^DD(2100.02,"GL","RCA",12,63.12)=""
^DD(2100.02,"GL","RCA",13,63.13)=""
^DD(2100.02,"GL","RCA",14,63.14)=""
^DD(2100.02,"GL","TBA",1,60.01)=""
^DD(2100.02,"GL","TBA",8,60.08)=""
^DD(2100.02,"GL","TBA",10,60.1)=""
^DD(2100.02,"GL","TBA",11,60.11)=""
^DD(2100.02,"GL","TBA",29,60.29)=""
^DD(2100.02,"GL","TBA",30,60.3)=""
^DD(2100.02,"GL","TBA",31,60.31)=""
^DD(2100.02,"GL","TBA",32,60.32)=""
^DD(2100.02,"GL","TBA",33,60.33)=""
^DD(2100.02,"GL","TBA",34,60.34)=""
^DD(2100.02,"GL","TNA",11,61.11)=""
^DD(2100.02,"GL","TNA",12,61.12)=""
^DD(2100.02,"GL","TNA",13,61.13)=""
^DD(2100.02,"GL","TNA",15,61.15)=""
^DD(2100.02,"GL","TNA",25,61.25)=""
^DD(2100.02,"GL","TOA",12,52.12)=""
^DD(2100.02,"GL","TOA",13,52.13)=""
^DD(2100.02,"GL","TPA",3,54.03)=""
^DD(2100.02,"GL","TPA",4,54.04)=""
^DD(2100.02,"GL","TPA",5,54.05)=""
^DD(2100.02,"GL","TPA",6,54.06)=""
^DD(2100.02,"GL","TPA",7,54.07)=""
^DD(2100.02,"GL","TPA",8,54.08)=""
^DD(2100.02,"GL","TPA",10,54.1)=""
^DD(2100.02,"GL","TPA",11,54.11)=""
^DD(2100.02,"GL","TPA",12,54.12)=""
^DD(2100.02,"GL","TPA",13,54.13)=""
^DD(2100.02,"GL","TPA",23,54.23)=""
^DD(2100.02,"GL","TPA",24,54.24)=""
^DD(2100.02,"GL","TPA",25,54.25)=""
^DD(2100.02,"GL","TPA",26,54.26)=""
^DD(2100.02,"GL","TPA",27,54.27)=""
^DD(2100.02,"GL","TPA",28,54.28)=""
^DD(2100.02,"GL","TPA",29,54.29)=""
^DD(2100.02,"GL","TPA",30,54.3)=""
^DD(2100.02,"GL","TPA",32,54.32)=""
^DD(2100.02,"GL","TPA",33,54.33)=""
^DD(2100.02,"GL","TPA",34,54.34)=""
^DD(2100.02,"GL","TPA",35,54.35)=""
^DD(2100.02,"GL","TPB",1,54.37)=""
^DD(2100.02,"GL","TPB",2,54.38)=""
^DD(2100.02,"GL","TPC",2,54.44)=""
^DD(2100.02,"GL","TVA",1,50.01)=""
^DD(2100.02,"GL","TVA",2,50.02)=""
^DD(2100.02,"GL","TVA",4,50.04)=""
^DD(2100.02,"GL","TVA",6,50.06)=""
^DD(2100.02,"GL","TVA",7,50.07)=""
^DD(2100.02,"GL","TVA",8,50.08)=""
^DD(2100.02,"GL","TVA",10,50.1)=""
^DD(2100.02,"GL","TVA",11,50.11)=""
^DD(2100.02,"GL","TVA",12,50.12)=""
^DD(2100.02,"GL","TVA",13,50.13)=""
^DD(2100.02,"GL","TVA",15,50.15)=""
^DD(2100.02,"GL","TVA",16,50.16)=""
^DD(2100.02,"GL","TVA",17,50.17)=""
^DD(2100.02,"GL","TVA",18,50.18)=""
^DD(2100.02,"GL","TVA",19,50.19)=""
^DD(2100.02,"GL","TVA",20,50.2)=""
^DD(2100.02,"GL","TVA1",1,50.21)=""
^DD(2100.02,"GL","TVA1",2,50.22)=""
^DD(2100.02,"GL","TVA1",3,50.23)=""
^DD(2100.02,"GL","TVA1",4,50.24)=""
^DD(2100.02,"GL","TVA1",5,50.25)=""
^DD(2100.02,"GL","TVA1",6,50.26)=""
^DD(2100.02,"GL","TVA1",7,50.27)=""
^DD(2100.02,"GL","TVA1",8,50.28)=""
^DD(2100.02,"GL","TVA1",9,50.29)=""
^DD(2100.02,"GL","TVA1",10,50.3)=""
^DD(2100.02,"GL","TVA1",11,50.31)=""
^DD(2100.02,"GL","TVA1",13,50.33)=""
^DD(2100.02,"GL","TVA1",14,50.34)=""
^DD(2100.02,"GL","TVA1",15,50.35)=""
^DD(2100.02,"GL","TVA1",16,50.36)=""
^DD(2100.02,"GL","TVB",1,50.37)=""
^DD(2100.02,"GL","TVB",2,50.38)=""
^DD(2100.02,"GL","TVB",3,50.39)=""
^DD(2100.02,"GL","TVB",4,50.4)=""
^DD(2100.02,"GL","TVB",5,50.41)=""
^DD(2100.02,"GL","TVB",6,50.42)=""
^DD(2100.02,"GL","TVB",7,50.43)=""
^DD(2100.02,"GL","TVB",8,50.44)=""
^DD(2100.02,"GL","TVC",1,50.45)=""
^DD(2100.02,"GL","TVC",2,50.46)=""
^DD(2100.02,"GL","TVC",3,50.03)=""
^DD(2100.02,"GL","TVC",4,50.05)=""
^DD(2100.02,"GL","TVC",5,50.09)=""
^DD(2100.02,"GL","TVC",6,50.14)=""
^DD(2100.02,"IX",.01)=""
^DD(2100.02,"IX",67.15)=""
^DD(2100.02,"RQ",50.06)=""
^DD(2100.02,"RQ",50.07)=""
^DD(2100.02,"RQ",50.12)=""
^DD(2100.02,"RQ",50.19)=""
^DD(2100.02,"RQ",50.31)=""
^DD(2100.02,"RQ",50.34)=""
^DD(2100.02,"RQ",50.35)=""
^DD(2100.02,"RQ",50.36)=""
^DD(2100.02,"RQ",50.37)=""
^DD(2100.02,"RQ",50.39)=""
^DD(2100.02,"RQ",52.12)=""
^DD(2100.02,"RQ",54.11)=""
^DD(2100.02,"RQ",57.01)=""
^DD(2100.02,"RQ",57.02)=""
^DD(2100.02,"RQ",57.04)=""
^DD(2100.02,"RQ",57.1)=""
^DD(2100.02,"RQ",57.11)=""
^DD(2100.02,"RQ",57.12)=""
^DD(2100.02,"RQ",57.13)=""
^DD(2100.02,"RQ",57.24)=""
^DD(2100.02,"RQ",61.13)=""
^DD(2100.02,"RQ",67)=""
^DD(2100.02,"RQ",67.102)=""
^DD(2100.02,"RQ",67.2)=""
^DD(2100.02,"RQ",1602)=""
^DD(2100.051,0)="KEYPUNCH CODE SHEET SUB-FIELD^^.01^1"
^DD(2100.051,0,"NM","KEYPUNCH CODE SHEET")=""
^DD(2100.051,0,"UP")="2100"
^DD(2100.051,.01,0)="KEYPUNCH CODE SHEET^WL^^0;1^Q"
^DD(2100.051,.01,21,0)="^^2^2^2940628^"
^DD(2100.051,.01,21,1,0)="The field used for input into a keypunch code sheet.  The user may use"
^DD(2100.051,.01,21,2,0)="this field to directly input a code sheet (via a word processing field)."
^DD(2100.051,.01,"DT")="2890111"
^DD(2100.051,"B","KEYPUNCH CODE SHEET",.01)=""
^DD(2100.051,"GL",0,1,.01)=""
^DD(2100.1,0)="FIELD^^26^18"
^DD(2100.1,0,"DDA")="N"
^DD(2100.1,0,"DT")="2950627"
^DD(2100.1,0,"IX","AM1",2100.12,.01)=""
^DD(2100.1,0,"IX","AM2",2100.121,.01)=""
^DD(2100.1,0,"IX","AS",2100.1,3)=""
^DD(2100.1,0,"IX","B",2100.1,.01)=""
^DD(2100.1,0,"IX","BID",2100.1,.01)=""
^DD(2100.1,0,"IX","KEY",2100.1,8)=""
^DD(2100.1,0,"NM","GENERIC CODE SHEET STACK")=""
^DD(2100.1,0,"VR")="2.0"
^DD(2100.1,.01,0)="DOCUMENT IDENTIFIER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2100.1,.01,1,0)="^.1"
^DD(2100.1,.01,1,1,0)="2100.1^B"
^DD(2100.1,.01,1,1,1)="S ^GECS(2100.1,""B"",$E(X,1,30),DA)="""""
^DD(2100.1,.01,1,1,2)="K ^GECS(2100.1,""B"",$E(X,1,30),DA)"
^DD(2100.1,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2100.1,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2100.1,.01,1,2,0)="2100.1^BID^MUMPS"
^DD(2100.1,.01,1,2,1)="N % S %=$E($P(X,""-"",2),4,9) I $L(%) S ^GECS(2100.1,""BID"",%,DA)="""""
^DD(2100.1,.01,1,2,2)="N % S %=$E($P(X,""-"",2),4,9) I $L(%) K ^GECS(2100.1,""BID"",%,DA)"
^DD(2100.1,.01,1,2,"%D",0)="^^2^2^2940627^"
^DD(2100.1,.01,1,2,"%D",1,0)="This cross-reference is used to lookup the stack entry by the IFCAP"
^DD(2100.1,.01,1,2,"%D",2,0)="obligation number."
^DD(2100.1,.01,1,2,"DT")="2940627"
^DD(2100.1,.01,3)="Answer must be 3-30 characters in length."
^DD(2100.1,.01,21,0)="^^6^6^2940627^"
^DD(2100.1,.01,21,1,0)="This field is used to store the FMS document identifier.  The form of"
^DD(2100.1,.01,21,2,0)="the document identifier is tt-sta123456  -sta789 where:"
^DD(2100.1,.01,21,3,0)="  tt     - is the 2 alpha transaction type (ex: IV);"
^DD(2100.1,.01,21,4,0)="  sta    - is the three digit station number (ex: 460);"
^DD(2100.1,.01,21,5,0)="  123456 - is the FMS obligation/reference number (ex: I40001);"
^DD(2100.1,.01,21,6,0)="  789    - is the FMS batch number (ex: 001)."
^DD(2100.1,.01,"DT")="2940627"
^DD(2100.1,1,0)="SYSTEM^S^F:FMS;^0;2^Q"
^DD(2100.1,1,21,0)="^^3^3^2940628^^"
^DD(2100.1,1,21,1,0)="This field is used to store the system which created the code sheet."
^DD(2100.1,1,21,2,0)="Currently the only system which interfaces to the stack file is the"
^DD(2100.1,1,21,3,0)="FMS code sheets."
^DD(2100.1,1,"DT")="2931124"
^DD(2100.1,2,0)="DATE@TIME CREATED^D^^0;3^S %DT=""ESTR"" D ^%DT S X=Y K:Y<1 X"
^DD(2100.1,2,21,0)="^^2^2^2940628^"
^DD(2100.1,2,21,1,0)="This field is used to store the date and time the code sheet was entered"
^DD(2100.1,2,21,2,0)="into the stack file for transmission."
^DD(2100.1,2,"DT")="2931124"
^DD(2100.1,3,0)="STATUS^S^Q:QUEUED FOR TRANSMISSION;M:MARKED FOR IMMEDIATE TRANSMISSION BY EVENT;T:TRANSMITTED;E:ERROR DURING TRANSMISSION;A:ACCEPTED BY FMS;R:REJECTED BY FMS;F:FINAL - NO FURTHER ACTIVITY ALLOWED;^0;4^Q"
^DD(2100.1,3,1,0)="^.1"
^DD(2100.1,3,1,1,0)="2100.1^AS"
^DD(2100.1,3,1,1,1)="S ^GECS(2100.1,""AS"",$E(X,1,30),DA)="""""
^DD(2100.1,3,1,1,2)="K ^GECS(2100.1,""AS"",$E(X,1,30),DA)"
^DD(2100.1,3,1,1,"%D",0)="^^2^2^2931130^"
^DD(2100.1,3,1,1,"%D",1,0)="This cross-reference is used to lookup the status of code sheets"
^DD(2100.1,3,1,1,"%D",2,0)="in the stack file."
^DD(2100.1,3,1,1,"DT")="2931130"
^DD(2100.1,3,9)="@"
^DD(2100.1,3,21,0)="^^8^8^2980928^"
^DD(2100.1,3,21,1,0)="This is the status of the stack file entry.  Status's range from:"
^DD(2100.1,3,21,2,0)="  Q: queued for transmission"
^DD(2100.1,3,21,3,0)="  M: marked for immediate transmission"
^DD(2100.1,3,21,4,0)="  T: transmitted to Austin"
^DD(2100.1,3,21,5,0)="  E: error in transmission"
^DD(2100.1,3,21,6,0)="  A: accepted by FMS"
^DD(2100.1,3,21,7,0)="  R: rejected by FMS"
^DD(2100.1,3,21,8,0)="  F: final - no further activity allowed"
^DD(2100.1,3,"DT")="2980928"
^DD(2100.1,4,0)="DESCRIPTION OF EVENT^F^^1;1^K:$L(X)>79!($L(X)<1) X"
^DD(2100.1,4,3)="Answer must be 1-79 characters in length."
^DD(2100.1,4,21,0)="^^3^3^2940628^"
^DD(2100.1,4,21,1,0)="This field is used to store the description of the event which caused"
^DD(2100.1,4,21,2,0)="the code sheet to be created.  The description is for informational"
^DD(2100.1,4,21,3,0)="purposes and will appear on the Stack Status Report."
^DD(2100.1,4,"DT")="2931208"
^DD(2100.1,4.1,0)="USER COMMENTS^F^^1;3^K:$L(X)>69!($L(X)<1) X"
^DD(2100.1,4.1,3)="Answer must be 1-69 characters in length."
^DD(2100.1,4.1,21,0)="^^3^3^2940927^^"
^DD(2100.1,4.1,21,1,0)="This field is used to store free text comments which can be entered by the"
^DD(2100.1,4.1,21,2,0)="user and will appear on the Stack Status Report."
^DD(2100.1,4.1,21,3,0)=""
^DD(2100.1,4.1,"DT")="2940927"
^DD(2100.1,5,0)="SEGMENT (ENTRY IN FILE 2101.2)^F^^0;5^K:$L(X)>6!($L(X)<2) X"
^DD(2100.1,5,3)="Answer must be 2-6 characters in length."
^DD(2100.1,5,21,0)="^^2^2^2940628^"
^DD(2100.1,5,21,1,0)="This field is used to store the free text segment entry from file"
^DD(2100.1,5,21,2,0)="2101.2 which was used to create the code sheet."
^DD(2100.1,5,"DT")="2931209"
^DD(2100.1,6,0)="ERRORS^F^^1;2^K:$L(X)>79!($L(X)<1) X"
^DD(2100.1,6,3)="Answer must be 1-79 characters in length."
^DD(2100.1,6,21,0)="^^8^8^2940628^^"
^DD(2100.1,6,21,1,0)="This field is used to store any errors which occurred during the"
^DD(2100.1,6,21,2,0)="transmission of the code sheet.  If an error occurs the stack status"
^DD(2100.1,6,21,3,0)="will be set to 'E'rror and the ERRORS field will store the description"
^DD(2100.1,6,21,4,0)="of the error.  The user can use the Stack Status Report to display"
^DD(2100.1,6,21,5,0)="code sheets which resulted in errors during transmission.  Examples of "
^DD(2100.1,6,21,6,0)="errors would be no code sheets to transmit, unable to create a mailman"
^DD(2100.1,6,21,7,0)="message, etc. "
^DD(2100.1,6,21,8,0)=""
^DD(2100.1,6,"DT")="2931209"
^DD(2100.1,7,0)="MANUAL OR AUTOMATIC^S^M:MANUAL;A:AUTOMATIC;^0;6^Q"
^DD(2100.1,7,21,0)="^^4^4^2940628^"
^DD(2100.1,7,21,1,0)="This field is used to indicate if the stack file code sheet was manually"
^DD(2100.1,7,21,2,0)="created or automatically created.  For the accept/reject processing,"
^DD(2100.1,7,21,3,0)="only code sheets which have been automatically created and rejected"
^DD(2100.1,7,21,4,0)="should be regenerated and retransmitted by the event code."
^DD(2100.1,7,"DT")="2940628"
^DD(2100.1,8,0)="DOCUMENT LOOKUP KEY^F^^0;7^K:$L(X)>15!($L(X)<1) X"
^DD(2100.1,8,1,0)="^.1"
^DD(2100.1,8,1,1,0)="2100.1^KEY"
^DD(2100.1,8,1,1,1)="S ^GECS(2100.1,""KEY"",$E(X,1,30),DA)="""""
^DD(2100.1,8,1,1,2)="K ^GECS(2100.1,""KEY"",$E(X,1,30),DA)"
^DD(2100.1,8,1,1,"%D",0)="^^2^2^3010129^"
^DD(2100.1,8,1,1,"%D",1,0)="This cross reference allows packages to lookup documents by a"
^DD(2100.1,8,1,1,"%D",2,0)="specified key."
^DD(2100.1,8,1,1,"DT")="3010129"
^DD(2100.1,8,3)="Enter the optional document lookup key that can be used to find a document.  Answer must be 1-15 characters in length."
^DD(2100.1,8,21,0)="^^4^4^3010129^"
^DD(2100.1,8,21,1,0)="This field stores an option document lookup key that can be used to"
^DD(2100.1,8,21,2,0)="find a specific document in generic code sheets.  For example, if a"
^DD(2100.1,8,21,3,0)="package sends a monthly code sheet, it could enter the key as"
^DD(2100.1,8,21,4,0)="SV-3001200 for SV documents sent for the month 12/2000."
^DD(2100.1,8,"DT")="3010129"
^DD(2100.1,10,0)="CODE SHEET^2100.11^^10;0"
^DD(2100.1,10,21,0)="^^2^2^2940628^"
^DD(2100.1,10,21,1,0)="This field is used to store the actual code sheet which will be"
^DD(2100.1,10,21,2,0)="transmitted."
^DD(2100.1,11,0)="SIZE OF CODE SHEET^NJ7,0^^11;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.1,11,3)="Enter the size of the code sheet from 0 to 9999999."
^DD(2100.1,11,21,0)="^^5^5^2940628^^"
^DD(2100.1,11,21,1,0)="This field is used to store the size of the code sheet.  The field"
^DD(2100.1,11,21,2,0)="is used internally by the Generic Code Sheet Package during"
^DD(2100.1,11,21,3,0)="transmission.  When the code sheets are transmitted from the stack"
^DD(2100.1,11,21,4,0)="file, the code sheets are grouped into mail messages depending"
^DD(2100.1,11,21,5,0)="on the size of the code sheet."
^DD(2100.1,11,"DT")="2940503"
^DD(2100.1,11.2,0)="CHECKSUM^NJ9,0I^^11;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2100.1,11.2,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2100.1,11.2,21,0)="^^2^2^2950627^^"
^DD(2100.1,11.2,21,1,0)="This field is used to store the checksum of the automatically created"
^DD(2100.1,11.2,21,2,0)="code sheet."
^DD(2100.1,11.2,"DT")="2950627"
^DD(2100.1,11.3,0)="HOLD DATE^DI^^11;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2100.1,11.3,21,0)="^^1^1^2950627^"
^DD(2100.1,11.3,21,1,0)="This field stores the date the code sheet will be transmitted on."
^DD(2100.1,11.3,"DT")="2950627"
^DD(2100.1,20,0)="TRANSMITTED MAIL MESSAGES^2100.12^^20;0"
^DD(2100.1,20,21,0)="^^4^4^2940628^^"
^DD(2100.1,20,21,1,0)="This field is used to store the mail message number which was used"
^DD(2100.1,20,21,2,0)="for the transmission of the code sheet.  This field is multiple"
^DD(2100.1,20,21,3,0)="for large code sheets (greater then 30K) which require more than"
^DD(2100.1,20,21,4,0)="one mail message for transmission."
^DD(2100.1,21,0)="OLD TRANSMITTED MAIL MESSAGES^2100.121^^21;0"
^DD(2100.1,21,21,0)="^^4^4^2940628^^^"
^DD(2100.1,21,21,1,0)="This field is used to store the old mail messages which were used"
^DD(2100.1,21,21,2,0)="to transmit the stack file entry.  When the stack entry is retransmitted, "
^DD(2100.1,21,21,3,0)="this field is used to keep a history of previous mail messages used "
^DD(2100.1,21,21,4,0)="for transmission."
^DD(2100.1,25,0)="EVENT ACCEPT/REJECT CODE^KI^^25;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(2100.1,25,3)="This is Standard MUMPS code."
^DD(2100.1,25,9)="@"
^DD(2100.1,25,21,0)="^^3^3^2940628^^^"
^DD(2100.1,25,21,1,0)="This field stores the mumps code which is executed when processing accept"
^DD(2100.1,25,21,2,0)="or reject messages.  This field is not editable through VA FileMan."
^DD(2100.1,25,21,3,0)="It is set in the routine GECSSDCT."
^DD(2100.1,25,"DT")="2940628"
^DD(2100.1,26,0)="SPECIAL PARAMETERS^FI^^26;1^K:$L(X)>200!($L(X)<1) X"
^DD(2100.1,26,3)="Answer must be 1-200 characters in length."
^DD(2100.1,26,21,0)="^^2^2^2940615^"
^DD(2100.1,26,21,1,0)="This field is used to store any special parameters required to"
^DD(2100.1,26,21,2,0)="rebuild the code sheet."
^DD(2100.1,26,"DT")="2940615"
^DD(2100.1,"B","CHECKSUM",11.2)=""
^DD(2100.1,"B","CODE SHEET",10)=""
^DD(2100.1,"B","DATE@TIME CREATED",2)=""
^DD(2100.1,"B","DESCRIPTION OF EVENT",4)=""
^DD(2100.1,"B","DOCUMENT IDENTIFIER",.01)=""
^DD(2100.1,"B","DOCUMENT LOOKUP KEY",8)=""
^DD(2100.1,"B","ERRORS",6)=""
^DD(2100.1,"B","EVENT ACCEPT/REJECT CODE",25)=""
^DD(2100.1,"B","HOLD DATE",11.3)=""
^DD(2100.1,"B","MANUAL OR AUTOMATIC",7)=""
^DD(2100.1,"B","OLD TRANSMITTED MAIL MESSAGES",21)=""
^DD(2100.1,"B","SEGMENT (ENTRY IN FILE 2101.2)",5)=""
^DD(2100.1,"B","SIZE OF CODE SHEET",11)=""
^DD(2100.1,"B","SPECIAL PARAMETERS",26)=""
^DD(2100.1,"B","STATUS",3)=""
^DD(2100.1,"B","SYSTEM",1)=""
^DD(2100.1,"B","TRANSMITTED MAIL MESSAGES",20)=""
^DD(2100.1,"B","USER COMMENTS",4.1)=""
^DD(2100.1,"GL",0,1,.01)=""
^DD(2100.1,"GL",0,2,1)=""
^DD(2100.1,"GL",0,3,2)=""
^DD(2100.1,"GL",0,4,3)=""
^DD(2100.1,"GL",0,5,5)=""
^DD(2100.1,"GL",0,6,7)=""
^DD(2100.1,"GL",0,7,8)=""
^DD(2100.1,"GL",1,1,4)=""
^DD(2100.1,"GL",1,2,6)=""
^DD(2100.1,"GL",1,3,4.1)=""
^DD(2100.1,"GL",10,0,10)=""
^DD(2100.1,"GL",11,1,11)=""
^DD(2100.1,"GL",11,2,11.2)=""
^DD(2100.1,"GL",11,3,11.3)=""
^DD(2100.1,"GL",20,0,20)=""
^DD(2100.1,"GL",21,0,21)=""
^DD(2100.1,"GL",25,"E1,245",25)=""
^DD(2100.1,"GL",26,1,26)=""
^DD(2100.1,"IX",.01)=""
^DD(2100.1,"IX",3)=""
^DD(2100.1,"IX",8)=""
^DD(2100.1,"RQ",.01)=""
^DD(2100.1,"SB",2100.11,10)=""
^DD(2100.1,"SB",2100.12,20)=""
^DD(2100.1,"SB",2100.121,21)=""
^DD(2100.11,0)="CODE SHEET SUB-FIELD^^.01^1"
^DD(2100.11,0,"DT")="2931208"
^DD(2100.11,0,"NM","CODE SHEET")=""
^DD(2100.11,0,"UP")="2100.1"
^DD(2100.11,.01,0)="CODE SHEET^W^^0;1^Q"
^DD(2100.11,.01,21,0)="^^2^2^2940628^"
^DD(2100.11,.01,21,1,0)="This field is used to store the actual code sheet which will be"
^DD(2100.11,.01,21,2,0)="transmitted."
^DD(2100.11,.01,"DT")="2931208"
^DD(2100.11,"B","CODE SHEET",.01)=""
^DD(2100.11,"GL",0,1,.01)=""
^DD(2100.12,0)="TRANSMITTED MAIL MESSAGES SUB-FIELD^^1^2"
^DD(2100.12,0,"DT")="2931222"
^DD(2100.12,0,"NM","TRANSMITTED MAIL MESSAGES")=""
^DD(2100.12,0,"UP")="2100.1"
^DD(2100.12,.01,0)="TRANSMITTED MAIL MESSAGES^MNJ12,0X^^0;1^K:+X'=X!(X>999999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(2100.12,.01,1,0)="^.1"
^DD(2100.12,.01,1,1,0)="2100.1^AM1^MUMPS"
^DD(2100.12,.01,1,1,1)="S ^GECS(2100.1,""AM"",X,DA(1))="""""
^DD(2100.12,.01,1,1,2)="K ^GECS(2100.1,""AM"",X,DA(1))"
^DD(2100.12,.01,1,1,"%D",0)="^^2^2^2931222^^^"
^DD(2100.12,.01,1,1,"%D",1,0)="This cross reference allows the mailman message number to be easily"
^DD(2100.12,.01,1,1,"%D",2,0)="looked up for processing confirmation messages."
^DD(2100.12,.01,1,1,"DT")="2931222"
^DD(2100.12,.01,3)="Type a Number between 1 and 999999999999, 0 Decimal Digits"
^DD(2100.12,.01,21,0)="^^4^4^2940628^"
^DD(2100.12,.01,21,1,0)="This field is used to store the mail message number which was used"
^DD(2100.12,.01,21,2,0)="for the transmission of the code sheet.  This field is multiple"
^DD(2100.12,.01,21,3,0)="for large code sheets (greater than 30K) which require more than"
^DD(2100.12,.01,21,4,0)="one mail message for transmission."
^DD(2100.12,.01,"DT")="2931222"
^DD(2100.12,1,0)="CONFIRMATION NUMBER^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2100.12,1,3)="Answer must be 1-30 characters in length."
^DD(2100.12,1,21,0)="^^2^2^2940628^"
^DD(2100.12,1,21,1,0)="This field is used to store the confirmation number returned by the"
^DD(2100.12,1,21,2,0)="destination system to acknowledge the receipt of the mail message."
^DD(2100.12,1,"DT")="2931222"
^DD(2100.12,"B","CONFIRMATION NUMBER",1)=""
^DD(2100.12,"B","TRANSMITTED MAIL MESSAGES",.01)=""
^DD(2100.12,"GL",0,1,.01)=""
^DD(2100.12,"GL",0,2,1)=""
^DD(2100.12,"IX",.01)=""
^DD(2100.121,0)="OLD TRANSMITTED MAIL MESSAGES SUB-FIELD^^1^2"
^DD(2100.121,0,"DT")="2931222"
^DD(2100.121,0,"NM","OLD TRANSMITTED MAIL MESSAGES")=""
^DD(2100.121,0,"UP")="2100.1"
^DD(2100.121,.01,0)="OLD TRANSMITTED MAIL MESSAGES^MNJ12,0X^^0;1^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(2100.121,.01,1,0)="^.1"
^DD(2100.121,.01,1,1,0)="2100.1^AM2^MUMPS"
^DD(2100.121,.01,1,1,1)="S ^GECS(2100.1,""AM"",X,DA(1))="""""
^DD(2100.121,.01,1,1,2)="K ^GECS(2100.1,""AM"",X,DA(1))"
^DD(2100.121,.01,1,1,"%D",0)="^^2^2^2931222^^"
^DD(2100.121,.01,1,1,"%D",1,0)="This cross reference allows the mailman message number to be easily"
^DD(2100.121,.01,1,1,"%D",2,0)="looked up for processing confirmation messages."
^DD(2100.121,.01,1,1,"DT")="2931222"
^DD(2100.121,.01,3)="Type a Number between 0 and 999999999999, 0 Decimal Digits"
^DD(2100.121,.01,21,0)="^^4^4^2940628^^^"
^DD(2100.121,.01,21,1,0)="This field is used to store the old mail messages which were used"
^DD(2100.121,.01,21,2,0)="to transmit the stack file entry.  When the stack entry is retransmitted, "
^DD(2100.121,.01,21,3,0)="this field is used to keep a history of previous mail messages used "
^DD(2100.121,.01,21,4,0)="for transmission."
^DD(2100.121,.01,"DT")="2931222"
^DD(2100.121,1,0)="CONFRIMATION NUMBER^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2100.121,1,3)="Answer must be 1-30 characters in length."
^DD(2100.121,1,21,0)="^^2^2^2940628^"
^DD(2100.121,1,21,1,0)="This field is used to store the confirmation number returned by the"
^DD(2100.121,1,21,2,0)="destination system to acknowledge the receipt of the mail message."
^DD(2100.121,1,"DT")="2931222"
^DD(2100.121,"B","CONFRIMATION NUMBER",1)=""
^DD(2100.121,"B","OLD TRANSMITTED MAIL MESSAGES",.01)=""
^DD(2100.121,"GL",0,1,.01)=""
^DD(2100.121,"GL",0,2,1)=""
^DD(2100.121,"IX",.01)=""
^DD(2101.1,0)="FIELD^^3^5"
^DD(2101.1,0,"DT")="2910612"
^DD(2101.1,0,"IX","B",2101.1,.01)=""
^DD(2101.1,0,"NM","GENERIC CODE SHEET BATCH TYPE")=""
^DD(2101.1,0,"PT",2100,2)=""
^DD(2101.1,0,"PT",2101.2,.7)=""
^DD(2101.1,0,"PT",2101.3,.2)=""
^DD(2101.1,0,"VR")="2.0"
^DD(2101.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2101.1,.01,1,0)="^.1"
^DD(2101.1,.01,1,1,0)="2101.1^B"
^DD(2101.1,.01,1,1,1)="S ^GECS(2101.1,""B"",$E(X,1,30),DA)="""""
^DD(2101.1,.01,1,1,2)="K ^GECS(2101.1,""B"",$E(X,1,30),DA)"
^DD(2101.1,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.1,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.1,.01,3)="Answer must be 3-30 characters in length."
^DD(2101.1,.01,21,0)="^^5^5^2940628^^^"
^DD(2101.1,.01,21,1,0)="This field is used to store the batch type name which will be used"
^DD(2101.1,.01,21,2,0)="to group code sheets.  Example of batch types would be DENTAL,"
^DD(2101.1,.01,21,3,0)="VOLUNTARY, MAS, etc."
^DD(2101.1,.01,21,4,0)="The full name of the type of code sheet.  For example: DENTAL, VOLUNTARY,"
^DD(2101.1,.01,21,5,0)="MAS, etc."
^DD(2101.1,.01,"DT")="2910612"
^DD(2101.1,.5,0)="BATCH DESCRIPTION^2101.11^^1;0"
^DD(2101.1,.5,21,0)="^^2^2^2940628^^^"
^DD(2101.1,.5,21,1,0)="This field is used to store the description of the batch type."
^DD(2101.1,.5,21,2,0)="This field is used for informational purposes only."
^DD(2101.1,1,0)="RECEIVING USER^2101.12^^2;0"
^DD(2101.1,1,21,0)="^^2^2^2940628^^"
^DD(2101.1,1,21,1,0)="The receiving user (queue) where code sheets within this batch type"
^DD(2101.1,1,21,2,0)="will be transmitted."
^DD(2101.1,2,0)="MAX CODE SHEETS PER MESSAGE^NJ3,0^^0;3^K:+X'=X!(X>100)!(X<10)!(X?.E1"".""1N.N) X"
^DD(2101.1,2,3)="Type a Number between 10 and 100, 0 Decimal Digits"
^DD(2101.1,2,21,0)="^^2^2^2890427^"
^DD(2101.1,2,21,1,0)="The maximum number of code sheets which can be transmitted in one"
^DD(2101.1,2,21,2,0)="message for this batch type."
^DD(2101.1,2,"DT")="2881024"
^DD(2101.1,3,0)="SYSTEM ID^F^^0;4^K:$L(X)>3!($L(X)<3) X"
^DD(2101.1,3,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(2101.1,3,21,0)="2"
^DD(2101.1,3,21,1,0)="The 'code sheet system identifier' (3 characters) used to identify this"
^DD(2101.1,3,21,2,0)="batch type."
^DD(2101.1,3,"DT")="2890113"
^DD(2101.1,"B","BATCH DESCRIPTION",.5)=""
^DD(2101.1,"B","MAX CODE SHEETS PER MESSAGE",2)=""
^DD(2101.1,"B","NAME",.01)=""
^DD(2101.1,"B","RECEIVING USER",1)=""
^DD(2101.1,"B","SYSTEM ID",3)=""
^DD(2101.1,"GL",0,1,.01)=""
^DD(2101.1,"GL",0,3,2)=""
^DD(2101.1,"GL",0,4,3)=""
^DD(2101.1,"GL",1,0,.5)=""
^DD(2101.1,"GL",2,0,1)=""
^DD(2101.1,"IX",.01)=""
^DD(2101.1,"RQ",.01)=""
^DD(2101.1,"SB",2101.11,.5)=""
^DD(2101.1,"SB",2101.12,1)=""
^DD(2101.11,0)="BATCH DESCRIPTION SUB-FIELD^^.01^1"
^DD(2101.11,0,"NM","BATCH DESCRIPTION")=""
^DD(2101.11,0,"UP")="2101.1"
^DD(2101.11,.01,0)=".01^W^^0;1^Q"
^DD(2101.11,.01,21,0)="^^2^2^2940628^"
^DD(2101.11,.01,21,1,0)="This field is used to store the description of the batch type."
^DD(2101.11,.01,21,2,0)="This field is used for informational purposes only."
^DD(2101.11,.01,"DT")="2940628"
^DD(2101.11,"B",.01,.01)=""
^DD(2101.11,"GL",0,1,.01)=""
^DD(2101.12,0)="RECEIVING USER SUB-FIELD^^2^3"
^DD(2101.12,0,"IX","B",2101.12,.01)=""
^DD(2101.12,0,"NM","RECEIVING USER")=""
^DD(2101.12,0,"UP")="2101.1"
^DD(2101.12,.01,0)="RECEIVING USER^F^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(2101.12,.01,1,0)="^.1"
^DD(2101.12,.01,1,1,0)="2101.12^B"
^DD(2101.12,.01,1,1,1)="S ^GECS(2101.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2101.12,.01,1,1,2)="K ^GECS(2101.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2101.12,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.12,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.12,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(2101.12,.01,21,0)="^^2^2^2940628^"
^DD(2101.12,.01,21,1,0)="The receiving user (queue) where code sheets within this batch type"
^DD(2101.12,.01,21,2,0)="will be transmitted."
^DD(2101.12,.01,"DT")="2890131"
^DD(2101.12,1,0)="DOMAIN MAIL ROUTER^P4.2'^DIC(4.2,^0;2^Q"
^DD(2101.12,1,21,0)="^^2^2^2890427^"
^DD(2101.12,1,21,1,0)="The routing address of the domain receiving the code sheets referenced"
^DD(2101.12,1,21,2,0)="by this batch type."
^DD(2101.12,1,"DT")="2890131"
^DD(2101.12,2,0)="TRANSMIT^S^1:YES;0:NO;^0;3^Q"
^DD(2101.12,2,21,0)="^^2^2^2890427^"
^DD(2101.12,2,21,1,0)="This field (if set to Yes) indicates all code sheets referenced by this"
^DD(2101.12,2,21,2,0)="batch type are permitted to be transmitted."
^DD(2101.12,2,"DT")="2890131"
^DD(2101.12,"B","DOMAIN MAIL ROUTER",1)=""
^DD(2101.12,"B","RECEIVING USER",.01)=""
^DD(2101.12,"B","TRANSMIT",2)=""
^DD(2101.12,"GL",0,1,.01)=""
^DD(2101.12,"GL",0,2,1)=""
^DD(2101.12,"GL",0,3,2)=""
^DD(2101.12,"IX",.01)=""
^DD(2101.2,0)="FIELD^^2^5"
^DD(2101.2,0,"DDA")="N"
^DD(2101.2,0,"ID","WRITE")="W ""   "",$P(^(0),U,2)"
^DD(2101.2,0,"IX","B",2101.2,.01)=""
^DD(2101.2,0,"NM","GENERIC CODE SHEET TRANSACTION TYPE/SEGMENT")=""
^DD(2101.2,0,"VR")="2.0"
^DD(2101.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>6!($L(X)<2) X"
^DD(2101.2,.01,1,0)="^.1"
^DD(2101.2,.01,1,1,0)="2101.2^B"
^DD(2101.2,.01,1,1,1)="S ^GECS(2101.2,""B"",$E(X,1,30),DA)="""""
^DD(2101.2,.01,1,1,2)="K ^GECS(2101.2,""B"",$E(X,1,30),DA)"
^DD(2101.2,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.2,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.2,.01,3)="REPLY WITH NORMAL CALM OR LOG TRANSACTION CODE, INCLUDING DECIMAL FOR CALM."
^DD(2101.2,.01,21,0)="^^3^3^2890427^"
^DD(2101.2,.01,21,1,0)="This field is used to indicate the type of code sheet referenced by the"
^DD(2101.2,.01,21,2,0)="batch.  For example: the batch type DENTAL may have several types of"
^DD(2101.2,.01,21,3,0)="code sheets."
^DD(2101.2,.01,"DT")="2890316"
^DD(2101.2,.5,0)="EDIT TEMPLATE^FX^^0;3^K:$L(X)>30!($L(X)<2) X I $D(X) K:$E(X,1)'=""["" X I $D(X) K:$E(X,$L(X))'=""]"" X I $D(X) S Z=$E(X,2,$L(X)-1) K:$O(^DIE(""B"",Z,0))="""" X"
^DD(2101.2,.5,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(2101.2,.5,21,0)="^^4^4^2940628^^^^"
^DD(2101.2,.5,21,1,0)="This field is used to store the input template which should be used"
^DD(2101.2,.5,21,2,0)="to enter the code sheet data and compile the data into the actual"
^DD(2101.2,.5,21,3,0)="code sheet.  The name of the input should be in the form:"
^DD(2101.2,.5,21,4,0)="[template name].  The brackets [] should be included."
^DD(2101.2,.5,"DT")="2890202"
^DD(2101.2,.7,0)="BATCH TYPE^RP2101.1'^GECS(2101.1,^0;4^Q"
^DD(2101.2,.7,21,0)="^^3^3^2940628^^"
^DD(2101.2,.7,21,1,0)="This field is used to store the batch type (file 2101.1) for the code"
^DD(2101.2,.7,21,2,0)="sheet segment.  The batch type is used to determine the destination"
^DD(2101.2,.7,21,3,0)="queue for the transmission of the code sheet."
^DD(2101.2,.7,"DT")="2881017"
^DD(2101.2,1,0)="ACTIVE CODE SHEET^RS^Y:YES;N:NO;^0;5^Q"
^DD(2101.2,1,3)=""
^DD(2101.2,1,21,0)="^^3^3^2940628^^^"
^DD(2101.2,1,21,1,0)="This field is used to activate or inactivate a code sheet.  When a"
^DD(2101.2,1,21,2,0)="code sheet is no longer required, it can be inactivated to prevent"
^DD(2101.2,1,21,3,0)="users from creating it."
^DD(2101.2,2,0)="GENERAL PURPOSE^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(2101.2,2,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(2101.2,2,21,0)="^^2^2^2940628^^^^"
^DD(2101.2,2,21,1,0)="This field is used to store the description of the code sheet type."
^DD(2101.2,2,21,2,0)="This field is used for informational purposes only."
^DD(2101.2,"B","ACTIVE CODE SHEET",1)=""
^DD(2101.2,"B","BATCH TYPE",.7)=""
^DD(2101.2,"B","EDIT TEMPLATE",.5)=""
^DD(2101.2,"B","GENERAL PURPOSE",2)=""
^DD(2101.2,"B","NAME",.01)=""
^DD(2101.2,"GL",0,1,.01)=""
^DD(2101.2,"GL",0,2,2)=""
^DD(2101.2,"GL",0,3,.5)=""
^DD(2101.2,"GL",0,4,.7)=""
^DD(2101.2,"GL",0,5,1)=""
^DD(2101.2,"IX",.01)=""
^DD(2101.2,"RQ",.01)=""
^DD(2101.2,"RQ",.7)=""
^DD(2101.2,"RQ",1)=""
^DD(2101.3,0)="FIELD^^5^9"
^DD(2101.3,0,"DT")="2931213"
^DD(2101.3,0,"IX","B",2101.3,.01)=""
^DD(2101.3,0,"IX","C",2101.3,.01)=""
^DD(2101.3,0,"IX","E",2101.3,.01)=""
^DD(2101.3,0,"NM","GENERIC CODE SHEET TRANSMISSION RECORD")=""
^DD(2101.3,0,"VR")="2.0"
^DD(2101.3,.01,0)="BATCH NUMBER^RFX^^0;1^K:X[""""""""!($A(X)=45)&(X'?3N1""-""3U1""-""4N1""-""4.5N.1U)&(X'?3N1""-""3U1""-""4N1""-""1.5N) X"
^DD(2101.3,.01,1,0)="^.1"
^DD(2101.3,.01,1,1,0)="2101.3^B"
^DD(2101.3,.01,1,1,1)="S ^GECS(2101.3,""B"",$E(X,1,30),DA)="""""
^DD(2101.3,.01,1,1,2)="K ^GECS(2101.3,""B"",$E(X,1,30),DA)"
^DD(2101.3,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.3,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.3,.01,1,2,0)="2101.3^C^MUMPS"
^DD(2101.3,.01,1,2,1)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",4),1:$P(X,""-"",3)),^GECS(2101.3,""C"",X1,DA)="""" K X1"
^DD(2101.3,.01,1,2,2)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",4),1:$P(X,""-"",3)) K ^GECS(2101.3,""C"",X1,DA),X1"
^DD(2101.3,.01,1,2,"%D",0)="^^3^3^2940629^"
^DD(2101.3,.01,1,2,"%D",1,0)="This cross reference is used for user lookups through VA FileMan."
^DD(2101.3,.01,1,2,"%D",2,0)="It allows batch numbers to be selected by the counter number (which"
^DD(2101.3,.01,1,2,"%D",3,0)="is the 4th piece of the batch number)."
^DD(2101.3,.01,1,3,0)="2101.3^E^MUMPS"
^DD(2101.3,.01,1,3,1)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",3,4),1:$P(X,""-"",2,3)),^GECS(2101.3,""E"",X1,DA)="""" K X1"
^DD(2101.3,.01,1,3,2)="S X1=$S($P(X,""-"",4)]"""":$P(X,""-"",3,4),1:$P(X,""-"",2,3)) K ^GECS(2101.3,""E"",X1,DA),X1"
^DD(2101.3,.01,1,3,"%D",0)="^^3^3^2940629^"
^DD(2101.3,.01,1,3,"%D",1,0)="This cross reference is used for user lookups through VA FileMan."
^DD(2101.3,.01,1,3,"%D",2,0)="It allows batch numbers to be selected by the fiscal year and"
^DD(2101.3,.01,1,3,"%D",3,0)="counter number (which is the 3rd and 4th pieces of the batch number)."
^DD(2101.3,.01,3)="Enter Batch Number,Transmission Number, or Station Mailman Message Number Format  503-CLM-88-1234C or 503-LOG-88-12345"
^DD(2101.3,.01,21,0)="^^5^5^2890427^"
^DD(2101.3,.01,21,1,0)="The batch number of the batch created.  Example: 460-VOL-89-75 would"
^DD(2101.3,.01,21,2,0)="indicate a batch with station number 460, code sheet system identifier"
^DD(2101.3,.01,21,3,0)="VOL (3 character identifier for batch type), fiscal year 89, and counter"
^DD(2101.3,.01,21,4,0)="number 75.  The counter is generated from file 2101.5 GENERIC CODE"
^DD(2101.3,.01,21,5,0)="SHEET COUNTER."
^DD(2101.3,.01,"DT")="2980211"
^DD(2101.3,.1,0)="SYSTEM IDENTIFIER^F^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(2101.3,.1,3)="ANSWER MUST BE 3 CHARACTERS IN LENGTH"
^DD(2101.3,.1,21,0)="^^2^2^2940628^^"
^DD(2101.3,.1,21,1,0)="This field is used to store the 3 character batch type (from the"
^DD(2101.3,.1,21,2,0)="batch type file 2101.1)."
^DD(2101.3,.1,"DT")="2890113"
^DD(2101.3,.2,0)="BATCH TYPE^P2101.1'^GECS(2101.1,^0;6^Q"
^DD(2101.3,.2,21,0)="^^2^2^2940628^"
^DD(2101.3,.2,21,1,0)="This field is used to store the batch type from the batch type file"
^DD(2101.3,.2,21,2,0)="2101.1."
^DD(2101.3,.2,"DT")="2900817"
^DD(2101.3,.5,0)="TYPE^S^B:BATCH;T:TRANSMISSION;R:RECEIVING REPORT;^0;3^Q"
^DD(2101.3,.5,21,0)="^^3^3^2940628^^"
^DD(2101.3,.5,21,1,0)="This field is used to store the status of the batch.  Status's can"
^DD(2101.3,.5,21,2,0)="be batch (code sheets have been batched but not transmitted) or"
^DD(2101.3,.5,21,3,0)="transmitted.  The receiving report status is currently not used."
^DD(2101.3,.7,0)="DATE CREATED^D^^0;10^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2101.3,.7,21,0)="^^2^2^2940628^^^"
^DD(2101.3,.7,21,1,0)="This field is used to store the date the batch was assembled.  This"
^DD(2101.3,.7,21,2,0)="field is used for archiving old transmission records."
^DD(2101.3,.8,0)="CREATED BY^P200'^VA(200,^0;11^Q"
^DD(2101.3,.8,21,0)="^^2^2^2940628^^"
^DD(2101.3,.8,21,1,0)="This field is used to store the user which batched the code sheets.  This"
^DD(2101.3,.8,21,2,0)="field is used for informational purposes only."
^DD(2101.3,.8,"DT")="2931213"
^DD(2101.3,4,0)="DATE GIVEN TO MAILMAN^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2101.3,4,21,0)="^^2^2^2940628^^"
^DD(2101.3,4,21,1,0)="This field is used to store the date the batch was assembled in a"
^DD(2101.3,4,21,2,0)="mail message for transmission."
^DD(2101.3,4.5,0)="MESSAGE NUMBER^2101.32^^2;0"
^DD(2101.3,4.5,21,0)="^^2^2^2940628^^"
^DD(2101.3,4.5,21,1,0)="This field is used to store the mail messages which were used to transmit"
^DD(2101.3,4.5,21,2,0)="the batch."
^DD(2101.3,5,0)="RELEASE BY^P200'^VA(200,^0;5^Q"
^DD(2101.3,5,21,0)="^^2^2^2940628^^^"
^DD(2101.3,5,21,1,0)="This field is used to store the user which transmitted the batch.  This"
^DD(2101.3,5,21,2,0)="field is used for informational purposes only."
^DD(2101.3,5,"DT")="2931213"
^DD(2101.3,"B","BATCH NUMBER",.01)=""
^DD(2101.3,"B","BATCH TYPE",.2)=""
^DD(2101.3,"B","CREATED BY",.8)=""
^DD(2101.3,"B","DATE CREATED",.7)=""
^DD(2101.3,"B","DATE GIVEN TO MAILMAN",4)=""
^DD(2101.3,"B","MESSAGE NUMBER",4.5)=""
^DD(2101.3,"B","RELEASE BY",5)=""
^DD(2101.3,"B","SYSTEM IDENTIFIER",.1)=""
^DD(2101.3,"B","TYPE",.5)=""
^DD(2101.3,"GL",0,1,.01)=""
^DD(2101.3,"GL",0,2,.1)=""
^DD(2101.3,"GL",0,3,.5)=""
^DD(2101.3,"GL",0,4,4)=""
^DD(2101.3,"GL",0,5,5)=""
^DD(2101.3,"GL",0,6,.2)=""
^DD(2101.3,"GL",0,10,.7)=""
^DD(2101.3,"GL",0,11,.8)=""
^DD(2101.3,"GL",2,0,4.5)=""
^DD(2101.3,"IX",.01)=""
^DD(2101.3,"RQ",.01)=""
^DD(2101.3,"SB",2101.32,4.5)=""
^DD(2101.32,0)="MESSAGE NUMBER SUB-FIELD^^.01^1"
^DD(2101.32,0,"NM","MESSAGE NUMBER")=""
^DD(2101.32,0,"UP")="2101.3"
^DD(2101.32,.01,0)="MESSAGE NUMBER^MNJ13,0^^0;1^K:+X'=X!(X>9999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2101.32,.01,3)="Type a Number between 0 and 9999999999999, 0 Decimal Digits"
^DD(2101.32,.01,21,0)="^^2^2^2940628^^"
^DD(2101.32,.01,21,1,0)="This field is used to store the mail messages which were used to transmit"
^DD(2101.32,.01,21,2,0)="the batch."
^DD(2101.32,.01,"DT")="2881205"
^DD(2101.32,"B","MESSAGE NUMBER",.01)=""
^DD(2101.32,"GL",0,1,.01)=""
^DD(2101.4,0)="FIELD^^1^2"
^DD(2101.4,0,"IX","B",2101.4,.01)=""
^DD(2101.4,0,"NM","GENERIC CODE SHEET TEMPLATE MAPS (not used)")=""
^DD(2101.4,0,"VR")="2.0"
^DD(2101.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(2101.4,.01,1,0)="^.1"
^DD(2101.4,.01,1,1,0)="2101.4^B"
^DD(2101.4,.01,1,1,1)="S ^GECS(2101.4,""B"",$E(X,1,30),DA)="""""
^DD(2101.4,.01,1,1,2)="K ^GECS(2101.4,""B"",$E(X,1,30),DA)"
^DD(2101.4,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.4,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.4,.01,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(2101.4,.01,21,0)="^^2^2^2890427^"
^DD(2101.4,.01,21,1,0)="This field stores the name of the input template used when creating or"
^DD(2101.4,.01,21,2,0)="editing code sheets."
^DD(2101.4,.01,"DT")="2881017"
^DD(2101.4,1,0)="MAP^2101.41^^1;0"
^DD(2101.4,1,21,0)="4"
^DD(2101.4,1,21,1,0)="This field stores a map of the input template in the form \'field number'"
^DD(2101.4,1,21,2,0)="T(for output transform);'global node';'piece'.  For example \1200T;VOLU;1"
^DD(2101.4,1,21,3,0)="indicates the field number 1200 with a defined output transform, with"
^DD(2101.4,1,21,4,0)="data located on global node VOLU, piece number 1."
^DD(2101.4,"B","MAP",1)=""
^DD(2101.4,"B","NAME",.01)=""
^DD(2101.4,"GL",0,1,.01)=""
^DD(2101.4,"GL",1,0,1)=""
^DD(2101.4,"IX",.01)=""
^DD(2101.4,"RQ",.01)=""
^DD(2101.4,"SB",2101.41,1)=""
^DD(2101.41,0)="MAP SUB-FIELD^^.01^1"
^DD(2101.41,0,"NM","MAP")=""
^DD(2101.41,0,"UP")="2101.4"
^DD(2101.41,.01,0)="MAP^F^^0;1^K:$L(X)>200!($L(X)<1) X"
^DD(2101.41,.01,1,0)="^.1^^0"
^DD(2101.41,.01,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH"
^DD(2101.41,.01,21,0)="4"
^DD(2101.41,.01,21,1,0)="This field stores a map of the input template in the form \'field number'"
^DD(2101.41,.01,21,2,0)="T(for output transform);'global node';'piece'.  For example \1200T;VOLU;1"
^DD(2101.41,.01,21,3,0)="indicates the field number 1200 with a defined output transform, with"
^DD(2101.41,.01,21,4,0)="data located on global node VOLU, piece number 1."
^DD(2101.41,.01,"DT")="2890526"
^DD(2101.41,"B","MAP",.01)=""
^DD(2101.41,"GL",0,1,.01)=""
^DD(2101.5,0)="FIELD^^1^2"
^DD(2101.5,0,"IX","B",2101.5,.01)=""
^DD(2101.5,0,"NM","GENERIC CODE SHEET COUNTER")=""
^DD(2101.5,0,"VR")="2.0"
^DD(2101.5,.01,0)="NAME^RFX^^0;1^K:$L(X)>20!($L(X)<10) X"
^DD(2101.5,.01,1,0)="^.1"
^DD(2101.5,.01,1,1,0)="2101.5^B"
^DD(2101.5,.01,1,1,1)="S ^GECS(2101.5,""B"",$E(X,1,30),DA)="""""
^DD(2101.5,.01,1,1,2)="K ^GECS(2101.5,""B"",$E(X,1,30),DA)"
^DD(2101.5,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.5,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.5,.01,3)="Answer must be 10-20 characters in length."
^DD(2101.5,.01,21,0)="^^5^5^2890427^"
^DD(2101.5,.01,21,1,0)="This file is used to keep track of the counters for creating code sheets"
^DD(2101.5,.01,21,2,0)="and batch numbers.  The entry into this field is in the form 'station"
^DD(2101.5,.01,21,3,0)="number'-'code sheet system identifier (3 characters)'-'fiscal year'."
^DD(2101.5,.01,21,4,0)="For example 460-VOL-89 indicates station number 460, code sheet system"
^DD(2101.5,.01,21,5,0)="identifier VOL, and fiscal year 89."
^DD(2101.5,.01,"DT")="2931213"
^DD(2101.5,1,0)="COUNTER^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2101.5,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(2101.5,1,21,0)="^^2^2^2890427^"
^DD(2101.5,1,21,1,0)="Stores the actual counter number.  Increments by one for each code sheet"
^DD(2101.5,1,21,2,0)="or batch number."
^DD(2101.5,1,"DT")="2890113"
^DD(2101.5,"B","COUNTER",1)=""
^DD(2101.5,"B","NAME",.01)=""
^DD(2101.5,"GL",0,1,.01)=""
^DD(2101.5,"GL",0,2,1)=""
^DD(2101.5,"IX",.01)=""
^DD(2101.5,"RQ",.01)=""
^DD(2101.6,0)="FIELD^^3^3"
^DD(2101.6,0,"DT")="2940628"
^DD(2101.6,0,"IX","B",2101.6,.01)=""
^DD(2101.6,0,"NM","GENERIC CODE SHEET LOCK")=""
^DD(2101.6,0,"VR")="2.0"
^DD(2101.6,.01,0)="TYPE^RF^^0;1^K:$L(X)>20!($L(X)<13)!'(X'?1P.E) X"
^DD(2101.6,.01,1,0)="^.1"
^DD(2101.6,.01,1,1,0)="2101.6^B"
^DD(2101.6,.01,1,1,1)="S ^GECS(2101.6,""B"",$E(X,1,30),DA)="""""
^DD(2101.6,.01,1,1,2)="K ^GECS(2101.6,""B"",$E(X,1,30),DA)"
^DD(2101.6,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.6,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.6,.01,3)="Answer must be 13-20 characters in length."
^DD(2101.6,.01,21,0)="^^6^6^2940628^^"
^DD(2101.6,.01,21,1,0)="This file/field is used to display to the user information regarding"
^DD(2101.6,.01,21,2,0)="the reason batching or transmission of code sheets is locked."
^DD(2101.6,.01,21,3,0)=" "
^DD(2101.6,.01,21,4,0)="The syntax of the field entry is 'station number'-"
^DD(2101.6,.01,21,5,0)="'code sheet system identifier (3 character)'-"
^DD(2101.6,.01,21,6,0)="(either BATCH or TRANSMIT)."
^DD(2101.6,.01,"DT")="2900404"
^DD(2101.6,2,0)="LOCKED BY^P200'^VA(200,^0;3^Q"
^DD(2101.6,2,21,0)="^^2^2^2940628^^"
^DD(2101.6,2,21,1,0)="This field is used to store the user which currently has the batching"
^DD(2101.6,2,21,2,0)="or transmission locked."
^DD(2101.6,2,"DT")="2931213"
^DD(2101.6,3,0)="DATE/TIME LOCKED^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2101.6,3,21,0)="^^2^2^2940628^^"
^DD(2101.6,3,21,1,0)="This field is used to store the date and time the batching or transmission"
^DD(2101.6,3,21,2,0)="was locked."
^DD(2101.6,"B","DATE/TIME LOCKED",3)=""
^DD(2101.6,"B","LOCKED BY",2)=""
^DD(2101.6,"B","TYPE",.01)=""
^DD(2101.6,"GL",0,1,.01)=""
^DD(2101.6,"GL",0,3,2)=""
^DD(2101.6,"GL",0,4,3)=""
^DD(2101.6,"IX",.01)=""
^DD(2101.6,"RQ",.01)=""
^DD(2101.7,0)="FIELD^^1^2"
^DD(2101.7,0,"DT")="2940628"
^DD(2101.7,0,"IX","AC",2101.7,1)=""
^DD(2101.7,0,"IX","B",2101.7,.01)=""
^DD(2101.7,0,"NM","GENERIC CODE SHEET SITE")=""
^DD(2101.7,0,"VR")="2.0"
^DD(2101.7,.01,0)="NAME^RP4'X^DIC(4,^0;1^S DINUM=X Q"
^DD(2101.7,.01,1,0)="^.1"
^DD(2101.7,.01,1,1,0)="2101.7^B"
^DD(2101.7,.01,1,1,1)="S ^GECS(2101.7,""B"",$E(X,1,30),DA)="""""
^DD(2101.7,.01,1,1,2)="K ^GECS(2101.7,""B"",$E(X,1,30),DA)"
^DD(2101.7,.01,1,1,"%D",0)="^^1^1^2940629^"
^DD(2101.7,.01,1,1,"%D",1,0)="This is a standard VA FileMan ""B"" cross reference."
^DD(2101.7,.01,3)=""
^DD(2101.7,.01,21,0)="^^3^3^2940628^^"
^DD(2101.7,.01,21,1,0)="This field is used to store the name of the site from the INSTITUTION"
^DD(2101.7,.01,21,2,0)="file which will be using the Generic Code Sheet Package to create and"
^DD(2101.7,.01,21,3,0)="transmit code sheets."
^DD(2101.7,.01,"DT")="2900403"
^DD(2101.7,1,0)="PRIMARY SITE?^S^Y:YES;N:NO;^0;2^Q"
^DD(2101.7,1,1,0)="^.1"
^DD(2101.7,1,1,1,0)="2101.7^AC^MUMPS"
^DD(2101.7,1,1,1,1)="I X=""Y"" S ^GECS(2101.7,""PRIMARY"")=DA"
^DD(2101.7,1,1,1,2)="I X=""Y"" K ^GECS(2101.7,""PRIMARY"")"
^DD(2101.7,1,1,1,"%D",0)="^^2^2^2940628^"
^DD(2101.7,1,1,1,"%D",1,0)="This cross-reference is used to indicate the station which should be"
^DD(2101.7,1,1,1,"%D",2,0)="used as the default Generic Code Sheet primary site."
^DD(2101.7,1,1,1,"DT")="2940628"
^DD(2101.7,1,21,0)="^^2^2^2940628^^^"
^DD(2101.7,1,21,1,0)="This field (if set to Yes) indicates whether the site is a primary"
^DD(2101.7,1,21,2,0)="(defaulted) site for the Generic Code Sheet Package."
^DD(2101.7,1,"DT")="2940628"
^DD(2101.7,"B","NAME",.01)=""
^DD(2101.7,"B","PRIMARY SITE?",1)=""
^DD(2101.7,"GL",0,1,.01)=""
^DD(2101.7,"GL",0,2,1)=""
^DD(2101.7,"IX",.01)=""
^DD(2101.7,"IX",1)=""
^DD(2101.7,"RQ",.01)=""
^DD(2260,0)="FIELD^^353^289"
^DD(2260,0,"DDA")="N"
^DD(2260,0,"DT")="3040727"
^DD(2260,0,"ID",4)="W ""   "",$E($P(^(0),U,5),4,5)_""-""_$E($P(^(0),U,5),6,7)_""-""_$E($P(^(0),U,5),2,3)"
^DD(2260,0,"ID","WRITE1")="D:$G(UNION)'=""Y"" EN^DDIOL($P(^(0),U,2),"""",""?3"")"
^DD(2260,0,"IX","AC",2260,2)=""
^DD(2260,0,"IX","AD",2260,4)=""
^DD(2260,0,"IX","AE",2260,88)=""
^DD(2260,0,"IX","AN",2260,54)=""
^DD(2260,0,"IX","ANC",2260,57)=""
^DD(2260,0,"IX","AW",2260,67)=""
^DD(2260,0,"IX","AWC",2260,66)=""
^DD(2260,0,"IX","B",2260,.01)=""
^DD(2260,0,"IX","BS5",2260,.01)=""
^DD(2260,0,"IX","BS5",2260,5)=""
^DD(2260,0,"IX","C",2260,1)=""
^DD(2260,0,"IX","D",2260,13)=""
^DD(2260,0,"IX","SSN",2260,5)=""
^DD(2260,0,"NM","ASISTS ACCIDENT REPORTING")=""
^DD(2260,0,"PT",2264,.7)=""
^DD(2260,0,"VR")="2.0"
^DD(2260,0,"VRPK")="OOPS"
^DD(2260,.01,0)="CASE NUMBER^RF^^0;1^K:$L(X)>11!($L(X)<10) X"
^DD(2260,.01,1,0)="^.1"
^DD(2260,.01,1,1,0)="2260^B"
^DD(2260,.01,1,1,1)="S ^OOPS(2260,""B"",$E(X,1,30),DA)="""""
^DD(2260,.01,1,1,2)="K ^OOPS(2260,""B"",$E(X,1,30),DA)"
^DD(2260,.01,1,2,0)="2260^BS5^MUMPS"
^DD(2260,.01,1,2,1)="Q:$P($G(^OOPS(2260,DA,""2162A"")),U)=""""  S ^OOPS(2260,""BS5"",$E(X,1)_$E($P(^(""2162A""),U),6,9),DA)="""""
^DD(2260,.01,1,2,2)="Q:$P($G(^OOPS(2260,DA,""2162A"")),U)=""""  K ^OOPS(2260,""BS5"",$E(X,1)_$E($P(^(""2162A""),U),6,9),DA)"
^DD(2260,.01,1,2,"%D",0)="^^1^1^3040426^"
^DD(2260,.01,1,2,"%D",1,0)="This index sets up the first letter last name, last 4 digits of the SSN index."
^DD(2260,.01,1,2,"DT")="3040426"
^DD(2260,.01,3)="Answer must be 10-11 characters in length."
^DD(2260,.01,21,0)="^^4^4^2980424^^^^"
^DD(2260,.01,21,1,0)="The case number is automatically assigned when a stub record is created."
^DD(2260,.01,21,2,0)="It is composed of the Fiscal Year concatenated with a 5 digit sequential"
^DD(2260,.01,21,3,0)="number.  Amended cases will have a alphabetic suffix appended to the "
^DD(2260,.01,21,4,0)="original case number."
^DD(2260,.01,"DT")="3040426"
^DD(2260,1,0)="PERSON INVOLVED^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'["","") X"
^DD(2260,1,1,0)="^.1"
^DD(2260,1,1,1,0)="2260^C"
^DD(2260,1,1,1,1)="S ^OOPS(2260,""C"",$E(X,1,30),DA)="""""
^DD(2260,1,1,1,2)="K ^OOPS(2260,""C"",$E(X,1,30),DA)"
^DD(2260,1,1,1,"DT")="2980407"
^DD(2260,1,3)="Enter a name (LAST,FIRST), 3-30 characters in length."
^DD(2260,1,21,0)="^.001^4^4^3010104^^^^"
^DD(2260,1,21,1,0)="This is the name of the employee, volunteer, contractor or other person"
^DD(2260,1,21,2,0)="that was involved in the incident, sustaining an injury or illness."
^DD(2260,1,21,3,0)="Use the same convention for entering a name as used when"
^DD(2260,1,21,4,0)="entering an employee: LAST,FIRST. John Doe would be entered as DOE,JOHN."
^DD(2260,1,"DT")="2980407"
^DD(2260,2,0)="PERSONNEL STATUS^RSX^1:Employee;2:Volunteer;3:Contractor;4:Visitor;5:Other;6:Non-PAID Employee;7:Medical Student;8:Nursing Student;9:Other Student;10:Resident Physician;^0;3^Q"
^DD(2260,2,1,0)="^.1"
^DD(2260,2,1,1,0)="2260^AC"
^DD(2260,2,1,1,1)="S ^OOPS(2260,""AC"",$E(X,1,30),DA)="""""
^DD(2260,2,1,1,2)="K ^OOPS(2260,""AC"",$E(X,1,30),DA)"
^DD(2260,2,1,1,"DT")="2980407"
^DD(2260,2,3)="Enter the status. Non-PAID Employee includes student and resident. "
^DD(2260,2,21,0)="^.001^3^3^3040622^^^^"
^DD(2260,2,21,1,0)="The personnel status of the individual involved in the incident is either"
^DD(2260,2,21,2,0)="employee, volunteer, contractor, visitor or other.  Non-PAID Employee"
^DD(2260,2,21,3,0)="includes students and residents."
^DD(2260,2,"AUDIT")=""
^DD(2260,2,"DT")="3040622"
^DD(2260,3,0)="TYPE OF INCIDENT^RP2261.2'^OOPS(2261.2,^0;4^Q"
^DD(2260,3,3)="Select the term that best categorizes the type of injury."
^DD(2260,3,21,0)="^^2^2^2991227^^^^"
^DD(2260,3,21,1,0)="This is the critical tracking issue that best characterizes the type of"
^DD(2260,3,21,2,0)="injury sustained."
^DD(2260,3,"DT")="2980427"
^DD(2260,4,0)="DATE/TIME OF OCCURRENCE^RDX^^0;5^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X I $G(X),($$FMDIFF^XLFDT(DT,X,1)>1095) D EN^DDIOL(""DATE OF OCCURRENCE must be within 3 years"","""",""!!?5"") K X"
^DD(2260,4,.1)="22. DATE OF INJURY"
^DD(2260,4,1,0)="^.1"
^DD(2260,4,1,1,0)="2260^AD"
^DD(2260,4,1,1,1)="S ^OOPS(2260,""AD"",$E(X,1,30),DA)="""""
^DD(2260,4,1,1,2)="K ^OOPS(2260,""AD"",$E(X,1,30),DA)"
^DD(2260,4,1,1,"DT")="2980407"
^DD(2260,4,3)="Enter the date and time of injury, date only if illness."
^DD(2260,4,21,0)="^.001^3^3^3011015^^^^"
^DD(2260,4,21,1,0)="If this is an injury, this is the date and time the incident happened."
^DD(2260,4,21,2,0)="If this is an illness, this is the date the employee first became aware of"
^DD(2260,4,21,3,0)="the disease or illness."
^DD(2260,4,"DT")="3040901"
^DD(2260,5,0)="SSN^FXOa^^2162A;1^S X=$TR(X,""-"","""") K:$L(X)>9!($L(X)<9)!'(X?9N)!'(X) X"
^DD(2260,5,.1)="      SSN"
^DD(2260,5,1,0)="^.1"
^DD(2260,5,1,1,0)="2260^SSN"
^DD(2260,5,1,1,1)="S ^OOPS(2260,""SSN"",$E(X,1,30),DA)="""""
^DD(2260,5,1,1,2)="K ^OOPS(2260,""SSN"",$E(X,1,30),DA)"
^DD(2260,5,1,1,"DT")="2980407"
^DD(2260,5,1,2,0)="2260^BS5^MUMPS"
^DD(2260,5,1,2,1)="S ^OOPS(2260,""BS5"",$E($P(^OOPS(2260,DA,0),U,2),1)_$E(X,6,9),DA)="""""
^DD(2260,5,1,2,2)="K ^OOPS(2260,""BS5"",$E($P(^OOPS(2260,DA,0),U,2),1)_$E(X,6,9),DA)"
^DD(2260,5,1,2,"%D",0)="^^1^1^3040426^"
^DD(2260,5,1,2,"%D",1,0)="This index sets up the first letter last name, last 4 digits of the SSN index."
^DD(2260,5,1,2,"DT")="3040426"
^DD(2260,5,2)="S Y(0)=Y S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(2260,5,2.1)="S Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(2260,5,3)="Answer must be 9 characters in length."
^DD(2260,5,21,0)="^.001^2^2^3040622^^^"
^DD(2260,5,21,1,0)="This is the Social Security Number of the person involved in this"
^DD(2260,5,21,2,0)="incident."
^DD(2260,5,"AUDIT")="y"
^DD(2260,5,"DT")="3040622"
^DD(2260,6,0)="DATE OF BIRTH^DX^^2162A;2^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),'$$PSDTCHK^OOPSUTL3(X,110,6) K X"
^DD(2260,6,.1)="     DATE OF BIRTH"
^DD(2260,6,3)="Enter the date of birth of the person involved in this incident."
^DD(2260,6,21,0)="^^1^1^2980408^"
^DD(2260,6,21,1,0)="This is the date of birth of the person involved in this incident."
^DD(2260,6,"DT")="3010201"
^DD(2260,7,0)="SEX^S^1:Male;2:Female;^2162A;3^Q"
^DD(2260,7,.1)="     SEX"
^DD(2260,7,3)="Enter the sex of the person involved in this incident."
^DD(2260,7,21,0)="^.001^1^1^3000530^^^"
^DD(2260,7,21,1,0)="This is the sex of the person involved in this incident."
^DD(2260,7,"DT")="3000530"
^DD(2260,8,0)="HOME STREET ADDRESS^F^^2162A;4^K:$L(X)>30!($L(X)<3) X"
^DD(2260,8,.1)="HOME STR. ADDRESS"
^DD(2260,8,3)="Answer must be 3-30 characters in length."
^DD(2260,8,21,0)="^.001^2^2^3000419^^^^"
^DD(2260,8,21,1,0)="This is the first line of the home street address of the person involved in"
^DD(2260,8,21,2,0)="this incident."
^DD(2260,8,"DT")="3000419"
^DD(2260,9,0)="CITY^F^^2162A;5^K:$L(X)>30!($L(X)<3) X"
^DD(2260,9,.1)="HOME CITY"
^DD(2260,9,3)="Answer must be 3-30 characters in length."
^DD(2260,9,21,0)="^^1^1^2980408^"
^DD(2260,9,21,1,0)="This is the city where this person resides."
^DD(2260,9,"DT")="3000419"
^DD(2260,10,0)="STATE^P5'^DIC(5,^2162A;6^Q"
^DD(2260,10,.1)="HOME STATE"
^DD(2260,10,3)="Enter the State in which this person resides."
^DD(2260,10,21,0)="^^1^1^2980413^^"
^DD(2260,10,21,1,0)="This is the State in which this person resides."
^DD(2260,10,"DT")="3000419"
^DD(2260,11,0)="ZIP CODE^FX^^2162A;7^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,11,.1)="HOME ZIP CODE"
^DD(2260,11,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,11,21,0)="^^1^1^2980604^^"
^DD(2260,11,21,1,0)="This is the Zip code for this person's home address."
^DD(2260,11,"DT")="3000419"
^DD(2260,12,0)="HOME PHONE NUMBER^F^^2162A;8^K:$L(X)>20!($L(X)<4) X"
^DD(2260,12,.1)="     HOME PHONE NUM"
^DD(2260,12,3)="Enter Area Code and number separated by hyphens, 4-20 characters. "
^DD(2260,12,21,0)="^.001^3^3^3000505^^"
^DD(2260,12,21,1,0)="This is the home phone number of the person involved in this incident."
^DD(2260,12,21,2,0)="Enter the Area Code and number separated by hyphens or spaces. "
^DD(2260,12,21,3,0)="E.g., 123-122-3456   or  123 122 3456"
^DD(2260,12,"DT")="3000505"
^DD(2260,13,0)="STATION NUMBER^RP4'^DIC(4,^2162A;9^Q"
^DD(2260,13,1,0)="^.1"
^DD(2260,13,1,1,0)="2260^D"
^DD(2260,13,1,1,1)="S ^OOPS(2260,""D"",$E(X,1,30),DA)="""""
^DD(2260,13,1,1,2)="K ^OOPS(2260,""D"",$E(X,1,30),DA)"
^DD(2260,13,1,1,3)="This index cannot be deleted"
^DD(2260,13,1,1,"DT")="2991012"
^DD(2260,13,3)="Answer must be 3-7 characters in length."
^DD(2260,13,21,0)="^^1^1^2991104^^^^"
^DD(2260,13,21,1,0)="This is the station number where the incident took place."
^DD(2260,13,"DT")="2991012"
^DD(2260,14,0)="COST CENTER/ORGANIZATION^F^^2162A;10^K:$L(X)>8!($L(X)<8)!'(X?8N) X"
^DD(2260,14,3)="Answer must be 8 characters in length."
^DD(2260,14,21,0)="^^1^1^2980424^^^"
^DD(2260,14,21,1,0)="This is the employee's cost center/organization code."
^DD(2260,14,"DT")="2980424"
^DD(2260,15,0)="OCCUPATION^F^^2162A;11^K:$L(X)>4!($L(X)<4) X"
^DD(2260,15,.1)="12.  OCCUPATION"
^DD(2260,15,3)="Answer must be 4 characters in length."
^DD(2260,15,21,0)="^.001^1^1^3000403^^^^"
^DD(2260,15,21,1,0)="This is the employee's occupation series code."
^DD(2260,15,"DT")="3000403"
^DD(2260,16,0)="GRADE^F^^2162A;12^K:$L(X)>2!($L(X)<1)!'(X?1.2N) X"
^DD(2260,16,3)="Answer must be 1-2 characters in length."
^DD(2260,16,21,0)="^^1^1^2980408^"
^DD(2260,16,21,1,0)="This is the employee's grade as of the date of injury."
^DD(2260,16,"DT")="2980407"
^DD(2260,17,0)="STEP^F^^2162A;13^K:$L(X)>2!($L(X)<1) X"
^DD(2260,17,3)="Answer must be 1-2 characters in length."
^DD(2260,17,21,0)="^^1^1^2980409^^"
^DD(2260,17,21,1,0)="This is the employee's step as of the date of injury."
^DD(2260,17,"DT")="2980409"
^DD(2260,18,0)="EDUCATION^F^^2162A;14^K:$L(X)>45!($L(X)<3) X"
^DD(2260,18,3)="Answer must be 3-45 characters in length."
^DD(2260,18,21,0)="^^1^1^2980416^^^"
^DD(2260,18,21,1,0)="This is the employee's education level."
^DD(2260,18,"DT")="2980416"
^DD(2260,19,0)="HEPATITIS B^S^Y:Yes;N:No;^2162A;15^Q"
^DD(2260,19,3)="Enter Yes or No."
^DD(2260,19,21,0)="^^3^3^2980505^^"
^DD(2260,19,21,1,0)="In cases of bodily fluid exposure (including needlesticks and sharps),"
^DD(2260,19,21,2,0)="this shows whether or not a test for Hepatitis B was done as a result of"
^DD(2260,19,21,3,0)="the exposure."
^DD(2260,19,"DT")="2980407"
^DD(2260,20,0)="HEPATITIS C^S^Y:Yes;N:No;^2162A;16^Q"
^DD(2260,20,3)="Enter Yes or No."
^DD(2260,20,21,0)="^^3^3^2980408^"
^DD(2260,20,21,1,0)="In cases of bodily fluid exposure (including needlesticks and sharps),"
^DD(2260,20,21,2,0)="this shows whether or not a test for Hepatitis C was done as a result of"
^DD(2260,20,21,3,0)="the exposure."
^DD(2260,20,"DT")="2980407"
^DD(2260,21,0)="HIV^S^Y:Yes;N:No;^2162A;17^Q"
^DD(2260,21,3)="Enter Yes or No."
^DD(2260,21,21,0)="^^3^3^2980408^"
^DD(2260,21,21,1,0)="In cases of bodily fluid exposure (including needlesticks and sharps),"
^DD(2260,21,21,2,0)="this shows whether or not a test for HIV was done as a result of the"
^DD(2260,21,21,3,0)="exposure."
^DD(2260,21,"DT")="2980407"
^DD(2260,22,0)="OTHER^S^Y:Yes;N:No;^2162A;18^Q"
^DD(2260,22,3)="Enter Yes or No."
^DD(2260,22,21,0)="^^3^3^2980408^"
^DD(2260,22,21,1,0)="In cases of bodily fluid exposure (including needlesticks and sharps),"
^DD(2260,22,21,2,0)="this shows whether or not a test other than Hepatitis B, Hepatitis C, or"
^DD(2260,22,21,3,0)="HIV was done as a result of the exposure."
^DD(2260,22,"DT")="2980407"
^DD(2260,23,0)="DATE ORDERED^D^^2162A;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,23,3)="Enter a date the tests were ordered to be done."
^DD(2260,23,21,0)="^^2^2^2980408^"
^DD(2260,23,21,1,0)="In cases of bodily fluid exposure (including needlesticks and sharps),"
^DD(2260,23,21,2,0)="this shows the date ordered for lab tests."
^DD(2260,23,"DT")="2980407"
^DD(2260,24,0)="DATE DRAWN^D^^2162A;20^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,24,3)="Enter the date the lab tests were drawn."
^DD(2260,24,21,0)="^^1^1^2980408^"
^DD(2260,24,21,1,0)="For bodily fluid exposures, this is the date the tests were done."
^DD(2260,24,"DT")="2980407"
^DD(2260,25,0)="FOLLOW-UP DATE^D^^2162A;21^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,25,3)="Enter a follow-up date."
^DD(2260,25,21,0)="^^1^1^2980408^"
^DD(2260,25,21,1,0)="This is the date follow-up should take place."
^DD(2260,25,"DT")="2980407"
^DD(2260,26,0)="GENERAL SETTING OF INCIDENT^RSX^P:Patient care setting;N:Non-patient care setting;U:Unknown;^2162B;1^"
^DD(2260,26,.1)="GENERAL SETTING OF INCIDENT "
^DD(2260,26,3)="Is this a patient care or non-patient care setting?"
^DD(2260,26,21,0)="^^2^2^2980420^^^"
^DD(2260,26,21,1,0)="This shows whether the incident took place in a patient care or"
^DD(2260,26,21,2,0)="non-patient care setting."
^DD(2260,26,"DT")="2980504"
^DD(2260,27,0)="LOCATION OF INJURY^R*P2261.4'^OOPS(2261.4,^2162B;2^S DIC(""S"")=""I $$CARE^OOPSUTL2(DA,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2260,27,.1)="LOCATION OF INJURY "
^DD(2260,27,1,0)="^.1^^0"
^DD(2260,27,3)="Select the setting that best describes where the incident took place."
^DD(2260,27,12)="Screen out those that are not linked to a LOCATION OF INCIDENT."
^DD(2260,27,12.1)="S DIC(""S"")=""I $$CARE^OOPSUTL2(DA,Y)"""
^DD(2260,27,21,0)="^^2^2^2980420^^^^"
^DD(2260,27,21,1,0)="This is the general location, either a patient care or non-patient care"
^DD(2260,27,21,2,0)="type setting, where the incident took place."
^DD(2260,27,"DT")="2980504"
^DD(2260,28,0)="DESCRIPTION OF INCIDENT^2260.028^^2162C;0"
^DD(2260,28,21,0)="^.001^3^3^3010702^^^^"
^DD(2260,28,21,1,0)="This information fully narrates the accident or incident.  It explains"
^DD(2260,28,21,2,0)="what led up to the accident, how the accident happened, equipment"
^DD(2260,28,21,3,0)="failures, material defects, etc."
^DD(2260,29,0)="CHARACTERIZATION OF INJURY^P2261'^OOPS(2261,^2162B;3^Q"
^DD(2260,29,.1)="CHARACTERIZATION OF INJURY "
^DD(2260,29,3)="Enter the best description of the injury."
^DD(2260,29,21,0)="^^1^1^2980409^"
^DD(2260,29,21,1,0)="This is the general description of the injury."
^DD(2260,29,"DT")="3010306"
^DD(2260,29.5,0)="MEDICAL EMERGENCY^S^1:Normal Operations (No Emergency);2:Medical Emergency;3:Clean-up Following Medical Emergency;^2162B;9^Q"
^DD(2260,29.5,3)="Enter how the incident relates to a medical emergency, if applicable"
^DD(2260,29.5,21,0)="^^2^2^2991129^^^^"
^DD(2260,29.5,21,1,0)="Enter the response that best describes how the incident is related to a"
^DD(2260,29.5,21,2,0)="medical emergency."
^DD(2260,29.5,23,0)="^^2^2^2991129^"
^DD(2260,29.5,23,1,0)="This Set of Codes field will collect the response that best describes how the"
^DD(2260,29.5,23,2,0)="incident is related to a medical emergency."
^DD(2260,29.5,"DT")="2991007"
^DD(2260,30,0)="BODY PART MOST AFFECTED^*P2261.1'X^OOPS(2261.1,^2162B;4^S DIC(""S"")=""I """",0,3,5,6,7,8,9,10,11,12,13,14,15,16,17,21,22,27,31,""""'[("""",""""_$P(^(0),U,2)_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2260,30,.1)="BODY PART MOST AFFECTED "
^DD(2260,30,3)="Enter the body part most affected by the injury."
^DD(2260,30,12)="THIS CODE IS NO LONGER A VALID SELECTION, PLEASE ENTER A VALID CODE."
^DD(2260,30,12.1)="S DIC(""S"")=""I """",0,3,5,6,7,8,9,10,11,12,13,14,15,16,17,21,22,27,31,""""'[("""",""""_$P(^(0),U,2)_"""","""")"""
^DD(2260,30,21,0)="^.001^3^3^3000328^^^^"
^DD(2260,30,21,1,0)=""
^DD(2260,30,21,2,0)="Enter the body part most affected by the injury."
^DD(2260,30,21,3,0)=""
^DD(2260,30,"DT")="3000321"
^DD(2260,30.1,0)="ADDITIONAL BODY PART AFFECTED^*P2261.1'X^OOPS(2261.1,^2162B;8^S DIC(""S"")=""I """",0,3,5,6,7,8,9,10,11,12,13,14,15,16,17,21,22,27,31,""""'[("""",""""_$P(^(0),U,2)_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2260,30.1,.1)="ADD. BODY PART AFFECTED"
^DD(2260,30.1,3)="Enter an additional body part that was affected by the injury."
^DD(2260,30.1,12)="THIS CODE IS NO LONGER A VALID SELECTION, PLEASE ENTER A VALID CODE."
^DD(2260,30.1,12.1)="S DIC(""S"")=""I """",0,3,5,6,7,8,9,10,11,12,13,14,15,16,17,21,22,27,31,""""'[("""",""""_$P(^(0),U,2)_"""","""")"""
^DD(2260,30.1,21,0)="^.001^3^3^3000308^^^^"
^DD(2260,30.1,21,1,0)=""
^DD(2260,30.1,21,2,0)="Enter an additional body part that was affected by the injury."
^DD(2260,30.1,21,3,0)=""
^DD(2260,30.1,"DT")="3000321"
^DD(2260,31,0)="SIDE OF BODY AFFECTED^S^L:Left;R:Right;B:Both;N:NA;^2162B;5^Q"
^DD(2260,31,.1)="SIDE OF BODY AFFECTED "
^DD(2260,31,3)="Select the side of the body most affected."
^DD(2260,31,21,0)="^^1^1^2980409^"
^DD(2260,31,21,1,0)="This is the side of the body most affected by the injury."
^DD(2260,31,"DT")="2980504"
^DD(2260,32,0)="DUTY RETURNED TO^S^F:Full duty;L:Light duty;^2162B;6^Q"
^DD(2260,32,.1)="DUTY RETURNED TO "
^DD(2260,32,3)="Did the employee return to light or full duty?"
^DD(2260,32,21,0)="^^1^1^2980409^"
^DD(2260,32,21,1,0)="The employee returned to either light or full duty."
^DD(2260,32,"DT")="3010306"
^DD(2260,33,0)="LOST TIME^S^Y:Yes;N:No;^2162B;7^Q"
^DD(2260,33,.1)="LOST TIME "
^DD(2260,33,3)="Was there lost time due to the injury?"
^DD(2260,33,21,0)="^^1^1^2980409^"
^DD(2260,33,21,1,0)="The employee did or did not lose time due to the injury."
^DD(2260,33,"DT")="2980504"
^DD(2260,34,0)="PATIENT SOURCE^S^I:Identifiable;U:Unidentifiable;N:NA;^2162D;1^Q"
^DD(2260,34,.1)="PATIENT SOURCE "
^DD(2260,34,3)="Was the source patient identifiable?"
^DD(2260,34,21,0)="^^2^2^2980409^"
^DD(2260,34,21,1,0)="This defines whether or not the source patient of the body fluid exposure"
^DD(2260,34,21,2,0)="(including needlestick and sharps) is identifiable."
^DD(2260,34,"DT")="3010306"
^DD(2260,35,0)="CONTAMINATION^S^Y:Yes;N:No;U:Unknown;^2162D;2^Q"
^DD(2260,35,.1)="CONTAMINATION "
^DD(2260,35,3)="Was the needle or sharp contaminated?"
^DD(2260,35,21,0)="^^1^1^2980413^"
^DD(2260,35,21,1,0)="This states whether or not the needle or sharp was contaminated."
^DD(2260,35,"DT")="3010306"
^DD(2260,36,0)="PURPOSE OF SHARP OBJECT^P2261.5'^OOPS(2261.5,^2162D;3^Q"
^DD(2260,36,.1)="PURPOSE OF SHARP OBJ."
^DD(2260,36,3)="Enter the original purpose for the sharp item."
^DD(2260,36,21,0)="^^1^1^2980617^^"
^DD(2260,36,21,1,0)="The sharp item was originally used for this purpose."
^DD(2260,36,"DT")="3010306"
^DD(2260,37,0)="ACTIVITY AT TIME OF INJURY^P2261.6'^OOPS(2261.6,^2162D;4^Q"
^DD(2260,37,.1)="ACTIVITY AT TIME OF INJURY "
^DD(2260,37,3)="What was happening when the injury occurred?"
^DD(2260,37,21,0)="^^1^1^2980413^"
^DD(2260,37,21,1,0)="This is the activity when the injury occurred."
^DD(2260,37,"DT")="3010306"
^DD(2260,38,0)="OBJECT CAUSING INJURY^*P2261.7'X^OOPS(2261.7,^2162D;5^S DIC(""S"")=""I $P(^(0),U,2)'=16"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2260,38,.1)="OBJECT CAUSING INJURY "
^DD(2260,38,3)="Enter the device or item that caused the injury."
^DD(2260,38,12)="This selection is no longer valid, Please select another device."
^DD(2260,38,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=16"""
^DD(2260,38,21,0)="^.001^1^1^3010305^^^^"
^DD(2260,38,21,1,0)="This is the device or item that caused the injury."
^DD(2260,38,"DT")="3010306"
^DD(2260,39,0)="AREA EXPOSED TO BODILY FLUID^2260.039SA^^2162E;0"
^DD(2260,39,21,0)="^.001^1^1^3010702^^^^"
^DD(2260,39,21,1,0)="This is a description of the exposed body parts. "
^DD(2260,40,0)="PERSONAL PROTECTIVE EQUIPMENT^2260.01PA^^2162F;0"
^DD(2260,40,21,0)="^.001^2^2^3010702^^^^"
^DD(2260,40,21,1,0)="This is a description of the protective items worn at the time of the"
^DD(2260,40,21,2,0)="exposure."
^DD(2260,41,0)="BODILY FLUID EXPOSURE SOURCE^P2261.8'^OOPS(2261.8,^2162D;6^Q"
^DD(2260,41,.1)="BODILY FLUID EXPOSURE SOURCE "
^DD(2260,41,3)="How was the employee exposed?"
^DD(2260,41,21,0)="^^1^1^2980429^^"
^DD(2260,41,21,1,0)="This explains how the exposure happened."
^DD(2260,41,"DT")="3010306"
^DD(2260,42,0)="EQUIPMENT/DEVICE FAILURE^F^^2162D;7^K:$L(X)>80!($L(X)<3) X"
^DD(2260,42,.1)="EQUIP/DEVICE FAILURE"
^DD(2260,42,3)="Answer must be 3-80 characters in length."
^DD(2260,42,21,0)="^^2^2^2991118^^"
^DD(2260,42,21,1,0)="If there was an equipment, device or product failure, this is the type of"
^DD(2260,42,21,2,0)="equipment and manufacturer name."
^DD(2260,42,"DT")="3010306"
^DD(2260,42.5,0)="EQUIP/DEVICE FAILURE OCCURRED^S^N:No;Y:Yes;^2162D;9^Q"
^DD(2260,42.5,3)="Enter whether there was an equipment or device product failure involved with the incident."
^DD(2260,42.5,21,0)="^.001^3^3^3011204^^^"
^DD(2260,42.5,21,1,0)="Indicates whether there was an equipment or device product failure"
^DD(2260,42.5,21,2,0)="involved with the incident.  If yes, user will be prompted to enter"
^DD(2260,42.5,21,3,0)="comments."
^DD(2260,42.5,"DT")="2991007"
^DD(2260,43,0)="SAFETY DESIGN DEVICE USED^SX^Y:Yes;N:No;^2162D;8^Q"
^DD(2260,43,.1)="SAFETY DESIGN DEVICE USED "
^DD(2260,43,3)="Was a safety design device used?"
^DD(2260,43,21,0)="^.001^1^1^3010305^^"
^DD(2260,43,21,1,0)="This states whether or not a safety device was used."
^DD(2260,43,"DT")="3010306"
^DD(2260,44,0)="SUPERVISOR^P200'^VA(200,^2162ES;1^Q"
^DD(2260,44,3)="Enter the name of the supervisor completing the 2162."
^DD(2260,44,21,0)="^^2^2^2980416^^^"
^DD(2260,44,21,1,0)="This is the supervisor completing the information on the Report of"
^DD(2260,44,21,2,0)="Accident (2162)."
^DD(2260,44,"DT")="2980408"
^DD(2260,45,0)="SUPERVISOR ELECTRONIC SIG^F^^2162ES;2^K:$L(X)>20!($L(X)<6) X"
^DD(2260,45,3)="Answer must be 6-20 characters in length."
^DD(2260,45,21,0)="^^1^1^2980413^"
^DD(2260,45,21,1,0)="This is the supervisor's electronic signature."
^DD(2260,45,"DT")="2980408"
^DD(2260,46,0)="SUPERVISOR SIGNATURE DATE^D^^2162ES;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,46,3)="Enter the date the 2162 was signed by the supervisor."
^DD(2260,46,21,0)="^^1^1^2980413^"
^DD(2260,46,21,1,0)="This is the date the supervisor signed the 2162."
^DD(2260,46,"DT")="2980408"
^DD(2260,47,0)="CORRECTIVE ACTION^2260.047^^2162G;0"
^DD(2260,47,.1)="CORRECTIVE ACTION TAKEN"
^DD(2260,47,21,0)="^^2^2^2980427^"
^DD(2260,47,21,1,0)="This is a statement of any corrective action that was taken to prevent"
^DD(2260,47,21,2,0)="further incidents of this kind."
^DD(2260,48,0)="SAFETY OFFICER NAME^P200'^VA(200,^2162ES;4^Q"
^DD(2260,48,3)="Enter the name of the safety officer."
^DD(2260,48,21,0)="^^1^1^2980413^"
^DD(2260,48,21,1,0)="This is the name of the safety officer."
^DD(2260,48,"DT")="2980410"
^DD(2260,49,0)="SAFETY OFF. ELECT. SIGNATURE^F^^2162ES;5^K:$L(X)>20!($L(X)<6) X"
^DD(2260,49,3)="Answer must be 6-20 characters in length."
^DD(2260,49,21,0)="^^1^1^2980413^"
^DD(2260,49,21,1,0)="This is the safety officer's electronic signature."
^DD(2260,49,"DT")="2980410"
^DD(2260,50,0)="SAFETY OFF. DATE SIGNED^D^^2162ES;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,50,3)="Enter the date the safety officer signed."
^DD(2260,50,21,0)="^^1^1^2980413^"
^DD(2260,50,21,1,0)="This is the date of the safety officer's signature."
^DD(2260,50,"DT")="2980410"
^DD(2260,51,0)="CASE STATUS^S^0:Open;1:Closed;2:Deleted;3:Replaced by amendment;^0;6^Q"
^DD(2260,51,1,0)="^.1"
^DD(2260,51,1,1,0)="^^TRIGGER^2260^54"
^DD(2260,51,1,1,1)="X ^DD(2260,51,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^OOPS(2260,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV S X=DT S DIH=$G(^OOPS(2260,DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=2260,DIG=54 D ^DICR"
^DD(2260,51,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(2260,51,1,1,69.2) S X=X=""Closed"",Y(2)=X S X=$P(Y(3),U,5)'="""",Y=X,X=Y(2),X=X&Y,Y(4)=X S X=$P(Y(5),U,11)="""",Y=X,X=Y(4),X=X&Y"
^DD(2260,51,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OOPS(2260,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="""" S DIH=$G(^OOPS(2260,DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=2260,DIG=54 D ^DICR"
^DD(2260,51,1,1,69.2)="S Y(1)=$C(59)_$P($G(^DD(2260,51,0)),U,3),Y(5)=$S($D(^OOPS(2260,D0,0)):^(0),1:""""),Y(3)=$S($D(^(""2162ES"")):^(""2162ES""),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)"
^DD(2260,51,1,1,"%D",0)="^.101^5^5^3010620^^^"
^DD(2260,51,1,1,"%D",1,0)="This trigger sets Today's date into NEEDS XMIT TO NDB field (#54) when the "
^DD(2260,51,1,1,"%D",2,0)="CASE STATUS (#51) is Closed, the Safety Officer has signed the 2162 "
^DD(2260,51,1,1,"%D",3,0)="(SAFETY OFF. ELECT. SIGNATURE #49), and the DATE TRANSMITTED (#57) is blank."
^DD(2260,51,1,1,"%D",4,0)="By setting a value in the NEEDS XMIT TO NDB field, the cross reference (""AN"")"
^DD(2260,51,1,1,"%D",5,0)="used for transmitting 2162 cases to the NDB is set."
^DD(2260,51,1,1,"CREATE CONDITION")="(CASE STATUS=""Closed"")&(SAFETY OFF. ELECT. SIGNATURE'="""")&(DATE TRANSMITTED TO NDB="""")"
^DD(2260,51,1,1,"CREATE VALUE")="TODAY"
^DD(2260,51,1,1,"DELETE VALUE")="@"
^DD(2260,51,1,1,"DT")="3010620"
^DD(2260,51,1,1,"FIELD")="NEEDS XMIT TO NDB"
^DD(2260,51,3)="Enter the status of this case."
^DD(2260,51,21,0)="^.001^1^1^3010712^^^^"
^DD(2260,51,21,1,0)="This is the status of the case."
^DD(2260,51,"DT")="3010620"
^DD(2260,52,0)="INJURY/ILLNESS^RS^1:Injury;2:Illness/disease;^0;7^Q"
^DD(2260,52,3)="Condition related to single incident is an Injury; multiple incidents is an Illness."
^DD(2260,52,21,0)="^^3^3^2980429^^^"
^DD(2260,52,21,1,0)="If the employee is relating the condition to a single incident, then"
^DD(2260,52,21,2,0)="select Injury (CA-1).  If the employee is relating the condition to more"
^DD(2260,52,21,3,0)="than one incident or more than a single shift, then select Illness (CA-2)."
^DD(2260,52,"DT")="2980416"
^DD(2260,53,0)="SUPERVISOR^RP200'^VA(200,^0;8^Q"
^DD(2260,53,3)="Enter the Name of the Employee's Supervisor."
^DD(2260,53,21,0)="^.001^3^3^3011204^^^^"
^DD(2260,53,21,1,0)=""
^DD(2260,53,21,2,0)="Enter the name of the supervisor of the person involved."
^DD(2260,53,21,3,0)=""
^DD(2260,53,"DT")="2980416"
^DD(2260,53.1,0)="SECONDARY SUPERVISOR^P200'^VA(200,^0;9^Q"
^DD(2260,53.1,21,0)="^^3^3^2980527^"
^DD(2260,53.1,21,1,0)=""
^DD(2260,53.1,21,2,0)="Enter the name of the secondary supervisor of the person involved."
^DD(2260,53.1,21,3,0)=""
^DD(2260,53.1,"DT")="2980527"
^DD(2260,54,0)="NEEDS XMIT TO NDB^DI^^0;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,54,1,0)="^.1^^-1"
^DD(2260,54,1,1,0)="2260^AN^MUMPS"
^DD(2260,54,1,1,1)="S ^OOPS(2260,""AN"",$E(X,1,30),DA)="""""
^DD(2260,54,1,1,2)="K ^OOPS(2260,""AN"",$E(X,1,30),DA)"
^DD(2260,54,1,1,"%D",0)="^.101^2^2^3010620^^^^"
^DD(2260,54,1,1,"%D",1,0)="This Xref will contain the date that the case was closed with"
^DD(2260,54,1,1,"%D",2,0)="the safety officer's signature."
^DD(2260,54,1,1,"DT")="3010613"
^DD(2260,54,3)="Enter date to transmit case to NDB."
^DD(2260,54,5,1,0)="2260^51^1"
^DD(2260,54,5,2,0)="2260^59^1"
^DD(2260,54,21,0)="^^2^2^3010613^"
^DD(2260,54,21,1,0)="This is the date that the case was determined to be valid for transmission to"
^DD(2260,54,21,2,0)="NDB."
^DD(2260,54,"DT")="3010620"
^DD(2260,55,0)="SAFETY OFF. COMMENTS^2260.055^^2162H;0"
^DD(2260,55,.1)="SAFETY OFF. COMMENTS"
^DD(2260,55,21,0)="^^1^1^2980427^"
^DD(2260,55,21,1,0)="These are comments from the safety officer about this case."
^DD(2260,56,0)="PERSON ENTERING STUB RECORD^RP200'^VA(200,^0;10^Q"
^DD(2260,56,21,0)="^^5^5^2991129^^^^"
^DD(2260,56,21,1,0)="This field is automatically populated when the 2162 Incicent report is"
^DD(2260,56,21,2,0)="created and saved.  Data entry for this field is not possible through the"
^DD(2260,56,21,3,0)="ASISTS package.  The internal value for this field is a pointer to the "
^DD(2260,56,21,4,0)="NEW PERSON File (#200).  The external value (Name) is displayed on the PRINT"
^DD(2260,56,21,5,0)="REPORT OF ACCIDENT Report."
^DD(2260,56,"DT")="2990909"
^DD(2260,57,0)="DATE TRANSMITTED TO NDB^DI^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,57,1,0)="^.1"
^DD(2260,57,1,1,0)="2260^ANC^MUMPS"
^DD(2260,57,1,1,1)="S ^OOPS(2260,""ANC"",$E(X,1,30),DA)="""""
^DD(2260,57,1,1,2)="K ^OOPS(2260,""ANC"",$E(X,1,30),DA)"
^DD(2260,57,1,1,"%D",0)="^.101^1^1^3010615^^^"
^DD(2260,57,1,1,"%D",1,0)="This index will contain the date the case was transmitted to NDB. "
^DD(2260,57,1,1,"DT")="3010613"
^DD(2260,57,1,2,0)="^^TRIGGER^2260^59"
^DD(2260,57,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OOPS(2260,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=""Y"" S DIH=$G(^OOPS(2260,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=2260,DIG=59 D ^DICR"
^DD(2260,57,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OOPS(2260,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="""" S DIH=$G(^OOPS(2260,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=2260,DIG=59 D ^DICR"
^DD(2260,57,1,2,"%D",0)="^^6^6^3010620^"
^DD(2260,57,1,2,"%D",1,0)="This trigger sets the TRANSMITTED TO NDB field (#59) to 'Y'es when the DATE"
^DD(2260,57,1,2,"%D",2,0)="TRANSMITTED TO NDB field (#57) is entered or a blank if the DATE TRANSMITTED"
^DD(2260,57,1,2,"%D",3,0)="TO NDB is deleted.  By setting a value in the TRANSMITTED TO NDB field (#59)"
^DD(2260,57,1,2,"%D",4,0)="the trigger in the TRANSMITTED TO NDB field (#59) is executed which either sets"
^DD(2260,57,1,2,"%D",5,0)="or deletes the entry in the NEEDS XMIT TO NDB field (#54) which updates the"
^DD(2260,57,1,2,"%D",6,0)="""AN"" cross reference."
^DD(2260,57,1,2,"CREATE VALUE")="""Y"""
^DD(2260,57,1,2,"DELETE VALUE")="@"
^DD(2260,57,1,2,"DT")="3010620"
^DD(2260,57,1,2,"FIELD")="TRANSMITTED TO NDB"
^DD(2260,57,9)="^"
^DD(2260,57,21,0)="^^4^4^2991129^^"
^DD(2260,57,21,1,0)=" "
^DD(2260,57,21,2,0)="The value in this field will be the last time the closed case 2162 data "
^DD(2260,57,21,3,0)="was transmitted to the NDB. If the case is closed, transmitted, then "
^DD(2260,57,21,4,0)="re-opened, this field is 'blanked' so that retransmission will be triggered."
^DD(2260,57,"DT")="3010620"
^DD(2260,58,0)="REASON FOR DELETION^F^^0;12^K:$L(X)>60!($L(X)<3) X"
^DD(2260,58,3)="Answer must be 3-60 characters in length."
^DD(2260,58,21,0)="1^.001^1^1^3011015^^^^"
^DD(2260,58,21,1,0)="Enter the reason the case is being deleted."
^DD(2260,58,23,0)="^.001^1^1^3011015^^^"
^DD(2260,58,23,1,0)="When an ASISTS case is being deleted; a reason why the case is being deleted should be given.  This field will store this free text."
^DD(2260,58,"DT")="3011015"
^DD(2260,59,0)="TRANSMITTED TO NDB^SI^Y:YES;N:NO;^0;19^Q"
^DD(2260,59,1,0)="^.1"
^DD(2260,59,1,1,0)="^^TRIGGER^2260^54"
^DD(2260,59,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^OOPS(2260,D0,0)):^(0),1:"""") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="""" S DIH=$G(^OOPS(2260,DIV(0),0)),DIV=X S $P(^(0),U,18)=DIV,DIH=2260,DIG=54 D ^DICR"
^DD(2260,59,1,1,2)="Q"
^DD(2260,59,1,1,"%D",0)="^.101^4^4^3010620^^"
^DD(2260,59,1,1,"%D",1,0)="This field is set to 'Y'es when the DATE TRANSMITTED TO NDB field (#57) is "
^DD(2260,59,1,1,"%D",2,0)="entered and a blank when the DATE TRANSMITTED TO NDB field (#57) is deleted."
^DD(2260,59,1,1,"%D",3,0)="When setting this field to 'Y', the value in the NEEDS XMIT TO NDB field (#54) "
^DD(2260,59,1,1,"%D",4,0)="is blanked and the entry in it's cross reference (""AN"") is updated (removed).  "
^DD(2260,59,1,1,"CREATE VALUE")="@"
^DD(2260,59,1,1,"DELETE VALUE")="NO EFFECT"
^DD(2260,59,1,1,"FIELD")="NEEDS XMIT TO NDB"
^DD(2260,59,3)="Enter ""Y"" if 2162 has been transmitted to NDB, ""N"" if it hasn't."
^DD(2260,59,5,1,0)="2260^57^2"
^DD(2260,59,9)="^"
^DD(2260,59,"DT")="3010712"
^DD(2260,60,0)="EMP RETIREMENT COVERAGE^RS^1:CSRS;2:FERS;3:OTHER;^CA;4^Q"
^DD(2260,60,.1)="     EMP RETIREMENT COVERAGE"
^DD(2260,60,3)="Enter the Employee's type of Retirement Coverage."
^DD(2260,60,21,0)="^.001^4^4^3000413^^^^"
^DD(2260,60,21,1,0)="This is the type of retirement coverage the employee has.  If the type"
^DD(2260,60,21,2,0)="of Coverage is 'Other' then the user will be prompted to enter a"
^DD(2260,60,21,3,0)="description for that coverage in field, EMP RETIREMENT COVERAGE DESC (#61)."
^DD(2260,60,21,4,0)="This field will be used for the CA1 and CA2."
^DD(2260,60,"DT")="3000413"
^DD(2260,61,0)="EMP RETIREMENT COVERAGE DESC^F^^CA;5^K:$L(X)>80!($L(X)<3) X"
^DD(2260,61,.1)="        EMP RETIREMENT COVERAGE DESC"
^DD(2260,61,3)="Answer must be 3-80 characters in length."
^DD(2260,61,21,0)="^.001^3^3^3000413^^^^"
^DD(2260,61,21,1,0)="This field will need to be answered if the response to EMP RETIREMENT"
^DD(2260,61,21,2,0)="COVERAGE (field #60) is 'OTHER'.  The response to this field should be a"
^DD(2260,61,21,3,0)="description of the type of other retirement coverage the employee has."
^DD(2260,61,"DT")="3000413"
^DD(2260,62,0)="NOI CODE^P2263.3'^OOPS(2263.3,^CA;3^Q"
^DD(2260,62,.1)="     OWCP USE - NOI CODE"
^DD(2260,62,3)="Enter the NOI code that best describes the Injury/Illness"
^DD(2260,62,21,0)="^.001^3^3^3000830^^^^"
^DD(2260,62,21,1,0)="Enter the NOI Code from the ASISTS DOL NATURE OF INJURY CODE Table that"
^DD(2260,62,21,2,0)="best describes the Injury/Illness.  This field is required prior to the "
^DD(2260,62,21,3,0)="electronic transmission of the CA1/CA2."
^DD(2260,62,"DT")="3000413"
^DD(2260,63,0)="PAY PLAN^F^^0;13^K:$L(X)>20!($L(X)<2) X"
^DD(2260,63,3)="Answer must be 2-20 characters in length."
^DD(2260,63,21,0)="^.001^2^2^3001213^^^^"
^DD(2260,63,21,1,0)="This is the employees Pay Plan.  This field is the Type of Pay "
^DD(2260,63,21,2,0)="used in the transmission of CA1/CA2 claims to DOL (Department of Labor)."
^DD(2260,63,"DT")="3000301"
^DD(2260,66,0)="DATE TRANSMITTED TO WCMIS^D^^CA;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,66,1,0)="^.1"
^DD(2260,66,1,1,0)="2260^AWC^MUMPS"
^DD(2260,66,1,1,1)="D WCS^OOPSUTL1"
^DD(2260,66,1,1,2)="D WCK^OOPSUTL1"
^DD(2260,66,1,1,3)="Do NOT delete this cross reference.  ALSO, do NOT reindex it."
^DD(2260,66,1,1,"%D",0)="^.101^7^7^3000317^^"
^DD(2260,66,1,1,"%D",1,0)="This xref is set when a record has been verified correct for sending to the"
^DD(2260,66,1,1,"%D",2,0)="DOL (Department of Labor) and has been included in a Mailman message for"
^DD(2260,66,1,1,"%D",3,0)="sending.  When this xref is set, the ""W"" xref for the record is removed.  This"
^DD(2260,66,1,1,"%D",4,0)="signifies that the record has been transmitted to DOL for processing.  If a"
^DD(2260,66,1,1,"%D",5,0)="problem occurred in the transmission and it was unsuccessful in reaching the"
^DD(2260,66,1,1,"%D",6,0)="AAC, this xref will be used for the manual re-transmission of claims.  This"
^DD(2260,66,1,1,"%D",7,0)="xref should NEVER be re-indexed."
^DD(2260,66,1,1,"DT")="3000317"
^DD(2260,66,3)="Date that the completed CA1 or CA2 claim was transmitted to DOL "
^DD(2260,66,21,0)="^.001^3^3^3000407^^^^"
^DD(2260,66,21,1,0)="This is the date that the completed CA1 or CA2 claim was electronically"
^DD(2260,66,21,2,0)="transmitted to the Austin Automation Center (AAC).  A Workers Compensation"
^DD(2260,66,21,3,0)="employee must verify the record prior to it being eligible for sending."
^DD(2260,66,"DT")="3000317"
^DD(2260,67,0)="TRANSMIT TO WCMIS^P200'^VA(200,^WCES;1^Q"
^DD(2260,67,1,0)="^.1"
^DD(2260,67,1,1,0)="2260^AW^MUMPS"
^DD(2260,67,1,1,1)="D WS^OOPSUTL1"
^DD(2260,67,1,1,2)="D WK^OOPSUTL1"
^DD(2260,67,1,1,3)="Do NOT delete or Re-index this Cross Reference.  "
^DD(2260,67,1,1,"%D",0)="^.101^6^6^3001006^^^"
^DD(2260,67,1,1,"%D",1,0)="This xref is populated with the DUZ of the person who approved"
^DD(2260,67,1,1,"%D",2,0)="the claim for transmission to DOL (Department of Labor) via the AAC"
^DD(2260,67,1,1,"%D",3,0)="and WCMIS system.  Once the claim is included in a Mailman message"
^DD(2260,67,1,1,"%D",4,0)="it is removed from this xref.  This xref is used as a control for"
^DD(2260,67,1,1,"%D",5,0)="which records need to be included for electronic transmission."
^DD(2260,67,1,1,"%D",6,0)="Therefore, this xref should never be re-indexed."
^DD(2260,67,1,1,"DT")="3000322"
^DD(2260,67,3)="Enter the name of the Worker's Compensation employee signing the form."
^DD(2260,67,21,0)="^.001^4^4^3000407^^^"
^DD(2260,67,21,1,0)="This is the name of the Worker's Compensation employee who has"
^DD(2260,67,21,2,0)="signed the CA1 or CA2 signifying that the claim is complete"
^DD(2260,67,21,3,0)="and is ready to be transmitted to the Austin Automation"
^DD(2260,67,21,4,0)="Center (AAC)."
^DD(2260,67,"DT")="3000322"
^DD(2260,68,0)="WC ELECTRONIC SIGNATURE^F^^WCES;2^K:$L(X)>20!($L(X)<6) X"
^DD(2260,68,3)="Answer must be 6-20 characters in length."
^DD(2260,68,21,0)="^^3^3^3000322^"
^DD(2260,68,21,1,0)="This is the electronic signature of the Worker's Compensation"
^DD(2260,68,21,2,0)="employee who has approved the CA1/CA2 claim for electronic"
^DD(2260,68,21,3,0)="transmission to DOL (Department of Labor)."
^DD(2260,68,"DT")="3000322"
^DD(2260,69,0)="WC DATE OF SIGNATURE^D^^WCES;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,69,3)="Enter the Date that the Worker's Comp employee approved the claim for transmission to DOL."
^DD(2260,69,21,0)="^.001^3^3^3000324^^"
^DD(2260,69,21,1,0)="This is the Date that the Worker's Compensation employee signed"
^DD(2260,69,21,2,0)="the CA1/CA2 claim, approving the electronic transmission to DOL"
^DD(2260,69,21,3,0)="(Department of Labor)."
^DD(2260,69,"DT")="3000322"
^DD(2260,70,0)="OWCP CHARGEBACK CODE^P2263.6'^OOPS(2263.6,^CA;2^Q"
^DD(2260,70,.1)="     OWCP CHARGEBACK CODE"
^DD(2260,70,3)="Enter the OWCP Chargeback code for the claim."
^DD(2260,70,21,0)="^.001^2^2^3010207^^"
^DD(2260,70,21,1,0)="This is the OWCP Chargeback code required by DOL (Department of Labor)"
^DD(2260,70,21,2,0)="for the electronic submission of a CA1/CA2 claim."
^DD(2260,70,"DT")="3010207"
^DD(2260,71,0)="EMPLOYEE BILL OF RIGHTS OK^RS^Y:Yes;N:No;^0;14^Q"
^DD(2260,71,3)="I have read and understood the Employee Bill of Rights"
^DD(2260,71,21,0)="^.001^3^3^3000829^^^^"
^DD(2260,71,21,1,0)="Indicate your reading and understanding of the Employee Bill of Rights."
^DD(2260,71,21,2,0)="If you do not understand the Bill of Rights, select No, and contact "
^DD(2260,71,21,3,0)="your facility's Workers Compensation representative for assistance."
^DD(2260,71,"DT")="3000731"
^DD(2260,72,0)="EMPLOYEE CONSENT^RS^Y:Yes;N:No;^0;15^Q"
^DD(2260,72,3)="Local bargaining units may review my case"
^DD(2260,72,21,0)="^.001^5^5^3000731^^^^"
^DD(2260,72,21,1,0)="If it is acceptable with you to allow the local bargaining unit to "
^DD(2260,72,21,2,0)="review the details of your case, select Yes, otherwise select No, "
^DD(2260,72,21,3,0)="and the details of your case WILL NOT be provided to the local "
^DD(2260,72,21,4,0)="bargaining unit.  This review is for accident and occupational "
^DD(2260,72,21,5,0)="illness tracking purposes only.  "
^DD(2260,72,"DT")="3000731"
^DD(2260,73,0)="OWCP DISTRICT OFFICE^P2262.1'^OOPS(2262.1,^0;16^Q"
^DD(2260,73,.1)="     OWCP DISTRICT OFFICE"
^DD(2260,73,3)="Enter the OWCP District Office for this claim."
^DD(2260,73,21,0)="^.001^2^2^3000829^^"
^DD(2260,73,21,1,0)="This is the OWCP District Office that the CA1/CA2 claim will be"
^DD(2260,73,21,2,0)="forwarded to upon completion of the claim."
^DD(2260,73,"DT")="3000829"
^DD(2260,74,0)="VALIDATION CODE^NJ8,0^^CA;7^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2260,74,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(2260,74,21,0)="^^2^2^3001120^"
^DD(2260,74,21,1,0)="This field contains the validation code for the verification for the"
^DD(2260,74,21,2,0)="Employees electronic signature."
^DD(2260,74,"DT")="3001120"
^DD(2260,75,0)="VALIDATION VERSION^NJ3,0^^CA;9^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2260,75,3)="Type a Number between 1 and 100, 0 Decimal Digits"
^DD(2260,75,21,0)="^^2^2^3001120^"
^DD(2260,75,21,1,0)="This field contains the version number used to encode the Employee's"
^DD(2260,75,21,2,0)="Electronic Signature Code."
^DD(2260,75,"DT")="3001120"
^DD(2260,76,0)="NAME OF SAFETY OFFICER^P200'^VA(200,^WCSE;1^Q"
^DD(2260,76,3)="Enter the Name of the Safety Officer"
^DD(2260,76,21,0)="^.001^3^3^3010122^^"
^DD(2260,76,21,1,0)="This is the name of the Safety Officer who is giving their approval that"
^DD(2260,76,21,2,0)="the Workers' Compensation personnel can electronically sign for the"
^DD(2260,76,21,3,0)="employee.  This is because the employee is not able to sign for themselves."
^DD(2260,76,"DT")="3010122"
^DD(2260,77,0)="SAFETY OFFICER ELEC. SIGN^F^^WCSE;2^K:$L(X)>20!($L(X)<6) X"
^DD(2260,77,3)="Enter your electronic signature."
^DD(2260,77,21,0)="^.001^2^2^3010122^^^"
^DD(2260,77,21,1,0)="This is the electronic signature of the Safety Officer who is approving the"
^DD(2260,77,21,2,0)="Workers' Compensation personnel to sign electronically for the employee"
^DD(2260,77,"DT")="3010122"
^DD(2260,78,0)="SAFETY OFF. ELEC. SIGN DATE^D^^WCSE;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,78,3)="Enter the date of your signature."
^DD(2260,78,21,0)="^^3^3^3010122^"
^DD(2260,78,21,1,0)="This is the date that the Safety Officer electronically signed the claim"
^DD(2260,78,21,2,0)="giving their approval that the Workers' Compensation personnel could"
^DD(2260,78,21,3,0)="electronically sign the claim for the employee."
^DD(2260,78,"DT")="3010122"
^DD(2260,79,0)="EMPLOYEE HEALTH NAME^P200'^VA(200,^WCSE;4^Q"
^DD(2260,79,3)="Enter the name of the Employee Health representative."
^DD(2260,79,21,0)="^.001^3^3^3010122^^"
^DD(2260,79,21,1,0)="This is the name of the Employee Health representative who is giving their"
^DD(2260,79,21,2,0)="approval for the Workers' Compensation personnel to electronically sign"
^DD(2260,79,21,3,0)="the claim for the employee."
^DD(2260,79,"DT")="3010122"
^DD(2260,80,0)="EMP HEALTH ELECT. SIGNATURE^F^^WCSE;5^K:$L(X)>20!($L(X)<6) X"
^DD(2260,80,3)="Enter your electronic signature."
^DD(2260,80,21,0)="^^4^4^3010122^"
^DD(2260,80,21,1,0)="This is the electronic signature of the Employee Health representative who"
^DD(2260,80,21,2,0)="is giving their approval that the Workers' Compensation personnel may"
^DD(2260,80,21,3,0)="electronically sign the claim for the employee.  This is because the"
^DD(2260,80,21,4,0)="employee is not able to electronically sign for themself."
^DD(2260,80,"DT")="3010122"
^DD(2260,81,0)="EMP HEALTH ELECT SIGN DATE^D^^WCSE;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,81,3)="Enter the date of your signature."
^DD(2260,81,21,0)="^.001^3^3^3010130^^"
^DD(2260,81,21,1,0)="This is the date that the Employee Health Representative electronically"
^DD(2260,81,21,2,0)="signed the claim giving their approval that the Workers' Compensation"
^DD(2260,81,21,3,0)="personnel could electronically sign the claim for the employee."
^DD(2260,81,"DT")="3010122"
^DD(2260,82,0)="BRAND^P2262.3^OOPS(2262.3,^2162B;10^Q"
^DD(2260,82,.1)="BRAND "
^DD(2260,82,3)="Select the Brand of the Device used during the Incident"
^DD(2260,82,21,0)="^.001^2^2^3010712^^^^"
^DD(2260,82,21,1,0)="This is the manufacturer of the device that was being used at the time"
^DD(2260,82,21,2,0)="the incident occurred."
^DD(2260,82,"DT")="3010607"
^DD(2260,83,0)="DEVICE SIZE^*P2262.2'X^OOPS(2262.2,^2162B;11^S DIC(""S"")=""I $$DEVSZ^OOPSUTL2(DA,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2260,83,.1)="   DEVICE SIZE"
^DD(2260,83,3)="Enter the DEVICE SIZE of the object that caused the injury."
^DD(2260,83,12)="Only valid selections are shown."
^DD(2260,83,12.1)="S DIC(""S"")=""I $$DEVSZ^OOPSUTL2(DA,Y)"""
^DD(2260,83,21,0)="^.001^1^1^3010306^^^^"
^DD(2260,83,21,1,0)="Enter the DEVICE SIZE of the object that caused the injury."
^DD(2260,83,"DT")="3010306"
^DD(2260,84,0)="SAFETY CHARACTERISTICS^P2261.9'^OOPS(2261.9,^2162B;12^Q"
^DD(2260,84,.1)="SAFETY DEV CHARACTERISTICS"
^DD(2260,84,3)="Enter the SAFETY CHARACTERISTICS for the device."
^DD(2260,84,21,0)="^.001^1^1^3010305^^^"
^DD(2260,84,21,1,0)="Enter the appropriate ENGINEERED SAFETY CHARACTERISTICS."
^DD(2260,84,"DT")="3010305"
^DD(2260,85,0)="SAFETY DEVICE NOT USED^F^^2162S;1^K:$L(X)>250!($L(X)<3) X"
^DD(2260,85,.1)="   EXPLAIN WHY SAFETY DEVICE NOT USED"
^DD(2260,85,3)="Answer must be 3-250 characters in length.  Enter the reason the Safety Device was not used."
^DD(2260,85,21,0)="^.001^1^1^3010305^^"
^DD(2260,85,21,1,0)="Enter the reason that a safety device was not used during this incident."
^DD(2260,85,"DT")="3010306"
^DD(2260,86,0)="SERVICE^P49'^DIC(49,^0;17^Q"
^DD(2260,86,.1)="   SERVICE"
^DD(2260,86,3)="Enter the individual's Service area."
^DD(2260,86,21,0)="^^1^1^3010305^"
^DD(2260,86,21,1,0)="This is the individual's service area at the time of the incident."
^DD(2260,86,"DT")="3010306"
^DD(2260,87,0)="INJ PRIOR TO SAFE DEV ENGAGED^S^Y:Yes;N:No;^2162B;13^Q"
^DD(2260,87,3)="Enter ""Yes"" if the injury occurred before the safety device engaged, otherwise enter a ""No""."
^DD(2260,87,21,0)="^.001^2^2^3010530^^"
^DD(2260,87,21,1,0)="This field will indicate whether the safety device on the object that caused "
^DD(2260,87,21,2,0)="the injury engaged before the injury occurred."
^DD(2260,87,"DT")="3010712"
^DD(2260,88,0)="INCLUDE ON OSHA LOG^S^Y:Yes;N:No;^2162B;14^Q"
^DD(2260,88,1,0)="^.1"
^DD(2260,88,1,1,0)="2260^AE"
^DD(2260,88,1,1,1)="S ^OOPS(2260,""AE"",$E(X,1,30),DA)="""""
^DD(2260,88,1,1,2)="K ^OOPS(2260,""AE"",$E(X,1,30),DA)"
^DD(2260,88,1,1,"%D",0)="^.101^2^2^3011204^^"
^DD(2260,88,1,1,"%D",1,0)="This index will be used to quickly determine if an ASISTS case should be"
^DD(2260,88,1,1,"%D",2,0)="included in the Log of Federal Occupational Injuries and Illnesses report."
^DD(2260,88,1,1,"DT")="3011031"
^DD(2260,88,3)="Enter 'Y'es if this claim should appear on the OSHA Log."
^DD(2260,88,21,0)="^.001^3^3^3011204^^"
^DD(2260,88,21,1,0)="This field will indicate whether the ASISTS case filed should appear on the "
^DD(2260,88,21,2,0)="Log of Federal Occupational Injuries and Illnesses.  A Yes response will"
^DD(2260,88,21,3,0)="indicate to include the claim, a No response will exclude it from the report."
^DD(2260,88,"DT")="3040901"
^DD(2260,89,0)="FATALITY^S^Y:Yes;N:No;^2162A;22^Q"
^DD(2260,89,.1)=" FATALITY"
^DD(2260,89,3)="Enter 'Y'es if the claim resulted in a fatality, otherwise, 'N'o."
^DD(2260,89,21,0)="^.001^3^3^3011204^^^"
^DD(2260,89,21,1,0)="This field will indicate whether the incident that is being reported on this"
^DD(2260,89,21,2,0)="claim resulted in a fatality.  A Yes response will indicate that a fatality"
^DD(2260,89,21,3,0)="resulted, a No response will indicate that a fatality did not occur."
^DD(2260,89,"DT")="3011204"
^DD(2260,90,0)="DATE/TIME STUB CREATED^D^^0;20^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,90,3)="Enter the Date and Time the Incident Occurred."
^DD(2260,90,21,0)="^^2^2^3011015^"
^DD(2260,90,21,1,0)="This field will capture the Date and Time that the initial Stub record (Create"
^DD(2260,90,21,2,0)="Accident/Illness Report) was filed in the system."
^DD(2260,90,"DT")="3011015"
^DD(2260,95,0)="INCIDENT OUTCOME^2260.095DA^^OUTC;0"
^DD(2260,95,21,0)="^.001^2^2^3041123^^^^"
^DD(2260,95,21,1,0)="This subfile contains information regarding the employees ability to work"
^DD(2260,95,21,2,0)="as a result of the incident."
^DD(2260,100,0)="HOME PHONE NUMBER^F^^CA1A;1^K:$L(X)>18!($L(X)<3) X"
^DD(2260,100,.1)="5. HOME PHONE"
^DD(2260,100,3)="Enter Area Code and number separated by hyphens, 3-18 characters."
^DD(2260,100,21,0)="^^3^3^2980504^"
^DD(2260,100,21,1,0)="This is the home phone number of the person involved in the incident."
^DD(2260,100,21,2,0)="Enter the Area Code and number separated by hyphens or spaces. "
^DD(2260,100,21,3,0)="E.g., 123-122-3456   or  123 122 3456 (Injury)"
^DD(2260,100,"DT")="2980504"
^DD(2260,101,0)="GRADE/LEVEL DATE OF INJURY^F^^CA1A;2^K:$L(X)>18!($L(X)<3) X"
^DD(2260,101,3)="Answer must be 3-18 characters in length."
^DD(2260,101,21,0)="^^1^1^2980410^"
^DD(2260,101,21,1,0)="This is the employee's grade/level at the time of the injury. (Injury)"
^DD(2260,101,"DT")="2980407"
^DD(2260,102,0)="STEP AS OF DATE OF INJURY^F^^CA1A;3^K:$L(X)>2!($L(X)<1) X"
^DD(2260,102,3)="Answer must be 1-2 characters in length."
^DD(2260,102,21,0)="^^1^1^2980409^"
^DD(2260,102,21,1,0)="This is the employee's step at the time of the injury. (Injury)"
^DD(2260,102,"DT")="2980407"
^DD(2260,103,0)="EMPLOYEE STREET ADDRESS^F^^CA1A;4^K:$L(X)>30!($L(X)<3) X"
^DD(2260,103,.1)="7. STREET ADDRESS"
^DD(2260,103,3)="Answer must be 3-30 characters in length."
^DD(2260,103,21,0)="^^1^1^2980409^"
^DD(2260,103,21,1,0)="This is the employee's street address. (Injury)"
^DD(2260,103,"DT")="2980504"
^DD(2260,104,0)="EMPLOYEE CITY ADDRESS^F^^CA1A;5^K:$L(X)>30!($L(X)<3) X"
^DD(2260,104,.1)="7. CITY"
^DD(2260,104,3)="Answer must be 3-30 characters in length."
^DD(2260,104,21,0)="^^1^1^2980409^"
^DD(2260,104,21,1,0)="This is the city where the employee lives. (Injury)"
^DD(2260,104,"DT")="2980504"
^DD(2260,105,0)="EMPLOYEE STATE ADDRESS^P5'^DIC(5,^CA1A;6^Q"
^DD(2260,105,.1)="7. STATE"
^DD(2260,105,3)="Enter the state."
^DD(2260,105,21,0)="^^1^1^2980409^"
^DD(2260,105,21,1,0)="This is the employee's state address. (Injury)"
^DD(2260,105,"DT")="2980504"
^DD(2260,106,0)="EMPLOYEE ZIP CODE^FX^^CA1A;7^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,106,.1)="7. ZIP CODE"
^DD(2260,106,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,106,21,0)="^^1^1^2980409^"
^DD(2260,106,21,1,0)="This is the employee's Zip code. (Injury)"
^DD(2260,106,"DT")="3000324"
^DD(2260,107,0)="DEPENDENTS^S^1:Wife, Husband;2:Children under 18;3:Other;4:Wife, Husband + Children under 18;5:Wife, Husband + Other;6:Children under 18 + Other;7:Wife, Husband + Children under 18 + Other;^CA1A;8^Q"
^DD(2260,107,3)="Select the item which best describes the employee's dependents."
^DD(2260,107,21,0)="^.001^1^1^3040419^^^^"
^DD(2260,107,21,1,0)="These are the employee's dependents. (Injury)"
^DD(2260,107,"DT")="2980501"
^DD(2260,108,0)="PLACE WHERE INJURY OCCURRED^F^^CA1A;9^K:$L(X)>60!($L(X)<3) X"
^DD(2260,108,.1)="9. PLACE WHERE INJURY OCCURRED"
^DD(2260,108,3)="Answer must be 3-60 characters in length."
^DD(2260,108,21,0)="^.001^2^2^3000306^^^"
^DD(2260,108,21,1,0)="This is a short description of where the injury occurred, e.g., 2nd"
^DD(2260,108,21,2,0)="floor, x-ray, cafeteria, etc. (Injury)"
^DD(2260,108,"DT")="3000301"
^DD(2260,109,0)="DATE/TIME INJURY OCCURRED^D^^CA1A;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,109,.1)="10. DATE/TIME INJURY OCCURRED"
^DD(2260,109,3)="Enter a date and time the injury occurred."
^DD(2260,109,21,0)="^^1^1^2990610^^^"
^DD(2260,109,21,1,0)="This is the date and time the injury occurred. (Injury)"
^DD(2260,109,"DT")="2990610"
^DD(2260,110,0)="DATE OF THIS NOTICE^DX^^CA1A;11^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,0)),U,5)\1>X D EN^DDIOL(""DATE OF THIS NOTICE cannot be prior to the DATE/TIME OF OCCURRENCE"","""",""!!?5"") K X"
^DD(2260,110,.1)="11. DATE OF THIS NOTICE"
^DD(2260,110,3)="Enter the date the CA-1 was completed."
^DD(2260,110,21,0)="^^2^2^2990909^^"
^DD(2260,110,21,1,0)="This is the date the employee completed the Federal Employee's Notice of"
^DD(2260,110,21,2,0)="Traumatic Injury and Claim for Continuation of Pay/Compensation (CA-1). (Injury)"
^DD(2260,110,"DT")="3010131"
^DD(2260,111,0)="OCCUPATION^F^^CA1A;12^K:$L(X)>30!($L(X)<2) X"
^DD(2260,111,.1)="12. EMPLOYEE'S OCCUPATION"
^DD(2260,111,3)="Answer must be 2-30 characters in length."
^DD(2260,111,21,0)="^.001^1^1^3000331^^^^"
^DD(2260,111,21,1,0)="This is a short description of the employee's occupation. (Injury)"
^DD(2260,111,"DT")="3000331"
^DD(2260,112,0)="CAUSE OF INJURY^F^^CA1B;1^K:$L(X)>200!($L(X)<1) X"
^DD(2260,112,.1)="13. CAUSE OF INJURY"
^DD(2260,112,3)="Answer must be 1-200 characters in length."
^DD(2260,112,21,0)="^^1^1^2980410^"
^DD(2260,112,21,1,0)="This is a short description of what happened and why. (Injury)"
^DD(2260,112,"DT")="2980504"
^DD(2260,113,0)="NATURE OF INJURY^F^^CA1C;1^K:$L(X)>100!($L(X)<1) X"
^DD(2260,113,.1)="14. NATURE OF INJURY"
^DD(2260,113,3)="Answer must be 1-100 characters in length."
^DD(2260,113,21,0)="^^2^2^2980410^"
^DD(2260,113,21,1,0)="This is a description of the injury and the part of the body affected,"
^DD(2260,113,21,2,0)="e.g., fracture of left leg. (Injury)"
^DD(2260,113,"DT")="2980504"
^DD(2260,114,0)="REQUEST PAY OR LEAVE^SX^COP:Continuation of regular pay;L:Sick and/or annual leave;^CA1A;13^Q"
^DD(2260,114,.1)="15. REQUEST PAY OR LEAVE"
^DD(2260,114,3)="Select Continuation of regular pay (COP) or leave (L)."
^DD(2260,114,21,0)="^^11^11^2980505^^^^"
^DD(2260,114,21,1,0)="This is the employee's choice of either continuing regular pay (COP) or"
^DD(2260,114,21,2,0)="taking sick or annual leave (L)."
^DD(2260,114,21,3,0)="If you (the employee) are disabled for work as a result of this injury and"
^DD(2260,114,21,4,0)="file CA-1 within thirty days of the injury, you are entitled to receive"
^DD(2260,114,21,5,0)="continuation of pay (COP) from your employing agency.  COP is paid for up"
^DD(2260,114,21,6,0)="to 45 days of disability, and is not charged against sick or annual leave."
^DD(2260,114,21,7,0)="You may elect sick or annual leave if you wish, but compensation from OWCP"
^DD(2260,114,21,8,0)="may not be claimed during the 45 days of COP entitlement.  (You may not"
^DD(2260,114,21,9,0)="claim compensation to repurchase leave used during this period.) Also, if"
^DD(2260,114,21,10,0)="you change your election within one year, the agency is obliged to convert"
^DD(2260,114,21,11,0)="past periods of leave to COP, which qualify. (Injury)"
^DD(2260,114,"DT")="2980505"
^DD(2260,115,0)="NAME OF WITNESS^F^^CA1D;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,115,3)="Answer must be 3-30 characters in length."
^DD(2260,115,21,0)="^^1^1^2980410^"
^DD(2260,115,21,1,0)="This is the name of the person who witnessed the incident. (Injury)"
^DD(2260,115,"DT")="2980407"
^DD(2260,116,0)="WITNESS ADDRESS^F^^CA1D;2^K:$L(X)>30!($L(X)<1) X"
^DD(2260,116,3)="Answer must be 1-30 characters in length."
^DD(2260,116,21,0)="^^4^4^2980427^^^"
^DD(2260,116,21,1,0)=""
^DD(2260,116,21,2,0)="This is the street address of the witness."
^DD(2260,116,21,3,0)="Form CA-1 item 16."
^DD(2260,116,21,4,0)=""
^DD(2260,116,"DT")="2980427"
^DD(2260,116.1,0)="WITNESS CITY^F^^CA1D;4^K:$L(X)>26!($L(X)<1) X"
^DD(2260,116.1,3)="Answer must be 1-26 characters in length."
^DD(2260,116.1,21,0)="^^4^4^2980427^"
^DD(2260,116.1,21,1,0)=""
^DD(2260,116.1,21,2,0)="This is the city address of the witness."
^DD(2260,116.1,21,3,0)="Form CA-1 item 16."
^DD(2260,116.1,21,4,0)=""
^DD(2260,116.1,"DT")="2980427"
^DD(2260,116.2,0)="WITNESS STATE^P5'^DIC(5,^CA1D;5^Q"
^DD(2260,116.2,21,0)="^^4^4^2980427^"
^DD(2260,116.2,21,1,0)=""
^DD(2260,116.2,21,2,0)="This is the state address of the witness."
^DD(2260,116.2,21,3,0)="Form CA-1 item 16."
^DD(2260,116.2,21,4,0)=""
^DD(2260,116.2,"DT")="2980427"
^DD(2260,116.3,0)="WITNESS ZIP CODE^F^^CA1D;6^K:$L(X)>10!($L(X)<5) X"
^DD(2260,116.3,3)="Answer must be 5-10 characters in length."
^DD(2260,116.3,21,0)="^^4^4^2980427^"
^DD(2260,116.3,21,1,0)=""
^DD(2260,116.3,21,2,0)="This is the zip code of the witness."
^DD(2260,116.3,21,3,0)="Form CA-1 item 16."
^DD(2260,116.3,21,4,0)=""
^DD(2260,116.3,"DT")="2980427"
^DD(2260,117,0)="DATE OF WITNESS SIGNATURE^D^^CA1D;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,117,3)="Enter the date the witness intends to sign the statement."
^DD(2260,117,21,0)="^^1^1^2980410^"
^DD(2260,117,21,1,0)="This is the date the witness signed the statement of witness on the CA-1."
^DD(2260,117,"DT")="2980407"
^DD(2260,118,0)="STATEMENT OF WITNESS^2260.0118^^CA1E;0"
^DD(2260,118,21,0)="^^2^2^2980410^"
^DD(2260,118,21,1,0)="This is the statement of the witness that describes what the witness saw,"
^DD(2260,118,21,2,0)="heard, or knows about the injury."
^DD(2260,119,0)="NAME OF EMPLOYEE^P200'^VA(200,^CA1ES;1^Q"
^DD(2260,119,3)="Enter the name of the injured employee."
^DD(2260,119,21,0)="^^1^1^2980410^"
^DD(2260,119,21,1,0)="This is the name of the employee injured during the incident. (Injury)"
^DD(2260,119,"DT")="2980407"
^DD(2260,120,0)="EMPLOYEE ELECT. SIGNATURE^F^^CA1ES;2^K:$L(X)>20!($L(X)<6) X"
^DD(2260,120,3)="Enter your electronic signature."
^DD(2260,120,21,0)="^^1^1^2980410^"
^DD(2260,120,21,1,0)="This is the electronic signature of the employee. (Injury)"
^DD(2260,120,"DT")="2980407"
^DD(2260,121,0)="EMPLOYEE DATE OF SIGNATURE^D^^CA1ES;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,121,3)="Enter the date of your signature."
^DD(2260,121,21,0)="^^1^1^2980410^"
^DD(2260,121,21,1,0)="This is the date the employee electronically signed his/her statement. (Injury)"
^DD(2260,121,"DT")="2980407"
^DD(2260,122,0)="OCCUPATION CODE^F^^CA1B;2^K:$L(X)>20!($L(X)<3) X"
^DD(2260,122,3)="Answer must be 3-20 characters in length."
^DD(2260,122,21,0)="^^1^1^2980413^"
^DD(2260,122,21,1,0)="This is the employee's occupation code."
^DD(2260,122,"DT")="2980407"
^DD(2260,123,0)="TYPE CODE^P2263'^OOPS(2263,^CA1B;3^Q"
^DD(2260,123,.1)="14b.  TYPE CODE"
^DD(2260,123,3)="Enter the Type Code that best describes the type of injury"
^DD(2260,123,21,0)="^.001^3^3^3000531^^^^"
^DD(2260,123,21,1,0)="This is the type code for this injury.  It stands for the action and is"
^DD(2260,123,21,2,0)="used along with the source code which stands for the object or substance"
^DD(2260,123,21,3,0)="to form a brief description of how the incident occurred. (Injury)"
^DD(2260,123,"DT")="3000403"
^DD(2260,124,0)="SOURCE CODE^P2263.1'^OOPS(2263.1,^CA1B;4^Q"
^DD(2260,124,.1)="14c.  SOURCE CODE"
^DD(2260,124,3)="Enter the Source code for this Injury"
^DD(2260,124,21,0)="^.001^3^3^3000403^^^^"
^DD(2260,124,21,1,0)="This is the source code for this injury.  It stands for the object or"
^DD(2260,124,21,2,0)="substance and is used along with the type code, which stands for the"
^DD(2260,124,21,3,0)="action, to form a brief description of how the incident occurred. (Injury)"
^DD(2260,124,"DT")="3000403"
^DD(2260,125,0)="WITNESS NAME^2260.0125A^^CA1W;0"
^DD(2260,125,21,0)="^.001^2^2^3000913^^^^"
^DD(2260,125,21,1,0)="This is the name of the person who witnessed the incident and is willing"
^DD(2260,125,21,2,0)="to provide their name, address and a statement describing what occurred. (Injury)"
^DD(2260,126,0)="CAUSE OF INJURY CODE^P2263.2'^OOPS(2263.2,^CA;1^Q"
^DD(2260,126,.1)="     CAUSE OF INJURY CODE"
^DD(2260,126,3)="Enter the Cause of Injury Code that best matches the Cause of Injury description entered by the claimant."
^DD(2260,126,21,0)="^.001^4^4^3000601^^^"
^DD(2260,126,21,1,0)="The Cause of Injury Code that best matches the Cause of Injury"
^DD(2260,126,21,2,0)="description entered by the Claimant.  This field is required"
^DD(2260,126,21,3,0)="prior to the electronic transmission of the CA1/CA2 to DOL"
^DD(2260,126,21,4,0)="(Department of Labor)."
^DD(2260,126,"DT")="3000601"
^DD(2260,130,0)="AGENCY NAME^F^^CA1F;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,130,.1)="17. AGENCY NAME"
^DD(2260,130,3)="Answer must be 3-30 characters in length."
^DD(2260,130,21,0)="^^2^2^2980410^"
^DD(2260,130,21,1,0)="This is the name of the reporting agency (office) to which correspondence"
^DD(2260,130,21,2,0)="from OWCP should be sent. (Injury)"
^DD(2260,130,"DT")="2980504"
^DD(2260,131,0)="AGENCY ADDRESS^F^^CA1F;2^K:$L(X)>80!($L(X)<3) X"
^DD(2260,131,.1)="   AGENCY ADDRESS"
^DD(2260,131,3)="Answer must be 3-80 characters in length."
^DD(2260,131,21,0)="^.001^1^1^3000403^^"
^DD(2260,131,21,1,0)="This is the street address of the reporting agency. (Injury)"
^DD(2260,131,"DT")="3000403"
^DD(2260,132,0)="AGENCY CITY^F^^CA1F;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,132,.1)="   AGENCY CITY"
^DD(2260,132,3)="Answer must be 3-30 characters in length."
^DD(2260,132,21,0)="^.001^1^1^3000501^^"
^DD(2260,132,21,1,0)="This is the city address of the reporting agency. (Injury)"
^DD(2260,132,"DT")="3000501"
^DD(2260,133,0)="AGENCY STATE^P5'^DIC(5,^CA1F;4^Q"
^DD(2260,133,.1)="  AGENCY STATE"
^DD(2260,133,3)="Enter the state for the reporting agency."
^DD(2260,133,21,0)="^.001^1^1^3000403^^"
^DD(2260,133,21,1,0)="This is the state address of the reporting agency. (Injury)"
^DD(2260,133,"DT")="3000403"
^DD(2260,134,0)="AGENCY ZIP CODE^FX^^CA1F;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,134,.1)="   AGENCY ZIP CODE"
^DD(2260,134,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,134,21,0)="^.001^1^1^3000403^^"
^DD(2260,134,21,1,0)="This is the Zip code for the reporting agency. (Injury)"
^DD(2260,134,"DT")="3000501"
^DD(2260,135,0)="OWCP CODE^F^^CA1F;6^K:$L(X)>10!($L(X)<3) X"
^DD(2260,135,3)="Answer must be 3-10 characters in length."
^DD(2260,135,21,0)="^^3^3^2980410^"
^DD(2260,135,21,1,0)="This is a four digit (or four digit plus two letter) code used by OWCP to"
^DD(2260,135,21,2,0)="identify the employing agency.  The proper code may be obtained from your"
^DD(2260,135,21,3,0)="Human Resources Management or compensation office, or by contacting OWCP. (Injury)"
^DD(2260,135,"DT")="2980407"
^DD(2260,136,0)="OSHA SITE CODE^F^^CA1F;7^K:$L(X)>15!($L(X)<5) X"
^DD(2260,136,3)="Answer must be 5-15 characters in length."
^DD(2260,136,21,0)="^^2^2^2980410^"
^DD(2260,136,21,1,0)="This is the Occupational Safety and Health Administration (OSHA) Site"
^DD(2260,136,21,2,0)="Code for the reporting agency. (Injury)"
^DD(2260,136,"DT")="2980407"
^DD(2260,138,0)="REGULAR HRS FROM TIME^FX^^CA1F;9^D TI^OOPSUTL3"
^DD(2260,138,.1)="20. REGULAR HRS FROM TIME"
^DD(2260,138,3)="Answer must be 2-7 characters in length."
^DD(2260,138,4)="D HLP^OOPSUTL3"
^DD(2260,138,21,0)="^^2^2^2980527^^"
^DD(2260,138,21,1,0)="At the time of the incident, this is the employee's regular working start"
^DD(2260,138,21,2,0)="time. (Injury)"
^DD(2260,138,"DT")="3000403"
^DD(2260,139,0)="REGULAR HRS TO TIME^FX^^CA1F;10^D TI^OOPSUTL3"
^DD(2260,139,.1)="20. REGULAR HRS TO TIME"
^DD(2260,139,3)="Answer must be 3-7 characters in length."
^DD(2260,139,4)="D HLP^OOPSUTL3"
^DD(2260,139,21,0)="^.001^2^2^3000403^^"
^DD(2260,139,21,1,0)="At the time of the incident, this is the employee's regular working stop"
^DD(2260,139,21,2,0)="time. (Injury)"
^DD(2260,139,"DT")="3000403"
^DD(2260,140,0)="REGULAR WORK SCHEDULE^FO^^CA1F;11^Q"
^DD(2260,140,.1)="21. REGULAR WORK SCHEDULE"
^DD(2260,140,2)="S Y(0)=Y D RWSOT^OOPSUTL2"
^DD(2260,140,2.1)="D RWSOT^OOPSUTL2"
^DD(2260,140,3)="Answer must be 1-14 characters in length."
^DD(2260,140,21,0)="^.001^4^4^3000614^^^^"
^DD(2260,140,21,1,0)="At the time of the incident, this was the work schedule for the"
^DD(2260,140,21,2,0)="employee. Examples:"
^DD(2260,140,21,3,0)="For Monday through Friday, enter     2-6"
^DD(2260,140,21,4,0)="For Sunday, Wednesday through Saturday, enter    1,4-7 or 1,4,5,6,7  (Injury)"
^DD(2260,140,"DT")="3011109"
^DD(2260,141,0)="DATE OF INJURY^D^^CA1F;12^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,141,3)="Enter the date the employee was injured."
^DD(2260,141,21,0)="^^1^1^2980410^"
^DD(2260,141,21,1,0)="This is the date the employee was injured. (Injury)"
^DD(2260,141,"DT")="2980407"
^DD(2260,142,0)="DATE/TIME WORK STOPPED^DX^^CA1F;13^S %DT=""ERX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,0)),U,5)>X D EN^DDIOL(""DATE WORK STOPPED cannot be prior to DATE/TIME OF OCCURRENCE"","""",""!!?5"") K X"
^DD(2260,142,3)="Enter the date and time the employee stopped work."
^DD(2260,142,21,0)="^.001^1^1^3011031^^^^"
^DD(2260,142,21,1,0)="This is the date and time the employee stopped work due to the injury. (Injury)"
^DD(2260,142,"DT")="3010119"
^DD(2260,143,0)="DATE PAY STOPPED^DX^^CA1G;1^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),'$$DTVAL^OOPSUTL4(X,143,142) K X"
^DD(2260,143,3)="Enter the date the employee's pay stopped."
^DD(2260,143,21,0)="^^1^1^2980410^"
^DD(2260,143,21,1,0)="This is the date the employee's pay stopped. (Injury)"
^DD(2260,143,"DT")="3010119"
^DD(2260,144,0)="DATE 45 DAY PERIOD BEGAN^DX^^CA1G;2^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),'$$DTVAL^OOPSUTL4(X,144,142) K X"
^DD(2260,144,3)="Enter the date the 45 day period began."
^DD(2260,144,21,0)="^^1^1^2980410^"
^DD(2260,144,21,1,0)="This is the date the 45 day period began for COP. (Injury)"
^DD(2260,144,"DT")="3011109"
^DD(2260,145,0)="DATE/TIME RETURNED TO WORK^DX^^CA1G;3^S %DT=""ERX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),'$$DTVAL^OOPSUTL4(X,145,142) K X"
^DD(2260,145,3)="Enter the date and time the employee returned to work."
^DD(2260,145,21,0)="^^1^1^2980430^^"
^DD(2260,145,21,1,0)="This is the date and time the employee returned to work. (Injury)"
^DD(2260,145,"DT")="3010126"
^DD(2260,146,0)="INJURED PERFORMING DUTY^S^N:No;Y:Yes;^CA1G;4^Q"
^DD(2260,146,.1)="28. WAS EMPLOYEE INJURED IN PERFORMANCE OF DUTY"
^DD(2260,146,1,0)="^.1^^0"
^DD(2260,146,3)="Was the employee injured in performance of duty?"
^DD(2260,146,21,0)="^.001^2^2^3000403^^"
^DD(2260,146,21,1,0)="This is a Yes/No statement of whether the employee was injured while in"
^DD(2260,146,21,2,0)="the performance of duty. (Injury)"
^DD(2260,146,"DT")="3000403"
^DD(2260,147,0)="NOT INJURED PERFORMING JOB^F^^CA1G;5^K:$L(X)>80!($L(X)<3) X"
^DD(2260,147,3)="Answer must be 3-80 characters in length."
^DD(2260,147,21,0)="^^2^2^2980410^"
^DD(2260,147,21,1,0)="This is short description of why the injury was not incurred while the"
^DD(2260,147,21,2,0)="employee was in performance of duty. (Injury)"
^DD(2260,147,"DT")="2980407"
^DD(2260,148,0)="INJURY CAUSED BY EMPLOYEE^S^N:No;Y:Yes;^CA1G;6^Q"
^DD(2260,148,.1)="29. WAS INJURY CAUSED BY EMPLOYEE'S WILLFUL MISCONDUCT"
^DD(2260,148,3)="Was the injury caused by the employee's willful misconduct, intoxication, or intent to injure self or another?"
^DD(2260,148,21,0)="^.001^2^2^3000403^^"
^DD(2260,148,21,1,0)="The injury was caused (Yes) or not caused (No) by the employee's willful"
^DD(2260,148,21,2,0)="misconduct, intoxication, or intent to injure self or another. (Injury)"
^DD(2260,148,"DT")="3000403"
^DD(2260,149,0)="CAUSED BY EMPLOYEE EXPLAIN^F^^CA1G;7^K:$L(X)>80!($L(X)<3) X"
^DD(2260,149,3)="Answer must be 3-80 characters in length."
^DD(2260,149,21,0)="^^2^2^2980410^"
^DD(2260,149,21,1,0)="This is a short explanation of why the employee caused the injury through"
^DD(2260,149,21,2,0)="willful misconduct, intoxication, or intent to injure. (Injury)"
^DD(2260,149,"DT")="2980407"
^DD(2260,150,0)="INJURY CAUSED BY 3RD PARTY^S^N:No;Y:Yes;^CA1G;8^Q"
^DD(2260,150,.1)="30. WAS INJURY CAUSED BY 3RD PARTY"
^DD(2260,150,3)="Was the injury caused by a third party?"
^DD(2260,150,21,0)="^^1^1^2980410^"
^DD(2260,150,21,1,0)="The injury was caused (Yes) or was not caused (No) by a third party. (Injury)"
^DD(2260,150,"DT")="3000912"
^DD(2260,151,0)="3RD PARTY NAME^F^^CA1H;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(2260,151,.1)="31. 3RD PARTY NAME"
^DD(2260,151,3)="Answer must be 3-30 characters in length."
^DD(2260,151,21,0)="^.001^2^2^3000831^^"
^DD(2260,151,21,1,0)="If the injury was caused by someone other than the injured employee, this"
^DD(2260,151,21,2,0)="is the name of that third party. (Injury)"
^DD(2260,151,"DT")="3000912"
^DD(2260,152,0)="3RD PARTY ADDRESS^F^^CA1H;2^K:$L(X)>80!($L(X)<3) X"
^DD(2260,152,.1)="31. 3RD PARTY ADDRESS"
^DD(2260,152,3)="Answer must be 3-80 characters in length."
^DD(2260,152,21,0)="^^1^1^2980410^"
^DD(2260,152,21,1,0)="This is the street address of the third party. (Injury)"
^DD(2260,152,"DT")="3000912"
^DD(2260,153,0)="3RD PARTY CITY^F^^CA1H;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,153,.1)="31. 3RD PARY CITY"
^DD(2260,153,3)="Answer must be 3-30 characters in length."
^DD(2260,153,21,0)="^^1^1^2980410^"
^DD(2260,153,21,1,0)="This is the city address of the third party. (Injury)"
^DD(2260,153,"DT")="3000912"
^DD(2260,154,0)="3RD PARTY STATE^P5'^DIC(5,^CA1H;4^Q"
^DD(2260,154,.1)="31. 3RD PARTY STATE"
^DD(2260,154,3)="Enter the state address of the third party."
^DD(2260,154,21,0)="^^1^1^2980410^"
^DD(2260,154,21,1,0)="This is the state address of the third party. (Injury)"
^DD(2260,154,"DT")="3000912"
^DD(2260,155,0)="3RD PARTY ZIP CODE^FX^^CA1H;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,155,.1)="31. 3RD PARTY ZIP CODE"
^DD(2260,155,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,155,21,0)="^^1^1^2980410^"
^DD(2260,155,21,1,0)="This is the third party's Zip code. (Injury)"
^DD(2260,155,"DT")="3000912"
^DD(2260,156,0)="PHYSICIAN NAME^F^^CA1I;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,156,.1)="32. PHYSICIAN NAME"
^DD(2260,156,3)="Answer must be 3-30 characters in length."
^DD(2260,156,21,0)="^^2^2^2980410^"
^DD(2260,156,21,1,0)="This is the name of the physician who first provided medical care to the"
^DD(2260,156,21,2,0)="employee. (Injury)"
^DD(2260,156,"DT")="3000912"
^DD(2260,157,0)="PHYSICIAN ADDRESS^F^^CA1I;2^K:$L(X)>80!($L(X)<3) X"
^DD(2260,157,.1)="32. PHYSICIAN ADDRESS"
^DD(2260,157,3)="Answer must be 3-80 characters in length."
^DD(2260,157,21,0)="^^1^1^2980410^"
^DD(2260,157,21,1,0)="This is the physician's street address. (Injury)"
^DD(2260,157,"DT")="3000912"
^DD(2260,158,0)="PHYSICIAN CITY^F^^CA1I;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,158,.1)="32. PHYSICIAN CITY"
^DD(2260,158,3)="Answer must be 3-30 characters in length."
^DD(2260,158,21,0)="^^1^1^2980410^"
^DD(2260,158,21,1,0)="This is the physician's city address. (Injury)"
^DD(2260,158,"DT")="3000912"
^DD(2260,159,0)="PHYSICIAN STATE^P5'^DIC(5,^CA1I;4^Q"
^DD(2260,159,.1)="32. PHYSICIAN STATE"
^DD(2260,159,3)="Enter the physician's state address."
^DD(2260,159,21,0)="^^1^1^2980410^"
^DD(2260,159,21,1,0)="This is the physician's state address. (Injury)"
^DD(2260,159,"DT")="3000912"
^DD(2260,160,0)="PHYSICIAN ZIP CODE^FX^^CA1I;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,160,.1)="32. PHYSICIAN ZIP CODE"
^DD(2260,160,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,160,21,0)="^^1^1^2980410^"
^DD(2260,160,21,1,0)="This is the physician's Zip code. (Injury)"
^DD(2260,160,"DT")="3000912"
^DD(2260,161,0)="FIRST DATE MEDICAL CARE^DX^^CA1I;6^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,0)),U,5)\1>X D EN^DDIOL(""FIRST DATE MEDICAL CARE cannot be prior to DATE/TIME OF OCCURRENCE"","""",""!!?5"") K X"
^DD(2260,161,.1)="32. FIRST DATE MEDICAL CARE RECEIVED"
^DD(2260,161,3)="Enter the date the employee first received medical care."
^DD(2260,161,21,0)="^^1^1^2980410^"
^DD(2260,161,21,1,0)="This is the first date the employee received medical care for the injury. (Injury)"
^DD(2260,161,"DT")="3010131"
^DD(2260,162,0)="DISABLED FOR WORK^S^N:No;Y:Yes;^CA1I;7^Q"
^DD(2260,162,.1)="34. DO MEDICAL REPORTS SHOW EMPLOYEE IS DISABLED FOR WORK"
^DD(2260,162,3)="Do medical reports show employee is disabled for work?"
^DD(2260,162,21,0)="^.001^2^2^3000403^^^^"
^DD(2260,162,21,1,0)="This states whether or not medical reports show employee is disabled for"
^DD(2260,162,21,2,0)="work. (Injury)"
^DD(2260,162,"DT")="3000403"
^DD(2260,163,0)="SUPERVISOR AGREE/DISAGREE^S^Y:Yes;N:No;^CA1I;8^Q"
^DD(2260,163,.1)="35. DOES YOUR KNOWLEDGE OF THE FACTS AGREE WITH THE STATEMENTS OF THE EMPLOYEE"
^DD(2260,163,3)="Do you agree with the statements made by the employee and/or witness?"
^DD(2260,163,21,0)="^.001^2^2^3000403^^^^"
^DD(2260,163,21,1,0)="The supervisor's knowledge of the facts about this injury agree (Yes) or"
^DD(2260,163,21,2,0)="disagree (No) with statements of the employee and/or witness. (Injury)"
^DD(2260,163,"DT")="3000403"
^DD(2260,164,0)="SUPERVISOR NOT AGREE EXPLAIN^2260.0164^^CA1J;0"
^DD(2260,164,21,0)="^^2^2^2980410^"
^DD(2260,164,21,1,0)="This is why the supervisor does not agree with the statements of the"
^DD(2260,164,21,2,0)="employee and/or witness regarding the injury. (Injury)"
^DD(2260,165,0)="REASON AGENCY CONTROVERTS COP^2260.0165^^CA1K;0"
^DD(2260,165,21,0)="^.001^2^2^3011204^^^^"
^DD(2260,165,21,1,0)="This is a detailed reason why the employing agency controverts"
^DD(2260,165,21,2,0)="continuation of pay. (Injury)"
^DD(2260,165,"DT")="3000425"
^DD(2260,165.1,0)="AGENCY CONTROVERT^S^Y:YES;N:NO;^CA1I;10^Q"
^DD(2260,165.1,3)="Enter yes to indicate that the Agency controverts this claim "
^DD(2260,165.1,21,0)="^^2^2^3000919^"
^DD(2260,165.1,21,1,0)="This field will be used by the Worker's Compensation Specialist to indicate"
^DD(2260,165.1,21,2,0)="whether the Agency controverts the claim. (Injury)"
^DD(2260,165.1,"DT")="3000919"
^DD(2260,165.2,0)="AGENCY DISPUTE^S^Y:YES;N:NO;^CA1I;11^Q"
^DD(2260,165.2,3)="Enter yes to indicate that the Agency disputes this claim."
^DD(2260,165.2,21,0)="^^2^2^3000919^"
^DD(2260,165.2,21,1,0)="This field will be completed by the Worker's Compensation specialist to "
^DD(2260,165.2,21,2,0)="indicate whether the Agency disputes the claim. (Injury)"
^DD(2260,165.2,"DT")="3000919"
^DD(2260,166,0)="PAY RATE DOLLAR^NJ9,2^^CA1L;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>200000)!(X<0) X"
^DD(2260,166,3)="Type a Dollar Amount between 0 and 200000, 2 Decimal Digits"
^DD(2260,166,21,0)="^^1^1^2981006^^^^"
^DD(2260,166,21,1,0)="This is the amount of the pay rate when the employee stopped work. (Injury)"
^DD(2260,166,"DT")="2981006"
^DD(2260,167,0)="PAY RATE PER^S^1:WEEKLY;2:BI-WEEKLY;6:DAILY;H:HOURLY;A:ANNUAL;^CA1L;2^Q"
^DD(2260,167,3)="Enter the Employees Pay Rate when the employee stopped work."
^DD(2260,167,21,0)="^.001^2^2^3000614^^^^"
^DD(2260,167,21,1,0)="This is the rate at which the employee was receiving the pay when the"
^DD(2260,167,21,2,0)="employee stopped work. (Injury)"
^DD(2260,167,"DT")="3000503"
^DD(2260,168,0)="SUPERVISOR EXCEPTIONS^F^^CA1L;3^K:$L(X)>80!($L(X)<1) X"
^DD(2260,168,3)="Answer must be 1-80 characters in length."
^DD(2260,168,21,0)="^^2^2^2980410^"
^DD(2260,168,21,1,0)="This is the supervisor's exception to any of the information"
^DD(2260,168,21,2,0)="provided on the CA-1. (Injury)"
^DD(2260,168,"DT")="2980408"
^DD(2260,169,0)="NAME OF SUPERVISOR^P200'^VA(200,^CA1ES;4^Q"
^DD(2260,169,1,0)="^.1^^0"
^DD(2260,169,3)="Enter the name of the supervisor completing the CA-1."
^DD(2260,169,21,0)="^^2^2^2980410^"
^DD(2260,169,21,1,0)="This is the name of the supervisor completing the supervisor's portion of"
^DD(2260,169,21,2,0)="the CA-1. (Injury)"
^DD(2260,169,"DT")="3000918"
^DD(2260,170,0)="SUPERVISOR ELECT. SIGNATURE^F^^CA1ES;5^K:$L(X)>20!($L(X)<6) X"
^DD(2260,170,1,0)="^.1^^0"
^DD(2260,170,3)="Answer must be 6-20 characters in length."
^DD(2260,170,21,0)="^^1^1^2980410^"
^DD(2260,170,21,1,0)="This is the supervisor's electronic signature. (Injury)"
^DD(2260,170,"DT")="3000929"
^DD(2260,171,0)="SUPERVISOR DATE OF SIGNATURE^D^^CA1ES;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,171,3)="Enter the date of the supervisor's signature on the CA-1."
^DD(2260,171,21,0)="^^1^1^2980410^"
^DD(2260,171,21,1,0)="This is the date the supervisor signed the CA-1. (Injury)"
^DD(2260,171,"DT")="2980408"
^DD(2260,172,0)="SUPERVISOR TITLE^F^^CA1L;4^K:$L(X)>20!($L(X)<1) X"
^DD(2260,172,.1)="38.  SUPERVISOR TITLE"
^DD(2260,172,3)="Answer must be 1-20 characters in length."
^DD(2260,172,21,0)="^.001^1^1^3000403^^"
^DD(2260,172,21,1,0)="This is the supervisor's title. (Injury)"
^DD(2260,172,"DT")="3000403"
^DD(2260,173,0)="SUPERVISOR OFFICE PHONE^F^^CA1L;5^K:$L(X)>15!($L(X)<2) X"
^DD(2260,173,.1)="38.  SUPERVISOR OFFICE PHONE"
^DD(2260,173,3)="Answer must be 2-15 characters in length."
^DD(2260,173,21,0)="^.001^1^1^3000403^^"
^DD(2260,173,21,1,0)="This is the supervisor's office phone number. (Injury)"
^DD(2260,173,"DT")="3000403"
^DD(2260,173.1,0)="SUPERVISOR PHONE EXT^F^^CA1L;8^K:$L(X)>20!($L(X)<3) X"
^DD(2260,173.1,3)="Answer must be 3-20 characters in length."
^DD(2260,173.1,21,0)="^.001^2^2^3010910^^^"
^DD(2260,173.1,21,1,0)="This field is available so that the Supervisor's office phone extension can "
^DD(2260,173.1,21,2,0)="be entered for a CA1. (Injury)"
^DD(2260,173.1,"DT")="3010910"
^DD(2260,174,0)="FILING INSTRUCTIONS^S^1:No lost time and no medical expenses;2:No lost time, medical expenses incurred;3:Lost time covered by leave LWOP or COP;4:First aid injury;^CA1L;6^Q"
^DD(2260,174,.1)="38.  FILING INSTRUCTIONS"
^DD(2260,174,3)="Enter the filing instructions."
^DD(2260,174,21,0)="^.001^8^8^3000403^^^^"
^DD(2260,174,21,1,0)="These are the filing instructions for the CA-1:"
^DD(2260,174,21,2,0)="1. No lost time and no medical expense: Place this form in employee's"
^DD(2260,174,21,3,0)="medical folder(SF-66-D). "
^DD(2260,174,21,4,0)="2. No lost time, medical expense incurred or expected: forward this form"
^DD(2260,174,21,5,0)="to OWCP. "
^DD(2260,174,21,6,0)="3. Lost time covered by leave, LWOP, or COP: forward this form to"
^DD(2260,174,21,7,0)="OWCP. "
^DD(2260,174,21,8,0)="4. First Aid Injury. (Injury)"
^DD(2260,174,"DT")="3000403"
^DD(2260,175,0)="DATE NOTICE RECEIVED^DX^^CA1L;7^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,0)),U,5)\1>X D EN^DDIOL(""DATE NOTICE RECEIVED cannot be prior to DATE/TIME OF OCCURRENCE"","""",""!!?5"") K X"
^DD(2260,175,.1)="23. DATE OF NOTICE RECEIVED"
^DD(2260,175,3)="Enter the date the notice was received."
^DD(2260,175,21,0)="^^2^2^3000403^^^"
^DD(2260,175,21,1,0)="This is the date the supervisor received notice that the employee filed a"
^DD(2260,175,21,2,0)="CA-1. (Injury)"
^DD(2260,175,"DT")="3010131"
^DD(2260,176,0)="EMPLOYEE DUTY STATION^F^^CA1M;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,176,.1)="18. EMPLOYEE'S DUTY STATION"
^DD(2260,176,3)="Answer must be 3-30 characters in length."
^DD(2260,176,21,0)="^.001^1^1^3000403^^"
^DD(2260,176,21,1,0)="This is the station where the employee works. (Injury)"
^DD(2260,176,"DT")="2980527"
^DD(2260,177,0)="DUTY STATION ADDRESS^F^^CA1M;2^K:$L(X)>30!($L(X)<3) X"
^DD(2260,177,.1)="     DUTY STATION ADDRESS"
^DD(2260,177,3)="Answer must be 3-30 characters in length."
^DD(2260,177,21,0)="^.001^1^1^3000505^^^"
^DD(2260,177,21,1,0)="This is the duty station street address. (Injury)"
^DD(2260,177,"DT")="3000505"
^DD(2260,178,0)="DUTY STATION CITY^F^^CA1M;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,178,.1)="     DUTY STATION CITY"
^DD(2260,178,3)="Answer must be 3-30 characters in length."
^DD(2260,178,21,0)="^.001^1^1^3000505^^"
^DD(2260,178,21,1,0)="This is the duty station city address. (Injury)"
^DD(2260,178,"DT")="3000505"
^DD(2260,179,0)="DUTY STATION STATE^P5'^DIC(5,^CA1M;4^Q"
^DD(2260,179,.1)="     DUTY STATION ST."
^DD(2260,179,3)="Enter the duty station state."
^DD(2260,179,21,0)="^.001^1^1^3000505^^"
^DD(2260,179,21,1,0)="This is the duty station state address. (Injury)"
^DD(2260,179,"DT")="3000505"
^DD(2260,180,0)="DUTY STATION ZIP CODE^FX^^CA1M;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,180,.1)="     DUTY STATION ZIP CODE"
^DD(2260,180,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,180,21,0)="^.001^1^1^3000403^^"
^DD(2260,180,21,1,0)="This is the duty station's Zip code. (Injury)"
^DD(2260,180,"DT")="3000505"
^DD(2260,181,0)="ZIP CODE WHERE INJURY OCCURRED^FX^^CA1A;14^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,181,.1)="     ZIP CODE WHERE INJURY OCCURRED"
^DD(2260,181,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,181,21,0)="^.001^2^2^3000829^^"
^DD(2260,181,21,1,0)="This is the Zip Code of the location where the injury occurred and is used"
^DD(2260,181,21,2,0)="on the CA1 only. (Injury)"
^DD(2260,181,"DT")="3000829"
^DD(2260,182,0)="PHYSICIAN TITLE^P2263.5'^OOPS(2263.5,^CA1I;9^Q"
^DD(2260,182,.1)="31. PHYSICIAN TITLE"
^DD(2260,182,3)="Enter the Title for the Physician"
^DD(2260,182,21,0)="^.001^2^2^3000911^^^"
^DD(2260,182,21,1,0)="This is the appropriate title for the Physician who first saw the employee"
^DD(2260,182,21,2,0)="This field is used for CA1 claims. (Injury)"
^DD(2260,182,"DT")="3000911"
^DD(2260,183,0)="INJURY OCCURRED ADDRESS^F^^CA1N;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,183,.1)="9. STREET WHERE INJURY OCCURRED"
^DD(2260,183,3)="Answer must be 3-30 characters in length and is the Street address where the injury occurred."
^DD(2260,183,21,0)="^^2^2^3000831^"
^DD(2260,183,21,1,0)="This is the street address where the injury occurred.  Generally, this will be"
^DD(2260,183,21,2,0)="the same address as the duty station street address. (Injury)"
^DD(2260,183,"DT")="3000911"
^DD(2260,184,0)="INJURY OCCURRED CITY^F^^CA1N;2^K:$L(X)>20!($L(X)<3) X"
^DD(2260,184,.1)="9. CITY WHERE INJURY OCCURRED"
^DD(2260,184,3)="Answer must be 3-20 characters in length and is the City where the Injury occurred."
^DD(2260,184,21,0)="^^2^2^3000831^"
^DD(2260,184,21,1,0)="This is the City portion of the address where the injury occurred.  Generally,"
^DD(2260,184,21,2,0)="this will be the same as the individual's duty station city. (Injury)"
^DD(2260,184,"DT")="3000911"
^DD(2260,185,0)="INJURY OCCURRED STATE^P5'^DIC(5,^CA1N;3^Q"
^DD(2260,185,.1)="9. STATE WHERE INJURY OCCURRED"
^DD(2260,185,3)="Enter the State portion of the address where the injury occurred."
^DD(2260,185,21,0)="^.001^2^2^3011031^^"
^DD(2260,185,21,1,0)="This is the State portion of the address where the injury occurred.  Generally,"
^DD(2260,185,21,2,0)="this will be the same as the individual's duty station state. (Injury)"
^DD(2260,185,"DT")="3000911"
^DD(2260,199,0)="WORKER'S COMP EDIT^S^Y:Yes;N:No;^CA;8^Q"
^DD(2260,199,3)="Enter whether the Worker's Compensation Personnel edited a field that should trigger a bulletin to the Supervisor"
^DD(2260,199,9)="^"
^DD(2260,199,21,0)="^.001^6^6^3020110^^^^"
^DD(2260,199,21,1,0)="This field will indicate whether one of the following fields was edited by the"
^DD(2260,199,21,2,0)="Worker's Compensation Personnel in preparation for sending the claim to DOL"
^DD(2260,199,21,3,0)="(Department of Labor):  INJURED PERFORMING DUTY (#146), NOT INJURED PERFORMING"
^DD(2260,199,21,4,0)="DUTY (#147), INJURY CAUSED BY EMPLOYEE (#148), INJURY CAUSED BY EMPLOYEE"
^DD(2260,199,21,5,0)="EXPLAIN (#149), SUPERVISOR AGREE/DISAGREE (#163), SUPERVISOR NOT AGREE EXPLAIN"
^DD(2260,199,21,6,0)="(#164), and REASON AGENCY CONTROVERTS COP (#165). (Injury)"
^DD(2260,199,"DT")="3000310"
^DD(2260,200,0)="HOME PHONE NUMBER^F^^CA2A;1^K:$L(X)>18!($L(X)<3) X"
^DD(2260,200,.1)="5. HOME TELEPHONE"
^DD(2260,200,3)="Enter Area Code and number separated by hyphens, 3-18 characters."
^DD(2260,200,21,0)="^^3^3^2980504^"
^DD(2260,200,21,1,0)="This is the home phone number of the person involved in this incident."
^DD(2260,200,21,2,0)="Enter the Area Code and number separated by hyphens or spaces. "
^DD(2260,200,21,3,0)="E.g., 123-122-3456   or  123 122 3456 (Illness/disease)"
^DD(2260,200,"DT")="2980504"
^DD(2260,201,0)="GRADE AS OF LAST EXPOSURE^F^^CA2A;2^K:$L(X)>18!($L(X)<1) X"
^DD(2260,201,3)="Answer must be 1-18 characters in length."
^DD(2260,201,21,0)="^^1^1^2980420^^"
^DD(2260,201,21,1,0)="This is the employee's grade as of the date of last exposure. (Illness/disease)"
^DD(2260,201,"DT")="2980420"
^DD(2260,202,0)="STEP AS OF DATE OF ILL.^F^^CA2A;3^K:$L(X)>2!($L(X)<1) X"
^DD(2260,202,3)="Answer must be 1-2 characters in length."
^DD(2260,202,21,0)="^^1^1^2980410^"
^DD(2260,202,21,1,0)="This is the employee's step as of date of last exposure. (Illness/disease)"
^DD(2260,202,"DT")="2980408"
^DD(2260,203,0)="EMPLOYEE STREET ADDRESS^F^^CA2A;4^K:$L(X)>30!($L(X)<3) X"
^DD(2260,203,.1)="7. STREET ADDRESS"
^DD(2260,203,3)="Answer must be 3-30 characters in length."
^DD(2260,203,21,0)="^^1^1^2980410^"
^DD(2260,203,21,1,0)="This is the employee's street address. (Illness/disease)"
^DD(2260,203,"DT")="2980504"
^DD(2260,204,0)="EMPLOYEE CITY ADDRESS^F^^CA2A;5^K:$L(X)>30!($L(X)<3) X"
^DD(2260,204,.1)="7. CITY"
^DD(2260,204,3)="Answer must be 3-30 characters in length."
^DD(2260,204,21,0)="^^1^1^2980410^"
^DD(2260,204,21,1,0)="This is the employee's city address. (Illness/disease)"
^DD(2260,204,"DT")="2980504"
^DD(2260,205,0)="EMPLOYEE STATE ADDRESS^P5'^DIC(5,^CA2A;6^Q"
^DD(2260,205,.1)="7. STATE"
^DD(2260,205,3)="Enter the state in which the employee resides."
^DD(2260,205,21,0)="^^1^1^2980410^"
^DD(2260,205,21,1,0)="This is the employee's state address. (Illness/disease)"
^DD(2260,205,"DT")="2980504"
^DD(2260,206,0)="EMPLOYEE ZIP CODE^FX^^CA2A;7^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,206,.1)="7. ZIP CODE"
^DD(2260,206,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,206,21,0)="^^1^1^2980410^"
^DD(2260,206,21,1,0)="This is the employee's Zip code. (Illness/disease)"
^DD(2260,206,"DT")="3000324"
^DD(2260,207,0)="DEPENDENTS^S^1:Wife, Husband;2:Children under 18;3:Other;4:Wife, Husband + Children under 18;5:Wife, Husband + Other;6:Children under 18 + Other;7:Wife, Husband + Children under 18 + Other;^CA2A;8^Q"
^DD(2260,207,.1)="8. DEPENDENTS"
^DD(2260,207,3)="Enter the types of dependents."
^DD(2260,207,21,0)="^^1^1^2980501^^^^"
^DD(2260,207,21,1,0)="These are the employee's dependents. (Illness/disease)"
^DD(2260,207,"DT")="2980610"
^DD(2260,208,0)="EMPLOYEE OCCUPATION^F^^CA2A;9^K:$L(X)>30!($L(X)<2) X"
^DD(2260,208,.1)="9. EMPLOYEE'S OCCUPATION"
^DD(2260,208,3)="Answer must be 2-30 characters in length."
^DD(2260,208,21,0)="^.001^1^1^3000331^^"
^DD(2260,208,21,1,0)="This is a short description of the employee's occupation. (Illness/disease)"
^DD(2260,208,"DT")="3000331"
^DD(2260,209,0)="ILLNESS OCCURRED (LOCATION)^F^^CA2B;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,209,.1)="10. LOCATION"
^DD(2260,209,3)="Answer must be 3-30 characters in length."
^DD(2260,209,21,0)="^^2^2^2980410^"
^DD(2260,209,21,1,0)="This is the location where the employee worked when the disease or illness"
^DD(2260,209,21,2,0)="occurred. (Illness/disease)"
^DD(2260,209,"DT")="2980504"
^DD(2260,210,0)="ILLNESS OCCURRED ADDRESS^F^^CA2B;2^K:$L(X)>30!($L(X)<3) X"
^DD(2260,210,3)="Answer must be 3-30 characters in length."
^DD(2260,210,21,0)="^^1^1^2980410^"
^DD(2260,210,21,1,0)="This is the street address of the location where the illness occurred. (Illness/disease)"
^DD(2260,210,"DT")="2980410"
^DD(2260,211,0)="ILLNESS OCCURRED CITY^F^^CA2B;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,211,3)="Answer must be 3-30 characters in length."
^DD(2260,211,21,0)="^^1^1^2980410^"
^DD(2260,211,21,1,0)="This is the city of the location where the illness occurred. (Illness/disease)"
^DD(2260,211,"DT")="2980410"
^DD(2260,212,0)="ILLNESS OCCURRED STATE^P5'^DIC(5,^CA2B;4^Q"
^DD(2260,212,3)="Enter the state where the illness occurred."
^DD(2260,212,21,0)="^^1^1^2980410^"
^DD(2260,212,21,1,0)="This is the location's state where the illness occurred. (Illness/disease)"
^DD(2260,212,"DT")="2980410"
^DD(2260,213,0)="ILLNESS OCCURRED ZIP CODE^FX^^CA2B;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,213,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,213,21,0)="^^1^1^2980410^"
^DD(2260,213,21,1,0)="This is the location's zip code where the illness occurred. (Illness/disease)"
^DD(2260,213,"DT")="3000320"
^DD(2260,214,0)="DATE FIRST AWARE OF ILLNESS^DX^^CA2B;6^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$$FMDIFF^XLFDT(X,$$GET1^DIQ(2260,DA,6,""I""),2)<0 D EN^DDIOL(""DATE OF BIRTH cannot be after DATE FIRST AWARE OF ILLNESS"","""",""!!?5"") K X"
^DD(2260,214,.1)="11. DATE YOU FIRST BECAME AWARE OF DISEASE OR ILLNESS"
^DD(2260,214,3)="Enter the date you first became aware of the disease/illness."
^DD(2260,214,21,0)="^^2^2^2980410^"
^DD(2260,214,21,1,0)="This is the date you (the employee) were first aware of the disease or"
^DD(2260,214,21,2,0)="illness. (Illness/disease)"
^DD(2260,214,"DT")="3010705"
^DD(2260,215,0)="DATE FIRST REALIZED CAUSE^DX^^CA2B;7^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,""CA2B"")),U,6)\1>X D EN^DDIOL(""DATE FIRST REALIZED CAUSE cannot be prior to DATE FIRST AWARE OF ILLNESS"","""",""!!?5"") K X"
^DD(2260,215,.1)="12. DATE YOU FIRST REALIZED THE DISEASE OR ILLNESS WAS CAUSED"
^DD(2260,215,3)="Enter the date you first realized the illness was caused by your work."
^DD(2260,215,21,0)="^.001^2^2^3000331^^^"
^DD(2260,215,21,1,0)="This is the date you (the employee) first realized the disease or illness"
^DD(2260,215,21,2,0)="was caused by your employment. (Illness/disease)"
^DD(2260,215,"DT")="3010625"
^DD(2260,216,0)="RELATIONSHIP OF ILLNESS TO EMP^2260.0216^^CA2C;0"
^DD(2260,217,0)="NATURE OF DISEASE/ILLNESS^2260.0217^^CA2D;0"
^DD(2260,217,21,0)="^.001^3^3^3000419^^^"
^DD(2260,217,21,1,0)="This is a complete description of the disease or illness.  Specify the"
^DD(2260,217,21,2,0)="left or right side if applicable (e.g., rash on left leg; carpal tunnel"
^DD(2260,217,21,3,0)="syndrome, right wrist). (Illness/disease)"
^DD(2260,218,0)="CLAIM NOT FILED^2260.0218^^CA2E;0"
^DD(2260,218,21,0)="^^4^4^2980501^^^"
^DD(2260,218,21,1,0)="If this notice and claim was not filed with the employing agency within 30"
^DD(2260,218,21,2,0)="days after the date you first realized the disease or illness was caused"
^DD(2260,218,21,3,0)="or aggravated by your employment, this is your (the employee's)"
^DD(2260,218,21,4,0)="explanation of the reason for the delay. (Illness/disease)"
^DD(2260,219,0)="EMPLOYEE STATEMENT DELAYED^2260.0219^^CA2F;0"
^DD(2260,219,21,0)="^^22^22^2980430^"
^DD(2260,219,21,1,0)="If a separate narrative statement containing the following information"
^DD(2260,219,21,2,0)="will not be submitted with this form, explain the reason for the delay:"
^DD(2260,219,21,3,0)=" "
^DD(2260,219,21,4,0)="a) A detailed history of the disease or illness from the date it started."
^DD(2260,219,21,5,0)=" "
^DD(2260,219,21,6,0)="b) Complete details of the conditions of employment which are believed to"
^DD(2260,219,21,7,0)="be responsible for the disease or illness."
^DD(2260,219,21,8,0)=" "
^DD(2260,219,21,9,0)="c) A description of specific exposures to substances or stressful"
^DD(2260,219,21,10,0)="conditions causing the disease or illness, including locations where"
^DD(2260,219,21,11,0)="exposure or stress occurred, as well as, the number of hours per day and"
^DD(2260,219,21,12,0)="days of week of such exposure or stress."
^DD(2260,219,21,13,0)=" "
^DD(2260,219,21,14,0)="d) Identification of the part of the body affected. (If disability is due"
^DD(2260,219,21,15,0)="to a heart condition, give complete details of all activities for one week"
^DD(2260,219,21,16,0)="prior to the attack with particular attention to the final 24 hours of"
^DD(2260,219,21,17,0)="such period.)"
^DD(2260,219,21,18,0)=" "
^DD(2260,219,21,19,0)="e) A statement as to whether the employee ever suffered a similar"
^DD(2260,219,21,20,0)="condition.  If so, provide full details of onset, history, and medical"
^DD(2260,219,21,21,0)="care received, along with names and addresses of physicians rendering"
^DD(2260,219,21,22,0)="treatment. (Illness/disease)"
^DD(2260,220,0)="MEDICAL REPORT DELAYED^2260.02^^CA2G;0"
^DD(2260,220,21,0)="^^14^14^2980430^^^^"
^DD(2260,220,21,1,0)="If medical reports containing the information listed here are not"
^DD(2260,220,21,2,0)="submitted with this form, explain the reason for the delay."
^DD(2260,220,21,3,0)=" "
^DD(2260,220,21,4,0)="a) Dates of examination or treatment."
^DD(2260,220,21,5,0)="b) History given to the physician by the employee."
^DD(2260,220,21,6,0)="c) Detailed description of the physician's findings."
^DD(2260,220,21,7,0)="d) Results of x-rays, laboratory tests, etc."
^DD(2260,220,21,8,0)="e) Diagnosis."
^DD(2260,220,21,9,0)="f) Clinical course of treatment."
^DD(2260,220,21,10,0)="g) Physician's opinion as to whether the disease or illness was caused or"
^DD(2260,220,21,11,0)="aggravated by the employment, along with an explanation of the basis for"
^DD(2260,220,21,12,0)="this opinion. (Medical reports that do not explain the basis for the"
^DD(2260,220,21,13,0)="physician's opinion are given very little weight in adjudicating the"
^DD(2260,220,21,14,0)="claim.) (Illness/disease)"
^DD(2260,221,0)="NAME OF EMPLOYEE^P200'^VA(200,^CA2ES;1^Q"
^DD(2260,221,"DT")="2980427"
^DD(2260,222,0)="EMPLOYEE ELECT. SIGNATURE^F^^CA2ES;2^K:$L(X)>20!($L(X)<6) X"
^DD(2260,222,3)="Answer must be 6-20 characters in length."
^DD(2260,222,21,0)="^^1^1^2980413^"
^DD(2260,222,21,1,0)="This is your (the employee's) electronic signature.   (Illness/disease)"
^DD(2260,222,"DT")="2980408"
^DD(2260,223,0)="DATE OF EMPLOYEE SIGNATURE^D^^CA2ES;3^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,223,3)="Enter the date you signed this notice/claim."
^DD(2260,223,21,0)="^^2^2^2980413^"
^DD(2260,223,21,1,0)="This is the date you (the employee) signed the notice/claim for"
^DD(2260,223,21,2,0)="compensation. (Illness/disease)"
^DD(2260,223,"DT")="2980408"
^DD(2260,224,0)="OCCUPATION^F^^CA2B;8^K:$L(X)>20!($L(X)<3) X"
^DD(2260,224,3)="Answer must be 3-20 characters in length."
^DD(2260,224,"DT")="2980408"
^DD(2260,225,0)="OWCP USE NOI CODE^F^^CA2B;9^K:$L(X)>10!($L(X)<1) X"
^DD(2260,225,3)="Answer must be 1-10 characters in length."
^DD(2260,225,"DT")="2980408"
^DD(2260,226,0)="TYPE CODE^P2263'^OOPS(2263,^CA2B;10^Q"
^DD(2260,226,.1)="     TYPE CODE"
^DD(2260,226,3)="Enter the Type Code that best describes the type of injury"
^DD(2260,226,21,0)="^.001^3^3^3000512^^^"
^DD(2260,226,21,1,0)="This is the Type code for this claim.  The Type code stands for an action"
^DD(2260,226,21,2,0)="and is associated with the Source code which is an object or substance."
^DD(2260,226,21,3,0)="Both are used to summarize the incident. (Illness/disease)"
^DD(2260,226,"DT")="3000512"
^DD(2260,227,0)="SOURCE CODE^P2263.1'^OOPS(2263.1,^CA2B;11^Q"
^DD(2260,227,.1)="     SOURCE CODE"
^DD(2260,227,3)="Enter the Source code for this claim"
^DD(2260,227,21,0)="^.001^3^3^3000512^^^^"
^DD(2260,227,21,1,0)="This is the Source code for this claim.  It is the object or substance"
^DD(2260,227,21,2,0)="that is used along with the Type code which is an action.  Both are used"
^DD(2260,227,21,3,0)="to summarize the incident. (Illness/disease)"
^DD(2260,227,"DT")="3000512"
^DD(2260,230,0)="AGENCY NAME^F^^CA2H;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,230,.1)="19. AGENCY NAME"
^DD(2260,230,3)="Answer must be 3-30 characters in length."
^DD(2260,230,21,0)="^^1^1^2980413^^"
^DD(2260,230,21,1,0)="This is the agency name of the station reporting the incident. (Illness/disease)"
^DD(2260,230,"DT")="2980504"
^DD(2260,231,0)="AGENCY ADDRESS^F^^CA2H;2^K:$L(X)>30!($L(X)<3) X"
^DD(2260,231,.1)=" AGENCY ADDRESS"
^DD(2260,231,3)="Answer must be 3-30 characters in length."
^DD(2260,231,21,0)="^.001^1^1^3000403^^^"
^DD(2260,231,21,1,0)="This is the street address of the agency reporting the incident. (Illness/disease)"
^DD(2260,231,"DT")="3000403"
^DD(2260,232,0)="AGENCY CITY^F^^CA2H;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,232,.1)="  AGENCY CITY"
^DD(2260,232,3)="Answer must be 3-30 characters in length."
^DD(2260,232,21,0)="^.001^1^1^3000403^^^"
^DD(2260,232,21,1,0)="This is the city address of the agency reporting the incident. (Illness/disease)"
^DD(2260,232,"DT")="3000501"
^DD(2260,233,0)="AGENCY STATE^P5'^DIC(5,^CA2H;4^Q"
^DD(2260,233,.1)=" AGENCY STATE"
^DD(2260,233,3)="Enter the agency's state address."
^DD(2260,233,21,0)="^.001^1^1^3000403^^^"
^DD(2260,233,21,1,0)="This is the state address of the agency reporting the incident. (Illness/disease)"
^DD(2260,233,"DT")="3000403"
^DD(2260,234,0)="AGENCY ZIP CODE^FX^^CA2H;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,234,.1)=" AGENCY ZIP CODE"
^DD(2260,234,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,234,21,0)="^.001^1^1^3000403^^^"
^DD(2260,234,21,1,0)="This is the Zip code of the agency reporting the incident. (Illness/disease)"
^DD(2260,234,"DT")="3000403"
^DD(2260,235,0)="OWCP AGENCY CODE^F^^CA2H;6^K:$L(X)>10!($L(X)<1) X"
^DD(2260,235,3)="Answer must be 1-10 characters in length."
^DD(2260,235,21,0)="^^3^3^2980413^"
^DD(2260,235,21,1,0)="This is a four digit (or four digit plus two letter) code used by the OWCP"
^DD(2260,235,21,2,0)="to identify the employing agency.  The proper code may be obtained from"
^DD(2260,235,21,3,0)="your personnel or compensation office, or by contacting OWCP. (Illness/disease)"
^DD(2260,235,"DT")="2980409"
^DD(2260,236,0)="OSHA SITE CODE^F^^CA2H;7^K:$L(X)>10!($L(X)<1) X"
^DD(2260,236,3)="Answer must be 1-10 characters in length."
^DD(2260,236,21,0)="^^2^2^2980413^"
^DD(2260,236,21,1,0)="This is the Occupational Safety and Health Administration (OSHA) Site"
^DD(2260,236,21,2,0)="code for the reporting agency. (Illness/disease)"
^DD(2260,236,"DT")="2980409"
^DD(2260,237,0)="EMPLOYEE DUTY STATION^F^^CA2I;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,237,.1)="20. EMPLOYEE'S DUTY STATION"
^DD(2260,237,3)="Answer must be 3-30 characters in length."
^DD(2260,237,21,0)="^^1^1^2980413^"
^DD(2260,237,21,1,0)="This is the agency/site where the employee actually works. (Illness/disease)"
^DD(2260,237,"DT")="2980504"
^DD(2260,238,0)="DUTY STATION ADDRESS^F^^CA2I;2^K:$L(X)>30!($L(X)<3) X"
^DD(2260,238,.1)="     DUTY STATION ADDRESS"
^DD(2260,238,3)="Answer must be 3-30 characters in length."
^DD(2260,238,21,0)="^.001^1^1^3000505^^^"
^DD(2260,238,21,1,0)="This is the address of the site where the employee works. (Illness/disease)"
^DD(2260,238,"DT")="3000505"
^DD(2260,239,0)="DUTY STATION CITY^F^^CA2I;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,239,.1)="     DUTY STATION CITY"
^DD(2260,239,3)="Answer must be 3-30 characters in length."
^DD(2260,239,21,0)="^.001^1^1^3000505^^"
^DD(2260,239,21,1,0)="This is the city where the employee works. (Illness/disease)"
^DD(2260,239,"DT")="3000505"
^DD(2260,240,0)="DUTY STATION STATE^P5'^DIC(5,^CA2I;4^Q"
^DD(2260,240,.1)="DUTY STATION ST."
^DD(2260,240,3)="Enter the state address of the site where the employee works."
^DD(2260,240,21,0)="^^1^1^2980413^"
^DD(2260,240,21,1,0)="This is the state address for where the employee works. (Illness/disease)"
^DD(2260,240,"DT")="3000419"
^DD(2260,241,0)="DUTY STATION ZIP CODE^FX^^CA2I;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,241,.1)="     DUTY STATION ZIP CODE"
^DD(2260,241,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,241,21,0)="^.001^1^1^3000505^^^"
^DD(2260,241,21,1,0)="This is the Zip code for the employee's duty station. (Illness/disease)"
^DD(2260,241,"DT")="3000505"
^DD(2260,242,0)="REGULAR HRS FROM TIME^FX^^CA2I;6^D TI^OOPSUTL3"
^DD(2260,242,.1)="21. REGULAR HRS FROM TIME"
^DD(2260,242,3)="Answer must be 3-7 characters in length."
^DD(2260,242,4)="D HLP^OOPSUTL3"
^DD(2260,242,21,0)="^^1^1^2980617^"
^DD(2260,242,21,1,0)="This the time the employee generally starts work. (Illness/disease)"
^DD(2260,242,"DT")="2980504"
^DD(2260,243,0)="REGULAR HRS TO TIME^FX^^CA2I;7^D TI^OOPSUTL3"
^DD(2260,243,.1)="21. REGULAR HRS TO TIME"
^DD(2260,243,3)="Answer must be 3-7 characters in length."
^DD(2260,243,4)="D HLP^OOPSUTL3"
^DD(2260,243,21,0)="^.001^1^1^3000403^^"
^DD(2260,243,21,1,0)="This is the time the employee generally stops work. (Illness/disease)"
^DD(2260,243,"DT")="2980504"
^DD(2260,244,0)="REGULAR WORK SCHEDULE^FO^^CA2I;8^K:$L(X)>14!($L(X)<1) X"
^DD(2260,244,.1)="22. REGULAR WORK SCHEDULE"
^DD(2260,244,2)="S Y(0)=Y D RWSOT^OOPSUTL2"
^DD(2260,244,2.1)="D RWSOT^OOPSUTL2"
^DD(2260,244,3)="Answer must be 1-14 characters in length."
^DD(2260,244,21,0)="^^4^4^2980413^"
^DD(2260,244,21,1,0)="At the time of the incident, this was the work schedule for the"
^DD(2260,244,21,2,0)="employee. Examples:"
^DD(2260,244,21,3,0)="For Monday through Friday, enter     2-6"
^DD(2260,244,21,4,0)="For Sunday, Wednesday through Saturday, enter    1,4-7 or 1,4,5,6,7 (Illness/disease)"
^DD(2260,244,"DT")="3011109"
^DD(2260,245,0)="NAME OF PHYSICIAN^F^^CA2J;1^K:$L(X)>30!($L(X)<3) X"
^DD(2260,245,.1)="23. NAME OF PHYSICIAN"
^DD(2260,245,3)="Answer must be 3-30 characters in length."
^DD(2260,245,21,0)="^^2^2^2980413^"
^DD(2260,245,21,1,0)="This is the name of the physician first providing medical care for the"
^DD(2260,245,21,2,0)="employee. (Illness/disease)"
^DD(2260,245,"DT")="2980504"
^DD(2260,246,0)="PHYSICIAN ADDRESS^F^^CA2J;2^K:$L(X)>30!($L(X)<3) X"
^DD(2260,246,.1)="23. PHYSICIAN ADDRESS"
^DD(2260,246,3)="Answer must be 3-30 characters in length."
^DD(2260,246,21,0)="^^1^1^2980413^"
^DD(2260,246,21,1,0)="This is the street address of the physician providing medical care. (Illness/disease)"
^DD(2260,246,"DT")="2980504"
^DD(2260,247,0)="PHYSICIAN CITY^F^^CA2J;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,247,.1)="23. PHYSICIAN CITY"
^DD(2260,247,3)="Answer must be 3-30 characters in length."
^DD(2260,247,21,0)="^^1^1^2980413^"
^DD(2260,247,21,1,0)="This is the city address of the physician providing medical care. (Illness/disease)"
^DD(2260,247,"DT")="2980504"
^DD(2260,248,0)="PHYSICIAN STATE^P5'^DIC(5,^CA2J;4^Q"
^DD(2260,248,.1)="23. PHYSICIAN STATE"
^DD(2260,248,3)="Enter the state address of the physician providing medical care."
^DD(2260,248,21,0)="^^1^1^2980413^"
^DD(2260,248,21,1,0)="This is the state address of the physician providing medical care. (Illness/disease)"
^DD(2260,248,"DT")="2980504"
^DD(2260,249,0)="PHYSICIAN ZIP CODE^FX^^CA2J;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,249,.1)="23. PHYSICIAN ZIP CODE"
^DD(2260,249,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,249,21,0)="^^1^1^2980413^"
^DD(2260,249,21,1,0)="This is the Zip code for the physician's address. (Illness/disease)"
^DD(2260,249,"DT")="3000324"
^DD(2260,250,0)="FIRST DATE MEDICAL CARE^DX^^CA2J;6^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,""CA2B"")),U,6)\1>X D EN^DDIOL(""FIRST DATE MEDICAL CARE cannot be prior to DATE FIRST AWARE OF ILLNESS"","""",""!!?5"") K X"
^DD(2260,250,.1)="24 1ST DATE MEDICAL CARE RECEIVED"
^DD(2260,250,3)="Enter the date the employee first received medical care."
^DD(2260,250,21,0)="^^2^2^2980413^"
^DD(2260,250,21,1,0)="This is the date the employee first received medical care for the"
^DD(2260,250,21,2,0)="condition. (Illness/disease)"
^DD(2260,250,"DT")="3010625"
^DD(2260,251,0)="DISABLED FOR WORK^S^Y:Yes;N:No;^CA2J;7^Q"
^DD(2260,251,.1)="25. DO MEDICAL REPORTS SHOW EMPLOYEE IS DISABLED FOR WORK"
^DD(2260,251,3)="Do medical reports show the employee is disabled for work?"
^DD(2260,251,21,0)="^^2^2^2980505^^^^"
^DD(2260,251,21,1,0)="This states whether or not (Yes or No) the medical reports show that the"
^DD(2260,251,21,2,0)="employee is disabled for work. (Illness/disease)"
^DD(2260,251,"DT")="2980505"
^DD(2260,252,0)="DATE NOTICE RECEIVED^DX^^CA2J;8^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,""CA2B"")),U,6)\1>X D EN^DDIOL(""DATE NOTICE RECEIVED cannot be prior to DATE FIRST AWARE OF ILLNESS"","""",""!!?5"") K X"
^DD(2260,252,.1)="26. DATE EMPLOYEE FIRST REPORTED CONDITION TO SUPERVISOR"
^DD(2260,252,3)="Enter the date you were first notified by the employee of the condition."
^DD(2260,252,21,0)="^.001^2^2^3000403^^"
^DD(2260,252,21,1,0)="This is the date the employee first reported the condition to the"
^DD(2260,252,21,2,0)="supervisor. (Illness/disease)"
^DD(2260,252,"DT")="3010625"
^DD(2260,253,0)="DATE/TIME WORK STOPPED^DX^^CA2J;9^S %DT=""ETR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,""CA2B"")),U,6)>X D EN^DDIOL(""DATE/TIME WORK STOPPED cannot be prior to DATE FIRST AWARE OF ILLNESS"","""",""!!?5"") K X"
^DD(2260,253,3)="Enter the date and time the employee stopped work."
^DD(2260,253,21,0)="^^1^1^2980430^^"
^DD(2260,253,21,1,0)="This is the date and time the employee stopped work due to the condition. (Illness/disease)"
^DD(2260,253,"DT")="3010625"
^DD(2260,254,0)="DATE/TIME PAY STOPPED^DX^^CA2J;10^S %DT=""ETR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),'$$DTVAL^OOPSUTL4(X,254,253) K X"
^DD(2260,254,3)="Enter the date/time the employee's pay stopped."
^DD(2260,254,21,0)="^^1^1^2980430^^^"
^DD(2260,254,21,1,0)="This is the date and time the employee's pay stopped. (Illness/disease)"
^DD(2260,254,"DT")="3010207"
^DD(2260,255,0)="DATE OF LAST EXPOSURE^DX^^CA2J;11^S %DT=""EX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),$P($G(^OOPS(2260,DA,""CA2B"")),U,5)\1>X D EN^DDIOL(""DATE OF LAST EXPOSURE cannot be prior to DATE FIRST AWARE OF ILLNESS"","""",""!!?5"") K X"
^DD(2260,255,.1)="29. DATE OF LAST EXPOSURE"
^DD(2260,255,3)="Enter the date the employee was last exposed to conditions."
^DD(2260,255,21,0)="^.001^2^2^3000403^^"
^DD(2260,255,21,1,0)="This is the date the employee was last exposed to conditions alleged to"
^DD(2260,255,21,2,0)="have caused the disease or illness. (Illness/disease)"
^DD(2260,255,"DT")="3010625"
^DD(2260,256,0)="DATE/TIME RETURNED TO WORK^DX^^CA2J;12^S %DT=""ERX"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X I $G(X),'$$DTVAL^OOPSUTL4(X,256,253) K X"
^DD(2260,256,3)="Enter the date/time the employee returned to work."
^DD(2260,256,21,0)="^^1^1^2980430^^"
^DD(2260,256,21,1,0)="This is the date and time the employee returned to work. (Illness/disease)"
^DD(2260,256,"DT")="3010119"
^DD(2260,257,0)="WORK DUTY CHANGED^2260.0257^^CA2K;0"
^DD(2260,257,21,0)="^^2^2^2980413^^"
^DD(2260,257,21,1,0)="If the work assignment changed when the employee returned to work, this is"
^DD(2260,257,21,2,0)="a description of the employee's new duties. (Illness/disease)"
^DD(2260,258,0)="INJURY CAUSED BY 3RD PARTY^S^N:No;Y:Yes;^CA2L;1^Q"
^DD(2260,258,.1)="32. WAS INJURY CAUSED BY 3RD PARTY"
^DD(2260,258,3)="Was the injury caused by a third party?"
^DD(2260,258,21,0)="^^2^2^2980413^"
^DD(2260,258,21,1,0)="This states whether or not (Yes or No) the injury was caused by a third"
^DD(2260,258,21,2,0)="party. (Illness/disease)"
^DD(2260,258,"DT")="2980504"
^DD(2260,259,0)="3RD PARTY NAME^F^^CA2L;2^K:$L(X)>30!($L(X)<3) X"
^DD(2260,259,3)="Answer must be 3-30 characters in length."
^DD(2260,259,21,0)="^^1^1^2980413^"
^DD(2260,259,21,1,0)="This is the name of the third party causing the injury. (Illness/disease)"
^DD(2260,259,"DT")="2980409"
^DD(2260,260,0)="3RD PARTY ADDRESS^F^^CA2L;3^K:$L(X)>80!($L(X)<3) X"
^DD(2260,260,3)="Answer must be 3-80 characters in length."
^DD(2260,260,21,0)="^^1^1^2980413^"
^DD(2260,260,21,1,0)="This is the street address of the third party causing the injury. (Illness/disease)"
^DD(2260,260,"DT")="2980409"
^DD(2260,261,0)="3RD PARTY CITY^F^^CA2L;4^K:$L(X)>30!($L(X)<3) X"
^DD(2260,261,3)="Answer must be 3-30 characters in length."
^DD(2260,261,21,0)="^^1^1^2980413^"
^DD(2260,261,21,1,0)="This is the city address of the third party causing the injury. (Illness/disease)"
^DD(2260,261,"DT")="2980409"
^DD(2260,262,0)="3RD PARTY STATE^P5'^DIC(5,^CA2L;5^Q"
^DD(2260,262,3)="Enter the state address of the third party."
^DD(2260,262,21,0)="^^1^1^2980413^"
^DD(2260,262,21,1,0)="This is the state address of the third party causing the injury. (Illness/disease)"
^DD(2260,262,"DT")="2980409"
^DD(2260,263,0)="3RD PARTY ZIP CODE^FX^^CA2L;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260,263,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260,263,21,0)="^^1^1^2980413^"
^DD(2260,263,21,1,0)="This is the Zip code address for the third party that caused the injury. (Illness/disease)"
^DD(2260,263,"DT")="3000324"
^DD(2260,264,0)="SUPERVISOR EXCEPTION^F^^CA2L;7^K:$L(X)>80!($L(X)<1) X"
^DD(2260,264,3)="Answer must be 1-80 characters in length."
^DD(2260,264,21,0)="^^2^2^2980413^"
^DD(2260,264,21,1,0)="If the supervisor has any exceptions to the information provided on the"
^DD(2260,264,21,2,0)="claim, they are stated here. (Illness/disease)"
^DD(2260,264,"DT")="2980409"
^DD(2260,265,0)="NAME OF SUPERVISOR^P200'^VA(200,^CA2ES;4^Q"
^DD(2260,265,3)="Enter the name of the supervisor completing this claim."
^DD(2260,265,21,0)="^^1^1^2980413^"
^DD(2260,265,21,1,0)="This is the name of the supervisor completing this notice/claim. (Illness/disease)"
^DD(2260,265,"DT")="2980409"
^DD(2260,266,0)="SUPERVISOR ELECT. SIGNATURE^F^^CA2ES;5^K:$L(X)>20!($L(X)<6) X"
^DD(2260,266,1,0)="^.1^^0"
^DD(2260,266,3)="Answer must be 6-20 characters in length."
^DD(2260,266,21,0)="^^1^1^2980413^"
^DD(2260,266,21,1,0)="This is the electronic signature of the supervisor. (Illness/disease)"
^DD(2260,266,"DT")="3000919"
^DD(2260,267,0)="SUPERVISOR DATE OF SIGNATURE^D^^CA2ES;6^S %DT=""ET"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,267,3)="Enter the date of the supervisor's signature."
^DD(2260,267,21,0)="^^1^1^2980413^"
^DD(2260,267,21,1,0)="This is the date the supervisor signs the notice/claim. (Illness/disease)"
^DD(2260,267,"DT")="2980409"
^DD(2260,268,0)="SUPERVISOR TITLE^F^^CA2H;8^K:$L(X)>20!($L(X)<1) X"
^DD(2260,268,.1)="35. SUPERVISOR TITLE"
^DD(2260,268,3)="Answer must be 1-20 characters in length."
^DD(2260,268,21,0)="^.001^1^1^3000403^^"
^DD(2260,268,21,1,0)="This is the title of the supervisor signing the notice/claim. (Illness/disease)"
^DD(2260,268,"DT")="3000403"
^DD(2260,269,0)="SUPERVISOR PHONE^F^^CA2H;9^K:$L(X)>15!($L(X)<2) X"
^DD(2260,269,.1)="35. SUPERVISOR PHONE"
^DD(2260,269,3)="Answer must be 2-15 characters in length."
^DD(2260,269,21,0)="^.001^1^1^3000403^^"
^DD(2260,269,21,1,0)="This is the supervisor's office phone number. (Illness/disease)"
^DD(2260,269,"DT")="3000403"
^DD(2260,269.1,0)="SUPERVISOR PHONE EXT^F^^CA2H;10^K:$L(X)>20!($L(X)<3) X"
^DD(2260,269.1,3)="Answer must be 3-20 characters in length."
^DD(2260,269.1,21,0)="^.001^2^2^3010910^^"
^DD(2260,269.1,21,1,0)="This field is available so that the Supervisor's office phone extension can"
^DD(2260,269.1,21,2,0)="be entered for a CA2. (Illness/disease)"
^DD(2260,269.1,"DT")="3010910"
^DD(2260,270,0)="PHYSICIAN TITLE^P2263.5'^OOPS(2263.5,^CA2J;13^Q"
^DD(2260,270,3)="Enter the Title for the Physician"
^DD(2260,270,21,0)="^.001^2^2^3000328^^"
^DD(2260,270,21,1,0)="This is the appropriate title for the Physician who first saw the employee."
^DD(2260,270,21,2,0)="This is the field to be used for a CA2 claim. (Illness/disease)"
^DD(2260,270,"DT")="3000322"
^DD(2260,303,0)="VETERAN^S^Y:Yes;N:No;^DUAL;1^Q"
^DD(2260,303,3)="Enter 'Y'es if you are a veteran."
^DD(2260,303,21,0)="^^1^1^3040526^"
^DD(2260,303,21,1,0)="This is a Yes/No field that will indicate if the employee is also a veteran."
^DD(2260,303,"DT")="3040226"
^DD(2260,304,0)="RECEIVE VETERAN BENEFITS^S^Y:Yes;N:No;^DUAL;2^Q"
^DD(2260,304,3)="Enter 'Y'es if you are receiving benefits for a military-connected disability."
^DD(2260,304,21,0)="^^2^2^3040526^"
^DD(2260,304,21,1,0)="This is a Yes/No field that will indicate whether the employee filing the CA-7"
^DD(2260,304,21,2,0)="claim is receiving military benefits."
^DD(2260,304,"DT")="3040226"
^DD(2260,305,0)="PENDING DISABILITY CLAIM^S^Y:Yes;N:No;^DUAL;3^Q"
^DD(2260,305,3)="Enter 'Y'es if you have a claim for a military-connected disability benefit pending."
^DD(2260,305,21,0)="^^2^2^3040526^"
^DD(2260,305,21,1,0)="This is a Yes/No field that will indicate whether the user has a claim pending"
^DD(2260,305,21,2,0)="review."
^DD(2260,305,"DT")="3040226"
^DD(2260,306,0)="VBA NUMBER^F^^DUAL;4^K:$L(X)>30!($L(X)<3) X"
^DD(2260,306,3)="Enter your Veteran Benefits Administration (VBA) Number."
^DD(2260,306,21,0)="^.001^2^2^3040526^^"
^DD(2260,306,21,1,0)="If the employee is a veteran, this field will contain their veteran's benefit"
^DD(2260,306,21,2,0)="number (VBA number)."
^DD(2260,306,"DT")="3040226"
^DD(2260,307,0)="MILITARY CLAIM BODY PARTS^F^^DUAL1;1^K:$L(X)>120!($L(X)<3) X"
^DD(2260,307,3)="Enter the body parts affected in your military claim."
^DD(2260,307,21,0)="^^2^2^3040526^"
^DD(2260,307,21,1,0)="This field will contain the parts of the employee's body that are involved"
^DD(2260,307,21,2,0)="in the claim."
^DD(2260,307,"DT")="3040226"
^DD(2260,308,0)="CONDITION ACCEPTED IN CLAIM^F^^DUAL;6^K:$L(X)>80!($L(X)<3) X"
^DD(2260,308,3)="Enter condition you accepted in your military claim."
^DD(2260,308,21,0)="^^1^1^3040526^"
^DD(2260,308,21,1,0)="This field contains the condition that the employee accepted in the claim."
^DD(2260,308,"DT")="3040226"
^DD(2260,309,0)="EMP NAME OF DUAL BENEFIT^P200'^VA(200,^DUAL;7^Q"
^DD(2260,309,3)="Enter the name of the person signing the dual benefits form."
^DD(2260,309,21,0)="^^2^2^3040526^"
^DD(2260,309,21,1,0)="This field will contain the pointer to the New Person file (#200) of the"
^DD(2260,309,21,2,0)="employee who signed the Dual Benefits Form."
^DD(2260,309,"DT")="3040301"
^DD(2260,310,0)="EMP DUAL BENEFITS E-SIGNATURE^F^^DUAL;8^K:$L(X)>20!($L(X)<6) X"
^DD(2260,310,3)="Enter your electronic signature."
^DD(2260,310,21,0)="^^1^1^3040526^"
^DD(2260,310,21,1,0)="This field will contain the employee's encrypted electronic signature. "
^DD(2260,310,"DT")="3040301"
^DD(2260,311,0)="EMP DUAL BENEFIT SIGN DATE^D^^DUAL;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,311,3)="Enter the date you electronically signed the dual benefits form."
^DD(2260,311,21,0)="^^2^2^3040526^"
^DD(2260,311,21,1,0)="This field will contain the date that the employee electronically signed"
^DD(2260,311,21,2,0)="the Dual Benefit Form."
^DD(2260,311,"DT")="3040301"
^DD(2260,312,0)="WC NAME FOR DUAL BENEFIT^P200'^VA(200,^DUAL;10^Q"
^DD(2260,312,3)="Enter the WC person signing the Dual Benefits claim."
^DD(2260,312,21,0)="^^2^2^3040526^"
^DD(2260,312,21,1,0)="This field contains the pointer to the New Person file (#200) for the Workers'"
^DD(2260,312,21,2,0)="Compensation specialist who electronically signed the Dual Benefits Form."
^DD(2260,312,"DT")="3040301"
^DD(2260,313,0)="WC DUAL BENEFITS E-SIGNATURE^F^^DUAL;11^K:$L(X)>20!($L(X)<6) X"
^DD(2260,313,3)="Enter your electronic signature."
^DD(2260,313,21,0)="^.001^2^2^3040526^^"
^DD(2260,313,21,1,0)="This field contains the electronic signature for the Workers' Compensation "
^DD(2260,313,21,2,0)="Specialist's who signed the Dual Benefits Form."
^DD(2260,313,"DT")="3040301"
^DD(2260,314,0)="WC DUAL BENEFITS SIGN DATE^D^^DUAL;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,314,3)="Enter the date the WC specialist signed the Dual Benefits form."
^DD(2260,314,21,0)="^^2^2^3040526^"
^DD(2260,314,21,1,0)="This field contains the date that the Workers' Compensation Specialist "
^DD(2260,314,21,2,0)="electronically signed the Dual Benefits Form."
^DD(2260,314,"DT")="3040301"
^DD(2260,330,0)="OWCP SUFFIX^F^^CA;17^K:$L(X)>2!($L(X)<2) X"
^DD(2260,330,3)="Answer must be 2 characters in length."
^DD(2260,330,21,0)="^.001^3^3^3040526^^"
^DD(2260,330,21,1,0)="This field contains a 2 character extension for the OWCP Chargeback code.  It"
^DD(2260,330,21,2,0)="provides flexibility to the facility to further identify the station although"
^DD(2260,330,21,3,0)="the extension is not required. "
^DD(2260,330,"DT")="3040318"
^DD(2260,331,0)="OWCP CODE (6 CHARACTER)^F^^CA;18^K:$L(X)>6!($L(X)<4) X"
^DD(2260,331,3)="Answer must be 4-6 characters in length."
^DD(2260,331,21,0)="^^4^4^3040526^"
^DD(2260,331,21,1,0)="This field combines the OWCP Chargeback code (table driven - ASISTS OWCP"
^DD(2260,331,21,2,0)="CHARGEBACK CODES File (#2263.6) with the 2 character, free text OWCP suffix for"
^DD(2260,331,21,3,0)="the purpose of transmitting the claim to the Department of Labor and running"
^DD(2260,331,21,4,0)="reports based on the further chargeback code designation."
^DD(2260,331,"DT")="3040318"
^DD(2260,332,0)="AGENCY CONTROVERTS CODE^P2262.4'^OOPS(2262.4,^CA1I;12^Q"
^DD(2260,332,3)="Enter the code for the agency's reason for controverts."
^DD(2260,332,21,0)="^.001^2^2^3040526^^"
^DD(2260,332,21,1,0)="This field contains the reason for controverts code that must be used when"
^DD(2260,332,21,2,0)="a case has a reason for controvert code entered."
^DD(2260,332,"DT")="3040406"
^DD(2260,333,0)="DATE OF DEATH^D^^2162A;23^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,333,3)="Enter the date the individual died."
^DD(2260,333,21,0)="^^2^2^3041122^"
^DD(2260,333,21,1,0)="If the incident resulted in a fatality, this field contains the date of "
^DD(2260,333,21,2,0)="the death."
^DD(2260,333,"DT")="3040719"
^DD(2260,334,0)="ILLNESS TYPE^S^2:Skin disorder;3:Respiratory condition;4:Poisoning;5:Hearing loss;6:All other illnesses;^2162B;15^Q"
^DD(2260,334,3)="Enter the Illness type category for this incident."
^DD(2260,334,21,0)="^.001^2^2^3041122^^"
^DD(2260,334,21,1,0)="This is the category of the Illness or Disease for the incident "
^DD(2260,334,21,2,0)="and is used in completing the OSHA 300 Log."
^DD(2260,334,"DT")="3041122"
^DD(2260,335,0)="TIME WORK BEGAN^FX^^0;22^D TI^OOPSUTL3"
^DD(2260,335,3)="Enter the time work began."
^DD(2260,335,21,0)="^^2^2^3041122^"
^DD(2260,335,21,1,0)="This is the time that the individual involved in the incident began work"
^DD(2260,335,21,2,0)="on the date of the incident."
^DD(2260,335,"DT")="3040826"
^DD(2260,336,0)="HIRE DATE^D^^2162A;24^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260,336,3)="Enter the date the individual began working."
^DD(2260,336,21,0)="^^2^2^3041122^"
^DD(2260,336,21,1,0)="This is the date (Service Computation Date) that the individual involved "
^DD(2260,336,21,2,0)="in the incident first began working."
^DD(2260,336,"DT")="3040826"
^DD(2260,337,0)="PRIVACY CASE^S^Y:Yes;N:No;^2162D;10^Q"
^DD(2260,337,3)="Enter Y if the case is a 'privacy' case."
^DD(2260,337,21,0)="^^2^2^3041122^"
^DD(2260,337,21,1,0)="This field indicates whether the incident should be treated as a 'privacy"
^DD(2260,337,21,2,0)="case'.  If so, restrictions on how the name is displayed are in place."
^DD(2260,337,"DT")="3040827"
^DD(2260,338,0)="NON VA ER TREATMENT RCVD^S^Y:Yes;N:No;^2162D;11^Q"
^DD(2260,338,3)="Enter Y if the person received treatment from a non-VA facility."
^DD(2260,338,21,0)="^.001^2^2^3041122^^"
^DD(2260,338,21,1,0)="This Yes/No field is used to indicate whether the individual involved in"
^DD(2260,338,21,2,0)="the incident was treated at a non-VA emergency treatment center."
^DD(2260,338,"DT")="3040827"
^DD(2260,339,0)="HOSPITALIZED AS INPATIENT^S^Y:Yes;N:No;^2162D;12^Q"
^DD(2260,339,3)="Enter a Y if the person was hospitalized as an inpatient."
^DD(2260,339,21,0)="^^2^2^3041122^"
^DD(2260,339,21,1,0)="This Yes/No field is used to indicate if the individual involved in the "
^DD(2260,339,21,2,0)="incident was admitted to as an inpatient to a medical center."
^DD(2260,339,"DT")="3040827"
^DD(2260,340,0)="TREATING PHYSICIAN^F^^2162D;13^K:$L(X)>30!($L(X)<3) X"
^DD(2260,340,3)="Answer must be 3-30 characters in length."
^DD(2260,340,21,0)="^^2^2^3041122^"
^DD(2260,340,21,1,0)="This field contains the name of the physician who first treated the"
^DD(2260,340,21,2,0)="individual involved in the incident."
^DD(2260,340,"DT")="3040827"
^DD(2260,341,0)="TREATED AT DIFFERENT FACILITY^S^Y:Yes;N:No;^2162L;1^Q"
^DD(2260,341,3)="Enter Y if the individual was treated at a different facility."
^DD(2260,341,21,0)="^.001^2^2^3041122^^"
^DD(2260,341,21,1,0)="This Yes/No field is used to indicate whether the individual involved in"
^DD(2260,341,21,2,0)="the incident was treated at a non-VA treatment center."
^DD(2260,341,"DT")="3040827"
^DD(2260,342,0)="OTHER FACILITY NAME^F^^2162L;2^K:$L(X)>35!($L(X)<3) X"
^DD(2260,342,3)="Answer must be 3-35 characters in length."
^DD(2260,342,21,0)="^^2^2^3041122^^"
^DD(2260,342,21,1,0)="This is the name of the facility if the individual involved in the "
^DD(2260,342,21,2,0)="incident was treated at a different facility."
^DD(2260,342,"DT")="3041122"
^DD(2260,343,0)="OTHER FACILITY STREET^F^^2162L;3^K:$L(X)>30!($L(X)<3) X"
^DD(2260,343,3)="Answer must be 3-30 characters in length."
^DD(2260,343,21,0)="^^2^2^3041122^^"
^DD(2260,343,21,1,0)="This is the street address of the facility if the individual involved "
^DD(2260,343,21,2,0)="in the incident was treated at a different facility."
^DD(2260,343,"DT")="3041122"
^DD(2260,344,0)="OTHER FACILITY CITY^F^^2162L;4^K:$L(X)>25!($L(X)<3) X"
^DD(2260,344,3)="Answer must be 3-25 characters in length."
^DD(2260,344,21,0)="^^2^2^3041122^^"
^DD(2260,344,21,1,0)="This is the city portion of the address of the facility if the "
^DD(2260,344,21,2,0)="individual involved in the incident was treated at a different facility."
^DD(2260,344,"DT")="3041122"
^DD(2260,345,0)="OTHER FACILITY STATE^P5'^DIC(5,^2162L;5^Q"
^DD(2260,345,3)="Enter the State portion of the facility address."
^DD(2260,345,21,0)="^^2^2^3041122^^"
^DD(2260,345,21,1,0)="This is the state portion of the address of the facility if the "
^DD(2260,345,21,2,0)="individual involved in the incident was treated at a different facility."
^DD(2260,345,"DT")="3041122"
^DD(2260,346,0)="OTHER FACILITY ZIP^F^^2162L;6^K:$L(X)>10!($L(X)<5) X"
^DD(2260,346,3)="Answer must be 5-10 characters in length."
^DD(2260,346,21,0)="^^2^2^3041122^"
^DD(2260,346,21,1,0)="This is the zip code portion of the address of the facility if the "
^DD(2260,346,21,2,0)="individual involved in the incident was treated at a different facility."
^DD(2260,346,"DT")="3040827"
^DD(2260,347,0)="REASON FOR DISPUTE CODE^P2262.8'^OOPS(2262.8,^CA1I;13^Q"
^DD(2260,347,3)="Enter the reason the agency is disputing the CA-1 claim."
^DD(2260,347,21,0)="^^1^1^3050412^"
^DD(2260,347,21,1,0)="This is the high level reason that the agency is disputing the CA-1."
^DD(2260,347,"DT")="3050412"
^DD(2260,348,0)="LOCATION DETAIL^F^^2162B;16^K:$L(X)>30!($L(X)<1) X"
^DD(2260,348,3)="Answer must be 1-30 characters in length."
^DD(2260,348,21,0)="^.001^1^1^3050804^^^^"
^DD(2260,348,21,1,0)="This field contains the optional location detail where the injury occurred."
^DD(2260,348,"DT")="3050628"
^DD(2260,349,0)="LOSS OF CONSCIOUSNESS^RS^Y:Yes;N:No;^2162L;7^Q"
^DD(2260,349,3)="Indicate whether the individual lost consciousness as a result of the incident."
^DD(2260,349,21,0)="^^2^2^3050506^"
^DD(2260,349,21,1,0)="This field indicates whether the individual lost consciousness as"
^DD(2260,349,21,2,0)="a result of the incident or not."
^DD(2260,349,"DT")="3050506"
^DD(2260,350,0)="PRESCRIPTION STRGTH MEDS GIVEN^RS^Y:Yes;N:No;U:Unknown;^2162L;8^Q"
^DD(2260,350,3)="Indicate whether prescription strength medications were ordered/given."
^DD(2260,350,21,0)="^^2^2^3050506^"
^DD(2260,350,21,1,0)="This field indicates if the individual involved in the incident"
^DD(2260,350,21,2,0)="was given or ordered prescription strength medication."
^DD(2260,350,"DT")="3050506"
^DD(2260,351,0)="NON-SCRIPT MEDS AT SCRIPT DOSE^RS^Y:Yes;N:No;U:Unknown;^2162L;9^Q"
^DD(2260,351,3)="Indicate whether the individual was ordered/given non-prescription medication at prescription strength."
^DD(2260,351,21,0)="^^3^3^3050506^"
^DD(2260,351,21,1,0)="This field will indicate whether the individual involved in the incident"
^DD(2260,351,21,2,0)="was given or ordered non-prescription medication as prescription strength."
^DD(2260,351,21,3,0)="(such as Motrin)."
^DD(2260,351,"DT")="3050506"
^DD(2260,352,0)="INITIAL RETURN TO WORK STATUS^S^F:FULL DUTY;A:DAYS AWAY WORK;J:Job Transfer/Restriction;^2162L;10^Q"
^DD(2260,352,3)="Indicate the individual's initial return to work assessment."
^DD(2260,352,21,0)="^.001^2^2^3050830^^^^"
^DD(2260,352,21,1,0)="This field will indicate the initial return to work status of the "
^DD(2260,352,21,2,0)="individual involved in the incident.  This work status may change."
^DD(2260,352,"DT")="3050830"
^DD(2260,353,0)="DUAL REFUSED^S^Y:YES;N:NO;^DUAL;5^Q"
^DD(2260,353,3)="EMPLOYEE WILL ANSWER YES OR NO TO REFUSAL TO ANSWER DUAL BENEFITS QUESTION"
^DD(2260,353,"DT")="3050511"
^DD(2260,"AUDIT",5)=""
^DD(2260,"B","      SSN",5)="1"
^DD(2260,"B","     CAUSE OF INJURY CODE",126)="1"
^DD(2260,"B","     DATE OF BIRTH",6)="1"
^DD(2260,"B","     DUTY STATION ADDRESS",177)="1"
^DD(2260,"B","     DUTY STATION ADDRESS",238)="1"
^DD(2260,"B","     DUTY STATION CITY",178)="1"
^DD(2260,"B","     DUTY STATION CITY",239)="1"
^DD(2260,"B","     DUTY STATION ST.",179)="1"
^DD(2260,"B","     DUTY STATION ZIP CODE",180)="1"
^DD(2260,"B","     DUTY STATION ZIP CODE",241)="1"
^DD(2260,"B","     EMP RETIREMENT COVERAGE",60)="1"
^DD(2260,"B","     HOME PHONE NUM",12)="1"
^DD(2260,"B","     OWCP CHARGEBACK CODE",70)="1"
^DD(2260,"B","     OWCP DISTRICT OFFICE",73)="1"
^DD(2260,"B","     OWCP USE - NOI CODE",62)="1"
^DD(2260,"B","     SEX",7)="1"
^DD(2260,"B","     SOURCE CODE",227)="1"
^DD(2260,"B","     TYPE CODE",226)="1"
^DD(2260,"B","   AGENCY ADDRESS",131)="1"
^DD(2260,"B","   AGENCY CITY",132)="1"
^DD(2260,"B","   AGENCY ZIP CODE",134)="1"
^DD(2260,"B","   DEVICE SIZE",83)="1"
^DD(2260,"B","   SERVICE",86)="1"
^DD(2260,"B","  AGENCY CITY",232)="1"
^DD(2260,"B","  AGENCY STATE",133)="1"
^DD(2260,"B"," AGENCY ADDRESS",231)="1"
^DD(2260,"B"," AGENCY STATE",233)="1"
^DD(2260,"B"," AGENCY ZIP CODE",234)="1"
^DD(2260,"B"," FATALITY",89)="1"
^DD(2260,"B","10. DATE/TIME INJURY OCCURRED",109)="1"
^DD(2260,"B","10. LOCATION",209)="1"
^DD(2260,"B","11. DATE OF THIS NOTICE",110)="1"
^DD(2260,"B","12.  OCCUPATION",15)="1"
^DD(2260,"B","12. EMPLOYEE'S OCCUPATION",111)="1"
^DD(2260,"B","13. CAUSE OF INJURY",112)="1"
^DD(2260,"B","14. NATURE OF INJURY",113)="1"
^DD(2260,"B","14b.  TYPE CODE",123)="1"
^DD(2260,"B","14c.  SOURCE CODE",124)="1"
^DD(2260,"B","15. REQUEST PAY OR LEAVE",114)="1"
^DD(2260,"B","17. AGENCY NAME",130)="1"
^DD(2260,"B","18. EMPLOYEE'S DUTY STATION",176)="1"
^DD(2260,"B","19. AGENCY NAME",230)="1"
^DD(2260,"B","20. EMPLOYEE'S DUTY STATION",237)="1"
^DD(2260,"B","20. REGULAR HRS FROM TIME",138)="1"
^DD(2260,"B","20. REGULAR HRS TO TIME",139)="1"
^DD(2260,"B","21. REGULAR HRS FROM TIME",242)="1"
^DD(2260,"B","21. REGULAR HRS TO TIME",243)="1"
^DD(2260,"B","21. REGULAR WORK SCHEDULE",140)="1"
^DD(2260,"B","22. DATE OF INJURY",4)="1"
^DD(2260,"B","22. REGULAR WORK SCHEDULE",244)="1"
^DD(2260,"B","23. DATE OF NOTICE RECEIVED",175)="1"
^DD(2260,"B","23. NAME OF PHYSICIAN",245)="1"
^DD(2260,"B","23. PHYSICIAN ADDRESS",246)="1"
^DD(2260,"B","23. PHYSICIAN CITY",247)="1"
^DD(2260,"B","23. PHYSICIAN STATE",248)="1"
^DD(2260,"B","23. PHYSICIAN ZIP CODE",249)="1"
^DD(2260,"B","29. DATE OF LAST EXPOSURE",255)="1"
^DD(2260,"B","31. 3RD PARTY ADDRESS",152)="1"
^DD(2260,"B","31. 3RD PARTY NAME",151)="1"
^DD(2260,"B","31. 3RD PARTY STATE",154)="1"
^DD(2260,"B","31. 3RD PARTY ZIP CODE",155)="1"
^DD(2260,"B","31. 3RD PARY CITY",153)="1"
^DD(2260,"B","31. PHYSICIAN TITLE",182)="1"
^DD(2260,"B","32. PHYSICIAN ADDRESS",157)="1"
^DD(2260,"B","32. PHYSICIAN CITY",158)="1"
^DD(2260,"B","32. PHYSICIAN NAME",156)="1"
^DD(2260,"B","32. PHYSICIAN STATE",159)="1"
^DD(2260,"B","32. PHYSICIAN ZIP CODE",160)="1"
^DD(2260,"B","35. SUPERVISOR PHONE",269)="1"
^DD(2260,"B","35. SUPERVISOR TITLE",268)="1"
^DD(2260,"B","38.  FILING INSTRUCTIONS",174)="1"
^DD(2260,"B","38.  SUPERVISOR OFFICE PHONE",173)="1"
^DD(2260,"B","38.  SUPERVISOR TITLE",172)="1"
^DD(2260,"B","3RD PARTY ADDRESS",152)=""
^DD(2260,"B","3RD PARTY ADDRESS",260)=""
^DD(2260,"B","3RD PARTY CITY",153)=""
^DD(2260,"B","3RD PARTY CITY",261)=""
^DD(2260,"B","3RD PARTY NAME",151)=""
^DD(2260,"B","3RD PARTY NAME",259)=""
^DD(2260,"B","3RD PARTY STATE",154)=""
^DD(2260,"B","3RD PARTY STATE",262)=""
^DD(2260,"B","3RD PARTY ZIP CODE",155)=""
^DD(2260,"B","3RD PARTY ZIP CODE",263)=""
^DD(2260,"B","5. HOME PHONE",100)="1"
^DD(2260,"B","5. HOME TELEPHONE",200)="1"
^DD(2260,"B","7. CITY",104)="1"
^DD(2260,"B","7. CITY",204)="1"
^DD(2260,"B","7. STATE",105)="1"
^DD(2260,"B","7. STATE",205)="1"
^DD(2260,"B","7. STREET ADDRESS",103)="1"
^DD(2260,"B","7. STREET ADDRESS",203)="1"
^DD(2260,"B","7. ZIP CODE",106)="1"
^DD(2260,"B","7. ZIP CODE",206)="1"
^DD(2260,"B","8. DEPENDENTS",207)="1"
^DD(2260,"B","9. CITY WHERE INJURY OCCURRED",184)="1"
^DD(2260,"B","9. EMPLOYEE'S OCCUPATION",208)="1"
^DD(2260,"B","9. PLACE WHERE INJURY OCCURRED",108)="1"
^DD(2260,"B","9. STATE WHERE INJURY OCCURRED",185)="1"
^DD(2260,"B","ACTIVITY AT TIME OF INJURY",37)=""
^DD(2260,"B","ACTIVITY AT TIME OF INJURY ",37)="1"
^DD(2260,"B","ADD. BODY PART AFFECTED",30.1)="1"
^DD(2260,"B","ADDITIONAL BODY PART AFFECTED",30.1)=""
^DD(2260,"B","AGENCY ADDRESS",131)=""
^DD(2260,"B","AGENCY ADDRESS",231)=""
^DD(2260,"B","AGENCY CITY",132)=""
^DD(2260,"B","AGENCY CITY",232)=""
^DD(2260,"B","AGENCY CONTROVERT",165.1)=""
^DD(2260,"B","AGENCY CONTROVERTS CODE",332)=""
^DD(2260,"B","AGENCY DISPUTE",165.2)=""
^DD(2260,"B","AGENCY NAME",130)=""
^DD(2260,"B","AGENCY NAME",230)=""
^DD(2260,"B","AGENCY STATE",133)=""
^DD(2260,"B","AGENCY STATE",233)=""
^DD(2260,"B","AGENCY ZIP CODE",134)=""
^DD(2260,"B","AGENCY ZIP CODE",234)=""
^DD(2260,"B","AREA EXPOSED TO BODILY FLUID",39)=""
^DD(2260,"B","BODILY FLUID EXPOSURE SOURCE",41)=""
^DD(2260,"B","BODILY FLUID EXPOSURE SOURCE ",41)="1"
^DD(2260,"B","BODY PART MOST AFFECTED",30)=""
^DD(2260,"B","BODY PART MOST AFFECTED ",30)="1"
^DD(2260,"B","BRAND",82)=""
^DD(2260,"B","BRAND ",82)="1"
^DD(2260,"B","CASE NUMBER",.01)=""
^DD(2260,"B","CASE STATUS",51)=""
^DD(2260,"B","CAUSE OF INJURY",112)=""
^DD(2260,"B","CAUSE OF INJURY CODE",126)=""
^DD(2260,"B","CAUSED BY EMPLOYEE EXPLAIN",149)=""
^DD(2260,"B","CHARACTERIZATION OF INJURY",29)=""
^DD(2260,"B","CHARACTERIZATION OF INJURY ",29)="1"
^DD(2260,"B","CITY",9)=""
^DD(2260,"B","CLAIM NOT FILED",218)=""
^DD(2260,"B","CONDITION ACCEPTED IN CLAIM",308)=""
^DD(2260,"B","CONTAMINATION",35)=""
^DD(2260,"B","CONTAMINATION ",35)="1"
^DD(2260,"B","CORRECTIVE ACTION",47)=""
^DD(2260,"B","CORRECTIVE ACTION TAKEN",47)="1"
^DD(2260,"B","COST CENTER/ORGANIZATION",14)=""
^DD(2260,"B","DATE 45 DAY PERIOD BEGAN",144)=""
^DD(2260,"B","DATE DRAWN",24)=""
^DD(2260,"B","DATE FIRST AWARE OF ILLNESS",214)=""
^DD(2260,"B","DATE FIRST REALIZED CAUSE",215)=""
^DD(2260,"B","DATE NOTICE RECEIVED",175)=""
^DD(2260,"B","DATE NOTICE RECEIVED",252)=""
^DD(2260,"B","DATE OF BIRTH",6)=""
^DD(2260,"B","DATE OF DEATH",333)=""
^DD(2260,"B","DATE OF EMPLOYEE SIGNATURE",223)=""
^DD(2260,"B","DATE OF INJURY",141)=""
^DD(2260,"B","DATE OF LAST EXPOSURE",255)=""
^DD(2260,"B","DATE OF THIS NOTICE",110)=""
^DD(2260,"B","DATE OF WITNESS SIGNATURE",117)=""
^DD(2260,"B","DATE ORDERED",23)=""
^DD(2260,"B","DATE PAY STOPPED",143)=""
^DD(2260,"B","DATE TRANSMITTED TO NDB",57)=""
^DD(2260,"B","DATE TRANSMITTED TO WCMIS",66)=""
^DD(2260,"B","DATE/TIME INJURY OCCURRED",109)=""
^DD(2260,"B","DATE/TIME OF OCCURRENCE",4)=""
^DD(2260,"B","DATE/TIME PAY STOPPED",254)=""
^DD(2260,"B","DATE/TIME RETURNED TO WORK",145)=""
^DD(2260,"B","DATE/TIME RETURNED TO WORK",256)=""
^DD(2260,"B","DATE/TIME STUB CREATED",90)=""
^DD(2260,"B","DATE/TIME WORK STOPPED",142)=""
^DD(2260,"B","DATE/TIME WORK STOPPED",253)=""
^DD(2260,"B","DEPENDENTS",107)=""
^DD(2260,"B","DEPENDENTS",207)=""
^DD(2260,"B","DESCRIPTION OF INCIDENT",28)=""
^DD(2260,"B","DEVICE SIZE",83)=""
^DD(2260,"B","DISABLED FOR WORK",162)=""
^DD(2260,"B","DISABLED FOR WORK",251)=""
^DD(2260,"B","DUAL REFUSED",353)=""
^DD(2260,"B","DUTY RETURNED TO",32)=""
^DD(2260,"B","DUTY RETURNED TO ",32)="1"
^DD(2260,"B","DUTY STATION ADDRESS",177)=""
^DD(2260,"B","DUTY STATION ADDRESS",238)=""
^DD(2260,"B","DUTY STATION CITY",178)=""
^DD(2260,"B","DUTY STATION CITY",239)=""
^DD(2260,"B","DUTY STATION ST.",240)="1"
^DD(2260,"B","DUTY STATION STATE",179)=""
^DD(2260,"B","DUTY STATION STATE",240)=""
^DD(2260,"B","DUTY STATION ZIP CODE",180)=""
^DD(2260,"B","DUTY STATION ZIP CODE",241)=""
^DD(2260,"B","EDUCATION",18)=""
^DD(2260,"B","EMP DUAL BENEFIT SIGN DATE",311)=""
^DD(2260,"B","EMP DUAL BENEFITS E-SIGNATURE",310)=""
^DD(2260,"B","EMP HEALTH ELECT SIGN DATE",81)=""
^DD(2260,"B","EMP HEALTH ELECT. SIGNATURE",80)=""
^DD(2260,"B","EMP NAME OF DUAL BENEFIT",309)=""
^DD(2260,"B","EMP RETIREMENT COVERAGE",60)=""
^DD(2260,"B","EMP RETIREMENT COVERAGE DESC",61)=""
^DD(2260,"B","EMPLOYEE BILL OF RIGHTS OK",71)=""
^DD(2260,"B","EMPLOYEE CITY ADDRESS",104)=""
^DD(2260,"B","EMPLOYEE CITY ADDRESS",204)=""
^DD(2260,"B","EMPLOYEE CONSENT",72)=""
^DD(2260,"B","EMPLOYEE DATE OF SIGNATURE",121)=""
^DD(2260,"B","EMPLOYEE DUTY STATION",176)=""
^DD(2260,"B","EMPLOYEE DUTY STATION",237)=""
^DD(2260,"B","EMPLOYEE ELECT. SIGNATURE",120)=""
^DD(2260,"B","EMPLOYEE ELECT. SIGNATURE",222)=""
^DD(2260,"B","EMPLOYEE HEALTH NAME",79)=""
^DD(2260,"B","EMPLOYEE OCCUPATION",208)=""
^DD(2260,"B","EMPLOYEE STATE ADDRESS",105)=""
^DD(2260,"B","EMPLOYEE STATE ADDRESS",205)=""
^DD(2260,"B","EMPLOYEE STATEMENT DELAYED",219)=""
^DD(2260,"B","EMPLOYEE STREET ADDRESS",103)=""
^DD(2260,"B","EMPLOYEE STREET ADDRESS",203)=""
^DD(2260,"B","EMPLOYEE ZIP CODE",106)=""
^DD(2260,"B","EMPLOYEE ZIP CODE",206)=""
^DD(2260,"B","EQUIP/DEVICE FAILURE",42)="1"
^DD(2260,"B","EQUIP/DEVICE FAILURE OCCURRED",42.5)=""
^DD(2260,"B","EQUIPMENT/DEVICE FAILURE",42)=""
^DD(2260,"B","FATALITY",89)=""
^DD(2260,"B","FILING INSTRUCTIONS",174)=""
^DD(2260,"B","FIRST DATE MEDICAL CARE",161)=""
^DD(2260,"B","FIRST DATE MEDICAL CARE",250)=""
^DD(2260,"B","FOLLOW-UP DATE",25)=""
^DD(2260,"B","GENERAL SETTING OF INCIDENT",26)=""
^DD(2260,"B","GENERAL SETTING OF INCIDENT ",26)="1"
^DD(2260,"B","GRADE",16)=""
^DD(2260,"B","GRADE AS OF LAST EXPOSURE",201)=""
^DD(2260,"B","GRADE/LEVEL DATE OF INJURY",101)=""
^DD(2260,"B","HEPATITIS B",19)=""
^DD(2260,"B","HEPATITIS C",20)=""
^DD(2260,"B","HIRE DATE",336)=""
^DD(2260,"B","HIV",21)=""
^DD(2260,"B","HOME CITY",9)="1"
^DD(2260,"B","HOME PHONE NUMBER",12)=""
^DD(2260,"B","HOME PHONE NUMBER",100)=""
^DD(2260,"B","HOME PHONE NUMBER",200)=""
^DD(2260,"B","HOME STATE",10)="1"
^DD(2260,"B","HOME STR. ADDRESS",8)="1"
^DD(2260,"B","HOME STREET ADDRESS",8)=""
^DD(2260,"B","HOME ZIP CODE",11)="1"
^DD(2260,"B","HOSPITALIZED AS INPATIENT",339)=""
^DD(2260,"B","ILLNESS OCCURRED (LOCATION)",209)=""
^DD(2260,"B","ILLNESS OCCURRED ADDRESS",210)=""
^DD(2260,"B","ILLNESS OCCURRED CITY",211)=""
^DD(2260,"B","ILLNESS OCCURRED STATE",212)=""
^DD(2260,"B","ILLNESS OCCURRED ZIP CODE",213)=""
^DD(2260,"B","ILLNESS TYPE",334)=""
^DD(2260,"B","INCIDENT OUTCOME",95)=""
^DD(2260,"B","INCLUDE ON OSHA LOG",88)=""
^DD(2260,"B","INITIAL RETURN TO WORK STATUS",352)=""
^DD(2260,"B","INJ PRIOR TO SAFE DEV ENGAGED",87)=""
^DD(2260,"B","INJURED PERFORMING DUTY",146)=""
^DD(2260,"B","INJURY CAUSED BY 3RD PARTY",150)=""
^DD(2260,"B","INJURY CAUSED BY 3RD PARTY",258)=""
^DD(2260,"B","INJURY CAUSED BY EMPLOYEE",148)=""
^DD(2260,"B","INJURY OCCURRED ADDRESS",183)=""
^DD(2260,"B","INJURY OCCURRED CITY",184)=""
^DD(2260,"B","INJURY OCCURRED STATE",185)=""
^DD(2260,"B","INJURY/ILLNESS",52)=""
^DD(2260,"B","LOCATION DETAIL",348)=""
^DD(2260,"B","LOCATION OF INJURY",27)=""
^DD(2260,"B","LOCATION OF INJURY ",27)="1"
^DD(2260,"B","LOSS OF CONSCIOUSNESS",349)=""
^DD(2260,"B","LOST TIME",33)=""
^DD(2260,"B","LOST TIME ",33)="1"
^DD(2260,"B","MEDICAL EMERGENCY",29.5)=""
^DD(2260,"B","MEDICAL REPORT DELAYED",220)=""
^DD(2260,"B","MILITARY CLAIM BODY PARTS",307)=""
^DD(2260,"B","NAME OF EMPLOYEE",119)=""
^DD(2260,"B","NAME OF EMPLOYEE",221)=""
^DD(2260,"B","NAME OF PHYSICIAN",245)=""
^DD(2260,"B","NAME OF SAFETY OFFICER",76)=""
^DD(2260,"B","NAME OF SUPERVISOR",169)=""
^DD(2260,"B","NAME OF SUPERVISOR",265)=""
^DD(2260,"B","NAME OF WITNESS",115)=""
^DD(2260,"B","NATURE OF DISEASE/ILLNESS",217)=""
^DD(2260,"B","NATURE OF INJURY",113)=""
^DD(2260,"B","NEEDS XMIT TO NDB",54)=""
^DD(2260,"B","NOI CODE",62)=""
^DD(2260,"B","NON VA ER TREATMENT RCVD",338)=""
^DD(2260,"B","NON-SCRIPT MEDS AT SCRIPT DOSE",351)=""
^DD(2260,"B","NOT INJURED PERFORMING JOB",147)=""
^DD(2260,"B","OBJECT CAUSING INJURY",38)=""
^DD(2260,"B","OBJECT CAUSING INJURY ",38)="1"
^DD(2260,"B","OCCUPATION",15)=""
^DD(2260,"B","OCCUPATION",111)=""
^DD(2260,"B","OCCUPATION",224)=""
^DD(2260,"B","OCCUPATION CODE",122)=""
^DD(2260,"B","OSHA SITE CODE",136)=""
^DD(2260,"B","OSHA SITE CODE",236)=""
^DD(2260,"B","OTHER",22)=""
^DD(2260,"B","OTHER FACILITY CITY",344)=""
^DD(2260,"B","OTHER FACILITY NAME",342)=""
^DD(2260,"B","OTHER FACILITY STATE",345)=""
^DD(2260,"B","OTHER FACILITY STREET",343)=""
^DD(2260,"B","OTHER FACILITY ZIP",346)=""
^DD(2260,"B","OWCP AGENCY CODE",235)=""
^DD(2260,"B","OWCP CHARGEBACK CODE",70)=""
^DD(2260,"B","OWCP CODE",135)=""
^DD(2260,"B","OWCP CODE (6 CHARACTER)",331)=""
^DD(2260,"B","OWCP DISTRICT OFFICE",73)=""
^DD(2260,"B","OWCP SUFFIX",330)=""
^DD(2260,"B","OWCP USE NOI CODE",225)=""
^DD(2260,"B","PATIENT SOURCE",34)=""
^DD(2260,"B","PATIENT SOURCE ",34)="1"
^DD(2260,"B","PAY PLAN",63)=""
^DD(2260,"B","PAY RATE DOLLAR",166)=""
^DD(2260,"B","PAY RATE PER",167)=""
^DD(2260,"B","PENDING DISABILITY CLAIM",305)=""
^DD(2260,"B","PERSON ENTERING STUB RECORD",56)=""
^DD(2260,"B","PERSON INVOLVED",1)=""
^DD(2260,"B","PERSONAL PROTECTIVE EQUIPMENT",40)=""
^DD(2260,"B","PERSONNEL STATUS",2)=""
^DD(2260,"B","PHYSICIAN ADDRESS",157)=""
^DD(2260,"B","PHYSICIAN ADDRESS",246)=""
^DD(2260,"B","PHYSICIAN CITY",158)=""
^DD(2260,"B","PHYSICIAN CITY",247)=""
^DD(2260,"B","PHYSICIAN NAME",156)=""
^DD(2260,"B","PHYSICIAN STATE",159)=""
^DD(2260,"B","PHYSICIAN STATE",248)=""
^DD(2260,"B","PHYSICIAN TITLE",182)=""
^DD(2260,"B","PHYSICIAN TITLE",270)=""
^DD(2260,"B","PHYSICIAN ZIP CODE",160)=""
^DD(2260,"B","PHYSICIAN ZIP CODE",249)=""
^DD(2260,"B","PLACE WHERE INJURY OCCURRED",108)=""
^DD(2260,"B","PRESCRIPTION STRGTH MEDS GIVEN",350)=""
^DD(2260,"B","PRIVACY CASE",337)=""
^DD(2260,"B","PURPOSE OF SHARP OBJ.",36)="1"
^DD(2260,"B","PURPOSE OF SHARP OBJECT",36)=""
^DD(2260,"B","REASON AGENCY CONTROVERTS COP",165)=""
^DD(2260,"B","REASON FOR DELETION",58)=""
^DD(2260,"B","REASON FOR DISPUTE CODE",347)=""
^DD(2260,"B","RECEIVE VETERAN BENEFITS",304)=""
^DD(2260,"B","REGULAR HRS FROM TIME",138)=""
^DD(2260,"B","REGULAR HRS FROM TIME",242)=""
^DD(2260,"B","REGULAR HRS TO TIME",139)=""
^DD(2260,"B","REGULAR HRS TO TIME",243)=""
^DD(2260,"B","REGULAR WORK SCHEDULE",140)=""
^DD(2260,"B","REGULAR WORK SCHEDULE",244)=""
^DD(2260,"B","RELATIONSHIP OF ILLNESS TO EMP",216)=""
^DD(2260,"B","REQUEST PAY OR LEAVE",114)=""
^DD(2260,"B","SAFETY CHARACTERISTICS",84)=""
^DD(2260,"B","SAFETY DESIGN DEVICE USED",43)=""
^DD(2260,"B","SAFETY DESIGN DEVICE USED ",43)="1"
^DD(2260,"B","SAFETY DEV CHARACTERISTICS",84)="1"
^DD(2260,"B","SAFETY DEVICE NOT USED",85)=""
^DD(2260,"B","SAFETY OFF. COMMENTS",55)="1"
^DD(2260,"B","SAFETY OFF. DATE SIGNED",50)=""
^DD(2260,"B","SAFETY OFF. ELEC. SIGN DATE",78)=""
^DD(2260,"B","SAFETY OFF. ELECT. SIGNATURE",49)=""
^DD(2260,"B","SAFETY OFFICER ELEC. SIGN",77)=""
^DD(2260,"B","SAFETY OFFICER NAME",48)=""
^DD(2260,"B","SECONDARY SUPERVISOR",53.1)=""
^DD(2260,"B","SERVICE",86)=""
^DD(2260,"B","SEX",7)=""
^DD(2260,"B","SIDE OF BODY AFFECTED",31)=""
^DD(2260,"B","SIDE OF BODY AFFECTED ",31)="1"
^DD(2260,"B","SOURCE CODE",124)=""
^DD(2260,"B","SOURCE CODE",227)=""
^DD(2260,"B","SSN",5)=""
^DD(2260,"B","STATE",10)=""
^DD(2260,"B","STATEMENT OF WITNESS",118)=""
^DD(2260,"B","STATION NUMBER",13)=""
^DD(2260,"B","STEP",17)=""
^DD(2260,"B","STEP AS OF DATE OF ILL.",202)=""
^DD(2260,"B","STEP AS OF DATE OF INJURY",102)=""
^DD(2260,"B","SUPERVISOR",44)=""
^DD(2260,"B","SUPERVISOR",53)=""
^DD(2260,"B","SUPERVISOR AGREE/DISAGREE",163)=""
^DD(2260,"B","SUPERVISOR DATE OF SIGNATURE",171)=""
^DD(2260,"B","SUPERVISOR DATE OF SIGNATURE",267)=""
^DD(2260,"B","SUPERVISOR ELECT. SIGNATURE",170)=""
^DD(2260,"B","SUPERVISOR ELECT. SIGNATURE",266)=""
^DD(2260,"B","SUPERVISOR ELECTRONIC SIG",45)=""
^DD(2260,"B","SUPERVISOR EXCEPTION",264)=""
^DD(2260,"B","SUPERVISOR EXCEPTIONS",168)=""
^DD(2260,"B","SUPERVISOR NOT AGREE EXPLAIN",164)=""
^DD(2260,"B","SUPERVISOR OFFICE PHONE",173)=""
^DD(2260,"B","SUPERVISOR PHONE",269)=""
^DD(2260,"B","SUPERVISOR PHONE EXT",173.1)=""
^DD(2260,"B","SUPERVISOR PHONE EXT",269.1)=""
^DD(2260,"B","SUPERVISOR SIGNATURE DATE",46)=""
^DD(2260,"B","SUPERVISOR TITLE",172)=""
^DD(2260,"B","SUPERVISOR TITLE",268)=""
^DD(2260,"B","TIME WORK BEGAN",335)=""
^DD(2260,"B","TRANSMIT TO WCMIS",67)=""
^DD(2260,"B","TRANSMITTED TO NDB",59)=""
^DD(2260,"B","TREATED AT DIFFERENT FACILITY",341)=""
^DD(2260,"B","TREATING PHYSICIAN",340)=""
^DD(2260,"B","TYPE CODE",123)=""
^DD(2260,"B","TYPE CODE",226)=""
^DD(2260,"B","TYPE OF INCIDENT",3)=""
^DD(2260,"B","VALIDATION CODE",74)=""
^DD(2260,"B","VALIDATION VERSION",75)=""
^DD(2260,"B","VBA NUMBER",306)=""
^DD(2260,"B","VETERAN",303)=""
^DD(2260,"B","WC DATE OF SIGNATURE",69)=""
^DD(2260,"B","WC DUAL BENEFITS E-SIGNATURE",313)=""
^DD(2260,"B","WC DUAL BENEFITS SIGN DATE",314)=""
^DD(2260,"B","WC ELECTRONIC SIGNATURE",68)=""
^DD(2260,"B","WC NAME FOR DUAL BENEFIT",312)=""
^DD(2260,"B","WITNESS ADDRESS",116)=""
^DD(2260,"B","WITNESS CITY",116.1)=""
^DD(2260,"B","WITNESS NAME",125)=""
^DD(2260,"B","WITNESS STATE",116.2)=""
^DD(2260,"B","WITNESS ZIP CODE",116.3)=""
^DD(2260,"B","WORK DUTY CHANGED",257)=""
^DD(2260,"B","WORKER'S COMP EDIT",199)=""
^DD(2260,"B","ZIP CODE",11)=""
^DD(2260,"B","ZIP CODE WHERE INJURY OCCURRED",181)=""
^DD(2260,"GL",0,1,.01)=""
^DD(2260,"GL",0,2,1)=""
^DD(2260,"GL",0,3,2)=""
^DD(2260,"GL",0,4,3)=""
^DD(2260,"GL",0,5,4)=""
^DD(2260,"GL",0,6,51)=""
^DD(2260,"GL",0,7,52)=""
^DD(2260,"GL",0,8,53)=""
^DD(2260,"GL",0,9,53.1)=""
^DD(2260,"GL",0,10,56)=""
^DD(2260,"GL",0,11,57)=""
^DD(2260,"GL",0,12,58)=""
^DD(2260,"GL",0,13,63)=""
^DD(2260,"GL",0,14,71)=""
^DD(2260,"GL",0,15,72)=""
^DD(2260,"GL",0,16,73)=""
^DD(2260,"GL",0,17,86)=""
^DD(2260,"GL",0,18,54)=""
^DD(2260,"GL",0,19,59)=""
^DD(2260,"GL",0,20,90)=""
^DD(2260,"GL",0,22,335)=""
^DD(2260,"GL","2162A",1,5)=""
^DD(2260,"GL","2162A",2,6)=""
^DD(2260,"GL","2162A",3,7)=""
^DD(2260,"GL","2162A",4,8)=""
^DD(2260,"GL","2162A",5,9)=""
^DD(2260,"GL","2162A",6,10)=""
^DD(2260,"GL","2162A",7,11)=""
^DD(2260,"GL","2162A",8,12)=""
^DD(2260,"GL","2162A",9,13)=""
^DD(2260,"GL","2162A",10,14)=""
^DD(2260,"GL","2162A",11,15)=""
^DD(2260,"GL","2162A",12,16)=""
^DD(2260,"GL","2162A",13,17)=""
^DD(2260,"GL","2162A",14,18)=""
^DD(2260,"GL","2162A",15,19)=""
^DD(2260,"GL","2162A",16,20)=""
^DD(2260,"GL","2162A",17,21)=""
^DD(2260,"GL","2162A",18,22)=""
^DD(2260,"GL","2162A",19,23)=""
^DD(2260,"GL","2162A",20,24)=""
^DD(2260,"GL","2162A",21,25)=""
^DD(2260,"GL","2162A",22,89)=""
^DD(2260,"GL","2162A",23,333)=""
^DD(2260,"GL","2162A",24,336)=""
^DD(2260,"GL","2162B",1,26)=""
^DD(2260,"GL","2162B",2,27)=""
^DD(2260,"GL","2162B",3,29)=""
^DD(2260,"GL","2162B",4,30)=""
^DD(2260,"GL","2162B",5,31)=""
^DD(2260,"GL","2162B",6,32)=""
^DD(2260,"GL","2162B",7,33)=""
^DD(2260,"GL","2162B",8,30.1)=""
^DD(2260,"GL","2162B",9,29.5)=""
^DD(2260,"GL","2162B",10,82)=""
^DD(2260,"GL","2162B",11,83)=""
^DD(2260,"GL","2162B",12,84)=""
^DD(2260,"GL","2162B",13,87)=""
^DD(2260,"GL","2162B",14,88)=""
^DD(2260,"GL","2162B",15,334)=""
^DD(2260,"GL","2162B",16,348)=""
^DD(2260,"GL","2162C",0,28)=""
^DD(2260,"GL","2162D",1,34)=""
^DD(2260,"GL","2162D",2,35)=""
^DD(2260,"GL","2162D",3,36)=""
^DD(2260,"GL","2162D",4,37)=""
^DD(2260,"GL","2162D",5,38)=""
^DD(2260,"GL","2162D",6,41)=""
^DD(2260,"GL","2162D",7,42)=""
^DD(2260,"GL","2162D",8,43)=""
^DD(2260,"GL","2162D",9,42.5)=""
^DD(2260,"GL","2162D",10,337)=""
^DD(2260,"GL","2162D",11,338)=""
^DD(2260,"GL","2162D",12,339)=""
^DD(2260,"GL","2162D",13,340)=""
^DD(2260,"GL","2162E",0,39)=""
^DD(2260,"GL","2162ES",1,44)=""
^DD(2260,"GL","2162ES",2,45)=""
^DD(2260,"GL","2162ES",3,46)=""
^DD(2260,"GL","2162ES",4,48)=""
^DD(2260,"GL","2162ES",5,49)=""
^DD(2260,"GL","2162ES",6,50)=""
^DD(2260,"GL","2162F",0,40)=""
^DD(2260,"GL","2162G",0,47)=""
^DD(2260,"GL","2162H",0,55)=""
^DD(2260,"GL","2162L",1,341)=""
^DD(2260,"GL","2162L",2,342)=""
^DD(2260,"GL","2162L",3,343)=""
^DD(2260,"GL","2162L",4,344)=""
^DD(2260,"GL","2162L",5,345)=""
^DD(2260,"GL","2162L",6,346)=""
^DD(2260,"GL","2162L",7,349)=""
^DD(2260,"GL","2162L",8,350)=""
^DD(2260,"GL","2162L",9,351)=""
^DD(2260,"GL","2162L",10,352)=""
^DD(2260,"GL","2162S",1,85)=""
^DD(2260,"GL","CA",1,126)=""
^DD(2260,"GL","CA",2,70)=""
^DD(2260,"GL","CA",3,62)=""
^DD(2260,"GL","CA",4,60)=""
^DD(2260,"GL","CA",5,61)=""
^DD(2260,"GL","CA",6,66)=""
^DD(2260,"GL","CA",7,74)=""
^DD(2260,"GL","CA",8,199)=""
^DD(2260,"GL","CA",9,75)=""
^DD(2260,"GL","CA",17,330)=""
^DD(2260,"GL","CA",18,331)=""
^DD(2260,"GL","CA1A",1,100)=""
^DD(2260,"GL","CA1A",2,101)=""
^DD(2260,"GL","CA1A",3,102)=""
^DD(2260,"GL","CA1A",4,103)=""
^DD(2260,"GL","CA1A",5,104)=""
^DD(2260,"GL","CA1A",6,105)=""
^DD(2260,"GL","CA1A",7,106)=""
^DD(2260,"GL","CA1A",8,107)=""
^DD(2260,"GL","CA1A",9,108)=""
^DD(2260,"GL","CA1A",10,109)=""
^DD(2260,"GL","CA1A",11,110)=""
^DD(2260,"GL","CA1A",12,111)=""
^DD(2260,"GL","CA1A",13,114)=""
^DD(2260,"GL","CA1A",14,181)=""
^DD(2260,"GL","CA1B",1,112)=""
^DD(2260,"GL","CA1B",2,122)=""
^DD(2260,"GL","CA1B",3,123)=""
^DD(2260,"GL","CA1B",4,124)=""
^DD(2260,"GL","CA1C",1,113)=""
^DD(2260,"GL","CA1D",1,115)=""
^DD(2260,"GL","CA1D",2,116)=""
^DD(2260,"GL","CA1D",3,117)=""
^DD(2260,"GL","CA1D",4,116.1)=""
^DD(2260,"GL","CA1D",5,116.2)=""
^DD(2260,"GL","CA1D",6,116.3)=""
^DD(2260,"GL","CA1E",0,118)=""
^DD(2260,"GL","CA1ES",1,119)=""
^DD(2260,"GL","CA1ES",2,120)=""
^DD(2260,"GL","CA1ES",3,121)=""
^DD(2260,"GL","CA1ES",4,169)=""
^DD(2260,"GL","CA1ES",5,170)=""
^DD(2260,"GL","CA1ES",6,171)=""
^DD(2260,"GL","CA1F",1,130)=""
^DD(2260,"GL","CA1F",2,131)=""
^DD(2260,"GL","CA1F",3,132)=""
^DD(2260,"GL","CA1F",4,133)=""
^DD(2260,"GL","CA1F",5,134)=""
^DD(2260,"GL","CA1F",6,135)=""
^DD(2260,"GL","CA1F",7,136)=""
^DD(2260,"GL","CA1F",9,138)=""
^DD(2260,"GL","CA1F",10,139)=""
^DD(2260,"GL","CA1F",11,140)=""
^DD(2260,"GL","CA1F",12,141)=""
^DD(2260,"GL","CA1F",13,142)=""
^DD(2260,"GL","CA1G",1,143)=""
^DD(2260,"GL","CA1G",2,144)=""
^DD(2260,"GL","CA1G",3,145)=""
^DD(2260,"GL","CA1G",4,146)=""
^DD(2260,"GL","CA1G",5,147)=""
^DD(2260,"GL","CA1G",6,148)=""
^DD(2260,"GL","CA1G",7,149)=""
^DD(2260,"GL","CA1G",8,150)=""
^DD(2260,"GL","CA1H",1,151)=""
^DD(2260,"GL","CA1H",2,152)=""
^DD(2260,"GL","CA1H",3,153)=""
^DD(2260,"GL","CA1H",4,154)=""
^DD(2260,"GL","CA1H",5,155)=""
^DD(2260,"GL","CA1I",1,156)=""
^DD(2260,"GL","CA1I",2,157)=""
^DD(2260,"GL","CA1I",3,158)=""
^DD(2260,"GL","CA1I",4,159)=""
^DD(2260,"GL","CA1I",5,160)=""
^DD(2260,"GL","CA1I",6,161)=""
^DD(2260,"GL","CA1I",7,162)=""
^DD(2260,"GL","CA1I",8,163)=""
^DD(2260,"GL","CA1I",9,182)=""
^DD(2260,"GL","CA1I",10,165.1)=""
^DD(2260,"GL","CA1I",11,165.2)=""
^DD(2260,"GL","CA1I",12,332)=""
^DD(2260,"GL","CA1I",13,347)=""
^DD(2260,"GL","CA1J",0,164)=""
^DD(2260,"GL","CA1K",0,165)=""
^DD(2260,"GL","CA1L",1,166)=""
^DD(2260,"GL","CA1L",2,167)=""
^DD(2260,"GL","CA1L",3,168)=""
^DD(2260,"GL","CA1L",4,172)=""
^DD(2260,"GL","CA1L",5,173)=""
^DD(2260,"GL","CA1L",6,174)=""
^DD(2260,"GL","CA1L",7,175)=""
^DD(2260,"GL","CA1L",8,173.1)=""
^DD(2260,"GL","CA1M",1,176)=""
^DD(2260,"GL","CA1M",2,177)=""
^DD(2260,"GL","CA1M",3,178)=""
^DD(2260,"GL","CA1M",4,179)=""
^DD(2260,"GL","CA1M",5,180)=""
^DD(2260,"GL","CA1N",1,183)=""
^DD(2260,"GL","CA1N",2,184)=""
^DD(2260,"GL","CA1N",3,185)=""
^DD(2260,"GL","CA1W",0,125)=""
^DD(2260,"GL","CA2A",1,200)=""
^DD(2260,"GL","CA2A",2,201)=""
^DD(2260,"GL","CA2A",3,202)=""
^DD(2260,"GL","CA2A",4,203)=""
^DD(2260,"GL","CA2A",5,204)=""
^DD(2260,"GL","CA2A",6,205)=""
^DD(2260,"GL","CA2A",7,206)=""
^DD(2260,"GL","CA2A",8,207)=""
^DD(2260,"GL","CA2A",9,208)=""
^DD(2260,"GL","CA2B",1,209)=""
^DD(2260,"GL","CA2B",2,210)=""
^DD(2260,"GL","CA2B",3,211)=""
^DD(2260,"GL","CA2B",4,212)=""
^DD(2260,"GL","CA2B",5,213)=""
^DD(2260,"GL","CA2B",6,214)=""
^DD(2260,"GL","CA2B",7,215)=""
^DD(2260,"GL","CA2B",8,224)=""
^DD(2260,"GL","CA2B",9,225)=""
^DD(2260,"GL","CA2B",10,226)=""
^DD(2260,"GL","CA2B",11,227)=""
^DD(2260,"GL","CA2C",0,216)=""
^DD(2260,"GL","CA2D",0,217)=""
^DD(2260,"GL","CA2E",0,218)=""
^DD(2260,"GL","CA2ES",1,221)=""
^DD(2260,"GL","CA2ES",2,222)=""
^DD(2260,"GL","CA2ES",3,223)=""
^DD(2260,"GL","CA2ES",4,265)=""
^DD(2260,"GL","CA2ES",5,266)=""
^DD(2260,"GL","CA2ES",6,267)=""
^DD(2260,"GL","CA2F",0,219)=""
^DD(2260,"GL","CA2G",0,220)=""
^DD(2260,"GL","CA2H",1,230)=""
^DD(2260,"GL","CA2H",2,231)=""
^DD(2260,"GL","CA2H",3,232)=""
^DD(2260,"GL","CA2H",4,233)=""
^DD(2260,"GL","CA2H",5,234)=""
^DD(2260,"GL","CA2H",6,235)=""
^DD(2260,"GL","CA2H",7,236)=""
^DD(2260,"GL","CA2H",8,268)=""
^DD(2260,"GL","CA2H",9,269)=""
^DD(2260,"GL","CA2H",10,269.1)=""
^DD(2260,"GL","CA2I",1,237)=""
^DD(2260,"GL","CA2I",2,238)=""
^DD(2260,"GL","CA2I",3,239)=""
^DD(2260,"GL","CA2I",4,240)=""
^DD(2260,"GL","CA2I",5,241)=""
^DD(2260,"GL","CA2I",6,242)=""
^DD(2260,"GL","CA2I",7,243)=""
^DD(2260,"GL","CA2I",8,244)=""
^DD(2260,"GL","CA2J",1,245)=""
^DD(2260,"GL","CA2J",2,246)=""
^DD(2260,"GL","CA2J",3,247)=""
^DD(2260,"GL","CA2J",4,248)=""
^DD(2260,"GL","CA2J",5,249)=""
^DD(2260,"GL","CA2J",6,250)=""
^DD(2260,"GL","CA2J",7,251)=""
^DD(2260,"GL","CA2J",8,252)=""
^DD(2260,"GL","CA2J",9,253)=""
^DD(2260,"GL","CA2J",10,254)=""
^DD(2260,"GL","CA2J",11,255)=""
^DD(2260,"GL","CA2J",12,256)=""
^DD(2260,"GL","CA2J",13,270)=""
^DD(2260,"GL","CA2K",0,257)=""
^DD(2260,"GL","CA2L",1,258)=""
^DD(2260,"GL","CA2L",2,259)=""
^DD(2260,"GL","CA2L",3,260)=""
^DD(2260,"GL","CA2L",4,261)=""
^DD(2260,"GL","CA2L",5,262)=""
^DD(2260,"GL","CA2L",6,263)=""
^DD(2260,"GL","CA2L",7,264)=""
^DD(2260,"GL","DUAL",1,303)=""
^DD(2260,"GL","DUAL",2,304)=""
^DD(2260,"GL","DUAL",3,305)=""
^DD(2260,"GL","DUAL",4,306)=""
^DD(2260,"GL","DUAL",5,353)=""
^DD(2260,"GL","DUAL",6,308)=""
^DD(2260,"GL","DUAL",7,309)=""
^DD(2260,"GL","DUAL",8,310)=""
^DD(2260,"GL","DUAL",9,311)=""
^DD(2260,"GL","DUAL",10,312)=""
^DD(2260,"GL","DUAL",11,313)=""
^DD(2260,"GL","DUAL",12,314)=""
^DD(2260,"GL","DUAL1",1,307)=""
^DD(2260,"GL","OUTC",0,95)=""
^DD(2260,"GL","WCES",1,67)=""
^DD(2260,"GL","WCES",2,68)=""
^DD(2260,"GL","WCES",3,69)=""
^DD(2260,"GL","WCSE",1,76)=""
^DD(2260,"GL","WCSE",2,77)=""
^DD(2260,"GL","WCSE",3,78)=""
^DD(2260,"GL","WCSE",4,79)=""
^DD(2260,"GL","WCSE",5,80)=""
^DD(2260,"GL","WCSE",6,81)=""
^DD(2260,"IX",.01)=""
^DD(2260,"IX",1)=""
^DD(2260,"IX",2)=""
^DD(2260,"IX",4)=""
^DD(2260,"IX",5)=""
^DD(2260,"IX",13)=""
^DD(2260,"IX",51)=""
^DD(2260,"IX",54)=""
^DD(2260,"IX",57)=""
^DD(2260,"IX",59)=""
^DD(2260,"IX",66)=""
^DD(2260,"IX",67)=""
^DD(2260,"IX",88)=""
^DD(2260,"RQ",.01)=""
^DD(2260,"RQ",1)=""
^DD(2260,"RQ",2)=""
^DD(2260,"RQ",3)=""
^DD(2260,"RQ",4)=""
^DD(2260,"RQ",13)=""
^DD(2260,"RQ",26)=""
^DD(2260,"RQ",27)=""
^DD(2260,"RQ",52)=""
^DD(2260,"RQ",53)=""
^DD(2260,"RQ",56)=""
^DD(2260,"RQ",60)=""
^DD(2260,"RQ",71)=""
^DD(2260,"RQ",72)=""
^DD(2260,"RQ",349)=""
^DD(2260,"RQ",350)=""
^DD(2260,"RQ",351)=""
^DD(2260,"SB",2260.01,40)=""
^DD(2260,"SB",2260.0118,118)=""
^DD(2260,"SB",2260.0125,125)=""
^DD(2260,"SB",2260.0164,164)=""
^DD(2260,"SB",2260.0165,165)=""
^DD(2260,"SB",2260.02,220)=""
^DD(2260,"SB",2260.0216,216)=""
^DD(2260,"SB",2260.0217,217)=""
^DD(2260,"SB",2260.0218,218)=""
^DD(2260,"SB",2260.0219,219)=""
^DD(2260,"SB",2260.0257,257)=""
^DD(2260,"SB",2260.028,28)=""
^DD(2260,"SB",2260.039,39)=""
^DD(2260,"SB",2260.047,47)=""
^DD(2260,"SB",2260.055,55)=""
^DD(2260,"SB",2260.095,95)=""
^DD(2260.01,0)="PERSONAL PROTECTIVE EQUIPMENT SUB-FIELD^^.01^1"
^DD(2260.01,0,"DT")="2980408"
^DD(2260.01,0,"IX","B",2260.01,.01)=""
^DD(2260.01,0,"NM","PERSONAL PROTECTIVE EQUIPMENT")=""
^DD(2260.01,0,"UP")="2260"
^DD(2260.01,.01,0)="PERSONAL PROTECTIVE EQUIPMENT^MP2261.3'^OOPS(2261.3,^0;1^Q"
^DD(2260.01,.01,.1)="PERSONAL PROTECTIVE EQUIPMENT "
^DD(2260.01,.01,1,0)="^.1"
^DD(2260.01,.01,1,1,0)="2260.01^B"
^DD(2260.01,.01,1,1,1)="S ^OOPS(2260,DA(1),""2162F"",""B"",$E(X,1,30),DA)="""""
^DD(2260.01,.01,1,1,2)="K ^OOPS(2260,DA(1),""2162F"",""B"",$E(X,1,30),DA)"
^DD(2260.01,.01,3)="Enter the protective items worn at the time of the exposure."
^DD(2260.01,.01,21,0)="^.001^1^1^3010702^^^^"
^DD(2260.01,.01,21,1,0)="This is a list of the protective items worn at the time of the exposure."
^DD(2260.01,.01,"DT")="3010306"
^DD(2260.01,"B","PERSONAL PROTECTIVE EQUIPMENT",.01)=""
^DD(2260.01,"B","PERSONAL PROTECTIVE EQUIPMENT ",.01)="1"
^DD(2260.01,"GL",0,1,.01)=""
^DD(2260.01,"IX",.01)=""
^DD(2260.0118,0)="STATEMENT OF WITNESS SUB-FIELD^^.01^1"
^DD(2260.0118,0,"DT")="2980407"
^DD(2260.0118,0,"NM","STATEMENT OF WITNESS")=""
^DD(2260.0118,0,"UP")="2260"
^DD(2260.0118,.01,0)="STATEMENT OF WITNESS^W^^0;1^Q"
^DD(2260.0118,.01,3)="Enter a statement of what the witness saw, heard or knows about the injury."
^DD(2260.0118,.01,21,0)="^^2^2^2980410^"
^DD(2260.0118,.01,21,1,0)="This is the statement of the witness that describes what the witness saw,"
^DD(2260.0118,.01,21,2,0)="heard, or knows about the injury."
^DD(2260.0118,.01,"DT")="2980407"
^DD(2260.0118,"B","STATEMENT OF WITNESS",.01)=""
^DD(2260.0118,"GL",0,1,.01)=""
^DD(2260.0125,0)="WITNESS NAME SUB-FIELD^^6^7"
^DD(2260.0125,0,"DT")="3000324"
^DD(2260.0125,0,"IX","B",2260.0125,.01)=""
^DD(2260.0125,0,"NM","WITNESS NAME")=""
^DD(2260.0125,0,"UP")="2260"
^DD(2260.0125,.01,0)="WITNESS NAME^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X I $D(X),'$$NMCHK^OOPSUTL3(X) D NMERR^OOPSUTL3 K X"
^DD(2260.0125,.01,1,0)="^.1"
^DD(2260.0125,.01,1,1,0)="2260.0125^B"
^DD(2260.0125,.01,1,1,1)="S ^OOPS(2260,DA(1),""CA1W"",""B"",$E(X,1,30),DA)="""""
^DD(2260.0125,.01,1,1,2)="K ^OOPS(2260,DA(1),""CA1W"",""B"",$E(X,1,30),DA)"
^DD(2260.0125,.01,3)="Enter the Witness Name - if no witness, leave blank.  Do not enter NONE"
^DD(2260.0125,.01,21,0)="^.001^7^7^3000913^^^^"
^DD(2260.0125,.01,21,1,0)="Enter the name of the individual that witnessed the incident.  Note:"
^DD(2260.0125,.01,21,2,0)="Only the first witness entered will be transmitted to DOL"
^DD(2260.0125,.01,21,3,0)="(Department of Labor) electronically.  Therefore, enter the witness"
^DD(2260.0125,.01,21,4,0)="information that you want to be transmitted electronically.  Other "
^DD(2260.0125,.01,21,5,0)="witness data may be submitted via hard copy to DOL."
^DD(2260.0125,.01,21,6,0)="The name must be entered in the following format: LASTNAME,FIRSTNAME"
^DD(2260.0125,.01,21,7,0)="with no spaces in the last name."
^DD(2260.0125,.01,23,0)="^.001^2^2^3000913^^^^"
^DD(2260.0125,.01,23,1,0)="This is the name of the person who witnessed the incident and is willing"
^DD(2260.0125,.01,23,2,0)="to provide additional information concerning the incident"
^DD(2260.0125,.01,"DT")="3000831"
^DD(2260.0125,1,0)="WITNESS ADDRESS^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(2260.0125,1,3)="Answer must be 1-30 characters in length"
^DD(2260.0125,1,21,0)="^^2^2^3000301^"
^DD(2260.0125,1,21,1,0)="This is the address of the individual who witnessed the incident where"
^DD(2260.0125,1,21,2,0)="they can be contacted, if necessary."
^DD(2260.0125,1,"DT")="3000203"
^DD(2260.0125,2,0)="WITNESS CITY^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(2260.0125,2,3)="Answer must be 1-20 characters in length"
^DD(2260.0125,2,21,0)="^.001^2^2^3000301^^"
^DD(2260.0125,2,21,1,0)="This is the City portion of the Witness's address where they can be"
^DD(2260.0125,2,21,2,0)="contacted, if necessary."
^DD(2260.0125,2,"DT")="3000203"
^DD(2260.0125,3,0)="WITNESS STATE^P5'^DIC(5,^0;4^Q"
^DD(2260.0125,3,3)="Enter the Witness's State"
^DD(2260.0125,3,21,0)="^^2^2^3000301^"
^DD(2260.0125,3,21,1,0)="This is the State portion of the Witness's address where they can be"
^DD(2260.0125,3,21,2,0)="contacted, if necessary."
^DD(2260.0125,3,"DT")="3000203"
^DD(2260.0125,4,0)="WITNESS ZIP CODE^FX^^0;5^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(2260.0125,4,3)="Answer with 5 numerics or 5 numerics, a dash (""-"") and 4 numerics.  e.g. 12345 or 12345-1234"
^DD(2260.0125,4,21,0)="^^2^2^3000301^"
^DD(2260.0125,4,21,1,0)="This is the Zip Code portion of the Witness's address where they can be"
^DD(2260.0125,4,21,2,0)="contacted, if necessary."
^DD(2260.0125,4,"DT")="3000328"
^DD(2260.0125,5,0)="DATE OF WITNESS SIGNATURE^DX^^0;6^S %DT=""ETX"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(2260.0125,5,3)="Enter the Date the Witness signed the Statement"
^DD(2260.0125,5,21,0)="^^1^1^3000306^"
^DD(2260.0125,5,21,1,0)="Enter the date that the Witness signed the Witness Statement"
^DD(2260.0125,5,"DT")="3000320"
^DD(2260.0125,6,0)="WITNESS STATEMENT^F^^1;1^K:$L(X)>200!($L(X)<3) X"
^DD(2260.0125,6,3)="Answer must be 3-200 characters in length"
^DD(2260.0125,6,21,0)="^^2^2^3000301^"
^DD(2260.0125,6,21,1,0)="This is the Statement that the Witness has provided concerning details of"
^DD(2260.0125,6,21,2,0)="the incident and what occurred."
^DD(2260.0125,6,"DT")="3000203"
^DD(2260.0125,"B","DATE OF WITNESS SIGNATURE",5)=""
^DD(2260.0125,"B","WITNESS ADDRESS",1)=""
^DD(2260.0125,"B","WITNESS CITY",2)=""
^DD(2260.0125,"B","WITNESS NAME",.01)=""
^DD(2260.0125,"B","WITNESS STATE",3)=""
^DD(2260.0125,"B","WITNESS STATEMENT",6)=""
^DD(2260.0125,"B","WITNESS ZIP CODE",4)=""
^DD(2260.0125,"GL",0,1,.01)=""
^DD(2260.0125,"GL",0,2,1)=""
^DD(2260.0125,"GL",0,3,2)=""
^DD(2260.0125,"GL",0,4,3)=""
^DD(2260.0125,"GL",0,5,4)=""
^DD(2260.0125,"GL",0,6,5)=""
^DD(2260.0125,"GL",1,1,6)=""
^DD(2260.0125,"IX",.01)=""
^DD(2260.0164,0)="SUPERVISOR NOT AGREE EXPLAIN SUB-FIELD^^.01^1"
^DD(2260.0164,0,"DT")="2980408"
^DD(2260.0164,0,"NM","SUPERVISOR NOT AGREE EXPLAIN")=""
^DD(2260.0164,0,"UP")="2260"
^DD(2260.0164,.01,0)="SUPERVISOR NOT AGREE EXPLAIN^W^^0;1^Q"
^DD(2260.0164,.01,3)="Enter the reasons why you disagree with the employee and/or witness statements."
^DD(2260.0164,.01,21,0)="^^2^2^2980410^"
^DD(2260.0164,.01,21,1,0)="This is why the supervisor does not agree with the statements of the"
^DD(2260.0164,.01,21,2,0)="employee and/or witness regarding the injury."
^DD(2260.0164,.01,"DT")="2980408"
^DD(2260.0164,"B","SUPERVISOR NOT AGREE EXPLAIN",.01)=""
^DD(2260.0164,"GL",0,1,.01)=""
^DD(2260.0165,0)="REASON AGENCY CONTROVERTS COP SUB-FIELD^^.01^1"
^DD(2260.0165,0,"DT")="2980408"
^DD(2260.0165,0,"NM","REASON AGENCY CONTROVERTS COP")=""
^DD(2260.0165,0,"UP")="2260"
^DD(2260.0165,.01,0)="REASON AGENCY CONTROVERTS COP^W^^0;1^Q"
^DD(2260.0165,.01,3)="Enter the reasons why the COP is controverted."
^DD(2260.0165,.01,21,0)="^.001^2^2^3011204^^^^"
^DD(2260.0165,.01,21,1,0)="This is a detailed reason why the employing agency controverts"
^DD(2260.0165,.01,21,2,0)="continuation of pay."
^DD(2260.0165,.01,23,0)="^.001^11^11^3011204^^^^"
^DD(2260.0165,.01,23,1,0)="If the statement exceeds 528 characters, additional documentation and narrative"
^DD(2260.0165,.01,23,2,0)="may be forwarded to OWCP upon receipt of the claim number.  The 9 reasons"
^DD(2260.0165,.01,23,3,0)="for controversions can be found in the OWCP Publication CA-810, ""Injury"
^DD(2260.0165,.01,23,4,0)="Compensation for Federal Employees"".  Disputes to an employee's right to"
^DD(2260.0165,.01,23,5,0)="receive COP can be for other grounds such as: employee was not performing"
^DD(2260.0165,.01,23,6,0)="the assigned duties when the injury occurred, or the condition claimed "
^DD(2260.0165,.01,23,7,0)="is not the result of a work-related injury.  Any such objections should be"
^DD(2260.0165,.01,23,8,0)="supported by factual evidence such as witness statements, pictures, accident"
^DD(2260.0165,.01,23,9,0)="investigation reports or time sheets.  Unless one of the 9 reasons are used,"
^DD(2260.0165,.01,23,10,0)="COP must be given to the employee if they have provided appropriate medical"
^DD(2260.0165,.01,23,11,0)="documentation supporting lost time within 10 days of the date(s) claimed."
^DD(2260.0165,.01,"DT")="3000425"
^DD(2260.0165,"B","REASON AGENCY CONTROVERTS COP",.01)=""
^DD(2260.0165,"GL",0,1,.01)=""
^DD(2260.02,0)="MEDICAL REPORT DELAYED SUB-FIELD^^.01^1"
^DD(2260.02,0,"DT")="2980408"
^DD(2260.02,0,"NM","MEDICAL REPORT DELAYED")=""
^DD(2260.02,0,"UP")="2260"
^DD(2260.02,.01,0)="MEDICAL REPORT DELAYED^W^^0;1^Q"
^DD(2260.02,.01,3)="Enter the reason medical reports are not submitted with this notice."
^DD(2260.02,.01,21,0)="^^14^14^2980413^"
^DD(2260.02,.01,21,1,0)="If medical reports containing the information listed here are not"
^DD(2260.02,.01,21,2,0)="submitted with this form, explain the reason for the delay."
^DD(2260.02,.01,21,3,0)=" "
^DD(2260.02,.01,21,4,0)="a) Dates of examination or treatment."
^DD(2260.02,.01,21,5,0)="b) History given to the physician by the employee."
^DD(2260.02,.01,21,6,0)="c) Detailed description of the physician's findings."
^DD(2260.02,.01,21,7,0)="d) Results of x-rays, laboratory tests, etc."
^DD(2260.02,.01,21,8,0)="e) Diagnosis."
^DD(2260.02,.01,21,9,0)="f) Clinical course of treatment."
^DD(2260.02,.01,21,10,0)="g) Physician's opinion as to whether the disease or illness was caused or"
^DD(2260.02,.01,21,11,0)="aggravated by the employment, along with an explanation of the basis for"
^DD(2260.02,.01,21,12,0)="this opinion. (Medical reports that do not explain the basis for the"
^DD(2260.02,.01,21,13,0)="physician's opinion are given very little weight in adjudicating the"
^DD(2260.02,.01,21,14,0)="claim.)"
^DD(2260.02,.01,"DT")="2980408"
^DD(2260.02,"B","MEDICAL REPORT DELAYED",.01)=""
^DD(2260.02,"GL",0,1,.01)=""
^DD(2260.0216,0)="RELATIONSHIP OF ILLNESS TO EMP SUB-FIELD^^.01^1"
^DD(2260.0216,0,"DT")="2980501"
^DD(2260.0216,0,"NM","RELATIONSHIP OF ILLNESS TO EMP")=""
^DD(2260.0216,0,"UP")="2260"
^DD(2260.0216,.01,0)="RELATIONSHIP OF ILLNESS TO EMP^W^^0;1^Q"
^DD(2260.0216,.01,.1)="13. EXPLAIN THE RELATIONSHIP TO YOUR EMPLOYMENT, AND WHY YOU CAME TO THIS REALIZATION"
^DD(2260.0216,.01,21,0)="^^2^2^2980616^^"
^DD(2260.0216,.01,21,1,0)="This is why you (the employee) feel the illness is related to your"
^DD(2260.0216,.01,21,2,0)="employment and how you came to this realization."
^DD(2260.0216,.01,"DT")="2980616"
^DD(2260.0216,"B","RELATIONSHIP OF ILLNESS TO EMP",.01)=""
^DD(2260.0216,"GL",0,1,.01)=""
^DD(2260.0217,0)="NATURE OF DISEASE/ILLNESS SUB-FIELD^^.01^1"
^DD(2260.0217,0,"DT")="2980408"
^DD(2260.0217,0,"NM","NATURE OF DISEASE/ILLNESS")=""
^DD(2260.0217,0,"UP")="2260"
^DD(2260.0217,.01,0)="NATURE OF DISEASE/ILLNESS^W^^0;1^Q"
^DD(2260.0217,.01,.1)="14. NATURE OF DISEASE OR ILLNESS"
^DD(2260.0217,.01,3)="Enter a complete description of the disease or illness."
^DD(2260.0217,.01,21,0)="^^3^3^2980616^^"
^DD(2260.0217,.01,21,1,0)="This is a complete description of the disease or illness.  Specify the"
^DD(2260.0217,.01,21,2,0)="left or right side if applicable (e.g., rash on left leg; carpal tunnel"
^DD(2260.0217,.01,21,3,0)="syndrome, right wrist)."
^DD(2260.0217,.01,"DT")="2980616"
^DD(2260.0217,"B","NATURE OF DISEASE/ILLNESS",.01)=""
^DD(2260.0217,"GL",0,1,.01)=""
^DD(2260.0218,0)="CLAIM NOT FILED SUB-FIELD^^.01^1"
^DD(2260.0218,0,"DT")="2980408"
^DD(2260.0218,0,"NM","CLAIM NOT FILED")=""
^DD(2260.0218,0,"UP")="2260"
^DD(2260.0218,.01,0)="CLAIM NOT FILED^W^^0;1^Q"
^DD(2260.0218,.01,3)="Explain your reason for the delay in filing this notice."
^DD(2260.0218,.01,21,0)="^^4^4^2980501^^"
^DD(2260.0218,.01,21,1,0)="If this notice and claim was not filed with the employing agency within 30"
^DD(2260.0218,.01,21,2,0)="days after the date you first realized the disease or illness was caused"
^DD(2260.0218,.01,21,3,0)="or aggravated by your employment, this is your (the employee's)"
^DD(2260.0218,.01,21,4,0)="explanation of the reason for the delay."
^DD(2260.0218,.01,"DT")="2980408"
^DD(2260.0218,"B","CLAIM NOT FILED",.01)=""
^DD(2260.0218,"GL",0,1,.01)=""
^DD(2260.0219,0)="EMPLOYEE STATEMENT DELAYED SUB-FIELD^^.01^1"
^DD(2260.0219,0,"DT")="2980408"
^DD(2260.0219,0,"NM","EMPLOYEE STATEMENT DELAYED")=""
^DD(2260.0219,0,"UP")="2260"
^DD(2260.0219,.01,0)="EMPLOYEE STATEMENT DELAYED^W^^0;1^Q"
^DD(2260.0219,.01,3)="If no attached employee statement, explain reason for delay."
^DD(2260.0219,.01,21,0)="^^22^22^2980410^"
^DD(2260.0219,.01,21,1,0)="If a seaparate narrative statement containing the following information"
^DD(2260.0219,.01,21,2,0)="will not be submitted with this form, explain the reason for the delay:"
^DD(2260.0219,.01,21,3,0)=" "
^DD(2260.0219,.01,21,4,0)="a) A detailed history of the disease or illness from the date it started."
^DD(2260.0219,.01,21,5,0)=" "
^DD(2260.0219,.01,21,6,0)="b) Complete details of the conditions of employment which are believed to"
^DD(2260.0219,.01,21,7,0)="be responsible for the disease or illness."
^DD(2260.0219,.01,21,8,0)=" "
^DD(2260.0219,.01,21,9,0)="c) A description of specific exposures to substances or stressful"
^DD(2260.0219,.01,21,10,0)="conditions causing the disease or illness, including locations where"
^DD(2260.0219,.01,21,11,0)="exposure or stress occurred, as well as, the number of hours per day and"
^DD(2260.0219,.01,21,12,0)="days of week of such exposure or stress."
^DD(2260.0219,.01,21,13,0)=" "
^DD(2260.0219,.01,21,14,0)="d) Identification of the part of the body affected. (If disability is due"
^DD(2260.0219,.01,21,15,0)="to a heart condition, give complete details of all activities for one week"
^DD(2260.0219,.01,21,16,0)="prior to the attack with particular attention to the final 24 hours of"
^DD(2260.0219,.01,21,17,0)="such period.)"
^DD(2260.0219,.01,21,18,0)=" "
^DD(2260.0219,.01,21,19,0)="e) A statement as to whether the employee ever suffered a similar"
^DD(2260.0219,.01,21,20,0)="condition. If so, provide full details of onset, history, and medical care"
^DD(2260.0219,.01,21,21,0)="received, along with names and addresses of physicians rendering"
^DD(2260.0219,.01,21,22,0)="treatment."
^DD(2260.0219,.01,"DT")="2980408"
^DD(2260.0219,"B","EMPLOYEE STATEMENT DELAYED",.01)=""
^DD(2260.0219,"GL",0,1,.01)=""
^DD(2260.0257,0)="WORK DUTY CHANGED SUB-FIELD^^.01^1"
^DD(2260.0257,0,"DT")="2980409"
^DD(2260.0257,0,"NM","WORK DUTY CHANGED")=""
^DD(2260.0257,0,"UP")="2260"
^DD(2260.0257,.01,0)="WORK DUTY CHANGED^W^^0;1^Q"
^DD(2260.0257,.01,3)="Enter the employee's new duties if the work assignment changed."
^DD(2260.0257,.01,21,0)="^^2^2^2980413^"
^DD(2260.0257,.01,21,1,0)="If the work assignment changed when the employee returned to work, this is"
^DD(2260.0257,.01,21,2,0)="a description of the employee's new duties."
^DD(2260.0257,.01,"DT")="2980409"
^DD(2260.0257,"B","WORK DUTY CHANGED",.01)=""
^DD(2260.0257,"GL",0,1,.01)=""
^DD(2260.028,0)="DESCRIPTION OF INCIDENT SUB-FIELD^^.01^1"
^DD(2260.028,0,"DT")="2980408"
^DD(2260.028,0,"NM","DESCRIPTION OF INCIDENT")=""
^DD(2260.028,0,"UP")="2260"
^DD(2260.028,.01,0)="DESCRIPTION OF INCIDENT^W^^0;1^Q"
^DD(2260.028,.01,.1)="DESCRIPTION OF INCIDENT "
^DD(2260.028,.01,3)="Provide information to fully narrate the incident."
^DD(2260.028,.01,"DT")="2980504"
^DD(2260.028,"B","DESCRIPTION OF INCIDENT",.01)=""
^DD(2260.028,"B","DESCRIPTION OF INCIDENT ",.01)="1"
^DD(2260.028,"GL",0,1,.01)=""
^DD(2260.039,0)="AREA EXPOSED TO BODILY FLUID SUB-FIELD^^.01^1"
^DD(2260.039,0,"DT")="2991129"
^DD(2260.039,0,"IX","B",2260.039,.01)=""
^DD(2260.039,0,"NM","AREA EXPOSED TO BODILY FLUID")=""
^DD(2260.039,0,"UP")="2260"
^DD(2260.039,.01,0)="AREA EXPOSED TO BODILY FLUID^MS^S:Skin;E:Eyes (conjunctiva);N:Nose (mucosa);M:Mouth (mucosa);O:Other;B:Both Eyes and Mouth;^0;1^Q"
^DD(2260.039,.01,.1)="AREA EXPOSED TO BODILY FLUID "
^DD(2260.039,.01,1,0)="^.1"
^DD(2260.039,.01,1,1,0)="2260.039^B"
^DD(2260.039,.01,1,1,1)="S ^OOPS(2260,DA(1),""2162E"",""B"",$E(X,1,30),DA)="""""
^DD(2260.039,.01,1,1,2)="K ^OOPS(2260,DA(1),""2162E"",""B"",$E(X,1,30),DA)"
^DD(2260.039,.01,3)="Enter the exposed body part(s)."
^DD(2260.039,.01,21,0)="^^1^1^2991129^^^^"
^DD(2260.039,.01,21,1,0)="This is a description of the exposed body parts."
^DD(2260.039,.01,"DT")="3010306"
^DD(2260.039,"B","AREA EXPOSED TO BODILY FLUID",.01)=""
^DD(2260.039,"B","AREA EXPOSED TO BODILY FLUID ",.01)="1"
^DD(2260.039,"GL",0,1,.01)=""
^DD(2260.039,"IX",.01)=""
^DD(2260.047,0)="CORRECTIVE ACTION SUB-FIELD^^.01^1"
^DD(2260.047,0,"DT")="2980410"
^DD(2260.047,0,"NM","CORRECTIVE ACTION")=""
^DD(2260.047,0,"UP")="2260"
^DD(2260.047,.01,0)="CORRECTIVE ACTION^W^^0;1^Q"
^DD(2260.047,.01,.1)="CORRECTIVE ACTION "
^DD(2260.047,.01,3)="Enter corrective action taken for this case."
^DD(2260.047,.01,21,0)="^^2^2^2980427^"
^DD(2260.047,.01,21,1,0)="This is a statement of any corrective action that was taken to prevent"
^DD(2260.047,.01,21,2,0)="further incidents of this kind."
^DD(2260.047,.01,"DT")="2980504"
^DD(2260.047,"B","CORRECTIVE ACTION",.01)=""
^DD(2260.047,"B","CORRECTIVE ACTION ",.01)="1"
^DD(2260.047,"GL",0,1,.01)=""
^DD(2260.055,0)="SAFETY OFF. COMMENTS SUB-FIELD^^.01^1"
^DD(2260.055,0,"DT")="2980427"
^DD(2260.055,0,"NM","SAFETY OFF. COMMENTS")=""
^DD(2260.055,0,"UP")="2260"
^DD(2260.055,.01,0)="SAFETY OFF. COMMENTS^W^^0;1^Q"
^DD(2260.055,.01,.1)="SAFETY OFF. COMMENTS "
^DD(2260.055,.01,3)="Enter any comments you have about this case."
^DD(2260.055,.01,21,0)="^^1^1^2980427^"
^DD(2260.055,.01,21,1,0)="These are comments from the safety officer about this case."
^DD(2260.055,.01,"DT")="2980504"
^DD(2260.055,"B","SAFETY OFF. COMMENTS",.01)=""
^DD(2260.055,"B","SAFETY OFF. COMMENTS ",.01)="1"
^DD(2260.055,"GL",0,1,.01)=""
^DD(2260.095,0)="INCIDENT OUTCOME SUB-FIELD^^10^11"
^DD(2260.095,0,"DT")="3040924"
^DD(2260.095,0,"NM","INCIDENT OUTCOME")=""
^DD(2260.095,0,"UP")="2260"
^DD(2260.095,.01,0)="START DATE INCIDENT OUTCOME^MRD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260.095,.01,1,0)="^.1^^0"
^DD(2260.095,.01,3)="Enter the first day for this outcome."
^DD(2260.095,.01,21,0)="^^1^1^3041122^"
^DD(2260.095,.01,21,1,0)="This is the first date for the incident being entered."
^DD(2260.095,.01,"DT")="3040809"
^DD(2260.095,1,0)="END DATE INCIDENT OUTCOME^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260.095,1,3)="Enter the last date for this outcome"
^DD(2260.095,1,21,0)="^^1^1^3041122^"
^DD(2260.095,1,21,1,0)="This is the ending date for the incident information for this outcome."
^DD(2260.095,1,"DT")="3040715"
^DD(2260.095,2,0)="INCIDENT OUTCOME^S^D:Death;A:Away Work;J:Job Transfer/Restriction;O:Other Recordable;^0;3^Q"
^DD(2260.095,2,3)="Enter the type of incident outcome."
^DD(2260.095,2,21,0)="^^2^2^3041122^"
^DD(2260.095,2,21,1,0)="This is the incident outcome type for this incident.  Valid choices are:"
^DD(2260.095,2,21,2,0)="Death, Away Work, Job Transfer/Restriction, or Other Recordable."
^DD(2260.095,2,"DT")="3040901"
^DD(2260.095,3,0)="DAYS AWAY WORK^NJ6,0^^0;4^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2260.095,3,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2260.095,3,21,0)="^^1^1^3041122^"
^DD(2260.095,3,21,1,0)="This will contain the number of days away from work for this incident."
^DD(2260.095,3,"DT")="3040715"
^DD(2260.095,4,0)="DAYS JOB TRANSFER/RESTRICTION^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2260.095,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2260.095,4,21,0)="^^2^2^3041122^"
^DD(2260.095,4,21,1,0)="This will contain the number of days of job transfer or restriction"
^DD(2260.095,4,21,2,0)="for this incident."
^DD(2260.095,4,"DT")="3040715"
^DD(2260.095,5,0)="ESTIMATED RETURN DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2260.095,5,3)="Enter the date the employee is expected to return to work."
^DD(2260.095,5,21,0)="^.001^2^2^3041122^^"
^DD(2260.095,5,21,1,0)="This contains the estimated return to work date determined by the workers'"
^DD(2260.095,5,21,2,0)="compensation specialist or the safety official."
^DD(2260.095,5,"DT")="3040715"
^DD(2260.095,6,0)="DATE OUTCOME CREATED^D^^0;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2260.095,6,3)="Enter the date the incident outcome was created."
^DD(2260.095,6,21,0)="^.001^2^2^3041122^^"
^DD(2260.095,6,21,1,0)="This system generated date will store the date this incident outcome"
^DD(2260.095,6,21,2,0)="was created."
^DD(2260.095,6,"DT")="3040809"
^DD(2260.095,7,0)="INCIDENT CREATED BY^P200'^VA(200,^0;8^Q"
^DD(2260.095,7,3)="Enter the person who created the record."
^DD(2260.095,7,21,0)="2^.001^2^2^3041123^^"
^DD(2260.095,7,21,1,0)="The application will automatically store the user who created"
^DD(2260.095,7,21,2,0)="the incident outcome record."
^DD(2260.095,7,"DT")="3040809"
^DD(2260.095,8,0)="LAST EDIT DATE^D^^0;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(2260.095,8,3)="Enter the date the incident record was last edited"
^DD(2260.095,8,21,0)="^^2^2^3041122^"
^DD(2260.095,8,21,1,0)="The application will automatically store the date the incident outcome"
^DD(2260.095,8,21,2,0)="record was edited."
^DD(2260.095,8,"DT")="3040809"
^DD(2260.095,9,0)="LAST EDITED BY^P200'^VA(200,^0;10^Q"
^DD(2260.095,9,3)="Enter the person who last edited the incident record"
^DD(2260.095,9,21,0)="^.001^2^2^3041123^^"
^DD(2260.095,9,21,1,0)="The application will store the user who last edited this incident"
^DD(2260.095,9,21,2,0)="outcome record."
^DD(2260.095,9,"DT")="3040809"
^DD(2260.095,10,0)="STATUS^S^A:Added;D:Deleted;^0;11^Q"
^DD(2260.095,10,3)="Enter A if the incident is active, a D if it is deleted"
^DD(2260.095,10,21,0)="^^3^3^3041122^"
^DD(2260.095,10,21,1,0)="This is the status of the incident outcome.  If the incident has been entered"
^DD(2260.095,10,21,2,0)="in error, the user can mark the record deleted and it will not be used when "
^DD(2260.095,10,21,3,0)="determining the total number of days the individual's work was impacted."
^DD(2260.095,10,"DT")="3040924"
^DD(2260.095,"B","DATE OUTCOME CREATED",6)=""
^DD(2260.095,"B","DAYS AWAY WORK",3)=""
^DD(2260.095,"B","DAYS JOB TRANSFER/RESTRICTION",4)=""
^DD(2260.095,"B","END DATE INCIDENT OUTCOME",1)=""
^DD(2260.095,"B","ESTIMATED RETURN DATE",5)=""
^DD(2260.095,"B","INCIDENT CREATED BY",7)=""
^DD(2260.095,"B","INCIDENT OUTCOME",2)=""
^DD(2260.095,"B","LAST EDIT DATE",8)=""
^DD(2260.095,"B","LAST EDITED BY",9)=""
^DD(2260.095,"B","START DATE INCIDENT OUTCOME",.01)=""
^DD(2260.095,"B","STATUS",10)=""
^DD(2260.095,"GL",0,1,.01)=""
^DD(2260.095,"GL",0,2,1)=""
^DD(2260.095,"GL",0,3,2)=""
^DD(2260.095,"GL",0,4,3)=""
^DD(2260.095,"GL",0,5,4)=""
^DD(2260.095,"GL",0,6,5)=""
^DD(2260.095,"GL",0,7,6)=""
^DD(2260.095,"GL",0,8,7)=""
^DD(2260.095,"GL",0,9,8)=""
^DD(2260.095,"GL",0,10,9)=""
^DD(2260.095,"GL",0,11,10)=""
^DD(2260.095,"RQ",.01)=""
^DD(2261,0)="FIELD^^1^2"
^DD(2261,0,"DDA")="N"
^DD(2261,0,"IX","B",2261,.01)=""
^DD(2261,0,"IX","C",2261,1)=""
^DD(2261,0,"IX","D",2261,.01)=""
^DD(2261,0,"NM","ASISTS CHARACTERIZATION OF INJURY")=""
^DD(2261,0,"PT",2260,29)=""
^DD(2261,0,"VR")="2.0"
^DD(2261,0,"VRPK")="OOPS"
^DD(2261,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(2261,.01,1,0)="^.1"
^DD(2261,.01,1,1,0)="2261^B"
^DD(2261,.01,1,1,1)="S ^OOPS(2261,""B"",$E(X,1,30),DA)="""""
^DD(2261,.01,1,1,2)="K ^OOPS(2261,""B"",$E(X,1,30),DA)"
^DD(2261,.01,1,2,0)="2261^D^MUMPS"
^DD(2261,.01,1,2,1)="S ^OOPS(2261,""D"",$TR($E(X,1,30),""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)="""""
^DD(2261,.01,1,2,2)="K ^OOPS(2261,""D"",$TR($E(X,1,30),""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ""),DA)"
^DD(2261,.01,1,2,"%D",0)="^^2^2^2980401^"
^DD(2261,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261,.01,1,2,"%D",2,0)="values."
^DD(2261,.01,1,2,"DT")="2980401"
^DD(2261,.01,3)="Answer must be 3-60 characters in length."
^DD(2261,.01,"DT")="2980401"
^DD(2261,1,0)="CODE^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(2261,1,1,0)="^.1"
^DD(2261,1,1,1,0)="2261^C"
^DD(2261,1,1,1,1)="S ^OOPS(2261,""C"",$E(X,1,30),DA)="""""
^DD(2261,1,1,1,2)="K ^OOPS(2261,""C"",$E(X,1,30),DA)"
^DD(2261,1,1,1,"DT")="2980311"
^DD(2261,1,3)="Answer must be 1-3 characters in length."
^DD(2261,1,21,0)="^^1^1^2980310^"
^DD(2261,1,21,1,0)="Enter the correct code that will identify this injury."
^DD(2261,1,"DT")="2980311"
^DD(2261,"B","CODE",1)=""
^DD(2261,"B","NAME",.01)=""
^DD(2261,"GL",0,1,.01)=""
^DD(2261,"GL",0,2,1)=""
^DD(2261,"IX",.01)=""
^DD(2261,"IX",1)=""
^DD(2261,"RQ",.01)=""
^DD(2261.1,0)="FIELD^^2^3"
^DD(2261.1,0,"DDA")="N"
^DD(2261.1,0,"DT")="3040308"
^DD(2261.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2261.1,0,"IX","B",2261.1,.01)=""
^DD(2261.1,0,"IX","C",2261.1,1)=""
^DD(2261.1,0,"IX","D",2261.1,.01)=""
^DD(2261.1,0,"NM","ASISTS DOL ANATOMICAL LOCATION CODES")=""
^DD(2261.1,0,"PT",2260,30)=""
^DD(2261.1,0,"PT",2260,30.1)=""
^DD(2261.1,0,"VR")="2.0"
^DD(2261.1,0,"VRPK")="OOPS"
^DD(2261.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.1,.01,1,0)="^.1"
^DD(2261.1,.01,1,1,0)="2261.1^B"
^DD(2261.1,.01,1,1,1)="S ^OOPS(2261.1,""B"",$E(X,1,30),DA)="""""
^DD(2261.1,.01,1,1,2)="K ^OOPS(2261.1,""B"",$E(X,1,30),DA)"
^DD(2261.1,.01,1,2,0)="2261.1^D^MUMPS"
^DD(2261.1,.01,1,2,1)="S ^OOPS(2261.1,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.1,.01,1,2,2)="K ^OOPS(2261.1,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.1,.01,1,2,"%D",0)="^^2^2^2980505^^"
^DD(2261.1,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261.1,.01,1,2,"%D",2,0)="values."
^DD(2261.1,.01,1,2,"DT")="2980505"
^DD(2261.1,.01,3)="Answer must be 3-30 characters in length."
^DD(2261.1,.01,21,0)="^.001^1^1^3000324^^^^"
^DD(2261.1,.01,21,1,0)="Enter a body part."
^DD(2261.1,.01,"DT")="2980505"
^DD(2261.1,1,0)="CODE^RF^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(2261.1,1,1,0)="^.1"
^DD(2261.1,1,1,1,0)="2261.1^C"
^DD(2261.1,1,1,1,1)="S ^OOPS(2261.1,""C"",$E(X,1,30),DA)="""""
^DD(2261.1,1,1,1,2)="K ^OOPS(2261.1,""C"",$E(X,1,30),DA)"
^DD(2261.1,1,1,1,"DT")="2980311"
^DD(2261.1,1,3)="Answer must be 1-2 characters in length."
^DD(2261.1,1,21,0)="^.001^1^1^3000324^^^^"
^DD(2261.1,1,21,1,0)="Enter a code that will identify a body part."
^DD(2261.1,1,"DT")="3000306"
^DD(2261.1,2,0)="BODY PART GROUP^P2263.8'^OOPS(2263.8,^0;3^Q"
^DD(2261.1,2,3)="Enter the Body Part Group for this entry."
^DD(2261.1,2,21,0)="^^3^3^3040527^"
^DD(2261.1,2,21,1,0)="This field contains body part group that the body part is associated with.  Use"
^DD(2261.1,2,21,2,0)="of the Body Part Group will enable the users to more quickly and accurately"
^DD(2261.1,2,21,3,0)="select the correct body part affected by the incident."
^DD(2261.1,2,"DT")="3040308"
^DD(2261.1,"B","BODY PART GROUP",2)=""
^DD(2261.1,"B","CODE",1)=""
^DD(2261.1,"B","NAME",.01)=""
^DD(2261.1,"GL",0,1,.01)=""
^DD(2261.1,"GL",0,2,1)=""
^DD(2261.1,"GL",0,3,2)=""
^DD(2261.1,"IX",.01)=""
^DD(2261.1,"IX",1)=""
^DD(2261.1,"RQ",.01)=""
^DD(2261.1,"RQ",1)=""
^DD(2261.2,0)="FIELD^^1^2"
^DD(2261.2,0,"DDA")="N"
^DD(2261.2,0,"DT")="2980311"
^DD(2261.2,0,"IX","B",2261.2,.01)=""
^DD(2261.2,0,"IX","C",2261.2,1)=""
^DD(2261.2,0,"IX","D",2261.2,.01)=""
^DD(2261.2,0,"NM","ASISTS CRITICAL TRACKING ISSUES")=""
^DD(2261.2,0,"PT",2260,3)=""
^DD(2261.2,0,"VR")="2.0"
^DD(2261.2,0,"VRPK")="OOPS"
^DD(2261.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.2,.01,1,0)="^.1"
^DD(2261.2,.01,1,1,0)="2261.2^B"
^DD(2261.2,.01,1,1,1)="S ^OOPS(2261.2,""B"",$E(X,1,30),DA)="""""
^DD(2261.2,.01,1,1,2)="K ^OOPS(2261.2,""B"",$E(X,1,30),DA)"
^DD(2261.2,.01,1,2,0)="2261.2^D^MUMPS"
^DD(2261.2,.01,1,2,1)="S ^OOPS(2261.2,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.2,.01,1,2,2)="K ^OOPS(2261.2,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.2,.01,1,2,"%D",0)="^^2^2^2980505^^"
^DD(2261.2,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261.2,.01,1,2,"%D",2,0)="values."
^DD(2261.2,.01,1,2,"DT")="2980505"
^DD(2261.2,.01,3)="Answer must be 3-30 characters in length."
^DD(2261.2,.01,21,0)="^^1^1^2980311^"
^DD(2261.2,.01,21,1,0)="Enter a injury category name."
^DD(2261.2,.01,"DT")="2980505"
^DD(2261.2,1,0)="CASE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2261.2,1,1,0)="^.1"
^DD(2261.2,1,1,1,0)="2261.2^C"
^DD(2261.2,1,1,1,1)="S ^OOPS(2261.2,""C"",$E(X,1,30),DA)="""""
^DD(2261.2,1,1,1,2)="K ^OOPS(2261.2,""C"",$E(X,1,30),DA)"
^DD(2261.2,1,1,1,"DT")="2980311"
^DD(2261.2,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2261.2,1,21,0)="^^1^1^2980311^"
^DD(2261.2,1,21,1,0)="Enter a code that identifies a injury category."
^DD(2261.2,1,"DT")="2980311"
^DD(2261.2,"B","CASE",1)=""
^DD(2261.2,"B","NAME",.01)=""
^DD(2261.2,"GL",0,1,.01)=""
^DD(2261.2,"GL",0,2,1)=""
^DD(2261.2,"IX",.01)=""
^DD(2261.2,"IX",1)=""
^DD(2261.2,"RQ",.01)=""
^DD(2261.3,0)="FIELD^^.01^1"
^DD(2261.3,0,"DDA")="N"
^DD(2261.3,0,"IX","B",2261.3,.01)=""
^DD(2261.3,0,"IX","D",2261.3,.01)=""
^DD(2261.3,0,"NM","ASISTS PERSONAL PROTECTIVE EQUIPMENT")=""
^DD(2261.3,0,"PT",2260.01,.01)=""
^DD(2261.3,0,"VR")="2.0"
^DD(2261.3,0,"VRPK")="OOPS"
^DD(2261.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.3,.01,1,0)="^.1"
^DD(2261.3,.01,1,1,0)="2261.3^B"
^DD(2261.3,.01,1,1,1)="S ^OOPS(2261.3,""B"",$E(X,1,30),DA)="""""
^DD(2261.3,.01,1,1,2)="K ^OOPS(2261.3,""B"",$E(X,1,30),DA)"
^DD(2261.3,.01,1,2,0)="2261.3^D^MUMPS"
^DD(2261.3,.01,1,2,1)="S ^OOPS(2261.3,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.3,.01,1,2,2)="K ^OOPS(2261.3,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.3,.01,1,2,"%D",0)="^^1^1^2980505^"
^DD(2261.3,.01,1,2,"%D",1,0)="This cross-reference allow selection of entries by upper-case values."
^DD(2261.3,.01,1,2,"DT")="2980505"
^DD(2261.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2261.3,.01,"DT")="2980505"
^DD(2261.3,"B","NAME",.01)=""
^DD(2261.3,"GL",0,1,.01)=""
^DD(2261.3,"IX",.01)=""
^DD(2261.3,"RQ",.01)=""
^DD(2261.4,0)="FIELD^^3^4"
^DD(2261.4,0,"DDA")="N"
^DD(2261.4,0,"DT")="3050427"
^DD(2261.4,0,"IX","B",2261.4,.01)=""
^DD(2261.4,0,"IX","C",2261.4,1)=""
^DD(2261.4,0,"IX","D",2261.4,.01)=""
^DD(2261.4,0,"IX","F",2261.431,.01)=""
^DD(2261.4,0,"NM","ASISTS SETTING OF INJURY")=""
^DD(2261.4,0,"PT",2260,27)=""
^DD(2261.4,0,"VR")="2.0"
^DD(2261.4,0,"VRPK")="OOPS"
^DD(2261.4,.01,0)="NAME^RF^^0;1^K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.4,.01,1,0)="^.1"
^DD(2261.4,.01,1,1,0)="2261.4^B"
^DD(2261.4,.01,1,1,1)="S ^OOPS(2261.4,""B"",$E(X,1,30),DA)="""""
^DD(2261.4,.01,1,1,2)="K ^OOPS(2261.4,""B"",$E(X,1,30),DA)"
^DD(2261.4,.01,1,2,0)="2261.4^D^MUMPS"
^DD(2261.4,.01,1,2,1)="S ^OOPS(2261.4,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.4,.01,1,2,2)="K ^OOPS(2261.4,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.4,.01,1,2,"%D",0)="^^2^2^2980505^^"
^DD(2261.4,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261.4,.01,1,2,"%D",2,0)="values."
^DD(2261.4,.01,1,2,"DT")="2980505"
^DD(2261.4,.01,3)="Answer must be 3-35 characters in length."
^DD(2261.4,.01,21,0)="^^3^3^2980316^^^"
^DD(2261.4,.01,21,1,0)="Enter a general setting of injury."
^DD(2261.4,.01,21,2,0)="This entry must describe a setting for an injury"
^DD(2261.4,.01,21,3,0)="for patient or non-patient areas."
^DD(2261.4,.01,"DT")="2980505"
^DD(2261.4,1,0)="CODE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2261.4,1,1,0)="^.1"
^DD(2261.4,1,1,1,0)="2261.4^C"
^DD(2261.4,1,1,1,1)="S ^OOPS(2261.4,""C"",$E(X,1,30),DA)="""""
^DD(2261.4,1,1,1,2)="K ^OOPS(2261.4,""C"",$E(X,1,30),DA)"
^DD(2261.4,1,1,1,"DT")="2980311"
^DD(2261.4,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2261.4,1,21,0)="^.001^1^1^3050414^^^^"
^DD(2261.4,1,21,1,0)="Enter a code that will identify a general setting of injury."
^DD(2261.4,1,"DT")="3050414"
^DD(2261.4,2,0)="TYPE OF AREA^RS^P:PATIENT CARE;N:NON-PATIENT;^0;3^Q"
^DD(2261.4,2,21,0)="^^2^2^2980401^"
^DD(2261.4,2,21,1,0)="This field contains the patient/non-patient categorization"
^DD(2261.4,2,21,2,0)="of the setting."
^DD(2261.4,2,"DT")="2980401"
^DD(2261.4,3,0)="STATION^2261.43PA^^1;0"
^DD(2261.4,3,21,0)="^^1^1^3050628^"
^DD(2261.4,3,21,1,0)="This is the station where the location details are applicable."
^DD(2261.4,"B","CODE",1)=""
^DD(2261.4,"B","NAME",.01)=""
^DD(2261.4,"B","STATION",3)=""
^DD(2261.4,"B","TYPE OF AREA",2)=""
^DD(2261.4,"GL",0,1,.01)=""
^DD(2261.4,"GL",0,2,1)=""
^DD(2261.4,"GL",0,3,2)=""
^DD(2261.4,"GL",1,0,3)=""
^DD(2261.4,"IX",.01)=""
^DD(2261.4,"IX",1)=""
^DD(2261.4,"RQ",.01)=""
^DD(2261.4,"RQ",2)=""
^DD(2261.4,"SB",2261.43,3)=""
^DD(2261.43,0)="STATION SUB-FIELD^^1^2"
^DD(2261.43,0,"DT")="3050427"
^DD(2261.43,0,"IX","B",2261.43,.01)=""
^DD(2261.43,0,"NM","STATION")=""
^DD(2261.43,0,"UP")="2261.4"
^DD(2261.43,.01,0)="STATION^MR*P4'^DIC(4,^0;1^S DIC(""S"")=""I $$VALSTA^OOPSUTL6(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(2261.43,.01,1,0)="^.1"
^DD(2261.43,.01,1,1,0)="2261.43^B"
^DD(2261.43,.01,1,1,1)="S ^OOPS(2261.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2261.43,.01,1,1,2)="K ^OOPS(2261.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2261.43,.01,12)="Only allow Stations in the Site Parameter file to be selected."
^DD(2261.43,.01,12.1)="S DIC(""S"")=""I $$VALSTA^OOPSUTL6(Y)"""
^DD(2261.43,.01,"DT")="3050425"
^DD(2261.43,1,0)="LOCATION OF INJURY DETAIL^2261.431A^^1;0"
^DD(2261.43,1,21,0)="^.001^2^2^3050628^^"
^DD(2261.43,1,21,1,0)="This field contains the location of injury detail which can be"
^DD(2261.43,1,21,2,0)="thought of as the sub-location where the incident occurred."
^DD(2261.43,1,"DT")="3050628"
^DD(2261.43,"B","LOCATION OF INJURY DETAIL",1)=""
^DD(2261.43,"B","STATION",.01)=""
^DD(2261.43,"GL",0,1,.01)=""
^DD(2261.43,"GL",1,0,1)=""
^DD(2261.43,"IX",.01)=""
^DD(2261.43,"RQ",.01)=""
^DD(2261.43,"SB",2261.431,1)=""
^DD(2261.431,0)="LOCATION OF INJURY DETAIL SUB-FIELD^^.01^1"
^DD(2261.431,0,"DT")="3050427"
^DD(2261.431,0,"IX","B",2261.431,.01)=""
^DD(2261.431,0,"NM","LOCATION OF INJURY DETAIL")=""
^DD(2261.431,0,"UP")="2261.43"
^DD(2261.431,.01,0)="LOCATION OF INJURY DETAIL^MRF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(2261.431,.01,1,0)="^.1"
^DD(2261.431,.01,1,1,0)="2261.431^B"
^DD(2261.431,.01,1,1,1)="S ^OOPS(2261.4,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2261.431,.01,1,1,2)="K ^OOPS(2261.4,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2261.431,.01,1,2,0)="2261.4^F^MUMPS"
^DD(2261.431,.01,1,2,1)="S ^OOPS(2261.4,""F"",DA(1),DA(2),$E(X,1,30),DA)="""""
^DD(2261.431,.01,1,2,2)="K ^OOPS(2261.4,""F"",DA(1),DA(2),$E(X,1,30),DA)"
^DD(2261.431,.01,1,2,"DT")="3050425"
^DD(2261.431,.01,3)="Answer must be 3-30 characters in length."
^DD(2261.431,.01,21,0)="^^2^2^3050628^"
^DD(2261.431,.01,21,1,0)="This field contains the location of injury detail which can be "
^DD(2261.431,.01,21,2,0)="thought of as the sub-location where the incident occurred."
^DD(2261.431,.01,"DT")="3050628"
^DD(2261.431,"B","LOCATION OF INJURY DETAIL",.01)=""
^DD(2261.431,"GL",0,1,.01)=""
^DD(2261.431,"IX",.01)=""
^DD(2261.431,"RQ",.01)=""
^DD(2261.5,0)="FIELD^^1^2"
^DD(2261.5,0,"DDA")="N"
^DD(2261.5,0,"DT")="2980316"
^DD(2261.5,0,"IX","B",2261.5,.01)=""
^DD(2261.5,0,"IX","C",2261.5,1)=""
^DD(2261.5,0,"IX","D",2261.5,.01)=""
^DD(2261.5,0,"NM","ASISTS PURPOSE FOR USING SHARPS")=""
^DD(2261.5,0,"PT",2260,36)=""
^DD(2261.5,0,"VR")="2.0"
^DD(2261.5,0,"VRPK")="OOPS"
^DD(2261.5,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.5,.01,1,0)="^.1"
^DD(2261.5,.01,1,1,0)="2261.5^B"
^DD(2261.5,.01,1,1,1)="S ^OOPS(2261.5,""B"",$E(X,1,30),DA)="""""
^DD(2261.5,.01,1,1,2)="K ^OOPS(2261.5,""B"",$E(X,1,30),DA)"
^DD(2261.5,.01,1,2,0)="2261.5^D^MUMPS"
^DD(2261.5,.01,1,2,1)="S ^OOPS(2261.5,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.5,.01,1,2,2)="K ^OOPS(2261.5,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.5,.01,1,2,"%D",0)="^^2^2^2980505^^"
^DD(2261.5,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261.5,.01,1,2,"%D",2,0)="values."
^DD(2261.5,.01,1,2,"DT")="2980505"
^DD(2261.5,.01,3)="Answer must be 3-100 characters in length."
^DD(2261.5,.01,21,0)="^^1^1^2980316^^^^"
^DD(2261.5,.01,21,1,0)="Enter a purpose for using Sharps."
^DD(2261.5,.01,"DT")="2980505"
^DD(2261.5,1,0)="CODE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2261.5,1,1,0)="^.1"
^DD(2261.5,1,1,1,0)="2261.5^C"
^DD(2261.5,1,1,1,1)="S ^OOPS(2261.5,""C"",$E(X,1,30),DA)="""""
^DD(2261.5,1,1,1,2)="K ^OOPS(2261.5,""C"",$E(X,1,30),DA)"
^DD(2261.5,1,1,1,"DT")="2980311"
^DD(2261.5,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2261.5,1,21,0)="^^2^2^2980310^^"
^DD(2261.5,1,21,1,0)="Enter a code that will identify a purpose for"
^DD(2261.5,1,21,2,0)="using sharps."
^DD(2261.5,1,"DT")="2980311"
^DD(2261.5,"B","CODE",1)=""
^DD(2261.5,"B","NAME",.01)=""
^DD(2261.5,"GL",0,1,.01)=""
^DD(2261.5,"GL",0,2,1)=""
^DD(2261.5,"IX",.01)=""
^DD(2261.5,"IX",1)=""
^DD(2261.5,"RQ",.01)=""
^DD(2261.6,0)="FIELD^^1^2"
^DD(2261.6,0,"DDA")="N"
^DD(2261.6,0,"DT")="2980316"
^DD(2261.6,0,"IX","B",2261.6,.01)=""
^DD(2261.6,0,"IX","C",2261.6,1)=""
^DD(2261.6,0,"IX","D",2261.6,.01)=""
^DD(2261.6,0,"NM","ASISTS OCCURRENCE OF SHARPS INJURY")=""
^DD(2261.6,0,"PT",2260,37)=""
^DD(2261.6,0,"VR")="2.0"
^DD(2261.6,0,"VRPK")="OOPS"
^DD(2261.6,.01,0)="NAME^RF^^0;1^K:$L(X)>200!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.6,.01,1,0)="^.1"
^DD(2261.6,.01,1,1,0)="2261.6^B"
^DD(2261.6,.01,1,1,1)="S ^OOPS(2261.6,""B"",$E(X,1,30),DA)="""""
^DD(2261.6,.01,1,1,2)="K ^OOPS(2261.6,""B"",$E(X,1,30),DA)"
^DD(2261.6,.01,1,2,0)="2261.6^D^MUMPS"
^DD(2261.6,.01,1,2,1)="S ^OOPS(2261.6,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.6,.01,1,2,2)="K ^OOPS(2261.6,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.6,.01,1,2,"%D",0)="^^2^2^2980505^^"
^DD(2261.6,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261.6,.01,1,2,"%D",2,0)="values."
^DD(2261.6,.01,1,2,"DT")="2980505"
^DD(2261.6,.01,3)="Answer must be 3-200 characters in length."
^DD(2261.6,.01,21,0)="^^2^2^2980428^"
^DD(2261.6,.01,21,1,0)="Enter an occurrence of sharps injury. This field will describe an"
^DD(2261.6,.01,21,2,0)="occurrence of a sharps injury."
^DD(2261.6,.01,"DT")="2980505"
^DD(2261.6,1,0)="CODE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2261.6,1,1,0)="^.1"
^DD(2261.6,1,1,1,0)="2261.6^C"
^DD(2261.6,1,1,1,1)="S ^OOPS(2261.6,""C"",$E(X,1,30),DA)="""""
^DD(2261.6,1,1,1,2)="K ^OOPS(2261.6,""C"",$E(X,1,30),DA)"
^DD(2261.6,1,1,1,"DT")="2980311"
^DD(2261.6,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2261.6,1,21,0)="^^1^1^2980617^"
^DD(2261.6,1,21,1,0)="This code will identify the occurrence of a sharps injury."
^DD(2261.6,1,"DT")="2980311"
^DD(2261.6,"B","CODE",1)=""
^DD(2261.6,"B","NAME",.01)=""
^DD(2261.6,"GL",0,1,.01)=""
^DD(2261.6,"GL",0,2,1)=""
^DD(2261.6,"IX",.01)=""
^DD(2261.6,"IX",1)=""
^DD(2261.6,"RQ",.01)=""
^DD(2261.7,0)="FIELD^^2^3"
^DD(2261.7,0,"DDA")="N"
^DD(2261.7,0,"DT")="2980408"
^DD(2261.7,0,"IX","B",2261.7,.01)=""
^DD(2261.7,0,"IX","C",2261.7,1)=""
^DD(2261.7,0,"IX","D",2261.7,.01)=""
^DD(2261.7,0,"NM","ASISTS DEVICE/EQUIPMENT")=""
^DD(2261.7,0,"PT",2260,38)=""
^DD(2261.7,0,"VR")="2.0"
^DD(2261.7,0,"VRPK")="OOPS"
^DD(2261.7,.01,0)="NAME^RF^^0;1^K:$L(X)>90!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.7,.01,1,0)="^.1"
^DD(2261.7,.01,1,1,0)="2261.7^B"
^DD(2261.7,.01,1,1,1)="S ^OOPS(2261.7,""B"",$E(X,1,30),DA)="""""
^DD(2261.7,.01,1,1,2)="K ^OOPS(2261.7,""B"",$E(X,1,30),DA)"
^DD(2261.7,.01,1,2,0)="2261.7^D^MUMPS"
^DD(2261.7,.01,1,2,1)="S ^OOPS(2261.7,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.7,.01,1,2,2)="K ^OOPS(2261.7,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.7,.01,1,2,"%D",0)="^^2^2^2980505^^"
^DD(2261.7,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261.7,.01,1,2,"%D",2,0)="values."
^DD(2261.7,.01,1,2,"DT")="2980505"
^DD(2261.7,.01,3)="Answer must be 3-90 characters in length."
^DD(2261.7,.01,21,0)="^^2^2^2980317^^"
^DD(2261.7,.01,21,1,0)="Enter a Device/Equipment that will identify"
^DD(2261.7,.01,21,2,0)="a sharps exposure item."
^DD(2261.7,.01,"DT")="2980505"
^DD(2261.7,1,0)="CODE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2261.7,1,1,0)="^.1"
^DD(2261.7,1,1,1,0)="2261.7^C"
^DD(2261.7,1,1,1,1)="S ^OOPS(2261.7,""C"",$E(X,1,30),DA)="""""
^DD(2261.7,1,1,1,2)="K ^OOPS(2261.7,""C"",$E(X,1,30),DA)"
^DD(2261.7,1,1,1,"DT")="2980311"
^DD(2261.7,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2261.7,1,21,0)="^^2^2^2980310^^"
^DD(2261.7,1,21,1,0)="Enter a code that will identify a sharps exposure"
^DD(2261.7,1,21,2,0)="item."
^DD(2261.7,1,"DT")="2980311"
^DD(2261.7,2,0)="TYPE^S^S:Sharp;N:Needlestick;^0;3^Q"
^DD(2261.7,2,"DT")="2980408"
^DD(2261.7,"B","CODE",1)=""
^DD(2261.7,"B","NAME",.01)=""
^DD(2261.7,"B","TYPE",2)=""
^DD(2261.7,"GL",0,1,.01)=""
^DD(2261.7,"GL",0,2,1)=""
^DD(2261.7,"GL",0,3,2)=""
^DD(2261.7,"IX",.01)=""
^DD(2261.7,"IX",1)=""
^DD(2261.7,"RQ",.01)=""
^DD(2261.8,0)="FIELD^^1^2"
^DD(2261.8,0,"DDA")="N"
^DD(2261.8,0,"DT")="2980316"
^DD(2261.8,0,"IX","B",2261.8,.01)=""
^DD(2261.8,0,"IX","C",2261.8,1)=""
^DD(2261.8,0,"IX","D",2261.8,.01)=""
^DD(2261.8,0,"NM","ASISTS RESULTS")=""
^DD(2261.8,0,"PT",2260,41)=""
^DD(2261.8,0,"VR")="2.0"
^DD(2261.8,0,"VRPK")="OOPS"
^DD(2261.8,.01,0)="NAME^RF^^0;1^K:$L(X)>100!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.8,.01,1,0)="^.1"
^DD(2261.8,.01,1,1,0)="2261.8^B"
^DD(2261.8,.01,1,1,1)="S ^OOPS(2261.8,""B"",$E(X,1,30),DA)="""""
^DD(2261.8,.01,1,1,2)="K ^OOPS(2261.8,""B"",$E(X,1,30),DA)"
^DD(2261.8,.01,1,2,0)="2261.8^D^MUMPS"
^DD(2261.8,.01,1,2,1)="S ^OOPS(2261.8,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2261.8,.01,1,2,2)="K ^OOPS(2261.8,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2261.8,.01,1,2,"%D",0)="^^2^2^2980505^^"
^DD(2261.8,.01,1,2,"%D",1,0)="This cross-reference allows selection of entries by upper-case"
^DD(2261.8,.01,1,2,"%D",2,0)="values."
^DD(2261.8,.01,1,2,"DT")="2980505"
^DD(2261.8,.01,3)="Answer must be 3-100 characters in length."
^DD(2261.8,.01,21,0)="^^1^1^2980316^^"
^DD(2261.8,.01,21,1,0)="Enter an event that results in exposure to body fluids."
^DD(2261.8,.01,"DT")="2980505"
^DD(2261.8,1,0)="CODE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2261.8,1,1,0)="^.1"
^DD(2261.8,1,1,1,0)="2261.8^C"
^DD(2261.8,1,1,1,1)="S ^OOPS(2261.8,""C"",$E(X,1,30),DA)="""""
^DD(2261.8,1,1,1,2)="K ^OOPS(2261.8,""C"",$E(X,1,30),DA)"
^DD(2261.8,1,1,1,"DT")="2980311"
^DD(2261.8,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2261.8,1,21,0)="^^1^1^2980311^^"
^DD(2261.8,1,21,1,0)="Enter the code that identifies the results."
^DD(2261.8,1,"DT")="2980311"
^DD(2261.8,"B","CODE",1)=""
^DD(2261.8,"B","NAME",.01)=""
^DD(2261.8,"GL",0,1,.01)=""
^DD(2261.8,"GL",0,2,1)=""
^DD(2261.8,"IX",.01)=""
^DD(2261.8,"IX",1)=""
^DD(2261.8,"RQ",.01)=""
^DD(2261.9,0)="FIELD^^1^2"
^DD(2261.9,0,"DDA")="N"
^DD(2261.9,0,"DT")="3010302"
^DD(2261.9,0,"IX","B",2261.9,.01)=""
^DD(2261.9,0,"NM","ASISTS SAFETY CHARACTERISTICS")=""
^DD(2261.9,0,"PT",2260,84)=""
^DD(2261.9,0,"VR")="2.0"
^DD(2261.9,0,"VRPK")="OOPS"
^DD(2261.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2261.9,.01,.1)="CHARACTERISTIC NAME"
^DD(2261.9,.01,1,0)="^.1^^-1"
^DD(2261.9,.01,1,1,0)="2261.9^B"
^DD(2261.9,.01,1,1,1)="S ^OOPS(2261.9,""B"",$E(X,1,30),DA)="""""
^DD(2261.9,.01,1,1,2)="K ^OOPS(2261.9,""B"",$E(X,1,30),DA)"
^DD(2261.9,.01,3)="Answer must be 3-30 characters in length."
^DD(2261.9,.01,21,0)="^.001^2^2^3010307^^"
^DD(2261.9,.01,21,1,0)="This file contains valid responses to the Engineered Safety Characteristics"
^DD(2261.9,.01,21,2,0)="field."
^DD(2261.9,.01,"DT")="3010311"
^DD(2261.9,1,0)="CODE^RNJ2,0^^0;2^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2261.9,1,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(2261.9,1,"DT")="3010302"
^DD(2261.9,"B","CHARACTERISTIC NAME",.01)="1"
^DD(2261.9,"B","CODE",1)=""
^DD(2261.9,"B","NAME",.01)=""
^DD(2261.9,"GL",0,1,.01)=""
^DD(2261.9,"GL",0,2,1)=""
^DD(2261.9,"IX",.01)=""
^DD(2261.9,"RQ",.01)=""
^DD(2261.9,"RQ",1)=""
^DD(2262,0)="FIELD^^3^4"
^DD(2262,0,"DDA")="N"
^DD(2262,0,"DT")="3040402"
^DD(2262,0,"IX","B",2262,.01)=""
^DD(2262,0,"NM","ASISTS SITE PARAMETER")=""
^DD(2262,0,"VR")="2.0"
^DD(2262,0,"VRPK")="OOPS"
^DD(2262,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2262,.01,1,0)="^.1"
^DD(2262,.01,1,1,0)="2262^B"
^DD(2262,.01,1,1,1)="S ^OOPS(2262,""B"",$E(X,1,30),DA)="""""
^DD(2262,.01,1,1,2)="K ^OOPS(2262,""B"",$E(X,1,30),DA)"
^DD(2262,.01,3)="Answer must be 3-30 characters in length"
^DD(2262,.01,21,0)="^^1^1^3000216^^^^"
^DD(2262,.01,21,1,0)="This is the name of the site that this entry is being created for."
^DD(2262,.01,"DT")="3000216"
^DD(2262,1,0)="OWCP AGENCY CODE^F^^0;2^K:$L(X)>6!($L(X)<4) X"
^DD(2262,1,3)="Answer must be 4-6 characters in length."
^DD(2262,1,21,0)="^.001^3^3^3000229^^^^"
^DD(2262,1,21,1,0)="This is a four digit (or four digits plus two letter) code used by the "
^DD(2262,1,21,2,0)="employing agency.  The proper code may be obtained from your personnel"
^DD(2262,1,21,3,0)="or compensation office, or by contacting the Office of Worker Compensation(OWCP)."
^DD(2262,1,"DT")="3000224"
^DD(2262,2,0)="OWCP DISTRICT CODE^P2262.1'^OOPS(2262.1,^0;3^Q"
^DD(2262,2,21,0)="^^1^1^3000216^"
^DD(2262,2,21,1,0)="This is the Office of Worker Compensation (OWCP) District Office."
^DD(2262,2,"DT")="3000210"
^DD(2262,3,0)="STATION^2262.03P^^1;0"
^DD(2262,3,21,0)="^.001^1^1^3040527^^^^"
^DD(2262,3,21,1,0)="This is a pointer to the station sub-file (2262.03)"
^DD(2262,"B","NAME",.01)=""
^DD(2262,"B","OWCP AGENCY CODE",1)=""
^DD(2262,"B","OWCP DISTRICT CODE",2)=""
^DD(2262,"B","STATION",3)=""
^DD(2262,"GL",0,1,.01)=""
^DD(2262,"GL",0,2,1)=""
^DD(2262,"GL",0,3,2)=""
^DD(2262,"GL",1,0,3)=""
^DD(2262,"IX",.01)=""
^DD(2262,"RQ",.01)=""
^DD(2262,"SB",2262.03,3)=""
^DD(2262.03,0)="STATION SUB-FIELD^^15^17"
^DD(2262.03,0,"DT")="3040402"
^DD(2262.03,0,"IX","B",2262.03,.01)=""
^DD(2262.03,0,"NM","STATION")=" "
^DD(2262.03,0,"UP")="2262"
^DD(2262.03,.01,0)="STATION^MP4'^DIC(4,^0;1^Q"
^DD(2262.03,.01,1,0)="^.1"
^DD(2262.03,.01,1,1,0)="2262.03^B"
^DD(2262.03,.01,1,1,1)="S ^OOPS(2262,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2262.03,.01,1,1,2)="K ^OOPS(2262,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2262.03,.01,21,0)="^^1^1^3000216^"
^DD(2262.03,.01,21,1,0)="This is a pointer to the institution file (#4)."
^DD(2262.03,.01,"DT")="3000216"
^DD(2262.03,.7,0)="OWCP CHARGEBACK CODE^P2263.6'^OOPS(2263.6,^0;8^Q"
^DD(2262.03,.7,3)="Enter the OWCP CHARGEBACK CODE to be used as the default in the Workers' Comp menu."
^DD(2262.03,.7,21,0)="^.001^3^3^3010516^^^"
^DD(2262.03,.7,21,1,0)="This field will be used as the default value, if entered, for populating"
^DD(2262.03,.7,21,2,0)="the OWCP CHARGEBACK CODE entered on the CA1/CA2 from the Workers'"
^DD(2262.03,.7,21,3,0)="Compensation Menu."
^DD(2262.03,.7,"DT")="3010516"
^DD(2262.03,.8,0)="OWCP CHARGEBACK SUFFIX^FX^^0;9^K:$L(X)>2!($L(X)<2)!'(X?2A) X"
^DD(2262.03,.8,3)="Answer must be 2 characters in length."
^DD(2262.03,.8,21,0)="^.001^2^2^3040527^^^"
^DD(2262.03,.8,21,1,0)="The OWCP Chargeback suffix is used to further define the Chargeback code for"
^DD(2262.03,.8,21,2,0)="the facility.  It is optional, but if entered, must be 2 Alpha characters."
^DD(2262.03,.8,"DT")="3040402"
^DD(2262.03,1,0)="PHYSICIAN NAME^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3)!(X?1P.E)!(X'?1U.ANP)!(X'["","") X"
^DD(2262.03,1,3)="Answer must be 3-30 characters in length"
^DD(2262.03,1,21,0)="^^3^3^3000216^^"
^DD(2262.03,1,21,1,0)="This is the name of the head Employee Health Physician or the name of the "
^DD(2262.03,1,21,2,0)="Physician the site wants to use as a default in the physician block on the "
^DD(2262.03,1,21,3,0)="CA1/CA2."
^DD(2262.03,1,"DT")="3000224"
^DD(2262.03,2,0)="PHYSICIAN ADDRESS^F^^0;3^K:$L(X)>35!($L(X)<3) X"
^DD(2262.03,2,3)="Answer must be 3-35 characters in length"
^DD(2262.03,2,21,0)="^.001^1^1^3040213^^^"
^DD(2262.03,2,21,1,0)="This the Physician's street address."
^DD(2262.03,2,"DT")="3000224"
^DD(2262.03,3,0)="PHYSICIAN CITY^F^^0;4^K:$L(X)>20!($L(X)<3) X"
^DD(2262.03,3,3)="Answer must be 3-20 characters in length"
^DD(2262.03,3,21,0)="^.001^1^1^3040213^^^"
^DD(2262.03,3,21,1,0)="This is the Physician's city address."
^DD(2262.03,3,"DT")="3000224"
^DD(2262.03,4,0)="PHYSICIAN STATE^P5'^DIC(5,^0;5^Q"
^DD(2262.03,4,3)="Enter the Physician's state address"
^DD(2262.03,4,21,0)="^.001^1^1^3040213^^^"
^DD(2262.03,4,21,1,0)="This is the Physician's state address."
^DD(2262.03,4,"DT")="3000216"
^DD(2262.03,5,0)="PHYSICIAN ZIP CODE^F^^0;6^K:$L(X)>10!($L(X)<5)!'(((X?5N)!(X?5N1""-""4N))) X"
^DD(2262.03,5,3)="Enter Zip code or Zip + 4"
^DD(2262.03,5,21,0)="^^1^1^3000216^"
^DD(2262.03,5,21,1,0)="This is the Physician postal Zip code."
^DD(2262.03,5,"DT")="3000216"
^DD(2262.03,6,0)="PHYSICIAN TITLE^P2263.5'^OOPS(2263.5,^0;7^Q"
^DD(2262.03,6,3)="Enter the Provider's Title"
^DD(2262.03,6,21,0)="^.001^1^1^3040213^^"
^DD(2262.03,6,21,1,0)="This field contains the title of the provider."
^DD(2262.03,6,"DT")="3000406"
^DD(2262.03,7,0)="SAFETY OFFICER^P200'^VA(200,^1;1^Q"
^DD(2262.03,7,3)="Enter the Facility Safety Officer"
^DD(2262.03,7,21,0)="^.001^2^2^3041123^^"
^DD(2262.03,7,21,1,0)="This is the safety official responsible for the accuracy of the OSHA "
^DD(2262.03,7,21,2,0)="300 Log and OSHA 300A Summary report."
^DD(2262.03,7,"DT")="3040730"
^DD(2262.03,8,0)="SAFETY OFFICER TITLE^F^^1;2^K:$L(X)>20!($L(X)<3) X"
^DD(2262.03,8,3)="Answer must be 3-20 characters in length."
^DD(2262.03,8,21,0)="^^1^1^3041122^"
^DD(2262.03,8,21,1,0)="This is the title for the safety official."
^DD(2262.03,8,"DT")="3040913"
^DD(2262.03,9,0)="SAFETY OFFICER PHONE NUMBER^F^^1;3^K:$L(X)>13!($L(X)<10) X"
^DD(2262.03,9,3)="Answer must be 10-13 characters in length."
^DD(2262.03,9,21,0)="^^1^1^3041122^"
^DD(2262.03,9,21,1,0)="This is the safety official's phone number."
^DD(2262.03,9,"DT")="3040730"
^DD(2262.03,10,0)="SAFTEY OFFICER PHONE EXTENSION^F^^1;4^K:$L(X)>20!($L(X)<3) X"
^DD(2262.03,10,3)="Answer must be 3-20 characters in length."
^DD(2262.03,10,21,0)="^^1^1^3041122^"
^DD(2262.03,10,21,1,0)="This is the safety official's phone number extension, if needed."
^DD(2262.03,10,"DT")="3040730"
^DD(2262.03,11,0)="OSHA 300 INDUSTRY DESCRIPTION^F^^1;5^K:$L(X)>40!($L(X)<3) X"
^DD(2262.03,11,3)="Answer must be 3-40 characters in length."
^DD(2262.03,11,21,0)="^^1^1^3041122^"
^DD(2262.03,11,21,1,0)="This is the industry description that is used on the OSHA 300 Log."
^DD(2262.03,11,"DT")="3040730"
^DD(2262.03,12,0)="STAND INDUSTRIAL CLASS (SIC)^P2262.6'^OOPS(2262.6,^1;6^Q"
^DD(2262.03,12,3)="Enter the 4 digit SIC code."
^DD(2262.03,12,21,0)="^^2^2^3041122^"
^DD(2262.03,12,21,1,0)="This is the 4 digit standard industry code that is used on the OSHA 300A"
^DD(2262.03,12,21,2,0)="Summary. "
^DD(2262.03,12,"DT")="3040913"
^DD(2262.03,13,0)="N.A. INDUSTRIAL CLASS (NAICS)^P2262.7'^OOPS(2262.7,^1;7^Q"
^DD(2262.03,13,3)="Enter the 6 digit NAICS code."
^DD(2262.03,13,21,0)="^.001^2^2^3041122^^"
^DD(2262.03,13,21,1,0)="This is the 6 digit North American industrial code used on the "
^DD(2262.03,13,21,2,0)="OSHA 300A summary."
^DD(2262.03,13,"DT")="3040913"
^DD(2262.03,15,0)="OSHA MONTH/YEAR^2262.315DA^^2;0"
^DD(2262.03,15,21,0)="^.001^3^3^3041122^^"
^DD(2262.03,15,21,1,0)="This subfile is for storing the average number of employees and the total"
^DD(2262.03,15,21,2,0)="hours worked by employees on a monthly basis.  This information is used"
^DD(2262.03,15,21,3,0)="on the OSHA 300A Summary report."
^DD(2262.03,"B","N.A. INDUSTRIAL CLASS (NAICS)",13)=""
^DD(2262.03,"B","OSHA 300 INDUSTRY DESCRIPTION",11)=""
^DD(2262.03,"B","OSHA MONTH/YEAR",15)=""
^DD(2262.03,"B","OWCP CHARGEBACK CODE",.7)=""
^DD(2262.03,"B","OWCP CHARGEBACK SUFFIX",.8)=""
^DD(2262.03,"B","PHYSICIAN ADDRESS",2)=""
^DD(2262.03,"B","PHYSICIAN CITY",3)=""
^DD(2262.03,"B","PHYSICIAN NAME",1)=""
^DD(2262.03,"B","PHYSICIAN STATE",4)=""
^DD(2262.03,"B","PHYSICIAN TITLE",6)=""
^DD(2262.03,"B","PHYSICIAN ZIP CODE",5)=""
^DD(2262.03,"B","SAFETY OFFICER",7)=""
^DD(2262.03,"B","SAFETY OFFICER PHONE NUMBER",9)=""
^DD(2262.03,"B","SAFETY OFFICER TITLE",8)=""
^DD(2262.03,"B","SAFTEY OFFICER PHONE EXTENSION",10)=""
^DD(2262.03,"B","STAND INDUSTRIAL CLASS (SIC)",12)=""
^DD(2262.03,"B","STATION",.01)=""
^DD(2262.03,"GL",0,1,.01)=""
^DD(2262.03,"GL",0,2,1)=""
^DD(2262.03,"GL",0,3,2)=""
^DD(2262.03,"GL",0,4,3)=""
^DD(2262.03,"GL",0,5,4)=""
^DD(2262.03,"GL",0,6,5)=""
^DD(2262.03,"GL",0,7,6)=""
^DD(2262.03,"GL",0,8,.7)=""
^DD(2262.03,"GL",0,9,.8)=""
^DD(2262.03,"GL",1,1,7)=""
^DD(2262.03,"GL",1,2,8)=""
^DD(2262.03,"GL",1,3,9)=""
^DD(2262.03,"GL",1,4,10)=""
^DD(2262.03,"GL",1,5,11)=""
^DD(2262.03,"GL",1,6,12)=""
^DD(2262.03,"GL",1,7,13)=""
^DD(2262.03,"GL",2,0,15)=""
^DD(2262.03,"IX",.01)=""
^DD(2262.03,"SB",2262.315,15)=""
^DD(2262.1,0)="FIELD^^1^2"
^DD(2262.1,0,"DT")="3000209"
^DD(2262.1,0,"IX","B",2262.1,.01)=""
^DD(2262.1,0,"IX","C",2262.1,1)=""
^DD(2262.1,0,"NM","ASISTS DOL DISTRICT OFFICE")=" "
^DD(2262.1,0,"PT",2260,73)=""
^DD(2262.1,0,"PT",2262,2)=""
^DD(2262.1,0,"VR")="2.0"
^DD(2262.1,0,"VRPK")="OOPS"
^DD(2262.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(2262.1,.01,1,0)="^.1"
^DD(2262.1,.01,1,1,0)="2262.1^B"
^DD(2262.1,.01,1,1,1)="S ^OOPS(2262.1,""B"",$E(X,1,30),DA)="""""
^DD(2262.1,.01,1,1,2)="K ^OOPS(2262.1,""B"",$E(X,1,30),DA)"
^DD(2262.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(2262.1,1,0)="CODE^NJ3,0^^0;2^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1.N) X"
^DD(2262.1,1,1,0)="^.1"
^DD(2262.1,1,1,1,0)="2262.1^C"
^DD(2262.1,1,1,1,1)="S ^OOPS(2262.1,""C"",$E(X,1,30),DA)="""""
^DD(2262.1,1,1,1,2)="K ^OOPS(2262.1,""C"",$E(X,1,30),DA)"
^DD(2262.1,1,1,1,"%D",0)="^^1^1^3000829^"
^DD(2262.1,1,1,1,"%D",1,0)="Cross reference for code"
^DD(2262.1,1,1,1,"DT")="3000829"
^DD(2262.1,1,3)="Type a number between 1 and 100, 0 Decimal Digits"
^DD(2262.1,1,"DT")="3000829"
^DD(2262.1,"B","CODE",1)=""
^DD(2262.1,"B","NAME",.01)=""
^DD(2262.1,"GL",0,1,.01)=""
^DD(2262.1,"GL",0,2,1)=""
^DD(2262.1,"IX",.01)=""
^DD(2262.1,"IX",1)=""
^DD(2262.1,"RQ",.01)=""
^DD(2262.2,0)="FIELD^^1^2"
^DD(2262.2,0,"DDA")="N"
^DD(2262.2,0,"DT")="3010529"
^DD(2262.2,0,"IX","B",2262.2,.01)=""
^DD(2262.2,0,"IX","C",2262.2,1)=""
^DD(2262.2,0,"NM","ASISTS DEVICE SIZE")=""
^DD(2262.2,0,"PT",2260,83)=""
^DD(2262.2,0,"VR")="2.0"
^DD(2262.2,0,"VRPK")="OOPS"
^DD(2262.2,.01,0)="NAME^RF^^0;1^K:$L(X)>5!($L(X)<1) X"
^DD(2262.2,.01,1,0)="^.1"
^DD(2262.2,.01,1,1,0)="2262.2^B"
^DD(2262.2,.01,1,1,1)="S ^OOPS(2262.2,""B"",$E(X,1,30),DA)="""""
^DD(2262.2,.01,1,1,2)="K ^OOPS(2262.2,""B"",$E(X,1,30),DA)"
^DD(2262.2,.01,3)="Answer must be 1-5 characters in length."
^DD(2262.2,.01,"DT")="3010529"
^DD(2262.2,1,0)="TYPE^RS^N:Needle;S:Syringe;NS:Needle or Syringe;^0;2^Q"
^DD(2262.2,1,1,0)="^.1"
^DD(2262.2,1,1,1,0)="2262.2^C"
^DD(2262.2,1,1,1,1)="S ^OOPS(2262.2,""C"",$E(X,1,30),DA)="""""
^DD(2262.2,1,1,1,2)="K ^OOPS(2262.2,""C"",$E(X,1,30),DA)"
^DD(2262.2,1,1,1,"DT")="3010302"
^DD(2262.2,1,3)=""
^DD(2262.2,1,21,0)="^.001^2^2^3010529^^^^"
^DD(2262.2,1,21,1,0)="This file contains valid device size selections for OBJECTS CAUSING INJURY"
^DD(2262.2,1,21,2,0)="field (#38) whose description contains either the word Needle or Syringe."
^DD(2262.2,1,"DT")="3010306"
^DD(2262.2,"B","NAME",.01)=""
^DD(2262.2,"B","TYPE",1)=""
^DD(2262.2,"GL",0,1,.01)=""
^DD(2262.2,"GL",0,2,1)=""
^DD(2262.2,"IX",.01)=""
^DD(2262.2,"IX",1)=""
^DD(2262.2,"RQ",.01)=""
^DD(2262.2,"RQ",1)=""
^DD(2262.3,0)="FIELD^^.01^1"
^DD(2262.3,0,"DDA")="N"
^DD(2262.3,0,"DT")="3010608"
^DD(2262.3,0,"IX","B",2262.3,.01)=""
^DD(2262.3,0,"NM","ASISTS NEEDLESTICK BRANDS")=""
^DD(2262.3,0,"PT",2260,82)=""
^DD(2262.3,0,"VR")="2.0"
^DD(2262.3,0,"VRPK")="OOPS"
^DD(2262.3,.01,0)="BRAND NAME^RF^^0;1^K:$L(X)>65!($L(X)<3)!'(X'?1P.E) X"
^DD(2262.3,.01,.1)="  BRAND NAME"
^DD(2262.3,.01,1,0)="^.1"
^DD(2262.3,.01,1,1,0)="2262.3^B"
^DD(2262.3,.01,1,1,1)="S ^OOPS(2262.3,""B"",$E(X,1,65),DA)="""""
^DD(2262.3,.01,1,1,2)="K ^OOPS(2262.3,""B"",$E(X,1,65),DA)"
^DD(2262.3,.01,3)="Answer must be 3-65 characters in length."
^DD(2262.3,.01,21,0)="^^2^2^3010607^"
^DD(2262.3,.01,21,1,0)="This is the brand name of the device involved in a needlestick or sharps"
^DD(2262.3,.01,21,2,0)="incident."
^DD(2262.3,.01,"DT")="3010608"
^DD(2262.3,"B","  BRAND NAME",.01)="1"
^DD(2262.3,"B","BRAND NAME",.01)=""
^DD(2262.3,"GL",0,1,.01)=""
^DD(2262.3,"IX",.01)=""
^DD(2262.3,"RQ",.01)=""
^DD(2262.315,0)="OSHA MONTH/YEAR SUB-FIELD^^2^3"
^DD(2262.315,0,"DT")="3040730"
^DD(2262.315,0,"IX","B",2262.315,.01)=""
^DD(2262.315,0,"NM","OSHA MONTH/YEAR")=""
^DD(2262.315,0,"UP")="2262.03"
^DD(2262.315,.01,0)="OSHA MONTH/YEAR^DX^^0;1^S %DT=""EMX"" D ^%DT S X=Y K:Y<1 X"
^DD(2262.315,.01,1,0)="^.1"
^DD(2262.315,.01,1,1,0)="2262.315^B"
^DD(2262.315,.01,1,1,1)="S ^OOPS(2262,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(2262.315,.01,1,1,2)="K ^OOPS(2262,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(2262.315,.01,3)="Enter the month and year for the Employee data."
^DD(2262.315,.01,21,0)="^^1^1^3041122^"
^DD(2262.315,.01,21,1,0)="This is the Month and Year in the format MM/YYYY for the employee data."
^DD(2262.315,.01,"DT")="3040730"
^DD(2262.315,1,0)="AVG NUMBER OF EMPLOYEES^NJ6,0^^0;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2262.315,1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(2262.315,1,21,0)="^^2^2^3041122^"
^DD(2262.315,1,21,1,0)="This is the average number of employees working at the facility for the "
^DD(2262.315,1,21,2,0)="month and year."
^DD(2262.315,1,"DT")="3040730"
^DD(2262.315,2,0)="TOTAL HRS WORKED BY^NJ15,0^^0;3^K:+X'=X!(X>999999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2262.315,2,3)="Type a Number between 0 and 999999999999999, 0 Decimal Digits"
^DD(2262.315,2,21,0)="^^2^2^3041122^"
^DD(2262.315,2,21,1,0)="This is the total number of hours worked by all employees at the facility"
^DD(2262.315,2,21,2,0)="for the month and year indicated."
^DD(2262.315,2,"DT")="3040730"
^DD(2262.315,"B","AVG NUMBER OF EMPLOYEES",1)=""
^DD(2262.315,"B","OSHA MONTH/YEAR",.01)=""
^DD(2262.315,"B","TOTAL HRS WORKED BY",2)=""
^DD(2262.315,"GL",0,1,.01)=""
^DD(2262.315,"GL",0,2,1)=""
^DD(2262.315,"GL",0,3,2)=""
^DD(2262.315,"IX",.01)=""
^DD(2262.4,0)="FIELD^^1^2"
^DD(2262.4,0,"DDA")="N"
^DD(2262.4,0,"DT")="3040407"
^DD(2262.4,0,"IX","B",2262.4,.01)=""
^DD(2262.4,0,"NM","ASISTS REASON FOR CONTROVERT")=""
^DD(2262.4,0,"PT",2260,332)=""
^DD(2262.4,0,"VR")="2.0"
^DD(2262.4,0,"VRPK")="OOPS"
^DD(2262.4,.01,0)="REASON FOR CONTROVERT CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(2262.4,.01,1,0)="^.1"
^DD(2262.4,.01,1,1,0)="2262.4^B"
^DD(2262.4,.01,1,1,1)="S ^OOPS(2262.4,""B"",$E(X,1,30),DA)="""""
^DD(2262.4,.01,1,1,2)="K ^OOPS(2262.4,""B"",$E(X,1,30),DA)"
^DD(2262.4,.01,3)="Answer must be 1 character in length."
^DD(2262.4,.01,21,0)="^.001^1^1^3040407^^^^"
^DD(2262.4,.01,21,1,0)="This field contains the reason for controverts code."
^DD(2262.4,.01,"DT")="3040407"
^DD(2262.4,1,0)="REASON DESCRIPTION^RF^^0;2^K:$L(X)>180!($L(X)<3) X"
^DD(2262.4,1,3)="Answer must be 3-180 characters in length."
^DD(2262.4,1,21,0)="^.001^1^1^3040407^^^"
^DD(2262.4,1,21,1,0)="This is the text description for the reason for controverts code."
^DD(2262.4,1,"DT")="3040407"
^DD(2262.4,"B","REASON DESCRIPTION",1)=""
^DD(2262.4,"B","REASON FOR CONTROVERT CODE",.01)=""
^DD(2262.4,"GL",0,1,.01)=""
^DD(2262.4,"GL",0,2,1)=""
^DD(2262.4,"IX",.01)=""
^DD(2262.4,"RQ",.01)=""
^DD(2262.4,"RQ",1)=""
^DD(2262.5,0)="FIELD^^1^2"
^DD(2262.5,0,"DDA")="N"
^DD(2262.5,0,"DT")="3040421"
^DD(2262.5,0,"IX","B",2262.5,.01)=""
^DD(2262.5,0,"NM","ASISTS ADDITIONAL PAY TYPES")=""
^DD(2262.5,0,"PT",2264.055,.01)=""
^DD(2262.5,0,"PT",2264.061,.01)=""
^DD(2262.5,0,"VR")="2.0"
^DD(2262.5,0,"VRPK")="OOPS"
^DD(2262.5,.01,0)="PAY TYPE CODE^RF^^0;1^K:$L(X)>3!($L(X)<2)!'(X'?1P.E) X"
^DD(2262.5,.01,1,0)="^.1"
^DD(2262.5,.01,1,1,0)="2262.5^B"
^DD(2262.5,.01,1,1,1)="S ^OOPS(2262.5,""B"",$E(X,1,30),DA)="""""
^DD(2262.5,.01,1,1,2)="K ^OOPS(2262.5,""B"",$E(X,1,30),DA)"
^DD(2262.5,.01,3)="Answer must be 2-3 characters in length."
^DD(2262.5,.01,21,0)="^.001^1^1^3040421^^"
^DD(2262.5,.01,21,1,0)="This field contains the additional pay type code."
^DD(2262.5,.01,"DT")="3040421"
^DD(2262.5,1,0)="PAY TYPE DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(2262.5,1,3)="Answer must be 3-30 characters in length."
^DD(2262.5,1,21,0)="^^1^1^3040421^"
^DD(2262.5,1,21,1,0)="This field contains the description for the pay type code."
^DD(2262.5,1,"DT")="3040421"
^DD(2262.5,"B","PAY TYPE CODE",.01)=""
^DD(2262.5,"B","PAY TYPE DESCRIPTION",1)=""
^DD(2262.5,"GL",0,1,.01)=""
^DD(2262.5,"GL",0,2,1)=""
^DD(2262.5,"IX",.01)=""
^DD(2262.5,"RQ",.01)=""
^DD(2262.6,0)="FIELD^^1^2"
^DD(2262.6,0,"DDA")="N"
^DD(2262.6,0,"DT")="3040912"
^DD(2262.6,0,"IX","B",2262.6,.01)=""
^DD(2262.6,0,"NM","ASISTS STANDARD INDUSTRIAL CLASS. (SIC)")=""
^DD(2262.6,0,"PT",2262.03,12)=""
^DD(2262.6,0,"VR")="2.0"
^DD(2262.6,0,"VRPK")="OOPS"
^DD(2262.6,.01,0)="SIC NUMBER^RNJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1111)!(X?.E1"".""1N.N) X"
^DD(2262.6,.01,1,0)="^.1"
^DD(2262.6,.01,1,1,0)="2262.6^B"
^DD(2262.6,.01,1,1,1)="S ^OOPS(2262.6,""B"",$E(X,1,30),DA)="""""
^DD(2262.6,.01,1,1,2)="K ^OOPS(2262.6,""B"",$E(X,1,30),DA)"
^DD(2262.6,.01,3)="Type a Number between 1111 and 9999, 0 Decimal Digits"
^DD(2262.6,.01,21,0)="^^1^1^3041122^"
^DD(2262.6,.01,21,1,0)="This is the 4 digit standard industrial code."
^DD(2262.6,.01,"DT")="3040912"
^DD(2262.6,1,0)="SIC DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(2262.6,1,3)="Answer must be 3-60 characters in length."
^DD(2262.6,1,21,0)="^^1^1^3041122^"
^DD(2262.6,1,21,1,0)="This is the description for the SIC code."
^DD(2262.6,1,"DT")="3040912"
^DD(2262.6,"B","SIC DESCRIPTION",1)=""
^DD(2262.6,"B","SIC NUMBER",.01)=""
^DD(2262.6,"GL",0,1,.01)=""
^DD(2262.6,"GL",0,2,1)=""
^DD(2262.6,"IX",.01)=""
^DD(2262.6,"RQ",.01)=""
^DD(2262.7,0)="FIELD^^1^2"
^DD(2262.7,0,"DDA")="N"
^DD(2262.7,0,"DT")="3040912"
^DD(2262.7,0,"IX","B",2262.7,.01)=""
^DD(2262.7,0,"NM","ASISTS N.A. INDUSTRIAL CLASSIFICATION (NAICS)")=""
^DD(2262.7,0,"PT",2262.03,13)=""
^DD(2262.7,0,"VR")="2.0"
^DD(2262.7,0,"VRPK")="OOPS"
^DD(2262.7,.01,0)="NAICS NUMBER^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<111111)!(X?.E1"".""1N.N) X"
^DD(2262.7,.01,1,0)="^.1"
^DD(2262.7,.01,1,1,0)="2262.7^B"
^DD(2262.7,.01,1,1,1)="S ^OOPS(2262.7,""B"",$E(X,1,30),DA)="""""
^DD(2262.7,.01,1,1,2)="K ^OOPS(2262.7,""B"",$E(X,1,30),DA)"
^DD(2262.7,.01,3)="Type a Number between 111111 and 999999, 0 Decimal Digits"
^DD(2262.7,.01,21,0)="^.001^1^1^3041122^^"
^DD(2262.7,.01,21,1,0)="This is the 6 digit North American industrial code."
^DD(2262.7,.01,"DT")="3040912"
^DD(2262.7,1,0)="NAICS DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(2262.7,1,3)="Answer must be 3-60 characters in length."
^DD(2262.7,1,21,0)="^^1^1^3041122^"
^DD(2262.7,1,21,1,0)="This is the description for the NAICS code."
^DD(2262.7,1,"DT")="3040912"
^DD(2262.7,"B","NAICS DESCRIPTION",1)=""
^DD(2262.7,"B","NAICS NUMBER",.01)=""
^DD(2262.7,"GL",0,1,.01)=""
^DD(2262.7,"GL",0,2,1)=""
^DD(2262.7,"IX",.01)=""
^DD(2262.7,"RQ",.01)=""
^DD(2262.8,0)="FIELD^^1^2"
^DD(2262.8,0,"DDA")="N"
^DD(2262.8,0,"DT")="3050412"
^DD(2262.8,0,"IX","B",2262.8,.01)=""
^DD(2262.8,0,"NM","ASISTS REASON FOR DISPUTE CODES")=""
^DD(2262.8,0,"PT",2260,347)=""
^DD(2262.8,0,"VR")="2.0"
^DD(2262.8,0,"VRPK")="OOPS"
^DD(2262.8,.01,0)="NAME^RF^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X"
^DD(2262.8,.01,1,0)="^.1"
^DD(2262.8,.01,1,1,0)="2262.8^B"
^DD(2262.8,.01,1,1,1)="S ^OOPS(2262.8,""B"",$E(X,1,30),DA)="""""
^DD(2262.8,.01,1,1,2)="K ^OOPS(2262.8,""B"",$E(X,1,30),DA)"
^DD(2262.8,.01,3)="Answer must be 3-70 characters in length."
^DD(2262.8,.01,21,0)="^^2^2^3050412^"
^DD(2262.8,.01,21,1,0)="This is the Reason for Dispute Code that must be entered if the "
^DD(2262.8,.01,21,2,0)="agency is disputing the CA-1 case."
^DD(2262.8,.01,"DT")="3050412"
^DD(2262.8,1,0)="REASON FOR DISPUTE CODE^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2262.8,1,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2262.8,1,21,0)="^^1^1^3050412^"
^DD(2262.8,1,21,1,0)="This is the code assigned to this reason for dispute description."
^DD(2262.8,1,"DT")="3050412"
^DD(2262.8,"B","NAME",.01)=""
^DD(2262.8,"B","REASON FOR DISPUTE CODE",1)=""
^DD(2262.8,"GL",0,1,.01)=""
^DD(2262.8,"GL",0,2,1)=""
^DD(2262.8,"IX",.01)=""
^DD(2262.8,"RQ",.01)=""
^DD(2262.8,"RQ",1)=""
^DD(2263,0)="FIELD^^1^2"
^DD(2263,0,"DDA")="N"
^DD(2263,0,"DT")="3000306"
^DD(2263,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2263,0,"IX","C",2263,1)=""
^DD(2263,0,"IX","D",2263,.01)=""
^DD(2263,0,"NM","ASISTS DOL TYPE OF INJURY CODES")=""
^DD(2263,0,"PT",2260,123)=""
^DD(2263,0,"PT",2260,226)=""
^DD(2263,0,"VR")="2.0"
^DD(2263,0,"VRPK")="OOPS"
^DD(2263,.01,0)="NAME^RFIX^^0;1^K X D EN^DDIOL(""Sorry, Can't Add"") Q  K:$L(X)>60!($L(X)<3) X"
^DD(2263,.01,1,0)="^.1"
^DD(2263,.01,1,1,0)="2263^D^MUMPS"
^DD(2263,.01,1,1,1)="S ^OOPS(2263,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2263,.01,1,1,2)="K ^OOPS(2263,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2263,.01,1,1,"%D",0)="^^1^1^3000316^"
^DD(2263,.01,1,1,"%D",1,0)="Cross Reference for Upperclass Name"
^DD(2263,.01,1,1,"DT")="3000316"
^DD(2263,.01,3)="Answer must be 3-60 characters in length"
^DD(2263,.01,21,0)="^^2^2^3000306^"
^DD(2263,.01,21,1,0)="This is the NAME of the Type of Injury Code as defined by the Department"
^DD(2263,.01,21,2,0)="of Labor (DOL).  The NAME must not be altered for any Type of Injury Code."
^DD(2263,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Sorry, entries may not be deleted."")"
^DD(2263,.01,"DT")="3000329"
^DD(2263,1,0)="CODE^RNJ3,0I^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2263,1,1,0)="^.1"
^DD(2263,1,1,1,0)="2263^C^MUMPS"
^DD(2263,1,1,1,1)="S ^OOPS(2263,""C"",$E(X,1,3),DA)="""""
^DD(2263,1,1,1,2)="K ^OOPS(2263,""C"",$E(X,1,3),DA)"
^DD(2263,1,1,1,"%D",0)="^^1^1^3000306^"
^DD(2263,1,1,1,"%D",1,0)="Cross reference for Lookup by CODE."
^DD(2263,1,1,1,"DT")="3000306"
^DD(2263,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(2263,1,21,0)="^.001^2^2^3000306^^"
^DD(2263,1,21,1,0)="This is the Code that is associated with the NAME of the Type of Injury Code"
^DD(2263,1,21,2,0)="as defined by the Department of Labor (DOL).  These CODES must not be changed."
^DD(2263,1,"DT")="3000329"
^DD(2263,"B","CODE",1)=""
^DD(2263,"B","NAME",.01)=""
^DD(2263,"GL",0,1,.01)=""
^DD(2263,"GL",0,2,1)=""
^DD(2263,"IX",.01)=""
^DD(2263,"IX",1)=""
^DD(2263,"RQ",.01)=""
^DD(2263,"RQ",1)=""
^DD(2263.1,0)="FIELD^^1^2"
^DD(2263.1,0,"DDA")="N"
^DD(2263.1,0,"DT")="3000306"
^DD(2263.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2263.1,0,"IX","C",2263.1,1)=""
^DD(2263.1,0,"IX","D",2263.1,.01)=""
^DD(2263.1,0,"NM","ASISTS DOL SOURCE OF INJURY CODES")=""
^DD(2263.1,0,"PT",2260,124)=""
^DD(2263.1,0,"PT",2260,227)=""
^DD(2263.1,0,"VR")="2.0"
^DD(2263.1,0,"VRPK")="OOPS"
^DD(2263.1,.01,0)="NAME^RFIX^^0;1^K X D EN^DDIOL(""Sorry, Can't Add"") Q  K:$L(X)>60!($L(X)<3) X"
^DD(2263.1,.01,1,0)="^.1"
^DD(2263.1,.01,1,1,0)="2263.1^D^MUMPS"
^DD(2263.1,.01,1,1,1)="S ^OOPS(2263.1,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2263.1,.01,1,1,2)="K ^OOPS(2263.1,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2263.1,.01,1,1,"DT")="3000316"
^DD(2263.1,.01,3)="Answer must be 3-60 characters in length."
^DD(2263.1,.01,21,0)="^.001^2^2^3000518^^"
^DD(2263.1,.01,21,1,0)="The NAME of the Source of Injury Code as defined by the Department of Labor"
^DD(2263.1,.01,21,2,0)="(DOL).  The NAME of any Source of Injury Code must not be altered."
^DD(2263.1,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Sorry, entries may not be deleted."")"
^DD(2263.1,.01,"DT")="3000329"
^DD(2263.1,1,0)="CODE^RNJ4,0I^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2263.1,1,1,0)="^.1"
^DD(2263.1,1,1,1,0)="2263.1^C^MUMPS"
^DD(2263.1,1,1,1,1)="S ^OOPS(2263.1,""C"",$E(X,1,30),DA)="""""
^DD(2263.1,1,1,1,2)="K ^OOPS(2263.1,""C"",$E(X,1,30),DA)"
^DD(2263.1,1,1,1,"DT")="3000306"
^DD(2263.1,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2263.1,1,21,0)="^.001^3^3^3000324^^"
^DD(2263.1,1,21,1,0)="This is the CODE which corresponds to a matching Source of Injury NAME as"
^DD(2263.1,1,21,2,0)="defined by the Department of Labor (DOL).  The value for any CODE must NOT be"
^DD(2263.1,1,21,3,0)="changed."
^DD(2263.1,1,"DT")="3000329"
^DD(2263.1,"B","CODE",1)=""
^DD(2263.1,"B","NAME",.01)=""
^DD(2263.1,"GL",0,1,.01)=""
^DD(2263.1,"GL",0,2,1)=""
^DD(2263.1,"IX",.01)=""
^DD(2263.1,"IX",1)=""
^DD(2263.1,"RQ",.01)=""
^DD(2263.1,"RQ",1)=""
^DD(2263.2,0)="FIELD^^1^2"
^DD(2263.2,0,"DDA")="N"
^DD(2263.2,0,"DT")="3000306"
^DD(2263.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2263.2,0,"IX","C",2263.2,1)=""
^DD(2263.2,0,"IX","D",2263.2,.01)=""
^DD(2263.2,0,"NM","ASISTS DOL CAUSE OF INJURY CODES")=""
^DD(2263.2,0,"PT",2260,126)=""
^DD(2263.2,0,"VR")="2.0"
^DD(2263.2,0,"VRPK")="OOPS"
^DD(2263.2,.01,0)="NAME^RFIX^^0;1^K X D EN^DDIOL(""Sorry, Can't Add"") Q  K:$L(X)>60!($L(X)<3) X"
^DD(2263.2,.01,1,0)="^.1"
^DD(2263.2,.01,1,1,0)="2263.2^D^MUMPS"
^DD(2263.2,.01,1,1,1)="S ^OOPS(2263.2,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2263.2,.01,1,1,2)="K ^OOPS(2263.2,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2263.2,.01,1,1,"DT")="3000316"
^DD(2263.2,.01,3)="Answer must be 3-60 characters in length."
^DD(2263.2,.01,21,0)="^^2^2^3000306^"
^DD(2263.2,.01,21,1,0)="This is the NAME of the Cause of Injury Code as defined by the Department of"
^DD(2263.2,.01,21,2,0)="Labor (DOL).  The NAME of any Cause of Injury Code must not be changed."
^DD(2263.2,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Sorry, entries may not be deleted."")"
^DD(2263.2,.01,"DT")="3000329"
^DD(2263.2,1,0)="CODE^RNJ3,0I^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2263.2,1,1,0)="^.1"
^DD(2263.2,1,1,1,0)="2263.2^C^MUMPS"
^DD(2263.2,1,1,1,1)="S ^OOPS(2263.2,""C"",$E(X,1,3),DA)="""""
^DD(2263.2,1,1,1,2)="K ^OOPS(2263.2,""C"",$E(X,1,3),DA)"
^DD(2263.2,1,1,1,"DT")="3000306"
^DD(2263.2,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(2263.2,1,21,0)="^.001^3^3^3000324^^^"
^DD(2263.2,1,21,1,0)="This is the CODE which corresponds to the name of the Cause of Injury as"
^DD(2263.2,1,21,2,0)="defined by the Department of Labor (DOL).  The CODE of any Cause of Injury "
^DD(2263.2,1,21,3,0)="Code must not be changed."
^DD(2263.2,1,"DT")="3000329"
^DD(2263.2,"B","CODE",1)=""
^DD(2263.2,"B","NAME",.01)=""
^DD(2263.2,"GL",0,1,.01)=""
^DD(2263.2,"GL",0,2,1)=""
^DD(2263.2,"IX",.01)=""
^DD(2263.2,"IX",1)=""
^DD(2263.2,"RQ",.01)=""
^DD(2263.2,"RQ",1)=""
^DD(2263.3,0)="FIELD^^1^2"
^DD(2263.3,0,"DDA")="N"
^DD(2263.3,0,"DT")="3000303"
^DD(2263.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2263.3,0,"IX","C",2263.3,1)=""
^DD(2263.3,0,"IX","D",2263.3,.01)=""
^DD(2263.3,0,"NM","ASISTS DOL NATURE OF INJURY CODES")=""
^DD(2263.3,0,"PT",2260,62)=""
^DD(2263.3,0,"VR")="2.0"
^DD(2263.3,0,"VRPK")="OOPS"
^DD(2263.3,.01,0)="NAME^RFIX^^0;1^K X D EN^DDIOL(""Sorry, Can't Add"") Q  K:$L(X)>70!($L(X)<3) X"
^DD(2263.3,.01,1,0)="^.1"
^DD(2263.3,.01,1,1,0)="2263.3^D^MUMPS"
^DD(2263.3,.01,1,1,1)="S ^OOPS(2263.3,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2263.3,.01,1,1,2)="K ^OOPS(2263.3,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2263.3,.01,1,1,"DT")="3000316"
^DD(2263.3,.01,3)="Answer must be 3-70 characters in length."
^DD(2263.3,.01,21,0)="^.001^3^3^3000303^^^^"
^DD(2263.3,.01,21,1,0)="This is the Description of the Nature of Injury Code for the table file"
^DD(2263.3,.01,21,2,0)="used for transmitting claims to Department of Labor (DOL) electronically."
^DD(2263.3,.01,21,3,0)="THIS FILE SHOULD NOT BE MODIFIED BY THE FIELD."
^DD(2263.3,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Sorry, entries may not be deleted."")"
^DD(2263.3,.01,"DT")="3000329"
^DD(2263.3,1,0)="CODE^RFI^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(2263.3,1,1,0)="^.1"
^DD(2263.3,1,1,1,0)="2263.3^C"
^DD(2263.3,1,1,1,1)="S ^OOPS(2263.3,""C"",$E(X,1,30),DA)="""""
^DD(2263.3,1,1,1,2)="K ^OOPS(2263.3,""C"",$E(X,1,30),DA)"
^DD(2263.3,1,1,1,"%D",0)="^^1^1^3000301^"
^DD(2263.3,1,1,1,"%D",1,0)="This is a cross reference to allow lookup by CODE"
^DD(2263.3,1,1,1,"DT")="3000301"
^DD(2263.3,1,3)="Answer must be 1-2 characters in length."
^DD(2263.3,1,21,0)="^^1^1^3000301^"
^DD(2263.3,1,21,1,0)="This is the Nature of Injury Code as defined by DOL."
^DD(2263.3,1,"DT")="3000329"
^DD(2263.3,"B","CODE",1)=""
^DD(2263.3,"B","NAME",.01)=""
^DD(2263.3,"GL",0,1,.01)=""
^DD(2263.3,"GL",0,2,1)=""
^DD(2263.3,"IX",.01)=""
^DD(2263.3,"IX",1)=""
^DD(2263.3,"RQ",.01)=""
^DD(2263.3,"RQ",1)=""
^DD(2263.5,0)="FIELD^^1^2"
^DD(2263.5,0,"DDA")="N"
^DD(2263.5,0,"DT")="3000322"
^DD(2263.5,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(2263.5,0,"IX","B",2263.5,.01)=""
^DD(2263.5,0,"IX","C",2263.5,1)=""
^DD(2263.5,0,"IX","D",2263.5,.01)=""
^DD(2263.5,0,"NM","ASISTS DOL PROVIDER TITLE")=""
^DD(2263.5,0,"PT",2260,182)=""
^DD(2263.5,0,"PT",2260,270)=""
^DD(2263.5,0,"PT",2262.03,6)=""
^DD(2263.5,0,"VR")="2.0"
^DD(2263.5,0,"VRPK")="OOPS"
^DD(2263.5,.01,0)="TITLE^RFIX^^0;1^K X D EN^DDIOL(""Sorry, Can't Add"") Q  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2263.5,.01,1,0)="^.1"
^DD(2263.5,.01,1,1,0)="2263.5^B"
^DD(2263.5,.01,1,1,1)="S ^OOPS(2263.5,""B"",$E(X,1,30),DA)="""""
^DD(2263.5,.01,1,1,2)="K ^OOPS(2263.5,""B"",$E(X,1,30),DA)"
^DD(2263.5,.01,1,2,0)="2263.5^D^MUMPS"
^DD(2263.5,.01,1,2,1)="S ^OOPS(2263.5,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)="""""
^DD(2263.5,.01,1,2,2)="K ^OOPS(2263.5,""D"",$$UP^OOPSUTL4($E(X,1,30)),DA)"
^DD(2263.5,.01,1,2,"DT")="3000322"
^DD(2263.5,.01,3)="Answer must be 3-30 characters in length."
^DD(2263.5,.01,21,0)="^.001^1^1^3000328^^^^"
^DD(2263.5,.01,21,1,0)="This table file contains valid entries for the Physician Title"
^DD(2263.5,.01,"DEL",1,0)="I 1 D EN^DDIOL(""Sorry, entries may not be deleted."")"
^DD(2263.5,.01,"DT")="3000329"
^DD(2263.5,1,0)="CODE^RFI^^0;2^K:$L(X)>4!($L(X)<2) X"
^DD(2263.5,1,1,0)="^.1"
^DD(2263.5,1,1,1,0)="2263.5^C"
^DD(2263.5,1,1,1,1)="S ^OOPS(2263.5,""C"",$E(X,1,30),DA)="""""
^DD(2263.5,1,1,1,2)="K ^OOPS(2263.5,""C"",$E(X,1,30),DA)"
^DD(2263.5,1,1,1,"DT")="3000322"
^DD(2263.5,1,3)="Answer must be 2-4 characters in length."
^DD(2263.5,1,21,0)="^.001^2^2^3000324^^"
^DD(2263.5,1,21,1,0)="This field contains the Code that will be sent to DOL for the"
^DD(2263.5,1,21,2,0)="Physician Title."
^DD(2263.5,1,"DT")="3000329"
^DD(2263.5,"B","CODE",1)=""
^DD(2263.5,"B","TITLE",.01)=""
^DD(2263.5,"GL",0,1,.01)=""
^DD(2263.5,"GL",0,2,1)=""
^DD(2263.5,"IX",.01)=""
^DD(2263.5,"IX",1)=""
^DD(2263.5,"RQ",.01)=""
^DD(2263.5,"RQ",1)=""
^DD(2263.6,0)="FIELD^^4^5"
^DD(2263.6,0,"DDA")="N"
^DD(2263.6,0,"DT")="3000419"
^DD(2263.6,0,"ID",1)="W ""   "",$P(^(0),U,3)"
^DD(2263.6,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(2263.6,0,"IX","B",2263.6,.01)=""
^DD(2263.6,0,"IX","C",2263.6,2)=""
^DD(2263.6,0,"NM","ASISTS OWCP CHARGEBACK CODES")=""
^DD(2263.6,0,"PT",2260,70)=""
^DD(2263.6,0,"PT",2262.03,.7)=""
^DD(2263.6,0,"VR")="2.0"
^DD(2263.6,0,"VRPK")="OOPS"
^DD(2263.6,.01,0)="OWCP CHARGEBACK CODE^RNJ4,0X^^0;1^K X D EN^DDIOL(""Sorry, Can't Add"") Q  K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2263.6,.01,.1)="OWCP CHARGEBACK"
^DD(2263.6,.01,1,0)="^.1"
^DD(2263.6,.01,1,1,0)="2263.6^B"
^DD(2263.6,.01,1,1,1)="S ^OOPS(2263.6,""B"",$E(X,1,30),DA)="""""
^DD(2263.6,.01,1,1,2)="K ^OOPS(2263.6,""B"",$E(X,1,30),DA)"
^DD(2263.6,.01,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(2263.6,.01,21,0)="^^2^2^3000419^"
^DD(2263.6,.01,21,1,0)="This is the OWCP Chargeback code that identifies the facility that the"
^DD(2263.6,.01,21,2,0)="claim should be charged to."
^DD(2263.6,.01,23,0)="^^3^3^3000419^"
^DD(2263.6,.01,23,1,0)="This is the OWCP Chargeback code that is required by DOL (Department of Labor)"
^DD(2263.6,.01,23,2,0)="for the submission of a CA1/CA2 claim.  This file should not be altered by"
^DD(2263.6,.01,23,3,0)="the field for any reason."
^DD(2263.6,.01,"DT")="3010828"
^DD(2263.6,1,0)="VA STATION NAME^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(2263.6,1,3)="Answer must be 3-40 characters in length."
^DD(2263.6,1,21,0)="^^3^3^3000419^"
^DD(2263.6,1,21,1,0)="This is the VA Station Name as defined by the WC/MIS database at the AAC"
^DD(2263.6,1,21,2,0)="(Austin Automation Center) and is used in conjunction with the OWCP"
^DD(2263.6,1,21,3,0)="Chargeback Code."
^DD(2263.6,1,"DT")="3000419"
^DD(2263.6,2,0)="VA STATION NUMBER^RF^^0;3^K:$L(X)>7!($L(X)<3) X"
^DD(2263.6,2,1,0)="^.1"
^DD(2263.6,2,1,1,0)="2263.6^C"
^DD(2263.6,2,1,1,1)="S ^OOPS(2263.6,""C"",$E(X,1,30),DA)="""""
^DD(2263.6,2,1,1,2)="K ^OOPS(2263.6,""C"",$E(X,1,30),DA)"
^DD(2263.6,2,1,1,"DT")="3000905"
^DD(2263.6,2,3)="Answer must be 3-7 characters in length."
^DD(2263.6,2,21,0)="^.001^1^1^3000420^^^"
^DD(2263.6,2,21,1,0)="This is the corresponding or matching VA Station number."
^DD(2263.6,2,"DT")="3000905"
^DD(2263.6,3,0)="VA REGION^F^^0;4^K:$L(X)>3!($L(X)<1) X"
^DD(2263.6,3,3)="Answer must be 1-3 characters in length."
^DD(2263.6,3,21,0)="^.001^1^1^3000420^^^"
^DD(2263.6,3,21,1,0)="This the VA Region for the identified Station"
^DD(2263.6,3,"DT")="3000419"
^DD(2263.6,4,0)="VA ORGANIZATION^F^^0;5^K:$L(X)>5!($L(X)<2) X"
^DD(2263.6,4,3)="Answer must be 2-5 characters in length."
^DD(2263.6,4,21,0)="^^1^1^3000419^"
^DD(2263.6,4,21,1,0)="This is the VA Organization identifier for the related Station."
^DD(2263.6,4,"DT")="3000419"
^DD(2263.6,"B","OWCP CHARGEBACK",.01)="1"
^DD(2263.6,"B","OWCP CHARGEBACK CODE",.01)=""
^DD(2263.6,"B","VA ORGANIZATION",4)=""
^DD(2263.6,"B","VA REGION",3)=""
^DD(2263.6,"B","VA STATION NAME",1)=""
^DD(2263.6,"B","VA STATION NUMBER",2)=""
^DD(2263.6,"GL",0,1,.01)=""
^DD(2263.6,"GL",0,2,1)=""
^DD(2263.6,"GL",0,3,2)=""
^DD(2263.6,"GL",0,4,3)=""
^DD(2263.6,"GL",0,5,4)=""
^DD(2263.6,"IX",.01)=""
^DD(2263.6,"IX",2)=""
^DD(2263.6,"RQ",.01)=""
^DD(2263.6,"RQ",2)=""
^DD(2263.7,0)="FIELD^^2^3"
^DD(2263.7,0,"DDA")="N"
^DD(2263.7,0,"DT")="3010312"
^DD(2263.7,0,"IX","B",2263.7,.01)=""
^DD(2263.7,0,"NM","ASISTS UNION INFORMATION")=""
^DD(2263.7,0,"VR")="2.0"
^DD(2263.7,0,"VRPK")="OOPS"
^DD(2263.7,.01,0)="UNION NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(2263.7,.01,.1)="Union Name"
^DD(2263.7,.01,1,0)="^.1"
^DD(2263.7,.01,1,1,0)="2263.7^B"
^DD(2263.7,.01,1,1,1)="S ^OOPS(2263.7,""B"",$E(X,1,30),DA)="""""
^DD(2263.7,.01,1,1,2)="K ^OOPS(2263.7,""B"",$E(X,1,30),DA)"
^DD(2263.7,.01,3)="Answer must be 3-50 characters in length.  Enter the name of the Union."
^DD(2263.7,.01,21,0)="^^1^1^3010312^"
^DD(2263.7,.01,21,1,0)="This is the formal name of the Union."
^DD(2263.7,.01,"DT")="3010315"
^DD(2263.7,1,0)="UNION ACRONYM^RF^^0;2^K:$L(X)>10!($L(X)<2) X"
^DD(2263.7,1,3)="Answer must be 2-10 characters in length.  Enter the short form for the Union name."
^DD(2263.7,1,21,0)="^^1^1^3010312^"
^DD(2263.7,1,21,1,0)="This field is the Unions Acronym or abbreviation.  An example would be AFGE."
^DD(2263.7,1,"DT")="3010312"
^DD(2263.7,2,0)="UNION REPRESENTATIVE^RP200'^VA(200,^0;3^Q"
^DD(2263.7,2,3)="Enter the Union Representative for the Union."
^DD(2263.7,2,21,0)="^.001^3^3^3010312^^"
^DD(2263.7,2,21,1,0)="This field contains the Union Representative's name for the Union.  It will"
^DD(2263.7,2,21,2,0)="be used to send the MailMan bulletin to if the employee consents to sending"
^DD(2263.7,2,21,3,0)="information regarding their claim to the Union."
^DD(2263.7,2,"DT")="3010312"
^DD(2263.7,"B","UNION ACRONYM",1)=""
^DD(2263.7,"B","UNION NAME",.01)=""
^DD(2263.7,"B","UNION REPRESENTATIVE",2)=""
^DD(2263.7,"B","Union Name",.01)="1"
^DD(2263.7,"GL",0,1,.01)=""
^DD(2263.7,"GL",0,2,1)=""
^DD(2263.7,"GL",0,3,2)=""
^DD(2263.7,"IX",.01)=""
^DD(2263.7,"RQ",.01)=""
^DD(2263.7,"RQ",1)=""
^DD(2263.7,"RQ",2)=""
^DD(2263.8,0)="FIELD^^1^2"
^DD(2263.8,0,"DDA")="N"
^DD(2263.8,0,"DT")="3040527"
^DD(2263.8,0,"IX","B",2263.8,.01)=""
^DD(2263.8,0,"NM","ASISTS BODY PART GROUPINGS")=""
^DD(2263.8,0,"PT",2261.1,2)=""
^DD(2263.8,0,"VR")="2.0"
^DD(2263.8,0,"VRPK")="OOPS"
^DD(2263.8,.01,0)="BODY PART GROUP NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2263.8,.01,1,0)="^.1"
^DD(2263.8,.01,1,1,0)="2263.8^B"
^DD(2263.8,.01,1,1,1)="S ^OOPS(2263.8,""B"",$E(X,1,30),DA)="""""
^DD(2263.8,.01,1,1,2)="K ^OOPS(2263.8,""B"",$E(X,1,30),DA)"
^DD(2263.8,.01,3)="Answer must be 3-30 characters in length."
^DD(2263.8,.01,21,0)="^^3^3^3040527^"
^DD(2263.8,.01,21,1,0)="The body part group name is the category name for a group of body parts that"
^DD(2263.8,.01,21,2,0)="are related.  It is designed to assist the user in selecting the correct body"
^DD(2263.8,.01,21,3,0)="part affected by the incident. "
^DD(2263.8,.01,"DT")="3040527"
^DD(2263.8,1,0)="BODY PART GROUP ABBREVIATION^RF^^0;2^K:$L(X)>10!($L(X)<3) X"
^DD(2263.8,1,3)="Enter the Body Part Group abbreviation."
^DD(2263.8,1,21,0)="^^1^1^3040527^"
^DD(2263.8,1,21,1,0)="This is the body part group name abbreviation."
^DD(2263.8,1,"DT")="3040308"
^DD(2263.8,"B","BODY PART GROUP ABBREVIATION",1)=""
^DD(2263.8,"B","BODY PART GROUP NAME",.01)=""
^DD(2263.8,"GL",0,1,.01)=""
^DD(2263.8,"GL",0,2,1)=""
^DD(2263.8,"IX",.01)=""
^DD(2263.8,"RQ",.01)=""
^DD(2263.8,"RQ",1)=""
^DD(2264,0)="FIELD^^97^105"
^DD(2264,0,"DDA")="N"
^DD(2264,0,"DT")="3040625"
^DD(2264,0,"IX","AC",2264,.7)=""
^DD(2264,0,"IX","B",2264,.01)=""
^DD(2264,0,"IX","C",2264,.9)=""
^DD(2264,0,"IX","SSN",2264,.8)=""
^DD(2264,0,"NM","ASISTS COMPENSATION CLAIM (CA7)")=""
^DD(2264,0,"VR")="2.0"
^DD(2264,0,"VRPK")="OOPS"
^DD(2264,.01,0)="CA7 CASE NUMBER^RF^^0;1^K:$L(X)>20!($L(X)<15)!'(X'?1P.E) X"
^DD(2264,.01,1,0)="^.1"
^DD(2264,.01,1,1,0)="2264^B"
^DD(2264,.01,1,1,1)="S ^OOPS(2264,""B"",$E(X,1,30),DA)="""""
^DD(2264,.01,1,1,2)="K ^OOPS(2264,""B"",$E(X,1,30),DA)"
^DD(2264,.01,3)="Answer must be 15-20 characters in length."
^DD(2264,.01,21,0)="^.001^1^1^3040423^^^"
^DD(2264,.01,21,1,0)="This field contains the ASISTS case number for this CA-7."
^DD(2264,.01,"DT")="3040423"
^DD(2264,.3,0)="DATE CA7 CREATED^RD^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,.3,3)="System will supply date that the CA7 was created."
^DD(2264,.3,21,0)="^.001^1^1^3040625^^"
^DD(2264,.3,21,1,0)="This field is a system supplied date that the CA-7 was created."
^DD(2264,.3,"DT")="3040625"
^DD(2264,.5,0)="PERSON THAT CREATED CA7^RP200'^VA(200,^0;4^Q"
^DD(2264,.5,3)="System will use current user to file this field."
^DD(2264,.5,21,0)="^^1^1^3040423^"
^DD(2264,.5,21,1,0)="This field will store the DUZ for the person who created the CA-7."
^DD(2264,.5,"DT")="3040423"
^DD(2264,.7,0)="ASISTS RECORD^P2260'^OOPS(2260,^0;5^Q"
^DD(2264,.7,1,0)="^.1"
^DD(2264,.7,1,1,0)="2264^AC"
^DD(2264,.7,1,1,1)="S ^OOPS(2264,""AC"",$E(X,1,30),DA)="""""
^DD(2264,.7,1,1,2)="K ^OOPS(2264,""AC"",$E(X,1,30),DA)"
^DD(2264,.7,1,1,"DT")="3040423"
^DD(2264,.7,3)="Enter the ASISTS record that links to this CA-7."
^DD(2264,.7,21,0)="^^1^1^3040423^"
^DD(2264,.7,21,1,0)="This field will link an ASISTS Claim to this CA-7."
^DD(2264,.7,"DT")="3040423"
^DD(2264,.8,0)="EMPLOYEE SSN^F^^0;6^K:$L(X)>11!($L(X)<9) X"
^DD(2264,.8,1,0)="^.1"
^DD(2264,.8,1,1,0)="2264^SSN"
^DD(2264,.8,1,1,1)="S ^OOPS(2264,""SSN"",$E(X,1,30),DA)="""""
^DD(2264,.8,1,1,2)="K ^OOPS(2264,""SSN"",$E(X,1,30),DA)"
^DD(2264,.8,1,1,"%D",0)="^^1^1^3040423^"
^DD(2264,.8,1,1,"%D",1,0)="This index contains the employee's SSN."
^DD(2264,.8,1,1,"DT")="3040423"
^DD(2264,.8,3)="Answer must be 9-11 characters in length."
^DD(2264,.8,21,0)="^.001^3^3^3040423^^"
^DD(2264,.8,21,1,0)="This field contains the employee's SSN.  It is stored in this file as well as"
^DD(2264,.8,21,2,0)="the ASISTS ACCIDENT REPORTING File (#2260) to streamline CA-7 case number"
^DD(2264,.8,21,3,0)="lookup."
^DD(2264,.8,"DT")="3040423"
^DD(2264,.9,0)="EMPLOYEE NAME^F^^0;7^K:$L(X)>35!($L(X)<3) X"
^DD(2264,.9,1,0)="^.1"
^DD(2264,.9,1,1,0)="2264^C"
^DD(2264,.9,1,1,1)="S ^OOPS(2264,""C"",$E(X,1,30),DA)="""""
^DD(2264,.9,1,1,2)="K ^OOPS(2264,""C"",$E(X,1,30),DA)"
^DD(2264,.9,1,1,"%D",0)="^^1^1^3040430^"
^DD(2264,.9,1,1,"%D",1,0)="This cross reference will be used to look-up claims using the employee's name."
^DD(2264,.9,1,1,"DT")="3040430"
^DD(2264,.9,3)="Answer must be 3-35 characters in length."
^DD(2264,.9,21,0)="^^1^1^3040430^"
^DD(2264,.9,21,1,0)="This is the name of the employee who is filing for compensation."
^DD(2264,.9,"DT")="3040430"
^DD(2264,1,0)="OWCP FILE NUMBER^F^^0;2^K:$L(X)>9!($L(X)<3) X"
^DD(2264,1,3)="Answer must be 3-9 characters in length."
^DD(2264,1,21,0)="^.001^2^2^3040426^^^"
^DD(2264,1,21,1,0)="This field contains the OWCP File Number (also known as the DOL Case Number)"
^DD(2264,1,21,2,0)="for this CA-7."
^DD(2264,1,"DT")="3040423"
^DD(2264,2,0)="MAILING STREET ADD^F^^CA7S1;1^K:$L(X)>30!($L(X)<3) X"
^DD(2264,2,3)="Answer must be 3-30 characters in length."
^DD(2264,2,21,0)="^^2^2^3040421^"
^DD(2264,2,21,1,0)="This is the street portion of the employee's mailing address and is collected"
^DD(2264,2,21,2,0)="each time as it may be different."
^DD(2264,2,"DT")="3040421"
^DD(2264,3,0)="MAILING CITY ADD^F^^CA7S1;2^K:$L(X)>25!($L(X)<3) X"
^DD(2264,3,3)="Answer must be 3-25 characters in length."
^DD(2264,3,21,0)="^.001^1^1^3040421^^"
^DD(2264,3,21,1,0)="This is the city portion of the employee's mailing address."
^DD(2264,3,"DT")="3040421"
^DD(2264,4,0)="MAILING STATE ADD^P5'^DIC(5,^CA7S1;3^Q"
^DD(2264,4,3)="Enter the state portion of the employee's mailing address."
^DD(2264,4,21,0)="^^1^1^3040421^"
^DD(2264,4,21,1,0)="This is the state portion of the employee's mailing address."
^DD(2264,4,"DT")="3040421"
^DD(2264,5,0)="MAILING ZIPCODE ADD^F^^CA7S1;4^K:$L(X)>11!($L(X)<5) X"
^DD(2264,5,3)="Answer must be 5-11 characters in length."
^DD(2264,5,21,0)="^^1^1^3040421^"
^DD(2264,5,21,1,0)="This is the zip code portion of the employee's mailing address."
^DD(2264,5,"DT")="3040421"
^DD(2264,6,0)="EMPLOYEE EMAIL^F^^CA7S1;5^K:$L(X)>60!($L(X)<3) X"
^DD(2264,6,3)="Answer must be 3-60 characters in length."
^DD(2264,6,21,0)="^.001^1^1^3040526^^"
^DD(2264,6,21,1,0)="This is the employee's email address if they have one."
^DD(2264,6,"DT")="3040526"
^DD(2264,7,0)="DATE OF INJURY^D^^CA7S1;6^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,7,3)="Enter the date the injury or illness occurred."
^DD(2264,7,21,0)="^.001^1^1^3040625^^"
^DD(2264,7,21,1,0)="This field contains the date the injury or illness occurred."
^DD(2264,7,"DT")="3040625"
^DD(2264,8,0)="EMPLOYEE PHONE NUMBER^F^^CA7S1;7^K:$L(X)>12!($L(X)<10) X"
^DD(2264,8,3)="Answer must be 10-12 characters in length."
^DD(2264,8,21,0)="^^1^1^3040421^"
^DD(2264,8,21,1,0)="This is the employee's contact phone number."
^DD(2264,8,"DT")="3040421"
^DD(2264,9,0)="EMPLOYEE FAX NUMBER^F^^CA7S1;8^K:$L(X)>12!($L(X)<10) X"
^DD(2264,9,3)="Answer must be 10-12 characters in length."
^DD(2264,9,21,0)="^^1^1^3040421^"
^DD(2264,9,21,1,0)="This is the employee's fax number if they have one."
^DD(2264,9,"DT")="3040421"
^DD(2264,10,0)="TYPE COMPENSATION^S^1:Leave without pay;2:Leave buy back;3:Other wage loss;4:Schedule Award;^CA7S2;1^Q"
^DD(2264,10,3)="Enter the type of compensation this claim is filed for."
^DD(2264,10,21,0)="^.001^2^2^3040506^^^"
^DD(2264,10,21,1,0)="This field will contain the type of compensation being filed for, for this"
^DD(2264,10,21,2,0)="claim.  Only one type can be selected per claim."
^DD(2264,10,"DT")="3040506"
^DD(2264,11,0)="CLAIM START DATE^D^^CA7S2;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,11,3)="Enter the first date this compensation claim is being filed for."
^DD(2264,11,21,0)="^^2^2^3040421^"
^DD(2264,11,21,1,0)="This field contains the first date compensation for this claim is being filed"
^DD(2264,11,21,2,0)="for."
^DD(2264,11,"DT")="3040421"
^DD(2264,12,0)="CLAIM END DATE^D^^CA7S2;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,12,3)="Enter the last date compensation for this claim is being filed for."
^DD(2264,12,21,0)="^^2^2^3040421^"
^DD(2264,12,21,1,0)="This field contains the ending date compensation for this claim is being filed"
^DD(2264,12,21,2,0)="for."
^DD(2264,12,"DT")="3040421"
^DD(2264,13,0)="CLAIM INTERMITTENT^S^Y:Yes;N:No;^CA7S2;4^Q"
^DD(2264,13,3)="Enter Y to indicate the dates for this claim are not continuous, otherwise, enter N."
^DD(2264,13,21,0)="^^2^2^3040421^"
^DD(2264,13,21,1,0)="This field indicates whether the claim dates were continuous or not.  If "
^DD(2264,13,21,2,0)="not continuous enter Yes, otherwise enter No."
^DD(2264,13,"DT")="3040421"
^DD(2264,14,0)="OTHER WAGE TYPE^F^^CA7S2;5^K:$L(X)>18!($L(X)<3) X"
^DD(2264,14,3)="Answer must be 3-18 characters in length."
^DD(2264,14,21,0)="^^2^2^3040421^"
^DD(2264,14,21,1,0)="This field contains the description of other wage loss if that type of"
^DD(2264,14,21,2,0)="compensation is being claimed."
^DD(2264,14,"DT")="3040421"
^DD(2264,15,0)="EXTERNALLY WORKED^S^Y:Yes;N:No;^CA7S3;1^Q"
^DD(2264,15,3)="Enter Y if employee worked outside their federal job during the claim period, otherwise enter N."
^DD(2264,15,21,0)="^.001^2^2^3040526^^"
^DD(2264,15,21,1,0)="This field indicates whether the employee was employed outside their federal"
^DD(2264,15,21,2,0)="job at any time during the claim date range."
^DD(2264,15,"DT")="3040421"
^DD(2264,16,0)="BUSINESS NAME^F^^CA7S3;2^K:$L(X)>35!($L(X)<3) X"
^DD(2264,16,3)="Answer must be 3-35 characters in length."
^DD(2264,16,21,0)="^^2^2^3040421^"
^DD(2264,16,21,1,0)="This field contains the name of the business where the employee worked, if they"
^DD(2264,16,21,2,0)="worked outside their federal job during the claim date range."
^DD(2264,16,"DT")="3040421"
^DD(2264,17,0)="BUSINESS STREET ADD^F^^CA7S3;3^K:$L(X)>30!($L(X)<3) X"
^DD(2264,17,3)="Answer must be 3-30 characters in length."
^DD(2264,17,21,0)="^^1^1^3040421^"
^DD(2264,17,21,1,0)="This is the street portion of the business address where the employee worked."
^DD(2264,17,"DT")="3040421"
^DD(2264,18,0)="BUSINESS CITY ADD^F^^CA7S3;4^K:$L(X)>25!($L(X)<3) X"
^DD(2264,18,3)="Answer must be 3-25 characters in length."
^DD(2264,18,21,0)="^^1^1^3040421^"
^DD(2264,18,21,1,0)="This is the city portion of the business address where the employee worked."
^DD(2264,18,"DT")="3040421"
^DD(2264,19,0)="BUSINESS STATE ADD^P5'^DIC(5,^CA7S3;5^Q"
^DD(2264,19,3)="Enter the state portion of the business address."
^DD(2264,19,21,0)="^^1^1^3040421^"
^DD(2264,19,21,1,0)="This field contains the state portion of the business where the employee worked."
^DD(2264,19,"DT")="3040421"
^DD(2264,20,0)="BUSINESS ZIPCODE ADD^F^^CA7S3;6^K:$L(X)>11!($L(X)<5) X"
^DD(2264,20,3)="Answer must be 5-11 characters in length."
^DD(2264,20,21,0)="^^2^2^3040421^"
^DD(2264,20,21,1,0)="This field contains the zip code portion of the business where the employee"
^DD(2264,20,21,2,0)="worked."
^DD(2264,20,"DT")="3040421"
^DD(2264,21,0)="DATE BEGAN OUTSIDE WORK^D^^CA7S3;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,21,3)="Enter the date the employee started working outside employment."
^DD(2264,21,21,0)="^^2^2^3040421^"
^DD(2264,21,21,1,0)="This date contains the first date the employee began working at an outside job"
^DD(2264,21,21,2,0)="during the claim period."
^DD(2264,21,"DT")="3040421"
^DD(2264,22,0)="DATE END OUTSIDE WORK^D^^CA7S3;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,22,3)="Enter the last day of outside employment."
^DD(2264,22,21,0)="^^2^2^3040421^"
^DD(2264,22,21,1,0)="This is the last day the employee worked outside employment during the claim"
^DD(2264,22,21,2,0)="date range."
^DD(2264,22,"DT")="3040421"
^DD(2264,23,0)="OUTSIDE WORK DESCRIPTION^F^^CA7S3;9^K:$L(X)>40!($L(X)<3) X"
^DD(2264,23,3)="Answer must be 3-40 characters in length."
^DD(2264,23,21,0)="^^2^2^3040421^"
^DD(2264,23,21,1,0)="This field describes the type of outside work the employee performed for an"
^DD(2264,23,21,2,0)="employer while working outside their federal job."
^DD(2264,23,"DT")="3040421"
^DD(2264,24,0)="1ST CLAIM FILED FOR INCIDENT^S^Y:Yes;N:No;^CA7S4;1^Q"
^DD(2264,24,3)="Enter Y if this is the first claim filed for this injury or illness, otherwise enter N."
^DD(2264,24,21,0)="^^2^2^3040421^"
^DD(2264,24,21,1,0)="This field will indicate if this is the first compensation claim filed for a"
^DD(2264,24,21,2,0)="particular CA-1 or CA-2."
^DD(2264,24,"DT")="3040421"
^DD(2264,25,0)="CHANGES SINCE LAST CLAIM^S^Y:Yes;N:No;^CA7S4;2^Q"
^DD(2264,25,3)="Enter Y if there has been changes to the employee's dependents or direct deposit information or another type of claim filed."
^DD(2264,25,21,0)="^^3^3^3040421^"
^DD(2264,25,21,1,0)="This field indicates if the employee's dependent or direct deposit information"
^DD(2264,25,21,2,0)="has changed or if they have filed a claim for U.S. Civil Service, other "
^DD(2264,25,21,3,0)="federal retirement or disability law, or the Department of Veterans Affairs."
^DD(2264,25,"DT")="3040421"
^DD(2264,26,0)="DEPENDENT INFORMATION^2264.026A^^CA7S5;0"
^DD(2264,26,21,0)="^^2^2^3040427^"
^DD(2264,26,21,1,0)="This multiple contains the demographic information for dependents living"
^DD(2264,26,21,2,0)="with the employee who is filing a request for compensation claim."
^DD(2264,27,0)="DEP SUPPORT PAYMENT^S^Y:Yes;N:No;^CA7S5A;1^Q"
^DD(2264,27,3)="Enter Y to indicate the employee is making support payments for any dependent listed."
^DD(2264,27,21,0)="^^2^2^3040421^"
^DD(2264,27,21,1,0)="This field will indicate whether the employee is making support payments for"
^DD(2264,27,21,2,0)="any dependent listed in Section 5."
^DD(2264,27,"DT")="3040421"
^DD(2264,28,0)="DEP SUPPORT COURT ORDERED^S^Y:Yes;N:No;^CA7S5A;2^Q"
^DD(2264,28,3)="Enter Y to indicate the employee was court ordered to make the support payment, otherwise enter N."
^DD(2264,28,21,0)="^^2^2^3040421^"
^DD(2264,28,21,1,0)="This field indicates whether the employee is making court ordered support"
^DD(2264,28,21,2,0)="payments for any dependent listed in section 5."
^DD(2264,28,"DT")="3040421"
^DD(2264,29,0)="SUPPORT PAY RECIPIENT^F^^CA7S5A;3^K:$L(X)>35!($L(X)<3) X"
^DD(2264,29,3)="Answer must be 3-35 characters in length."
^DD(2264,29,21,0)="^^2^2^3040421^"
^DD(2264,29,21,1,0)="This field contains the name of the individual receiving support payments for"
^DD(2264,29,21,2,0)="a dependent listed in section 5."
^DD(2264,29,"DT")="3040421"
^DD(2264,30,0)="SUPPORT PAY STREET ADD^F^^CA7S5A;4^K:$L(X)>30!($L(X)<3) X"
^DD(2264,30,3)="Answer must be 3-30 characters in length."
^DD(2264,30,21,0)="^^2^2^3040421^"
^DD(2264,30,21,1,0)="This field contains the street address of the individual receiving support "
^DD(2264,30,21,2,0)="payments."
^DD(2264,30,"DT")="3040421"
^DD(2264,31,0)="SUPPORT PAY CITY ADD^F^^CA7S5A;5^K:$L(X)>25!($L(X)<3) X"
^DD(2264,31,3)="Answer must be 3-25 characters in length."
^DD(2264,31,21,0)="^^2^2^3040421^"
^DD(2264,31,21,1,0)="This field contains the city address of the individual receiving support"
^DD(2264,31,21,2,0)="payments."
^DD(2264,31,"DT")="3040421"
^DD(2264,32,0)="SUPPORT PAY STATE ADD^P5'^DIC(5,^CA7S5A;6^Q"
^DD(2264,32,3)="Enter the state portion of the individual receiving support payments from the employee."
^DD(2264,32,21,0)="^^2^2^3040421^"
^DD(2264,32,21,1,0)="This field contains the state address of the individual receiving support"
^DD(2264,32,21,2,0)="payments."
^DD(2264,32,"DT")="3040421"
^DD(2264,33,0)="SUPPORT PAY ZIPCODE ADD^F^^CA7S5A;7^K:$L(X)>11!($L(X)<5) X"
^DD(2264,33,3)="Answer must be 5-11 characters in length."
^DD(2264,33,21,0)="^^2^2^3040421^"
^DD(2264,33,21,1,0)="This field contains the zip code address of the individual receiving support"
^DD(2264,33,21,2,0)="payments."
^DD(2264,33,"DT")="3040421"
^DD(2264,34,0)="THIRD PARTY CLAIM^S^Y:Yes;N:No;^CA7S6;1^Q"
^DD(2264,34,3)="Enter Y if a claim will be made against a third party, otherwise enter N."
^DD(2264,34,21,0)="^.001^3^3^3040526^^"
^DD(2264,34,21,1,0)="This field indicates if the employee will file a claim against a third party for"
^DD(2264,34,21,2,0)="the injury or illness.  This person or organization must be someone other than"
^DD(2264,34,21,3,0)="the employee or Federal government."
^DD(2264,34,"DT")="3040421"
^DD(2264,35,0)="PRIOR VA DISABILITY BENEFIT^S^Y:Yes;N:No;^CA7S6;2^Q"
^DD(2264,35,3)="Enter Y to indicate the employee has ever applied for or received disability from the Dept. of VA."
^DD(2264,35,21,0)="^^2^2^3040421^"
^DD(2264,35,21,1,0)="This field indicates whether the employee has ever applied for or received"
^DD(2264,35,21,2,0)="disability benefits from the Department of Veterans Affairs."
^DD(2264,35,"DT")="3040421"
^DD(2264,36,0)="PRIOR DISABILITY CLAIM NUMBER^NJ9,0^^CA7S6;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264,36,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2264,36,21,0)="^^2^2^3040421^"
^DD(2264,36,21,1,0)="This field contains the VA claim number from a previous disability claim filed"
^DD(2264,36,21,2,0)="against or received from the Department of Veterans Affairs."
^DD(2264,36,"DT")="3040421"
^DD(2264,37,0)="PRIOR DISABILITY VA OFFICE^F^^CA7S6;4^K:$L(X)>35!($L(X)<3) X"
^DD(2264,37,3)="Answer must be 3-35 characters in length."
^DD(2264,37,21,0)="^^2^2^3040421^"
^DD(2264,37,21,1,0)="This field contains the full name of the VA office where the prior claim was"
^DD(2264,37,21,2,0)="filed."
^DD(2264,37,"DT")="3040421"
^DD(2264,38,0)="PRIOR DISABILITY STREET ADD^F^^CA7S6;5^K:$L(X)>30!($L(X)<3) X"
^DD(2264,38,3)="Answer must be 3-30 characters in length."
^DD(2264,38,21,0)="^^2^2^3040421^"
^DD(2264,38,21,1,0)="This field contains the street portion of the address for the VA office where"
^DD(2264,38,21,2,0)="the prior claim was filed."
^DD(2264,38,"DT")="3040421"
^DD(2264,39,0)="PRIOR DISABILITY CITY ADD^F^^CA7S6;6^K:$L(X)>25!($L(X)<3) X"
^DD(2264,39,3)="Answer must be 3-25 characters in length."
^DD(2264,39,21,0)="^^2^2^3040421^"
^DD(2264,39,21,1,0)="This field contains the city portion of the address for the VA office where"
^DD(2264,39,21,2,0)="the prior claim was filed."
^DD(2264,39,"DT")="3040421"
^DD(2264,40,0)="PRIOR DISABILITY STATE ADD^P5'^DIC(5,^CA7S6;7^Q"
^DD(2264,40,3)="Enter the state portion of VA office where the previous claim was filed."
^DD(2264,40,21,0)="^^2^2^3040421^"
^DD(2264,40,21,1,0)="This field contains the state portion of the address for the VA office where"
^DD(2264,40,21,2,0)="the previous claim was filed."
^DD(2264,40,"DT")="3040421"
^DD(2264,41,0)="PRIOR DISABILITY ZIPCODE ADD^F^^CA7S6;8^K:$L(X)>11!($L(X)<5) X"
^DD(2264,41,3)="Answer must be 5-11 characters in length."
^DD(2264,41,21,0)="^^2^2^3040421^"
^DD(2264,41,21,1,0)="This field contains the zip code portion of the address for the VA office where"
^DD(2264,41,21,2,0)="the previous claim was filed."
^DD(2264,41,"DT")="3040421"
^DD(2264,41.3,0)="PRIOR DISABILITY DESCRIPTION^F^^CA7S6;14^K:$L(X)>40!($L(X)<3) X"
^DD(2264,41.3,3)="Answer must be 3-40 characters in length."
^DD(2264,41.3,21,0)="^^1^1^3040506^"
^DD(2264,41.3,21,1,0)="This field will describe the nature of the prior disability."
^DD(2264,41.3,"DT")="3040506"
^DD(2264,41.6,0)="PRIOR DISABILITY MONTHLY AMT^NJ11,2^^CA7S6;15^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2264,41.6,3)="Type a Number between 0 and 99999999, 2 Decimal Digits"
^DD(2264,41.6,21,0)="^.001^2^2^3040506^^"
^DD(2264,41.6,21,1,0)="This field contains the amount of the monthly disability received by the"
^DD(2264,41.6,21,2,0)="employee."
^DD(2264,41.6,"DT")="3040506"
^DD(2264,42,0)="PREV BEN FED RET/DISA LAW^S^Y:Yes;N:No;^CA7S6;9^Q"
^DD(2264,42,3)="Enter Y if the employee has applied or received payment under any other Federal Ret. or disability law."
^DD(2264,42,21,0)="^^2^2^3040421^"
^DD(2264,42,21,1,0)="This field indicates whether the employee has applied for or received payments"
^DD(2264,42,21,2,0)="under any other Federal Retirement or Disability law."
^DD(2264,42,"DT")="3040421"
^DD(2264,43,0)="PREV BEN FED CLAIM NUMBER^F^^CA7S6;10^K:$L(X)>15!($L(X)<5) X"
^DD(2264,43,3)="Answer must be 5-15 characters in length."
^DD(2264,43,21,0)="^^2^2^3040421^"
^DD(2264,43,21,1,0)="This field will contain the claim number for the previous Federal Retirement"
^DD(2264,43,21,2,0)="or Disability law claim."
^DD(2264,43,"DT")="3040421"
^DD(2264,44,0)="PREV BEN FED ANNUITY START DTE^D^^CA7S6;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,44,3)="Enter the date the annuity for the previous claim began."
^DD(2264,44,21,0)="^.001^2^2^3040526^^^"
^DD(2264,44,21,1,0)="This field contains the date that the previously filed Federal Retirement or"
^DD(2264,44,21,2,0)="Disability claim annuity first began."
^DD(2264,44,"DT")="3040421"
^DD(2264,45,0)="PREV BEN FED PAY AMOUNT^NJ9,2^^CA7S6;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2264,45,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(2264,45,21,0)="^^2^2^3040421^"
^DD(2264,45,21,1,0)="This field contains the amount of the monthly payment for the previous Federal"
^DD(2264,45,21,2,0)="Retirement or Disability law claim."
^DD(2264,45,"DT")="3040421"
^DD(2264,46,0)="PREV BEN FED RETIREMENT SYS^F^^CA7S6;13^K:$L(X)>30!($L(X)<3) X"
^DD(2264,46,3)="Answer must be 3-30 characters in length."
^DD(2264,46,21,0)="^^1^1^3040421^"
^DD(2264,46,21,1,0)="This is the Retirement system of the previously filed claim."
^DD(2264,46,"DT")="3040421"
^DD(2264,47,0)="EMP NAME FOR CA7^P200'^VA(200,^CA7S7;1^Q"
^DD(2264,47,3)="Enter the name of the employee signing the CA-7."
^DD(2264,47,21,0)="^.001^1^1^3040421^^"
^DD(2264,47,21,1,0)="This field contains the name of the employee that is signing the CA-7."
^DD(2264,47,"DT")="3040421"
^DD(2264,48,0)="EMP CA7 SIGNATURE BLOCK^F^^CA7S7;2^K:$L(X)>30!($L(X)<3) X"
^DD(2264,48,3)="Answer must be 3-30 characters in length."
^DD(2264,48,21,0)="^.001^2^2^3040607^^^"
^DD(2264,48,21,1,0)="This field contains the validation code for the signature block for the "
^DD(2264,48,21,2,0)="employee signing the CA-7."
^DD(2264,48,"DT")="3040607"
^DD(2264,49,0)="EMP CA7 DATE OF SIGNATURE^D^^CA7S7;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,49,3)="Enter the date the employee signed the CA-7."
^DD(2264,49,21,0)="^^1^1^3040421^"
^DD(2264,49,21,1,0)="This field contains the date that the employee electronically signed the CA-7."
^DD(2264,49,"DT")="3040421"
^DD(2264,50,0)="DATE OF INJURY (PAGE 2)^D^^CA7S8;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,50,3)="Enter the date of injury or illness for the employee claim."
^DD(2264,50,21,0)="^.001^1^1^3040625^^"
^DD(2264,50,21,1,0)="This field contains the date of injury or illness for the claim."
^DD(2264,50,"DT")="3040625"
^DD(2264,51,0)="BASE PAY TIME OF INCIDENT^NJ9,2^^CA7S8;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2264,51,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(2264,51,21,0)="^^1^1^3040421^"
^DD(2264,51,21,1,0)="This field contains the base pay for the employee at the time of the incident."
^DD(2264,51,"DT")="3040421"
^DD(2264,52,0)="PAY RATE TIME OF INCIDENT^S^H:Hourly;A:Annum;^CA7S8;3^Q"
^DD(2264,52,3)="Enter the employees pay rate at the time of the incident."
^DD(2264,52,21,0)="^^1^1^3040421^"
^DD(2264,52,21,1,0)="This field contains the pay rate for the employee at the time of the incident."
^DD(2264,52,"DT")="3040421"
^DD(2264,53,0)="GRADE AT TIME OF INCIDENT^NJ2,0^^CA7S8;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264,53,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2264,53,21,0)="^^1^1^3040421^"
^DD(2264,53,21,1,0)="This is the employee's grade at the time of the incident."
^DD(2264,53,"DT")="3040421"
^DD(2264,54,0)="STEP AT TIME OF INCIDENT^NJ2,0^^CA7S8;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2264,54,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2264,54,21,0)="^^1^1^3040421^"
^DD(2264,54,21,1,0)="This is the employee's step at the time of the incident."
^DD(2264,54,"DT")="3040421"
^DD(2264,55,0)="ADD PAY TYPE^2264.055P^^CA7S8A;0"
^DD(2264,55,21,0)="^.001^2^2^3040526^^^^"
^DD(2264,55,21,1,0)="This multiple contains the additional pay type, the amount of additional pay, and"
^DD(2264,55,21,2,0)="the pay rate."
^DD(2264,56,0)="DATE EMPLOYEE STOPPED WORK^D^^CA7S8;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,56,3)="Enter the date the employee stopped work for this incident."
^DD(2264,56,21,0)="^^1^1^3040421^"
^DD(2264,56,21,1,0)="This field contains the date the employee stopped working for this incident."
^DD(2264,56,"DT")="3040421"
^DD(2264,57,0)="BASE PAY WHEN STOPPED WORK^NJ9,2^^CA7S8;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2264,57,3)="Type a Number between 0 and 999999, 2 Decimal Digits"
^DD(2264,57,21,0)="^^2^2^3040421^"
^DD(2264,57,21,1,0)="This is the base pay amount the employee was earning at the time they stopped"
^DD(2264,57,21,2,0)="working as a result of this incident."
^DD(2264,57,"DT")="3040421"
^DD(2264,58,0)="PAY RATE WHEN STOPPED WORK^S^H:Hourly;A:Annum;^CA7S8;8^Q"
^DD(2264,58,3)="Enter the pay rate for the employee when they stopped working."
^DD(2264,58,21,0)="^^2^2^3040421^"
^DD(2264,58,21,1,0)="This is the pay rate for the employee at the time they stopped working after"
^DD(2264,58,21,2,0)="the incident."
^DD(2264,58,"DT")="3040421"
^DD(2264,59,0)="GRADE WHEN STOPPED WORK^NJ2,0^^CA7S8;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264,59,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2264,59,21,0)="^^2^2^3040421^"
^DD(2264,59,21,1,0)="This field contains the grade for the employee when they stopped work as a"
^DD(2264,59,21,2,0)="result of this incident."
^DD(2264,59,"DT")="3040421"
^DD(2264,60,0)="STEP WHEN STOPPED WORK^NJ2,0^^CA7S8;10^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264,60,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(2264,60,21,0)="^^2^2^3040421^"
^DD(2264,60,21,1,0)="This is the step the employee was when they stopped work as a result of the"
^DD(2264,60,21,2,0)="incident."
^DD(2264,60,"DT")="3040421"
^DD(2264,61,0)="ADD PAY WHEN WORK STOPPED^2264.061PA^^CA7S8B;0"
^DD(2264,61,21,0)="^.001^3^3^3040526^^^^"
^DD(2264,61,21,1,0)="This multiple contains the additional pay type, the amount of additional pay,"
^DD(2264,61,21,2,0)="and pay rate the employee was earning at the time the employee stopped work"
^DD(2264,61,21,3,0)="as a result of the incident."
^DD(2264,62,0)="REGULAR WKLY 40 HR SCHEDULE^S^Y:Yes;N:No;^CA7S9;1^Q"
^DD(2264,62,3)="Enter Y if the employee works a fixed, regular 40 hour weekly schedule."
^DD(2264,62,21,0)="^^2^2^3040422^"
^DD(2264,62,21,1,0)="This field indicates whether the employee works a fixed, regular 40 hour"
^DD(2264,62,21,2,0)="weekly schedule."
^DD(2264,62,"DT")="3040422"
^DD(2264,63,0)="REGULAR WORK SCHEDULE^F^^CA7S9;2^K:$L(X)>14!($L(X)<1) X"
^DD(2264,63,3)="Answer must be 1-14 characters in length."
^DD(2264,63,21,0)="^^4^4^3040422^"
^DD(2264,63,21,1,0)="This field contains a listing of the days the employee is regularly scheduled"
^DD(2264,63,21,2,0)="to work, if working a fixed 40 hour week.  Examples of input are:"
^DD(2264,63,21,3,0)="  For Monday through Friday, enter 2-6"
^DD(2264,63,21,4,0)="  For Sunday, Wednesday through Saturday, enter 1,4-7 or 1,4,5,6,7"
^DD(2264,63,"DT")="3040422"
^DD(2264,64,0)="LENGTH TIME IN POSITION^S^Y:Yes;N:No;^CA7S9;3^Q"
^DD(2264,64,3)="Enter Y if the employee worked in the position for a minimum of 11 months prior to the incident."
^DD(2264,64,21,0)="^^2^2^3040422^"
^DD(2264,64,21,1,0)="This field indicates if the employee was working in the position for at least"
^DD(2264,64,21,2,0)="11 months prior to the incident."
^DD(2264,64,"DT")="3040422"
^DD(2264,65,0)="POSITION AVAILABLE^S^Y:Yes;N:No;^CA7S9;4^Q"
^DD(2264,65,3)="Enter Y if the position would have been available to the employee if the injury had not occurred."
^DD(2264,65,21,0)="^^2^2^3040422^"
^DD(2264,65,21,1,0)="This field indicates if the position the employee held prior to the incident"
^DD(2264,65,21,2,0)="would have been available for 11 months if the injury had not occurred."
^DD(2264,65,"DT")="3040422"
^DD(2264,66,0)="IRREGULAR WORK SCHEDULE^2264.066^^CA7S9A;0"
^DD(2264,66,21,0)="^.001^4^4^3040427^^^^"
^DD(2264,66,21,1,0)="This multiple collects the employees work daily schedule for the 2 weeks prior"
^DD(2264,66,21,2,0)="to the incident.  It includes the start and end date as well as the number of "
^DD(2264,66,21,3,0)="hours worked each day.  The software will prevent data from being entered for"
^DD(2264,66,21,4,0)="more than 2 weeks. "
^DD(2264,67,0)="HLTH BENEFITS WHEN PAY STOPPED^S^Y:Yes;N:No;^CA7S10;1^Q"
^DD(2264,67,3)="Enter Y if the employee had health coverage under FEHBP when their pay stopped."
^DD(2264,67,21,0)="^^2^2^3040422^"
^DD(2264,67,21,1,0)="This field will indicate whether the employee had health coverage under FEHBP"
^DD(2264,67,21,2,0)="on the date their pay stopped."
^DD(2264,67,"DT")="3040422"
^DD(2264,68,0)="HLTH BENEFITS CODE^F^^CA7S10;2^K:$L(X)>3!($L(X)<3) X"
^DD(2264,68,3)="Answer must be 3 characters in length."
^DD(2264,68,21,0)="^^1^1^3040422^"
^DD(2264,68,21,1,0)="This field contains the employee's health benefits code."
^DD(2264,68,"DT")="3040422"
^DD(2264,69,0)="BASIC LIFE INSURANCE^S^Y:Yes;N:No;^CA7S10;3^Q"
^DD(2264,69,3)="Enter Y if the employee had basic life insurance coverage the day that their pay stopped."
^DD(2264,69,21,0)="^^2^2^3040422^"
^DD(2264,69,21,1,0)="This field indicates whether the employee was enrolled in basic life insurance"
^DD(2264,69,21,2,0)="coverage on the day that their pay stopped."
^DD(2264,69,"DT")="3040422"
^DD(2264,70,0)="OPTIONAL LIFE INSURANCE^S^Y:Yes;N:No;^CA7S10;4^Q"
^DD(2264,70,3)="Enter Y if the employee was enrolled in optional life insurance coverage at the time their pay stopped."
^DD(2264,70,21,0)="^.001^2^2^3040422^^"
^DD(2264,70,21,1,0)="This field will indicate whether the employee was enrolled in optional life"
^DD(2264,70,21,2,0)="insurance coverage on the date their pay stopped."
^DD(2264,70,"DT")="3040422"
^DD(2264,71,0)="OPT LIFE INSURANCE CLASS^F^^CA7S10;5^K:$L(X)>2!($L(X)<1) X"
^DD(2264,71,3)="Answer must be 1-2 characters in length."
^DD(2264,71,21,0)="^^2^2^3040422^"
^DD(2264,71,21,1,0)="This field contains the class of the optional life insurance if the employee"
^DD(2264,71,21,2,0)="had coverage on the date that their pay stopped."
^DD(2264,71,"DT")="3040422"
^DD(2264,72,0)="RETIREMENT SYSTEM^S^Y:Yes;N:No;^CA7S10;6^Q"
^DD(2264,72,3)="Enter Y if the employee was covered with a retirement system at the time their pay stopped."
^DD(2264,72,21,0)="^^2^2^3040422^"
^DD(2264,72,21,1,0)="This field will indicate whether the employee was enrolled in a retirement"
^DD(2264,72,21,2,0)="system at the time that their pay stopped."
^DD(2264,72,"DT")="3040422"
^DD(2264,73,0)="RETIREMENT SYSTEM PLAN^S^1:CSRS;2:FERS;3:OTHER;^CA7S10;7^Q"
^DD(2264,73,3)="Enter the code for the type of retirement system the employee has."
^DD(2264,73,21,0)="^^2^2^3040422^"
^DD(2264,73,21,1,0)="This field will indicate what type of retirement system the employee had at"
^DD(2264,73,21,2,0)="the time their pay stopped."
^DD(2264,73,"DT")="3040422"
^DD(2264,74,0)="COP RECEIVED START DATE^D^^CA7S11;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,74,3)="Enter the first date COP was received."
^DD(2264,74,21,0)="^^1^1^3040422^"
^DD(2264,74,21,1,0)="This is the begin date of continuation of pay that the employee received."
^DD(2264,74,"DT")="3040422"
^DD(2264,75,0)="COP RECEIVED END DATE^D^^CA7S11;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,75,3)="Enter the last date that the employee received COP."
^DD(2264,75,21,0)="^^1^1^3040422^"
^DD(2264,75,21,1,0)="This is the last date of continuation of pay that the employee received."
^DD(2264,75,"DT")="3040422"
^DD(2264,76,0)="COP INTERMITTENT^S^Y:Yes;N:No;^CA7S11;3^Q"
^DD(2264,76,3)="Enter Y if the COP the employee received was not continuous."
^DD(2264,76,21,0)="^^2^2^3040422^"
^DD(2264,76,21,1,0)="This field indicates whether the employee received continuation of pay"
^DD(2264,76,21,2,0)="continuously or if there was a break in benefits."
^DD(2264,76,"DT")="3040422"
^DD(2264,77,0)="PAY STATUS DURING CLAIM^2264.077SA^^CA7S12;0"
^DD(2264,77,21,0)="^.001^2^2^3040427^^^"
^DD(2264,77,21,1,0)="This multiple contains the pay status, start and end date and whether the"
^DD(2264,77,21,2,0)="pay status for the date range entered was continuous or intermittent."
^DD(2264,78,0)="EMPLOYEE RETURNED TO WORK^S^Y:Yes;N:No;^CA7S13;1^Q"
^DD(2264,78,3)="Enter Y if the employee returned to work, otherwise enter N."
^DD(2264,78,21,0)="^^2^2^3040422^"
^DD(2264,78,21,1,0)="This field indicates whether the employee returned to work during this CA-7"
^DD(2264,78,21,2,0)="claim."
^DD(2264,78,"DT")="3040422"
^DD(2264,79,0)="DATE EMPLOYEE RETURNED TO WORK^D^^CA7S13;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,79,3)="Enter the date the employee returned to work."
^DD(2264,79,21,0)="^^2^2^3040422^"
^DD(2264,79,21,1,0)="This field contains the date the employee returned to work after the incident"
^DD(2264,79,21,2,0)="relating to this CA-7 claim."
^DD(2264,79,"DT")="3040422"
^DD(2264,80,0)="RETURNED TO PRE-INJURY JOB^S^Y:Yes;N:No;^CA7S13;3^Q"
^DD(2264,80,3)="Enter Y if the employee was able to return to their regular job, otherwise enter N."
^DD(2264,80,21,0)="^^2^2^3040422^"
^DD(2264,80,21,1,0)="This field indicates whether the employee returned to their regular job - the"
^DD(2264,80,21,2,0)="one they were working prior to the incident that resulted in this claim."
^DD(2264,80,"DT")="3040422"
^DD(2264,81,0)="REASON NOT RETURN TO JOB^F^^CA7S13A;1^K:$L(X)>240!($L(X)<3) X"
^DD(2264,81,3)="Answer must be 3-240 characters in length."
^DD(2264,81,21,0)="^^2^2^3040422^"
^DD(2264,81,21,1,0)="This field contains the reason the employee was not able to return to their"
^DD(2264,81,21,2,0)="pre-incident 'regular' job. "
^DD(2264,81,"DT")="3040422"
^DD(2264,82,0)="REMARKS^F^^CA7S14;1^K:$L(X)>240!($L(X)<3) X"
^DD(2264,82,3)="Answer must be 3-240 characters in length."
^DD(2264,82,21,0)="^^2^2^3040422^"
^DD(2264,82,21,1,0)="This field contains any remarks that the workers' compensation specialist"
^DD(2264,82,21,2,0)="needs to make regarding this CA-7 claim."
^DD(2264,82,"DT")="3040422"
^DD(2264,83,0)="WC NAME FOR CA7^P200'^VA(200,^CA7S15;1^Q"
^DD(2264,83,3)="Enter the name of the WC specialist who signed the claim."
^DD(2264,83,21,0)="^^2^2^3040422^"
^DD(2264,83,21,1,0)="This field contains the name of the Workers' Comp (WC) specialist who signed"
^DD(2264,83,21,2,0)="the claim."
^DD(2264,83,"DT")="3040422"
^DD(2264,84,0)="WC CA7 ELECTRONIC SIGNATURE^F^^CA7S15;2^K:$L(X)>20!($L(X)<6) X"
^DD(2264,84,3)="Answer must be 6-20 characters in length."
^DD(2264,84,21,0)="^^2^2^3040422^"
^DD(2264,84,21,1,0)="This field contains the WC specialist's electronic signature who signed the"
^DD(2264,84,21,2,0)="claim."
^DD(2264,84,"DT")="3040422"
^DD(2264,85,0)="WC CA7 DATE OF SIGNATURE^D^^CA7S15;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264,85,3)="Enter the date the WC specialist signed the claim."
^DD(2264,85,21,0)="^^1^1^3040422^"
^DD(2264,85,21,1,0)="This is the date that the WC specialist electronically signed the claim."
^DD(2264,85,"DT")="3040422"
^DD(2264,86,0)="WC CA7 TITLE^F^^CA7S15;4^K:$L(X)>20!($L(X)<3) X"
^DD(2264,86,3)="Answer must be 3-20 characters in length."
^DD(2264,86,21,0)="^^1^1^3040422^"
^DD(2264,86,21,1,0)="This is the WC specialist's official title."
^DD(2264,86,"DT")="3040422"
^DD(2264,87,0)="AGENCY NAME^F^^CA7S15;5^K:$L(X)>40!($L(X)<2) X"
^DD(2264,87,3)="Answer must be 2-40 characters in length."
^DD(2264,87,21,0)="^.001^1^1^3040608^^^^"
^DD(2264,87,21,1,0)="This is the official name of the agency whose WC specialist is signing this claim. "
^DD(2264,87,"DT")="3040608"
^DD(2264,88,0)="OWCP CONTACT NAME^F^^CA7S15;6^K:$L(X)>35!($L(X)<3) X"
^DD(2264,88,3)="Answer must be 3-35 characters in length."
^DD(2264,88,21,0)="^^2^2^3040422^"
^DD(2264,88,21,1,0)="This field contains the name of the individual who OWCP should contact should"
^DD(2264,88,21,2,0)="they need additional information regarding this claim."
^DD(2264,88,"DT")="3040422"
^DD(2264,89,0)="OWCP CONTACT TITLE^F^^CA7S15;7^K:$L(X)>20!($L(X)<3) X"
^DD(2264,89,3)="Answer must be 3-20 characters in length."
^DD(2264,89,21,0)="^^2^2^3040422^"
^DD(2264,89,21,1,0)="This field contains the title for the OWCP contact person should OWCP need to"
^DD(2264,89,21,2,0)="contact them regarding this claim."
^DD(2264,89,"DT")="3040422"
^DD(2264,90,0)="OWCP CONTACT PHONE^F^^CA7S15;8^K:$L(X)>12!($L(X)<10) X"
^DD(2264,90,3)="Answer must be 10-12 characters in length."
^DD(2264,90,21,0)="^^2^2^3040422^"
^DD(2264,90,21,1,0)="This field contains the telephone number for the individual that OWCP should"
^DD(2264,90,21,2,0)="contact if they need additional information regarding this claim."
^DD(2264,90,"DT")="3040422"
^DD(2264,91,0)="OWCP CONTACT FAX^F^^CA7S15;9^K:$L(X)>12!($L(X)<10) X"
^DD(2264,91,3)="Answer must be 10-12 characters in length."
^DD(2264,91,21,0)="^^2^2^3040422^"
^DD(2264,91,21,1,0)="This field contains the fax number for the individual that OWCP should"
^DD(2264,91,21,2,0)="contact if they need additional information regarding this claim."
^DD(2264,91,"DT")="3040422"
^DD(2264,92,0)="OWCP CONTACT EMAIL^F^^CA7S15;10^K:$L(X)>50!($L(X)<3) X"
^DD(2264,92,3)="Answer must be 3-50 characters in length."
^DD(2264,92,21,0)="^.001^2^2^3040608^^^^"
^DD(2264,92,21,1,0)="This field contains the email address for the individual that OWCP should"
^DD(2264,92,21,2,0)="contact if they need additional information regarding this claim."
^DD(2264,92,"DT")="3040608"
^DD(2264,93,0)="WEEK WORK STOPPED^NJ1,0^^CA7S9;5^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2264,93,3)="Type a Number between 1 and 2, 0 Decimal Digits"
^DD(2264,93,21,0)="^.001^2^2^3040520^^"
^DD(2264,93,21,1,0)="The Workers' Comp specialist will enter the week of the pay period that worked"
^DD(2264,93,21,2,0)="stopped."
^DD(2264,93,"DT")="3040520"
^DD(2264,94,0)="DAY OF WEEK WORK STOPPED^NJ1,0^^CA7S9;6^K:+X'=X!(X>7)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2264,94,3)="Type a Number between 1 and 7, 0 Decimal Digits"
^DD(2264,94,21,0)="^^4^4^3040520^"
^DD(2264,94,21,1,0)="The Workers' Comp specialist will enter an number indicating what day of the"
^DD(2264,94,21,2,0)="week work stopped.  Sunday = 1, Monday = 2, etc.  This information will be"
^DD(2264,94,21,3,0)="used in conjunction with the WEEK WORKED STOPPED for calculating continuation"
^DD(2264,94,21,4,0)="of pay."
^DD(2264,94,"DT")="3040520"
^DD(2264,95,0)="EMP VALIDATION CODE^NJ9,0^^CA7S7;4^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2264,95,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(2264,95,21,0)="^.001^2^2^3040608^^"
^DD(2264,95,21,1,0)="This field contains the validation code for verification that the data has not"
^DD(2264,95,21,2,0)="changed after the employee signed the CA-7 case."
^DD(2264,95,"DT")="3040608"
^DD(2264,96,0)="VALIDATION VERSION^NJ2,0^^CA7S7;5^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2264,96,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(2264,96,21,0)="^^2^2^3040604^"
^DD(2264,96,21,1,0)="This field contains the version number used to encode the electronic "
^DD(2264,96,21,2,0)="signature code for the CA-7."
^DD(2264,96,"DT")="3040604"
^DD(2264,97,0)="WC VALIDATION CODE^NJ9,0^^CA7S15;11^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264,97,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2264,97,21,0)="^^2^2^3040608^"
^DD(2264,97,21,1,0)="This field contains the validation code for verification that the data has not"
^DD(2264,97,21,2,0)="changed after the workers' compensation specialist has signed the CA-7 case."
^DD(2264,97,"DT")="3040608"
^DD(2264,"B","1ST CLAIM FILED FOR INCIDENT",24)=""
^DD(2264,"B","ADD PAY TYPE",55)=""
^DD(2264,"B","ADD PAY WHEN WORK STOPPED",61)=""
^DD(2264,"B","AGENCY NAME",87)=""
^DD(2264,"B","ASISTS RECORD",.7)=""
^DD(2264,"B","BASE PAY TIME OF INCIDENT",51)=""
^DD(2264,"B","BASE PAY WHEN STOPPED WORK",57)=""
^DD(2264,"B","BASIC LIFE INSURANCE",69)=""
^DD(2264,"B","BUSINESS CITY ADD",18)=""
^DD(2264,"B","BUSINESS NAME",16)=""
^DD(2264,"B","BUSINESS STATE ADD",19)=""
^DD(2264,"B","BUSINESS STREET ADD",17)=""
^DD(2264,"B","BUSINESS ZIPCODE ADD",20)=""
^DD(2264,"B","CA7 CASE NUMBER",.01)=""
^DD(2264,"B","CHANGES SINCE LAST CLAIM",25)=""
^DD(2264,"B","CLAIM END DATE",12)=""
^DD(2264,"B","CLAIM INTERMITTENT",13)=""
^DD(2264,"B","CLAIM START DATE",11)=""
^DD(2264,"B","COP INTERMITTENT",76)=""
^DD(2264,"B","COP RECEIVED END DATE",75)=""
^DD(2264,"B","COP RECEIVED START DATE",74)=""
^DD(2264,"B","DATE BEGAN OUTSIDE WORK",21)=""
^DD(2264,"B","DATE CA7 CREATED",.3)=""
^DD(2264,"B","DATE EMPLOYEE RETURNED TO WORK",79)=""
^DD(2264,"B","DATE EMPLOYEE STOPPED WORK",56)=""
^DD(2264,"B","DATE END OUTSIDE WORK",22)=""
^DD(2264,"B","DATE OF INJURY",7)=""
^DD(2264,"B","DATE OF INJURY (PAGE 2)",50)=""
^DD(2264,"B","DAY OF WEEK WORK STOPPED",94)=""
^DD(2264,"B","DEP SUPPORT COURT ORDERED",28)=""
^DD(2264,"B","DEP SUPPORT PAYMENT",27)=""
^DD(2264,"B","DEPENDENT INFORMATION",26)=""
^DD(2264,"B","EMP CA7 DATE OF SIGNATURE",49)=""
^DD(2264,"B","EMP CA7 SIGNATURE BLOCK",48)=""
^DD(2264,"B","EMP NAME FOR CA7",47)=""
^DD(2264,"B","EMP VALIDATION CODE",95)=""
^DD(2264,"B","EMPLOYEE EMAIL",6)=""
^DD(2264,"B","EMPLOYEE FAX NUMBER",9)=""
^DD(2264,"B","EMPLOYEE NAME",.9)=""
^DD(2264,"B","EMPLOYEE PHONE NUMBER",8)=""
^DD(2264,"B","EMPLOYEE RETURNED TO WORK",78)=""
^DD(2264,"B","EMPLOYEE SSN",.8)=""
^DD(2264,"B","EXTERNALLY WORKED",15)=""
^DD(2264,"B","GRADE AT TIME OF INCIDENT",53)=""
^DD(2264,"B","GRADE WHEN STOPPED WORK",59)=""
^DD(2264,"B","HLTH BENEFITS CODE",68)=""
^DD(2264,"B","HLTH BENEFITS WHEN PAY STOPPED",67)=""
^DD(2264,"B","IRREGULAR WORK SCHEDULE",66)=""
^DD(2264,"B","LENGTH TIME IN POSITION",64)=""
^DD(2264,"B","MAILING CITY ADD",3)=""
^DD(2264,"B","MAILING STATE ADD",4)=""
^DD(2264,"B","MAILING STREET ADD",2)=""
^DD(2264,"B","MAILING ZIPCODE ADD",5)=""
^DD(2264,"B","OPT LIFE INSURANCE CLASS",71)=""
^DD(2264,"B","OPTIONAL LIFE INSURANCE",70)=""
^DD(2264,"B","OTHER WAGE TYPE",14)=""
^DD(2264,"B","OUTSIDE WORK DESCRIPTION",23)=""
^DD(2264,"B","OWCP CONTACT EMAIL",92)=""
^DD(2264,"B","OWCP CONTACT FAX",91)=""
^DD(2264,"B","OWCP CONTACT NAME",88)=""
^DD(2264,"B","OWCP CONTACT PHONE",90)=""
^DD(2264,"B","OWCP CONTACT TITLE",89)=""
^DD(2264,"B","OWCP FILE NUMBER",1)=""
^DD(2264,"B","PAY RATE TIME OF INCIDENT",52)=""
^DD(2264,"B","PAY RATE WHEN STOPPED WORK",58)=""
^DD(2264,"B","PAY STATUS DURING CLAIM",77)=""
^DD(2264,"B","PERSON THAT CREATED CA7",.5)=""
^DD(2264,"B","POSITION AVAILABLE",65)=""
^DD(2264,"B","PREV BEN FED ANNUITY START DTE",44)=""
^DD(2264,"B","PREV BEN FED CLAIM NUMBER",43)=""
^DD(2264,"B","PREV BEN FED PAY AMOUNT",45)=""
^DD(2264,"B","PREV BEN FED RET/DISA LAW",42)=""
^DD(2264,"B","PREV BEN FED RETIREMENT SYS",46)=""
^DD(2264,"B","PRIOR DISABILITY CITY ADD",39)=""
^DD(2264,"B","PRIOR DISABILITY CLAIM NUMBER",36)=""
^DD(2264,"B","PRIOR DISABILITY DESCRIPTION",41.3)=""
^DD(2264,"B","PRIOR DISABILITY MONTHLY AMT",41.6)=""
^DD(2264,"B","PRIOR DISABILITY STATE ADD",40)=""
^DD(2264,"B","PRIOR DISABILITY STREET ADD",38)=""
^DD(2264,"B","PRIOR DISABILITY VA OFFICE",37)=""
^DD(2264,"B","PRIOR DISABILITY ZIPCODE ADD",41)=""
^DD(2264,"B","PRIOR VA DISABILITY BENEFIT",35)=""
^DD(2264,"B","REASON NOT RETURN TO JOB",81)=""
^DD(2264,"B","REGULAR WKLY 40 HR SCHEDULE",62)=""
^DD(2264,"B","REGULAR WORK SCHEDULE",63)=""
^DD(2264,"B","REMARKS",82)=""
^DD(2264,"B","RETIREMENT SYSTEM",72)=""
^DD(2264,"B","RETIREMENT SYSTEM PLAN",73)=""
^DD(2264,"B","RETURNED TO PRE-INJURY JOB",80)=""
^DD(2264,"B","STEP AT TIME OF INCIDENT",54)=""
^DD(2264,"B","STEP WHEN STOPPED WORK",60)=""
^DD(2264,"B","SUPPORT PAY CITY ADD",31)=""
^DD(2264,"B","SUPPORT PAY RECIPIENT",29)=""
^DD(2264,"B","SUPPORT PAY STATE ADD",32)=""
^DD(2264,"B","SUPPORT PAY STREET ADD",30)=""
^DD(2264,"B","SUPPORT PAY ZIPCODE ADD",33)=""
^DD(2264,"B","THIRD PARTY CLAIM",34)=""
^DD(2264,"B","TYPE COMPENSATION",10)=""
^DD(2264,"B","VALIDATION VERSION",96)=""
^DD(2264,"B","WC CA7 DATE OF SIGNATURE",85)=""
^DD(2264,"B","WC CA7 ELECTRONIC SIGNATURE",84)=""
^DD(2264,"B","WC CA7 TITLE",86)=""
^DD(2264,"B","WC NAME FOR CA7",83)=""
^DD(2264,"B","WC VALIDATION CODE",97)=""
^DD(2264,"B","WEEK WORK STOPPED",93)=""
^DD(2264,"GL",0,1,.01)=""
^DD(2264,"GL",0,2,1)=""
^DD(2264,"GL",0,3,.3)=""
^DD(2264,"GL",0,4,.5)=""
^DD(2264,"GL",0,5,.7)=""
^DD(2264,"GL",0,6,.8)=""
^DD(2264,"GL",0,7,.9)=""
^DD(2264,"GL","CA7S1",1,2)=""
^DD(2264,"GL","CA7S1",2,3)=""
^DD(2264,"GL","CA7S1",3,4)=""
^DD(2264,"GL","CA7S1",4,5)=""
^DD(2264,"GL","CA7S1",5,6)=""
^DD(2264,"GL","CA7S1",6,7)=""
^DD(2264,"GL","CA7S1",7,8)=""
^DD(2264,"GL","CA7S1",8,9)=""
^DD(2264,"GL","CA7S10",1,67)=""
^DD(2264,"GL","CA7S10",2,68)=""
^DD(2264,"GL","CA7S10",3,69)=""
^DD(2264,"GL","CA7S10",4,70)=""
^DD(2264,"GL","CA7S10",5,71)=""
^DD(2264,"GL","CA7S10",6,72)=""
^DD(2264,"GL","CA7S10",7,73)=""
^DD(2264,"GL","CA7S11",1,74)=""
^DD(2264,"GL","CA7S11",2,75)=""
^DD(2264,"GL","CA7S11",3,76)=""
^DD(2264,"GL","CA7S12",0,77)=""
^DD(2264,"GL","CA7S13",1,78)=""
^DD(2264,"GL","CA7S13",2,79)=""
^DD(2264,"GL","CA7S13",3,80)=""
^DD(2264,"GL","CA7S13A",1,81)=""
^DD(2264,"GL","CA7S14",1,82)=""
^DD(2264,"GL","CA7S15",1,83)=""
^DD(2264,"GL","CA7S15",2,84)=""
^DD(2264,"GL","CA7S15",3,85)=""
^DD(2264,"GL","CA7S15",4,86)=""
^DD(2264,"GL","CA7S15",5,87)=""
^DD(2264,"GL","CA7S15",6,88)=""
^DD(2264,"GL","CA7S15",7,89)=""
^DD(2264,"GL","CA7S15",8,90)=""
^DD(2264,"GL","CA7S15",9,91)=""
^DD(2264,"GL","CA7S15",10,92)=""
^DD(2264,"GL","CA7S15",11,97)=""
^DD(2264,"GL","CA7S2",1,10)=""
^DD(2264,"GL","CA7S2",2,11)=""
^DD(2264,"GL","CA7S2",3,12)=""
^DD(2264,"GL","CA7S2",4,13)=""
^DD(2264,"GL","CA7S2",5,14)=""
^DD(2264,"GL","CA7S3",1,15)=""
^DD(2264,"GL","CA7S3",2,16)=""
^DD(2264,"GL","CA7S3",3,17)=""
^DD(2264,"GL","CA7S3",4,18)=""
^DD(2264,"GL","CA7S3",5,19)=""
^DD(2264,"GL","CA7S3",6,20)=""
^DD(2264,"GL","CA7S3",7,21)=""
^DD(2264,"GL","CA7S3",8,22)=""
^DD(2264,"GL","CA7S3",9,23)=""
^DD(2264,"GL","CA7S4",1,24)=""
^DD(2264,"GL","CA7S4",2,25)=""
^DD(2264,"GL","CA7S5",0,26)=""
^DD(2264,"GL","CA7S5A",1,27)=""
^DD(2264,"GL","CA7S5A",2,28)=""
^DD(2264,"GL","CA7S5A",3,29)=""
^DD(2264,"GL","CA7S5A",4,30)=""
^DD(2264,"GL","CA7S5A",5,31)=""
^DD(2264,"GL","CA7S5A",6,32)=""
^DD(2264,"GL","CA7S5A",7,33)=""
^DD(2264,"GL","CA7S6",1,34)=""
^DD(2264,"GL","CA7S6",2,35)=""
^DD(2264,"GL","CA7S6",3,36)=""
^DD(2264,"GL","CA7S6",4,37)=""
^DD(2264,"GL","CA7S6",5,38)=""
^DD(2264,"GL","CA7S6",6,39)=""
^DD(2264,"GL","CA7S6",7,40)=""
^DD(2264,"GL","CA7S6",8,41)=""
^DD(2264,"GL","CA7S6",9,42)=""
^DD(2264,"GL","CA7S6",10,43)=""
^DD(2264,"GL","CA7S6",11,44)=""
^DD(2264,"GL","CA7S6",12,45)=""
^DD(2264,"GL","CA7S6",13,46)=""
^DD(2264,"GL","CA7S6",14,41.3)=""
^DD(2264,"GL","CA7S6",15,41.6)=""
^DD(2264,"GL","CA7S7",1,47)=""
^DD(2264,"GL","CA7S7",2,48)=""
^DD(2264,"GL","CA7S7",3,49)=""
^DD(2264,"GL","CA7S7",4,95)=""
^DD(2264,"GL","CA7S7",5,96)=""
^DD(2264,"GL","CA7S8",1,50)=""
^DD(2264,"GL","CA7S8",2,51)=""
^DD(2264,"GL","CA7S8",3,52)=""
^DD(2264,"GL","CA7S8",4,53)=""
^DD(2264,"GL","CA7S8",5,54)=""
^DD(2264,"GL","CA7S8",6,56)=""
^DD(2264,"GL","CA7S8",7,57)=""
^DD(2264,"GL","CA7S8",8,58)=""
^DD(2264,"GL","CA7S8",9,59)=""
^DD(2264,"GL","CA7S8",10,60)=""
^DD(2264,"GL","CA7S8A",0,55)=""
^DD(2264,"GL","CA7S8B",0,61)=""
^DD(2264,"GL","CA7S9",1,62)=""
^DD(2264,"GL","CA7S9",2,63)=""
^DD(2264,"GL","CA7S9",3,64)=""
^DD(2264,"GL","CA7S9",4,65)=""
^DD(2264,"GL","CA7S9",5,93)=""
^DD(2264,"GL","CA7S9",6,94)=""
^DD(2264,"GL","CA7S9A",0,66)=""
^DD(2264,"IX",.01)=""
^DD(2264,"IX",.7)=""
^DD(2264,"IX",.8)=""
^DD(2264,"IX",.9)=""
^DD(2264,"RQ",.01)=""
^DD(2264,"RQ",.3)=""
^DD(2264,"RQ",.5)=""
^DD(2264,"SB",2264.026,26)=""
^DD(2264,"SB",2264.055,55)=""
^DD(2264,"SB",2264.061,61)=""
^DD(2264,"SB",2264.066,66)=""
^DD(2264,"SB",2264.077,77)=""
^DD(2264.026,0)="DEPENDENT INFORMATION SUB-FIELD^^4^5"
^DD(2264.026,0,"DT")="3040427"
^DD(2264.026,0,"IX","B",2264.026,.01)=""
^DD(2264.026,0,"NM","DEPENDENT INFORMATION")=""
^DD(2264.026,0,"UP")="2264"
^DD(2264.026,.01,0)="DEP SSN^NJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.026,.01,1,0)="^.1"
^DD(2264.026,.01,1,1,0)="2264.026^B"
^DD(2264.026,.01,1,1,1)="S ^OOPS(2264,DA(1),""CA7S5"",""B"",$E(X,1,30),DA)="""""
^DD(2264.026,.01,1,1,2)="K ^OOPS(2264,DA(1),""CA7S5"",""B"",$E(X,1,30),DA)"
^DD(2264.026,.01,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(2264.026,.01,21,0)="^.001^2^2^3040421^^"
^DD(2264.026,.01,21,1,0)="This multiple contains information pertaining to dependents the employee has and"
^DD(2264.026,.01,21,2,0)="is required for properly filing a CA-7 claim."
^DD(2264.026,.01,"DT")="3040421"
^DD(2264.026,1,0)="DEP NAME^F^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(2264.026,1,3)="Answer must be 3-35 characters in length."
^DD(2264.026,1,21,0)="^^1^1^3040427^"
^DD(2264.026,1,21,1,0)="This field contains the employee's dependents name."
^DD(2264.026,1,"DT")="3040427"
^DD(2264.026,2,0)="DEP DATE OF BIRTH^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264.026,2,3)="Enter the dependents birth date."
^DD(2264.026,2,21,0)="^^1^1^3040427^"
^DD(2264.026,2,21,1,0)="This field contains the employee's dependents date of birth."
^DD(2264.026,2,"DT")="3040427"
^DD(2264.026,3,0)="DEP RELATIONSHIP^F^^0;4^K:$L(X)>15!($L(X)<3) X"
^DD(2264.026,3,3)="Answer must be 3-15 characters in length."
^DD(2264.026,3,21,0)="^^2^2^3040427^"
^DD(2264.026,3,21,1,0)="This field contains the relationship the employee has with or to the "
^DD(2264.026,3,21,2,0)="dependent."
^DD(2264.026,3,"DT")="3040427"
^DD(2264.026,4,0)="DEP LIVING WITH YOU^S^Y:Yes;N:No;^0;5^Q"
^DD(2264.026,4,3)="Enter Y if the dependent is living with you, otherwise enter N."
^DD(2264.026,4,21,0)="^^1^1^3040427^"
^DD(2264.026,4,21,1,0)="This field indicates whether the dependent is living with the employee or not."
^DD(2264.026,4,"DT")="3040427"
^DD(2264.026,"B","DEP DATE OF BIRTH",2)=""
^DD(2264.026,"B","DEP LIVING WITH YOU",4)=""
^DD(2264.026,"B","DEP NAME",1)=""
^DD(2264.026,"B","DEP RELATIONSHIP",3)=""
^DD(2264.026,"B","DEP SSN",.01)=""
^DD(2264.026,"GL",0,1,.01)=""
^DD(2264.026,"GL",0,2,1)=""
^DD(2264.026,"GL",0,3,2)=""
^DD(2264.026,"GL",0,4,3)=""
^DD(2264.026,"GL",0,5,4)=""
^DD(2264.026,"IX",.01)=""
^DD(2264.055,0)="ADD PAY TYPE SUB-FIELD^^2^3"
^DD(2264.055,0,"DT")="3040427"
^DD(2264.055,0,"IX","B",2264.055,.01)=""
^DD(2264.055,0,"NM","ADD PAY TYPE")=""
^DD(2264.055,0,"UP")="2264"
^DD(2264.055,.01,0)="ADD PAY TYPE^MP2262.5'^OOPS(2262.5,^0;1^Q"
^DD(2264.055,.01,1,0)="^.1"
^DD(2264.055,.01,1,1,0)="2264.055^B"
^DD(2264.055,.01,1,1,1)="S ^OOPS(2264,DA(1),""CA7S8A"",""B"",$E(X,1,30),DA)="""""
^DD(2264.055,.01,1,1,2)="K ^OOPS(2264,DA(1),""CA7S8A"",""B"",$E(X,1,30),DA)"
^DD(2264.055,.01,3)="Enter the additional pay type for the employee at the time work stopped."
^DD(2264.055,.01,21,0)="^.001^2^2^3040427^^^^"
^DD(2264.055,.01,21,1,0)="This field contains the type of additional pay the employee was receiving"
^DD(2264.055,.01,21,2,0)="at the time of the incident."
^DD(2264.055,.01,"DT")="3040427"
^DD(2264.055,1,0)="ADD PAY BASE AMT^NJ11,2^^0;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2264.055,1,3)="Type a Number between 0 and 99999999, 2 Decimal Digits"
^DD(2264.055,1,21,0)="^^1^1^3040427^"
^DD(2264.055,1,21,1,0)="This field contains the base pay amount for this additional pay type."
^DD(2264.055,1,"DT")="3040427"
^DD(2264.055,2,0)="ADD PAY PAY RATE^S^H:Hourly;A:Annum;^0;3^Q"
^DD(2264.055,2,3)="Enter the pay rate for this additional pay type."
^DD(2264.055,2,21,0)="^^1^1^3040427^"
^DD(2264.055,2,21,1,0)="This field contains the pay rate for this additional pay type."
^DD(2264.055,2,"DT")="3040427"
^DD(2264.055,"B","ADD PAY BASE AMT",1)=""
^DD(2264.055,"B","ADD PAY PAY RATE",2)=""
^DD(2264.055,"B","ADD PAY TYPE",.01)=""
^DD(2264.055,"GL",0,1,.01)=""
^DD(2264.055,"GL",0,2,1)=""
^DD(2264.055,"GL",0,3,2)=""
^DD(2264.055,"IX",.01)=""
^DD(2264.061,0)="ADD PAY WHEN WORK STOPPED SUB-FIELD^^2^3"
^DD(2264.061,0,"DT")="3040427"
^DD(2264.061,0,"IX","B",2264.061,.01)=""
^DD(2264.061,0,"NM","ADD PAY WHEN WORK STOPPED")=""
^DD(2264.061,0,"UP")="2264"
^DD(2264.061,.01,0)="ADD PAY WHEN WORK STOPPED^P2262.5'^OOPS(2262.5,^0;1^Q"
^DD(2264.061,.01,1,0)="^.1"
^DD(2264.061,.01,1,1,0)="2264.061^B"
^DD(2264.061,.01,1,1,1)="S ^OOPS(2264,DA(1),""CA7S8B"",""B"",$E(X,1,30),DA)="""""
^DD(2264.061,.01,1,1,2)="K ^OOPS(2264,DA(1),""CA7S8B"",""B"",$E(X,1,30),DA)"
^DD(2264.061,.01,3)="Enter the additional type of pay when the employee stopped work."
^DD(2264.061,.01,21,0)="^^2^2^3040422^"
^DD(2264.061,.01,21,1,0)="This is the additional type of pay the employee was earning at the time they"
^DD(2264.061,.01,21,2,0)="stopped working as a result of the incident."
^DD(2264.061,.01,"DT")="3040422"
^DD(2264.061,1,0)="ADD PAY AMT WHEN WORK STOPPED^NJ11,2^^0;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(2264.061,1,3)="Type a Number between 0 and 99999999, 2 Decimal Digits"
^DD(2264.061,1,21,0)="^.001^2^2^3040427^^"
^DD(2264.061,1,21,1,0)="This is the additional type of pay the employee was earning at the time they"
^DD(2264.061,1,21,2,0)="stopped working as a result of the incident."
^DD(2264.061,1,"DT")="3040427"
^DD(2264.061,2,0)="ADD PAY RATE WHEN WORK STOPPED^S^H:Hourly;A:Annum;^0;3^Q"
^DD(2264.061,2,3)="Enter the additional pay rate for the employee when they stopped working."
^DD(2264.061,2,21,0)="^.001^2^2^3040427^^"
^DD(2264.061,2,21,1,0)="This is the additional pay rate that the employee was earning at the time"
^DD(2264.061,2,21,2,0)="work stopped as a result of the incident."
^DD(2264.061,2,"DT")="3040427"
^DD(2264.061,"B","ADD PAY AMT WHEN WORK STOPPED",1)=""
^DD(2264.061,"B","ADD PAY RATE WHEN WORK STOPPED",2)=""
^DD(2264.061,"B","ADD PAY WHEN WORK STOPPED",.01)=""
^DD(2264.061,"GL",0,1,.01)=""
^DD(2264.061,"GL",0,2,1)=""
^DD(2264.061,"GL",0,3,2)=""
^DD(2264.061,"IX",.01)=""
^DD(2264.066,0)="IRREGULAR WORK SCHEDULE SUB-FIELD^^9^10"
^DD(2264.066,0,"DT")="3040427"
^DD(2264.066,0,"IX","B",2264.066,.01)=""
^DD(2264.066,0,"NM","IRREGULAR WORK SCHEDULE")=""
^DD(2264.066,0,"UP")="2264"
^DD(2264.066,.01,0)="IRREGULAR WORK SCHEDULE WEEK^MNJ1,0^^0;1^K:+X'=X!(X>2)!(X<1)!(X?.E1"".""1N.N) X"
^DD(2264.066,.01,1,0)="^.1"
^DD(2264.066,.01,1,1,0)="2264.066^B"
^DD(2264.066,.01,1,1,1)="S ^OOPS(2264,DA(1),""CA7S9A"",""B"",$E(X,1,30),DA)="""""
^DD(2264.066,.01,1,1,2)="K ^OOPS(2264,DA(1),""CA7S9A"",""B"",$E(X,1,30),DA)"
^DD(2264.066,.01,3)="Type a Number between 1 and 2, 0 Decimal Digits"
^DD(2264.066,.01,21,0)="^.001^1^1^3040427^^^^"
^DD(2264.066,.01,21,1,0)="This field will indicate the week (1 or 2) of data that is being entered."
^DD(2264.066,.01,"DT")="3040427"
^DD(2264.066,1,0)="IRR WK SCH START DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264.066,1,3)="Enter the first date of the weekly schedule."
^DD(2264.066,1,21,0)="^^1^1^3040427^"
^DD(2264.066,1,21,1,0)="This is the date for the first day of the weekly schedule."
^DD(2264.066,1,"DT")="3040427"
^DD(2264.066,2,0)="IRR WK SCH LAST DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264.066,2,3)="Enter the last date of the employees weekly work schedule."
^DD(2264.066,2,21,0)="^^1^1^3040427^"
^DD(2264.066,2,21,1,0)="This field contains the last date of the employees weekly work schedule."
^DD(2264.066,2,"DT")="3040427"
^DD(2264.066,3,0)="SUNDAY HOURS^NJ2,0^^0;4^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.066,3,3)="Type a Number between 0 and 24, 0 Decimal Digits"
^DD(2264.066,3,21,0)="^^1^1^3040427^"
^DD(2264.066,3,21,1,0)="This field contains the hours the employee was scheduled to work that day."
^DD(2264.066,3,"DT")="3040427"
^DD(2264.066,4,0)="MONDAY HOURS^NJ2,0^^0;5^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.066,4,3)="Type a Number between 0 and 24, 0 Decimal Digits"
^DD(2264.066,4,21,0)="^^1^1^3040427^"
^DD(2264.066,4,21,1,0)="This field contains the hours the employee was scheduled to work that day."
^DD(2264.066,4,"DT")="3040427"
^DD(2264.066,5,0)="TUESDAY HOURS^NJ2,0^^0;6^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.066,5,3)="Type a Number between 0 and 24, 0 Decimal Digits"
^DD(2264.066,5,21,0)="^^1^1^3040427^"
^DD(2264.066,5,21,1,0)="This field contains the hours the employee was scheduled to work that day."
^DD(2264.066,5,"DT")="3040427"
^DD(2264.066,6,0)="WEDNESDAY HOURS^NJ2,0^^0;7^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.066,6,3)="Type a Number between 0 and 24, 0 Decimal Digits"
^DD(2264.066,6,21,0)="^^1^1^3040427^"
^DD(2264.066,6,21,1,0)="This field contains the hours the employee was scheduled to work that day."
^DD(2264.066,6,"DT")="3040427"
^DD(2264.066,7,0)="THURSDAY HOURS^NJ2,0^^0;8^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.066,7,3)="Type a Number between 0 and 24, 0 Decimal Digits"
^DD(2264.066,7,21,0)="^^1^1^3040427^"
^DD(2264.066,7,21,1,0)="This field contains the hours the employee was scheduled to work that day."
^DD(2264.066,7,"DT")="3040427"
^DD(2264.066,8,0)="FRIDAY HOURS^NJ2,0^^0;9^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.066,8,3)="Type a Number between 0 and 24, 0 Decimal Digits"
^DD(2264.066,8,21,0)="^^1^1^3040427^"
^DD(2264.066,8,21,1,0)="This field contains the hours the employee was scheduled to work that day."
^DD(2264.066,8,"DT")="3040427"
^DD(2264.066,9,0)="SATURDAY^NJ2,0^^0;10^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(2264.066,9,3)="Type a Number between 0 and 24, 0 Decimal Digits"
^DD(2264.066,9,21,0)="^^1^1^3040427^"
^DD(2264.066,9,21,1,0)="This field contains the hours the employee was scheduled to work that day."
^DD(2264.066,9,"DT")="3040427"
^DD(2264.066,"B","FRIDAY HOURS",8)=""
^DD(2264.066,"B","IRR WK SCH LAST DATE",2)=""
^DD(2264.066,"B","IRR WK SCH START DATE",1)=""
^DD(2264.066,"B","IRREGULAR WORK SCHEDULE WEEK",.01)=""
^DD(2264.066,"B","MONDAY HOURS",4)=""
^DD(2264.066,"B","SATURDAY",9)=""
^DD(2264.066,"B","SUNDAY HOURS",3)=""
^DD(2264.066,"B","THURSDAY HOURS",7)=""
^DD(2264.066,"B","TUESDAY HOURS",5)=""
^DD(2264.066,"B","WEDNESDAY HOURS",6)=""
^DD(2264.066,"GL",0,1,.01)=""
^DD(2264.066,"GL",0,2,1)=""
^DD(2264.066,"GL",0,3,2)=""
^DD(2264.066,"GL",0,4,3)=""
^DD(2264.066,"GL",0,5,4)=""
^DD(2264.066,"GL",0,6,5)=""
^DD(2264.066,"GL",0,7,6)=""
^DD(2264.066,"GL",0,8,7)=""
^DD(2264.066,"GL",0,9,8)=""
^DD(2264.066,"GL",0,10,9)=""
^DD(2264.066,"IX",.01)=""
^DD(2264.077,0)="PAY STATUS DURING CLAIM SUB-FIELD^^3^4"
^DD(2264.077,0,"DT")="3040427"
^DD(2264.077,0,"IX","B",2264.077,.01)=""
^DD(2264.077,0,"NM","PAY STATUS DURING CLAIM")=""
^DD(2264.077,0,"UP")="2264"
^DD(2264.077,.01,0)="PAY STATUS DURING CLAIM^S^S:Sick Leave;A:Annual Leave;L:Leave without Pay;W:Work;^0;1^Q"
^DD(2264.077,.01,1,0)="^.1"
^DD(2264.077,.01,1,1,0)="2264.077^B"
^DD(2264.077,.01,1,1,1)="S ^OOPS(2264,DA(1),""CA7S12"",""B"",$E(X,1,30),DA)="""""
^DD(2264.077,.01,1,1,2)="K ^OOPS(2264,DA(1),""CA7S12"",""B"",$E(X,1,30),DA)"
^DD(2264.077,.01,3)="Enter the pay status requested during this CA7 claim."
^DD(2264.077,.01,21,0)="^^2^2^3040422^"
^DD(2264.077,.01,21,1,0)="This field contains a pay status for the employee for leave requested during"
^DD(2264.077,.01,21,2,0)="this CA-7 claim."
^DD(2264.077,.01,"DT")="3040422"
^DD(2264.077,1,0)="PAY STATUS START DATE^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264.077,1,3)="Enter the first date this pay status was requested."
^DD(2264.077,1,21,0)="^^2^2^3040427^"
^DD(2264.077,1,21,1,0)="This field contains the first date the pay status was requested by the"
^DD(2264.077,1,21,2,0)="employee for this CA-7 claim."
^DD(2264.077,1,"DT")="3040427"
^DD(2264.077,2,0)="PAY STATUS END DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(2264.077,2,3)="Enter the last date for the requested pay status for this claim."
^DD(2264.077,2,21,0)="^.001^2^2^3040427^^"
^DD(2264.077,2,21,1,0)="his field contains the last date the pay status was requested by the"
^DD(2264.077,2,21,2,0)="employee for this CA-7 claim."
^DD(2264.077,2,"DT")="3040427"
^DD(2264.077,3,0)="PAY STATUS LEAVE INTERMITTENT^S^Y:Yes;N:No;^0;4^Q"
^DD(2264.077,3,3)="Enter Y if the time period for this pay status was not continuous, otherwise enter N."
^DD(2264.077,3,21,0)="^^2^2^3040427^"
^DD(2264.077,3,21,1,0)="This field indicates whether the time period requested for this pay status "
^DD(2264.077,3,21,2,0)="was continuous or intermittent."
^DD(2264.077,3,"DT")="3040427"
^DD(2264.077,"B","PAY STATUS DURING CLAIM",.01)=""
^DD(2264.077,"B","PAY STATUS END DATE",2)=""
^DD(2264.077,"B","PAY STATUS LEAVE INTERMITTENT",3)=""
^DD(2264.077,"B","PAY STATUS START DATE",1)=""
^DD(2264.077,"GL",0,1,.01)=""
^DD(2264.077,"GL",0,2,1)=""
^DD(2264.077,"GL",0,3,2)=""
^DD(2264.077,"GL",0,4,3)=""
^DD(2264.077,"IX",.01)=""
^DD(2275.3,0)="FIELD^^1^6"
^DD(2275.3,0,"DDA")="N"
^DD(2275.3,0,"DT")="3050113"
^DD(2275.3,0,"IX","B",2275.3,.01)=""
^DD(2275.3,0,"IX","C",2275.3,.02)=""
^DD(2275.3,0,"IX","D",2275.31,.01)=""
^DD(2275.3,0,"NM","MHV REQUEST TYPE")=""
^DD(2275.3,0,"VR")="1.0"
^DD(2275.3,0,"VRPK")="My HealtheVet"
^DD(2275.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(2275.3,.01,1,0)="^.1"
^DD(2275.3,.01,1,1,0)="2275.3^B"
^DD(2275.3,.01,1,1,1)="S ^MHV(2275.3,""B"",$E(X,1,30),DA)="""""
^DD(2275.3,.01,1,1,2)="K ^MHV(2275.3,""B"",$E(X,1,30),DA)"
^DD(2275.3,.01,3)="Answer must be 3-30 characters in length"
^DD(2275.3,.01,"DT")="3030618"
^DD(2275.3,.02,0)="NUMBER^NJ9,0^^0;2^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1.N) X"
^DD(2275.3,.02,1,0)="^.1"
^DD(2275.3,.02,1,1,0)="2275.3^C"
^DD(2275.3,.02,1,1,1)="S ^MHV(2275.3,""C"",$E(X,1,30),DA)="""""
^DD(2275.3,.02,1,1,2)="K ^MHV(2275.3,""C"",$E(X,1,30),DA)"
^DD(2275.3,.02,1,1,"DT")="3030618"
^DD(2275.3,.02,3)="Type a number between 1 and 999999999, 0 Decimal Digits"
^DD(2275.3,.02,"DT")="3040309"
^DD(2275.3,.03,0)="BLOCKED?^S^1:YES;0:NO;^0;3^Q"
^DD(2275.3,.03,"DT")="3040227"
^DD(2275.3,.04,0)="REALTIME?^S^0:NOT ALLOWED;1:ALLOWED;^0;4^Q"
^DD(2275.3,.04,"DT")="3050113"
^DD(2275.3,.05,0)="EXECUTE ROUTINE^F^^0;5^K:$L(X)>17!($L(X)<2) X"
^DD(2275.3,.05,3)="Answer must be 2-17 characters in length"
^DD(2275.3,.05,"DT")="3050113"
^DD(2275.3,1,0)="MHV DATATYPE^2275.31^^1;0"
^DD(2275.3,"B","BLOCKED?",.03)=""
^DD(2275.3,"B","EXECUTE ROUTINE",.05)=""
^DD(2275.3,"B","MHV DATATYPE",1)=""
^DD(2275.3,"B","NAME",.01)=""
^DD(2275.3,"B","NUMBER",.02)=""
^DD(2275.3,"B","REALTIME?",.04)=""
^DD(2275.3,"GL",0,1,.01)=""
^DD(2275.3,"GL",0,2,.02)=""
^DD(2275.3,"GL",0,3,.03)=""
^DD(2275.3,"GL",0,4,.04)=""
^DD(2275.3,"GL",0,5,.05)=""
^DD(2275.3,"GL",1,0,1)=""
^DD(2275.3,"IX",.01)=""
^DD(2275.3,"IX",.02)=""
^DD(2275.3,"RQ",.01)=""
^DD(2275.3,"SB",2275.31,1)=""
^DD(2275.31,0)="MHV DATATYPE SUB-FIELD^^.01^1"
^DD(2275.31,0,"DT")="3040802"
^DD(2275.31,0,"IX","B",2275.31,.01)=""
^DD(2275.31,0,"NM","MHV DATATYPE")=""
^DD(2275.31,0,"UP")="2275.3"
^DD(2275.31,.01,0)="MHV DATATYPE^F^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(2275.31,.01,1,0)="^.1"
^DD(2275.31,.01,1,1,0)="2275.31^B"
^DD(2275.31,.01,1,1,1)="S ^MHV(2275.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(2275.31,.01,1,1,2)="K ^MHV(2275.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(2275.31,.01,1,2,0)="2275.3^D"
^DD(2275.31,.01,1,2,1)="S ^MHV(2275.3,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(2275.31,.01,1,2,2)="K ^MHV(2275.3,""D"",$E(X,1,30),DA(1),DA)"
^DD(2275.31,.01,1,2,"DT")="3040309"
^DD(2275.31,.01,3)="Answer must be 1-60 characters in length"
^DD(2275.31,.01,"DT")="3040802"
^DD(2275.31,"B","MHV DATATYPE",.01)=""
^DD(2275.31,"GL",0,1,.01)=""
^DD(2275.31,"IX",.01)=""
^DD(6910,0)="FIELD^NL^101^19"
^DD(6910,0,"DDA")="N"
^DD(6910,0,"DT")="2970203"
^DD(6910,0,"IX","B",6910,.01)=""
^DD(6910,0,"NM","ENG INIT PARAMETERS")=""
^DD(6910,0,"VR")="7.0"
^DD(6910,0,"VRPK")="EN"
^DD(6910,.01,0)="STATION NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(6910,.01,1,0)="^.1"
^DD(6910,.01,1,1,0)="6910^B"
^DD(6910,.01,1,1,1)="S ^DIC(6910,""B"",$E(X,1,30),DA)="""""
^DD(6910,.01,1,1,2)="K ^DIC(6910,""B"",$E(X,1,30),DA)"
^DD(6910,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(6910,.01,21,0)="^^2^2^2941221^^^"
^DD(6910,.01,21,1,0)="Facility name.  Should correspond to an entry in the DHCP Institution"
^DD(6910,.01,21,2,0)="File."
^DD(6910,.01,"DT")="2910813"
^DD(6910,1,0)="STATION NUMBER^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6910,1,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(6910,1,21,0)="^^1^1^2930419^"
^DD(6910,1,21,1,0)="Facility identifier, usually three digits."
^DD(6910,3,0)="PM HOURLY LABOR COST^NJ5,2^^0;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99)!(X<1) X"
^DD(6910,3,3)="Type a Dollar Amount between 1 and 99, 2 Decimal Digits"
^DD(6910,3,21,0)="^^5^5^2880217^^"
^DD(6910,3,21,1,0)="Default value. If a device has an entry for estimated PM hours AND an entry"
^DD(6910,3,21,2,0)="for responsible tech, the labor cost will be taken from the Engineering"
^DD(6910,3,21,3,0)="Employee File (No. 6929). If there is an entry for estimated hours but"
^DD(6910,3,21,4,0)="NO entry for responsible tech, then this hourly figure will be used to"
^DD(6910,3,21,5,0)="compute total labor cost."
^DD(6910,3,"DT")="2880217"
^DD(6910,4,0)="DELETE PM WORK ORDERS?^S^Y:YES;N:NO;^0;5^Q"
^DD(6910,4,21,0)="^^5^5^2880217^"
^DD(6910,4,21,1,0)="Setting this field to 'YES' will cause PM work orders to be deleted from"
^DD(6910,4,21,2,0)="the system at close out time. Deletion of PM work orders is strongly"
^DD(6910,4,21,3,0)="recommended for sites that are short on disk space. The PMI will be posted"
^DD(6910,4,21,4,0)="to the equipment history (File 6914) before the actual work order is"
^DD(6910,4,21,5,0)="deleted."
^DD(6910,4,"DT")="2880217"
^DD(6910,5,0)="TEMPORARY WORK ORDER SECTION^*P6922'^DIC(6922,^0;6^S DIC(""S"")=""I Y#100>89"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6910,5,12)="Only shops numbered in the 90's (incl. 190's, 290's, etc.) are to be used as receiving areas."
^DD(6910,5,12.1)="S DIC(""S"")=""I Y#100>89"""
^DD(6910,5,21,0)="^^17^17^2961112^"
^DD(6910,5,21,1,0)=" Intended for use at sites that allow direct entry of Engineering work"
^DD(6910,5,21,2,0)="orders by end-users. Since assignment of work requests to specific shops"
^DD(6910,5,21,3,0)="is an Engineering responsibility; 'electronic work orders' are initially"
^DD(6910,5,21,4,0)="directed to a 'fictitious shop' (or receiving area). Engineering should"
^DD(6910,5,21,5,0)="clean out a receiving area at least once a day. Electronic work orders"
^DD(6910,5,21,6,0)="may be transferred to working shops or disapproved."
^DD(6910,5,21,7,0)=" The system will keep a permanent record of the number originally assigned"
^DD(6910,5,21,8,0)="to each work order. This number may always be used to look up the request,"
^DD(6910,5,21,9,0)="no matter how many times it's transferred. Initial requesters may edit "
^DD(6910,5,21,10,0)="their requests; but not after Engineering has transferred them."
^DD(6910,5,21,11,0)=" 'Fictitious' shops should have numbers in the range of 90 to 99, 190 to"
^DD(6910,5,21,12,0)="199, 290 to 299, 390 to 399, 490 to 499, 590 to 599, 690 to 699, 790 to"
^DD(6910,5,21,13,0)="799, 890 to 899, and 990 to 999 inclusive. Multi-division sites may have"
^DD(6910,5,21,14,0)="more than one receiving area. If there is more than one receiving area AND"
^DD(6910,5,21,15,0)="if this field (TEMPORARY WORK ORDER SECTION) is left blank; end-users will"
^DD(6910,5,21,16,0)="be asked to specify the appropriate receiving area when they enter a work"
^DD(6910,5,21,17,0)="order."
^DD(6910,5,"DT")="2961112"
^DD(6910,5.1,0)="INCOMING INSPECTION SECTION^P6922'^DIC(6922,^0;13^Q"
^DD(6910,5.1,3)="Enter shop (if any) that should receive all incoming inspection W.O.s"
^DD(6910,5.1,21,0)="^^12^12^2961119^"
^DD(6910,5.1,21,1,0)="Engineering section that receives all incoming inspection work orders."
^DD(6910,5.1,21,2,0)=" "
^DD(6910,5.1,21,3,0)="This optional field is intended for use at sites that allow incoming"
^DD(6910,5.1,21,4,0)="inspection work orders to be generated during new equipment entry. The"
^DD(6910,5.1,21,5,0)="shop for these work orders will default to the shop specified here. If"
^DD(6910,5.1,21,6,0)="this field is left blank, the default work order shop will be the"
^DD(6910,5.1,21,7,0)="RESPONSIBLE SHOP for the equipment (if available) or a Receiving Area shop"
^DD(6910,5.1,21,8,0)="(similar to electronic work orders). Note that users who hold the ENPM"
^DD(6910,5.1,21,9,0)="security key can select any shop for these work orders."
^DD(6910,5.1,21,10,0)=" "
^DD(6910,5.1,21,11,0)="See the Software Option 'ASK INCOMING INSPECTION W.O.' for additional"
^DD(6910,5.1,21,12,0)="information."
^DD(6910,5.1,"DT")="2961119"
^DD(6910,6,0)="REGION^NJ1,0^^0;7^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6910,6,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(6910,6,21,0)="^^3^3^2930419^^^^"
^DD(6910,6,21,1,0)="The VA Region (1 thru 4) in which facility is located. Used in electronic"
^DD(6910,6,21,2,0)="transmission of Five Year Facility Plans, Project Applications"
^DD(6910,6,21,3,0)="(Form 1193), and Construction Project Progress Reports (Form 10-0051)."
^DD(6910,6,"DT")="2910628"
^DD(6910,7,0)="EQPT CAT ON BAR CODE LABEL?^S^1:YES;0:NO;^0;8^Q"
^DD(6910,7,21,0)="^^4^4^2910420^^"
^DD(6910,7,21,1,0)="Should be set to 'YES' if you want to print the EQUIPMENT CATEGORY"
^DD(6910,7,21,2,0)="at the top of your bar coded EQUIPMENT LABELs (instead of the words"
^DD(6910,7,21,3,0)="'EQUIPMENT LABEL'.  Due to space limitations on label stock, only the"
^DD(6910,7,21,4,0)="first twenty (20) characters of the EQUIPMENT CATEGORY will be printable."
^DD(6910,7,"DT")="2910420"
^DD(6910,8,0)="EQPT LABEL PRINT FIELD^6910.08^^1;0"
^DD(6910,8,21,0)="^^8^8^2910513^^^^"
^DD(6910,8,21,1,0)="Enter the FIELD NUMBER (from the Equipment File) of a field that you"
^DD(6910,8,21,2,0)="want to have printed (in human readable format) on your bar coded EQUIPMENT"
^DD(6910,8,21,3,0)="LABEL's.  Please do not enter more than two (2) such fields.  If more than"
^DD(6910,8,21,4,0)="two fields are specified, the system will accept the first two and ignore"
^DD(6910,8,21,5,0)="all others."
^DD(6910,8,21,6,0)=" "
^DD(6910,8,21,7,0)="MULTIPLE fields, WORD PROCESSING fields, and COMPUTED fields should not"
^DD(6910,8,21,8,0)="be selected for inclusion on bar coded EQUIPMENT LABEL's."
^DD(6910,9,0)="COMP LIST PRINT FIELD^6910.09^^2;0"
^DD(6910,9,21,0)="^^2^2^2930429^"
^DD(6910,9,21,1,0)="The field number (from the Equipment File) of a field or fields"
^DD(6910,9,21,2,0)="(no more than two) that you want to see on your Companion Lists."
^DD(6910,10,0)="SPACE FUNCT ON LOCATION LABEL?^S^0:NO;1:YES;^0;9^Q"
^DD(6910,10,21,0)="^^3^3^2930514^^"
^DD(6910,10,21,1,0)="If set to 'YES' and if a SPACE FUNCTION exists for the subject"
^DD(6910,10,21,2,0)="location, then the first 20 characters of the SPACE FUNCTION"
^DD(6910,10,21,3,0)="will be printed at the top of your bar coded LOCATION LABELS."
^DD(6910,10,"DT")="2930322"
^DD(6910,11,0)="MULTI-DIVISION (Y/N)^S^1:YES;0:NO;^0;10^Q"
^DD(6910,11,21,0)="^^3^3^2930514^"
^DD(6910,11,21,1,0)="An indicator of whether a site is single or multi-divisional."
^DD(6910,11,21,2,0)="Used primarily to determine whether or not users should be"
^DD(6910,11,21,3,0)="prompted for DIVISION when sorting selected reports."
^DD(6910,11,"DT")="2930512"
^DD(6910,12,0)="ALTERNATE STATION NUMBER^6910.012^^3;0"
^DD(6910,13,0)="VISN^NJ2,0^^0;11^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6910,13,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(6910,13,21,0)="^^1^1^2950510^"
^DD(6910,13,21,1,0)="Enter the VISN to which this facility belongs."
^DD(6910,13,"DT")="2950510"
^DD(6910,14,0)="NETWORK^F^^0;12^K:$L(X)>35!($L(X)<3) X"
^DD(6910,14,3)="Answer must be 3-35 characters in length."
^DD(6910,14,21,0)="^^1^1^2950510^"
^DD(6910,14,21,1,0)="Enter the name of the network for this facility."
^DD(6910,14,"DT")="2950510"
^DD(6910,20,0)="EQUIPMENT TURN-IN SECTION^P6922^DIC(6922,^20;1^Q"
^DD(6910,20,21,0)="^^4^4^2950629^"
^DD(6910,20,21,1,0)="The Engineering Shop to which requests for assistance in de-installing"
^DD(6910,20,21,2,0)="a piece of equipment are to be automatically directed. This may be a"
^DD(6910,20,21,3,0)="fictitious shop (or holding area), much like the TEMPORARY WORK ORDER"
^DD(6910,20,21,4,0)="SECTION used for initial receipt of electronic work orders."
^DD(6910,20,"DT")="2950629"
^DD(6910,50,0)="WORK ORDER MESSAGE TEXT^6910.01^^5;0"
^DD(6910,50,"DT")="2970203"
^DD(6910,100,0)="PROJECT PLANNING ROLLUP DOMAIN^P4.2'^DIC(4.2,^9;1^Q"
^DD(6910,100,3)="Enter domain where project planning data should be transmitted."
^DD(6910,100,21,0)="^^5^5^2940526^"
^DD(6910,100,21,1,0)="This field identifies the domain where the project planning module"
^DD(6910,100,21,2,0)="electronic transmissions should be sent. The 5-Yr Plan and Project"
^DD(6910,100,21,3,0)="Applications can be transmitted from the Project Planning module."
^DD(6910,100,21,4,0)="This field does not have any effect on the destination of Progress"
^DD(6910,100,21,5,0)="Report (10-0051) transmissions."
^DD(6910,100,"DT")="2940408"
^DD(6910,101,0)="PROJECT TRACKING ROLLUP DOMAIN^P4.2'^DIC(4.2,^9;2^Q"
^DD(6910,101,3)=" Enter domain where project tracking data should be transmitted."
^DD(6910,101,21,0)="^^5^5^2970428^"
^DD(6910,101,21,1,0)="This field identifies the domain where the project tracking module"
^DD(6910,101,21,2,0)="electronic transmissions should be sent. Construction Project Progress"
^DD(6910,101,21,3,0)="reports (0051) can be transmitted from this module. This field does not"
^DD(6910,101,21,4,0)="have any effect on the destination of project planning (Five Year Plan"
^DD(6910,101,21,5,0)="Project or Project Application) transmissions."
^DD(6910,101,"DT")="2970428"
^DD(6910,"B","ALTERNATE STATION NUMBER",12)=""
^DD(6910,"B","COMP LIST PRINT FIELD",9)=""
^DD(6910,"B","DELETE PM WORK ORDERS?",4)=""
^DD(6910,"B","EQPT CAT ON BAR CODE LABEL?",7)=""
^DD(6910,"B","EQPT LABEL PRINT FIELD",8)=""
^DD(6910,"B","EQUIPMENT TURN-IN SECTION",20)=""
^DD(6910,"B","INCOMING INSPECTION SECTION",5.1)=""
^DD(6910,"B","MULTI-DIVISION (Y/N)",11)=""
^DD(6910,"B","NETWORK",14)=""
^DD(6910,"B","PM HOURLY LABOR COST",3)=""
^DD(6910,"B","PROJECT PLANNING ROLLUP DOMAIN",100)=""
^DD(6910,"B","PROJECT TRACKING ROLLUP DOMAIN",101)=""
^DD(6910,"B","REGION",6)=""
^DD(6910,"B","SPACE FUNCT ON LOCATION LABEL?",10)=""
^DD(6910,"B","STATION NAME",.01)=""
^DD(6910,"B","STATION NUMBER",1)=""
^DD(6910,"B","TEMPORARY WORK ORDER SECTION",5)=""
^DD(6910,"B","VISN",13)=""
^DD(6910,"B","WORK ORDER MESSAGE TEXT",50)=""
^DD(6910,"GL",0,1,.01)=""
^DD(6910,"GL",0,2,1)=""
^DD(6910,"GL",0,4,3)=""
^DD(6910,"GL",0,5,4)=""
^DD(6910,"GL",0,6,5)=""
^DD(6910,"GL",0,7,6)=""
^DD(6910,"GL",0,8,7)=""
^DD(6910,"GL",0,9,10)=""
^DD(6910,"GL",0,10,11)=""
^DD(6910,"GL",0,11,13)=""
^DD(6910,"GL",0,12,14)=""
^DD(6910,"GL",0,13,5.1)=""
^DD(6910,"GL",1,0,8)=""
^DD(6910,"GL",2,0,9)=""
^DD(6910,"GL",3,0,12)=""
^DD(6910,"GL",5,0,50)=""
^DD(6910,"GL",9,1,100)=""
^DD(6910,"GL",9,2,101)=""
^DD(6910,"GL",20,1,20)=""
^DD(6910,"IX",.01)=""
^DD(6910,"RQ",.01)=""
^DD(6910,"SB",6910.01,50)=""
^DD(6910,"SB",6910.012,12)=""
^DD(6910,"SB",6910.08,8)=""
^DD(6910,"SB",6910.09,9)=""
^DD(6910.01,0)="WORK ORDER MESSAGE TEXT SUB-FIELD^^.01^1"
^DD(6910.01,0,"DT")="2970203"
^DD(6910.01,0,"NM","WORK ORDER MESSAGE TEXT")=""
^DD(6910.01,0,"UP")="6910"
^DD(6910.01,.01,0)="WORK ORDER MESSAGE TEXT^WL^^0;1^Q"
^DD(6910.01,.01,3)="Enter text that should appear at bottom of work order messages."
^DD(6910.01,.01,21,0)="^^3^3^2970203^"
^DD(6910.01,.01,21,1,0)="If text is entered in this optional field, it will be appended to the"
^DD(6910.01,.01,21,2,0)="bottom of work order notification messages. See the 'NOTIFY WORK ORDER"
^DD(6910.01,.01,21,3,0)="REQUESTER' software option for more infomation."
^DD(6910.01,.01,"DT")="2970203"
^DD(6910.01,"B","WORK ORDER MESSAGE TEXT",.01)=""
^DD(6910.01,"GL",0,1,.01)=""
^DD(6910.012,0)="ALTERNATE STATION NUMBER SUB-FIELD^^.01^1"
^DD(6910.012,0,"DT")="2950131"
^DD(6910.012,0,"IX","B",6910.012,.01)=""
^DD(6910.012,0,"NM","ALTERNATE STATION NUMBER")=""
^DD(6910.012,0,"UP")="6910"
^DD(6910.012,.01,0)="ALTERNATE STATION NUMBER^MFX^^0;1^K:$L(X)>5!($L(X)<3) X D:$D(X) ASN^ENLIB2"
^DD(6910.012,.01,1,0)="^.1"
^DD(6910.012,.01,1,1,0)="6910.012^B"
^DD(6910.012,.01,1,1,1)="S ^DIC(6910,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(6910.012,.01,1,1,2)="K ^DIC(6910,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(6910.012,.01,3)="Answer must be 3-5 characters in length."
^DD(6910.012,.01,21,0)="^^17^17^3010110^"
^DD(6910.012,.01,21,1,0)="Intended for sites that must cope with more than one STATION NUMBER,"
^DD(6910.012,.01,21,2,0)="perhaps as a result of consolidation or transition from one type of"
^DD(6910.012,.01,21,3,0)="facility to another.  Entry of the old STATION NUMBER as an ALTERNATE"
^DD(6910.012,.01,21,4,0)="STATION NUMBER will enable the Equipment Inventory and Preventive"
^DD(6910.012,.01,21,5,0)="Maintenance software to recognize bar coded equipment labels that bear"
^DD(6910.012,.01,21,6,0)="the old station number."
^DD(6910.012,.01,21,7,0)=" "
^DD(6910.012,.01,21,8,0)="This field should also be populated at sites that support other VA"
^DD(6910.012,.01,21,9,0)="facilities (cemeteries, regional offices ,etc.), especially if they choose"
^DD(6910.012,.01,21,10,0)="to populate the OWNING STATION field in their Equipment File."
^DD(6910.012,.01,21,11,0)=" "
^DD(6910.012,.01,21,12,0)="Sites are limited to a maximum of thirty (30) ALTERNATE STATION NUMBERS."
^DD(6910.012,.01,21,13,0)="Only the first eight (8) entries will be accessible to the portable bar"
^DD(6910.012,.01,21,14,0)="code readers, so consolidation sites should enter their satelites old"
^DD(6910.012,.01,21,15,0)="STATION NUMBER ahead of other facilities that they service. This field"
^DD(6910.012,.01,21,16,0)="will not be pointed to by any other field in the Engineering Package, so"
^DD(6910.012,.01,21,17,0)="sites can re-order the entries at any time."
^DD(6910.012,.01,"DT")="2950917"
^DD(6910.012,"B","ALTERNATE STATION NUMBER",.01)=""
^DD(6910.012,"GL",0,1,.01)=""
^DD(6910.012,"IX",.01)=""
^DD(6910.08,0)="EQPT LABEL PRINT FIELD SUB-FIELD^^1^2"
^DD(6910.08,0,"NM","EQPT LABEL PRINT FIELD")=""
^DD(6910.08,0,"UP")="6910"
^DD(6910.08,.01,0)="EQPT LABEL PRINT FIELD^MNJ15,4X^^0;1^K:$$GET1^DID(6914,X,"""",""LABEL"")="""" X I $D(X) K:$$GET1^DID(6914,X,"""",""MULTIPLE-VALUED"") X"
^DD(6910.08,.01,3)="Enter a field number from the Equipment File, not  MULTIPLE."
^DD(6910.08,.01,21,0)="^^8^8^2970811^"
^DD(6910.08,.01,21,1,0)="Enter the FIELD NUMBER (from the Equipment File) of a field that"
^DD(6910.08,.01,21,2,0)="you want to have printed (in human readable format) on your bar"
^DD(6910.08,.01,21,3,0)="coded EQUIPMENT LABEL's.  Please do not enter more than two (2)"
^DD(6910.08,.01,21,4,0)="such fields.  If more than two fields are specified, the system"
^DD(6910.08,.01,21,5,0)="will accept the first two and ignore all others."
^DD(6910.08,.01,21,6,0)=" "
^DD(6910.08,.01,21,7,0)="MULTIPLE fields and WORD PROCESSING fields fields should"
^DD(6910.08,.01,21,8,0)="not be selected for inclusion on bar coded EQUIPMENT LABEL's."
^DD(6910.08,.01,"DT")="2970811"
^DD(6910.08,1,0)="LABEL^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(6910.08,1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(6910.08,1,21,0)="^^4^4^2910513^^"
^DD(6910.08,1,21,1,0)="This character string will be printed on bar coded EQUIPMENT LABEL's"
^DD(6910.08,1,21,2,0)="immediately before the print field itself.  It is intended to serve"
^DD(6910.08,1,21,3,0)="as an identifier.  Please keep it as brief as possible, because label"
^DD(6910.08,1,21,4,0)="space is always at a premium."
^DD(6910.08,1,"DT")="2910404"
^DD(6910.08,"B","EQPT LABEL PRINT FIELD",.01)=""
^DD(6910.08,"B","LABEL",1)=""
^DD(6910.08,"GL",0,1,.01)=""
^DD(6910.08,"GL",0,2,1)=""
^DD(6910.09,0)="COMP LIST PRINT FIELD SUB-FIELD^^1^2"
^DD(6910.09,0,"NM","COMP LIST PRINT FIELD")=""
^DD(6910.09,0,"UP")="6910"
^DD(6910.09,.01,0)="COMP LIST PRINT FIELD^MNJ15,4X^^0;1^K:$$GET1^DID(6914,X,"""",""LABEL"")="""" X I $D(X) K:$$GET1^DID(6914,X,"""",""MULTIPLE-VALUED"") X"
^DD(6910.09,.01,3)="Enter a field number from the Equipment File, not MULTIPLE."
^DD(6910.09,.01,21,0)="^^10^10^2970811^"
^DD(6910.09,.01,21,1,0)="Enter the FIELD NUMBER (from the Equipment File) of a field that"
^DD(6910.09,.01,21,2,0)="you want to have printed on the 'Companion Listings' that are"
^DD(6910.09,.01,21,3,0)="produced along with bar coded EQUIPMENT LABEL's.  Please do not"
^DD(6910.09,.01,21,4,0)="enter more than two such fields."
^DD(6910.09,.01,21,5,0)=" "
^DD(6910.09,.01,21,6,0)="Fields selected for inclusion (in human readable format) on bar"
^DD(6910.09,.01,21,7,0)="code labels are NOT automatically printed on Companion Listings."
^DD(6910.09,.01,21,8,0)=" "
^DD(6910.09,.01,21,9,0)="MULTIPLE fields and WORD PROCESSING fields cannot be printed on Companion"
^DD(6910.09,.01,21,10,0)="Lists."
^DD(6910.09,.01,"DT")="2970811"
^DD(6910.09,1,0)="LABEL^F^^0;2^K:$L(X)>20!($L(X)<1) X"
^DD(6910.09,1,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(6910.09,1,21,0)="^^2^2^2910513^"
^DD(6910.09,1,21,1,0)="The character string specified will appear on the Companion Listing,"
^DD(6910.09,1,21,2,0)="followed immediately by the data element that it describes."
^DD(6910.09,1,"DT")="2910513"
^DD(6910.09,"B","COMP LIST PRINT FIELD",.01)=""
^DD(6910.09,"B","LABEL",1)=""
^DD(6910.09,"GL",0,1,.01)=""
^DD(6910.09,"GL",0,2,1)=""
^DD(6910.1,0)="FIELD^NL^7^8"
^DD(6910.1,0,"DDA")="N"
^DD(6910.1,0,"DT")="2971014"
^DD(6910.1,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(6910.1,0,"IX","AC",6910.1,.01)=""
^DD(6910.1,0,"IX","B",6910.1,.01)=""
^DD(6910.1,0,"NM","ENGINEERING COMPUTER PORT")=""
^DD(6910.1,0,"VR")="7.0"
^DD(6910.1,0,"VRPK")="EN"
^DD(6910.1,.01,0)="DEVICE #^RP3.5'^%ZIS(1,^0;1^Q"
^DD(6910.1,.01,1,0)="^.1"
^DD(6910.1,.01,1,1,0)="6910.1^B"
^DD(6910.1,.01,1,1,1)="S ^DIC(6910.1,""B"",$E(X,1,30),DA)="""""
^DD(6910.1,.01,1,1,2)="K ^DIC(6910.1,""B"",$E(X,1,30),DA)"
^DD(6910.1,.01,1,2,0)="6910.1^AC^MUMPS"
^DD(6910.1,.01,1,2,1)="S Z=$P(^DIC(6910.1,DA,0),U),Z1=$S($D(^%ZIS(1,Z,1)):$P(^(1),U,4),1:"""") S $P(^DIC(6910.1,DA,0),U,2)=$S($E(^%ZOSF(""OS""),1,3)=""DSM"":$P(^%ZIS(1,Z,0),U,2),1:$S(Z1]"""":Z1,1:$P(^%ZIS(1,Z,0),U))) K Z,Z1"
^DD(6910.1,.01,1,2,2)="Q"
^DD(6910.1,.01,3)=""
^DD(6910.1,.01,21,0)="^^2^2^2930429^"
^DD(6910.1,.01,21,1,0)="Pointer to DEVICE file.  Entries should be made for output devices"
^DD(6910.1,.01,21,2,0)="(printers) only."
^DD(6910.1,.01,"DT")="2910127"
^DD(6910.1,1,0)="DEVICE # TRIGGERED^RFX^^0;2^K:$L(X)>20!($L(X)<1)!(X'?.ANP) X"
^DD(6910.1,1,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(6910.1,1,21,0)="^^1^1^2930429^"
^DD(6910.1,1,21,1,0)="Text that would be recognizable by routine ^%ZIS."
^DD(6910.1,1,"DT")="2890717"
^DD(6910.1,2,0)="DEVICE DESCRIPTION^RFX^^0;3^K:$L(X)>15!($L(X)<1)!(X'?.ANP) X"
^DD(6910.1,2,.1)=""
^DD(6910.1,2,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(6910.1,2,21,0)="^^1^1^2930429^"
^DD(6910.1,2,21,1,0)="Brief text that would enable a user to recognize this device."
^DD(6910.1,2,"DT")="2930429"
^DD(6910.1,3,0)="BAR CODE EQUIPMENT FORMAT^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(6910.1,3,3)="This is Standard MUMPS code, not to exceed 245 characters."
^DD(6910.1,3,9)="@"
^DD(6910.1,3,21,0)="^^22^22^2971013^"
^DD(6910.1,3,21,1,0)="There should be an entry for this field if and only if this device is"
^DD(6910.1,3,21,2,0)="used to print bar coded equipment labels using a customized format."
^DD(6910.1,3,21,3,0)="Entries must contain no more then 245 characters of executable M code."
^DD(6910.1,3,21,4,0)=" "
^DD(6910.1,3,21,5,0)="If this device does not require formatting, just enter a 'Q' as the BAR"
^DD(6910.1,3,21,6,0)="CODE EQUIPMENT FORMAT field and no formatting instructions will be sent."
^DD(6910.1,3,21,7,0)=" "
^DD(6910.1,3,21,8,0)="If the device does require formatting (and most thermal transfer bar"
^DD(6910.1,3,21,9,0)="code printers do) and you wish to customize it, then you are advised"
^DD(6910.1,3,21,10,0)="to enter the name of a formatting program segment in the form "
^DD(6910.1,3,21,11,0)="'D EQFRMAT^ENZLBL' where program segment EQFRMAT^ENZLBL contains the M"
^DD(6910.1,3,21,12,0)="code that sends your formatting commands (for equipment labels) to the"
^DD(6910.1,3,21,13,0)="printer.  "
^DD(6910.1,3,21,14,0)=" "
^DD(6910.1,3,21,15,0)="If there is no entry in this field and the device is used to print"
^DD(6910.1,3,21,16,0)="bar coded equipment labels, then the standard formatting instructions"
^DD(6910.1,3,21,17,0)="will be issued automatically. These commands are found in program"
^DD(6910.1,3,21,18,0)="segment FORMAT1^ENLBL7 and were designed for the Intermec 8600 series"
^DD(6910.1,3,21,19,0)="of thermal transfer bar code printers. "
^DD(6910.1,3,21,20,0)=" "
^DD(6910.1,3,21,21,0)="At the time that the formatting program segment is called, this"
^DD(6910.1,3,21,22,0)="device will be open as the 'current device'.  "
^DD(6910.1,3,"DT")="2971013"
^DD(6910.1,4,0)="BAR CODE LOCATION FORMAT^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(6910.1,4,3)="This is Standard MUMPS code, no more than 245 char long."
^DD(6910.1,4,9)="@"
^DD(6910.1,4,21,0)="^^21^21^2971013^"
^DD(6910.1,4,21,1,0)="There should be an entry for this field if and only if this device is used"
^DD(6910.1,4,21,2,0)="to print bar coded location labels using a customized format. Entries must"
^DD(6910.1,4,21,3,0)="contain no more then 245 characters of executable M code. "
^DD(6910.1,4,21,4,0)=" "
^DD(6910.1,4,21,5,0)="If this device does not require formatting, just enter a 'Q' as the BAR"
^DD(6910.1,4,21,6,0)="CODE LOCATION FORMAT field and no formatting instructions will be sent."
^DD(6910.1,4,21,7,0)=" "
^DD(6910.1,4,21,8,0)="If the device does require formatting (and most thermal transfer bar code"
^DD(6910.1,4,21,9,0)="printers do) and you wish to customize it, then you are advised to enter"
^DD(6910.1,4,21,10,0)="the name of a formatting program segment in the form 'D LOCFRMAT^ENZLBL'"
^DD(6910.1,4,21,11,0)="where program segment LOCFRMAT^ENZLBL contains the M code that sends your"
^DD(6910.1,4,21,12,0)="formatting commands to this printer."
^DD(6910.1,4,21,13,0)=" "
^DD(6910.1,4,21,14,0)="If there is no entry in this field and the device is used to print bar"
^DD(6910.1,4,21,15,0)="coded location labels, then the standard formatting instructions will be"
^DD(6910.1,4,21,16,0)="issued automatically. These commands are found in program segment"
^DD(6910.1,4,21,17,0)="FORMAT1^ENLBL7 and were designed for the Intermec 8600 series of thermal"
^DD(6910.1,4,21,18,0)="transfer bar code printers."
^DD(6910.1,4,21,19,0)=" "
^DD(6910.1,4,21,20,0)="At the time that the formatting program segment is called, this device"
^DD(6910.1,4,21,21,0)="will be open as the 'current device'."
^DD(6910.1,4,"DT")="2971010"
^DD(6910.1,5,0)="BAR CODE EQUIPMENT DATA^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(6910.1,5,3)="This is Standard MUMPS code, not to exceed 245 characters."
^DD(6910.1,5,9)="@"
^DD(6910.1,5,21,0)="^^26^26^2971013^"
^DD(6910.1,5,21,1,0)="There should be an entry for this field if and only if this device is used"
^DD(6910.1,5,21,2,0)="to print bar coded equipment labels including a customized arrangement of"
^DD(6910.1,5,21,3,0)="fields from within the Equipment file (#6914). Entries must contain no"
^DD(6910.1,5,21,4,0)="more than 245 characters of executable M code."
^DD(6910.1,5,21,5,0)=" "
^DD(6910.1,5,21,6,0)="If there is no entry in this field and the device is used to print bar"
^DD(6910.1,5,21,7,0)="coded equipment labels, then the standard field layout will be used"
^DD(6910.1,5,21,8,0)="automatically. The standard field layout includes the equipment entry"
^DD(6910.1,5,21,9,0)="number and facility name in human readable format. Sites may use the"
^DD(6910.1,5,21,10,0)="Engineering Site Parameters Enter/Edit option [ENSITE] to have the name of"
^DD(6910.1,5,21,11,0)="the EQUIPMENT CATEGORY (if any) included at the top of the equipment"
^DD(6910.1,5,21,12,0)="label. This option also allows sites to print one or two equipment fields"
^DD(6910.1,5,21,13,0)="of their own choosing in human readable format instead of the facility"
^DD(6910.1,5,21,14,0)="name."
^DD(6910.1,5,21,15,0)=" "
^DD(6910.1,5,21,16,0)="Sites wishing to do more customization than that allowed by the"
^DD(6910.1,5,21,17,0)="Engineering Site Parameters Enter/Edit option are free to write their own"
^DD(6910.1,5,21,18,0)="print routines using M code and enter the appropriate calling point (in"
^DD(6910.1,5,21,19,0)="the form 'D EQDATA^ENZLBL') in this BAR CODE EQUIPMENT DATA field."
^DD(6910.1,5,21,20,0)=" "
^DD(6910.1,5,21,21,0)="       NOTE: If there is an entry for BAR CODE EQUIPMENT DATA then the "
^DD(6910.1,5,21,22,0)="             standard field layout will not be invoked.  "
^DD(6910.1,5,21,23,0)=" "
^DD(6910.1,5,21,24,0)="At the time that the user-defined print routine is called, this device"
^DD(6910.1,5,21,25,0)="will be open as the 'current device' and local variable DA will be set to"
^DD(6910.1,5,21,26,0)="the equipment entry number."
^DD(6910.1,5,"DT")="2971010"
^DD(6910.1,6,0)="BAR CODE LOCATION DATA^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(6910.1,6,3)="This is Standard MUMPS code, not to exceed 245 characters."
^DD(6910.1,6,9)="@"
^DD(6910.1,6,21,0)="^^25^25^2971013^"
^DD(6910.1,6,21,1,0)="There should be an entry for this field if and only if this device is used"
^DD(6910.1,6,21,2,0)="to print bar coded location labels using a customized arrangement of"
^DD(6910.1,6,21,3,0)="fields from within the Space file (#6928). Entries must contain no more"
^DD(6910.1,6,21,4,0)="than 30 characters of executable M code."
^DD(6910.1,6,21,5,0)=" "
^DD(6910.1,6,21,6,0)="If there is no entry in this field and the device is used to print bar"
^DD(6910.1,6,21,7,0)="coded location labels, then the standard field layout will be used"
^DD(6910.1,6,21,8,0)="automatically. The standard field layout includes the physical location"
^DD(6910.1,6,21,9,0)="(as ROOM-BUILDING-DIVISION) and facility name in human readable format."
^DD(6910.1,6,21,10,0)="Sites may use the Engineering Site Parameters Enter/Edit option [ENSITE] to"
^DD(6910.1,6,21,11,0)="have the name of the SPACE FUNCTION (if any) printed at the top of the"
^DD(6910.1,6,21,12,0)="location label."
^DD(6910.1,6,21,13,0)=" "
^DD(6910.1,6,21,14,0)="Sites wishing to do more customization than what the Engineering Site"
^DD(6910.1,6,21,15,0)="Parameters option allows are free to write their own print routines using M"
^DD(6910.1,6,21,16,0)="code and enter the appropriate entry point (in the form 'D LOCDATA^ENZLBL')"
^DD(6910.1,6,21,17,0)="in this BAR CODE LOCATION DATA field."
^DD(6910.1,6,21,18,0)=" "
^DD(6910.1,6,21,19,0)="       NOTE: If there is an entry for the BAR CODE LOCATION DATA field "
^DD(6910.1,6,21,20,0)="             then the standard field layout will not be invoked.  "
^DD(6910.1,6,21,21,0)=" "
^DD(6910.1,6,21,22,0)="At the time that the user-defined print routine is called, this device the"
^DD(6910.1,6,21,23,0)="will be open as the 'current device' and local variable DA will be set to"
^DD(6910.1,6,21,24,0)="the internal entry number of the physical location in the Space file"
^DD(6910.1,6,21,25,0)="(#6928)."
^DD(6910.1,6,"DT")="2971013"
^DD(6910.1,7,0)="SUPPRESS LISTING^S^0:INCLUDE IN LIST;1:EXCLUDE FROM LIST;^0;4^Q"
^DD(6910.1,7,21,0)="^^4^4^2971014^"
^DD(6910.1,7,21,1,0)="Enter a 1 to prevent system from displaying this device as a selectable"
^DD(6910.1,7,21,2,0)="entry. It's usually a good idea to do this for bar code printers that have"
^DD(6910.1,7,21,3,0)="been included in the Engineering Computer Port file in order that their"
^DD(6910.1,7,21,4,0)="labels may be customized."
^DD(6910.1,7,"DT")="2971014"
^DD(6910.1,"B","BAR CODE EQUIPMENT DATA",5)=""
^DD(6910.1,"B","BAR CODE EQUIPMENT FORMAT",3)=""
^DD(6910.1,"B","BAR CODE LOCATION DATA",6)=""
^DD(6910.1,"B","BAR CODE LOCATION FORMAT",4)=""
^DD(6910.1,"B","DEVICE #",.01)=""
^DD(6910.1,"B","DEVICE # TRIGGERED",1)=""
^DD(6910.1,"B","DEVICE DESCRIPTION",2)=""
^DD(6910.1,"B","SUPPRESS LISTING",7)=""
^DD(6910.1,"GL",0,1,.01)=""
^DD(6910.1,"GL",0,2,1)=""
^DD(6910.1,"GL",0,3,2)=""
^DD(6910.1,"GL",0,4,7)=""
^DD(6910.1,"GL",1,"E1,245",3)=""
^DD(6910.1,"GL",2,"E1,245",4)=""
^DD(6910.1,"GL",3,"E1,245",5)=""
^DD(6910.1,"GL",4,"E1,245",6)=""
^DD(6910.1,"IX",.01)=""
^DD(6910.1,"RQ",.01)=""
^DD(6910.1,"RQ",1)=""
^DD(6910.1,"RQ",2)=""
^DD(6910.2,0)="FIELD^^3^4"
^DD(6910.2,0,"DDA")="N"
^DD(6910.2,0,"IX","B",6910.2,.01)=""
^DD(6910.2,0,"NM","ENG SOFTWARE OPTIONS")=""
^DD(6910.2,0,"VR")="7.0"
^DD(6910.2,0,"VRPK")="EN"
^DD(6910.2,.01,0)="FEATURE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?.ANP)!(X'?.ANP) X"
^DD(6910.2,.01,1,0)="^.1"
^DD(6910.2,.01,1,1,0)="6910.2^B"
^DD(6910.2,.01,1,1,1)="S ^ENG(6910.2,""B"",$E(X,1,30),DA)="""""
^DD(6910.2,.01,1,1,2)="K ^ENG(6910.2,""B"",$E(X,1,30),DA)"
^DD(6910.2,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(6910.2,.01,21,0)="^^1^1^2930429^"
^DD(6910.2,.01,21,1,0)="Brief identification of the feature or function in question."
^DD(6910.2,1,0)="CHOICES^6910.21^^1;0"
^DD(6910.2,1,21,0)="^^1^1^2930429^"
^DD(6910.2,1,21,1,0)="Description of the possible choices."
^DD(6910.2,2,0)="SELECTION^FX^^0;2^K:X'?1UN X D:$D(X) SWOPT^ENLIB1"
^DD(6910.2,2,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH, CHOICES ARE LISTED IN THE CHOICES FIELD"
^DD(6910.2,2,21,0)="^^1^1^2930429^"
^DD(6910.2,2,21,1,0)="Selection made by user from among all possible choices."
^DD(6910.2,2,"DT")="2970123"
^DD(6910.2,3,0)="REFERENCE^F^^0;3^K:$L(X)>70!($L(X)<1)!'(X?.ANP) X"
^DD(6910.2,3,3)="ANSWER MUST BE 1-70 CHARACTERS IN LENGTH, INDICATE ROUTINES AND LINES WHERE USED"
^DD(6910.2,3,21,0)="^^1^1^2930429^"
^DD(6910.2,3,21,1,0)="Routine(s) affected by this feature."
^DD(6910.2,"B","CHOICES",1)=""
^DD(6910.2,"B","FEATURE NAME",.01)=""
^DD(6910.2,"B","REFERENCE",3)=""
^DD(6910.2,"B","SELECTION",2)=""
^DD(6910.2,"GL",0,1,.01)=""
^DD(6910.2,"GL",0,2,2)=""
^DD(6910.2,"GL",0,3,3)=""
^DD(6910.2,"GL",1,0,1)=""
^DD(6910.2,"IX",.01)=""
^DD(6910.2,"RQ",.01)=""
^DD(6910.2,"SB",6910.21,1)=""
^DD(6910.21,0)="CHOICES SUB-FIELD^NL^.01^1"
^DD(6910.21,0,"NM","CHOICES")=""
^DD(6910.21,0,"UP")="6910.2"
^DD(6910.21,.01,0)="CHOICES^W^^0;1^Q"
^DD(6910.21,.01,3)="THIS FIELD INDICATES AVAILABLE CHOICES FOR THIS FEATURE"
^DD(6910.21,.01,21,0)="^^1^1^2930429^"
^DD(6910.21,.01,21,1,0)="Explanation of all possible choices."
^DD(6910.21,"B","CHOICES",.01)=""
^DD(6910.21,"GL",0,1,.01)=""
^DD(6910.3,0)="FIELD^^.01^1"
^DD(6910.3,0,"DDA")="N"
^DD(6910.3,0,"DT")="2950510"
^DD(6910.3,0,"IX","B",6910.3,.01)=""
^DD(6910.3,0,"NM","DIVISION")=""
^DD(6910.3,0,"PT",6925,159.15)=""
^DD(6910.3,0,"PT",6925,176)=""
^DD(6910.3,.01,0)="NAME^RF^^0;1^K:$L(X)>10!($L(X)<1)!'(X'?1P.E) X"
^DD(6910.3,.01,1,0)="^.1"
^DD(6910.3,.01,1,1,0)="6910.3^B"
^DD(6910.3,.01,1,1,1)="S ^ENG(6910.3,""B"",$E(X,1,30),DA)="""""
^DD(6910.3,.01,1,1,2)="K ^ENG(6910.3,""B"",$E(X,1,30),DA)"
^DD(6910.3,.01,3)="Answer must be 1-10 characters in length."
^DD(6910.3,.01,21,0)="^^1^1^2950510^"
^DD(6910.3,.01,21,1,0)="Name of a division."
^DD(6910.3,.01,"DT")="2950510"
^DD(6910.3,"B","NAME",.01)=""
^DD(6910.3,"GL",0,1,.01)=""
^DD(6910.3,"IX",.01)=""
^DD(6910.3,"RQ",.01)=""
^DD(6910.9,0)="FIELD^NL^.1^10"
^DD(6910.9,0,"DDA")="N"
^DD(6910.9,0,"DT")="2970505"
^DD(6910.9,0,"ID",.06)="W ""   "",$P(^(0),U,6)"
^DD(6910.9,0,"ID",.08)="W:$D(^(0)) ""   "",$P(^(0),U,7)"
^DD(6910.9,0,"IX","AC",6910.9,.01)=""
^DD(6910.9,0,"IX","AP",6910.9,.03)=""
^DD(6910.9,0,"IX","AR",6910.9,.05)=""
^DD(6910.9,0,"IX","B",6910.9,.01)=""
^DD(6910.9,0,"NM","ENG DJ SCREEN")=""
^DD(6910.9,0,"VR")="7.0"
^DD(6910.9,0,"VRPK")="EN"
^DD(6910.9,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?1P.E) X"
^DD(6910.9,.01,.1)=""
^DD(6910.9,.01,1,0)="^.1"
^DD(6910.9,.01,1,1,0)="6910.9^B"
^DD(6910.9,.01,1,1,1)="S ^ENG(6910.9,""B"",$E(X,1,30),DA)="""""
^DD(6910.9,.01,1,1,2)="K ^ENG(6910.9,""B"",$E(X,1,30),DA)"
^DD(6910.9,.01,1,2,0)="6910.9^AC^MUMPS"
^DD(6910.9,.01,1,2,1)="Q"
^DD(6910.9,.01,1,2,2)="Q"
^DD(6910.9,.01,1,2,"%D",0)="^^1^1^2961029^"
^DD(6910.9,.01,1,2,"%D",1,0)="Obsolete x-ref. No API available to delete it."
^DD(6910.9,.01,1,2,"DT")="2961029"
^DD(6910.9,.01,3)="ANSWER MUST BE 3-16 CHARACTERS IN LENGTH"
^DD(6910.9,.01,21,0)="^^2^2^2860424^^^^"
^DD(6910.9,.01,21,1,0)="This field contains the screen name associated with a display of entries."
^DD(6910.9,.01,21,2,0)="The screen should be namespaced."
^DD(6910.9,.01,21,3,0)="The name should start the namespace characters."
^DD(6910.9,.01,"DT")="2961029"
^DD(6910.9,.02,0)="MAXLINE^RNJ2,0^^0;2^K:+X'=X!(X>15)!(X<15)!(X?.E1"".""1N.N) X"
^DD(6910.9,.02,3)="TYPE A WHOLE NUMBER BETWEEN 15 AND 15"
^DD(6910.9,.02,21,0)="^^3^3^2930429^^^^"
^DD(6910.9,.02,21,1,0)="This field specifies the number of lines usable for data entry."
^DD(6910.9,.02,21,2,0)="It cannot exceed 15 lines."
^DD(6910.9,.02,21,3,0)="The system computes this field automatically."
^DD(6910.9,.03,0)="PREVIOUS^FX^^0;3^K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^ENG(6910.9,""B"",X)) S DIC(0)=""L"",DIC=""^ENG(6910.9,"" D ^DIC"
^DD(6910.9,.03,1,0)="^.1"
^DD(6910.9,.03,1,1,0)="6910.9^AP^MUMPS"
^DD(6910.9,.03,1,1,1)="N ENDJP S:X]"""" ENDJP=$O(^ENG(6910.9,""B"",X,0)) S:$G(ENDJP) $P(^ENG(6910.9,ENDJP,0),U,5)=$P($G(^ENG(6910.9,DA,0)),U) Q"
^DD(6910.9,.03,1,1,2)="N ENDJP S:X]"""" ENDJP=$O(^ENG(6910.9,""B"",X,0)) S:$G(ENDJP) ENDJP(""RL"")=$P(^ENG(6910.9,ENDJP,0),U,5) S:$G(ENDJP(""RL""))=$P($G(^ENG(6910.9,DA,0)),U) $P(^ENG(6910.9,ENDJP,0),U,5)="""" Q"
^DD(6910.9,.03,1,1,"%D",0)="^^1^1^2961029^^^^"
^DD(6910.9,.03,1,1,"%D",1,0)="Updates RIGHTLINKED field of 'previous' screen."
^DD(6910.9,.03,1,1,"DT")="2961029"
^DD(6910.9,.03,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(6910.9,.03,21,0)="^^3^3^2860424^^"
^DD(6910.9,.03,21,1,0)="This field is only applicable to multiple page screens."
^DD(6910.9,.03,21,2,0)="This field points to the previous screen name. It is a free text pointer"
^DD(6910.9,.03,21,3,0)="entered by the system automatically."
^DD(6910.9,.03,"DT")="2961029"
^DD(6910.9,.04,0)="SECURITY^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(6910.9,.04,3)="Answer must be 1-10 characters in length."
^DD(6910.9,.04,21,0)="^^2^2^2930428^^^^"
^DD(6910.9,.04,21,1,0)="This field is set automatically to the write (WR) security of the file"
^DD(6910.9,.04,21,2,0)="selected by the user, at the time the file is created."
^DD(6910.9,.04,"DT")="2930428"
^DD(6910.9,.05,0)="RIGHTLINKED^FX^^0;5^K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^ENG(6910.9,""B"",X)) S DIC(0)=""L"",DIC=""^ENG(6910.9,"" D ^DIC"
^DD(6910.9,.05,1,0)="^.1"
^DD(6910.9,.05,1,1,0)="6910.9^AR^MUMPS"
^DD(6910.9,.05,1,1,1)="N ENDJR S:X]"""" ENDJR=$O(^ENG(6910.9,""B"",X,0)) S:$G(ENDJR) $P(^ENG(6910.9,ENDJR,0),U,3)=$P($G(^ENG(6910.9,DA,0)),U) Q"
^DD(6910.9,.05,1,1,2)="N ENDJR S:X]"""" ENDJR=$O(^ENG(6910.9,""B"",X,0)) S:$G(ENDJR) ENDJR(""PR"")=$P(^ENG(6910.9,ENDJR,0),U,3) S:$G(ENDJR(""PR""))=$P($G(^ENG(6910.9,DA,0)),U) $P(^ENG(6910.9,ENDJR,0),U,3)="""" Q"
^DD(6910.9,.05,1,1,"%D",0)="^^1^1^2961029^^^^"
^DD(6910.9,.05,1,1,"%D",1,0)="Updates PREVIOUS field of 'rightlinked' screen."
^DD(6910.9,.05,1,1,"DT")="2961029"
^DD(6910.9,.05,3)="ANSWER MUST BE 1-16 CHARACTERS IN LENGTH"
^DD(6910.9,.05,21,0)="^^3^3^2860424^^"
^DD(6910.9,.05,21,1,0)="This field is only applicable to multiple page screens."
^DD(6910.9,.05,21,2,0)="This field contains the name of the screen to be executed next. It is"
^DD(6910.9,.05,21,3,0)="a free text pointer entered by the system automatically."
^DD(6910.9,.05,"DT")="2961029"
^DD(6910.9,.06,0)="DD NUMBER^RNJ13,4X^^0;6^S DIC=""^DIC("",DIC(0)=""ENQ"",DIC(""S"")=$S(DUZ(0)'=""@"":""I 1 Q:'$D(^DIC(+Y,0,""""WR""""))  F DJX=1:1:$L(^(""""WR"""")) I DUZ(0)[$E(^(""""WR""""),DJX) Q"",1:""I Y-1"") D ^DIC S X=+Y K:Y'>0 X"
^DD(6910.9,.06,3)="TYPE A LEGAL DATA DEFINITION NUMBER BETWEEN 0 AND 99999999"
^DD(6910.9,.06,4)="S ZD=D,X=""?"" S DIC=""^DIC("",DIC(0)=""ENQ"",DIC(""S"")=$S(DUZ(0)'=""@"":""I 1 Q:'$D(^DIC(+Y,0,""""WR""""))  F DJX=1:1:$L(^(""""WR"""")) I DUZ(0)[$E(^(""""WR""""),DJX) Q"",1:""I Y-1"") D ^DIC S DIC=DIE,D=ZD K ZD,DIC(""S"")"
^DD(6910.9,.06,21,0)="^^2^2^2860424^^^^"
^DD(6910.9,.06,21,1,0)="The contents of this field should be a legal Data Definition (DD) number."
^DD(6910.9,.06,21,2,0)="It could be a first level ."
^DD(6910.9,.06,"DT")="2880121"
^DD(6910.9,.07,0)="ENTRY DEFINITIONS^6910.97A^^1;0"
^DD(6910.9,.07,21,0)="^^1^1^2930429^"
^DD(6910.9,.07,21,1,0)="Definition of each line item on a data entry screen."
^DD(6910.9,.08,0)="DESCRIPTION^RF^^0;7^K:$L(X)>64!($L(X)<2) X"
^DD(6910.9,.08,3)="ANSWER MUST BE 2-64 CHARACTERS IN LENGTH"
^DD(6910.9,.08,21,0)="^^2^2^2860424^^^^"
^DD(6910.9,.08,21,1,0)="The data entered in this field will be displayed at the top of the"
^DD(6910.9,.08,21,2,0)="screen display as a title with the current date."
^DD(6910.9,.09,0)="FILE LEVEL^NJ1,0^^0;8^K:+X'=X!(X>9)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6910.9,.09,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 9"
^DD(6910.9,.09,21,0)="^^2^2^2860424^^"
^DD(6910.9,.09,21,1,0)="This field keeps track of the level of the screen display with respect"
^DD(6910.9,.09,21,2,0)="to the hierarchy of the file."
^DD(6910.9,.1,0)="HIGHEST NUMBER USED^NJ5,2^^0;9^K:+X'=X!(X>99)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(6910.9,.1,3)="TYPE A NUMBER BETWEEN .1 AND 99"
^DD(6910.9,.1,21,0)="^^2^2^2851030^"
^DD(6910.9,.1,21,1,0)="This field contains the highest number used in the screen display."
^DD(6910.9,.1,21,2,0)="It is used when continuing adding entries."
^DD(6910.9,"B","DD NUMBER",.06)=""
^DD(6910.9,"B","DESCRIPTION",.08)=""
^DD(6910.9,"B","ENTRY DEFINITIONS",.07)=""
^DD(6910.9,"B","FILE LEVEL",.09)=""
^DD(6910.9,"B","HIGHEST NUMBER USED",.1)=""
^DD(6910.9,"B","MAXLINE",.02)=""
^DD(6910.9,"B","NAME",.01)=""
^DD(6910.9,"B","PREVIOUS",.03)=""
^DD(6910.9,"B","RIGHTLINKED",.05)=""
^DD(6910.9,"B","SECURITY",.04)=""
^DD(6910.9,"GL",0,1,.01)=""
^DD(6910.9,"GL",0,2,.02)=""
^DD(6910.9,"GL",0,3,.03)=""
^DD(6910.9,"GL",0,4,.04)=""
^DD(6910.9,"GL",0,5,.05)=""
^DD(6910.9,"GL",0,6,.06)=""
^DD(6910.9,"GL",0,7,.08)=""
^DD(6910.9,"GL",0,8,.09)=""
^DD(6910.9,"GL",0,9,.1)=""
^DD(6910.9,"GL",1,0,.07)=""
^DD(6910.9,"IX",.01)=""
^DD(6910.9,"IX",.03)=""
^DD(6910.9,"IX",.05)=""
^DD(6910.9,"RQ",.01)=""
^DD(6910.9,"RQ",.02)=""
^DD(6910.9,"RQ",.06)=""
^DD(6910.9,"RQ",.08)=""
^DD(6910.9,"SB",6910.97,.07)=""
^DD(6910.97,0)="ENTRY DEFINITIONS SUB-FIELD^NL^6^12"
^DD(6910.97,0,"DT")="2970505"
^DD(6910.97,0,"IX","A",6910.97,.11)=""
^DD(6910.97,0,"IX","AC",6910.97,.07)=""
^DD(6910.97,0,"IX","B",6910.97,.01)=""
^DD(6910.97,0,"NM","ENTRY DEFINITIONS")=""
^DD(6910.97,0,"UP")="6910.9"
^DD(6910.97,.01,0)="LABEL^MF^^0;1^K:$L(X)>33!($L(X)<1) X"
^DD(6910.97,.01,1,0)="^.1"
^DD(6910.97,.01,1,1,0)="6910.97^B"
^DD(6910.97,.01,1,1,1)="S ^ENG(6910.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6910.97,.01,1,1,2)="K ^ENG(6910.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6910.97,.01,3)="Enter a 1 to 30 character label for this screen entry.  This label will be displayed when the screen is executed."
^DD(6910.97,.01,21,0)="^^6^6^2930429^^^^"
^DD(6910.97,.01,21,1,0)="When adding new elements to a screen (OPTION 1) select a valid field name"
^DD(6910.97,.01,21,2,0)="or field number."
^DD(6910.97,.01,21,3,0)=" The field name that you select will be the label displayed on your "
^DD(6910.97,.01,21,4,0)="screen.  You may change this label as desired."
^DD(6910.97,.01,21,5,0)=" To see a list of other commands you can enter at the label prompt type"
^DD(6910.97,.01,21,6,0)="uparrow C (^C)."
^DD(6910.97,.02,0)="START X-Y^RF^^0;2^K:$L(X)>11!($L(X)<3) X"
^DD(6910.97,.02,3)="ANSWER MUST BE 3-11 CHARACTERS IN LENGTH"
^DD(6910.97,.03,0)="FIELD LENGTH^RNJ3,0^^0;3^K:+X'=X!(X>200)!(X<3)!(X?.E1"".""1N.N) X"
^DD(6910.97,.03,3)="TYPE A WHOLE NUMBER BETWEEN 3 AND 200"
^DD(6910.97,.03,21,0)="^^1^1^2860305^^^^"
^DD(6910.97,.03,21,1,0)="This is the length of your data."
^DD(6910.97,.04,0)="END X-Y^RF^^0;4^K:$L(X)>11!($L(X)<6) X"
^DD(6910.97,.04,3)="ANSWER MUST BE 6-11 CHARACTERS IN LENGTH"
^DD(6910.97,.05,0)="ATTRIBUTE NR^RNJ11,4^^0;5^K:+X'=X!(X>999999)!(X<-1)!(X?.E1"".""5N.N) X"
^DD(6910.97,.05,1,0)="^.1^^0"
^DD(6910.97,.05,3)="TYPE A NUMBER BETWEEN -1 AND 999999"
^DD(6910.97,.06,0)="TYPE^F^^0;6^K:$L(X)>12!($L(X)<1) X"
^DD(6910.97,.06,3)="Answer must be 1-12 characters in length."
^DD(6910.97,.06,"DT")="2970505"
^DD(6910.97,.07,0)="RD(ONLY)^S^1:Y;0:N;^0;7^Q"
^DD(6910.97,.07,.1)=""
^DD(6910.97,.07,1,0)="^.1"
^DD(6910.97,.07,1,1,0)="6910.97^AC^MUMPS"
^DD(6910.97,.07,1,1,1)="I X=1&(^ENG(6910.9,DA(1),1,DA,0)'[""(R)"") S $P(^(0),U,4)=$P($P(^(0),U,4),""X="",1)_""X=""_($P($P(^(0),U,4),""X="",2)+3) X ^DD(6910.97,.07,1,1,1.1) Q"
^DD(6910.97,.07,1,1,1.1)="S DIV=$P(^ENG(6910.9,DA(1),1,DA,0),U,1),$P(^(0),U,1)=DIV_""(R)"",^ENG(6910.9,DA(1),1,""B"",DIV_""(R)"",DA)="""" K ^ENG(6910.9,DA(1),1,""B"",DIV,DA),DIV Q"
^DD(6910.97,.07,1,1,1.2)="I ^ENG(6910.9,DA(1),1,DA,0)[""(R)"" S DIV2=$P(^(0),""(R)"",1),DIV=$P(^(0),U,10)-3,DIV1=$P(^(0),U,4),DIV1=$P(DIV1,""DX="",1)_""DX=""_DIV X ^DD(6910.97,.07,1,1,1.3)"
^DD(6910.97,.07,1,1,1.3)="S ^ENG(6910.9,DA(1),1,DA,0)=DIV2_""^""_$P(^ENG(6910.9,DA(1),1,DA,0),""^"",2,3)_""^""_DIV1_""^""_$P(^(0),""^"",5,9)_""^""_DIV_""^""_$P(^(0),""^"",11,15) K DIV,DIV1,DIV2"
^DD(6910.97,.07,1,1,2)="I ^ENG(6910.9,DA(1),1,DA,0)[""(R)"" S DIV=$P(^(0),U,1),$P(^(0),U,1)=$P(^(0),""(R)"",1),$P(^(0),U,4)=$P($P(^(0),U,4),""X="",1)_""X=""_($P($P(^(0),U,4),""X="",2)-3) X ^DD(6910.97,.07,1,1,2.1) Q"
^DD(6910.97,.07,1,1,2.1)="S ^ENG(6910.9,DA(1),1,""B"",$P(^ENG(6910.9,DA(1),1,DA,0),U,1),DA)="""" K ^ENG(6910.9,DA(1),1,""B"",DIV,DA),DIV Q"
^DD(6910.97,.07,3)=""
^DD(6910.97,.07,21,0)="^^2^2^2860424^^^^"
^DD(6910.97,.07,21,1,0)="This field is used to indicate 'DISPLAY' only of data"
^DD(6910.97,.07,21,2,0)="this means no updating is allowed."
^DD(6910.97,.11,0)="ENTRY NUM^RNJ4,1X^^0;13^K:+X'=X!(X>99.9)!(X<.1)!(X?.E1"".""2N.N) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6910.9,DA(1),1,""A"",X)) D EN^DDIOL(""IN USE"") K X"
^DD(6910.97,.11,1,0)="^.1"
^DD(6910.97,.11,1,1,0)="6910.97^A"
^DD(6910.97,.11,1,1,1)="S ^ENG(6910.9,DA(1),1,""A"",$E(X,1,30),DA)="""""
^DD(6910.97,.11,1,1,2)="K ^ENG(6910.9,DA(1),1,""A"",$E(X,1,30),DA)"
^DD(6910.97,.11,3)="Type a Number between .1 and 99.9, no duplicates are allowed."
^DD(6910.97,.11,21,0)="^^2^2^2961209^"
^DD(6910.97,.11,21,1,0)="Numbers with a decimal point are used for subtitles, that is no data is"
^DD(6910.97,.11,21,2,0)="associated with them. "
^DD(6910.97,.11,"DT")="2961209"
^DD(6910.97,1,0)="POST ACTION CODE^FX^^1;E1,200^K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)"
^DD(6910.97,1,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)"
^DD(6910.97,1,21,0)="^^1^1^2860424^^"
^DD(6910.97,1,21,1,0)="Type any legal MUMPS expression."
^DD(6910.97,2,0)="PRE ACTION CODE^FX^^2;E1,200^K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)"
^DD(6910.97,2,3)="ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)"
^DD(6910.97,2,21,0)="^^1^1^2860424^^"
^DD(6910.97,2,21,1,0)="Type any legal MUMPS expression."
^DD(6910.97,5,0)="MULTIPLE SCREEN NAME^FX^^0;12^K:$L(X)>16!($L(X)<4) X I $D(X),'$D(^ENG(6910.9,DA(1),""B"",X)) K X"
^DD(6910.97,5,.1)=""
^DD(6910.97,5,3)="This entry is automatically generated by the system."
^DD(6910.97,5,21,0)="^^1^1^2860729^^^^"
^DD(6910.97,5,21,1,0)="**WARNING** If you edit this entry, you must enter an existing screen name."
^DD(6910.97,5,"DT")="2880121"
^DD(6910.97,6,0)="DEFAULT VALUE^FX^^3;1^K:$L(X)>30!($L(X)<1)!($P(^ENG(6910.9,DA(1),1,DA,0),""^"",5)=.01)!($P(^(0),""^"",6)[""C"")!($P(^(0),""^"",7)) X"
^DD(6910.97,6,3)="Ans. must be 1-30 chars. in Length. Not applicable to .01, computed, or read       only fields"
^DD(6910.97,6,21,0)="^^2^2^2860729^^^^"
^DD(6910.97,6,21,1,0)="Enter a legitimate default value for this field."
^DD(6910.97,6,21,2,0)=".01 Fields as well as computed or read only are not allowed."
^DD(6910.97,"B","ATTRIBUTE NR",.05)=""
^DD(6910.97,"B","DEFAULT VALUE",6)=""
^DD(6910.97,"B","END X-Y",.04)=""
^DD(6910.97,"B","ENTRY NUM",.11)=""
^DD(6910.97,"B","FIELD LENGTH",.03)=""
^DD(6910.97,"B","LABEL",.01)=""
^DD(6910.97,"B","MULTIPLE SCREEN NAME",5)=""
^DD(6910.97,"B","POST ACTION CODE",1)=""
^DD(6910.97,"B","PRE ACTION CODE",2)=""
^DD(6910.97,"B","RD(ONLY)",.07)=""
^DD(6910.97,"B","START X-Y",.02)=""
^DD(6910.97,"B","TYPE",.06)=""
^DD(6910.97,"GL",0,1,.01)=""
^DD(6910.97,"GL",0,2,.02)=""
^DD(6910.97,"GL",0,3,.03)=""
^DD(6910.97,"GL",0,4,.04)=""
^DD(6910.97,"GL",0,5,.05)=""
^DD(6910.97,"GL",0,6,.06)=""
^DD(6910.97,"GL",0,7,.07)=""
^DD(6910.97,"GL",0,12,5)=""
^DD(6910.97,"GL",0,13,.11)=""
^DD(6910.97,"GL",1,"E1,200",1)=""
^DD(6910.97,"GL",2,"E1,200",2)=""
^DD(6910.97,"GL",3,1,6)=""
^DD(6910.97,"IX",.01)=""
^DD(6910.97,"IX",.07)=""
^DD(6910.97,"IX",.11)=""
^DD(6910.97,"RQ",.02)=""
^DD(6910.97,"RQ",.03)=""
^DD(6910.97,"RQ",.04)=""
^DD(6910.97,"RQ",.05)=""
^DD(6910.97,"RQ",.11)=""
^DD(6911,0)="FIELD^NL^3^5"
^DD(6911,0,"DDA")="N"
^DD(6911,0,"DT")="2970305"
^DD(6911,0,"IX","AC",6911,2)=""
^DD(6911,0,"IX","B",6911,.01)=""
^DD(6911,0,"IX","C",6911.02,.01)=""
^DD(6911,0,"NM","EQUIPMENT CATEGORY")=""
^DD(6911,0,"PT",6914,6)=""
^DD(6911,0,"VR")="7.0"
^DD(6911,0,"VRPK")="EN"
^DD(6911,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1)!'(X'?1P.E)!(X?.E1"","".E)!(X'?.ANP) X"
^DD(6911,.01,1,0)="^.1"
^DD(6911,.01,1,1,0)="6911^B"
^DD(6911,.01,1,1,1)="S ^ENG(6911,""B"",$E(X,1,30),DA)="""""
^DD(6911,.01,1,1,2)="K ^ENG(6911,""B"",$E(X,1,30),DA)"
^DD(6911,.01,3)="ANSWER MUST BE 1-50 CHARACTERS IN LENGTH AND CONTAIN NO COMMAS(,)"
^DD(6911,.01,21,0)="^^2^2^2930429^"
^DD(6911,.01,21,1,0)="A category of devices that receive the same frequencies and types"
^DD(6911,.01,21,2,0)="of preventive maintenance inspections."
^DD(6911,.01,"DT")="2880415"
^DD(6911,.5,0)="SYNONYM^6911.02^^1;0"
^DD(6911,.5,21,0)="^^6^6^2930429^^^^"
^DD(6911,.5,21,1,0)="A multiple field intended to allow for selection of Equipment Categories"
^DD(6911,.5,21,2,0)="in more than one way. For example: the Equipment Category of"
^DD(6911,.5,21,3,0)="'ELECTROCARDIOGRAPH' would probably have 'EKG' and 'ECG' as synonyms."
^DD(6911,.5,21,4,0)="A MNEMONIC cross-reference of the entire Equipment Category File by"
^DD(6911,.5,21,5,0)="this SYNONYM field will insure that SYNONYM's are found along with"
^DD(6911,.5,21,6,0)="NAME's during any look-up."
^DD(6911,.5,"DT")="2920116"
^DD(6911,1,0)="RESPONSIBLE SHOP^6911.01PA^^4;0"
^DD(6911,1,21,0)="^^4^4^2930429^^^^"
^DD(6911,1,21,1,0)=" Any shop having maintenance responsibility for this item should be entered"
^DD(6911,1,21,2,0)="here. The principal use of this field is in generating preventive"
^DD(6911,1,21,3,0)="maintenance worklists. If there is no RESPONSIBLE SHOP, the item will be"
^DD(6911,1,21,4,0)="ignored by the PM module."
^DD(6911,1,"DT")="2930429"
^DD(6911,2,0)="LOCKOUT REQUIRED?^S^0:NO;1:YES;^0;2^Q"
^DD(6911,2,1,0)="^.1"
^DD(6911,2,1,1,0)="6911^AC"
^DD(6911,2,1,1,1)="S ^ENG(6911,""AC"",$E(X,1,30),DA)="""""
^DD(6911,2,1,1,2)="K ^ENG(6911,""AC"",$E(X,1,30),DA)"
^DD(6911,2,1,1,"DT")="2960906"
^DD(6911,2,21,0)="^^7^7^2960531^^^"
^DD(6911,2,21,1,0)="OSHA requires employers to have energy control procedures in place to"
^DD(6911,2,21,2,0)="ensure that employees do not attempt to service a piece of equipment for"
^DD(6911,2,21,3,0)="which unintended energization, start up, or release of stored energy is"
^DD(6911,2,21,4,0)="possible and could cause injury until the equipment is isolated and"
^DD(6911,2,21,5,0)="rendered inoperative."
^DD(6911,2,21,6,0)=" "
^DD(6911,2,21,7,0)="If this field in the Equipment Category File is set to YES,"
^DD(6911,2,"DT")="2960916"
^DD(6911,3,0)="JCAHO^S^Y:YES;N:NO;^0;3^Q"
^DD(6911,3,21,0)="^^5^5^2961125^"
^DD(6911,3,21,1,0)="Joint Commission on the Accreditation of Healthcare Organizations (JCAHO)"
^DD(6911,3,21,2,0)="standards require that a ""separable inventory"" be maintained of devices"
^DD(6911,3,21,3,0)="that are of interest to the JCAHO. If this flag in the Equipment Category"
^DD(6911,3,21,4,0)="File is set to 'YES' then all equipment added under that category will"
^DD(6911,3,21,5,0)="have its individual JCAHO field set to 'YES'."
^DD(6911,3,"DT")="2961125"
^DD(6911,"B","JCAHO",3)=""
^DD(6911,"B","LOCKOUT REQUIRED?",2)=""
^DD(6911,"B","NAME",.01)=""
^DD(6911,"B","RESPONSIBLE SHOP",1)=""
^DD(6911,"B","SYNONYM",.5)=""
^DD(6911,"GL",0,1,.01)=""
^DD(6911,"GL",0,2,2)=""
^DD(6911,"GL",0,3,3)=""
^DD(6911,"GL",1,0,.5)=""
^DD(6911,"GL",4,0,1)=""
^DD(6911,"IX",.01)=""
^DD(6911,"IX",2)=""
^DD(6911,"RQ",.01)=""
^DD(6911,"SB",6911.01,1)=""
^DD(6911,"SB",6911.02,.5)=""
^DD(6911.01,0)="RESPONSIBLE SHOP SUB-FIELD^^3^6"
^DD(6911.01,0,"DT")="2970305"
^DD(6911.01,0,"IX","B",6911.01,.01)=""
^DD(6911.01,0,"NM","RESPONSIBLE SHOP")=""
^DD(6911.01,0,"UP")="6911"
^DD(6911.01,.01,0)="RESPONSIBLE SHOP^P6922'^DIC(6922,^0;1^Q"
^DD(6911.01,.01,1,0)="^.1"
^DD(6911.01,.01,1,1,0)="6911.01^B"
^DD(6911.01,.01,1,1,1)="S ^ENG(6911,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(6911.01,.01,1,1,2)="K ^ENG(6911,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(6911.01,.01,21,0)="^^1^1^2930429^"
^DD(6911.01,.01,21,1,0)="Engineering shop(s) with PM responsibility."
^DD(6911.01,.01,"DT")="2880415"
^DD(6911.01,1,0)="TECHNICIAN^P6929'^ENG(""EMP"",^0;2^Q"
^DD(6911.01,1,21,0)="^^2^2^2930429^^"
^DD(6911.01,1,21,1,0)="The Engineering Service employee who normally does the PM work on this"
^DD(6911.01,1,21,2,0)="piece of equipment for this shop."
^DD(6911.01,1,"DT")="2880126"
^DD(6911.01,2,0)="STARTING MONTH^S^1:JAN;2:FEB;3:MAR;4:APR;5:MAY;6:JUN;7:JUL;8:AUG;9:SEP;10:OCT;11:NOV;12:DEC;^1;1^Q"
^DD(6911.01,2,21,0)="^^7^7^2880303^^"
^DD(6911.01,2,21,1,0)=" STARTING MONTH is used by the PM module as a criterion in determining"
^DD(6911.01,2,21,2,0)="when a PM is due. Let's consider the following example: an item subject"
^DD(6911.01,2,21,3,0)="to MONTHLY, QUARTERLY, and ANNUAL PM inspections. If STARTING MONTH were"
^DD(6911.01,2,21,4,0)="set to FEB; an ANNUAL inspection would be scheduled in FEB; QUARTERLY"
^DD(6911.01,2,21,5,0)="inspections in MAY, AUG, and NOV; and MONTHLY inspections in MAR, APR,"
^DD(6911.01,2,21,6,0)="JUN, JUL, SEP, OCT, DEC, and JAN."
^DD(6911.01,2,21,7,0)=" If STARTING MONTH is left blank, JAN will be assumed."
^DD(6911.01,2,"DT")="2880212"
^DD(6911.01,2.6,0)="SKIP MONTHS^FX^^0;3^K:$L(X)>7!($L(X)<7)!'(X?3U1""-""3U) X I $D(X) D SKPCK^ENEQPMP1 K:ENA[""ERR"" X"
^DD(6911.01,2.6,3)="ANSWER MUST BE 7 CHARACTERS IN LENGTH"
^DD(6911.01,2.6,21,0)="^^12^12^2880303^"
^DD(6911.01,2.6,21,1,0)=" A range of months (inclusive) during which PMI's are to be suspended. For"
^DD(6911.01,2.6,21,2,0)="example, an entry of 'NOV-MAR' for an air-conditioner would suppress the"
^DD(6911.01,2.6,21,3,0)="scheduling of any PMI's in NOV, DEC, JAN, FEB, and MAR."
^DD(6911.01,2.6,21,4,0)=" Some care needs to be taken when using this field. If you want an annual"
^DD(6911.01,2.6,21,5,0)="inspection, for instance, be sure that the STARTING MONTH is not within the"
^DD(6911.01,2.6,21,6,0)="range specified by the SKIP MONTHS; otherwise the ANNUAL PMI will never be"
^DD(6911.01,2.6,21,7,0)="scheduled."
^DD(6911.01,2.6,21,8,0)=" Entries must take the form 'MMM-NNN', where MMM is a three character"
^DD(6911.01,2.6,21,9,0)="abbreviation of the first month for which PMI's should be suspended and NNN"
^DD(6911.01,2.6,21,10,0)="is a three character abbreviation of the last month for which PMI's should"
^DD(6911.01,2.6,21,11,0)="be suspended. Valid abbreviations are: JAN, FEB, MAR, APR, MAY, JUN, JUL,"
^DD(6911.01,2.6,21,12,0)="AUG, SEP, OCT, NOV, and DEC."
^DD(6911.01,2.6,"DT")="2880829"
^DD(6911.01,2.7,0)="CRITICALITY^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6911.01,2.7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(6911.01,2.7,21,0)="^^14^14^2970408^"
^DD(6911.01,2.7,21,1,0)="An index of the importance of performing PMI's on this device. Enter an"
^DD(6911.01,2.7,21,2,0)="integer between 1 and some upper limit not greater than 99 (most sites use"
^DD(6911.01,2.7,21,3,0)="10 or 20). The closer a value is to the upper limit, the more critical the"
^DD(6911.01,2.7,21,4,0)="Preventive Maintenance Inspections are. A value of 1 indicates that PMI's"
^DD(6911.01,2.7,21,5,0)="are desireable but far from essential (least critical)."
^DD(6911.01,2.7,21,6,0)=" "
^DD(6911.01,2.7,21,7,0)="When PM worklists are generated, the system will ask if all devices"
^DD(6911.01,2.7,21,8,0)="should be included or just those whose CRITICALITY is within a certain"
^DD(6911.01,2.7,21,9,0)="user specified range (say, 7 to 10). This is intended as a means of"
^DD(6911.01,2.7,21,10,0)="adjusting workload to match available resources."
^DD(6911.01,2.7,21,11,0)=" "
^DD(6911.01,2.7,21,12,0)="When a CRITICALITY range is specified (as part of PM worklist generation),"
^DD(6911.01,2.7,21,13,0)="the system will ask the user whether equipment with no value for"
^DD(6911.01,2.7,21,14,0)="CRITICALITY should be included or excluded."
^DD(6911.01,2.7,"DT")="2970305"
^DD(6911.01,3,0)="FREQUENCY^6911.13S^^2;0"
^DD(6911.01,"B","CRITICALITY",2.7)=""
^DD(6911.01,"B","FREQUENCY",3)=""
^DD(6911.01,"B","RESPONSIBLE SHOP",.01)=""
^DD(6911.01,"B","SKIP MONTHS",2.6)=""
^DD(6911.01,"B","STARTING MONTH",2)=""
^DD(6911.01,"B","TECHNICIAN",1)=""
^DD(6911.01,"GL",0,1,.01)=""
^DD(6911.01,"GL",0,2,1)=""
^DD(6911.01,"GL",0,3,2.6)=""
^DD(6911.01,"GL",0,4,2.7)=""
^DD(6911.01,"GL",1,1,2)=""
^DD(6911.01,"GL",2,0,3)=""
^DD(6911.01,"IX",.01)=""
^DD(6911.01,"SB",6911.13,3)=""
^DD(6911.02,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(6911.02,0,"DT")="2911023"
^DD(6911.02,0,"IX","B",6911.02,.01)=""
^DD(6911.02,0,"NM","SYNONYM")=""
^DD(6911.02,0,"UP")="6911"
^DD(6911.02,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<2) X"
^DD(6911.02,.01,1,0)="^.1"
^DD(6911.02,.01,1,1,0)="6911.02^B"
^DD(6911.02,.01,1,1,1)="S ^ENG(6911,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6911.02,.01,1,1,2)="K ^ENG(6911,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6911.02,.01,1,1,"DT")="2920116"
^DD(6911.02,.01,1,2,0)="6911^C"
^DD(6911.02,.01,1,2,1)="S ^ENG(6911,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(6911.02,.01,1,2,2)="K ^ENG(6911,""C"",$E(X,1,30),DA(1),DA)"
^DD(6911.02,.01,1,2,"DT")="2911023"
^DD(6911.02,.01,3)="Answer must be 2-60 characters in length."
^DD(6911.02,.01,21,0)="^^3^3^2911023^^"
^DD(6911.02,.01,21,1,0)="A multiple-valued field intended to allow for selection of Equipment"
^DD(6911.02,.01,21,2,0)="Category in more than one way.  For example: the category named"
^DD(6911.02,.01,21,3,0)="ELECTROCARDIOGRAPH should have ECG and EKG as synonyms."
^DD(6911.02,.01,"DT")="2911023"
^DD(6911.02,"B","SYNONYM",.01)=""
^DD(6911.02,"GL",0,1,.01)=""
^DD(6911.02,"IX",.01)=""
^DD(6911.13,0)="FREQUENCY SUB-FIELD^^5^6"
^DD(6911.13,0,"DT")="2970109"
^DD(6911.13,0,"NM","FREQUENCY")=""
^DD(6911.13,0,"UP")="6911.01"
^DD(6911.13,.01,0)="FREQUENCY^MS^A:ANNUAL;S:SEMI-ANNUAL;Q:QUARTERLY;M:MONTHLY;BM:BI-MONTHLY;W:WEEKLY;BW:BI-WEEKLY;N:NONE;BA:BI-ANNUAL;TA:TRI-ANNUAL;^0;1^Q"
^DD(6911.13,.01,21,0)="^^9^9^2941209^^^^"
^DD(6911.13,.01,21,1,0)=" Make a separate entry for each category (MONTHLY, QUARTERLY, etc.) of PMI"
^DD(6911.13,.01,21,2,0)="that is to be scheduled for this device. The PM module looks at this field"
^DD(6911.13,.01,21,3,0)="in conjunction with the STARTING MONTH when PM lists are generated."
^DD(6911.13,.01,21,4,0)=" Let's consider a fairly complex example: a device with SEMI-ANNUAL,"
^DD(6911.13,.01,21,5,0)="QUARTERLY, and MONTHLY PMI's and a STARTING MONTH of MAR. Assuming no"
^DD(6911.13,.01,21,6,0)="entry for SKIP MONTHS, the following PMI's will be scheduled:"
^DD(6911.13,.01,21,7,0)="  SEMI-ANNUAL in MAR and SEP;"
^DD(6911.13,.01,21,8,0)="  QUARTERLY in JUN and DEC;"
^DD(6911.13,.01,21,9,0)="  MONTHLY in APR, MAY, JUL, AUG, OCT, NOV, JAN, and FEB."
^DD(6911.13,.01,"DT")="2970109"
^DD(6911.13,1,0)="HOURS (Estimated)^NJ5,1^^0;2^K:+X'=X!(X>200)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(6911.13,1,3)="Type a Number between .1 and 200, 1 Decimal Digit"
^DD(6911.13,1,21,0)="^^4^4^2930429^^"
^DD(6911.13,1,21,1,0)=" Approximate amount of time required for this PMI (standard hours), to"
^DD(6911.13,1,21,2,0)="the nearest tenth of an hour. This value will be recorded in the "
^DD(6911.13,1,21,3,0)="EQUIPMENT HISTORY field when a PM is closed out unless another (more"
^DD(6911.13,1,21,4,0)="precise) value is explicitly entered."
^DD(6911.13,1,"DT")="2880126"
^DD(6911.13,2,0)="MATERIAL COST (Estimated)^NJ5,0^^0;3^K:+X'=X!(X>20000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6911.13,2,3)="Type a Number between 0 and 20000, 0 Decimal Digits"
^DD(6911.13,2,21,0)="^^3^3^2880317^^^^"
^DD(6911.13,2,21,1,0)=" Estimated material cost for this PMI (standard cost). This cost will be"
^DD(6911.13,2,21,2,0)="charged to the piece of equipment whenever a PMI of this type is closed"
^DD(6911.13,2,21,3,0)="out unless another (more precise) value is entered at close-out time."
^DD(6911.13,2,"DT")="2880317"
^DD(6911.13,3,0)="LEVEL^F^^0;4^K:$L(X)>12!($L(X)<1)!'(X?1N."",1""."",2""."",3""."",4""."",5""."",6"") X"
^DD(6911.13,3,3)="Single digit(s), 1 thru 6, separated by commas."
^DD(6911.13,3,21,0)="^^12^12^2880303^"
^DD(6911.13,3,21,1,0)=" Each scheduled PMI may be composed of some combination of the following"
^DD(6911.13,3,21,2,0)="discrete levels of activity:"
^DD(6911.13,3,21,3,0)="   Level 1 - Visual inspection only;"
^DD(6911.13,3,21,4,0)="   Level 2 - Check and adjust operator controls;"
^DD(6911.13,3,21,5,0)="   Level 3 - Electrical safety analysis;"
^DD(6911.13,3,21,6,0)="   Level 4 - Minor parts replacement;"
^DD(6911.13,3,21,7,0)="   Level 5 - Major parts replacement;"
^DD(6911.13,3,21,8,0)="   Level 6 - Complete overhaul."
^DD(6911.13,3,21,9,0)=" LEVEL is an optional field, and is intended to accommodate the needs of"
^DD(6911.13,3,21,10,0)="certain facilities with highly developed PM programs. Entries for LEVEL"
^DD(6911.13,3,21,11,0)="(if any) will appear on the PM worklist as a reminder to the responsible"
^DD(6911.13,3,21,12,0)="technician."
^DD(6911.13,3,"DT")="2880126"
^DD(6911.13,4,0)="PROCEDURE^P6914.2^ENG(6914.2,^0;5^Q"
^DD(6911.13,4,21,0)="^^8^8^2880420^^^"
^DD(6911.13,4,21,1,0)=" Enter the abbreviation (4 to 10 characters) of the PROCEDURE to be "
^DD(6911.13,4,21,2,0)="followed when performing this Preventive Maintenance Inspection. The"
^DD(6911.13,4,21,3,0)="full title (as well as the abbreviation) of the PM PROCEDURE will"
^DD(6911.13,4,21,4,0)="appear on the computer generated worklist for reference."
^DD(6911.13,4,21,5,0)=" If disk space permits, the actual step-by-step procedure may be entered"
^DD(6911.13,4,21,6,0)="in the TEXT field of the PM PROCEDURES file (Number 6914.2) and printed"
^DD(6911.13,4,21,7,0)="out on demand. In any event, the PMI procedure should be on file in some"
^DD(6911.13,4,21,8,0)="form and readily accessible to the technician performing the work."
^DD(6911.13,4,"DT")="2880420"
^DD(6911.13,5,0)="STARTING YEAR (4 numerics)^NJ4,0^^0;6^K:+X'=X!(X>2100)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(6911.13,5,3)="Enter year as four numerics, 1900 thru 2100 are allowed."
^DD(6911.13,5,21,0)="^^2^2^2970109^^"
^DD(6911.13,5,21,1,0)="This field has meaning only for BI-ANNUAL and TRI-ANNUAL frequencies. Year"
^DD(6911.13,5,21,2,0)="must be entered as four numeric characters (ex: 1998, 2002, etc.)."
^DD(6911.13,5,"DT")="2970109"
^DD(6911.13,"B","FREQUENCY",.01)=""
^DD(6911.13,"B","HOURS (Estimated)",1)=""
^DD(6911.13,"B","LEVEL",3)=""
^DD(6911.13,"B","MATERIAL COST (Estimated)",2)=""
^DD(6911.13,"B","PROCEDURE",4)=""
^DD(6911.13,"B","STARTING YEAR (4 numerics)",5)=""
^DD(6911.13,"GL",0,1,.01)=""
^DD(6911.13,"GL",0,2,1)=""
^DD(6911.13,"GL",0,3,2)=""
^DD(6911.13,"GL",0,4,3)=""
^DD(6911.13,"GL",0,5,4)=""
^DD(6911.13,"GL",0,6,5)=""
^DD(6912,0)="FIELD^NL^10^10"
^DD(6912,0,"DDA")="N"
^DD(6912,0,"ID",4)="W:$D(^(1)) ""   "",$P(^(1),U,2)"
^DD(6912,0,"IX","B",6912,.01)=""
^DD(6912,0,"IX","C",6912.01,.01)=""
^DD(6912,0,"NM","MANUFACTURER LIST FILE")=""
^DD(6912,0,"PT",6914,1)=""
^DD(6912,0,"PT",6916.09,.01)=""
^DD(6912,0,"PT",6916.1,2)=""
^DD(6912,0,"PT",6920,21.9)=""
^DD(6912,0,"VR")="7.0"
^DD(6912,0,"VRPK")="EN"
^DD(6912,.001,0)="MFGID^NJ5,0X^^ ^K:+X'=X!(X>99999)!(X<50000)!(X?.E1"".""1N.N) X"
^DD(6912,.001,3)="TYPE A WHOLE NUMBER BETWEEN 50000 AND 99999 FOR LOCAL USE."
^DD(6912,.001,21,0)="^^3^3^2941221^^"
^DD(6912,.001,21,1,0)="Internal entry number (IEN) of the manufacturer.  Additions made by sites"
^DD(6912,.001,21,2,0)="must be in the range of 50000 to 99999.  National entries start at 1 and"
^DD(6912,.001,21,3,0)="presently go up to about 5000."
^DD(6912,.001,"DT")="2840908"
^DD(6912,.01,0)="MFG/DIV^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1)!(X?.E1""-"".E)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,.01,1,0)="^.1"
^DD(6912,.01,1,1,0)="6912^B"
^DD(6912,.01,1,1,1)="S ^ENG(""MFG"",""B"",$E(X,1,30),DA)="""""
^DD(6912,.01,1,1,2)="K ^ENG(""MFG"",""B"",$E(X,1,30),DA)"
^DD(6912,.01,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH. NO DASHES('-') ALLOWED. ONLY PSEUDONYM CAN BE EDITED IN THE NATIONAL PORTION OF THE FILE."
^DD(6912,.01,21,0)="^^2^2^2960830^^"
^DD(6912,.01,21,1,0)="The original manufacturer of equipment to be accounted for by"
^DD(6912,.01,21,2,0)="the facility.  Not to be confused with the vendor."
^DD(6912,.01,"DEL",1,0)="I DA<50000 D EN^DDIOL(""Can't delete entries in national portion of file."","""",""!?5"") I 1"
^DD(6912,.01,"DT")="2960830"
^DD(6912,1,0)="MFG'S FULL LENGTH NAME^FX^^0;2^K:$L(X)>40!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,1,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH. YOU CANNOT EDIT NATIONAL PORTION OF THE FILE."
^DD(6912,1,21,0)="^^1^1^2930429^"
^DD(6912,1,21,1,0)="Expanded form of manufacturer's name."
^DD(6912,1,"DT")="2930518"
^DD(6912,2,0)="DIVISION^FX^^0;3^K:$L(X)>30!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,2,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH. YOU CANNOT EDIT NATIONAL PORTION OF THE FILE."
^DD(6912,2,21,0)="^^2^2^2930429^"
^DD(6912,2,21,1,0)="Separate operating unit of the manufacturing company.  For use"
^DD(6912,2,21,2,0)="when appropriate."
^DD(6912,2,"DT")="2841206"
^DD(6912,3,0)="STREET^FX^^1;1^K:$L(X)>30!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,3,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE."
^DD(6912,3,21,0)="^^1^1^2930429^"
^DD(6912,3,21,1,0)="Street address to which correspondence could be directed."
^DD(6912,3,"DT")="2841206"
^DD(6912,4,0)="CITY^FX^^1;2^K:$L(X)>25!($L(X)<2)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,4,3)="ANSWER MUST BE 2-25 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE."
^DD(6912,4,21,0)="^^1^1^2930429^"
^DD(6912,4,21,1,0)="City to which correspondence could be directed."
^DD(6912,4,"DT")="2841206"
^DD(6912,5,0)="STATE^FX^^1;3^K:$L(X)>2!($L(X)<2)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,5,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE."
^DD(6912,5,21,0)="^^1^1^2930429^"
^DD(6912,5,21,1,0)="State to which correspondence could be directed."
^DD(6912,5,"DT")="2930518"
^DD(6912,6,0)="ZIP^FX^^1;4^K:$L(X)>15!($L(X)<1)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,6,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE."
^DD(6912,6,21,0)="^^1^1^2930429^"
^DD(6912,6,21,1,0)="Postal zip code."
^DD(6912,6,"DT")="2841206"
^DD(6912,7,0)="PHONE^FX^^1;5^K:$L(X)>20!($L(X)<8)!(X'?.ANP) X I $D(DA)=1 K:DA<50000 X"
^DD(6912,7,3)="Entries must be as follows (314) 652-3942 or 652-3942 with extensions following i.e. 652-3942 ext.675. YOU CANNOT EDIT THE NATIONAL PORTION OF THE FILE."
^DD(6912,7,21,0)="^^1^1^2930429^"
^DD(6912,7,21,1,0)="Commercial telephone number (including area code)."
^DD(6912,7,"DT")="2841206"
^DD(6912,10,0)="PSEUDONYM^6912.01^^5;0"
^DD(6912,10,21,0)="^^1^1^2930429^"
^DD(6912,10,21,1,0)="Other names by which this manufacturer is commonly known."
^DD(6912,"B","CITY",4)=""
^DD(6912,"B","DIVISION",2)=""
^DD(6912,"B","MFG'S FULL LENGTH NAME",1)=""
^DD(6912,"B","MFG/DIV",.01)=""
^DD(6912,"B","MFGID",.001)=""
^DD(6912,"B","PHONE",7)=""
^DD(6912,"B","PSEUDONYM",10)=""
^DD(6912,"B","STATE",5)=""
^DD(6912,"B","STREET",3)=""
^DD(6912,"B","ZIP",6)=""
^DD(6912,"GL",0,1,.01)=""
^DD(6912,"GL",0,2,1)=""
^DD(6912,"GL",0,3,2)=""
^DD(6912,"GL",1,1,3)=""
^DD(6912,"GL",1,2,4)=""
^DD(6912,"GL",1,3,5)=""
^DD(6912,"GL",1,4,6)=""
^DD(6912,"GL",1,5,7)=""
^DD(6912,"GL",5,0,10)=""
^DD(6912,"IX",.01)=""
^DD(6912,"RQ",.01)=""
^DD(6912,"SB",6912.01,10)=""
^DD(6912.01,0)="PSEUDONYM SUB-FIELD^NL^.01^1"
^DD(6912.01,0,"NM","PSEUDONYM")=""
^DD(6912.01,0,"UP")="6912"
^DD(6912.01,.01,0)="PSEUDONYM^MFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:X[""""""""!($A(X)=45)!(X'?.ANP) X I $D(X) K:$L(X)>79!($L(X)<1) X"
^DD(6912.01,.01,1,0)="^.1"
^DD(6912.01,.01,1,1,0)="6912^C"
^DD(6912.01,.01,1,1,1)="S ^ENG(""MFG"",""C"",$E(X,1,30),DA(1),DA)="""""
^DD(6912.01,.01,1,1,2)="K ^ENG(""MFG"",""C"",$E(X,1,30),DA(1),DA)"
^DD(6912.01,.01,3)="ANSWER MUST BE 1-79 CHARACTERS IN LENGTH."
^DD(6912.01,.01,21,0)="^^1^1^2930429^"
^DD(6912.01,.01,21,1,0)="Common name of manufacturing firm."
^DD(6912.01,.01,"DT")="2960830"
^DD(6912.01,"B","PSEUDONYM",.01)=""
^DD(6912.01,"GL",0,1,.01)=""
^DD(6912.01,"IX",.01)=""
^DD(6914,0)="FIELD^^99^90"
^DD(6914,0,"DDA")="N"
^DD(6914,0,"DT")="2970418"
^DD(6914,0,"ID",5)="W:$D(^(1)) ""   "",$P(^(1),U,3)"
^DD(6914,0,"ID",6)="S %I=Y,Y=$S('$D(^(1)):"""",$D(^ENG(6911,+$P(^(1),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(6911,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(6914,0,"ID",20)="W:$D(^(3)) ""   "",@(""$P($P($C(59)_$S($D(^DD(6914,20,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(3),U,1)_"""":"""",2),$C(59),1)"")"
^DD(6914,0,"ID",25)="W:$D(^(3)) ""   "",$P(^(3),U,6)"
^DD(6914,0,"ID",26)="W:$D(^(3)) ""   "",$P(^(3),U,7)"
^DD(6914,0,"IX","AB",6914.04,.01)=""
^DD(6914,0,"IX","AC",6914,21)=""
^DD(6914,0,"IX","AD",6914,19)=""
^DD(6914,0,"IX","AE",6914,2)=""
^DD(6914,0,"IX","AF",6914,13)=""
^DD(6914,0,"IX","AG",6914,15)=""
^DD(6914,0,"IX","AH",6914,11)=""
^DD(6914,0,"IX","AI",6914,7)=""
^DD(6914,0,"IX","AJ",6914,9)=""
^DD(6914,0,"IX","AK",6914,71)=""
^DD(6914,0,"IX","AL",6914,79)=""
^DD(6914,0,"IX","AM",6914,71)=""
^DD(6914,0,"IX","AN",6914,24)=""
^DD(6914,0,"IX","ANSP",6914,90)=""
^DD(6914,0,"IX","AO",6914,51)=""
^DD(6914,0,"IX","AP",6914,71)=""
^DD(6914,0,"IX","AQ",6914,82)=""
^DD(6914,0,"IX","AR",6914,7)=""
^DD(6914,0,"IX","B",6914,.01)=""
^DD(6914,0,"IX","C",6914,25)=""
^DD(6914,0,"IX","D",6914,24)=""
^DD(6914,0,"IX","E",6914,4)=""
^DD(6914,0,"IX","EC",6914,4.1)=""
^DD(6914,0,"IX","EE",6914,.01)=""
^DD(6914,0,"IX","F",6914,5)=""
^DD(6914,0,"IX","FC",6914,5.1)=""
^DD(6914,0,"IX","G",6914,6)=""
^DD(6914,0,"IX","H",6914,3)=""
^DD(6914,0,"IX","I",6914,17)=""
^DD(6914,0,"IX","J",6914,18)=""
^DD(6914,0,"IX","K",6914,1)=""
^DD(6914,0,"IX","L",6914,26)=""
^DD(6914,0,"IX","M",6914,11)=""
^DD(6914,0,"IX","OEE",6914.05,.01)=""
^DD(6914,0,"NM","EQUIPMENT INV.")=""
^DD(6914,0,"PT",413.11,.01)=""
^DD(6914,0,"PT",6914,2)=""
^DD(6914,0,"PT",6914,51)=""
^DD(6914,0,"PT",6915.2,.01)=""
^DD(6914,0,"PT",6915.3,.01)=""
^DD(6914,0,"PT",6915.4,.01)=""
^DD(6914,0,"PT",6915.5,.01)=""
^DD(6914,0,"PT",6915.6,.01)=""
^DD(6914,0,"PT",6916.3,.01)=""
^DD(6914,0,"PT",6918,.01)=""
^DD(6914,0,"PT",6920,18)=""
^DD(6914,0,"VR")="7.0"
^DD(6914,0,"VRPK")="EN"
^DD(6914,.01,0)="ENTRY NUMBER^RNJ10,0X^^0;1^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) K:$L(X)>($L($P(^ENG(6914,0),U,3))+1) X I $D(X) S DINUM=+X"
^DD(6914,.01,1,0)="^.1"
^DD(6914,.01,1,1,0)="6914^B"
^DD(6914,.01,1,1,1)="S ^ENG(6914,""B"",$E(X,1,30),DA)="""""
^DD(6914,.01,1,1,2)="K ^ENG(6914,""B"",$E(X,1,30),DA)"
^DD(6914,.01,1,2,0)="6914^EE^MUMPS"
^DD(6914,.01,1,2,1)="S ^ENG(6914,""EE"",$P(^DIC(6910,1,0),U,2)_"" EE""_DA,DA)="""""
^DD(6914,.01,1,2,2)="K ^ENG(6914,""EE"",$P(^DIC(6910,1,0),U,2)_"" EE""_DA,DA)"
^DD(6914,.01,1,2,"%D",0)="^^1^1^2970227^"
^DD(6914,.01,1,2,"%D",1,0)="Equipment bar code label."
^DD(6914,.01,1,2,"DT")="2970227"
^DD(6914,.01,1,3,0)="^^TRIGGER^6914^.5"
^DD(6914,.01,1,3,1)="X ^DD(6914,.01,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6914,.01,1,3,1.4)"
^DD(6914,.01,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,6),0)):"""",1:$P(^(0),U,1))="""""
^DD(6914,.01,1,3,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,6)=DIV,DIH=6914,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,.01,1,3,2)="Q"
^DD(6914,.01,1,3,"CREATE CONDITION")="#.5="""""
^DD(6914,.01,1,3,"CREATE VALUE")="S X=DUZ"
^DD(6914,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(6914,.01,1,3,"DT")="2961112"
^DD(6914,.01,1,3,"FIELD")="#.5"
^DD(6914,.01,1,4,0)="^^TRIGGER^6914^.6"
^DD(6914,.01,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7)="""" I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(6914,.01,1,4,1.4)"
^DD(6914,.01,1,4,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,7)=DIV,DIH=6914,DIG=.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,.01,1,4,2)="Q"
^DD(6914,.01,1,4,"CREATE CONDITION")="#.6="""""
^DD(6914,.01,1,4,"CREATE VALUE")="TODAY"
^DD(6914,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(6914,.01,1,4,"DT")="2961112"
^DD(6914,.01,1,4,"FIELD")="#.6"
^DD(6914,.01,3)="WHOLE NUMBER BETWEEN 1 AND 9999999999"
^DD(6914,.01,21,0)="^^3^3^2961217^^^^"
^DD(6914,.01,21,1,0)="Changed to a sequential number with Version 6.4 so that file can be used"
^DD(6914,.01,21,2,0)="during the equipment request process; before manufacturer, model, and"
^DD(6914,.01,21,3,0)="serial number are established."
^DD(6914,.01,"AUDIT")=""
^DD(6914,.01,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Can't delete until FD Document sent."","""",""!?5"") I 1"
^DD(6914,.01,"DT")="2970227"
^DD(6914,.5,0)="ENTERED BY^P200'^VA(200,^0;6^Q"
^DD(6914,.5,5,1,0)="6914^.01^3"
^DD(6914,.5,9)="^"
^DD(6914,.5,21,0)="^^2^2^2961107^"
^DD(6914,.5,21,1,0)="Person that initially entered the equipment record. Automatically"
^DD(6914,.5,21,2,0)="populated."
^DD(6914,.5,"DT")="2961107"
^DD(6914,.6,0)="DATE ENTERED^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6914,.6,5,1,0)="6914^.01^4"
^DD(6914,.6,9)="^"
^DD(6914,.6,21,0)="^^1^1^2961107^"
^DD(6914,.6,21,1,0)="Date the equipment record was initially entered. Automatically populated."
^DD(6914,.6,"DT")="2961107"
^DD(6914,1,0)="MANUFACTURER^P6912'^ENG(""MFG"",^1;4^Q"
^DD(6914,1,1,0)="^.1^^-1"
^DD(6914,1,1,1,0)="6914^K"
^DD(6914,1,1,1,1)="S ^ENG(6914,""K"",$E(X,1,30),DA)="""""
^DD(6914,1,1,1,2)="K ^ENG(6914,""K"",$E(X,1,30),DA)"
^DD(6914,1,3)=""
^DD(6914,1,21,0)="^^2^2^2890618^^^"
^DD(6914,1,21,1,0)="Firm that actually manufactured this equipment, not necessarily the"
^DD(6914,1,21,2,0)="company from which it was purchased."
^DD(6914,1,"DT")="2950619"
^DD(6914,2,0)="PARENT SYSTEM^P6914'X^ENG(6914,^0;3^K:X=DA X"
^DD(6914,2,1,0)="^.1"
^DD(6914,2,1,1,0)="6914^AE"
^DD(6914,2,1,1,1)="S ^ENG(6914,""AE"",$E(X,1,30),DA)="""""
^DD(6914,2,1,1,2)="K ^ENG(6914,""AE"",$E(X,1,30),DA)"
^DD(6914,2,1,2,0)="^^TRIGGER^6914^82"
^DD(6914,2,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(6914,2,1,2,1.1) X ^DD(6914,2,1,2,1.4)"
^DD(6914,2,1,2,1.1)="S X=DIV X ^DD(6914,2,1,2,49.2) S X=$S('$D(^ENG(6918.1,+$P(Y(101),U,12),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0)"
^DD(6914,2,1,2,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""""),DIV=X S $P(^(9),U,12)=DIV,DIH=6914,DIG=82 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,2,1,2,2)="Q"
^DD(6914,2,1,2,49.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(6914,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6914,D0,9)):^(9),1:"""")"
^DD(6914,2,1,2,"%D",0)="^^2^2^2980821^"
^DD(6914,2,1,2,"%D",1,0)="Will populate the Y2K UTILITY SYSTEMS field when a Y2K UTILITY SYSTEMS"
^DD(6914,2,1,2,"%D",2,0)="field exists for a newly defined PARENT SYSTEM."
^DD(6914,2,1,2,"CREATE VALUE")="#2:#82"
^DD(6914,2,1,2,"DELETE VALUE")="NO EFFECT"
^DD(6914,2,1,2,"DT")="2980821"
^DD(6914,2,1,2,"FIELD")="#82"
^DD(6914,2,21,0)="^^9^9^2890618^^^"
^DD(6914,2,21,1,0)="If Item A is a component of Item B, then the PARENT field of Item A"
^DD(6914,2,21,2,0)="should contain the CONTROL NUMBER of Item B. If Item B is, in turn,"
^DD(6914,2,21,3,0)="a component of an even larger Item C; then the PARENT field of Item B"
^DD(6914,2,21,4,0)="should contain the CONTROL NUMBER of Item C, and so on."
^DD(6914,2,21,5,0)="Inventory items with no entry in the PARENT field are either free"
^DD(6914,2,21,6,0)="standing devices or major systems with one or more levels of components"
^DD(6914,2,21,7,0)="beneath them."
^DD(6914,2,21,8,0)="An item must already be in the EQUIPMENT file before it can be named"
^DD(6914,2,21,9,0)="as the PARENT of another item."
^DD(6914,2,"DT")="2980821"
^DD(6914,3,0)="MFGR. EQUIPMENT NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<1)!'(X?.ANP) X"
^DD(6914,3,1,0)="^.1"
^DD(6914,3,1,1,0)="6914^H"
^DD(6914,3,1,1,1)="S ^ENG(6914,""H"",$E(X,1,40),DA)="""""
^DD(6914,3,1,1,2)="K ^ENG(6914,""H"",$E(X,1,40),DA)"
^DD(6914,3,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(6914,3,21,0)="^^3^3^2920410^^^^"
^DD(6914,3,21,1,0)="Brief narrative description of item.  For NX (non-expendable) equipment,"
^DD(6914,3,21,2,0)="this data element can be triggered in from the Category Stock Number"
^DD(6914,3,21,3,0)="file if your site chooses to do so."
^DD(6914,3,"DT")="2880418"
^DD(6914,4,0)="MODEL^FX^^1;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X?.ANP)!($E(X)'?1AN) X"
^DD(6914,4,1,0)="^.1"
^DD(6914,4,1,1,0)="6914^E"
^DD(6914,4,1,1,1)="S ^ENG(6914,""E"",$E(X,1,30),DA)="""""
^DD(6914,4,1,1,2)="K ^ENG(6914,""E"",$E(X,1,30),DA)"
^DD(6914,4,1,1,"DT")="2970304"
^DD(6914,4,1,2,0)="^^TRIGGER^6914^4.1"
^DD(6914,4,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(6914,4,1,2,1.1) X ^DD(6914,4,1,2,1.4)"
^DD(6914,4,1,2,1.1)="S X=DIV X ^DD(6914,4,1,2,49.3) X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S X=X_"" """
^DD(6914,4,1,2,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=6914,DIG=4.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,4,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(6914,4,1,2,2.4)"
^DD(6914,4,1,2,2.4)="S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,5)=DIV,DIH=6914,DIG=4.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,4,1,2,49.2)="S X=DIV,Y(1)=X S X="" ~!@#$%^&*()_+|`-=\{}[]:"""";'<>?,./"",Y(2)=X S X="""""
^DD(6914,4,1,2,49.3)="X ^DD(6914,4,1,2,49.2) S X1=Y(2) S X2=Y(1) X ""F %=1:1:$L(X1) F %Y=0:0 S %Y=$F(X2,$E(X1,%),%Y) Q:'%Y  S I=$E(X,%),X2=$E(X2,1,%Y-2)_I_$E(X2,%Y,999) S:I="""""""" %Y=%Y-1"" S X=X2 S X=X"
^DD(6914,4,1,2,"%D",0)="^^2^2^2970305^"
^DD(6914,4,1,2,"%D",1,0)="Compressed version of MODEL. Spaces and punctuation stripped away. One"
^DD(6914,4,1,2,"%D",2,0)="space concatenated on end for consistency in sorting."
^DD(6914,4,1,2,"CREATE VALUE")="UPPERCASE(TRANSLATE(#4,"" ~!@#$%^&*()_+|`-=\{}[]:"""";'<>?,./"",""""))_"" """
^DD(6914,4,1,2,"DELETE VALUE")="@"
^DD(6914,4,1,2,"DT")="2970305"
^DD(6914,4,1,2,"FIELD")="#4.1"
^DD(6914,4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(6914,4,21,0)="^^2^2^2961011^"
^DD(6914,4,21,1,0)="Model number or designation, normally assigned by manufacturer. Spaces and"
^DD(6914,4,21,2,0)="punctuation may be included."
^DD(6914,4,"DT")="2970304"
^DD(6914,4.1,0)="MODEL(C)^F^^1;5^K:$L(X)>31!($L(X)<1) X"
^DD(6914,4.1,1,0)="^.1"
^DD(6914,4.1,1,1,0)="6914^EC"
^DD(6914,4.1,1,1,1)="S ^ENG(6914,""EC"",$E(X,1,30),DA)="""""
^DD(6914,4.1,1,1,2)="K ^ENG(6914,""EC"",$E(X,1,30),DA)"
^DD(6914,4.1,1,1,"DT")="2970131"
^DD(6914,4.1,3)="Answer must be 1-31 characters in length."
^DD(6914,4.1,5,1,0)="6914^4^2"
^DD(6914,4.1,9)="^"
^DD(6914,4.1,21,0)="^^3^3^2970131^"
^DD(6914,4.1,21,1,0)="This field contains a compressed value of the MODEL field. The computer"
^DD(6914,4.1,21,2,0)="automatically populates this field by stripping the MODEL of punctuation"
^DD(6914,4.1,21,3,0)="and spaces and changing any lowercase characters to uppercase."
^DD(6914,4.1,"DT")="2970224"
^DD(6914,5,0)="SERIAL #^FX^^1;3^K:$L(X)>30!($L(X)<1)!'(X?.NAP) X I $D(X),$G(DIUTIL)'=""VERIFY FIELDS"",$D(^ENG(6914,""F"",X)) D EN^DDIOL($C(7)_""NOTE: This serial number already in use."","""",""!?15"") I $D(DJSC) H 3"
^DD(6914,5,1,0)="^.1"
^DD(6914,5,1,1,0)="6914^F"
^DD(6914,5,1,1,1)="S ^ENG(6914,""F"",$E(X,1,30),DA)="""""
^DD(6914,5,1,1,2)="K ^ENG(6914,""F"",$E(X,1,30),DA)"
^DD(6914,5,1,1,"DT")="2970304"
^DD(6914,5,1,2,0)="^^TRIGGER^6914^5.1"
^DD(6914,5,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(6914,5,1,2,1.1) X ^DD(6914,5,1,2,1.4)"
^DD(6914,5,1,2,1.1)="S X=DIV X ^DD(6914,5,1,2,49.3) X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"" S X=X_"" """
^DD(6914,5,1,2,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,6)=DIV,DIH=6914,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,5,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6914,D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(6914,5,1,2,2.4)"
^DD(6914,5,1,2,2.4)="S DIH=$S($D(^ENG(6914,DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,6)=DIV,DIH=6914,DIG=5.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,5,1,2,49.2)="S X=DIV,Y(1)=X S X="" ~!@#$%^&*()_+|`{}[]:"""";'<>?,./-=\"",Y(2)=X S X="""""
^DD(6914,5,1,2,49.3)="X ^DD(6914,5,1,2,49.2) S X1=Y(2) S X2=Y(1) X ""F %=1:1:$L(X1) F %Y=0:0 S %Y=$F(X2,$E(X1,%),%Y) Q:'%Y  S I=$E(X,%),X2=$E(X2,1,%Y-2)_I_$E(X2,%Y,999) S:I="""""""" %Y=%Y-1"" S X=X2 S X=X"
^DD(6914,5,1,2,"%D",0)="^^2^2^2970305^^"
^DD(6914,5,1,2,"%D",1,0)="Compressed version of SERIAL #. Spaces and punctuation stripped away. One"
^DD(6914,5,1,2,"%D",2,0)="space added for consistency in sorting."
^DD(6914,5,1,2,"CREATE VALUE")="UPPERCASE(TRANSLATE(#5,"" ~!@#$%^&*()_+|`{}[]:"""";'<>?,./-=\"",""""))_"" """
^DD(6914,5,1,2,"DELETE VALUE")="@"
^DD(6914,5,1,2,"DT")="2970304"
^DD(6914,5,1,2,"FIELD")="#5.1"
^DD(6914,5,3)="Answer must be 1-30 characters in length."
^DD(6914,5,21,0)="^^3^3^2961120^^"
^DD(6914,5,21,1,0)="Serial number. Assigned by manufacturer. Should be unique within model"
^DD(6914,5,21,2,0)="and manufacturer. Use numbers, upper case letters, punctuation, and spaces"
^DD(6914,5,21,3,0)="as needed."
^DD(6914,5,"AUDIT")=""
^DD(6914,5,"DT")="2980424"
^DD(6914,5.1,0)="SERIAL #(C)^F^^1;6^K:$L(X)>31!($L(X)<1) X"
^DD(6914,5.1,1,0)="^.1"
^DD(6914,5.1,1,1,0)="6914^FC"
^DD(6914,5.1,1,1,1)="S ^ENG(6914,""FC"",$E(X,1,30),DA)="""""
^DD(6914,5.1,1,1,2)="K ^ENG(6914,""FC"",$E(X,1,30),DA)"
^DD(6914,5.1,1,1,"DT")="2970214"
^DD(6914,5.1,3)="Answer must be 1-31 characters in length."
^DD(6914,5.1,5,1,0)="6914^5^2"
^DD(6914,5.1,9)="^"
^DD(6914,5.1,21,0)="^^3^3^2970224^^^"
^DD(6914,5.1,21,1,0)="This field contains a compressed value of the SERIAL # field. The computer"
^DD(6914,5.1,21,2,0)="automatically populates this field by stripping the SERIAL # of"
^DD(6914,5.1,21,3,0)="punctuation and spaces and changing any lowercase characters to uppercase."
^DD(6914,5.1,"DT")="2970224"
^DD(6914,6,0)="EQUIPMENT CATEGORY^P6911'^ENG(6911,^1;1^Q"
^DD(6914,6,1,0)="^.1"
^DD(6914,6,1,1,0)="6914^G"
^DD(6914,6,1,1,1)="S ^ENG(6914,""G"",$E(X,1,30),DA)="""""
^DD(6914,6,1,1,2)="K ^ENG(6914,""G"",$E(X,1,30),DA)"
^DD(6914,6,1,2,0)="^^TRIGGER^6914^27"
^DD(6914,6,1,2,1)="X ^DD(6914,6,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(6914,6,1,2,1.1) X ^DD(6914,6,1,2,1.4)"
^DD(6914,6,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6911,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(6914,6,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,6,1,2,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,3)_"":"",2),$C(59),1)]"""" S D0=I(0,0)"
^DD(6914,6,1,2,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),3)):^(3),1:""""),DIV=X S $P(^(3),U,9)=DIV,DIH=6914,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,6,1,2,2)="Q"
^DD(6914,6,1,2,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(6911,3,0)):$P(^(0),U,3),1:""""),Y(101)=$S($D(^ENG(6911,D0,0)):^(0),1:"""")"
^DD(6914,6,1,2,"%D",0)="^^2^2^2970121^"
^DD(6914,6,1,2,"%D",1,0)="This is a convenience trigger. It will only be executed if the JCAHO field"
^DD(6914,6,1,2,"%D",2,0)="in the EQUIPMENT CATEGORY File (#6911) has a value."
^DD(6914,6,1,2,"CREATE CONDITION")="#6:#3]"""""
^DD(6914,6,1,2,"CREATE VALUE")="INTERNAL(#6:#3)"
^DD(6914,6,1,2,"DELETE VALUE")="NO EFFECT"
^DD(6914,6,1,2,"DT")="2970121"
^DD(6914,6,1,2,"FIELD")="JCAHO"
^DD(6914,6,1,3,0)="^^TRIGGER^6914^9"
^DD(6914,6,1,3,1)="X ^DD(6914,6,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(6914,6,1,3,1.1) X ^DD(6914,6,1,3,1.4)"
^DD(6914,6,1,3,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6911,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2),X=X S X=X S D0=I(0,0)"
^DD(6914,6,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,6,1,3,69.2) S X=$P($P(Y(102),$C(59)_$P(Y(101),U,2)_"":"",2),$C(59),1)]"""" S D0=I(0,0)"
^DD(6914,6,1,3,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=6914,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,6,1,3,2)="Q"
^DD(6914,6,1,3,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^ENG(6911,+D0,0)) D0=-1 S Y(102)=$C(59)_$S($D(^DD(6911,2,0)):$P(^(0),U,3),1:""""),Y(101)=$S($D(^ENG(6911,D0,0)):^(0),1:"""")"
^DD(6914,6,1,3,"%D",0)="^^3^3^2970121^"
^DD(6914,6,1,3,"%D",1,0)="Makes it possible for sites to maintain the 'LOCKOUT REQUIRED?' fields in"
^DD(6914,6,1,3,"%D",2,0)="their Equipment File (#6914) by maintaining the 'LOCKOUT REQUIRED?' fields"
^DD(6914,6,1,3,"%D",3,0)="in their Equipment Category File (#6911), which has fewer records."
^DD(6914,6,1,3,"CREATE CONDITION")="#6:#2]"""""
^DD(6914,6,1,3,"CREATE VALUE")="INTERNAL(#6:#2)"
^DD(6914,6,1,3,"DELETE VALUE")="NO EFFECT"
^DD(6914,6,1,3,"DT")="2970121"
^DD(6914,6,1,3,"FIELD")="lock"
^DD(6914,6,3)=""
^DD(6914,6,21,0)="^^3^3^2970418^^^"
^DD(6914,6,21,1,0)="Category of device (ex: DEFIBRILLATOR, AIR CONDITIONER, etc.) to which"
^DD(6914,6,21,2,0)="this piece of equipment belongs. Useful in establishing and maintaining"
^DD(6914,6,21,3,0)="preventive maintenance schedules."
^DD(6914,6,"AUDIT")=""
^DD(6914,6,"DT")="2970418"
^DD(6914,7,0)="TYPE OF ENTRY^SX^NX:NON-EXPENDABLE EQPT;BSE:BUILDING SERVICE EQPT;EXP:EXPENDABLE EQPT;^0;4^I $G(DIUTIL)'=""VERIFY FIELDS"" D TYPE^ENLIB3"
^DD(6914,7,1,0)="^.1"
^DD(6914,7,1,1,0)="6914^AI^MUMPS"
^DD(6914,7,1,1,1)="I $P(^ENG(6914,DA,0),U,4)=""NX"",$P($G(^(2)),U,3)>4999.99,$P($G(^(8)),U,2)="""" S $P(^(8),U,2)=$S($P($G(^(2)),U,3)>99999.99:1,1:""A"")"
^DD(6914,7,1,1,2)="Q"
^DD(6914,7,1,1,"%D",0)="^.101^2^2^3020604^^^^"
^DD(6914,7,1,1,"%D",1,0)="Populate a blank INVESTMENT CATEGORY for NX equipment with a value of"
^DD(6914,7,1,1,"%D",2,0)="$5,000 or more."
^DD(6914,7,1,1,"DT")="3020604"
^DD(6914,7,1,2,0)="6914^AR"
^DD(6914,7,1,2,1)="S ^ENG(6914,""AR"",$E(X,1,30),DA)="""""
^DD(6914,7,1,2,2)="K ^ENG(6914,""AR"",$E(X,1,30),DA)"
^DD(6914,7,1,2,"DT")="2980826"
^DD(6914,7,21,0)="^.001^2^2^3020530^^^"
^DD(6914,7,21,1,0)="Discriminates between entries for which a CMR Official is legally"
^DD(6914,7,21,2,0)="responsible and those that are accounted for in other ways."
^DD(6914,7,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Can't change this field until FD Document sent."","""",""!?5"") I 1"
^DD(6914,7,"DT")="3020604"
^DD(6914,8,0)="*FEDERAL SUPPLY CLASSIFICATION^P441.2'^PRC(441.2,^2;11^Q"
^DD(6914,8,21,0)="^.001^3^3^3050614^^"
^DD(6914,8,21,1,0)="Federal supply classification. Please enter the FSC that most closely"
^DD(6914,8,21,2,0)="categorizes this item."
^DD(6914,8,21,3,0)="NOTE: This field is not used and it will be deleted by a future version."
^DD(6914,8,"DT")="2970214"
^DD(6914,9,0)="LOCKOUT REQUIRED?^S^0:NO;1:YES;^0;5^Q"
^DD(6914,9,1,0)="^.1"
^DD(6914,9,1,1,0)="6914^AJ"
^DD(6914,9,1,1,1)="S ^ENG(6914,""AJ"",$E(X,1,30),DA)="""""
^DD(6914,9,1,1,2)="K ^ENG(6914,""AJ"",$E(X,1,30),DA)"
^DD(6914,9,1,1,"DT")="2960913"
^DD(6914,9,3)="Must this equipment be rendered inoperative prior to service."
^DD(6914,9,5,1,0)="6914^6^3"
^DD(6914,9,21,0)="^^7^7^2960531^^^^"
^DD(6914,9,21,1,0)="OSHA requires employers to establish energy control procedures to ensure"
^DD(6914,9,21,2,0)="that employees do not attempt to service equipment where the unexpected"
^DD(6914,9,21,3,0)="energizing, start up, or release of stored energy could occur and cause"
^DD(6914,9,21,4,0)="injury until the equipment has been isolated and rendered inoperative."
^DD(6914,9,21,5,0)=" "
^DD(6914,9,21,6,0)="This field should be set to YES if this procedure (commonly called"
^DD(6914,9,21,7,0)="LOCKOUT/TAGOUT) is required."
^DD(6914,9,"DT")="2960913"
^DD(6914,10,0)="VENDOR POINTER^P440'^PRC(440,^2;1^Q"
^DD(6914,10,1,0)="^.1^^0"
^DD(6914,10,21,0)="^^1^1^2880831^"
^DD(6914,10,21,1,0)="Vendor from whom unit was actually purchased."
^DD(6914,10,"DT")="2950619"
^DD(6914,11,0)="PURCHASE ORDER #^FX^^2;2^K:X[""""""""!($A(X)=45) X I $D(X) K:X[""""""""!(X'?.ANP) X I $D(X) K:$L(X)>12!($L(X)<1) X"
^DD(6914,11,1,0)="^.1^^-1"
^DD(6914,11,1,1,0)="6914^M"
^DD(6914,11,1,1,1)="S ^ENG(6914,""M"",$E(X,1,30),DA)="""""
^DD(6914,11,1,1,2)="K ^ENG(6914,""M"",$E(X,1,30),DA)"
^DD(6914,11,1,2,0)="6914^AH^MUMPS"
^DD(6914,11,1,2,1)="D ^ENLIB3"
^DD(6914,11,1,2,2)="Q"
^DD(6914,11,1,2,"DT")="2960216"
^DD(6914,11,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(6914,11,21,0)="^^3^3^2880831^"
^DD(6914,11,21,1,0)="VA Purchase Order number. May be assigned by the facility or perhaps by"
^DD(6914,11,21,2,0)="a centralized purchasing unit of the Office of Acquisitions and Material"
^DD(6914,11,21,3,0)="Management."
^DD(6914,11,"DT")="3030317"
^DD(6914,12,0)="TOTAL ASSET VALUE^NJ10,2X^^2;3^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>99999999)!(X<0) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$P(^ENG(6914,DA,0),U,4)=""NX"" D NX^ENLIB3"
^DD(6914,12,1,0)="^.1^^0"
^DD(6914,12,3)="TYPE A NUMBER BETWEEN 0 AND 99999999"
^DD(6914,12,21,0)="^^2^2^2960719^^^"
^DD(6914,12,21,1,0)="Cost of this equipment at the time of purchase. This field is likely to"
^DD(6914,12,21,2,0)="become the basis for estimating depreciated value and replacement cost."
^DD(6914,12,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FC Document to change this field."","""",""!?5"") I 1"
^DD(6914,12,"DT")="2970225"
^DD(6914,12.5,0)="LEASE COST^NJ10,2^^2;12^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(6914,12.5,1,0)="^.1^^0"
^DD(6914,12.5,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(6914,12.5,21,0)="^^1^1^2910701^^^"
^DD(6914,12.5,21,1,0)="Annual lease cost."
^DD(6914,12.5,"DT")="2950619"
^DD(6914,13,0)="ACQUISITION DATE^DX^^2;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$P(^ENG(6914,DA,0),U,4)=""NX"" D NX^ENLIB3"
^DD(6914,13,1,0)="^.1^^-1"
^DD(6914,13,1,1,0)="6914^AF^MUMPS"
^DD(6914,13,1,1,1)="I $P(^ENG(6914,DA,2),U,6)]"""",$P(^(2),U,10)="""" S $P(^(2),U,10)=($E(X,1,3)+$P(^(2),U,6))_$S($E(X,4,7)=""0229"":""0228"",1:$E(X,4,7))"
^DD(6914,13,1,1,2)="Q"
^DD(6914,13,1,1,"%D",0)="^^2^2^2960724^"
^DD(6914,13,1,1,"%D",1,0)="Determine initial replacement date from acquisition date and life"
^DD(6914,13,1,1,"%D",2,0)="expectancy."
^DD(6914,13,1,1,"DT")="2960724"
^DD(6914,13,21,0)="^^2^2^2880831^"
^DD(6914,13,21,1,0)="Date of acceptance of this equipment by the agency. Month and year are"
^DD(6914,13,21,2,0)="generally sufficient."
^DD(6914,13,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FC Document to change this field."","""",""!?5"") I 1"
^DD(6914,13,"DT")="2961031"
^DD(6914,13.5,0)="ACQUISITION SOURCE^P420.8'X^PRCD(420.8,^2;14^I $G(DIUTIL)'=""VERIFY FIELDS"",$P(^ENG(6914,DA,0),U,4)=""NX"" D NX^ENLIB3"
^DD(6914,13.5,1,0)="^.1^^0"
^DD(6914,13.5,21,0)="^^1^1^2930429^"
^DD(6914,13.5,21,1,0)="Source of acquisition for this piece of equipment."
^DD(6914,13.5,"DT")="2961031"
^DD(6914,14,0)="WARRANTY EXP. DATE^D^^2;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6914,14,21,0)="^^2^2^2880831^"
^DD(6914,14,21,1,0)="Date on which repairs to this item become the sole responsibility of the"
^DD(6914,14,21,2,0)="government. Generally stipulated in the contract or sales agreement."
^DD(6914,15,0)="LIFE EXPECTANCY^NJ2,0X^^2;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$P(^ENG(6914,DA,0),U,4)=""NX"" D NX^ENLIB3"
^DD(6914,15,1,0)="^.1^^-1"
^DD(6914,15,1,1,0)="6914^AG^MUMPS"
^DD(6914,15,1,1,1)="I $P(^ENG(6914,DA,2),U,4)]"""",$P(^(2),U,10)="""" S $P(^(2),U,10)=($E($P(^(2),U,4),1,3)+X)_$S($E($P(^(2),U,4),4,7)=""0229"":""0228"",1:$E($P(^(2),U,4),4,7))"
^DD(6914,15,1,1,2)="Q"
^DD(6914,15,1,1,"%D",0)="^^2^2^2960724^"
^DD(6914,15,1,1,"%D",1,0)="Determine initial replacement date from acquisition date and life"
^DD(6914,15,1,1,"%D",2,0)="expectancy."
^DD(6914,15,1,1,"DT")="2960724"
^DD(6914,15,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(6914,15,5,1,0)="6914^18^2"
^DD(6914,15,21,0)="^^3^3^2880831^"
^DD(6914,15,21,1,0)="Number of years for which this device is expected to provide useful and"
^DD(6914,15,21,2,0)="economical service. Generally determined by Supply Service on the basis"
^DD(6914,15,21,3,0)="of cumulative experience."
^DD(6914,15,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FC Document to change this field."","""",""!?5"") I 1"
^DD(6914,15,"DT")="2961031"
^DD(6914,16,0)="REPLACEMENT DATE^DX^^2;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) D DTCHK^ENLIB3(16) I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,16,1,0)="^.1^^0"
^DD(6914,16,21,0)="^^5^5^2880831^"
^DD(6914,16,21,1,0)="Date on which this equipment is scheduled for replacement. Month and year"
^DD(6914,16,21,2,0)="are sufficient. When equipment is entered, this field should be the"
^DD(6914,16,21,3,0)="ACQUISITION DATE plus the LIFE EXPECTANCY. As scheduled REPLACEMENT DATE"
^DD(6914,16,21,4,0)="is approached, however, it may be necessary to revise it. Such revisions"
^DD(6914,16,21,5,0)="do not always alter the official LIFE EXPECTANCY."
^DD(6914,16,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FC Document to change this field."","""",""!?5"") I 1"
^DD(6914,16,"DT")="2961031"
^DD(6914,17,0)="NXRN #^NJ8,0^^2;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6914,17,1,0)="^.1"
^DD(6914,17,1,1,0)="6914^I"
^DD(6914,17,1,1,1)="S ^ENG(6914,""I"",$E(X,1,30),DA)="""""
^DD(6914,17,1,1,2)="K ^ENG(6914,""I"",$E(X,1,30),DA)"
^DD(6914,17,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99999999"
^DD(6914,17,21,0)="^^2^2^2880831^"
^DD(6914,17,21,1,0)="Sequential number assigned by centralized CMR management system in Austin."
^DD(6914,17,21,2,0)="Should be unique within the facility."
^DD(6914,17,"DT")="2880721"
^DD(6914,18,0)="CATEGORY STOCK NUMBER^P6917'X^ENCSN(6917,^2;8^I $G(DIUTIL)'=""VERIFY FIELDS"",$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,18,1,0)="^.1"
^DD(6914,18,1,1,0)="6914^J"
^DD(6914,18,1,1,1)="S ^ENG(6914,""J"",$E(X,1,30),DA)="""""
^DD(6914,18,1,1,2)="K ^ENG(6914,""J"",$E(X,1,30),DA)"
^DD(6914,18,1,2,0)="^^TRIGGER^6914^15"
^DD(6914,18,1,2,1)="X ^DD(6914,18,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,2)):^(2),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(6914,18,1,2,1.1) X ^DD(6914,18,1,2,1.4)"
^DD(6914,18,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENCSN(6917,+D0,0)) D0=-1 S Y(101)=$S($D(^ENCSN(6917,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(6914,18,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,18,1,2,69.2) S X=X>0,Y(102)=X S X=Y(2)=0,Y=X,X=Y(102),X=X&Y S D0=I(0,0)"
^DD(6914,18,1,2,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,6)=DIV,DIH=6914,DIG=15 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,18,1,2,2)="Q"
^DD(6914,18,1,2,69.2)="X $P(^DD(6914,66,0),U,5,99) S Y(2)=X S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^ENCSN(6917,+D0,0)) D0=-1 S Y(101)=$S($D(^ENCSN(6917,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2)"
^DD(6914,18,1,2,"%D",0)="^^4^4^2960229^"
^DD(6914,18,1,2,"%D",1,0)="Brings in a value from the Category Stock Number. User may manually"
^DD(6914,18,1,2,"%D",2,0)="overwrite after the fact, but selection of a Category Stock Number is"
^DD(6914,18,1,2,"%D",3,0)="designed to automatically update the LIFE EXPECTANCY. Assets which are"
^DD(6914,18,1,2,"%D",4,0)="currently reported to FAP won't be changed."
^DD(6914,18,1,2,"CREATE CONDITION")="(#18:#1)>0&(#66=0)"
^DD(6914,18,1,2,"CREATE VALUE")="#18:#1"
^DD(6914,18,1,2,"DELETE VALUE")="NO EFFECT"
^DD(6914,18,1,2,"DT")="2960229"
^DD(6914,18,1,2,"FIELD")="#15"
^DD(6914,18,3)=""
^DD(6914,18,21,0)="^^3^3^2960822^^^^"
^DD(6914,18,21,1,0)="Pointer to Category Stock Number File. This file was introduced to DHCP"
^DD(6914,18,21,2,0)="with Version 6.5 of the Engineering Package, and is maintained by"
^DD(6914,18,21,3,0)="Acquisition and Materiel Management (Cataloging)."
^DD(6914,18,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FC Document to change this field."","""",""!?5"") I 1"
^DD(6914,18,"DT")="2961031"
^DD(6914,19,0)="CMR^P6914.1'X^ENG(6914.1,^2;9^I $G(DIUTIL)'=""VERIFY FIELDS"" K:$$CMRCHK^ENTIDD(DA,X) X I $D(X) D NX^ENLIB3"
^DD(6914,19,1,0)="^.1"
^DD(6914,19,1,1,0)="6914^AD"
^DD(6914,19,1,1,1)="S ^ENG(6914,""AD"",$E(X,1,30),DA)="""""
^DD(6914,19,1,1,2)="K ^ENG(6914,""AD"",$E(X,1,30),DA)"
^DD(6914,19,1,2,0)="^^TRIGGER^6914^60"
^DD(6914,19,1,2,1)="X ^DD(6914,19,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(6914,19,1,2,1.1) X ^DD(6914,19,1,2,1.4)"
^DD(6914,19,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(6914.1,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6914.1,D0,0)):^(0),1:"""") S X=$P(Y(101),U,7) S D0=I(0,0)"
^DD(6914,19,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6914,19,1,2,69.2) S X=$L(X)>2,Y(102)=X S X=Y(2)=0,Y=X,X=Y(102),X=X&Y S D0=I(0,0)"
^DD(6914,19,1,2,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""""),DIV=X S $P(^(9),U,5)=DIV,DIH=6914,DIG=60 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,19,1,2,2)="Q"
^DD(6914,19,1,2,69.2)="X $P(^DD(6914,66,0),U,5,99) S Y(2)=X S I(0,0)=$S($D(D0):D0,1:""""),D0=Y(0) S:'$D(^ENG(6914.1,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6914.1,D0,0)):^(0),1:"""") S X=$P(Y(101),U,7)"
^DD(6914,19,1,2,"%D",0)="^^2^2^2960228^"
^DD(6914,19,1,2,"%D",1,0)="Pick up accounting station from CMR when possible. Don't change if asset"
^DD(6914,19,1,2,"%D",2,0)="if currently reported to FAP."
^DD(6914,19,1,2,"CREATE CONDITION")="$L(#19:#5)>2&(#66=0)"
^DD(6914,19,1,2,"CREATE VALUE")="#19:#5"
^DD(6914,19,1,2,"DELETE VALUE")="NO EFFECT"
^DD(6914,19,1,2,"DT")="2960228"
^DD(6914,19,1,2,"FIELD")="#60"
^DD(6914,19,1,3,0)="^^TRIGGER^6914^21"
^DD(6914,19,1,3,1)="X ^DD(6914,19,1,3,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(6914,19,1,3,1.1) X ^DD(6914,19,1,3,1.4)"
^DD(6914,19,1,3,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(6914.1,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6914.1,D0,0)):^(0),1:"""") S X=$P(Y(101),U,5),X=X S X=X S D0=I(0,0)"
^DD(6914,19,1,3,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$S('$D(^DIC(49,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(6914,19,1,3,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),3)):^(3),1:""""),DIV=X S $P(^(3),U,2)=DIV,DIH=6914,DIG=21 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,19,1,3,2)="Q"
^DD(6914,19,1,3,"%D",0)="^^1^1^2960422^"
^DD(6914,19,1,3,"%D",1,0)="Picks up the SERVICE POINTER field from the CMR when possible."
^DD(6914,19,1,3,"CREATE CONDITION")="SERVICE POINTER="""""
^DD(6914,19,1,3,"CREATE VALUE")="INTERNAL(CMR:SERVICE)"
^DD(6914,19,1,3,"DELETE VALUE")="NO EFFECT"
^DD(6914,19,1,3,"DT")="2960422"
^DD(6914,19,1,3,"FIELD")="SERVICE POINTER"
^DD(6914,19,3)=""
^DD(6914,19,21,0)="^^2^2^2880823^^^^"
^DD(6914,19,21,1,0)="Consolidated Memorandum of Receipt. The basic instrument by which"
^DD(6914,19,21,2,0)="accountability for capital equipment is established."
^DD(6914,19,"AUDIT")=""
^DD(6914,19,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FR Document to change this field."","""",""!?5"") I 1"
^DD(6914,19,"DT")="3080204"
^DD(6914,19.5,0)="SERVICE CONTRACT^S^Y:YES;N:NO;^7;1^Q"
^DD(6914,19.5,21,0)="^^4^4^2880625^"
^DD(6914,19.5,21,1,0)="YES indicates that device in question is under a service contract with"
^DD(6914,19.5,21,2,0)="an entity outside the medical center. A more comprehensive module for"
^DD(6914,19.5,21,3,0)="service contracts is being developed jointly by AEMS/MERS and IFCAP"
^DD(6914,19.5,21,4,0)="and will appear in a future release."
^DD(6914,19.5,"DT")="2880625"
^DD(6914,19.6,0)="SERVICE CONTRACT COST^NJ9,2^^7;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>500000)!(X<0) X"
^DD(6914,19.6,3)="Type a Dollar Amount between 0 and 500000, 2 Decimal Digits"
^DD(6914,19.6,21,0)="^^3^3^2880625^"
^DD(6914,19.6,21,1,0)="Annual cost of service contract on this item. If contract involves one"
^DD(6914,19.6,21,2,0)="fixed amount for a number of like devices, you should prorate the cost"
^DD(6914,19.6,21,3,0)="among the covered items."
^DD(6914,19.6,"DT")="2880625"
^DD(6914,20,0)="USE STATUS^S^1:IN USE;2:OUT OF SERVICE;3:LOANED OUT;4:TURNED IN;5:LOST OR STOLEN;^3;1^Q"
^DD(6914,20,1,0)="^.1^^0"
^DD(6914,20,21,0)="^^2^2^2930429^"
^DD(6914,20,21,1,0)="Tells the user whether or not the equipment is currently in"
^DD(6914,20,21,2,0)="active use."
^DD(6914,20,"DT")="2950619"
^DD(6914,20.1,0)="ACQUISITION METHOD^S^C:CONSTRUCTED;G:GIFT/BEQUEST/DONATION;L:LEASED;M:CAPITAL LEASE;O:OTHER;P:PURCHASED;R:TRANSFERRED;T:TRADED;X:EXCESS;1:ON LOAN TO VAMC;^3;4^Q"
^DD(6914,20.1,1,0)="^.1^^0"
^DD(6914,20.1,21,0)="^^2^2^2971204^^^"
^DD(6914,20.1,21,1,0)="Set of codes which establishes whether or not the facility legally"
^DD(6914,20.1,21,2,0)="owns the equipment."
^DD(6914,20.1,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FC Document to change this field."","""",""!?5"") I 1"
^DD(6914,20.1,"DT")="2971204"
^DD(6914,20.5,0)="TURN-IN DATE^DX^^3;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) D DTCHK^ENLIB3(20.5) I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,20.5,1,0)="^.1^^0"
^DD(6914,20.5,21,0)="^^2^2^2911031^^^"
^DD(6914,20.5,21,1,0)="Date on which item is turned over to A&MM for disposition.  At this"
^DD(6914,20.5,21,2,0)="point it should be removed from the using service CMR."
^DD(6914,20.5,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FD Document to change this field."","""",""!?5"") I 1"
^DD(6914,20.5,"DT")="2961031"
^DD(6914,21,0)="SERVICE POINTER^P49'^DIC(49,^3;2^Q"
^DD(6914,21,1,0)="^.1"
^DD(6914,21,1,1,0)="6914^AC"
^DD(6914,21,1,1,1)="S ^ENG(6914,""AC"",$E(X,1,30),DA)="""""
^DD(6914,21,1,1,2)="K ^ENG(6914,""AC"",$E(X,1,30),DA)"
^DD(6914,21,5,1,0)="6914^19^3"
^DD(6914,21,21,0)="^^2^2^2880705^"
^DD(6914,21,21,1,0)="The functional entity (generally a service) within the facility that uses"
^DD(6914,21,21,2,0)="the device."
^DD(6914,21,"DT")="2880418"
^DD(6914,22,0)="DISPOSITION DATE^DX^^3;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) D DTCHK^ENLIB3(22) I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,22,1,0)="^.1^^0"
^DD(6914,22,21,0)="^^3^3^2911031^^"
^DD(6914,22,21,1,0)="Date on which item is physically disposed of by Materiel Management."
^DD(6914,22,21,2,0)="Items may be excessed, scrapped, etc.  Item is removed from asset"
^DD(6914,22,21,3,0)="account on this date."
^DD(6914,22,"AUDIT")=""
^DD(6914,22,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FD Document to change this field."","""",""!?5"") I 1"
^DD(6914,22,"DT")="2961031"
^DD(6914,23,0)="PHYSICAL INVENTORY DATE^DX^^2;13^S %DT=""E"",%DT(0)=""-NOW"" D ^%DT K %DT S X=Y K:Y<1 X"
^DD(6914,23,1,0)="^.1^^0"
^DD(6914,23,3)="Future dates are not allowed."
^DD(6914,23,21,0)="^^5^5^2970210^"
^DD(6914,23,21,1,0)="Date of last physical inventory of this item (CMR reconciliation)."
^DD(6914,23,21,2,0)="Intent is to populate this field automatically via physical inventory"
^DD(6914,23,21,3,0)="software using bar code technologies. Completion of a Preventive"
^DD(6914,23,21,4,0)="Maintenance Inspection will also update this field, provided that the PM"
^DD(6914,23,21,5,0)="STATUS does not contain 'DEFERRED'."
^DD(6914,23,"DT")="2970408"
^DD(6914,24,0)="LOCATION^P6928'^ENG(""SP"",^3;5^Q"
^DD(6914,24,1,0)="^.1"
^DD(6914,24,1,1,0)="6914^D"
^DD(6914,24,1,1,1)="S ^ENG(6914,""D"",$E(X,1,30),DA)="""""
^DD(6914,24,1,1,2)="K ^ENG(6914,""D"",$E(X,1,30),DA)"
^DD(6914,24,1,1,"DT")="2930120"
^DD(6914,24,1,2,0)="6914^AN^MUMPS"
^DD(6914,24,1,2,1)="S:$P($P($G(^ENG(""SP"",X,0)),U),""-"",2)]"""" ^ENG(6914,""N"",$P($P(^ENG(""SP"",X,0),U),""-"",2),DA)="""""
^DD(6914,24,1,2,2)="K:$P($P($G(^ENG(""SP"",X,0)),U),""-"",2)]"""" ^ENG(6914,""N"",$P($P(^ENG(""SP"",X,0),U),""-"",2),DA)"
^DD(6914,24,1,2,"%D",0)="^^1^1^2970227^"
^DD(6914,24,1,2,"%D",1,0)="Facilitates equipment lookup by BUILDING."
^DD(6914,24,1,2,"DT")="2970227"
^DD(6914,24,1,3,0)="^^TRIGGER^6914^24.5"
^DD(6914,24,1,3,1)="Q"
^DD(6914,24,1,3,2)="X ^DD(6914,24,1,3,2.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(6914,24,1,3,2.1) X ^DD(6914,24,1,3,2.4)"
^DD(6914,24,1,3,2.1)="S X=DIV S X=$S('$D(^ENG(""SP"",+X,0)):"""",1:$P(^(0),U,1))"
^DD(6914,24,1,3,2.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$S('$D(^ENG(""SP"",+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1))'=$S('$D(^ENG(""SP"",+X,0)):"""",1:$P(^(0),U,1))"
^DD(6914,24,1,3,2.4)="S DIH=$S($D(^ENG(6914,DIV(0),3)):^(3),1:""""),DIV=X S $P(^(3),U,8)=DIV,DIH=6914,DIG=24.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,24,1,3,"%D",0)="^^1^1^2960904^"
^DD(6914,24,1,3,"%D",1,0)="Save old value when changed. Maintains previous location chain."
^DD(6914,24,1,3,"CREATE VALUE")="NO EFFECT"
^DD(6914,24,1,3,"DELETE CONDITION")="LOCATION'=OLD LOCATION"
^DD(6914,24,1,3,"DELETE VALUE")="OLD LOCATION"
^DD(6914,24,1,3,"DT")="2960904"
^DD(6914,24,1,3,"FIELD")="PREVIOUS LOCATION"
^DD(6914,24,3)="Enter as ROOM-BUILDING (or select a SYNONYM)."
^DD(6914,24,21,0)="^^1^1^2961118^"
^DD(6914,24,21,1,0)="Physical location of this item at the facility."
^DD(6914,24,"DT")="3080204"
^DD(6914,24.5,0)="PREVIOUS LOCATION^FI^^3;8^K:$L(X)>20!($L(X)<3) X"
^DD(6914,24.5,1,0)="^.1"
^DD(6914,24.5,1,1,0)="^^TRIGGER^6914^29"
^DD(6914,24.5,1,1,1)="Q"
^DD(6914,24.5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,3)):^(3),1:"""") S X=$P(Y(1),U,8)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=X X ^DD(6914,24.5,1,1,2.4)"
^DD(6914,24.5,1,1,2.4)="S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""""),DIV=X S $P(^(9),U,1)=DIV,DIH=6914,DIG=29 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,24.5,1,1,"%D",0)="^^1^1^2960904^"
^DD(6914,24.5,1,1,"%D",1,0)="Save old value when changed."
^DD(6914,24.5,1,1,"CREATE VALUE")="NO EFFECT"
^DD(6914,24.5,1,1,"DELETE CONDITION")="PREVIOUS LOCATION'=OLD PREVIOUS LOCATION"
^DD(6914,24.5,1,1,"DELETE VALUE")="OLD PREVIOUS LOCATION"
^DD(6914,24.5,1,1,"DT")="2960904"
^DD(6914,24.5,1,1,"FIELD")="SECOND PREVIOUS LOCATION"
^DD(6914,24.5,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(6914,24.5,5,1,0)="6914^24^3"
^DD(6914,24.5,21,0)="^^3^3^2881006^"
^DD(6914,24.5,21,1,0)="Physical location of device immediately prior to its present location."
^DD(6914,24.5,21,2,0)="This field is intended to be maintained by inventory control software"
^DD(6914,24.5,21,3,0)="rather than by explicit data entry. Format should be same as LOCATION."
^DD(6914,24.5,"DT")="2960904"
^DD(6914,25,0)="VA PM NUMBER^FX^^3;6^K:X[""""""""!(X["" "")!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'(X?.ANP) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6914,""C"",X)) D EN^DDIOL($C(7)_""IN USE (Entry #: ""_$O(^ENG(6914,""C"",X,0))_"")."","""",""!?15"") K X"
^DD(6914,25,1,0)="^.1"
^DD(6914,25,1,1,0)="6914^C"
^DD(6914,25,1,1,1)="S ^ENG(6914,""C"",$E(X,1,30),DA)="""""
^DD(6914,25,1,1,2)="K ^ENG(6914,""C"",$E(X,1,30),DA)"
^DD(6914,25,3)="ANSWER MUST BE 9 OR 10 CHARACTERS IN LENGTH, NO SPACES"
^DD(6914,25,21,0)="^^3^3^2880831^"
^DD(6914,25,21,1,0)="Property management number. Assigned by Supply Service upon receipt of"
^DD(6914,25,21,2,0)="new equipment. Should be unique within the facility. First four digits"
^DD(6914,25,21,3,0)="correspond to the Federal Supply Classification number."
^DD(6914,25,"DT")="2980424"
^DD(6914,26,0)="LOCAL IDENTIFIER^FX^^3;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<3) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6914,""L"",X)) D EN^DDIOL($C(7)_""NOTE: This LOCAL ID is already in use."","""",""!?15"") I $D(DJSC) H 3"
^DD(6914,26,1,0)="^.1"
^DD(6914,26,1,1,0)="6914^L"
^DD(6914,26,1,1,1)="S ^ENG(6914,""L"",$E(X,1,30),DA)="""""
^DD(6914,26,1,1,2)="K ^ENG(6914,""L"",$E(X,1,30),DA)"
^DD(6914,26,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(6914,26,21,0)="^^2^2^2920108^^"
^DD(6914,26,21,1,0)="An optional identifier that has meaning to the facility. Most sites prefer"
^DD(6914,26,21,2,0)="to make these identifiers unique."
^DD(6914,26,"DT")="2980424"
^DD(6914,27,0)="JCAHO^S^Y:YES;N:NO;^3;9^Q"
^DD(6914,27,5,1,0)="6914^6^2"
^DD(6914,27,21,0)="^^4^4^2881006^"
^DD(6914,27,21,1,0)="New Joint Commission standards for accreditation of health care facilities"
^DD(6914,27,21,2,0)="require (in part) that a ""separable inventory"" of equipment be maintained."
^DD(6914,27,21,3,0)="This flag should be set to 'YES' for items subject to review by Joint"
^DD(6914,27,21,4,0)="Commission surveyors."
^DD(6914,27,"DT")="2881006"
^DD(6914,28,0)="BAR CODE LABEL DATE^D^^3;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6914,28,21,0)="^^4^4^2901016^"
^DD(6914,28,21,1,0)="Whenever a bar code label is produced, the current date is stored in"
^DD(6914,28,21,2,0)="this field. The Engineering Package does not use this information, but"
^DD(6914,28,21,3,0)="individual sites may find it helpful during the equipment lablelling"
^DD(6914,28,21,4,0)="process."
^DD(6914,28,"DT")="2901016"
^DD(6914,28.2,0)="ORIGINAL BAR CODE ID^6914.05^^12;0"
^DD(6914,29,0)="SECOND PREVIOUS LOCATION^F^^9;1^K:$L(X)>30!($L(X)<1) X"
^DD(6914,29,1,0)="^.1"
^DD(6914,29,1,1,0)="^^TRIGGER^6914^29.1"
^DD(6914,29,1,1,1)="Q"
^DD(6914,29,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,1)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=X X ^DD(6914,29,1,1,2.4)"
^DD(6914,29,1,1,2.4)="S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""""),DIV=X S $P(^(9),U,2)=DIV,DIH=6914,DIG=29.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,29,1,1,"%D",0)="^^1^1^2960904^"
^DD(6914,29,1,1,"%D",1,0)="Save old value when changed."
^DD(6914,29,1,1,"CREATE VALUE")="NO EFFECT"
^DD(6914,29,1,1,"DELETE CONDITION")="SECOND PREVIOUS LOCATION'=OLD SECOND PREVIOUS LOCATION"
^DD(6914,29,1,1,"DELETE VALUE")="OLD SECOND PREVIOUS LOCATION"
^DD(6914,29,1,1,"DT")="2960904"
^DD(6914,29,1,1,"FIELD")="THIRD PREVIOUS LOCATION"
^DD(6914,29,3)="Answer must be 1-30 characters in length."
^DD(6914,29,5,1,0)="6914^24.5^1"
^DD(6914,29,9)="^"
^DD(6914,29,21,0)="^^1^1^2930126^"
^DD(6914,29,21,1,0)="Previous location.  Maintained automatically."
^DD(6914,29,"DT")="2960904"
^DD(6914,29.1,0)="THIRD PREVIOUS LOCATION^F^^9;2^K:$L(X)>30!($L(X)<1) X"
^DD(6914,29.1,1,0)="^.1"
^DD(6914,29.1,1,1,0)="^^TRIGGER^6914^29.2"
^DD(6914,29.1,1,1,1)="Q"
^DD(6914,29.1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,2)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=X X ^DD(6914,29.1,1,1,2.4)"
^DD(6914,29.1,1,1,2.4)="S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""""),DIV=X S $P(^(9),U,3)=DIV,DIH=6914,DIG=29.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,29.1,1,1,"%D",0)="^^1^1^2960904^"
^DD(6914,29.1,1,1,"%D",1,0)="Save old value when changed."
^DD(6914,29.1,1,1,"CREATE VALUE")="NO EFFECT"
^DD(6914,29.1,1,1,"DELETE CONDITION")="THIRD PREVIOUS LOCATION'=OLD THIRD PREVIOUS LOCATION"
^DD(6914,29.1,1,1,"DELETE VALUE")="OLD THIRD PREVIOUS LOCATION"
^DD(6914,29.1,1,1,"DT")="2960904"
^DD(6914,29.1,1,1,"FIELD")="FOURTH PREVIOUS LOCATION"
^DD(6914,29.1,3)="Answer must be 1-30 characters in length."
^DD(6914,29.1,5,1,0)="6914^29^1"
^DD(6914,29.1,9)="^"
^DD(6914,29.1,21,0)="^^1^1^2930126^"
^DD(6914,29.1,21,1,0)="Previous location.  Automatically maintained."
^DD(6914,29.1,"DT")="2960904"
^DD(6914,29.2,0)="FOURTH PREVIOUS LOCATION^F^^9;3^K:$L(X)>30!($L(X)<1) X"
^DD(6914,29.2,1,0)="^.1"
^DD(6914,29.2,1,1,0)="^^TRIGGER^6914^29.3"
^DD(6914,29.2,1,1,1)="Q"
^DD(6914,29.2,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,3)'=X I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,9)):^(9),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=X X ^DD(6914,29.2,1,1,2.4)"
^DD(6914,29.2,1,1,2.4)="S DIH=$S($D(^ENG(6914,DIV(0),9)):^(9),1:""""),DIV=X S $P(^(9),U,4)=DIV,DIH=6914,DIG=29.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,29.2,1,1,"%D",0)="^^1^1^2960904^"
^DD(6914,29.2,1,1,"%D",1,0)="Save old value when changed."
^DD(6914,29.2,1,1,"CREATE VALUE")="NO EFFECT"
^DD(6914,29.2,1,1,"DELETE CONDITION")="FOURTH PREVIOUS LOCATION'=OLD FOURTH PREVIOUS LOCATION"
^DD(6914,29.2,1,1,"DELETE VALUE")="OLD FOURTH PREVIOUS LOCATION"
^DD(6914,29.2,1,1,"DT")="2960904"
^DD(6914,29.2,1,1,"FIELD")="FIFTH PREVIOUS LOCATION"
^DD(6914,29.2,3)="Answer must be 1-30 characters in length."
^DD(6914,29.2,5,1,0)="6914^29.1^1"
^DD(6914,29.2,9)="^"
^DD(6914,29.2,21,0)="^^1^1^2960904^^"
^DD(6914,29.2,21,1,0)="Previous location.  Automatically maintained."
^DD(6914,29.2,"DT")="2960904"
^DD(6914,29.3,0)="FIFTH PREVIOUS LOCATION^F^^9;4^K:$L(X)>30!($L(X)<1) X"
^DD(6914,29.3,3)="Answer must be 1-30 characters in length."
^DD(6914,29.3,5,1,0)="6914^29.2^1"
^DD(6914,29.3,9)="^"
^DD(6914,29.3,21,0)="^^1^1^2930126^"
^DD(6914,29.3,21,1,0)="Previous location.  Maintained automatically."
^DD(6914,29.3,"DT")="2930126"
^DD(6914,30,0)="RESPONSIBLE SHOP^6914.04PA^^4;0"
^DD(6914,30,21,0)="^^4^4^2950627^^^^"
^DD(6914,30,21,1,0)="Any shop having maintenance responsibility for this item should be entered"
^DD(6914,30,21,2,0)="here. The principal use of this field is in generating preventive"
^DD(6914,30,21,3,0)="maintenance worklists. If there is no RESPONSIBLE SHOP, the item will"
^DD(6914,30,21,4,0)="be ignored by the PM module."
^DD(6914,31,0)="DISPOSITION METHOD^P6914.8'X^ENG(6914.8,^3;12^I $G(DIUTIL)'=""VERIFY FIELDS"",$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,31,1,0)="^.1^^0"
^DD(6914,31,3)=""
^DD(6914,31,21,0)="^^2^2^2911031^^"
^DD(6914,31,21,1,0)="The means by which Materiel Management finally disposes of a piece"
^DD(6914,31,21,2,0)="of equipment that has been 'turned in'."
^DD(6914,31,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FD Document to change this field."","""",""!?5"") I 1"
^DD(6914,31,"DT")="2961031"
^DD(6914,31.5,0)="ORIGINAL ASSET VALUE^NJ11,2I^^3;15^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(6914,31.5,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(6914,31.5,21,0)="^^4^4^2961015^"
^DD(6914,31.5,21,1,0)="The historical asset value of capitalized nonexpendable (NX) equipment"
^DD(6914,31.5,21,2,0)="which has been turned-in. This field is automatically populated with the"
^DD(6914,31.5,21,3,0)="current asset value when a FD Document for Turn-In is generated. This"
^DD(6914,31.5,21,4,0)="value is necessary for disposition reports."
^DD(6914,31.5,"DT")="2961021"
^DD(6914,32,0)="DISPOSITION VALUE^NJ10,2X^^3;13^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$P(^ENG(6914,DA,0),U,4)=""NX"" D NX^ENLIB3"
^DD(6914,32,1,0)="^.1^^0"
^DD(6914,32,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(6914,32,21,0)="^^9^9^2911031^^^"
^DD(6914,32,21,1,0)="Monetary value realized by the VA from the disposition of used"
^DD(6914,32,21,2,0)="equipment. May be in the form of trade-in value, resale value,"
^DD(6914,32,21,3,0)="or scrap value."
^DD(6914,32,21,4,0)=" "
^DD(6914,32,21,5,0)="Not required if DISPOSITION METHOD is EXCHANGE/SALE, VA EXCESS TO OGA,"
^DD(6914,32,21,6,0)="ABANDONED/DESTROYED, or STATION EXCESS REASSIGNED WITHIN VA."
^DD(6914,32,21,7,0)=" "
^DD(6914,32,21,8,0)="Enter proceeds realized from VA EXCESS TO SCRAP or VA EXCESS SOLD"
^DD(6914,32,21,9,0)="BY VA."
^DD(6914,32,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FD Document to change this field."","""",""!?5"") I 1"
^DD(6914,32,"DT")="2961031"
^DD(6914,33,0)="CONTROLLED ITEM?^S^0:NO;1:YES;^8;1^Q"
^DD(6914,33,1,0)="^.1^^0"
^DD(6914,33,21,0)="^^1^1^2961217^^^"
^DD(6914,33,21,1,0)="Prior approval of VACO is required."
^DD(6914,33,"DT")="2950619"
^DD(6914,34,0)="INVESTMENT CATEGORY^SX^1:CAPITALIZED/ACCOUNTABLE;A:NOT CAPITALIZED/ACCOUNTABLE;0:EXPENSED/OPTIONALLY ACCOUNTABLE;^8;2^I $G(DIUTIL)'=""VERIFY FIELDS"" D CAP^ENLIB3"
^DD(6914,34,1,0)="^.1^^0"
^DD(6914,34,21,0)="^^11^11^3020529^^^"
^DD(6914,34,21,1,0)="This field identifies the capitalization status and accountability of"
^DD(6914,34,21,2,0)="nonexpendable equipment. In general, equipment with an asset value of"
^DD(6914,34,21,3,0)="$100,000 or more is capitalized.  In general, equipment with an asset value"
^DD(6914,34,21,4,0)="of $5,000 or more must be inventoried (accountable) per VHA directive.  In"
^DD(6914,34,21,5,0)="general, equipment with asset an value less than $5,000 is not required to"
^DD(6914,34,21,6,0)="be inventoried by VHA directive, but may have to be inventoried per VISN"
^DD(6914,34,21,7,0)="or Medical Center requirements (optionally accountable)."
^DD(6914,34,21,8,0)=" "
^DD(6914,34,21,9,0)="Accountable equipment (capitalized and not capitalized) will be included"
^DD(6914,34,21,10,0)="on the Equipment Inventory Listing (EIL) report.  Other equipment will be"
^DD(6914,34,21,11,0)="included on the Non-EIL Inventory report."
^DD(6914,34,23,0)="^^5^5^2991012^"
^DD(6914,34,23,1,0)="The internal value of the field must evaluate as false when an equipment"
^DD(6914,34,23,2,0)="item is not capitalized.  Some existing programs identify equipment as"
^DD(6914,34,23,3,0)="capitalized when the internal value of this field is true.  Other programs"
^DD(6914,34,23,4,0)="identify equipment as capitalized when the internal value of this field is"
^DD(6914,34,23,5,0)="1."
^DD(6914,34,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Can't change this field until FD Document sent."","""",""!?5"") I 1"
^DD(6914,34,"DT")="3020529"
^DD(6914,35,0)="FUND CONTROL POINT^FX^^8;3^K:$L(X)>30!($L(X)<3) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,35,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(6914,35,21,0)="^^2^2^2911030^^"
^DD(6914,35,21,1,0)="Fund Control Point from which item was originally procured."
^DD(6914,35,21,2,0)="If unknown, leave blank."
^DD(6914,35,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FR Document to change this field."","""",""!?5"") I 1"
^DD(6914,35,"DT")="2961031"
^DD(6914,36,0)="*COST CENTER^P420.1'X^PRCD(420.1,^8;4^I $G(DIUTIL)'=""VERIFY FIELDS"",$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,36,1,0)="^.1^^0"
^DD(6914,36,3)=""
^DD(6914,36,21,0)="^^4^4^2970414^"
^DD(6914,36,21,1,0)="This field is no longer used. The cost center of an equipment item is now"
^DD(6914,36,21,2,0)="computed based on the first two characters of the CMR field. See the COST"
^DD(6914,36,21,3,0)="CENTER field in the CMR file for more information. The cost center can be"
^DD(6914,36,21,4,0)="printed in equipment reports by using CMR:COST CENTER."
^DD(6914,36,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FR Document to change this field."","""",""!?5"") I 1"
^DD(6914,36,"DT")="2970414"
^DD(6914,37,0)="*SUBACCOUNT^P420.2'^PRCD(420.2,^8;5^Q"
^DD(6914,37,21,0)="^^1^1^2970214^"
^DD(6914,37,21,1,0)="NOTE: This field is not used and it will be deleted by a future version."
^DD(6914,37,"DT")="2970214"
^DD(6914,38,0)="STANDARD GENERAL LEDGER^*P6914.3'X^ENG(6914.3,^8;6^S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DIUTIL)'=""VERIFY FIELDS"" D NX^ENLIB3"
^DD(6914,38,1,0)="^.1^^0"
^DD(6914,38,3)=""
^DD(6914,38,5,1,0)="6914^61^1"
^DD(6914,38,12)="Only active SGLs can be selected."
^DD(6914,38,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"""
^DD(6914,38,21,0)="^^3^3^2950913^^^^"
^DD(6914,38,21,1,0)="In accordance with the VA administrative accounting system. Only a"
^DD(6914,38,21,2,0)="limited number of Standard General Ledger Accounts are appropriate"
^DD(6914,38,21,3,0)="for use with non-expendable equipment."
^DD(6914,38,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Can't change this field until FD Document sent."","""",""!?5"") I 1"
^DD(6914,38,"DT")="2971021"
^DD(6914,39,0)="*YALD CODE^F^^8;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<3) X"
^DD(6914,39,1,0)="^.1^^0"
^DD(6914,39,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(6914,39,21,0)="^^1^1^2970214^"
^DD(6914,39,21,1,0)="NOTE: This field is not used and it will be deleted by a future version."
^DD(6914,39,"DT")="2970214"
^DD(6914,40,0)="COMMENTS^6914.01^^5;0"
^DD(6914,40,21,0)="^^2^2^2880831^"
^DD(6914,40,21,1,0)="Any information that may be of value to Engineering or Supply Service"
^DD(6914,40,21,2,0)="in managing this equipment."
^DD(6914,50,0)="EQUIPMENT HISTORY^6914.02IA^^6;0"
^DD(6914,50,21,0)="^^3^3^2911024^^"
^DD(6914,50,21,1,0)="History of all maintenance performed on this equipment. Maintained"
^DD(6914,50,21,2,0)="automatically by the Work Order module of AEMS/MERS. Under normal"
^DD(6914,50,21,3,0)="circumstances, this field should not be edited via File Manager."
^DD(6914,51,0)="REPLACING (ENTRY NUMBER)^P6914'^ENG(6914,^8;8^Q"
^DD(6914,51,1,0)="^.1"
^DD(6914,51,1,1,0)="6914^AO"
^DD(6914,51,1,1,1)="S ^ENG(6914,""AO"",$E(X,1,30),DA)="""""
^DD(6914,51,1,1,2)="K ^ENG(6914,""AO"",$E(X,1,30),DA)"
^DD(6914,51,1,1,"DT")="2980408"
^DD(6914,51,3)=""
^DD(6914,51,21,0)="^^2^2^2980413^^"
^DD(6914,51,21,1,0)="If this item was acquired as REPLACEMENT EQUIPMENT, then the old ENTRY"
^DD(6914,51,21,2,0)="NUMBER of the item which it replaced should appear in this field."
^DD(6914,51,"DT")="2980413"
^DD(6914,52,0)="REPLACEMENT UPDATE CODE^S^4:NOT TO BE REPLACED;5:TO BE REPLACED UNDER ACTIVATION PROJECT;6:ON ORDER;^8;9^Q"
^DD(6914,52,21,0)="^^1^1^2921030^"
^DD(6914,52,21,1,0)="Replacement information needed by A&MM."
^DD(6914,52,"DT")="2921030"
^DD(6914,53,0)="CONDITION CODE^S^1:LIKE NEW;2:GOOD;3:POOR;^3;16^Q"
^DD(6914,53,3)="Enter code that corresponds to condition of equipment."
^DD(6914,53,21,0)="^^9^9^2970211^"
^DD(6914,53,21,1,0)="Condition code of equipment is normally determined by an Engineering"
^DD(6914,53,21,2,0)="technician and entered during close out of a work order. The code are:"
^DD(6914,53,21,3,0)=" "
^DD(6914,53,21,4,0)=" (1) LIKE NEW - Like new condition, good performance record,"
^DD(6914,53,21,5,0)="                low service cost."
^DD(6914,53,21,6,0)=" (2) GOOD     - Middle of service life, fair performance record,"
^DD(6914,53,21,7,0)="                increasing service cost."
^DD(6914,53,21,8,0)=" (3) POOR     - Approaching end of service life, poor performance record,"
^DD(6914,53,21,9,0)="                high service cost, consider budgeting for replacement."
^DD(6914,53,"DT")="2970211"
^DD(6914,60,0)="STATION NUMBER^FX^^9;5^K:$L(X)>5!($L(X)<3)!'(X?3N.NU) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,60,3)="Answer must be 3-5 characters in length."
^DD(6914,60,5,1,0)="6914^19^2"
^DD(6914,60,21,0)="^^3^3^2950719^"
^DD(6914,60,21,1,0)="Station number of the facility that owns this equipment. If this equipment"
^DD(6914,60,21,2,0)="is owned by a national cemetery that is serviced by a VAMC, then the"
^DD(6914,60,21,3,0)="station number of the cemetery should appear in this field."
^DD(6914,60,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Can't change this field until FD Document sent."","""",""!?5"") I 1"
^DD(6914,60,"DT")="2961031"
^DD(6914,61,0)="BUDGET OBJECT CODE^*P6914.4'X^ENG(6914.4,^9;6^S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DIUTIL)'=""VERIFY FIELDS"" D NX^ENLIB3"
^DD(6914,61,1,0)="^.1"
^DD(6914,61,1,1,0)="^^TRIGGER^6914^38"
^DD(6914,61,1,1,1)="X ^DD(6914,61,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6914,D0,8)):^(8),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(6914,61,1,1,1.1) X ^DD(6914,61,1,1,1.4)"
^DD(6914,61,1,1,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(6914.4,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6914.4,D0,0)):^(0),1:"""") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)"
^DD(6914,61,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ""N Y S Y=$G(^ENG(6914,DA,3)) S X=$P(Y,U)<4&($P(Y,U,3)="""""""")&($P(Y,U,11)="""""""")&('+$$CHKFA^ENFAUTL(DA)) Q"""
^DD(6914,61,1,1,1.4)="S DIH=$S($D(^ENG(6914,DIV(0),8)):^(8),1:""""),DIV=X S $P(^(8),U,6)=DIV,DIH=6914,DIG=38 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6914,61,1,1,2)="Q"
^DD(6914,61,1,1,"%D",0)="^^3^3^2960228^"
^DD(6914,61,1,1,"%D",1,0)="Set the standard general ledger to a value which corresponds to the budget"
^DD(6914,61,1,1,"%D",2,0)="object code for assets which have not been turned-in or dispositioned and"
^DD(6914,61,1,1,"%D",3,0)="are not currently reported to FAP."
^DD(6914,61,1,1,"CREATE CONDITION")="X ""N Y S Y=$G(^ENG(6914,DA,3)) S X=$P(Y,U)<4&($P(Y,U,3)="""""""")&($P(Y,U,11)="""""""")&('+$$CHKFA^ENFAUTL(DA)) Q"""
^DD(6914,61,1,1,"CREATE VALUE")="INTERNAL(#61:#2)"
^DD(6914,61,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6914,61,1,1,"DT")="2960228"
^DD(6914,61,1,1,"FIELD")="#38"
^DD(6914,61,12)="Only active budget object codes can be selected."
^DD(6914,61,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"""
^DD(6914,61,21,0)="^^1^1^2950719^"
^DD(6914,61,21,1,0)="An accounting classification."
^DD(6914,61,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FR Document to change this field."","""",""!?5"") I 1"
^DD(6914,61,"DT")="2971021"
^DD(6914,62,0)="FUND^*P6914.6'X^ENG(6914.6,^9;7^S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DIUTIL)'=""VERIFY FIELDS"" D NX^ENLIB3"
^DD(6914,62,12)="Only active FUNDs can be selected."
^DD(6914,62,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"""
^DD(6914,62,21,0)="^^2^2^2950719^"
^DD(6914,62,21,1,0)="The Fund Code (from the Treasury Symbol) under which this equipment was"
^DD(6914,62,21,2,0)="procured."
^DD(6914,62,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FR Document to change this field."","""",""!?5"") I 1"
^DD(6914,62,"DT")="2971021"
^DD(6914,63,0)="ADMINISTRATION/OFFICE^P6914.7'X^ENG(6914.7,^9;8^I $G(DIUTIL)'=""VERIFY FIELDS"",$D(^ENG(6915.2,""B"",DA)) D NX^ENLIB3"
^DD(6914,63,3)=""
^DD(6914,63,21,0)="^^1^1^2950719^"
^DD(6914,63,21,1,0)="An accounting classification."
^DD(6914,63,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Use FR Document to change this field."","""",""!?5"") I 1"
^DD(6914,63,"DT")="2961031"
^DD(6914,64,0)="EQUITY ACCOUNT^SX^3299:MEDICAL;3210:NON-MEDICAL;3402:DONATED;^9;9^I $G(DIUTIL)'=""VERIFY FIELDS"",$P(^ENG(6914,DA,0),U,4)=""NX"" D NX^ENLIB3"
^DD(6914,64,21,0)="^^1^1^2950719^"
^DD(6914,64,21,1,0)="An accounting classification used primarily in cost distribution reports."
^DD(6914,64,"DEL",1,0)="I +$$CHKFA^ENFAUTL(DA) D EN^DDIOL(""Item reported to FAP. Can't change this field until FD Document sent."","""",""!?5"") I 1"
^DD(6914,64,"DT")="2961031"
^DD(6914,65,0)="DATE OF FAP CONVERSION^D^^9;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6914,65,21,0)="^^2^2^2951009^"
^DD(6914,65,21,1,0)="Date on which this equipment record was converted to Fixed Asset Package"
^DD(6914,65,21,2,0)="format. It is generally unnecessary to convert any record more than once."
^DD(6914,65,"DT")="2951009"
^DD(6914,66,0)="REPORTED TO FAP^CJ1^^ ; ^S X=+$$CHKFA^ENFAUTL(D0)"
^DD(6914,66,9)="^"
^DD(6914,66,9.01)=""
^DD(6914,66,9.1)="S X=+$$CHKFA^ENFAUTL(D0)"
^DD(6914,66,21,0)="^^2^2^2960228^"
^DD(6914,66,21,1,0)="This field will equal 1 when the equipment item is currently reported to"
^DD(6914,66,21,2,0)="the Fixed Assets package in Austin. Otherwise it will equal 0."
^DD(6914,70,0)="SPEX^6914.03^^10;0"
^DD(6914,71,0)="Y2K CATEGORY^SX^FC:FULLY COMPLIANT;CC:CONDITIONALLY COMPLIANT;NC:NON-COMPLIANT;NA:NOT APPLICABLE;^11;1^D EDITY2^ENLIB4"
^DD(6914,71,1,0)="^.1"
^DD(6914,71,1,1,0)="6914^AK"
^DD(6914,71,1,1,1)="S ^ENG(6914,""AK"",$E(X,1,30),DA)="""""
^DD(6914,71,1,1,2)="K ^ENG(6914,""AK"",$E(X,1,30),DA)"
^DD(6914,71,1,1,"DT")="2980226"
^DD(6914,71,1,2,0)="6914^AM^MUMPS"
^DD(6914,71,1,2,1)="D:'$D(DIU(0)) LOG^ENY2UTL"
^DD(6914,71,1,2,2)="Q"
^DD(6914,71,1,2,"%D",0)="^^1^1^2980723^^^^"
^DD(6914,71,1,2,"%D",1,0)="Maintains the Y2K log file."
^DD(6914,71,1,2,"DT")="2980723"
^DD(6914,71,1,3,0)="6914^AP^MUMPS"
^DD(6914,71,1,3,1)="D:'$D(DIU(0)) COST^ENY2UTL"
^DD(6914,71,1,3,2)="Q"
^DD(6914,71,1,3,"%D",0)="^^1^1^2980723^^"
^DD(6914,71,1,3,"%D",1,0)="Delete Y2K expectancies if Y2K CATEGORY changed to NC or NA."
^DD(6914,71,1,3,"DT")="2980723"
^DD(6914,71,21,0)="^^9^9^2980922^^^"
^DD(6914,71,21,1,0)="FC =>  Fully compliant. Device will function properly in all respects on"
^DD(6914,71,21,2,0)="       January 1, 2000 without user intervention."
^DD(6914,71,21,3,0)="CC =>  Conditionally compliant. Device requires user intervention to"
^DD(6914,71,21,4,0)="       function properly in all respects on January 1, 2000. This may"
^DD(6914,71,21,5,0)="       include a manufacturer software and/or hardware update or other"
^DD(6914,71,21,6,0)="       one-time user action."
^DD(6914,71,21,7,0)="NC =>  Non-compliant. Device will not function properly on January 1, 2000"
^DD(6914,71,21,8,0)="       and no known remedy is available."
^DD(6914,71,21,9,0)="NA =>  Not applicable. There are no Y2K implications for this device."
^DD(6914,71,"DEL",1,0)="I $P($G(DJJ(25)),U,3)=71"
^DD(6914,71,"DT")="2980922"
^DD(6914,71.5,0)="SOURCE OF Y2K CATEGORY^RS^VA:VA WEB SITE;MAN:MANUFACTURER WEB SITE OR LETTER;LOC:LOCAL ASSESSMENT;^11;11^Q"
^DD(6914,71.5,21,0)="^^13^13^2980518^"
^DD(6914,71.5,21,1,0)="The source of the Y2K categorization for this item. This required field"
^DD(6914,71.5,21,2,0)="will default to ""Local assessment"" and will not appear on any packaged"
^DD(6914,71.5,21,3,0)="reports. You may access the information via VA FileMan if you need it."
^DD(6914,71.5,21,4,0)=" "
^DD(6914,71.5,21,5,0)="""Local assessment"" generally means that specific information from the VA"
^DD(6914,71.5,21,6,0)="web site and/or the device manufacturer is unavailable (and perhaps"
^DD(6914,71.5,21,7,0)="unnecessary). In these cases, Y2K categorization is made on the basis of"
^DD(6914,71.5,21,8,0)="the professional opinion of facility management staff."
^DD(6914,71.5,21,9,0)=" "
^DD(6914,71.5,21,10,0)="Sites are cautioned against attempting to perform actual Y2K compliance"
^DD(6914,71.5,21,11,0)="tests on equipment that may have Y2K problems because advanced date"
^DD(6914,71.5,21,12,0)="simulation in systems with embedded microprocessors may be very difficult"
^DD(6914,71.5,21,13,0)="to achieve."
^DD(6914,71.5,"DT")="2980518"
^DD(6914,72,0)="ESTIMATED Y2K COMPLIANCE DATE^DX^^11;2^S %DT=""EF"" D ^%DT S X=Y K:3101231<X!(2900101>X) X"
^DD(6914,72,3)="TYPE A DATE BETWEEN 1/1/1990 AND 12/31/2010"
^DD(6914,72,21,0)="^^4^4^2980521^^"
^DD(6914,72,21,1,0)="This field is to be populated only for Y2K CONDITIONALLY COMPLIANT"
^DD(6914,72,21,2,0)="devices. It is the date by which a Y2K remedy is expected to be available"
^DD(6914,72,21,3,0)="and installable. This field will be automatically deleted upon closeout of"
^DD(6914,72,21,4,0)="an appropriate Y2K work order."
^DD(6914,72,"DT")="2980521"
^DD(6914,72.1,0)="ACTUAL Y2K COMPLIANCE DATE^D^^11;10^S %DT=""E"" D ^%DT S X=Y K:3091231<X!(2800101>X) X"
^DD(6914,72.1,3)="TYPE A DATE BETWEEN 1/1/1980 AND 12/31/2009"
^DD(6914,72.1,21,0)="^^1^1^2980305^"
^DD(6914,72.1,21,1,0)="Date (month & year is enough) when device was made Y2K compliant."
^DD(6914,72.1,"DT")="2980305"
^DD(6914,73,0)="ESTIMATED Y2K COMPLIANCE COST^NJ10,2^^11;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(6914,73,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(6914,73,21,0)="^^4^4^2980616^"
^DD(6914,73,21,1,0)="This field is to be populated for Y2K CONDITIONALLY COMPLIANT devices"
^DD(6914,73,21,2,0)="only. It is the estimated cost of whatever it will take to make each"
^DD(6914,73,21,3,0)="subject piece of equipment Y2K compliant; including station labor,"
^DD(6914,73,21,4,0)="materials, and/or contractor assistance."
^DD(6914,73,"DT")="2980223"
^DD(6914,74,0)="ACTUAL Y2K COMPLIANCE COST^NJ10,2^^11;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(6914,74,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(6914,74,21,0)="^^2^2^2980223^^"
^DD(6914,74,21,1,0)="The actual cost of making the device Y2K compliant. This field will be"
^DD(6914,74,21,2,0)="populated automatically upon closeout of an appropriate Y2K work order."
^DD(6914,74,"DT")="2980223"
^DD(6914,75,0)="Y2K TECHNICIAN^P6929'^ENG(""EMP"",^11;5^Q"
^DD(6914,75,21,0)="^^4^4^2980223^"
^DD(6914,75,21,1,0)="The engineering employee who is personally responsible for implementation"
^DD(6914,75,21,2,0)="of the Y2K upgrade. This field should be populated only for Y2K"
^DD(6914,75,21,3,0)="CONDITIONALLY COMPLIANT devices and will be used (if it exists) by the"
^DD(6914,75,21,4,0)="system whenever Y2K worklists are printed."
^DD(6914,75,"DT")="2980223"
^DD(6914,76,0)="Y2K ACTION^S^RET:Retire;REP:Replace;USE:Use Without an Update;^11;6^Q"
^DD(6914,76,21,0)="^^2^2^2980223^"
^DD(6914,76,21,1,0)="This field should be populated only for devices that are Y2K"
^DD(6914,76,21,2,0)="NON-COMPLIANT. It indicates the plan of action."
^DD(6914,76,"DT")="2980402"
^DD(6914,76.1,0)="Y2K ESTIMATED REPLACEMENT DATE^D^^11;13^S %DT=""E"" D ^%DT S X=Y K:3200000<X!(2900000>X) X"
^DD(6914,76.1,3)="TYPE A DATE BETWEEN 1990 AND 2020"
^DD(6914,76.1,21,0)="^^2^2^2980819^"
^DD(6914,76.1,21,1,0)="Date by which site plans to replace this item with something that is Y2K"
^DD(6914,76.1,21,2,0)="compliant."
^DD(6914,76.1,"DT")="2980819"
^DD(6914,77,0)="Y2K ASSIGNED SHOP^P6922'^DIC(6922,^11;7^Q"
^DD(6914,77,21,0)="^^6^6^2980227^"
^DD(6914,77,21,1,0)="The ENGINEERING SECTION that has been assigned responsibility for making"
^DD(6914,77,21,2,0)="this device Y2K compliant. This is the section to which the Y2K work order"
^DD(6914,77,21,3,0)="will be assigned. If this field is not populated then Y2K work orders will"
^DD(6914,77,21,4,0)="be assigned to the RESPONSIBLE SHOP (first entry) if one exists. If their"
^DD(6914,77,21,5,0)="is neither a Y2K ASSIGNED SHOP nor a RESPONSIBLE SHOP, then the Y2K work"
^DD(6914,77,21,6,0)="order will be assigned to the primary biomedical engineering section."
^DD(6914,77,"DT")="2980226"
^DD(6914,78,0)="Y2K COMPLIANCE WORK ORDER (POINTER)^*P6920'^ENG(6920,^11;8^I $E(X,1,3)=""Y2-"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6914,78,1,0)="^.1^^0"
^DD(6914,78,3)=""
^DD(6914,78,12)="Y2K work orders only."
^DD(6914,78,12.1)="I $E(X,1,3)=""Y2-"""
^DD(6914,78,21,0)="^^13^13^2980302^^"
^DD(6914,78,21,1,0)="Whenever a Y2K work order is created (in routine ENY2K5) this field (and"
^DD(6914,78,21,2,0)="its regular cross-reference) in the Equipment File is populated via hard"
^DD(6914,78,21,3,0)="code. THIS FIELD SHOULD NEVER BE DELETED AS LONG AS Y2K IS AN ISSUE."
^DD(6914,78,21,4,0)=" "
^DD(6914,78,21,5,0)="To avert possible confusion, no Y2K work order number will ever be"
^DD(6914,78,21,6,0)="assigned to more than one piece of equipment. In like manner, no piece of"
^DD(6914,78,21,7,0)="equipment will ever have more than one Y2K work order number. If more than"
^DD(6914,78,21,8,0)="one shop needs to work on the same piece of equipment for Y2K compliance,"
^DD(6914,78,21,9,0)="then the work order will be assigned to the primary shop and other shops"
^DD(6914,78,21,10,0)="will charge their time and materials to this primary work order."
^DD(6914,78,21,11,0)=" "
^DD(6914,78,21,12,0)="If a Y2K work order is closed inappropriately, it can always be re-opened"
^DD(6914,78,21,13,0)="and corrected via the Edit Work Order option [ENWOEDIT]."
^DD(6914,78,"DT")="2980617"
^DD(6914,79,0)="Y2K COMPLIANCE WORK ORDER (TEXT)^F^^11;9^K:$L(X)>16!($L(X)<12) X"
^DD(6914,79,1,0)="^.1"
^DD(6914,79,1,1,0)="6914^AL"
^DD(6914,79,1,1,1)="S ^ENG(6914,""AL"",$E(X,1,30),DA)="""""
^DD(6914,79,1,1,2)="K ^ENG(6914,""AL"",$E(X,1,30),DA)"
^DD(6914,79,1,1,3)="Referred to in generation of Y2K work orders."
^DD(6914,79,1,1,"DT")="2980617"
^DD(6914,79,3)="Answer must be 12-16 characters in length."
^DD(6914,79,21,0)="^^1^1^2980617^^"
^DD(6914,79,21,1,0)="Automatically populated with original Y2K work order number."
^DD(6914,79,"DT")="2980617"
^DD(6914,80,0)="Y2K NOTES^F^^11;12^K:$L(X)>80!($L(X)<3) X"
^DD(6914,80,3)="Answer must be 3-80 characters in length."
^DD(6914,80,21,0)="^^6^6^2980518^"
^DD(6914,80,21,1,0)="This free text field (80 char max) is intended for use with conditionally"
^DD(6914,80,21,2,0)="compliant and non-compliant devices only. If populated, it will be"
^DD(6914,80,21,3,0)="appended to the COMMENTS field and printed on the Y2K worklist (for"
^DD(6914,80,21,4,0)="conditionally compliant equipment)."
^DD(6914,80,21,5,0)=" "
^DD(6914,80,21,6,0)="Sites are not required to use this field."
^DD(6914,80,"DT")="2980518"
^DD(6914,81,0)="Y2K FUNCTIONAL CLASSIFICATION^S^PC:General purpose workstation;MED:Medical device;FS:Facility equipment;TEL:Telecommunications equipment;^9;11^Q"
^DD(6914,81,21,0)="^^31^31^2980617^"
^DD(6914,81,21,1,0)="A classification agreed on by the VA and its oversight agencies for Y2K"
^DD(6914,81,21,2,0)="compliance reporting."
^DD(6914,81,21,3,0)=" "
^DD(6914,81,21,4,0)="PC =>  A general purpose personal computer or workstation used for office"
^DD(6914,81,21,5,0)="       applications. Not an integral part of a medical device or of a"
^DD(6914,81,21,6,0)="       facility management system."
^DD(6914,81,21,7,0)="       "
^DD(6914,81,21,8,0)="MED => Medical devices are pieces of equipment (or equipment systems)"
^DD(6914,81,21,9,0)="       that are dedicated to the diagnosis and/or treatment of patients."
^DD(6914,81,21,10,0)="       Includes anything that requires Food and Drug Administration (FDA)"
^DD(6914,81,21,11,0)="       approval as a medical device before it can be commercially marketed"
^DD(6914,81,21,12,0)="       to health care providers in the United States."
^DD(6914,81,21,13,0)="       "
^DD(6914,81,21,14,0)="FS =>  Facility systems (or facility equipment) are devices (or equipment"
^DD(6914,81,21,15,0)="       systems) used to manage the environment of care within health care"
^DD(6914,81,21,16,0)="       facilities. Includes building service equipment of all types, such"
^DD(6914,81,21,17,0)="       as:"
^DD(6914,81,21,18,0)="               o Emergency communications management systems"
^DD(6914,81,21,19,0)="               o Security systems"
^DD(6914,81,21,20,0)="               o Alarm systems"
^DD(6914,81,21,21,0)="               o Fire detection and control systems"
^DD(6914,81,21,22,0)="               o Environmental control systems"
^DD(6914,81,21,23,0)="               o Water management"
^DD(6914,81,21,24,0)="               o Electrical energy management and control systems"
^DD(6914,81,21,25,0)="               o Building transport systems (people and/or material)"
^DD(6914,81,21,26,0)="       "
^DD(6914,81,21,27,0)="TEL => Telecommunications equipment, broadly defined. This classification"
^DD(6914,81,21,28,0)="       includes PBX systems, voice mail, radio frequency communication"
^DD(6914,81,21,29,0)="       systems, faxes, routers, switches, bridges, servers, modems,"
^DD(6914,81,21,30,0)="       satellite communication systems, video conferencing, and wireless"
^DD(6914,81,21,31,0)="       LAN."
^DD(6914,81,"DT")="2980617"
^DD(6914,82,0)="Y2K UTILITY SYSTEM^P6918.1'^ENG(6918.1,^9;12^Q"
^DD(6914,82,1,0)="^.1^^-1"
^DD(6914,82,1,1,0)="6914^AQ^MUMPS"
^DD(6914,82,1,1,1)="D:'$D(DIU(0)) ADDUS^ENLIB4"
^DD(6914,82,1,1,2)="D:'$D(DIU(0)) KILLUS^ENLIB4"
^DD(6914,82,1,1,"%D",0)="^^1^1^2980826^^^^"
^DD(6914,82,1,1,"%D",1,0)="Maintains consistence in the parent/child hierarchy."
^DD(6914,82,1,1,"DT")="2980826"
^DD(6914,82,3)=""
^DD(6914,82,5,1,0)="6914^2^2"
^DD(6914,82,21,0)="^^76^76^2980702^"
^DD(6914,82,21,1,0)="Indicate which devices in a facilities equipment inventory are included in"
^DD(6914,82,21,2,0)="some kind of Facility Management System."
^DD(6914,82,21,3,0)=" "
^DD(6914,82,21,4,0)="Whenever a user enters a Y2K UTILITY SYSTEM for an entry that is a PARENT"
^DD(6914,82,21,5,0)="of other equipment entries, then AEMS/MERS will automatically assign that"
^DD(6914,82,21,6,0)="Y2K UTILITY SYSTEM to all descendents of that parent entry."
^DD(6914,82,21,7,0)=" "
^DD(6914,82,21,8,0)="The Y2K UTILITY SYSTEM field will have special significance in centralized"
^DD(6914,82,21,9,0)="reporting of Y2K compliance activities, but the utility of this"
^DD(6914,82,21,10,0)="classification scheme is expected to outlive the Y2K compliance effort."
^DD(6914,82,21,11,0)=" "
^DD(6914,82,21,12,0)="Some specific examples of utility systems are as follows:"
^DD(6914,82,21,13,0)=" "
^DD(6914,82,21,14,0)="ALARM          o Hazardous Materials"
^DD(6914,82,21,15,0)="               o X-Rays and Nuclear Radiation"
^DD(6914,82,21,16,0)="               o Biomedical Hazards"
^DD(6914,82,21,17,0)="               o Operating Room Gases"
^DD(6914,82,21,18,0)="               o Infectious Disease Controls"
^DD(6914,82,21,19,0)="               o Biohazard Detection and Control"
^DD(6914,82,21,20,0)="               o Gas Detection (carbon monoxide, radon, ozone, etc.)"
^DD(6914,82,21,21,0)=" "
^DD(6914,82,21,22,0)="COMM           o Emergency Dispatching and Communications"
^DD(6914,82,21,23,0)="               o Nurse Call Systems"
^DD(6914,82,21,24,0)=" "
^DD(6914,82,21,25,0)="ELECT          o Uninterruptible Power Supplies"
^DD(6914,82,21,26,0)="               o Emergency Generators"
^DD(6914,82,21,27,0)="               o Power Distribution Units"
^DD(6914,82,21,28,0)="               o Lighting Controls"
^DD(6914,82,21,29,0)="               o Emergency Lighting"
^DD(6914,82,21,30,0)=" "
^DD(6914,82,21,31,0)="ENVRN          o Heating"
^DD(6914,82,21,32,0)="               o Ventilating"
^DD(6914,82,21,33,0)="               o Air Conditioning"
^DD(6914,82,21,34,0)="               o Load Balancing"
^DD(6914,82,21,35,0)="               o Humidification and Dehumidification"
^DD(6914,82,21,36,0)="               o Programmable Thermostats"
^DD(6914,82,21,37,0)=" "
^DD(6914,82,21,38,0)="FIRE           o Fire Alarms"
^DD(6914,82,21,39,0)="               o Sprinklers"
^DD(6914,82,21,40,0)="               o Halon Systems"
^DD(6914,82,21,41,0)=" "
^DD(6914,82,21,42,0)="OTHER          o Laboratory Controls"
^DD(6914,82,21,43,0)="               o Remote Data Collection"
^DD(6914,82,21,44,0)="               o Traffic Management"
^DD(6914,82,21,45,0)="               o Automotive Systems"
^DD(6914,82,21,46,0)="               o Machine Controls"
^DD(6914,82,21,47,0)="               o Clock Systems"
^DD(6914,82,21,48,0)="               o Mail Handling Systems"
^DD(6914,82,21,49,0)="               o Microfilming"
^DD(6914,82,21,50,0)="               o Records Control"
^DD(6914,82,21,51,0)="               o Document Imaging"
^DD(6914,82,21,52,0)="               o Copiers"
^DD(6914,82,21,53,0)=" "
^DD(6914,82,21,54,0)="SCRTY          o Passkey Systems"
^DD(6914,82,21,55,0)="               o Access Control"
^DD(6914,82,21,56,0)="               o Intrusion Detection"
^DD(6914,82,21,57,0)="               o Traffic Monitoring"
^DD(6914,82,21,58,0)="               o Gates, Doors, Vaults"
^DD(6914,82,21,59,0)="               o Employee/Client Identification and Verification"
^DD(6914,82,21,60,0)="               o Patient Tracking Systems"
^DD(6914,82,21,61,0)="               o Video Monitoring and Time Stamping"
^DD(6914,82,21,62,0)="               o Time Card and Check-in Systems"
^DD(6914,82,21,63,0)="               o Communications to Security Agencies"
^DD(6914,82,21,64,0)=" "
^DD(6914,82,21,65,0)="TRANS          o Elevators"
^DD(6914,82,21,66,0)="               o Escalators"
^DD(6914,82,21,67,0)="               o Slideways"
^DD(6914,82,21,68,0)="               o Pneumatic Tube Systems"
^DD(6914,82,21,69,0)="               o Robotic Devices"
^DD(6914,82,21,70,0)="               o Moving Walkways"
^DD(6914,82,21,71,0)=" "
^DD(6914,82,21,72,0)="WATER          o Heating"
^DD(6914,82,21,73,0)="               o Cooling"
^DD(6914,82,21,74,0)="               o Purification"
^DD(6914,82,21,75,0)="               o Pumping"
^DD(6914,82,21,76,0)="               o Storage"
^DD(6914,82,"DT")="2980826"
^DD(6914,90,0)="NON-SPACE FILE LOCATION^F^^NSP;1^K:$L(X)>20!($L(X)<3) X"
^DD(6914,90,1,0)="^.1^^-1"
^DD(6914,90,1,1,0)="6914^ANSP"
^DD(6914,90,1,1,1)="S ^ENG(6914,""ANSP"",$E(X,1,30),DA)="""""
^DD(6914,90,1,1,2)="K ^ENG(6914,""ANSP"",$E(X,1,30),DA)"
^DD(6914,90,1,1,"%D",0)="^^2^2^3071025^"
^DD(6914,90,1,1,"%D",1,0)="This is an index of all equipment with a current value in the NON-SPACE"
^DD(6914,90,1,1,"%D",2,0)="FILE LOCATION field."
^DD(6914,90,1,1,"DT")="3071023"
^DD(6914,90,3)="Answer must be 3-20 characters in length."
^DD(6914,90,21,0)="^^8^8^3071025^"
^DD(6914,90,21,1,0)="The purpose of this field is to allow IT users to enter a free-text value"
^DD(6914,90,21,2,0)="when there is not a suitable location in the ENG SPACE (#6928) file to"
^DD(6914,90,21,3,0)="select.  The intention is that entry of a free-text location value will"
^DD(6914,90,21,4,0)="result in engineering automatically being notified via e-mail of the need"
^DD(6914,90,21,5,0)="for a new location.  After the new location is added to the ENG SPACE"
^DD(6914,90,21,6,0)="file, the engineering user should respond on the mail message that the"
^DD(6914,90,21,7,0)="location has been added and then the requester can use an IT edit option"
^DD(6914,90,21,8,0)="to update the equipment location and delete the non-space file location."
^DD(6914,90,"DT")="3080204"
^DD(6914,90.1,0)="NON-SPACE FILE PERSON^P200'I^VA(200,^NSP;2^Q"
^DD(6914,90.1,9)="^"
^DD(6914,90.1,21,0)="^^2^2^3071025^"
^DD(6914,90.1,21,1,0)="This field is automatically populated with the user that entered a value "
^DD(6914,90.1,21,2,0)="in the NON-SPACE FILE LOCATION field."
^DD(6914,90.1,"DT")="3071025"
^DD(6914,90.2,0)="NON-SPACE FILE DATE/TIME^DI^^NSP;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6914,90.2,9)="^"
^DD(6914,90.2,21,0)="^^2^2^3071030^"
^DD(6914,90.2,21,1,0)="This field is automatically populated with the current date/time when a"
^DD(6914,90.2,21,2,0)="value is entered in the NON-SPACE FILE LOCATION field."
^DD(6914,90.2,"DT")="3071025"
^DD(6914,91,0)="IT REMOTE LOCATION^F^^ITR;1^K:$L(X)>120!($L(X)<3) X"
^DD(6914,91,3)="Answer must be 3-120 characters in length."
^DD(6914,91,21,0)="^^2^2^3071023^"
^DD(6914,91,21,1,0)="This field contains information such as the address or phone number for "
^DD(6914,91,21,2,0)="IT equipment that is taken off-site."
^DD(6914,91,"DT")="3071023"
^DD(6914,92,0)="IT COMMENTS^6914.092^^ITC;0"
^DD(6914,92,21,0)="^^2^2^3071031^"
^DD(6914,92,21,1,0)="This field contains comments entered by IT staff concerning an IT"
^DD(6914,92,21,2,0)="equipment record."
^DD(6914,99,0)="REMAIN CAPITALIZED SET BY^P200'^VA(200,^RC;1^Q"
^DD(6914,99,21,0)="^^11^11^3020529^^^^"
^DD(6914,99,21,1,0)="This field has been temporarily added to the EQUIPMENT INV file by patch"
^DD(6914,99,21,2,0)="EN*7*71 for management of the one-time capitalization threshold task. This"
^DD(6914,99,21,3,0)="task will expense equipment that is currently capitalized and reported to"
^DD(6914,99,21,4,0)="Fixed Assets/FMS, but does not meet the new capitalization threshold of"
^DD(6914,99,21,5,0)="$100,000. After the one-time task has run on July 24, 2002, this field"
^DD(6914,99,21,6,0)="will be obsolete and it will be deleted by a subsequent patch."
^DD(6914,99,21,7,0)=" "
^DD(6914,99,21,8,0)="This field can be updated by the Adjust List of Equipment to be Expensed"
^DD(6914,99,21,9,0)="by Task option.  If this field is populated then the associated equipment"
^DD(6914,99,21,10,0)="item will not be expensed even though it meets the other criteria to be"
^DD(6914,99,21,11,0)="expensed."
^DD(6914,99,"DT")="3020529"
^DD(6914,"B","*COST CENTER",36)=""
^DD(6914,"B","*FEDERAL SUPPLY CLASSIFICATION",8)=""
^DD(6914,"B","*SUBACCOUNT",37)=""
^DD(6914,"B","*YALD CODE",39)=""
^DD(6914,"B","ACQUISITION DATE",13)=""
^DD(6914,"B","ACQUISITION METHOD",20.1)=""
^DD(6914,"B","ACQUISITION SOURCE",13.5)=""
^DD(6914,"B","ACTUAL Y2K COMPLIANCE COST",74)=""
^DD(6914,"B","ACTUAL Y2K COMPLIANCE DATE",72.1)=""
^DD(6914,"B","ADMINISTRATION/OFFICE",63)=""
^DD(6914,"B","BAR CODE LABEL DATE",28)=""
^DD(6914,"B","BUDGET OBJECT CODE",61)=""
^DD(6914,"B","CATEGORY STOCK NUMBER",18)=""
^DD(6914,"B","CMR",19)=""
^DD(6914,"B","COMMENTS",40)=""
^DD(6914,"B","CONDITION CODE",53)=""
^DD(6914,"B","CONTROLLED ITEM?",33)=""
^DD(6914,"B","DATE ENTERED",.6)=""
^DD(6914,"B","DATE OF FAP CONVERSION",65)=""
^DD(6914,"B","DISPOSITION DATE",22)=""
^DD(6914,"B","DISPOSITION METHOD",31)=""
^DD(6914,"B","DISPOSITION VALUE",32)=""
^DD(6914,"B","ENTERED BY",.5)=""
^DD(6914,"B","ENTRY NUMBER",.01)=""
^DD(6914,"B","EQUIPMENT CATEGORY",6)=""
^DD(6914,"B","EQUIPMENT HISTORY",50)=""
^DD(6914,"B","EQUITY ACCOUNT",64)=""
^DD(6914,"B","ESTIMATED Y2K COMPLIANCE COST",73)=""
^DD(6914,"B","ESTIMATED Y2K COMPLIANCE DATE",72)=""
^DD(6914,"B","FIFTH PREVIOUS LOCATION",29.3)=""
^DD(6914,"B","FOURTH PREVIOUS LOCATION",29.2)=""
^DD(6914,"B","FUND",62)=""
^DD(6914,"B","FUND CONTROL POINT",35)=""
^DD(6914,"B","INVESTMENT CATEGORY",34)=""
^DD(6914,"B","IT COMMENTS",92)=""
^DD(6914,"B","IT REMOTE LOCATION",91)=""
^DD(6914,"B","JCAHO",27)=""
^DD(6914,"B","LEASE COST",12.5)=""
^DD(6914,"B","LIFE EXPECTANCY",15)=""
^DD(6914,"B","LOCAL IDENTIFIER",26)=""
^DD(6914,"B","LOCATION",24)=""
^DD(6914,"B","LOCKOUT REQUIRED?",9)=""
^DD(6914,"B","MANUFACTURER",1)=""
^DD(6914,"B","MFGR. EQUIPMENT NAME",3)=""
^DD(6914,"B","MODEL",4)=""
^DD(6914,"B","MODEL(C)",4.1)=""
^DD(6914,"B","NON-SPACE FILE DATE/TIME",90.2)=""
^DD(6914,"B","NON-SPACE FILE LOCATION",90)=""
^DD(6914,"B","NON-SPACE FILE PERSON",90.1)=""
^DD(6914,"B","NXRN #",17)=""
^DD(6914,"B","ORIGINAL ASSET VALUE",31.5)=""
^DD(6914,"B","ORIGINAL BAR CODE ID",28.2)=""
^DD(6914,"B","PARENT SYSTEM",2)=""
^DD(6914,"B","PHYSICAL INVENTORY DATE",23)=""
^DD(6914,"B","PREVIOUS LOCATION",24.5)=""
^DD(6914,"B","PURCHASE ORDER #",11)=""
^DD(6914,"B","REMAIN CAPITALIZED SET BY",99)=""
^DD(6914,"B","REPLACEMENT DATE",16)=""
^DD(6914,"B","REPLACEMENT UPDATE CODE",52)=""
^DD(6914,"B","REPLACING (ENTRY NUMBER)",51)=""
^DD(6914,"B","REPORTED TO FAP",66)=""
^DD(6914,"B","RESPONSIBLE SHOP",30)=""
^DD(6914,"B","SECOND PREVIOUS LOCATION",29)=""
^DD(6914,"B","SERIAL #",5)=""
^DD(6914,"B","SERIAL #(C)",5.1)=""
^DD(6914,"B","SERVICE CONTRACT",19.5)=""
^DD(6914,"B","SERVICE CONTRACT COST",19.6)=""
^DD(6914,"B","SERVICE POINTER",21)=""
^DD(6914,"B","SOURCE OF Y2K CATEGORY",71.5)=""
^DD(6914,"B","SPEX",70)=""
^DD(6914,"B","STANDARD GENERAL LEDGER",38)=""
^DD(6914,"B","STATION NUMBER",60)=""
^DD(6914,"B","THIRD PREVIOUS LOCATION",29.1)=""
^DD(6914,"B","TOTAL ASSET VALUE",12)=""
^DD(6914,"B","TURN-IN DATE",20.5)=""
^DD(6914,"B","TYPE OF ENTRY",7)=""
^DD(6914,"B","USE STATUS",20)=""
^DD(6914,"B","VA PM NUMBER",25)=""
^DD(6914,"B","VENDOR POINTER",10)=""
^DD(6914,"B","WARRANTY EXP. DATE",14)=""
^DD(6914,"B","Y2K ACTION",76)=""
^DD(6914,"B","Y2K ASSIGNED SHOP",77)=""
^DD(6914,"B","Y2K CATEGORY",71)=""
^DD(6914,"B","Y2K COMPLIANCE WORK ORDER (POINTER)",78)=""
^DD(6914,"B","Y2K COMPLIANCE WORK ORDER (TEXT)",79)=""
^DD(6914,"B","Y2K ESTIMATED REPLACEMENT DATE",76.1)=""
^DD(6914,"B","Y2K FUNCTIONAL CLASSIFICATION",81)=""
^DD(6914,"B","Y2K NOTES",80)=""
^DD(6914,"B","Y2K TECHNICIAN",75)=""
^DD(6914,"B","Y2K UTILITY SYSTEM",82)=""
^DD(6914,"GL",0,1,.01)=""
^DD(6914,"GL",0,2,3)=""
^DD(6914,"GL",0,3,2)=""
^DD(6914,"GL",0,4,7)=""
^DD(6914,"GL",0,5,9)=""
^DD(6914,"GL",0,6,.5)=""
^DD(6914,"GL",0,7,.6)=""
^DD(6914,"GL",1,1,6)=""
^DD(6914,"GL",1,2,4)=""
^DD(6914,"GL",1,3,5)=""
^DD(6914,"GL",1,4,1)=""
^DD(6914,"GL",1,5,4.1)=""
^DD(6914,"GL",1,6,5.1)=""
^DD(6914,"GL",2,1,10)=""
^DD(6914,"GL",2,2,11)=""
^DD(6914,"GL",2,3,12)=""
^DD(6914,"GL",2,4,13)=""
^DD(6914,"GL",2,5,14)=""
^DD(6914,"GL",2,6,15)=""
^DD(6914,"GL",2,7,17)=""
^DD(6914,"GL",2,8,18)=""
^DD(6914,"GL",2,9,19)=""
^DD(6914,"GL",2,10,16)=""
^DD(6914,"GL",2,11,8)=""
^DD(6914,"GL",2,12,12.5)=""
^DD(6914,"GL",2,13,23)=""
^DD(6914,"GL",2,14,13.5)=""
^DD(6914,"GL",3,1,20)=""
^DD(6914,"GL",3,2,21)=""
^DD(6914,"GL",3,3,20.5)=""
^DD(6914,"GL",3,4,20.1)=""
^DD(6914,"GL",3,5,24)=""
^DD(6914,"GL",3,6,25)=""
^DD(6914,"GL",3,7,26)=""
^DD(6914,"GL",3,8,24.5)=""
^DD(6914,"GL",3,9,27)=""
^DD(6914,"GL",3,10,28)=""
^DD(6914,"GL",3,11,22)=""
^DD(6914,"GL",3,12,31)=""
^DD(6914,"GL",3,13,32)=""
^DD(6914,"GL",3,15,31.5)=""
^DD(6914,"GL",3,16,53)=""
^DD(6914,"GL",4,0,30)=""
^DD(6914,"GL",5,0,40)=""
^DD(6914,"GL",6,0,50)=""
^DD(6914,"GL",7,1,19.5)=""
^DD(6914,"GL",7,2,19.6)=""
^DD(6914,"GL",8,1,33)=""
^DD(6914,"GL",8,2,34)=""
^DD(6914,"GL",8,3,35)=""
^DD(6914,"GL",8,4,36)=""
^DD(6914,"GL",8,5,37)=""
^DD(6914,"GL",8,6,38)=""
^DD(6914,"GL",8,7,39)=""
^DD(6914,"GL",8,8,51)=""
^DD(6914,"GL",8,9,52)=""
^DD(6914,"GL",9,1,29)=""
^DD(6914,"GL",9,2,29.1)=""
^DD(6914,"GL",9,3,29.2)=""
^DD(6914,"GL",9,4,29.3)=""
^DD(6914,"GL",9,5,60)=""
^DD(6914,"GL",9,6,61)=""
^DD(6914,"GL",9,7,62)=""
^DD(6914,"GL",9,8,63)=""
^DD(6914,"GL",9,9,64)=""
^DD(6914,"GL",9,10,65)=""
^DD(6914,"GL",9,11,81)=""
^DD(6914,"GL",9,12,82)=""
^DD(6914,"GL",10,0,70)=""
^DD(6914,"GL",11,1,71)=""
^DD(6914,"GL",11,2,72)=""
^DD(6914,"GL",11,3,73)=""
^DD(6914,"GL",11,4,74)=""
^DD(6914,"GL",11,5,75)=""
^DD(6914,"GL",11,6,76)=""
^DD(6914,"GL",11,7,77)=""
^DD(6914,"GL",11,8,78)=""
^DD(6914,"GL",11,9,79)=""
^DD(6914,"GL",11,10,72.1)=""
^DD(6914,"GL",11,11,71.5)=""
^DD(6914,"GL",11,12,80)=""
^DD(6914,"GL",11,13,76.1)=""
^DD(6914,"GL",12,0,28.2)=""
^DD(6914,"GL","ITC",0,92)=""
^DD(6914,"GL","ITR",1,91)=""
^DD(6914,"GL","NSP",1,90)=""
^DD(6914,"GL","NSP",2,90.1)=""
^DD(6914,"GL","NSP",3,90.2)=""
^DD(6914,"GL","RC",1,99)=""
^DD(6914,"IX",.01)=""
^DD(6914,"IX",1)=""
^DD(6914,"IX",2)=""
^DD(6914,"IX",3)=""
^DD(6914,"IX",4)=""
^DD(6914,"IX",4.1)=""
^DD(6914,"IX",5)=""
^DD(6914,"IX",5.1)=""
^DD(6914,"IX",6)=""
^DD(6914,"IX",7)=""
^DD(6914,"IX",9)=""
^DD(6914,"IX",11)=""
^DD(6914,"IX",13)=""
^DD(6914,"IX",15)=""
^DD(6914,"IX",17)=""
^DD(6914,"IX",18)=""
^DD(6914,"IX",19)=""
^DD(6914,"IX",21)=""
^DD(6914,"IX",24)=""
^DD(6914,"IX",24.5)=""
^DD(6914,"IX",25)=""
^DD(6914,"IX",26)=""
^DD(6914,"IX",29)=""
^DD(6914,"IX",29.1)=""
^DD(6914,"IX",29.2)=""
^DD(6914,"IX",51)=""
^DD(6914,"IX",61)=""
^DD(6914,"IX",71)=""
^DD(6914,"IX",79)=""
^DD(6914,"IX",82)=""
^DD(6914,"IX",90)=""
^DD(6914,"RQ",.01)=""
^DD(6914,"RQ",71.5)=""
^DD(6914,"SB",6914.01,40)=""
^DD(6914,"SB",6914.02,50)=""
^DD(6914,"SB",6914.03,70)=""
^DD(6914,"SB",6914.04,30)=""
^DD(6914,"SB",6914.05,28.2)=""
^DD(6914,"SB",6914.092,92)=""
^DD(6914.01,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(6914.01,0,"NM","COMMENTS")=""
^DD(6914.01,0,"UP")="6914"
^DD(6914.01,.01,0)="COMMENTS^W^^0;1^Q"
^DD(6914.01,"B","COMMENTS",.01)=""
^DD(6914.01,"GL",0,1,.01)=""
^DD(6914.02,0)="EQUIPMENT HISTORY SUB-FIELD^NL^9^10"
^DD(6914.02,0,"DT")="2960911"
^DD(6914.02,0,"NM","EQUIPMENT HISTORY")=""
^DD(6914.02,0,"UP")="6914"
^DD(6914.02,.01,0)="HISTORY REFERENCE^FXO^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<5)!'(X?.ANP) X I $G(DIUTIL)'=""VERIFY FIELDS"" S DINUM=9999999-DT*10 I $D(^ENG(6914,DA,6,DINUM,0)) F  S DINUM=DINUM-1 Q:'$D(^ENG(6914,DA,6,DINUM))"
^DD(6914.02,.01,1,0)="^.1^^0"
^DD(6914.02,.01,2)="S Y(0)=Y S Y=$E(Y,2,20)"
^DD(6914.02,.01,2.1)="S Y=$E(Y,2,20)"
^DD(6914.02,.01,3)="ANSWER MUST BE 5-12 CHARACTERS IN LENGTH"
^DD(6914.02,.01,21,0)="^^2^2^2980113^^"
^DD(6914.02,.01,21,1,0)="Reflects date on which Work Order was posted to EQUIPMENT INV. file,"
^DD(6914.02,.01,21,2,0)="and type of work performed."
^DD(6914.02,.01,"DT")="2980224"
^DD(6914.02,1,0)="W.O. REFERENCE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5)!'(X?.ANP) X"
^DD(6914.02,1,1,0)="^.1^^0"
^DD(6914.02,1,3)="Answer must be 5-17 characters in length."
^DD(6914.02,1,21,0)="^^1^1^2960911^^^"
^DD(6914.02,1,21,1,0)="The number of the Engineering work order that resulted in this posting."
^DD(6914.02,1,"DT")="2960911"
^DD(6914.02,2,0)="PM STATUS^S^P:PASS;C:CORRECTIVE ACTION TAKEN/REQUESTED;D0:DEFERRED;D1:DEFERRED, COULD NOT LOCATE;D2:DEFERRED, IN USE;D3:DEFERRED, OUT OF SERVICE OR LOANED OUT;^0;3^Q"
^DD(6914.02,2,21,0)="^^3^3^2941221^^"
^DD(6914.02,2,21,1,0)="If this posting is the result of a preventive maintenance (PM) inspection,"
^DD(6914.02,2,21,2,0)="this field should be used to indicate the outcome of that PM.  Field"
^DD(6914.02,2,21,3,0)="should be left blank in cases of regular (unscheduled) work action."
^DD(6914.02,2,"DT")="2890426"
^DD(6914.02,3,0)="HOURS SPENT^NJ7,2^^0;4^K:+X'=X!(X>2080)!(X<0)!(X?.E1"".""3N.N) X"
^DD(6914.02,3,3)="TYPE A NUMBER BETWEEN 0 AND 2080"
^DD(6914.02,3,21,0)="^^2^2^2941221^^"
^DD(6914.02,3,21,1,0)="Total hours spent in completion of subject work order.  Calculated by"
^DD(6914.02,3,21,2,0)="a routine that runs automatically when work orders are closed out."
^DD(6914.02,4,0)="LABOR $^NJ9,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(6914.02,4,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(6914.02,4,21,0)="^^3^3^2941221^^"
^DD(6914.02,4,21,1,0)="Labor cost associated with subject work order.  Calculated on the basis"
^DD(6914.02,4,21,2,0)="of wage information from the Engineering Employee File by a routine that"
^DD(6914.02,4,21,3,0)="runs automatically when work orders are closed out."
^DD(6914.02,5,0)="MATERIAL $^NJ9,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(6914.02,5,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(6914.02,5,21,0)="^^3^3^2941221^^"
^DD(6914.02,5,21,1,0)="Cost of materials used in performing this work action.  Data is manually"
^DD(6914.02,5,21,2,0)="entered into the Work Order File and automatically extracted from the"
^DD(6914.02,5,21,3,0)="work order into the Equipment History when the work order is closed out."
^DD(6914.02,6,0)="VENDOR $^NJ9,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:+X'=X&(X'?.N1"".""2N)!(X>999999)!(X<0) X"
^DD(6914.02,6,3)="TYPE A NUMBER BETWEEN 0 AND 999999"
^DD(6914.02,6,21,0)="^^2^2^2941221^^"
^DD(6914.02,6,21,1,0)="Amount paid to vendor on account of subject work action.  Entered manually"
^DD(6914.02,6,21,2,0)="(if applicable) when work orders are closed out."
^DD(6914.02,7,0)="WORKER^F^^0;8^K:$L(X)>15!($L(X)<3)!'(X?.ANP) X"
^DD(6914.02,7,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(6914.02,7,21,0)="^^2^2^2941221^^"
^DD(6914.02,7,21,1,0)="First 15 characters of the name of the PRIMARY TECHNICIAN as it appears"
^DD(6914.02,7,21,2,0)="in the Engineering Employee File."
^DD(6914.02,8,0)="TOTAL COST^CJ8,2^^ ; ^S Y(6914.02,8,1)=$S($D(^ENG(6914,D0,6,D1,0)):^(0),1:"""") S X=$P(Y(6914.02,8,1),U,5)+$P(Y(6914.02,8,1),U,6)+$P(Y(6914.02,8,1),U,7)"
^DD(6914.02,8,9)="^"
^DD(6914.02,8,9.01)="642000.02^6;642000.02^5;642000.02^4"
^DD(6914.02,8,9.1)="LABOR $+MATERIAL $+VENDOR $"
^DD(6914.02,8,21,0)="^^1^1^2941221^^"
^DD(6914.02,8,21,1,0)="Total cost of work action being posted.  Computed field."
^DD(6914.02,9,0)="WORK PERFORMED^F^^0;9^K:$L(X)>140!($L(X)<3) X"
^DD(6914.02,9,3)="Answer must be 3-140 characters in length."
^DD(6914.02,9,21,0)="^^2^2^2941221^^^"
^DD(6914.02,9,21,1,0)="Brief description of what was done via subject work action.  Automatically"
^DD(6914.02,9,21,2,0)="extracted from the Work Order File."
^DD(6914.02,9,"DT")="2960626"
^DD(6914.02,"B","HISTORY REFERENCE",.01)=""
^DD(6914.02,"B","HOURS SPENT",3)=""
^DD(6914.02,"B","LABOR $",4)=""
^DD(6914.02,"B","MATERIAL $",5)=""
^DD(6914.02,"B","PM STATUS",2)=""
^DD(6914.02,"B","TOTAL COST",8)=""
^DD(6914.02,"B","VENDOR $",6)=""
^DD(6914.02,"B","W.O. REFERENCE",1)=""
^DD(6914.02,"B","WORK PERFORMED",9)=""
^DD(6914.02,"B","WORKER",7)=""
^DD(6914.02,"GL",0,1,.01)=""
^DD(6914.02,"GL",0,2,1)=""
^DD(6914.02,"GL",0,3,2)=""
^DD(6914.02,"GL",0,4,3)=""
^DD(6914.02,"GL",0,5,4)=""
^DD(6914.02,"GL",0,6,5)=""
^DD(6914.02,"GL",0,7,6)=""
^DD(6914.02,"GL",0,8,7)=""
^DD(6914.02,"GL",0,9,9)=""
^DD(6914.03,0)="SPEX SUB-FIELD^^.01^1"
^DD(6914.03,0,"DT")="2970107"
^DD(6914.03,0,"NM","SPEX")=""
^DD(6914.03,0,"UP")="6914"
^DD(6914.03,.01,0)="SPEX^W^^0;1^Q"
^DD(6914.03,.01,3)="Enter A&MM comments."
^DD(6914.03,.01,21,0)="^^2^2^2970107^"
^DD(6914.03,.01,21,1,0)="This field is normally used to store comments by A&MM (PPM) peronnel. It"
^DD(6914.03,.01,21,2,0)="is shown on the Equipment Inventory Listing (EIL) report."
^DD(6914.03,.01,"DT")="2970107"
^DD(6914.03,"B","SPEX",.01)=""
^DD(6914.03,"GL",0,1,.01)=""
^DD(6914.04,0)="RESPONSIBLE SHOP SUB-FIELD^^3^6"
^DD(6914.04,0,"DT")="2970305"
^DD(6914.04,0,"IX","B",6914.04,.01)=""
^DD(6914.04,0,"NM","RESPONSIBLE SHOP")=""
^DD(6914.04,0,"UP")="6914"
^DD(6914.04,.01,0)="RESPONSIBLE SHOP^MP6922'^DIC(6922,^0;1^Q"
^DD(6914.04,.01,1,0)="^.1"
^DD(6914.04,.01,1,1,0)="6914.04^B"
^DD(6914.04,.01,1,1,1)="S ^ENG(6914,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(6914.04,.01,1,1,2)="K ^ENG(6914,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(6914.04,.01,1,2,0)="6914^AB"
^DD(6914.04,.01,1,2,1)="S ^ENG(6914,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(6914.04,.01,1,2,2)="K ^ENG(6914,""AB"",$E(X,1,30),DA(1),DA)"
^DD(6914.04,.01,"DT")="2880126"
^DD(6914.04,1,0)="TECHNICIAN^P6929'^ENG(""EMP"",^0;2^Q"
^DD(6914.04,1,21,0)="^^2^2^2880303^^^"
^DD(6914.04,1,21,1,0)="The Engineering Service employee who normally does the PM work on this"
^DD(6914.04,1,21,2,0)="piece of equipment for this shop."
^DD(6914.04,1,"DT")="2871221"
^DD(6914.04,2,0)="STARTING MONTH^S^1:JAN;2:FEB;3:MAR;4:APR;5:MAY;6:JUN;7:JUL;8:AUG;9:SEP;10:OCT;11:NOV;12:DEC;^1;1^Q"
^DD(6914.04,2,21,0)="^^7^7^2950627^^^^"
^DD(6914.04,2,21,1,0)=" STARTING MONTH is used by the PM module as a criterion for determining"
^DD(6914.04,2,21,2,0)="when a PM is due. Let's consider a fairly complex example: an item subject"
^DD(6914.04,2,21,3,0)="to MONTHLY, QUARTERLY, and ANNUAL PM inspections. If STARTING MONTH were"
^DD(6914.04,2,21,4,0)="set to FEB; an ANNUAL inspection would be scheduled in FEB; QUARTERLY"
^DD(6914.04,2,21,5,0)="inspections in MAY, AUG, and NOV; and MONTHLY inspections in MAR, APR,"
^DD(6914.04,2,21,6,0)="JUN, JUL, SEP, OCT, DEC, and JAN. "
^DD(6914.04,2,21,7,0)=" If STARTING MONTH is left blank, JAN will be assumed."
^DD(6914.04,2,"AUDIT")=""
^DD(6914.04,2,"DT")="2950627"
^DD(6914.04,2.6,0)="SKIP MONTHS^FX^^0;3^K:$L(X)>7!($L(X)<7)!'(X?3U1""-""3U) X I $D(X) D SKPCK^ENEQPMP1 K:ENA[""ERR"" X"
^DD(6914.04,2.6,3)="ANSWER MUST BE 7 CHARACTERS IN LENGTH"
^DD(6914.04,2.6,21,0)="^^12^12^2880303^^"
^DD(6914.04,2.6,21,1,0)=" A range of months (inclusive) during which PMI's are to be suspended."
^DD(6914.04,2.6,21,2,0)="For example, an entry of 'NOV-MAR' for an air-conditioner would suppress"
^DD(6914.04,2.6,21,3,0)="the scheduling of any PMI's in NOV, DEC, JAN, FEB, and MAR."
^DD(6914.04,2.6,21,4,0)=" Some care needs to be taken when using this field. If you want an ANNUAL"
^DD(6914.04,2.6,21,5,0)="inspecton, for instance, be sure that the STARTING MONTH is not within"
^DD(6914.04,2.6,21,6,0)="the range specified by the SKIP MONTHS; otherwise the ANNUAL PMI will"
^DD(6914.04,2.6,21,7,0)="never be scheduled."
^DD(6914.04,2.6,21,8,0)=" Entries must take the form 'MMM-NNN', where MMM is a three character"
^DD(6914.04,2.6,21,9,0)="abbreviation of the first month for which PMiI's are to be suspended and"
^DD(6914.04,2.6,21,10,0)="NNN is a three character abbreviation for the last month for which PMI's"
^DD(6914.04,2.6,21,11,0)="are to be suspended. Valid abbreviations are: JAN, FEB, MAR, APR, MAY, "
^DD(6914.04,2.6,21,12,0)="JUN, JUL, AUG, SEP, OCT, NOV, and DEC."
^DD(6914.04,2.6,"DT")="2880829"
^DD(6914.04,2.7,0)="CRITICALITY^NJ2,0^^0;4^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6914.04,2.7,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(6914.04,2.7,21,0)="^^14^14^2970408^"
^DD(6914.04,2.7,21,1,0)="An index of the importance of performing PMI's on this device. Enter an"
^DD(6914.04,2.7,21,2,0)="integer between 1 and some upper limit not greater than 99 (most sites use"
^DD(6914.04,2.7,21,3,0)="10 or 20). The closer the values are to the upper limit the more critical"
^DD(6914.04,2.7,21,4,0)="the PMI's become. A value of 1 would indicate that PMI's are desireable"
^DD(6914.04,2.7,21,5,0)="but far from essential (least critical)."
^DD(6914.04,2.7,21,6,0)=" "
^DD(6914.04,2.7,21,7,0)="When PM worklists are generated, the system will ask if all devices"
^DD(6914.04,2.7,21,8,0)="should be included or just those whose CRITICALITY is within a certain"
^DD(6914.04,2.7,21,9,0)="user selectable range (say, 7 to 10). This is intended as a means of"
^DD(6914.04,2.7,21,10,0)="adjusting workload to match available resources."
^DD(6914.04,2.7,21,11,0)=" "
^DD(6914.04,2.7,21,12,0)="Use of this feature is left entirely to the discretion of each site. If a"
^DD(6914.04,2.7,21,13,0)="CRITICALITY range is selected, the system will ask the user whether"
^DD(6914.04,2.7,21,14,0)="devices having no CRITICALITY should be included or excluded."
^DD(6914.04,2.7,"DT")="2970305"
^DD(6914.04,3,0)="FREQUENCY^6914.43S^^2;0"
^DD(6914.04,"B","CRITICALITY",2.7)=""
^DD(6914.04,"B","FREQUENCY",3)=""
^DD(6914.04,"B","RESPONSIBLE SHOP",.01)=""
^DD(6914.04,"B","SKIP MONTHS",2.6)=""
^DD(6914.04,"B","STARTING MONTH",2)=""
^DD(6914.04,"B","TECHNICIAN",1)=""
^DD(6914.04,"GL",0,1,.01)=""
^DD(6914.04,"GL",0,2,1)=""
^DD(6914.04,"GL",0,3,2.6)=""
^DD(6914.04,"GL",0,4,2.7)=""
^DD(6914.04,"GL",1,1,2)=""
^DD(6914.04,"GL",2,0,3)=""
^DD(6914.04,"IX",.01)=""
^DD(6914.04,"SB",6914.43,3)=""
^DD(6914.05,0)="ORIGINAL BAR CODE ID SUB-FIELD^^.01^1"
^DD(6914.05,0,"DT")="3010110"
^DD(6914.05,0,"IX","B",6914.05,.01)=""
^DD(6914.05,0,"NM","ORIGINAL BAR CODE ID")=""
^DD(6914.05,0,"UP")="6914"
^DD(6914.05,.01,0)="ORIGINAL BAR CODE ID^FI^^0;1^K:$L(X)>15!($L(X)<3) X"
^DD(6914.05,.01,1,0)="^.1"
^DD(6914.05,.01,1,1,0)="6914.05^B"
^DD(6914.05,.01,1,1,1)="S ^ENG(6914,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(6914.05,.01,1,1,2)="K ^ENG(6914,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(6914.05,.01,1,2,0)="6914^OEE"
^DD(6914.05,.01,1,2,1)="S ^ENG(6914,""OEE"",$E(X,1,30),DA(1),DA)="""""
^DD(6914.05,.01,1,2,2)="K ^ENG(6914,""OEE"",$E(X,1,30),DA(1),DA)"
^DD(6914.05,.01,1,2,"%D",0)="^^2^2^3010110^"
^DD(6914.05,.01,1,2,"%D",1,0)="Used for quick lookup by original bar code label at sites that have"
^DD(6914.05,.01,1,2,"%D",2,0)="experienced a change in station number."
^DD(6914.05,.01,1,2,"DT")="3010110"
^DD(6914.05,.01,3)="Answer must be 3-15 characters in length."
^DD(6914.05,.01,21,0)="^^13^13^3010110^"
^DD(6914.05,.01,21,1,0)="The original bar code identifier. This field is normally populated only"
^DD(6914.05,.01,21,2,0)="in cases where a site undergoes consolidation with another facility. In"
^DD(6914.05,.01,21,3,0)="such a case, the routines used to merge the site's equipment records with"
^DD(6914.05,.01,21,4,0)="those of the primary site will record an image of the original bar code"
^DD(6914.05,.01,21,5,0)="label so that the Engineering Package will still be able to recognize"
^DD(6914.05,.01,21,6,0)="it. This will enable sites affected by merger to continue to use their"
^DD(6914.05,.01,21,7,0)="bar coded inventory and preventive maintenance functions without replacing"
^DD(6914.05,.01,21,8,0)="existing bar coded equipment labels."
^DD(6914.05,.01,21,9,0)=" "
^DD(6914.05,.01,21,10,0)="The format of this field is of the form 'SSS EENNNN', where SSS is the"
^DD(6914.05,.01,21,11,0)="station number and NNNN is the Equipment ID# (also the internal entry"
^DD(6914.05,.01,21,12,0)="number) prior to consolidation. ' EE' is a literal character string used"
^DD(6914.05,.01,21,13,0)="in bar coding all equipment labels."
^DD(6914.05,.01,"DT")="3010110"
^DD(6914.05,"B","ORIGINAL BAR CODE ID",.01)=""
^DD(6914.05,"GL",0,1,.01)=""
^DD(6914.05,"IX",.01)=""
^DD(6914.092,0)="IT COMMENTS SUB-FIELD^^.01^1"
^DD(6914.092,0,"DT")="3071023"
^DD(6914.092,0,"NM","IT COMMENTS")=""
^DD(6914.092,0,"UP")="6914"
^DD(6914.092,.01,0)="IT COMMENTS^W^^0;1^Q"
^DD(6914.092,.01,21,0)="^.001^2^2^3071031^^"
^DD(6914.092,.01,21,1,0)="This field contains comments entered by IT staff concerning an IT"
^DD(6914.092,.01,21,2,0)="equipment record."
^DD(6914.092,.01,"DT")="3071023"
^DD(6914.092,"B","IT COMMENTS",.01)=""
^DD(6914.092,"GL",0,1,.01)=""
^DD(6914.1,0)="FIELD^^20^13"
^DD(6914.1,0,"DDA")="N"
^DD(6914.1,0,"DT")="2960919"
^DD(6914.1,0,"ID",.5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(49,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(49,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(6914.1,0,"ID",.6)="W ""   "",$P(^(0),U,8)"
^DD(6914.1,0,"IX","B",6914.1,.01)=""
^DD(6914.1,0,"IX","B1",6914.1,.01)=""
^DD(6914.1,0,"IX","C",6914.1,1)=""
^DD(6914.1,0,"IX","D",6914.1,20)=""
^DD(6914.1,0,"IX","E",6914.1,.5)=""
^DD(6914.1,0,"NM","CMR")=""
^DD(6914.1,0,"PT",413,4.5)=""
^DD(6914.1,0,"PT",413.1,15)=""
^DD(6914.1,0,"PT",6914,19)=""
^DD(6914.1,0,"PT",6915.4,101)=""
^DD(6914.1,0,"PT",6915.6,105)=""
^DD(6914.1,0,"VR")="7.0"
^DD(6914.1,0,"VRPK")="EN"
^DD(6914.1,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2)!'(X?.NUP) X"
^DD(6914.1,.01,1,0)="^.1"
^DD(6914.1,.01,1,1,0)="6914.1^B"
^DD(6914.1,.01,1,1,1)="S ^ENG(6914.1,""B"",$E(X,1,30),DA)="""""
^DD(6914.1,.01,1,1,2)="K ^ENG(6914.1,""B"",$E(X,1,30),DA)"
^DD(6914.1,.01,1,2,0)="6914.1^B1^MUMPS"
^DD(6914.1,.01,1,2,1)="S ^ENG(6914.1,""B1"",$E(X,1,29)_"" "",DA)="""""
^DD(6914.1,.01,1,2,2)="K ^ENG(6914.1,""B1"",$E(X,1,29)_"" "",DA)"
^DD(6914.1,.01,1,2,"%D",0)="^^3^3^2970108^"
^DD(6914.1,.01,1,2,"%D",1,0)="CMR names sorted in ASCII collating sequence due to trailing space. This"
^DD(6914.1,.01,1,2,"%D",2,0)="cross reference is used by the CMR Inventory report and for lookups so"
^DD(6914.1,.01,1,2,"%D",3,0)="numeric CMRs will be displayed when there is a partial match."
^DD(6914.1,.01,1,2,"DT")="2970108"
^DD(6914.1,.01,3)="Answer must be 2-5 uppercase characters in length."
^DD(6914.1,.01,21,0)="^^1^1^2941121^"
^DD(6914.1,.01,21,1,0)="Name of CMR."
^DD(6914.1,.01,"DEL",1,0)="I $O(^ENG(6914,""AD"",DA,0)) D EN^DDIOL(""Can't delete because EQUIPMENT INV items point to this CMR."") I 1"
^DD(6914.1,.01,"DT")="2970108"
^DD(6914.1,.5,0)="SERVICE^P49'^DIC(49,^0;5^Q"
^DD(6914.1,.5,1,0)="^.1"
^DD(6914.1,.5,1,1,0)="6914.1^E"
^DD(6914.1,.5,1,1,1)="S ^ENG(6914.1,""E"",$E(X,1,30),DA)="""""
^DD(6914.1,.5,1,1,2)="K ^ENG(6914.1,""E"",$E(X,1,30),DA)"
^DD(6914.1,.5,1,1,"DT")="2950913"
^DD(6914.1,.5,21,0)="^^1^1^2880815^"
^DD(6914.1,.5,21,1,0)="Service to which this CMR is assigned."
^DD(6914.1,.5,"DT")="2950913"
^DD(6914.1,.6,0)="BRIEF DESCRIPTION^F^^0;8^K:$L(X)>40!($L(X)<1) X"
^DD(6914.1,.6,3)="Answer must be 1-40 characters in length."
^DD(6914.1,.6,21,0)="^^2^2^2951023^"
^DD(6914.1,.6,21,1,0)="A means for sites to briefly describe the purpose of this CMR, if they"
^DD(6914.1,.6,21,2,0)="find it useful to do so."
^DD(6914.1,.6,"DT")="2970103"
^DD(6914.1,1,0)="RESPONSIBLE OFFICIAL^P200'^VA(200,^0;2^Q"
^DD(6914.1,1,1,0)="^.1"
^DD(6914.1,1,1,1,0)="6914.1^C"
^DD(6914.1,1,1,1,1)="S ^ENG(6914.1,""C"",$E(X,1,30),DA)="""""
^DD(6914.1,1,1,1,2)="K ^ENG(6914.1,""C"",$E(X,1,30),DA)"
^DD(6914.1,1,1,1,"DT")="2950630"
^DD(6914.1,1,3)=""
^DD(6914.1,1,21,0)="^^1^1^2930323^^"
^DD(6914.1,1,21,1,0)="Employee currently responsible for items on this CMR."
^DD(6914.1,1,"DT")="2950630"
^DD(6914.1,2,0)="PHONE (RESP OFFICIAL)^F^^0;3^K:$L(X)>14!($L(X)<3) X"
^DD(6914.1,2,3)="ANSWER MUST BE 3-14 CHARACTERS IN LENGTH"
^DD(6914.1,3,0)="LAST RECONCILED^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6914.1,3,21,0)="^^2^2^2880815^"
^DD(6914.1,3,21,1,0)="Date on which this CMR was last reconciled with centralized non-expendable"
^DD(6914.1,3,21,2,0)="equipment records (Log 1 or ISMS)."
^DD(6914.1,4,0)="RESEARCH?^S^Y:YES;N:NO;^0;6^Q"
^DD(6914.1,4,21,0)="^^3^3^2881010^"
^DD(6914.1,4,21,1,0)="Intent of this field is to provide a means of flagging equipment"
^DD(6914.1,4,21,2,0)="purchased and maintainable with research funds. Please enter 'YES'"
^DD(6914.1,4,21,3,0)="if and only if this is a research CMR."
^DD(6914.1,4,"DT")="2881010"
^DD(6914.1,5,0)="STATION NUMBER^FX^^0;7^K:$L(X)>5!($L(X)<3)!'(X?3N.2NU) X I $D(X),X'=$P(^DIC(6910,1,0),U,2),'$D(^DIC(6910,1,3,""B"",X)) K X"
^DD(6914.1,5,1,0)="^.1^^0"
^DD(6914.1,5,3)="Must match STATION NUMBER or ALTERNATE STATION NUMBER (Eng Init Parameters File)."
^DD(6914.1,5,21,0)="^^7^7^2951006^^^"
^DD(6914.1,5,21,1,0)="Station number of the facility that owns the assets in this CMR. For"
^DD(6914.1,5,21,2,0)="example, if this CMR is for a national cemetery which is seviced by"
^DD(6914.1,5,21,3,0)="a VAMC then the entry in this field should be the station number of the"
^DD(6914.1,5,21,4,0)="national cemetery."
^DD(6914.1,5,21,5,0)=" "
^DD(6914.1,5,21,6,0)="Entries must match an entry in the ALTERNATE STATION NUMBER field"
^DD(6914.1,5,21,7,0)="(multiple) of the Eng Init Parameters File (#6910)."
^DD(6914.1,5,"DT")="2970625"
^DD(6914.1,6,0)="IT TRACKING^SX^1:YES;0:NO;^0;9^I $G(DIUTIL)'=""VERIFY FIELDS"" K:$$ITTCHK^ENTIDD(DA,X) X"
^DD(6914.1,6,1,0)="^.1^^0"
^DD(6914.1,6,3)="Answer YES if the CMR contains IT equipment that must be tracked."
^DD(6914.1,6,21,0)="^^4^4^3071105^"
^DD(6914.1,6,21,1,0)="If a CMR has IT TRACKING set to YES, the equipment on that Equipment "
^DD(6914.1,6,21,2,0)="Inventory List (EIL) can be edited using options on the IT Equipment"
^DD(6914.1,6,21,3,0)="Module menu. Additionally, all equipment on such EILs will be expected"
^DD(6914.1,6,21,4,0)="to be assigned to individual IT owners."
^DD(6914.1,6,"DEL",1,0)="I $$AITACMR^ENTIDD(DA) D EN^DDIOL(""CMR has equipment with an active IT assignment. Can't delete IT TRACKING."","""",""!?5"") I 1"
^DD(6914.1,6,"DT")="3080204"
^DD(6914.1,10,0)="COST CENTER^CJ6^^ ; ^S X=$$CMRCC^ENFAUTL(D0)"
^DD(6914.1,10,9)="^"
^DD(6914.1,10,9.01)=""
^DD(6914.1,10,9.1)="S X=$$CMRCC^ENFAUTL(D0)"
^DD(6914.1,20,0)="ALTERNATE RESPONSIBLE OFFICIAL^P200'^VA(200,^20;1^Q"
^DD(6914.1,20,1,0)="^.1"
^DD(6914.1,20,1,1,0)="6914.1^D"
^DD(6914.1,20,1,1,1)="S ^ENG(6914.1,""D"",$E(X,1,30),DA)="""""
^DD(6914.1,20,1,1,2)="K ^ENG(6914.1,""D"",$E(X,1,30),DA)"
^DD(6914.1,20,1,1,"DT")="2950630"
^DD(6914.1,20,21,0)="^^2^2^2950629^"
^DD(6914.1,20,21,1,0)="A person authorized to act for the RESPONSIBLE OFFICIAL. This is an"
^DD(6914.1,20,21,2,0)="optional data element to be used at the discretion of each facility."
^DD(6914.1,20,"DT")="2950630"
^DD(6914.1,30,0)="DAYS BETWEEN RETURNS^NJ2,0^^1;1^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6914.1,30,3)="Enter maximum number of days between returns (1 to 90, 0 Decimal Digits)."
^DD(6914.1,30,21,0)="^.001^2^2^3080317^^"
^DD(6914.1,30,21,1,0)="This is the maximum number of days before an equipment item must be"
^DD(6914.1,30,21,2,0)="returned to be serviced and physically inventoried."
^DD(6914.1,30,"DT")="3080317"
^DD(6914.1,31,0)="LOAN FORM PHONE^F^^1;2^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X"
^DD(6914.1,31,3)="Enter telephone number of up to 20 characters."
^DD(6914.1,31,21,0)="^^2^2^3080317^"
^DD(6914.1,31,21,1,0)="This is the telephone number to be called concerning loan forms for"
^DD(6914.1,31,21,2,0)="equipment on this CMR."
^DD(6914.1,31,"DT")="3080317"
^DD(6914.1,"B","ALTERNATE RESPONSIBLE OFFICIAL",20)=""
^DD(6914.1,"B","BRIEF DESCRIPTION",.6)=""
^DD(6914.1,"B","COST CENTER",10)=""
^DD(6914.1,"B","DAYS BETWEEN RETURNS",30)=""
^DD(6914.1,"B","IT TRACKING",6)=""
^DD(6914.1,"B","LAST RECONCILED",3)=""
^DD(6914.1,"B","LOAN FORM PHONE",31)=""
^DD(6914.1,"B","NAME",.01)=""
^DD(6914.1,"B","PHONE (RESP OFFICIAL)",2)=""
^DD(6914.1,"B","RESEARCH?",4)=""
^DD(6914.1,"B","RESPONSIBLE OFFICIAL",1)=""
^DD(6914.1,"B","SERVICE",.5)=""
^DD(6914.1,"B","STATION NUMBER",5)=""
^DD(6914.1,"GL",0,1,.01)=""
^DD(6914.1,"GL",0,2,1)=""
^DD(6914.1,"GL",0,3,2)=""
^DD(6914.1,"GL",0,4,3)=""
^DD(6914.1,"GL",0,5,.5)=""
^DD(6914.1,"GL",0,6,4)=""
^DD(6914.1,"GL",0,7,5)=""
^DD(6914.1,"GL",0,8,.6)=""
^DD(6914.1,"GL",0,9,6)=""
^DD(6914.1,"GL",1,1,30)=""
^DD(6914.1,"GL",1,2,31)=""
^DD(6914.1,"GL",20,1,20)=""
^DD(6914.1,"IX",.01)=""
^DD(6914.1,"IX",.5)=""
^DD(6914.1,"IX",1)=""
^DD(6914.1,"IX",20)=""
^DD(6914.1,"RQ",.01)=""
^DD(6914.2,0)="FIELD^^3^4"
^DD(6914.2,0,"DDA")="N"
^DD(6914.2,0,"DT")="2930429"
^DD(6914.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6914.2,0,"IX","B",6914.2,.01)=""
^DD(6914.2,0,"IX","C",6914.2,1)=""
^DD(6914.2,0,"NM","PM PROCEDURES")=""
^DD(6914.2,0,"PT",6911.13,4)=""
^DD(6914.2,0,"PT",6914.43,4)=""
^DD(6914.2,0,"VR")="7.0"
^DD(6914.2,0,"VRPK")="EN"
^DD(6914.2,.01,0)="PM REFERENCE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(6914.2,.01,1,0)="^.1"
^DD(6914.2,.01,1,1,0)="6914.2^B"
^DD(6914.2,.01,1,1,1)="S ^ENG(6914.2,""B"",$E(X,1,30),DA)="""""
^DD(6914.2,.01,1,1,2)="K ^ENG(6914.2,""B"",$E(X,1,30),DA)"
^DD(6914.2,.01,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(6914.2,.01,21,0)="^^3^3^2960930^"
^DD(6914.2,.01,21,1,0)="This reference identifies the PM procedure and is similar in concept to a"
^DD(6914.2,.01,21,2,0)="memo number (e.g. EL-1). It will be shown on PM worklists along with the"
^DD(6914.2,.01,21,3,0)="PM title."
^DD(6914.2,.01,"DT")="2890130"
^DD(6914.2,1,0)="PROCEDURE TITLE^F^^0;2^K:$L(X)>30!($L(X)<3)!'(X?.ANP) X"
^DD(6914.2,1,1,0)="^.1"
^DD(6914.2,1,1,1,0)="6914.2^C"
^DD(6914.2,1,1,1,1)="S ^ENG(6914.2,""C"",$E(X,1,30),DA)="""""
^DD(6914.2,1,1,1,2)="K ^ENG(6914.2,""C"",$E(X,1,30),DA)"
^DD(6914.2,1,1,1,"DT")="2960930"
^DD(6914.2,1,3)="Answer must be 3-30 characters in length."
^DD(6914.2,1,21,0)="^^2^2^2960930^"
^DD(6914.2,1,21,1,0)="This is the title of the PM procedure. It will be shown on PM worklists"
^DD(6914.2,1,21,2,0)="and also in the Work Performed field of PM work orders."
^DD(6914.2,1,"DT")="2960930"
^DD(6914.2,2,0)="SOURCE^F^^0;3^K:$L(X)>30!($L(X)<2) X"
^DD(6914.2,2,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(6914.2,2,21,0)="^^3^3^2930429^^"
^DD(6914.2,2,21,1,0)="Source of the PM instructions. Could be the equipment manufacturer or some"
^DD(6914.2,2,21,2,0)="authoritative and/or knowledgeable organization (ex: ASHE, VACO, NEMA, etc)."
^DD(6914.2,2,21,3,0)="Use of this field is optional."
^DD(6914.2,2,"DT")="2880212"
^DD(6914.2,3,0)="TEXT^6914.23^^1;0"
^DD(6914.2,3,21,0)="^^2^2^2880212^"
^DD(6914.2,3,21,1,0)="Enter the actual PM instructions here. Sites that are short on disk space"
^DD(6914.2,3,21,2,0)="should generally maintain the actual procedures in hard copy only."
^DD(6914.2,"B","PM REFERENCE",.01)=""
^DD(6914.2,"B","PROCEDURE TITLE",1)=""
^DD(6914.2,"B","SOURCE",2)=""
^DD(6914.2,"B","TEXT",3)=""
^DD(6914.2,"GL",0,1,.01)=""
^DD(6914.2,"GL",0,2,1)=""
^DD(6914.2,"GL",0,3,2)=""
^DD(6914.2,"GL",1,0,3)=""
^DD(6914.2,"IX",.01)=""
^DD(6914.2,"IX",1)=""
^DD(6914.2,"RQ",.01)=""
^DD(6914.2,"SB",6914.23,3)=""
^DD(6914.23,0)="TEXT SUB-FIELD^^.01^1"
^DD(6914.23,0,"NM","TEXT")=""
^DD(6914.23,0,"UP")="6914.2"
^DD(6914.23,.01,0)="TEXT^W^^0;1^Q"
^DD(6914.23,.01,"DT")="2880212"
^DD(6914.23,"B","TEXT",.01)=""
^DD(6914.23,"GL",0,1,.01)=""
^DD(6914.3,0)="FIELD^^10^6"
^DD(6914.3,0,"DDA")="N"
^DD(6914.3,0,"DT")="2970312"
^DD(6914.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6914.3,0,"IX","B",6914.3,.01)=""
^DD(6914.3,0,"IX","C",6914.3,1)=""
^DD(6914.3,0,"NM","NX SGL")=""
^DD(6914.3,0,"PT",6914,38)=""
^DD(6914.3,0,"PT",6914.4,2)=""
^DD(6914.3,0,"PT",6915.911,.01)=""
^DD(6914.3,0,"VR")="7.0"
^DD(6914.3,0,"VRPK")="EN"
^DD(6914.3,.01,0)="ACCOUNT^RF^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6914.3,.01,1,0)="^.1"
^DD(6914.3,.01,1,1,0)="6914.3^B"
^DD(6914.3,.01,1,1,1)="S ^ENG(6914.3,""B"",$E(X,1,30),DA)="""""
^DD(6914.3,.01,1,1,2)="K ^ENG(6914.3,""B"",$E(X,1,30),DA)"
^DD(6914.3,.01,3)="Answer must be 4 characters in length."
^DD(6914.3,.01,21,0)="^^1^1^2950710^"
^DD(6914.3,.01,21,1,0)="Standard general ledger account number."
^DD(6914.3,.01,"DT")="2950710"
^DD(6914.3,1,0)="ACCOUNT DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(6914.3,1,1,0)="^.1"
^DD(6914.3,1,1,1,0)="6914.3^C"
^DD(6914.3,1,1,1,1)="S ^ENG(6914.3,""C"",$E(X,1,30),DA)="""""
^DD(6914.3,1,1,1,2)="K ^ENG(6914.3,""C"",$E(X,1,30),DA)"
^DD(6914.3,1,1,1,"DT")="2950711"
^DD(6914.3,1,3)="Answer must be 3-60 characters in length."
^DD(6914.3,1,21,0)="^^1^1^2950710^"
^DD(6914.3,1,21,1,0)="Brief description of the account."
^DD(6914.3,1,"DT")="2950809"
^DD(6914.3,2,0)="FA TYPE^F^^0;3^K:$L(X)>1!($L(X)<1)!'(X?1U) X"
^DD(6914.3,2,3)="Answer must be 1 character in length."
^DD(6914.3,2,21,0)="^^2^2^2950710^^"
^DD(6914.3,2,21,1,0)="Fixed Asset Type as defined in the Fixed Asset Package of the Financial"
^DD(6914.3,2,21,2,0)="Management System."
^DD(6914.3,2,"DT")="2950710"
^DD(6914.3,3,0)="ABBREVIATION^F^^0;4^K:$L(X)>12!($L(X)<2) X"
^DD(6914.3,3,3)="Answer must be 2-12 characters in length."
^DD(6914.3,3,21,0)="^^2^2^2970103^^"
^DD(6914.3,3,21,1,0)="Abbreviation for account that could be used to further identify the .01"
^DD(6914.3,3,21,2,0)="field when there is not room for the full account description."
^DD(6914.3,3,"DT")="2970103"
^DD(6914.3,4,0)="DEACTIVATED DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6914.3,4,3)="Date when SGL is no longer valid for new FA Documents."
^DD(6914.3,4,21,0)="^^2^2^2970312^"
^DD(6914.3,4,21,1,0)="As of the date entered in this field, new FA Documents can't be sent to"
^DD(6914.3,4,21,2,0)="Austin with this SGL."
^DD(6914.3,4,"DT")="2970312"
^DD(6914.3,10,0)="FA GROUP^6914.31^^1;0"
^DD(6914.3,"B","ABBREVIATION",3)=""
^DD(6914.3,"B","ACCOUNT",.01)=""
^DD(6914.3,"B","ACCOUNT DESCRIPTION",1)=""
^DD(6914.3,"B","DEACTIVATED DATE",4)=""
^DD(6914.3,"B","FA GROUP",10)=""
^DD(6914.3,"B","FA TYPE",2)=""
^DD(6914.3,"GL",0,1,.01)=""
^DD(6914.3,"GL",0,2,1)=""
^DD(6914.3,"GL",0,3,2)=""
^DD(6914.3,"GL",0,4,3)=""
^DD(6914.3,"GL",0,5,4)=""
^DD(6914.3,"GL",1,0,10)=""
^DD(6914.3,"IX",.01)=""
^DD(6914.3,"IX",1)=""
^DD(6914.3,"RQ",.01)=""
^DD(6914.3,"SB",6914.31,10)=""
^DD(6914.31,0)="FA GROUP SUB-FIELD^^.01^1"
^DD(6914.31,0,"DT")="2970311"
^DD(6914.31,0,"IX","B",6914.31,.01)=""
^DD(6914.31,0,"NM","FA GROUP")=""
^DD(6914.31,0,"UP")="6914.3"
^DD(6914.31,.01,0)="FA GROUP^MF^^0;1^K:$L(X)>4!($L(X)<4) X"
^DD(6914.31,.01,1,0)="^.1"
^DD(6914.31,.01,1,1,0)="6914.31^B"
^DD(6914.31,.01,1,1,1)="S ^ENG(6914.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6914.31,.01,1,1,2)="K ^ENG(6914.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6914.31,.01,3)="Answer must be 4 characters in length."
^DD(6914.31,.01,21,0)="^^1^1^2970311^"
^DD(6914.31,.01,21,1,0)="This multiple contains the FA GROUPs that are valid for the SGL (FA TYPE)."
^DD(6914.31,.01,"DT")="2970311"
^DD(6914.31,"B","FA GROUP",.01)=""
^DD(6914.31,"GL",0,1,.01)=""
^DD(6914.31,"IX",.01)=""
^DD(6914.4,0)="FIELD^^4^4"
^DD(6914.4,0,"DT")="2971020"
^DD(6914.4,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6914.4,0,"IX","B",6914.4,.01)=""
^DD(6914.4,0,"IX","C",6914.4,1)=""
^DD(6914.4,0,"NM","NX BOC")=""
^DD(6914.4,0,"PT",6914,61)=""
^DD(6914.4,0,"PT",6915.6,104)=""
^DD(6914.4,0,"VR")="7.0"
^DD(6914.4,0,"VRPK")="EN"
^DD(6914.4,.01,0)="CAPITALIZED BUDGET OBJECT CODE^RF^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6914.4,.01,1,0)="^.1"
^DD(6914.4,.01,1,1,0)="6914.4^B"
^DD(6914.4,.01,1,1,1)="S ^ENG(6914.4,""B"",$E(X,1,30),DA)="""""
^DD(6914.4,.01,1,1,2)="K ^ENG(6914.4,""B"",$E(X,1,30),DA)"
^DD(6914.4,.01,3)="Answer must be 4 characters in length."
^DD(6914.4,.01,21,0)="^^3^3^2950711^^"
^DD(6914.4,.01,21,1,0)="In FMS all personal property assets, whether capitalized or expensed, are"
^DD(6914.4,.01,21,2,0)="to be coded to Budget Object Class 31. Only capitalized assets are to be"
^DD(6914.4,.01,21,3,0)="recorded in the Fixed Assets Package."
^DD(6914.4,.01,"DT")="2950711"
^DD(6914.4,1,0)="BOC TITLE^RF^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(6914.4,1,1,0)="^.1"
^DD(6914.4,1,1,1,0)="6914.4^C"
^DD(6914.4,1,1,1,1)="S ^ENG(6914.4,""C"",$E(X,1,30),DA)="""""
^DD(6914.4,1,1,1,2)="K ^ENG(6914.4,""C"",$E(X,1,30),DA)"
^DD(6914.4,1,1,1,"DT")="2950713"
^DD(6914.4,1,3)="Answer must be 3-45 characters in length."
^DD(6914.4,1,21,0)="^^1^1^2950711^"
^DD(6914.4,1,21,1,0)="Brief description of the code."
^DD(6914.4,1,"DT")="2950713"
^DD(6914.4,2,0)="CORRESPONDING SGL^RP6914.3'^ENG(6914.3,^0;3^Q"
^DD(6914.4,2,3)=""
^DD(6914.4,2,21,0)="^^1^1^2950711^"
^DD(6914.4,2,21,1,0)="Standard General Ledger Account corresponding to this Budget Object Code."
^DD(6914.4,2,"DT")="2950913"
^DD(6914.4,4,0)="DEACTIVATED DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6914.4,4,3)="Date when BOC is no longer valid for new FA or FR Documents."
^DD(6914.4,4,21,0)="^^2^2^2971020^"
^DD(6914.4,4,21,1,0)="As of the date entered in this field, new FA or FR Documents can't be"
^DD(6914.4,4,21,2,0)="sent to Fixed Assets (Austin) with this BOC."
^DD(6914.4,4,"DT")="2971020"
^DD(6914.4,"B","BOC TITLE",1)=""
^DD(6914.4,"B","CAPITALIZED BUDGET OBJECT CODE",.01)=""
^DD(6914.4,"B","CORRESPONDING SGL",2)=""
^DD(6914.4,"B","DEACTIVATED DATE",4)=""
^DD(6914.4,"GL",0,1,.01)=""
^DD(6914.4,"GL",0,2,1)=""
^DD(6914.4,"GL",0,3,2)=""
^DD(6914.4,"GL",0,5,4)=""
^DD(6914.4,"IX",.01)=""
^DD(6914.4,"IX",1)=""
^DD(6914.4,"RQ",.01)=""
^DD(6914.4,"RQ",1)=""
^DD(6914.4,"RQ",2)=""
^DD(6914.43,0)="FREQUENCY SUB-FIELD^^5^6"
^DD(6914.43,0,"DT")="2970109"
^DD(6914.43,0,"NM","FREQUENCY")=""
^DD(6914.43,0,"UP")="6914.04"
^DD(6914.43,.01,0)="FREQUENCY^MS^A:ANNUAL;S:SEMI-ANNUAL;Q:QUARTERLY;M:MONTHLY;BM:BI-MONTHLY;W:WEEKLY;BW:BI-WEEKLY;N:NONE;BA:BI-ANNUAL;TA:TRI-ANNUAL;^0;1^Q"
^DD(6914.43,.01,21,0)="^^9^9^2890607^^^^"
^DD(6914.43,.01,21,1,0)=" Make a separate entry for each category (MONTHLY, QUARTERLY, etc.) of PMI"
^DD(6914.43,.01,21,2,0)="that is to be scheduled for this device. The PM module looks at this field"
^DD(6914.43,.01,21,3,0)="in conjunction with the STARTING MONTH when PM lists are generated."
^DD(6914.43,.01,21,4,0)=" Let's consider a fairly complex example: a device with SEMI-ANNUAL,"
^DD(6914.43,.01,21,5,0)="QUARTERLY, and MONTHLY PMI's and a STARTING MONTH of MAR. Assuming no"
^DD(6914.43,.01,21,6,0)="entry for SKIP MONTHS, the following PMI's will be scheduled:"
^DD(6914.43,.01,21,7,0)="  SEMI-ANNUAL in MAR and SEP;"
^DD(6914.43,.01,21,8,0)="  QUARTERLY in JUN and DEC;"
^DD(6914.43,.01,21,9,0)="  MONTHLY in APR, MAY, JUL, AUG, OCT, NOV, JAN and FEB."
^DD(6914.43,.01,"DT")="2970109"
^DD(6914.43,1,0)="HOURS (Estimated)^NJ5,1^^0;2^K:+X'=X!(X>200)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(6914.43,1,3)="Type a Number between .1 and 200, 1 Decimal Digit"
^DD(6914.43,1,21,0)="^^4^4^2880303^^^"
^DD(6914.43,1,21,1,0)="Approximate amount of time required for this PMI(standard hours), to the"
^DD(6914.43,1,21,2,0)="nearest tenth of an hour. This value will be recorded in the EQUIPMENT"
^DD(6914.43,1,21,3,0)="HISTORY field when a PM is closed out unless the user chooses to explicitly"
^DD(6914.43,1,21,4,0)="enter another (more precise) value."
^DD(6914.43,1,"DT")="2871221"
^DD(6914.43,2,0)="MATERIAL COST (Estimated)^NJ5,0^^0;3^K:+X'=X!(X>20000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6914.43,2,3)="Type a Number between 0 and 20000, 0 Decimal Digits"
^DD(6914.43,2,21,0)="^^3^3^2880317^^^^"
^DD(6914.43,2,21,1,0)="Estimated material cost for this PMI (standard cost). This cost will be"
^DD(6914.43,2,21,2,0)="charged to the piece of equipment whenever a PM of this type is closed"
^DD(6914.43,2,21,3,0)="out unless another (more precise) value is entered at close-out time."
^DD(6914.43,2,"DT")="2880317"
^DD(6914.43,3,0)="LEVEL^F^^0;4^K:$L(X)>12!($L(X)<1)!'(X?1N."",1""."",2""."",3""."",4""."",5""."",6"") X"
^DD(6914.43,3,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH. IF MORE THAN ONE NUMBER APPLIES, SEPARATE NUMBERS WITH A COMMA."
^DD(6914.43,3,21,0)="^^13^13^2880516^^^^"
^DD(6914.43,3,21,1,0)=" Each scheduled PMI may be composed of some combination of one or more of"
^DD(6914.43,3,21,2,0)="the following discrete levels of activity:"
^DD(6914.43,3,21,3,0)="   Level 1 - Visual inspection only;"
^DD(6914.43,3,21,4,0)="   Level 2 - Check and adjust operator controls;"
^DD(6914.43,3,21,5,0)="   Level 3 - Electrical safety analysis;"
^DD(6914.43,3,21,6,0)="   Level 4 - Minor parts replacement;"
^DD(6914.43,3,21,7,0)="   Level 5 - Major parts replacement;"
^DD(6914.43,3,21,8,0)="   Level 6 - Complete overhaul."
^DD(6914.43,3,21,9,0)=" LEVEL is an optional field and is intended to accommodate the needs of"
^DD(6914.43,3,21,10,0)="certain facilities with highly developed PM programs. Entries for LEVEL"
^DD(6914.43,3,21,11,0)="(if any) will be printed on the PM worklist as a reminder to the"
^DD(6914.43,3,21,12,0)="responsible technician."
^DD(6914.43,3,21,13,0)=" If more than one number applies, separate numbers a comma."
^DD(6914.43,3,"DT")="2880125"
^DD(6914.43,4,0)="PROCEDURE^P6914.2^ENG(6914.2,^0;5^Q"
^DD(6914.43,4,21,0)="^^8^8^2880420^^^^"
^DD(6914.43,4,21,1,0)=" Enter the abbreviation (4 to 10 characters) of the PROCEDURE to be"
^DD(6914.43,4,21,2,0)="followed in performing this category of PMI on this device. The title"
^DD(6914.43,4,21,3,0)="(as well as the abreviation) of the PM PROCEDURE will appear on PM"
^DD(6914.43,4,21,4,0)="worksheets for reference."
^DD(6914.43,4,21,5,0)=" If disk space permits, the actual procedure itself may be entered in the"
^DD(6914.43,4,21,6,0)="TEXT field of the PM PROCEDURES file (Number 6914.2) and printed on demand."
^DD(6914.43,4,21,7,0)="In any event, the procedure should be on file and readily accessible to"
^DD(6914.43,4,21,8,0)="the technician performing the work."
^DD(6914.43,4,"DT")="2880420"
^DD(6914.43,5,0)="STARTING YEAR (4 numerics)^NJ4,0^^0;6^K:+X'=X!(X>2100)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(6914.43,5,3)="Enter year as four numeric characters, 1900 thru 2100 are allowed."
^DD(6914.43,5,21,0)="^^3^3^2970109^"
^DD(6914.43,5,21,1,0)="This field has meaning only for BI-ANNUAL and TRI-ANNUAL frequencies."
^DD(6914.43,5,21,2,0)="STARTING YEAR must be entered as four numeric characters (ex: 1998, 2002,"
^DD(6914.43,5,21,3,0)="etc.)."
^DD(6914.43,5,"DT")="2970109"
^DD(6914.43,"B","FREQUENCY",.01)=""
^DD(6914.43,"B","HOURS (Estimated)",1)=""
^DD(6914.43,"B","LEVEL",3)=""
^DD(6914.43,"B","MATERIAL COST (Estimated)",2)=""
^DD(6914.43,"B","PROCEDURE",4)=""
^DD(6914.43,"B","STARTING YEAR (4 numerics)",5)=""
^DD(6914.43,"GL",0,1,.01)=""
^DD(6914.43,"GL",0,2,1)=""
^DD(6914.43,"GL",0,3,2)=""
^DD(6914.43,"GL",0,4,3)=""
^DD(6914.43,"GL",0,5,4)=""
^DD(6914.43,"GL",0,6,5)=""
^DD(6914.6,0)="FIELD^^5^6"
^DD(6914.6,0,"DT")="2980901"
^DD(6914.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6914.6,0,"IX","B",6914.6,.01)=""
^DD(6914.6,0,"IX","C",6914.6,1)=""
^DD(6914.6,0,"IX","D",6914.6,.01)=""
^DD(6914.6,0,"IX","E",6914.6,5)=""
^DD(6914.6,0,"NM","NX FUND")=""
^DD(6914.6,0,"PT",6914,62)=""
^DD(6914.6,0,"PT",6915.6,101)=""
^DD(6914.6,0,"PT",6915.91,.01)=""
^DD(6914.6,0,"VR")="7.0"
^DD(6914.6,0,"VRPK")="EN"
^DD(6914.6,.01,0)="NX FUND CODE^RF^^0;1^K:$L(X)>6!($L(X)<4)!'(X?.NU) X"
^DD(6914.6,.01,1,0)="^.1"
^DD(6914.6,.01,1,1,0)="6914.6^B"
^DD(6914.6,.01,1,1,1)="S ^ENG(6914.6,""B"",$E(X,1,30),DA)="""""
^DD(6914.6,.01,1,1,2)="K ^ENG(6914.6,""B"",$E(X,1,30),DA)"
^DD(6914.6,.01,1,2,0)="6914.6^D^MUMPS"
^DD(6914.6,.01,1,2,1)="S ^ENG(6914.6,""D"",$E(X_"" "",1,30),DA)="""""
^DD(6914.6,.01,1,2,2)="K ^ENG(6914.6,""D"",$E(X_"" "",1,30),DA)"
^DD(6914.6,.01,1,2,"%D",0)="^^1^1^2960919^"
^DD(6914.6,.01,1,2,"%D",1,0)="Added to improve lookups on numeric values."
^DD(6914.6,.01,1,2,"DT")="2960919"
^DD(6914.6,.01,3)="Answer must be 4-6 characters in length."
^DD(6914.6,.01,21,0)="^^1^1^2960719^^"
^DD(6914.6,.01,21,1,0)="Fund code."
^DD(6914.6,.01,"DT")="2960919"
^DD(6914.6,1,0)="BRIEF DESCRIPTION^RF^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(6914.6,1,1,0)="^.1"
^DD(6914.6,1,1,1,0)="6914.6^C"
^DD(6914.6,1,1,1,1)="S ^ENG(6914.6,""C"",$E(X,1,30),DA)="""""
^DD(6914.6,1,1,1,2)="K ^ENG(6914.6,""C"",$E(X,1,30),DA)"
^DD(6914.6,1,1,1,"DT")="2950719"
^DD(6914.6,1,3)="Answer must be 3-40 characters in length."
^DD(6914.6,1,21,0)="^^1^1^2950719^"
^DD(6914.6,1,21,1,0)="Text description of fund code."
^DD(6914.6,1,"DT")="2950719"
^DD(6914.6,2,0)="REVOVLING FUND?^S^0:NO;1:YES;^0;3^Q"
^DD(6914.6,2,21,0)="^^2^2^2950911^"
^DD(6914.6,2,21,1,0)="If REVOLVING FUND? is YES, then BEG_BUDGET_FY must be 94 when transmitting"
^DD(6914.6,2,21,2,0)="documents to FAP."
^DD(6914.6,2,"DT")="2950911"
^DD(6914.6,3,0)="ABBREVIATION^F^^0;4^K:$L(X)>12!($L(X)<2) X"
^DD(6914.6,3,3)="Answer must be 2-12 characters in length."
^DD(6914.6,3,21,0)="^^2^2^2970103^"
^DD(6914.6,3,21,1,0)="Abbreviation for the fund that could be used to further identify the .01"
^DD(6914.6,3,21,2,0)="field when there is not room for the fullfund description."
^DD(6914.6,3,"DT")="2970103"
^DD(6914.6,4,0)="DEACTIVATED DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6914.6,4,3)="Date when FUND is no longer valid for new FA or FR Documents."
^DD(6914.6,4,21,0)="^^2^2^2971020^"
^DD(6914.6,4,21,1,0)="As of the date entered in this field, new FA or FR Documents can't be sent"
^DD(6914.6,4,21,2,0)="to Fixed Assets (Austin) with this FUND."
^DD(6914.6,4,"DT")="2971020"
^DD(6914.6,5,0)="ASSOCIATED FUND^F^^0;6^K:$L(X)>4!($L(X)<4) X"
^DD(6914.6,5,1,0)="^.1"
^DD(6914.6,5,1,1,0)="6914.6^E"
^DD(6914.6,5,1,1,1)="S ^ENG(6914.6,""E"",$E(X,1,30),DA)="""""
^DD(6914.6,5,1,1,2)="K ^ENG(6914.6,""E"",$E(X,1,30),DA)"
^DD(6914.6,5,1,1,"DT")="2980901"
^DD(6914.6,5,3)="Answer must be 4 characters in length."
^DD(6914.6,5,21,0)="^^8^8^2980902^"
^DD(6914.6,5,21,1,0)="This field can be used to link an inventory fund in this file with an"
^DD(6914.6,5,21,2,0)="associated acquisition fund when the first four characters of the"
^DD(6914.6,5,21,3,0)="associated funds are dissimilar. For example, this field provides a means"
^DD(6914.6,5,21,4,0)="to associate acquisition funds that start with 0160 (i.e. 0160A1, etc.)"
^DD(6914.6,5,21,5,0)="with the corresponding inventory fund AMAFMC by entering ""0161"" in this"
^DD(6914.6,5,21,6,0)="field for fund AMAFMC. This field is used when the system automatically"
^DD(6914.6,5,21,7,0)="populates the FUND field in the equipment file based on information from a"
^DD(6914.6,5,21,8,0)="purchase order/receiving report."
^DD(6914.6,5,"DT")="2980902"
^DD(6914.6,"B","ABBREVIATION",3)=""
^DD(6914.6,"B","ASSOCIATED FUND",5)=""
^DD(6914.6,"B","BRIEF DESCRIPTION",1)=""
^DD(6914.6,"B","DEACTIVATED DATE",4)=""
^DD(6914.6,"B","NX FUND CODE",.01)=""
^DD(6914.6,"B","REVOVLING FUND?",2)=""
^DD(6914.6,"GL",0,1,.01)=""
^DD(6914.6,"GL",0,2,1)=""
^DD(6914.6,"GL",0,3,2)=""
^DD(6914.6,"GL",0,4,3)=""
^DD(6914.6,"GL",0,5,4)=""
^DD(6914.6,"GL",0,6,5)=""
^DD(6914.6,"IX",.01)=""
^DD(6914.6,"IX",1)=""
^DD(6914.6,"IX",5)=""
^DD(6914.6,"RQ",.01)=""
^DD(6914.6,"RQ",1)=""
^DD(6914.7,0)="FIELD^^1^2"
^DD(6914.7,0,"DT")="2950719"
^DD(6914.7,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6914.7,0,"IX","B",6914.7,.01)=""
^DD(6914.7,0,"IX","C",6914.7,1)=""
^DD(6914.7,0,"NM","NX A/O")=""
^DD(6914.7,0,"PT",6914,63)=""
^DD(6914.7,0,"PT",6914.9,3)=""
^DD(6914.7,0,"PT",6915.6,102)=""
^DD(6914.7,0,"VR")="7.0"
^DD(6914.7,0,"VRPK")="EN"
^DD(6914.7,.01,0)="ADMIN/OFFICE CODE^RF^^0;1^K:$L(X)>4!($L(X)<2)!'(X?.NU) X"
^DD(6914.7,.01,1,0)="^.1"
^DD(6914.7,.01,1,1,0)="6914.7^B"
^DD(6914.7,.01,1,1,1)="S ^ENG(6914.7,""B"",$E(X,1,30),DA)="""""
^DD(6914.7,.01,1,1,2)="K ^ENG(6914.7,""B"",$E(X,1,30),DA)"
^DD(6914.7,.01,3)="Answer must be 2-4 characters in length."
^DD(6914.7,.01,21,0)="^^1^1^2950915^"
^DD(6914.7,.01,21,1,0)="Administration/Office (A/O) code."
^DD(6914.7,.01,"DT")="2950719"
^DD(6914.7,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>45!($L(X)<3) X"
^DD(6914.7,1,1,0)="^.1"
^DD(6914.7,1,1,1,0)="6914.7^C"
^DD(6914.7,1,1,1,1)="S ^ENG(6914.7,""C"",$E(X,1,30),DA)="""""
^DD(6914.7,1,1,1,2)="K ^ENG(6914.7,""C"",$E(X,1,30),DA)"
^DD(6914.7,1,1,1,"DT")="2950719"
^DD(6914.7,1,3)="Answer must be 3-45 characters in length."
^DD(6914.7,1,21,0)="^^1^1^2950719^"
^DD(6914.7,1,21,1,0)="Description of Administration/Office code."
^DD(6914.7,1,"DT")="2950719"
^DD(6914.7,"B","ADMIN/OFFICE CODE",.01)=""
^DD(6914.7,"B","DESCRIPTION",1)=""
^DD(6914.7,"GL",0,1,.01)=""
^DD(6914.7,"GL",0,2,1)=""
^DD(6914.7,"IX",.01)=""
^DD(6914.7,"IX",1)=""
^DD(6914.7,"RQ",.01)=""
^DD(6914.8,0)="FIELD^^1^2"
^DD(6914.8,0,"DT")="2950907"
^DD(6914.8,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6914.8,0,"IX","B",6914.8,.01)=""
^DD(6914.8,0,"IX","C",6914.8,1)=""
^DD(6914.8,0,"NM","NX DISPOSITION METHOD")=""
^DD(6914.8,0,"PT",6914,31)=""
^DD(6914.8,0,"PT",6915.4,102)=""
^DD(6914.8,0,"PT",6915.5,103)=""
^DD(6914.8,.01,0)="METHOD^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(6914.8,.01,1,0)="^.1"
^DD(6914.8,.01,1,1,0)="6914.8^B"
^DD(6914.8,.01,1,1,1)="S ^ENG(6914.8,""B"",$E(X,1,30),DA)="""""
^DD(6914.8,.01,1,1,2)="K ^ENG(6914.8,""B"",$E(X,1,30),DA)"
^DD(6914.8,.01,3)="Answer must be 1 character in length."
^DD(6914.8,.01,21,0)="^^1^1^2950915^"
^DD(6914.8,.01,21,1,0)="Disposition method code."
^DD(6914.8,.01,"DT")="2950907"
^DD(6914.8,1,0)="METHOD NAME^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(6914.8,1,1,0)="^.1"
^DD(6914.8,1,1,1,0)="6914.8^C"
^DD(6914.8,1,1,1,1)="S ^ENG(6914.8,""C"",$E(X,1,30),DA)="""""
^DD(6914.8,1,1,1,2)="K ^ENG(6914.8,""C"",$E(X,1,30),DA)"
^DD(6914.8,1,1,1,"DT")="2950907"
^DD(6914.8,1,3)="Answer must be 3-30 characters in length."
^DD(6914.8,1,21,0)="^^1^1^2950907^"
^DD(6914.8,1,21,1,0)="Text representation of disposition method."
^DD(6914.8,1,"DT")="2950907"
^DD(6914.8,"B","METHOD",.01)=""
^DD(6914.8,"B","METHOD NAME",1)=""
^DD(6914.8,"GL",0,1,.01)=""
^DD(6914.8,"GL",0,2,1)=""
^DD(6914.8,"IX",.01)=""
^DD(6914.8,"IX",1)=""
^DD(6914.8,"RQ",.01)=""
^DD(6914.8,"RQ",1)=""
^DD(6914.9,0)="FIELD^^3^4"
^DD(6914.9,0,"DDA")="N"
^DD(6914.9,0,"DT")="2970415"
^DD(6914.9,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6914.9,0,"IX","B",6914.9,.01)=""
^DD(6914.9,0,"IX","D",6914.9,1)=""
^DD(6914.9,0,"NM","NATIONAL EIL")=""
^DD(6914.9,0,"VR")="7.0"
^DD(6914.9,0,"VRPK")="EN"
^DD(6914.9,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(6914.9,.01,1,0)="^.1"
^DD(6914.9,.01,1,1,0)="6914.9^B"
^DD(6914.9,.01,1,1,1)="S ^ENG(6914.9,""B"",$E(X,1,30),DA)="""""
^DD(6914.9,.01,1,1,2)="K ^ENG(6914.9,""B"",$E(X,1,30),DA)"
^DD(6914.9,.01,3)="Answer must be 2 characters in length."
^DD(6914.9,.01,21,0)="^^2^2^2970625^^"
^DD(6914.9,.01,21,1,0)="Two digit Equipment Inventory Listing (EIL) code established by VACO"
^DD(6914.9,.01,21,2,0)="Directive."
^DD(6914.9,.01,"DT")="2970314"
^DD(6914.9,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(6914.9,1,1,0)="^.1"
^DD(6914.9,1,1,1,0)="6914.9^D"
^DD(6914.9,1,1,1,1)="S ^ENG(6914.9,""D"",$E(X,1,30),DA)="""""
^DD(6914.9,1,1,1,2)="K ^ENG(6914.9,""D"",$E(X,1,30),DA)"
^DD(6914.9,1,1,1,"DT")="2970317"
^DD(6914.9,1,3)="Answer must be 3-30 characters in length."
^DD(6914.9,1,21,0)="^^1^1^2970415^"
^DD(6914.9,1,21,1,0)="Description of the EIL code."
^DD(6914.9,1,"DT")="2970317"
^DD(6914.9,2,0)="COST CENTER^F^^0;3^K:$L(X)>6!($L(X)<6)!'(X?6N) X"
^DD(6914.9,2,3)="Enter a 6 digit cost center number."
^DD(6914.9,2,21,0)="^^3^3^2970415^"
^DD(6914.9,2,21,1,0)="Cost Center (if any) that is linked to the EIL code. This will be used as"
^DD(6914.9,2,21,2,0)="the cost center of any equipment entries whose CMR begins with the"
^DD(6914.9,2,21,3,0)="national EIL code."
^DD(6914.9,2,"DT")="2970415"
^DD(6914.9,3,0)="ADMINISTRATIVE/OFFICE^P6914.7'^ENG(6914.7,^0;4^Q"
^DD(6914.9,3,21,0)="^^4^4^2970317^"
^DD(6914.9,3,21,1,0)="Administrative/Office (A/O) for the EIL. If a value is entered here then"
^DD(6914.9,3,21,2,0)="FA Documents whose CMR value starts with the EIL are required to use this"
^DD(6914.9,3,21,3,0)="A/O. This field should be left blank if there is more than one appropriate"
^DD(6914.9,3,21,4,0)="A/O code for the EIL."
^DD(6914.9,3,"DT")="2970314"
^DD(6914.9,"B","ADMINISTRATIVE/OFFICE",3)=""
^DD(6914.9,"B","CODE",.01)=""
^DD(6914.9,"B","COST CENTER",2)=""
^DD(6914.9,"B","DESCRIPTION",1)=""
^DD(6914.9,"GL",0,1,.01)=""
^DD(6914.9,"GL",0,2,1)=""
^DD(6914.9,"GL",0,3,2)=""
^DD(6914.9,"GL",0,4,3)=""
^DD(6914.9,"IX",.01)=""
^DD(6914.9,"IX",1)=""
^DD(6914.9,"RQ",.01)=""
^DD(6915.1,0)="FIELD^^5^6"
^DD(6915.1,0,"DT")="2951006"
^DD(6915.1,0,"IX","B",6915.1,.01)=""
^DD(6915.1,0,"NM","FAP DOCUMENT COUNTERS")=""
^DD(6915.1,.01,0)="SUBMITTING STATION^RF^^0;1^K:$L(X)>5!($L(X)<3)!'(X?3N.2UN) X"
^DD(6915.1,.01,1,0)="^.1"
^DD(6915.1,.01,1,1,0)="6915.1^B"
^DD(6915.1,.01,1,1,1)="S ^ENG(6915.1,""B"",$E(X,1,30),DA)="""""
^DD(6915.1,.01,1,1,2)="K ^ENG(6915.1,""B"",$E(X,1,30),DA)"
^DD(6915.1,.01,3)="Answer must be 3-5 characters in length."
^DD(6915.1,.01,21,0)="^^1^1^2950919^"
^DD(6915.1,.01,21,1,0)="This should be the station number of each site running this package."
^DD(6915.1,.01,"DT")="2951006"
^DD(6915.1,1,0)="FA COUNTER^RNJ4,0^^0;2^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6915.1,1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6915.1,1,21,0)="^^3^3^2950919^^^"
^DD(6915.1,1,21,1,0)="This is a counter of how many FA documents have been sent."
^DD(6915.1,1,21,2,0)="The next FA document sent will increment this counter and use that number"
^DD(6915.1,1,21,3,0)="as a transaction number."
^DD(6915.1,1,"DT")="2950905"
^DD(6915.1,2,0)="FB COUNTER^RNJ4,0^^0;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6915.1,2,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6915.1,2,21,0)="^^3^3^2950919^"
^DD(6915.1,2,21,1,0)="This is a counter of how many FB documents have been sent."
^DD(6915.1,2,21,2,0)="The next FB document sent will increment this counter and use that number"
^DD(6915.1,2,21,3,0)="as a transaction number."
^DD(6915.1,2,"DT")="2950905"
^DD(6915.1,3,0)="FC COUNTER^RNJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6915.1,3,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6915.1,3,21,0)="^^3^3^2950919^"
^DD(6915.1,3,21,1,0)="This is a counter of how many FC documents have been sent. "
^DD(6915.1,3,21,2,0)="The next FC document sent will increment this counter and use that number"
^DD(6915.1,3,21,3,0)="as a transaction number."
^DD(6915.1,3,"DT")="2950905"
^DD(6915.1,4,0)="FD COUNTER^RNJ4,0^^0;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6915.1,4,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6915.1,4,21,0)="^^3^3^2950919^"
^DD(6915.1,4,21,1,0)="This is a counter of how many FD documents have been sent."
^DD(6915.1,4,21,2,0)="The next FD document sent will increment this counter and use that number"
^DD(6915.1,4,21,3,0)="as a transaction number."
^DD(6915.1,4,"DT")="2950905"
^DD(6915.1,5,0)="FR COUNTER^RNJ4,0^^0;6^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6915.1,5,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6915.1,5,21,0)="^^3^3^2950919^"
^DD(6915.1,5,21,1,0)="This is a counter of how many FR documents have been sent."
^DD(6915.1,5,21,2,0)="The next FR document sent will increment this counter and use that number"
^DD(6915.1,5,21,3,0)="as a transaction number."
^DD(6915.1,5,"DT")="2950905"
^DD(6915.1,"B","FA COUNTER",1)=""
^DD(6915.1,"B","FB COUNTER",2)=""
^DD(6915.1,"B","FC COUNTER",3)=""
^DD(6915.1,"B","FD COUNTER",4)=""
^DD(6915.1,"B","FR COUNTER",5)=""
^DD(6915.1,"B","SUBMITTING STATION",.01)=""
^DD(6915.1,"GL",0,1,.01)=""
^DD(6915.1,"GL",0,2,1)=""
^DD(6915.1,"GL",0,3,2)=""
^DD(6915.1,"GL",0,4,3)=""
^DD(6915.1,"GL",0,5,4)=""
^DD(6915.1,"GL",0,6,5)=""
^DD(6915.1,"IX",.01)=""
^DD(6915.1,"RQ",.01)=""
^DD(6915.1,"RQ",1)=""
^DD(6915.1,"RQ",2)=""
^DD(6915.1,"RQ",3)=""
^DD(6915.1,"RQ",4)=""
^DD(6915.1,"RQ",5)=""
^DD(6915.11,0)="FIELD^^1^2"
^DD(6915.11,0,"DDA")="N"
^DD(6915.11,0,"DT")="2970131"
^DD(6915.11,0,"IX","B",6915.11,.01)=""
^DD(6915.11,0,"NM","AV REASON")=""
^DD(6915.11,0,"PT",6915.2,303)=""
^DD(6915.11,0,"PT",6915.3,303)=""
^DD(6915.11,0,"PT",6915.4,303)=""
^DD(6915.11,0,"PT",6915.5,303)=""
^DD(6915.11,0,"PT",6915.6,303)=""
^DD(6915.11,0,"VR")="7.0"
^DD(6915.11,0,"VRPK")="EN"
^DD(6915.11,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(6915.11,.01,1,0)="^.1"
^DD(6915.11,.01,1,1,0)="6915.11^B"
^DD(6915.11,.01,1,1,1)="S ^ENG(6915.11,""B"",$E(X,1,30),DA)="""""
^DD(6915.11,.01,1,1,2)="K ^ENG(6915.11,""B"",$E(X,1,30),DA)"
^DD(6915.11,.01,3)="Answer must be 3-40 characters in length."
^DD(6915.11,.01,"DT")="2970131"
^DD(6915.11,1,0)="APPLICABLE FAP DOCUMENTS^F^^0;2^K:$L(X)>15!($L(X)<2) X"
^DD(6915.11,1,3)="Answer must be 2-15 characters in length."
^DD(6915.11,1,21,0)="^^1^1^2970131^"
^DD(6915.11,1,21,1,0)="List of FAP Documents for which this reason can be selected."
^DD(6915.11,1,"DT")="2970131"
^DD(6915.11,"B","APPLICABLE FAP DOCUMENTS",1)=""
^DD(6915.11,"B","NAME",.01)=""
^DD(6915.11,"GL",0,1,.01)=""
^DD(6915.11,"GL",0,2,1)=""
^DD(6915.11,"IX",.01)=""
^DD(6915.11,"RQ",.01)=""
^DD(6915.2,0)="FIELD^^310^60"
^DD(6915.2,0,"DDA")="N"
^DD(6915.2,0,"DT")="2970131"
^DD(6915.2,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(6915.2,0,"ID",23)="W:$D(^(3)) ""   "",$P(^(3),U,4)"
^DD(6915.2,0,"IX","AV",6915.2,301)=""
^DD(6915.2,0,"IX","B",6915.2,.01)=""
^DD(6915.2,0,"IX","C",6915.2,23)=""
^DD(6915.2,0,"IX","D",6915.2,1)=""
^DD(6915.2,0,"NM","FA DOCUMENT LOG")=""
^DD(6915.2,0,"VR")="7.0"
^DD(6915.2,0,"VRPK")="EN"
^DD(6915.2,.01,0)="EQUIPMENT RECORD^RP6914'^ENG(6914,^0;1^Q"
^DD(6915.2,.01,1,0)="^.1"
^DD(6915.2,.01,1,1,0)="6915.2^B"
^DD(6915.2,.01,1,1,1)="S ^ENG(6915.2,""B"",$E(X,1,30),DA)="""""
^DD(6915.2,.01,1,1,2)="K ^ENG(6915.2,""B"",$E(X,1,30),DA)"
^DD(6915.2,.01,3)=""
^DD(6915.2,.01,21,0)="^^2^2^2950919^"
^DD(6915.2,.01,21,1,0)="This field holds the internal entry number from file 6914 for the piece of"
^DD(6915.2,.01,21,2,0)="capitalized NX equipment that an FA document was sent for."
^DD(6915.2,.01,"DT")="2950905"
^DD(6915.2,1,0)="DATE/TIME CREATED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.2,1,1,0)="^.1"
^DD(6915.2,1,1,1,0)="6915.2^D"
^DD(6915.2,1,1,1,1)="S ^ENG(6915.2,""D"",$E(X,1,30),DA)="""""
^DD(6915.2,1,1,1,2)="K ^ENG(6915.2,""D"",$E(X,1,30),DA)"
^DD(6915.2,1,1,1,"DT")="2951109"
^DD(6915.2,1,21,0)="^^1^1^2950919^"
^DD(6915.2,1,21,1,0)="This is the date and time that the FA document was prepared."
^DD(6915.2,1,"DT")="2951213"
^DD(6915.2,1.5,0)="SENDER^RP200'^VA(200,^0;3^Q"
^DD(6915.2,1.5,21,0)="^^2^2^2950919^"
^DD(6915.2,1.5,21,1,0)="This is the person who created the FA document using the Equipment Entry"
^DD(6915.2,1.5,21,2,0)="option."
^DD(6915.2,1.5,"DT")="2950913"
^DD(6915.2,2,0)="SEGMENT 1 ID^RF^^1;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,2,3)="Answer must be 3 characters in length."
^DD(6915.2,2,21,0)="^^1^1^2950919^"
^DD(6915.2,2,21,1,0)="This is the Segment 1 ID for the FA document, usually it will be CTL."
^DD(6915.2,2,"DT")="2950905"
^DD(6915.2,3,0)="SOURCE SYSTEM^RF^^1;2^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,3,3)="Answer must be 3 characters in length."
^DD(6915.2,3,21,0)="^^1^1^2950919^"
^DD(6915.2,3,21,1,0)="This is the source system for the FA document, ususally AMM."
^DD(6915.2,3,"DT")="2950905"
^DD(6915.2,4,0)="DESTINATION SYSTEM^RF^^1;3^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,4,3)="Answer must be 3 characters in length."
^DD(6915.2,4,21,0)="^^1^1^2950919^"
^DD(6915.2,4,21,1,0)="This is the system where the FA document is going, usually FMS."
^DD(6915.2,4,"DT")="2950905"
^DD(6915.2,5,0)="SUBMITTING STATION^RF^^1;4^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,5,3)="Answer must be 3 characters in length."
^DD(6915.2,5,21,0)="^^2^2^2950919^"
^DD(6915.2,5,21,1,0)="This is the station number of the site that is submitting this FA"
^DD(6915.2,5,21,2,0)="document."
^DD(6915.2,5,"DT")="2950905"
^DD(6915.2,6,0)="TRANSACTION CLASS^RF^^1;5^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,6,3)="Answer must be 3 characters in length."
^DD(6915.2,6,21,0)="^^2^2^2950919^"
^DD(6915.2,6,21,1,0)="This is the class of document being sent to FMS.  It is usually DOC, to"
^DD(6915.2,6,21,2,0)="represent a document transaction."
^DD(6915.2,6,"DT")="2950905"
^DD(6915.2,7,0)="TRANSACTION CODE^RF^^1;6^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,7,3)="Answer must be 2 characters in length."
^DD(6915.2,7,21,0)="^^2^2^2950919^"
^DD(6915.2,7,21,1,0)="This tells FMS what kind of document is being sent.  FA for an FA"
^DD(6915.2,7,21,2,0)="document."
^DD(6915.2,7,"DT")="2950905"
^DD(6915.2,8,0)="SEC1 CODE^RF^^1;7^K:$L(X)>4!($L(X)<4) X"
^DD(6915.2,8,3)="Answer must be 4 characters in length."
^DD(6915.2,8,21,0)="^^2^2^2950919^"
^DD(6915.2,8,21,1,0)="This is the Security 1 code of the submitting Administration/Staff office."
^DD(6915.2,8,21,2,0)="VHA=10, VBA=20, and NCS=40."
^DD(6915.2,8,"DT")="2950905"
^DD(6915.2,9,0)="BATCH NUMBER^RF^^1;8^K:$L(X)>6!($L(X)<6) X"
^DD(6915.2,9,3)="Answer must be 6 characters in length."
^DD(6915.2,9,21,0)="^^2^2^2950919^"
^DD(6915.2,9,21,1,0)="This is the batch number of the FA document being sent.  Currently set to"
^DD(6915.2,9,21,2,0)="six spaces."
^DD(6915.2,9,"DT")="2950905"
^DD(6915.2,10,0)="TRANSACTION NUMBER^RF^^1;9^K:$L(X)>11!($L(X)<11) X"
^DD(6915.2,10,3)="Answer must be 11 characters in length."
^DD(6915.2,10,21,0)="^^3^3^2950920^"
^DD(6915.2,10,21,1,0)="This is the transaction number for this FA document.  It consists of the"
^DD(6915.2,10,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.2,10,21,3,0)="number."
^DD(6915.2,10,"DT")="2950905"
^DD(6915.2,11,0)="TRANSACTION DATE^RF^^1;10^K:$L(X)>8!($L(X)<8) X"
^DD(6915.2,11,3)="Answer must be 8 characters in length."
^DD(6915.2,11,21,0)="^^1^1^2950920^"
^DD(6915.2,11,21,1,0)="This is the date the FA document was created in YYYYMMDD format."
^DD(6915.2,11,"DT")="2950905"
^DD(6915.2,12,0)="TRANSACTION TIME^RF^^1;11^K:$L(X)>6!($L(X)<6) X"
^DD(6915.2,12,3)="Answer must be 6 characters in length."
^DD(6915.2,12,21,0)="^^1^1^2950920^"
^DD(6915.2,12,21,1,0)="This is the time the FA document was created in HHMMSS format."
^DD(6915.2,12,"DT")="2950905"
^DD(6915.2,13,0)="SEQUENCE NUMBER^RF^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,13,3)="Answer must be 3 characters in length."
^DD(6915.2,13,21,0)="^^1^1^2950920^"
^DD(6915.2,13,21,1,0)="This is the transaction part sequence number.  Should always be 001."
^DD(6915.2,13,"DT")="2950905"
^DD(6915.2,14,0)="SEQUENCE TOTAL^RF^^1;13^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,14,3)="Answer must be 3 characters in length."
^DD(6915.2,14,21,0)="^^1^1^2950920^"
^DD(6915.2,14,21,1,0)="This is the total number of transaction parts.  Should always be 001."
^DD(6915.2,14,"DT")="2950905"
^DD(6915.2,15,0)="VERSION^RF^^1;14^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,15,3)="Answer must be 3 characters in length."
^DD(6915.2,15,21,0)="^^1^1^2950922^"
^DD(6915.2,15,21,1,0)="This is the AMES/MERS-FMS interface version.  Should always be 001."
^DD(6915.2,15,"DT")="2950905"
^DD(6915.2,16,0)="SEGMENT 2 ID^RF^^2;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,16,3)="Answer must be 3 characters in length."
^DD(6915.2,16,21,0)="^^1^1^2950922^"
^DD(6915.2,16,21,1,0)="This is the segment identifier for segment 2.  Should always be DOC."
^DD(6915.2,16,"DT")="2950905"
^DD(6915.2,20,0)="SEGMENT 3 ID^RF^^3;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,20,3)="Answer must be 3 characters in length."
^DD(6915.2,20,21,0)="^^2^2^2950921^"
^DD(6915.2,20,21,1,0)="This is the segment identifier for the the FA1 segmemnt.  Should always be"
^DD(6915.2,20,21,2,0)="FA1."
^DD(6915.2,20,"DT")="2950905"
^DD(6915.2,21,0)="TRANS CODE^RF^^3;2^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,21,3)="Answer must be 2 characters in length."
^DD(6915.2,21,21,0)="^^1^1^2950922^^"
^DD(6915.2,21,21,1,0)="This is the Trans code for the FA1 segment.  Should always be FA."
^DD(6915.2,21,"DT")="2950905"
^DD(6915.2,22,0)="TRANS DIVISION^RF^^3;3^K:$L(X)>4!($L(X)<2) X"
^DD(6915.2,22,3)="Answer must be 2-4 characters in length."
^DD(6915.2,22,21,0)="^^1^1^2950920^"
^DD(6915.2,22,21,1,0)="This is the Security 1 code.  VHA=10, VBA=20, NCS=40."
^DD(6915.2,22,"DT")="2950905"
^DD(6915.2,23,0)="TRANS NUMBER^RF^^3;4^K:$L(X)>11!($L(X)<9) X"
^DD(6915.2,23,1,0)="^.1"
^DD(6915.2,23,1,1,0)="6915.2^C"
^DD(6915.2,23,1,1,1)="S ^ENG(6915.2,""C"",$E(X,1,30),DA)="""""
^DD(6915.2,23,1,1,2)="K ^ENG(6915.2,""C"",$E(X,1,30),DA)"
^DD(6915.2,23,1,1,"DT")="2961219"
^DD(6915.2,23,3)="Answer must be 9-11 characters in length."
^DD(6915.2,23,21,0)="^^3^3^2950920^"
^DD(6915.2,23,21,1,0)="This is the transaction number for this FA document.  It consists of the"
^DD(6915.2,23,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.2,23,21,3,0)="number."
^DD(6915.2,23,"DT")="2961219"
^DD(6915.2,24,0)="FIXED ASSET NUMBER^RF^^3;5^K:$L(X)>15!($L(X)<15) X"
^DD(6915.2,24,3)="Answer must be 15 characters in length."
^DD(6915.2,24,21,0)="^^3^3^2950920^^"
^DD(6915.2,24,21,1,0)="The fixed asset number consists of the submitting station_the 2 digit"
^DD(6915.2,24,21,2,0)="satelite station number (or 2 spaces if no satellite)_the internal entry"
^DD(6915.2,24,21,3,0)="number of the asset from file 6914."
^DD(6915.2,24,"DT")="2950905"
^DD(6915.2,25,0)="FIXED ASSET TYPE^RF^^3;6^K:$L(X)>1!($L(X)<1) X"
^DD(6915.2,25,3)="Answer must be 1 character in length."
^DD(6915.2,25,21,0)="^^2^2^2950920^"
^DD(6915.2,25,21,1,0)="This is the FA TYPE field from the NX SGL file for this particular"
^DD(6915.2,25,21,2,0)="Standard General Ledger account."
^DD(6915.2,25,"DT")="2950905"
^DD(6915.2,26,0)="FA GROUP^RF^^3;7^K:$L(X)>4!($L(X)<4) X"
^DD(6915.2,26,3)="Answer must be 4 characters in length."
^DD(6915.2,26,21,0)="^^4^4^2950920^"
^DD(6915.2,26,21,1,0)="The group is derived from the Category Stock Number.  It is generally the"
^DD(6915.2,26,21,2,0)="first 2 digits of the CSN concatenated with 00, except for CSNs in the"
^DD(6915.2,26,21,3,0)="7nnn range, which send as 7000, except for 7020, 7021, 7025, 7035, 7040, &"
^DD(6915.2,26,21,4,0)="7050, which transmit as themselves."
^DD(6915.2,26,"DT")="2950905"
^DD(6915.2,27,0)="LOCATION^RF^^3;8^K:$L(X)>4!($L(X)<2) X"
^DD(6915.2,27,3)="Answer must be 2-4 characters in length."
^DD(6915.2,27,21,0)="^^2^2^2950920^"
^DD(6915.2,27,21,1,0)="The location is derived from the first 2 digits of the CMR.  All are valid"
^DD(6915.2,27,21,2,0)="except 67, 73, 74, 79-85, and 87-98."
^DD(6915.2,27,"DT")="2950905"
^DD(6915.2,28,0)="BEG BUDGET FY^RF^^3;9^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,28,3)="Answer must be 2 characters in length."
^DD(6915.2,28,21,0)="^^1^1^2950920^"
^DD(6915.2,28,21,1,0)="This is the beginning budget fiscal year."
^DD(6915.2,28,"DT")="2950905"
^DD(6915.2,29,0)="FUND^RF^^3;10^K:$L(X)>6!($L(X)<4) X"
^DD(6915.2,29,3)="Answer must be 4-6 characters in length."
^DD(6915.2,29,21,0)="^^1^1^2950920^"
^DD(6915.2,29,21,1,0)="This is the fund code under which the asset was procured."
^DD(6915.2,29,"DT")="2950905"
^DD(6915.2,30,0)="XDIVISION^RF^^3;11^K:$L(X)>4!($L(X)<2) X"
^DD(6915.2,30,3)="Answer must be 2-4 characters in length."
^DD(6915.2,30,21,0)="^^2^2^2950922^"
^DD(6915.2,30,21,1,0)="This is the Administrative/Office code for the asset.  VAH=10, VBA=20,"
^DD(6915.2,30,21,2,0)="NCS=40."
^DD(6915.2,30,"DT")="2950905"
^DD(6915.2,31,0)="XORGANIZATION^RF^^3;12^K:$L(X)>7!($L(X)<3) X"
^DD(6915.2,31,3)="Answer must be 3-7 characters in length."
^DD(6915.2,31,21,0)="^^1^1^2950920^"
^DD(6915.2,31,21,1,0)="This is the accounting station for this asset."
^DD(6915.2,31,"DT")="2950905"
^DD(6915.2,32,0)="XPROGRAM^F^^3;13^K:$L(X)>9!($L(X)<9) X"
^DD(6915.2,32,3)="Answer must be 9 characters in length."
^DD(6915.2,32,21,0)="^^1^1^2950920^"
^DD(6915.2,32,21,1,0)="This the Fund Control Point Project Code."
^DD(6915.2,32,"DT")="2950905"
^DD(6915.2,33,0)="BUDGET OBJECT CODE^RF^^3;14^K:$L(X)>4!($L(X)<4) X"
^DD(6915.2,33,3)="Answer must be 4 characters in length."
^DD(6915.2,33,21,0)="^^1^1^2950920^"
^DD(6915.2,33,21,1,0)="The Budget Object Code accounting classification."
^DD(6915.2,33,"DT")="2950905"
^DD(6915.2,34,0)="DESCRIPTION^F^^3;15^K:$L(X)>30!($L(X)<4) X"
^DD(6915.2,34,3)="Answer must be 4-30 characters in length."
^DD(6915.2,34,21,0)="^^1^1^2950920^"
^DD(6915.2,34,21,1,0)="This is really the category Stock Number."
^DD(6915.2,34,"DT")="2950905"
^DD(6915.2,35,0)="ACQUISITION YEAR^RF^^3;16^K:$L(X)>4!($L(X)<4) X"
^DD(6915.2,35,3)="Answer must be 4 characters in length."
^DD(6915.2,35,21,0)="^^1^1^2950920^"
^DD(6915.2,35,21,1,0)="This is the year the item was acquired."
^DD(6915.2,35,"DT")="2950905"
^DD(6915.2,36,0)="ACQUISITION MONTH^RF^^3;17^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,36,3)="Answer must be 2 characters in length."
^DD(6915.2,36,21,0)="^^1^1^2950920^"
^DD(6915.2,36,21,1,0)="This is the month the item was acquired."
^DD(6915.2,36,"DT")="2950905"
^DD(6915.2,37,0)="ACQUISITION DAY^RF^^3;18^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,37,3)="Answer must be 2 characters in length."
^DD(6915.2,37,21,0)="^^1^1^2950920^"
^DD(6915.2,37,21,1,0)="This is the day the asset was acquired."
^DD(6915.2,37,"DT")="2950905"
^DD(6915.2,38,0)="ACQUISITION METHOD^RF^^3;19^K:$L(X)>1!($L(X)<1) X"
^DD(6915.2,38,3)="Answer must be 1 character in length."
^DD(6915.2,38,21,0)="^^1^1^2950920^"
^DD(6915.2,38,21,1,0)="This is how the item was acquired; constructed, purchased, etc."
^DD(6915.2,38,"DT")="2950905"
^DD(6915.2,38.1,0)="XAREA^F^^3;31^K:$L(X)>10!($L(X)<1) X"
^DD(6915.2,38.1,3)="Answer must be 1-10 characters in length."
^DD(6915.2,38.1,21,0)="^^4^4^2990304^"
^DD(6915.2,38.1,21,1,0)="Contains the equipment's CMR value (external) sent on the FA Document to"
^DD(6915.2,38.1,21,2,0)="populate the XAREA data element on the Fixed Assets/FMS system. Derived"
^DD(6915.2,38.1,21,3,0)="from the CMR (#19) field of the EQUIPMENT INV (#6914) file when the FA"
^DD(6915.2,38.1,21,4,0)="Document is created."
^DD(6915.2,38.1,"DT")="2981215"
^DD(6915.2,39,0)="FUNDING SOURCE^RF^^3;20^K:$L(X)>12!($L(X)<8) X"
^DD(6915.2,39,3)="Answer must be 8-12 characters in length."
^DD(6915.2,39,21,0)="^^1^1^2951213^^^"
^DD(6915.2,39,21,1,0)="This is the year_the fund which acquired the asset_the CFO code."
^DD(6915.2,39,"DT")="2950905"
^DD(6915.2,40,0)="REPLACEMENT YEAR^F^^3;21^K:$L(X)>4!($L(X)<4) X"
^DD(6915.2,40,3)="Answer must be 4 characters in length."
^DD(6915.2,40,21,0)="^^1^1^2950920^"
^DD(6915.2,40,21,1,0)="This is the year the item will be replaced."
^DD(6915.2,40,"DT")="2950905"
^DD(6915.2,41,0)="REPLACEMENT MONTH^F^^3;22^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,41,3)="Answer must be 2 characters in length."
^DD(6915.2,41,21,0)="^^1^1^2950920^"
^DD(6915.2,41,21,1,0)="This is the month the item will be replaced."
^DD(6915.2,41,"DT")="2950905"
^DD(6915.2,42,0)="REPLACEMENT DAY^F^^3;23^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,42,3)="Answer must be 2 characters in length."
^DD(6915.2,42,21,0)="^^1^1^2950920^"
^DD(6915.2,42,21,1,0)="This is the day the item will be replaced."
^DD(6915.2,42,"DT")="2950905"
^DD(6915.2,43,0)="USEFUL LIFE^RF^^3;24^K:$L(X)>3!($L(X)<1) X"
^DD(6915.2,43,3)="Answer must be 1-3 characters in length."
^DD(6915.2,43,21,0)="^^1^1^2950920^"
^DD(6915.2,43,21,1,0)="This is the useful life expectancy in years for this item."
^DD(6915.2,43,"DT")="2950905"
^DD(6915.2,44,0)="SALVAGE VALUE^F^^3;25^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.2,44,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.2,44,21,0)="^^2^2^2950920^"
^DD(6915.2,44,21,1,0)="This is the expected salvage value upon disposing of the item.  Should be"
^DD(6915.2,44,21,2,0)="0 for depreciable items."
^DD(6915.2,44,"DT")="2950922"
^DD(6915.2,45,0)="DEPRECIATION METHOD^F^^3;26^K:$L(X)>3!($L(X)<1) X"
^DD(6915.2,45,3)="Answer must be 1-3 characters in length."
^DD(6915.2,45,21,0)="^^2^2^2950920^"
^DD(6915.2,45,21,1,0)="This is how the item will be depreciated.  Always SL (straight line) for"
^DD(6915.2,45,21,2,0)="NX equipment."
^DD(6915.2,45,"DT")="2950905"
^DD(6915.2,46,0)="SUMMARY ASSET VALUE^F^^3;27^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.2,46,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.2,46,21,0)="^^1^1^2950920^"
^DD(6915.2,46,21,1,0)="This is the total value of the asset."
^DD(6915.2,46,"DT")="2950922"
^DD(6915.2,47,0)="COST ORGANIZATION^F^^3;28^K:$L(X)>7!($L(X)<3) X"
^DD(6915.2,47,3)="Answer must be 3-7 characters in length."
^DD(6915.2,47,21,0)="^^1^1^2950920^"
^DD(6915.2,47,21,1,0)="This is the cost center the item belongs to."
^DD(6915.2,47,"DT")="2950905"
^DD(6915.2,47.1,0)="COST SUB ORG^F^^3;29^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,47.1,3)="Answer must be 2 characters in length."
^DD(6915.2,47.1,21,0)="^^1^1^2960320^^"
^DD(6915.2,47.1,21,1,0)="For future use."
^DD(6915.2,47.1,"DT")="2951207"
^DD(6915.2,47.2,0)="SUB ORG^F^^3;30^K:$L(X)>2!($L(X)<2) X"
^DD(6915.2,47.2,3)="Answer must be 2 characters in length."
^DD(6915.2,47.2,21,0)="^^1^1^2960320^^"
^DD(6915.2,47.2,21,1,0)="Satellite Station designator."
^DD(6915.2,47.2,"DT")="2960320"
^DD(6915.2,48,0)="SEGMENT 4 ID^F^^4;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,48,3)="Answer must be 3 characters in length."
^DD(6915.2,48,21,0)="^^1^1^2950920^"
^DD(6915.2,48,21,1,0)="This is the segment ID for the FA2 segment.  Should always be FA2."
^DD(6915.2,48,"DT")="2950905"
^DD(6915.2,49,0)="SEGMENT 5 ID^F^^5;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,49,3)="Answer must be 3 characters in length."
^DD(6915.2,49,21,0)="^^1^1^2950922^^"
^DD(6915.2,49,21,1,0)="This is the segment ID for the FA3 segment.  Should always be FA3."
^DD(6915.2,49,"DT")="2950905"
^DD(6915.2,50,0)="SEGMENT 6 ID^RF^^6;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,50,3)="Answer must be 3 characters in length."
^DD(6915.2,50,21,0)="^^1^1^2950920^"
^DD(6915.2,50,21,1,0)="This is the segment ID for the LIN section.  Should always be LIN."
^DD(6915.2,50,"DT")="2950905"
^DD(6915.2,51,0)="SEGMENT 7 ID^RF^^7;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.2,51,3)="Answer must be 3 characters in length."
^DD(6915.2,51,21,0)="^^1^1^2950920^"
^DD(6915.2,51,21,1,0)="This is the segment ID for the FAA segment.  Should always be FAA."
^DD(6915.2,51,"DT")="2950905"
^DD(6915.2,52,0)="EQUITY ACCOUNT 1^RF^^7;2^K:$L(X)>4!($L(X)<4) X"
^DD(6915.2,52,3)="Answer must be 4 characters in length."
^DD(6915.2,52,21,0)="^^1^1^2950920^"
^DD(6915.2,52,21,1,0)="This is the General Ledger account in which the asset resides."
^DD(6915.2,52,"DT")="2950905"
^DD(6915.2,53,0)="ASSET VALUE 1^RF^^7;3^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.2,53,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.2,53,21,0)="^^1^1^2950920^"
^DD(6915.2,53,21,1,0)="This is the value of the asset."
^DD(6915.2,53,"DT")="2950922"
^DD(6915.2,201,0)="ADJUSTED ASSET VALUE^F^^200;1^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.2,201,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.2,201,21,0)="^^4^4^2951214^^"
^DD(6915.2,201,21,1,0)="This is the current SUMMARY ASSET VALUE of the FA Document. It is"
^DD(6915.2,201,21,2,0)="initially populated with the original SUMMARY ASSET VALUE of the FA"
^DD(6915.2,201,21,3,0)="Document and then automatically adjusted whenever FC Documents are"
^DD(6915.2,201,21,4,0)="processed against this FA Document."
^DD(6915.2,201,"DT")="2951214"
^DD(6915.2,301,0)="A.V. DATE^DI^^300;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.2,301,1,0)="^.1"
^DD(6915.2,301,1,1,0)="^^TRIGGER^6915.2^302"
^DD(6915.2,301,1,1,1)="X ^DD(6915.2,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.2,D0,300)):^(300),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6915.2,301,1,1,1.4)"
^DD(6915.2,301,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6915.2,D0,300)):^(300),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(6915.2,301,1,1,1.4)="S DIH=$S($D(^ENG(6915.2,DIV(0),300)):^(300),1:""""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.2,DIG=302 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6915.2,301,1,1,2)="Q"
^DD(6915.2,301,1,1,"CREATE CONDITION")="#302="""""
^DD(6915.2,301,1,1,"CREATE VALUE")="S X=DUZ"
^DD(6915.2,301,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6915.2,301,1,1,"DT")="2961218"
^DD(6915.2,301,1,1,"FIELD")="#302"
^DD(6915.2,301,1,2,0)="6915.2^AV"
^DD(6915.2,301,1,2,1)="S ^ENG(6915.2,""AV"",$E(X,1,30),DA)="""""
^DD(6915.2,301,1,2,2)="K ^ENG(6915.2,""AV"",$E(X,1,30),DA)"
^DD(6915.2,301,1,2,"DT")="2961218"
^DD(6915.2,301,21,0)="^^4^4^2961219^"
^DD(6915.2,301,21,1,0)="This field contains the date/time when an Adjustment Voucher was created."
^DD(6915.2,301,21,2,0)="If blank, then an Adjustment Voucher has not yet been created for the FA"
^DD(6915.2,301,21,3,0)="Document. An Adjustment Voucher is used to notify Fiscal about a selected"
^DD(6915.2,301,21,4,0)="FAP Document."
^DD(6915.2,301,"DT")="2961218"
^DD(6915.2,302,0)="A.V. CREATED BY^P200'^VA(200,^300;2^Q"
^DD(6915.2,302,5,1,0)="6915.2^301^1"
^DD(6915.2,302,9)="^"
^DD(6915.2,302,21,0)="^^1^1^2961218^"
^DD(6915.2,302,21,1,0)="User that created adjustment voucher."
^DD(6915.2,302,"DT")="2961218"
^DD(6915.2,303,0)="A.V. REASON^*P6915.11'^ENG(6915.11,^300;3^S DIC(""S"")=""I $P(^(0),U,2)[""""FA"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.2,303,3)="Select reason for adjustment voucher."
^DD(6915.2,303,12)="Applicable reasons for FA Dcouments"
^DD(6915.2,303,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""FA"""""""
^DD(6915.2,303,"DT")="2970131"
^DD(6915.2,310,0)="A.V. COMMENTS^6915.21^^301;0"
^DD(6915.2,"B","A.V. COMMENTS",310)=""
^DD(6915.2,"B","A.V. CREATED BY",302)=""
^DD(6915.2,"B","A.V. DATE",301)=""
^DD(6915.2,"B","A.V. REASON",303)=""
^DD(6915.2,"B","ACQUISITION DAY",37)=""
^DD(6915.2,"B","ACQUISITION METHOD",38)=""
^DD(6915.2,"B","ACQUISITION MONTH",36)=""
^DD(6915.2,"B","ACQUISITION YEAR",35)=""
^DD(6915.2,"B","ADJUSTED ASSET VALUE",201)=""
^DD(6915.2,"B","ASSET VALUE 1",53)=""
^DD(6915.2,"B","BATCH NUMBER",9)=""
^DD(6915.2,"B","BEG BUDGET FY",28)=""
^DD(6915.2,"B","BUDGET OBJECT CODE",33)=""
^DD(6915.2,"B","COST ORGANIZATION",47)=""
^DD(6915.2,"B","COST SUB ORG",47.1)=""
^DD(6915.2,"B","DATE/TIME CREATED",1)=""
^DD(6915.2,"B","DEPRECIATION METHOD",45)=""
^DD(6915.2,"B","DESCRIPTION",34)=""
^DD(6915.2,"B","DESTINATION SYSTEM",4)=""
^DD(6915.2,"B","EQUIPMENT RECORD",.01)=""
^DD(6915.2,"B","EQUITY ACCOUNT 1",52)=""
^DD(6915.2,"B","FA GROUP",26)=""
^DD(6915.2,"B","FIXED ASSET NUMBER",24)=""
^DD(6915.2,"B","FIXED ASSET TYPE",25)=""
^DD(6915.2,"B","FUND",29)=""
^DD(6915.2,"B","FUNDING SOURCE",39)=""
^DD(6915.2,"B","LOCATION",27)=""
^DD(6915.2,"B","REPLACEMENT DAY",42)=""
^DD(6915.2,"B","REPLACEMENT MONTH",41)=""
^DD(6915.2,"B","REPLACEMENT YEAR",40)=""
^DD(6915.2,"B","SALVAGE VALUE",44)=""
^DD(6915.2,"B","SEC1 CODE",8)=""
^DD(6915.2,"B","SEGMENT 1 ID",2)=""
^DD(6915.2,"B","SEGMENT 2 ID",16)=""
^DD(6915.2,"B","SEGMENT 3 ID",20)=""
^DD(6915.2,"B","SEGMENT 4 ID",48)=""
^DD(6915.2,"B","SEGMENT 5 ID",49)=""
^DD(6915.2,"B","SEGMENT 6 ID",50)=""
^DD(6915.2,"B","SEGMENT 7 ID",51)=""
^DD(6915.2,"B","SENDER",1.5)=""
^DD(6915.2,"B","SEQUENCE NUMBER",13)=""
^DD(6915.2,"B","SEQUENCE TOTAL",14)=""
^DD(6915.2,"B","SOURCE SYSTEM",3)=""
^DD(6915.2,"B","SUB ORG",47.2)=""
^DD(6915.2,"B","SUBMITTING STATION",5)=""
^DD(6915.2,"B","SUMMARY ASSET VALUE",46)=""
^DD(6915.2,"B","TRANS CODE",21)=""
^DD(6915.2,"B","TRANS DIVISION",22)=""
^DD(6915.2,"B","TRANS NUMBER",23)=""
^DD(6915.2,"B","TRANSACTION CLASS",6)=""
^DD(6915.2,"B","TRANSACTION CODE",7)=""
^DD(6915.2,"B","TRANSACTION DATE",11)=""
^DD(6915.2,"B","TRANSACTION NUMBER",10)=""
^DD(6915.2,"B","TRANSACTION TIME",12)=""
^DD(6915.2,"B","USEFUL LIFE",43)=""
^DD(6915.2,"B","VERSION",15)=""
^DD(6915.2,"B","XAREA",38.1)=""
^DD(6915.2,"B","XDIVISION",30)=""
^DD(6915.2,"B","XORGANIZATION",31)=""
^DD(6915.2,"B","XPROGRAM",32)=""
^DD(6915.2,"GL",0,1,.01)=""
^DD(6915.2,"GL",0,2,1)=""
^DD(6915.2,"GL",0,3,1.5)=""
^DD(6915.2,"GL",1,1,2)=""
^DD(6915.2,"GL",1,2,3)=""
^DD(6915.2,"GL",1,3,4)=""
^DD(6915.2,"GL",1,4,5)=""
^DD(6915.2,"GL",1,5,6)=""
^DD(6915.2,"GL",1,6,7)=""
^DD(6915.2,"GL",1,7,8)=""
^DD(6915.2,"GL",1,8,9)=""
^DD(6915.2,"GL",1,9,10)=""
^DD(6915.2,"GL",1,10,11)=""
^DD(6915.2,"GL",1,11,12)=""
^DD(6915.2,"GL",1,12,13)=""
^DD(6915.2,"GL",1,13,14)=""
^DD(6915.2,"GL",1,14,15)=""
^DD(6915.2,"GL",2,1,16)=""
^DD(6915.2,"GL",3,1,20)=""
^DD(6915.2,"GL",3,2,21)=""
^DD(6915.2,"GL",3,3,22)=""
^DD(6915.2,"GL",3,4,23)=""
^DD(6915.2,"GL",3,5,24)=""
^DD(6915.2,"GL",3,6,25)=""
^DD(6915.2,"GL",3,7,26)=""
^DD(6915.2,"GL",3,8,27)=""
^DD(6915.2,"GL",3,9,28)=""
^DD(6915.2,"GL",3,10,29)=""
^DD(6915.2,"GL",3,11,30)=""
^DD(6915.2,"GL",3,12,31)=""
^DD(6915.2,"GL",3,13,32)=""
^DD(6915.2,"GL",3,14,33)=""
^DD(6915.2,"GL",3,15,34)=""
^DD(6915.2,"GL",3,16,35)=""
^DD(6915.2,"GL",3,17,36)=""
^DD(6915.2,"GL",3,18,37)=""
^DD(6915.2,"GL",3,19,38)=""
^DD(6915.2,"GL",3,20,39)=""
^DD(6915.2,"GL",3,21,40)=""
^DD(6915.2,"GL",3,22,41)=""
^DD(6915.2,"GL",3,23,42)=""
^DD(6915.2,"GL",3,24,43)=""
^DD(6915.2,"GL",3,25,44)=""
^DD(6915.2,"GL",3,26,45)=""
^DD(6915.2,"GL",3,27,46)=""
^DD(6915.2,"GL",3,28,47)=""
^DD(6915.2,"GL",3,29,47.1)=""
^DD(6915.2,"GL",3,30,47.2)=""
^DD(6915.2,"GL",3,31,38.1)=""
^DD(6915.2,"GL",4,1,48)=""
^DD(6915.2,"GL",5,1,49)=""
^DD(6915.2,"GL",6,1,50)=""
^DD(6915.2,"GL",7,1,51)=""
^DD(6915.2,"GL",7,2,52)=""
^DD(6915.2,"GL",7,3,53)=""
^DD(6915.2,"GL",200,1,201)=""
^DD(6915.2,"GL",300,1,301)=""
^DD(6915.2,"GL",300,2,302)=""
^DD(6915.2,"GL",300,3,303)=""
^DD(6915.2,"GL",301,0,310)=""
^DD(6915.2,"IX",.01)=""
^DD(6915.2,"IX",1)=""
^DD(6915.2,"IX",23)=""
^DD(6915.2,"IX",301)=""
^DD(6915.2,"RQ",.01)=""
^DD(6915.2,"RQ",1)=""
^DD(6915.2,"RQ",1.5)=""
^DD(6915.2,"RQ",2)=""
^DD(6915.2,"RQ",3)=""
^DD(6915.2,"RQ",4)=""
^DD(6915.2,"RQ",5)=""
^DD(6915.2,"RQ",6)=""
^DD(6915.2,"RQ",7)=""
^DD(6915.2,"RQ",8)=""
^DD(6915.2,"RQ",9)=""
^DD(6915.2,"RQ",10)=""
^DD(6915.2,"RQ",11)=""
^DD(6915.2,"RQ",12)=""
^DD(6915.2,"RQ",13)=""
^DD(6915.2,"RQ",14)=""
^DD(6915.2,"RQ",15)=""
^DD(6915.2,"RQ",16)=""
^DD(6915.2,"RQ",20)=""
^DD(6915.2,"RQ",21)=""
^DD(6915.2,"RQ",22)=""
^DD(6915.2,"RQ",23)=""
^DD(6915.2,"RQ",24)=""
^DD(6915.2,"RQ",25)=""
^DD(6915.2,"RQ",26)=""
^DD(6915.2,"RQ",27)=""
^DD(6915.2,"RQ",28)=""
^DD(6915.2,"RQ",29)=""
^DD(6915.2,"RQ",30)=""
^DD(6915.2,"RQ",31)=""
^DD(6915.2,"RQ",33)=""
^DD(6915.2,"RQ",35)=""
^DD(6915.2,"RQ",36)=""
^DD(6915.2,"RQ",37)=""
^DD(6915.2,"RQ",38)=""
^DD(6915.2,"RQ",39)=""
^DD(6915.2,"RQ",43)=""
^DD(6915.2,"RQ",50)=""
^DD(6915.2,"RQ",51)=""
^DD(6915.2,"RQ",52)=""
^DD(6915.2,"RQ",53)=""
^DD(6915.2,"SB",6915.21,310)=""
^DD(6915.21,0)="A.V. COMMENTS SUB-FIELD^^.01^1"
^DD(6915.21,0,"DT")="2961217"
^DD(6915.21,0,"NM","A.V. COMMENTS")=""
^DD(6915.21,0,"UP")="6915.2"
^DD(6915.21,.01,0)="A.V. COMMENTS^W^^0;1^Q"
^DD(6915.21,.01,3)="Enter adjustment voucher comments (if any)."
^DD(6915.21,.01,"DT")="2961217"
^DD(6915.21,"B","A.V. COMMENTS",.01)=""
^DD(6915.21,"GL",0,1,.01)=""
^DD(6915.3,0)="FIELD^^310^47"
^DD(6915.3,0,"DT")="2970131"
^DD(6915.3,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(6915.3,0,"ID",20)="W:$D(^(3)) ""   "",$P(^(3),U,4)"
^DD(6915.3,0,"ID",23)="W:$D(^(3)) ""   "",$P(^(3),U,7)"
^DD(6915.3,0,"IX","ABTR",6915.3,23)=""
^DD(6915.3,0,"IX","AV",6915.3,301)=""
^DD(6915.3,0,"IX","B",6915.3,.01)=""
^DD(6915.3,0,"IX","C",6915.3,20)=""
^DD(6915.3,0,"IX","D",6915.3,1)=""
^DD(6915.3,0,"NM","FB DOCUMENT LOG")=""
^DD(6915.3,0,"PT",6915.4,104)=""
^DD(6915.3,0,"VR")="7.0"
^DD(6915.3,0,"VRPK")="EN"
^DD(6915.3,.01,0)="EQUIPMENT RECORD^RP6914'^ENG(6914,^0;1^Q"
^DD(6915.3,.01,1,0)="^.1"
^DD(6915.3,.01,1,1,0)="6915.3^B"
^DD(6915.3,.01,1,1,1)="S ^ENG(6915.3,""B"",$E(X,1,30),DA)="""""
^DD(6915.3,.01,1,1,2)="K ^ENG(6915.3,""B"",$E(X,1,30),DA)"
^DD(6915.3,.01,3)=""
^DD(6915.3,.01,21,0)="^^2^2^2950919^"
^DD(6915.3,.01,21,1,0)="This field holds the internal entry number from file 6914 for the piece of"
^DD(6915.3,.01,21,2,0)="capitalized NX equipment that an FB document was sent for."
^DD(6915.3,.01,"DT")="2950905"
^DD(6915.3,1,0)="DATE/TIME CREATED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.3,1,1,0)="^.1"
^DD(6915.3,1,1,1,0)="6915.3^D"
^DD(6915.3,1,1,1,1)="S ^ENG(6915.3,""D"",$E(X,1,30),DA)="""""
^DD(6915.3,1,1,1,2)="K ^ENG(6915.3,""D"",$E(X,1,30),DA)"
^DD(6915.3,1,1,1,"DT")="2951109"
^DD(6915.3,1,21,0)="^^1^1^2950919^"
^DD(6915.3,1,21,1,0)="This is the date and time that the FB document was prepared."
^DD(6915.3,1,"DT")="2951213"
^DD(6915.3,1.5,0)="SENDER^RP200'^VA(200,^0;3^Q"
^DD(6915.3,1.5,21,0)="^^2^2^2950922^"
^DD(6915.3,1.5,21,1,0)="This is the person who created the FB document using the Betterment"
^DD(6915.3,1.5,21,2,0)="option."
^DD(6915.3,1.5,"DT")="2950913"
^DD(6915.3,2,0)="SEGMENT 1 ID^RF^^1;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,2,3)="Answer must be 3 characters in length."
^DD(6915.3,2,21,0)="^^1^1^2950919^"
^DD(6915.3,2,21,1,0)="This is the Segment 1 ID for the FB document, usually it will be CTL."
^DD(6915.3,2,"DT")="2950905"
^DD(6915.3,3,0)="SOURCE SYSTEM^RF^^1;2^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,3,3)="Answer must be 3 characters in length."
^DD(6915.3,3,21,0)="^^1^1^2950922^"
^DD(6915.3,3,21,1,0)="This is the source system for the FB document, ususally AMM."
^DD(6915.3,3,"DT")="2950905"
^DD(6915.3,4,0)="DESTINATION SYSTEM^F^^1;3^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,4,3)="Answer must be 3 characters in length."
^DD(6915.3,4,21,0)="^^1^1^2950919^"
^DD(6915.3,4,21,1,0)="This is the system where the FB document is going, usually FMS."
^DD(6915.3,4,"DT")="2950905"
^DD(6915.3,5,0)="SUBMITTING STATION^F^^1;4^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,5,3)="Answer must be 3 characters in length."
^DD(6915.3,5,21,0)="^^2^2^2950919^"
^DD(6915.3,5,21,1,0)="This is the station number of the site that is submitting this FB"
^DD(6915.3,5,21,2,0)="document."
^DD(6915.3,5,"DT")="2950905"
^DD(6915.3,6,0)="TRANSACTION CLASS^RF^^1;5^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,6,3)="Answer must be 3 characters in length."
^DD(6915.3,6,21,0)="^^2^2^2950919^"
^DD(6915.3,6,21,1,0)="This is the class of document being sent to FMS.  It is usually DOC, to"
^DD(6915.3,6,21,2,0)="represent a document transaction."
^DD(6915.3,6,"DT")="2950905"
^DD(6915.3,7,0)="TRANSACTION CODE^RF^^1;6^K:$L(X)>2!($L(X)<2) X"
^DD(6915.3,7,3)="Answer must be 2 characters in length."
^DD(6915.3,7,21,0)="^^2^2^2950919^"
^DD(6915.3,7,21,1,0)="This tells FMS what kind of document is being sent.  FB for an FB"
^DD(6915.3,7,21,2,0)="document."
^DD(6915.3,7,"DT")="2950905"
^DD(6915.3,8,0)="SEC1 CODE^RF^^1;7^K:$L(X)>4!($L(X)<4) X"
^DD(6915.3,8,3)="Answer must be 4 characters in length."
^DD(6915.3,8,21,0)="^^2^2^2950922^"
^DD(6915.3,8,21,1,0)="This is the Security 1 code of the submitting Administration/Staff office."
^DD(6915.3,8,21,2,0)="VHA=10, VBA=20, and NCS=40."
^DD(6915.3,8,"DT")="2950905"
^DD(6915.3,9,0)="BATCH NUMBER^RF^^1;8^K:$L(X)>6!($L(X)<6) X"
^DD(6915.3,9,3)="Answer must be 6 characters in length."
^DD(6915.3,9,21,0)="^^2^2^2950921^^"
^DD(6915.3,9,21,1,0)="This is the batch number of the FB document being sent.  Currently set to"
^DD(6915.3,9,21,2,0)="six spaces."
^DD(6915.3,9,"DT")="2950905"
^DD(6915.3,10,0)="TRANSACTION NUMBER^RF^^1;9^K:$L(X)>11!($L(X)<11) X"
^DD(6915.3,10,3)="Answer must be 11 characters in length."
^DD(6915.3,10,21,0)="^^3^3^2950920^"
^DD(6915.3,10,21,1,0)="This is the transaction number for this FB document.  It consists of the"
^DD(6915.3,10,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.3,10,21,3,0)="number."
^DD(6915.3,10,"DT")="2950905"
^DD(6915.3,11,0)="TRANSACTION DATE^RF^^1;10^K:$L(X)>8!($L(X)<8) X"
^DD(6915.3,11,3)="Answer must be 8 characters in length."
^DD(6915.3,11,21,0)="^^1^1^2950920^"
^DD(6915.3,11,21,1,0)="This is the date the FB document was created in YYYYMMDD format."
^DD(6915.3,11,"DT")="2950905"
^DD(6915.3,12,0)="TRANSACTION TIME^RF^^1;11^K:$L(X)>6!($L(X)<6) X"
^DD(6915.3,12,3)="Answer must be 6 characters in length."
^DD(6915.3,12,21,0)="^^1^1^2950920^"
^DD(6915.3,12,21,1,0)="This is the time the FB document was created in HHMMSS format."
^DD(6915.3,12,"DT")="2950905"
^DD(6915.3,13,0)="SEQUENCE NUMBER^RF^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,13,3)="Answer must be 3 characters in length."
^DD(6915.3,13,21,0)="^^1^1^2950920^"
^DD(6915.3,13,21,1,0)="This is the transaction part sequence number.  Should always be 001."
^DD(6915.3,13,"DT")="2950905"
^DD(6915.3,14,0)="SEQUENCE TOTAL^RF^^1;13^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,14,3)="Answer must be 3 characters in length."
^DD(6915.3,14,21,0)="^^1^1^2950920^"
^DD(6915.3,14,21,1,0)="This is the total number of transaction parts.  Should always be 001."
^DD(6915.3,14,"DT")="2950905"
^DD(6915.3,15,0)="VERSION^RF^^1;14^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,15,3)="Answer must be 3 characters in length."
^DD(6915.3,15,21,0)="^^1^1^2950922^"
^DD(6915.3,15,21,1,0)="This is the AMES/MERS-FMS interface version.  Should always be 001."
^DD(6915.3,15,"DT")="2950905"
^DD(6915.3,16,0)="SEGMENT 2 ID^F^^2;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,16,3)="Answer must be 3 characters in length."
^DD(6915.3,16,21,0)="^^1^1^2950920^"
^DD(6915.3,16,21,1,0)="This is the segment identifier for segment 2.  Should always be DOC."
^DD(6915.3,16,"DT")="2950905"
^DD(6915.3,17,0)="SEGMENT 3 ID^F^^3;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,17,3)="Answer must be 3 characters in length."
^DD(6915.3,17,21,0)="^^2^2^2950922^"
^DD(6915.3,17,21,1,0)="This is the segment identifier for the the FB1 segment.  Should always be"
^DD(6915.3,17,21,2,0)="FB1."
^DD(6915.3,17,"DT")="2950905"
^DD(6915.3,18,0)="TRANS CODE^F^^3;2^K:$L(X)>2!($L(X)<2) X"
^DD(6915.3,18,3)="Answer must be 2 characters in length."
^DD(6915.3,18,21,0)="^^1^1^2950921^"
^DD(6915.3,18,21,1,0)="This is the Trans code for the FB1 segment.  Should always be FB."
^DD(6915.3,18,"DT")="2950905"
^DD(6915.3,19,0)="TRANS DIVISION^F^^3;3^K:$L(X)>4!($L(X)<2) X"
^DD(6915.3,19,3)="Answer must be 2-4 characters in length."
^DD(6915.3,19,21,0)="^^1^1^2950922^"
^DD(6915.3,19,21,1,0)="This is the Security 1 code.  VHA=10, VBA=20, NCS=40."
^DD(6915.3,19,"DT")="2950905"
^DD(6915.3,20,0)="TRANS NUMBER^F^^3;4^K:$L(X)>11!($L(X)<9) X"
^DD(6915.3,20,1,0)="^.1"
^DD(6915.3,20,1,1,0)="6915.3^C"
^DD(6915.3,20,1,1,1)="S ^ENG(6915.3,""C"",$E(X,1,30),DA)="""""
^DD(6915.3,20,1,1,2)="K ^ENG(6915.3,""C"",$E(X,1,30),DA)"
^DD(6915.3,20,1,1,"DT")="2961219"
^DD(6915.3,20,3)="Answer must be 9-11 characters in length."
^DD(6915.3,20,21,0)="^^3^3^2950920^"
^DD(6915.3,20,21,1,0)="This is the transaction number for this FB document.  It consists of the"
^DD(6915.3,20,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.3,20,21,3,0)="number."
^DD(6915.3,20,"DT")="2961219"
^DD(6915.3,21,0)="FIXED ASSET NUMBER^RF^^3;5^K:$L(X)>15!($L(X)<15) X"
^DD(6915.3,21,3)="Answer must be 15 characters in length."
^DD(6915.3,21,21,0)="^^3^3^2950921^^^"
^DD(6915.3,21,21,1,0)="The fixed asset number consists of the submitting station_the 2 digit"
^DD(6915.3,21,21,2,0)="satelite station number (or 2 spaces if no satellite)_the internal entry"
^DD(6915.3,21,21,3,0)="number of the asset from file 6914."
^DD(6915.3,21,"DT")="2950905"
^DD(6915.3,22,0)="FIXED ASSET TYPE^RF^^3;6^K:$L(X)>1!($L(X)<1) X"
^DD(6915.3,22,3)="Answer must be 1 character in length."
^DD(6915.3,22,21,0)="^^2^2^2950922^^"
^DD(6915.3,22,21,1,0)="This is the FA TYPE field from the NX SGL file for this particular"
^DD(6915.3,22,21,2,0)="Standard General Ledger account."
^DD(6915.3,22,"DT")="2950905"
^DD(6915.3,23,0)="BETTERMENT NUMBER^RF^^3;7^K:$L(X)>2!($L(X)<1) X"
^DD(6915.3,23,1,0)="^.1"
^DD(6915.3,23,1,1,0)="6915.3^ABTR^MUMPS"
^DD(6915.3,23,1,1,1)="S ^ENG(6915.3,""ABTR"",$P(^ENG(6915.3,DA,0),U),X,DA)="""""
^DD(6915.3,23,1,1,2)="K ^ENG(6915.3,""ABTR"",$P(^ENG(6915.3,DA,0),U),X,DA)"
^DD(6915.3,23,1,1,"%D",0)="^^1^1^2950919^^^^"
^DD(6915.3,23,1,1,"%D",1,0)="Means of helping users choose from available betterments."
^DD(6915.3,23,1,1,"DT")="2950919"
^DD(6915.3,23,3)="Answer must be 1-2 characters in length."
^DD(6915.3,23,21,0)="^^2^2^2950921^"
^DD(6915.3,23,21,1,0)="This is the 2 digit sequential betterment number for this asset.  The"
^DD(6915.3,23,21,2,0)="first betterment would have a number of 01, the second 02, etc."
^DD(6915.3,23,"DT")="2950919"
^DD(6915.3,24,0)="DESCRIPTION^RF^^3;8^K:$L(X)>30!($L(X)<3) X"
^DD(6915.3,24,3)="Answer must be 3-30 characters in length."
^DD(6915.3,24,21,0)="^^2^2^2960729^^"
^DD(6915.3,24,21,1,0)="This is the free text description of the betterment, for example, what the"
^DD(6915.3,24,21,2,0)="betterment does."
^DD(6915.3,24,"DT")="2960729"
^DD(6915.3,25,0)="ACQ YR - BETTERMENT (4 digit)^F^^3;9^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6915.3,25,3)="Answer must be 4 numerics in length."
^DD(6915.3,25,21,0)="^^1^1^2950921^"
^DD(6915.3,25,21,1,0)="This is the year in which the betterment was acquired."
^DD(6915.3,25,"DT")="2950913"
^DD(6915.3,26,0)="ACQUISITION MONTH (2 digit)^F^^3;10^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6915.3,26,3)="Answer must be 2 numerics in length."
^DD(6915.3,26,21,0)="^^1^1^2950921^"
^DD(6915.3,26,21,1,0)="This is the month in which the betterment was acquired."
^DD(6915.3,26,"DT")="2950913"
^DD(6915.3,27,0)="ACQUISITION DAY (2 digit)^F^^3;11^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6915.3,27,3)="Answer must be 2 numerics in length."
^DD(6915.3,27,21,0)="^^1^1^2950921^"
^DD(6915.3,27,21,1,0)="This is the day in which the betterment was acquired."
^DD(6915.3,27,"DT")="2950913"
^DD(6915.3,28,0)="ACQUISITION METHOD^RS^C:CONSTRUCTED;G:GIFT/BEQUEST/DONATION;L:LEASED;M:CAPITAL LEASE;O:OTHER;P:PURCHASED;R:TRANSFERRED;T:TRADED;X:EXCESS;^3;12^Q"
^DD(6915.3,28,3)=""
^DD(6915.3,28,21,0)="^^2^2^2960729^^^"
^DD(6915.3,28,21,1,0)="This is the method by which the betterment was acquired; purchased,"
^DD(6915.3,28,21,2,0)="leased, etc."
^DD(6915.3,28,"DT")="2971210"
^DD(6915.3,29,0)="SEGMENT 4 ID^F^^4;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,29,3)="Answer must be 3 characters in length."
^DD(6915.3,29,21,0)="^^1^1^2950921^^"
^DD(6915.3,29,21,1,0)="This is the segment ID for the FB2 segment.  Should always be FB2."
^DD(6915.3,29,"DT")="2950905"
^DD(6915.3,30,0)="UNITS^F^^4;2^K:$L(X)>8!($L(X)<1) X"
^DD(6915.3,30,3)="Answer must be 1-8 characters in length."
^DD(6915.3,30,21,0)="^^1^1^2950922^"
^DD(6915.3,30,21,1,0)="This is the units that the betterment is measured by; each, gross, etc."
^DD(6915.3,30,"DT")="2950905"
^DD(6915.3,31,0)="SALVAGE VALUE^F^^4;3^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.3,31,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.3,31,21,0)="^^1^1^2950921^"
^DD(6915.3,31,21,1,0)="Should be 0.00 for depreciable items, otherwise blank."
^DD(6915.3,31,"DT")="2950922"
^DD(6915.3,32,0)="SUMMARY ASSET VALUE^RF^^4;4^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.3,32,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.3,32,4)=""
^DD(6915.3,32,21,0)="^^1^1^2960729^^^^"
^DD(6915.3,32,21,1,0)="This is the total value of the betterment."
^DD(6915.3,32,"DT")="2960729"
^DD(6915.3,33,0)="SEGMENT 5 ID^F^^5;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,33,3)="Answer must be 3 characters in length."
^DD(6915.3,33,21,0)="^^1^1^2950921^^"
^DD(6915.3,33,21,1,0)="This is the segment ID for the LIN section.  Should always be LIN."
^DD(6915.3,33,"DT")="2950905"
^DD(6915.3,34,0)="SEGMENT 6 ID^F^^6;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.3,34,3)="Answer must be 3 characters in length."
^DD(6915.3,34,21,0)="^^1^1^2950921^"
^DD(6915.3,34,21,1,0)="This is the segment ID for the FBA segment.  Should always be FBA."
^DD(6915.3,34,"DT")="2950905"
^DD(6915.3,35,0)="EQUITY ACCOUNT 1^S^3299:MEDICAL;3210:NON-MEDICAL;3402:DONATED;^6;2^Q"
^DD(6915.3,35,3)=""
^DD(6915.3,35,21,0)="^^1^1^2950921^^"
^DD(6915.3,35,21,1,0)="This is the General Ledger account in which the asset resides."
^DD(6915.3,35,"DT")="2950920"
^DD(6915.3,36,0)="ASSET VALUE 1^F^^6;3^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.3,36,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.3,36,21,0)="^^1^1^2950921^^"
^DD(6915.3,36,21,1,0)="This is the value of the asset."
^DD(6915.3,36,"DT")="2950922"
^DD(6915.3,100,0)="ACQUISITION DATE^RDX^^100;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:$E(X,4,5)=""00"" X I $D(X),$E(X,6,7)=""00"" S X=$E(X,1,5)_""01"""
^DD(6915.3,100,3)="ACQUISITION DATE MUST CONTAIN MONTH!"
^DD(6915.3,100,21,0)="^^1^1^2960729^^^"
^DD(6915.3,100,21,1,0)="Use VA FileMan to get date from which FAP format can be extracted."
^DD(6915.3,100,"DT")="2960729"
^DD(6915.3,201,0)="ADJUSTED ASSET VALUE^F^^200;1^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.3,201,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.3,201,21,0)="^^4^4^2951214^"
^DD(6915.3,201,21,1,0)="This is the current SUMMARY ASSET VALUE of the FB Document. It is"
^DD(6915.3,201,21,2,0)="initially populated with the original SUMMARY ASSET VALUE of the FB"
^DD(6915.3,201,21,3,0)="Document and then automatically adjusted whenever FC Documents are"
^DD(6915.3,201,21,4,0)="processed against this FB Document."
^DD(6915.3,201,"DT")="2951214"
^DD(6915.3,202,0)="ADJUSTED DESCRIPTION^F^^200;2^K:$L(X)>30!($L(X)<3) X"
^DD(6915.3,202,3)="Answer must be 3-30 characters in length."
^DD(6915.3,202,21,0)="^^3^3^2960326^"
^DD(6915.3,202,21,1,0)="This is the current description of the FB document. It is initially"
^DD(6915.3,202,21,2,0)="populated with the original DESCRIPTION of the FB Document and then"
^DD(6915.3,202,21,3,0)="automatically adjusted whenever the FB is changed by a FC Document."
^DD(6915.3,202,"DT")="2960326"
^DD(6915.3,203,0)="ADJUSTED ACQUISITION DATE^D^^200;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.3,203,21,0)="^^3^3^2960326^"
^DD(6915.3,203,21,1,0)="This is the current acquisition date of the FB DOcument. It is initially"
^DD(6915.3,203,21,2,0)="populated with the original ACQUISITION DATE of the FB Document and then"
^DD(6915.3,203,21,3,0)="automatically adjusted whenever the FB is changed by a FC Document."
^DD(6915.3,203,"DT")="2960326"
^DD(6915.3,204,0)="ADJUSTED ACQUISITION METHOD^S^C:CONSTRUCTED;G:GIFT/BEQUEST/DONATION;L:LEASED;M:LEASED/PURCHASED;O:OTHER;P:PURCHASED;R:TRANSFERRED;T:TRADED;X:EXCESS;^200;4^Q"
^DD(6915.3,204,21,0)="^^3^3^2960326^"
^DD(6915.3,204,21,1,0)="This is the current acquisition method of the FB Document. It is initially"
^DD(6915.3,204,21,2,0)="populated with the original ACQUISITION METHOD if the Fb Document and then"
^DD(6915.3,204,21,3,0)="automatically adjusted whenever the FB is changed by a FC Document."
^DD(6915.3,204,"DT")="2960326"
^DD(6915.3,301,0)="A.V. DATE^DI^^300;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.3,301,1,0)="^.1"
^DD(6915.3,301,1,1,0)="^^TRIGGER^6915.3^302"
^DD(6915.3,301,1,1,1)="X ^DD(6915.3,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.3,D0,300)):^(300),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6915.3,301,1,1,1.4)"
^DD(6915.3,301,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6915.3,D0,300)):^(300),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(6915.3,301,1,1,1.4)="S DIH=$S($D(^ENG(6915.3,DIV(0),300)):^(300),1:""""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.3,DIG=302 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6915.3,301,1,1,2)="Q"
^DD(6915.3,301,1,1,"CREATE CONDITION")="#302="""""
^DD(6915.3,301,1,1,"CREATE VALUE")="S X=DUZ"
^DD(6915.3,301,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6915.3,301,1,1,"DT")="2961218"
^DD(6915.3,301,1,1,"FIELD")="#302"
^DD(6915.3,301,1,2,0)="6915.3^AV"
^DD(6915.3,301,1,2,1)="S ^ENG(6915.3,""AV"",$E(X,1,30),DA)="""""
^DD(6915.3,301,1,2,2)="K ^ENG(6915.3,""AV"",$E(X,1,30),DA)"
^DD(6915.3,301,1,2,"DT")="2961218"
^DD(6915.3,301,21,0)="^^4^4^2961219^"
^DD(6915.3,301,21,1,0)="This field contains the date/time when an Adjustment Voucher was created."
^DD(6915.3,301,21,2,0)="If blank, then an Adjustment Voucher has not yet been created for the FB"
^DD(6915.3,301,21,3,0)="Document. An Adjustment Voucher is used to notify Fiscal about a selected"
^DD(6915.3,301,21,4,0)="FAP Document."
^DD(6915.3,301,"DT")="2961218"
^DD(6915.3,302,0)="A.V. CREATED BY^P200'^VA(200,^300;2^Q"
^DD(6915.3,302,5,1,0)="6915.3^301^1"
^DD(6915.3,302,9)="^"
^DD(6915.3,302,21,0)="^^1^1^2961218^"
^DD(6915.3,302,21,1,0)="User that created adjustment voucher."
^DD(6915.3,302,"DT")="2961218"
^DD(6915.3,303,0)="A.V. REASON^*P6915.11'^ENG(6915.11,^300;3^S DIC(""S"")=""I $P(^(0),U,2)[""""FB"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.3,303,3)="Select reason for adjustment voucher."
^DD(6915.3,303,12)="Applicable reasons for FB Document"
^DD(6915.3,303,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""FB"""""""
^DD(6915.3,303,"DT")="2970131"
^DD(6915.3,310,0)="A.V. COMMENTS^6915.31^^301;0"
^DD(6915.3,"B","A.V. COMMENTS",310)=""
^DD(6915.3,"B","A.V. CREATED BY",302)=""
^DD(6915.3,"B","A.V. DATE",301)=""
^DD(6915.3,"B","A.V. REASON",303)=""
^DD(6915.3,"B","ACQ YR - BETTERMENT (4 digit)",25)=""
^DD(6915.3,"B","ACQUISITION DATE",100)=""
^DD(6915.3,"B","ACQUISITION DAY (2 digit)",27)=""
^DD(6915.3,"B","ACQUISITION METHOD",28)=""
^DD(6915.3,"B","ACQUISITION MONTH (2 digit)",26)=""
^DD(6915.3,"B","ADJUSTED ACQUISITION DATE",203)=""
^DD(6915.3,"B","ADJUSTED ACQUISITION METHOD",204)=""
^DD(6915.3,"B","ADJUSTED ASSET VALUE",201)=""
^DD(6915.3,"B","ADJUSTED DESCRIPTION",202)=""
^DD(6915.3,"B","ASSET VALUE 1",36)=""
^DD(6915.3,"B","BATCH NUMBER",9)=""
^DD(6915.3,"B","BETTERMENT NUMBER",23)=""
^DD(6915.3,"B","DATE/TIME CREATED",1)=""
^DD(6915.3,"B","DESCRIPTION",24)=""
^DD(6915.3,"B","DESTINATION SYSTEM",4)=""
^DD(6915.3,"B","EQUIPMENT RECORD",.01)=""
^DD(6915.3,"B","EQUITY ACCOUNT 1",35)=""
^DD(6915.3,"B","FIXED ASSET NUMBER",21)=""
^DD(6915.3,"B","FIXED ASSET TYPE",22)=""
^DD(6915.3,"B","SALVAGE VALUE",31)=""
^DD(6915.3,"B","SEC1 CODE",8)=""
^DD(6915.3,"B","SEGMENT 1 ID",2)=""
^DD(6915.3,"B","SEGMENT 2 ID",16)=""
^DD(6915.3,"B","SEGMENT 3 ID",17)=""
^DD(6915.3,"B","SEGMENT 4 ID",29)=""
^DD(6915.3,"B","SEGMENT 5 ID",33)=""
^DD(6915.3,"B","SEGMENT 6 ID",34)=""
^DD(6915.3,"B","SENDER",1.5)=""
^DD(6915.3,"B","SEQUENCE NUMBER",13)=""
^DD(6915.3,"B","SEQUENCE TOTAL",14)=""
^DD(6915.3,"B","SOURCE SYSTEM",3)=""
^DD(6915.3,"B","SUBMITTING STATION",5)=""
^DD(6915.3,"B","SUMMARY ASSET VALUE",32)=""
^DD(6915.3,"B","TRANS CODE",18)=""
^DD(6915.3,"B","TRANS DIVISION",19)=""
^DD(6915.3,"B","TRANS NUMBER",20)=""
^DD(6915.3,"B","TRANSACTION CLASS",6)=""
^DD(6915.3,"B","TRANSACTION CODE",7)=""
^DD(6915.3,"B","TRANSACTION DATE",11)=""
^DD(6915.3,"B","TRANSACTION NUMBER",10)=""
^DD(6915.3,"B","TRANSACTION TIME",12)=""
^DD(6915.3,"B","UNITS",30)=""
^DD(6915.3,"B","VERSION",15)=""
^DD(6915.3,"GL",0,1,.01)=""
^DD(6915.3,"GL",0,2,1)=""
^DD(6915.3,"GL",0,3,1.5)=""
^DD(6915.3,"GL",1,1,2)=""
^DD(6915.3,"GL",1,2,3)=""
^DD(6915.3,"GL",1,3,4)=""
^DD(6915.3,"GL",1,4,5)=""
^DD(6915.3,"GL",1,5,6)=""
^DD(6915.3,"GL",1,6,7)=""
^DD(6915.3,"GL",1,7,8)=""
^DD(6915.3,"GL",1,8,9)=""
^DD(6915.3,"GL",1,9,10)=""
^DD(6915.3,"GL",1,10,11)=""
^DD(6915.3,"GL",1,11,12)=""
^DD(6915.3,"GL",1,12,13)=""
^DD(6915.3,"GL",1,13,14)=""
^DD(6915.3,"GL",1,14,15)=""
^DD(6915.3,"GL",2,1,16)=""
^DD(6915.3,"GL",3,1,17)=""
^DD(6915.3,"GL",3,2,18)=""
^DD(6915.3,"GL",3,3,19)=""
^DD(6915.3,"GL",3,4,20)=""
^DD(6915.3,"GL",3,5,21)=""
^DD(6915.3,"GL",3,6,22)=""
^DD(6915.3,"GL",3,7,23)=""
^DD(6915.3,"GL",3,8,24)=""
^DD(6915.3,"GL",3,9,25)=""
^DD(6915.3,"GL",3,10,26)=""
^DD(6915.3,"GL",3,11,27)=""
^DD(6915.3,"GL",3,12,28)=""
^DD(6915.3,"GL",4,1,29)=""
^DD(6915.3,"GL",4,2,30)=""
^DD(6915.3,"GL",4,3,31)=""
^DD(6915.3,"GL",4,4,32)=""
^DD(6915.3,"GL",5,1,33)=""
^DD(6915.3,"GL",6,1,34)=""
^DD(6915.3,"GL",6,2,35)=""
^DD(6915.3,"GL",6,3,36)=""
^DD(6915.3,"GL",100,1,100)=""
^DD(6915.3,"GL",200,1,201)=""
^DD(6915.3,"GL",200,2,202)=""
^DD(6915.3,"GL",200,3,203)=""
^DD(6915.3,"GL",200,4,204)=""
^DD(6915.3,"GL",300,1,301)=""
^DD(6915.3,"GL",300,2,302)=""
^DD(6915.3,"GL",300,3,303)=""
^DD(6915.3,"GL",301,0,310)=""
^DD(6915.3,"IX",.01)=""
^DD(6915.3,"IX",1)=""
^DD(6915.3,"IX",20)=""
^DD(6915.3,"IX",23)=""
^DD(6915.3,"IX",301)=""
^DD(6915.3,"RQ",.01)=""
^DD(6915.3,"RQ",1)=""
^DD(6915.3,"RQ",1.5)=""
^DD(6915.3,"RQ",2)=""
^DD(6915.3,"RQ",3)=""
^DD(6915.3,"RQ",6)=""
^DD(6915.3,"RQ",7)=""
^DD(6915.3,"RQ",8)=""
^DD(6915.3,"RQ",9)=""
^DD(6915.3,"RQ",10)=""
^DD(6915.3,"RQ",11)=""
^DD(6915.3,"RQ",12)=""
^DD(6915.3,"RQ",13)=""
^DD(6915.3,"RQ",14)=""
^DD(6915.3,"RQ",15)=""
^DD(6915.3,"RQ",21)=""
^DD(6915.3,"RQ",22)=""
^DD(6915.3,"RQ",23)=""
^DD(6915.3,"RQ",24)=""
^DD(6915.3,"RQ",28)=""
^DD(6915.3,"RQ",32)=""
^DD(6915.3,"RQ",100)=""
^DD(6915.3,"SB",6915.31,310)=""
^DD(6915.31,0)="A.V. COMMENTS SUB-FIELD^^.01^1"
^DD(6915.31,0,"DT")="2961217"
^DD(6915.31,0,"NM","A.V. COMMENTS")=""
^DD(6915.31,0,"UP")="6915.3"
^DD(6915.31,.01,0)="A.V. COMMENTS^W^^0;1^Q"
^DD(6915.31,.01,3)="Enter adjustment voucher comments (if any)."
^DD(6915.31,.01,"DT")="2961217"
^DD(6915.31,"B","A.V. COMMENTS",.01)=""
^DD(6915.31,"GL",0,1,.01)=""
^DD(6915.4,0)="FIELD^^310^64"
^DD(6915.4,0,"DT")="2970131"
^DD(6915.4,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(6915.4,0,"ID",23)="W:$D(^(3)) ""   "",$P(^(3),U,4)"
^DD(6915.4,0,"ID",27)="W:$D(^(3)) ""   "",$P(^(3),U,8)"
^DD(6915.4,0,"ID",40)="W:$D(^(4)) ""   "",$P(^(4),U,6)"
^DD(6915.4,0,"IX","AV",6915.4,301)=""
^DD(6915.4,0,"IX","B",6915.4,.01)=""
^DD(6915.4,0,"IX","C",6915.4,23)=""
^DD(6915.4,0,"IX","D",6915.4,1)=""
^DD(6915.4,0,"NM","FC DOCUMENT LOG")=""
^DD(6915.4,0,"VR")="7.0"
^DD(6915.4,0,"VRPK")="EN"
^DD(6915.4,.01,0)="EQUIPMENT RECORD^RP6914'^ENG(6914,^0;1^Q"
^DD(6915.4,.01,1,0)="^.1"
^DD(6915.4,.01,1,1,0)="6915.4^B"
^DD(6915.4,.01,1,1,1)="S ^ENG(6915.4,""B"",$E(X,1,30),DA)="""""
^DD(6915.4,.01,1,1,2)="K ^ENG(6915.4,""B"",$E(X,1,30),DA)"
^DD(6915.4,.01,3)=""
^DD(6915.4,.01,21,0)="^^2^2^2950919^"
^DD(6915.4,.01,21,1,0)="This field holds the internal entry number from file 6914 for the piece of"
^DD(6915.4,.01,21,2,0)="capitalized NX equipment that an FC document was sent for."
^DD(6915.4,.01,"DT")="2950905"
^DD(6915.4,1,0)="DATE/TIME CREATED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.4,1,1,0)="^.1"
^DD(6915.4,1,1,1,0)="6915.4^D"
^DD(6915.4,1,1,1,1)="S ^ENG(6915.4,""D"",$E(X,1,30),DA)="""""
^DD(6915.4,1,1,1,2)="K ^ENG(6915.4,""D"",$E(X,1,30),DA)"
^DD(6915.4,1,1,1,"DT")="2951109"
^DD(6915.4,1,21,0)="^^1^1^2950919^"
^DD(6915.4,1,21,1,0)="This is the date and time that the FC document was prepared."
^DD(6915.4,1,"DT")="2951213"
^DD(6915.4,1.5,0)="SENDER^RP200'^VA(200,^0;3^Q"
^DD(6915.4,1.5,21,0)="^^1^1^2950922^"
^DD(6915.4,1.5,21,1,0)="This is the person who created the FC document using the change option."
^DD(6915.4,1.5,"DT")="2950913"
^DD(6915.4,2,0)="SEGMENT 1 ID^RF^^1;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,2,3)="Answer must be 3 characters in length."
^DD(6915.4,2,21,0)="^^1^1^2950919^"
^DD(6915.4,2,21,1,0)="This is the Segment 1 ID for the FC document, usually it will be CTL."
^DD(6915.4,2,"DT")="2950905"
^DD(6915.4,3,0)="SOURCE SYSTEM^RF^^1;2^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,3,3)="Answer must be 3 characters in length."
^DD(6915.4,3,21,0)="^^1^1^2950922^"
^DD(6915.4,3,21,1,0)="This is the source system for the FC document, usually AMM."
^DD(6915.4,3,"DT")="2950905"
^DD(6915.4,4,0)="DESTINATION SYSTEM^RF^^1;3^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,4,3)="Answer must be 3 characters in length."
^DD(6915.4,4,21,0)="^^1^1^2950919^"
^DD(6915.4,4,21,1,0)="This is the system where the FC document is going, usually FMS."
^DD(6915.4,4,"DT")="2951214"
^DD(6915.4,5,0)="SUBMITTING STATION^RF^^1;4^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,5,3)="Answer must be 3 characters in length."
^DD(6915.4,5,21,0)="^^2^2^2950919^"
^DD(6915.4,5,21,1,0)="This is the station number of the site that is submitting this FC"
^DD(6915.4,5,21,2,0)="document."
^DD(6915.4,5,"DT")="2950905"
^DD(6915.4,6,0)="TRANSACTION CLASS^RF^^1;5^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,6,3)="Answer must be 3 characters in length."
^DD(6915.4,6,21,0)="^^2^2^2950919^"
^DD(6915.4,6,21,1,0)="This is the class of document being sent to FMS.  It is usually DOC, to"
^DD(6915.4,6,21,2,0)="represent a document transaction."
^DD(6915.4,6,"DT")="2950905"
^DD(6915.4,7,0)="TRANSACTION CODE^RF^^1;6^K:$L(X)>2!($L(X)<2) X"
^DD(6915.4,7,3)="Answer must be 2 characters in length."
^DD(6915.4,7,21,0)="^^2^2^2950919^"
^DD(6915.4,7,21,1,0)="This tells FMS what kind of document is being sent.  FC for an FC"
^DD(6915.4,7,21,2,0)="document."
^DD(6915.4,7,"DT")="2950905"
^DD(6915.4,8,0)="SEC1 CODE^RF^^1;7^K:$L(X)>4!($L(X)<4) X"
^DD(6915.4,8,3)="Answer must be 4 characters in length."
^DD(6915.4,8,21,0)="^^2^2^2950922^"
^DD(6915.4,8,21,1,0)="This is the Security 1 code of the submitting Administration/Staff office."
^DD(6915.4,8,21,2,0)="VHA=10, VBA=20, and NCS=40."
^DD(6915.4,8,"DT")="2950905"
^DD(6915.4,9,0)="BATCH NUMBER^RF^^1;8^K:$L(X)>6!($L(X)<6) X"
^DD(6915.4,9,3)="Answer must be 6 characters in length."
^DD(6915.4,9,21,0)="^^2^2^2950919^"
^DD(6915.4,9,21,1,0)="This is the batch number of the FC document being sent.  Currently set to"
^DD(6915.4,9,21,2,0)="six spaces."
^DD(6915.4,9,"DT")="2950905"
^DD(6915.4,10,0)="TRANSACTION NUMBER^RF^^1;9^K:$L(X)>11!($L(X)<11) X"
^DD(6915.4,10,3)="Answer must be 11 characters in length."
^DD(6915.4,10,21,0)="^^3^3^2950920^"
^DD(6915.4,10,21,1,0)="This is the transaction number for this FC document.  It consists of the"
^DD(6915.4,10,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.4,10,21,3,0)="number."
^DD(6915.4,10,"DT")="2950905"
^DD(6915.4,11,0)="TRANSACTION DATE^RF^^1;10^K:$L(X)>8!($L(X)<8) X"
^DD(6915.4,11,3)="Answer must be 8 characters in length."
^DD(6915.4,11,21,0)="^^1^1^2950920^"
^DD(6915.4,11,21,1,0)="This is the date the FC document was created in YYYYMMDD format."
^DD(6915.4,11,"DT")="2950905"
^DD(6915.4,12,0)="TRANSACTION TIME^RF^^1;11^K:$L(X)>6!($L(X)<6) X"
^DD(6915.4,12,3)="Answer must be 6 characters in length."
^DD(6915.4,12,21,0)="^^1^1^2950920^"
^DD(6915.4,12,21,1,0)="This is the time the FC document was created in HHMMSS format."
^DD(6915.4,12,"DT")="2950908"
^DD(6915.4,13,0)="SEQUENCE NUMBER^RF^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,13,3)="Answer must be 3 characters in length."
^DD(6915.4,13,21,0)="^^1^1^2950920^"
^DD(6915.4,13,21,1,0)="This is the transaction part sequence number.  Should always be 001."
^DD(6915.4,13,"DT")="2950905"
^DD(6915.4,14,0)="SEQUENCE TOTAL^RF^^1;13^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,14,3)="Answer must be 3 characters in length."
^DD(6915.4,14,21,0)="^^1^1^2950920^"
^DD(6915.4,14,21,1,0)="This is the total number of transaction parts.  Should always be 001."
^DD(6915.4,14,"DT")="2950905"
^DD(6915.4,15,0)="VERSION^RF^^1;14^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,15,3)="Answer must be 3 characters in length."
^DD(6915.4,15,21,0)="^^1^1^2950922^^"
^DD(6915.4,15,21,1,0)="This is the AMES/MERS-FMS interface version.  Should always be 001."
^DD(6915.4,15,"DT")="2950905"
^DD(6915.4,16,0)="SEGMENT 2 ID^RF^^2;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,16,3)="Answer must be 3 characters in length."
^DD(6915.4,16,21,0)="^^1^1^2950922^^"
^DD(6915.4,16,21,1,0)="This is the segment identifier for segment 2.  Should always be DOC."
^DD(6915.4,16,"DT")="2950905"
^DD(6915.4,20,0)="SEGMENT 3 ID^RF^^3;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,20,3)="Answer must be 3 characters in length."
^DD(6915.4,20,21,0)="^^2^2^2950922^"
^DD(6915.4,20,21,1,0)="This is the segment identifier for the the FC1 segment.  Should always be"
^DD(6915.4,20,21,2,0)="FC1."
^DD(6915.4,20,"DT")="2950905"
^DD(6915.4,21,0)="TRANS CODE^RF^^3;2^K:$L(X)>2!($L(X)<2) X"
^DD(6915.4,21,3)="Answer must be 2 characters in length."
^DD(6915.4,21,21,0)="^^1^1^2950922^^"
^DD(6915.4,21,21,1,0)="This is the Trans code for the FC1 segment.  Should always be FC."
^DD(6915.4,21,"DT")="2950905"
^DD(6915.4,22,0)="TRANS DIVISION^RF^^3;3^K:$L(X)>4!($L(X)<2) X"
^DD(6915.4,22,3)="Answer must be 2-4 characters in length."
^DD(6915.4,22,21,0)="^^1^1^2950922^"
^DD(6915.4,22,21,1,0)="This is the Security 1 code.  VHA=10, VBA=20, NCS=40."
^DD(6915.4,22,"DT")="2950905"
^DD(6915.4,23,0)="TRANS NUMBER^RF^^3;4^K:$L(X)>11!($L(X)<9) X"
^DD(6915.4,23,1,0)="^.1"
^DD(6915.4,23,1,1,0)="6915.4^C"
^DD(6915.4,23,1,1,1)="S ^ENG(6915.4,""C"",$E(X,1,30),DA)="""""
^DD(6915.4,23,1,1,2)="K ^ENG(6915.4,""C"",$E(X,1,30),DA)"
^DD(6915.4,23,1,1,"DT")="2961219"
^DD(6915.4,23,3)="Answer must be 9-11 characters in length."
^DD(6915.4,23,21,0)="^^3^3^2950920^"
^DD(6915.4,23,21,1,0)="This is the transaction number for this FC document.  It consists of the"
^DD(6915.4,23,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.4,23,21,3,0)="number."
^DD(6915.4,23,"DT")="2961219"
^DD(6915.4,24,0)="BEG BUDGET YEAR^F^^3;5^K:$L(X)>2!($L(X)<2) X"
^DD(6915.4,24,3)="Answer must be 2 characters in length."
^DD(6915.4,24,21,0)="^^1^1^2950920^"
^DD(6915.4,24,21,1,0)="This is the beginning budget fiscal year."
^DD(6915.4,24,"DT")="2950905"
^DD(6915.4,25,0)="FIXED ASSET NUMBER^RF^^3;6^K:$L(X)>15!($L(X)<6) X"
^DD(6915.4,25,3)="Answer must be 6-15 characters in length."
^DD(6915.4,25,21,0)="^^3^3^2950920^^"
^DD(6915.4,25,21,1,0)="The fixed asset number consists of the submitting station_the 2 digit"
^DD(6915.4,25,21,2,0)="satelite station number (or 2 spaces if no satellite)_the internal entry"
^DD(6915.4,25,21,3,0)="number of the asset from file 6914."
^DD(6915.4,25,"DT")="2950905"
^DD(6915.4,26,0)="FIXED ASSET TYPE^RF^^3;7^K:$L(X)>1!($L(X)<1) X"
^DD(6915.4,26,3)="Answer must be 1 character in length."
^DD(6915.4,26,21,0)="^^2^2^2950922^"
^DD(6915.4,26,21,1,0)="This is the FA TYPE field from the NX SGL file for this particular"
^DD(6915.4,26,21,2,0)="Standard General Ledger account."
^DD(6915.4,26,"DT")="2950905"
^DD(6915.4,27,0)="BETTERMENT NUMBER^RF^^3;8^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6915.4,27,3)="Answer must be 2 characters in length."
^DD(6915.4,27,4)="Q:'$D(ENEQ(""DA""))  S X=""?"" D SHOW^ENFACHG1"
^DD(6915.4,27,21,0)="^^2^2^2950922^"
^DD(6915.4,27,21,1,0)="This is the betterment number if you are changing a betterment, otherwise"
^DD(6915.4,27,21,2,0)="it would be 00 since you would be changing the asset information."
^DD(6915.4,27,"DT")="2950919"
^DD(6915.4,28,0)="FA GROUP^F^^3;9^K:$L(X)>4!($L(X)<4) X"
^DD(6915.4,28,3)="Answer must be 4 characters in length."
^DD(6915.4,28,21,0)="^^4^4^2950920^"
^DD(6915.4,28,21,1,0)="The group is derived from the Category Stock Number.  It is generally the"
^DD(6915.4,28,21,2,0)="first 2 digits of the CSN concatenated with 00, except for CSNs in the"
^DD(6915.4,28,21,3,0)="7nnn range, which send as 7000, except for 7020, 7021, 7025, 7035, 7040, &"
^DD(6915.4,28,21,4,0)="7050, which transmit as themselves."
^DD(6915.4,28,"DT")="2950905"
^DD(6915.4,29,0)="LOCATION^F^^3;10^K:$L(X)>4!($L(X)<2) X"
^DD(6915.4,29,3)="Answer must be 2-4 characters in length."
^DD(6915.4,29,21,0)="^^2^2^2950920^"
^DD(6915.4,29,21,1,0)="The location is derived from the first 2 digits of the CMR.  Cll are valid"
^DD(6915.4,29,21,2,0)="except 67, 73, 74, 79-85, and 87-98."
^DD(6915.4,29,"DT")="2950905"
^DD(6915.4,30,0)="DESCRIPTION^F^^3;11^K:$L(X)>30!($L(X)<4) X"
^DD(6915.4,30,3)="Answer must be 4-30 characters in length."
^DD(6915.4,30,21,0)="^^1^1^2950922^"
^DD(6915.4,30,21,1,0)="This is really the Category Stock Number."
^DD(6915.4,30,"DT")="2950905"
^DD(6915.4,31,0)="ACQUISITION YEAR^FX^^3;12^K:$L(X)>4!($L(X)<4) X"
^DD(6915.4,31,3)="Answer must be 4 characters in length and not less than '1900'."
^DD(6915.4,31,21,0)="^^1^1^2950922^^"
^DD(6915.4,31,21,1,0)="This is the year the item was acquired."
^DD(6915.4,31,"DT")="2951121"
^DD(6915.4,32,0)="ACQUISITION MONTH^FX^^3;13^K:$L(X)>2!($L(X)<2) X"
^DD(6915.4,32,3)="Answer must be 2 characters in length and from '01' to '31'."
^DD(6915.4,32,21,0)="^^1^1^2950920^"
^DD(6915.4,32,21,1,0)="This is the month the item was acquired."
^DD(6915.4,32,"DT")="2951121"
^DD(6915.4,33,0)="ACQUISITION DAY^FX^^3;14^K:$L(X)>2!($L(X)<2) X"
^DD(6915.4,33,3)="Answer must be 2 characters in length and from '01' to '31'."
^DD(6915.4,33,21,0)="^^1^1^2950920^"
^DD(6915.4,33,21,1,0)="This is the day the asset was acquired."
^DD(6915.4,33,"DT")="2951121"
^DD(6915.4,34,0)="ACQUISITION METHOD^S^C:CONSTRUCTED;G:GIFT/BEQUEST/DONATION;L:LEASED;M:CAPITAL LEASE;O:OTHER;P:PURCHASED;R:TRANSFERRED;T:TRADED;X:EXCESS;^3;15^Q"
^DD(6915.4,34,3)=""
^DD(6915.4,34,21,0)="^^1^1^2950920^"
^DD(6915.4,34,21,1,0)="This is how the item was acquired; constructed, purchased, etc."
^DD(6915.4,34,"DT")="2971210"
^DD(6915.4,35,0)="SEGMENT 4 ID^F^^4;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,35,3)="Answer must be 3 characters in length."
^DD(6915.4,35,21,0)="^^1^1^2950920^"
^DD(6915.4,35,21,1,0)="This is the segment ID for the FC2 segment.  Should always be FC2."
^DD(6915.4,35,"DT")="2950905"
^DD(6915.4,36,0)="UNITS^F^^4;2^K:$L(X)>8!($L(X)<1) X"
^DD(6915.4,36,3)="Answer must be 1-8 characters in length."
^DD(6915.4,36,21,0)="^^1^1^2950922^"
^DD(6915.4,36,21,1,0)="This is the units that the item is measured in; each, gross, etc."
^DD(6915.4,36,"DT")="2950905"
^DD(6915.4,37,0)="USEFUL LIFE^F^^4;3^K:$L(X)>3!($L(X)<1) X"
^DD(6915.4,37,3)="Answer must be 1-3 characters in length."
^DD(6915.4,37,21,0)="^^1^1^2950920^"
^DD(6915.4,37,21,1,0)="This is the useful life expectancy in years for this item."
^DD(6915.4,37,"DT")="2950905"
^DD(6915.4,38,0)="SALVAGE VALUE^F^^4;4^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.4,38,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.4,38,21,0)="^^2^2^2950920^"
^DD(6915.4,38,21,1,0)="This is the expected salvage value upon disposing of the item.  Should be"
^DD(6915.4,38,21,2,0)="0 for depreciable items."
^DD(6915.4,38,"DT")="2950922"
^DD(6915.4,39,0)="DEPRECIATION METHOD^F^^4;5^K:$L(X)>3!($L(X)<1) X"
^DD(6915.4,39,3)="Answer must be 1-3 characters in length."
^DD(6915.4,39,21,0)="^^2^2^2950922^"
^DD(6915.4,39,21,1,0)="This is how the item will be depreciated.  Always SL (straight line) for"
^DD(6915.4,39,21,2,0)="NX equipment."
^DD(6915.4,39,"DT")="2950905"
^DD(6915.4,40,0)="SUMMARY ASSET VALUE^F^^4;6^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.4,40,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.4,40,21,0)="^^4^4^2951214^"
^DD(6915.4,40,21,1,0)="This is the new asset value that should be used in place of the original"
^DD(6915.4,40,21,2,0)="asset value on the code sheet being changed. When changing an FA Document"
^DD(6915.4,40,21,3,0)="(Betterment 00), enter the acquisition value of the asset. When changing a"
^DD(6915.4,40,21,4,0)="Betterment (Betterment 01, etc.), enter the value of the Betterment."
^DD(6915.4,40,"DT")="2950922"
^DD(6915.4,41,0)="SELLING PRICE^F^^4;7^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.4,41,3)="Answer must be 4-15 characters in length."
^DD(6915.4,41,21,0)="^^1^1^2950928^"
^DD(6915.4,41,21,1,0)="Money recouped at sale of asset."
^DD(6915.4,41,"DT")="2950928"
^DD(6915.4,42,0)="INCREASE-DECREASE^S^I:INCREASE;D:DECREASE;^4;8^Q"
^DD(6915.4,42,21,0)="^^1^1^2950928^"
^DD(6915.4,42,21,1,0)="For future use."
^DD(6915.4,42,"DT")="2950928"
^DD(6915.4,43,0)="DISPOSITION METHOD CODE^F^^4;9^K:$L(X)>1!($L(X)<1) X"
^DD(6915.4,43,3)="Answer must be 1 character in length."
^DD(6915.4,43,21,0)="^^1^1^2950928^"
^DD(6915.4,43,21,1,0)="Method by which asset was finally disposed of."
^DD(6915.4,43,"DT")="2950928"
^DD(6915.4,44,0)="DISPOSITION YEAR^FX^^4;10^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6915.4,44,3)="Answer must be 4 numerics in length and greater than '1900'."
^DD(6915.4,44,21,0)="^^1^1^2950928^"
^DD(6915.4,44,21,1,0)="Year in which asset was disposed of (YYYY)."
^DD(6915.4,44,"DT")="2951121"
^DD(6915.4,45,0)="DISPOSITION MONTH^FX^^4;11^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6915.4,45,3)="Answer must be 2 numerics in length from '01' to '31'."
^DD(6915.4,45,21,0)="^^2^2^2950928^"
^DD(6915.4,45,21,1,0)="Numeric representation of disposition month (ex: 09 for September). Leading"
^DD(6915.4,45,21,2,0)="zeroes must be included for January thru September."
^DD(6915.4,45,"DT")="2951121"
^DD(6915.4,46,0)="DISPOSITION DAY^FX^^4;12^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6915.4,46,3)="Answer must be 2 numerics in length and from '01' to '31'."
^DD(6915.4,46,21,0)="^^2^2^2950928^"
^DD(6915.4,46,21,1,0)="Disposition day. Leading zeroes must be included for the first thru the"
^DD(6915.4,46,21,2,0)="ninth."
^DD(6915.4,46,"DT")="2951121"
^DD(6915.4,47,0)="FUNDING SOURCE^F^^4;13^K:$L(X)>30!($L(X)<3) X"
^DD(6915.4,47,3)="Answer must be 3-30 characters in length."
^DD(6915.4,47,21,0)="^^1^1^2951213^^"
^DD(6915.4,47,21,1,0)="For future use."
^DD(6915.4,47,"DT")="2950928"
^DD(6915.4,48,0)="REPLACEMENT YEAR^FX^^4;14^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6915.4,48,3)="Answer must be 4 numerics in length and greater than 1900."
^DD(6915.4,48,21,0)="^^1^1^2950928^"
^DD(6915.4,48,21,1,0)="Calendar year in which asset is scheduled for replacement."
^DD(6915.4,48,"DT")="2951121"
^DD(6915.4,49,0)="REPLACEMENT MONTH^FX^^4;15^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6915.4,49,3)="Answer must be 2 numerics in length and from '01' to '31'."
^DD(6915.4,49,21,0)="^^3^3^2950928^"
^DD(6915.4,49,21,1,0)="Numeric representation of month in which asset is scheduled to be"
^DD(6915.4,49,21,2,0)="replaced (ex: 09 for September). Leading zeroes are required for January"
^DD(6915.4,49,21,3,0)="thru September."
^DD(6915.4,49,"DT")="2951121"
^DD(6915.4,50,0)="REPLACEMENT DAY^FX^^4;16^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6915.4,50,3)="Answer must be 2 numerics in length and from '01' to '31'."
^DD(6915.4,50,21,0)="^^2^2^2950928^"
^DD(6915.4,50,21,1,0)="Day on which asset is scheduled to be replaced. Leading zeroes required"
^DD(6915.4,50,21,2,0)="for the first thru the ninth."
^DD(6915.4,50,"DT")="2951121"
^DD(6915.4,51,0)="SEGMENT 5 ID^F^^5;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,51,3)="Answer must be 3 characters in length."
^DD(6915.4,51,21,0)="^^1^1^2950928^^"
^DD(6915.4,51,21,1,0)="FAP segment identifier. Always set to LIN."
^DD(6915.4,51,"DT")="2950928"
^DD(6915.4,52,0)="SEGMENT 6^F^^6;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.4,52,3)="Answer must be 3 characters in length."
^DD(6915.4,52,21,0)="^^1^1^2950928^"
^DD(6915.4,52,21,1,0)="FAP segment identifier. Always set to FCA."
^DD(6915.4,52,"DT")="2950928"
^DD(6915.4,53,0)="EQUITY ACCOUNT 1^F^^6;2^K:$L(X)>4!($L(X)<4) X"
^DD(6915.4,53,3)="Answer must be 4 characters in length."
^DD(6915.4,53,21,0)="^^1^1^2950928^"
^DD(6915.4,53,21,1,0)="Financial classification consistent with FMS."
^DD(6915.4,53,"DT")="2950928"
^DD(6915.4,54,0)="ASSET VALUE 1^F^^6;3^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.4,54,3)="Dollar value. With 2 decimal places and without the $ sign."
^DD(6915.4,54,21,0)="^^2^2^2950928^"
^DD(6915.4,54,21,1,0)="Identically equal to SUMMARY ASSET VALUE. Should be entered only for"
^DD(6915.4,54,21,2,0)="changes to an FA (BETTERMENT NUMBER=00)."
^DD(6915.4,54,"DT")="2950928"
^DD(6915.4,100,0)="CATEGORY STOCK NUMBER^P6917'^ENCSN(6917,^100;1^Q"
^DD(6915.4,100,21,0)="^^1^1^2950919^"
^DD(6915.4,100,21,1,0)="Basis for FA GROUP and DESCRIPTION."
^DD(6915.4,100,"DT")="2950919"
^DD(6915.4,101,0)="CMR^*P6914.1'^ENG(6914.1,^100;2^S DIC(""S"")=""I $P(^(0),U,7)=""""""""!($P(^(0),U,7)=$P($G(^ENG(6914,ENEQ(""""DA""""),9)),U,5))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.4,101,12)="Must select CMR valid for equipment's station #. Enter '?' for list."
^DD(6915.4,101,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""""""!($P(^(0),U,7)=$P($G(^ENG(6914,ENEQ(""""DA""""),9)),U,5))"""
^DD(6915.4,101,21,0)="^^9^9^2970327^"
^DD(6915.4,101,21,1,0)="This field can no longer be changed by an FC Document because the CMR"
^DD(6915.4,101,21,2,0)="now determines the cost center and only FR Documents can change a cost"
^DD(6915.4,101,21,3,0)="center."
^DD(6915.4,101,21,4,0)=" "
^DD(6915.4,101,21,5,0)="Basis for LOCATION (as in department locator)."
^DD(6915.4,101,21,6,0)=" "
^DD(6915.4,101,21,7,0)="CMRs that are assigned to a station other than the owning station for"
^DD(6915.4,101,21,8,0)="this asset are unacceptable. A change of this kind will require you to"
^DD(6915.4,101,21,9,0)="enter an FD document, then edit the CMR, and then enter an FA document."
^DD(6915.4,101,"DT")="2951006"
^DD(6915.4,102,0)="DISPOSITION METHOD^P6914.8'^ENG(6914.8,^100;3^Q"
^DD(6915.4,102,21,0)="^^1^1^2950928^"
^DD(6915.4,102,21,1,0)="Basis for stuffing the DISPOSITION METHOD CODE field that goes to FAP."
^DD(6915.4,102,"DT")="2950928"
^DD(6915.4,103,0)="PREVIOUS VALUE^NJ14,2^^100;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999)!(X<0) X"
^DD(6915.4,103,3)="Type a Dollar Amount between 0 and 99999999999, 2 Decimal Digits"
^DD(6915.4,103,21,0)="^^3^3^2951109^"
^DD(6915.4,103,21,1,0)="The previous value of the asset if FC is processed against the asset"
^DD(6915.4,103,21,2,0)="itself (BETTERMENT NUMBER = 00). Previous value of betterment if FC is"
^DD(6915.4,103,21,3,0)="processed against that (BETTERMENT NUMBER '= 00)."
^DD(6915.4,103,"DT")="2951109"
^DD(6915.4,104,0)="BETTERMENT POINTER^P6915.3'^ENG(6915.3,^100;5^Q"
^DD(6915.4,104,21,0)="^^1^1^2951109^"
^DD(6915.4,104,21,1,0)="Populated for FCs that are applied to betterments."
^DD(6915.4,104,"DT")="2951109"
^DD(6915.4,105,0)="ACQUISITION DATE^DX^^100;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:$E(X,4,5)=""00"" X I $D(X),$E(X,6,7)=""00"" S X=$E(X,1,5)_""01"""
^DD(6915.4,105,3)="ACQUISITION DATE MUST CONTAIN A MONTH!"
^DD(6915.4,105,21,0)="^^1^1^2951121^"
^DD(6915.4,105,21,1,0)="Used to extract date in FAP format."
^DD(6915.4,105,"DT")="2951121"
^DD(6915.4,106,0)="REPLACEMENT DATE^DX^^100;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:$E(X,4,5)=""00"" X I $D(X),$E(X,6,7)=""00"" S X=$E(X,1,5)_""01"""
^DD(6915.4,106,3)="REPLACEMENT DATE MUST CONTAIN A MONTH!"
^DD(6915.4,106,21,0)="^^1^1^2951121^^"
^DD(6915.4,106,21,1,0)="Used to extract date in FAP format."
^DD(6915.4,106,"DT")="2951121"
^DD(6915.4,301,0)="A.V. DATE^DI^^300;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.4,301,1,0)="^.1"
^DD(6915.4,301,1,1,0)="^^TRIGGER^6915.4^302"
^DD(6915.4,301,1,1,1)="X ^DD(6915.4,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.4,D0,300)):^(300),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6915.4,301,1,1,1.4)"
^DD(6915.4,301,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6915.4,D0,300)):^(300),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(6915.4,301,1,1,1.4)="S DIH=$S($D(^ENG(6915.4,DIV(0),300)):^(300),1:""""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.4,DIG=302 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6915.4,301,1,1,2)="Q"
^DD(6915.4,301,1,1,"CREATE CONDITION")="#302="""""
^DD(6915.4,301,1,1,"CREATE VALUE")="S X=DUZ"
^DD(6915.4,301,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6915.4,301,1,1,"DT")="2961218"
^DD(6915.4,301,1,1,"FIELD")="#302"
^DD(6915.4,301,1,2,0)="6915.4^AV"
^DD(6915.4,301,1,2,1)="S ^ENG(6915.4,""AV"",$E(X,1,30),DA)="""""
^DD(6915.4,301,1,2,2)="K ^ENG(6915.4,""AV"",$E(X,1,30),DA)"
^DD(6915.4,301,1,2,"DT")="2961218"
^DD(6915.4,301,21,0)="^^4^4^2961219^"
^DD(6915.4,301,21,1,0)="This field contains the date/time when an Adjustment Voucher was created."
^DD(6915.4,301,21,2,0)="If blank, then an Adjustment Voucher has not yet been created for the FC"
^DD(6915.4,301,21,3,0)="Document. An Adjustment Voucher is used to notify Fiscal about a selected"
^DD(6915.4,301,21,4,0)="FAP Document."
^DD(6915.4,301,"DT")="2961218"
^DD(6915.4,302,0)="A.V. CREATED BY^P200'^VA(200,^300;2^Q"
^DD(6915.4,302,5,1,0)="6915.4^301^1"
^DD(6915.4,302,9)="^"
^DD(6915.4,302,21,0)="^^1^1^2961218^"
^DD(6915.4,302,21,1,0)="User that created adjustment voucher."
^DD(6915.4,302,"DT")="2961218"
^DD(6915.4,303,0)="A.V. REASON^*P6915.11'^ENG(6915.11,^300;3^S DIC(""S"")=""I $P(^(0),U,2)[""""FC"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.4,303,3)="Select reason for adjustment voucher."
^DD(6915.4,303,12)="Applicable reasons for FC Document"
^DD(6915.4,303,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""FC"""""""
^DD(6915.4,303,"DT")="2970131"
^DD(6915.4,310,0)="A.V. COMMENTS^6915.41^^301;0"
^DD(6915.4,"B","A.V. COMMENTS",310)=""
^DD(6915.4,"B","A.V. CREATED BY",302)=""
^DD(6915.4,"B","A.V. DATE",301)=""
^DD(6915.4,"B","A.V. REASON",303)=""
^DD(6915.4,"B","ACQUISITION DATE",105)=""
^DD(6915.4,"B","ACQUISITION DAY",33)=""
^DD(6915.4,"B","ACQUISITION METHOD",34)=""
^DD(6915.4,"B","ACQUISITION MONTH",32)=""
^DD(6915.4,"B","ACQUISITION YEAR",31)=""
^DD(6915.4,"B","ASSET VALUE 1",54)=""
^DD(6915.4,"B","BATCH NUMBER",9)=""
^DD(6915.4,"B","BEG BUDGET YEAR",24)=""
^DD(6915.4,"B","BETTERMENT NUMBER",27)=""
^DD(6915.4,"B","BETTERMENT POINTER",104)=""
^DD(6915.4,"B","CATEGORY STOCK NUMBER",100)=""
^DD(6915.4,"B","CMR",101)=""
^DD(6915.4,"B","DATE/TIME CREATED",1)=""
^DD(6915.4,"B","DEPRECIATION METHOD",39)=""
^DD(6915.4,"B","DESCRIPTION",30)=""
^DD(6915.4,"B","DESTINATION SYSTEM",4)=""
^DD(6915.4,"B","DISPOSITION DAY",46)=""
^DD(6915.4,"B","DISPOSITION METHOD",102)=""
^DD(6915.4,"B","DISPOSITION METHOD CODE",43)=""
^DD(6915.4,"B","DISPOSITION MONTH",45)=""
^DD(6915.4,"B","DISPOSITION YEAR",44)=""
^DD(6915.4,"B","EQUIPMENT RECORD",.01)=""
^DD(6915.4,"B","EQUITY ACCOUNT 1",53)=""
^DD(6915.4,"B","FA GROUP",28)=""
^DD(6915.4,"B","FIXED ASSET NUMBER",25)=""
^DD(6915.4,"B","FIXED ASSET TYPE",26)=""
^DD(6915.4,"B","FUNDING SOURCE",47)=""
^DD(6915.4,"B","INCREASE-DECREASE",42)=""
^DD(6915.4,"B","LOCATION",29)=""
^DD(6915.4,"B","PREVIOUS VALUE",103)=""
^DD(6915.4,"B","REPLACEMENT DATE",106)=""
^DD(6915.4,"B","REPLACEMENT DAY",50)=""
^DD(6915.4,"B","REPLACEMENT MONTH",49)=""
^DD(6915.4,"B","REPLACEMENT YEAR",48)=""
^DD(6915.4,"B","SALVAGE VALUE",38)=""
^DD(6915.4,"B","SEC1 CODE",8)=""
^DD(6915.4,"B","SEGMENT 1 ID",2)=""
^DD(6915.4,"B","SEGMENT 2 ID",16)=""
^DD(6915.4,"B","SEGMENT 3 ID",20)=""
^DD(6915.4,"B","SEGMENT 4 ID",35)=""
^DD(6915.4,"B","SEGMENT 5 ID",51)=""
^DD(6915.4,"B","SEGMENT 6",52)=""
^DD(6915.4,"B","SELLING PRICE",41)=""
^DD(6915.4,"B","SENDER",1.5)=""
^DD(6915.4,"B","SEQUENCE NUMBER",13)=""
^DD(6915.4,"B","SEQUENCE TOTAL",14)=""
^DD(6915.4,"B","SOURCE SYSTEM",3)=""
^DD(6915.4,"B","SUBMITTING STATION",5)=""
^DD(6915.4,"B","SUMMARY ASSET VALUE",40)=""
^DD(6915.4,"B","TRANS CODE",21)=""
^DD(6915.4,"B","TRANS DIVISION",22)=""
^DD(6915.4,"B","TRANS NUMBER",23)=""
^DD(6915.4,"B","TRANSACTION CLASS",6)=""
^DD(6915.4,"B","TRANSACTION CODE",7)=""
^DD(6915.4,"B","TRANSACTION DATE",11)=""
^DD(6915.4,"B","TRANSACTION NUMBER",10)=""
^DD(6915.4,"B","TRANSACTION TIME",12)=""
^DD(6915.4,"B","UNITS",36)=""
^DD(6915.4,"B","USEFUL LIFE",37)=""
^DD(6915.4,"B","VERSION",15)=""
^DD(6915.4,"GL",0,1,.01)=""
^DD(6915.4,"GL",0,2,1)=""
^DD(6915.4,"GL",0,3,1.5)=""
^DD(6915.4,"GL",1,1,2)=""
^DD(6915.4,"GL",1,2,3)=""
^DD(6915.4,"GL",1,3,4)=""
^DD(6915.4,"GL",1,4,5)=""
^DD(6915.4,"GL",1,5,6)=""
^DD(6915.4,"GL",1,6,7)=""
^DD(6915.4,"GL",1,7,8)=""
^DD(6915.4,"GL",1,8,9)=""
^DD(6915.4,"GL",1,9,10)=""
^DD(6915.4,"GL",1,10,11)=""
^DD(6915.4,"GL",1,11,12)=""
^DD(6915.4,"GL",1,12,13)=""
^DD(6915.4,"GL",1,13,14)=""
^DD(6915.4,"GL",1,14,15)=""
^DD(6915.4,"GL",2,1,16)=""
^DD(6915.4,"GL",3,1,20)=""
^DD(6915.4,"GL",3,2,21)=""
^DD(6915.4,"GL",3,3,22)=""
^DD(6915.4,"GL",3,4,23)=""
^DD(6915.4,"GL",3,5,24)=""
^DD(6915.4,"GL",3,6,25)=""
^DD(6915.4,"GL",3,7,26)=""
^DD(6915.4,"GL",3,8,27)=""
^DD(6915.4,"GL",3,9,28)=""
^DD(6915.4,"GL",3,10,29)=""
^DD(6915.4,"GL",3,11,30)=""
^DD(6915.4,"GL",3,12,31)=""
^DD(6915.4,"GL",3,13,32)=""
^DD(6915.4,"GL",3,14,33)=""
^DD(6915.4,"GL",3,15,34)=""
^DD(6915.4,"GL",4,1,35)=""
^DD(6915.4,"GL",4,2,36)=""
^DD(6915.4,"GL",4,3,37)=""
^DD(6915.4,"GL",4,4,38)=""
^DD(6915.4,"GL",4,5,39)=""
^DD(6915.4,"GL",4,6,40)=""
^DD(6915.4,"GL",4,7,41)=""
^DD(6915.4,"GL",4,8,42)=""
^DD(6915.4,"GL",4,9,43)=""
^DD(6915.4,"GL",4,10,44)=""
^DD(6915.4,"GL",4,11,45)=""
^DD(6915.4,"GL",4,12,46)=""
^DD(6915.4,"GL",4,13,47)=""
^DD(6915.4,"GL",4,14,48)=""
^DD(6915.4,"GL",4,15,49)=""
^DD(6915.4,"GL",4,16,50)=""
^DD(6915.4,"GL",5,1,51)=""
^DD(6915.4,"GL",6,1,52)=""
^DD(6915.4,"GL",6,2,53)=""
^DD(6915.4,"GL",6,3,54)=""
^DD(6915.4,"GL",100,1,100)=""
^DD(6915.4,"GL",100,2,101)=""
^DD(6915.4,"GL",100,3,102)=""
^DD(6915.4,"GL",100,4,103)=""
^DD(6915.4,"GL",100,5,104)=""
^DD(6915.4,"GL",100,6,105)=""
^DD(6915.4,"GL",100,7,106)=""
^DD(6915.4,"GL",300,1,301)=""
^DD(6915.4,"GL",300,2,302)=""
^DD(6915.4,"GL",300,3,303)=""
^DD(6915.4,"GL",301,0,310)=""
^DD(6915.4,"IX",.01)=""
^DD(6915.4,"IX",1)=""
^DD(6915.4,"IX",23)=""
^DD(6915.4,"IX",301)=""
^DD(6915.4,"RQ",.01)=""
^DD(6915.4,"RQ",1)=""
^DD(6915.4,"RQ",1.5)=""
^DD(6915.4,"RQ",2)=""
^DD(6915.4,"RQ",3)=""
^DD(6915.4,"RQ",4)=""
^DD(6915.4,"RQ",5)=""
^DD(6915.4,"RQ",6)=""
^DD(6915.4,"RQ",7)=""
^DD(6915.4,"RQ",8)=""
^DD(6915.4,"RQ",9)=""
^DD(6915.4,"RQ",10)=""
^DD(6915.4,"RQ",11)=""
^DD(6915.4,"RQ",12)=""
^DD(6915.4,"RQ",13)=""
^DD(6915.4,"RQ",14)=""
^DD(6915.4,"RQ",15)=""
^DD(6915.4,"RQ",16)=""
^DD(6915.4,"RQ",20)=""
^DD(6915.4,"RQ",21)=""
^DD(6915.4,"RQ",22)=""
^DD(6915.4,"RQ",23)=""
^DD(6915.4,"RQ",25)=""
^DD(6915.4,"RQ",26)=""
^DD(6915.4,"RQ",27)=""
^DD(6915.4,"SB",6915.41,310)=""
^DD(6915.41,0)="A.V. COMMENTS SUB-FIELD^^.01^1"
^DD(6915.41,0,"DT")="2961217"
^DD(6915.41,0,"NM","A.V. COMMENTS")=""
^DD(6915.41,0,"UP")="6915.4"
^DD(6915.41,.01,0)="A.V. COMMENTS^W^^0;1^Q"
^DD(6915.41,.01,3)="Enter adjustment voucher comments (if any)."
^DD(6915.41,.01,"DT")="2961217"
^DD(6915.41,"B","A.V. COMMENTS",.01)=""
^DD(6915.41,"GL",0,1,.01)=""
^DD(6915.5,0)="FIELD^^310^42"
^DD(6915.5,0,"DT")="2970415"
^DD(6915.5,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(6915.5,0,"ID",23)="W:$D(^(3)) ""   "",$P(^(3),U,4)"
^DD(6915.5,0,"ID",100)="W:$D(^(100)) ""   "",@(""$P($P($C(59)_$S($D(^DD(6915.5,100,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(100),U,1)_"""":"""",2),$C(59),1)"")"
^DD(6915.5,0,"IX","AV",6915.5,301)=""
^DD(6915.5,0,"IX","B",6915.5,.01)=""
^DD(6915.5,0,"IX","C",6915.5,23)=""
^DD(6915.5,0,"IX","D",6915.5,1)=""
^DD(6915.5,0,"NM","FD DOCUMENT LOG")=""
^DD(6915.5,0,"VR")="7.0"
^DD(6915.5,0,"VRPK")="EN"
^DD(6915.5,.01,0)="EQUIPMENT RECORD^RP6914'^ENG(6914,^0;1^Q"
^DD(6915.5,.01,1,0)="^.1"
^DD(6915.5,.01,1,1,0)="6915.5^B"
^DD(6915.5,.01,1,1,1)="S ^ENG(6915.5,""B"",$E(X,1,30),DA)="""""
^DD(6915.5,.01,1,1,2)="K ^ENG(6915.5,""B"",$E(X,1,30),DA)"
^DD(6915.5,.01,3)=""
^DD(6915.5,.01,21,0)="^^2^2^2950919^"
^DD(6915.5,.01,21,1,0)="This field holds the internal entry number from file 6914 for the piece of"
^DD(6915.5,.01,21,2,0)="capitalized NX equipment that an FD document was sent for."
^DD(6915.5,.01,"DT")="2950905"
^DD(6915.5,1,0)="DATE/TIME CREATED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.5,1,1,0)="^.1"
^DD(6915.5,1,1,1,0)="6915.5^D"
^DD(6915.5,1,1,1,1)="S ^ENG(6915.5,""D"",$E(X,1,30),DA)="""""
^DD(6915.5,1,1,1,2)="K ^ENG(6915.5,""D"",$E(X,1,30),DA)"
^DD(6915.5,1,1,1,"DT")="2951109"
^DD(6915.5,1,21,0)="^^1^1^2950919^"
^DD(6915.5,1,21,1,0)="This is the date and time that the FD document was prepared."
^DD(6915.5,1,"DT")="2951213"
^DD(6915.5,1.5,0)="SENDER^RP200'^VA(200,^0;3^Q"
^DD(6915.5,1.5,21,0)="^^2^2^2950919^"
^DD(6915.5,1.5,21,1,0)="This is the person who created the FD document using the Equipment Entry"
^DD(6915.5,1.5,21,2,0)="option."
^DD(6915.5,1.5,"DT")="2950913"
^DD(6915.5,2,0)="SEGMENT 1 ID^RF^^1;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,2,3)="Answer must be 3 characters in length."
^DD(6915.5,2,21,0)="^^1^1^2950919^"
^DD(6915.5,2,21,1,0)="This is the Segment 1 ID for the FD document, usually it will be CTL."
^DD(6915.5,2,"DT")="2950905"
^DD(6915.5,3,0)="SOURCE SYSTEM^F^^1;2^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,3,3)="Answer must be 3 characters in length."
^DD(6915.5,3,21,0)="^^1^1^2950922^"
^DD(6915.5,3,21,1,0)="This is the source system for the FD document, ususally AMM."
^DD(6915.5,3,"DT")="2950905"
^DD(6915.5,4,0)="DESTINATION SYSTEM^RF^^1;3^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,4,3)="Answer must be 3 characters in length."
^DD(6915.5,4,21,0)="^^1^1^2950919^"
^DD(6915.5,4,21,1,0)="This is the system where the FD document is going, usually FMS."
^DD(6915.5,4,"DT")="2950905"
^DD(6915.5,5,0)="SUBMITTING STATION^RF^^1;4^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,5,3)="Answer must be 3 characters in length."
^DD(6915.5,5,21,0)="^^2^2^2950919^"
^DD(6915.5,5,21,1,0)="This is the station number of the site that is submitting this FD"
^DD(6915.5,5,21,2,0)="document."
^DD(6915.5,5,"DT")="2950905"
^DD(6915.5,6,0)="TRANSACTION CLASS^RF^^1;5^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,6,3)="Answer must be 3 characters in length."
^DD(6915.5,6,21,0)="^^2^2^2950919^"
^DD(6915.5,6,21,1,0)="This is the class of document being sent to FMS.  It is usually DOC, to"
^DD(6915.5,6,21,2,0)="represent a document transaction."
^DD(6915.5,6,"DT")="2950906"
^DD(6915.5,7,0)="TRANSACTION CODE^RF^^1;6^K:$L(X)>2!($L(X)<2) X"
^DD(6915.5,7,3)="Answer must be 2 characters in length."
^DD(6915.5,7,21,0)="^^2^2^2950919^"
^DD(6915.5,7,21,1,0)="This tells FMS what kind of document is being sent.  FD for an FD"
^DD(6915.5,7,21,2,0)="document."
^DD(6915.5,7,"DT")="2950906"
^DD(6915.5,8,0)="SEC1 CODE^RF^^1;7^K:$L(X)>4!($L(X)<4) X"
^DD(6915.5,8,3)="Answer must be 4 characters in length."
^DD(6915.5,8,21,0)="^^2^2^2950922^"
^DD(6915.5,8,21,1,0)="This is the Security 1 code of the submitting Administration/Staff office."
^DD(6915.5,8,21,2,0)="VHA=10, VBA=20, and NCS=40."
^DD(6915.5,8,"DT")="2950906"
^DD(6915.5,9,0)="BATCH NUMBER^RF^^1;8^K:$L(X)>6!($L(X)<6) X"
^DD(6915.5,9,3)="Answer must be 6 characters in length."
^DD(6915.5,9,21,0)="^^2^2^2950919^"
^DD(6915.5,9,21,1,0)="This is the batch number of the FD document being sent.  Currently set to"
^DD(6915.5,9,21,2,0)="six spaces."
^DD(6915.5,9,"DT")="2950906"
^DD(6915.5,10,0)="TRANSACTION NUMBER^RF^^1;9^K:$L(X)>11!($L(X)<11) X"
^DD(6915.5,10,3)="Answer must be 11 characters in length."
^DD(6915.5,10,21,0)="^^3^3^2950920^"
^DD(6915.5,10,21,1,0)="This is the transaction number for this FD document.  It consists of the"
^DD(6915.5,10,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.5,10,21,3,0)="number."
^DD(6915.5,10,"DT")="2950906"
^DD(6915.5,11,0)="TRANSACTION DATE^RF^^1;10^K:$L(X)>8!($L(X)<8) X"
^DD(6915.5,11,3)="Answer must be 8 characters in length."
^DD(6915.5,11,21,0)="^^1^1^2950920^"
^DD(6915.5,11,21,1,0)="This is the date the FD document was created in YYYYMMDD format."
^DD(6915.5,11,"DT")="2950906"
^DD(6915.5,12,0)="TRANSACTION TIME^RF^^1;11^K:$L(X)>6!($L(X)<6) X"
^DD(6915.5,12,3)="Answer must be 6 characters in length."
^DD(6915.5,12,21,0)="^^1^1^2950920^"
^DD(6915.5,12,21,1,0)="This is the time the FD document was created in HHMMSS format."
^DD(6915.5,12,"DT")="2950906"
^DD(6915.5,13,0)="SEQUENCE NUMBER^RF^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,13,3)="Answer must be 3 characters in length."
^DD(6915.5,13,21,0)="^^1^1^2950920^"
^DD(6915.5,13,21,1,0)="This is the transaction part sequence number.  Should always be 001."
^DD(6915.5,13,"DT")="2950906"
^DD(6915.5,14,0)="SEQUENCE TOTAL^RF^^1;13^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,14,3)="Answer must be 3 characters in length."
^DD(6915.5,14,21,0)="^^1^1^2950920^"
^DD(6915.5,14,21,1,0)="This is the total number of transaction parts.  Should always be 001."
^DD(6915.5,14,"DT")="2950906"
^DD(6915.5,15,0)="VERSION^RF^^1;14^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,15,3)="Answer must be 3 characters in length."
^DD(6915.5,15,21,0)="^^1^1^2950922^"
^DD(6915.5,15,21,1,0)="This is the AMES/MERS-FMS interface version.  Should always be 001."
^DD(6915.5,15,"DT")="2950906"
^DD(6915.5,16,0)="SEGMENT 2 ID^RF^^2;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,16,3)="Answer must be 3 characters in length."
^DD(6915.5,16,21,0)="^^1^1^2950920^"
^DD(6915.5,16,21,1,0)="This is the segment identifier for segment 2.  Should always be DOC."
^DD(6915.5,16,"DT")="2950906"
^DD(6915.5,20,0)="SEGMENT 3 ID^F^^3;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,20,3)="Answer must be 3 characters in length."
^DD(6915.5,20,21,0)="^^2^2^2950922^"
^DD(6915.5,20,21,1,0)="This is the segment identifier for the the FD1 segment.  Should always be"
^DD(6915.5,20,21,2,0)="FD1."
^DD(6915.5,20,"DT")="2950906"
^DD(6915.5,21,0)="TRANS CODE^F^^3;2^K:$L(X)>2!($L(X)<2) X"
^DD(6915.5,21,3)="Answer must be 2 characters in length."
^DD(6915.5,21,21,0)="^^1^1^2950922^^"
^DD(6915.5,21,21,1,0)="This is the Trans code for the FD1 segment.  Should always be FD."
^DD(6915.5,21,"DT")="2950906"
^DD(6915.5,22,0)="TRANS DIVISION^F^^3;3^K:$L(X)>4!($L(X)<2) X"
^DD(6915.5,22,3)="Answer must be 2-4 characters in length."
^DD(6915.5,22,21,0)="^^1^1^2950922^"
^DD(6915.5,22,21,1,0)="This is the Security 1 code.  VHA=10, VBA=20, NCS=40."
^DD(6915.5,22,"DT")="2950906"
^DD(6915.5,23,0)="TRANS NUMBER^F^^3;4^K:$L(X)>11!($L(X)<9) X"
^DD(6915.5,23,1,0)="^.1"
^DD(6915.5,23,1,1,0)="6915.5^C"
^DD(6915.5,23,1,1,1)="S ^ENG(6915.5,""C"",$E(X,1,30),DA)="""""
^DD(6915.5,23,1,1,2)="K ^ENG(6915.5,""C"",$E(X,1,30),DA)"
^DD(6915.5,23,1,1,"DT")="2961219"
^DD(6915.5,23,3)="Answer must be 9-11 characters in length."
^DD(6915.5,23,21,0)="^^3^3^2950920^"
^DD(6915.5,23,21,1,0)="This is the transaction number for this FD document.  It consists of the"
^DD(6915.5,23,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.5,23,21,3,0)="number."
^DD(6915.5,23,"DT")="2961219"
^DD(6915.5,24,0)="BEG BUDGET YEAR^F^^3;5^K:$L(X)>2!($L(X)<2) X"
^DD(6915.5,24,3)="Answer must be 2 characters in length."
^DD(6915.5,24,21,0)="^^1^1^2950920^"
^DD(6915.5,24,21,1,0)="This is the beginning budget fiscal year."
^DD(6915.5,24,"DT")="2950906"
^DD(6915.5,25,0)="SEGMENT 4 ID^F^^4;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,25,3)="Answer must be 3 characters in length."
^DD(6915.5,25,21,0)="^^1^1^2950920^"
^DD(6915.5,25,21,1,0)="This is the segment ID for the LIN section.  Should always be LIN."
^DD(6915.5,25,"DT")="2950906"
^DD(6915.5,26,0)="SEGMENT 5 ID^RF^^5;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.5,26,3)="Answer must be 3 characters in length."
^DD(6915.5,26,21,0)="^^1^1^2950920^"
^DD(6915.5,26,21,1,0)="This is the segment ID for the FDD segment.  Should always be FDD."
^DD(6915.5,26,"DT")="2950906"
^DD(6915.5,27,0)="FIXED ASSET NUMBER^RF^^5;2^K:$L(X)>15!($L(X)<15) X"
^DD(6915.5,27,3)="Answer must be 15 characters in length."
^DD(6915.5,27,21,0)="^^3^3^2950920^^"
^DD(6915.5,27,21,1,0)="The fixed asset number consists of the submitting station_the 2 digit"
^DD(6915.5,27,21,2,0)="satelite station number (or 2 spaces if no satellite)_the internal entry"
^DD(6915.5,27,21,3,0)="number of the asset from file 6914."
^DD(6915.5,27,"DT")="2950906"
^DD(6915.5,28,0)="FIXED ASSET TYPE^RF^^5;3^K:$L(X)>1!($L(X)<1) X"
^DD(6915.5,28,3)="Answer must be 1 character in length."
^DD(6915.5,28,21,0)="^^2^2^2950922^"
^DD(6915.5,28,21,1,0)="This is the FA TYPE field from the NX SGL file for this particular"
^DD(6915.5,28,21,2,0)="Standard General Ledger account."
^DD(6915.5,28,"DT")="2950906"
^DD(6915.5,29,0)="DISPOSITION METHOD CODE^F^^5;4^K:$L(X)>1!($L(X)<1) X"
^DD(6915.5,29,3)="Answer must be 1 character in length."
^DD(6915.5,29,21,0)="^^1^1^2951212^"
^DD(6915.5,29,21,1,0)="Method by which asset was finally disposed of."
^DD(6915.5,29,"DT")="2951212"
^DD(6915.5,30,0)="DISPOSITION YEAR^RF^^5;5^K:$L(X)>4!($L(X)<4) X"
^DD(6915.5,30,3)="Answer must be 4 characters in length."
^DD(6915.5,30,21,0)="^^1^1^2950922^"
^DD(6915.5,30,21,1,0)="This is the year the item was disposed of."
^DD(6915.5,30,"DT")="2950908"
^DD(6915.5,31,0)="DISPOSITION MONTH^RF^^5;6^K:$L(X)>2!($L(X)<1) X"
^DD(6915.5,31,3)="Answer must be 1-2 characters in length."
^DD(6915.5,31,21,0)="^^1^1^2950922^"
^DD(6915.5,31,21,1,0)="This is the month the item was disposed of."
^DD(6915.5,31,"DT")="2950908"
^DD(6915.5,32,0)="DISPOSITION DAY^RF^^5;7^K:$L(X)>2!($L(X)<1) X"
^DD(6915.5,32,3)="Answer must be 1-2 characters in length."
^DD(6915.5,32,21,0)="^^1^1^2950922^"
^DD(6915.5,32,21,1,0)="This is the day the item was disposed of."
^DD(6915.5,32,"DT")="2950908"
^DD(6915.5,33,0)="SELLING PRICE^RF^^5;8^K:$L(X)>15!($L(X)<4)!'(X?1.12N1"".""2N) X"
^DD(6915.5,33,3)="Must be a dollar value, with 2 decimal places and without the $ sign."
^DD(6915.5,33,21,0)="^^1^1^2950922^"
^DD(6915.5,33,21,1,0)="This is the price received when the item was sold."
^DD(6915.5,33,"DT")="2950922"
^DD(6915.5,34,0)="DISPOSITION AUTHORITY^RF^^5;9^K:$L(X)>15!($L(X)<1) X"
^DD(6915.5,34,3)="Answer must be 1-15 characters in length."
^DD(6915.5,34,21,0)="^^1^1^2950922^"
^DD(6915.5,34,21,1,0)="This is the authority under which the item was disposed of."
^DD(6915.5,34,"DT")="2950906"
^DD(6915.5,100,0)="TURN-IN OR DISPOSITION?^RS^T:TURN-IN;D:FINAL DISPOSITION;^100;1^Q"
^DD(6915.5,100,21,0)="^^4^4^2951012^"
^DD(6915.5,100,21,1,0)="Since FD documents may be used in moving an asset to EXCESS as well as in"
^DD(6915.5,100,21,2,0)="processing final disposition, we must ask the user which he wants to do."
^DD(6915.5,100,21,3,0)="This repsonse tells us whether to update the TURN-IN DATE or the"
^DD(6915.5,100,21,4,0)="DISPOSITION DATE."
^DD(6915.5,100,"DT")="2951012"
^DD(6915.5,101,0)="ASSET VALUE^NJ14,2^^100;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999)!(X<0) X"
^DD(6915.5,101,3)="Type a Dollar Amount between 0 and 99999999999, 2 Decimal Digits"
^DD(6915.5,101,21,0)="^^1^1^2960719^^"
^DD(6915.5,101,21,1,0)="Asset value at time of document generation."
^DD(6915.5,101,"DT")="2960719"
^DD(6915.5,102,0)="DISPOSITION DATE^RDX^^100;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) K:$E(X,4,5)=""00"" X I $D(X),$E(X,6,7)=""00"" S X=$E(X,1,5)_""01"""
^DD(6915.5,102,3)="DISPOSITION DATE MUST CONTAIN A MONTH!"
^DD(6915.5,102,21,0)="^^1^1^2961015^^"
^DD(6915.5,102,21,1,0)="Disposition date in FAP format is extracted from this field."
^DD(6915.5,102,"DT")="2961015"
^DD(6915.5,103,0)="DISPOSITION METHOD^RP6914.8'^ENG(6914.8,^100;4^Q"
^DD(6915.5,103,3)="Enter method by which asset was finally disposed of."
^DD(6915.5,103,21,0)="^^1^1^2951212^^"
^DD(6915.5,103,21,1,0)="Basis for stuffing the DISPOSITION METHOD CODE field that goes to FAP."
^DD(6915.5,103,"DT")="2951212"
^DD(6915.5,104,0)="FAIR MARKET VALUE^NJ11,2^^100;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<1) X"
^DD(6915.5,104,.1)=""
^DD(6915.5,104,3)="Type a Dollar Amount between 1 and 99999999, 2 Decimal Digits"
^DD(6915.5,104,21,0)="^^8^8^2970415^^^"
^DD(6915.5,104,21,1,0)="The estimated, realistic dollar value of an asset when categorized as ""VA"
^DD(6915.5,104,21,2,0)="Excess"" personal property. This value will replace the current TOTAL ASSET"
^DD(6915.5,104,21,3,0)="VALUE in the Equipment Inv. file. Note that the current TOTAL ASSET VALUE"
^DD(6915.5,104,21,4,0)="will automatically be saved as the ORIGINAL ASSET VALUE."
^DD(6915.5,104,21,5,0)=" "
^DD(6915.5,104,21,6,0)="VA Accounting Standards require capitalized nonexpendable property to be"
^DD(6915.5,104,21,7,0)="recorded in the ""Excess"" Standard General Ledger (SGL) 1561 at its"
^DD(6915.5,104,21,8,0)="""Expected Net Realizable Value""."
^DD(6915.5,104,"DT")="2970415"
^DD(6915.5,301,0)="A.V. DATE^DI^^300;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.5,301,1,0)="^.1"
^DD(6915.5,301,1,1,0)="^^TRIGGER^6915.5^302"
^DD(6915.5,301,1,1,1)="X ^DD(6915.5,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.5,D0,300)):^(300),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6915.5,301,1,1,1.4)"
^DD(6915.5,301,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6915.5,D0,300)):^(300),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(6915.5,301,1,1,1.4)="S DIH=$S($D(^ENG(6915.5,DIV(0),300)):^(300),1:""""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.5,DIG=302 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6915.5,301,1,1,2)="Q"
^DD(6915.5,301,1,1,"CREATE CONDITION")="#302="""""
^DD(6915.5,301,1,1,"CREATE VALUE")="S X=DUZ"
^DD(6915.5,301,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6915.5,301,1,1,"DT")="2961218"
^DD(6915.5,301,1,1,"FIELD")="#302"
^DD(6915.5,301,1,2,0)="6915.5^AV"
^DD(6915.5,301,1,2,1)="S ^ENG(6915.5,""AV"",$E(X,1,30),DA)="""""
^DD(6915.5,301,1,2,2)="K ^ENG(6915.5,""AV"",$E(X,1,30),DA)"
^DD(6915.5,301,1,2,"DT")="2961218"
^DD(6915.5,301,21,0)="^^4^4^2961219^"
^DD(6915.5,301,21,1,0)="This field contains the date/time when an Adjustment Voucher was created."
^DD(6915.5,301,21,2,0)="If blank, then an Adjustment Voucher has not yet been created for the FD"
^DD(6915.5,301,21,3,0)="Document. An Adjustment Voucher is used to notify Fiscal about a selected"
^DD(6915.5,301,21,4,0)="FAP Document."
^DD(6915.5,301,"DT")="2961218"
^DD(6915.5,302,0)="A.V. CREATED BY^P200'^VA(200,^300;2^Q"
^DD(6915.5,302,5,1,0)="6915.5^301^1"
^DD(6915.5,302,9)="^"
^DD(6915.5,302,21,0)="^^1^1^2961218^"
^DD(6915.5,302,21,1,0)="User that created adjustment voucher."
^DD(6915.5,302,"DT")="2961218"
^DD(6915.5,303,0)="A.V. REASON^*P6915.11'^ENG(6915.11,^300;3^S DIC(""S"")=""I $P(^(0),U,2)[""""FD"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.5,303,3)="Select reason for adjustment voucher."
^DD(6915.5,303,12)="Applicable reasons for FD Document"
^DD(6915.5,303,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""FD"""""""
^DD(6915.5,303,"DT")="2970131"
^DD(6915.5,310,0)="A.V. COMMENTS^6915.51^^301;0"
^DD(6915.5,"B","A.V. COMMENTS",310)=""
^DD(6915.5,"B","A.V. CREATED BY",302)=""
^DD(6915.5,"B","A.V. DATE",301)=""
^DD(6915.5,"B","A.V. REASON",303)=""
^DD(6915.5,"B","ASSET VALUE",101)=""
^DD(6915.5,"B","BATCH NUMBER",9)=""
^DD(6915.5,"B","BEG BUDGET YEAR",24)=""
^DD(6915.5,"B","DATE/TIME CREATED",1)=""
^DD(6915.5,"B","DESTINATION SYSTEM",4)=""
^DD(6915.5,"B","DISPOSITION AUTHORITY",34)=""
^DD(6915.5,"B","DISPOSITION DATE",102)=""
^DD(6915.5,"B","DISPOSITION DAY",32)=""
^DD(6915.5,"B","DISPOSITION METHOD",103)=""
^DD(6915.5,"B","DISPOSITION METHOD CODE",29)=""
^DD(6915.5,"B","DISPOSITION MONTH",31)=""
^DD(6915.5,"B","DISPOSITION YEAR",30)=""
^DD(6915.5,"B","EQUIPMENT RECORD",.01)=""
^DD(6915.5,"B","FAIR MARKET VALUE",104)=""
^DD(6915.5,"B","FIXED ASSET NUMBER",27)=""
^DD(6915.5,"B","FIXED ASSET TYPE",28)=""
^DD(6915.5,"B","SEC1 CODE",8)=""
^DD(6915.5,"B","SEGMENT 1 ID",2)=""
^DD(6915.5,"B","SEGMENT 2 ID",16)=""
^DD(6915.5,"B","SEGMENT 3 ID",20)=""
^DD(6915.5,"B","SEGMENT 4 ID",25)=""
^DD(6915.5,"B","SEGMENT 5 ID",26)=""
^DD(6915.5,"B","SELLING PRICE",33)=""
^DD(6915.5,"B","SENDER",1.5)=""
^DD(6915.5,"B","SEQUENCE NUMBER",13)=""
^DD(6915.5,"B","SEQUENCE TOTAL",14)=""
^DD(6915.5,"B","SOURCE SYSTEM",3)=""
^DD(6915.5,"B","SUBMITTING STATION",5)=""
^DD(6915.5,"B","TRANS CODE",21)=""
^DD(6915.5,"B","TRANS DIVISION",22)=""
^DD(6915.5,"B","TRANS NUMBER",23)=""
^DD(6915.5,"B","TRANSACTION CLASS",6)=""
^DD(6915.5,"B","TRANSACTION CODE",7)=""
^DD(6915.5,"B","TRANSACTION DATE",11)=""
^DD(6915.5,"B","TRANSACTION NUMBER",10)=""
^DD(6915.5,"B","TRANSACTION TIME",12)=""
^DD(6915.5,"B","TURN-IN OR DISPOSITION?",100)=""
^DD(6915.5,"B","VERSION",15)=""
^DD(6915.5,"GL",0,1,.01)=""
^DD(6915.5,"GL",0,2,1)=""
^DD(6915.5,"GL",0,3,1.5)=""
^DD(6915.5,"GL",1,1,2)=""
^DD(6915.5,"GL",1,2,3)=""
^DD(6915.5,"GL",1,3,4)=""
^DD(6915.5,"GL",1,4,5)=""
^DD(6915.5,"GL",1,5,6)=""
^DD(6915.5,"GL",1,6,7)=""
^DD(6915.5,"GL",1,7,8)=""
^DD(6915.5,"GL",1,8,9)=""
^DD(6915.5,"GL",1,9,10)=""
^DD(6915.5,"GL",1,10,11)=""
^DD(6915.5,"GL",1,11,12)=""
^DD(6915.5,"GL",1,12,13)=""
^DD(6915.5,"GL",1,13,14)=""
^DD(6915.5,"GL",1,14,15)=""
^DD(6915.5,"GL",2,1,16)=""
^DD(6915.5,"GL",3,1,20)=""
^DD(6915.5,"GL",3,2,21)=""
^DD(6915.5,"GL",3,3,22)=""
^DD(6915.5,"GL",3,4,23)=""
^DD(6915.5,"GL",3,5,24)=""
^DD(6915.5,"GL",4,1,25)=""
^DD(6915.5,"GL",5,1,26)=""
^DD(6915.5,"GL",5,2,27)=""
^DD(6915.5,"GL",5,3,28)=""
^DD(6915.5,"GL",5,4,29)=""
^DD(6915.5,"GL",5,5,30)=""
^DD(6915.5,"GL",5,6,31)=""
^DD(6915.5,"GL",5,7,32)=""
^DD(6915.5,"GL",5,8,33)=""
^DD(6915.5,"GL",5,9,34)=""
^DD(6915.5,"GL",100,1,100)=""
^DD(6915.5,"GL",100,2,101)=""
^DD(6915.5,"GL",100,3,102)=""
^DD(6915.5,"GL",100,4,103)=""
^DD(6915.5,"GL",100,5,104)=""
^DD(6915.5,"GL",300,1,301)=""
^DD(6915.5,"GL",300,2,302)=""
^DD(6915.5,"GL",300,3,303)=""
^DD(6915.5,"GL",301,0,310)=""
^DD(6915.5,"IX",.01)=""
^DD(6915.5,"IX",1)=""
^DD(6915.5,"IX",23)=""
^DD(6915.5,"IX",301)=""
^DD(6915.5,"RQ",.01)=""
^DD(6915.5,"RQ",1)=""
^DD(6915.5,"RQ",1.5)=""
^DD(6915.5,"RQ",2)=""
^DD(6915.5,"RQ",4)=""
^DD(6915.5,"RQ",5)=""
^DD(6915.5,"RQ",6)=""
^DD(6915.5,"RQ",7)=""
^DD(6915.5,"RQ",8)=""
^DD(6915.5,"RQ",9)=""
^DD(6915.5,"RQ",10)=""
^DD(6915.5,"RQ",11)=""
^DD(6915.5,"RQ",12)=""
^DD(6915.5,"RQ",13)=""
^DD(6915.5,"RQ",14)=""
^DD(6915.5,"RQ",15)=""
^DD(6915.5,"RQ",16)=""
^DD(6915.5,"RQ",26)=""
^DD(6915.5,"RQ",27)=""
^DD(6915.5,"RQ",28)=""
^DD(6915.5,"RQ",30)=""
^DD(6915.5,"RQ",31)=""
^DD(6915.5,"RQ",32)=""
^DD(6915.5,"RQ",33)=""
^DD(6915.5,"RQ",34)=""
^DD(6915.5,"RQ",100)=""
^DD(6915.5,"RQ",102)=""
^DD(6915.5,"RQ",103)=""
^DD(6915.5,"SB",6915.51,310)=""
^DD(6915.51,0)="A.V. COMMENTS SUB-FIELD^^.01^1"
^DD(6915.51,0,"DT")="2961217"
^DD(6915.51,0,"NM","A.V. COMMENTS")=""
^DD(6915.51,0,"UP")="6915.5"
^DD(6915.51,.01,0)="A.V. COMMENTS^W^^0;1^Q"
^DD(6915.51,.01,3)="Enter adjustment voucher comments (if any)."
^DD(6915.51,.01,"DT")="2961217"
^DD(6915.51,"B","A.V. COMMENTS",.01)=""
^DD(6915.51,"GL",0,1,.01)=""
^DD(6915.6,0)="FIELD^^310^48"
^DD(6915.6,0,"DT")="2970131"
^DD(6915.6,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(6915.6,0,"ID",23)="W:$D(^(3)) ""   "",$P(^(3),U,4)"
^DD(6915.6,0,"IX","AV",6915.6,301)=""
^DD(6915.6,0,"IX","B",6915.6,.01)=""
^DD(6915.6,0,"IX","C",6915.6,23)=""
^DD(6915.6,0,"IX","D",6915.6,1)=""
^DD(6915.6,0,"NM","FR DOCUMENT LOG")=""
^DD(6915.6,0,"VR")="7.0"
^DD(6915.6,0,"VRPK")="EN"
^DD(6915.6,.01,0)="EQUIPMENT RECORD^RP6914'^ENG(6914,^0;1^Q"
^DD(6915.6,.01,1,0)="^.1"
^DD(6915.6,.01,1,1,0)="6915.6^B"
^DD(6915.6,.01,1,1,1)="S ^ENG(6915.6,""B"",$E(X,1,30),DA)="""""
^DD(6915.6,.01,1,1,2)="K ^ENG(6915.6,""B"",$E(X,1,30),DA)"
^DD(6915.6,.01,3)=""
^DD(6915.6,.01,21,0)="^^2^2^2950919^"
^DD(6915.6,.01,21,1,0)="This field holds the internal entry number from file 6914 for the piece of"
^DD(6915.6,.01,21,2,0)="capitalized NX equipment that an FR document was sent for."
^DD(6915.6,.01,"DT")="2950906"
^DD(6915.6,1,0)="DATE/TIME CREATED^RD^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.6,1,1,0)="^.1"
^DD(6915.6,1,1,1,0)="6915.6^D"
^DD(6915.6,1,1,1,1)="S ^ENG(6915.6,""D"",$E(X,1,30),DA)="""""
^DD(6915.6,1,1,1,2)="K ^ENG(6915.6,""D"",$E(X,1,30),DA)"
^DD(6915.6,1,1,1,"DT")="2951109"
^DD(6915.6,1,21,0)="^^1^1^2950919^"
^DD(6915.6,1,21,1,0)="This is the date and time that the FR document was prepared."
^DD(6915.6,1,"DT")="2951213"
^DD(6915.6,1.5,0)="SENDER^RP200'^VA(200,^0;3^Q"
^DD(6915.6,1.5,21,0)="^^2^2^2950919^"
^DD(6915.6,1.5,21,1,0)="This is the person who created the FR document using the Equipment Entry"
^DD(6915.6,1.5,21,2,0)="option."
^DD(6915.6,1.5,"DT")="2950913"
^DD(6915.6,2,0)="SEGMENT 1 ID^RF^^1;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,2,3)="Answer must be 3 characters in length."
^DD(6915.6,2,21,0)="^^1^1^2950919^"
^DD(6915.6,2,21,1,0)="This is the Segment 1 ID for the FR document, usually it will be CTL."
^DD(6915.6,2,"DT")="2950906"
^DD(6915.6,3,0)="SOURCE SYSTEM^RF^^1;2^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,3,3)="Answer must be 3 characters in length."
^DD(6915.6,3,21,0)="^^1^1^2950919^"
^DD(6915.6,3,21,1,0)="This is the source system for the FR document, ususally RMM."
^DD(6915.6,3,"DT")="2950906"
^DD(6915.6,4,0)="DESTINATION SYSTEM^RF^^1;3^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,4,3)="Answer must be 3 characters in length."
^DD(6915.6,4,21,0)="^^1^1^2950919^"
^DD(6915.6,4,21,1,0)="This is the system where the FR document is going, usually FMS."
^DD(6915.6,4,"DT")="2950906"
^DD(6915.6,5,0)="SUBMITTING STATION^RF^^1;4^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,5,3)="Answer must be 3 characters in length."
^DD(6915.6,5,21,0)="^^2^2^2950919^"
^DD(6915.6,5,21,1,0)="This is the station number of the site that is submitting this FR"
^DD(6915.6,5,21,2,0)="document."
^DD(6915.6,5,"DT")="2950906"
^DD(6915.6,6,0)="TRANSACTION CLASS^RF^^1;5^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,6,3)="Answer must be 3 characters in length."
^DD(6915.6,6,21,0)="^^2^2^2950919^"
^DD(6915.6,6,21,1,0)="This is the class of document being sent to FMS.  It is usually DOC, to"
^DD(6915.6,6,21,2,0)="represent a document transaction."
^DD(6915.6,6,"DT")="2950906"
^DD(6915.6,7,0)="TRANSACTION CODE^RF^^1;6^K:$L(X)>2!($L(X)<2) X"
^DD(6915.6,7,3)="Answer must be 2 characters in length."
^DD(6915.6,7,21,0)="^^2^2^2950919^"
^DD(6915.6,7,21,1,0)="This tells FMS what kind of document is being sent.  FR for an FR"
^DD(6915.6,7,21,2,0)="document."
^DD(6915.6,7,"DT")="2950906"
^DD(6915.6,8,0)="SEC1 CODE^RF^^1;7^K:$L(X)>4!($L(X)<4) X"
^DD(6915.6,8,3)="Answer must be 4 characters in length."
^DD(6915.6,8,21,0)="^^2^2^2950922^"
^DD(6915.6,8,21,1,0)="This is the Security 1 code of the submitting Administration/Staff office."
^DD(6915.6,8,21,2,0)="VHR=10, VBR=20, and NCS=40."
^DD(6915.6,8,"DT")="2950906"
^DD(6915.6,9,0)="BATCH NUMBER^RF^^1;8^K:$L(X)>6!($L(X)<6) X"
^DD(6915.6,9,3)="Answer must be 6 characters in length."
^DD(6915.6,9,21,0)="^^2^2^2950919^"
^DD(6915.6,9,21,1,0)="This is the batch number of the FR document being sent.  Currently set to"
^DD(6915.6,9,21,2,0)="six spaces."
^DD(6915.6,9,"DT")="2950906"
^DD(6915.6,10,0)="TRANSACTION NUMBER^RF^^1;9^K:$L(X)>11!($L(X)<11) X"
^DD(6915.6,10,3)="Answer must be 11 characters in length."
^DD(6915.6,10,21,0)="^^3^3^2950920^"
^DD(6915.6,10,21,1,0)="This is the transaction number for this FR document.  It consists of the"
^DD(6915.6,10,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.6,10,21,3,0)="number."
^DD(6915.6,10,"DT")="2950906"
^DD(6915.6,11,0)="TRANSACTION DATE^RF^^1;10^K:$L(X)>8!($L(X)<8) X"
^DD(6915.6,11,3)="Answer must be 8 characters in length."
^DD(6915.6,11,21,0)="^^1^1^2950920^"
^DD(6915.6,11,21,1,0)="This is the date the FR document was created in YYYYMMDD format."
^DD(6915.6,11,"DT")="2950906"
^DD(6915.6,12,0)="TRANSACTION TIME^RF^^1;11^K:$L(X)>6!($L(X)<6) X"
^DD(6915.6,12,3)="Answer must be 6 characters in length."
^DD(6915.6,12,21,0)="^^1^1^2950920^"
^DD(6915.6,12,21,1,0)="This is the time the FR document was created in HHMMSS format."
^DD(6915.6,12,"DT")="2950906"
^DD(6915.6,13,0)="SEQUENCE NUMBER^RF^^1;12^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,13,3)="Answer must be 3 characters in length."
^DD(6915.6,13,21,0)="^^1^1^2950920^"
^DD(6915.6,13,21,1,0)="This is the transaction part sequence number.  Should always be 001."
^DD(6915.6,13,"DT")="2950906"
^DD(6915.6,14,0)="SEQUENCE TOTAL^RF^^1;13^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,14,3)="Answer must be 3 characters in length."
^DD(6915.6,14,21,0)="^^1^1^2950920^"
^DD(6915.6,14,21,1,0)="This is the total number of transaction parts.  Should always be 001."
^DD(6915.6,14,"DT")="2950906"
^DD(6915.6,15,0)="VERSION^RF^^1;14^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,15,3)="Answer must be 3 characters in length."
^DD(6915.6,15,21,0)="^^1^1^2950922^"
^DD(6915.6,15,21,1,0)="This is the RMES/MERS-FMS interface version.  Should always be 001."
^DD(6915.6,15,"DT")="2950906"
^DD(6915.6,16,0)="SEGMENT 2 ID^RF^^2;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,16,3)="Answer must be 3 characters in length."
^DD(6915.6,16,21,0)="^^1^1^2950922^^"
^DD(6915.6,16,21,1,0)="This is the segment identifier for segment 2.  Should always be DOC."
^DD(6915.6,16,"DT")="2950906"
^DD(6915.6,20,0)="SEGMENT 3 ID^RF^^3;1^K:$L(X)>3!($L(X)<3) X"
^DD(6915.6,20,3)="Answer must be 3 characters in length."
^DD(6915.6,20,21,0)="^^2^2^2950922^"
^DD(6915.6,20,21,1,0)="This is the segment identifier for the the FR1 segment.  Should always be"
^DD(6915.6,20,21,2,0)="FR1."
^DD(6915.6,20,"DT")="2950906"
^DD(6915.6,21,0)="TRANS CODE^RF^^3;2^K:$L(X)>2!($L(X)<2) X"
^DD(6915.6,21,3)="Answer must be 2 characters in length."
^DD(6915.6,21,21,0)="^^1^1^2950922^^"
^DD(6915.6,21,21,1,0)="This is the Trans code for the FR1 segment.  Should always be FR."
^DD(6915.6,21,"DT")="2950906"
^DD(6915.6,22,0)="TRANS DIVISION^RF^^3;3^K:$L(X)>4!($L(X)<2) X"
^DD(6915.6,22,3)="Answer must be 2-4 characters in length."
^DD(6915.6,22,21,0)="^^1^1^2950922^"
^DD(6915.6,22,21,1,0)="This is the Security 1 code.  VHA=10, VBA=20, NCS=40."
^DD(6915.6,22,"DT")="2950906"
^DD(6915.6,23,0)="TRANS NUMBER^RF^^3;4^K:$L(X)>11!($L(X)<9) X"
^DD(6915.6,23,1,0)="^.1"
^DD(6915.6,23,1,1,0)="6915.6^C"
^DD(6915.6,23,1,1,1)="S ^ENG(6915.6,""C"",$E(X,1,30),DA)="""""
^DD(6915.6,23,1,1,2)="K ^ENG(6915.6,""C"",$E(X,1,30),DA)"
^DD(6915.6,23,1,1,"DT")="2961219"
^DD(6915.6,23,3)="Answer must be 9-11 characters in length."
^DD(6915.6,23,21,0)="^^3^3^2950920^"
^DD(6915.6,23,21,1,0)="This is the transaction number for this FR document.  It consists of the"
^DD(6915.6,23,21,2,0)="station number_the last digit of the fiscal year_N_the 4 digit sequential"
^DD(6915.6,23,21,3,0)="number."
^DD(6915.6,23,"DT")="2961219"
^DD(6915.6,24,0)="FIXED ASSET NUMBER^RF^^3;5^K:$L(X)>15!($L(X)<15) X"
^DD(6915.6,24,3)="Answer must be 15 characters in length."
^DD(6915.6,24,21,0)="^^3^3^2950920^^"
^DD(6915.6,24,21,1,0)="The fixed asset number consists of the submitting station_the 2 digit"
^DD(6915.6,24,21,2,0)="satelite station number (or 2 spaces if no satellite)_the internal entry"
^DD(6915.6,24,21,3,0)="number of the asset from file 6914."
^DD(6915.6,24,"DT")="2950906"
^DD(6915.6,25,0)="FIXED ASSET TYPE^RF^^3;6^K:$L(X)>1!($L(X)<1) X"
^DD(6915.6,25,3)="Answer must be 1 character in length."
^DD(6915.6,25,21,0)="^^2^2^2950922^"
^DD(6915.6,25,21,1,0)="This is the FA TYPE field from the NX SGL file for this particular"
^DD(6915.6,25,21,2,0)="Standard General Ledger account."
^DD(6915.6,25,"DT")="2950906"
^DD(6915.6,26,0)="NEW FA GROUP^F^^3;7^K:$L(X)>4!($L(X)<4) X"
^DD(6915.6,26,3)="Answer must be 4 characters in length."
^DD(6915.6,26,21,0)="^^1^1^2950922^"
^DD(6915.6,26,21,1,0)="This is the fixed asset group at the new facility."
^DD(6915.6,26,"DT")="2950906"
^DD(6915.6,27,0)="BEG BUDGET FY^F^^3;8^K:$L(X)>2!($L(X)<2) X"
^DD(6915.6,27,3)="Answer must be 2 characters in length."
^DD(6915.6,27,21,0)="^^1^1^2950920^"
^DD(6915.6,27,21,1,0)="This is the beginning budget fiscal year."
^DD(6915.6,27,"DT")="2950906"
^DD(6915.6,28,0)="NEW FUND (TEXT)^RF^^3;9^K:$L(X)>6!($L(X)<4) X"
^DD(6915.6,28,3)="Answer must be 4-6 characters in length."
^DD(6915.6,28,21,0)="^^1^1^2950922^"
^DD(6915.6,28,21,1,0)="This is the new fund at the new facility."
^DD(6915.6,28,"DT")="2950925"
^DD(6915.6,29,0)="NEW A/O (TEXT)^RF^^3;10^K:$L(X)>4!($L(X)<2) X"
^DD(6915.6,29,3)="Answer must be 2-4 characters in length."
^DD(6915.6,29,21,0)="^^1^1^2950922^^"
^DD(6915.6,29,21,1,0)="This is the new division at the new facility."
^DD(6915.6,29,"DT")="2950925"
^DD(6915.6,30,0)="NEW OWNING STATION^FI^^3;11^K:$L(X)>5!($L(X)<3) X"
^DD(6915.6,30,3)="Answer must be 3-5 characters in length."
^DD(6915.6,30,21,0)="^^1^1^2950922^^"
^DD(6915.6,30,21,1,0)="This is the new station number of the owning facility."
^DD(6915.6,30,"DT")="2951003"
^DD(6915.6,31,0)="NEW XPROGRAM^RF^^3;12^K:$L(X)>9!($L(X)<9) X"
^DD(6915.6,31,3)="This is the new Fund Control Point/Project (ACC code).  Answer must be 9 characters in length."
^DD(6915.6,31,21,0)="^^2^2^2950922^^^"
^DD(6915.6,31,21,1,0)="This is the ACC, obtained from IFCAP. If unavailable, '000000000' will be"
^DD(6915.6,31,21,2,0)="used instead."
^DD(6915.6,31,"DT")="2950922"
^DD(6915.6,32,0)="NEW BOC (TEXT)^F^^3;13^K:$L(X)>4!($L(X)<4) X"
^DD(6915.6,32,3)="Answer must be 4 characters in length."
^DD(6915.6,32,21,0)="^^1^1^2950922^"
^DD(6915.6,32,21,1,0)="This is the new Budget Object Code at the new facility."
^DD(6915.6,32,"DT")="2950925"
^DD(6915.6,33,0)="NEW LOCATION^F^^3;14^K:$L(X)>4!($L(X)<2) X"
^DD(6915.6,33,3)="Answer must be 2-4 characters in length."
^DD(6915.6,33,21,0)="^^1^1^2950922^"
^DD(6915.6,33,21,1,0)="This is the new location at the new facility."
^DD(6915.6,33,"DT")="2950906"
^DD(6915.6,34,0)="NEW COST ORG^F^^3;15^K:$L(X)>7!($L(X)<4) X"
^DD(6915.6,34,3)="Answer must be 4-7 characters in length."
^DD(6915.6,34,21,0)="^^1^1^2950922^"
^DD(6915.6,34,21,1,0)="This is the new cost center at the new facility."
^DD(6915.6,34,"DT")="2950906"
^DD(6915.6,35,0)="NEW SUB ORG^F^^3;16^K:$L(X)>2!($L(X)<2) X"
^DD(6915.6,35,3)="Answer must be 2 characters in length."
^DD(6915.6,35,21,0)="^^1^1^2950922^^"
^DD(6915.6,35,21,1,0)="New satellite station number suffix."
^DD(6915.6,35,"DT")="2950906"
^DD(6915.6,36,0)="NEW SATELLITE STATION^FI^^3;17^K:$L(X)>2!($L(X)<2)!'(X?2UN) X"
^DD(6915.6,36,3)="Answer must be 2 characters in length."
^DD(6915.6,36,21,0)="^^1^1^2950922^"
^DD(6915.6,36,21,1,0)="Satellite designator for consolidated facilities."
^DD(6915.6,36,"DT")="2951003"
^DD(6915.6,37,0)="NEW XAREA^F^^3;18^K:$L(X)>10!($L(X)<1) X"
^DD(6915.6,37,3)="Answer must be 1-10 characters in length."
^DD(6915.6,37,21,0)="^^4^4^2990304^"
^DD(6915.6,37,21,1,0)="Contains the equipment's new CMR value (external) sent on the FR Document"
^DD(6915.6,37,21,2,0)="to update the XAREA data element on the Fixed Assets/FMS system. Derived"
^DD(6915.6,37,21,3,0)="from the NEW CMR (#105) field which updates both the Fixed Assets system"
^DD(6915.6,37,21,4,0)="and the CMR (#19) field of the EQUIPMENT INV (#6914) file."
^DD(6915.6,37,"DT")="2981215"
^DD(6915.6,100,0)="NEW CATEGORY STOCK NUMBER^P6917'^ENCSN(6917,^100;1^Q"
^DD(6915.6,100,21,0)="^^1^1^2950922^"
^DD(6915.6,100,21,1,0)="Used to derive FA GROUP ."
^DD(6915.6,100,"DT")="2950922"
^DD(6915.6,101,0)="NEW FUND^R*P6914.6'^ENG(6914.6,^100;2^S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.6,101,12)="Only active FUNDs can be selected."
^DD(6915.6,101,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"""
^DD(6915.6,101,21,0)="1^^1^1^2950925^"
^DD(6915.6,101,21,1,0)="Financial classification of appropriation (based on line of business)."
^DD(6915.6,101,"DT")="2971021"
^DD(6915.6,102,0)="NEW ADMINISTRATIVE/OFFICE^RP6914.7'^ENG(6914.7,^100;3^Q"
^DD(6915.6,102,21,0)="^^1^1^2950925^^"
^DD(6915.6,102,21,1,0)="New A/O (10 for VHA, 20 for VBA, etc.)."
^DD(6915.6,102,"DT")="2950927"
^DD(6915.6,103,0)="NEW FUND CONTROL POINT^F^^100;4^K:$L(X)>30!($L(X)<3) X"
^DD(6915.6,103,3)="Answer must be 3-30 characters in length."
^DD(6915.6,103,21,0)="^^2^2^2960423^^^^"
^DD(6915.6,103,21,1,0)="Used to derive the ACC (field #31). Free text required because Fund"
^DD(6915.6,103,21,2,0)="Control Points are subject to change."
^DD(6915.6,103,"DT")="2960423"
^DD(6915.6,104,0)="NEW BOC^*P6914.4'^ENG(6914.4,^100;5^S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.6,104,12)="Only active budget object codes can be selected."
^DD(6915.6,104,12.1)="S DIC(""S"")=""I $P($G(^(0)),U,5)=""""""""!($P($G(^(0)),U,5)>DT)!($G(DIUTIL)=""""VERIFY FIELDS"""")"""
^DD(6915.6,104,21,0)="^^1^1^2950925^"
^DD(6915.6,104,21,1,0)="Value to be recorded in FAP and AEMS/MERS."
^DD(6915.6,104,"DT")="2971021"
^DD(6915.6,105,0)="NEW CMR^*P6914.1'^ENG(6914.1,^100;6^S DIC(""S"")=""I $P(^(0),U,7)=""""""""!($P(^(0),U,7)=$P($G(^ENG(6914,ENEQ(""""DA""""),9)),U,5))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.6,105,12)="Must select CMR valid for equipment's station #. Enter '?' for list."
^DD(6915.6,105,12.1)="S DIC(""S"")=""I $P(^(0),U,7)=""""""""!($P(^(0),U,7)=$P($G(^ENG(6914,ENEQ(""""DA""""),9)),U,5))"""
^DD(6915.6,105,21,0)="^^5^5^2970328^^"
^DD(6915.6,105,21,1,0)="Basis for LOCATION (as in department locator)."
^DD(6915.6,105,21,2,0)=" "
^DD(6915.6,105,21,3,0)="CMRs that are assigned to a station other than the owning station for this"
^DD(6915.6,105,21,4,0)="asset are unacceptable. A change of this kind will require you to enter an"
^DD(6915.6,105,21,5,0)="FD document, then edit the CMR, and then enter an FA document."
^DD(6915.6,105,"DT")="2960305"
^DD(6915.6,106,0)="*NEW COST CENTER^P420.1'^PRCD(420.1,^100;7^Q"
^DD(6915.6,106,21,0)="^^2^2^2970327^"
^DD(6915.6,106,21,1,0)="This field is no longer used to obtain the new cost center value. Instead"
^DD(6915.6,106,21,2,0)="the cost center is computed based on the CMR (EIL)."
^DD(6915.6,106,"DT")="2970327"
^DD(6915.6,107,0)="ASSET VALUE^NJ14,2^^100;8^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999999)!(X<0) X"
^DD(6915.6,107,3)="Type a Dollar Amount between 0 and 99999999999, 2 Decimal Digits"
^DD(6915.6,107,21,0)="^^1^1^2960719^^"
^DD(6915.6,107,21,1,0)="Asset value at time document processed."
^DD(6915.6,107,"DT")="2960719"
^DD(6915.6,301,0)="A.V. DATE^DI^^300;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.6,301,1,0)="^.1"
^DD(6915.6,301,1,1,0)="^^TRIGGER^6915.6^302"
^DD(6915.6,301,1,1,1)="X ^DD(6915.6,301,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ENG(6915.6,D0,300)):^(300),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6915.6,301,1,1,1.4)"
^DD(6915.6,301,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(6915.6,D0,300)):^(300),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))="""""
^DD(6915.6,301,1,1,1.4)="S DIH=$S($D(^ENG(6915.6,DIV(0),300)):^(300),1:""""),DIV=X S $P(^(300),U,2)=DIV,DIH=6915.6,DIG=302 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6915.6,301,1,1,2)="Q"
^DD(6915.6,301,1,1,"CREATE CONDITION")="#302="""""
^DD(6915.6,301,1,1,"CREATE VALUE")="S X=DUZ"
^DD(6915.6,301,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6915.6,301,1,1,"DT")="2961218"
^DD(6915.6,301,1,1,"FIELD")="#302"
^DD(6915.6,301,1,2,0)="6915.6^AV"
^DD(6915.6,301,1,2,1)="S ^ENG(6915.6,""AV"",$E(X,1,30),DA)="""""
^DD(6915.6,301,1,2,2)="K ^ENG(6915.6,""AV"",$E(X,1,30),DA)"
^DD(6915.6,301,1,2,"DT")="2961218"
^DD(6915.6,301,21,0)="^^4^4^2961219^"
^DD(6915.6,301,21,1,0)="This field contains the date/time when an Adjustment Voucher was created."
^DD(6915.6,301,21,2,0)="If blank, then an Adjustment Voucher has not yet been created for the FR"
^DD(6915.6,301,21,3,0)="Document. An Adjustment Voucher is used to notify Fiscal about a selected"
^DD(6915.6,301,21,4,0)="FAP Document."
^DD(6915.6,301,"DT")="2961218"
^DD(6915.6,302,0)="A.V. CREATED BY^P200'^VA(200,^300;2^Q"
^DD(6915.6,302,5,1,0)="6915.6^301^1"
^DD(6915.6,302,9)="^"
^DD(6915.6,302,21,0)="^^1^1^2961218^"
^DD(6915.6,302,21,1,0)="User that created adjustment voucher."
^DD(6915.6,302,"DT")="2961218"
^DD(6915.6,303,0)="A.V. REASON^*P6915.11'^ENG(6915.11,^300;3^S DIC(""S"")=""I $P(^(0),U,2)[""""FR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6915.6,303,3)="Select reason for adjustment voucher."
^DD(6915.6,303,12)="Applicable reasons for FR Document"
^DD(6915.6,303,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""FR"""""""
^DD(6915.6,303,"DT")="2970131"
^DD(6915.6,310,0)="A.V. COMMENTS^6915.61^^301;0"
^DD(6915.6,"B","*NEW COST CENTER",106)=""
^DD(6915.6,"B","A.V. COMMENTS",310)=""
^DD(6915.6,"B","A.V. CREATED BY",302)=""
^DD(6915.6,"B","A.V. DATE",301)=""
^DD(6915.6,"B","A.V. REASON",303)=""
^DD(6915.6,"B","ASSET VALUE",107)=""
^DD(6915.6,"B","BATCH NUMBER",9)=""
^DD(6915.6,"B","BEG BUDGET FY",27)=""
^DD(6915.6,"B","DATE/TIME CREATED",1)=""
^DD(6915.6,"B","DESTINATION SYSTEM",4)=""
^DD(6915.6,"B","EQUIPMENT RECORD",.01)=""
^DD(6915.6,"B","FIXED ASSET NUMBER",24)=""
^DD(6915.6,"B","FIXED ASSET TYPE",25)=""
^DD(6915.6,"B","NEW A/O (TEXT)",29)=""
^DD(6915.6,"B","NEW ADMINISTRATIVE/OFFICE",102)=""
^DD(6915.6,"B","NEW BOC",104)=""
^DD(6915.6,"B","NEW BOC (TEXT)",32)=""
^DD(6915.6,"B","NEW CATEGORY STOCK NUMBER",100)=""
^DD(6915.6,"B","NEW CMR",105)=""
^DD(6915.6,"B","NEW COST ORG",34)=""
^DD(6915.6,"B","NEW FA GROUP",26)=""
^DD(6915.6,"B","NEW FUND",101)=""
^DD(6915.6,"B","NEW FUND (TEXT)",28)=""
^DD(6915.6,"B","NEW FUND CONTROL POINT",103)=""
^DD(6915.6,"B","NEW LOCATION",33)=""
^DD(6915.6,"B","NEW OWNING STATION",30)=""
^DD(6915.6,"B","NEW SATELLITE STATION",36)=""
^DD(6915.6,"B","NEW SUB ORG",35)=""
^DD(6915.6,"B","NEW XAREA",37)=""
^DD(6915.6,"B","NEW XPROGRAM",31)=""
^DD(6915.6,"B","SEC1 CODE",8)=""
^DD(6915.6,"B","SEGMENT 1 ID",2)=""
^DD(6915.6,"B","SEGMENT 2 ID",16)=""
^DD(6915.6,"B","SEGMENT 3 ID",20)=""
^DD(6915.6,"B","SENDER",1.5)=""
^DD(6915.6,"B","SEQUENCE NUMBER",13)=""
^DD(6915.6,"B","SEQUENCE TOTAL",14)=""
^DD(6915.6,"B","SOURCE SYSTEM",3)=""
^DD(6915.6,"B","SUBMITTING STATION",5)=""
^DD(6915.6,"B","TRANS CODE",21)=""
^DD(6915.6,"B","TRANS DIVISION",22)=""
^DD(6915.6,"B","TRANS NUMBER",23)=""
^DD(6915.6,"B","TRANSACTION CLASS",6)=""
^DD(6915.6,"B","TRANSACTION CODE",7)=""
^DD(6915.6,"B","TRANSACTION DATE",11)=""
^DD(6915.6,"B","TRANSACTION NUMBER",10)=""
^DD(6915.6,"B","TRANSACTION TIME",12)=""
^DD(6915.6,"B","VERSION",15)=""
^DD(6915.6,"GL",0,1,.01)=""
^DD(6915.6,"GL",0,2,1)=""
^DD(6915.6,"GL",0,3,1.5)=""
^DD(6915.6,"GL",1,1,2)=""
^DD(6915.6,"GL",1,2,3)=""
^DD(6915.6,"GL",1,3,4)=""
^DD(6915.6,"GL",1,4,5)=""
^DD(6915.6,"GL",1,5,6)=""
^DD(6915.6,"GL",1,6,7)=""
^DD(6915.6,"GL",1,7,8)=""
^DD(6915.6,"GL",1,8,9)=""
^DD(6915.6,"GL",1,9,10)=""
^DD(6915.6,"GL",1,10,11)=""
^DD(6915.6,"GL",1,11,12)=""
^DD(6915.6,"GL",1,12,13)=""
^DD(6915.6,"GL",1,13,14)=""
^DD(6915.6,"GL",1,14,15)=""
^DD(6915.6,"GL",2,1,16)=""
^DD(6915.6,"GL",3,1,20)=""
^DD(6915.6,"GL",3,2,21)=""
^DD(6915.6,"GL",3,3,22)=""
^DD(6915.6,"GL",3,4,23)=""
^DD(6915.6,"GL",3,5,24)=""
^DD(6915.6,"GL",3,6,25)=""
^DD(6915.6,"GL",3,7,26)=""
^DD(6915.6,"GL",3,8,27)=""
^DD(6915.6,"GL",3,9,28)=""
^DD(6915.6,"GL",3,10,29)=""
^DD(6915.6,"GL",3,11,30)=""
^DD(6915.6,"GL",3,12,31)=""
^DD(6915.6,"GL",3,13,32)=""
^DD(6915.6,"GL",3,14,33)=""
^DD(6915.6,"GL",3,15,34)=""
^DD(6915.6,"GL",3,16,35)=""
^DD(6915.6,"GL",3,17,36)=""
^DD(6915.6,"GL",3,18,37)=""
^DD(6915.6,"GL",100,1,100)=""
^DD(6915.6,"GL",100,2,101)=""
^DD(6915.6,"GL",100,3,102)=""
^DD(6915.6,"GL",100,4,103)=""
^DD(6915.6,"GL",100,5,104)=""
^DD(6915.6,"GL",100,6,105)=""
^DD(6915.6,"GL",100,7,106)=""
^DD(6915.6,"GL",100,8,107)=""
^DD(6915.6,"GL",300,1,301)=""
^DD(6915.6,"GL",300,2,302)=""
^DD(6915.6,"GL",300,3,303)=""
^DD(6915.6,"GL",301,0,310)=""
^DD(6915.6,"IX",.01)=""
^DD(6915.6,"IX",1)=""
^DD(6915.6,"IX",23)=""
^DD(6915.6,"IX",301)=""
^DD(6915.6,"RQ",.01)=""
^DD(6915.6,"RQ",1)=""
^DD(6915.6,"RQ",1.5)=""
^DD(6915.6,"RQ",2)=""
^DD(6915.6,"RQ",3)=""
^DD(6915.6,"RQ",4)=""
^DD(6915.6,"RQ",5)=""
^DD(6915.6,"RQ",6)=""
^DD(6915.6,"RQ",7)=""
^DD(6915.6,"RQ",8)=""
^DD(6915.6,"RQ",9)=""
^DD(6915.6,"RQ",10)=""
^DD(6915.6,"RQ",11)=""
^DD(6915.6,"RQ",12)=""
^DD(6915.6,"RQ",13)=""
^DD(6915.6,"RQ",14)=""
^DD(6915.6,"RQ",15)=""
^DD(6915.6,"RQ",16)=""
^DD(6915.6,"RQ",20)=""
^DD(6915.6,"RQ",21)=""
^DD(6915.6,"RQ",22)=""
^DD(6915.6,"RQ",23)=""
^DD(6915.6,"RQ",24)=""
^DD(6915.6,"RQ",25)=""
^DD(6915.6,"RQ",28)=""
^DD(6915.6,"RQ",29)=""
^DD(6915.6,"RQ",31)=""
^DD(6915.6,"RQ",101)=""
^DD(6915.6,"RQ",102)=""
^DD(6915.6,"SB",6915.61,310)=""
^DD(6915.61,0)="A.V. COMMENTS SUB-FIELD^^.01^1"
^DD(6915.61,0,"DT")="2961217"
^DD(6915.61,0,"NM","A.V. COMMENTS")=""
^DD(6915.61,0,"UP")="6915.6"
^DD(6915.61,.01,0)="A.V. COMMENTS^W^^0;1^Q"
^DD(6915.61,.01,3)="Enter adjustment voucher comments (if any)."
^DD(6915.61,.01,"DT")="2961217"
^DD(6915.61,"B","A.V. COMMENTS",.01)=""
^DD(6915.61,"GL",0,1,.01)=""
^DD(6915.9,0)="FIELD^^1^2"
^DD(6915.9,0,"DDA")="N"
^DD(6915.9,0,"DT")="2960305"
^DD(6915.9,0,"IX","B",6915.9,.01)=""
^DD(6915.9,0,"NM","FAP BALANCES")=""
^DD(6915.9,.01,0)="STATION NUMBER^RF^^0;1^K:$L(X)>5!($L(X)<3)!'(X'?1P.E) X"
^DD(6915.9,.01,1,0)="^.1"
^DD(6915.9,.01,1,1,0)="6915.9^B"
^DD(6915.9,.01,1,1,1)="S ^ENG(6915.9,""B"",$E(X,1,30),DA)="""""
^DD(6915.9,.01,1,1,2)="K ^ENG(6915.9,""B"",$E(X,1,30),DA)"
^DD(6915.9,.01,3)="Answer must be 3-5 characters in length."
^DD(6915.9,.01,21,0)="^^2^2^2960313^"
^DD(6915.9,.01,21,1,0)="This field contains the station number of a station which has had"
^DD(6915.9,.01,21,2,0)="capitalized non-expendable equipment transmitted to Fixed Assets."
^DD(6915.9,.01,"DT")="2960305"
^DD(6915.9,1,0)="FUND^6915.91P^^1;0"
^DD(6915.9,1,21,0)="^^2^2^2960313^"
^DD(6915.9,1,21,1,0)="The field contains the fund (by station) for which capitalized"
^DD(6915.9,1,21,2,0)="non-expendable equipment has been transmitted to Fixed Assets."
^DD(6915.9,"B","FUND",1)=""
^DD(6915.9,"B","STATION NUMBER",.01)=""
^DD(6915.9,"GL",0,1,.01)=""
^DD(6915.9,"GL",1,0,1)=""
^DD(6915.9,"IX",.01)=""
^DD(6915.9,"RQ",.01)=""
^DD(6915.9,"SB",6915.91,1)=""
^DD(6915.91,0)="FUND SUB-FIELD^^1^2"
^DD(6915.91,0,"DT")="2960305"
^DD(6915.91,0,"IX","B",6915.91,.01)=""
^DD(6915.91,0,"NM","FUND")=""
^DD(6915.91,0,"UP")="6915.9"
^DD(6915.91,.01,0)="FUND^MP6914.6'^ENG(6914.6,^0;1^Q"
^DD(6915.91,.01,1,0)="^.1"
^DD(6915.91,.01,1,1,0)="6915.91^B"
^DD(6915.91,.01,1,1,1)="S ^ENG(6915.9,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6915.91,.01,1,1,2)="K ^ENG(6915.9,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6915.91,.01,"DT")="2960305"
^DD(6915.91,1,0)="STANDARD GENERAL LEDGER^6915.911P^^1;0"
^DD(6915.91,1,21,0)="^^3^3^2960313^"
^DD(6915.91,1,21,1,0)="This field contains the Standard General Ledger (by station and fund) for"
^DD(6915.91,1,21,2,0)="which capitalized non-expendable equipment was transmitted to Fixed"
^DD(6915.91,1,21,3,0)="Assets."
^DD(6915.91,"B","FUND",.01)=""
^DD(6915.91,"B","STANDARD GENERAL LEDGER",1)=""
^DD(6915.91,"GL",0,1,.01)=""
^DD(6915.91,"GL",1,0,1)=""
^DD(6915.91,"IX",.01)=""
^DD(6915.91,"SB",6915.911,1)=""
^DD(6915.911,0)="STANDARD GENERAL LEDGER SUB-FIELD^^1^2"
^DD(6915.911,0,"DT")="2960305"
^DD(6915.911,0,"IX","B",6915.911,.01)=""
^DD(6915.911,0,"NM","STANDARD GENERAL LEDGER")=""
^DD(6915.911,0,"UP")="6915.91"
^DD(6915.911,.01,0)="STANDARD GENERAL LEDGER^MP6914.3'^ENG(6914.3,^0;1^Q"
^DD(6915.911,.01,1,0)="^.1"
^DD(6915.911,.01,1,1,0)="6915.911^B"
^DD(6915.911,.01,1,1,1)="S ^ENG(6915.9,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6915.911,.01,1,1,2)="K ^ENG(6915.9,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6915.911,.01,"DT")="2960305"
^DD(6915.911,1,0)="MONTH^6915.9111D^^1;0"
^DD(6915.911,1,21,0)="^^4^4^2960313^"
^DD(6915.911,1,21,1,0)="Month when a dollar balance is recorded. If no activity (change to"
^DD(6915.911,1,21,2,0)="balance) occured during a given month, then that month will not be found"
^DD(6915.911,1,21,3,0)="in the file. The dollar balance of the station/fund/sgl for that month can"
^DD(6915.911,1,21,4,0)="be obtained from the preceeding month with a value."
^DD(6915.911,"B","MONTH",1)=""
^DD(6915.911,"B","STANDARD GENERAL LEDGER",.01)=""
^DD(6915.911,"GL",0,1,.01)=""
^DD(6915.911,"GL",1,0,1)=""
^DD(6915.911,"IX",.01)=""
^DD(6915.911,"SB",6915.9111,1)=""
^DD(6915.9111,0)="MONTH SUB-FIELD^^1^2"
^DD(6915.9111,0,"DT")="2960305"
^DD(6915.9111,0,"IX","B",6915.9111,.01)=""
^DD(6915.9111,0,"NM","MONTH")=""
^DD(6915.9111,0,"UP")="6915.911"
^DD(6915.9111,.01,0)="MONTH^MD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6915.9111,.01,1,0)="^.1"
^DD(6915.9111,.01,1,1,0)="6915.9111^B"
^DD(6915.9111,.01,1,1,1)="S ^ENG(6915.9,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6915.9111,.01,1,1,2)="K ^ENG(6915.9,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6915.9111,.01,"DT")="2960305"
^DD(6915.9111,1,0)="BALANCE^NJ13,2^^0;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999999)!(X<0) X"
^DD(6915.9111,1,3)="Type a Dollar Amount between 0 and 9999999999, 2 Decimal Digits"
^DD(6915.9111,1,21,0)="^^4^4^2960313^"
^DD(6915.9111,1,21,1,0)="This field contains the closing dollar balance for the month or the"
^DD(6915.9111,1,21,2,0)="current dollar balance if the month is not yet over. The dollar balance is"
^DD(6915.9111,1,21,3,0)="solely based on transmitted Fixed Assets Documents and is tracked by"
^DD(6915.9111,1,21,4,0)="station, fund, and standard general ledger account."
^DD(6915.9111,1,"DT")="2960305"
^DD(6915.9111,"B","BALANCE",1)=""
^DD(6915.9111,"B","MONTH",.01)=""
^DD(6915.9111,"GL",0,1,.01)=""
^DD(6915.9111,"GL",0,2,1)=""
^DD(6915.9111,"IX",.01)=""
^DD(6916,0)="FIELD^^20^23"
^DD(6916,0,"DDA")="N"
^DD(6916,0,"DT")="2940829"
^DD(6916,0,"ID",3)="W ""   "",$P(^(0),U,3)"
^DD(6916,0,"IX","B",6916,.01)=""
^DD(6916,0,"IX","C",6916,2.1)=""
^DD(6916,0,"IX","D",6916.1,.01)=""
^DD(6916,0,"NM","BERS SURVEY")=""
^DD(6916,0,"VR")="7.0"
^DD(6916,.01,0)="VAMC^RF^^0;1^K:$L(X)>10!($L(X)<8)!'(X?4N1""-""3.5UN) X"
^DD(6916,.01,.1)=" "
^DD(6916,.01,1,0)="^.1"
^DD(6916,.01,1,1,0)="6916^B"
^DD(6916,.01,1,1,1)="S ^ENGS(6916,""B"",$E(X,1,30),DA)="""""
^DD(6916,.01,1,1,2)="K ^ENGS(6916,""B"",$E(X,1,30),DA)"
^DD(6916,.01,1,2,0)="^^TRIGGER^6916^2.1"
^DD(6916,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENGS(6916,D0,5)):^(5),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(6916,.01,1,2,1.4)"
^DD(6916,.01,1,2,1.4)="S DIH=$S($D(^ENGS(6916,DIV(0),5)):^(5),1:""""),DIV=X S $P(^(5),U,1)=DIV,DIH=6916,DIG=2.1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6916,.01,1,2,2)="Q"
^DD(6916,.01,1,2,"CREATE VALUE")="""N"""
^DD(6916,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(6916,.01,1,2,"DT")="2980126"
^DD(6916,.01,1,2,"FIELD")="#2.1"
^DD(6916,.01,1,3,0)="^^TRIGGER^6916^2.2"
^DD(6916,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENGS(6916,D0,5)):^(5),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(6916,.01,1,3,1.4)"
^DD(6916,.01,1,3,1.4)="S DIH=$S($D(^ENGS(6916,DIV(0),5)):^(5),1:""""),DIV=X S $P(^(5),U,2)=DIV,DIH=6916,DIG=2.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6916,.01,1,3,2)="Q"
^DD(6916,.01,1,3,"CREATE VALUE")="""N"""
^DD(6916,.01,1,3,"DELETE VALUE")="NO EFFECT"
^DD(6916,.01,1,3,"DT")="2980126"
^DD(6916,.01,1,3,"FIELD")="#2.2"
^DD(6916,.01,1,4,0)="^^TRIGGER^6916^2.3"
^DD(6916,.01,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENGS(6916,D0,5)):^(5),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""N"" X ^DD(6916,.01,1,4,1.4)"
^DD(6916,.01,1,4,1.4)="S DIH=$S($D(^ENGS(6916,DIV(0),5)):^(5),1:""""),DIV=X S $P(^(5),U,3)=DIV,DIH=6916,DIG=2.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6916,.01,1,4,2)="Q"
^DD(6916,.01,1,4,"CREATE VALUE")="""N"""
^DD(6916,.01,1,4,"DELETE VALUE")="NO EFFECT"
^DD(6916,.01,1,4,"DT")="2980126"
^DD(6916,.01,1,4,"FIELD")="#2.3"
^DD(6916,.01,3)="Enter 4 digit Fiscal Year concatenated with '-' concatenated with Station No."
^DD(6916,.01,4)="W !,""Ex: 1999-668 for Fiscal Year 1999, Station 668."""
^DD(6916,.01,20,0)="^.3LA^1^1"
^DD(6916,.01,20,1,0)=" "
^DD(6916,.01,21,0)="^^1^1^2930429^^"
^DD(6916,.01,21,1,0)="Fiscal year being reported concatenated with official facility number."
^DD(6916,.01,22)=""
^DD(6916,.01,"AUDIT")=""
^DD(6916,.01,"DT")="2980126"
^DD(6916,2,0)="HOSPCODE^RNJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,2,3)="Enter  hospital code i.e., 657 for St. Louis"
^DD(6916,2,21,0)="^^1^1^2930429^"
^DD(6916,2,21,1,0)="Official facility number, usually three digits."
^DD(6916,2.1,0)="PCYCLE^F^^5;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X"
^DD(6916,2.1,1,0)="^.1"
^DD(6916,2.1,1,1,0)="6916^C"
^DD(6916,2.1,1,1,1)="S ^ENGS(6916,""C"",$E(X,1,30),DA)="""""
^DD(6916,2.1,1,1,2)="K ^ENGS(6916,""C"",$E(X,1,30),DA)"
^DD(6916,2.1,3)="DO NOT ENTER DATA. ONLY HIT RETURN!!!"""
^DD(6916,2.1,5,1,0)="6916^.01^2"
^DD(6916,2.1,9)="^"
^DD(6916,2.1,21,0)="^^1^1^2930429^"
^DD(6916,2.1,21,1,0)="For use by the Engineering Service Center only."
^DD(6916,2.1,"DT")="2870512"
^DD(6916,2.2,0)="CCYCLE^F^^5;2^K:$L(X)>1!($L(X)<1) X"
^DD(6916,2.2,3)="DO NOT ENTER DATA, ONLY HIT RETURN!!!"""
^DD(6916,2.2,5,1,0)="6916^.01^3"
^DD(6916,2.2,9)="^"
^DD(6916,2.2,21,0)="^^1^1^2930429^"
^DD(6916,2.2,21,1,0)="For use by the Engineering Service Center only."
^DD(6916,2.2,"DT")="2870511"
^DD(6916,2.3,0)="GCYCLE^F^^5;3^K:$L(X)>1!($L(X)<1) X"
^DD(6916,2.3,3)="DO NOT ENTER DATA, ONLY HIT RETURN!!!"""
^DD(6916,2.3,5,1,0)="6916^.01^4"
^DD(6916,2.3,9)="^"
^DD(6916,2.3,21,0)="^^1^1^2930429^"
^DD(6916,2.3,21,1,0)="For use by the Engineering Service Center only."
^DD(6916,2.3,"DT")="2870511"
^DD(6916,3,0)="VAMC ADDRESS^F^^0;3^K:$L(X)>45!($L(X)<3) X"
^DD(6916,3,3)="Enter City, State, & Zip, i.e., St. Louis, MO  63125"
^DD(6916,3,21,0)="^^2^2^2930429^^"
^DD(6916,3,21,1,0)="Address of facility.  Should include city, state, and zip code."
^DD(6916,3,21,2,0)="Street address not required."
^DD(6916,4,0)="FYEARRPT^RNJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1900)!(X?.E1"".""1N.N) X"
^DD(6916,4,3)="Enter the Fiscal Year in 4 digit format."
^DD(6916,4,4)="W !,""Ex: 1998, 2000, 2005, etc."""
^DD(6916,4,21,0)="^^1^1^2980126^^"
^DD(6916,4,21,1,0)="Fiscal year being reported."
^DD(6916,4,"DT")="2980126"
^DD(6916,5,0)="I.A.1. NAME^6916.07A^^1;0"
^DD(6916,5,21,0)="^^1^1^2930429^"
^DD(6916,5,21,1,0)="Name of biomedical maintenance employee."
^DD(6916,6,0)="II.A. WORK AREA (SQFT)^NJ6,0^^2;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,6,3)="Enter Work Area Space in Square Feet."
^DD(6916,6,21,0)="^^2^2^2930429^^"
^DD(6916,6,21,1,0)="Net square feet assigned to actual biomedical maintenance"
^DD(6916,6,21,2,0)="and repair activity."
^DD(6916,7,0)="II.B. STORAGE AREA (SQFT)^NJ6,0^^2;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,7,3)="Enter the storage space in square feet"
^DD(6916,7,21,0)="^^2^2^2930429^"
^DD(6916,7,21,1,0)="Net square feet assigned to biomedical engineering for storage"
^DD(6916,7,21,2,0)="of test equipment, parts, and documents."
^DD(6916,8,0)="II.C. BME OFFICE (SQFT)^NJ6,0^^2;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,8,3)="Enter BME Office space in square feet"
^DD(6916,8,21,0)="^^1^1^2930429^"
^DD(6916,8,21,1,0)="Net square feet used for office work."
^DD(6916,9,0)="III.A. TOTAL ACQUISITION COST^NJ9,0^^2;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,9,3)="Enter Total Test Equipment Acquisition cost."
^DD(6916,9,21,0)="^^2^2^2930429^"
^DD(6916,9,21,1,0)="Approximate cost of all test equipment assigned to the biomedical"
^DD(6916,9,21,2,0)="maintenance activity."
^DD(6916,10,0)="IV.A. COST OF PARTS^NJ9,0^^2;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,10,3)="Enter Cost of parts used for inhouse repairs & added to stock during the reporting period."
^DD(6916,10,21,0)="^^2^2^2930429^"
^DD(6916,10,21,1,0)="Cost of parts purchased at the request of biomedical engineering"
^DD(6916,10,21,2,0)="during the reporting year."
^DD(6916,11,0)="*IV.B. COST OF X-RAY PART N/T^NJ9,0^^2;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,11,3)="ENTER COST OF X-RAY PARTS ALONE (NO TUBES)"
^DD(6916,11,21,0)="^^4^4^2941003^^"
^DD(6916,11,21,1,0)="Approximate cost of parts purchased for repair of X-ray equipment"
^DD(6916,11,21,2,0)="during the reporting year, excluding tubes."
^DD(6916,11,21,3,0)=" "
^DD(6916,11,21,4,0)="The field is no longer used in the BERS Survey as of 10/3/94."
^DD(6916,11,"DT")="2941003"
^DD(6916,12,0)="IV.B. COST OF X-RAY (TUBES)^NJ9,0^^2;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,12,3)="ENTER COSTS OF X-RAY TUBES ONLY (NOT TO INCLUDE ANY PROVIDED BY CONTRACTS OR ONE-TIME SERVICE COSTS)"
^DD(6916,12,21,0)="^^1^1^2930429^"
^DD(6916,12,21,1,0)="Approximate cost of X-ray tubes purchased during the reporting year."
^DD(6916,12,"DT")="2940829"
^DD(6916,13,0)="V.A. COST OF REPAIRS (NON)^NJ9,0^^2;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,13,3)="ENTER COSTS OF PARTS & LABOR FOR VENDOR REPAIRS (NON CONTRACT)"
^DD(6916,13,21,0)="^^3^3^2930429^^"
^DD(6916,13,21,1,0)="Approximate cost (parts and labor) of maintenance and repair"
^DD(6916,13,21,2,0)="performed by vendors during the reporting year, not including work"
^DD(6916,13,21,3,0)="done under service contracts."
^DD(6916,14,0)="*V.B. COST OF X-RAY CALLS^NJ9,0^^2;9^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916,14,3)="ENTER COSTS OF X-RAY CALLS IN LIEU OF CONTRACT SERVICE."
^DD(6916,14,21,0)="^^3^3^2941003^^"
^DD(6916,14,21,1,0)="Approximate cost of vendor service calls on X-ray equipment."
^DD(6916,14,21,2,0)=" "
^DD(6916,14,21,3,0)="This field is no longer used in the BERS Survey as of 10/3/94."
^DD(6916,14,"DT")="2941003"
^DD(6916,15,0)="VI.A. CONTRACT SERVICE^6916.1ISA^^3;0"
^DD(6916,15,21,0)="^^1^1^2930429^"
^DD(6916,15,21,1,0)="Individual maintenance contracts in force during the reporting year."
^DD(6916,16,0)="VII. ADDITIONAL SUPPORT AREAS^6916.11SA^^4;0"
^DD(6916,16,21,0)="^^2^2^2930429^"
^DD(6916,16,21,1,0)="Special areas that may be supported with biomedical engineering"
^DD(6916,16,21,2,0)="resources."
^DD(6916,17,0)="VIII.A.TOTAL PERSONAL PROPERTY^RNJ15,2^^6;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(6916,17,3)="Enter the Total Value of Non Expendable Equipment for your VAMC"
^DD(6916,17,21,0)="^^1^1^2940829^"
^DD(6916,17,21,1,0)="The total value of non expendable equipment for the VAMC."
^DD(6916,17,"DT")="2940829"
^DD(6916,18,0)="VIII.B. LAB TOTAL EQUIP. COST^RNJ15,2^^6;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(6916,18,3)="Enter the Total Equipment Cost for Laboratory at your VAMC"
^DD(6916,18,21,0)="^^1^1^2940829^^^"
^DD(6916,18,21,1,0)="The total value of Laboratory medical equipment at the VAMC."
^DD(6916,18,"DT")="2940829"
^DD(6916,19,0)="VIII.C. RAD TOTAL EQUIP. COST^RNJ15,2^^6;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(6916,19,3)="Enter the Total Equipment Cost for Radiology at your VAMC"
^DD(6916,19,21,0)="^^1^1^2940829^^"
^DD(6916,19,21,1,0)="The total value of Radiology medical equipment at the VAMC."
^DD(6916,19,"DT")="2940829"
^DD(6916,20,0)="VIII.D. OTHER TOTAL EQUIP. CST^RNJ15,2^^6;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999999)!(X<0) X"
^DD(6916,20,3)="Enter Total Equipment Cost for all other Medical Equipment (Surgical, Dental, and Optical)"
^DD(6916,20,21,0)="^^1^1^2940829^"
^DD(6916,20,21,1,0)="The total value of all other medical equipment at the VAMC."
^DD(6916,20,"DT")="2940829"
^DD(6916,"B"," ",.01)="1"
^DD(6916,"B","*IV.B. COST OF X-RAY PART N/T",11)=""
^DD(6916,"B","*V.B. COST OF X-RAY CALLS",14)=""
^DD(6916,"B","CCYCLE",2.2)=""
^DD(6916,"B","FYEARRPT",4)=""
^DD(6916,"B","GCYCLE",2.3)=""
^DD(6916,"B","HOSPCODE",2)=""
^DD(6916,"B","I.A.1. NAME",5)=""
^DD(6916,"B","II.A. WORK AREA (SQFT)",6)=""
^DD(6916,"B","II.B. STORAGE AREA (SQFT)",7)=""
^DD(6916,"B","II.C. BME OFFICE (SQFT)",8)=""
^DD(6916,"B","III.A. TOTAL ACQUISITION COST",9)=""
^DD(6916,"B","IV.A. COST OF PARTS",10)=""
^DD(6916,"B","IV.B. COST OF X-RAY (TUBES)",12)=""
^DD(6916,"B","PCYCLE",2.1)=""
^DD(6916,"B","V.A. COST OF REPAIRS (NON)",13)=""
^DD(6916,"B","VAMC",.01)=""
^DD(6916,"B","VAMC ADDRESS",3)=""
^DD(6916,"B","VI.A. CONTRACT SERVICE",15)=""
^DD(6916,"B","VII. ADDITIONAL SUPPORT AREAS",16)=""
^DD(6916,"B","VIII.A.TOTAL PERSONAL PROPERTY",17)=""
^DD(6916,"B","VIII.B. LAB TOTAL EQUIP. COST",18)=""
^DD(6916,"B","VIII.C. RAD TOTAL EQUIP. COST",19)=""
^DD(6916,"B","VIII.D. OTHER TOTAL EQUIP. CST",20)=""
^DD(6916,"GL",0,1,.01)=""
^DD(6916,"GL",0,2,2)=""
^DD(6916,"GL",0,3,3)=""
^DD(6916,"GL",0,4,4)=""
^DD(6916,"GL",1,0,5)=""
^DD(6916,"GL",2,1,6)=""
^DD(6916,"GL",2,2,7)=""
^DD(6916,"GL",2,3,8)=""
^DD(6916,"GL",2,4,9)=""
^DD(6916,"GL",2,5,10)=""
^DD(6916,"GL",2,6,11)=""
^DD(6916,"GL",2,7,12)=""
^DD(6916,"GL",2,8,13)=""
^DD(6916,"GL",2,9,14)=""
^DD(6916,"GL",3,0,15)=""
^DD(6916,"GL",4,0,16)=""
^DD(6916,"GL",5,1,2.1)=""
^DD(6916,"GL",5,2,2.2)=""
^DD(6916,"GL",5,3,2.3)=""
^DD(6916,"GL",6,1,17)=""
^DD(6916,"GL",6,2,18)=""
^DD(6916,"GL",6,3,19)=""
^DD(6916,"GL",6,4,20)=""
^DD(6916,"GR"," ",.01,1)=""
^DD(6916,"IX",.01)=""
^DD(6916,"IX",2.1)=""
^DD(6916,"RQ",.01)=""
^DD(6916,"RQ",2)=""
^DD(6916,"RQ",4)=""
^DD(6916,"RQ",17)=""
^DD(6916,"RQ",18)=""
^DD(6916,"RQ",19)=""
^DD(6916,"RQ",20)=""
^DD(6916,"SB",6916.07,5)=""
^DD(6916,"SB",6916.1,15)=""
^DD(6916,"SB",6916.11,16)=""
^DD(6916.07,0)="I.A.1. NAME SUB-FIELD^NL^8^12"
^DD(6916.07,0,"NM","I.A.1. NAME")=""
^DD(6916.07,0,"UP")="6916"
^DD(6916.07,.01,0)="I.A.1. NAME^MFX^^0;1^K:$L(X)>45!($L(X)<3)!(X'?1U.UP1"","".UP) X"
^DD(6916.07,.01,1,0)="^.1^^0"
^DD(6916.07,.01,3)="Enter Person's LastName, FirstName"
^DD(6916.07,.01,21,0)="^^1^1^2930429^"
^DD(6916.07,.01,21,1,0)="Employee name."
^DD(6916.07,.01,"DT")="2920410"
^DD(6916.07,1,0)="2. ABBREVIATED CLASS TITLE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(6916.07,1,3)="Enter Abbreviated title i.e., BE or BMET or MER or ET"
^DD(6916.07,1,21,0)="^^1^1^2930429^"
^DD(6916.07,1,21,1,0)="Job classification title."
^DD(6916.07,1,"DT")="2870512"
^DD(6916.07,1.5,0)="2a. TYPE OF CLASSIFICATION^RS^T:TECHNICIAN;B:BIOMEDICAL ENGINEER;O:OTHER CLERICAL SUPPORT;^0;3^Q"
^DD(6916.07,1.5,3)="Choose one of the above!!!"
^DD(6916.07,1.5,21,0)="^^1^1^2930429^"
^DD(6916.07,1.5,21,1,0)="Broad classification (technical, professional, other)."
^DD(6916.07,2,0)="3. ORGANIZATIONAL TITLE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(6916.07,2,3)="Enter Position Title. Ex:: Supervisory Technician or Staff Engineer "
^DD(6916.07,2,21,0)="^^1^1^2930429^"
^DD(6916.07,2,21,1,0)="Indicator of primary responsibilities."
^DD(6916.07,3,0)="4. PAYPLAN/CLASS^FX^^0;5^K:$L(X)>20!($L(X)<3) X"
^DD(6916.07,3,3)="Enter Pay plan. Ex: WG-4305 or GS-607 etc."
^DD(6916.07,3,21,0)="^^1^1^2930429^"
^DD(6916.07,3,21,1,0)="Personnel classification."
^DD(6916.07,3,"DT")="2870305"
^DD(6916.07,3.5,0)="4a. GRADE/STEP^F^^3;2^K:$L(X)>30!($L(X)<3) X"
^DD(6916.07,3.5,3)="Example 9/3 or 11/2 or 12/5"
^DD(6916.07,3.5,21,0)="^^1^1^2930429^"
^DD(6916.07,3.5,21,1,0)="Civil service grade and step within grade."
^DD(6916.07,3.5,"DT")="2870302"
^DD(6916.07,4,0)="5. EMPLOYEE STATUS^S^F:FULL-TIME;PT:PART-TIME;PY:PART-YEAR;S:SHARED;^0;6^Q"
^DD(6916.07,4,21,0)="^^1^1^2930429^"
^DD(6916.07,4,21,1,0)="Employment status of this individual."
^DD(6916.07,5,0)="5a. No. OF MONTHS WORKED^RNJ2,0^^0;7^K:+X'=X!(X>12)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6916.07,5,3)="Enter number of months employee has worked, 1 to 12 months during the fiscal year"
^DD(6916.07,5,21,0)="^^2^2^2930429^"
^DD(6916.07,5,21,1,0)="The number of months worked by this individual during the year"
^DD(6916.07,5,21,2,0)="being reported."
^DD(6916.07,5,"DT")="2880406"
^DD(6916.07,5.5,0)="5b. SHARED BY^F^^3;1^K:$L(X)>50!($L(X)<1) X"
^DD(6916.07,5.5,3)="ENTER ALL SERVICES BY NAME & PERCENT i.e. RESEARCH 20%"
^DD(6916.07,5.5,21,0)="^^2^2^2930429^"
^DD(6916.07,5.5,21,1,0)="The name of the entity with whom the services of this individual"
^DD(6916.07,5.5,21,2,0)="are shared."
^DD(6916.07,5.5,"DT")="2870227"
^DD(6916.07,6,0)="6. ANNUAL SALARY^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916.07,6,3)="Enter employee's annual salary."
^DD(6916.07,6,21,0)="^^1^1^2930429^"
^DD(6916.07,6,21,1,0)="Base salary, to the nearest whole dollar."
^DD(6916.07,7,0)="7a. GENERAL EXPERTISE^6916.08A^^1;0"
^DD(6916.07,7,21,0)="^^1^1^2930429^"
^DD(6916.07,7,21,1,0)="Classification of technical competencies."
^DD(6916.07,8,0)="7b. MFG/EQUIP TYPE/MOD#^6916.09PA^^2;0"
^DD(6916.07,8,21,0)="^^1^1^2930429^"
^DD(6916.07,8,21,1,0)="Specific equipment that individual is qualified to maintain."
^DD(6916.07,"B","2. ABBREVIATED CLASS TITLE",1)=""
^DD(6916.07,"B","2a. TYPE OF CLASSIFICATION",1.5)=""
^DD(6916.07,"B","3. ORGANIZATIONAL TITLE",2)=""
^DD(6916.07,"B","4. PAYPLAN/CLASS",3)=""
^DD(6916.07,"B","4a. GRADE/STEP",3.5)=""
^DD(6916.07,"B","5. EMPLOYEE STATUS",4)=""
^DD(6916.07,"B","5a. No. OF MONTHS WORKED",5)=""
^DD(6916.07,"B","5b. SHARED BY",5.5)=""
^DD(6916.07,"B","6. ANNUAL SALARY",6)=""
^DD(6916.07,"B","7a. GENERAL EXPERTISE",7)=""
^DD(6916.07,"B","7b. MFG/EQUIP TYPE/MOD#",8)=""
^DD(6916.07,"B","I.A.1. NAME",.01)=""
^DD(6916.07,"GL",0,1,.01)=""
^DD(6916.07,"GL",0,2,1)=""
^DD(6916.07,"GL",0,3,1.5)=""
^DD(6916.07,"GL",0,4,2)=""
^DD(6916.07,"GL",0,5,3)=""
^DD(6916.07,"GL",0,6,4)=""
^DD(6916.07,"GL",0,7,5)=""
^DD(6916.07,"GL",0,8,6)=""
^DD(6916.07,"GL",1,0,7)=""
^DD(6916.07,"GL",2,0,8)=""
^DD(6916.07,"GL",3,1,5.5)=""
^DD(6916.07,"GL",3,2,3.5)=""
^DD(6916.07,"RQ",1.5)=""
^DD(6916.07,"RQ",5)=""
^DD(6916.07,"SB",6916.08,7)=""
^DD(6916.07,"SB",6916.09,8)=""
^DD(6916.08,0)="7a. GENERAL EXPERTISE SUB-FIELD^NL^.01^1"
^DD(6916.08,0,"NM","7a. GENERAL EXPERTISE")=""
^DD(6916.08,0,"UP")="6916.07"
^DD(6916.08,.01,0)="7a. GENERAL EXPERTISE^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(6916.08,.01,3)="Enter General Area of Expertise (limit of 4); REF CIRCULAR 10-84-206 PARA 7(a)"
^DD(6916.08,.01,21,0)="^^1^1^2930429^"
^DD(6916.08,.01,21,1,0)="Technical competencies."
^DD(6916.08,"B","7a. GENERAL EXPERTISE",.01)=""
^DD(6916.08,"GL",0,1,.01)=""
^DD(6916.09,0)="7b. MFG/EQUIP TYPE/MOD# SUB-FIELD^NL^3^4"
^DD(6916.09,0,"IX","AC",6916.09,.01)=""
^DD(6916.09,0,"NM","7b. MFG/EQUIP TYPE/MOD#")=""
^DD(6916.09,0,"UP")="6916.07"
^DD(6916.09,.01,0)="7b. MFG NAME^MP6912'^ENG(""MFG"",^0;1^Q"
^DD(6916.09,.01,1,0)="^.1"
^DD(6916.09,.01,1,1,0)="6916.09^AC^MUMPS"
^DD(6916.09,.01,1,1,1)="S:$D(^ENG(""MFG"",X,0)) X=$P(^ENG(""MFG"",X,0),""^"",1),$P(^ENGS(6916,DA(2),1,DA(1),2,DA,0),""^"",4)=X"
^DD(6916.09,.01,1,1,2)="Q"
^DD(6916.09,.01,1,1,"DT")="2940901"
^DD(6916.09,.01,3)="ENTER MANUFACTURER'S NAME!!!"
^DD(6916.09,.01,21,0)="^^1^1^2941003^^"
^DD(6916.09,.01,21,1,0)="Equipment manufacturer."
^DD(6916.09,.01,"DT")="2940901"
^DD(6916.09,1,0)="EQUIPMENT TYPE^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(6916.09,1,3)="Enter Generic Name of Equipment"
^DD(6916.09,1,21,0)="^^1^1^2930429^"
^DD(6916.09,1,21,1,0)="Generic name (equipment category)."
^DD(6916.09,2,0)="MODEL^F^^0;3^K:$L(X)>60!($L(X)<1) X"
^DD(6916.09,2,3)="If more then one model use , as seperator"
^DD(6916.09,2,21,0)="^^1^1^2930429^"
^DD(6916.09,2,21,1,0)="Model number assigned by manufacturer."
^DD(6916.09,3,0)="MFG TRIGGERED NAME^F^^0;4^K:$L(X)>60!($L(X)<1) X"
^DD(6916.09,3,3)="This field is triggered by the MFG NAme field"
^DD(6916.09,3,9)="^"
^DD(6916.09,3,21,0)="^^1^1^2930429^"
^DD(6916.09,3,21,1,0)="Manufacturer's name in text representation."
^DD(6916.09,"B","7b. MFG NAME",.01)=""
^DD(6916.09,"B","EQUIPMENT TYPE",1)=""
^DD(6916.09,"B","MFG TRIGGERED NAME",3)=""
^DD(6916.09,"B","MODEL",2)=""
^DD(6916.09,"GL",0,1,.01)=""
^DD(6916.09,"GL",0,2,1)=""
^DD(6916.09,"GL",0,3,2)=""
^DD(6916.09,"GL",0,4,3)=""
^DD(6916.09,"IX",.01)=""
^DD(6916.1,0)="VI.A. CONTRACT SERVICE SUB-FIELD^NL^10^13"
^DD(6916.1,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6916.1,0,"IX","AC",6916.1,2)=""
^DD(6916.1,0,"IX","C",6916.1,1)=""
^DD(6916.1,0,"NM","VI.A. CONTRACT SERVICE")=""
^DD(6916.1,0,"UP")="6916"
^DD(6916.1,.001,0)="CONTRACT NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6916.1,.001,3)="COMPUTER GENERATED NUMBER...DO NOT EDIT THIS FIELD!!!!!!!"
^DD(6916.1,.001,"DT")="2900503"
^DD(6916.1,.01,0)="VI.A. CONTRACT SERVICE^MRS^L:LAB;R:RAD;N:NUC;O:OTHER;^0;1^Q"
^DD(6916.1,.01,1,0)="^.1^^0"
^DD(6916.1,.01,1,1,0)="6916^D"
^DD(6916.1,.01,1,1,1)="S ^ENGS(6916,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(6916.1,.01,1,1,2)="K ^ENGS(6916,""D"",$E(X,1,30),DA(1),DA)"
^DD(6916.1,.01,3)="Enter ""L"" or ""R"" or ""N"" to enter new contracts:"
^DD(6916.1,.01,4)=""
^DD(6916.1,.01,21,0)="^^1^1^2930429^"
^DD(6916.1,.01,21,1,0)="Primary customer for whom contract was purchased.  Set of codes."
^DD(6916.1,.01,"DT")="2871027"
^DD(6916.1,1,0)="COMPANY NAME^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(6916.1,1,1,0)="^.1^^0"
^DD(6916.1,1,1,1,0)="6916.1^C"
^DD(6916.1,1,1,1,1)="S ^ENGS(6916,DA(1),3,""C"",$E(X,1,30),DA)="""""
^DD(6916.1,1,1,1,2)="K ^ENGS(6916,DA(1),3,""C"",$E(X,1,30),DA)"
^DD(6916.1,1,3)="Enter Company Name providing service (NO DEPOTS)"
^DD(6916.1,1,21,0)="^^1^1^2930429^"
^DD(6916.1,1,21,1,0)="Name of company contracted with."
^DD(6916.1,1,"DT")="2890320"
^DD(6916.1,2,0)="MANUFACTURER NAME^RP6912'^ENG(""MFG"",^0;3^Q"
^DD(6916.1,2,1,0)="^.1"
^DD(6916.1,2,1,1,0)="6916.1^AC^MUMPS"
^DD(6916.1,2,1,1,1)="S:$D(^ENG(""MFG"",X,0)) X=$P(^ENG(""MFG"",X,0),""^"",1),$P(^ENGS(6916,DA(1),3,DA,0),""^"",11)=X"
^DD(6916.1,2,1,1,2)="Q"
^DD(6916.1,2,1,1,"DT")="2940901"
^DD(6916.1,2,3)="Enter Manufacturer's Name:"
^DD(6916.1,2,21,0)="^^1^1^2930429^"
^DD(6916.1,2,21,1,0)="Manufacturer of equipment under contract."
^DD(6916.1,2,"DT")="2940901"
^DD(6916.1,3,0)="TYPE OF EQUIPMENT^F^^0;4^K:$L(X)>45!($L(X)<1) X"
^DD(6916.1,3,3)="Enter type of equipment name; i.e., Automicrobic System"
^DD(6916.1,3,21,0)="^^1^1^2930429^"
^DD(6916.1,3,21,1,0)="Generic equipment name (equipment category)."
^DD(6916.1,4,0)="MODEL #^F^^0;5^K:$L(X)>45!($L(X)<1) X"
^DD(6916.1,4,3)="Enter model numbers separated by commas; i.e., S+,33,MD"
^DD(6916.1,4,21,0)="^^1^1^2930429^"
^DD(6916.1,4,21,1,0)="Model number assigned by manufacturer."
^DD(6916.1,5,0)="EQUIPMENT COST (ACQST)^NJ9,0^^0;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916.1,5,.1)="EQUIP COST"
^DD(6916.1,5,3)="Enter Equipment Cost (Acquisition):"
^DD(6916.1,5,21,0)="^^1^1^2930429^"
^DD(6916.1,5,21,1,0)="Acquisition cost of equipment under contract."
^DD(6916.1,6,0)="CONTRACT COST^NJ9,0^^0;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916.1,6,.1)="CON COST"
^DD(6916.1,6,3)="Enter Contract Cost (Actual Expense):"
^DD(6916.1,6,21,0)="^^1^1^2930429^"
^DD(6916.1,6,21,1,0)="Annual cost (nearest whole dollar) of the contract."
^DD(6916.1,7,0)="CONTRACT PERIOD^NJ2,0^^0;8^K:+X'=X!(X>12)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6916.1,7,3)="Enter Contract Period (# Months 1-12):"
^DD(6916.1,7,21,0)="^^2^2^2930429^"
^DD(6916.1,7,21,1,0)="Number of months this contract was in force during the reporting"
^DD(6916.1,7,21,2,0)="year (1 to 12)."
^DD(6916.1,8,0)="CONTRACT TYPE^S^F:FULL SERVICE;PM:PREVENTIVE MAINTENANCE ONLY;S:SAFETY INSPECTION;SP:SERVICE PLUS PARTS;P:PARTIAL SERVICE;PO:PARTS ONLY;^0;9^Q"
^DD(6916.1,8,3)="Select from displayed list ONLY"
^DD(6916.1,8,21,0)="^^2^2^2930429^"
^DD(6916.1,8,21,1,0)="Category of contract.  Choose the selection that most closely"
^DD(6916.1,8,21,2,0)="describes the nature of this contract."
^DD(6916.1,8,"DT")="2890118"
^DD(6916.1,9,0)="ADDITIONAL COST^NJ9,0^^0;10^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916.1,9,3)="ENTER ADDITIONAL COSTS FOR PARTS & SERVICES PROVIDED BY VENDOR (IN ADDITION TO CONTRACT COSTS)."
^DD(6916.1,9,21,0)="^^2^2^2930429^"
^DD(6916.1,9,21,1,0)="Amount paid to the vendor for parts and labor expended on"
^DD(6916.1,9,21,2,0)="covered equipment, but not covered under the contract."
^DD(6916.1,9.5,0)="VI.A.1. TOTAL COSTS^NJ10,2^^1;1^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(6916.1,9.5,3)="ENTER CONTRACT COSTS + ADDITIONAL COSTS"
^DD(6916.1,9.5,21,0)="^^1^1^2930429^"
^DD(6916.1,9.5,21,1,0)="Total of contract cost plus additional costs."
^DD(6916.1,9.5,"DT")="2891005"
^DD(6916.1,10,0)="MFG TRIGGERED NAME^F^^0;11^K:$L(X)>60!($L(X)<1) X"
^DD(6916.1,10,3)="MANUFACTURER'S NAME (can not be edited)"
^DD(6916.1,10,9)="^"
^DD(6916.1,10,21,0)="^^1^1^2930429^"
^DD(6916.1,10,21,1,0)="Text representation of equipment manufacturer's name."
^DD(6916.1,"B","ADDITIONAL COST",9)=""
^DD(6916.1,"B","COMPANY NAME",1)=""
^DD(6916.1,"B","CON COST",6)="1"
^DD(6916.1,"B","CONTRACT COST",6)=""
^DD(6916.1,"B","CONTRACT NUMBER",.001)=""
^DD(6916.1,"B","CONTRACT PERIOD",7)=""
^DD(6916.1,"B","CONTRACT TYPE",8)=""
^DD(6916.1,"B","EQUIP COST",5)="1"
^DD(6916.1,"B","EQUIPMENT COST (ACQST)",5)=""
^DD(6916.1,"B","MANUFACTURER NAME",2)=""
^DD(6916.1,"B","MFG TRIGGERED NAME",10)=""
^DD(6916.1,"B","MODEL #",4)=""
^DD(6916.1,"B","TYPE OF EQUIPMENT",3)=""
^DD(6916.1,"B","VI.A. CONTRACT SERVICE",.01)=""
^DD(6916.1,"B","VI.A.1. TOTAL COSTS",9.5)=""
^DD(6916.1,"GL",0,1,.01)=""
^DD(6916.1,"GL",0,2,1)=""
^DD(6916.1,"GL",0,3,2)=""
^DD(6916.1,"GL",0,4,3)=""
^DD(6916.1,"GL",0,5,4)=""
^DD(6916.1,"GL",0,6,5)=""
^DD(6916.1,"GL",0,7,6)=""
^DD(6916.1,"GL",0,8,7)=""
^DD(6916.1,"GL",0,9,8)=""
^DD(6916.1,"GL",0,10,9)=""
^DD(6916.1,"GL",0,11,10)=""
^DD(6916.1,"GL",1,1,9.5)=""
^DD(6916.1,"IX",.01)=""
^DD(6916.1,"IX",1)=""
^DD(6916.1,"IX",2)=""
^DD(6916.1,"RQ",.01)=""
^DD(6916.1,"RQ",2)=""
^DD(6916.11,0)="VII. ADDITIONAL SUPPORT AREAS SUB-FIELD^NL^6^8"
^DD(6916.11,0,"NM","VII. ADDITIONAL SUPPORT AREAS")=""
^DD(6916.11,0,"UP")="6916"
^DD(6916.11,.01,0)="VII. ADDITIONAL SUPPORT AREAS^MS^A:RESEARCH;B:COMMUNICATION;C:OFFICE EQUIPMENT;D:ENTERTAINMENT;E:EDUCATIONAL EQUIPMENT;F:ADP EQUIPMENT;G:OTHER;^0;1^Q"
^DD(6916.11,.01,21,0)="^^1^1^2930429^"
^DD(6916.11,.01,21,1,0)="Special program areas."
^DD(6916.11,.01,"DT")="2881123"
^DD(6916.11,1,0)="TYPE OF EQUIPMENT^F^^0;2^K:$L(X)>45!($L(X)<1) X"
^DD(6916.11,1,3)="ENTER TYPE OF EQUIPMENT. (MUST BE 1-45 CHARACTERS):"
^DD(6916.11,1,21,0)="^^1^1^2930429^"
^DD(6916.11,1,21,1,0)="Generic equipment type(s) maintained in this special area."
^DD(6916.11,2,0)="FTEE REQUIRED^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(6916.11,2,3)="Enter number of FTEE required"
^DD(6916.11,2,21,0)="^^1^1^2930429^"
^DD(6916.11,2,21,1,0)="Approximate FTEE required in this special area."
^DD(6916.11,3,0)="ESTIMATED ACQ VAL OF INV SRVCD^NJ12,0^^0;4^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916.11,3,3)="ENTER Estimated Acquisition value of inventory serviced:"
^DD(6916.11,3,21,0)="^^2^2^2930429^"
^DD(6916.11,3,21,1,0)="Approximate acquisition value of equipment maintained in this"
^DD(6916.11,3,21,2,0)="special area."
^DD(6916.11,3.5,0)="NUMBER OF UNITS INVOLVED^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916.11,3.5,3)="Enter number of units in support area"
^DD(6916.11,3.5,21,0)="^^1^1^2930429^"
^DD(6916.11,3.5,21,1,0)="Approximate count of items maintained in this special area."
^DD(6916.11,4,0)="PARTS COST^NJ12,0^^0;6^K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6916.11,4,3)="Enter Dollar value of Parts Cost"
^DD(6916.11,4,21,0)="^^2^2^2930429^"
^DD(6916.11,4,21,1,0)="Approximate cost of parts purchased for use in this special area"
^DD(6916.11,4,21,2,0)="during the reporting year."
^DD(6916.11,5,0)="PARTS COST INC ELSEWHERE^F^^0;7^K:$L(X)>45!($L(X)<1) X"
^DD(6916.11,5,3)="If parts cost are included elsewhere in report, give brief description of location, i.e., under lab contracts etc."
^DD(6916.11,5,21,0)="^^2^2^2930429^"
^DD(6916.11,5,21,1,0)="Other places in this report where parts cost for this special area"
^DD(6916.11,5,21,2,0)="may appear."
^DD(6916.11,6,0)="COMMENTS^6916.12^^1;0"
^DD(6916.11,6,21,0)="^^1^1^2930429^"
^DD(6916.11,6,21,1,0)="General comments regarding support of this special area."
^DD(6916.11,6,"DT")="2930429"
^DD(6916.11,"B","COMMENTS",6)=""
^DD(6916.11,"B","ESTIMATED ACQ VAL OF INV SRVCD",3)=""
^DD(6916.11,"B","FTEE REQUIRED",2)=""
^DD(6916.11,"B","NUMBER OF UNITS INVOLVED",3.5)=""
^DD(6916.11,"B","PARTS COST",4)=""
^DD(6916.11,"B","PARTS COST INC ELSEWHERE",5)=""
^DD(6916.11,"B","TYPE OF EQUIPMENT",1)=""
^DD(6916.11,"B","VII. ADDITIONAL SUPPORT AREAS",.01)=""
^DD(6916.11,"GL",0,1,.01)=""
^DD(6916.11,"GL",0,2,1)=""
^DD(6916.11,"GL",0,3,2)=""
^DD(6916.11,"GL",0,4,3)=""
^DD(6916.11,"GL",0,5,3.5)=""
^DD(6916.11,"GL",0,6,4)=""
^DD(6916.11,"GL",0,7,5)=""
^DD(6916.11,"GL",1,0,6)=""
^DD(6916.11,"SB",6916.12,6)=""
^DD(6916.12,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(6916.12,0,"NM","COMMENTS")=""
^DD(6916.12,0,"UP")="6916.11"
^DD(6916.12,.01,0)="COMMENTS^W^^0;1^Q"
^DD(6916.12,"B","COMMENTS",.01)=""
^DD(6916.12,"GL",0,1,.01)=""
^DD(6916.2,0)="FIELD^^3^4"
^DD(6916.2,0,"DT")="3071121"
^DD(6916.2,0,"IX","B",6916.2,.01)=""
^DD(6916.2,0,"NM","HAND RECEIPT TEXT")=""
^DD(6916.2,0,"PT",6916.3,5)=""
^DD(6916.2,0,"PT",6916.31,1)=""
^DD(6916.2,0,"VR")="7.0"
^DD(6916.2,0,"VRPK")="EN"
^DD(6916.2,.01,0)="VERSION^RNJ4,0I^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6916.2,.01,1,0)="^.1"
^DD(6916.2,.01,1,1,0)="6916.2^B"
^DD(6916.2,.01,1,1,1)="S ^ENG(6916.2,""B"",$E(X,1,30),DA)="""""
^DD(6916.2,.01,1,1,2)="K ^ENG(6916.2,""B"",$E(X,1,30),DA)"
^DD(6916.2,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(6916.2,.01,21,0)="^.001^1^1^3071121^^^^"
^DD(6916.2,.01,21,1,0)="This is the version of the hand receipt."
^DD(6916.2,.01,"DT")="3071218"
^DD(6916.2,1,0)="TEXT^6916.21^^1;0"
^DD(6916.2,1,21,0)="^.001^2^2^3080122^^"
^DD(6916.2,1,21,1,0)="This is the wording of the standard text approved by VA Central Office"
^DD(6916.2,1,21,2,0)="for use in the hand receipt program.  It must not be locally modified."
^DD(6916.2,2,0)="PATCH NUMBER^FI^^0;2^K:$L(X)>10!($L(X)<6) X"
^DD(6916.2,2,3)="Enter the patch designation for hand receipt text."
^DD(6916.2,2,21,0)="^^1^1^3071112^"
^DD(6916.2,2,21,1,0)="This is the patch that distributed this version of the hand receipt text."
^DD(6916.2,2,"DT")="3071218"
^DD(6916.2,3,0)="CHECKSUM^FI^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(6916.2,3,3)="Enter the calculated checksum of hand receipt text."
^DD(6916.2,3,21,0)="^^2^2^3071112^"
^DD(6916.2,3,21,1,0)="This is the checksum of the standard hand receipt text, which is calculated"
^DD(6916.2,3,21,2,0)="and stored to validate the integrity of the text."
^DD(6916.2,3,"DT")="3071218"
^DD(6916.2,"B","CHECKSUM",3)=""
^DD(6916.2,"B","PATCH NUMBER",2)=""
^DD(6916.2,"B","TEXT",1)=""
^DD(6916.2,"B","VERSION",.01)=""
^DD(6916.2,"GL",0,1,.01)=""
^DD(6916.2,"GL",0,2,2)=""
^DD(6916.2,"GL",0,3,3)=""
^DD(6916.2,"GL",1,0,1)=""
^DD(6916.2,"IX",.01)=""
^DD(6916.2,"RQ",.01)=""
^DD(6916.2,"SB",6916.21,1)=""
^DD(6916.21,0)="TEXT SUB-FIELD^^.01^1"
^DD(6916.21,0,"DT")="3071112"
^DD(6916.21,0,"NM","TEXT")=""
^DD(6916.21,0,"UP")="6916.2"
^DD(6916.21,.01,0)="TEXT^WL^^0;1^Q"
^DD(6916.21,.01,3)="Enter the hand receipt text to be displayed to the user."
^DD(6916.21,.01,21,0)="^.001^2^2^3080118^^"
^DD(6916.21,.01,21,1,0)="This is the standard hand receipt text displayed to the user when"
^DD(6916.21,.01,21,2,0)="responsibility is accepted."
^DD(6916.21,.01,"DT")="3071112"
^DD(6916.21,"B","TEXT",.01)=""
^DD(6916.21,"GL",0,1,.01)=""
^DD(6916.3,0)="FIELD^^30^14"
^DD(6916.3,0,"DDA")="N"
^DD(6916.3,0,"DT")="3071204"
^DD(6916.3,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(6916.3,0,"ID","WRITE")="N ENX S ENX=$$GET1^DIQ(6916.3,+Y,20) D EN^DDIOL(""  ""_ENX,"""",""?0"") Q"
^DD(6916.3,0,"IX","B",6916.3,.01)=""
^DD(6916.3,0,"IX","C",6916.3,1)=""
^DD(6916.3,0,"NM","IT ASSIGNMENT")=""
^DD(6916.3,0,"VR")="7.0"
^DD(6916.3,0,"VRPK")="EN"
^DD(6916.3,.01,0)="EQUIPMENT^RP6914'I^ENG(6914,^0;1^Q"
^DD(6916.3,.01,1,0)="^.1"
^DD(6916.3,.01,1,1,0)="6916.3^B"
^DD(6916.3,.01,1,1,1)="S ^ENG(6916.3,""B"",$E(X,1,30),DA)="""""
^DD(6916.3,.01,1,1,2)="K ^ENG(6916.3,""B"",$E(X,1,30),DA)"
^DD(6916.3,.01,3)="Select the IT equipment item."
^DD(6916.3,.01,21,0)="^.001^1^1^3071113^^^"
^DD(6916.3,.01,21,1,0)="IT equipment item for which responsibility has been assigned."
^DD(6916.3,.01,"DT")="3071218"
^DD(6916.3,1,0)="OWNER^RP200'I^VA(200,^0;2^Q"
^DD(6916.3,1,1,0)="^.1"
^DD(6916.3,1,1,1,0)="6916.3^C"
^DD(6916.3,1,1,1,1)="S ^ENG(6916.3,""C"",$E(X,1,30),DA)="""""
^DD(6916.3,1,1,1,2)="K ^ENG(6916.3,""C"",$E(X,1,30),DA)"
^DD(6916.3,1,1,1,"%D",0)="^^1^1^3071114^"
^DD(6916.3,1,1,1,"%D",1,0)="Regular cross-reference by owner."
^DD(6916.3,1,1,1,"DT")="3071114"
^DD(6916.3,1,3)="Select a person assigned responsibility for the equipment."
^DD(6916.3,1,21,0)="^^1^1^3071114^"
^DD(6916.3,1,21,1,0)="The person assigned responsibility for the IT equipment item."
^DD(6916.3,1,"DT")="3071218"
^DD(6916.3,2,0)="ASSIGNED DATE/TIME^RDI^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6916.3,2,3)="Enter the date and time the assignment was made."
^DD(6916.3,2,21,0)="^.001^2^2^3071121^^^^"
^DD(6916.3,2,21,1,0)="The date/time that the assignment of responsibility was created in the "
^DD(6916.3,2,21,2,0)="file.  This value is automatically populated by the system."
^DD(6916.3,2,"DT")="3071218"
^DD(6916.3,3,0)="ASSIGNED BY^RP200'I^VA(200,^0;4^Q"
^DD(6916.3,3,3)="Select the person that created the assignment."
^DD(6916.3,3,21,0)="^.001^2^2^3071113^^^"
^DD(6916.3,3,21,1,0)="The person that created the assignment of responsibility. This value is"
^DD(6916.3,3,21,2,0)="automatically populated by the system."
^DD(6916.3,3,"DT")="3071218"
^DD(6916.3,4,0)="SIGNED DATE/TIME^DI^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(6916.3,4,3)="Enter the date when the assignment was signed by the owner."
^DD(6916.3,4,21,0)="^^5^5^3071204^"
^DD(6916.3,4,21,1,0)="The date and time that the OWNER electronically signed the hand receipt or"
^DD(6916.3,4,21,2,0)="the date a hard copy hand receipt was signed.  This field is automatically"
^DD(6916.3,4,21,3,0)="populated by the system if the OWNER electronically signs the hand"
^DD(6916.3,4,21,4,0)="receipt.  This field is populated by the person in the CERTIFIED BY field"
^DD(6916.3,4,21,5,0)="in the event a hard copy hand receipt was instead signed by the OWNER."
^DD(6916.3,4,"DT")="3071218"
^DD(6916.3,5,0)="HAND RECEIPT TEXT^P6916.2'I^ENG(6916.2,^0;6^Q"
^DD(6916.3,5,3)="Select hand receipt text that was signed."
^DD(6916.3,5,21,0)="^.001^1^1^3071114^^"
^DD(6916.3,5,21,1,0)="The version of the hand receipt text that was signed."
^DD(6916.3,5,"DT")="3071218"
^DD(6916.3,5.9,0)="CERTIFIED DATE/TIME^DI^^0;10^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6916.3,5.9,3)="Enter the date and time when a user certified a hard copy signature."
^DD(6916.3,5.9,21,0)="^.001^4^4^3071204^^"
^DD(6916.3,5.9,21,1,0)="The date and time when a user certified there is a signed paper hand"
^DD(6916.3,5.9,21,2,0)="receipt on file for the equipment item.  This field should only be"
^DD(6916.3,5.9,21,3,0)="populated when the owner can not electronically sign the hand receipt for"
^DD(6916.3,5.9,21,4,0)="some reason."
^DD(6916.3,5.9,"DT")="3071218"
^DD(6916.3,6,0)="CERTIFIED BY^P200'I^VA(200,^0;7^Q"
^DD(6916.3,6,3)="Select the person that certified there is a signed paper hand receipt."
^DD(6916.3,6,21,0)="^.001^3^3^3071114^^"
^DD(6916.3,6,21,1,0)="The person that certified there is a signed paper hand receipt on file "
^DD(6916.3,6,21,2,0)="for the equipment item.  This field should only be populated when the "
^DD(6916.3,6,21,3,0)="owner can not electronically sign the hand receipt for some reason."
^DD(6916.3,6,"DT")="3071218"
^DD(6916.3,7,0)="ENDED DATE/TIME^DI^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6916.3,7,3)="Enter the date and time that the responsibility ended."
^DD(6916.3,7,21,0)="^.001^2^2^3071121^^"
^DD(6916.3,7,21,1,0)="The date/time that the assignment of responsibility ended.  This field is"
^DD(6916.3,7,21,2,0)="automatically populated when an assignment is terminated or transferred."
^DD(6916.3,7,"DT")="3071218"
^DD(6916.3,8,0)="ENDED BY^P200'I^VA(200,^0;9^Q"
^DD(6916.3,8,3)="Select the person that ended the assignment."
^DD(6916.3,8,21,0)="^^2^2^3071114^"
^DD(6916.3,8,21,1,0)="The person that ended the assignment of responsibility.  This field is "
^DD(6916.3,8,21,2,0)="automatically populated when the assignment is terminated or transferred."
^DD(6916.3,8,"DT")="3071218"
^DD(6916.3,9,0)="ENCRYPTED STRING^FI^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(6916.3,9,3)="Answer must be 1-240 characters in length"
^DD(6916.3,9,21,0)="^^2^2^3071114^"
^DD(6916.3,9,21,1,0)="If the assignment was electronically signed by the owner, the signature "
^DD(6916.3,9,21,2,0)="block and key data values are encrypted and stored in this field."
^DD(6916.3,9,"DT")="3071218"
^DD(6916.3,20,0)="STATUS^CJ9^^ ; ^X ^DD(6916.3,20,9.4) S X=$S(Y(6916.3,20,2):Y(6916.3,20,3),Y(6916.3,20,4):Y(6916.3,20,5),Y(6916.3,20,6):Y(6916.3,20,7),Y(6916.3,20,8):X)"
^DD(6916.3,20,9)=""
^DD(6916.3,20,9.01)="6916.3^4;6916.3^6;6916.3^7"
^DD(6916.3,20,9.1)="$S(#7]"""":""ENDED"",#6]"""":""CERTIFIED"",#4]"""":""SIGNED"",1:""ASSIGNED"")"
^DD(6916.3,20,9.2)="S Y(6916.3,20,1)=$S($D(^ENG(6916.3,D0,0)):^(0),1:"""") S X=$P(Y(6916.3,20,1),U,8)]"""",Y(6916.3,20,2)=$G(X) S X=""ENDED"",Y(6916.3,20,3)=$G(X)"
^DD(6916.3,20,9.3)="X ^DD(6916.3,20,9.2) S X=$P($G(^VA(200,+$P(Y(6916.3,20,1),U,7),0)),U)]"""",Y(6916.3,20,4)=$G(X) S X=""CERTIFIED"",Y(6916.3,20,5)=$G(X) S X=$P(Y(6916.3,20,1),U,5)"
^DD(6916.3,20,9.4)="X ^DD(6916.3,20,9.3) S X=X]"""",Y(6916.3,20,6)=$G(X) S X=""SIGNED"",Y(6916.3,20,7)=$G(X) S X=1,Y(6916.3,20,8)=$G(X) S X=""ASSIGNED"""
^DD(6916.3,20,21,0)="^.001^2^2^3071121^^"
^DD(6916.3,20,21,1,0)="Computed field that contains the current status of the assignment.  The "
^DD(6916.3,20,21,2,0)="status may be ENDED, CERTIFIED, SIGNED, or ASSIGNED."
^DD(6916.3,20,"DT")="3071121"
^DD(6916.3,21,0)="STATUS DATE^CJ8^^ ; ^X ^DD(6916.3,21,9.4) S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DD(6916.3,21,9)=""
^DD(6916.3,21,9.01)="6916.3^2;6916.3^4;6916.3^7"
^DD(6916.3,21,9.1)="NUMDATE($S(#7]"""":#7,#4]"""":#4,1:#2))"
^DD(6916.3,21,9.2)="S Y(6916.3,21,1)=$S($D(^ENG(6916.3,D0,0)):^(0),1:"""") S X=$P(Y(6916.3,21,1),U,8)]"""",Y(6916.3,21,2)=$G(X) S X=$P(Y(6916.3,21,1),U,8),Y(6916.3,21,3)=$G(X)"
^DD(6916.3,21,9.3)="X ^DD(6916.3,21,9.2) S X=$P(Y(6916.3,21,1),U,5)]"""",Y(6916.3,21,4)=$G(X) S X=$P(Y(6916.3,21,1),U,5),Y(6916.3,21,5)=$G(X) S X=1,Y(6916.3,21,6)=$G(X)"
^DD(6916.3,21,9.4)="X ^DD(6916.3,21,9.3) S X=$P(Y(6916.3,21,1),U,3),X=$S(Y(6916.3,21,2):Y(6916.3,21,3),Y(6916.3,21,4):Y(6916.3,21,5),Y(6916.3,21,6):X)"
^DD(6916.3,21,21,0)="^^2^2^3071121^"
^DD(6916.3,21,21,1,0)="Computed field that contains the date (MM/DD/YY) when the assignment "
^DD(6916.3,21,21,2,0)="reached the current status."
^DD(6916.3,21,"DT")="3071121"
^DD(6916.3,30,0)="PREVIOUS SIGNATURES^6916.31D^^3;0"
^DD(6916.3,30,"DT")="3071204"
^DD(6916.3,"B","ASSIGNED BY",3)=""
^DD(6916.3,"B","ASSIGNED DATE/TIME",2)=""
^DD(6916.3,"B","CERTIFIED BY",6)=""
^DD(6916.3,"B","CERTIFIED DATE/TIME",5.9)=""
^DD(6916.3,"B","ENCRYPTED STRING",9)=""
^DD(6916.3,"B","ENDED BY",8)=""
^DD(6916.3,"B","ENDED DATE/TIME",7)=""
^DD(6916.3,"B","EQUIPMENT",.01)=""
^DD(6916.3,"B","HAND RECEIPT TEXT",5)=""
^DD(6916.3,"B","OWNER",1)=""
^DD(6916.3,"B","PREVIOUS SIGNATURES",30)=""
^DD(6916.3,"B","SIGNED DATE/TIME",4)=""
^DD(6916.3,"B","STATUS",20)=""
^DD(6916.3,"B","STATUS DATE",21)=""
^DD(6916.3,"GL",0,1,.01)=""
^DD(6916.3,"GL",0,2,1)=""
^DD(6916.3,"GL",0,3,2)=""
^DD(6916.3,"GL",0,4,3)=""
^DD(6916.3,"GL",0,5,4)=""
^DD(6916.3,"GL",0,6,5)=""
^DD(6916.3,"GL",0,7,6)=""
^DD(6916.3,"GL",0,8,7)=""
^DD(6916.3,"GL",0,9,8)=""
^DD(6916.3,"GL",0,10,5.9)=""
^DD(6916.3,"GL",1,1,9)=""
^DD(6916.3,"GL",3,0,30)=""
^DD(6916.3,"IX",.01)=""
^DD(6916.3,"IX",1)=""
^DD(6916.3,"RQ",.01)=""
^DD(6916.3,"RQ",1)=""
^DD(6916.3,"RQ",2)=""
^DD(6916.3,"RQ",3)=""
^DD(6916.3,"SB",6916.31,30)=""
^DD(6916.31,0)="PREVIOUS SIGNATURES SUB-FIELD^^4^5"
^DD(6916.31,0,"DT")="3071204"
^DD(6916.31,0,"IX","B",6916.31,.01)=""
^DD(6916.31,0,"NM","PREVIOUS SIGNATURES")=""
^DD(6916.31,0,"UP")="6916.3"
^DD(6916.31,.01,0)="PREVIOUS SIGNED DATE/TIME^DI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(6916.31,.01,1,0)="^.1"
^DD(6916.31,.01,1,1,0)="6916.31^B"
^DD(6916.31,.01,1,1,1)="S ^ENG(6916.3,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(6916.31,.01,1,1,2)="K ^ENG(6916.3,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(6916.31,.01,3)="Enter signed date for the previous signature."
^DD(6916.31,.01,21,0)="^^4^4^3071204^"
^DD(6916.31,.01,21,1,0)="The SIGNED DATE/TIME value for a previous signature. If an assignment is"
^DD(6916.31,.01,21,2,0)="re-signed, any existing signature data is automatically moved to the"
^DD(6916.31,.01,21,3,0)="corresponding fields in the PREVIOUS SIGNATURE multiple so the history is"
^DD(6916.31,.01,21,4,0)="retained."
^DD(6916.31,.01,"DT")="3071218"
^DD(6916.31,1,0)="HAND RECEIPT TEXT^P6916.2'I^ENG(6916.2,^0;2^Q"
^DD(6916.31,1,3)="Select hand receipt text that was signed."
^DD(6916.31,1,21,0)="^^1^1^3071204^"
^DD(6916.31,1,21,1,0)="The HAND RECEIPT TEXT value for the previous signature."
^DD(6916.31,1,"DT")="3071218"
^DD(6916.31,2,0)="CERTIFIED DATE/TIME^DI^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(6916.31,2,3)="Enter the date and time when a user certified the hard copy signature."
^DD(6916.31,2,21,0)="^^1^1^3071204^"
^DD(6916.31,2,21,1,0)="The CERTIFIED DATE/TIME value for the previous hard copy signature.  "
^DD(6916.31,2,"DT")="3071218"
^DD(6916.31,3,0)="CERTIFIED BY^P200'I^VA(200,^0;4^Q"
^DD(6916.31,3,3)="Select the person that certified there is a hard copy signature."
^DD(6916.31,3,21,0)="^^1^1^3071204^"
^DD(6916.31,3,21,1,0)="The CERTIFIED BY value for the previous signature."
^DD(6916.31,3,"DT")="3071218"
^DD(6916.31,4,0)="ENCRYPTED STRING^FI^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(6916.31,4,3)="Answer must be 1-240 characters in length"
^DD(6916.31,4,21,0)="^^1^1^3071204^"
^DD(6916.31,4,21,1,0)="The ENCRYPTED STRING value for a previous electronic signature."
^DD(6916.31,4,"DT")="3071218"
^DD(6916.31,"B","CERTIFIED BY",3)=""
^DD(6916.31,"B","CERTIFIED DATE/TIME",2)=""
^DD(6916.31,"B","ENCRYPTED STRING",4)=""
^DD(6916.31,"B","HAND RECEIPT TEXT",1)=""
^DD(6916.31,"B","PREVIOUS SIGNED DATE/TIME",.01)=""
^DD(6916.31,"GL",0,1,.01)=""
^DD(6916.31,"GL",0,2,1)=""
^DD(6916.31,"GL",0,3,2)=""
^DD(6916.31,"GL",0,4,3)=""
^DD(6916.31,"GL",1,1,4)=""
^DD(6916.31,"IX",.01)=""
^DD(6917,0)="FIELD^^16^17"
^DD(6917,0,"DDA")="N"
^DD(6917,0,"DT")="2921013"
^DD(6917,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(6917,0,"IX","B",6917,.01)=""
^DD(6917,0,"IX","C",6917,2)=""
^DD(6917,0,"NM","CATEGORY STOCK NUMBER")=""
^DD(6917,0,"PT",413.015,13)=""
^DD(6917,0,"PT",6914,18)=""
^DD(6917,0,"PT",6915.4,100)=""
^DD(6917,0,"PT",6915.6,100)=""
^DD(6917,0,"VR")="7.0"
^DD(6917,.01,0)="NAME^RFX^^0;1^K:'(X?4N1""-""6N) X"
^DD(6917,.01,1,0)="^.1"
^DD(6917,.01,1,1,0)="6917^B"
^DD(6917,.01,1,1,1)="S ^ENCSN(6917,""B"",$E(X,1,30),DA)="""""
^DD(6917,.01,1,1,2)="K ^ENCSN(6917,""B"",$E(X,1,30),DA)"
^DD(6917,.01,1,1,"DT")="2910801"
^DD(6917,.01,3)="Answer must be 4 numerics, a dash (-), and then 6 numerics."
^DD(6917,.01,4)="W !,""Format entries as 4 numbers followed by dash (-) followed by 6 numbers."""
^DD(6917,.01,10)="Acquisition and Materiel Management (Cataloging)."
^DD(6917,.01,21,0)="^^4^4^2930429^^^^"
^DD(6917,.01,21,1,0)="Ten digit number assigned centrally under the direction of Acquisition "
^DD(6917,.01,21,2,0)="and Materiel Management.  First four digits indicate the Federal Supply"
^DD(6917,.01,21,3,0)="Classification.  Hyphen after the first four digits is for readability"
^DD(6917,.01,21,4,0)="only."
^DD(6917,.01,"DT")="2920123"
^DD(6917,1,0)="LIFE EXPECTANCY^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6917,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(6917,1,10)="Acquisition and Materiel Management (Cataloging)."
^DD(6917,1,21,0)="^^2^2^2910801^^"
^DD(6917,1,21,1,0)="Estimated useful life of this particular type of equipment under normal"
^DD(6917,1,21,2,0)="conditions."
^DD(6917,1,"DT")="2910723"
^DD(6917,2,0)="BRIEF DESCRIPTION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X"
^DD(6917,2,1,0)="^.1"
^DD(6917,2,1,1,0)="6917^C"
^DD(6917,2,1,1,1)="S ^ENCSN(6917,""C"",$E(X,1,30),DA)="""""
^DD(6917,2,1,1,2)="K ^ENCSN(6917,""C"",$E(X,1,30),DA)"
^DD(6917,2,1,1,"DT")="2910801"
^DD(6917,2,3)="Answer must be 3-60 characters in length."
^DD(6917,2,21,0)="^^2^2^2910801^^"
^DD(6917,2,21,1,0)="Short verbal description.  Useful in selecting the Category Stock"
^DD(6917,2,21,2,0)="Number that best describes a particular piece of equipment."
^DD(6917,2,"DT")="2910801"
^DD(6917,3,0)="SPECIAL HANDLING CODE^S^0:Auto Data Process Equip;1:Closed Circuit TV (CCTV);2:Audio Visual Equip;3:Print & Repro Equip;^0;4^Q"
^DD(6917,3,3)=""
^DD(6917,3,10)="MP-6, Part XIV, Supp 6.2, Page 9-7 (April 6, 1988)"
^DD(6917,3,21,0)="^^6^6^2910801^^^^"
^DD(6917,3,21,1,0)="Indicates that the Category Stock Number in question is subject to"
^DD(6917,3,21,2,0)="special reporting requirements.  This data element was explicitly"
^DD(6917,3,21,3,0)="added to DHCP in the summer of 1991.  '0' indicates COMPUTERS (ADP/WP);"
^DD(6917,3,21,4,0)="'1' indicates CCTV (CLOSED CIRCUIT TV); '2' indicates AUDIOVISUAL"
^DD(6917,3,21,5,0)="(OTHER THAN CCTV); and '3' indicates PRINTING AND REPRODUCTION."
^DD(6917,3,21,6,0)="Numbers '4' thru '9' are reserved."
^DD(6917,3,21,7,0)="  '1' indicates CCTV (CLOSED CIRCUIT TV)"
^DD(6917,3,21,8,0)="  '2' indicates AUDIOVISUAL (OTHER THAN CCTV)"
^DD(6917,3,21,9,0)="  '3' indicates PRINTING & REPRODUCTION."
^DD(6917,3,"DT")="2920821"
^DD(6917,4,0)="NOMENCLATURE^6917.04^^1;0"
^DD(6917,4,21,0)="^^1^1^2910801^^^"
^DD(6917,4,21,1,0)="Complete verbal description of the Category Stock Number."
^DD(6917,5,0)="SKU^P420.5'^PRCD(420.5,^0;5^Q"
^DD(6917,5,21,0)="^^1^1^2930429^^"
^DD(6917,5,21,1,0)="Store keeping unit.  Possible future use."
^DD(6917,5,"DT")="2921013"
^DD(6917,6,0)="FSC CODE^P441.2'^PRC(441.2,^0;6^Q"
^DD(6917,6,21,0)="^^2^2^2930218^"
^DD(6917,6,21,1,0)="Federal supply classification code.  Normally the first four digits"
^DD(6917,6,21,2,0)="of the category stock number."
^DD(6917,6,"DT")="2921013"
^DD(6917,7,0)="ACCOUNT^F^^0;7^K:$L(X)>2!($L(X)<1) X"
^DD(6917,7,3)="Answer must be 1-2 characters in length."
^DD(6917,7,21,0)="^^1^1^2930218^"
^DD(6917,7,21,1,0)="Possible future use."
^DD(6917,7,"DT")="2921013"
^DD(6917,8,0)="SUBACCOUNT^P420.2'^PRCD(420.2,^0;8^Q"
^DD(6917,8,21,0)="^^1^1^2930218^"
^DD(6917,8,21,1,0)="Possible future use."
^DD(6917,8,"DT")="2921013"
^DD(6917,9,0)="ITEM NAME CODE^F^^0;9^K:$L(X)>6!($L(X)<5) X"
^DD(6917,9,3)="Answer must be 5-6 characters in length."
^DD(6917,9,21,0)="^^1^1^2930218^"
^DD(6917,9,21,1,0)="Possible future use."
^DD(6917,9,"DT")="2921013"
^DD(6917,10,0)="DATE ACTIVATED^D^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6917,10,21,0)="^^1^1^2930218^"
^DD(6917,10,21,1,0)="Date this entry became viable.  Possible future use."
^DD(6917,10,"DT")="2921013"
^DD(6917,11,0)="ACTIVATED BY^P200'^VA(200,^2;2^Q"
^DD(6917,11,21,0)="^^1^1^2930218^"
^DD(6917,11,21,1,0)="Individual who activated this entry.  Possible future use."
^DD(6917,11,"DT")="2921013"
^DD(6917,12,0)="DATE DEACTIVATED^D^^2;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6917,12,21,0)="^^2^2^2930218^"
^DD(6917,12,21,1,0)="Date this entry was removed from active the active list.  Possible"
^DD(6917,12,21,2,0)="future use."
^DD(6917,12,"DT")="2921013"
^DD(6917,13,0)="DEACTIVATED BY^P200'^VA(200,^2;4^Q"
^DD(6917,13,21,0)="^^1^1^2930218^"
^DD(6917,13,21,1,0)="Person who deactivated this entry.  Possible future use."
^DD(6917,13,"DT")="2921013"
^DD(6917,14,0)="DATE LAST EDITED^D^^2;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6917,14,21,0)="^^1^1^2930218^"
^DD(6917,14,21,1,0)="Date of last edit.  To be populated automatically.  Future use."
^DD(6917,14,"DT")="2921013"
^DD(6917,15,0)="EDITED BY^P200'^VA(200,^2;6^Q"
^DD(6917,15,21,0)="^^1^1^2930218^"
^DD(6917,15,21,1,0)="Person who made last edit.  To be populated automatically.  Future use."
^DD(6917,15,"DT")="2921013"
^DD(6917,16,0)="VENDOR^6917.016P^^3;0"
^DD(6917,16,21,0)="^^1^1^2930218^"
^DD(6917,16,21,1,0)="Active vendors for items of this type.  Possible future use."
^DD(6917,"B","ACCOUNT",7)=""
^DD(6917,"B","ACTIVATED BY",11)=""
^DD(6917,"B","BRIEF DESCRIPTION",2)=""
^DD(6917,"B","DATE ACTIVATED",10)=""
^DD(6917,"B","DATE DEACTIVATED",12)=""
^DD(6917,"B","DATE LAST EDITED",14)=""
^DD(6917,"B","DEACTIVATED BY",13)=""
^DD(6917,"B","EDITED BY",15)=""
^DD(6917,"B","FSC CODE",6)=""
^DD(6917,"B","ITEM NAME CODE",9)=""
^DD(6917,"B","LIFE EXPECTANCY",1)=""
^DD(6917,"B","NAME",.01)=""
^DD(6917,"B","NOMENCLATURE",4)=""
^DD(6917,"B","SKU",5)=""
^DD(6917,"B","SPECIAL HANDLING CODE",3)=""
^DD(6917,"B","SUBACCOUNT",8)=""
^DD(6917,"B","VENDOR",16)=""
^DD(6917,"GL",0,1,.01)=""
^DD(6917,"GL",0,2,1)=""
^DD(6917,"GL",0,3,2)=""
^DD(6917,"GL",0,4,3)=""
^DD(6917,"GL",0,5,5)=""
^DD(6917,"GL",0,6,6)=""
^DD(6917,"GL",0,7,7)=""
^DD(6917,"GL",0,8,8)=""
^DD(6917,"GL",0,9,9)=""
^DD(6917,"GL",1,0,4)=""
^DD(6917,"GL",2,1,10)=""
^DD(6917,"GL",2,2,11)=""
^DD(6917,"GL",2,3,12)=""
^DD(6917,"GL",2,4,13)=""
^DD(6917,"GL",2,5,14)=""
^DD(6917,"GL",2,6,15)=""
^DD(6917,"GL",3,0,16)=""
^DD(6917,"IX",.01)=""
^DD(6917,"IX",2)=""
^DD(6917,"RQ",.01)=""
^DD(6917,"SB",6917.016,16)=""
^DD(6917,"SB",6917.04,4)=""
^DD(6917.016,0)="VENDOR SUB-FIELD^^1^2"
^DD(6917.016,0,"DT")="2921013"
^DD(6917.016,0,"IX","B",6917.016,.01)=""
^DD(6917.016,0,"NM","VENDOR")=""
^DD(6917.016,0,"UP")="6917"
^DD(6917.016,.01,0)="VENDOR^MP440^PRC(440,^0;1^Q"
^DD(6917.016,.01,1,0)="^.1"
^DD(6917.016,.01,1,1,0)="6917.016^B"
^DD(6917.016,.01,1,1,1)="S ^ENCSN(6917,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(6917.016,.01,1,1,2)="K ^ENCSN(6917,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(6917.016,.01,"DT")="2921013"
^DD(6917.016,1,0)="VENDOR PRODUCT NUMBER^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(6917.016,1,3)="Answer must be 1-30 characters in length."
^DD(6917.016,1,"DT")="2921013"
^DD(6917.016,"B","VENDOR",.01)=""
^DD(6917.016,"B","VENDOR PRODUCT NUMBER",1)=""
^DD(6917.016,"GL",0,1,.01)=""
^DD(6917.016,"GL",0,2,1)=""
^DD(6917.016,"IX",.01)=""
^DD(6917.04,0)="NOMENCLATURE SUB-FIELD^^.01^1"
^DD(6917.04,0,"DT")="2910723"
^DD(6917.04,0,"NM","NOMENCLATURE")=""
^DD(6917.04,0,"UP")="6917"
^DD(6917.04,.01,0)="NOMENCLATURE^W^^0;1^Q"
^DD(6917.04,.01,"DT")="2910723"
^DD(6917.04,"B","NOMENCLATURE",.01)=""
^DD(6917.04,"GL",0,1,.01)=""
^DD(6918,0)="FIELD^^1^2"
^DD(6918,0,"DDA")="N"
^DD(6918,0,"DT")="2980309"
^DD(6918,0,"IX","B",6918,.01)=""
^DD(6918,0,"IX","C",6918.01,.01)=""
^DD(6918,0,"NM","Y2K CATEGORY LOG")=""
^DD(6918,0,"VR")="7.0"
^DD(6918,0,"VRPK")="EN"
^DD(6918,.01,0)="EQUIPMENT ENTRY^RP6914'^ENG(6914,^0;1^Q"
^DD(6918,.01,1,0)="^.1"
^DD(6918,.01,1,1,0)="6918^B"
^DD(6918,.01,1,1,1)="S ^ENG(6918,""B"",$E(X,1,30),DA)="""""
^DD(6918,.01,1,1,2)="K ^ENG(6918,""B"",$E(X,1,30),DA)"
^DD(6918,.01,3)=""
^DD(6918,.01,21,0)="^^1^1^2980306^"
^DD(6918,.01,21,1,0)="Pointer to the VistA Equipment file (#6914), which is DINUMED."
^DD(6918,.01,"DT")="2980306"
^DD(6918,1,0)="CHANGE DATE/TIME^6918.01DA^^1;0"
^DD(6918,"B","CHANGE DATE/TIME",1)=""
^DD(6918,"B","EQUIPMENT ENTRY",.01)=""
^DD(6918,"GL",0,1,.01)=""
^DD(6918,"GL",1,0,1)=""
^DD(6918,"IX",.01)=""
^DD(6918,"RQ",.01)=""
^DD(6918,"SB",6918.01,1)=""
^DD(6918.01,0)="CHANGE DATE/TIME SUB-FIELD^^2^3"
^DD(6918.01,0,"DT")="2980309"
^DD(6918.01,0,"IX","B",6918.01,.01)=""
^DD(6918.01,0,"NM","CHANGE DATE/TIME")=""
^DD(6918.01,0,"UP")="6918"
^DD(6918.01,.01,0)="CHANGE DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:3100000<X!(2800000>X) X"
^DD(6918.01,.01,1,0)="^.1"
^DD(6918.01,.01,1,1,0)="6918.01^B"
^DD(6918.01,.01,1,1,1)="S ^ENG(6918,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6918.01,.01,1,1,2)="K ^ENG(6918,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6918.01,.01,1,1,"DT")="2980309"
^DD(6918.01,.01,1,2,0)="6918^C"
^DD(6918.01,.01,1,2,1)="S ^ENG(6918,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(6918.01,.01,1,2,2)="K ^ENG(6918,""C"",$E(X,1,30),DA(1),DA)"
^DD(6918.01,.01,1,2,"DT")="2980306"
^DD(6918.01,.01,3)="TYPE A DATE BETWEEN 1980 AND 2010"
^DD(6918.01,.01,21,0)="^^3^3^2980306^"
^DD(6918.01,.01,21,1,0)="The date/time on which a Y2K CATEGORY change (including fresh entries) is"
^DD(6918.01,.01,21,2,0)="made. Automatically populated by Y2K software in the VistA Engineering"
^DD(6918.01,.01,21,3,0)="Package."
^DD(6918.01,.01,"DT")="2980309"
^DD(6918.01,1,0)="Y2K CATEGORY^RS^FC:FULLY COMPLIANT;NC:NON-COMPLIANT;CC:CONDITIONALLY COMPLIANT;NA:NOT APPLICABLE;^0;2^Q"
^DD(6918.01,1,21,0)="^^1^1^2980306^"
^DD(6918.01,1,21,1,0)="Automatically populated by AEMS/MERS software."
^DD(6918.01,1,"DT")="2980306"
^DD(6918.01,2,0)="USER^P200'^VA(200,^0;3^Q"
^DD(6918.01,2,21,0)="^^2^2^2980306^"
^DD(6918.01,2,21,1,0)="The user who made this change. Automatically populated by AEMS/MERS"
^DD(6918.01,2,21,2,0)="software."
^DD(6918.01,2,"DT")="2980306"
^DD(6918.01,"B","CHANGE DATE/TIME",.01)=""
^DD(6918.01,"B","USER",2)=""
^DD(6918.01,"B","Y2K CATEGORY",1)=""
^DD(6918.01,"GL",0,1,.01)=""
^DD(6918.01,"GL",0,2,1)=""
^DD(6918.01,"GL",0,3,2)=""
^DD(6918.01,"IX",.01)=""
^DD(6918.01,"RQ",1)=""
^DD(6918.1,0)="FIELD^^1^3"
^DD(6918.1,0,"DDA")="N"
^DD(6918.1,0,"DT")="2980702"
^DD(6918.1,0,"ID",.05)="W ""   "",$P(^(0),U,2)"
^DD(6918.1,0,"IX","B",6918.1,.01)=""
^DD(6918.1,0,"IX","C",6918.1,.05)=""
^DD(6918.1,0,"NM","UTILITY SYSTEMS")=""
^DD(6918.1,0,"PT",6914,82)=""
^DD(6918.1,0,"VR")="7.0"
^DD(6918.1,0,"VRPK")="EN"
^DD(6918.1,.01,0)="NAME^RF^^0;1^K:$L(X)>5!($L(X)<3)!'(X?3.5U) X"
^DD(6918.1,.01,1,0)="^.1"
^DD(6918.1,.01,1,1,0)="6918.1^B"
^DD(6918.1,.01,1,1,1)="S ^ENG(6918.1,""B"",$E(X,1,30),DA)="""""
^DD(6918.1,.01,1,1,2)="K ^ENG(6918.1,""B"",$E(X,1,30),DA)"
^DD(6918.1,.01,3)="Answer must be 3-5 characters in length."
^DD(6918.1,.01,21,0)="^^3^3^2980702^^^"
^DD(6918.1,.01,21,1,0)="Abbreviated (5 character max, uppercase only) designation of utility"
^DD(6918.1,.01,21,2,0)="systems commonly recognized in Facility Management operations. Fields"
^DD(6918.1,.01,21,3,0)="length is kept short to facilitate screen entry."
^DD(6918.1,.01,"DT")="2980702"
^DD(6918.1,.05,0)="FULL NAME^F^^0;2^K:$L(X)>40!($L(X)<3) X"
^DD(6918.1,.05,1,0)="^.1"
^DD(6918.1,.05,1,1,0)="6918.1^C"
^DD(6918.1,.05,1,1,1)="S ^ENG(6918.1,""C"",$E(X,1,30),DA)="""""
^DD(6918.1,.05,1,1,2)="K ^ENG(6918.1,""C"",$E(X,1,30),DA)"
^DD(6918.1,.05,1,1,"DT")="2980702"
^DD(6918.1,.05,3)="Answer must be 3-40 characters in length."
^DD(6918.1,.05,21,0)="^^1^1^2980702^"
^DD(6918.1,.05,21,1,0)="The fully expanded name of the utility system."
^DD(6918.1,.05,"DT")="2980702"
^DD(6918.1,1,0)="DESCRIPTION^6918.11^^1;0"
^DD(6918.1,"B","DESCRIPTION",1)=""
^DD(6918.1,"B","FULL NAME",.05)=""
^DD(6918.1,"B","NAME",.01)=""
^DD(6918.1,"GL",0,1,.01)=""
^DD(6918.1,"GL",0,2,.05)=""
^DD(6918.1,"GL",1,0,1)=""
^DD(6918.1,"IX",.01)=""
^DD(6918.1,"IX",.05)=""
^DD(6918.1,"RQ",.01)=""
^DD(6918.1,"SB",6918.11,1)=""
^DD(6918.11,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(6918.11,0,"DT")="2980701"
^DD(6918.11,0,"NM","DESCRIPTION")=""
^DD(6918.11,0,"UP")="6918.1"
^DD(6918.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(6918.11,.01,21,0)="^^1^1^2980701^"
^DD(6918.11,.01,21,1,0)="A brief description of the utility system, with some examples."
^DD(6918.11,.01,"DT")="2980701"
^DD(6918.11,"B","DESCRIPTION",.01)=""
^DD(6918.11,"GL",0,1,.01)=""
^DD(6919,0)="FIELD^^20^11"
^DD(6919,0,"DDA")="N"
^DD(6919,0,"DT")="2970218"
^DD(6919,0,"IX","AE",6919.02,.01)=""
^DD(6919,0,"IX","B",6919,.01)=""
^DD(6919,0,"IX","C",6919,6)=""
^DD(6919,0,"IX","D",6919,7)=""
^DD(6919,0,"NM","ENG ARCHIVE LOG")=""
^DD(6919,0,"VR")="7.0"
^DD(6919,0,"VRPK")="EN"
^DD(6919,.01,0)="ARCHIVE I.D.^RFX^^0;1^K:$L(X)>16!($L(X)<16) X"
^DD(6919,.01,1,0)="^.1"
^DD(6919,.01,1,1,0)="6919^B"
^DD(6919,.01,1,1,1)="S ^ENG(6919,""B"",$E(X,1,30),DA)="""""
^DD(6919,.01,1,1,2)="K ^ENG(6919,""B"",$E(X,1,30),DA)"
^DD(6919,.01,3)="Note: user should not use via file manager!!"
^DD(6919,.01,21,0)="^^1^1^2930429^"
^DD(6919,.01,21,1,0)="Unique identifier of each archival episode.  Computer generated."
^DD(6919,.01,"DT")="2860520"
^DD(6919,1,0)="RECORDS TYPE^RS^1:ENG. WORK ORDERS;2:2162 ACCIDENT REPORTS;3:EQUIPMENT INVENTORY;4:PROJECTS;5:CONTROL POINT TRANSACTIOONS;^1;1^Q"
^DD(6919,1,21,0)="^^1^1^2930429^"
^DD(6919,1,21,1,0)="Identifies the file from which archived records were taken."
^DD(6919,1,"DT")="2970213"
^DD(6919,2,0)="RECORDS START DATE^D^^1;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6919,2,21,0)="^^2^2^2930429^"
^DD(6919,2,21,1,0)="The beginning date specified by the user when archiving was"
^DD(6919,2,21,2,0)="requested."
^DD(6919,3,0)="RECORDS STOP DATE^D^^1;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6919,3,21,0)="^^1^1^2930429^"
^DD(6919,3,21,1,0)="The ending date specified by the user when archiving was requested."
^DD(6919,4,0)="OPT. SEARCH PARAMS.^F^^1;4^K:$L(X)>25!($L(X)<3) X"
^DD(6919,4,3)="ANSWER MUST BE 3-25 CHARACTERS IN LENGTH"
^DD(6919,4,21,0)="^^3^3^2930429^"
^DD(6919,4,21,1,0)="Options specified by the user for archival of specific records."
^DD(6919,4,21,2,0)="These options vary with file type.  Automatically captured by"
^DD(6919,4,21,3,0)="the system during the archival process."
^DD(6919,5,0)="NO. RECORDS SAVED^NJ6,0^^1;5^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6919,5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(6919,5,21,0)="^^1^1^2930429^"
^DD(6919,5,21,1,0)="Count of records that were archived.  Recorded automatically."
^DD(6919,6,0)="PHYS. LOCATION^F^^1;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(6919,6,1,0)="^.1"
^DD(6919,6,1,1,0)="6919^C"
^DD(6919,6,1,1,1)="S ^ENG(6919,""C"",$E(X,1,30),DA)="""""
^DD(6919,6,1,1,2)="K ^ENG(6919,""C"",$E(X,1,30),DA)"
^DD(6919,6,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(6919,6,21,0)="^^2^2^2930429^"
^DD(6919,6,21,1,0)="Physical storage of archival medium.  Entered by user for future"
^DD(6919,6,21,2,0)="reference."
^DD(6919,6,"DT")="2860915"
^DD(6919,7,0)="TAPE DESCRIPTION^F^^1;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(6919,7,1,0)="^.1"
^DD(6919,7,1,1,0)="6919^D"
^DD(6919,7,1,1,1)="S ^ENG(6919,""D"",$E(X,1,30),DA)="""""
^DD(6919,7,1,1,2)="K ^ENG(6919,""D"",$E(X,1,30),DA)"
^DD(6919,7,3)="ANSWER MUST BE 1-40 CHARACTERS IN LENGTH, ENTER A LOCAL DESCRIPTOR"
^DD(6919,7,21,0)="^^2^2^2930429^"
^DD(6919,7,21,1,0)="General description of archival set, entered at the discretion"
^DD(6919,7,21,2,0)="of the user."
^DD(6919,7,"DT")="2860915"
^DD(6919,8,0)="FILE TYPE VERSION^F^^1;8^K:$L(X)>5!($L(X)<3) X"
^DD(6919,8,3)="ANSWER MUST BE 3-5 CHARACTERS IN LENGTH"
^DD(6919,8,21,0)="^^2^2^2930429^"
^DD(6919,8,21,1,0)="Indicates revision of archival record type.  Internal use only."
^DD(6919,8,21,2,0)="Generated automatically."
^DD(6919,8,"DT")="2860618"
^DD(6919,10,0)="ACTIVITY LOG^6919.01DA^^2;0"
^DD(6919,10,21,0)="^^2^2^2930429^"
^DD(6919,10,21,1,0)="Record of all activity on a defined archival set.  This log is"
^DD(6919,10,21,2,0)="maintained by the system automatically."
^DD(6919,20,0)="EQUIPMENT INV. ENTRY #^6919.02^^3;0"
^DD(6919,"B","ACTIVITY LOG",10)=""
^DD(6919,"B","ARCHIVE I.D.",.01)=""
^DD(6919,"B","EQUIPMENT INV. ENTRY #",20)=""
^DD(6919,"B","FILE TYPE VERSION",8)=""
^DD(6919,"B","NO. RECORDS SAVED",5)=""
^DD(6919,"B","OPT. SEARCH PARAMS.",4)=""
^DD(6919,"B","PHYS. LOCATION",6)=""
^DD(6919,"B","RECORDS START DATE",2)=""
^DD(6919,"B","RECORDS STOP DATE",3)=""
^DD(6919,"B","RECORDS TYPE",1)=""
^DD(6919,"B","TAPE DESCRIPTION",7)=""
^DD(6919,"GL",0,1,.01)=""
^DD(6919,"GL",1,1,1)=""
^DD(6919,"GL",1,2,2)=""
^DD(6919,"GL",1,3,3)=""
^DD(6919,"GL",1,4,4)=""
^DD(6919,"GL",1,5,5)=""
^DD(6919,"GL",1,6,6)=""
^DD(6919,"GL",1,7,7)=""
^DD(6919,"GL",1,8,8)=""
^DD(6919,"GL",2,0,10)=""
^DD(6919,"GL",3,0,20)=""
^DD(6919,"IX",.01)=""
^DD(6919,"IX",6)=""
^DD(6919,"IX",7)=""
^DD(6919,"RQ",.01)=""
^DD(6919,"RQ",1)=""
^DD(6919,"SB",6919.01,10)=""
^DD(6919,"SB",6919.02,20)=""
^DD(6919.01,0)="ACTIVITY LOG SUB-FIELD^NL^2^3"
^DD(6919.01,0,"NM","ACTIVITY LOG")=""
^DD(6919.01,0,"UP")="6919"
^DD(6919.01,.01,0)="ACTIVITY DATE^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(6919.01,.01,21,0)="^^1^1^2930429^"
^DD(6919.01,.01,21,1,0)="Date and time of each discrete activity."
^DD(6919.01,1,0)="ACTIVITY TYPE^S^1:ASSEMBLE RECORDS;2:PURGE LIVE DATA;3:ARCHIVE GLOBAL;4:VERIFY GLOBAL;5:DELETE GLOBAL;6:RECALL ARCHIVE;^0;2^Q"
^DD(6919.01,1,21,0)="^^1^1^2930429^"
^DD(6919.01,1,21,1,0)="Type of archival operation.  Captured automatically."
^DD(6919.01,1,"DT")="2860730"
^DD(6919.01,2,0)="ACTIVITY REQUESTOR^F^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(6919.01,2,3)="ANSWER MUST BE 1-25 CHARACTERS IN LENGTH"
^DD(6919.01,2,21,0)="^^1^1^2930429^"
^DD(6919.01,2,21,1,0)="Name of individual who requested this action.  Captured automatically."
^DD(6919.01,"B","ACTIVITY DATE",.01)=""
^DD(6919.01,"B","ACTIVITY REQUESTOR",2)=""
^DD(6919.01,"B","ACTIVITY TYPE",1)=""
^DD(6919.01,"GL",0,1,.01)=""
^DD(6919.01,"GL",0,2,1)=""
^DD(6919.01,"GL",0,3,2)=""
^DD(6919.02,0)="EQUIPMENT INV. ENTRY # SUB-FIELD^^.01^1"
^DD(6919.02,0,"DT")="2970218"
^DD(6919.02,0,"NM","EQUIPMENT INV. ENTRY #")=""
^DD(6919.02,0,"UP")="6919"
^DD(6919.02,.01,0)="EQUIPMENT INV. ENTRY #^MF^^0;1^K:$L(X)>16!($L(X)<5) X"
^DD(6919.02,.01,1,0)="^.1"
^DD(6919.02,.01,1,1,0)="6919^AE^MUMPS"
^DD(6919.02,.01,1,1,1)="S ^ENG(6919,""AE"",$E($P(X,""-"",2),1,30),DA(1),DA)="""""
^DD(6919.02,.01,1,1,2)="K ^ENG(6919,""AE"",$E($P(X,""-"",2),1,30),DA(1),DA)"
^DD(6919.02,.01,1,1,"DT")="2970218"
^DD(6919.02,.01,3)="Answer must be 5-16 characters in length."
^DD(6919.02,.01,"DT")="2970218"
^DD(6919.02,"B","EQUIPMENT INV. ENTRY #",.01)=""
^DD(6919.02,"GL",0,1,.01)=""
^DD(6919.02,"IX",.01)=""
^DD(6920,0)="FIELD^NL^47^40"
^DD(6920,0,"DDA")="N"
^DD(6920,0,"DT")="2970422"
^DD(6920,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ENG(""SP"",+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(6928,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(6920,0,"ID",6)="W:$D(^(1)) ""   "",$P(^(1),U,2)"
^DD(6920,0,"IX","AA",6920,.01)=""
^DD(6920,0,"IX","AC",6920,9)=""
^DD(6920,0,"IX","AD",6920,32)=""
^DD(6920,0,"IX","AE",6920,31)=""
^DD(6920,0,"IX","AF",6920,18)=""
^DD(6920,0,"IX","AG",6920,16)=""
^DD(6920,0,"IX","AH",6920,32)=""
^DD(6920,0,"IX","AI",6920,36)=""
^DD(6920,0,"IX","B",6920,.01)=""
^DD(6920,0,"IX","C",6920,3)=""
^DD(6920,0,"IX","D",6920,6)=""
^DD(6920,0,"IX","E",6920,20)=""
^DD(6920,0,"IX","F",6920,19)=""
^DD(6920,0,"IX","G",6920,18)=""
^DD(6920,0,"IX","H",6920,.05)=""
^DD(6920,0,"NM","WORK ORDER #")=""
^DD(6920,0,"PT",410,49)=""
^DD(6920,0,"PT",413.1,13)=""
^DD(6920,0,"PT",413.11,11)=""
^DD(6920,0,"PT",442,51)=""
^DD(6920,0,"PT",6914,78)=""
^DD(6920,0,"VR")="7.0"
^DD(6920,0,"VRPK")="EN"
^DD(6920,.01,0)="WORK ORDER #^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5)!'(X'?1P.E)!(X'?.ANP) X"
^DD(6920,.01,1,0)="^.1"
^DD(6920,.01,1,1,0)="6920^B"
^DD(6920,.01,1,1,1)="S ^ENG(6920,""B"",$E(X,1,30),DA)="""""
^DD(6920,.01,1,1,2)="K ^ENG(6920,""B"",$E(X,1,30),DA)"
^DD(6920,.01,1,2,0)="6920^AA^MUMPS"
^DD(6920,.01,1,2,1)="Q"
^DD(6920,.01,1,2,2)="Q"
^DD(6920,.01,1,2,"%D",0)="^^1^1^2970411^"
^DD(6920,.01,1,2,"%D",1,0)="Obsolete x-ref. No API available to delete."
^DD(6920,.01,1,2,"DT")="2970411"
^DD(6920,.01,3)="ANSWER MUST BE 5-17 CHARACTERS IN LENGTH"
^DD(6920,.01,8.5)="#"
^DD(6920,.01,9)="#"
^DD(6920,.01,10)=""
^DD(6920,.01,21,0)="^^4^4^2960911^^^^"
^DD(6920,.01,21,1,0)="Identifier of each individual work action.  Composed of the shop"
^DD(6920,.01,21,2,0)="abbreviation, date generated, and a computer generated sequential"
^DD(6920,.01,21,3,0)="component.  Users may delete work orders when necessary, but"
^DD(6920,.01,21,4,0)="they should never change a work order number."
^DD(6920,.01,"DEL",1,0)="I $D(^ENG(6920,DA,3)),$P(^(3),""^"",8)>0,$D(^(5)),$P(^(5),""^"",2)>0 W !,""Sorry, you must use the work order module to delete work orders associated"",!,""with an equipment history."""
^DD(6920,.01,"DT")="2970411"
^DD(6920,.05,0)="ORIGINAL WORK ORDER #^FI^^0;6^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>17!($L(X)<5) X"
^DD(6920,.05,1,0)="^.1"
^DD(6920,.05,1,1,0)="6920^H"
^DD(6920,.05,1,1,1)="S ^ENG(6920,""H"",$E(X,1,30),DA)="""""
^DD(6920,.05,1,1,2)="K ^ENG(6920,""H"",$E(X,1,30),DA)"
^DD(6920,.05,3)="Answer must be 5-17 characters in length."
^DD(6920,.05,21,0)="^^8^8^2930429^^"
^DD(6920,.05,21,1,0)="This field is automatically populated whenever a new work request is"
^DD(6920,.05,21,2,0)="entered. Unlike the .01 field, the 'ORIGINAL WORK ORDER #' will not"
^DD(6920,.05,21,3,0)="be affected if the work request is transferred from one shop to"
^DD(6920,.05,21,4,0)="another. The main purpose of this field is to allow requesters outside"
^DD(6920,.05,21,5,0)="of Engineering Service to check on the status of work requests which"
^DD(6920,.05,21,6,0)="they enter themselves. If requesters make a note of the WORK ORDER #'s"
^DD(6920,.05,21,7,0)="assigned to their work requests as they enter them, they will always"
^DD(6920,.05,21,8,0)="be able to use these original numbers to check the status."
^DD(6920,.05,"DT")="2960911"
^DD(6920,1,0)="REQUEST DATE^DX^^0;2^S %DT=$S($E($P(^ENG(6920,DA,0),U),1,3)=""PM-"":""P"",1:""ETPX"") D ^%DT S X=Y K:Y<1 X"
^DD(6920,1,21,0)="^^1^1^2881101^"
^DD(6920,1,21,1,0)="Date (and time if desired) when work request was originally entered."
^DD(6920,1,"DT")="2970407"
^DD(6920,2,0)="REQUEST MODE^S^P:PHONE;W:WRITTEN;D:DELIVERED;V:VERBAL;C:COMPUTER;^0;3^Q"
^DD(6920,2,21,0)="^^1^1^2930429^"
^DD(6920,2,21,1,0)="Indicator of how the work was actually requested."
^DD(6920,2,"DT")="2900801"
^DD(6920,3,0)="LOCATION^P6928'^ENG(""SP"",^0;4^Q"
^DD(6920,3,1,0)="^.1"
^DD(6920,3,1,1,0)="6920^C"
^DD(6920,3,1,1,1)="S ^ENG(6920,""C"",$E(X,1,30),DA)="""""
^DD(6920,3,1,1,2)="K ^ENG(6920,""C"",$E(X,1,30),DA)"
^DD(6920,3,1,1,"DT")="2930120"
^DD(6920,3,3)="Enter as ROOM-BUILDING (or select a SYNONYM)."
^DD(6920,3,21,0)="^^1^1^2930225^^^^"
^DD(6920,3,21,1,0)="Physical location where work is to be performed."
^DD(6920,3,"DT")="2930224"
^DD(6920,4,0)="BED #^FX^^0;5^K:$L(X)>10!($L(X)<1)!(X'?.ANP) X"
^DD(6920,4,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(6920,4,21,0)="^^2^2^2910531^^"
^DD(6920,4,21,1,0)="Optional field. Filled in at time of request if the work requested is"
^DD(6920,4,21,2,0)="associated with a specific bed in a patient room."
^DD(6920,4,"DT")="2841206"
^DD(6920,6,0)="TASK DESCRIPTION (60 char)^RFX^^1;2^K:$L(X)>60!($L(X)<1) X"
^DD(6920,6,.1)=""
^DD(6920,6,1,0)="^.1"
^DD(6920,6,1,1,0)="6920^D"
^DD(6920,6,1,1,1)="S ^ENG(6920,""D"",$E(X,1,30),DA)="""""
^DD(6920,6,1,1,2)="K ^ENG(6920,""D"",$E(X,1,30),DA)"
^DD(6920,6,3)="ANSWER MUST BE 1-60 CHARACTERS IN LENGTH"
^DD(6920,6,21,0)="^^1^1^2930224^^^^"
^DD(6920,6,21,1,0)="A brief statement that describes the work being requested."
^DD(6920,6,"DT")="2930224"
^DD(6920,7,0)="CONTACT PERSON^FX^^1;3^K:$L(X)>15!($L(X)<1)!(X'?.ANP) X"
^DD(6920,7,.1)=""
^DD(6920,7,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(6920,7,21,0)="^^2^2^2910531^^^"
^DD(6920,7,21,1,0)="This is the person to be contacted if there are questions about the"
^DD(6920,7,21,2,0)="nature of the work that has been requested."
^DD(6920,7,"DT")="2841206"
^DD(6920,7.5,0)="ENTERED BY^P200'I^VA(200,^1;1^Q"
^DD(6920,7.5,21,0)="^^3^3^2900610^"
^DD(6920,7.5,21,1,0)="Identifies the user who actually entered the work request. Field is"
^DD(6920,7.5,21,2,0)="automatically populated when work order is entered via Electronic"
^DD(6920,7.5,21,3,0)="Work Order Module."
^DD(6920,7.5,"DT")="2930119"
^DD(6920,8,0)="PHONE^FX^^1;4^K:$L(X)>20!($L(X)<1)!(X'?.ANP) X"
^DD(6920,8,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(6920,8,21,0)="^^1^1^2950901^^"
^DD(6920,8,21,1,0)="Telephone number or extension of the individual requesting the work."
^DD(6920,8,"DT")="2950901"
^DD(6920,9,0)="SHOP^RP6922'^DIC(6922,^2;1^Q"
^DD(6920,9,1,0)="^.1"
^DD(6920,9,1,1,0)="6920^AC^MUMPS"
^DD(6920,9,1,1,1)="D:'$D(DIU(0)) TEST^ENWOCOMP"
^DD(6920,9,1,1,2)="K ^ENG(6920,""AINC"",X,9999999999-DA)"
^DD(6920,9,1,1,"%D",0)="^^1^1^2970411^^^"
^DD(6920,9,1,1,"%D",1,0)="Maintains incomplete work order lists."
^DD(6920,9,1,1,"DT")="2970411"
^DD(6920,9,3)=""
^DD(6920,9,21,0)="^^1^1^2910531^"
^DD(6920,9,21,1,0)="The Engineering Section to which the Work Order is assigned."
^DD(6920,9,"DT")="2970411"
^DD(6920,10,0)="DATE ASSIGNED^D^^4;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6920,10,21,0)="^^1^1^2930429^"
^DD(6920,10,21,1,0)="Date on which work order was assigned to the current shop."
^DD(6920,10,"DT")="2830914"
^DD(6920,16,0)="PRIMARY TECH ASSIGNED^*P6929'^ENG(""EMP"",^2;2^S DIC(""S"")=""I $P(^(0),U,7)'=""""V"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6920,16,1,0)="^.1"
^DD(6920,16,1,1,0)="6920^AG^MUMPS"
^DD(6920,16,1,1,1)="D:'$D(DIU(0)) TECH^ENLIB1"
^DD(6920,16,1,1,2)="Q"
^DD(6920,16,1,1,"%D",0)="^^1^1^2980511^"
^DD(6920,16,1,1,"%D",1,0)="Maintain ASSIGNED TECH field (if necessary)."
^DD(6920,16,1,1,"DT")="2980511"
^DD(6920,16,12)="Select current employees only."
^DD(6920,16,12.1)="S DIC(""S"")=""I $P(^(0),U,7)'=""""V"""""""
^DD(6920,16,21,0)="^^1^1^2930115^"
^DD(6920,16,21,1,0)="Technician who bears primary responsibility for completion of task."
^DD(6920,16,"DT")="2980511"
^DD(6920,16.5,0)="TECHNICIANS ASSIGNED^6920.02PA^^7;0"
^DD(6920,16.5,21,0)="^^1^1^2930429^"
^DD(6920,16.5,21,1,0)="Employee(s) assigned to perform this work."
^DD(6920,17,0)="PRIORITY^RS^E:EMERGENCY;H:HIGH;A:AVERAGE;L:LOW;M:MODIFICATION;^2;3^Q"
^DD(6920,17,21,0)="^^1^1^2930429^"
^DD(6920,17,21,1,0)="Relative priority of this work request."
^DD(6920,17,"DT")="2831117"
^DD(6920,18,0)="EQUIPMENT ID#^P6914'^ENG(6914,^3;8^Q"
^DD(6920,18,1,0)="^.1^^-1"
^DD(6920,18,1,1,0)="6920^G"
^DD(6920,18,1,1,1)="S ^ENG(6920,""G"",$E(X,1,30),DA)="""""
^DD(6920,18,1,1,2)="K ^ENG(6920,""G"",$E(X,1,30),DA)"
^DD(6920,18,1,1,"DT")="2961216"
^DD(6920,18,1,2,0)="6920^AF^MUMPS"
^DD(6920,18,1,2,1)="D:'$D(DIU(0)) ST^ENWOINV"
^DD(6920,18,1,2,2)="D:'$D(DIU(0)) KI^ENWOINV"
^DD(6920,18,1,2,"DT")="2930224"
^DD(6920,18,3)=""
^DD(6920,18,21,0)="^^2^2^2901009^"
^DD(6920,18,21,1,0)="Entry in the Equipment File (#6914) to which this work order is to be"
^DD(6920,18,21,2,0)="charged."
^DD(6920,18,"DT")="2961216"
^DD(6920,19,0)="LOCAL IDENTIFIER^FX^^3;5^K:X[""""""""!($A(X)=45)!(X'?.ANP) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(6920,19,1,0)="^.1"
^DD(6920,19,1,1,0)="6920^F"
^DD(6920,19,1,1,1)="S ^ENG(6920,""F"",$E(X,1,30),DA)="""""
^DD(6920,19,1,1,2)="K ^ENG(6920,""F"",$E(X,1,30),DA)"
^DD(6920,19,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(6920,19,21,0)="^^2^2^2920108^^"
^DD(6920,19,21,1,0)="This optional field may contain any type of identifier that has"
^DD(6920,19,21,2,0)="meaning at your site."
^DD(6920,19,"DT")="2841206"
^DD(6920,20,0)="PMI NUMBER^FX^^3;1^K:$L(X)>11!($L(X)<1)!(X'?.ANP) X"
^DD(6920,20,1,0)="^.1"
^DD(6920,20,1,1,0)="6920^E"
^DD(6920,20,1,1,1)="S ^ENG(6920,""E"",$E(X,1,30),DA)="""""
^DD(6920,20,1,1,2)="K ^ENG(6920,""E"",$E(X,1,30),DA)"
^DD(6920,20,3)="ANSWER MUST BE 1-11 CHARACTERS IN LENGTH"
^DD(6920,20,21,0)="^^3^3^2930429^"
^DD(6920,20,21,1,0)="Property Management Number.  Applicable only to work requests that"
^DD(6920,20,21,2,0)="are chargeable to equipment.  This data element is likely to be"
^DD(6920,20,21,3,0)="phased out in the near future."
^DD(6920,20,"DT")="2851008"
^DD(6920,21,0)="EQUIPMENT CATEGORY^FX^^3;2^K:$L(X)>20!($L(X)<1)!(X'?.ANP) X"
^DD(6920,21,3)="ANSWER MUST BE 1-20 CHARACTERS IN LENGTH"
^DD(6920,21,21,0)="^^1^1^2930429^"
^DD(6920,21,21,1,0)="Generic name for affected equipment."
^DD(6920,21,"DT")="2841206"
^DD(6920,21.9,0)="MANUFACTURER^P6912'^ENG(""MFG"",^3;9^Q"
^DD(6920,21.9,1,0)="^.1^^0"
^DD(6920,21.9,21,0)="^^1^1^2930429^^"
^DD(6920,21.9,21,1,0)="Manufacturer of affected equipment."
^DD(6920,21.9,"DT")="2970411"
^DD(6920,22,0)="*EQUIPMENT MANUFACTURER^FX^^3;3^K:$L(X)>30!($L(X)<1)!(X'?.ANP) X"
^DD(6920,22,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(6920,22,9)="^"
^DD(6920,22,21,0)="^^2^2^2961209^"
^DD(6920,22,21,1,0)="This field is no longer used and it will be deleted by a future release."
^DD(6920,22,21,2,0)="(Text representation of manufacturer. Used to be automatically triggered.)"
^DD(6920,22,"DT")="2961209"
^DD(6920,22.3,0)="MODEL^F^^3;6^K:$L(X)>15!($L(X)<1) X"
^DD(6920,22.3,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(6920,22.3,21,0)="^^1^1^2930429^"
^DD(6920,22.3,21,1,0)="Model number assigned to equipment under repair by the manufacturer."
^DD(6920,22.5,0)="SERIAL NO.^FX^^3;7^K:$L(X)>15!($L(X)<1)!(X'?.ANP) X"
^DD(6920,22.5,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(6920,22.5,21,0)="^^1^1^2930429^"
^DD(6920,22.5,21,1,0)="Serial number of affected equipment.  Assigned by manufacturer."
^DD(6920,22.5,"DT")="2841206"
^DD(6920,23,0)="OWNER/DEPARTMENT^P49'^DIC(49,^3;4^Q"
^DD(6920,23,3)=""
^DD(6920,23,21,0)="^^1^1^2930429^^"
^DD(6920,23,21,1,0)="The service or section for whom work is to be performed."
^DD(6920,23,22)=""
^DD(6920,23,"DT")="2880628"
^DD(6920,23,"V",0)="^.12P^2^2"
^DD(6920,23,"V",1,0)="49^SERVICE FILE^1^S^n^n"
^DD(6920,23,"V",2,0)="42^WARD^2^W^n^n"
^DD(6920,23,"V","B",42,2)=""
^DD(6920,23,"V","B",49,1)=""
^DD(6920,23,"V","M","SERVICE FILE",1)=""
^DD(6920,23,"V","M","WARD",2)=""
^DD(6920,23,"V","O",1,1)=""
^DD(6920,23,"V","O",2,2)=""
^DD(6920,23,"V","P","S",1)=""
^DD(6920,23,"V","P","W",2)=""
^DD(6920,31,0)="PARTS ORDERED ON ACC.#^P410'^PRCS(410,^4;2^Q"
^DD(6920,31,1,0)="^.1"
^DD(6920,31,1,1,0)="6920^AE^MUMPS"
^DD(6920,31,1,1,1)="D:'$D(DIU(0)) ACC^ENLIB2"
^DD(6920,31,1,1,2)="Q"
^DD(6920,31,1,1,"%D",0)="^^1^1^2930224^^"
^DD(6920,31,1,1,"%D",1,0)="Gets data elements from the purchase order where possible."
^DD(6920,31,1,1,"DT")="2930224"
^DD(6920,31,21,0)="^^2^2^2930429^"
^DD(6920,31,21,1,0)="The Control Point Activity Transaction for parts or services"
^DD(6920,31,21,2,0)="required to complete this task."
^DD(6920,31,"DT")="2930224"
^DD(6920,32,0)="STATUS^*S^1:IN PROGRESS;2:PENDING;3:WAITING ON PARTS;4:WAITING ON VENDOR SERVICE;5:DISAPPROVED;6:COMPLETED;^4;3^Q"
^DD(6920,32,1,0)="^.1"
^DD(6920,32,1,1,0)="6920^AH^MUMPS"
^DD(6920,32,1,1,1)="D:'$D(DIU(0)) MSG^ENWO2"
^DD(6920,32,1,1,2)="Q"
^DD(6920,32,1,1,"%D",0)="^^1^1^2950926^"
^DD(6920,32,1,1,"%D",1,0)="Generate a message to users when their work order's status has changed."
^DD(6920,32,1,1,"DT")="2921124"
^DD(6920,32,1,2,0)="6920^AD^MUMPS"
^DD(6920,32,1,2,1)="D:X=5&'$D(DIU(0)) DELHS^ENEQHS"
^DD(6920,32,1,2,2)="Q"
^DD(6920,32,1,2,"%D",0)="^^2^2^2981112^"
^DD(6920,32,1,2,"%D",1,0)="Remove disapproved work orders from the EQUIPMENT HISTORY (#50) multiple"
^DD(6920,32,1,2,"%D",2,0)="of the EQUIPMENT INV (#6914) file."
^DD(6920,32,1,2,"DT")="2981021"
^DD(6920,32,12)="It is improper to explicitly set STATUS to COMPLETE or DISAPPROVED in the absence of a DATE COMPLETE (OR CLOSED)."
^DD(6920,32,12.1)="S DIC(""S"")=""I $S(Y<5:1,Y>6:1,$D(^ENG(6920,DA,5)):$P(^(5),U,2)]"""""""",1:0)"""
^DD(6920,32,21,0)="^^2^2^2970211^^^^"
^DD(6920,32,21,1,0)="Added with Version 6.4. May be helpful when printing reports of M&R"
^DD(6920,32,21,2,0)="activity."
^DD(6920,32,"DT")="2981021"
^DD(6920,32.1,0)="NOTIFICATION PREFERENCE^S^C:COMPLETED STATUS;S:STATUS CHANGED;N:NO MESSAGE;^4;5^Q"
^DD(6920,32.1,3)="Indicate when changes to the work order status should result in a mail message to the requestor."
^DD(6920,32.1,21,0)="^^5^5^2950925^^^^"
^DD(6920,32.1,21,1,0)="This field will be checked to determine if a mail message should be sent"
^DD(6920,32.1,21,2,0)="to the requestor when the status of an electronic work order is modified."
^DD(6920,32.1,21,3,0)="ENG SOFTWARE OPTIONS 'NOTIFY W.O. REQUESTOR' must be 'A' for this field to"
^DD(6920,32.1,21,4,0)="be asked during entry of a electronic work order. Note that a mail message"
^DD(6920,32.1,21,5,0)="will always be sent when a work order is disapproved."
^DD(6920,32.1,"DT")="2950925"
^DD(6920,32.2,0)="NOTIFICATION MESSAGE^NJ10,0I^^4;6^K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6920,32.2,3)="Type a Number between 1 and 9999999999, 0 Decimal Digits"
^DD(6920,32.2,21,0)="^^3^3^2970128^"
^DD(6920,32.2,21,1,0)="This field contains the message number of a computer generated"
^DD(6920,32.2,21,2,0)="notification message sent to the requester. Any further notification"
^DD(6920,32.2,21,3,0)="messages are sent as responses to this message."
^DD(6920,32.2,"DT")="2970128"
^DD(6920,35,0)="WORK ACTION^6920.035PA^^8;0"
^DD(6920,35,21,0)="^^1^1^2981104^^^"
^DD(6920,35,21,1,0)="Type of work performed or requested."
^DD(6920,35.2,0)="PM STATUS^S^P:PASS;C:CORRECTIVE ACTION TAKEN/REQUESTED;D0:DEFERRED;D1:DEFERRED, COULD NOT LOCATE;D2:DEFERRED, IN USE;D3:DEFERRED, OUT OF SERVICE OR LOANED OUT;^5;8^Q"
^DD(6920,35.2,21,0)="^^2^2^2930429^"
^DD(6920,35.2,21,1,0)="Outcome of preventive maintenance inspection.  Useable for"
^DD(6920,35.2,21,2,0)="PM work orders only."
^DD(6920,35.2,"DT")="2890206"
^DD(6920,35.5,0)="WORK CENTER CODE^P6921'^DIC(6921,^5;5^Q"
^DD(6920,35.5,21,0)="^^1^1^2941221^^"
^DD(6920,35.5,21,1,0)="Category of task to which this work order most closely corresponds."
^DD(6920,35.5,"DT")="2840403"
^DD(6920,36,0)="DATE COMPLETE (or closed)^DX^^5;2^S %DT=$S($E($P(^ENG(6920,DA,0),U),1,3)=""PM-"":""P"",1:""ETPX"") D ^%DT S X=$$CDATE^ENWOUTL(Y) I X[""^"" K X"
^DD(6920,36,1,0)="^.1"
^DD(6920,36,1,1,0)="6920^AI^MUMPS"
^DD(6920,36,1,1,1)="D:'$D(DIU(0)) TEST^ENWOCOMP"
^DD(6920,36,1,1,2)="D:'$D(DIU(0)) TEST^ENWOCOMP"
^DD(6920,36,1,1,"%D",0)="^^1^1^2930224^^^"
^DD(6920,36,1,1,"%D",1,0)="Maintains the INCOMPLETE WORK ORDER list."
^DD(6920,36,1,1,"DT")="2930224"
^DD(6920,36,3)="Completed work orders should reference equipment via the EQUIPMENT ID#."
^DD(6920,36,21,0)="^^1^1^2920102^"
^DD(6920,36,21,1,0)="Date on which work order is closed out."
^DD(6920,36,"DT")="2970409"
^DD(6920,37,0)="TOTAL HOURS^NJ7,2^^5;3^K:+X'=X!(X>9999)!(X<.1)!(X?.E1"".""3N.N) X"
^DD(6920,37,3)="Type a Number between .1 and 9999, 2 Decimal Digits"
^DD(6920,37,21,0)="^^2^2^2930429^^"
^DD(6920,37,21,1,0)="Total man-hours by all assigned employees.  Calculated by the system"
^DD(6920,37,21,2,0)="automatically."
^DD(6920,37,"DT")="2901026"
^DD(6920,37.5,0)="TOTAL LABOR COST^NJ11,2^^5;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(6920,37.5,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(6920,37.5,21,0)="^^3^3^2941221^^"
^DD(6920,37.5,21,1,0)="Total labor cost chargeable to this work order.  System will compute this"
^DD(6920,37.5,21,2,0)="value by multiplying the HOURS of each TECHNICIAN ASSIGNED times his WAGE"
^DD(6920,37.5,21,3,0)="and totaling the results."
^DD(6920,37.5,"DT")="2930316"
^DD(6920,38,0)="TOTAL MATERIAL COST^NJ11,2^^5;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0) X"
^DD(6920,38,3)="Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits"
^DD(6920,38,21,0)="^^1^1^2930429^"
^DD(6920,38,21,1,0)="Approximate cost of materials needed to complete this task."
^DD(6920,38,"DT")="2930316"
^DD(6920,39,0)="WORK PERFORMED (140 char max)^FX^^5;7^K:$L(X)<3 X I $D(X),$L(X)>140 S X=$E(X,1,140) D EN^DDIOL(""WORK PERFORMED has been truncated to 140 characters."")"
^DD(6920,39,3)="Answer must be 3-140 characters in length."
^DD(6920,39,21,0)="^^5^5^2880216^"
^DD(6920,39,21,1,0)="Brief description of work actually performed (may be extracted from COMMENTS"
^DD(6920,39,21,2,0)="field). The WORK PERFORMED field will be saved in the EQUIPMENT (Inventory)"
^DD(6920,39,21,3,0)="File (No. 6914) where it will be a permanent part of the device history. In"
^DD(6920,39,21,4,0)="contrast, the COMMENTS field will be removed from disk (on-line) storage"
^DD(6920,39,21,5,0)="when the work order is archived."
^DD(6920,39,"DT")="2961206"
^DD(6920,40,0)="COMMENTS^6920.01A^^6;0"
^DD(6920,40,21,0)="^^1^1^2930429^"
^DD(6920,40,21,1,0)="General comments regarding this work request."
^DD(6920,45,0)="ENG. TURN AROUND TIME^CJ8,0^^ ; ^S Y(6920,45,2)=$S($D(^ENG(6920,D0,0)):^(0),1:""""),Y(6920,45,1)=$S($D(^(5)):^(5),1:"""") S X=$P(Y(6920,45,1),U,2),X1=X,X2=$P(Y(6920,45,2),U,2),X="""" D:X2 ^%DTC:X1 S X=$J(X,0,0)"
^DD(6920,45,9)="^"
^DD(6920,45,9.01)="6920^1;6920^36"
^DD(6920,45,9.1)="#36-#1"
^DD(6920,45,21,0)="^^1^1^2930429^"
^DD(6920,45,21,1,0)="Number of days between work order request and work order completion."
^DD(6920,45,"DT")="2930104"
^DD(6920,46,0)="TECH TURN AROUND TIME^CJ8,0^^ ; ^S Y(6920,46,2)=$S($D(^ENG(6920,D0,4)):^(4),1:""""),Y(6920,46,1)=$S($D(^(5)):^(5),1:"""") S X=$P(Y(6920,46,1),U,2),X1=X,X2=$P(Y(6920,46,2),U,1),X="""" D:X2 ^%DTC:X1"
^DD(6920,46,9)="^"
^DD(6920,46,9.01)="6920^10;6920^36"
^DD(6920,46,9.1)="#36-#10"
^DD(6920,46,21,0)="^^1^1^2930429^^"
^DD(6920,46,21,1,0)="Number of days between assignment of shop and work order completion."
^DD(6920,46,"DT")="2830929"
^DD(6920,47,0)="VENDOR SERVICE COST^NJ12,2^^4;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(6920,47,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(6920,47,21,0)="^^1^1^2930429^"
^DD(6920,47,21,1,0)="Approximate cost of vendor services needed to complete this task."
^DD(6920,47,"DT")="2911008"
^DD(6920,"B","*EQUIPMENT MANUFACTURER",22)=""
^DD(6920,"B","BED #",4)=""
^DD(6920,"B","COMMENTS",40)=""
^DD(6920,"B","CONTACT PERSON",7)=""
^DD(6920,"B","DATE ASSIGNED",10)=""
^DD(6920,"B","DATE COMPLETE (or closed)",36)=""
^DD(6920,"B","ENG. TURN AROUND TIME",45)=""
^DD(6920,"B","ENTERED BY",7.5)=""
^DD(6920,"B","EQUIPMENT CATEGORY",21)=""
^DD(6920,"B","EQUIPMENT ID#",18)=""
^DD(6920,"B","LOCAL IDENTIFIER",19)=""
^DD(6920,"B","LOCATION",3)=""
^DD(6920,"B","MANUFACTURER",21.9)=""
^DD(6920,"B","MODEL",22.3)=""
^DD(6920,"B","NOTIFICATION MESSAGE",32.2)=""
^DD(6920,"B","NOTIFICATION PREFERENCE",32.1)=""
^DD(6920,"B","ORIGINAL WORK ORDER #",.05)=""
^DD(6920,"B","OWNER/DEPARTMENT",23)=""
^DD(6920,"B","PARTS ORDERED ON ACC.#",31)=""
^DD(6920,"B","PHONE",8)=""
^DD(6920,"B","PM STATUS",35.2)=""
^DD(6920,"B","PMI NUMBER",20)=""
^DD(6920,"B","PRIMARY TECH ASSIGNED",16)=""
^DD(6920,"B","PRIORITY",17)=""
^DD(6920,"B","REQUEST DATE",1)=""
^DD(6920,"B","REQUEST MODE",2)=""
^DD(6920,"B","SERIAL NO.",22.5)=""
^DD(6920,"B","SHOP",9)=""
^DD(6920,"B","STATUS",32)=""
^DD(6920,"B","TASK DESCRIPTION (60 char)",6)=""
^DD(6920,"B","TECH TURN AROUND TIME",46)=""
^DD(6920,"B","TECHNICIANS ASSIGNED",16.5)=""
^DD(6920,"B","TOTAL HOURS",37)=""
^DD(6920,"B","TOTAL LABOR COST",37.5)=""
^DD(6920,"B","TOTAL MATERIAL COST",38)=""
^DD(6920,"B","VENDOR SERVICE COST",47)=""
^DD(6920,"B","WORK ACTION",35)=""
^DD(6920,"B","WORK CENTER CODE",35.5)=""
^DD(6920,"B","WORK ORDER #",.01)=""
^DD(6920,"B","WORK PERFORMED (140 char max)",39)=""
^DD(6920,"GL",0,1,.01)=""
^DD(6920,"GL",0,2,1)=""
^DD(6920,"GL",0,3,2)=""
^DD(6920,"GL",0,4,3)=""
^DD(6920,"GL",0,5,4)=""
^DD(6920,"GL",0,6,.05)=""
^DD(6920,"GL",1,1,7.5)=""
^DD(6920,"GL",1,2,6)=""
^DD(6920,"GL",1,3,7)=""
^DD(6920,"GL",1,4,8)=""
^DD(6920,"GL",2,1,9)=""
^DD(6920,"GL",2,2,16)=""
^DD(6920,"GL",2,3,17)=""
^DD(6920,"GL",3,1,20)=""
^DD(6920,"GL",3,2,21)=""
^DD(6920,"GL",3,3,22)=""
^DD(6920,"GL",3,4,23)=""
^DD(6920,"GL",3,5,19)=""
^DD(6920,"GL",3,6,22.3)=""
^DD(6920,"GL",3,7,22.5)=""
^DD(6920,"GL",3,8,18)=""
^DD(6920,"GL",3,9,21.9)=""
^DD(6920,"GL",4,1,10)=""
^DD(6920,"GL",4,2,31)=""
^DD(6920,"GL",4,3,32)=""
^DD(6920,"GL",4,4,47)=""
^DD(6920,"GL",4,5,32.1)=""
^DD(6920,"GL",4,6,32.2)=""
^DD(6920,"GL",5,2,36)=""
^DD(6920,"GL",5,3,37)=""
^DD(6920,"GL",5,4,38)=""
^DD(6920,"GL",5,5,35.5)=""
^DD(6920,"GL",5,6,37.5)=""
^DD(6920,"GL",5,7,39)=""
^DD(6920,"GL",5,8,35.2)=""
^DD(6920,"GL",6,0,40)=""
^DD(6920,"GL",7,0,16.5)=""
^DD(6920,"GL",8,0,35)=""
^DD(6920,"IX",.01)=""
^DD(6920,"IX",.05)=""
^DD(6920,"IX",3)=""
^DD(6920,"IX",6)=""
^DD(6920,"IX",9)=""
^DD(6920,"IX",16)=""
^DD(6920,"IX",18)=""
^DD(6920,"IX",19)=""
^DD(6920,"IX",20)=""
^DD(6920,"IX",31)=""
^DD(6920,"IX",32)=""
^DD(6920,"IX",36)=""
^DD(6920,"RQ",.01)=""
^DD(6920,"RQ",6)=""
^DD(6920,"RQ",9)=""
^DD(6920,"RQ",17)=""
^DD(6920,"SB",6920.01,40)=""
^DD(6920,"SB",6920.02,16.5)=""
^DD(6920,"SB",6920.035,35)=""
^DD(6920.01,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(6920.01,0,"NM","COMMENTS")=""
^DD(6920.01,0,"UP")="6920"
^DD(6920.01,.01,0)="COMMENTS^W^^0;1^Q"
^DD(6920.01,.01,3)=""
^DD(6920.01,.01,"DT")="2840503"
^DD(6920.01,"B","COMMENTS",.01)=""
^DD(6920.01,"GL",0,1,.01)=""
^DD(6920.02,0)="TECHNICIANS ASSIGNED SUB-FIELD^NL^2^3"
^DD(6920.02,0,"IX","AC",6920.02,1)=""
^DD(6920.02,0,"IX","AD",6920.02,.01)=""
^DD(6920.02,0,"IX","AE",6920.02,.01)=""
^DD(6920.02,0,"IX","AF",6920.02,.01)=""
^DD(6920.02,0,"NM","TECHNICIANS ASSIGNED")=""
^DD(6920.02,0,"UP")="6920"
^DD(6920.02,.01,0)="ASSIGNED TECH^M*P6929'^ENG(""EMP"",^0;1^S DIC(""S"")=""S DIV=^(0) I $P(DIV,U,7)'=""""V"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6920.02,.01,1,0)="^.1"
^DD(6920.02,.01,1,1,0)="6920.02^AD^MUMPS"
^DD(6920.02,.01,1,1,1)="I $P($G(^ENG(6920,DA(1),7,DA,0)),""^"",3)="""",$D(^ENG(""EMP"",X,0)),$P(^(0),""^"",10) S $P(^ENG(6920,DA(1),7,DA,0),""^"",3)=$P(^ENG(""EMP"",X,0),""^"",10)"
^DD(6920.02,.01,1,1,1.1)="S X=DIV S Y(1)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(""EMP"",+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(""EMP"",D0,0)):^(0),1:"""") S X=$S('$D(^DIC(6922,+$P(Y(101),U,10),0)):"""",1:$P(^(0),U,1)) S D0=Y(1)"
^DD(6920.02,.01,1,1,1.4)="S DIH=$S($D(^ENG(6920,DIV(0),7,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=6920.02,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(6920.02,.01,1,1,2)="Q"
^DD(6920.02,.01,1,1,2.4)="S DIH=$S($D(^ENG(6920,DIV(0),7,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,2,99))  S DIH=DIH_U"" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"""":U_%,1:""""),DIH=6920.02,DIG=2 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(6920.02,.01,1,1,"%D",0)="^^1^1^2970207^^^^"
^DD(6920.02,.01,1,1,"%D",1,0)="Sets the shop(default)."
^DD(6920.02,.01,1,1,"CREATE VALUE")=".01:.3"
^DD(6920.02,.01,1,1,"DELETE VALUE")="@"
^DD(6920.02,.01,1,1,"DT")="2961209"
^DD(6920.02,.01,1,1,"FIELD")="SHOP"
^DD(6920.02,.01,1,2,0)="6920.02^AE^MUMPS"
^DD(6920.02,.01,1,2,1)="D:'$D(DIU(0)) INTECH^ENLIB1"
^DD(6920.02,.01,1,2,2)="D:'$D(DIU(0)) OUTECH^ENLIB1"
^DD(6920.02,.01,1,2,"%D",0)="^^1^1^2970207^^^"
^DD(6920.02,.01,1,2,"%D",1,0)="Maintain PRIMARY TECH on basis of TECHNICIAN ASSIGNED."
^DD(6920.02,.01,1,2,"DT")="2970117"
^DD(6920.02,.01,1,3,0)="6920.02^AF^MUMPS"
^DD(6920.02,.01,1,3,1)="I '$D(DIU(0)) D LBRCST^ENWOUTL(1) Q"
^DD(6920.02,.01,1,3,2)="Q"
^DD(6920.02,.01,1,3,"%D",0)="^^5^5^2981112^"
^DD(6920.02,.01,1,3,"%D",1,0)="Update TOTAL LABOR COST (#37.5) in the WORK ORDER (#6920) file. The TOTAL"
^DD(6920.02,.01,1,3,"%D",2,0)="LABOR COST is normally updated by a cross-reference on the HOURS (#1)"
^DD(6920.02,.01,1,3,"%D",3,0)="field in the TECHNICIANS ASSIGNED (#16.5) multiple. However, that"
^DD(6920.02,.01,1,3,"%D",4,0)="cross-reference is not executed when an ASSIGNED TECH (#.01) is changed"
^DD(6920.02,.01,1,3,"%D",5,0)="and the HOURS are not edited."
^DD(6920.02,.01,1,3,"DT")="2981021"
^DD(6920.02,.01,3)="ENTER THE NAMES OF ENGINEERING EMPLOYEES PERFORMING THE WORK"
^DD(6920.02,.01,10)=""
^DD(6920.02,.01,12)="SELECT ACTIVE EMPLOYEES ONLY"
^DD(6920.02,.01,12.1)="S DIC(""S"")=""S DIV=^(0) I $P(DIV,U,7)'=""""V"""""""
^DD(6920.02,.01,21,0)="^^1^1^2930429^"
^DD(6920.02,.01,21,1,0)="Engineering employee(s) assigned to this work order."
^DD(6920.02,.01,"DT")="2981021"
^DD(6920.02,1,0)="HOURS^NJ6,2X^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(6920.02,1,1,0)="^.1"
^DD(6920.02,1,1,1,0)="6920.02^AC^MUMPS"
^DD(6920.02,1,1,1,1)="I '$D(DIU(0)) D LBRCST^ENWOUTL(1) Q"
^DD(6920.02,1,1,1,2)="I '$D(DIU(0)) D LBRCST^ENWOUTL(2) Q"
^DD(6920.02,1,1,1,"%D",0)="^^3^3^2981112^"
^DD(6920.02,1,1,1,"%D",1,0)="Recalculate the TOTAL HOURS (#37) and the TOTAL LABOR COST (#37.5) in the"
^DD(6920.02,1,1,1,"%D",2,0)="WORK ORDER (#6920) file whenever the hours assigned to any technician"
^DD(6920.02,1,1,1,"%D",3,0)="changes."
^DD(6920.02,1,1,1,"DT")="2981021"
^DD(6920.02,1,3)="Type a Number between 0 and 999, 2 Decimal Digits"
^DD(6920.02,1,21,0)="^^2^2^2930429^^"
^DD(6920.02,1,21,1,0)="Number of hours (to the nearest tenth) spent on this work order"
^DD(6920.02,1,21,2,0)="by this employee."
^DD(6920.02,1,22)=""
^DD(6920.02,1,"DT")="2981021"
^DD(6920.02,2,0)="SHOP^P6922'^DIC(6922,^0;3^Q"
^DD(6920.02,2,3)="ENTER ASSIGNED SHOP"
^DD(6920.02,2,5,1,0)="6920.02^.01^1"
^DD(6920.02,2,21,0)="^^1^1^2930429^"
^DD(6920.02,2,21,1,0)="Engineering section under whose direction this work was performed."
^DD(6920.02,2,"DT")="2850326"
^DD(6920.02,"B","ASSIGNED TECH",.01)=""
^DD(6920.02,"B","HOURS",1)=""
^DD(6920.02,"B","SHOP",2)=""
^DD(6920.02,"GL",0,1,.01)=""
^DD(6920.02,"GL",0,2,1)=""
^DD(6920.02,"GL",0,3,2)=""
^DD(6920.02,"IX",.01)=""
^DD(6920.02,"IX",1)=""
^DD(6920.035,0)="WORK ACTION SUB-FIELD^^.01^1"
^DD(6920.035,0,"DT")="2930202"
^DD(6920.035,0,"NM","WORK ACTION")=""
^DD(6920.035,0,"UP")="6920"
^DD(6920.035,.01,0)="WORK ACTION^MP6920.1'X^ENG(6920.1,^0;1^D WA^ENLIB2"
^DD(6920.035,.01,1,0)="^.1^^0"
^DD(6920.035,.01,21,0)="^^1^1^2981104^^^"
^DD(6920.035,.01,21,1,0)="Type of work performed or requested."
^DD(6920.035,.01,"DT")="2970717"
^DD(6920.035,"B","WORK ACTION",.01)=""
^DD(6920.035,"GL",0,1,.01)=""
^DD(6920.1,0)="FIELD^^2^3"
^DD(6920.1,0,"DDA")="N"
^DD(6920.1,0,"DT")="2930316"
^DD(6920.1,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(6920.1,0,"IX","B",6920.1,.01)=""
^DD(6920.1,0,"IX","C",6920.11,.01)=""
^DD(6920.1,0,"IX","D",6920.1,2)=""
^DD(6920.1,0,"NM","NEW WORK ACTION")=""
^DD(6920.1,0,"PT",6920.035,.01)=""
^DD(6920.1,0,"VR")="7.0"
^DD(6920.1,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(6920.1,.01,1,0)="^.1"
^DD(6920.1,.01,1,1,0)="6920.1^B"
^DD(6920.1,.01,1,1,1)="S ^ENG(6920.1,""B"",$E(X,1,30),DA)="""""
^DD(6920.1,.01,1,1,2)="K ^ENG(6920.1,""B"",$E(X,1,30),DA)"
^DD(6920.1,.01,3)="Answer must be 3-40 characters in length."
^DD(6920.1,.01,21,0)="^^2^2^2930429^"
^DD(6920.1,.01,21,1,0)="Descriptors of work performed or actions taken.  May also indicate"
^DD(6920.1,.01,21,2,0)="that requested repair is not feasible."
^DD(6920.1,.01,"DT")="2930316"
^DD(6920.1,1,0)="SYNONYM^6920.11^^1;0"
^DD(6920.1,1,21,0)="^^1^1^2930429^^"
^DD(6920.1,1,21,1,0)="Common name for standard work action."
^DD(6920.1,2,0)="HISTORY CODE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2UN) X"
^DD(6920.1,2,1,0)="^.1"
^DD(6920.1,2,1,1,0)="6920.1^D"
^DD(6920.1,2,1,1,1)="S ^ENG(6920.1,""D"",$E(X,1,30),DA)="""""
^DD(6920.1,2,1,1,2)="K ^ENG(6920.1,""D"",$E(X,1,30),DA)"
^DD(6920.1,2,1,1,"DT")="2930203"
^DD(6920.1,2,3)="Answer must be 2 characters in length."
^DD(6920.1,2,21,0)="^^2^2^2930429^^"
^DD(6920.1,2,21,1,0)="This abbreviation is appended to the work order reference when completed"
^DD(6920.1,2,21,2,0)="work orders are posted to the Equipment Histories."
^DD(6920.1,2,"DT")="2930316"
^DD(6920.1,"B","HISTORY CODE",2)=""
^DD(6920.1,"B","NAME",.01)=""
^DD(6920.1,"B","SYNONYM",1)=""
^DD(6920.1,"GL",0,1,.01)=""
^DD(6920.1,"GL",0,2,2)=""
^DD(6920.1,"GL",1,0,1)=""
^DD(6920.1,"IX",.01)=""
^DD(6920.1,"IX",2)=""
^DD(6920.1,"RQ",.01)=""
^DD(6920.1,"SB",6920.11,1)=""
^DD(6920.11,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(6920.11,0,"DT")="2921124"
^DD(6920.11,0,"IX","B",6920.11,.01)=""
^DD(6920.11,0,"NM","SYNONYM")=""
^DD(6920.11,0,"UP")="6920.1"
^DD(6920.11,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(6920.11,.01,1,0)="^.1"
^DD(6920.11,.01,1,1,0)="6920.11^B"
^DD(6920.11,.01,1,1,1)="S ^ENG(6920.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6920.11,.01,1,1,2)="K ^ENG(6920.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6920.11,.01,1,2,0)="6920.1^C"
^DD(6920.11,.01,1,2,1)="S ^ENG(6920.1,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(6920.11,.01,1,2,2)="K ^ENG(6920.1,""C"",$E(X,1,30),DA(1),DA)"
^DD(6920.11,.01,1,2,"DT")="2921124"
^DD(6920.11,.01,3)="Answer must be 3-30 characters in length."
^DD(6920.11,.01,21,0)="^^3^3^2930225^"
^DD(6920.11,.01,21,1,0)="Informal name for physical location.  Example: 'KITCHEN',"
^DD(6920.11,.01,21,2,0)="'SICU', etc.  It's permissible for more than one location"
^DD(6920.11,.01,21,3,0)="to have the same synonym."
^DD(6920.11,.01,"DT")="2921124"
^DD(6920.11,"B","SYNONYM",.01)=""
^DD(6920.11,"GL",0,1,.01)=""
^DD(6920.11,"IX",.01)=""
^DD(6921,0)="FIELD^^.01^2"
^DD(6921,0,"DDA")="N"
^DD(6921,0,"IX","B",6921,.01)=""
^DD(6921,0,"NM","WORK CENTER CODE")=""
^DD(6921,0,"PT",6920,35.5)=""
^DD(6921,0,"VR")="7.0"
^DD(6921,.001,0)="CODE^NJ5,0^^ ^K:+X'=X!(X>55699)!(X<50100)!(X?.E1"".""1N.N) X"
^DD(6921,.001,3)="TYPE A WHOLE NUMBER BETWEEN 50100 AND 55699"
^DD(6921,.001,"DT")="2840425"
^DD(6921,.01,0)="NAME^RFX^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?5N1""/"".ANP) X"
^DD(6921,.01,1,0)="^.1"
^DD(6921,.01,1,1,0)="6921^B^MUMPS"
^DD(6921,.01,1,1,1)="S ^DIC(6921,""B"",$E(X,1,30),DA)="""" S:X[""/"" ^DIC(6921,""B"",$P($E(X,1,36),""/"",2)_""/""_$P($E(X,1,36),""/"",1),DA)="""""
^DD(6921,.01,1,1,2)="K ^DIC(6921,""B"",$E(X,1,30),DA) K:X[""/"" ^DIC(6921,""B"",$P($E(X,1,36),""/"",2)_""/""_$P($E(X,1,36),""/"",1),DA)"
^DD(6921,.01,3)="ENTER THE WORK CENTER NUMBER (5 DIGITS), A SLASH, AND THE WORK CENTER NAME (E.G., 50102/SICK LEAVE). ANSWER MUST BE 3-40 CHARACTERS"
^DD(6921,.01,21,0)="^^2^2^2930429^"
^DD(6921,.01,21,1,0)="Set of accounting codes to which repair hours can be charged."
^DD(6921,.01,21,2,0)="This information is no longer required on a national basis."
^DD(6921,.01,"DT")="2930817"
^DD(6921,"B","CODE",.001)=""
^DD(6921,"B","NAME",.01)=""
^DD(6921,"GL",0,1,.01)=""
^DD(6921,"IX",.01)=""
^DD(6921,"RQ",.01)=""
^DD(6922,0)="FIELD^NL^5^7"
^DD(6922,0,"DDA")="N"
^DD(6922,0,"DT")="2961206"
^DD(6922,0,"IX","B",6922,.01)=""
^DD(6922,0,"IX","C",6922,1)=""
^DD(6922,0,"NM","ENGINEERING SECTION LIST")=""
^DD(6922,0,"PT",6910,5)=""
^DD(6922,0,"PT",6910,5.1)=""
^DD(6922,0,"PT",6910,20)=""
^DD(6922,0,"PT",6911.01,.01)=""
^DD(6922,0,"PT",6914,77)=""
^DD(6922,0,"PT",6914.04,.01)=""
^DD(6922,0,"PT",6920,9)=""
^DD(6922,0,"PT",6920.02,2)=""
^DD(6922,0,"PT",6929,.3)=""
^DD(6922,0,"VR")="7.0"
^DD(6922,0,"VRPK")="EN"
^DD(6922,.001,0)="SECTION NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6922,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(6922,.001,21,0)="^^2^2^2950917^"
^DD(6922,.001,21,1,0)="Engineering shop number. Must be in the range of 1 thru 999. Numbers 90"
^DD(6922,.001,21,2,0)="thru 99 are reserved for use as receiving areas."
^DD(6922,.001,21,3,0)="service requests."
^DD(6922,.001,"DT")="2950917"
^DD(6922,.01,0)="ENGINEERING SECTION^RF^^0;1^K:$L(X)>21!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(6922,.01,1,0)="^.1"
^DD(6922,.01,1,1,0)="6922^B"
^DD(6922,.01,1,1,1)="S ^DIC(6922,""B"",$E(X,1,30),DA)="""""
^DD(6922,.01,1,1,2)="K ^DIC(6922,""B"",$E(X,1,30),DA)"
^DD(6922,.01,3)="ANSWER MUST BE 3-21 CHARACTERS IN LENGTH"
^DD(6922,.01,4)=""
^DD(6922,.01,21,0)="^^5^5^2961212^"
^DD(6922,.01,21,1,0)="Engineering Shop or Receiving Area for electronic work orders."
^DD(6922,.01,21,2,0)="Receiving Areas should be numbered so that they end with 90"
^DD(6922,.01,21,3,0)="thru 99, inclusive (ex: 90,91,190,295, etc.). Working shops"
^DD(6922,.01,21,4,0)="should not be given numbers within the range reserved for"
^DD(6922,.01,21,5,0)="Receiving Areas."
^DD(6922,.01,"DT")="2830914"
^DD(6922,1,0)="ABBREVIATION^RFX^^0;2^K:$L(X)>3!($L(X)<1)!(X'?.U) X I $G(DIUTIL)'=""VERIFY FIELDS"",$D(X),$D(^DIC(6922,""C"",X)) D EN^DDIOL($C(7)_""IN USE (Section #: ""_$O(^DIC(6922,""C"",X,0))_"")."","""",""!?15"") K X"
^DD(6922,1,1,0)="^.1"
^DD(6922,1,1,1,0)="6922^C"
^DD(6922,1,1,1,1)="S ^DIC(6922,""C"",$E(X,1,30),DA)="""""
^DD(6922,1,1,1,2)="K ^DIC(6922,""C"",$E(X,1,30),DA)"
^DD(6922,1,1,1,"DT")="2961206"
^DD(6922,1,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH, UPPER CASE ONLY"
^DD(6922,1,21,0)="^^3^3^2961206^^"
^DD(6922,1,21,1,0)="One, two, or three characters that identify the shop."
^DD(6922,1,21,2,0)="Included in computer generated work order numbers."
^DD(6922,1,21,3,0)="Must be unique for each shop."
^DD(6922,1,"DT")="2980424"
^DD(6922,2,0)="DEVICE^P3.5'^%ZIS(1,^0;3^Q"
^DD(6922,2,3)="INPUT THE DEVICE NUMBER WHICH WILL BE THE OUTPUT DEVICE FOR THIS ENGINEERING SECTION."
^DD(6922,2,21,0)="^^2^2^2930209^"
^DD(6922,2,21,1,0)="The device to be used for automatic printing of new work orders, if"
^DD(6922,2,21,2,0)="that ENGINEERING SOFTWARE OPTION has been selected."
^DD(6922,2,"DT")="2930209"
^DD(6922,3,0)="PM MONTH^6922.03DA^^1;0"
^DD(6922,3,21,0)="^^2^2^2930429^^^^"
^DD(6922,3,21,1,0)="Keeps track of man-hours spent on preventive maintenance.  Data is"
^DD(6922,3,21,2,0)="uploaded automatically via the PM Closeout software."
^DD(6922,3,"DT")="2930318"
^DD(6922,4,0)="ASK CONDITION CODE^S^0:NEVER;1:WHEN VALUE > $4999.99;2:ALWAYS;^0;4^Q"
^DD(6922,4,3)="Specify when equipment condition codes are asked during work order close out."
^DD(6922,4,21,0)="^^9^9^2941213^"
^DD(6922,4,21,1,0)="This field will be checked during close out of the shop's equipment work"
^DD(6922,4,21,2,0)="orders to determine if the equipment's CONDITION CODE should be asked."
^DD(6922,4,21,3,0)=" "
^DD(6922,4,21,4,0)="(0) NEVER - Condition code will not be asked."
^DD(6922,4,21,5,0)=" "
^DD(6922,4,21,6,0)="(1) WHEN VALUE > $4999.99 - Condition code will be asked if the"
^DD(6922,4,21,7,0)="equipment's acquisition value is greater than $4999.99."
^DD(6922,4,21,8,0)=" "
^DD(6922,4,21,9,0)="(2) ALWAYS - Condition code will be asked."
^DD(6922,4,"DT")="2941213"
^DD(6922,5,0)="EXPANDED WORK ORDER CLOSEOUT^S^0:NO;1:YES;^0;5^Q"
^DD(6922,5,3)="Enter YES to have more questions asked during work order closeout for this shop."
^DD(6922,5,21,0)="^^6^6^2960829^"
^DD(6922,5,21,1,0)="This field determines the input template that will be used during close"
^DD(6922,5,21,2,0)="out of the shop's work orders. If this field is set to YES then template"
^DD(6922,5,21,3,0)="ENWOBIOCLSE (or ENZWOBIOCLSE) will be used. Otherwise template ENWOCLOSE"
^DD(6922,5,21,4,0)="(or ENZWOCLOSE) will be used. The ENWOBIOCLSE template is traditionally"
^DD(6922,5,21,5,0)="used by Biomed shops. It contains several additional prompts for equipment"
^DD(6922,5,21,6,0)="related data fields."
^DD(6922,5,"DT")="2960829"
^DD(6922,"B","ABBREVIATION",1)=""
^DD(6922,"B","ASK CONDITION CODE",4)=""
^DD(6922,"B","DEVICE",2)=""
^DD(6922,"B","ENGINEERING SECTION",.01)=""
^DD(6922,"B","EXPANDED WORK ORDER CLOSEOUT",5)=""
^DD(6922,"B","PM MONTH",3)=""
^DD(6922,"B","SECTION NUMBER",.001)=""
^DD(6922,"GL",0,1,.01)=""
^DD(6922,"GL",0,2,1)=""
^DD(6922,"GL",0,3,2)=""
^DD(6922,"GL",0,4,4)=""
^DD(6922,"GL",0,5,5)=""
^DD(6922,"GL",1,0,3)=""
^DD(6922,"IX",.01)=""
^DD(6922,"IX",1)=""
^DD(6922,"RQ",.01)=""
^DD(6922,"RQ",1)=""
^DD(6922,"SB",6922.03,3)=""
^DD(6922.03,0)="PM MONTH SUB-FIELD^^1^2"
^DD(6922.03,0,"DT")="2930210"
^DD(6922.03,0,"IX","B",6922.03,.01)=""
^DD(6922.03,0,"NM","PM MONTH")=""
^DD(6922.03,0,"UP")="6922"
^DD(6922.03,.01,0)="PM MONTH^DI^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6922.03,.01,1,0)="^.1"
^DD(6922.03,.01,1,1,0)="6922.03^B"
^DD(6922.03,.01,1,1,1)="S ^DIC(6922,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6922.03,.01,1,1,2)="K ^DIC(6922,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6922.03,.01,"DT")="2930318"
^DD(6922.03,1,0)="TECHNICIAN^6922.31PA^^1;0"
^DD(6922.03,1,21,0)="^^1^1^2930429^^"
^DD(6922.03,1,21,1,0)="Technician who performed PM work for this shop."
^DD(6922.03,1,"DT")="2930429"
^DD(6922.03,"B","PM MONTH",.01)=""
^DD(6922.03,"B","TECHNICIAN",1)=""
^DD(6922.03,"GL",0,1,.01)=""
^DD(6922.03,"GL",1,0,1)=""
^DD(6922.03,"IX",.01)=""
^DD(6922.03,"SB",6922.31,1)=""
^DD(6922.31,0)="TECHNICIAN SUB-FIELD^^1^2"
^DD(6922.31,0,"DT")="2930210"
^DD(6922.31,0,"IX","B",6922.31,.01)=""
^DD(6922.31,0,"NM","TECHNICIAN")=""
^DD(6922.31,0,"UP")="6922.03"
^DD(6922.31,.01,0)="TECHNICIAN^P6929'I^ENG(""EMP"",^0;1^Q"
^DD(6922.31,.01,1,0)="^.1"
^DD(6922.31,.01,1,1,0)="6922.31^B"
^DD(6922.31,.01,1,1,1)="S ^DIC(6922,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6922.31,.01,1,1,2)="K ^DIC(6922,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6922.31,.01,"DT")="2930324"
^DD(6922.31,1,0)="MANHOURS^NJ10,2I^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(6922.31,1,3)="Type a Number between 0 and 9999999, 2 Decimal Digits"
^DD(6922.31,1,21,0)="^^1^1^2930210^"
^DD(6922.31,1,21,1,0)="Total PM manhours for this tech for this month for this shop."
^DD(6922.31,1,"DT")="2930324"
^DD(6922.31,"B","MANHOURS",1)=""
^DD(6922.31,"B","TECHNICIAN",.01)=""
^DD(6922.31,"GL",0,1,.01)=""
^DD(6922.31,"GL",0,2,1)=""
^DD(6922.31,"IX",.01)=""
^DD(6924,0)="FIELD^^57.5^61"
^DD(6924,0,"DDA")="N"
^DD(6924,0,"DT")="2930429"
^DD(6924,0,"IX","B",6924,.01)=""
^DD(6924,0,"IX","C",6924,1)=""
^DD(6924,0,"IX","D",6924,9)=""
^DD(6924,0,"IX","E",6924,11)=""
^DD(6924,0,"NM","FSA-2162 REPORT")=""
^DD(6924,0,"VR")="7.0"
^DD(6924,.01,0)="LOCAL ENGINEERING #^RF^^0;1^K:X[""""""""!($A(X)=45) X K:$L(X)>8!($L(X)<8)!'(X?8N)!(X'?.ANP) X I $D(X),$D(^ENG(""FSA"",""B"",X)) W !,*7,""Sorry, number already taken"" K X"
^DD(6924,.01,1,0)="^.1"
^DD(6924,.01,1,1,0)="6924^B"
^DD(6924,.01,1,1,1)="S ^ENG(""FSA"",""B"",$E(X,1,30),DA)="""""
^DD(6924,.01,1,1,2)="K ^ENG(""FSA"",""B"",$E(X,1,30),DA)"
^DD(6924,.01,3)="Answer must be 8 characters in length."
^DD(6924,.01,21,0)="^^3^3^2980223^"
^DD(6924,.01,21,1,0)="Computer generated record identfier in the form YYYYNNNN where YYYY is"
^DD(6924,.01,21,2,0)="the four digit fiscal year and NNNN is a computer generated sequential"
^DD(6924,.01,21,3,0)="number."
^DD(6924,.01,"DT")="2980223"
^DD(6924,1,0)="CASE NUMBER^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6924,1,1,0)="^.1"
^DD(6924,1,1,1,0)="6924^C"
^DD(6924,1,1,1,1)="S ^ENG(""FSA"",""C"",$E(X,1,30),DA)="""""
^DD(6924,1,1,1,2)="K ^ENG(""FSA"",""C"",$E(X,1,30),DA)"
^DD(6924,1,3)="ANSWER MUST BE 4 DIGITS IN LENGTH"
^DD(6924,1,21,0)="^^1^1^2930429^"
^DD(6924,1,21,1,0)="Case number assigned by the site."
^DD(6924,2,0)="REPORT TYPE^S^I:INITIAL;S:SUPPLEMENTAL;C:CORRECTED;^0;3^Q"
^DD(6924,2,21,0)="^^1^1^2930429^"
^DD(6924,2,21,1,0)="Type of transaction being processed."
^DD(6924,3,0)="RESULT^S^P:PROPERTY ONLY;I:INJURY or ILLNESS;B:BOTH;^0;4^Q"
^DD(6924,3,21,0)="^^1^1^2930429^"
^DD(6924,3,21,1,0)="Result of the accident."
^DD(6924,4,0)="ACCIDENT CLASS^S^A:MOTOR VEHICLE;B:LABORATORY;C:OFFICE;G:ASSEMBLY;J:PATIENT CARE;L:STORAGE;M:GROUNDS;N:DIETETICS;Z:OTHER;^0;5^Q"
^DD(6924,4,21,0)="^^1^1^2930429^"
^DD(6924,4,21,1,0)="Classification of accident being reported."
^DD(6924,5,0)="OCCURRENCE DATE^D^^0;6^S %DT=""EX"" D ^%DT S X=Y K:4001200<X!(2800000>X) X"
^DD(6924,5,3)="TYPE A DATE BETWEEN 1980 AND 2100"
^DD(6924,5,21,0)="^^1^1^2980225^^"
^DD(6924,5,21,1,0)="Date of accident."
^DD(6924,5,"DT")="2980225"
^DD(6924,6,0)="OCCURRENCE TIME^F^^0;7^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6924,6,3)="ENTER MILITARY TIME (0000-2400 HRS.)"
^DD(6924,6,21,0)="^^1^1^2930429^"
^DD(6924,6,21,1,0)="Time of accident (on a 24 hour clock)."
^DD(6924,7,0)="SITE^S^A:ON REPORTING ACTIVITY PROPERTY;B:OFF REPORTING ACTIVITY PROPERTY;^0;8^Q"
^DD(6924,7,21,0)="^^1^1^2930429^"
^DD(6924,7,21,1,0)="Classification of accident location."
^DD(6924,7.5,0)="SPECIFIC LOCATION^F^^0;9^K:$L(X)>25!($L(X)<4) X"
^DD(6924,7.5,3)="ANSWER MUST BE 4-25 CHARACTERS IN LENGTH"
^DD(6924,7.5,21,0)="^^1^1^2930429^"
^DD(6924,7.5,21,1,0)="Text description of location where accident happened."
^DD(6924,8,0)="TORT CLAIM^S^Y:YES, IS POSSIBLE;N:NO, NOT POSSIBLE;^0;10^Q"
^DD(6924,8,21,0)="^^2^2^2930429^"
^DD(6924,8,21,1,0)="Investigator's opinion as to whether or not legal action against"
^DD(6924,8,21,2,0)="the agency is likely because of this accident."
^DD(6924,9,0)="LAST NAME OF INVOLVED^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?.C) X"
^DD(6924,9,1,0)="^.1"
^DD(6924,9,1,1,0)="6924^D"
^DD(6924,9,1,1,1)="S ^ENG(""FSA"",""D"",$E(X,1,30),DA)="""""
^DD(6924,9,1,1,2)="K ^ENG(""FSA"",""D"",$E(X,1,30),DA)"
^DD(6924,9,3)="ANSWER MUST BE LAST NAME, 3-16 CHARACTERS IN LENGTH"
^DD(6924,9,21,0)="^^1^1^2930429^^"
^DD(6924,9,21,1,0)="Name of person affected by accident."
^DD(6924,10,0)="FIRST/MIDDLE INITIALS^F^^1;2^K:$L(X)>2!($L(X)<1)!'(X?.A) X"
^DD(6924,10,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(6924,10,21,0)="^^1^1^2930429^"
^DD(6924,10,21,1,0)="First name and middle initial of person affected by accident."
^DD(6924,11,0)="SSN^FO^^1;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<9)!'(X?9N.""P"") X"
^DD(6924,11,1,0)="^.1"
^DD(6924,11,1,1,0)="6924^E"
^DD(6924,11,1,1,1)="S ^ENG(""FSA"",""E"",$E(X,1,30),DA)="""""
^DD(6924,11,1,1,2)="K ^ENG(""FSA"",""E"",$E(X,1,30),DA)"
^DD(6924,11,2)="S Y(0)=Y X ^DD(6924,11,2,9.2) S Y(7)=X S X=6,Y(8)=X S X=9,X=$E(Y(7),Y(8),X) S Y=X,X=Y(6),X=X_Y S Y=X"
^DD(6924,11,2,9.2)="S X=Y(0),Y(1)=X S X=1,Y(2)=X S X=3,X=$E(Y(1),Y(2),X)_""-"",Y(3)=X S X=Y(0),Y(4)=X S X=4,Y(5)=X S X=5,X=$E(Y(4),Y(5),X) S Y=X,X=Y(3),X=X_Y_""-"",Y(6)=X S X=Y(0)"
^DD(6924,11,2.1)="$E(SSN,1,3)_""-""_$E(SSN,4,5)_""-""_$E(SSN,6,9)"
^DD(6924,11,3)="ANSWER MUST BE 9DIGITS IN LENGTH, AFFIX 'P' FOR PSEUDO IF UNSURE"
^DD(6924,11,21,0)="^^1^1^2930429^"
^DD(6924,11,21,1,0)="Social security number of person affected by accident."
^DD(6924,12,0)="SEX^S^M:MALE;F:FEMALE;^1;4^Q"
^DD(6924,12,21,0)="^^1^1^2930429^"
^DD(6924,12,21,1,0)="Sex of person affected by accident."
^DD(6924,13,0)="PERSONNEL STATUS^S^A:EMPLOYEE;B:VOLUNTEER;C:CONTRACTOR;D:INPATIENT;E:OUTPATIENT;F:STUDENT;G:VISITOR;Z:PERSON N.E.C.;^1;5^Q"
^DD(6924,13,3)="SELECT CODE, N.E.C. MEANS NOT ELSEWHERE CLASSIFIED"
^DD(6924,13,21,0)="^^2^2^2930429^"
^DD(6924,13,21,1,0)="Employment status of person affected by accident at the reporting"
^DD(6924,13,21,2,0)="facility."
^DD(6924,14,0)="AGE^NJ2,0^^1;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6924,14,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(6924,14,21,0)="^^1^1^2930429^"
^DD(6924,14,21,1,0)="Age of person affected by accident at time of accident."
^DD(6924,15,0)="PAY PLAN^F^^1;7^K:$L(X)>2!($L(X)<2)!'(X?2A) X"
^DD(6924,15,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH, (e.g. GS, WG, WS, etc.)"
^DD(6924,15,21,0)="^^2^2^2930429^"
^DD(6924,15,21,1,0)="Pay plan of person affected by accident, if said person is a"
^DD(6924,15,21,2,0)="government employee."
^DD(6924,16,0)="OCCUPATIONAL CODE^F^^1;8^K:$L(X)>5!($L(X)<5)!'(X?5N) X"
^DD(6924,16,3)="ANSWER MUST BE 5 DIGITS IN LENGTH, (e.g. 00858)"
^DD(6924,16,21,0)="^^1^1^2930429^"
^DD(6924,16,21,1,0)="Position classification (from position description)."
^DD(6924,17,0)="GRADE^F^^1;9^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6924,17,3)="ANSWER MUST BE 2 DIGITS IN LENGTH, (e.g. 07)"
^DD(6924,17,21,0)="^^1^1^2930429^"
^DD(6924,17,21,1,0)="Civil service pay grade of person affected by accident."
^DD(6924,18,0)="HOME ADDRESS^6924.01^^2;0"
^DD(6924,18,21,0)="^^1^1^2930429^"
^DD(6924,18,21,1,0)="Home address of person affected by accident."
^DD(6924,19,0)="HOME PHONE #^F^^3;1^K:$L(X)>12!($L(X)<7)!'(X'?.C) X"
^DD(6924,19,3)="ANSWER MUST BE 7-12 CHARACTERS IN LENGTH (e.g. 215-555-1212)"
^DD(6924,19,21,0)="^^1^1^2930429^"
^DD(6924,19,21,1,0)="Home phone number (including area code) of person affected by accident."
^DD(6924,20,0)="WORK PHONE #^F^^3;2^K:$L(X)>17!($L(X)<3)!'(X'?.C) X"
^DD(6924,20,3)="ANSWER MUST BE 3-17 CHARACTERS IN LENGTH"
^DD(6924,20,21,0)="^^1^1^2930429^"
^DD(6924,20,21,1,0)="Work phone (or extension) of person affected by accident."
^DD(6924,21,0)="CA1/CA2^S^Y:YES;N:NO;^3;3^Q"
^DD(6924,21,21,0)="^^1^1^2930429^"
^DD(6924,21,21,1,0)="Is an Office of Workmen's Compensation claim being filed?"
^DD(6924,22,0)="TIME ON DUTY^F^^3;4^K:$L(X)>2!($L(X)<1)!'(X?1N.N) X"
^DD(6924,22,3)="ENTER NEAREST NUMBER OF WHOLE HOURS ON DUTY"
^DD(6924,22,21,0)="^^1^1^2930429^"
^DD(6924,22,21,1,0)="Time an employee had been on duty (in hours) when accident happened."
^DD(6924,23,0)="DUTY STATUS^S^A:FULL TIME EMPL ON DUTY;B:TEMP EMPLOYEE ON DUTY;C:PART TIME EMPL ON DUTY;D:NON-PAID EMPL ON DUTY;Z:STATUS N.E.C.;^3;5^Q"
^DD(6924,23,21,0)="^^1^1^2930429^"
^DD(6924,23,21,1,0)="Official payroll status of person affected by accident."
^DD(6924,24,0)="ACCIDENT ACTIVITY^P6924.1'^ENG(6924.1,^3;6^Q"
^DD(6924,24,3)="SELECT MOST APPROPRIATE ACTIVITY"
^DD(6924,24,4)=""
^DD(6924,24,21,0)="^^1^1^2930429^^"
^DD(6924,24,21,1,0)="Classification of accident in accordance with standardized schema."
^DD(6924,25,0)="SERVICE/DIVISION #^P6924.3'^ENG(6924.3,^3;7^Q"
^DD(6924,25,21,0)="^^1^1^2930429^"
^DD(6924,25,21,1,0)="Service affiliation of person affected by accident."
^DD(6924,26,0)="SEVERITY OF INJURY^S^1:NO TREATMENT REQUIRED;2:FIRST AID ONLY;3:MEDICAL TREATMENT ONLY;4:DIAGNOSIS OF ILLNESS;5:DISABLING;8:FATALITY;^4;1^Q"
^DD(6924,26,21,0)="^^1^1^2930429^"
^DD(6924,26,21,1,0)="Extent of injury sustained."
^DD(6924,27,0)="CULMINATION^S^1:NO RESTRICTION;2:RESTRICTED;4:PERMANENT TRANSFER;5:TERMINATED;^4;2^Q"
^DD(6924,27,21,0)="^^2^2^2930429^"
^DD(6924,27,21,1,0)="Outcome of accident with respect to employment status of person"
^DD(6924,27,21,2,0)="affected."
^DD(6924,28,0)="RESTRICTED WORK DAYS^F^^4;3^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6924,28,3)="ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0012)"
^DD(6924,28,21,0)="^^2^2^2930429^"
^DD(6924,28,21,1,0)="Number of days for which person affected by accident was restricted"
^DD(6924,28,21,2,0)="from performance of normal duties."
^DD(6924,29,0)="LOST WORK DAYS^F^^4;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(6924,29,3)="ANSWER MUST BE 4 DIGITS IN LENGTH, (e.g. 0004)"
^DD(6924,29,21,0)="^^2^2^2930429^"
^DD(6924,29,21,1,0)="Number of days that person affected by accident was unable to"
^DD(6924,29,21,2,0)="report for work."
^DD(6924,30,0)="INJURY/ILLNESS NATURE^P6924.2'^ENG(6924.2,^4;5^Q"
^DD(6924,30,21,0)="^^2^2^2930429^"
^DD(6924,30,21,1,0)="Classification of accident or illness in accordance with standardized"
^DD(6924,30,21,2,0)="schema."
^DD(6924,31,0)="BODY PART AFFECTED^S^01:HEAD;16:CHEST OR ABDOMEN;45:BACK;46:SHOULDER/ARM/HAND;61:HIP/LEG/FOOT;^4;6^Q"
^DD(6924,31,21,0)="^^1^1^2930429^"
^DD(6924,31,21,1,0)="Indicator of anatomical region most affected by accident."
^DD(6924,31,"DT")="2860807"
^DD(6924,32,0)="CAUSE OF INJURY^S^A:STRUCK AGAINST;B:STRUCK BY;D:SLIP/TRIP/FALL;F:CAUGHT IN/UNDER OR BETWEEN;I:ILLNESS;J:OVER EXERTION;K:ELECTRIC CURRENT;L:EXTREME TEMPERATURE;M:CHEMICALS;O:RADIATION;T:ASSULT;X:CAUSE N.E.C.;^4;7^Q"
^DD(6924,32,21,0)="^^1^1^2930429^"
^DD(6924,32,21,1,0)="Indicator of type of accident."
^DD(6924,32,"DT")="2860807"
^DD(6924,32.5,0)="NEEDLE STICK?^S^Y:YES INJURY INVOLVED NEEDLE;N:NO INJURY DID NOT INVOLVE NEEDLE;^4;8^Q"
^DD(6924,32.5,21,0)="^^2^2^2930429^"
^DD(6924,32.5,21,1,0)="Is this accident an inadvertent skin puncture involving a"
^DD(6924,32.5,21,2,0)="hypodermic needle?"
^DD(6924,32.5,"DT")="2860807"
^DD(6924,33,0)="PROPERTY OWNERSHIP^S^A:VETERANS ADMINISTRATION;C:OTHER FEDERAL AGENCY;H:PRIVATE;L:OWNERSHIP N.E.C.;^5;1^Q"
^DD(6924,33,21,0)="^^1^1^2930429^"
^DD(6924,33,21,1,0)="Ownership of property (if any) involved in accident."
^DD(6924,34,0)="AMOUNT OF DAMAGE^NJ10,2^^5;2^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(6924,34,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(6924,34,21,0)="^^1^1^2930429^"
^DD(6924,34,21,1,0)="Estimate of damage resulting from the accident."
^DD(6924,34,"DT")="2930429"
^DD(6924,35,0)="PROPERTY DAMAGED^S^AA:MOTOR VEHICLE;AG:OTHER VEHICLE;EA:BLDG./STRUCTURE;FA:EQUIPMENT;GA:SUPPLIES;IA:FURNITURE;JA:RECORDS;KA:TREES/GRASS/PLANTS;BA:BEDDING/CLOTHES;CA:INTERIOR FINISH;HA:TRASH/RUBBISH;ZA:PROPERTY N.E.C.;^5;3^Q"
^DD(6924,35,21,0)="^^1^1^2930429^"
^DD(6924,35,21,1,0)="Type of property (if any) damaged in the accident."
^DD(6924,36,0)="YEAR MANUFACTURED^F^^5;4^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(6924,36,3)="ANSWER MUST BE 2 DIGITS IN LENGTH (e.g. 85)"
^DD(6924,36,21,0)="^^2^2^2930429^"
^DD(6924,36,21,1,0)="Last two digits of year in which damaged property (if any) was"
^DD(6924,36,21,2,0)="manufactured."
^DD(6924,37,0)="WEATHER FACTOR^S^A:SNOW/ICE;B:DUST STORM;C:LIGHTNING;D:HIGH TEMPERATURE;E:LOW TEMPERATURE;F:HUMIDITY;H:FOG;J:RAIN;N:WIND STORM;P:WEATHER N.E.C.;Z:WEATHER NOT A FACTOR;^6;1^Q"
^DD(6924,37,21,0)="^^1^1^2930429^"
^DD(6924,37,21,1,0)="Weather conditions at time of accident."
^DD(6924,38,0)="SOURCE OF ACCIDENT^S^01AA:UNPOWERED EQUIP/FURNISHINGS/SUPPLIES;11AA:POWERED EQUIP/APPLIANCES/MACHINES;33AA:BLDG MATERIAL, FEATURE OR CONDITION;44AA:TOXIC SUBSTANCE/RADIATION EXPOSURE;77AA:VEHICLE;81AA:PERSON;82ZZ:SOURCE N.E.C.;^6;2^Q"
^DD(6924,38,21,0)="^^1^1^2930429^"
^DD(6924,38,21,1,0)="Causative agent of damage to people and/or property."
^DD(6924,39,0)="CAUSE OF ACCIDENT^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;FA:CAUSE UNKNOWN;^6;3^Q"
^DD(6924,39,21,0)="^^1^1^2930429^"
^DD(6924,39,21,1,0)="Investigator's opinion as to principal cause of accident."
^DD(6924,40,0)="ADDITIONAL CAUSE^S^AA:EQUIPMENT OR ENVIRONMENT;BA:PERSON;CA:NATURE;ZZ:NO ADDITIONAL CAUSE;^6;4^Q"
^DD(6924,40,21,0)="^^1^1^2930430^^"
^DD(6924,40,21,1,0)="Secondary cause of accident."
^DD(6924,41,0)="FIRE-FORM OF IGNITION^S^21:ELECTRICAL ARC;31:SMOKING MATERIAL (CIGARETTES,ETC);61:SOURCE N.E.C.;71:SOURCE UNKNOWN;^6;5^Q"
^DD(6924,41,3)="LEAVE BLANK IF FIRE NOT INVOLVED"
^DD(6924,41,21,0)="^^2^2^2930430^"
^DD(6924,41,21,1,0)="Means by which fire was ignited.  Leave blank for other types"
^DD(6924,41,21,2,0)="of accidents."
^DD(6924,42,0)="FIRE..MATERIAL BURNED^S^11:GAS;21:LIQUID;31:SOLID;41:LIQUID & GAS;71:SOLID & GAS;81:SOLID & LIQUID;^6;6^Q"
^DD(6924,42,3)="LEAVE BLANK IF NO FIRE"
^DD(6924,42,21,0)="^^1^1^2930430^"
^DD(6924,42,21,1,0)="Principal fuel for the fire.  Leave blank for other types of accidents."
^DD(6924,43,0)="FIRE..MATERIAL FORM^S^GZ:ALL FIRES;^6;7^Q"
^DD(6924,43,3)="ENTER 'GZ' FOR ALL FIRES, OTHERWISE LEAVE BLANK"
^DD(6924,43,21,0)="^^1^1^2930430^"
^DD(6924,43,21,1,0)="Indicates that accident was a fire."
^DD(6924,44,0)="BEST PREVENTATIVE^S^A:TRAINING;B:MORE STAFF;C:MOTIVATION;D:BETTER EQUIPMENT/MATERIAL;E:BETTER PLANNING & COORDINATION;F:IMPROVED WRITTEN PROCEDURES;G:MORE FUNDS FOR HAZARD ELIMINATION;H:PERSONNEL ACTION;I:PREVENTATIVE N.E.C.;Z:NONE;^6;8^Q"
^DD(6924,44,21,0)="^^2^2^2930430^"
^DD(6924,44,21,1,0)="Investigator's opinion as to the best safeguard against future"
^DD(6924,44,21,2,0)="incidents of this kind."
^DD(6924,44,"DT")="2920427"
^DD(6924,45,0)="CORRECTIVE ACTION^S^A:TAKEN;B:REQUIRED & ANTICIPATED;C:REQUESTED;D:NONE;^6;9^Q"
^DD(6924,45,21,0)="^^1^1^2930430^"
^DD(6924,45,21,1,0)="Status of corrective action(s) at time of this report."
^DD(6924,46,0)="ACCIDENT NARRATIVE^6924.02^^7;0"
^DD(6924,46,21,0)="^^2^2^2930430^"
^DD(6924,46,21,1,0)="Detailed description of the accident, including events leading up"
^DD(6924,46,21,2,0)="to it."
^DD(6924,47,0)="WITNESSES^F^^6;10^K:$L(X)>65!($L(X)<3)!'(X'?.C) X"
^DD(6924,47,3)="ANSWER MUST BE 3-65 CHARACTERS IN LENGTH"
^DD(6924,47,21,0)="^^1^1^2930430^"
^DD(6924,47,21,1,0)="Names of individuals who witnessed the accident."
^DD(6924,48,0)="CORRECTIVE NARRATION^6924.03^^8;0"
^DD(6924,48,21,0)="^^2^2^2930430^"
^DD(6924,48,21,1,0)="Detailed description of action(s) taken or planned to prevent"
^DD(6924,48,21,2,0)="similar incidents in the future."
^DD(6924,49,0)="INITIATOR NAME^F^^9;1^K:$L(X)>20!($L(X)<3)!'(X'?.C) X"
^DD(6924,49,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(6924,49,21,0)="^^1^1^2930430^"
^DD(6924,49,21,1,0)="Name of person who initiated this report."
^DD(6924,49,"DT")="2930430"
^DD(6924,50,0)="INITIATOR TITLE^F^^9;2^K:$L(X)>20!($L(X)<2)!'(X'?.C) X"
^DD(6924,50,3)="ANSWER MUST BE 2-20 CHARACTERS IN LENGTH"
^DD(6924,50,21,0)="^^1^1^2930430^"
^DD(6924,50,21,1,0)="Job title of initiator."
^DD(6924,51,0)="INITIATOR DATE SIGNED^D^^9;3^S %DT=""E"" D ^%DT S X=Y K:4001200<X!(2800000>X) X"
^DD(6924,51,3)="TYPE A DATE BETWEEN 1980 AND 2100"
^DD(6924,51,21,0)="^^1^1^2930430^"
^DD(6924,51,21,1,0)="Date on which accident report was signed by initiator."
^DD(6924,51,"DT")="2980225"
^DD(6924,52,0)="INITIATOR PHONE #^F^^9;4^K:$L(X)>12!($L(X)<3)!'(X'?.C) X"
^DD(6924,52,3)="ANSWER MUST BE 3-12 CHARACTERS IN LENGTH"
^DD(6924,52,21,0)="^^1^1^2930430^"
^DD(6924,52,21,1,0)="Phone number (or extension) of person who initiated this report."
^DD(6924,53,0)="REVIEW AUTHORITY NAME^F^^9;5^K:$L(X)>20!($L(X)<3)!'(X'?.C) X"
^DD(6924,53,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(6924,53,21,0)="^^1^1^2930430^"
^DD(6924,53,21,1,0)="Name of reviewing official."
^DD(6924,54,0)="REVIEW AUTHORITY TITLE^F^^9;6^K:$L(X)>20!($L(X)<3)!'(X'?.C) X"
^DD(6924,54,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(6924,54,21,0)="^^1^1^2930430^"
^DD(6924,54,21,1,0)="Job title of reviewing official."
^DD(6924,55,0)="REVIEW AUTHORITY DATE^D^^9;7^S %DT=""E"" D ^%DT S X=Y K:4001200<X!(2800000>X) X"
^DD(6924,55,3)="TYPE A DATE BETWEEN 1980 AND 2100"
^DD(6924,55,21,0)="^^1^1^2930430^"
^DD(6924,55,21,1,0)="Date on which review of accident by reviewing official was completed."
^DD(6924,55,"DT")="2980225"
^DD(6924,56,0)="REVIEW AUTHORITY PHONE^F^^9;8^K:$L(X)>12!($L(X)<3)!'(X'?.C) X"
^DD(6924,56,3)="ANSWER MUST BE 3-12 DIGITS IN LENGTH"
^DD(6924,56,21,0)="^^1^1^2930430^"
^DD(6924,56,21,1,0)="Telephone number (or extension) of reviewing official."
^DD(6924,57,0)="EVALUATION OF REPORT^6924.04^^10;0"
^DD(6924,57,21,0)="^^1^1^2930430^"
^DD(6924,57,21,1,0)="Reviewer's notes on the result of his/her investigation."
^DD(6924,57.5,0)="REPORT STATUS^S^Y:YES, 2162 REPORT COMPLETED;N:NO 2162 REPORT NOT COMPLETED;^9;9^Q"
^DD(6924,57.5,21,0)="^^1^1^2930430^"
^DD(6924,57.5,21,1,0)="Completion status of this report."
^DD(6924,"B","ACCIDENT ACTIVITY",24)=""
^DD(6924,"B","ACCIDENT CLASS",4)=""
^DD(6924,"B","ACCIDENT NARRATIVE",46)=""
^DD(6924,"B","ADDITIONAL CAUSE",40)=""
^DD(6924,"B","AGE",14)=""
^DD(6924,"B","AMOUNT OF DAMAGE",34)=""
^DD(6924,"B","BEST PREVENTATIVE",44)=""
^DD(6924,"B","BODY PART AFFECTED",31)=""
^DD(6924,"B","CA1/CA2",21)=""
^DD(6924,"B","CASE NUMBER",1)=""
^DD(6924,"B","CAUSE OF ACCIDENT",39)=""
^DD(6924,"B","CAUSE OF INJURY",32)=""
^DD(6924,"B","CORRECTIVE ACTION",45)=""
^DD(6924,"B","CORRECTIVE NARRATION",48)=""
^DD(6924,"B","CULMINATION",27)=""
^DD(6924,"B","DUTY STATUS",23)=""
^DD(6924,"B","EVALUATION OF REPORT",57)=""
^DD(6924,"B","FIRE-FORM OF IGNITION",41)=""
^DD(6924,"B","FIRE..MATERIAL BURNED",42)=""
^DD(6924,"B","FIRE..MATERIAL FORM",43)=""
^DD(6924,"B","FIRST/MIDDLE INITIALS",10)=""
^DD(6924,"B","GRADE",17)=""
^DD(6924,"B","HOME ADDRESS",18)=""
^DD(6924,"B","HOME PHONE #",19)=""
^DD(6924,"B","INITIATOR DATE SIGNED",51)=""
^DD(6924,"B","INITIATOR NAME",49)=""
^DD(6924,"B","INITIATOR PHONE #",52)=""
^DD(6924,"B","INITIATOR TITLE",50)=""
^DD(6924,"B","INJURY/ILLNESS NATURE",30)=""
^DD(6924,"B","LAST NAME OF INVOLVED",9)=""
^DD(6924,"B","LOCAL ENGINEERING #",.01)=""
^DD(6924,"B","LOST WORK DAYS",29)=""
^DD(6924,"B","NEEDLE STICK?",32.5)=""
^DD(6924,"B","OCCUPATIONAL CODE",16)=""
^DD(6924,"B","OCCURRENCE DATE",5)=""
^DD(6924,"B","OCCURRENCE TIME",6)=""
^DD(6924,"B","PAY PLAN",15)=""
^DD(6924,"B","PERSONNEL STATUS",13)=""
^DD(6924,"B","PROPERTY DAMAGED",35)=""
^DD(6924,"B","PROPERTY OWNERSHIP",33)=""
^DD(6924,"B","REPORT STATUS",57.5)=""
^DD(6924,"B","REPORT TYPE",2)=""
^DD(6924,"B","RESTRICTED WORK DAYS",28)=""
^DD(6924,"B","RESULT",3)=""
^DD(6924,"B","REVIEW AUTHORITY DATE",55)=""
^DD(6924,"B","REVIEW AUTHORITY NAME",53)=""
^DD(6924,"B","REVIEW AUTHORITY PHONE",56)=""
^DD(6924,"B","REVIEW AUTHORITY TITLE",54)=""
^DD(6924,"B","SERVICE/DIVISION #",25)=""
^DD(6924,"B","SEVERITY OF INJURY",26)=""
^DD(6924,"B","SEX",12)=""
^DD(6924,"B","SITE",7)=""
^DD(6924,"B","SOURCE OF ACCIDENT",38)=""
^DD(6924,"B","SPECIFIC LOCATION",7.5)=""
^DD(6924,"B","SSN",11)=""
^DD(6924,"B","TIME ON DUTY",22)=""
^DD(6924,"B","TORT CLAIM",8)=""
^DD(6924,"B","WEATHER FACTOR",37)=""
^DD(6924,"B","WITNESSES",47)=""
^DD(6924,"B","WORK PHONE #",20)=""
^DD(6924,"B","YEAR MANUFACTURED",36)=""
^DD(6924,"GL",0,1,.01)=""
^DD(6924,"GL",0,2,1)=""
^DD(6924,"GL",0,3,2)=""
^DD(6924,"GL",0,4,3)=""
^DD(6924,"GL",0,5,4)=""
^DD(6924,"GL",0,6,5)=""
^DD(6924,"GL",0,7,6)=""
^DD(6924,"GL",0,8,7)=""
^DD(6924,"GL",0,9,7.5)=""
^DD(6924,"GL",0,10,8)=""
^DD(6924,"GL",1,1,9)=""
^DD(6924,"GL",1,2,10)=""
^DD(6924,"GL",1,3,11)=""
^DD(6924,"GL",1,4,12)=""
^DD(6924,"GL",1,5,13)=""
^DD(6924,"GL",1,6,14)=""
^DD(6924,"GL",1,7,15)=""
^DD(6924,"GL",1,8,16)=""
^DD(6924,"GL",1,9,17)=""
^DD(6924,"GL",2,0,18)=""
^DD(6924,"GL",3,1,19)=""
^DD(6924,"GL",3,2,20)=""
^DD(6924,"GL",3,3,21)=""
^DD(6924,"GL",3,4,22)=""
^DD(6924,"GL",3,5,23)=""
^DD(6924,"GL",3,6,24)=""
^DD(6924,"GL",3,7,25)=""
^DD(6924,"GL",4,1,26)=""
^DD(6924,"GL",4,2,27)=""
^DD(6924,"GL",4,3,28)=""
^DD(6924,"GL",4,4,29)=""
^DD(6924,"GL",4,5,30)=""
^DD(6924,"GL",4,6,31)=""
^DD(6924,"GL",4,7,32)=""
^DD(6924,"GL",4,8,32.5)=""
^DD(6924,"GL",5,1,33)=""
^DD(6924,"GL",5,2,34)=""
^DD(6924,"GL",5,3,35)=""
^DD(6924,"GL",5,4,36)=""
^DD(6924,"GL",6,1,37)=""
^DD(6924,"GL",6,2,38)=""
^DD(6924,"GL",6,3,39)=""
^DD(6924,"GL",6,4,40)=""
^DD(6924,"GL",6,5,41)=""
^DD(6924,"GL",6,6,42)=""
^DD(6924,"GL",6,7,43)=""
^DD(6924,"GL",6,8,44)=""
^DD(6924,"GL",6,9,45)=""
^DD(6924,"GL",6,10,47)=""
^DD(6924,"GL",7,0,46)=""
^DD(6924,"GL",8,0,48)=""
^DD(6924,"GL",9,1,49)=""
^DD(6924,"GL",9,2,50)=""
^DD(6924,"GL",9,3,51)=""
^DD(6924,"GL",9,4,52)=""
^DD(6924,"GL",9,5,53)=""
^DD(6924,"GL",9,6,54)=""
^DD(6924,"GL",9,7,55)=""
^DD(6924,"GL",9,8,56)=""
^DD(6924,"GL",9,9,57.5)=""
^DD(6924,"GL",10,0,57)=""
^DD(6924,"IX",.01)=""
^DD(6924,"IX",1)=""
^DD(6924,"IX",9)=""
^DD(6924,"IX",11)=""
^DD(6924,"RQ",.01)=""
^DD(6924,"SB",6924.01,18)=""
^DD(6924,"SB",6924.02,46)=""
^DD(6924,"SB",6924.03,48)=""
^DD(6924,"SB",6924.04,57)=""
^DD(6924.01,0)="HOME ADDRESS SUB-FIELD^NL^.01^1"
^DD(6924.01,0,"NM","HOME ADDRESS")=""
^DD(6924.01,0,"UP")="6924"
^DD(6924.01,.01,0)="HOME ADDRESS^W^^0;1^Q"
^DD(6924.01,.01,3)="ENTER STREET, CITY, STATE, AND ZIP CODE"
^DD(6924.01,"B","HOME ADDRESS",.01)=""
^DD(6924.01,"GL",0,1,.01)=""
^DD(6924.02,0)="ACCIDENT NARRATIVE SUB-FIELD^NL^.01^1"
^DD(6924.02,0,"NM","ACCIDENT NARRATIVE")=""
^DD(6924.02,0,"UP")="6924"
^DD(6924.02,.01,0)="ACCIDENT NARRATIVE^W^^0;1^Q"
^DD(6924.02,.01,3)="PROVIDE INFORMATION TO FULLY DESCRIBE INCIDENT"
^DD(6924.02,"B","ACCIDENT NARRATIVE",.01)=""
^DD(6924.02,"GL",0,1,.01)=""
^DD(6924.03,0)="CORRECTIVE NARRATION SUB-FIELD^NL^.01^1"
^DD(6924.03,0,"NM","CORRECTIVE NARRATION")=""
^DD(6924.03,0,"UP")="6924"
^DD(6924.03,.01,0)="CORRECTIVE NARRATION^W^^0;1^Q"
^DD(6924.03,.01,3)="DESCRIBE CORRECTIVE ACTION TAKEN OR PLANNED"
^DD(6924.03,"B","CORRECTIVE NARRATION",.01)=""
^DD(6924.03,"GL",0,1,.01)=""
^DD(6924.04,0)="EVALUATION OF REPORT SUB-FIELD^NL^.01^1"
^DD(6924.04,0,"NM","EVALUATION OF REPORT")=""
^DD(6924.04,0,"UP")="6924"
^DD(6924.04,.01,0)="EVALUATION OF REPORT^W^^0;1^Q"
^DD(6924.04,.01,3)="SAFETY PERSON'S EVALUATION, BE BRIEF PLEASE"
^DD(6924.04,"B","EVALUATION OF REPORT",.01)=""
^DD(6924.04,"GL",0,1,.01)=""
^DD(6924.1,0)="FIELD^^.01^1"
^DD(6924.1,0,"DDA")="N"
^DD(6924.1,0,"IX","B",6924.1,.01)=""
^DD(6924.1,0,"NM","FSA-ACCIDENT ACTIVITY")=""
^DD(6924.1,0,"PT",6924,24)=""
^DD(6924.1,0,"VR")="7.0"
^DD(6924.1,.01,0)="ACCIDENT ACTIVITY^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(6924.1,.01,1,0)="^.1"
^DD(6924.1,.01,1,1,0)="6924.1^B"
^DD(6924.1,.01,1,1,1)="S ^ENG(6924.1,""B"",$E(X,1,30),DA)="""""
^DD(6924.1,.01,1,1,2)="K ^ENG(6924.1,""B"",$E(X,1,30),DA)"
^DD(6924.1,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(6924.1,.01,21,0)="^^1^1^2930430^"
^DD(6924.1,.01,21,1,0)="Accident classification scheme."
^DD(6924.1,"B","ACCIDENT ACTIVITY",.01)=""
^DD(6924.1,"GL",0,1,.01)=""
^DD(6924.1,"IX",.01)=""
^DD(6924.1,"RQ",.01)=""
^DD(6924.2,0)="FIELD^^.01^1"
^DD(6924.2,0,"DDA")="N"
^DD(6924.2,0,"IX","B",6924.2,.01)=""
^DD(6924.2,0,"NM","FSA-ACCIDENT NATURE")=""
^DD(6924.2,0,"PT",6924,30)=""
^DD(6924.2,0,"VR")="7.0"
^DD(6924.2,.01,0)="ACCIDENT NATURE^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(6924.2,.01,1,0)="^.1"
^DD(6924.2,.01,1,1,0)="6924.2^B"
^DD(6924.2,.01,1,1,1)="S ^ENG(6924.2,""B"",$E(X,1,30),DA)="""""
^DD(6924.2,.01,1,1,2)="K ^ENG(6924.2,""B"",$E(X,1,30),DA)"
^DD(6924.2,.01,3)="ANSWER MUST BE 3-40 CHARACTERS IN LENGTH"
^DD(6924.2,.01,21,0)="^^1^1^2930430^^"
^DD(6924.2,.01,21,1,0)="Physiological result of an accident."
^DD(6924.2,"B","ACCIDENT NATURE",.01)=""
^DD(6924.2,"GL",0,1,.01)=""
^DD(6924.2,"IX",.01)=""
^DD(6924.2,"RQ",.01)=""
^DD(6924.3,0)="FIELD^^2^3"
^DD(6924.3,0,"DDA")="N"
^DD(6924.3,0,"ID",1)="W:$D(^(0)) ""   "",$P(^(0),U,2)"
^DD(6924.3,0,"IX","B",6924.3,.01)=""
^DD(6924.3,0,"IX","C",6924.3,1)=""
^DD(6924.3,0,"NM","FSA-DIVISION/SERVICE")=""
^DD(6924.3,0,"PT",6924,25)=""
^DD(6924.3,0,"VR")="7.0"
^DD(6924.3,.01,0)="DIV./SERVICE #^RF^^0;1^K:$L(X)>4!($L(X)<4)!'(X?4N.N)!(X'?.ANP) X"
^DD(6924.3,.01,1,0)="^.1"
^DD(6924.3,.01,1,1,0)="6924.3^B"
^DD(6924.3,.01,1,1,1)="S ^ENG(6924.3,""B"",$E(X,1,30),DA)="""""
^DD(6924.3,.01,1,1,2)="K ^ENG(6924.3,""B"",$E(X,1,30),DA)"
^DD(6924.3,.01,3)="ANSWER MUST BE 4 DIGITS IN LENGTH (e.g. 0138)"
^DD(6924.3,.01,21,0)="^^1^1^2930430^"
^DD(6924.3,.01,21,1,0)="Standardized functional area within Department of Veterans Affairs."
^DD(6924.3,1,0)="DIV./SERVICE NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>25!($L(X)<6) X"
^DD(6924.3,1,1,0)="^.1"
^DD(6924.3,1,1,1,0)="6924.3^C"
^DD(6924.3,1,1,1,1)="S ^ENG(6924.3,""C"",$E(X,1,30),DA)="""""
^DD(6924.3,1,1,1,2)="K ^ENG(6924.3,""C"",$E(X,1,30),DA)"
^DD(6924.3,1,3)="ANSWER MUST BE 6-25 CHARACTERS IN LENGTH (e.g. ENGINEERING)"
^DD(6924.3,1,21,0)="^^1^1^2930430^"
^DD(6924.3,1,21,1,0)="Text representation of standardized functional area."
^DD(6924.3,2,0)="DEPARTMENT^S^DVB:DEPT. of VETERANS BENIFITS;ODM&T:OFFICE OF DATA MGMT. & TELE.;DMA:DEPT. OF MEMORIAL AFFAIRS;DM&S:DEPT. OF MEDICINE & SURGERY;N.E.C:NOT ELSEWHERE CLASSIFIED;^0;3^Q"
^DD(6924.3,2,1,0)="^.1^^0"
^DD(6924.3,2,21,0)="^^1^1^2930430^"
^DD(6924.3,2,21,1,0)="Agency division (old formats)."
^DD(6924.3,"B","DEPARTMENT",2)=""
^DD(6924.3,"B","DIV./SERVICE #",.01)=""
^DD(6924.3,"B","DIV./SERVICE NAME",1)=""
^DD(6924.3,"GL",0,1,.01)=""
^DD(6924.3,"GL",0,2,1)=""
^DD(6924.3,"GL",0,3,2)=""
^DD(6924.3,"IX",.01)=""
^DD(6924.3,"IX",1)=""
^DD(6924.3,"RQ",.01)=""
^DD(6925,0)="FIELD^^301^409"
^DD(6925,0,"DDA")="N"
^DD(6925,0,"DT")="2970912"
^DD(6925,0,"ID",2)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,3)"
^DD(6925,0,"IX","AB",6925.0225,.01)=""
^DD(6925,0,"IX","B",6925,.01)=""
^DD(6925,0,"IX","C",6925,2)=""
^DD(6925,0,"IX","E",6925,158)=""
^DD(6925,0,"IX","F",6925,3.45)=""
^DD(6925,0,"IX","G",6925,3.5)=""
^DD(6925,0,"IX","L",6925,287)=""
^DD(6925,0,"NM","CONSTRUCTION PROJECT")=""
^DD(6925,0,"PT",6925.0225,.01)=""
^DD(6925,0,"PT",6928.3,20)=""
^DD(6925,0,"VR")="7.0"
^DD(6925,0,"VRPK")="EN"
^DD(6925,.01,0)="PROJECT NUMBER^RFX^^0;1^K:X'?3N1""-""2NA1""-""1.3N0.1U&(X'?3N1""-""1.3N0.1U) X I $D(X),$G(DIUTIL)'=""VERIFY FIELDS"",$D(^ENG(""PROJ"",""B"",X)) D EN^DDIOL(""Project Number is in use!"") K X"
^DD(6925,.01,.1)=""
^DD(6925,.01,1,0)="^.1^^-1"
^DD(6925,.01,1,1,0)="6925^B"
^DD(6925,.01,1,1,1)="S ^ENG(""PROJ"",""B"",$E(X,1,30),DA)="""""
^DD(6925,.01,1,1,2)="K ^ENG(""PROJ"",""B"",$E(X,1,30),DA)"
^DD(6925,.01,3)="ENTER THE OFFICIALLY ASSIGNED PROJECT NUMBER (must begin with 3 numerics and use dashes as delimiters)"
^DD(6925,.01,4)="W !,""Must begin with station number. Enter '??' for more help."""
^DD(6925,.01,21,0)="^^11^11^2970425^"
^DD(6925,.01,21,1,0)="The principal identifier of entries in the CONSTRUCTION PROJECT file."
^DD(6925,.01,21,2,0)=" Format should be either 'SSS-NNN' or 'SSS-YY-NNN'; where SSS is the"
^DD(6925,.01,21,3,0)="facility number and NNN is a sequential project number. YY is usually the"
^DD(6925,.01,21,4,0)="fiscal year for which an NRM, Station Level, or Lease request is being"
^DD(6925,.01,21,5,0)="submitted. An optional single uppercase letter can follow the sequential"
^DD(6925,.01,21,6,0)="project number."
^DD(6925,.01,21,7,0)=" Note that the facility number need not always be the number of the VAMC."
^DD(6925,.01,21,8,0)="For example, if you are reporting on a National Cemetery project the first"
^DD(6925,.01,21,9,0)="3 digits will generally be the facility number of the National Cemetery"
^DD(6925,.01,21,10,0)="itself. If you have questions about official project numbers, please"
^DD(6925,.01,21,11,0)="consult your VISN support center."
^DD(6925,.01,"DT")="2970425"
^DD(6925,.05,0)="FMS #^CJ12^^ ; ^S X=$$FMS^ENPRUTL(D0)"
^DD(6925,.05,9)="^"
^DD(6925,.05,9.01)=""
^DD(6925,.05,9.1)="S X=$$FMS^ENPRUTL(D0)"
^DD(6925,.05,21,0)="^^1^1^2970430^"
^DD(6925,.05,21,1,0)="This field computes the FMS # of Major or Minor program projects."
^DD(6925,.05,"DT")="2970430"
^DD(6925,1,0)="REPORTING PERIOD (Month/Year)^DX^^0;2^S %DT=""P"" D ^%DT K:Y<1 X I $D(X) S X=$E(Y,1,5)_""00"",%DT=""E"" D ^%DT S X=Y"
^DD(6925,1,3)="Period (MONTH & YEAR) for which report is being prepared."
^DD(6925,1,21,0)="^^4^4^2921221^^^"
^DD(6925,1,21,1,0)="Current reporting period.  Used by Regional Offices for tracking"
^DD(6925,1,21,2,0)="project milestones over time."
^DD(6925,1,21,3,0)=" "
^DD(6925,1,21,4,0)="Enter MONTH and YEAR only."
^DD(6925,1,"DT")="2921221"
^DD(6925,2,0)="PROJECT TITLE^RFX^^0;3^K:X[""""""""!(X["";"")!($A(X)=45)!(X'?.ANP) X I $D(X) K:$L(X)>50!($L(X)<3) X I $D(X) S:X?.E1L.E X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"")"
^DD(6925,2,1,0)="^.1"
^DD(6925,2,1,1,0)="6925^C"
^DD(6925,2,1,1,1)="S ^ENG(""PROJ"",""C"",$E(X,1,30),DA)="""""
^DD(6925,2,1,1,2)="K ^ENG(""PROJ"",""C"",$E(X,1,30),DA)"
^DD(6925,2,3)="ANSWER MUST BE 3-50 CHARACTERS IN LENGTH AND NOT CONTAIN SEMICOLON"
^DD(6925,2,21,0)="^^1^1^2930422^^^"
^DD(6925,2,21,1,0)="Official title of project."
^DD(6925,2,"DT")="2950505"
^DD(6925,2.5,0)="MONTHLY UPDATES^S^Y:YES;N:NO;^0;5^Q"
^DD(6925,2.5,21,0)="^^4^4^2930422^^^"
^DD(6925,2.5,21,1,0)="This field determines whether or not a project will be included when"
^DD(6925,2.5,21,2,0)="Progress Reports of 'all projects' are requested. This field is"
^DD(6925,2.5,21,3,0)="examined when 10-0051's are transmitted electronically as well as"
^DD(6925,2.5,21,4,0)="when paper records are produced."
^DD(6925,2.5,"DT")="2921222"
^DD(6925,3,0)="MEDICAL CENTER^RP4'^DIC(4,^0;4^Q"
^DD(6925,3,3)="Facility where proposed work is to be performed."
^DD(6925,3,21,0)="^^3^3^2930317^^^^"
^DD(6925,3,21,1,0)="Facility where the work is being performed. May indicate"
^DD(6925,3,21,2,0)="a division or other functional element (National Cemetery,"
^DD(6925,3,21,3,0)="Regional Office, satellite clinic, etc.) if appropriate."
^DD(6925,3,"DT")="2841206"
^DD(6925,3.45,0)="FUNDING YEAR  - A/E^NJ4,0^^5;7^K:+X'=X!(X>2099)!(X<1970)!(X?.E1"".""1N.N) X"
^DD(6925,3.45,1,0)="^.1"
^DD(6925,3.45,1,1,0)="6925^F"
^DD(6925,3.45,1,1,1)="S ^ENG(""PROJ"",""F"",$E(X,1,30),DA)="""""
^DD(6925,3.45,1,1,2)="K ^ENG(""PROJ"",""F"",$E(X,1,30),DA)"
^DD(6925,3.45,1,1,"%D",0)="^^2^2^2930120^"
^DD(6925,3.45,1,1,"%D",1,0)="This cross reference is used for reporting projects by Fiscal Year for"
^DD(6925,3.45,1,1,"%D",2,0)="funding A/E as in 5-Yr Plan"
^DD(6925,3.45,1,1,"DT")="2930120"
^DD(6925,3.45,3)="Enter a Year between 1970 and 2099"
^DD(6925,3.45,21,0)="^^1^1^2930305^^^"
^DD(6925,3.45,21,1,0)="This field contains the fiscal year for which A/E is funded or proposed."
^DD(6925,3.45,"DT")="2930120"
^DD(6925,3.5,0)="FUNDING YEAR - CONST^NJ4,0^^0;7^K:+X'=X!(X>2099)!(X<1970)!(X?.E1"".""1N.N) X"
^DD(6925,3.5,1,0)="^.1"
^DD(6925,3.5,1,1,0)="6925^G"
^DD(6925,3.5,1,1,1)="S ^ENG(""PROJ"",""G"",$E(X,1,30),DA)="""""
^DD(6925,3.5,1,1,2)="K ^ENG(""PROJ"",""G"",$E(X,1,30),DA)"
^DD(6925,3.5,1,1,"%D",0)="^^2^2^2930120^"
^DD(6925,3.5,1,1,"%D",1,0)="This index is used for sorting projects by Fiscal Year for Construction"
^DD(6925,3.5,1,1,"%D",2,0)="as in 5-Yr Plan"
^DD(6925,3.5,1,1,"DT")="2930120"
^DD(6925,3.5,3)="Enter a Year between 1970 and 2099"
^DD(6925,3.5,21,0)="^^1^1^2930407^^^^"
^DD(6925,3.5,21,1,0)="Fiscal year for which construction is funded or proposed."
^DD(6925,3.5,"DT")="2930206"
^DD(6925,3.6,0)="*APPROVAL LEVEL^S^CA:CASCA;RD:RDAP;CO:COAP;OT:OTHER;^0;8^Q"
^DD(6925,3.6,3)="No longer used."
^DD(6925,3.6,21,0)="^^1^1^2890525^"
^DD(6925,3.6,21,1,0)="Identifies the source of funding for approved projects."
^DD(6925,3.6,"DT")="2930422"
^DD(6925,4,0)="APPROVED CONSTRUCTION^NJ8,0^^1;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,4,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(6925,4,21,0)="^^2^2^2890530^^"
^DD(6925,4,21,1,0)="Amount (in whole dollars) authorized for construction at the"
^DD(6925,4,21,2,0)="time project is approved."
^DD(6925,4,"DT")="2930206"
^DD(6925,5,0)="APPROVED A/E FUNDING^NJ7,0^^5;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,5,21,0)="^^2^2^2930305^^^^"
^DD(6925,5,21,1,0)="Amount (in whole dollars) authorized for A/E at the time project is "
^DD(6925,5,21,2,0)="approved."
^DD(6925,5,"DT")="2921222"
^DD(6925,5.1,0)="TOTAL FUNDS APPROVED^CJ10,0^^ ; ^S Y(6925,5.1,1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),Y(6925,5.1,2)=$S($D(^(5)):^(5),1:"""") S X=$P(Y(6925,5.1,1),U,1)+$P(Y(6925,5.1,2),U,2)"
^DD(6925,5.1,9)="^"
^DD(6925,5.1,9.01)="6925^5;6925^4"
^DD(6925,5.1,9.1)="#4+#5"
^DD(6925,5.1,21,0)="^^2^2^2930305^^^"
^DD(6925,5.1,21,1,0)="This field contains the computed total of A/E and Construction Funds"
^DD(6925,5.1,21,2,0)="authorized at the time the project is approved."
^DD(6925,5.1,"DT")="2921222"
^DD(6925,6,0)="STATUS^R*P6925.2'^ENG(6925.2,^1;3^S DIC(""S"")=""I $P(^(0),U,5)[$G(ENPR)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925,6,3)=""
^DD(6925,6,4)="D:$G(ENPR)]"""" SH^ENPL1(ENPR)"
^DD(6925,6,5,1,0)="6925^49^1"
^DD(6925,6,5,2,0)="6925^50^1"
^DD(6925,6,5,3,0)="6925^52^1"
^DD(6925,6,5,4,0)="6925^54^1"
^DD(6925,6,5,5,0)="6925^55.5^1"
^DD(6925,6,5,6,0)="6925^56^1"
^DD(6925,6,5,7,0)="6925^58^1"
^DD(6925,6,5,8,0)="6925^59^1"
^DD(6925,6,5,9,0)="6925^60^1"
^DD(6925,6,5,10,0)="6925^61^1"
^DD(6925,6,5,11,0)="6925^63^1"
^DD(6925,6,12)="Status screened for applicability to project's funding program."
^DD(6925,6,12.1)="S DIC(""S"")=""I $P(^(0),U,5)[$G(ENPR)"""
^DD(6925,6,21,0)="^^1^1^2950505^^^"
^DD(6925,6,21,1,0)="Present status of the project."
^DD(6925,6,"DT")="2970403"
^DD(6925,7,0)="DESIGN METHOD^S^1:A/E;2:SBA 8(a);3:VAMC;^1;4^Q"
^DD(6925,7,21,0)="^^1^1^2930422^^^"
^DD(6925,7,21,1,0)="Indicates the design method."
^DD(6925,7,"DT")="2930422"
^DD(6925,8,0)="CONSTR. METHOD^S^1:CONTRACT;2:P&H;3:STATION LABOR;4:SBA 8(a);5:DESIGN/BUILD;6:LEASE;^1;5^Q"
^DD(6925,8,21,0)="^^1^1^2930422^^"
^DD(6925,8,21,1,0)="Indicates the construction method."
^DD(6925,8,"DT")="2930205"
^DD(6925,8.5,0)="GROSS SQUARE FEET^NJ6,0^^1;10^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6925,8.5,.1)="GSF"
^DD(6925,8.5,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(6925,8.5,21,0)="^^2^2^2900816^"
^DD(6925,8.5,21,1,0)="Approximate gross square footage directly affected by this project."
^DD(6925,8.5,21,2,0)="Include both new space and renovated space in this estimate."
^DD(6925,8.5,"DT")="2900816"
^DD(6925,9,0)="% SCHEMATICS COMPLETE^NJ3,0^^1;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,9,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,9,5,1,0)="6925^55^1"
^DD(6925,9,21,0)="^^2^2^2921221^^^^"
^DD(6925,9,21,1,0)="Current estimate of work done on schematics. Expressed as a"
^DD(6925,9,21,2,0)="percentage of completion."
^DD(6925,9,"DT")="2921222"
^DD(6925,10,0)="% CONST DOCS. COMPL^NJ3,0^^1;7^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,10,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,10,5,1,0)="6925^57^1"
^DD(6925,10,21,0)="^^2^2^2951012^^^^"
^DD(6925,10,21,1,0)="Current estimate of the status of construction documents."
^DD(6925,10,21,2,0)="Expressed as a percentage of completion."
^DD(6925,10,"DT")="2951012"
^DD(6925,11,0)="% CONSTRUCTION COMPLETE^NJ3,0^^1;8^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,11,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,11,5,1,0)="6925^62^1"
^DD(6925,11,21,0)="^^2^2^2921221^^"
^DD(6925,11,21,1,0)="Current estimate of construction work actually performed. Expressed"
^DD(6925,11,21,2,0)="as a percentage of completion."
^DD(6925,11,"DT")="2921222"
^DD(6925,12,0)="% DESIGN DEV. COMPL^NJ3,0^^1;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,12,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,12,5,1,0)="6925^55.6^1"
^DD(6925,12,21,0)="^^2^2^2951012^"
^DD(6925,12,21,1,0)="Current estimate of how much work has been done on project design"
^DD(6925,12,21,2,0)="development. Expressed as percentage of completion."
^DD(6925,12,"DT")="2951012"
^DD(6925,13,0)="% DESIGN PROGRAM COMPL^NJ3,0^^1;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,13,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,13,5,1,0)="6925^49.1^1"
^DD(6925,13,21,0)="^^1^1^2921221^"
^DD(6925,13,21,1,0)="Completion percentage of design program (if applicable)."
^DD(6925,13,"DT")="2930206"
^DD(6925,15,0)="OLD REPORTING PERIOD^DI^^60;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,15,21,0)="^^1^1^2930209^"
^DD(6925,15,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15,"DT")="2921223"
^DD(6925,15.1,0)="OLD PROJECT TITLE^FI^^60;3^K:$L(X)>50!($L(X)<3) X"
^DD(6925,15.1,3)="Answer must be 3-50 characters in length."
^DD(6925,15.1,21,0)="^^1^1^2930209^^"
^DD(6925,15.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.1,"DT")="2921223"
^DD(6925,15.2,0)="OLD MONTHLY UPDATE^SI^Y:YES;N:NO;^60;5^Q"
^DD(6925,15.2,21,0)="^^1^1^2930209^"
^DD(6925,15.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.2,"DT")="2921223"
^DD(6925,15.3,0)="OLD MEDICAL CENTER^P4'I^DIC(4,^60;4^Q"
^DD(6925,15.3,21,0)="^^1^1^2930209^"
^DD(6925,15.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.3,"DT")="2921223"
^DD(6925,15.4,0)="OLD FUNDING YEAR (A/E)^NJ4,0I^^64;7^K:+X'=X!(X>2099)!(X<1970)!(X?.E1"".""1N.N) X"
^DD(6925,15.4,3)="Enter a Year between 1970 and 2099"
^DD(6925,15.4,21,0)="^^1^1^2930209^"
^DD(6925,15.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.4,"DT")="2921231"
^DD(6925,15.5,0)="OLD FUNDING YEAR CONST.^NJ4,0I^^60;7^K:+X'=X!(X>2099)!(X<1970)!(X?.E1"".""1N.N) X"
^DD(6925,15.5,3)="Enter a Year between 1970 and 2099"
^DD(6925,15.5,21,0)="^^1^1^2930209^"
^DD(6925,15.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.5,"DT")="2921231"
^DD(6925,15.6,0)="OLD APPROVED CONST. FUNDING^NJ8,0I^^60;11^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,15.6,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(6925,15.6,21,0)="^^1^1^2930209^"
^DD(6925,15.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.6,"DT")="2921223"
^DD(6925,15.7,0)="OLD APPROVED A/E FUNDING^NJ8,0I^^64;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,15.7,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(6925,15.7,21,0)="^^1^1^2930209^"
^DD(6925,15.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.7,"DT")="2921223"
^DD(6925,15.8,0)="OLD STATUS^P6925.2'I^ENG(6925.2,^60;13^Q"
^DD(6925,15.8,21,0)="^^1^1^2930209^"
^DD(6925,15.8,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.8,"DT")="2921223"
^DD(6925,15.9,0)="OLD DESIGN METHOD^SI^1:A/E;2:SBA 8(a);3:VAMC;^60;14^Q"
^DD(6925,15.9,21,0)="^^1^1^2930209^"
^DD(6925,15.9,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,15.9,"DT")="2951017"
^DD(6925,16,0)="OLD CONSTRUCTION METHOD^SI^1:CONTRACT;2:P&H;3:STATION LABOR;4:SBA 8(a);5:DESIGN/BUILD;6:LEASE;^60;15^Q"
^DD(6925,16,21,0)="^^1^1^2930209^"
^DD(6925,16,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,16,"DT")="2951017"
^DD(6925,16.1,0)="OLD GROSS SQUARE FEET^NJ6,0I^^60;20^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,16.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(6925,16.1,21,0)="^^1^1^2930209^"
^DD(6925,16.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,16.1,"DT")="2921223"
^DD(6925,16.2,0)="OLD % SCHEMATICS COMPLETE^NJ3,0I^^60;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,16.2,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,16.2,21,0)="^^1^1^2930209^"
^DD(6925,16.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,16.2,"DT")="2921223"
^DD(6925,16.3,0)="OLD % CD COMPLETE^NJ3,0I^^60;17^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,16.3,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,16.3,21,0)="^^1^1^2930209^"
^DD(6925,16.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,16.3,"DT")="2930708"
^DD(6925,16.4,0)="OLD % CONSTRUCTION COMPLETE^NJ3,0I^^60;18^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,16.4,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,16.4,21,0)="^^1^1^2930209^"
^DD(6925,16.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,16.4,"DT")="2921223"
^DD(6925,16.5,0)="OLD % DD COMPLETE^NJ3,0I^^60;19^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,16.5,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,16.5,21,0)="^^1^1^2930209^"
^DD(6925,16.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,16.5,"DT")="2921223"
^DD(6925,16.6,0)="OLD % DESIGN PROGRAM COMPLETE^NJ3,0I^^60;21^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,16.6,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,16.6,21,0)="^^1^1^2930209^"
^DD(6925,16.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,16.6,"DT")="2930422"
^DD(6925,20,0)="DESIGN PROGRAM START (PLANNED)^DX^^50;8^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,20,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,20,21,0)="^^1^1^2930209^"
^DD(6925,20,21,1,0)="Planned start of design program."
^DD(6925,20,"DT")="2970402"
^DD(6925,20.1,0)="DESIGN PROGRAM COMP. (PLANNED)^DX^^50;9^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,20.1,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,20.1,21,0)="^^1^1^2930209^"
^DD(6925,20.1,21,1,0)="Planned completion of design program."
^DD(6925,20.1,"DT")="2970402"
^DD(6925,20.3,0)="ADVERTISE FOR A/E (PLANNED)^DX^^50;11^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,20.3,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,20.3,21,0)="^^1^1^2930422^^"
^DD(6925,20.3,21,1,0)="Planned date for A/E advertisement."
^DD(6925,20.3,"DT")="2970402"
^DD(6925,20.4,0)="SELECT A/E (PLANNED)^DX^^50;12^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,20.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,20.4,21,0)="^^1^1^2930209^"
^DD(6925,20.4,21,1,0)="Planned selection date for A/E."
^DD(6925,20.4,"DT")="2970402"
^DD(6925,20.5,0)="A/E AWARD (PLANNED)^DX^^50;13^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,20.5,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,20.5,21,0)="^^1^1^2930209^"
^DD(6925,20.5,21,1,0)="Planned A/E award date."
^DD(6925,20.5,"DT")="2970402"
^DD(6925,21,0)="START SCHEMATICS (PLANNED)^DX^^2;2^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,21,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,21,21,0)="^^1^1^2951012^^^^"
^DD(6925,21,21,1,0)="Planned date for the start of schematic plans."
^DD(6925,21,"DT")="2970402"
^DD(6925,22,0)="COMPLETE SCHEMATICS (PLANNED)^DX^^2;3^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,22,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,22,21,0)="^^1^1^2890526^"
^DD(6925,22,21,1,0)="Original (approved) target date for completion of preliminary plans."
^DD(6925,22,"DT")="2970402"
^DD(6925,22.5,0)="START DESIGN DEV. (PLANNED)^DX^^50;2^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,22.5,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,22.5,21,0)="^^1^1^2951012^^^^"
^DD(6925,22.5,21,1,0)="Planned (approved) start of design development."
^DD(6925,22.5,"DT")="2970402"
^DD(6925,22.6,0)="COMPL. DESIGN DEV. (PLANNED)^DX^^50;3^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,22.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,22.6,21,0)="^^1^1^2951012^^^"
^DD(6925,22.6,21,1,0)="Planned (approved) completion of design development."
^DD(6925,22.6,"DT")="2970402"
^DD(6925,23,0)="START/AWARD CD (PLANNED)^DX^^2;4^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,23,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,23,21,0)="^^1^1^2951012^^"
^DD(6925,23,21,1,0)="Original (approved) date for start of construction documents."
^DD(6925,23,"DT")="2970402"
^DD(6925,24,0)="COMPL. CONST. DOCS. (PLANNED)^DX^^2;5^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,24,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,24,21,0)="^^2^2^2951012^"
^DD(6925,24,21,1,0)="Original (approved) target date for completion of construction"
^DD(6925,24,21,2,0)="documents."
^DD(6925,24,"DT")="2970402"
^DD(6925,24.4,0)="START L/T REVIEW (PLANNED)^DX^^56;1^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,24.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,24.4,21,0)="^^1^1^2951016^"
^DD(6925,24.4,21,1,0)="Original (approved) target date for start of the Legal/Technical Review."
^DD(6925,24.4,"DT")="2970402"
^DD(6925,24.6,0)="START AUDIT REVIEW (PLANNED)^DX^^56;4^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,24.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,24.6,21,0)="^^2^2^2970912^"
^DD(6925,24.6,21,1,0)="Original (approved) target date for start of audit review. Examples of"
^DD(6925,24.6,21,2,0)="audit reviews include DCAA, DOE, and DOD reviews."
^DD(6925,24.6,"DT")="2970912"
^DD(6925,25,0)="ISSUE IFB/SBA (PLANNED)^DX^^2;6^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,25,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,25,21,0)="^^1^1^2951012^^"
^DD(6925,25,21,1,0)="Original (approved) target date for issuance of Invitation For Bids."
^DD(6925,25,"DT")="2970402"
^DD(6925,25.4,0)="COMPL. L/T REVIEW (PLANNED)^DX^^56;7^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,25.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,25.4,21,0)="^^1^1^2951016^"
^DD(6925,25.4,21,1,0)="Original (approved) target date for completion of Legal/Technical review."
^DD(6925,25.4,"DT")="2970402"
^DD(6925,25.6,0)="COMPL. AUDIT REVIEW (PLANNED)^DX^^56;10^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,25.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,25.6,21,0)="^^2^2^2970912^"
^DD(6925,25.6,21,1,0)="Original (approved) target date for completion of audit review. Examples"
^DD(6925,25.6,21,2,0)="of audit reviews include DCAA, DOE, and DOD reviews."
^DD(6925,25.6,"DT")="2970912"
^DD(6925,26,0)="BID OPEN/NEGOTIATION (PLANNED)^DX^^2;7^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,26,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,26,21,0)="^^1^1^2951012^^"
^DD(6925,26,21,1,0)="Original (approved) target date for bid openings."
^DD(6925,26,"DT")="2970402"
^DD(6925,27,0)="CONSTRUCTION AWARD (PLANNED)^DX^^2;8^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,27,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,27,21,0)="^^1^1^2951012^^^"
^DD(6925,27,21,1,0)="Original (approved) target date for award of construction contract(s)."
^DD(6925,27,"DT")="2970402"
^DD(6925,28,0)="CONSTRUCTION START (PLANNED)^DX^^2;9^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,28,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,28,21,0)="^^1^1^2951012^^"
^DD(6925,28,21,1,0)="Original (approved) target date for start of construction."
^DD(6925,28,"DT")="2970402"
^DD(6925,29,0)="CONST. COMPLETE (PLANNED)^DX^^2;10^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,29,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,29,21,0)="^^2^2^2951012^^^"
^DD(6925,29,21,1,0)="Original (approved) target date by which construction is to be"
^DD(6925,29,21,2,0)="substantially complete."
^DD(6925,29,"DT")="2970402"
^DD(6925,30,0)="ACTIVATION (PLANNED)^DX^^50;4^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,30,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,30,21,0)="^^1^1^2951012^^^"
^DD(6925,30,21,1,0)="Original (approved) target date for project activation."
^DD(6925,30,"DT")="2970402"
^DD(6925,32,0)="OLD DESIGN PROGRAM START (PL)^DI^^66;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32,21,0)="^^1^1^2930209^"
^DD(6925,32,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32,"DT")="2930422"
^DD(6925,32.1,0)="OLD DESIGN PROGRAM COMP. (PL)^DI^^66;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.1,21,0)="^^1^1^2930209^"
^DD(6925,32.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.1,"DT")="2930208"
^DD(6925,32.3,0)="OLD ADVERTISE FOR A/E (PL)^DI^^66;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.3,21,0)="^^1^1^2930209^"
^DD(6925,32.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.3,"DT")="2930422"
^DD(6925,32.4,0)="OLD SELECT A/E (PL)^DI^^66;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.4,21,0)="^^1^1^2930209^"
^DD(6925,32.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.4,"DT")="2930208"
^DD(6925,32.5,0)="OLD A/E AWARD (PL)^DI^^66;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.5,21,0)="^^1^1^2930209^"
^DD(6925,32.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.5,"DT")="2930421"
^DD(6925,32.6,0)="OLD START SCHEMATICS (PL)^DI^^61;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.6,21,0)="^^1^1^2930209^"
^DD(6925,32.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.6,"DT")="2930208"
^DD(6925,32.7,0)="OLD COMPLETE SCHEMATICS (PL)^DI^^61;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.7,21,0)="^^1^1^2930209^"
^DD(6925,32.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.7,"DT")="2930208"
^DD(6925,32.8,0)="OLD START DD (PL)^DI^^66;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.8,21,0)="^^1^1^2930209^"
^DD(6925,32.8,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.8,"DT")="2930208"
^DD(6925,32.9,0)="OLD COMPLETE DD (PL)^DI^^66;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,32.9,21,0)="^^1^1^2930209^"
^DD(6925,32.9,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,32.9,"DT")="2930208"
^DD(6925,33,0)="OLD START CD (PL)^DI^^61;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33,21,0)="^^1^1^2930209^"
^DD(6925,33,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33,"DT")="2930208"
^DD(6925,33.1,0)="OLD COMPLETE CD (PL)^DI^^61;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.1,21,0)="^^1^1^2930209^"
^DD(6925,33.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.1,"DT")="2930208"
^DD(6925,33.14,0)="OLD START L/T REVIEW (PL)^DI^^69;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.14,21,0)="^^1^1^2951016^"
^DD(6925,33.14,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.14,"DT")="2951016"
^DD(6925,33.16,0)="OLD START AUDIT REVIEW (PL)^DI^^69;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.16,21,0)="^^1^1^2951016^"
^DD(6925,33.16,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.16,"DT")="2970912"
^DD(6925,33.2,0)="OLD ISSUE IFB (PL)^DI^^61;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.2,21,0)="^^1^1^2930209^"
^DD(6925,33.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.2,"DT")="2930208"
^DD(6925,33.24,0)="OLD COMPL. L/T REVIEW (PL)^DI^^69;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.24,21,0)="^^1^1^2951016^"
^DD(6925,33.24,21,1,0)="Value "
^DD(6925,33.24,"DT")="2951016"
^DD(6925,33.26,0)="OLD COMPL. AUDIT REVIEW (PL)^DI^^69;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.26,3)=""
^DD(6925,33.26,21,0)="^^1^1^2951016^"
^DD(6925,33.26,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.26,"DT")="2970912"
^DD(6925,33.3,0)="OLD BID OPEN (PL)^DI^^61;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.3,21,0)="^^1^1^2930209^"
^DD(6925,33.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.3,"DT")="2930208"
^DD(6925,33.4,0)="OLD CONSTRUCTION AWARD (PL)^DI^^61;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.4,21,0)="^^1^1^2930209^"
^DD(6925,33.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.4,"DT")="2930208"
^DD(6925,33.5,0)="OLD CONSTRUCTION START (PL)^DI^^61;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.5,21,0)="^^1^1^2930209^"
^DD(6925,33.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.5,"DT")="2951122"
^DD(6925,33.6,0)="OLD CONST. COMPLETE (PL)^DI^^61;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.6,21,0)="^^1^1^2930209^"
^DD(6925,33.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.6,"DT")="2930208"
^DD(6925,33.7,0)="OLD ACTIVATION (PL)^DI^^66;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,33.7,21,0)="^^1^1^2930209^"
^DD(6925,33.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,33.7,"DT")="2930208"
^DD(6925,34,0)="DESIGN PROGRAM START (REVISED)^DX^^50;5^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,34,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,34,21,0)="^^1^1^2930209^"
^DD(6925,34,21,1,0)="Revised design program start date."
^DD(6925,34,"DT")="2970402"
^DD(6925,34.1,0)="DESIGN PROGRAM COMP. (REVISED)^DX^^50;6^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,34.1,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,34.1,21,0)="^^1^1^2930209^"
^DD(6925,34.1,21,1,0)="Revised design program completion date."
^DD(6925,34.1,"DT")="2970402"
^DD(6925,34.3,0)="ADVERTISE FOR A/E (REVISED)^DX^^50;14^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,34.3,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,34.3,21,0)="^^1^1^2930422^^"
^DD(6925,34.3,21,1,0)="Revised date for A/E advertisement."
^DD(6925,34.3,"DT")="2970402"
^DD(6925,34.4,0)="SELECT A/E (REVISED)^DX^^50;15^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,34.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,34.4,21,0)="^^1^1^2951012^^"
^DD(6925,34.4,21,1,0)="Revised date for selection of A/E."
^DD(6925,34.4,"DT")="2970402"
^DD(6925,34.5,0)="A/E AWARD (REVISED)^DX^^50;16^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,34.5,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,34.5,21,0)="^^1^1^2930209^"
^DD(6925,34.5,21,1,0)="Revised date for A/E award."
^DD(6925,34.5,"DT")="2970402"
^DD(6925,35,0)="START SCHEMATICS (REVISED)^DX^^3;1^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,35,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,35,21,0)="^^2^2^2930422^^^^"
^DD(6925,35,21,1,0)="Current (revised) estimate of starting date for development of"
^DD(6925,35,21,2,0)="schematics."
^DD(6925,35,"DT")="2970402"
^DD(6925,36,0)="COMPLETE SCHEMATICS (REVISED)^DX^^3;2^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,36,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,36,21,0)="^^1^1^2930422^^^"
^DD(6925,36,21,1,0)="Current (revised) estimate as to when schematics will be complete."
^DD(6925,36,"DT")="2970402"
^DD(6925,36.1,0)="START DESIGN DEV. (REVISED)^DX^^50;17^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,36.1,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,36.1,21,0)="^^1^1^2951012^^"
^DD(6925,36.1,21,1,0)="Revised date for start of design development."
^DD(6925,36.1,"DT")="2970402"
^DD(6925,36.2,0)="COMPL. DESIGN DEV. (REVISED)^DX^^50;18^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,36.2,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,36.2,21,0)="^^1^1^2951012^^^"
^DD(6925,36.2,21,1,0)="Revised date for completion of design development."
^DD(6925,36.2,"DT")="2970402"
^DD(6925,37,0)="START/AWARD CD (REVISED)^DX^^3;3^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,37,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,37,21,0)="^^2^2^2951012^^^^"
^DD(6925,37,21,1,0)="Current (revised) estimate of the starting date for development of"
^DD(6925,37,21,2,0)="construction documents."
^DD(6925,37,"DT")="2970402"
^DD(6925,38,0)="COMPL. CONST. DOCS. (REVISED)^DX^^3;4^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,38,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,38,21,0)="^^2^2^2951012^^^"
^DD(6925,38,21,1,0)="Current (revised) estimate of the target date for completion of"
^DD(6925,38,21,2,0)="construction documents."
^DD(6925,38,"DT")="2970402"
^DD(6925,38.4,0)="START L/T REVIEW (REVISED)^DX^^56;2^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,38.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,38.4,21,0)="^^2^2^2951016^"
^DD(6925,38.4,21,1,0)="Current (revised) estimate of the target date for start of the Legal"
^DD(6925,38.4,21,2,0)="Technical review."
^DD(6925,38.4,"DT")="2970402"
^DD(6925,38.6,0)="START AUDIT REVIEW (REVISED)^DX^^56;5^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,38.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,38.6,21,0)="^^2^2^2970912^"
^DD(6925,38.6,21,1,0)="Current (revised) estimate of the target date for start of the audit"
^DD(6925,38.6,21,2,0)="review. Examples of audit reviews include DCAA, DOE, and DOD reviews."
^DD(6925,38.6,"DT")="2970912"
^DD(6925,39,0)="ISSUE IFB/SBA (REVISED)^DX^^3;5^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,39,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,39,21,0)="^^2^2^2890526^"
^DD(6925,39,21,1,0)="Current (revised) estimate of the target date for issuance of the"
^DD(6925,39,21,2,0)="Invitation For Bids."
^DD(6925,39,"DT")="2970402"
^DD(6925,39.4,0)="COMPL. L/T REVIEW (REVISED)^DX^^56;8^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,39.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,39.4,21,0)="^^2^2^2951016^"
^DD(6925,39.4,21,1,0)="Current (revised) estimate of the target date for completion of the"
^DD(6925,39.4,21,2,0)="Legal/Technical review."
^DD(6925,39.4,"DT")="2970402"
^DD(6925,39.6,0)="COMPL. AUDIT REVIEW (REVISED)^DX^^56;11^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,39.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,39.6,21,0)="^^2^2^2970912^"
^DD(6925,39.6,21,1,0)="Current (revised) estimate of the target date for completion of the audit"
^DD(6925,39.6,21,2,0)="review. Examples of audit reviews include DCAA, DOE, and DOD reviews."
^DD(6925,39.6,"DT")="2970912"
^DD(6925,40,0)="BID OPEN/NEGOTIATION (REVISED)^DX^^3;6^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,40,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,40,21,0)="^^1^1^2890526^"
^DD(6925,40,21,1,0)="Current (revised) estimate of the target date for bid openings."
^DD(6925,40,"DT")="2970402"
^DD(6925,41,0)="CONSTRUCTION AWARD (REVISED)^DX^^3;7^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,41,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,41,21,0)="^^2^2^2890526^"
^DD(6925,41,21,1,0)="Current (revised) estimate of the target date for award of the"
^DD(6925,41,21,2,0)="construction contract(s)."
^DD(6925,41,"DT")="2970402"
^DD(6925,42,0)="CONSTRUCTION START (REVISED)^DX^^3;8^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,42,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,42,21,0)="^^2^2^2890526^"
^DD(6925,42,21,1,0)="Current (revised) estimate of the target date for the start of"
^DD(6925,42,21,2,0)="construction."
^DD(6925,42,"DT")="2970402"
^DD(6925,43,0)="CONST. COMPLETE (REVISED)^DX^^3;9^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,43,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,43,21,0)="^^2^2^2890526^"
^DD(6925,43,21,1,0)="Current (revised) target date by which it is expected that construction"
^DD(6925,43,21,2,0)="will be substantially complete."
^DD(6925,43,"DT")="2970402"
^DD(6925,44,0)="ACTIVATION (REVISED)^DX^^50;19^S %DT=""E"" D ^%DT S X=Y K:3991231<X!(2700101>X) X I $D(X) K:$E(X,4,5)=""00"" X I $D(X) S:$E(X,6,7)=""00"" X=$$EOM^ENUTL(X)"
^DD(6925,44,3)="TYPE A DATE BETWEEN 1/1/1970 AND 12/31/2099"
^DD(6925,44,21,0)="^^1^1^2930209^"
^DD(6925,44,21,1,0)="Revised date for project activation."
^DD(6925,44,"DT")="2970402"
^DD(6925,46,0)="OLD DESIGN PROGRAM START (REV)^DI^^66;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46,21,0)="^^1^1^2930209^"
^DD(6925,46,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46,"DT")="2930208"
^DD(6925,46.1,0)="OLD DESIGN PROGRAM COMP. (REV)^DI^^66;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.1,21,0)="^^1^1^2930209^"
^DD(6925,46.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.1,"DT")="2930208"
^DD(6925,46.2,0)="OLD AUTHR. LTR. REC'D. (REV)^DI^^66;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.2,21,0)="^^1^1^2930209^"
^DD(6925,46.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.2,"DT")="2930208"
^DD(6925,46.3,0)="OLD ADVERTISE FOR A/E (REV)^DI^^66;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.3,21,0)="^^1^1^2930209^"
^DD(6925,46.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.3,"DT")="2930422"
^DD(6925,46.4,0)="OLD SELECT A/E (REV)^DI^^66;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.4,21,0)="^^1^1^2930209^"
^DD(6925,46.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.4,"DT")="2930208"
^DD(6925,46.5,0)="OLD A/E AWARD (REV)^DI^^66;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.5,21,0)="^^1^1^2930209^"
^DD(6925,46.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.5,"DT")="2930208"
^DD(6925,46.6,0)="OLD START SCHEMATICS (REV)^DI^^62;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.6,21,0)="^^1^1^2930209^"
^DD(6925,46.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.6,"DT")="2930208"
^DD(6925,46.7,0)="OLD COMPLETE SCHEMATICS (REV)^DI^^62;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.7,21,0)="^^1^1^2930209^"
^DD(6925,46.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.7,"DT")="2930208"
^DD(6925,46.8,0)="OLD START DD (REV)^DI^^66;17^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.8,21,0)="^^1^1^2930209^"
^DD(6925,46.8,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.8,"DT")="2930208"
^DD(6925,46.9,0)="OLD COMPLETE DD (REV)^DI^^66;18^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,46.9,21,0)="^^1^1^2930209^"
^DD(6925,46.9,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,46.9,"DT")="2930208"
^DD(6925,47,0)="OLD START CD (REV)^DI^^62;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47,21,0)="^^1^1^2930209^"
^DD(6925,47,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47,"DT")="2930208"
^DD(6925,47.1,0)="OLD COMPLETE CD (REV)^DI^^62;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.1,21,0)="^^1^1^2930209^"
^DD(6925,47.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.1,"DT")="2930208"
^DD(6925,47.14,0)="OLD START L/T REVIEW (REV)^DI^^69;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.14,21,0)="^^1^1^2951016^"
^DD(6925,47.14,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.14,"DT")="2951016"
^DD(6925,47.16,0)="OLD START AUDIT REVIEW (REV)^DI^^69;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.16,21,0)="^^1^1^2951016^"
^DD(6925,47.16,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.16,"DT")="2970912"
^DD(6925,47.2,0)="OLD ISSUE IFB (REV)^DI^^62;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.2,21,0)="^^1^1^2930209^"
^DD(6925,47.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.2,"DT")="2930208"
^DD(6925,47.24,0)="OLD COMPL. L/T REVIEW (REV)^DI^^69;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.24,21,0)="^^1^1^2951016^"
^DD(6925,47.24,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.24,"DT")="2951016"
^DD(6925,47.26,0)="OLD COMPL. AUDIT REVIEW (REV)^DI^^69;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.26,21,0)="^^1^1^2951016^"
^DD(6925,47.26,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.26,"DT")="2970912"
^DD(6925,47.3,0)="OLD BID OPEN (REV)^DI^^62;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.3,21,0)="^^1^1^2930209^"
^DD(6925,47.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.3,"DT")="2930208"
^DD(6925,47.4,0)="OLD CONSTRUCTION AWARD (REV)^DI^^62;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.4,21,0)="^^1^1^2930209^"
^DD(6925,47.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.4,"DT")="2930208"
^DD(6925,47.5,0)="OLD CONSTRUCTION START (REV)^DI^^62;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.5,21,0)="^^1^1^2930209^"
^DD(6925,47.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.5,"DT")="2930208"
^DD(6925,47.6,0)="OLD CONSTRUCTION COMP. (REV)^DI^^62;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.6,21,0)="^^1^1^2930209^"
^DD(6925,47.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.6,"DT")="2930208"
^DD(6925,47.7,0)="OLD ACTIVATION (REV)^DI^^66;19^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,47.7,21,0)="^^1^1^2930209^"
^DD(6925,47.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,47.7,"DT")="2930208"
^DD(6925,49,0)="DESIGN PROGRAM START (ACTUAL)^D^^51;1^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,49,1,0)="^.1"
^DD(6925,49,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,49,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,49,1,1,69.2) S X=$P(Y(101),U,4)<4 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""6"" X ^DD(6925,49,1,1,1.4)"
^DD(6925,49,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,49,1,1,2)="Q"
^DD(6925,49,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,49,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,49,1,1,"%D",1,0)="Set Status to DESIGN PROGRAM when current value is a prior status."
^DD(6925,49,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<4"
^DD(6925,49,1,1,"CREATE VALUE")="""6"""
^DD(6925,49,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,49,1,1,"DT")="2951016"
^DD(6925,49,1,1,"FIELD")="STATUS"
^DD(6925,49,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,49,21,0)="^^1^1^2970402^^^^"
^DD(6925,49,21,1,0)="Actual date of design program start."
^DD(6925,49,"DT")="2951016"
^DD(6925,49.1,0)="DESIGN PROGRAM COMPL. (ACTUAL)^D^^51;2^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,49.1,1,0)="^.1"
^DD(6925,49.1,1,1,0)="^^TRIGGER^6925^13"
^DD(6925,49.1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=""100"" X ^DD(6925,49.1,1,1,1.4)"
^DD(6925,49.1,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,11)=DIV,DIH=6925,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,49.1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="""" X ^DD(6925,49.1,1,1,2.4)"
^DD(6925,49.1,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,11)=DIV,DIH=6925,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,49.1,1,1,"CREATE VALUE")="""100"""
^DD(6925,49.1,1,1,"DELETE VALUE")="@"
^DD(6925,49.1,1,1,"DT")="2970605"
^DD(6925,49.1,1,1,"FIELD")="#13"
^DD(6925,49.1,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,49.1,21,0)="^^1^1^2930209^"
^DD(6925,49.1,21,1,0)="Actual date of design program completion."
^DD(6925,49.1,"DT")="2970605"
^DD(6925,50,0)="AUTHORIZED (ACTUAL)^D^^4;1^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,50,1,0)="^.1"
^DD(6925,50,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,50,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,50,1,1,69.2) S X=$P(Y(101),U,4)<5 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""12"" X ^DD(6925,50,1,1,1.4)"
^DD(6925,50,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,50,1,1,2)="Q"
^DD(6925,50,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,50,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,50,1,1,"%D",1,0)="Set Status to AUTHORIZED when current value is a prior status."
^DD(6925,50,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<5"
^DD(6925,50,1,1,"CREATE VALUE")="""12"""
^DD(6925,50,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,50,1,1,"FIELD")="STATUS"
^DD(6925,50,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,50,21,0)="^^2^2^2970912^"
^DD(6925,50,21,1,0)="Actual date the project was authorized by the VISN or other controlling"
^DD(6925,50,21,2,0)="authority as appropriate."
^DD(6925,50,"DT")="2970912"
^DD(6925,51,0)="ADVERTISE FOR A/E (ACTUAL)^D^^4;2^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,51,1,0)="^.1^^0"
^DD(6925,51,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,51,21,0)="^^1^1^2930505^^^^"
^DD(6925,51,21,1,0)="Date of advertisement for Architect/Engineer."
^DD(6925,51,"DT")="2970610"
^DD(6925,52,0)="SELECT A/E (ACTUAL)^D^^4;3^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,52,1,0)="^.1"
^DD(6925,52,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,52,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,52,1,1,69.2) S X=$P(Y(101),U,4)<6 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""8"" X ^DD(6925,52,1,1,1.4)"
^DD(6925,52,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,52,1,1,2)="Q"
^DD(6925,52,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,52,1,1,"%D",0)="^^1^1^2951016^^"
^DD(6925,52,1,1,"%D",1,0)="Set Status to A/E when current value is a prior status."
^DD(6925,52,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<6"
^DD(6925,52,1,1,"CREATE VALUE")="""8"""
^DD(6925,52,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,52,1,1,"DT")="2951016"
^DD(6925,52,1,1,"FIELD")="STATUS"
^DD(6925,52,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,52,21,0)="^^1^1^2890530^^"
^DD(6925,52,21,1,0)="Actual date of selection of Architect/Engineer."
^DD(6925,52,"DT")="2951016"
^DD(6925,53,0)="A/E AWARD (ACTUAL)^D^^4;4^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,53,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,53,21,0)="^^1^1^2930422^^^^"
^DD(6925,53,21,1,0)="Date of contract award to Architect/Engineer."
^DD(6925,53,"DT")="2951012"
^DD(6925,54,0)="START SCHEMATICS (ACTUAL)^D^^4;5^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,54,1,0)="^.1"
^DD(6925,54,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,54,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,54,1,1,69.2) S X=$P(Y(101),U,4)<7 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""9"" X ^DD(6925,54,1,1,1.4)"
^DD(6925,54,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,54,1,1,2)="Q"
^DD(6925,54,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,54,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,54,1,1,"%D",1,0)="Set Status to SCHEMATICS when current value is a prior status."
^DD(6925,54,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<7"
^DD(6925,54,1,1,"CREATE VALUE")="""9"""
^DD(6925,54,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,54,1,1,"DT")="2951016"
^DD(6925,54,1,1,"FIELD")="STATUS"
^DD(6925,54,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,54,21,0)="^^1^1^2930422^^^"
^DD(6925,54,21,1,0)="Actual date on which schematic plans were begun."
^DD(6925,54,"DT")="2951016"
^DD(6925,55,0)="COMPLETE SCHEMATICS (ACTUAL)^D^^4;6^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,55,1,0)="^.1"
^DD(6925,55,1,1,0)="^^TRIGGER^6925^9"
^DD(6925,55,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=""100"" X ^DD(6925,55,1,1,1.4)"
^DD(6925,55,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,6)=DIV,DIH=6925,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,55,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" X ^DD(6925,55,1,1,2.4)"
^DD(6925,55,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,6)=DIV,DIH=6925,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,55,1,1,"CREATE VALUE")="""100"""
^DD(6925,55,1,1,"DELETE VALUE")="@"
^DD(6925,55,1,1,"DT")="2970605"
^DD(6925,55,1,1,"FIELD")="#9"
^DD(6925,55,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,55,21,0)="^^1^1^2930422^^"
^DD(6925,55,21,1,0)="Date on which schematic plans were actually completed."
^DD(6925,55,"DT")="2970605"
^DD(6925,55.5,0)="START DESIGN DEV. (ACTUAL)^D^^4;14^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,55.5,1,0)="^.1"
^DD(6925,55.5,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,55.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,55.5,1,1,69.2) S X=$P(Y(101),U,4)<8 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""10"" X ^DD(6925,55.5,1,1,1.4)"
^DD(6925,55.5,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,55.5,1,1,2)="Q"
^DD(6925,55.5,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,55.5,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,55.5,1,1,"%D",1,0)="Set Status to DESIGN DEVELOPMENT when current value is a prior status."
^DD(6925,55.5,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<8"
^DD(6925,55.5,1,1,"CREATE VALUE")="""10"""
^DD(6925,55.5,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,55.5,1,1,"DT")="2951016"
^DD(6925,55.5,1,1,"FIELD")="STATUS"
^DD(6925,55.5,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,55.5,21,0)="^^1^1^2951012^^"
^DD(6925,55.5,21,1,0)="Actual start of design development."
^DD(6925,55.5,"DT")="2951016"
^DD(6925,55.6,0)="COMPL. DESIGN DEV. (ACTUAL)^D^^4;15^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,55.6,1,0)="^.1"
^DD(6925,55.6,1,1,0)="^^TRIGGER^6925^12"
^DD(6925,55.6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=""100"" X ^DD(6925,55.6,1,1,1.4)"
^DD(6925,55.6,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,9)=DIV,DIH=6925,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,55.6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(6925,55.6,1,1,2.4)"
^DD(6925,55.6,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,9)=DIV,DIH=6925,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,55.6,1,1,"CREATE VALUE")="""100"""
^DD(6925,55.6,1,1,"DELETE VALUE")="@"
^DD(6925,55.6,1,1,"DT")="2970605"
^DD(6925,55.6,1,1,"FIELD")="#12"
^DD(6925,55.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,55.6,21,0)="^^1^1^2951012^^"
^DD(6925,55.6,21,1,0)="Actual completion date for design development."
^DD(6925,55.6,"DT")="2970605"
^DD(6925,56,0)="START/AWARD CD (ACTUAL)^D^^4;7^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,56,1,0)="^.1"
^DD(6925,56,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,56,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,56,1,1,69.2) S X=$P(Y(101),U,4)<9 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""11"" X ^DD(6925,56,1,1,1.4)"
^DD(6925,56,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,56,1,1,2)="Q"
^DD(6925,56,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,56,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,56,1,1,"%D",1,0)="Set Status to CONSTRUCTION DOCUMENTS when current value is a prior status."
^DD(6925,56,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<9"
^DD(6925,56,1,1,"CREATE VALUE")="""11"""
^DD(6925,56,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,56,1,1,"DT")="2951016"
^DD(6925,56,1,1,"FIELD")="STATUS"
^DD(6925,56,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,56,21,0)="^^1^1^2951012^^^"
^DD(6925,56,21,1,0)="Date on which construction documents were begun."
^DD(6925,56,"DT")="2951018"
^DD(6925,57,0)="COMPL. CONST. DOCS. (ACTUAL)^D^^4;8^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,57,1,0)="^.1"
^DD(6925,57,1,1,0)="^^TRIGGER^6925^10"
^DD(6925,57,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X=DIV S X=""100"" X ^DD(6925,57,1,1,1.4)"
^DD(6925,57,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,7)=DIV,DIH=6925,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,57,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" X ^DD(6925,57,1,1,2.4)"
^DD(6925,57,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,7)=DIV,DIH=6925,DIG=10 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,57,1,1,"CREATE VALUE")="""100"""
^DD(6925,57,1,1,"DELETE VALUE")="@"
^DD(6925,57,1,1,"DT")="2970605"
^DD(6925,57,1,1,"FIELD")="#10"
^DD(6925,57,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,57,21,0)="^^1^1^2951012^^^"
^DD(6925,57,21,1,0)="Actual date on which construction documents were completed."
^DD(6925,57,"DT")="2970605"
^DD(6925,57.4,0)="START L/T REVIEW (ACTUAL)^D^^56;3^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,57.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,57.4,21,0)="^^1^1^2951016^"
^DD(6925,57.4,21,1,0)="Actual date on which the Legal/Technical review was started."
^DD(6925,57.4,"DT")="2970402"
^DD(6925,57.6,0)="START AUDIT REVIEW (ACTUAL)^D^^56;6^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,57.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,57.6,21,0)="^^2^2^2970912^^"
^DD(6925,57.6,21,1,0)="Actual date on which the audit review was started. Examples of audit"
^DD(6925,57.6,21,2,0)="reviews include DCAA, DOE, and DOD reviews."
^DD(6925,57.6,"DT")="2970912"
^DD(6925,58,0)="ISSUE IFB/SBA (ACTUAL)^D^^4;9^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,58,1,0)="^.1"
^DD(6925,58,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,58,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,58,1,1,69.2) S X=$P(Y(101),U,4)<10 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""13"" X ^DD(6925,58,1,1,1.4)"
^DD(6925,58,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,58,1,1,2)="Q"
^DD(6925,58,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,58,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,58,1,1,"%D",1,0)="Set Status to INVITATION FOR BID when current value is a prior status."
^DD(6925,58,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<10"
^DD(6925,58,1,1,"CREATE VALUE")="""13"""
^DD(6925,58,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,58,1,1,"DT")="2951016"
^DD(6925,58,1,1,"FIELD")="STATUS"
^DD(6925,58,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,58,21,0)="^^1^1^2890530^"
^DD(6925,58,21,1,0)="Actual date of issuance of Invitation For Bids."
^DD(6925,58,"DT")="2951016"
^DD(6925,58.4,0)="COMPL. L/T REVIEW (ACTUAL)^D^^56;9^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,58.4,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,58.4,21,0)="^^1^1^2970402^^"
^DD(6925,58.4,21,1,0)="Actual date on which the Legal/Technical review was completed."
^DD(6925,58.4,"DT")="2970402"
^DD(6925,58.6,0)="COMPL. AUDIT REVIEW (ACTUAL)^D^^56;12^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,58.6,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,58.6,21,0)="^^2^2^2970912^"
^DD(6925,58.6,21,1,0)="Actual date on which the audit review was completed. Examples of audit"
^DD(6925,58.6,21,2,0)="reviews include DCAA, DOE, and DOD reviews."
^DD(6925,58.6,"DT")="2970912"
^DD(6925,59,0)="BID OPEN/NEGOTIATION (ACTUAL)^D^^4;10^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,59,1,0)="^.1"
^DD(6925,59,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,59,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,59,1,1,69.2) S X=$P(Y(101),U,4)<11 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""14"" X ^DD(6925,59,1,1,1.4)"
^DD(6925,59,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,59,1,1,2)="Q"
^DD(6925,59,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,59,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,59,1,1,"%D",1,0)="Set Status to BID OPEN when current value is a prior status."
^DD(6925,59,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<11"
^DD(6925,59,1,1,"CREATE VALUE")="""14"""
^DD(6925,59,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,59,1,1,"DT")="2951016"
^DD(6925,59,1,1,"FIELD")="STATUS"
^DD(6925,59,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,59,21,0)="^^1^1^2951012^^^^"
^DD(6925,59,21,1,0)="Actual date of bid opening."
^DD(6925,59,"DT")="2951016"
^DD(6925,60,0)="CONSTRUCTION AWARD (ACTUAL)^D^^4;11^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,60,1,0)="^.1"
^DD(6925,60,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,60,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,60,1,1,69.2) S X=$P(Y(101),U,4)<12 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""15"" X ^DD(6925,60,1,1,1.4)"
^DD(6925,60,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,60,1,1,2)="Q"
^DD(6925,60,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,60,1,1,"%D",0)="^^1^1^2951016^^^"
^DD(6925,60,1,1,"%D",1,0)="Set Status to CONSTRUCTION when current value is a prior status."
^DD(6925,60,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<12"
^DD(6925,60,1,1,"CREATE VALUE")="""15"""
^DD(6925,60,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,60,1,1,"DT")="2951016"
^DD(6925,60,1,1,"FIELD")="STATUS"
^DD(6925,60,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,60,21,0)="^^1^1^2890530^^"
^DD(6925,60,21,1,0)="Actual date of award of construction contract."
^DD(6925,60,"DT")="2951016"
^DD(6925,61,0)="CONSTRUCTION START (ACTUAL)^D^^4;12^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,61,1,0)="^.1"
^DD(6925,61,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,61,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,61,1,1,69.2) S X=$P(Y(101),U,4)<12 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""15"" X ^DD(6925,61,1,1,1.4)"
^DD(6925,61,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,61,1,1,2)="Q"
^DD(6925,61,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,61,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<12"
^DD(6925,61,1,1,"CREATE VALUE")="""15"""
^DD(6925,61,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,61,1,1,"FIELD")="#6"
^DD(6925,61,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,61,21,0)="^^1^1^2890530^"
^DD(6925,61,21,1,0)="Date on which construction actually began."
^DD(6925,61,"DT")="2970425"
^DD(6925,62,0)="CONST. COMPLETE (ACTUAL)^D^^4;13^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,62,1,0)="^.1"
^DD(6925,62,1,1,0)="^^TRIGGER^6925^11"
^DD(6925,62,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=""100"" X ^DD(6925,62,1,1,1.4)"
^DD(6925,62,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,8)=DIV,DIH=6925,DIG=11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,62,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="""" X ^DD(6925,62,1,1,2.4)"
^DD(6925,62,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,8)=DIV,DIH=6925,DIG=11 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,62,1,1,"CREATE VALUE")="""100"""
^DD(6925,62,1,1,"DELETE VALUE")="@"
^DD(6925,62,1,1,"DT")="2970605"
^DD(6925,62,1,1,"FIELD")="#11"
^DD(6925,62,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,62,21,0)="^^2^2^2890530^"
^DD(6925,62,21,1,0)="Actual date on which construction was judged to be substantially"
^DD(6925,62,21,2,0)="complete."
^DD(6925,62,"DT")="2970605"
^DD(6925,63,0)="ACTIVATION (ACTUAL)^D^^51;3^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2700101>X) X"
^DD(6925,63,1,0)="^.1"
^DD(6925,63,1,1,0)="^^TRIGGER^6925^6"
^DD(6925,63,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X X ^DD(6925,63,1,1,69.2) S X=$P(Y(101),U,4)<13 S D0=I(0,0) I X S X=DIV S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=""16"" X ^DD(6925,63,1,1,1.4)"
^DD(6925,63,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:"""") S X=$P(Y(1),U,3),X=X S X=X<16"
^DD(6925,63,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),1)):^(1),1:""""),DIV=X S $P(^(1),U,3)=DIV,DIH=6925,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,63,1,1,2)="Q"
^DD(6925,63,1,1,69.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ENG(""PROJ"",D0,1)):^(1),1:""""),D0=$P(Y(1),U,3) S:'$D(^ENG(6925.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6925.2,D0,0)):^(0),1:"""")"
^DD(6925,63,1,1,"%D",0)="^^1^1^2951016^"
^DD(6925,63,1,1,"%D",1,0)="Set Status to COMPLETED PROJECT when current value is a prior status."
^DD(6925,63,1,1,"CREATE CONDITION")="STATUS:SORT ORDER<13"
^DD(6925,63,1,1,"CREATE VALUE")="""16"""
^DD(6925,63,1,1,"DELETE VALUE")="NO EFFECT"
^DD(6925,63,1,1,"DT")="2951016"
^DD(6925,63,1,1,"FIELD")="STATUS"
^DD(6925,63,3)="TYPE A DATE BETWEEN 1/1/1970 AND TODAY"
^DD(6925,63,21,0)="^^1^1^2930209^"
^DD(6925,63,21,1,0)="Actual date of project activation."
^DD(6925,63,"DT")="2951016"
^DD(6925,65,0)="OLD DESIGN PROGRAM START (ACT)^DI^^67;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65,21,0)="^^1^1^2930209^"
^DD(6925,65,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65,"DT")="2930208"
^DD(6925,65.1,0)="OLD DESIGN PROGRAM COMP. (ACT)^DI^^67;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.1,21,0)="^^1^1^2930209^"
^DD(6925,65.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.1,"DT")="2930208"
^DD(6925,65.2,0)="OLD AUTHORIZED (ACT)^DI^^63;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.2,21,0)="^^1^1^2930209^"
^DD(6925,65.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.2,"DT")="2970912"
^DD(6925,65.3,0)="OLD ADVERTISE FOR A/E (ACT)^DI^^63;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.3,21,0)="^^1^1^2930209^"
^DD(6925,65.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.3,"DT")="2930422"
^DD(6925,65.4,0)="OLD SELECT A/E (ACT)^DI^^63;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.4,21,0)="^^1^1^2930209^"
^DD(6925,65.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.4,"DT")="2930208"
^DD(6925,65.5,0)="OLD A/E AWARD (ACT)^DI^^63;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.5,21,0)="^^1^1^2930209^"
^DD(6925,65.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.5,"DT")="2930208"
^DD(6925,65.6,0)="OLD START SCHEMATICS (ACT)^DI^^63;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.6,21,0)="^^1^1^2930209^"
^DD(6925,65.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.6,"DT")="2930208"
^DD(6925,65.7,0)="OLD COMPL. SCHEMATICS (ACT)^DI^^63;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.7,21,0)="^^1^1^2930209^"
^DD(6925,65.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.7,"DT")="2930208"
^DD(6925,65.8,0)="OLD START CD (ACT)^DI^^63;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.8,21,0)="^^1^1^2930209^"
^DD(6925,65.8,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.8,"DT")="2930208"
^DD(6925,65.9,0)="OLD COMPLETE CD (ACT)^DI^^63;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.9,21,0)="^^1^1^2930209^"
^DD(6925,65.9,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.9,"DT")="2930208"
^DD(6925,65.94,0)="OLD START L/T REVIEW (ACT)^DI^^69;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.94,21,0)="^^1^1^2951016^"
^DD(6925,65.94,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.94,"DT")="2951016"
^DD(6925,65.96,0)="OLD START AUDIT REVIEW (ACT)^DI^^69;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,65.96,21,0)="^^1^1^2951016^"
^DD(6925,65.96,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,65.96,"DT")="2970912"
^DD(6925,66,0)="OLD ISSUE IFB (ACT)^DI^^63;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66,21,0)="^^1^1^2930209^"
^DD(6925,66,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66,"DT")="2930208"
^DD(6925,66.04,0)="OLD COMPL. L/T REVIEW (ACT)^DI^^69;9^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.04,21,0)="^^1^1^2951016^"
^DD(6925,66.04,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.04,"DT")="2951016"
^DD(6925,66.06,0)="OLD COMPL. AUDIT REVIEW (ACT)^DI^^69;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.06,21,0)="^^1^1^2951016^"
^DD(6925,66.06,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.06,"DT")="2970912"
^DD(6925,66.1,0)="OLD BID OPEN (ACT)^DI^^63;10^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.1,21,0)="^^1^1^2930209^"
^DD(6925,66.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.1,"DT")="2930208"
^DD(6925,66.2,0)="OLD CONSTRUCTION AWARD (ACT)^DI^^63;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.2,21,0)="^^1^1^2930209^"
^DD(6925,66.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.2,"DT")="2930208"
^DD(6925,66.3,0)="OLD CONSTRUCTION START (ACT)^DI^^63;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.3,21,0)="^^1^1^2930209^"
^DD(6925,66.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.3,"DT")="2930208"
^DD(6925,66.4,0)="OLD CONST. COMPLETE (ACT)^DI^^63;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.4,21,0)="^^1^1^2930209^"
^DD(6925,66.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.4,"DT")="2930208"
^DD(6925,66.5,0)="OLD ACTIVATION (ACT)^DI^^67;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.5,21,0)="^^1^1^2930209^"
^DD(6925,66.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.5,"DT")="2930208"
^DD(6925,66.6,0)="OLD START DD (ACT)^DI^^63;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.6,21,0)="^^1^1^2930209^"
^DD(6925,66.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.6,"DT")="2930208"
^DD(6925,66.7,0)="OLD COMPLETE DD (ACT)^DI^^63;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,66.7,21,0)="^^1^1^2930209^"
^DD(6925,66.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,66.7,"DT")="2930208"
^DD(6925,70,0)="A/E CONTRACT #^F^^5;1^K:$L(X)>15!($L(X)<6)!'(X?.ANP) X"
^DD(6925,70,3)="Answer must be 6-15 characters in length."
^DD(6925,70,21,0)="^^2^2^2970609^^^"
^DD(6925,70,21,1,0)="Official identifier of contract with Architect/Engineer for project"
^DD(6925,70,21,2,0)="design and related services."
^DD(6925,70,"DT")="2970609"
^DD(6925,71.5,0)="A/E FUND CONTROL POINT^F^^51;4^K:$L(X)>30!($L(X)<3) X"
^DD(6925,71.5,3)="Answer must be 3-30 characters in length."
^DD(6925,71.5,21,0)="^^1^1^2930209^"
^DD(6925,71.5,21,1,0)="Fund control point (IFCAP) for design obligations."
^DD(6925,71.5,"DT")="2930206"
^DD(6925,71.6,0)="A/E AWARD AMOUNT^NJ7,0^^5;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,71.6,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,71.6,21,0)="^^1^1^2930422^^"
^DD(6925,71.6,21,1,0)="Original A/E award obligation."
^DD(6925,71.6,"DT")="2921229"
^DD(6925,71.7,0)="A/E STUDY^NJ7,0^^51;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,71.7,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,71.7,21,0)="^^1^1^2930206^"
^DD(6925,71.7,21,1,0)="Amount obligated to A/E for performance of a formal study."
^DD(6925,71.7,"DT")="2930206"
^DD(6925,72,0)="A/E SCHEMATICS^NJ7,0^^5;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,72,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,72,21,0)="^^2^2^2930206^^^^"
^DD(6925,72,21,1,0)="Amount obligated for Architect/Engineer services in"
^DD(6925,72,21,2,0)="development of schematics. Round to nearest whole dollar."
^DD(6925,72,"DT")="2930206"
^DD(6925,72.3,0)="A/E SITE SURVEY^NJ7,0^^5;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,72.3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,72.3,21,0)="^^2^2^2951122^"
^DD(6925,72.3,21,1,0)="Amount obligated to Architect/Engineer for services in making site surveys"
^DD(6925,72.3,21,2,0)="and other related activities. Round to nearest whole dollar."
^DD(6925,72.3,"DT")="2951122"
^DD(6925,72.5,0)="A/E DESIGN DEVELOPMENT^NJ7,0^^51;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,72.5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,72.5,21,0)="^^2^2^2930422^^^"
^DD(6925,72.5,21,1,0)="Amount obligated to A/E for design development. Round to"
^DD(6925,72.5,21,2,0)="nearest whole dollar."
^DD(6925,72.5,"DT")="2930422"
^DD(6925,73,0)="A/E CONST DOCUMENTS^NJ7,0^^5;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,73,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,73,21,0)="^^3^3^2930422^^^^"
^DD(6925,73,21,1,0)="Amount obligated for Architect/Engineer services in"
^DD(6925,73,21,2,0)="development of working drawings and specifications. Round to"
^DD(6925,73,21,3,0)="nearest whole dollar."
^DD(6925,73,"DT")="2930422"
^DD(6925,74,0)="A/E SITE VISITS^NJ7,0^^5;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,74,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,74,21,0)="^^2^2^2970710^"
^DD(6925,74,21,1,0)="Amount obligated to Architect/Engineer for services in making site visits"
^DD(6925,74,21,2,0)="and related activities. Round to nearest whole dollar."
^DD(6925,74,"DT")="2951122"
^DD(6925,75,0)="A/E CONST PER SERVCS^NJ7,0^^5;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,75,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,75,21,0)="^^3^3^2930421^^^"
^DD(6925,75,21,1,0)="Amount obligated to Architect/Engineer for services to the"
^DD(6925,75,21,2,0)="medical center during the course of the actual construction period."
^DD(6925,75,21,3,0)="Round to nearest whole dollar."
^DD(6925,75,"DT")="2930206"
^DD(6925,75.5,0)="A/E OTHER SERVICES^NJ7,0^^51;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,75.5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,75.5,21,0)="^^1^1^2930206^"
^DD(6925,75.5,21,1,0)="Amount obligated to A/E for services not otherwise classified."
^DD(6925,75.5,"DT")="2930206"
^DD(6925,76,0)="A/E SUBTOTAL^CJ8,0^^ ; ^X ^DD(6925,76,9.2) S X=X+$P(Y(6925,76,1),U,7)+$P(Y(6925,76,2),U,4)+$P(Y(6925,76,2),U,5)+$P(Y(6925,76,2),U,6)+$P(Y(6925,76,1),U,8) S X=$J(X,0,0)"
^DD(6925,76,9)="^"
^DD(6925,76,9.01)="6925^75.5;6925^75;6925^74;6925^73;6925^72.5;6925^72.3;6925^72;6925^71.7"
^DD(6925,76,9.1)="(#71.7+#72+#72.3+#72.5+#73+#74+#75+#75.5)"
^DD(6925,76,9.2)="S Y(6925,76,2)=$S($D(^ENG(""PROJ"",D0,5)):^(5),1:""""),Y(6925,76,1)=$S($D(^(51)):^(51),1:"""") S X=$P(Y(6925,76,1),U,6)+$P(Y(6925,76,2),U,3)+$P(Y(6925,76,2),U,10)"
^DD(6925,76,21,0)="^^3^3^2930206^^^"
^DD(6925,76,21,1,0)="Total amount obligated to Architect/Engineer for design and"
^DD(6925,76,21,2,0)="design-related services. Computed field, not subject to direct edit."
^DD(6925,76,21,3,0)="Should never exceed the A/E AWARD AMOUNT."
^DD(6925,76,"DT")="2930207"
^DD(6925,77,0)="A/E SA ADDITIONS (#)^NJ3,0^^51;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,77,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,77,4)="W ""     SA stands for supplemental agreement."""
^DD(6925,77,21,0)="^^1^1^2930422^^"
^DD(6925,77,21,1,0)="Number of A/E supplemental agreements that add to the cost of design."
^DD(6925,77,"DT")="2970401"
^DD(6925,78,0)="A/E SA ADDITIONS ($)^NJ7,0^^51;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,78,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,78,4)="W ""     SA stands for supplemental agreement."""
^DD(6925,78,21,0)="^^1^1^2930422^^"
^DD(6925,78,21,1,0)="Total cost of A/E supplemental agreements that increase design costs."
^DD(6925,78,"DT")="2930422"
^DD(6925,79,0)="A/E SA DEDUCTIONS (#)^NJ3,0^^51;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,79,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,79,4)="W ""     SA stands for supplemental agreements."""
^DD(6925,79,21,0)="^^1^1^2930422^^"
^DD(6925,79,21,1,0)="Number of A/E supplemental agreements that reduce design cost."
^DD(6925,79,"DT")="2930422"
^DD(6925,80,0)="A/E SA DEDUCTIONS ($)^NJ7,0^^51;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,80,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,80,4)="W ""     SA stands for supplemental agreements."""
^DD(6925,80,21,0)="^^2^2^2930422^^"
^DD(6925,80,21,1,0)="Total dollar value of all A/E supplemental agreements that decrease"
^DD(6925,80,21,2,0)="design cost."
^DD(6925,80,"DT")="2930422"
^DD(6925,81,0)="A/E SA NET ($)^CJ8,0^^ ; ^S Y(6925,81,1)=$S($D(^ENG(""PROJ"",D0,51)):^(51),1:"""") S X=$P(Y(6925,81,1),U,10)-$P(Y(6925,81,1),U,12)"
^DD(6925,81,9)="^"
^DD(6925,81,9.01)="6925^80;6925^78"
^DD(6925,81,9.1)="#78-#80"
^DD(6925,81,21,0)="^^1^1^2930422^^"
^DD(6925,81,21,1,0)="Net cost of A/E supplemental agreements."
^DD(6925,81,"DT")="2930422"
^DD(6925,82,0)="A/E OBLIGATED^CJ10,0^^ ; ^X $P(^DD(6925,81,0),U,5,99) S Y(6925,82,2)=X S Y(6925,82,1)=$S($D(^ENG(""PROJ"",D0,5)):^(5),1:"""") S X=$P(Y(6925,82,1),U,9)+Y(6925,82,2)"
^DD(6925,82,9)="^"
^DD(6925,82,9.01)="6925^81;6925^71.6"
^DD(6925,82,9.1)="#71.6+#81"
^DD(6925,82,21,0)="^^1^1^2930207^"
^DD(6925,82,21,1,0)="Total A/E obligation (to date)."
^DD(6925,85,0)="A/E NAME^FX^^6;1^K:$L(X)>35!($L(X)<1)!(X'?.ANP) X"
^DD(6925,85,3)="ENTER A/E NAME (35 CHAR. MAX)"
^DD(6925,85,21,0)="^^1^1^2890530^"
^DD(6925,85,21,1,0)="Name of Architect/Engineer firm retained for this project."
^DD(6925,85,"DT")="2841206"
^DD(6925,86,0)="A/E ADDR1^FX^^6;2^K:$L(X)>35!($L(X)<1)!(X'?.ANP) X"
^DD(6925,86,3)="ENTER A/E STREET ADDRESS (35 CHAR. MAX)"
^DD(6925,86,21,0)="^^3^3^2890530^^"
^DD(6925,86,21,1,0)="First line of Architect/Engineer address. May be up to 35 characters"
^DD(6925,86,21,2,0)="long and should generally contain the street address or post office"
^DD(6925,86,21,3,0)="box (or equivalent)."
^DD(6925,86,"DT")="2841206"
^DD(6925,87,0)="A/E ADDR2^FX^^6;3^K:$L(X)>35!($L(X)<1)!(X'?.ANP) X"
^DD(6925,87,3)="ENTER A/E CITY,STATE,ZIP (35 CHAR. MAX)"
^DD(6925,87,21,0)="^^3^3^2890530^"
^DD(6925,87,21,1,0)="Second (and final) line of Architect/Engineer address. May be up to"
^DD(6925,87,21,2,0)="35 characters long and should generally contain the city, state, and"
^DD(6925,87,21,3,0)="zip code."
^DD(6925,87,"DT")="2841206"
^DD(6925,90,0)="OLD A/E CONTRACT #^FI^^64;1^K:$L(X)>10!($L(X)<6) X"
^DD(6925,90,3)="Answer must be 6-10 characters in length."
^DD(6925,90,21,0)="^^1^1^2930209^"
^DD(6925,90,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90,"DT")="2930208"
^DD(6925,90.2,0)="OLD FCP (A/E)^FI^^67;4^K:$L(X)>30!($L(X)<3) X"
^DD(6925,90.2,3)="Answer must be 3-30 characters in length."
^DD(6925,90.2,21,0)="^^1^1^2930209^"
^DD(6925,90.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.2,"DT")="2930208"
^DD(6925,90.25,0)="OLD A/E AWARD AMOUNT^NJ7,0I^^64;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.25,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.25,21,0)="^^1^1^2930209^"
^DD(6925,90.25,21,1,0)="Value previously reported on electronic 10-0051."
^DD(6925,90.25,"DT")="2930422"
^DD(6925,90.3,0)="OLD A/E OBLIG. (STUDY)^NJ7,0I^^67;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.3,21,0)="^^1^1^2930209^"
^DD(6925,90.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.3,"DT")="2930208"
^DD(6925,90.4,0)="OLD A/E OBLIG. (SCHEMATICS)^NJ7,0I^^64;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.4,21,0)="^^1^1^2930209^"
^DD(6925,90.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.4,"DT")="2930208"
^DD(6925,90.45,0)="OLD A/E OBLIG. (SITE SURVEY)^NJ7,0^^64;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.45,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.45,21,0)="^^1^1^2951122^"
^DD(6925,90.45,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.45,"DT")="2951122"
^DD(6925,90.5,0)="OLD A/E OBLIG. (DD)^NJ7,0I^^67;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.5,21,0)="^^1^1^2930209^"
^DD(6925,90.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.5,"DT")="2930208"
^DD(6925,90.6,0)="OLD A/E OBLIG. (CD)^NJ7,0I^^64;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.6,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.6,21,0)="^^1^1^2930209^"
^DD(6925,90.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.6,"DT")="2930208"
^DD(6925,90.7,0)="OLD A/E OBLIG. (SITE VISIT)^NJ7,0I^^64;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.7,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.7,21,0)="^^1^1^2951122^^"
^DD(6925,90.7,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.7,"DT")="2951122"
^DD(6925,90.8,0)="OLD A/E OBLIG (CONST PER SRVC)^NJ7,0I^^64;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.8,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.8,21,0)="^^1^1^2930209^"
^DD(6925,90.8,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.8,"DT")="2930208"
^DD(6925,90.9,0)="OLD A/E OBLIG. (OTHER)^NJ7,0I^^67;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,90.9,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,90.9,21,0)="^^1^1^2930209^"
^DD(6925,90.9,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,90.9,"DT")="2930208"
^DD(6925,91,0)="OLD A/E SA ADDITIONS (#)^NJ3,0I^^67;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,91,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,91,21,0)="^^1^1^2930209^"
^DD(6925,91,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,91,"DT")="2970401"
^DD(6925,91.1,0)="OLD A/E SA ADDITIONS ($)^NJ7,0I^^67;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,91.1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,91.1,21,0)="^^1^1^2930209^"
^DD(6925,91.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,91.1,"DT")="2970401"
^DD(6925,91.2,0)="OLD A/E SA DEDUCTIONS (#)^NJ3,0I^^67;11^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,91.2,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,91.2,21,0)="^^1^1^2930209^"
^DD(6925,91.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,91.2,"DT")="2930422"
^DD(6925,91.3,0)="OLD A/E SA DEDUCTIONS ($)^NJ7,0I^^67;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,91.3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,91.3,21,0)="^^1^1^2930209^"
^DD(6925,91.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,91.3,"DT")="2930422"
^DD(6925,95,0)="*INIT. NOTIFICATION - SBA^D^^7;1^S %DT=""E"" D ^%DT S X=Y K:2991231<X!(2800101>X) X"
^DD(6925,95,3)="ENTER INITIAL NOTIFICATION TO SBA DATE"
^DD(6925,95,4)="W ""     No longer used."""
^DD(6925,95,21,0)="^^3^3^2890530^"
^DD(6925,95,21,1,0)="Date of initial notification of the Small Business Administration of"
^DD(6925,95,21,2,0)="the existence of a viable project that could be a candidate for 8A"
^DD(6925,95,21,3,0)="set-aside."
^DD(6925,95,"DT")="2930422"
^DD(6925,96,0)="*WD & SPECIFICATIONS - SBA^D^^7;2^S %DT=""E"" D ^%DT S X=Y K:2991231<X!(2800101>X) X"
^DD(6925,96,3)="ENTER WD & SPECS TO SBA DATE"
^DD(6925,96,4)="W ""     No longer used."""
^DD(6925,96,21,0)="^^2^2^2890530^"
^DD(6925,96,21,1,0)="Date on which working drawings and specifications were furnished to"
^DD(6925,96,21,2,0)="the Small Business Administration."
^DD(6925,96,"DT")="2930422"
^DD(6925,97,0)="*CONTR INIT PROP - SBA^D^^7;3^S %DT=""E"" D ^%DT S X=Y K:2991231<X!(2800101>X) X"
^DD(6925,97,3)="ENTER CONTRACTOR'S INITIAL PROPOSAL DATE"
^DD(6925,97,4)="W ""     No longer used."""
^DD(6925,97,21,0)="^^2^2^2890530^"
^DD(6925,97,21,1,0)="Date of contractor's initial proposal (through the Small Business"
^DD(6925,97,21,2,0)="Administration)."
^DD(6925,97,"DT")="2930422"
^DD(6925,98,0)="*REQ FOR PRE-AWARD - SBA^D^^7;4^S %DT=""E"" D ^%DT S X=Y K:2991231<X!(2800101>X) X"
^DD(6925,98,3)="ENTER REQUEST FOR PRE-AWARD AUDIT DATE"
^DD(6925,98,4)="W !,""     No longer used."""
^DD(6925,98,21,0)="^^2^2^2890530^"
^DD(6925,98,21,1,0)="Date on which a pre-award audit was requested (through the Small"
^DD(6925,98,21,2,0)="Business Administration)."
^DD(6925,98,"DT")="2930422"
^DD(6925,99,0)="*COMPL OF PRE-AWARD - SBA^D^^7;5^S %DT=""E"" D ^%DT S X=Y K:2991231<X!(2800101>X) X"
^DD(6925,99,3)="ENTER COMPLETION OF PRE-AWARD AUDIT DATE"
^DD(6925,99,4)="W ""     No longer used."""
^DD(6925,99,21,0)="^^2^2^2890530^"
^DD(6925,99,21,1,0)="Date of completion of pre-award audit (through the Small Business"
^DD(6925,99,21,2,0)="Administration)."
^DD(6925,99,"DT")="2930422"
^DD(6925,105,0)="CONST. CONTRACT #^F^^8;1^K:$L(X)>15!($L(X)<6)!'(X?.ANP) X"
^DD(6925,105,3)="Answer must be 6-15 characters in length."
^DD(6925,105,21,0)="^^2^2^2970609^^"
^DD(6925,105,21,1,0)="Unique identifier (contract number) of contract with a construction"
^DD(6925,105,21,2,0)="firm for the actual construction portion of this project."
^DD(6925,105,"DT")="2970609"
^DD(6925,105.5,0)="CONST FUND CONTROL PT^F^^51;5^K:$L(X)>30!($L(X)<3) X"
^DD(6925,105.5,3)="Answer must be 3-30 characters in length."
^DD(6925,105.5,21,0)="^^1^1^2930209^"
^DD(6925,105.5,21,1,0)="Fund control point (IFCAP) for construction obligations."
^DD(6925,105.5,"DT")="2930206"
^DD(6925,106,0)="CONSTRUCTION AWARD^NJ8,0^^8;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,106,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(6925,106,21,0)="^^2^2^2930422^^^^"
^DD(6925,106,21,1,0)="Amount of original construction award.  Should not include P&H"
^DD(6925,106,21,2,0)="(purchase and hire) or supplemental agreements (if any)."
^DD(6925,106,21,4,0)="of supplemental agreements or the equivalent."
^DD(6925,106,"DT")="2930206"
^DD(6925,107,0)="P&H LABOR TO DATE^NJ7,0^^53;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,107,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,107,21,0)="^^1^1^2970422^^^"
^DD(6925,107,21,1,0)="Total expenditure on purchase and hire labor to date."
^DD(6925,107,21,2,0)="in order to award the contract without exceeding available funding."
^DD(6925,107,"DT")="2921222"
^DD(6925,108,0)="P&H MATERIALS TO DATE^NJ7,0^^53;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,108,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,108,21,0)="^^1^1^2930209^"
^DD(6925,108,21,1,0)="Total expenditure on purchase and hire materials to date."
^DD(6925,108,"DT")="2921222"
^DD(6925,109,0)="TOTAL P&H^CJ8,0^^ ; ^S Y(6925,109,1)=$S($D(^ENG(""PROJ"",D0,53)):^(53),1:"""") S X=$P(Y(6925,109,1),U,1)+$P(Y(6925,109,1),U,2)"
^DD(6925,109,9)="^"
^DD(6925,109,9.01)="6925^108;6925^107"
^DD(6925,109,9.1)="#107+#108"
^DD(6925,109,21,0)="^^1^1^2930209^"
^DD(6925,109,21,1,0)="Total cost of purchase and hire."
^DD(6925,110,0)="OLD CONST. CONTRACT #^FI^^64;11^K:$L(X)>10!($L(X)<6) X"
^DD(6925,110,3)="Answer must be 6-10 characters in length."
^DD(6925,110,21,0)="^^1^1^2930209^"
^DD(6925,110,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,110,"DT")="2930208"
^DD(6925,110.2,0)="OLD FCP (CONST.)^FI^^67;5^K:$L(X)>30!($L(X)<3) X"
^DD(6925,110.2,3)="Answer must be 3-30 characters in length."
^DD(6925,110.2,21,0)="^^1^1^2930209^"
^DD(6925,110.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,110.2,"DT")="2930208"
^DD(6925,110.3,0)="OLD ORIG. CONSTRUCTION AWARD^NJ8,0I^^64;12^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,110.3,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(6925,110.3,21,0)="^^1^1^2930209^"
^DD(6925,110.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,110.3,"DT")="2930208"
^DD(6925,110.4,0)="OLD P&H LABOR TO DATE^NJ7,0I^^68;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,110.4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,110.4,21,0)="^^1^1^2930209^"
^DD(6925,110.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,110.4,"DT")="2930208"
^DD(6925,110.5,0)="OLD P&H MATERIAL TO DATE^NJ7,0I^^68;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,110.5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,110.5,21,0)="^^1^1^2930209^"
^DD(6925,110.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,110.5,"DT")="2930208"
^DD(6925,115,0)="CONTR. NAME^FX^^9;1^K:$L(X)>35!($L(X)<1)!(X'?.ANP) X"
^DD(6925,115,3)="ANSWER MUST BE 1-35 CHARACTERS IN LENGTH"
^DD(6925,115,21,0)="^^2^2^2890530^"
^DD(6925,115,21,1,0)="Name of the firm chosen as the prime (or sole) contractor for the"
^DD(6925,115,21,2,0)="construction portion of this project."
^DD(6925,115,"DT")="2841206"
^DD(6925,116,0)="CONTR. ADDR1^FX^^9;2^K:$L(X)>35!($L(X)<1)!(X'?.ANP) X"
^DD(6925,116,3)="ENTER CONTRACTOR STREET ADDRESS (35 CHAR. MAX)"
^DD(6925,116,21,0)="^^3^3^2890530^"
^DD(6925,116,21,1,0)="First line of the construction contractor's two-line mailing address."
^DD(6925,116,21,2,0)="Should generally contain the street address or post office box (or"
^DD(6925,116,21,3,0)="equivalent)."
^DD(6925,116,"DT")="2841206"
^DD(6925,117,0)="CONTR. ADDR2^FX^^9;3^K:$L(X)>35!($L(X)<1)!(X'?.ANP) X"
^DD(6925,117,3)="ENTER CONTRACTOR CITY,STATE,ZIP (35 CHAR. MAX)"
^DD(6925,117,21,0)="^^2^2^2890530^"
^DD(6925,117,21,1,0)="Second (and last) line of the construction contractor's mailing"
^DD(6925,117,21,2,0)="address. Should generally contain the city, state, and zip code."
^DD(6925,117,"DT")="2841206"
^DD(6925,125,0)="CONST SA ADDITIONS (#)^NJ3,0^^10;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,125,3)="ENTER TOTAL NUMBER OF ADD CHANGE ORDERS"
^DD(6925,125,4)="W ""     SA stands for supplemental agreement."""
^DD(6925,125,21,0)="^^2^2^2930422^^^^"
^DD(6925,125,21,1,0)="Total number of supplemental agreements that added to the"
^DD(6925,125,21,2,0)="construction cost."
^DD(6925,125,"DT")="2930422"
^DD(6925,126,0)="CONST SA ADDITIONS ($)^NJ7,0^^10;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,126,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,126,4)="W ""     SA stands for supplemental agreements."""
^DD(6925,126,21,0)="^^2^2^2930422^^"
^DD(6925,126,21,1,0)="The sum of the dollar value (rounded to the nearest dollar) of all"
^DD(6925,126,21,2,0)="supplemental agreements that increase the cost of the project."
^DD(6925,126,"DT")="2930422"
^DD(6925,127,0)="CONST SA DEDUCTIONS (#)^NJ3,0^^10;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,127,3)="ENTER TOTAL NUMBER DEDUCT CHANGE ORDERS"
^DD(6925,127,4)="W ""     SA stands for supplemental agreements."""
^DD(6925,127,21,0)="^^2^2^2930422^^"
^DD(6925,127,21,1,0)="Total number of supplemental agreements that decreased"
^DD(6925,127,21,2,0)="the construction cost."
^DD(6925,127,"DT")="2930422"
^DD(6925,128,0)="CONST SA DEDUCTIONS ($)^NJ7,0^^10;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,128,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,128,4)="W ""     SA stands for supplemental agreements."""
^DD(6925,128,21,0)="^^3^3^2930422^^"
^DD(6925,128,21,1,0)="The sum (to the nearest whole dollar) of all supplemental agreements"
^DD(6925,128,21,2,0)="that decreased the cost of construction on an approved"
^DD(6925,128,21,3,0)="project."
^DD(6925,128,"DT")="2930422"
^DD(6925,128.2,0)="CONST SUPPL (NET $)^CJ8,0^^ ; ^S Y(6925,128.2,1)=$S($D(^ENG(""PROJ"",D0,10)):^(10),1:"""") S X=$P(Y(6925,128.2,1),U,2)-$P(Y(6925,128.2,1),U,4)"
^DD(6925,128.2,9)="^"
^DD(6925,128.2,9.01)="6925^128;6925^126"
^DD(6925,128.2,9.1)="#126-#128"
^DD(6925,128.2,21,0)="^^2^2^2930422^^"
^DD(6925,128.2,21,1,0)="Cost of ADDITIONAL supplemental agreements minus savings from DEDUCT"
^DD(6925,128.2,21,2,0)="supplemental agreements."
^DD(6925,128.2,"DT")="2930206"
^DD(6925,129,0)="TOTAL CONST OBLIGATION^CJ10,0^^ ; ^X ^DD(6925,129,9.2) S X=X+$P(Y(6925,129,2),U,1)+$P(Y(6925,129,2),U,2)+$P(Y(6925,129,3),U,2)-$P(Y(6925,129,3),U,4) S X=$J(X,0,0)"
^DD(6925,129,9)="^"
^DD(6925,129,9.01)="6925^128;6925^126;6925^108;6925^107;6925^106"
^DD(6925,129,9.1)="#106+#107+#108+#126-#128"
^DD(6925,129,9.2)="S Y(6925,129,3)=$S($D(^ENG(""PROJ"",D0,10)):^(10),1:""""),Y(6925,129,2)=$S($D(^(53)):^(53),1:""""),Y(6925,129,1)=$S($D(^(8)):^(8),1:"""") S X=$P(Y(6925,129,1),U,2)"
^DD(6925,129,21,0)="^^5^5^2930422^^^"
^DD(6925,129,21,1,0)="Total amount obligated to date for construction activity on an"
^DD(6925,129,21,2,0)="approved project. Computed as the CONSTRUCTION CONTRACT AMOUNT"
^DD(6925,129,21,3,0)="(the original bottom line figure) plus the net cost (or savings)"
^DD(6925,129,21,4,0)="resulting from supplemental agreements plus P&H (if any)."
^DD(6925,129,21,5,0)="Not directly editable."
^DD(6925,129,"DT")="2930206"
^DD(6925,129.1,0)="TIME EXTENSION (DAYS)^NJ3,0^^53;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,129.1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,129.1,21,0)="^^2^2^2930422^^"
^DD(6925,129.1,21,1,0)="Time extension granted contractor, usually as a result of"
^DD(6925,129.1,21,2,0)="supplemental agreements."
^DD(6925,129.1,"DT")="2921223"
^DD(6925,130,0)="TOTAL PROJ OBLIGATION^CJ10,0^^ ; ^X ^DD(6925,130,9.2) S X=X+$P(Y(6925,130,2),U,10)-$P(Y(6925,130,2),U,12)+Y(6925,130,3)"
^DD(6925,130,9)="^"
^DD(6925,130,9.01)="6925^129;6925^80;6925^78;6925^71.6"
^DD(6925,130,9.1)="#71.6+#78-#80+#129"
^DD(6925,130,9.2)="X $P(^DD(6925,129,0),U,5,99) S Y(6925,130,3)=X S Y(6925,130,1)=$S($D(^ENG(""PROJ"",D0,5)):^(5),1:""""),Y(6925,130,2)=$S($D(^(51)):^(51),1:"""") S X=$P(Y(6925,130,1),U,9)"
^DD(6925,130,21,0)="^^1^1^2930209^"
^DD(6925,130,21,1,0)="Total dollars obligated on project (design and construction)."
^DD(6925,130,"DT")="2930206"
^DD(6925,135,0)="OLD CONST. ADD. (#)^NJ3,0I^^64;21^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,135,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,135,21,0)="^^1^1^2930209^"
^DD(6925,135,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,135,21,2,0)="reporting period."
^DD(6925,135,"DT")="2930208"
^DD(6925,135.1,0)="OLD CONST. ADD. ($)^NJ7,0I^^64;22^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,135.1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,135.1,21,0)="^^1^1^2930209^"
^DD(6925,135.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,135.1,"DT")="2930208"
^DD(6925,135.2,0)="OLD CONST. DED. (#)^NJ3,0I^^64;23^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,135.2,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,135.2,21,0)="^^1^1^2930209^"
^DD(6925,135.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,135.2,"DT")="2930208"
^DD(6925,135.3,0)="OLD CONST. DED. ($)^NJ7,0I^^64;24^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,135.3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,135.3,21,0)="^^1^1^2930209^"
^DD(6925,135.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,135.3,"DT")="2930208"
^DD(6925,135.4,0)="OLD TIME EXTENSION (DAYS)^NJ3,0I^^68;13^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,135.4,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,135.4,21,0)="^^1^1^2930209^"
^DD(6925,135.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,135.4,"DT")="2930208"
^DD(6925,145,0)="REMARKS^6925.01A^^12;0"
^DD(6925,145,21,0)="^^9^9^2930422^^^"
^DD(6925,145,21,1,0)=" Any comments that are germane to this project."
^DD(6925,145,21,2,0)=" "
^DD(6925,145,21,3,0)=" Whenever an electronic 10-0051 is transmitted, the PROGRESS NOTE"
^DD(6925,145,21,4,0)="is automatically added to the REMARKS."
^DD(6925,145,21,5,0)=" If the 'Electronic Transmission of 10-0051' option is utilized,"
^DD(6925,145,21,6,0)="then the PROGRESS NOTES field will appear in the 'Remarks'"
^DD(6925,145,21,7,0)="block. In this case, this field (REMARKS) may be used to store"
^DD(6925,145,21,8,0)="information of local interest only since it will not appear on"
^DD(6925,145,21,9,0)="either electronic or hard-copy 10-0051's."
^DD(6925,146,0)="PROGRESS NOTE^FX^^13;1^K:$L(X)<1 X I $D(X),$L(X)>235 S X=$E(X,1,235) D EN^DDIOL(""Progress Note has been truncated to 235 characters."")"
^DD(6925,146,3)="ANSWER MUST BE 1-235 CHARACTERS IN LENGTH"
^DD(6925,146,21,0)="^^4^4^2930422^^^^"
^DD(6925,146,21,1,0)="  Entries in this field will be transmitted as part of the electronic"
^DD(6925,146,21,2,0)="10-0051. Each time a transmission is made, the text in this field"
^DD(6925,146,21,3,0)="will be automatically transferred to REMARKS, leaving the field free"
^DD(6925,146,21,4,0)="for next month's PROGRESS NOTE."
^DD(6925,146,"DT")="2970428"
^DD(6925,146.1,0)="OLD PROGRESS NOTE^FI^^65;1^K:$L(X)>235!($L(X)<1) X"
^DD(6925,146.1,3)="Answer must be 1-235 characters in length."
^DD(6925,146.1,21,0)="^^1^1^2930209^"
^DD(6925,146.1,21,1,0)="Previously reported PROGRESS NOTE.  Also filed under REMARKS."
^DD(6925,146.1,"DT")="2930208"
^DD(6925,151,0)="DATE OF LAST ELECT. 10-0051^DI^^11;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,151,21,0)="^^4^4^2890124^"
^DD(6925,151,21,1,0)="Date on which 10-0051 was last sent on this project via Network MailMan."
^DD(6925,151,21,2,0)="This field is automatically filled in by AEMS/MERS software whenever a"
^DD(6925,151,21,3,0)="message containing the 10-0051 is created and sent. Only the most recent"
^DD(6925,151,21,4,0)="date of transmission is stored. Previous dates are over-written."
^DD(6925,151,"DT")="2930422"
^DD(6925,152,0)="LAST REPORTING PERIOD^DI^^50;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,152,21,0)="^^1^1^2930311^^"
^DD(6925,152,21,1,0)="Previous reporting period. Overwritten each reporting period."
^DD(6925,152,"DT")="2930422"
^DD(6925,153,0)="*SCOPE REDUCED^S^Y:YES;N:NO;^8;3^Q"
^DD(6925,153,21,0)="^^1^1^2930209^"
^DD(6925,153,21,1,0)="No longer used."
^DD(6925,153,"DT")="2921222"
^DD(6925,154,0)="*CURRENT A/E ESTIMATE^NJ7,0^^1;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,154,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,154,21,0)="^^1^1^2930209^"
^DD(6925,154,21,1,0)="No longer used."
^DD(6925,154,"DT")="2930422"
^DD(6925,155,0)="PROGRAM^RS^MA:MAJOR;MI:MINOR;MM:MINOR MISC.;NR:NRM;OT:OTHER;LE:LEASE;SL:STATION LEVEL;^0;6^Q"
^DD(6925,155,3)="Select program type."
^DD(6925,155,21,0)="^^1^1^2950505^^^^"
^DD(6925,155,21,1,0)="This field is a set of codes used to classify program type."
^DD(6925,155,21,2,0)="The category within which project is approved or considered."
^DD(6925,155,21,3,0)="Cost is the principal criterion."
^DD(6925,155,"DT")="2950505"
^DD(6925,156,0)="APPROVAL LEVEL^S^CA:CASCA;RD:RDAP;CO:COAP;OT:OTHER;^0;8^Q"
^DD(6925,156,21,0)="^^1^1^2930209^"
^DD(6925,156,21,1,0)="No longer used."
^DD(6925,156,"DT")="2921222"
^DD(6925,157.5,0)="*AVG. WORK FORCE (P&H)^NJ3,0^^11;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,157.5,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,157.5,21,0)="^^1^1^2930422^^"
^DD(6925,157.5,21,1,0)="No longer used."
^DD(6925,157.5,"DT")="2930422"
^DD(6925,157.6,0)="*MAN HOURS (P&H)^NJ8,1^^11;2^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""2N.N) X"
^DD(6925,157.6,3)="Type a Number between 0 and 999999, 1 Decimal Digit"
^DD(6925,157.6,21,0)="^^1^1^2930209^"
^DD(6925,157.6,21,1,0)="No longer used."
^DD(6925,157.6,"DT")="2930422"
^DD(6925,157.7,0)="WAGES (P&H)^NJ7,0^^11;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,157.7,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,157.7,21,0)="^^1^1^2930209^"
^DD(6925,157.7,21,1,0)="No longer used."
^DD(6925,157.7,"DT")="2921222"
^DD(6925,158,0)="FACILITY TYPE^RS^VHA:VETERANS HEALTH ADMIN;VBA:VETERANS BENEFITS ADMIN;NCS:NATIONAL CEMETERY SERVICE;^52;6^Q"
^DD(6925,158,1,0)="^.1"
^DD(6925,158,1,1,0)="6925^E"
^DD(6925,158,1,1,1)="S ^ENG(""PROJ"",""E"",$E(X,1,30),DA)="""""
^DD(6925,158,1,1,2)="K ^ENG(""PROJ"",""E"",$E(X,1,30),DA)"
^DD(6925,158,1,1,"%D",0)="^^1^1^2921228^^"
^DD(6925,158,1,1,"%D",1,0)="Facilitates reporting of projects by Facility Type."
^DD(6925,158,1,1,"DT")="2921228"
^DD(6925,158,3)="Enter the Facility Type for this project"
^DD(6925,158,21,0)="^^5^5^2930426^"
^DD(6925,158,21,1,0)="This field is important to enable restriction of Project Functional and"
^DD(6925,158,21,2,0)="Budget Categories and to enable reporting by Facility Type.  Note: The"
^DD(6925,158,21,3,0)="cross reference was added to 2 reasons: a)  Facilitate reporting by"
^DD(6925,158,21,4,0)="facility type.  b)  Force the filing by DIE so that the selection screens"
^DD(6925,158,21,5,0)="/filters work properly for Functional and Budget Categories."
^DD(6925,158,"DT")="2930120"
^DD(6925,158.1,0)="PROJECT CATEGORY^R*P7336.8'^OFM(7336.8,^52;1^S DIC(""S"")=""I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,6)[$G(ENFT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925,158.1,3)="Enter appropriate Project Category"
^DD(6925,158.1,12)="Screen allows selection of only Functional Categories applicable to Project Funding Program and Facility Type."
^DD(6925,158.1,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,6)[$G(ENFT)"""
^DD(6925,158.1,21,0)="^^3^3^2930426^^^^"
^DD(6925,158.1,21,1,0)="This field is a pointer to the OFM Project Category File (#7336.8). The"
^DD(6925,158.1,21,2,0)="field designates the project functional category, and determines"
^DD(6925,158.1,21,3,0)="prioritization points for NRM, Minor, and Minor Misc. programs."
^DD(6925,158.1,22)=""
^DD(6925,158.1,"DT")="2970403"
^DD(6925,158.2,0)="BUDGET CATEGORY^R*P7336.9'^OFM(7336.9,^52;2^S DIC(""S"")=""I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,3)[$G(ENFT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925,158.2,3)="Enter the Budget Category for this project; used for sorting in 5-Yr Plan. Accept default except by Regional approval."
^DD(6925,158.2,12)="Screen allows selection of only Budget Categories applicable to Project Funding Program and Facility Type."
^DD(6925,158.2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[$G(ENPR),$P(^(0),U,3)[$G(ENFT)"""
^DD(6925,158.2,21,0)="^^3^3^2930422^^^^"
^DD(6925,158.2,21,1,0)="This field is a pointer to the OFM Budget Category File (#7336.9). The"
^DD(6925,158.2,21,2,0)="field designates the project budget category.  Choices are screened based"
^DD(6925,158.2,21,3,0)="on program type."
^DD(6925,158.2,"DT")="2970403"
^DD(6925,158.3,0)="NHCU BEDS (NEW)^NJ4,0^^52;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,158.3,3)="Enter number of beds newly created for NHCU, 0-9999"
^DD(6925,158.3,21,0)="^^1^1^2930209^"
^DD(6925,158.3,21,1,0)="Number of nursing home beds to be created via project."
^DD(6925,158.3,"DT")="2921223"
^DD(6925,158.4,0)="NHCU BEDS (RENOVATED)^NJ4,0^^52;4^K:+X'=X!(X>9999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(6925,158.4,3)="Type a Number between -999 and 9999, 0 Decimal Digits"
^DD(6925,158.4,21,0)="^^1^1^2930426^^^^"
^DD(6925,158.4,21,1,0)="Net (+/-) nursing home care beds impacted by this project."
^DD(6925,158.4,"DT")="2930422"
^DD(6925,158.5,0)="NHCU BEDS (CONVERTED)^NJ4,0^^52;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,158.5,3)="Enter number of beds converted from another service to NHCU, 0-9999"
^DD(6925,158.5,21,0)="^^1^1^2930426^^"
^DD(6925,158.5,21,1,0)="Number of beds to be converted into nursing home beds via this project."
^DD(6925,158.5,"DT")="2921223"
^DD(6925,158.6,0)="EPA REPORTABLE^S^Y:YES;N:NO;^52;7^Q"
^DD(6925,158.6,3)="Enter YES if the project meets the criteria for an environmental project."
^DD(6925,158.6,21,0)="^^5^5^2950526^"
^DD(6925,158.6,21,1,0)="Indicates if a NRM project meets the criteria of an environmental project"
^DD(6925,158.6,21,2,0)="which should be reported to the Environmental Protection Agency on the"
^DD(6925,158.6,21,3,0)="A-106 report. The criteria can be found in the NRM Call Letter for project"
^DD(6925,158.6,21,4,0)="applications. If this field is YES, an EPA Reporting Category must also be"
^DD(6925,158.6,21,5,0)="specified."
^DD(6925,158.6,"DT")="2950526"
^DD(6925,158.7,0)="EPA REPORTING CATEGORY^*P6925.3'^ENG(6925.3,^52;8^S DIC(""S"")=""I $S('$G(ENPCI):1,$P($G(^(0)),U,5)=ENPCI:1,'$O(^ENG(6925.3,""""AC"""",ENPCI,0)):1,1:0)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925,158.7,3)=""
^DD(6925,158.7,12)="EPA Reporting Categories related to the Project Category"
^DD(6925,158.7,12.1)="S DIC(""S"")=""I $S('$G(ENPCI):1,$P($G(^(0)),U,5)=ENPCI:1,'$O(^ENG(6925.3,""""AC"""",ENPCI,0)):1,1:0)"""
^DD(6925,158.7,21,0)="^^2^2^2950526^^"
^DD(6925,158.7,21,1,0)="This field is required for environmental NRM projects. It is used to"
^DD(6925,158.7,21,2,0)="generate the A-106 report required by the Environmental Protection Agency."
^DD(6925,158.7,"DT")="2970403"
^DD(6925,158.8,0)="BONUS CATEGORY^*P7336.8'^OFM(7336.8,^52;9^S DIC(""S"")=""I $D(^(2)),$P(^(2),U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925,158.8,3)="Enter Bonus Category which involves 50% or more of project scope."
^DD(6925,158.8,12)="NRM Bonus Categories"
^DD(6925,158.8,12.1)="S DIC(""S"")=""I $D(^(2)),$P(^(2),U)"""
^DD(6925,158.8,21,0)="^^4^4^2950519^^"
^DD(6925,158.8,21,1,0)="This field designates the bonus category which involves 50% or more of the"
^DD(6925,158.8,21,2,0)="project scope and determines prioritization points for NRM projects. 'Not"
^DD(6925,158.8,21,3,0)="Applicable' should be selected if none of the other choices meet the 50%"
^DD(6925,158.8,21,4,0)="scope requirement."
^DD(6925,158.8,"DT")="2950519"
^DD(6925,158.9,0)="AMBULATORY CARE PERCENTAGE^NJ3,0^^52;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,158.9,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(6925,158.9,21,0)="^^1^1^2950623^"
^DD(6925,158.9,21,1,0)="This field contains the project scope percentage for ambulatory care."
^DD(6925,158.9,"DT")="2950623"
^DD(6925,159,0)="OLD PROGRAM^SI^MA:MAJOR;MI:MINOR;MM:MINOR MISC;NR:NRM;OT:OTHER;^60;6^Q"
^DD(6925,159,21,0)="^^1^1^2930209^"
^DD(6925,159,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159,"DT")="2930208"
^DD(6925,159.1,0)="OLD FACILITY TYPE^SI^VHA:VET HEALTH ADMIN;VBA:VET BENEFITS ADMIN;NCS:NATIONAL CEMETERY SERVICE;^68;6^Q"
^DD(6925,159.1,21,0)="^^1^1^2930209^"
^DD(6925,159.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.1,"DT")="2930208"
^DD(6925,159.15,0)="OLD DIVISION^P6910.3'^ENG(6910.3,^70;1^Q"
^DD(6925,159.15,21,0)="^^1^1^2970313^"
^DD(6925,159.15,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.15,"DT")="2970313"
^DD(6925,159.2,0)="OLD PROJECT CATEGORY^P7336.8'I^OFM(7336.8,^68;1^Q"
^DD(6925,159.2,21,0)="^^1^1^2930209^"
^DD(6925,159.2,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.2,"DT")="2930208"
^DD(6925,159.3,0)="OLD BUDGET CATEGORY^P7336.9'I^OFM(7336.9,^68;2^Q"
^DD(6925,159.3,21,0)="^^1^1^2930209^"
^DD(6925,159.3,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.3,"DT")="2930208"
^DD(6925,159.4,0)="OLD NHCU BEDS (NEW)^NJ4,0I^^68;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,159.4,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6925,159.4,21,0)="^^1^1^2930209^"
^DD(6925,159.4,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.4,"DT")="2930208"
^DD(6925,159.5,0)="OLD NHCU BEDS (RENOVATED)^NJ4,0I^^68;4^K:+X'=X!(X>9999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(6925,159.5,3)="Type a Number between -999 and 9999, 0 Decimal Digits"
^DD(6925,159.5,21,0)="^^1^1^2930426^^"
^DD(6925,159.5,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.5,"DT")="2930426"
^DD(6925,159.6,0)="OLD NHCU BEDS (CONVERTED)^NJ4,0I^^68;5^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,159.6,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6925,159.6,21,0)="^^1^1^2930209^"
^DD(6925,159.6,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.6,"DT")="2930208"
^DD(6925,159.7,0)="OLD EPA REPORTABLE^S^Y:YES;N:NO;^68;7^Q"
^DD(6925,159.7,21,0)="^^1^1^2951124^"
^DD(6925,159.7,21,1,0)="Value previously reported on electronic 10-0051."
^DD(6925,159.7,"DT")="2951124"
^DD(6925,159.8,0)="OLD EPA REPORTING CATEGORY^P6925.3'^ENG(6925.3,^68;8^Q"
^DD(6925,159.8,21,0)="^^1^1^2951124^"
^DD(6925,159.8,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.8,"DT")="2951124"
^DD(6925,159.9,0)="OLD BONUS CATEGORY^P7336.8'I^OFM(7336.8,^68;9^Q"
^DD(6925,159.9,21,0)="^^1^1^2951018^"
^DD(6925,159.9,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,159.9,"DT")="2951018"
^DD(6925,161,0)="EMERGENCY/INTERIM APPLICATION^S^E:EMERGENCY;I:INTERIM;^15;13^Q"
^DD(6925,161,3)="Enter 'E' for an Emergency and 'I' for an Interim Application"
^DD(6925,161,21,0)="^^2^2^2930426^^^^"
^DD(6925,161,21,1,0)="This field is used to identify project applications that are emergency or"
^DD(6925,161,21,2,0)="interim. Minor Appeals are considered Interim. "
^DD(6925,161,"DT")="2921224"
^DD(6925,162,0)="EQPMT OVER $250K APPLICATION^S^Y:YES;N:NO;^15;14^Q"
^DD(6925,162,.1)=""
^DD(6925,162,3)="Enter 'Y' if an equipment item costs more than $250,000"
^DD(6925,162,21,0)="^^2^2^2940310^^^^"
^DD(6925,162,21,1,0)="This field is used to identify projects that have equipment"
^DD(6925,162,21,2,0)="costing more than $250K. "
^DD(6925,162,"DT")="2940310"
^DD(6925,163,0)="CAPITAL LEASE PROGRAM^S^Y:YES;N:NO;^15;15^Q"
^DD(6925,163,21,0)="^^1^1^2930223^^^^"
^DD(6925,163,21,1,0)="This field is used to identify Capital Lease programs."
^DD(6925,163,"DT")="2921224"
^DD(6925,164,0)="CITATIONS^6925.0164^^21;0"
^DD(6925,164,21,0)="^^1^1^2930310^^^^"
^DD(6925,164,21,1,0)="Multiple field used to enter citations."
^DD(6925,165,0)="PROJ CATEGORY >75% SCOPE^S^Y:YES;N:NO;^18;4^Q"
^DD(6925,165,21,0)="^^5^5^2930305^"
^DD(6925,165,21,1,0)="This field is a set of codes (Yes or No) to determine if project category"
^DD(6925,165,21,2,0)="is greater than 75% of the project scope.  The field is used to determine"
^DD(6925,165,21,3,0)="if Category Bonus Prioritization points for Minor and Minor Miscellaneous"
^DD(6925,165,21,4,0)="projects can be taken. Category Bonus points will not be given if credit"
^DD(6925,165,21,5,0)="was taken for Space."
^DD(6925,165,"DT")="2930111"
^DD(6925,165.1,0)="NHCU AUTHORIZED BEDS^NJ4,0^^53;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,165.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6925,165.1,21,0)="^^1^1^2951102^"
^DD(6925,165.1,21,1,0)="Total number of nursing home care unit beds authorized for the facility."
^DD(6925,165.1,"DT")="2951102"
^DD(6925,166,0)="NHCU CONVERSION^6925.0166S^^57;0"
^DD(6925,176,0)="DIVISION^P6910.3'^ENG(6910.3,^15;1^Q"
^DD(6925,176,3)=""
^DD(6925,176,21,0)="^^3^3^2950623^"
^DD(6925,176,21,1,0)="This field is used to identify the division of a multi-divisional"
^DD(6925,176,21,2,0)="facility. It can be used to generate a division specific report when"
^DD(6925,176,21,3,0)="printing the Five Year Facility Plan."
^DD(6925,176,22)=""
^DD(6925,176,"DT")="2950510"
^DD(6925,177,0)="BUILDING NUMBER^6925.0177P^^34;0"
^DD(6925,177,21,0)="^^1^1^2930423^^^^"
^DD(6925,177,21,1,0)="Multiple field used to identify buildings affected by project."
^DD(6925,177,"DT")="2930224"
^DD(6925,178,0)="BLDG DISPLAY^CJ245^^ ; ^D A^ENPL1"
^DD(6925,178,9)="^"
^DD(6925,178,9.01)=""
^DD(6925,178,9.1)="D A^ENPL1"
^DD(6925,178,21,0)="^^1^1^2930423^^^"
^DD(6925,178,21,1,0)="This field concatenates the building numbers for display on the 1193."
^DD(6925,179,0)="BLDG OCCUPANCY^S^1:PATIENT;2:ADMINISTRATIVE;3:QUARTERS;4:AMBULATORY CARE;5:OTHER;^15;4^Q"
^DD(6925,179,21,0)="^^2^2^2930323^^^^"
^DD(6925,179,21,1,0)="This field is used to identify occupancy of buildings affected. (VAF 10-"
^DD(6925,179,21,2,0)="1193, Block 10)"
^DD(6925,179,"DT")="2921228"
^DD(6925,180,0)="H089^6925.03P^^22;0"
^DD(6925,180,21,0)="^^2^2^2930423^^^^"
^DD(6925,180,21,1,0)="Multiply entered pointer to the OFM H089 Chapters file (7336.6) for entry "
^DD(6925,180,21,2,0)="of H089 chapter codes. "
^DD(6925,181,0)="5 YR FACILITY PLAN FY^NJ4,0^^15;6^K:+X'=X!(X>2099)!(X<1980)!(X?.E1"".""1N.N) X"
^DD(6925,181,3)="Enter fiscal year (FY) for proposed budget year which this project is scheduled for in the latest 5-Yr facility plan."
^DD(6925,181,21,0)="^^2^2^2930518^^^^"
^DD(6925,181,21,1,0)="This field contains the fiscal year the project is planned for on the"
^DD(6925,181,21,2,0)="approved 5-Year facility plan."
^DD(6925,181,"DT")="2921228"
^DD(6925,181.1,0)="FIVE YR PLAN STATUS^S^0:NOT EVALUATED;1:RETURNED TO SITE;2:DISAPPROVED;3:REGION APPROVED;^15;16^Q"
^DD(6925,181.1,1,0)="^.1"
^DD(6925,181.1,1,1,0)="^^TRIGGER^6925^181.2"
^DD(6925,181.1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(6925,181.1,1,1,1.4)"
^DD(6925,181.1,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),15)):^(15),1:""""),DIV=X S $P(^(15),U,19)=DIV,DIH=6925,DIG=181.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,181.1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(6925,181.1,1,1,2.4)"
^DD(6925,181.1,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),15)):^(15),1:""""),DIV=X S $P(^(15),U,19)=DIV,DIH=6925,DIG=181.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,181.1,1,1,"CREATE VALUE")="TODAY"
^DD(6925,181.1,1,1,"DELETE VALUE")="TODAY"
^DD(6925,181.1,1,1,"DT")="2970605"
^DD(6925,181.1,1,1,"FIELD")="#181.2"
^DD(6925,181.1,21,0)="^^1^1^2930223^^^"
^DD(6925,181.1,21,1,0)="Set of codes for regional approval status of 5-Year plan."
^DD(6925,181.1,"DT")="2970605"
^DD(6925,181.2,0)="5 YR PLAN STATUS DATE^D^^15;19^S %DT=""EX"" D ^%DT S X=Y K:3990000<X!(2800000>X) X"
^DD(6925,181.2,3)="TYPE A DATE BETWEEN 1980 AND 2099"
^DD(6925,181.2,5,1,0)="6925^181.1^1"
^DD(6925,181.2,9)="^"
^DD(6925,181.2,21,0)="^^1^1^2930311^^"
^DD(6925,181.2,21,1,0)="This field contains the date the 5-Yr plan status was updated."
^DD(6925,181.2,"DT")="2930127"
^DD(6925,182,0)="PLANNED CONSTRUCTION METHOD^S^1:CONTRACT;2:P&H;3:STATION LABOR;4:SBA 8(a);5:DESIGN/BUILD;6:LEASE;^15;7^Q"
^DD(6925,182,21,0)="^^1^1^2930423^^^"
^DD(6925,182,21,1,0)="Set of codes for the planned construction method of the project."
^DD(6925,182,"DT")="2921228"
^DD(6925,185.1,0)="OLD NHCU AUTHORIZED BEDS^NJ4,0^^68;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,185.1,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(6925,185.1,21,0)="^^1^1^2951122^"
^DD(6925,185.1,21,1,0)="Value previously reported via electronic 10-0051."
^DD(6925,185.1,"DT")="2951122"
^DD(6925,186,0)="OLD NHCU CONVERSION^6925.0186S^^58;0"
^DD(6925,187,0)="ENVIRONMENTAL ASSESSMENT REQD^S^Y:YES;N:NO;^15;12^Q"
^DD(6925,187,21,0)="^^2^2^2930311^^^^"
^DD(6925,187,21,1,0)="This field is a set of codes used to identify projects requiring an"
^DD(6925,187,21,2,0)="environmental assessment. (VAF 10-1193a, Block 4)"
^DD(6925,187,"DT")="2921228"
^DD(6925,187.5,0)="ACTIVATION RESOURCES REQ IN FY^NJ4,0^^24;1^K:+X'=X!(X>2099)!(X<1993)!(X?.E1"".""1N.N) X"
^DD(6925,187.5,3)="Enter a year between 1993 and 2099"
^DD(6925,187.5,21,0)="^^1^1^2930810^^^^"
^DD(6925,187.5,21,1,0)="This field contains the fiscal year activation resources are required."
^DD(6925,187.5,"DT")="2930518"
^DD(6925,188,0)="RECURRING ALL OTHER $^NJ7,0X^^24;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X<1000 D EN^DDIOL(""note - value less than $1000"","""",""!?4"")"
^DD(6925,188,3)="Enter a whole dollar amount between 0 and 9999999"
^DD(6925,188,21,0)="^^2^2^2930423^"
^DD(6925,188,21,1,0)="This field contains the total Recurring All Other Funds required to"
^DD(6925,188,21,2,0)="support the project."
^DD(6925,188,"DT")="2950621"
^DD(6925,189,0)="ADDITIONAL FTEE^NJ6,2^^24;3^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(6925,189,3)="Type a Number between 0 and 999.99, 2 Decimal Digits."
^DD(6925,189,21,0)="^^2^2^2930423^^^^"
^DD(6925,189,21,1,0)="This field contains the total Additional FTEE number as documented in the"
^DD(6925,189,21,2,0)="detailed activation documentation."
^DD(6925,189,"DT")="2921229"
^DD(6925,190,0)="RECURRING PS^NJ8,0X^^24;4^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X<1000 D EN^DDIOL(""note - value less than $1000"","""",""!?4"")"
^DD(6925,190,3)="Enter a whole dollar amount between 0 and 99999999"
^DD(6925,190,21,0)="^^2^2^2930423^^^^"
^DD(6925,190,21,1,0)="This field contains the total Recurring Personnel Service (PS) funds in "
^DD(6925,190,21,2,0)="accordance with the Additional FTEE."
^DD(6925,190,"DT")="2950621"
^DD(6925,190.2,0)="EQUIPMENT $^NJ8,0X^^24;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X<1000 D EN^DDIOL(""note - value leass than $1000"","""",""!?4"")"
^DD(6925,190.2,3)="Enter a whole dollar amount between 0 and 99999999"
^DD(6925,190.2,21,0)="^^8^8^2950621^"
^DD(6925,190.2,21,1,0)="This field contains the total activation equipment funds required to"
^DD(6925,190.2,21,2,0)="support the project with the following exception. For NRM projects, any"
^DD(6925,190.2,21,3,0)="equipment items (or systems) that cost over $250,000 should NOT be"
^DD(6925,190.2,21,4,0)="included in this figure since such high cost equipment must be applied for"
^DD(6925,190.2,21,5,0)="separately under the High Cost Equipment Program. For Leases and Minor,"
^DD(6925,190.2,21,6,0)="Minor Misc and Major projects, any equipment items (or systems) that cost"
^DD(6925,190.2,21,7,0)="$250,000 should be included in this figure since such high cost equipment"
^DD(6925,190.2,21,8,0)="cannot be applied for under the High Cost Equipment Program."
^DD(6925,190.2,"DT")="2950621"
^DD(6925,190.3,0)="NONRECURRING ALL OTHER^NJ8,0X^^24;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X<1000 D EN^DDIOL(""note - value less than $1000"","""",""!?4"")"
^DD(6925,190.3,3)="Enter a whole dollar amount between 0 and 99999999"
^DD(6925,190.3,21,0)="^^2^2^2930423^^^"
^DD(6925,190.3,21,1,0)="This field contains the total Non-Recurring All Other funds required to"
^DD(6925,190.3,21,2,0)="support the project. "
^DD(6925,190.3,"DT")="2950621"
^DD(6925,190.4,0)="TRAVEL .007^NJ6,0X^^24;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X<1000 D EN^DDIOL(""note - value less than $1000"","""",""!?4"")"
^DD(6925,190.4,3)="Enter a whole dollar amount between 0 and 999999"
^DD(6925,190.4,21,0)="^^2^2^2930423^^^^"
^DD(6925,190.4,21,1,0)="This field contains the total Travel .007 funds required to support the"
^DD(6925,190.4,21,2,0)="project. "
^DD(6925,190.4,"DT")="2950621"
^DD(6925,190.6,0)="EQUIPMENT OVER $250K^6925.04^^25;0"
^DD(6925,190.6,21,0)="^^2^2^2940527^^^"
^DD(6925,190.6,21,1,0)="Multiply entered field for equipment over $250,000."
^DD(6925,190.6,21,2,0)=" "
^DD(6925,190.6,"DT")="2940214"
^DD(6925,191,0)="NET BED CHANGE^NJ3,0^^15;2^K:+X'=X!(X>999)!(X<-999)!(X?.E1"".""1N.N) X"
^DD(6925,191,3)="Type a Number between -999 and 999, 0 Decimal Digits"
^DD(6925,191,21,0)="^^1^1^2930623^^^^"
^DD(6925,191,21,1,0)="This field contains the net change in authorized beds."
^DD(6925,191,"DT")="2921229"
^DD(6925,192,0)="PROJECT DESCRIPTION (SHORT)^6925.0192^^17;0"
^DD(6925,192,21,0)="^^1^1^2930223^^"
^DD(6925,192,21,1,0)="This field is for a description of up to 3 lines."
^DD(6925,192,"DT")="2930207"
^DD(6925,192.3,0)="JUSTIFICATION (SHORT)^6925.05^^26;0"
^DD(6925,192.3,21,0)="^^1^1^2930207^"
^DD(6925,192.3,21,1,0)="This field is for a justification of up to 3 lines."
^DD(6925,192.3,"DT")="2930207"
^DD(6925,192.6,0)="WORKLOAD^6925.06^^27;0"
^DD(6925,192.6,21,0)="^^4^4^2930305^"
^DD(6925,192.6,21,1,0)="This field contains a brief declaration of workload data (i.e., Is the"
^DD(6925,192.6,21,2,0)="Workload approved?, What is the approval date?, What Workload Model Version"
^DD(6925,192.6,21,3,0)="was used?, etc) that justifies the project, if applicable (required for"
^DD(6925,192.6,21,4,0)="Majors)."
^DD(6925,193,0)="ENVIRONMENT IMPACT STMT REQD^S^Y:YES;N:NO;^16;5^Q"
^DD(6925,193,21,0)="^^2^2^2930223^^^^"
^DD(6925,193,21,1,0)="This field is a set of codes (Yes or No) indicating the need for an"
^DD(6925,193,21,2,0)="environmental impact statement by the facility. (VAF 10-1193a, Block 5)"
^DD(6925,193,"DT")="2921229"
^DD(6925,194,0)="ADDITIONAL DOCUMENTATION REQD^S^Y:YES;N:NO;^16;6^Q"
^DD(6925,194,21,0)="^^2^2^2930223^^"
^DD(6925,194,21,1,0)="This field is a set of codes (Yes or No) indicating the need for additional"
^DD(6925,194,21,2,0)="documentation by the facility. (VAF 10-1193a, Block 6)"
^DD(6925,194,"DT")="2921229"
^DD(6925,194.5,0)="FURTHER REQD ACTION^F^^16;1^K:$L(X)>35!($L(X)<1) X"
^DD(6925,194.5,3)="Answer must be 1-35 characters in length."
^DD(6925,194.5,21,0)="^^2^2^2930323^^^^"
^DD(6925,194.5,21,1,0)="This field contains specification of further action required by the"
^DD(6925,194.5,21,2,0)="facility. (VAF 10-1193a, Block 7)"
^DD(6925,194.5,"DT")="2921229"
^DD(6925,194.6,0)="EVALUATOR^FX^^16;2^K:$L(X)>25!($L(X)<3) X D:$D(X)#10 V^ENPL1"
^DD(6925,194.6,3)="Enter name as Last name, First name Middle initial, 3-25 characters."
^DD(6925,194.6,21,0)="^^1^1^2930423^^^"
^DD(6925,194.6,21,1,0)="This field contains the name of the evaluator. (VAF 10-1193a, Block 8)"
^DD(6925,194.6,"DT")="2921229"
^DD(6925,194.7,0)="DATE OF EVALUATION^DX^^16;3^S %DT=""EX"" D ^%DT S X=Y K:3990000<X!(2800000>X)!(X>DT) X"
^DD(6925,194.7,3)="Enter a Past or Current Date (year range 1980-2099)"
^DD(6925,194.7,21,0)="^^2^2^2930423^^"
^DD(6925,194.7,21,1,0)="This field contains the date of environmental evaluation. (VAF 10-1193a,"
^DD(6925,194.7,21,2,0)="Block 8)"
^DD(6925,194.7,"DT")="2921229"
^DD(6925,195,0)="ACQUIRES OR DISPOSES LAND^S^Y:YES;N:NO;^16;7^Q"
^DD(6925,195,3)="Does proposed project acquire or dispose of land?"
^DD(6925,195,21,0)="^^2^2^2930311^^"
^DD(6925,195,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,195,21,2,0)="proposed project acquires or disposes of land. (VAF 10-1193a, Block A1)"
^DD(6925,195,"DT")="2921229"
^DD(6925,195.1,0)="A1 LAND USE TEXT^F^^42;1^K:$L(X)>50!($L(X)<1) X"
^DD(6925,195.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,195.1,21,0)="^^2^2^2930311^^^^"
^DD(6925,195.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,195.1,21,2,0)="ACQUIRES OR DISPOSES LAND. (VAF 10-1193a, Block A1)"
^DD(6925,195.1,"DT")="2930127"
^DD(6925,196,0)="AFFECTS WETLANDS/FLOOD PLAINS^S^Y:YES;N:NO;^16;8^Q"
^DD(6925,196,3)="Does proposed project involve land located in a wetland or floodplain?"
^DD(6925,196,21,0)="^^3^3^2930223^"
^DD(6925,196,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,196,21,2,0)="proposed project involves land located in a wetland or floodplain. (VAF 10-"
^DD(6925,196,21,3,0)="1193a, Block A2)"
^DD(6925,196,"DT")="2921229"
^DD(6925,196.1,0)="A2 LAND USE TEXT^F^^42;2^K:$L(X)>50!($L(X)<1) X"
^DD(6925,196.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,196.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,196.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,196.1,21,2,0)="AFFECTS WETLANDS/FLOOD PLAINS. (VAF 10-1193a, Block A2) "
^DD(6925,196.1,"DT")="2930126"
^DD(6925,197,0)="INVOLVES STORM WATER RUNOFF^S^Y:YES;N:NO;^16;9^Q"
^DD(6925,197,3)="Does proposed project involve storm water run-off and retainage?"
^DD(6925,197,21,0)="^^3^3^2930223^"
^DD(6925,197,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,197,21,2,0)="proposed project involves storm water run-off and retainage. (VAF 10-1193a,"
^DD(6925,197,21,3,0)="Block A3)"
^DD(6925,197,"DT")="2921229"
^DD(6925,197.1,0)="A3 LAND USE TEXT^F^^42;3^K:$L(X)>50!($L(X)<1) X"
^DD(6925,197.1,3)="Specify standards used and project elements analyzed, or provide additional documentation."
^DD(6925,197.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,197.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,197.1,21,2,0)="INVOLVES STORM WATER RUNOFF. (VAF 10-1193a, Block A3)"
^DD(6925,197.1,"DT")="2930126"
^DD(6925,198,0)="CONFLICTS W LOCAL ZONING^S^Y:YES;N:NO;^16;10^Q"
^DD(6925,198,3)="Does proposed project conflict with local zoning and planning regulations?"
^DD(6925,198,21,0)="^^3^3^2930311^^"
^DD(6925,198,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,198,21,2,0)="proposed project conflicts with local zoning and planning regulations."
^DD(6925,198,21,3,0)="(VAF 10-1193a, Block A4)"
^DD(6925,198,"DT")="2921229"
^DD(6925,198.1,0)="A4 LAND USE TEXT^F^^42;4^K:$L(X)>50!($L(X)<1) X"
^DD(6925,198.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,198.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,198.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,198.1,21,2,0)="CONFLICTS W LOCAL ZONING. (VAF 10-1193a, Block A4)"
^DD(6925,198.1,"DT")="2930126"
^DD(6925,199,0)="DISLOCATES PEOPLE/RESIDENCES^S^Y:YES;N:NO;^16;11^Q"
^DD(6925,199,3)="Does proposed project dislocate persons, residences, or cause major population shift?"
^DD(6925,199,21,0)="^^3^3^2930223^^"
^DD(6925,199,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,199,21,2,0)="proposed project dislocates persons, residences, or causes a major "
^DD(6925,199,21,3,0)="population shift. (VAF 10-1193a, Block A5)"
^DD(6925,199,"DT")="2921229"
^DD(6925,199.1,0)="A5 LAND USE TEXT^F^^43;1^K:$L(X)>50!($L(X)<1) X"
^DD(6925,199.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,199.1,21,0)="^^2^2^2930127^^^"
^DD(6925,199.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,199.1,21,2,0)="DISLOCATES PEOPLE/RESIDENCES."
^DD(6925,199.1,"DT")="2930127"
^DD(6925,200,0)="AFFECTS PROTECTED FAUNA/FLORA^S^Y:YES;N:NO;^16;12^Q"
^DD(6925,200,3)="Does proposed project affect protected wildlife or vegetation?"
^DD(6925,200,21,0)="^^3^3^2930311^^"
^DD(6925,200,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,200,21,2,0)="proposed project affects protected wildlife or vegetation. (VAF 10-1193a,"
^DD(6925,200,21,3,0)="Block A6)"
^DD(6925,200,"DT")="2921229"
^DD(6925,200.1,0)="A6 LAND USE TEXT^F^^43;2^K:$L(X)>50!($L(X)<1) X"
^DD(6925,200.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,200.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,200.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,200.1,21,2,0)="AFFECTS PROTECTED FAUNA/FLORA. (VAF 10-1193a, Block A6)"
^DD(6925,200.1,"DT")="2930127"
^DD(6925,201,0)="OUTSIDE CONST GT 10000 SQ FT^S^Y:YES;N:NO;^16;13^Q"
^DD(6925,201,3)="Does proposed project involve 'outside' construction of more than 10,000 sq. ft.?"
^DD(6925,201,21,0)="^^3^3^2930223^"
^DD(6925,201,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,201,21,2,0)="proposed project involves 'outside' construction of more than 10,000 sq."
^DD(6925,201,21,3,0)="ft. (VAF 10-1193a, Block B1)"
^DD(6925,201,"DT")="2921229"
^DD(6925,201.1,0)="B1 CONSTRUCTION TEXT^F^^44;1^K:$L(X)>50!($L(X)<1) X"
^DD(6925,201.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,201.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,201.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,201.1,21,2,0)="OUTSIDE CONST GT 10000 SQ FT. (VAF 10-1193a, Block B1)"
^DD(6925,201.1,"DT")="2930126"
^DD(6925,202,0)="INCREASE OFF SITE TRAFFIC >10%^S^Y:YES;N:NO;^16;14^Q"
^DD(6925,202,3)="Does proposed project increase off-site traffic flow by more than 10 %?"
^DD(6925,202,21,0)="^^3^3^2930223^"
^DD(6925,202,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,202,21,2,0)="proposed project increases off-site traffic flow by more than 10%. (VAF 10-"
^DD(6925,202,21,3,0)="1193a, Block B2)"
^DD(6925,202,"DT")="2921229"
^DD(6925,202.1,0)="B2 CONSTRUCTION TEXT^F^^44;2^K:$L(X)>50!($L(X)<1) X"
^DD(6925,202.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,202.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,202.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,202.1,21,2,0)="INCREASE OFF SITE TRAFFIC >10%. (VAF 10-1193a, Block B2)"
^DD(6925,202.1,"DT")="2930126"
^DD(6925,203,0)="SIGNIF ALTER OFF SITE TRAFFIC^S^Y:YES;N:NO;^16;15^Q"
^DD(6925,203,3)="Does proposed project significantly alter off-site traffic flow?"
^DD(6925,203,21,0)="^^3^3^2930223^"
^DD(6925,203,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,203,21,2,0)="proposed project significantly alters off-site traffic flow. (VAF 10-1193a,"
^DD(6925,203,21,3,0)="Block B3)"
^DD(6925,203,"DT")="2921229"
^DD(6925,203.1,0)="B3 CONSTRUCTION TEXT^F^^44;3^K:$L(X)>50!($L(X)<1) X"
^DD(6925,203.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,203.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,203.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,203.1,21,2,0)="SIGNIF ALTER OFF SITE TRAFFIC. (VAF 10-1193a, Block B3)"
^DD(6925,203.1,"DT")="2930126"
^DD(6925,204,0)="INVOLVE HISTORIC AREA/BLDGS^S^Y:YES;N:NO;^16;16^Q"
^DD(6925,204,3)="Does proposed project involve a historically designated building or area?"
^DD(6925,204,21,0)="^^3^3^2930223^"
^DD(6925,204,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,204,21,2,0)="proposed project involves a historically designated building or area. (VAF"
^DD(6925,204,21,3,0)="1193a, Block B4)"
^DD(6925,204,"DT")="2921229"
^DD(6925,204.1,0)="B4 CONSTRUCTION TEXT^F^^44;4^K:$L(X)>50!($L(X)<1) X"
^DD(6925,204.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,204.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,204.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,204.1,21,2,0)="INVOLVE HISTORIC AREA/BLDGS. (VAF 10-1193a, Block B4)"
^DD(6925,204.1,"DT")="2930126"
^DD(6925,205,0)="EMISSION/WATER QUALITY PROBLEM^S^Y:YES;N:NO;^16;17^Q"
^DD(6925,205,3)="Does proposed project conflict with local, state, or federal standards?"
^DD(6925,205,21,0)="^^4^4^2930323^^^"
^DD(6925,205,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,205,21,2,0)="proposed project conflicts with local, state, or federal standards"
^DD(6925,205,21,3,0)="regarding emissions, water quality, or toxic substances. (VAF 10-1193a,"
^DD(6925,205,21,4,0)="Block C1)"
^DD(6925,205,"DT")="2921229"
^DD(6925,205.1,0)="C1 EMISSION/TOXINS TEXT^F^^45;1^K:$L(X)>50!($L(X)<1) X"
^DD(6925,205.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,205.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,205.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,205.1,21,2,0)="EMISSION/WATER QUALITY PROBLEM. (VAF 10-1193a, Block C1)"
^DD(6925,205.1,"DT")="2930126"
^DD(6925,206,0)="PUBLIC CONTROVERSY^S^Y:YES;N:NO;^16;18^Q"
^DD(6925,206,3)="Does proposed project have a known potential for public controversy?"
^DD(6925,206,21,0)="^^3^3^2930311^^"
^DD(6925,206,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,206,21,2,0)="proposed project have a known potential for public controversy. (VAF 10-"
^DD(6925,206,21,3,0)="1193a, Block D1)"
^DD(6925,206,"DT")="2921229"
^DD(6925,206.1,0)="D1 PUBLIC CONTROVERSY TEXT^F^^45;2^K:$L(X)>50!($L(X)<1) X"
^DD(6925,206.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,206.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,206.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,206.1,21,2,0)="PUBLIC CONTROVERSY. (VAF 10-1193a, Block D1)"
^DD(6925,206.1,"DT")="2930126"
^DD(6925,207,0)="CONFLICT LOCAL/STATE REGS^S^Y:YES;N:NO;^16;19^Q"
^DD(6925,207,3)="Does proposed project conflict with local or state regulations?"
^DD(6925,207,21,0)="^^3^3^2930223^"
^DD(6925,207,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,207,21,2,0)="proposed project conflict with local or state  regulations. (VAF 10-1193a,"
^DD(6925,207,21,3,0)="Block D2)"
^DD(6925,207,"DT")="2921229"
^DD(6925,207.1,0)="D2 PUBLIC CONTROVERSY TEXT^F^^45;3^K:$L(X)>50!($L(X)<1) X"
^DD(6925,207.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,207.1,21,0)="^^2^2^2930223^^^^"
^DD(6925,207.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,207.1,21,2,0)="CONFLICT LOCAL/STATE REGS. (VAF 10-1193a, Block D2)"
^DD(6925,207.1,"DT")="2930126"
^DD(6925,208,0)="OVERLOAD UTILITY SYS CAPACITY^S^Y:YES;N:NO;^16;20^Q"
^DD(6925,208,3)="Does proposed project overload available utility system capacity?"
^DD(6925,208,21,0)="^^3^3^2930223^"
^DD(6925,208,21,1,0)="This field is a set of codes (Yes or No) indicating whether or not the"
^DD(6925,208,21,2,0)="proposed project overload the available utility system capacity. (VAF 10-"
^DD(6925,208,21,3,0)="1193a, Block D3)"
^DD(6925,208,"DT")="2921229"
^DD(6925,208.1,0)="D3 UTLITY OVERLOAD TEXT^F^^45;4^K:$L(X)>50!($L(X)<1) X"
^DD(6925,208.1,3)="Specify standards used and project elements analyzed, or provide additional documentation. (1-50 Characters)"
^DD(6925,208.1,21,0)="^^2^2^2930127^^^"
^DD(6925,208.1,21,1,0)="Specification of standards used and project elements analyzed for"
^DD(6925,208.1,21,2,0)="OVERLOAD UTILITY SYS CAPACITY."
^DD(6925,208.1,"DT")="2930126"
^DD(6925,209,0)="VAMC PRIORITY^NJ2,0^^15;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,209,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(6925,209,21,0)="^^1^1^2930423^^"
^DD(6925,209,21,1,0)="This field contains the priority # assigned to the project by the facility."
^DD(6925,209,"DT")="2921229"
^DD(6925,209.1,0)="MCPS SCORE^NJ5,2^^24;8^K:+X'=X!(X>30.99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(6925,209.1,3)="For Major Projects enter Number between 1 and 30.99, 2 Decimal Digits"
^DD(6925,209.1,21,0)="^^3^3^2930423^^^^"
^DD(6925,209.1,21,1,0)="This fields contains the total facility score based on the Major"
^DD(6925,209.1,21,2,0)="Construction Priority Scoring Methodology.  This can obtained from the"
^DD(6925,209.1,21,3,0)="VACO or the Region."
^DD(6925,209.1,"DT")="2930310"
^DD(6925,210,0)="REGIONAL PRIORITY^NJ3,0^^15;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,210,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(6925,210,21,0)="^^1^1^2930426^^^"
^DD(6925,210,21,1,0)="This field contains the priority assigned by the Region"
^DD(6925,210,"DT")="2930426"
^DD(6925,212,0)="ESTIMATED COST FOR 5 YR PLAN^CJ10,0^^ ; ^X ^DD(6925,212,9.4) S X=$S(Y(6925,212,3):Y(6925,212,5),Y(6925,212,6):X) S X=$J(X,0,0)"
^DD(6925,212,9)="^"
^DD(6925,212,9.01)="6925^212.2;6925^212.1;6925^289;6925^155"
^DD(6925,212,9.1)="$S(#155=""LEASE"":#289,1:#212.1+#212.2)"
^DD(6925,212,9.2)="S Y(6925,212,2)=$C(59)_$S($D(^DD(6925,155,0)):$P(^(0),U,3),1:""""),Y(6925,212,1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),Y(6925,212,7)=$S($D(^(19)):^(19),1:"""")"
^DD(6925,212,9.3)="X ^DD(6925,212,9.2) S Y(6925,212,4)=$S($D(^(55)):^(55),1:"""") S X=$P($P(Y(6925,212,2),$C(59)_$P(Y(6925,212,1),U,6)_"":"",2),$C(59),1)=""LEASE"",Y(6925,212,3)=X"
^DD(6925,212,9.4)="X ^DD(6925,212,9.3) S X=$P(Y(6925,212,4),U,5),Y(6925,212,5)=X S X=1,Y(6925,212,6)=X S X=$P(Y(6925,212,7),U,10)+$P(Y(6925,212,7),U,11)"
^DD(6925,212.1,0)="ESTIMATED A/E COST (FYFP)^NJ10,0X^^19;10^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDIOL(""Value was rounded up to ""_X,"""",""!?4"")"
^DD(6925,212.1,3)="Enter the Whole Dollar Amount that will be used on the 5-Yr Plan."
^DD(6925,212.1,21,0)="^^4^4^2950505^"
^DD(6925,212.1,21,1,0)="This field contains the estimated A/E cost of the project for the Five"
^DD(6925,212.1,21,2,0)="Year Facility Plan (FYFP). It will be used on the FYFP in the project's"
^DD(6925,212.1,21,3,0)="Funding Year - A/E. The total estimated cost of the project is the sum of"
^DD(6925,212.1,21,4,0)="this field and the ESTIMATED CONST COST (FYFP) field."
^DD(6925,212.1,"DT")="2950505"
^DD(6925,212.2,0)="ESTIMATED CONST COST (FYFP)^NJ10,0X^^19;11^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDIOL(""Value was rounded up to ""_X,"""",""!?4"")"
^DD(6925,212.2,3)="Enter the Whole Dollar Amount that will be used on the 5-Yr Plan."
^DD(6925,212.2,21,0)="^^4^4^2950522^^"
^DD(6925,212.2,21,1,0)="This field contains the estimated construction cost of the project for the"
^DD(6925,212.2,21,2,0)="Five Year Facility Plan (FYFP). It will be used on the FYFP in the"
^DD(6925,212.2,21,3,0)="project's Funding Year - Const. The total estimated cost of the project is"
^DD(6925,212.2,21,4,0)="the sum of this field and the ESTIMATED A/E COST (FYFP) field."
^DD(6925,212.2,"DT")="2950505"
^DD(6925,213,0)="TOTAL M AND R COSTS^NJ8,0^^19;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,213,3)="Enter Whole Dollar Total M & R Costs as listed on VAF 10-6238, 0-99999999"
^DD(6925,213,21,0)="^^2^2^2930423^^"
^DD(6925,213,21,1,0)="This field contains the total Maintenance & Repair costs as listed on VAF"
^DD(6925,213,21,2,0)="10-6238. "
^DD(6925,213,"DT")="2921230"
^DD(6925,214,0)="TOTAL BSEA COSTS^NJ8,0^^19;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,214,3)="Enter Whole Dollar Total BSEA Costs as listed on VAF 10-6238, 0-99999999"
^DD(6925,214,21,0)="^^2^2^2930428^^^"
^DD(6925,214,21,1,0)="This field contains the total Building Service Equipment Additional (BSEA)"
^DD(6925,214,21,2,0)="costs as listed on VAF 10-6238.  BSEA labor costs should be included in MI. "
^DD(6925,214,"DT")="2921230"
^DD(6925,215,0)="TOTAL BSER COSTS^NJ8,0^^19;3^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,215,3)="Enter Whole Dollar Total BSER Costs as listed on VAF 10-6238, 0-99999999"
^DD(6925,215,21,0)="^^2^2^2930423^^^"
^DD(6925,215,21,1,0)="This field contains the total Building Service Equipment Replacement (BSER)"
^DD(6925,215,21,2,0)="costs as listed on VAF 10-6238. "
^DD(6925,215,"DT")="2921230"
^DD(6925,216,0)="TOTAL MI COSTS^NJ6,0^^19;4^K:+X'=X!(X>499999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,216,3)="Type a Number between 0 and 499999, 0 Decimal Digits"
^DD(6925,216,21,0)="^^2^2^2970912^^^^"
^DD(6925,216,21,1,0)="This field contains the total Minor Improvement (MI) costs as listed on VAF"
^DD(6925,216,21,2,0)="10-6238. "
^DD(6925,216,"DT")="2970912"
^DD(6925,217,0)="NRM TOTAL COST^CJ10,0^^ ; ^S Y(6925,217,1)=$S($D(^ENG(""PROJ"",D0,19)):^(19),1:"""") S X=$P(Y(6925,217,1),U,1)+$P(Y(6925,217,1),U,2)+$P(Y(6925,217,1),U,3)+$P(Y(6925,217,1),U,4)"
^DD(6925,217,9)="^"
^DD(6925,217,9.01)="6925^216;6925^215;6925^214;6925^213"
^DD(6925,217,9.1)="#213+#214+#215+#216"
^DD(6925,217,21,0)="^^2^2^2930423^^"
^DD(6925,217,21,1,0)="This field contains the total anticipated (Low Bid) NRM Construction Costs"
^DD(6925,217,21,2,0)="as listed on VAF 10-6238. "
^DD(6925,217,"DT")="2921230"
^DD(6925,218,0)="*CONTINGENCY PCT MI/MA^CJ3,1^^ ; ^X ^DD(6925,218,9.6) S X=$S(Y(6925,218,103):Y(6925,218,104),Y(6925,218,203):Y(6925,218,204),Y(6925,218,205):X) S D0=Y(6925,218,80) S D1=Y(6925,218,81) S X=$J(X,0,1)"
^DD(6925,218,9)="^"
^DD(6925,218,9.01)="6925.03^2;6925.03^4"
^DD(6925,218,9.1)="$S(TOTAL(#180:#4)>0:7.5,TOTAL(#180:#2)>0:5,1:7.5)"
^DD(6925,218,9.2)="S Y(6925,218,80)=$S($D(D0):D0,1:""""),Y(6925,218,81)=$S($D(D1):D1,1:"""") S Y(6925,218,180)=$S($D(D0):D0,1:""""),Y(6925,218,181)=$S($D(D1):D1,1:"""")"
^DD(6925,218,9.3)="X ^DD(6925,218,9.2) S Y(6925,218,102)="""" X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0  S Y(6925,218,102)=Y(6925,218,102)+$S($D(^(D1,0)):$P(^(0),U,5),1:"""""""")"" S D(1)=D1"
^DD(6925,218,9.4)="X ^DD(6925,218,9.3) S X=Y(6925,218,102)>0,Y(6925,218,103)=X S X=7.5,Y(6925,218,104)=X,Y(6925,218,105)=X,Y(6925,218,202)="""""
^DD(6925,218,9.5)="X ^DD(6925,218,9.4) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0  S Y(6925,218,202)=Y(6925,218,202)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""""""")"" S D(1)=D1"
^DD(6925,218,9.6)="X ^DD(6925,218,9.5) S X=Y(6925,218,202)>0,Y(6925,218,203)=X S X=5,Y(6925,218,204)=X S X=1,Y(6925,218,205)=X S X=7.5"
^DD(6925,218,9.7)="X ^DD(6925,218,9.6) X ""F D1=0:0 S D1=$O(^ENG(""""PROJ"""",D0,22,D1)) Q:D1'>0  S Y(6925,218,302)=Y(6925,218,302)+$S($D(^(D1,0)):$P(^(0),U,3),1:"""""""")"" S D(1)=D1"
^DD(6925,218,9.8)="X ^DD(6925,218,9.7) S X=Y(6925,218,302)>0,Y(6925,218,303)=X S X=5,Y(6925,218,304)=X S X=1,Y(6925,218,305)=X S X=7.5"
^DD(6925,218,21,0)="^^7^7^2970428^^^"
^DD(6925,218,21,1,0)="This field contains the Major, Minor and Minor Misc Construction"
^DD(6925,218,21,2,0)="Contingency Percentage. (5% for new construction or 7.5% for renovated"
^DD(6925,218,21,3,0)="construction) A contingency of 7.5% is used if there is any H089 renovated"
^DD(6925,218,21,4,0)="gross sq ft. A contingency of 5% is used if there is not any H089"
^DD(6925,218,21,5,0)="renovated gross sq ft, but there is some H089 new gross sq ft. A"
^DD(6925,218,21,6,0)="contingency of 7.5% is used when there is not any H089 new or renovated"
^DD(6925,218,21,7,0)="gross sq ft."
^DD(6925,218,"DT")="2970428"
^DD(6925,218.1,0)="CONTINGENCY DOLLARS^CJ8,0^^ ; ^X ^DD(6925,218.1,9.4) S X=X+999.999\1000*1000 S X=$J(X,0,0)"
^DD(6925,218.1,9)="^"
^DD(6925,218.1,9.01)="6925^221;6925^218.3;6925^217;6925^218.2;6925^155"
^DD(6925,218.1,9.1)="$S(INTERNAL(#155)=""NR"":#218.2*#217,1:#218.3*#221)/100+999.999\1000*1000"
^DD(6925,218.1,9.2)="X $P(^DD(6925,217,0),U,5,99) S Y(6925,218.1,4)=X S Y(6925,218.1,1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),Y(6925,218.1,3)=$S($D(^(19)):^(19),1:"""")"
^DD(6925,218.1,9.3)="X ^DD(6925,218.1,9.2) S X=$P(Y(6925,218.1,1),U,6),X=X S X=X=""NR"",Y(6925,218.1,2)=X S X=$P(Y(6925,218.1,3),U,5)*Y(6925,218.1,4),Y(6925,218.1,5)=X S X=1"
^DD(6925,218.1,9.4)="X ^DD(6925,218.1,9.3) S Y(6925,218.1,6)=X S X=$P(Y(6925,218.1,3),U,12)*$P(Y(6925,218.1,3),U,8),X=$S(Y(6925,218.1,2):Y(6925,218.1,5),Y(6925,218.1,6):X)/100"
^DD(6925,218.1,9.5)="X ^DD(6925,218.1,9.4) S X=$S(Y(6925,218.1,2):Y(6925,218.1,5),Y(6925,218.1,6):X)\100000,Y(6925,218.1,8)=X,Y(6925,218.1,9)=X S X=$P(Y(6925,218.1,1),U,6)"
^DD(6925,218.1,9.6)="X ^DD(6925,218.1,9.5) S X=X S X=X=""NR"",Y(6925,218.1,10)=X S X=$P(Y(6925,218.1,3),U,5)>0,Y=X,X=Y(6925,218.1,10),X=X&Y,Y(6925,218.1,11)=X S X=Y(6925,218.1,4)"
^DD(6925,218.1,9.7)="X ^DD(6925,218.1,9.6) S X=X>0,Y=X,X=Y(6925,218.1,11),X=X&Y,Y(6925,218.1,12)=X S X=1,Y(6925,218.1,13)=X,Y(6925,218.1,14)=X S X=$P(Y(6925,218.1,1),U,6)"
^DD(6925,218.1,9.8)="X ^DD(6925,218.1,9.7) S X=X S X=X'=""NR"",Y(6925,218.1,15)=X S X=Y(6925,218.1,7)>0,Y=X,X=Y(6925,218.1,15),X=X&Y,Y(6925,218.1,16)=X S X=$P(Y(6925,218.1,3),U,8)"
^DD(6925,218.1,9.9)="X ^DD(6925,218.1,9.8) S X=X>0,Y=X,X=Y(6925,218.1,16),X=X&Y,Y(6925,218.1,17)=X S X=1,Y(6925,218.1,18)=X S X=1,Y(6925,218.1,19)=X S X=0"
^DD(6925,218.1,21,0)="^^2^2^2970428^^^^"
^DD(6925,218.1,21,1,0)="This field contains the computed total Construction Contingency amount"
^DD(6925,218.1,21,2,0)="the percentages used depend on project program type. "
^DD(6925,218.1,"DT")="2940428"
^DD(6925,218.2,0)="NRM CONTINGENCY PCT^NJ5,1^^19;5^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(6925,218.2,3)="Enter Contingency % as listed on VAF 10-6238, 1 Decimal Digit"
^DD(6925,218.2,21,0)="^^1^1^2930423^^"
^DD(6925,218.2,21,1,0)="This field contains the NRM program Construction Contingency's Percentage."
^DD(6925,218.2,"DT")="2921229"
^DD(6925,218.3,0)="MI/MA CONTINGENCY PCT^NJ5,1^^19;12^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""2N.N) X"
^DD(6925,218.3,3)="Enter Contingency % as listed on VAF 10-6238, 1 Decimal Digit."
^DD(6925,218.3,21,0)="^^2^2^2970428^"
^DD(6925,218.3,21,1,0)="This field contains the MAJOR/MINOR program Construction Contingency's"
^DD(6925,218.3,21,2,0)="Percentage."
^DD(6925,218.3,"DT")="2970428"
^DD(6925,219,0)="IMPACT COST^NJ8,0^^19;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,219,3)="Enter Whole Dollar Total Impact Costs as listed on VAF 10-6238, 0-99999999"
^DD(6925,219,21,0)="^^1^1^2930428^^^^"
^DD(6925,219,21,1,0)="This field contains the Total Impact costs as listed on the VAF 10-6238."
^DD(6925,219,"DT")="2921230"
^DD(6925,220,0)="TECHNICAL SERVICES PCT^CJ5,1^^ ; ^X ^DD(6925,220,10) S X=X*100"
^DD(6925,220,9)="^"
^DD(6925,220,9.01)="6925^219;6925^221;6925^217;6925^155;6925^220.1"
^DD(6925,220,9.1)="$S(#220.1+0=0:0,INTERNAL(#155)=""NR""&(#217+0=0):1,INTERNAL(#155)=""NR""&(#217>0):#220.1/#217,INTERNAL(#155)'=""NR""&(#221+#219=0):1,INTERNAL(#155)'=""NR""&(#221>0):#220.1/#221,1:0)*100"
^DD(6925,220,9.2)="X $P(^DD(6925,217,0),U,5,99) S Y(6925,220,7)=X S Y(6925,220,5)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:""""),Y(6925,220,1)=$S($D(^(19)):^(19),1:"""") S X=$P(Y(6925,220,1),U,6)"
^DD(6925,220,9.3)="X ^DD(6925,220,9.2) S X=X+0=0,Y(6925,220,2)=X S X=0,Y(6925,220,3)=X,Y(6925,220,4)=X S X=$P(Y(6925,220,5),U,6),X=X S X=X=""NR"",Y(6925,220,6)=X S X=Y(6925,220,7)"
^DD(6925,220,9.4)="X ^DD(6925,220,9.3) S X=X+0=0,Y=X,X=Y(6925,220,6),X=X&Y,Y(6925,220,8)=X S X=1,Y(6925,220,9)=X,Y(6925,220,10)=X S X=$P(Y(6925,220,5),U,6),X=X S X=X=""NR"""
^DD(6925,220,9.5)="X ^DD(6925,220,9.4) S Y(6925,220,11)=X S X=Y(6925,220,7)>0,Y=X,X=Y(6925,220,11),X=X&Y,Y(6925,220,12)=X S X=$P(Y(6925,220,1),U,6),X=$S(Y(6925,220,7):X/Y(6925,220,7),1:""*******"")"
^DD(6925,220,9.6)="X ^DD(6925,220,9.5) S Y(6925,220,13)=X,Y(6925,220,14)=X S X=$P(Y(6925,220,5),U,6),X=X S X=X'=""NR"",Y(6925,220,15)=X S X=$P(Y(6925,220,1),U,8)+$P(Y(6925,220,1),U,7)"
^DD(6925,220,9.7)="X ^DD(6925,220,9.6) S X=X=0,Y=X,X=Y(6925,220,15),X=X&Y,Y(6925,220,16)=X S X=1,Y(6925,220,17)=X,Y(6925,220,18)=X S X=$P(Y(6925,220,5),U,6),X=X S X=X'=""NR"""
^DD(6925,220,9.8)="X ^DD(6925,220,9.7) S Y(6925,220,19)=X S X=$P(Y(6925,220,1),U,8)>0,Y=X,X=Y(6925,220,19),X=X&Y,Y(6925,220,20)=X S X=$P(Y(6925,220,1),U,6),X=$S($P(Y(6925,220,1),U,8):X/$P(Y(6925,220,1),U,8),1:""*******"")"
^DD(6925,220,9.9)="X ^DD(6925,220,9.8) S Y(6925,220,21)=X S X=1,Y(6925,220,22)=X S X=0"
^DD(6925,220,10)="X ^DD(6925,220,9.9) S X=$S(Y(6925,220,2):Y(6925,220,3),Y(6925,220,8):Y(6925,220,9),Y(6925,220,12):Y(6925,220,13),Y(6925,220,16):Y(6925,220,17),Y(6925,220,20):Y(6925,220,21),Y(6925,220,22):X)"
^DD(6925,220,21,0)="^^2^2^2930427^^^^"
^DD(6925,220,21,1,0)="This field contains the calculated percent of Technical Services dollars to"
^DD(6925,220,21,2,0)="Total Construction Low Bid amount."
^DD(6925,220,"DT")="2930426"
^DD(6925,220.1,0)="TECHNICAL SERVICES $^NJ8,0^^19;6^K:+X'=X!(X>99999999)!(X<1000)!(X?.E1"".""1N.N) X"
^DD(6925,220.1,3)="Enter Technical Services $ as listed on VAF 10-6238."
^DD(6925,220.1,21,0)="^^2^2^2930427^^^^"
^DD(6925,220.1,21,1,0)="This field contains the total Technical Services dollars as listed on"
^DD(6925,220.1,21,2,0)="VAF 10-6238."
^DD(6925,220.1,"DT")="2930426"
^DD(6925,221,0)="MINOR/MAJOR CONST COSTS^NJ9,0^^19;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,221,3)="Enter Whole Dollar amount between 0 - 999999999"
^DD(6925,221,21,0)="^^2^2^2930423^^^^"
^DD(6925,221,21,1,0)="This field contains the total anticipated (Low Bid) Construction Cost for"
^DD(6925,221,21,2,0)="Major, Minor or Minor Misc programs as listed on VAF 10-6238. "
^DD(6925,221,"DT")="2921230"
^DD(6925,222,0)="TOTAL PROJECT COST^CJ9,0^^ ; ^X ^DD(6925,222,9.3) S Y(6925,222,5)=X S X=$P(Y(6925,222,6),U,8),X=$S(Y(6925,222,2):Y(6925,222,4),Y(6925,222,5):X)+Y(6925,222,7)+$P(Y(6925,222,6),U,7)+$P(Y(6925,222,6),U,6) S X=$J(X,0,0)"
^DD(6925,222,9)="^"
^DD(6925,222,9.01)="6925^220.1;6925^219;6925^218.1;6925^221;6925^217;6925^155"
^DD(6925,222,9.1)="$S(INTERNAL(#155)=""NR"":#217,1:#221)+#218.1+#219+#220.1"
^DD(6925,222,9.2)="X $P(^DD(6925,217,0),U,5,99) S Y(6925,222,3)=X X $P(^DD(6925,218.1,0),U,5,99) S Y(6925,222,7)=X S Y(6925,222,1)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:"""")"
^DD(6925,222,9.3)="X ^DD(6925,222,9.2) S Y(6925,222,6)=$S($D(^(19)):^(19),1:"""") S X=$P(Y(6925,222,1),U,6),X=X S X=X=""NR"",Y(6925,222,2)=X S X=Y(6925,222,3),Y(6925,222,4)=X S X=1"
^DD(6925,222,9.4)="X ^DD(6925,222,9.3) S Y(6925,222,2)=X S X=Y(6925,222,3),Y(6925,222,4)=X S X=1,Y(6925,222,5)=X S X=$P(Y(6925,222,6),U,8)"
^DD(6925,222,21,0)="^^1^1^2930426^^^^"
^DD(6925,222,21,1,0)="This field contains the total Project Cost as listed on VAF 10-6238."
^DD(6925,222,"DT")="2930426"
^DD(6925,223,0)="NET PARKING CHANGE^NJ4,0^^15;3^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1N.N) X"
^DD(6925,223,3)="Type a Number between -9999 and 9999, 0 Decimal Digits"
^DD(6925,223,21,0)="^^2^2^2930623^^"
^DD(6925,223,21,1,0)="This field contains the change (if any) in the number of parking stalls"
^DD(6925,223,21,2,0)="available."
^DD(6925,223,"DT")="2921229"
^DD(6925,225,0)="DOMINOS^6925.0225P^^20;0"
^DD(6925,225,21,0)="^^3^3^2930423^^^^"
^DD(6925,225,21,1,0)="This multiple field points to projects, in the Construction Project File"
^DD(6925,225,21,2,0)="(#6925) that must be started prior to the current project, due to a"
^DD(6925,225,21,3,0)="domino relationship."
^DD(6925,225,"DT")="2921231"
^DD(6925,231,0)="FDP UPDATE COMPLETED^S^Y:YES;N:NO;^15;5^Q"
^DD(6925,231,3)="Enter 'Y' if you have submitted a revised FDP, 'N' otherwise"
^DD(6925,231,21,0)="^^2^2^2930423^^^"
^DD(6925,231,21,1,0)="This field contains a set of codes (Yes or No) indicating the current"
^DD(6925,231,21,2,0)="status of the facility's FDP. "
^DD(6925,231,"DT")="2921229"
^DD(6925,233,0)="VAMC MINOR/MINOR MISC SCORE^CJ2,0^^ ; ^D K^ENPL3"
^DD(6925,233,9)="^"
^DD(6925,233,9.01)=""
^DD(6925,233,9.1)="D K^ENPL3"
^DD(6925,233,21,0)="^^2^2^2930423^^"
^DD(6925,233,21,1,0)="This field contains the total Facility Score based on the Minor/Minor"
^DD(6925,233,21,2,0)="Misc. Prioritization Scoring Methodology. "
^DD(6925,233.1,0)="MI/MM CITATION POINTS^CJ2^^ ; ^D XA^ENPL1"
^DD(6925,233.1,9)="^"
^DD(6925,233.1,9.01)=""
^DD(6925,233.1,9.1)="D XA^ENPL1"
^DD(6925,233.2,0)="MI/MM SPACE POINTS^CJ2^^ ; ^D XB^ENPL1"
^DD(6925,233.2,9)="^"
^DD(6925,233.2,9.01)=""
^DD(6925,233.2,9.1)="D XB^ENPL1"
^DD(6925,233.3,0)="MI/MM ENERGY POINTS^CJ2^^ ; ^D XC^ENPL1"
^DD(6925,233.3,9)="^"
^DD(6925,233.3,9.01)=""
^DD(6925,233.3,9.1)="D XC^ENPL1"
^DD(6925,233.4,0)="MI/MM CATEGORY POINTS^CJ2^^ ; ^D XD^ENPL1"
^DD(6925,233.4,9)="^"
^DD(6925,233.4,9.01)=""
^DD(6925,233.4,9.1)="D XD^ENPL1"
^DD(6925,233.5,0)="MI/MM VAMC PRIORITY POINTS^CJ2^^ ; ^D XE^ENPL1"
^DD(6925,233.5,9)="^"
^DD(6925,233.5,9.01)=""
^DD(6925,233.5,9.1)="D XE^ENPL1"
^DD(6925,234,0)="REGION SCORE^NJ3,0^^24;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,234,3)="Enter Score from Prioritization Sheet, between 0 & 999, 0 Decimal Digits"
^DD(6925,234,21,0)="^^2^2^2930423^^^^"
^DD(6925,234,21,1,0)="This field contains the total Region Score based on the Prioritization"
^DD(6925,234,21,2,0)="Scoring Methodology. The field will be completed by region staff. "
^DD(6925,234,"DT")="2921229"
^DD(6925,235,0)="TOTAL PROJECT SCORE^CJ6,2^^ ; ^X ^DD(6925,235,9.8) S X=X+Y"
^DD(6925,235,9)="^"
^DD(6925,235,9.01)="6925^209.1;6925^263;6925^233;6925^155;6925^234"
^DD(6925,235,9.1)="#234+$S("",MI,MM,""[("",""_INTERNAL(#155)_"",""):#233,INTERNAL(#155)=""NR"":#263,INTERNAL(#155)=""MA"":#209.1,1:0)"
^DD(6925,235,9.2)="X $P(^DD(6925,233,0),U,5,99) S Y(6925,235,7)=X X $P(^DD(6925,263,0),U,5,99) S Y(6925,235,11)=X S Y(6925,235,5)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:"""")"
^DD(6925,235,9.3)="X ^DD(6925,235,9.2) S Y(6925,235,1)=$S($D(^(24)):^(24),1:"""") S X=$P(Y(6925,235,1),U,10),Y(6925,235,2)=X S X="",MI,MM,"",Y(6925,235,3)=X S X="","",Y(6925,235,4)=X"
^DD(6925,235,9.4)="X ^DD(6925,235,9.3) S X=$P(Y(6925,235,5),U,6),X=X S Y=X,X=Y(6925,235,4),X=X S X=X_Y_"","",Y=X,X=Y(6925,235,3),X=X[Y,Y(6925,235,6)=X S X=Y(6925,235,7)"
^DD(6925,235,9.5)="X ^DD(6925,235,9.4) S Y(6925,235,8)=X,Y(6925,235,9)=X S X=$P(Y(6925,235,5),U,6),X=X S X=X=""NR"",Y(6925,235,10)=X S X=Y(6925,235,11),Y(6925,235,12)=X"
^DD(6925,235,9.6)="X ^DD(6925,235,9.5) S Y(6925,235,13)=X S X=$P(Y(6925,235,5),U,6),X=X S X=X=""MA"",Y(6925,235,14)=X S X=$P(Y(6925,235,1),U,8),Y(6925,235,15)=X S X=1"
^DD(6925,235,9.7)="X ^DD(6925,235,9.6) S Y(6925,235,16)=X S X=0"
^DD(6925,235,9.8)="X ^DD(6925,235,9.7) S X=$S(Y(6925,235,6):Y(6925,235,8),Y(6925,235,10):Y(6925,235,12),Y(6925,235,14):Y(6925,235,15),Y(6925,235,16):X) S Y=X,X=Y(6925,235,2),X=X"
^DD(6925,235,9.9)="X ^DD(6925,235,9.8) S X=$S(Y(6925,235,6):Y(6925,235,8),Y(6925,235,10):Y(6925,235,12),Y(6925,235,14):Y(6925,235,15),Y(6925,235,16):X) S Y=X,X=Y(6925,235,2),X=X"
^DD(6925,235,21,0)="^^2^2^2930423^^^^"
^DD(6925,235,21,1,0)="This computed field contains the total project score. The field will be"
^DD(6925,235,21,2,0)="completed by region staff. "
^DD(6925,235,"DT")="2930119"
^DD(6925,236,0)="SIR RATING^NJ5,2^^15;11^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""3N.N) X"
^DD(6925,236,3)="Enter the Energy Savings to Investment Ratio, 1-99, 2 Decimal Digits"
^DD(6925,236,21,0)="^^3^3^2930305^^"
^DD(6925,236,21,1,0)="This field contains Savings-to-investment ratio for Energy Projects. The"
^DD(6925,236,21,2,0)="field is used to determine prioritization points if any that can be taken"
^DD(6925,236,21,3,0)="for NRM, Minor, and Minor Miscellaneous programs."
^DD(6925,236,"DT")="2921229"
^DD(6925,236.1,0)="ENERGY CONSERVATION PROJECT^S^Y:YES;N:NO;^15;17^Q"
^DD(6925,236.1,3)="Enter 'Y' if Energy Conservation is at least 25% of Project Scope"
^DD(6925,236.1,21,0)="^^3^3^2940628^"
^DD(6925,236.1,21,1,0)="This set of codes (Yes or No) is to determine if Energy Conservation is at"
^DD(6925,236.1,21,2,0)="least 25% of the project scope. This field is no longer used to determine"
^DD(6925,236.1,21,3,0)="the number of prioritization points (if any) that will be awarded."
^DD(6925,236.1,"DT")="2930104"
^DD(6925,236.2,0)="APPROVED IN 5YR ENERGY PLAN^S^Y:YES;N:NO;^15;18^Q"
^DD(6925,236.2,3)="Enter 'Y' if this project is in Approved 5-Yr Energy Plan"
^DD(6925,236.2,21,0)="^^4^4^2930423^^"
^DD(6925,236.2,21,1,0)="This set of codes (Yes or No) indicated whether or not a program is listed"
^DD(6925,236.2,21,2,0)="on the facility's approved 5 Year Energy Conservation Plan. The field is"
^DD(6925,236.2,21,3,0)="used to determine project eligibility for Energy points on the NRM"
^DD(6925,236.2,21,4,0)="prioritization score."
^DD(6925,236.2,"DT")="2930104"
^DD(6925,237,0)="SITE ISSUES^F^^29;1^K:$L(X)>90!($L(X)<1) X"
^DD(6925,237,3)="Enter comment on effect of site on this project, 1-90 characters"
^DD(6925,237,21,0)="^^2^2^2930423^^"
^DD(6925,237,21,1,0)="This field contains a short (1-90 character) statement on the status of the"
^DD(6925,237,21,2,0)="site and any effect on the project. "
^DD(6925,237,"DT")="2921229"
^DD(6925,238,0)="HISTORICAL ISSUES^F^^29;2^K:$L(X)>90!($L(X)<1) X"
^DD(6925,238,3)="Enter comment on effect of historical issues on this project, 1-90 characters"
^DD(6925,238,21,0)="^^3^3^2930423^^"
^DD(6925,238,21,1,0)="This field contains a short (1-90 character) statement on the status of"
^DD(6925,238,21,2,0)="""Historical"" issues in and around the project and any resulting effect on"
^DD(6925,238,21,3,0)="the project. "
^DD(6925,238,"DT")="2921229"
^DD(6925,238.5,0)="ENVIRONMENTAL ISSUES^F^^32;2^K:$L(X)>90!($L(X)<1) X"
^DD(6925,238.5,3)="Enter comment on effect of environmemtal issues on this project, 1-90 characters"
^DD(6925,238.5,21,0)="^^4^4^2930423^^^"
^DD(6925,238.5,21,1,0)="This field contains a short (1-90 character) statement on the status of"
^DD(6925,238.5,21,2,0)="""Environmental"" issues in and around the project and any resulting effect"
^DD(6925,238.5,21,3,0)="on the project. Reference form VAF 10-1193a ""EMIS Construction Program"
^DD(6925,238.5,21,4,0)="Environmental Analysis"". "
^DD(6925,238.5,"DT")="2930129"
^DD(6925,239,0)="SEISMIC ISSUES^F^^30;1^K:$L(X)>90!($L(X)<1) X"
^DD(6925,239,3)="Enter comment on effect of seismic issues on this project, 1-90 characters"
^DD(6925,239,21,0)="^^3^3^2930423^^^"
^DD(6925,239,21,1,0)="This field contains a short (1-90 character) statement on the status of"
^DD(6925,239,21,2,0)="""Seismic"" issues in and around the project and any resulting effect on"
^DD(6925,239,21,3,0)="the project. "
^DD(6925,239,"DT")="2921229"
^DD(6925,240,0)="HAZARDOUS MATERIALS ISSUES^F^^30;2^K:$L(X)>90!($L(X)<1) X"
^DD(6925,240,3)="Enter effect of Asbestos and other hazardous materials on this project, 1-90 characters"
^DD(6925,240,21,0)="^^3^3^2930423^^"
^DD(6925,240,21,1,0)="This field contains a short (1-90 character) statement on the status of"
^DD(6925,240,21,2,0)="""Asbestos or other hazardous materials"" issues in and around the project"
^DD(6925,240,21,3,0)="and any resulting effect on the project. "
^DD(6925,240,"DT")="2921229"
^DD(6925,241,0)="TRANSPORT ISSUES^F^^31;1^K:$L(X)>90!($L(X)<1) X"
^DD(6925,241,3)="Enter effect of vertical or horizantal transport systems on this project, 1-90 characters"
^DD(6925,241,21,0)="^^3^3^2930423^^"
^DD(6925,241,21,1,0)="This field contains a short (1-90 character) statement on the status of"
^DD(6925,241,21,2,0)="""vertical or horizontal transportation systems"" issues in and around the"
^DD(6925,241,21,3,0)="project and any resulting effect on the project. "
^DD(6925,241,"DT")="2921229"
^DD(6925,242,0)="PARKING ISSUES^F^^31;2^K:$L(X)>90!($L(X)<1) X"
^DD(6925,242,3)="Enter effect of parking/roads issues on this project, 1-90 characters"
^DD(6925,242,21,0)="^^3^3^2930423^^"
^DD(6925,242,21,1,0)="This field contains a short (1-90 character) statement on the status of"
^DD(6925,242,21,2,0)="""Parking and/or Roads"" issues in and around the project and any resulting"
^DD(6925,242,21,3,0)="effect on the project. "
^DD(6925,242,"DT")="2921229"
^DD(6925,243,0)="*IMPACT ISSUES^F^^32;1^K:$L(X)>90!($L(X)<1) X"
^DD(6925,243,3)="Enter effect of Impact/temporary resource issues on this project, 1-90 characters"
^DD(6925,243,21,0)="^^5^5^2950623^"
^DD(6925,243,21,1,0)="This field is not used after installation of EN*7*23. New word processing"
^DD(6925,243,21,2,0)="field (IMPACT JUSTIFICATION) contains this data."
^DD(6925,243,21,3,0)="This field contained a short (1-90 character) statement on the status of"
^DD(6925,243,21,4,0)="""Impact (temporary resources)"" issues in and around the project and any"
^DD(6925,243,21,5,0)="resulting effect on the project. "
^DD(6925,243,"DT")="2950623"
^DD(6925,244,0)="CHIEF ENGINEER APPROVED^S^Y:YES;N:NO;^33;1^Q"
^DD(6925,244,1,0)="^.1"
^DD(6925,244,1,1,0)="^^TRIGGER^6925^245"
^DD(6925,244,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,244,1,1,1.4)"
^DD(6925,244,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,2)=DIV,DIH=6925,DIG=245 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,244,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,244,1,1,2.4)"
^DD(6925,244,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,2)=DIV,DIH=6925,DIG=245 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,244,1,1,"%D",0)="^^2^2^2970605^"
^DD(6925,244,1,1,"%D",1,0)="This trigger stores the internal number of the user editing Chief"
^DD(6925,244,1,1,"%D",2,0)="Engineer Approved field."
^DD(6925,244,1,1,"CREATE VALUE")="S X=DUZ"
^DD(6925,244,1,1,"DELETE VALUE")="S X=DUZ"
^DD(6925,244,1,1,"DT")="2970605"
^DD(6925,244,1,1,"FIELD")="#245"
^DD(6925,244,1,2,0)="^^TRIGGER^6925^246"
^DD(6925,244,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(6925,244,1,2,1.1) X ^DD(6925,244,1,2,1.4)"
^DD(6925,244,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(6925,244,1,2,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,3)=DIV,DIH=6925,DIG=246 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,244,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(6925,244,1,2,2.1) X ^DD(6925,244,1,2,2.4)"
^DD(6925,244,1,2,2.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(6925,244,1,2,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,3)=DIV,DIH=6925,DIG=246 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,244,1,2,"%D",0)="^^2^2^2970605^"
^DD(6925,244,1,2,"%D",1,0)="This trigger stores the date and time that the Chief Engineer or Designee"
^DD(6925,244,1,2,"%D",2,0)="approved the Project Application for submission."
^DD(6925,244,1,2,"CREATE VALUE")="NOW"
^DD(6925,244,1,2,"DELETE VALUE")="NOW"
^DD(6925,244,1,2,"DT")="2970605"
^DD(6925,244,1,2,"FIELD")="#246"
^DD(6925,244,3)="Enter 'Y' if you are Chief Engineer Approving Application for Submission"
^DD(6925,244,21,0)="^^5^5^2930225^^"
^DD(6925,244,21,1,0)="This field contains a set of codes (Yes or No) indicating that the proposal"
^DD(6925,244,21,2,0)="has been prepared and submitted in accordance with instructions, all"
^DD(6925,244,21,3,0)="supporting data that is required is forwarded, and is practical from an"
^DD(6925,244,21,4,0)="engineering viewpoint. The field triggers fields 245, CHIEF ENGINEER NAME,"
^DD(6925,244,21,5,0)="and 246, CHIEF ENG SIGN DATE."
^DD(6925,244,"DT")="2970605"
^DD(6925,245,0)="CHIEF ENGINEER NAME^P200'^VA(200,^33;2^Q"
^DD(6925,245,3)="Enter the internal number of User editing Chief Engineer Approved field"
^DD(6925,245,5,1,0)="6925^244^1"
^DD(6925,245,9)="^"
^DD(6925,245,21,0)="^^2^2^2930423^^"
^DD(6925,245,21,1,0)="This field is triggered by field 244, CHIEF ENGINEER APPROVED. The field "
^DD(6925,245,21,2,0)="contains a pointer to the NEW PERSON FILE (#200). "
^DD(6925,245,"DT")="2921229"
^DD(6925,246,0)="CHIEF ENG SIGN DATE^D^^33;3^S %DT=""ETXR"" D ^%DT S X=Y K:3990000<X!(2900000>X) X"
^DD(6925,246,3)="TYPE A DATE BETWEEN 1990 AND 2099"
^DD(6925,246,5,1,0)="6925^244^2"
^DD(6925,246,9)="^"
^DD(6925,246,21,0)="^^2^2^2930423^^^^"
^DD(6925,246,21,1,0)="This field is triggered by field 244, CHIEF ENGINEER APPROVED. The field"
^DD(6925,246,21,2,0)="contains the date and time of the Chief, Engineering Service approval."
^DD(6925,246,"DT")="2921229"
^DD(6925,247,0)="VAMC DIRECTOR APPROVED^S^Y:YES;N:NO;^33;4^Q"
^DD(6925,247,1,0)="^.1"
^DD(6925,247,1,1,0)="^^TRIGGER^6925^248"
^DD(6925,247,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,247,1,1,1.4)"
^DD(6925,247,1,1,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,5)=DIV,DIH=6925,DIG=248 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,247,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(6925,247,1,1,2.4)"
^DD(6925,247,1,1,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,5)=DIV,DIH=6925,DIG=248 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,247,1,1,"%D",0)="^^2^2^2970605^"
^DD(6925,247,1,1,"%D",1,0)="This trigger stores the internal number of the user editing VAMC Director"
^DD(6925,247,1,1,"%D",2,0)="Approved field."
^DD(6925,247,1,1,"CREATE VALUE")="S X=DUZ"
^DD(6925,247,1,1,"DELETE VALUE")="S X=DUZ"
^DD(6925,247,1,1,"DT")="2970605"
^DD(6925,247,1,1,"FIELD")="#248"
^DD(6925,247,1,2,0)="^^TRIGGER^6925^249"
^DD(6925,247,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(6925,247,1,2,1.1) X ^DD(6925,247,1,2,1.4)"
^DD(6925,247,1,2,1.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(6925,247,1,2,1.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,6)=DIV,DIH=6925,DIG=249 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,247,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""PROJ"",D0,33)):^(33),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(6925,247,1,2,2.1) X ^DD(6925,247,1,2,2.4)"
^DD(6925,247,1,2,2.1)="S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD(6925,247,1,2,2.4)="S DIH=$S($D(^ENG(""PROJ"",DIV(0),33)):^(33),1:""""),DIV=X S $P(^(33),U,6)=DIV,DIH=6925,DIG=249 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6925,247,1,2,"%D",0)="^^2^2^2970605^"
^DD(6925,247,1,2,"%D",1,0)="This trigger stores the date and time that the VMS Director or Designee"
^DD(6925,247,1,2,"%D",2,0)="approves the Project Application."
^DD(6925,247,1,2,"CREATE VALUE")="NOW"
^DD(6925,247,1,2,"DELETE VALUE")="NOW"
^DD(6925,247,1,2,"DT")="2970605"
^DD(6925,247,1,2,"FIELD")="#249"
^DD(6925,247,3)="Enter 'Y' if you are VAMC Director (Designee) Approving Project Application"
^DD(6925,247,21,0)="^^5^5^2930423^^"
^DD(6925,247,21,1,0)="This field contains a set of codes (Yes or No) indicating that the proposal"
^DD(6925,247,21,2,0)="has been prepared and submitted in accordance with instructions, all"
^DD(6925,247,21,3,0)="supporting data that is required is forwarded, and is practical from a"
^DD(6925,247,21,4,0)="facility viewpoint. The field triggers fields 248, VAMC DIRECTOR/"
^DD(6925,247,21,5,0)="DESIGNEE NAME, and 249, VAMC DIRECTOR SIGN DATE."
^DD(6925,247,"DT")="2970605"
^DD(6925,248,0)="VAMC DIRECTOR/DESIGNEE NAME^P200'^VA(200,^33;5^Q"
^DD(6925,248,3)="Enter the internal number of User editing VAMC Director Approved field"
^DD(6925,248,5,1,0)="6925^247^1"
^DD(6925,248,9)="^"
^DD(6925,248,21,0)="^^2^2^2930423^^"
^DD(6925,248,21,1,0)="This field is triggered by field 247, VAMC DIRECTOR APPROVED. The field"
^DD(6925,248,21,2,0)="contains a pointer to the NEW PERSON FILE (#200). "
^DD(6925,248,"DT")="2921229"
^DD(6925,249,0)="VAMC DIRECTOR SIGN DATE^D^^33;6^S %DT=""ETXR"" D ^%DT S X=Y K:3990000<X!(2900000>X) X"
^DD(6925,249,3)="TYPE A DATE BETWEEN 1990 AND 2099"
^DD(6925,249,5,1,0)="6925^247^2"
^DD(6925,249,9)="^"
^DD(6925,249,21,0)="^^2^2^2930423^^^"
^DD(6925,249,21,1,0)="This field is triggered by field 247, VAMC DIRECTOR APPROVED. The field"
^DD(6925,249,21,2,0)="contains the date and time of the VAMC Director's approval."
^DD(6925,249,"DT")="2921229"
^DD(6925,251,0)="PROJ APPLICATION STATUS^S^0:NOT EVALUATED;1:RETURNED TO SITE;3:REGION APPROVED;4:VIABLE;5:NON-VIABLE;6:AUTHORIZED;^49;4^Q"
^DD(6925,251,21,0)="^^2^2^2950505^"
^DD(6925,251,21,1,0)="Set of codes for regional status of project application. Updated by"
^DD(6925,251,21,2,0)="project planning bi-directional communication software."
^DD(6925,251,"DT")="2950505"
^DD(6925,261,0)="TOTAL FACTORED SQUARE FOOTAGE^NJ10,0^^18;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,261,3)="Enter Regional Office Approved Total Factored Square Footage"
^DD(6925,261,21,0)="^^4^4^2930311^^^"
^DD(6925,261,21,1,0)="This field contains the Total Factored Square Footage as derived from the"
^DD(6925,261,21,2,0)="National Survey of Building Square Footage for NRM Funding Distribution."
^DD(6925,261,21,3,0)="The field is used to determine the factored square footage prioritization "
^DD(6925,261,21,4,0)="points for NRM project applications."
^DD(6925,261,"DT")="2930104"
^DD(6925,262.1,0)="NRM FACILITY PRIORITY POINTS^CJ2,0^^ ; ^X ^DD(6925,262.1,9.3) S Y(6925,262.1,5)=X S X=1,Y(6925,262.1,6)=X S X=0,X=$S(Y(6925,262.1,3):Y(6925,262.1,5),Y(6925,262.1,6):X)"
^DD(6925,262.1,9)="^"
^DD(6925,262.1,9.01)="6925^209"
^DD(6925,262.1,9.1)="$S(#209>0&(#209<16):32-(#209*2),1:0)"
^DD(6925,262.1,9.2)="S Y(6925,262.1,1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(Y(6925,262.1,1),U,9)>0,Y(6925,262.1,2)=X S X=$P(Y(6925,262.1,1),U,9)<16"
^DD(6925,262.1,9.3)="X ^DD(6925,262.1,9.2) S Y=X,X=Y(6925,262.1,2),X=X&Y,Y(6925,262.1,3)=X S X=32,Y(6925,262.1,4)=X S X=$P(Y(6925,262.1,1),U,9)*2,Y=X,X=Y(6925,262.1,4),X=X-Y"
^DD(6925,262.1,21,0)="^^3^3^2930305^^"
^DD(6925,262.1,21,1,0)="This computed field contains the NRM priority points based on the assigned"
^DD(6925,262.1,21,2,0)="facility priority. 30 points assigned to the number one priority, 28 to the"
^DD(6925,262.1,21,3,0)="number two priority, etc., in decreasing increments of 2 points."
^DD(6925,262.2,0)="NRM FACTORED SQ FOOTAGE POINTS^CJ1,0^^ ; ^X ^DD(6925,262.2,9.4) S X=$S(Y(6925,262.2,2):Y(6925,262.2,3),Y(6925,262.2,4):Y(6925,262.2,5),Y(6925,262.2,6):Y(6925,262.2,7),Y(6925,262.2,8):Y(6925,262.2,9),Y(6925,262.2,10):X)"
^DD(6925,262.2,9)="^"
^DD(6925,262.2,9.01)="6925^261"
^DD(6925,262.2,9.1)="$S(#261>2000000:8,#261>999999:6,#261>499999:4,#261>0:2,1:0)"
^DD(6925,262.2,9.2)="S Y(6925,262.2,1)=$S($D(^ENG(""PROJ"",D0,18)):^(18),1:"""") S X=$P(Y(6925,262.2,1),U,1)>2000000,Y(6925,262.2,2)=X S X=8,Y(6925,262.2,3)=X S X=$P(Y(6925,262.2,1),U,1)"
^DD(6925,262.2,9.3)="X ^DD(6925,262.2,9.2) S X=X>999999,Y(6925,262.2,4)=X S X=6,Y(6925,262.2,5)=X S X=$P(Y(6925,262.2,1),U,1)>499999,Y(6925,262.2,6)=X S X=4,Y(6925,262.2,7)=X"
^DD(6925,262.2,9.4)="X ^DD(6925,262.2,9.3) S X=$P(Y(6925,262.2,1),U,1)>0,Y(6925,262.2,8)=X S X=2,Y(6925,262.2,9)=X S X=1,Y(6925,262.2,10)=X S X=0"
^DD(6925,262.2,21,0)="^^4^4^2930305^"
^DD(6925,262.2,21,1,0)="This computed field contains the NRM priority points based on the Total"
^DD(6925,262.2,21,2,0)="Factored Square Footage (field #262). Total Square Footage > 2,000,000:"
^DD(6925,262.2,21,3,0)="8 pts., 1,000,000-2,000,000:6 pts., 500,000-999,999:4 pts., and <500,000:"
^DD(6925,262.2,21,4,0)="2 pts."
^DD(6925,262.3,0)="NRM CATEGORY POINTS^CJ2,0^^ ; ^X ^DD(6925,262.3,9.2) S Y(6925,262.3,101)=$S($D(^OFM(7336.8,D0,1)):^(1),1:"""") S X=$P(Y(6925,262.3,101),U,5) S D0=Y(6925,262.3,80) S X=$J(X,0,0)"
^DD(6925,262.3,9)="^"
^DD(6925,262.3,9.01)="7336.8^12;6925^158.1"
^DD(6925,262.3,9.1)="#158.1:#12"
^DD(6925,262.3,9.2)="S Y(6925,262.3,80)=$S($D(D0):D0,1:""""),Y(6925,262.3,1)=$S($D(^ENG(""PROJ"",D0,52)):^(52),1:""""),D0=$P(Y(6925,262.3,1),U,1) S:'$D(^OFM(7336.8,+D0,0)) D0=-1"
^DD(6925,262.3,9.3)="X ^DD(6925,262.3,9.2) S Y(6925,262.3,2)=X S X=0,Y(6925,262.3,3)=X S X=1,Y(6925,262.3,4)=X,D0=$P(Y(6925,262.3,5),U,1) S:'$D(^OFM(7336.8,+D0,0)) D0=-1"
^DD(6925,262.3,9.4)="X ^DD(6925,262.3,9.3) S Y(6925,262.3,101)=$S($D(^OFM(7336.8,D0,1)):^(1),1:"""") S X=$P(Y(6925,262.3,101),U,5)"
^DD(6925,262.3,9.5)="X ^DD(6925,262.3,9.4) S D0=$P(Y(6925,262.3,6),U,1) S:'$D(^OFM(7336.8,+D0,0)) D0=-1 S Y(6925,262.3,101)=$S($D(^OFM(7336.8,D0,1)):^(1),1:"""") S X=$P(Y(6925,262.3,101),U,5)"
^DD(6925,262.3,9.6)="X ^DD(6925,262.3,9.5) S Y(6925,262.3,102)=X S X=1,Y(6925,262.3,103)=X S X=0"
^DD(6925,262.3,21,0)="15^^2^2^2940606^^^^"
^DD(6925,262.3,21,1,0)="This computed field contains the NRM priority points based on the project"
^DD(6925,262.3,21,2,0)="category."
^DD(6925,262.3,"DT")="2940606"
^DD(6925,262.4,0)="NRM CITATION POINTS^CJ2^^ ; ^D XF^ENPL1"
^DD(6925,262.4,9)="^"
^DD(6925,262.4,9.01)=""
^DD(6925,262.4,9.1)="D XF^ENPL1"
^DD(6925,262.4,9.2)="S Y(6925,262.4,80)=$S($D(D0):D0,1:""""),Y(6925,262.4,81)=$S($D(D1):D1,1:"""") S Y(6925,262.4,180)=$S($D(D0):D0,1:""""),Y(6925,262.4,181)=$S($D(D1):D1,1:"""")"
^DD(6925,262.4,9.3)="X ^DD(6925,262.4,9.2) S Y(6925,262.4,102)="""""
^DD(6925,262.4,9.4)="X ^DD(6925,262.4,9.3) X ""F D1=0:0 S D1=$N(^ENG(""""PROJ"""",D0,21,D1)) Q:D1'>0  S:$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""")'?."""" """" Y(6925,262.4,102)=Y(6925,262.4,102)+1"" S D(1)=D1"
^DD(6925,262.4,9.5)="X ^DD(6925,262.4,9.4) S X=+Y(6925,262.4,102)'>0,Y(6925,262.4,103)=X S X=0,Y(6925,262.4,104)=X,Y(6925,262.4,105)=X"
^DD(6925,262.4,9.6)="X ^DD(6925,262.4,9.5) S Y(6925,262.4,203)=$C(59)_$S($D(^DD(6925.0164,8,0)):$P(^(0),U,3),1:""""),Y(6925,262.4,202)="""""
^DD(6925,262.4,9.7)="X ^DD(6925,262.4,9.6) X ""F D1=0:0 S D1=$N(^ENG(""""PROJ"""",D0,21,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,8),1:"""""""") S:Y'?."""" """"&(Y(6925,262.4,202)'>Y!'$L(Y(6925,262.4,202))) Y(6925,262.4,202)=Y"" S D(1)=D1"
^DD(6925,262.4,9.8)="X ^DD(6925,262.4,9.7) S X=Y(6925,262.4,202) S X=$P($P(Y(6925,262.4,203),$C(59)_X_"":"",2),$C(59),1)=""YES"",Y(6925,262.4,204)=X S X=12,Y(6925,262.4,205)=X S X=1"
^DD(6925,262.4,21,0)="^^8^8^2950707^^^^"
^DD(6925,262.4,21,1,0)="This computed field contains the NRM priority points based on Citations. 12"
^DD(6925,262.4,21,2,0)="points will be assigned to projects that correct one or more citations given"
^DD(6925,262.4,21,3,0)="by JCAHO, RSFPE, CAP, AALAC, OSHA, EPA, State, or other citing authorities."
^DD(6925,262.4,21,4,0)="Citation must be within last 6 years and correction of citation must be"
^DD(6925,262.4,21,5,0)="greater than 50% of project scope. Citations must be documented, and"
^DD(6925,262.4,21,6,0)="attached to take credit. Information to be provided as documentation"
^DD(6925,262.4,21,7,0)="includes: Type of citation (F&S, AALAC, etc); Date of Citation; Citing"
^DD(6925,262.4,21,8,0)="Authority (JCAHO, RSFPE,  etc.); Survey Official's Name."
^DD(6925,262.4,"DT")="2950707"
^DD(6925,262.5,0)="NRM ENERGY POINTS^CJ1,0^^ ; ^X ^DD(6925,262.5,9.3) S X=$S(Y(6925,262.5,2):Y(6925,262.5,3),Y(6925,262.5,5):Y(6925,262.5,6),Y(6925,262.5,7):X) S X=$J(X,0,0)"
^DD(6925,262.5,9)="^"
^DD(6925,262.5,9.01)="6925^236.2;6925^236"
^DD(6925,262.5,9.1)="$S(#236'>1:0,INTERNAL(#236.2)'=""Y"":0,1:5)"
^DD(6925,262.5,9.2)="S Y(6925,262.5,1)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:"""") S X=$P(Y(6925,262.5,1),U,11)'>1,Y(6925,262.5,2)=X S X=0,Y(6925,262.5,3)=X,Y(6925,262.5,4)=X"
^DD(6925,262.5,9.3)="X ^DD(6925,262.5,9.2) S X=$P(Y(6925,262.5,1),U,18),X=X S X=X'=""Y"",Y(6925,262.5,5)=X S X=0,Y(6925,262.5,6)=X S X=1,Y(6925,262.5,7)=X S X=5"
^DD(6925,262.5,9.4)="X ^DD(6925,262.5,9.3) S Y(6925,262.5,7)=X S X=0,Y(6925,262.5,8)=X S X=1,Y(6925,262.5,9)=X S X=5"
^DD(6925,262.5,21,0)="^^5^5^2940713^"
^DD(6925,262.5,21,1,0)="This computed field contains the NRM priority points based on Energy. 5"
^DD(6925,262.5,21,2,0)="points will be assigned to projects that appear on an approved 5-Year Energy"
^DD(6925,262.5,21,3,0)="Conservation Plan and have a Savings-to-Investment Rating (SIR) greater"
^DD(6925,262.5,21,4,0)="than 1.0. The SIR rating (VAF Form 10-5561) must be provided to take"
^DD(6925,262.5,21,5,0)="credit."
^DD(6925,262.6,0)="NRM CONSTRUCTION COST^CJ9,0^^ ; ^X $P(^DD(6925,222,0),U,5,99) S Y(6925,262.6,1)=X S Y(6925,262.6,2)=$S($D(^ENG(""PROJ"",D0,19)):^(19),1:"""") S X=Y(6925,262.6,1)-$P(Y(6925,262.6,2),U,6) S X=$J(X,0,0)"
^DD(6925,262.6,9)="^"
^DD(6925,262.6,9.01)="6925^220.1;6925^222"
^DD(6925,262.6,9.1)="#222-#220.1"
^DD(6925,262.6,21,0)="^^2^2^2930426^^^"
^DD(6925,262.6,21,1,0)="This computed field contains the Total NRM Construction Costs (Total Project"
^DD(6925,262.6,21,2,0)="Cost - Technical Services Costs)."
^DD(6925,262.6,"DT")="2930426"
^DD(6925,262.7,0)="NRM BONUS POINTS^CJ2,0^^ ; ^X ^DD(6925,262.7,9.7) S X=$P(Y(6925,262.7,101),U,2),X=$S(Y(6925,262.7,2):Y(6925,262.7,12),Y(6925,262.7,13):X) S D0=Y(6925,262.7,80) S X=$J(X,0,0)"
^DD(6925,262.7,9)="^"
^DD(6925,262.7,9.01)="7336.8^17;6925^236;6925^158.8"
^DD(6925,262.7,9.1)="$S(#158.8[""ENERGY"":$S(#236>3.99:5,#236>1.99:4,#236>.99:3,1:0),1:#158.8:#17)"
^DD(6925,262.7,9.2)="S Y(6925,262.7,80)=$S($D(D0):D0,1:""""),Y(6925,262.7,4)=$S($D(^ENG(""PROJ"",D0,15)):^(15),1:""""),Y(6925,262.7,1)=$S($D(^(52)):^(52),1:"""")"
^DD(6925,262.7,9.3)="X ^DD(6925,262.7,9.2) S X=$S('$D(^OFM(7336.8,+$P(Y(6925,262.7,1),U,9),0)):"""",1:$P(^(0),U,1))[""ENERGY"",Y(6925,262.7,2)=X,Y(6925,262.7,3)=X S X=$P(Y(6925,262.7,4),U,11)"
^DD(6925,262.7,9.4)="X ^DD(6925,262.7,9.3) S X=X>3.99,Y(6925,262.7,5)=X S X=5,Y(6925,262.7,6)=X S X=$P(Y(6925,262.7,4),U,11)>1.99,Y(6925,262.7,7)=X S X=4,Y(6925,262.7,8)=X"
^DD(6925,262.7,9.5)="X ^DD(6925,262.7,9.4) S X=$P(Y(6925,262.7,4),U,11)>.99,Y(6925,262.7,9)=X S X=3,Y(6925,262.7,10)=X S X=1,Y(6925,262.7,11)=X S X=0"
^DD(6925,262.7,9.6)="X ^DD(6925,262.7,9.5) S X=$S(Y(6925,262.7,5):Y(6925,262.7,6),Y(6925,262.7,7):Y(6925,262.7,8),Y(6925,262.7,9):Y(6925,262.7,10),Y(6925,262.7,11):X)"
^DD(6925,262.7,9.7)="X ^DD(6925,262.7,9.6) S Y(6925,262.7,12)=X S X=1,Y(6925,262.7,13)=X,D0=$P(Y(6925,262.7,1),U,9) S:'$D(^OFM(7336.8,+D0,0)) D0=-1 S Y(6925,262.7,101)=$S($D(^OFM(7336.8,D0,2)):^(2),1:"""")"
^DD(6925,262.7,9.8)="X ^DD(6925,262.7,9.7) S Y(6925,262.7,15)=X S X=4,Y(6925,262.7,16)=X S X=$P(Y(6925,262.7,4),U,20)<70,Y(6925,262.7,17)=X S X=3,Y(6925,262.7,18)=X"
^DD(6925,262.7,9.9)="X ^DD(6925,262.7,9.8) S X=$P(Y(6925,262.7,4),U,20)<80,Y(6925,262.7,19)=X S X=2,Y(6925,262.7,20)=X S X=$P(Y(6925,262.7,4),U,20)<90,Y(6925,262.7,21)=X S X=1"
^DD(6925,262.7,10)="X ^DD(6925,262.7,9.9) S Y(6925,262.7,22)=X S X=1,Y(6925,262.7,23)=X S X=0"
^DD(6925,262.7,10.1)="X ^DD(6925,262.7,10) S X=$S(Y(6925,262.7,13):Y(6925,262.7,14),Y(6925,262.7,15):Y(6925,262.7,16),Y(6925,262.7,17):Y(6925,262.7,18),Y(6925,262.7,19):Y(6925,262.7,20),Y(6925,262.7,21):Y(6925,262.7,22),Y(6925,262.7,23):X) S Y=X,X=Y(6925,262.7,12),X=X"
^DD(6925,262.7,10.2)="X ^DD(6925,262.7,10.1) S X=X+Y,Y(6925,262.7,24)=X S X=1,Y(6925,262.7,25)=X,D0=$P(Y(6925,262.7,1),U,9) S:'$D(^OFM(7336.8,+D0,0)) D0=-1"
^DD(6925,262.7,10.3)="X ^DD(6925,262.7,10.2) S Y(6925,262.7,101)=$S($D(^OFM(7336.8,D0,2)):^(2),1:"""") S X=$P(Y(6925,262.7,101),U,2)"
^DD(6925,262.7,21,0)="^^2^2^2950519^"
^DD(6925,262.7,21,1,0)="This computed field contains the NRM priority points based on the bonus"
^DD(6925,262.7,21,2,0)="category."
^DD(6925,262.7,"DT")="2950526"
^DD(6925,263,0)="NRM VAMC SCORE^CJ3,0^^ ; ^X ^DD(6925,263,9.3) S X=X+Y(6925,263,4)+Y(6925,263,5) S X=$J(X,0,0)"
^DD(6925,263,9)="^"
^DD(6925,263,9.01)="6925^262.7;6925^262.4;6925^262.3;6925^262.2;6925^262.1"
^DD(6925,263,9.1)="#262.1+#262.2+#262.3+#262.4+#262.7"
^DD(6925,263,9.2)="X $P(^DD(6925,262.1,0),U,5,99) S Y(6925,263,1)=X X $P(^DD(6925,262.2,0),U,5,99) S Y(6925,263,2)=X X $P(^DD(6925,262.3,0),U,5,99) S Y(6925,263,3)=X"
^DD(6925,263,9.3)="X ^DD(6925,263,9.2) X $P(^DD(6925,262.4,0),U,5,99) S Y(6925,263,4)=X X $P(^DD(6925,262.7,0),U,5,99) S Y(6925,263,5)=X S X=Y(6925,263,1)+Y(6925,263,2)+Y(6925,263,3)"
^DD(6925,263,21,0)="^^1^1^2950519^^"
^DD(6925,263,21,1,0)="This computed field contains the Total NRM Facility Prioritization Score. "
^DD(6925,264,0)="SPACE USE FOR PRIORITIZATION^*P7336.3'^OFM(7336.3,^18;2^S DIC(""S"")=""I $D(ENDA),$P(^(0),U,2)[$P($G(^ENG(""""PROJ"""",ENDA,0)),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925,264,3)="For Minor and Minor Misc projects select space category for which 100% renovation/new construction of space"
^DD(6925,264,12)="Screen restricts selection to Space Categories applicable for program."
^DD(6925,264,12.1)="S DIC(""S"")=""I $D(ENDA),$P(^(0),U,2)[$P($G(^ENG(""""PROJ"""",ENDA,0)),U,6)"""
^DD(6925,264,21,0)="^^4^4^2930423^^^^"
^DD(6925,264,21,1,0)="This field is a pointer to the OFM Space Classification File (#7336.3)"
^DD(6925,264,21,2,0)="The field designates space classification which determines prioritization"
^DD(6925,264,21,3,0)="points for Minor and Minor Misc. programs. Choices are screened based on"
^DD(6925,264,21,4,0)="program type."
^DD(6925,264,"DT")="2930105"
^DD(6925,265,0)="SEISMIC AREA^S^1:CAT I;2:CAT II;3:CAT III;^18;3^Q"
^DD(6925,265,3)="Enter Seismic Area Category where project location"
^DD(6925,265,21,0)="^^3^3^2930310^"
^DD(6925,265,21,1,0)="This field is set of codes (1,2,or 3) for Seismic Category. The field is"
^DD(6925,265,21,2,0)="used to determine prioritization points for NRM and Minor/Minor Misc."
^DD(6925,265,21,3,0)="submissions."
^DD(6925,265,"DT")="2930105"
^DD(6925,277,0)="LONG DESCRIPTION^6925.0277^^46;0"
^DD(6925,277,21,0)="^^2^2^2930423^^^"
^DD(6925,277,21,1,0)="This field is for a lengthy project description (more than 3 lines)."
^DD(6925,277,21,2,0)="The field will be printed at the end of the project application."
^DD(6925,278,0)="LONG JUSTIFICATION^6925.0278^^47;0"
^DD(6925,278,21,0)="^^2^2^2930423^^"
^DD(6925,278,21,1,0)="This field is for a lengthy project justification(more than 3 lines)"
^DD(6925,278,21,2,0)="The field will be printed at the end of the project application."
^DD(6925,279,0)="DATE TRANSMIT IN 5YR PLAN^D^^33;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,279,3)="Enter date the project was electronically transmitted for 5-Yr Plan"
^DD(6925,279,21,0)="^^2^2^2930319^"
^DD(6925,279,21,1,0)="During the set up of the MailMan message, the date is set into this field."
^DD(6925,279,21,2,0)="The value should not be edited."
^DD(6925,279,"DT")="2930319"
^DD(6925,279.1,0)="TRANSMITTER 5YR PLAN^P200'^VA(200,^33;8^Q"
^DD(6925,279.1,3)="Enter the name of the person sending this project as part of 5-Yr Plan"
^DD(6925,279.1,21,0)="^^2^2^2930319^^^"
^DD(6925,279.1,21,1,0)="During the set up of the MailMan message, the user's DUZ value is set into"
^DD(6925,279.1,21,2,0)="this field.  The value should not be edited."
^DD(6925,279.1,"DT")="2930319"
^DD(6925,279.2,0)="DATE TRANSMIT PROJ APPLICATION^D^^33;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6925,279.2,3)="Enter date of electronic transmission of project application"
^DD(6925,279.2,21,0)="^^2^2^2930319^"
^DD(6925,279.2,21,1,0)="During the set up of the MailMan message, the date is set into this field."
^DD(6925,279.2,21,2,0)="The value should not be edited."
^DD(6925,279.2,"DT")="2930319"
^DD(6925,279.3,0)="TRANSMITTER PROJ APPLICATION^P200'^VA(200,^33;10^Q"
^DD(6925,279.3,3)="Enter name of person electronically transmitting project application."
^DD(6925,279.3,21,0)="^^2^2^2930319^^"
^DD(6925,279.3,21,1,0)="During the set up of the MailMan message, the user's DUZ is set into this"
^DD(6925,279.3,21,2,0)="field.  The value should not be edited."
^DD(6925,279.3,"DT")="2930319"
^DD(6925,282,0)="IMPACT JUSTIFICATION^6925.0282^^54;0"
^DD(6925,285,0)="LEASE TYPE^S^NN:NEW LEASE/NEW PRESENCE;NE:NEW LEASE/EXISTING PRESENCE;SU:SUCCEEDING;EX:EXPEDITED;EU:ENHANCED USE;^55;1^Q"
^DD(6925,285,21,0)="^^11^11^2950626^^"
^DD(6925,285,21,1,0)="This field contains the type of lease. New Lease/New Presence is a first"
^DD(6925,285,21,2,0)="time lease where no presence exists and there is no existing lease. New"
^DD(6925,285,21,3,0)="Lease/Existing Presence is a lease where there is a change in location,"
^DD(6925,285,21,4,0)="increase or decrease in space, or some change other than a re-negotiation"
^DD(6925,285,21,5,0)="of cost and all renewal options have expired. A Succeeding lease is a"
^DD(6925,285,21,6,0)="lease where there is no change other than cost and all lease renewal"
^DD(6925,285,21,7,0)="options have expired. An Expedited lease is a lease, fully funded by the"
^DD(6925,285,21,8,0)="facility, that meets the terms of the Expedited Lease Directive. An"
^DD(6925,285,21,9,0)="Enhanced Use lease is a lease where costs are shared between the VA and an"
^DD(6925,285,21,10,0)="outside source such as state, city, county government or private"
^DD(6925,285,21,11,0)="enterprise."
^DD(6925,285,"DT")="2950621"
^DD(6925,286,0)="FY AWARD LEASE^NJ4,0^^55;2^K:+X'=X!(X>2099)!(X<1970)!(X?.E1"".""1N.N) X"
^DD(6925,286,3)="Type a Number between 1970 and 2099, 0 Decimal Digits"
^DD(6925,286,21,0)="^^2^2^2950623^"
^DD(6925,286,21,1,0)="This field contains the fiscal year the lease cost and/or build-out funds"
^DD(6925,286,21,2,0)="are obligated against the lease contract."
^DD(6925,286,"DT")="2950505"
^DD(6925,287,0)="FY RENT STARTS^NJ4,0^^55;3^K:+X'=X!(X>2099)!(X<1970)!(X?.E1"".""1N.N) X"
^DD(6925,287,1,0)="^.1"
^DD(6925,287,1,1,0)="6925^L"
^DD(6925,287,1,1,1)="S ^ENG(""PROJ"",""L"",$E(X,1,30),DA)="""""
^DD(6925,287,1,1,2)="K ^ENG(""PROJ"",""L"",$E(X,1,30),DA)"
^DD(6925,287,1,1,"%D",0)="^^1^1^2950630^"
^DD(6925,287,1,1,"%D",1,0)="This index is used for sorting projects by fiscal year that rent starts."
^DD(6925,287,1,1,"DT")="2950505"
^DD(6925,287,3)="Type a Number between 1970 and 2099, 0 Decimal Digits"
^DD(6925,287,21,0)="^^3^3^2950623^"
^DD(6925,287,21,1,0)="This field contains the fiscal year that monthly lease payments commence."
^DD(6925,287,21,2,0)="This may differ from the award date due to build-out or a negotiated delay"
^DD(6925,287,21,3,0)="of occupancy."
^DD(6925,287,"DT")="2950505"
^DD(6925,288,0)="ESTIMATED LUMP SUM COST^NJ9,0X^^55;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDIOL(""Value was rounded up to ""_X,"""",""!?4"")"
^DD(6925,288,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(6925,288,21,0)="^^3^3^2950623^"
^DD(6925,288,21,1,0)="This field contains the estimated lump sum cost paid up-front for"
^DD(6925,288,21,2,0)="build-out or modifications to the property made at the request of and paid"
^DD(6925,288,21,3,0)="for by the VA."
^DD(6925,288,"DT")="2950505"
^DD(6925,289,0)="ESTIMATED ANNUAL RENT COST^NJ9,0X^^55;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X I $D(X),X\1000'=(X/1000) S X=X+999\1000*1000 D EN^DDIOL(""Value was rounded up to ""_X,"""",""!?4"")"
^DD(6925,289,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(6925,289,21,0)="^^2^2^2950623^"
^DD(6925,289,21,1,0)="This field contains the total of the annual lease costs based on the 12"
^DD(6925,289,21,2,0)="month period from the start of the lease."
^DD(6925,289,"DT")="2950505"
^DD(6925,290,0)="PROPOSED LEASE TERM^NJ2,0^^55;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,290,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(6925,290,21,0)="^^2^2^2950623^"
^DD(6925,290,21,1,0)="This field contains the term of the lease in years, including all renewal"
^DD(6925,290,21,2,0)="options."
^DD(6925,290,"DT")="2950505"
^DD(6925,291,0)="RENTABLE SQ FT^NJ7,0^^55;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,291,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,291,21,0)="^^5^5^2950623^"
^DD(6925,291,21,1,0)="This field contains the total net square feet to be used by the VA"
^DD(6925,291,21,2,0)="occupants. Include any waiting space or common areas. If waiting space is"
^DD(6925,291,21,3,0)="shared by tenants other than the VA, estimate and apportion the space. Do"
^DD(6925,291,21,4,0)="not include corridors, equipment rooms, telephone closets, etc. in the"
^DD(6925,291,21,5,0)="rentable square feet."
^DD(6925,291,"DT")="2950505"
^DD(6925,292,0)="EXISTING SPACE ANNUAL RENT^NJ9,0^^55;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,292,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(6925,292,21,0)="^^3^3^2950626^"
^DD(6925,292,21,1,0)="This field contains the total annual lease costs based on the last 12"
^DD(6925,292,21,2,0)="month period of the lease for the existing presence of a Succeeding or New"
^DD(6925,292,21,3,0)="Lease/Existing Presence type lease."
^DD(6925,292,"DT")="2950505"
^DD(6925,293,0)="EXISTING SPACE RENTABLE SQ FT^NJ7,0^^55;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925,293,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925,293,21,0)="^^6^6^2950626^"
^DD(6925,293,21,1,0)="This field contains the rentable square feet for the existing presence of"
^DD(6925,293,21,2,0)="a Succeeding or New Lease/Existing Presence type lease. Rentable square"
^DD(6925,293,21,3,0)="feet is the total net square footage used by VA occupants, including any"
^DD(6925,293,21,4,0)="waiting space or common areas. If waiting space is shared by tenants other"
^DD(6925,293,21,5,0)="than the VA, estimate and apportion the space. Do not include corridors,"
^DD(6925,293,21,6,0)="equipment rooms, telephone closets, etc. in the rentable square feet."
^DD(6925,293,"DT")="2950505"
^DD(6925,301,0)="COMMUNICATION LOG^6925.0301^^80;0"
^DD(6925,301,21,0)="^^5^5^2940525^"
^DD(6925,301,21,1,0)="This field should not be edited by a user. It contains bi-directional"
^DD(6925,301,21,2,0)="communication activity information for a project. Information will be"
^DD(6925,301,21,3,0)="appended to this word-processing field when projects are transmitted to"
^DD(6925,301,21,4,0)="higher approval authorities or when electronic communications from higher"
^DD(6925,301,21,5,0)="approval authorities are received for a project."
^DD(6925,"B","% CONST DOCS. COMPL",10)=""
^DD(6925,"B","% CONSTRUCTION COMPLETE",11)=""
^DD(6925,"B","% DESIGN DEV. COMPL",12)=""
^DD(6925,"B","% DESIGN PROGRAM COMPL",13)=""
^DD(6925,"B","% SCHEMATICS COMPLETE",9)=""
^DD(6925,"B","*APPROVAL LEVEL",3.6)=""
^DD(6925,"B","*AVG. WORK FORCE (P&H)",157.5)=""
^DD(6925,"B","*COMPL OF PRE-AWARD - SBA",99)=""
^DD(6925,"B","*CONTINGENCY PCT MI/MA",218)=""
^DD(6925,"B","*CONTR INIT PROP - SBA",97)=""
^DD(6925,"B","*CURRENT A/E ESTIMATE",154)=""
^DD(6925,"B","*IMPACT ISSUES",243)=""
^DD(6925,"B","*INIT. NOTIFICATION - SBA",95)=""
^DD(6925,"B","*MAN HOURS (P&H)",157.6)=""
^DD(6925,"B","*REQ FOR PRE-AWARD - SBA",98)=""
^DD(6925,"B","*SCOPE REDUCED",153)=""
^DD(6925,"B","*WD & SPECIFICATIONS - SBA",96)=""
^DD(6925,"B","5 YR FACILITY PLAN FY",181)=""
^DD(6925,"B","5 YR PLAN STATUS DATE",181.2)=""
^DD(6925,"B","A/E ADDR1",86)=""
^DD(6925,"B","A/E ADDR2",87)=""
^DD(6925,"B","A/E AWARD (ACTUAL)",53)=""
^DD(6925,"B","A/E AWARD (PLANNED)",20.5)=""
^DD(6925,"B","A/E AWARD (REVISED)",34.5)=""
^DD(6925,"B","A/E AWARD AMOUNT",71.6)=""
^DD(6925,"B","A/E CONST DOCUMENTS",73)=""
^DD(6925,"B","A/E CONST PER SERVCS",75)=""
^DD(6925,"B","A/E CONTRACT #",70)=""
^DD(6925,"B","A/E DESIGN DEVELOPMENT",72.5)=""
^DD(6925,"B","A/E FUND CONTROL POINT",71.5)=""
^DD(6925,"B","A/E NAME",85)=""
^DD(6925,"B","A/E OBLIGATED",82)=""
^DD(6925,"B","A/E OTHER SERVICES",75.5)=""
^DD(6925,"B","A/E SA ADDITIONS (#)",77)=""
^DD(6925,"B","A/E SA ADDITIONS ($)",78)=""
^DD(6925,"B","A/E SA DEDUCTIONS (#)",79)=""
^DD(6925,"B","A/E SA DEDUCTIONS ($)",80)=""
^DD(6925,"B","A/E SA NET ($)",81)=""
^DD(6925,"B","A/E SCHEMATICS",72)=""
^DD(6925,"B","A/E SITE SURVEY",72.3)=""
^DD(6925,"B","A/E SITE VISITS",74)=""
^DD(6925,"B","A/E STUDY",71.7)=""
^DD(6925,"B","A/E SUBTOTAL",76)=""
^DD(6925,"B","A1 LAND USE TEXT",195.1)=""
^DD(6925,"B","A2 LAND USE TEXT",196.1)=""
^DD(6925,"B","A3 LAND USE TEXT",197.1)=""
^DD(6925,"B","A4 LAND USE TEXT",198.1)=""
^DD(6925,"B","A5 LAND USE TEXT",199.1)=""
^DD(6925,"B","A6 LAND USE TEXT",200.1)=""
^DD(6925,"B","ACQUIRES OR DISPOSES LAND",195)=""
^DD(6925,"B","ACTIVATION (ACTUAL)",63)=""
^DD(6925,"B","ACTIVATION (PLANNED)",30)=""
^DD(6925,"B","ACTIVATION (REVISED)",44)=""
^DD(6925,"B","ACTIVATION RESOURCES REQ IN FY",187.5)=""
^DD(6925,"B","ADDITIONAL DOCUMENTATION REQD",194)=""
^DD(6925,"B","ADDITIONAL FTEE",189)=""
^DD(6925,"B","ADVERTISE FOR A/E (ACTUAL)",51)=""
^DD(6925,"B","ADVERTISE FOR A/E (PLANNED)",20.3)=""
^DD(6925,"B","ADVERTISE FOR A/E (REVISED)",34.3)=""
^DD(6925,"B","AFFECTS PROTECTED FAUNA/FLORA",200)=""
^DD(6925,"B","AFFECTS WETLANDS/FLOOD PLAINS",196)=""
^DD(6925,"B","AMBULATORY CARE PERCENTAGE",158.9)=""
^DD(6925,"B","APPROVAL LEVEL",156)=""
^DD(6925,"B","APPROVED A/E FUNDING",5)=""
^DD(6925,"B","APPROVED CONSTRUCTION",4)=""
^DD(6925,"B","APPROVED IN 5YR ENERGY PLAN",236.2)=""
^DD(6925,"B","AUTHORIZED (ACTUAL)",50)=""
^DD(6925,"B","B1 CONSTRUCTION TEXT",201.1)=""
^DD(6925,"B","B2 CONSTRUCTION TEXT",202.1)=""
^DD(6925,"B","B3 CONSTRUCTION TEXT",203.1)=""
^DD(6925,"B","B4 CONSTRUCTION TEXT",204.1)=""
^DD(6925,"B","BID OPEN/NEGOTIATION (ACTUAL)",59)=""
^DD(6925,"B","BID OPEN/NEGOTIATION (PLANNED)",26)=""
^DD(6925,"B","BID OPEN/NEGOTIATION (REVISED)",40)=""
^DD(6925,"B","BLDG DISPLAY",178)=""
^DD(6925,"B","BLDG OCCUPANCY",179)=""
^DD(6925,"B","BONUS CATEGORY",158.8)=""
^DD(6925,"B","BUDGET CATEGORY",158.2)=""
^DD(6925,"B","BUILDING NUMBER",177)=""
^DD(6925,"B","C1 EMISSION/TOXINS TEXT",205.1)=""
^DD(6925,"B","CAPITAL LEASE PROGRAM",163)=""
^DD(6925,"B","CHIEF ENG SIGN DATE",246)=""
^DD(6925,"B","CHIEF ENGINEER APPROVED",244)=""
^DD(6925,"B","CHIEF ENGINEER NAME",245)=""
^DD(6925,"B","CITATIONS",164)=""
^DD(6925,"B","COMMUNICATION LOG",301)=""
^DD(6925,"B","COMPL. AUDIT REVIEW (ACTUAL)",58.6)=""
^DD(6925,"B","COMPL. AUDIT REVIEW (PLANNED)",25.6)=""
^DD(6925,"B","COMPL. AUDIT REVIEW (REVISED)",39.6)=""
^DD(6925,"B","COMPL. CONST. DOCS. (ACTUAL)",57)=""
^DD(6925,"B","COMPL. CONST. DOCS. (PLANNED)",24)=""
^DD(6925,"B","COMPL. CONST. DOCS. (REVISED)",38)=""
^DD(6925,"B","COMPL. DESIGN DEV. (ACTUAL)",55.6)=""
^DD(6925,"B","COMPL. DESIGN DEV. (PLANNED)",22.6)=""
^DD(6925,"B","COMPL. DESIGN DEV. (REVISED)",36.2)=""
^DD(6925,"B","COMPL. L/T REVIEW (ACTUAL)",58.4)=""
^DD(6925,"B","COMPL. L/T REVIEW (PLANNED)",25.4)=""
^DD(6925,"B","COMPL. L/T REVIEW (REVISED)",39.4)=""
^DD(6925,"B","COMPLETE SCHEMATICS (ACTUAL)",55)=""
^DD(6925,"B","COMPLETE SCHEMATICS (PLANNED)",22)=""
^DD(6925,"B","COMPLETE SCHEMATICS (REVISED)",36)=""
^DD(6925,"B","CONFLICT LOCAL/STATE REGS",207)=""
^DD(6925,"B","CONFLICTS W LOCAL ZONING",198)=""
^DD(6925,"B","CONST FUND CONTROL PT",105.5)=""
^DD(6925,"B","CONST SA ADDITIONS (#)",125)=""
^DD(6925,"B","CONST SA ADDITIONS ($)",126)=""
^DD(6925,"B","CONST SA DEDUCTIONS (#)",127)=""
^DD(6925,"B","CONST SA DEDUCTIONS ($)",128)=""
^DD(6925,"B","CONST SUPPL (NET $)",128.2)=""
^DD(6925,"B","CONST. COMPLETE (ACTUAL)",62)=""
^DD(6925,"B","CONST. COMPLETE (PLANNED)",29)=""
^DD(6925,"B","CONST. COMPLETE (REVISED)",43)=""
^DD(6925,"B","CONST. CONTRACT #",105)=""
^DD(6925,"B","CONSTR. METHOD",8)=""
^DD(6925,"B","CONSTRUCTION AWARD",106)=""
^DD(6925,"B","CONSTRUCTION AWARD (ACTUAL)",60)=""
^DD(6925,"B","CONSTRUCTION AWARD (PLANNED)",27)=""
^DD(6925,"B","CONSTRUCTION AWARD (REVISED)",41)=""
^DD(6925,"B","CONSTRUCTION START (ACTUAL)",61)=""
^DD(6925,"B","CONSTRUCTION START (PLANNED)",28)=""
^DD(6925,"B","CONSTRUCTION START (REVISED)",42)=""
^DD(6925,"B","CONTINGENCY DOLLARS",218.1)=""
^DD(6925,"B","CONTR. ADDR1",116)=""
^DD(6925,"B","CONTR. ADDR2",117)=""
^DD(6925,"B","CONTR. NAME",115)=""
^DD(6925,"B","D1 PUBLIC CONTROVERSY TEXT",206.1)=""
^DD(6925,"B","D2 PUBLIC CONTROVERSY TEXT",207.1)=""
^DD(6925,"B","D3 UTLITY OVERLOAD TEXT",208.1)=""
^DD(6925,"B","DATE OF EVALUATION",194.7)=""
^DD(6925,"B","DATE OF LAST ELECT. 10-0051",151)=""
^DD(6925,"B","DATE TRANSMIT IN 5YR PLAN",279)=""
^DD(6925,"B","DATE TRANSMIT PROJ APPLICATION",279.2)=""
^DD(6925,"B","DESIGN METHOD",7)=""
^DD(6925,"B","DESIGN PROGRAM COMP. (PLANNED)",20.1)=""
^DD(6925,"B","DESIGN PROGRAM COMP. (REVISED)",34.1)=""
^DD(6925,"B","DESIGN PROGRAM COMPL. (ACTUAL)",49.1)=""
^DD(6925,"B","DESIGN PROGRAM START (ACTUAL)",49)=""
^DD(6925,"B","DESIGN PROGRAM START (PLANNED)",20)=""
^DD(6925,"B","DESIGN PROGRAM START (REVISED)",34)=""
^DD(6925,"B","DISLOCATES PEOPLE/RESIDENCES",199)=""
^DD(6925,"B","DIVISION",176)=""
^DD(6925,"B","DOMINOS",225)=""
^DD(6925,"B","EMERGENCY/INTERIM APPLICATION",161)=""
^DD(6925,"B","EMISSION/WATER QUALITY PROBLEM",205)=""
^DD(6925,"B","ENERGY CONSERVATION PROJECT",236.1)=""
^DD(6925,"B","ENVIRONMENT IMPACT STMT REQD",193)=""
^DD(6925,"B","ENVIRONMENTAL ASSESSMENT REQD",187)=""
^DD(6925,"B","ENVIRONMENTAL ISSUES",238.5)=""
^DD(6925,"B","EPA REPORTABLE",158.6)=""
^DD(6925,"B","EPA REPORTING CATEGORY",158.7)=""
^DD(6925,"B","EQPMT OVER $250K APPLICATION",162)=""
^DD(6925,"B","EQUIPMENT $",190.2)=""
^DD(6925,"B","EQUIPMENT OVER $250K",190.6)=""
^DD(6925,"B","ESTIMATED A/E COST (FYFP)",212.1)=""
^DD(6925,"B","ESTIMATED ANNUAL RENT COST",289)=""
^DD(6925,"B","ESTIMATED CONST COST (FYFP)",212.2)=""
^DD(6925,"B","ESTIMATED COST FOR 5 YR PLAN",212)=""
^DD(6925,"B","ESTIMATED LUMP SUM COST",288)=""
^DD(6925,"B","EVALUATOR",194.6)=""
^DD(6925,"B","EXISTING SPACE ANNUAL RENT",292)=""
^DD(6925,"B","EXISTING SPACE RENTABLE SQ FT",293)=""
^DD(6925,"B","FACILITY TYPE",158)=""
^DD(6925,"B","FDP UPDATE COMPLETED",231)=""
^DD(6925,"B","FIVE YR PLAN STATUS",181.1)=""
^DD(6925,"B","FMS #",.05)=""
^DD(6925,"B","FUNDING YEAR  - A/E",3.45)=""
^DD(6925,"B","FUNDING YEAR - CONST",3.5)=""
^DD(6925,"B","FURTHER REQD ACTION",194.5)=""
^DD(6925,"B","FY AWARD LEASE",286)=""
^DD(6925,"B","FY RENT STARTS",287)=""
^DD(6925,"B","GROSS SQUARE FEET",8.5)=""
^DD(6925,"B","GSF",8.5)="1"
^DD(6925,"B","H089",180)=""
^DD(6925,"B","HAZARDOUS MATERIALS ISSUES",240)=""
^DD(6925,"B","HISTORICAL ISSUES",238)=""
^DD(6925,"B","IMPACT COST",219)=""
^DD(6925,"B","IMPACT JUSTIFICATION",282)=""
^DD(6925,"B","INCREASE OFF SITE TRAFFIC >10%",202)=""
^DD(6925,"B","INVOLVE HISTORIC AREA/BLDGS",204)=""
^DD(6925,"B","INVOLVES STORM WATER RUNOFF",197)=""
^DD(6925,"B","ISSUE IFB/SBA (ACTUAL)",58)=""
^DD(6925,"B","ISSUE IFB/SBA (PLANNED)",25)=""
^DD(6925,"B","ISSUE IFB/SBA (REVISED)",39)=""
^DD(6925,"B","JUSTIFICATION (SHORT)",192.3)=""
^DD(6925,"B","LAST REPORTING PERIOD",152)=""
^DD(6925,"B","LEASE TYPE",285)=""
^DD(6925,"B","LONG DESCRIPTION",277)=""
^DD(6925,"B","LONG JUSTIFICATION",278)=""
^DD(6925,"B","MCPS SCORE",209.1)=""
^DD(6925,"B","MEDICAL CENTER",3)=""
^DD(6925,"B","MI/MA CONTINGENCY PCT",218.3)=""
^DD(6925,"B","MI/MM CATEGORY POINTS",233.4)=""
^DD(6925,"B","MI/MM CITATION POINTS",233.1)=""
^DD(6925,"B","MI/MM ENERGY POINTS",233.3)=""
^DD(6925,"B","MI/MM SPACE POINTS",233.2)=""
^DD(6925,"B","MI/MM VAMC PRIORITY POINTS",233.5)=""
^DD(6925,"B","MINOR/MAJOR CONST COSTS",221)=""
^DD(6925,"B","MONTHLY UPDATES",2.5)=""
^DD(6925,"B","NET BED CHANGE",191)=""
^DD(6925,"B","NET PARKING CHANGE",223)=""
^DD(6925,"B","NHCU AUTHORIZED BEDS",165.1)=""
^DD(6925,"B","NHCU BEDS (CONVERTED)",158.5)=""
^DD(6925,"B","NHCU BEDS (NEW)",158.3)=""
^DD(6925,"B","NHCU BEDS (RENOVATED)",158.4)=""
^DD(6925,"B","NHCU CONVERSION",166)=""
^DD(6925,"B","NONRECURRING ALL OTHER",190.3)=""
^DD(6925,"B","NRM BONUS POINTS",262.7)=""
^DD(6925,"B","NRM CATEGORY POINTS",262.3)=""
^DD(6925,"B","NRM CITATION POINTS",262.4)=""
^DD(6925,"B","NRM CONSTRUCTION COST",262.6)=""
^DD(6925,"B","NRM CONTINGENCY PCT",218.2)=""
^DD(6925,"B","NRM ENERGY POINTS",262.5)=""
^DD(6925,"B","NRM FACILITY PRIORITY POINTS",262.1)=""
^DD(6925,"B","NRM FACTORED SQ FOOTAGE POINTS",262.2)=""
^DD(6925,"B","NRM TOTAL COST",217)=""
^DD(6925,"B","NRM VAMC SCORE",263)=""
^DD(6925,"B","OLD % CD COMPLETE",16.3)=""
^DD(6925,"B","OLD % CONSTRUCTION COMPLETE",16.4)=""
^DD(6925,"B","OLD % DD COMPLETE",16.5)=""
^DD(6925,"B","OLD % DESIGN PROGRAM COMPLETE",16.6)=""
^DD(6925,"B","OLD % SCHEMATICS COMPLETE",16.2)=""
^DD(6925,"B","OLD A/E AWARD (ACT)",65.5)=""
^DD(6925,"B","OLD A/E AWARD (PL)",32.5)=""
^DD(6925,"B","OLD A/E AWARD (REV)",46.5)=""
^DD(6925,"B","OLD A/E AWARD AMOUNT",90.25)=""
^DD(6925,"B","OLD A/E CONTRACT #",90)=""
^DD(6925,"B","OLD A/E OBLIG (CONST PER SRVC)",90.8)=""
^DD(6925,"B","OLD A/E OBLIG. (CD)",90.6)=""
^DD(6925,"B","OLD A/E OBLIG. (DD)",90.5)=""
^DD(6925,"B","OLD A/E OBLIG. (OTHER)",90.9)=""
^DD(6925,"B","OLD A/E OBLIG. (SCHEMATICS)",90.4)=""
^DD(6925,"B","OLD A/E OBLIG. (SITE SURVEY)",90.45)=""
^DD(6925,"B","OLD A/E OBLIG. (SITE VISIT)",90.7)=""
^DD(6925,"B","OLD A/E OBLIG. (STUDY)",90.3)=""
^DD(6925,"B","OLD A/E SA ADDITIONS (#)",91)=""
^DD(6925,"B","OLD A/E SA ADDITIONS ($)",91.1)=""
^DD(6925,"B","OLD A/E SA DEDUCTIONS (#)",91.2)=""
^DD(6925,"B","OLD A/E SA DEDUCTIONS ($)",91.3)=""
^DD(6925,"B","OLD ACTIVATION (ACT)",66.5)=""
^DD(6925,"B","OLD ACTIVATION (PL)",33.7)=""
^DD(6925,"B","OLD ACTIVATION (REV)",47.7)=""
^DD(6925,"B","OLD ADVERTISE FOR A/E (ACT)",65.3)=""
^DD(6925,"B","OLD ADVERTISE FOR A/E (PL)",32.3)=""
^DD(6925,"B","OLD ADVERTISE FOR A/E (REV)",46.3)=""
^DD(6925,"B","OLD APPROVED A/E FUNDING",15.7)=""
^DD(6925,"B","OLD APPROVED CONST. FUNDING",15.6)=""
^DD(6925,"B","OLD AUTHORIZED (ACT)",65.2)=""
^DD(6925,"B","OLD AUTHR. LTR. REC'D. (REV)",46.2)=""
^DD(6925,"B","OLD BID OPEN (ACT)",66.1)=""
^DD(6925,"B","OLD BID OPEN (PL)",33.3)=""
^DD(6925,"B","OLD BID OPEN (REV)",47.3)=""
^DD(6925,"B","OLD BONUS CATEGORY",159.9)=""
^DD(6925,"B","OLD BUDGET CATEGORY",159.3)=""
^DD(6925,"B","OLD COMPL. AUDIT REVIEW (ACT)",66.06)=""
^DD(6925,"B","OLD COMPL. AUDIT REVIEW (PL)",33.26)=""
^DD(6925,"B","OLD COMPL. AUDIT REVIEW (REV)",47.26)=""
^DD(6925,"B","OLD COMPL. L/T REVIEW (ACT)",66.04)=""
^DD(6925,"B","OLD COMPL. L/T REVIEW (PL)",33.24)=""
^DD(6925,"B","OLD COMPL. L/T REVIEW (REV)",47.24)=""
^DD(6925,"B","OLD COMPL. SCHEMATICS (ACT)",65.7)=""
^DD(6925,"B","OLD COMPLETE CD (ACT)",65.9)=""
^DD(6925,"B","OLD COMPLETE CD (PL)",33.1)=""
^DD(6925,"B","OLD COMPLETE CD (REV)",47.1)=""
^DD(6925,"B","OLD COMPLETE DD (ACT)",66.7)=""
^DD(6925,"B","OLD COMPLETE DD (PL)",32.9)=""
^DD(6925,"B","OLD COMPLETE DD (REV)",46.9)=""
^DD(6925,"B","OLD COMPLETE SCHEMATICS (PL)",32.7)=""
^DD(6925,"B","OLD COMPLETE SCHEMATICS (REV)",46.7)=""
^DD(6925,"B","OLD CONST. ADD. (#)",135)=""
^DD(6925,"B","OLD CONST. ADD. ($)",135.1)=""
^DD(6925,"B","OLD CONST. COMPLETE (ACT)",66.4)=""
^DD(6925,"B","OLD CONST. COMPLETE (PL)",33.6)=""
^DD(6925,"B","OLD CONST. CONTRACT #",110)=""
^DD(6925,"B","OLD CONST. DED. (#)",135.2)=""
^DD(6925,"B","OLD CONST. DED. ($)",135.3)=""
^DD(6925,"B","OLD CONSTRUCTION AWARD (ACT)",66.2)=""
^DD(6925,"B","OLD CONSTRUCTION AWARD (PL)",33.4)=""
^DD(6925,"B","OLD CONSTRUCTION AWARD (REV)",47.4)=""
^DD(6925,"B","OLD CONSTRUCTION COMP. (REV)",47.6)=""
^DD(6925,"B","OLD CONSTRUCTION METHOD",16)=""
^DD(6925,"B","OLD CONSTRUCTION START (ACT)",66.3)=""
^DD(6925,"B","OLD CONSTRUCTION START (PL)",33.5)=""
^DD(6925,"B","OLD CONSTRUCTION START (REV)",47.5)=""
^DD(6925,"B","OLD DESIGN METHOD",15.9)=""
^DD(6925,"B","OLD DESIGN PROGRAM COMP. (ACT)",65.1)=""
^DD(6925,"B","OLD DESIGN PROGRAM COMP. (PL)",32.1)=""
^DD(6925,"B","OLD DESIGN PROGRAM COMP. (REV)",46.1)=""
^DD(6925,"B","OLD DESIGN PROGRAM START (ACT)",65)=""
^DD(6925,"B","OLD DESIGN PROGRAM START (PL)",32)=""
^DD(6925,"B","OLD DESIGN PROGRAM START (REV)",46)=""
^DD(6925,"B","OLD DIVISION",159.15)=""
^DD(6925,"B","OLD EPA REPORTABLE",159.7)=""
^DD(6925,"B","OLD EPA REPORTING CATEGORY",159.8)=""
^DD(6925,"B","OLD FACILITY TYPE",159.1)=""
^DD(6925,"B","OLD FCP (A/E)",90.2)=""
^DD(6925,"B","OLD FCP (CONST.)",110.2)=""
^DD(6925,"B","OLD FUNDING YEAR (A/E)",15.4)=""
^DD(6925,"B","OLD FUNDING YEAR CONST.",15.5)=""
^DD(6925,"B","OLD GROSS SQUARE FEET",16.1)=""
^DD(6925,"B","OLD ISSUE IFB (ACT)",66)=""
^DD(6925,"B","OLD ISSUE IFB (PL)",33.2)=""
^DD(6925,"B","OLD ISSUE IFB (REV)",47.2)=""
^DD(6925,"B","OLD MEDICAL CENTER",15.3)=""
^DD(6925,"B","OLD MONTHLY UPDATE",15.2)=""
^DD(6925,"B","OLD NHCU AUTHORIZED BEDS",185.1)=""
^DD(6925,"B","OLD NHCU BEDS (CONVERTED)",159.6)=""
^DD(6925,"B","OLD NHCU BEDS (NEW)",159.4)=""
^DD(6925,"B","OLD NHCU BEDS (RENOVATED)",159.5)=""
^DD(6925,"B","OLD NHCU CONVERSION",186)=""
^DD(6925,"B","OLD ORIG. CONSTRUCTION AWARD",110.3)=""
^DD(6925,"B","OLD P&H LABOR TO DATE",110.4)=""
^DD(6925,"B","OLD P&H MATERIAL TO DATE",110.5)=""
^DD(6925,"B","OLD PROGRAM",159)=""
^DD(6925,"B","OLD PROGRESS NOTE",146.1)=""
^DD(6925,"B","OLD PROJECT CATEGORY",159.2)=""
^DD(6925,"B","OLD PROJECT TITLE",15.1)=""
^DD(6925,"B","OLD REPORTING PERIOD",15)=""
^DD(6925,"B","OLD SELECT A/E (ACT)",65.4)=""
^DD(6925,"B","OLD SELECT A/E (PL)",32.4)=""
^DD(6925,"B","OLD SELECT A/E (REV)",46.4)=""
^DD(6925,"B","OLD START AUDIT REVIEW (ACT)",65.96)=""
^DD(6925,"B","OLD START AUDIT REVIEW (PL)",33.16)=""
^DD(6925,"B","OLD START AUDIT REVIEW (REV)",47.16)=""
^DD(6925,"B","OLD START CD (ACT)",65.8)=""
^DD(6925,"B","OLD START CD (PL)",33)=""
^DD(6925,"B","OLD START CD (REV)",47)=""
^DD(6925,"B","OLD START DD (ACT)",66.6)=""
^DD(6925,"B","OLD START DD (PL)",32.8)=""
^DD(6925,"B","OLD START DD (REV)",46.8)=""
^DD(6925,"B","OLD START L/T REVIEW (ACT)",65.94)=""
^DD(6925,"B","OLD START L/T REVIEW (PL)",33.14)=""
^DD(6925,"B","OLD START L/T REVIEW (REV)",47.14)=""
^DD(6925,"B","OLD START SCHEMATICS (ACT)",65.6)=""
^DD(6925,"B","OLD START SCHEMATICS (PL)",32.6)=""
^DD(6925,"B","OLD START SCHEMATICS (REV)",46.6)=""
^DD(6925,"B","OLD STATUS",15.8)=""
^DD(6925,"B","OLD TIME EXTENSION (DAYS)",135.4)=""
^DD(6925,"B","OUTSIDE CONST GT 10000 SQ FT",201)=""
^DD(6925,"B","OVERLOAD UTILITY SYS CAPACITY",208)=""
^DD(6925,"B","P&H LABOR TO DATE",107)=""
^DD(6925,"B","P&H MATERIALS TO DATE",108)=""
^DD(6925,"B","PARKING ISSUES",242)=""
^DD(6925,"B","PLANNED CONSTRUCTION METHOD",182)=""
^DD(6925,"B","PROGRAM",155)=""
^DD(6925,"B","PROGRESS NOTE",146)=""
^DD(6925,"B","PROJ APPLICATION STATUS",251)=""
^DD(6925,"B","PROJ CATEGORY >75% SCOPE",165)=""
^DD(6925,"B","PROJECT CATEGORY",158.1)=""
^DD(6925,"B","PROJECT DESCRIPTION (SHORT)",192)=""
^DD(6925,"B","PROJECT NUMBER",.01)=""
^DD(6925,"B","PROJECT TITLE",2)=""
^DD(6925,"B","PROPOSED LEASE TERM",290)=""
^DD(6925,"B","PUBLIC CONTROVERSY",206)=""
^DD(6925,"B","RECURRING ALL OTHER $",188)=""
^DD(6925,"B","RECURRING PS",190)=""
^DD(6925,"B","REGION SCORE",234)=""
^DD(6925,"B","REGIONAL PRIORITY",210)=""
^DD(6925,"B","REMARKS",145)=""
^DD(6925,"B","RENTABLE SQ FT",291)=""
^DD(6925,"B","REPORTING PERIOD (Month/Year)",1)=""
^DD(6925,"B","SEISMIC AREA",265)=""
^DD(6925,"B","SEISMIC ISSUES",239)=""
^DD(6925,"B","SELECT A/E (ACTUAL)",52)=""
^DD(6925,"B","SELECT A/E (PLANNED)",20.4)=""
^DD(6925,"B","SELECT A/E (REVISED)",34.4)=""
^DD(6925,"B","SIGNIF ALTER OFF SITE TRAFFIC",203)=""
^DD(6925,"B","SIR RATING",236)=""
^DD(6925,"B","SITE ISSUES",237)=""
^DD(6925,"B","SPACE USE FOR PRIORITIZATION",264)=""
^DD(6925,"B","START AUDIT REVIEW (ACTUAL)",57.6)=""
^DD(6925,"B","START AUDIT REVIEW (PLANNED)",24.6)=""
^DD(6925,"B","START AUDIT REVIEW (REVISED)",38.6)=""
^DD(6925,"B","START DESIGN DEV. (ACTUAL)",55.5)=""
^DD(6925,"B","START DESIGN DEV. (PLANNED)",22.5)=""
^DD(6925,"B","START DESIGN DEV. (REVISED)",36.1)=""
^DD(6925,"B","START L/T REVIEW (ACTUAL)",57.4)=""
^DD(6925,"B","START L/T REVIEW (PLANNED)",24.4)=""
^DD(6925,"B","START L/T REVIEW (REVISED)",38.4)=""
^DD(6925,"B","START SCHEMATICS (ACTUAL)",54)=""
^DD(6925,"B","START SCHEMATICS (PLANNED)",21)=""
^DD(6925,"B","START SCHEMATICS (REVISED)",35)=""
^DD(6925,"B","START/AWARD CD (ACTUAL)",56)=""
^DD(6925,"B","START/AWARD CD (PLANNED)",23)=""
^DD(6925,"B","START/AWARD CD (REVISED)",37)=""
^DD(6925,"B","STATUS",6)=""
^DD(6925,"B","TECHNICAL SERVICES $",220.1)=""
^DD(6925,"B","TECHNICAL SERVICES PCT",220)=""
^DD(6925,"B","TIME EXTENSION (DAYS)",129.1)=""
^DD(6925,"B","TOTAL BSEA COSTS",214)=""
^DD(6925,"B","TOTAL BSER COSTS",215)=""
^DD(6925,"B","TOTAL CONST OBLIGATION",129)=""
^DD(6925,"B","TOTAL FACTORED SQUARE FOOTAGE",261)=""
^DD(6925,"B","TOTAL FUNDS APPROVED",5.1)=""
^DD(6925,"B","TOTAL M AND R COSTS",213)=""
^DD(6925,"B","TOTAL MI COSTS",216)=""
^DD(6925,"B","TOTAL P&H",109)=""
^DD(6925,"B","TOTAL PROJ OBLIGATION",130)=""
^DD(6925,"B","TOTAL PROJECT COST",222)=""
^DD(6925,"B","TOTAL PROJECT SCORE",235)=""
^DD(6925,"B","TRANSMITTER 5YR PLAN",279.1)=""
^DD(6925,"B","TRANSMITTER PROJ APPLICATION",279.3)=""
^DD(6925,"B","TRANSPORT ISSUES",241)=""
^DD(6925,"B","TRAVEL .007",190.4)=""
^DD(6925,"B","VAMC DIRECTOR APPROVED",247)=""
^DD(6925,"B","VAMC DIRECTOR SIGN DATE",249)=""
^DD(6925,"B","VAMC DIRECTOR/DESIGNEE NAME",248)=""
^DD(6925,"B","VAMC MINOR/MINOR MISC SCORE",233)=""
^DD(6925,"B","VAMC PRIORITY",209)=""
^DD(6925,"B","WAGES (P&H)",157.7)=""
^DD(6925,"B","WORKLOAD",192.6)=""
^DD(6925,"GL",0,1,.01)=""
^DD(6925,"GL",0,2,1)=""
^DD(6925,"GL",0,3,2)=""
^DD(6925,"GL",0,4,3)=""
^DD(6925,"GL",0,5,2.5)=""
^DD(6925,"GL",0,6,155)=""
^DD(6925,"GL",0,7,3.5)=""
^DD(6925,"GL",0,8,3.6)=""
^DD(6925,"GL",0,8,156)=""
^DD(6925,"GL",1,1,4)=""
^DD(6925,"GL",1,2,154)=""
^DD(6925,"GL",1,3,6)=""
^DD(6925,"GL",1,4,7)=""
^DD(6925,"GL",1,5,8)=""
^DD(6925,"GL",1,6,9)=""
^DD(6925,"GL",1,7,10)=""
^DD(6925,"GL",1,8,11)=""
^DD(6925,"GL",1,9,12)=""
^DD(6925,"GL",1,10,8.5)=""
^DD(6925,"GL",1,11,13)=""
^DD(6925,"GL",2,2,21)=""
^DD(6925,"GL",2,3,22)=""
^DD(6925,"GL",2,4,23)=""
^DD(6925,"GL",2,5,24)=""
^DD(6925,"GL",2,6,25)=""
^DD(6925,"GL",2,7,26)=""
^DD(6925,"GL",2,8,27)=""
^DD(6925,"GL",2,9,28)=""
^DD(6925,"GL",2,10,29)=""
^DD(6925,"GL",3,1,35)=""
^DD(6925,"GL",3,2,36)=""
^DD(6925,"GL",3,3,37)=""
^DD(6925,"GL",3,4,38)=""
^DD(6925,"GL",3,5,39)=""
^DD(6925,"GL",3,6,40)=""
^DD(6925,"GL",3,7,41)=""
^DD(6925,"GL",3,8,42)=""
^DD(6925,"GL",3,9,43)=""
^DD(6925,"GL",4,1,50)=""
^DD(6925,"GL",4,2,51)=""
^DD(6925,"GL",4,3,52)=""
^DD(6925,"GL",4,4,53)=""
^DD(6925,"GL",4,5,54)=""
^DD(6925,"GL",4,6,55)=""
^DD(6925,"GL",4,7,56)=""
^DD(6925,"GL",4,8,57)=""
^DD(6925,"GL",4,9,58)=""
^DD(6925,"GL",4,10,59)=""
^DD(6925,"GL",4,11,60)=""
^DD(6925,"GL",4,12,61)=""
^DD(6925,"GL",4,13,62)=""
^DD(6925,"GL",4,14,55.5)=""
^DD(6925,"GL",4,15,55.6)=""
^DD(6925,"GL",5,1,70)=""
^DD(6925,"GL",5,2,5)=""
^DD(6925,"GL",5,3,72)=""
^DD(6925,"GL",5,4,73)=""
^DD(6925,"GL",5,5,74)=""
^DD(6925,"GL",5,6,75)=""
^DD(6925,"GL",5,7,3.45)=""
^DD(6925,"GL",5,9,71.6)=""
^DD(6925,"GL",5,10,72.3)=""
^DD(6925,"GL",6,1,85)=""
^DD(6925,"GL",6,2,86)=""
^DD(6925,"GL",6,3,87)=""
^DD(6925,"GL",7,1,95)=""
^DD(6925,"GL",7,2,96)=""
^DD(6925,"GL",7,3,97)=""
^DD(6925,"GL",7,4,98)=""
^DD(6925,"GL",7,5,99)=""
^DD(6925,"GL",8,1,105)=""
^DD(6925,"GL",8,2,106)=""
^DD(6925,"GL",8,3,153)=""
^DD(6925,"GL",9,1,115)=""
^DD(6925,"GL",9,2,116)=""
^DD(6925,"GL",9,3,117)=""
^DD(6925,"GL",10,1,125)=""
^DD(6925,"GL",10,2,126)=""
^DD(6925,"GL",10,3,127)=""
^DD(6925,"GL",10,4,128)=""
^DD(6925,"GL",11,1,157.5)=""
^DD(6925,"GL",11,2,157.6)=""
^DD(6925,"GL",11,3,157.7)=""
^DD(6925,"GL",11,4,151)=""
^DD(6925,"GL",12,0,145)=""
^DD(6925,"GL",13,1,146)=""
^DD(6925,"GL",15,1,176)=""
^DD(6925,"GL",15,2,191)=""
^DD(6925,"GL",15,3,223)=""
^DD(6925,"GL",15,4,179)=""
^DD(6925,"GL",15,5,231)=""
^DD(6925,"GL",15,6,181)=""
^DD(6925,"GL",15,7,182)=""
^DD(6925,"GL",15,9,209)=""
^DD(6925,"GL",15,10,210)=""
^DD(6925,"GL",15,11,236)=""
^DD(6925,"GL",15,12,187)=""
^DD(6925,"GL",15,13,161)=""
^DD(6925,"GL",15,14,162)=""
^DD(6925,"GL",15,15,163)=""
^DD(6925,"GL",15,16,181.1)=""
^DD(6925,"GL",15,17,236.1)=""
^DD(6925,"GL",15,18,236.2)=""
^DD(6925,"GL",15,19,181.2)=""
^DD(6925,"GL",16,1,194.5)=""
^DD(6925,"GL",16,2,194.6)=""
^DD(6925,"GL",16,3,194.7)=""
^DD(6925,"GL",16,5,193)=""
^DD(6925,"GL",16,6,194)=""
^DD(6925,"GL",16,7,195)=""
^DD(6925,"GL",16,8,196)=""
^DD(6925,"GL",16,9,197)=""
^DD(6925,"GL",16,10,198)=""
^DD(6925,"GL",16,11,199)=""
^DD(6925,"GL",16,12,200)=""
^DD(6925,"GL",16,13,201)=""
^DD(6925,"GL",16,14,202)=""
^DD(6925,"GL",16,15,203)=""
^DD(6925,"GL",16,16,204)=""
^DD(6925,"GL",16,17,205)=""
^DD(6925,"GL",16,18,206)=""
^DD(6925,"GL",16,19,207)=""
^DD(6925,"GL",16,20,208)=""
^DD(6925,"GL",17,0,192)=""
^DD(6925,"GL",18,1,261)=""
^DD(6925,"GL",18,2,264)=""
^DD(6925,"GL",18,3,265)=""
^DD(6925,"GL",18,4,165)=""
^DD(6925,"GL",19,1,213)=""
^DD(6925,"GL",19,2,214)=""
^DD(6925,"GL",19,3,215)=""
^DD(6925,"GL",19,4,216)=""
^DD(6925,"GL",19,5,218.2)=""
^DD(6925,"GL",19,6,220.1)=""
^DD(6925,"GL",19,7,219)=""
^DD(6925,"GL",19,8,221)=""
^DD(6925,"GL",19,10,212.1)=""
^DD(6925,"GL",19,11,212.2)=""
^DD(6925,"GL",19,12,218.3)=""
^DD(6925,"GL",20,0,225)=""
^DD(6925,"GL",21,0,164)=""
^DD(6925,"GL",22,0,180)=""
^DD(6925,"GL",24,1,187.5)=""
^DD(6925,"GL",24,2,188)=""
^DD(6925,"GL",24,3,189)=""
^DD(6925,"GL",24,4,190)=""
^DD(6925,"GL",24,5,190.2)=""
^DD(6925,"GL",24,6,190.3)=""
^DD(6925,"GL",24,7,190.4)=""
^DD(6925,"GL",24,8,209.1)=""
^DD(6925,"GL",24,10,234)=""
^DD(6925,"GL",25,0,190.6)=""
^DD(6925,"GL",26,0,192.3)=""
^DD(6925,"GL",27,0,192.6)=""
^DD(6925,"GL",29,1,237)=""
^DD(6925,"GL",29,2,238)=""
^DD(6925,"GL",30,1,239)=""
^DD(6925,"GL",30,2,240)=""
^DD(6925,"GL",31,1,241)=""
^DD(6925,"GL",31,2,242)=""
^DD(6925,"GL",32,1,243)=""
^DD(6925,"GL",32,2,238.5)=""
^DD(6925,"GL",33,1,244)=""
^DD(6925,"GL",33,2,245)=""
^DD(6925,"GL",33,3,246)=""
^DD(6925,"GL",33,4,247)=""
^DD(6925,"GL",33,5,248)=""
^DD(6925,"GL",33,6,249)=""
^DD(6925,"GL",33,7,279)=""
^DD(6925,"GL",33,8,279.1)=""
^DD(6925,"GL",33,9,279.2)=""
^DD(6925,"GL",33,10,279.3)=""
^DD(6925,"GL",34,0,177)=""
^DD(6925,"GL",42,1,195.1)=""
^DD(6925,"GL",42,2,196.1)=""
^DD(6925,"GL",42,3,197.1)=""
^DD(6925,"GL",42,4,198.1)=""
^DD(6925,"GL",43,1,199.1)=""
^DD(6925,"GL",43,2,200.1)=""
^DD(6925,"GL",44,1,201.1)=""
^DD(6925,"GL",44,2,202.1)=""
^DD(6925,"GL",44,3,203.1)=""
^DD(6925,"GL",44,4,204.1)=""
^DD(6925,"GL",45,1,205.1)=""
^DD(6925,"GL",45,2,206.1)=""
^DD(6925,"GL",45,3,207.1)=""
^DD(6925,"GL",45,4,208.1)=""
^DD(6925,"GL",46,0,277)=""
^DD(6925,"GL",47,0,278)=""
^DD(6925,"GL",49,4,251)=""
^DD(6925,"GL",50,1,152)=""
^DD(6925,"GL",50,2,22.5)=""
^DD(6925,"GL",50,3,22.6)=""
^DD(6925,"GL",50,4,30)=""
^DD(6925,"GL",50,5,34)=""
^DD(6925,"GL",50,6,34.1)=""
^DD(6925,"GL",50,8,20)=""
^DD(6925,"GL",50,9,20.1)=""
^DD(6925,"GL",50,11,20.3)=""
^DD(6925,"GL",50,12,20.4)=""
^DD(6925,"GL",50,13,20.5)=""
^DD(6925,"GL",50,14,34.3)=""
^DD(6925,"GL",50,15,34.4)=""
^DD(6925,"GL",50,16,34.5)=""
^DD(6925,"GL",50,17,36.1)=""
^DD(6925,"GL",50,18,36.2)=""
^DD(6925,"GL",50,19,44)=""
^DD(6925,"GL",51,1,49)=""
^DD(6925,"GL",51,2,49.1)=""
^DD(6925,"GL",51,3,63)=""
^DD(6925,"GL",51,4,71.5)=""
^DD(6925,"GL",51,5,105.5)=""
^DD(6925,"GL",51,6,71.7)=""
^DD(6925,"GL",51,7,72.5)=""
^DD(6925,"GL",51,8,75.5)=""
^DD(6925,"GL",51,9,77)=""
^DD(6925,"GL",51,10,78)=""
^DD(6925,"GL",51,11,79)=""
^DD(6925,"GL",51,12,80)=""
^DD(6925,"GL",52,1,158.1)=""
^DD(6925,"GL",52,2,158.2)=""
^DD(6925,"GL",52,3,158.3)=""
^DD(6925,"GL",52,4,158.4)=""
^DD(6925,"GL",52,5,158.5)=""
^DD(6925,"GL",52,6,158)=""
^DD(6925,"GL",52,7,158.6)=""
^DD(6925,"GL",52,8,158.7)=""
^DD(6925,"GL",52,9,158.8)=""
^DD(6925,"GL",52,10,158.9)=""
^DD(6925,"GL",53,1,107)=""
^DD(6925,"GL",53,2,108)=""
^DD(6925,"GL",53,3,129.1)=""
^DD(6925,"GL",53,4,165.1)=""
^DD(6925,"GL",54,0,282)=""
^DD(6925,"GL",55,1,285)=""
^DD(6925,"GL",55,2,286)=""
^DD(6925,"GL",55,3,287)=""
^DD(6925,"GL",55,4,288)=""
^DD(6925,"GL",55,5,289)=""
^DD(6925,"GL",55,6,290)=""
^DD(6925,"GL",55,7,291)=""
^DD(6925,"GL",55,8,292)=""
^DD(6925,"GL",55,9,293)=""
^DD(6925,"GL",56,1,24.4)=""
^DD(6925,"GL",56,2,38.4)=""
^DD(6925,"GL",56,3,57.4)=""
^DD(6925,"GL",56,4,24.6)=""
^DD(6925,"GL",56,5,38.6)=""
^DD(6925,"GL",56,6,57.6)=""
^DD(6925,"GL",56,7,25.4)=""
^DD(6925,"GL",56,8,39.4)=""
^DD(6925,"GL",56,9,58.4)=""
^DD(6925,"GL",56,10,25.6)=""
^DD(6925,"GL",56,11,39.6)=""
^DD(6925,"GL",56,12,58.6)=""
^DD(6925,"GL",57,0,166)=""
^DD(6925,"GL",58,0,186)=""
^DD(6925,"GL",60,2,15)=""
^DD(6925,"GL",60,3,15.1)=""
^DD(6925,"GL",60,4,15.3)=""
^DD(6925,"GL",60,5,15.2)=""
^DD(6925,"GL",60,6,159)=""
^DD(6925,"GL",60,7,15.5)=""
^DD(6925,"GL",60,11,15.6)=""
^DD(6925,"GL",60,13,15.8)=""
^DD(6925,"GL",60,14,15.9)=""
^DD(6925,"GL",60,15,16)=""
^DD(6925,"GL",60,16,16.2)=""
^DD(6925,"GL",60,17,16.3)=""
^DD(6925,"GL",60,18,16.4)=""
^DD(6925,"GL",60,19,16.5)=""
^DD(6925,"GL",60,20,16.1)=""
^DD(6925,"GL",60,21,16.6)=""
^DD(6925,"GL",61,2,32.6)=""
^DD(6925,"GL",61,3,32.7)=""
^DD(6925,"GL",61,4,33)=""
^DD(6925,"GL",61,5,33.1)=""
^DD(6925,"GL",61,6,33.2)=""
^DD(6925,"GL",61,7,33.3)=""
^DD(6925,"GL",61,8,33.4)=""
^DD(6925,"GL",61,9,33.5)=""
^DD(6925,"GL",61,10,33.6)=""
^DD(6925,"GL",62,1,46.6)=""
^DD(6925,"GL",62,2,46.7)=""
^DD(6925,"GL",62,3,47)=""
^DD(6925,"GL",62,4,47.1)=""
^DD(6925,"GL",62,5,47.2)=""
^DD(6925,"GL",62,6,47.3)=""
^DD(6925,"GL",62,7,47.4)=""
^DD(6925,"GL",62,8,47.5)=""
^DD(6925,"GL",62,9,47.6)=""
^DD(6925,"GL",63,1,65.2)=""
^DD(6925,"GL",63,2,65.3)=""
^DD(6925,"GL",63,3,65.4)=""
^DD(6925,"GL",63,4,65.5)=""
^DD(6925,"GL",63,5,65.6)=""
^DD(6925,"GL",63,6,65.7)=""
^DD(6925,"GL",63,7,65.8)=""
^DD(6925,"GL",63,8,65.9)=""
^DD(6925,"GL",63,9,66)=""
^DD(6925,"GL",63,10,66.1)=""
^DD(6925,"GL",63,11,66.2)=""
^DD(6925,"GL",63,12,66.3)=""
^DD(6925,"GL",63,13,66.4)=""
^DD(6925,"GL",63,14,66.6)=""
^DD(6925,"GL",63,15,66.7)=""
^DD(6925,"GL",64,1,90)=""
^DD(6925,"GL",64,2,15.7)=""
^DD(6925,"GL",64,3,90.4)=""
^DD(6925,"GL",64,4,90.6)=""
^DD(6925,"GL",64,5,90.7)=""
^DD(6925,"GL",64,6,90.8)=""
^DD(6925,"GL",64,7,15.4)=""
^DD(6925,"GL",64,9,90.25)=""
^DD(6925,"GL",64,10,90.45)=""
^DD(6925,"GL",64,11,110)=""
^DD(6925,"GL",64,12,110.3)=""
^DD(6925,"GL",64,21,135)=""
^DD(6925,"GL",64,22,135.1)=""
^DD(6925,"GL",64,23,135.2)=""
^DD(6925,"GL",64,24,135.3)=""
^DD(6925,"GL",65,1,146.1)=""
^DD(6925,"GL",66,2,32.8)=""
^DD(6925,"GL",66,3,32.9)=""
^DD(6925,"GL",66,4,33.7)=""
^DD(6925,"GL",66,5,46)=""
^DD(6925,"GL",66,6,46.1)=""
^DD(6925,"GL",66,7,46.2)=""
^DD(6925,"GL",66,8,32)=""
^DD(6925,"GL",66,9,32.1)=""
^DD(6925,"GL",66,11,32.3)=""
^DD(6925,"GL",66,12,32.4)=""
^DD(6925,"GL",66,13,32.5)=""
^DD(6925,"GL",66,14,46.3)=""
^DD(6925,"GL",66,15,46.4)=""
^DD(6925,"GL",66,16,46.5)=""
^DD(6925,"GL",66,17,46.8)=""
^DD(6925,"GL",66,18,46.9)=""
^DD(6925,"GL",66,19,47.7)=""
^DD(6925,"GL",67,1,65)=""
^DD(6925,"GL",67,2,65.1)=""
^DD(6925,"GL",67,3,66.5)=""
^DD(6925,"GL",67,4,90.2)=""
^DD(6925,"GL",67,5,110.2)=""
^DD(6925,"GL",67,6,90.3)=""
^DD(6925,"GL",67,7,90.5)=""
^DD(6925,"GL",67,8,90.9)=""
^DD(6925,"GL",67,9,91)=""
^DD(6925,"GL",67,10,91.1)=""
^DD(6925,"GL",67,11,91.2)=""
^DD(6925,"GL",67,12,91.3)=""
^DD(6925,"GL",68,1,159.2)=""
^DD(6925,"GL",68,2,159.3)=""
^DD(6925,"GL",68,3,159.4)=""
^DD(6925,"GL",68,4,159.5)=""
^DD(6925,"GL",68,5,159.6)=""
^DD(6925,"GL",68,6,159.1)=""
^DD(6925,"GL",68,7,159.7)=""
^DD(6925,"GL",68,8,159.8)=""
^DD(6925,"GL",68,9,159.9)=""
^DD(6925,"GL",68,11,110.4)=""
^DD(6925,"GL",68,12,110.5)=""
^DD(6925,"GL",68,13,135.4)=""
^DD(6925,"GL",68,14,185.1)=""
^DD(6925,"GL",69,1,33.14)=""
^DD(6925,"GL",69,2,47.14)=""
^DD(6925,"GL",69,3,65.94)=""
^DD(6925,"GL",69,4,33.16)=""
^DD(6925,"GL",69,5,47.16)=""
^DD(6925,"GL",69,6,65.96)=""
^DD(6925,"GL",69,7,33.24)=""
^DD(6925,"GL",69,8,47.24)=""
^DD(6925,"GL",69,9,66.04)=""
^DD(6925,"GL",69,10,33.26)=""
^DD(6925,"GL",69,11,47.26)=""
^DD(6925,"GL",69,12,66.06)=""
^DD(6925,"GL",70,1,159.15)=""
^DD(6925,"GL",80,0,301)=""
^DD(6925,"IX",.01)=""
^DD(6925,"IX",2)=""
^DD(6925,"IX",3.45)=""
^DD(6925,"IX",3.5)=""
^DD(6925,"IX",49)=""
^DD(6925,"IX",49.1)=""
^DD(6925,"IX",50)=""
^DD(6925,"IX",52)=""
^DD(6925,"IX",54)=""
^DD(6925,"IX",55)=""
^DD(6925,"IX",55.5)=""
^DD(6925,"IX",55.6)=""
^DD(6925,"IX",56)=""
^DD(6925,"IX",57)=""
^DD(6925,"IX",58)=""
^DD(6925,"IX",59)=""
^DD(6925,"IX",60)=""
^DD(6925,"IX",61)=""
^DD(6925,"IX",62)=""
^DD(6925,"IX",63)=""
^DD(6925,"IX",158)=""
^DD(6925,"IX",181.1)=""
^DD(6925,"IX",244)=""
^DD(6925,"IX",247)=""
^DD(6925,"IX",287)=""
^DD(6925,"RQ",.01)=""
^DD(6925,"RQ",2)=""
^DD(6925,"RQ",3)=""
^DD(6925,"RQ",6)=""
^DD(6925,"RQ",155)=""
^DD(6925,"RQ",158)=""
^DD(6925,"RQ",158.1)=""
^DD(6925,"RQ",158.2)=""
^DD(6925,"SB",6925.01,145)=""
^DD(6925,"SB",6925.0164,164)=""
^DD(6925,"SB",6925.0166,166)=""
^DD(6925,"SB",6925.0177,177)=""
^DD(6925,"SB",6925.0186,186)=""
^DD(6925,"SB",6925.0192,192)=""
^DD(6925,"SB",6925.0225,225)=""
^DD(6925,"SB",6925.0277,277)=""
^DD(6925,"SB",6925.0278,278)=""
^DD(6925,"SB",6925.0282,282)=""
^DD(6925,"SB",6925.03,180)=""
^DD(6925,"SB",6925.0301,301)=""
^DD(6925,"SB",6925.04,190.6)=""
^DD(6925,"SB",6925.05,192.3)=""
^DD(6925,"SB",6925.06,192.6)=""
^DD(6925,"TRB",6925,61,1,6)=""
^DD(6925.01,0)="REMARKS SUB-FIELD^NL^.01^1"
^DD(6925.01,0,"NM","REMARKS")=""
^DD(6925.01,0,"UP")="6925"
^DD(6925.01,.01,0)="REMARKS^W^^0;1^Q"
^DD(6925.01,.01,3)=""
^DD(6925.01,.01,"DT")="2840814"
^DD(6925.01,"B","REMARKS",.01)=""
^DD(6925.01,"GL",0,1,.01)=""
^DD(6925.0164,0)="CITATIONS SUB-FIELD^^8^7"
^DD(6925.0164,0,"DT")="2930121"
^DD(6925.0164,0,"IX","B",6925.0164,.01)=""
^DD(6925.0164,0,"NM","CITATIONS")=""
^DD(6925.0164,0,"UP")="6925"
^DD(6925.0164,.01,0)="CITATION NAME^MF^^0;1^K:$L(X)>25!($L(X)<3) X"
^DD(6925.0164,.01,1,0)="^.1"
^DD(6925.0164,.01,1,1,0)="6925.0164^B"
^DD(6925.0164,.01,1,1,1)="S ^ENG(""PROJ"",DA(1),21,""B"",$E(X,1,30),DA)="""""
^DD(6925.0164,.01,1,1,2)="K ^ENG(""PROJ"",DA(1),21,""B"",$E(X,1,30),DA)"
^DD(6925.0164,.01,3)="Answer must be 3-25 characters in length."
^DD(6925.0164,.01,21,0)="^^2^2^2930423^^"
^DD(6925.0164,.01,21,1,0)="This field contains the name of any citations associated with a project."
^DD(6925.0164,.01,21,2,0)="(eg. JCAHO citations)"
^DD(6925.0164,.01,"DT")="2921224"
^DD(6925.0164,2,0)="DATE^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:3990000<X!(2700000>X)!(X>DT) X"
^DD(6925.0164,2,3)="Enter a current or past Date (year range 1970-2099)"
^DD(6925.0164,2,21,0)="^^1^1^2930310^"
^DD(6925.0164,2,21,1,0)="This field contains the date the citation was issued."
^DD(6925.0164,2,"DT")="2921224"
^DD(6925.0164,3,0)="CITING AUTHORITY^RP7335.7'^OFM(7335.7,^0;4^Q"
^DD(6925.0164,3,3)="Enter the Agency that issued the Citation"
^DD(6925.0164,3,21,0)="^^1^1^2930423^^^^"
^DD(6925.0164,3,21,1,0)="This field contains a pointer to the Regulatory Agency File (#7335.7)."
^DD(6925.0164,3,"DT")="2921224"
^DD(6925.0164,4,0)="PAGE^F^^0;5^K:$L(X)>5!($L(X)<1) X"
^DD(6925.0164,4,3)="Answer must be 1-5 characters in length."
^DD(6925.0164,4,21,0)="^^2^2^2930310^^"
^DD(6925.0164,4,21,1,0)="This field contains the page number in the citing agency's report that"
^DD(6925.0164,4,21,2,0)="contains the citation."
^DD(6925.0164,4,"DT")="2921224"
^DD(6925.0164,5,0)="OFFICIALS NAME^FX^^0;6^K:X[""""""""!$A(X)=45 X I $D(X) S:X?.E1L.E X=$TR(X,""abcdefghijklmnopqrstuvwxyz"",""ABCDEFGHIJKLMNOPQRSTUVWXYZ"") K:$L(X)>30!($L(X)<3)!(X'?1U.UP1"",""0.1"" ""1U.UP) X"
^DD(6925.0164,5,3)="Answer must be 3-30 characters in length (i.e. LAST,FIRST)"
^DD(6925.0164,5,21,0)="^^1^1^2950622^^^"
^DD(6925.0164,5,21,1,0)="This field contains the name of the official issuing the citation."
^DD(6925.0164,5,"DT")="2950627"
^DD(6925.0164,6,0)="OFFICIALS TITLE^F^^0;7^K:$L(X)>25!($L(X)<1) X"
^DD(6925.0164,6,3)="Answer must be 1-25 characters in length."
^DD(6925.0164,6,21,0)="^^1^1^2930310^"
^DD(6925.0164,6,21,1,0)="This field contains the title of the official issuing the citation."
^DD(6925.0164,6,"DT")="2921224"
^DD(6925.0164,8,0)="CORRECTION >50% PROJECT SCOPE^S^1:YES;0:NO;^0;8^Q"
^DD(6925.0164,8,3)="Answer 'Y' if correction of citation is greater than 50% of this project's scope"
^DD(6925.0164,8,21,0)="^^4^4^2930423^^^"
^DD(6925.0164,8,21,1,0)="This field is a set of codes (Yes or No) used to determine if correction"
^DD(6925.0164,8,21,2,0)="of the citation is greater than 50% of the project scope.  The field is"
^DD(6925.0164,8,21,3,0)="used to determine if prioritization points will be awarded for NRM and"
^DD(6925.0164,8,21,4,0)="Minor/Minor Misc. programs."
^DD(6925.0164,8,"DT")="2930121"
^DD(6925.0164,"B","CITATION NAME",.01)=""
^DD(6925.0164,"B","CITING AUTHORITY",3)=""
^DD(6925.0164,"B","CORRECTION >50% PROJECT SCOPE",8)=""
^DD(6925.0164,"B","DATE",2)=""
^DD(6925.0164,"B","OFFICIALS NAME",5)=""
^DD(6925.0164,"B","OFFICIALS TITLE",6)=""
^DD(6925.0164,"B","PAGE",4)=""
^DD(6925.0164,"GL",0,1,.01)=""
^DD(6925.0164,"GL",0,3,2)=""
^DD(6925.0164,"GL",0,4,3)=""
^DD(6925.0164,"GL",0,5,4)=""
^DD(6925.0164,"GL",0,6,5)=""
^DD(6925.0164,"GL",0,7,6)=""
^DD(6925.0164,"GL",0,8,8)=""
^DD(6925.0164,"IX",.01)=""
^DD(6925.0164,"RQ",3)=""
^DD(6925.0166,0)="NHCU CONVERSION SUB-FIELD^^1^2"
^DD(6925.0166,0,"DT")="2960802"
^DD(6925.0166,0,"IX","B",6925.0166,.01)=""
^DD(6925.0166,0,"NM","NHCU CONVERSION")=""
^DD(6925.0166,0,"UP")="6925"
^DD(6925.0166,.01,0)="NHCU CONVERSION SOURCE^MS^1:DOMICILIARY;2:INTERMEDIATE;3:MEDICAL;4:PSYCHIATRIC;5:REHABILITATIVE;6:SURGICAL;^0;1^Q"
^DD(6925.0166,.01,1,0)="^.1"
^DD(6925.0166,.01,1,1,0)="6925.0166^B"
^DD(6925.0166,.01,1,1,1)="S ^ENG(""PROJ"",DA(1),57,""B"",$E(X,1,30),DA)="""""
^DD(6925.0166,.01,1,1,2)="K ^ENG(""PROJ"",DA(1),57,""B"",$E(X,1,30),DA)"
^DD(6925.0166,.01,3)="Enter source of beds being converted to NHCU."
^DD(6925.0166,.01,"DT")="2970430"
^DD(6925.0166,1,0)="NHCU CONVERSION NUMBER^RNJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6925.0166,1,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(6925.0166,1,"DT")="2970430"
^DD(6925.0166,"B","NHCU CONVERSION NUMBER",1)=""
^DD(6925.0166,"B","NHCU CONVERSION SOURCE",.01)=""
^DD(6925.0166,"GL",0,1,.01)=""
^DD(6925.0166,"GL",0,2,1)=""
^DD(6925.0166,"IX",.01)=""
^DD(6925.0166,"RQ",1)=""
^DD(6925.0177,0)="BUILDING NUMBER SUB-FIELD^^.01^1"
^DD(6925.0177,0,"DT")="2921228"
^DD(6925.0177,0,"IX","B",6925.0177,.01)=""
^DD(6925.0177,0,"NM","BUILDING NUMBER")=""
^DD(6925.0177,0,"UP")="6925"
^DD(6925.0177,.01,0)="BUILDING NUMBER^MP6928.3'^ENG(6928.3,^0;1^Q"
^DD(6925.0177,.01,1,0)="^.1"
^DD(6925.0177,.01,1,1,0)="6925.0177^B"
^DD(6925.0177,.01,1,1,1)="S ^ENG(""PROJ"",DA(1),34,""B"",$E(X,1,30),DA)="""""
^DD(6925.0177,.01,1,1,2)="K ^ENG(""PROJ"",DA(1),34,""B"",$E(X,1,30),DA)"
^DD(6925.0177,.01,3)="Enter assigned Number of Building involved with this Project"
^DD(6925.0177,.01,21,0)="^^1^1^2930310^"
^DD(6925.0177,.01,21,1,0)="This field contains a building number associated with the project."
^DD(6925.0177,.01,"DT")="2930224"
^DD(6925.0177,"B","BUILDING NUMBER",.01)=""
^DD(6925.0177,"GL",0,1,.01)=""
^DD(6925.0177,"IX",.01)=""
^DD(6925.0186,0)="OLD NHCU CONVERSION SUB-FIELD^^1^2"
^DD(6925.0186,0,"DT")="2960802"
^DD(6925.0186,0,"IX","B",6925.0186,.01)=""
^DD(6925.0186,0,"NM","OLD NHCU CONVERSION")=""
^DD(6925.0186,0,"UP")="6925"
^DD(6925.0186,.01,0)="OLD NHCU CONVERSION^MS^1:DOMICILIARY;2:INTERMEDIATE;3:MEDICAL;4:PSYCHIATRIC;5:REHABILITATIVE;6:SURGICAL;^0;1^Q"
^DD(6925.0186,.01,1,0)="^.1"
^DD(6925.0186,.01,1,1,0)="6925.0186^B"
^DD(6925.0186,.01,1,1,1)="S ^ENG(""PROJ"",DA(1),58,""B"",$E(X,1,30),DA)="""""
^DD(6925.0186,.01,1,1,2)="K ^ENG(""PROJ"",DA(1),58,""B"",$E(X,1,30),DA)"
^DD(6925.0186,.01,3)="Source of beds being converted to NHCU on prior 10-0051."
^DD(6925.0186,.01,"DT")="2960802"
^DD(6925.0186,1,0)="NUMBER^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6925.0186,1,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(6925.0186,1,"DT")="2960802"
^DD(6925.0186,"B","NUMBER",1)=""
^DD(6925.0186,"B","OLD NHCU CONVERSION",.01)=""
^DD(6925.0186,"GL",0,1,.01)=""
^DD(6925.0186,"GL",0,2,1)=""
^DD(6925.0186,"IX",.01)=""
^DD(6925.0192,0)="PROJECT DESCRIPTION (SHORT) SUB-FIELD^^.01^1"
^DD(6925.0192,0,"DT")="2921229"
^DD(6925.0192,0,"NM","PROJECT DESCRIPTION (SHORT)")=""
^DD(6925.0192,0,"UP")="6925"
^DD(6925.0192,.01,0)="PROJECT DESCRIPTION^W^^0;1^Q"
^DD(6925.0192,.01,3)="Enter 2-3 line description of the project."
^DD(6925.0192,.01,"DT")="2921229"
^DD(6925.0192,"B","PROJECT DESCRIPTION",.01)=""
^DD(6925.0192,"GL",0,1,.01)=""
^DD(6925.0225,0)="DOMINOS SUB-FIELD^^4^3"
^DD(6925.0225,0,"DT")="2921229"
^DD(6925.0225,0,"IX","B",6925.0225,.01)=""
^DD(6925.0225,0,"NM","DOMINOS")=""
^DD(6925.0225,0,"UP")="6925"
^DD(6925.0225,.01,0)="DOMINO PROJECT^M*P6925'^ENG(""PROJ"",^0;1^S DIC(""S"")=""I $D(ENDA)#10,ENDA'=+Y"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925.0225,.01,1,0)="^.1"
^DD(6925.0225,.01,1,1,0)="6925.0225^B"
^DD(6925.0225,.01,1,1,1)="S ^ENG(""PROJ"",DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(6925.0225,.01,1,1,2)="K ^ENG(""PROJ"",DA(1),20,""B"",$E(X,1,30),DA)"
^DD(6925.0225,.01,1,2,0)="6925^AB"
^DD(6925.0225,.01,1,2,1)="S ^ENG(""PROJ"",""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(6925.0225,.01,1,2,2)="K ^ENG(""PROJ"",""AB"",$E(X,1,30),DA(1),DA)"
^DD(6925.0225,.01,1,2,"%D",0)="^^1^1^2921231^"
^DD(6925.0225,.01,1,2,"%D",1,0)="This cross reference enables sorting of projects by domino project."
^DD(6925.0225,.01,1,2,"DT")="2921229"
^DD(6925.0225,.01,3)="Enter a project which must be started before this project"
^DD(6925.0225,.01,12)="Screen prevents selection of this project as a domino to itself."
^DD(6925.0225,.01,12.1)="S DIC(""S"")=""I $D(ENDA)#10,ENDA'=+Y"""
^DD(6925.0225,.01,21,0)="^^3^3^2930428^^^^"
^DD(6925.0225,.01,21,1,0)="This multiple field points to projects, in the Construction Project File"
^DD(6925.0225,.01,21,2,0)="(#6925), that must be started prior to the current project, due to a"
^DD(6925.0225,.01,21,3,0)="domino relationship."
^DD(6925.0225,.01,"DT")="2921231"
^DD(6925.0225,3,0)="TITLE^CJ50^^ ; ^X ^DD(6925.0225,3,9.3) S X=$P(Y(6925.0225,3,101),U,3) S D0=Y(6925.0225,3,80) S D1=Y(6925.0225,3,81)"
^DD(6925.0225,3,9)="^"
^DD(6925.0225,3,9.01)="6925^2;6925.0225^.01"
^DD(6925.0225,3,9.1)="#.01:#2"
^DD(6925.0225,3,9.2)="S Y(6925.0225,3,81)=$S($D(D1):D1,1:""""),Y(6925.0225,3,80)=$S($D(D0):D0,1:""""),Y(6925.0225,3,1)=$S($D(^ENG(""PROJ"",D0,20,D1,0)):^(0),1:"""")"
^DD(6925.0225,3,9.3)="X ^DD(6925.0225,3,9.2) S D0=$P(Y(6925.0225,3,1),U,1) S:'$D(^ENG(""PROJ"",+D0,0)) D0=-1 S Y(6925.0225,3,101)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:"""")"
^DD(6925.0225,3,21,0)="^^2^2^2930310^"
^DD(6925.0225,3,21,1,0)="This computed field gives the title (field #11) of the specified"
^DD(6925.0225,3,21,2,0)="domino project."
^DD(6925.0225,4,0)="PROGRAM^CJ11^^ ; ^X ^DD(6925.0225,4,9.3) S Y(6925.0225,4,101)=$S($D(^ENG(""PROJ"",D0,0)):^(0),1:"""") S X=$P($P(Y(6925.0225,4,102),$C(59)_$P(Y(6925.0225,4,101),U,6)_"":"",2),$C(59),1) S D0=Y(6925.0225,4,80) S D1=Y(6925.0225,4,81)"
^DD(6925.0225,4,9)="^"
^DD(6925.0225,4,9.01)="6925^155;6925.0225^.01"
^DD(6925.0225,4,9.1)="#.01:#155"
^DD(6925.0225,4,9.2)="S Y(6925.0225,4,81)=$S($D(D1):D1,1:""""),Y(6925.0225,4,80)=$S($D(D0):D0,1:""""),Y(6925.0225,4,1)=$S($D(^ENG(""PROJ"",D0,20,D1,0)):^(0),1:"""")"
^DD(6925.0225,4,9.3)="X ^DD(6925.0225,4,9.2) S D0=$P(Y(6925.0225,4,1),U,1) S:'$D(^ENG(""PROJ"",+D0,0)) D0=-1 S Y(6925.0225,4,102)=$C(59)_$S($D(^DD(6925,155,0)):$P(^(0),U,3),1:"""")"
^DD(6925.0225,4,21,0)="^^2^2^2930310^"
^DD(6925.0225,4,21,1,0)="This computed field gives the program type (field #155) of the specified"
^DD(6925.0225,4,21,2,0)="domino project."
^DD(6925.0225,"B","DOMINO PROJECT",.01)=""
^DD(6925.0225,"B","PROGRAM",4)=""
^DD(6925.0225,"B","TITLE",3)=""
^DD(6925.0225,"GL",0,1,.01)=""
^DD(6925.0225,"IX",.01)=""
^DD(6925.0277,0)="LONG DESCRIPTION SUB-FIELD^^.01^1"
^DD(6925.0277,0,"DT")="2930125"
^DD(6925.0277,0,"NM","LONG DESCRIPTION")=""
^DD(6925.0277,0,"UP")="6925"
^DD(6925.0277,.01,0)="LONG DESCRIPTION^W^^0;1^Q"
^DD(6925.0277,.01,3)="Enter a detailed project description."
^DD(6925.0277,.01,"DT")="2930125"
^DD(6925.0277,"B","LONG DESCRIPTION",.01)=""
^DD(6925.0277,"GL",0,1,.01)=""
^DD(6925.0278,0)="LONG JUSTIFICATION SUB-FIELD^^.01^1"
^DD(6925.0278,0,"DT")="2930125"
^DD(6925.0278,0,"NM","LONG JUSTIFICATION")=""
^DD(6925.0278,0,"UP")="6925"
^DD(6925.0278,.01,0)="LONG JUSTIFICATION^W^^0;1^Q"
^DD(6925.0278,.01,3)="Enter a detailed project justification."
^DD(6925.0278,.01,"DT")="2930125"
^DD(6925.0278,"B","LONG JUSTIFICATION",.01)=""
^DD(6925.0278,"GL",0,1,.01)=""
^DD(6925.0282,0)="IMPACT JUSTIFICATION SUB-FIELD^^.01^1"
^DD(6925.0282,0,"DT")="2950508"
^DD(6925.0282,0,"NM","IMPACT JUSTIFICATION")=""
^DD(6925.0282,0,"UP")="6925"
^DD(6925.0282,.01,0)="IMPACT JUSTIFICATION^W^^0;1^Q"
^DD(6925.0282,.01,3)="Enter justification for impact costs."
^DD(6925.0282,.01,"DT")="2950508"
^DD(6925.0282,"B","IMPACT JUSTIFICATION",.01)=""
^DD(6925.0282,"GL",0,1,.01)=""
^DD(6925.03,0)="H089 SUB-FIELD^^4^5"
^DD(6925.03,0,"DT")="2921228"
^DD(6925.03,0,"IX","B",6925.03,.01)=""
^DD(6925.03,0,"NM","H089")=""
^DD(6925.03,0,"UP")="6925"
^DD(6925.03,.01,0)="H089 CHAPTER NAME^M*P7336.6'^OFM(7336.6,^0;1^S DIC(""S"")=""I $D(ENDA),'$P(^(0),U,4),$P(^(0),U,5)[$P($G(^ENG(""""PROJ"""",ENDA,52)),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925.03,.01,.1)="DEPARTMENT/SERVICE CHAPTER"
^DD(6925.03,.01,1,0)="^.1"
^DD(6925.03,.01,1,1,0)="6925.03^B"
^DD(6925.03,.01,1,1,1)="S ^ENG(""PROJ"",DA(1),22,""B"",$E(X,1,30),DA)="""""
^DD(6925.03,.01,1,1,2)="K ^ENG(""PROJ"",DA(1),22,""B"",$E(X,1,30),DA)"
^DD(6925.03,.01,3)="Enter H-08-9 Chapter within Scope of this project"
^DD(6925.03,.01,12)="Screen prevents selection of inactive H-08-9 Chapters and Chapters inappropriate for this facility type."
^DD(6925.03,.01,12.1)="S DIC(""S"")=""I $D(ENDA),'$P(^(0),U,4),$P(^(0),U,5)[$P($G(^ENG(""""PROJ"""",ENDA,52)),U,6)"""
^DD(6925.03,.01,21,0)="^^2^2^2930423^^^"
^DD(6925.03,.01,21,1,0)="This field contains the name of an H08-9 chapter associated with"
^DD(6925.03,.01,21,2,0)="project."
^DD(6925.03,.01,"DT")="2921231"
^DD(6925.03,1,0)="NEW NET SQ FT^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925.03,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925.03,1,21,0)="^^2^2^2930311^^^"
^DD(6925.03,1,21,1,0)="This field contains the new net square footage for the associated H08-9"
^DD(6925.03,1,21,2,0)="chapter."
^DD(6925.03,1,"DT")="2921228"
^DD(6925.03,2,0)="NEW GROSS SQ FT^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925.03,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925.03,2,21,0)="^^2^2^2930311^^^^"
^DD(6925.03,2,21,1,0)="This field contains the new gross square footage for the associated H08-9"
^DD(6925.03,2,21,2,0)="chapter."
^DD(6925.03,2,"DT")="2921228"
^DD(6925.03,3,0)="RENOVATED NET SQ FT^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925.03,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925.03,3,21,0)="^^2^2^2930311^^^^"
^DD(6925.03,3,21,1,0)="This field contains the renovated net square footage for the associated "
^DD(6925.03,3,21,2,0)="H08-9 chapter."
^DD(6925.03,3,"DT")="2921228"
^DD(6925.03,4,0)="RENOVATED GROSS SQ FT^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925.03,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6925.03,4,21,0)="^^2^2^2930311^^^"
^DD(6925.03,4,21,1,0)="This field contains the renovated gross square footage for the associated"
^DD(6925.03,4,21,2,0)="H08-9 chapter."
^DD(6925.03,4,"DT")="2921228"
^DD(6925.03,"B","DEPARTMENT/SERVICE CHAPTER",.01)="1"
^DD(6925.03,"B","H089 CHAPTER NAME",.01)=""
^DD(6925.03,"B","NEW GROSS SQ FT",2)=""
^DD(6925.03,"B","NEW NET SQ FT",1)=""
^DD(6925.03,"B","RENOVATED GROSS SQ FT",4)=""
^DD(6925.03,"B","RENOVATED NET SQ FT",3)=""
^DD(6925.03,"GL",0,1,.01)=""
^DD(6925.03,"GL",0,2,1)=""
^DD(6925.03,"GL",0,3,2)=""
^DD(6925.03,"GL",0,4,3)=""
^DD(6925.03,"GL",0,5,4)=""
^DD(6925.03,"IX",.01)=""
^DD(6925.0301,0)="COMMUNICATION LOG SUB-FIELD^^.01^1"
^DD(6925.0301,0,"DT")="2940214"
^DD(6925.0301,0,"NM","COMMUNICATION LOG")=""
^DD(6925.0301,0,"UP")="6925"
^DD(6925.0301,.01,0)="COMMUNICATION LOG^WL^^0;1^Q"
^DD(6925.0301,.01,"DT")="2940214"
^DD(6925.0301,"B","COMMUNICATION LOG",.01)=""
^DD(6925.0301,"GL",0,1,.01)=""
^DD(6925.04,0)="EQUIPMENT OVER $250K SUB-FIELD^^4^5"
^DD(6925.04,0,"DT")="2940429"
^DD(6925.04,0,"IX","B",6925.04,.01)=""
^DD(6925.04,0,"NM","EQUIPMENT OVER $250K")=""
^DD(6925.04,0,"UP")="6925"
^DD(6925.04,.01,0)="EQUIPMENT OVER $250K NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(6925.04,.01,.1)="EQUIPMENT OVER $250K"
^DD(6925.04,.01,1,0)="^.1"
^DD(6925.04,.01,1,1,0)="6925.04^B"
^DD(6925.04,.01,1,1,1)="S ^ENG(""PROJ"",DA(1),25,""B"",$E(X,1,30),DA)="""""
^DD(6925.04,.01,1,1,2)="K ^ENG(""PROJ"",DA(1),25,""B"",$E(X,1,30),DA)"
^DD(6925.04,.01,3)="Answer must be 3-30 characters in length."
^DD(6925.04,.01,21,0)="^^2^2^2940214^^^"
^DD(6925.04,.01,21,1,0)="This field contains a 3-30 character name for an equipment item over"
^DD(6925.04,.01,21,2,0)="$250,000."
^DD(6925.04,.01,"DT")="2940214"
^DD(6925.04,1,0)="QUANTITY^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6925.04,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(6925.04,1,21,0)="^^1^1^2930423^^"
^DD(6925.04,1,21,1,0)="This field contains the quantity of the equipment item."
^DD(6925.04,1,"DT")="2930426"
^DD(6925.04,2,0)="UNIT COST^NJ8,0^^0;3^K:+X'=X!(X>99999999)!(X<250000)!(X?.E1"".""1N.N) X"
^DD(6925.04,2,3)="Enter a whole dollar amount between 250000 and 99999999"
^DD(6925.04,2,21,0)="^^1^1^2930428^^^^"
^DD(6925.04,2,21,1,0)="This field contains the unit cost of the equipment item."
^DD(6925.04,2,"DT")="2930426"
^DD(6925.04,3,0)="LINE ITEM AMT^CJ11,0^^ ; ^S Y(6925.04,3,1)=$S($D(^ENG(""PROJ"",D0,25,D1,0)):^(0),1:"""") S X=$P(Y(6925.04,3,1),U,2)*$P(Y(6925.04,3,1),U,3)"
^DD(6925.04,3,9)="^"
^DD(6925.04,3,9.01)="6925.04^2;6925.04^1"
^DD(6925.04,3,9.1)="#1*#2"
^DD(6925.04,3,21,0)="^^1^1^2930423^^"
^DD(6925.04,3,21,1,0)="This field contains the computed total cost of an equipment item."
^DD(6925.04,3,"DT")="2921230"
^DD(6925.04,4,0)="ADDITIONAL/REPLACEMENT^S^A:ADDITIONAL;R:REPLACEMENT;^0;4^Q"
^DD(6925.04,4,3)="Enter 'A' if additional equipment or 'R' if replacement equipment."
^DD(6925.04,4,21,0)="^^2^2^2940525^"
^DD(6925.04,4,21,1,0)="This field identifies equipment over $250K as additional or replacement"
^DD(6925.04,4,21,2,0)="equipment."
^DD(6925.04,4,"DT")="2940429"
^DD(6925.04,"B","ADDITIONAL/REPLACEMENT",4)=""
^DD(6925.04,"B","EQUIPMENT OVER $250K",.01)="1"
^DD(6925.04,"B","EQUIPMENT OVER $250K NAME",.01)=""
^DD(6925.04,"B","LINE ITEM AMT",3)=""
^DD(6925.04,"B","QUANTITY",1)=""
^DD(6925.04,"B","UNIT COST",2)=""
^DD(6925.04,"GL",0,1,.01)=""
^DD(6925.04,"GL",0,2,1)=""
^DD(6925.04,"GL",0,3,2)=""
^DD(6925.04,"GL",0,4,4)=""
^DD(6925.04,"IX",.01)=""
^DD(6925.05,0)="JUSTIFICATION (SHORT) SUB-FIELD^^.01^1"
^DD(6925.05,0,"DT")="2921229"
^DD(6925.05,0,"NM","JUSTIFICATION (SHORT)")=""
^DD(6925.05,0,"UP")="6925"
^DD(6925.05,.01,0)="JUSTIFICATION^W^^0;1^Q"
^DD(6925.05,.01,3)="Enter a 2-3 line project justification."
^DD(6925.05,.01,"DT")="2921229"
^DD(6925.05,"B","JUSTIFICATION",.01)=""
^DD(6925.05,"GL",0,1,.01)=""
^DD(6925.06,0)="WORKLOAD SUB-FIELD^^.01^1"
^DD(6925.06,0,"DT")="2921229"
^DD(6925.06,0,"NM","WORKLOAD")=""
^DD(6925.06,0,"UP")="6925"
^DD(6925.06,.01,0)="WORKLOAD^W^^0;1^Q"
^DD(6925.06,.01,"DT")="2921229"
^DD(6925.06,"B","WORKLOAD",.01)=""
^DD(6925.06,"GL",0,1,.01)=""
^DD(6925.2,0)="FIELD^^4^5"
^DD(6925.2,0,"DT")="2950505"
^DD(6925.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(6925.2,0,"IX","AC",6925.2,3)=""
^DD(6925.2,0,"IX","B",6925.2,.01)=""
^DD(6925.2,0,"IX","C",6925.2,1)=""
^DD(6925.2,0,"NM","PROJECT STATUS")=""
^DD(6925.2,0,"PT",6925,6)=""
^DD(6925.2,0,"PT",6925,15.8)=""
^DD(6925.2,0,"VR")="7.0"
^DD(6925.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(6925.2,.01,1,0)="^.1"
^DD(6925.2,.01,1,1,0)="6925.2^B"
^DD(6925.2,.01,1,1,1)="S ^ENG(6925.2,""B"",$E(X,1,30),DA)="""""
^DD(6925.2,.01,1,1,2)="K ^ENG(6925.2,""B"",$E(X,1,30),DA)"
^DD(6925.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(6925.2,.01,21,0)="^^1^1^2930319^"
^DD(6925.2,.01,21,1,0)="This field contains name of a valid project status."
^DD(6925.2,1,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(6925.2,1,1,0)="^.1"
^DD(6925.2,1,1,1,0)="6925.2^C"
^DD(6925.2,1,1,1,1)="S ^ENG(6925.2,""C"",$E(X,1,30),DA)="""""
^DD(6925.2,1,1,1,2)="K ^ENG(6925.2,""C"",$E(X,1,30),DA)"
^DD(6925.2,1,1,1,"DT")="2921222"
^DD(6925.2,1,3)="Answer must be 1-5 characters in length."
^DD(6925.2,1,21,0)="^^1^1^2930319^"
^DD(6925.2,1,21,1,0)="This field contains an abbreviation for a valid project status."
^DD(6925.2,1,"DT")="2921222"
^DD(6925.2,2,0)="FUNDED^S^1:YES;0:NO;^0;3^Q"
^DD(6925.2,2,3)="Enter '1' to identify Project Status as funded"
^DD(6925.2,2,21,0)="^^5^5^2930319^^"
^DD(6925.2,2,21,1,0)="This field is used during the Minor Design/Minor Miscellaneous"
^DD(6925.2,2,21,2,0)="Prioritization Methodology.  On the Scoring Sheet, are listed the funded"
^DD(6925.2,2,21,3,0)="Major and Minor Program projects which are dependent upon this currently"
^DD(6925.2,2,21,4,0)="evaluated project.  Hence a flag was needed to indicate which statuses"
^DD(6925.2,2,21,5,0)="Construction Managers consider funded."
^DD(6925.2,2,"DT")="2930112"
^DD(6925.2,3,0)="SORT ORDER^RNJ2,0^^0;4^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6925.2,3,1,0)="^.1"
^DD(6925.2,3,1,1,0)="6925.2^AC"
^DD(6925.2,3,1,1,1)="S ^ENG(6925.2,""AC"",$E(X,1,30),DA)="""""
^DD(6925.2,3,1,1,2)="K ^ENG(6925.2,""AC"",$E(X,1,30),DA)"
^DD(6925.2,3,1,1,"%D",0)="^^1^1^2950505^"
^DD(6925.2,3,1,1,"%D",1,0)="Used by executable help to display status values in chronological order."
^DD(6925.2,3,1,1,"DT")="2950505"
^DD(6925.2,3,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(6925.2,3,"DT")="2950505"
^DD(6925.2,4,0)="APPLICABLE PROGRAMS^F^^0;5^K:$L(X)>20!($L(X)<2) X"
^DD(6925.2,4,3)="Answer must be 2-20 characters in length."
^DD(6925.2,4,21,0)="^^3^3^2950522^"
^DD(6925.2,4,21,1,0)="This field contains a comma delimited list of applicable programs. The"
^DD(6925.2,4,21,2,0)="list entered here will determine the choices displayed during project"
^DD(6925.2,4,21,3,0)="editing. (Examples: MA,MI or NR,SL,LE)"
^DD(6925.2,4,"DT")="2950522"
^DD(6925.2,"B","ABBREVIATION",1)=""
^DD(6925.2,"B","APPLICABLE PROGRAMS",4)=""
^DD(6925.2,"B","FUNDED",2)=""
^DD(6925.2,"B","NAME",.01)=""
^DD(6925.2,"B","SORT ORDER",3)=""
^DD(6925.2,"GL",0,1,.01)=""
^DD(6925.2,"GL",0,2,1)=""
^DD(6925.2,"GL",0,3,2)=""
^DD(6925.2,"GL",0,4,3)=""
^DD(6925.2,"GL",0,5,4)=""
^DD(6925.2,"IX",.01)=""
^DD(6925.2,"IX",1)=""
^DD(6925.2,"IX",3)=""
^DD(6925.2,"RQ",.01)=""
^DD(6925.2,"RQ",3)=""
^DD(6925.3,0)="FIELD^^4^5"
^DD(6925.3,0,"DDA")="N"
^DD(6925.3,0,"DT")="2950519"
^DD(6925.3,0,"IX","AC",6925.3,4)=""
^DD(6925.3,0,"IX","B",6925.3,.01)=""
^DD(6925.3,0,"NM","PROJECT EPA CATEGORY")=""
^DD(6925.3,0,"PT",6925,158.7)=""
^DD(6925.3,0,"PT",6925,159.8)=""
^DD(6925.3,.01,0)="NAME^RF^^0;1^K:$L(X)>75!($L(X)<3)!'(X'?1P.E) X"
^DD(6925.3,.01,1,0)="^.1"
^DD(6925.3,.01,1,1,0)="6925.3^B"
^DD(6925.3,.01,1,1,1)="S ^ENG(6925.3,""B"",$E(X,1,30),DA)="""""
^DD(6925.3,.01,1,1,2)="K ^ENG(6925.3,""B"",$E(X,1,30),DA)"
^DD(6925.3,.01,3)="Answer must be 3-75 characters in length."
^DD(6925.3,.01,"DT")="2950512"
^DD(6925.3,1,0)="GROUP^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(6925.3,1,3)="Answer must be 3-30 characters in length."
^DD(6925.3,1,21,0)="^^1^1^2950512^"
^DD(6925.3,1,21,1,0)="Group to which the environmental cateogry belongs."
^DD(6925.3,1,"DT")="2950512"
^DD(6925.3,2,0)="A-106 LAW/REG CODE^F^^0;3^K:$L(X)>6!($L(X)<1) X"
^DD(6925.3,2,3)="Answer must be 1-6 characters in length."
^DD(6925.3,2,21,0)="^^1^1^2950512^^"
^DD(6925.3,2,21,1,0)="Corresponding A-106 category for environmental law or regulation code."
^DD(6925.3,2,"DT")="2950512"
^DD(6925.3,3,0)="A-106 CATEGORY CODE^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(6925.3,3,3)="Answer must be 1-6 characters in length."
^DD(6925.3,3,21,0)="^^1^1^2950512^"
^DD(6925.3,3,21,1,0)="Corresponding A-106 enviromental category code."
^DD(6925.3,3,"DT")="2950512"
^DD(6925.3,4,0)="RELATED PROJECT CATEGORY^*P7336.8'^OFM(7336.8,^0;5^S DIC(""S"")=""I $P(^(0),U,2)[""""NR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6925.3,4,1,0)="^.1"
^DD(6925.3,4,1,1,0)="6925.3^AC"
^DD(6925.3,4,1,1,1)="S ^ENG(6925.3,""AC"",$E(X,1,30),DA)="""""
^DD(6925.3,4,1,1,2)="K ^ENG(6925.3,""AC"",$E(X,1,30),DA)"
^DD(6925.3,4,1,1,"%D",0)="^^1^1^2950519^"
^DD(6925.3,4,1,1,"%D",1,0)="Used by file #6925 field #158.7 (ENVIRONMENTAL CATEGORY) screen."
^DD(6925.3,4,1,1,"DT")="2950519"
^DD(6925.3,4,3)="Enter related Project Category (if any) to be used for screening choices."
^DD(6925.3,4,12)="Environmental Category only used for NRM program."
^DD(6925.3,4,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""NR"""""""
^DD(6925.3,4,21,0)="^^2^2^2950519^"
^DD(6925.3,4,21,1,0)="This field contains a related Project Category which will be used to screen"
^DD(6925.3,4,21,2,0)="the available Environmental Categories for NRM projects."
^DD(6925.3,4,"DT")="2950519"
^DD(6925.3,"B","A-106 CATEGORY CODE",3)=""
^DD(6925.3,"B","A-106 LAW/REG CODE",2)=""
^DD(6925.3,"B","GROUP",1)=""
^DD(6925.3,"B","NAME",.01)=""
^DD(6925.3,"B","RELATED PROJECT CATEGORY",4)=""
^DD(6925.3,"GL",0,1,.01)=""
^DD(6925.3,"GL",0,2,1)=""
^DD(6925.3,"GL",0,3,2)=""
^DD(6925.3,"GL",0,4,3)=""
^DD(6925.3,"GL",0,5,4)=""
^DD(6925.3,"IX",.01)=""
^DD(6925.3,"IX",4)=""
^DD(6925.3,"RQ",.01)=""
^DD(6926,0)="FIELD^NL^1^4"
^DD(6926,0,"DDA")="N"
^DD(6926,0,"IX","B",6926,.01)=""
^DD(6926,0,"IX","K",6926.01,.01)=""
^DD(6926,0,"NM","EMPLOYEE(KEYS)")=""
^DD(6926,0,"VR")="7.0"
^DD(6926,.01,0)="EMPLOYEE^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP)!(X'["","") X"
^DD(6926,.01,1,0)="^.1"
^DD(6926,.01,1,1,0)="6926^B"
^DD(6926,.01,1,1,1)="S ^ENG(""KEY"",""B"",$E(X,1,30),DA)="""""
^DD(6926,.01,1,1,2)="K ^ENG(""KEY"",""B"",$E(X,1,30),DA)"
^DD(6926,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH AND CONTAIN A COMMA                -IE. LAST NAME, FIRST NAME"
^DD(6926,.01,21,0)="^^2^2^2930430^^^"
^DD(6926,.01,21,1,0)="These employee entries must not be deleted without first deleting all"
^DD(6926,.01,21,2,0)="keys issued under the KEYS ISSUED field."
^DD(6926,.01,"DEL",1,0)="I $D(^ENG(""KEY"",DA,1,""B"")) D EN^DDIOL(""Still has keys assigned. Can't delete this employee yet."") I 1"
^DD(6926,.01,"DT")="2841011"
^DD(6926,.4,0)="SERVICE^RP49'^DIC(49,^2;2^Q"
^DD(6926,.4,3)="Enter the appropriate service for this employee."
^DD(6926,.4,21,0)="^^1^1^2930430^"
^DD(6926,.4,21,1,0)="Service or section to which employee is assigned."
^DD(6926,.4,"DT")="2860906"
^DD(6926,.5,0)="ID NUMBER^FX^^2;1^K:$L(X)>6!($L(X)<1)!(X'?.ANP) X"
^DD(6926,.5,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(6926,.5,21,0)="^^2^2^2930430^"
^DD(6926,.5,21,1,0)="Identification number.  To be assigned by Engineering Service."
^DD(6926,.5,21,2,0)="Not required."
^DD(6926,.5,"DT")="2841206"
^DD(6926,1,0)="KEYS ISSUED^6926.01P^^1;0"
^DD(6926,1,21,0)="^^1^1^2930430^"
^DD(6926,1,21,1,0)="Door key(s) issued to this individual."
^DD(6926,"B","EMPLOYEE",.01)=""
^DD(6926,"B","ID NUMBER",.5)=""
^DD(6926,"B","KEYS ISSUED",1)=""
^DD(6926,"B","SERVICE",.4)=""
^DD(6926,"GL",0,1,.01)=""
^DD(6926,"GL",1,0,1)=""
^DD(6926,"GL",2,1,.5)=""
^DD(6926,"GL",2,2,.4)=""
^DD(6926,"IX",.01)=""
^DD(6926,"RQ",.01)=""
^DD(6926,"RQ",.4)=""
^DD(6926,"SB",6926.01,1)=""
^DD(6926.01,0)="KEYS ISSUED SUB-FIELD^NL^3^3"
^DD(6926.01,0,"IX","B",6926.01,.01)=""
^DD(6926.01,0,"NM","KEYS ISSUED")=""
^DD(6926.01,0,"UP")="6926"
^DD(6926.01,.01,0)="KEYS ISSUED^MP6927'^ENG(""LK"",^0;1^Q"
^DD(6926.01,.01,1,0)="^.1"
^DD(6926.01,.01,1,1,0)="6926.01^B"
^DD(6926.01,.01,1,1,1)="S ^ENG(""KEY"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(6926.01,.01,1,1,2)="K ^ENG(""KEY"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(6926.01,.01,1,2,0)="6926^K"
^DD(6926.01,.01,1,2,1)="S ^ENG(""KEY"",""K"",$E(X,1,30),DA(1),DA)="""""
^DD(6926.01,.01,1,2,2)="K ^ENG(""KEY"",""K"",$E(X,1,30),DA(1),DA)"
^DD(6926.01,.01,1,2,"%D",0)="^^3^3^2990707^"
^DD(6926.01,.01,1,2,"%D",1,0)="This cross-reference can be used to determine which employees have been"
^DD(6926.01,.01,1,2,"%D",2,0)="issued a specific key and it is required to support use of a backward"
^DD(6926.01,.01,1,2,"%D",3,0)="extended pointer in a file #6927 LOCKS print template."
^DD(6926.01,.01,1,2,"DT")="2990707"
^DD(6926.01,.01,21,0)="^^1^1^2930430^"
^DD(6926.01,.01,21,1,0)="Identification number of key issued."
^DD(6926.01,.01,"DT")="2990707"
^DD(6926.01,1,0)="DATE ISSUED^6926.02D^^1;0"
^DD(6926.01,1,3)="ENTER DATE OF ISSUE"
^DD(6926.01,1,21,0)="^^1^1^2930430^"
^DD(6926.01,1,21,1,0)="Date individual signed for this key."
^DD(6926.01,1,"DT")="2850508"
^DD(6926.01,3,0)="COMPUTED TOTAL FOR THIS KEY^CJ2,0^^ ; ^X ^DD(6926.01,3,9.3) S X=Y(6926.01,3,103) S D2=Y(6926.01,3,1) S X=$J(X,0,0)"
^DD(6926.01,3,9)="^"
^DD(6926.01,3,9.01)="6926.02^1"
^DD(6926.01,3,9.1)="TOTAL(1:1)"
^DD(6926.01,3,9.2)="S Y(6926.01,3,1)=$S($D(D2):D2,1:"""")"
^DD(6926.01,3,9.3)="X ^DD(6926.01,3,9.2) S Y(6926.01,3,103)="""" X ""F D2=0:0 S D2=$N(^ENG(""""KEY"""",D0,1,D1,1,D2)) Q:D2'>0  S Y(6926.01,3,103)=Y(6926.01,3,103)+$S($D(^(D2,0)):$P(^(0),U,2),1:"""""""")"""
^DD(6926.01,3,21,0)="^^2^2^2930430^"
^DD(6926.01,3,21,1,0)="System generated total of all quantities for all issue dates"
^DD(6926.01,3,21,2,0)="for this key and this individual."
^DD(6926.01,"B","COMPUTED TOTAL FOR THIS KEY",3)=""
^DD(6926.01,"B","DATE ISSUED",1)=""
^DD(6926.01,"B","KEYS ISSUED",.01)=""
^DD(6926.01,"GL",0,1,.01)=""
^DD(6926.01,"GL",1,0,1)=""
^DD(6926.01,"IX",.01)=""
^DD(6926.01,"SB",6926.02,1)=""
^DD(6926.02,0)="DATE ISSUED SUB-FIELD^NL^1^2"
^DD(6926.02,0,"NM","DATE ISSUED")=""
^DD(6926.02,0,"UP")="6926.01"
^DD(6926.02,.01,0)="DATE ISSUED^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6926.02,.01,3)="Enter the Date of this key issuance. "
^DD(6926.02,.01,"DT")="2850914"
^DD(6926.02,1,0)="QUANTITY ISSUED^RNJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6926.02,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(6926.02,1,4)="W !!,""Enter the quantity of this key number that was issued to the employee on this"",!,""particular date only. The total quantity from all dates will be calculated "",!,""by the system."""
^DD(6926.02,1,21,0)="^^1^1^2930430^"
^DD(6926.02,1,21,1,0)="Number of these keys issued to this individual."
^DD(6926.02,1,"DT")="2880308"
^DD(6926.02,"B","DATE ISSUED",.01)=""
^DD(6926.02,"B","QUANTITY ISSUED",1)=""
^DD(6926.02,"GL",0,1,.01)=""
^DD(6926.02,"GL",0,2,1)=""
^DD(6926.02,"RQ",.01)=""
^DD(6926.02,"RQ",1)=""
^DD(6927,0)="FIELD^NL^4^6"
^DD(6927,0,"DDA")="N"
^DD(6927,0,"IX","B",6927,.01)=""
^DD(6927,0,"NM","LOCKS")=""
^DD(6927,0,"PT",6926.01,.01)=""
^DD(6927,0,"PT",6928,2)=""
^DD(6927,0,"VR")="7.0"
^DD(6927,.01,0)="KEY^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X?1AN.ANP) X"
^DD(6927,.01,1,0)="^.1"
^DD(6927,.01,1,1,0)="6927^B"
^DD(6927,.01,1,1,1)="S ^ENG(""LK"",""B"",$E(X,1,30),DA)="""""
^DD(6927,.01,1,1,2)="K ^ENG(""LK"",""B"",$E(X,1,30),DA)"
^DD(6927,.01,3)="Answer must be 1-20 characters in length and not start with punctuation."
^DD(6927,.01,21,0)="^^1^1^2930430^"
^DD(6927,.01,21,1,0)="Unique identification symbol as it appears on key itself."
^DD(6927,.01,"DEL",1,0)="I $D(^ENG(""KEY"",""K"",DA)) D EN^DDIOL(""This key can't be deleted since it is still issued to employee(s)."") I 1"
^DD(6927,.01,"DT")="2990707"
^DD(6927,.5,0)="CTRL KEY^F^^4;1^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X"
^DD(6927,.5,3)="Answer must be 1-20 characters in length."
^DD(6927,.5,21,0)="^^1^1^2990819^^^"
^DD(6927,.5,21,1,0)="Use this field for control key or keyway information."
^DD(6927,.5,"DT")="2990816"
^DD(6927,1,0)="GGM^S^Y:KEYED TO GGM;N:NOT KEYED TO GGM;^0;2^Q"
^DD(6927,1,21,0)="^^1^1^2930430^"
^DD(6927,1,21,1,0)="Can the great grand master key be used in lieu of this key?"
^DD(6927,1,"DT")="2850914"
^DD(6927,2,0)="MASTER^6927.01^^1;0"
^DD(6927,2,21,0)="^^1^1^2990819^^^^"
^DD(6927,2,21,1,0)="LIST OF MASTER KEYS FOR THIS LOCK"
^DD(6927,3,0)="COMBINATION^FX^^2;1^K:$L(X)>7!($L(X)<6)!(X'?.ANP) X"
^DD(6927,3,3)="ANSWER MUST BE 6-7 CHARACTERS IN LENGTH"
^DD(6927,3,21,0)="^^1^1^2930430^"
^DD(6927,3,21,1,0)="Keying combination for this lock.  Optional information."
^DD(6927,3,"DT")="2841206"
^DD(6927,4,0)="DATE CHANGED^D^^2;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6927,4,21,0)="^^1^1^2930430^"
^DD(6927,4,21,1,0)="Date lock was last reconfigured."
^DD(6927,"B","COMBINATION",3)=""
^DD(6927,"B","CTRL KEY",.5)=""
^DD(6927,"B","DATE CHANGED",4)=""
^DD(6927,"B","GGM",1)=""
^DD(6927,"B","KEY",.01)=""
^DD(6927,"B","MASTER",2)=""
^DD(6927,"GL",0,1,.01)=""
^DD(6927,"GL",0,2,1)=""
^DD(6927,"GL",1,0,2)=""
^DD(6927,"GL",2,1,3)=""
^DD(6927,"GL",2,2,4)=""
^DD(6927,"GL",4,1,.5)=""
^DD(6927,"IX",.01)=""
^DD(6927,"RQ",.01)=""
^DD(6927,"SB",6927.01,2)=""
^DD(6927.01,0)="MASTER SUB-FIELD^NL^1^2"
^DD(6927.01,0,"NM","MASTER")=""
^DD(6927.01,0,"UP")="6927"
^DD(6927.01,.01,0)="MASTER^F^^0;1^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X"
^DD(6927.01,.01,3)="Answer must be 1-20 characters in length."
^DD(6927.01,.01,21,0)="^^1^1^2990819^^^^"
^DD(6927.01,.01,21,1,0)="MASTER KEYS FOR THIS LOCK"
^DD(6927.01,.01,"DT")="2990819"
^DD(6927.01,1,0)="SUB-MASTER^6927.02^^1;0"
^DD(6927.01,1,21,0)="^^1^1^2850510^^"
^DD(6927.01,1,21,1,0)="SUB-MASTERS FOR THIS LOCK"
^DD(6927.01,"B","MASTER",.01)=""
^DD(6927.01,"B","SUB-MASTER",1)=""
^DD(6927.01,"GL",0,1,.01)=""
^DD(6927.01,"GL",1,0,1)=""
^DD(6927.01,"SB",6927.02,1)=""
^DD(6927.02,0)="SUB-MASTER SUB-FIELD^NL^.01^1"
^DD(6927.02,0,"NM","SUB-MASTER")=""
^DD(6927.02,0,"UP")="6927.01"
^DD(6927.02,.01,0)="SUB-MASTER^F^^0;1^K:$L(X)>20!($L(X)<1)!'(X?.ANP) X"
^DD(6927.02,.01,3)="Answer must be 1-20 characters in length."
^DD(6927.02,.01,21,0)="^^1^1^2990819^^^^"
^DD(6927.02,.01,21,1,0)="SUB-MASTER KEYS FOR THIS LOCK"
^DD(6927.02,.01,"DT")="2990819"
^DD(6927.02,"B","SUB-MASTER",.01)=""
^DD(6927.02,"GL",0,1,.01)=""
^DD(6928,0)="FIELD^NL^19^42"
^DD(6928,0,"DDA")="N"
^DD(6928,0,"DT")="2930420"
^DD(6928,0,"ID",.5)="W ""   "",$P(^(0),U,2)"
^DD(6928,0,"ID",1)="W ""   "",$P(^(0),U,3)"
^DD(6928,0,"ID",1.5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(49,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(49,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(6928,0,"ID",2.6)="S %I=Y,Y=$S('$D(^(4)):"""",$D(^ENG(6928.1,+$P(^(4),U,1),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(6928.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(6928,0,"IX","AC",6928,.01)=""
^DD(6928,0,"IX","AD",6928,19)=""
^DD(6928,0,"IX","AE",6928,.51)=""
^DD(6928,0,"IX","AF",6928,.01)=""
^DD(6928,0,"IX","B",6928,.01)=""
^DD(6928,0,"IX","C",6928,1)=""
^DD(6928,0,"IX","D",6928,1.5)=""
^DD(6928,0,"IX","E",6928,.5)=""
^DD(6928,0,"IX","F",6928.018,.01)=""
^DD(6928,0,"NM","ENG SPACE")=""
^DD(6928,0,"PT",413,26.5)=""
^DD(6928,0,"PT",6914,24)=""
^DD(6928,0,"PT",6920,3)=""
^DD(6928,0,"VR")="7.0"
^DD(6928,.01,0)="ROOM NUMBER^RFX^^0;1^K:X[""""""""!($L(X)>20)!($L(X)<3) X I $D(X) D ROOM^ENLIB I $D(X),$P(X,""-"",2)'="""",'$D(^ENG(6928.3,""B"",$P(X,""-"",2,3))) D BLDG^ENLIB K X"
^DD(6928,.01,1,0)="^.1"
^DD(6928,.01,1,1,0)="6928^B"
^DD(6928,.01,1,1,1)="S ^ENG(""SP"",""B"",$E(X,1,30),DA)="""""
^DD(6928,.01,1,1,2)="K ^ENG(""SP"",""B"",$E(X,1,30),DA)"
^DD(6928,.01,1,2,0)="^^TRIGGER^6928^.5"
^DD(6928,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(6928,.01,1,2,1.1) X ^DD(6928,.01,1,2,1.4)"
^DD(6928,.01,1,2,1.1)="S X=DIV S X=DIV,Y(1)=X S X=""-"",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)"
^DD(6928,.01,1,2,1.4)="S DIH=$S($D(^ENG(""SP"",DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=6928,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6928,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$S($D(^ENG(""SP"",DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=6928,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6928,.01,1,2,"CREATE VALUE")="$P(ROOM NUMBER,""-"",2)"
^DD(6928,.01,1,2,"DELETE VALUE")="@"
^DD(6928,.01,1,2,"DT")="2990909"
^DD(6928,.01,1,2,"FIELD")="#.5"
^DD(6928,.01,1,3,0)="^^TRIGGER^6928^.6"
^DD(6928,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(6928,.01,1,3,1.1) X ^DD(6928,.01,1,3,1.4)"
^DD(6928,.01,1,3,1.1)="S X=DIV S X=DIV,Y(1)=X S X=""-"",Y(2)=X S X=3,X=$P(Y(1),Y(2),X)"
^DD(6928,.01,1,3,1.4)="S DIH=$S($D(^ENG(""SP"",DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=6928,DIG=.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6928,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" X ^DD(6928,.01,1,3,2.4)"
^DD(6928,.01,1,3,2.4)="S DIH=$S($D(^ENG(""SP"",DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,10)=DIV,DIH=6928,DIG=.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6928,.01,1,3,"CREATE VALUE")="$P(ROOM NUMBER,""-"",3)"
^DD(6928,.01,1,3,"DELETE VALUE")="@"
^DD(6928,.01,1,3,"DT")="2990909"
^DD(6928,.01,1,3,"FIELD")="#.6"
^DD(6928,.01,1,4,0)="6928^AC^MUMPS"
^DD(6928,.01,1,4,1)="N ENX S ENX=$P(X,""-"",3)_"":""_$P(X,""-"",2)_"":""_$P(X,""-""),$P(^ENG(""SP"",DA,9),U)=ENX,^ENG(""SP"",""AD"",ENX,DA)="""""
^DD(6928,.01,1,4,2)="N ENX S ENX=$P(X,""-"",3)_"":""_$P(X,""-"",2)_"":""_$P(X,""-"") K ^ENG(""SP"",""AD"",ENX,DA)"
^DD(6928,.01,1,4,"%D",0)="^^2^2^2930322^^^^"
^DD(6928,.01,1,4,"%D",1,0)="To facilitate sorting by DIVISION first, then BUILDING, then ROOM."
^DD(6928,.01,1,4,"%D",2,0)="This x-ref automatically maintains the INVERSE LOCATION field."
^DD(6928,.01,1,4,"DT")="2930321"
^DD(6928,.01,1,5,0)="6928^AF^MUMPS"
^DD(6928,.01,1,5,1)="N ENX,ENX1 S ENX=$P(X,""-"",2,3) I ENX]"""" S ENX1=$O(^ENG(6928.3,""B"",ENX,0)),$P(^ENG(""SP"",DA,0),U,14)=ENX1 S:ENX1]"""" ^ENG(""SP"",""AE"",ENX1,DA)="""" Q"
^DD(6928,.01,1,5,2)="N ENX,ENX1 S ENX=$P(X,""-"",2,3) I ENX]"""" S ENX1=$O(^ENG(6928.3,""B"",ENX,0)) K:ENX1]"""" ^ENG(""SP"",""AE"",ENX1,DA) Q"
^DD(6928,.01,1,5,"%D",0)="^^1^1^2930322^^^^"
^DD(6928,.01,1,5,"%D",1,0)="Set the BUILDING FILE POINTER field on basis of ROOM NUMBER."
^DD(6928,.01,1,5,"DT")="2930322"
^DD(6928,.01,3)="ANSWER MUST BE 3-20 CHARACTERS IN LENGTH"
^DD(6928,.01,4)="W !!,""Enter as 'ROOM-BUILDING'; or 'ROOM-BUILDING-DIVISION' at two-division"",!,""facilities and other sites where building numbers may be duplicated. The"",!,""Building File (6928.3) is used for data validation."""
^DD(6928,.01,20,0)="^.3LA^^0"
^DD(6928,.01,20,1,0)="{"
^DD(6928,.01,21,0)="^^20^20^2910117^^^^"
^DD(6928,.01,21,1,0)="Identifier of a physical location (room). With the advent of bar coding,"
^DD(6928,.01,21,2,0)="it is essential that this field uniquely and unambiguously specify a"
^DD(6928,.01,21,3,0)="particular location. Entries may consist of one, two, or three pieces."
^DD(6928,.01,21,4,0)="Hyphens (if present) are treated as delimiters between pieces. First"
^DD(6928,.01,21,5,0)="piece (always present) is room designation, second piece (optional) is"
^DD(6928,.01,21,6,0)="building designation, and third piece (optional) is division"
^DD(6928,.01,21,7,0)="designation (may be used for outpatient clinics, regional offices, etc."
^DD(6928,.01,21,8,0)="as well as for formal divisions)."
^DD(6928,.01,21,9,0)=" "
^DD(6928,.01,21,10,0)="It is anticipated that most sites will use two piece entries. True"
^DD(6928,.01,21,11,0)="single-building facilities may use one-piece entries. Multi-division"
^DD(6928,.01,21,12,0)="facilities and sites supporting remote offices where duplicate building"
^DD(6928,.01,21,13,0)="numbers may be a problem should use three-piece entries."
^DD(6928,.01,21,14,0)=" "
^DD(6928,.01,21,15,0)="Entry of a two-piece ROOM NUMBER will autoamtically populate the"
^DD(6928,.01,21,16,0)="BUILDING field. Entry of a three-piece ROOM NUMBER will automatically"
^DD(6928,.01,21,17,0)="populate the BUILDING and DIVISION fields."
^DD(6928,.01,21,18,0)=" "
^DD(6928,.01,21,19,0)="Hyphens must not be used as anything other than delimiters between"
^DD(6928,.01,21,20,0)="ROOM, BUILDING, and DIVISION."
^DD(6928,.01,"DEL",1,0)="I $D(^ENG(6914,""D"",DA)) D EN^DDIOL(""Can't delete because EQUIPMENT file (#6914) entries point to this location."") I 1"
^DD(6928,.01,"DEL",2,0)="I $D(^ENG(6920,""C"",DA)) D EN^DDIOL(""Can't delete because WORK ORDER file (#6920) entries point to this location."") I 1"
^DD(6928,.01,"DT")="2990909"
^DD(6928,.5,0)="BUILDING NUMBER^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X),X'=$P($P(^ENG(""SP"",DA,0),U),""-"",2) W ""  Inconsistent with ROOM NUMBER"" K X"
^DD(6928,.5,1,0)="^.1"
^DD(6928,.5,1,1,0)="6928^E"
^DD(6928,.5,1,1,1)="S ^ENG(""SP"",""E"",$E(X,1,30),DA)="""""
^DD(6928,.5,1,1,2)="K ^ENG(""SP"",""E"",$E(X,1,30),DA)"
^DD(6928,.5,3)="Must match the BUILDING segment in the ROOM NUMBER."
^DD(6928,.5,5,1,0)="6928^.01^2"
^DD(6928,.5,21,0)="^^2^2^2930721^^"
^DD(6928,.5,21,1,0)="Assigned number of the BUILDING.  This field is populated automatically"
^DD(6928,.5,21,2,0)="when ROOM NUMBERS are entered as 'ROOM-BUILDING'."
^DD(6928,.5,"DT")="2930721"
^DD(6928,.51,0)="BUILDING FILE POINTER^*P6928.3'^ENG(6928.3,^0;14^S DIC(""S"")=""I $P(^(0),U)=$P(^ENG(""""SP"""",DA,0),""""-"""",2,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(6928,.51,1,0)="^.1"
^DD(6928,.51,1,1,0)="6928^AE"
^DD(6928,.51,1,1,1)="S ^ENG(""SP"",""AE"",$E(X,1,30),DA)="""""
^DD(6928,.51,1,1,2)="K ^ENG(""SP"",""AE"",$E(X,1,30),DA)"
^DD(6928,.51,1,1,"DT")="2930322"
^DD(6928,.51,9)="^"
^DD(6928,.51,12)="Pointer must be consistent with ROOM NUMBER."
^DD(6928,.51,12.1)="S DIC(""S"")=""I $P(^(0),U)=$P(^ENG(""""SP"""",DA,0),""""-"""",2,3)"""
^DD(6928,.51,21,0)="^^2^2^2930420^^"
^DD(6928,.51,21,1,0)="Used primarily for LEASED SPACE functions.  Automatically maintained"
^DD(6928,.51,21,2,0)="on the basis of the ROOM NUMBER field (.01)."
^DD(6928,.51,"DT")="2930322"
^DD(6928,.6,0)="DIVISION^F^^0;10^K:$L(X)>5!($L(X)<1)!'(X?.AN) X"
^DD(6928,.6,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(6928,.6,5,1,0)="6928^.01^3"
^DD(6928,.6,21,0)="^^4^4^2911028^"
^DD(6928,.6,21,1,0)="The division designator.  Intended for use at multi-division facilities."
^DD(6928,.6,21,2,0)="This field is populated automatically when ROOM NUMBERS are entered as"
^DD(6928,.6,21,3,0)="'ROOM-BUILDING-DIVISION'.  Division designators should not be any longer"
^DD(6928,.6,21,4,0)="than necessary."
^DD(6928,.6,"DT")="2900803"
^DD(6928,.8,0)="LESSOR^CJ30^^ ; ^X ^DD(6928,.8,9.2) S Y(6928,.8,101)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"""") S X=$P(Y(6928,.8,101),U,2) S D0=Y(6928,.8,80)"
^DD(6928,.8,9)="^"
^DD(6928,.8,9.01)="6928.3^1;6928^.51"
^DD(6928,.8,9.1)=".51:1"
^DD(6928,.8,9.2)="S Y(6928,.8,80)=$S($D(D0):D0,1:""""),Y(6928,.8,1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:""""),D0=$P(Y(6928,.8,1),U,14) S:'$D(^ENG(6928.3,+D0,0)) D0=-1"
^DD(6928,.8,21,0)="^^1^1^2930420^^"
^DD(6928,.8,21,1,0)="Owner of leased space."
^DD(6928,1,0)="WING^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(6928,1,1,0)="^.1"
^DD(6928,1,1,1,0)="6928^C"
^DD(6928,1,1,1,1)="S ^ENG(""SP"",""C"",$E(X,1,30),DA)="""""
^DD(6928,1,1,1,2)="K ^ENG(""SP"",""C"",$E(X,1,30),DA)"
^DD(6928,1,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH"
^DD(6928,1,21,0)="^^6^6^2900803^"
^DD(6928,1,21,1,0)="Intended as a means of defining functional groupings of physical"
^DD(6928,1,21,2,0)="locations. WING's may or may not equate to an extension or annex"
^DD(6928,1,21,3,0)="of a building, and/or a clinical specialty area (ex: surgical wing)"
^DD(6928,1,21,4,0)="of a hospital. Used in the Equipment Management Module. In sorting"
^DD(6928,1,21,5,0)="a Preventive Maintenance Worklist by LOCATION, the system will"
^DD(6928,1,21,6,0)="attempt to sort by WING rather than ROOM NUMBER."
^DD(6928,1,"DT")="2880527"
^DD(6928,1.5,0)="SERVICE^P49'^DIC(49,^0;4^Q"
^DD(6928,1.5,1,0)="^.1"
^DD(6928,1.5,1,1,0)="6928^D"
^DD(6928,1.5,1,1,1)="S ^ENG(""SP"",""D"",$E(X,1,30),DA)="""""
^DD(6928,1.5,1,1,2)="K ^ENG(""SP"",""D"",$E(X,1,30),DA)"
^DD(6928,1.5,21,0)="^^1^1^2930430^"
^DD(6928,1.5,21,1,0)="Service to whom space is assigned."
^DD(6928,1.5,"DT")="2900425"
^DD(6928,2,0)="KEY^P6927^ENG(""LK"",^0;5^Q"
^DD(6928,2,3)="SELECT KEY THAT OPERATES LOCK TO THIS ROOM"
^DD(6928,2,21,0)="^^1^1^2930430^"
^DD(6928,2,21,1,0)="Lock/key combination in use for this space."
^DD(6928,2,"DT")="2850508"
^DD(6928,2.1,0)="OTHER KEY^6928.03^^5;0"
^DD(6928,2.1,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(6928,2.1,10)=""
^DD(6928,2.1,21,0)="^^3^3^2850617^"
^DD(6928,2.1,21,1,0)="Use this field if this rooms lock has been combinated with a key"
^DD(6928,2.1,21,2,0)="that crosses over to a lock other than the lock selected for this room."
^DD(6928,2.1,21,3,0)=" "
^DD(6928,2.1,"DT")="2850617"
^DD(6928,2.5,0)="FUNCTION(FREE TEXT)^FX^^0;6^K:$L(X)>30!($L(X)<3)!(X'?.ANP) X"
^DD(6928,2.5,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(6928,2.5,5,1,0)="6928^2.6^1"
^DD(6928,2.5,21,0)="^^3^3^2900425^^^^"
^DD(6928,2.5,21,1,0)="This free text field is triggered by the FUNCTION field of this file."
^DD(6928,2.5,21,2,0)="."
^DD(6928,2.5,21,3,0)="."
^DD(6928,2.5,"DT")="2841206"
^DD(6928,2.6,0)="FUNCTION^XP6928.1'^ENG(6928.1,^4;1^Q"
^DD(6928,2.6,1,0)="^.1"
^DD(6928,2.6,1,1,0)="^^TRIGGER^6928^2.5"
^DD(6928,2.6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y X ^DD(6928,2.6,1,1,1.1) X ^DD(6928,2.6,1,1,1.4)"
^DD(6928,2.6,1,1,1.1)="S X=DIV S X=$S('$D(^ENG(6928.1,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(6928,2.6,1,1,1.4)="S DIH=$S($D(^ENG(""SP"",DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=6928,DIG=2.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(6928,2.6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(Y(1),U,6) S DIU=X K Y S X=DIV S X="""" X ^DD(6928,2.6,1,1,2.4)"
^DD(6928,2.6,1,1,2.4)="S DIH=$S($D(^ENG(""SP"",DIV(0),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,5,99))  S DIH=DIH_U"" S %=$P(DIH,U,7,999),DIU=$P(DIH,U,6),^(0)=$P(DIH,U,1,5)_U_DIV_$S(%]"""":U_%,1:""""),DIH=6928,DIG=2.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(6928,2.6,1,1,"CREATE VALUE")="USE"
^DD(6928,2.6,1,1,"DELETE VALUE")="@"
^DD(6928,2.6,1,1,"FIELD")="FUNCTION"
^DD(6928,2.6,1,2,0)="^^TRIGGER^6928^4.7"
^DD(6928,2.6,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,4)):^(4),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(6928,2.6,1,2,1.1) X ^DD(6928,2.6,1,2,1.4)"
^DD(6928,2.6,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ENG(6928.1,+D0,0)) D0=-1 S Y(101)=$S($D(^ENG(6928.1,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(6928,2.6,1,2,1.4)="S DIH=$S($D(^ENG(""SP"",DIV(0),4)):^(4),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(4)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=6928,DIG=4.7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(6928,2.6,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(""SP"",D0,4)):^(4),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(6928,2.6,1,2,2.4)"
^DD(6928,2.6,1,2,2.4)="S DIH=$S($D(^ENG(""SP"",DIV(0),4)):^(4),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,3,99))  S DIH=DIH_U"" S %=$P(DIH,U,5,999),DIU=$P(DIH,U,4),^(4)=$P(DIH,U,1,3)_U_DIV_$S(%]"""":U_%,1:""""),DIH=6928,DIG=4.7 D ^DICR:$N(^DD(DIH,DIG,1,0))>0"
^DD(6928,2.6,1,2,"CREATE VALUE")="FUNCTION:CRITERIA"
^DD(6928,2.6,1,2,"DELETE VALUE")="@"
^DD(6928,2.6,1,2,"FIELD")="SPACE GUIDE"
^DD(6928,2.6,3)="SELECT FUNCTION THAT BEST FITS THE USE OF THE ROOM"
^DD(6928,2.6,21,0)="^^1^1^2860203^^^^"
^DD(6928,2.6,21,1,0)="This field points to function file for selection of rooms primary use."
^DD(6928,2.6,"DT")="2880609"
^DD(6928,3,0)="LENGTH IN FT.^NJ5,1^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(6928,3,3)="TYPE A NUMBER BETWEEN 1 AND 999"
^DD(6928,3,21,0)="^^1^1^2930430^"
^DD(6928,3,21,1,0)="Measured room length (feet)."
^DD(6928,3.5,0)="WIDTH IN FT.^NJ5,1^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(6928,3.5,3)="TYPE A NUMBER BETWEEN 1 AND 999"
^DD(6928,3.5,21,0)="^^1^1^2930430^"
^DD(6928,3.5,21,1,0)="Measured room width (feet)."
^DD(6928,3.7,0)="CEILING HT^NJ4,1^^4;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""2N.N) X"
^DD(6928,3.7,3)="Type a Number between 1 and 99, 1 Decimal Digit"
^DD(6928,3.7,21,0)="^^1^1^2990707^^"
^DD(6928,3.7,21,1,0)="Distance from floor to ceiling (feet)."
^DD(6928,3.7,"DT")="2990707"
^DD(6928,4,0)="COMPUTED SQ.FT.^CJ8,1^^ ; ^S Y(4,1)=$S($D(^ENG(""SP"",D0,0)):^(0),1:"""") S X=$P(Y(4,1),U,7)*$P(Y(4,1),U,8) S X=$J(X,0,1)"
^DD(6928,4,9)="^"
^DD(6928,4,9.01)="6928^3.5;6928^3"
^DD(6928,4,9.1)="#3*#3.5"
^DD(6928,4,21,0)="^^1^1^2930430^"
^DD(6928,4,21,1,0)="Square footage of this location.  Computed by system."
^DD(6928,4.5,0)="NET SQ.FT.^NJ9,1^^0;9^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""2N.N) X"
^DD(6928,4.5,3)="TYPE A NUMBER BETWEEN 1 AND 9999999"
^DD(6928,4.5,21,0)="^^3^3^2930430^^"
^DD(6928,4.5,21,1,0)="Actual net square footage for this room. May be compared to Criteria"
^DD(6928,4.5,21,2,0)="if Criteria (IMFP) has been calculated and entered."
^DD(6928,4.5,21,3,0)="Should equal computed square footage minus any unusable area(s)."
^DD(6928,4.7,0)="SPACE GUIDE^NJ6,0^^4;4^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6928,4.7,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 999999"
^DD(6928,4.7,5,1,0)="6928^2.6^2"
^DD(6928,4.7,21,0)="^^1^1^2930430^^^"
^DD(6928,4.7,21,1,0)="Net Square feet for this room/function as per IMFP space criteria"
^DD(6928,4.7,22)=""
^DD(6928,4.7,"DT")="2850914"
^DD(6928,4.9,0)="H-08-9 CRITERIA^P7336.6'^OFM(7336.6,^9;2^Q"
^DD(6928,4.9,21,0)="^^2^2^2930430^^^"
^DD(6928,4.9,21,1,0)="Criteria Chapter from H-08-9 Space Planning Criteria. Especially"
^DD(6928,4.9,21,2,0)="important when entering a project space plan (IMFP)."
^DD(6928,4.9,"DT")="2930420"
^DD(6928,5,0)="BEDS^NJ2,0^^2;2^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928,5,.1)="B E D"
^DD(6928,5,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 24"
^DD(6928,5,21,0)="^^1^1^2930430^"
^DD(6928,5,21,1,0)="Number of beds in this room."
^DD(6928,5,"DT")="2840913"
^DD(6928,5.5,0)="BED TYPE^F^^0;17^K:$L(X)>12!($L(X)<1)!'(X?.ANP) X"
^DD(6928,5.5,3)="ANSWER MUST BE 1-12 CHARACTERS IN LENGTH"
^DD(6928,5.5,21,0)="^^1^1^2930430^"
^DD(6928,5.5,21,1,0)="Descriptor of the kind of beds found in this room (PSYCH, NHCU, etc.)."
^DD(6928,5.5,"DT")="2850529"
^DD(6928,6,0)="SPECIAL CHARACTERISTICS^FX^^2;3^K:$L(X)>30!($L(X)<5)!(X'?.ANP) X"
^DD(6928,6,3)="ANSWER MUST BE 5-30 CHARACTERS IN LENGTH"
^DD(6928,6,21,0)="^^1^1^2930430^"
^DD(6928,6,21,1,0)="Special characteristics of this location, as defined by each facility."
^DD(6928,6,"DT")="2841206"
^DD(6928,7,0)="WALL^S^VP:VINYL PAPER;CT:CERAMIC TILE;PT:PAINT;WP:WOOD PANELLING;BL:BLOCK;PL:PLASTER;OT:OTHER;^2;4^Q"
^DD(6928,7,3)=""
^DD(6928,7,21,0)="^^1^1^2930430^"
^DD(6928,7,21,1,0)="Type of wall covering or treatments."
^DD(6928,7,"DT")="2840913"
^DD(6928,7.2,0)="WALL FINISH DESCRIPTION^F^^7;1^K:$L(X)>15!($L(X)<3) X"
^DD(6928,7.2,3)="Answer must be 3-15 characters in length."
^DD(6928,7.2,21,0)="^^1^1^2930430^"
^DD(6928,7.2,21,1,0)="Brief (15 character max) descriptor of wall finishing."
^DD(6928,7.2,22)=""
^DD(6928,7.2,"DT")="2910214"
^DD(6928,7.5,0)="WALL REPLACEMENT DATE^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6928,7.5,3)="ENTER PROJECTED REPLACEMENT DATE FOR WALL FINISH"
^DD(6928,7.5,21,0)="^^1^1^2930430^"
^DD(6928,7.5,21,1,0)="Scheduled date for replacement of wall covering or treatment."
^DD(6928,7.5,"DT")="2850508"
^DD(6928,8,0)="FLOOR^S^CP:CARPET;TL:TILE;CT:CERAMIC TILE;CE:CONCRETE;SV:SHEET VINYL;CF:CONDUCTIVE FLOORING;TE:TERRAZZO;^2;5^Q"
^DD(6928,8,3)=""
^DD(6928,8,21,0)="^^1^1^2930430^^"
^DD(6928,8,21,1,0)="TYPE OF FLOOR FINISH MATERIAL"
^DD(6928,8,"DT")="2840913"
^DD(6928,8.2,0)="FLOOR FINISH DESCRIPTION^F^^7;2^K:$L(X)>15!($L(X)<2) X"
^DD(6928,8.2,3)="Answer must be 2-15 characters in length."
^DD(6928,8.2,21,0)="^^1^1^2930430^"
^DD(6928,8.2,21,1,0)="Brief (15 character max) descriptor of flooring.  Locally defined."
^DD(6928,8.2,"DT")="2910214"
^DD(6928,8.5,0)="FLOOR REPLACEMENT DATE^D^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6928,8.5,3)="ENTER PROJECTED REPLACEMENT DATE FOR FLOOR COVERING"
^DD(6928,8.5,21,0)="^^1^1^2930430^"
^DD(6928,8.5,21,1,0)="Scheduled replacement date for floor covering."
^DD(6928,8.5,"DT")="2850508"
^DD(6928,9,0)="CEILING^S^G:GRID;P:PLASTER;C:CONCRETE;O:OTHER;^2;6^Q"
^DD(6928,9,21,0)="^^1^1^2930430^"
^DD(6928,9,21,1,0)="Type of ceiling found in this room."
^DD(6928,9,"DT")="2840913"
^DD(6928,9.2,0)="CEILING FINISH DESCRIPTION^F^^7;3^K:$L(X)>15!($L(X)<3) X"
^DD(6928,9.2,3)="Answer must be 3-15 characters in length."
^DD(6928,9.2,21,0)="^^1^1^2930430^"
^DD(6928,9.2,21,1,0)="Brief descriptor of ceiling finish.  Locally defined."
^DD(6928,9.2,"DT")="2910214"
^DD(6928,9.5,0)="CEILING REPLACEMENT DATE^D^^0;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(6928,9.5,3)="ENTER PROJECTED REPLACEMENT DATE FOR CEILING TILE OR FINISH."
^DD(6928,9.5,21,0)="^^1^1^2930430^"
^DD(6928,9.5,21,1,0)="Scheduled date for replacement of existing ceiling."
^DD(6928,9.5,"DT")="2850508"
^DD(6928,10,0)="LIGHTING^6928.04S^^6;0"
^DD(6928,10,21,0)="^^1^1^2930430^"
^DD(6928,10,21,1,0)="Type and quantity of permanent light fixtures."
^DD(6928,10,"DT")="2840913"
^DD(6928,11,0)="WINDOWS^NJ2,0^^2;8^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928,11,.1)="W N D"
^DD(6928,11,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(6928,11,21,0)="^^1^1^2930430^"
^DD(6928,11,21,1,0)="Number of outside windows in this room."
^DD(6928,11,"DT")="2840913"
^DD(6928,11.5,0)="WINDOW TYPE^S^SS:SINGLE HUNG/SINGLE GLAZED;SD:SINGLE HUNG/DOUBLE GLAZED;DS:DOUBLE HUNG/SINGLE GLAZED;DD:DOUBLE HUNG/DOUBLE GLAZED;O:OTHER;^0;16^Q"
^DD(6928,11.5,3)="SELECT MOST APPROPRIATE WINDOW TYPE"
^DD(6928,11.5,21,0)="^^1^1^2930430^"
^DD(6928,11.5,21,1,0)="Type of window (if any) found in this room."
^DD(6928,11.5,"DT")="2850914"
^DD(6928,12,0)="DRAPES^NJ2,0^^2;9^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928,12,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(6928,12,21,0)="^^1^1^2930430^"
^DD(6928,12,21,1,0)="Number of draperies (sets) found in this room."
^DD(6928,12,"DT")="2840913"
^DD(6928,13,0)="CUB. CTNS.^NJ2,0^^2;10^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928,13,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 99"
^DD(6928,13,21,0)="^^1^1^2930430^"
^DD(6928,13,21,1,0)="Number of ceiling mounted cubicle curtains found in this room."
^DD(6928,13,"DT")="2840913"
^DD(6928,13.5,0)="DOORS^NJ1,0^^0;18^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6928,13.5,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 9"
^DD(6928,13.5,21,0)="^^1^1^2930430^"
^DD(6928,13.5,21,1,0)="Number of doors in this room."
^DD(6928,13.5,"DT")="2850529"
^DD(6928,14,0)="UTILITIES^6928.01P^^1;0"
^DD(6928,14,21,0)="^^1^1^2930430^"
^DD(6928,14,21,1,0)="Standard hospital utilities, selected from a file of same."
^DD(6928,14,"DT")="2850409"
^DD(6928,15,0)="BLDG MNGT AMIS CLASS^S^1:PSYCHIATRY;2:INTERMEDIATE;3:MEDICINE;4:NEUROLOGY;5:R.M.S.;6:S.C.I.;7:SURGERY;8:N.H.C.U.;9:DOMICILIARY;10:CLINICS;11:DENTAL;12:RESEARCH;13:ADMIN.;14:OTHER;^4;3^Q"
^DD(6928,15,21,0)="^^3^3^2930430^^^"
^DD(6928,15,21,1,0)="Entry indicates one of the 14 divisions on the AMIS form VA-10-6007a."
^DD(6928,15,21,2,0)="This will be used to generate a report from the Space Survey Report "
^DD(6928,15,21,3,0)="menu for use by Building Management Service for quarterly AMIS reporting."
^DD(6928,15,"DT")="2900429"
^DD(6928,16,0)="RCS 10-0141(14-4)^S^Y:YES;N:NO;^2;13^Q"
^DD(6928,16,.1)="14 -4"
^DD(6928,16,3)="ENTER ""Y"" IF OWING SERVICE IS REPORTABLE ON RCS 10-0141 REPORT. (OLD RCS 14-4)"
^DD(6928,16,21,0)="^^2^2^2930430^"
^DD(6928,16,21,1,0)="Indicator of whether or not RCS 10-0141(14-4) report is to be"
^DD(6928,16,21,2,0)="produced from the Engineering Package."
^DD(6928,16,"DT")="2850831"
^DD(6928,17,0)="COMMENTS^6928.02^^3;0"
^DD(6928,17,21,0)="^^1^1^2930430^"
^DD(6928,17,21,1,0)="General comments pertinent to this location."
^DD(6928,18,0)="SYNONYM^6928.018^^8;0"
^DD(6928,18,21,0)="^^3^3^2921106^"
^DD(6928,18,21,1,0)="Alternative (informal) designations of physical locations.  For"
^DD(6928,18,21,2,0)="example, room 214A-137 may be better known as room 1 of the MICU."
^DD(6928,18,21,3,0)="In this case, you could use MICU-1 as a synonym for room 214A-137."
^DD(6928,19,0)="INVERSE LOCATION^FI^^9;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X"
^DD(6928,19,1,0)="^.1"
^DD(6928,19,1,1,0)="6928^AD"
^DD(6928,19,1,1,1)="S ^ENG(""SP"",""AD"",$E(X,1,30),DA)="""""
^DD(6928,19,1,1,2)="K ^ENG(""SP"",""AD"",$E(X,1,30),DA)"
^DD(6928,19,1,1,"DT")="2930318"
^DD(6928,19,3)="Answer must be 3-20 characters in length."
^DD(6928,19,21,0)="^^4^4^2930430^"
^DD(6928,19,21,1,0)="Reversal of the standard room descriptor, using full colons as"
^DD(6928,19,21,2,0)="separators.  Result is of the form 'DIVISION:BUILDING:ROOM'."
^DD(6928,19,21,3,0)="Maintained by the system automatically.  Intended for use in"
^DD(6928,19,21,4,0)="FileMan print specifications."
^DD(6928,19,"DT")="2930318"
^DD(6928,"B","14 -4",16)="1"
^DD(6928,"B","B E D",5)="1"
^DD(6928,"B","BED TYPE",5.5)=""
^DD(6928,"B","BEDS",5)=""
^DD(6928,"B","BLDG MNGT AMIS CLASS",15)=""
^DD(6928,"B","BUILDING FILE POINTER",.51)=""
^DD(6928,"B","BUILDING NUMBER",.5)=""
^DD(6928,"B","CEILING",9)=""
^DD(6928,"B","CEILING FINISH DESCRIPTION",9.2)=""
^DD(6928,"B","CEILING HT",3.7)=""
^DD(6928,"B","CEILING REPLACEMENT DATE",9.5)=""
^DD(6928,"B","COMMENTS",17)=""
^DD(6928,"B","COMPUTED SQ.FT.",4)=""
^DD(6928,"B","CUB. CTNS.",13)=""
^DD(6928,"B","DIVISION",.6)=""
^DD(6928,"B","DOORS",13.5)=""
^DD(6928,"B","DRAPES",12)=""
^DD(6928,"B","FLOOR",8)=""
^DD(6928,"B","FLOOR FINISH DESCRIPTION",8.2)=""
^DD(6928,"B","FLOOR REPLACEMENT DATE",8.5)=""
^DD(6928,"B","FUNCTION",2.6)=""
^DD(6928,"B","FUNCTION(FREE TEXT)",2.5)=""
^DD(6928,"B","H-08-9 CRITERIA",4.9)=""
^DD(6928,"B","INVERSE LOCATION",19)=""
^DD(6928,"B","KEY",2)=""
^DD(6928,"B","LENGTH IN FT.",3)=""
^DD(6928,"B","LESSOR",.8)=""
^DD(6928,"B","LIGHTING",10)=""
^DD(6928,"B","NET SQ.FT.",4.5)=""
^DD(6928,"B","OTHER KEY",2.1)=""
^DD(6928,"B","RCS 10-0141(14-4)",16)=""
^DD(6928,"B","ROOM NUMBER",.01)=""
^DD(6928,"B","SERVICE",1.5)=""
^DD(6928,"B","SPACE GUIDE",4.7)=""
^DD(6928,"B","SPECIAL CHARACTERISTICS",6)=""
^DD(6928,"B","SYNONYM",18)=""
^DD(6928,"B","UTILITIES",14)=""
^DD(6928,"B","W N D",11)="1"
^DD(6928,"B","WALL",7)=""
^DD(6928,"B","WALL FINISH DESCRIPTION",7.2)=""
^DD(6928,"B","WALL REPLACEMENT DATE",7.5)=""
^DD(6928,"B","WIDTH IN FT.",3.5)=""
^DD(6928,"B","WINDOW TYPE",11.5)=""
^DD(6928,"B","WINDOWS",11)=""
^DD(6928,"B","WING",1)=""
^DD(6928,"GL",0,1,.01)=""
^DD(6928,"GL",0,2,.5)=""
^DD(6928,"GL",0,3,1)=""
^DD(6928,"GL",0,4,1.5)=""
^DD(6928,"GL",0,5,2)=""
^DD(6928,"GL",0,6,2.5)=""
^DD(6928,"GL",0,7,3)=""
^DD(6928,"GL",0,8,3.5)=""
^DD(6928,"GL",0,9,4.5)=""
^DD(6928,"GL",0,10,.6)=""
^DD(6928,"GL",0,11,7.5)=""
^DD(6928,"GL",0,12,8.5)=""
^DD(6928,"GL",0,13,9.5)=""
^DD(6928,"GL",0,14,.51)=""
^DD(6928,"GL",0,16,11.5)=""
^DD(6928,"GL",0,17,5.5)=""
^DD(6928,"GL",0,18,13.5)=""
^DD(6928,"GL",1,0,14)=""
^DD(6928,"GL",2,2,5)=""
^DD(6928,"GL",2,3,6)=""
^DD(6928,"GL",2,4,7)=""
^DD(6928,"GL",2,5,8)=""
^DD(6928,"GL",2,6,9)=""
^DD(6928,"GL",2,8,11)=""
^DD(6928,"GL",2,9,12)=""
^DD(6928,"GL",2,10,13)=""
^DD(6928,"GL",2,13,16)=""
^DD(6928,"GL",3,0,17)=""
^DD(6928,"GL",4,1,2.6)=""
^DD(6928,"GL",4,2,3.7)=""
^DD(6928,"GL",4,3,15)=""
^DD(6928,"GL",4,4,4.7)=""
^DD(6928,"GL",5,0,2.1)=""
^DD(6928,"GL",6,0,10)=""
^DD(6928,"GL",7,1,7.2)=""
^DD(6928,"GL",7,2,8.2)=""
^DD(6928,"GL",7,3,9.2)=""
^DD(6928,"GL",8,0,18)=""
^DD(6928,"GL",9,1,19)=""
^DD(6928,"GL",9,2,4.9)=""
^DD(6928,"GR","{",.01,1)=""
^DD(6928,"IX",.01)=""
^DD(6928,"IX",.5)=""
^DD(6928,"IX",.51)=""
^DD(6928,"IX",1)=""
^DD(6928,"IX",1.5)=""
^DD(6928,"IX",2.6)=""
^DD(6928,"IX",19)=""
^DD(6928,"RQ",.01)=""
^DD(6928,"SB",6928.01,14)=""
^DD(6928,"SB",6928.018,18)=""
^DD(6928,"SB",6928.02,17)=""
^DD(6928,"SB",6928.03,2.1)=""
^DD(6928,"SB",6928.04,10)=""
^DD(6928,"TRB",6928,.01,2,.5)=""
^DD(6928.01,0)="UTILITIES SUB-FIELD^NL^.01^1"
^DD(6928.01,0,"NM","UTILITIES")=""
^DD(6928.01,0,"UP")="6928"
^DD(6928.01,.01,0)="UTILITIES^MP6928.2'^ENG(6928.2,^0;1^Q"
^DD(6928.01,.01,3)="CHOOSE UTILITIES THAT ARE AVAILABLE IN THIS SPACE"
^DD(6928.01,.01,"DT")="2860429"
^DD(6928.01,"B","UTILITIES",.01)=""
^DD(6928.01,"GL",0,1,.01)=""
^DD(6928.018,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(6928.018,0,"DT")="2921106"
^DD(6928.018,0,"IX","B",6928.018,.01)=""
^DD(6928.018,0,"NM","SYNONYM")=""
^DD(6928.018,0,"UP")="6928"
^DD(6928.018,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(6928.018,.01,1,0)="^.1"
^DD(6928.018,.01,1,1,0)="6928.018^B"
^DD(6928.018,.01,1,1,1)="S ^ENG(""SP"",DA(1),8,""B"",$E(X,1,30),DA)="""""
^DD(6928.018,.01,1,1,2)="K ^ENG(""SP"",DA(1),8,""B"",$E(X,1,30),DA)"
^DD(6928.018,.01,1,2,0)="6928^F"
^DD(6928.018,.01,1,2,1)="S ^ENG(""SP"",""F"",$E(X,1,30),DA(1),DA)="""""
^DD(6928.018,.01,1,2,2)="K ^ENG(""SP"",""F"",$E(X,1,30),DA(1),DA)"
^DD(6928.018,.01,1,2,"DT")="2921106"
^DD(6928.018,.01,3)="Answer must be 3-30 characters in length."
^DD(6928.018,.01,"DT")="2921106"
^DD(6928.018,"B","SYNONYM",.01)=""
^DD(6928.018,"GL",0,1,.01)=""
^DD(6928.018,"IX",.01)=""
^DD(6928.02,0)="COMMENTS SUB-FIELD^NL^.01^1"
^DD(6928.02,0,"NM","COMMENTS")=""
^DD(6928.02,0,"UP")="6928"
^DD(6928.02,.01,0)="COMMENTS^W^^0;1^Q"
^DD(6928.02,.01,"DT")="2850529"
^DD(6928.02,"B","COMMENTS",.01)=""
^DD(6928.02,"GL",0,1,.01)=""
^DD(6928.03,0)="OTHER KEY SUB-FIELD^NL^.01^1"
^DD(6928.03,0,"NM","OTHER KEY")=""
^DD(6928.03,0,"UP")="6928"
^DD(6928.03,.01,0)="OTHER KEY^MF^^0;1^K:$L(X)>20!($L(X)<1)!'(X?1AN.ANP) X"
^DD(6928.03,.01,3)="Answer must be 1-20 characters in length."
^DD(6928.03,.01,4)="W !,""Enter multiple free text entries for other keys that have been added to this"",!,""Lock other than the one selected in the KEY field. The KEY field is a pointer"",!,""to the LOCK file"""
^DD(6928.03,.01,"DT")="2990707"
^DD(6928.03,"B","OTHER KEY",.01)=""
^DD(6928.03,"GL",0,1,.01)=""
^DD(6928.04,0)="LIGHTING SUB-FIELD^NL^2^3"
^DD(6928.04,0,"DT")="2921110"
^DD(6928.04,0,"NM","LIGHTING")=""
^DD(6928.04,0,"UP")="6928"
^DD(6928.04,.01,0)="LIGHTING^MS^F:FLOURESCENT;I:INCANDESCENT;O:OTHER;^0;1^Q"
^DD(6928.04,.01,"DT")="2860502"
^DD(6928.04,1,0)="FIXTURE QTY^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6928.04,1,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 99"
^DD(6928.04,1,21,0)="^^1^1^2930430^"
^DD(6928.04,1,21,1,0)="Number of permanent light fixtures."
^DD(6928.04,1,"DT")="2850914"
^DD(6928.04,2,0)="WATTAGE^NJ4,0^^0;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6928.04,2,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(6928.04,2,21,0)="^^1^1^2930430^"
^DD(6928.04,2,21,1,0)="Wattage of each light fixture."
^DD(6928.04,2,"DT")="2921110"
^DD(6928.04,"B","FIXTURE QTY",1)=""
^DD(6928.04,"B","LIGHTING",.01)=""
^DD(6928.04,"B","WATTAGE",2)=""
^DD(6928.04,"GL",0,1,.01)=""
^DD(6928.04,"GL",0,2,1)=""
^DD(6928.04,"GL",0,3,2)=""
^DD(6928.1,0)="FIELD^^1^2"
^DD(6928.1,0,"DDA")="N"
^DD(6928.1,0,"IX","B",6928.1,.01)=""
^DD(6928.1,0,"NM","ENG SPACE FUNCTIONS")=""
^DD(6928.1,0,"PT",6928,2.6)=""
^DD(6928.1,0,"VR")="7.0"
^DD(6928.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?.ANP) X"
^DD(6928.1,.01,1,0)="^.1"
^DD(6928.1,.01,1,1,0)="6928.1^B"
^DD(6928.1,.01,1,1,1)="S ^ENG(6928.1,""B"",$E(X,1,30),DA)="""""
^DD(6928.1,.01,1,1,2)="K ^ENG(6928.1,""B"",$E(X,1,30),DA)"
^DD(6928.1,.01,3)="Answer must be 3-30 characters in length."
^DD(6928.1,.01,21,0)="^^1^1^2990706^^^"
^DD(6928.1,.01,21,1,0)="Common types of functional areas found in most VA facilities."
^DD(6928.1,.01,"DT")="2990706"
^DD(6928.1,1,0)="CRITERIA SPACE (NSF)^NJ4,0^^0;2^K:+X'=X!(X>5000)!(X<10)!(X?.E1"".""1N.N) X"
^DD(6928.1,1,3)="Type a Number between 10 and 5000, 0 Decimal Digits"
^DD(6928.1,1,21,0)="^^2^2^2930430^^^"
^DD(6928.1,1,21,1,0)="Amount of space (net square feet) authorized by H-08 Program Guides for"
^DD(6928.1,1,21,2,0)="this particular function."
^DD(6928.1,1,"DT")="2880601"
^DD(6928.1,"B","CRITERIA SPACE (NSF)",1)=""
^DD(6928.1,"B","NAME",.01)=""
^DD(6928.1,"GL",0,1,.01)=""
^DD(6928.1,"GL",0,2,1)=""
^DD(6928.1,"IX",.01)=""
^DD(6928.1,"RQ",.01)=""
^DD(6928.2,0)="FIELD^^.01^1"
^DD(6928.2,0,"DDA")="N"
^DD(6928.2,0,"IX","B",6928.2,.01)=""
^DD(6928.2,0,"NM","ENG SPACE UTILITIES")=""
^DD(6928.2,0,"PT",6928.01,.01)=""
^DD(6928.2,0,"VR")="7.0"
^DD(6928.2,.01,0)="UTILITY^RFX^^0;1^K:$L(X)>30!($L(X)<3)!(X'?.ANP) X"
^DD(6928.2,.01,1,0)="^.1"
^DD(6928.2,.01,1,1,0)="6928.2^B"
^DD(6928.2,.01,1,1,1)="S ^ENG(6928.2,""B"",$E(X,1,30),DA)="""""
^DD(6928.2,.01,1,1,2)="K ^ENG(6928.2,""B"",$E(X,1,30),DA)"
^DD(6928.2,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(6928.2,.01,21,0)="^^1^1^2850626^"
^DD(6928.2,.01,21,1,0)="Description of available utilities in the facility"
^DD(6928.2,"B","UTILITY",.01)=""
^DD(6928.2,"GL",0,1,.01)=""
^DD(6928.2,"IX",.01)=""
^DD(6928.2,"RQ",.01)=""
^DD(6928.3,0)="FIELD^^21^34"
^DD(6928.3,0,"DDA")="N"
^DD(6928.3,0,"DT")="2930428"
^DD(6928.3,0,"IX","B",6928.3,.01)=""
^DD(6928.3,0,"IX","D",6928.3,.2)=""
^DD(6928.3,0,"NM","ENG BUILDING")=""
^DD(6928.3,0,"PT",6925.0177,.01)=""
^DD(6928.3,0,"PT",6928,.51)=""
^DD(6928.3,0,"VR")="7.0"
^DD(6928.3,.01,0)="NAME^RFX^^0;1^K:$L(X)>10!($L(X)<1) X D:'$D(X) EN^DDIOL(""  (10 character maximum.)"") I $D(X) D BLDG^ENLIB1"
^DD(6928.3,.01,1,0)="^.1"
^DD(6928.3,.01,1,1,0)="6928.3^B"
^DD(6928.3,.01,1,1,1)="S ^ENG(6928.3,""B"",$E(X,1,30),DA)="""""
^DD(6928.3,.01,1,1,2)="K ^ENG(6928.3,""B"",$E(X,1,30),DA)"
^DD(6928.3,.01,1,2,0)="^^TRIGGER^6928.3^.2"
^DD(6928.3,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y X ^DD(6928.3,.01,1,2,1.1) X ^DD(6928.3,.01,1,2,1.4)"
^DD(6928.3,.01,1,2,1.1)="S X=DIV S X=DIV,Y(1)=X S X=""-"",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)"
^DD(6928.3,.01,1,2,1.4)="S DIH=$S($D(^ENG(6928.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=6928.3,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6928.3,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ENG(6928.3,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="""" X ^DD(6928.3,.01,1,2,2.4)"
^DD(6928.3,.01,1,2,2.4)="S DIH=$S($D(^ENG(6928.3,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,16)=DIV,DIH=6928.3,DIG=.2 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(6928.3,.01,1,2,3)="This field is TRIGGERED by BUILDING NAME."
^DD(6928.3,.01,1,2,"CREATE VALUE")="$P(NAME,""-"",2)"
^DD(6928.3,.01,1,2,"DELETE VALUE")="@"
^DD(6928.3,.01,1,2,"DT")="2961016"
^DD(6928.3,.01,1,2,"FIELD")="DIV"
^DD(6928.3,.01,3)="ANSWER MUST BE 1-10 CHARACTERS IN LENGTH, NO MORE THAN ONE HYPHEN"
^DD(6928.3,.01,21,0)="^^21^21^2900906^^^^"
^DD(6928.3,.01,21,1,0)=" Building identifier. Used for data validation when entries are made"
^DD(6928.3,.01,21,2,0)="in the Space File. Building NAME should consist of either one or two"
^DD(6928.3,.01,21,3,0)="pieces, separated by the hyphen (""-""). The rule is this:"
^DD(6928.3,.01,21,4,0)="   1. Sites where building designations are unique in and"
^DD(6928.3,.01,21,5,0)="   of themselves should have one-piece entries in this file."
^DD(6928.3,.01,21,6,0)="   Building NAME's should not contain any hyphens."
^DD(6928.3,.01,21,7,0)="   2. Sites where building designations are not necessarily"
^DD(6928.3,.01,21,8,0)="   unique (multi-division sites and perhaps sites that support"
^DD(6928.3,.01,21,9,0)="   remote clinics and/or other quasi-independent offices)"
^DD(6928.3,.01,21,10,0)="   should use a two-piece format. The second piece should"
^DD(6928.3,.01,21,11,0)="   designate the division, outpatient clinic, Regional Office,"
^DD(6928.3,.01,21,12,0)="   etc. Building NAME's should contain only one hyphen, which"
^DD(6928.3,.01,21,13,0)="   will be treated as the delimiter between 'building' and"
^DD(6928.3,.01,21,14,0)="   'division'."
^DD(6928.3,.01,21,15,0)=" Building NAME's should be kept as short as possible since they"
^DD(6928.3,.01,21,16,0)="will be printed on each bar coded LOCATION LABEL. It will be"
^DD(6928.3,.01,21,17,0)="difficult to fit lengthy building NAME's onto bar code labels"
^DD(6928.3,.01,21,18,0)="of standard size. Assuming three inch width and Code 39 symbology,"
^DD(6928.3,.01,21,19,0)="bar coded LOCATION LABEL's can accomodate about thirteen (13)"
^DD(6928.3,.01,21,20,0)="characters total. In particular, it is suggested that 'division'"
^DD(6928.3,.01,21,21,0)="designations be no more than two or three characters long."
^DD(6928.3,.01,"DT")="2961016"
^DD(6928.3,.2,0)="DIVISION^F^^0;16^K:$L(X)>5!($L(X)<1)!'(X?.AN) X"
^DD(6928.3,.2,1,0)="^.1"
^DD(6928.3,.2,1,1,0)="6928.3^D"
^DD(6928.3,.2,1,1,1)="S ^ENG(6928.3,""D"",$E(X,1,30),DA)="""""
^DD(6928.3,.2,1,1,2)="K ^ENG(6928.3,""D"",$E(X,1,30),DA)"
^DD(6928.3,.2,1,1,"DT")="2961016"
^DD(6928.3,.2,3)="Answer must be 1-5 characters in length."
^DD(6928.3,.2,5,1,0)="6928.3^.01^2"
^DD(6928.3,.2,9)="^"
^DD(6928.3,.2,21,0)="^^1^1^2961016^"
^DD(6928.3,.2,21,1,0)="DIVISION (broadly defined) in which this BUILDING is located."
^DD(6928.3,.2,"DT")="2961016"
^DD(6928.3,.5,0)="OWNERSHIP^S^V:VAMC;L:LEASED;P:PLANNED;VBA:VET BENEFITS ADM;NCS:NAT CEMETERY SERV;O:OTHER;^0;15^Q"
^DD(6928.3,.5,3)="Enter the appropriate code for this building ownership."
^DD(6928.3,.5,21,0)="^^2^2^2930428^^^^"
^DD(6928.3,.5,21,1,0)="Denotes whether or not space is being leased, owned by a VA department,"
^DD(6928.3,.5,21,2,0)="or entered for project planning purposes."
^DD(6928.3,.5,"DT")="2960621"
^DD(6928.3,1,0)="OWNER^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,1,3)="Answer must be 3-30 characters in length."
^DD(6928.3,1,21,0)="2^^2^2^2930420^"
^DD(6928.3,1,21,1,0)="The name of the individual, corporation, or government agency that"
^DD(6928.3,1,21,2,0)="owns the building.  Especially important in the case of leased space."
^DD(6928.3,1,"DT")="2930321"
^DD(6928.3,2,0)="OWNER ADDRESS1^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,2,3)="Answer must be 3-30 characters in length."
^DD(6928.3,2,21,0)="^^1^1^2930422^^"
^DD(6928.3,2,21,1,0)="Street address of the building's owner (line 1)."
^DD(6928.3,2,"DT")="2930422"
^DD(6928.3,3,0)="OWNER ADDRESS2^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,3,3)="Answer must be 3-30 characters in length."
^DD(6928.3,3,21,0)="^^1^1^2930321^"
^DD(6928.3,3,21,1,0)="Street address of building's owner (line 2)."
^DD(6928.3,3,"DT")="2930422"
^DD(6928.3,4,0)="OWNER CITY^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,4,3)="Answer must be 3-30 characters in length."
^DD(6928.3,4,21,0)="^^1^1^2930321^"
^DD(6928.3,4,21,1,0)="Pertains to the building's owner."
^DD(6928.3,4,"DT")="2930422"
^DD(6928.3,5,0)="OWNER STATE^P5'^DIC(5,^0;6^Q"
^DD(6928.3,5,21,0)="^^1^1^2930422^^"
^DD(6928.3,5,21,1,0)="Pertains to building's owner."
^DD(6928.3,5,"DT")="2930422"
^DD(6928.3,5.1,0)="OWNER ZIP CODE^F^^0;14^K:$L(X)>10!($L(X)<5) X"
^DD(6928.3,5.1,3)="Answer must be 5-10 characters in length."
^DD(6928.3,5.1,21,0)="^^1^1^2930422^^^^"
^DD(6928.3,5.1,21,1,0)="Pertains to building's owner."
^DD(6928.3,5.1,"DT")="2930422"
^DD(6928.3,5.3,0)="PROPERTY ADDRESS1^F^^3;3^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,5.3,3)="Answer must be 3-30 characters in length."
^DD(6928.3,5.3,21,0)="^^1^1^2930422^"
^DD(6928.3,5.3,21,1,0)="Pertains to address of the property"
^DD(6928.3,5.3,"DT")="2930422"
^DD(6928.3,5.4,0)="PROPERTY ADDRESS2^F^^3;4^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,5.4,3)="Answer must be 3-30 characters in length."
^DD(6928.3,5.4,21,0)="^^1^1^2930422^"
^DD(6928.3,5.4,21,1,0)="Pertains to address of property"
^DD(6928.3,5.4,"DT")="2930422"
^DD(6928.3,5.5,0)="PROPERTY CITY^F^^3;5^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,5.5,3)="Answer must be 3-30 characters in length."
^DD(6928.3,5.5,21,0)="^^1^1^2930422^"
^DD(6928.3,5.5,21,1,0)="Pertains to address of property"
^DD(6928.3,5.5,"DT")="2930422"
^DD(6928.3,5.6,0)="PROPERTY STATE^P5'^DIC(5,^3;6^Q"
^DD(6928.3,5.6,3)=""
^DD(6928.3,5.6,21,0)="^^1^1^2930422^^^"
^DD(6928.3,5.6,21,1,0)="Pertains to State in which property resides"
^DD(6928.3,5.6,"DT")="2930422"
^DD(6928.3,5.7,0)="PROPERTY ZIP CODE^F^^3;7^K:$L(X)>10!($L(X)<5) X"
^DD(6928.3,5.7,3)="Answer must be 5-10 characters in length."
^DD(6928.3,5.7,21,0)="^^1^1^2930422^^^"
^DD(6928.3,5.7,21,1,0)="Pertains to address of property"
^DD(6928.3,5.7,"DT")="2930422"
^DD(6928.3,6,0)="CONTRACT #^F^^0;7^K:$L(X)>12!($L(X)<3) X"
^DD(6928.3,6,3)="Answer must be 3-12 characters in length."
^DD(6928.3,6,21,0)="^^1^1^2930321^"
^DD(6928.3,6,21,1,0)="Contract under which building is leased."
^DD(6928.3,6,"DT")="2930321"
^DD(6928.3,7,0)="LEASE TYPE^S^C:CAPITAL;O:OPERATING;OTHER:OTHER;^0;8^Q"
^DD(6928.3,7,21,0)="^^1^1^2930422^^^"
^DD(6928.3,7,21,1,0)="Type of leasing agreement."
^DD(6928.3,7,"DT")="2930422"
^DD(6928.3,7.1,0)="LEASE CONTACT PERSON^F^^3;8^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,7.1,3)="Answer must be 3-30 characters in length."
^DD(6928.3,7.1,21,0)="^^1^1^2930422^^"
^DD(6928.3,7.1,21,1,0)="Name of person (Lessor) to contact for information on this lease"
^DD(6928.3,7.1,"DT")="2930422"
^DD(6928.3,7.2,0)="CONTACT PHONE NUMBER^F^^3;9^K:$L(X)>25!($L(X)<7) X"
^DD(6928.3,7.2,3)="Answer must be 7-25 characters in length."
^DD(6928.3,7.2,21,0)="^^1^1^2930422^"
^DD(6928.3,7.2,21,1,0)="Phone number of lessor contact person"
^DD(6928.3,7.2,"DT")="2930422"
^DD(6928.3,7.3,0)="LEASE PROPERTY/SITE NAME^F^^3;10^K:$L(X)>30!($L(X)<3) X"
^DD(6928.3,7.3,3)="Answer must be 3-30 characters in length."
^DD(6928.3,7.3,21,0)="^^2^2^2930422^^"
^DD(6928.3,7.3,21,1,0)="Text name of Property/Building. Common name of site to be used as"
^DD(6928.3,7.3,21,2,0)="a more descriptive field than the Building Number field."
^DD(6928.3,7.3,"DT")="2930422"
^DD(6928.3,8,0)="BASE TERM (MONTHS)^NJ3,0^^0;9^K:+X'=X!(X>240)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928.3,8,3)="Type a Number between 0 and 240, 0 Decimal Digits"
^DD(6928.3,8,21,0)="^^1^1^2930321^"
^DD(6928.3,8,21,1,0)="Term of lease."
^DD(6928.3,8,"DT")="2930321"
^DD(6928.3,9,0)="RENEWAL TERM (MONTHS)^NJ2,0^^0;10^K:+X'=X!(X>60)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928.3,9,3)="Type a Number between 0 and 60, 0 Decimal Digits"
^DD(6928.3,9,21,0)="^^1^1^2930321^"
^DD(6928.3,9,21,1,0)="Period for which lease may be renewed once the BASE TERM has expired."
^DD(6928.3,9,"DT")="2930321"
^DD(6928.3,10,0)="DATE SIGNED^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6928.3,10,21,0)="^^1^1^2930321^"
^DD(6928.3,10,21,1,0)="Date on which current leasing documents were signed."
^DD(6928.3,10,"DT")="2930321"
^DD(6928.3,11,0)="BEGINNING DATE^D^^0;12^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6928.3,11,21,0)="^^1^1^2930321^"
^DD(6928.3,11,21,1,0)="Starting date of current lease."
^DD(6928.3,11,"DT")="2930321"
^DD(6928.3,12,0)="ENDING DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(6928.3,12,21,0)="^^1^1^2930321^"
^DD(6928.3,12,21,1,0)="Expiration date of current lease."
^DD(6928.3,12,"DT")="2930321"
^DD(6928.3,13,0)="NET USABLE SQUARE FEET^NJ7,0^^1;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928.3,13,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6928.3,13,21,0)="^^1^1^2930422^^^"
^DD(6928.3,13,21,1,0)="Net Usable area in square feet."
^DD(6928.3,13,"DT")="2930321"
^DD(6928.3,13.5,0)="GROSS SQUARE FEET^NJ7,0^^3;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928.3,13.5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6928.3,13.5,21,0)="^^1^1^2930422^"
^DD(6928.3,13.5,21,1,0)="Gross square feet of building."
^DD(6928.3,13.5,"DT")="2930422"
^DD(6928.3,14,0)="TOTAL RENT (INCLUDE UTILITIES)^NJ7,0^^1;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928.3,14,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6928.3,14,21,0)="^^2^2^2930422^^"
^DD(6928.3,14,21,1,0)="Annual rent paid for use of this building.  Should include all"
^DD(6928.3,14,21,2,0)="utilities (estimate if necessary)."
^DD(6928.3,14,"DT")="2930422"
^DD(6928.3,15,0)="ACTIVATION COSTS^NJ7,0^^1;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928.3,15,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6928.3,15,21,0)="^^3^3^2930422^^^"
^DD(6928.3,15,21,1,0)="Cost of activating this building for VA use."
^DD(6928.3,15,21,2,0)="Total Dollars recieved for activation. Future software releases"
^DD(6928.3,15,21,3,0)="may provide a more detailed breakdown of activation costs."
^DD(6928.3,15,"DT")="2930422"
^DD(6928.3,16,0)="SPEC. PURPOSE ALTERATION COST^NJ7,0^^1;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(6928.3,16,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(6928.3,16,21,0)="^^1^1^2930422^^"
^DD(6928.3,16,21,1,0)="Cost of making this space usable for a special purpose."
^DD(6928.3,16,"DT")="2930422"
^DD(6928.3,17,0)="PERSONNEL ASSIGNED^NJ6,1^^1;5^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""2N.N) X"
^DD(6928.3,17,3)="Type a Number between 0 and 1000, 1 Decimal Digit"
^DD(6928.3,17,21,0)="^^1^1^2930422^^"
^DD(6928.3,17,21,1,0)="Engineering FTEE assigned to work in this building."
^DD(6928.3,17,"DT")="2930321"
^DD(6928.3,18,0)="ANCILARY COSTS^NJ10,2^^1;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(6928.3,18,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(6928.3,18,21,0)="^^1^1^2930428^^^"
^DD(6928.3,18,21,1,0)="Cost of ancilary services, equipment, maintenance contracts, etc."
^DD(6928.3,18,"DT")="2930428"
^DD(6928.3,19,0)="FUNDING SOURCE^S^VACO:VACO REAL ESTATE;VAMC:MEDICAL CENTER;REG:REGION;OTHER:OTHER;^1;7^Q"
^DD(6928.3,19,21,0)="^^1^1^2930421^^^"
^DD(6928.3,19,21,1,0)="Funding source for this lease or project."
^DD(6928.3,19,"DT")="2930421"
^DD(6928.3,20,0)="PROJECT NO.^P6925'^ENG(""PROJ"",^1;8^Q"
^DD(6928.3,20,3)="Enter a project from the CONSTRUCTION PROJECT file."
^DD(6928.3,20,4)="W !!,""Field used to referance a construction project for which a space plan"",!,""is being developed"",!"
^DD(6928.3,20,21,0)="^^4^4^2930421^^"
^DD(6928.3,20,21,1,0)="A space plan (IMFP) can be entered room by room under a proposed real"
^DD(6928.3,20,21,2,0)="Building Number or a fabricated Building Number. Each Room in the"
^DD(6928.3,20,21,3,0)="Space file for this project MUST referance this building number for"
^DD(6928.3,20,21,4,0)="sorting and planning purposes."
^DD(6928.3,20,"DT")="2930420"
^DD(6928.3,21,0)="REMARKS^6928.321^^2;0"
^DD(6928.3,21,21,0)="^^1^1^2930430^"
^DD(6928.3,21,21,1,0)="General comments pertinent to this building."
^DD(6928.3,"B","ACTIVATION COSTS",15)=""
^DD(6928.3,"B","ANCILARY COSTS",18)=""
^DD(6928.3,"B","BASE TERM (MONTHS)",8)=""
^DD(6928.3,"B","BEGINNING DATE",11)=""
^DD(6928.3,"B","CONTACT PHONE NUMBER",7.2)=""
^DD(6928.3,"B","CONTRACT #",6)=""
^DD(6928.3,"B","DATE SIGNED",10)=""
^DD(6928.3,"B","DIVISION",.2)=""
^DD(6928.3,"B","ENDING DATE",12)=""
^DD(6928.3,"B","FUNDING SOURCE",19)=""
^DD(6928.3,"B","GROSS SQUARE FEET",13.5)=""
^DD(6928.3,"B","LEASE CONTACT PERSON",7.1)=""
^DD(6928.3,"B","LEASE PROPERTY/SITE NAME",7.3)=""
^DD(6928.3,"B","LEASE TYPE",7)=""
^DD(6928.3,"B","NAME",.01)=""
^DD(6928.3,"B","NET USABLE SQUARE FEET",13)=""
^DD(6928.3,"B","OWNER",1)=""
^DD(6928.3,"B","OWNER ADDRESS1",2)=""
^DD(6928.3,"B","OWNER ADDRESS2",3)=""
^DD(6928.3,"B","OWNER CITY",4)=""
^DD(6928.3,"B","OWNER STATE",5)=""
^DD(6928.3,"B","OWNER ZIP CODE",5.1)=""
^DD(6928.3,"B","OWNERSHIP",.5)=""
^DD(6928.3,"B","PERSONNEL ASSIGNED",17)=""
^DD(6928.3,"B","PROJECT NO.",20)=""
^DD(6928.3,"B","PROPERTY ADDRESS1",5.3)=""
^DD(6928.3,"B","PROPERTY ADDRESS2",5.4)=""
^DD(6928.3,"B","PROPERTY CITY",5.5)=""
^DD(6928.3,"B","PROPERTY STATE",5.6)=""
^DD(6928.3,"B","PROPERTY ZIP CODE",5.7)=""
^DD(6928.3,"B","REMARKS",21)=""
^DD(6928.3,"B","RENEWAL TERM (MONTHS)",9)=""
^DD(6928.3,"B","SPEC. PURPOSE ALTERATION COST",16)=""
^DD(6928.3,"B","TOTAL RENT (INCLUDE UTILITIES)",14)=""
^DD(6928.3,"GL",0,1,.01)=""
^DD(6928.3,"GL",0,2,1)=""
^DD(6928.3,"GL",0,3,2)=""
^DD(6928.3,"GL",0,4,3)=""
^DD(6928.3,"GL",0,5,4)=""
^DD(6928.3,"GL",0,6,5)=""
^DD(6928.3,"GL",0,7,6)=""
^DD(6928.3,"GL",0,8,7)=""
^DD(6928.3,"GL",0,9,8)=""
^DD(6928.3,"GL",0,10,9)=""
^DD(6928.3,"GL",0,11,10)=""
^DD(6928.3,"GL",0,12,11)=""
^DD(6928.3,"GL",0,13,12)=""
^DD(6928.3,"GL",0,14,5.1)=""
^DD(6928.3,"GL",0,15,.5)=""
^DD(6928.3,"GL",0,16,.2)=""
^DD(6928.3,"GL",1,1,13)=""
^DD(6928.3,"GL",1,2,14)=""
^DD(6928.3,"GL",1,3,15)=""
^DD(6928.3,"GL",1,4,16)=""
^DD(6928.3,"GL",1,5,17)=""
^DD(6928.3,"GL",1,6,18)=""
^DD(6928.3,"GL",1,7,19)=""
^DD(6928.3,"GL",1,8,20)=""
^DD(6928.3,"GL",2,0,21)=""
^DD(6928.3,"GL",3,1,13.5)=""
^DD(6928.3,"GL",3,3,5.3)=""
^DD(6928.3,"GL",3,4,5.4)=""
^DD(6928.3,"GL",3,5,5.5)=""
^DD(6928.3,"GL",3,6,5.6)=""
^DD(6928.3,"GL",3,7,5.7)=""
^DD(6928.3,"GL",3,8,7.1)=""
^DD(6928.3,"GL",3,9,7.2)=""
^DD(6928.3,"GL",3,10,7.3)=""
^DD(6928.3,"IX",.01)=""
^DD(6928.3,"IX",.2)=""
^DD(6928.3,"RQ",.01)=""
^DD(6928.3,"SB",6928.321,21)=""
^DD(6928.321,0)="REMARKS SUB-FIELD^^.01^1"
^DD(6928.321,0,"DT")="2930321"
^DD(6928.321,0,"NM","REMARKS")=""
^DD(6928.321,0,"UP")="6928.3"
^DD(6928.321,.01,0)="REMARKS^W^^0;1^Q"
^DD(6928.321,.01,"DT")="2930321"
^DD(6928.321,"B","REMARKS",.01)=""
^DD(6928.321,"GL",0,1,.01)=""
^DD(6929,0)="FIELD^NL^13^20"
^DD(6929,0,"DDA")="N"
^DD(6929,0,"DT")="2961121"
^DD(6929,0,"IX","B",6929,.01)=""
^DD(6929,0,"NM","ENG EMPLOYEE")=""
^DD(6929,0,"PT",6911.01,1)=""
^DD(6929,0,"PT",6914,75)=""
^DD(6929,0,"PT",6914.04,1)=""
^DD(6929,0,"PT",6920,16)=""
^DD(6929,0,"PT",6920.02,.01)=""
^DD(6929,0,"PT",6922.31,.01)=""
^DD(6929,0,"VR")="7.0"
^DD(6929,0,"VRPK")="EN"
^DD(6929,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X["","")!(X'?.ANP) X"
^DD(6929,.01,.1)="EMPLOYEE'S NAME"
^DD(6929,.01,1,0)="^.1"
^DD(6929,.01,1,1,0)="6929^B"
^DD(6929,.01,1,1,1)="S ^ENG(""EMP"",""B"",$E(X,1,30),DA)="""""
^DD(6929,.01,1,1,2)="K ^ENG(""EMP"",""B"",$E(X,1,30),DA)"
^DD(6929,.01,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH AND CONTAIN A COMMA                -IE. LAST NAME, FIRST NAME"
^DD(6929,.01,21,0)="^^2^2^2970406^"
^DD(6929,.01,21,1,0)="Name of Engineering Service employee.  Last name, first name and"
^DD(6929,.01,21,2,0)="middle initial."
^DD(6929,.01,"DT")="2841206"
^DD(6929,.1,0)="ORGANIZATIONAL TITLE^FX^^.1;1^K:$L(X)>27!($L(X)<3)!(X'?.ANP) X"
^DD(6929,.1,3)="ANSWER MUST BE 3-27 CHARACTERS IN LENGTH"
^DD(6929,.1,21,0)="^^1^1^2930430^"
^DD(6929,.1,21,1,0)="Informal job title."
^DD(6929,.1,"DT")="2841206"
^DD(6929,.3,0)="SHOP^RP6922'^DIC(6922,^0;10^Q"
^DD(6929,.3,21,0)="^^1^1^2930430^"
^DD(6929,.3,21,1,0)="Engineering shop to which this employee is assigned."
^DD(6929,.5,0)="HOME STREET ADDRESS^F^^1;1^K:$L(X)>30!($L(X)<1)!'(X?.ANP) X"
^DD(6929,.5,3)="Answer must be 1-30 characters in length."
^DD(6929,.5,21,0)="^^1^1^2930430^"
^DD(6929,.5,21,1,0)="Street address, including house number, apartment number, etc."
^DD(6929,.5,"DT")="2961023"
^DD(6929,.6,0)="HOME CITY, STATE ZIP^FX^^1;2^K:$L(X)>30!($L(X)<1)!(X'?.ANP) X"
^DD(6929,.6,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(6929,.6,21,0)="^^1^1^2930430^"
^DD(6929,.6,21,1,0)="City, state and zip code of employee's residence."
^DD(6929,.6,"DT")="2841206"
^DD(6929,.7,0)="HOME PHONE^FX^^1;3^K:$L(X)>12!($L(X)<7)!(X'?.ANP) X"
^DD(6929,.7,3)="ANSWER MUST BE 7-12 CHARACTERS IN LENGTH"
^DD(6929,.7,21,0)="^^1^1^2930430^"
^DD(6929,.7,21,1,0)="Employee's home telephone number, including area code."
^DD(6929,.7,"DT")="2841206"
^DD(6929,1,0)="GRADE/STEP^FX^^0;2^K:$L(X)>8!($L(X)<3)!(X'?.ANP) X"
^DD(6929,1,3)="ANSWER MUST BE 3-8 CHARACTERS IN LENGTH"
^DD(6929,1,21,0)="^^1^1^2930430^"
^DD(6929,1,21,1,0)="Payroll grade and step."
^DD(6929,1,"DT")="2841206"
^DD(6929,2,0)="WAGE^RNJ6,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<1) X"
^DD(6929,2,3)="Type a Dollar Amount between 1 and 100, 2 Decimal Digits"
^DD(6929,2,21,0)="^^1^1^2930430^"
^DD(6929,2,21,1,0)="Hourly wage (base pay)."
^DD(6929,2,"DT")="2930430"
^DD(6929,2.1,0)="OT RATE^CJ8,2^^ ; ^S Y(2.1,1)=$S($D(^ENG(""EMP"",D0,0)):^(0),1:"""") S X=1.5*$P(Y(2.1,1),U,3) S X=$J(X,0,2)"
^DD(6929,2.1,9)="^"
^DD(6929,2.1,9.1)="(1.5*WAGE)"
^DD(6929,2.1,21,0)="^^1^1^2930430^"
^DD(6929,2.1,21,1,0)="Overtime wage, computed from base pay."
^DD(6929,2.4,0)="STATION^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(6929,2.4,3)="ANSWER MUST BE 1-30 CHARACTERS IN LENGTH"
^DD(6929,2.4,21,0)="^^1^1^2930430^"
^DD(6929,2.4,21,1,0)="Name of permanent duty station."
^DD(6929,2.4,"DT")="2851019"
^DD(6929,3,0)="ACTIVITY^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(6929,3,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(6929,3,21,0)="^^1^1^2930430^"
^DD(6929,3,21,1,0)="Number of the shop to which employee is assigned."
^DD(6929,3,"DT")="2951108"
^DD(6929,4,0)="ID#^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(6929,4,3)="Answer must be 1-20 characters in length."
^DD(6929,4,21,0)="^^1^1^2930430^^"
^DD(6929,4,21,1,0)="Unique identification number.  Assigned by Engineering Service."
^DD(6929,4,"DT")="2961121"
^DD(6929,5,0)="COST CENTER^P420.1'^PRCD(420.1,^0;6^Q"
^DD(6929,5,3)=""
^DD(6929,5,21,0)="^^2^2^2930430^"
^DD(6929,5,21,1,0)="Standardized cost center to which this employee's time is most"
^DD(6929,5,21,2,0)="often charged."
^DD(6929,5,"DT")="2860403"
^DD(6929,7,0)="STATUS^S^T:TEMP;P:PERM;V:VACATED;^0;7^Q"
^DD(6929,7,3)=""
^DD(6929,7,21,0)="^^1^1^2930430^"
^DD(6929,7,21,1,0)="Employment status."
^DD(6929,7,"DT")="2840914"
^DD(6929,8,0)="HOURLYRATE^CJ8,2^^ ; ^S Y(8,1)=$S($D(^ENG(""EMP"",D0,0)):^(0),1:""""),X=$P(Y(8,1),U,3)*1.085*100+.5\1/100 K Y(8)"
^DD(6929,8,9)="^"
^DD(6929,8,9.1)="WAGE*1.085*100+.5\1/100"
^DD(6929,8,21,0)="^^3^3^2930430^^"
^DD(6929,8,21,1,0)="Actual cost of this employee, including benefits.  Formula is not"
^DD(6929,8,21,2,0)="universally agreed to, so the Engineering Package bases calculations"
^DD(6929,8,21,3,0)="of labor costs on WAGE only."
^DD(6929,8.1,0)="ANNUALIZED ESTIMATE^CJ8,2^^ ; ^S Y(6929,8.1,1)=$S($D(^ENG(""EMP"",D0,0)):^(0),1:"""") S X=$P(Y(6929,8.1,1),U,3)*2087"
^DD(6929,8.1,9)="^"
^DD(6929,8.1,9.01)="6929^2"
^DD(6929,8.1,9.1)="WAGE*2087"
^DD(6929,8.1,21,0)="^^1^1^2930430^"
^DD(6929,8.1,21,1,0)="Annual salary, based on hourly wage.  Computed automatically."
^DD(6929,8.1,"DT")="2901114"
^DD(6929,10.5,0)="CLASSIFICATION SERIES^FX^^0;9^K:$L(X)>15!($L(X)<1)!(X'?.ANP) X"
^DD(6929,10.5,3)="ANSWER MUST BE 1-15 CHARACTERS IN LENGTH"
^DD(6929,10.5,21,0)="^^1^1^2930430^"
^DD(6929,10.5,21,1,0)="Personnel classification series applicable to this employee."
^DD(6929,10.5,"DT")="2841206"
^DD(6929,11,0)="POS. #^FX^^0;11^K:$L(X)>6!($L(X)<3)!(X'?.ANP) X"
^DD(6929,11,3)="ANSWER MUST BE 3-6 CHARACTERS IN LENGTH"
^DD(6929,11,21,0)="^^1^1^2930430^"
^DD(6929,11,21,1,0)="Position number.  Assigned by the facility."
^DD(6929,11,"DT")="2841206"
^DD(6929,12,0)="CLASSIFICATION TITLE^FX^^0;12^K:$L(X)>30!($L(X)<3)!(X'?.ANP) X"
^DD(6929,12,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(6929,12,21,0)="^^1^1^2930430^"
^DD(6929,12,21,1,0)="Formal title of the position being filled by this employee."
^DD(6929,12,"DT")="2841206"
^DD(6929,13,0)="HOSP.TELE.EXT.^FX^^0;13^K:$L(X)>10!($L(X)<4)!(X'?.ANP) X"
^DD(6929,13,3)="ANSWER MUST BE 4-10 CHARACTERS IN LENGTH"
^DD(6929,13,21,0)="^^1^1^2930430^"
^DD(6929,13,21,1,0)="Telephone extension on which this employee may be reached."
^DD(6929,13,"DT")="2841206"
^DD(6929,"B","ACTIVITY",3)=""
^DD(6929,"B","ANNUALIZED ESTIMATE",8.1)=""
^DD(6929,"B","CLASSIFICATION SERIES",10.5)=""
^DD(6929,"B","CLASSIFICATION TITLE",12)=""
^DD(6929,"B","COST CENTER",5)=""
^DD(6929,"B","EMPLOYEE'S NAME",.01)="1"
^DD(6929,"B","GRADE/STEP",1)=""
^DD(6929,"B","HOME CITY, STATE ZIP",.6)=""
^DD(6929,"B","HOME PHONE",.7)=""
^DD(6929,"B","HOME STREET ADDRESS",.5)=""
^DD(6929,"B","HOSP.TELE.EXT.",13)=""
^DD(6929,"B","HOURLYRATE",8)=""
^DD(6929,"B","ID#",4)=""
^DD(6929,"B","NAME",.01)=""
^DD(6929,"B","ORGANIZATIONAL TITLE",.1)=""
^DD(6929,"B","OT RATE",2.1)=""
^DD(6929,"B","POS. #",11)=""
^DD(6929,"B","SHOP",.3)=""
^DD(6929,"B","STATION",2.4)=""
^DD(6929,"B","STATUS",7)=""
^DD(6929,"B","WAGE",2)=""
^DD(6929,"GL",0,1,.01)=""
^DD(6929,"GL",0,2,1)=""
^DD(6929,"GL",0,3,2)=""
^DD(6929,"GL",0,4,3)=""
^DD(6929,"GL",0,5,4)=""
^DD(6929,"GL",0,6,5)=""
^DD(6929,"GL",0,7,7)=""
^DD(6929,"GL",0,8,2.4)=""
^DD(6929,"GL",0,9,10.5)=""
^DD(6929,"GL",0,10,.3)=""
^DD(6929,"GL",0,11,11)=""
^DD(6929,"GL",0,12,12)=""
^DD(6929,"GL",0,13,13)=""
^DD(6929,"GL",.1,1,.1)=""
^DD(6929,"GL",1,1,.5)=""
^DD(6929,"GL",1,2,.6)=""
^DD(6929,"GL",1,3,.7)=""
^DD(6929,"IX",.01)=""
^DD(6929,"RQ",.01)=""
^DD(6929,"RQ",.3)=""
^DD(6929,"RQ",2)=""
^DD(7100,0)="FIELD^^126^57"
^DD(7100,0,"DDA")="N"
^DD(7100,0,"DT")="2980719"
^DD(7100,0,"ID",1)="W:$D(^(1)) ""   "",$E(^(1),1,245)"
^DD(7100,0,"IX","AC",7100,2.1)=""
^DD(7100,0,"IX","ACN",7100,2.1)=""
^DD(7100,0,"IX","ACN1",7100,4)=""
^DD(7100,0,"IX","ADC",7100,82)=""
^DD(7100,0,"IX","ADID",7100,4.1)=""
^DD(7100,0,"IX","ADID1",7100,2.4)=""
^DD(7100,0,"IX","ADM",7100,4.1)=""
^DD(7100,0,"IX","ADM1",7100,3)=""
^DD(7100,0,"IX","ADO",7100,10)=""
^DD(7100,0,"IX","ADP",7100,4.1)=""
^DD(7100,0,"IX","ADP1",7100,3.1)=""
^DD(7100,0,"IX","ADSE",7100,4.3)=""
^DD(7100,0,"IX","ADSR",7100,4.2)=""
^DD(7100,0,"IX","ADSS",7100,4.4)=""
^DD(7100,0,"IX","ADUP",7100,102)=""
^DD(7100,0,"IX","AE",7100,5.2)=""
^DD(7100,0,"IX","AEDT",7100,123)=""
^DD(7100,0,"IX","AEN",7100,5.2)=""
^DD(7100,0,"IX","AEN1",7100,4)=""
^DD(7100,0,"IX","AEP",7100,4.1)=""
^DD(7100,0,"IX","AEP1",7100,3.1)=""
^DD(7100,0,"IX","AET",7100,5.3)=""
^DD(7100,0,"IX","AF",7100,8)=""
^DD(7100,0,"IX","AISC",7100,2.3)=""
^DD(7100,0,"IX","AISCD",7100,2.4)=""
^DD(7100,0,"IX","AISCP",7100,2.55)=""
^DD(7100,0,"IX","AKW",7100,1.5)=""
^DD(7100,0,"IX","ALEB",7100,124)=""
^DD(7100,0,"IX","ALL",7100,.01)=""
^DD(7100,0,"IX","ALTYPE",7100,2.7)=""
^DD(7100,0,"IX","AM",7100,126)=""
^DD(7100,0,"IX","AMOD",7100,3)=""
^DD(7100,0,"IX","ANDS",7100,5.1)=""
^DD(7100,0,"IX","ANDS1",7100,4)=""
^DD(7100,0,"IX","ANS",7100,4)=""
^DD(7100,0,"IX","ANS1",7100,2)=""
^DD(7100,0,"IX","AOIS",7100,4)=""
^DD(7100,0,"IX","AOIS1",7100,2.3)=""
^DD(7100,0,"IX","AOISP",7100,4)=""
^DD(7100,0,"IX","AOISP1",7100,2.55)=""
^DD(7100,0,"IX","AOLTYPE",7100,4)=""
^DD(7100,0,"IX","AOLTYPE1",7100,2.7)=""
^DD(7100,0,"IX","AOM",7100,4)=""
^DD(7100,0,"IX","AOM1",7100,3)=""
^DD(7100,0,"IX","AOP",7100,4)=""
^DD(7100,0,"IX","AOP1",7100,3.1)=""
^DD(7100,0,"IX","AOPACKG",7100,4)=""
^DD(7100,0,"IX","AOPACKG1",7100,3.3)=""
^DD(7100,0,"IX","AOS",7100,4)=""
^DD(7100,0,"IX","AOS1",7100,2)=""
^DD(7100,0,"IX","AOSC",7100,4)=""
^DD(7100,0,"IX","AOSC1",7100,3.2)=""
^DD(7100,0,"IX","AOU",7100,5)=""
^DD(7100,0,"IX","AOU1",7100,4)=""
^DD(7100,0,"IX","APAC",7100,3.1)=""
^DD(7100,0,"IX","APACKG",7100,3.3)=""
^DD(7100,0,"IX","APATCH",7100,7)=""
^DD(7100,0,"IX","APRI",7100,6)=""
^DD(7100,0,"IX","APRIMARY",7100,101)=""
^DD(7100,0,"IX","ARD",7100,2.6)=""
^DD(7100,0,"IX","ARID",7100,4)=""
^DD(7100,0,"IX","ARID1",7100,2.4)=""
^DD(7100,0,"IX","ARIS",7100,2.3)=""
^DD(7100,0,"IX","ARIS1",7100,4)=""
^DD(7100,0,"IX","ARISP",7100,4)=""
^DD(7100,0,"IX","ARISP1",7100,2.55)=""
^DD(7100,0,"IX","ARM",7100,4)=""
^DD(7100,0,"IX","ARM1",7100,3)=""
^DD(7100,0,"IX","ARP",7100,4)=""
^DD(7100,0,"IX","ARP1",7100,3.1)=""
^DD(7100,0,"IX","ARPACKG",7100,4)=""
^DD(7100,0,"IX","ARPACKG1",7100,3.3)=""
^DD(7100,0,"IX","ARSC",7100,4)=""
^DD(7100,0,"IX","ARSC1",7100,3.2)=""
^DD(7100,0,"IX","ARTDIN",7100,4.7)=""
^DD(7100,0,"IX","ARTDOUT",7100,4.8)=""
^DD(7100,0,"IX","ARTDRE",7100,4.9)=""
^DD(7100,0,"IX","ARU",7100,5)=""
^DD(7100,0,"IX","ARU1",7100,4)=""
^DD(7100,0,"IX","ASC",7100,3.2)=""
^DD(7100,0,"IX","ASD",7100,4.1)=""
^DD(7100,0,"IX","ASITE",7100,2)=""
^DD(7100,0,"IX","ASPECC",7100,81)=""
^DD(7100,0,"IX","ASPECD",7100,5.1)=""
^DD(7100,0,"IX","ASPECP",7100,5)=""
^DD(7100,0,"IX","ASTAT",7100,4)=""
^DD(7100,0,"IX","ASUB",7100,1)=""
^DD(7100,0,"IX","ASYS",7100,2.9)=""
^DD(7100,0,"IX","AT",7100,9)=""
^DD(7100,0,"IX","ATC",7100,122)=""
^DD(7100,0,"IX","ATHRS",7100,20)=""
^DD(7100,0,"IX","ATP",7100,125)=""
^DD(7100,0,"IX","ATR",7100,120)=""
^DD(7100,0,"IX","ATS",7100,121)=""
^DD(7100,0,"IX","AV",7100,2.8)=""
^DD(7100,0,"IX","AWEB",7100,1.7)=""
^DD(7100,0,"IX","B",7100,.01)=""
^DD(7100,0,"IX","BN",7100,.01)=""
^DD(7100,0,"NM","NOIS CALL")=""
^DD(7100,0,"PT",7100,101)=""
^DD(7100,0,"PT",7100,102)=""
^DD(7100,0,"PT",7100.2,.01)=""
^DD(7100,0,"PT",7100.3,1)=""
^DD(7100,0,"PT",7100.4,1)=""
^DD(7100,0,"PT",7100.5,.01)=""
^DD(7100,0,"PT",7100.6,.01)=""
^DD(7100,0,"PT",7101.1,2)=""
^DD(7100,0,"PT",7101.2,2)=""
^DD(7100,0,"PT",7102,.01)=""
^DD(7100,0,"PT",7103.5,.01)=""
^DD(7100,0,"VR")="1.1"
^DD(7100,0,"VRPK")="NOIS"
^DD(7100,.01,0)="REFERENCE NUMBER^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7100,.01,.1)="Call Reference Number"
^DD(7100,.01,1,0)="^.1"
^DD(7100,.01,1,1,0)="7100^B"
^DD(7100,.01,1,1,1)="S ^FSCD(""CALL"",""B"",$E(X,1,30),DA)="""""
^DD(7100,.01,1,1,2)="K ^FSCD(""CALL"",""B"",$E(X,1,30),DA)"
^DD(7100,.01,1,2,0)="7100^BN"
^DD(7100,.01,1,2,1)="S ^FSCD(""CALL"",""BN"",$P($E(X,1,30),""-"",3),DA)="""""
^DD(7100,.01,1,2,2)="K ^FSCD(""CALL"",""BN"",$P($E(X,1,30),""-"",3),DA)"
^DD(7100,.01,1,2,"DT")="2940116"
^DD(7100,.01,1,3,0)="7100^ALL^MUMPS"
^DD(7100,.01,1,3,1)="S ^FSCD(""CALL"",""ALL"",DA,DA)="""""
^DD(7100,.01,1,3,2)="K ^FSCD(""CALL"",""ALL"",DA,DA)"
^DD(7100,.01,1,3,"DT")="2940228"
^DD(7100,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7100,.01,21,0)="^^8^8^2980117^^^^"
^DD(7100,.01,21,1,0)="This field contains a mumps code generated unique name.  The unique name "
^DD(7100,.01,21,2,0)="is of the form UUU-YYMM-Nnnnn."
^DD(7100,.01,21,3,0)=""
^DD(7100,.01,21,4,0)="The characters UUU represent an abbreviation from the NOIS site file."
^DD(7100,.01,21,5,0)="The characters YY repersent the calander year in which the call was logged."
^DD(7100,.01,21,6,0)="The characters MM repersent the calander month in which the call was logged."
^DD(7100,.01,21,7,0)="The character N represent an abbreviation of the office for the site."
^DD(7100,.01,21,8,0)="The characters nnnn are just an incremental counter."
^DD(7100,.01,"DT")="2940228"
^DD(7100,1,0)="SUBJECT^RFX^^1;E1,245^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X I $D(X),$E(X)=""^"" K X"
^DD(7100,1,.1)="Brief Problem Description"
^DD(7100,1,1,0)="^.1"
^DD(7100,1,1,1,0)="7100^ASUB"
^DD(7100,1,1,1,1)="S ^FSCD(""CALL"",""ASUB"",$E(X,1,60),DA)="""""
^DD(7100,1,1,1,2)="K ^FSCD(""CALL"",""ASUB"",$E(X,1,60),DA)"
^DD(7100,1,1,1,"DT")="2931021"
^DD(7100,1,3)="Answer must be 1-60 characters in length and not begin with '^'."
^DD(7100,1,21,0)="^^5^5^2970927^^^^"
^DD(7100,1,21,1,0)="This field should be a brief description of the problem, between 1 and"
^DD(7100,1,21,2,0)="60 characters.  The information in this field should be somewhat"
^DD(7100,1,21,3,0)="meaningful on it's own, as the subject will be displayed on all NOIS"
^DD(7100,1,21,4,0)="call list screens and is searchable for key words. "
^DD(7100,1,21,5,0)="Qutotation marks are not allowed."
^DD(7100,1,"DT")="2931103"
^DD(7100,1.5,0)="KEYWORDS^F^^1.5;1^K:$L(X)>60!($L(X)<1) X"
^DD(7100,1.5,.1)="Keywords"
^DD(7100,1.5,1,0)="^.1"
^DD(7100,1.5,1,1,0)="7100^AKW"
^DD(7100,1.5,1,1,1)="S ^FSCD(""CALL"",""AKW"",$E(X,1,30),DA)="""""
^DD(7100,1.5,1,1,2)="K ^FSCD(""CALL"",""AKW"",$E(X,1,30),DA)"
^DD(7100,1.5,1,1,"DT")="2950712"
^DD(7100,1.5,3)="Answer must be 1-60 characters in length."
^DD(7100,1.5,21,0)="^^2^2^2950712^"
^DD(7100,1.5,21,1,0)="This field contains free-text keywords used to categorize the call."
^DD(7100,1.5,21,2,0)="Multiple keywords should be separated with commas."
^DD(7100,1.5,"DT")="2980309"
^DD(7100,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>120!($L(X)<3) X"
^DD(7100,1.7,1,0)="^.1"
^DD(7100,1.7,1,1,0)="7100^AWEB^MUMPS"
^DD(7100,1.7,1,1,1)="S ^FSCD(""CALL"",""AWEB"",$E(X,1,60),DA)="""""
^DD(7100,1.7,1,1,2)="K ^FSCD(""CALL"",""AWEB"",$E(X,1,60),DA)"
^DD(7100,1.7,1,1,"DT")="2980717"
^DD(7100,1.7,3)="Answer must be 3-120 characters in length."
^DD(7100,1.7,21,0)="^^1^1^2980717^"
^DD(7100,1.7,21,1,0)="Enter a web link (URL) on this call."
^DD(7100,1.7,"DT")="2980719"
^DD(7100,2,0)="REPORTING SITE^RP7105.1^FSC(""SITE"",^0;5^Q"
^DD(7100,2,.1)="Reporting Location"
^DD(7100,2,1,0)="^.1"
^DD(7100,2,1,1,0)="7100^ASITE"
^DD(7100,2,1,1,1)="S ^FSCD(""CALL"",""ASITE"",$E(X,1,30),DA)="""""
^DD(7100,2,1,1,2)="K ^FSCD(""CALL"",""ASITE"",$E(X,1,30),DA)"
^DD(7100,2,1,1,"DT")="2931004"
^DD(7100,2,1,2,0)="7100^AOS1^MUMPS"
^DD(7100,2,1,2,1)="D AOS^FSCXREF(""SET"",""SITE"",X,DA)"
^DD(7100,2,1,2,2)="D AOS^FSCXREF(""KILL"",""SITE"",X,DA)"
^DD(7100,2,1,2,"DT")="2931029"
^DD(7100,2,1,3,0)="7100^ANS1^MUMPS"
^DD(7100,2,1,3,1)="D ANS^FSCXREFM(""SET"",""SITE"",X,DA)"
^DD(7100,2,1,3,2)="D ANS^FSCXREFM(""KILL"",""SITE"",X,DA)"
^DD(7100,2,1,3,"DT")="2940307"
^DD(7100,2,3)=""
^DD(7100,2,21,0)="^^2^2^2971007^^^"
^DD(7100,2,21,1,0)="This field is a pointer to a file that holds the names of all locations"
^DD(7100,2,21,2,0)="which can report problems through NOIS."
^DD(7100,2,"DT")="2940307"
^DD(7100,2.1,0)="PRIMARY SITE CONTACT^P200'^VA(200,^0;6^Q"
^DD(7100,2.1,.1)="Primary Location Contact"
^DD(7100,2.1,1,0)="^.1"
^DD(7100,2.1,1,1,0)="7100^AC"
^DD(7100,2.1,1,1,1)="S ^FSCD(""CALL"",""AC"",$E(X,1,30),DA)="""""
^DD(7100,2.1,1,1,2)="K ^FSCD(""CALL"",""AC"",$E(X,1,30),DA)"
^DD(7100,2.1,1,1,"DT")="2961102"
^DD(7100,2.1,1,2,0)="7100^ACN^MUMPS"
^DD(7100,2.1,1,2,1)="D ACN^FSCXREFM(""SET"",""CONTACT"",X,DA)"
^DD(7100,2.1,1,2,2)="D ACN^FSCXREFM(""KILL"",""CONTACT"",X,DA)"
^DD(7100,2.1,1,2,"DT")="2980526"
^DD(7100,2.1,21,0)="^^3^3^2971007^^^"
^DD(7100,2.1,21,1,0)="This field is a pointer to the NEW PERSON file.  The entry here should"
^DD(7100,2.1,21,2,0)="reflect the person that is normally a point of contact for problems"
^DD(7100,2.1,21,3,0)="for the location in field #2 'Reporting Location'."
^DD(7100,2.1,"DT")="2980526"
^DD(7100,2.2,0)="PHONE NUMBER^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(7100,2.2,.1)="Contact Phone Number"
^DD(7100,2.2,3)="Answer must be 1-20 characters in length."
^DD(7100,2.2,21,0)="^^2^2^2940129^^"
^DD(7100,2.2,21,1,0)="This field should hold the phone number of the person named in field #2.1"
^DD(7100,2.2,21,2,0)="'Primary Site Contact'."
^DD(7100,2.2,"DT")="2931103"
^DD(7100,2.3,0)="SUPPORTING OFFICE^P7105.3'^FSC(""ISC"",^0;16^Q"
^DD(7100,2.3,.1)="Office for Support"
^DD(7100,2.3,1,0)="^.1"
^DD(7100,2.3,1,1,0)="7100^AISC"
^DD(7100,2.3,1,1,1)="S ^FSCD(""CALL"",""AISC"",$E(X,1,30),DA)="""""
^DD(7100,2.3,1,1,2)="K ^FSCD(""CALL"",""AISC"",$E(X,1,30),DA)"
^DD(7100,2.3,1,1,"DT")="2931004"
^DD(7100,2.3,1,2,0)="7100^AOIS1^MUMPS"
^DD(7100,2.3,1,2,1)="D AOIS^FSCXREF(""SET"",""ISC"",X,DA)"
^DD(7100,2.3,1,2,2)="D AOIS^FSCXREF(""KILL"",""ISC"",X,DA)"
^DD(7100,2.3,1,2,"DT")="2931030"
^DD(7100,2.3,1,3,0)="7100^ARIS^MUMPS"
^DD(7100,2.3,1,3,1)="D ARIS^FSCXREFR(""SET"",""ISC"",X,DA)"
^DD(7100,2.3,1,3,2)="D ARIS^FSCXREFR(""KILL"",""ISC"",X,DA)"
^DD(7100,2.3,1,3,"DT")="2940319"
^DD(7100,2.3,21,0)="^^2^2^2980117^^^^"
^DD(7100,2.3,21,1,0)="This field is the office that is responsible for Support Services to"
^DD(7100,2.3,21,2,0)="the reporting location."
^DD(7100,2.3,23,0)="^^4^4^2980117^^^"
^DD(7100,2.3,23,1,0)="This field is determined by the entry in the REPORTING SITE field."
^DD(7100,2.3,23,2,0)="It is NOT triggered.  It is set during a transaction after editing"
^DD(7100,2.3,23,3,0)="has been made in the NOIS applications.  It is also updated each"
^DD(7100,2.3,23,4,0)="night."
^DD(7100,2.3,"DT")="2980117"
^DD(7100,2.4,0)="DEVELOPING OFFICE^P7105.3'^FSC(""ISC"",^0;20^Q"
^DD(7100,2.4,.1)="Office for Development"
^DD(7100,2.4,1,0)="^.1"
^DD(7100,2.4,1,1,0)="7100^ADID1^MUMPS"
^DD(7100,2.4,1,1,1)="D ADID^FSCXREFD(""SET"",""ISC"",X,DA)"
^DD(7100,2.4,1,1,2)="D ADID^FSCXREFD(""KILL"",""ISC"",X,DA)"
^DD(7100,2.4,1,1,"DT")="2940119"
^DD(7100,2.4,1,2,0)="7100^ARID1^MUMPS"
^DD(7100,2.4,1,2,1)="D ARID^FSCXREFR(""SET"",""ISC"",X,DA)"
^DD(7100,2.4,1,2,2)="D ARID^FSCXREFR(""KILL"",""ISC"",X,DA)"
^DD(7100,2.4,1,2,"DT")="2940119"
^DD(7100,2.4,1,3,0)="7100^AISCD"
^DD(7100,2.4,1,3,1)="S ^FSCD(""CALL"",""AISCD"",$E(X,1,30),DA)="""""
^DD(7100,2.4,1,3,2)="K ^FSCD(""CALL"",""AISCD"",$E(X,1,30),DA)"
^DD(7100,2.4,1,3,"DT")="2940318"
^DD(7100,2.4,21,0)="^^2^2^2980117^^^^"
^DD(7100,2.4,21,1,0)="This field is the office which has the primary developemnt responsibilities"
^DD(7100,2.4,21,2,0)="for the package or module being reported."
^DD(7100,2.4,23,0)="^^3^3^2980117^^^"
^DD(7100,2.4,23,1,0)="This field is determined by the entry in the MODULE/VERSION field. "
^DD(7100,2.4,23,2,0)="It is NOT triggered.  It is set during a transaction after editing has"
^DD(7100,2.4,23,3,0)="been made in the NOIS applications. It is also updated each night."
^DD(7100,2.4,"DT")="2980117"
^DD(7100,2.55,0)="SPECIALIST OFFICE^P7105.3'^FSC(""ISC"",^120;10^Q"
^DD(7100,2.55,1,0)="^.1"
^DD(7100,2.55,1,1,0)="7100^AISCP"
^DD(7100,2.55,1,1,1)="S ^FSCD(""CALL"",""AISCP"",$E(X,1,30),DA)="""""
^DD(7100,2.55,1,1,2)="K ^FSCD(""CALL"",""AISCP"",$E(X,1,30),DA)"
^DD(7100,2.55,1,1,"DT")="2940516"
^DD(7100,2.55,1,2,0)="7100^AOISP1^MUMPS"
^DD(7100,2.55,1,2,1)="D AOISP^FSCXREF(""SET"",""ISC"",X,DA)"
^DD(7100,2.55,1,2,2)="D AOISP^FSCXREF(""KILL"",""ISC"",X,DA)"
^DD(7100,2.55,1,2,"DT")="2940516"
^DD(7100,2.55,1,3,0)="7100^ARISP1^MUMPS"
^DD(7100,2.55,1,3,1)="D ARISP^FSCXREFR(""SET"",""ISC"",X,DA)"
^DD(7100,2.55,1,3,2)="D ARISP^FSCXREFR(""KILL"",""ISC"",X,DA)"
^DD(7100,2.55,1,3,"DT")="2940516"
^DD(7100,2.55,21,0)="^^1^1^2980117^^^"
^DD(7100,2.55,21,1,0)="This field is the office of the primary specialist."
^DD(7100,2.55,23,0)="^^3^3^2980117^^^"
^DD(7100,2.55,23,1,0)="This field is determined by the entry in the PRIMARY SPECIALIST field."
^DD(7100,2.55,23,2,0)="It is NOT triggered.  It is set during a transaction after editing has"
^DD(7100,2.55,23,3,0)="been made in the NOIS applications. It is also updated each night."
^DD(7100,2.55,"DT")="2980117"
^DD(7100,2.6,0)="REOPENED^D^^0;22^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,2.6,.1)="Date call Re-opened"
^DD(7100,2.6,1,0)="^.1"
^DD(7100,2.6,1,1,0)="7100^ARD"
^DD(7100,2.6,1,1,1)="S ^FSCD(""CALL"",""ARD"",$E(X,1,30),DA)="""""
^DD(7100,2.6,1,1,2)="K ^FSCD(""CALL"",""ARD"",$E(X,1,30),DA)"
^DD(7100,2.6,1,1,"DT")="2961102"
^DD(7100,2.6,21,0)="^^2^2^2970711^^^"
^DD(7100,2.6,21,1,0)="This field is the date the call was reopened.  It is overwritten any"
^DD(7100,2.6,21,2,0)="time a call is changed from cancelled or closed to open."
^DD(7100,2.6,23,0)="^^4^4^2970711^^^"
^DD(7100,2.6,23,1,0)="This field holds a date for information as to when the call was last"
^DD(7100,2.6,23,2,0)="reopened.  The software only checks for a true value of this field."
^DD(7100,2.6,23,3,0)=" "
^DD(7100,2.6,23,4,0)="This field is not editable from the software."
^DD(7100,2.6,"DT")="2961102"
^DD(7100,2.7,0)="LOCATION TYPE^P7105.7'^FSC(""LTYPE"",^120;12^Q"
^DD(7100,2.7,1,0)="^.1"
^DD(7100,2.7,1,1,0)="7100^ALTYPE"
^DD(7100,2.7,1,1,1)="S ^FSCD(""CALL"",""ALTYPE"",$E(X,1,30),DA)="""""
^DD(7100,2.7,1,1,2)="K ^FSCD(""CALL"",""ALTYPE"",$E(X,1,30),DA)"
^DD(7100,2.7,1,1,"DT")="2940901"
^DD(7100,2.7,1,2,0)="7100^AOLTYPE1^MUMPS"
^DD(7100,2.7,1,2,1)="D AOLTYPE^FSCXREFO(""SET"",""LTYPE"",X,DA)"
^DD(7100,2.7,1,2,2)="D AOLTYPE^FSCXREFO(""KILL"",""LTYPE"",X,DA)"
^DD(7100,2.7,1,2,"DT")="2940902"
^DD(7100,2.7,21,0)="^^1^1^2940901^"
^DD(7100,2.7,21,1,0)="This field is the location type for the reporting site."
^DD(7100,2.7,"DT")="2940902"
^DD(7100,2.8,0)="VISN^P7106.6'^FSC(""VISN"",^120;15^Q"
^DD(7100,2.8,1,0)="^.1"
^DD(7100,2.8,1,1,0)="7100^AV"
^DD(7100,2.8,1,1,1)="S ^FSCD(""CALL"",""AV"",$E(X,1,30),DA)="""""
^DD(7100,2.8,1,1,2)="K ^FSCD(""CALL"",""AV"",$E(X,1,30),DA)"
^DD(7100,2.8,1,1,"DT")="2951221"
^DD(7100,2.8,21,0)="^^2^2^2980118^^"
^DD(7100,2.8,21,1,0)="This is the VISN for the reporting location. For local implementations"
^DD(7100,2.8,21,2,0)="of NOIS, this may be used as a location group."
^DD(7100,2.8,"DT")="2951221"
^DD(7100,2.9,0)="SYSTEM^P7106.7'^FSC(""SYSTEM"",^120;19^Q"
^DD(7100,2.9,1,0)="^.1"
^DD(7100,2.9,1,1,0)="7100^ASYS"
^DD(7100,2.9,1,1,1)="S ^FSCD(""CALL"",""ASYS"",$E(X,1,30),DA)="""""
^DD(7100,2.9,1,1,2)="K ^FSCD(""CALL"",""ASYS"",$E(X,1,30),DA)"
^DD(7100,2.9,1,1,"DT")="2961019"
^DD(7100,2.9,21,0)="^^2^2^2980118^"
^DD(7100,2.9,21,1,0)="This is the system used at the reporting location. For local implementations"
^DD(7100,2.9,21,2,0)="of NOIS, this may be used to group the location."
^DD(7100,2.9,"DT")="2961019"
^DD(7100,3,0)="MODULE/VERSION^*P7105.4'^FSC(""MOD"",^0;8^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,3,.1)="Package Module/Version"
^DD(7100,3,1,0)="^.1^^-1"
^DD(7100,3,1,1,0)="7100^AMOD"
^DD(7100,3,1,1,1)="S ^FSCD(""CALL"",""AMOD"",$E(X,1,30),DA)="""""
^DD(7100,3,1,1,2)="K ^FSCD(""CALL"",""AMOD"",$E(X,1,30),DA)"
^DD(7100,3,1,1,"DT")="2931004"
^DD(7100,3,1,2,0)="7100^AOM1^MUMPS"
^DD(7100,3,1,2,1)="D AOM^FSCXREF(""SET"",""MOD"",X,DA)"
^DD(7100,3,1,2,2)="D AOM^FSCXREF(""KILL"",""MOD"",X,DA)"
^DD(7100,3,1,2,"DT")="2931029"
^DD(7100,3,1,3,0)="7100^ADM1^MUMPS"
^DD(7100,3,1,3,1)="D ADM^FSCXREFD(""SET"",""MOD"",X,DA)"
^DD(7100,3,1,3,2)="D ADM^FSCXREFD(""KILL"",""MOD"",X,DA)"
^DD(7100,3,1,3,"DT")="2940111"
^DD(7100,3,1,4,0)="7100^ARM1^MUMPS"
^DD(7100,3,1,4,1)="D ARM^FSCXREFR(""SET"",""MOD"",X,DA)"
^DD(7100,3,1,4,2)="D ARM^FSCXREFR(""KILL"",""MOD"",X,DA)"
^DD(7100,3,1,4,"DT")="2940111"
^DD(7100,3,12)="Only active modules"
^DD(7100,3,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(7100,3,21,0)="^^3^3^2940129^^"
^DD(7100,3,21,1,0)="This field is the DHCP package and version reported in the NOIS call."
^DD(7100,3,21,2,0)="It can also be a problem category that is not distributed as a DHCP"
^DD(7100,3,21,3,0)="package (ex. hardware, operating system or communication software)."
^DD(7100,3,"DT")="2940128"
^DD(7100,3.1,0)="PACKAGE^P7105.5'^FSC(""PACK"",^120;9^Q"
^DD(7100,3.1,1,0)="^.1"
^DD(7100,3.1,1,1,0)="7100^APAC"
^DD(7100,3.1,1,1,1)="S ^FSCD(""CALL"",""APAC"",$E(X,1,30),DA)="""""
^DD(7100,3.1,1,1,2)="K ^FSCD(""CALL"",""APAC"",$E(X,1,30),DA)"
^DD(7100,3.1,1,1,"DT")="2940307"
^DD(7100,3.1,1,2,0)="7100^AOP1^MUMPS"
^DD(7100,3.1,1,2,1)="D AOP^FSCXREF(""SET"",""PACK"",X,DA)"
^DD(7100,3.1,1,2,2)="D AOP^FSCXREF(""KILL"",""PACK"",X,DA)"
^DD(7100,3.1,1,2,"DT")="2940307"
^DD(7100,3.1,1,3,0)="7100^ADP1^MUMPS"
^DD(7100,3.1,1,3,1)="D ADP^FSCXREFD(""SET"",""PACK"",X,DA)"
^DD(7100,3.1,1,3,2)="D ADP^FSCXREFD(""KILL"",""PACK"",X,DA)"
^DD(7100,3.1,1,3,"DT")="2940307"
^DD(7100,3.1,1,4,0)="7100^AEP1^MUMPS"
^DD(7100,3.1,1,4,1)="D AEP^FSCXREFM(""SET"",""PACK"",X,DA)"
^DD(7100,3.1,1,4,2)="D AEP^FSCXREFM(""KILL"",""PACK"",X,DA)"
^DD(7100,3.1,1,4,"DT")="2940307"
^DD(7100,3.1,1,5,0)="7100^ARP1^MUMPS"
^DD(7100,3.1,1,5,1)="D ARP^FSCXREFR(""SET"",""PACK"",X,DA)"
^DD(7100,3.1,1,5,2)="D ARP^FSCXREFR(""KILL"",""PACK"",X,DA)"
^DD(7100,3.1,1,5,"DT")="2940307"
^DD(7100,3.1,21,0)="^^1^1^2940613^"
^DD(7100,3.1,21,1,0)="This field is the DHCP package reported in the NOIS call."
^DD(7100,3.1,23,0)="^^3^3^2940613^"
^DD(7100,3.1,23,1,0)="This field is determined by the entry in the MODULE/VERSION field."
^DD(7100,3.1,23,2,0)="It is NOT triggered.  It is set during a transaction after editing has"
^DD(7100,3.1,23,3,0)="been made in the NOIS applications.  It is also updated each night."
^DD(7100,3.1,"DT")="2940307"
^DD(7100,3.2,0)="SUBCOMPONENT^*P7105.6'^FSC(""SUB"",^120;11^S DIC(""S"")=""I $P(^(0),U,2)=+$P($G(^FSC(""""MOD"""",+$P($G(^FSCD(""""CALL"""",+$G(DA),0)),U,8),0)),U,8)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,3.2,.1)="Subcomponent"
^DD(7100,3.2,1,0)="^.1"
^DD(7100,3.2,1,1,0)="7100^ASC"
^DD(7100,3.2,1,1,1)="S ^FSCD(""CALL"",""ASC"",$E(X,1,30),DA)="""""
^DD(7100,3.2,1,1,2)="K ^FSCD(""CALL"",""ASC"",$E(X,1,30),DA)"
^DD(7100,3.2,1,1,"DT")="2940519"
^DD(7100,3.2,1,2,0)="7100^AOSC1^MUMPS"
^DD(7100,3.2,1,2,1)="D AOSC^FSCXREF(""SET"",""SUB"",X,DA)"
^DD(7100,3.2,1,2,2)="D AOSC^FSCXREF(""KILL"",""SUB"",X,DA)"
^DD(7100,3.2,1,2,"DT")="2940519"
^DD(7100,3.2,1,3,0)="7100^ARSC1^MUMPS"
^DD(7100,3.2,1,3,1)="D ARSC^FSCXREFR(""SET"",""SUB"",X,DA)"
^DD(7100,3.2,1,3,2)="D ARSC^FSCXREFR(""KILL"",""SUB"",X,DA)"
^DD(7100,3.2,1,3,"DT")="2940519"
^DD(7100,3.2,12)="only if package matches package of module"
^DD(7100,3.2,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=+$P($G(^FSC(""""MOD"""",+$P($G(^FSCD(""""CALL"""",+$G(DA),0)),U,8),0)),U,8)"""
^DD(7100,3.2,21,0)="^^3^3^2940627^^"
^DD(7100,3.2,21,1,0)="This field is a package subcomponent.  It made be added to a NOIS entry"
^DD(7100,3.2,21,2,0)="for developers to track the call.  It can also be used as a means to"
^DD(7100,3.2,21,3,0)="triage a call from a national support person to a development team."
^DD(7100,3.2,"DT")="2950712"
^DD(7100,3.3,0)="PACKAGE GROUP^P7105.8'^FSC(""PACKG"",^120;13^Q"
^DD(7100,3.3,1,0)="^.1"
^DD(7100,3.3,1,1,0)="7100^APACKG"
^DD(7100,3.3,1,1,1)="S ^FSCD(""CALL"",""APACKG"",$E(X,1,30),DA)="""""
^DD(7100,3.3,1,1,2)="K ^FSCD(""CALL"",""APACKG"",$E(X,1,30),DA)"
^DD(7100,3.3,1,1,"DT")="2940902"
^DD(7100,3.3,1,2,0)="7100^AOPACKG1^MUMPS"
^DD(7100,3.3,1,2,1)="D AOPACKG^FSCXREFO(""SET"",""PACKG"",X,DA)"
^DD(7100,3.3,1,2,2)="D AOPACKG^FSCXREFO(""KILL"",""PACKG"",X,DA)"
^DD(7100,3.3,1,2,"DT")="2940902"
^DD(7100,3.3,1,3,0)="7100^ARPACKG1^MUMPS"
^DD(7100,3.3,1,3,1)="D ARPACKG^FSCXREFO(""SET"",""PACKG"",X,DA)"
^DD(7100,3.3,1,3,2)="D ARPACKG^FSCXREFO(""KILL"",""PACKG"",X,DA)"
^DD(7100,3.3,1,3,"DT")="2940902"
^DD(7100,3.3,21,0)="^^1^1^2940902^"
^DD(7100,3.3,21,1,0)="This field is the package group associated with the package field."
^DD(7100,3.3,"DT")="2940902"
^DD(7100,4,0)="STATUS^R*P7106.1'^FSC(""STATUS"",^0;2^S DIC(""S"")=""I $P(^(0),U,2)'[""""D"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,4,.1)="Call Status"
^DD(7100,4,1,0)="^.1"
^DD(7100,4,1,1,0)="7100^ASTAT"
^DD(7100,4,1,1,1)="S ^FSCD(""CALL"",""ASTAT"",$E(X,1,30),DA)="""""
^DD(7100,4,1,1,2)="K ^FSCD(""CALL"",""ASTAT"",$E(X,1,30),DA)"
^DD(7100,4,1,1,"DT")="2931004"
^DD(7100,4,1,2,0)="7100^AOS^MUMPS"
^DD(7100,4,1,2,1)="D AOS^FSCXREF(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,2,2)="D AOS^FSCXREF(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,2,"DT")="2931029"
^DD(7100,4,1,3,0)="7100^AOM^MUMPS"
^DD(7100,4,1,3,1)="D AOM^FSCXREF(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,3,2)="D AOM^FSCXREF(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,3,"DT")="2931029"
^DD(7100,4,1,4,0)="7100^AOIS^MUMPS"
^DD(7100,4,1,4,1)="D AOIS^FSCXREF(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,4,2)="D AOIS^FSCXREF(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,4,"DT")="2931030"
^DD(7100,4,1,5,0)="7100^ARM^MUMPS"
^DD(7100,4,1,5,1)="D ARM^FSCXREFR(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,5,2)="D ARM^FSCXREFR(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,5,"DT")="2940110"
^DD(7100,4,1,6,0)="7100^ARID^MUMPS"
^DD(7100,4,1,6,1)="D ARID^FSCXREFR(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,6,2)="D ARID^FSCXREFR(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,6,"DT")="2940110"
^DD(7100,4,1,7,0)="7100^AOU1^MUMPS"
^DD(7100,4,1,7,1)="D AOU^FSCXREF(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,7,2)="D AOU^FSCXREF(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,7,"DT")="2940116"
^DD(7100,4,1,8,0)="7100^ARU1^MUMPS"
^DD(7100,4,1,8,1)="D ARU^FSCXREFR(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,8,2)="D ARU^FSCXREFR(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,8,"DT")="2940203"
^DD(7100,4,1,9,0)="7100^AOP^MUMPS"
^DD(7100,4,1,9,1)="D AOP^FSCXREF(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,9,2)="D AOP^FSCXREF(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,9,"DT")="2940307"
^DD(7100,4,1,10,0)="7100^ANS^MUMPS"
^DD(7100,4,1,10,1)="D ANS^FSCXREFM(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,10,2)="D ANS^FSCXREFM(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,10,"DT")="2940307"
^DD(7100,4,1,11,0)="7100^ARP^MUMPS"
^DD(7100,4,1,11,1)="D ARP^FSCXREFR(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,11,2)="D ARP^FSCXREFR(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,11,"DT")="2940307"
^DD(7100,4,1,12,0)="7100^ARIS1^MUMPS"
^DD(7100,4,1,12,1)="D ARIS^FSCXREFR(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,12,2)="D ARIS^FSCXREFR(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,12,"DT")="2940319"
^DD(7100,4,1,13,0)="7100^AOISP^MUMPS"
^DD(7100,4,1,13,1)="D AOISP^FSCXREF(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,13,2)="D AOISP^FSCXREF(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,13,"DT")="2940516"
^DD(7100,4,1,14,0)="7100^ARISP^MUMPS"
^DD(7100,4,1,14,1)="D ARISP^FSCXREFR(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,14,2)="D ARISP^FSCXREFR(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,14,"DT")="2940516"
^DD(7100,4,1,15,0)="7100^AOSC^MUMPS"
^DD(7100,4,1,15,1)="D AOSC^FSCXREF(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,15,2)="D AOSC^FSCXREF(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,15,"DT")="2940519"
^DD(7100,4,1,16,0)="7100^ARSC^MUMPS"
^DD(7100,4,1,16,1)="D ARSC^FSCXREFR(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,16,2)="D ARSC^FSCXREFR(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,16,"DT")="2940519"
^DD(7100,4,1,17,0)="7100^AOLTYPE^MUMPS"
^DD(7100,4,1,17,1)="D AOLTYPE^FSCXREFO(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,17,2)="D AOLTYPE^FSCXREFO(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,17,"DT")="2940902"
^DD(7100,4,1,18,0)="7100^AOPACKG^MUMPS"
^DD(7100,4,1,18,1)="D AOPACKG^FSCXREFO(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,18,2)="D AOPACKG^FSCXREFO(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,18,"DT")="2940902"
^DD(7100,4,1,19,0)="7100^ARPACKG^MUMPS"
^DD(7100,4,1,19,1)="D ARPACKG^FSCXREFO(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,19,2)="D ARPACKG^FSCXREFO(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,19,"DT")="2940902"
^DD(7100,4,1,20,0)="7100^ANDS1^MUMPS"
^DD(7100,4,1,20,1)="D ANDS^FSCXREFM(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,20,2)="D ANDS^FSCXREFM(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,20,"DT")="2950721"
^DD(7100,4,1,21,0)="7100^ACN1^MUMPS"
^DD(7100,4,1,21,1)="D ACN^FSCXREFM(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,21,2)="D ACN^FSCXREFM(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,21,"DT")="2980526"
^DD(7100,4,1,22,0)="7100^AEN1^MUMPS"
^DD(7100,4,1,22,1)="D AEN^FSCXREFM(""SET"",""STATUS"",X,DA)"
^DD(7100,4,1,22,2)="D AEN^FSCXREFM(""KILL"",""STATUS"",X,DA)"
^DD(7100,4,1,22,"DT")="2980526"
^DD(7100,4,12)="Choose status applicable to Support Function"
^DD(7100,4,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'[""""D"""""""
^DD(7100,4,21,0)="^^1^1^2940129^^"
^DD(7100,4,21,1,0)="This field is the support status of the NOIS call."
^DD(7100,4,"DT")="2980526"
^DD(7100,4.1,0)="REFERRAL STATUS^*P7106.1'^FSC(""STATUS"",^0;17^S DIC(""S"")=""I $P(^(0),U,2)'[""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,4.1,.1)="Referral Status"
^DD(7100,4.1,1,0)="^.1"
^DD(7100,4.1,1,1,0)="7100^ASD"
^DD(7100,4.1,1,1,1)="S ^FSCD(""CALL"",""ASD"",$E(X,1,30),DA)="""""
^DD(7100,4.1,1,1,2)="K ^FSCD(""CALL"",""ASD"",$E(X,1,30),DA)"
^DD(7100,4.1,1,1,"DT")="2931117"
^DD(7100,4.1,1,2,0)="7100^ADM^MUMPS"
^DD(7100,4.1,1,2,1)="D ADM^FSCXREFD(""SET"",""STATUS"",X,DA)"
^DD(7100,4.1,1,2,2)="D ADM^FSCXREFD(""KILL"",""STATUS"",X,DA)"
^DD(7100,4.1,1,2,"DT")="2940111"
^DD(7100,4.1,1,3,0)="7100^ADID^MUMPS"
^DD(7100,4.1,1,3,1)="D ADID^FSCXREFD(""SET"",""STATUS"",X,DA)"
^DD(7100,4.1,1,3,2)="D ADID^FSCXREFD(""KILL"",""STATUS"",X,DA)"
^DD(7100,4.1,1,3,"DT")="2940111"
^DD(7100,4.1,1,4,0)="7100^ADP^MUMPS"
^DD(7100,4.1,1,4,1)="D ADP^FSCXREFD(""SET"",""STATUS"",X,DA)"
^DD(7100,4.1,1,4,2)="D ADP^FSCXREFD(""KILL"",""STATUS"",X,DA)"
^DD(7100,4.1,1,4,"DT")="2940307"
^DD(7100,4.1,1,5,0)="7100^AEP^MUMPS"
^DD(7100,4.1,1,5,1)="D AEP^FSCXREFM(""SET"",""STATUS"",X,DA)"
^DD(7100,4.1,1,5,2)="D AEP^FSCXREFM(""KILL"",""STATUS"",X,DA)"
^DD(7100,4.1,1,5,"DT")="2940307"
^DD(7100,4.1,12)="Select a status for referal activities."
^DD(7100,4.1,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'[""""S"""""""
^DD(7100,4.1,21,0)="^^1^1^2961018^^^"
^DD(7100,4.1,21,1,0)="This field is the referal status status of the NOIS call."
^DD(7100,4.1,"DT")="2961018"
^DD(7100,4.2,0)="AGE OF CALL^NJ5,0^^0;18^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7100,4.2,.1)="Age of Call"
^DD(7100,4.2,1,0)="^.1"
^DD(7100,4.2,1,1,0)="7100^ADSR"
^DD(7100,4.2,1,1,1)="S ^FSCD(""CALL"",""ADSR"",$E(X,1,30),DA)="""""
^DD(7100,4.2,1,1,2)="K ^FSCD(""CALL"",""ADSR"",$E(X,1,30),DA)"
^DD(7100,4.2,1,1,"DT")="2961102"
^DD(7100,4.2,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(7100,4.2,21,0)="^^1^1^2940129^"
^DD(7100,4.2,21,1,0)="This field is the the number of days since the call was reported."
^DD(7100,4.2,"DT")="2961102"
^DD(7100,4.3,0)="AGE SINCE LAST EDIT^NJ5,0^^0;19^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7100,4.3,.1)="Age since last edit"
^DD(7100,4.3,1,0)="^.1"
^DD(7100,4.3,1,1,0)="7100^ADSE"
^DD(7100,4.3,1,1,1)="S ^FSCD(""CALL"",""ADSE"",$E(X,1,30),DA)="""""
^DD(7100,4.3,1,1,2)="K ^FSCD(""CALL"",""ADSE"",$E(X,1,30),DA)"
^DD(7100,4.3,1,1,"DT")="2961102"
^DD(7100,4.3,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(7100,4.3,21,0)="^^1^1^2940129^"
^DD(7100,4.3,21,1,0)="This field is the number of days since the call was last edited."
^DD(7100,4.3,"DT")="2961102"
^DD(7100,4.4,0)="AGE SINCE LAST STATUS^NJ5,0^^0;23^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7100,4.4,.1)="Days Since Last Status Change"
^DD(7100,4.4,1,0)="^.1"
^DD(7100,4.4,1,1,0)="7100^ADSS"
^DD(7100,4.4,1,1,1)="S ^FSCD(""CALL"",""ADSS"",$E(X,1,30),DA)="""""
^DD(7100,4.4,1,1,2)="K ^FSCD(""CALL"",""ADSS"",$E(X,1,30),DA)"
^DD(7100,4.4,1,1,"DT")="2961102"
^DD(7100,4.4,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(7100,4.4,21,0)="^^1^1^2940129^"
^DD(7100,4.4,21,1,0)="This field is the number of days since the last status change for this call."
^DD(7100,4.4,"DT")="2961102"
^DD(7100,4.5,0)="CURRENT STATUS^P7106.1'^FSC(""STATUS"",^0;24^Q"
^DD(7100,4.5,21,0)="^^3^3^2961018^^^"
^DD(7100,4.5,21,1,0)="This field is the current status of the call.  This status is composed"
^DD(7100,4.5,21,2,0)="by the values of the status and referal status."
^DD(7100,4.5,21,3,0)="This field is used for tracking status changes."
^DD(7100,4.5,"DT")="2940122"
^DD(7100,4.6,0)="PREVIOUS STATUS^P7106.1'^FSC(""STATUS"",^120;8^Q"
^DD(7100,4.6,21,0)="^^2^2^2940129^"
^DD(7100,4.6,21,1,0)="This field is the previous value of the current status.  This field is"
^DD(7100,4.6,21,2,0)="used for tracking status changes."
^DD(7100,4.6,"DT")="2940122"
^DD(7100,4.7,0)="RTD IN DATE^D^^120;16^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,4.7,1,0)="^.1"
^DD(7100,4.7,1,1,0)="7100^ARTDIN"
^DD(7100,4.7,1,1,1)="S ^FSCD(""CALL"",""ARTDIN"",$E(X,1,30),DA)="""""
^DD(7100,4.7,1,1,2)="K ^FSCD(""CALL"",""ARTDIN"",$E(X,1,30),DA)"
^DD(7100,4.7,1,1,"DT")="2960829"
^DD(7100,4.7,21,0)="^^1^1^2980118^"
^DD(7100,4.7,21,1,0)="This is the date the call was last referred."
^DD(7100,4.7,"DT")="2960829"
^DD(7100,4.8,0)="RTD OUT DATE^D^^120;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,4.8,1,0)="^.1"
^DD(7100,4.8,1,1,0)="7100^ARTDOUT"
^DD(7100,4.8,1,1,1)="S ^FSCD(""CALL"",""ARTDOUT"",$E(X,1,30),DA)="""""
^DD(7100,4.8,1,1,2)="K ^FSCD(""CALL"",""ARTDOUT"",$E(X,1,30),DA)"
^DD(7100,4.8,1,1,"DT")="2960829"
^DD(7100,4.8,21,0)="^^1^1^2980118^"
^DD(7100,4.8,21,1,0)="This the date the call was last unreferred."
^DD(7100,4.8,"DT")="2960829"
^DD(7100,4.9,0)="RTD REREF DATE^D^^120;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,4.9,1,0)="^.1"
^DD(7100,4.9,1,1,0)="7100^ARTDRE"
^DD(7100,4.9,1,1,1)="S ^FSCD(""CALL"",""ARTDRE"",$E(X,1,30),DA)="""""
^DD(7100,4.9,1,1,2)="K ^FSCD(""CALL"",""ARTDRE"",$E(X,1,30),DA)"
^DD(7100,4.9,1,1,"DT")="2960829"
^DD(7100,4.9,21,0)="^^4^4^2970711^"
^DD(7100,4.9,21,1,0)="This field is the date the call was re-referred.  It is updated by the"
^DD(7100,4.9,21,2,0)="software (it's not editable) when a call is referred that was previously"
^DD(7100,4.9,21,3,0)="referred and then changed to not being referred. It is overwritten any"
^DD(7100,4.9,21,4,0)="time this occurs."
^DD(7100,4.9,"DT")="2960829"
^DD(7100,5,0)="PRIMARY SPECIALIST^*P7105.2'^FSC(""SPEC"",^0;9^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,5,.1)="Specialist"
^DD(7100,5,1,0)="^.1"
^DD(7100,5,1,1,0)="7100^ASPECP"
^DD(7100,5,1,1,1)="S ^FSCD(""CALL"",""ASPECP"",$E(X,1,30),DA)="""""
^DD(7100,5,1,1,2)="K ^FSCD(""CALL"",""ASPECP"",$E(X,1,30),DA)"
^DD(7100,5,1,1,"DT")="2931021"
^DD(7100,5,1,2,0)="7100^AOU^MUMPS"
^DD(7100,5,1,2,1)="D AOU^FSCXREF(""SET"",""SPEC"",X,DA)"
^DD(7100,5,1,2,2)="D AOU^FSCXREF(""KILL"",""SPEC"",X,DA)"
^DD(7100,5,1,2,"DT")="2940116"
^DD(7100,5,1,3,0)="7100^ARU^MUMPS"
^DD(7100,5,1,3,1)="D ARU^FSCXREFR(""SET"",""SPEC"",X,DA)"
^DD(7100,5,1,3,2)="D ARU^FSCXREFR(""KILL"",""SPEC"",X,DA)"
^DD(7100,5,1,3,"DT")="2940203"
^DD(7100,5,12)="Only active specialists"
^DD(7100,5,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(7100,5,21,0)="^^1^1^2940129^"
^DD(7100,5,21,1,0)="This is the NOIS specialist for the call."
^DD(7100,5,"DT")="2940203"
^DD(7100,5.1,0)="REFERRAL SPECIALIST^*P7105.2'^FSC(""SPEC"",^0;21^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,5.1,1,0)="^.1"
^DD(7100,5.1,1,1,0)="7100^ASPECD"
^DD(7100,5.1,1,1,1)="S ^FSCD(""CALL"",""ASPECD"",$E(X,1,30),DA)="""""
^DD(7100,5.1,1,1,2)="K ^FSCD(""CALL"",""ASPECD"",$E(X,1,30),DA)"
^DD(7100,5.1,1,1,"DT")="2950721"
^DD(7100,5.1,1,2,0)="7100^ANDS^MUMPS"
^DD(7100,5.1,1,2,1)="D ANDS^FSCXREFM(""SET"",""SPECD"",X,DA)"
^DD(7100,5.1,1,2,2)="D ANDS^FSCXREFM(""KILL"",""SPECD"",X,DA)"
^DD(7100,5.1,1,2,"DT")="2950721"
^DD(7100,5.1,12)="Specialist only"
^DD(7100,5.1,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(7100,5.1,21,0)="^^2^2^2961018^^"
^DD(7100,5.1,21,1,0)="This field can be used to enter a NOIS Specialist working on a"
^DD(7100,5.1,21,2,0)="referal issue on this call."
^DD(7100,5.1,"DT")="2971109"
^DD(7100,5.2,0)="ENTRY PERSON^P200'^VA(200,^120;20^Q"
^DD(7100,5.2,1,0)="^.1"
^DD(7100,5.2,1,1,0)="7100^AE"
^DD(7100,5.2,1,1,1)="S ^FSCD(""CALL"",""AE"",$E(X,1,30),DA)="""""
^DD(7100,5.2,1,1,2)="K ^FSCD(""CALL"",""AE"",$E(X,1,30),DA)"
^DD(7100,5.2,1,1,"DT")="2961224"
^DD(7100,5.2,1,2,0)="7100^AEN^MUMPS"
^DD(7100,5.2,1,2,1)="D AEN^FSCXREFM(""SET"",""ENTRYP"",X,DA)"
^DD(7100,5.2,1,2,2)="D AEN^FSCXREFM(""KILL"",""ENTRYP"",X,DA)"
^DD(7100,5.2,1,2,"DT")="2980526"
^DD(7100,5.2,21,0)="^^1^1^2980118^"
^DD(7100,5.2,21,1,0)="This is the person who entered the call."
^DD(7100,5.2,"DT")="2980526"
^DD(7100,5.3,0)="ENTRY PERSON TYPE^P7106.8'^FSC(""EPTYPE"",^120;21^Q"
^DD(7100,5.3,1,0)="^.1"
^DD(7100,5.3,1,1,0)="7100^AET"
^DD(7100,5.3,1,1,1)="S ^FSCD(""CALL"",""AET"",$E(X,1,30),DA)="""""
^DD(7100,5.3,1,1,2)="K ^FSCD(""CALL"",""AET"",$E(X,1,30),DA)"
^DD(7100,5.3,1,1,"DT")="2961224"
^DD(7100,5.3,21,0)="^^1^1^2980118^"
^DD(7100,5.3,21,1,0)="This is the type of person who entered the call."
^DD(7100,5.3,"DT")="2961224"
^DD(7100,6,0)="PRIORITY^*P7106.2'X^FSC(""PRI"",^0;10^S DIC(""S"")=""I $P(^(0),U,2)'=1!$$ACCESS^FSCU(DUZ,""""SPEC"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,6,.1)="Priority"
^DD(7100,6,1,0)="^.1^^-1"
^DD(7100,6,1,1,0)="7100^APRI"
^DD(7100,6,1,1,1)="S ^FSCD(""CALL"",""APRI"",$E(X,1,30),DA)="""""
^DD(7100,6,1,1,2)="K ^FSCD(""CALL"",""APRI"",$E(X,1,30),DA)"
^DD(7100,6,1,1,"DT")="2931021"
^DD(7100,6,4)=""
^DD(7100,6,12)="Please use the telephone to report any URGENT or STAT situation."
^DD(7100,6,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=1!$$ACCESS^FSCU(DUZ,""""SPEC"""")"""
^DD(7100,6,21,0)="^^2^2^2961021^^"
^DD(7100,6,21,1,0)="This field is the priority of the NOIS call."
^DD(7100,6,21,2,0)="Please use the telephone to report any URGENT or STAT situation."
^DD(7100,6,"DT")="2950523"
^DD(7100,7,0)="PATCH^F^^120;14^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(7100,7,.1)="Patch"
^DD(7100,7,1,0)="^.1"
^DD(7100,7,1,1,0)="7100^APATCH"
^DD(7100,7,1,1,1)="S ^FSCD(""CALL"",""APATCH"",$E(X,1,30),DA)="""""
^DD(7100,7,1,1,2)="K ^FSCD(""CALL"",""APATCH"",$E(X,1,30),DA)"
^DD(7100,7,1,1,"DT")="2940902"
^DD(7100,7,3)="Answer must be 1-30 characters in length."
^DD(7100,7,21,0)="^^1^1^2940902^"
^DD(7100,7,21,1,0)="This field can be used to associate a patch with this call."
^DD(7100,7,"DT")="2940902"
^DD(7100,8,0)="FUNCTIONAL AREA^*P7106.4'^FSC(""FUNC"",^0;14^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,8,.1)="Functional Area"
^DD(7100,8,1,0)="^.1"
^DD(7100,8,1,1,0)="7100^AF"
^DD(7100,8,1,1,1)="S ^FSCD(""CALL"",""AF"",$E(X,1,30),DA)="""""
^DD(7100,8,1,1,2)="K ^FSCD(""CALL"",""AF"",$E(X,1,30),DA)"
^DD(7100,8,1,1,"DT")="2961102"
^DD(7100,8,12)="Only active areas"
^DD(7100,8,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(7100,8,21,0)="^^1^1^2940129^"
^DD(7100,8,21,1,0)="This field is the functional area associated with the NOIS call."
^DD(7100,8,"DT")="2961102"
^DD(7100,9,0)="PERFORMED TASK^*P7106.3'^FSC(""TASK"",^0;15^S DIC(""S"")=""I '$P(^(0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7100,9,.1)="Task Performed"
^DD(7100,9,1,0)="^.1"
^DD(7100,9,1,1,0)="7100^AT"
^DD(7100,9,1,1,1)="S ^FSCD(""CALL"",""AT"",$E(X,1,30),DA)="""""
^DD(7100,9,1,1,2)="K ^FSCD(""CALL"",""AT"",$E(X,1,30),DA)"
^DD(7100,9,1,1,"DT")="2961102"
^DD(7100,9,12)="Only active tasks"
^DD(7100,9,12.1)="S DIC(""S"")=""I '$P(^(0),U,2)"""
^DD(7100,9,21,0)="^^1^1^2940129^"
^DD(7100,9,21,1,0)="This field is the task associated with the NOIS call."
^DD(7100,9,"DT")="2961102"
^DD(7100,10,0)="DATE CALL RECEIVED^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,10,.1)="Date of Problem"
^DD(7100,10,1,0)="^.1"
^DD(7100,10,1,1,0)="7100^ADO"
^DD(7100,10,1,1,1)="S ^FSCD(""CALL"",""ADO"",$E(X,1,30),DA)="""""
^DD(7100,10,1,1,2)="K ^FSCD(""CALL"",""ADO"",$E(X,1,30),DA)"
^DD(7100,10,1,1,"DT")="2931004"
^DD(7100,10,21,0)="^^3^3^2970904^^^"
^DD(7100,10,21,1,0)="Enter the date that the problem was reported.  Depending on how business "
^DD(7100,10,21,2,0)="is done at your site this may be todays date or if you transcribe "
^DD(7100,10,21,3,0)="problems this is the date the problem call was taken."
^DD(7100,10,"DT")="2940124"
^DD(7100,20,0)="HOURS (TOTAL)^NJ7,2^^0;13^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""3N.N) X"
^DD(7100,20,.1)="Total Hours for Call"
^DD(7100,20,1,0)="^.1"
^DD(7100,20,1,1,0)="7100^ATHRS"
^DD(7100,20,1,1,1)="S ^FSCD(""CALL"",""ATHRS"",$E(X,1,30),DA)="""""
^DD(7100,20,1,1,2)="K ^FSCD(""CALL"",""ATHRS"",$E(X,1,30),DA)"
^DD(7100,20,1,1,"DT")="2970109"
^DD(7100,20,3)="Type a Number between 0 and 1000, 2 Decimal Digits"
^DD(7100,20,21,0)="^^2^2^2950901^^"
^DD(7100,20,21,1,0)="This field is the number of hours associated with the NOIS call.  This"
^DD(7100,20,21,2,0)="field is updated by the NOIS editing programs."
^DD(7100,20,"DT")="2980610"
^DD(7100,30,0)="SUPPORT REQUEST DESCRIPTION^7100.01^^30;0"
^DD(7100,30,21,0)="^^1^1^2940129^"
^DD(7100,30,21,1,0)="This is the description of the problem for the NOIS call."
^DD(7100,50,0)="NOTES^7100.02^^50;0"
^DD(7100,50,21,0)="^^2^2^2940129^"
^DD(7100,50,21,1,0)="This is an ongoing dialog about the NOIS call.  Responses are appended"
^DD(7100,50,21,2,0)="to this field."
^DD(7100,50,"DT")="2940129"
^DD(7100,51,0)="FIRST LINE OF LAST NOTE^NJ5,0^^120;6^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7100,51,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(7100,51,21,0)="^^2^2^2940129^"
^DD(7100,51,21,1,0)="This field holds the line number of the first line of the last note."
^DD(7100,51,21,2,0)="This is used to display the beginnig of the last note on NOIS displays."
^DD(7100,51,"DT")="2931231"
^DD(7100,52,0)="NOTE RESPONSE NUMBER^NJ5,0^^120;7^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7100,52,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(7100,52,21,0)="^^2^2^2940129^"
^DD(7100,52,21,1,0)="This field is used as a counter for the number of responses appended"
^DD(7100,52,21,2,0)="to the NOTES field."
^DD(7100,52,"DT")="2940117"
^DD(7100,80,0)="RESOLUTION SUMMARY^7100.03^^80;0"
^DD(7100,80,21,0)="^^1^1^2940129^"
^DD(7100,80,21,1,0)="This is a summary of what resolved the NOIS call."
^DD(7100,81,0)="CLOSING PERSON^P7105.2'^FSC(""SPEC"",^0;11^Q"
^DD(7100,81,.1)="Person Closing Call"
^DD(7100,81,1,0)="^.1"
^DD(7100,81,1,1,0)="7100^ASPECC"
^DD(7100,81,1,1,1)="S ^FSCD(""CALL"",""ASPECC"",$E(X,1,30),DA)="""""
^DD(7100,81,1,1,2)="K ^FSCD(""CALL"",""ASPECC"",$E(X,1,30),DA)"
^DD(7100,81,1,1,"DT")="2931021"
^DD(7100,81,21,0)="^^1^1^2940129^"
^DD(7100,81,21,1,0)="This is NOIS specialist closing the NOIS call."
^DD(7100,81,"DT")="2940110"
^DD(7100,82,0)="DATE CALL CLOSED^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,82,.1)="Date Call Closed"
^DD(7100,82,1,0)="^.1"
^DD(7100,82,1,1,0)="7100^ADC"
^DD(7100,82,1,1,1)="S ^FSCD(""CALL"",""ADC"",$E(X,1,30),DA)="""""
^DD(7100,82,1,1,2)="K ^FSCD(""CALL"",""ADC"",$E(X,1,30),DA)"
^DD(7100,82,1,1,"DT")="2931021"
^DD(7100,82,21,0)="^^1^1^2970904^^^"
^DD(7100,82,21,1,0)="This is the date the call was closed."
^DD(7100,82,"DT")="2940110"
^DD(7100,100,0)="AUDIT HISTORY^7100.04^^100;0"
^DD(7100,100,21,0)="^^2^2^2940129^"
^DD(7100,100,21,1,0)="This is a description of any edits made to the NOIS call.  This does"
^DD(7100,100,21,2,0)="not include status changes or new entries."
^DD(7100,101,0)="PRIMARY CALL^P7100'^FSCD(""CALL"",^120;24^Q"
^DD(7100,101,1,0)="^.1"
^DD(7100,101,1,1,0)="7100^APRIMARY^MUMPS"
^DD(7100,101,1,1,1)="I DA'=X S ^FSCD(""CALL"",""APRIMARY"",X,DA)="""""
^DD(7100,101,1,1,2)="K ^FSCD(""CALL"",""APRIMARY"",X,DA)"
^DD(7100,101,1,1,"DT")="2980508"
^DD(7100,101,21,0)="^^1^1^2980508^"
^DD(7100,101,21,1,0)="This is the primary call for this call."
^DD(7100,101,"DT")="2980508"
^DD(7100,102,0)="DUPLICATE TO^P7100'^FSCD(""CALL"",^120;25^Q"
^DD(7100,102,1,0)="^.1"
^DD(7100,102,1,1,0)="7100^ADUP"
^DD(7100,102,1,1,1)="S ^FSCD(""CALL"",""ADUP"",$E(X,1,30),DA)="""""
^DD(7100,102,1,1,2)="K ^FSCD(""CALL"",""ADUP"",$E(X,1,30),DA)"
^DD(7100,102,1,1,"DT")="2980508"
^DD(7100,102,21,0)="^^1^1^2980508^"
^DD(7100,102,21,1,0)="This is a duplicate that this call is associated with."
^DD(7100,102,"DT")="2980508"
^DD(7100,103,0)="DUPLICATE HISTORY^7100.0103^^103;0"
^DD(7100,110,0)="STATUS HISTORY^7100.05^^110;0"
^DD(7100,110,21,0)="^^1^1^2940129^"
^DD(7100,110,21,1,0)="This is a history of status changes made to the call."
^DD(7100,120,0)="RECEIPT TIMESTAMP^RD^^120;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,120,.1)="Time Call Logged on System"
^DD(7100,120,1,0)="^.1"
^DD(7100,120,1,1,0)="7100^ATR"
^DD(7100,120,1,1,1)="S ^FSCD(""CALL"",""ATR"",$E(X,1,30),DA)="""""
^DD(7100,120,1,1,2)="K ^FSCD(""CALL"",""ATR"",$E(X,1,30),DA)"
^DD(7100,120,1,1,"DT")="2961102"
^DD(7100,120,21,0)="^^2^2^2940129^^"
^DD(7100,120,21,1,0)="This is a timestamp of when the call was logged into the NOIS system, "
^DD(7100,120,21,2,0)="this field and field 10 may not be the same."
^DD(7100,120,23,0)="^^1^1^2940106^"
^DD(7100,120,23,1,0)="This field is a timestamp of when this entry in the file was entered."
^DD(7100,120,"DT")="2961102"
^DD(7100,121,0)="STATUS CHANGE TIMESTAMP^D^^120;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,121,.1)="Last Status Change Time"
^DD(7100,121,1,0)="^.1"
^DD(7100,121,1,1,0)="7100^ATS"
^DD(7100,121,1,1,1)="S ^FSCD(""CALL"",""ATS"",$E(X,1,30),DA)="""""
^DD(7100,121,1,1,2)="K ^FSCD(""CALL"",""ATS"",$E(X,1,30),DA)"
^DD(7100,121,1,1,"DT")="2961102"
^DD(7100,121,21,0)="^^1^1^2940129^"
^DD(7100,121,21,1,0)="This is the date/time of the last status change."
^DD(7100,121,"DT")="2961102"
^DD(7100,122,0)="**CLOSE TIMESTAMP^D^^120;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,122,.1)="Closing Timestamp"
^DD(7100,122,1,0)="^.1"
^DD(7100,122,1,1,0)="7100^ATC"
^DD(7100,122,1,1,1)="S ^FSCD(""CALL"",""ATC"",$E(X,1,30),DA)="""""
^DD(7100,122,1,1,2)="K ^FSCD(""CALL"",""ATC"",$E(X,1,30),DA)"
^DD(7100,122,1,1,"DT")="2961102"
^DD(7100,122,21,0)="^^1^1^2940129^"
^DD(7100,122,21,1,0)="This is the date/time when the call was last closed."
^DD(7100,122,"DT")="2961102"
^DD(7100,123,0)="EDITED TIMESTAMP^D^^120;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,123,.1)="Time Last Edited"
^DD(7100,123,1,0)="^.1"
^DD(7100,123,1,1,0)="7100^AEDT"
^DD(7100,123,1,1,1)="S ^FSCD(""CALL"",""AEDT"",$E(X,1,30),DA)="""""
^DD(7100,123,1,1,2)="K ^FSCD(""CALL"",""AEDT"",$E(X,1,30),DA)"
^DD(7100,123,1,1,"DT")="2961102"
^DD(7100,123,21,0)="^^1^1^2940129^"
^DD(7100,123,21,1,0)="This the date/time when the call was last edited."
^DD(7100,123,"DT")="2961102"
^DD(7100,124,0)="LAST EDITED BY^P200'^VA(200,^120;5^Q"
^DD(7100,124,.1)="Last Edited By"
^DD(7100,124,1,0)="^.1"
^DD(7100,124,1,1,0)="7100^ALEB"
^DD(7100,124,1,1,1)="S ^FSCD(""CALL"",""ALEB"",$E(X,1,30),DA)="""""
^DD(7100,124,1,1,2)="K ^FSCD(""CALL"",""ALEB"",$E(X,1,30),DA)"
^DD(7100,124,1,1,"DT")="2961102"
^DD(7100,124,21,0)="^^1^1^2940627^^^"
^DD(7100,124,21,1,0)="This is the NOIS specialist or person last editing the call."
^DD(7100,124,"DT")="2961102"
^DD(7100,125,0)="PICKUP TIMESTAMP^D^^120;22^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7100,125,1,0)="^.1"
^DD(7100,125,1,1,0)="7100^ATP"
^DD(7100,125,1,1,1)="S ^FSCD(""CALL"",""ATP"",$E(X,1,30),DA)="""""
^DD(7100,125,1,1,2)="K ^FSCD(""CALL"",""ATP"",$E(X,1,30),DA)"
^DD(7100,125,1,1,"DT")="2970830"
^DD(7100,125,21,0)="^^1^1^2980118^"
^DD(7100,125,21,1,0)="This is the date/time when a specialist for the call was first entered."
^DD(7100,125,"DT")="2970830"
^DD(7100,126,0)="PICKUP TIME^NJ7,0^^120;23^K:+X'=X!(X>5000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7100,126,1,0)="^.1"
^DD(7100,126,1,1,0)="7100^AM"
^DD(7100,126,1,1,1)="S ^FSCD(""CALL"",""AM"",$E(X,1,30),DA)="""""
^DD(7100,126,1,1,2)="K ^FSCD(""CALL"",""AM"",$E(X,1,30),DA)"
^DD(7100,126,1,1,"DT")="2970830"
^DD(7100,126,3)="Type a Number between 0 and 5000000, 0 Decimal Digits"
^DD(7100,126,21,0)="^^2^2^2980118^"
^DD(7100,126,21,1,0)="This is the number of minutes between when the call was first logged to"
^DD(7100,126,21,2,0)="when a pickup timestamp was recorded."
^DD(7100,126,"DT")="2970830"
^DD(7100,"B","**CLOSE TIMESTAMP",122)=""
^DD(7100,"B","AGE OF CALL",4.2)=""
^DD(7100,"B","AGE SINCE LAST EDIT",4.3)=""
^DD(7100,"B","AGE SINCE LAST STATUS",4.4)=""
^DD(7100,"B","AUDIT HISTORY",100)=""
^DD(7100,"B","Age of Call",4.2)="1"
^DD(7100,"B","Age since last edit",4.3)="1"
^DD(7100,"B","Brief Problem Description",1)="1"
^DD(7100,"B","CLOSING PERSON",81)=""
^DD(7100,"B","CURRENT STATUS",4.5)=""
^DD(7100,"B","Call Reference Number",.01)="1"
^DD(7100,"B","Call Status",4)="1"
^DD(7100,"B","Closing Timestamp",122)="1"
^DD(7100,"B","Contact Phone Number",2.2)="1"
^DD(7100,"B","DATE CALL CLOSED",82)=""
^DD(7100,"B","DATE CALL RECEIVED",10)=""
^DD(7100,"B","DEVELOPING OFFICE",2.4)=""
^DD(7100,"B","DUPLICATE HISTORY",103)=""
^DD(7100,"B","DUPLICATE TO",102)=""
^DD(7100,"B","Date Call Closed",82)="1"
^DD(7100,"B","Date call Re-opened",2.6)="1"
^DD(7100,"B","Date of Problem",10)="1"
^DD(7100,"B","Days Since Last Status Change",4.4)="1"
^DD(7100,"B","EDITED TIMESTAMP",123)=""
^DD(7100,"B","ENTRY PERSON",5.2)=""
^DD(7100,"B","ENTRY PERSON TYPE",5.3)=""
^DD(7100,"B","FIRST LINE OF LAST NOTE",51)=""
^DD(7100,"B","FUNCTIONAL AREA",8)=""
^DD(7100,"B","Functional Area",8)="1"
^DD(7100,"B","HOURS (TOTAL)",20)=""
^DD(7100,"B","KEYWORDS",1.5)=""
^DD(7100,"B","Keywords",1.5)="1"
^DD(7100,"B","LAST EDITED BY",124)=""
^DD(7100,"B","LOCATION TYPE",2.7)=""
^DD(7100,"B","Last Edited By",124)="1"
^DD(7100,"B","Last Status Change Time",121)="1"
^DD(7100,"B","MODULE/VERSION",3)=""
^DD(7100,"B","NOTE RESPONSE NUMBER",52)=""
^DD(7100,"B","NOTES",50)=""
^DD(7100,"B","Office for Development",2.4)="1"
^DD(7100,"B","Office for Support",2.3)="1"
^DD(7100,"B","PACKAGE",3.1)=""
^DD(7100,"B","PACKAGE GROUP",3.3)=""
^DD(7100,"B","PATCH",7)=""
^DD(7100,"B","PERFORMED TASK",9)=""
^DD(7100,"B","PHONE NUMBER",2.2)=""
^DD(7100,"B","PICKUP TIME",126)=""
^DD(7100,"B","PICKUP TIMESTAMP",125)=""
^DD(7100,"B","PREVIOUS STATUS",4.6)=""
^DD(7100,"B","PRIMARY CALL",101)=""
^DD(7100,"B","PRIMARY SITE CONTACT",2.1)=""
^DD(7100,"B","PRIMARY SPECIALIST",5)=""
^DD(7100,"B","PRIORITY",6)=""
^DD(7100,"B","Package Module/Version",3)="1"
^DD(7100,"B","Patch",7)="1"
^DD(7100,"B","Person Closing Call",81)="1"
^DD(7100,"B","Primary Location Contact",2.1)="1"
^DD(7100,"B","Priority",6)="1"
^DD(7100,"B","RECEIPT TIMESTAMP",120)=""
^DD(7100,"B","REFERENCE NUMBER",.01)=""
^DD(7100,"B","REFERRAL SPECIALIST",5.1)=""
^DD(7100,"B","REFERRAL STATUS",4.1)=""
^DD(7100,"B","REOPENED",2.6)=""
^DD(7100,"B","REPORTING SITE",2)=""
^DD(7100,"B","RESOLUTION SUMMARY",80)=""
^DD(7100,"B","RTD IN DATE",4.7)=""
^DD(7100,"B","RTD OUT DATE",4.8)=""
^DD(7100,"B","RTD REREF DATE",4.9)=""
^DD(7100,"B","Referral Status",4.1)="1"
^DD(7100,"B","Reporting Location",2)="1"
^DD(7100,"B","SPECIALIST OFFICE",2.55)=""
^DD(7100,"B","STATUS",4)=""
^DD(7100,"B","STATUS CHANGE TIMESTAMP",121)=""
^DD(7100,"B","STATUS HISTORY",110)=""
^DD(7100,"B","SUBCOMPONENT",3.2)=""
^DD(7100,"B","SUBJECT",1)=""
^DD(7100,"B","SUPPORT REQUEST DESCRIPTION",30)=""
^DD(7100,"B","SUPPORTING OFFICE",2.3)=""
^DD(7100,"B","SYSTEM",2.9)=""
^DD(7100,"B","Specialist",5)="1"
^DD(7100,"B","Subcomponent",3.2)="1"
^DD(7100,"B","Task Performed",9)="1"
^DD(7100,"B","Time Call Logged on System",120)="1"
^DD(7100,"B","Time Last Edited",123)="1"
^DD(7100,"B","Total Hours for Call",20)="1"
^DD(7100,"B","VISN",2.8)=""
^DD(7100,"B","WEB LINK",1.7)=""
^DD(7100,"GL",0,1,.01)=""
^DD(7100,"GL",0,2,4)=""
^DD(7100,"GL",0,3,10)=""
^DD(7100,"GL",0,4,82)=""
^DD(7100,"GL",0,5,2)=""
^DD(7100,"GL",0,6,2.1)=""
^DD(7100,"GL",0,7,2.2)=""
^DD(7100,"GL",0,8,3)=""
^DD(7100,"GL",0,9,5)=""
^DD(7100,"GL",0,10,6)=""
^DD(7100,"GL",0,11,81)=""
^DD(7100,"GL",0,13,20)=""
^DD(7100,"GL",0,14,8)=""
^DD(7100,"GL",0,15,9)=""
^DD(7100,"GL",0,16,2.3)=""
^DD(7100,"GL",0,17,4.1)=""
^DD(7100,"GL",0,18,4.2)=""
^DD(7100,"GL",0,19,4.3)=""
^DD(7100,"GL",0,20,2.4)=""
^DD(7100,"GL",0,21,5.1)=""
^DD(7100,"GL",0,22,2.6)=""
^DD(7100,"GL",0,23,4.4)=""
^DD(7100,"GL",0,24,4.5)=""
^DD(7100,"GL",1,"E1,245",1)=""
^DD(7100,"GL",1.5,1,1.5)=""
^DD(7100,"GL",1.7,"E1,245",1.7)=""
^DD(7100,"GL",30,0,30)=""
^DD(7100,"GL",50,0,50)=""
^DD(7100,"GL",80,0,80)=""
^DD(7100,"GL",100,0,100)=""
^DD(7100,"GL",103,0,103)=""
^DD(7100,"GL",110,0,110)=""
^DD(7100,"GL",120,1,120)=""
^DD(7100,"GL",120,2,121)=""
^DD(7100,"GL",120,3,122)=""
^DD(7100,"GL",120,4,123)=""
^DD(7100,"GL",120,5,124)=""
^DD(7100,"GL",120,6,51)=""
^DD(7100,"GL",120,7,52)=""
^DD(7100,"GL",120,8,4.6)=""
^DD(7100,"GL",120,9,3.1)=""
^DD(7100,"GL",120,10,2.55)=""
^DD(7100,"GL",120,11,3.2)=""
^DD(7100,"GL",120,12,2.7)=""
^DD(7100,"GL",120,13,3.3)=""
^DD(7100,"GL",120,14,7)=""
^DD(7100,"GL",120,15,2.8)=""
^DD(7100,"GL",120,16,4.7)=""
^DD(7100,"GL",120,17,4.8)=""
^DD(7100,"GL",120,18,4.9)=""
^DD(7100,"GL",120,19,2.9)=""
^DD(7100,"GL",120,20,5.2)=""
^DD(7100,"GL",120,21,5.3)=""
^DD(7100,"GL",120,22,125)=""
^DD(7100,"GL",120,23,126)=""
^DD(7100,"GL",120,24,101)=""
^DD(7100,"GL",120,25,102)=""
^DD(7100,"IX",.01)=""
^DD(7100,"IX",1)=""
^DD(7100,"IX",1.5)=""
^DD(7100,"IX",1.7)=""
^DD(7100,"IX",2)=""
^DD(7100,"IX",2.1)=""
^DD(7100,"IX",2.3)=""
^DD(7100,"IX",2.4)=""
^DD(7100,"IX",2.55)=""
^DD(7100,"IX",2.6)=""
^DD(7100,"IX",2.7)=""
^DD(7100,"IX",2.8)=""
^DD(7100,"IX",2.9)=""
^DD(7100,"IX",3)=""
^DD(7100,"IX",3.1)=""
^DD(7100,"IX",3.2)=""
^DD(7100,"IX",3.3)=""
^DD(7100,"IX",4)=""
^DD(7100,"IX",4.1)=""
^DD(7100,"IX",4.2)=""
^DD(7100,"IX",4.3)=""
^DD(7100,"IX",4.4)=""
^DD(7100,"IX",4.7)=""
^DD(7100,"IX",4.8)=""
^DD(7100,"IX",4.9)=""
^DD(7100,"IX",5)=""
^DD(7100,"IX",5.1)=""
^DD(7100,"IX",5.2)=""
^DD(7100,"IX",5.3)=""
^DD(7100,"IX",6)=""
^DD(7100,"IX",7)=""
^DD(7100,"IX",8)=""
^DD(7100,"IX",9)=""
^DD(7100,"IX",10)=""
^DD(7100,"IX",20)=""
^DD(7100,"IX",81)=""
^DD(7100,"IX",82)=""
^DD(7100,"IX",101)=""
^DD(7100,"IX",102)=""
^DD(7100,"IX",120)=""
^DD(7100,"IX",121)=""
^DD(7100,"IX",122)=""
^DD(7100,"IX",123)=""
^DD(7100,"IX",124)=""
^DD(7100,"IX",125)=""
^DD(7100,"IX",126)=""
^DD(7100,"RQ",.01)=""
^DD(7100,"RQ",1)=""
^DD(7100,"RQ",2)=""
^DD(7100,"RQ",4)=""
^DD(7100,"RQ",10)=""
^DD(7100,"RQ",120)=""
^DD(7100,"SB",7100.01,30)=""
^DD(7100,"SB",7100.0103,103)=""
^DD(7100,"SB",7100.02,50)=""
^DD(7100,"SB",7100.03,80)=""
^DD(7100,"SB",7100.04,100)=""
^DD(7100,"SB",7100.05,110)=""
^DD(7100.01,0)="SUPPORT REQUEST DESCRIPTION SUB-FIELD^^.01^1"
^DD(7100.01,0,"DT")="2930929"
^DD(7100.01,0,"NM","SUPPORT REQUEST DESCRIPTION")=""
^DD(7100.01,0,"UP")="7100"
^DD(7100.01,.01,0)="SUPPORT REQUEST DESCRIPTION^W^^0;1^Q"
^DD(7100.01,.01,.1)="Description of Problem"
^DD(7100.01,.01,21,0)="^^1^1^2940129^"
^DD(7100.01,.01,21,1,0)="This is the description of the problem."
^DD(7100.01,.01,"DT")="2940110"
^DD(7100.01,"B","Description of Problem",.01)="1"
^DD(7100.01,"B","SUPPORT REQUEST DESCRIPTION",.01)=""
^DD(7100.01,"GL",0,1,.01)=""
^DD(7100.0103,0)="DUPLICATE HISTORY SUB-FIELD^^.01^1"
^DD(7100.0103,0,"DT")="2980508"
^DD(7100.0103,0,"NM","DUPLICATE HISTORY")=""
^DD(7100.0103,0,"UP")="7100"
^DD(7100.0103,.01,0)="DUPLICATE HISTORY^WL^^0;1^Q"
^DD(7100.0103,.01,21,0)="^^1^1^2980508^"
^DD(7100.0103,.01,21,1,0)="This is an audit of changes made to associated calls."
^DD(7100.0103,.01,"DT")="2980508"
^DD(7100.0103,"B","DUPLICATE HISTORY",.01)=""
^DD(7100.0103,"GL",0,1,.01)=""
^DD(7100.02,0)="NOTES SUB-FIELD^^.01^1"
^DD(7100.02,0,"DT")="2931113"
^DD(7100.02,0,"NM","NOTES")=""
^DD(7100.02,0,"UP")="7100"
^DD(7100.02,.01,0)="NOTE^WL^^0;1^Q"
^DD(7100.02,.01,21,0)="^^1^1^2940129^"
^DD(7100.02,.01,21,1,0)="This is an ongoing dialog about the NOIS call."
^DD(7100.02,.01,"DT")="2940129"
^DD(7100.02,"B","NOTE",.01)=""
^DD(7100.02,"GL",0,1,.01)=""
^DD(7100.03,0)="RESOLUTION SUMMARY SUB-FIELD^^.01^1"
^DD(7100.03,0,"DT")="2930929"
^DD(7100.03,0,"NM","RESOLUTION SUMMARY")=""
^DD(7100.03,0,"UP")="7100"
^DD(7100.03,.01,0)="RESOLUTION SUMMARY^W^^0;1^Q"
^DD(7100.03,.01,.1)="Resolution Description"
^DD(7100.03,.01,21,0)="^^1^1^2940129^"
^DD(7100.03,.01,21,1,0)="This is a summary of what resolved the call."
^DD(7100.03,.01,"DT")="2940110"
^DD(7100.03,"B","RESOLUTION SUMMARY",.01)=""
^DD(7100.03,"B","Resolution Description",.01)="1"
^DD(7100.03,"GL",0,1,.01)=""
^DD(7100.04,0)="AUDIT HISTORY SUB-FIELD^^.01^1"
^DD(7100.04,0,"DT")="2931017"
^DD(7100.04,0,"NM","AUDIT HISTORY")=""
^DD(7100.04,0,"UP")="7100"
^DD(7100.04,.01,0)="AUDIT HISTORY^WL^^0;1^Q"
^DD(7100.04,.01,.1)="History of Edit Changes"
^DD(7100.04,.01,21,0)="^^1^1^2940129^"
^DD(7100.04,.01,21,1,0)="These are the changes made to the call."
^DD(7100.04,.01,"DT")="2940110"
^DD(7100.04,"B","AUDIT HISTORY",.01)=""
^DD(7100.04,"B","History of Edit Changes",.01)="1"
^DD(7100.04,"GL",0,1,.01)=""
^DD(7100.05,0)="STATUS HISTORY SUB-FIELD^^.01^1"
^DD(7100.05,0,"DT")="2940122"
^DD(7100.05,0,"NM","STATUS HISTORY")=""
^DD(7100.05,0,"UP")="7100"
^DD(7100.05,.01,0)="STATUS HISTORY^WL^^0;1^Q"
^DD(7100.05,.01,21,0)="^^1^1^2940129^"
^DD(7100.05,.01,21,1,0)="These are the changes made to the status of the call."
^DD(7100.05,.01,"DT")="2940122"
^DD(7100.05,"B","STATUS HISTORY",.01)=""
^DD(7100.05,"GL",0,1,.01)=""
^DD(7100.1,0)="FIELD^^1^2"
^DD(7100.1,0,"DT")="2940122"
^DD(7100.1,0,"IX","B",7100.1,.01)=""
^DD(7100.1,0,"NM","NOIS COUNTER")=""
^DD(7100.1,0,"VR")="1.1"
^DD(7100.1,0,"VRPK")="NOIS"
^DD(7100.1,.01,0)="MONTH^RDX^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X I $D(X) S X=$E(X,1,5)"
^DD(7100.1,.01,1,0)="^.1"
^DD(7100.1,.01,1,1,0)="7100.1^B"
^DD(7100.1,.01,1,1,1)="S ^FSCD(""COUNT"",""B"",$E(X,1,30),DA)="""""
^DD(7100.1,.01,1,1,2)="K ^FSCD(""COUNT"",""B"",$E(X,1,30),DA)"
^DD(7100.1,.01,3)=""
^DD(7100.1,.01,21,0)="^^2^2^2940129^"
^DD(7100.1,.01,21,1,0)="This is an entry of the year and month set by the NOIS routines to create"
^DD(7100.1,.01,21,2,0)="a NOIS reference number."
^DD(7100.1,.01,"DT")="2940122"
^DD(7100.1,1,0)="COUNT^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7100.1,1,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(7100.1,1,21,0)="^^2^2^2940129^"
^DD(7100.1,1,21,1,0)="This is a sequence number of NOIS calls logged for the month and year in"
^DD(7100.1,1,21,2,0)="the MONTH field.  This number is used to create a NOIS reference number."
^DD(7100.1,1,"DT")="2940122"
^DD(7100.1,"B","COUNT",1)=""
^DD(7100.1,"B","MONTH",.01)=""
^DD(7100.1,"GL",0,1,.01)=""
^DD(7100.1,"GL",0,2,1)=""
^DD(7100.1,"IX",.01)=""
^DD(7100.1,"RQ",.01)=""
^DD(7100.2,0)="FIELD^^6^7"
^DD(7100.2,0,"DT")="2960311"
^DD(7100.2,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FSC(""LIST"",+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(7107.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7100.2,0,"ID",2)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FSC(""SITE"",+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(7105.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7100.2,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7100.2,0,"IX","ACLIST",7100.2,.01)=""
^DD(7100.2,0,"IX","ACLIST1",7100.2,1)=""
^DD(7100.2,0,"IX","ACLOC",7100.2,.01)=""
^DD(7100.2,0,"IX","ACLOC1",7100.2,2)=""
^DD(7100.2,0,"IX","ACUSER",7100.2,.01)=""
^DD(7100.2,0,"IX","ACUSER1",7100.2,3)=""
^DD(7100.2,0,"IX","ALIST",7100.2,1)=""
^DD(7100.2,0,"IX","ALOC",7100.2,2)=""
^DD(7100.2,0,"IX","AUSER",7100.2,3)=""
^DD(7100.2,0,"IX","B",7100.2,.01)=""
^DD(7100.2,0,"NM","NOIS NOTIFICATION")=""
^DD(7100.2,0,"VR")="1.1"
^DD(7100.2,0,"VRPK")="NOIS"
^DD(7100.2,.01,0)="CALL^RP7100'^FSCD(""CALL"",^0;1^Q"
^DD(7100.2,.01,1,0)="^.1"
^DD(7100.2,.01,1,1,0)="7100.2^B"
^DD(7100.2,.01,1,1,1)="S ^FSCD(""NOTIFY"",""B"",$E(X,1,30),DA)="""""
^DD(7100.2,.01,1,1,2)="K ^FSCD(""NOTIFY"",""B"",$E(X,1,30),DA)"
^DD(7100.2,.01,1,2,0)="7100.2^ACLIST^MUMPS"
^DD(7100.2,.01,1,2,1)="D ACLIST^FSCXREFN(""SET"",""CALL"",X,DA)"
^DD(7100.2,.01,1,2,2)="D ACLIST^FSCXREFN(""KILL"",""CALL"",X,DA)"
^DD(7100.2,.01,1,2,"DT")="2931210"
^DD(7100.2,.01,1,3,0)="7100.2^ACLOC^MUMPS"
^DD(7100.2,.01,1,3,1)="D ACLOC^FSCXREFN(""SET"",""CALL"",X,DA)"
^DD(7100.2,.01,1,3,2)="D ACLOC^FSCXREFN(""KILL"",""CALL"",X,DA)"
^DD(7100.2,.01,1,3,"DT")="2931210"
^DD(7100.2,.01,1,4,0)="7100.2^ACUSER^MUMPS"
^DD(7100.2,.01,1,4,1)="D ACUSER^FSCXREFN(""SET"",""CALL"",X,DA)"
^DD(7100.2,.01,1,4,2)="D ACUSER^FSCXREFN(""KILL"",""CALL"",X,DA)"
^DD(7100.2,.01,1,4,"DT")="2931211"
^DD(7100.2,.01,3)=""
^DD(7100.2,.01,21,0)="^^1^1^2980118^^"
^DD(7100.2,.01,21,1,0)="This is the call flagged for notification."
^DD(7100.2,.01,"DT")="2931211"
^DD(7100.2,1,0)="LIST^P7107.1'^FSC(""LIST"",^0;2^Q"
^DD(7100.2,1,1,0)="^.1"
^DD(7100.2,1,1,1,0)="7100.2^ACLIST1^MUMPS"
^DD(7100.2,1,1,1,1)="D ACLIST^FSCXREFN(""SET"",""LIST"",X,DA)"
^DD(7100.2,1,1,1,2)="D ACLIST^FSCXREFN(""KILL"",""LIST"",X,DA)"
^DD(7100.2,1,1,1,"DT")="2931210"
^DD(7100.2,1,1,2,0)="7100.2^ALIST"
^DD(7100.2,1,1,2,1)="S ^FSCD(""NOTIFY"",""ALIST"",$E(X,1,30),DA)="""""
^DD(7100.2,1,1,2,2)="K ^FSCD(""NOTIFY"",""ALIST"",$E(X,1,30),DA)"
^DD(7100.2,1,1,2,"DT")="2931210"
^DD(7100.2,1,21,0)="^^2^2^2940129^"
^DD(7100.2,1,21,1,0)="This is the NOIS list that uses notification to schedule this call for"
^DD(7100.2,1,21,2,0)="notification."
^DD(7100.2,1,"DT")="2931210"
^DD(7100.2,2,0)="LOCATION^P7105.1'^FSC(""SITE"",^0;3^Q"
^DD(7100.2,2,1,0)="^.1"
^DD(7100.2,2,1,1,0)="7100.2^ACLOC1^MUMPS"
^DD(7100.2,2,1,1,1)="D ACLOC^FSCXREFN(""SET"",""LOC"",X,DA)"
^DD(7100.2,2,1,1,2)="D ACLOC^FSCXREFN(""KILL"",""LOC"",X,DA)"
^DD(7100.2,2,1,1,"DT")="2931210"
^DD(7100.2,2,1,2,0)="7100.2^ALOC"
^DD(7100.2,2,1,2,1)="S ^FSCD(""NOTIFY"",""ALOC"",$E(X,1,30),DA)="""""
^DD(7100.2,2,1,2,2)="K ^FSCD(""NOTIFY"",""ALOC"",$E(X,1,30),DA)"
^DD(7100.2,2,1,2,"DT")="2931210"
^DD(7100.2,2,21,0)="^^1^1^2940129^"
^DD(7100.2,2,21,1,0)="This is the NOIS location that has scheduled notification for this call."
^DD(7100.2,2,"DT")="2931210"
^DD(7100.2,3,0)="USER^P200'^VA(200,^0;4^Q"
^DD(7100.2,3,1,0)="^.1"
^DD(7100.2,3,1,1,0)="7100.2^ACUSER1^MUMPS"
^DD(7100.2,3,1,1,1)="D ACUSER^FSCXREFN(""SET"",""USER"",X,DA)"
^DD(7100.2,3,1,1,2)="D ACUSER^FSCXREFN(""KILL"",""USER"",X,DA)"
^DD(7100.2,3,1,1,"DT")="2931211"
^DD(7100.2,3,1,2,0)="7100.2^AUSER"
^DD(7100.2,3,1,2,1)="S ^FSCD(""NOTIFY"",""AUSER"",$E(X,1,30),DA)="""""
^DD(7100.2,3,1,2,2)="K ^FSCD(""NOTIFY"",""AUSER"",$E(X,1,30),DA)"
^DD(7100.2,3,1,2,"DT")="2931211"
^DD(7100.2,3,21,0)="^^1^1^2940129^"
^DD(7100.2,3,21,1,0)="This is a user who has requested notification on this call."
^DD(7100.2,3,"DT")="2931211"
^DD(7100.2,4,0)="NOTIFY METHOD^S^MAIL:MAIL;ALERT:ALERT;^0;5^Q"
^DD(7100.2,4,21,0)="^^1^1^2940129^"
^DD(7100.2,4,21,1,0)="This is the method (mail or menu alert) that will be used for notification."
^DD(7100.2,4,"DT")="2931211"
^DD(7100.2,5,0)="NOTIFY EVENT^S^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;^0;6^Q"
^DD(7100.2,5,21,0)="^^1^1^2940129^"
^DD(7100.2,5,21,1,0)="This is the event (change of status or edit) that triggers the notification."
^DD(7100.2,5,"DT")="2931211"
^DD(7100.2,6,0)="MANUAL^S^1:YES;^0;7^Q"
^DD(7100.2,6,21,0)="^^1^1^2980118^"
^DD(7100.2,6,21,1,0)="This is a flag designating the notification was sent manually."
^DD(7100.2,6,"DT")="2960311"
^DD(7100.2,"B","CALL",.01)=""
^DD(7100.2,"B","LIST",1)=""
^DD(7100.2,"B","LOCATION",2)=""
^DD(7100.2,"B","MANUAL",6)=""
^DD(7100.2,"B","NOTIFY EVENT",5)=""
^DD(7100.2,"B","NOTIFY METHOD",4)=""
^DD(7100.2,"B","USER",3)=""
^DD(7100.2,"GL",0,1,.01)=""
^DD(7100.2,"GL",0,2,1)=""
^DD(7100.2,"GL",0,3,2)=""
^DD(7100.2,"GL",0,4,3)=""
^DD(7100.2,"GL",0,5,4)=""
^DD(7100.2,"GL",0,6,5)=""
^DD(7100.2,"GL",0,7,6)=""
^DD(7100.2,"IX",.01)=""
^DD(7100.2,"IX",1)=""
^DD(7100.2,"IX",2)=""
^DD(7100.2,"IX",3)=""
^DD(7100.2,"RQ",.01)=""
^DD(7100.3,0)="FIELD^^4^5"
^DD(7100.3,0,"DT")="2960217"
^DD(7100.3,0,"IX","AD",7100.3,4)=""
^DD(7100.3,0,"IX","ALERT",7100.3,.01)=""
^DD(7100.3,0,"IX","AUC",7100.3,.01)=""
^DD(7100.3,0,"IX","AUC1",7100.3,1)=""
^DD(7100.3,0,"IX","B",7100.3,.01)=""
^DD(7100.3,0,"NM","NOIS ALERT")=""
^DD(7100.3,0,"PT",7100.4,.01)=""
^DD(7100.3,0,"VR")="1.1"
^DD(7100.3,0,"VRPK")="NOIS"
^DD(7100.3,.01,0)="USER (SENDER)^RP200'^VA(200,^0;1^Q"
^DD(7100.3,.01,1,0)="^.1"
^DD(7100.3,.01,1,1,0)="7100.3^B"
^DD(7100.3,.01,1,1,1)="S ^FSCD(""ALERT"",""B"",$E(X,1,30),DA)="""""
^DD(7100.3,.01,1,1,2)="K ^FSCD(""ALERT"",""B"",$E(X,1,30),DA)"
^DD(7100.3,.01,1,2,0)="7100.3^ALERT^MUMPS"
^DD(7100.3,.01,1,2,1)="D ALERT^FSCXREFA(""SET"",X,DA)"
^DD(7100.3,.01,1,2,2)="D ALERT^FSCXREFA(""KILL"",X,DA)"
^DD(7100.3,.01,1,2,"DT")="2931210"
^DD(7100.3,.01,1,3,0)="7100.3^AUC^MUMPS"
^DD(7100.3,.01,1,3,1)="D AUC^FSCXREFA(""SET"",""USER"",X,DA)"
^DD(7100.3,.01,1,3,2)="D AUC^FSCXREFA(""KILL"",""USER"",X,DA)"
^DD(7100.3,.01,1,3,"DT")="2931210"
^DD(7100.3,.01,3)=""
^DD(7100.3,.01,21,0)="^^1^1^2940129^"
^DD(7100.3,.01,21,1,0)="This is the user who has sent or scheduled the notification."
^DD(7100.3,.01,"DT")="2931227"
^DD(7100.3,1,0)="CALL^P7100'^FSCD(""CALL"",^0;2^Q"
^DD(7100.3,1,1,0)="^.1"
^DD(7100.3,1,1,1,0)="7100.3^AUC1^MUMPS"
^DD(7100.3,1,1,1,1)="D AUC^FSCXREFA(""SET"",""CALL"",X,DA)"
^DD(7100.3,1,1,1,2)="D AUC^FSCXREFA(""KILL"",""CALL"",X,DA)"
^DD(7100.3,1,1,1,"DT")="2931210"
^DD(7100.3,1,21,0)="^^1^1^2940129^"
^DD(7100.3,1,21,1,0)="This is the NOIS call used by the notification."
^DD(7100.3,1,"DT")="2931210"
^DD(7100.3,2,0)="MESSAGE^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(7100.3,2,3)="Answer must be 1-80 characters in length."
^DD(7100.3,2,21,0)="^^1^1^2940129^"
^DD(7100.3,2,21,1,0)="This is a message sent with the notification."
^DD(7100.3,2,"DT")="2931213"
^DD(7100.3,3,0)="DATE SENT^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100.3,3,21,0)="^^1^1^2940129^"
^DD(7100.3,3,21,1,0)="This is the date the notification was sent."
^DD(7100.3,3,"DT")="2931227"
^DD(7100.3,4,0)="DELIVERY DATE^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100.3,4,1,0)="^.1"
^DD(7100.3,4,1,1,0)="7100.3^AD"
^DD(7100.3,4,1,1,1)="S ^FSCD(""ALERT"",""AD"",$E(X,1,30),DA)="""""
^DD(7100.3,4,1,1,2)="K ^FSCD(""ALERT"",""AD"",$E(X,1,30),DA)"
^DD(7100.3,4,1,1,"DT")="2960217"
^DD(7100.3,4,21,0)="^^1^1^2980118^"
^DD(7100.3,4,21,1,0)="This is the date the alert will be delivered."
^DD(7100.3,4,"DT")="2960217"
^DD(7100.3,"B","CALL",1)=""
^DD(7100.3,"B","DATE SENT",3)=""
^DD(7100.3,"B","DELIVERY DATE",4)=""
^DD(7100.3,"B","MESSAGE",2)=""
^DD(7100.3,"B","USER (SENDER)",.01)=""
^DD(7100.3,"GL",0,1,.01)=""
^DD(7100.3,"GL",0,2,1)=""
^DD(7100.3,"GL",0,3,2)=""
^DD(7100.3,"GL",0,4,3)=""
^DD(7100.3,"GL",0,5,4)=""
^DD(7100.3,"IX",.01)=""
^DD(7100.3,"IX",1)=""
^DD(7100.3,"IX",4)=""
^DD(7100.3,"RQ",.01)=""
^DD(7100.4,0)="FIELD^^2^3"
^DD(7100.4,0,"DT")="2940222"
^DD(7100.4,0,"IX","AC",7100.4,1)=""
^DD(7100.4,0,"IX","B",7100.4,.01)=""
^DD(7100.4,0,"NM","NOIS SEND")=""
^DD(7100.4,0,"VR")="1.1"
^DD(7100.4,0,"VRPK")="NOIS"
^DD(7100.4,.01,0)="ALERT^RP7100.3'^FSCD(""ALERT"",^0;1^Q"
^DD(7100.4,.01,1,0)="^.1"
^DD(7100.4,.01,1,1,0)="7100.4^B"
^DD(7100.4,.01,1,1,1)="S ^FSCD(""SEND"",""B"",$E(X,1,30),DA)="""""
^DD(7100.4,.01,1,1,2)="K ^FSCD(""SEND"",""B"",$E(X,1,30),DA)"
^DD(7100.4,.01,3)=""
^DD(7100.4,.01,21,0)="^^1^1^2940129^"
^DD(7100.4,.01,21,1,0)="This is a scheduled alert."
^DD(7100.4,.01,"DT")="2931227"
^DD(7100.4,1,0)="CALL^P7100'^FSCD(""CALL"",^0;2^Q"
^DD(7100.4,1,1,0)="^.1"
^DD(7100.4,1,1,1,0)="7100.4^AC"
^DD(7100.4,1,1,1,1)="S ^FSCD(""SEND"",""AC"",$E(X,1,30),DA)="""""
^DD(7100.4,1,1,1,2)="K ^FSCD(""SEND"",""AC"",$E(X,1,30),DA)"
^DD(7100.4,1,1,1,"DT")="2931227"
^DD(7100.4,1,21,0)="^^1^1^2940129^"
^DD(7100.4,1,21,1,0)="This is the call associated with the sceduled alert."
^DD(7100.4,1,"DT")="2931227"
^DD(7100.4,2,0)="DATE PROCESSED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100.4,2,21,0)="^^1^1^2940627^"
^DD(7100.4,2,21,1,0)="This is the date the alert was processed."
^DD(7100.4,2,"DT")="2940222"
^DD(7100.4,"B","ALERT",.01)=""
^DD(7100.4,"B","CALL",1)=""
^DD(7100.4,"B","DATE PROCESSED",2)=""
^DD(7100.4,"GL",0,1,.01)=""
^DD(7100.4,"GL",0,2,1)=""
^DD(7100.4,"GL",0,3,2)=""
^DD(7100.4,"IX",.01)=""
^DD(7100.4,"IX",1)=""
^DD(7100.4,"RQ",.01)=""
^DD(7100.5,0)="FIELD^^4^5"
^DD(7100.5,0,"DT")="2960301"
^DD(7100.5,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7100.5,0,"ID",2)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(7100.5,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FSC(""STATUS"",+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(7106.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7100.5,0,"IX","B",7100.5,.01)=""
^DD(7100.5,0,"IX","D",7100.5,2)=""
^DD(7100.5,0,"IX","S",7100.5,3)=""
^DD(7100.5,0,"IX","U",7100.5,1)=""
^DD(7100.5,0,"NM","NOIS STATUS HISTORY")=""
^DD(7100.5,0,"VR")="1.1"
^DD(7100.5,0,"VRPK")="NOIS"
^DD(7100.5,.01,0)="CALL^RP7100'^FSCD(""CALL"",^0;1^Q"
^DD(7100.5,.01,1,0)="^.1"
^DD(7100.5,.01,1,1,0)="7100.5^B"
^DD(7100.5,.01,1,1,1)="S ^FSCD(""STATUS HIST"",""B"",$E(X,1,30),DA)="""""
^DD(7100.5,.01,1,1,2)="K ^FSCD(""STATUS HIST"",""B"",$E(X,1,30),DA)"
^DD(7100.5,.01,3)=""
^DD(7100.5,.01,21,0)="^^1^1^2980118^"
^DD(7100.5,.01,21,1,0)="This is the NOIS call for the status change."
^DD(7100.5,.01,"DT")="2960301"
^DD(7100.5,1,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(7100.5,1,1,0)="^.1"
^DD(7100.5,1,1,1,0)="7100.5^U"
^DD(7100.5,1,1,1,1)="S ^FSCD(""STATUS HIST"",""U"",$E(X,1,30),DA)="""""
^DD(7100.5,1,1,1,2)="K ^FSCD(""STATUS HIST"",""U"",$E(X,1,30),DA)"
^DD(7100.5,1,1,1,"DT")="2960301"
^DD(7100.5,1,21,0)="^^1^1^2980118^"
^DD(7100.5,1,21,1,0)="This is the user that made the status change."
^DD(7100.5,1,"DT")="2960301"
^DD(7100.5,2,0)="DATE/TIME^RD^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7100.5,2,1,0)="^.1"
^DD(7100.5,2,1,1,0)="7100.5^D"
^DD(7100.5,2,1,1,1)="S ^FSCD(""STATUS HIST"",""D"",$E(X,1,30),DA)="""""
^DD(7100.5,2,1,1,2)="K ^FSCD(""STATUS HIST"",""D"",$E(X,1,30),DA)"
^DD(7100.5,2,1,1,"DT")="2960301"
^DD(7100.5,2,21,0)="^^1^1^2980118^"
^DD(7100.5,2,21,1,0)="This is the date/time the status change occurred."
^DD(7100.5,2,"DT")="2960301"
^DD(7100.5,3,0)="STATUS^RP7106.1'^FSC(""STATUS"",^0;4^Q"
^DD(7100.5,3,1,0)="^.1"
^DD(7100.5,3,1,1,0)="7100.5^S"
^DD(7100.5,3,1,1,1)="S ^FSCD(""STATUS HIST"",""S"",$E(X,1,30),DA)="""""
^DD(7100.5,3,1,1,2)="K ^FSCD(""STATUS HIST"",""S"",$E(X,1,30),DA)"
^DD(7100.5,3,1,1,"DT")="2960301"
^DD(7100.5,3,21,0)="^^1^1^2980118^"
^DD(7100.5,3,21,1,0)="This is the status the status was changed to."
^DD(7100.5,3,"DT")="2960301"
^DD(7100.5,4,0)="PREVIOUS STATUS^P7106.1'^FSC(""STATUS"",^0;5^Q"
^DD(7100.5,4,21,0)="^^1^1^2980118^"
^DD(7100.5,4,21,1,0)="This is the status of the call before the change."
^DD(7100.5,4,"DT")="2960301"
^DD(7100.5,"B","CALL",.01)=""
^DD(7100.5,"B","DATE/TIME",2)=""
^DD(7100.5,"B","PREVIOUS STATUS",4)=""
^DD(7100.5,"B","STATUS",3)=""
^DD(7100.5,"B","USER",1)=""
^DD(7100.5,"GL",0,1,.01)=""
^DD(7100.5,"GL",0,2,1)=""
^DD(7100.5,"GL",0,3,2)=""
^DD(7100.5,"GL",0,4,3)=""
^DD(7100.5,"GL",0,5,4)=""
^DD(7100.5,"IX",.01)=""
^DD(7100.5,"IX",1)=""
^DD(7100.5,"IX",2)=""
^DD(7100.5,"IX",3)=""
^DD(7100.5,"RQ",.01)=""
^DD(7100.5,"RQ",1)=""
^DD(7100.5,"RQ",2)=""
^DD(7100.5,"RQ",3)=""
^DD(7100.6,0)="FIELD^^5^6"
^DD(7100.6,0,"DT")="2980525"
^DD(7100.6,0,"IX","AUC",7100.6,.01)=""
^DD(7100.6,0,"IX","AUC1",7100.6,1)=""
^DD(7100.6,0,"IX","B",7100.6,.01)=""
^DD(7100.6,0,"NM","NOIS CALL USER")=""
^DD(7100.6,0,"VR")="1.1"
^DD(7100.6,0,"VRPK")="NOIS"
^DD(7100.6,.01,0)="CALL^RP7100'^FSCD(""CALL"",^0;1^Q"
^DD(7100.6,.01,1,0)="^.1"
^DD(7100.6,.01,1,1,0)="7100.6^B"
^DD(7100.6,.01,1,1,1)="S ^FSCD(""CALL USER"",""B"",$E(X,1,30),DA)="""""
^DD(7100.6,.01,1,1,2)="K ^FSCD(""CALL USER"",""B"",$E(X,1,30),DA)"
^DD(7100.6,.01,1,2,0)="7100.6^AUC^MUMPS"
^DD(7100.6,.01,1,2,1)="D AUC^FSCXREFP(""SET"",""CALL"",X,DA)"
^DD(7100.6,.01,1,2,2)="D AUC^FSCXREFP(""KILL"",""CALL"",X,DA)"
^DD(7100.6,.01,1,2,"DT")="2980525"
^DD(7100.6,.01,3)=""
^DD(7100.6,.01,"DT")="2980525"
^DD(7100.6,1,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(7100.6,1,1,0)="^.1"
^DD(7100.6,1,1,1,0)="7100.6^AUC1^MUMPS"
^DD(7100.6,1,1,1,1)="D AUC^FSCXREFP(""SET"",""USER"",X,DA)"
^DD(7100.6,1,1,1,2)="D AUC^FSCXREFP(""KILL"",""USER"",X,DA)"
^DD(7100.6,1,1,1,"DT")="2980525"
^DD(7100.6,1,21,0)="^^1^1^2980525^"
^DD(7100.6,1,21,1,0)="User for personal field entries on this nois call."
^DD(7100.6,1,"DT")="2980525"
^DD(7100.6,2,0)="SHORT TEXT^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(7100.6,2,3)="Answer must be 1-30 characters in length."
^DD(7100.6,2,21,0)="^^1^1^2980525^"
^DD(7100.6,2,21,1,0)="Text associated with personal field entry for this user and NOIS call."
^DD(7100.6,2,"DT")="2980525"
^DD(7100.6,3,0)="NUMBER^NJ5,0^^0;4^K:+X'=X!(X>10000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7100.6,3,3)="Type a Number between 1 and 10000, 0 Decimal Digits"
^DD(7100.6,3,21,0)="^^1^1^2980525^"
^DD(7100.6,3,21,1,0)="Number associated with personal field entry for this user and NOIS call."
^DD(7100.6,3,"DT")="2980525"
^DD(7100.6,4,0)="LONG TEXT^FX^^1;E1,60^K:$L(X)>60!($L(X)<1)!(X[""^"") X"
^DD(7100.6,4,3)="Answer must be 1-60 characters in length."
^DD(7100.6,4,21,0)="^^1^1^2980525^"
^DD(7100.6,4,21,1,0)="A text message associated with personal field for user and NOIS call."
^DD(7100.6,4,"DT")="2980525"
^DD(7100.6,5,0)="NOTE^7100.65^^2;0"
^DD(7100.6,"B","CALL",.01)=""
^DD(7100.6,"B","LONG TEXT",4)=""
^DD(7100.6,"B","NOTE",5)=""
^DD(7100.6,"B","NUMBER",3)=""
^DD(7100.6,"B","SHORT TEXT",2)=""
^DD(7100.6,"B","USER",1)=""
^DD(7100.6,"GL",0,1,.01)=""
^DD(7100.6,"GL",0,2,1)=""
^DD(7100.6,"GL",0,3,2)=""
^DD(7100.6,"GL",0,4,3)=""
^DD(7100.6,"GL",1,"E1,60",4)=""
^DD(7100.6,"GL",2,0,5)=""
^DD(7100.6,"IX",.01)=""
^DD(7100.6,"IX",1)=""
^DD(7100.6,"RQ",.01)=""
^DD(7100.6,"RQ",1)=""
^DD(7100.6,"SB",7100.65,5)=""
^DD(7100.65,0)="NOTE SUB-FIELD^^.01^1"
^DD(7100.65,0,"DT")="2980525"
^DD(7100.65,0,"NM","NOTE")=""
^DD(7100.65,0,"UP")="7100.6"
^DD(7100.65,.01,0)="NOTE^WL^^0;1^Q"
^DD(7100.65,.01,21,0)="^^1^1^2980525^"
^DD(7100.65,.01,21,1,0)="Notes for user on this NOIS call."
^DD(7100.65,.01,"DT")="2980525"
^DD(7100.65,"B","NOTE",.01)=""
^DD(7100.65,"GL",0,1,.01)=""
^DD(7100.7,0)="FIELD^^8^9"
^DD(7100.7,0,"DT")="2980617"
^DD(7100.7,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FSC(""PACK"",+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(7105.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7100.7,0,"ID",4)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7100.7,0,"ID",6)="W:$D(^(1)) ""   "",$E(^(1),1,245)"
^DD(7100.7,0,"IX","B",7100.7,.01)=""
^DD(7100.7,0,"IX","C",7100.7,1)=""
^DD(7100.7,0,"NM","NOIS WEB")=""
^DD(7100.7,0,"VR")="1.1"
^DD(7100.7,0,"VRPK")="NOIS"
^DD(7100.7,.01,0)="PID^RF^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(7100.7,.01,1,0)="^.1"
^DD(7100.7,.01,1,1,0)="7100.7^B"
^DD(7100.7,.01,1,1,1)="S ^FSCD(""WEB"",""B"",$E(X,1,30),DA)="""""
^DD(7100.7,.01,1,1,2)="K ^FSCD(""WEB"",""B"",$E(X,1,30),DA)"
^DD(7100.7,.01,3)="Answer must be 2-30 characters in length."
^DD(7100.7,.01,"DT")="2980617"
^DD(7100.7,1,0)="PACKAGE^P7105.5'^FSC(""PACK"",^0;2^Q"
^DD(7100.7,1,1,0)="^.1"
^DD(7100.7,1,1,1,0)="7100.7^C"
^DD(7100.7,1,1,1,1)="S ^FSCD(""WEB"",""C"",$E(X,1,30),DA)="""""
^DD(7100.7,1,1,1,2)="K ^FSCD(""WEB"",""C"",$E(X,1,30),DA)"
^DD(7100.7,1,1,1,"DT")="2980617"
^DD(7100.7,1,"DT")="2980617"
^DD(7100.7,2,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(7100.7,2,"DT")="2980617"
^DD(7100.7,3,0)="ENTRY TIME^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100.7,3,"DT")="2980617"
^DD(7100.7,4,0)="LAST EDITED BY^P200'^VA(200,^0;5^Q"
^DD(7100.7,4,"DT")="2980617"
^DD(7100.7,5,0)="LAST EDIT TIME^D^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7100.7,5,"DT")="2980617"
^DD(7100.7,6,0)="TITLE^F^^1;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7100.7,6,3)="Answer must be 3-245 characters in length."
^DD(7100.7,6,"DT")="2980617"
^DD(7100.7,7,0)="PROBLEM^7100.77^^2;0"
^DD(7100.7,8,0)="SOLUTION^7100.78^^3;0"
^DD(7100.7,"B","ENTERED BY",2)=""
^DD(7100.7,"B","ENTRY TIME",3)=""
^DD(7100.7,"B","LAST EDIT TIME",5)=""
^DD(7100.7,"B","LAST EDITED BY",4)=""
^DD(7100.7,"B","PACKAGE",1)=""
^DD(7100.7,"B","PID",.01)=""
^DD(7100.7,"B","PROBLEM",7)=""
^DD(7100.7,"B","SOLUTION",8)=""
^DD(7100.7,"B","TITLE",6)=""
^DD(7100.7,"GL",0,1,.01)=""
^DD(7100.7,"GL",0,2,1)=""
^DD(7100.7,"GL",0,3,2)=""
^DD(7100.7,"GL",0,4,3)=""
^DD(7100.7,"GL",0,5,4)=""
^DD(7100.7,"GL",0,6,5)=""
^DD(7100.7,"GL",1,"E1,245",6)=""
^DD(7100.7,"GL",2,0,7)=""
^DD(7100.7,"GL",3,0,8)=""
^DD(7100.7,"IX",.01)=""
^DD(7100.7,"IX",1)=""
^DD(7100.7,"RQ",.01)=""
^DD(7100.7,"SB",7100.77,7)=""
^DD(7100.7,"SB",7100.78,8)=""
^DD(7100.77,0)="PROBLEM SUB-FIELD^^.01^1"
^DD(7100.77,0,"DT")="2980617"
^DD(7100.77,0,"NM","PROBLEM")=""
^DD(7100.77,0,"UP")="7100.7"
^DD(7100.77,.01,0)="PROBLEM^WL^^0;1^Q"
^DD(7100.77,.01,"DT")="2980617"
^DD(7100.77,"B","PROBLEM",.01)=""
^DD(7100.77,"GL",0,1,.01)=""
^DD(7100.78,0)="SOLUTION SUB-FIELD^^.01^1"
^DD(7100.78,0,"DT")="2980617"
^DD(7100.78,0,"NM","SOLUTION")=""
^DD(7100.78,0,"UP")="7100.7"
^DD(7100.78,.01,0)="SOLUTION^WL^^0;1^Q"
^DD(7100.78,.01,"DT")="2980617"
^DD(7100.78,"B","SOLUTION",.01)=""
^DD(7100.78,"GL",0,1,.01)=""
^DD(7101,0)="FIELD^^1^2"
^DD(7101,0,"DT")="2931114"
^DD(7101,0,"NM","NOIS TEXT")=""
^DD(7101,0,"VR")="1.1"
^DD(7101,0,"VRPK")="NOIS"
^DD(7101,.01,0)="NAME^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7101,.01,1,0)="^.1^^0"
^DD(7101,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(7101,.01,21,0)="^^1^1^2940129^"
^DD(7101,.01,21,1,0)="This is a sequence of a text entry that is used for editing NOIS calls."
^DD(7101,.01,"DT")="2931114"
^DD(7101,1,0)="TEXT^7101.01^^1;0"
^DD(7101,1,21,0)="^^1^1^2940129^"
^DD(7101,1,21,1,0)="This is the text entry made when editing NOIS calls."
^DD(7101,"B","NAME",.01)=""
^DD(7101,"B","TEXT",1)=""
^DD(7101,"GL",0,1,.01)=""
^DD(7101,"GL",1,0,1)=""
^DD(7101,"RQ",.01)=""
^DD(7101,"SB",7101.01,1)=""
^DD(7101.01,0)="TEXT SUB-FIELD^^.01^1"
^DD(7101.01,0,"DT")="2931114"
^DD(7101.01,0,"NM","TEXT")=""
^DD(7101.01,0,"UP")="7101"
^DD(7101.01,.01,0)="TEXT^WL^^0;1^Q"
^DD(7101.01,.01,21,0)="^^1^1^2940129^"
^DD(7101.01,.01,21,1,0)="This is the text when editing NOIS calls."
^DD(7101.01,.01,"DT")="2931114"
^DD(7101.01,"B","TEXT",.01)=""
^DD(7101.01,"GL",0,1,.01)=""
^DD(7101.1,0)="FIELD^^2^3"
^DD(7101.1,0,"DT")="2961230"
^DD(7101.1,0,"IX","AC",7101.1,2)=""
^DD(7101.1,0,"IX","AUC1",7101.1,.01)=""
^DD(7101.1,0,"IX","AUC3",7101.1,2)=""
^DD(7101.1,0,"IX","AUT1",7101.1,.01)=""
^DD(7101.1,0,"IX","AUT2",7101.1,1)=""
^DD(7101.1,0,"IX","AUTC1",7101.1,.01)=""
^DD(7101.1,0,"IX","AUTC2",7101.1,1)=""
^DD(7101.1,0,"IX","AUTC3",7101.1,2)=""
^DD(7101.1,0,"IX","B",7101.1,.01)=""
^DD(7101.1,0,"NM","NOIS MRE")=""
^DD(7101.1,0,"VR")="1.1"
^DD(7101.1,0,"VRPK")="NOIS"
^DD(7101.1,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(7101.1,.01,1,0)="^.1"
^DD(7101.1,.01,1,1,0)="7101.1^B"
^DD(7101.1,.01,1,1,1)="S ^FSCD(""MRE"",""B"",$E(X,1,30),DA)="""""
^DD(7101.1,.01,1,1,2)="K ^FSCD(""MRE"",""B"",$E(X,1,30),DA)"
^DD(7101.1,.01,1,2,0)="7101.1^AUTC1^MUMPS"
^DD(7101.1,.01,1,2,1)="D AUTC^FSCXMRE(""SET"",""USER"",X,DA)"
^DD(7101.1,.01,1,2,2)="D AUTC^FSCXMRE(""KILL"",""USER"",X,DA)"
^DD(7101.1,.01,1,2,"DT")="2961230"
^DD(7101.1,.01,1,3,0)="7101.1^AUC1^MUMPS"
^DD(7101.1,.01,1,3,1)="D AUC^FSCXMRE(""SET"",""USER"",X,DA)"
^DD(7101.1,.01,1,3,2)="D AUC^FSCXMRE(""KILL"",""USER"",X,DA)"
^DD(7101.1,.01,1,3,"DT")="2961230"
^DD(7101.1,.01,1,4,0)="7101.1^AUT1^MUMPS"
^DD(7101.1,.01,1,4,1)="D AUT^FSCXMRE(""SET"",""USER"",X,DA)"
^DD(7101.1,.01,1,4,2)="D AUT^FSCXMRE(""KILL"",""USER"",X,DA)"
^DD(7101.1,.01,1,4,"DT")="2961230"
^DD(7101.1,.01,3)=""
^DD(7101.1,.01,21,0)="^^1^1^2980118^"
^DD(7101.1,.01,21,1,0)="This is the user who edited the call."
^DD(7101.1,.01,"DT")="2961230"
^DD(7101.1,1,0)="TIMESTAMP^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7101.1,1,1,0)="^.1"
^DD(7101.1,1,1,1,0)="7101.1^AUTC2^MUMPS"
^DD(7101.1,1,1,1,1)="D AUTC^FSCXMRE(""SET"",""TIME"",X,DA)"
^DD(7101.1,1,1,1,2)="D AUTC^FSCXMRE(""KILL"",""TIME"",X,DA)"
^DD(7101.1,1,1,1,"DT")="2961230"
^DD(7101.1,1,1,2,0)="7101.1^AUT2^MUMPS"
^DD(7101.1,1,1,2,1)="D AUT^FSCXMRE(""SET"",""TIME"",X,DA)"
^DD(7101.1,1,1,2,2)="D AUT^FSCXMRE(""KILL"",""TIME"",X,DA)"
^DD(7101.1,1,1,2,"DT")="2961230"
^DD(7101.1,1,21,0)="^^1^1^2980118^"
^DD(7101.1,1,21,1,0)="This is the date/time that the user edited the call."
^DD(7101.1,1,"DT")="2961230"
^DD(7101.1,2,0)="CALL^RP7100'^FSCD(""CALL"",^0;3^Q"
^DD(7101.1,2,1,0)="^.1"
^DD(7101.1,2,1,1,0)="7101.1^AUTC3^MUMPS"
^DD(7101.1,2,1,1,1)="D AUTC^FSCXMRE(""SET"",""CALL"",X,DA)"
^DD(7101.1,2,1,1,2)="D AUTC^FSCXMRE(""KILL"",""CALL"",X,DA)"
^DD(7101.1,2,1,1,"DT")="2961230"
^DD(7101.1,2,1,2,0)="7101.1^AUC3^MUMPS"
^DD(7101.1,2,1,2,1)="D AUC^FSCXMRE(""SET"",""CALL"",X,DA)"
^DD(7101.1,2,1,2,2)="D AUC^FSCXMRE(""KILL"",""CALL"",X,DA)"
^DD(7101.1,2,1,2,"DT")="2961230"
^DD(7101.1,2,1,3,0)="7101.1^AC"
^DD(7101.1,2,1,3,1)="S ^FSCD(""MRE"",""AC"",$E(X,1,30),DA)="""""
^DD(7101.1,2,1,3,2)="K ^FSCD(""MRE"",""AC"",$E(X,1,30),DA)"
^DD(7101.1,2,1,3,"DT")="2961230"
^DD(7101.1,2,21,0)="^^1^1^2980118^"
^DD(7101.1,2,21,1,0)="This is the call that was edited."
^DD(7101.1,2,"DT")="2961230"
^DD(7101.1,"B","CALL",2)=""
^DD(7101.1,"B","TIMESTAMP",1)=""
^DD(7101.1,"B","USER",.01)=""
^DD(7101.1,"GL",0,1,.01)=""
^DD(7101.1,"GL",0,2,1)=""
^DD(7101.1,"GL",0,3,2)=""
^DD(7101.1,"IX",.01)=""
^DD(7101.1,"IX",1)=""
^DD(7101.1,"IX",2)=""
^DD(7101.1,"RQ",.01)=""
^DD(7101.1,"RQ",1)=""
^DD(7101.1,"RQ",2)=""
^DD(7101.2,0)="FIELD^^2^3"
^DD(7101.2,0,"DDA")="N"
^DD(7101.2,0,"DT")="2961230"
^DD(7101.2,0,"IX","AC",7101.2,2)=""
^DD(7101.2,0,"IX","AUC1",7101.2,.01)=""
^DD(7101.2,0,"IX","AUC3",7101.2,2)=""
^DD(7101.2,0,"IX","AUT1",7101.2,.01)=""
^DD(7101.2,0,"IX","AUT2",7101.2,1)=""
^DD(7101.2,0,"IX","AUTC1",7101.2,.01)=""
^DD(7101.2,0,"IX","AUTC2",7101.2,1)=""
^DD(7101.2,0,"IX","AUTC3",7101.2,2)=""
^DD(7101.2,0,"IX","B",7101.2,.01)=""
^DD(7101.2,0,"NM","NOIS MRA")=""
^DD(7101.2,0,"VR")="1.1"
^DD(7101.2,0,"VRPK")="NOIS"
^DD(7101.2,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(7101.2,.01,1,0)="^.1"
^DD(7101.2,.01,1,1,0)="7101.2^B"
^DD(7101.2,.01,1,1,1)="S ^FSCD(""MRA"",""B"",$E(X,1,30),DA)="""""
^DD(7101.2,.01,1,1,2)="K ^FSCD(""MRA"",""B"",$E(X,1,30),DA)"
^DD(7101.2,.01,1,2,0)="7101.2^AUTC1^MUMPS"
^DD(7101.2,.01,1,2,1)="D AUTC^FSCXMRA(""SET"",""USER"",X,DA)"
^DD(7101.2,.01,1,2,2)="D AUTC^FSCXMRA(""KILL"",""USER"",X,DA)"
^DD(7101.2,.01,1,2,"DT")="2961230"
^DD(7101.2,.01,1,3,0)="7101.2^AUC1^MUMPS"
^DD(7101.2,.01,1,3,1)="D AUC^FSCXMRA(""SET"",""USER"",X,DA)"
^DD(7101.2,.01,1,3,2)="D AUC^FSCXMRA(""KILL"",""USER"",X,DA)"
^DD(7101.2,.01,1,3,"DT")="2961230"
^DD(7101.2,.01,1,4,0)="7101.2^AUT1^MUMPS"
^DD(7101.2,.01,1,4,1)="D AUT^FSCXMRA(""SET"",""USER"",X,DA)"
^DD(7101.2,.01,1,4,2)="D AUT^FSCXMRA(""KILL"",""USER"",X,DA)"
^DD(7101.2,.01,1,4,"DT")="2961230"
^DD(7101.2,.01,3)=""
^DD(7101.2,.01,21,0)="^^1^1^2980118^"
^DD(7101.2,.01,21,1,0)="This is the user processing the alert."
^DD(7101.2,.01,"DT")="2961230"
^DD(7101.2,1,0)="TIMESTAMP^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7101.2,1,1,0)="^.1"
^DD(7101.2,1,1,1,0)="7101.2^AUTC2^MUMPS"
^DD(7101.2,1,1,1,1)="D AUTC^FSCXMRA(""SET"",""TIME"",X,DA)"
^DD(7101.2,1,1,1,2)="D AUTC^FSCXMRA(""KILL"",""TIME"",X,DA)"
^DD(7101.2,1,1,1,"DT")="2961230"
^DD(7101.2,1,1,2,0)="7101.2^AUT2^MUMPS"
^DD(7101.2,1,1,2,1)="D AUT^FSCXMRA(""SET"",""TIME"",X,DA)"
^DD(7101.2,1,1,2,2)="D AUT^FSCXMRA(""KILL"",""TIME"",X,DA)"
^DD(7101.2,1,1,2,"DT")="2961230"
^DD(7101.2,1,21,0)="^^1^1^2980118^"
^DD(7101.2,1,21,1,0)="This is the date/time of when the user processed the alert for this call."
^DD(7101.2,1,"DT")="2961230"
^DD(7101.2,2,0)="CALL^RP7100'^FSCD(""CALL"",^0;3^Q"
^DD(7101.2,2,1,0)="^.1"
^DD(7101.2,2,1,1,0)="7101.2^AUTC3^MUMPS"
^DD(7101.2,2,1,1,1)="D AUTC^FSCXMRA(""SET"",""CALL"",X,DA)"
^DD(7101.2,2,1,1,2)="D AUTC^FSCXMRA(""KILL"",""CALL"",X,DA)"
^DD(7101.2,2,1,1,"DT")="2961230"
^DD(7101.2,2,1,2,0)="7101.2^AUC3^MUMPS"
^DD(7101.2,2,1,2,1)="D AUC^FSCXMRA(""SET"",""CALL"",X,DA)"
^DD(7101.2,2,1,2,2)="D AUC^FSCXMRA(""KILL"",""CALL"",X,DA)"
^DD(7101.2,2,1,2,"DT")="2961230"
^DD(7101.2,2,1,3,0)="7101.2^AC"
^DD(7101.2,2,1,3,1)="S ^FSCD(""MRA"",""AC"",$E(X,1,30),DA)="""""
^DD(7101.2,2,1,3,2)="K ^FSCD(""MRA"",""AC"",$E(X,1,30),DA)"
^DD(7101.2,2,1,3,"DT")="2961230"
^DD(7101.2,2,21,0)="^^1^1^2980118^"
^DD(7101.2,2,21,1,0)="This is the call that was alerted to the user."
^DD(7101.2,2,"DT")="2961230"
^DD(7101.2,"B","CALL",2)=""
^DD(7101.2,"B","TIMESTAMP",1)=""
^DD(7101.2,"B","USER",.01)=""
^DD(7101.2,"GL",0,1,.01)=""
^DD(7101.2,"GL",0,2,1)=""
^DD(7101.2,"GL",0,3,2)=""
^DD(7101.2,"IX",.01)=""
^DD(7101.2,"IX",1)=""
^DD(7101.2,"IX",2)=""
^DD(7101.2,"RQ",.01)=""
^DD(7101.2,"RQ",1)=""
^DD(7101.2,"RQ",2)=""
^DD(7101.3,0)="FIELD^^3^4"
^DD(7101.3,0,"DDA")="N"
^DD(7101.3,0,"DT")="2961230"
^DD(7101.3,0,"IX","AL",7101.3,2)=""
^DD(7101.3,0,"IX","AUL1",7101.3,.01)=""
^DD(7101.3,0,"IX","AUL3",7101.3,2)=""
^DD(7101.3,0,"IX","AUL4",7101.3,3)=""
^DD(7101.3,0,"IX","AUT1",7101.3,.01)=""
^DD(7101.3,0,"IX","AUT2",7101.3,1)=""
^DD(7101.3,0,"IX","AUTL1",7101.3,.01)=""
^DD(7101.3,0,"IX","AUTL2",7101.3,1)=""
^DD(7101.3,0,"IX","AUTL3",7101.3,2)=""
^DD(7101.3,0,"IX","AUTL4",7101.3,3)=""
^DD(7101.3,0,"IX","B",7101.3,.01)=""
^DD(7101.3,0,"NM","NOIS MRU")=""
^DD(7101.3,0,"VR")="1.1"
^DD(7101.3,0,"VRPK")="NOIS"
^DD(7101.3,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(7101.3,.01,1,0)="^.1"
^DD(7101.3,.01,1,1,0)="7101.3^B"
^DD(7101.3,.01,1,1,1)="S ^FSCD(""MRU"",""B"",$E(X,1,30),DA)="""""
^DD(7101.3,.01,1,1,2)="K ^FSCD(""MRU"",""B"",$E(X,1,30),DA)"
^DD(7101.3,.01,1,2,0)="7101.3^AUTL1^MUMPS"
^DD(7101.3,.01,1,2,1)="D AUTL^FSCXMRU(""SET"",""USER"",X,DA)"
^DD(7101.3,.01,1,2,2)="D AUTL^FSCXMRU(""KILL"",""USER"",X,DA)"
^DD(7101.3,.01,1,2,"DT")="2961230"
^DD(7101.3,.01,1,3,0)="7101.3^AUL1^MUMPS"
^DD(7101.3,.01,1,3,1)="D AUL^FSCXMRU(""SET"",""USER"",X,DA)"
^DD(7101.3,.01,1,3,2)="D AUL^FSCXMRU(""KILL"",""USER"",X,DA)"
^DD(7101.3,.01,1,3,"DT")="2961230"
^DD(7101.3,.01,1,4,0)="7101.3^AUT1^MUMPS"
^DD(7101.3,.01,1,4,1)="D AUT^FSCXMRU(""SET"",""USER"",X,DA)"
^DD(7101.3,.01,1,4,2)="D AUT^FSCXMRU(""KILL"",""USER"",X,DA)"
^DD(7101.3,.01,1,4,"DT")="2961230"
^DD(7101.3,.01,3)=""
^DD(7101.3,.01,21,0)="^^1^1^2980118^"
^DD(7101.3,.01,21,1,0)="This is the user that used the list."
^DD(7101.3,.01,"DT")="2961230"
^DD(7101.3,1,0)="TIMESTAMP^RD^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7101.3,1,1,0)="^.1"
^DD(7101.3,1,1,1,0)="7101.3^AUTL2^MUMPS"
^DD(7101.3,1,1,1,1)="D AUTL^FSCXMRU(""SET"",""TIME"",X,DA)"
^DD(7101.3,1,1,1,2)="D AUTL^FSCXMRU(""KILL"",""TIME"",X,DA)"
^DD(7101.3,1,1,1,"DT")="2961230"
^DD(7101.3,1,1,2,0)="7101.3^AUT2^MUMPS"
^DD(7101.3,1,1,2,1)="D AUT^FSCXMRU(""SET"",""TIME"",X,DA)"
^DD(7101.3,1,1,2,2)="D AUT^FSCXMRU(""KILL"",""TIME"",X,DA)"
^DD(7101.3,1,1,2,"DT")="2961230"
^DD(7101.3,1,21,0)="^^1^1^2980118^"
^DD(7101.3,1,21,1,0)="This is the date/time the user used this list."
^DD(7101.3,1,"DT")="2961230"
^DD(7101.3,2,0)="LIST^RP7107.1'^FSC(""LIST"",^0;3^Q"
^DD(7101.3,2,1,0)="^.1"
^DD(7101.3,2,1,1,0)="7101.3^AUTL3^MUMPS"
^DD(7101.3,2,1,1,1)="D AUTL^FSCXMRU(""SET"",""LIST"",X,DA)"
^DD(7101.3,2,1,1,2)="D AUTL^FSCXMRU(""KILL"",""LIST"",X,DA)"
^DD(7101.3,2,1,1,"DT")="2961230"
^DD(7101.3,2,1,2,0)="7101.3^AUL3^MUMPS"
^DD(7101.3,2,1,2,1)="D AUL^FSCXMRU(""SET"",""LIST"",X,DA)"
^DD(7101.3,2,1,2,2)="D AUL^FSCXMRU(""KILL"",""LIST"",X,DA)"
^DD(7101.3,2,1,2,"DT")="2961230"
^DD(7101.3,2,1,3,0)="7101.3^AL"
^DD(7101.3,2,1,3,1)="S ^FSCD(""MRU"",""AL"",$E(X,1,30),DA)="""""
^DD(7101.3,2,1,3,2)="K ^FSCD(""MRU"",""AL"",$E(X,1,30),DA)"
^DD(7101.3,2,1,3,"DT")="2961230"
^DD(7101.3,2,21,0)="^^1^1^2980118^"
^DD(7101.3,2,21,1,0)="This is the list that was used by the user."
^DD(7101.3,2,"DT")="2961230"
^DD(7101.3,3,0)="VALUE^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(7101.3,3,1,0)="^.1"
^DD(7101.3,3,1,1,0)="7101.3^AUTL4^MUMPS"
^DD(7101.3,3,1,1,1)="D AUTL^FSCXMRU(""SET"",""VALUE"",X,DA)"
^DD(7101.3,3,1,1,2)="D AUTL^FSCXMRU(""KILL"",""VALUE"",X,DA)"
^DD(7101.3,3,1,1,"DT")="2961230"
^DD(7101.3,3,1,2,0)="7101.3^AUL4^MUMPS"
^DD(7101.3,3,1,2,1)="D AUL^FSCXMRU(""SET"",""VALUE"",X,DA)"
^DD(7101.3,3,1,2,2)="D AUL^FSCXMRU(""KILL"",""VALUE"",X,DA)"
^DD(7101.3,3,1,2,"DT")="2961230"
^DD(7101.3,3,3)="Answer must be 1-30 characters in length."
^DD(7101.3,3,21,0)="^^2^2^2980118^"
^DD(7101.3,3,21,1,0)="This is the qualifier for the list that was last used. It may "
^DD(7101.3,3,21,2,0)="represent a pointer to a field defined by the list."
^DD(7101.3,3,"DT")="2961230"
^DD(7101.3,"B","LIST",2)=""
^DD(7101.3,"B","TIMESTAMP",1)=""
^DD(7101.3,"B","USER",.01)=""
^DD(7101.3,"B","VALUE",3)=""
^DD(7101.3,"GL",0,1,.01)=""
^DD(7101.3,"GL",0,2,1)=""
^DD(7101.3,"GL",0,3,2)=""
^DD(7101.3,"GL",0,4,3)=""
^DD(7101.3,"IX",.01)=""
^DD(7101.3,"IX",1)=""
^DD(7101.3,"IX",2)=""
^DD(7101.3,"IX",3)=""
^DD(7101.3,"RQ",.01)=""
^DD(7101.3,"RQ",1)=""
^DD(7101.3,"RQ",2)=""
^DD(7101.4,0)="FIELD^^2^3"
^DD(7101.4,0,"DT")="2971027"
^DD(7101.4,0,"IX","B",7101.4,.01)=""
^DD(7101.4,0,"IX","C",7101.4,1)=""
^DD(7101.4,0,"NM","NOIS RESPONSE")=""
^DD(7101.4,0,"VR")="1.1"
^DD(7101.4,0,"VRPK")="NOIS"
^DD(7101.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7101.4,.01,1,0)="^.1"
^DD(7101.4,.01,1,1,0)="7101.4^B"
^DD(7101.4,.01,1,1,1)="S ^FSCD(""RESPONSE"",""B"",$E(X,1,30),DA)="""""
^DD(7101.4,.01,1,1,2)="K ^FSCD(""RESPONSE"",""B"",$E(X,1,30),DA)"
^DD(7101.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7101.4,.01,21,0)="^^1^1^2980118^"
^DD(7101.4,.01,21,1,0)="This is a name assigned to the response."
^DD(7101.4,1,0)="OWNER^RP200'^VA(200,^0;2^Q"
^DD(7101.4,1,1,0)="^.1"
^DD(7101.4,1,1,1,0)="7101.4^C"
^DD(7101.4,1,1,1,1)="S ^FSCD(""RESPONSE"",""C"",$E(X,1,30),DA)="""""
^DD(7101.4,1,1,1,2)="K ^FSCD(""RESPONSE"",""C"",$E(X,1,30),DA)"
^DD(7101.4,1,1,1,"DT")="2971027"
^DD(7101.4,1,21,0)="^^1^1^2980118^"
^DD(7101.4,1,21,1,0)="This is the person who owns this response."
^DD(7101.4,1,"DT")="2971027"
^DD(7101.4,2,0)="TEXT^7101.42^^1;0"
^DD(7101.4,2,21,0)="^^1^1^2980118^"
^DD(7101.4,2,21,1,0)="This is the text of the response."
^DD(7101.4,"B","NAME",.01)=""
^DD(7101.4,"B","OWNER",1)=""
^DD(7101.4,"B","TEXT",2)=""
^DD(7101.4,"GL",0,1,.01)=""
^DD(7101.4,"GL",0,2,1)=""
^DD(7101.4,"GL",1,0,2)=""
^DD(7101.4,"IX",.01)=""
^DD(7101.4,"IX",1)=""
^DD(7101.4,"RQ",.01)=""
^DD(7101.4,"RQ",1)=""
^DD(7101.4,"SB",7101.42,2)=""
^DD(7101.42,0)="TEXT SUB-FIELD^^.01^1"
^DD(7101.42,0,"DT")="2971027"
^DD(7101.42,0,"NM","TEXT")=""
^DD(7101.42,0,"UP")="7101.4"
^DD(7101.42,.01,0)="TEXT^WL^^0;1^Q"
^DD(7101.42,.01,"DT")="2971027"
^DD(7101.42,"B","TEXT",.01)=""
^DD(7101.42,"GL",0,1,.01)=""
^DD(7102,0)="FIELD^^1^3"
^DD(7102,0,"DT")="2930929"
^DD(7102,0,"IX","ALC",7102,.01)=""
^DD(7102,0,"IX","ALC1",7102,1)=""
^DD(7102,0,"IX","B",7102,.01)=""
^DD(7102,0,"IX","L",7102,1)=""
^DD(7102,0,"NM","NOIS LIST")=""
^DD(7102,0,"VR")="1.1"
^DD(7102,0,"VRPK")="NOIS"
^DD(7102,.001,0)="NUMBER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7102,.001,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(7102,.001,21,0)="^^1^1^2940129^"
^DD(7102,.001,21,1,0)="This is the internal file number of the call in the list."
^DD(7102,.001,"DT")="2930929"
^DD(7102,.01,0)="CALL^RP7100'^FSCD(""CALL"",^0;1^Q"
^DD(7102,.01,1,0)="^.1"
^DD(7102,.01,1,1,0)="7102^B"
^DD(7102,.01,1,1,1)="S ^FSCD(""LISTS"",""B"",$E(X,1,30),DA)="""""
^DD(7102,.01,1,1,2)="K ^FSCD(""LISTS"",""B"",$E(X,1,30),DA)"
^DD(7102,.01,1,2,0)="7102^ALC^MUMPS"
^DD(7102,.01,1,2,1)="D ALC^FSCXREFL(""SET"",""CALL"",X,DA)"
^DD(7102,.01,1,2,2)="D ALC^FSCXREFL(""KILL"",""CALL"",X,DA)"
^DD(7102,.01,1,2,"DT")="2931113"
^DD(7102,.01,3)=""
^DD(7102,.01,21,0)="^^1^1^2940129^"
^DD(7102,.01,21,1,0)="This is the call on the list."
^DD(7102,.01,"DT")="2931113"
^DD(7102,1,0)="LIST^RP7107.1'^FSC(""LIST"",^0;2^Q"
^DD(7102,1,1,0)="^.1"
^DD(7102,1,1,1,0)="7102^L"
^DD(7102,1,1,1,1)="S ^FSCD(""LISTS"",""L"",$E(X,1,30),DA)="""""
^DD(7102,1,1,1,2)="K ^FSCD(""LISTS"",""L"",$E(X,1,30),DA)"
^DD(7102,1,1,1,"%D",0)="^^1^1^2931004^"
^DD(7102,1,1,1,"%D",1,0)=" ^FSCD(""LISTS"",""L"",LIST,#)="""""
^DD(7102,1,1,1,"DT")="2931004"
^DD(7102,1,1,2,0)="7102^ALC1^MUMPS"
^DD(7102,1,1,2,1)="D ALC^FSCXREFL(""SET"",""LIST"",X,DA)"
^DD(7102,1,1,2,2)="D ALC^FSCXREFL(""KILL"",""LIST"",X,DA)"
^DD(7102,1,1,2,"DT")="2931113"
^DD(7102,1,21,0)="^^1^1^2940129^"
^DD(7102,1,21,1,0)="This is the list for the NOIS calls."
^DD(7102,1,"DT")="2931113"
^DD(7102,"B","CALL",.01)=""
^DD(7102,"B","LIST",1)=""
^DD(7102,"B","NUMBER",.001)=""
^DD(7102,"GL",0,1,.01)=""
^DD(7102,"GL",0,2,1)=""
^DD(7102,"IX",.01)=""
^DD(7102,"IX",1)=""
^DD(7102,"RQ",.01)=""
^DD(7102,"RQ",1)=""
^DD(7103,0)="FIELD^^12^13"
^DD(7103,0,"DDA")="N"
^DD(7103,0,"DT")="2950519"
^DD(7103,0,"IX","B",7103,.01)=""
^DD(7103,0,"IX","C",7103,1)=""
^DD(7103,0,"NM","NOIS EVENTS")=""
^DD(7103,0,"VR")="1.1"
^DD(7103,0,"VRPK")="NOIS"
^DD(7103,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7103,.01,1,0)="^.1"
^DD(7103,.01,1,1,0)="7103^B"
^DD(7103,.01,1,1,1)="S ^FSCD(""EVENTS"",""B"",$E(X,1,30),DA)="""""
^DD(7103,.01,1,1,2)="K ^FSCD(""EVENTS"",""B"",$E(X,1,30),DA)"
^DD(7103,.01,3)=""
^DD(7103,.01,"DT")="2950507"
^DD(7103,1,0)="EVENT^RF^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(7103,1,1,0)="^.1"
^DD(7103,1,1,1,0)="7103^C"
^DD(7103,1,1,1,1)="S ^FSCD(""EVENTS"",""C"",$E(X,1,30),DA)="""""
^DD(7103,1,1,1,2)="K ^FSCD(""EVENTS"",""C"",$E(X,1,30),DA)"
^DD(7103,1,1,1,"DT")="2950507"
^DD(7103,1,3)="Answer must be 3-30 characters in length."
^DD(7103,1,"DT")="2950507"
^DD(7103,2,0)="START TIME^RFX^^0;3^D TIME^FSCTIME(.X)"
^DD(7103,2,3)=""
^DD(7103,2,"DT")="2950507"
^DD(7103,3,0)="END TIME^FX^^0;4^D TIME^FSCTIME(.X)"
^DD(7103,3,3)=""
^DD(7103,3,"DT")="2950507"
^DD(7103,4,0)="TIME ZONE^P7106.5'^FSC(""TIMEZONE"",^0;5^Q"
^DD(7103,4,"DT")="2950507"
^DD(7103,5,0)="OFFICE^P7105.3'^FSC(""ISC"",^0;6^Q"
^DD(7103,5,"DT")="2980117"
^DD(7103,6,0)="GROUP^P7105.8'^FSC(""PACKG"",^0;7^Q"
^DD(7103,6,"DT")="2950507"
^DD(7103,7,0)="PACKAGE^P7105.5'^FSC(""PACK"",^0;8^Q"
^DD(7103,7,"DT")="2950507"
^DD(7103,8,0)="DESCRIPTION^7103.08^^1;0"
^DD(7103,9,0)="LOCATION^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(7103,9,3)="Answer must be 1-20 characters in length."
^DD(7103,9,"DT")="2950507"
^DD(7103,10,0)="PHONE^F^^0;10^K:$L(X)>30!($L(X)<2) X"
^DD(7103,10,3)="Answer must be 2-30 characters in length."
^DD(7103,10,"DT")="2950507"
^DD(7103,11,0)="FUNCTIONAL AREA^P7106.4'^FSC(""FUNC"",^0;11^Q"
^DD(7103,11,"DT")="2950519"
^DD(7103,12,0)="OTHER GROUP^F^^0;12^K:$L(X)>30!($L(X)<2) X"
^DD(7103,12,3)="Answer must be 2-30 characters in length."
^DD(7103,12,"DT")="2950519"
^DD(7103,"B","DATE",.01)=""
^DD(7103,"B","DESCRIPTION",8)=""
^DD(7103,"B","END TIME",3)=""
^DD(7103,"B","EVENT",1)=""
^DD(7103,"B","FUNCTIONAL AREA",11)=""
^DD(7103,"B","GROUP",6)=""
^DD(7103,"B","LOCATION",9)=""
^DD(7103,"B","OFFICE",5)=""
^DD(7103,"B","OTHER GROUP",12)=""
^DD(7103,"B","PACKAGE",7)=""
^DD(7103,"B","PHONE",10)=""
^DD(7103,"B","START TIME",2)=""
^DD(7103,"B","TIME ZONE",4)=""
^DD(7103,"GL",0,1,.01)=""
^DD(7103,"GL",0,2,1)=""
^DD(7103,"GL",0,3,2)=""
^DD(7103,"GL",0,4,3)=""
^DD(7103,"GL",0,5,4)=""
^DD(7103,"GL",0,6,5)=""
^DD(7103,"GL",0,7,6)=""
^DD(7103,"GL",0,8,7)=""
^DD(7103,"GL",0,9,9)=""
^DD(7103,"GL",0,10,10)=""
^DD(7103,"GL",0,11,11)=""
^DD(7103,"GL",0,12,12)=""
^DD(7103,"GL",1,0,8)=""
^DD(7103,"IX",.01)=""
^DD(7103,"IX",1)=""
^DD(7103,"RQ",.01)=""
^DD(7103,"RQ",1)=""
^DD(7103,"RQ",2)=""
^DD(7103,"SB",7103.08,8)=""
^DD(7103.08,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(7103.08,0,"DT")="2950507"
^DD(7103.08,0,"NM","DESCRIPTION")=""
^DD(7103.08,0,"UP")="7103"
^DD(7103.08,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(7103.08,.01,"DT")="2950507"
^DD(7103.08,"B","DESCRIPTION",.01)=""
^DD(7103.08,"GL",0,1,.01)=""
^DD(7103.1,0)="FIELD^^7^8"
^DD(7103.1,0,"DT")="2950507"
^DD(7103.1,0,"IX","AUDS",7103.1,.01)=""
^DD(7103.1,0,"IX","AUDS1",7103.1,1)=""
^DD(7103.1,0,"IX","AUDS2",7103.1,2)=""
^DD(7103.1,0,"IX","B",7103.1,.01)=""
^DD(7103.1,0,"NM","NOIS SCHEDULE")=""
^DD(7103.1,0,"VR")="1.1"
^DD(7103.1,0,"VRPK")="NOIS"
^DD(7103.1,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7103.1,.01,1,0)="^.1"
^DD(7103.1,.01,1,1,0)="7103.1^B"
^DD(7103.1,.01,1,1,1)="S ^FSCD(""SCHEDULE"",""B"",$E(X,1,30),DA)="""""
^DD(7103.1,.01,1,1,2)="K ^FSCD(""SCHEDULE"",""B"",$E(X,1,30),DA)"
^DD(7103.1,.01,1,2,0)="7103.1^AUDS^MUMPS"
^DD(7103.1,.01,1,2,1)="D AUDS^FSCXREFS(""SET"",""DATE"",X,DA)"
^DD(7103.1,.01,1,2,2)="D AUDS^FSCXREFS(""KILL"",""DATE"",X,DA)"
^DD(7103.1,.01,1,2,"DT")="2950507"
^DD(7103.1,.01,3)=""
^DD(7103.1,.01,"DT")="2950507"
^DD(7103.1,1,0)="USER^RP7105.2'^FSC(""SPEC"",^0;2^Q"
^DD(7103.1,1,1,0)="^.1"
^DD(7103.1,1,1,1,0)="7103.1^AUDS1^MUMPS"
^DD(7103.1,1,1,1,1)="D AUDS^FSCXREFS(""SET"",""USER"",X,DA)"
^DD(7103.1,1,1,1,2)="D AUDS^FSCXREFS(""KILL"",""USER"",X,DA)"
^DD(7103.1,1,1,1,"DT")="2950507"
^DD(7103.1,1,"DT")="2950507"
^DD(7103.1,2,0)="STATUS^RS^0:OFF;1:IN;2:BUSY;^0;3^Q"
^DD(7103.1,2,1,0)="^.1"
^DD(7103.1,2,1,1,0)="7103.1^AUDS2^MUMPS"
^DD(7103.1,2,1,1,1)="D AUDS^FSCXREFS(""SET"",""STATUS"",X,DA)"
^DD(7103.1,2,1,1,2)="D AUDS^FSCXREFS(""KILL"",""STATUS"",X,DA)"
^DD(7103.1,2,1,1,"DT")="2950507"
^DD(7103.1,2,"DT")="2950507"
^DD(7103.1,3,0)="START TIME^FX^^0;4^D TIME^FSCTIME(.X)"
^DD(7103.1,3,3)=""
^DD(7103.1,3,"DT")="2950507"
^DD(7103.1,4,0)="END TIME^FX^^0;5^D TIME^FSCTIME(.X)"
^DD(7103.1,4,3)=""
^DD(7103.1,4,"DT")="2950507"
^DD(7103.1,5,0)="MESSAGE^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(7103.1,5,3)="Answer must be 1-30 characters in length."
^DD(7103.1,5,"DT")="2950507"
^DD(7103.1,6,0)="TEXT COLOR^F^^0;7^K:$L(X)>12!($L(X)<1) X"
^DD(7103.1,6,3)="Answer must be 1-12 characters in length."
^DD(7103.1,6,"DT")="2950507"
^DD(7103.1,7,0)="BACKGROUND COLOR^F^^0;8^K:$L(X)>12!($L(X)<1) X"
^DD(7103.1,7,3)="Answer must be 1-12 characters in length."
^DD(7103.1,7,"DT")="2950507"
^DD(7103.1,"B","BACKGROUND COLOR",7)=""
^DD(7103.1,"B","DATE",.01)=""
^DD(7103.1,"B","END TIME",4)=""
^DD(7103.1,"B","MESSAGE",5)=""
^DD(7103.1,"B","START TIME",3)=""
^DD(7103.1,"B","STATUS",2)=""
^DD(7103.1,"B","TEXT COLOR",6)=""
^DD(7103.1,"B","USER",1)=""
^DD(7103.1,"GL",0,1,.01)=""
^DD(7103.1,"GL",0,2,1)=""
^DD(7103.1,"GL",0,3,2)=""
^DD(7103.1,"GL",0,4,3)=""
^DD(7103.1,"GL",0,5,4)=""
^DD(7103.1,"GL",0,6,5)=""
^DD(7103.1,"GL",0,7,6)=""
^DD(7103.1,"GL",0,8,7)=""
^DD(7103.1,"IX",.01)=""
^DD(7103.1,"IX",1)=""
^DD(7103.1,"IX",2)=""
^DD(7103.1,"RQ",.01)=""
^DD(7103.1,"RQ",1)=""
^DD(7103.1,"RQ",2)=""
^DD(7103.2,0)="FIELD^^11^13"
^DD(7103.2,0,"DT")="2950519"
^DD(7103.2,0,"IX","B",7103.2,.01)=""
^DD(7103.2,0,"NM","NOIS RECURRING EVENTS")=""
^DD(7103.2,0,"VR")="1.1"
^DD(7103.2,0,"VRPK")="NOIS"
^DD(7103.2,.01,0)="EVENT^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7103.2,.01,1,0)="^.1"
^DD(7103.2,.01,1,1,0)="7103.2^B"
^DD(7103.2,.01,1,1,1)="S ^FSC(""REVENT"",""B"",$E(X,1,30),DA)="""""
^DD(7103.2,.01,1,1,2)="K ^FSC(""REVENT"",""B"",$E(X,1,30),DA)"
^DD(7103.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7103.2,.5,0)="TYPE^7103.21P^^.5;0"
^DD(7103.2,1,0)="START TIME^RFX^^0;2^D TIME^FSCTIME(.X)"
^DD(7103.2,1,3)=""
^DD(7103.2,1,"DT")="2950507"
^DD(7103.2,2,0)="END TIME^FX^^0;3^D TIME^FSCTIME(.X)"
^DD(7103.2,2,3)=""
^DD(7103.2,2,"DT")="2950507"
^DD(7103.2,3,0)="TIME ZONE^P7106.5'^FSC(""TIMEZONE"",^0;4^Q"
^DD(7103.2,3,"DT")="2950507"
^DD(7103.2,4,0)="OFFICE^P7105.3'^FSC(""ISC"",^0;5^Q"
^DD(7103.2,4,"DT")="2980117"
^DD(7103.2,5,0)="GROUP^P7105.8'^FSC(""PACKG"",^0;6^Q"
^DD(7103.2,5,"DT")="2950507"
^DD(7103.2,6,0)="PACKAGE^P7105.5'^FSC(""PACK"",^0;7^Q"
^DD(7103.2,6,"DT")="2950507"
^DD(7103.2,7,0)="LOCATION^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(7103.2,7,3)="Answer must be 1-20 characters in length."
^DD(7103.2,7,"DT")="2950507"
^DD(7103.2,8,0)="PHONE^F^^0;9^K:$L(X)>30!($L(X)<2) X"
^DD(7103.2,8,3)="Answer must be 2-30 characters in length."
^DD(7103.2,8,"DT")="2950507"
^DD(7103.2,9,0)="DESCRIPTION^7103.29^^1;0"
^DD(7103.2,10,0)="FUNCTIONAL AREA^P7106.4'^FSC(""FUNC"",^0;10^Q"
^DD(7103.2,10,"DT")="2950519"
^DD(7103.2,11,0)="OTHER GROUP^F^^0;11^K:$L(X)>30!($L(X)<2) X"
^DD(7103.2,11,3)="Answer must be 2-30 characters in length."
^DD(7103.2,11,"DT")="2950519"
^DD(7103.2,"B","DESCRIPTION",9)=""
^DD(7103.2,"B","END TIME",2)=""
^DD(7103.2,"B","EVENT",.01)=""
^DD(7103.2,"B","FUNCTIONAL AREA",10)=""
^DD(7103.2,"B","GROUP",5)=""
^DD(7103.2,"B","LOCATION",7)=""
^DD(7103.2,"B","OFFICE",4)=""
^DD(7103.2,"B","OTHER GROUP",11)=""
^DD(7103.2,"B","PACKAGE",6)=""
^DD(7103.2,"B","PHONE",8)=""
^DD(7103.2,"B","START TIME",1)=""
^DD(7103.2,"B","TIME ZONE",3)=""
^DD(7103.2,"B","TYPE",.5)=""
^DD(7103.2,"GL",0,1,.01)=""
^DD(7103.2,"GL",0,2,1)=""
^DD(7103.2,"GL",0,3,2)=""
^DD(7103.2,"GL",0,4,3)=""
^DD(7103.2,"GL",0,5,4)=""
^DD(7103.2,"GL",0,6,5)=""
^DD(7103.2,"GL",0,7,6)=""
^DD(7103.2,"GL",0,8,7)=""
^DD(7103.2,"GL",0,9,8)=""
^DD(7103.2,"GL",0,10,10)=""
^DD(7103.2,"GL",0,11,11)=""
^DD(7103.2,"GL",.5,0,.5)=""
^DD(7103.2,"GL",1,0,9)=""
^DD(7103.2,"IX",.01)=""
^DD(7103.2,"RQ",.01)=""
^DD(7103.2,"RQ",1)=""
^DD(7103.2,"SB",7103.21,.5)=""
^DD(7103.2,"SB",7103.29,9)=""
^DD(7103.21,0)="TYPE SUB-FIELD^^.01^1"
^DD(7103.21,0,"DT")="2950507"
^DD(7103.21,0,"IX","B",7103.21,.01)=""
^DD(7103.21,0,"NM","TYPE")=""
^DD(7103.21,0,"UP")="7103.2"
^DD(7103.21,.01,0)="TYPE^MP7103.3'^FSC(""ETYPE"",^0;1^Q"
^DD(7103.21,.01,1,0)="^.1"
^DD(7103.21,.01,1,1,0)="7103.21^B"
^DD(7103.21,.01,1,1,1)="S ^FSC(""REVENT"",DA(1),.5,""B"",$E(X,1,30),DA)="""""
^DD(7103.21,.01,1,1,2)="K ^FSC(""REVENT"",DA(1),.5,""B"",$E(X,1,30),DA)"
^DD(7103.21,.01,"DT")="2950507"
^DD(7103.21,"B","TYPE",.01)=""
^DD(7103.21,"GL",0,1,.01)=""
^DD(7103.21,"IX",.01)=""
^DD(7103.29,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(7103.29,0,"DT")="2950507"
^DD(7103.29,0,"NM","DESCRIPTION")=""
^DD(7103.29,0,"UP")="7103.2"
^DD(7103.29,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(7103.29,.01,"DT")="2950507"
^DD(7103.29,"B","DESCRIPTION",.01)=""
^DD(7103.29,"GL",0,1,.01)=""
^DD(7103.3,0)="FIELD^^.01^2"
^DD(7103.3,0,"DT")="2950507"
^DD(7103.3,0,"IX","B",7103.3,.01)=""
^DD(7103.3,0,"NM","NOIS EVENT TYPE")=""
^DD(7103.3,0,"PT",7103.21,.01)=""
^DD(7103.3,0,"VR")="1.1"
^DD(7103.3,0,"VRPK")="NOIS"
^DD(7103.3,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7103.3,.001,3)="Type a Number between 1 and 1000000, 0 Decimal Digits"
^DD(7103.3,.001,"DT")="2950507"
^DD(7103.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7103.3,.01,1,0)="^.1"
^DD(7103.3,.01,1,1,0)="7103.3^B"
^DD(7103.3,.01,1,1,1)="S ^FSC(""ETYPE"",""B"",$E(X,1,30),DA)="""""
^DD(7103.3,.01,1,1,2)="K ^FSC(""ETYPE"",""B"",$E(X,1,30),DA)"
^DD(7103.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7103.3,"B","NAME",.01)=""
^DD(7103.3,"B","NUMBER",.001)=""
^DD(7103.3,"GL",0,1,.01)=""
^DD(7103.3,"IX",.01)=""
^DD(7103.3,"RQ",.01)=""
^DD(7103.5,0)="FIELD^^4^5"
^DD(7103.5,0,"DT")="2951212"
^DD(7103.5,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7103.5,0,"ID",2)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(7103.5,0,"IX","AK",7103.5,.01)=""
^DD(7103.5,0,"IX","AK1",7103.5,1)=""
^DD(7103.5,0,"IX","AK2",7103.5,2)=""
^DD(7103.5,0,"IX","AUD",7103.5,1)=""
^DD(7103.5,0,"IX","AUD1",7103.5,2)=""
^DD(7103.5,0,"IX","B",7103.5,.01)=""
^DD(7103.5,0,"IX","D",7103.5,2)=""
^DD(7103.5,0,"IX","U",7103.5,1)=""
^DD(7103.5,0,"NM","NOIS WORKLOAD")=""
^DD(7103.5,0,"VR")="1.1"
^DD(7103.5,0,"VRPK")="NOIS"
^DD(7103.5,.01,0)="CALL^RP7100'^FSCD(""CALL"",^0;1^Q"
^DD(7103.5,.01,1,0)="^.1"
^DD(7103.5,.01,1,1,0)="7103.5^B"
^DD(7103.5,.01,1,1,1)="S ^FSCD(""WKLD"",""B"",$E(X,1,30),DA)="""""
^DD(7103.5,.01,1,1,2)="K ^FSCD(""WKLD"",""B"",$E(X,1,30),DA)"
^DD(7103.5,.01,1,2,0)="7103.5^AK^MUMPS"
^DD(7103.5,.01,1,2,1)="D AK^FSCXREFW(""SET"",""CALL"",X,DA)"
^DD(7103.5,.01,1,2,2)="D AK^FSCXREFW(""KILL"",""CALL"",X,DA)"
^DD(7103.5,.01,1,2,"DT")="2951212"
^DD(7103.5,.01,3)=""
^DD(7103.5,.01,21,0)="^^1^1^2980118^"
^DD(7103.5,.01,21,1,0)="This is the call associated with the workload."
^DD(7103.5,.01,"DT")="2951212"
^DD(7103.5,1,0)="USER^RP200'^VA(200,^0;2^Q"
^DD(7103.5,1,1,0)="^.1"
^DD(7103.5,1,1,1,0)="7103.5^U"
^DD(7103.5,1,1,1,1)="S ^FSCD(""WKLD"",""U"",$E(X,1,30),DA)="""""
^DD(7103.5,1,1,1,2)="K ^FSCD(""WKLD"",""U"",$E(X,1,30),DA)"
^DD(7103.5,1,1,1,"DT")="2951212"
^DD(7103.5,1,1,2,0)="7103.5^AK1^MUMPS"
^DD(7103.5,1,1,2,1)="D AK^FSCXREFW(""SET"",""USER"",X,DA)"
^DD(7103.5,1,1,2,2)="D AK^FSCXREFW(""KILL"",""USER"",X,DA)"
^DD(7103.5,1,1,2,"DT")="2951212"
^DD(7103.5,1,1,3,0)="7103.5^AUD^MUMPS"
^DD(7103.5,1,1,3,1)="D AUD^FSCXREFW(""SET"",""USER"",X,DA)"
^DD(7103.5,1,1,3,2)="D AUD^FSCXREFW(""KILL"",""USER"",X,DA)"
^DD(7103.5,1,1,3,"DT")="2951212"
^DD(7103.5,1,21,0)="^^1^1^2980118^"
^DD(7103.5,1,21,1,0)="This is the user associated with the workload."
^DD(7103.5,1,"DT")="2951212"
^DD(7103.5,2,0)="DATE^RD^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(7103.5,2,1,0)="^.1"
^DD(7103.5,2,1,1,0)="7103.5^D"
^DD(7103.5,2,1,1,1)="S ^FSCD(""WKLD"",""D"",$E(X,1,30),DA)="""""
^DD(7103.5,2,1,1,2)="K ^FSCD(""WKLD"",""D"",$E(X,1,30),DA)"
^DD(7103.5,2,1,1,"DT")="2951212"
^DD(7103.5,2,1,2,0)="7103.5^AK2^MUMPS"
^DD(7103.5,2,1,2,1)="D AK^FSCXREFW(""SET"",""DATE"",X,DA)"
^DD(7103.5,2,1,2,2)="D AK^FSCXREFW(""KILL"",""DATE"",X,DA)"
^DD(7103.5,2,1,2,"DT")="2951212"
^DD(7103.5,2,1,3,0)="7103.5^AUD1^MUMPS"
^DD(7103.5,2,1,3,1)="D AUD^FSCXREFW(""SET"",""DATE"",X,DA)"
^DD(7103.5,2,1,3,2)="D AUD^FSCXREFW(""KILL"",""DATE"",X,DA)"
^DD(7103.5,2,1,3,"DT")="2951212"
^DD(7103.5,2,21,0)="^^1^1^2980118^"
^DD(7103.5,2,21,1,0)="This is the date for the user's workload on this call."
^DD(7103.5,2,"DT")="2951212"
^DD(7103.5,3,0)="HOURS^NJ6,3^^0;4^K:+X'=X!(X>24)!(X<0)!(X?.E1"".""4N.N) X"
^DD(7103.5,3,3)="Type a Number between 0 and 24, 3 Decimal Digits"
^DD(7103.5,3,21,0)="^^2^2^2980118^"
^DD(7103.5,3,21,1,0)="This is the number of hours of workload for this user, for this date, on"
^DD(7103.5,3,21,2,0)="this call."
^DD(7103.5,3,"DT")="2951212"
^DD(7103.5,4,0)="INVALID^S^1:YES;^0;5^Q"
^DD(7103.5,4,21,0)="^^2^2^2980118^"
^DD(7103.5,4,21,1,0)="This is a flag used to invalidate this record of workload. It is "
^DD(7103.5,4,21,2,0)="controlled by the program when calls are cancelled or reopened."
^DD(7103.5,4,"DT")="2951212"
^DD(7103.5,"B","CALL",.01)=""
^DD(7103.5,"B","DATE",2)=""
^DD(7103.5,"B","HOURS",3)=""
^DD(7103.5,"B","INVALID",4)=""
^DD(7103.5,"B","USER",1)=""
^DD(7103.5,"GL",0,1,.01)=""
^DD(7103.5,"GL",0,2,1)=""
^DD(7103.5,"GL",0,3,2)=""
^DD(7103.5,"GL",0,4,3)=""
^DD(7103.5,"GL",0,5,4)=""
^DD(7103.5,"IX",.01)=""
^DD(7103.5,"IX",1)=""
^DD(7103.5,"IX",2)=""
^DD(7103.5,"RQ",.01)=""
^DD(7103.5,"RQ",1)=""
^DD(7103.5,"RQ",2)=""
^DD(7104,0)="FIELD^^3^4"
^DD(7104,0,"DT")="2950628"
^DD(7104,0,"IX","APD",7104,1)=""
^DD(7104,0,"IX","ASD",7104,2)=""
^DD(7104,0,"IX","B",7104,.01)=""
^DD(7104,0,"NM","NOIS STU MESSAGE")=""
^DD(7104,0,"PT",7104.3,1)=""
^DD(7104,0,"VR")="1.1"
^DD(7104,0,"VRPK")="NOIS"
^DD(7104,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7104,.01,1,0)="^.1"
^DD(7104,.01,1,1,0)="7104^B"
^DD(7104,.01,1,1,1)="S ^FSCD(""STU MSG"",""B"",$E(X,1,30),DA)="""""
^DD(7104,.01,1,1,2)="K ^FSCD(""STU MSG"",""B"",$E(X,1,30),DA)"
^DD(7104,.01,3)=""
^DD(7104,.01,21,0)="^^1^1^2980118^"
^DD(7104,.01,21,1,0)="This is the date of when the message for package install was receiced."
^DD(7104,.01,"DT")="2950628"
^DD(7104,1,0)="PACKAGE^P7105.5'^FSC(""PACK"",^0;2^Q"
^DD(7104,1,1,0)="^.1"
^DD(7104,1,1,1,0)="7104^APD^MUMPS"
^DD(7104,1,1,1,1)="S ^FSCD(""STU MSG"",""APD"",+X,+^FSCD(""STU MSG"",+DA,0),DA)="""""
^DD(7104,1,1,1,2)="K ^FSCD(""STU MSG"",""APD"",+X,+^FSCD(""STU MSG"",+DA,0),DA)"
^DD(7104,1,1,1,"DT")="2950628"
^DD(7104,1,21,0)="^^1^1^2980118^"
^DD(7104,1,21,1,0)="This is the package that was installed."
^DD(7104,1,"DT")="2950628"
^DD(7104,2,0)="SITE^P7105.1'^FSC(""SITE"",^0;3^Q"
^DD(7104,2,1,0)="^.1"
^DD(7104,2,1,1,0)="7104^ASD^MUMPS"
^DD(7104,2,1,1,1)="S ^FSCD(""STU MSG"",""ASD"",+X,+^FSCD(""STU MSG"",+DA,0),DA)="""""
^DD(7104,2,1,1,2)="K ^FSCD(""STU MSG"",""ASD"",+X,+^FSCD(""STU MSG"",+DA,0),DA)"
^DD(7104,2,1,1,"DT")="2950628"
^DD(7104,2,21,0)="^^1^1^2980118^"
^DD(7104,2,21,1,0)="This is the site that installed the package."
^DD(7104,2,"DT")="2950628"
^DD(7104,3,0)="MESSAGE^7104.03^^1;0"
^DD(7104,3,21,0)="^^1^1^2980118^"
^DD(7104,3,21,1,0)="This is the message associated with the install."
^DD(7104,"B","DATE",.01)=""
^DD(7104,"B","MESSAGE",3)=""
^DD(7104,"B","PACKAGE",1)=""
^DD(7104,"B","SITE",2)=""
^DD(7104,"GL",0,1,.01)=""
^DD(7104,"GL",0,2,1)=""
^DD(7104,"GL",0,3,2)=""
^DD(7104,"GL",1,0,3)=""
^DD(7104,"IX",.01)=""
^DD(7104,"IX",1)=""
^DD(7104,"IX",2)=""
^DD(7104,"RQ",.01)=""
^DD(7104,"SB",7104.03,3)=""
^DD(7104.03,0)="MESSAGE SUB-FIELD^^.01^1"
^DD(7104.03,0,"DT")="2950628"
^DD(7104.03,0,"NM","MESSAGE")=""
^DD(7104.03,0,"UP")="7104"
^DD(7104.03,.01,0)="MESSAGE^WL^^0;1^Q"
^DD(7104.03,.01,"DT")="2950628"
^DD(7104.03,"B","MESSAGE",.01)=""
^DD(7104.03,"GL",0,1,.01)=""
^DD(7104.3,0)="FIELD^^1^2"
^DD(7104.3,0,"DT")="2950628"
^DD(7104.3,0,"IX","B",7104.3,.01)=""
^DD(7104.3,0,"NM","NOIS STU ALERT")=""
^DD(7104.3,0,"VR")="1.1"
^DD(7104.3,0,"VRPK")="NOIS"
^DD(7104.3,.01,0)="USER^RP200'^VA(200,^0;1^Q"
^DD(7104.3,.01,1,0)="^.1"
^DD(7104.3,.01,1,1,0)="7104.3^B"
^DD(7104.3,.01,1,1,1)="S ^FSCD(""STU ALERT"",""B"",$E(X,1,30),DA)="""""
^DD(7104.3,.01,1,1,2)="K ^FSCD(""STU ALERT"",""B"",$E(X,1,30),DA)"
^DD(7104.3,.01,3)=""
^DD(7104.3,.01,21,0)="^^1^1^2980118^"
^DD(7104.3,.01,21,1,0)="This is the user to be alerted on installs."
^DD(7104.3,.01,"DT")="2950628"
^DD(7104.3,1,0)="MESSAGE^P7104'^FSCD(""STU MSG"",^0;2^Q"
^DD(7104.3,1,21,0)="^^1^1^2980118^"
^DD(7104.3,1,21,1,0)="This is the message of the insallation."
^DD(7104.3,1,"DT")="2950628"
^DD(7104.3,"B","MESSAGE",1)=""
^DD(7104.3,"B","USER",.01)=""
^DD(7104.3,"GL",0,1,.01)=""
^DD(7104.3,"GL",0,2,1)=""
^DD(7104.3,"IX",.01)=""
^DD(7104.3,"RQ",.01)=""
^DD(7105.1,0)="FIELD^^99^20"
^DD(7105.1,0,"DDA")="N"
^DD(7105.1,0,"DT")="2980717"
^DD(7105.1,0,"IX","ACL",7105.199,.01)=""
^DD(7105.1,0,"IX","AE",7105.1,9)=""
^DD(7105.1,0,"IX","B",7105.1,.01)=""
^DD(7105.1,0,"IX","C",7105.1,2)=""
^DD(7105.1,0,"IX","D",7105.111,.01)=""
^DD(7105.1,0,"NM","NOIS LOCATION")=""
^DD(7105.1,0,"PT",7100,2)=""
^DD(7105.1,0,"PT",7100.2,2)=""
^DD(7105.1,0,"PT",7104,2)=""
^DD(7105.1,0,"PT",7105.2,3)=""
^DD(7105.1,0,"PT",7105.243,.01)=""
^DD(7105.1,0,"VR")="1.1"
^DD(7105.1,0,"VRPK")="NOIS"
^DD(7105.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.1,.01,.1)="Location Name"
^DD(7105.1,.01,1,0)="^.1"
^DD(7105.1,.01,1,1,0)="7105.1^B"
^DD(7105.1,.01,1,1,1)="S ^FSC(""SITE"",""B"",$E(X,1,30),DA)="""""
^DD(7105.1,.01,1,1,2)="K ^FSC(""SITE"",""B"",$E(X,1,30),DA)"
^DD(7105.1,.01,3)="Answer must be 3-30 characters in length."
^DD(7105.1,.01,21,0)="^^1^1^2940130^"
^DD(7105.1,.01,21,1,0)="This is the name of the location."
^DD(7105.1,.01,24)="  ROWE-SUPPORT   Owner: ROWE,LINDA  (AMARILLO, TX)"
^DD(7105.1,.01,"DT")="2940110"
^DD(7105.1,1,0)="INACTIVE^S^1:YES;^0;2^Q"
^DD(7105.1,1,.1)="Inactive Flag"
^DD(7105.1,1,21,0)="^^2^2^2940130^"
^DD(7105.1,1,21,1,0)="This field is used to flag this location as being inactive."
^DD(7105.1,1,21,2,0)="An inactive location cannot be selected for entering NOIS calls."
^DD(7105.1,1,"DT")="2940110"
^DD(7105.1,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.1,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.1,1.7,21,0)="^^2^2^2980717^"
^DD(7105.1,1.7,21,1,0)="Enter a web link (URL). This link will be available on calls for this"
^DD(7105.1,1.7,21,2,0)="location."
^DD(7105.1,1.7,"DT")="2980717"
^DD(7105.1,2,0)="ABBREVIATION^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3)!'(X'?.P!(X'?.N)) X"
^DD(7105.1,2,.1)="Abbriviation"
^DD(7105.1,2,1,0)="^.1"
^DD(7105.1,2,1,1,0)="7105.1^C"
^DD(7105.1,2,1,1,1)="S ^FSC(""SITE"",""C"",$E(X,1,30),DA)="""""
^DD(7105.1,2,1,1,2)="K ^FSC(""SITE"",""C"",$E(X,1,30),DA)"
^DD(7105.1,2,1,1,3)="    "
^DD(7105.1,2,1,1,"DT")="2931026"
^DD(7105.1,2,3)="Answer must be 3 characters in length."
^DD(7105.1,2,21,0)="^^2^2^2940130^"
^DD(7105.1,2,21,1,0)="This is the abbreviation of the location.  The abbreviation is used"
^DD(7105.1,2,21,2,0)="in creating the call ID."
^DD(7105.1,2,"DT")="2931026"
^DD(7105.1,3,0)="NOTIFY METHOD^S^MAIL:MAIL;ALERT:ALERT;^0;4^Q"
^DD(7105.1,3,.1)="Notification Method"
^DD(7105.1,3,21,0)="^^1^1^2940130^"
^DD(7105.1,3,21,1,0)="This field is used to specify the method of notification."
^DD(7105.1,3,"DT")="2940110"
^DD(7105.1,4,0)="NOTIFY EVENT^S^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;CLOSED:CLOSED;^0;5^Q"
^DD(7105.1,4,.1)="Event Triggering Nofication"
^DD(7105.1,4,21,0)="^^1^1^2940130^"
^DD(7105.1,4,21,1,0)="This field specifys the event that should trigger notification."
^DD(7105.1,4,"DT")="2940413"
^DD(7105.1,5,0)="CONTACT PERSON^P200'^VA(200,^0;6^Q"
^DD(7105.1,5,.1)="Primary Contact Person"
^DD(7105.1,5,21,0)="^^1^1^2940130^"
^DD(7105.1,5,21,1,0)="This is the default for the contact person for a NOIS call at this location."
^DD(7105.1,5,"DT")="2940110"
^DD(7105.1,5.1,0)="FTS TELEPHONE^F^^0;7^K:$L(X)>20!($L(X)<1) X"
^DD(7105.1,5.1,.1)="Primary Contact FTS Number"
^DD(7105.1,5.1,3)="Answer must be 1-20 characters in length."
^DD(7105.1,5.1,21,0)="^^1^1^2940130^"
^DD(7105.1,5.1,21,1,0)="This field is the FTS phone number for this location."
^DD(7105.1,5.1,"DT")="2940110"
^DD(7105.1,5.2,0)="COMMERICIAL TELEPHONE^F^^0;8^K:$L(X)>20!($L(X)<1) X"
^DD(7105.1,5.2,.1)="Primary Contact Phone Number"
^DD(7105.1,5.2,3)="Answer must be 1-20 characters in length."
^DD(7105.1,5.2,21,0)="^^1^1^2940130^"
^DD(7105.1,5.2,21,1,0)="This is the commercial phone number for this location."
^DD(7105.1,5.2,"DT")="2940110"
^DD(7105.1,5.3,0)="FAX NUMBER^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(7105.1,5.3,.1)="Primary Contact FAX Number"
^DD(7105.1,5.3,3)="Answer must be 1-20 characters in length."
^DD(7105.1,5.3,21,0)="^^1^1^2940130^"
^DD(7105.1,5.3,21,1,0)="This is the FAX number for this location."
^DD(7105.1,5.3,"DT")="2940110"
^DD(7105.1,5.4,0)="EMAIL ADDRESS^F^^0;10^K:$L(X)>20!($L(X)<1) X"
^DD(7105.1,5.4,.1)="Primary Contact E-Mail Address"
^DD(7105.1,5.4,3)="Answer must be 1-20 characters in length."
^DD(7105.1,5.4,21,0)="^^2^2^2940130^"
^DD(7105.1,5.4,21,1,0)="This is the email address for being notified.  It should contain the"
^DD(7105.1,5.4,21,2,0)="person or mailgroup (and the domain for sites)."
^DD(7105.1,5.4,"DT")="2940110"
^DD(7105.1,6,0)="OFFICE^P7105.3'^FSC(""ISC"",^0;11^Q"
^DD(7105.1,6,.1)="Office for Support"
^DD(7105.1,6,21,0)="^^1^1^2980117^^^"
^DD(7105.1,6,21,1,0)="This is the office for this site (assuming this location is a site.)"
^DD(7105.1,6,"DT")="2980117"
^DD(7105.1,7,0)="VISN^P7106.6'^FSC(""VISN"",^0;12^Q"
^DD(7105.1,7,.1)="VISN Number"
^DD(7105.1,7,3)=""
^DD(7105.1,7,21,0)="^^1^1^2951221^^"
^DD(7105.1,7,21,1,0)="This is the VISN for this site (assuming this location is a site)."
^DD(7105.1,7,"DT")="2951221"
^DD(7105.1,8,0)="TYPE^P7105.7'^FSC(""LTYPE"",^0;13^Q"
^DD(7105.1,8,21,0)="^^1^1^2940901^"
^DD(7105.1,8,21,1,0)="This field is the type for this location (Alpha, 486, etc.)"
^DD(7105.1,8,"DT")="2940901"
^DD(7105.1,9,0)="DOMAIN^P4.2'^DIC(4.2,^0;14^Q"
^DD(7105.1,9,1,0)="^.1"
^DD(7105.1,9,1,1,0)="7105.1^AE"
^DD(7105.1,9,1,1,1)="S ^FSC(""SITE"",""AE"",$E(X,1,30),DA)="""""
^DD(7105.1,9,1,1,2)="K ^FSC(""SITE"",""AE"",$E(X,1,30),DA)"
^DD(7105.1,9,1,1,"DT")="2950628"
^DD(7105.1,9,21,0)="^^2^2^2980118^"
^DD(7105.1,9,21,1,0)="This is the domain for this location. This field is not used for local"
^DD(7105.1,9,21,2,0)="implementations of NOIS."
^DD(7105.1,9,"DT")="2950628"
^DD(7105.1,9.1,0)="NT DOMAIN^S^E:VHA_EASTA;C:VHA_CENTRALA;W:VHA_WESTA;EB:VHA_EASTB;CB:VHA_CENTRALB;WB:VHA_WESTB;EES:VHA_EES;VCS:VHA_VCS;VBA:VBA;VCS:VCS;^0;15^Q"
^DD(7105.1,9.1,21,0)="^^1^1^2960218^"
^DD(7105.1,9.1,21,1,0)="This field is the locations NT Domain name."
^DD(7105.1,9.1,"DT")="2961106"
^DD(7105.1,9.2,0)="SYSTEM^P7106.7'^FSC(""SYSTEM"",^0;16^Q"
^DD(7105.1,9.2,21,0)="^^1^1^2980118^"
^DD(7105.1,9.2,21,1,0)="This is the system for this location."
^DD(7105.1,9.2,"DT")="2961019"
^DD(7105.1,10,0)="DESCRIPTION^7105.11^^1;0"
^DD(7105.1,10,21,0)="^^1^1^2940130^^"
^DD(7105.1,10,21,1,0)="This is a description of the location."
^DD(7105.1,11,0)="SYNONYMS^7105.111^^2;0"
^DD(7105.1,11,21,0)="^^1^1^2980118^"
^DD(7105.1,11,21,1,0)="These are synonyms for this location."
^DD(7105.1,99,0)="CLIENT LOOKUP^7105.199^^99;0"
^DD(7105.1,99,21,0)="^^1^1^2980118^"
^DD(7105.1,99,21,1,0)="These are names used by the client for this location."
^DD(7105.1,"B","ABBREVIATION",2)=""
^DD(7105.1,"B","Abbriviation",2)="1"
^DD(7105.1,"B","CLIENT LOOKUP",99)=""
^DD(7105.1,"B","COMMERICIAL TELEPHONE",5.2)=""
^DD(7105.1,"B","CONTACT PERSON",5)=""
^DD(7105.1,"B","DESCRIPTION",10)=""
^DD(7105.1,"B","DOMAIN",9)=""
^DD(7105.1,"B","EMAIL ADDRESS",5.4)=""
^DD(7105.1,"B","Event Triggering Nofication",4)="1"
^DD(7105.1,"B","FAX NUMBER",5.3)=""
^DD(7105.1,"B","FTS TELEPHONE",5.1)=""
^DD(7105.1,"B","INACTIVE",1)=""
^DD(7105.1,"B","Inactive Flag",1)="1"
^DD(7105.1,"B","Location Name",.01)="1"
^DD(7105.1,"B","NAME",.01)=""
^DD(7105.1,"B","NOTIFY EVENT",4)=""
^DD(7105.1,"B","NOTIFY METHOD",3)=""
^DD(7105.1,"B","NT DOMAIN",9.1)=""
^DD(7105.1,"B","Notification Method",3)="1"
^DD(7105.1,"B","OFFICE",6)=""
^DD(7105.1,"B","Office for Support",6)="1"
^DD(7105.1,"B","Primary Contact E-Mail Address",5.4)="1"
^DD(7105.1,"B","Primary Contact FAX Number",5.3)="1"
^DD(7105.1,"B","Primary Contact FTS Number",5.1)="1"
^DD(7105.1,"B","Primary Contact Person",5)="1"
^DD(7105.1,"B","Primary Contact Phone Number",5.2)="1"
^DD(7105.1,"B","SYNONYMS",11)=""
^DD(7105.1,"B","SYSTEM",9.2)=""
^DD(7105.1,"B","TYPE",8)=""
^DD(7105.1,"B","VISN",7)=""
^DD(7105.1,"B","VISN Number",7)="1"
^DD(7105.1,"B","WEB LINK",1.7)=""
^DD(7105.1,"GL",0,1,.01)=""
^DD(7105.1,"GL",0,2,1)=""
^DD(7105.1,"GL",0,3,2)=""
^DD(7105.1,"GL",0,4,3)=""
^DD(7105.1,"GL",0,5,4)=""
^DD(7105.1,"GL",0,6,5)=""
^DD(7105.1,"GL",0,7,5.1)=""
^DD(7105.1,"GL",0,8,5.2)=""
^DD(7105.1,"GL",0,9,5.3)=""
^DD(7105.1,"GL",0,10,5.4)=""
^DD(7105.1,"GL",0,11,6)=""
^DD(7105.1,"GL",0,12,7)=""
^DD(7105.1,"GL",0,13,8)=""
^DD(7105.1,"GL",0,14,9)=""
^DD(7105.1,"GL",0,15,9.1)=""
^DD(7105.1,"GL",0,16,9.2)=""
^DD(7105.1,"GL",1,0,10)=""
^DD(7105.1,"GL",1.7,"E1,245",1.7)=""
^DD(7105.1,"GL",2,0,11)=""
^DD(7105.1,"GL",99,0,99)=""
^DD(7105.1,"IX",.01)=""
^DD(7105.1,"IX",2)=""
^DD(7105.1,"IX",9)=""
^DD(7105.1,"RQ",.01)=""
^DD(7105.1,"RQ",2)=""
^DD(7105.1,"SB",7105.11,10)=""
^DD(7105.1,"SB",7105.111,11)=""
^DD(7105.1,"SB",7105.199,99)=""
^DD(7105.11,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(7105.11,0,"DT")="2931008"
^DD(7105.11,0,"NM","DESCRIPTION")=""
^DD(7105.11,0,"UP")="7105.1"
^DD(7105.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(7105.11,.01,21,0)="^^1^1^2940130^^"
^DD(7105.11,.01,21,1,0)="This is a description for this location."
^DD(7105.11,.01,"DT")="2931008"
^DD(7105.11,"B","DESCRIPTION",.01)=""
^DD(7105.11,"GL",0,1,.01)=""
^DD(7105.111,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7105.111,0,"DT")="2960122"
^DD(7105.111,0,"IX","B",7105.111,.01)=""
^DD(7105.111,0,"NM","SYNONYMS")=""
^DD(7105.111,0,"UP")="7105.1"
^DD(7105.111,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(7105.111,.01,1,0)="^.1"
^DD(7105.111,.01,1,1,0)="7105.111^B"
^DD(7105.111,.01,1,1,1)="S ^FSC(""SITE"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(7105.111,.01,1,1,2)="K ^FSC(""SITE"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(7105.111,.01,1,2,0)="7105.1^D"
^DD(7105.111,.01,1,2,1)="S ^FSC(""SITE"",""D"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.111,.01,1,2,2)="K ^FSC(""SITE"",""D"",$E(X,1,30),DA(1),DA)"
^DD(7105.111,.01,1,2,"DT")="2960122"
^DD(7105.111,.01,3)="Answer must be 3-30 characters in length."
^DD(7105.111,.01,21,0)="^^1^1^2980118^"
^DD(7105.111,.01,21,1,0)="This is a synonym for this location."
^DD(7105.111,.01,"DT")="2960122"
^DD(7105.111,"B","SYNONYM",.01)=""
^DD(7105.111,"GL",0,1,.01)=""
^DD(7105.111,"IX",.01)=""
^DD(7105.199,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7105.199,0,"DT")="2970927"
^DD(7105.199,0,"IX","B",7105.199,.01)=""
^DD(7105.199,0,"NM","CLIENT LOOKUP")=""
^DD(7105.199,0,"UP")="7105.1"
^DD(7105.199,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7105.199,.01,1,0)="^.1"
^DD(7105.199,.01,1,1,0)="7105.199^B"
^DD(7105.199,.01,1,1,1)="S ^FSC(""SITE"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7105.199,.01,1,1,2)="K ^FSC(""SITE"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7105.199,.01,1,2,0)="7105.1^ACL^MUMPS"
^DD(7105.199,.01,1,2,1)="S ^FSC(""SITE"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7105.199,.01,1,2,2)="K ^FSC(""SITE"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7105.199,.01,1,2,"DT")="2970927"
^DD(7105.199,.01,3)="Answer must be 2-60 characters in length."
^DD(7105.199,.01,21,0)="^^1^1^2980118^"
^DD(7105.199,.01,21,1,0)="This is the name used by the client for this location."
^DD(7105.199,.01,"DT")="2970927"
^DD(7105.199,"B","CLIENT LOOKUP",.01)=""
^DD(7105.199,"GL",0,1,.01)=""
^DD(7105.199,"IX",.01)=""
^DD(7105.2,0)="FIELD^^200^85"
^DD(7105.2,0,"DDA")="N"
^DD(7105.2,0,"DT")="2980717"
^DD(7105.2,0,"IX","AC",7105.2,200)=""
^DD(7105.2,0,"IX","AF",7105.2,10.3)=""
^DD(7105.2,0,"IX","AG",7105.22,.01)=""
^DD(7105.2,0,"IX","AL",7105.2,9)=""
^DD(7105.2,0,"IX","AP",7105.23,.01)=""
^DD(7105.2,0,"IX","AXAU",7105.2,40)=""
^DD(7105.2,0,"IX","B",7105.2,.01)=""
^DD(7105.2,0,"NM","NOIS USER DEFAULTS")=""
^DD(7105.2,0,"PT",7100,5)=""
^DD(7105.2,0,"PT",7100,5.1)=""
^DD(7105.2,0,"PT",7100,81)=""
^DD(7105.2,0,"PT",7103.1,1)=""
^DD(7105.2,0,"PT",7105.2,8)=""
^DD(7105.2,0,"VR")="1.1"
^DD(7105.2,0,"VRPK")="NOIS"
^DD(7105.2,.01,0)="NAME^RP200'X^VA(200,^0;1^I $D(X)#2 S DINUM=X"
^DD(7105.2,.01,1,0)="^.1"
^DD(7105.2,.01,1,1,0)="7105.2^B"
^DD(7105.2,.01,1,1,1)="S ^FSC(""SPEC"",""B"",$E(X,1,30),DA)="""""
^DD(7105.2,.01,1,1,2)="K ^FSC(""SPEC"",""B"",$E(X,1,30),DA)"
^DD(7105.2,.01,3)=""
^DD(7105.2,.01,21,0)="^^1^1^2940130^"
^DD(7105.2,.01,21,1,0)="This is the name of the NOIS specialist (referenced to NEW person file)."
^DD(7105.2,.01,"DT")="2931025"
^DD(7105.2,1,0)="NON-SPECIALIST^S^1:YES;^0;2^Q"
^DD(7105.2,1,21,0)="^^2^2^2980118^^^"
^DD(7105.2,1,21,1,0)="This field designates the user as not being a specialist. If a specialist"
^DD(7105.2,1,21,2,0)="is inactive this field should be set to YES."
^DD(7105.2,1,"DT")="2971109"
^DD(7105.2,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.2,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.2,1.7,21,0)="^^2^2^2980717^"
^DD(7105.2,1.7,21,1,0)="Enter a web link (URL). This link will be available on calls where you"
^DD(7105.2,1.7,21,2,0)="are the specialist, ref specialist, or contact."
^DD(7105.2,1.7,"DT")="2980717"
^DD(7105.2,1.8,0)="WEB LINK (PERSONAL)^F^^1.8;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.2,1.8,3)="Answer must be 3-245 characters in length."
^DD(7105.2,1.8,21,0)="^^3^3^2980711^"
^DD(7105.2,1.8,21,1,0)="Web link associated with user."
^DD(7105.2,1.8,21,2,0)="This link will only be selectable by this user."
^DD(7105.2,1.8,21,3,0)="Use this field for a web link that you use frequently."
^DD(7105.2,1.8,"DT")="2980711"
^DD(7105.2,2,0)="REASON FOR INACTIVITY^F^^1;1^K:$L(X)>80!($L(X)<1) X"
^DD(7105.2,2,3)="Answer must be 1-80 characters in length."
^DD(7105.2,2,21,0)="^^2^2^2940130^"
^DD(7105.2,2,21,1,0)="This is a short statment that states why the NOIS specialist was made"
^DD(7105.2,2,21,2,0)="inactive."
^DD(7105.2,2,"DT")="2930929"
^DD(7105.2,3,0)="WORKS AT (HOME SITE)^P7105.1^FSC(""SITE"",^0;3^Q"
^DD(7105.2,3,.1)="Home Site"
^DD(7105.2,3,3)=""
^DD(7105.2,3,21,0)="^^1^1^2980117^^^^"
^DD(7105.2,3,21,1,0)="This field is used to relate the user to a location."
^DD(7105.2,3,"DT")="2940121"
^DD(7105.2,3.5,0)="OFFICE^P7105.3'^FSC(""ISC"",^0;16^Q"
^DD(7105.2,3.5,21,0)="^^1^1^2980117^^^"
^DD(7105.2,3.5,21,1,0)="This field is the office that this specialist is associated with."
^DD(7105.2,3.5,"DT")="2971109"
^DD(7105.2,4,0)="PRIMARY FUNCTIONAL AREA^P7106.4'^FSC(""FUNC"",^0;4^Q"
^DD(7105.2,4,21,0)="^^1^1^2940130^"
^DD(7105.2,4,21,1,0)="This is the primary type of activity the NOIS specialist is involved in."
^DD(7105.2,4,"DT")="2930929"
^DD(7105.2,5,0)="LAST LOGON^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7105.2,5,.1)="Last Logon"
^DD(7105.2,5,21,0)="^^1^1^2940130^^"
^DD(7105.2,5,21,1,0)="This is the last date the the user entered the NOIS menu system."
^DD(7105.2,5,"DT")="2940121"
^DD(7105.2,6,0)="EMAIL ADDRESS^FX^^0;6^K:$L(X)>40!($L(X)<1) X I $D(X),$E(X,1,2)=""G."" K X"
^DD(7105.2,6,3)="Answer must be 1-40 characters in length.  Cannot be a mail group."
^DD(7105.2,6,21,0)="^^2^2^2940130^"
^DD(7105.2,6,21,1,0)="This is the email address for the NOIS specialist.  It is used when"
^DD(7105.2,6,21,2,0)="using automatic notification of NOIS calls by email."
^DD(7105.2,6,"DT")="2940417"
^DD(7105.2,7,0)="NOIS COORDINATOR^S^1:YES;^0;7^Q"
^DD(7105.2,7,21,0)="^^3^3^2940130^^"
^DD(7105.2,7,21,1,0)="Entry of YES in this field will allow this NOIS Specialist to modify"
^DD(7105.2,7,21,2,0)="some of the NOIS data file eg. NOIS Module/Version, NOIS Specialist"
^DD(7105.2,7,21,3,0)="etc. they will also be able to modify NOIS Specialists lists."
^DD(7105.2,7,"DT")="2940320"
^DD(7105.2,8,0)="REPORTS UPWARD TO^P7105.2'^FSC(""SPEC"",^0;8^Q"
^DD(7105.2,8,21,0)="^^2^2^2940130^"
^DD(7105.2,8,21,1,0)="This field is strictly for information purposes.  This information is"
^DD(7105.2,8,21,2,0)="display when reviewing a NOIS specialist's defaults."
^DD(7105.2,8,"DT")="2930929"
^DD(7105.2,9,0)="DEFAULT LIST^P7107.1'^FSC(""LIST"",^0;9^Q"
^DD(7105.2,9,1,0)="^.1"
^DD(7105.2,9,1,1,0)="7105.2^AL"
^DD(7105.2,9,1,1,1)="S ^FSC(""SPEC"",""AL"",$E(X,1,30),DA)="""""
^DD(7105.2,9,1,1,2)="K ^FSC(""SPEC"",""AL"",$E(X,1,30),DA)"
^DD(7105.2,9,1,1,"%D",0)="^^1^1^2931004^"
^DD(7105.2,9,1,1,"%D",1,0)=" ^FSC(""SPEC"",""AL"",LIST,#)="""""
^DD(7105.2,9,1,1,"DT")="2931004"
^DD(7105.2,9,21,0)="^^3^3^2940130^"
^DD(7105.2,9,21,1,0)="This is a NOIS list that will be prompted when entering 'List Calls'"
^DD(7105.2,9,21,2,0)="option in NOIS.  You do not have to own a list to have it as your"
^DD(7105.2,9,21,3,0)="default.  Many specialists can have the same default list."
^DD(7105.2,9,"DT")="2931004"
^DD(7105.2,9.1,0)="LIST DISPLAY^F^^0;11^K:$L(X)>5!($L(X)<1) X"
^DD(7105.2,9.1,.1)="List Display"
^DD(7105.2,9.1,3)="Answer must be 1-5 characters in length."
^DD(7105.2,9.1,21,0)="^^12^12^2961018^^^^"
^DD(7105.2,9.1,21,1,0)=" "
^DD(7105.2,9.1,21,2,0)="FSC LIST DISPLAY"
^DD(7105.2,9.1,21,3,0)=" "
^DD(7105.2,9.1,21,4,0)="This field is a set of codes that changes the default data on all of "
^DD(7105.2,9.1,21,5,0)="your nois lists."
^DD(7105.2,9.1,21,6,0)="Valid choices are S M U P or any combination of these four characters."
^DD(7105.2,9.1,21,7,0)=" "
^DD(7105.2,9.1,21,8,0)="S - will show the status of the call on all lists."
^DD(7105.2,9.1,21,9,0)="M - will show the NOIS module on all lists."
^DD(7105.2,9.1,21,10,0)="U - will show the primary specialist currently assigned to the call."
^DD(7105.2,9.1,21,11,0)="P - will show the current priority on all lists."
^DD(7105.2,9.1,21,12,0)="R - will show the referal specialist"
^DD(7105.2,9.1,"DT")="2940121"
^DD(7105.2,9.2,0)="DEFAULT TO CLOSE NEW CALLS^S^1:YES;0:NO;^0;13^Q"
^DD(7105.2,9.2,21,0)="^^3^3^2940201^"
^DD(7105.2,9.2,21,1,0)="This default is used when logging a new call."
^DD(7105.2,9.2,21,2,0)="YES will prompt to close the call."
^DD(7105.2,9.2,21,3,0)="NO or no entry will prompt to not close the call."
^DD(7105.2,9.2,"DT")="2940201"
^DD(7105.2,9.3,0)="DEFAULT VIEW FORMAT^*P7107.7'^FSC(""FTYPE"",^0;17^S DIC(""S"")=""I $P(^(0),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7105.2,9.3,12)="Only format types that are allowable as a default may be selected."
^DD(7105.2,9.3,12.1)="S DIC(""S"")=""I $P(^(0),U,7)"""
^DD(7105.2,9.3,21,0)="^^2^2^2940807^^"
^DD(7105.2,9.3,21,1,0)="This field allows a NOIS Specialist to select a format default when viewing"
^DD(7105.2,9.3,21,2,0)="calls.  The Detailed format is used if no entry is made."
^DD(7105.2,9.3,"DT")="2940804"
^DD(7105.2,9.4,0)="DEFAULT EDIT FORMAT^*P7107.7'^FSC(""FTYPE"",^0;18^S DIC(""S"")=""I $P(^(0),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7105.2,9.4,12)="Only format types that are allowable as a default may be selected."
^DD(7105.2,9.4,12.1)="S DIC(""S"")=""I $P(^(0),U,7)"""
^DD(7105.2,9.4,21,0)="^^2^2^2940807^^^"
^DD(7105.2,9.4,21,1,0)="This field allows a NOIS Specialist to select a format default when using"
^DD(7105.2,9.4,21,2,0)="the Edit Screen.  The Brief format is used if no entry is made."
^DD(7105.2,9.4,"DT")="2940804"
^DD(7105.2,9.5,0)="DEFAULT TO EXIT^S^1:YES;^0;19^Q"
^DD(7105.2,9.5,21,0)="^^2^2^2940804^"
^DD(7105.2,9.5,21,1,0)="This field can be set to YES to change the default of leaving a NOIS screen"
^DD(7105.2,9.5,21,2,0)="as an EXIT instead of QUIT.  If no entry is made, the default will be QUIT."
^DD(7105.2,9.5,"DT")="2940804"
^DD(7105.2,9.6,0)="DEFAULT ON ALERT^S^VIEW:VIEW;EDIT:EDIT;^0;20^Q"
^DD(7105.2,9.6,21,0)="^^1^1^2950721^"
^DD(7105.2,9.6,21,1,0)="This field will set your default action when receiving alerts."
^DD(7105.2,9.6,"DT")="2950721"
^DD(7105.2,9.7,0)="WORKLOAD PROMPT^S^1:YES;0:NO;^0;21^Q"
^DD(7105.2,9.7,21,0)="^^5^5^2960217^"
^DD(7105.2,9.7,21,1,0)="This field determines whether or not to prompt for workload information"
^DD(7105.2,9.7,21,2,0)="when entering a new call, making notes, or closing a call. If no entry is"
^DD(7105.2,9.7,21,3,0)="made in this field, the DEFAULT WORKLOAD PROMPT in the NOIS PARAMETER"
^DD(7105.2,9.7,21,4,0)="file will determine if a prompt appears. Workload can always be edited"
^DD(7105.2,9.7,21,5,0)="from the NOIS Edit Screen."
^DD(7105.2,9.7,"DT")="2960217"
^DD(7105.2,10,0)="PREFERRED NOTIFICATION^S^1:ALERT;2:MAIL;^0;10^Q"
^DD(7105.2,10,21,0)="^^2^2^2940130^"
^DD(7105.2,10,21,1,0)="This field is for information purposes only.  If someone reviews your"
^DD(7105.2,10,21,2,0)="user defaults they can can tell how you prefer to be notified."
^DD(7105.2,10,"DT")="2940217"
^DD(7105.2,10.1,0)="NOTIFY METHOD^S^ALERT:ALERT;MAIL:MAIL;^0;14^Q"
^DD(7105.2,10.1,21,0)="^^2^2^2940628^"
^DD(7105.2,10.1,21,1,0)="This field specifies the method of notification where this"
^DD(7105.2,10.1,21,2,0)="NOIS Specialist is the primary specialist on the NOIS call."
^DD(7105.2,10.1,"DT")="2940425"
^DD(7105.2,10.2,0)="NOTIFY EVENT^S^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;^0;15^Q"
^DD(7105.2,10.2,21,0)="^^2^2^2940628^"
^DD(7105.2,10.2,21,1,0)="This field specifies the event that initiates notification where"
^DD(7105.2,10.2,21,2,0)="this NOIS Specialist is the primary specialist on the NOIS call."
^DD(7105.2,10.2,"DT")="2940215"
^DD(7105.2,10.3,0)="NOTIFY BY AFFILIATION^S^1:ALL;2:REFERRALS;^0;22^Q"
^DD(7105.2,10.3,1,0)="^.1"
^DD(7105.2,10.3,1,1,0)="7105.2^AF"
^DD(7105.2,10.3,1,1,1)="S ^FSC(""SPEC"",""AF"",$E(X,1,30),DA)="""""
^DD(7105.2,10.3,1,1,2)="K ^FSC(""SPEC"",""AF"",$E(X,1,30),DA)"
^DD(7105.2,10.3,1,1,"DT")="2960217"
^DD(7105.2,10.3,21,0)="^^26^26^2970401^^^^"
^DD(7105.2,10.3,21,1,0)="This field can be used to automatically be notified on any"
^DD(7105.2,10.3,21,2,0)="NOIS calls having a package or package group that you are affiliated"
^DD(7105.2,10.3,21,3,0)="with. "
^DD(7105.2,10.3,21,4,0)=" "
^DD(7105.2,10.3,21,5,0)="For notification to work, you must have an entry in the NOTIFY METHOD"
^DD(7105.2,10.3,21,6,0)="and NOTIFY EVENT fields. You must also have an entry in the GROUP"
^DD(7105.2,10.3,21,7,0)="AFFILIATIONS and/or PACKAGE AFFILIATIONS fields. GROUP AFFILIATIONS"
^DD(7105.2,10.3,21,8,0)="should include any work groups you are affiliated with. If the ALL"
^DD(7105.2,10.3,21,9,0)="AFFILIATIONS field is set to YES then notification will apply to all"
^DD(7105.2,10.3,21,10,0)="packages within that group (you don't need to make entries for these"
^DD(7105.2,10.3,21,11,0)="packages in the PACKAGE AFFILIAIONS fields). For notification on just"
^DD(7105.2,10.3,21,12,0)="specific packages, make entries in the PACKAGE AFFILIATIONS fields."
^DD(7105.2,10.3,21,13,0)="A combination of group and package affiliations can be made."
^DD(7105.2,10.3,21,14,0)=" "
^DD(7105.2,10.3,21,15,0)="The entries for this field can be:"
^DD(7105.2,10.3,21,16,0)="(assuming the NOTIFY METHOD is ALERT and NOTIFY EVENT is EDITED)"
^DD(7105.2,10.3,21,17,0)=" "
^DD(7105.2,10.3,21,18,0)="ALL - You will be alerted when anyone edits any of the packages you are"
^DD(7105.2,10.3,21,19,0)="      affiliated with (except calls with a MISC priority)."
^DD(7105.2,10.3,21,20,0)="REFERRALS - You will be alerted when anyone edits a call with a current"
^DD(7105.2,10.3,21,21,0)="            referred status for any of the packages you are affiliated with."
^DD(7105.2,10.3,21,22,0)="<no entry> - Any entries for group or package affiliation will not be"
^DD(7105.2,10.3,21,23,0)="             used for alerts (your affiliation is only for documentation)."
^DD(7105.2,10.3,21,24,0)=" "
^DD(7105.2,10.3,21,25,0)="Do not use this field if you are using an ACTIVE-UPDATE list for the"
^DD(7105.2,10.3,21,26,0)="same alerts."
^DD(7105.2,10.3,"DT")="2961018"
^DD(7105.2,11,0)="DTIME VALUE FOR NOIS^NJ5,0^^0;12^K:+X'=X!(X>18000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7105.2,11,3)="Type a Number between 1 and 18000, 0 Decimal Digits, this is the value of DTIME while using NOIS."
^DD(7105.2,11,21,0)="^^3^3^2940130^^"
^DD(7105.2,11,21,1,0)="This field will hold a value that will be used for DTIME for all timed"
^DD(7105.2,11,21,2,0)="reads while the user is within the NOIS package.  Their normal DTIME"
^DD(7105.2,11,21,3,0)="from file 200 will be restored when the user leaves the NOIS menu."
^DD(7105.2,11,"DT")="2940106"
^DD(7105.2,20,0)="GROUP AFFILIATIONS^7105.22P^^20;0"
^DD(7105.2,20,21,0)="^^1^1^2970401^^"
^DD(7105.2,20,21,1,0)="These are work groups that you are affiliated with."
^DD(7105.2,30,0)="PACKAGE AFFILIATIONS^7105.23P^^30;0"
^DD(7105.2,30,21,0)="^^1^1^2960321^^"
^DD(7105.2,30,21,1,0)="These are packages that you're affiliated with."
^DD(7105.2,40,0)="STU MATCH PACKAGE AND SITE^S^1:YES;^40;1^Q"
^DD(7105.2,40,1,0)="^.1"
^DD(7105.2,40,1,1,0)="7105.2^AXAU^MUMPS"
^DD(7105.2,40,1,1,1)="D XREF^FSCSTUR(DA)"
^DD(7105.2,40,1,1,2)="D XREF^FSCSTUR(DA)"
^DD(7105.2,40,1,1,"DT")="2950629"
^DD(7105.2,40,21,0)="^^3^3^2950628^"
^DD(7105.2,40,21,1,0)="This field when set to YES will only alert when packages are installed"
^DD(7105.2,40,21,2,0)="at the selected sites. Otherwise, any installs for the selected packages"
^DD(7105.2,40,21,3,0)="or at the selected sites will generate alerts for you."
^DD(7105.2,40,"DT")="2950629"
^DD(7105.2,41,0)="STU PACKAGES^7105.241P^^41;0"
^DD(7105.2,41,21,0)="^^1^1^2980118^"
^DD(7105.2,41,21,1,0)="Packages the user will be alerted when they are installed."
^DD(7105.2,42,0)="STU PACKAGE GROUPS^7105.242P^^42;0"
^DD(7105.2,42,21,0)="^^1^1^2980118^"
^DD(7105.2,42,21,1,0)="Package groups the user will be alerted when those packages are installed."
^DD(7105.2,43,0)="STU SITES^7105.243P^^43;0"
^DD(7105.2,43,21,0)="^^1^1^2980118^"
^DD(7105.2,43,21,1,0)="Sites the user will be alerted when installs are made."
^DD(7105.2,44,0)="STU SITE TYPES^7105.244P^^44;0"
^DD(7105.2,44,21,0)="^^1^1^2980118^"
^DD(7105.2,44,21,1,0)="Sites types that the user will be alerted when those sites have installs."
^DD(7105.2,50,0)="DEFAULT FIELDS^7105.21P^^50;0"
^DD(7105.2,50,21,0)="^^1^1^2940130^"
^DD(7105.2,50,21,1,0)="These fields control defaults when entering NOIS calls."
^DD(7105.2,100,0)="TIME ZONE^P7106.5'^FSC(""TIMEZONE"",^100;1^Q"
^DD(7105.2,100,"DT")="2950507"
^DD(7105.2,101,0)="NORMAL HOURS START TIME^FX^^100;2^D TIME^FSCTIME(.X)"
^DD(7105.2,101,3)=""
^DD(7105.2,101,"DT")="2950507"
^DD(7105.2,102,0)="NORMAL HOURS END TIME^FX^^100;3^D TIME^FSCTIME(.X)"
^DD(7105.2,102,3)=""
^DD(7105.2,102,"DT")="2950507"
^DD(7105.2,103,0)="TEXT COLOR^F^^100;4^K:$L(X)>30!($L(X)<1) X"
^DD(7105.2,103,3)="Answer must be 1-30 characters in length."
^DD(7105.2,103,"DT")="2950507"
^DD(7105.2,104,0)="BACKGROUND COLOR^F^^100;5^K:$L(X)>30!($L(X)<1) X"
^DD(7105.2,104,3)="Answer must be 1-30 characters in length."
^DD(7105.2,104,"DT")="2950507"
^DD(7105.2,105,0)="MESSAGE^F^^100;6^K:$L(X)>30!($L(X)<1) X"
^DD(7105.2,105,3)="Answer must be 1-30 characters in length."
^DD(7105.2,105,"DT")="2950507"
^DD(7105.2,111,0)="MONDAY ALL WEEKS BEGIN TIME^FX^^110;1^D TIME^FSCTIME(.X)"
^DD(7105.2,111,3)=""
^DD(7105.2,111,"DT")="2950507"
^DD(7105.2,112,0)="MONDAY ALL WEEKS END TIME^FX^^110;2^D TIME^FSCTIME(.X)"
^DD(7105.2,112,3)=""
^DD(7105.2,112,"DT")="2950507"
^DD(7105.2,113,0)="MONDAY ALL WEEKS OFF^S^1:YES;^110;3^Q"
^DD(7105.2,113,"DT")="2950507"
^DD(7105.2,114,0)="MONDAY EVEN WEEKS BEGIN TIME^FX^^110;4^D TIME^FSCTIME(.X)"
^DD(7105.2,114,3)=""
^DD(7105.2,114,"DT")="2950507"
^DD(7105.2,115,0)="MONDAY EVEN WEEKS END TIME^FX^^110;5^D TIME^FSCTIME(.X)"
^DD(7105.2,115,3)=""
^DD(7105.2,115,"DT")="2950507"
^DD(7105.2,116,0)="MONDAY EVEN WEEKS OFF^S^1:YES;^110;6^Q"
^DD(7105.2,116,"DT")="2950507"
^DD(7105.2,117,0)="MONDAY ODD WEEKS BEGIN TIME^FX^^110;7^D TIME^FSCTIME(.X)"
^DD(7105.2,117,3)=""
^DD(7105.2,117,"DT")="2950507"
^DD(7105.2,118,0)="MONDAY ODD WEEKS END TIME^FX^^110;8^D TIME^FSCTIME(.X)"
^DD(7105.2,118,3)=""
^DD(7105.2,118,"DT")="2950507"
^DD(7105.2,119,0)="MONDAY ODD WEEKS OFF^S^1:YES;^110;9^Q"
^DD(7105.2,119,"DT")="2950507"
^DD(7105.2,121,0)="TUESDAY ALL WEEKS BEGIN TIME^FX^^120;1^D TIME^FSCTIME(.X)"
^DD(7105.2,121,3)=""
^DD(7105.2,121,"DT")="2950507"
^DD(7105.2,122,0)="TUESDAY ALL WEEKS END TIME^FX^^120;2^D TIME^FSCTIME(.X)"
^DD(7105.2,122,3)=""
^DD(7105.2,122,"DT")="2950507"
^DD(7105.2,123,0)="TUESDAY ALL WEEKS OFF^S^1:YES;^120;3^Q"
^DD(7105.2,123,"DT")="2950507"
^DD(7105.2,124,0)="TUESDAY EVEN WEEKS BEGIN TIME^FX^^120;4^D TIME^FSCTIME(.X)"
^DD(7105.2,124,3)=""
^DD(7105.2,124,"DT")="2950507"
^DD(7105.2,125,0)="TUESDAY EVEN WEEKS END TIME^FX^^120;5^D TIME^FSCTIME(.X)"
^DD(7105.2,125,3)=""
^DD(7105.2,125,"DT")="2950507"
^DD(7105.2,126,0)="TUESDAY EVEN WEEKS OFF^S^1:YES;^120;6^Q"
^DD(7105.2,126,"DT")="2950507"
^DD(7105.2,127,0)="TUESDAY ODD WEEKS BEGIN TIME^FX^^120;7^D TIME^FSCTIME(.X)"
^DD(7105.2,127,3)=""
^DD(7105.2,127,"DT")="2950507"
^DD(7105.2,128,0)="TUESDAY ODD WEEKS END TIME^FX^^120;8^D TIME^FSCTIME(.X)"
^DD(7105.2,128,3)=""
^DD(7105.2,128,"DT")="2950507"
^DD(7105.2,129,0)="TUESDAY ODD WEEKS OFF^S^1:YES;^120;9^Q"
^DD(7105.2,129,"DT")="2950507"
^DD(7105.2,131,0)="WEDNESDAY ALL WEEKS BEGIN TIME^FX^^130;1^D TIME^FSCTIME(.X)"
^DD(7105.2,131,3)=""
^DD(7105.2,131,"DT")="2950507"
^DD(7105.2,132,0)="WEDNESDAY ALL WEEKS END TIME^FX^^130;2^D TIME^FSCTIME(.X)"
^DD(7105.2,132,3)=""
^DD(7105.2,132,"DT")="2950507"
^DD(7105.2,133,0)="WEDNESDAY ALL WEEKS OFF^S^1:YES;^130;3^Q"
^DD(7105.2,133,"DT")="2950507"
^DD(7105.2,134,0)="WEDNESDAY EVEN WEEKS BEGIN TIM^FX^^130;4^D TIME^FSCTIME(.X)"
^DD(7105.2,134,3)=""
^DD(7105.2,134,"DT")="2950507"
^DD(7105.2,135,0)="WEDNESDAY EVEN WEEKS END TIME^FX^^130;5^D TIME^FSCTIME(.X)"
^DD(7105.2,135,3)=""
^DD(7105.2,135,"DT")="2950507"
^DD(7105.2,136,0)="WEDNESDAY EVEN WEEKS OFF^S^1:YES;^130;6^Q"
^DD(7105.2,136,"DT")="2950507"
^DD(7105.2,137,0)="WEDNESDAY ODD WEEKS BEGIN TIME^FX^^130;7^D TIME^FSCTIME(.X)"
^DD(7105.2,137,3)=""
^DD(7105.2,137,"DT")="2950507"
^DD(7105.2,138,0)="WEDNESDAY ODD WEEKS END TIME^FX^^130;8^D TIME^FSCTIME(.X)"
^DD(7105.2,138,3)=""
^DD(7105.2,138,"DT")="2950507"
^DD(7105.2,139,0)="WEDNESDAY ODD WEEKS OFF^S^1:YES;^130;9^Q"
^DD(7105.2,139,"DT")="2950507"
^DD(7105.2,141,0)="THURSDAY ALL WEEKS BEGIN TIME^FX^^140;1^D TIME^FSCTIME(.X)"
^DD(7105.2,141,3)=""
^DD(7105.2,141,"DT")="2950507"
^DD(7105.2,142,0)="THURSDAY ALL WEEKS END TIME^FX^^140;2^D TIME^FSCTIME(.X)"
^DD(7105.2,142,3)=""
^DD(7105.2,142,"DT")="2950507"
^DD(7105.2,143,0)="THURSDAY ALL WEEKS OFF^S^1:YES;^140;3^Q"
^DD(7105.2,143,"DT")="2950507"
^DD(7105.2,144,0)="THURSDAY EVEN WEEKS BEGIN TIME^FX^^140;4^D TIME^FSCTIME(.X)"
^DD(7105.2,144,3)=""
^DD(7105.2,144,"DT")="2950507"
^DD(7105.2,145,0)="THURSDAY EVEN WEEKS END TIME^FX^^140;5^D TIME^FSCTIME(.X)"
^DD(7105.2,145,3)=""
^DD(7105.2,145,"DT")="2950507"
^DD(7105.2,146,0)="THURSDAY EVEN WEEKS OFF^S^1:YES;^140;6^Q"
^DD(7105.2,146,"DT")="2950507"
^DD(7105.2,147,0)="THURSDAY ODD WEEKS BEGIN TIME^FX^^140;7^D TIME^FSCTIME(.X)"
^DD(7105.2,147,3)=""
^DD(7105.2,147,"DT")="2950507"
^DD(7105.2,148,0)="THURSDAY ODD WEEKS END TIME^FX^^140;8^D TIME^FSCTIME(.X)"
^DD(7105.2,148,3)=""
^DD(7105.2,148,"DT")="2950507"
^DD(7105.2,149,0)="THURSDAY ODD WEEKS OFF^S^1:YES;^140;9^Q"
^DD(7105.2,149,"DT")="2950507"
^DD(7105.2,151,0)="FRIDAY ALL WEEKS BEGIN TIME^FX^^150;1^D TIME^FSCTIME(.X)"
^DD(7105.2,151,3)=""
^DD(7105.2,151,"DT")="2950507"
^DD(7105.2,152,0)="FRIDAY ALL WEEKS END TIME^FX^^150;2^D TIME^FSCTIME(.X)"
^DD(7105.2,152,3)=""
^DD(7105.2,152,"DT")="2950507"
^DD(7105.2,153,0)="FRIDAY ALL WEEKS OFF^S^1:YES;^150;3^Q"
^DD(7105.2,153,"DT")="2950507"
^DD(7105.2,154,0)="FRIDAY EVEN WEEKS BEGIN TIME^FX^^150;4^D TIME^FSCTIME(.X)"
^DD(7105.2,154,3)=""
^DD(7105.2,154,"DT")="2950507"
^DD(7105.2,155,0)="FRIDAY EVEN WEEKS END TIME^FX^^150;5^D TIME^FSCTIME(.X)"
^DD(7105.2,155,3)=""
^DD(7105.2,155,"DT")="2950507"
^DD(7105.2,156,0)="FRIDAY EVEN WEEKS OFF^S^1:YES;^150;6^Q"
^DD(7105.2,156,"DT")="2950507"
^DD(7105.2,157,0)="FRIDAY ODD WEEKS BEGIN TIME^FX^^150;7^D TIME^FSCTIME(.X)"
^DD(7105.2,157,3)=""
^DD(7105.2,157,"DT")="2950507"
^DD(7105.2,158,0)="FRIDAY ODD WEEKS END TIME^FX^^150;8^D TIME^FSCTIME(.X)"
^DD(7105.2,158,3)=""
^DD(7105.2,158,"DT")="2950507"
^DD(7105.2,159,0)="FRIDAY ODD WEEKS OFF^S^1:YES;^150;9^Q"
^DD(7105.2,159,"DT")="2950507"
^DD(7105.2,200,0)="**WS NAME^F^^200;1^K:$L(X)>30!($L(X)<3) X"
^DD(7105.2,200,1,0)="^.1"
^DD(7105.2,200,1,1,0)="7105.2^AC^MUMPS"
^DD(7105.2,200,1,1,1)="S ^FSC(""SPEC"",""AC"",$E(X,1,30),DA)="""""
^DD(7105.2,200,1,1,2)="K ^FSC(""SPEC"",""AC"",$E(X,1,30),DA)"
^DD(7105.2,200,1,1,"DT")="2950507"
^DD(7105.2,200,3)="Answer must be 3-30 characters in length."
^DD(7105.2,200,"DT")="2980118"
^DD(7105.2,"B","**WS NAME",200)=""
^DD(7105.2,"B","BACKGROUND COLOR",104)=""
^DD(7105.2,"B","DEFAULT EDIT FORMAT",9.4)=""
^DD(7105.2,"B","DEFAULT FIELDS",50)=""
^DD(7105.2,"B","DEFAULT LIST",9)=""
^DD(7105.2,"B","DEFAULT ON ALERT",9.6)=""
^DD(7105.2,"B","DEFAULT TO CLOSE NEW CALLS",9.2)=""
^DD(7105.2,"B","DEFAULT TO EXIT",9.5)=""
^DD(7105.2,"B","DEFAULT VIEW FORMAT",9.3)=""
^DD(7105.2,"B","DTIME VALUE FOR NOIS",11)=""
^DD(7105.2,"B","EMAIL ADDRESS",6)=""
^DD(7105.2,"B","FRIDAY ALL WEEKS BEGIN TIME",151)=""
^DD(7105.2,"B","FRIDAY ALL WEEKS END TIME",152)=""
^DD(7105.2,"B","FRIDAY ALL WEEKS OFF",153)=""
^DD(7105.2,"B","FRIDAY EVEN WEEKS BEGIN TIME",154)=""
^DD(7105.2,"B","FRIDAY EVEN WEEKS END TIME",155)=""
^DD(7105.2,"B","FRIDAY EVEN WEEKS OFF",156)=""
^DD(7105.2,"B","FRIDAY ODD WEEKS BEGIN TIME",157)=""
^DD(7105.2,"B","FRIDAY ODD WEEKS END TIME",158)=""
^DD(7105.2,"B","FRIDAY ODD WEEKS OFF",159)=""
^DD(7105.2,"B","GROUP AFFILIATIONS",20)=""
^DD(7105.2,"B","Home Site",3)="1"
^DD(7105.2,"B","LAST LOGON",5)=""
^DD(7105.2,"B","LIST DISPLAY",9.1)=""
^DD(7105.2,"B","Last Logon",5)="1"
^DD(7105.2,"B","List Display",9.1)="1"
^DD(7105.2,"B","MESSAGE",105)=""
^DD(7105.2,"B","MONDAY ALL WEEKS BEGIN TIME",111)=""
^DD(7105.2,"B","MONDAY ALL WEEKS END TIME",112)=""
^DD(7105.2,"B","MONDAY ALL WEEKS OFF",113)=""
^DD(7105.2,"B","MONDAY EVEN WEEKS BEGIN TIME",114)=""
^DD(7105.2,"B","MONDAY EVEN WEEKS END TIME",115)=""
^DD(7105.2,"B","MONDAY EVEN WEEKS OFF",116)=""
^DD(7105.2,"B","MONDAY ODD WEEKS BEGIN TIME",117)=""
^DD(7105.2,"B","MONDAY ODD WEEKS END TIME",118)=""
^DD(7105.2,"B","MONDAY ODD WEEKS OFF",119)=""
^DD(7105.2,"B","NAME",.01)=""
^DD(7105.2,"B","NOIS COORDINATOR",7)=""
^DD(7105.2,"B","NON-SPECIALIST",1)=""
^DD(7105.2,"B","NORMAL HOURS END TIME",102)=""
^DD(7105.2,"B","NORMAL HOURS START TIME",101)=""
^DD(7105.2,"B","NOTIFY BY AFFILIATION",10.3)=""
^DD(7105.2,"B","NOTIFY EVENT",10.2)=""
^DD(7105.2,"B","NOTIFY METHOD",10.1)=""
^DD(7105.2,"B","OFFICE",3.5)=""
^DD(7105.2,"B","PACKAGE AFFILIATIONS",30)=""
^DD(7105.2,"B","PREFERRED NOTIFICATION",10)=""
^DD(7105.2,"B","PRIMARY FUNCTIONAL AREA",4)=""
^DD(7105.2,"B","REASON FOR INACTIVITY",2)=""
^DD(7105.2,"B","REPORTS UPWARD TO",8)=""
^DD(7105.2,"B","STU MATCH PACKAGE AND SITE",40)=""
^DD(7105.2,"B","STU PACKAGE GROUPS",42)=""
^DD(7105.2,"B","STU PACKAGES",41)=""
^DD(7105.2,"B","STU SITE TYPES",44)=""
^DD(7105.2,"B","STU SITES",43)=""
^DD(7105.2,"B","TEXT COLOR",103)=""
^DD(7105.2,"B","THURSDAY ALL WEEKS BEGIN TIME",141)=""
^DD(7105.2,"B","THURSDAY ALL WEEKS END TIME",142)=""
^DD(7105.2,"B","THURSDAY ALL WEEKS OFF",143)=""
^DD(7105.2,"B","THURSDAY EVEN WEEKS BEGIN TIME",144)=""
^DD(7105.2,"B","THURSDAY EVEN WEEKS END TIME",145)=""
^DD(7105.2,"B","THURSDAY EVEN WEEKS OFF",146)=""
^DD(7105.2,"B","THURSDAY ODD WEEKS BEGIN TIME",147)=""
^DD(7105.2,"B","THURSDAY ODD WEEKS END TIME",148)=""
^DD(7105.2,"B","THURSDAY ODD WEEKS OFF",149)=""
^DD(7105.2,"B","TIME ZONE",100)=""
^DD(7105.2,"B","TUESDAY ALL WEEKS BEGIN TIME",121)=""
^DD(7105.2,"B","TUESDAY ALL WEEKS END TIME",122)=""
^DD(7105.2,"B","TUESDAY ALL WEEKS OFF",123)=""
^DD(7105.2,"B","TUESDAY EVEN WEEKS BEGIN TIME",124)=""
^DD(7105.2,"B","TUESDAY EVEN WEEKS END TIME",125)=""
^DD(7105.2,"B","TUESDAY EVEN WEEKS OFF",126)=""
^DD(7105.2,"B","TUESDAY ODD WEEKS BEGIN TIME",127)=""
^DD(7105.2,"B","TUESDAY ODD WEEKS END TIME",128)=""
^DD(7105.2,"B","TUESDAY ODD WEEKS OFF",129)=""
^DD(7105.2,"B","WEB LINK",1.7)=""
^DD(7105.2,"B","WEB LINK (PERSONAL)",1.8)=""
^DD(7105.2,"B","WEDNESDAY ALL WEEKS BEGIN TIME",131)=""
^DD(7105.2,"B","WEDNESDAY ALL WEEKS END TIME",132)=""
^DD(7105.2,"B","WEDNESDAY ALL WEEKS OFF",133)=""
^DD(7105.2,"B","WEDNESDAY EVEN WEEKS BEGIN TIM",134)=""
^DD(7105.2,"B","WEDNESDAY EVEN WEEKS END TIME",135)=""
^DD(7105.2,"B","WEDNESDAY EVEN WEEKS OFF",136)=""
^DD(7105.2,"B","WEDNESDAY ODD WEEKS BEGIN TIME",137)=""
^DD(7105.2,"B","WEDNESDAY ODD WEEKS END TIME",138)=""
^DD(7105.2,"B","WEDNESDAY ODD WEEKS OFF",139)=""
^DD(7105.2,"B","WORKLOAD PROMPT",9.7)=""
^DD(7105.2,"B","WORKS AT (HOME SITE)",3)=""
^DD(7105.2,"GL",0,1,.01)=""
^DD(7105.2,"GL",0,2,1)=""
^DD(7105.2,"GL",0,3,3)=""
^DD(7105.2,"GL",0,4,4)=""
^DD(7105.2,"GL",0,5,5)=""
^DD(7105.2,"GL",0,6,6)=""
^DD(7105.2,"GL",0,7,7)=""
^DD(7105.2,"GL",0,8,8)=""
^DD(7105.2,"GL",0,9,9)=""
^DD(7105.2,"GL",0,10,10)=""
^DD(7105.2,"GL",0,11,9.1)=""
^DD(7105.2,"GL",0,12,11)=""
^DD(7105.2,"GL",0,13,9.2)=""
^DD(7105.2,"GL",0,14,10.1)=""
^DD(7105.2,"GL",0,15,10.2)=""
^DD(7105.2,"GL",0,16,3.5)=""
^DD(7105.2,"GL",0,17,9.3)=""
^DD(7105.2,"GL",0,18,9.4)=""
^DD(7105.2,"GL",0,19,9.5)=""
^DD(7105.2,"GL",0,20,9.6)=""
^DD(7105.2,"GL",0,21,9.7)=""
^DD(7105.2,"GL",0,22,10.3)=""
^DD(7105.2,"GL",1,1,2)=""
^DD(7105.2,"GL",1.7,"E1,245",1.7)=""
^DD(7105.2,"GL",1.8,"E1,245",1.8)=""
^DD(7105.2,"GL",20,0,20)=""
^DD(7105.2,"GL",30,0,30)=""
^DD(7105.2,"GL",40,1,40)=""
^DD(7105.2,"GL",41,0,41)=""
^DD(7105.2,"GL",42,0,42)=""
^DD(7105.2,"GL",43,0,43)=""
^DD(7105.2,"GL",44,0,44)=""
^DD(7105.2,"GL",50,0,50)=""
^DD(7105.2,"GL",100,1,100)=""
^DD(7105.2,"GL",100,2,101)=""
^DD(7105.2,"GL",100,3,102)=""
^DD(7105.2,"GL",100,4,103)=""
^DD(7105.2,"GL",100,5,104)=""
^DD(7105.2,"GL",100,6,105)=""
^DD(7105.2,"GL",110,1,111)=""
^DD(7105.2,"GL",110,2,112)=""
^DD(7105.2,"GL",110,3,113)=""
^DD(7105.2,"GL",110,4,114)=""
^DD(7105.2,"GL",110,5,115)=""
^DD(7105.2,"GL",110,6,116)=""
^DD(7105.2,"GL",110,7,117)=""
^DD(7105.2,"GL",110,8,118)=""
^DD(7105.2,"GL",110,9,119)=""
^DD(7105.2,"GL",120,1,121)=""
^DD(7105.2,"GL",120,2,122)=""
^DD(7105.2,"GL",120,3,123)=""
^DD(7105.2,"GL",120,4,124)=""
^DD(7105.2,"GL",120,5,125)=""
^DD(7105.2,"GL",120,6,126)=""
^DD(7105.2,"GL",120,7,127)=""
^DD(7105.2,"GL",120,8,128)=""
^DD(7105.2,"GL",120,9,129)=""
^DD(7105.2,"GL",130,1,131)=""
^DD(7105.2,"GL",130,2,132)=""
^DD(7105.2,"GL",130,3,133)=""
^DD(7105.2,"GL",130,4,134)=""
^DD(7105.2,"GL",130,5,135)=""
^DD(7105.2,"GL",130,6,136)=""
^DD(7105.2,"GL",130,7,137)=""
^DD(7105.2,"GL",130,8,138)=""
^DD(7105.2,"GL",130,9,139)=""
^DD(7105.2,"GL",140,1,141)=""
^DD(7105.2,"GL",140,2,142)=""
^DD(7105.2,"GL",140,3,143)=""
^DD(7105.2,"GL",140,4,144)=""
^DD(7105.2,"GL",140,5,145)=""
^DD(7105.2,"GL",140,6,146)=""
^DD(7105.2,"GL",140,7,147)=""
^DD(7105.2,"GL",140,8,148)=""
^DD(7105.2,"GL",140,9,149)=""
^DD(7105.2,"GL",150,1,151)=""
^DD(7105.2,"GL",150,2,152)=""
^DD(7105.2,"GL",150,3,153)=""
^DD(7105.2,"GL",150,4,154)=""
^DD(7105.2,"GL",150,5,155)=""
^DD(7105.2,"GL",150,6,156)=""
^DD(7105.2,"GL",150,7,157)=""
^DD(7105.2,"GL",150,8,158)=""
^DD(7105.2,"GL",150,9,159)=""
^DD(7105.2,"GL",200,1,200)=""
^DD(7105.2,"IX",.01)=""
^DD(7105.2,"IX",9)=""
^DD(7105.2,"IX",10.3)=""
^DD(7105.2,"IX",40)=""
^DD(7105.2,"IX",200)=""
^DD(7105.2,"RQ",.01)=""
^DD(7105.2,"SB",7105.21,50)=""
^DD(7105.2,"SB",7105.22,20)=""
^DD(7105.2,"SB",7105.23,30)=""
^DD(7105.2,"SB",7105.241,41)=""
^DD(7105.2,"SB",7105.242,42)=""
^DD(7105.2,"SB",7105.243,43)=""
^DD(7105.2,"SB",7105.244,44)=""
^DD(7105.21,0)="DEFAULT FIELDS SUB-FIELD^^2^3"
^DD(7105.21,0,"DT")="2950720"
^DD(7105.21,0,"IX","B",7105.21,.01)=""
^DD(7105.21,0,"NM","DEFAULT FIELDS")=""
^DD(7105.21,0,"UP")="7105.2"
^DD(7105.21,.01,0)="FIELD^M*P7107.2'^FSC(""FLD"",^0;1^S DIC(""S"")=""I $P(^(0),U,10)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7105.21,.01,1,0)="^.1"
^DD(7105.21,.01,1,1,0)="7105.21^B"
^DD(7105.21,.01,1,1,1)="S ^FSC(""SPEC"",DA(1),50,""B"",$E(X,1,30),DA)="""""
^DD(7105.21,.01,1,1,2)="K ^FSC(""SPEC"",DA(1),50,""B"",$E(X,1,30),DA)"
^DD(7105.21,.01,12)="Only those fields used for default entry."
^DD(7105.21,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,10)"""
^DD(7105.21,.01,21,0)="^^6^6^2940130^^"
^DD(7105.21,.01,21,1,0)="This field can be prompted with a default value or even stuffed"
^DD(7105.21,.01,21,2,0)="with a value when entering NOIS calls.  For example you can have"
^DD(7105.21,.01,21,3,0)="DATE CLOSED stuffed with TODAY if this is what you would normally always"
^DD(7105.21,.01,21,4,0)="enter (or you could have TODAY prompted).  You can reedit stuffed"
^DD(7105.21,.01,21,5,0)="values before closing the call.  The NOIS routines use defaults for many"
^DD(7105.21,.01,21,6,0)="fields.  Be careful to review your entries when using these defaults."
^DD(7105.21,.01,"DT")="2940207"
^DD(7105.21,1,0)="ACTION^S^P:PROMPT;S:STUFF;I:IGNORE;^0;2^Q"
^DD(7105.21,1,21,0)="^^2^2^2940130^"
^DD(7105.21,1,21,1,0)="This field can be used to prompt a value or stuff a value when entering"
^DD(7105.21,1,21,2,0)="a value for this field."
^DD(7105.21,1,"DT")="2950720"
^DD(7105.21,2,0)="VALUE^F^^0;3^K:$L(X)>60!($L(X)<1) X"
^DD(7105.21,2,3)="Answer must be 1-60 characters in length."
^DD(7105.21,2,21,0)="^^2^2^2940130^"
^DD(7105.21,2,21,1,0)="This value can be prompted or stuffed when entering this field.  This"
^DD(7105.21,2,21,2,0)="value should be in EXTERNAL format."
^DD(7105.21,2,"DT")="2931017"
^DD(7105.21,"B","ACTION",1)=""
^DD(7105.21,"B","FIELD",.01)=""
^DD(7105.21,"B","VALUE",2)=""
^DD(7105.21,"GL",0,1,.01)=""
^DD(7105.21,"GL",0,2,1)=""
^DD(7105.21,"GL",0,3,2)=""
^DD(7105.21,"IX",.01)=""
^DD(7105.22,0)="GROUP AFFILIATIONS SUB-FIELD^^2^3"
^DD(7105.22,0,"DT")="2950725"
^DD(7105.22,0,"IX","B",7105.22,.01)=""
^DD(7105.22,0,"NM","GROUP AFFILIATIONS")=""
^DD(7105.22,0,"UP")="7105.2"
^DD(7105.22,.01,0)="GROUP AFFILIATION^MP7105.8'^FSC(""PACKG"",^0;1^Q"
^DD(7105.22,.01,1,0)="^.1"
^DD(7105.22,.01,1,1,0)="7105.22^B"
^DD(7105.22,.01,1,1,1)="S ^FSC(""SPEC"",DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(7105.22,.01,1,1,2)="K ^FSC(""SPEC"",DA(1),20,""B"",$E(X,1,30),DA)"
^DD(7105.22,.01,1,2,0)="7105.2^AG"
^DD(7105.22,.01,1,2,1)="S ^FSC(""SPEC"",""AG"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.22,.01,1,2,2)="K ^FSC(""SPEC"",""AG"",$E(X,1,30),DA(1),DA)"
^DD(7105.22,.01,1,2,"DT")="2950429"
^DD(7105.22,.01,21,0)="^^1^1^2970401^^"
^DD(7105.22,.01,21,1,0)="This is a work group that you are affiliated with."
^DD(7105.22,.01,"DT")="2950429"
^DD(7105.22,1,0)="DUTIES^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(7105.22,1,3)="Answer must be 2-30 characters in length."
^DD(7105.22,1,21,0)="^^2^2^2960321^"
^DD(7105.22,1,21,1,0)="This is a title, position, or short description of your duties with"
^DD(7105.22,1,21,2,0)="this work group."
^DD(7105.22,1,"DT")="2950429"
^DD(7105.22,2,0)="ALL AFFILIATIONS^S^1:YES;^0;3^Q"
^DD(7105.22,2,21,0)="^^2^2^2970401^^"
^DD(7105.22,2,21,1,0)="This field indicates that the NOIS Specialist is affiliated with all"
^DD(7105.22,2,21,2,0)="the packages in this group."
^DD(7105.22,2,"DT")="2950725"
^DD(7105.22,"B","ALL AFFILIATIONS",2)=""
^DD(7105.22,"B","DUTIES",1)=""
^DD(7105.22,"B","GROUP AFFILIATION",.01)=""
^DD(7105.22,"GL",0,1,.01)=""
^DD(7105.22,"GL",0,2,1)=""
^DD(7105.22,"GL",0,3,2)=""
^DD(7105.22,"IX",.01)=""
^DD(7105.23,0)="PACKAGE AFFILIATIONS SUB-FIELD^^1^2"
^DD(7105.23,0,"DT")="2950429"
^DD(7105.23,0,"IX","B",7105.23,.01)=""
^DD(7105.23,0,"NM","PACKAGE AFFILIATIONS")=""
^DD(7105.23,0,"UP")="7105.2"
^DD(7105.23,.01,0)="PACKAGE AFFILIATION^MP7105.5'^FSC(""PACK"",^0;1^Q"
^DD(7105.23,.01,1,0)="^.1"
^DD(7105.23,.01,1,1,0)="7105.23^B"
^DD(7105.23,.01,1,1,1)="S ^FSC(""SPEC"",DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(7105.23,.01,1,1,2)="K ^FSC(""SPEC"",DA(1),30,""B"",$E(X,1,30),DA)"
^DD(7105.23,.01,1,2,0)="7105.2^AP"
^DD(7105.23,.01,1,2,1)="S ^FSC(""SPEC"",""AP"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.23,.01,1,2,2)="K ^FSC(""SPEC"",""AP"",$E(X,1,30),DA(1),DA)"
^DD(7105.23,.01,1,2,"DT")="2950429"
^DD(7105.23,.01,21,0)="^^1^1^2960321^"
^DD(7105.23,.01,21,1,0)="This is a package you are affiliated with"
^DD(7105.23,.01,"DT")="2950429"
^DD(7105.23,1,0)="DUTIES^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(7105.23,1,3)="Answer must be 2-30 characters in length."
^DD(7105.23,1,21,0)="^^2^2^2960321^"
^DD(7105.23,1,21,1,0)="This is a title, position or short description of your affiliation with"
^DD(7105.23,1,21,2,0)="this package."
^DD(7105.23,1,"DT")="2950429"
^DD(7105.23,"B","DUTIES",1)=""
^DD(7105.23,"B","PACKAGE AFFILIATION",.01)=""
^DD(7105.23,"GL",0,1,.01)=""
^DD(7105.23,"GL",0,2,1)=""
^DD(7105.23,"IX",.01)=""
^DD(7105.241,0)="STU PACKAGES SUB-FIELD^^.01^1"
^DD(7105.241,0,"DT")="2950628"
^DD(7105.241,0,"IX","AXAU2",7105.241,.01)=""
^DD(7105.241,0,"IX","B",7105.241,.01)=""
^DD(7105.241,0,"NM","STU PACKAGES")=""
^DD(7105.241,0,"UP")="7105.2"
^DD(7105.241,.01,0)="STU PACKAGE^MP7105.5'^FSC(""PACK"",^0;1^Q"
^DD(7105.241,.01,1,0)="^.1"
^DD(7105.241,.01,1,1,0)="7105.241^B"
^DD(7105.241,.01,1,1,1)="S ^FSC(""SPEC"",DA(1),41,""B"",$E(X,1,30),DA)="""""
^DD(7105.241,.01,1,1,2)="K ^FSC(""SPEC"",DA(1),41,""B"",$E(X,1,30),DA)"
^DD(7105.241,.01,1,2,0)="7105.241^AXAU2^MUMPS"
^DD(7105.241,.01,1,2,1)="D XREF^FSCSTUR(DA(1))"
^DD(7105.241,.01,1,2,2)="D XREF^FSCSTUR(DA(1))"
^DD(7105.241,.01,1,2,"DT")="2950629"
^DD(7105.241,.01,21,0)="^^1^1^2950628^^"
^DD(7105.241,.01,21,1,0)="Site Tracking Updates will alert you for these packages."
^DD(7105.241,.01,"DT")="2950629"
^DD(7105.241,"B","STU PACKAGE",.01)=""
^DD(7105.241,"GL",0,1,.01)=""
^DD(7105.241,"IX",.01)=""
^DD(7105.242,0)="STU PACKAGE GROUPS SUB-FIELD^^.01^1"
^DD(7105.242,0,"DT")="2950628"
^DD(7105.242,0,"IX","AXAU1",7105.242,.01)=""
^DD(7105.242,0,"IX","B",7105.242,.01)=""
^DD(7105.242,0,"NM","STU PACKAGE GROUPS")=""
^DD(7105.242,0,"UP")="7105.2"
^DD(7105.242,.01,0)="STU PACKAGE GROUP^MP7105.8'^FSC(""PACKG"",^0;1^Q"
^DD(7105.242,.01,1,0)="^.1"
^DD(7105.242,.01,1,1,0)="7105.242^B"
^DD(7105.242,.01,1,1,1)="S ^FSC(""SPEC"",DA(1),42,""B"",$E(X,1,30),DA)="""""
^DD(7105.242,.01,1,1,2)="K ^FSC(""SPEC"",DA(1),42,""B"",$E(X,1,30),DA)"
^DD(7105.242,.01,1,2,0)="7105.242^AXAU1^MUMPS"
^DD(7105.242,.01,1,2,1)="D XREF^FSCSTUR(DA(1))"
^DD(7105.242,.01,1,2,2)="D XREF^FSCSTUR(DA(1))"
^DD(7105.242,.01,1,2,"DT")="2950629"
^DD(7105.242,.01,21,0)="^^2^2^2950628^"
^DD(7105.242,.01,21,1,0)="Site Tracking Updates will alert you to any installs of packages in"
^DD(7105.242,.01,21,2,0)="this package group."
^DD(7105.242,.01,"DT")="2950629"
^DD(7105.242,"B","STU PACKAGE GROUP",.01)=""
^DD(7105.242,"GL",0,1,.01)=""
^DD(7105.242,"IX",.01)=""
^DD(7105.243,0)="STU SITES SUB-FIELD^^.01^1"
^DD(7105.243,0,"DT")="2950628"
^DD(7105.243,0,"IX","AXAU4",7105.243,.01)=""
^DD(7105.243,0,"IX","B",7105.243,.01)=""
^DD(7105.243,0,"NM","STU SITES")=""
^DD(7105.243,0,"UP")="7105.2"
^DD(7105.243,.01,0)="STU SITE^MP7105.1'^FSC(""SITE"",^0;1^Q"
^DD(7105.243,.01,1,0)="^.1"
^DD(7105.243,.01,1,1,0)="7105.243^B"
^DD(7105.243,.01,1,1,1)="S ^FSC(""SPEC"",DA(1),43,""B"",$E(X,1,30),DA)="""""
^DD(7105.243,.01,1,1,2)="K ^FSC(""SPEC"",DA(1),43,""B"",$E(X,1,30),DA)"
^DD(7105.243,.01,1,2,0)="7105.243^AXAU4^MUMPS"
^DD(7105.243,.01,1,2,1)="D XREF^FSCSTUR(DA(1))"
^DD(7105.243,.01,1,2,2)="D XREF^FSCSTUR(DA(1))"
^DD(7105.243,.01,1,2,"DT")="2950629"
^DD(7105.243,.01,21,0)="^^1^1^2950628^"
^DD(7105.243,.01,21,1,0)="Site Tracking Updates will alert you to any package installs at these sites."
^DD(7105.243,.01,"DT")="2950629"
^DD(7105.243,"B","STU SITE",.01)=""
^DD(7105.243,"GL",0,1,.01)=""
^DD(7105.243,"IX",.01)=""
^DD(7105.244,0)="STU SITE TYPES SUB-FIELD^^.01^1"
^DD(7105.244,0,"DT")="2950628"
^DD(7105.244,0,"IX","AXAU3",7105.244,.01)=""
^DD(7105.244,0,"IX","B",7105.244,.01)=""
^DD(7105.244,0,"NM","STU SITE TYPES")=""
^DD(7105.244,0,"UP")="7105.2"
^DD(7105.244,.01,0)="STU SITE TYPE^MP7105.7'^FSC(""LTYPE"",^0;1^Q"
^DD(7105.244,.01,1,0)="^.1"
^DD(7105.244,.01,1,1,0)="7105.244^B"
^DD(7105.244,.01,1,1,1)="S ^FSC(""SPEC"",DA(1),44,""B"",$E(X,1,30),DA)="""""
^DD(7105.244,.01,1,1,2)="K ^FSC(""SPEC"",DA(1),44,""B"",$E(X,1,30),DA)"
^DD(7105.244,.01,1,2,0)="7105.244^AXAU3^MUMPS"
^DD(7105.244,.01,1,2,1)="D XREF^FSCSTUR(DA(1))"
^DD(7105.244,.01,1,2,2)="D XREF^FSCSTUR(DA(1))"
^DD(7105.244,.01,1,2,"DT")="2950629"
^DD(7105.244,.01,21,0)="^^1^1^2950628^"
^DD(7105.244,.01,21,1,0)="Site Tracking Updates will alert you to any installs at sites of this type."
^DD(7105.244,.01,"DT")="2950629"
^DD(7105.244,"B","STU SITE TYPE",.01)=""
^DD(7105.244,"GL",0,1,.01)=""
^DD(7105.244,"IX",.01)=""
^DD(7105.3,0)="FIELD^^99^5"
^DD(7105.3,0,"DT")="2980717"
^DD(7105.3,0,"IX","ACL",7105.399,.01)=""
^DD(7105.3,0,"IX","B",7105.3,.01)=""
^DD(7105.3,0,"IX","C",7105.31,.01)=""
^DD(7105.3,0,"NM","NOIS OFFICE")=""
^DD(7105.3,0,"PT",7100,2.3)=""
^DD(7105.3,0,"PT",7100,2.4)=""
^DD(7105.3,0,"PT",7100,2.55)=""
^DD(7105.3,0,"PT",7103,5)=""
^DD(7105.3,0,"PT",7103.2,4)=""
^DD(7105.3,0,"PT",7105.1,6)=""
^DD(7105.3,0,"PT",7105.2,3.5)=""
^DD(7105.3,0,"PT",7105.4,4)=""
^DD(7105.3,0,"PT",7105.5,5)=""
^DD(7105.3,0,"VR")="1.1"
^DD(7105.3,0,"VRPK")="NOIS"
^DD(7105.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.3,.01,1,0)="^.1"
^DD(7105.3,.01,1,1,0)="7105.3^B"
^DD(7105.3,.01,1,1,1)="S ^FSC(""ISC"",""B"",$E(X,1,30),DA)="""""
^DD(7105.3,.01,1,1,2)="K ^FSC(""ISC"",""B"",$E(X,1,30),DA)"
^DD(7105.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7105.3,.01,21,0)="^^1^1^2980117^^^"
^DD(7105.3,.01,21,1,0)="This is the name of the office used by the NOIS software."
^DD(7105.3,1,0)="SYNONYMS^7105.31^^1;0"
^DD(7105.3,1,21,0)="^^1^1^2980117^^^"
^DD(7105.3,1,21,1,0)="These are the synonyms of the NOIS offices."
^DD(7105.3,1,"DT")="2931031"
^DD(7105.3,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.3,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.3,1.7,21,0)="^^2^2^2980717^"
^DD(7105.3,1.7,21,1,0)="Enter a web link (URL). This link will be available on any call where the"
^DD(7105.3,1.7,21,2,0)="location has this office."
^DD(7105.3,1.7,"DT")="2980717"
^DD(7105.3,2,0)="RESOURCE^*P3.5'^%ZIS(1,^0;2^S DIC(""S"")=""I $P($G(^(""""TYPE"""")),U)=""""RES"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7105.3,2,12)="Only resource type devices may be selected."
^DD(7105.3,2,12.1)="S DIC(""S"")=""I $P($G(^(""""TYPE"""")),U)=""""RES"""""""
^DD(7105.3,2,21,0)="^^2^2^2980117^^^"
^DD(7105.3,2,21,1,0)="This is the resource device used to process calls edited where the"
^DD(7105.3,2,21,2,0)="reporting location is supported by this office."
^DD(7105.3,2,"DT")="2931211"
^DD(7105.3,99,0)="CLIENT LOOKUP^7105.399^^99;0"
^DD(7105.3,99,21,0)="^^1^1^2980118^"
^DD(7105.3,99,21,1,0)="Names used by this office by the client."
^DD(7105.3,"B","CLIENT LOOKUP",99)=""
^DD(7105.3,"B","NAME",.01)=""
^DD(7105.3,"B","RESOURCE",2)=""
^DD(7105.3,"B","SYNONYMS",1)=""
^DD(7105.3,"B","WEB LINK",1.7)=""
^DD(7105.3,"GL",0,1,.01)=""
^DD(7105.3,"GL",0,2,2)=""
^DD(7105.3,"GL",1,0,1)=""
^DD(7105.3,"GL",1.7,"E1,245",1.7)=""
^DD(7105.3,"GL",99,0,99)=""
^DD(7105.3,"IX",.01)=""
^DD(7105.3,"RQ",.01)=""
^DD(7105.3,"SB",7105.31,1)=""
^DD(7105.3,"SB",7105.399,99)=""
^DD(7105.31,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7105.31,0,"DT")="2931031"
^DD(7105.31,0,"IX","B",7105.31,.01)=""
^DD(7105.31,0,"NM","SYNONYMS")=""
^DD(7105.31,0,"UP")="7105.3"
^DD(7105.31,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(7105.31,.01,1,0)="^.1"
^DD(7105.31,.01,1,1,0)="7105.31^B"
^DD(7105.31,.01,1,1,1)="S ^FSC(""ISC"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7105.31,.01,1,1,2)="K ^FSC(""ISC"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7105.31,.01,1,2,0)="7105.3^C"
^DD(7105.31,.01,1,2,1)="S ^FSC(""ISC"",""C"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.31,.01,1,2,2)="K ^FSC(""ISC"",""C"",$E(X,1,30),DA(1),DA)"
^DD(7105.31,.01,1,2,"DT")="2931031"
^DD(7105.31,.01,3)="Answer must be 1-30 characters in length."
^DD(7105.31,.01,21,0)="^^1^1^2980117^^^"
^DD(7105.31,.01,21,1,0)="This is a synonym of the NOIS office."
^DD(7105.31,.01,"DT")="2931031"
^DD(7105.31,"B","SYNONYM",.01)=""
^DD(7105.31,"GL",0,1,.01)=""
^DD(7105.31,"IX",.01)=""
^DD(7105.399,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7105.399,0,"DT")="2970927"
^DD(7105.399,0,"IX","B",7105.399,.01)=""
^DD(7105.399,0,"NM","CLIENT LOOKUP")=""
^DD(7105.399,0,"UP")="7105.3"
^DD(7105.399,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7105.399,.01,1,0)="^.1"
^DD(7105.399,.01,1,1,0)="7105.399^B"
^DD(7105.399,.01,1,1,1)="S ^FSC(""ISC"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7105.399,.01,1,1,2)="K ^FSC(""ISC"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7105.399,.01,1,2,0)="7105.3^ACL^MUMPS"
^DD(7105.399,.01,1,2,1)="S ^FSC(""ISC"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7105.399,.01,1,2,2)="K ^FSC(""ISC"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7105.399,.01,1,2,"DT")="2970927"
^DD(7105.399,.01,3)="Answer must be 2-60 characters in length."
^DD(7105.399,.01,21,0)="^^1^1^2980118^"
^DD(7105.399,.01,21,1,0)="The name of the office used by the client."
^DD(7105.399,.01,"DT")="2970927"
^DD(7105.399,"B","CLIENT LOOKUP",.01)=""
^DD(7105.399,"GL",0,1,.01)=""
^DD(7105.399,"IX",.01)=""
^DD(7105.4,0)="FIELD^^99^11"
^DD(7105.4,0,"DDA")="N"
^DD(7105.4,0,"DT")="2980717"
^DD(7105.4,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(7105.4,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(7105.4,0,"IX","ACL",7105.499,.01)=""
^DD(7105.4,0,"IX","B",7105.4,.01)=""
^DD(7105.4,0,"IX","C",7105.4,3)=""
^DD(7105.4,0,"IX","D",7105.4,6)=""
^DD(7105.4,0,"IX","E",7105.48,.01)=""
^DD(7105.4,0,"NM","NOIS MODULE/VERSION")=""
^DD(7105.4,0,"PT",7100,3)=""
^DD(7105.4,0,"VR")="1.1"
^DD(7105.4,0,"VRPK")="NOIS"
^DD(7105.4,.01,0)="NAME^RF^^0;1^K:$L(X)>35!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.4,.01,.1)="Module/version Name"
^DD(7105.4,.01,1,0)="^.1"
^DD(7105.4,.01,1,1,0)="7105.4^B"
^DD(7105.4,.01,1,1,1)="S ^FSC(""MOD"",""B"",$E(X,1,30),DA)="""""
^DD(7105.4,.01,1,1,2)="K ^FSC(""MOD"",""B"",$E(X,1,30),DA)"
^DD(7105.4,.01,3)="NAME MUST BE 3-35 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7105.4,.01,21,0)="^^1^1^2980118^^"
^DD(7105.4,.01,21,1,0)="This is the name of the module and version."
^DD(7105.4,.01,"DT")="2940110"
^DD(7105.4,1,0)="INACTIVE^S^1:YES;^0;2^Q"
^DD(7105.4,1,.1)="Inactive Flag"
^DD(7105.4,1,21,0)="^^1^1^2940628^"
^DD(7105.4,1,21,1,0)="This field can be set to YES to inactivate this module/version."
^DD(7105.4,1,"DT")="2940110"
^DD(7105.4,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.4,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.4,1.7,21,0)="^^2^2^2980717^"
^DD(7105.4,1.7,21,1,0)="Enter a web link (URL). This link will be available for any call having"
^DD(7105.4,1.7,21,2,0)="this module."
^DD(7105.4,1.7,"DT")="2980717"
^DD(7105.4,2,0)="VERSION TYPE^S^1:(current version);2:(beta version);3:(old version);^0;3^Q"
^DD(7105.4,2,.1)="Version Type"
^DD(7105.4,2,21,0)="^^2^2^2940628^"
^DD(7105.4,2,21,1,0)="This field indicates the type of module/version (beta, current, old)."
^DD(7105.4,2,21,2,0)="This field reflects the current status of this module/version."
^DD(7105.4,2,"DT")="2940427"
^DD(7105.4,3,0)="NAMESPACE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(7105.4,3,.1)="Package Namespace"
^DD(7105.4,3,1,0)="^.1"
^DD(7105.4,3,1,1,0)="7105.4^C"
^DD(7105.4,3,1,1,1)="S ^FSC(""MOD"",""C"",$E(X,1,30),DA)="""""
^DD(7105.4,3,1,1,2)="K ^FSC(""MOD"",""C"",$E(X,1,30),DA)"
^DD(7105.4,3,1,1,"DT")="2931027"
^DD(7105.4,3,3)="Answer must be 1-4 characters in length."
^DD(7105.4,3,21,0)="^^1^1^2940628^"
^DD(7105.4,3,21,1,0)="This is the common namespace for this module/version."
^DD(7105.4,3,"DT")="2940110"
^DD(7105.4,4,0)="DEVELOPING OFFICE^P7105.3'^FSC(""ISC"",^0;5^Q"
^DD(7105.4,4,.1)="Office for Development"
^DD(7105.4,4,21,0)="^^1^1^2980117^^^"
^DD(7105.4,4,21,1,0)="This field is the office that developed this module/version."
^DD(7105.4,4,"DT")="2980117"
^DD(7105.4,6,0)="NAMING CONVENTION^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<2) X"
^DD(7105.4,6,.1)="ASCII File Namespace"
^DD(7105.4,6,1,0)="^.1"
^DD(7105.4,6,1,1,0)="7105.4^D"
^DD(7105.4,6,1,1,1)="S ^FSC(""MOD"",""D"",$E(X,1,30),DA)="""""
^DD(7105.4,6,1,1,2)="K ^FSC(""MOD"",""D"",$E(X,1,30),DA)"
^DD(7105.4,6,1,1,"DT")="2940130"
^DD(7105.4,6,3)="Answer must be 2-5 characters in length."
^DD(7105.4,6,21,0)="^^2^2^2970417^^"
^DD(7105.4,6,21,1,0)="This field is a naming convention used to distribute media and identify"
^DD(7105.4,6,21,2,0)="this module/version."
^DD(7105.4,6,"DT")="2971025"
^DD(7105.4,7,0)="PACKAGE^P7105.5'^FSC(""PACK"",^0;8^Q"
^DD(7105.4,7,21,0)="^^1^1^2940628^"
^DD(7105.4,7,21,1,0)="This is the package for this module/version."
^DD(7105.4,7,"DT")="2940307"
^DD(7105.4,8,0)="SYNONYMS^7105.48^^2;0"
^DD(7105.4,8,21,0)="^^1^1^2940628^"
^DD(7105.4,8,21,1,0)="These are synonyms for this module/version."
^DD(7105.4,10,0)="DESCRIPTION^7105.41^^1;0"
^DD(7105.4,10,21,0)="^^1^1^2940628^"
^DD(7105.4,10,21,1,0)="This is a description of this module/version."
^DD(7105.4,99,0)="CLIENT LOOKUP^7105.499^^99;0"
^DD(7105.4,99,21,0)="^^1^1^2980118^^"
^DD(7105.4,99,21,1,0)="These are the names used by the client for this module/version."
^DD(7105.4,"B","ASCII File Namespace",6)="1"
^DD(7105.4,"B","CLIENT LOOKUP",99)=""
^DD(7105.4,"B","DESCRIPTION",10)=""
^DD(7105.4,"B","DEVELOPING OFFICE",4)=""
^DD(7105.4,"B","INACTIVE",1)=""
^DD(7105.4,"B","Inactive Flag",1)="1"
^DD(7105.4,"B","Module/version Name",.01)="1"
^DD(7105.4,"B","NAME",.01)=""
^DD(7105.4,"B","NAMESPACE",3)=""
^DD(7105.4,"B","NAMING CONVENTION",6)=""
^DD(7105.4,"B","Office for Development",4)="1"
^DD(7105.4,"B","PACKAGE",7)=""
^DD(7105.4,"B","Package Namespace",3)="1"
^DD(7105.4,"B","SYNONYMS",8)=""
^DD(7105.4,"B","VERSION TYPE",2)=""
^DD(7105.4,"B","Version Type",2)="1"
^DD(7105.4,"B","WEB LINK",1.7)=""
^DD(7105.4,"GL",0,1,.01)=""
^DD(7105.4,"GL",0,2,1)=""
^DD(7105.4,"GL",0,3,2)=""
^DD(7105.4,"GL",0,4,3)=""
^DD(7105.4,"GL",0,5,4)=""
^DD(7105.4,"GL",0,7,6)=""
^DD(7105.4,"GL",0,8,7)=""
^DD(7105.4,"GL",1,0,10)=""
^DD(7105.4,"GL",1.7,"E1,245",1.7)=""
^DD(7105.4,"GL",2,0,8)=""
^DD(7105.4,"GL",99,0,99)=""
^DD(7105.4,"IX",.01)=""
^DD(7105.4,"IX",3)=""
^DD(7105.4,"IX",6)=""
^DD(7105.4,"RQ",.01)=""
^DD(7105.4,"SB",7105.41,10)=""
^DD(7105.4,"SB",7105.48,8)=""
^DD(7105.4,"SB",7105.499,99)=""
^DD(7105.41,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(7105.41,0,"DT")="2930929"
^DD(7105.41,0,"NM","DESCRIPTION")=""
^DD(7105.41,0,"UP")="7105.4"
^DD(7105.41,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(7105.41,.01,.1)="Module/version Package Description"
^DD(7105.41,.01,"DT")="2940110"
^DD(7105.41,"B","DESCRIPTION",.01)=""
^DD(7105.41,"GL",0,1,.01)=""
^DD(7105.48,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7105.48,0,"DT")="2940427"
^DD(7105.48,0,"IX","B",7105.48,.01)=""
^DD(7105.48,0,"NM","SYNONYMS")=""
^DD(7105.48,0,"UP")="7105.4"
^DD(7105.48,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(7105.48,.01,1,0)="^.1"
^DD(7105.48,.01,1,1,0)="7105.48^B"
^DD(7105.48,.01,1,1,1)="S ^FSC(""MOD"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(7105.48,.01,1,1,2)="K ^FSC(""MOD"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(7105.48,.01,1,2,0)="7105.4^E"
^DD(7105.48,.01,1,2,1)="S ^FSC(""MOD"",""E"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.48,.01,1,2,2)="K ^FSC(""MOD"",""E"",$E(X,1,30),DA(1),DA)"
^DD(7105.48,.01,1,2,"DT")="2940427"
^DD(7105.48,.01,3)="Answer must be 2-30 characters in length."
^DD(7105.48,.01,21,0)="^^1^1^2940628^"
^DD(7105.48,.01,21,1,0)="This is a synonym for this module/version."
^DD(7105.48,.01,"DT")="2940427"
^DD(7105.48,"B","SYNONYM",.01)=""
^DD(7105.48,"GL",0,1,.01)=""
^DD(7105.48,"IX",.01)=""
^DD(7105.499,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7105.499,0,"DT")="2970927"
^DD(7105.499,0,"IX","B",7105.499,.01)=""
^DD(7105.499,0,"NM","CLIENT LOOKUP")=""
^DD(7105.499,0,"UP")="7105.4"
^DD(7105.499,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7105.499,.01,1,0)="^.1"
^DD(7105.499,.01,1,1,0)="7105.499^B"
^DD(7105.499,.01,1,1,1)="S ^FSC(""MOD"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7105.499,.01,1,1,2)="K ^FSC(""MOD"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7105.499,.01,1,2,0)="7105.4^ACL^MUMPS"
^DD(7105.499,.01,1,2,1)="S ^FSC(""MOD"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7105.499,.01,1,2,2)="K ^FSC(""MOD"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7105.499,.01,1,2,"DT")="2970927"
^DD(7105.499,.01,3)="Answer must be 2-60 characters in length."
^DD(7105.499,.01,21,0)="^^1^1^2980118^"
^DD(7105.499,.01,21,1,0)="This is the name used by the client for this module/version."
^DD(7105.499,.01,"DT")="2970927"
^DD(7105.499,"B","CLIENT LOOKUP",.01)=""
^DD(7105.499,"GL",0,1,.01)=""
^DD(7105.499,"IX",.01)=""
^DD(7105.5,0)="FIELD^^99^9"
^DD(7105.5,0,"DT")="2980724"
^DD(7105.5,0,"IX","AC",7105.5,3)=""
^DD(7105.5,0,"IX","ACL",7105.599,.01)=""
^DD(7105.5,0,"IX","B",7105.5,.01)=""
^DD(7105.5,0,"IX","E",7105.51,.01)=""
^DD(7105.5,0,"NM","NOIS PACKAGE")=""
^DD(7105.5,0,"PT",7100,3.1)=""
^DD(7105.5,0,"PT",7100.7,1)=""
^DD(7105.5,0,"PT",7103,7)=""
^DD(7105.5,0,"PT",7103.2,6)=""
^DD(7105.5,0,"PT",7104,1)=""
^DD(7105.5,0,"PT",7105.23,.01)=""
^DD(7105.5,0,"PT",7105.241,.01)=""
^DD(7105.5,0,"PT",7105.4,7)=""
^DD(7105.5,0,"PT",7105.6,1)=""
^DD(7105.5,0,"VR")="1.1"
^DD(7105.5,0,"VRPK")="NOIS"
^DD(7105.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.5,.01,1,0)="^.1"
^DD(7105.5,.01,1,1,0)="7105.5^B"
^DD(7105.5,.01,1,1,1)="S ^FSC(""PACK"",""B"",$E(X,1,30),DA)="""""
^DD(7105.5,.01,1,1,2)="K ^FSC(""PACK"",""B"",$E(X,1,30),DA)"
^DD(7105.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7105.5,.01,21,0)="^^1^1^2940628^"
^DD(7105.5,.01,21,1,0)="This is the name of the package used by NOIS."
^DD(7105.5,1,0)="SYNONYMS^7105.51^^1;0"
^DD(7105.5,1,21,0)="^^1^1^2940628^"
^DD(7105.5,1,21,1,0)="These are synonyms of the package."
^DD(7105.5,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.5,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.5,1.7,21,0)="^^2^2^2980717^"
^DD(7105.5,1.7,21,1,0)="Enter a web link (URL). This link will be available on any call with this"
^DD(7105.5,1.7,21,2,0)="package."
^DD(7105.5,1.7,"DT")="2980717"
^DD(7105.5,1.8,0)="WEB TROUBLESHOOTING PAGE^F^^1.8;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.5,1.8,3)="Answer must be 3-245 characters in length."
^DD(7105.5,1.8,21,0)="^^4^4^2980724^"
^DD(7105.5,1.8,21,1,0)="Enter a URL to a page on troubleshooting for this package."
^DD(7105.5,1.8,21,2,0)="If an entry is made, a link will appear on the package solution page."
^DD(7105.5,1.8,21,3,0)="The information on this page might include: tips and tricks, frequently"
^DD(7105.5,1.8,21,4,0)="asked questions, documentation, etc."
^DD(7105.5,1.8,"DT")="2980724"
^DD(7105.5,2,0)="GROUP^P7105.8'^FSC(""PACKG"",^0;2^Q"
^DD(7105.5,2,21,0)="^^2^2^2940902^"
^DD(7105.5,2,21,1,0)="This field can be used to designate a package group that this package"
^DD(7105.5,2,21,2,0)="belongs to."
^DD(7105.5,2,"DT")="2940902"
^DD(7105.5,3,0)="PACKAGE^P9.4'^DIC(9.4,^0;3^Q"
^DD(7105.5,3,1,0)="^.1"
^DD(7105.5,3,1,1,0)="7105.5^AC"
^DD(7105.5,3,1,1,1)="S ^FSC(""PACK"",""AC"",$E(X,1,30),DA)="""""
^DD(7105.5,3,1,1,2)="K ^FSC(""PACK"",""AC"",$E(X,1,30),DA)"
^DD(7105.5,3,1,1,"DT")="2950516"
^DD(7105.5,3,21,0)="^^2^2^2980118^"
^DD(7105.5,3,21,1,0)="This is the entry in the package file associated with this package."
^DD(7105.5,3,21,2,0)="Not used for local NOIS implementations."
^DD(7105.5,3,"DT")="2950516"
^DD(7105.5,4,0)="SHORT NAME^F^^0;4^K:$L(X)>30!($L(X)<2) X"
^DD(7105.5,4,3)="Answer must be 2-30 characters in length."
^DD(7105.5,4,21,0)="^^1^1^2980118^"
^DD(7105.5,4,21,1,0)="This is a short name describing the package."
^DD(7105.5,4,"DT")="2950516"
^DD(7105.5,5,0)="DEV OFFICE^P7105.3'^FSC(""ISC"",^0;5^Q"
^DD(7105.5,5,21,0)="^^1^1^2980118^"
^DD(7105.5,5,21,1,0)="This is the develpment office responsible for this package."
^DD(7105.5,5,"DT")="2980117"
^DD(7105.5,99,0)="CLIENT LOOKUP^7105.599^^99;0"
^DD(7105.5,99,21,0)="^^1^1^2980118^"
^DD(7105.5,99,21,1,0)="These are the names for this package used by the client."
^DD(7105.5,"B","CLIENT LOOKUP",99)=""
^DD(7105.5,"B","DEV OFFICE",5)=""
^DD(7105.5,"B","GROUP",2)=""
^DD(7105.5,"B","NAME",.01)=""
^DD(7105.5,"B","PACKAGE",3)=""
^DD(7105.5,"B","SHORT NAME",4)=""
^DD(7105.5,"B","SYNONYMS",1)=""
^DD(7105.5,"B","WEB LINK",1.7)=""
^DD(7105.5,"B","WEB TROUBLESHOOTING PAGE",1.8)=""
^DD(7105.5,"GL",0,1,.01)=""
^DD(7105.5,"GL",0,2,2)=""
^DD(7105.5,"GL",0,3,3)=""
^DD(7105.5,"GL",0,4,4)=""
^DD(7105.5,"GL",0,5,5)=""
^DD(7105.5,"GL",1,0,1)=""
^DD(7105.5,"GL",1.7,"E1,245",1.7)=""
^DD(7105.5,"GL",1.8,"E1,245",1.8)=""
^DD(7105.5,"GL",99,0,99)=""
^DD(7105.5,"IX",.01)=""
^DD(7105.5,"IX",3)=""
^DD(7105.5,"RQ",.01)=""
^DD(7105.5,"SB",7105.51,1)=""
^DD(7105.5,"SB",7105.599,99)=""
^DD(7105.51,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7105.51,0,"DT")="2940427"
^DD(7105.51,0,"IX","B",7105.51,.01)=""
^DD(7105.51,0,"NM","SYNONYMS")=""
^DD(7105.51,0,"UP")="7105.5"
^DD(7105.51,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(7105.51,.01,1,0)="^.1"
^DD(7105.51,.01,1,1,0)="7105.51^B"
^DD(7105.51,.01,1,1,1)="S ^FSC(""PACK"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7105.51,.01,1,1,2)="K ^FSC(""PACK"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7105.51,.01,1,2,0)="7105.5^E"
^DD(7105.51,.01,1,2,1)="S ^FSC(""PACK"",""E"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.51,.01,1,2,2)="K ^FSC(""PACK"",""E"",$E(X,1,30),DA(1),DA)"
^DD(7105.51,.01,1,2,"DT")="2940427"
^DD(7105.51,.01,3)="Answer must be 2-30 characters in length."
^DD(7105.51,.01,21,0)="^^1^1^2940628^"
^DD(7105.51,.01,21,1,0)="This is a synonym of the package."
^DD(7105.51,.01,"DT")="2940902"
^DD(7105.51,"B","SYNONYM",.01)=""
^DD(7105.51,"GL",0,1,.01)=""
^DD(7105.51,"IX",.01)=""
^DD(7105.599,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7105.599,0,"DT")="2970927"
^DD(7105.599,0,"IX","B",7105.599,.01)=""
^DD(7105.599,0,"NM","CLIENT LOOKUP")=""
^DD(7105.599,0,"UP")="7105.5"
^DD(7105.599,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7105.599,.01,1,0)="^.1"
^DD(7105.599,.01,1,1,0)="7105.599^B"
^DD(7105.599,.01,1,1,1)="S ^FSC(""PACK"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7105.599,.01,1,1,2)="K ^FSC(""PACK"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7105.599,.01,1,2,0)="7105.5^ACL^MUMPS"
^DD(7105.599,.01,1,2,1)="S ^FSC(""PACK"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7105.599,.01,1,2,2)="K ^FSC(""PACK"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7105.599,.01,1,2,"DT")="2970927"
^DD(7105.599,.01,3)="Answer must be 2-60 characters in length."
^DD(7105.599,.01,21,0)="^^1^1^2980118^"
^DD(7105.599,.01,21,1,0)="This is the name for this package used by the client."
^DD(7105.599,.01,"DT")="2970927"
^DD(7105.599,"B","CLIENT LOOKUP",.01)=""
^DD(7105.599,"GL",0,1,.01)=""
^DD(7105.599,"IX",.01)=""
^DD(7105.6,0)="FIELD^^1.7^3"
^DD(7105.6,0,"DDA")="N"
^DD(7105.6,0,"DT")="2980717"
^DD(7105.6,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^FSC(""PACK"",+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(7105.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7105.6,0,"IX","AC",7105.6,1)=""
^DD(7105.6,0,"IX","B",7105.6,.01)=""
^DD(7105.6,0,"NM","NOIS SUBCOMPONENT")=""
^DD(7105.6,0,"PT",7100,3.2)=""
^DD(7105.6,0,"VR")="1.1"
^DD(7105.6,0,"VRPK")="NOIS"
^DD(7105.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.6,.01,1,0)="^.1"
^DD(7105.6,.01,1,1,0)="7105.6^B"
^DD(7105.6,.01,1,1,1)="S ^FSC(""SUB"",""B"",$E(X,1,30),DA)="""""
^DD(7105.6,.01,1,1,2)="K ^FSC(""SUB"",""B"",$E(X,1,30),DA)"
^DD(7105.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7105.6,.01,21,0)="^^2^2^2940628^"
^DD(7105.6,.01,21,1,0)="This is the name of the NOIS subcomponent.  A subcomponent is used by"
^DD(7105.6,.01,21,2,0)="a to further define a section of a package."
^DD(7105.6,1,0)="PACKAGE^RP7105.5'^FSC(""PACK"",^0;2^Q"
^DD(7105.6,1,1,0)="^.1"
^DD(7105.6,1,1,1,0)="7105.6^AC"
^DD(7105.6,1,1,1,1)="S ^FSC(""SUB"",""AC"",$E(X,1,30),DA)="""""
^DD(7105.6,1,1,1,2)="K ^FSC(""SUB"",""AC"",$E(X,1,30),DA)"
^DD(7105.6,1,1,1,"DT")="2940519"
^DD(7105.6,1,21,0)="^^1^1^2940628^"
^DD(7105.6,1,21,1,0)="This is the package associated with this subcomponent."
^DD(7105.6,1,"DT")="2940519"
^DD(7105.6,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.6,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.6,1.7,21,0)="^^2^2^2980717^"
^DD(7105.6,1.7,21,1,0)="Enter a web link (URL). This link will be available on any call with this"
^DD(7105.6,1.7,21,2,0)="subcomponent."
^DD(7105.6,1.7,"DT")="2980717"
^DD(7105.6,"B","NAME",.01)=""
^DD(7105.6,"B","PACKAGE",1)=""
^DD(7105.6,"B","WEB LINK",1.7)=""
^DD(7105.6,"GL",0,1,.01)=""
^DD(7105.6,"GL",0,2,1)=""
^DD(7105.6,"GL",1.7,"E1,245",1.7)=""
^DD(7105.6,"IX",.01)=""
^DD(7105.6,"IX",1)=""
^DD(7105.6,"RQ",.01)=""
^DD(7105.6,"RQ",1)=""
^DD(7105.7,0)="FIELD^^99^4"
^DD(7105.7,0,"DT")="2980717"
^DD(7105.7,0,"IX","ACL",7105.799,.01)=""
^DD(7105.7,0,"IX","B",7105.7,.01)=""
^DD(7105.7,0,"IX","E",7105.71,.01)=""
^DD(7105.7,0,"NM","NOIS LOCATION TYPE")=""
^DD(7105.7,0,"PT",7100,2.7)=""
^DD(7105.7,0,"PT",7105.1,8)=""
^DD(7105.7,0,"PT",7105.244,.01)=""
^DD(7105.7,0,"VR")="1.1"
^DD(7105.7,0,"VRPK")="NOIS"
^DD(7105.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.7,.01,1,0)="^.1"
^DD(7105.7,.01,1,1,0)="7105.7^B"
^DD(7105.7,.01,1,1,1)="S ^FSC(""LTYPE"",""B"",$E(X,1,30),DA)="""""
^DD(7105.7,.01,1,1,2)="K ^FSC(""LTYPE"",""B"",$E(X,1,30),DA)"
^DD(7105.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7105.7,.01,21,0)="^^1^1^2980118^"
^DD(7105.7,.01,21,1,0)="This is the name of the location type."
^DD(7105.7,1,0)="SYNONYMS^7105.71^^1;0"
^DD(7105.7,1,21,0)="^^1^1^2940902^"
^DD(7105.7,1,21,1,0)="These are synonyms to the location type."
^DD(7105.7,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.7,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.7,1.7,21,0)="^^2^2^2980717^"
^DD(7105.7,1.7,21,1,0)="Enter a web link (URL). This link will be available on any call with"
^DD(7105.7,1.7,21,2,0)="this location type."
^DD(7105.7,1.7,"DT")="2980717"
^DD(7105.7,99,0)="CLIENT LOOKUP^7105.799^^99;0"
^DD(7105.7,99,21,0)="^^1^1^2980118^"
^DD(7105.7,99,21,1,0)="These are the names for the location type."
^DD(7105.7,"B","CLIENT LOOKUP",99)=""
^DD(7105.7,"B","NAME",.01)=""
^DD(7105.7,"B","SYNONYMS",1)=""
^DD(7105.7,"B","WEB LINK",1.7)=""
^DD(7105.7,"GL",0,1,.01)=""
^DD(7105.7,"GL",1,0,1)=""
^DD(7105.7,"GL",1.7,"E1,245",1.7)=""
^DD(7105.7,"GL",99,0,99)=""
^DD(7105.7,"IX",.01)=""
^DD(7105.7,"RQ",.01)=""
^DD(7105.7,"SB",7105.71,1)=""
^DD(7105.7,"SB",7105.799,99)=""
^DD(7105.71,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7105.71,0,"DT")="2940902"
^DD(7105.71,0,"IX","B",7105.71,.01)=""
^DD(7105.71,0,"NM","SYNONYMS")=""
^DD(7105.71,0,"UP")="7105.7"
^DD(7105.71,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(7105.71,.01,1,0)="^.1"
^DD(7105.71,.01,1,1,0)="7105.71^B"
^DD(7105.71,.01,1,1,1)="S ^FSC(""LTYPE"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7105.71,.01,1,1,2)="K ^FSC(""LTYPE"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7105.71,.01,1,2,0)="7105.7^E"
^DD(7105.71,.01,1,2,1)="S ^FSC(""LTYPE"",""E"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.71,.01,1,2,2)="K ^FSC(""LTYPE"",""E"",$E(X,1,30),DA(1),DA)"
^DD(7105.71,.01,1,2,"DT")="2940902"
^DD(7105.71,.01,3)="Answer must be 3-30 characters in length."
^DD(7105.71,.01,21,0)="^^1^1^2940902^"
^DD(7105.71,.01,21,1,0)="This is a synonym to the location type."
^DD(7105.71,.01,"DT")="2940902"
^DD(7105.71,"B","SYNONYM",.01)=""
^DD(7105.71,"GL",0,1,.01)=""
^DD(7105.71,"IX",.01)=""
^DD(7105.799,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7105.799,0,"DT")="2970927"
^DD(7105.799,0,"IX","B",7105.799,.01)=""
^DD(7105.799,0,"NM","CLIENT LOOKUP")=""
^DD(7105.799,0,"UP")="7105.7"
^DD(7105.799,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7105.799,.01,1,0)="^.1"
^DD(7105.799,.01,1,1,0)="7105.799^B"
^DD(7105.799,.01,1,1,1)="S ^FSC(""LTYPE"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7105.799,.01,1,1,2)="K ^FSC(""LTYPE"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7105.799,.01,1,2,0)="7105.7^ACL^MUMPS"
^DD(7105.799,.01,1,2,1)="S ^FSC(""LTYPE"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7105.799,.01,1,2,2)="K ^FSC(""LTYPE"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7105.799,.01,1,2,"DT")="2970927"
^DD(7105.799,.01,3)="Answer must be 2-60 characters in length."
^DD(7105.799,.01,21,0)="^^1^1^2980118^"
^DD(7105.799,.01,21,1,0)="This is the name of the location type."
^DD(7105.799,.01,"DT")="2970927"
^DD(7105.799,"B","CLIENT LOOKUP",.01)=""
^DD(7105.799,"GL",0,1,.01)=""
^DD(7105.799,"IX",.01)=""
^DD(7105.8,0)="FIELD^^99^6"
^DD(7105.8,0,"DT")="2980717"
^DD(7105.8,0,"IX","ACL",7105.899,.01)=""
^DD(7105.8,0,"IX","B",7105.8,.01)=""
^DD(7105.8,0,"IX","C",7105.8,3)=""
^DD(7105.8,0,"IX","E",7105.81,.01)=""
^DD(7105.8,0,"NM","NOIS WORK GROUP")=""
^DD(7105.8,0,"PT",7100,3.3)=""
^DD(7105.8,0,"PT",7103,6)=""
^DD(7105.8,0,"PT",7103.2,5)=""
^DD(7105.8,0,"PT",7105.22,.01)=""
^DD(7105.8,0,"PT",7105.242,.01)=""
^DD(7105.8,0,"PT",7105.5,2)=""
^DD(7105.8,0,"VR")="1.1"
^DD(7105.8,0,"VRPK")="NOIS"
^DD(7105.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.8,.01,1,0)="^.1"
^DD(7105.8,.01,1,1,0)="7105.8^B"
^DD(7105.8,.01,1,1,1)="S ^FSC(""PACKG"",""B"",$E(X,1,30),DA)="""""
^DD(7105.8,.01,1,1,2)="K ^FSC(""PACKG"",""B"",$E(X,1,30),DA)"
^DD(7105.8,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7105.8,.01,21,0)="^^1^1^2980118^"
^DD(7105.8,.01,21,1,0)="This is the name of the work group."
^DD(7105.8,1,0)="SYNONYMS^7105.81^^1;0"
^DD(7105.8,1,21,0)="^^1^1^2940902^"
^DD(7105.8,1,21,1,0)="These are the synonyms for the package group."
^DD(7105.8,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7105.8,1.7,3)="Answer must be 3-245 characters in length."
^DD(7105.8,1.7,21,0)="^^2^2^2980717^"
^DD(7105.8,1.7,21,1,0)="Enter a web link (URL). This link will be available on any call where"
^DD(7105.8,1.7,21,2,0)="the package has this work group associated with it."
^DD(7105.8,1.7,"DT")="2980717"
^DD(7105.8,2,0)="TYPE^P7105.9'^FSC(""WGTYPE"",^0;2^Q"
^DD(7105.8,2,21,0)="^^1^1^2980118^"
^DD(7105.8,2,21,1,0)="This is the type of work group for this entry."
^DD(7105.8,2,"DT")="2950507"
^DD(7105.8,3,0)="SHORT NAME^F^^0;3^K:$L(X)>6!($L(X)<2) X"
^DD(7105.8,3,1,0)="^.1"
^DD(7105.8,3,1,1,0)="7105.8^C"
^DD(7105.8,3,1,1,1)="S ^FSC(""PACKG"",""C"",$E(X,1,30),DA)="""""
^DD(7105.8,3,1,1,2)="K ^FSC(""PACKG"",""C"",$E(X,1,30),DA)"
^DD(7105.8,3,1,1,"DT")="2950621"
^DD(7105.8,3,3)="Answer must be 2-6 characters in length."
^DD(7105.8,3,21,0)="^^1^1^2980118^"
^DD(7105.8,3,21,1,0)="This is a short name used by this work group."
^DD(7105.8,3,"DT")="2950621"
^DD(7105.8,99,0)="CLIENT LOOKUP^7105.899^^99;0"
^DD(7105.8,99,21,0)="^^1^1^2980118^"
^DD(7105.8,99,21,1,0)="These are the names for this work group used by the client."
^DD(7105.8,"B","CLIENT LOOKUP",99)=""
^DD(7105.8,"B","NAME",.01)=""
^DD(7105.8,"B","SHORT NAME",3)=""
^DD(7105.8,"B","SYNONYMS",1)=""
^DD(7105.8,"B","TYPE",2)=""
^DD(7105.8,"B","WEB LINK",1.7)=""
^DD(7105.8,"GL",0,1,.01)=""
^DD(7105.8,"GL",0,2,2)=""
^DD(7105.8,"GL",0,3,3)=""
^DD(7105.8,"GL",1,0,1)=""
^DD(7105.8,"GL",1.7,"E1,245",1.7)=""
^DD(7105.8,"GL",99,0,99)=""
^DD(7105.8,"IX",.01)=""
^DD(7105.8,"IX",3)=""
^DD(7105.8,"RQ",.01)=""
^DD(7105.8,"SB",7105.81,1)=""
^DD(7105.8,"SB",7105.899,99)=""
^DD(7105.81,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7105.81,0,"DT")="2940908"
^DD(7105.81,0,"IX","B",7105.81,.01)=""
^DD(7105.81,0,"NM","SYNONYMS")=""
^DD(7105.81,0,"UP")="7105.8"
^DD(7105.81,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(7105.81,.01,1,0)="^.1"
^DD(7105.81,.01,1,1,0)="7105.81^B"
^DD(7105.81,.01,1,1,1)="S ^FSC(""PACKG"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7105.81,.01,1,1,2)="K ^FSC(""PACKG"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7105.81,.01,1,2,0)="7105.8^E"
^DD(7105.81,.01,1,2,1)="S ^FSC(""PACKG"",""E"",$E(X,1,30),DA(1),DA)="""""
^DD(7105.81,.01,1,2,2)="K ^FSC(""PACKG"",""E"",$E(X,1,30),DA(1),DA)"
^DD(7105.81,.01,1,2,"DT")="2940902"
^DD(7105.81,.01,3)="Answer must be 2-30 characters in length."
^DD(7105.81,.01,21,0)="^^1^1^2940902^"
^DD(7105.81,.01,21,1,0)="This is a synonym for the package group."
^DD(7105.81,.01,"DT")="2940908"
^DD(7105.81,"B","SYNONYM",.01)=""
^DD(7105.81,"GL",0,1,.01)=""
^DD(7105.81,"IX",.01)=""
^DD(7105.899,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7105.899,0,"DT")="2970927"
^DD(7105.899,0,"IX","B",7105.899,.01)=""
^DD(7105.899,0,"NM","CLIENT LOOKUP")=""
^DD(7105.899,0,"UP")="7105.8"
^DD(7105.899,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7105.899,.01,1,0)="^.1"
^DD(7105.899,.01,1,1,0)="7105.899^B"
^DD(7105.899,.01,1,1,1)="S ^FSC(""PACKG"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7105.899,.01,1,1,2)="K ^FSC(""PACKG"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7105.899,.01,1,2,0)="7105.8^ACL^MUMPS"
^DD(7105.899,.01,1,2,1)="S ^FSC(""PACKG"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7105.899,.01,1,2,2)="K ^FSC(""PACKG"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7105.899,.01,1,2,"DT")="2970927"
^DD(7105.899,.01,3)="Answer must be 2-60 characters in length."
^DD(7105.899,.01,21,0)="^^1^1^2980118^"
^DD(7105.899,.01,21,1,0)="This is the name of the work group used by the client."
^DD(7105.899,.01,"DT")="2970927"
^DD(7105.899,"B","CLIENT LOOKUP",.01)=""
^DD(7105.899,"GL",0,1,.01)=""
^DD(7105.899,"IX",.01)=""
^DD(7105.9,0)="FIELD^^.01^1"
^DD(7105.9,0,"IX","B",7105.9,.01)=""
^DD(7105.9,0,"NM","NOIS WORK GROUP TYPE")=""
^DD(7105.9,0,"PT",7105.8,2)=""
^DD(7105.9,0,"VR")="1.1"
^DD(7105.9,0,"VRPK")="NOIS"
^DD(7105.9,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7105.9,.01,1,0)="^.1"
^DD(7105.9,.01,1,1,0)="7105.9^B"
^DD(7105.9,.01,1,1,1)="S ^FSC(""WGTYPE"",""B"",$E(X,1,30),DA)="""""
^DD(7105.9,.01,1,1,2)="K ^FSC(""WGTYPE"",""B"",$E(X,1,30),DA)"
^DD(7105.9,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7105.9,.01,21,0)="^^1^1^2980118^"
^DD(7105.9,.01,21,1,0)="This is a type of work group."
^DD(7105.9,"B","NAME",.01)=""
^DD(7105.9,"GL",0,1,.01)=""
^DD(7105.9,"IX",.01)=""
^DD(7105.9,"RQ",.01)=""
^DD(7106.1,0)="FIELD^^1^4"
^DD(7106.1,0,"DT")="2980103"
^DD(7106.1,0,"IX","B",7106.1,.01)=""
^DD(7106.1,0,"NM","NOIS STATUS")=""
^DD(7106.1,0,"PT",7100,4)=""
^DD(7106.1,0,"PT",7100,4.1)=""
^DD(7106.1,0,"PT",7100,4.5)=""
^DD(7106.1,0,"PT",7100,4.6)=""
^DD(7106.1,0,"PT",7100.5,3)=""
^DD(7106.1,0,"PT",7100.5,4)=""
^DD(7106.1,0,"PT",7106.11,.01)=""
^DD(7106.1,0,"VR")="1.1"
^DD(7106.1,0,"VRPK")="NOIS"
^DD(7106.1,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7106.1,.001,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(7106.1,.001,21,0)="^^1^1^2980118^"
^DD(7106.1,.001,21,1,0)="This is the internal number of this status."
^DD(7106.1,.001,"DT")="2980103"
^DD(7106.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7106.1,.01,1,0)="^.1"
^DD(7106.1,.01,1,1,0)="7106.1^B"
^DD(7106.1,.01,1,1,1)="S ^FSC(""STATUS"",""B"",$E(X,1,30),DA)="""""
^DD(7106.1,.01,1,1,2)="K ^FSC(""STATUS"",""B"",$E(X,1,30),DA)"
^DD(7106.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7106.1,.01,21,0)="^^1^1^2940628^"
^DD(7106.1,.01,21,1,0)="This is the name of the status for a NOIS call."
^DD(7106.1,.02,0)="STANDARD OR REFERAL^S^S:STANDARD;D:REFERAL;^0;2^Q"
^DD(7106.1,.02,21,0)="^^1^1^2961018^^"
^DD(7106.1,.02,21,1,0)="This is the type of status, standard or referal."
^DD(7106.1,.02,"DT")="2961018"
^DD(7106.1,1,0)="AVAILABLE STATUS CHANGE^7106.11P^^1;0"
^DD(7106.1,1,21,0)="^^2^2^2940628^"
^DD(7106.1,1,21,1,0)="These are the statuses that can be selected when the call has this as"
^DD(7106.1,1,21,2,0)="a current status."
^DD(7106.1,"B","AVAILABLE STATUS CHANGE",1)=""
^DD(7106.1,"B","NAME",.01)=""
^DD(7106.1,"B","NUMBER",.001)=""
^DD(7106.1,"B","STANDARD OR REFERAL",.02)=""
^DD(7106.1,"GL",0,1,.01)=""
^DD(7106.1,"GL",0,2,.02)=""
^DD(7106.1,"GL",1,0,1)=""
^DD(7106.1,"IX",.01)=""
^DD(7106.1,"RQ",.01)=""
^DD(7106.1,"SB",7106.11,1)=""
^DD(7106.11,0)="AVAILABLE STATUS CHANGE SUB-FIELD^^.01^1"
^DD(7106.11,0,"DT")="2931227"
^DD(7106.11,0,"IX","B",7106.11,.01)=""
^DD(7106.11,0,"NM","AVAILABLE STATUS CHANGE")=""
^DD(7106.11,0,"UP")="7106.1"
^DD(7106.11,.01,0)="AVAILABLE STATUS CHANGE^MP7106.1'^FSC(""STATUS"",^0;1^Q"
^DD(7106.11,.01,1,0)="^.1"
^DD(7106.11,.01,1,1,0)="7106.11^B"
^DD(7106.11,.01,1,1,1)="S ^FSC(""STATUS"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7106.11,.01,1,1,2)="K ^FSC(""STATUS"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7106.11,.01,21,0)="^^1^1^2940628^"
^DD(7106.11,.01,21,1,0)="This is a status that can be selected."
^DD(7106.11,.01,"DT")="2931227"
^DD(7106.11,"B","AVAILABLE STATUS CHANGE",.01)=""
^DD(7106.11,"GL",0,1,.01)=""
^DD(7106.11,"IX",.01)=""
^DD(7106.2,0)="FIELD^^1^3"
^DD(7106.2,0,"DT")="2950523"
^DD(7106.2,0,"IX","B",7106.2,.01)=""
^DD(7106.2,0,"NM","NOIS PRIORITY")=""
^DD(7106.2,0,"PT",7100,6)=""
^DD(7106.2,0,"VR")="1.1"
^DD(7106.2,0,"VRPK")="NOIS"
^DD(7106.2,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7106.2,.001,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(7106.2,.001,21,0)="^^1^1^2940628^"
^DD(7106.2,.001,21,1,0)="This is the internal number used to rank this priority."
^DD(7106.2,.001,"DT")="2930929"
^DD(7106.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7106.2,.01,1,0)="^.1"
^DD(7106.2,.01,1,1,0)="7106.2^B"
^DD(7106.2,.01,1,1,1)="S ^FSC(""PRI"",""B"",$E(X,1,30),DA)="""""
^DD(7106.2,.01,1,1,2)="K ^FSC(""PRI"",""B"",$E(X,1,30),DA)"
^DD(7106.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7106.2,.01,21,0)="^^1^1^2940628^"
^DD(7106.2,.01,21,1,0)="This is the priority for a NOIS call."
^DD(7106.2,1,0)="SPECIALIST USE ONLY^S^1:YES;^0;2^Q"
^DD(7106.2,1,21,0)="^^2^2^2980118^"
^DD(7106.2,1,21,1,0)="This field is used to designate the priority to only be used by"
^DD(7106.2,1,21,2,0)="a specialist."
^DD(7106.2,1,"DT")="2950523"
^DD(7106.2,"B","NAME",.01)=""
^DD(7106.2,"B","NUMBER",.001)=""
^DD(7106.2,"B","SPECIALIST USE ONLY",1)=""
^DD(7106.2,"GL",0,1,.01)=""
^DD(7106.2,"GL",0,2,1)=""
^DD(7106.2,"IX",.01)=""
^DD(7106.2,"RQ",.01)=""
^DD(7106.3,0)="FIELD^^99^5"
^DD(7106.3,0,"DDA")="N"
^DD(7106.3,0,"DT")="2970927"
^DD(7106.3,0,"IX","ACL",7106.399,.01)=""
^DD(7106.3,0,"IX","B",7106.3,.01)=""
^DD(7106.3,0,"IX","C",7106.39,.01)=""
^DD(7106.3,0,"NM","NOIS TASK")=""
^DD(7106.3,0,"PT",7100,9)=""
^DD(7106.3,0,"VR")="1.1"
^DD(7106.3,0,"VRPK")="NOIS"
^DD(7106.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7106.3,.01,1,0)="^.1"
^DD(7106.3,.01,1,1,0)="7106.3^B"
^DD(7106.3,.01,1,1,1)="S ^FSC(""TASK"",""B"",$E(X,1,30),DA)="""""
^DD(7106.3,.01,1,1,2)="K ^FSC(""TASK"",""B"",$E(X,1,30),DA)"
^DD(7106.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7106.3,.01,21,0)="^^1^1^2940628^"
^DD(7106.3,.01,21,1,0)="This is the name of a task associated with a NOIS call."
^DD(7106.3,1,0)="INACTIVE^S^1:YES;^0;2^Q"
^DD(7106.3,1,21,0)="^^1^1^2940628^"
^DD(7106.3,1,21,1,0)="This field will inactive selection of this task when set to YES."
^DD(7106.3,1,"DT")="2930929"
^DD(7106.3,9,0)="SYNONYMS^7106.39^^2;0"
^DD(7106.3,9,21,0)="^^1^1^2940628^"
^DD(7106.3,9,21,1,0)="These are the synonyms for this NOIS task."
^DD(7106.3,10,0)="DESCRIPTION^7106.31^^1;0"
^DD(7106.3,10,21,0)="^^1^1^2940628^"
^DD(7106.3,10,21,1,0)="This is a description of this NOIS task."
^DD(7106.3,99,0)="CLIENT LOOKUP^7106.399^^99;0"
^DD(7106.3,99,21,0)="^^1^1^2980118^"
^DD(7106.3,99,21,1,0)="These are the names used for the task by the client."
^DD(7106.3,"B","CLIENT LOOKUP",99)=""
^DD(7106.3,"B","DESCRIPTION",10)=""
^DD(7106.3,"B","INACTIVE",1)=""
^DD(7106.3,"B","NAME",.01)=""
^DD(7106.3,"B","SYNONYMS",9)=""
^DD(7106.3,"GL",0,1,.01)=""
^DD(7106.3,"GL",0,2,1)=""
^DD(7106.3,"GL",1,0,10)=""
^DD(7106.3,"GL",2,0,9)=""
^DD(7106.3,"GL",99,0,99)=""
^DD(7106.3,"IX",.01)=""
^DD(7106.3,"RQ",.01)=""
^DD(7106.3,"SB",7106.31,10)=""
^DD(7106.3,"SB",7106.39,9)=""
^DD(7106.3,"SB",7106.399,99)=""
^DD(7106.31,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(7106.31,0,"DT")="2930929"
^DD(7106.31,0,"NM","DESCRIPTION")=""
^DD(7106.31,0,"UP")="7106.3"
^DD(7106.31,.01,0)="DESCRIPTIONS^W^^0;1^Q"
^DD(7106.31,.01,"DT")="2930929"
^DD(7106.31,"B","DESCRIPTIONS",.01)=""
^DD(7106.31,"GL",0,1,.01)=""
^DD(7106.39,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7106.39,0,"DT")="2940502"
^DD(7106.39,0,"IX","B",7106.39,.01)=""
^DD(7106.39,0,"NM","SYNONYMS")=""
^DD(7106.39,0,"UP")="7106.3"
^DD(7106.39,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(7106.39,.01,1,0)="^.1"
^DD(7106.39,.01,1,1,0)="7106.39^B"
^DD(7106.39,.01,1,1,1)="S ^FSC(""TASK"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(7106.39,.01,1,1,2)="K ^FSC(""TASK"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(7106.39,.01,1,2,0)="7106.3^C"
^DD(7106.39,.01,1,2,1)="S ^FSC(""TASK"",""C"",$E(X,1,30),DA(1),DA)="""""
^DD(7106.39,.01,1,2,2)="K ^FSC(""TASK"",""C"",$E(X,1,30),DA(1),DA)"
^DD(7106.39,.01,1,2,"DT")="2940502"
^DD(7106.39,.01,3)="Answer must be 2-30 characters in length."
^DD(7106.39,.01,21,0)="^^1^1^2940628^"
^DD(7106.39,.01,21,1,0)="This is a synonym for this NOIS task."
^DD(7106.39,.01,"DT")="2940502"
^DD(7106.39,"B","SYNONYM",.01)=""
^DD(7106.39,"GL",0,1,.01)=""
^DD(7106.39,"IX",.01)=""
^DD(7106.399,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7106.399,0,"DT")="2970927"
^DD(7106.399,0,"IX","B",7106.399,.01)=""
^DD(7106.399,0,"NM","CLIENT LOOKUP")=""
^DD(7106.399,0,"UP")="7106.3"
^DD(7106.399,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7106.399,.01,1,0)="^.1"
^DD(7106.399,.01,1,1,0)="7106.399^B"
^DD(7106.399,.01,1,1,1)="S ^FSC(""TASK"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7106.399,.01,1,1,2)="K ^FSC(""TASK"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7106.399,.01,1,2,0)="7106.3^ACL^MUMPS"
^DD(7106.399,.01,1,2,1)="S ^FSC(""TASK"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7106.399,.01,1,2,2)="K ^FSC(""TASK"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7106.399,.01,1,2,"DT")="2970927"
^DD(7106.399,.01,3)="Answer must be 2-60 characters in length."
^DD(7106.399,.01,21,0)="^^1^1^2980118^"
^DD(7106.399,.01,21,1,0)="This is the name used for the task by the client."
^DD(7106.399,.01,"DT")="2970927"
^DD(7106.399,"B","CLIENT LOOKUP",.01)=""
^DD(7106.399,"GL",0,1,.01)=""
^DD(7106.399,"IX",.01)=""
^DD(7106.4,0)="FIELD^^10^4"
^DD(7106.4,0,"DT")="2980711"
^DD(7106.4,0,"IX","B",7106.4,.01)=""
^DD(7106.4,0,"NM","NOIS FUNCTIONAL AREA")=""
^DD(7106.4,0,"PT",7100,8)=""
^DD(7106.4,0,"PT",7103,11)=""
^DD(7106.4,0,"PT",7103.2,10)=""
^DD(7106.4,0,"PT",7105.2,4)=""
^DD(7106.4,0,"VR")="1.1"
^DD(7106.4,0,"VRPK")="NOIS"
^DD(7106.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7106.4,.01,1,0)="^.1"
^DD(7106.4,.01,1,1,0)="7106.4^B"
^DD(7106.4,.01,1,1,1)="S ^FSC(""FUNC"",""B"",$E(X,1,30),DA)="""""
^DD(7106.4,.01,1,1,2)="K ^FSC(""FUNC"",""B"",$E(X,1,30),DA)"
^DD(7106.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7106.4,.01,21,0)="^^1^1^2980118^"
^DD(7106.4,.01,21,1,0)="This is the name of the functional area."
^DD(7106.4,1,0)="INACTIVE^S^1:YES;^0;2^Q"
^DD(7106.4,1,21,0)="^^1^1^2940628^"
^DD(7106.4,1,21,1,0)="This field will inactive selection of this functional area when set to YES."
^DD(7106.4,1,"DT")="2930929"
^DD(7106.4,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7106.4,1.7,3)="Answer must be 3-245 characters in length."
^DD(7106.4,1.7,21,0)="^^2^2^2980717^^"
^DD(7106.4,1.7,21,1,0)="Web link associated with the functional area."
^DD(7106.4,1.7,21,2,0)="This link is displayed if the user is associated with this area."
^DD(7106.4,1.7,"DT")="2980711"
^DD(7106.4,10,0)="DESCRIPTION^7106.41^^1;0"
^DD(7106.4,10,21,0)="^^1^1^2940628^"
^DD(7106.4,10,21,1,0)="This is a description of this functional area."
^DD(7106.4,"B","DESCRIPTION",10)=""
^DD(7106.4,"B","INACTIVE",1)=""
^DD(7106.4,"B","NAME",.01)=""
^DD(7106.4,"B","WEB LINK",1.7)=""
^DD(7106.4,"GL",0,1,.01)=""
^DD(7106.4,"GL",0,2,1)=""
^DD(7106.4,"GL",1,0,10)=""
^DD(7106.4,"GL",1.7,"E1,245",1.7)=""
^DD(7106.4,"IX",.01)=""
^DD(7106.4,"RQ",.01)=""
^DD(7106.4,"SB",7106.41,10)=""
^DD(7106.41,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(7106.41,0,"DT")="2930929"
^DD(7106.41,0,"NM","DESCRIPTION")=""
^DD(7106.41,0,"UP")="7106.4"
^DD(7106.41,.01,0)="DESCRIPTIONS^W^^0;1^Q"
^DD(7106.41,.01,"DT")="2930929"
^DD(7106.41,"B","DESCRIPTIONS",.01)=""
^DD(7106.41,"GL",0,1,.01)=""
^DD(7106.5,0)="FIELD^^1^2"
^DD(7106.5,0,"DT")="2950507"
^DD(7106.5,0,"IX","B",7106.5,.01)=""
^DD(7106.5,0,"NM","NOIS TIMEZONE")=""
^DD(7106.5,0,"PT",7103,4)=""
^DD(7106.5,0,"PT",7103.2,3)=""
^DD(7106.5,0,"PT",7105.2,100)=""
^DD(7106.5,0,"VR")="1.1"
^DD(7106.5,0,"VRPK")="NOIS"
^DD(7106.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7106.5,.01,1,0)="^.1"
^DD(7106.5,.01,1,1,0)="7106.5^B"
^DD(7106.5,.01,1,1,1)="S ^FSC(""TIMEZONE"",""B"",$E(X,1,30),DA)="""""
^DD(7106.5,.01,1,1,2)="K ^FSC(""TIMEZONE"",""B"",$E(X,1,30),DA)"
^DD(7106.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7106.5,1,0)="OFFSET^NJ2,0^^0;2^K:+X'=X!(X>24)!(X<-24)!(X?.E1"".""1N.N) X"
^DD(7106.5,1,3)="Type a Number between -24 and 24, 0 Decimal Digits"
^DD(7106.5,1,"DT")="2950507"
^DD(7106.5,"B","NAME",.01)=""
^DD(7106.5,"B","OFFSET",1)=""
^DD(7106.5,"GL",0,1,.01)=""
^DD(7106.5,"GL",0,2,1)=""
^DD(7106.5,"IX",.01)=""
^DD(7106.5,"RQ",.01)=""
^DD(7106.6,0)="FIELD^^1.7^2"
^DD(7106.6,0,"DT")="2980717"
^DD(7106.6,0,"IX","B",7106.6,.01)=""
^DD(7106.6,0,"NM","NOIS VISN")=""
^DD(7106.6,0,"PT",7100,2.8)=""
^DD(7106.6,0,"PT",7105.1,7)=""
^DD(7106.6,0,"VR")="1.1"
^DD(7106.6,0,"VRPK")="NOIS"
^DD(7106.6,.01,0)="VISN NUMBER^RNJ2,0X^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7106.6,.01,1,0)="^.1"
^DD(7106.6,.01,1,1,0)="7106.6^B"
^DD(7106.6,.01,1,1,1)="S ^FSC(""VISN"",""B"",$E(X,1,30),DA)="""""
^DD(7106.6,.01,1,1,2)="K ^FSC(""VISN"",""B"",$E(X,1,30),DA)"
^DD(7106.6,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(7106.6,.01,21,0)="^^1^1^2980118^"
^DD(7106.6,.01,21,1,0)="This is the VISN number. It is used to group locations."
^DD(7106.6,.01,"DT")="2951221"
^DD(7106.6,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7106.6,1.7,3)="Answer must be 3-245 characters in length."
^DD(7106.6,1.7,21,0)="^^2^2^2980717^"
^DD(7106.6,1.7,21,1,0)="Enter a web link (URL). This link will be available on calls where the"
^DD(7106.6,1.7,21,2,0)="location has this VISN."
^DD(7106.6,1.7,"DT")="2980717"
^DD(7106.6,"B","VISN NUMBER",.01)=""
^DD(7106.6,"B","WEB LINK",1.7)=""
^DD(7106.6,"GL",0,1,.01)=""
^DD(7106.6,"GL",1.7,"E1,245",1.7)=""
^DD(7106.6,"IX",.01)=""
^DD(7106.6,"RQ",.01)=""
^DD(7106.7,0)="FIELD^^99^4"
^DD(7106.7,0,"DT")="2980717"
^DD(7106.7,0,"IX","ACL",7106.799,.01)=""
^DD(7106.7,0,"IX","B",7106.7,.01)=""
^DD(7106.7,0,"IX","E",7106.71,.01)=""
^DD(7106.7,0,"NM","NOIS SYSTEM")=""
^DD(7106.7,0,"PT",7100,2.9)=""
^DD(7106.7,0,"PT",7105.1,9.2)=""
^DD(7106.7,0,"VR")="1.1"
^DD(7106.7,0,"VRPK")="NOIS"
^DD(7106.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7106.7,.01,1,0)="^.1"
^DD(7106.7,.01,1,1,0)="7106.7^B"
^DD(7106.7,.01,1,1,1)="S ^FSC(""SYSTEM"",""B"",$E(X,1,30),DA)="""""
^DD(7106.7,.01,1,1,2)="K ^FSC(""SYSTEM"",""B"",$E(X,1,30),DA)"
^DD(7106.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7106.7,.01,21,0)="^^1^1^2980118^"
^DD(7106.7,.01,21,1,0)="This is the name of the system for a location."
^DD(7106.7,.01,"DT")="2961019"
^DD(7106.7,1,0)="SYNONYMS^7106.71^^1;0"
^DD(7106.7,1,21,0)="^^1^1^2980118^"
^DD(7106.7,1,21,1,0)="These are the synonyms for the system."
^DD(7106.7,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7106.7,1.7,3)="Answer must be 3-245 characters in length."
^DD(7106.7,1.7,21,0)="^^2^2^2980717^"
^DD(7106.7,1.7,21,1,0)="Enter a web link (URL) that will be available on any call with a location"
^DD(7106.7,1.7,21,2,0)="that has this system."
^DD(7106.7,1.7,"DT")="2980717"
^DD(7106.7,99,0)="CLIENT LOOKUP^7106.799^^99;0"
^DD(7106.7,99,21,0)="^^1^1^2980118^"
^DD(7106.7,99,21,1,0)="These are the names for the system used by the client."
^DD(7106.7,"B","CLIENT LOOKUP",99)=""
^DD(7106.7,"B","NAME",.01)=""
^DD(7106.7,"B","SYNONYMS",1)=""
^DD(7106.7,"B","WEB LINK",1.7)=""
^DD(7106.7,"GL",0,1,.01)=""
^DD(7106.7,"GL",1,0,1)=""
^DD(7106.7,"GL",1.7,"E1,245",1.7)=""
^DD(7106.7,"GL",99,0,99)=""
^DD(7106.7,"IX",.01)=""
^DD(7106.7,"RQ",.01)=""
^DD(7106.7,"SB",7106.71,1)=""
^DD(7106.7,"SB",7106.799,99)=""
^DD(7106.71,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7106.71,0,"DT")="2961019"
^DD(7106.71,0,"IX","B",7106.71,.01)=""
^DD(7106.71,0,"NM","SYNONYMS")=""
^DD(7106.71,0,"UP")="7106.7"
^DD(7106.71,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(7106.71,.01,1,0)="^.1"
^DD(7106.71,.01,1,1,0)="7106.71^B"
^DD(7106.71,.01,1,1,1)="S ^FSC(""SYSTEM"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7106.71,.01,1,1,2)="K ^FSC(""SYSTEM"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7106.71,.01,1,2,0)="7106.7^E"
^DD(7106.71,.01,1,2,1)="S ^FSC(""SYSTEM"",""E"",$E(X,1,30),DA(1),DA)="""""
^DD(7106.71,.01,1,2,2)="K ^FSC(""SYSTEM"",""E"",$E(X,1,30),DA(1),DA)"
^DD(7106.71,.01,1,2,"DT")="2961019"
^DD(7106.71,.01,3)="Answer must be 3-30 characters in length."
^DD(7106.71,.01,21,0)="^^1^1^2980118^"
^DD(7106.71,.01,21,1,0)="This is the synonym for the system."
^DD(7106.71,.01,"DT")="2961019"
^DD(7106.71,"B","SYNONYM",.01)=""
^DD(7106.71,"GL",0,1,.01)=""
^DD(7106.71,"IX",.01)=""
^DD(7106.799,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7106.799,0,"DT")="2970927"
^DD(7106.799,0,"IX","B",7106.799,.01)=""
^DD(7106.799,0,"NM","CLIENT LOOKUP")=""
^DD(7106.799,0,"UP")="7106.7"
^DD(7106.799,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7106.799,.01,1,0)="^.1"
^DD(7106.799,.01,1,1,0)="7106.799^B"
^DD(7106.799,.01,1,1,1)="S ^FSC(""SYSTEM"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7106.799,.01,1,1,2)="K ^FSC(""SYSTEM"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7106.799,.01,1,2,0)="7106.7^ACL^MUMPS"
^DD(7106.799,.01,1,2,1)="S ^FSC(""SYSTEM"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7106.799,.01,1,2,2)="K ^FSC(""SYSTEM"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7106.799,.01,1,2,"DT")="2970927"
^DD(7106.799,.01,3)="Answer must be 2-60 characters in length."
^DD(7106.799,.01,21,0)="^^1^1^2980118^"
^DD(7106.799,.01,21,1,0)="This is the name for the system used by the client."
^DD(7106.799,.01,"DT")="2970927"
^DD(7106.799,"B","CLIENT LOOKUP",.01)=""
^DD(7106.799,"GL",0,1,.01)=""
^DD(7106.799,"IX",.01)=""
^DD(7106.8,0)="FIELD^^.01^1"
^DD(7106.8,0,"DT")="2971007"
^DD(7106.8,0,"IX","B",7106.8,.01)=""
^DD(7106.8,0,"NM","NOIS ENTRY PERSON TYPE")=""
^DD(7106.8,0,"PT",7100,5.3)=""
^DD(7106.8,0,"VR")="1.1"
^DD(7106.8,0,"VRPK")="NOIS"
^DD(7106.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(7106.8,.01,1,0)="^.1"
^DD(7106.8,.01,1,1,0)="7106.8^B"
^DD(7106.8,.01,1,1,1)="S ^FSC(""EPTYPE"",""B"",$E(X,1,30),DA)="""""
^DD(7106.8,.01,1,1,2)="K ^FSC(""EPTYPE"",""B"",$E(X,1,30),DA)"
^DD(7106.8,.01,3)="Answer must be 3-30 characters in length."
^DD(7106.8,.01,21,0)="^^1^1^2980118^"
^DD(7106.8,.01,21,1,0)="This is the entry person type."
^DD(7106.8,.01,"DT")="2971007"
^DD(7106.8,"B","NAME",.01)=""
^DD(7106.8,"GL",0,1,.01)=""
^DD(7106.8,"IX",.01)=""
^DD(7106.8,"RQ",.01)=""
^DD(7107.1,0)="FIELD^^501^14"
^DD(7107.1,0,"DDA")="N"
^DD(7107.1,0,"DT")="2961102"
^DD(7107.1,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7107.1,0,"IX","AU",7107.1,2)=""
^DD(7107.1,0,"IX","B",7107.1,.01)=""
^DD(7107.1,0,"IX","C",7107.1,1)=""
^DD(7107.1,0,"NM","NOIS LIST DEFINITION")=""
^DD(7107.1,0,"PT",7100.2,1)=""
^DD(7107.1,0,"PT",7101.3,2)=""
^DD(7107.1,0,"PT",7102,1)=""
^DD(7107.1,0,"PT",7105.2,9)=""
^DD(7107.1,0,"PT",7107.5,2)=""
^DD(7107.1,0,"VR")="1.1"
^DD(7107.1,0,"VRPK")="NOIS"
^DD(7107.1,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X I $D(X) S X=$$UP^XLFSTR(X)"
^DD(7107.1,.01,1,0)="^.1"
^DD(7107.1,.01,1,1,0)="7107.1^B"
^DD(7107.1,.01,1,1,1)="S ^FSC(""LIST"",""B"",$E(X,1,30),DA)="""""
^DD(7107.1,.01,1,1,2)="K ^FSC(""LIST"",""B"",$E(X,1,30),DA)"
^DD(7107.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7107.1,.01,21,0)="^^1^1^2940628^"
^DD(7107.1,.01,21,1,0)="This is the name of the list of NOIS calls."
^DD(7107.1,.01,"DT")="2980508"
^DD(7107.1,1,0)="OWNER^P200'^VA(200,^0;2^Q"
^DD(7107.1,1,1,0)="^.1"
^DD(7107.1,1,1,1,0)="7107.1^C"
^DD(7107.1,1,1,1,1)="S ^FSC(""LIST"",""C"",$E(X,1,30),DA)="""""
^DD(7107.1,1,1,1,2)="K ^FSC(""LIST"",""C"",$E(X,1,30),DA)"
^DD(7107.1,1,1,1,"DT")="2931204"
^DD(7107.1,1,3)=""
^DD(7107.1,1,21,0)="^^2^2^2940628^"
^DD(7107.1,1,21,1,0)="This is the person that owns this list (able to edit it, be notified "
^DD(7107.1,1,21,2,0)="from it).  If there is no entry then this is a public list."
^DD(7107.1,1,"DT")="2931204"
^DD(7107.1,2,0)="TYPE^RS^A:ACTIVE UPDATE;S:STORAGE ONLY;I:INDEXED;M:MANUAL UPDATE;^0;3^Q"
^DD(7107.1,2,1,0)="^.1"
^DD(7107.1,2,1,1,0)="7107.1^AU"
^DD(7107.1,2,1,1,1)="S ^FSC(""LIST"",""AU"",$E(X,1,30),DA)="""""
^DD(7107.1,2,1,1,2)="K ^FSC(""LIST"",""AU"",$E(X,1,30),DA)"
^DD(7107.1,2,1,1,"DT")="2931121"
^DD(7107.1,2,21,0)="^^1^1^2940805^^"
^DD(7107.1,2,21,1,0)="This field defines the type of list for this list."
^DD(7107.1,2,"DT")="2940628"
^DD(7107.1,3,0)="INDEX^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(7107.1,3,3)="Answer must be 1-30 characters in length."
^DD(7107.1,3,21,0)="^^3^3^2940628^"
^DD(7107.1,3,21,1,0)="This field is meaningful when the list type is INDEXED.  The entry"
^DD(7107.1,3,21,2,0)="will be a subscript for the appropriate index.  Examples"
^DD(7107.1,3,21,3,0)="""AIS"" or ""AIS"",5"
^DD(7107.1,3,"DT")="2931029"
^DD(7107.1,4,0)="INDEX FIELD^P7107.2'^FSC(""FLD"",^0;5^Q"
^DD(7107.1,4,21,0)="^^4^4^2940628^"
^DD(7107.1,4,21,1,0)="This field is meaningful when the list type is INDEXED and their is"
^DD(7107.1,4,21,2,0)="no preset entry in the index.  ie. The entry is selected (these lists"
^DD(7107.1,4,21,3,0)="have a colon at the end of the name).  The entry of this field should"
^DD(7107.1,4,21,4,0)="be the appropriate NOIS field for the index."
^DD(7107.1,4,"DT")="2931030"
^DD(7107.1,5,0)="NOTIFY METHOD^S^MAIL:MAIL;ALERT:ALERT;^0;6^Q"
^DD(7107.1,5,21,0)="^^1^1^2940628^"
^DD(7107.1,5,21,1,0)="This is the method of notification used by this list."
^DD(7107.1,5,"DT")="2931210"
^DD(7107.1,6,0)="NOTIFY EVENT^S^EDITED:EDITED;STATUS CHANGED:STATUS CHANGED;ADDED:ADDED;^0;7^Q"
^DD(7107.1,6,21,0)="^^1^1^2940628^"
^DD(7107.1,6,21,1,0)="This is the event that initates notification."
^DD(7107.1,6,"DT")="2940214"
^DD(7107.1,7,0)="REBUILD^S^NEVER:NEVER;DAILY:DAILY;WEEKLY:WEEKLY;MONTHLY:MONTHLY;^0;10^Q"
^DD(7107.1,7,21,0)="^^5^5^2961102^^"
^DD(7107.1,7,21,1,0)="This field will determine how often this list will be automatically"
^DD(7107.1,7,21,2,0)="rebuilt. This field applies only to active update type lists. If no"
^DD(7107.1,7,21,3,0)="entry is made this list will be automatically rebuilt weekly. The"
^DD(7107.1,7,21,4,0)="rebuild is performed by the nightly task to make sure a list is updated"
^DD(7107.1,7,21,5,0)="with appropriate calls."
^DD(7107.1,7,"DT")="2961031"
^DD(7107.1,8,0)="REBUILD TIME^NJ7,0^^0;11^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7107.1,8,3)="Type a Number between 0 and 1000000, 0 Decimal Digits"
^DD(7107.1,8,21,0)="^^2^2^2961102^"
^DD(7107.1,8,21,1,0)="This is the approximate number of seconds it takes to rebuild this list."
^DD(7107.1,8,21,2,0)="This is updated automatically whenever the list is updated."
^DD(7107.1,8,"DT")="2961102"
^DD(7107.1,100,0)="DEFINITIONS^7107.11^^1;0"
^DD(7107.1,100,21,0)="^^1^1^2940628^"
^DD(7107.1,100,21,1,0)="These are the query statements to define this list."
^DD(7107.1,200,0)="DESCRIPTION^7107.12^^2;0"
^DD(7107.1,200,21,0)="^^1^1^2940628^"
^DD(7107.1,200,21,1,0)="This is a description of the list."
^DD(7107.1,300,0)="QUERY DESCRIPTION^7107.13^^3;0"
^DD(7107.1,300,21,0)="^^2^2^2940628^"
^DD(7107.1,300,21,1,0)="This is a description of the query.  This entry is made when defining"
^DD(7107.1,300,21,2,0)="lists with the NOIS software."
^DD(7107.1,500,0)="RESTRICTION LIMIT^NJ7,0^^0;8^K:+X'=X!(X>1000000)!(X<-1)!(X?.E1"".""1N.N) X"
^DD(7107.1,500,3)="Type a Number between -1 and 1000000, 0 Decimal Digits"
^DD(7107.1,500,21,0)="^^7^7^2940806^"
^DD(7107.1,500,21,1,0)="This field is used to determine if the user should be asked for a"
^DD(7107.1,500,21,2,0)="restriction on this list when it is selected.  If the field is left"
^DD(7107.1,500,21,3,0)="blank or zero then no restriction is asked for.  If the field is"
^DD(7107.1,500,21,4,0)="a -1 then a restriction is always asked.  If the field is a positive"
^DD(7107.1,500,21,5,0)="number then that number is compared to the APPROXIMATE COUNT field;"
^DD(7107.1,500,21,6,0)="a restriction is asked if the APPROXIMATE COUNT field is greater than"
^DD(7107.1,500,21,7,0)="the RESTRICTION LIMIT."
^DD(7107.1,500,"DT")="2940806"
^DD(7107.1,501,0)="APPROXIMATE COUNT^NJ7,0^^0;9^K:+X'=X!(X>1000000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7107.1,501,3)="Type a Number between 0 and 1000000, 0 Decimal Digits"
^DD(7107.1,501,21,0)="^^2^2^2940806^"
^DD(7107.1,501,21,1,0)="This field is an approximate number of how many calls are on this list."
^DD(7107.1,501,21,2,0)="It may be edited manually or is updated by the nightly NOIS task."
^DD(7107.1,501,"DT")="2940806"
^DD(7107.1,"B","APPROXIMATE COUNT",501)=""
^DD(7107.1,"B","DEFINITIONS",100)=""
^DD(7107.1,"B","DESCRIPTION",200)=""
^DD(7107.1,"B","INDEX",3)=""
^DD(7107.1,"B","INDEX FIELD",4)=""
^DD(7107.1,"B","NAME",.01)=""
^DD(7107.1,"B","NOTIFY EVENT",6)=""
^DD(7107.1,"B","NOTIFY METHOD",5)=""
^DD(7107.1,"B","OWNER",1)=""
^DD(7107.1,"B","QUERY DESCRIPTION",300)=""
^DD(7107.1,"B","REBUILD",7)=""
^DD(7107.1,"B","REBUILD TIME",8)=""
^DD(7107.1,"B","RESTRICTION LIMIT",500)=""
^DD(7107.1,"B","TYPE",2)=""
^DD(7107.1,"GL",0,1,.01)=""
^DD(7107.1,"GL",0,2,1)=""
^DD(7107.1,"GL",0,3,2)=""
^DD(7107.1,"GL",0,4,3)=""
^DD(7107.1,"GL",0,5,4)=""
^DD(7107.1,"GL",0,6,5)=""
^DD(7107.1,"GL",0,7,6)=""
^DD(7107.1,"GL",0,8,500)=""
^DD(7107.1,"GL",0,9,501)=""
^DD(7107.1,"GL",0,10,7)=""
^DD(7107.1,"GL",0,11,8)=""
^DD(7107.1,"GL",1,0,100)=""
^DD(7107.1,"GL",2,0,200)=""
^DD(7107.1,"GL",3,0,300)=""
^DD(7107.1,"IX",.01)=""
^DD(7107.1,"IX",1)=""
^DD(7107.1,"IX",2)=""
^DD(7107.1,"RQ",.01)=""
^DD(7107.1,"RQ",2)=""
^DD(7107.1,"SB",7107.11,100)=""
^DD(7107.1,"SB",7107.12,200)=""
^DD(7107.1,"SB",7107.13,300)=""
^DD(7107.11,0)="DEFINITIONS SUB-FIELD^^5^6"
^DD(7107.11,0,"DT")="2940706"
^DD(7107.11,0,"IX","B",7107.11,.01)=""
^DD(7107.11,0,"NM","DEFINITIONS")=""
^DD(7107.11,0,"UP")="7107.1"
^DD(7107.11,.01,0)="NUMBER^MNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7107.11,.01,1,0)="^.1"
^DD(7107.11,.01,1,1,0)="7107.11^B"
^DD(7107.11,.01,1,1,1)="S ^FSC(""LIST"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7107.11,.01,1,1,2)="K ^FSC(""LIST"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7107.11,.01,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(7107.11,.01,21,0)="^^1^1^2940628^"
^DD(7107.11,.01,21,1,0)="This is the sequence of the definition."
^DD(7107.11,.01,"DT")="2930405"
^DD(7107.11,1,0)="OPERATION^S^A:ADD;R:REMOVE;S:SELECT;^0;2^Q"
^DD(7107.11,1,21,0)="^^1^1^2940628^"
^DD(7107.11,1,21,1,0)="This is the operation (ADD, REMOVE, SELECT) used in this definition."
^DD(7107.11,1,"DT")="2940706"
^DD(7107.11,2,0)="EXTENSION^S^A:AND;O:OR;^0;3^Q"
^DD(7107.11,2,21,0)="^^2^2^2940628^"
^DD(7107.11,2,21,1,0)="This is the operation (AND or OR) to create compond statements in"
^DD(7107.11,2,21,2,0)="the query definition of the list."
^DD(7107.11,2,"DT")="2930405"
^DD(7107.11,3,0)="FIELD^P7107.2'O^FSC(""FLD"",^0;4^Q"
^DD(7107.11,3,2)="S Y(0)=Y I Y,$L($T(FIELD^FSCDD)) S Y=$$FIELD^FSCDD(Y)"
^DD(7107.11,3,2.1)="I Y,$L($T(FIELD^FSCDD)) S Y=$$FIELD^FSCDD(Y)"
^DD(7107.11,3,21,0)="^^1^1^2940628^"
^DD(7107.11,3,21,1,0)="This is the NOIS field used in the query statement of the list definition."
^DD(7107.11,3,"DT")="2931228"
^DD(7107.11,4,0)="CONDITION^P7107.4'O^FSC(""COND"",^0;5^Q"
^DD(7107.11,4,2)="S Y(0)=Y I Y,$L($T(COND^FSCDD)) S Y=$$COND^FSCDD(Y)"
^DD(7107.11,4,2.1)="I Y,$L($T(COND^FSCDD)) S Y=$$COND^FSCDD(Y)"
^DD(7107.11,4,21,0)="^^1^1^2940628^"
^DD(7107.11,4,21,1,0)="This is the NOIS condition that applies to the field in this query statement."
^DD(7107.11,4,"DT")="2931228"
^DD(7107.11,5,0)="VALUE^FO^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(7107.11,5,2)="S Y(0)=Y I $L(Y),$L($T(VALUE^FSCDD)) S Y=$$VALUE^FSCDD(Y)"
^DD(7107.11,5,2.1)="I $L(Y),$L($T(VALUE^FSCDD)) S Y=$$VALUE^FSCDD(Y)"
^DD(7107.11,5,3)="Answer must be 1-30 characters in length."
^DD(7107.11,5,21,0)="^^1^1^2940628^"
^DD(7107.11,5,21,1,0)="This is the value of the field in this query statement."
^DD(7107.11,5,"DT")="2931228"
^DD(7107.11,"B","CONDITION",4)=""
^DD(7107.11,"B","EXTENSION",2)=""
^DD(7107.11,"B","FIELD",3)=""
^DD(7107.11,"B","NUMBER",.01)=""
^DD(7107.11,"B","OPERATION",1)=""
^DD(7107.11,"B","VALUE",5)=""
^DD(7107.11,"GL",0,1,.01)=""
^DD(7107.11,"GL",0,2,1)=""
^DD(7107.11,"GL",0,3,2)=""
^DD(7107.11,"GL",0,4,3)=""
^DD(7107.11,"GL",0,5,4)=""
^DD(7107.11,"GL",0,6,5)=""
^DD(7107.11,"IX",.01)=""
^DD(7107.12,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(7107.12,0,"DT")="2930412"
^DD(7107.12,0,"NM","DESCRIPTION")=""
^DD(7107.12,0,"UP")="7107.1"
^DD(7107.12,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(7107.12,.01,"DT")="2930412"
^DD(7107.12,"B","DESCRIPTION",.01)=""
^DD(7107.12,"GL",0,1,.01)=""
^DD(7107.13,0)="QUERY DESCRIPTION SUB-FIELD^^.01^1"
^DD(7107.13,0,"DT")="2931120"
^DD(7107.13,0,"NM","QUERY DESCRIPTION")=""
^DD(7107.13,0,"UP")="7107.1"
^DD(7107.13,.01,0)="QUERY DESCRIPTION^WL^^0;1^Q"
^DD(7107.13,.01,"DT")="2931120"
^DD(7107.13,"B","QUERY DESCRIPTION",.01)=""
^DD(7107.13,"GL",0,1,.01)=""
^DD(7107.2,0)="FIELD^^99^14"
^DD(7107.2,0,"DT")="2970927"
^DD(7107.2,0,"IX","AC",7107.2,8)=""
^DD(7107.2,0,"IX","ACL",7107.299,.01)=""
^DD(7107.2,0,"IX","B",7107.2,.01)=""
^DD(7107.2,0,"IX","C",7107.25,.01)=""
^DD(7107.2,0,"NM","NOIS FIELD")=""
^DD(7107.2,0,"PT",7105.21,.01)=""
^DD(7107.2,0,"PT",7107.1,4)=""
^DD(7107.2,0,"PT",7107.11,3)=""
^DD(7107.2,0,"PT",7107.62,.01)=""
^DD(7107.2,0,"VR")="1.1"
^DD(7107.2,0,"VRPK")="NOIS"
^DD(7107.2,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7107.2,.01,1,0)="^.1"
^DD(7107.2,.01,1,1,0)="7107.2^B"
^DD(7107.2,.01,1,1,1)="S ^FSC(""FLD"",""B"",$E(X,1,30),DA)="""""
^DD(7107.2,.01,1,1,2)="K ^FSC(""FLD"",""B"",$E(X,1,30),DA)"
^DD(7107.2,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7107.2,.01,21,0)="^^2^2^2940628^"
^DD(7107.2,.01,21,1,0)="This is the name of the NOIS field.  This field corresponds to a field"
^DD(7107.2,.01,21,2,0)="in the NOIS CALL file."
^DD(7107.2,1,0)="TEXT^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(7107.2,1,3)="Answer must be 1-30 characters in length."
^DD(7107.2,1,21,0)="^^1^1^2940628^"
^DD(7107.2,1,21,1,0)="This the text that this field displays on outputs."
^DD(7107.2,1,"DT")="2930216"
^DD(7107.2,2,0)="TYPE^F^^0;3^K:$L(X)>15!($L(X)<1) X"
^DD(7107.2,2,3)="Answer must be 1-15 characters in length."
^DD(7107.2,2,21,0)="^^1^1^2940628^"
^DD(7107.2,2,21,1,0)="This field is interpreted by the NOIS software to describe the NOIS field."
^DD(7107.2,2,"DT")="2930216"
^DD(7107.2,3,0)="NODE/PIECE^F^^0;4^K:$L(X)>12!($L(X)<1) X"
^DD(7107.2,3,3)="Answer must be 1-12 characters in length."
^DD(7107.2,3,21,0)="^^1^1^2940628^"
^DD(7107.2,3,21,1,0)="This is the node;piece of the the associated field in the NOIS CALL file."
^DD(7107.2,3,"DT")="2931010"
^DD(7107.2,4,0)="INDEX^F^^0;5^K:$L(X)>8!($L(X)<1) X"
^DD(7107.2,4,3)="Answer must be 1-8 characters in length."
^DD(7107.2,4,21,0)="^^1^1^2940628^"
^DD(7107.2,4,21,1,0)="If the field in the NOIS CALL file has a simple index, this is entered here."
^DD(7107.2,4,"DT")="2930216"
^DD(7107.2,4.5,0)="**OFFSET NODE/PIECE^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(7107.2,4.5,3)="Answer must be 1-15 characters in length."
^DD(7107.2,4.5,21,0)="^^1^1^2940628^"
^DD(7107.2,4.5,21,1,0)="NOT USED."
^DD(7107.2,4.5,"DT")="2980118"
^DD(7107.2,5,0)="SYNONYMS^7107.25^^1;0"
^DD(7107.2,5,21,0)="^^1^1^2940628^"
^DD(7107.2,5,21,1,0)="These are synonyms for this field."
^DD(7107.2,8,0)="ABBREVIATION^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(7107.2,8,1,0)="^.1"
^DD(7107.2,8,1,1,0)="7107.2^AC"
^DD(7107.2,8,1,1,1)="S ^FSC(""FLD"",""AC"",$E(X,1,30),DA)="""""
^DD(7107.2,8,1,1,2)="K ^FSC(""FLD"",""AC"",$E(X,1,30),DA)"
^DD(7107.2,8,1,1,"DT")="2931222"
^DD(7107.2,8,3)="Answer must be 1-8 characters in length."
^DD(7107.2,8,21,0)="^^2^2^2940628^"
^DD(7107.2,8,21,1,0)="This abbreviation for the field is used by the NOIS software for extracts"
^DD(7107.2,8,21,2,0)="of data from the NOIS CALL file."
^DD(7107.2,8,"DT")="2931222"
^DD(7107.2,9,0)="FIELD^NJ8,3^^0;8^K:+X'=X!(X>9999.999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(7107.2,9,3)="Type a Number between .001 and 9999.999, 3 Decimal Digits"
^DD(7107.2,9,21,0)="^^1^1^2940628^"
^DD(7107.2,9,21,1,0)="This is the associated field number in the NOIS CALL file."
^DD(7107.2,9,"DT")="2931129"
^DD(7107.2,9.9,0)="**USED FOR DEFAULT ENTRY^S^1:YES;^0;10^Q"
^DD(7107.2,9.9,21,0)="^^1^1^2940628^"
^DD(7107.2,9.9,21,1,0)="NOT USED."
^DD(7107.2,9.9,"DT")="2980118"
^DD(7107.2,10,0)="SEARCH PERCENTAGE^NJ7,5^^0;9^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""6N.N) X"
^DD(7107.2,10,3)="Type a Number between 0 and 1, 5 Decimal Digits"
^DD(7107.2,10,21,0)="^^2^2^2940628^"
^DD(7107.2,10,21,1,0)="This field stores the percentage of times this entry exists in the"
^DD(7107.2,10,21,2,0)="NOIS CALL file."
^DD(7107.2,10,"DT")="2940125"
^DD(7107.2,11,0)="SCREEN ON LOOKUP^K^^.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(7107.2,11,3)="This is Standard MUMPS code."
^DD(7107.2,11,9)="@"
^DD(7107.2,11,21,0)="^^2^2^2940825^^^"
^DD(7107.2,11,21,1,0)="This field is used to set DIC(""S"") and is used if this field is a pointer"
^DD(7107.2,11,21,2,0)="type of field."
^DD(7107.2,11,"DT")="2940825"
^DD(7107.2,20,0)="FREQUENT VALUES^7107.21^^2;0"
^DD(7107.2,20,21,0)="^^1^1^2940628^"
^DD(7107.2,20,21,1,0)="These values are used for search optimization."
^DD(7107.2,99,0)="CLIENT LOOKUP^7107.299^^99;0"
^DD(7107.2,99,21,0)="^^1^1^2980118^"
^DD(7107.2,99,21,1,0)="These are the names of the field used by the client."
^DD(7107.2,"B","**OFFSET NODE/PIECE",4.5)=""
^DD(7107.2,"B","**USED FOR DEFAULT ENTRY",9.9)=""
^DD(7107.2,"B","ABBREVIATION",8)=""
^DD(7107.2,"B","CLIENT LOOKUP",99)=""
^DD(7107.2,"B","FIELD",9)=""
^DD(7107.2,"B","FREQUENT VALUES",20)=""
^DD(7107.2,"B","INDEX",4)=""
^DD(7107.2,"B","NAME",.01)=""
^DD(7107.2,"B","NODE/PIECE",3)=""
^DD(7107.2,"B","SCREEN ON LOOKUP",11)=""
^DD(7107.2,"B","SEARCH PERCENTAGE",10)=""
^DD(7107.2,"B","SYNONYMS",5)=""
^DD(7107.2,"B","TEXT",1)=""
^DD(7107.2,"B","TYPE",2)=""
^DD(7107.2,"GL",0,1,.01)=""
^DD(7107.2,"GL",0,2,1)=""
^DD(7107.2,"GL",0,3,2)=""
^DD(7107.2,"GL",0,4,3)=""
^DD(7107.2,"GL",0,5,4)=""
^DD(7107.2,"GL",0,6,4.5)=""
^DD(7107.2,"GL",0,7,8)=""
^DD(7107.2,"GL",0,8,9)=""
^DD(7107.2,"GL",0,9,10)=""
^DD(7107.2,"GL",0,10,9.9)=""
^DD(7107.2,"GL",.1,"E1,245",11)=""
^DD(7107.2,"GL",1,0,5)=""
^DD(7107.2,"GL",2,0,20)=""
^DD(7107.2,"GL",99,0,99)=""
^DD(7107.2,"IX",.01)=""
^DD(7107.2,"IX",8)=""
^DD(7107.2,"RQ",.01)=""
^DD(7107.2,"SB",7107.21,20)=""
^DD(7107.2,"SB",7107.25,5)=""
^DD(7107.2,"SB",7107.299,99)=""
^DD(7107.21,0)="FREQUENT VALUES SUB-FIELD^^1^2"
^DD(7107.21,0,"DT")="2940125"
^DD(7107.21,0,"IX","B",7107.21,.01)=""
^DD(7107.21,0,"NM","FREQUENT VALUES")=""
^DD(7107.21,0,"UP")="7107.2"
^DD(7107.21,.01,0)="FREQUENT VALUE^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(7107.21,.01,1,0)="^.1"
^DD(7107.21,.01,1,1,0)="7107.21^B"
^DD(7107.21,.01,1,1,1)="S ^FSC(""FLD"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(7107.21,.01,1,1,2)="K ^FSC(""FLD"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(7107.21,.01,3)="Answer must be 1-30 characters in length."
^DD(7107.21,.01,21,0)="^^1^1^2940628^"
^DD(7107.21,.01,21,1,0)="This is a frequently entered value for this field."
^DD(7107.21,.01,"DT")="2940125"
^DD(7107.21,1,0)="VALUE PERCENTAGE^NJ7,5^^0;2^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""6N.N) X"
^DD(7107.21,1,3)="Type a Number between 0 and 1, 5 Decimal Digits"
^DD(7107.21,1,21,0)="^^1^1^2940628^"
^DD(7107.21,1,21,1,0)="This is the percentage of time this value exists for this field."
^DD(7107.21,1,"DT")="2940125"
^DD(7107.21,"B","FREQUENT VALUE",.01)=""
^DD(7107.21,"B","VALUE PERCENTAGE",1)=""
^DD(7107.21,"GL",0,1,.01)=""
^DD(7107.21,"GL",0,2,1)=""
^DD(7107.21,"IX",.01)=""
^DD(7107.25,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7107.25,0,"DT")="2930216"
^DD(7107.25,0,"IX","B",7107.25,.01)=""
^DD(7107.25,0,"NM","SYNONYMS")=""
^DD(7107.25,0,"UP")="7107.2"
^DD(7107.25,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(7107.25,.01,1,0)="^.1"
^DD(7107.25,.01,1,1,0)="7107.25^B"
^DD(7107.25,.01,1,1,1)="S ^FSC(""FLD"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7107.25,.01,1,1,2)="K ^FSC(""FLD"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7107.25,.01,1,2,0)="7107.2^C"
^DD(7107.25,.01,1,2,1)="S ^FSC(""FLD"",""C"",$E(X,1,30),DA(1),DA)="""""
^DD(7107.25,.01,1,2,2)="K ^FSC(""FLD"",""C"",$E(X,1,30),DA(1),DA)"
^DD(7107.25,.01,1,2,"DT")="2931031"
^DD(7107.25,.01,3)="Answer must be 1-30 characters in length."
^DD(7107.25,.01,21,0)="^^1^1^2940628^"
^DD(7107.25,.01,21,1,0)="This is a synonym for the field."
^DD(7107.25,.01,"DT")="2931031"
^DD(7107.25,"B","SYNONYM",.01)=""
^DD(7107.25,"GL",0,1,.01)=""
^DD(7107.25,"IX",.01)=""
^DD(7107.299,0)="CLIENT LOOKUP SUB-FIELD^^.01^1"
^DD(7107.299,0,"DT")="2970927"
^DD(7107.299,0,"IX","B",7107.299,.01)=""
^DD(7107.299,0,"NM","CLIENT LOOKUP")=""
^DD(7107.299,0,"UP")="7107.2"
^DD(7107.299,.01,0)="CLIENT LOOKUP^MF^^0;1^K:$L(X)>60!($L(X)<2) X"
^DD(7107.299,.01,1,0)="^.1"
^DD(7107.299,.01,1,1,0)="7107.299^B"
^DD(7107.299,.01,1,1,1)="S ^FSC(""FLD"",DA(1),99,""B"",$E(X,1,30),DA)="""""
^DD(7107.299,.01,1,1,2)="K ^FSC(""FLD"",DA(1),99,""B"",$E(X,1,30),DA)"
^DD(7107.299,.01,1,2,0)="7107.2^ACL^MUMPS"
^DD(7107.299,.01,1,2,1)="S ^FSC(""FLD"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)="""""
^DD(7107.299,.01,1,2,2)="K ^FSC(""FLD"",""ACL"",$$UP^XLFSTR(X),DA(1),DA)"
^DD(7107.299,.01,1,2,"DT")="2970927"
^DD(7107.299,.01,3)="Answer must be 2-60 characters in length."
^DD(7107.299,.01,21,0)="^^1^1^2980118^"
^DD(7107.299,.01,21,1,0)="This is the name of the field used by the client."
^DD(7107.299,.01,"DT")="2970927"
^DD(7107.299,"B","CLIENT LOOKUP",.01)=""
^DD(7107.299,"GL",0,1,.01)=""
^DD(7107.299,"IX",.01)=""
^DD(7107.4,0)="FIELD^^4^5"
^DD(7107.4,0,"DT")="2930330"
^DD(7107.4,0,"ID",1)="W """""
^DD(7107.4,0,"IX","B",7107.4,.01)=""
^DD(7107.4,0,"IX","C",7107.4,1)=""
^DD(7107.4,0,"IX","D",7107.42,.01)=""
^DD(7107.4,0,"NM","NOIS CONDITION")=""
^DD(7107.4,0,"PT",7107.11,4)=""
^DD(7107.4,0,"VR")="1.1"
^DD(7107.4,0,"VRPK")="NOIS"
^DD(7107.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7107.4,.01,1,0)="^.1"
^DD(7107.4,.01,1,1,0)="7107.4^B"
^DD(7107.4,.01,1,1,1)="S ^FSC(""COND"",""B"",$E(X,1,30),DA)="""""
^DD(7107.4,.01,1,1,2)="K ^FSC(""COND"",""B"",$E(X,1,30),DA)"
^DD(7107.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7107.4,.01,21,0)="^^2^2^2940628^"
^DD(7107.4,.01,21,1,0)="This is the name of the NOIS condition.  This condition depends on the"
^DD(7107.4,.01,21,2,0)="previously selected NOIS field."
^DD(7107.4,1,0)="CONDITION^FI^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<1) X"
^DD(7107.4,1,1,0)="^.1"
^DD(7107.4,1,1,1,0)="7107.4^C"
^DD(7107.4,1,1,1,1)="S ^FSC(""COND"",""C"",$E(X,1,30),DA)="""""
^DD(7107.4,1,1,1,2)="K ^FSC(""COND"",""C"",$E(X,1,30),DA)"
^DD(7107.4,1,1,1,"DT")="2930225"
^DD(7107.4,1,3)="Answer must be 1-12 characters in length."
^DD(7107.4,1,21,0)="^^1^1^2940628^"
^DD(7107.4,1,21,1,0)="This is text used by the NOIS software to apply this condition to a field."
^DD(7107.4,1,"DT")="2930305"
^DD(7107.4,2,0)="SYNONYMS^7107.42^^1;0"
^DD(7107.4,2,21,0)="^^1^1^2940628^"
^DD(7107.4,2,21,1,0)="These are synonyms for the conditions."
^DD(7107.4,3,0)="CODE^F^^0;3^K:$L(X)>12!($L(X)<1) X"
^DD(7107.4,3,3)="Answer must be 1-12 characters in length."
^DD(7107.4,3,21,0)="^^2^2^2940628^"
^DD(7107.4,3,21,1,0)="This entry is used by the NOIS software to describe the fields that allow"
^DD(7107.4,3,21,2,0)="this condition."
^DD(7107.4,3,"DT")="2930225"
^DD(7107.4,4,0)="TEXT^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(7107.4,4,3)="Answer must be 1-20 characters in length."
^DD(7107.4,4,21,0)="^^1^1^2940628^"
^DD(7107.4,4,21,1,0)="This field is used to display the query definition."
^DD(7107.4,4,"DT")="2930330"
^DD(7107.4,"B","CODE",3)=""
^DD(7107.4,"B","CONDITION",1)=""
^DD(7107.4,"B","NAME",.01)=""
^DD(7107.4,"B","SYNONYMS",2)=""
^DD(7107.4,"B","TEXT",4)=""
^DD(7107.4,"GL",0,1,.01)=""
^DD(7107.4,"GL",0,2,1)=""
^DD(7107.4,"GL",0,3,3)=""
^DD(7107.4,"GL",0,4,4)=""
^DD(7107.4,"GL",1,0,2)=""
^DD(7107.4,"IX",.01)=""
^DD(7107.4,"IX",1)=""
^DD(7107.4,"RQ",.01)=""
^DD(7107.4,"SB",7107.42,2)=""
^DD(7107.42,0)="SYNONYMS SUB-FIELD^^.01^1"
^DD(7107.42,0,"DT")="2930216"
^DD(7107.42,0,"IX","B",7107.42,.01)=""
^DD(7107.42,0,"NM","SYNONYMS")=""
^DD(7107.42,0,"UP")="7107.4"
^DD(7107.42,.01,0)="SYNONYMS^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(7107.42,.01,1,0)="^.1"
^DD(7107.42,.01,1,1,0)="7107.42^B"
^DD(7107.42,.01,1,1,1)="S ^FSC(""COND"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(7107.42,.01,1,1,2)="K ^FSC(""COND"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(7107.42,.01,1,2,0)="7107.4^D"
^DD(7107.42,.01,1,2,1)="S ^FSC(""COND"",""D"",$E(X,1,30),DA(1),DA)="""""
^DD(7107.42,.01,1,2,2)="K ^FSC(""COND"",""D"",$E(X,1,30),DA(1),DA)"
^DD(7107.42,.01,1,2,"DT")="2930305"
^DD(7107.42,.01,3)="Answer must be 1-30 characters in length."
^DD(7107.42,.01,21,0)="^^1^1^2940628^"
^DD(7107.42,.01,21,1,0)="This is a synonym for the condition."
^DD(7107.42,.01,"DT")="2930305"
^DD(7107.42,"B","SYNONYMS",.01)=""
^DD(7107.42,"GL",0,1,.01)=""
^DD(7107.42,"IX",.01)=""
^DD(7107.5,0)="FIELD^^5^7"
^DD(7107.5,0,"DT")="2940506"
^DD(7107.5,0,"ID",.5)="W:$D(^(.5)) ""   "",$P(^(.5),U,1)"
^DD(7107.5,0,"IX","B",7107.5,.01)=""
^DD(7107.5,0,"NM","NOIS REPORT")=""
^DD(7107.5,0,"VR")="1.1"
^DD(7107.5,0,"VRPK")="NOIS"
^DD(7107.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7107.5,.01,1,0)="^.1"
^DD(7107.5,.01,1,1,0)="7107.5^B"
^DD(7107.5,.01,1,1,1)="S ^FSC(""RPT"",""B"",$E(X,1,30),DA)="""""
^DD(7107.5,.01,1,1,2)="K ^FSC(""RPT"",""B"",$E(X,1,30),DA)"
^DD(7107.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7107.5,.01,21,0)="^^1^1^2940628^"
^DD(7107.5,.01,21,1,0)="This is the name of the NOIS report."
^DD(7107.5,.5,0)="IDENTIFIER^F^^.5;1^K:$L(X)>60!($L(X)<3) X"
^DD(7107.5,.5,3)="Answer must be 3-60 characters in length."
^DD(7107.5,.5,21,0)="^^1^1^2940628^"
^DD(7107.5,.5,21,1,0)="This is a description used to identify the report."
^DD(7107.5,.5,"DT")="2940506"
^DD(7107.5,1,0)="INACTIVE^S^1:YES;^0;2^Q"
^DD(7107.5,1,21,0)="^^1^1^2940628^"
^DD(7107.5,1,21,1,0)="This field will inactivate this report for selection, when set to YES."
^DD(7107.5,1,"DT")="2931007"
^DD(7107.5,2,0)="LIST^P7107.1'^FSC(""LIST"",^0;3^Q"
^DD(7107.5,2,21,0)="^^2^2^2940628^"
^DD(7107.5,2,21,1,0)="This is the NOIS list associated with this report.  If no entry is made,"
^DD(7107.5,2,21,2,0)="the list will be prompted for selection."
^DD(7107.5,2,"DT")="2931007"
^DD(7107.5,3,0)="FORMAT^*P7107.6'^FSC(""FORMAT"",^0;4^S DIC(""S"")=""I $P(^(0),U,2)'=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7107.5,3,12)="Sort formats are not allowed."
^DD(7107.5,3,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'=""""S"""""""
^DD(7107.5,3,21,0)="^^1^1^2940628^"
^DD(7107.5,3,21,1,0)="This is the display format for this report."
^DD(7107.5,3,"DT")="2940121"
^DD(7107.5,4,0)="SORT FORMAT^*P7107.6'^FSC(""FORMAT"",^0;5^S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7107.5,4,12)="Only sort formats allowed"
^DD(7107.5,4,12.1)="S DIC(""S"")=""I $P(^(0),U,2)=""""S"""""""
^DD(7107.5,4,21,0)="^^1^1^2940628^"
^DD(7107.5,4,21,1,0)="This is the sort format for this report (optional)."
^DD(7107.5,4,"DT")="2940121"
^DD(7107.5,5,0)="DISPLAY FORMAT^*P7107.7'^FSC(""FTYPE"",^0;6^S DIC(""S"")=""I '$P(^(0),U,6)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7107.5,5,12)="Only display type formats allowed."
^DD(7107.5,5,12.1)="S DIC(""S"")=""I '$P(^(0),U,6)"""
^DD(7107.5,5,21,0)="^^1^1^2940628^"
^DD(7107.5,5,21,1,0)="This is the format type of this report."
^DD(7107.5,5,"DT")="2940317"
^DD(7107.5,"B","DISPLAY FORMAT",5)=""
^DD(7107.5,"B","FORMAT",3)=""
^DD(7107.5,"B","IDENTIFIER",.5)=""
^DD(7107.5,"B","INACTIVE",1)=""
^DD(7107.5,"B","LIST",2)=""
^DD(7107.5,"B","NAME",.01)=""
^DD(7107.5,"B","SORT FORMAT",4)=""
^DD(7107.5,"GL",0,1,.01)=""
^DD(7107.5,"GL",0,2,1)=""
^DD(7107.5,"GL",0,3,2)=""
^DD(7107.5,"GL",0,4,3)=""
^DD(7107.5,"GL",0,5,4)=""
^DD(7107.5,"GL",0,6,5)=""
^DD(7107.5,"GL",.5,1,.5)=""
^DD(7107.5,"IX",.01)=""
^DD(7107.5,"RQ",.01)=""
^DD(7107.6,0)="FIELD^^2^8"
^DD(7107.6,0,"DT")="2971125"
^DD(7107.6,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(7107.6,0,"ID",.5)="W:$D(^(.5)) ""   "",$P(^(.5),U,1)"
^DD(7107.6,0,"IX","B",7107.6,.01)=""
^DD(7107.6,0,"IX","C",7107.6,.05)=""
^DD(7107.6,0,"NM","NOIS FORMAT")=""
^DD(7107.6,0,"PT",7107.5,3)=""
^DD(7107.6,0,"PT",7107.5,4)=""
^DD(7107.6,0,"VR")="1.1"
^DD(7107.6,0,"VRPK")="NOIS"
^DD(7107.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7107.6,.01,1,0)="^.1"
^DD(7107.6,.01,1,1,0)="7107.6^B"
^DD(7107.6,.01,1,1,1)="S ^FSC(""FORMAT"",""B"",$E(X,1,30),DA)="""""
^DD(7107.6,.01,1,1,2)="K ^FSC(""FORMAT"",""B"",$E(X,1,30),DA)"
^DD(7107.6,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7107.6,.01,21,0)="^^1^1^2940628^"
^DD(7107.6,.01,21,1,0)="This is the name of the NOIS format."
^DD(7107.6,.02,0)="TYPE^RS^B:BRIEF;D:DETAILED;C:CUSTOM;F:FORMAT;T:TEMPLATE;S:SORT;^0;2^Q"
^DD(7107.6,.02,3)=""
^DD(7107.6,.02,21,0)="^^1^1^2940628^"
^DD(7107.6,.02,21,1,0)="This is the type of NOIS format."
^DD(7107.6,.02,"DT")="2971125"
^DD(7107.6,.03,0)="TEMPLATE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(7107.6,.03,3)="Answer must be 1-30 characters in length."
^DD(7107.6,.03,21,0)="^^2^2^2940628^"
^DD(7107.6,.03,21,1,0)="If this is a template type of format, this is the name of the print"
^DD(7107.6,.03,21,2,0)="template used by the NOIS CALL file."
^DD(7107.6,.03,"DT")="2940410"
^DD(7107.6,.04,0)="SPECIAL TYPE^S^STATISTIC:STATISTIC;EXTRACT:EXTRACT;^0;4^Q"
^DD(7107.6,.04,21,0)="^^1^1^2980118^"
^DD(7107.6,.04,21,1,0)="This designates the format for special use."
^DD(7107.6,.04,"DT")="2950507"
^DD(7107.6,.05,0)="OWNER^P200'^VA(200,^0;5^Q"
^DD(7107.6,.05,1,0)="^.1"
^DD(7107.6,.05,1,1,0)="7107.6^C"
^DD(7107.6,.05,1,1,1)="S ^FSC(""FORMAT"",""C"",$E(X,1,30),DA)="""""
^DD(7107.6,.05,1,1,2)="K ^FSC(""FORMAT"",""C"",$E(X,1,30),DA)"
^DD(7107.6,.05,1,1,"DT")="2971125"
^DD(7107.6,.05,21,0)="^^2^2^2980118^"
^DD(7107.6,.05,21,1,0)="This is the owner of the format. If there is no owner it can be"
^DD(7107.6,.05,21,2,0)="used by anyone."
^DD(7107.6,.05,"DT")="2971125"
^DD(7107.6,.5,0)="IDENTIFIER^F^^.5;1^K:$L(X)>60!($L(X)<3) X"
^DD(7107.6,.5,3)="Answer must be 3-60 characters in length."
^DD(7107.6,.5,21,0)="^^1^1^2940628^"
^DD(7107.6,.5,21,1,0)="This is an identifier to describe this format."
^DD(7107.6,.5,"DT")="2940506"
^DD(7107.6,1,0)="ACTION^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(7107.6,1,3)="This is Standard MUMPS code."
^DD(7107.6,1,9)="@"
^DD(7107.6,1,21,0)="^^1^1^2940628^"
^DD(7107.6,1,21,1,0)="If this is a custom format, this code defines the format."
^DD(7107.6,1,"DT")="2980118"
^DD(7107.6,2,0)="FIELDS^7107.62P^^2;0"
^DD(7107.6,2,21,0)="^^1^1^2940628^"
^DD(7107.6,2,21,1,0)="These NOIS fields are used to define this format."
^DD(7107.6,"B","ACTION",1)=""
^DD(7107.6,"B","FIELDS",2)=""
^DD(7107.6,"B","IDENTIFIER",.5)=""
^DD(7107.6,"B","NAME",.01)=""
^DD(7107.6,"B","OWNER",.05)=""
^DD(7107.6,"B","SPECIAL TYPE",.04)=""
^DD(7107.6,"B","TEMPLATE",.03)=""
^DD(7107.6,"B","TYPE",.02)=""
^DD(7107.6,"GL",0,1,.01)=""
^DD(7107.6,"GL",0,2,.02)=""
^DD(7107.6,"GL",0,3,.03)=""
^DD(7107.6,"GL",0,4,.04)=""
^DD(7107.6,"GL",0,5,.05)=""
^DD(7107.6,"GL",.5,1,.5)=""
^DD(7107.6,"GL",1,"E1,245",1)=""
^DD(7107.6,"GL",2,0,2)=""
^DD(7107.6,"IX",.01)=""
^DD(7107.6,"IX",.05)=""
^DD(7107.6,"RQ",.01)=""
^DD(7107.6,"RQ",.02)=""
^DD(7107.6,"SB",7107.62,2)=""
^DD(7107.62,0)="FIELDS SUB-FIELD^^7^8"
^DD(7107.62,0,"DT")="2940117"
^DD(7107.62,0,"IX","B",7107.62,.01)=""
^DD(7107.62,0,"NM","FIELDS")=""
^DD(7107.62,0,"UP")="7107.6"
^DD(7107.62,.01,0)="FIELD^MP7107.2'^FSC(""FLD"",^0;1^Q"
^DD(7107.62,.01,1,0)="^.1"
^DD(7107.62,.01,1,1,0)="7107.62^B"
^DD(7107.62,.01,1,1,1)="S ^FSC(""FORMAT"",DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(7107.62,.01,1,1,2)="K ^FSC(""FORMAT"",DA(1),2,""B"",$E(X,1,30),DA)"
^DD(7107.62,.01,21,0)="^^1^1^2940628^"
^DD(7107.62,.01,21,1,0)="This is a NOIS field for this format."
^DD(7107.62,.01,"DT")="2931017"
^DD(7107.62,1,0)="PROMPT^F^^0;2^K:$L(X)>80!($L(X)<1) X"
^DD(7107.62,1,3)="Answer must be 1-80 characters in length."
^DD(7107.62,1,21,0)="^^1^1^2940628^"
^DD(7107.62,1,21,1,0)="NOT USED."
^DD(7107.62,1,"DT")="2980118"
^DD(7107.62,2,0)="UNIT^F^^0;3^K:$L(X)>80!($L(X)<1) X"
^DD(7107.62,2,3)="Answer must be 1-80 characters in length."
^DD(7107.62,2,21,0)="^^1^1^2940628^"
^DD(7107.62,2,21,1,0)="NOT USED."
^DD(7107.62,2,"DT")="2980118"
^DD(7107.62,3,0)="SECTION^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7107.62,3,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(7107.62,3,21,0)="^^1^1^2940628^"
^DD(7107.62,3,21,1,0)="NOT USED."
^DD(7107.62,3,"DT")="2980118"
^DD(7107.62,4,0)="LINE^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7107.62,4,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(7107.62,4,21,0)="^^1^1^2940628^"
^DD(7107.62,4,21,1,0)="NOT USED"
^DD(7107.62,4,"DT")="2980118"
^DD(7107.62,5,0)="COLUMN^NJ2,0^^0;6^K:+X'=X!(X>80)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7107.62,5,3)="Type a Number between 1 and 80, 0 Decimal Digits"
^DD(7107.62,5,21,0)="^^1^1^2940628^"
^DD(7107.62,5,21,1,0)="NOT USED."
^DD(7107.62,5,"DT")="2931017"
^DD(7107.62,6,0)="IO^S^BOLD:BOLD;REV:REVERSE VIDEO;UNDER:UNDERLINE;BLINK:BLINK;^0;7^Q"
^DD(7107.62,6,21,0)="^^1^1^2940628^"
^DD(7107.62,6,21,1,0)="NOT USED"
^DD(7107.62,6,"DT")="2931017"
^DD(7107.62,7,0)="SORT (DESCENDING)^S^1:YES;^0;8^Q"
^DD(7107.62,7,21,0)="^^2^2^2940628^"
^DD(7107.62,7,21,1,0)="If this field is set to YES, this NOIS field will be sorted in descending"
^DD(7107.62,7,21,2,0)="order."
^DD(7107.62,7,"DT")="2940117"
^DD(7107.62,"B","COLUMN",5)=""
^DD(7107.62,"B","FIELD",.01)=""
^DD(7107.62,"B","IO",6)=""
^DD(7107.62,"B","LINE",4)=""
^DD(7107.62,"B","PROMPT",1)=""
^DD(7107.62,"B","SECTION",3)=""
^DD(7107.62,"B","SORT (DESCENDING)",7)=""
^DD(7107.62,"B","UNIT",2)=""
^DD(7107.62,"GL",0,1,.01)=""
^DD(7107.62,"GL",0,2,1)=""
^DD(7107.62,"GL",0,3,2)=""
^DD(7107.62,"GL",0,4,3)=""
^DD(7107.62,"GL",0,5,4)=""
^DD(7107.62,"GL",0,6,5)=""
^DD(7107.62,"GL",0,7,6)=""
^DD(7107.62,"GL",0,8,7)=""
^DD(7107.62,"IX",.01)=""
^DD(7107.7,0)="FIELD^^6^8"
^DD(7107.7,0,"DT")="2940825"
^DD(7107.7,0,"IX","B",7107.7,.01)=""
^DD(7107.7,0,"NM","NOIS FORMAT TYPE")=""
^DD(7107.7,0,"PT",7105.2,9.3)=""
^DD(7107.7,0,"PT",7105.2,9.4)=""
^DD(7107.7,0,"PT",7107.5,5)=""
^DD(7107.7,0,"VR")="1.1"
^DD(7107.7,0,"VRPK")="NOIS"
^DD(7107.7,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7107.7,.01,1,0)="^.1"
^DD(7107.7,.01,1,1,0)="7107.7^B"
^DD(7107.7,.01,1,1,1)="S ^FSC(""FTYPE"",""B"",$E(X,1,30),DA)="""""
^DD(7107.7,.01,1,1,2)="K ^FSC(""FTYPE"",""B"",$E(X,1,30),DA)"
^DD(7107.7,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7107.7,.01,21,0)="^^1^1^2940628^"
^DD(7107.7,.01,21,1,0)="This is the name of the format type."
^DD(7107.7,1,0)="STYLE NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(7107.7,1,3)="Answer must be 1-30 characters in length."
^DD(7107.7,1,21,0)="^^1^1^2940628^"
^DD(7107.7,1,21,1,0)="This entry is used by the NOIS software."
^DD(7107.7,1,"DT")="2940121"
^DD(7107.7,2,0)="ASK FOR FORMAT^S^1:YES;^0;3^Q"
^DD(7107.7,2,21,0)="^^1^1^2940628^"
^DD(7107.7,2,21,1,0)="If set to YES, this field will prompt for a NOIS format."
^DD(7107.7,2,"DT")="2940121"
^DD(7107.7,2.1,0)="ASK FOR PAGE BREAK^S^1:YES;^0;8^Q"
^DD(7107.7,2.1,21,0)="^^4^4^2940825^^"
^DD(7107.7,2.1,21,1,0)="This field is used to ask for page breaks when using a device. The page"
^DD(7107.7,2.1,21,2,0)="break is exclusive for separating NOIS calls (the break occurs after a"
^DD(7107.7,2.1,21,3,0)="line containing '======'.  If this field is not entered then page breaks"
^DD(7107.7,2.1,21,4,0)="will only occur when the page length is exceeded."
^DD(7107.7,2.1,"DT")="2940825"
^DD(7107.7,3,0)="DEVICE ONLY^S^1:YES;^0;4^Q"
^DD(7107.7,3,21,0)="^^2^2^2940628^"
^DD(7107.7,3,21,1,0)="If set to YES, this field will not be use to display information in"
^DD(7107.7,3,21,2,0)="List Manager."
^DD(7107.7,3,"DT")="2940121"
^DD(7107.7,4,0)="ASK FOR FIELDS^S^1:YES;^0;5^Q"
^DD(7107.7,4,21,0)="^^1^1^2940628^"
^DD(7107.7,4,21,1,0)="If set to YES, this format will prompt for fields."
^DD(7107.7,4,"DT")="2940121"
^DD(7107.7,5,0)="NOT FOR DISPLAY^S^1:YES;^0;6^Q"
^DD(7107.7,5,21,0)="^^1^1^2940628^"
^DD(7107.7,5,21,1,0)="If set to YES, this format will not be used for display."
^DD(7107.7,5,"DT")="2940307"
^DD(7107.7,6,0)="ALLOWABLE AS A DEFAULT^S^1:YES;^0;7^Q"
^DD(7107.7,6,21,0)="^^2^2^2940804^"
^DD(7107.7,6,21,1,0)="This field is set to YES if this format type is selectable as a"
^DD(7107.7,6,21,2,0)="user's default format."
^DD(7107.7,6,"DT")="2940804"
^DD(7107.7,"B","ALLOWABLE AS A DEFAULT",6)=""
^DD(7107.7,"B","ASK FOR FIELDS",4)=""
^DD(7107.7,"B","ASK FOR FORMAT",2)=""
^DD(7107.7,"B","ASK FOR PAGE BREAK",2.1)=""
^DD(7107.7,"B","DEVICE ONLY",3)=""
^DD(7107.7,"B","NAME",.01)=""
^DD(7107.7,"B","NOT FOR DISPLAY",5)=""
^DD(7107.7,"B","STYLE NAME",1)=""
^DD(7107.7,"GL",0,1,.01)=""
^DD(7107.7,"GL",0,2,1)=""
^DD(7107.7,"GL",0,3,2)=""
^DD(7107.7,"GL",0,4,3)=""
^DD(7107.7,"GL",0,5,4)=""
^DD(7107.7,"GL",0,6,5)=""
^DD(7107.7,"GL",0,7,6)=""
^DD(7107.7,"GL",0,8,2.1)=""
^DD(7107.7,"IX",.01)=""
^DD(7107.7,"RQ",.01)=""
^DD(7109,0)="FIELD^^101^34"
^DD(7109,0,"DT")="2980807"
^DD(7109,0,"IX","B",7109,.01)=""
^DD(7109,0,"NM","NOIS PARAMETER")=""
^DD(7109,0,"VR")="1.1"
^DD(7109,0,"VRPK")="NOIS"
^DD(7109,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7109,.01,.1)="NOIS Site Name"
^DD(7109,.01,1,0)="^.1"
^DD(7109,.01,1,1,0)="7109^B"
^DD(7109,.01,1,1,1)="S ^FSC(""PARAM"",""B"",$E(X,1,30),DA)="""""
^DD(7109,.01,1,1,2)="K ^FSC(""PARAM"",""B"",$E(X,1,30),DA)"
^DD(7109,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7109,.01,21,0)="^^1^1^2980118^^"
^DD(7109,.01,21,1,0)="This is the name of the application, ie. NOIS."
^DD(7109,.01,"DT")="2940112"
^DD(7109,1,0)="USE^S^N:NATIONAL;S:SITE;^0;2^Q"
^DD(7109,1,21,0)="^^1^1^2980118^^"
^DD(7109,1,21,1,0)="NOT USED."
^DD(7109,1,"DT")="2931007"
^DD(7109,1.7,0)="WEB LINK^F^^1.7;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7109,1.7,3)="Answer must be 3-245 characters in length."
^DD(7109,1.7,21,0)="^^1^1^2980717^"
^DD(7109,1.7,21,1,0)="This is the default web link. This link will be available to all calls."
^DD(7109,1.7,"DT")="2980717"
^DD(7109,1.9,0)="WEB HELP^F^^1.9;E1,245^K:$L(X)>245!($L(X)<3) X"
^DD(7109,1.9,3)="Answer must be 3-245 characters in length."
^DD(7109,1.9,21,0)="^^1^1^2980807^"
^DD(7109,1.9,21,1,0)="This field should be entered with a URL for using Web Help on the client."
^DD(7109,1.9,"DT")="2980807"
^DD(7109,3,0)="DEFAULT RESOURCE^*P3.5'X^%ZIS(1,^0;3^S DIC(""S"")=""I $P($G(^(""""TYPE"""")),U)=""""RES"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7109,3,12)="Only resource devices may be selected."
^DD(7109,3,12.1)="S DIC(""S"")=""I $P($G(^(""""TYPE"""")),U)=""""RES"""""""
^DD(7109,3,21,0)="^^3^3^2980117^^^"
^DD(7109,3,21,1,0)="This is the resource device used if not already defined by the NOIS office"
^DD(7109,3,21,2,0)="file when a NOIS call is edited.  If this field is not entered then the"
^DD(7109,3,21,3,0)="edits will be separate tasks."
^DD(7109,3,"DT")="2940615"
^DD(7109,4,0)="OPTIMIZATION VALUE CUTOFF^NJ4,2^^0;4^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(7109,4,3)="Type a Number between 0 and 1, 2 Decimal Digits"
^DD(7109,4,21,0)="^^6^6^2940125^"
^DD(7109,4,21,1,0)="This entry is the cutoff as to what values will be included in determining"
^DD(7109,4,21,2,0)="searches.  If no value is entered, the program will default to .2.  The"
^DD(7109,4,21,3,0)="number is a percentage of NOIS calls that have a particular value.  If"
^DD(7109,4,21,4,0)="fields have a value more frequent than this number, that value will be"
^DD(7109,4,21,5,0)="included in the field's frequent value list.  These values are used in"
^DD(7109,4,21,6,0)="ranking the search criteria."
^DD(7109,4,"DT")="2940125"
^DD(7109,5,0)="PURGE DAYS, CANCEL^NJ3,0X^^0;5^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,5,3)="Type a Number between 1 and 365, 0 Decimal Digits"
^DD(7109,5,21,0)="^^2^2^2940628^"
^DD(7109,5,21,1,0)="This defines the number of days grace period before calls will be purged"
^DD(7109,5,21,2,0)="that have been canceled and have not been edited."
^DD(7109,5,"DT")="2940615"
^DD(7109,6,0)="PURGE DAYS, CLOSE^NJ3,0^^0;6^K:+X'=X!(X>365)!(X<60)!(X?.E1"".""1N.N) X"
^DD(7109,6,3)="Type a Number between 60 and 365, 0 Decimal Digits"
^DD(7109,6,21,0)="^^2^2^2940628^"
^DD(7109,6,21,1,0)="This defines the number of days grace period before calls will be purged"
^DD(7109,6,21,2,0)="that have been closed on an old version of software and not been edited."
^DD(7109,6,"DT")="2940304"
^DD(7109,8,0)="LOCATION^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(7109,8,3)="Answer must be 1-30 characters in length."
^DD(7109,8,21,0)="^^1^1^2980118^"
^DD(7109,8,21,1,0)="This is the account where NOIS is being run, ie. FORUM or your site."
^DD(7109,8,"DT")="2970901"
^DD(7109,9,0)="DEFAULT WORKLOAD PROMPT^S^1:YES;^0;9^Q"
^DD(7109,9,21,0)="^^1^1^2980118^"
^DD(7109,9,21,1,0)="This determines if workload can be prompted."
^DD(7109,9,"DT")="2960217"
^DD(7109,10,0)="WORKLOAD EDIT DAYS^NJ3,0^^0;10^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7109,10,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(7109,10,21,0)="^^4^4^2961012^^"
^DD(7109,10,21,1,0)="This is the number of days that are allowed for backdating any edits"
^DD(7109,10,21,2,0)="to workload for a NOIS call. No entry will assume 0 days (no backdating)."
^DD(7109,10,21,3,0)="Regardless of this entry, a NOIS call can only be edited from the date"
^DD(7109,10,21,4,0)="it was opened to the date it was closed."
^DD(7109,10,"DT")="2961012"
^DD(7109,11,0)="MAX CALLS^NJ7,0^^0;11^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,11,3)="Type a Number between 1 and 1000000, 0 Decimal Digits"
^DD(7109,11,21,0)="^^3^3^2961012^^"
^DD(7109,11,21,1,0)="This entry is the number of calls that are allowed to be displayed when"
^DD(7109,11,21,2,0)="listing calls. If the entry is blank, the maximum number of"
^DD(7109,11,21,3,0)="calls are allowed."
^DD(7109,11,"DT")="2961012"
^DD(7109,12,0)="MAX LINES^NJ7,0^^0;12^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,12,3)="Type a Number between 1 and 1000000, 0 Decimal Digits"
^DD(7109,12,21,0)="^^2^2^2961012^"
^DD(7109,12,21,1,0)="This entry is the number of lines that can be displayed when viewing calls."
^DD(7109,12,21,2,0)="If the entry is left blank, the maximum number of lines are allowed."
^DD(7109,12,"DT")="2961012"
^DD(7109,13,0)="NON-SPEC ENTRY ALERT^S^I:IGNORE;P:PROMPT;F:FORCE;^0;13^Q"
^DD(7109,13,21,0)="^^2^2^2961012^"
^DD(7109,13,21,1,0)="This field is used for tagging a new NOIS call entered by a non-specialist"
^DD(7109,13,21,2,0)="to be automatically alerted when the call is edited."
^DD(7109,13,"DT")="2961012"
^DD(7109,14,0)="CONTACT ALERT^S^I:IGNORE;P:PROMPT;F:FORCE;^0;14^Q"
^DD(7109,14,21,0)="^^2^2^2961012^"
^DD(7109,14,21,1,0)="This field is used for tagging a new NOIS call entered by a NOIS specialist"
^DD(7109,14,21,2,0)="to automatically notify the contact for the call."
^DD(7109,14,"DT")="2961012"
^DD(7109,15,0)="MRE LIMIT^NJ4,0^^0;15^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7109,15,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(7109,15,21,0)="^^2^2^2961230^"
^DD(7109,15,21,1,0)="This field controls the number of calls that will be preseved on users"
^DD(7109,15,21,2,0)="MRE list. These are the calls most recently edited by the user."
^DD(7109,15,"DT")="2961230"
^DD(7109,16,0)="MRA LIMIT^NJ4,0^^0;16^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7109,16,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(7109,16,21,0)="^^2^2^2961230^"
^DD(7109,16,21,1,0)="This field controls the number of calls that will be preserved on users"
^DD(7109,16,21,2,0)="MRA list. These are the calls most recently alerted to the user."
^DD(7109,16,"DT")="2961230"
^DD(7109,17,0)="MRU LIMIT^NJ4,0^^0;17^K:+X'=X!(X>1000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7109,17,3)="Type a Number between 0 and 1000, 0 Decimal Digits"
^DD(7109,17,21,0)="^^2^2^2961230^"
^DD(7109,17,21,1,0)="This field controls the number of lists preserved for the user as the"
^DD(7109,17,21,2,0)="most recently used lists."
^DD(7109,17,"DT")="2961230"
^DD(7109,20,0)="SHUTDOWN CLIENTS^S^1:YES;^2;1^Q"
^DD(7109,20,21,0)="^^1^1^2980118^"
^DD(7109,20,21,1,0)="This can be used to shutdown clients from using NOIS."
^DD(7109,20,"DT")="2970901"
^DD(7109,21,0)="CLIENT MAX CALLS^NJ7,0^^2;2^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,21,3)="Type a Number between 1 and 1000000, 0 Decimal Digits"
^DD(7109,21,21,0)="^^2^2^2971122^"
^DD(7109,21,21,1,0)="This controls the maximum number of calls in a list that can be"
^DD(7109,21,21,2,0)="returned to the client."
^DD(7109,21,"DT")="2971122"
^DD(7109,22,0)="CLIENT MAX LINES^NJ7,0^^2;3^K:+X'=X!(X>1000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,22,3)="Type a Number between 1 and 1000000, 0 Decimal Digits"
^DD(7109,22,21,0)="^^1^1^2971122^"
^DD(7109,22,21,1,0)="This limits the number of lines that are returned to the client."
^DD(7109,22,"DT")="2971122"
^DD(7109,23,0)="CLIENT TIMEOUT (SPEC)^NJ3,0^^2;4^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,23,3)="Type a Number between 1 and 600, 0 Decimal Digits"
^DD(7109,23,21,0)="^^2^2^2971122^"
^DD(7109,23,21,1,0)="This is the default for the number of minutes of inactivity that will"
^DD(7109,23,21,2,0)="timeout a Specialist when using the client application."
^DD(7109,23,"DT")="2971122"
^DD(7109,24,0)="CLIENT TIMEOUT (NON-SPEC)^NJ3,0^^2;5^K:+X'=X!(X>600)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,24,3)="Type a Number between 1 and 600, 0 Decimal Digits"
^DD(7109,24,21,0)="^^2^2^2971122^"
^DD(7109,24,21,1,0)="This is the default for the number of minutes of inactivity that will"
^DD(7109,24,21,2,0)="timeout a Non-Specialist when using the client application."
^DD(7109,24,"DT")="2971122"
^DD(7109,25,0)="CLIENT ALERT CHECK DEFAULT^NJ2,0^^2;6^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,25,3)="Type a Number between 1 and 60, 0 Decimal Digits"
^DD(7109,25,21,0)="^^3^3^2971122^"
^DD(7109,25,21,1,0)="This is the default for the number of minutes that the client will check"
^DD(7109,25,21,2,0)="the server for alerts. This is in addition to checks that are made"
^DD(7109,25,21,3,0)="every time the user makes an action that gets data from the server."
^DD(7109,25,"DT")="2971122"
^DD(7109,26,0)="CLIENT VERSION CHECK^F^^2;7^K:$L(X)>30!($L(X)<1) X"
^DD(7109,26,3)="Answer must be 1-30 characters in length."
^DD(7109,26,21,0)="^^3^3^2980129^"
^DD(7109,26,21,1,0)="This field controls any version checking for the client."
^DD(7109,26,21,2,0)="Only make an entry in this field to force a specific version of the"
^DD(7109,26,21,3,0)="client to run."
^DD(7109,26,"DT")="2980129"
^DD(7109,26.1,0)="CLIENT VERSION MESSAGE^F^^3;1^K:$L(X)>60!($L(X)<1) X"
^DD(7109,26.1,3)="Answer must be 1-60 characters in length."
^DD(7109,26.1,21,0)="^^1^1^2980129^"
^DD(7109,26.1,21,1,0)="This field displays as a message on the client if the version is not ok."
^DD(7109,26.1,"DT")="2980129"
^DD(7109,27,0)="CLIENT HIDDEN MESSAGE^7109.027^^4;0"
^DD(7109,28,0)="BATCH EDIT LIMIT^NJ4,0^^2;8^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(7109,28,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(7109,28,21,0)="^^2^2^2980616^"
^DD(7109,28,21,1,0)="This limits the number of calls that can be edited with the batch editor"
^DD(7109,28,21,2,0)="on the client."
^DD(7109,28,"DT")="2980616"
^DD(7109,29,0)="ENABLE WEB^S^1:YES;^2;9^Q"
^DD(7109,29,21,0)="^^1^1^2980719^"
^DD(7109,29,21,1,0)="This field will allow web links to be used in the client application."
^DD(7109,29,"DT")="2980719"
^DD(7109,30,0)="ENABLE WEB SOLUTIONS^S^1:YES;^2;10^Q"
^DD(7109,30,21,0)="^^3^3^2980719^"
^DD(7109,30,21,1,0)="This field will allow web pages to be created by the client application."
^DD(7109,30,21,2,0)="Note: the fields for WEB DIRECTORY and WEB DIRECTORY ADDRESS must"
^DD(7109,30,21,3,0)="also be filled in."
^DD(7109,30,"DT")="2980719"
^DD(7109,31,0)="WEB DIRECTORY^F^^1.8;1^K:$L(X)>120!($L(X)<3) X"
^DD(7109,31,3)="Answer must be 3-120 characters in length."
^DD(7109,31,21,0)="^^1^1^2980719^"
^DD(7109,31,21,1,0)="This field will be the directory where solution web pages are stored."
^DD(7109,31,"DT")="2980719"
^DD(7109,32,0)="WEB DIRECTORY ADDRESS^F^^1.8;2^K:$L(X)>120!($L(X)<3) X"
^DD(7109,32,3)="Answer must be 3-120 characters in length."
^DD(7109,32,21,0)="^^1^1^2980719^"
^DD(7109,32,21,1,0)="This field is the root URL for solution pages."
^DD(7109,32,"DT")="2980719"
^DD(7109,100,0)="HEADING DESCRIPTION^7109.01^^1;0"
^DD(7109,100,21,0)="^^2^2^2940628^"
^DD(7109,100,21,1,0)="This is text that can be entered to display as a menu header on NOIS"
^DD(7109,100,21,2,0)="options."
^DD(7109,101,0)="REMOVE HEADING DATE^D^^0;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(7109,101,21,0)="^^3^3^2940806^"
^DD(7109,101,21,1,0)="This field is used to remove any HEADING DESCRIPTION that exists."
^DD(7109,101,21,2,0)="The HEADING DESCRIPTION will be removed on this date by the nightly"
^DD(7109,101,21,3,0)="NOIS task."
^DD(7109,101,"DT")="2940806"
^DD(7109,"B","BATCH EDIT LIMIT",28)=""
^DD(7109,"B","CLIENT ALERT CHECK DEFAULT",25)=""
^DD(7109,"B","CLIENT HIDDEN MESSAGE",27)=""
^DD(7109,"B","CLIENT MAX CALLS",21)=""
^DD(7109,"B","CLIENT MAX LINES",22)=""
^DD(7109,"B","CLIENT TIMEOUT (NON-SPEC)",24)=""
^DD(7109,"B","CLIENT TIMEOUT (SPEC)",23)=""
^DD(7109,"B","CLIENT VERSION CHECK",26)=""
^DD(7109,"B","CLIENT VERSION MESSAGE",26.1)=""
^DD(7109,"B","CONTACT ALERT",14)=""
^DD(7109,"B","DEFAULT RESOURCE",3)=""
^DD(7109,"B","DEFAULT WORKLOAD PROMPT",9)=""
^DD(7109,"B","ENABLE WEB",29)=""
^DD(7109,"B","ENABLE WEB SOLUTIONS",30)=""
^DD(7109,"B","HEADING DESCRIPTION",100)=""
^DD(7109,"B","LOCATION",8)=""
^DD(7109,"B","MAX CALLS",11)=""
^DD(7109,"B","MAX LINES",12)=""
^DD(7109,"B","MRA LIMIT",16)=""
^DD(7109,"B","MRE LIMIT",15)=""
^DD(7109,"B","MRU LIMIT",17)=""
^DD(7109,"B","NAME",.01)=""
^DD(7109,"B","NOIS Site Name",.01)="1"
^DD(7109,"B","NON-SPEC ENTRY ALERT",13)=""
^DD(7109,"B","OPTIMIZATION VALUE CUTOFF",4)=""
^DD(7109,"B","PURGE DAYS, CANCEL",5)=""
^DD(7109,"B","PURGE DAYS, CLOSE",6)=""
^DD(7109,"B","REMOVE HEADING DATE",101)=""
^DD(7109,"B","SHUTDOWN CLIENTS",20)=""
^DD(7109,"B","USE",1)=""
^DD(7109,"B","WEB DIRECTORY",31)=""
^DD(7109,"B","WEB DIRECTORY ADDRESS",32)=""
^DD(7109,"B","WEB HELP",1.9)=""
^DD(7109,"B","WEB LINK",1.7)=""
^DD(7109,"B","WORKLOAD EDIT DAYS",10)=""
^DD(7109,"GL",0,1,.01)=""
^DD(7109,"GL",0,2,1)=""
^DD(7109,"GL",0,3,3)=""
^DD(7109,"GL",0,4,4)=""
^DD(7109,"GL",0,5,5)=""
^DD(7109,"GL",0,6,6)=""
^DD(7109,"GL",0,7,101)=""
^DD(7109,"GL",0,8,8)=""
^DD(7109,"GL",0,9,9)=""
^DD(7109,"GL",0,10,10)=""
^DD(7109,"GL",0,11,11)=""
^DD(7109,"GL",0,12,12)=""
^DD(7109,"GL",0,13,13)=""
^DD(7109,"GL",0,14,14)=""
^DD(7109,"GL",0,15,15)=""
^DD(7109,"GL",0,16,16)=""
^DD(7109,"GL",0,17,17)=""
^DD(7109,"GL",1,0,100)=""
^DD(7109,"GL",1.7,"E1,245",1.7)=""
^DD(7109,"GL",1.8,1,31)=""
^DD(7109,"GL",1.8,2,32)=""
^DD(7109,"GL",1.9,"E1,245",1.9)=""
^DD(7109,"GL",2,1,20)=""
^DD(7109,"GL",2,2,21)=""
^DD(7109,"GL",2,3,22)=""
^DD(7109,"GL",2,4,23)=""
^DD(7109,"GL",2,5,24)=""
^DD(7109,"GL",2,6,25)=""
^DD(7109,"GL",2,7,26)=""
^DD(7109,"GL",2,8,28)=""
^DD(7109,"GL",2,9,29)=""
^DD(7109,"GL",2,10,30)=""
^DD(7109,"GL",3,1,26.1)=""
^DD(7109,"GL",4,0,27)=""
^DD(7109,"IX",.01)=""
^DD(7109,"RQ",.01)=""
^DD(7109,"SB",7109.01,100)=""
^DD(7109,"SB",7109.027,27)=""
^DD(7109.01,0)="HEADING DESCRIPTION SUB-FIELD^^.01^1"
^DD(7109.01,0,"DT")="2940304"
^DD(7109.01,0,"NM","HEADING DESCRIPTION")=""
^DD(7109.01,0,"UP")="7109"
^DD(7109.01,.01,0)="HEADING DESCRIPTION^W^^0;1^Q"
^DD(7109.01,.01,"DT")="2940304"
^DD(7109.01,"B","HEADING DESCRIPTION",.01)=""
^DD(7109.01,"GL",0,1,.01)=""
^DD(7109.027,0)="CLIENT HIDDEN MESSAGE SUB-FIELD^^.01^1"
^DD(7109.027,0,"DT")="2980131"
^DD(7109.027,0,"NM","CLIENT HIDDEN MESSAGE")=""
^DD(7109.027,0,"UP")="7109"
^DD(7109.027,.01,0)="CLIENT HIDDEN MESSAGE^WL^^0;1^Q"
^DD(7109.027,.01,21,0)="^^1^1^2980131^"
^DD(7109.027,.01,21,1,0)="This message can be displayed on the client's about box."
^DD(7109.027,.01,"DT")="2980131"
^DD(7109.027,"B","CLIENT HIDDEN MESSAGE",.01)=""
^DD(7109.027,"GL",0,1,.01)=""
^DD(7115.1,0)="FIELD^^10^2"
^DD(7115.1,0,"DT")="3041227"
^DD(7115.1,0,"IX","B",7115.1,.01)=""
^DD(7115.1,0,"NM","HDIS DOMAIN")=""
^DD(7115.1,0,"VR")="1.0"
^DD(7115.1,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7115.1,.01,0)="DOMAIN^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(7115.1,.01,1,0)="^.1"
^DD(7115.1,.01,1,1,0)="7115.1^B"
^DD(7115.1,.01,1,1,1)="S ^HDIS(7115.1,""B"",$E(X,1,30),DA)="""""
^DD(7115.1,.01,1,1,2)="K ^HDIS(7115.1,""B"",$E(X,1,30),DA)"
^DD(7115.1,.01,1,1,"%D",0)="^.101^1^1^3050105^^"
^DD(7115.1,.01,1,1,"%D",1,0)="This cross-reference is by Domain."
^DD(7115.1,.01,3)="Answer must be 3-30 characters in length."
^DD(7115.1,.01,21,0)="^^2^2^3050105^"
^DD(7115.1,.01,21,1,0)="A subset of medicine, a natural grouping of clinical acts (e.g., demographics, vital signs, laboratory,"
^DD(7115.1,.01,21,2,0)="pharmacy)."
^DD(7115.1,.01,"DT")="3050105"
^DD(7115.1,10,0)="FILE/FIELD^7115.11PA^^FILE;0"
^DD(7115.1,10,21,0)="^^1^1^3041227^"
^DD(7115.1,10,21,1,0)="The File/Field associated with the record."
^DD(7115.1,10,"DT")="3041227"
^DD(7115.1,"B","DOMAIN",.01)=""
^DD(7115.1,"B","FILE/FIELD",10)=""
^DD(7115.1,"GL",0,1,.01)=""
^DD(7115.1,"GL","FILE",0,10)=""
^DD(7115.1,"IX",.01)=""
^DD(7115.1,"RQ",.01)=""
^DD(7115.1,"SB",7115.11,10)=""
^DD(7115.11,0)="FILE/FIELD SUB-FIELD^^.01^1"
^DD(7115.11,0,"DT")="3041227"
^DD(7115.11,0,"IX","B",7115.11,.01)=""
^DD(7115.11,0,"NM","FILE/FIELD")=""
^DD(7115.11,0,"UP")="7115.1"
^DD(7115.11,.01,0)="FILE/FIELD^RP7115.6'^HDIS(7115.6,^0;1^Q"
^DD(7115.11,.01,1,0)="^.1"
^DD(7115.11,.01,1,1,0)="7115.11^B"
^DD(7115.11,.01,1,1,1)="S ^HDIS(7115.1,DA(1),""FILE"",""B"",$E(X,1,30),DA)="""""
^DD(7115.11,.01,1,1,2)="K ^HDIS(7115.1,DA(1),""FILE"",""B"",$E(X,1,30),DA)"
^DD(7115.11,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7115.11,.01,1,1,"%D",1,0)="This cross-reference is by File/Field."
^DD(7115.11,.01,21,0)="^^1^1^3050105^"
^DD(7115.11,.01,21,1,0)="The File/Field associated with the record."
^DD(7115.11,.01,"DT")="3050105"
^DD(7115.11,"B","FILE/FIELD",.01)=""
^DD(7115.11,"GL",0,1,.01)=""
^DD(7115.11,"IX",.01)=""
^DD(7115.11,"RQ",.01)=""
^DD(7115.3,0)="FIELD^^5^6"
^DD(7115.3,0,"DDA")="N"
^DD(7115.3,0,"DT")="3050228"
^DD(7115.3,0,"IX","B",7115.3,.01)=""
^DD(7115.3,0,"NM","HDIS XML TEMPLATE")=""
^DD(7115.3,0,"VR")="1.0"
^DD(7115.3,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7115.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(7115.3,.01,1,0)="^.1"
^DD(7115.3,.01,1,1,0)="7115.3^B"
^DD(7115.3,.01,1,1,1)="S ^HDIS(7115.3,""B"",$E(X,1,30),DA)="""""
^DD(7115.3,.01,1,1,2)="K ^HDIS(7115.3,""B"",$E(X,1,30),DA)"
^DD(7115.3,.01,3)="Answer must be 3-30 characters in length."
^DD(7115.3,.01,21,0)="^.001^2^2^3050228^^^"
^DD(7115.3,.01,21,1,0)="This is the name of the XML Template.  Identifies which XML"
^DD(7115.3,.01,21,2,0)="schema the template relates too."
^DD(7115.3,.01,"DT")="3050228"
^DD(7115.3,1,0)="XML VERSION^RNJ7,4^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""5N.N) X"
^DD(7115.3,1,3)="Type a Number between 1 and 99, 4 Decimal Digits"
^DD(7115.3,1,21,0)="^^1^1^3050228^"
^DD(7115.3,1,21,1,0)="Identifies what version of XML this XML message will be used."
^DD(7115.3,1,"DT")="3040920"
^DD(7115.3,2,0)="ENCODING^RF^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(7115.3,2,3)="Answer must be 1-20 characters in length."
^DD(7115.3,2,21,0)="^^2^2^3050228^"
^DD(7115.3,2,21,1,0)="Defines the encoding which will be used when creating this XML message."
^DD(7115.3,2,21,2,0)="Normally set to ""UTF-8""."
^DD(7115.3,2,"DT")="3040920"
^DD(7115.3,3,0)="PRIMARY ELEMENT^RF^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(7115.3,3,3)="Answer must be 3-30 characters in length."
^DD(7115.3,3,21,0)="^^1^1^3050228^"
^DD(7115.3,3,21,1,0)="Identifies the Primary Element in the XML schema.  "
^DD(7115.3,3,"DT")="3040920"
^DD(7115.3,4,0)="ELEMENT NUMBER^7115.34^^SEQ;0"
^DD(7115.3,4,21,0)="^^3^3^3050228^"
^DD(7115.3,4,21,1,0)="Each element (line) in the XML message is assigned an element number."
^DD(7115.3,4,21,2,0)="The elements are processed by this number, so this data determines"
^DD(7115.3,4,21,3,0)="the sequence of data for the XML message."
^DD(7115.3,5,0)="INDENTATION^RNJ2,0^^0;5^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7115.3,5,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(7115.3,5,21,0)="^^3^3^3050228^"
^DD(7115.3,5,21,1,0)="Used to define the number of spaces for each element indentation.  The "
^DD(7115.3,5,21,2,0)="level indicator is multiplied by the indentation field.  This field can be"
^DD(7115.3,5,21,3,0)="set to zero, so that no indentation occurs."
^DD(7115.3,5,"DT")="3041208"
^DD(7115.3,"B","ELEMENT NUMBER",4)=""
^DD(7115.3,"B","ENCODING",2)=""
^DD(7115.3,"B","INDENTATION",5)=""
^DD(7115.3,"B","NAME",.01)=""
^DD(7115.3,"B","PRIMARY ELEMENT",3)=""
^DD(7115.3,"B","XML VERSION",1)=""
^DD(7115.3,"GL",0,1,.01)=""
^DD(7115.3,"GL",0,2,1)=""
^DD(7115.3,"GL",0,3,2)=""
^DD(7115.3,"GL",0,4,3)=""
^DD(7115.3,"GL",0,5,5)=""
^DD(7115.3,"GL","SEQ",0,4)=""
^DD(7115.3,"IX",.01)=""
^DD(7115.3,"RQ",.01)=""
^DD(7115.3,"RQ",1)=""
^DD(7115.3,"RQ",2)=""
^DD(7115.3,"RQ",3)=""
^DD(7115.3,"RQ",5)=""
^DD(7115.3,"SB",7115.34,4)=""
^DD(7115.34,0)="ELEMENT NUMBER SUB-FIELD^^.07^6"
^DD(7115.34,0,"DT")="3041129"
^DD(7115.34,0,"IX","B",7115.34,.01)=""
^DD(7115.34,0,"NM","ELEMENT NUMBER")=""
^DD(7115.34,0,"UP")="7115.3"
^DD(7115.34,.01,0)="ELEMENT NUMBER^MRNJ8,3^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(7115.34,.01,1,0)="^.1"
^DD(7115.34,.01,1,1,0)="7115.34^B"
^DD(7115.34,.01,1,1,1)="S ^HDIS(7115.3,DA(1),""SEQ"",""B"",$E(X,1,30),DA)="""""
^DD(7115.34,.01,1,1,2)="K ^HDIS(7115.3,DA(1),""SEQ"",""B"",$E(X,1,30),DA)"
^DD(7115.34,.01,3)="Type a Number between 1 and 9999, 3 Decimal Digits"
^DD(7115.34,.01,21,0)="^^2^2^3050228^"
^DD(7115.34,.01,21,1,0)="This field contains a numerical number which is used to determine the"
^DD(7115.34,.01,21,2,0)="sequence of data for the output xml document."
^DD(7115.34,.01,"DT")="3040923"
^DD(7115.34,.02,0)="ELEMENT NAME^RF^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(7115.34,.02,3)="Answer must be 2-30 characters in length."
^DD(7115.34,.02,21,0)="^^2^2^3050228^"
^DD(7115.34,.02,21,1,0)="This data is the name of the element which will be included in the"
^DD(7115.34,.02,21,2,0)="xml document when created."
^DD(7115.34,.02,"DT")="3040920"
^DD(7115.34,.03,0)="ELEMENT REQUIRED^S^1:REQUIRED;^0;3^Q"
^DD(7115.34,.03,21,0)="^^5^5^3050228^"
^DD(7115.34,.03,21,1,0)="This field is used to define whether this element is required for the"
^DD(7115.34,.03,21,2,0)="output xml document.  If set to required, the element is included"
^DD(7115.34,.03,21,3,0)="whether or not data exists for that element.  If set to not required,"
^DD(7115.34,.03,21,4,0)="the element will not be included in the xml document if there is no"
^DD(7115.34,.03,21,5,0)="data related to the element."
^DD(7115.34,.03,"DT")="3040921"
^DD(7115.34,.05,0)="LEVEL^RNJ2,0^^0;5^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7115.34,.05,3)="Type a Number between 0 and 20, 0 Decimal Digits"
^DD(7115.34,.05,21,0)="^^2^2^3050228^"
^DD(7115.34,.05,21,1,0)="This field defines what level the element is.  This field is used "
^DD(7115.34,.05,21,2,0)="when determining indentation of element names for ease of reading."
^DD(7115.34,.05,"DT")="3041129"
^DD(7115.34,.06,0)="HAS CHILDREN^S^1:HAS CHILDREN;^0;6^Q"
^DD(7115.34,.06,21,0)="^^5^5^3050228^"
^DD(7115.34,.06,21,1,0)="If this field is set to Has Children, then the program logic knows"
^DD(7115.34,.06,21,2,0)="that there is no data realting specifically to this element, and that"
^DD(7115.34,.06,21,3,0)="only the element name needs to be formatted.  If Has Children is set"
^DD(7115.34,.06,21,4,0)="to No, then the program knows that data is expected for this element,"
^DD(7115.34,.06,21,5,0)="even though it can be null."
^DD(7115.34,.06,"DT")="3040921"
^DD(7115.34,.07,0)="IS MULTIPLE^S^1:IS MULTIPLE;^0;7^Q"
^DD(7115.34,.07,21,0)="^^3^3^3050228^"
^DD(7115.34,.07,21,1,0)="This field indicates whether the element can have multiple entries or is"
^DD(7115.34,.07,21,2,0)="a single value.  For example, the SSN Element would not be a multiple,"
^DD(7115.34,.07,21,3,0)="However an element such as ""Description"" would have multiple lines."
^DD(7115.34,.07,"DT")="3040922"
^DD(7115.34,"B","ELEMENT NAME",.02)=""
^DD(7115.34,"B","ELEMENT NUMBER",.01)=""
^DD(7115.34,"B","ELEMENT REQUIRED",.03)=""
^DD(7115.34,"B","HAS CHILDREN",.06)=""
^DD(7115.34,"B","IS MULTIPLE",.07)=""
^DD(7115.34,"B","LEVEL",.05)=""
^DD(7115.34,"GL",0,1,.01)=""
^DD(7115.34,"GL",0,2,.02)=""
^DD(7115.34,"GL",0,3,.03)=""
^DD(7115.34,"GL",0,5,.05)=""
^DD(7115.34,"GL",0,6,.06)=""
^DD(7115.34,"GL",0,7,.07)=""
^DD(7115.34,"IX",.01)=""
^DD(7115.34,"RQ",.01)=""
^DD(7115.34,"RQ",.02)=""
^DD(7115.34,"RQ",.05)=""
^DD(7115.5,0)="FIELD^^1^4"
^DD(7115.5,0,"DT")="3041227"
^DD(7115.5,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(7115.5,0,"ID",.03)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(7115.5,.03,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(7115.5,0,"IX","B",7115.5,.01)=""
^DD(7115.5,0,"IX","C",7115.5,.02)=""
^DD(7115.5,0,"NM","HDIS STATUS")=""
^DD(7115.5,0,"PT",7118.25,.03)=""
^DD(7115.5,0,"VR")="1.0"
^DD(7115.5,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7115.5,.01,0)="STATUS^RF^^0;1^K:$L(X)>80!($L(X)<1)!'(X'?1P.E) X"
^DD(7115.5,.01,1,0)="^.1"
^DD(7115.5,.01,1,1,0)="7115.5^B"
^DD(7115.5,.01,1,1,1)="S ^HDIS(7115.5,""B"",$E(X,1,30),DA)="""""
^DD(7115.5,.01,1,1,2)="K ^HDIS(7115.5,""B"",$E(X,1,30),DA)"
^DD(7115.5,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7115.5,.01,1,1,"%D",1,0)="This cross-reference is by Status."
^DD(7115.5,.01,3)="Answer must be 1-80 characters in length."
^DD(7115.5,.01,21,0)="^^1^1^3041227^"
^DD(7115.5,.01,21,1,0)="Status name/text."
^DD(7115.5,.01,"DT")="3041227"
^DD(7115.5,.02,0)="STATUS CODE^RFI^^0;2^K:$L(X)>4!($L(X)<1) X"
^DD(7115.5,.02,1,0)="^.1"
^DD(7115.5,.02,1,1,0)="7115.5^C"
^DD(7115.5,.02,1,1,1)="S ^HDIS(7115.5,""C"",$E(X,1,30),DA)="""""
^DD(7115.5,.02,1,1,2)="K ^HDIS(7115.5,""C"",$E(X,1,30),DA)"
^DD(7115.5,.02,1,1,"%D",0)="^^1^1^3041227^"
^DD(7115.5,.02,1,1,"%D",1,0)="This cross-reference is by Status Code."
^DD(7115.5,.02,1,1,"DT")="3041227"
^DD(7115.5,.02,3)="Answer must be 1-4 characters in length."
^DD(7115.5,.02,21,0)="^^1^1^3041227^"
^DD(7115.5,.02,21,1,0)="Code representing the status."
^DD(7115.5,.02,"DT")="3041227"
^DD(7115.5,.03,0)="STATUS TYPE^RSI^1:CLIENT;2:SERVER;^0;3^Q"
^DD(7115.5,.03,21,0)="^^1^1^3041227^"
^DD(7115.5,.03,21,1,0)="Denotes where/how the status is used."
^DD(7115.5,.03,"DT")="3041227"
^DD(7115.5,1,0)="STATUS DESCRIPTION^7115.51^^1;0"
^DD(7115.5,1,21,0)="^^1^1^3050105^"
^DD(7115.5,1,21,1,0)="Description of the status and/or it's use."
^DD(7115.5,"B","STATUS",.01)=""
^DD(7115.5,"B","STATUS CODE",.02)=""
^DD(7115.5,"B","STATUS DESCRIPTION",1)=""
^DD(7115.5,"B","STATUS TYPE",.03)=""
^DD(7115.5,"GL",0,1,.01)=""
^DD(7115.5,"GL",0,2,.02)=""
^DD(7115.5,"GL",0,3,.03)=""
^DD(7115.5,"GL",1,0,1)=""
^DD(7115.5,"IX",.01)=""
^DD(7115.5,"IX",.02)=""
^DD(7115.5,"RQ",.01)=""
^DD(7115.5,"RQ",.02)=""
^DD(7115.5,"RQ",.03)=""
^DD(7115.5,"SB",7115.51,1)=""
^DD(7115.51,0)="STATUS DESCRIPTION SUB-FIELD^^.01^1"
^DD(7115.51,0,"DT")="3041227"
^DD(7115.51,0,"NM","STATUS DESCRIPTION")=""
^DD(7115.51,0,"UP")="7115.5"
^DD(7115.51,.01,0)="STATUS DESCRIPTION^W^^0;1"
^DD(7115.51,.01,21,0)="^^1^1^3041227^"
^DD(7115.51,.01,21,1,0)="Description of the status and/or it's use."
^DD(7115.51,.01,"DT")="3041227"
^DD(7115.51,"B","STATUS DESCRIPTION",.01)=""
^DD(7115.51,"GL",0,1,.01)=""
^DD(7115.6,0)="FIELD^^.04^3"
^DD(7115.6,0,"DT")="3050112"
^DD(7115.6,0,"IX","B",7115.6,.01)=""
^DD(7115.6,0,"NM","HDIS FILE/FIELD")=""
^DD(7115.6,0,"PT",7115.11,.01)=""
^DD(7115.6,0,"PT",7118.13,.01)=""
^DD(7115.6,0,"PT",7118.22,.02)=""
^DD(7115.6,0,"PT",7118.25,.02)=""
^DD(7115.6,0,"VR")="1.0"
^DD(7115.6,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7115.6,.01,0)="FILE/FIELD NAME^RFI^^0;1^K:$L(X)>100!($L(X)<1)!'(X'?1P.E) X"
^DD(7115.6,.01,1,0)="^.1"
^DD(7115.6,.01,1,1,0)="7115.6^B"
^DD(7115.6,.01,1,1,1)="S ^HDIS(7115.6,""B"",$E(X,1,30),DA)="""""
^DD(7115.6,.01,1,1,2)="K ^HDIS(7115.6,""B"",$E(X,1,30),DA)"
^DD(7115.6,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7115.6,.01,1,1,"%D",1,0)="This cross-reference is by File/Field Name."
^DD(7115.6,.01,3)="Answer must be 1-100 characters in length."
^DD(7115.6,.01,21,0)="^^1^1^3041227^"
^DD(7115.6,.01,21,1,0)="The File/Field Name associated with a VistA File/Field combination."
^DD(7115.6,.01,"DT")="3050407"
^DD(7115.6,.02,0)="FILE NUMBER^RFI^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(7115.6,.02,3)="Answer must be 1-30 characters in length."
^DD(7115.6,.02,21,0)="^.001^1^1^3041227^^"
^DD(7115.6,.02,21,1,0)="The File Number assigned to the file in VistA."
^DD(7115.6,.02,"DT")="3050111"
^DD(7115.6,.04,0)="FIELD NUMBER^RFI^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(7115.6,.04,3)="Answer must be 1-30 characters in length."
^DD(7115.6,.04,21,0)="^.001^1^1^3050105^^^"
^DD(7115.6,.04,21,1,0)="The Field Number assigned to the field in VistA."
^DD(7115.6,.04,23,0)="^.001^1^1^3050105^^^"
^DD(7115.6,.04,23,1,0)="The Field Number is used if the Field level is needed for a file."
^DD(7115.6,.04,"DT")="3050112"
^DD(7115.6,"B","FIELD NUMBER",.04)=""
^DD(7115.6,"B","FILE NUMBER",.02)=""
^DD(7115.6,"B","FILE/FIELD NAME",.01)=""
^DD(7115.6,"GL",0,1,.01)=""
^DD(7115.6,"GL",0,2,.02)=""
^DD(7115.6,"GL",0,4,.04)=""
^DD(7115.6,"IX",.01)=""
^DD(7115.6,"RQ",.01)=""
^DD(7115.6,"RQ",.02)=""
^DD(7115.6,"RQ",.04)=""
^DD(7118.11,0)="FIELD^^99.991^6"
^DD(7118.11,0,"DT")="3050120"
^DD(7118.11,0,"IX","AVUID",7118.11,99.99)=""
^DD(7118.11,0,"IX","B",7118.11,.01)=""
^DD(7118.11,0,"NM","HDIS TERM/CONCEPT VUID ASSOCIATION")=""
^DD(7118.11,0,"PT",7118.22,.04)=""
^DD(7118.11,0,"VR")="1.0"
^DD(7118.11,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7118.11,.01,0)="TERM/CONCEPT^RF^^0;1^K:$L(X)>245!($L(X)<1)!'(X'?1P.E) X"
^DD(7118.11,.01,1,0)="^.1"
^DD(7118.11,.01,1,1,0)="7118.11^B"
^DD(7118.11,.01,1,1,1)="S ^HDISV(7118.11,""B"",$E(X,1,30),DA)="""""
^DD(7118.11,.01,1,1,2)="K ^HDISV(7118.11,""B"",$E(X,1,30),DA)"
^DD(7118.11,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7118.11,.01,1,1,"%D",1,0)="This cross-reference is by Term/Concept."
^DD(7118.11,.01,3)="Answer must be 1-245 characters in length."
^DD(7118.11,.01,21,0)="^^2^2^3041227^"
^DD(7118.11,.01,21,1,0)="A Term is any string.  A Concept is an abstract expression of a meaning.  A concept may have multiple"
^DD(7118.11,.01,21,2,0)="expressions.  For instance, the concept of blood pressure can be expressed as hypertension or high blood pressure."
^DD(7118.11,.01,"DT")="3041227"
^DD(7118.11,1.01,0)="DATE/TIME CREATED^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7118.11,1.01,21,0)="^^3^3^3041227^"
^DD(7118.11,1.01,21,1,0)="The date and timethe record is created by HDIS during VUID Implementation."
^DD(7118.11,1.01,21,2,0)=" "
^DD(7118.11,1.01,21,3,0)="It will not be set if the VUID is assigned by Enterprise Reference Terminology (ERT)."
^DD(7118.11,1.01,"DT")="3041227"
^DD(7118.11,1.02,0)="NATIONAL STANDARD FLAG^RSI^1:YES;0:NO;^1;2^Q"
^DD(7118.11,1.02,21,0)="^^1^1^3050120^"
^DD(7118.11,1.02,21,1,0)="The Term/Concept is part of the national standard."
^DD(7118.11,1.02,"DT")="3050120"
^DD(7118.11,10,0)="FILE/FIELD^7118.13PA^^FILE;0"
^DD(7118.11,10,21,0)="^^1^1^3050113^"
^DD(7118.11,10,21,1,0)="The File/Field associated with the record."
^DD(7118.11,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(7118.11,99.99,1,0)="^.1"
^DD(7118.11,99.99,1,1,0)="7118.11^AVUID"
^DD(7118.11,99.99,1,1,1)="S ^HDISV(7118.11,""AVUID"",$E(X,1,30),DA)="""""
^DD(7118.11,99.99,1,1,2)="K ^HDISV(7118.11,""AVUID"",$E(X,1,30),DA)"
^DD(7118.11,99.99,1,1,"%D",0)="^^1^1^3050111^"
^DD(7118.11,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(7118.11,99.99,1,1,"DT")="3050111"
^DD(7118.11,99.99,3)="Answer must be 1-20 characters in length."
^DD(7118.11,99.99,21,0)="^.001^1^1^3050210^^"
^DD(7118.11,99.99,21,1,0)="VHA Unique ID (VUID).  A unique meaningless integer assigned to reference terms VHA wide."
^DD(7118.11,99.99,"DT")="3050210"
^DD(7118.11,99.991,0)="EFFECTIVE DATE/TIME^7118.12DA^^TERMSTATUS;0"
^DD(7118.11,99.991,21,0)="^^2^2^3050106^"
^DD(7118.11,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each"
^DD(7118.11,99.991,21,2,0)="reference term."
^DD(7118.11,"B","DATE/TIME CREATED",1.01)=""
^DD(7118.11,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(7118.11,"B","FILE/FIELD",10)=""
^DD(7118.11,"B","NATIONAL STANDARD FLAG",1.02)=""
^DD(7118.11,"B","TERM/CONCEPT",.01)=""
^DD(7118.11,"B","VUID",99.99)=""
^DD(7118.11,"GL",0,1,.01)=""
^DD(7118.11,"GL",1,1,1.01)=""
^DD(7118.11,"GL",1,2,1.02)=""
^DD(7118.11,"GL","FILE",0,10)=""
^DD(7118.11,"GL","TERMSTATUS",0,99.991)=""
^DD(7118.11,"GL","VUID",1,99.99)=""
^DD(7118.11,"IX",.01)=""
^DD(7118.11,"IX",99.99)=""
^DD(7118.11,"RQ",.01)=""
^DD(7118.11,"RQ",1.02)=""
^DD(7118.11,"RQ",99.99)=""
^DD(7118.11,"SB",7118.12,99.991)=""
^DD(7118.11,"SB",7118.13,10)=""
^DD(7118.12,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(7118.12,0,"DT")="3050113"
^DD(7118.12,0,"IX","B",7118.12,.01)=""
^DD(7118.12,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(7118.12,0,"UP")="7118.11"
^DD(7118.12,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(7118.12,.01,1,0)="^.1"
^DD(7118.12,.01,1,1,0)="7118.12^B"
^DD(7118.12,.01,1,1,1)="S ^HDISV(7118.11,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(7118.12,.01,1,1,2)="K ^HDISV(7118.11,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(7118.12,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7118.12,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(7118.12,.01,21,0)="^.001^2^2^3050113^^^^"
^DD(7118.12,.01,21,1,0)="This is the date/time when the Status of the reference term was"
^DD(7118.12,.01,21,2,0)="established."
^DD(7118.12,.01,"DT")="3050113"
^DD(7118.12,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(7118.12,.02,21,0)="^^3^3^3041227^"
^DD(7118.12,.02,21,1,0)="The Status of a reference term is either 'active' or 'inactive'.  If 'active', then the term will be"
^DD(7118.12,.02,21,2,0)="accessible by end-users to document a particular patient event.  If 'inactive', then the term will only be"
^DD(7118.12,.02,21,3,0)="accessible by the application to display legacy data."
^DD(7118.12,.02,"DT")="3041227"
^DD(7118.12,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(7118.12,"B","STATUS",.02)=""
^DD(7118.12,"GL",0,1,.01)=""
^DD(7118.12,"GL",0,2,.02)=""
^DD(7118.12,"IX",.01)=""
^DD(7118.12,"RQ",.01)=""
^DD(7118.12,"RQ",.02)=""
^DD(7118.13,0)="FILE/FIELD SUB-FIELD^^.01^1"
^DD(7118.13,0,"DT")="3050113"
^DD(7118.13,0,"IX","B",7118.13,.01)=""
^DD(7118.13,0,"NM","FILE/FIELD")=""
^DD(7118.13,0,"UP")="7118.11"
^DD(7118.13,.01,0)="FILE/FIELD^P7115.6'^HDIS(7115.6,^0;1^Q"
^DD(7118.13,.01,1,0)="^.1"
^DD(7118.13,.01,1,1,0)="7118.13^B"
^DD(7118.13,.01,1,1,1)="S ^HDISV(7118.11,DA(1),""FILE"",""B"",$E(X,1,30),DA)="""""
^DD(7118.13,.01,1,1,2)="K ^HDISV(7118.11,DA(1),""FILE"",""B"",$E(X,1,30),DA)"
^DD(7118.13,.01,1,1,"%D",0)="^^1^1^3050113^"
^DD(7118.13,.01,1,1,"%D",1,0)="This cross-reference is by File/Field."
^DD(7118.13,.01,21,0)="^^1^1^3050113^"
^DD(7118.13,.01,21,1,0)="The File/Field associated with the record."
^DD(7118.13,.01,"DT")="3050118"
^DD(7118.13,"B","FILE/FIELD",.01)=""
^DD(7118.13,"GL",0,1,.01)=""
^DD(7118.13,"IX",.01)=""
^DD(7118.21,0)="FIELD^^.03^3"
^DD(7118.21,0,"DT")="3041227"
^DD(7118.21,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(7118.21,0,"IX","B",7118.21,.01)=""
^DD(7118.21,0,"NM","HDIS SYSTEM")=""
^DD(7118.21,0,"PT",7118.22,.01)=""
^DD(7118.21,0,"PT",7118.25,.01)=""
^DD(7118.21,0,"PT",7118.29,.01)=""
^DD(7118.21,0,"VR")="1.0"
^DD(7118.21,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7118.21,.01,0)="FACILITY^RP4'^DIC(4,^0;1^Q"
^DD(7118.21,.01,1,0)="^.1"
^DD(7118.21,.01,1,1,0)="7118.21^B"
^DD(7118.21,.01,1,1,1)="S ^HDISF(7118.21,""B"",$E(X,1,30),DA)="""""
^DD(7118.21,.01,1,1,2)="K ^HDISF(7118.21,""B"",$E(X,1,30),DA)"
^DD(7118.21,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7118.21,.01,1,1,"%D",1,0)="This cross-reference is by Facility."
^DD(7118.21,.01,3)=""
^DD(7118.21,.01,21,0)="^^1^1^3041227^"
^DD(7118.21,.01,21,1,0)="The VA Medical Center (VAMC) associated with the system."
^DD(7118.21,.01,"DT")="3050124"
^DD(7118.21,.02,0)="DOMAIN/IP ADDRESS^RF^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(7118.21,.02,3)="Answer must be 1-70 characters in length."
^DD(7118.21,.02,21,0)="^^1^1^3041227^"
^DD(7118.21,.02,21,1,0)="The Domain/IP Address associated with the system."
^DD(7118.21,.02,"DT")="3050114"
^DD(7118.21,.03,0)="TYPE^RS^0:TEST;1:PRODUCTION;^0;3^Q"
^DD(7118.21,.03,21,0)="^.001^1^1^3041227^^"
^DD(7118.21,.03,21,1,0)="The Type of system."
^DD(7118.21,.03,"DT")="3050124"
^DD(7118.21,"B","DOMAIN/IP ADDRESS",.02)=""
^DD(7118.21,"B","FACILITY",.01)=""
^DD(7118.21,"B","TYPE",.03)=""
^DD(7118.21,"GL",0,1,.01)=""
^DD(7118.21,"GL",0,2,.02)=""
^DD(7118.21,"GL",0,3,.03)=""
^DD(7118.21,"IX",.01)=""
^DD(7118.21,"RQ",.01)=""
^DD(7118.21,"RQ",.02)=""
^DD(7118.21,"RQ",.03)=""
^DD(7118.22,0)="FIELD^^.05^5"
^DD(7118.22,0,"DT")="3041227"
^DD(7118.22,0,"IX","B",7118.22,.01)=""
^DD(7118.22,0,"NM","HDIS FACILITY TERM/CONCEPT ASSOCIATION")=""
^DD(7118.22,0,"VR")="1.0"
^DD(7118.22,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7118.22,.01,0)="SYSTEM^RP7118.21'^HDISF(7118.21,^0;1^Q"
^DD(7118.22,.01,1,0)="^.1"
^DD(7118.22,.01,1,1,0)="7118.22^B"
^DD(7118.22,.01,1,1,1)="S ^HDISF(7118.22,""B"",$E(X,1,30),DA)="""""
^DD(7118.22,.01,1,1,2)="K ^HDISF(7118.22,""B"",$E(X,1,30),DA)"
^DD(7118.22,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7118.22,.01,1,1,"%D",1,0)="This cross-reference is by System."
^DD(7118.22,.01,3)=""
^DD(7118.22,.01,21,0)="^^1^1^3041227^"
^DD(7118.22,.01,21,1,0)="The system that sent the record."
^DD(7118.22,.01,"DT")="3050119"
^DD(7118.22,.02,0)="FILE/FIELD^RP7115.6'I^HDIS(7115.6,^0;2^Q"
^DD(7118.22,.02,21,0)="^^1^1^3041227^"
^DD(7118.22,.02,21,1,0)="The File/Field associated with the record."
^DD(7118.22,.02,"DT")="3050119"
^DD(7118.22,.03,0)="INTERNAL REFERENCE^RFI^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(7118.22,.03,3)="Answer must be 1-50 characters in length."
^DD(7118.22,.03,21,0)="^^2^2^3041227^"
^DD(7118.22,.03,21,1,0)="The Internal Reference at the VAMC tht sent the record.  Could be an Internal Entry Numbers (IENS) or"
^DD(7118.22,.03,21,2,0)="the internal value for a set of codes."
^DD(7118.22,.03,"DT")="3050119"
^DD(7118.22,.04,0)="TERM/CONCEPT^RP7118.11'I^HDISV(7118.11,^0;4^Q"
^DD(7118.22,.04,21,0)="^^2^2^3041227^"
^DD(7118.22,.04,21,1,0)="A Term is any string.  A Concept is an abstract expression of a meaning.  A concept may have multiple"
^DD(7118.22,.04,21,2,0)="expressions.  For instance, the concept of blood pressure can be expressed as hypertension or high blood pressure."
^DD(7118.22,.04,"DT")="3050119"
^DD(7118.22,.05,0)="DATE/TIME ASSOCIATED^RDI^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7118.22,.05,.1)="DATE/TIME TERM/CONCEPT ASSOCIATED"
^DD(7118.22,.05,21,0)="^^1^1^3041227^"
^DD(7118.22,.05,21,1,0)="The date and time the record is assigned to the Term/Concept."
^DD(7118.22,.05,"DT")="3041227"
^DD(7118.22,"B","DATE/TIME ASSOCIATED",.05)=""
^DD(7118.22,"B","FILE/FIELD",.02)=""
^DD(7118.22,"B","INTERNAL REFERENCE",.03)=""
^DD(7118.22,"B","SYSTEM",.01)=""
^DD(7118.22,"B","TERM/CONCEPT",.04)=""
^DD(7118.22,"GL",0,1,.01)=""
^DD(7118.22,"GL",0,2,.02)=""
^DD(7118.22,"GL",0,3,.03)=""
^DD(7118.22,"GL",0,4,.04)=""
^DD(7118.22,"GL",0,5,.05)=""
^DD(7118.22,"IX",.01)=""
^DD(7118.22,"RQ",.01)=""
^DD(7118.22,"RQ",.02)=""
^DD(7118.22,"RQ",.03)=""
^DD(7118.22,"RQ",.04)=""
^DD(7118.22,"RQ",.05)=""
^DD(7118.25,0)="FIELD^^.04^4"
^DD(7118.25,0,"DDA")="N"
^DD(7118.25,0,"DT")="3050110"
^DD(7118.25,0,"IX","B",7118.25,.01)=""
^DD(7118.25,0,"NM","HDIS VUID IMPLEMENTATION STATUS")=""
^DD(7118.25,0,"VR")="1.0"
^DD(7118.25,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7118.25,.01,0)="SYSTEM^RP7118.21'^HDISF(7118.21,^0;1^Q"
^DD(7118.25,.01,1,0)="^.1"
^DD(7118.25,.01,1,1,0)="7118.25^B"
^DD(7118.25,.01,1,1,1)="S ^HDISF(7118.25,""B"",$E(X,1,30),DA)="""""
^DD(7118.25,.01,1,1,2)="K ^HDISF(7118.25,""B"",$E(X,1,30),DA)"
^DD(7118.25,.01,1,1,"%D",0)="^^1^1^3041227^"
^DD(7118.25,.01,1,1,"%D",1,0)="The cross-reference is by Facility."
^DD(7118.25,.01,3)="Select the system this status data is for"
^DD(7118.25,.01,21,0)="^^1^1^3050110^"
^DD(7118.25,.01,21,1,0)="The VAMC system being processed."
^DD(7118.25,.01,"DT")="3050110"
^DD(7118.25,.02,0)="FILE/FIELD^RP7115.6'I^HDIS(7115.6,^0;2^Q"
^DD(7118.25,.02,21,0)="^^1^1^3041227^"
^DD(7118.25,.02,21,1,0)="The File/Field associated with the record."
^DD(7118.25,.02,"DT")="3050105"
^DD(7118.25,.03,0)="STATUS^RP7115.5'I^HDIS(7115.5,^0;3^Q"
^DD(7118.25,.03,21,0)="^^1^1^3041227^"
^DD(7118.25,.03,21,1,0)="This indicates the status of the VUID implementation process for the facility, domain and file/field."
^DD(7118.25,.03,"DT")="3050105"
^DD(7118.25,.04,0)="STATUS DATE/TIME^RDI^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(7118.25,.04,21,0)="^^1^1^3041227^"
^DD(7118.25,.04,21,1,0)="The Date/Time that this status was entered."
^DD(7118.25,.04,"DT")="3050105"
^DD(7118.25,"B","FILE/FIELD",.02)=""
^DD(7118.25,"B","STATUS",.03)=""
^DD(7118.25,"B","STATUS DATE/TIME",.04)=""
^DD(7118.25,"B","SYSTEM",.01)=""
^DD(7118.25,"GL",0,1,.01)=""
^DD(7118.25,"GL",0,2,.02)=""
^DD(7118.25,"GL",0,3,.03)=""
^DD(7118.25,"GL",0,4,.04)=""
^DD(7118.25,"IX",.01)=""
^DD(7118.25,"RQ",.01)=""
^DD(7118.25,"RQ",.02)=""
^DD(7118.25,"RQ",.03)=""
^DD(7118.25,"RQ",.04)=""
^DD(7118.29,0)="FIELD^^52^12"
^DD(7118.29,0,"DDA")="N"
^DD(7118.29,0,"DT")="3050314"
^DD(7118.29,0,"IX","B",7118.29,.01)=""
^DD(7118.29,0,"NM","HDIS PARAMETER")=""
^DD(7118.29,0,"VR")="1.0"
^DD(7118.29,0,"VRPK")="HEALTH DATA & INFORMATICS"
^DD(7118.29,.01,0)="SYSTEM^RP7118.21'^HDISF(7118.21,^0;1^Q"
^DD(7118.29,.01,1,0)="^.1"
^DD(7118.29,.01,1,1,0)="7118.29^B"
^DD(7118.29,.01,1,1,1)="S ^HDISF(7118.29,""B"",$E(X,1,30),DA)="""""
^DD(7118.29,.01,1,1,2)="K ^HDISF(7118.29,""B"",$E(X,1,30),DA)"
^DD(7118.29,.01,3)="Enter your facility number"
^DD(7118.29,.01,21,0)="^^1^1^3050110^"
^DD(7118.29,.01,21,1,0)="The VAMC system that the parameter values are for"
^DD(7118.29,.01,"DT")="3050110"
^DD(7118.29,.02,0)="SYSTEM TYPE^SI^1:CLIENT;2:SERVER;^0;2^Q"
^DD(7118.29,.02,3)="Enter type of HDIS system this location is"
^DD(7118.29,.02,21,0)="^^1^1^3041220^"
^DD(7118.29,.02,21,1,0)="Denotes type of system"
^DD(7118.29,.02,"DT")="3050322"
^DD(7118.29,11,0)="DISABLE VUID ACTIVITY^S^0:NO;1:YES;^1;1^Q"
^DD(7118.29,11,3)="Enter 'YES' to disable all VUID activity, else enter 'NO'"
^DD(7118.29,11,21,0)="^^1^1^3050314^^"
^DD(7118.29,11,21,1,0)="Flag denoting if all VUID related activity should be disabled"
^DD(7118.29,11,"DT")="3050314"
^DD(7118.29,12,0)="VUID SERVER LOCATION^F^^1;2^K:$L(X)>100!($L(X)<1) X"
^DD(7118.29,12,3)="Enter the location of the VUID Server"
^DD(7118.29,12,21,0)="^^2^2^3041220^"
^DD(7118.29,12,21,1,0)="Where the VUID Server is located.  This could be a MailMan domain (ex: "
^DD(7118.29,12,21,2,0)="FORUM.VA.GOV) or a TCP/IP address (ex: 127.0.0.1)."
^DD(7118.29,12,"DT")="3041220"
^DD(7118.29,13,0)="VUID SERVER CONNECTION TYPE^S^1:MAILMAN;^1;3^Q"
^DD(7118.29,13,3)="Select the type of connection to use when communicating with the VUID Server"
^DD(7118.29,13,21,0)="^^1^1^3041220^"
^DD(7118.29,13,21,1,0)="Type of connection to use when communicating with the VUID Server"
^DD(7118.29,13,"DT")="3041220"
^DD(7118.29,21,0)="VUID SERVER OPTION^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^DD(7118.29,21,3)="Enter the MailMan server option name for the VUID Server"
^DD(7118.29,21,21,0)="^^1^1^3041220^"
^DD(7118.29,21,21,1,0)="Name of MailMan server type option that message should be forwarded to"
^DD(7118.29,21,"DT")="3041220"
^DD(7118.29,31,0)="DISABLE STATUS UPDATES^S^0:NO;1:YES;^3;1^Q"
^DD(7118.29,31,3)="Enter 'YES' to stop sending status updates to the Status Server"
^DD(7118.29,31,21,0)="^^2^2^3041220^"
^DD(7118.29,31,21,1,0)="Flag denoting if sending of status update messages to the Status Server "
^DD(7118.29,31,21,2,0)="should be disabled"
^DD(7118.29,31,"DT")="3041220"
^DD(7118.29,32,0)="STATUS SERVER LOCATION^F^^3;2^K:$L(X)>100!($L(X)<1) X"
^DD(7118.29,32,3)="Enter the location of the Status Server"
^DD(7118.29,32,21,0)="^^2^2^3041220^"
^DD(7118.29,32,21,1,0)="Where the Status Server is located.  This could be a MailMan domain (ex: "
^DD(7118.29,32,21,2,0)="FORUM.VA.GOV) or a TCP/IP address (ex: 127.0.0.1)."
^DD(7118.29,32,"DT")="3041220"
^DD(7118.29,33,0)="STATUS SERVER CONNECTION TYPE^S^1:MAILMAN;^3;3^Q"
^DD(7118.29,33,3)="Enter the type of connection to use when communicating with the Status Server"
^DD(7118.29,33,21,0)="^^1^1^3041220^"
^DD(7118.29,33,21,1,0)="Type of connection to use when communicating with the Status Server"
^DD(7118.29,33,"DT")="3041220"
^DD(7118.29,41,0)="STATUS SERVER OPTION^F^^4;1^K:$L(X)>30!($L(X)<1) X"
^DD(7118.29,41,3)="Enter MailMan server option for Status Server"
^DD(7118.29,41,21,0)="^^1^1^3041220^"
^DD(7118.29,41,21,1,0)="Name of MailMan server type option that message should be forwarded to"
^DD(7118.29,41,"DT")="3041220"
^DD(7118.29,51,0)="LAST NON-STANDARD VUID^F^^5;1^K:$L(X)>18!($L(X)<1) X"
^DD(7118.29,51,3)="Enter last non-standard VUID assigned by server"
^DD(7118.29,51,21,0)="^^1^1^3041220^"
^DD(7118.29,51,21,1,0)="Last non-standard VUID assigned by centralized VUID Server"
^DD(7118.29,51,"DT")="3041220"
^DD(7118.29,52,0)="ENDING NON-STANDARD VUID^F^^5;2^K:$L(X)>18!($L(X)<1) X"
^DD(7118.29,52,3)="Enter last non-standard VUID that can be assigned by server"
^DD(7118.29,52,21,0)="^^1^1^3041220^"
^DD(7118.29,52,21,1,0)="Last non-standard VUID that can be assigned by centralized VUID Server"
^DD(7118.29,52,"DT")="3041220"
^DD(7118.29,"B","DISABLE STATUS UPDATES",31)=""
^DD(7118.29,"B","DISABLE VUID ACTIVITY",11)=""
^DD(7118.29,"B","ENDING NON-STANDARD VUID",52)=""
^DD(7118.29,"B","LAST NON-STANDARD VUID",51)=""
^DD(7118.29,"B","STATUS SERVER CONNECTION TYPE",33)=""
^DD(7118.29,"B","STATUS SERVER LOCATION",32)=""
^DD(7118.29,"B","STATUS SERVER OPTION",41)=""
^DD(7118.29,"B","SYSTEM",.01)=""
^DD(7118.29,"B","SYSTEM TYPE",.02)=""
^DD(7118.29,"B","VUID SERVER CONNECTION TYPE",13)=""
^DD(7118.29,"B","VUID SERVER LOCATION",12)=""
^DD(7118.29,"B","VUID SERVER OPTION",21)=""
^DD(7118.29,"GL",0,1,.01)=""
^DD(7118.29,"GL",0,2,.02)=""
^DD(7118.29,"GL",1,1,11)=""
^DD(7118.29,"GL",1,2,12)=""
^DD(7118.29,"GL",1,3,13)=""
^DD(7118.29,"GL",2,1,21)=""
^DD(7118.29,"GL",3,1,31)=""
^DD(7118.29,"GL",3,2,32)=""
^DD(7118.29,"GL",3,3,33)=""
^DD(7118.29,"GL",4,1,41)=""
^DD(7118.29,"GL",5,1,51)=""
^DD(7118.29,"GL",5,2,52)=""
^DD(7118.29,"IX",.01)=""
^DD(7118.29,"RQ",.01)=""
^DD(7335.7,0)="FIELD^^7^8"
^DD(7335.7,0,"DDA")="N"
^DD(7335.7,0,"DT")="2930106"
^DD(7335.7,0,"IX","B",7335.7,.01)=""
^DD(7335.7,0,"IX","C",7335.7,1)=""
^DD(7335.7,0,"NM","REGULATORY AGENCY")=""
^DD(7335.7,0,"PT",6925.0164,3)=""
^DD(7335.7,0,"VR")="7.0"
^DD(7335.7,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(7335.7,.01,1,0)="^.1"
^DD(7335.7,.01,1,1,0)="7335.7^B"
^DD(7335.7,.01,1,1,1)="S ^OFM(7335.7,""B"",$E(X,1,30),DA)="""""
^DD(7335.7,.01,1,1,2)="K ^OFM(7335.7,""B"",$E(X,1,30),DA)"
^DD(7335.7,.01,3)="Enter a 3-50 character name for the regulatory agency."
^DD(7335.7,.01,21,0)="^^4^4^2930312^^^^"
^DD(7335.7,.01,21,1,0)="This field contains the name for a regulatory agency."
^DD(7335.7,.01,21,2,0)=" "
^DD(7335.7,.01,21,3,0)="NOTE: Care should be taken when entering new regulatory agencies as new"
^DD(7335.7,.01,21,4,0)="entries may not be eligible for prioritization points."
^DD(7335.7,.01,"DT")="2921008"
^DD(7335.7,1,0)="ABBREV^FX^^0;2^K:X[""""""""!($A(X)=45)!($L(X)>8)!($L(X)<1) X"
^DD(7335.7,1,1,0)="^.1"
^DD(7335.7,1,1,1,0)="7335.7^C"
^DD(7335.7,1,1,1,1)="S ^OFM(7335.7,""C"",$E(X,1,30),DA)="""""
^DD(7335.7,1,1,1,2)="K ^OFM(7335.7,""C"",$E(X,1,30),DA)"
^DD(7335.7,1,1,1,"DT")="2920220"
^DD(7335.7,1,3)="Enter a 1-8 character abbreviation for the regulatory agency."
^DD(7335.7,1,21,0)="^^1^1^2930311^"
^DD(7335.7,1,21,1,0)="This field contains an abbreviation or acronym for the regulatory agency."
^DD(7335.7,1,"DT")="2920710"
^DD(7335.7,2,0)="STREET ADDRESS LINE 1^F^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(7335.7,2,3)="Enter a 1-25 character street address for the regulatory agency. A second line has been provided for longer addresses."
^DD(7335.7,2,21,0)="^^2^2^2930311^"
^DD(7335.7,2,21,1,0)="This field contains the first line of the regulatory agency's street"
^DD(7335.7,2,21,2,0)="address."
^DD(7335.7,2,"DT")="2920723"
^DD(7335.7,3,0)="STREET ADDRESS LINE 2^F^^0;4^K:$L(X)>25!($L(X)<1) X"
^DD(7335.7,3,3)="Enter a 1-25 character street address for the regulatory agency. This second line has been provided for longer addresses."
^DD(7335.7,3,21,0)="^^2^2^2930311^"
^DD(7335.7,3,21,1,0)="This field contains the second line of the regulatory agency's street"
^DD(7335.7,3,21,2,0)="address."
^DD(7335.7,3,"DT")="2920723"
^DD(7335.7,4,0)="CITY^F^^0;5^K:$L(X)>25!($L(X)<1) X"
^DD(7335.7,4,3)="Enter a 1-25 character city for the regulatory agency."
^DD(7335.7,4,21,0)="^^1^1^2930311^"
^DD(7335.7,4,21,1,0)="This field contains the city in which the regulatory agency is located."
^DD(7335.7,4,"DT")="2920723"
^DD(7335.7,5,0)="STATE^P5'^DIC(5,^0;6^Q"
^DD(7335.7,5,3)="Enter the 2 character state code."
^DD(7335.7,5,21,0)="^^1^1^2930311^"
^DD(7335.7,5,21,1,0)="This field is a pointer to the State File (#5)."
^DD(7335.7,5,"DT")="2920723"
^DD(7335.7,6,0)="ZIP CODE^F^^0;7^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(7335.7,6,3)="Enter the 5 or 9 (use hyphen ""-"") digit zip code for the regulatory agency."
^DD(7335.7,6,21,0)="^^1^1^2930311^"
^DD(7335.7,6,21,1,0)="This field contains the 5 or 9 digit zip code of the regulatory agency."
^DD(7335.7,6,"DT")="2920723"
^DD(7335.7,7,0)="DEFICIENCY TYPE^S^1:ACCREDITATION;2:SAFETY;0:OTHER;^0;8^Q"
^DD(7335.7,7,3)="Enter deficiency type issued by this agency; Used in prioritization"
^DD(7335.7,7,21,0)="^^4^4^2930311^^"
^DD(7335.7,7,21,1,0)="This field is used during Minor Design and Minor Miscellaneous"
^DD(7335.7,7,21,2,0)="Prioritization Methodology.  Prioritization points are given for"
^DD(7335.7,7,21,3,0)="Accreditation deficiency citations and another section gives points for"
^DD(7335.7,7,21,4,0)="Safety deficiency citations."
^DD(7335.7,7,"DT")="2930106"
^DD(7335.7,"B","ABBREV",1)=""
^DD(7335.7,"B","CITY",4)=""
^DD(7335.7,"B","DEFICIENCY TYPE",7)=""
^DD(7335.7,"B","NAME",.01)=""
^DD(7335.7,"B","STATE",5)=""
^DD(7335.7,"B","STREET ADDRESS LINE 1",2)=""
^DD(7335.7,"B","STREET ADDRESS LINE 2",3)=""
^DD(7335.7,"B","ZIP CODE",6)=""
^DD(7335.7,"GL",0,1,.01)=""
^DD(7335.7,"GL",0,2,1)=""
^DD(7335.7,"GL",0,3,2)=""
^DD(7335.7,"GL",0,4,3)=""
^DD(7335.7,"GL",0,5,4)=""
^DD(7335.7,"GL",0,6,5)=""
^DD(7335.7,"GL",0,7,6)=""
^DD(7335.7,"GL",0,8,7)=""
^DD(7335.7,"IX",.01)=""
^DD(7335.7,"IX",1)=""
^DD(7335.7,"RQ",.01)=""
^DD(7336.3,0)="FIELD^^3^4"
^DD(7336.3,0,"DT")="2930105"
^DD(7336.3,0,"IX","B",7336.3,.01)=""
^DD(7336.3,0,"NM","OFM SPACE CLASSIFICATION")=""
^DD(7336.3,0,"PT",6925,264)=""
^DD(7336.3,0,"VR")="7.0"
^DD(7336.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(7336.3,.01,1,0)="^.1"
^DD(7336.3,.01,1,1,0)="7336.3^B"
^DD(7336.3,.01,1,1,1)="S ^OFM(7336.3,""B"",$E(X,1,30),DA)="""""
^DD(7336.3,.01,1,1,2)="K ^OFM(7336.3,""B"",$E(X,1,30),DA)"
^DD(7336.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(7336.3,.01,21,0)="^^6^6^2930312^"
^DD(7336.3,.01,21,1,0)="This contains the space classification name. The field is used to"
^DD(7336.3,.01,21,2,0)="determine  Minor and Minor Misc. prioritization points."
^DD(7336.3,.01,21,3,0)=" "
^DD(7336.3,.01,21,4,0)="NOTE: New entries to the OFM Space Classification File requires Programmer"
^DD(7336.3,.01,21,5,0)="access. Care should be taken when entering new space classifications as"
^DD(7336.3,.01,21,6,0)="new entries may not be eligible for prioritization points."
^DD(7336.3,1,0)="APPLICABLE PROGRAM^F^^0;2^K:$L(X)>11!($L(X)<2)!'(X?2.UP) X"
^DD(7336.3,1,3)="Enter comma delimited list of Applicable Construction Programs"
^DD(7336.3,1,21,0)="^^2^2^2930316^^"
^DD(7336.3,1,21,1,0)="This contains a comma delimited string of program types (eg 'MM' -> Minor"
^DD(7336.3,1,21,2,0)="Misc, 'MI' ->) for which the space classification is applicable."
^DD(7336.3,1,"DT")="2930105"
^DD(7336.3,2,0)="MINOR PRIORITY POINTS^NJ2,0^^0;3^K:+X'=X!(X>14)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7336.3,2,3)="Type a Number between 0 and 14, 0 Decimal Digits"
^DD(7336.3,2,21,0)="^^2^2^2930312^^"
^DD(7336.3,2,21,1,0)="This field contains the number of prioritization points, given on a Minor"
^DD(7336.3,2,21,2,0)="program, for the space classification."
^DD(7336.3,2,"DT")="2930105"
^DD(7336.3,3,0)="MINOR MISC PRIORITY POINTS^NJ2,0^^0;4^K:+X'=X!(X>14)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7336.3,3,3)="Type a Number between 0 and 14, 0 Decimal Digits"
^DD(7336.3,3,21,0)="^^2^2^2930312^"
^DD(7336.3,3,21,1,0)="This field contains the number of prioritization points, given on a Minor"
^DD(7336.3,3,21,2,0)="Misc. program, for the space classification."
^DD(7336.3,3,"DT")="2930105"
^DD(7336.3,"B","APPLICABLE PROGRAM",1)=""
^DD(7336.3,"B","MINOR MISC PRIORITY POINTS",3)=""
^DD(7336.3,"B","MINOR PRIORITY POINTS",2)=""
^DD(7336.3,"B","NAME",.01)=""
^DD(7336.3,"GL",0,1,.01)=""
^DD(7336.3,"GL",0,2,1)=""
^DD(7336.3,"GL",0,3,2)=""
^DD(7336.3,"GL",0,4,3)=""
^DD(7336.3,"IX",.01)=""
^DD(7336.3,"RQ",.01)=""
^DD(7336.6,0)="FIELD^^4^5"
^DD(7336.6,0,"DDA")="N"
^DD(7336.6,0,"DT")="2921218"
^DD(7336.6,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(7336.6,0,"IX","B",7336.6,.01)=""
^DD(7336.6,0,"IX","C",7336.6,1)=""
^DD(7336.6,0,"NM","OFM H089 CHAPTERS")=""
^DD(7336.6,0,"PT",6925.03,.01)=""
^DD(7336.6,0,"PT",6928,4.9)=""
^DD(7336.6,0,"VR")="7.0"
^DD(7336.6,.01,0)="NAME^RF^^0;1^K:$L(X)>55!($L(X)<3)!'(X'?1P.E) X"
^DD(7336.6,.01,1,0)="^.1"
^DD(7336.6,.01,1,1,0)="7336.6^B"
^DD(7336.6,.01,1,1,1)="S ^OFM(7336.6,""B"",$E(X,1,30),DA)="""""
^DD(7336.6,.01,1,1,2)="K ^OFM(7336.6,""B"",$E(X,1,30),DA)"
^DD(7336.6,.01,3)="Enter a 3-55 character H-08-9 Chapter Title."
^DD(7336.6,.01,21,0)="^^2^2^2930318^^"
^DD(7336.6,.01,21,1,0)="This field contains a Planning Criteria for VA Facilities (H-08-9)"
^DD(7336.6,.01,21,2,0)="Chapter title."
^DD(7336.6,.01,"DT")="2921218"
^DD(7336.6,1,0)="CODE^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:X'?3N X"
^DD(7336.6,1,1,0)="^.1"
^DD(7336.6,1,1,1,0)="7336.6^C"
^DD(7336.6,1,1,1,1)="S ^OFM(7336.6,""C"",$E(X,1,30),DA)="""""
^DD(7336.6,1,1,1,2)="K ^OFM(7336.6,""C"",$E(X,1,30),DA)"
^DD(7336.6,1,1,1,"%D",0)="^^1^1^2921218^"
^DD(7336.6,1,1,1,"%D",1,0)="This enables selection by H-08-9 3 digit code"
^DD(7336.6,1,1,1,"DT")="2921218"
^DD(7336.6,1,3)="Enter 3 digit H-08-9 Chapter code."
^DD(7336.6,1,21,0)="^^2^2^2930317^^"
^DD(7336.6,1,21,1,0)="This field contains the three digit Planning Criteria for VA Facilities"
^DD(7336.6,1,21,2,0)="(H-08-9) code."
^DD(7336.6,1,"DT")="2921218"
^DD(7336.6,2,0)="GROUP^S^BU:BED UNITS;OP:OUTPATIENT TREATMENT;CS:CLINICAL SUPPORT SERVICES;NC:NATIONAL CEMETERY SYSTEM;VB:VETERANS BENEFITS ADMINISTRATION;^0;3^Q"
^DD(7336.6,2,3)="Choose the H-08-9 Chapter group."
^DD(7336.6,2,21,0)="^^2^2^2930317^^"
^DD(7336.6,2,21,1,0)="This field is a set of codes based on the Planning Criteria for VA"
^DD(7336.6,2,21,2,0)="Facilities (H-08-9) groupings."
^DD(7336.6,2,"DT")="2921218"
^DD(7336.6,3,0)="INACTIVE FLAG^S^1:INACTIVE;0:ACTIVE;^0;4^Q"
^DD(7336.6,3,3)="Enter '1' if inactive; '0' or no entry means active"
^DD(7336.6,3,21,0)="^^2^2^2930317^"
^DD(7336.6,3,21,1,0)="This field is a set of codes (1 for inactive, 0 for active) to indicate"
^DD(7336.6,3,21,2,0)="whether or not an H-08-9 has been made obsolete."
^DD(7336.6,3,"DT")="2921218"
^DD(7336.6,4,0)="FACILITY TYPE^F^^0;5^K:$L(X)>19!($L(X)<3) X"
^DD(7336.6,4,3)="Enter comma delimited list of Applicable Facility Types, ie VBA,VHA,NCS"
^DD(7336.6,4,21,0)="^^2^2^2930317^"
^DD(7336.6,4,21,1,0)="This field contains a comma delimited list of facility types. (Examples:"
^DD(7336.6,4,21,2,0)="VHA,VBA,NCS  or VBA,NCS etc)"
^DD(7336.6,4,"DT")="2921218"
^DD(7336.6,"B","CODE",1)=""
^DD(7336.6,"B","FACILITY TYPE",4)=""
^DD(7336.6,"B","GROUP",2)=""
^DD(7336.6,"B","INACTIVE FLAG",3)=""
^DD(7336.6,"B","NAME",.01)=""
^DD(7336.6,"GL",0,1,.01)=""
^DD(7336.6,"GL",0,2,1)=""
^DD(7336.6,"GL",0,3,2)=""
^DD(7336.6,"GL",0,4,3)=""
^DD(7336.6,"GL",0,5,4)=""
^DD(7336.6,"IX",.01)=""
^DD(7336.6,"IX",1)=""
^DD(7336.6,"RQ",.01)=""
^DD(7336.6,"RQ",1)=""
^DD(7336.8,0)="FIELD^^17^19"
^DD(7336.8,0,"DT")="2970430"
^DD(7336.8,0,"IX","B",7336.8,.01)=""
^DD(7336.8,0,"NM","OFM PROJ CATEGORY")=""
^DD(7336.8,0,"PT",6925,158.1)=""
^DD(7336.8,0,"PT",6925,158.8)=""
^DD(7336.8,0,"PT",6925,159.2)=""
^DD(7336.8,0,"PT",6925,159.9)=""
^DD(7336.8,0,"PT",6925.3,4)=""
^DD(7336.8,0,"VR")="7.0"
^DD(7336.8,0,"VRPK")="EN"
^DD(7336.8,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(7336.8,.01,1,0)="^.1"
^DD(7336.8,.01,1,1,0)="7336.8^B"
^DD(7336.8,.01,1,1,1)="S ^OFM(7336.8,""B"",$E(X,1,30),DA)="""""
^DD(7336.8,.01,1,1,2)="K ^OFM(7336.8,""B"",$E(X,1,30),DA)"
^DD(7336.8,.01,3)="Enter a 3-40 character Project category name."
^DD(7336.8,.01,21,0)="^^7^7^2930317^^"
^DD(7336.8,.01,21,1,0)="This field gives the name of a project category. The field is used to "
^DD(7336.8,.01,21,2,0)="determine prioritization points for NRM, Minor, and Minor Misc. programs,"
^DD(7336.8,.01,21,3,0)="as well as, budget category for all programs."
^DD(7336.8,.01,21,4,0)=" "
^DD(7336.8,.01,21,5,0)="NOTE: New entries to the OFM Project Category File require Programmer"
^DD(7336.8,.01,21,6,0)="access. Care should be taken when entering new project categories, as"
^DD(7336.8,.01,21,7,0)="new entries may not be eligible for prioritization points."
^DD(7336.8,.01,"DT")="2921217"
^DD(7336.8,1,0)="APPLICABLE PROGRAMS^RF^^0;2^K:$L(X)>23!($L(X)<2) X"
^DD(7336.8,1,3)="Enter comma delimited list of internal program codes"
^DD(7336.8,1,21,0)="^^3^3^2930317^^^^"
^DD(7336.8,1,21,1,0)="This field contains a comma delimited list of applicable programs. The"
^DD(7336.8,1,21,2,0)="list entered here will determine the choices displayed during project"
^DD(7336.8,1,21,3,0)="application.  (Examples: MM,NR,MA  or MM,MI)"
^DD(7336.8,1,"DT")="2920811"
^DD(7336.8,2,0)="NRM CATEGORY GROUP^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(7336.8,2,3)="Enter a 3-30 character NRM category group name."
^DD(7336.8,2,21,0)="^^2^2^2930317^^^^"
^DD(7336.8,2,21,1,0)="This field contains an NRM category group name associated with the"
^DD(7336.8,2,21,2,0)="project category."
^DD(7336.8,2,22)=""
^DD(7336.8,2,"DT")="2920811"
^DD(7336.8,3,0)="MINOR & MINOR MISC CATEGORY GR^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(7336.8,3,3)="Enter a 3-30 character Minor/Minor Misc. category group name."
^DD(7336.8,3,21,0)="^^2^2^2930317^"
^DD(7336.8,3,21,1,0)="This field contains an Minor and Minor Misc. category group name"
^DD(7336.8,3,21,2,0)="associated with the project category."
^DD(7336.8,3,"DT")="2920811"
^DD(7336.8,4,0)="MAJOR CATEGORY GROUP^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(7336.8,4,3)="Enter a 3-30 character Major category group name."
^DD(7336.8,4,21,0)="^^2^2^2930317^"
^DD(7336.8,4,21,1,0)="This field contains an Major category group name associated with the"
^DD(7336.8,4,21,2,0)="project category."
^DD(7336.8,4,"DT")="2921214"
^DD(7336.8,5,0)="FACILITY TYPE SELECTABLE^RF^^0;6^K:$L(X)>25!($L(X)<2) X"
^DD(7336.8,5,3)="Enter comma delimited list of Facility Types"
^DD(7336.8,5,21,0)="^^3^3^2930317^^"
^DD(7336.8,5,21,1,0)="This field contains a comma delimited list of facility types. The"
^DD(7336.8,5,21,2,0)="list entered here will determine the choices displayed during project"
^DD(7336.8,5,21,3,0)="application.  (Examples: VHA,VBA,NCS  or VBA,NCS etc)"
^DD(7336.8,5,"DT")="2921214"
^DD(7336.8,6,0)="VBA CATEGORY GROUP^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(7336.8,6,3)="Enter a 3-30 character VBA category group name."
^DD(7336.8,6,21,0)="^^2^2^2930317^"
^DD(7336.8,6,21,1,0)="This field contains an VBA category group name associated with the"
^DD(7336.8,6,21,2,0)="project category."
^DD(7336.8,6,"DT")="2921214"
^DD(7336.8,7,0)="NCS CATEGORY GROUP^F^^0;8^K:$L(X)>30!($L(X)<3) X"
^DD(7336.8,7,3)="Enter National Cemetery Category Group name, 3-30 characters in length"
^DD(7336.8,7,21,0)="^^2^2^2930317^"
^DD(7336.8,7,21,1,0)="This field contains an NCS category group name associated with the"
^DD(7336.8,7,21,2,0)="project category."
^DD(7336.8,7,"DT")="2921214"
^DD(7336.8,7.5,0)="FMS CODE (VHA)^F^^0;9^K:$L(X)>2!($L(X)<2)!'(X?2U) X"
^DD(7336.8,7.5,3)="Answer must be 2 characters in length."
^DD(7336.8,7.5,21,0)="^^3^3^2970806^"
^DD(7336.8,7.5,21,1,0)="The FMS # code that corresponds to the project category for VHA"
^DD(7336.8,7.5,21,2,0)="facilities. VBA facilities use a code of 'VB' and NCS facilities use a"
^DD(7336.8,7.5,21,3,0)="code of 'CM'."
^DD(7336.8,7.5,"DT")="2970806"
^DD(7336.8,8,0)="MA BUDGET CATEGORY^*P7336.9'^OFM(7336.9,^1;1^S DIC(""S"")=""I $P(^(0),U,2)[""""MA"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7336.8,8,3)="Enter default budget category for Major Projects of this Functional Category"
^DD(7336.8,8,12)="Only allow selection of Budget Categories appropriate for Majors"
^DD(7336.8,8,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""MA"""""""
^DD(7336.8,8,21,0)="^^2^2^2930317^"
^DD(7336.8,8,21,1,0)="This field is a pointer to the OFM Budget Category (#7336.8) associated"
^DD(7336.8,8,21,2,0)="with a Major program in this project category."
^DD(7336.8,8,"DT")="2921221"
^DD(7336.8,9,0)="MI BUDGET CATEGORY^*P7336.9'^OFM(7336.9,^1;2^S DIC(""S"")=""I $P(^(0),U,2)[""""MI"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7336.8,9,3)="Enter default budget category for Minor Projects of this Functional Category"
^DD(7336.8,9,12)="Only allow selection of Budget Categories appropriate for Minor Projects"
^DD(7336.8,9,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""MI"""""""
^DD(7336.8,9,21,0)="^^2^2^2930317^"
^DD(7336.8,9,21,1,0)="This field is a pointer to the OFM Budget Category (#7336.8) associated"
^DD(7336.8,9,21,2,0)="with a Minor program in this project category."
^DD(7336.8,9,"DT")="2921221"
^DD(7336.8,10,0)="MM BUDGET CATEGORY^*P7336.9'^OFM(7336.9,^1;3^S DIC(""S"")=""I $P(^(0),U,2)[""""MM"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7336.8,10,3)="Enter default budget category for Minor Misc Projects of this Functional Category"
^DD(7336.8,10,12)="Only allow selection of Budget Categories appropriate for Minor Misc Projects"
^DD(7336.8,10,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""MM"""""""
^DD(7336.8,10,21,0)="^^2^2^2930317^"
^DD(7336.8,10,21,1,0)="This field is a pointer to the OFM Budget Category (#7336.8) associated"
^DD(7336.8,10,21,2,0)="with a Minor Misc. program in this project category."
^DD(7336.8,10,"DT")="2921221"
^DD(7336.8,11,0)="NRM BUDGET CATEGORY^*P7336.9'^OFM(7336.9,^1;4^S DIC(""S"")=""I $P(^(0),U,2)[""""NR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(7336.8,11,3)="Enter default budget category for NRM Projects of this Functional Category"
^DD(7336.8,11,12)="Only allow selection of Budget Categories appropriate for NRM projects"
^DD(7336.8,11,12.1)="S DIC(""S"")=""I $P(^(0),U,2)[""""NR"""""""
^DD(7336.8,11,21,0)="^^2^2^2930317^"
^DD(7336.8,11,21,1,0)="This field is a pointer to the OFM Budget Category (#7336.8) associated"
^DD(7336.8,11,21,2,0)="with a NRM program in this project category."
^DD(7336.8,11,"DT")="2921221"
^DD(7336.8,12,0)="NRM PRIORITY POINTS^NJ2,0^^1;5^K:+X'=X!(X>15)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7336.8,12,3)="Type a Number between 0 and 15, 0 Decimal Digits"
^DD(7336.8,12,21,0)="^^2^2^2930317^"
^DD(7336.8,12,21,1,0)="This field contains a number between 0 and 15 of priority points to be"
^DD(7336.8,12,21,2,0)="assigned to an NRM program in this project category."
^DD(7336.8,12,"DT")="2930104"
^DD(7336.8,13,0)="MINOR PRIORITY POINTS^F^^1;6^K:$L(X)>11!($L(X)<1) X"
^DD(7336.8,13,3)="Enter slash ('/') delimited list of points up to 11 characters"
^DD(7336.8,13,21,0)="^^2^2^2930317^"
^DD(7336.8,13,21,1,0)="This field contains a slash ('/') delimited list of priority points to be"
^DD(7336.8,13,21,2,0)="assigned to an Minor program in this project category."
^DD(7336.8,13,"DT")="2930105"
^DD(7336.8,14,0)="MINOR MISC PRIORITY POINT^F^^1;7^K:$L(X)>11!($L(X)<1) X"
^DD(7336.8,14,3)="Enter slash ('/') delimited list of points up to 11 characters"
^DD(7336.8,14,21,0)="^^2^2^2930317^"
^DD(7336.8,14,21,1,0)="This field contains a slash ('/') delimited list of priority points to be"
^DD(7336.8,14,21,2,0)="assigned to an Minor Misc. program in this project category."
^DD(7336.8,14,"DT")="2930106"
^DD(7336.8,15,0)="LEASE PRIORITY POINTS^NJ2,0^^1;8^K:+X'=X!(X>14)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7336.8,15,3)="Type a Number between 0 and 14, 0 Decimal Digits"
^DD(7336.8,15,21,0)="^^2^2^2950512^"
^DD(7336.8,15,21,1,0)="This field contains a number of priority points to be assigned to a LEASE"
^DD(7336.8,15,21,2,0)="project with this project category."
^DD(7336.8,15,"DT")="2950512"
^DD(7336.8,16,0)="NRM BONUS CATEGORY^S^1:YES;0:NO;^2;1^Q"
^DD(7336.8,16,3)="Enter Yes if selectable as a NRM Bonus Category"
^DD(7336.8,16,21,0)="^^2^2^2950519^"
^DD(7336.8,16,21,1,0)="This field indicates if the entry is a NRM bonus category. It determines"
^DD(7336.8,16,21,2,0)="the choices displayed for Bonus Category during editing of projects."
^DD(7336.8,16,"DT")="2950519"
^DD(7336.8,17,0)="NRM BONUS CATEGORY POINTS^NJ2,0^^2;2^K:+X'=X!(X>15)!(X<0)!(X?.E1"".""1N.N) X"
^DD(7336.8,17,3)="Type a Number between 0 and 15, 0 Decimal Digits"
^DD(7336.8,17,21,0)="^^2^2^2950522^^"
^DD(7336.8,17,21,1,0)="This field contains a number between 0 and 15 of priority points to be"
^DD(7336.8,17,21,2,0)="assigned to a NRM project with the bonus category."
^DD(7336.8,17,"DT")="2950519"
^DD(7336.8,"B","APPLICABLE PROGRAMS",1)=""
^DD(7336.8,"B","FACILITY TYPE SELECTABLE",5)=""
^DD(7336.8,"B","FMS CODE (VHA)",7.5)=""
^DD(7336.8,"B","LEASE PRIORITY POINTS",15)=""
^DD(7336.8,"B","MA BUDGET CATEGORY",8)=""
^DD(7336.8,"B","MAJOR CATEGORY GROUP",4)=""
^DD(7336.8,"B","MI BUDGET CATEGORY",9)=""
^DD(7336.8,"B","MINOR & MINOR MISC CATEGORY GR",3)=""
^DD(7336.8,"B","MINOR MISC PRIORITY POINT",14)=""
^DD(7336.8,"B","MINOR PRIORITY POINTS",13)=""
^DD(7336.8,"B","MM BUDGET CATEGORY",10)=""
^DD(7336.8,"B","NAME",.01)=""
^DD(7336.8,"B","NCS CATEGORY GROUP",7)=""
^DD(7336.8,"B","NRM BONUS CATEGORY",16)=""
^DD(7336.8,"B","NRM BONUS CATEGORY POINTS",17)=""
^DD(7336.8,"B","NRM BUDGET CATEGORY",11)=""
^DD(7336.8,"B","NRM CATEGORY GROUP",2)=""
^DD(7336.8,"B","NRM PRIORITY POINTS",12)=""
^DD(7336.8,"B","VBA CATEGORY GROUP",6)=""
^DD(7336.8,"GL",0,1,.01)=""
^DD(7336.8,"GL",0,2,1)=""
^DD(7336.8,"GL",0,3,2)=""
^DD(7336.8,"GL",0,4,3)=""
^DD(7336.8,"GL",0,5,4)=""
^DD(7336.8,"GL",0,6,5)=""
^DD(7336.8,"GL",0,7,6)=""
^DD(7336.8,"GL",0,8,7)=""
^DD(7336.8,"GL",0,9,7.5)=""
^DD(7336.8,"GL",1,1,8)=""
^DD(7336.8,"GL",1,2,9)=""
^DD(7336.8,"GL",1,3,10)=""
^DD(7336.8,"GL",1,4,11)=""
^DD(7336.8,"GL",1,5,12)=""
^DD(7336.8,"GL",1,6,13)=""
^DD(7336.8,"GL",1,7,14)=""
^DD(7336.8,"GL",1,8,15)=""
^DD(7336.8,"GL",2,1,16)=""
^DD(7336.8,"GL",2,2,17)=""
^DD(7336.8,"IX",.01)=""
^DD(7336.8,"RQ",.01)=""
^DD(7336.8,"RQ",1)=""
^DD(7336.8,"RQ",5)=""
^DD(7336.9,0)="FIELD^^2^3"
^DD(7336.9,0,"DT")="2970424"
^DD(7336.9,0,"IX","B",7336.9,.01)=""
^DD(7336.9,0,"NM","OFM BUDGET CATEGORY")=""
^DD(7336.9,0,"PT",6925,158.2)=""
^DD(7336.9,0,"PT",6925,159.3)=""
^DD(7336.9,0,"PT",7336.8,8)=""
^DD(7336.9,0,"PT",7336.8,9)=""
^DD(7336.9,0,"PT",7336.8,10)=""
^DD(7336.9,0,"PT",7336.8,11)=""
^DD(7336.9,0,"VR")="7.0"
^DD(7336.9,0,"VRPK")="EN"
^DD(7336.9,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(7336.9,.01,1,0)="^.1"
^DD(7336.9,.01,1,1,0)="7336.9^B"
^DD(7336.9,.01,1,1,1)="S ^OFM(7336.9,""B"",$E(X,1,30),DA)="""""
^DD(7336.9,.01,1,1,2)="K ^OFM(7336.9,""B"",$E(X,1,30),DA)"
^DD(7336.9,.01,3)="Enter a 3-40 character Budget Category name."
^DD(7336.9,.01,21,0)="^^6^6^2930318^^^"
^DD(7336.9,.01,21,1,0)="This field contains the name of a budget category."
^DD(7336.9,.01,21,2,0)=" "
^DD(7336.9,.01,21,3,0)="NOTE: New entries in the OFM Budget Category require programmer access."
^DD(7336.9,.01,21,4,0)="Care should be used when entering new categories, as the file provides"
^DD(7336.9,.01,21,5,0)="defaults the for Budget Category field (158.2) of the Construction File"
^DD(7336.9,.01,21,6,0)="(#6925) file based on Project Category field (158.1)."
^DD(7336.9,.01,"DT")="2921221"
^DD(7336.9,1,0)="APPLICABLE PROGRAMS^RF^^0;2^K:$L(X)>14!($L(X)<2) X"
^DD(7336.9,1,3)="Answer must be 2-14 characters in length."
^DD(7336.9,1,21,0)="^^3^3^2930317^^^"
^DD(7336.9,1,21,1,0)="This field contains a comma delimited list of applicable programs. The"
^DD(7336.9,1,21,2,0)="list entered here will determine the choices displayed during project"
^DD(7336.9,1,21,3,0)="application.  (Examples: MM,NR,MA  or MM,MI, etc)"
^DD(7336.9,1,"DT")="2970424"
^DD(7336.9,2,0)="FACILITY TYPE SELECTABLE^RF^^0;3^K:$L(X)>25!($L(X)<2) X"
^DD(7336.9,2,3)="Enter comma delimited list of Facility Types"
^DD(7336.9,2,21,0)="^^3^3^2930317^^"
^DD(7336.9,2,21,1,0)="This field contains a comma delimited list of facility types. The"
^DD(7336.9,2,21,2,0)="list entered here will determine the choices displayed during project"
^DD(7336.9,2,21,3,0)="application.  (Examples: VHA,VBA,NCS  or VBA,NCS etc)"
^DD(7336.9,2,"DT")="2921214"
^DD(7336.9,"B","APPLICABLE PROGRAMS",1)=""
^DD(7336.9,"B","FACILITY TYPE SELECTABLE",2)=""
^DD(7336.9,"B","NAME",.01)=""
^DD(7336.9,"GL",0,1,.01)=""
^DD(7336.9,"GL",0,2,1)=""
^DD(7336.9,"GL",0,3,2)=""
^DD(7336.9,"IX",.01)=""
^DD(7336.9,"RQ",.01)=""
^DD(7336.9,"RQ",1)=""
^DD(7336.9,"RQ",2)=""
^DD(8925,0)="FIELD^^70202^74"
^DD(8925,0,"DDA")="N"
^DD(8925,0,"DIK")="TIUXRC"
^DD(8925,0,"DIKOLD")="TIUXRC"
^DD(8925,0,"DT")="2970505"
^DD(8925,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8925,0,"ID",.07)="W ""   "",$E($P(^(0),U,7),4,5)_""-""_$E($P(^(0),U,7),6,7)_""-""_$E($P(^(0),U,7),2,3)"
^DD(8925,0,"IX",2270,8925,.02)=""
^DD(8925,0,"IX","AA",8925,.02)=""
^DD(8925,0,"IX","AA1",8925,.03)=""
^DD(8925,0,"IX","AA2",8925,.01)=""
^DD(8925,0,"IX","AAU",8925,1202)=""
^DD(8925,0,"IX","AAU1",8925,1301)=""
^DD(8925,0,"IX","AAU2",8925,.01)=""
^DD(8925,0,"IX","AAU3",8925,.05)=""
^DD(8925,0,"IX","AAUP",8925,1202)=""
^DD(8925,0,"IX","AAUP1",8925,1501)=""
^DD(8925,0,"IX","ACLAU",8925,.02)=""
^DD(8925,0,"IX","ACLAU01",8925,1301)=""
^DD(8925,0,"IX","ACLAU02",8925,.01)=""
^DD(8925,0,"IX","ACLAU03",8925,1202)=""
^DD(8925,0,"IX","ACLAU04",8925,1501)=""
^DD(8925,0,"IX","ACLAU05",8925,.05)=""
^DD(8925,0,"IX","ACLAU103",8925,1302)=""
^DD(8925,0,"IX","ACLEC",8925,.02)=""
^DD(8925,0,"IX","ACLEC01",8925,.01)=""
^DD(8925,0,"IX","ACLEC02",8925,1301)=""
^DD(8925,0,"IX","ACLEC03",8925,1208)=""
^DD(8925,0,"IX","ACLEC04",8925,1501)=""
^DD(8925,0,"IX","ACLEC05",8925,1507)=""
^DD(8925,0,"IX","ACLEC06",8925,.05)=""
^DD(8925,0,"IX","ACLPT01",8925,.01)=""
^DD(8925,0,"IX","ACLPT02",8925,1501)=""
^DD(8925,0,"IX","ACLPT03",8925,1301)=""
^DD(8925,0,"IX","ACLPT05",8925,.05)=""
^DD(8925,0,"IX","ACLPT1507",8925,1507)=""
^DD(8925,0,"IX","ACLSB",8925,.02)=""
^DD(8925,0,"IX","ACLSB01",8925,.01)=""
^DD(8925,0,"IX","ACLSB02",8925,1301)=""
^DD(8925,0,"IX","ACLSB3",8925,1502)=""
^DD(8925,0,"IX","ADCPT",8925,.02)=""
^DD(8925,0,"IX","ADCPT1",8925,1301)=""
^DD(8925,0,"IX","ADCPT2",8925,.04)=""
^DD(8925,0,"IX","ADCPT3",8925,.05)=""
^DD(8925,0,"IX","AE",8925,.02)=""
^DD(8925,0,"IX","AE1",8925,.03)=""
^DD(8925,0,"IX","AE2",8925,.01)=""
^DD(8925,0,"IX","ALL1",8925,1301)=""
^DD(8925,0,"IX","ALL2",8925,.01)=""
^DD(8925,0,"IX","ALL3",8925,.05)=""
^DD(8925,0,"IX","ALOC",8925,1205)=""
^DD(8925,0,"IX","ALOC1",8925,1301)=""
^DD(8925,0,"IX","ALOC2",8925,.01)=""
^DD(8925,0,"IX","ALOC3",8925,.05)=""
^DD(8925,0,"IX","ALOCP",8925,1205)=""
^DD(8925,0,"IX","ALOCP1",8925,1501)=""
^DD(8925,0,"IX","APRB1",8925,1301)=""
^DD(8925,0,"IX","APRB2",8925,.01)=""
^DD(8925,0,"IX","APRB3",8925,.05)=""
^DD(8925,0,"IX","APT",8925,.02)=""
^DD(8925,0,"IX","APT1",8925,1301)=""
^DD(8925,0,"IX","APT2",8925,.01)=""
^DD(8925,0,"IX","APT3",8925,.05)=""
^DD(8925,0,"IX","APTCL",8925,.02)=""
^DD(8925,0,"IX","APTCL1",8925,1301)=""
^DD(8925,0,"IX","APTCL2",8925,.01)=""
^DD(8925,0,"IX","APTCL38",8925,.02)=""
^DD(8925,0,"IX","APTCL381",8925,1301)=""
^DD(8925,0,"IX","APTCL382",8925,.01)=""
^DD(8925,0,"IX","APTLD01",8925,.01)=""
^DD(8925,0,"IX","APTLD02",8925,.02)=""
^DD(8925,0,"IX","APTLD03",8925,.03)=""
^DD(8925,0,"IX","APTLD07",8925,.07)=""
^DD(8925,0,"IX","APTLD1211",8925,1211)=""
^DD(8925,0,"IX","APTLD13",8925,.13)=""
^DD(8925,0,"IX","APTP",8925,.02)=""
^DD(8925,0,"IX","APTP1",8925,1501)=""
^DD(8925,0,"IX","ASUB",8925,1701)=""
^DD(8925,0,"IX","ASUB1",8925,1301)=""
^DD(8925,0,"IX","ASUB2",8925,.01)=""
^DD(8925,0,"IX","ASUB3",8925,.05)=""
^DD(8925,0,"IX","ASUP",8925,1208)=""
^DD(8925,0,"IX","ASUP1",8925,1301)=""
^DD(8925,0,"IX","ASUP2",8925,.01)=""
^DD(8925,0,"IX","ASUP3",8925,.05)=""
^DD(8925,0,"IX","ASVC",8925,1404)=""
^DD(8925,0,"IX","ASVC1",8925,1301)=""
^DD(8925,0,"IX","ASVC2",8925,.01)=""
^DD(8925,0,"IX","ASVC3",8925,.05)=""
^DD(8925,0,"IX","ATC",8925,1302)=""
^DD(8925,0,"IX","ATC1",8925,1301)=""
^DD(8925,0,"IX","ATC2",8925,.01)=""
^DD(8925,0,"IX","ATC3",8925,.05)=""
^DD(8925,0,"IX","ATS",8925,1402)=""
^DD(8925,0,"IX","ATS1",8925,1301)=""
^DD(8925,0,"IX","ATS2",8925,.01)=""
^DD(8925,0,"IX","ATS3",8925,.05)=""
^DD(8925,0,"IX","AV",8925,.02)=""
^DD(8925,0,"IX","AV1",8925,.03)=""
^DD(8925,0,"IX","AV10",8925,.03)=""
^DD(8925,0,"IX","AV1207",8925,1207)=""
^DD(8925,0,"IX","AV2",8925,.01)=""
^DD(8925,0,"IX","AVSIT",8925,.03)=""
^DD(8925,0,"IX","AVSIT1",8925,1301)=""
^DD(8925,0,"IX","AVSIT2",8925,.01)=""
^DD(8925,0,"IX","AVSIT3",8925,.05)=""
^DD(8925,0,"IX","B",8925,.01)=""
^DD(8925,0,"IX","C",8925,.02)=""
^DD(8925,0,"IX","CA",8925,1202)=""
^DD(8925,0,"IX","CS",8925,1208)=""
^DD(8925,0,"IX","D",8925,1301)=""
^DD(8925,0,"IX","DAD",8925,.06)=""
^DD(8925,0,"IX","E",8925,1304)=""
^DD(8925,0,"IX","F",8925,1201)=""
^DD(8925,0,"IX","FIX",8925,.12)=""
^DD(8925,0,"IX","G",8925,1405)=""
^DD(8925,0,"IX","GDAD",8925,2101)=""
^DD(8925,0,"IX","SVC",8925,1404)=""
^DD(8925,0,"IX","TC",8925,1302)=""
^DD(8925,0,"IX","TS",8925,1402)=""
^DD(8925,0,"IX","V",8925,.03)=""
^DD(8925,0,"IX","VID",8925,15001)=""
^DD(8925,0,"NM","TIU DOCUMENT")=""
^DD(8925,0,"PT",26.14,.06)=""
^DD(8925,0,"PT",63.101,1)=""
^DD(8925,0,"PT",63.19,1)=""
^DD(8925,0,"PT",63.47,1)=""
^DD(8925,0,"PT",63.49,1)=""
^DD(8925,0,"PT",123,16)=""
^DD(8925,0,"PT",123.02,9)=""
^DD(8925,0,"PT",123.03,.01)=""
^DD(8925,0,"PT",130,1000)=""
^DD(8925,0,"PT",130,1001)=""
^DD(8925,0,"PT",130,1002)=""
^DD(8925,0,"PT",130,1003)=""
^DD(8925,0,"PT",396.4,75)=""
^DD(8925,0,"PT",702,.06)=""
^DD(8925,0,"PT",702.001,.02)=""
^DD(8925,0,"PT",783,.16)=""
^DD(8925,0,"PT",8925,.06)=""
^DD(8925,0,"PT",8925,1406)=""
^DD(8925,0,"PT",8925,2101)=""
^DD(8925,0,"PT",8925.5,.01)=""
^DD(8925,0,"PT",8925.5,3.05)=""
^DD(8925,0,"PT",8925.7,.01)=""
^DD(8925,0,"PT",8925.9,.01)=""
^DD(8925,0,"PT",8925.91,.01)=""
^DD(8925,0,"SCR")="I 1 S TIUFPRIV=1"
^DD(8925,0,"VR")="1.0"
^DD(8925,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925,.01,0)="DOCUMENT TYPE^RP8925.1'O^TIU(8925.1,^0;1^Q"
^DD(8925,.01,1,0)="^.1"
^DD(8925,.01,1,1,0)="8925^B"
^DD(8925,.01,1,1,1)="S ^TIU(8925,""B"",$E(X,1,30),DA)="""""
^DD(8925,.01,1,1,2)="K ^TIU(8925,""B"",$E(X,1,30),DA)"
^DD(8925,.01,1,2,0)="8925^APT2^MUMPS"
^DD(8925,.01,1,2,1)="I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""APT"",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.01,1,2,2)="I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""APT"",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.01,1,2,"%D",0)="^^2^2^2960502^^^^"
^DD(8925,.01,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE,"
^DD(8925,.01,1,2,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by patient."
^DD(8925,.01,1,2,"DT")="2940322"
^DD(8925,.01,1,3,0)="8925^AAU2^MUMPS"
^DD(8925,.01,1,3,1)="I +$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""AAU"",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.01,1,3,2)="I +$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""AAU"",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.01,1,3,"%D",0)="^^2^2^2940722^^"
^DD(8925,.01,1,3,"%D",1,0)="This MUMPS-type, multi-field cross-reference by AUTHOR, DOCUMENT TYPE,"
^DD(8925,.01,1,3,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by author."
^DD(8925,.01,1,3,"DT")="2940322"
^DD(8925,.01,1,4,0)="8925^ASUP2^MUMPS"
^DD(8925,.01,1,4,1)="I +$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ASUP"",+$P($G(^TIU(8925,+DA,12)),U,8),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.01,1,4,2)="I +$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ASUP"",+$P($G(^TIU(8925,+DA,12)),U,8),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.01,1,4,"%D",0)="^^3^3^2950125^^^^"
^DD(8925,.01,1,4,"%D",1,0)="This multi-field, MUMPS-type cross-reference by (EXPECTED COSIGNER),"
^DD(8925,.01,1,4,"%D",2,0)="DOCUMENT TYPE, STATUS, INVERSE ENTRY/DICTATION DATE/TIME is"
^DD(8925,.01,1,4,"%D",3,0)="used for look-ups and queries."
^DD(8925,.01,1,4,"DT")="2950125"
^DD(8925,.01,1,5,0)="8925^AV2^MUMPS"
^DD(8925,.01,1,5,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^(0)),U,3) S ^TIU(8925,""AV"",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,3),+DA)="""""
^DD(8925,.01,1,5,2)="I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^(0)),U,3) K ^TIU(8925,""AV"",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,3),+DA)"
^DD(8925,.01,1,5,"%D",0)="^^3^3^2950615^^"
^DD(8925,.01,1,5,"%D",1,0)="This MUMPS-type, multi-field cross-reference by patient, document type,"
^DD(8925,.01,1,5,"%D",2,0)="and visit number will allow for a candidate key to determine whether a"
^DD(8925,.01,1,5,"%D",3,0)="given document exists for a particular patient visit."
^DD(8925,.01,1,5,"DT")="2950615"
^DD(8925,.01,1,6,0)="8925^ATS2^MUMPS"
^DD(8925,.01,1,6,1)="I +$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ATS"",+$P($G(^TIU(8925,+DA,14)),U,2),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.01,1,6,2)="I +$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ATS"",+$P($G(^TIU(8925,+DA,14)),U,2),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.01,1,6,"%D",0)="^^3^3^2941121^^"
^DD(8925,.01,1,6,"%D",1,0)="This MUMPS-type, multi-field cross-reference by TREATING SPECIALTY,"
^DD(8925,.01,1,6,"%D",2,0)="DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE facilitates"
^DD(8925,.01,1,6,"%D",3,0)="look-ups by treating specialty."
^DD(8925,.01,1,6,"DT")="2940325"
^DD(8925,.01,1,7,0)="8925^ATC2^MUMPS"
^DD(8925,.01,1,7,1)="I +$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ATC"",+$P($G(^TIU(8925,+DA,13)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.01,1,7,2)="I +$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ATC"",+$P($G(^TIU(8925,+DA,13)),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.01,1,7,"%D",0)="^^3^3^2940323^"
^DD(8925,.01,1,7,"%D",1,0)="This MUMPS-type, multi-field cross-reference by TRANSCRIPTIONIST ID,"
^DD(8925,.01,1,7,"%D",2,0)="DOCUMENT TYPE, STATUS, and INVERSE DICTATION DATE will facilitate look-ups"
^DD(8925,.01,1,7,"%D",3,0)="by transcriptionist."
^DD(8925,.01,1,7,"DT")="2940323"
^DD(8925,.01,1,8,0)="8925^ALL2^MUMPS"
^DD(8925,.01,1,8,1)="I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ALL"",""ANY"",+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.01,1,8,2)="I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ALL"",""ANY"",+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.01,1,8,"%D",0)="^^3^3^2940325^"
^DD(8925,.01,1,8,"%D",1,0)="This multi-field cross-reference is used for building the review screen"
^DD(8925,.01,1,8,"%D",2,0)="across all categories (Author, Attending Physician, Patient,"
^DD(8925,.01,1,8,"%D",3,0)="Transcriptionist, or treating specialty)."
^DD(8925,.01,1,8,"DT")="2940325"
^DD(8925,.01,1,9,0)="8925^AA2^MUMPS"
^DD(8925,.01,1,9,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",$L($P(^TIU(8925,+DA,0),U,2)),(+$P(^(0),U,3)>0) S ^TIU(8925,""AA"",+$P(^(0),U,2),+X,(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),""."")),DA)="""""
^DD(8925,.01,1,9,2)="I $L($P(^TIU(8925,+DA,0),U,2)),(+$P(^(0),U,3)>0) K ^TIU(8925,""AA"",+$P(^(0),U,2),+X,(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),""."")),DA)"
^DD(8925,.01,1,9,"%D",0)="^^4^4^2950615^^^^"
^DD(8925,.01,1,9,"%D",1,0)=" "
^DD(8925,.01,1,9,"%D",2,0)="This multi-field, MUMPS-type cross-reference by patient, document type and"
^DD(8925,.01,1,9,"%D",3,0)="inverse visit date is optimized for searches by entity, attribute, and"
^DD(8925,.01,1,9,"%D",4,0)="time."
^DD(8925,.01,1,9,"DT")="2950615"
^DD(8925,.01,1,10,0)="8925^ASUB2^MUMPS"
^DD(8925,.01,1,10,1)="I $L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) D ASUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.01,1,10,2)="I $L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.01,1,10,"%D",0)="^^2^2^2950928^^^^"
^DD(8925,.01,1,10,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for queries by"
^DD(8925,.01,1,10,"%D",2,0)="subject."
^DD(8925,.01,1,10,"DT")="2950928"
^DD(8925,.01,1,11,0)="8925^ASVC2^MUMPS"
^DD(8925,.01,1,11,1)="I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ASVC"",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.01,1,11,2)="I +$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ASVC"",+$P($G(^TIU(8925,+DA,14)),U,4),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.01,1,11,"%D",0)="^^2^2^2970709^^^^"
^DD(8925,.01,1,11,"%D",1,0)="This MUMPS-type, multi-field cross-reference by SERVICE, DOCUMENT TYPE,"
^DD(8925,.01,1,11,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE facilitates by SERVICE."
^DD(8925,.01,1,11,"DT")="2970709"
^DD(8925,.01,1,12,0)="8925^AE2^MUMPS"
^DD(8925,.01,1,12,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",+$P($G(^TIU(8925,+DA,0)),U,2),(+$P($G(^(0)),U,3)>0) S ^TIU(8925,""AE"",+$P($G(^TIU(8925,+DA,0)),U,2),(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),""."")),+X,+DA)="""""
^DD(8925,.01,1,12,2)="I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,""AE"",+$P($G(^TIU(8925,+DA,0)),U,2),(9999999-$P(+^AUPNVSIT(+$P(^TIU(8925,+DA,0),U,3),0),""."")),+X,+DA)"
^DD(8925,.01,1,12,"%D",0)="^^2^2^2991109^^^"
^DD(8925,.01,1,12,"%D",1,0)="This multi-field, MUMPS-type Cross-reference by Patient, Inverse Date, and "
^DD(8925,.01,1,12,"%D",2,0)="Report Type is to optimize searching by entity, time, and attribute"
^DD(8925,.01,1,12,"DT")="2991109"
^DD(8925,.01,1,13,0)="8925^ALOC2^MUMPS"
^DD(8925,.01,1,13,1)="I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ALOC"",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.01,1,13,2)="I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ALOC"",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.01,1,13,"%D",0)="^^2^2^2960710^^"
^DD(8925,.01,1,13,"%D",1,0)="This MUMPS-type, multi-field cross-reference is optimized for searching "
^DD(8925,.01,1,13,"%D",2,0)="hospital location, document type, status, and date range."
^DD(8925,.01,1,13,"DT")="2950615"
^DD(8925,.01,1,14,0)="8925^APRB2^MUMPS"
^DD(8925,.01,1,14,1)="I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,""B"",+DA,0)) D APRBS^TIUDD(+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.01,1,14,2)="I +$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,""B"",+DA,0)) D APRBK^TIUDD(+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.01,1,14,"%D",0)="^^3^3^2950928^^^"
^DD(8925,.01,1,14,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Problem, Document Type,"
^DD(8925,.01,1,14,"%D",2,0)="Status, and Inverse Reference Date facilitates query for documents by"
^DD(8925,.01,1,14,"%D",3,0)="problem."
^DD(8925,.01,1,14,"DT")="2950928"
^DD(8925,.01,1,15,0)="8925^AVSIT2^MUMPS"
^DD(8925,.01,1,15,1)="I +$P(^TIU(8925,+DA,0),U,3),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""AVSIT"",+$P(^TIU(8925,+DA,0),U,3),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.01,1,15,2)="I +$P(^TIU(8925,+DA,0),U,3),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""AVSIT"",+$P(^TIU(8925,+DA,0),U,3),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.01,1,15,"%D",0)="^^2^2^2951207^^^"
^DD(8925,.01,1,15,"%D",1,0)="This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE,"
^DD(8925,.01,1,15,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by visit."
^DD(8925,.01,1,15,"DT")="2950907"
^DD(8925,.01,1,16,0)="8925^APTCL2^MUMPS"
^DD(8925,.01,1,16,1)="I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+X,+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.01,1,16,2)="I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+X,+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.01,1,16,"%D",0)="^^2^2^2960823^^^^"
^DD(8925,.01,1,16,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT"
^DD(8925,.01,1,16,"%D",2,0)="CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient."
^DD(8925,.01,1,16,"DT")="2960823"
^DD(8925,.01,1,17,0)="8925^APTCL382^MUMPS"
^DD(8925,.01,1,17,1)="I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.01,1,17,2)="I +$P(^TIU(8925,+DA,0),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.01,1,17,"%D",0)="^^2^2^2960506^"
^DD(8925,.01,1,17,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and"
^DD(8925,.01,1,17,"%D",2,0)="INVERSE REFERENCE DATE facilitates look-ups by patient."
^DD(8925,.01,1,17,"DT")="2960506"
^DD(8925,.01,1,18,0)="8925^ACLPT01^MUMPS"
^DD(8925,.01,1,18,1)="D SACLPT^TIUDD0(.01,X)"
^DD(8925,.01,1,18,2)="D KACLPT^TIUDD01(.01,X)"
^DD(8925,.01,1,18,"%D",0)="^^3^3^2980630^^"
^DD(8925,.01,1,18,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE"
^DD(8925,.01,1,18,"%D",2,0)="REFERENCE DATE/TIME, and RECORD # is designed to support rapid queries by"
^DD(8925,.01,1,18,"%D",3,0)="patient."
^DD(8925,.01,1,18,"DT")="2970617"
^DD(8925,.01,1,19,0)="8925^ACLAU02^MUMPS"
^DD(8925,.01,1,19,1)="D SACLAU^TIUDD0(.01,X),SACLAU1^TIUDD0(.01,X)"
^DD(8925,.01,1,19,2)="D KACLAU^TIUDD01(.01,X),KACLAU1^TIUDD01(.01,X)"
^DD(8925,.01,1,19,"%D",0)="^^4^4^2970617^"
^DD(8925,.01,1,19,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED"
^DD(8925,.01,1,19,"%D",2,0)="BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to"
^DD(8925,.01,1,19,"%D",3,0)="facilitate rapid access to the current users unsigned notes about a"
^DD(8925,.01,1,19,"%D",4,0)="patient."
^DD(8925,.01,1,19,"DT")="2970617"
^DD(8925,.01,1,20,0)="8925^ACLEC01^MUMPS"
^DD(8925,.01,1,20,1)="D SACLEC^TIUDD0(.01,X)"
^DD(8925,.01,1,20,2)="D KACLEC^TIUDD01(.01,X)"
^DD(8925,.01,1,20,"%D",0)="^.101^3^3^3021106^^"
^DD(8925,.01,1,20,"%D",1,0)="This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER,"
^DD(8925,.01,1,20,"%D",2,0)="PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding"
^DD(8925,.01,1,20,"%D",3,0)="the uncosigned notes by the current user for a given patient."
^DD(8925,.01,1,20,"DT")="2970617"
^DD(8925,.01,1,21,0)="8925^ACLSB01^MUMPS"
^DD(8925,.01,1,21,1)="D SACLSB^TIUDD0(.01,X)"
^DD(8925,.01,1,21,2)="D KACLSB^TIUDD01(.01,X)"
^DD(8925,.01,1,21,"%D",0)="^^3^3^2990122^^^^"
^DD(8925,.01,1,21,"%D",1,0)="This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE"
^DD(8925,.01,1,21,"%D",2,0)="DATE/TIME, and RECORD # will facilitate finding records signed by a given"
^DD(8925,.01,1,21,"%D",3,0)="user about the current patient."
^DD(8925,.01,1,21,"DT")="2970617"
^DD(8925,.01,1,22,0)="8925^APTLD01^MUMPS"
^DD(8925,.01,1,22,1)="D SAPTLD^TIUDD0(.01,X)"
^DD(8925,.01,1,22,2)="D KAPTLD^TIUDD01(.01,X)"
^DD(8925,.01,1,22,"%D",0)="^^2^2^2970617^^^"
^DD(8925,.01,1,22,"%D",1,0)="This MUMPS type Multi-field index by PT,TITLE,""LOC;VDT;VTYP"",DA is used"
^DD(8925,.01,1,22,"%D",2,0)="for optimizing checks for documents for a particular visit."
^DD(8925,.01,1,22,"DT")="2970617"
^DD(8925,.01,2)="S Y(0)=Y S Y=$S($$PNAME^TIULC1(+Y)]"""":$$PNAME^TIULC1(+Y),$P(^TIU(8925.1,+Y,0),U,3)]"""":$P(^TIU(8925.1,+Y,0),U,3),1:Y)"
^DD(8925,.01,2.1)="S Y=$S($$PNAME^TIULC1(+Y)]"""":$$PNAME^TIULC1(+Y),$P(^TIU(8925.1,+Y,0),U,3)]"""":$P(^TIU(8925.1,+Y,0),U,3),1:Y)"
^DD(8925,.01,3)="Select the type of document."
^DD(8925,.01,21,0)="^^3^3^2991109^^^^"
^DD(8925,.01,21,1,0)="This field points to the Tiu Document Definition file, whose entry defines"
^DD(8925,.01,21,2,0)="the components of the document and various parameters for the document's"
^DD(8925,.01,21,3,0)="behavior."
^DD(8925,.01,"DT")="3030418"
^DD(8925,.02,0)="PATIENT^P9000001'^AUPNPAT(^0;2^Q"
^DD(8925,.02,1,0)="^.1"
^DD(8925,.02,1,1,0)="8925^AA^MUMPS"
^DD(8925,.02,1,1,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,""AA"",+X,+^TIU(8925,+DA,0),(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),""."")),+DA)="""""
^DD(8925,.02,1,1,2)="I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,""AA"",+X,+^TIU(8925,+DA,0),(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),""."")),+DA)"
^DD(8925,.02,1,1,"%D",0)="^^3^3^2950615^^"
^DD(8925,.02,1,1,"%D",1,0)=" "
^DD(8925,.02,1,1,"%D",2,0)="This multi-field, MUMPS-type cross-reference by Patient, Document Type,"
^DD(8925,.02,1,1,"%D",3,0)="and Inverse Visit Date will help to identify documents by patient and time."
^DD(8925,.02,1,1,"DT")="2950615"
^DD(8925,.02,1,2,0)="8925^APT^MUMPS"
^DD(8925,.02,1,2,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""APT"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.02,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""APT"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.02,1,2,"%D",0)="^^3^3^2950925^^^"
^DD(8925,.02,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE,"
^DD(8925,.02,1,2,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE will facilitate look-ups by"
^DD(8925,.02,1,2,"%D",3,0)="patient."
^DD(8925,.02,1,2,"DT")="2940322"
^DD(8925,.02,1,3,0)="8925^AE^MUMPS"
^DD(8925,.02,1,3,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) S ^TIU(8925,""AE"",+X,(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),""."")),+^TIU(8925,+DA,0),+DA)="""""
^DD(8925,.02,1,3,2)="I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,3)>0) K ^TIU(8925,""AE"",+X,(9999999-$P(+^AUPNVSIT($P(^TIU(8925,+DA,0),U,3),0),""."")),+^TIU(8925,+DA,0),+DA)"
^DD(8925,.02,1,3,"%D",0)="^^4^4^2950615^^^"
^DD(8925,.02,1,3,"%D",1,0)=" "
^DD(8925,.02,1,3,"%D",2,0)="This multi-field, MUMPS-type Cross-reference by Patient, Inverse Visit"
^DD(8925,.02,1,3,"%D",3,0)="Date, and Report Type is to optimize searching by entity, time, and"
^DD(8925,.02,1,3,"%D",4,0)="attribute."
^DD(8925,.02,1,3,"DT")="2950615"
^DD(8925,.02,1,4,0)="8925^C"
^DD(8925,.02,1,4,1)="S ^TIU(8925,""C"",$E(X,1,30),DA)="""""
^DD(8925,.02,1,4,2)="K ^TIU(8925,""C"",$E(X,1,30),DA)"
^DD(8925,.02,1,4,"%D",0)="^^1^1^2930407^"
^DD(8925,.02,1,4,"%D",1,0)="This REGULAR FileMan type cross-reference is used for look-up by patient."
^DD(8925,.02,1,4,"DT")="2930306"
^DD(8925,.02,1,5,0)="8925^AV^MUMPS"
^DD(8925,.02,1,5,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,3) S ^TIU(8925,""AV"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,3),+DA)="""""
^DD(8925,.02,1,5,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,3) K ^TIU(8925,""AV"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,3),+DA)"
^DD(8925,.02,1,5,"%D",0)="^^3^3^2950615^^"
^DD(8925,.02,1,5,"%D",1,0)="This MUMPS-type, multi-field cross-reference by patient, document type and"
^DD(8925,.02,1,5,"%D",2,0)="visit record number will serve as a candidate key to determine whether a"
^DD(8925,.02,1,5,"%D",3,0)="given document exists for a particular patient visit."
^DD(8925,.02,1,5,"DT")="2950615"
^DD(8925,.02,1,6,0)="8925^APTP^MUMPS"
^DD(8925,.02,1,6,1)="I +$$APTP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,""APTP"",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)="""""
^DD(8925,.02,1,6,2)="I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,""APTP"",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)"
^DD(8925,.02,1,6,"%D",0)="^^3^3^2950623^"
^DD(8925,.02,1,6,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Patient and REGULAR"
^DD(8925,.02,1,6,"%D",2,0)="Signature Date/Time is used to maintain the daily print queue for batch"
^DD(8925,.02,1,6,"%D",3,0)="printing of documents (currently, just Progress Notes) on signature."
^DD(8925,.02,1,6,"DT")="2950623"
^DD(8925,.02,1,7,0)="8925^ADCPT^MUMPS"
^DD(8925,.02,1,7,1)="I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ADCPT"",+X,+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.02,1,7,2)="I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ADCPT"",+X,+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.02,1,7,"%D",0)="^^3^3^2950925^"
^DD(8925,.02,1,7,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS,"
^DD(8925,.02,1,7,"%D",2,0)="STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND"
^DD(8925,.02,1,7,"%D",3,0)="DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe)."
^DD(8925,.02,1,7,"DT")="2950925"
^DD(8925,.02,1,8,0)="8925^APTCL^MUMPS"
^DD(8925,.02,1,8,1)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""APTCL"",+X,+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.02,1,8,2)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""APTCL"",+X,+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.02,1,8,"%D",0)="^^2^2^2960823^^^^"
^DD(8925,.02,1,8,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT"
^DD(8925,.02,1,8,"%D",2,0)="CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient."
^DD(8925,.02,1,8,"DT")="2960823"
^DD(8925,.02,1,9,0)="8925^APTCL38^MUMPS"
^DD(8925,.02,1,9,1)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""APTCL"",+X,38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.02,1,9,2)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""APTCL"",+X,38,(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.02,1,9,"%D",0)="^^2^2^2960506^"
^DD(8925,.02,1,9,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and"
^DD(8925,.02,1,9,"%D",2,0)="INVERSE REFERENCE DATE facilitates look-ups by patient."
^DD(8925,.02,1,9,"DT")="2960506"
^DD(8925,.02,1,10,0)="8925^2270^MUMPS"
^DD(8925,.02,1,10,1)="D SACLPT^TIUDD0(.02,X)"
^DD(8925,.02,1,10,2)="D KACLPT^TIUDD01(.02,X)"
^DD(8925,.02,1,10,3)="This x-ref is used to extract lists based on context"
^DD(8925,.02,1,10,"%D",0)="^^3^3^2970617^^^^"
^DD(8925,.02,1,10,"%D",1,0)="This cross-reference permits the rapid extraction of documents which are"
^DD(8925,.02,1,10,"%D",2,0)="of the specified document class, for a the patient(s) selected, and within"
^DD(8925,.02,1,10,"%D",3,0)="the specified date range."
^DD(8925,.02,1,10,"DT")="2970617"
^DD(8925,.02,1,11,0)="8925^ACLAU^MUMPS"
^DD(8925,.02,1,11,1)="D SACLAU^TIUDD0(.02,X),SACLAU1^TIUDD0(.02,X)"
^DD(8925,.02,1,11,2)="D KACLAU^TIUDD01(.02,X),KACLAU1^TIUDD01(.02,X)"
^DD(8925,.02,1,11,3)="This x-ref is used to extract lists based on context"
^DD(8925,.02,1,11,"%D",0)="^^4^4^2970617^"
^DD(8925,.02,1,11,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED"
^DD(8925,.02,1,11,"%D",2,0)="BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to"
^DD(8925,.02,1,11,"%D",3,0)="facilitate rapid access to the current users unsigned notes about a"
^DD(8925,.02,1,11,"%D",4,0)="patient."
^DD(8925,.02,1,11,"DT")="2970617"
^DD(8925,.02,1,12,0)="8925^ACLEC^MUMPS"
^DD(8925,.02,1,12,1)="D SACLEC^TIUDD0(.02,X)"
^DD(8925,.02,1,12,2)="D KACLEC^TIUDD01(.02,X)"
^DD(8925,.02,1,12,3)="This x-ref is used to extract lists based on context"
^DD(8925,.02,1,12,"%D",0)="^^3^3^2970617^"
^DD(8925,.02,1,12,"%D",1,0)="This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER,"
^DD(8925,.02,1,12,"%D",2,0)="PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding"
^DD(8925,.02,1,12,"%D",3,0)="the uncosigned notes by the current user for a given patient."
^DD(8925,.02,1,12,"DT")="2970617"
^DD(8925,.02,1,13,0)="8925^ACLSB^MUMPS"
^DD(8925,.02,1,13,1)="D SACLSB^TIUDD0(.02,X)"
^DD(8925,.02,1,13,2)="D KACLSB^TIUDD01(.02,X)"
^DD(8925,.02,1,13,3)="This x-ref is used to extract lists based on context"
^DD(8925,.02,1,13,"%D",0)="^^3^3^2970617^"
^DD(8925,.02,1,13,"%D",1,0)="This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE"
^DD(8925,.02,1,13,"%D",2,0)="DATE/TIME, and RECORD # will facilitate finding records signed by a given"
^DD(8925,.02,1,13,"%D",3,0)="user about the current patient."
^DD(8925,.02,1,13,"DT")="2970617"
^DD(8925,.02,1,14,0)="8925^APTLD02^MUMPS"
^DD(8925,.02,1,14,1)="D SAPTLD^TIUDD0(.02,X)"
^DD(8925,.02,1,14,2)="D KAPTLD^TIUDD01(.02,X)"
^DD(8925,.02,1,14,"%D",0)="^^2^2^2970617^^^"
^DD(8925,.02,1,14,"%D",1,0)="This MUMPS type Multi-field index by PT,TITLE,""LOC;VDT;VTYP"",DA is used"
^DD(8925,.02,1,14,"%D",2,0)="for optimizing checks for documents for a particular visit."
^DD(8925,.02,1,14,"DT")="2970617"
^DD(8925,.02,21,0)="^^1^1^2930721^^"
^DD(8925,.02,21,1,0)="This field contains a pointer to the patient file."
^DD(8925,.02,"DT")="2970617"
^DD(8925,.03,0)="VISIT^P9000010'^AUPNVSIT(^0;3^Q"
^DD(8925,.03,1,0)="^.1"
^DD(8925,.03,1,1,0)="8925^AA1^MUMPS"
^DD(8925,.03,1,1,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) S ^TIU(8925,""AA"",$P(^(0),U,2),+$P(^(0),U),(9999999-$P(+$G(^AUPNVSIT(X,0)),""."")),DA)="""""
^DD(8925,.03,1,1,2)="I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) K ^TIU(8925,""AA"",$P(^(0),U,2),+$P(^(0),U),(9999999-$P(+$G(^AUPNVSIT(X,0)),""."")),DA)"
^DD(8925,.03,1,1,"%D",0)="^^4^4^2960610^^^^"
^DD(8925,.03,1,1,"%D",1,0)=" "
^DD(8925,.03,1,1,"%D",2,0)="This multi-field, MUMPS-type cross-reference by patient, document type,"
^DD(8925,.03,1,1,"%D",3,0)="and inverse visit date is optimized for searches by entity, attribute, and"
^DD(8925,.03,1,1,"%D",4,0)="time."
^DD(8925,.03,1,1,"DT")="2950615"
^DD(8925,.03,1,2,0)="8925^AE1^MUMPS"
^DD(8925,.03,1,2,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",$L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) S ^TIU(8925,""AE"",+$P(^TIU(8925,+DA,0),U,2),(9999999-$P(+$G(^AUPNVSIT(+X,0)),""."")),+^TIU(8925,+DA,0),+DA)="""""
^DD(8925,.03,1,2,2)="I $L($P(^TIU(8925,+DA,0),U)),(+$P(^(0),U,2)>0) K ^TIU(8925,""AE"",+$P(^TIU(8925,+DA,0),U,2),(9999999-$P(+$G(^AUPNVSIT(+X,0)),""."")),+^TIU(8925,+DA,0),+DA)"
^DD(8925,.03,1,2,"%D",0)="^^4^4^2950615^^^"
^DD(8925,.03,1,2,"%D",1,0)=" "
^DD(8925,.03,1,2,"%D",2,0)="This multi-field, MUMPS-type Cross-reference by Patient, Inverse Visit"
^DD(8925,.03,1,2,"%D",3,0)="Date, and  document type will optimize searching by entity, time, and"
^DD(8925,.03,1,2,"%D",4,0)="attribute."
^DD(8925,.03,1,2,"DT")="2950615"
^DD(8925,.03,1,3,0)="8925^AV1^MUMPS"
^DD(8925,.03,1,3,1)="I $P($$DOCTYPE^TIULF(+DA),U)=""DOC"",+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,2) S ^TIU(8925,""AV"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,+DA)="""""
^DD(8925,.03,1,3,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^(0)),U,2) K ^TIU(8925,""AV"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,+DA)"
^DD(8925,.03,1,3,"%D",0)="^^3^3^2950615^^^^"
^DD(8925,.03,1,3,"%D",1,0)="This MUMPS-type, multi-field cross-reference by patient, document type,"
^DD(8925,.03,1,3,"%D",2,0)="and visit record number serves as a candidate key to determine whether a"
^DD(8925,.03,1,3,"%D",3,0)="given document exists for a particular patient visit."
^DD(8925,.03,1,3,"DT")="2950615"
^DD(8925,.03,1,4,0)="8925^AV10^MUMPS"
^DD(8925,.03,1,4,1)="D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT"
^DD(8925,.03,1,4,2)="D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT"
^DD(8925,.03,1,4,"%D",0)="^^2^2^2950525^^"
^DD(8925,.03,1,4,"%D",1,0)="This MUMPS-type cross-reference is used to maintain the dependent entry"
^DD(8925,.03,1,4,"%D",2,0)="count in the VISIT file."
^DD(8925,.03,1,4,"DT")="2950525"
^DD(8925,.03,1,5,0)="8925^AVSIT^MUMPS"
^DD(8925,.03,1,5,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""AVSIT"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.03,1,5,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""AVSIT"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.03,1,5,"%D",0)="^^2^2^2951207^^^^"
^DD(8925,.03,1,5,"%D",1,0)="This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE,"
^DD(8925,.03,1,5,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by visit."
^DD(8925,.03,1,5,"DT")="2950907"
^DD(8925,.03,1,6,0)="8925^V"
^DD(8925,.03,1,6,1)="S ^TIU(8925,""V"",$E(X,1,30),DA)="""""
^DD(8925,.03,1,6,2)="K ^TIU(8925,""V"",$E(X,1,30),DA)"
^DD(8925,.03,1,6,"%D",0)="^^2^2^2951106^"
^DD(8925,.03,1,6,"%D",1,0)="This REGULAR FileMan Cross-reference by VISIT is used to help identify"
^DD(8925,.03,1,6,"%D",2,0)="dependent entries."
^DD(8925,.03,1,6,"DT")="2951106"
^DD(8925,.03,1,7,0)="^^TRIGGER^8925^15001"
^DD(8925,.03,1,7,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TIU(8925,D0,150)):^(150),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(8925,.03,1,7,1.1) X ^DD(8925,.03,1,7,1.4)"
^DD(8925,.03,1,7,1.1)="S X=DIV S X=DIV,X=X S X=X,X=$$IEN2VID^VSIT(X)"
^DD(8925,.03,1,7,1.4)="S DIH=$S($D(^TIU(8925,DIV(0),150)):^(150),1:""""),DIV=X S $P(^(150),U,1)=DIV,DIH=8925,DIG=15001 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8925,.03,1,7,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^TIU(8925,D0,150)):^(150),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(8925,.03,1,7,2.4)"
^DD(8925,.03,1,7,2.4)="S DIH=$S($D(^TIU(8925,DIV(0),150)):^(150),1:""""),DIV=X S $P(^(150),U,1)=DIV,DIH=8925,DIG=15001 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8925,.03,1,7,"CREATE VALUE")="TIU VISIT ID(INTERNAL(VISIT))"
^DD(8925,.03,1,7,"DELETE VALUE")="@"
^DD(8925,.03,1,7,"DT")="2961127"
^DD(8925,.03,1,7,"FIELD")="VISIT ID"
^DD(8925,.03,1,8,0)="8925^APTLD03^MUMPS"
^DD(8925,.03,1,8,1)="D SAPTLD^TIUDD0(.03,X)"
^DD(8925,.03,1,8,2)="D KAPTLD^TIUDD01(.03,X)"
^DD(8925,.03,1,8,"%D",0)="^^2^2^2970617^^"
^DD(8925,.03,1,8,"%D",1,0)="This MUMPS-type Multifield cross-reference by PT,TITLE,""LOC;VDT;VTYP"",DA"
^DD(8925,.03,1,8,"%D",2,0)="is used for optimizing checks for documents for a particular visit."
^DD(8925,.03,1,8,"DT")="2970617"
^DD(8925,.03,"DT")="2970617"
^DD(8925,.04,0)="PARENT DOCUMENT TYPE^P8925.1'^TIU(8925.1,^0;4^Q"
^DD(8925,.04,1,0)="^.1"
^DD(8925,.04,1,1,0)="8925^ADCPT2^MUMPS"
^DD(8925,.04,1,1,1)="I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ADCPT"",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.04,1,1,2)="I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ADCPT"",+$P(^TIU(8925,+DA,0),U,2),+X,+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.04,1,1,"%D",0)="^^3^3^2950925^"
^DD(8925,.04,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS,"
^DD(8925,.04,1,1,"%D",2,0)="STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND"
^DD(8925,.04,1,1,"%D",3,0)="DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe)."
^DD(8925,.04,1,1,"DT")="2950925"
^DD(8925,.04,3)="Indicate the PARENT DOCUMENT TYPE to which the current document belongs."
^DD(8925,.04,21,0)="^^6^6^2960206^^^^"
^DD(8925,.04,21,1,0)="This field points to the immediate parent class or document type to which the"
^DD(8925,.04,21,2,0)="current record belongs.  For example, when the current document has the type "
^DD(8925,.04,21,3,0)="SOAP - GENERAL NOTE, this field will point to PROGRESS NOTE, as the parent "
^DD(8925,.04,21,4,0)="class to which SOAP Notes belong, whereas, if the current record is a "
^DD(8925,.04,21,5,0)="SUBJECTIVE component, then this field will point to SOAP - GENERAL NOTE as "
^DD(8925,.04,21,6,0)="the parent document type to which the component belongs."
^DD(8925,.04,"DT")="2950925"
^DD(8925,.05,0)="STATUS^P8925.6'^TIU(8925.6,^0;5^Q"
^DD(8925,.05,1,0)="^.1"
^DD(8925,.05,1,1,0)="8925^ASUP3^MUMPS"
^DD(8925,.05,1,1,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ASUP"",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+X,(9999999-+$P(^TIU(8925,+DA,13),U)),+DA)="""""
^DD(8925,.05,1,1,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ASUP"",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+X,(9999999-+$P(^TIU(8925,+DA,13),U)),+DA)"
^DD(8925,.05,1,1,"%D",0)="^^3^3^2950125^^"
^DD(8925,.05,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference by (EXPECTED COSIGNER),"
^DD(8925,.05,1,1,"%D",2,0)="DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME,"
^DD(8925,.05,1,1,"%D",3,0)="will be used for look-ups and queries."
^DD(8925,.05,1,1,"DT")="2950125"
^DD(8925,.05,1,2,0)="8925^AAU3^MUMPS"
^DD(8925,.05,1,2,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""AAU"",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)="""""
^DD(8925,.05,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""AAU"",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)"
^DD(8925,.05,1,2,"%D",0)="^^3^3^2940722^^"
^DD(8925,.05,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by AUTHOR/DICTATOR, DOCUMENT"
^DD(8925,.05,1,2,"%D",2,0)="TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups"
^DD(8925,.05,1,2,"%D",3,0)="and queries."
^DD(8925,.05,1,2,"DT")="2940322"
^DD(8925,.05,1,3,0)="8925^APT3^MUMPS"
^DD(8925,.05,1,3,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""APT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)="""""
^DD(8925,.05,1,3,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""APT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)"
^DD(8925,.05,1,3,"%D",0)="^^3^3^2950925^^^"
^DD(8925,.05,1,3,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT TYPE,"
^DD(8925,.05,1,3,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and"
^DD(8925,.05,1,3,"%D",3,0)="queries."
^DD(8925,.05,1,3,"DT")="2940322"
^DD(8925,.05,1,4,0)="8925^ATC3^MUMPS"
^DD(8925,.05,1,4,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""ATC"",+$P($G(^TIU(8925,+DA,13)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.05,1,4,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""ATC"",+$P($G(^TIU(8925,+DA,13)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.05,1,4,"%D",0)="^^3^3^2940323^"
^DD(8925,.05,1,4,"%D",1,0)="This MUMPS-type, multi-field cross-reference by ENTERED BY, DOCUMENT TYPE,"
^DD(8925,.05,1,4,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for look-ups and"
^DD(8925,.05,1,4,"%D",3,0)="queries."
^DD(8925,.05,1,4,"DT")="2940323"
^DD(8925,.05,1,5,0)="8925^ATS3^MUMPS"
^DD(8925,.05,1,5,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""ATS"",+$P($G(^TIU(8925,+DA,14)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.05,1,5,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""ATS"",+$P($G(^TIU(8925,+DA,14)),U,2),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.05,1,5,"%D",0)="^^3^3^2941121^^"
^DD(8925,.05,1,5,"%D",1,0)="This MUMPS-type, multi-field cross-reference by TREATING SPECIALTY,"
^DD(8925,.05,1,5,"%D",2,0)="DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME is used for"
^DD(8925,.05,1,5,"%D",3,0)="look-ups and queries."
^DD(8925,.05,1,5,"DT")="2940325"
^DD(8925,.05,1,6,0)="8925^ALL3^MUMPS"
^DD(8925,.05,1,6,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""ALL"",""ANY"",+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)="""""
^DD(8925,.05,1,6,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""ALL"",""ANY"",+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)"
^DD(8925,.05,1,6,"%D",0)="^^2^2^2940325^"
^DD(8925,.05,1,6,"%D",1,0)="This MUMPS-type, multi-field cross-reference by DOCUMENT TYPE, STATUS, and"
^DD(8925,.05,1,6,"%D",2,0)="INVERSE ENTRY/DICTATION DATE/TIME is used for queries and look-ups."
^DD(8925,.05,1,6,"DT")="2940325"
^DD(8925,.05,1,7,0)="8925^ASUB3^MUMPS"
^DD(8925,.05,1,7,1)="I +$P($G(^TIU(8925,+DA,0)),U),$L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U) D ASUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.05,1,7,2)="I +$P($G(^TIU(8925,+DA,0)),U),$L($P($G(^TIU(8925,+DA,17)),U)),+$P($G(^TIU(8925,+DA,13)),U) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.05,1,7,"%D",0)="^^2^2^2950928^^^^"
^DD(8925,.05,1,7,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used in queries by"
^DD(8925,.05,1,7,"%D",2,0)="subject."
^DD(8925,.05,1,7,"DT")="2950928"
^DD(8925,.05,1,8,0)="8925^ASVC3^MUMPS"
^DD(8925,.05,1,8,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""ASVC"",+$P($G(^TIU(8925,+DA,14)),U,4),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.05,1,8,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""ASVC"",+$P($G(^TIU(8925,+DA,14)),U,4),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.05,1,8,"%D",0)="^^2^2^2941121^"
^DD(8925,.05,1,8,"%D",1,0)="This MUMPS-type, multi-field cross-reference by SERVICE, TYPE, STATUS, and "
^DD(8925,.05,1,8,"%D",2,0)="INVERSE ENTRY/DICTATION DATE/TIME is used look-ups and "
^DD(8925,.05,1,8,"DT")="2941121"
^DD(8925,.05,1,9,0)="8925^ALOC3^MUMPS"
^DD(8925,.05,1,9,1)="I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U) S ^TIU(8925,""ALOC"",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,.05,1,9,2)="I +$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U) K ^TIU(8925,""ALOC"",+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U),+X,(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,.05,1,9,"%D",0)="^^2^2^2960710^^"
^DD(8925,.05,1,9,"%D",1,0)="This MUMPS-type, multi-field cross-reference is optimized for searching "
^DD(8925,.05,1,9,"%D",2,0)="hospital location, document type, status, and date range."
^DD(8925,.05,1,9,"DT")="2950615"
^DD(8925,.05,1,10,0)="8925^APRB3^MUMPS"
^DD(8925,.05,1,10,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$O(^TIU(8925.9,""B"",+DA,0)) D APRBS^TIUDD(+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.05,1,10,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$O(^TIU(8925.9,""B"",+DA,0)) D APRBK^TIUDD(+$G(^TIU(8925,+DA,0)),+X,(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,.05,1,10,"%D",0)="^^2^2^2950928^^"
^DD(8925,.05,1,10,"%D",1,0)="This MUMPS-type, Multi-field index by PROBLEM, DOCUMENT TYPE, STATUS, and"
^DD(8925,.05,1,10,"%D",2,0)="INVERSE DICTATION DATE/TIME facilitates queries by problem."
^DD(8925,.05,1,10,"DT")="2950928"
^DD(8925,.05,1,11,0)="8925^AVSIT3^MUMPS"
^DD(8925,.05,1,11,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,13)),U) S ^TIU(8925,""AVSIT"",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)="""""
^DD(8925,.05,1,11,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,13)),U) K ^TIU(8925,""AVSIT"",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+X,(9999999-$P(^TIU(8925,+DA,13),U)),+DA)"
^DD(8925,.05,1,11,"%D",0)="^^2^2^2951207^^^"
^DD(8925,.05,1,11,"%D",1,0)="This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE,"
^DD(8925,.05,1,11,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by visit."
^DD(8925,.05,1,11,"DT")="2951207"
^DD(8925,.05,1,12,0)="8925^ADCPT3^MUMPS"
^DD(8925,.05,1,12,1)="I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,4) S ^TIU(8925,""ADCPT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+X,(9999999-$P(^TIU(8925,+DA,13),U)),DA)="""""
^DD(8925,.05,1,12,2)="I +$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,4) K ^TIU(8925,""ADCPT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+X,(9999999-$P(^TIU(8925,+DA,13),U)),DA)"
^DD(8925,.05,1,12,"%D",0)="^^3^3^2950925^"
^DD(8925,.05,1,12,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS,"
^DD(8925,.05,1,12,"%D",2,0)="STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND"
^DD(8925,.05,1,12,"%D",3,0)="DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe)."
^DD(8925,.05,1,12,"DT")="2950925"
^DD(8925,.05,1,13,0)="8925^ACLPT05^MUMPS"
^DD(8925,.05,1,13,1)="D SACLPT^TIUDD0(.05,X)"
^DD(8925,.05,1,13,2)="D KACLPT^TIUDD01(.05,X)"
^DD(8925,.05,1,13,"%D",0)="^^13^13^2990318^"
^DD(8925,.05,1,13,"%D",1,0)="This multi-field M-type cross-reference on CLASS, PATIENT, INVERSE REFERENCE"
^DD(8925,.05,1,13,"%D",2,0)="DATE/TIME, and RECORD # supports rapid queries by patient.  The global set"
^DD(8925,.05,1,13,"%D",3,0)="looks like ^TIU(8925,""ACLPT"",<class>,<patient>,<inverse reference date/"
^DD(8925,.05,1,13,"%D",4,0)="time>,<document IEN>)="""""
^DD(8925,.05,1,13,"%D",5,0)=" "
^DD(8925,.05,1,13,"%D",6,0)="The STATUS field is cross-referenced to catch cases where the status is"
^DD(8925,.05,1,13,"%D",7,0)="not updated until after the SIGNATURE DATE/TIME is edited. Generally,"
^DD(8925,.05,1,13,"%D",8,0)="documents are added to the ACLPT cross-reference when they are first"
^DD(8925,.05,1,13,"%D",9,0)="signed, via the SIGNATURE DATE/TIME field.  However, they are added only"
^DD(8925,.05,1,13,"%D",10,0)="if their status is already signed or higher.  Since Sign on Chart code"
^DD(8925,.05,1,13,"%D",11,0)="does not update status until AFTER editing SIGNATURE DATE/TIME, SOC"
^DD(8925,.05,1,13,"%D",12,0)="documents are omitted from the cross-reference. Adding this cross-"
^DD(8925,.05,1,13,"%D",13,0)="reference to the status field corrects this problem."
^DD(8925,.05,1,13,"DT")="2990317"
^DD(8925,.05,1,14,0)="8925^ACLEC06^MUMPS"
^DD(8925,.05,1,14,1)="D SACLEC^TIUDD0(.05,X)"
^DD(8925,.05,1,14,2)="D KACLEC^TIUDD01(.05,X)"
^DD(8925,.05,1,14,"%D",0)="^.101^3^3^3030520^^^"
^DD(8925,.05,1,14,"%D",1,0)="This multi-field, MUMPS-type cross reference on CLASS, EXPECTED COSIGNER, "
^DD(8925,.05,1,14,"%D",2,0)="PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding the "
^DD(8925,.05,1,14,"%D",3,0)="uncosigned notes by the current user for a given patient."
^DD(8925,.05,1,14,"DT")="3030122"
^DD(8925,.05,1,15,0)="8925^ACLAU05^MUMPS"
^DD(8925,.05,1,15,1)="D SACLAU^TIUDD0(.05,X),SACLAU1^TIUDD0(.05,X)"
^DD(8925,.05,1,15,2)="D KACLAU^TIUDD01(.05,X),KACLAU1^TIUDD01(.05,X)"
^DD(8925,.05,1,15,"%D",0)="^.101^3^3^3030520^^"
^DD(8925,.05,1,15,"%D",1,0)="This multi-field, MUMPS-type cross reference on CLASS, AUTHOR (or ENTERED "
^DD(8925,.05,1,15,"%D",2,0)="BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to "
^DD(8925,.05,1,15,"%D",3,0)="faciliate rapid access to the current users unsigned notes about a patient."
^DD(8925,.05,1,15,"DT")="3030122"
^DD(8925,.05,3)="Enter the status of the document."
^DD(8925,.05,21,0)="^^1^1^2940318^"
^DD(8925,.05,21,1,0)="This field is intended to accommodate the status of a given report."
^DD(8925,.05,"DT")="3030418"
^DD(8925,.06,0)="PARENT^P8925'^TIU(8925,^0;6^Q"
^DD(8925,.06,1,0)="^.1^^-1"
^DD(8925,.06,1,1,0)="8925^DAD"
^DD(8925,.06,1,1,1)="S ^TIU(8925,""DAD"",$E(X,1,30),DA)="""""
^DD(8925,.06,1,1,2)="K ^TIU(8925,""DAD"",$E(X,1,30),DA)"
^DD(8925,.06,1,1,"%D",0)="^^1^1^2920903^"
^DD(8925,.06,1,1,"%D",1,0)="Cross-reference on parent to help find addenda."
^DD(8925,.06,1,1,"DT")="2920903"
^DD(8925,.06,3)="Select the original report"
^DD(8925,.06,21,0)="^^2^2^2950123^^"
^DD(8925,.06,21,1,0)="In the event that the current report is an addendum or replacement, or is"
^DD(8925,.06,21,2,0)="a component of a report, this field points to the original report."
^DD(8925,.06,"DT")="2970316"
^DD(8925,.07,0)="EPISODE BEGIN DATE/TIME^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,.07,1,0)="^.1"
^DD(8925,.07,1,1,0)="8925^APTLD07^MUMPS"
^DD(8925,.07,1,1,1)="D SAPTLD^TIUDD0(.07,X)"
^DD(8925,.07,1,1,2)="D KAPTLD^TIUDD01(.07,X)"
^DD(8925,.07,1,1,"%D",0)="^^2^2^2970617^^"
^DD(8925,.07,1,1,"%D",1,0)="This MUMPS type Multi-field index by PT,TITLE,""LOC;VDT;VTYP"",DA is used"
^DD(8925,.07,1,1,"%D",2,0)="for optimizing checks for documents for a particular visit."
^DD(8925,.07,1,1,"DT")="2970617"
^DD(8925,.07,3)="Enter the admission date (time is optional)."
^DD(8925,.07,21,0)="^^4^4^2931115^"
^DD(8925,.07,21,1,0)="This is the date/time at which the treatment episode associated with this"
^DD(8925,.07,21,2,0)="document was initiated (e.g., Amission date/time for a discharge summary,"
^DD(8925,.07,21,3,0)="Visit date/time for a clinic note, Transfer date/time for an interim"
^DD(8925,.07,21,4,0)="summary).  Time is optional."
^DD(8925,.07,"DT")="2970617"
^DD(8925,.08,0)="EPISODE END DATE/TIME^DX^^0;8^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,.08,3)="Enter discharge date (time is optional)."
^DD(8925,.08,21,0)="^^2^2^2931115^"
^DD(8925,.08,21,1,0)="This is the ending date/time for the treatment episode associated with"
^DD(8925,.08,21,2,0)="this document (e.g., .  Time is optional."
^DD(8925,.08,"DT")="2930308"
^DD(8925,.09,0)="URGENCY^*S^P:priority;R:routine;^0;9^Q"
^DD(8925,.09,3)="Enter urgency."
^DD(8925,.09,12)="STAT is equivalent to priority."
^DD(8925,.09,12.1)="S X=$$URGENCY^TIULS($G(X)),DIC(""S"")=""I 1"""
^DD(8925,.09,21,0)="^.001^1^1^3010503^^^^"
^DD(8925,.09,21,1,0)="This is the urgency with which the report should be completed."
^DD(8925,.09,"DT")="3010503"
^DD(8925,.1,0)="LINE COUNT^F^^0;10^K:$L(X)>8!($L(X)<1)!'(X?1.8N) X"
^DD(8925,.1,3)="Answer must be 1-8 characters in length."
^DD(8925,.1,21,0)="^^2^2^2920520^"
^DD(8925,.1,21,1,0)="This is the number of characters in the document (blank lines excluded),"
^DD(8925,.1,21,2,0)="divided by the CHARACTERS PER LINE parameter defined by your site."
^DD(8925,.1,"DT")="2920520"
^DD(8925,.11,0)="CREDIT STOP CODE ON COMPLETION^S^1:YES;0:NO;^0;11^Q"
^DD(8925,.11,3)="Indicate whether the stop-code for a new visit should be credited."
^DD(8925,.11,21,0)="^^2^2^2960415^"
^DD(8925,.11,21,1,0)="This boolean field indicates whether the stop code associated with a new"
^DD(8925,.11,21,2,0)="visit should be credited when the note is completed."
^DD(8925,.11,"DT")="2960415"
^DD(8925,.12,0)="MARK DISCH DT FOR CORRECTION^S^1:YES;^0;12^Q"
^DD(8925,.12,1,0)="^.1"
^DD(8925,.12,1,1,0)="8925^FIX"
^DD(8925,.12,1,1,1)="S ^TIU(8925,""FIX"",$E(X,1,30),DA)="""""
^DD(8925,.12,1,1,2)="K ^TIU(8925,""FIX"",$E(X,1,30),DA)"
^DD(8925,.12,1,1,"%D",0)="^^3^3^2960524^"
^DD(8925,.12,1,1,"%D",1,0)="This regular FileMan Cross-reference is used by the nightly daemon to "
^DD(8925,.12,1,1,"%D",2,0)="identify those records which require evaluation/correction of their "
^DD(8925,.12,1,1,"%D",3,0)="discharge dates..."
^DD(8925,.12,1,1,"DT")="2960524"
^DD(8925,.12,3)="Indicate whether discharge date must be corrected by the daemon"
^DD(8925,.12,21,0)="^^3^3^2960531^^"
^DD(8925,.12,21,1,0)="This boolean field identfies those discharge summaries which were filed"
^DD(8925,.12,21,2,0)="prior to actual discharge of the patient for the nightly background"
^DD(8925,.12,21,3,0)="process to back-fill with corrected discharge dates."
^DD(8925,.12,"DT")="2960531"
^DD(8925,.13,0)="VISIT TYPE^F^^0;13^K:$L(X)>4!($L(X)<1)!'(X?1U.E) X"
^DD(8925,.13,1,0)="^.1"
^DD(8925,.13,1,1,0)="8925^APTLD13^MUMPS"
^DD(8925,.13,1,1,1)="D SAPTLD^TIUDD0(.13,X)"
^DD(8925,.13,1,1,2)="D KAPTLD^TIUDD01(.13,X)"
^DD(8925,.13,1,1,"%D",0)="^^2^2^2970617^^"
^DD(8925,.13,1,1,"%D",1,0)="This MUMPS type Multi-field index by PT,TITLE,""LOC;VDT;VTYP"",DA is used"
^DD(8925,.13,1,1,"%D",2,0)="for optimizing checks for documents for a particular visit."
^DD(8925,.13,1,1,"DT")="2970617"
^DD(8925,.13,3)="This field contains the visit type identification and is entered by the program during processing."
^DD(8925,.13,21,0)="^^4^4^2970315^"
^DD(8925,.13,21,1,0)="This field is used to identify the type of visit information related to"
^DD(8925,.13,21,2,0)="the current document.  The value is determined during processing and is"
^DD(8925,.13,21,3,0)="entered by the program.  It is used in the generation of a cross-reference"
^DD(8925,.13,21,4,0)="to identify available documents for specified visits."
^DD(8925,.13,"DT")="2970617"
^DD(8925,2,0)="REPORT TEXT^8925.02^^TEXT;0"
^DD(8925,2,21,0)="^^1^1^2961217^^"
^DD(8925,2,21,1,0)="This is a word processing field that contains the report text."
^DD(8925,3,0)="EDIT TEXT BUFFER^8925.03^^TEMP;0"
^DD(8925,3,21,0)="^^3^3^2961217^^"
^DD(8925,3,21,1,0)="This field provides a temporary holding place for the body of a report to"
^DD(8925,3,21,2,0)="prevent inadvertant record deletion or corruption in a manner independent"
^DD(8925,3,21,3,0)="of the user's preferred editor."
^DD(8925,1201,0)="ENTRY DATE/TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1201,1,0)="^.1"
^DD(8925,1201,1,1,0)="8925^F"
^DD(8925,1201,1,1,1)="S ^TIU(8925,""F"",$E(X,1,30),DA)="""""
^DD(8925,1201,1,1,2)="K ^TIU(8925,""F"",$E(X,1,30),DA)"
^DD(8925,1201,1,1,"%D",0)="^^3^3^2960528^"
^DD(8925,1201,1,1,"%D",1,0)="This regular FileMan Cross-reference on Entry Date/time supports the"
^DD(8925,1201,1,1,"%D",2,0)="Nightly background task, by helping to identify the subset of records"
^DD(8925,1201,1,1,"%D",3,0)="which is overdue for either signature or purging."
^DD(8925,1201,1,1,"DT")="2960528"
^DD(8925,1201,3)="Date/time of entry into database."
^DD(8925,1201,21,0)="^^2^2^2940119^"
^DD(8925,1201,21,1,0)="This is the date/time at which the document was originally entered into"
^DD(8925,1201,21,2,0)="the database."
^DD(8925,1201,"DT")="2960528"
^DD(8925,1202,0)="AUTHOR/DICTATOR^*P200'^VA(200,^12;2^S DIC(""S"")=""I '+$$ISTERM^USRLM(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925,1202,.1)="AUTHOR OF NOTE"
^DD(8925,1202,1,0)="^.1"
^DD(8925,1202,1,1,0)="8925^CA"
^DD(8925,1202,1,1,1)="S ^TIU(8925,""CA"",$E(X,1,30),DA)="""""
^DD(8925,1202,1,1,2)="K ^TIU(8925,""CA"",$E(X,1,30),DA)"
^DD(8925,1202,1,1,"%D",0)="^^3^3^2960508^^"
^DD(8925,1202,1,1,"%D",1,0)=" "
^DD(8925,1202,1,1,"%D",2,0)="This REGULAR, whole-file cross-reference by Author/Dictator will"
^DD(8925,1202,1,1,"%D",3,0)="facilitate both look-ups and sorting by author."
^DD(8925,1202,1,1,"DT")="2940204"
^DD(8925,1202,1,2,0)="8925^AAU^MUMPS"
^DD(8925,1202,1,2,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""AAU"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),+DA)="""""
^DD(8925,1202,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""AAU"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P(^TIU(8925,+DA,13),U)),+DA)"
^DD(8925,1202,1,2,"%D",0)="^^3^3^2940722^^"
^DD(8925,1202,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by author, document type,"
^DD(8925,1202,1,2,"%D",2,0)="status, and inverse dictation date/time is intended to facilitate look-up"
^DD(8925,1202,1,2,"%D",3,0)="by author for the review process."
^DD(8925,1202,1,2,"DT")="2940322"
^DD(8925,1202,1,3,0)="8925^AAUP^MUMPS"
^DD(8925,1202,1,3,1)="I +$$AAUP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,""AAUP"",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)="""""
^DD(8925,1202,1,3,2)="I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,""AAUP"",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)"
^DD(8925,1202,1,3,"%D",0)="^^3^3^2950623^"
^DD(8925,1202,1,3,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Author and REGULAR"
^DD(8925,1202,1,3,"%D",2,0)="Signature Date/Time is used to maintain the daily print queue for batch"
^DD(8925,1202,1,3,"%D",3,0)="printing of documents (currently, just Progress Notes) on signature."
^DD(8925,1202,1,3,"DT")="2950623"
^DD(8925,1202,1,4,0)="8925^ACLAU03^MUMPS"
^DD(8925,1202,1,4,1)="D SACLAU^TIUDD0(1202,X)"
^DD(8925,1202,1,4,2)="D KACLAU^TIUDD01(1202,X)"
^DD(8925,1202,1,4,"%D",0)="^^4^4^2970617^"
^DD(8925,1202,1,4,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED"
^DD(8925,1202,1,4,"%D",2,0)="BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to"
^DD(8925,1202,1,4,"%D",3,0)="facilitate rapid access to the current users unsigned notes about a"
^DD(8925,1202,1,4,"%D",4,0)="patient."
^DD(8925,1202,1,4,"DT")="2970617"
^DD(8925,1202,1,5,0)="^^TRIGGER^8925^1404"
^DD(8925,1202,1,5,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I '+$$ISDS^TIULX(+$G(^TIU(8925,+DA,0))) I X S X=DIV S Y(1)=$S($D(^TIU(8925,D0,14)):^(14),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(8925,1202,1,5,1.1) X ^DD(8925,1202,1,5,1.4)"
^DD(8925,1202,1,5,1.1)="S X=DIV S X=+$$PROVSVC^TIULV(+$P($G(^TIU(8925,DA,12)),U,2))"
^DD(8925,1202,1,5,1.4)="S DIH=$S($D(^TIU(8925,DIV(0),14)):^(14),1:""""),DIV=X S $P(^(14),U,4)=DIV,DIH=8925,DIG=1404 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8925,1202,1,5,2)="Q"
^DD(8925,1202,1,5,"CREATE CONDITION")="I '+$$ISDS^TIULX(+$G(^TIU(8925,+DA,0)))"
^DD(8925,1202,1,5,"CREATE VALUE")="S X=+$$PROVSVC^TIULV(+$P($G(^TIU(8925,DA,12)),U,2))"
^DD(8925,1202,1,5,"DELETE VALUE")="NO EFFECT"
^DD(8925,1202,1,5,"DT")="2980916"
^DD(8925,1202,1,5,"FIELD")="SERVICE"
^DD(8925,1202,3)="Enter the author or dictating provider."
^DD(8925,1202,12)="Terminated users may NOT be selected."
^DD(8925,1202,12.1)="S DIC(""S"")=""I '+$$ISTERM^USRLM(+Y)"""
^DD(8925,1202,21,0)="^^2^2^2980916^^^"
^DD(8925,1202,21,1,0)=" "
^DD(8925,1202,21,2,0)="This is the person who composed or dictated the document."
^DD(8925,1202,"DT")="2981209"
^DD(8925,1203,0)="CLINIC^P40.7'^DIC(40.7,^12;3^Q"
^DD(8925,1203,3)="Enter the stop code for the clinic."
^DD(8925,1203,21,0)="^^4^4^2950125^"
^DD(8925,1203,21,1,0)="This is the stop code to which the document is to be credited (e.g., if the "
^DD(8925,1203,21,2,0)="document is a progress note documenting an encounter which took place in the "
^DD(8925,1203,21,3,0)="Admitting/Screening Clinic, then select the corresponding stop code, etc.)."
^DD(8925,1203,21,4,0)=""
^DD(8925,1203,"DT")="2950125"
^DD(8925,1204,0)="EXPECTED SIGNER^P200'O^VA(200,^12;4^Q"
^DD(8925,1204,1,0)="^.1^^0"
^DD(8925,1204,2)="S Y(0)=Y S:+Y>0&$D(TIUSIG) Y=$S($L($P(^VA(200,+Y,20),U,2)):$P(^(20),U,2),1:$P(^VA(200,+Y,0),U)) S:+Y>0&'$D(TIUSIG) Y=$P(^VA(200,+Y,0),U)"
^DD(8925,1204,2.1)="S:+Y>0&$D(TIUSIG) Y=$S($L($P(^VA(200,+Y,20),U,2)):$P(^(20),U,2),1:$P(^VA(200,+Y,0),U)) S:+Y>0&'$D(TIUSIG) Y=$P(^VA(200,+Y,0),U)"
^DD(8925,1204,3)="Enter the person responsible for signing the document."
^DD(8925,1204,21,0)="^^5^5^2940418^"
^DD(8925,1204,21,1,0)="This is the person who is expected to enter the first-line signature for"
^DD(8925,1204,21,2,0)="the document.  Ordinarily, this would be the author.  One case in which"
^DD(8925,1204,21,3,0)="this would differ would be in the case of a Discharge Summary, when the"
^DD(8925,1204,21,4,0)="author's signature is NOT required.  Then, the attending physician would"
^DD(8925,1204,21,5,0)="be the expected signer."
^DD(8925,1204,"DT")="2940420"
^DD(8925,1205,0)="HOSPITAL LOCATION^P44'^SC(^12;5^Q"
^DD(8925,1205,.1)="PATIENT LOCATION"
^DD(8925,1205,1,0)="^.1^^-1"
^DD(8925,1205,1,1,0)="8925^ALOC^MUMPS"
^DD(8925,1205,1,1,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ALOC"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,1205,1,1,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ALOC"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,1205,1,1,"%D",0)="^^2^2^2960710^^^"
^DD(8925,1205,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference is optimized for searching "
^DD(8925,1205,1,1,"%D",2,0)="hospital location, document type, status, and date range."
^DD(8925,1205,1,1,"DT")="2950615"
^DD(8925,1205,1,2,0)="8925^ALOCP^MUMPS"
^DD(8925,1205,1,2,1)="I +$$ALOCP^TIULX(+DA),+$P($G(^TIU(8925,+DA,15)),U) S ^TIU(8925,""ALOCP"",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)="""""
^DD(8925,1205,1,2,2)="I +$P($G(^TIU(8925,+DA,15)),U) K ^TIU(8925,""ALOCP"",+X,+$P($G(^TIU(8925,+DA,15)),U),+DA)"
^DD(8925,1205,1,2,"%D",0)="^^3^3^2950623^^^"
^DD(8925,1205,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Hospital Location and"
^DD(8925,1205,1,2,"%D",2,0)="REGULAR Signature Date/Time is used to maintain the daily print queue for"
^DD(8925,1205,1,2,"%D",3,0)="batch printing of documents (currently, just Progress Notes) on signature."
^DD(8925,1205,1,2,"DT")="2950619"
^DD(8925,1205,3)="Enter the location associated with the document."
^DD(8925,1205,21,0)="^^1^1^2960805^^^^"
^DD(8925,1205,21,1,0)="This is the location (WARD or CLINIC) associated with the document."
^DD(8925,1205,"DT")="2970328"
^DD(8925,1206,0)="SERVICE CREDIT STOP^P40.7'^DIC(40.7,^12;6^Q"
^DD(8925,1206,1,0)="^.1^^0"
^DD(8925,1206,3)="Enter the name of the STOP CODE for the Secondary Visit."
^DD(8925,1206,21,0)="^^3^3^2950125^^^"
^DD(8925,1206,21,1,0)="This is the attending physician of record, who is ultimately responsible"
^DD(8925,1206,21,2,0)="for the care of the patient, and the accurate documentation of the care"
^DD(8925,1206,21,3,0)="episode."
^DD(8925,1206,"DT")="2950125"
^DD(8925,1207,0)="SECONDARY VISIT^P9000010'^AUPNVSIT(^12;7^Q"
^DD(8925,1207,1,0)="^.1"
^DD(8925,1207,1,1,0)="8925^AV1207^MUMPS"
^DD(8925,1207,1,1,1)="D:$D(^AUPNVSIT(+X)) ADD^AUPNVSIT"
^DD(8925,1207,1,1,2)="D:$D(^AUPNVSIT(+X)) SUB^AUPNVSIT"
^DD(8925,1207,1,1,"%D",0)="^^2^2^3000329^"
^DD(8925,1207,1,1,"%D",1,0)="This MUMPS-type cross-reference is used to maintain the dependent entry"
^DD(8925,1207,1,1,"%D",2,0)="count in the VISIT file for the SECONDARY VISIT."
^DD(8925,1207,1,1,"DT")="3000329"
^DD(8925,1207,"DT")="3000329"
^DD(8925,1208,0)="EXPECTED COSIGNER^*P200'^VA(200,^12;8^S DIC(""S"")=""I +$G(DA),+$$SCRCSNR^TIULA3(+DA,+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925,1208,1,0)="^.1"
^DD(8925,1208,1,1,0)="8925^CS"
^DD(8925,1208,1,1,1)="S ^TIU(8925,""CS"",$E(X,1,30),DA)="""""
^DD(8925,1208,1,1,2)="K ^TIU(8925,""CS"",$E(X,1,30),DA)"
^DD(8925,1208,1,1,"%D",0)="^^2^2^2950125^"
^DD(8925,1208,1,1,"%D",1,0)="This REGULAR, FileMan type cross-reference by supervisor (expected"
^DD(8925,1208,1,1,"%D",2,0)="cosigner) will be used to optimize FM Sorts and searches."
^DD(8925,1208,1,1,"DT")="2950125"
^DD(8925,1208,1,2,0)="8925^ASUP^MUMPS"
^DD(8925,1208,1,2,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ASUP"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,1208,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ASUP"",+X,+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,1208,1,2,"%D",0)="^^3^3^2950125^^"
^DD(8925,1208,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by (EXPECTED COSIGNER),"
^DD(8925,1208,1,2,"%D",2,0)="DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME"
^DD(8925,1208,1,2,"%D",3,0)="will be used for look-ups and queries."
^DD(8925,1208,1,2,"DT")="2950125"
^DD(8925,1208,1,3,0)="8925^ACLEC03^MUMPS"
^DD(8925,1208,1,3,1)="D SACLEC^TIUDD0(1208,X)"
^DD(8925,1208,1,3,2)="D KACLEC^TIUDD01(1208,X)"
^DD(8925,1208,1,3,"%D",0)="^^3^3^2970617^"
^DD(8925,1208,1,3,"%D",1,0)="This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER,"
^DD(8925,1208,1,3,"%D",2,0)="PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding"
^DD(8925,1208,1,3,"%D",3,0)="the uncosigned notes by the current user for a given patient."
^DD(8925,1208,1,3,"DT")="2970617"
^DD(8925,1208,3)="Enter the person who is expected to cosign the document."
^DD(8925,1208,12)="You may not select self, author, or others who require cosignature."
^DD(8925,1208,12.1)="S DIC(""S"")=""I +$G(DA),+$$SCRCSNR^TIULA3(+DA,+Y)"""
^DD(8925,1208,"DT")="2980925"
^DD(8925,1209,0)="ATTENDING PHYSICIAN^*P200'^VA(200,^12;9^S DIC(""S"")=""I '+$$ISTERM^USRLM(+Y),+$$PROVIDER^TIUPXAP1(+Y,DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925,1209,1,0)="^.1^^0"
^DD(8925,1209,3)="Enter the name of the Attending Physician."
^DD(8925,1209,12)="Only active PROVIDERS may be selected."
^DD(8925,1209,12.1)="S DIC(""S"")=""I '+$$ISTERM^USRLM(+Y),+$$PROVIDER^TIUPXAP1(+Y,DT)"""
^DD(8925,1209,"DT")="2990113"
^DD(8925,1210,0)="ORDER NUMBER^P100'^OR(100,^12;10^Q"
^DD(8925,1210,3)="Indicate the Order with which this document is associated."
^DD(8925,1210,21,0)="^^2^2^2950215^"
^DD(8925,1210,21,1,0)="This is the Order which was acted on to produce the result reported in the "
^DD(8925,1210,21,2,0)="current document."
^DD(8925,1210,"DT")="2950215"
^DD(8925,1211,0)="VISIT LOCATION^P44'^SC(^12;11^Q"
^DD(8925,1211,1,0)="^.1"
^DD(8925,1211,1,1,0)="8925^APTLD1211^MUMPS"
^DD(8925,1211,1,1,1)="D SAPTLD^TIUDD0(1211,X)"
^DD(8925,1211,1,1,2)="D KAPTLD^TIUDD01(1211,X)"
^DD(8925,1211,1,1,"%D",0)="^^2^2^2970617^^^"
^DD(8925,1211,1,1,"%D",1,0)="This MUMPS-type, Multi-field index by PT,TITLE,""VLOC;VDT;VTYP"",DA is used to "
^DD(8925,1211,1,1,"%D",2,0)="optimize the check for documents of a given title for a particular visit."
^DD(8925,1211,1,1,"DT")="2970617"
^DD(8925,1211,3)="Enter the Hospital Location at which the visit occurred."
^DD(8925,1211,21,0)="^^4^4^2970328^"
^DD(8925,1211,21,1,0)="This is the location at which the visit/admission occurred.  As distinct "
^DD(8925,1211,21,2,0)="from the HOSPITAL LOCATION field, which represents the location at the time "
^DD(8925,1211,21,3,0)="the document was written, this is the location for the visit/admission with "
^DD(8925,1211,21,4,0)="which the note is associated."
^DD(8925,1211,"DT")="2970617"
^DD(8925,1212,0)="DIVISION^P4'^DIC(4,^12;12^Q"
^DD(8925,1212,3)="Enter the institution associated with the document."
^DD(8925,1212,21,0)="^^3^3^3030418^"
^DD(8925,1212,21,1,0)="This field contains the institution associated with the document. It is "
^DD(8925,1212,21,2,0)="extracted from the document's hospital location if known; otherwise it is "
^DD(8925,1212,21,3,0)="extracted from the user's log-on division."
^DD(8925,1212,"DT")="3030418"
^DD(8925,1301,0)="REFERENCE DATE^D^^13;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1301,.1)="DATE/TIME OF NOTE"
^DD(8925,1301,1,0)="^.1"
^DD(8925,1301,1,1,0)="8925^AAU1^MUMPS"
^DD(8925,1301,1,1,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""AAU"",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,1,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""AAU"",+$P(^TIU(8925,+DA,12),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,1,"%D",0)="^^2^2^2940722^^^"
^DD(8925,1301,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for look-ups by"
^DD(8925,1301,1,1,"%D",2,0)="author, document type, status, and date range."
^DD(8925,1301,1,1,"DT")="2940322"
^DD(8925,1301,1,2,0)="8925^ASUP1^MUMPS"
^DD(8925,1301,1,2,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ASUP"",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,8),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ASUP"",+$P(^TIU(8925,+DA,12),U,8),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,2,"%D",0)="^^3^3^2950125^^"
^DD(8925,1301,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by EXPECTED COSIGNER),"
^DD(8925,1301,1,2,"%D",2,0)="DOCUMENT TYPE, STATUS, and INVERSE ENTRY/DICTATION DATE/TIME will"
^DD(8925,1301,1,2,"%D",3,0)="be used for look-ups and queries."
^DD(8925,1301,1,2,"DT")="2950125"
^DD(8925,1301,1,3,0)="8925^APT1^MUMPS"
^DD(8925,1301,1,3,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""APT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,3,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""APT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,3,"%D",0)="^^2^2^2950925^^^"
^DD(8925,1301,1,3,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for look-ups by"
^DD(8925,1301,1,3,"%D",2,0)="patient, document type, status, and date range."
^DD(8925,1301,1,3,"DT")="2940322"
^DD(8925,1301,1,4,0)="8925^ATS1^MUMPS"
^DD(8925,1301,1,4,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ATS"",+$P(^TIU(8925,+DA,14),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,4,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ATS"",+$P(^TIU(8925,+DA,14),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,4,"%D",0)="^^2^2^2941122^^"
^DD(8925,1301,1,4,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for look-ups by"
^DD(8925,1301,1,4,"%D",2,0)="Treating Specialty, document type, status, and date range."
^DD(8925,1301,1,4,"DT")="2940325"
^DD(8925,1301,1,5,0)="8925^ATC1^MUMPS"
^DD(8925,1301,1,5,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ATC"",+$P(^TIU(8925,+DA,13),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,5,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ATC"",+$P(^TIU(8925,+DA,13),U,2),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,5,"%D",0)="^^2^2^2940323^"
^DD(8925,1301,1,5,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for look-ups by"
^DD(8925,1301,1,5,"%D",2,0)="Entry person, document type, status, and date range."
^DD(8925,1301,1,5,"DT")="2940323"
^DD(8925,1301,1,6,0)="8925^ALL1^MUMPS"
^DD(8925,1301,1,6,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ALL"",""ANY"",+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,6,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ALL"",""ANY"",+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,6,"%D",0)="^^2^2^2940325^"
^DD(8925,1301,1,6,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for look-ups by"
^DD(8925,1301,1,6,"%D",2,0)="document type and date range."
^DD(8925,1301,1,6,"DT")="2940325"
^DD(8925,1301,1,7,0)="8925^ASUB1^MUMPS"
^DD(8925,1301,1,7,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),$L($P($G(^TIU(8925,+DA,17)),U)) D ASUBS^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)"
^DD(8925,1301,1,7,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),$L($P($G(^TIU(8925,+DA,17)),U)) D ASUBK^TIUDD($P($G(^TIU(8925,+DA,17)),U),+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)"
^DD(8925,1301,1,7,"%D",0)="^^2^2^2950928^^"
^DD(8925,1301,1,7,"%D",1,0)="This MULTI-fields, MUMPS-type cross-reference is used for queries by"
^DD(8925,1301,1,7,"%D",2,0)="subject."
^DD(8925,1301,1,7,"DT")="2950928"
^DD(8925,1301,1,8,0)="8925^ASVC1^MUMPS"
^DD(8925,1301,1,8,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ASVC"",+$P(^TIU(8925,+DA,14),U,4),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,8,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,14)),U,4),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ASVC"",+$P(^TIU(8925,+DA,14),U,4),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,8,"%D",0)="^^2^2^2960710^^"
^DD(8925,1301,1,8,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for look-ups SERVICE, "
^DD(8925,1301,1,8,"%D",2,0)="document type, status, and date "
^DD(8925,1301,1,8,"DT")="2941122"
^DD(8925,1301,1,9,0)="8925^APRB1^MUMPS"
^DD(8925,1301,1,9,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,""B"",+DA,0)) D APRBS^TIUDD(+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)"
^DD(8925,1301,1,9,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$O(^TIU(8925.9,""B"",+DA,0)) D APRBK^TIUDD(+$G(^TIU(8925,+DA,0)),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-+X),DA)"
^DD(8925,1301,1,9,"%D",0)="^^3^3^2950928^^"
^DD(8925,1301,1,9,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Problem, Document type,"
^DD(8925,1301,1,9,"%D",2,0)="Status, and Inverse Reference Date/time is used to facilitate query by"
^DD(8925,1301,1,9,"%D",3,0)="problem."
^DD(8925,1301,1,9,"DT")="2950928"
^DD(8925,1301,1,10,0)="8925^AVSIT1^MUMPS"
^DD(8925,1301,1,10,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""AVSIT"",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)="""""
^DD(8925,1301,1,10,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,3),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""AVSIT"",+$P(^TIU(8925,+DA,0),U,3),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)"
^DD(8925,1301,1,10,"%D",0)="^^2^2^2951207^^^^"
^DD(8925,1301,1,10,"%D",1,0)="This MUMPS-type, multi-field cross-reference by VISIT, DOCUMENT TYPE,"
^DD(8925,1301,1,10,"%D",2,0)="STATUS, and INVERSE ENTRY/DICTATION DATE facilitates look-ups by visit."
^DD(8925,1301,1,10,"DT")="2950925"
^DD(8925,1301,1,11,0)="8925^ADCPT1^MUMPS"
^DD(8925,1301,1,11,1)="I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ADCPT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)="""""
^DD(8925,1301,1,11,2)="I +$P($G(^TIU(8925,+DA,0)),U,4),+$P($G(^TIU(8925,+DA,0)),U,2),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ADCPT"",+$P(^TIU(8925,+DA,0),U,2),+$P(^TIU(8925,+DA,0),U,4),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),DA)"
^DD(8925,1301,1,11,"%D",0)="^^3^3^2950925^"
^DD(8925,1301,1,11,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, DOCUMENT CLASS,"
^DD(8925,1301,1,11,"%D",2,0)="STATUS, and INVERSE REFERENCE DATE facilitates look-ups by PATIENT AND"
^DD(8925,1301,1,11,"%D",3,0)="DOCUMENT CLASS (e.g., all SIGNED Violence Postings for patient John Doe)."
^DD(8925,1301,1,11,"DT")="2950925"
^DD(8925,1301,1,12,0)="8925^D"
^DD(8925,1301,1,12,1)="S ^TIU(8925,""D"",$E(X,1,30),DA)="""""
^DD(8925,1301,1,12,2)="K ^TIU(8925,""D"",$E(X,1,30),DA)"
^DD(8925,1301,1,12,"%D",0)="^^2^2^2951215^"
^DD(8925,1301,1,12,"%D",1,0)="This REGULAR FileMan Cross-reference by Reference Date/time is used"
^DD(8925,1301,1,12,"%D",2,0)="for both look-ups and sorts."
^DD(8925,1301,1,12,"DT")="2951215"
^DD(8925,1301,1,13,0)="8925^APTCL1^MUMPS"
^DD(8925,1301,1,13,1)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-X),DA)="""""
^DD(8925,1301,1,13,2)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),+$$CLINDOC^TIULC1(+$P(^TIU(8925,+DA,0),U),+DA),(9999999-X),DA)"
^DD(8925,1301,1,13,"%D",0)="^^2^2^2960823^^^^"
^DD(8925,1301,1,13,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, CLINICAL DOCUMENT"
^DD(8925,1301,1,13,"%D",2,0)="CLASS, and INVERSE REFERENCE DATE facilitates look-ups by patient."
^DD(8925,1301,1,13,"DT")="2960823"
^DD(8925,1301,1,14,0)="8925^APTCL381^MUMPS"
^DD(8925,1301,1,14,1)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-X),DA)="""""
^DD(8925,1301,1,14,2)="I +$P(^TIU(8925,+DA,0),U),+$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,""APTCL"",+$P(^TIU(8925,+DA,0),U,2),38,(9999999-X),DA)"
^DD(8925,1301,1,14,"%D",0)="^^2^2^2960506^"
^DD(8925,1301,1,14,"%D",1,0)="This MUMPS-type, multi-field cross-reference by PATIENT, ROOT CLASS, and"
^DD(8925,1301,1,14,"%D",2,0)="INVERSE REFERENCE DATE facilitates look-ups by patient."
^DD(8925,1301,1,14,"DT")="2960506"
^DD(8925,1301,1,15,0)="8925^ALOC1^MUMPS"
^DD(8925,1301,1,15,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ALOC"",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)="""""
^DD(8925,1301,1,15,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,12)),U,5),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ALOC"",+$P(^TIU(8925,+DA,12),U,5),+$P(^TIU(8925,+DA,0),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-X),+DA)"
^DD(8925,1301,1,15,"%D",0)="^^2^2^2960710^^^"
^DD(8925,1301,1,15,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for look-ups"
^DD(8925,1301,1,15,"%D",2,0)="LOCATION, document type, status, and date"
^DD(8925,1301,1,15,"DT")="2960710"
^DD(8925,1301,1,16,0)="8925^ACLPT03^MUMPS"
^DD(8925,1301,1,16,1)="D SACLPT^TIUDD0(1301,X)"
^DD(8925,1301,1,16,2)="D KACLPT^TIUDD01(1301,X)"
^DD(8925,1301,1,16,"%D",0)="^^3^3^2970617^"
^DD(8925,1301,1,16,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE"
^DD(8925,1301,1,16,"%D",2,0)="REFERENCE DATE/TIME, and RECORD # is designed to support rapid queries by"
^DD(8925,1301,1,16,"%D",3,0)="patient."
^DD(8925,1301,1,16,"DT")="2970617"
^DD(8925,1301,1,17,0)="8925^ACLAU01^MUMPS"
^DD(8925,1301,1,17,1)="D SACLAU^TIUDD0(1301,X),SACLAU1^TIUDD0(1301,X)"
^DD(8925,1301,1,17,2)="D KACLAU^TIUDD01(1301,X),KACLAU1^TIUDD01(1301,X)"
^DD(8925,1301,1,17,"%D",0)="^^4^4^2970617^"
^DD(8925,1301,1,17,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED"
^DD(8925,1301,1,17,"%D",2,0)="BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to"
^DD(8925,1301,1,17,"%D",3,0)="facilitate rapid access to the current users unsigned notes about a"
^DD(8925,1301,1,17,"%D",4,0)="patient."
^DD(8925,1301,1,17,"DT")="2970617"
^DD(8925,1301,1,18,0)="8925^ACLEC02^MUMPS"
^DD(8925,1301,1,18,1)="D SACLEC^TIUDD0(1301,X)"
^DD(8925,1301,1,18,2)="D KACLEC^TIUDD01(1301,X)"
^DD(8925,1301,1,18,"%D",0)="^^3^3^2970617^"
^DD(8925,1301,1,18,"%D",1,0)="This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER,"
^DD(8925,1301,1,18,"%D",2,0)="PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding"
^DD(8925,1301,1,18,"%D",3,0)="the uncosigned notes by the current user for a given patient."
^DD(8925,1301,1,18,"DT")="2970617"
^DD(8925,1301,1,19,0)="8925^ACLSB02^MUMPS"
^DD(8925,1301,1,19,1)="D SACLSB^TIUDD0(1301,X)"
^DD(8925,1301,1,19,2)="D KACLSB^TIUDD01(1301,X)"
^DD(8925,1301,1,19,"%D",0)="^^3^3^2970617^"
^DD(8925,1301,1,19,"%D",1,0)="This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE"
^DD(8925,1301,1,19,"%D",2,0)="DATE/TIME, and RECORD # will facilitate finding records signed by a given"
^DD(8925,1301,1,19,"%D",3,0)="user about the current patient."
^DD(8925,1301,1,19,"DT")="2970617"
^DD(8925,1301,3)="This is the date (and time) by which the document will be referenced."
^DD(8925,1301,21,0)="^^6^6^2981103^^^^"
^DD(8925,1301,21,1,0)="This is the Date (and time) by which the clinician will reference the "
^DD(8925,1301,21,2,0)="document.  For Progress Notes, this will likely be the date of the "
^DD(8925,1301,21,3,0)="provider's encounter with the patient.  For documents which have been "
^DD(8925,1301,21,4,0)="dictated, and transcribed (e.g., discharge summaries), it will correspond to "
^DD(8925,1301,21,5,0)="the dictation date of the record.  In all cases, this is the date by which "
^DD(8925,1301,21,6,0)="the document will be referenced and sorted."
^DD(8925,1301,"DT")="3030418"
^DD(8925,1302,0)="ENTERED BY^P200'O^VA(200,^13;2^Q"
^DD(8925,1302,1,0)="^.1"
^DD(8925,1302,1,1,0)="8925^TC"
^DD(8925,1302,1,1,1)="S ^TIU(8925,""TC"",$E(X,1,30),DA)="""""
^DD(8925,1302,1,1,2)="K ^TIU(8925,""TC"",$E(X,1,30),DA)"
^DD(8925,1302,1,1,"%D",0)="^^3^3^2960508^^"
^DD(8925,1302,1,1,"%D",1,0)=" "
^DD(8925,1302,1,1,"%D",2,0)="This REGULAR, FileMan type cross-reference is used for sorting by"
^DD(8925,1302,1,1,"%D",3,0)="the person who entered the original document."
^DD(8925,1302,1,1,"DT")="2940207"
^DD(8925,1302,1,2,0)="8925^ATC^MUMPS"
^DD(8925,1302,1,2,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ATC"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,1302,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ATC"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P(^TIU(8925,+DA,0),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,1302,1,2,"%D",0)="^^2^2^2940323^"
^DD(8925,1302,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for searching by"
^DD(8925,1302,1,2,"%D",2,0)="entry person, document type, status, and date range."
^DD(8925,1302,1,2,"DT")="2940323"
^DD(8925,1302,1,3,0)="8925^ACLAU103^MUMPS"
^DD(8925,1302,1,3,1)="D SACLAU1^TIUDD0(1302,X)"
^DD(8925,1302,1,3,2)="D KACLAU1^TIUDD01(1302,X)"
^DD(8925,1302,1,3,"%D",0)="^^4^4^2970617^"
^DD(8925,1302,1,3,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED"
^DD(8925,1302,1,3,"%D",2,0)="BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to"
^DD(8925,1302,1,3,"%D",3,0)="facilitate rapid access to the current users unsigned notes about a"
^DD(8925,1302,1,3,"%D",4,0)="patient."
^DD(8925,1302,1,3,"DT")="2970617"
^DD(8925,1302,2)="S Y(0)=Y S Y=$S(+$G(TIUINI):$$LOWER^TIULS($P($G(^VA(200,+Y(0),0)),U,2)),1:$P($G(^VA(200,+Y(0),0)),U,2))"
^DD(8925,1302,2.1)="S Y=$S(+$G(TIUINI):$$LOWER^TIULS($P($G(^VA(200,+Y(0),0)),U,2)),1:$P($G(^VA(200,+Y(0),0)),U,2))"
^DD(8925,1302,3)="This is the person who entered the document into the computer."
^DD(8925,1302,"DT")="2970617"
^DD(8925,1303,0)="CAPTURE METHOD^S^D:direct;U:upload;C:converted;R:remote procedure;O:copy;^13;3^Q"
^DD(8925,1303,3)="This is the method used to capture the document on-line."
^DD(8925,1303,"DT")="2961205"
^DD(8925,1304,0)="RELEASE DATE/TIME^D^^13;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1304,1,0)="^.1"
^DD(8925,1304,1,1,0)="8925^E"
^DD(8925,1304,1,1,1)="S ^TIU(8925,""E"",$E(X,1,30),DA)="""""
^DD(8925,1304,1,1,2)="K ^TIU(8925,""E"",$E(X,1,30),DA)"
^DD(8925,1304,1,1,"%D",0)="^^2^2^2960302^"
^DD(8925,1304,1,1,"%D",1,0)="This Regular, FileMan Cross-reference on Release Date/Time is used for"
^DD(8925,1304,1,1,"%D",2,0)="sorting, and for the Released/unverified Report for the Verifying MRT."
^DD(8925,1304,1,1,"DT")="2960302"
^DD(8925,1304,3)="This is date/time at which the document was released for public view."
^DD(8925,1304,"DT")="2960302"
^DD(8925,1305,0)="VERIFICATION DATE/TIME^D^^13;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1305,3)="This is the date/time at which the document was verified (if required)."
^DD(8925,1305,"DT")="2940119"
^DD(8925,1306,0)="VERIFIED BY^P200'^VA(200,^13;6^Q"
^DD(8925,1306,3)="This is the person who verified the document."
^DD(8925,1306,"DT")="2940119"
^DD(8925,1307,0)="DICTATION DATE^D^^13;7^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1307,3)="Enter the date on which the document was dictated."
^DD(8925,1307,21,0)="^^5^5^2950125^"
^DD(8925,1307,21,1,0)="This is the date (and time) on which the document was dictated by its "
^DD(8925,1307,21,2,0)="author.  In the event that a document originates by dictation, we recommend "
^DD(8925,1307,21,3,0)="that the REFERENCE DATE for the document be defaulted to dictation date, as "
^DD(8925,1307,21,4,0)="the author will be able to identify the document by the date on which s/he "
^DD(8925,1307,21,5,0)="dictated it."
^DD(8925,1307,"DT")="2950125"
^DD(8925,1308,0)="SUSPENSE DATE/TIME^D^^13;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1308,3)="Enter the date (time optional) on which the document will be recinded."
^DD(8925,1308,21,0)="^^3^3^2950907^"
^DD(8925,1308,21,1,0)="This is the date (and time) on which the document will be removed from"
^DD(8925,1308,21,2,0)="public view.  It is currently used only for Patient Postings, although it"
^DD(8925,1308,21,3,0)="may be generalized for use with other document types, if appropriate."
^DD(8925,1308,"DT")="2950907"
^DD(8925,1401,0)="PATIENT MOVEMENT RECORD^P405'^DGPM(^14;1^Q"
^DD(8925,1401,3)="This is the inpatient movement with which the document is associated."
^DD(8925,1401,"DT")="2940119"
^DD(8925,1402,0)="TREATING SPECIALTY^P45.7'^DIC(45.7,^14;2^Q"
^DD(8925,1402,1,0)="^.1"
^DD(8925,1402,1,1,0)="8925^TS"
^DD(8925,1402,1,1,1)="S ^TIU(8925,""TS"",$E(X,1,30),DA)="""""
^DD(8925,1402,1,1,2)="K ^TIU(8925,""TS"",$E(X,1,30),DA)"
^DD(8925,1402,1,1,"%D",0)="^^3^3^2940207^"
^DD(8925,1402,1,1,"%D",1,0)=" "
^DD(8925,1402,1,1,"%D",2,0)="This REGULAR, FileMan type cross-reference is used to support both"
^DD(8925,1402,1,1,"%D",3,0)="look-ups and sorts by Treating Specialty."
^DD(8925,1402,1,1,"DT")="2940207"
^DD(8925,1402,1,2,0)="8925^ATS^MUMPS"
^DD(8925,1402,1,2,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ATS"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,1402,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ATS"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,1402,1,2,"%D",0)="^^2^2^2950615^^^"
^DD(8925,1402,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference is optimized for searching by"
^DD(8925,1402,1,2,"%D",2,0)="treating specialty, document type, status, and date range."
^DD(8925,1402,1,2,"DT")="2940325"
^DD(8925,1402,3)="This is the treating specialty associated with the document."
^DD(8925,1402,"DT")="2940325"
^DD(8925,1403,0)="IRT RECORD^P393'^VAS(393,^14;3^Q"
^DD(8925,1403,3)="This is the Incomplete Records Tracking Entry for the document."
^DD(8925,1403,"DT")="2940119"
^DD(8925,1404,0)="SERVICE^P49'^DIC(49,^14;4^Q"
^DD(8925,1404,1,0)="^.1"
^DD(8925,1404,1,1,0)="8925^ASVC^MUMPS"
^DD(8925,1404,1,1,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) S ^TIU(8925,""ASVC"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)="""""
^DD(8925,1404,1,1,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,13)),U),+$P($G(^TIU(8925,+DA,0)),U,5) K ^TIU(8925,""ASVC"",+X,+$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),(9999999-$P($G(^TIU(8925,+DA,13)),U)),DA)"
^DD(8925,1404,1,1,"%D",0)="^^2^2^2941122^"
^DD(8925,1404,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference is optimized for searching "
^DD(8925,1404,1,1,"%D",2,0)="treating specialty, document type, status, and date "
^DD(8925,1404,1,1,"DT")="2941122"
^DD(8925,1404,1,2,0)="8925^SVC"
^DD(8925,1404,1,2,1)="S ^TIU(8925,""SVC"",$E(X,1,30),DA)="""""
^DD(8925,1404,1,2,2)="K ^TIU(8925,""SVC"",$E(X,1,30),DA)"
^DD(8925,1404,1,2,"%D",0)="^^2^2^2960508^"
^DD(8925,1404,1,2,"%D",1,0)="This REGULAR FileMan Cross-reference by Service will facilitate look-ups,"
^DD(8925,1404,1,2,"%D",2,0)="sorts, and reports."
^DD(8925,1404,1,2,"DT")="2960508"
^DD(8925,1404,3)="This is the service associated with the document."
^DD(8925,1404,5,1,0)="8925^1202^5"
^DD(8925,1404,"DT")="2960508"
^DD(8925,1405,0)="REQUESTING PACKAGE REFERENCE^V^^14;5^Q"
^DD(8925,1405,.1)="CONSULT NUMBER"
^DD(8925,1405,1,0)="^.1"
^DD(8925,1405,1,1,0)="8925^G"
^DD(8925,1405,1,1,1)="S ^TIU(8925,""G"",$E(X,1,30),DA)="""""
^DD(8925,1405,1,1,2)="K ^TIU(8925,""G"",$E(X,1,30),DA)"
^DD(8925,1405,1,1,"%D",0)="^^2^2^2980505^^"
^DD(8925,1405,1,1,"%D",1,0)="This REGULAR FM cross-reference by REQUESTING PACKAGE REFERENCE is used to"
^DD(8925,1405,1,1,"%D",2,0)="avoid multiple documents per request, and for look-ups."
^DD(8925,1405,1,1,"DT")="2960711"
^DD(8925,1405,3)="Indicate the corresponding record in the requesting package."
^DD(8925,1405,21,0)="^.001^2^2^3010427^^"
^DD(8925,1405,21,1,0)="This field allows a linkage to be maintained between the TIU Document and"
^DD(8925,1405,21,2,0)="the DHCP Package for which it was generated."
^DD(8925,1405,"DT")="3010216"
^DD(8925,1405,"V",0)="^.12P^2^2"
^DD(8925,1405,"V",1,0)="123^Select CONSULTATION REQUEST^1^C^n^n"
^DD(8925,1405,"V",1,1)=""
^DD(8925,1405,"V",1,2)=""
^DD(8925,1405,"V",2,0)="130^Select SURGICAL CASE^2^S^n^n"
^DD(8925,1405,"V","B",123,1)=""
^DD(8925,1405,"V","B",130,2)=""
^DD(8925,1405,"V","M","Select CONSULTATION REQUEST",1)=""
^DD(8925,1405,"V","M","Select SURGICAL CASE",2)=""
^DD(8925,1405,"V","O",1,1)=""
^DD(8925,1405,"V","O",2,2)=""
^DD(8925,1405,"V","P","C",1)=""
^DD(8925,1405,"V","P","S",2)=""
^DD(8925,1406,0)="RETRACTED ORIGINAL^P8925'^TIU(8925,^14;6^Q"
^DD(8925,1406,1,0)="^.1^^0"
^DD(8925,1406,3)="Select the document that was retracted in error"
^DD(8925,1406,21,0)="^^2^2^2990625^"
^DD(8925,1406,21,1,0)="This self-refering pointer identifies the original document which was "
^DD(8925,1406,21,2,0)="retracted in error to produce this record."
^DD(8925,1406,"DT")="3010117"
^DD(8925,1407,0)="PRF FLAG ACTION^CJ30^^ ; ^S X=$S($L($T(CFLDACT^TIUPRFL)):$$CFLDACT^TIUPRFL(D0),1:""?"")"
^DD(8925,1407,.1)="LINKED PATIENT RECORD FLAG ACTION"
^DD(8925,1407,9)="^"
^DD(8925,1407,9.01)=""
^DD(8925,1407,9.1)="S X=$S($L($T(CFLDACT^TIUPRFL)):$$CFLDACT^TIUPRFL(D0),1:""?"")"
^DD(8925,1407,21,0)="^^19^19^3050419^"
^DD(8925,1407,21,1,0)="PRF FLAG ACTION applies only to Patient Record Flag (PRF) notes. When a"
^DD(8925,1407,21,2,0)="new flag is assigned to a given patient, or, after review, another action"
^DD(8925,1407,21,3,0)="such as CONTINUE is taken on an existing flag assignment, a note must be"
^DD(8925,1407,21,4,0)="written to document the clinical reasons for the action.  Upon entry, the"
^DD(8925,1407,21,5,0)="note is linked to the action it documents.  Field PRF FLAG ACTION refers"
^DD(8925,1407,21,6,0)="to this linked action."
^DD(8925,1407,21,7,0)=" "
^DD(8925,1407,21,8,0)="The field contains the Date of the Action followed by the Name of the "
^DD(8925,1407,21,9,0)="Action. Example:  3/3/05  CONTINUE"
^DD(8925,1407,21,10,0)=" "
^DD(8925,1407,21,11,0)="If the PRF note is not linked to a flag action or the linked action date "
^DD(8925,1407,21,12,0)="or name cannot be found, the field has value ""?"".  If the note is not a "
^DD(8925,1407,21,13,0)="PRF note (a note with a title under Document Class PATIENT RECORD FLAG "
^DD(8925,1407,21,14,0)="CAT I or PATIENT RECORD FLAG CAT II), the field has value NA for "
^DD(8925,1407,21,15,0)="non-applicable."
^DD(8925,1407,21,16,0)=" "
^DD(8925,1407,21,17,0)="Technical Note: Flag Actions and their linked note entry numbers are "
^DD(8925,1407,21,18,0)="stored in the PRF ASSIGNMENT HISTORY FILE (#26.14).  The Date and Action"
^DD(8925,1407,21,19,0)="are attributes of the Assignment History entry the note is linked to."
^DD(8925,1407,"DT")="3050419"
^DD(8925,1501,0)="SIGNATURE DATE/TIME^D^^15;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1501,1,0)="^.1"
^DD(8925,1501,1,1,0)="8925^ALOCP1^MUMPS"
^DD(8925,1501,1,1,1)="I +$$ALOCP^TIULX(+DA),+$P($G(^TIU(8925,+DA,12)),U,5) S ^TIU(8925,""ALOCP"",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+DA)="""""
^DD(8925,1501,1,1,2)="I +$P($G(^TIU(8925,+DA,12)),U,5) K ^TIU(8925,""ALOCP"",+$P($G(^TIU(8925,+DA,12)),U,5),+X,+DA)"
^DD(8925,1501,1,1,"%D",0)="^^4^4^2950619^^^"
^DD(8925,1501,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Hospital Location and"
^DD(8925,1501,1,1,"%D",2,0)="REGULAR Signature Date/Time is used to maintain the daily print queue"
^DD(8925,1501,1,1,"%D",3,0)="for batch printing of documents (currently, just Progress Notes) on"
^DD(8925,1501,1,1,"%D",4,0)="signature."
^DD(8925,1501,1,1,"DT")="2950619"
^DD(8925,1501,1,2,0)="8925^APTP1^MUMPS"
^DD(8925,1501,1,2,1)="I +$$APTP^TIULX(+DA),+$P($G(^TIU(8925,+DA,0)),U,2) S ^TIU(8925,""APTP"",+$P($G(^TIU(8925,+DA,0)),U,2),+X,+DA)="""""
^DD(8925,1501,1,2,2)="I +$P($G(^TIU(8925,+DA,0)),U,2) K ^TIU(8925,""APTP"",+$P($G(^TIU(8925,+DA,0)),U,2),+X,+DA)"
^DD(8925,1501,1,2,"%D",0)="^^3^3^2950623^"
^DD(8925,1501,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Patient and REGULAR"
^DD(8925,1501,1,2,"%D",2,0)="Signature Date/Time is used to maintain the daily print queue for batch"
^DD(8925,1501,1,2,"%D",3,0)="printing of documents (currently, just Progress Notes) on signature."
^DD(8925,1501,1,2,"DT")="2950623"
^DD(8925,1501,1,3,0)="8925^AAUP1^MUMPS"
^DD(8925,1501,1,3,1)="I +$$AAUP^TIULX(+DA),+$P($G(^TIU(8925,+DA,12)),U,2) S ^TIU(8925,""AAUP"",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+DA)="""""
^DD(8925,1501,1,3,2)="I +$P($G(^TIU(8925,+DA,12)),U,2) K ^TIU(8925,""AAUP"",+$P($G(^TIU(8925,+DA,12)),U,2),+X,+DA)"
^DD(8925,1501,1,3,"%D",0)="^^3^3^2950623^"
^DD(8925,1501,1,3,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Author and REGULAR"
^DD(8925,1501,1,3,"%D",2,0)="Signature Date/Time is used to maintain the daily print queue for batch"
^DD(8925,1501,1,3,"%D",3,0)="printing of documents (currently, just Progress Notes) on signature."
^DD(8925,1501,1,3,"DT")="2950623"
^DD(8925,1501,1,4,0)="8925^ACLPT02^MUMPS"
^DD(8925,1501,1,4,1)="D SACLPT^TIUDD0(1501,X)"
^DD(8925,1501,1,4,2)="D KACLPT^TIUDD01(1501,X)"
^DD(8925,1501,1,4,"%D",0)="^^3^3^2970617^"
^DD(8925,1501,1,4,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, PATIENT, INVERSE"
^DD(8925,1501,1,4,"%D",2,0)="REFERENCE DATE/TIME, and RECORD # is designed to support rapid queries by"
^DD(8925,1501,1,4,"%D",3,0)="patient."
^DD(8925,1501,1,4,"DT")="2970617"
^DD(8925,1501,1,5,0)="8925^ACLEC04^MUMPS"
^DD(8925,1501,1,5,1)="D SACLEC^TIUDD0(1501,X)"
^DD(8925,1501,1,5,2)="D KACLEC^TIUDD01(1501,X)"
^DD(8925,1501,1,5,"%D",0)="^^3^3^2970617^"
^DD(8925,1501,1,5,"%D",1,0)="This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER,"
^DD(8925,1501,1,5,"%D",2,0)="PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding"
^DD(8925,1501,1,5,"%D",3,0)="the uncosigned notes by the current user for a given patient."
^DD(8925,1501,1,5,"DT")="2970617"
^DD(8925,1501,1,6,0)="8925^ACLAU04^MUMPS"
^DD(8925,1501,1,6,1)="D KACLAU^TIUDD01(1501,X),KACLAU1^TIUDD01(1501,X)"
^DD(8925,1501,1,6,2)="D SACLAU^TIUDD0(1501,X),SACLAU1^TIUDD0(1501,X)"
^DD(8925,1501,1,6,"%D",0)="^^4^4^2970617^"
^DD(8925,1501,1,6,"%D",1,0)="This multi-field, MUMPS-type cross-reference on CLASS, AUTHOR (or ENTERED"
^DD(8925,1501,1,6,"%D",2,0)="BY), PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is designed to"
^DD(8925,1501,1,6,"%D",3,0)="facilitate rapid access to the current users unsigned notes about a"
^DD(8925,1501,1,6,"%D",4,0)="patient."
^DD(8925,1501,1,6,"DT")="2970617"
^DD(8925,1501,3)="This is the date/time at which the document was signed by the author."
^DD(8925,1501,"DT")="2970617"
^DD(8925,1502,0)="SIGNED BY^P200'^VA(200,^15;2^Q"
^DD(8925,1502,1,0)="^.1"
^DD(8925,1502,1,1,0)="8925^ACLSB3^MUMPS"
^DD(8925,1502,1,1,1)="D SACLSB^TIUDD0(1502,X)"
^DD(8925,1502,1,1,2)="D KACLSB^TIUDD01(1502,X)"
^DD(8925,1502,1,1,"%D",0)="^^3^3^2970617^"
^DD(8925,1502,1,1,"%D",1,0)="This cross-reference by CLASS, SIGNED BY, PATIENT, INVERSE REFERENCE"
^DD(8925,1502,1,1,"%D",2,0)="DATE/TIME, and RECORD # will facilitate finding records signed by a given"
^DD(8925,1502,1,1,"%D",3,0)="user about the current patient."
^DD(8925,1502,1,1,"DT")="2970617"
^DD(8925,1502,3)="This is the person who signed the document."
^DD(8925,1502,"DT")="2970617"
^DD(8925,1503,0)="SIGNATURE BLOCK NAME^FOX^^15;3^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC(""^TIU(8925,""_+DA_"",""""TEXT"""")"")) K:$L(X)>60!($L(X)<3) X"
^DD(8925,1503,2)="S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1503,2.1)="S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1503,3)="Answer must be 3-30 characters in length."
^DD(8925,1503,"DT")="2980828"
^DD(8925,1504,0)="SIGNATURE BLOCK TITLE^FOX^^15;4^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC(""^TIU(8925,""_+DA_"",""""TEXT"""")"")) K:$L(X)>60!($L(X)<2) X"
^DD(8925,1504,2)="S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1504,2.1)="S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1504,3)="Answer must be 2-60 characters in length."
^DD(8925,1504,21,0)="^^2^2^2940413^"
^DD(8925,1504,21,1,0)="This is the encrypted signature block title of the person who signed the"
^DD(8925,1504,21,2,0)="document."
^DD(8925,1504,"DT")="2980828"
^DD(8925,1505,0)="SIGNATURE MODE^S^E:electronic;C:chart;^15;5^Q"
^DD(8925,1505,3)="Please indicate the mode by which the signature was obtained."
^DD(8925,1505,21,0)="^^2^2^2950327^^^^"
^DD(8925,1505,21,1,0)="This is the mode by which the signature was obtained (i.e., either"
^DD(8925,1505,21,2,0)="electronic or chart)."
^DD(8925,1505,"DT")="2940413"
^DD(8925,1506,0)="COSIGNATURE NEEDED^S^1:YES;0:NO;^15;6^Q"
^DD(8925,1506,3)="Please indicate whether a cosignature is needed."
^DD(8925,1506,21,0)="^^2^2^2940413^"
^DD(8925,1506,21,1,0)="This boolean flag indicates to the system whether or not a cosignature is"
^DD(8925,1506,21,2,0)="needed."
^DD(8925,1506,"DT")="2940413"
^DD(8925,1507,0)="COSIGNATURE DATE/TIME^D^^15;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1507,1,0)="^.1"
^DD(8925,1507,1,1,0)="8925^ACLEC05^MUMPS"
^DD(8925,1507,1,1,1)="D KACLEC^TIUDD01(1507,X)"
^DD(8925,1507,1,1,2)="D SACLEC^TIUDD0(1507,X)"
^DD(8925,1507,1,1,"%D",0)="^^3^3^2970617^"
^DD(8925,1507,1,1,"%D",1,0)="This multi-field, MUMPS-type Cross-reference on CLASS, EXPECTED COSIGNER,"
^DD(8925,1507,1,1,"%D",2,0)="PATIENT, INVERSE REFERENCE DATE/TIME, and RECORD # is useful for finding"
^DD(8925,1507,1,1,"%D",3,0)="the uncosigned notes by the current user for a given patient."
^DD(8925,1507,1,1,"DT")="2970617"
^DD(8925,1507,1,2,0)="8925^ACLPT1507^MUMPS"
^DD(8925,1507,1,2,1)="D SACLPT^TIUDD0(1507,X)"
^DD(8925,1507,1,2,2)="D KACLPT^TIUDD01(1507,X)"
^DD(8925,1507,1,2,"%D",0)="^^3^3^2970617^^^"
^DD(8925,1507,1,2,"%D",1,0)="This MUMPS-Type, Multi-field cross-reference on Cosignature Date/time will"
^DD(8925,1507,1,2,"%D",2,0)="assure that the cosigned notes are included in the ACLPT x-ref (completed,"
^DD(8925,1507,1,2,"%D",3,0)="by patient) upon cosignature."
^DD(8925,1507,1,2,"DT")="2970617"
^DD(8925,1507,3)="The date/time at which cosignature was obtained will be automatically saved by the system."
^DD(8925,1507,21,0)="^^1^1^2940413^"
^DD(8925,1507,21,1,0)="This is the date/time at which cosignature was obtained."
^DD(8925,1507,"DT")="2970617"
^DD(8925,1508,0)="COSIGNED BY^P200'^VA(200,^15;8^Q"
^DD(8925,1508,3)="The identity of the person who cosigned the document will be automatically saved by the system."
^DD(8925,1508,"DT")="2940413"
^DD(8925,1509,0)="COSIGNATURE BLOCK NAME^FXO^^15;9^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC(""^TIU(8925,""_+DA_"",""""TEXT"""")"")) K:$L(X)>60!($L(X)<2) X"
^DD(8925,1509,2)="S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1509,2.1)="S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1509,3)="This encrypted cosignature block will be automatically saved by the system."
^DD(8925,1509,"DT")="2980828"
^DD(8925,1510,0)="COSIGNATURE BLOCK TITLE^FXO^^15;10^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC(""^TIU(8925,""_+DA_"",""""TEXT"""")"")) K:$L(X)>60!($L(X)<2) X"
^DD(8925,1510,2)="S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1510,2.1)="S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1510,3)="Answer must be 2-60 characters in length."
^DD(8925,1510,"DT")="2980828"
^DD(8925,1511,0)="COSIGNATURE MODE^S^E:electronic;C:chart;^15;11^Q"
^DD(8925,1511,3)="Please indicate the mode by which cosignature was obtained."
^DD(8925,1511,"DT")="2940413"
^DD(8925,1512,0)="MARKED SIGNED ON CHART BY^P200'^VA(200,^15;12^Q"
^DD(8925,1512,3)="Select the person who marked the document 'signed on chart.'"
^DD(8925,1512,21,0)="^^2^2^2950501^"
^DD(8925,1512,21,1,0)="This is the identity of the person who marked a given document 'signed on "
^DD(8925,1512,21,2,0)="chart,' indicating that a 'wet' signature of the chart copy had been obtained."
^DD(8925,1512,"DT")="2950501"
^DD(8925,1513,0)="MARKED COSIGNED ON CHART BY^P200'^VA(200,^15;13^Q"
^DD(8925,1513,3)="Select user who marked document 'cosigned on chart.'"
^DD(8925,1513,21,0)="^^1^1^2950501^"
^DD(8925,1513,21,1,0)="This is the user who marked a given document as 'cosigned on chart.'"
^DD(8925,1513,"DT")="2950501"
^DD(8925,1601,0)="AMENDMENT DATE/TIME^D^^16;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1601,3)="This is the date/time at which the document was amended."
^DD(8925,1601,"DT")="2940119"
^DD(8925,1602,0)="AMENDED BY^P200'^VA(200,^16;2^Q"
^DD(8925,1602,3)="This is the person who entered an amendment for the document."
^DD(8925,1602,"DT")="2940119"
^DD(8925,1603,0)="AMENDMENT SIGNED^D^^16;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1603,3)="This is the date/time at which the amendment was signed."
^DD(8925,1603,"DT")="2940119"
^DD(8925,1604,0)="AMENDMENT SIGN BLOCK NAME^FXO^^16;4^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC(""^TIU(8925,""_+DA_"",""""TEXT"""")"")) K:$L(X)>40!($L(X)<2) X"
^DD(8925,1604,2)="S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1604,2.1)="S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1604,3)="Answer must be 2-40 characters in length."
^DD(8925,1604,21,0)="^^1^1^2990120^^"
^DD(8925,1604,21,1,0)="This is the signature block name of the person who amended the document."
^DD(8925,1604,"DT")="2990120"
^DD(8925,1605,0)="AMENDMENT SIGN BLOCK TITLE^FXO^^16;5^S X=$$ENCRYPT^TIULC1(X,1,$$CHKSUM^TIULC(""^TIU(8925,""_+DA_"",""""TEXT"""")"")) K:$L(X)>50!($L(X)<2) X"
^DD(8925,1605,2)="S Y(0)=Y S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1605,2.1)="S Y=$$DECRYPT^TIULC1(Y,1,$$CHKSUM^TIULC(""^TIU(8925,""_$S(+$G(DA):+DA,+$G(D0):+D0,1:"""")_"",""""TEXT"""")""))"
^DD(8925,1605,3)="Answer must be 2-50 characters in length."
^DD(8925,1605,"DT")="2990120"
^DD(8925,1606,0)="ADMINISTRATIVE CLOSURE DATE^D^^16;6^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1606,3)="Enter the date (and time) at which the document was closed."
^DD(8925,1606,"DT")="2950125"
^DD(8925,1607,0)="ADMIN CLOSURE SIG BLOCK NAME^F^^16;7^K:$L(X)>40!($L(X)<2) X"
^DD(8925,1607,3)="Answer must be 2-40 characters in length."
^DD(8925,1607,"DT")="2990120"
^DD(8925,1608,0)="ADMIN CLOSURE SIG BLOCK TITLE^F^^16;8^K:$L(X)>50!($L(X)<2) X"
^DD(8925,1608,3)="Answer must be 2-50 characters in length."
^DD(8925,1608,"DT")="2990120"
^DD(8925,1609,0)="ARCHIVE/PURGE DATE/TIME^D^^16;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1609,3)="Enter the date/time at which the record was archived/purged."
^DD(8925,1609,"DT")="2950125"
^DD(8925,1610,0)="DELETED BY^P200'^VA(200,^16;10^Q"
^DD(8925,1610,3)="Enter the name of the person who deleted the document."
^DD(8925,1610,21,0)="^^1^1^2950417^"
^DD(8925,1610,21,1,0)="This is the person who deleted the document per the Privacy Act."
^DD(8925,1610,"DT")="2950417"
^DD(8925,1611,0)="DELETION DATE^D^^16;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,1611,3)="Enter the Date/(time) on which the document was deleted."
^DD(8925,1611,21,0)="^^2^2^2950417^"
^DD(8925,1611,21,1,0)="This is the date/(time optional) at which the document was deleted per the "
^DD(8925,1611,21,2,0)="Privacy Act."
^DD(8925,1611,"DT")="2950417"
^DD(8925,1612,0)="REASON FOR DELETION^S^P:privacy act;A:administrative;^16;12^Q"
^DD(8925,1612,3)="Please indicate the reason for deleting the document."
^DD(8925,1612,21,0)="^^3^3^2970429^"
^DD(8925,1612,21,1,0)="This is the reason for which the document was deleted, either: Privacy"
^DD(8925,1612,21,2,0)="Act, as invoked by the patient; or Administrative Action, where the note"
^DD(8925,1612,21,3,0)="needed to be removed, following signature, for administrative reasons."
^DD(8925,1612,"DT")="2970429"
^DD(8925,1613,0)="ADMINISTRATIVE CLOSURE MODE^S^M:manual;S:scanned document;^16;13^Q"
^DD(8925,1613,3)="Indicate whether document was closed manually or by scanning."
^DD(8925,1613,21,0)="^^5^5^3011107^"
^DD(8925,1613,21,1,0)="This indicates whether the document was closed manually by an"
^DD(8925,1613,21,2,0)="administrative person (in order to satisfy authentication"
^DD(8925,1613,21,3,0)="requirements), or automatically by scanning a paper document"
^DD(8925,1613,21,4,0)="bearing the signature of the patient (e.g., Consents, Advanced"
^DD(8925,1613,21,5,0)="Directives, etc.) and not requiring the signature of an author."
^DD(8925,1613,"DT")="3011107"
^DD(8925,1701,0)="SUBJECT (OPTIONAL description)^F^^17;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>80!($L(X)<3) X"
^DD(8925,1701,1,0)="^.1"
^DD(8925,1701,1,1,0)="8925^ASUB^MUMPS"
^DD(8925,1701,1,1,1)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUBS^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,1701,1,1,2)="I +$P($G(^TIU(8925,+DA,0)),U),+$P($G(^TIU(8925,+DA,0)),U,5),+$P($G(^TIU(8925,+DA,13)),U) D ASUBK^TIUDD($G(X),+$G(^TIU(8925,+DA,0)),+$P(^TIU(8925,+DA,0),U,5),(9999999-+$G(^TIU(8925,+DA,13))),DA)"
^DD(8925,1701,1,1,"%D",0)="^^2^2^2950928^^^^"
^DD(8925,1701,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference is used for queries by"
^DD(8925,1701,1,1,"%D",2,0)="subject."
^DD(8925,1701,1,1,"DT")="2950928"
^DD(8925,1701,3)="Enter a brief description (3-80 characters) of the contents of the document."
^DD(8925,1701,21,0)="^^2^2^2951021^"
^DD(8925,1701,21,1,0)="This freetext field is used to help you find documents by subject (i.e.,"
^DD(8925,1701,21,2,0)="consider the subject a ""key word"" of sorts."
^DD(8925,1701,"DT")="2951021"
^DD(8925,2101,0)="ID PARENT^P8925'^TIU(8925,^21;1^Q"
^DD(8925,2101,1,0)="^.1^^-1"
^DD(8925,2101,1,1,0)="8925^GDAD"
^DD(8925,2101,1,1,1)="S ^TIU(8925,""GDAD"",$E(X,1,30),DA)="""""
^DD(8925,2101,1,1,2)="K ^TIU(8925,""GDAD"",$E(X,1,30),DA)"
^DD(8925,2101,1,1,3)="Please don't delete!"
^DD(8925,2101,1,1,"%D",0)="^^8^8^3001026^"
^DD(8925,2101,1,1,"%D",1,0)="This cross-reference is used to find the children of an interdisciplinary"
^DD(8925,2101,1,1,"%D",2,0)="note, given the ID parent note.  It has the form:"
^DD(8925,2101,1,1,"%D",3,0)=" "
^DD(8925,2101,1,1,"%D",4,0)="        ^TIU(8925,""GDAD"",ID PARENT note IEN,ID child note IEN)"
^DD(8925,2101,1,1,"%D",5,0)=" "
^DD(8925,2101,1,1,"%D",6,0)="Note that ""TIUG"" is an informal namespace for ID notes, and that this"
^DD(8925,2101,1,1,"%D",7,0)="cross-reference is similar to the DAD cross-reference on the PARENT field."
^DD(8925,2101,1,1,"%D",8,0)="""GDAD"" gets its ""G"" from ""TIUG""."
^DD(8925,2101,1,1,"DT")="2991229"
^DD(8925,2101,3)="Enter the document this note is being attached to."
^DD(8925,2101,21,0)="^^8^8^3001025^"
^DD(8925,2101,21,1,0)="Applies to ID (interdisciplinary) notes only.  The ID PARENT is the note"
^DD(8925,2101,21,2,0)="this note is attached to, making this note an entry in an ID note."
^DD(8925,2101,21,3,0)=" "
^DD(8925,2101,21,4,0)="A note with an ID PARENT is referred to as an ID child note. ID parent"
^DD(8925,2101,21,5,0)="notes and ID child notes are both file entries in file 8925."
^DD(8925,2101,21,6,0)="  "
^DD(8925,2101,21,7,0)="The entries of an interdisciplinary note consist of the first entry, which"
^DD(8925,2101,21,8,0)="is also the ID PARENT of the ID note, followed by the ID children."
^DD(8925,2101,"DT")="3000629"
^DD(8925,15001,0)="VISIT ID^F^^150;1^K:$L(X)>15!($L(X)<8)!'(X?4.10NU1""-""3.4U) X"
^DD(8925,15001,1,0)="^.1"
^DD(8925,15001,1,1,0)="8925^VID"
^DD(8925,15001,1,1,1)="S ^TIU(8925,""VID"",$E(X,1,30),DA)="""""
^DD(8925,15001,1,1,2)="K ^TIU(8925,""VID"",$E(X,1,30),DA)"
^DD(8925,15001,1,1,3)="DO NOT DELETE"
^DD(8925,15001,1,1,"%D",0)="^^1^1^2961127^"
^DD(8925,15001,1,1,"%D",1,0)="REGULAR FM Cross-reference by Visit ID facilitates look-up by CIRN."
^DD(8925,15001,1,1,"DT")="2961127"
^DD(8925,15001,3)="Unique Visit Identifier returned by Visit Tracking"
^DD(8925,15001,5,1,0)="8925^.03^7"
^DD(8925,15001,9)="^"
^DD(8925,15001,21,0)="^^2^2^2961127^"
^DD(8925,15001,21,1,0)="Unique Visit Identifier for use by CIRN.  The value of this field should"
^DD(8925,15001,21,2,0)="ONLY be modified by virtue of a change to the Visit (.03) field."
^DD(8925,15001,"DT")="2961127"
^DD(8925,70201,0)="PROCEDURE SUMMARY CODE^S^1:Normal;2:Abnormal;3:Borderline;4:Incomplete;5:Machine Resulted;^702;1^Q"
^DD(8925,70201,3)="Indicate the summary code for this procedure once it is complete."
^DD(8925,70201,21,0)="^.001^2^2^3041110^^"
^DD(8925,70201,21,1,0)="This field contains the summary code for this procedure once it is"
^DD(8925,70201,21,2,0)="complete.  'Machine Resulted' is the initial, default code."
^DD(8925,70201,"DT")="3040722"
^DD(8925,70202,0)="DATE/TIME PERFORMED^DX^^702;2^S %DT=""ETXR"",%DT(0)=""-NOW"" D ^%DT S X=Y K:Y<1 X"
^DD(8925,70202,3)="Time is required.  Future date/time is not allowed."
^DD(8925,70202,21,0)="^^1^1^3020508^"
^DD(8925,70202,21,1,0)="This field contains the Date/Time when the procedure was performed."
^DD(8925,70202,"DT")="3020321"
^DD(8925,89261,0)="VHA ENTERPRISE STANDARD TITLE^CJ90^^ ; ^X ^DD(8925,89261,9.2) S Y(8925,89261,101)=$S($D(^TIU(8925.1,D0,15)):^(15),1:"""") S X=$P($G(^TIU(8926.1,+$P(Y(8925,89261,101),U,1),0)),U) S D0=Y(8925,89261,80)"
^DD(8925,89261,9.01)="8925.1^1501;8925^.01"
^DD(8925,89261,9.1)="DOCUMENT TYPE:VHA ENTERPRISE STANDARD TITLE"
^DD(8925,89261,9.2)="S Y(8925,89261,80)=$G(D0),Y(8925,89261,1)=$S($D(^TIU(8925,D0,0)):^(0),1:""""),D0=$P(Y(8925,89261,1),U,1) S:'D0!'$D(^TIU(8925.1,+D0,0)) D0=-1"
^DD(8925,89261,21,0)="^^3^3^3060418^"
^DD(8925,89261,21,1,0)="This computed field allows calls to FileMan Utilities (e.g. DIQ) to "
^DD(8925,89261,21,2,0)="resolve the VHA ENTERPRISE STANDARD TITLE to which the local title is"
^DD(8925,89261,21,3,0)="mapped."
^DD(8925,89261,"DT")="3060418"
^DD(8925,"B","ADMIN CLOSURE SIG BLOCK NAME",1607)=""
^DD(8925,"B","ADMIN CLOSURE SIG BLOCK TITLE",1608)=""
^DD(8925,"B","ADMINISTRATIVE CLOSURE DATE",1606)=""
^DD(8925,"B","ADMINISTRATIVE CLOSURE MODE",1613)=""
^DD(8925,"B","AMENDED BY",1602)=""
^DD(8925,"B","AMENDMENT DATE/TIME",1601)=""
^DD(8925,"B","AMENDMENT SIGN BLOCK NAME",1604)=""
^DD(8925,"B","AMENDMENT SIGN BLOCK TITLE",1605)=""
^DD(8925,"B","AMENDMENT SIGNED",1603)=""
^DD(8925,"B","ARCHIVE/PURGE DATE/TIME",1609)=""
^DD(8925,"B","ATTENDING PHYSICIAN",1209)=""
^DD(8925,"B","AUTHOR OF NOTE",1202)="1"
^DD(8925,"B","AUTHOR/DICTATOR",1202)=""
^DD(8925,"B","CAPTURE METHOD",1303)=""
^DD(8925,"B","CLINIC",1203)=""
^DD(8925,"B","CONSULT NUMBER",1405)="1"
^DD(8925,"B","COSIGNATURE BLOCK NAME",1509)=""
^DD(8925,"B","COSIGNATURE BLOCK TITLE",1510)=""
^DD(8925,"B","COSIGNATURE DATE/TIME",1507)=""
^DD(8925,"B","COSIGNATURE MODE",1511)=""
^DD(8925,"B","COSIGNATURE NEEDED",1506)=""
^DD(8925,"B","COSIGNED BY",1508)=""
^DD(8925,"B","CREDIT STOP CODE ON COMPLETION",.11)=""
^DD(8925,"B","DATE/TIME OF NOTE",1301)="1"
^DD(8925,"B","DATE/TIME PERFORMED",70202)=""
^DD(8925,"B","DELETED BY",1610)=""
^DD(8925,"B","DELETION DATE",1611)=""
^DD(8925,"B","DICTATION DATE",1307)=""
^DD(8925,"B","DIVISION",1212)=""
^DD(8925,"B","DOCUMENT TYPE",.01)=""
^DD(8925,"B","EDIT TEXT BUFFER",3)=""
^DD(8925,"B","ENTERED BY",1302)=""
^DD(8925,"B","ENTRY DATE/TIME",1201)=""
^DD(8925,"B","EPISODE BEGIN DATE/TIME",.07)=""
^DD(8925,"B","EPISODE END DATE/TIME",.08)=""
^DD(8925,"B","EXPECTED COSIGNER",1208)=""
^DD(8925,"B","EXPECTED SIGNER",1204)=""
^DD(8925,"B","HOSPITAL LOCATION",1205)=""
^DD(8925,"B","ID PARENT",2101)=""
^DD(8925,"B","IRT RECORD",1403)=""
^DD(8925,"B","LINE COUNT",.1)=""
^DD(8925,"B","MARK DISCH DT FOR CORRECTION",.12)=""
^DD(8925,"B","MARKED COSIGNED ON CHART BY",1513)=""
^DD(8925,"B","MARKED SIGNED ON CHART BY",1512)=""
^DD(8925,"B","ORDER NUMBER",1210)=""
^DD(8925,"B","PARENT",.06)=""
^DD(8925,"B","PARENT DOCUMENT TYPE",.04)=""
^DD(8925,"B","PATIENT",.02)=""
^DD(8925,"B","PATIENT LOCATION",1205)="1"
^DD(8925,"B","PATIENT MOVEMENT RECORD",1401)=""
^DD(8925,"B","PRF FLAG ACTION",1407)=""
^DD(8925,"B","PROCEDURE SUMMARY CODE",70201)=""
^DD(8925,"B","REASON FOR DELETION",1612)=""
^DD(8925,"B","REFERENCE DATE",1301)=""
^DD(8925,"B","RELEASE DATE/TIME",1304)=""
^DD(8925,"B","REPORT TEXT",2)=""
^DD(8925,"B","REQUESTING PACKAGE REFERENCE",1405)=""
^DD(8925,"B","RETRACTED ORIGINAL",1406)=""
^DD(8925,"B","SECONDARY VISIT",1207)=""
^DD(8925,"B","SERVICE",1404)=""
^DD(8925,"B","SERVICE CREDIT STOP",1206)=""
^DD(8925,"B","SIGNATURE BLOCK NAME",1503)=""
^DD(8925,"B","SIGNATURE BLOCK TITLE",1504)=""
^DD(8925,"B","SIGNATURE DATE/TIME",1501)=""
^DD(8925,"B","SIGNATURE MODE",1505)=""
^DD(8925,"B","SIGNED BY",1502)=""
^DD(8925,"B","STATUS",.05)=""
^DD(8925,"B","SUBJECT (OPTIONAL description)",1701)=""
^DD(8925,"B","SUSPENSE DATE/TIME",1308)=""
^DD(8925,"B","TREATING SPECIALTY",1402)=""
^DD(8925,"B","URGENCY",.09)=""
^DD(8925,"B","VERIFICATION DATE/TIME",1305)=""
^DD(8925,"B","VERIFIED BY",1306)=""
^DD(8925,"B","VHA ENTERPRISE STANDARD TITLE",89261)=""
^DD(8925,"B","VISIT",.03)=""
^DD(8925,"B","VISIT ID",15001)=""
^DD(8925,"B","VISIT LOCATION",1211)=""
^DD(8925,"B","VISIT TYPE",.13)=""
^DD(8925,"GL",0,1,.01)=""
^DD(8925,"GL",0,2,.02)=""
^DD(8925,"GL",0,3,.03)=""
^DD(8925,"GL",0,4,.04)=""
^DD(8925,"GL",0,5,.05)=""
^DD(8925,"GL",0,6,.06)=""
^DD(8925,"GL",0,7,.07)=""
^DD(8925,"GL",0,8,.08)=""
^DD(8925,"GL",0,9,.09)=""
^DD(8925,"GL",0,10,.1)=""
^DD(8925,"GL",0,11,.11)=""
^DD(8925,"GL",0,12,.12)=""
^DD(8925,"GL",0,13,.13)=""
^DD(8925,"GL",12,1,1201)=""
^DD(8925,"GL",12,2,1202)=""
^DD(8925,"GL",12,3,1203)=""
^DD(8925,"GL",12,4,1204)=""
^DD(8925,"GL",12,5,1205)=""
^DD(8925,"GL",12,6,1206)=""
^DD(8925,"GL",12,7,1207)=""
^DD(8925,"GL",12,8,1208)=""
^DD(8925,"GL",12,9,1209)=""
^DD(8925,"GL",12,10,1210)=""
^DD(8925,"GL",12,11,1211)=""
^DD(8925,"GL",12,12,1212)=""
^DD(8925,"GL",13,1,1301)=""
^DD(8925,"GL",13,2,1302)=""
^DD(8925,"GL",13,3,1303)=""
^DD(8925,"GL",13,4,1304)=""
^DD(8925,"GL",13,5,1305)=""
^DD(8925,"GL",13,6,1306)=""
^DD(8925,"GL",13,7,1307)=""
^DD(8925,"GL",13,8,1308)=""
^DD(8925,"GL",14,1,1401)=""
^DD(8925,"GL",14,2,1402)=""
^DD(8925,"GL",14,3,1403)=""
^DD(8925,"GL",14,4,1404)=""
^DD(8925,"GL",14,5,1405)=""
^DD(8925,"GL",14,6,1406)=""
^DD(8925,"GL",15,1,1501)=""
^DD(8925,"GL",15,2,1502)=""
^DD(8925,"GL",15,3,1503)=""
^DD(8925,"GL",15,4,1504)=""
^DD(8925,"GL",15,5,1505)=""
^DD(8925,"GL",15,6,1506)=""
^DD(8925,"GL",15,7,1507)=""
^DD(8925,"GL",15,8,1508)=""
^DD(8925,"GL",15,9,1509)=""
^DD(8925,"GL",15,10,1510)=""
^DD(8925,"GL",15,11,1511)=""
^DD(8925,"GL",15,12,1512)=""
^DD(8925,"GL",15,13,1513)=""
^DD(8925,"GL",16,1,1601)=""
^DD(8925,"GL",16,2,1602)=""
^DD(8925,"GL",16,3,1603)=""
^DD(8925,"GL",16,4,1604)=""
^DD(8925,"GL",16,5,1605)=""
^DD(8925,"GL",16,6,1606)=""
^DD(8925,"GL",16,7,1607)=""
^DD(8925,"GL",16,8,1608)=""
^DD(8925,"GL",16,9,1609)=""
^DD(8925,"GL",16,10,1610)=""
^DD(8925,"GL",16,11,1611)=""
^DD(8925,"GL",16,12,1612)=""
^DD(8925,"GL",16,13,1613)=""
^DD(8925,"GL",17,1,1701)=""
^DD(8925,"GL",21,1,2101)=""
^DD(8925,"GL",150,1,15001)=""
^DD(8925,"GL",702,1,70201)=""
^DD(8925,"GL",702,2,70202)=""
^DD(8925,"GL","TEMP",0,3)=""
^DD(8925,"GL","TEXT",0,2)=""
^DD(8925,"IX",.01)=""
^DD(8925,"IX",.02)=""
^DD(8925,"IX",.03)=""
^DD(8925,"IX",.04)=""
^DD(8925,"IX",.05)=""
^DD(8925,"IX",.06)=""
^DD(8925,"IX",.07)=""
^DD(8925,"IX",.12)=""
^DD(8925,"IX",.13)=""
^DD(8925,"IX",1201)=""
^DD(8925,"IX",1202)=""
^DD(8925,"IX",1205)=""
^DD(8925,"IX",1207)=""
^DD(8925,"IX",1208)=""
^DD(8925,"IX",1211)=""
^DD(8925,"IX",1301)=""
^DD(8925,"IX",1302)=""
^DD(8925,"IX",1304)=""
^DD(8925,"IX",1402)=""
^DD(8925,"IX",1404)=""
^DD(8925,"IX",1405)=""
^DD(8925,"IX",1501)=""
^DD(8925,"IX",1502)=""
^DD(8925,"IX",1507)=""
^DD(8925,"IX",1701)=""
^DD(8925,"IX",2101)=""
^DD(8925,"IX",15001)=""
^DD(8925,"RQ",.01)=""
^DD(8925,"SB",8925.02,2)=""
^DD(8925,"SB",8925.03,3)=""
^DD(8925.02,0)="REPORT TEXT SUB-FIELD^^.01^1"
^DD(8925.02,0,"NM","REPORT TEXT")=""
^DD(8925.02,0,"UP")="8925"
^DD(8925.02,.01,0)="REPORT TEXT^W^^0;1^Q"
^DD(8925.02,.01,"DT")="2920506"
^DD(8925.02,"B","REPORT TEXT",.01)=""
^DD(8925.02,"GL",0,1,.01)=""
^DD(8925.03,0)="EDIT TEXT BUFFER SUB-FIELD^^.01^1"
^DD(8925.03,0,"NM","EDIT TEXT BUFFER")=""
^DD(8925.03,0,"UP")="8925"
^DD(8925.03,.01,0)="EDIT TEXT BUFFER^WL^^0;1^Q"
^DD(8925.03,.01,"DT")="2930614"
^DD(8925.03,"B","EDIT TEXT BUFFER",.01)=""
^DD(8925.03,"GL",0,1,.01)=""
^DD(8925.1,0)="FIELD^^99^54"
^DD(8925.1,0,"DDA")="N"
^DD(8925.1,0,"DT")="2970227"
^DD(8925.1,0,"ID","W.04")="W ""   "",@(""$P($P($C(59)_$S($D(^DD(8925.1,.04,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,4)_"""":"""",2),$C(59),1)"")"
^DD(8925.1,0,"ID","W.1501")="S %I=Y,Y=$S('$D(^(15)):"""",$D(^TIU(8926.1,+$P(^(15),U,1),0))#2:$P(^(0),U,1),1:"""") N DIERR S:$L(Y) Y=$$EXTERNAL^DILFD(8926.1,.01,"""",Y,""DIERR"") D:$L(Y) EN^DDIOL(""Std Title: ""_Y,"""",""!?6"") S Y=%I K %I"
^DD(8925.1,0,"IX","AC",8925.1,.06)=""
^DD(8925.1,0,"IX","ACL",8925.1,.01)=""
^DD(8925.1,0,"IX","ACL02",8925.1,.02)=""
^DD(8925.1,0,"IX","ACL03",8925.1,.03)=""
^DD(8925.1,0,"IX","ACL07",8925.1,.07)=""
^DD(8925.1,0,"IX","ACL1001",8925.14,.01)=""
^DD(8925.1,0,"IX","AD",8925.14,.01)=""
^DD(8925.1,0,"IX","ALOINC",8925.1,1501)=""
^DD(8925.1,0,"IX","AM",8925.1,99)=""
^DD(8925.1,0,"IX","AM1",8925.1,.03)=""
^DD(8925.1,0,"IX","AMM",8925.14,.01)=""
^DD(8925.1,0,"IX","AMM2",8925.14,2)=""
^DD(8925.1,0,"IX","AMM3",8925.14,3)=""
^DD(8925.1,0,"IX","AMM4",8925.14,4)=""
^DD(8925.1,0,"IX","AP",8925.1,.05)=""
^DD(8925.1,0,"IX","APOST",8925.1,.14)=""
^DD(8925.1,0,"IX","AS",8925.1,.07)=""
^DD(8925.1,0,"IX","AT",8925.1,.04)=""
^DD(8925.1,0,"IX","B",8925.1,.01)=""
^DD(8925.1,0,"IX","C",8925.1,.02)=""
^DD(8925.1,0,"IX","D",8925.1,.03)=""
^DD(8925.1,0,"IX","E",8925.1,.01)=""
^DD(8925.1,0,"NM","TIU DOCUMENT DEFINITION")=""
^DD(8925.1,0,"PT",26.11,.07)=""
^DD(8925.1,0,"PT",26.15,.07)=""
^DD(8925.1,0,"PT",142.14,.01)=""
^DD(8925.1,0,"PT",702.01,.04)=""
^DD(8925.1,0,"PT",703.91,.05)=""
^DD(8925.1,0,"PT",783.9,.04)=""
^DD(8925.1,0,"PT",783.9,.05)=""
^DD(8925.1,0,"PT",783.9,.06)=""
^DD(8925.1,0,"PT",2006.5841,6)=""
^DD(8925.1,0,"PT",8925,.01)=""
^DD(8925.1,0,"PT",8925,.04)=""
^DD(8925.1,0,"PT",8925.14,.01)=""
^DD(8925.1,0,"PT",8925.95,.01)=""
^DD(8925.1,0,"PT",8925.98,.02)=""
^DD(8925.1,0,"PT",8925.98,.03)=""
^DD(8925.1,0,"PT",8925.9801,.01)=""
^DD(8925.1,0,"PT",8927,.19)=""
^DD(8925.1,0,"PT",8930.1,.01)=""
^DD(8925.1,0,"VR")="1.0"
^DD(8925.1,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.1,.01,0)="NAME^RFX^^0;1^S:$L($T(^TIULS)) X=$$UPPER^TIULS(X) K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X I $D(X),+$G(DA) K:$$BADNAP^TIUFLF1(X,+$G(DA)) X"
^DD(8925.1,.01,.1)=""
^DD(8925.1,.01,1,0)="^.1"
^DD(8925.1,.01,1,1,0)="8925.1^B"
^DD(8925.1,.01,1,1,1)="S ^TIU(8925.1,""B"",$E(X,1,60),DA)="""""
^DD(8925.1,.01,1,1,2)="K ^TIU(8925.1,""B"",$E(X,1,60),DA)"
^DD(8925.1,.01,1,2,0)="8925.1^E^KWIC"
^DD(8925.1,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^TIU(8925.1,""E"",I,DA)="""""
^DD(8925.1,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^TIU(8925.1,""E"",I,DA)"
^DD(8925.1,.01,1,2,"%D",0)="^^2^2^2960302^"
^DD(8925.1,.01,1,2,"%D",1,0)="This KWIK cross-reference on document name will allow look-up based on"
^DD(8925.1,.01,1,2,"%D",2,0)="sub-names, etc."
^DD(8925.1,.01,1,2,"DT")="2960302"
^DD(8925.1,.01,1,3,0)="8925.1^ACL^MUMPS"
^DD(8925.1,.01,1,3,1)="D SACL^TIUDD1(X,.01)"
^DD(8925.1,.01,1,3,2)="D KACL^TIUDD1(X,.01)"
^DD(8925.1,.01,1,3,"%D",0)="^^7^7^3040831^"
^DD(8925.1,.01,1,3,"%D",1,0)="This is a complex cross-reference on the .01 (NAME) field.  Its format"
^DD(8925.1,.01,1,3,"%D",2,0)="will be as follows:"
^DD(8925.1,.01,1,3,"%D",3,0)=" "
^DD(8925.1,.01,1,3,"%D",4,0)="   ^TIU(8925.1,""ACL"",Parent document class IEN, Title NAME, Title IEN)="""""
^DD(8925.1,.01,1,3,"%D",5,0)=" "
^DD(8925.1,.01,1,3,"%D",6,0)="The purpose of this cross-reference will be to help CPRS GUI perform "
^DD(8925.1,.01,1,3,"%D",7,0)="faster title look-ups by document class."
^DD(8925.1,.01,1,3,"DT")="2971016"
^DD(8925.1,.01,3)="This is the technical name, 3-60 characters, not starting with punctuation.  If OBJECT, Name must be unique among all object Names, Abbreviations, and Print Names."
^DD(8925.1,.01,4)="D NAME^TIUFXHLX:$G(TIUFXNOD)[""Add/Create""&($G(TIUFSTMP)=""T"")"
^DD(8925.1,.01,8.5)=""
^DD(8925.1,.01,21,0)="^^51^51^2980127^^^^"
^DD(8925.1,.01,21,1,0)="The name of a Document Definition entry (.01 field) must be between 3"
^DD(8925.1,.01,21,2,0)="and 60 characters long and may not begin with a punctuation character."
^DD(8925.1,.01,21,3,0)="Although names can be entered in any case, they are transformed to"
^DD(8925.1,.01,21,4,0)="upper case before being stored."
^DD(8925.1,.01,21,5,0)=" "
^DD(8925.1,.01,21,6,0)="It functions as the Technical Name of the entry.  Some sites have put KWIC"
^DD(8925.1,.01,21,7,0)="cross references on it to get, say, all Titles from a given Service."
^DD(8925.1,.01,21,8,0)=" "
^DD(8925.1,.01,21,9,0)="Name can be used when entering documents as the name of the Title being"
^DD(8925.1,.01,21,10,0)="entered.  Print Name and Abbreviation will also be accepted."
^DD(8925.1,.01,21,11,0)=" "
^DD(8925.1,.01,21,12,0)="Since it is the Technical, .01 Name, the Document Definition Utility"
^DD(8925.1,.01,21,13,0)="(TIUF) uses this name throughout."
^DD(8925.1,.01,21,14,0)=" "
^DD(8925.1,.01,21,15,0)="The .01 name differs from the Print Name, which appears in lists of"
^DD(8925.1,.01,21,16,0)="documents and functions as the Title of the document."
^DD(8925.1,.01,21,17,0)=" "
^DD(8925.1,.01,21,18,0)="It also differs from Item Menu Text (1-20 characters), which is used when"
^DD(8925.1,.01,21,19,0)="selecting documents from 3-COLUMN MENUS."
^DD(8925.1,.01,21,20,0)=" "
^DD(8925.1,.01,21,21,0)="The ORDER of names in TIUF options Edit Document Definitions and Create"
^DD(8925.1,.01,21,22,0)="Document Definitions is by Item Sequence under the parent.  Order is"
^DD(8925.1,.01,21,23,0)="alphabetic by Menu Text if an Item has no Item Sequence."
^DD(8925.1,.01,21,24,0)=" "
^DD(8925.1,.01,21,25,0)="When a new entry is added to file 8925.1, the Document Definition Utility"
^DD(8925.1,.01,21,26,0)="(TIUF) enters the Name as the default Print Name.  The Print Name can be"
^DD(8925.1,.01,21,27,0)="edited if a different Print Name is desired."
^DD(8925.1,.01,21,28,0)=" "
^DD(8925.1,.01,21,29,0)="File 8925.1 permits more than 1 entry with the same name as long as they"
^DD(8925.1,.01,21,30,0)="don't have the same Type.  In that sense, NAMES are reusable.  However,"
^DD(8925.1,.01,21,31,0)="ENTRIES are NOT reusable (except specially marked Components): an entry is"
^DD(8925.1,.01,21,32,0)="NOT allowed to be an item under more than one parent unless it is a Shared"
^DD(8925.1,.01,21,33,0)="Component.  (See Type Component.)"
^DD(8925.1,.01,21,34,0)=" "
^DD(8925.1,.01,21,35,0)="Name is a BASIC Field."
^DD(8925.1,.01,21,36,0)=" "
^DD(8925.1,.01,21,37,0)="                               OBJECT Name "
^DD(8925.1,.01,21,38,0)="Object Names, like any other names are 3-60 characters, not starting with"
^DD(8925.1,.01,21,39,0)="punctuation.  Sites may want to namespace object names, use the object"
^DD(8925.1,.01,21,40,0)="Print Name as a more familiar name, and use object Abbreviation as a short"
^DD(8925.1,.01,21,41,0)="name to embed in boilerplate text.  Unlike other Types, Object"
^DD(8925.1,.01,21,42,0)="Abbreviation and Print Name as well as Name must be uppercase."
^DD(8925.1,.01,21,43,0)=" "
^DD(8925.1,.01,21,44,0)="Object Name, Abbreviation, or Print Name can be embedded in boilerplate"
^DD(8925.1,.01,21,45,0)="text.  Since TIU must be able to determine from this which object is"
^DD(8925.1,.01,21,46,0)="intended, object Names, Abbreviations, and Print Names must be unique.  In"
^DD(8925.1,.01,21,47,0)="fact, an object Name must differ not only from every other object name,"
^DD(8925.1,.01,21,48,0)="but also from every other object Abbreviation and from every other object"
^DD(8925.1,.01,21,49,0)="Print Name.  Same for Abbreviations and Print Names.  For example, if some"
^DD(8925.1,.01,21,50,0)="object has abbreviation 'CND', then 'CND' cannot be used for any other"
^DD(8925.1,.01,21,51,0)="object Name, Abbreviation, or Print Name."
^DD(8925.1,.01,"AUDIT")=""
^DD(8925.1,.01,"DEL",.01,0)="I 1"
^DD(8925.1,.01,"DT")="3020107"
^DD(8925.1,.02,0)="ABBREVIATION^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2)!'(X?2.4A) X I $D(X),+$G(DA) K:($P(^TIU(8925.1,DA,0),U,4)=""O"")&('(X?2.4U)!'$D(TIUFPRIV)) X I $D(X),+$G(DA) K:$$BADNAP^TIUFLF1(X,DA) X"
^DD(8925.1,.02,1,0)="^.1"
^DD(8925.1,.02,1,1,0)="8925.1^C"
^DD(8925.1,.02,1,1,1)="S ^TIU(8925.1,""C"",$E(X,1,30),DA)="""""
^DD(8925.1,.02,1,1,2)="K ^TIU(8925.1,""C"",$E(X,1,30),DA)"
^DD(8925.1,.02,1,1,"%D",0)="^^2^2^2940711^"
^DD(8925.1,.02,1,1,"%D",1,0)="This cross reference will be used by the router/filer to identify a given"
^DD(8925.1,.02,1,1,"%D",2,0)="report type."
^DD(8925.1,.02,1,1,"DT")="2921020"
^DD(8925.1,.02,1,2,0)="8925.1^ACL02^MUMPS"
^DD(8925.1,.02,1,2,1)="D SACL^TIUDD1(X,.02)"
^DD(8925.1,.02,1,2,2)="D KACL^TIUDD1(X,.02)"
^DD(8925.1,.02,1,2,"%D",0)="^^2^2^3010417^"
^DD(8925.1,.02,1,2,"%D",1,0)="This complex cross-reference by class and name will help optimize the"
^DD(8925.1,.02,1,2,"%D",2,0)="title look-up for the GUI."
^DD(8925.1,.02,1,2,"DT")="3010417"
^DD(8925.1,.02,3)="Enter from 2 to 4 letters.  If OBJECT, Abbreviation must be unique among all object Names, Abbreviations, and Print Names, and must be uppercase."
^DD(8925.1,.02,21,0)="^^3^3^2990504^^^^"
^DD(8925.1,.02,21,1,0)="Abbreviation can be entered at the Title: prompt when entering a document."
^DD(8925.1,.02,21,2,0)="Since all Titles with that abbreviation will then be listed, Abbreviation"
^DD(8925.1,.02,21,3,0)="can serve to group Titles.  BASIC Field.  For Objects, see NAME."
^DD(8925.1,.02,"DT")="3020107"
^DD(8925.1,.03,0)="PRINT NAME^FX^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<3) X I $D(X),+$G(DA) K:($P(^TIU(8925.1,DA,0),U,4)=""O"")&('(X?3.60UPN)!'$D(TIUFPRIV)) X I $D(X),+$G(DA) K:$$BADNAP^TIUFLF1(X,DA) X"
^DD(8925.1,.03,1,0)="^.1"
^DD(8925.1,.03,1,1,0)="8925.1^AM1^MUMPS"
^DD(8925.1,.03,1,1,1)="D REDO^TIUDD"
^DD(8925.1,.03,1,1,2)="D REDO^TIUDD"
^DD(8925.1,.03,1,1,"%D",0)="^^2^2^2950911^^^"
^DD(8925.1,.03,1,1,"%D",1,0)="This MUMPS-type cross-reference is used to update the TIMESTAMP on both"
^DD(8925.1,.03,1,1,"%D",2,0)="the current document, and its parents, when its PRINT NAME changes."
^DD(8925.1,.03,1,1,"DT")="2940720"
^DD(8925.1,.03,1,2,0)="8925.1^D"
^DD(8925.1,.03,1,2,1)="S ^TIU(8925.1,""D"",$E(X,1,30),DA)="""""
^DD(8925.1,.03,1,2,2)="K ^TIU(8925.1,""D"",$E(X,1,30),DA)"
^DD(8925.1,.03,1,2,"%D",0)="^^1^1^2950126^"
^DD(8925.1,.03,1,2,"%D",1,0)="This REGULAR FileMan cross-reference by PRINT NAME will facilitate look-up."
^DD(8925.1,.03,1,2,"DT")="2950126"
^DD(8925.1,.03,1,3,0)="8925.1^ACL03^MUMPS"
^DD(8925.1,.03,1,3,1)="D SACL^TIUDD1(X,.03)"
^DD(8925.1,.03,1,3,2)="D KACL^TIUDD1(X,.03)"
^DD(8925.1,.03,1,3,"%D",0)="^^2^2^3010417^"
^DD(8925.1,.03,1,3,"%D",1,0)="This complex cross-reference by class and name will help optimize the"
^DD(8925.1,.03,1,3,"%D",2,0)="title look-up for the GUI."
^DD(8925.1,.03,1,3,"DT")="3010417"
^DD(8925.1,.03,3)="Print Name is used in lists of documents and as document Title in the Patient Chart.  3-60 Characters.  If OBJECT, Print Name must be unique among object Names/Abbreviations/PrintNames, and uppercase."
^DD(8925.1,.03,21,0)="^^3^3^2990504^^^^"
^DD(8925.1,.03,21,1,0)="Print Name is the name used in lists of documents.  For entries of Type"
^DD(8925.1,.03,21,2,0)="Title, Print Name is used as the document Title in the Patient Chart."
^DD(8925.1,.03,21,3,0)="BASIC field.  For Objects, see NAME."
^DD(8925.1,.03,"DT")="3020107"
^DD(8925.1,.04,0)="TYPE^RSX^CL:CLASS;DC:DOCUMENT CLASS;DOC:TITLE;CO:COMPONENT;O:OBJECT;^0;4^K:'$G(TIUFPRIV) X"
^DD(8925.1,.04,1,0)="^.1"
^DD(8925.1,.04,1,1,0)="8925.1^AT"
^DD(8925.1,.04,1,1,1)="S ^TIU(8925.1,""AT"",$E(X,1,30),DA)="""""
^DD(8925.1,.04,1,1,2)="K ^TIU(8925.1,""AT"",$E(X,1,30),DA)"
^DD(8925.1,.04,1,1,3)="Please don't delete!"
^DD(8925.1,.04,1,1,"%D",0)="^^2^2^2950615^"
^DD(8925.1,.04,1,1,"%D",1,0)="This regular cross reference is used for listing Document Definitions by"
^DD(8925.1,.04,1,1,"%D",2,0)="Type."
^DD(8925.1,.04,1,1,"DT")="2950615"
^DD(8925.1,.04,3)="Types Class and Document Class group documents.  Titles are used to enter documents.  Components are sections of documents.  Objects are M code for use in Boilerplate Text."
^DD(8925.1,.04,4)=""
^DD(8925.1,.04,21,0)="^^99^99^2970521^^"
^DD(8925.1,.04,21,1,0)="Type determines the nature of the entry and what sort of items the entry"
^DD(8925.1,.04,21,2,0)="may have. There are 5 possible types:"
^DD(8925.1,.04,21,3,0)=" "
^DD(8925.1,.04,21,4,0)="CL CLASS:  Classes group documents."
^DD(8925.1,.04,21,5,0)=" "
^DD(8925.1,.04,21,6,0)="Example: ""Progress Notes"" is a class with many kinds of progress notes"
^DD(8925.1,.04,21,7,0)="under it."
^DD(8925.1,.04,21,8,0)=" "
^DD(8925.1,.04,21,9,0)="Classes may themselves be subdivided into items of Type Class or may have"
^DD(8925.1,.04,21,10,0)="items of Type Document Class if no further Class subdivisions are desired."
^DD(8925.1,.04,21,11,0)=" "
^DD(8925.1,.04,21,12,0)="If a hierarchy deeper than Class-Document Class-Title is desired, Class is"
^DD(8925.1,.04,21,13,0)="the place to insert another level into the hierarchy: Class-Class-Document"
^DD(8925.1,.04,21,14,0)="Class-Title."
^DD(8925.1,.04,21,15,0)=" "
^DD(8925.1,.04,21,16,0)="Besides grouping documents, Classes also store behavior which is then"
^DD(8925.1,.04,21,17,0)="inherited by lower level entries."
^DD(8925.1,.04,21,18,0)=" "
^DD(8925.1,.04,21,19,0)="DC DOCUMENT CLASS: Document Classes group documents.  Document Class is"
^DD(8925.1,.04,21,20,0)="the lowest level of class, and has items of Type Title under it."
^DD(8925.1,.04,21,21,0)=" "
^DD(8925.1,.04,21,22,0)="Example: ""Day Pass Note"" could be a Document Class under class Progress"
^DD(8925.1,.04,21,23,0)="Note."
^DD(8925.1,.04,21,24,0)=" "
^DD(8925.1,.04,21,25,0)="Document Classes also store behavior which is then inherited by lower"
^DD(8925.1,.04,21,26,0)="entries."
^DD(8925.1,.04,21,27,0)=" "
^DD(8925.1,.04,21,28,0)="TL TITLE:  Titles are used to enter documents.  They store the behavior"
^DD(8925.1,.04,21,29,0)="of the documents which use them."
^DD(8925.1,.04,21,30,0)=" "
^DD(8925.1,.04,21,31,0)="Titles may have predefined boilerplate (""Overprint"") text.  They may have"
^DD(8925.1,.04,21,32,0)="Components as items.  Boilerplate Text can have objects in it."
^DD(8925.1,.04,21,33,0)=" "
^DD(8925.1,.04,21,34,0)="Examples: ""Routine Day Pass Note"" could be a Title under document class"
^DD(8925.1,.04,21,35,0)="Day Pass Note.  Another example might be ""Exceptional Circumstances Day"
^DD(8925.1,.04,21,36,0)="Pass Note."""
^DD(8925.1,.04,21,37,0)=" "
^DD(8925.1,.04,21,38,0)="Titles store their own behavior.  They also inherit behavior from higher"
^DD(8925.1,.04,21,39,0)="levels of the hierarchy.  However, behavior stored in the Title itself"
^DD(8925.1,.04,21,40,0)="overrides inherited behavior."
^DD(8925.1,.04,21,41,0)=" "
^DD(8925.1,.04,21,42,0)="CO COMPONENT: Components are ""sections"" or ""pieces"" of documents."
^DD(8925.1,.04,21,43,0)="In the Hierarchy, Components are hung as items from Titles."
^DD(8925.1,.04,21,44,0)=" "
^DD(8925.1,.04,21,45,0)="Examples: ""Reason for Pass"" could be a component of Routine Day Pass Note."
^DD(8925.1,.04,21,46,0)="Subjective is a component of a SOAP Note."
^DD(8925.1,.04,21,47,0)=" "
^DD(8925.1,.04,21,48,0)="Components may have (sub)Components as items.  They may have Boilerplate"
^DD(8925.1,.04,21,49,0)="Text.  Components may be designated Shared (see Field Description for"
^DD(8925.1,.04,21,50,0)="Shared). Shared Components are shown in Document Definition Utility"
^DD(8925.1,.04,21,51,0)="Displays as Type: 'CO S'."
^DD(8925.1,.04,21,52,0)=" "
^DD(8925.1,.04,21,53,0)="There are advantages and disadvantages in splitting a document up into"
^DD(8925.1,.04,21,54,0)="separate components (rather than writing sections into the Boilerplate"
^DD(8925.1,.04,21,55,0)="Text of the Title): Since Components are stored as separate file entries,"
^DD(8925.1,.04,21,56,0)="they are inherently accessable and even 'moveable'. Using Fileman, sites"
^DD(8925.1,.04,21,57,0)="can access components of documents the same way they can access documents"
^DD(8925.1,.04,21,58,0)="for reports, etc.. Also, in the future, TIU may have options to move/copy"
^DD(8925.1,.04,21,59,0)="certain components from one document into another.  The disadvantage is"
^DD(8925.1,.04,21,60,0)="speed: Components make the structure more complex and therefore slow down"
^DD(8925.1,.04,21,61,0)="processing."
^DD(8925.1,.04,21,62,0)=" "
^DD(8925.1,.04,21,63,0)="O OBJECT: Objects are names which may be embedded in the predefined"
^DD(8925.1,.04,21,64,0)="boilerplate text of Titles. Example: 'PATIENT AGE'.  Objects are typed"
^DD(8925.1,.04,21,65,0)="into the boilerplate text of a Title, enclosed by '|'s.  For example,"
^DD(8925.1,.04,21,66,0)="suppose a Title has boilerplate text:"
^DD(8925.1,.04,21,67,0)=" "
^DD(8925.1,.04,21,68,0)="        Patient is a healthy |PATIENT AGE| year old male ..."
^DD(8925.1,.04,21,69,0)=" "
^DD(8925.1,.04,21,70,0)="Then a user who enters such a note for a patient known by the system to be"
^DD(8925.1,.04,21,71,0)="56 years old would be presented with the text:"
^DD(8925.1,.04,21,72,0)=" "
^DD(8925.1,.04,21,73,0)="        Patient is a healthy 56 year old male ..."
^DD(8925.1,.04,21,74,0)=" "
^DD(8925.1,.04,21,75,0)="The user can then add to the text and or edit the text, including the age"
^DD(8925.1,.04,21,76,0)="(56) of the patient.  From this point on, the patient age (56) is regular"
^DD(8925.1,.04,21,77,0)="text and is not updated in this note."
^DD(8925.1,.04,21,78,0)=" "
^DD(8925.1,.04,21,79,0)="Objects must always have uppercase names, abbreviations, and print names."
^DD(8925.1,.04,21,80,0)="When embedding objects in boilerplate text, users may embed any of these"
^DD(8925.1,.04,21,81,0)="three (name, abbreviation, print name) in boilerplate text, enclosed by"
^DD(8925.1,.04,21,82,0)="'|'s.  Objects must always be embedded in uppercase."
^DD(8925.1,.04,21,83,0)=" "
^DD(8925.1,.04,21,84,0)="Objects are stored in the Document Definition File, but are not part of"
^DD(8925.1,.04,21,85,0)="the Hierarchy.  They are accessible through the Option Create Objects."
^DD(8925.1,.04,21,86,0)="(They are also accessible through the Option Sort Document Definitions, by"
^DD(8925.1,.04,21,87,0)="selecting Sort by Type and selecting Type Object.)"
^DD(8925.1,.04,21,88,0)=" "
^DD(8925.1,.04,21,89,0)="TIU exports a small library of objects.  Sites can also create their own."
^DD(8925.1,.04,21,90,0)=" "
^DD(8925.1,.04,21,91,0)="Only an owner can edit an object and should do so only after consulting"
^DD(8925.1,.04,21,92,0)="with others who use it.  The object must be inactive for editing.  It"
^DD(8925.1,.04,21,93,0)="should be thoroughly tested.  See Object Status, under Status."
^DD(8925.1,.04,21,94,0)=" "
^DD(8925.1,.04,21,95,0)="Entries of type Object cannot be changed to any other type.  Entries of"
^DD(8925.1,.04,21,96,0)="type Class, Document Class, Title, or Component cannot be changed to type"
^DD(8925.1,.04,21,97,0)="Object."
^DD(8925.1,.04,21,98,0)=" "
^DD(8925.1,.04,21,99,0)="Type is a BASIC field."
^DD(8925.1,.04,"DT")="2970114"
^DD(8925.1,.05,0)="PERSONAL OWNER^P200'X^VA(200,^0;5^Q"
^DD(8925.1,.05,1,0)="^.1"
^DD(8925.1,.05,1,1,0)="8925.1^AP"
^DD(8925.1,.05,1,1,1)="S ^TIU(8925.1,""AP"",$E(X,1,30),DA)="""""
^DD(8925.1,.05,1,1,2)="K ^TIU(8925.1,""AP"",$E(X,1,30),DA)"
^DD(8925.1,.05,1,1,3)="Please don't delete!"
^DD(8925.1,.05,1,1,"%D",0)="^^2^2^2950615^"
^DD(8925.1,.05,1,1,"%D",1,0)="This regular cross reference is used for listing Document Definitions by"
^DD(8925.1,.05,1,1,"%D",2,0)="Personal Owner."
^DD(8925.1,.05,1,1,"DT")="2950615"
^DD(8925.1,.05,3)="Enter Person who can edit entry.  If owned by Class rather than Person, delete Personal Owner by typing '@' at Personal Owner prompt, and then enter Class Owner."
^DD(8925.1,.05,4)=""
^DD(8925.1,.05,21,0)="^^41^41^2970520^"
^DD(8925.1,.05,21,1,0)="Document Definition Ownership has nothing to do with who can USE the entry"
^DD(8925.1,.05,21,2,0)="to enter a document.  It determines responsibilty for the Document"
^DD(8925.1,.05,21,3,0)="Definition itself."
^DD(8925.1,.05,21,4,0)=" "
^DD(8925.1,.05,21,5,0)="An entry can be EDITED by its owner. (The Manager menu permits override of"
^DD(8925.1,.05,21,6,0)="ownership so that Ownership can be assigned to a clinician who can then"
^DD(8925.1,.05,21,7,0)="fill in boilerplate text with the Clinician menu, while the Manager can"
^DD(8925.1,.05,21,8,0)="still edit the entry, since there are many fields the clinician does not"
^DD(8925.1,.05,21,9,0)="have access to.)  Exception: the Manager menu does NOT override ownership"
^DD(8925.1,.05,21,10,0)="of Objects or of Shared Components.  Only owners can edit Objects and"
^DD(8925.1,.05,21,11,0)="Shared Components, regardless of menu."
^DD(8925.1,.05,21,12,0)=" "
^DD(8925.1,.05,21,13,0)="If Title owner edits the boilerplate text of the Title, that person can"
^DD(8925.1,.05,21,14,0)="edit the boilerplate text of all components of the Title as well, without"
^DD(8925.1,.05,21,15,0)="regard to component ownership. In order to edit components individually,"
^DD(8925.1,.05,21,16,0)="however, the user must own the component.  This allows users to assign"
^DD(8925.1,.05,21,17,0)="ownership of components to different people, for example, for (future)"
^DD(8925.1,.05,21,18,0)="multidisciplinary documents."
^DD(8925.1,.05,21,19,0)=" "
^DD(8925.1,.05,21,20,0)="A PERSONAL OWNER is a person who uniquely owns the entry. An entry may"
^DD(8925.1,.05,21,21,0)="have a Personal Owner OR a Class Owner but not both. When entering a"
^DD(8925.1,.05,21,22,0)="Personal Owner, be sure to delete any existing Class Owner."
^DD(8925.1,.05,21,23,0)=" "
^DD(8925.1,.05,21,24,0)="The Document Definition Utility TIUF uses the term 'Individual Owner'."
^DD(8925.1,.05,21,25,0)="Someone is an Individual Owner of an entry if s/he is the personal owner"
^DD(8925.1,.05,21,26,0)="OR, if the entry is CLASS Owned, if s/he belongs to the Owner Class."
^DD(8925.1,.05,21,27,0)=" "
^DD(8925.1,.05,21,28,0)="The Document Definition Utility TIUF enters the user as the Personal Owner"
^DD(8925.1,.05,21,29,0)="if a user enters a new entry without assigning ownership. This person can"
^DD(8925.1,.05,21,30,0)="then reassign ownership if they choose."
^DD(8925.1,.05,21,31,0)=" "
^DD(8925.1,.05,21,32,0)="If the person responsible for an entry plays a role corresponding to a"
^DD(8925.1,.05,21,33,0)="User Class, e.g. Clinical Coordinator, it may be more efficient to assign"
^DD(8925.1,.05,21,34,0)="ownership to the class rather than to the person.  Owners are then"
^DD(8925.1,.05,21,35,0)="automatically updated as the class is updated."
^DD(8925.1,.05,21,36,0)=" "
^DD(8925.1,.05,21,37,0)="Editing privilege is affected not only by Owner but also by Status, by"
^DD(8925.1,.05,21,38,0)="Shared, by In Use, and by menu.  Manager menus, for example, provide"
^DD(8925.1,.05,21,39,0)="fuller editing capabilities than Clinician menus."
^DD(8925.1,.05,21,40,0)=" "
^DD(8925.1,.05,21,41,0)="Personal Owner is a BASIC field."
^DD(8925.1,.05,"DT")="2961022"
^DD(8925.1,.06,0)="CLASS OWNER^P8930'X^USR(8930,^0;6^Q"
^DD(8925.1,.06,1,0)="^.1"
^DD(8925.1,.06,1,1,0)="8925.1^AC"
^DD(8925.1,.06,1,1,1)="S ^TIU(8925.1,""AC"",$E(X,1,30),DA)="""""
^DD(8925.1,.06,1,1,2)="K ^TIU(8925.1,""AC"",$E(X,1,30),DA)"
^DD(8925.1,.06,1,1,3)="Please don't delete!"
^DD(8925.1,.06,1,1,"%D",0)="^^2^2^2950615^"
^DD(8925.1,.06,1,1,"%D",1,0)="This regular cross reference is used to list Document Definitions by Class"
^DD(8925.1,.06,1,1,"%D",2,0)="Owner."
^DD(8925.1,.06,1,1,"DT")="2950615"
^DD(8925.1,.06,3)="If owned by Class rather than by Person enter User Class whose members may edit entry.  If owned by Person, delete Class Owner by entering '@' at Class Owner prompt."
^DD(8925.1,.06,4)=""
^DD(8925.1,.06,21,0)="^^31^31^2970227^"
^DD(8925.1,.06,21,1,0)="Document Definition Ownership has nothing to do with who can USE the entry"
^DD(8925.1,.06,21,2,0)="to enter a document.  It determines responsibility for the Document"
^DD(8925.1,.06,21,3,0)="Definition itself."
^DD(8925.1,.06,21,4,0)=" "
^DD(8925.1,.06,21,5,0)="An entry can be EDITED by its owner.  (The Manager menu permits override"
^DD(8925.1,.06,21,6,0)="of ownership so that ownership can be assigned to a clinician (person with"
^DD(8925.1,.06,21,7,0)="Clinician Menu) who can then fill in boilerplate text, while the manager"
^DD(8925.1,.06,21,8,0)="can still edit the entry, since there are many fields the clinician does"
^DD(8925.1,.06,21,9,0)="not have access to.)  Exception: the Manager menu does NOT override"
^DD(8925.1,.06,21,10,0)="ownership of Objects or of Shared Components.  These can ONLY be edited by"
^DD(8925.1,.06,21,11,0)="an owner, regardless of menu."
^DD(8925.1,.06,21,12,0)=" "
^DD(8925.1,.06,21,13,0)="If a Title owner edits the boilerplate text of the Title, that person can"
^DD(8925.1,.06,21,14,0)="edit the boilerplate text of all components of the title as well, without"
^DD(8925.1,.06,21,15,0)="regard to component ownership.  However, the user must own the component"
^DD(8925.1,.06,21,16,0)="in order to edit it individually, permitting separate ownership of"
^DD(8925.1,.06,21,17,0)="components."
^DD(8925.1,.06,21,18,0)=" "
^DD(8925.1,.06,21,19,0)="A Class Owner is a User Class from the USR CLASS file whose members may"
^DD(8925.1,.06,21,20,0)="edit the entry.  An entry may have a Personal OR a Class Owner (not both)."
^DD(8925.1,.06,21,21,0)="The Document Definition Utility TIUF does not prompt for Class Owner if"
^DD(8925.1,.06,21,22,0)="the entry has a Personal Owner.  To change to Class Owner, first delete"
^DD(8925.1,.06,21,23,0)="the Personal Owner by entering '@' at the Personal Owner prompt."
^DD(8925.1,.06,21,24,0)=" "
^DD(8925.1,.06,21,25,0)="For new entries, users are prompted to enter the Class Owner Clinical"
^DD(8925.1,.06,21,26,0)="Coordinator as the default.  To enter a different Class Owner, enter the"
^DD(8925.1,.06,21,27,0)="appropriate class after the //'s.  If there are no //'s and the"
^DD(8925.1,.06,21,28,0)="Replace...with editor is being used, enter ... to replace the whole"
^DD(8925.1,.06,21,29,0)="class and then enter the appropriate class."
^DD(8925.1,.06,21,30,0)=" "
^DD(8925.1,.06,21,31,0)="Class Owner is a BASIC field."
^DD(8925.1,.06,"DT")="2961022"
^DD(8925.1,.07,0)="STATUS^*P8925.6'X^TIU(8925.6,^0;7^K:'$G(TIUFPRIV) X Q:'$D(X)  S DIC(""S"")=""I 1 X $$STATSCRN^TIUFLF5"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.1,.07,1,0)="^.1"
^DD(8925.1,.07,1,1,0)="8925.1^AS"
^DD(8925.1,.07,1,1,1)="S ^TIU(8925.1,""AS"",$E(X,1,30),DA)="""""
^DD(8925.1,.07,1,1,2)="K ^TIU(8925.1,""AS"",$E(X,1,30),DA)"
^DD(8925.1,.07,1,1,3)="Please don't delete!"
^DD(8925.1,.07,1,1,"%D",0)="^^2^2^2950615^"
^DD(8925.1,.07,1,1,"%D",1,0)="This regular cross reference is used to list Document Definitions by"
^DD(8925.1,.07,1,1,"%D",2,0)="Status."
^DD(8925.1,.07,1,1,"DT")="2950615"
^DD(8925.1,.07,1,2,0)="8925.1^ACL07^MUMPS"
^DD(8925.1,.07,1,2,1)="D SACL^TIUDD1(X,.07)"
^DD(8925.1,.07,1,2,2)="D KACL^TIUDD1(X,.07)"
^DD(8925.1,.07,1,2,"%D",0)="^^2^2^2971016^"
^DD(8925.1,.07,1,2,"%D",1,0)="This MUMPS-type cross-reference on STATUS support the identification of"
^DD(8925.1,.07,1,2,"%D",2,0)="Active and TEST Titles within a given class."
^DD(8925.1,.07,1,2,"DT")="2971016"
^DD(8925.1,.07,3)=" Documents can be entered on ACTIVE Titles.  Only the Owner can enter a document on TEST Titles.  Only INACTIVE Document Definitions can be edited."
^DD(8925.1,.07,4)=""
^DD(8925.1,.07,12)="STATSCRN limits Status to Status file entries that are appropriate for Document Definitions: Active, Inactive, and Test."
^DD(8925.1,.07,12.1)="S DIC(""S"")=""I 1 X $$STATSCRN^TIUFLF5"""
^DD(8925.1,.07,21,0)="^^183^183^2990225^^^"
^DD(8925.1,.07,21,1,0)="Status provides a way of making Document Definitions 'Offline' to"
^DD(8925.1,.07,21,2,0)="documents.  Document Definitions need to be 'Offline' if they are new and"
^DD(8925.1,.07,21,3,0)="not ready for use, if they are being edited, or if they are retired from"
^DD(8925.1,.07,21,4,0)="further use."
^DD(8925.1,.07,21,5,0)=" "
^DD(8925.1,.07,21,6,0)="Status is limited to those Statuses in the Status File which apply to"
^DD(8925.1,.07,21,7,0)="Document Definitions: Inactive, Test, and Active. The Document Definition"
^DD(8925.1,.07,21,8,0)="Utility TIUF further limits Statuses to those appropriate for the entry"
^DD(8925.1,.07,21,9,0)="Type (see below), limits the Status of entries with Inactive ancestors to"
^DD(8925.1,.07,21,10,0)="Inactive, and limits the Status of faulty entries to Inactive."
^DD(8925.1,.07,21,11,0)=" "
^DD(8925.1,.07,21,12,0)="Status applies to all Document Definitions, but its meaning and possible"
^DD(8925.1,.07,21,13,0)="values vary somewhat with the Document Definition Type.  Exception: Shared"
^DD(8925.1,.07,21,14,0)="Components: See COMPONENT STATUS, below."
^DD(8925.1,.07,21,15,0)=" "
^DD(8925.1,.07,21,16,0)="Status is a BASIC field."
^DD(8925.1,.07,21,17,0)=" "
^DD(8925.1,.07,21,18,0)="                                TITLE STATUS"
^DD(8925.1,.07,21,19,0)=" "
^DD(8925.1,.07,21,20,0)="Status has its most basic meaning for Titles [Document Definitions of Type"
^DD(8925.1,.07,21,21,0)="Title]:"
^DD(8925.1,.07,21,22,0)=" "
^DD(8925.1,.07,21,23,0)="A Title can have Status Inactive, Test, or Active.  If it has Status"
^DD(8925.1,.07,21,24,0)="Inactive, it cannot be used to enter documents (EXCEPT through the"
^DD(8925.1,.07,21,25,0)="Try Action, which deletes the document when done). If it has Status"
^DD(8925.1,.07,21,26,0)="Test, it can be used to enter documents only by its Owner. Titles should"
^DD(8925.1,.07,21,27,0)="be tested (and Tried) using TEST PATIENTS ONLY.  If a Title has Status"
^DD(8925.1,.07,21,28,0)="Active, it can be used to enter documents by any one with access and"
^DD(8925.1,.07,21,29,0)="authorization.  "
^DD(8925.1,.07,21,30,0)=" "
^DD(8925.1,.07,21,31,0)="                              *************** "
^DD(8925.1,.07,21,32,0)="NOTE on Availability of Titles for entering documents: "
^DD(8925.1,.07,21,33,0)="Although Status affects availability for entering documents, there are"
^DD(8925.1,.07,21,34,0)="other factors which also affect availability: A Document Definition is not"
^DD(8925.1,.07,21,35,0)="available to a given user for entering documents (excepting the Document"
^DD(8925.1,.07,21,36,0)="Definition Utility Try Action) unless all of the following 3 criteria are"
^DD(8925.1,.07,21,37,0)="met:"
^DD(8925.1,.07,21,38,0)=" "
^DD(8925.1,.07,21,39,0)="  1) It is a Document Definition of Type Title."
^DD(8925.1,.07,21,40,0)=" "
^DD(8925.1,.07,21,41,0)="  2) It has Status Active or Test.  If it has Status Test, the user"
^DD(8925.1,.07,21,42,0)="entering a document must own the Title."
^DD(8925.1,.07,21,43,0)=" "
^DD(8925.1,.07,21,44,0)="  3) If authorization for using the Title to enter documents is restricted"
^DD(8925.1,.07,21,45,0)="by Business Rules, the user must be a member of the authorized user"
^DD(8925.1,.07,21,46,0)="class."
^DD(8925.1,.07,21,47,0)=" "
^DD(8925.1,.07,21,48,0)="Unless these criteria are all met, users trying to enter documents will"
^DD(8925.1,.07,21,49,0)="not SEE the Document Definition.  Therefore it is wise to warn users when"
^DD(8925.1,.07,21,50,0)="taking definitions offline for edit, and/or to do so at nonpeak hours for"
^DD(8925.1,.07,21,51,0)="entering documents."
^DD(8925.1,.07,21,52,0)=" "
^DD(8925.1,.07,21,53,0)="The above description applies to document entry BOTH manually through"
^DD(8925.1,.07,21,54,0)="menu options AND via upload.  It does NOT apply to autoentry of documents"
^DD(8925.1,.07,21,55,0)="via the TIU application interface.  Adverse Reaction/Allergy notes entered"
^DD(8925.1,.07,21,56,0)="by the Allergy package are an example of such autoentry.  The TIU"
^DD(8925.1,.07,21,57,0)="application interface for autoentering documents disregards Title status"
^DD(8925.1,.07,21,58,0)="and Business Rules."
^DD(8925.1,.07,21,59,0)="                             *******************"
^DD(8925.1,.07,21,60,0)=" "
^DD(8925.1,.07,21,61,0)="When being upgraded to Status Active or Test, a Title is examined for"
^DD(8925.1,.07,21,62,0)="rudimentary completeness and must be judged OK before the upgrade takes"
^DD(8925.1,.07,21,63,0)="place.  If desired, users can perform the same examination themselves by"
^DD(8925.1,.07,21,64,0)="selecting action TRY.  For Titles, Action TRY also permits the user to"
^DD(8925.1,.07,21,65,0)="enter a document on the entry.  The document is deleted immediately after"
^DD(8925.1,.07,21,66,0)="the trial."
^DD(8925.1,.07,21,67,0)=" "
^DD(8925.1,.07,21,68,0)="Availability for entering documents is the central meaning of Status."
^DD(8925.1,.07,21,69,0)="However, Status also controls edit/deletion of Document Definitions:  A"
^DD(8925.1,.07,21,70,0)="Title can be edited ONLY if it has Status Inactive, ensuring that no one"
^DD(8925.1,.07,21,71,0)="is using it to enter a document while its behavior is changing.  Titles"
^DD(8925.1,.07,21,72,0)="can be deleted only with Status Inactive."
^DD(8925.1,.07,21,73,0)=" "
^DD(8925.1,.07,21,74,0)="NOTE: Although Status affects Editing ability, it is not the only factor"
^DD(8925.1,.07,21,75,0)="affecting editing:  If an entry is already IN USE by documents,"
^DD(8925.1,.07,21,76,0)="editing/deletion is restricted to aspects which will not harm existing"
^DD(8925.1,.07,21,77,0)="TIU documents."
^DD(8925.1,.07,21,78,0)=" "
^DD(8925.1,.07,21,79,0)="Components under a Title have the same status as the Title: When a Title's"
^DD(8925.1,.07,21,80,0)="status is changed, the statuses of its descendant Components are"
^DD(8925.1,.07,21,81,0)="automatically changed with it. (Shared Components are an exception: see"
^DD(8925.1,.07,21,82,0)="COMPONENT STATUS, below.)"
^DD(8925.1,.07,21,83,0)=" "
^DD(8925.1,.07,21,84,0)="                       CLASS/DOCUMENT CLASS STATUS"
^DD(8925.1,.07,21,85,0)=" "
^DD(8925.1,.07,21,86,0)="A Document Definition of Type Class or Document Class can have Status"
^DD(8925.1,.07,21,87,0)="Inactive or Active.  "
^DD(8925.1,.07,21,88,0)=" "
^DD(8925.1,.07,21,89,0)="Basics for a Class or Document Class cannot be edited (except for Owner"
^DD(8925.1,.07,21,90,0)="and Status) unless it is Inactive.  Since Inactivating a Class/Document"
^DD(8925.1,.07,21,91,0)="Class automatically inactivates its descendants, this ensures that all"
^DD(8925.1,.07,21,92,0)="Titles which inherit behavior from it are neither Active nor Test, and are"
^DD(8925.1,.07,21,93,0)="thus 'Offline' while inherited behavior is edited."
^DD(8925.1,.07,21,94,0)=" "
^DD(8925.1,.07,21,95,0)="In contrast to Basics, the ability to add/edit ITEMS of a Class/Document"
^DD(8925.1,.07,21,96,0)="Class depends on the Status of the item, not the parent: it is NOT"
^DD(8925.1,.07,21,97,0)="necessary to Inactivate a Class such as Progress Notes in order to"
^DD(8925.1,.07,21,98,0)="edit/add items."
^DD(8925.1,.07,21,99,0)=" "
^DD(8925.1,.07,21,100,0)="Activating a Class/Document Class differs from Inactivating the"
^DD(8925.1,.07,21,101,0)="Class/Document Class: When a Class/Document Class is ACTIVATED, its"
^DD(8925.1,.07,21,102,0)="descendants may have any Status which their Type permits: they are not"
^DD(8925.1,.07,21,103,0)="REQUIRED to be Active. Hence, they are not automatically Activated when"
^DD(8925.1,.07,21,104,0)="the parent is Activated."
^DD(8925.1,.07,21,105,0)=" "
^DD(8925.1,.07,21,106,0)="                            COMPONENT STATUS"
^DD(8925.1,.07,21,107,0)=" "
^DD(8925.1,.07,21,108,0)="A Document Definition of Type Component has the same status as its parent:"
^DD(8925.1,.07,21,109,0)="Its status can be changed only by changing the Status of its Parent, if it"
^DD(8925.1,.07,21,110,0)="has one. Components without parents are always Inactive."
^DD(8925.1,.07,21,111,0)=" "
^DD(8925.1,.07,21,112,0)="NOTE: The above implies that Test or Active Titles cannot have Inactive"
^DD(8925.1,.07,21,113,0)="Components.  In other words, Inactivating a Component is NOT a way of"
^DD(8925.1,.07,21,114,0)="retiring it.  If a Component is no longer a useful section of a Title, it"
^DD(8925.1,.07,21,115,0)="should be edited so as to make it useful, or it should be deleted AS AN"
^DD(8925.1,.07,21,116,0)="ITEM from the Title of which it is a part.  As with all retired Document"
^DD(8925.1,.07,21,117,0)="Definitions, it should NOT be deleted FROM THE FILE if it has been used by"
^DD(8925.1,.07,21,118,0)="documents."
^DD(8925.1,.07,21,119,0)=" "
^DD(8925.1,.07,21,120,0)="Components can be edited only if they have status Inactive. This ensures"
^DD(8925.1,.07,21,121,0)="that all Titles using them are offline while the components are being"
^DD(8925.1,.07,21,122,0)="edited."
^DD(8925.1,.07,21,123,0)=" "
^DD(8925.1,.07,21,124,0)="Shared Components are a special case since they can have multiple parents."
^DD(8925.1,.07,21,125,0)="They DO NOT HAVE A STATUS. They can be edited only when all parent Titles"
^DD(8925.1,.07,21,126,0)="have Status Inactive.  (The Detailed Display screen shows parents.)  This"
^DD(8925.1,.07,21,127,0)="ensures that all parent Titles of Shared Components are offline while the"
^DD(8925.1,.07,21,128,0)="component is being edited.  Edit of Shared Components is permitted only"
^DD(8925.1,.07,21,129,0)="through the Option Sort Document Definitions."
^DD(8925.1,.07,21,130,0)=" "
^DD(8925.1,.07,21,131,0)="Edit of Shared Components is severely restricted by Ownership, since they"
^DD(8925.1,.07,21,132,0)="may be used multiple times and across the site.  Even an Inactive Status"
^DD(8925.1,.07,21,133,0)="does not permit a manager (person with Manager menu) to override ownership"
^DD(8925.1,.07,21,134,0)="and edit a Shared Component they don't own.  See Shared Components, under"
^DD(8925.1,.07,21,135,0)="Description of Type.  See Description of Shared."
^DD(8925.1,.07,21,136,0)=" "
^DD(8925.1,.07,21,137,0)="                               OBJECT STATUS"
^DD(8925.1,.07,21,138,0)=" "
^DD(8925.1,.07,21,139,0)="Document Definitions of Type Object have Status Inactive or Active."
^DD(8925.1,.07,21,140,0)=" "
^DD(8925.1,.07,21,141,0)="Only ACTIVE objects function.  That is, if a user enters a document on a"
^DD(8925.1,.07,21,142,0)="Title with boilerplate text containing an inactive object, the object"
^DD(8925.1,.07,21,143,0)="doesn't do anything; the user sees the name of the object and an error"
^DD(8925.1,.07,21,144,0)="message in place of the object data."
^DD(8925.1,.07,21,145,0)=" "
^DD(8925.1,.07,21,146,0)="Only ACTIVE objects should be embedded in boilerplate text.  Exception:"
^DD(8925.1,.07,21,147,0)="owners who are creating/editing objects.  Others should NOT embed inactive"
^DD(8925.1,.07,21,148,0)="objects in boilerplate text since they may not be ready for use and since"
^DD(8925.1,.07,21,149,0)="they do not function when users enter documents against them. Titles whose"
^DD(8925.1,.07,21,150,0)="boilerplate text contains inactive objects cannot be activated.  (This"
^DD(8925.1,.07,21,151,0)="does NOT imply that active titles never have inactive objects embedded in"
^DD(8925.1,.07,21,152,0)="them since users can, after a warning, inactivate objects even when they"
^DD(8925.1,.07,21,153,0)="are embedded in active titles.)"
^DD(8925.1,.07,21,154,0)=" "
^DD(8925.1,.07,21,155,0)="Only INACTIVE objects can be edited (and only by an owner).  Only an owner"
^DD(8925.1,.07,21,156,0)="can activate/inactivate an object.  (Exception: if a user owns an object"
^DD(8925.1,.07,21,157,0)="and edits the owner to someone else, the user is not prevented from going"
^DD(8925.1,.07,21,158,0)="on to edit the status in the same edit session since they WERE the owner a"
^DD(8925.1,.07,21,159,0)="few seconds ago.)  Active objects are assumed to be ready for use in any"
^DD(8925.1,.07,21,160,0)="boilerplate text."
^DD(8925.1,.07,21,161,0)=" "
^DD(8925.1,.07,21,162,0)="Since the owner is essentially caretaker of the object for the entire"
^DD(8925.1,.07,21,163,0)="site, the owner should consult with all who use it before editing it.  An"
^DD(8925.1,.07,21,164,0)="object can be tested by embedding it in the boilerplate text of a Title"
^DD(8925.1,.07,21,165,0)="and selecting action Try for the Title.  It need not have status Active"
^DD(8925.1,.07,21,166,0)="for this testing (and SHOULD not have status Active until testing is"
^DD(8925.1,.07,21,167,0)="complete).  Owners who inactivate objects for editing should make SURE to"
^DD(8925.1,.07,21,168,0)="reactivate them if they are being used."
^DD(8925.1,.07,21,169,0)=" "
^DD(8925.1,.07,21,170,0)="Sites should either inactivate relevant Titles before editing objects or"
^DD(8925.1,.07,21,171,0)="edit objects only when users are not likely to be ENTERING documents since"
^DD(8925.1,.07,21,172,0)="Inactive objects do not function."
^DD(8925.1,.07,21,173,0)=" "
^DD(8925.1,.07,21,174,0)="If a site changes the name or behavior of an Object, it is up to the SITE"
^DD(8925.1,.07,21,175,0)="to change the name wherever it has already been embedded in Boilerplate"
^DD(8925.1,.07,21,176,0)="Text, and to inform users of the change."
^DD(8925.1,.07,21,177,0)=" "
^DD(8925.1,.07,21,178,0)="An object which is no longer wanted for future documents can be removed"
^DD(8925.1,.07,21,179,0)="from the boilerplate text of all Titles and Components and then deleted"
^DD(8925.1,.07,21,180,0)="from file 8925.1.  Only an owner can delete it.  All of the documents that"
^DD(8925.1,.07,21,181,0)="used it have already got it in hard words so there is no need to keep it"
^DD(8925.1,.07,21,182,0)="for their sake.  Old Objects should be edited so they are useful or"
^DD(8925.1,.07,21,183,0)="deleted, not kept around forever as Inactive."
^DD(8925.1,.07,"DT")="2971016"
^DD(8925.1,.08,0)="IN USE^CJ6^^ ; ^S X=$S($L($T(^TIUFLF)):$$DDEFUSED^TIUFLF(D0),1:""?"")"
^DD(8925.1,.08,.1)=""
^DD(8925.1,.08,9)="^"
^DD(8925.1,.08,9.01)=""
^DD(8925.1,.08,9.1)="S X=$S($L($T(^TIUFLF)):$$DDEFUSED^TIUFLF(D0),1:""?"")"
^DD(8925.1,.08,21,0)="^^55^55^2970125^"
^DD(8925.1,.08,21,1,0)="IN USE applies to all entries except those of Type Object.  It cannot be"
^DD(8925.1,.08,21,2,0)="edited since it gets its value automatically."
^DD(8925.1,.08,21,3,0)=" "
^DD(8925.1,.08,21,4,0)="IN USE may have values 'Yes', 'No', or '?'."
^DD(8925.1,.08,21,5,0)=" "
^DD(8925.1,.08,21,6,0)="A Document Definition of Type Title or Component is In Use (Yes) if there"
^DD(8925.1,.08,21,7,0)="are entries IN THE TIU DOCUMENT file which store it as their Document"
^DD(8925.1,.08,21,8,0)="Definition.  If not, it is NOT used (No). "
^DD(8925.1,.08,21,9,0)=" "
^DD(8925.1,.08,21,10,0)="NOTE: It is possible for Document Definitions to be used by documents in"
^DD(8925.1,.08,21,11,0)="files other than the TIU Document file and still be NOT In Use since In"
^DD(8925.1,.08,21,12,0)="Use means in use by documents in the TIU Document Definition file. See"
^DD(8925.1,.08,21,13,0)="Warning, below."
^DD(8925.1,.08,21,14,0)=" "
^DD(8925.1,.08,21,15,0)="A Document Definition of Type Class or Document Class is In Use (Yes) if"
^DD(8925.1,.08,21,16,0)="it has children of Type Title which are In Use. That is, it is Used by"
^DD(8925.1,.08,21,17,0)="Documents (Yes) if there are entries in the TIU Document file which"
^DD(8925.1,.08,21,18,0)="inherit behavior from it. If not, it is NOT used (No)."
^DD(8925.1,.08,21,19,0)=" "
^DD(8925.1,.08,21,20,0)="IN USE has value '?' for a Document Definition File entry if routine"
^DD(8925.1,.08,21,21,0)="TIUFLF is missing or if the program encounters a nonexistent item and the"
^DD(8925.1,.08,21,22,0)="entry is not In Use so far as the check has been able to go."
^DD(8925.1,.08,21,23,0)=" "
^DD(8925.1,.08,21,24,0)="Note: Since Shared Components can be items of more than one Title, a"
^DD(8925.1,.08,21,25,0)="Shared Component may be In Use even when a particular parent Title is"
^DD(8925.1,.08,21,26,0)="NOT In Use.  This simply means that it is also a Component of another"
^DD(8925.1,.08,21,27,0)="Title which IS In Use."
^DD(8925.1,.08,21,28,0)=" "
^DD(8925.1,.08,21,29,0)="If IN USE has the explicit value 'No' for a particular Document Definition"
^DD(8925.1,.08,21,30,0)="entry, the entry can be deleted by the Owner without harming documents IN"
^DD(8925.1,.08,21,31,0)="TIU DOCUMENT FILE 8925. Deleting it will, however, orphan any descendant"
^DD(8925.1,.08,21,32,0)="Document Definitions."
^DD(8925.1,.08,21,33,0)=" "
^DD(8925.1,.08,21,34,0)="WARNING: If a site is using TIU to upload documents into a file other than"
^DD(8925.1,.08,21,35,0)="the TIU Document file, it may create Document Definition entries to store"
^DD(8925.1,.08,21,36,0)="upload information.  For example, it may create an Operative Reports title"
^DD(8925.1,.08,21,37,0)="containing instructions for uploading documents into the Surgery file."
^DD(8925.1,.08,21,38,0)="These document definitions will be orphans and will be NOT In Use, since"
^DD(8925.1,.08,21,39,0)="documents using them are not stored in the TIU Document file. They must"
^DD(8925.1,.08,21,40,0)="NOT be deleted from the Document Definition file."
^DD(8925.1,.08,21,41,0)=" "
^DD(8925.1,.08,21,42,0)="Note: Deleting Objects will not harm existing documents, but WILL HARM"
^DD(8925.1,.08,21,43,0)="future documents if the Object is embedded in existing Document Definition"
^DD(8925.1,.08,21,44,0)="Boilerplate Text."
^DD(8925.1,.08,21,45,0)=" "
^DD(8925.1,.08,21,46,0)="If IN USE has value 'Yes' or '?', the Document Definition Utility TIUF"
^DD(8925.1,.08,21,47,0)="does not permit the entry to be deleted. Deleting the entry would cause"
^DD(8925.1,.08,21,48,0)="documents in file 8925 not to function.  This is true even if the entry"
^DD(8925.1,.08,21,49,0)="has status 'Inactive' and documents are no longer being written on the"
^DD(8925.1,.08,21,50,0)="entry."
^DD(8925.1,.08,21,51,0)=" "
^DD(8925.1,.08,21,52,0)="Technical Note: A Document Definition of Type Title or Component is IN"
^DD(8925.1,.08,21,53,0)="USE if and only if it appears in file 8925's 'B' Cross Reference."
^DD(8925.1,.08,21,54,0)=" "
^DD(8925.1,.08,21,55,0)="In Use is a BASIC field."
^DD(8925.1,.08,"DT")="2960618"
^DD(8925.1,.1,0)="SHARED^SX^1:YES;0:NO;^0;10^K:'$G(TIUFPRIV) X"
^DD(8925.1,.1,.1)="SHARED COMPONENT"
^DD(8925.1,.1,3)="Enter Y for YES if this Component is intended for broad use across the site, i.e., it can be used more than once, and need not be owned by the user."
^DD(8925.1,.1,21,0)="^^48^48^2970220^"
^DD(8925.1,.1,21,1,0)="Applies to entries of Type Component only."
^DD(8925.1,.1,21,2,0)=" "
^DD(8925.1,.1,21,3,0)="Document Definitions of Type Component may be designated SHARED by Owners"
^DD(8925.1,.1,21,4,0)="who have the Manager menu. This means the Component can be an item under"
^DD(8925.1,.1,21,5,0)="multiple parents, and any user who owns a Title can add it as an item."
^DD(8925.1,.1,21,6,0)=" "
^DD(8925.1,.1,21,7,0)="Shared Components are the ONLY members of the Document Definition"
^DD(8925.1,.1,21,8,0)="hierarchy which can appear in more than one place in the hierarchy."
^DD(8925.1,.1,21,9,0)="(Objects can be used in multiple entries, but are not members of the"
^DD(8925.1,.1,21,10,0)="hierarchy.)"
^DD(8925.1,.1,21,11,0)=" "
^DD(8925.1,.1,21,12,0)="Shared Components are intended for broad use across the site.  An example"
^DD(8925.1,.1,21,13,0)="might be a Privacy Act Component.  Since a Shared Component may be used in"
^DD(8925.1,.1,21,14,0)="many different Document Definitions, its Owner is essentially caretaker"
^DD(8925.1,.1,21,15,0)="for it, hospital wide, and must take into account all users before editing"
^DD(8925.1,.1,21,16,0)="it.  Users who disagree with a proposed change can opt to create and use"
^DD(8925.1,.1,21,17,0)="their own copy instead of using the Shared Component."
^DD(8925.1,.1,21,18,0)=" "
^DD(8925.1,.1,21,19,0)="Parents of a Shared Component are listed in the Detailed Display Screen."
^DD(8925.1,.1,21,20,0)=" "
^DD(8925.1,.1,21,21,0)="Shared Field values are 1 for YES and 0 for NO, with a default value of"
^DD(8925.1,.1,21,22,0)="0 for NO if the field is empty."
^DD(8925.1,.1,21,23,0)=" "
^DD(8925.1,.1,21,24,0)="An entry may not be designated Shared unless it is of Type Component. Only"
^DD(8925.1,.1,21,25,0)="a Manager (person with Manager menu) and only an Owner can designate a"
^DD(8925.1,.1,21,26,0)="Component as Shared. Only an OWNER can edit it.  (Normally Managers can"
^DD(8925.1,.1,21,27,0)="override ownership and edit entries.  Manager Options do NOT override"
^DD(8925.1,.1,21,28,0)="Ownership for editing Shared Components).  Shared Components can only be"
^DD(8925.1,.1,21,29,0)="edited from the Sort Document Definitions Option."
^DD(8925.1,.1,21,30,0)=" "
^DD(8925.1,.1,21,31,0)="Shared Components cannot be deleted.  If they do not have multiple"
^DD(8925.1,.1,21,32,0)="parents, they can, however, be edited to NOT shared and THEN deleted,"
^DD(8925.1,.1,21,33,0)="assuming they are not In Use by documents and the parent is Inactive."
^DD(8925.1,.1,21,34,0)=" "
^DD(8925.1,.1,21,35,0)="Shared Components do NOT HAVE a Status.  They can be edited only if all"
^DD(8925.1,.1,21,36,0)="parent Titles are Inactive.  This ensures that parent Titles are offline"
^DD(8925.1,.1,21,37,0)="for entering documents while their components are being edited.  Parents"
^DD(8925.1,.1,21,38,0)="are listed on the Detailed Display Screen."
^DD(8925.1,.1,21,39,0)=" "
^DD(8925.1,.1,21,40,0)="If a Shared Component has subcomponents, they are automatically Shared,"
^DD(8925.1,.1,21,41,0)="since they, with their parents, can be used in more than one place in the"
^DD(8925.1,.1,21,42,0)="hierarchy."
^DD(8925.1,.1,21,43,0)=" "
^DD(8925.1,.1,21,44,0)="Sharing of Document Definitions other than Components is not permitted"
^DD(8925.1,.1,21,45,0)="because it unduly restricts the owner's right to edit/delete the Document"
^DD(8925.1,.1,21,46,0)="Definition and adds undue complexity to the Hierarchy."
^DD(8925.1,.1,21,47,0)=" "
^DD(8925.1,.1,21,48,0)="Shared is a BASIC field."
^DD(8925.1,.1,"DT")="2961022"
^DD(8925.1,.11,0)="ORPHAN^CJ8^^ ; ^S X=$S($L($T(^TIUFLF4)):$$ORPHAN^TIUFLF4(D0,^TIU(8925.1,D0,0)),1:""?"")"
^DD(8925.1,.11,9)="^"
^DD(8925.1,.11,9.01)=""
^DD(8925.1,.11,9.1)="S X=$S($L($T(^TIUFLF4)):$$ORPHAN^TIUFLF4(D0,^TIU(8925.1,D0,0)),1:""?"")"
^DD(8925.1,.11,21,0)="^^57^57^2970220^"
^DD(8925.1,.11,21,1,0)="Orphan applies to Document Definitions of all Types except Objects"
^DD(8925.1,.11,21,2,0)="and Shared Components."
^DD(8925.1,.11,21,3,0)=" "
^DD(8925.1,.11,21,4,0)="Orphan is not editable since it gets its value automatically."
^DD(8925.1,.11,21,5,0)=" "
^DD(8925.1,.11,21,6,0)="Document Definitions are Orphans if they do not belong to the Clinical"
^DD(8925.1,.11,21,7,0)="Documents Hierarchy, i.e., they cannot trace their ancestry all the way"
^DD(8925.1,.11,21,8,0)="back to the Class Clinical Documents.  If an Orphan is not In Use, it"
^DD(8925.1,.11,21,9,0)="may be ""dead wood"" which should be deleted from the file.  Orphans not In"
^DD(8925.1,.11,21,10,0)="Use which SHOULD NOT BE DELETED include those being kept for later"
^DD(8925.1,.11,21,11,0)="possible use, those temporarily orphaned in order to move them around in"
^DD(8925.1,.11,21,12,0)="the hierarchy, and those used for uploading documents into files other"
^DD(8925.1,.11,21,13,0)="than the TIU Document file."
^DD(8925.1,.11,21,14,0)=" "
^DD(8925.1,.11,21,15,0)="(Orphan does not apply to Objects since they don't ever belong to the"
^DD(8925.1,.11,21,16,0)="hierarchy.  Orphan does not apply to Shared Components since they may"
^DD(8925.1,.11,21,17,0)="have more than one line of ancestry.)"
^DD(8925.1,.11,21,18,0)=" "
^DD(8925.1,.11,21,19,0)="Warning:  The DOCUMENT DEFINITION file may contain orphan entries which"
^DD(8925.1,.11,21,20,0)="are not used by documents in the TIU Document file but which contain"
^DD(8925.1,.11,21,21,0)="upload instructions for storing documents somewhere else.  For example, if"
^DD(8925.1,.11,21,22,0)="a site is uploading Operative Reports into the Surgery file, there may be"
^DD(8925.1,.11,21,23,0)="an orphan Operative Report Document Definition in the DOCUMENT DEFINITION"
^DD(8925.1,.11,21,24,0)="file.  These should NOT be deleted just because they are orphans.  Such"
^DD(8925.1,.11,21,25,0)="entries can be identified by edit/viewing them through the Sort Option"
^DD(8925.1,.11,21,26,0)="and looking for Upload fields."
^DD(8925.1,.11,21,27,0)=" "
^DD(8925.1,.11,21,28,0)="NOTE: Orphan as used in the Document Definition Utility TIUF does NOT mean"
^DD(8925.1,.11,21,29,0)="having no parents.  For example, suppose Exceptional Day Pass Note has"
^DD(8925.1,.11,21,30,0)="parent Day Pass Note.  If Day Pass Note has no parent, then Exceptional"
^DD(8925.1,.11,21,31,0)="Day Pass Note cannot trace its ancestry back to Clinical Documents and is"
^DD(8925.1,.11,21,32,0)="an Orphan even though it has a parent."
^DD(8925.1,.11,21,33,0)=" "
^DD(8925.1,.11,21,34,0)="Orphans are invisible to TIU users and cannot be used to enter documents."
^DD(8925.1,.11,21,35,0)=" "
^DD(8925.1,.11,21,36,0)="When an item under a non-orphan is deleted as an item, it becomes an"
^DD(8925.1,.11,21,37,0)="orphan along with all of its descendants.  TIUF, the Document Definition"
^DD(8925.1,.11,21,38,0)="Utility, does not permit non-orphan Titles to become orphaned if they are"
^DD(8925.1,.11,21,39,0)="In Use.  Titles already used but being retired from further use should"
^DD(8925.1,.11,21,40,0)="be Inactivated, NOT orphaned.  Components are a different story;"
^DD(8925.1,.11,21,41,0)="components being retired from further use can and should be orphaned"
^DD(8925.1,.11,21,42,0)="(deleted as items from the Title)."
^DD(8925.1,.11,21,43,0)=" "
^DD(8925.1,.11,21,44,0)="Reason: Titles inherit attributes and therefore require a complete"
^DD(8925.1,.11,21,45,0)="ancestry in order to process existing documents.  Since components, on the"
^DD(8925.1,.11,21,46,0)="other hand, do not inherit attributes, they do NOT require a complete"
^DD(8925.1,.11,21,47,0)="ancestry to process existing documents (although they must remain in the"
^DD(8925.1,.11,21,48,0)="file.)"
^DD(8925.1,.11,21,49,0)=" "
^DD(8925.1,.11,21,50,0)="Since Orphans do not belong to the Hierarchy, they do NOT appear on the"
^DD(8925.1,.11,21,51,0)="Edit Document Definitions Option.  They can be accessed through the Sort"
^DD(8925.1,.11,21,52,0)="Document Definitions Option."
^DD(8925.1,.11,21,53,0)=" "
^DD(8925.1,.11,21,54,0)="The field Orphan may have values 'Yes', 'No', or '?'. Orphan has value '?'"
^DD(8925.1,.11,21,55,0)="if there are technical errors making its value unknown."
^DD(8925.1,.11,21,56,0)=" "
^DD(8925.1,.11,21,57,0)="Orphan is a BASIC field."
^DD(8925.1,.11,"DT")="2960201"
^DD(8925.1,.12,0)="HAS BOILTXT^CJ7^^ ; ^S TIUFBTXT=$S($L($T(^TIUFLF)):$$HASBOIL^TIUFLF(D0,^TIU(8925.1,D0,0)),1:""UNKNOWN""),X=$S(TIUFBTXT:""YES"",TIUFBTXT=0:""NO"",1:TIUFBTXT) K TIUFBTXT"
^DD(8925.1,.12,.1)="HAS BOILERPLATE TEXT"
^DD(8925.1,.12,9)="^"
^DD(8925.1,.12,9.01)=""
^DD(8925.1,.12,9.1)="S TIUFBTXT=$S($L($T(^TIUFLF)):$$HASBOIL^TIUFLF(D0,^TIU(8925.1,D0,0)),1:""UNKNOWN""),X=$S(TIUFBTXT:""YES"",TIUFBTXT=0:""NO"",1:TIUFBTXT) K TIUFBTXT"
^DD(8925.1,.12,21,0)="^^3^3^2970128^"
^DD(8925.1,.12,21,1,0)="Applies to Types Title and Component only.  Cannot be edited since value"
^DD(8925.1,.12,21,2,0)="is automatic.  A Document Definition Has Boiltxt if it or its descendant"
^DD(8925.1,.12,21,3,0)="Components have Boilerplate Text (Field 3).  BASIC field."
^DD(8925.1,.12,"DT")="2960118"
^DD(8925.1,.13,0)="NATIONAL STANDARD^SX^1:YES;0:NO;^0;13^K:'$G(TIUFPRIV) X"
^DD(8925.1,.13,3)="Enter YES if entry is Standard across the nation, i.e. sites mustn't edit"
^DD(8925.1,.13,4)=""
^DD(8925.1,.13,21,0)="^^47^47^2990223^"
^DD(8925.1,.13,21,1,0)="Some Document Definitions, for example, CWAD's, are developed nationally"
^DD(8925.1,.13,21,2,0)="and sent out as standardized entries across the nation.  TIU and other"
^DD(8925.1,.13,21,3,0)="packages depend on their standard definition, and they must not be edited"
^DD(8925.1,.13,21,4,0)="by sites but only by the persons who are nationally responsible for them."
^DD(8925.1,.13,21,5,0)=" "
^DD(8925.1,.13,21,6,0)="Such entries are marked NATIONAL STANDARD (field has value 1 for YES),"
^DD(8925.1,.13,21,7,0)="which generally prevents sites from editing the entry."
^DD(8925.1,.13,21,8,0)=" "
^DD(8925.1,.13,21,9,0)="In two cases, sites are permitted to edit National Standard entries.  The"
^DD(8925.1,.13,21,10,0)="first case concerns Titles.  Sites can edit Status and Abbreviation for"
^DD(8925.1,.13,21,11,0)="National Titles.  Status INACTIVE for a National Title prevents manual and"
^DD(8925.1,.13,21,12,0)="upload entry of documents for the Title, while continuing to permit"
^DD(8925.1,.13,21,13,0)="automatic entry for the Title via the TIU application interface for new"
^DD(8925.1,.13,21,14,0)="notes. (Example: Adverse Reaction/Allergy notes are automatically"
^DD(8925.1,.13,21,15,0)="entered by the Allergy package.) Editing Abbreviation gives sites a means"
^DD(8925.1,.13,21,16,0)="of grouping national titles with other National and non-National Titles as"
^DD(8925.1,.13,21,17,0)="they please."
^DD(8925.1,.13,21,18,0)=" "
^DD(8925.1,.13,21,19,0)="The second case where edit of National entries is permitted concerns the"
^DD(8925.1,.13,21,20,0)="Item Multiple:"
^DD(8925.1,.13,21,21,0)=" "
^DD(8925.1,.13,21,22,0)="If a National Standard entry has Type Class or Document Class, sites can"
^DD(8925.1,.13,21,23,0)="add/delete Nonnational items as they please, and can edit ALL items AS"
^DD(8925.1,.13,21,24,0)="ITEMS (e.g. Item Sequence, etc.).  Sites CANNOT add/delete National items."
^DD(8925.1,.13,21,25,0)=" "
^DD(8925.1,.13,21,26,0)="If a National Standard entry has Type Title or Component, sites"
^DD(8925.1,.13,21,27,0)="cannot add or delete items, but can still edit items AS ITEMS."
^DD(8925.1,.13,21,28,0)=" "
^DD(8925.1,.13,21,29,0)="Sites cannot add National Standard entries as Items to parents.  There is"
^DD(8925.1,.13,21,30,0)="one exception: Sites can add National Shared Components to (nonnational)"
^DD(8925.1,.13,21,31,0)="Titles if they wish.  Sites can delete National Standard Items from"
^DD(8925.1,.13,21,32,0)="nonnational parents. (Unless there has been a mistake, such items will be"
^DD(8925.1,.13,21,33,0)="limited to Shared Components only.)"
^DD(8925.1,.13,21,34,0)=" "
^DD(8925.1,.13,21,35,0)="Field is NOT heritable.  If field has no value for an entry, value is 0 by"
^DD(8925.1,.13,21,36,0)="default.  This means that entries created by sites are NOT National"
^DD(8925.1,.13,21,37,0)="Standard."
^DD(8925.1,.13,21,38,0)=" "
^DD(8925.1,.13,21,39,0)="Technical Note:"
^DD(8925.1,.13,21,40,0)=" "
^DD(8925.1,.13,21,41,0)="National entries (except for Shared Components) must have National"
^DD(8925.1,.13,21,42,0)="ancestors:  if a National entry has a nonNational ancestor, the"
^DD(8925.1,.13,21,43,0)="Document Definition Utility TIUF does not permit it to be activated."
^DD(8925.1,.13,21,44,0)="(Shared Components need not have National ancestors, and do not have a"
^DD(8925.1,.13,21,45,0)="Status.)"
^DD(8925.1,.13,21,46,0)=" "
^DD(8925.1,.13,21,47,0)="National Standard is a BASIC field."
^DD(8925.1,.13,"DT")="2970128"
^DD(8925.1,.14,0)="POSTING INDICATOR^S^C:crisis note;W:warning;A:allergy/ADR;D:directive;^0;14^Q"
^DD(8925.1,.14,1,0)="^.1"
^DD(8925.1,.14,1,1,0)="8925.1^APOST"
^DD(8925.1,.14,1,1,1)="S ^TIU(8925.1,""APOST"",$E(X,1,30),DA)="""""
^DD(8925.1,.14,1,1,2)="K ^TIU(8925.1,""APOST"",$E(X,1,30),DA)"
^DD(8925.1,.14,1,1,"%D",0)="^^3^3^2970227^"
^DD(8925.1,.14,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference by Posting Indicator will help to"
^DD(8925.1,.14,1,1,"%D",2,0)="identify which Document Classes are associated with each of the currently"
^DD(8925.1,.14,1,1,"%D",3,0)="supported Posting Types."
^DD(8925.1,.14,1,1,"DT")="2970227"
^DD(8925.1,.14,3)="Please choose an indicator corresponding to the Posting Type"
^DD(8925.1,.14,21,0)="^^2^2^2970515^"
^DD(8925.1,.14,21,1,0)="This field is used to help identify indicators of the Patient Posting Type"
^DD(8925.1,.14,21,2,0)="to which the Document Definition should be ascribed."
^DD(8925.1,.14,"DT")="2970227"
^DD(8925.1,.15,0)="PRF FLAG^CJ30^^ ; ^S X=$S($L($T(CFLDFLAG^TIUPRFL)):$$CFLDFLAG^TIUPRFL(D0),1:""?"")"
^DD(8925.1,.15,.1)="ASSOCIATED PATIENT RECORD FLAG"
^DD(8925.1,.15,9)="^"
^DD(8925.1,.15,9.01)=""
^DD(8925.1,.15,9.1)="S X=$S($L($T(CFLDFLAG^TIUPRFL)):$$CFLDFLAG^TIUPRFL(D0),1:""?"")"
^DD(8925.1,.15,21,0)="^^14^14^3050405^"
^DD(8925.1,.15,21,1,0)="PRF FLAG applies only to PRF titles. The PRF FLAG of a PRF title is the"
^DD(8925.1,.15,21,2,0)="name of the Patient Record Flag associated with the title.  (Notes cannot"
^DD(8925.1,.15,21,3,0)="be written using a PRF title unless the title is associated with a flag "
^DD(8925.1,.15,21,4,0)="and that flag is assigned to the given patient.)"
^DD(8925.1,.15,21,5,0)=" "
^DD(8925.1,.15,21,6,0)="If the title is not associated with a flag or the associated flag cannot"
^DD(8925.1,.15,21,7,0)="be found, the field has value ""?"".  If the Document Definition is not a"
^DD(8925.1,.15,21,8,0)="title under Document Class PATIENT RECORD FLAG CAT I or PATIENT RECORD"
^DD(8925.1,.15,21,9,0)="FLAG CAT II, the field has value NA for non-applicable."
^DD(8925.1,.15,21,10,0)=" "
^DD(8925.1,.15,21,11,0)="Technical Note: Flags and their associations with titles are stored in "
^DD(8925.1,.15,21,12,0)="file PRF LOCAL FLAG (#26.11) or in file PRF NATIONAL FLAG (#26.15)."
^DD(8925.1,.15,21,13,0)=" "
^DD(8925.1,.15,21,14,0)="PRF FLAG is a BASIC field."
^DD(8925.1,.15,"DT")="3050405"
^DD(8925.1,1,0)="UPLOAD DELIMITED ASCII HEADER^8925.11I^^ITEM;0"
^DD(8925.1,1,21,0)="^^7^7^2970108^^"
^DD(8925.1,1,21,1,0)="This multiple contains the upload record header format of the Document"
^DD(8925.1,1,21,2,0)="Definition, to be used by the upload/router/filer when the preferred"
^DD(8925.1,1,21,3,0)="header format is Delimited string (as opposed to captioned)."
^DD(8925.1,1,21,4,0)=" "
^DD(8925.1,1,21,5,0)="Delimited string is useful only if the site has a way of automating"
^DD(8925.1,1,21,6,0)="creation of upload record headers.  If they are being created by a human"
^DD(8925.1,1,21,7,0)="transcriber, use Captioned Record Headers instead."
^DD(8925.1,1,"DT")="2960729"
^DD(8925.1,1.01,0)="UPLOAD TARGET FILE^*P1'^DIC(^1;1^S DIC(""S"")=""I $D(^DIC(+Y,""""%"""",""""B"""",""""TIU""""))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.1,1.01,3)="Select the DHCP file in which the document will be stored."
^DD(8925.1,1.01,12)="Only files with the ""TIU"" application group may be selected."
^DD(8925.1,1.01,12.1)="S DIC(""S"")=""I $D(^DIC(+Y,""""%"""",""""B"""",""""TIU""""))"""
^DD(8925.1,1.01,21,0)="^^20^20^2970506^"
^DD(8925.1,1.01,21,1,0)="                           -------------"
^DD(8925.1,1.01,21,2,0)="NOTE ON UPLOAD:"
^DD(8925.1,1.01,21,3,0)="Upload fields (Upload Target File, Laygo Allowed, Target Text Field"
^DD(8925.1,1.01,21,4,0)="Subscript, Upload Look-Up Method, Upload Post-Filing Code, Upload Filing"
^DD(8925.1,1.01,21,5,0)="Error Code, and multiple fields Upload Delimited ASCII Header and Upload"
^DD(8925.1,1.01,21,6,0)="Captioned ASCII Header) apply to Document Definitions of Type Class,"
^DD(8925.1,1.01,21,7,0)="Document Class, and Title.  Multiple fields Upload Delimited ASCII Header"
^DD(8925.1,1.01,21,8,0)="and Upload Captioned ASCII Header are heritable AS A GROUP.  Do NOT set"
^DD(8925.1,1.01,21,9,0)="partial information at a lower level; if you set ANY information at a"
^DD(8925.1,1.01,21,10,0)="lower level, it should be COMPLETE.  For information on editing heritable"
^DD(8925.1,1.01,21,11,0)="fields, see Technical field: Edit Template."
^DD(8925.1,1.01,21,12,0)=" "
^DD(8925.1,1.01,21,13,0)="TIUF, the Document Definition Utility does NOT display inherited Upload"
^DD(8925.1,1.01,21,14,0)="information.  To see/edit existing upload information, edit/view at the"
^DD(8925.1,1.01,21,15,0)="level it is set."
^DD(8925.1,1.01,21,16,0)=" "
^DD(8925.1,1.01,21,17,0)="                           --------------"
^DD(8925.1,1.01,21,18,0)="The UPLOAD TARGET FILE is the VA FileMan file in which fixed-field header"
^DD(8925.1,1.01,21,19,0)="information and associated text will be stored.  Only files which include"
^DD(8925.1,1.01,21,20,0)="the TIU Application Group may be selected."
^DD(8925.1,1.01,"DT")="2960729"
^DD(8925.1,1.02,0)="LAYGO ALLOWED^S^0:NO;1:YES;^1;2^Q"
^DD(8925.1,1.02,3)="Please indicate whether new entries may be added to the TARGET FILE."
^DD(8925.1,1.02,21,0)="^^2^2^2970128^"
^DD(8925.1,1.02,21,1,0)="This field indicates whether or not a new entry can be created in"
^DD(8925.1,1.02,21,2,0)="the TARGET FILE for documents defined by this Document Definition."
^DD(8925.1,1.02,"DT")="2970128"
^DD(8925.1,1.03,0)="TARGET TEXT FIELD SUBSCRIPT^F^^1;3^K:$L(X)>15!($L(X)<1) X"
^DD(8925.1,1.03,3)="Select the Word-processing field in the target file."
^DD(8925.1,1.03,21,0)="^^2^2^2970620^^"
^DD(8925.1,1.03,21,1,0)="This is the subscript of the word-processing field in the TARGET FILE, in"
^DD(8925.1,1.03,21,2,0)="which the body of the narrative report will be stored."
^DD(8925.1,1.03,"DT")="2940331"
^DD(8925.1,1.04,0)="BOILERPLATE ON UPLOAD ENABLED^S^0:NO;1:YES;^1;4^Q"
^DD(8925.1,1.04,3)="Indicate whether boilerplate logic will be executed on upload"
^DD(8925.1,1.04,21,0)="^^2^2^2961210^"
^DD(8925.1,1.04,21,1,0)="This field determines whether the filer will attempt to execute"
^DD(8925.1,1.04,21,2,0)="boilerplate logic for uploaded documents.  Not used in version 1."
^DD(8925.1,1.04,"DT")="2951016"
^DD(8925.1,2,0)="UPLOAD CAPTIONED ASCII HEADER^8925.12A^^HEAD;0"
^DD(8925.1,2,21,0)="^^11^11^2970506^^"
^DD(8925.1,2,21,1,0)="This multiple contains the upload record header format of the Document"
^DD(8925.1,2,21,2,0)="Definition, to be used by the upload/router/filer when the preferred"
^DD(8925.1,2,21,3,0)="header format is captioned (as opposed to delimited string)."
^DD(8925.1,2,21,4,0)=" "
^DD(8925.1,2,21,5,0)="Under captioned header format, header items are distinguished from each"
^DD(8925.1,2,21,6,0)="other by captions such as SSN which are entered by the transcriber,"
^DD(8925.1,2,21,7,0)="followed by the data."
^DD(8925.1,2,21,8,0)=" "
^DD(8925.1,2,21,9,0)="Use the captioned header format if documents are transcribed by a human"
^DD(8925.1,2,21,10,0)="transcriber.  Delimited format is useful only if the site has some way of"
^DD(8925.1,2,21,11,0)="automatically generating upload record headers."
^DD(8925.1,2,"DT")="2960729"
^DD(8925.1,3,0)="BOILERPLATE TEXT^8925.13^^DFLT;0"
^DD(8925.1,3,"DT")="2950421"
^DD(8925.1,3.02,0)="OK TO DISTRIBUTE^S^1:YES;0:NO;^3;2^Q"
^DD(8925.1,3.02,3)="Enter 1 for YES if entry should be included when this file is exported with data.  Enter 0 for NO or leave blank if entry is for local use only."
^DD(8925.1,3.02,21,0)="^^13^13^2970224^^"
^DD(8925.1,3.02,21,1,0)="Presently applies only to National Programmers; does not appear on"
^DD(8925.1,3.02,21,2,0)="Manager or Clinician Menus."
^DD(8925.1,3.02,21,3,0)=" "
^DD(8925.1,3.02,21,4,0)="If field is 1 for YES, then entry should be included for export.  If field"
^DD(8925.1,3.02,21,5,0)="has no value or has value 0, entry should not be included for export."
^DD(8925.1,3.02,21,6,0)=" "
^DD(8925.1,3.02,21,7,0)="Since TIU is hierarchical, the entry's behavior depends on entries above"
^DD(8925.1,3.02,21,8,0)="it in the hierarchy.  It is the responsibility of the exporter to make"
^DD(8925.1,3.02,21,9,0)="sure all ancestors which are necessary for the proper behavior of an"
^DD(8925.1,3.02,21,10,0)="exported entry are also exported with it (or are already present at sites"
^DD(8925.1,3.02,21,11,0)="receiving the exported entries)."
^DD(8925.1,3.02,21,12,0)=" "
^DD(8925.1,3.02,21,13,0)="Field is NOT heritable.  BASIC field."
^DD(8925.1,3.02,"DT")="2970128"
^DD(8925.1,3.03,0)="SUPPRESS VISIT SELECTION^S^1:YES;0:NO;^3;3^Q"
^DD(8925.1,3.03,3)="Enter 1 for YES ONLY IF this is an administrative note which creates its own historical visit.  You will NOT receive workload credit for such visits."
^DD(8925.1,3.03,21,0)="^^17^17^2970220^"
^DD(8925.1,3.03,21,1,0)="Applies to entries of Type Class, Document Class, and Title."
^DD(8925.1,3.03,21,2,0)=" "
^DD(8925.1,3.03,21,3,0)="For most documents it is very important that the user entering a document"
^DD(8925.1,3.03,21,4,0)="select the appropriate visit to link the document with.  However, "
^DD(8925.1,3.03,21,5,0)="certain administrative documents for outpatients have no particular visit"
^DD(8925.1,3.03,21,6,0)="that they should be linked with.  For example, a clinician could have a"
^DD(8925.1,3.03,21,7,0)="chance encounter with a patient in the corridor and want to document the"
^DD(8925.1,3.03,21,8,0)="discussion, or a clinician could simply want to remind him/herself of"
^DD(8925.1,3.03,21,9,0)="something for a given patient.  Documents for such purposes can be set to"
^DD(8925.1,3.03,21,10,0)="automatically create their own historical visit when they are entered, so"
^DD(8925.1,3.03,21,11,0)="that the user is not asked to select a visit."
^DD(8925.1,3.03,21,12,0)=" "
^DD(8925.1,3.03,21,13,0)="Warning:  Such documents DO NOT GIVE WORKLOAD CREDIT."
^DD(8925.1,3.03,21,14,0)=" "
^DD(8925.1,3.03,21,15,0)="Heritable.  BASIC field.  If field has no value and there is no value"
^DD(8925.1,3.03,21,16,0)="to inherit, default value is NO.  For information on editing heritable"
^DD(8925.1,3.03,21,17,0)="fields, see Technical Field Edit Template."
^DD(8925.1,3.03,"DT")="2970124"
^DD(8925.1,4,0)="UPLOAD LOOK-UP METHOD^K^^4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4,3)="Please enter the MUMPS code to be executed for record location."
^DD(8925.1,4,9)="@"
^DD(8925.1,4,21,0)="^^12^12^2970107^^"
^DD(8925.1,4,21,1,0)="Sometimes when an entry is uploaded into the target file, a new entry is"
^DD(8925.1,4,21,2,0)="created for it.  However, in other cases such as for Operative Reports, or"
^DD(8925.1,4,21,3,0)="for an addendum, the file entry already exists and must be looked-up and"
^DD(8925.1,4,21,4,0)="edited."
^DD(8925.1,4,21,5,0)=" "
^DD(8925.1,4,21,6,0)="Look-Up Method is the MUMPS code invoked to perform such a look-up on the"
^DD(8925.1,4,21,7,0)="target file.  If a look-up is necessary and this field is blank, a regular"
^DD(8925.1,4,21,8,0)="DIC lookup is performed.  If the regular DIC lookup is not sufficient to"
^DD(8925.1,4,21,9,0)="locate the appropriate entry, this field should contain the lookup.  It"
^DD(8925.1,4,21,10,0)="should expect any look-up special variables named in the header fields as"
^DD(8925.1,4,21,11,0)="input variables, and should return the variable Y in DIC-compatible format"
^DD(8925.1,4,21,12,0)="(i.e., IEN^EXTERNAL VALUE[^1])."
^DD(8925.1,4,"DT")="2960729"
^DD(8925.1,4.1,0)="COMMIT ACTION^K^^4.1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.1,3)="This is Standard MUMPS code."
^DD(8925.1,4.1,9)="@"
^DD(8925.1,4.1,21,0)="^^3^3^2980122^"
^DD(8925.1,4.1,21,1,0)="This M-Code is executed when the TIU document is ""committed"" to the"
^DD(8925.1,4.1,21,2,0)="database (i.e., when the document is saved, and prior to release,"
^DD(8925.1,4.1,21,3,0)="verification, or signature).  Heritable. TECHNICAL field."
^DD(8925.1,4.1,"DT")="2971126"
^DD(8925.1,4.2,0)="RELEASE ACTION^K^^4.2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.2,3)="This is Standard MUMPS code."
^DD(8925.1,4.2,9)="@"
^DD(8925.1,4.2,21,0)="^^2^2^2980126^^"
^DD(8925.1,4.2,21,1,0)="This M-Code is executed upon Release of the document.  Heritable."
^DD(8925.1,4.2,21,2,0)="TECHNICAL field."
^DD(8925.1,4.2,"DT")="2971126"
^DD(8925.1,4.3,0)="VERIFICATION ACTION^K^^4.3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.3,3)="This is Standard MUMPS code."
^DD(8925.1,4.3,9)="@"
^DD(8925.1,4.3,21,0)="^^2^2^2980122^"
^DD(8925.1,4.3,21,1,0)="This M-Code is executed upon Verification of the document.  Heritable."
^DD(8925.1,4.3,21,2,0)="TECHNICAL field."
^DD(8925.1,4.3,"DT")="2971126"
^DD(8925.1,4.4,0)="DELETE ACTION^K^^4.4;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.4,3)="This is Standard MUMPS code."
^DD(8925.1,4.4,9)="@"
^DD(8925.1,4.4,21,0)="^^2^2^2980122^"
^DD(8925.1,4.4,21,1,0)="This M-Code is executed upon Deletion of the document.  Heritable."
^DD(8925.1,4.4,21,2,0)="TECHNICAL field."
^DD(8925.1,4.4,"DT")="2971126"
^DD(8925.1,4.45,0)="PACKAGE REASSIGNMENT ACTION^K^^4.45;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.45,3)="This is Standard MUMPS code."
^DD(8925.1,4.45,9)="@"
^DD(8925.1,4.45,21,0)="^^2^2^2980122^"
^DD(8925.1,4.45,21,1,0)="This M-Code is executed when a document with a link to a client"
^DD(8925.1,4.45,21,2,0)="application is Reassigned.  Heritable.  TECHNICAL field."
^DD(8925.1,4.45,"DT")="2971202"
^DD(8925.1,4.5,0)="UPLOAD POST-FILING CODE^K^^4.5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.5,3)="This is Standard MUMPS code."
^DD(8925.1,4.5,9)="@"
^DD(8925.1,4.5,21,0)="^^4^4^2970522^"
^DD(8925.1,4.5,21,1,0)="This field specifies code to be executed following the successful filing"
^DD(8925.1,4.5,21,2,0)="of an uploaded record. It may be used to send bulletins or alerts,"
^DD(8925.1,4.5,21,3,0)="evaluate expected signers/cosigners, trigger events, update statuses, or"
^DD(8925.1,4.5,21,4,0)="whatever the designer of the application deems appropriate."
^DD(8925.1,4.5,"DT")="2960729"
^DD(8925.1,4.6,0)="ENTRY ACTION^KX^^4.6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.6,3)="This is Standard MUMPS code."
^DD(8925.1,4.6,9)="@"
^DD(8925.1,4.6,21,0)="^^3^3^2980126^^"
^DD(8925.1,4.6,21,1,0)="This M-Code is executed during the Entry/Editing of a document, after"
^DD(8925.1,4.6,21,2,0)="selection of the Title, and prior to selection of the Patient. It may be"
^DD(8925.1,4.6,21,3,0)="used to set up environmental variables, etc.  Heritable.  TECHNICAL field."
^DD(8925.1,4.6,"DT")="2961022"
^DD(8925.1,4.7,0)="EXIT ACTION^KX^^4.7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.7,3)="This is Standard MUMPS code."
^DD(8925.1,4.7,9)="@"
^DD(8925.1,4.7,21,0)="^^3^3^2980126^^"
^DD(8925.1,4.7,21,1,0)="This M-Code is executed just prior to Exit from the entry/edit process"
^DD(8925.1,4.7,21,2,0)="for a document.  It may be used to send alerts or bulletins, clean up"
^DD(8925.1,4.7,21,3,0)="temporary global variables, etc.  Heritable.  TECHNICAL field."
^DD(8925.1,4.7,"DT")="2961022"
^DD(8925.1,4.8,0)="UPLOAD FILING ERROR CODE^K^^4.8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.8,.1)="UPLOAD FILING ERROR RESOLUTION CODE"
^DD(8925.1,4.8,3)="This is Standard MUMPS code."
^DD(8925.1,4.8,9)="@"
^DD(8925.1,4.8,21,0)="^^6^6^2970106^"
^DD(8925.1,4.8,21,1,0)="This MUMPS-type field specifies the code to be executed when the user"
^DD(8925.1,4.8,21,2,0)="attempts to resolve a filing error.  Filing Errors may be resolved either"
^DD(8925.1,4.8,21,3,0)="by responding to a Filing Error Alert or through the option to Review"
^DD(8925.1,4.8,21,4,0)="Upload Events.  Typically, the code will offer the user an opportunity to"
^DD(8925.1,4.8,21,5,0)="look up online information necessary to resolve the error (e.g.,"
^DD(8925.1,4.8,21,6,0)="demographic, or case-related information)."
^DD(8925.1,4.8,"DT")="2960729"
^DD(8925.1,4.9,0)="POST-SIGNATURE CODE^K^^4.9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,4.9,3)="This is Standard MUMPS code."
^DD(8925.1,4.9,9)="@"
^DD(8925.1,4.9,21,0)="^^2^2^2980126^^"
^DD(8925.1,4.9,21,1,0)="This M-Code is executed following Signature (or Cosignature) of a TIU"
^DD(8925.1,4.9,21,2,0)="document.  Heritable.  TECHNICAL field."
^DD(8925.1,4.9,"DT")="2971001"
^DD(8925.1,5,0)="EDIT TEMPLATE^FX^^5;E1,245^K:$L(X)>60!($L(X)<2) X"
^DD(8925.1,5,3)="Enter the name of the Input Template for documents defined by this entry."
^DD(8925.1,5,4)="D HELP1^TIUFXHLX(5)"
^DD(8925.1,5,9)="@"
^DD(8925.1,5,21,0)="^^19^19^2980126^^"
^DD(8925.1,5,21,1,0)="Applies to Classes, Document Classes, Titles.  This is the Input Template"
^DD(8925.1,5,21,2,0)="for Entering/Editing documents defined by this entry.  Template"
^DD(8925.1,5,21,3,0)="includes fixed field information such as Patient, etc.  Enter Edit"
^DD(8925.1,5,21,4,0)="Template in Format [TEMPLATE NAME], or as a ""field-string"" (e.g.,"
^DD(8925.1,5,21,5,0)=".01;1;3;5).  Heritable.  TECHNICAL field."
^DD(8925.1,5,21,6,0)=" "
^DD(8925.1,5,21,7,0)="NOTE on editing heritable fields:"
^DD(8925.1,5,21,8,0)=" "
^DD(8925.1,5,21,9,0)="When editing heritable fields, the user is presented with the EFFECTIVE"
^DD(8925.1,5,21,10,0)="value of the field as the default (e.g. NO//).  This is the same as the"
^DD(8925.1,5,21,11,0)="value shown in the display and is the field's own value if it has one, the"
^DD(8925.1,5,21,12,0)="inherited value if the field does not have its own value, or the default"
^DD(8925.1,5,21,13,0)="for the field if the field has neither its own nor an inherited value. If"
^DD(8925.1,5,21,14,0)="the user accepts this default by pressing return, the value is made"
^DD(8925.1,5,21,15,0)="explicit, i.e., entered into the field.  If a user does NOT want to make"
^DD(8925.1,5,21,16,0)="the value explicit, the user should enter @, which leaves a blank field"
^DD(8925.1,5,21,17,0)="blank.  If the user want to delete an explicit value, the user should"
^DD(8925.1,5,21,18,0)="enter @, which deletes the field value, leaving TIU to use the effective"
^DD(8925.1,5,21,19,0)="value for the field."
^DD(8925.1,5,"DT")="2961022"
^DD(8925.1,6,0)="PRINT METHOD^KX^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,6,3)="Please enter the MUMPS code to be executed to print a record."
^DD(8925.1,6,4)="D HELP1^TIUFXHLX(6)"
^DD(8925.1,6,9)="@"
^DD(8925.1,6,21,0)="^^5^5^2980126^^"
^DD(8925.1,6,21,1,0)="Applies to Types Class, Document Class, Title.  This M-Code is executed"
^DD(8925.1,6,21,2,0)="when a document is Printed from the TIU List Manager screen (as opposed to"
^DD(8925.1,6,21,3,0)="a separate print option which may have its own code.) Heritable. TECHNICAL"
^DD(8925.1,6,21,4,0)="field.  For more information on editing heritable fields, see Technical"
^DD(8925.1,6,21,5,0)="field Edit Template."
^DD(8925.1,6,"DT")="2961022"
^DD(8925.1,6.1,0)="PRINT FORM HEADER^FX^^6.1;1^K:$L(X)>40!($L(X)<3) X"
^DD(8925.1,6.1,3)="Answer must be 3-40 characters in length."
^DD(8925.1,6.1,4)="D HELP1^TIUFXHLX(6.1)"
^DD(8925.1,6.1,21,0)="^^12^12^2970108^^"
^DD(8925.1,6.1,21,1,0)="For basic information on Print Form Header see Technical field Allow"
^DD(8925.1,6.1,21,2,0)="Custom Form Headers."
^DD(8925.1,6.1,21,3,0)=" "
^DD(8925.1,6.1,21,4,0)="The Print Form Header is the official medical record title of the document"
^DD(8925.1,6.1,21,5,0)="which has been approved by the Medical Record Committee based on national"
^DD(8925.1,6.1,21,6,0)="guidelines."
^DD(8925.1,6.1,21,7,0)="  "
^DD(8925.1,6.1,21,8,0)="Examples:  Progress Notes, Physical Examination, History - Part 1, etc."
^DD(8925.1,6.1,21,9,0)=" "
^DD(8925.1,6.1,21,10,0)="This field is heritable with lower level values overriding higher ones AS"
^DD(8925.1,6.1,21,11,0)="LONG AS the field is applicable.  See Allow Custom Form Headers.  Print"
^DD(8925.1,6.1,21,12,0)="Form Header is a TECHNICAL field."
^DD(8925.1,6.1,23,0)="^^6^6^2970108^^^^"
^DD(8925.1,6.1,23,1,0)="The narrative stored in this field will display as the form header of a"
^DD(8925.1,6.1,23,2,0)="document. If entered at a CLASS level such as FORMS, all forms documents"
^DD(8925.1,6.1,23,3,0)="will display entered header as the form header of the document.  If"
^DD(8925.1,6.1,23,4,0)="the free text is entered at a lower level (i.e., TITLE), this form header"
^DD(8925.1,6.1,23,5,0)="will override the one entered at the higher level and will be displayed on"
^DD(8925.1,6.1,23,6,0)="the form."
^DD(8925.1,6.1,"DT")="2961022"
^DD(8925.1,6.12,0)="PRINT FORM NUMBER^FX^^6.1;2^K:$L(X)>20!($L(X)<3) X"
^DD(8925.1,6.12,3)="Answer must be 3-20 characters in length."
^DD(8925.1,6.12,4)="D HELP1^TIUFXHLX(6.12)"
^DD(8925.1,6.12,21,0)="^^13^13^2970106^"
^DD(8925.1,6.12,21,1,0)="For basic information on Print Form Number see Technical field Allow"
^DD(8925.1,6.12,21,2,0)="Custom Form Headers."
^DD(8925.1,6.12,21,3,0)=" "
^DD(8925.1,6.12,21,4,0)="The Print Form Number is the official medical record form number of the"
^DD(8925.1,6.12,21,5,0)="document which has been approved by the Medical Record Committee based"
^DD(8925.1,6.12,21,6,0)="on national guidelines."
^DD(8925.1,6.12,21,7,0)=" "
^DD(8925.1,6.12,21,8,0)="Example:  Progress Note - Vice SF 509, Consult - SF 513, Physicial"
^DD(8925.1,6.12,21,9,0)="Examination - SF 506."
^DD(8925.1,6.12,21,10,0)=" "
^DD(8925.1,6.12,21,11,0)="Field is heritable with lower level values overriding higher ones AS LONG"
^DD(8925.1,6.12,21,12,0)="AS the field is applicable.  See field Allow Custom Form Headers.  Print"
^DD(8925.1,6.12,21,13,0)="Form Header is a TECHNICAL field."
^DD(8925.1,6.12,23,0)="^^6^6^2970106^^^^"
^DD(8925.1,6.12,23,1,0)="The free text stored in this field will be displayed as the form number of"
^DD(8925.1,6.12,23,2,0)="a document.  If entered at a CLASS level such as Forms, all Forms"
^DD(8925.1,6.12,23,3,0)="documents will display the entered value as the form number of the"
^DD(8925.1,6.12,23,4,0)="document.  If the free text is entered at a lower level (i.e., TITLE),"
^DD(8925.1,6.12,23,5,0)="this value will override the one entered at the higher level and will be"
^DD(8925.1,6.12,23,6,0)="displayed on the form."
^DD(8925.1,6.12,"DT")="2961022"
^DD(8925.1,6.13,0)="PRINT GROUP^NJ2,0X^^6.1;3^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.1,6.13,3)="Type a Number between 1 and 10, 0 Decimal Digits.  Enter ?? for help."
^DD(8925.1,6.13,4)="D HELP1^TIUFXHLX(6.13)"
^DD(8925.1,6.13,21,0)="^^19^19^2970106^"
^DD(8925.1,6.13,21,1,0)="For basic information on Print Group see Technical field Allow Custom Form"
^DD(8925.1,6.13,21,2,0)="Headers."
^DD(8925.1,6.13,21,3,0)=" "
^DD(8925.1,6.13,21,4,0)="Print Group is an integer number which serves to group by print form"
^DD(8925.1,6.13,21,5,0)="headers/numbers related documents that share a common print method; e.g.,"
^DD(8925.1,6.13,21,6,0)="Progress Notes, H&P's, and other documents may share a common print"
^DD(8925.1,6.13,21,7,0)="method, but have differing form headers/numbers and should each print in"
^DD(8925.1,6.13,21,8,0)="their own, separate collation.  Specifying a common print group for"
^DD(8925.1,6.13,21,9,0)="documents with the same headers/numbers (for example, Progress Notes have"
^DD(8925.1,6.13,21,10,0)="Print Group 2, H&P's might have Print Group 7) causes such documents"
^DD(8925.1,6.13,21,11,0)="from each print group to collate together when a mixed print is called"
^DD(8925.1,6.13,21,12,0)="for."
^DD(8925.1,6.13,21,13,0)=" "
^DD(8925.1,6.13,21,14,0)="Since documents collate first by print method, then by print group, print"
^DD(8925.1,6.13,21,15,0)="group is not necessary unless documents share a common print method."
^DD(8925.1,6.13,21,16,0)=" "
^DD(8925.1,6.13,21,17,0)="Print Group is heritable with lower level values overriding higher ones AS"
^DD(8925.1,6.13,21,18,0)="LONG AS the field is applicable.  See Allow Custom Form Headers.  Print"
^DD(8925.1,6.13,21,19,0)="Group is a TECHNICAL field."
^DD(8925.1,6.13,"DT")="2961022"
^DD(8925.1,6.14,0)="ALLOW CUSTOM FORM HEADERS^SX^1:YES;0:NO;^6.1;4^Q"
^DD(8925.1,6.14,.1)="ALLOW CUSTOM FORM HEADERS/NUMBERS AT LOWER LEVELS"
^DD(8925.1,6.14,3)="May be set for Types CL and DC only.  Enter 1 for YES if descendent Titles can have individual (Custom) Form Headers/Numbers within their Document Class.  Otherwise enter 0."
^DD(8925.1,6.14,4)="D CUSTOM^TIUFXHLX"
^DD(8925.1,6.14,21,0)="^^69^69^2980122^"
^DD(8925.1,6.14,21,1,0)="Allow Custom Form Headers may be set for entries of Type Class or Document"
^DD(8925.1,6.14,21,2,0)="Class and affects DESCENDANTS of the entry for which it is set."
^DD(8925.1,6.14,21,3,0)=" "
^DD(8925.1,6.14,21,4,0)="Information on Form Headers, Form Numbers, Print Group, and Allow Custom"
^DD(8925.1,6.14,21,5,0)="Form Headers:"
^DD(8925.1,6.14,21,6,0)=" "
^DD(8925.1,6.14,21,7,0)="Some clinical documents use Forms with Form Headers and Form Numbers, for"
^DD(8925.1,6.14,21,8,0)="example, Progress Note Forms have Header 'Progress Notes' and Number 'Vice"
^DD(8925.1,6.14,21,9,0)="SF 509.'"
^DD(8925.1,6.14,21,10,0)=" "
^DD(8925.1,6.14,21,11,0)="The Owner of a Document Definition must decide whether all documents"
^DD(8925.1,6.14,21,12,0)="descending from the entry will have the SAME Header/Number, or whether to"
^DD(8925.1,6.14,21,13,0)="allow CUSTOM (varying) Headers/Numbers at lower levels."
^DD(8925.1,6.14,21,14,0)=" "
^DD(8925.1,6.14,21,15,0)="Allow Custom Headers holds the decision: If the field has value 0 for NO,"
^DD(8925.1,6.14,21,16,0)="then ALL descendant documents use a COMMON Header/Number (or perhaps they"
^DD(8925.1,6.14,21,17,0)="all use NO Header/Number); they also collate together in printouts."
^DD(8925.1,6.14,21,18,0)=" "
^DD(8925.1,6.14,21,19,0)="For example, Class Progress Notes does NOT Allow Custom Form Headers. This"
^DD(8925.1,6.14,21,20,0)="means that ALL Progress Note Titles have the same header and the same form"
^DD(8925.1,6.14,21,21,0)="number.  For Class Progress Notes, Field Print Form Header holds the"
^DD(8925.1,6.14,21,22,0)="header 'Progress Notes', Field Print Form Number holds Form Number 'Vice"
^DD(8925.1,6.14,21,23,0)="SF 509', and Field Print Group holds '2'.  Since Class Progress Notes does"
^DD(8925.1,6.14,21,24,0)="not Allow Custom Form Headers,  these field values apply for ALL Progress"
^DD(8925.1,6.14,21,25,0)="Note Titles.  That is, all Progress Notes have header 'Progress Notes',"
^DD(8925.1,6.14,21,26,0)="Form Number 'Vice SF 509', and collate together in printouts."
^DD(8925.1,6.14,21,27,0)=" "
^DD(8925.1,6.14,21,28,0)="Field Allow Custom Field Headers also determines whether or not related"
^DD(8925.1,6.14,21,29,0)="Fields Print Form Header, Print Form Number, Print Group, (and even Allow"
^DD(8925.1,6.14,21,30,0)="Custom Field Headers) are applicable at lower levels.  If an entry at a"
^DD(8925.1,6.14,21,31,0)="particular level DOES allow Custom Form Headers, then these related fields"
^DD(8925.1,6.14,21,32,0)="DO APPLY to descendants at the next lower level.  If an entry at a"
^DD(8925.1,6.14,21,33,0)="particular level DOES NOT allow Custom Form Headers, then ALL LOWER LEVELS"
^DD(8925.1,6.14,21,34,0)="inherit the the prohibition, and the related fields DO NOT APPLY at ANY"
^DD(8925.1,6.14,21,35,0)="lower levels."
^DD(8925.1,6.14,21,36,0)="  "
^DD(8925.1,6.14,21,37,0)="Example: Since Class Progress Notes does NOT Allow Custom Form Headers,"
^DD(8925.1,6.14,21,38,0)="fields Print Form Header, Print Form Number, Print Group, and Allow Custom"
^DD(8925.1,6.14,21,39,0)="Field Headers DO NOT APPLY to Document Classes or Titles under Progress"
^DD(8925.1,6.14,21,40,0)="Notes.  This means that Document Definitions for documents requiring"
^DD(8925.1,6.14,21,41,0)="different Form Headers/Numbers must be placed under a separate line of"
^DD(8925.1,6.14,21,42,0)="descent in the hierarchy; they cannot be under Progress Notes."
^DD(8925.1,6.14,21,43,0)=" "
^DD(8925.1,6.14,21,44,0)="Example: Class Clinical Documents, the Mother of all Document Definitions,"
^DD(8925.1,6.14,21,45,0)="does not want to REQUIRE all Document Definitions under it to use one"
^DD(8925.1,6.14,21,46,0)="common Header.  So Clinical Documents DOES Allow Custom Form Headers."
^DD(8925.1,6.14,21,47,0)="Classes/Document Classes UNDER CLinical Documents can decide for"
^DD(8925.1,6.14,21,48,0)="themselves whether or not to Allow Custom Headers for their own Items."
^DD(8925.1,6.14,21,49,0)=" "
^DD(8925.1,6.14,21,50,0)="Example: Class DISCHARGE SUMMARY has only one Form Header and Number which"
^DD(8925.1,6.14,21,51,0)="is used by all Discharge Summary documents. So Class Discharge Summary"
^DD(8925.1,6.14,21,52,0)="does NOT Allow Custom Headers."
^DD(8925.1,6.14,21,53,0)=" "
^DD(8925.1,6.14,21,54,0)="Example: Class FORMS might contain miscellaneous documents, each using"
^DD(8925.1,6.14,21,55,0)="a different Form with its own Form Header and Form Number.  So Class Forms"
^DD(8925.1,6.14,21,56,0)="would Allow Custom Headers."
^DD(8925.1,6.14,21,57,0)=" "
^DD(8925.1,6.14,21,58,0)="Field Allow Custom Form Headers may be set for Document Definitions of"
^DD(8925.1,6.14,21,59,0)="Type Class or Document Class only, and affects the DESCENDANTS of the"
^DD(8925.1,6.14,21,60,0)="entry for which it is set."
^DD(8925.1,6.14,21,61,0)=" "
^DD(8925.1,6.14,21,62,0)="If a DOCUMENT CLASS Allows Custom Form Headers, then TIUF, the Document"
^DD(8925.1,6.14,21,63,0)="Definition Utility, does not permit a descendant Title to be activated"
^DD(8925.1,6.14,21,64,0)="unless fields Print Form Header, Print Form Number, and Print Group have a"
^DD(8925.1,6.14,21,65,0)="value (of their own or inherited).  If NO Header, or Number is desired,"
^DD(8925.1,6.14,21,66,0)="enter 'NONE'. If NO Print Group is desired, enter '0'."
^DD(8925.1,6.14,21,67,0)=" "
^DD(8925.1,6.14,21,68,0)="For information on editing heritable fields, see Technical field Edit"
^DD(8925.1,6.14,21,69,0)="Template."
^DD(8925.1,6.14,"DT")="2970128"
^DD(8925.1,6.5,0)="ON BROWSE EVENT^K^^6.5;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,6.5,3)="This is Standard MUMPS code."
^DD(8925.1,6.5,9)="@"
^DD(8925.1,6.5,21,0)="^^2^2^3010215^"
^DD(8925.1,6.5,21,1,0)="This is MUMPS code which is invoked on browsing a document to fetch data"
^DD(8925.1,6.5,21,2,0)="from the Requesting Package that will be included in the display."
^DD(8925.1,6.5,"DT")="3010215"
^DD(8925.1,6.51,0)="ON RETRACT EVENT^K^^6.51;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,6.51,3)="This is Standard MUMPS code."
^DD(8925.1,6.51,9)="@"
^DD(8925.1,6.51,21,0)="^^2^2^3010301^"
^DD(8925.1,6.51,21,1,0)="This is MUMPS code which is invoked on retraction of a document to perform"
^DD(8925.1,6.51,21,2,0)="any processing task that the Requesting Package may require."
^DD(8925.1,6.51,"DT")="3010301"
^DD(8925.1,7,0)="VISIT LINKAGE METHOD^KX^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,7,3)="Please enter the MUMPS code to be executed to establish Visit Linkage."
^DD(8925.1,7,4)="D HELP1^TIUFXHLX(7)"
^DD(8925.1,7,9)="@"
^DD(8925.1,7,21,0)="^^6^6^2980122^"
^DD(8925.1,7,21,1,0)="Applies to Types Class, Document Class, Title.  This M-Code is executed to"
^DD(8925.1,7,21,2,0)="establish Visit Linkage, usually displaying appropriate visits and"
^DD(8925.1,7,21,3,0)="prompting the user to select the correct one."
^DD(8925.1,7,21,4,0)=" "
^DD(8925.1,7,21,5,0)="Heritable.  TECHNICAL Field.  For information on editing heritable fields,"
^DD(8925.1,7,21,6,0)="see Technical Field Edit Template."
^DD(8925.1,7,"DT")="2961022"
^DD(8925.1,8,0)="VALIDATION METHOD^KX^^8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,8,3)="Please enter the MUMPS code to be executed to validate the selection of patient and Visit/Admission."
^DD(8925.1,8,4)="D HELP1^TIUFXHLX(8)"
^DD(8925.1,8,9)="@"
^DD(8925.1,8,21,0)="^^7^7^2980126^^"
^DD(8925.1,8,21,1,0)="Applies to Types Class, Document Class, Title.  This is the M-Code to be"
^DD(8925.1,8,21,2,0)="invoked when Validating the visit and other fixed field information on a"
^DD(8925.1,8,21,3,0)="record during entry/edit.  User is asked to OK or to correct the"
^DD(8925.1,8,21,4,0)="information."
^DD(8925.1,8,21,5,0)=" "
^DD(8925.1,8,21,6,0)="Heritable.  TECHNICAL field.  For information on editing heritable fields,"
^DD(8925.1,8,21,7,0)="see Technical field Edit Template."
^DD(8925.1,8,"DT")="2961022"
^DD(8925.1,9,0)="OBJECT METHOD^KX^^9;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.1,9,3)="This is Standard MUMPS code."
^DD(8925.1,9,9)="@"
^DD(8925.1,9,21,0)="^^3^3^2980122^"
^DD(8925.1,9,21,1,0)="Applies to Objects.  This M-Code is invoked when a document is entered"
^DD(8925.1,9,21,2,0)="whose boilerplate text contains the object.  Extracted data are inserted"
^DD(8925.1,9,21,3,0)="into document text.  Author then edits/adds to text.  TECHNICAL field."
^DD(8925.1,9,"DT")="2961022"
^DD(8925.1,10,0)="ITEM^8925.14P^^10;0"
^DD(8925.1,11,0)="STAT AUTO PRINT EVENT^8925.111SA^^11;0"
^DD(8925.1,11,21,0)="^^35^35^2970220^"
^DD(8925.1,11,21,1,0)="This parameter applies only to stat documents."
^DD(8925.1,11,21,2,0)=" "
^DD(8925.1,11,21,3,0)="This parameter determines at what stage(s) a document should be"
^DD(8925.1,11,21,4,0)="automatically printed for chart, either singly when document is ready, or"
^DD(8925.1,11,21,5,0)="in batch mode."
^DD(8925.1,11,21,6,0)=" "
^DD(8925.1,11,21,7,0)="Some documents will need to be printed for chart only when they are"
^DD(8925.1,11,21,8,0)="complete, ie have obtained all expected signatures and cosignatures."
^DD(8925.1,11,21,9,0)="Others should perhaps be printed for chart at an earlier stage, allowing"
^DD(8925.1,11,21,10,0)="earlier chart access, and then be reprinted when complete. Documents may"
^DD(8925.1,11,21,11,0)="also need to be reprinted AFTER completion for certain events such as"
^DD(8925.1,11,21,12,0)="amendment."
^DD(8925.1,11,21,13,0)=" "
^DD(8925.1,11,21,14,0)="Any event which should trigger auto printing of the document should be"
^DD(8925.1,11,21,15,0)="entered as an auto print event."
^DD(8925.1,11,21,16,0)=" "
^DD(8925.1,11,21,17,0)="- SIGNED means firstline signature, as opposed to secondline cosignature."
^DD(8925.1,11,21,18,0)="- COSIGNED, OPTIONAL, INCOMPLETE means when an incomplete document obtains"
^DD(8925.1,11,21,19,0)="an optional cosignature."
^DD(8925.1,11,21,20,0)="- COSIGNED, OPTIONAL, COMPLETED means when a previously completed"
^DD(8925.1,11,21,21,0)="document obtains an optional cosignature, namely, a walkup."
^DD(8925.1,11,21,22,0)="- COMPLETED means when some event occurs that completes the document, for"
^DD(8925.1,11,21,23,0)="example the document obtains its last expected optional cosignature."
^DD(8925.1,11,21,24,0)=" "
^DD(8925.1,11,21,25,0)="If one event occurs to a document and corresponds to two selected print"
^DD(8925.1,11,21,26,0)="events (such as COMPLETED and COSIGNED OPTIONAL INCOMPLETE), the document"
^DD(8925.1,11,21,27,0)="will only print once."
^DD(8925.1,11,21,28,0)=" "
^DD(8925.1,11,21,29,0)="If parameter is not entered and Document Definition has no ancestor to"
^DD(8925.1,11,21,30,0)="inherit from, parameter assumes default value N for NONE.  If parameter is"
^DD(8925.1,11,21,31,0)="not entered and Document Definition has a parent to inherit from, then"
^DD(8925.1,11,21,32,0)="parameter assumes value (assumed or explicit) of parent print events. If"
^DD(8925.1,11,21,33,0)="parameter is non applicable because Document Definition does not allow"
^DD(8925.1,11,21,34,0)="stat documents, or because Document Definition does not allow auto"
^DD(8925.1,11,21,35,0)="printing, enter N for NONE."
^DD(8925.1,11,"DT")="2940621"
^DD(8925.1,12,0)="ROUTINE AUTO PRINT EVENT^8925.112SA^^12;0"
^DD(8925.1,12,21,0)="^^5^5^2970220^"
^DD(8925.1,12,21,1,0)="This parameter applies to routine (non-stat) documents only. Documents"
^DD(8925.1,12,21,2,0)="whose Document Definitions do not allow stat documents are considered"
^DD(8925.1,12,21,3,0)="routine."
^DD(8925.1,12,21,4,0)=" "
^DD(8925.1,12,21,5,0)="See parameter STAT AUTO PRINT EVENT for description."
^DD(8925.1,13,0)="PROCESSING STEPS^8925.113P^^13;0"
^DD(8925.1,13,21,0)="^^3^3^2950216^^"
^DD(8925.1,13,21,1,0)="This sub-file contains the optional and required steps for processing any "
^DD(8925.1,13,21,2,0)="document, along with the states (e.g., unverified -> unsigned) that a given"
^DD(8925.1,13,21,3,0)="step (e.g., verification) moves the document between."
^DD(8925.1,14,0)="DIALOG^8925.114^^DIALOG;0"
^DD(8925.1,14,21,0)="^^2^2^2950606^"
^DD(8925.1,14,21,1,0)="This sub-file contains the data necessary to handle server-based definition "
^DD(8925.1,14,21,2,0)="for fixed-field data capture in TIU."
^DD(8925.1,99,0)="TIMESTAMP^F^^99;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<1) X"
^DD(8925.1,99,1,0)="^.1"
^DD(8925.1,99,1,1,0)="8925.1^AM^MUMPS"
^DD(8925.1,99,1,1,1)="D SET^TIUDD"
^DD(8925.1,99,1,1,2)="D KILL^TIUDD"
^DD(8925.1,99,1,1,"%D",0)="^^2^2^2950911^^^"
^DD(8925.1,99,1,1,"%D",1,0)="This cross-reference invokes menu compilation in ^XUTL(""XQORM"","
^DD(8925.1,99,1,1,"%D",2,0)="DA;TIU(8925.1, when the TIMESTAMP field is modified."
^DD(8925.1,99,1,1,"DT")="2940720"
^DD(8925.1,99,3)="Answer must be 1-15 characters in length."
^DD(8925.1,99,"DT")="2940720"
^DD(8925.1,1501,0)="VHA ENTERPRISE STANDARD TITLE^*P8926.1'^TIU(8926.1,^15;1^S DIC(""S"")=""I '$$SCREEN^XTID(8926.1,"""""""",Y_"""","""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.1,1501,1,0)="^.1"
^DD(8925.1,1501,1,1,0)="8925.1^ALOINC"
^DD(8925.1,1501,1,1,1)="S ^TIU(8925.1,""ALOINC"",$E(X,1,30),DA)="""""
^DD(8925.1,1501,1,1,2)="K ^TIU(8925.1,""ALOINC"",$E(X,1,30),DA)"
^DD(8925.1,1501,1,1,3)="** DO NOT DELETE **"
^DD(8925.1,1501,1,1,"%D",0)="^^2^2^3070306^"
^DD(8925.1,1501,1,1,"%D",1,0)="This REGULAR FileMan cross-reference will facilitate searching by VHA"
^DD(8925.1,1501,1,1,"%D",2,0)="Enterprise Standard Titles."
^DD(8925.1,1501,1,1,"DT")="3070306"
^DD(8925.1,1501,3)="Please identify the VHA Enterprise Title to which this local title should be mapped."
^DD(8925.1,1501,12)="Only ACTIVE Enterprise Titles may be selected."
^DD(8925.1,1501,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.1,"""""""",Y_"""","""")"""
^DD(8925.1,1501,21,0)="^.001^2^2^3070321^^"
^DD(8925.1,1501,21,1,0)="This reference to the VHA ENTERPRISE STANDARD TITLE FILE provides for the"
^DD(8925.1,1501,21,2,0)="mapping of local titles to the Enterprise Standard Titles."
^DD(8925.1,1501,"DT")="3070321"
^DD(8925.1,1502,0)="MAP ATTEMPTED^D^^15;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.1,1502,3)="Enter the date/time at which mapping was attempted."
^DD(8925.1,1502,21,0)="^^2^2^3060301^"
^DD(8925.1,1502,21,1,0)="This is the date/time at which the user attempted to map the Local Title "
^DD(8925.1,1502,21,2,0)="to a VHA Enterprise Title."
^DD(8925.1,1502,"DT")="3060301"
^DD(8925.1,1503,0)="MAP ATTEMPTED BY^P200'^VA(200,^15;3^Q"
^DD(8925.1,1503,3)="Specify the person who attempted to map the title."
^DD(8925.1,1503,21,0)="^^2^2^3060301^"
^DD(8925.1,1503,21,1,0)="This is the person who attempted to map the Local Title to a VHA "
^DD(8925.1,1503,21,2,0)="Enterprise Title."
^DD(8925.1,1503,"DT")="3060301"
^DD(8925.1,"B","ABBREVIATION",.02)=""
^DD(8925.1,"B","ALLOW CUSTOM FORM HEADERS",6.14)=""
^DD(8925.1,"B","ASSOCIATED PATIENT RECORD FLAG",.15)="1"
^DD(8925.1,"B","BOILERPLATE ON UPLOAD ENABLED",1.04)=""
^DD(8925.1,"B","BOILERPLATE TEXT",3)=""
^DD(8925.1,"B","CLASS OWNER",.06)=""
^DD(8925.1,"B","COMMIT ACTION",4.1)=""
^DD(8925.1,"B","DELETE ACTION",4.4)=""
^DD(8925.1,"B","DIALOG",14)=""
^DD(8925.1,"B","EDIT TEMPLATE",5)=""
^DD(8925.1,"B","ENTRY ACTION",4.6)=""
^DD(8925.1,"B","EXIT ACTION",4.7)=""
^DD(8925.1,"B","HAS BOILERPLATE TEXT",.12)="1"
^DD(8925.1,"B","HAS BOILTXT",.12)=""
^DD(8925.1,"B","IN USE",.08)=""
^DD(8925.1,"B","ITEM",10)=""
^DD(8925.1,"B","LAYGO ALLOWED",1.02)=""
^DD(8925.1,"B","MAP ATTEMPTED",1502)=""
^DD(8925.1,"B","MAP ATTEMPTED BY",1503)=""
^DD(8925.1,"B","NAME",.01)=""
^DD(8925.1,"B","NATIONAL STANDARD",.13)=""
^DD(8925.1,"B","OBJECT METHOD",9)=""
^DD(8925.1,"B","OK TO DISTRIBUTE",3.02)=""
^DD(8925.1,"B","ON BROWSE EVENT",6.5)=""
^DD(8925.1,"B","ON RETRACT EVENT",6.51)=""
^DD(8925.1,"B","ORPHAN",.11)=""
^DD(8925.1,"B","PACKAGE REASSIGNMENT ACTION",4.45)=""
^DD(8925.1,"B","PERSONAL OWNER",.05)=""
^DD(8925.1,"B","POST-SIGNATURE CODE",4.9)=""
^DD(8925.1,"B","POSTING INDICATOR",.14)=""
^DD(8925.1,"B","PRF FLAG",.15)=""
^DD(8925.1,"B","PRINT FORM HEADER",6.1)=""
^DD(8925.1,"B","PRINT FORM NUMBER",6.12)=""
^DD(8925.1,"B","PRINT GROUP",6.13)=""
^DD(8925.1,"B","PRINT METHOD",6)=""
^DD(8925.1,"B","PRINT NAME",.03)=""
^DD(8925.1,"B","PROCESSING STEPS",13)=""
^DD(8925.1,"B","RELEASE ACTION",4.2)=""
^DD(8925.1,"B","ROUTINE AUTO PRINT EVENT",12)=""
^DD(8925.1,"B","SHARED",.1)=""
^DD(8925.1,"B","SHARED COMPONENT",.1)="1"
^DD(8925.1,"B","STAT AUTO PRINT EVENT",11)=""
^DD(8925.1,"B","STATUS",.07)=""
^DD(8925.1,"B","SUPPRESS VISIT SELECTION",3.03)=""
^DD(8925.1,"B","TARGET TEXT FIELD SUBSCRIPT",1.03)=""
^DD(8925.1,"B","TIMESTAMP",99)=""
^DD(8925.1,"B","TYPE",.04)=""
^DD(8925.1,"B","UPLOAD CAPTIONED ASCII HEADER",2)=""
^DD(8925.1,"B","UPLOAD DELIMITED ASCII HEADER",1)=""
^DD(8925.1,"B","UPLOAD FILING ERROR CODE",4.8)=""
^DD(8925.1,"B","UPLOAD LOOK-UP METHOD",4)=""
^DD(8925.1,"B","UPLOAD POST-FILING CODE",4.5)=""
^DD(8925.1,"B","UPLOAD TARGET FILE",1.01)=""
^DD(8925.1,"B","VALIDATION METHOD",8)=""
^DD(8925.1,"B","VERIFICATION ACTION",4.3)=""
^DD(8925.1,"B","VHA ENTERPRISE STANDARD TITLE",1501)=""
^DD(8925.1,"B","VISIT LINKAGE METHOD",7)=""
^DD(8925.1,"GL",0,1,.01)=""
^DD(8925.1,"GL",0,2,.02)=""
^DD(8925.1,"GL",0,3,.03)=""
^DD(8925.1,"GL",0,4,.04)=""
^DD(8925.1,"GL",0,5,.05)=""
^DD(8925.1,"GL",0,6,.06)=""
^DD(8925.1,"GL",0,7,.07)=""
^DD(8925.1,"GL",0,10,.1)=""
^DD(8925.1,"GL",0,13,.13)=""
^DD(8925.1,"GL",0,14,.14)=""
^DD(8925.1,"GL",1,1,1.01)=""
^DD(8925.1,"GL",1,2,1.02)=""
^DD(8925.1,"GL",1,3,1.03)=""
^DD(8925.1,"GL",1,4,1.04)=""
^DD(8925.1,"GL",3,2,3.02)=""
^DD(8925.1,"GL",3,3,3.03)=""
^DD(8925.1,"GL",4,"E1,245",4)=""
^DD(8925.1,"GL",4.1,"E1,245",4.1)=""
^DD(8925.1,"GL",4.2,"E1,245",4.2)=""
^DD(8925.1,"GL",4.3,"E1,245",4.3)=""
^DD(8925.1,"GL",4.4,"E1,245",4.4)=""
^DD(8925.1,"GL",4.45,"E1,245",4.45)=""
^DD(8925.1,"GL",4.5,"E1,245",4.5)=""
^DD(8925.1,"GL",4.6,"E1,245",4.6)=""
^DD(8925.1,"GL",4.7,"E1,245",4.7)=""
^DD(8925.1,"GL",4.8,"E1,245",4.8)=""
^DD(8925.1,"GL",4.9,"E1,245",4.9)=""
^DD(8925.1,"GL",5,"E1,245",5)=""
^DD(8925.1,"GL",6,"E1,245",6)=""
^DD(8925.1,"GL",6.1,1,6.1)=""
^DD(8925.1,"GL",6.1,2,6.12)=""
^DD(8925.1,"GL",6.1,3,6.13)=""
^DD(8925.1,"GL",6.1,4,6.14)=""
^DD(8925.1,"GL",6.5,"E1,245",6.5)=""
^DD(8925.1,"GL",6.51,"E1,245",6.51)=""
^DD(8925.1,"GL",7,"E1,245",7)=""
^DD(8925.1,"GL",8,"E1,245",8)=""
^DD(8925.1,"GL",9,"E1,245",9)=""
^DD(8925.1,"GL",10,0,10)=""
^DD(8925.1,"GL",11,0,11)=""
^DD(8925.1,"GL",12,0,12)=""
^DD(8925.1,"GL",13,0,13)=""
^DD(8925.1,"GL",15,1,1501)=""
^DD(8925.1,"GL",15,2,1502)=""
^DD(8925.1,"GL",15,3,1503)=""
^DD(8925.1,"GL",99,1,99)=""
^DD(8925.1,"GL","DFLT",0,3)=""
^DD(8925.1,"GL","DIALOG",0,14)=""
^DD(8925.1,"GL","HEAD",0,2)=""
^DD(8925.1,"GL","ITEM",0,1)=""
^DD(8925.1,"IX",.01)=""
^DD(8925.1,"IX",.02)=""
^DD(8925.1,"IX",.03)=""
^DD(8925.1,"IX",.04)=""
^DD(8925.1,"IX",.05)=""
^DD(8925.1,"IX",.06)=""
^DD(8925.1,"IX",.07)=""
^DD(8925.1,"IX",.14)=""
^DD(8925.1,"IX",99)=""
^DD(8925.1,"IX",1501)=""
^DD(8925.1,"RQ",.01)=""
^DD(8925.1,"RQ",.04)=""
^DD(8925.1,"SB",8925.11,1)=""
^DD(8925.1,"SB",8925.111,11)=""
^DD(8925.1,"SB",8925.112,12)=""
^DD(8925.1,"SB",8925.113,13)=""
^DD(8925.1,"SB",8925.114,14)=""
^DD(8925.1,"SB",8925.12,2)=""
^DD(8925.1,"SB",8925.13,3)=""
^DD(8925.1,"SB",8925.14,10)=""
^DD(8925.11,0)="UPLOAD DELIMITED ASCII HEADER SUB-FIELD^^1^8"
^DD(8925.11,0,"DT")="2951004"
^DD(8925.11,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(8925.11,0,"IX","B",8925.11,.01)=""
^DD(8925.11,0,"IX","C",8925.11,.02)=""
^DD(8925.11,0,"IX","D",8925.11,.03)=""
^DD(8925.11,0,"IX","E",8925.11,.04)=""
^DD(8925.11,0,"NM","UPLOAD DELIMITED ASCII HEADER")=""
^DD(8925.11,0,"UP")="8925.1"
^DD(8925.11,.01,0)="HEADER PIECE^MNJ2,0X^^0;1^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(8925.11,.01,1,0)="^.1"
^DD(8925.11,.01,1,1,0)="8925.11^B"
^DD(8925.11,.01,1,1,1)="S ^TIU(8925.1,DA(1),""ITEM"",""B"",$E(X,1,30),DA)="""""
^DD(8925.11,.01,1,1,2)="K ^TIU(8925.1,DA(1),""ITEM"",""B"",$E(X,1,30),DA)"
^DD(8925.11,.01,3)="Enter the delimiter-piece for the next header item."
^DD(8925.11,.01,21,0)="^^2^2^2970107^"
^DD(8925.11,.01,21,1,0)="This is the number for this piece (item) of the header.  Start with"
^DD(8925.11,.01,21,2,0)="number 1 for the first piece."
^DD(8925.11,.01,"DT")="2921021"
^DD(8925.11,.02,0)="ITEM NAME^F^^0;2^K:$L(X)>30!($L(X)<2) X"
^DD(8925.11,.02,1,0)="^.1"
^DD(8925.11,.02,1,1,0)="8925.11^C"
^DD(8925.11,.02,1,1,1)="S ^TIU(8925.1,DA(1),""ITEM"",""C"",$E(X,1,30),DA)="""""
^DD(8925.11,.02,1,1,2)="K ^TIU(8925.1,DA(1),""ITEM"",""C"",$E(X,1,30),DA)"
^DD(8925.11,.02,1,1,"%D",0)="^^2^2^2921021^"
^DD(8925.11,.02,1,1,"%D",1,0)="This REGULAR FileMan cross-reference on the ITEM NAME is used in the"
^DD(8925.11,.02,1,1,"%D",2,0)="look-up and edit process."
^DD(8925.11,.02,1,1,"DT")="2920605"
^DD(8925.11,.02,3)="Enter the name of the header item."
^DD(8925.11,.02,21,0)="^^2^2^2970107^"
^DD(8925.11,.02,21,1,0)="This is the name of the item in the ASCII message header.  Item Name is"
^DD(8925.11,.02,21,2,0)="used in help messages for the person dictating a document."
^DD(8925.11,.02,"DT")="2921021"
^DD(8925.11,.03,0)="FIELD NUMBER^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(8925.11,.03,1,0)="^.1"
^DD(8925.11,.03,1,1,0)="8925.11^D"
^DD(8925.11,.03,1,1,1)="S ^TIU(8925.1,DA(1),""ITEM"",""D"",$E(X,1,30),DA)="""""
^DD(8925.11,.03,1,1,2)="K ^TIU(8925.1,DA(1),""ITEM"",""D"",$E(X,1,30),DA)"
^DD(8925.11,.03,1,1,"%D",0)="^^3^3^2921021^"
^DD(8925.11,.03,1,1,"%D",1,0)="This REGULAR FileMan cross-reference by field number is used by the"
^DD(8925.11,.03,1,1,"%D",2,0)="filer/router to identify header-pieces with field numbers in the target"
^DD(8925.11,.03,1,1,"%D",3,0)="file."
^DD(8925.11,.03,1,1,"DT")="2921021"
^DD(8925.11,.03,3)="Enter the FIELD # of the item in the target file."
^DD(8925.11,.03,21,0)="^^2^2^2970107^"
^DD(8925.11,.03,21,1,0)="This is the field number in the target file which corresponds to this"
^DD(8925.11,.03,21,2,0)="header item."
^DD(8925.11,.03,"DT")="2921021"
^DD(8925.11,.04,0)="LOOKUP LOCAL VARIABLE NAME^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?1A1.7E) X"
^DD(8925.11,.04,1,0)="^.1"
^DD(8925.11,.04,1,1,0)="8925.11^E"
^DD(8925.11,.04,1,1,1)="S ^TIU(8925.1,DA(1),""ITEM"",""E"",$E(X,1,30),DA)="""""
^DD(8925.11,.04,1,1,2)="K ^TIU(8925.1,DA(1),""ITEM"",""E"",$E(X,1,30),DA)"
^DD(8925.11,.04,1,1,"%D",0)="^^3^3^2921109^"
^DD(8925.11,.04,1,1,"%D",1,0)="This cross-reference is used by the router/filer to determine which pieces"
^DD(8925.11,.04,1,1,"%D",2,0)="of the header should be set into special variables which may be required by"
^DD(8925.11,.04,1,1,"%D",3,0)="the lookup routine."
^DD(8925.11,.04,1,1,"DT")="2921109"
^DD(8925.11,.04,3)="Enter the required local variable into which this piece will be set."
^DD(8925.11,.04,21,0)="^^11^11^2970107^"
^DD(8925.11,.04,21,1,0)="This field specifies the local variable name into which this piece of the"
^DD(8925.11,.04,21,2,0)="message header will be set.  The local variable is used by the Look-Up"
^DD(8925.11,.04,21,3,0)="Method.  For example, if this piece of the header is the patient social"
^DD(8925.11,.04,21,4,0)="security number, the Lookup Local Variable Name might be TIUSSN.  The"
^DD(8925.11,.04,21,5,0)="social security number as written by the transcriptionist is first"
^DD(8925.11,.04,21,6,0)="transformed by any existing Transform Code, and then set into this"
^DD(8925.11,.04,21,7,0)="variable (e.g. TIUSSN) for use in Look-Up Method code."
^DD(8925.11,.04,21,8,0)=" "
^DD(8925.11,.04,21,9,0)="Lookup Local Variable Name is necessary only if the information in this"
^DD(8925.11,.04,21,10,0)="piece is required in order to look up the appropriate entry in the target"
^DD(8925.11,.04,21,11,0)="file."
^DD(8925.11,.04,"DT")="2921109"
^DD(8925.11,.05,0)="EXAMPLE ENTRY^F^^0;5^K:$L(X)>39!($L(X)<2) X"
^DD(8925.11,.05,3)="Answer must be 2-39 characters in length."
^DD(8925.11,.05,21,0)="^^10^10^2970108^^"
^DD(8925.11,.05,21,1,0)="This field is used to store sample data for this item in the form the"
^DD(8925.11,.05,21,2,0)="transcriptionist is expected to use when transcribing it. For example, if"
^DD(8925.11,.05,21,3,0)="a patient has Social Security Number 555-12-1212, and the transcriptionist"
^DD(8925.11,.05,21,4,0)="is expected to write 555-12-1212, then an Example Entry should have the"
^DD(8925.11,.05,21,5,0)="form 555-12-1212."
^DD(8925.11,.05,21,6,0)=" "
^DD(8925.11,.05,21,7,0)="The Transform Code, if it exists, then transforms the transcribed Social"
^DD(8925.11,.05,21,8,0)="Security Number 555-12-1212 into the appropriate format for the target"
^DD(8925.11,.05,21,9,0)="file before using the Social Security Number to look-up the appropriate"
^DD(8925.11,.05,21,10,0)="target file entry and/or before entering it in the target file."
^DD(8925.11,.05,"DT")="2930224"
^DD(8925.11,.06,0)="CLINICIAN MUST DICTATE^S^1:YES;0:NO;^0;6^Q"
^DD(8925.11,.06,3)="Answer yes if this field needs to be dictated by the clinician"
^DD(8925.11,.06,21,0)="^^5^5^2970108^"
^DD(8925.11,.06,21,1,0)="States whether or not this piece of the header should be dictated by the"
^DD(8925.11,.06,21,2,0)="Clinician.  Will be used by the Clinician Help routine to determine if"
^DD(8925.11,.06,21,3,0)="this field should be shown as data that should be dictated.  (Some pieces"
^DD(8925.11,.06,21,4,0)="can be entered by the transcriber without being dictated, such as the"
^DD(8925.11,.06,21,5,0)="transcriber identification)."
^DD(8925.11,.06,"DT")="2930423"
^DD(8925.11,.07,0)="REQUIRED FIELD?^S^1:YES;0:NO;^0;7^Q"
^DD(8925.11,.07,3)="Please indicate whether the field is required."
^DD(8925.11,.07,21,0)="^^5^5^2970108^"
^DD(8925.11,.07,21,1,0)="This field is used to determine whether a given header piece is required"
^DD(8925.11,.07,21,2,0)="by the application (e.g., Author and Attending Physician may be required"
^DD(8925.11,.07,21,3,0)="for the ongoing processing of a Discharge Summary).  Records lacking"
^DD(8925.11,.07,21,4,0)="required fields WILL be entered if possible into the target file but will"
^DD(8925.11,.07,21,5,0)="generate Missing Field Error Alerts."
^DD(8925.11,.07,"DT")="2951004"
^DD(8925.11,1,0)="TRANSFORM CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.11,1,3)="This is Standard MUMPS code."
^DD(8925.11,1,9)="@"
^DD(8925.11,1,21,0)="^^11^11^2970108^"
^DD(8925.11,1,21,1,0)="This standard MUMPS code transforms the transcribed value of the header"
^DD(8925.11,1,21,2,0)="piece into a format acceptable to FileMan (e.g., patient social security"
^DD(8925.11,1,21,3,0)="number 555-12-1212 must be transformed to 555121212 or to whatever"
^DD(8925.11,1,21,4,0)="(external) format FileMan accepts when a user edits the social security"
^DD(8925.11,1,21,5,0)="number field in the target file)."
^DD(8925.11,1,21,6,0)=" "
^DD(8925.11,1,21,7,0)="Field values are transformed before being set into Special Lookup"
^DD(8925.11,1,21,8,0)="Variables and before being set into Target Text File Fields."
^DD(8925.11,1,21,9,0)=" "
^DD(8925.11,1,21,10,0)="Field is necessary only if transcribed piece is not in the format Fileman"
^DD(8925.11,1,21,11,0)="accepts for the target file."
^DD(8925.11,1,"DT")="2930219"
^DD(8925.11,"B","CLINICIAN MUST DICTATE",.06)=""
^DD(8925.11,"B","EXAMPLE ENTRY",.05)=""
^DD(8925.11,"B","FIELD NUMBER",.03)=""
^DD(8925.11,"B","HEADER PIECE",.01)=""
^DD(8925.11,"B","ITEM NAME",.02)=""
^DD(8925.11,"B","LOOKUP LOCAL VARIABLE NAME",.04)=""
^DD(8925.11,"B","REQUIRED FIELD?",.07)=""
^DD(8925.11,"B","TRANSFORM CODE",1)=""
^DD(8925.11,"GL",0,1,.01)=""
^DD(8925.11,"GL",0,2,.02)=""
^DD(8925.11,"GL",0,3,.03)=""
^DD(8925.11,"GL",0,4,.04)=""
^DD(8925.11,"GL",0,5,.05)=""
^DD(8925.11,"GL",0,6,.06)=""
^DD(8925.11,"GL",0,7,.07)=""
^DD(8925.11,"GL",1,"E1,245",1)=""
^DD(8925.11,"IX",.01)=""
^DD(8925.11,"IX",.02)=""
^DD(8925.11,"IX",.03)=""
^DD(8925.11,"IX",.04)=""
^DD(8925.111,0)="STAT AUTO PRINT EVENT SUB-FIELD^^.01^1"
^DD(8925.111,0,"DT")="2940621"
^DD(8925.111,0,"IX","B",8925.111,.01)=""
^DD(8925.111,0,"NM","STAT AUTO PRINT EVENT")=""
^DD(8925.111,0,"UP")="8925.1"
^DD(8925.111,.01,0)="STAT AUTO PRINT EVENT^MS^N:NONE;T:TRANSCRIBED;R:RELEASED;V:VERIFIED;S:SIGNED;CSR:COSIGNED, REQUIRED;CSOINC:COSIGNED, OPTIONAL, INCOMPLETE;CSOCP:COSIGNED, OPTIONAL, COMPLETED;CP:COMLETED;AD:ADDENDUM ADDED;AM:AMENDED;^0;1^Q"
^DD(8925.111,.01,1,0)="^.1"
^DD(8925.111,.01,1,1,0)="8925.111^B"
^DD(8925.111,.01,1,1,1)="S ^TIU(8925.1,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(8925.111,.01,1,1,2)="K ^TIU(8925.1,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(8925.111,.01,3)="Enter every event which should trigger auto printing of document whenever the event occurs."
^DD(8925.111,.01,"DT")="2941027"
^DD(8925.111,"B","STAT AUTO PRINT EVENT",.01)=""
^DD(8925.111,"GL",0,1,.01)=""
^DD(8925.111,"IX",.01)=""
^DD(8925.112,0)="ROUTINE AUTO PRINT EVENT SUB-FIELD^^.01^1"
^DD(8925.112,0,"DT")="2940621"
^DD(8925.112,0,"IX","B",8925.112,.01)=""
^DD(8925.112,0,"NM","ROUTINE AUTO PRINT EVENT")=""
^DD(8925.112,0,"UP")="8925.1"
^DD(8925.112,.01,0)="ROUTINE AUTO PRINT EVENT^MS^N:NONE;T:TRANSCRIBED;R:RELEASED;V:VERIFIED;S:SIGNED;CSR:COSIGNED, REQUIRED;CSOINC:COSIGNED, OPTIONAL, INCOMPLETE;CP:COMPLETED;CSOCP:CONSIGNED, OPTIONAL, COMPLETED;AD:ADDENDUM ADDED;AM:AMENDED;^0;1^Q"
^DD(8925.112,.01,1,0)="^.1"
^DD(8925.112,.01,1,1,0)="8925.112^B"
^DD(8925.112,.01,1,1,1)="S ^TIU(8925.1,DA(1),12,""B"",$E(X,1,30),DA)="""""
^DD(8925.112,.01,1,1,2)="K ^TIU(8925.1,DA(1),12,""B"",$E(X,1,30),DA)"
^DD(8925.112,.01,3)="Enter an event which should trigger auto printing of routine documents."
^DD(8925.112,.01,"DT")="2940621"
^DD(8925.112,"B","ROUTINE AUTO PRINT EVENT",.01)=""
^DD(8925.112,"GL",0,1,.01)=""
^DD(8925.112,"IX",.01)=""
^DD(8925.113,0)="PROCESSING STEPS SUB-FIELD^^.05^5"
^DD(8925.113,0,"DT")="2950216"
^DD(8925.113,0,"IX","B",8925.113,.01)=""
^DD(8925.113,0,"NM","PROCESSING STEPS")=""
^DD(8925.113,0,"UP")="8925.1"
^DD(8925.113,.01,0)="PROCESSING STEP^MP8930.8'^USR(8930.8,^0;1^Q"
^DD(8925.113,.01,1,0)="^.1"
^DD(8925.113,.01,1,1,0)="8925.113^B"
^DD(8925.113,.01,1,1,1)="S ^TIU(8925.1,DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(8925.113,.01,1,1,2)="K ^TIU(8925.1,DA(1),13,""B"",$E(X,1,30),DA)"
^DD(8925.113,.01,3)="Please indicate a step involved in processing this document."
^DD(8925.113,.01,21,0)="^^2^2^2950216^"
^DD(8925.113,.01,21,1,0)="This is a step or action (e.g., verification) in the processing of a document"
^DD(8925.113,.01,21,2,0)="that moves it from one state (e.g., unverified) to another (e.g., unsigned)."
^DD(8925.113,.01,"DT")="2950216"
^DD(8925.113,.02,0)="SEQUENCE^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.113,.02,3)="Indicate the order in processing this document where this step should occur."
^DD(8925.113,.02,21,0)="^^4^4^2950216^"
^DD(8925.113,.02,21,1,0)="This is the serial sequence in the processing of the document in which the "
^DD(8925.113,.02,21,2,0)="current step should ordinarily occur.  This field is only necessary when the"
^DD(8925.113,.02,21,3,0)="process in question must occur in a particular sequence (e.g., to insure"
^DD(8925.113,.02,21,4,0)="that a document is always released from draft before it is verified)."
^DD(8925.113,.02,"DT")="2950216"
^DD(8925.113,.03,0)="REQUIRED?^S^1:REQUIRED;0:OPTIONAL;^0;3^Q"
^DD(8925.113,.03,3)="Indicate whether the step is required or optional"
^DD(8925.113,.03,21,0)="^^4^4^2950216^"
^DD(8925.113,.03,21,1,0)="This field specifies whether the step is required or optional for completion"
^DD(8925.113,.03,21,2,0)="of the document (e.g., Dictation and transcription is the typical means by"
^DD(8925.113,.03,21,3,0)="which Discharge Summaries are acquired, but they may be entered directly by"
^DD(8925.113,.03,21,4,0)="the provider, if preferred)."
^DD(8925.113,.03,"DT")="2950216"
^DD(8925.113,.04,0)="RESULTING STATUS^P8930.6'^USR(8930.6,^0;4^Q"
^DD(8925.113,.04,3)="Indicate the status resulting from the step being taken."
^DD(8925.113,.04,21,0)="^^4^4^2950216^"
^DD(8925.113,.04,21,1,0)="This is the status of the document following completion of the step in "
^DD(8925.113,.04,21,2,0)="question.  For instance, if a discharge summary is to be registered as"
^DD(8925.113,.04,21,3,0)="unsigned following verification, this would be indicated in the RESULTING "
^DD(8925.113,.04,21,4,0)="STATUS field."
^DD(8925.113,.04,"DT")="2950216"
^DD(8925.113,.05,0)="CONDITION TEXT^F^^0;5^K:$L(X)>40!($L(X)<3) X"
^DD(8925.113,.05,3)="Condition under which the step will result in the status as indicated."
^DD(8925.113,.05,"DT")="2950216"
^DD(8925.113,"B","CONDITION TEXT",.05)=""
^DD(8925.113,"B","PROCESSING STEP",.01)=""
^DD(8925.113,"B","REQUIRED?",.03)=""
^DD(8925.113,"B","RESULTING STATUS",.04)=""
^DD(8925.113,"B","SEQUENCE",.02)=""
^DD(8925.113,"GL",0,1,.01)=""
^DD(8925.113,"GL",0,2,.02)=""
^DD(8925.113,"GL",0,3,.03)=""
^DD(8925.113,"GL",0,4,.04)=""
^DD(8925.113,"GL",0,5,.05)=""
^DD(8925.113,"IX",.01)=""
^DD(8925.114,0)="DIALOG SUB-FIELD^^117^12"
^DD(8925.114,0,"DT")="2951002"
^DD(8925.114,0,"IX","AS",8925.114,.03)=""
^DD(8925.114,0,"IX","B",8925.114,.01)=""
^DD(8925.114,0,"NM","DIALOG")=""
^DD(8925.114,0,"UP")="8925.1"
^DD(8925.114,.01,0)="PROMPT^MF^^0;1^K:$L(X)>30!($L(X)<2) X"
^DD(8925.114,.01,1,0)="^.1"
^DD(8925.114,.01,1,1,0)="8925.114^B"
^DD(8925.114,.01,1,1,1)="S ^TIU(8925.1,DA(1),""DIALOG"",""B"",$E(X,1,30),DA)="""""
^DD(8925.114,.01,1,1,2)="K ^TIU(8925.1,DA(1),""DIALOG"",""B"",$E(X,1,30),DA)"
^DD(8925.114,.01,3)="Enter the caption with which the user will be prompted."
^DD(8925.114,.01,21,0)="^^2^2^2950606^^^"
^DD(8925.114,.01,21,1,0)="This is the prompt with which the user will be presented during interactive "
^DD(8925.114,.01,21,2,0)="entry of the document."
^DD(8925.114,.01,"DT")="2950606"
^DD(8925.114,.02,0)="ITEM NAME^F^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(8925.114,.02,3)="Answer must be 2-50 characters in length."
^DD(8925.114,.02,21,0)="^^2^2^2950606^^"
^DD(8925.114,.02,21,1,0)="This is a descriptive name for the datum which will help descibe the prompt "
^DD(8925.114,.02,21,2,0)="for the user."
^DD(8925.114,.02,"DT")="2950606"
^DD(8925.114,.03,0)="SEQUENCE^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.114,.03,1,0)="^.1"
^DD(8925.114,.03,1,1,0)="8925.114^AS"
^DD(8925.114,.03,1,1,1)="S ^TIU(8925.1,DA(1),""DIALOG"",""AS"",$E(X,1,30),DA)="""""
^DD(8925.114,.03,1,1,2)="K ^TIU(8925.1,DA(1),""DIALOG"",""AS"",$E(X,1,30),DA)"
^DD(8925.114,.03,1,1,"%D",0)="^^2^2^2950606^"
^DD(8925.114,.03,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference on the sequence sub-field of the"
^DD(8925.114,.03,1,1,"%D",2,0)="Dialog Multiple will facilitate appropriate serialization of prompts."
^DD(8925.114,.03,1,1,"DT")="2950606"
^DD(8925.114,.03,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(8925.114,.03,21,0)="^^2^2^2950606^"
^DD(8925.114,.03,21,1,0)="This is the sequence of the prompt within the dialog.  On the Windows Client "
^DD(8925.114,.03,21,2,0)="this will correspond with the Tab Order Property of the prompt."
^DD(8925.114,.03,"DT")="2950606"
^DD(8925.114,.04,0)="FIELD^FX^^0;4^K:$L(X)>10!($L(X)<1)!(+X<0) X"
^DD(8925.114,.04,3)="Enter the field in the TARGET FILE in which the response is to be stored."
^DD(8925.114,.04,4)=""
^DD(8925.114,.04,21,0)="^^2^2^2970116^^"
^DD(8925.114,.04,21,1,0)="This is the field in the target file in which the user's response will be "
^DD(8925.114,.04,21,2,0)="stored."
^DD(8925.114,.04,"DT")="2970116"
^DD(8925.114,.05,0)="REQUIRED^S^1:YES;0:NO;^0;5^Q"
^DD(8925.114,.05,3)="Indicate whether a response is required."
^DD(8925.114,.05,21,0)="^^2^2^2950607^"
^DD(8925.114,.05,21,1,0)="Please indicate whether a response to this prompt is required, in order to "
^DD(8925.114,.05,21,2,0)="complete the dialog."
^DD(8925.114,.05,"DT")="2950607"
^DD(8925.114,.06,0)="VISIBLE^S^0:NO;1:YES;^0;6^Q"
^DD(8925.114,.06,3)="Indicate wheter the prompt will be visible to the user."
^DD(8925.114,.06,21,0)="^^2^2^2950607^"
^DD(8925.114,.06,21,1,0)="This field specifies whether a given datum will be prompted for, or "
^DD(8925.114,.06,21,2,0)="""stuffed,"" based on execution of the SET METHOD for a given prompt."
^DD(8925.114,.06,"DT")="2950607"
^DD(8925.114,1,0)="SET METHOD^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.114,1,3)="This is Standard MUMPS code."
^DD(8925.114,1,9)="@"
^DD(8925.114,1,21,0)="^^5^5^2950607^^^"
^DD(8925.114,1,21,1,0)="This is the mumps code for determining the default value of an interactive"
^DD(8925.114,1,21,2,0)="(""visible"") prompt, and for setting the value to be non-interactively "
^DD(8925.114,1,21,3,0)="""stuffed"" on invokation of an ""invisible"" prompt.  Regardless of the "
^DD(8925.114,1,21,4,0)="syntactic approach (e.g., subroutine or extrinsic function, the return"
^DD(8925.114,1,21,5,0)="value of the method should be placed in the local varible X."
^DD(8925.114,1,"DT")="2950607"
^DD(8925.114,101,0)="WINDOWS CONTROL^S^1:LongList;2:SimpleList;3:Edit;4:Memo;^W;1^Q"
^DD(8925.114,101,3)="Enter the Windows control appropriate for this prompt"
^DD(8925.114,101,21,0)="^^2^2^2950907^"
^DD(8925.114,101,21,1,0)="Stores the type of Windows control necessary to get the data for this"
^DD(8925.114,101,21,2,0)="prompt."
^DD(8925.114,101,"DT")="2950907"
^DD(8925.114,102,0)="API NAME^F^^W;2^K:$L(X)>30!($L(X)<3) X"
^DD(8925.114,102,3)="Answer must be 3-30 characters in length."
^DD(8925.114,102,21,0)="^^3^3^2950907^"
^DD(8925.114,102,21,1,0)="This is the API that should be called by the broker when the control is"
^DD(8925.114,102,21,2,0)="used.  How the API is used varies with the control.  Examples are:"
^DD(8925.114,102,21,3,0)="filling list boxes, getting boilerplate text, etc."
^DD(8925.114,102,"DT")="2951002"
^DD(8925.114,103,0)="API PARAMETER #1^F^^W;3^K:$L(X)>30!($L(X)<1) X"
^DD(8925.114,103,3)="Answer must be 1-30 characters in length."
^DD(8925.114,103,21,0)="^^1^1^2950907^"
^DD(8925.114,103,21,1,0)="A parameter that is used by the API may be stored here."
^DD(8925.114,103,"DT")="2950907"
^DD(8925.114,113,0)="WINDOWS CONDITION^K^^W3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.114,113,3)="This is Standard MUMPS code."
^DD(8925.114,113,9)="@"
^DD(8925.114,113,21,0)="^^3^3^2950907^"
^DD(8925.114,113,21,1,0)="This is silent code which is executed when building the dialog for"
^DD(8925.114,113,21,2,0)="Windows.  It identifies which prompts should be included in the dialog."
^DD(8925.114,113,21,3,0)="The condition should leave $T failse if the prompt should not be asked."
^DD(8925.114,113,"DT")="2950907"
^DD(8925.114,117,0)="WINDOWS DEFAULT^K^^W7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.114,117,3)="This is Standard MUMPS code."
^DD(8925.114,117,9)="@"
^DD(8925.114,117,21,0)="^^2^2^2950907^"
^DD(8925.114,117,21,1,0)="This code should silently set the default value of a prompt when it is"
^DD(8925.114,117,21,2,0)="selected."
^DD(8925.114,117,"DT")="2950907"
^DD(8925.114,"B","API NAME",102)=""
^DD(8925.114,"B","API PARAMETER #1",103)=""
^DD(8925.114,"B","FIELD",.04)=""
^DD(8925.114,"B","ITEM NAME",.02)=""
^DD(8925.114,"B","PROMPT",.01)=""
^DD(8925.114,"B","REQUIRED",.05)=""
^DD(8925.114,"B","SEQUENCE",.03)=""
^DD(8925.114,"B","SET METHOD",1)=""
^DD(8925.114,"B","VISIBLE",.06)=""
^DD(8925.114,"B","WINDOWS CONDITION",113)=""
^DD(8925.114,"B","WINDOWS CONTROL",101)=""
^DD(8925.114,"B","WINDOWS DEFAULT",117)=""
^DD(8925.114,"GL",0,1,.01)=""
^DD(8925.114,"GL",0,2,.02)=""
^DD(8925.114,"GL",0,3,.03)=""
^DD(8925.114,"GL",0,4,.04)=""
^DD(8925.114,"GL",0,5,.05)=""
^DD(8925.114,"GL",0,6,.06)=""
^DD(8925.114,"GL",1,"E1,245",1)=""
^DD(8925.114,"GL","W",1,101)=""
^DD(8925.114,"GL","W",2,102)=""
^DD(8925.114,"GL","W",3,103)=""
^DD(8925.114,"GL","W3","E1,245",113)=""
^DD(8925.114,"GL","W7","E1,245",117)=""
^DD(8925.114,"IX",.01)=""
^DD(8925.114,"IX",.03)=""
^DD(8925.12,0)="UPLOAD CAPTIONED ASCII HEADER SUB-FIELD^^1^8"
^DD(8925.12,0,"DT")="2951004"
^DD(8925.12,0,"IX","B",8925.12,.01)=""
^DD(8925.12,0,"IX","C",8925.12,.02)=""
^DD(8925.12,0,"IX","D",8925.12,.03)=""
^DD(8925.12,0,"IX","E",8925.12,.04)=""
^DD(8925.12,0,"NM","UPLOAD CAPTIONED ASCII HEADER")=""
^DD(8925.12,0,"UP")="8925.1"
^DD(8925.12,.01,0)="CAPTION^MF^^0;1^K:$L(X)>40!($L(X)<2) X"
^DD(8925.12,.01,1,0)="^.1"
^DD(8925.12,.01,1,1,0)="8925.12^B"
^DD(8925.12,.01,1,1,1)="S ^TIU(8925.1,DA(1),""HEAD"",""B"",$E(X,1,30),DA)="""""
^DD(8925.12,.01,1,1,2)="K ^TIU(8925.1,DA(1),""HEAD"",""B"",$E(X,1,30),DA)"
^DD(8925.12,.01,3)="Answer must be 2-40 characters in length."
^DD(8925.12,.01,21,0)="^^7^7^2970108^"
^DD(8925.12,.01,21,1,0)="NOTE: Users can choose between two possible kinds of Upload Record"
^DD(8925.12,.01,21,2,0)="Headers: Captioned or Delimited.  Captioned headers should be used UNLESS"
^DD(8925.12,.01,21,3,0)="the site has a way to generate upload headers automatically."
^DD(8925.12,.01,21,4,0)=" "
^DD(8925.12,.01,21,5,0)="CAPTION is the caption which the transcriber enters into the captioned"
^DD(8925.12,.01,21,6,0)="upload record header immediately preceeding the item data.  It serves to"
^DD(8925.12,.01,21,7,0)="distinguish one item of data from the next. Example: PATIENT NAME"
^DD(8925.12,.01,"DT")="2930218"
^DD(8925.12,.02,0)="ITEM NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<2) X"
^DD(8925.12,.02,1,0)="^.1"
^DD(8925.12,.02,1,1,0)="8925.12^C"
^DD(8925.12,.02,1,1,1)="S ^TIU(8925.1,DA(1),""HEAD"",""C"",$E(X,1,30),DA)="""""
^DD(8925.12,.02,1,1,2)="K ^TIU(8925.1,DA(1),""HEAD"",""C"",$E(X,1,30),DA)"
^DD(8925.12,.02,1,1,"%D",0)="^^2^2^2930122^"
^DD(8925.12,.02,1,1,"%D",1,0)="This REGULAR FileMan cross-reference on the ITEM NAME is used in the look-up"
^DD(8925.12,.02,1,1,"%D",2,0)="and filing processes."
^DD(8925.12,.02,1,1,"DT")="2930122"
^DD(8925.12,.02,3)="Enter the name of the header item."
^DD(8925.12,.02,21,0)="^^2^2^2970108^"
^DD(8925.12,.02,21,1,0)="This is the name of the item in the ASCII message header.  Item Name is"
^DD(8925.12,.02,21,2,0)="used in help messages for the person dictating a document."
^DD(8925.12,.02,"DT")="2930122"
^DD(8925.12,.03,0)="FIELD NUMBER^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(8925.12,.03,1,0)="^.1"
^DD(8925.12,.03,1,1,0)="8925.12^D"
^DD(8925.12,.03,1,1,1)="S ^TIU(8925.1,DA(1),""HEAD"",""D"",$E(X,1,30),DA)="""""
^DD(8925.12,.03,1,1,2)="K ^TIU(8925.1,DA(1),""HEAD"",""D"",$E(X,1,30),DA)"
^DD(8925.12,.03,1,1,"%D",0)="^^2^2^2930122^"
^DD(8925.12,.03,1,1,"%D",1,0)="This REGULAR FileMan cross-reference is used by the filer router to identify"
^DD(8925.12,.03,1,1,"%D",2,0)="header fields with field numbers in the target file."
^DD(8925.12,.03,1,1,"DT")="2930122"
^DD(8925.12,.03,3)="Enter the FIELD # of the item in the target file."
^DD(8925.12,.03,21,0)="^^2^2^2970108^"
^DD(8925.12,.03,21,1,0)="This is the FIELD # in the target file which corresponds to this header"
^DD(8925.12,.03,21,2,0)="item and where this item of data will be stored."
^DD(8925.12,.03,"DT")="2930122"
^DD(8925.12,.04,0)="LOOKUP LOCAL VARIABLE NAME^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?1A1.7E) X"
^DD(8925.12,.04,1,0)="^.1"
^DD(8925.12,.04,1,1,0)="8925.12^E"
^DD(8925.12,.04,1,1,1)="S ^TIU(8925.1,DA(1),""HEAD"",""E"",$E(X,1,30),DA)="""""
^DD(8925.12,.04,1,1,2)="K ^TIU(8925.1,DA(1),""HEAD"",""E"",$E(X,1,30),DA)"
^DD(8925.12,.04,1,1,"%D",0)="^^3^3^2930122^"
^DD(8925.12,.04,1,1,"%D",1,0)="This REGULAR FileMan cross-reference is used by the router/filer to determine"
^DD(8925.12,.04,1,1,"%D",2,0)="which fields of the header should be set into special variables which may be"
^DD(8925.12,.04,1,1,"%D",3,0)="required by the lookup routine."
^DD(8925.12,.04,1,1,"DT")="2930122"
^DD(8925.12,.04,3)="Enter the required local variable into which this item will be set."
^DD(8925.12,.04,21,0)="^^11^11^2970108^"
^DD(8925.12,.04,21,1,0)="This field specifies the local variable name into which this item of the"
^DD(8925.12,.04,21,2,0)="upload header will be set.  The local variable is used by the Look-Up"
^DD(8925.12,.04,21,3,0)="Method.  For example, if this item of the header is the patient social"
^DD(8925.12,.04,21,4,0)="security number, the Lookup Local Variable Name might be TIUSSN.  The"
^DD(8925.12,.04,21,5,0)="social security number as written by the transcriptionist is first"
^DD(8925.12,.04,21,6,0)="transformed by any existing Transform Code, and then set into this"
^DD(8925.12,.04,21,7,0)="variable (e.g. TIUSSN) for use in Look-Up Method code."
^DD(8925.12,.04,21,8,0)=" "
^DD(8925.12,.04,21,9,0)="Lookup Local Variable Name is necessary only if the information in this"
^DD(8925.12,.04,21,10,0)="piece is required in order to look up the appropriate entry in the target"
^DD(8925.12,.04,21,11,0)="file."
^DD(8925.12,.04,"DT")="2930122"
^DD(8925.12,.05,0)="EXAMPLE ENTRY^F^^0;5^K:$L(X)>80!($L(X)<2) X"
^DD(8925.12,.05,3)="Answer must be 2-80 characters in length."
^DD(8925.12,.05,21,0)="^^9^9^2970108^"
^DD(8925.12,.05,21,1,0)="This field is used to store sample data for this item in the form the"
^DD(8925.12,.05,21,2,0)="transcriptionist is expected to use when transcribing it.  For example, if"
^DD(8925.12,.05,21,3,0)="a patient has social security number 555-12-1212, and the transcriptionist"
^DD(8925.12,.05,21,4,0)="is expected to write 555-12-1212, than an Example Entry should have the"
^DD(8925.12,.05,21,5,0)="form 555-12-1212."
^DD(8925.12,.05,21,6,0)=" "
^DD(8925.12,.05,21,7,0)="The Upload needs to know the exact form the transcriptionist is expected"
^DD(8925.12,.05,21,8,0)="to use in case it needs to transform it to make it acceptable to FileMan."
^DD(8925.12,.05,21,9,0)="In this case, the transcriptionist also needs to know the exact form."
^DD(8925.12,.05,"DT")="2930224"
^DD(8925.12,.06,0)="CLINICIAN MUST DICTATE^S^1:YES;0:NO;^0;6^Q"
^DD(8925.12,.06,3)="Answer yes if this field needs to be dictated by the clinician."
^DD(8925.12,.06,21,0)="^^5^5^2970108^"
^DD(8925.12,.06,21,1,0)="States whether or not this item should be dictated by the Clinician.  Will"
^DD(8925.12,.06,21,2,0)="be used by the Clinician Help routine to determine if this field should be"
^DD(8925.12,.06,21,3,0)="shown as data that should be dictated.  (Some items can be entered by the"
^DD(8925.12,.06,21,4,0)="transcriber without being dictated, such as the transcriber"
^DD(8925.12,.06,21,5,0)="identification)."
^DD(8925.12,.06,"DT")="2930423"
^DD(8925.12,.07,0)="REQUIRED FIELD?^S^1:YES;0:NO;^0;7^Q"
^DD(8925.12,.07,3)="Please indicate whether field is required by application."
^DD(8925.12,.07,21,0)="^^5^5^2970108^"
^DD(8925.12,.07,21,1,0)="This field is used to determine whether a given header item is required"
^DD(8925.12,.07,21,2,0)="by the application (e.g., Author and Attending Physician may be required"
^DD(8925.12,.07,21,3,0)="for the ongoing processing of a Discharge Summary).  Records lacking"
^DD(8925.12,.07,21,4,0)="required fields WILL be entered into the target file, if possible, but"
^DD(8925.12,.07,21,5,0)="will generate Missing Field Error Alerts."
^DD(8925.12,.07,"DT")="2951004"
^DD(8925.12,1,0)="TRANSFORM CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.12,1,3)="This is Standard MUMPS code."
^DD(8925.12,1,9)="@"
^DD(8925.12,1,21,0)="^^11^11^2970108^"
^DD(8925.12,1,21,1,0)="This standard MUMPS code transforms the transcribed value of the header"
^DD(8925.12,1,21,2,0)="item into a format acceptable to FileMan (e.g., patient social security"
^DD(8925.12,1,21,3,0)="number 555-12-1212 must be transformed to 555121212 or to whatever"
^DD(8925.12,1,21,4,0)="(external) format FileMan accepts when a user edits the social security"
^DD(8925.12,1,21,5,0)="number field in the target file)."
^DD(8925.12,1,21,6,0)=" "
^DD(8925.12,1,21,7,0)="Field values are transformed before being set into Special Lookup"
^DD(8925.12,1,21,8,0)="Variables and before being set into target file fields."
^DD(8925.12,1,21,9,0)=" "
^DD(8925.12,1,21,10,0)="Field is necessary only if transcribed item is not in the format Fileman"
^DD(8925.12,1,21,11,0)="accepts for the target file."
^DD(8925.12,1,"DT")="2930219"
^DD(8925.12,"B","CAPTION",.01)=""
^DD(8925.12,"B","CLINICIAN MUST DICTATE",.06)=""
^DD(8925.12,"B","EXAMPLE ENTRY",.05)=""
^DD(8925.12,"B","FIELD NUMBER",.03)=""
^DD(8925.12,"B","ITEM NAME",.02)=""
^DD(8925.12,"B","LOOKUP LOCAL VARIABLE NAME",.04)=""
^DD(8925.12,"B","REQUIRED FIELD?",.07)=""
^DD(8925.12,"B","TRANSFORM CODE",1)=""
^DD(8925.12,"GL",0,1,.01)=""
^DD(8925.12,"GL",0,2,.02)=""
^DD(8925.12,"GL",0,3,.03)=""
^DD(8925.12,"GL",0,4,.04)=""
^DD(8925.12,"GL",0,5,.05)=""
^DD(8925.12,"GL",0,6,.06)=""
^DD(8925.12,"GL",0,7,.07)=""
^DD(8925.12,"GL",1,"E1,245",1)=""
^DD(8925.12,"IX",.01)=""
^DD(8925.12,"IX",.02)=""
^DD(8925.12,"IX",.03)=""
^DD(8925.12,"IX",.04)=""
^DD(8925.13,0)="BOILERPLATE TEXT SUB-FIELD^^.01^1"
^DD(8925.13,0,"NM","BOILERPLATE TEXT")=""
^DD(8925.13,0,"UP")="8925.1"
^DD(8925.13,.01,0)="BOILERPLATE TEXT^WL^^0;1^Q"
^DD(8925.13,.01,3)="Enter default Report Format"
^DD(8925.13,.01,21,0)="^^51^51^2970506^"
^DD(8925.13,.01,21,1,0)="Applies to Titles and Components."
^DD(8925.13,.01,21,2,0)=" "
^DD(8925.13,.01,21,3,0)="Site can preload the text field of a document with default text/default"
^DD(8925.13,.01,21,4,0)="format/overprint data which is presented to the user when entering the"
^DD(8925.13,.01,21,5,0)="document.  User can then edit and/or add to the boilerplate text."
^DD(8925.13,.01,21,6,0)=" "
^DD(8925.13,.01,21,7,0)="If document is formatted into columns, users entering documents should use"
^DD(8925.13,.01,21,8,0)="replace mode rather than insert mode (or Find/RePlace Text) to preserve"
^DD(8925.13,.01,21,9,0)="the columns."
^DD(8925.13,.01,21,10,0)=" "
^DD(8925.13,.01,21,11,0)="Boilerplate Text may be used as an alternative to components to split a"
^DD(8925.13,.01,21,12,0)="document up into sections, but such sections are stored together and"
^DD(8925.13,.01,21,13,0)="cannot be separately accessed the way components can.  See Type Component,"
^DD(8925.13,.01,21,14,0)="under Basic field Type."
^DD(8925.13,.01,21,15,0)=" "
^DD(8925.13,.01,21,16,0)="Titles/Components must be inactive in order to edit boilerplate text."
^DD(8925.13,.01,21,17,0)=" "
^DD(8925.13,.01,21,18,0)="Boilerplate Text is the place to embed objects which go fetch data. For"
^DD(8925.13,.01,21,19,0)="example, suppose a Title has boilerplate text:"
^DD(8925.13,.01,21,20,0)=" "
^DD(8925.13,.01,21,21,0)="               Patient is a healthy |PATIENT AGE| year old male..."
^DD(8925.13,.01,21,22,0)=" "
^DD(8925.13,.01,21,23,0)="Then a user who enters such a note for a patient known by the system to be"
^DD(8925.13,.01,21,24,0)="56 years old would be presented with the text:"
^DD(8925.13,.01,21,25,0)=" "
^DD(8925.13,.01,21,26,0)="               Patient is a healthy 56 year old male..."
^DD(8925.13,.01,21,27,0)=" "
^DD(8925.13,.01,21,28,0)="The user can then add to the text and/or edit the text, including the age"
^DD(8925.13,.01,21,29,0)="(56) of the patient.  From this point on, the patient age (56) is regular"
^DD(8925.13,.01,21,30,0)="text and is not updated in this note."
^DD(8925.13,.01,21,31,0)=" "
^DD(8925.13,.01,21,32,0)="If a user enters a document when an embedded object is Inactive, the"
^DD(8925.13,.01,21,33,0)="object does not function; the user sees the object name and an error"
^DD(8925.13,.01,21,34,0)="message.  Similarly, if an object has been misspelled in the boilerplate"
^DD(8925.13,.01,21,35,0)="text, or deleted from the file, or if the object name in the boilerplate"
^DD(8925.13,.01,21,36,0)="text is not unique among objects, the object does not function."
^DD(8925.13,.01,21,37,0)=" "
^DD(8925.13,.01,21,38,0)="When embedding objects in boilerplate text, users should make sure the"
^DD(8925.13,.01,21,39,0)="entire object name is on one line rather than split between two lines."
^DD(8925.13,.01,21,40,0)="Split names generate ""NOT found"" error messages.  Users must also allow"
^DD(8925.13,.01,21,41,0)="enough white space in the boilerplate text for whatever data the object"
^DD(8925.13,.01,21,42,0)="imports.  Users can check boilerplate text using action TRY."
^DD(8925.13,.01,21,43,0)=" "
^DD(8925.13,.01,21,44,0)="Any user who can edit boilerplate text can embed any object in it."
^DD(8925.13,.01,21,45,0)="However, except for object owners who are testing an object, USERS SHOULD"
^DD(8925.13,.01,21,46,0)="EMBED ONLY ACTIVE OBJECTS in boilerplate text.  An object can be embedded"
^DD(8925.13,.01,21,47,0)="in as many different Document Definitions as desired."
^DD(8925.13,.01,21,48,0)=" "
^DD(8925.13,.01,21,49,0)="A document with multiple components can have boilerplate text in the entry"
^DD(8925.13,.01,21,50,0)="itself and/or in any component.  Boilerplate text in the entry itself"
^DD(8925.13,.01,21,51,0)="appears first."
^DD(8925.13,.01,"DT")="2930305"
^DD(8925.13,"B","BOILERPLATE TEXT",.01)=""
^DD(8925.13,"GL",0,1,.01)=""
^DD(8925.14,0)="ITEM SUB-FIELD^^4^4"
^DD(8925.14,0,"DT")="2970212"
^DD(8925.14,0,"IX","AC",8925.14,3)=""
^DD(8925.14,0,"IX","B",8925.14,.01)=""
^DD(8925.14,0,"IX","C",8925.14,4)=""
^DD(8925.14,0,"NM","ITEM")=""
^DD(8925.14,0,"UP")="8925.1"
^DD(8925.14,.01,0)="ITEM^M*P8925.1'X^TIU(8925.1,^0;1^S DIC(""S"")=""I $G(TIUFPRIV) X:$D(TIUFISCR) """"I Y=TIUFISCR"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.14,.01,1,0)="^.1"
^DD(8925.14,.01,1,1,0)="8925.14^B"
^DD(8925.14,.01,1,1,1)="S ^TIU(8925.1,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(8925.14,.01,1,1,2)="K ^TIU(8925.1,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(8925.14,.01,1,2,0)="8925.1^AD"
^DD(8925.14,.01,1,2,1)="S ^TIU(8925.1,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(8925.14,.01,1,2,2)="K ^TIU(8925.1,""AD"",$E(X,1,30),DA(1),DA)"
^DD(8925.14,.01,1,2,"%D",0)="^^2^2^2940719^"
^DD(8925.14,.01,1,2,"%D",1,0)="This cross-reference facilitates traversal from child to parent, up the"
^DD(8925.14,.01,1,2,"%D",2,0)="class hierarchy."
^DD(8925.14,.01,1,2,"DT")="2940719"
^DD(8925.14,.01,1,3,0)="8925.1^AMM^MUMPS"
^DD(8925.14,.01,1,3,1)="D REDOX^TIUDD"
^DD(8925.14,.01,1,3,2)="D REDOX^TIUDD"
^DD(8925.14,.01,1,3,"%D",0)="^^2^2^2940720^^"
^DD(8925.14,.01,1,3,"%D",1,0)="This MUMPS-type cross-reference will update the timestamp on the parent"
^DD(8925.14,.01,1,3,"%D",2,0)="document when the ITEM, MNEMONIC, or SEQUENCE changes."
^DD(8925.14,.01,1,3,"DT")="2940720"
^DD(8925.14,.01,1,4,0)="8925.1^ACL1001^MUMPS"
^DD(8925.14,.01,1,4,1)="D SACL^TIUDD1(X,10.01)"
^DD(8925.14,.01,1,4,2)="D KACL^TIUDD1(X,10.01)"
^DD(8925.14,.01,1,4,"%D",0)="^^2^2^2971016^"
^DD(8925.14,.01,1,4,"%D",1,0)="This MUMPS-type cross-reference by class and name will help to identify"
^DD(8925.14,.01,1,4,"%D",2,0)="the titles within a given class."
^DD(8925.14,.01,1,4,"DT")="2971016"
^DD(8925.14,.01,3)="ITEM must be a new or pre-existing Document Definition with appropriate Type which you own, which is not already an Item elsewhere."
^DD(8925.14,.01,4)="D NAME^TIUFXHLX"
^DD(8925.14,.01,12)="See Technical Description."
^DD(8925.14,.01,12.1)="S DIC(""S"")=""I $G(TIUFPRIV) X:$D(TIUFISCR) """"I Y=TIUFISCR"""""""
^DD(8925.14,.01,21,0)="^^6^6^2970304^^^^"
^DD(8925.14,.01,21,1,0)="Items are themselves Document Definitions.  The Type of the parent entry"
^DD(8925.14,.01,21,2,0)="determines what Types of items it has.  A parent entry of type Class has"
^DD(8925.14,.01,21,3,0)="items of type Class or Document Class.  A Document Class entry has items"
^DD(8925.14,.01,21,4,0)="of type Title.  If a Title entry has more than a single section, it has"
^DD(8925.14,.01,21,5,0)="items of type Component.  Components may also be multi-section with items"
^DD(8925.14,.01,21,6,0)="of type Component.  Objects do not have items."
^DD(8925.14,.01,23,0)="^^8^8^2970304^^^^"
^DD(8925.14,.01,23,1,0)="The Item subfield of Item Field 10 in File 8925.1 is screened when using"
^DD(8925.14,.01,23,2,0)="the TIUF Document Definition Utility to add items (i.e. when variable"
^DD(8925.14,.01,23,3,0)="TIUFISCR is defined.  "
^DD(8925.14,.01,23,4,0)=" "
^DD(8925.14,.01,23,5,0)="This screen is needed in ADDTEN^TIUFLF4, which noninteractively adds an"
^DD(8925.14,.01,23,6,0)="item to the Item multiple.  The screen limits the lookup to the 8925.1 IFN"
^DD(8925.14,.01,23,7,0)="of the item being added to the Item multiple.  Without the screen, the"
^DD(8925.14,.01,23,8,0)="lookup fails when there are multiple 8925.1 entries of the same name."
^DD(8925.14,.01,"DEL",.01,0)="I 1"
^DD(8925.14,.01,"DT")="2971016"
^DD(8925.14,2,0)="MNEMONIC^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X"
^DD(8925.14,2,1,0)="^.1"
^DD(8925.14,2,1,1,0)="8925.1^AMM2^MUMPS"
^DD(8925.14,2,1,1,1)="D REDOX^TIUDD"
^DD(8925.14,2,1,1,2)="D REDOX^TIUDD"
^DD(8925.14,2,1,1,"%D",0)="^^2^2^2961210^^^^"
^DD(8925.14,2,1,1,"%D",1,0)="This MUMPS-type cross-reference will update the TIMESTAMP on the parent"
^DD(8925.14,2,1,1,"%D",2,0)="document when either the ITEM, MNEMONIC, or SEQUENCE changes."
^DD(8925.14,2,1,1,"DT")="2940720"
^DD(8925.14,2,3)="Mnemonic is a handle by which to select Classes/Document Classes from a menu.  Enter the Sequence number, or 1-4 letters, or nothing if you don't want mnemonics."
^DD(8925.14,2,21,0)="^^3^3^2970127^"
^DD(8925.14,2,21,1,0)="Item Mnemonic is a handle by which to select Classes/Document Classes from"
^DD(8925.14,2,21,2,0)="a menu. 1-4 characters long.  Mnemonic is usually numeric with the same"
^DD(8925.14,2,21,3,0)="value as the Sequence.  Alpha mnemonics are permitted if preferred."
^DD(8925.14,2,"DT")="2940720"
^DD(8925.14,3,0)="SEQUENCE^NJ6,2^^0;3^K:+X'=X!(X>999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(8925.14,3,1,0)="^.1"
^DD(8925.14,3,1,1,0)="8925.1^AMM3^MUMPS"
^DD(8925.14,3,1,1,1)="D REDOX^TIUDD"
^DD(8925.14,3,1,1,2)="D REDOX^TIUDD"
^DD(8925.14,3,1,1,"%D",0)="^^2^2^2940720^^"
^DD(8925.14,3,1,1,"%D",1,0)="This MUMPS-type cross-reference will update the TIMESTAMP of the parent"
^DD(8925.14,3,1,1,"%D",2,0)="document when the ITEM, MNEMONIC, or SEQUENCE change."
^DD(8925.14,3,1,1,"DT")="2940720"
^DD(8925.14,3,1,2,0)="8925.14^AC"
^DD(8925.14,3,1,2,1)="S ^TIU(8925.1,DA(1),10,""AC"",$E(X,1,30),DA)="""""
^DD(8925.14,3,1,2,2)="K ^TIU(8925.1,DA(1),10,""AC"",$E(X,1,30),DA)"
^DD(8925.14,3,1,2,3)="Please don't delete!"
^DD(8925.14,3,1,2,"%D",0)="^^2^2^2950412^^^"
^DD(8925.14,3,1,2,"%D",1,0)="This REGULAR Fileman cross reference is used to list items by sequence"
^DD(8925.14,3,1,2,"%D",2,0)="number."
^DD(8925.14,3,1,2,"DT")="2950410"
^DD(8925.14,3,3)="Item Sequence determines display order under the parent.  For alphabetic order, do not enter sequences.  Sequence is between .01 and 999, 2 Decimal Digits."
^DD(8925.14,3,21,0)="^^3^3^2970102^^^"
^DD(8925.14,3,21,1,0)="Item Sequence, if entered, determines item's order under its parent. If"
^DD(8925.14,3,21,2,0)="items have no sequence, item order is alphabetic by item Menu Text."
^DD(8925.14,3,21,3,0)="Sequence must be between .01 and 999."
^DD(8925.14,3,"DT")="2961021"
^DD(8925.14,4,0)="MENU TEXT^RFX^^0;4^K:X[""""""""!($A(X)=45)!($A(X)=32) X I $D(X) K:$L(X)>20!($L(X)<1) X I $D(X) K:$$UPPER^TIULS($E(X,1,3))=""ALL"" X"
^DD(8925.14,4,1,0)="^.1"
^DD(8925.14,4,1,1,0)="8925.1^AMM4^MUMPS"
^DD(8925.14,4,1,1,1)="D REDOX^TIUDD"
^DD(8925.14,4,1,1,2)="D REDOX^TIUDD"
^DD(8925.14,4,1,1,"%D",0)="^^2^2^2940720^"
^DD(8925.14,4,1,1,"%D",1,0)="This MUMPS-type cross-reference updates the TIMESTAMP on the parent"
^DD(8925.14,4,1,1,"%D",2,0)="document when the DISPLAY NAME changes."
^DD(8925.14,4,1,1,"DT")="2940720"
^DD(8925.14,4,1,2,0)="8925.14^C^MUMPS"
^DD(8925.14,4,1,2,1)="S ^TIU(8925.1,DA(1),10,""C"",$E(X,1,30),DA)="""""
^DD(8925.14,4,1,2,2)="K ^TIU(8925.1,DA(1),10,""C"",$E(X,1,30),DA)"
^DD(8925.14,4,1,2,"%D",0)="^^3^3^2961210^^"
^DD(8925.14,4,1,2,"%D",1,0)="This M cross reference could have been regular.  It is used to display"
^DD(8925.14,4,1,2,"%D",2,0)="items with no sequence in alpha order by Menu Text."
^DD(8925.14,4,1,2,"DT")="2961210"
^DD(8925.14,4,3)="This is the short name of the entry, used in 3 column menus.  1 to 20 characters.  Must not begin with 'All', or with a space."
^DD(8925.14,4,4)=""
^DD(8925.14,4,21,0)="^^20^20^2990114^^"
^DD(8925.14,4,21,1,0)="Item Menu Text is the short name users will see for Classes and Document"
^DD(8925.14,4,21,2,0)="Classes when selecting them from 3-COLUMN MENUS.  Document Definitions are"
^DD(8925.14,4,21,3,0)="selected from 3-column menus when viewing documents across many patients"
^DD(8925.14,4,21,4,0)="and when viewing many kinds of documents at the same time (e.g. Progress"
^DD(8925.14,4,21,5,0)="Notes and Discharge Summaries)."
^DD(8925.14,4,21,6,0)=" "
^DD(8925.14,4,21,7,0)="To edit the Menu Text of a Document Definition, you must be viewing the"
^DD(8925.14,4,21,8,0)="Document Definition as an ITEM of its PARENT. Select 'Detailed Display'"
^DD(8925.14,4,21,9,0)="for the PARENT and then 'Items'."
^DD(8925.14,4,21,10,0)=" "
^DD(8925.14,4,21,11,0)="Menu Text has 1 - 20 characters. Menu Text must not begin with a space or"
^DD(8925.14,4,21,12,0)="with 'All'.  The Document Definition Utility TIUF automatically sets the"
^DD(8925.14,4,21,13,0)="Item Menu Text to the first 20 characters of the Item's Name when an entry"
^DD(8925.14,4,21,14,0)="is first added as an item. (If an entry's Name begins with 'All' its Menu"
^DD(8925.14,4,21,15,0)="Text is given 'AlX' as its first 3 characters.) The utility does NOT"
^DD(8925.14,4,21,16,0)="update Menu Text if the entry Name is later changed, since this would"
^DD(8925.14,4,21,17,0)="overwrite what a site may have carefully set up.  Menu Text is required."
^DD(8925.14,4,21,18,0)=" "
^DD(8925.14,4,21,19,0)="Menu Text can affect item order under a parent since order is alphabetic"
^DD(8925.14,4,21,20,0)="by menu text if items do not have sequence numbers."
^DD(8925.14,4,23,0)="^^10^10^2990114^^^^"
^DD(8925.14,4,23,1,0)="Menu Text cannot begin with 'All' because XQOR, the Unwinder Utility,"
^DD(8925.14,4,23,2,0)="misinterprets it.  The result (for titles) is that when a user selects a"
^DD(8925.14,4,23,3,0)="Document Class of titles to view from a three column menu, and one of the"
^DD(8925.14,4,23,4,0)="titles has menu text starting with 'All,' then no documents are found for"
^DD(8925.14,4,23,5,0)="titles AFTER the title starting with 'All', even though such documents may"
^DD(8925.14,4,23,6,0)="exist.  Similar problems occur with types other than titles."
^DD(8925.14,4,23,7,0)=" "
^DD(8925.14,4,23,8,0)="Menu Text cannot begin with a space because such Menu Text cannot be used"
^DD(8925.14,4,23,9,0)="to select the entry from a menu: if the space is left off, it is"
^DD(8925.14,4,23,10,0)="questioned, and if the space is left in, it is still questioned."
^DD(8925.14,4,"DT")="2990121"
^DD(8925.14,"B","ITEM",.01)=""
^DD(8925.14,"B","MENU TEXT",4)=""
^DD(8925.14,"B","MNEMONIC",2)=""
^DD(8925.14,"B","SEQUENCE",3)=""
^DD(8925.14,"GL",0,1,.01)=""
^DD(8925.14,"GL",0,2,2)=""
^DD(8925.14,"GL",0,3,3)=""
^DD(8925.14,"GL",0,4,4)=""
^DD(8925.14,"IX",.01)=""
^DD(8925.14,"IX",2)=""
^DD(8925.14,"IX",3)=""
^DD(8925.14,"IX",4)=""
^DD(8925.14,"RQ",4)=""
^DD(8925.2,0)="FIELD^^2^6"
^DD(8925.2,0,"DDA")="N"
^DD(8925.2,0,"DT")="2970408"
^DD(8925.2,0,"IX","B",8925.2,.01)=""
^DD(8925.2,0,"NM","TIU UPLOAD BUFFER")=""
^DD(8925.2,0,"PT",8925.4,.05)=""
^DD(8925.2,0,"VR")="1.0"
^DD(8925.2,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.2,.01,0)="PROCESS ID NUMBER^RF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(8925.2,.01,1,0)="^.1"
^DD(8925.2,.01,1,1,0)="8925.2^B"
^DD(8925.2,.01,1,1,1)="S ^TIU(8925.2,""B"",$E(X,1,30),DA)="""""
^DD(8925.2,.01,1,1,2)="K ^TIU(8925.2,""B"",$E(X,1,30),DA)"
^DD(8925.2,.01,3)="Answer must be 1-15 characters in length."
^DD(8925.2,.01,21,0)="^^1^1^2920916^^^^"
^DD(8925.2,.01,21,1,0)="This is the ID number of the upload process ($J)."
^DD(8925.2,.01,"DT")="2920916"
^DD(8925.2,.02,0)="USER^P200'^VA(200,^0;2^Q"
^DD(8925.2,.02,21,0)="^^1^1^2920911^"
^DD(8925.2,.02,21,1,0)="This is the user who invoked the ASCII upload procedure."
^DD(8925.2,.02,"DT")="2920911"
^DD(8925.2,.03,0)="PROCESS BEGIN TIME^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.2,.03,21,0)="^^1^1^2930426^"
^DD(8925.2,.03,21,1,0)="This is the time at which the upload process began."
^DD(8925.2,.03,"DT")="2920916"
^DD(8925.2,.04,0)="PROCESS END TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.2,.04,21,0)="^^1^1^2930426^"
^DD(8925.2,.04,21,1,0)="This is the time at which the upload process ended."
^DD(8925.2,.04,"DT")="2920916"
^DD(8925.2,1,0)="REPORT TEXT^8925.21^^TEXT;0"
^DD(8925.2,1,21,0)="^^5^5^2930621^^^"
^DD(8925.2,1,21,1,0)="This is a word processing field that contains the contents of the upload."
^DD(8925.2,1,21,2,0)="There may be multiple reports in a file uploaded. When the contents of a"
^DD(8925.2,1,21,3,0)="report are filed into the appropriate DHCP file, its contents in this word"
^DD(8925.2,1,21,4,0)="processing field are removed. Corrections can be made to any report"
^DD(8925.2,2,0)="ERROR LOG ENTRIES^8925.22PA^^ERR;0"
^DD(8925.2,2,21,0)="^^3^3^2970408^^^"
^DD(8925.2,2,21,1,0)="This multiple points to any entries in the TIU UPLOAD EVENT LOG FILE"
^DD(8925.2,2,21,2,0)="(#8925.4) which result from failure to file one or more of the records"
^DD(8925.2,2,21,3,0)="in the current buffer file entry."
^DD(8925.2,"B","ERROR LOG ENTRIES",2)=""
^DD(8925.2,"B","PROCESS BEGIN TIME",.03)=""
^DD(8925.2,"B","PROCESS END TIME",.04)=""
^DD(8925.2,"B","PROCESS ID NUMBER",.01)=""
^DD(8925.2,"B","REPORT TEXT",1)=""
^DD(8925.2,"B","USER",.02)=""
^DD(8925.2,"GL",0,1,.01)=""
^DD(8925.2,"GL",0,2,.02)=""
^DD(8925.2,"GL",0,3,.03)=""
^DD(8925.2,"GL",0,4,.04)=""
^DD(8925.2,"GL","ERR",0,2)=""
^DD(8925.2,"GL","TEXT",0,1)=""
^DD(8925.2,"IX",.01)=""
^DD(8925.2,"RQ",.01)=""
^DD(8925.2,"SB",8925.21,1)=""
^DD(8925.2,"SB",8925.22,2)=""
^DD(8925.21,0)="REPORT TEXT SUB-FIELD^^.01^1"
^DD(8925.21,0,"NM","REPORT TEXT")=""
^DD(8925.21,0,"UP")="8925.2"
^DD(8925.21,.01,0)="REPORT TEXT^WL^^0;1^Q"
^DD(8925.21,.01,"DT")="2930621"
^DD(8925.21,"B","REPORT TEXT",.01)=""
^DD(8925.21,"GL",0,1,.01)=""
^DD(8925.22,0)="ERROR LOG ENTRIES SUB-FIELD^^.01^1"
^DD(8925.22,0,"DT")="2970408"
^DD(8925.22,0,"IX","B",8925.22,.01)=""
^DD(8925.22,0,"NM","ERROR LOG ENTRIES")=""
^DD(8925.22,0,"UP")="8925.2"
^DD(8925.22,.01,0)="ERROR LOG ENTRIES^MP8925.4'^TIU(8925.4,^0;1^Q"
^DD(8925.22,.01,1,0)="^.1"
^DD(8925.22,.01,1,1,0)="8925.22^B"
^DD(8925.22,.01,1,1,1)="S ^TIU(8925.2,DA(1),""ERR"",""B"",$E(X,1,30),DA)="""""
^DD(8925.22,.01,1,1,2)="K ^TIU(8925.2,DA(1),""ERR"",""B"",$E(X,1,30),DA)"
^DD(8925.22,.01,3)="Enter the record # for an error in the ERROR LOG FILE (#8925.4)"
^DD(8925.22,.01,21,0)="^^2^2^2970408^^"
^DD(8925.22,.01,21,1,0)="This is the pointer to an entry in the error log for the current buffer"
^DD(8925.22,.01,21,2,0)="record."
^DD(8925.22,.01,"DT")="2970408"
^DD(8925.22,"B","ERROR LOG ENTRIES",.01)=""
^DD(8925.22,"GL",0,1,.01)=""
^DD(8925.22,"IX",.01)=""
^DD(8925.3,0)="FIELD^^.03^4"
^DD(8925.3,0,"DDA")="N"
^DD(8925.3,0,"IX","B",8925.3,.01)=""
^DD(8925.3,0,"NM","TIU UPLOAD ERROR DEFINITION")=""
^DD(8925.3,0,"VR")="1.0"
^DD(8925.3,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.3,.001,0)="ERROR CODE #^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.3,.001,3)="Enter the error code #"
^DD(8925.3,.001,21,0)="^^2^2^2930426^^"
^DD(8925.3,.001,21,1,0)="This is the error code number which occurs when a report that is"
^DD(8925.3,.001,21,2,0)="uploaded is unable to be filed into the appropriate DHCP file."
^DD(8925.3,.001,"DT")="2930211"
^DD(8925.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8925.3,.01,1,0)="^.1"
^DD(8925.3,.01,1,1,0)="8925.3^B"
^DD(8925.3,.01,1,1,1)="S ^TIU(8925.3,""B"",$E(X,1,30),DA)="""""
^DD(8925.3,.01,1,1,2)="K ^TIU(8925.3,""B"",$E(X,1,30),DA)"
^DD(8925.3,.01,3)="Answer must be 3-30 characters in length."
^DD(8925.3,.01,21,0)="^^2^2^2930211^"
^DD(8925.3,.01,21,1,0)="This is the name of the error as identified by the upload/router/filer"
^DD(8925.3,.01,21,2,0)="utility."
^DD(8925.3,.01,"DT")="2930211"
^DD(8925.3,.02,0)="ERROR TEXT^F^^0;2^K:$L(X)>76!($L(X)<3) X"
^DD(8925.3,.02,3)="Enter the text to be used in notification of upload operator."
^DD(8925.3,.02,21,0)="^^2^2^2930426^^"
^DD(8925.3,.02,21,1,0)="This is the text to be used to notify the appropriate persons that"
^DD(8925.3,.02,21,2,0)="a report was unable to be filed into DHCP."
^DD(8925.3,.02,"DT")="2930211"
^DD(8925.3,.03,0)="ALERT TYPE^S^I:information only;F:follow-up action;^0;3^Q"
^DD(8925.3,.03,3)="Select type of alert to be sent."
^DD(8925.3,.03,21,0)="^^2^2^2930426^"
^DD(8925.3,.03,21,1,0)="This is the type of alert that will be sent, either information only"
^DD(8925.3,.03,21,2,0)="or for follow-up action."
^DD(8925.3,.03,"DT")="2930211"
^DD(8925.3,"B","ALERT TYPE",.03)=""
^DD(8925.3,"B","ERROR CODE #",.001)=""
^DD(8925.3,"B","ERROR TEXT",.02)=""
^DD(8925.3,"B","NAME",.01)=""
^DD(8925.3,"GL",0,1,.01)=""
^DD(8925.3,"GL",0,2,.02)=""
^DD(8925.3,"GL",0,3,.03)=""
^DD(8925.3,"IX",.01)=""
^DD(8925.3,"RQ",.01)=""
^DD(8925.4,0)="FIELD^^2^11"
^DD(8925.4,0,"DDA")="N"
^DD(8925.4,0,"DT")="2970526"
^DD(8925.4,0,"IX","B",8925.4,.01)=""
^DD(8925.4,0,"IX","C",8925.4,.06)=""
^DD(8925.4,0,"IX","D",8925.4,.08)=""
^DD(8925.4,0,"NM","TIU UPLOAD LOG")=""
^DD(8925.4,0,"PT",8925.22,.01)=""
^DD(8925.4,0,"VR")="1.0"
^DD(8925.4,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.4,.01,0)="EVENT DATE/TIME^RD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.4,.01,1,0)="^.1"
^DD(8925.4,.01,1,1,0)="8925.4^B"
^DD(8925.4,.01,1,1,1)="S ^TIU(8925.4,""B"",$E(X,1,30),DA)="""""
^DD(8925.4,.01,1,1,2)="K ^TIU(8925.4,""B"",$E(X,1,30),DA)"
^DD(8925.4,.01,3)=""
^DD(8925.4,.01,21,0)="^^2^2^2950623^"
^DD(8925.4,.01,21,1,0)="This is the date/time at which the filing event (i.e., success or failure)"
^DD(8925.4,.01,21,2,0)="occurred."
^DD(8925.4,.01,"DT")="2950623"
^DD(8925.4,.02,0)="USER^P200'^VA(200,^0;2^Q"
^DD(8925.4,.02,21,0)="^^1^1^2950623^"
^DD(8925.4,.02,21,1,0)="This is the user who invoked the upload process. "
^DD(8925.4,.02,"DT")="2930212"
^DD(8925.4,.03,0)="DOCUMENT TYPE^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(8925.4,.03,3)="Answer must be 3-30 characters in length."
^DD(8925.4,.03,21,0)="^^3^3^2950623^"
^DD(8925.4,.03,21,1,0)="This is the document type (as found in the second piece of the header tag,"
^DD(8925.4,.03,21,2,0)="(e.g., $HDR:   DISCHARGE SUMMARY), by which the filing event can be"
^DD(8925.4,.03,21,3,0)="identified."
^DD(8925.4,.03,"DT")="2950623"
^DD(8925.4,.04,0)="ERROR DESCRIPTION^F^^0;4^K:$L(X)>76!($L(X)<3) X"
^DD(8925.4,.04,3)="Answer must be 3-76 characters in length."
^DD(8925.4,.04,21,0)="^^1^1^2930212^"
^DD(8925.4,.04,21,1,0)="This is the freetext error message."
^DD(8925.4,.04,"DT")="2930212"
^DD(8925.4,.05,0)="BUFFER FILE POINTER^*P8925.2'^TIU(8925.2,^0;5^S DIC(""S"")=""I $D(^TIU(8925.2,+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.4,.05,3)="Enter the record # in the TIU UPLOAD BUFFER FILE (#8925.2)"
^DD(8925.4,.05,12)="The buffer file record must exist at creation"
^DD(8925.4,.05,12.1)="S DIC(""S"")=""I $D(^TIU(8925.2,+Y,0))"""
^DD(8925.4,.05,21,0)="^^3^3^3030418^"
^DD(8925.4,.05,21,1,0)=" "
^DD(8925.4,.05,21,2,0)="This is the record number in file #8925.2 (TIU UPLOAD BUFFER FILE) where"
^DD(8925.4,.05,21,3,0)="the erroneous record(s) reside(s)."
^DD(8925.4,.05,"DT")="2931215"
^DD(8925.4,.06,0)="RESOLUTION STATUS^S^1:RESOLVED;0:UNRESOLVED;^0;6^Q"
^DD(8925.4,.06,1,0)="^.1"
^DD(8925.4,.06,1,1,0)="8925.4^C"
^DD(8925.4,.06,1,1,1)="S ^TIU(8925.4,""C"",$E(X,1,30),DA)="""""
^DD(8925.4,.06,1,1,2)="K ^TIU(8925.4,""C"",$E(X,1,30),DA)"
^DD(8925.4,.06,1,1,"%D",0)="^^2^2^2930610^"
^DD(8925.4,.06,1,1,"%D",1,0)="This REGULAR, whole-file cross-reference is used to identify unresolved"
^DD(8925.4,.06,1,1,"%D",2,0)="errors for the filer/router process."
^DD(8925.4,.06,1,1,"DT")="2930610"
^DD(8925.4,.06,3)="Indicate the resolution status of the filing error."
^DD(8925.4,.06,21,0)="^^2^2^2930609^"
^DD(8925.4,.06,21,1,0)=" "
^DD(8925.4,.06,21,2,0)="This set of codes indicates the resolution status of the error."
^DD(8925.4,.06,"DT")="2950913"
^DD(8925.4,.07,0)="RESOLUTION DATE^D^^0;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.4,.07,3)="Enter the date/time at which the error was resolved."
^DD(8925.4,.07,21,0)="^^2^2^2930609^"
^DD(8925.4,.07,21,1,0)=" "
^DD(8925.4,.07,21,2,0)="This field indicates the date/time at which the error was resolved."
^DD(8925.4,.07,"DT")="2930609"
^DD(8925.4,.08,0)="EVENT TYPE^S^0:Success;1:Filing Error;2:Missing Field Error;^0;8^Q"
^DD(8925.4,.08,1,0)="^.1"
^DD(8925.4,.08,1,1,0)="8925.4^D"
^DD(8925.4,.08,1,1,1)="S ^TIU(8925.4,""D"",$E(X,1,30),DA)="""""
^DD(8925.4,.08,1,1,2)="K ^TIU(8925.4,""D"",$E(X,1,30),DA)"
^DD(8925.4,.08,1,1,"%D",0)="^^2^2^2950913^"
^DD(8925.4,.08,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference by EVENT TYPE is used for list"
^DD(8925.4,.08,1,1,"%D",2,0)="building."
^DD(8925.4,.08,1,1,"DT")="2950913"
^DD(8925.4,.08,3)="Indicate the type of filing event."
^DD(8925.4,.08,21,0)="^^2^2^2950825^^"
^DD(8925.4,.08,21,1,0)="This identifies whether the record was successfully filed, or whether an"
^DD(8925.4,.08,21,2,0)="error occurred."
^DD(8925.4,.08,"DT")="2950913"
^DD(8925.4,.09,0)="DIVISION^P4'^DIC(4,^0;9^Q"
^DD(8925.4,.09,3)="Enter the institution associated with the upload filing event."
^DD(8925.4,.09,21,0)="^^4^4^3010709^"
^DD(8925.4,.09,21,1,0)="This field contains the institution associated with the upload filing"
^DD(8925.4,.09,21,2,0)="event. For TIU DOCUMENT file (#8925) entries, is extracted from the"
^DD(8925.4,.09,21,3,0)="document's hospital location if known; otherwise it is extracted from "
^DD(8925.4,.09,21,4,0)="the user's log-on division."
^DD(8925.4,.09,"DT")="3010709"
^DD(8925.4,1,0)="HEADER TEXT^8925.41^^HEAD;0"
^DD(8925.4,2,0)="MISSING FIELDS^8925.42^^1;0"
^DD(8925.4,2,21,0)="^^2^2^2950830^^"
^DD(8925.4,2,21,1,0)="This multiple is used to store errors where records are successfully filed"
^DD(8925.4,2,21,2,0)="with one or more missing fields."
^DD(8925.4,"B","BUFFER FILE POINTER",.05)=""
^DD(8925.4,"B","DIVISION",.09)=""
^DD(8925.4,"B","DOCUMENT TYPE",.03)=""
^DD(8925.4,"B","ERROR DESCRIPTION",.04)=""
^DD(8925.4,"B","EVENT DATE/TIME",.01)=""
^DD(8925.4,"B","EVENT TYPE",.08)=""
^DD(8925.4,"B","HEADER TEXT",1)=""
^DD(8925.4,"B","MISSING FIELDS",2)=""
^DD(8925.4,"B","RESOLUTION DATE",.07)=""
^DD(8925.4,"B","RESOLUTION STATUS",.06)=""
^DD(8925.4,"B","USER",.02)=""
^DD(8925.4,"GL",0,1,.01)=""
^DD(8925.4,"GL",0,2,.02)=""
^DD(8925.4,"GL",0,3,.03)=""
^DD(8925.4,"GL",0,4,.04)=""
^DD(8925.4,"GL",0,5,.05)=""
^DD(8925.4,"GL",0,6,.06)=""
^DD(8925.4,"GL",0,7,.07)=""
^DD(8925.4,"GL",0,8,.08)=""
^DD(8925.4,"GL",0,9,.09)=""
^DD(8925.4,"GL",1,0,2)=""
^DD(8925.4,"GL","HEAD",0,1)=""
^DD(8925.4,"IX",.01)=""
^DD(8925.4,"IX",.06)=""
^DD(8925.4,"IX",.08)=""
^DD(8925.4,"RQ",.01)=""
^DD(8925.4,"SB",8925.41,1)=""
^DD(8925.4,"SB",8925.42,2)=""
^DD(8925.41,0)="HEADER TEXT SUB-FIELD^^.01^1"
^DD(8925.41,0,"NM","HEADER TEXT")=""
^DD(8925.41,0,"UP")="8925.4"
^DD(8925.41,.01,0)="HEADER TEXT^WL^^0;1^Q"
^DD(8925.41,.01,3)="Enter the contents of the report header"
^DD(8925.41,.01,"DT")="2930820"
^DD(8925.41,"B","HEADER TEXT",.01)=""
^DD(8925.41,"GL",0,1,.01)=""
^DD(8925.42,0)="MISSING FIELDS SUB-FIELD^^.04^4"
^DD(8925.42,0,"DT")="2970526"
^DD(8925.42,0,"IX","B",8925.42,.01)=""
^DD(8925.42,0,"NM","MISSING FIELDS")=""
^DD(8925.42,0,"UP")="8925.4"
^DD(8925.42,.01,0)="FILE NUMBER^MNJ10,2^^0;1^K:+X'=X!(X>9999999.99)!(X<2)!(X?.E1"".""3N.N) X"
^DD(8925.42,.01,1,0)="^.1"
^DD(8925.42,.01,1,1,0)="8925.42^B"
^DD(8925.42,.01,1,1,1)="S ^TIU(8925.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8925.42,.01,1,1,2)="K ^TIU(8925.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8925.42,.01,3)="Type a Number between 2 and 9999999.99, 2 Decimal Digits"
^DD(8925.42,.01,21,0)="^^2^2^2950825^^"
^DD(8925.42,.01,21,1,0)="This is the file number where the record with one or more missing fields"
^DD(8925.42,.01,21,2,0)="was filed."
^DD(8925.42,.01,"DT")="2950825"
^DD(8925.42,.02,0)="RECORD NUMBER^NJ10,0^^0;2^K:+X'=X!(X>1000000000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.42,.02,3)="Type a Number between 1 and 1000000000, 0 Decimal Digits"
^DD(8925.42,.02,21,0)="^.001^2^2^3050330^^"
^DD(8925.42,.02,21,1,0)="This is the internal entry number of the record that was filed with one or"
^DD(8925.42,.02,21,2,0)="more missing fields."
^DD(8925.42,.02,"DT")="3050330"
^DD(8925.42,.03,0)="FIELD NUMBER^NJ10,2^^0;3^K:+X'=X!(X>9999999)!(X<.01)!(X?.E1"".""3N.N) X"
^DD(8925.42,.03,3)="Type a Number between .01 and 9999999, 2 Decimal Digits"
^DD(8925.42,.03,21,0)="^^2^2^2950825^"
^DD(8925.42,.03,21,1,0)="This is the field which was left missing upon filing the record identified"
^DD(8925.42,.03,21,2,0)="in the previous field."
^DD(8925.42,.03,"DT")="2950825"
^DD(8925.42,.04,0)="FAILED VALUE^F^^0;4^K:$L(X)>80!($L(X)<1) X"
^DD(8925.42,.04,3)="Answer must be 1-80 characters in length."
^DD(8925.42,.04,21,0)="^^1^1^2950830^"
^DD(8925.42,.04,21,1,0)="This is the value which the FileMan rejected for the field in question."
^DD(8925.42,.04,"DT")="2970526"
^DD(8925.42,"B","FAILED VALUE",.04)=""
^DD(8925.42,"B","FIELD NUMBER",.03)=""
^DD(8925.42,"B","FILE NUMBER",.01)=""
^DD(8925.42,"B","RECORD NUMBER",.02)=""
^DD(8925.42,"GL",0,1,.01)=""
^DD(8925.42,"GL",0,2,.02)=""
^DD(8925.42,"GL",0,3,.03)=""
^DD(8925.42,"GL",0,4,.04)=""
^DD(8925.42,"IX",.01)=""
^DD(8925.5,0)="FIELD^^3.05^26"
^DD(8925.5,0,"DT")="2970428"
^DD(8925.5,0,"IX","AID",8925.5,3.05)=""
^DD(8925.5,0,"IX","AR",8925.5,.01)=""
^DD(8925.5,0,"IX","AR1",8925.5,1.01)=""
^DD(8925.5,0,"IX","B",8925.5,.01)=""
^DD(8925.5,0,"NM","TIU AUDIT TRAIL")=""
^DD(8925.5,0,"VR")="1.0"
^DD(8925.5,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.5,.01,0)="TIU DOCUMENT NAME^RP8925'^TIU(8925,^0;1^Q"
^DD(8925.5,.01,1,0)="^.1"
^DD(8925.5,.01,1,1,0)="8925.5^B"
^DD(8925.5,.01,1,1,1)="S ^TIU(8925.5,""B"",$E(X,1,30),DA)="""""
^DD(8925.5,.01,1,1,2)="K ^TIU(8925.5,""B"",$E(X,1,30),DA)"
^DD(8925.5,.01,1,2,0)="8925.5^AR^MUMPS"
^DD(8925.5,.01,1,2,1)="I +$G(^TIU(8925.5,+DA,1)) S ^TIU(8925.5,""AR"",+X,+$G(^TIU(8925.5,+DA,1)),+DA)="""""
^DD(8925.5,.01,1,2,2)="I +$G(^TIU(8925.5,+DA,1)) K ^TIU(8925.5,""AR"",+X,+$G(^TIU(8925.5,+DA,1)),+DA)"
^DD(8925.5,.01,1,2,"%D",0)="^^3^3^2970429^"
^DD(8925.5,.01,1,2,"%D",1,0)="This MUMPS-type multi-field cross-reference by TIU Document Pointer and"
^DD(8925.5,.01,1,2,"%D",2,0)="Reassignment date/time will help to identify records that have been"
^DD(8925.5,.01,1,2,"%D",3,0)="reassigned."
^DD(8925.5,.01,1,2,"DT")="2970429"
^DD(8925.5,.01,3)=""
^DD(8925.5,.01,"DT")="2970429"
^DD(8925.5,.02,0)="EDIT DATE/TIME^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.5,.02,"DT")="2941208"
^DD(8925.5,.03,0)="EDITED BY^P200'^VA(200,^0;3^Q"
^DD(8925.5,.03,3)="Please indicate the identity of the person who edited the document"
^DD(8925.5,.03,"DT")="2941215"
^DD(8925.5,.04,0)="INITIAL CHECKSUM^F^^0;4^K:$L(X)>20!($L(X)<2) X"
^DD(8925.5,.04,3)="Answer must be 2-20 characters in length."
^DD(8925.5,.04,"DT")="2941215"
^DD(8925.5,.05,0)="FINAL CHECKSUM^F^^0;5^K:$L(X)>20!($L(X)<2) X"
^DD(8925.5,.05,3)="Answer must be 2-20 characters in length."
^DD(8925.5,.05,"DT")="2941215"
^DD(8925.5,1,0)="PRE-EDIT TEXT^8925.51^^TEXT;0"
^DD(8925.5,1.01,0)="REASSIGNMENT DATE/TIME^D^^1;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.5,1.01,1,0)="^.1"
^DD(8925.5,1.01,1,1,0)="8925.5^AR1^MUMPS"
^DD(8925.5,1.01,1,1,1)="I +$G(^TIU(8925.5,+DA,0)) S ^TIU(8925.5,""AR"",+$G(^TIU(8925.5,+DA,0)),+X,+DA)="""""
^DD(8925.5,1.01,1,1,2)="I +$G(^TIU(8925.5,+DA,0)) K ^TIU(8925.5,""AR"",+$G(^TIU(8925.5,+DA,0)),+X,+DA)"
^DD(8925.5,1.01,1,1,"%D",0)="^^3^3^2970429^"
^DD(8925.5,1.01,1,1,"%D",1,0)="This MUMPS-type multi-field cross-reference by TIU Document Pointer and"
^DD(8925.5,1.01,1,1,"%D",2,0)="Reassignment date/time will help to identify records that have been"
^DD(8925.5,1.01,1,1,"%D",3,0)="reassigned."
^DD(8925.5,1.01,1,1,"DT")="2970429"
^DD(8925.5,1.01,3)="Indicate the date/time at which the document was reassigned"
^DD(8925.5,1.01,21,0)="^^2^2^2970428^"
^DD(8925.5,1.01,21,1,0)="This is the date and time at which the document was reassigned from one"
^DD(8925.5,1.01,21,2,0)="visit to another."
^DD(8925.5,1.01,"DT")="2970429"
^DD(8925.5,1.02,0)="REASSIGNED BY^P200'^VA(200,^1;2^Q"
^DD(8925.5,1.02,3)="Please identify the person who reassigned the document."
^DD(8925.5,1.02,21,0)="^^1^1^2970428^"
^DD(8925.5,1.02,21,1,0)="This is the person who reassigned the document from one visit to another."
^DD(8925.5,1.02,"DT")="2970428"
^DD(8925.5,1.03,0)="INITIAL PATIENT^P2'^DPT(^1;3^Q"
^DD(8925.5,1.03,3)="Please identify the patient that the document was reassigned from"
^DD(8925.5,1.03,21,0)="^^1^1^2970428^"
^DD(8925.5,1.03,21,1,0)="This is the patient from whom the document was reassigned."
^DD(8925.5,1.03,"DT")="2970428"
^DD(8925.5,1.04,0)="FINAL PATIENT^P2'^DPT(^1;4^Q"
^DD(8925.5,1.04,3)="Please identify the patient to whom the document was reassigned"
^DD(8925.5,1.04,21,0)="^^1^1^2970428^"
^DD(8925.5,1.04,21,1,0)="This is the patient to whom the document was reassigned."
^DD(8925.5,1.04,"DT")="2970428"
^DD(8925.5,1.05,0)="INITIAL VISIT DATE/TIME^D^^1;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.5,1.05,3)="Please indicate the date/time of the visit from which the document was reassigned"
^DD(8925.5,1.05,21,0)="^^1^1^2970428^"
^DD(8925.5,1.05,21,1,0)="This is the date/time of the visit from which the document was reassigned."
^DD(8925.5,1.05,"DT")="2970428"
^DD(8925.5,1.06,0)="FINAL VISIT DATE/TIME^D^^1;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.5,1.06,3)="Please indicate the date/time of the visit to which the document was reassigned."
^DD(8925.5,1.06,21,0)="^^2^2^2970428^"
^DD(8925.5,1.06,21,1,0)="This is the date and time of the VISIT to which the document was"
^DD(8925.5,1.06,21,2,0)="reassigned."
^DD(8925.5,1.06,"DT")="2970428"
^DD(8925.5,1.07,0)="INITIAL VISIT LOCATION^P44'^SC(^1;7^Q"
^DD(8925.5,1.07,3)="Please indicate the location of the visit from which the document was reassigned."
^DD(8925.5,1.07,21,0)="^^2^2^2970428^"
^DD(8925.5,1.07,21,1,0)="This is the Hospital Location of the visit from which the document was"
^DD(8925.5,1.07,21,2,0)="reassigned."
^DD(8925.5,1.07,"DT")="2970428"
^DD(8925.5,1.08,0)="FINAL VISIT LOCATION^P44'^SC(^1;8^Q"
^DD(8925.5,1.08,3)="Please indicate the location of the visit to which the document was reassigned."
^DD(8925.5,1.08,21,0)="^^2^2^2970428^"
^DD(8925.5,1.08,21,1,0)="This is the hospital location of the visit to which the document was"
^DD(8925.5,1.08,21,2,0)="reassigned."
^DD(8925.5,1.08,"DT")="2970428"
^DD(8925.5,1.09,0)="INITIAL VISIT TYPE^S^A:ambulatory;H:hospitalization;I:in hospital;T:telecommunications;E:event (historical);^1;9^Q"
^DD(8925.5,1.09,3)="Please indicate the type of the visit from which the document was reassigned"
^DD(8925.5,1.09,21,0)="^^2^2^2970428^"
^DD(8925.5,1.09,21,1,0)="This is the Type, or Service Category, of the visit from which the"
^DD(8925.5,1.09,21,2,0)="document was reassigned."
^DD(8925.5,1.09,"DT")="2970428"
^DD(8925.5,1.1,0)="FINAL VISIT TYPE^S^A:ambulatory;H:hospitalization;I:in hospital;T:telecommunications;E:event (historical);^1;10^Q"
^DD(8925.5,1.1,3)="Please indicate the type of visit to which the document was reassigned."
^DD(8925.5,1.1,21,0)="^^2^2^2970428^"
^DD(8925.5,1.1,21,1,0)="This is the Visit Type or Service Category of the Visit to which the"
^DD(8925.5,1.1,21,2,0)="document was reassigned."
^DD(8925.5,1.1,"DT")="2970428"
^DD(8925.5,1.11,0)="INITIAL VISIT RECORD^P9000010'^AUPNVSIT(^1;11^Q"
^DD(8925.5,1.11,3)="Please indicate the Visit File Entry from which the document was reassigned"
^DD(8925.5,1.11,21,0)="^^2^2^2970428^"
^DD(8925.5,1.11,21,1,0)="This is the pointer to the Visit File (#9000010) entry from which the"
^DD(8925.5,1.11,21,2,0)="document was reassigned."
^DD(8925.5,1.11,"DT")="2970428"
^DD(8925.5,1.12,0)="FINAL VISIT RECORD^P9000010'^AUPNVSIT(^1;12^Q"
^DD(8925.5,1.12,3)="Please indicate the visit entry to which the document was reassigned."
^DD(8925.5,1.12,21,0)="^^2^2^2970428^"
^DD(8925.5,1.12,21,1,0)="This is the pointer to the Visit File (#9000010) entry to which the"
^DD(8925.5,1.12,21,2,0)="document was reassigned."
^DD(8925.5,1.12,"DT")="2970428"
^DD(8925.5,2.01,0)="DELETION DATE/TIME^D^^2;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.5,2.01,3)="Please indicate the date/time at which the document was deleted."
^DD(8925.5,2.01,21,0)="^^1^1^2970428^"
^DD(8925.5,2.01,21,1,0)="This is the date and time at which the document was deleted."
^DD(8925.5,2.01,"DT")="2970428"
^DD(8925.5,2.02,0)="DELETED BY^P200'^VA(200,^2;2^Q"
^DD(8925.5,2.02,3)="Please indicate the person by whom the document was deleted."
^DD(8925.5,2.02,21,0)="^^1^1^2970428^"
^DD(8925.5,2.02,21,1,0)="This is the person by whom the document was deleted."
^DD(8925.5,2.02,"DT")="2970428"
^DD(8925.5,2.03,0)="REASON FOR DELETION^S^P:privacy act;A:administrative;^2;3^Q"
^DD(8925.5,2.03,3)="Please indicate the reason for which the document was deleted."
^DD(8925.5,2.03,21,0)="^^3^3^2970428^"
^DD(8925.5,2.03,21,1,0)="In the event that the document is deleted following signature, indicate"
^DD(8925.5,2.03,21,2,0)="wheter it was deleted per the privacy act, or whether the deletion was"
^DD(8925.5,2.03,21,3,0)="administrative."
^DD(8925.5,2.03,"DT")="2970428"
^DD(8925.5,3.01,0)="INTERDISCIPLINARY NOTE ACTION^S^a:Attachment;d:Detachment;^3;1^Q"
^DD(8925.5,3.01,3)="Indicate the action that was executed"
^DD(8925.5,3.01,21,0)="^.001^2^2^3001115^^"
^DD(8925.5,3.01,21,1,0)="This set of codes describes the action (i.e., Attachment or Detachment)"
^DD(8925.5,3.01,21,2,0)="that was carried out for a given ID Entry."
^DD(8925.5,3.01,"DT")="3001115"
^DD(8925.5,3.02,0)="DATE/TIME OF ACTION^D^^3;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.5,3.02,3)="Indicate the date/time at which the action occurred."
^DD(8925.5,3.02,21,0)="^^2^2^3001115^"
^DD(8925.5,3.02,21,1,0)="This is the Date and Time at which the entry was attached to (or detached"
^DD(8925.5,3.02,21,2,0)="from) its ID Parent."
^DD(8925.5,3.02,"DT")="3001115"
^DD(8925.5,3.03,0)="PERSON^P200'^VA(200,^3;3^Q"
^DD(8925.5,3.03,3)="Indicate the person who performed the action."
^DD(8925.5,3.03,21,0)="^^2^2^3001115^"
^DD(8925.5,3.03,21,1,0)="This is the person who attached the ID Entry to (or detached it from) its"
^DD(8925.5,3.03,21,2,0)="ID Parent."
^DD(8925.5,3.03,"DT")="3001115"
^DD(8925.5,3.04,0)="ID ENTRY STATUS^P8925.6'^TIU(8925.6,^3;4^Q"
^DD(8925.5,3.04,3)="Indicate the STATUS of the ID Entry."
^DD(8925.5,3.04,21,0)="^^1^1^3001115^"
^DD(8925.5,3.04,21,1,0)="This is the STATUS of the Entry at the time of the action."
^DD(8925.5,3.04,"DT")="3001115"
^DD(8925.5,3.05,0)="ID PARENT^P8925'^TIU(8925,^3;5^Q"
^DD(8925.5,3.05,1,0)="^.1"
^DD(8925.5,3.05,1,1,0)="8925.5^AID"
^DD(8925.5,3.05,1,1,1)="S ^TIU(8925.5,""AID"",$E(X,1,30),DA)="""""
^DD(8925.5,3.05,1,1,2)="K ^TIU(8925.5,""AID"",$E(X,1,30),DA)"
^DD(8925.5,3.05,1,1,"%D",0)="^^2^2^3001116^"
^DD(8925.5,3.05,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference on ID PARENT allows easy access to"
^DD(8925.5,3.05,1,1,"%D",2,0)="audit trail events that apply to particular ID PARENT Documents."
^DD(8925.5,3.05,1,1,"DT")="3001116"
^DD(8925.5,3.05,3)="Indicate the ID Parent for the action."
^DD(8925.5,3.05,21,0)="^^1^1^3001115^"
^DD(8925.5,3.05,21,1,0)="This is the ID Parent when the action occurred."
^DD(8925.5,3.05,"DT")="3001116"
^DD(8925.5,"B","DATE/TIME OF ACTION",3.02)=""
^DD(8925.5,"B","DELETED BY",2.02)=""
^DD(8925.5,"B","DELETION DATE/TIME",2.01)=""
^DD(8925.5,"B","EDIT DATE/TIME",.02)=""
^DD(8925.5,"B","EDITED BY",.03)=""
^DD(8925.5,"B","FINAL CHECKSUM",.05)=""
^DD(8925.5,"B","FINAL PATIENT",1.04)=""
^DD(8925.5,"B","FINAL VISIT DATE/TIME",1.06)=""
^DD(8925.5,"B","FINAL VISIT LOCATION",1.08)=""
^DD(8925.5,"B","FINAL VISIT RECORD",1.12)=""
^DD(8925.5,"B","FINAL VISIT TYPE",1.1)=""
^DD(8925.5,"B","ID ENTRY STATUS",3.04)=""
^DD(8925.5,"B","ID PARENT",3.05)=""
^DD(8925.5,"B","INITIAL CHECKSUM",.04)=""
^DD(8925.5,"B","INITIAL PATIENT",1.03)=""
^DD(8925.5,"B","INITIAL VISIT DATE/TIME",1.05)=""
^DD(8925.5,"B","INITIAL VISIT LOCATION",1.07)=""
^DD(8925.5,"B","INITIAL VISIT RECORD",1.11)=""
^DD(8925.5,"B","INITIAL VISIT TYPE",1.09)=""
^DD(8925.5,"B","INTERDISCIPLINARY NOTE ACTION",3.01)=""
^DD(8925.5,"B","PERSON",3.03)=""
^DD(8925.5,"B","PRE-EDIT TEXT",1)=""
^DD(8925.5,"B","REASON FOR DELETION",2.03)=""
^DD(8925.5,"B","REASSIGNED BY",1.02)=""
^DD(8925.5,"B","REASSIGNMENT DATE/TIME",1.01)=""
^DD(8925.5,"B","TIU DOCUMENT NAME",.01)=""
^DD(8925.5,"GL",0,1,.01)=""
^DD(8925.5,"GL",0,2,.02)=""
^DD(8925.5,"GL",0,3,.03)=""
^DD(8925.5,"GL",0,4,.04)=""
^DD(8925.5,"GL",0,5,.05)=""
^DD(8925.5,"GL",1,1,1.01)=""
^DD(8925.5,"GL",1,2,1.02)=""
^DD(8925.5,"GL",1,3,1.03)=""
^DD(8925.5,"GL",1,4,1.04)=""
^DD(8925.5,"GL",1,5,1.05)=""
^DD(8925.5,"GL",1,6,1.06)=""
^DD(8925.5,"GL",1,7,1.07)=""
^DD(8925.5,"GL",1,8,1.08)=""
^DD(8925.5,"GL",1,9,1.09)=""
^DD(8925.5,"GL",1,10,1.1)=""
^DD(8925.5,"GL",1,11,1.11)=""
^DD(8925.5,"GL",1,12,1.12)=""
^DD(8925.5,"GL",2,1,2.01)=""
^DD(8925.5,"GL",2,2,2.02)=""
^DD(8925.5,"GL",2,3,2.03)=""
^DD(8925.5,"GL",3,1,3.01)=""
^DD(8925.5,"GL",3,2,3.02)=""
^DD(8925.5,"GL",3,3,3.03)=""
^DD(8925.5,"GL",3,4,3.04)=""
^DD(8925.5,"GL",3,5,3.05)=""
^DD(8925.5,"GL","TEXT",0,1)=""
^DD(8925.5,"IX",.01)=""
^DD(8925.5,"IX",1.01)=""
^DD(8925.5,"IX",3.05)=""
^DD(8925.5,"RQ",.01)=""
^DD(8925.5,"SB",8925.51,1)=""
^DD(8925.51,0)="PRE-EDIT TEXT SUB-FIELD^^.01^1"
^DD(8925.51,0,"DT")="2941215"
^DD(8925.51,0,"NM","PRE-EDIT TEXT")=""
^DD(8925.51,0,"UP")="8925.5"
^DD(8925.51,.01,0)="PRE-EDIT TEXT^WL^^0;1^Q"
^DD(8925.51,.01,"DT")="2941215"
^DD(8925.51,"B","PRE-EDIT TEXT",.01)=""
^DD(8925.51,"GL",0,1,.01)=""
^DD(8925.6,0)="FIELD^^99.991^8"
^DD(8925.6,0,"DDA")="N"
^DD(8925.6,0,"DT")="2950628"
^DD(8925.6,0,"IX","AVUID",8925.6,99.99)=""
^DD(8925.6,0,"IX","B",8925.6,.01)=""
^DD(8925.6,0,"IX","C",8925.6,.03)=""
^DD(8925.6,0,"NM","TIU STATUS")=""
^DD(8925.6,0,"PT",8925,.05)=""
^DD(8925.6,0,"PT",8925.1,.07)=""
^DD(8925.6,0,"PT",8925.5,3.04)=""
^DD(8925.6,0,"PT",8925.95,.05)=""
^DD(8925.6,0,"PT",8925.951,.04)=""
^DD(8925.6,0,"VR")="1.0"
^DD(8925.6,0,"VRPK")="TIU"
^DD(8925.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1.U) X"
^DD(8925.6,.01,1,0)="^.1"
^DD(8925.6,.01,1,1,0)="8925.6^B"
^DD(8925.6,.01,1,1,1)="S ^TIU(8925.6,""B"",$E(X,1,30),DA)="""""
^DD(8925.6,.01,1,1,2)="K ^TIU(8925.6,""B"",$E(X,1,30),DA)"
^DD(8925.6,.01,3)="Enter 3-30 uppercase characters."
^DD(8925.6,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(8925.6,.01,9)="^"
^DD(8925.6,.01,21,0)="^^2^2^2941012^^"
^DD(8925.6,.01,21,1,0)="This is the status name used in selecting or displaying the status of the"
^DD(8925.6,.01,21,2,0)="document."
^DD(8925.6,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8925.6,.01,"DT")="3060505"
^DD(8925.6,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8925.6,.02,0)="SYMBOL^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(8925.6,.02,3)="Answer must be 1-3 characters in length."
^DD(8925.6,.02,9)="^"
^DD(8925.6,.02,21,0)="^^2^2^2941219^^"
^DD(8925.6,.02,21,1,0)="This is the symbol to be displayed in some applications, which corresponds"
^DD(8925.6,.02,21,2,0)="to the status of the document (e.g., $ may indicate unsigned, etc.)."
^DD(8925.6,.02,"DT")="2941219"
^DD(8925.6,.03,0)="SEQUENCE^NJ3,0^^0;3^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.6,.03,1,0)="^.1"
^DD(8925.6,.03,1,1,0)="8925.6^C"
^DD(8925.6,.03,1,1,1)="S ^TIU(8925.6,""C"",$E(X,1,30),DA)="""""
^DD(8925.6,.03,1,1,2)="K ^TIU(8925.6,""C"",$E(X,1,30),DA)"
^DD(8925.6,.03,1,1,"%D",0)="^^2^2^2940915^"
^DD(8925.6,.03,1,1,"%D",1,0)="This index is used for looking up and sorting document statuses by"
^DD(8925.6,.03,1,1,"%D",2,0)="sequence number. Higher sequence numbers indicate more finished documents."
^DD(8925.6,.03,1,1,"DT")="2940915"
^DD(8925.6,.03,3)="Type a Number between 1 and 200, 0 Decimal Digits"
^DD(8925.6,.03,9)="^"
^DD(8925.6,.03,"DT")="2941219"
^DD(8925.6,.04,0)="APPLIES TO^S^DOCMT:document;DEF:document definition;^0;4^Q"
^DD(8925.6,.04,3)="Enter DOCMT if this status applies to documents; DEF if it applies to document definitions."
^DD(8925.6,.04,9)="^"
^DD(8925.6,.04,"DT")="2950628"
^DD(8925.6,1,0)="DESCRIPTION^8925.61^^1;0"
^DD(8925.6,1,9)="^"
^DD(8925.6,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8925.6,99.98,9)="^"
^DD(8925.6,99.98,21,0)="^^2^2^3050210^"
^DD(8925.6,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8925.6,99.98,21,2,0)="Term/Concept."
^DD(8925.6,99.98,"DT")="3060505"
^DD(8925.6,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(8925.6,99.99,1,0)="^.1"
^DD(8925.6,99.99,1,1,0)="8925.6^AVUID"
^DD(8925.6,99.99,1,1,1)="S ^TIU(8925.6,""AVUID"",$E(X,1,30),DA)="""""
^DD(8925.6,99.99,1,1,2)="K ^TIU(8925.6,""AVUID"",$E(X,1,30),DA)"
^DD(8925.6,99.99,1,1,3)="This cross-reference is by VUID."
^DD(8925.6,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(8925.6,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(8925.6,99.99,1,1,"DT")="3041223"
^DD(8925.6,99.99,3)="Answer must be 1-20 digits in length."
^DD(8925.6,99.99,9)="^"
^DD(8925.6,99.99,21,0)="^.001^2^2^3050210^^"
^DD(8925.6,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(8925.6,99.99,21,2,0)="terms VHA wide."
^DD(8925.6,99.99,"DT")="3060505"
^DD(8925.6,99.991,0)="EFFECTIVE DATE/TIME^8925.699DA^^TERMSTATUS;0"
^DD(8925.6,99.991,9)="^"
^DD(8925.6,99.991,21,0)="^^1^1^3050201^"
^DD(8925.6,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8925.6,99.991,"DT")="3060505"
^DD(8925.6,"B","APPLIES TO",.04)=""
^DD(8925.6,"B","DESCRIPTION",1)=""
^DD(8925.6,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8925.6,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8925.6,"B","NAME",.01)=""
^DD(8925.6,"B","SEQUENCE",.03)=""
^DD(8925.6,"B","SYMBOL",.02)=""
^DD(8925.6,"B","VUID",99.99)=""
^DD(8925.6,"GL",0,1,.01)=""
^DD(8925.6,"GL",0,2,.02)=""
^DD(8925.6,"GL",0,3,.03)=""
^DD(8925.6,"GL",0,4,.04)=""
^DD(8925.6,"GL",1,0,1)=""
^DD(8925.6,"GL","TERMSTATUS",0,99.991)=""
^DD(8925.6,"GL","VUID",1,99.99)=""
^DD(8925.6,"GL","VUID",2,99.98)=""
^DD(8925.6,"IX",.01)=""
^DD(8925.6,"IX",.03)=""
^DD(8925.6,"IX",99.99)=""
^DD(8925.6,"RQ",.01)=""
^DD(8925.6,"RQ",99.98)=""
^DD(8925.6,"RQ",99.99)=""
^DD(8925.6,"SB",8925.61,1)=""
^DD(8925.6,"SB",8925.699,99.991)=""
^DD(8925.61,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8925.61,0,"DT")="2940319"
^DD(8925.61,0,"NM","DESCRIPTION")=""
^DD(8925.61,0,"UP")="8925.6"
^DD(8925.61,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(8925.61,.01,3)="Please describe the usage and/or meaning of this status."
^DD(8925.61,.01,"DT")="2940319"
^DD(8925.61,"B","DESCRIPTION",.01)=""
^DD(8925.61,"GL",0,1,.01)=""
^DD(8925.699,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8925.699,0,"DT")="3050201"
^DD(8925.699,0,"IX","B",8925.699,.01)=""
^DD(8925.699,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(8925.699,0,"UP")="8925.6"
^DD(8925.699,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.699,.01,1,0)="^.1"
^DD(8925.699,.01,1,1,0)="8925.699^B"
^DD(8925.699,.01,1,1,1)="S ^TIU(8925.6,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(8925.699,.01,1,1,2)="K ^TIU(8925.6,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(8925.699,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(8925.699,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(8925.699,.01,9)="^"
^DD(8925.699,.01,21,0)="^^2^2^3050201^"
^DD(8925.699,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8925.699,.01,21,2,0)="established."
^DD(8925.699,.01,"DT")="3060505"
^DD(8925.699,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(8925.699,.02,9)="^"
^DD(8925.699,.02,21,0)="^^4^4^3050201^"
^DD(8925.699,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(8925.699,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8925.699,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(8925.699,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8925.699,.02,"DT")="3060505"
^DD(8925.699,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8925.699,"B","STATUS",.02)=""
^DD(8925.699,"GL",0,1,.01)=""
^DD(8925.699,"GL",0,2,.02)=""
^DD(8925.699,"IX",.01)=""
^DD(8925.699,"RQ",.01)=""
^DD(8925.699,"RQ",.02)=""
^DD(8925.7,0)="FIELD^^.08^9"
^DD(8925.7,0,"DDA")="N"
^DD(8925.7,0,"DT")="3000127"
^DD(8925.7,0,"ID",.03)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^VA(200,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(200,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8925.7,0,"IX","AE",8925.7,.01)=""
^DD(8925.7,0,"IX","AE1",8925.7,.03)=""
^DD(8925.7,0,"IX","B",8925.7,.01)=""
^DD(8925.7,0,"NM","TIU MULTIPLE SIGNATURE")=""
^DD(8925.7,0,"VR")="1.0"
^DD(8925.7,0,"VRPK")="TIU"
^DD(8925.7,.01,0)="TIU DOCUMENT NUMBER^RP8925'^TIU(8925,^0;1^Q"
^DD(8925.7,.01,1,0)="^.1"
^DD(8925.7,.01,1,1,0)="8925.7^B"
^DD(8925.7,.01,1,1,1)="S ^TIU(8925.7,""B"",$E(X,1,30),DA)="""""
^DD(8925.7,.01,1,1,2)="K ^TIU(8925.7,""B"",$E(X,1,30),DA)"
^DD(8925.7,.01,1,2,0)="8925.7^AE^MUMPS"
^DD(8925.7,.01,1,2,1)="I $L($P(^TIU(8925.7,+DA,0),U,3)) S ^TIU(8925.7,""AE"",+X,+$P(^TIU(8925.7,+DA,0),U,3),DA)="""""
^DD(8925.7,.01,1,2,2)="I $L($P(^TIU(8925.7,+DA,0),U,3)) K ^TIU(8925.7,""AE"",+X,+$P(^TIU(8925.7,+DA,0),U,3),DA)"
^DD(8925.7,.01,1,2,"%D",0)="^^2^2^2961127^^"
^DD(8925.7,.01,1,2,"%D",1,0)="This multi-field, MUMPS-type cross-reference by document and expected"
^DD(8925.7,.01,1,2,"%D",2,0)="cosigner facilitates the identification of privilege to sign the document."
^DD(8925.7,.01,1,2,"DT")="2960610"
^DD(8925.7,.01,3)="Please select the document for which this cosignature is expected."
^DD(8925.7,.01,21,0)="^^1^1^2940321^"
^DD(8925.7,.01,21,1,0)="This is the record number in the TIU DOCUMENT FILE (#8925)."
^DD(8925.7,.01,"DT")="3041105"
^DD(8925.7,.02,0)="COSIGNATURE NEEDED^S^1:YES;0:NO;^0;2^Q"
^DD(8925.7,.02,3)="Please indicate whether the cosignature is required."
^DD(8925.7,.02,"DT")="2940418"
^DD(8925.7,.03,0)="EXPECTED SIGNER^*P200'^VA(200,^0;3^S DIC(""S"")=""I +$$SCREEN^TIURA1(+$G(^TIU(8925.7,DA,0)),+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.7,.03,1,0)="^.1^^-1"
^DD(8925.7,.03,1,1,0)="8925.7^AE1^MUMPS"
^DD(8925.7,.03,1,1,1)="I $L($P(^TIU(8925.7,+DA,0),U)) S ^TIU(8925.7,""AE"",+$P(^TIU(8925.7,+DA,0),U),+X,DA)="""""
^DD(8925.7,.03,1,1,2)="I $L($P(^TIU(8925.7,+DA,0),U)) K ^TIU(8925.7,""AE"",+$P(^TIU(8925.7,+DA,0),U),+X,DA)"
^DD(8925.7,.03,1,1,"%D",0)="^^2^2^2961127^^"
^DD(8925.7,.03,1,1,"%D",1,0)="This multi-field, MUMPS-type cross-reference by document and expected"
^DD(8925.7,.03,1,1,"%D",2,0)="cosigner facilitates the identification of privilege to sign the document."
^DD(8925.7,.03,1,1,"DT")="2960610"
^DD(8925.7,.03,3)="Enter the person whom you expect to sign."
^DD(8925.7,.03,12)="Certain persons shouldn't be selected."
^DD(8925.7,.03,12.1)="S DIC(""S"")=""I +$$SCREEN^TIURA1(+$G(^TIU(8925.7,DA,0)),+Y)"""
^DD(8925.7,.03,21,0)="^^1^1^2961127^"
^DD(8925.7,.03,21,1,0)="This is the person who the author expects to sign the document."
^DD(8925.7,.03,"DT")="3041215"
^DD(8925.7,.04,0)="COSIGNATURE DATE/TIME^D^^0;4^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.7,.04,3)="Please enter the date/time of cosignature"
^DD(8925.7,.04,21,0)="^^1^1^2940322^"
^DD(8925.7,.04,21,1,0)="This is the date/time at which the cosignature was obtained."
^DD(8925.7,.04,"DT")="3041105"
^DD(8925.7,.05,0)="ACTUAL COSIGNER^P200'^VA(200,^0;5^Q"
^DD(8925.7,.05,1,0)="^.1"
^DD(8925.7,.05,1,1,0)="^^TRIGGER^8925.7^.09"
^DD(8925.7,.05,1,1,1)="D TRIGGER^TIU199"
^DD(8925.7,.05,1,1,2)="Q"
^DD(8925.7,.05,1,1,"CREATE VALUE")="NO EFFECT"
^DD(8925.7,.05,1,1,"DELETE VALUE")="NO EFFECT"
^DD(8925.7,.05,1,1,"DT")="3050706"
^DD(8925.7,.05,1,1,"FIELD")="SIGNED BY SURROGATE"
^DD(8925.7,.05,3)="Please indicate the user who actually cosigned the document."
^DD(8925.7,.05,21,0)="^.001^4^4^3050831^^"
^DD(8925.7,.05,21,1,0)="This field contains the person who actually signed for this Additional "
^DD(8925.7,.05,21,2,0)="Signer. This field will trigger field .09 (Signed by Surrogate). That "
^DD(8925.7,.05,21,3,0)="trigger will check if the Actual Co-signer is a surrogate for the Expected"
^DD(8925.7,.05,21,4,0)="Signer. If so the .09 field will be set to 1. If not it will be set to 0."
^DD(8925.7,.05,"DT")="3050706"
^DD(8925.7,.06,0)="COSIGNER'S SIGNATURE BLOCK^F^^0;6^K:$L(X)>60!($L(X)<3) X"
^DD(8925.7,.06,3)="Answer must be 3-60 characters in length"
^DD(8925.7,.06,"DT")="3000126"
^DD(8925.7,.07,0)="COSIGNER'S TITLE^F^^0;7^K:$L(X)>60!($L(X)<2) X"
^DD(8925.7,.07,3)="Answer must be 2-60 characters in length"
^DD(8925.7,.07,"DT")="3000126"
^DD(8925.7,.08,0)="COSIGNATURE MODE^S^E:electronic;C:chart;^0;8^Q"
^DD(8925.7,.08,3)="Please indicate the method by which cosignature was obtained."
^DD(8925.7,.08,"DT")="2940322"
^DD(8925.7,.09,0)="SIGNED BY SURROGATE^S^0:NO;1:YES;^0;9^Q"
^DD(8925.7,.09,5,1,0)="8925.7^.05^1"
^DD(8925.7,.09,21,0)="^^6^6^3050718^"
^DD(8925.7,.09,21,1,0)="This field is set by a trigger on the .05 field (ACTUAL COSIGNER). The "
^DD(8925.7,.09,21,2,0)="trigger will check if the actual cosigner is a surrogate for the expected "
^DD(8925.7,.09,21,3,0)="signer at the time of signing. If so this field will be set to 1. If "
^DD(8925.7,.09,21,4,0)="not it will be set to 0. This will enable other processes to know if the "
^DD(8925.7,.09,21,5,0)="Additional Signer was signed by a surrogate as the assignment of the "
^DD(8925.7,.09,21,6,0)="surrogate is temporary and cannot be checked at a later date."
^DD(8925.7,.09,"DT")="3050706"
^DD(8925.7,"B","ACTUAL COSIGNER",.05)=""
^DD(8925.7,"B","COSIGNATURE DATE/TIME",.04)=""
^DD(8925.7,"B","COSIGNATURE MODE",.08)=""
^DD(8925.7,"B","COSIGNATURE NEEDED",.02)=""
^DD(8925.7,"B","COSIGNER'S SIGNATURE BLOCK",.06)=""
^DD(8925.7,"B","COSIGNER'S TITLE",.07)=""
^DD(8925.7,"B","EXPECTED SIGNER",.03)=""
^DD(8925.7,"B","SIGNED BY SURROGATE",.09)=""
^DD(8925.7,"B","TIU DOCUMENT NUMBER",.01)=""
^DD(8925.7,"GL",0,1,.01)=""
^DD(8925.7,"GL",0,2,.02)=""
^DD(8925.7,"GL",0,3,.03)=""
^DD(8925.7,"GL",0,4,.04)=""
^DD(8925.7,"GL",0,5,.05)=""
^DD(8925.7,"GL",0,6,.06)=""
^DD(8925.7,"GL",0,7,.07)=""
^DD(8925.7,"GL",0,8,.08)=""
^DD(8925.7,"GL",0,9,.09)=""
^DD(8925.7,"IX",.01)=""
^DD(8925.7,"IX",.03)=""
^DD(8925.7,"IX",.05)=""
^DD(8925.7,"RQ",.01)=""
^DD(8925.8,0)="FIELD^^99^7"
^DD(8925.8,0,"DT")="2950927"
^DD(8925.8,0,"IX","AM",8925.8,99)=""
^DD(8925.8,0,"IX","AM1",8925.8,.03)=""
^DD(8925.8,0,"IX","B",8925.8,.01)=""
^DD(8925.8,0,"IX","C",8925.8,.02)=""
^DD(8925.8,0,"NM","TIU SEARCH CATEGORIES")=""
^DD(8925.8,0,"VR")="1.0"
^DD(8925.8,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.8,.01,0)="SEARCH CATEGORY^RFO^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8925.8,.01,1,0)="^.1"
^DD(8925.8,.01,1,1,0)="8925.8^B"
^DD(8925.8,.01,1,1,1)="S ^TIU(8925.8,""B"",$E(X,1,30),DA)="""""
^DD(8925.8,.01,1,1,2)="K ^TIU(8925.8,""B"",$E(X,1,30),DA)"
^DD(8925.8,.01,2)="S Y(0)=Y S Y=$$MIXED^TIULS(Y)"
^DD(8925.8,.01,2.1)="S Y=$$MIXED^TIULS(Y)"
^DD(8925.8,.01,3)="Answer must be 3-30 characters in length."
^DD(8925.8,.01,21,0)="^^4^4^2950616^^"
^DD(8925.8,.01,21,1,0)="These are the allowable categories by which you may query for documents "
^DD(8925.8,.01,21,2,0)="(e.g., PATIENT, AUTHOR, EXPECTED COSIGNER, TREATING SPECIALTY, HOSPITAL "
^DD(8925.8,.01,21,3,0)="LOCATION, SUBJECT, SERVICE, PROBLEM, PATIENT STATUS (i.e., "
^DD(8925.8,.01,21,4,0)="Inpatient/Outpatient), etc.)."
^DD(8925.8,.01,"DT")="2950616"
^DD(8925.8,.02,0)="CROSS-REFERENCE^FX^^0;2^K:$L(X)>10!($L(X)<1)!('$D(^TIU(8925,X))) X"
^DD(8925.8,.02,1,0)="^.1"
^DD(8925.8,.02,1,1,0)="8925.8^C"
^DD(8925.8,.02,1,1,1)="S ^TIU(8925.8,""C"",$E(X,1,30),DA)="""""
^DD(8925.8,.02,1,1,2)="K ^TIU(8925.8,""C"",$E(X,1,30),DA)"
^DD(8925.8,.02,1,1,"%D",0)="^^2^2^2950927^"
^DD(8925.8,.02,1,1,"%D",1,0)="This REGULAR FileMan cross-reference is used to map SEARCH CATEGORY to"
^DD(8925.8,.02,1,1,"%D",2,0)="CROSS REFERENCE."
^DD(8925.8,.02,1,1,"DT")="2950927"
^DD(8925.8,.02,3)="Answer must correspond to a valid x-ref in file 8925."
^DD(8925.8,.02,21,0)="^^9^9^2950616^^"
^DD(8925.8,.02,21,1,0)="This is the cross-reference which will be searched to identify the "
^DD(8925.8,.02,21,2,0)="corrresponding documents.  It must have the structure:"
^DD(8925.8,.02,21,3,0)=""
^DD(8925.8,.02,21,4,0)="^TIU(8925,""<X-REF NAME>"",ENTITY,DOCTYP,STATUS,INVDATE,IEN)="""""
^DD(8925.8,.02,21,6,0)="where ENTITY is the object of the search, DOCTYPE is the .01 field"
^DD(8925.8,.02,21,7,0)="value of the record in 8925, STATUS is the value of the .05 field in"
^DD(8925.8,.02,21,8,0)="8925, and inverse date is the inverted reference date (field 1301 in"
^DD(8925.8,.02,21,9,0)="file 8925), computed as 9999999-REFDATE."
^DD(8925.8,.02,"DT")="2950927"
^DD(8925.8,.03,0)="DISPLAY NAME^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(8925.8,.03,1,0)="^.1"
^DD(8925.8,.03,1,1,0)="8925.8^AM1^MUMPS"
^DD(8925.8,.03,1,1,1)="D REDO^TIUDD8"
^DD(8925.8,.03,1,1,2)="D REDO^TIUDD8"
^DD(8925.8,.03,1,1,"%D",0)="^^2^2^2950927^"
^DD(8925.8,.03,1,1,"%D",1,0)="This MUMPS-type cross-reference is used to update the timestamp on the"
^DD(8925.8,.03,1,1,"%D",2,0)="search category selection menu when a DISPLAY NAME changes."
^DD(8925.8,.03,1,1,"DT")="2950927"
^DD(8925.8,.03,3)="Answer must be 3-30 characters in length."
^DD(8925.8,.03,21,0)="^^2^2^2950616^"
^DD(8925.8,.03,21,1,0)="This is the name of the Search Category as it will be displayed to the"
^DD(8925.8,.03,21,2,0)="user on selection."
^DD(8925.8,.03,"DT")="2950927"
^DD(8925.8,.04,0)="ASSOCIATED FILE^P1'^DIC(^0;4^Q"
^DD(8925.8,.04,3)="Select the file to which the category will refer."
^DD(8925.8,.04,21,0)="^^3^3^2950927^"
^DD(8925.8,.04,21,1,0)="This is the file on which a look-up will occur in the event that a"
^DD(8925.8,.04,21,2,0)="category is selected (e.g., for category PATIENT, the file should be 2,"
^DD(8925.8,.04,21,3,0)="and for category AUTHOR, the file should be 200)."
^DD(8925.8,.04,"DT")="2950927"
^DD(8925.8,1,0)="SCREEN^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.8,1,3)="This is Standard MUMPS code."
^DD(8925.8,1,9)="@"
^DD(8925.8,1,21,0)="^^2^2^2950927^"
^DD(8925.8,1,21,1,0)="This is MUMPS code, which sets the special variable DIC(""S""), prior to"
^DD(8925.8,1,21,2,0)="invoking the look-up on the FILE identified with the category."
^DD(8925.8,1,"DT")="2950927"
^DD(8925.8,2,0)="LOOK-UP CODE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.8,2,3)="This is Standard MUMPS code."
^DD(8925.8,2,9)="@"
^DD(8925.8,2,21,0)="^^2^2^2950927^"
^DD(8925.8,2,21,1,0)="This code is invoked, if defined, and should behave like a call to ^DIC,"
^DD(8925.8,2,21,2,0)="setting the variable Y as IFN^VALUE."
^DD(8925.8,2,"DT")="2950927"
^DD(8925.8,99,0)="TIMESTAMP^F^^99;1^K:$L(X)>15!($L(X)<1) X"
^DD(8925.8,99,1,0)="^.1"
^DD(8925.8,99,1,1,0)="8925.8^AM^MUMPS"
^DD(8925.8,99,1,1,1)="D SET^TIUDD8"
^DD(8925.8,99,1,1,2)="D KILL^TIUDD8"
^DD(8925.8,99,1,1,"%D",0)="^^2^2^2950630^^"
^DD(8925.8,99,1,1,"%D",1,0)="This cross-reference invokes menu compilation in ^XUTL(""XQORM"","
^DD(8925.8,99,1,1,"%D",2,0)="DA;TIU(8925.8, when the TIMESTAMP field is modified."
^DD(8925.8,99,1,1,"DT")="2950630"
^DD(8925.8,99,3)="Enter the $HOROLOG date/time of a change."
^DD(8925.8,99,21,0)="^^2^2^2950616^"
^DD(8925.8,99,21,1,0)="This field stores the $HOROLOG-formatted date/time for a change to a"
^DD(8925.8,99,21,2,0)="Search Categories entry."
^DD(8925.8,99,"DT")="2950616"
^DD(8925.8,"B","ASSOCIATED FILE",.04)=""
^DD(8925.8,"B","CROSS-REFERENCE",.02)=""
^DD(8925.8,"B","DISPLAY NAME",.03)=""
^DD(8925.8,"B","LOOK-UP CODE",2)=""
^DD(8925.8,"B","SCREEN",1)=""
^DD(8925.8,"B","SEARCH CATEGORY",.01)=""
^DD(8925.8,"B","TIMESTAMP",99)=""
^DD(8925.8,"GL",0,1,.01)=""
^DD(8925.8,"GL",0,2,.02)=""
^DD(8925.8,"GL",0,3,.03)=""
^DD(8925.8,"GL",0,4,.04)=""
^DD(8925.8,"GL",1,"E1,245",1)=""
^DD(8925.8,"GL",2,"E1,245",2)=""
^DD(8925.8,"GL",99,1,99)=""
^DD(8925.8,"IX",.01)=""
^DD(8925.8,"IX",.02)=""
^DD(8925.8,"IX",.03)=""
^DD(8925.8,"IX",99)=""
^DD(8925.8,"RQ",.01)=""
^DD(8925.9,0)="FIELD^^.06^6"
^DD(8925.9,0,"DDA")="N"
^DD(8925.9,0,"DT")="2950316"
^DD(8925.9,0,"IX","APRB",8925.9,.01)=""
^DD(8925.9,0,"IX","APRB1",8925.9,.05)=""
^DD(8925.9,0,"IX","B",8925.9,.01)=""
^DD(8925.9,0,"NM","TIU PROBLEM LINK")=""
^DD(8925.9,0,"VR")="1.0"
^DD(8925.9,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.9,.01,0)="DOCUMENT^RP8925'^TIU(8925,^0;1^Q"
^DD(8925.9,.01,1,0)="^.1"
^DD(8925.9,.01,1,1,0)="8925.9^B"
^DD(8925.9,.01,1,1,1)="S ^TIU(8925.9,""B"",$E(X,1,30),DA)="""""
^DD(8925.9,.01,1,1,2)="K ^TIU(8925.9,""B"",$E(X,1,30),DA)"
^DD(8925.9,.01,1,2,0)="8925.9^APRB^MUMPS"
^DD(8925.9,.01,1,2,1)="I +$P($G(^TIU(8925,+X,0)),U),+$P($G(^TIU(8925,+X,0)),U,5),+$P($G(^TIU(8925,+X,13)),U) D APRBS^TIUDD(+$G(^TIU(8925,+X,0)),+$P(^TIU(8925,+X,0),U,5),(9999999-+$G(^TIU(8925,+X,13))),X)"
^DD(8925.9,.01,1,2,2)="I +$P($G(^TIU(8925,+X,0)),U),+$P($G(^TIU(8925,+X,0)),U,5),+$P($G(^TIU(8925,+X,13)),U) D APRBK^TIUDD(+$G(^TIU(8925,+X,0)),+$P(^TIU(8925,+X,0),U,5),(9999999-+$G(^TIU(8925,+X,13))),X)"
^DD(8925.9,.01,1,2,"%D",0)="^^2^2^2950928^^^"
^DD(8925.9,.01,1,2,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Problem, Document type,"
^DD(8925.9,.01,1,2,"%D",2,0)="Status, and Inverse Reference Date/time facilitates query by problem"
^DD(8925.9,.01,1,2,"DT")="2950928"
^DD(8925.9,.01,3)="Select document."
^DD(8925.9,.01,21,0)="^^1^1^2950302^"
^DD(8925.9,.01,21,1,0)="This is the document which is to be associated with one or more problems."
^DD(8925.9,.01,"DT")="2950928"
^DD(8925.9,.02,0)="PROBLEM^P9000011'^AUPNPROB(^0;2^Q"
^DD(8925.9,.02,3)="Select Problem."
^DD(8925.9,.02,21,0)="^^1^1^2950302^"
^DD(8925.9,.02,21,1,0)="This is the problem with which the document is associated."
^DD(8925.9,.02,"DT")="2950302"
^DD(8925.9,.03,0)="PURPOSE OF VISIT^P9000010.07'^AUPNVPOV(^0;3^Q"
^DD(8925.9,.03,3)="Specify the Purpose of visit to be associated with this document."
^DD(8925.9,.03,21,0)="^^2^2^2950316^"
^DD(8925.9,.03,21,1,0)="This is the specific Purpose of Visit with which this document is to be"
^DD(8925.9,.03,21,2,0)="associated."
^DD(8925.9,.03,"DT")="2950316"
^DD(8925.9,.04,0)="CLINICAL TERM^P757.01'^LEX(757.01,^0;4^Q"
^DD(8925.9,.04,3)="Indicate the clinical term to which the problem/pov is linked."
^DD(8925.9,.04,21,0)="^^2^2^2950316^"
^DD(8925.9,.04,21,1,0)="This is the ""expression"" from the clinical lexicon, which identifies the"
^DD(8925.9,.04,21,2,0)="problem or purpose of visit to which the document is linked."
^DD(8925.9,.04,"DT")="2950316"
^DD(8925.9,.05,0)="PROVIDER NARRATIVE^F^^0;5^K:$L(X)>80!($L(X)<2) X"
^DD(8925.9,.05,1,0)="^.1"
^DD(8925.9,.05,1,1,0)="8925.9^APRB1^MUMPS"
^DD(8925.9,.05,1,1,1)="I +$G(^TIU(8925,+$G(^TIU(8925.9,+DA,0)),0)),+$P($G(^(0)),U,5),+$P($G(^(13)),U) D APRBS^TIUDD(+$G(^TIU(8925,+$G(^TIU(8925.9,+DA,0)),0)),+$P(^(0),U,5),(9999999-+$G(^(13))),+$G(^TIU(8925.9,+DA,0)),X)"
^DD(8925.9,.05,1,1,2)="I +$G(^TIU(8925,+$G(^TIU(8925.9,+DA,0)),0)),+$P($G(^(0)),U,5),+$P($G(^(13)),U) D APRBS^TIUDD(+$G(^TIU(8925,+$G(^TIU(8925.9,+DA,0)),0)),+$P(^(0),U,5),(9999999-+$G(^(13))),+$G(^TIU(8925.9,+DA,0)),X)"
^DD(8925.9,.05,1,1,"%D",0)="^^2^2^2950928^"
^DD(8925.9,.05,1,1,"%D",1,0)="This MUMPS-type, multi-field cross-reference by Problem, Document type,"
^DD(8925.9,.05,1,1,"%D",2,0)="Status, and Inverse Reference Date/time facilitates query by problem."
^DD(8925.9,.05,1,1,"DT")="2950928"
^DD(8925.9,.05,3)="Narrative description of the problem as expressed by the provider."
^DD(8925.9,.05,21,0)="^^2^2^2950316^^"
^DD(8925.9,.05,21,1,0)="This is the narrative description of the problem/POV as expressed by"
^DD(8925.9,.05,21,2,0)="the provider at the time of formulation."
^DD(8925.9,.05,"DT")="2950928"
^DD(8925.9,.06,0)="ICD9 DIAGNOSIS^P80'^ICD9(^0;6^Q"
^DD(8925.9,.06,3)="This is the ICD9-CM diagnosis for the Problem/Purpose of Visit."
^DD(8925.9,.06,21,0)="^^3^3^2950316^^"
^DD(8925.9,.06,21,1,0)="This is the diagnosis associated with the Problem/POV, as encoded in the"
^DD(8925.9,.06,21,2,0)="International Classification of Diseases, 9th Revision/Clinical "
^DD(8925.9,.06,21,3,0)="Modification."
^DD(8925.9,.06,"DT")="2950316"
^DD(8925.9,"B","CLINICAL TERM",.04)=""
^DD(8925.9,"B","DOCUMENT",.01)=""
^DD(8925.9,"B","ICD9 DIAGNOSIS",.06)=""
^DD(8925.9,"B","PROBLEM",.02)=""
^DD(8925.9,"B","PROVIDER NARRATIVE",.05)=""
^DD(8925.9,"B","PURPOSE OF VISIT",.03)=""
^DD(8925.9,"GL",0,1,.01)=""
^DD(8925.9,"GL",0,2,.02)=""
^DD(8925.9,"GL",0,3,.03)=""
^DD(8925.9,"GL",0,4,.04)=""
^DD(8925.9,"GL",0,5,.05)=""
^DD(8925.9,"GL",0,6,.06)=""
^DD(8925.9,"IX",.01)=""
^DD(8925.9,"IX",.05)=""
^DD(8925.9,"RQ",.01)=""
^DD(8925.91,0)="FIELD^^1^3"
^DD(8925.91,0,"DDA")="N"
^DD(8925.91,0,"DT")="2990122"
^DD(8925.91,0,"IX","ADI",8925.91,.01)=""
^DD(8925.91,0,"IX","ADI02",8925.91,.02)=""
^DD(8925.91,0,"IX","AID",8925.91,.01)=""
^DD(8925.91,0,"IX","AID02",8925.91,.02)=""
^DD(8925.91,0,"IX","B",8925.91,.01)=""
^DD(8925.91,0,"NM","TIU EXTERNAL DATA LINK")=""
^DD(8925.91,0,"VR")="1.0"
^DD(8925.91,0,"VRPK")="TIU"
^DD(8925.91,.01,0)="DOCUMENT^RP8925'^TIU(8925,^0;1^Q"
^DD(8925.91,.01,1,0)="^.1"
^DD(8925.91,.01,1,1,0)="8925.91^B"
^DD(8925.91,.01,1,1,1)="S ^TIU(8925.91,""B"",$E(X,1,30),DA)="""""
^DD(8925.91,.01,1,1,2)="K ^TIU(8925.91,""B"",$E(X,1,30),DA)"
^DD(8925.91,.01,1,2,0)="8925.91^ADI^MUMPS"
^DD(8925.91,.01,1,2,1)="I +$P(^TIU(8925.91,+DA,0),U,2) S ^TIU(8925.91,""ADI"",+X,+$P(^TIU(8925.91,+DA,0),U,2),+DA)="""""
^DD(8925.91,.01,1,2,2)="I +$P(^TIU(8925.91,+DA,0),U,2) K ^TIU(8925.91,""ADI"",+X,+$P(^TIU(8925.91,+DA,0),U,2),+DA)"
^DD(8925.91,.01,1,2,"%D",0)="^^3^3^2990122^"
^DD(8925.91,.01,1,2,"%D",1,0)="This multi-field, MUMPS-type cross-reference by document and image helps to "
^DD(8925.91,.01,1,2,"%D",2,0)="identify duplicate links, and to find the images associated with any "
^DD(8925.91,.01,1,2,"%D",3,0)="particular document."
^DD(8925.91,.01,1,2,"DT")="2990122"
^DD(8925.91,.01,1,3,0)="8925.91^AID^MUMPS"
^DD(8925.91,.01,1,3,1)="I +$P(^TIU(8925.91,+DA,0),U,2) S ^TIU(8925.91,""AID"",+$P(^TIU(8925.91,+DA,0),U,2),+X,+DA)="""""
^DD(8925.91,.01,1,3,2)="I +$P(^TIU(8925.91,+DA,0),U,2) K ^TIU(8925.91,""AID"",+$P(^TIU(8925.91,+DA,0),U,2),+X,+DA)"
^DD(8925.91,.01,1,3,"%D",0)="^^3^3^2990122^"
^DD(8925.91,.01,1,3,"%D",1,0)="This multi-field, MUMPS-type cross-reference by image and document helps to "
^DD(8925.91,.01,1,3,"%D",2,0)="identify duplicate links, and to find the documents associated with any "
^DD(8925.91,.01,1,3,"%D",3,0)="particular image."
^DD(8925.91,.01,1,3,"DT")="2990122"
^DD(8925.91,.01,3)="Select the document you wish to link."
^DD(8925.91,.01,21,0)="^^1^1^2960426^"
^DD(8925.91,.01,21,1,0)="This is the Document for which the linkage is being made."
^DD(8925.91,.01,"DT")="2990122"
^DD(8925.91,.02,0)="IMAGE^P2005'^MAG(2005,^0;2^Q"
^DD(8925.91,.02,1,0)="^.1"
^DD(8925.91,.02,1,1,0)="8925.91^ADI02^MUMPS"
^DD(8925.91,.02,1,1,1)="I +$P(^TIU(8925.91,+DA,0),U) S ^TIU(8925.91,""ADI"",+$P(^TIU(8925.91,+DA,0),U),+X,+DA)="""""
^DD(8925.91,.02,1,1,2)="I +$P(^TIU(8925.91,+DA,0),U) K ^TIU(8925.91,""ADI"",+$P(^TIU(8925.91,+DA,0),U),+X,+DA)"
^DD(8925.91,.02,1,1,"%D",0)="^^3^3^2990122^"
^DD(8925.91,.02,1,1,"%D",1,0)="This multi-field, MUMPS-type cross-reference by document and image helps to "
^DD(8925.91,.02,1,1,"%D",2,0)="identify duplicate links, and to find the images associated with any "
^DD(8925.91,.02,1,1,"%D",3,0)="particular document."
^DD(8925.91,.02,1,1,"DT")="2990122"
^DD(8925.91,.02,1,2,0)="8925.91^AID02^MUMPS"
^DD(8925.91,.02,1,2,1)="I +$P(^TIU(8925.91,+DA,0),U) S ^TIU(8925.91,""AID"",+X,+$P(^TIU(8925.91,+DA,0),U),+DA)="""""
^DD(8925.91,.02,1,2,2)="I +$P(^TIU(8925.91,+DA,0),U) K ^TIU(8925.91,""AID"",+X,+$P(^TIU(8925.91,+DA,0),U),+DA)"
^DD(8925.91,.02,1,2,"%D",0)="^^3^3^2990122^"
^DD(8925.91,.02,1,2,"%D",1,0)="This multi-field, MUMPS-type cross-reference by image and document helps to "
^DD(8925.91,.02,1,2,"%D",2,0)="identify duplicate links, and to find the documents associated with any "
^DD(8925.91,.02,1,2,"%D",3,0)="particular image."
^DD(8925.91,.02,1,2,"DT")="2990122"
^DD(8925.91,.02,3)="Indicate the Image with which the document is linked"
^DD(8925.91,.02,21,0)="^^1^1^2990122^"
^DD(8925.91,.02,21,1,0)="This is the pointer to the image file."
^DD(8925.91,.02,"DT")="2990122"
^DD(8925.91,1,0)="LINKED DATA OBJECT^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(8925.91,1,3)="Answer must be 1-245 characters in length."
^DD(8925.91,1,21,0)="^^3^3^2960426^"
^DD(8925.91,1,21,1,0)="This is the external data object to be linked to the selected document."
^DD(8925.91,1,21,2,0)="You may specify a path to a fileserver, and a filename for the object"
^DD(8925.91,1,21,3,0)="(e.g., VA1$:[IMAGES]JR042696.BMP, or i:\images\jr042696.bmp, etc."
^DD(8925.91,1,"DT")="2960426"
^DD(8925.91,"B","DOCUMENT",.01)=""
^DD(8925.91,"B","IMAGE",.02)=""
^DD(8925.91,"B","LINKED DATA OBJECT",1)=""
^DD(8925.91,"GL",0,1,.01)=""
^DD(8925.91,"GL",0,2,.02)=""
^DD(8925.91,"GL",1,1,1)=""
^DD(8925.91,"IX",.01)=""
^DD(8925.91,"IX",.02)=""
^DD(8925.91,"RQ",.01)=""
^DD(8925.93,0)="FIELD^^3^5"
^DD(8925.93,0,"DT")="2960213"
^DD(8925.93,0,"IX","B",8925.93,.01)=""
^DD(8925.93,0,"NM","TIU PRINT PARAMETERS")=""
^DD(8925.93,0,"VR")="1.0"
^DD(8925.93,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.93,.01,0)="HOSPITAL LOCATION^RP44'^SC(^0;1^Q"
^DD(8925.93,.01,1,0)="^.1"
^DD(8925.93,.01,1,1,0)="8925.93^B"
^DD(8925.93,.01,1,1,1)="S ^TIU(8925.93,""B"",$E(X,1,30),DA)="""""
^DD(8925.93,.01,1,1,2)="K ^TIU(8925.93,""B"",$E(X,1,30),DA)"
^DD(8925.93,.01,3)="Please specify the Hospital Location."
^DD(8925.93,.01,21,0)="^^1^1^2951026^^"
^DD(8925.93,.01,21,1,0)="This is the Hospital Location to which the parameters apply."
^DD(8925.93,.01,"DT")="2951026"
^DD(8925.93,1.01,0)="PROGRESS NOTES^S^1:YES;^1;1^Q"
^DD(8925.93,1.01,3)="Answer '1' or 'YES' to enable"
^DD(8925.93,1.01,21,0)="^^4^4^2960213^^"
^DD(8925.93,1.01,21,1,0)="This field should be set to 'YES' to enable batch printing of progress"
^DD(8925.93,1.01,21,2,0)="notes from the [TIU PRINT PN WARD] and [TIU PRINT PN OUPT LOC] options."
^DD(8925.93,1.01,21,3,0)="These options are intended to be used by MAS personnel printing CHART"
^DD(8925.93,1.01,21,4,0)="copies."
^DD(8925.93,1.01,23,0)="^^2^2^2960213^"
^DD(8925.93,1.01,23,1,0)="This field is a parameter used by the TIU progress notes print options"
^DD(8925.93,1.01,23,2,0)="to enable batch printing of PNs for a specific location."
^DD(8925.93,1.01,"DT")="2960213"
^DD(8925.93,1.02,0)="LAST PROGRESS NOTE PRINTED^F^^1;2^K:$L(X)>30!($L(X)<9) X"
^DD(8925.93,1.02,3)="Answer must be 9-30 characters in length."
^DD(8925.93,1.02,21,0)="^^3^3^2960213^^^"
^DD(8925.93,1.02,21,1,0)="This field is used to track the last progress note printed for this"
^DD(8925.93,1.02,21,2,0)="location.  The option resets this field after each print.  If the field"
^DD(8925.93,1.02,21,3,0)="is null the option will prompt to select a date."
^DD(8925.93,1.02,23,0)="^^5^5^2960213^^"
^DD(8925.93,1.02,23,1,0)="This field is set by the routines batch printing progress notes.  It"
^DD(8925.93,1.02,23,2,0)="serves as the starting point for the next batch.  This also serves as"
^DD(8925.93,1.02,23,3,0)="the default starting point for the user to select the date range."
^DD(8925.93,1.02,23,4,0)="the format of the field is:  DATE/TIME;IEN This information corresponds"
^DD(8925.93,1.02,23,5,0)="to the last 2 subscripts in the x-refs used for prting notes."
^DD(8925.93,1.02,"DT")="2960213"
^DD(8925.93,1.03,0)="PROGRESS NOTES DEFAULT PRINTER^P3.5'^%ZIS(1,^1;3^Q"
^DD(8925.93,1.03,3)="Enter the printer you would like to come up as the default"
^DD(8925.93,1.03,21,0)="^^4^4^2960213^"
^DD(8925.93,1.03,21,1,0)="This field is a pointer to the device file.  The default the site"
^DD(8925.93,1.03,21,2,0)="would like to have presented when batch using the TIU progress notes"
^DD(8925.93,1.03,21,3,0)="batch print options [TIU PRINT PN OUTPT LOC] and [TIU PRINT PN WARD]."
^DD(8925.93,1.03,21,4,0)="The user may select another printer at the time to job is queued."
^DD(8925.93,1.03,23,0)="^^3^3^2960213^"
^DD(8925.93,1.03,23,1,0)="This field is used to bring up the default printer for the user when"
^DD(8925.93,1.03,23,2,0)="using the TIU progress notes batch print options.  Each location will"
^DD(8925.93,1.03,23,3,0)="set up the printer most often used for that location."
^DD(8925.93,1.03,"DT")="2960213"
^DD(8925.93,3,0)="EXCLUDE FROM PN BATCH PRINT^S^1:YES;^3;1^Q"
^DD(8925.93,3,3)="Enter '1' to exclude this location from the Progress Notes batch print."
^DD(8925.93,3,21,0)="^^4^4^2970103^^^^"
^DD(8925.93,3,21,1,0)="If you answer yes to this prompt, progress notes for this location will not be included in"
^DD(8925.93,3,21,2,0)="the progress notes outpatient batch print job [TIU PRINT PN BATCH]."
^DD(8925.93,3,21,3,0)="Do this if you want to print the CHART copies of the notes for this location"
^DD(8925.93,3,21,4,0)="in the clinic and not in the file room."
^DD(8925.93,3,23,0)="^^2^2^2970103^^^"
^DD(8925.93,3,23,1,0)="Setting this parameter will exclude progress notes for this location from"
^DD(8925.93,3,23,2,0)="the batch print job."
^DD(8925.93,3,"DT")="2960213"
^DD(8925.93,"B","EXCLUDE FROM PN BATCH PRINT",3)=""
^DD(8925.93,"B","HOSPITAL LOCATION",.01)=""
^DD(8925.93,"B","LAST PROGRESS NOTE PRINTED",1.02)=""
^DD(8925.93,"B","PROGRESS NOTES",1.01)=""
^DD(8925.93,"B","PROGRESS NOTES DEFAULT PRINTER",1.03)=""
^DD(8925.93,"GL",0,1,.01)=""
^DD(8925.93,"GL",1,1,1.01)=""
^DD(8925.93,"GL",1,2,1.02)=""
^DD(8925.93,"GL",1,3,1.03)=""
^DD(8925.93,"GL",3,1,3)=""
^DD(8925.93,"IX",.01)=""
^DD(8925.93,"RQ",.01)=""
^DD(8925.94,0)="FIELD^^1.02^4"
^DD(8925.94,0,"DDA")="N"
^DD(8925.94,0,"DT")="2960221"
^DD(8925.94,0,"IX","B",8925.94,.01)=""
^DD(8925.94,0,"NM","TIU DIVISION PRINT PARAMETERS")=""
^DD(8925.94,0,"VR")="1.0"
^DD(8925.94,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.94,.01,0)="DIVISION^RP40.8'^DG(40.8,^0;1^Q"
^DD(8925.94,.01,1,0)="^.1"
^DD(8925.94,.01,1,1,0)="8925.94^B"
^DD(8925.94,.01,1,1,1)="S ^TIU(8925.94,""B"",$E(X,1,30),DA)="""""
^DD(8925.94,.01,1,1,2)="K ^TIU(8925.94,""B"",$E(X,1,30),DA)"
^DD(8925.94,.01,3)="Select the DIVISION these print parameters apply to."
^DD(8925.94,.01,21,0)="^^4^4^2960228^^"
^DD(8925.94,.01,21,1,0)="Division these print parameters will apply to when printing outpatient"
^DD(8925.94,.01,21,2,0)="Progress Notes for the terminal digit sort for.  Notes for all location"
^DD(8925.94,.01,21,3,0)="under this division will print unless they are excepted in the TIU PRINT"
^DD(8925.94,.01,21,4,0)="PARAMETERS (#8925.93) file, field #3."
^DD(8925.94,.01,23,0)="^^3^3^2960228^^"
^DD(8925.94,.01,23,1,0)="Pointer to the Medical Center Division File.  Sites should establish an"
^DD(8925.94,.01,23,2,0)="entry for each division they desire to batch print outpatient progress"
^DD(8925.94,.01,23,3,0)="notes or forms using the TIU package."
^DD(8925.94,.01,"DT")="2960221"
^DD(8925.94,.02,0)="LOCATION TO PRINT ON FOOTER^F^^0;2^K:$L(X)>26!($L(X)<3) X"
^DD(8925.94,.02,3)="Answer must be 3-26 characters in length."
^DD(8925.94,.02,21,0)="^^6^6^2960221^^"
^DD(8925.94,.02,21,1,0)="The name of this division as it should apear in the footer of the progress"
^DD(8925.94,.02,21,2,0)="notes and forms printed using the terminal digit outpatient sort.  This is"
^DD(8925.94,.02,21,3,0)="useful for sites that want something other than what the external value of"
^DD(8925.94,.02,21,4,0)="this division retirned by $$SITE^VASITE.  For example, the Waco division"
^DD(8925.94,.02,21,5,0)="of the Central Texas Health Care System may want Central Texas HCS- Waco"
^DD(8925.94,.02,21,6,0)="to appear in the footer instead of WACO VAMC."
^DD(8925.94,.02,23,0)="^^3^3^2960221^"
^DD(8925.94,.02,23,1,0)="If this field is not entered the external value returned by $$SITE^VASITE"
^DD(8925.94,.02,23,2,0)="for this division will be used.  This field allows the site to customize"
^DD(8925.94,.02,23,3,0)="the site's name in the footer of progress notes and forms."
^DD(8925.94,.02,"DT")="2960221"
^DD(8925.94,1.01,0)="LAST PROGRESS NOTE PRINTED^D^^1;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.94,1.01,21,0)="^^5^5^2960221^"
^DD(8925.94,1.01,21,1,0)="This field keeps track of the DATE/TIME of the LAST progress note printed"
^DD(8925.94,1.01,21,2,0)="using the outpatient batch print by terminal digit sort.  At the"
^DD(8925.94,1.01,21,3,0)="completion of the print job the DATE/TIME the job begins calculating"
^DD(8925.94,1.01,21,4,0)="will be set into this field.  This value will be used as the starting"
^DD(8925.94,1.01,21,5,0)="point for the next batch of notes."
^DD(8925.94,1.01,23,0)="^^4^4^2960221^^"
^DD(8925.94,1.01,23,1,0)="The fileman DATE/TIME that corresponds to the time the outpatient batch"
^DD(8925.94,1.01,23,2,0)="print option was invoked will be set into this field at the time the job"
^DD(8925.94,1.01,23,3,0)="completes.  This wil be the suggested starting point for the next batch to"
^DD(8925.94,1.01,23,4,0)="print."
^DD(8925.94,1.01,"DT")="2960221"
^DD(8925.94,1.02,0)="PROGRESS NOTES BATCH PRINTER^P3.5'^%ZIS(1,^1;2^Q"
^DD(8925.94,1.02,21,0)="^^2^2^2960222^"
^DD(8925.94,1.02,21,1,0)="This printer will be presented as the default when the outpatient terminal"
^DD(8925.94,1.02,21,2,0)="digit print option is interactively invoked. "
^DD(8925.94,1.02,23,0)="^^2^2^2960222^^"
^DD(8925.94,1.02,23,1,0)="Pointer to the device file.  Expected device for the outpatient progress"
^DD(8925.94,1.02,23,2,0)="notes sort by terminal digit."
^DD(8925.94,1.02,"DT")="2960221"
^DD(8925.94,"B","DIVISION",.01)=""
^DD(8925.94,"B","LAST PROGRESS NOTE PRINTED",1.01)=""
^DD(8925.94,"B","LOCATION TO PRINT ON FOOTER",.02)=""
^DD(8925.94,"B","PROGRESS NOTES BATCH PRINTER",1.02)=""
^DD(8925.94,"GL",0,1,.01)=""
^DD(8925.94,"GL",0,2,.02)=""
^DD(8925.94,"GL",1,1,1.01)=""
^DD(8925.94,"GL",1,2,1.02)=""
^DD(8925.94,"IX",.01)=""
^DD(8925.94,"RQ",.01)=""
^DD(8925.95,0)="FIELD^^5^34"
^DD(8925.95,0,"DDA")="N"
^DD(8925.95,0,"DT")="3030130"
^DD(8925.95,0,"IX","B",8925.95,.01)=""
^DD(8925.95,0,"NM","TIU DOCUMENT PARAMETERS")=""
^DD(8925.95,0,"VR")="1.0"
^DD(8925.95,0,"VRPK")="TIU"
^DD(8925.95,.01,0)="DOCUMENT DEFINITION^RP8925.1'^TIU(8925.1,^0;1^Q"
^DD(8925.95,.01,1,0)="^.1"
^DD(8925.95,.01,1,1,0)="8925.95^B"
^DD(8925.95,.01,1,1,1)="S ^TIU(8925.95,""B"",$E(X,1,30),DA)="""""
^DD(8925.95,.01,1,1,2)="K ^TIU(8925.95,""B"",$E(X,1,30),DA)"
^DD(8925.95,.01,3)="Choose the document definition to which these parameters apply."
^DD(8925.95,.01,21,0)="^^7^7^2990628^"
^DD(8925.95,.01,21,1,0)="This is the Document Definition to which the parameters apply."
^DD(8925.95,.01,21,2,0)=" "
^DD(8925.95,.01,21,3,0)="NOTE: All parameters are inherited from ancestor Classes or Document"
^DD(8925.95,.01,21,4,0)="Classes, unless overridden at a subordinate level in the document"
^DD(8925.95,.01,21,5,0)="definition hierarchy. (For example, if you Require Release for class"
^DD(8925.95,.01,21,6,0)="Progress Notes, then all progress note titles require release, unless the"
^DD(8925.95,.01,21,7,0)="parameter is set to NO for a subordinate Document Class or Title.)"
^DD(8925.95,.01,"DT")="2950630"
^DD(8925.95,.02,0)="REQUIRE RELEASE^S^1:YES;0:NO;^0;2^Q"
^DD(8925.95,.02,3)="Indicate whether or not release is required."
^DD(8925.95,.02,21,0)="^^6^6^2990628^"
^DD(8925.95,.02,21,1,0)="This parameter determines whether the person entering the document is"
^DD(8925.95,.02,21,2,0)="required (and prompted) to release the document from a draft state upon"
^DD(8925.95,.02,21,3,0)="exit from the entry/editing process."
^DD(8925.95,.02,21,4,0)=" "
^DD(8925.95,.02,21,5,0)="Though designed for Discharge Summaries, release may be used for any"
^DD(8925.95,.02,21,6,0)="kind of TIU document."
^DD(8925.95,.02,"DT")="2950630"
^DD(8925.95,.03,0)="REQUIRE MAS VERIFICATION^S^1:YES, ALWAYS;0:NO;2:UPLOAD ONLY;3:DIRECT ENTRY ONLY;^0;3^Q"
^DD(8925.95,.03,3)="Indicate whether and when verification is required."
^DD(8925.95,.03,21,0)="^^16^16^3030121^^"
^DD(8925.95,.03,21,1,0)="This parameter determines whether verification by MAS is required, prior"
^DD(8925.95,.03,21,2,0)="to public access and signature of the document."
^DD(8925.95,.03,21,3,0)=" "
^DD(8925.95,.03,21,4,0)="Though designed for Discharge Summaries, verification may be used for"
^DD(8925.95,.03,21,5,0)="any kind of TIU document, and is particularly helpful for documents that"
^DD(8925.95,.03,21,6,0)="are uploaded from a transcription service."
^DD(8925.95,.03,21,7,0)=" "
^DD(8925.95,.03,21,8,0)="Allowable values are:  0       NO"
^DD(8925.95,.03,21,9,0)="                       1       YES, ALWAYS"
^DD(8925.95,.03,21,10,0)="                       2       UPLOAD ONLY"
^DD(8925.95,.03,21,11,0)="                       3       DIRECT ENTRY ONLY"
^DD(8925.95,.03,21,12,0)=" "
^DD(8925.95,.03,21,13,0)="where 1 indicates that these documents require verification regardless"
^DD(8925.95,.03,21,14,0)="of how they originate; 2 indicates that verification is required only "
^DD(8925.95,.03,21,15,0)="when the documents are Uploaded; and 3 indicates that verification is "
^DD(8925.95,.03,21,16,0)="required only when documents are entered directly into VISTA."
^DD(8925.95,.03,"DT")="3030121"
^DD(8925.95,.04,0)="REQUIRE AUTHOR TO SIGN^S^1:YES;0:NO;^0;4^Q"
^DD(8925.95,.04,3)="Indicate whether the author must sign the document."
^DD(8925.95,.04,21,0)="^^11^11^3021118^^"
^DD(8925.95,.04,21,1,0)="This field indicates whether or not the author should sign the "
^DD(8925.95,.04,21,2,0)="document before the expected cosigner (attending)."
^DD(8925.95,.04,21,3,0)=" "
^DD(8925.95,.04,21,4,0)="If parameter is set to NO, only the expected cosigner is alerted "
^DD(8925.95,.04,21,5,0)="for signature. Although the unsigned document appears in the "
^DD(8925.95,.04,21,6,0)="author's unsigned list, and he is ALLOWED to sign it, his signature "
^DD(8925.95,.04,21,7,0)="is not REQUIRED."
^DD(8925.95,.04,21,8,0)=" "
^DD(8925.95,.04,21,9,0)="If set to YES, then the author is alerted for signature, and if the"
^DD(8925.95,.04,21,10,0)="expected cosigner should attempt to sign the document first, he is"
^DD(8925.95,.04,21,11,0)="informed that the author has not yet signed."
^DD(8925.95,.04,"DT")="3021118"
^DD(8925.95,.05,0)="WHEN MAY CHART COPY BE PRINTED^P8925.6'^TIU(8925.6,^0;5^Q"
^DD(8925.95,.05,3)="Indicate when a chart copy may be printed."
^DD(8925.95,.05,21,0)="^^5^5^2990712^"
^DD(8925.95,.05,21,1,0)="OUT OF SERVICE.   Printing for a given status is governed by business"
^DD(8925.95,.05,21,2,0)="rules."
^DD(8925.95,.05,21,3,0)=" "
^DD(8925.95,.05,21,4,0)="Indicate the status which a document must attain before it can be printed"
^DD(8925.95,.05,21,5,0)="for the chart."
^DD(8925.95,.05,"DT")="2950630"
^DD(8925.95,.06,0)="ROUTINE PRINT EVENT(S)^S^R:release;V:verification;B:both;^0;6^Q"
^DD(8925.95,.06,3)="Indicate on which event(s) chart copies should be printed."
^DD(8925.95,.06,21,0)="^^18^18^3030121^^"
^DD(8925.95,.06,21,1,0)="A document of the given type, and of ROUTINE urgency, is automatically"
^DD(8925.95,.06,21,2,0)="printed whenever one of these events occurs."
^DD(8925.95,.06,21,3,0)=" "
^DD(8925.95,.06,21,4,0)="For example, a site may specify that ROUTINE documents print only upon"
^DD(8925.95,.06,21,5,0)="Completion (i.e., signature or cosignature), while STAT documents print"
^DD(8925.95,.06,21,6,0)="upon Release from Transcription, MAS Verification, or both, in addition"
^DD(8925.95,.06,21,7,0)="to printing upon completion."
^DD(8925.95,.06,21,8,0)=" "
^DD(8925.95,.06,21,9,0)="If print events are not specified, and a CHART COPY DEVICE is defined "
^DD(8925.95,.06,21,10,0)="for the Medical Center Division, then the document will be auto-printed"
^DD(8925.95,.06,21,11,0)="only upon completion."
^DD(8925.95,.06,21,12,0)=" "
^DD(8925.95,.06,21,13,0)="If field MANUAL PRINT AFTER ENTRY is set to YES, then auto-print is"
^DD(8925.95,.06,21,14,0)="ignored entirely."
^DD(8925.95,.06,21,15,0)=" "
^DD(8925.95,.06,21,16,0)="If urgency is not specified for some document, then its urgency is"
^DD(8925.95,.06,21,17,0)="considered to be routine, and the document prints when a routine print"
^DD(8925.95,.06,21,18,0)="event occurs."
^DD(8925.95,.06,"DT")="3030121"
^DD(8925.95,.07,0)="STAT PRINT EVENT(S)^S^R:release;V:verification;B:both;^0;7^Q"
^DD(8925.95,.07,3)="Indicate the event(s) on which STAT documents will be printed."
^DD(8925.95,.07,21,0)="^^2^2^3030121^^^"
^DD(8925.95,.07,21,1,0)="This field is identical to ROUTINE PRINT EVENT(S), except that it"
^DD(8925.95,.07,21,2,0)="applies to documents of STAT urgency rather than ROUTINE urgency."
^DD(8925.95,.07,"DT")="3030121"
^DD(8925.95,.08,0)="MANUAL PRINT AFTER ENTRY^S^1:YES;0:NO;^0;8^Q"
^DD(8925.95,.08,3)="Specify whether user should be asked to print after entry."
^DD(8925.95,.08,21,0)="^^5^5^3030121^^^"
^DD(8925.95,.08,21,1,0)="This parameter is used for documents where a manually-printed hard copy"
^DD(8925.95,.08,21,2,0)="is desired following document entry. If the parameter is set to YES, the"
^DD(8925.95,.08,21,3,0)="user is prompted to print a copy on exit from their preferred editor,"
^DD(8925.95,.08,21,4,0)="and auto-printing (as described in fields ROUTINE/STAT PRINT EVENT(S))"
^DD(8925.95,.08,21,5,0)="is ignored."
^DD(8925.95,.08,"DT")="3030121"
^DD(8925.95,.09,0)="ALLOW CHART PRINT OUTSIDE MAS^S^1:YES;0:NO;^0;9^Q"
^DD(8925.95,.09,3)="Indicate whether non-MAS personnel may print CHART COPIES."
^DD(8925.95,.09,21,0)="^^10^10^3030121^^"
^DD(8925.95,.09,21,1,0)="This field determines whether non-MAS users (for example, providers) are"
^DD(8925.95,.09,21,2,0)="asked if they want WORK copies or CHART copies when they print a"
^DD(8925.95,.09,21,3,0)="document.  If the field is NOT set to YES, they are not asked, and the"
^DD(8925.95,.09,21,4,0)="printout is a WORK copy."
^DD(8925.95,.09,21,5,0)=" "
^DD(8925.95,.09,21,6,0)="Generally, this is set to YES for PROGRESS NOTES, which are likely to be"
^DD(8925.95,.09,21,7,0)="printed on the Ward or in the Clinic for immediate inclusion in the"
^DD(8925.95,.09,21,8,0)="chart.  For DISCHARGE SUMMARIES, which are typically printed centrally,"
^DD(8925.95,.09,21,9,0)="it is usually set to NO, since duplicate CHART COPIES are a particular "
^DD(8925.95,.09,21,10,0)="problem."
^DD(8925.95,.09,"DT")="3030121"
^DD(8925.95,.1,0)="ALLOW >1 RECORDS PER VISIT^S^1:YES;0:NO;^0;10^Q"
^DD(8925.95,.1,3)="Indicate whether the user may enter more than one of these per visit."
^DD(8925.95,.1,21,0)="^^4^4^3030121^^"
^DD(8925.95,.1,21,1,0)="This field determines whether a given document may be created more than"
^DD(8925.95,.1,21,2,0)="once per visit.  For example, it is often appropriate to enter multiple"
^DD(8925.95,.1,21,3,0)="PROGRESS NOTES for a single HOSPITALIZATION or CLINIC VISIT, whereas"
^DD(8925.95,.1,21,4,0)="only one DISCHARGE SUMMARY is usually entered per HOSPITALIZATION."
^DD(8925.95,.1,"DT")="3030121"
^DD(8925.95,.11,0)="ENABLE IRT INTERFACE^S^0:NO;1:YES;^0;11^Q"
^DD(8925.95,.11,3)="Please indicate whether IRT Interface should be enabled."
^DD(8925.95,.11,21,0)="^^8^8^3030121^^"
^DD(8925.95,.11,21,1,0)="This enables TIU's interface with Incomplete Record Tracking (IRT),"
^DD(8925.95,.11,21,2,0)="which updates IRT's deficiencies when transcription, signature,"
^DD(8925.95,.11,21,3,0)="or cosignature events are registered for a given document."
^DD(8925.95,.11,21,4,0)=" "
^DD(8925.95,.11,21,5,0)="NOTE: IRT is designed for DISCHARGE SUMMARIES, and is appropriate"
^DD(8925.95,.11,21,6,0)="only for types of documents where only one document is expected per "
^DD(8925.95,.11,21,7,0)="patient movement. We therefore ask you to leave this parameter"
^DD(8925.95,.11,21,8,0)="undefined (or set it to NO) for PROGRESS NOTES."
^DD(8925.95,.11,"DT")="3030121"
^DD(8925.95,.12,0)="IRT DEFICIENCY^*P393.3'^VAS(393.3,^0;12^S DIC(""S"")=""I +$P(^VAS(393.3,+Y,0),U,7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.95,.12,3)="Please indicate the IRT DEFICIENCY that corresponds to this document"
^DD(8925.95,.12,12)="Only TRACKED DEFICIENCIES may be selected."
^DD(8925.95,.12,12.1)="S DIC(""S"")=""I +$P(^VAS(393.3,+Y,0),U,7)"""
^DD(8925.95,.12,21,0)="^^3^3^2990628^"
^DD(8925.95,.12,21,1,0)="This field provides a mapping between the TIU DOCUMENT DEFINITION and "
^DD(8925.95,.12,21,2,0)="the corresponding IRT DEFICIENCY TYPE.  For example, TIU Class DISCHARGE"
^DD(8925.95,.12,21,3,0)="SUMMARY maps to IRT Deficiency Type DISCHARGE SUMMARY."
^DD(8925.95,.12,"DT")="2951206"
^DD(8925.95,.13,0)="DEFAULT PRINTER^P3.5'^%ZIS(1,^0;13^Q"
^DD(8925.95,.13,3)="Please select the default printer for this document."
^DD(8925.95,.13,21,0)="^^4^4^2990712^"
^DD(8925.95,.13,21,1,0)="NOT IN SERVICE."
^DD(8925.95,.13,21,2,0)=" "
^DD(8925.95,.13,21,3,0)="When a user prints a document of the given type and is prompted for"
^DD(8925.95,.13,21,4,0)="DEVICE, this serves as the default."
^DD(8925.95,.13,"DT")="2960306"
^DD(8925.95,.14,0)="SUPPRESS DX/CPT ON ENTRY^S^1:YES;0:NO;^0;14^Q"
^DD(8925.95,.14,3)="Indicate whether to suppress Dx & CPT questions for the Visit following signature."
^DD(8925.95,.14,21,0)="^^15^15^3030121^^"
^DD(8925.95,.14,21,1,0)="This parameter applies only to documents for outpatient care. Together"
^DD(8925.95,.14,21,2,0)="with parameter ASK DX/CPT ON ALL OPT VISITS, it determines whether or"
^DD(8925.95,.14,21,3,0)="not a user is prompted for diagnoses and procedures after signing or "
^DD(8925.95,.14,21,4,0)="editing a document."
^DD(8925.95,.14,21,5,0)=" "
^DD(8925.95,.14,21,6,0)="If this parameter is set to YES (for suppress), the user is not "
^DD(8925.95,.14,21,7,0)="prompted for this information. "
^DD(8925.95,.14,21,8,0)=" "
^DD(8925.95,.14,21,9,0)="If this parameter is set to NO or is blank, the user may or may not"
^DD(8925.95,.14,21,10,0)="be prompted, depending on the type of visit and on parameter "
^DD(8925.95,.14,21,11,0)="ASK DX/CPT ON ALL OPT VISITS."
^DD(8925.95,.14,21,12,0)=" "
^DD(8925.95,.14,21,13,0)="If a site elects to suppress diagnoses and procedures, the site must"
^DD(8925.95,.14,21,14,0)="capture this information by some other means (such as an AICS encounter"
^DD(8925.95,.14,21,15,0)="form), in order to receive workload credit for these visits."
^DD(8925.95,.14,"DT")="3030121"
^DD(8925.95,.15,0)="FORCE RESPONSE TO EXPOSURES^S^1:YES;0:NO;^0;15^Q"
^DD(8925.95,.15,3)="Indicate whether a response is required on SC Classification."
^DD(8925.95,.15,21,0)="^^3^3^2990628^^"
^DD(8925.95,.15,21,1,0)="When set to YES, this parameter forces the user to respond when asked to"
^DD(8925.95,.15,21,2,0)="specify a veteran's Service Connection Classification (AO, IR, or EC),"
^DD(8925.95,.15,21,3,0)="when creating a standalone visit."
^DD(8925.95,.15,"DT")="2990108"
^DD(8925.95,.16,0)="ASK DX/CPT ON ALL OPT VISITS^S^1:YES;0:NO;^0;16^Q"
^DD(8925.95,.16,3)="Indicate whether Dx/CPT should be asked for APPOINTMENTS & STANDALONE Visits alike."
^DD(8925.95,.16,21,0)="^^10^10^3030121^^"
^DD(8925.95,.16,21,1,0)="This parameter applies only to documents for outpatient care, and is"
^DD(8925.95,.16,21,2,0)="IGNORED if SUPPRESS DX/CPT ON ENTRY is set to YES."
^DD(8925.95,.16,21,3,0)=" "
^DD(8925.95,.16,21,4,0)="If DX/CPT prompts are NOT suppressed, and ASK DX/CPT ON ALL OPT VISITS"
^DD(8925.95,.16,21,5,0)="is set to YES, the user is prompted for DX/CPT information for "
^DD(8925.95,.16,21,6,0)="scheduled as well as unscheduled (stand-alone) visits."
^DD(8925.95,.16,21,7,0)=" "
^DD(8925.95,.16,21,8,0)="If DX/CPT prompts are NOT suppressed, and ASK DX/CPT ON ALL OPT VISITS"
^DD(8925.95,.16,21,9,0)="is set to NO, the user is prompted for DX/CPT information for "
^DD(8925.95,.16,21,10,0)="unscheduled visits ONLY."
^DD(8925.95,.16,"DT")="3030121"
^DD(8925.95,.17,0)="SEND ALERTS ON ADDENDA^S^1:YES;0:NO;^0;17^Q"
^DD(8925.95,.17,3)="Should the AUTHOR (& COSIGNER) be alerted on addenda?"
^DD(8925.95,.17,21,0)="^^9^9^3021205^^^"
^DD(8925.95,.17,21,1,0)="This parameter determines whether AUTHORS and COSIGNERS of a document"
^DD(8925.95,.17,21,2,0)="of this kind (and any of its descendent types) will receive an "
^DD(8925.95,.17,21,3,0)="informational alert when addenda are added by other persons."
^DD(8925.95,.17,21,4,0)=""
^DD(8925.95,.17,21,5,0)="The addendum must be in a COMPLETED or AMENDED status for an alert to"
^DD(8925.95,.17,21,6,0)="be generated."
^DD(8925.95,.17,21,7,0)=""
^DD(8925.95,.17,21,8,0)="Like all document parameters, it may be overridden at descendent "
^DD(8925.95,.17,21,9,0)="levels of the Document Definition Hierarchy. DEFAULT is NO."
^DD(8925.95,.17,"DT")="3021205"
^DD(8925.95,.18,0)="ORDER ID ENTRIES BY TITLE^S^1:YES;0:NO;^0;18^Q"
^DD(8925.95,.18,3)="To display/print interdisciplinary child entries alphabetically by title under the parent entry, answer YES.  Otherwise they are ordered by date."
^DD(8925.95,.18,21,0)="^^9^9^3030121^^"
^DD(8925.95,.18,21,1,0)="This prompt applies only to notes with interdisciplinary entries under"
^DD(8925.95,.18,21,2,0)="them."
^DD(8925.95,.18,21,3,0)=" "
^DD(8925.95,.18,21,4,0)="When an ID note is displayed or printed, the child entries are normally"
^DD(8925.95,.18,21,5,0)="ordered by reference date under the parent entry. In some cases it may "
^DD(8925.95,.18,21,6,0)="be preferable to order them alphabetically by title. If this parameter "
^DD(8925.95,.18,21,7,0)="is set to YES, child entries are displayed by title rather than by date."
^DD(8925.95,.18,21,8,0)=" "
^DD(8925.95,.18,21,9,0)="The default order is by date."
^DD(8925.95,.18,"DT")="3030121"
^DD(8925.95,.19,0)="SEND ALERTS ON NEW ID ENTRY^S^1:YES;0:NO;^0;19^Q"
^DD(8925.95,.19,3)="Should the signer (cosigner) of an interdisciplinary parent note be alerted when a new entry is added to the note?"
^DD(8925.95,.19,21,0)="^^7^7^3030121^^^"
^DD(8925.95,.19,21,1,0)="This parameter applies only to interdisciplinary parent notes."
^DD(8925.95,.19,21,2,0)=" "
^DD(8925.95,.19,21,3,0)="If this parameter is set to YES, the signer (cosigner) of an"
^DD(8925.95,.19,21,4,0)="interdisciplinary parent note is alerted when a new entry is added "
^DD(8925.95,.19,21,5,0)="to the note."
^DD(8925.95,.19,21,6,0)=" "
^DD(8925.95,.19,21,7,0)="The default is NO."
^DD(8925.95,.19,"DT")="3030121"
^DD(8925.95,.2,0)="SEND COSIGNATURE ALERT^S^0:After Author has SIGNED;1:Immediately;^0;20^Q"
^DD(8925.95,.2,3)="Specify when the alert for cosignature should be sent"
^DD(8925.95,.2,21,0)="^^2^2^3030130^^^"
^DD(8925.95,.2,21,1,0)="This parameter controls the sequence in which alerts are sent to the"
^DD(8925.95,.2,21,2,0)="expected cosigner of a document. Allowable choices are:"
^DD(8925.95,.2,"DT")="3030130"
^DD(8925.95,1,0)="PROCESSING STEPS^8925.951P^^1;0"
^DD(8925.95,1,21,0)="^^1^1^2991020^"
^DD(8925.95,1,21,1,0)="OUT OF SERVICE"
^DD(8925.95,2,0)="DIVISION^8925.952P^^2;0"
^DD(8925.95,2,21,0)="^^5^5^2991020^^"
^DD(8925.95,2,21,1,0)="Parameters CHART COPY PRINTER and STAT CHART COPY PRINTER may be"
^DD(8925.95,2,21,2,0)="independently defined according to Medical Center Division."
^DD(8925.95,2,21,3,0)=" "
^DD(8925.95,2,21,4,0)="Please indicate the Medical Center Division for which these"
^DD(8925.95,2,21,5,0)="parameters are being defined."
^DD(8925.95,3,0)="EDITOR SET-UP CODE^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.95,3,3)="This is Standard MUMPS code."
^DD(8925.95,3,9)="@"
^DD(8925.95,3,21,0)="^^8^8^3030121^^^"
^DD(8925.95,3,21,1,0)="This is M code which is executed prior to invoking the user's preferred"
^DD(8925.95,3,21,2,0)="editor.  It ordinarily sets local variables, which are then used in the"
^DD(8925.95,3,21,3,0)="editor's header, etc."
^DD(8925.95,3,21,4,0)=" "
^DD(8925.95,3,21,5,0)="For example, code written at Boston VAMC sets a local array containing"
^DD(8925.95,3,21,6,0)="patient demographics.  An M-based editor used at the site can then "
^DD(8925.95,3,21,7,0)="display demographic information in a fixed header when a user edits a "
^DD(8925.95,3,21,8,0)="document."
^DD(8925.95,3,"DT")="3030121"
^DD(8925.95,4,0)="FILING ERROR ALERT RECIPIENTS^8925.954P^^4;0"
^DD(8925.95,4,21,0)="^^13^13^3030121^^^"
^DD(8925.95,4,21,1,0)="These persons receive alerts from the upload filer process when a "
^DD(8925.95,4,21,2,0)="document of the given type cannot be filed/located, or has a missing "
^DD(8925.95,4,21,3,0)="field."
^DD(8925.95,4,21,4,0)=" "
^DD(8925.95,4,21,5,0)="If a document being uploaded has a missing/bad title, then alert"
^DD(8925.95,4,21,6,0)="recipients defined at the title level cannot be found.  In this case,"
^DD(8925.95,4,21,7,0)="recipients named at the class level are alerted. For example, if a"
^DD(8925.95,4,21,8,0)="Progress Note is being uploaded and has a missing/bad title, then "
^DD(8925.95,4,21,9,0)="Progress Note-level recipients are alerted."
^DD(8925.95,4,21,10,0)=" "
^DD(8925.95,4,21,11,0)="If recipients are not specified, then alert recipients named in "
^DD(8925.95,4,21,12,0)="parameter UPLOAD ERROR ALERT RECIPIENTS in the TIU PARAMETER file are "
^DD(8925.95,4,21,13,0)="alerted as defaults."
^DD(8925.95,5,0)="USERS REQUIRING COSIGNATURE^8925.955P^^5;0"
^DD(8925.95,5,21,0)="^^10^10^3030121^^"
^DD(8925.95,5,21,1,0)="Applies to all types of documents EXCEPT DISCHARGE SUMMARIES."
^DD(8925.95,5,21,2,0)=" "
^DD(8925.95,5,21,3,0)="Please indicate which groups of users (i.e., User Classes) require"
^DD(8925.95,5,21,4,0)="cosignature for the type of document in question.  For example, "
^DD(8925.95,5,21,5,0)="STUDENTS, INTERNS, LPNs, and other user classes may be identified as "
^DD(8925.95,5,21,6,0)="requiring a cosignature for PROGRESS NOTES."
^DD(8925.95,5,21,7,0)=" "
^DD(8925.95,5,21,8,0)="NOTE: Independent of this parameter, DISCHARGE SUMMARIES ALWAYS "
^DD(8925.95,5,21,9,0)="require cosignature by the ATTENDING PHYSICIAN, EXCEPT when the "
^DD(8925.95,5,21,10,0)="ATTENDING PHYSICIAN dictates the summary himself."
^DD(8925.95,6,0)="HEADING^8925.956^^6;0"
^DD(8925.95,6,"DT")="3070426"
^DD(8925.95,7,0)="FOOTER^8925.957^^7;0"
^DD(8925.95,8,0)="CLOSING^8925.958^^8;0"
^DD(8925.95,8,"DT")="3070329"
^DD(8925.95,9.01,0)="JUSTIFY HEADING^S^LJ:LEFT JUSTIFIED;CJ:CENTER JUSTIFIED;RJ:RIGHT JUSTIFIED;^9;1^Q"
^DD(8925.95,9.01,3)="Select where to display the HEADING."
^DD(8925.95,9.01,"DT")="3070511"
^DD(8925.95,9.02,0)="JUSTIFY FOOTER^S^LJ:LEFT JUSTIFY;CJ:CENTER JUSTIFY;RJ:RIGHT JUSTIFY;^9;2^Q"
^DD(8925.95,9.02,3)="Select where to display the FOOTER."
^DD(8925.95,9.02,"DT")="3070511"
^DD(8925.95,9.03,0)="JUSTIFY CLOSING^S^LJ:LEFT JUSTIFY;CJ:CENTER JUSTIFY;RJ:RIGHT JUSTIFY;^9;3^Q"
^DD(8925.95,9.03,.1)=""
^DD(8925.95,9.03,3)="Select where to display the CLOSING."
^DD(8925.95,9.03,"DT")="3070511"
^DD(8925.95,9.04,0)="PAGE NUMBERS^S^1:YES;0:NO;^9;4^Q"
^DD(8925.95,9.04,3)="Enter 'YES' to display page numbers."
^DD(8925.95,9.04,"DT")="3070510"
^DD(8925.95,9.05,0)="JUSTIFY PAGE NUMBERS^S^LJ:LEFT JUSTIFIED;CJ:CENTER JUSTIFIED;RJ:RIGHT JUSTIFIED;^9;5^Q"
^DD(8925.95,9.05,3)="Select where to display page numbers."
^DD(8925.95,9.05,"DT")="3070511"
^DD(8925.95,9.06,0)="INSERT BLANK LINES^NJ2,0^^9;6^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1.N) X"
^DD(8925.95,9.06,3)="Enter the number of blank lines to be inserted AFTER the header (if present).  If no header, the blank lines will be added before the note text.  1-10 lines may be added."
^DD(8925.95,9.06,"DT")="3070512"
^DD(8925.95,"B","ALLOW >1 RECORDS PER VISIT",.1)=""
^DD(8925.95,"B","ALLOW CHART PRINT OUTSIDE MAS",.09)=""
^DD(8925.95,"B","ASK DX/CPT ON ALL OPT VISITS",.16)=""
^DD(8925.95,"B","CLOSING",8)=""
^DD(8925.95,"B","DEFAULT PRINTER",.13)=""
^DD(8925.95,"B","DIVISION",2)=""
^DD(8925.95,"B","DOCUMENT DEFINITION",.01)=""
^DD(8925.95,"B","EDITOR SET-UP CODE",3)=""
^DD(8925.95,"B","ENABLE IRT INTERFACE",.11)=""
^DD(8925.95,"B","FILING ERROR ALERT RECIPIENTS",4)=""
^DD(8925.95,"B","FOOTER",7)=""
^DD(8925.95,"B","FORCE RESPONSE TO EXPOSURES",.15)=""
^DD(8925.95,"B","HEADING",6)=""
^DD(8925.95,"B","INSERT BLANK LINES",9.06)=""
^DD(8925.95,"B","IRT DEFICIENCY",.12)=""
^DD(8925.95,"B","JUSTIFY CLOSING",9.03)=""
^DD(8925.95,"B","JUSTIFY FOOTER",9.02)=""
^DD(8925.95,"B","JUSTIFY HEADING",9.01)=""
^DD(8925.95,"B","JUSTIFY PAGE NUMBERS",9.05)=""
^DD(8925.95,"B","MANUAL PRINT AFTER ENTRY",.08)=""
^DD(8925.95,"B","ORDER ID ENTRIES BY TITLE",.18)=""
^DD(8925.95,"B","PAGE NUMBERS",9.04)=""
^DD(8925.95,"B","PROCESSING STEPS",1)=""
^DD(8925.95,"B","REQUIRE AUTHOR TO SIGN",.04)=""
^DD(8925.95,"B","REQUIRE MAS VERIFICATION",.03)=""
^DD(8925.95,"B","REQUIRE RELEASE",.02)=""
^DD(8925.95,"B","ROUTINE PRINT EVENT(S)",.06)=""
^DD(8925.95,"B","SEND ALERTS ON ADDENDA",.17)=""
^DD(8925.95,"B","SEND ALERTS ON NEW ID ENTRY",.19)=""
^DD(8925.95,"B","SEND COSIGNATURE ALERT",.2)=""
^DD(8925.95,"B","STAT PRINT EVENT(S)",.07)=""
^DD(8925.95,"B","SUPPRESS DX/CPT ON ENTRY",.14)=""
^DD(8925.95,"B","USERS REQUIRING COSIGNATURE",5)=""
^DD(8925.95,"B","WHEN MAY CHART COPY BE PRINTED",.05)=""
^DD(8925.95,"GL",0,1,.01)=""
^DD(8925.95,"GL",0,2,.02)=""
^DD(8925.95,"GL",0,3,.03)=""
^DD(8925.95,"GL",0,4,.04)=""
^DD(8925.95,"GL",0,5,.05)=""
^DD(8925.95,"GL",0,6,.06)=""
^DD(8925.95,"GL",0,7,.07)=""
^DD(8925.95,"GL",0,8,.08)=""
^DD(8925.95,"GL",0,9,.09)=""
^DD(8925.95,"GL",0,10,.1)=""
^DD(8925.95,"GL",0,11,.11)=""
^DD(8925.95,"GL",0,12,.12)=""
^DD(8925.95,"GL",0,13,.13)=""
^DD(8925.95,"GL",0,14,.14)=""
^DD(8925.95,"GL",0,15,.15)=""
^DD(8925.95,"GL",0,16,.16)=""
^DD(8925.95,"GL",0,17,.17)=""
^DD(8925.95,"GL",0,18,.18)=""
^DD(8925.95,"GL",0,19,.19)=""
^DD(8925.95,"GL",0,20,.2)=""
^DD(8925.95,"GL",1,0,1)=""
^DD(8925.95,"GL",2,0,2)=""
^DD(8925.95,"GL",3,"E1,245",3)=""
^DD(8925.95,"GL",4,0,4)=""
^DD(8925.95,"GL",5,0,5)=""
^DD(8925.95,"GL",6,0,6)=""
^DD(8925.95,"GL",7,0,7)=""
^DD(8925.95,"GL",8,0,8)=""
^DD(8925.95,"GL",9,1,9.01)=""
^DD(8925.95,"GL",9,2,9.02)=""
^DD(8925.95,"GL",9,3,9.03)=""
^DD(8925.95,"GL",9,4,9.04)=""
^DD(8925.95,"GL",9,5,9.05)=""
^DD(8925.95,"GL",9,6,9.06)=""
^DD(8925.95,"IX",.01)=""
^DD(8925.95,"RQ",.01)=""
^DD(8925.95,"SB",8925.951,1)=""
^DD(8925.95,"SB",8925.952,2)=""
^DD(8925.95,"SB",8925.954,4)=""
^DD(8925.95,"SB",8925.955,5)=""
^DD(8925.95,"SB",8925.956,6)=""
^DD(8925.95,"SB",8925.957,7)=""
^DD(8925.95,"SB",8925.958,8)=""
^DD(8925.951,0)="PROCESSING STEPS SUB-FIELD^^1^6"
^DD(8925.951,0,"DT")="2950630"
^DD(8925.951,0,"IX","B",8925.951,.01)=""
^DD(8925.951,0,"NM","PROCESSING STEPS")=""
^DD(8925.951,0,"UP")="8925.95"
^DD(8925.951,.01,0)="PROCESSING STEPS^MP8930.8'^USR(8930.8,^0;1^Q"
^DD(8925.951,.01,1,0)="^.1"
^DD(8925.951,.01,1,1,0)="8925.951^B"
^DD(8925.951,.01,1,1,1)="S ^TIU(8925.95,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8925.951,.01,1,1,2)="K ^TIU(8925.95,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8925.951,.01,3)="Please indicate a step involved in processing this document."
^DD(8925.951,.01,21,0)="^^3^3^2950630^"
^DD(8925.951,.01,21,1,0)="This is a step or action (e.g., verification) in the processing of a"
^DD(8925.951,.01,21,2,0)="document that moves it from one state (e.g., unverified) to another (e.g.,"
^DD(8925.951,.01,21,3,0)="unsigned)."
^DD(8925.951,.01,"DT")="2950630"
^DD(8925.951,.02,0)="SEQUENCE^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.951,.02,3)="Indicate the order in processing in which this step should occur."
^DD(8925.951,.02,21,0)="^^2^2^2950630^"
^DD(8925.951,.02,21,1,0)="This is the serial sequence in the processing of this document in which"
^DD(8925.951,.02,21,2,0)="the current step should ordinarily occur."
^DD(8925.951,.02,"DT")="2950630"
^DD(8925.951,.03,0)="REQUIRED^S^0:OPTIONAL;1:REQUIRED;^0;3^Q"
^DD(8925.951,.03,3)="Indicate whether the step is required or optional."
^DD(8925.951,.03,21,0)="^^3^3^2950630^"
^DD(8925.951,.03,21,1,0)="Indicate whether this step is required or optional for completion of this"
^DD(8925.951,.03,21,2,0)="document (e.g., Progress Notes must be cosigned ONLY when the author is a"
^DD(8925.951,.03,21,3,0)="Medical Student)."
^DD(8925.951,.03,"DT")="2950630"
^DD(8925.951,.04,0)="RESULTING STATUS^P8925.6'^TIU(8925.6,^0;4^Q"
^DD(8925.951,.04,3)="Indicate the status which results on completion of the step."
^DD(8925.951,.04,21,0)="^^3^3^2950630^"
^DD(8925.951,.04,21,1,0)="This is the status of the document following completion of the step in"
^DD(8925.951,.04,21,2,0)="question.  For instance, if a discharge summary should attain the status"
^DD(8925.951,.04,21,3,0)="UNSIGNED, following the verification step, this would be indicated here."
^DD(8925.951,.04,"DT")="2950630"
^DD(8925.951,.05,0)="CONDITION TEXT^F^^0;5^K:$L(X)>60!($L(X)<3) X"
^DD(8925.951,.05,3)="Indicate the condition under which the step is necessary."
^DD(8925.951,.05,21,0)="^^3^3^2950630^"
^DD(8925.951,.05,21,1,0)="Describe the condition under which an optional step will be required"
^DD(8925.951,.05,21,2,0)="(e.g., cosignature of a Progress Note is required only when the author of"
^DD(8925.951,.05,21,3,0)="the note is a provider in training, e.g., a Medical Student)."
^DD(8925.951,.05,"DT")="2950630"
^DD(8925.951,1,0)="CONDITION CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8925.951,1,3)="This is Standard MUMPS code."
^DD(8925.951,1,9)="@"
^DD(8925.951,1,21,0)="^^7^7^2950630^"
^DD(8925.951,1,21,1,0)="This is a line of MUMPS code which imposes the condition by which an"
^DD(8925.951,1,21,2,0)="optional step must occur.  It must modify the boolean special variable,"
^DD(8925.951,1,21,3,0)="$TEST, to indicate whether the step must occur.  e.g., in the case where a"
^DD(8925.951,1,21,4,0)="medical student author's a progress note, the MUMPS code for the condition"
^DD(8925.951,1,21,5,0)="may look like:"
^DD(8925.951,1,21,6,0)=" "
^DD(8925.951,1,21,7,0)="        I +$$ISA^USRLM(TIUAUTH,""MEDICAL STUDENT"")"
^DD(8925.951,1,"DT")="2950630"
^DD(8925.951,"B","CONDITION CODE",1)=""
^DD(8925.951,"B","CONDITION TEXT",.05)=""
^DD(8925.951,"B","PROCESSING STEPS",.01)=""
^DD(8925.951,"B","REQUIRED",.03)=""
^DD(8925.951,"B","RESULTING STATUS",.04)=""
^DD(8925.951,"B","SEQUENCE",.02)=""
^DD(8925.951,"GL",0,1,.01)=""
^DD(8925.951,"GL",0,2,.02)=""
^DD(8925.951,"GL",0,3,.03)=""
^DD(8925.951,"GL",0,4,.04)=""
^DD(8925.951,"GL",0,5,.05)=""
^DD(8925.951,"GL",1,"E1,245",1)=""
^DD(8925.951,"IX",.01)=""
^DD(8925.952,0)="DIVISION SUB-FIELD^^.03^3"
^DD(8925.952,0,"DT")="2950703"
^DD(8925.952,0,"IX","B",8925.952,.01)=""
^DD(8925.952,0,"NM","DIVISION")=""
^DD(8925.952,0,"UP")="8925.95"
^DD(8925.952,.01,0)="DIVISION^MP40.8'^DG(40.8,^0;1^Q"
^DD(8925.952,.01,1,0)="^.1"
^DD(8925.952,.01,1,1,0)="8925.952^B"
^DD(8925.952,.01,1,1,1)="S ^TIU(8925.95,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8925.952,.01,1,1,2)="K ^TIU(8925.95,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8925.952,.01,3)="Please indicate the Medical Center Division"
^DD(8925.952,.01,21,0)="^^5^5^2991020^"
^DD(8925.952,.01,21,1,0)="Parameters CHART COPY PRINTER and STAT CHART COPY PRINTER may be"
^DD(8925.952,.01,21,2,0)="independently defined according to Medical Center Division."
^DD(8925.952,.01,21,3,0)=" "
^DD(8925.952,.01,21,4,0)="Please indicate the Medical Center Division for which these"
^DD(8925.952,.01,21,5,0)="parameters are being defined."
^DD(8925.952,.01,"DT")="2950703"
^DD(8925.952,.02,0)="CHART COPY PRINTER^P3.5'^%ZIS(1,^0;2^Q"
^DD(8925.952,.02,3)="Select the printer for chart copies of routine documents."
^DD(8925.952,.02,21,0)="^^13^13^2990623^"
^DD(8925.952,.02,21,1,0)="This parameter is primarily useful for DISCHARGE SUMMARIES, or other"
^DD(8925.952,.02,21,2,0)="documents where automatic central printing of chart copies on site-"
^DD(8925.952,.02,21,3,0)="configurable events are most useful (e.g., INTERIM SUMMARIES or"
^DD(8925.952,.02,21,4,0)="OPERATIVE REPORTS at some point in the future)."
^DD(8925.952,.02,21,5,0)=" "
^DD(8925.952,.02,21,6,0)="When defined along with a STAT CHART COPY PRINTER, this is the device to"
^DD(8925.952,.02,21,7,0)="which chart copies of documents with ROUTINE urgencies will be sent"
^DD(8925.952,.02,21,8,0)="automatically.  If no STAT CHART COPY PRINTER is defined, then ALL"
^DD(8925.952,.02,21,9,0)="documents of the current type will be sent to this device, regardless of"
^DD(8925.952,.02,21,10,0)="their urgencies."
^DD(8925.952,.02,21,11,0)=" "
^DD(8925.952,.02,21,12,0)="Note: If field MANUAL PRINT AFTER ENTRY is set to YES, then auto-print"
^DD(8925.952,.02,21,13,0)="is ignored."
^DD(8925.952,.02,"DT")="2950703"
^DD(8925.952,.03,0)="STAT CHART COPY PRINTER^P3.5'^%ZIS(1,^0;3^Q"
^DD(8925.952,.03,3)="Select the chart copy printer for STAT documents."
^DD(8925.952,.03,21,0)="^^11^11^2990623^"
^DD(8925.952,.03,21,1,0)="This parameter is primarily useful for DISCHARGE SUMMARIES, or other"
^DD(8925.952,.03,21,2,0)="documents where automatic central printing of chart copies on site-"
^DD(8925.952,.03,21,3,0)="configurable events are most useful (e.g., INTERIM SUMMARIES or"
^DD(8925.952,.03,21,4,0)="OPERATIVE REPORTS at some point in the future)."
^DD(8925.952,.03,21,5,0)=" "
^DD(8925.952,.03,21,6,0)="When defined along with a CHART COPY PRINTER, this is the device to"
^DD(8925.952,.03,21,7,0)="which chart copies of documents with STAT urgencies will be sent"
^DD(8925.952,.03,21,8,0)="automatically."
^DD(8925.952,.03,21,9,0)=" "
^DD(8925.952,.03,21,10,0)="Note: If field MANUAL PRINT AFTER ENTRY is set to YES, then auto-print"
^DD(8925.952,.03,21,11,0)="is ignored."
^DD(8925.952,.03,"DT")="2950703"
^DD(8925.952,"B","CHART COPY PRINTER",.02)=""
^DD(8925.952,"B","DIVISION",.01)=""
^DD(8925.952,"B","STAT CHART COPY PRINTER",.03)=""
^DD(8925.952,"GL",0,1,.01)=""
^DD(8925.952,"GL",0,2,.02)=""
^DD(8925.952,"GL",0,3,.03)=""
^DD(8925.952,"IX",.01)=""
^DD(8925.954,0)="FILING ERROR ALERT RECIPIENTS SUB-FIELD^^.01^1"
^DD(8925.954,0,"DT")="2960606"
^DD(8925.954,0,"IX","B",8925.954,.01)=""
^DD(8925.954,0,"NM","FILING ERROR ALERT RECIPIENTS")=""
^DD(8925.954,0,"UP")="8925.95"
^DD(8925.954,.01,0)="FILING ERROR ALERT RECIPIENTS^MP200'^VA(200,^0;1^Q"
^DD(8925.954,.01,1,0)="^.1"
^DD(8925.954,.01,1,1,0)="8925.954^B"
^DD(8925.954,.01,1,1,1)="S ^TIU(8925.95,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(8925.954,.01,1,1,2)="K ^TIU(8925.95,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(8925.954,.01,3)="Select one or more recipients for filing error alerts."
^DD(8925.954,.01,21,0)="^^13^13^3030121^^^"
^DD(8925.954,.01,21,1,0)="These persons receive alerts from the upload filer process when a "
^DD(8925.954,.01,21,2,0)="document of the given type cannot be filed/located, or has a missing "
^DD(8925.954,.01,21,3,0)="field."
^DD(8925.954,.01,21,4,0)=" "
^DD(8925.954,.01,21,5,0)="If a document being uploaded has a missing/bad title, then alert"
^DD(8925.954,.01,21,6,0)="recipients defined at the title level cannot be found.  In this case,"
^DD(8925.954,.01,21,7,0)="recipients named at the class level are alerted. For example, if a"
^DD(8925.954,.01,21,8,0)="Progress Note is being uploaded and has a missing/bad title, then "
^DD(8925.954,.01,21,9,0)="Progress Note-level recipients are alerted."
^DD(8925.954,.01,21,10,0)=" "
^DD(8925.954,.01,21,11,0)="If recipients are not specified, then alert recipients named in "
^DD(8925.954,.01,21,12,0)="parameter UPLOAD ERROR ALERT RECIPIENTS in the TIU PARAMETER file are"
^DD(8925.954,.01,21,13,0)="alerted as defaults."
^DD(8925.954,.01,"DT")="3030121"
^DD(8925.954,"B","FILING ERROR ALERT RECIPIENTS",.01)=""
^DD(8925.954,"GL",0,1,.01)=""
^DD(8925.954,"IX",.01)=""
^DD(8925.955,0)="USERS REQUIRING COSIGNATURE SUB-FIELD^^.01^1"
^DD(8925.955,0,"DT")="2960906"
^DD(8925.955,0,"IX","B",8925.955,.01)=""
^DD(8925.955,0,"NM","USERS REQUIRING COSIGNATURE")=""
^DD(8925.955,0,"UP")="8925.95"
^DD(8925.955,.01,0)="USERS REQUIRING COSIGNATURE^MP8930'^USR(8930,^0;1^Q"
^DD(8925.955,.01,1,0)="^.1"
^DD(8925.955,.01,1,1,0)="8925.955^B"
^DD(8925.955,.01,1,1,1)="S ^TIU(8925.95,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(8925.955,.01,1,1,2)="K ^TIU(8925.95,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(8925.955,.01,3)="Specify which user class(es) require cosignature"
^DD(8925.955,.01,21,0)="^^10^10^3030121^^"
^DD(8925.955,.01,21,1,0)="Applies to all types of documents EXCEPT DISCHARGE SUMMARIES."
^DD(8925.955,.01,21,2,0)=" "
^DD(8925.955,.01,21,3,0)="Please indicate which groups of users (i.e., User Classes) require"
^DD(8925.955,.01,21,4,0)="cosignature for the type of document in question.  For example, "
^DD(8925.955,.01,21,5,0)="STUDENTS, INTERNS, LPNs, and other user classes may be identified "
^DD(8925.955,.01,21,6,0)="as requiring a cosignature for PROGRESS NOTES."
^DD(8925.955,.01,21,7,0)=" "
^DD(8925.955,.01,21,8,0)="NOTE: Independent of this parameter, DISCHARGE SUMMARIES ALWAYS "
^DD(8925.955,.01,21,9,0)="require cosignature by the ATTENDING PHYSICIAN, EXCEPT when the "
^DD(8925.955,.01,21,10,0)="ATTENDING PHYSICIAN dictates the summary himself."
^DD(8925.955,.01,"DT")="3030121"
^DD(8925.955,"B","USERS REQUIRING COSIGNATURE",.01)=""
^DD(8925.955,"GL",0,1,.01)=""
^DD(8925.955,"IX",.01)=""
^DD(8925.956,0)="HEADING SUB-FIELD^^.01^1"
^DD(8925.956,0,"DT")="3070319"
^DD(8925.956,0,"NM","HEADING")=""
^DD(8925.956,0,"UP")="8925.95"
^DD(8925.956,.01,0)="HEADING^W^^0;1"
^DD(8925.956,.01,3)="This header will only display for titles in the FORM LETTERS document class."
^DD(8925.956,.01,"DT")="3070426"
^DD(8925.956,"B","HEADING",.01)=""
^DD(8925.956,"GL",0,1,.01)=""
^DD(8925.957,0)="FOOTER SUB-FIELD^^.01^1"
^DD(8925.957,0,"DT")="3070319"
^DD(8925.957,0,"NM","FOOTER")=""
^DD(8925.957,0,"UP")="8925.95"
^DD(8925.957,.01,0)="FOOTER^W^^0;1"
^DD(8925.957,.01,3)="This footer will only display for titles in the FORM LETTERS document class."
^DD(8925.957,.01,"DT")="3070319"
^DD(8925.957,"B","FOOTER",.01)=""
^DD(8925.957,"GL",0,1,.01)=""
^DD(8925.958,0)="CLOSING SUB-FIELD^^.01^1"
^DD(8925.958,0,"DT")="3070319"
^DD(8925.958,0,"NM","CLOSING")=""
^DD(8925.958,0,"UP")="8925.95"
^DD(8925.958,.01,0)="CLOSING^W^^0;1"
^DD(8925.958,.01,"DT")="3070329"
^DD(8925.958,"B","CLOSING",.01)=""
^DD(8925.958,"GL",0,1,.01)=""
^DD(8925.97,0)="FIELD^^2.5^11"
^DD(8925.97,0,"DDA")="N"
^DD(8925.97,0,"DT")="2970226"
^DD(8925.97,0,"IX","B",8925.97,.01)=""
^DD(8925.97,0,"NM","TIU CONVERSIONS")=""
^DD(8925.97,0,"VR")="1.0"
^DD(8925.97,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.97,.01,0)="DATA CONVERTED^RS^PN:PROGRESS NOTES;DS:DISCHARGE SUMMARY;^0;1^Q"
^DD(8925.97,.01,1,0)="^.1"
^DD(8925.97,.01,1,1,0)="8925.97^B"
^DD(8925.97,.01,1,1,1)="S ^TIU(8925.97,""B"",$E(X,1,30),DA)="""""
^DD(8925.97,.01,1,1,2)="K ^TIU(8925.97,""B"",$E(X,1,30),DA)"
^DD(8925.97,.01,3)=""
^DD(8925.97,.01,21,0)="^^1^1^2960814^^^"
^DD(8925.97,.01,21,1,0)="Field contains name of data converted"
^DD(8925.97,.01,23,0)="^^3^3^2960814^^^"
^DD(8925.97,.01,23,1,0)="With the initial release of TIU, the field will contain a set of"
^DD(8925.97,.01,23,2,0)="PN for ^GMR(121, Generic Progress Notes, and DS for ^GMR(128,"
^DD(8925.97,.01,23,3,0)="Discharge Summary,"
^DD(8925.97,.01,"DT")="2960814"
^DD(8925.97,.02,0)="START DATE^D^^0;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.97,.02,21,0)="^^2^2^2960814^^"
^DD(8925.97,.02,21,1,0)="Date/time conversion is first started.  A record of restarts"
^DD(8925.97,.02,21,2,0)="is kept in a subfile."
^DD(8925.97,.02,23,0)="^^2^2^2960814^^^"
^DD(8925.97,.02,23,1,0)="Date and time of initial start.  Seconds may be captured.  Used to compute"
^DD(8925.97,.02,23,2,0)="length of conversion."
^DD(8925.97,.02,"DT")="2960814"
^DD(8925.97,.03,0)="COMPLETED DATE^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.97,.03,21,0)="^^1^1^2960814^^^"
^DD(8925.97,.03,21,1,0)="Date/time conversion completed."
^DD(8925.97,.03,23,0)="^^1^1^2960814^^"
^DD(8925.97,.03,23,1,0)="Date/time conversion completed.  Used to compute length of conversion."
^DD(8925.97,.03,"DT")="2960814"
^DD(8925.97,.04,0)="STARTING IEN^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.97,.04,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(8925.97,.04,21,0)="^^2^2^2960814^^^"
^DD(8925.97,.04,21,1,0)="When the conversion is begun the internal entry number (IEN)"
^DD(8925.97,.04,21,2,0)="of the first record is stored in this field."
^DD(8925.97,.04,23,0)="^^1^1^2960814^^"
^DD(8925.97,.04,23,1,0)="The IEN for the first record converted is stored in this field."
^DD(8925.97,.04,"DT")="2960814"
^DD(8925.97,.05,0)="PROCESSING IEN^NJ8,0^^0;5^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.97,.05,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(8925.97,.05,21,0)="^^1^1^2960814^^"
^DD(8925.97,.05,21,1,0)="The internal file number of the last actual record processed."
^DD(8925.97,.05,23,0)="^^1^1^2960814^"
^DD(8925.97,.05,23,1,0)="This is the IEN of the record undergoing conversion."
^DD(8925.97,.05,"DT")="2960814"
^DD(8925.97,.06,0)="RECORDS PROCESSED^NJ8,0^^0;6^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.97,.06,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(8925.97,.06,21,0)="^^1^1^2960814^^"
^DD(8925.97,.06,21,1,0)="This field contains a running total of records successfully converted."
^DD(8925.97,.06,23,0)="^^3^3^2960814^^"
^DD(8925.97,.06,23,1,0)="This field contains a running total of the numbers of records processed"
^DD(8925.97,.06,23,2,0)="during the conversion.  It is used to inform sites of the progress of the"
^DD(8925.97,.06,23,3,0)="conversion."
^DD(8925.97,.06,"DT")="2960814"
^DD(8925.97,.07,0)="ERROR COUNTER^NJ8,0^^0;7^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.97,.07,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(8925.97,.07,21,0)="^^2^2^2960814^^^"
^DD(8925.97,.07,21,1,0)="This field maintains a running total of the number of records not"
^DD(8925.97,.07,21,2,0)="converted. "
^DD(8925.97,.07,23,0)="^^3^3^2960814^^"
^DD(8925.97,.07,23,1,0)="This field maintains a running total of errors encountered during"
^DD(8925.97,.07,23,2,0)="conversion.   A listing of the progress note errors is contained "
^DD(8925.97,.07,23,3,0)="in ^GMR(121,""ERROR""."
^DD(8925.97,.07,"DT")="2960814"
^DD(8925.97,.08,0)="STOPPING IEN^NJ8,0^^0;8^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.97,.08,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(8925.97,.08,21,0)="^^5^5^2960814^^^^"
^DD(8925.97,.08,21,1,0)="If a site wants to control a conversion, they may enter the IEN"
^DD(8925.97,.08,21,2,0)="of the record at which they want the conversion to stop. In the"
^DD(8925.97,.08,21,3,0)="case of progress notes, this allows for a controlled conversion"
^DD(8925.97,.08,21,4,0)="of ^GMR(121 into TIU.  While the conversion is running, users"
^DD(8925.97,.08,21,5,0)="can continue to use Generic Progress Notes."
^DD(8925.97,.08,23,0)="^^1^1^2960814^^"
^DD(8925.97,.08,23,1,0)="Stopping point for conversion."
^DD(8925.97,.08,"DT")="2960814"
^DD(8925.97,2,0)="ROLLBACK - START^NJ8,0^^2;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.97,2,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(8925.97,2,21,0)="^^2^2^2960814^^"
^DD(8925.97,2,21,1,0)="If a rollback of data is required, this is the IEN within ^TIU"
^DD(8925.97,2,21,2,0)="(8925 at which to start."
^DD(8925.97,2,23,0)="^^1^1^2960814^"
^DD(8925.97,2,23,1,0)="IEN of a record within TIU from where a rollback could start."
^DD(8925.97,2,"DT")="2960814"
^DD(8925.97,2.1,0)="ROLLBACK - STOP^NJ8,0^^2;2^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8925.97,2.1,3)="Type a Number between 0 and 99999999, 0 Decimal Digits"
^DD(8925.97,2.1,21,0)="^^1^1^2960814^^"
^DD(8925.97,2.1,21,1,0)="This IEN can help to control a rollback of data if necessary."
^DD(8925.97,2.1,23,0)="^^1^1^2960814^"
^DD(8925.97,2.1,23,1,0)="This IEN of a record within TIU is stops a rollback of data."
^DD(8925.97,2.1,"DT")="2960814"
^DD(8925.97,2.5,0)="HALT CONVERSION^S^1:YES;^2;3^Q"
^DD(8925.97,2.5,21,0)="^^2^2^2970226^"
^DD(8925.97,2.5,21,1,0)="This field will be monitored by the conversion to determine"
^DD(8925.97,2.5,21,2,0)="if the conversion should be halted before completion."
^DD(8925.97,2.5,"DT")="2970226"
^DD(8925.97,"B","COMPLETED DATE",.03)=""
^DD(8925.97,"B","DATA CONVERTED",.01)=""
^DD(8925.97,"B","ERROR COUNTER",.07)=""
^DD(8925.97,"B","HALT CONVERSION",2.5)=""
^DD(8925.97,"B","PROCESSING IEN",.05)=""
^DD(8925.97,"B","RECORDS PROCESSED",.06)=""
^DD(8925.97,"B","ROLLBACK - START",2)=""
^DD(8925.97,"B","ROLLBACK - STOP",2.1)=""
^DD(8925.97,"B","START DATE",.02)=""
^DD(8925.97,"B","STARTING IEN",.04)=""
^DD(8925.97,"B","STOPPING IEN",.08)=""
^DD(8925.97,"GL",0,1,.01)=""
^DD(8925.97,"GL",0,2,.02)=""
^DD(8925.97,"GL",0,3,.03)=""
^DD(8925.97,"GL",0,4,.04)=""
^DD(8925.97,"GL",0,5,.05)=""
^DD(8925.97,"GL",0,6,.06)=""
^DD(8925.97,"GL",0,7,.07)=""
^DD(8925.97,"GL",0,8,.08)=""
^DD(8925.97,"GL",2,1,2)=""
^DD(8925.97,"GL",2,2,2.1)=""
^DD(8925.97,"GL",2,3,2.5)=""
^DD(8925.97,"IX",.01)=""
^DD(8925.97,"RQ",.01)=""
^DD(8925.98,0)="FIELD^^99^5"
^DD(8925.98,0,"DDA")="N"
^DD(8925.98,0,"DT")="2970114"
^DD(8925.98,0,"ID","W.02")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^TIU(8925.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8925.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8925.98,0,"IX","AC",8925.98,.01)=""
^DD(8925.98,0,"IX","AC1",8925.98,.02)=""
^DD(8925.98,0,"IX","AM",8925.98,99)=""
^DD(8925.98,0,"IX","B",8925.98,.01)=""
^DD(8925.98,0,"NM","TIU PERSONAL DOCUMENT TYPE LIST")=""
^DD(8925.98,0,"VR")="1.0"
^DD(8925.98,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8925.98,.01,0)="PERSON^RP200'^VA(200,^0;1^Q"
^DD(8925.98,.01,1,0)="^.1"
^DD(8925.98,.01,1,1,0)="8925.98^B"
^DD(8925.98,.01,1,1,1)="S ^TIU(8925.98,""B"",$E(X,1,30),DA)="""""
^DD(8925.98,.01,1,1,2)="K ^TIU(8925.98,""B"",$E(X,1,30),DA)"
^DD(8925.98,.01,1,2,0)="8925.98^AC^MUMPS"
^DD(8925.98,.01,1,2,1)="I +$P($G(^TIU(8925.98,+DA,0)),U,2) S ^TIU(8925.98,""AC"",+X,+$P(^TIU(8925.98,+DA,0),U,2),DA)="""""
^DD(8925.98,.01,1,2,2)="I +$P($G(^TIU(8925.98,+DA,0)),U,2) K ^TIU(8925.98,""AC"",+X,+$P(^TIU(8925.98,+DA,0),U,2),DA)"
^DD(8925.98,.01,1,2,"%D",0)="^^3^3^2950911^^^"
^DD(8925.98,.01,1,2,"%D",1,0)="This multi-field, MUMPS-type crosss-reference by User and Parent Document"
^DD(8925.98,.01,1,2,"%D",2,0)="class is used to facilitate identification of the user's preferred list of"
^DD(8925.98,.01,1,2,"%D",3,0)="documents within the context of a given parent class."
^DD(8925.98,.01,1,2,"DT")="2950905"
^DD(8925.98,.01,3)="Please indicate a person (by name, SSN, initials, etc.)"
^DD(8925.98,.01,21,0)="^^1^1^2950616^"
^DD(8925.98,.01,21,1,0)="This is the person whose preference is being identified."
^DD(8925.98,.01,"DT")="2950905"
^DD(8925.98,.02,0)="PARENT DOCUMENT CLASS^*P8925.1'^TIU(8925.1,^0;2^S DIC(""S"")=""I +$$CLASPICK^TIULA4(38,+Y,""""CL"""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8925.98,.02,.1)="CLASS"
^DD(8925.98,.02,1,0)="^.1"
^DD(8925.98,.02,1,1,0)="8925.98^AC1^MUMPS"
^DD(8925.98,.02,1,1,1)="I +$P($G(^TIU(8925.98,+DA,0)),U) S ^TIU(8925.98,""AC"",+$P(^TIU(8925.98,+DA,0),U),+X,DA)="""""
^DD(8925.98,.02,1,1,2)="I +$P($G(^TIU(8925.98,+DA,0)),U) K ^TIU(8925.98,""AC"",+$P(^TIU(8925.98,+DA,0),U),+X,DA)"
^DD(8925.98,.02,1,1,"%D",0)="^^3^3^3000628^"
^DD(8925.98,.02,1,1,"%D",1,0)="This multi-field, MUMPS-type cross-reference by User and Parent Document"
^DD(8925.98,.02,1,1,"%D",2,0)="class is used to facilitate identification of the user's preferred list"
^DD(8925.98,.02,1,1,"%D",3,0)="ofdocuments within the context of a given parent class."
^DD(8925.98,.02,1,1,"DT")="2950911"
^DD(8925.98,.02,3)="Please select the parent group to which the document list belongs."
^DD(8925.98,.02,12)="You may only pick certain groups of documents at this prompt."
^DD(8925.98,.02,12.1)="S DIC(""S"")=""I +$$CLASPICK^TIULA4(38,+Y,""""CL"""")"""
^DD(8925.98,.02,21,0)="^^3^3^3000616^"
^DD(8925.98,.02,21,1,0)="This is the group (i.e., either Document Class or Class) to which the"
^DD(8925.98,.02,21,2,0)="preferred document list belongs.  i.e., enter the class Progress Notes"
^DD(8925.98,.02,21,3,0)="to indicate that the corresponding list will apply to Progress Notes."
^DD(8925.98,.02,"DT")="3000616"
^DD(8925.98,.03,0)="DEFAULT TYPE^*P8925.1'^TIU(8925.1,^0;3^S DIC(""S"")=""I +$$DFLTPICK^TIULA4(+$P(^TIU(8925.98,+DA,0),U,2),+Y,+DA)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.98,.03,.1)="DEFAULT TITLE"
^DD(8925.98,.03,3)="Please indicate which document type will be the default."
^DD(8925.98,.03,12)="You may only select active documents w/in the parent class."
^DD(8925.98,.03,12.1)="S DIC(""S"")=""I +$$DFLTPICK^TIULA4(+$P(^TIU(8925.98,+DA,0),U,2),+Y,+DA)"""
^DD(8925.98,.03,21,0)="^^3^3^2961101^"
^DD(8925.98,.03,21,1,0)="This determines what TITLE will be offered by default when selecting"
^DD(8925.98,.03,21,2,0)="from a given parent class (e.g., when entering a PROGRESS NOTE, you"
^DD(8925.98,.03,21,3,0)="may want the DEFAULT TITLE to be DIABETES EDUCATION, etc.)."
^DD(8925.98,.03,"DT")="2961101"
^DD(8925.98,10,0)="PERSONAL DOCUMENT LIST^8925.9801IP^^10;0"
^DD(8925.98,10,21,0)="^^2^2^2981029^^^^"
^DD(8925.98,10,21,1,0)="This Multiple is used for storing personal lists of documents for type"
^DD(8925.98,10,21,2,0)="selection during entry/editing."
^DD(8925.98,99,0)="TIMESTAMP^F^^99;1^K:$L(X)>15!($L(X)<1) X"
^DD(8925.98,99,1,0)="^.1"
^DD(8925.98,99,1,1,0)="8925.98^AM^MUMPS"
^DD(8925.98,99,1,1,1)="D SET^TIUDD98"
^DD(8925.98,99,1,1,2)="D KILL^TIUDD98"
^DD(8925.98,99,1,1,"%D",0)="^^3^3^2950911^^"
^DD(8925.98,99,1,1,"%D",1,0)="This MUMPS-type cross reference on the TIMESTAMP field is used to"
^DD(8925.98,99,1,1,"%D",2,0)="accomplish menu compilation into ^XUTL(""XQORM"",""DA;TIU(8925.98,"", for"
^DD(8925.98,99,1,1,"%D",3,0)="presentation of menus by ^XQORM."
^DD(8925.98,99,1,1,"DT")="2950911"
^DD(8925.98,99,3)="Answer must be 1-15 characters in length."
^DD(8925.98,99,21,0)="^^3^3^2950911^"
^DD(8925.98,99,21,1,0)="This is the timestamp on the record in $H format which is compared with"
^DD(8925.98,99,21,2,0)="that on the compiled menu in ^XUTL(""XQORM"",""DA;TIU(8925.98,"",99) to"
^DD(8925.98,99,21,3,0)="determine whether recompilation is necessary."
^DD(8925.98,99,"DT")="2950911"
^DD(8925.98,"B","CLASS",.02)="1"
^DD(8925.98,"B","DEFAULT TITLE",.03)="1"
^DD(8925.98,"B","DEFAULT TYPE",.03)=""
^DD(8925.98,"B","PARENT DOCUMENT CLASS",.02)=""
^DD(8925.98,"B","PERSON",.01)=""
^DD(8925.98,"B","PERSONAL DOCUMENT LIST",10)=""
^DD(8925.98,"B","TIMESTAMP",99)=""
^DD(8925.98,"GL",0,1,.01)=""
^DD(8925.98,"GL",0,2,.02)=""
^DD(8925.98,"GL",0,3,.03)=""
^DD(8925.98,"GL",10,0,10)=""
^DD(8925.98,"GL",99,1,99)=""
^DD(8925.98,"IX",.01)=""
^DD(8925.98,"IX",.02)=""
^DD(8925.98,"IX",99)=""
^DD(8925.98,"RQ",.01)=""
^DD(8925.98,"SB",8925.9801,10)=""
^DD(8925.9801,0)="PERSONAL DOCUMENT LIST SUB-FIELD^^.03^3"
^DD(8925.9801,0,"DT")="2970114"
^DD(8925.9801,0,"ID","W.02")="W ""   "",$P(^(0),U,2)"
^DD(8925.9801,0,"IX","AM1",8925.9801,.03)=""
^DD(8925.9801,0,"IX","B",8925.9801,.01)=""
^DD(8925.9801,0,"NM","PERSONAL DOCUMENT LIST")=""
^DD(8925.9801,0,"UP")="8925.98"
^DD(8925.9801,.01,0)="TITLE^M*P8925.1'^TIU(8925.1,^0;1^S DIC(""S"")=""I $P(^TIU(8925.1,+Y,0),U,4)=""""DOC"""",+$$ISA^TIULX(+Y,+$P(^TIU(8925.98,$S($D(DA(1)):+DA(1),1:+DA),0),U,2)),+$$CANPICK^TIULP(+Y),+$$CANENTR^TIULP(+Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8925.9801,.01,1,0)="^.1"
^DD(8925.9801,.01,1,1,0)="8925.9801^B"
^DD(8925.9801,.01,1,1,1)="S ^TIU(8925.98,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(8925.9801,.01,1,1,2)="K ^TIU(8925.98,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(8925.9801,.01,3)="Please select a document type."
^DD(8925.9801,.01,12)="You may only select TITLES that you are authorized to ENTER."
^DD(8925.9801,.01,12.1)="S DIC(""S"")=""I $P(^TIU(8925.1,+Y,0),U,4)=""""DOC"""",+$$ISA^TIULX(+Y,+$P(^TIU(8925.98,$S($D(DA(1)):+DA(1),1:+DA),0),U,2)),+$$CANPICK^TIULP(+Y),+$$CANENTR^TIULP(+Y)"""
^DD(8925.9801,.01,21,0)="^^2^2^2981029^^^^"
^DD(8925.9801,.01,21,1,0)="This is the document to be included in your pick list of documents for"
^DD(8925.9801,.01,21,2,0)="the current document class."
^DD(8925.9801,.01,"DT")="2981029"
^DD(8925.9801,.02,0)="SEQUENCE^NJ7,3^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""4N.N) X"
^DD(8925.9801,.02,3)="Type a Number between 0 and 999, 3 Decimal Digits"
^DD(8925.9801,.02,21,0)="^^2^2^2950925^"
^DD(8925.9801,.02,21,1,0)="This is the sequence in which you wish the document to appear in your"
^DD(8925.9801,.02,21,2,0)="list."
^DD(8925.9801,.02,"DT")="2950925"
^DD(8925.9801,.03,0)="DISPLAY NAME^F^^0;3^K:$L(X)>26!($L(X)<2) X"
^DD(8925.9801,.03,1,0)="^.1"
^DD(8925.9801,.03,1,1,0)="8925.9801^AM1^MUMPS"
^DD(8925.9801,.03,1,1,1)="D REDO^TIUDD98"
^DD(8925.9801,.03,1,1,2)="D REDO^TIUDD98"
^DD(8925.9801,.03,1,1,"%D",0)="^^2^2^2950925^^^"
^DD(8925.9801,.03,1,1,"%D",1,0)="This MUMPS-type cross-reference is used for marking records for menu"
^DD(8925.9801,.03,1,1,"%D",2,0)="recompilation when the DISPLAY NAME for an item changes."
^DD(8925.9801,.03,1,1,"DT")="2950911"
^DD(8925.9801,.03,3)="Answer must be 2-26 characters in length."
^DD(8925.9801,.03,21,0)="^^1^1^2950718^"
^DD(8925.9801,.03,21,1,0)="This is the name of the document to be displayed in menus."
^DD(8925.9801,.03,"DT")="2951011"
^DD(8925.9801,"B","DISPLAY NAME",.03)=""
^DD(8925.9801,"B","SEQUENCE",.02)=""
^DD(8925.9801,"B","TITLE",.01)=""
^DD(8925.9801,"GL",0,1,.01)=""
^DD(8925.9801,"GL",0,2,.02)=""
^DD(8925.9801,"GL",0,3,.03)=""
^DD(8925.9801,"IX",.01)=""
^DD(8925.9801,"IX",.03)=""
^DD(8925.99,0)="FIELD^^3.2^26"
^DD(8925.99,0,"DT")="3040831"
^DD(8925.99,0,"IX","B",8925.99,.01)=""
^DD(8925.99,0,"NM","TIU PARAMETERS")=""
^DD(8925.99,0,"VR")="1.0"
^DD(8925.99,0,"VRPK")="TIU"
^DD(8925.99,.01,0)="INSTITUTION^RP4'^DIC(4,^0;1^Q"
^DD(8925.99,.01,1,0)="^.1"
^DD(8925.99,.01,1,1,0)="8925.99^B"
^DD(8925.99,.01,1,1,1)="S ^TIU(8925.99,""B"",$E(X,1,30),DA)="""""
^DD(8925.99,.01,1,1,2)="K ^TIU(8925.99,""B"",$E(X,1,30),DA)"
^DD(8925.99,.01,3)="Enter your Institution."
^DD(8925.99,.01,21,0)="^^1^1^2990624^"
^DD(8925.99,.01,21,1,0)="Please enter the DIVISION these parameters apply to."
^DD(8925.99,.01,"AUDIT")=""
^DD(8925.99,.01,"DT")="3050125"
^DD(8925.99,.02,0)="ENABLE ELECTRONIC SIGNATURE^S^1:YES;0:NO;^0;2^Q"
^DD(8925.99,.02,3)=""
^DD(8925.99,.02,21,0)="^^4^4^2990712^"
^DD(8925.99,.02,21,1,0)="Electronic signature is enabled when this parameter is set to 1. Until"
^DD(8925.99,.02,21,2,0)="such time as electronic signature is enabled, signatures are to be written"
^DD(8925.99,.02,21,3,0)="on the chart copy of the TIU document, and provision must be made for TIU"
^DD(8925.99,.02,21,4,0)="documents to be marked Signed on Chart."
^DD(8925.99,.02,"AUDIT")=""
^DD(8925.99,.02,"DT")="3050125"
^DD(8925.99,.03,0)="CHARACTERS PER LINE^NJ2,0^^0;3^K:+X'=X!(X>80)!(X<10)!(X?.E1"".""1N.N) X"
^DD(8925.99,.03,3)="Enter the number of characters per line, for line count computation (a # from 10 to 80)."
^DD(8925.99,.03,21,0)="^^5^5^2990624^"
^DD(8925.99,.03,21,1,0)="This value (default 60) is divided into the total number of 'actual'"
^DD(8925.99,.03,21,2,0)="characters in a given transcribed document to derive the line count for"
^DD(8925.99,.03,21,3,0)="that document.  By 'actual' characters, we mean all printable ASCII"
^DD(8925.99,.03,21,4,0)="characters, with multiple white space characters stripped. This prevents"
^DD(8925.99,.03,21,5,0)="transcriptionists from ""stuffing"" line counts by adding white space."
^DD(8925.99,.03,"AUDIT")=""
^DD(8925.99,.03,"DT")="3050125"
^DD(8925.99,.04,0)="GRACE PERIOD FOR PURGE^NJ4,0^^0;4^K:+X'=X!(X>7300)!(X<90)!(X?.E1"".""1N.N) X"
^DD(8925.99,.04,3)="Type a Number between 90 and 7300, 0 Decimal Digits"
^DD(8925.99,.04,21,0)="^^9^9^2991020^"
^DD(8925.99,.04,21,1,0)="OUT OF SERVICE.  Purging is disabled."
^DD(8925.99,.04,21,2,0)=" "
^DD(8925.99,.04,21,3,0)="This is the number of days following transcription for which a document"
^DD(8925.99,.04,21,4,0)="will be kept, prior to purge. Allowable range is from 90 to 7300 days (20"
^DD(8925.99,.04,21,5,0)="years)."
^DD(8925.99,.04,21,6,0)=" "
^DD(8925.99,.04,21,7,0)="NOTE: Progress Notes and their addenda are not subject to purge,"
^DD(8925.99,.04,21,8,0)="regardless of this parameter. IF YOU WANT TO DISABLE PURGING ALTOGETHER,"
^DD(8925.99,.04,21,9,0)="LEAVE THIS PARAMETER EMPTY (or delete any existing value)."
^DD(8925.99,.04,"AUDIT")=""
^DD(8925.99,.04,"DT")="3050125"
^DD(8925.99,.05,0)="GRACE PERIOD FOR SIGNATURE^NJ2,0^^0;5^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.99,.05,3)="Enter the number of days to wait before notifying physician of an overdue signature (1 to 10 days)."
^DD(8925.99,.05,21,0)="^^3^3^2990712^"
^DD(8925.99,.05,21,1,0)="This is the number of days following transcription before an author or"
^DD(8925.99,.05,21,2,0)="Attending Physician is notified of a deficiency.  If no grace period is"
^DD(8925.99,.05,21,3,0)="entered, clinicians are not notified of overdue signatures."
^DD(8925.99,.05,"AUDIT")=""
^DD(8925.99,.05,"DT")="3050125"
^DD(8925.99,.06,0)="OPTIMIZE LIST BUILDING FOR^S^P:performance;S:security;^0;6^Q"
^DD(8925.99,.06,3)="Please indicate whether Performance or Security should be optimized."
^DD(8925.99,.06,21,0)="^^18^18^2990712^"
^DD(8925.99,.06,21,1,0)="This parameter determines whether or not TIU list building functions"
^DD(8925.99,.06,21,2,0)="invoke business rules, excluding from the list any documents the user is"
^DD(8925.99,.06,21,3,0)="not authorized to see.  Checking business rules in this way optimizes"
^DD(8925.99,.06,21,4,0)="list building for security.  It may be costly in terms of performance."
^DD(8925.99,.06,21,5,0)=" "
^DD(8925.99,.06,21,6,0)="When optimized for performance (the default behavior of TIU), business"
^DD(8925.99,.06,21,7,0)="rules excluding notes from view are bypassed when building lists of"
^DD(8925.99,.06,21,8,0)="documents."
^DD(8925.99,.06,21,9,0)=" "
^DD(8925.99,.06,21,10,0)="NOTE: This applies only to lists: when an unauthorized user attempts to"
^DD(8925.99,.06,21,11,0)="view the contents of a document from the resulting list, he is prevented"
^DD(8925.99,.06,21,12,0)="from doing so, with the following explanation:"
^DD(8925.99,.06,21,13,0)=" "
^DD(8925.99,.06,21,14,0)="Reviewing Item #1"
^DD(8925.99,.06,21,15,0)=" "
^DD(8925.99,.06,21,16,0)=" You may not VIEW this UNSIGNED NURSE'S NOTE."
^DD(8925.99,.06,21,17,0)=" "
^DD(8925.99,.06,21,18,0)="RETURN to continue..."
^DD(8925.99,.06,"AUDIT")=""
^DD(8925.99,.06,"DT")="3050125"
^DD(8925.99,.07,0)="SUPPRESS REVIEW NOTES PROMPT^S^1:YES;0:NO;^0;7^Q"
^DD(8925.99,.07,3)="Indicate whether to suppress the Review Notes prompt on entry"
^DD(8925.99,.07,21,0)="^^5^5^2990712^"
^DD(8925.99,.07,21,1,0)="Applies to Progress Notes only.  When this parameter is set to YES, TIU"
^DD(8925.99,.07,21,2,0)="suppresses the prompt which asks if the user wishes to see available"
^DD(8925.99,.07,21,3,0)="progress notes before entering a new note.  This parameter is overridden"
^DD(8925.99,.07,21,4,0)="by the Personal Preference of same name.  If neither parameter is entered,"
^DD(8925.99,.07,21,5,0)="the Review Notes prompt is NOT suppressed."
^DD(8925.99,.07,"DT")="2970320"
^DD(8925.99,.08,0)="DEFAULT PRIMARY PROVIDER^S^0:NONE, DON'T PROMPT;1:DEFAULT, BY LOCATION;2:AUTHOR (IF PROVIDER);^0;8^Q"
^DD(8925.99,.08,3)="Please indicate the source of the default for Primary Provider."
^DD(8925.99,.08,21,0)="^^9^9^2990713^"
^DD(8925.99,.08,21,1,0)="This parameter determines the behavior of the Primary Provider prompt for"
^DD(8925.99,.08,21,2,0)="a standalone encounter."
^DD(8925.99,.08,21,3,0)=" "
^DD(8925.99,.08,21,4,0)="If the parameter has no value, the prompt has no default. If the parameter"
^DD(8925.99,.08,21,5,0)="has value 0, the user is not prompted for primary provider. If the"
^DD(8925.99,.08,21,6,0)="parameter has value 1, the default for the Primary Provider prompt is the"
^DD(8925.99,.08,21,7,0)="site's default provider for the given location.  If the parameter has"
^DD(8925.99,.08,21,8,0)="value 2, the default is the author if the author is a provider; if the"
^DD(8925.99,.08,21,9,0)="author is not a provider, the prompt has no default."
^DD(8925.99,.08,"DT")="2980731"
^DD(8925.99,.09,0)="ASCII UPLOAD SOURCE^S^H:host file server;R:remote computer;^0;9^Q"
^DD(8925.99,.09,3)="Please specify the source of the ASCII data to be uploaded."
^DD(8925.99,.09,21,0)="^^6^6^2990712^"
^DD(8925.99,.09,21,1,0)="Applies only when the ASCII upload protocol is used. This field specifies"
^DD(8925.99,.09,21,2,0)="the source from which documents are uploaded. (H)ost indicates to the"
^DD(8925.99,.09,21,3,0)="upload processor that the source of the data is an ASCII host file (VMS or"
^DD(8925.99,.09,21,4,0)="DOS), while (R)emote indicates that the data is read from an ASCII stream"
^DD(8925.99,.09,21,5,0)="coming to VISTA from a terminal emulator on a remote computer (for"
^DD(8925.99,.09,21,6,0)="example, an IBM PC or compatible, or an Apple Macintosh)."
^DD(8925.99,.09,"DT")="2920911"
^DD(8925.99,.1,0)="RECORD HEADER SIGNAL^F^^0;10^K:$L(X)>10!($L(X)<1) X"
^DD(8925.99,.1,3)="Enter 1-10 characters to distinguish a record's header from its report text."
^DD(8925.99,.1,21,0)="^^8^8^2990712^"
^DD(8925.99,.1,21,1,0)="This is a free text tag or signal used by the upload process to determine"
^DD(8925.99,.1,21,2,0)="that a new document record header has been encountered.  It may be as"
^DD(8925.99,.1,21,3,0)="simple as the three-character string ""MSH"" or as complex as ""HEADERBEGIN""."
^DD(8925.99,.1,21,4,0)="The signal ""@@@"", used by the Surgery Package option to transmit operative"
^DD(8925.99,.1,21,5,0)="notes, is another possibility."
^DD(8925.99,.1,21,6,0)=" "
^DD(8925.99,.1,21,7,0)="NOTE: Although you may define this parameter independently for each"
^DD(8925.99,.1,21,8,0)="DIVISION, we recommend that you choose just one such signal per site."
^DD(8925.99,.1,"DT")="2930211"
^DD(8925.99,.11,0)="END OF MESSAGE SIGNAL^F^^0;11^K:$L(X)>10!($L(X)<3) X"
^DD(8925.99,.11,3)="Enter 3-10 characters to signal end of upload message."
^DD(8925.99,.11,21,0)="^^3^3^2990712^"
^DD(8925.99,.11,21,1,0)="Applies only to transfers made using the ASCII protocol.  This is the free"
^DD(8925.99,.11,21,2,0)="text signal to the upload process that the entire file/stream has been"
^DD(8925.99,.11,21,3,0)="transmitted without difficulty, and no more lines of data need to be read."
^DD(8925.99,.11,"DT")="2921019"
^DD(8925.99,.12,0)="BEGIN REPORT TEXT SIGNAL^F^^0;12^K:$L(X)>10!($L(X)<1) X"
^DD(8925.99,.12,3)="Enter 1-10 characters to delimit report text from record header."
^DD(8925.99,.12,21,0)="^^3^3^2921020^^"
^DD(8925.99,.12,21,1,0)="This is the signal to the upload processor that the fixed-field header for"
^DD(8925.99,.12,21,2,0)="a given report record has been fully read, and that the body of the"
^DD(8925.99,.12,21,3,0)="narrative report follows."
^DD(8925.99,.12,"DT")="2921019"
^DD(8925.99,.13,0)="MAJOR DELIMITER^F^^0;13^K:$L(X)>1!($L(X)<1)!'(X?1P) X"
^DD(8925.99,.13,3)="Enter the major delimiter of the message header."
^DD(8925.99,.13,21,0)="^^4^4^2990712^"
^DD(8925.99,.13,21,1,0)="This ASCII character separates the various pieces of fixed-field"
^DD(8925.99,.13,21,2,0)="information in the message header. Please avoid using delimiters such as"
^DD(8925.99,.13,21,3,0)=""","", or "":"", which may be contained within the data itself, using instead"
^DD(8925.99,.13,21,4,0)="less common symbols such as ""|"", ""\"" or ""~""."
^DD(8925.99,.13,"DT")="2921020"
^DD(8925.99,.14,0)="FUTURE APPOINTMENT RANGE^NJ3,0^^0;14^K:+X'=X!(X>180)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8925.99,.14,3)="How many days in advance may future appointments be selected?"
^DD(8925.99,.14,21,0)="^^4^4^2990628^"
^DD(8925.99,.14,21,1,0)="This parameter determines how far in advance a future appointment may"
^DD(8925.99,.14,21,2,0)="be selected when entering a document for outpatient care."
^DD(8925.99,.14,21,3,0)=" "
^DD(8925.99,.14,21,4,0)="Allowable values range from 1 to 180 days, defaulting to 1 day."
^DD(8925.99,.14,"DT")="2981014"
^DD(8925.99,.15,0)="PACE CHARACTER^FX^^0;15^K:$L(X)>3!($L(X)<1) X S:X'?1.3N X=$A(X)"
^DD(8925.99,.15,3)="Enter the character used to prompt the remote for another line of text."
^DD(8925.99,.15,21,0)="^^13^13^2990712^"
^DD(8925.99,.15,21,1,0)="Applies only to transfers which use the ASCII protocol."
^DD(8925.99,.15,21,2,0)=" "
^DD(8925.99,.15,21,3,0)="This is the ASCII value of the character which VISTA sends to the remote"
^DD(8925.99,.15,21,4,0)="computer to acknowledge receipt of the previous text line and to prompt"
^DD(8925.99,.15,21,5,0)="the remote to transmit another line. You may choose any character with an"
^DD(8925.99,.15,21,6,0)="ASCII value between 1 and 126."
^DD(8925.99,.15,21,7,0)=" "
^DD(8925.99,.15,21,8,0)="If you are using the same remote to upload both MailMan messages and"
^DD(8925.99,.15,21,9,0)="textual reports, then we recommend using the "">"" symbol, ASCII 62."
^DD(8925.99,.15,21,10,0)="Otherwise, we suggest using the ACK character (ASCII 6)."
^DD(8925.99,.15,21,11,0)=" "
^DD(8925.99,.15,21,12,0)="NOTE: you may need to specify the same character as part of the ASCII"
^DD(8925.99,.15,21,13,0)="PROTOCOL parameters of the terminal emulation software on the remote."
^DD(8925.99,.15,"DT")="2921020"
^DD(8925.99,.16,0)="UPLOAD HEADER FORMAT^S^C:captioned;D:delimited string;^0;16^Q"
^DD(8925.99,.16,3)="Enter the preferred format to be used for ASCII record headers."
^DD(8925.99,.16,21,0)="^^2^2^2990712^"
^DD(8925.99,.16,21,1,0)="This field determines whether the upload filer expects delimited string or"
^DD(8925.99,.16,21,2,0)="captioned formats for the header of each document."
^DD(8925.99,.16,"DT")="2930408"
^DD(8925.99,.17,0)="UPLOAD PROTOCOL^S^a:ASCII;k:KERMIT;^0;17^Q"
^DD(8925.99,.17,3)="Select preferred upload protocol"
^DD(8925.99,.17,21,0)="^^2^2^2990712^"
^DD(8925.99,.17,21,1,0)="This is the upload protocol used to transmit documents,"
^DD(8925.99,.17,21,2,0)="with a for ASCII, or k for KERMIT."
^DD(8925.99,.17,"DT")="2930227"
^DD(8925.99,.18,0)="RUN UPLOAD FILER IN FOREGROUND^S^1:YES;0:NO;^0;18^Q"
^DD(8925.99,.18,3)="Indicate whether the upload filer should run interactively."
^DD(8925.99,.18,21,0)="^^4^4^2990628^"
^DD(8925.99,.18,21,1,0)="This parameter specifies whether to run the filer for the upload process"
^DD(8925.99,.18,21,2,0)="in the foreground or in the background (as a Task)."
^DD(8925.99,.18,21,3,0)=" "
^DD(8925.99,.18,21,4,0)="If no preference is specified, the filer runs in the BACKGROUND."
^DD(8925.99,.18,"DT")="2960327"
^DD(8925.99,.22,0)="ENABLE CHART COPY PROMPT^S^1:YES;0:NO;^0;22^Q"
^DD(8925.99,.22,3)=""
^DD(8925.99,.22,21,0)="^^1^1^2990712^"
^DD(8925.99,.22,21,1,0)="OUT OF SERVICE.  See TIU Document Parameter ALLOW CHART PRINT OUTSIDE MAS."
^DD(8925.99,.22,"DT")="2930811"
^DD(8925.99,1.05,0)="AMENDMENT SIGNATURE BLOCK^F^^1;5^K:$L(X)>80!($L(X)<3) X"
^DD(8925.99,1.05,3)="Enter the Privacy Act Officer's signature block."
^DD(8925.99,1.05,21,0)="^^20^20^2990712^"
^DD(8925.99,1.05,21,1,0)="OUT OF SERVICE.  The signer's normal signature block is used for"
^DD(8925.99,1.05,21,2,0)="amendments."
^DD(8925.99,1.05,21,3,0)=" "
^DD(8925.99,1.05,21,4,0)="This parameter allows the site to specify the format of the signature"
^DD(8925.99,1.05,21,5,0)="block for an amendment. "
^DD(8925.99,1.05,21,6,0)=" "
^DD(8925.99,1.05,21,7,0)="While Business Rules determine who may amend documents, generally it is"
^DD(8925.99,1.05,21,8,0)="the user class CHIEF,MIS who may do so. If this user is not the site's"
^DD(8925.99,1.05,21,9,0)="Privacy Act officer, then it may be desirable to enter a statement"
^DD(8925.99,1.05,21,10,0)="indicating that the user is signing on behalf of the Privacy Act Officer."
^DD(8925.99,1.05,21,11,0)=" "
^DD(8925.99,1.05,21,12,0)="For example, if the user's name is John Smith, while the site's Privacy"
^DD(8925.99,1.05,21,13,0)="Act Officer is Jane Doe, RRT, then the AMENDMENT SIGNATURE BLOCK might be"
^DD(8925.99,1.05,21,14,0)="entered as: ""for Jane Doe, RRT, PRIVACY ACT OFFICER""."
^DD(8925.99,1.05,21,15,0)=" "
^DD(8925.99,1.05,21,16,0)="The amendment information on the document would then appear as:"
^DD(8925.99,1.05,21,17,0)=" "
^DD(8925.99,1.05,21,18,0)="            AMENDED 10/26/92"
^DD(8925.99,1.05,21,19,0)="            /es/ JOHN SMITH"
^DD(8925.99,1.05,21,20,0)="            for Jane Doe, RRT, PRIVACY ACT OFFICER"
^DD(8925.99,1.05,"DT")="2921026"
^DD(8925.99,1.06,0)="BLANK CHARACTER STRING^F^^1;6^K:$L(X)>3!($L(X)<3) X"
^DD(8925.99,1.06,3)="Answer must be 3 characters in length."
^DD(8925.99,1.06,21,0)="^^3^3^2990628^"
^DD(8925.99,1.06,21,1,0)="This string of characters is used by the transcriptionist to represent a"
^DD(8925.99,1.06,21,2,0)="""blank"" when a word or phrase in the dictation cannot be understood for"
^DD(8925.99,1.06,21,3,0)="inclusion in the transcription."
^DD(8925.99,1.06,"DT")="2930114"
^DD(8925.99,1.07,0)="ENABLE NOTIFICATIONS DATE^D^^1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8925.99,1.07,3)="Enter the date on which to enable signature notifications."
^DD(8925.99,1.07,21,0)="^^4^4^2990628^^"
^DD(8925.99,1.07,21,1,0)="This date indicates to TIU when to begin sending signature notifications"
^DD(8925.99,1.07,21,2,0)="(available/overdue for signature) to expected signers/cosigners."
^DD(8925.99,1.07,21,3,0)="Notifications are sent beginning on this date, and only for documents"
^DD(8925.99,1.07,21,4,0)="entered on/after this date."
^DD(8925.99,1.07,"DT")="2930203"
^DD(8925.99,2,0)="UPLOAD ERROR ALERT RECIPIENT^8925.992P^^2;0"
^DD(8925.99,2,21,0)="^^6^6^2990628^"
^DD(8925.99,2,21,1,0)="These persons receive alerts from the upload/filer process when a document"
^DD(8925.99,2,21,2,0)="cannot be filed/located or has missing fields."
^DD(8925.99,2,21,3,0)=" "
^DD(8925.99,2,21,4,0)="This field is OVERRIDDEN by recipients set for the given document type in"
^DD(8925.99,2,21,5,0)="parameter FILING ERROR ALERT RECIPIENTS in the TIU DOCUMENT PARAMETERS"
^DD(8925.99,2,21,6,0)="file."
^DD(8925.99,2,"DT")="2930413"
^DD(8925.99,3.1,0)="START OF ADD SGNR ALERT PERIOD^F^^3;1^K:$L(X)>5!($L(X)<1)!'((X?1.4N1""D"")!(X?1.4N1""W"")!(X?1.4N1""M"")) X"
^DD(8925.99,3.1,3)="Answer must be 1-4 NUMBERS followed by ""D"", ""W"" or ""M"""
^DD(8925.99,3.1,21,0)="^^6^6^3060330^"
^DD(8925.99,3.1,21,1,0)="This is the length of time that the TIU NIGHTLY TASK will go back in "
^DD(8925.99,3.1,21,2,0)="searching for documents that have overdue additional signatures."
^DD(8925.99,3.1,21,3,0)="The value must be in a FileMan date range format such as 6D, 3W or 4M."
^DD(8925.99,3.1,21,4,0)=" "
^DD(8925.99,3.1,21,5,0)="If no value is entered, the TIU NIGHTLY TASK will begin with the very "
^DD(8925.99,3.1,21,6,0)="first Document in the TIU DOCUMENTS file (8925)."
^DD(8925.99,3.1,"AUDIT")="n"
^DD(8925.99,3.1,"DT")="3060330"
^DD(8925.99,3.2,0)="END OF ADD SGNR ALERT PERIOD^F^^3;2^K:$L(X)>5!($L(X)<1)!'((X?1.4N1""D"")!(X?1.4N1""W"")!(X?1.4N1""M"")) X"
^DD(8925.99,3.2,3)="Answer must be 1-4 NUMBERS followed by ""D"", ""W"" or ""M"""
^DD(8925.99,3.2,21,0)="^^6^6^3060330^"
^DD(8925.99,3.2,21,1,0)="This is the length in time from the current date that the TIU NIGHTLY "
^DD(8925.99,3.2,21,2,0)="TASK will stop regenerating alerts for overdue additional signatures."
^DD(8925.99,3.2,21,3,0)="The value must be in a FileMan date range format such as 6D, 3W or 4M. "
^DD(8925.99,3.2,21,4,0)=" "
^DD(8925.99,3.2,21,5,0)="If no value is entered, the TIU NIGHTLY TASK will search for documents"
^DD(8925.99,3.2,21,6,0)="in the TIU DOCUMENT File (8925) up to the current date."
^DD(8925.99,3.2,"AUDIT")="n"
^DD(8925.99,3.2,"DT")="3060330"
^DD(8925.99,3.3,0)="LENGTH OF SIGNER ALERT PERIOD^F^^3;3^K:$L(X)>5!($L(X)<1)!'((X?1.4N1""D"")!(X?1.4N1""W"")!(X?1.4N1""M"")) X"
^DD(8925.99,3.3,3)="Answer must be 1-4 NUMBERS followed by ""D"", ""W"" or ""M"""
^DD(8925.99,3.3,21,0)="^^7^7^3060719^"
^DD(8925.99,3.3,21,1,0)="This is the length of time that the TIU NIGHTLY TASK will go back prior "
^DD(8925.99,3.3,21,2,0)="to ""today"" when searching for documents that have overdue signatures. "
^DD(8925.99,3.3,21,3,0)="The value must be in a FileMan date range format such as 6D, 3W or 4M. "
^DD(8925.99,3.3,21,4,0)=" "
^DD(8925.99,3.3,21,5,0)="If no value is entered, the TIU NIGHTLY TASK will begin searching for "
^DD(8925.99,3.3,21,6,0)="documents starting at 1 year prior to ""today"" in the TIU DOCUMENTS file "
^DD(8925.99,3.3,21,7,0)="(8925)."
^DD(8925.99,3.3,"DT")="3060706"
^DD(8925.99,"B","AMENDMENT SIGNATURE BLOCK",1.05)=""
^DD(8925.99,"B","ASCII UPLOAD SOURCE",.09)=""
^DD(8925.99,"B","BEGIN REPORT TEXT SIGNAL",.12)=""
^DD(8925.99,"B","BLANK CHARACTER STRING",1.06)=""
^DD(8925.99,"B","CHARACTERS PER LINE",.03)=""
^DD(8925.99,"B","DEFAULT PRIMARY PROVIDER",.08)=""
^DD(8925.99,"B","ENABLE CHART COPY PROMPT",.22)=""
^DD(8925.99,"B","ENABLE ELECTRONIC SIGNATURE",.02)=""
^DD(8925.99,"B","ENABLE NOTIFICATIONS DATE",1.07)=""
^DD(8925.99,"B","END OF ADD SGNR ALERT PERIOD",3.2)=""
^DD(8925.99,"B","END OF MESSAGE SIGNAL",.11)=""
^DD(8925.99,"B","FUTURE APPOINTMENT RANGE",.14)=""
^DD(8925.99,"B","GRACE PERIOD FOR PURGE",.04)=""
^DD(8925.99,"B","GRACE PERIOD FOR SIGNATURE",.05)=""
^DD(8925.99,"B","INSTITUTION",.01)=""
^DD(8925.99,"B","LENGTH OF SIGNER ALERT PERIOD",3.3)=""
^DD(8925.99,"B","MAJOR DELIMITER",.13)=""
^DD(8925.99,"B","OPTIMIZE LIST BUILDING FOR",.06)=""
^DD(8925.99,"B","PACE CHARACTER",.15)=""
^DD(8925.99,"B","RECORD HEADER SIGNAL",.1)=""
^DD(8925.99,"B","RUN UPLOAD FILER IN FOREGROUND",.18)=""
^DD(8925.99,"B","START OF ADD SGNR ALERT PERIOD",3.1)=""
^DD(8925.99,"B","SUPPRESS REVIEW NOTES PROMPT",.07)=""
^DD(8925.99,"B","UPLOAD ERROR ALERT RECIPIENT",2)=""
^DD(8925.99,"B","UPLOAD HEADER FORMAT",.16)=""
^DD(8925.99,"B","UPLOAD PROTOCOL",.17)=""
^DD(8925.99,"GL",0,1,.01)=""
^DD(8925.99,"GL",0,2,.02)=""
^DD(8925.99,"GL",0,3,.03)=""
^DD(8925.99,"GL",0,4,.04)=""
^DD(8925.99,"GL",0,5,.05)=""
^DD(8925.99,"GL",0,6,.06)=""
^DD(8925.99,"GL",0,7,.07)=""
^DD(8925.99,"GL",0,8,.08)=""
^DD(8925.99,"GL",0,9,.09)=""
^DD(8925.99,"GL",0,10,.1)=""
^DD(8925.99,"GL",0,11,.11)=""
^DD(8925.99,"GL",0,12,.12)=""
^DD(8925.99,"GL",0,13,.13)=""
^DD(8925.99,"GL",0,14,.14)=""
^DD(8925.99,"GL",0,15,.15)=""
^DD(8925.99,"GL",0,16,.16)=""
^DD(8925.99,"GL",0,17,.17)=""
^DD(8925.99,"GL",0,18,.18)=""
^DD(8925.99,"GL",0,22,.22)=""
^DD(8925.99,"GL",1,5,1.05)=""
^DD(8925.99,"GL",1,6,1.06)=""
^DD(8925.99,"GL",1,7,1.07)=""
^DD(8925.99,"GL",2,0,2)=""
^DD(8925.99,"GL",3,1,3.1)=""
^DD(8925.99,"GL",3,2,3.2)=""
^DD(8925.99,"GL",3,3,3.3)=""
^DD(8925.99,"IX",.01)=""
^DD(8925.99,"RQ",.01)=""
^DD(8925.99,"SB",8925.992,2)=""
^DD(8925.992,0)="UPLOAD ERROR ALERT RECIPIENT SUB-FIELD^^.01^1"
^DD(8925.992,0,"IX","B",8925.992,.01)=""
^DD(8925.992,0,"NM","UPLOAD ERROR ALERT RECIPIENT")=""
^DD(8925.992,0,"UP")="8925.99"
^DD(8925.992,.01,0)="ALERT RECIPIENT^MP200'^VA(200,^0;1^Q"
^DD(8925.992,.01,1,0)="^.1"
^DD(8925.992,.01,1,1,0)="8925.992^B"
^DD(8925.992,.01,1,1,1)="S ^TIU(8925.99,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8925.992,.01,1,1,2)="K ^TIU(8925.99,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8925.992,.01,3)=""
^DD(8925.992,.01,21,0)="^^6^6^2990628^"
^DD(8925.992,.01,21,1,0)="These persons receive alerts from the upload/filer process when a document"
^DD(8925.992,.01,21,2,0)="cannot be filed/located or has missing fields."
^DD(8925.992,.01,21,3,0)=" "
^DD(8925.992,.01,21,4,0)="This field is OVERRIDDEN by recipients set for the given document type in"
^DD(8925.992,.01,21,5,0)="parameter FILING ERROR ALERT RECIPIENTS in the TIU DOCUMENT PARAMETERS"
^DD(8925.992,.01,21,6,0)="file."
^DD(8925.992,.01,"DT")="2930412"
^DD(8925.992,"B","ALERT RECIPIENT",.01)=""
^DD(8925.992,"GL",0,1,.01)=""
^DD(8925.992,"IX",.01)=""
^DD(8926,0)="FIELD^^1^12"
^DD(8926,0,"DT")="2970327"
^DD(8926,0,"IX","AMENU",8926,.05)=""
^DD(8926,0,"IX","B",8926,.01)=""
^DD(8926,0,"NM","TIU PERSONAL PREFERENCES")=""
^DD(8926,0,"VR")="1.0"
^DD(8926,0,"VRPK")="TEXT INTEGRATION UTILITIES"
^DD(8926,.01,0)="USER NAME^RP200'^VA(200,^0;1^Q"
^DD(8926,.01,1,0)="^.1"
^DD(8926,.01,1,1,0)="8926^B"
^DD(8926,.01,1,1,1)="S ^TIU(8926,""B"",$E(X,1,30),DA)="""""
^DD(8926,.01,1,1,2)="K ^TIU(8926,""B"",$E(X,1,30),DA)"
^DD(8926,.01,3)="Select the user to whom the preferences apply"
^DD(8926,.01,21,0)="^^1^1^2950915^"
^DD(8926,.01,21,1,0)="This is the person whose preferences are represented by the record."
^DD(8926,.01,"DT")="2950915"
^DD(8926,.02,0)="DEFAULT LOCATION^*P44'^SC(^0;2^S DIC(""S"")=""I $$GOODLOC^TIUPREF(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8926,.02,12)="Location must be an active clinic, and may not be an Occasion of Service or a Disposition location."
^DD(8926,.02,12.1)="S DIC(""S"")=""I $$GOODLOC^TIUPREF(Y)"""
^DD(8926,.02,21,0)="^^4^4^2991129^^^^"
^DD(8926,.02,21,1,0)="This hospital location is presented to the user as the default location"
^DD(8926,.02,21,2,0)="when the user enters outpatient TIU documents.  The location must be"
^DD(8926,.02,21,3,0)="an active clinic and may not be an Occasion of Service location or a"
^DD(8926,.02,21,4,0)="Disposition location."
^DD(8926,.02,"DT")="2991124"
^DD(8926,.03,0)="REVIEW SCREEN SORT FIELD^S^P:patient;D:document type;R:reference date;S:status;C:completion date;A:author;E:expected cosigner;^0;3^Q"
^DD(8926,.03,3)="Specify the attribute by which the document list should be sorted."
^DD(8926,.03,21,0)="^^3^3^3010226^"
^DD(8926,.03,21,1,0)="This is the attribute by which the multiple patient documents review"
^DD(8926,.03,21,2,0)="screen lists will be sorted for the current user.  In the absence of a"
^DD(8926,.03,21,3,0)="specific entry, the list will be sorted by reference date."
^DD(8926,.03,"DT")="2950915"
^DD(8926,.04,0)="REVIEW SCREEN SORT ORDER^S^A:ascending;D:descending;^0;4^Q"
^DD(8926,.04,3)="Please specify the order in which you want the list sorted"
^DD(8926,.04,21,0)="^^7^7^3010226^"
^DD(8926,.04,21,1,0)="This is the order in which the following review screen list(s) should be"
^DD(8926,.04,21,2,0)="sorted according to the specified sort field (i.e., Ascending or"
^DD(8926,.04,21,3,0)="Descending):"
^DD(8926,.04,21,4,0)="   - multiple patient documents (several options)"
^DD(8926,.04,21,5,0)="   - option Review Progress Notes [TIU OE/RR REVIEW PROG NOTES] "
^DD(8926,.04,21,6,0)="The default will be ascending, with unsigned stat documents at the top"
^DD(8926,.04,21,7,0)="of the list."
^DD(8926,.04,"DT")="2950915"
^DD(8926,.05,0)="DISPLAY MENUS^S^0:NO;1:YES;^0;5^Q"
^DD(8926,.05,1,0)="^.1"
^DD(8926,.05,1,1,0)="8926^AMENU^MUMPS"
^DD(8926,.05,1,1,1)="D MENUS^TIULX"
^DD(8926,.05,1,1,2)="D:'$D(TIUSET) MENUS^TIULX K TIUSET"
^DD(8926,.05,1,1,"%D",0)="^^2^2^2960201^"
^DD(8926,.05,1,1,"%D",1,0)="This MUMPS-type cross-reference evaluates the user's preference concerning"
^DD(8926,.05,1,1,"%D",2,0)="display or suppression of menus within TIU."
^DD(8926,.05,1,1,"DT")="2960201"
^DD(8926,.05,3)="Indicate whether menus (for document selection, etc.) should be displayed."
^DD(8926,.05,21,0)="^^3^3^2950915^"
^DD(8926,.05,21,1,0)="This field determines whether the menus for document type, search"
^DD(8926,.05,21,2,0)="category, etc. should be automatically displayed (at least until you get"
^DD(8926,.05,21,3,0)="to know them better)."
^DD(8926,.05,"DT")="2960201"
^DD(8926,.06,0)="PATIENT SELECTION PREFERENCE^S^S:single;M:multiple;^0;6^Q"
^DD(8926,.06,3)="Please indicate your patient selection preference"
^DD(8926,.06,21,0)="^^3^3^2950921^"
^DD(8926,.06,21,1,0)="This determines whether the user will be prompted to select one"
^DD(8926,.06,21,2,0)="patient at a time, or with the OE/RR patient look-up, which allows"
^DD(8926,.06,21,3,0)="selection of a list of patients for iterative processing."
^DD(8926,.06,"DT")="2950921"
^DD(8926,.07,0)="ASK 'Save changes?' AFTER EDIT^S^1:YES;0:NO;^0;7^Q"
^DD(8926,.07,3)="Indicate whether you wish to be ased to Save Changes on exit from editor."
^DD(8926,.07,21,0)="^^4^4^2951130^"
^DD(8926,.07,21,1,0)="This parameter enables or disables the prompt (Save changes? YES//) on exit "
^DD(8926,.07,21,2,0)="from your editor.  Enabling the prompt allows you to ""abandon mistakes"", and "
^DD(8926,.07,21,3,0)="helps some users avoid the accidental storage (or potential loss) of data "
^DD(8926,.07,21,4,0)="following editing of documents."
^DD(8926,.07,"DT")="2951130"
^DD(8926,.08,0)="ASK SUBJECT FOR PROGRESS NOTES^S^1:YES;0:NO;^0;8^Q"
^DD(8926,.08,3)="Indicate whether you'd like to be prompted for SUBJECT."
^DD(8926,.08,21,0)="^^3^3^2960302^"
^DD(8926,.08,21,1,0)="Enter YES if you want to be prompted for a SUBJECT when entering or"
^DD(8926,.08,21,2,0)="editing a Progress Note.  Subject is a freetext, indexed field which may"
^DD(8926,.08,21,3,0)="help you to find notes about a given topic, etc."
^DD(8926,.08,"DT")="2960302"
^DD(8926,.09,0)="DEFAULT COSIGNER^*P200'^VA(200,^0;9^S DIC(""S"")=""I +$$SCRDFCS^TIULA3(DUZ,+Y)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926,.09,3)="Indicate which person will usually cosign your Progress Notes."
^DD(8926,.09,12)="Only ACTIVE PROVIDERS may be selected EXCLUDING YOURSELF."
^DD(8926,.09,12.1)="S DIC(""S"")=""I +$$SCRDFCS^TIULA3(DUZ,+Y)"""
^DD(8926,.09,21,0)="^^3^3^2970127^^"
^DD(8926,.09,21,1,0)="This is the person whose name will appear as the default when you are "
^DD(8926,.09,21,2,0)="prompted to name an expected cosigner for the Progress Notes which you"
^DD(8926,.09,21,3,0)="author."
^DD(8926,.09,"DT")="3000224"
^DD(8926,.1,0)="NUMBER OF NOTES ON REV SCREEN^NJ3,0^^0;10^K:+X'=X!(X>100)!(X<15)!(X?.E1"".""1N.N) X"
^DD(8926,.1,3)="Type a Number between 15 and 100"
^DD(8926,.1,21,0)="^^2^2^2970320^^^"
^DD(8926,.1,21,1,0)="This determines the number of notes that will be included in your initial"
^DD(8926,.1,21,2,0)="list when reviewing progress notes by patient."
^DD(8926,.1,"DT")="2970320"
^DD(8926,.11,0)="SUPPRESS REVIEW NOTES PROMPT^S^1:YES;0:NO;^0;11^Q"
^DD(8926,.11,3)="Indicate whether to prompt for review of existing notes on entry"
^DD(8926,.11,21,0)="^^3^3^2970327^"
^DD(8926,.11,21,1,0)="Allows user to specify whether to suppress the prompt to Review Existing"
^DD(8926,.11,21,2,0)="Notes on entry of a Progress Note.  YES will SUPPRESS the prompt, while"
^DD(8926,.11,21,3,0)="NO, or no entry will allow the site's default setting to take precedence."
^DD(8926,.11,"DT")="2970327"
^DD(8926,1,0)="LOCATION BY DAY OF WEEK^8926.01S^^1;0"
^DD(8926,1,21,0)="^^2^2^2970214^^^"
^DD(8926,1,21,1,0)="This multiple provides a means of specifying the user's preferred location"
^DD(8926,1,21,2,0)="by day of week."
^DD(8926,"B","ASK 'Save changes?' AFTER EDIT",.07)=""
^DD(8926,"B","ASK SUBJECT FOR PROGRESS NOTES",.08)=""
^DD(8926,"B","DEFAULT COSIGNER",.09)=""
^DD(8926,"B","DEFAULT LOCATION",.02)=""
^DD(8926,"B","DISPLAY MENUS",.05)=""
^DD(8926,"B","LOCATION BY DAY OF WEEK",1)=""
^DD(8926,"B","NUMBER OF NOTES ON REV SCREEN",.1)=""
^DD(8926,"B","PATIENT SELECTION PREFERENCE",.06)=""
^DD(8926,"B","REVIEW SCREEN SORT FIELD",.03)=""
^DD(8926,"B","REVIEW SCREEN SORT ORDER",.04)=""
^DD(8926,"B","SUPPRESS REVIEW NOTES PROMPT",.11)=""
^DD(8926,"B","USER NAME",.01)=""
^DD(8926,"GL",0,1,.01)=""
^DD(8926,"GL",0,2,.02)=""
^DD(8926,"GL",0,3,.03)=""
^DD(8926,"GL",0,4,.04)=""
^DD(8926,"GL",0,5,.05)=""
^DD(8926,"GL",0,6,.06)=""
^DD(8926,"GL",0,7,.07)=""
^DD(8926,"GL",0,8,.08)=""
^DD(8926,"GL",0,9,.09)=""
^DD(8926,"GL",0,10,.1)=""
^DD(8926,"GL",0,11,.11)=""
^DD(8926,"GL",1,0,1)=""
^DD(8926,"IX",.01)=""
^DD(8926,"IX",.05)=""
^DD(8926,"RQ",.01)=""
^DD(8926,"SB",8926.01,1)=""
^DD(8926.01,0)="LOCATION BY DAY OF WEEK SUB-FIELD^^.02^2"
^DD(8926.01,0,"DT")="2970214"
^DD(8926.01,0,"IX","B",8926.01,.01)=""
^DD(8926.01,0,"NM","LOCATION BY DAY OF WEEK")=""
^DD(8926.01,0,"UP")="8926"
^DD(8926.01,.01,0)="DAY OF WEEK^MS^1:SUNDAY;2:MONDAY;3:TUESDAY;4:WEDNESDAY;5:THURSDAY;6:FRIDAY;7:SATURDAY;^0;1^Q"
^DD(8926.01,.01,1,0)="^.1"
^DD(8926.01,.01,1,1,0)="8926.01^B"
^DD(8926.01,.01,1,1,1)="S ^TIU(8926,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8926.01,.01,1,1,2)="K ^TIU(8926,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8926.01,.01,3)="Please specify the day of week."
^DD(8926.01,.01,21,0)="^^2^2^2950915^"
^DD(8926.01,.01,21,1,0)="This is the day of week on which the user expects to serve patients at a"
^DD(8926.01,.01,21,2,0)="particular location."
^DD(8926.01,.01,"DT")="2970214"
^DD(8926.01,.02,0)="HOSPITAL LOCATION^P44'^SC(^0;2^Q"
^DD(8926.01,.02,3)="Please specify the HOSPITAL LOCATION"
^DD(8926.01,.02,21,0)="^^2^2^2950915^"
^DD(8926.01,.02,21,1,0)="This is the HOSPITAL LOCATION at which the user expects to see patient on"
^DD(8926.01,.02,21,2,0)="the specified day of week."
^DD(8926.01,.02,"DT")="2950915"
^DD(8926.01,"B","DAY OF WEEK",.01)=""
^DD(8926.01,"B","HOSPITAL LOCATION",.02)=""
^DD(8926.01,"GL",0,1,.01)=""
^DD(8926.01,"GL",0,2,.02)=""
^DD(8926.01,"IX",.01)=""
^DD(8926.1,0)="FIELD^^99.991^9"
^DD(8926.1,0,"DDA")="N"
^DD(8926.1,0,"DT")="3060619"
^DD(8926.1,0,"IX","AREG",8926.199,.02)=""
^DD(8926.1,0,"IX","AVUID",8926.1,99.99)=""
^DD(8926.1,0,"IX","B",8926.1,.01)=""
^DD(8926.1,0,"IX","DTYP",8926.1,.08)=""
^DD(8926.1,0,"IX","KWIC",8926.1,.01)=""
^DD(8926.1,0,"IX","ROLE",8926.1,.05)=""
^DD(8926.1,0,"IX","SET",8926.1,.06)=""
^DD(8926.1,0,"IX","SMD",8926.1,.04)=""
^DD(8926.1,0,"IX","SVC",8926.1,.07)=""
^DD(8926.1,0,"NM","TIU VHA ENTERPRISE STANDARD TITLE")=""
^DD(8926.1,0,"PT",8925.1,1501)=""
^DD(8926.1,0,"VR")="1.0"
^DD(8926.1,0,"VRPK")="TIU"
^DD(8926.1,.01,0)="STANDARD TITLE^RF^^0;1^K:$L(X)>90!($L(X)<3)!'(X'?1P.E) X"
^DD(8926.1,.01,.1)="VHA ENTERPRISE NAME"
^DD(8926.1,.01,1,0)="^.1"
^DD(8926.1,.01,1,1,0)="8926.1^B"
^DD(8926.1,.01,1,1,1)="S ^TIU(8926.1,""B"",$E(X,1,90),DA)="""""
^DD(8926.1,.01,1,1,2)="K ^TIU(8926.1,""B"",$E(X,1,90),DA)"
^DD(8926.1,.01,1,1,3)="** DO NOT DELETE **"
^DD(8926.1,.01,1,1,"%D",0)="^^2^2^3060322^"
^DD(8926.1,.01,1,1,"%D",1,0)="This Regular FileMan cross-reference will facilitate look-up and sorting "
^DD(8926.1,.01,1,1,"%D",2,0)="by VHA Enterprise Standard Title."
^DD(8926.1,.01,1,2,0)="8926.1^KWIC^KWIC"
^DD(8926.1,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^TIU(8926.1,""KWIC"",I,DA)="""""
^DD(8926.1,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2 K ^TIU(8926.1,""KWIC"",I,DA)"
^DD(8926.1,.01,1,2,3)="** DO NOT DELETE **"
^DD(8926.1,.01,1,2,"%D",0)="^^2^2^3051028^"
^DD(8926.1,.01,1,2,"%D",1,0)="This Key Word In Context (KWIC) cross-reference will facilitate look-up "
^DD(8926.1,.01,1,2,"%D",2,0)="by partial names."
^DD(8926.1,.01,1,2,"DT")="3051028"
^DD(8926.1,.01,3)="Answer must be 3-90 characters in length"
^DD(8926.1,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(8926.1,.01,8)=" @"
^DD(8926.1,.01,8.5)=" @"
^DD(8926.1,.01,9)="^"
^DD(8926.1,.01,10)="Created by concatenating the SMD, Role, Setting, Service, & Document Type axes, in that order."
^DD(8926.1,.01,21,0)="^^4^4^3060322^"
^DD(8926.1,.01,21,1,0)="This is the VHA Enterprise Standard Title, which is created by"
^DD(8926.1,.01,21,2,0)="concatenating the Subject Matter Domain (SMD), Role, Setting, Service, &"
^DD(8926.1,.01,21,3,0)="Document Type axes, in that order (e.g., Cardiology Attending Inpatient"
^DD(8926.1,.01,21,4,0)="Initial Evaluation Note)."
^DD(8926.1,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.1,.01,"DT")="3060525"
^DD(8926.1,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.1,.04,0)="SUBJECT MATTER DOMAIN^*P8926.2'^TIU(8926.2,^0;4^S DIC(""S"")=""I '$$SCREEN^XTID(8926.2,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.1,.04,1,0)="^.1"
^DD(8926.1,.04,1,1,0)="8926.1^SMD"
^DD(8926.1,.04,1,1,1)="S ^TIU(8926.1,""SMD"",$E(X,1,30),DA)="""""
^DD(8926.1,.04,1,1,2)="K ^TIU(8926.1,""SMD"",$E(X,1,30),DA)"
^DD(8926.1,.04,1,1,3)="** DO NOT DELETE **"
^DD(8926.1,.04,1,1,"%D",0)="^^2^2^3060110^"
^DD(8926.1,.04,1,1,"%D",1,0)="This REGULAR FileMan cross-reference by Subject Matter Domain is for "
^DD(8926.1,.04,1,1,"%D",2,0)="look-up and sorting."
^DD(8926.1,.04,1,1,"DT")="3060110"
^DD(8926.1,.04,9)="^"
^DD(8926.1,.04,12)="Must be an active Subject Matter Domain."
^DD(8926.1,.04,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.2,"""""""",+Y_"""","""")"""
^DD(8926.1,.04,21,0)="^^2^2^3051206^"
^DD(8926.1,.04,21,1,0)="Reference to the Subject Matter Domain. This is useful in both validation "
^DD(8926.1,.04,21,2,0)="and mapping."
^DD(8926.1,.04,"DT")="3060619"
^DD(8926.1,.05,0)="ROLE^*P8926.3'^TIU(8926.3,^0;5^S DIC(""S"")=""I '$$SCREEN^XTID(8926.3,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.1,.05,1,0)="^.1"
^DD(8926.1,.05,1,1,0)="8926.1^ROLE"
^DD(8926.1,.05,1,1,1)="S ^TIU(8926.1,""ROLE"",$E(X,1,30),DA)="""""
^DD(8926.1,.05,1,1,2)="K ^TIU(8926.1,""ROLE"",$E(X,1,30),DA)"
^DD(8926.1,.05,1,1,3)="** DO NOT DELETE **"
^DD(8926.1,.05,1,1,"%D",0)="^^1^1^3060110^"
^DD(8926.1,.05,1,1,"%D",1,0)="This REGULAR FileMan cross-reference by Role is for look-up and sorting."
^DD(8926.1,.05,1,1,"DT")="3060110"
^DD(8926.1,.05,9)="^"
^DD(8926.1,.05,12)="Only ACTIVE Roles may be selected."
^DD(8926.1,.05,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.3,"""""""",+Y_"""","""")"""
^DD(8926.1,.05,21,0)="^^1^1^3051206^"
^DD(8926.1,.05,21,1,0)="Reference to the Role. This is useful in both validation and mapping."
^DD(8926.1,.05,"DT")="3060619"
^DD(8926.1,.06,0)="SETTING^*P8926.4'^TIU(8926.4,^0;6^S DIC(""S"")=""I '$$SCREEN^XTID(8926.4,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.1,.06,1,0)="^.1"
^DD(8926.1,.06,1,1,0)="8926.1^SET"
^DD(8926.1,.06,1,1,1)="S ^TIU(8926.1,""SET"",$E(X,1,30),DA)="""""
^DD(8926.1,.06,1,1,2)="K ^TIU(8926.1,""SET"",$E(X,1,30),DA)"
^DD(8926.1,.06,1,1,3)="** DO NOT DELETE **"
^DD(8926.1,.06,1,1,"%D",0)="^^2^2^3060110^"
^DD(8926.1,.06,1,1,"%D",1,0)="This REGULAR FileMan cross-reference by Setting is for look-up and"
^DD(8926.1,.06,1,1,"%D",2,0)="sorting."
^DD(8926.1,.06,1,1,"DT")="3060110"
^DD(8926.1,.06,9)="^"
^DD(8926.1,.06,12)="Only ACTIVE Settings may be selected."
^DD(8926.1,.06,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.4,"""""""",+Y_"""","""")"""
^DD(8926.1,.06,21,0)="^^1^1^3051206^"
^DD(8926.1,.06,21,1,0)="Reference to the Setting. This is useful in both validation and mapping."
^DD(8926.1,.06,"DT")="3060619"
^DD(8926.1,.07,0)="SERVICE^*P8926.5'^TIU(8926.5,^0;7^S DIC(""S"")=""I '$$SCREEN^XTID(8926.5,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.1,.07,1,0)="^.1"
^DD(8926.1,.07,1,1,0)="8926.1^SVC"
^DD(8926.1,.07,1,1,1)="S ^TIU(8926.1,""SVC"",$E(X,1,30),DA)="""""
^DD(8926.1,.07,1,1,2)="K ^TIU(8926.1,""SVC"",$E(X,1,30),DA)"
^DD(8926.1,.07,1,1,3)="** DO NOT DELETE **"
^DD(8926.1,.07,1,1,"%D",0)="^^2^2^3060110^"
^DD(8926.1,.07,1,1,"%D",1,0)="This REGULAR FileMan cross-reference by Service is for look-up and"
^DD(8926.1,.07,1,1,"%D",2,0)="sorting."
^DD(8926.1,.07,1,1,"DT")="3060110"
^DD(8926.1,.07,9)="^"
^DD(8926.1,.07,12)="Only ACTIVE Services may be selected."
^DD(8926.1,.07,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.5,"""""""",+Y_"""","""")"""
^DD(8926.1,.07,21,0)="^^1^1^3051206^"
^DD(8926.1,.07,21,1,0)="Reference to the Service. This is useful in both validation and mapping."
^DD(8926.1,.07,"DT")="3060619"
^DD(8926.1,.08,0)="DOCUMENT TYPE^*P8926.6'^TIU(8926.6,^0;8^S DIC(""S"")=""I '$$SCREEN^XTID(8926.6,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.1,.08,1,0)="^.1"
^DD(8926.1,.08,1,1,0)="8926.1^DTYP"
^DD(8926.1,.08,1,1,1)="S ^TIU(8926.1,""DTYP"",$E(X,1,30),DA)="""""
^DD(8926.1,.08,1,1,2)="K ^TIU(8926.1,""DTYP"",$E(X,1,30),DA)"
^DD(8926.1,.08,1,1,3)="** DO NOT DELETE **"
^DD(8926.1,.08,1,1,"%D",0)="^^2^2^3060110^"
^DD(8926.1,.08,1,1,"%D",1,0)="This REGULAR FileMan cross-reference by Document Type is for look-up and"
^DD(8926.1,.08,1,1,"%D",2,0)="sorting."
^DD(8926.1,.08,1,1,"DT")="3060110"
^DD(8926.1,.08,9)="^"
^DD(8926.1,.08,12)="Only ACTIVE Document Types may be selected."
^DD(8926.1,.08,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.6,"""""""",+Y_"""","""")"""
^DD(8926.1,.08,21,0)="^^1^1^3051206^"
^DD(8926.1,.08,21,1,0)="Reference to the Setting. This is useful in both validation and mapping."
^DD(8926.1,.08,"DT")="3060619"
^DD(8926.1,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8926.1,99.98,9)="^"
^DD(8926.1,99.98,21,0)="^^2^2^3050210^"
^DD(8926.1,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8926.1,99.98,21,2,0)="Term/Concept."
^DD(8926.1,99.98,"DT")="3060421"
^DD(8926.1,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(8926.1,99.99,1,0)="^.1"
^DD(8926.1,99.99,1,1,0)="8926.1^AVUID"
^DD(8926.1,99.99,1,1,1)="S ^TIU(8926.1,""AVUID"",$E(X,1,30),DA)="""""
^DD(8926.1,99.99,1,1,2)="K ^TIU(8926.1,""AVUID"",$E(X,1,30),DA)"
^DD(8926.1,99.99,1,1,3)="This cross-reference is by VUID."
^DD(8926.1,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(8926.1,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(8926.1,99.99,1,1,"DT")="3041223"
^DD(8926.1,99.99,3)="Answer must be 1-20 digits in length."
^DD(8926.1,99.99,9)="^"
^DD(8926.1,99.99,21,0)="^.001^2^2^3050210^^"
^DD(8926.1,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(8926.1,99.99,21,2,0)="terms VHA wide."
^DD(8926.1,99.99,"DT")="3060421"
^DD(8926.1,99.991,0)="EFFECTIVE DATE/TIME^8926.199DA^^TERMSTATUS;0"
^DD(8926.1,99.991,9)="^"
^DD(8926.1,99.991,21,0)="^^1^1^3050201^"
^DD(8926.1,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8926.1,99.991,"DT")="3060421"
^DD(8926.1,"B","DOCUMENT TYPE",.08)=""
^DD(8926.1,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8926.1,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8926.1,"B","ROLE",.05)=""
^DD(8926.1,"B","SERVICE",.07)=""
^DD(8926.1,"B","SETTING",.06)=""
^DD(8926.1,"B","STANDARD TITLE",.01)=""
^DD(8926.1,"B","SUBJECT MATTER DOMAIN",.04)=""
^DD(8926.1,"B","VHA ENTERPRISE NAME",.01)="1"
^DD(8926.1,"B","VUID",99.99)=""
^DD(8926.1,"GL",0,1,.01)=""
^DD(8926.1,"GL",0,4,.04)=""
^DD(8926.1,"GL",0,5,.05)=""
^DD(8926.1,"GL",0,6,.06)=""
^DD(8926.1,"GL",0,7,.07)=""
^DD(8926.1,"GL",0,8,.08)=""
^DD(8926.1,"GL","TERMSTATUS",0,99.991)=""
^DD(8926.1,"GL","VUID",1,99.99)=""
^DD(8926.1,"GL","VUID",2,99.98)=""
^DD(8926.1,"IX",.01)=""
^DD(8926.1,"IX",.04)=""
^DD(8926.1,"IX",.05)=""
^DD(8926.1,"IX",.06)=""
^DD(8926.1,"IX",.07)=""
^DD(8926.1,"IX",.08)=""
^DD(8926.1,"IX",99.99)=""
^DD(8926.1,"RQ",.01)=""
^DD(8926.1,"RQ",99.98)=""
^DD(8926.1,"RQ",99.99)=""
^DD(8926.1,"SB",8926.199,99.991)=""
^DD(8926.199,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8926.199,0,"DT")="3050201"
^DD(8926.199,0,"IX","B",8926.199,.01)=""
^DD(8926.199,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(8926.199,0,"UP")="8926.1"
^DD(8926.199,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8926.199,.01,1,0)="^.1"
^DD(8926.199,.01,1,1,0)="8926.199^B"
^DD(8926.199,.01,1,1,1)="S ^TIU(8926.1,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(8926.199,.01,1,1,2)="K ^TIU(8926.1,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(8926.199,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(8926.199,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(8926.199,.01,9)="^"
^DD(8926.199,.01,21,0)="^^2^2^3050201^"
^DD(8926.199,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8926.199,.01,21,2,0)="established."
^DD(8926.199,.01,"DT")="3060421"
^DD(8926.199,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(8926.199,.02,1,0)="^.1"
^DD(8926.199,.02,1,1,0)="8926.1^AREG^MUMPS"
^DD(8926.199,.02,1,1,1)="D SET^TIUDD61"
^DD(8926.199,.02,1,1,2)="Q"
^DD(8926.199,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.199,.02,1,1,"%D",0)="^^5^5^3070312^"
^DD(8926.199,.02,1,1,"%D",1,0)="This MUMPS-type cross-reference registers entries for which the "
^DD(8926.199,.02,1,1,"%D",2,0)="activation status has changed during deployment of Enterprise Standard "
^DD(8926.199,.02,1,1,"%D",3,0)="Titles from ETS. When the deployment process finishes, a bulletin will be "
^DD(8926.199,.02,1,1,"%D",4,0)="sent to the TIU CACS mail group indicating which titles were either "
^DD(8926.199,.02,1,1,"%D",5,0)="activated or inactivated by the deployment."
^DD(8926.199,.02,1,1,"DT")="3070312"
^DD(8926.199,.02,9)="^"
^DD(8926.199,.02,21,0)="^^4^4^3050201^"
^DD(8926.199,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(8926.199,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8926.199,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(8926.199,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8926.199,.02,"DT")="3070312"
^DD(8926.199,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8926.199,"B","STATUS",.02)=""
^DD(8926.199,"GL",0,1,.01)=""
^DD(8926.199,"GL",0,2,.02)=""
^DD(8926.199,"IX",.01)=""
^DD(8926.199,"IX",.02)=""
^DD(8926.199,"RQ",.01)=""
^DD(8926.199,"RQ",.02)=""
^DD(8926.2,0)="FIELD^^99.991^5"
^DD(8926.2,0,"DDA")="N"
^DD(8926.2,0,"DT")="3060209"
^DD(8926.2,0,"IX","AVUID",8926.2,99.99)=""
^DD(8926.2,0,"IX","B",8926.2,.01)=""
^DD(8926.2,0,"IX","C",8926.2,.02)=""
^DD(8926.2,0,"IX","KWIC",8926.2,.01)=""
^DD(8926.2,0,"NM","TIU LOINC SUBJECT MATTER DOMAIN")=""
^DD(8926.2,0,"PT",8926.1,.04)=""
^DD(8926.2,0,"PT",8926.72,.02)=""
^DD(8926.2,0,"VR")="1.0"
^DD(8926.2,0,"VRPK")="TIU"
^DD(8926.2,.01,0)="SUBJECT MATTER DOMAIN^RF^^0;1^K:$L(X)>90!($L(X)<3)!'(X'?1P.E) X"
^DD(8926.2,.01,1,0)="^.1^^-1"
^DD(8926.2,.01,1,1,0)="8926.2^B"
^DD(8926.2,.01,1,1,1)="S ^TIU(8926.2,""B"",$E(X,1,90),DA)="""""
^DD(8926.2,.01,1,1,2)="K ^TIU(8926.2,""B"",$E(X,1,90),DA)"
^DD(8926.2,.01,1,1,3)="** DO NOT DELETE **"
^DD(8926.2,.01,1,1,"%D",0)="^.101^2^2^3051216^^"
^DD(8926.2,.01,1,1,"%D",1,0)="This Regular FileMan cross-reference will facilitate look-up and sorting "
^DD(8926.2,.01,1,1,"%D",2,0)="by Subject Matter Domain."
^DD(8926.2,.01,1,2,0)="8926.2^KWIC^KWIC"
^DD(8926.2,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^TIU(8926.2,""KWIC"",I,DA)="""""
^DD(8926.2,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2 K ^TIU(8926.2,""KWIC"",I,DA)"
^DD(8926.2,.01,1,2,3)="** DO NOT DELETE **"
^DD(8926.2,.01,1,2,"%D",0)="^.101^2^2^3051216^^"
^DD(8926.2,.01,1,2,"%D",1,0)="This Key Word in Context (KWIC) cross-reference will facilitate look-up "
^DD(8926.2,.01,1,2,"%D",2,0)="by partial names."
^DD(8926.2,.01,1,2,"DT")="3051206"
^DD(8926.2,.01,3)="Answer must be 3-90 characters in length"
^DD(8926.2,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(8926.2,.01,9)="^"
^DD(8926.2,.01,21,0)="^^3^3^3051206^"
^DD(8926.2,.01,21,1,0)="This is the LOINC SUBJECT MATTER DOMAIN axis, which characterizes the "
^DD(8926.2,.01,21,2,0)="subject matter and/or discipline that is relevant to the document being "
^DD(8926.2,.01,21,3,0)="considered (e.g., Cardiology, Primary Care, Radiology, etc.)."
^DD(8926.2,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.2,.01,"DT")="3060421"
^DD(8926.2,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.2,.02,0)="ALTERNATE EXPRESSION^F^^0;2^K:$L(X)>90!($L(X)<2) X"
^DD(8926.2,.02,1,0)="^.1"
^DD(8926.2,.02,1,1,0)="8926.2^C"
^DD(8926.2,.02,1,1,1)="S ^TIU(8926.2,""C"",$E(X,1,90),DA)="""""
^DD(8926.2,.02,1,1,2)="K ^TIU(8926.2,""C"",$E(X,1,90),DA)"
^DD(8926.2,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.2,.02,1,1,"%D",0)="^^2^2^3060201^"
^DD(8926.2,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference on Alternate Expression allows for "
^DD(8926.2,.02,1,1,"%D",2,0)="look-up and sorting by synonym."
^DD(8926.2,.02,1,1,"DT")="3060201"
^DD(8926.2,.02,3)="Answer must be 2-90 characters in length"
^DD(8926.2,.02,9)="^"
^DD(8926.2,.02,21,0)="^^10^10^3060413^"
^DD(8926.2,.02,21,1,0)="This is an alternate expression for the Subject Matter Domain. "
^DD(8926.2,.02,21,2,0)=" "
^DD(8926.2,.02,21,3,0)="NOTE: These terms are for the initial mapping process only. The mapping"
^DD(8926.2,.02,21,4,0)="process is a one time exercise until all existing active titles are mapped"
^DD(8926.2,.02,21,5,0)="to a standard title.  This field will NOT be used to deploy data thru MFS."
^DD(8926.2,.02,21,6,0)="This field will not be updated after the initial installation. The "
^DD(8926.2,.02,21,7,0)="alternate expression does not have to be stored in VISTA separately from "
^DD(8926.2,.02,21,8,0)="the standard title.  It will be stored in the terminology server. The look"
^DD(8926.2,.02,21,9,0)="up and search does not use the alternate expression term. We will keep"
^DD(8926.2,.02,21,10,0)="this data in the terminology server."
^DD(8926.2,.02,"DT")="3060413"
^DD(8926.2,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8926.2,99.98,9)="^"
^DD(8926.2,99.98,21,0)="^^2^2^3050210^"
^DD(8926.2,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8926.2,99.98,21,2,0)="Term/Concept."
^DD(8926.2,99.98,"DT")="3060421"
^DD(8926.2,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(8926.2,99.99,1,0)="^.1"
^DD(8926.2,99.99,1,1,0)="8926.2^AVUID"
^DD(8926.2,99.99,1,1,1)="S ^TIU(8926.2,""AVUID"",$E(X,1,30),DA)="""""
^DD(8926.2,99.99,1,1,2)="K ^TIU(8926.2,""AVUID"",$E(X,1,30),DA)"
^DD(8926.2,99.99,1,1,3)="This cross-reference is by VUID."
^DD(8926.2,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(8926.2,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(8926.2,99.99,1,1,"DT")="3041223"
^DD(8926.2,99.99,3)="Answer must be 1-20 digits in length."
^DD(8926.2,99.99,9)="^"
^DD(8926.2,99.99,21,0)="^.001^2^2^3050210^^"
^DD(8926.2,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(8926.2,99.99,21,2,0)="terms VHA wide."
^DD(8926.2,99.99,"DT")="3060421"
^DD(8926.2,99.991,0)="EFFECTIVE DATE/TIME^8926.299DA^^TERMSTATUS;0"
^DD(8926.2,99.991,9)="^"
^DD(8926.2,99.991,21,0)="^^1^1^3050201^"
^DD(8926.2,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8926.2,99.991,"DT")="3060421"
^DD(8926.2,"B","ALTERNATE EXPRESSION",.02)=""
^DD(8926.2,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8926.2,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8926.2,"B","SUBJECT MATTER DOMAIN",.01)=""
^DD(8926.2,"B","VUID",99.99)=""
^DD(8926.2,"GL",0,1,.01)=""
^DD(8926.2,"GL",0,2,.02)=""
^DD(8926.2,"GL","TERMSTATUS",0,99.991)=""
^DD(8926.2,"GL","VUID",1,99.99)=""
^DD(8926.2,"GL","VUID",2,99.98)=""
^DD(8926.2,"IX",.01)=""
^DD(8926.2,"IX",.02)=""
^DD(8926.2,"IX",99.99)=""
^DD(8926.2,"RQ",.01)=""
^DD(8926.2,"RQ",99.98)=""
^DD(8926.2,"RQ",99.99)=""
^DD(8926.2,"SB",8926.299,99.991)=""
^DD(8926.299,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8926.299,0,"DT")="3050201"
^DD(8926.299,0,"IX","B",8926.299,.01)=""
^DD(8926.299,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(8926.299,0,"UP")="8926.2"
^DD(8926.299,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8926.299,.01,1,0)="^.1"
^DD(8926.299,.01,1,1,0)="8926.299^B"
^DD(8926.299,.01,1,1,1)="S ^TIU(8926.2,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(8926.299,.01,1,1,2)="K ^TIU(8926.2,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(8926.299,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(8926.299,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(8926.299,.01,9)="^"
^DD(8926.299,.01,21,0)="^^2^2^3050201^"
^DD(8926.299,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8926.299,.01,21,2,0)="established."
^DD(8926.299,.01,"DT")="3060421"
^DD(8926.299,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(8926.299,.02,9)="^"
^DD(8926.299,.02,21,0)="^^4^4^3050201^"
^DD(8926.299,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(8926.299,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8926.299,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(8926.299,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8926.299,.02,"DT")="3060421"
^DD(8926.299,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8926.299,"B","STATUS",.02)=""
^DD(8926.299,"GL",0,1,.01)=""
^DD(8926.299,"GL",0,2,.02)=""
^DD(8926.299,"IX",.01)=""
^DD(8926.299,"RQ",.01)=""
^DD(8926.299,"RQ",.02)=""
^DD(8926.3,0)="FIELD^^99.991^5"
^DD(8926.3,0,"DDA")="N"
^DD(8926.3,0,"DT")="3060209"
^DD(8926.3,0,"IX","AVUID",8926.3,99.99)=""
^DD(8926.3,0,"IX","B",8926.3,.01)=""
^DD(8926.3,0,"IX","C",8926.3,.02)=""
^DD(8926.3,0,"IX","KWIC",8926.3,.01)=""
^DD(8926.3,0,"NM","TIU LOINC ROLE")=""
^DD(8926.3,0,"PT",8926.1,.05)=""
^DD(8926.3,0,"PT",8926.73,.02)=""
^DD(8926.3,0,"VR")="1.0"
^DD(8926.3,0,"VRPK")="TIU"
^DD(8926.3,.01,0)="ROLE^RF^^0;1^K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.3,.01,1,0)="^.1^^-1"
^DD(8926.3,.01,1,1,0)="8926.3^B"
^DD(8926.3,.01,1,1,1)="S ^TIU(8926.3,""B"",$E(X,1,90),DA)="""""
^DD(8926.3,.01,1,1,2)="K ^TIU(8926.3,""B"",$E(X,1,90),DA)"
^DD(8926.3,.01,1,1,3)="** DO NOT DELETE **"
^DD(8926.3,.01,1,1,"%D",0)="^^2^2^3051206^"
^DD(8926.3,.01,1,1,"%D",1,0)="This Regular FileMan cross-reference will facilitate look-up and sorting "
^DD(8926.3,.01,1,1,"%D",2,0)="by Role."
^DD(8926.3,.01,1,2,0)="8926.3^KWIC^KWIC"
^DD(8926.3,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^TIU(8926.3,""KWIC"",I,DA)="""""
^DD(8926.3,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2 K ^TIU(8926.3,""KWIC"",I,DA)"
^DD(8926.3,.01,1,2,3)="** DO NOT DELETE **"
^DD(8926.3,.01,1,2,"%D",0)="^^2^2^3051206^"
^DD(8926.3,.01,1,2,"%D",1,0)="This Key Word in Context (KWIC) cross-reference will facilitate look-up "
^DD(8926.3,.01,1,2,"%D",2,0)="by partial names."
^DD(8926.3,.01,1,2,"DT")="3051206"
^DD(8926.3,.01,3)="Answer must be 2-90 characters in length"
^DD(8926.3,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(8926.3,.01,9)="^"
^DD(8926.3,.01,21,0)="^^3^3^3051206^^"
^DD(8926.3,.01,21,1,0)="This is the LOINC ROLE axis, which characterizes the clinical role of the "
^DD(8926.3,.01,21,2,0)="author of the document relative to the subject of the document.  (e.g., "
^DD(8926.3,.01,21,3,0)="Cardiologist, Attending Physician, Respiratory Therapist, etc.)."
^DD(8926.3,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.3,.01,"DT")="3060421"
^DD(8926.3,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.3,.02,0)="ALTERNATE EXPRESSION^F^^0;2^K:$L(X)>90!($L(X)<2) X"
^DD(8926.3,.02,1,0)="^.1"
^DD(8926.3,.02,1,1,0)="8926.3^C"
^DD(8926.3,.02,1,1,1)="S ^TIU(8926.3,""C"",$E(X,1,90),DA)="""""
^DD(8926.3,.02,1,1,2)="K ^TIU(8926.3,""C"",$E(X,1,90),DA)"
^DD(8926.3,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.3,.02,1,1,"%D",0)="^.101^2^2^3060201^^"
^DD(8926.3,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference on Alternate Expression allows for"
^DD(8926.3,.02,1,1,"%D",2,0)="look-up and sorting by synonym."
^DD(8926.3,.02,1,1,"DT")="3060201"
^DD(8926.3,.02,3)="Answer must be 2-90 characters in length"
^DD(8926.3,.02,9)="^"
^DD(8926.3,.02,21,0)="^^10^10^3060413^"
^DD(8926.3,.02,21,1,0)="This is an alternate expression for the ROLE."
^DD(8926.3,.02,21,2,0)=" "
^DD(8926.3,.02,21,3,0)="NOTE: These terms are for the initial mapping process only. The mapping"
^DD(8926.3,.02,21,4,0)="process is a one time exercise until all existing active titles are mapped"
^DD(8926.3,.02,21,5,0)="to a standard title. This field will NOT be used to deploy data thru"
^DD(8926.3,.02,21,6,0)="MFS. This field will not be updated after the initial installation. The"
^DD(8926.3,.02,21,7,0)="alternate expression does not have to be stored in VISTA separately from"
^DD(8926.3,.02,21,8,0)="the standard title. It will be stored in the terminology server. The"
^DD(8926.3,.02,21,9,0)="look up and search does not use the alternate expression term. We will"
^DD(8926.3,.02,21,10,0)="keep this data in the terminology server."
^DD(8926.3,.02,"DT")="3060413"
^DD(8926.3,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8926.3,99.98,9)="^"
^DD(8926.3,99.98,21,0)="^^2^2^3050210^"
^DD(8926.3,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8926.3,99.98,21,2,0)="Term/Concept."
^DD(8926.3,99.98,"DT")="3060421"
^DD(8926.3,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(8926.3,99.99,1,0)="^.1"
^DD(8926.3,99.99,1,1,0)="8926.3^AVUID"
^DD(8926.3,99.99,1,1,1)="S ^TIU(8926.3,""AVUID"",$E(X,1,30),DA)="""""
^DD(8926.3,99.99,1,1,2)="K ^TIU(8926.3,""AVUID"",$E(X,1,30),DA)"
^DD(8926.3,99.99,1,1,3)="This cross-reference is by VUID."
^DD(8926.3,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(8926.3,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(8926.3,99.99,1,1,"DT")="3041223"
^DD(8926.3,99.99,3)="Answer must be 1-20 digits in length."
^DD(8926.3,99.99,9)="^"
^DD(8926.3,99.99,21,0)="^.001^2^2^3050210^^"
^DD(8926.3,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(8926.3,99.99,21,2,0)="terms VHA wide."
^DD(8926.3,99.99,"DT")="3060421"
^DD(8926.3,99.991,0)="EFFECTIVE DATE/TIME^8926.399DA^^TERMSTATUS;0"
^DD(8926.3,99.991,9)="^"
^DD(8926.3,99.991,21,0)="^^1^1^3050201^"
^DD(8926.3,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8926.3,99.991,"DT")="3060421"
^DD(8926.3,"B","ALTERNATE EXPRESSION",.02)=""
^DD(8926.3,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8926.3,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8926.3,"B","ROLE",.01)=""
^DD(8926.3,"B","VUID",99.99)=""
^DD(8926.3,"GL",0,1,.01)=""
^DD(8926.3,"GL",0,2,.02)=""
^DD(8926.3,"GL","TERMSTATUS",0,99.991)=""
^DD(8926.3,"GL","VUID",1,99.99)=""
^DD(8926.3,"GL","VUID",2,99.98)=""
^DD(8926.3,"IX",.01)=""
^DD(8926.3,"IX",.02)=""
^DD(8926.3,"IX",99.99)=""
^DD(8926.3,"RQ",.01)=""
^DD(8926.3,"RQ",99.98)=""
^DD(8926.3,"RQ",99.99)=""
^DD(8926.3,"SB",8926.399,99.991)=""
^DD(8926.399,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8926.399,0,"DT")="3050201"
^DD(8926.399,0,"IX","B",8926.399,.01)=""
^DD(8926.399,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(8926.399,0,"UP")="8926.3"
^DD(8926.399,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8926.399,.01,1,0)="^.1"
^DD(8926.399,.01,1,1,0)="8926.399^B"
^DD(8926.399,.01,1,1,1)="S ^TIU(8926.3,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(8926.399,.01,1,1,2)="K ^TIU(8926.3,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(8926.399,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(8926.399,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(8926.399,.01,9)="^"
^DD(8926.399,.01,21,0)="^^2^2^3050201^"
^DD(8926.399,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8926.399,.01,21,2,0)="established."
^DD(8926.399,.01,"DT")="3060421"
^DD(8926.399,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(8926.399,.02,9)="^"
^DD(8926.399,.02,21,0)="^^4^4^3050201^"
^DD(8926.399,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(8926.399,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8926.399,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(8926.399,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8926.399,.02,"DT")="3060421"
^DD(8926.399,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8926.399,"B","STATUS",.02)=""
^DD(8926.399,"GL",0,1,.01)=""
^DD(8926.399,"GL",0,2,.02)=""
^DD(8926.399,"IX",.01)=""
^DD(8926.399,"RQ",.01)=""
^DD(8926.399,"RQ",.02)=""
^DD(8926.4,0)="FIELD^^99.991^5"
^DD(8926.4,0,"DDA")="N"
^DD(8926.4,0,"DT")="3060209"
^DD(8926.4,0,"IX","AVUID",8926.4,99.99)=""
^DD(8926.4,0,"IX","B",8926.4,.01)=""
^DD(8926.4,0,"IX","C",8926.4,.02)=""
^DD(8926.4,0,"IX","KWIC",8926.4,.01)=""
^DD(8926.4,0,"NM","TIU LOINC SETTING")=""
^DD(8926.4,0,"PT",8926.1,.06)=""
^DD(8926.4,0,"PT",8926.74,.02)=""
^DD(8926.4,0,"VR")="1.0"
^DD(8926.4,0,"VRPK")="TIU"
^DD(8926.4,.01,0)="SETTING^RF^^0;1^K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.4,.01,1,0)="^.1"
^DD(8926.4,.01,1,1,0)="8926.4^B"
^DD(8926.4,.01,1,1,1)="S ^TIU(8926.4,""B"",$E(X,1,90),DA)="""""
^DD(8926.4,.01,1,1,2)="K ^TIU(8926.4,""B"",$E(X,1,90),DA)"
^DD(8926.4,.01,1,1,3)="** DO NOT DELETE **"
^DD(8926.4,.01,1,1,"%D",0)="^.101^2^2^3051206^^^"
^DD(8926.4,.01,1,1,"%D",1,0)="This Regular FileMan cross-reference will facilitate look-up and sorting "
^DD(8926.4,.01,1,1,"%D",2,0)="by Setting."
^DD(8926.4,.01,1,2,0)="8926.4^KWIC^KWIC"
^DD(8926.4,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^TIU(8926.4,""KWIC"",I,DA)="""""
^DD(8926.4,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2 K ^TIU(8926.4,""KWIC"",I,DA)"
^DD(8926.4,.01,1,2,3)="** DO NOT DELETE **"
^DD(8926.4,.01,1,2,"%D",0)="^.101^2^2^3051206^^^"
^DD(8926.4,.01,1,2,"%D",1,0)="This Key Word in Context (KWIC) cross-reference will facilitate look-up "
^DD(8926.4,.01,1,2,"%D",2,0)="by partial names."
^DD(8926.4,.01,1,2,"DT")="3051206"
^DD(8926.4,.01,3)="Answer must be 2-90 characters in length"
^DD(8926.4,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(8926.4,.01,9)="^"
^DD(8926.4,.01,21,0)="^^3^3^3051206^"
^DD(8926.4,.01,21,1,0)="This is the LOINC SETTING axis, which characterizes the place where the "
^DD(8926.4,.01,21,2,0)="service was provided.  (e.g., Cardiology Clinic, Emergency Department, "
^DD(8926.4,.01,21,3,0)="etc.)."
^DD(8926.4,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.4,.01,"DT")="3060421"
^DD(8926.4,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.4,.02,0)="ALTERNATE EXPRESSION^F^^0;2^K:$L(X)>90!($L(X)<2) X"
^DD(8926.4,.02,1,0)="^.1"
^DD(8926.4,.02,1,1,0)="8926.4^C"
^DD(8926.4,.02,1,1,1)="S ^TIU(8926.4,""C"",$E(X,1,90),DA)="""""
^DD(8926.4,.02,1,1,2)="K ^TIU(8926.4,""C"",$E(X,1,90),DA)"
^DD(8926.4,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.4,.02,1,1,"%D",0)="^.101^2^2^3060201^^"
^DD(8926.4,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference on Alternate Expression allows for"
^DD(8926.4,.02,1,1,"%D",2,0)="look-up and sorting by synonym."
^DD(8926.4,.02,1,1,"DT")="3060201"
^DD(8926.4,.02,3)="Answer must be 2-90 characters in length"
^DD(8926.4,.02,9)="^"
^DD(8926.4,.02,21,0)="^^10^10^3060413^"
^DD(8926.4,.02,21,1,0)="This is an alternate expression for the Setting."
^DD(8926.4,.02,21,2,0)=" "
^DD(8926.4,.02,21,3,0)="NOTE: These terms are for the initial mapping process only. The mapping"
^DD(8926.4,.02,21,4,0)="process is a one time exercise until all existing active titles are mapped"
^DD(8926.4,.02,21,5,0)="to a standard title. This field will NOT be used to deploy data thru MFS."
^DD(8926.4,.02,21,6,0)="This field will not be updated after the initial installation. The"
^DD(8926.4,.02,21,7,0)="alternate expression does not have to be stored in VISTA separately from"
^DD(8926.4,.02,21,8,0)="the standard title. It will be stored in the terminology server. The look"
^DD(8926.4,.02,21,9,0)="up and search does not use the alternate expression term. We will keep"
^DD(8926.4,.02,21,10,0)="this data in the terminology server."
^DD(8926.4,.02,"DT")="3060201"
^DD(8926.4,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8926.4,99.98,9)="^"
^DD(8926.4,99.98,21,0)="^^2^2^3050210^"
^DD(8926.4,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8926.4,99.98,21,2,0)="Term/Concept."
^DD(8926.4,99.98,"DT")="3060421"
^DD(8926.4,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(8926.4,99.99,1,0)="^.1"
^DD(8926.4,99.99,1,1,0)="8926.4^AVUID"
^DD(8926.4,99.99,1,1,1)="S ^TIU(8926.4,""AVUID"",$E(X,1,30),DA)="""""
^DD(8926.4,99.99,1,1,2)="K ^TIU(8926.4,""AVUID"",$E(X,1,30),DA)"
^DD(8926.4,99.99,1,1,3)="This cross-reference is by VUID."
^DD(8926.4,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(8926.4,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(8926.4,99.99,1,1,"DT")="3041223"
^DD(8926.4,99.99,3)="Answer must be 1-20 digits in length."
^DD(8926.4,99.99,9)="^"
^DD(8926.4,99.99,21,0)="^.001^2^2^3050210^^"
^DD(8926.4,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(8926.4,99.99,21,2,0)="terms VHA wide."
^DD(8926.4,99.99,"DT")="3060421"
^DD(8926.4,99.991,0)="EFFECTIVE DATE/TIME^8926.499DA^^TERMSTATUS;0"
^DD(8926.4,99.991,9)="^"
^DD(8926.4,99.991,21,0)="^^1^1^3050201^"
^DD(8926.4,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8926.4,99.991,"DT")="3060421"
^DD(8926.4,"B","ALTERNATE EXPRESSION",.02)=""
^DD(8926.4,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8926.4,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8926.4,"B","SETTING",.01)=""
^DD(8926.4,"B","VUID",99.99)=""
^DD(8926.4,"GL",0,1,.01)=""
^DD(8926.4,"GL",0,2,.02)=""
^DD(8926.4,"GL","TERMSTATUS",0,99.991)=""
^DD(8926.4,"GL","VUID",1,99.99)=""
^DD(8926.4,"GL","VUID",2,99.98)=""
^DD(8926.4,"IX",.01)=""
^DD(8926.4,"IX",.02)=""
^DD(8926.4,"IX",99.99)=""
^DD(8926.4,"RQ",.01)=""
^DD(8926.4,"RQ",99.98)=""
^DD(8926.4,"RQ",99.99)=""
^DD(8926.4,"SB",8926.499,99.991)=""
^DD(8926.499,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8926.499,0,"DT")="3050201"
^DD(8926.499,0,"IX","B",8926.499,.01)=""
^DD(8926.499,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(8926.499,0,"UP")="8926.4"
^DD(8926.499,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8926.499,.01,1,0)="^.1"
^DD(8926.499,.01,1,1,0)="8926.499^B"
^DD(8926.499,.01,1,1,1)="S ^TIU(8926.4,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(8926.499,.01,1,1,2)="K ^TIU(8926.4,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(8926.499,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(8926.499,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(8926.499,.01,9)="^"
^DD(8926.499,.01,21,0)="^^2^2^3050201^"
^DD(8926.499,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8926.499,.01,21,2,0)="established."
^DD(8926.499,.01,"DT")="3060421"
^DD(8926.499,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(8926.499,.02,9)="^"
^DD(8926.499,.02,21,0)="^^4^4^3050201^"
^DD(8926.499,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(8926.499,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8926.499,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(8926.499,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8926.499,.02,"DT")="3060421"
^DD(8926.499,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8926.499,"B","STATUS",.02)=""
^DD(8926.499,"GL",0,1,.01)=""
^DD(8926.499,"GL",0,2,.02)=""
^DD(8926.499,"IX",.01)=""
^DD(8926.499,"RQ",.01)=""
^DD(8926.499,"RQ",.02)=""
^DD(8926.5,0)="FIELD^^99.991^5"
^DD(8926.5,0,"DDA")="N"
^DD(8926.5,0,"DT")="3060209"
^DD(8926.5,0,"IX","AVUID",8926.5,99.99)=""
^DD(8926.5,0,"IX","B",8926.5,.01)=""
^DD(8926.5,0,"IX","C",8926.5,.02)=""
^DD(8926.5,0,"IX","KWIC",8926.5,.01)=""
^DD(8926.5,0,"NM","TIU LOINC SERVICE")=""
^DD(8926.5,0,"PT",8926.1,.07)=""
^DD(8926.5,0,"PT",8926.75,.02)=""
^DD(8926.5,0,"VR")="1.0"
^DD(8926.5,0,"VRPK")="TIU"
^DD(8926.5,.01,0)="SERVICE^RF^^0;1^K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.5,.01,1,0)="^.1"
^DD(8926.5,.01,1,1,0)="8926.5^B"
^DD(8926.5,.01,1,1,1)="S ^TIU(8926.5,""B"",$E(X,1,90),DA)="""""
^DD(8926.5,.01,1,1,2)="K ^TIU(8926.5,""B"",$E(X,1,90),DA)"
^DD(8926.5,.01,1,1,3)="** DO NOT DELETE **"
^DD(8926.5,.01,1,1,"%D",0)="^^2^2^3051206^"
^DD(8926.5,.01,1,1,"%D",1,0)="This Regular FileMan cross-reference will facilitate look-up and sorting "
^DD(8926.5,.01,1,1,"%D",2,0)="by Service."
^DD(8926.5,.01,1,2,0)="8926.5^KWIC^KWIC"
^DD(8926.5,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^TIU(8926.5,""KWIC"",I,DA)="""""
^DD(8926.5,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2 K ^TIU(8926.5,""KWIC"",I,DA)"
^DD(8926.5,.01,1,2,3)="** DO NOT DELETE **"
^DD(8926.5,.01,1,2,"%D",0)="^^2^2^3051206^"
^DD(8926.5,.01,1,2,"%D",1,0)="This Key Word in Context (KWIC) cross-reference will facilitate look-up "
^DD(8926.5,.01,1,2,"%D",2,0)="by partial names."
^DD(8926.5,.01,1,2,"DT")="3051206"
^DD(8926.5,.01,3)="Answer must be 2-90 characters in length"
^DD(8926.5,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(8926.5,.01,9)="^"
^DD(8926.5,.01,21,0)="^^4^4^3051206^"
^DD(8926.5,.01,21,1,0)="This is the LOINC SERVICE axis, which characterizes the kind of service or"
^DD(8926.5,.01,21,2,0)="activity that was provided to/for the patient (or other subject of the "
^DD(8926.5,.01,21,3,0)="service) as described in the document.  (e.g., Examinations, Evaluation "
^DD(8926.5,.01,21,4,0)="and Management, etc.)."
^DD(8926.5,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.5,.01,"DT")="3060421"
^DD(8926.5,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.5,.02,0)="ALTERNATE EXPRESSION^F^^0;2^K:$L(X)>90!($L(X)<2) X"
^DD(8926.5,.02,1,0)="^.1"
^DD(8926.5,.02,1,1,0)="8926.5^C"
^DD(8926.5,.02,1,1,1)="S ^TIU(8926.5,""C"",$E(X,1,90),DA)="""""
^DD(8926.5,.02,1,1,2)="K ^TIU(8926.5,""C"",$E(X,1,90),DA)"
^DD(8926.5,.02,1,1,3)="** DO NOT DELETE"
^DD(8926.5,.02,1,1,"%D",0)="^.101^2^2^3060201^^"
^DD(8926.5,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference on Alternate Expression allows for"
^DD(8926.5,.02,1,1,"%D",2,0)="look-up and sorting by synonym."
^DD(8926.5,.02,1,1,"DT")="3060201"
^DD(8926.5,.02,3)="Answer must be 2-90 characters in length"
^DD(8926.5,.02,9)="^"
^DD(8926.5,.02,21,0)="^^10^10^3060413^"
^DD(8926.5,.02,21,1,0)="This is an alternate expression for the Service."
^DD(8926.5,.02,21,2,0)=" "
^DD(8926.5,.02,21,3,0)="NOTE: These terms are for the initial mapping process only. The mapping"
^DD(8926.5,.02,21,4,0)="process is a one time exercise until all existing active titles are mapped"
^DD(8926.5,.02,21,5,0)="to a standard title. This field will NOT be used to deploy data thru MFS."
^DD(8926.5,.02,21,6,0)="This field will not be updated after the initial installation. The"
^DD(8926.5,.02,21,7,0)="alternate expression does not have to be stored in VISTA separately from"
^DD(8926.5,.02,21,8,0)="the standard title. It will be stored in the terminology server. The look"
^DD(8926.5,.02,21,9,0)="up and search does not use the alternate expression term. We will keep"
^DD(8926.5,.02,21,10,0)="this data in the terminology server."
^DD(8926.5,.02,"DT")="3060201"
^DD(8926.5,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8926.5,99.98,9)="^"
^DD(8926.5,99.98,21,0)="^^2^2^3050210^"
^DD(8926.5,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8926.5,99.98,21,2,0)="Term/Concept."
^DD(8926.5,99.98,"DT")="3060421"
^DD(8926.5,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(8926.5,99.99,1,0)="^.1"
^DD(8926.5,99.99,1,1,0)="8926.5^AVUID"
^DD(8926.5,99.99,1,1,1)="S ^TIU(8926.5,""AVUID"",$E(X,1,30),DA)="""""
^DD(8926.5,99.99,1,1,2)="K ^TIU(8926.5,""AVUID"",$E(X,1,30),DA)"
^DD(8926.5,99.99,1,1,3)="This cross-reference is by VUID."
^DD(8926.5,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(8926.5,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(8926.5,99.99,1,1,"DT")="3041223"
^DD(8926.5,99.99,3)="Answer must be 1-20 digits in length."
^DD(8926.5,99.99,9)="^"
^DD(8926.5,99.99,21,0)="^.001^2^2^3050210^^"
^DD(8926.5,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(8926.5,99.99,21,2,0)="terms VHA wide."
^DD(8926.5,99.99,"DT")="3060421"
^DD(8926.5,99.991,0)="EFFECTIVE DATE/TIME^8926.599DA^^TERMSTATUS;0"
^DD(8926.5,99.991,9)="^"
^DD(8926.5,99.991,21,0)="^^1^1^3050201^"
^DD(8926.5,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8926.5,99.991,"DT")="3060421"
^DD(8926.5,"B","ALTERNATE EXPRESSION",.02)=""
^DD(8926.5,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8926.5,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8926.5,"B","SERVICE",.01)=""
^DD(8926.5,"B","VUID",99.99)=""
^DD(8926.5,"GL",0,1,.01)=""
^DD(8926.5,"GL",0,2,.02)=""
^DD(8926.5,"GL","TERMSTATUS",0,99.991)=""
^DD(8926.5,"GL","VUID",1,99.99)=""
^DD(8926.5,"GL","VUID",2,99.98)=""
^DD(8926.5,"IX",.01)=""
^DD(8926.5,"IX",.02)=""
^DD(8926.5,"IX",99.99)=""
^DD(8926.5,"RQ",.01)=""
^DD(8926.5,"RQ",99.98)=""
^DD(8926.5,"RQ",99.99)=""
^DD(8926.5,"SB",8926.599,99.991)=""
^DD(8926.599,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8926.599,0,"DT")="3050201"
^DD(8926.599,0,"IX","B",8926.599,.01)=""
^DD(8926.599,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(8926.599,0,"UP")="8926.5"
^DD(8926.599,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8926.599,.01,1,0)="^.1"
^DD(8926.599,.01,1,1,0)="8926.599^B"
^DD(8926.599,.01,1,1,1)="S ^TIU(8926.5,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(8926.599,.01,1,1,2)="K ^TIU(8926.5,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(8926.599,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(8926.599,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(8926.599,.01,9)="^"
^DD(8926.599,.01,21,0)="^^2^2^3050201^"
^DD(8926.599,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8926.599,.01,21,2,0)="established."
^DD(8926.599,.01,"DT")="3060421"
^DD(8926.599,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(8926.599,.02,9)="^"
^DD(8926.599,.02,21,0)="^^4^4^3050201^"
^DD(8926.599,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(8926.599,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8926.599,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(8926.599,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8926.599,.02,"DT")="3060421"
^DD(8926.599,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8926.599,"B","STATUS",.02)=""
^DD(8926.599,"GL",0,1,.01)=""
^DD(8926.599,"GL",0,2,.02)=""
^DD(8926.599,"IX",.01)=""
^DD(8926.599,"RQ",.01)=""
^DD(8926.599,"RQ",.02)=""
^DD(8926.6,0)="FIELD^^99.991^5"
^DD(8926.6,0,"DDA")="N"
^DD(8926.6,0,"DT")="3060209"
^DD(8926.6,0,"IX","AVUID",8926.6,99.99)=""
^DD(8926.6,0,"IX","B",8926.6,.01)=""
^DD(8926.6,0,"IX","C",8926.6,.02)=""
^DD(8926.6,0,"IX","KWIC",8926.6,.01)=""
^DD(8926.6,0,"NM","TIU LOINC DOCUMENT TYPE")=""
^DD(8926.6,0,"PT",8926.1,.08)=""
^DD(8926.6,0,"PT",8926.76,.02)=""
^DD(8926.6,0,"VR")="1.0"
^DD(8926.6,0,"VRPK")="TIU"
^DD(8926.6,.01,0)="DOCUMENT TYPE^RF^^0;1^K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.6,.01,1,0)="^.1"
^DD(8926.6,.01,1,1,0)="8926.6^B"
^DD(8926.6,.01,1,1,1)="S ^TIU(8926.6,""B"",$E(X,1,90),DA)="""""
^DD(8926.6,.01,1,1,2)="K ^TIU(8926.6,""B"",$E(X,1,90),DA)"
^DD(8926.6,.01,1,1,3)="** DO NOT DELETE **"
^DD(8926.6,.01,1,1,"%D",0)="^^2^2^3051206^"
^DD(8926.6,.01,1,1,"%D",1,0)="This Regular FileMan cross-reference will facilitate look-up and sorting "
^DD(8926.6,.01,1,1,"%D",2,0)="by Document Type."
^DD(8926.6,.01,1,2,0)="8926.6^KWIC^KWIC"
^DD(8926.6,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^TIU(8926.6,""KWIC"",I,DA)="""""
^DD(8926.6,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,90),%1=%+1 I $L(I)>2 K ^TIU(8926.6,""KWIC"",I,DA)"
^DD(8926.6,.01,1,2,3)="** DO NOT DELETE **"
^DD(8926.6,.01,1,2,"%D",0)="^^2^2^3051206^"
^DD(8926.6,.01,1,2,"%D",1,0)="This Key Word in Context (KWIC) cross-reference will facilitate look-up "
^DD(8926.6,.01,1,2,"%D",2,0)="by partial names."
^DD(8926.6,.01,1,2,"DT")="3051206"
^DD(8926.6,.01,3)="Answer must be 2-90 characters in length"
^DD(8926.6,.01,7.5)="I $G(DIC(0))[""L"",'$D(XUMF) K X D EN^DDIOL(""Entries must be edited via the Master File Server (MFS)."","""",""!?5,$C(7)"")"
^DD(8926.6,.01,9)="^"
^DD(8926.6,.01,21,0)="^^3^3^3051206^"
^DD(8926.6,.01,21,1,0)="This is the LOINC DOCUMENT TYPE axis, which characterizes the type and "
^DD(8926.6,.01,21,2,0)="usage of the document.  (e.g., Clinical Document, Consent, Legal, Letter, "
^DD(8926.6,.01,21,3,0)="etc.)."
^DD(8926.6,.01,"DEL",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.6,.01,"DT")="3060421"
^DD(8926.6,.01,"LAYGO",1,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be added via the Master File Server (MFS)."","""",""!?5,$C(7)"") I $D(XUMF)"
^DD(8926.6,.02,0)="ALTERNATE EXPRESSION^F^^0;2^K:$L(X)>90!($L(X)<2) X"
^DD(8926.6,.02,1,0)="^.1"
^DD(8926.6,.02,1,1,0)="8926.6^C"
^DD(8926.6,.02,1,1,1)="S ^TIU(8926.6,""C"",$E(X,1,90),DA)="""""
^DD(8926.6,.02,1,1,2)="K ^TIU(8926.6,""C"",$E(X,1,90),DA)"
^DD(8926.6,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.6,.02,1,1,"%D",0)="^^2^2^3060201^"
^DD(8926.6,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference on Alternate Expression allows for"
^DD(8926.6,.02,1,1,"%D",2,0)="look-up and sorting by synonym."
^DD(8926.6,.02,1,1,"DT")="3060201"
^DD(8926.6,.02,3)="Answer must be 2-90 characters in length"
^DD(8926.6,.02,9)="^"
^DD(8926.6,.02,21,0)="^^10^10^3060413^"
^DD(8926.6,.02,21,1,0)="This is an alternate expression for the Document Type."
^DD(8926.6,.02,21,2,0)=" "
^DD(8926.6,.02,21,3,0)="NOTE: These terms are for the initial mapping process only. The mapping"
^DD(8926.6,.02,21,4,0)="process is a one time exercise until all existing active titles are mapped"
^DD(8926.6,.02,21,5,0)="to a standard title. This field will NOT be used to deploy data thru MFS."
^DD(8926.6,.02,21,6,0)="This field will not be updated after the initial installation. The"
^DD(8926.6,.02,21,7,0)="alternate expression does not have to be stored in VISTA separately from"
^DD(8926.6,.02,21,8,0)="the standard title. It will be stored in the terminology server. The look"
^DD(8926.6,.02,21,9,0)="up and search does not use the alternate expression term. We will keep"
^DD(8926.6,.02,21,10,0)="this data in the terminology server."
^DD(8926.6,.02,"DT")="3060201"
^DD(8926.6,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8926.6,99.98,9)="^"
^DD(8926.6,99.98,21,0)="^^2^2^3050210^"
^DD(8926.6,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8926.6,99.98,21,2,0)="Term/Concept."
^DD(8926.6,99.98,"DT")="3060421"
^DD(8926.6,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.20N) X"
^DD(8926.6,99.99,1,0)="^.1"
^DD(8926.6,99.99,1,1,0)="8926.6^AVUID"
^DD(8926.6,99.99,1,1,1)="S ^TIU(8926.6,""AVUID"",$E(X,1,30),DA)="""""
^DD(8926.6,99.99,1,1,2)="K ^TIU(8926.6,""AVUID"",$E(X,1,30),DA)"
^DD(8926.6,99.99,1,1,3)="This cross-reference is by VUID."
^DD(8926.6,99.99,1,1,"%D",0)="^^1^1^3051026^"
^DD(8926.6,99.99,1,1,"%D",1,0)="This cross-reference is by VUID."
^DD(8926.6,99.99,1,1,"DT")="3041223"
^DD(8926.6,99.99,3)="Answer must be 1-20 digits in length."
^DD(8926.6,99.99,9)="^"
^DD(8926.6,99.99,21,0)="^.001^2^2^3050210^^"
^DD(8926.6,99.99,21,1,0)="VHA Unique ID (VUID). A unique meaningless integer assigned to reference"
^DD(8926.6,99.99,21,2,0)="terms VHA wide."
^DD(8926.6,99.99,"DT")="3060421"
^DD(8926.6,99.991,0)="EFFECTIVE DATE/TIME^8926.699DA^^TERMSTATUS;0"
^DD(8926.6,99.991,9)="^"
^DD(8926.6,99.991,21,0)="^^1^1^3050201^"
^DD(8926.6,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8926.6,99.991,"DT")="3060421"
^DD(8926.6,"B","ALTERNATE EXPRESSION",.02)=""
^DD(8926.6,"B","DOCUMENT TYPE",.01)=""
^DD(8926.6,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8926.6,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8926.6,"B","VUID",99.99)=""
^DD(8926.6,"GL",0,1,.01)=""
^DD(8926.6,"GL",0,2,.02)=""
^DD(8926.6,"GL","TERMSTATUS",0,99.991)=""
^DD(8926.6,"GL","VUID",1,99.99)=""
^DD(8926.6,"GL","VUID",2,99.98)=""
^DD(8926.6,"IX",.01)=""
^DD(8926.6,"IX",.02)=""
^DD(8926.6,"IX",99.99)=""
^DD(8926.6,"RQ",.01)=""
^DD(8926.6,"RQ",99.98)=""
^DD(8926.6,"RQ",99.99)=""
^DD(8926.6,"SB",8926.699,99.991)=""
^DD(8926.699,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8926.699,0,"DT")="3050201"
^DD(8926.699,0,"IX","B",8926.699,.01)=""
^DD(8926.699,0,"NM","EFFECTIVE DATE/TIME")=" "
^DD(8926.699,0,"UP")="8926.6"
^DD(8926.699,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8926.699,.01,1,0)="^.1"
^DD(8926.699,.01,1,1,0)="8926.699^B"
^DD(8926.699,.01,1,1,1)="S ^TIU(8926.6,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)="""""
^DD(8926.699,.01,1,1,2)="K ^TIU(8926.6,DA(1),""TERMSTATUS"",""B"",$E(X,1,30),DA)"
^DD(8926.699,.01,1,1,"%D",0)="^^1^1^3050201^"
^DD(8926.699,.01,1,1,"%D",1,0)="This cross-reference is by Effective Date/Time."
^DD(8926.699,.01,9)="^"
^DD(8926.699,.01,21,0)="^^2^2^3050201^"
^DD(8926.699,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8926.699,.01,21,2,0)="established."
^DD(8926.699,.01,"DT")="3060421"
^DD(8926.699,.02,0)="STATUS^RSI^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(8926.699,.02,9)="^"
^DD(8926.699,.02,21,0)="^^4^4^3050201^"
^DD(8926.699,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'. If "
^DD(8926.699,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8926.699,.02,21,3,0)="particular patient event. If 'INACTIVE', then the term will only be "
^DD(8926.699,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8926.699,.02,"DT")="3060421"
^DD(8926.699,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8926.699,"B","STATUS",.02)=""
^DD(8926.699,"GL",0,1,.01)=""
^DD(8926.699,"GL",0,2,.02)=""
^DD(8926.699,"IX",.01)=""
^DD(8926.699,"RQ",.01)=""
^DD(8926.699,"RQ",.02)=""
^DD(8926.72,0)="FIELD^^.02^2"
^DD(8926.72,0,"DDA")="N"
^DD(8926.72,0,"DT")="3060623"
^DD(8926.72,0,"ID","W.02")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^TIU(8926.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8926.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8926.72,0,"IX","B",8926.72,.01)=""
^DD(8926.72,0,"IX","SMD",8926.72,.02)=""
^DD(8926.72,0,"NM","TIU LOINC SMD SYNONYMS")=""
^DD(8926.72,0,"VR")="1.0"
^DD(8926.72,0,"VRPK")="TIU"
^DD(8926.72,.01,0)="SYNONYM^RFX^^0;1^S:$L($T(UP^XLFSTR)) X=$$UP^XLFSTR(X) K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.72,.01,.1)="LEXICAL VARIANT"
^DD(8926.72,.01,1,0)="^.1"
^DD(8926.72,.01,1,1,0)="8926.72^B"
^DD(8926.72,.01,1,1,1)="S ^TIU(8926.72,""B"",$E(X,1,90),DA)="""""
^DD(8926.72,.01,1,1,2)="K ^TIU(8926.72,""B"",$E(X,1,90),DA)"
^DD(8926.72,.01,3)="Answer must be 2-90 characters in length, all UPPER case."
^DD(8926.72,.01,8.5)=""
^DD(8926.72,.01,9)=""
^DD(8926.72,.01,21,0)="^^1^1^3060112^"
^DD(8926.72,.01,21,1,0)="This is the text of the Subject Matter Domain synonym."
^DD(8926.72,.01,"DT")="3060706"
^DD(8926.72,.02,0)="SUBJECT MATTER DOMAIN^R*P8926.2'^TIU(8926.2,^0;2^S DIC(""S"")=""I '$$SCREEN^XTID(8926.2,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.72,.02,1,0)="^.1"
^DD(8926.72,.02,1,1,0)="8926.72^SMD"
^DD(8926.72,.02,1,1,1)="S ^TIU(8926.72,""SMD"",$E(X,1,30),DA)="""""
^DD(8926.72,.02,1,1,2)="K ^TIU(8926.72,""SMD"",$E(X,1,30),DA)"
^DD(8926.72,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.72,.02,1,1,"%D",0)="^^2^2^3060119^"
^DD(8926.72,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference by Subject Matter Domain is for "
^DD(8926.72,.02,1,1,"%D",2,0)="look-ups as well as sorting."
^DD(8926.72,.02,1,1,"DT")="3060119"
^DD(8926.72,.02,3)="Required. Specify the Subject Matter Domain for this synonym."
^DD(8926.72,.02,12)="Must be an active Subject Matter Domain."
^DD(8926.72,.02,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.2,"""""""",+Y_"""","""")"""
^DD(8926.72,.02,21,0)="^^2^2^3060112^"
^DD(8926.72,.02,21,1,0)="This field is a reference to the LOINC Standard Subject Matter Domain to "
^DD(8926.72,.02,21,2,0)="which the synonym corresponds."
^DD(8926.72,.02,"DT")="3060623"
^DD(8926.72,"B","LEXICAL VARIANT",.01)="1"
^DD(8926.72,"B","SUBJECT MATTER DOMAIN",.02)=""
^DD(8926.72,"B","SYNONYM",.01)=""
^DD(8926.72,"GL",0,1,.01)=""
^DD(8926.72,"GL",0,2,.02)=""
^DD(8926.72,"IX",.01)=""
^DD(8926.72,"IX",.02)=""
^DD(8926.72,"RQ",.01)=""
^DD(8926.72,"RQ",.02)=""
^DD(8926.73,0)="FIELD^^.02^2"
^DD(8926.73,0,"DDA")="N"
^DD(8926.73,0,"DT")="3060623"
^DD(8926.73,0,"ID","W.02")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^TIU(8926.3,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8926.3,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8926.73,0,"IX","B",8926.73,.01)=""
^DD(8926.73,0,"IX","ROLE",8926.73,.02)=""
^DD(8926.73,0,"NM","TIU LOINC ROLE SYNONYMS")=""
^DD(8926.73,0,"VR")="1.0"
^DD(8926.73,0,"VRPK")="TIU"
^DD(8926.73,.01,0)="SYNONYM^RFX^^0;1^S:$L($T(UP^XLFSTR)) X=$$UP^XLFSTR(X) K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.73,.01,.1)="LEXICAL VARIANT"
^DD(8926.73,.01,1,0)="^.1"
^DD(8926.73,.01,1,1,0)="8926.73^B"
^DD(8926.73,.01,1,1,1)="S ^TIU(8926.73,""B"",$E(X,1,90),DA)="""""
^DD(8926.73,.01,1,1,2)="K ^TIU(8926.73,""B"",$E(X,1,90),DA)"
^DD(8926.73,.01,3)="Answer must be 2-90 characters in length, all UPPER case."
^DD(8926.73,.01,8.5)=""
^DD(8926.73,.01,9)=""
^DD(8926.73,.01,21,0)="^^1^1^3060112^"
^DD(8926.73,.01,21,1,0)="This is the text of the Role synonym."
^DD(8926.73,.01,"DT")="3060706"
^DD(8926.73,.02,0)="ROLE^R*P8926.3'^TIU(8926.3,^0;2^S DIC(""S"")=""I '$$SCREEN^XTID(8926.3,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.73,.02,1,0)="^.1"
^DD(8926.73,.02,1,1,0)="8926.73^ROLE"
^DD(8926.73,.02,1,1,1)="S ^TIU(8926.73,""ROLE"",$E(X,1,30),DA)="""""
^DD(8926.73,.02,1,1,2)="K ^TIU(8926.73,""ROLE"",$E(X,1,30),DA)"
^DD(8926.73,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.73,.02,1,1,"%D",0)="^^2^2^3060303^"
^DD(8926.73,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference by Role is for look-ups as well as "
^DD(8926.73,.02,1,1,"%D",2,0)="sorting."
^DD(8926.73,.02,1,1,"DT")="3060303"
^DD(8926.73,.02,3)="Required. Specify the Role for this synonym."
^DD(8926.73,.02,12)="Only ACTIVE Roles may be selected."
^DD(8926.73,.02,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.3,"""""""",+Y_"""","""")"""
^DD(8926.73,.02,21,0)="^^2^2^3060112^"
^DD(8926.73,.02,21,1,0)="This field is a reference to the LOINC Standard Role to which the synonym"
^DD(8926.73,.02,21,2,0)="corresponds."
^DD(8926.73,.02,"DT")="3060623"
^DD(8926.73,"B","LEXICAL VARIANT",.01)="1"
^DD(8926.73,"B","ROLE",.02)=""
^DD(8926.73,"B","SYNONYM",.01)=""
^DD(8926.73,"GL",0,1,.01)=""
^DD(8926.73,"GL",0,2,.02)=""
^DD(8926.73,"IX",.01)=""
^DD(8926.73,"IX",.02)=""
^DD(8926.73,"RQ",.01)=""
^DD(8926.73,"RQ",.02)=""
^DD(8926.74,0)="FIELD^^.02^2"
^DD(8926.74,0,"DDA")="N"
^DD(8926.74,0,"DT")="3060623"
^DD(8926.74,0,"ID","W.02")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^TIU(8926.4,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8926.4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8926.74,0,"IX","B",8926.74,.01)=""
^DD(8926.74,0,"IX","SET",8926.74,.02)=""
^DD(8926.74,0,"NM","TIU LOINC SETTING SYNONYMS")=""
^DD(8926.74,0,"VR")="1.0"
^DD(8926.74,0,"VRPK")="TIU"
^DD(8926.74,.01,0)="SYNONYM^RFX^^0;1^S:$L($T(UP^XLFSTR)) X=$$UP^XLFSTR(X) K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.74,.01,.1)="LEXICAL VARIANT"
^DD(8926.74,.01,1,0)="^.1"
^DD(8926.74,.01,1,1,0)="8926.74^B"
^DD(8926.74,.01,1,1,1)="S ^TIU(8926.74,""B"",$E(X,1,90),DA)="""""
^DD(8926.74,.01,1,1,2)="K ^TIU(8926.74,""B"",$E(X,1,90),DA)"
^DD(8926.74,.01,3)="Answer must be 2-90 characters in length, all UPPER case."
^DD(8926.74,.01,8.5)=""
^DD(8926.74,.01,9)=""
^DD(8926.74,.01,21,0)="^^1^1^3060112^"
^DD(8926.74,.01,21,1,0)="This is the text of the Setting synonym."
^DD(8926.74,.01,"DT")="3060706"
^DD(8926.74,.02,0)="SETTING^R*P8926.4'^TIU(8926.4,^0;2^S DIC(""S"")=""I '$$SCREEN^XTID(8926.4,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.74,.02,1,0)="^.1"
^DD(8926.74,.02,1,1,0)="8926.74^SET"
^DD(8926.74,.02,1,1,1)="S ^TIU(8926.74,""SET"",$E(X,1,30),DA)="""""
^DD(8926.74,.02,1,1,2)="K ^TIU(8926.74,""SET"",$E(X,1,30),DA)"
^DD(8926.74,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.74,.02,1,1,"%D",0)="^^2^2^3060303^"
^DD(8926.74,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference by Setting is for look-ups as well "
^DD(8926.74,.02,1,1,"%D",2,0)="as sorting."
^DD(8926.74,.02,1,1,"DT")="3060303"
^DD(8926.74,.02,3)="Required. Specify the Setting for this synonym."
^DD(8926.74,.02,12)="Only ACTIVE Settings may be selected."
^DD(8926.74,.02,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.4,"""""""",+Y_"""","""")"""
^DD(8926.74,.02,21,0)="^^2^2^3060112^"
^DD(8926.74,.02,21,1,0)="This field is a reference to the LOINC Standard Setting to which the"
^DD(8926.74,.02,21,2,0)="synonym corresponds."
^DD(8926.74,.02,"DT")="3060623"
^DD(8926.74,"B","LEXICAL VARIANT",.01)="1"
^DD(8926.74,"B","SETTING",.02)=""
^DD(8926.74,"B","SYNONYM",.01)=""
^DD(8926.74,"GL",0,1,.01)=""
^DD(8926.74,"GL",0,2,.02)=""
^DD(8926.74,"IX",.01)=""
^DD(8926.74,"IX",.02)=""
^DD(8926.74,"RQ",.01)=""
^DD(8926.74,"RQ",.02)=""
^DD(8926.75,0)="FIELD^^.02^2"
^DD(8926.75,0,"DDA")="N"
^DD(8926.75,0,"DT")="3060623"
^DD(8926.75,0,"ID","W.02")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^TIU(8926.5,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8926.5,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8926.75,0,"IX","B",8926.75,.01)=""
^DD(8926.75,0,"IX","SVC",8926.75,.02)=""
^DD(8926.75,0,"NM","TIU LOINC SERVICE SYNONYMS")=""
^DD(8926.75,0,"VR")="1.0"
^DD(8926.75,0,"VRPK")="TIU"
^DD(8926.75,.01,0)="SYNONYM^RFX^^0;1^S:$L($T(UP^XLFSTR)) X=$$UP^XLFSTR(X) K:$L(X)>90!($L(X)<2)!'(X'?1P.E) X"
^DD(8926.75,.01,.1)="LEXICAL VARIANT"
^DD(8926.75,.01,1,0)="^.1"
^DD(8926.75,.01,1,1,0)="8926.75^B"
^DD(8926.75,.01,1,1,1)="S ^TIU(8926.75,""B"",$E(X,1,90),DA)="""""
^DD(8926.75,.01,1,1,2)="K ^TIU(8926.75,""B"",$E(X,1,90),DA)"
^DD(8926.75,.01,3)="Answer must be 2-90 characters in length, all UPPER case."
^DD(8926.75,.01,8.5)=""
^DD(8926.75,.01,9)=""
^DD(8926.75,.01,21,0)="^^1^1^3060112^"
^DD(8926.75,.01,21,1,0)="This is the text of the Service synonym."
^DD(8926.75,.01,"DT")="3060706"
^DD(8926.75,.02,0)="SERVICE^R*P8926.5'^TIU(8926.5,^0;2^S DIC(""S"")=""I '$$SCREEN^XTID(8926.5,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.75,.02,1,0)="^.1"
^DD(8926.75,.02,1,1,0)="8926.75^SVC"
^DD(8926.75,.02,1,1,1)="S ^TIU(8926.75,""SVC"",$E(X,1,30),DA)="""""
^DD(8926.75,.02,1,1,2)="K ^TIU(8926.75,""SVC"",$E(X,1,30),DA)"
^DD(8926.75,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.75,.02,1,1,"%D",0)="^^2^2^3060303^"
^DD(8926.75,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference by Service is for look-ups as well "
^DD(8926.75,.02,1,1,"%D",2,0)="as sorting."
^DD(8926.75,.02,1,1,"DT")="3060303"
^DD(8926.75,.02,3)="Required. Specify the Service for this synonym."
^DD(8926.75,.02,12)="Only ACTIVE Services may be selected."
^DD(8926.75,.02,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.5,"""""""",+Y_"""","""")"""
^DD(8926.75,.02,21,0)="^^2^2^3060112^"
^DD(8926.75,.02,21,1,0)="This field is a reference to the LOINC Standard Service to which the"
^DD(8926.75,.02,21,2,0)="synonym corresponds."
^DD(8926.75,.02,"DT")="3060623"
^DD(8926.75,"B","LEXICAL VARIANT",.01)="1"
^DD(8926.75,"B","SERVICE",.02)=""
^DD(8926.75,"B","SYNONYM",.01)=""
^DD(8926.75,"GL",0,1,.01)=""
^DD(8926.75,"GL",0,2,.02)=""
^DD(8926.75,"IX",.01)=""
^DD(8926.75,"IX",.02)=""
^DD(8926.75,"RQ",.01)=""
^DD(8926.75,"RQ",.02)=""
^DD(8926.76,0)="FIELD^^.02^2"
^DD(8926.76,0,"DDA")="N"
^DD(8926.76,0,"DT")="3060623"
^DD(8926.76,0,"ID","W.02")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^TIU(8926.6,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8926.6,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8926.76,0,"IX","B",8926.76,.01)=""
^DD(8926.76,0,"IX","DTYP",8926.76,.02)=""
^DD(8926.76,0,"NM","TIU LOINC DOCUMENT TYPE SYNONYMS")=""
^DD(8926.76,0,"VR")="1.0"
^DD(8926.76,0,"VRPK")="TIU"
^DD(8926.76,.01,0)="SYNONYM^RFX^^0;1^S:$L($T(UP^XLFSTR)) X=$$UP^XLFSTR(X) K:$L(X)>90!($L(X)<1)!'(X'?1P.E) X"
^DD(8926.76,.01,.1)="LEXICAL VARIANT"
^DD(8926.76,.01,1,0)="^.1"
^DD(8926.76,.01,1,1,0)="8926.76^B"
^DD(8926.76,.01,1,1,1)="S ^TIU(8926.76,""B"",$E(X,1,90),DA)="""""
^DD(8926.76,.01,1,1,2)="K ^TIU(8926.76,""B"",$E(X,1,90),DA)"
^DD(8926.76,.01,3)="Answer must be 1-90 characters in length, all UPPER case."
^DD(8926.76,.01,8.5)=""
^DD(8926.76,.01,9)=""
^DD(8926.76,.01,21,0)="^^1^1^3060112^"
^DD(8926.76,.01,21,1,0)="This is the text of the Document Type synonym."
^DD(8926.76,.01,"DT")="3060706"
^DD(8926.76,.02,0)="DOCUMENT TYPE^R*P8926.6'^TIU(8926.6,^0;2^S DIC(""S"")=""I '$$SCREEN^XTID(8926.6,"""""""",+Y_"""","""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8926.76,.02,1,0)="^.1"
^DD(8926.76,.02,1,1,0)="8926.76^DTYP"
^DD(8926.76,.02,1,1,1)="S ^TIU(8926.76,""DTYP"",$E(X,1,30),DA)="""""
^DD(8926.76,.02,1,1,2)="K ^TIU(8926.76,""DTYP"",$E(X,1,30),DA)"
^DD(8926.76,.02,1,1,3)="** DO NOT DELETE **"
^DD(8926.76,.02,1,1,"%D",0)="^^2^2^3060303^"
^DD(8926.76,.02,1,1,"%D",1,0)="This REGULAR FileMan Cross-reference by Document Type is for look-ups as "
^DD(8926.76,.02,1,1,"%D",2,0)="well as sorting."
^DD(8926.76,.02,1,1,"DT")="3060303"
^DD(8926.76,.02,3)="Required. Specify the Document Type for this synonym."
^DD(8926.76,.02,12)="Only ACTIVE Document Types may be selected."
^DD(8926.76,.02,12.1)="S DIC(""S"")=""I '$$SCREEN^XTID(8926.6,"""""""",+Y_"""","""")"""
^DD(8926.76,.02,21,0)="^^2^2^3060112^"
^DD(8926.76,.02,21,1,0)="This field is a reference to the LOINC Standard Document Type to which the"
^DD(8926.76,.02,21,2,0)="synonym corresponds."
^DD(8926.76,.02,"DT")="3060623"
^DD(8926.76,"B","DOCUMENT TYPE",.02)=""
^DD(8926.76,"B","LEXICAL VARIANT",.01)="1"
^DD(8926.76,"B","SYNONYM",.01)=""
^DD(8926.76,"GL",0,1,.01)=""
^DD(8926.76,"GL",0,2,.02)=""
^DD(8926.76,"IX",.01)=""
^DD(8926.76,"IX",.02)=""
^DD(8926.76,"RQ",.01)=""
^DD(8926.76,"RQ",.02)=""
^DD(8927,0)="FIELD^^10^22"
^DD(8927,0,"DDA")="N"
^DD(8927,0,"DT")="3010802"
^DD(8927,0,"IX","AD",8927.03,.02)=""
^DD(8927,0,"IX","AL",8927,.19)=""
^DD(8927,0,"IX","AROOT",8927,.03)=""
^DD(8927,0,"IX","AROOT1",8927,.04)=""
^DD(8927,0,"IX","AROOT2",8927,.06)=""
^DD(8927,0,"IX","B",8927,.01)=""
^DD(8927,0,"IX","PO",8927,.06)=""
^DD(8927,0,"NM","TIU TEMPLATE")=""
^DD(8927,0,"PT",8927.03,.02)=""
^DD(8927,0,"VR")="1.0"
^DD(8927,0,"VRPK")="TIU"
^DD(8927,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(8927,.01,1,0)="^.1"
^DD(8927,.01,1,1,0)="8927^B"
^DD(8927,.01,1,1,1)="S ^TIU(8927,""B"",$E(X,1,60),DA)="""""
^DD(8927,.01,1,1,2)="K ^TIU(8927,""B"",$E(X,1,60),DA)"
^DD(8927,.01,3)="Answer must be 3-60 characters in length."
^DD(8927,.01,21,0)="^^5^5^2991007^^^^"
^DD(8927,.01,21,1,0)="This is the name of the template as it will appear in the template tree,"
^DD(8927,.01,21,2,0)="3-60 characters in length, not starting with punctuation."
^DD(8927,.01,21,3,0)=" "
^DD(8927,.01,21,4,0)="Duplicate NAMEs ARE permitted, and are distinguished by the tree they"
^DD(8927,.01,21,5,0)="belong to."
^DD(8927,.01,"DT")="2991007"
^DD(8927,.02,0)="BLANK LINES^NJ1,0^^0;2^K:+X'=X!(X>3)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8927,.02,3)="Type a Number between 0 and 3, 0 Decimal Digits"
^DD(8927,.02,21,0)="^^24^24^2990602^"
^DD(8927,.02,21,1,0)="This is the number of blank lines inserted between Group Template items"
^DD(8927,.02,21,2,0)="when the template is used for composing documents."
^DD(8927,.02,21,3,0)=" "
^DD(8927,.02,21,4,0)="For example, suppose a Group Template DEMOGRAPHICS has item templates NAME"
^DD(8927,.02,21,5,0)="and ADDRESS, each with boilerplate as shown:"
^DD(8927,.02,21,6,0)=" "
^DD(8927,.02,21,7,0)="       Template        Boilerplate"
^DD(8927,.02,21,8,0)="       -------------------------------"
^DD(8927,.02,21,9,0)="       NAME            Patient Name:"
^DD(8927,.02,21,10,0)="       ADDRESS         Street Address:"
^DD(8927,.02,21,11,0)="                       City:"
^DD(8927,.02,21,12,0)="                       State, Zip:"
^DD(8927,.02,21,13,0)=" "
^DD(8927,.02,21,14,0)="Then the boilerplate for a document entered using template DEMOGRAPHICS"
^DD(8927,.02,21,15,0)="with BLANK LINES = 1 would look like:"
^DD(8927,.02,21,16,0)=" "
^DD(8927,.02,21,17,0)="  Patient Name:"
^DD(8927,.02,21,18,0)="                    << 1 blank line"
^DD(8927,.02,21,19,0)="  Street Address:"
^DD(8927,.02,21,20,0)="  City:"
^DD(8927,.02,21,21,0)="  State, Zip:"
^DD(8927,.02,21,22,0)=" "
^DD(8927,.02,21,23,0)="BLANK LINES can have values from 0 to 3.  BLANK LINES applies only to"
^DD(8927,.02,21,24,0)="GROUP TEMPLATES.  The default value for BLANK LINES is 0."
^DD(8927,.02,"DT")="2990519"
^DD(8927,.03,0)="TYPE^RSX^T:TEMPLATE;G:GROUP TEMPLATE;C:CLASS CONTAINER;P:PERSONAL ROOT CONTAINER;R:SHARED ROOT CONTAINER;TF:TITLE ROOT FOLDER;CF:CONSULT ROOT FOLDER;OF:PROCEDURE ROOT FOLDER;^0;3^K:($$BADTYPE^TIUDDT(X,DA)) X"
^DD(8927,.03,.1)=""
^DD(8927,.03,1,0)="^.1^^-1"
^DD(8927,.03,1,1,0)="8927^AROOT^MUMPS"
^DD(8927,.03,1,1,1)="D TYPESETR^TIUDDT(X,DA)"
^DD(8927,.03,1,1,2)="D TYPEKILR^TIUDDT(X,DA)"
^DD(8927,.03,1,1,3)="Don't delete this or Templates will not work"
^DD(8927,.03,1,1,"%D",0)="^^4^4^2990907^^^"
^DD(8927,.03,1,1,"%D",1,0)="The ""AROOT"" cross-reference keeps track of active shared and personal"
^DD(8927,.03,1,1,"%D",2,0)="template root folders.  The Shared Templates folder is found in the"
^DD(8927,.03,1,1,"%D",3,0)="^TIU(8927,""AROOT"",""ROOT"",DA) reference.  Personal Templates are found"
^DD(8927,.03,1,1,"%D",4,0)="in the ^TIU(8927,""AROOT"",DUZ,DA) reference."
^DD(8927,.03,1,1,"DT")="2990517"
^DD(8927,.03,3)=""
^DD(8927,.03,4)=""
^DD(8927,.03,21,0)="^.001^86^86^3010823^^^^"
^DD(8927,.03,21,1,0)="The TIU TEMPLATE FILE stores templates for use in composing documents and"
^DD(8927,.03,21,2,0)="also stores the containers which organize the templates into trees. Every"
^DD(8927,.03,21,3,0)="entry in the file belongs to at least one tree.  Some entries contain"
^DD(8927,.03,21,4,0)="other entries as items."
^DD(8927,.03,21,5,0)=" "
^DD(8927,.03,21,6,0)="There are 5 types of entries in the TIU TEMPLATE FILE:"
^DD(8927,.03,21,7,0)="      'T' for TEMPLATE"
^DD(8927,.03,21,8,0)="      'G' for GROUP TEMPLATE"
^DD(8927,.03,21,9,0)="      'C' for CONTAINER"
^DD(8927,.03,21,10,0)="      'P' for PERSONAL ROOT CONTAINER"
^DD(8927,.03,21,11,0)="      'R' for SHARED ROOT CONTAINER"
^DD(8927,.03,21,12,0)="      'TF' for TITLE ROOT FOLDER"
^DD(8927,.03,21,13,0)="      'CF' for CONSULT ROOT FOLDER"
^DD(8927,.03,21,14,0)="      'OF' for PROCEDURE ROOT FOLDER "
^DD(8927,.03,21,15,0)=""
^DD(8927,.03,21,16,0)="The first two types, T and G, are true templates and may be selected"
^DD(8927,.03,21,17,0)="for composing documents."
^DD(8927,.03,21,18,0)=" "
^DD(8927,.03,21,19,0)="The remaining types are ""containers"" which hold templates as items."
^DD(8927,.03,21,20,0)="The purpose of the container types is to organize templates according"
^DD(8927,.03,21,21,0)="to subject matter into trees, so that individual templates can be easily"
^DD(8927,.03,21,22,0)="found as ""leaves"" of a tree.  Container types are NOT used for"
^DD(8927,.03,21,23,0)="composing documents."
^DD(8927,.03,21,24,0)=" "
^DD(8927,.03,21,25,0)="Besides holding templates, containers may hold other containers, which"
^DD(8927,.03,21,26,0)="then function as subcontainers."
^DD(8927,.03,21,27,0)=" "
^DD(8927,.03,21,28,0)="The last five types, P, R, TF, CF, and OF, are containers of a special"
^DD(8927,.03,21,29,0)="type, denoted ""roots"".  A root functions as the single top level of its"
^DD(8927,.03,21,30,0)="tree.  Each site has a ""shared"" root container, which contains templates"
^DD(8927,.03,21,31,0)="shared across the whole facility.  Each user at a site has a ""personal"""
^DD(8927,.03,21,32,0)="root container, which contains the user's personal templates.  Thus, each"
^DD(8927,.03,21,33,0)="user at a site has access to two trees: the shared tree, and their own"
^DD(8927,.03,21,34,0)="personal tree.  The Title, Consult and Procedure root folders are special "
^DD(8927,.03,21,35,0)="folders that allow templates to be linked to specific TIU Titles, Consult"
^DD(8927,.03,21,36,0)="Reasons for Request, and Procedure Reasons for Request."
^DD(8927,.03,21,37,0)=" "
^DD(8927,.03,21,38,0)="Root containers (like all container types) hold templates of type T and G,"
^DD(8927,.03,21,39,0)="and may also hold subcontainers (type C)."
^DD(8927,.03,21,40,0)=" "
^DD(8927,.03,21,41,0)="                             TYPE DETAILS "
^DD(8927,.03,21,42,0)=" 'T': A TEMPLATE is the most basic piece of boilerplate text desired.  It"
^DD(8927,.03,21,43,0)="may be used by itself for composing documents, or it may be added as an"
^DD(8927,.03,21,44,0)="item to a Group Template, becoming part of a larger template."
^DD(8927,.03,21,45,0)=" "
^DD(8927,.03,21,46,0)=" 'G': A GROUP TEMPLATE  is a composite of its item TEMPLATES.  In addition"
^DD(8927,.03,21,47,0)="to the boilerplate text of its items, it may also have its own boilerplate"
^DD(8927,.03,21,48,0)="text. A GROUP TEMPLATE may also have items of type CONTAINER (C).  These"
^DD(8927,.03,21,49,0)="items are for storage only; they are ignored when the GROUP TEMPLATE is"
^DD(8927,.03,21,50,0)="used to compose a document."
^DD(8927,.03,21,51,0)=" "
^DD(8927,.03,21,52,0)=" 'C': A CLASS CONTAINER is a container for templates. In addition to"
^DD(8927,.03,21,53,0)="templates, it may also contain other containers (C), which then function"
^DD(8927,.03,21,54,0)="as subcontainers."
^DD(8927,.03,21,55,0)=" "
^DD(8927,.03,21,56,0)=" 'P': A PERSONAL ROOT CONTAINER functions as the root (top level) of a"
^DD(8927,.03,21,57,0)="user's personal template tree. A PERSONAL ROOT CONTAINER may contain both"
^DD(8927,.03,21,58,0)="shared and personal entries."
^DD(8927,.03,21,59,0)=" "
^DD(8927,.03,21,60,0)="When adding shared entries to their personal trees, users need to be aware"
^DD(8927,.03,21,61,0)="that changes made at the facility level to a shared template will carry"
^DD(8927,.03,21,62,0)="over to their personal tree. Changes a user makes to a shared entry in"
^DD(8927,.03,21,63,0)="their personal tree do NOT, however, carry over to the shared tree."
^DD(8927,.03,21,64,0)="Instead, when a user goes to edit a shared item under his/her PERSONAL"
^DD(8927,.03,21,65,0)="ROOT CONTAINER, that item is copied, and the user made the PERSONAL OWNER"
^DD(8927,.03,21,66,0)="of the copy. The original shared item remains the same in the shared tree."
^DD(8927,.03,21,67,0)=" "
^DD(8927,.03,21,68,0)=" 'R': A SHARED ROOT CONTAINER is shared across a site.  Templates"
^DD(8927,.03,21,69,0)="contained in it may be selected by any user composing a document, but the"
^DD(8927,.03,21,70,0)="user may not edit the template itself. Besides its use for documents, a"
^DD(8927,.03,21,71,0)="site's shared tree functions as a repository from which users can add"
^DD(8927,.03,21,72,0)="templates to their own personal tree."
^DD(8927,.03,21,73,0)=" "
^DD(8927,.03,21,74,0)=" 'TF': The TITLE ROOT FOLDER links templates to specific TIU Titles.  "
^DD(8927,.03,21,75,0)="Although end users will not see this folder directly, they will see"
^DD(8927,.03,21,76,0)="templates appear automatically when the associated TIU Title is selected."
^DD(8927,.03,21,77,0)=" "
^DD(8927,.03,21,78,0)=" 'CF': The CONSULT ROOT FOLDER links templates to specific Consult Reasons"
^DD(8927,.03,21,79,0)="for Request.  End users will not see this folder directly, but they will"
^DD(8927,.03,21,80,0)="see templates appear automatically when ordering a consult, and the"
^DD(8927,.03,21,81,0)="associated Consult service is selected."
^DD(8927,.03,21,82,0)=" "
^DD(8927,.03,21,83,0)=" 'OF': The PROCEDURE ROOT FOLDER links templates to specific Procedure "
^DD(8927,.03,21,84,0)="Reasons for Request.  End users will not see this folder directly, but"
^DD(8927,.03,21,85,0)="they will see templates appear automatically when ordering a procedure,"
^DD(8927,.03,21,86,0)="and the associated procedure is selected."
^DD(8927,.03,"DT")="3010823"
^DD(8927,.04,0)="STATUS^SX^A:ACTIVE;I:INACTIVE;^0;4^K:($$BADSTS^TIUDDT(X,DA)) X"
^DD(8927,.04,1,0)="^.1^^-1"
^DD(8927,.04,1,1,0)="8927^AROOT1^MUMPS"
^DD(8927,.04,1,1,1)="D STSSETR^TIUDDT(X,DA)"
^DD(8927,.04,1,1,2)="D STSKILLR^TIUDDT(X,DA)"
^DD(8927,.04,1,1,3)="Don't delete this or Templates won't work"
^DD(8927,.04,1,1,"%D",0)="^^4^4^2990907^^"
^DD(8927,.04,1,1,"%D",1,0)="The ""AROOT"" cross-reference keeps track of active shared and personal"
^DD(8927,.04,1,1,"%D",2,0)="template root folders.  The Shared Templates folder is found in the"
^DD(8927,.04,1,1,"%D",3,0)="^TIU(8927,""AROOT"",""ROOT"",DA) reference.  Personal Templates are found"
^DD(8927,.04,1,1,"%D",4,0)="in the ^TIU(8927,""AROOT"",DUZ,DA) reference."
^DD(8927,.04,1,1,"DT")="2990517"
^DD(8927,.04,21,0)="^^25^25^2990907^^"
^DD(8927,.04,21,1,0)="Entries in the TIU TEMPLATE FILE have status ACTIVE or INACTIVE. Status"
^DD(8927,.04,21,2,0)="INACTIVE serves as a way to hide entries from users composing documents."
^DD(8927,.04,21,3,0)=" "
^DD(8927,.04,21,4,0)="INACTIVE templates are NOT available for composing documents. In theory,"
^DD(8927,.04,21,5,0)="ACTIVE templates ARE available.  In fact, however, even an ACTIVE"
^DD(8927,.04,21,6,0)="template's select ability depends on its position in the tree, as will be"
^DD(8927,.04,21,7,0)="seen below."
^DD(8927,.04,21,8,0)=" "
^DD(8927,.04,21,9,0)="Containers, for their part, may also have status ACTIVE or INACTIVE, and"
^DD(8927,.04,21,10,0)="may contain ACTIVE or INACTIVE items.  Thus, an INACTIVE container may"
^DD(8927,.04,21,11,0)="contain ACTIVE templates.  However, an INACTIVE container and all its"
^DD(8927,.04,21,12,0)="items (whatever status) are hidden from the user composing documents and"
^DD(8927,.04,21,13,0)="are thus not selectable."
^DD(8927,.04,21,14,0)=" "
^DD(8927,.04,21,15,0)="Although users are permitted to have more than one Personal Root"
^DD(8927,.04,21,16,0)="Container, only one per user is allowed to be ACTIVE at a given time."
^DD(8927,.04,21,17,0)="Similarly, a site can have only one ACTIVE Shared Root Container at a"
^DD(8927,.04,21,18,0)="given time."
^DD(8927,.04,21,19,0)=" "
^DD(8927,.04,21,20,0)="If an entry is no longer desired for either storage or for composing"
^DD(8927,.04,21,21,0)="documents, it can be deleted.  However, once the last occurrence of it as"
^DD(8927,.04,21,22,0)="an item in any tree is deleted, it is deleted from the file itself and"
^DD(8927,.04,21,23,0)="cannot be retrieved.  Therefore, users are encouraged to INACTIVATE"
^DD(8927,.04,21,24,0)="entries rather than delete them unless they are sure they won't want them"
^DD(8927,.04,21,25,0)="back in the future."
^DD(8927,.04,"DT")="2990526"
^DD(8927,.05,0)="EXCLUDE FROM GROUP BOILERPLATE^S^0:NO;1:YES;^0;5^Q"
^DD(8927,.05,21,0)="^^10^10^2990602^"
^DD(8927,.05,21,1,0)="Applies only to templates (types T and G). There are occasions when a"
^DD(8927,.05,21,2,0)="template is added as an item to some Group Template simply as a logical"
^DD(8927,.05,21,3,0)="storage place, and not because the template is usually desired as part of"
^DD(8927,.05,21,4,0)="the composite boilerplate text of the Group Template."
^DD(8927,.05,21,5,0)=" "
^DD(8927,.05,21,6,0)="This field permits the user to specify that a particular template be"
^DD(8927,.05,21,7,0)="ignored whenever it is an item of a Group Template being used to compose a"
^DD(8927,.05,21,8,0)="document."
^DD(8927,.05,21,9,0)=" "
^DD(8927,.05,21,10,0)="The field applies to both shared and personal templates."
^DD(8927,.05,"DT")="2990519"
^DD(8927,.06,0)="PERSONAL OWNER^P200'X^VA(200,^0;6^K:($$BADOWNER^TIUDDT(X,DA)) X"
^DD(8927,.06,1,0)="^.1"
^DD(8927,.06,1,1,0)="8927^AROOT2^MUMPS"
^DD(8927,.06,1,1,1)="D OWNRSETR^TIUDDT(X,DA)"
^DD(8927,.06,1,1,2)="D OWNRKILR^TIUDDT(X,DA)"
^DD(8927,.06,1,1,3)="Don't delete this or Templates won't work"
^DD(8927,.06,1,1,"%D",0)="^^4^4^2990907^^"
^DD(8927,.06,1,1,"%D",1,0)="The ""AROOT"" cross-reference keeps track of active shared and personal"
^DD(8927,.06,1,1,"%D",2,0)="template root folders.  The Shared Templates folder is found in the"
^DD(8927,.06,1,1,"%D",3,0)="^TIU(8927,""AROOT"",""ROOT"",DA) reference.  Personal Templates are found"
^DD(8927,.06,1,1,"%D",4,0)="in the ^TIU(8927,""AROOT"",DUZ,DA) reference."
^DD(8927,.06,1,1,"DT")="2990517"
^DD(8927,.06,1,2,0)="8927^PO"
^DD(8927,.06,1,2,1)="S ^TIU(8927,""PO"",$E(X,1,30),DA)="""""
^DD(8927,.06,1,2,2)="K ^TIU(8927,""PO"",$E(X,1,30),DA)"
^DD(8927,.06,1,2,"%D",0)="^^2^2^2990601^"
^DD(8927,.06,1,2,"%D",1,0)="This regular cross-reference on Personal Owner is used for look-ups and"
^DD(8927,.06,1,2,"%D",2,0)="searches by owner."
^DD(8927,.06,1,2,"DT")="2990601"
^DD(8927,.06,21,0)="^^6^6^2990602^"
^DD(8927,.06,21,1,0)="The PERSONAL OWNER of an entry is a user from the NEW PERSON FILE who can"
^DD(8927,.06,21,2,0)="edit the template or container.  An entry is recognized by the computer as"
^DD(8927,.06,21,3,0)="personal (as opposed to shared) by the presence of a PERSONAL OWNER."
^DD(8927,.06,21,4,0)="PERSONAL OWNER is set automatically when a user goes to edit a shared"
^DD(8927,.06,21,5,0)="entry in their personal tree: the shared entry is copied, and the user is"
^DD(8927,.06,21,6,0)="made the owner of the copy."
^DD(8927,.06,"DT")="2990601"
^DD(8927,.07,0)="EDITOR CLASS^P8930'X^USR(8930,^0;7^K:'$$ISROOT^TIUDDT($P($G(^TIU(8927,DA,0)),""^"",3)) X"
^DD(8927,.07,21,0)="^.001^8^8^3010625^^^^"
^DD(8927,.07,21,1,0)="EDITOR CLASS applies ONLY to shared root containers, active or inactive."
^DD(8927,.07,21,2,0)="The EDITOR CLASS is a class from the USR CLASS FILE whose members can edit"
^DD(8927,.07,21,3,0)="all containers and templates in the shared template tree.  This applies to"
^DD(8927,.07,21,4,0)="the SHARED ROOT CONTAINER, TITLE ROOT FOLDER, CONSULT ROOT FOLDER and"
^DD(8927,.07,21,5,0)="PROCEDURE ROOT FOLDER."
^DD(8927,.07,21,6,0)=" "
^DD(8927,.07,21,7,0)="The CLINICAL COORDINATOR User Class is automatically made the default"
^DD(8927,.07,21,8,0)="EDITOR CLASS when a Shared Root Container is first created."
^DD(8927,.07,"DT")="3010625"
^DD(8927,.08,0)="DIALOG^S^0:NO;1:YES;^0;8^Q"
^DD(8927,.08,3)="Is this Group Template a Dialog?"
^DD(8927,.08,21,0)="^^3^3^3000329^^"
^DD(8927,.08,21,1,0)="When this field is Yes, Group Templates appear to function"
^DD(8927,.08,21,2,0)="as dialogs, asking the user to check off which elements of"
^DD(8927,.08,21,3,0)="the group to insert into the note."
^DD(8927,.08,"DT")="3000329"
^DD(8927,.09,0)="DISPLAY ONLY^S^0:NO;1:YES;^0;9^Q"
^DD(8927,.09,3)="Display only within Template Dialogs?"
^DD(8927,.09,21,0)="^.001^3^3^3000628^^"
^DD(8927,.09,21,1,0)="When this field is yes, a template will not be selectable"
^DD(8927,.09,21,2,0)="from within a template dialog, but will appear for"
^DD(8927,.09,21,3,0)="informational purposes only."
^DD(8927,.09,"DT")="3000628"
^DD(8927,.1,0)="FIRST LINE^S^0:NO;1:YES;^0;10^Q"
^DD(8927,.1,3)="Only Show First Line of Text in Dialog"
^DD(8927,.1,21,0)="^^3^3^3000628^"
^DD(8927,.1,21,1,0)="When set to YES, the template will only show the first line"
^DD(8927,.1,21,2,0)="of text when displayed in a template dialog.  All text will"
^DD(8927,.1,21,3,0)="be added to the note text."
^DD(8927,.1,"DT")="3000628"
^DD(8927,.11,0)="ONE ITEM ONLY^S^0:NO;1:YES;^0;11^Q"
^DD(8927,.11,3)="Allow only one child item to be selected"
^DD(8927,.11,21,0)="^.001^3^3^3010605^^^^"
^DD(8927,.11,21,1,0)="When set to YES, this field allows only one child item to be "
^DD(8927,.11,21,2,0)="selected at a time.  Selecting a new child item unselects any"
^DD(8927,.11,21,3,0)="existing child items."
^DD(8927,.11,"DT")="3010605"
^DD(8927,.12,0)="HIDE DIALOG ITEMS^S^0:NO;1:YES;^0;12^Q"
^DD(8927,.12,3)="Hide child items when folder is not selected"
^DD(8927,.12,21,0)="^.001^2^2^3000629^^"
^DD(8927,.12,21,1,0)="In a template dialog, this field allows child items to be "
^DD(8927,.12,21,2,0)="hidden when the parent item has not been selected."
^DD(8927,.12,"DT")="3000629"
^DD(8927,.13,0)="HIDE TREE ITEMS^S^0:NO;1:YES;^0;13^Q"
^DD(8927,.13,3)="Hide child items from template drawer view"
^DD(8927,.13,21,0)="^.001^3^3^3000629^^^"
^DD(8927,.13,21,1,0)="When set to YES, this field will cause a folder, group"
^DD(8927,.13,21,2,0)="template or dialog to not display any of it's child items"
^DD(8927,.13,21,3,0)="when viewed from the Templates drawer."
^DD(8927,.13,"DT")="3000629"
^DD(8927,.14,0)="INDENT ITEMS^S^0:NO;1:YES;^0;14^Q"
^DD(8927,.14,3)="Indent child items in dialog"
^DD(8927,.14,21,0)="^^1^1^3000630^"
^DD(8927,.14,21,1,0)="When set to YES, child items will be indented in the dialog."
^DD(8927,.14,"DT")="3000630"
^DD(8927,.15,0)="REMINDER DIALOG^*P801.41'^PXRMD(801.41,^0;15^S DIC(""S"")=""I ($P(^(0),""""^"""",3)="""""""")&($P(^(0),""""^"""",4)=""""R"""")"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8927,.15,3)=""
^DD(8927,.15,12)="Only allow Active Reminder Dialogs"
^DD(8927,.15,12.1)="S DIC(""S"")=""I ($P(^(0),""""^"""",3)="""""""")&($P(^(0),""""^"""",4)=""""R"""")"""
^DD(8927,.15,"DT")="3010309"
^DD(8927,.16,0)="LOCK^S^0:Not Locked;1:Locked;^0;16^Q"
^DD(8927,.16,3)="Lock Shared Template"
^DD(8927,.16,21,0)="^^1^1^3010802^"
^DD(8927,.16,21,1,0)="Locks Shared Templates so they can not be copied."
^DD(8927,.16,"DT")="3010802"
^DD(8927,.17,0)="COM OBJECT^*P101.15'^ORD(101.15,^0;17^S DIC(""S"")=""I $P(^(0),""""^"""",3)'=""""I"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8927,.17,3)="COM Object"
^DD(8927,.17,12)="Screen out Inactive Objects"
^DD(8927,.17,12.1)="S DIC(""S"")=""I $P(^(0),""""^"""",3)'=""""I"""""""
^DD(8927,.17,21,0)="^.001^1^1^3010621^^"
^DD(8927,.17,21,1,0)="When linked to a COM Object, template activates object."
^DD(8927,.17,"DT")="3010621"
^DD(8927,.18,0)="COM PARAM^F^^0;18^K:$L(X)>30!($L(X)<1) X"
^DD(8927,.18,3)="Answer must be 1-30 characters in length."
^DD(8927,.18,21,0)="^.001^1^1^3010621^^^^"
^DD(8927,.18,21,1,0)="Optional Parameter to pass to COM Object"
^DD(8927,.18,"DT")="3010621"
^DD(8927,.19,0)="LINK^VX^^0;19^K:($$BADLINK^TIUDDT(X,DA)) X"
^DD(8927,.19,1,0)="^.1"
^DD(8927,.19,1,1,0)="8927^AL"
^DD(8927,.19,1,1,1)="S ^TIU(8927,""AL"",$E(X,1,30),DA)="""""
^DD(8927,.19,1,1,2)="K ^TIU(8927,""AL"",$E(X,1,30),DA)"
^DD(8927,.19,1,1,"DT")="3010625"
^DD(8927,.19,21,0)="^^2^2^3010625^"
^DD(8927,.19,21,1,0)="Allows link to a TIU Title, Consult Reason for Request, or Procedure"
^DD(8927,.19,21,2,0)="Reason for Request."
^DD(8927,.19,"DT")="3010625"
^DD(8927,.19,"V",0)="^.12P^3^3"
^DD(8927,.19,"V",1,0)="8925.1^TIU Title^1^T^y^n"
^DD(8927,.19,"V",1,1)="S DIC(""S"")=""I $P(^(0),""""^"""",4)=""""DOC"""""""
^DD(8927,.19,"V",1,2)="Limit to TIU Titles"
^DD(8927,.19,"V",2,0)="123.5^Consult Service^2^C^n^n"
^DD(8927,.19,"V",3,0)="123.3^Procedure^3^P^n^n"
^DD(8927,.19,"V","B",123.3,3)=""
^DD(8927,.19,"V","B",123.5,2)=""
^DD(8927,.19,"V","B",8925.1,1)=""
^DD(8927,.19,"V","M","Consult Service",2)=""
^DD(8927,.19,"V","M","Procedure",3)=""
^DD(8927,.19,"V","M","TIU Title",1)=""
^DD(8927,.19,"V","O",1,1)=""
^DD(8927,.19,"V","O",2,2)=""
^DD(8927,.19,"V","O",3,3)=""
^DD(8927,.19,"V","P","C",2)=""
^DD(8927,.19,"V","P","P",3)=""
^DD(8927,.19,"V","P","T",1)=""
^DD(8927,2,0)="BOILERPLATE TEXT^8927.02^^2;0"
^DD(8927,5,0)="DESCRIPTION^8927.05^^5;0"
^DD(8927,5,21,0)="^.001^1^1^3001011^^^"
^DD(8927,5,21,1,0)="This field can be used to keep notes about a given template."
^DD(8927,10,0)="ITEMS^8927.03IA^^10;0"
^DD(8927,10,21,0)="^^27^27^2990907^^"
^DD(8927,10,21,1,0)="Items are themselves members of the TIU TEMPLATE FILE, and vary according"
^DD(8927,10,21,2,0)="to the type of the item parent."
^DD(8927,10,21,3,0)=" "
^DD(8927,10,21,4,0)="A container (type C, P, or R) holds templates (TEMPLATES and GROUP"
^DD(8927,10,21,5,0)="TEMPLATES) as its items. It may also hold other containers as items."
^DD(8927,10,21,6,0)=" "
^DD(8927,10,21,7,0)="A GROUP TEMPLATE is made up of TEMPLATES or of other GROUP TEMPLATES as"
^DD(8927,10,21,8,0)="items.  Its boilerplate text is a composite consisting of, first, it own"
^DD(8927,10,21,9,0)="boilerplate text if it has any, and then the boilerplate text of its"
^DD(8927,10,21,10,0)="items, in SEQUENCE order.  (See also field EXCLUDE FROM GROUP"
^DD(8927,10,21,11,0)="BOILERPLATE.)  A GROUP TEMPLATE may also have a container (type C) as an"
^DD(8927,10,21,12,0)="item.  In this case, the container is simply being stored in the GROUP"
^DD(8927,10,21,13,0)="TEMPLATE; the container is ignored when the GROUP TEMPLATE is used for"
^DD(8927,10,21,14,0)="composing a document."
^DD(8927,10,21,15,0)=" "
^DD(8927,10,21,16,0)="A TEMPLATE (type T) does not have items."
^DD(8927,10,21,17,0)=" "
^DD(8927,10,21,18,0)="A given template or container may occur as an item in more than one tree,"
^DD(8927,10,21,19,0)="and may even occur more than once in the same tree.  It cannot, however,"
^DD(8927,10,21,20,0)="be an item under itself.  Nor can it occur twice, as an item of the same"
^DD(8927,10,21,21,0)="parent."
^DD(8927,10,21,22,0)=" "
^DD(8927,10,21,23,0)="An item may be deleted (after a warning) from a tree by its Personal Owner"
^DD(8927,10,21,24,0)="(for personal trees) or by a member of the Editor Class (for shared"
^DD(8927,10,21,25,0)="trees).  If this instance is the only remaining occurrence of the entry in"
^DD(8927,10,21,26,0)="any tree, it is then deleted not only as an item, but also as an entry in"
^DD(8927,10,21,27,0)="the TIU TEMPLATE FILE and cannot be retrieved."
^DD(8927,"B","BLANK LINES",.02)=""
^DD(8927,"B","BOILERPLATE TEXT",2)=""
^DD(8927,"B","COM OBJECT",.17)=""
^DD(8927,"B","COM PARAM",.18)=""
^DD(8927,"B","DESCRIPTION",5)=""
^DD(8927,"B","DIALOG",.08)=""
^DD(8927,"B","DISPLAY ONLY",.09)=""
^DD(8927,"B","EDITOR CLASS",.07)=""
^DD(8927,"B","EXCLUDE FROM GROUP BOILERPLATE",.05)=""
^DD(8927,"B","FIRST LINE",.1)=""
^DD(8927,"B","HIDE DIALOG ITEMS",.12)=""
^DD(8927,"B","HIDE TREE ITEMS",.13)=""
^DD(8927,"B","INDENT ITEMS",.14)=""
^DD(8927,"B","ITEMS",10)=""
^DD(8927,"B","LINK",.19)=""
^DD(8927,"B","LOCK",.16)=""
^DD(8927,"B","NAME",.01)=""
^DD(8927,"B","ONE ITEM ONLY",.11)=""
^DD(8927,"B","PERSONAL OWNER",.06)=""
^DD(8927,"B","REMINDER DIALOG",.15)=""
^DD(8927,"B","STATUS",.04)=""
^DD(8927,"B","TYPE",.03)=""
^DD(8927,"GL",0,1,.01)=""
^DD(8927,"GL",0,2,.02)=""
^DD(8927,"GL",0,3,.03)=""
^DD(8927,"GL",0,4,.04)=""
^DD(8927,"GL",0,5,.05)=""
^DD(8927,"GL",0,6,.06)=""
^DD(8927,"GL",0,7,.07)=""
^DD(8927,"GL",0,8,.08)=""
^DD(8927,"GL",0,9,.09)=""
^DD(8927,"GL",0,10,.1)=""
^DD(8927,"GL",0,11,.11)=""
^DD(8927,"GL",0,12,.12)=""
^DD(8927,"GL",0,13,.13)=""
^DD(8927,"GL",0,14,.14)=""
^DD(8927,"GL",0,15,.15)=""
^DD(8927,"GL",0,16,.16)=""
^DD(8927,"GL",0,17,.17)=""
^DD(8927,"GL",0,18,.18)=""
^DD(8927,"GL",0,19,.19)=""
^DD(8927,"GL",2,0,2)=""
^DD(8927,"GL",5,0,5)=""
^DD(8927,"GL",10,0,10)=""
^DD(8927,"IX",.01)=""
^DD(8927,"IX",.03)=""
^DD(8927,"IX",.04)=""
^DD(8927,"IX",.06)=""
^DD(8927,"IX",.19)=""
^DD(8927,"RQ",.01)=""
^DD(8927,"RQ",.03)=""
^DD(8927,"SB",8927.02,2)=""
^DD(8927,"SB",8927.03,10)=""
^DD(8927,"SB",8927.05,5)=""
^DD(8927.02,0)="BOILERPLATE TEXT SUB-FIELD^^.01^1"
^DD(8927.02,0,"DT")="3001011"
^DD(8927.02,0,"NM","BOILERPLATE TEXT")=""
^DD(8927.02,0,"UP")="8927"
^DD(8927.02,.01,0)="BOILERPLATE TEXT^WL^^0;1^Q"
^DD(8927.02,.01,21,0)="^.001^15^15^3001011^^^^"
^DD(8927.02,.01,21,1,0)="Boilerplated text of Templates and Groups, including TIU Objects."
^DD(8927.02,.01,21,2,0)=" "
^DD(8927.02,.01,21,3,0)="This is the pre-defined text which will be inserted into the text of a"
^DD(8927.02,.01,21,4,0)="new document.  The user may select several templates in the course of"
^DD(8927.02,.01,21,5,0)="writing one document.  The template boilerplate text will be inserted at"
^DD(8927.02,.01,21,6,0)="the top of a new document, or at the cursor's current position in the"
^DD(8927.02,.01,21,7,0)="document."
^DD(8927.02,.01,21,8,0)=" "
^DD(8927.02,.01,21,9,0)="Once inserted, boilerplate text is editable. It is NOT updated later if"
^DD(8927.02,.01,21,10,0)="the template is changed."
^DD(8927.02,.01,21,11,0)=" "
^DD(8927.02,.01,21,12,0)="Template boilerplate text may contain TIU objects, which find and insert"
^DD(8927.02,.01,21,13,0)="patient- and/ or time-specific information into the text at the time a"
^DD(8927.02,.01,21,14,0)="template is selected.  As with text, object information is editable, and"
^DD(8927.02,.01,21,15,0)="is NOT automatically updated once inserted."
^DD(8927.02,.01,"DT")="3001011"
^DD(8927.02,"B","BOILERPLATE TEXT",.01)=""
^DD(8927.02,"GL",0,1,.01)=""
^DD(8927.03,0)="ITEMS SUB-FIELD^^.02^2"
^DD(8927.03,0,"DT")="2990519"
^DD(8927.03,0,"IX","B",8927.03,.01)=""
^DD(8927.03,0,"NM","ITEMS")=""
^DD(8927.03,0,"UP")="8927"
^DD(8927.03,.01,0)="SEQUENCE^NJ5,0^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8927.03,.01,1,0)="^.1"
^DD(8927.03,.01,1,1,0)="8927.03^B"
^DD(8927.03,.01,1,1,1)="S ^TIU(8927,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(8927.03,.01,1,1,2)="K ^TIU(8927,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(8927.03,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(8927.03,.01,21,0)="^^8^8^2990907^^"
^DD(8927.03,.01,21,1,0)="SEQUENCE number determines boilerplate text order for a GROUP TEMPLATE,"
^DD(8927.03,.01,21,2,0)="with the GROUP TEMPLATE's own boilerplate text preceding that of its"
^DD(8927.03,.01,21,3,0)="items."
^DD(8927.03,.01,21,4,0)=" "
^DD(8927.03,.01,21,5,0)="For containers and for GROUP TEMPLATES, SEQUENCE determines the order in"
^DD(8927.03,.01,21,6,0)="which items appear when the container is expanded."
^DD(8927.03,.01,21,7,0)=" "
^DD(8927.03,.01,21,8,0)="SEQUENCE applies only to entries used as items."
^DD(8927.03,.01,"DT")="2990519"
^DD(8927.03,.02,0)="ITEM^RP8927'X^TIU(8927,^0;2^K:$$BADITEM^TIUDDT(X,DA(1)) X"
^DD(8927.03,.02,1,0)="^.1"
^DD(8927.03,.02,1,1,0)="8927^AD"
^DD(8927.03,.02,1,1,1)="S ^TIU(8927,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(8927.03,.02,1,1,2)="K ^TIU(8927,""AD"",$E(X,1,30),DA(1),DA)"
^DD(8927.03,.02,1,1,"DT")="2990517"
^DD(8927.03,.02,21,0)="^^21^21^2990602^^"
^DD(8927.03,.02,21,1,0)="Items are themselves members of the TIU TEMPLATE FILE, and vary according"
^DD(8927.03,.02,21,2,0)="to the type of the item parent."
^DD(8927.03,.02,21,3,0)=" "
^DD(8927.03,.02,21,4,0)="A container (type C, P, or R) holds templates (TEMPLATES and GROUP"
^DD(8927.03,.02,21,5,0)="TEMPLATES) as its items. It may also hold other containers as items."
^DD(8927.03,.02,21,6,0)=" "
^DD(8927.03,.02,21,7,0)="A GROUP TEMPLATE is made up of TEMPLATES or of other GROUP TEMPLATES as"
^DD(8927.03,.02,21,8,0)="items.  Its boilerplate text is a composite consisting of, first, it own"
^DD(8927.03,.02,21,9,0)="boilerplate text if it has any, and then the boilerplate text of its"
^DD(8927.03,.02,21,10,0)="items, in SEQUENCE order.  (See also field EXCLUDE FROM GROUP"
^DD(8927.03,.02,21,11,0)="BOILERPLATE.)  A GROUP TEMPLATE may also have a container (type C) as an"
^DD(8927.03,.02,21,12,0)="item.  In this case, the container is simply being stored in the GROUP"
^DD(8927.03,.02,21,13,0)="TEMPLATE; the container is ignored when the GROUP TEMPLATE is used for"
^DD(8927.03,.02,21,14,0)="composing a document."
^DD(8927.03,.02,21,15,0)=" "
^DD(8927.03,.02,21,16,0)="A TEMPLATE (type T) does not have items."
^DD(8927.03,.02,21,17,0)=" "
^DD(8927.03,.02,21,18,0)="A given template or container may occur as an item in more than one tree,"
^DD(8927.03,.02,21,19,0)="and may even occur more than once in the same tree.  It cannot, however,"
^DD(8927.03,.02,21,20,0)="be an item under itself.  Nor can it occur twice, as an item of the same"
^DD(8927.03,.02,21,21,0)="parent."
^DD(8927.03,.02,"DT")="2990519"
^DD(8927.03,"B","ITEM",.02)=""
^DD(8927.03,"B","SEQUENCE",.01)=""
^DD(8927.03,"GL",0,1,.01)=""
^DD(8927.03,"GL",0,2,.02)=""
^DD(8927.03,"IX",.01)=""
^DD(8927.03,"IX",.02)=""
^DD(8927.03,"RQ",.02)=""
^DD(8927.05,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8927.05,0,"DT")="3001011"
^DD(8927.05,0,"NM","DESCRIPTION")=""
^DD(8927.05,0,"UP")="8927"
^DD(8927.05,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(8927.05,.01,3)="TEMPLATE DESCRIPTION"
^DD(8927.05,.01,21,0)="^.001^1^1^3001011^^^^"
^DD(8927.05,.01,21,1,0)="This field can be used to keep notes about a given template."
^DD(8927.05,.01,"DT")="3001011"
^DD(8927.05,"B","DESCRIPTION",.01)=""
^DD(8927.05,"GL",0,1,.01)=""
^DD(8927.1,0)="FIELD^^10^19"
^DD(8927.1,0,"DDA")="N"
^DD(8927.1,0,"DT")="3010320"
^DD(8927.1,0,"NM","TIU TEMPLATE FIELD")=""
^DD(8927.1,0,"VR")="1.0"
^DD(8927.1,0,"VRPK")="TIU"
^DD(8927.1,.01,0)="NAME^RFX^^0;1^S X=$$UP^XLFSTR(X) K:$L(X)>60!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8927.1,.01,1,0)="^.1^^0"
^DD(8927.1,.01,3)="Answer must be 3-60 characters in length.  Name must be unique."
^DD(8927.1,.01,21,0)="^.001^1^1^3010202^^^^"
^DD(8927.1,.01,21,1,0)="Unique Dialog Field Name."
^DD(8927.1,.01,"DT")="3010202"
^DD(8927.1,.02,0)="TYPE^RS^E:Edit Box;C:Combo Box;B:Button;X:Check Boxes;R:Radio Buttons;D:Date;N:Numeric;H:Hyperlink;W:Word Processing;T:Text;^0;2^Q"
^DD(8927.1,.02,3)="Enter the type of template field"
^DD(8927.1,.02,21,0)="^^1^1^3000801^^^"
^DD(8927.1,.02,21,1,0)="Type of template field."
^DD(8927.1,.02,"DT")="3010216"
^DD(8927.1,.03,0)="INACTIVE^S^0:NO;1:YES;^0;3^Q"
^DD(8927.1,.03,3)="Template Field Inactive?"
^DD(8927.1,.03,21,0)="^^1^1^3000801^^"
^DD(8927.1,.03,21,1,0)="Disable template field"
^DD(8927.1,.03,"DT")="3000801"
^DD(8927.1,.04,0)="LENGTH^NJ2,0^^0;4^K:+X'=X!(X>74)!(X<0)!(X?.E1"".""1.N) X"
^DD(8927.1,.04,3)="Type a number between 0 and 74, 0 Decimal Digits"
^DD(8927.1,.04,21,0)="^.001^1^1^3010212^^^"
^DD(8927.1,.04,21,1,0)="This is the display length of edit and combo boxes."
^DD(8927.1,.04,"DT")="3010320"
^DD(8927.1,.05,0)="DEFAULT TEXT^F^^0;5^K:$L(X)>70!($L(X)<1) X"
^DD(8927.1,.05,3)="Answer must be 1-70 characters in length."
^DD(8927.1,.05,21,0)="^.001^1^1^3010212^^^"
^DD(8927.1,.05,21,1,0)="Default text."
^DD(8927.1,.05,"DT")="3000727"
^DD(8927.1,.06,0)="LIST MANAGER TEXT^F^^0;6^K:$L(X)>70!($L(X)<1) X"
^DD(8927.1,.06,3)="List Manager Only Text"
^DD(8927.1,.06,21,0)="^^2^2^3000801^"
^DD(8927.1,.06,21,1,0)="This is the text to insert into a boilerplate when expanded from"
^DD(8927.1,.06,21,2,0)="a list manager interface."
^DD(8927.1,.06,"DT")="3000801"
^DD(8927.1,.07,0)="DEFAULT INDEX^NJ4,0^^0;7^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(8927.1,.07,3)="Type a number between 0 and 9999, 0 Decimal Digits"
^DD(8927.1,.07,21,0)="^.001^1^1^3010213^^^"
^DD(8927.1,.07,21,1,0)="Line # of default item in the ITEMS field."
^DD(8927.1,.07,"DT")="3010320"
^DD(8927.1,.08,0)="REQUIRED^S^0:NO;1:YES;^0;8^Q"
^DD(8927.1,.08,3)="Is Template Field Required"
^DD(8927.1,.08,21,0)="^^1^1^3001109^"
^DD(8927.1,.08,21,1,0)="Indicates that entry into the template field is required."
^DD(8927.1,.08,"DT")="3001109"
^DD(8927.1,.09,0)="SEPARATE LINES^S^0:NO;1:YES;^0;9^Q"
^DD(8927.1,.09,3)="Enter 1 (Yes) if Check Box or Radio Button fields should display on separate lines."
^DD(8927.1,.09,21,0)="^^2^2^3010118^"
^DD(8927.1,.09,21,1,0)="This field determines if Check Box or Radio Group fields should be"
^DD(8927.1,.09,21,2,0)="displayed on separate lines, or if they should wrap."
^DD(8927.1,.09,"DT")="3010118"
^DD(8927.1,.1,0)="MAX LENGTH^NJ3,0^^0;10^K:+X'=X!(X>240)!(X<0)!(X?.E1"".""1.N) X"
^DD(8927.1,.1,3)="Type a number between 0 and 240, 0 Decimal Digits"
^DD(8927.1,.1,21,0)="^^3^3^3010212^"
^DD(8927.1,.1,21,1,0)="This is the maximum number of characters that can be typed"
^DD(8927.1,.1,21,2,0)="in an edit box or combo box.  This can be longer than the"
^DD(8927.1,.1,21,3,0)="Length field, which is the display width of the control."
^DD(8927.1,.1,"DT")="3010212"
^DD(8927.1,.11,0)="INDENT^NJ2,0^^0;11^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1.N) X"
^DD(8927.1,.11,3)="Type a number between 0 and 30, 0 Decimal Digits"
^DD(8927.1,.11,21,0)="^^2^2^3010213^"
^DD(8927.1,.11,21,1,0)="The number of characters to indent the control in the dialog.  Has no"
^DD(8927.1,.11,21,2,0)="affect on the spacing of text generated from the control."
^DD(8927.1,.11,"DT")="3010202"
^DD(8927.1,.12,0)="PAD^NJ2,0^^0;12^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1.N) X"
^DD(8927.1,.12,3)="Type a number between 0 and 30, 0 Decimal Digits"
^DD(8927.1,.12,21,0)="^^3^3^3010213^"
^DD(8927.1,.12,21,1,0)="The number of characters to indent the text generated"
^DD(8927.1,.12,21,2,0)="from the control.  Has no affect on the position of"
^DD(8927.1,.12,21,3,0)="the control in the dialog."
^DD(8927.1,.12,"DT")="3010202"
^DD(8927.1,.13,0)="MIN VALUE^NJ4,0^^0;13^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1.N) X"
^DD(8927.1,.13,3)="Type a number between -9999 and 9999, 0 Decimal Digits"
^DD(8927.1,.13,21,0)="^^1^1^3010213^"
^DD(8927.1,.13,21,1,0)="Min allowed value on numeric fields."
^DD(8927.1,.13,"DT")="3010202"
^DD(8927.1,.14,0)="MAX VALUE^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1.N) X"
^DD(8927.1,.14,3)="Type a number between -9999 and 9999, 0 Decimal Digits"
^DD(8927.1,.14,21,0)="^^1^1^3010213^"
^DD(8927.1,.14,21,1,0)="Max allowed value on numeric fields."
^DD(8927.1,.14,"DT")="3010202"
^DD(8927.1,.15,0)="INCREMENT^NJ3,0^^0;15^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(8927.1,.15,3)="Type a number between 0 and 999, 0 Decimal Digits"
^DD(8927.1,.15,21,0)="^^2^2^3010213^"
^DD(8927.1,.15,21,1,0)="Amount to increment numeric fields with the up"
^DD(8927.1,.15,21,2,0)="and down arrow buttons are used."
^DD(8927.1,.15,"DT")="3010320"
^DD(8927.1,.16,0)="DATE TYPE^S^D:DATE;T:DATE & TIME;R:DATE & REQUIRED TIME;C:COMBO STYLE;Y:COMBO YEAR ONLY;M:COMBO YEAR & MONTH;^0;16^Q"
^DD(8927.1,.16,3)="Enter Date Type"
^DD(8927.1,.16,21,0)="^.001^1^1^3010213^^"
^DD(8927.1,.16,21,1,0)="Indicates the type of control to use to represent a date value."
^DD(8927.1,.16,"DT")="3010207"
^DD(8927.1,2,0)="DESCRIPTION^8927.12^^2;0"
^DD(8927.1,2,21,0)="^^2^2^3010213^"
^DD(8927.1,2,21,1,0)="A word processing field containing a description of the field, or other "
^DD(8927.1,2,21,2,0)="notes and history information."
^DD(8927.1,3,0)="URL^F^^3;1^K:$L(X)>240!($L(X)<1) X"
^DD(8927.1,3,3)="Answer must be 1-240 characters in length"
^DD(8927.1,3,21,0)="^^1^1^3010213^"
^DD(8927.1,3,21,1,0)="Web address of hyperlink fields."
^DD(8927.1,3,"DT")="3010202"
^DD(8927.1,10,0)="ITEMS^8927.11^^10;0"
^DD(8927.1,10,21,0)="^^2^2^3010213^"
^DD(8927.1,10,21,1,0)="Word processing field representing either the list of items that can"
^DD(8927.1,10,21,2,0)="be selected, or the default word processing text."
^DD(8927.1,"B","DATE TYPE",.16)=""
^DD(8927.1,"B","DEFAULT INDEX",.07)=""
^DD(8927.1,"B","DEFAULT TEXT",.05)=""
^DD(8927.1,"B","DESCRIPTION",2)=""
^DD(8927.1,"B","INACTIVE",.03)=""
^DD(8927.1,"B","INCREMENT",.15)=""
^DD(8927.1,"B","INDENT",.11)=""
^DD(8927.1,"B","ITEMS",10)=""
^DD(8927.1,"B","LENGTH",.04)=""
^DD(8927.1,"B","LIST MANAGER TEXT",.06)=""
^DD(8927.1,"B","MAX LENGTH",.1)=""
^DD(8927.1,"B","MAX VALUE",.14)=""
^DD(8927.1,"B","MIN VALUE",.13)=""
^DD(8927.1,"B","NAME",.01)=""
^DD(8927.1,"B","PAD",.12)=""
^DD(8927.1,"B","REQUIRED",.08)=""
^DD(8927.1,"B","SEPARATE LINES",.09)=""
^DD(8927.1,"B","TYPE",.02)=""
^DD(8927.1,"B","URL",3)=""
^DD(8927.1,"GL",0,1,.01)=""
^DD(8927.1,"GL",0,2,.02)=""
^DD(8927.1,"GL",0,3,.03)=""
^DD(8927.1,"GL",0,4,.04)=""
^DD(8927.1,"GL",0,5,.05)=""
^DD(8927.1,"GL",0,6,.06)=""
^DD(8927.1,"GL",0,7,.07)=""
^DD(8927.1,"GL",0,8,.08)=""
^DD(8927.1,"GL",0,9,.09)=""
^DD(8927.1,"GL",0,10,.1)=""
^DD(8927.1,"GL",0,11,.11)=""
^DD(8927.1,"GL",0,12,.12)=""
^DD(8927.1,"GL",0,13,.13)=""
^DD(8927.1,"GL",0,14,.14)=""
^DD(8927.1,"GL",0,15,.15)=""
^DD(8927.1,"GL",0,16,.16)=""
^DD(8927.1,"GL",2,0,2)=""
^DD(8927.1,"GL",3,1,3)=""
^DD(8927.1,"GL",10,0,10)=""
^DD(8927.1,"RQ",.01)=""
^DD(8927.1,"RQ",.02)=""
^DD(8927.1,"SB",8927.11,10)=""
^DD(8927.1,"SB",8927.12,2)=""
^DD(8927.11,0)="ITEMS SUB-FIELD^^.01^1"
^DD(8927.11,0,"DT")="3000725"
^DD(8927.11,0,"NM","ITEMS")=""
^DD(8927.11,0,"UP")="8927.1"
^DD(8927.11,.01,0)="ITEMS^WL^^0;1^Q"
^DD(8927.11,.01,3)="Text Items"
^DD(8927.11,.01,21,0)="^^1^1^3000725^"
^DD(8927.11,.01,21,1,0)="Text Items"
^DD(8927.11,.01,"DT")="3000725"
^DD(8927.11,"B","ITEMS",.01)=""
^DD(8927.11,"GL",0,1,.01)=""
^DD(8927.12,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8927.12,0,"DT")="3000801"
^DD(8927.12,0,"NM","DESCRIPTION")=""
^DD(8927.12,0,"UP")="8927.1"
^DD(8927.12,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(8927.12,.01,3)="Template Field Description"
^DD(8927.12,.01,"DT")="3000801"
^DD(8927.12,"B","DESCRIPTION",.01)=""
^DD(8927.12,"GL",0,1,.01)=""
^DD(8930,0)="FIELD^^2^7"
^DD(8930,0,"DDA")="N"
^DD(8930,0,"DT")="2970224"
^DD(8930,0,"IX","AD",8930.01,.01)=""
^DD(8930,0,"IX","ADNM",8930,.03)=""
^DD(8930,0,"IX","ADNM1",8930,.04)=""
^DD(8930,0,"IX","B",8930,.01)=""
^DD(8930,0,"IX","C",8930,.02)=""
^DD(8930,0,"IX","D",8930,.03)=""
^DD(8930,0,"IX","DNAME",8930,.04)=""
^DD(8930,0,"NM","USR CLASS")=""
^DD(8930,0,"PT",123.5,1.06)=""
^DD(8930,0,"PT",123.59,.01)=""
^DD(8930,0,"PT",403.46,.02)=""
^DD(8930,0,"PT",404.57,.13)=""
^DD(8930,0,"PT",404.9503,.01)=""
^DD(8930,0,"PT",8925.1,.06)=""
^DD(8930,0,"PT",8925.955,.01)=""
^DD(8930,0,"PT",8927,.07)=""
^DD(8930,0,"PT",8930.01,.01)=""
^DD(8930,0,"PT",8930.1,.04)=""
^DD(8930,0,"PT",8930.3,.02)=""
^DD(8930,0,"PT",8989.5,.01)=""
^DD(8930,0,"VR")="1.0"
^DD(8930,0,"VRPK")="AUTHORIZATION/SUBSCRIPTION"
^DD(8930,.01,0)="NAME^RF^^0;1^K:$L(X)>60!($L(X)<2)!'(X'?1P.E) X"
^DD(8930,.01,1,0)="^.1"
^DD(8930,.01,1,1,0)="8930^B"
^DD(8930,.01,1,1,1)="S ^USR(8930,""B"",$E(X,1,30),DA)="""""
^DD(8930,.01,1,1,2)="K ^USR(8930,""B"",$E(X,1,30),DA)"
^DD(8930,.01,3)="Answer must be 2-60 characters in length."
^DD(8930,.01,21,0)="^^2^2^2941006^"
^DD(8930,.01,21,1,0)="This is the name of the user class (e.g., Transcriptionist, Medical Record"
^DD(8930,.01,21,2,0)="Technician, MIS Manager, Medical Student, Nurse, Resident, etc.)."
^DD(8930,.01,"DEL",1,0)="I +$$CANDEL^USRLM(DA)"
^DD(8930,.01,"DT")="2950202"
^DD(8930,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<2) X"
^DD(8930,.02,1,0)="^.1"
^DD(8930,.02,1,1,0)="8930^C"
^DD(8930,.02,1,1,1)="S ^USR(8930,""C"",$E(X,1,30),DA)="""""
^DD(8930,.02,1,1,2)="K ^USR(8930,""C"",$E(X,1,30),DA)"
^DD(8930,.02,1,1,"%D",0)="^^1^1^2950202^"
^DD(8930,.02,1,1,"%D",1,0)="This regular FileMan Cross-reference is used for look-ups by abbreviation."
^DD(8930,.02,1,1,"DT")="2950202"
^DD(8930,.02,3)="Enter an abbreviation which identifies the class."
^DD(8930,.02,"DT")="2950202"
^DD(8930,.03,0)="ACTIVE^RSX^1:Active;0:Inactive;^0;3^Q"
^DD(8930,.03,1,0)="^.1"
^DD(8930,.03,1,1,0)="8930^D"
^DD(8930,.03,1,1,1)="S ^USR(8930,""D"",$E(X,1,30),DA)="""""
^DD(8930,.03,1,1,2)="K ^USR(8930,""D"",$E(X,1,30),DA)"
^DD(8930,.03,1,1,"%D",0)="^^2^2^2950202^"
^DD(8930,.03,1,1,"%D",1,0)="This regular fileman cross-reference on active status allows easy "
^DD(8930,.03,1,1,"%D",2,0)="identification of active user classes."
^DD(8930,.03,1,1,"DT")="2950202"
^DD(8930,.03,1,2,0)="8930^ADNM^MUMPS"
^DD(8930,.03,1,2,1)="I $P($G(^USR(8930,+DA,0)),U,4)]"""" S ^USR(8930,""ADNM"",+X,$P(^(0),U,4),+DA)="""""
^DD(8930,.03,1,2,2)="I $P($G(^USR(8930,+DA,0)),U,4)]"""" K ^USR(8930,""ADNM"",+X,$P(^(0),U,4),+DA)"
^DD(8930,.03,1,2,"%D",0)="^^2^2^2950207^^"
^DD(8930,.03,1,2,"%D",1,0)="This MUMPS-type cross-reference by ACTIVE and DISPLAY NAME allows "
^DD(8930,.03,1,2,"%D",2,0)="sorting of user classes for optimal presentation."
^DD(8930,.03,1,2,"DT")="2950207"
^DD(8930,.03,3)="Indicate the status of the user class"
^DD(8930,.03,"DT")="2990719"
^DD(8930,.04,0)="DISPLAY NAME^FX^^0;4^I '$$VCLDN^USRL(X) K X"
^DD(8930,.04,1,0)="^.1"
^DD(8930,.04,1,1,0)="8930^DNAME"
^DD(8930,.04,1,1,1)="S ^USR(8930,""DNAME"",$E(X,1,30),DA)="""""
^DD(8930,.04,1,1,2)="K ^USR(8930,""DNAME"",$E(X,1,30),DA)"
^DD(8930,.04,1,1,"%D",0)="^^3^3^2950206^"
^DD(8930,.04,1,1,"%D",1,0)="This regular fileman cross-reference by display name facilitates alternate "
^DD(8930,.04,1,1,"%D",2,0)="look-ups."
^DD(8930,.04,1,1,"%D",3,0)=""
^DD(8930,.04,1,1,"DT")="2950206"
^DD(8930,.04,1,2,0)="8930^ADNM1^MUMPS"
^DD(8930,.04,1,2,1)="I +$P($G(^USR(8930,+DA,0)),U,3) S ^USR(8930,""ADNM"",+$P(^(0),U,3),X,+DA)="""""
^DD(8930,.04,1,2,2)="I +$P($G(^USR(8930,+DA,0)),U,3) K ^USR(8930,""ADNM"",+$P(^(0),U,3),X,+DA)"
^DD(8930,.04,1,2,"%D",0)="^^2^2^2950207^^"
^DD(8930,.04,1,2,"%D",1,0)="This MUMPS-type cross-reference by ACTIVE and DISPLAY NAME allows"
^DD(8930,.04,1,2,"%D",2,0)="sorting of user classes for optimal presentation."
^DD(8930,.04,1,2,"DT")="2950207"
^DD(8930,.04,3)="Answer must be 3-55 characters in length."
^DD(8930,.04,"DT")="2980429"
^DD(8930,.05,0)="PERSON CLASS^P8932.1'^USC(8932.1,^0;5^Q"
^DD(8930,.05,3)="Select the HCFA Provider Type associated with this entry"
^DD(8930,.05,21,0)="^^3^3^2970207^"
^DD(8930,.05,21,1,0)="This provides a mapping between the User Class file of ASU and the Person "
^DD(8930,.05,21,2,0)="Class file, which encodes the HCFA draft standard Taxonomy of Health Care "
^DD(8930,.05,21,3,0)="Providers."
^DD(8930,.05,"DT")="2970207"
^DD(8930,1,0)="SUBCLASS^8930.01P^^1;0"
^DD(8930,1,21,0)="^^16^16^2970207^^"
^DD(8930,1,21,1,0)="If for example Service Chief is entered as a subclass of Staff Physician,"
^DD(8930,1,21,2,0)="then persons listed as service chiefs inherit all privileges assigned to"
^DD(8930,1,21,3,0)="staff physicians."
^DD(8930,1,21,4,0)="A subclass of a class is a subset of the class.  For example, since"
^DD(8930,1,21,6,0)="the class Staff Physician."
^DD(8930,1,21,7,0)=" "
^DD(8930,1,21,8,0)="Subclasses will be used for inheriting user authorizations/subscriptions."
^DD(8930,1,21,9,0)="For example, if an entry in the User Authorization/Subscription file states"
^DD(8930,1,21,10,0)="that the user class Staff Physician may sign progress notes, and if the"
^DD(8930,1,21,11,0)="entry states that this entry includes user subclasses, and if Service"
^DD(8930,1,21,12,0)="chief is a subclass of class Staff Physician in the User Class file,"
^DD(8930,1,21,13,0)="then service chiefs may also sign progress notes."
^DD(8930,1,21,14,0)=" "
^DD(8930,1,21,15,0)="If a User Authorization/Subscription file entry includes user subclasses,"
^DD(8930,1,21,16,0)="it also includes subclasses of subclasses, etc."
^DD(8930,2,0)="OK TO DISTRIBUTE^S^1:YES;0:NO;^2;1^Q"
^DD(8930,2,21,0)="^^2^2^2970224^"
^DD(8930,2,21,1,0)="Answer ""YES"" if this individual User Class is to be distributed"
^DD(8930,2,21,2,0)="nationally.  Answer ""NO"" if not."
^DD(8930,2,"DT")="2970224"
^DD(8930,"B","ABBREVIATION",.02)=""
^DD(8930,"B","ACTIVE",.03)=""
^DD(8930,"B","DISPLAY NAME",.04)=""
^DD(8930,"B","NAME",.01)=""
^DD(8930,"B","OK TO DISTRIBUTE",2)=""
^DD(8930,"B","PERSON CLASS",.05)=""
^DD(8930,"B","SUBCLASS",1)=""
^DD(8930,"GL",0,1,.01)=""
^DD(8930,"GL",0,2,.02)=""
^DD(8930,"GL",0,3,.03)=""
^DD(8930,"GL",0,4,.04)=""
^DD(8930,"GL",0,5,.05)=""
^DD(8930,"GL",1,0,1)=""
^DD(8930,"GL",2,1,2)=""
^DD(8930,"IX",.01)=""
^DD(8930,"IX",.02)=""
^DD(8930,"IX",.03)=""
^DD(8930,"IX",.04)=""
^DD(8930,"RQ",.01)=""
^DD(8930,"RQ",.03)=""
^DD(8930,"SB",8930.01,1)=""
^DD(8930.01,0)="SUBCLASS SUB-FIELD^^.01^1"
^DD(8930.01,0,"DT")="2970207"
^DD(8930.01,0,"IX","B",8930.01,.01)=""
^DD(8930.01,0,"NM","SUBCLASS")=""
^DD(8930.01,0,"UP")="8930"
^DD(8930.01,.01,0)="SUBCLASS^M*P8930'^USR(8930,^0;1^S DIC(""S"")=""I +$G(Y)'=+$G(DA),'+$$SUBCLASS^USRLM(+$G(DA),+$G(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8930.01,.01,1,0)="^.1"
^DD(8930.01,.01,1,1,0)="8930.01^B"
^DD(8930.01,.01,1,1,1)="S ^USR(8930,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8930.01,.01,1,1,2)="K ^USR(8930,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8930.01,.01,1,2,0)="8930^AD"
^DD(8930.01,.01,1,2,1)="S ^USR(8930,""AD"",$E(X,1,30),DA(1),DA)="""""
^DD(8930.01,.01,1,2,2)="K ^USR(8930,""AD"",$E(X,1,30),DA(1),DA)"
^DD(8930.01,.01,1,2,"%D",0)="^^2^2^2950516^"
^DD(8930.01,.01,1,2,"%D",1,0)="This REGULAR whole-file cross-reference by Subclass will facilitate "
^DD(8930.01,.01,1,2,"%D",2,0)="identification of the parent class of any given subclass."
^DD(8930.01,.01,1,2,"DT")="2950516"
^DD(8930.01,.01,3)="Enter subclasses which are subsets of the class."
^DD(8930.01,.01,12)="A class cannot be a subclass of itself"
^DD(8930.01,.01,12.1)="S DIC(""S"")=""I +$G(Y)'=+$G(DA),'+$$SUBCLASS^USRLM(+$G(DA),+$G(Y))"""
^DD(8930.01,.01,"DT")="2970207"
^DD(8930.01,"B","SUBCLASS",.01)=""
^DD(8930.01,"GL",0,1,.01)=""
^DD(8930.01,"IX",.01)=""
^DD(8930.1,0)="FIELD^^3^9"
^DD(8930.1,0,"DDA")="N"
^DD(8930.1,0,"DT")="2970113"
^DD(8930.1,0,"ID","W.02")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^USR(8930.6,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8930.6,.01,0),U,2) D Y^DIQ:Y]"""" W "" "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8930.1,0,"ID","W.03")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^USR(8930.8,+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8930.8,.01,0),U,2) D Y^DIQ:Y]"""" W "" "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8930.1,0,"ID","W.04")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^USR(8930,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8930,.01,0),U,2) D Y^DIQ:Y]"""" W "" "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8930.1,0,"ID","W.05")="W "" "",@(""$P($P($C(59)_$S($D(^DD(8930.1,.05,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,5)_"""":"""",2),$C(59),1)"")"
^DD(8930.1,0,"ID","W.06")="S %I=Y,Y=$S('$D(^(0)):"""",$D(^USR(8930.2,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8930.2,.01,0),U,2) D Y^DIQ:Y]"""" W "" "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8930.1,0,"IX","AC",8930.1,.01)=""
^DD(8930.1,0,"IX","AC1",8930.1,.02)=""
^DD(8930.1,0,"IX","AC2",8930.1,.03)=""
^DD(8930.1,0,"IX","AC3",8930.1,.04)=""
^DD(8930.1,0,"IX","AR",8930.1,.01)=""
^DD(8930.1,0,"IX","AR1",8930.1,.02)=""
^DD(8930.1,0,"IX","AR2",8930.1,.03)=""
^DD(8930.1,0,"IX","AR3",8930.1,.06)=""
^DD(8930.1,0,"IX","B",8930.1,.01)=""
^DD(8930.1,0,"IX","C",8930.1,.04)=""
^DD(8930.1,0,"IX","D",8930.1,.06)=""
^DD(8930.1,0,"NM","USR AUTHORIZATION/SUBSCRIPTION")=""
^DD(8930.1,0,"VR")="1.0"
^DD(8930.1,0,"VRPK")="USR"
^DD(8930.1,.01,0)="DOCUMENT DEFINITION^R*P8925.1'^TIU(8925.1,^0;1^S DIC(""S"")=""I """"^CL^DC^DOC^""""[(U_$P(^(0),U,4)_U)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8930.1,.01,1,0)="^.1"
^DD(8930.1,.01,1,1,0)="8930.1^B"
^DD(8930.1,.01,1,1,1)="S ^USR(8930.1,""B"",$E(X,1,30),DA)="""""
^DD(8930.1,.01,1,1,2)="K ^USR(8930.1,""B"",$E(X,1,30),DA)"
^DD(8930.1,.01,1,2,0)="8930.1^AC^MUMPS"
^DD(8930.1,.01,1,2,1)="I +$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,4) S ^USR(8930.1,""AC"",+X,+$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,4),DA)="""""
^DD(8930.1,.01,1,2,2)="I +$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,4) K ^USR(8930.1,""AC"",+X,+$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,4),DA)"
^DD(8930.1,.01,1,2,"%D",0)="^^3^3^2950705^^"
^DD(8930.1,.01,1,2,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to optimize"
^DD(8930.1,.01,1,2,"%D",2,0)="identification of user classes whose members are authorized to perform a"
^DD(8930.1,.01,1,2,"%D",3,0)="given action on a document type, which is in a particular status."
^DD(8930.1,.01,1,2,"DT")="2950620"
^DD(8930.1,.01,1,3,0)="8930.1^AR^MUMPS"
^DD(8930.1,.01,1,3,1)="I +$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,6) S ^USR(8930.1,""AR"",+X,+$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,6),DA)="""""
^DD(8930.1,.01,1,3,2)="I +$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,6) K ^USR(8930.1,""AR"",+X,+$P($G(^USR(8930.1,+DA,0)),U,2),+$P($G(^(0)),U,3),+$P($G(^(0)),U,6),DA)"
^DD(8930.1,.01,1,3,"%D",0)="^^4^4^2950705^"
^DD(8930.1,.01,1,3,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to"
^DD(8930.1,.01,1,3,"%D",2,0)="optimize identification of users whose relationship to the document"
^DD(8930.1,.01,1,3,"%D",3,0)="allows them to perform a given action on a document type, which is in"
^DD(8930.1,.01,1,3,"%D",4,0)="a particular status."
^DD(8930.1,.01,1,3,"DT")="2950705"
^DD(8930.1,.01,3)="Enter the Document Definition for which the action is authorized or subscribed to."
^DD(8930.1,.01,12)="Rules are limited to Classes, Document Classes, and Titles."
^DD(8930.1,.01,12.1)="S DIC(""S"")=""I """"^CL^DC^DOC^""""[(U_$P(^(0),U,4)_U)"""
^DD(8930.1,.01,21,0)="^^2^2^2970113^^^^"
^DD(8930.1,.01,21,1,0)="This is a Document Definition of Type Class, Document Class, or Title from"
^DD(8930.1,.01,21,2,0)="the Document Definition File 8925.1"
^DD(8930.1,.01,"DT")="2970225"
^DD(8930.1,.02,0)="STATUS^P8930.6'^USR(8930.6,^0;2^Q"
^DD(8930.1,.02,1,0)="^.1"
^DD(8930.1,.02,1,1,0)="8930.1^AC1^MUMPS"
^DD(8930.1,.02,1,1,1)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,3),+$P($G(^(0)),U,4) S ^USR(8930.1,""AC"",+$P($G(^USR(8930.1,+DA,0)),U),+X,+$P($G(^(0)),U,3),+$P($G(^(0)),U,4),DA)="""""
^DD(8930.1,.02,1,1,2)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,3),+$P($G(^(0)),U,4) K ^USR(8930.1,""AC"",+$P($G(^USR(8930.1,+DA,0)),U),+X,+$P($G(^(0)),U,3),+$P($G(^(0)),U,4),DA)"
^DD(8930.1,.02,1,1,"%D",0)="^^3^3^2950705^^"
^DD(8930.1,.02,1,1,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to optimize"
^DD(8930.1,.02,1,1,"%D",2,0)="identification of user classes whose members are authorized to perform a"
^DD(8930.1,.02,1,1,"%D",3,0)="given action on a document type, which is in a particular status."
^DD(8930.1,.02,1,1,"DT")="2950620"
^DD(8930.1,.02,1,2,0)="8930.1^AR1^MUMPS"
^DD(8930.1,.02,1,2,1)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,3),+$P($G(^(0)),U,6) S ^USR(8930.1,""AR"",+$P($G(^USR(8930.1,+DA,0)),U),+X,+$P($G(^(0)),U,3),+$P($G(^(0)),U,6),DA)="""""
^DD(8930.1,.02,1,2,2)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,3),+$P($G(^(0)),U,6) K ^USR(8930.1,""AR"",+$P($G(^USR(8930.1,+DA,0)),U),+X,+$P($G(^(0)),U,3),+$P($G(^(0)),U,6),DA)"
^DD(8930.1,.02,1,2,"%D",0)="^^4^4^2950705^"
^DD(8930.1,.02,1,2,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to"
^DD(8930.1,.02,1,2,"%D",2,0)="optimize identification of users whose relationship to the document"
^DD(8930.1,.02,1,2,"%D",3,0)="allows them to perform a given action on a document type, which is in"
^DD(8930.1,.02,1,2,"%D",4,0)="a particular status."
^DD(8930.1,.02,1,2,"DT")="2950705"
^DD(8930.1,.02,3)="Enter the status of document for which the event is authorized."
^DD(8930.1,.02,"DT")="2950705"
^DD(8930.1,.03,0)="ACTION^P8930.8'^USR(8930.8,^0;3^Q"
^DD(8930.1,.03,1,0)="^.1"
^DD(8930.1,.03,1,1,0)="8930.1^AC2^MUMPS"
^DD(8930.1,.03,1,1,1)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,4) S ^USR(8930.1,""AC"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+X,+$P($G(^(0)),U,4),DA)="""""
^DD(8930.1,.03,1,1,2)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,4) K ^USR(8930.1,""AC"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+X,+$P($G(^(0)),U,4),DA)"
^DD(8930.1,.03,1,1,"%D",0)="^^3^3^2950705^^"
^DD(8930.1,.03,1,1,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to optimize"
^DD(8930.1,.03,1,1,"%D",2,0)="identification of user classes whose members are authorized to perform a"
^DD(8930.1,.03,1,1,"%D",3,0)="given action on a document type, which is in a particular status."
^DD(8930.1,.03,1,1,"DT")="2950620"
^DD(8930.1,.03,1,2,0)="8930.1^AR2^MUMPS"
^DD(8930.1,.03,1,2,1)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,6) S ^USR(8930.1,""AR"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+X,+$P($G(^(0)),U,6),DA)="""""
^DD(8930.1,.03,1,2,2)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,6) K ^USR(8930.1,""AR"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+X,+$P($G(^(0)),U,6),DA)"
^DD(8930.1,.03,1,2,"%D",0)="^^4^4^2950705^"
^DD(8930.1,.03,1,2,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to"
^DD(8930.1,.03,1,2,"%D",2,0)="optimize identification of users whose relationship to the document"
^DD(8930.1,.03,1,2,"%D",3,0)="allows them to perform a given action on a document type, which is in"
^DD(8930.1,.03,1,2,"%D",4,0)="a particular status."
^DD(8930.1,.03,1,2,"DT")="2950705"
^DD(8930.1,.03,3)="Enter the action which is permitted for this document type."
^DD(8930.1,.03,21,0)="^^1^1^2961202^^^^"
^DD(8930.1,.03,21,1,0)="This is the action to be permitted for a given document type and status."
^DD(8930.1,.03,"DT")="2950705"
^DD(8930.1,.04,0)="USER CLASS^P8930'^USR(8930,^0;4^Q"
^DD(8930.1,.04,1,0)="^.1"
^DD(8930.1,.04,1,1,0)="8930.1^AC3^MUMPS"
^DD(8930.1,.04,1,1,1)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3) S ^USR(8930.1,""AC"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3),+X,DA)="""""
^DD(8930.1,.04,1,1,2)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3) K ^USR(8930.1,""AC"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3),+X,DA)"
^DD(8930.1,.04,1,1,"%D",0)="^^3^3^2950705^^^"
^DD(8930.1,.04,1,1,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to optimize"
^DD(8930.1,.04,1,1,"%D",2,0)="identification of user classes whose members are authorized to perform a"
^DD(8930.1,.04,1,1,"%D",3,0)="given action on a document type, which is in a particular status."
^DD(8930.1,.04,1,1,"DT")="2950620"
^DD(8930.1,.04,1,2,0)="8930.1^C"
^DD(8930.1,.04,1,2,1)="S ^USR(8930.1,""C"",$E(X,1,30),DA)="""""
^DD(8930.1,.04,1,2,2)="K ^USR(8930.1,""C"",$E(X,1,30),DA)"
^DD(8930.1,.04,1,2,"%D",0)="^^2^2^2970102^"
^DD(8930.1,.04,1,2,"%D",1,0)="This REGULAR FileMan cross-reference facilitates look-ups based on USER"
^DD(8930.1,.04,1,2,"%D",2,0)="CLASS."
^DD(8930.1,.04,1,2,"DT")="2970102"
^DD(8930.1,.04,3)="Identify User Class to which authorization will be granted."
^DD(8930.1,.04,21,0)="^^2^2^2950619^^^^"
^DD(8930.1,.04,21,1,0)="This is the User Class which is being authorized to perform an action on a "
^DD(8930.1,.04,21,2,0)="document of the type and status indicated."
^DD(8930.1,.04,"DT")="2970102"
^DD(8930.1,.05,0)="AND FLAG^S^&:AND;!:OR;^0;5^Q"
^DD(8930.1,.05,1,0)="^.1^^0"
^DD(8930.1,.05,3)="Indicate whether the User Class and User Role should be ""AND'ed"""
^DD(8930.1,.05,21,0)="^^8^8^2950619^^^^"
^DD(8930.1,.05,21,1,0)="This field allows the ADPAC to indicate whether the conditions specified "
^DD(8930.1,.05,21,2,0)="by User Class and User Role should be logically ""AND'ed,"" or logically ""OR'ed,"" "
^DD(8930.1,.05,21,3,0)="as they will be unless otherwise specified.  i.e., if you want to specify "
^DD(8930.1,.05,21,4,0)="that an unsigned discharge summary may be signed by a user, where:"
^DD(8930.1,.05,21,5,0)=""
^DD(8930.1,.05,21,6,0)="User Class = Provider AND User Role = Author,"
^DD(8930.1,.05,21,7,0)=""
^DD(8930.1,.05,21,8,0)="then you'll want to set this field to AND."
^DD(8930.1,.05,"DT")="2950619"
^DD(8930.1,.06,0)="USER ROLE^P8930.2'^USR(8930.2,^0;6^Q"
^DD(8930.1,.06,1,0)="^.1"
^DD(8930.1,.06,1,1,0)="8930.1^AR3^MUMPS"
^DD(8930.1,.06,1,1,1)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3) S ^USR(8930.1,""AR"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3),+X,DA)="""""
^DD(8930.1,.06,1,1,2)="I +$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3) K ^USR(8930.1,""AR"",+$P($G(^USR(8930.1,+DA,0)),U),+$P($G(^(0)),U,2),+$P($G(^(0)),U,3),+X,DA)"
^DD(8930.1,.06,1,1,"%D",0)="^^4^4^2950705^"
^DD(8930.1,.06,1,1,"%D",1,0)="This MUMPS-type, Multi-field cross-reference is used to"
^DD(8930.1,.06,1,1,"%D",2,0)="optimize identification of users whose relationship to the document"
^DD(8930.1,.06,1,1,"%D",3,0)="allows them to perform a given action on a document type, which is in"
^DD(8930.1,.06,1,1,"%D",4,0)="a particular status."
^DD(8930.1,.06,1,1,"DT")="2950705"
^DD(8930.1,.06,1,2,0)="8930.1^D"
^DD(8930.1,.06,1,2,1)="S ^USR(8930.1,""D"",$E(X,1,30),DA)="""""
^DD(8930.1,.06,1,2,2)="K ^USR(8930.1,""D"",$E(X,1,30),DA)"
^DD(8930.1,.06,1,2,"%D",0)="^^2^2^2970102^"
^DD(8930.1,.06,1,2,"%D",1,0)="This REGULAR FileMan Cross-reference facilitates look-ups based on USER"
^DD(8930.1,.06,1,2,"%D",2,0)="ROLE."
^DD(8930.1,.06,1,2,"DT")="2970102"
^DD(8930.1,.06,3)="Identify the role of the user with respect to the documents."
^DD(8930.1,.06,21,0)="^^3^3^2950619^^^^"
^DD(8930.1,.06,21,1,0)="This identifies the role of the user with respect to the document in"
^DD(8930.1,.06,21,2,0)="question (e.g., Author/Dictator, Expected Signer, Expected Cosigner,"
^DD(8930.1,.06,21,3,0)="Attending Physician, etc.)."
^DD(8930.1,.06,"DT")="2970102"
^DD(8930.1,1,0)="DESCRIPTION^8930.11^^1;0"
^DD(8930.1,1,21,0)="^^16^16^2941012^^"
^DD(8930.1,1,21,1,0)=" "
^DD(8930.1,1,21,2,0)="For most entries, the meaning of the entry will be clear from the"
^DD(8930.1,1,21,3,0)="description of the associated event in the TIU Event file.  In some cases,"
^DD(8930.1,1,21,4,0)="that may not suffice, in which case this field may be used to further"
^DD(8930.1,1,21,6,0)=" "
^DD(8930.1,1,21,7,0)="For example, if an entry associates the Signature event with a document of"
^DD(8930.1,1,21,8,0)="status completed, it might help to note in the description field that such"
^DD(8930.1,1,21,9,0)="a signature is a walkup signature."
^DD(8930.1,1,21,10,0)=" "
^DD(8930.1,1,21,11,0)="It should not be necessary to describe consequences in this field - those"
^DD(8930.1,1,21,12,0)="descriptions may be gotten from the associated protocol descriptions"
^DD(8930.1,1,21,13,0)="instead."
^DD(8930.1,1,21,14,0)=" "
^DD(8930.1,1,21,15,0)="This field will be used when persons associating users with user classes"
^DD(8930.1,1,21,16,0)="wish to know the meaning of events associated with certain user classes."
^DD(8930.1,2,0)="PREREQUISITE ACTION^K^^PRE;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8930.1,2,3)="Enter M-code to execute before the event can occur."
^DD(8930.1,2,9)="@"
^DD(8930.1,2,"DT")="2950213"
^DD(8930.1,3,0)="CONSEQUENCE^K^^POST;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8930.1,3,3)="Enter M-code to be executed on completion of the action."
^DD(8930.1,3,9)="@"
^DD(8930.1,3,"DT")="2950213"
^DD(8930.1,"B","ACTION",.03)=""
^DD(8930.1,"B","AND FLAG",.05)=""
^DD(8930.1,"B","CONSEQUENCE",3)=""
^DD(8930.1,"B","DESCRIPTION",1)=""
^DD(8930.1,"B","DOCUMENT DEFINITION",.01)=""
^DD(8930.1,"B","PREREQUISITE ACTION",2)=""
^DD(8930.1,"B","STATUS",.02)=""
^DD(8930.1,"B","USER CLASS",.04)=""
^DD(8930.1,"B","USER ROLE",.06)=""
^DD(8930.1,"GL",0,1,.01)=""
^DD(8930.1,"GL",0,2,.02)=""
^DD(8930.1,"GL",0,3,.03)=""
^DD(8930.1,"GL",0,4,.04)=""
^DD(8930.1,"GL",0,5,.05)=""
^DD(8930.1,"GL",0,6,.06)=""
^DD(8930.1,"GL",1,0,1)=""
^DD(8930.1,"GL","POST","E1,245",3)=""
^DD(8930.1,"GL","PRE","E1,245",2)=""
^DD(8930.1,"IX",.01)=""
^DD(8930.1,"IX",.02)=""
^DD(8930.1,"IX",.03)=""
^DD(8930.1,"IX",.04)=""
^DD(8930.1,"IX",.06)=""
^DD(8930.1,"RQ",.01)=""
^DD(8930.1,"SB",8930.11,1)=""
^DD(8930.11,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8930.11,0,"NM","DESCRIPTION")=""
^DD(8930.11,0,"UP")="8930.1"
^DD(8930.11,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(8930.11,.01,3)="If the meaning of this entry requires elaboration beyond the description of the associated event in the TIU Event file, elaborate here."
^DD(8930.11,.01,"DT")="2941011"
^DD(8930.11,"B","DESCRIPTION",.01)=""
^DD(8930.11,"GL",0,1,.01)=""
^DD(8930.2,0)="FIELD^^1^4"
^DD(8930.2,0,"DDA")="N"
^DD(8930.2,0,"DT")="3001026"
^DD(8930.2,0,"IX","B",8930.2,.01)=""
^DD(8930.2,0,"NM","USR ROLE")=""
^DD(8930.2,0,"PT",8930.1,.06)=""
^DD(8930.2,0,"VR")="1.0"
^DD(8930.2,0,"VRPK")="USR"
^DD(8930.2,.01,0)="USER ROLE^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8930.2,.01,1,0)="^.1"
^DD(8930.2,.01,1,1,0)="8930.2^B"
^DD(8930.2,.01,1,1,1)="S ^USR(8930.2,""B"",$E(X,1,30),DA)="""""
^DD(8930.2,.01,1,1,2)="K ^USR(8930.2,""B"",$E(X,1,30),DA)"
^DD(8930.2,.01,3)="Enter the role of the user with respect to the record."
^DD(8930.2,.01,21,0)="^^3^3^2950213^"
^DD(8930.2,.01,21,1,0)="This is role which the user occupies with respect to a given record (e.g., "
^DD(8930.2,.01,21,2,0)="author (dictator), transcriber, expected signer, expected cosigner, "
^DD(8930.2,.01,21,3,0)="attending physician, etc.)."
^DD(8930.2,.01,"DT")="2950213"
^DD(8930.2,.02,0)="DISPLAY NAME^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(8930.2,.02,3)="Enter the name of the user role which will be presented to the user."
^DD(8930.2,.02,"DT")="2950213"
^DD(8930.2,.03,0)="CODE^F^^0;3^K:$L(X)>3!($L(X)<1) X"
^DD(8930.2,.03,3)="Enter an abbreviated code by which the user role may be identified."
^DD(8930.2,.03,"DT")="2950213"
^DD(8930.2,1,0)="DESCRIPTION^8930.21^^1;0"
^DD(8930.2,"B","CODE",.03)=""
^DD(8930.2,"B","DESCRIPTION",1)=""
^DD(8930.2,"B","DISPLAY NAME",.02)=""
^DD(8930.2,"B","USER ROLE",.01)=""
^DD(8930.2,"GL",0,1,.01)=""
^DD(8930.2,"GL",0,2,.02)=""
^DD(8930.2,"GL",0,3,.03)=""
^DD(8930.2,"GL",1,0,1)=""
^DD(8930.2,"IX",.01)=""
^DD(8930.2,"RQ",.01)=""
^DD(8930.2,"SB",8930.21,1)=""
^DD(8930.21,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8930.21,0,"DT")="3001026"
^DD(8930.21,0,"NM","DESCRIPTION")=""
^DD(8930.21,0,"UP")="8930.2"
^DD(8930.21,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(8930.21,.01,3)="Enter a description of the role."
^DD(8930.21,.01,21,0)="^^2^2^3001026^"
^DD(8930.21,.01,21,1,0)="This field permits description of roles such as COMPLETER, which"
^DD(8930.21,.01,21,2,0)="may not be obvious."
^DD(8930.21,.01,"DT")="3001026"
^DD(8930.21,"B","DESCRIPTION",.01)=""
^DD(8930.21,"GL",0,1,.01)=""
^DD(8930.3,0)="FIELD^^.04^4"
^DD(8930.3,0,"DDA")="N"
^DD(8930.3,0,"DT")="2950515"
^DD(8930.3,0,"IX","ACU",8930.3,.01)=""
^DD(8930.3,0,"IX","ACU1",8930.3,.02)=""
^DD(8930.3,0,"IX","AUC",8930.3,.01)=""
^DD(8930.3,0,"IX","AUC1",8930.3,.02)=""
^DD(8930.3,0,"IX","AUHX",8930.3,.01)=""
^DD(8930.3,0,"IX","AUHX1",8930.3,.02)=""
^DD(8930.3,0,"IX","AUHX2",8930.3,.03)=""
^DD(8930.3,0,"IX","B",8930.3,.01)=""
^DD(8930.3,0,"NM","USR CLASS MEMBERSHIP")=""
^DD(8930.3,0,"PT",509850.3,.01)=""
^DD(8930.3,0,"VR")="1.0"
^DD(8930.3,0,"VRPK")="USR"
^DD(8930.3,.01,0)="MEMBER^RP200'^VA(200,^0;1^Q"
^DD(8930.3,.01,.1)="NEW PERSON NAME"
^DD(8930.3,.01,1,0)="^.1"
^DD(8930.3,.01,1,1,0)="8930.3^B"
^DD(8930.3,.01,1,1,1)="S ^USR(8930.3,""B"",$E(X,1,30),DA)="""""
^DD(8930.3,.01,1,1,2)="K ^USR(8930.3,""B"",$E(X,1,30),DA)"
^DD(8930.3,.01,1,2,0)="8930.3^AUC^MUMPS"
^DD(8930.3,.01,1,2,1)="I +$P(^USR(8930.3,+DA,0),U,2) S ^USR(8930.3,""AUC"",+X,+$P(^USR(8930.3,+DA,0),U,2),+DA)="""""
^DD(8930.3,.01,1,2,2)="I +$P(^USR(8930.3,+DA,0),U,2) K ^USR(8930.3,""AUC"",+X,+$P(^USR(8930.3,+DA,0),U,2),+DA)"
^DD(8930.3,.01,1,2,"%D",0)="^^2^2^2980506^^^^"
^DD(8930.3,.01,1,2,"%D",1,0)="This Multi-field, MUMPS type cross-reference on Person and User Class will "
^DD(8930.3,.01,1,2,"%D",2,0)="help to identify the classes to which a given person belongs."
^DD(8930.3,.01,1,2,"DT")="2980506"
^DD(8930.3,.01,1,3,0)="8930.3^ACU^MUMPS"
^DD(8930.3,.01,1,3,1)="I +$P(^USR(8930.3,+DA,0),U,2) S ^USR(8930.3,""ACU"",+$P(^USR(8930.3,+DA,0),U,2),+X,+DA)="""""
^DD(8930.3,.01,1,3,2)="I +$P(^USR(8930.3,+DA,0),U,2) K ^USR(8930.3,""ACU"",+$P(^USR(8930.3,+DA,0),U,2),+X,+DA)"
^DD(8930.3,.01,1,3,"%D",0)="^^2^2^2980506^^^^"
^DD(8930.3,.01,1,3,"%D",1,0)="This multi-field, MUMPS-type cross-reference by User Class and person will "
^DD(8930.3,.01,1,3,"%D",2,0)="help to identify the members of a particular class."
^DD(8930.3,.01,1,3,"DT")="2980506"
^DD(8930.3,.01,1,4,0)="8930.3^AUHX^MUMPS"
^DD(8930.3,.01,1,4,1)="I +$P($G(^USR(8930.3,+DA,0)),U,2) S ^USR(8930.3,""AUHX"",+X,+$P(^USR(8930.3,+DA,0),U,2),+$P(^USR(8930.3,+DA,0),U,3),+DA)="""""
^DD(8930.3,.01,1,4,2)="I +$P($G(^USR(8930.3,+DA,0)),U,2) K ^USR(8930.3,""AUHX"",+X,+$P(^USR(8930.3,+DA,0),U,2),+$P(^USR(8930.3,+DA,0),U,3),+DA)"
^DD(8930.3,.01,1,4,"%D",0)="^^3^3^2950523^"
^DD(8930.3,.01,1,4,"%D",1,0)="This Multi-field, MUMPS type cross-reference on Person, User Class, and"
^DD(8930.3,.01,1,4,"%D",2,0)="EFFECTIVE DATE will help to list the history of a given user's membership"
^DD(8930.3,.01,1,4,"%D",3,0)="in various classes."
^DD(8930.3,.01,1,4,"DT")="2950523"
^DD(8930.3,.01,3)="Select a User Class member."
^DD(8930.3,.01,21,0)="^^2^2^2950515^"
^DD(8930.3,.01,21,1,0)="This is the name of the person to whom membership in a given User Class is "
^DD(8930.3,.01,21,2,0)="being ascribed."
^DD(8930.3,.01,"DT")="2980506"
^DD(8930.3,.02,0)="USER CLASS^P8930'^USR(8930,^0;2^Q"
^DD(8930.3,.02,1,0)="^.1"
^DD(8930.3,.02,1,1,0)="8930.3^AUC1^MUMPS"
^DD(8930.3,.02,1,1,1)="I +$G(^USR(8930.3,+DA,0)) S ^USR(8930.3,""AUC"",+$G(^USR(8930.3,+DA,0)),+X,+DA)="""""
^DD(8930.3,.02,1,1,2)="I +$G(^USR(8930.3,+DA,0)) K ^USR(8930.3,""AUC"",+$G(^USR(8930.3,+DA,0)),+X,+DA)"
^DD(8930.3,.02,1,1,"%D",0)="^^2^2^2980506^^^^"
^DD(8930.3,.02,1,1,"%D",1,0)="This Multi-field, MUMPS type cross-reference on Person and User Class help "
^DD(8930.3,.02,1,1,"%D",2,0)="to identify the classes to which a given person belongs."
^DD(8930.3,.02,1,1,"DT")="2980506"
^DD(8930.3,.02,1,2,0)="8930.3^ACU1^MUMPS"
^DD(8930.3,.02,1,2,1)="I +$G(^USR(8930.3,+DA,0)) S ^USR(8930.3,""ACU"",+X,+$G(^USR(8930.3,+DA,0)),+DA)="""""
^DD(8930.3,.02,1,2,2)="I +$G(^USR(8930.3,+DA,0)) K ^USR(8930.3,""ACU"",+X,+$G(^USR(8930.3,+DA,0)),+DA)"
^DD(8930.3,.02,1,2,"%D",0)="^^2^2^2980506^^^^"
^DD(8930.3,.02,1,2,"%D",1,0)="This multi-field, MUMPS-type cross-reference by User Class and person will help "
^DD(8930.3,.02,1,2,"%D",2,0)="to identify the members of a particular User Class."
^DD(8930.3,.02,1,2,"DT")="2980506"
^DD(8930.3,.02,1,3,0)="8930.3^AUHX1^MUMPS"
^DD(8930.3,.02,1,3,1)="I +$P($G(^USR(8930.3,+DA,0)),U) S ^USR(8930.3,""AUHX"",+$P($G(^USR(8930.3,+DA,0)),U),+X,+$P(^USR(8930.3,+DA,0),U,3),+DA)="""""
^DD(8930.3,.02,1,3,2)="I +$P($G(^USR(8930.3,+DA,0)),U) K ^USR(8930.3,""AUHX"",+$P($G(^USR(8930.3,+DA,0)),U),+X,+$P(^USR(8930.3,+DA,0),U,3),+DA)"
^DD(8930.3,.02,1,3,"%D",0)="^^3^3^2950523^"
^DD(8930.3,.02,1,3,"%D",1,0)="This Multi-field, MUMPS type cross-reference on Person, User Class, and"
^DD(8930.3,.02,1,3,"%D",2,0)="EFFECTIVE DATE will help to list the history of a given user's membership"
^DD(8930.3,.02,1,3,"%D",3,0)="in various classes."
^DD(8930.3,.02,1,3,"DT")="2950523"
^DD(8930.3,.02,3)="Enter the User Class to which the User is being given membership."
^DD(8930.3,.02,21,0)="^^2^2^2950515^"
^DD(8930.3,.02,21,1,0)="This is the User Class to which the User in question is being grated "
^DD(8930.3,.02,21,2,0)="membership."
^DD(8930.3,.02,"DT")="2980506"
^DD(8930.3,.03,0)="EFFECTIVE DATE^DX^^0;3^S %DT=""EX"" D ^%DT S X=Y K:'$$VALID2^USRU(Y) X"
^DD(8930.3,.03,1,0)="^.1^^-1"
^DD(8930.3,.03,1,3,0)="8930.3^AUHX2^MUMPS"
^DD(8930.3,.03,1,3,1)="I +$P($G(^USR(8930.3,+DA,0)),U),+$P($G(^(0)),U,2) S ^USR(8930.3,""AUHX"",+$P($G(^USR(8930.3,+DA,0)),U),+$P($G(^USR(8930.3,+DA,0)),U,2),+X,+DA)="""""
^DD(8930.3,.03,1,3,2)="I +$P($G(^USR(8930.3,+DA,0)),U),+$P($G(^(0)),U,2) K ^USR(8930.3,""AUHX"",+$P($G(^USR(8930.3,+DA,0)),U),+$P($G(^USR(8930.3,+DA,0)),U,2),+X,+DA)"
^DD(8930.3,.03,1,3,"%D",0)="^^3^3^2950523^"
^DD(8930.3,.03,1,3,"%D",1,0)="This Multi-field, MUMPS type cross-reference on Person, User Class, and"
^DD(8930.3,.03,1,3,"%D",2,0)="EFFECTIVE DATE will help to list the history of a given user's membership"
^DD(8930.3,.03,1,3,"%D",3,0)="in various classes."
^DD(8930.3,.03,1,3,"DT")="2950523"
^DD(8930.3,.03,3)="Enter the Date on which User Class membership is effective."
^DD(8930.3,.03,21,0)="^^7^7^2950515^"
^DD(8930.3,.03,21,1,0)="This is the date on which the user became, or will become a member of the "
^DD(8930.3,.03,21,2,0)="User Class in question.  This can be used to determine current, past, or "
^DD(8930.3,.03,21,3,0)="future membership status within a given User Class, as well as for "
^DD(8930.3,.03,21,4,0)="scheduling transitions between Classes (e.g., members of the class ""PGY1 "
^DD(8930.3,.03,21,5,0)="Residents"" will finish their rotation on June 1st, and you'd like to "
^DD(8930.3,.03,21,6,0)="schedule their trasition into the class PGY2 Residents as of that date)."
^DD(8930.3,.03,21,7,0)=""
^DD(8930.3,.03,"DT")="3000124"
^DD(8930.3,.04,0)="EXPIRATION DATE^DX^^0;4^S %DT=""EX"" D ^%DT S X=Y K:'$$VALID^USRU(Y) X"
^DD(8930.3,.04,1,0)="^.1^^0"
^DD(8930.3,.04,3)="Enter the date on which the User's membership in the Class will expire."
^DD(8930.3,.04,21,0)="^^7^7^2950515^"
^DD(8930.3,.04,21,1,0)="This is the optional date on which the User's membership in a given class "
^DD(8930.3,.04,21,2,0)="will expire (i.e., be automatically discontinued).  This can be used to "
^DD(8930.3,.04,21,3,0)="determine historical or future membership within a particular class, and"
^DD(8930.3,.04,21,4,0)="to schedule transitions between classes (e.g., the current members of the "
^DD(8930.3,.04,21,5,0)="PGY1 Residents Class will become PGY2 Residents on June 1st, at which time "
^DD(8930.3,.04,21,6,0)="their membership in the class PGY1 Residents will expire, and their "
^DD(8930.3,.04,21,7,0)="membership in the class PGY2 Residents will become effective)."
^DD(8930.3,.04,"DT")="2991103"
^DD(8930.3,"B","EFFECTIVE DATE",.03)=""
^DD(8930.3,"B","EXPIRATION DATE",.04)=""
^DD(8930.3,"B","MEMBER",.01)=""
^DD(8930.3,"B","NEW PERSON NAME",.01)="1"
^DD(8930.3,"B","USER CLASS",.02)=""
^DD(8930.3,"GL",0,1,.01)=""
^DD(8930.3,"GL",0,2,.02)=""
^DD(8930.3,"GL",0,3,.03)=""
^DD(8930.3,"GL",0,4,.04)=""
^DD(8930.3,"IX",.01)=""
^DD(8930.3,"IX",.02)=""
^DD(8930.3,"IX",.03)=""
^DD(8930.3,"RQ",.01)=""
^DD(8930.4,0)="FIELD^^1^4"
^DD(8930.4,0,"DDA")="N"
^DD(8930.4,0,"DT")="2970103"
^DD(8930.4,0,"IX","B",8930.4,.01)=""
^DD(8930.4,0,"NM","USR SEARCH CATEGORIES")=""
^DD(8930.4,0,"VR")="1.0"
^DD(8930.4,0,"VRPK")="AUTHORIZATION/SUBSCRIPTION"
^DD(8930.4,.01,0)="SEARCH CATEGORY^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8930.4,.01,1,0)="^.1"
^DD(8930.4,.01,1,1,0)="8930.4^B"
^DD(8930.4,.01,1,1,1)="S ^USR(8930.4,""B"",$E(X,1,30),DA)="""""
^DD(8930.4,.01,1,1,2)="K ^USR(8930.4,""B"",$E(X,1,30),DA)"
^DD(8930.4,.01,3)="Answer must be 3-30 characters in length."
^DD(8930.4,.01,21,0)="^^2^2^2970102^"
^DD(8930.4,.01,21,1,0)="Name the search category by which the list of business rules will be"
^DD(8930.4,.01,21,2,0)="generated."
^DD(8930.4,.01,"DT")="2970102"
^DD(8930.4,.02,0)="SELECTION FILE^P1'^DIC(^0;2^Q"
^DD(8930.4,.02,21,0)="^^1^1^2970102^"
^DD(8930.4,.02,21,1,0)="Name the file from which the value of the search category will be selected."
^DD(8930.4,.02,"DT")="2970102"
^DD(8930.4,.03,0)="CROSS-REFERENCE^F^^0;3^K:$L(X)>5!($L(X)<1) X"
^DD(8930.4,.03,3)="Answer must be 1-5 characters in length."
^DD(8930.4,.03,21,0)="^^2^2^2970102^"
^DD(8930.4,.03,21,1,0)="Identify the cross-reference in file 8930.1 to be used in building the"
^DD(8930.4,.03,21,2,0)="list for business rules which apply to the search category in question."
^DD(8930.4,.03,"DT")="2970102"
^DD(8930.4,1,0)="SCREEN^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8930.4,1,3)="This is Standard MUMPS code."
^DD(8930.4,1,9)="@"
^DD(8930.4,1,21,0)="^^4^4^2970103^"
^DD(8930.4,1,21,1,0)="This field must be valid MUMPS code which sets DIC(""S"") for the selection"
^DD(8930.4,1,21,2,0)="of the search value (e.g., S DIC(""S"")=""I $O(^USR(8930.1,""""B"""",+Y,0))"""
^DD(8930.4,1,21,3,0)="would require that any DOCUMENT to be selected must have at least one rule"
^DD(8930.4,1,21,4,0)="that pertains to it)."
^DD(8930.4,1,"DT")="2970103"
^DD(8930.4,"B","CROSS-REFERENCE",.03)=""
^DD(8930.4,"B","SCREEN",1)=""
^DD(8930.4,"B","SEARCH CATEGORY",.01)=""
^DD(8930.4,"B","SELECTION FILE",.02)=""
^DD(8930.4,"GL",0,1,.01)=""
^DD(8930.4,"GL",0,2,.02)=""
^DD(8930.4,"GL",0,3,.03)=""
^DD(8930.4,"GL",1,"E1,245",1)=""
^DD(8930.4,"IX",.01)=""
^DD(8930.4,"RQ",.01)=""
^DD(8930.6,0)="FIELD^^1^5"
^DD(8930.6,0,"DDA")="N"
^DD(8930.6,0,"IX","B",8930.6,.01)=""
^DD(8930.6,0,"IX","C",8930.6,.03)=""
^DD(8930.6,0,"NM","USR RECORD STATUS")=""
^DD(8930.6,0,"PT",8925.113,.04)=""
^DD(8930.6,0,"PT",8930.1,.02)=""
^DD(8930.6,0,"VR")="1.0"
^DD(8930.6,0,"VRPK")="TIU"
^DD(8930.6,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1.U) X"
^DD(8930.6,.01,1,0)="^.1"
^DD(8930.6,.01,1,1,0)="8930.6^B"
^DD(8930.6,.01,1,1,1)="S ^USR(8930.6,""B"",$E(X,1,30),DA)="""""
^DD(8930.6,.01,1,1,2)="K ^USR(8930.6,""B"",$E(X,1,30),DA)"
^DD(8930.6,.01,3)="Enter 3-30 uppercase characters."
^DD(8930.6,.01,21,0)="^^2^2^2941012^^"
^DD(8930.6,.01,21,1,0)="This is the status name used in selecting or displaying the status of the"
^DD(8930.6,.01,21,2,0)="document."
^DD(8930.6,.01,"DT")="2941012"
^DD(8930.6,.02,0)="SYMBOL^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(8930.6,.02,3)="Answer must be 1-3 characters in length."
^DD(8930.6,.02,21,0)="^^2^2^2941219^^"
^DD(8930.6,.02,21,1,0)="This is the symbol to be displayed in some applications, which corresponds"
^DD(8930.6,.02,21,2,0)="to the status of the document (e.g., $ may indicate unsigned, etc.)."
^DD(8930.6,.02,"DT")="2941219"
^DD(8930.6,.03,0)="SEQUENCE^NJ3,0^^0;3^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8930.6,.03,1,0)="^.1"
^DD(8930.6,.03,1,1,0)="8930.6^C"
^DD(8930.6,.03,1,1,1)="S ^USR(8930.6,""C"",$E(X,1,30),DA)="""""
^DD(8930.6,.03,1,1,2)="K ^USR(8930.6,""C"",$E(X,1,30),DA)"
^DD(8930.6,.03,1,1,"%D",0)="^^2^2^2940915^"
^DD(8930.6,.03,1,1,"%D",1,0)="This index is used for looking up and sorting document statuses by"
^DD(8930.6,.03,1,1,"%D",2,0)="sequence number. Higher sequence numbers indicate more finished documents."
^DD(8930.6,.03,1,1,"DT")="2940915"
^DD(8930.6,.03,3)="Type a Number between 1 and 200, 0 Decimal Digits"
^DD(8930.6,.03,"DT")="2941219"
^DD(8930.6,.04,0)="APPLIES TO^S^DOCMT:document;DEFN:document definition;^0;4^Q"
^DD(8930.6,.04,3)="Enter DOCMT if this status applies to documents; DEFN if it applies to document definitions."
^DD(8930.6,.04,"DT")="2941219"
^DD(8930.6,1,0)="DESCRIPTION^8930.61^^1;0"
^DD(8930.6,"B","APPLIES TO",.04)=""
^DD(8930.6,"B","DESCRIPTION",1)=""
^DD(8930.6,"B","NAME",.01)=""
^DD(8930.6,"B","SEQUENCE",.03)=""
^DD(8930.6,"B","SYMBOL",.02)=""
^DD(8930.6,"GL",0,1,.01)=""
^DD(8930.6,"GL",0,2,.02)=""
^DD(8930.6,"GL",0,3,.03)=""
^DD(8930.6,"GL",0,4,.04)=""
^DD(8930.6,"GL",1,0,1)=""
^DD(8930.6,"IX",.01)=""
^DD(8930.6,"IX",.03)=""
^DD(8930.6,"RQ",.01)=""
^DD(8930.6,"SB",8930.61,1)=""
^DD(8930.61,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8930.61,0,"NM","DESCRIPTION")=""
^DD(8930.61,0,"UP")="8930.6"
^DD(8930.61,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(8930.61,.01,3)="Please describe the usage and/or meaning of this status."
^DD(8930.61,.01,"DT")="2940319"
^DD(8930.61,"B","DESCRIPTION",.01)=""
^DD(8930.61,"GL",0,1,.01)=""
^DD(8930.8,0)="FIELD^^2^10"
^DD(8930.8,0,"DDA")="N"
^DD(8930.8,0,"DT")="3010614"
^DD(8930.8,0,"ID","PHRASE")="D EN^DDIOL(""   ""_$$GET1^DIQ(8930.8,+Y,.08),"""",""?0"")"
^DD(8930.8,0,"IX","B",8930.8,.01)=""
^DD(8930.8,0,"NM","USR ACTION")=""
^DD(8930.8,0,"PT",8925.113,.01)=""
^DD(8930.8,0,"PT",8925.951,.01)=""
^DD(8930.8,0,"PT",8930.1,.03)=""
^DD(8930.8,0,"PT",8930.81,.01)=""
^DD(8930.8,0,"VR")="1.0"
^DD(8930.8,0,"VRPK")="USR"
^DD(8930.8,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8930.8,.01,.1)="ACTION NAME"
^DD(8930.8,.01,1,0)="^.1"
^DD(8930.8,.01,1,1,0)="8930.8^B"
^DD(8930.8,.01,1,1,1)="S ^USR(8930.8,""B"",$E(X,1,30),DA)="""""
^DD(8930.8,.01,1,1,2)="K ^USR(8930.8,""B"",$E(X,1,30),DA)"
^DD(8930.8,.01,3)="Please enter the name of the event."
^DD(8930.8,.01,21,0)="^.001^3^3^3001026^^^^"
^DD(8930.8,.01,21,1,0)="These are names of events which occur in connection with clinical"
^DD(8930.8,.01,21,2,0)="narrative documents.  These are referenced by the User"
^DD(8930.8,.01,21,3,0)="Authorization/Subscription file to associate users with events."
^DD(8930.8,.01,23,0)="^^8^8^3001026^"
^DD(8930.8,.01,23,1,0)="Warning about changing an action name:"
^DD(8930.8,.01,23,2,0)=" "
^DD(8930.8,.01,23,3,0)="Action NAMES are checked when evaluating permissions in CANDO^TIULP. In"
^DD(8930.8,.01,23,4,0)="addition, action NAME: ATTACH ID ENTRY is checked in input template USR"
^DD(8930.8,.01,23,5,0)="DEFINE AUTHORIZATIONS when action ATTACH ID ENTRY is entered."
^DD(8930.8,.01,23,6,0)=" "
^DD(8930.8,.01,23,7,0)="These areas (and possibly other new areas) MUST be updated if the NAME of"
^DD(8930.8,.01,23,8,0)="an action is changed."
^DD(8930.8,.01,"DT")="2970225"
^DD(8930.8,.02,0)="EVENT TYPE^S^A:authorization;S:subscription;^0;2^Q"
^DD(8930.8,.02,3)="Indicate the type of event you are defining."
^DD(8930.8,.02,21,0)="^^7^7^2950209^^"
^DD(8930.8,.02,21,1,0)="This file contains two types of events: those a user is AUTHORIZED to"
^DD(8930.8,.02,21,2,0)="perform and those a user SUBSCRIBES to.  For example, a user is authorized"
^DD(8930.8,.02,21,3,0)="to perform the Signature event, but a user subscribes to (""signs up to"
^DD(8930.8,.02,21,4,0)="receive"") a Notification event."
^DD(8930.8,.02,21,6,0)="This field helps to define the meaning of an event and its relationship to"
^DD(8930.8,.02,21,7,0)="a user."
^DD(8930.8,.02,"DT")="2950209"
^DD(8930.8,.03,0)="APPLIES TO^S^DOC:document;DEF:definition;^0;3^Q"
^DD(8930.8,.03,3)="Indicate whether event applies to documents or their definitions"
^DD(8930.8,.03,"DT")="2950207"
^DD(8930.8,.04,0)="ASSOCIATED PROTOCOL^P101'^ORD(101,^0;4^Q"
^DD(8930.8,.04,1,0)="^.1^^0"
^DD(8930.8,.04,3)="Indicate which Protocol corresponds to this event."
^DD(8930.8,.04,"DT")="2970109"
^DD(8930.8,.05,0)="USER VERB^F^^0;5^K:$L(X)>50!($L(X)<3) X"
^DD(8930.8,.05,3)="Example: In ""You cannot SIGN this unsigned document"", the user verb is ""SIGN"".  Uppercase, 3-50 characters."
^DD(8930.8,.05,21,0)="^^9^9^3010614^"
^DD(8930.8,.05,21,1,0)="This word or phrase is displayed in explanatory messages when the user is"
^DD(8930.8,.05,21,2,0)="denied authority to perform the given action.  Such a message might read,"
^DD(8930.8,.05,21,3,0)="""You cannot SIGN this unsigned progress note"", where the USER VERB is"
^DD(8930.8,.05,21,4,0)="""SIGN""."
^DD(8930.8,.05,21,5,0)=" "
^DD(8930.8,.05,21,6,0)="The USER VERB must make grammatical sense inserted in a sentence of the"
^DD(8930.8,.05,21,7,0)="form: ""You cannot [     ] this unsigned progress note."""
^DD(8930.8,.05,21,8,0)=" "
^DD(8930.8,.05,21,9,0)="Please use uppercase, 3-50 characters."
^DD(8930.8,.05,"DT")="3010614"
^DD(8930.8,.06,0)="DOCUMENT VERB^F^^0;6^K:$L(X)>40!($L(X)<3) X"
^DD(8930.8,.06,3)="Example: In ""An unsigned progress note can BE SIGNED by an author/dictator"", the document verb is ""BE SIGNED"". Uppercase,3-40 characters."
^DD(8930.8,.06,21,0)="^.001^10^10^3001024^^"
^DD(8930.8,.06,21,1,0)="This word or phrase is used in business rule options when displaying"
^DD(8930.8,.06,21,2,0)="an authorization in sentence form."
^DD(8930.8,.06,21,3,0)="     "
^DD(8930.8,.06,21,4,0)="A business rule might read: ""An unsigned Progress Note can BE SIGNED by"
^DD(8930.8,.06,21,5,0)="an author/dictator."" The DOCUMENT VERB in this rule is ""BE SIGNED""."
^DD(8930.8,.06,21,6,0)=" "
^DD(8930.8,.06,21,7,0)="The DOCUMENT VERB must make grammatical sense inserted in a sentence of"
^DD(8930.8,.06,21,8,0)="the form: ""An unsigned progress note can [      ] by an author/dictator."""
^DD(8930.8,.06,21,9,0)=" "
^DD(8930.8,.06,21,10,0)="Please use uppercase, 3-40 characters."
^DD(8930.8,.06,"DT")="3000215"
^DD(8930.8,.07,0)="USER VERB MODIFIER^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(8930.8,.07,3)="Example: In ""You cannot LINK this unsigned note with a request"", the user verb modifier is ""with a request"".  Lowercase, 3-30 characters."
^DD(8930.8,.07,21,0)="^.001^16^16^3010614^^"
^DD(8930.8,.07,21,1,0)="Sometimes, in writing messages to the user denying a permission, the"
^DD(8930.8,.07,21,2,0)="action must be split into two parts.  In such cases, the USER VERB"
^DD(8930.8,.07,21,3,0)="MODIFIER is the second part."
^DD(8930.8,.07,21,4,0)=" "
^DD(8930.8,.07,21,5,0)="Example: In ""You cannot LINK this UNSIGNED PROGRESS NOTE with a request"","
^DD(8930.8,.07,21,6,0)="the USER VERB is ""LINK"", and the USER VERB MODIFIER is ""with a request""."
^DD(8930.8,.07,21,7,0)=" "
^DD(8930.8,.07,21,8,0)="The USER VERB MODIFIER must make grammatical sense when inserted in: "
^DD(8930.8,.07,21,9,0)="     ""You cannot LINK this UNSIGNED PROGRESS NOTE [    ]."""
^DD(8930.8,.07,21,10,0)=" "
^DD(8930.8,.07,21,11,0)="Please use lowercase, 3-30 characters."
^DD(8930.8,.07,21,12,0)=" "
^DD(8930.8,.07,21,13,0)="If an action has an IDENTIFYING PHRASE or a USER VERB MODIFIER, the"
^DD(8930.8,.07,21,14,0)="business rule ADD or EDIT action presents the user with a clarifying note"
^DD(8930.8,.07,21,15,0)="about the rule they are creating immediately after the user enters an"
^DD(8930.8,.07,21,16,0)="action."
^DD(8930.8,.07,"DT")="3010614"
^DD(8930.8,.08,0)="IDENTIFYING PHRASE^F^^3;1^K:$L(X)>50!($L(X)<3) X"
^DD(8930.8,.08,3)="Enter a phrase to help the user distinguish this action from others. 3-50 characters."
^DD(8930.8,.08,21,0)="^.001^10^10^3001024^^"
^DD(8930.8,.08,21,1,0)="This field is NOT required.  It is available for use in helping users"
^DD(8930.8,.08,21,2,0)="identify the correct action when writing business rules.  It appears"
^DD(8930.8,.08,21,3,0)="when selecting actions from a list."
^DD(8930.8,.08,21,4,0)=" "
^DD(8930.8,.08,21,5,0)="For examples, see actions ATTACH TO ID NOTE, and ATTACH ID ENTRY."
^DD(8930.8,.08,21,6,0)=" "
^DD(8930.8,.08,21,7,0)="If an action has an IDENTIFYING PHRASE or a USER VERB MODIFIER, the"
^DD(8930.8,.08,21,8,0)="business rule ADD or EDIT action presents the user with a clarifying note"
^DD(8930.8,.08,21,9,0)="about the rule they are creating immediately after the user enters an"
^DD(8930.8,.08,21,10,0)="action."
^DD(8930.8,.08,"DT")="3000601"
^DD(8930.8,1,0)="IMPLIED EVENT^8930.81P^^1;0"
^DD(8930.8,1,21,0)="^^9^9^2941011^"
^DD(8930.8,1,21,1,0)="Some events imply other events.  For example, the ability to Sign a"
^DD(8930.8,1,21,2,0)="document implies the ability to View the document.  Thus, View is an"
^DD(8930.8,1,21,3,0)="implied event for the Signature event."
^DD(8930.8,1,21,4,0)=" "
^DD(8930.8,1,21,6,0)="Authorization/Subscription file, the user will be shown implied events for"
^DD(8930.8,1,21,7,0)="the given event and asked if they wish to include implied events for the"
^DD(8930.8,1,21,8,0)="current entry.  If so, a copy of the current entry will be created for each"
^DD(8930.8,1,21,9,0)="implied event."
^DD(8930.8,1,"DT")="2941011"
^DD(8930.8,2,0)="DESCRIPTION^8930.82^^2;0"
^DD(8930.8,2,21,0)="^^17^17^2941011^"
^DD(8930.8,2,21,1,0)=" "
^DD(8930.8,2,21,2,0)="The event description will be used in conjunction with the"
^DD(8930.8,2,21,3,0)="Authorization/Subscription field to define what it means to associate"
^DD(8930.8,2,21,4,0)="users with the event."
^DD(8930.8,2,21,6,0)="In most cases, this event description will suffice to determine the"
^DD(8930.8,2,21,7,0)="meaning of User Authorization/Subscription file entries."
^DD(8930.8,2,21,8,0)=" "
^DD(8930.8,2,21,9,0)="In rare cases, further description of what an event means when associated"
^DD(8930.8,2,21,10,0)="with users, document type and document status will be made in the"
^DD(8930.8,2,21,11,0)="description field of the User Authorization/Subscription file.  For"
^DD(8930.8,2,21,12,0)="example, a signature event associated with documents of status"
^DD(8930.8,2,21,13,0)="completed means a walkup signature."
^DD(8930.8,2,21,14,0)=" "
^DD(8930.8,2,21,15,0)="This information will be used by persons creating entries in the User"
^DD(8930.8,2,21,16,0)="Authorization/Subscription file and by persons assigning users to user"
^DD(8930.8,2,21,17,0)="classes, when checking what events those user classes are associated with."
^DD(8930.8,"B","ACTION NAME",.01)="1"
^DD(8930.8,"B","APPLIES TO",.03)=""
^DD(8930.8,"B","ASSOCIATED PROTOCOL",.04)=""
^DD(8930.8,"B","DESCRIPTION",2)=""
^DD(8930.8,"B","DOCUMENT VERB",.06)=""
^DD(8930.8,"B","EVENT TYPE",.02)=""
^DD(8930.8,"B","IDENTIFYING PHRASE",.08)=""
^DD(8930.8,"B","IMPLIED EVENT",1)=""
^DD(8930.8,"B","NAME",.01)=""
^DD(8930.8,"B","USER VERB",.05)=""
^DD(8930.8,"B","USER VERB MODIFIER",.07)=""
^DD(8930.8,"GL",0,1,.01)=""
^DD(8930.8,"GL",0,2,.02)=""
^DD(8930.8,"GL",0,3,.03)=""
^DD(8930.8,"GL",0,4,.04)=""
^DD(8930.8,"GL",0,5,.05)=""
^DD(8930.8,"GL",0,6,.06)=""
^DD(8930.8,"GL",0,7,.07)=""
^DD(8930.8,"GL",1,0,1)=""
^DD(8930.8,"GL",2,0,2)=""
^DD(8930.8,"GL",3,1,.08)=""
^DD(8930.8,"IX",.01)=""
^DD(8930.8,"RQ",.01)=""
^DD(8930.8,"SB",8930.81,1)=""
^DD(8930.8,"SB",8930.82,2)=""
^DD(8930.81,0)="IMPLIED EVENT SUB-FIELD^^.01^1"
^DD(8930.81,0,"IX","B",8930.81,.01)=""
^DD(8930.81,0,"NM","IMPLIED EVENT")=""
^DD(8930.81,0,"UP")="8930.8"
^DD(8930.81,.01,0)="IMPLIED EVENT^P8930.8'^USR(8930.8,^0;1^Q"
^DD(8930.81,.01,1,0)="^.1"
^DD(8930.81,.01,1,1,0)="8930.81^B"
^DD(8930.81,.01,1,1,1)="S ^USR(8930.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8930.81,.01,1,1,2)="K ^USR(8930.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8930.81,.01,3)="If this event implies another event, enter the implied event, for example, signature implies view."
^DD(8930.81,.01,"DT")="2941011"
^DD(8930.81,"B","IMPLIED EVENT",.01)=""
^DD(8930.81,"GL",0,1,.01)=""
^DD(8930.81,"IX",.01)=""
^DD(8930.82,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8930.82,0,"NM","DESCRIPTION")=""
^DD(8930.82,0,"UP")="8930.8"
^DD(8930.82,.01,0)="DESCRIPTION^W^^0;1^Q"
^DD(8930.82,.01,3)="Enter a description of the event and what it means to associate users with this event."
^DD(8930.82,.01,"DT")="2940921"
^DD(8930.82,"B","DESCRIPTION",.01)=""
^DD(8930.82,"GL",0,1,.01)=""
^DD(8932.1,0)="FIELD^^90002^15"
^DD(8932.1,0,"DDA")="N"
^DD(8932.1,0,"DT")="3020830"
^DD(8932.1,0,"ID",6)="W ""   "",$P(^(0),U,7)"
^DD(8932.1,0,"ID","WRITE")="N % S %=^(0) D:$L($P(%,U,2)) EN^DDIOL($P(%,U,2),"""",""!,?20"") D:$L($P(%,U,3)) EN^DDIOL($P(%,U,3),"""",""!,?25"")"
^DD(8932.1,0,"IX","B",8932.1,.01)=""
^DD(8932.1,0,"IX","C",8932.1,.01)=""
^DD(8932.1,0,"IX","D",8932.1,1)=""
^DD(8932.1,0,"IX","E",8932.1,2)=""
^DD(8932.1,0,"IX","F",8932.1,5)=""
^DD(8932.1,0,"IX","G",8932.1,6)=""
^DD(8932.1,0,"NM","PERSON CLASS")=""
^DD(8932.1,0,"PT",4.043,.01)=""
^DD(8932.1,0,"PT",200.05,.01)=""
^DD(8932.1,0,"PT",355.9342,.01)=""
^DD(8932.1,0,"PT",363.3411,.01)=""
^DD(8932.1,0,"PT",399,243)=""
^DD(8932.1,0,"PT",399,244)=""
^DD(8932.1,0,"PT",399.0222,.15)=""
^DD(8932.1,0,"PT",403.462,.01)=""
^DD(8932.1,0,"PT",409.44,.03)=""
^DD(8932.1,0,"PT",8930,.05)=""
^DD(8932.1,0,"PT",9000010.06,.06)=""
^DD(8932.1,0,"SCR")="I $P(^(0),U,4)'[""i"""
^DD(8932.1,0,"VR")="8.0"
^DD(8932.1,0,"VRPK")="XU"
^DD(8932.1,.001,0)="NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8932.1,.001,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(8932.1,.001,21,0)="^^1^1^2960530^"
^DD(8932.1,.001,21,1,0)="This is a number field to allow adding new entries by number."
^DD(8932.1,.001,"DT")="2960530"
^DD(8932.1,.01,0)="PROVIDER TYPE^RFXI^^0;1^K:$L(X)>62!($L(X)<3)!'(X'?1P.E) X"
^DD(8932.1,.01,1,0)="^.1"
^DD(8932.1,.01,1,1,0)="8932.1^B"
^DD(8932.1,.01,1,1,1)="S ^USC(8932.1,""B"",$E(X,1,62),DA)="""""
^DD(8932.1,.01,1,1,2)="K ^USC(8932.1,""B"",$E(X,1,62),DA)"
^DD(8932.1,.01,1,2,0)="8932.1^C^KWIC"
^DD(8932.1,.01,1,2,1)="S X=$$UP^XLFSTR(X),%1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^USC(8932.1,""C"",I,DA)="""""
^DD(8932.1,.01,1,2,2)="S X=$$UP^XLFSTR(X),%1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^USC(8932.1,""C"",I,DA)"
^DD(8932.1,.01,1,2,3)="Modified"
^DD(8932.1,.01,1,2,"%D",0)="^^1^1^2960530^^^"
^DD(8932.1,.01,1,2,"%D",1,0)="This is a UPPERCASE KWIC lookup."
^DD(8932.1,.01,1,2,"DT")="2960530"
^DD(8932.1,.01,3)="Answer must be 3-62 characters in length."
^DD(8932.1,.01,21,0)="^.001^1^1^3041005^^"
^DD(8932.1,.01,21,1,0)="This is Level I of NUCC's structure of the Provider Taxonomy."
^DD(8932.1,.01,23,0)="^.001^6^6^3041005^^^^"
^DD(8932.1,.01,23,1,0)="Increased the field length from 60 to 62 to accommodate all values of TYPE"
^DD(8932.1,.01,23,2,0)="as defined by the NUCC.  August 30, 2002."
^DD(8932.1,.01,23,3,0)=" "
^DD(8932.1,.01,23,4,0)="Increased the ""B"" x-ref from 30 to 62 chars.  August 30, 2002."
^DD(8932.1,.01,23,5,0)=" "
^DD(8932.1,.01,23,6,0)="Added DESCRIPTION.  August 30, 2002."
^DD(8932.1,.01,"DT")="3020830"
^DD(8932.1,.011,0)="PROVIDER TYPE CODE^CJ2^^ ; ^X ^DD(8932.1,.011,9.2) S X=$E(Y(8932.1,.011,2),Y(8932.1,.011,3),X)"
^DD(8932.1,.011,9)="^"
^DD(8932.1,.011,9.01)="8932.1^6"
^DD(8932.1,.011,9.1)="$E(X12 CODE,1,2)"
^DD(8932.1,.011,9.2)="S Y(8932.1,.011,1)=$S($D(^USC(8932.1,D0,0)):^(0),1:"""") S X=$P(Y(8932.1,.011,1),U,7),Y(8932.1,.011,2)=X S X=1,Y(8932.1,.011,3)=X S X=2"
^DD(8932.1,.011,21,0)="^^3^3^3020830^"
^DD(8932.1,.011,21,1,0)="This is Level I, Provider Type - 2 byte alphanumeric consisting of the 1st"
^DD(8932.1,.011,21,2,0)="and 2nd characters of X12 CODE:   A code that identifies a major grouping"
^DD(8932.1,.011,21,3,0)="of service(s) or occupation(s) of health care providers."
^DD(8932.1,.011,23,0)="^^1^1^3020830^^"
^DD(8932.1,.011,23,1,0)="Field added August 30, 2002."
^DD(8932.1,1,0)="CLASSIFICATION^FXI^^0;2^K:$L(X)>65!($L(X)<3) X"
^DD(8932.1,1,1,0)="^.1"
^DD(8932.1,1,1,1,0)="8932.1^D^KWIC"
^DD(8932.1,1,1,1,1)="S X=$$UP^XLFSTR(X),%1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^USC(8932.1,""D"",I,DA)="""""
^DD(8932.1,1,1,1,2)="S X=$$UP^XLFSTR(X),%1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^USC(8932.1,""D"",I,DA)"
^DD(8932.1,1,1,1,3)="Modified"
^DD(8932.1,1,1,1,"%D",0)="^^1^1^2960530^^"
^DD(8932.1,1,1,1,"%D",1,0)="This is a UPPERCASE KWIC lookup."
^DD(8932.1,1,1,1,"DT")="2960530"
^DD(8932.1,1,3)="Answer must be 3-65 characters in length."
^DD(8932.1,1,21,0)="^^1^1^3020830^^^^"
^DD(8932.1,1,21,1,0)="This is the CMS (X12) Classification (Level II)."
^DD(8932.1,1,23,0)="^^4^4^3020830^"
^DD(8932.1,1,23,1,0)="Increased the field length from 50 to 65 to accommodate all values"
^DD(8932.1,1,23,2,0)="of Classification as defined by the NUCC.  August 30, 2002."
^DD(8932.1,1,23,3,0)=" "
^DD(8932.1,1,23,4,0)="Updated DESCRIPTION.  August 30, 2002."
^DD(8932.1,1,"DT")="3020830"
^DD(8932.1,1.1,0)="CLASSIFICATION CODE^CJ2^^ ; ^X ^DD(8932.1,1.1,9.2) S X=$E(Y(8932.1,1.1,2),Y(8932.1,1.1,3),X)"
^DD(8932.1,1.1,9)="^"
^DD(8932.1,1.1,9.01)="8932.1^6"
^DD(8932.1,1.1,9.1)="$E(X12 CODE,3,4)"
^DD(8932.1,1.1,9.2)="S Y(8932.1,1.1,1)=$S($D(^USC(8932.1,D0,0)):^(0),1:"""") S X=$P(Y(8932.1,1.1,1),U,7),Y(8932.1,1.1,2)=X S X=3,Y(8932.1,1.1,3)=X S X=4"
^DD(8932.1,1.1,21,0)="^^4^4^3020830^"
^DD(8932.1,1.1,21,1,0)="This is Level II, Classification Code - 2 byte alphanumeric consisting of"
^DD(8932.1,1.1,21,2,0)="the 3rd and 4th characters of the X12 CODE:   A code that identifies more"
^DD(8932.1,1.1,21,3,0)="specific services(s) or occupation(s) within the health care provider"
^DD(8932.1,1.1,21,4,0)="type. The coding is based on licensed provider classifications."
^DD(8932.1,1.1,23,0)="^^1^1^3020830^"
^DD(8932.1,1.1,23,1,0)="Field added August 30, 2002."
^DD(8932.1,2,0)="AREA OF SPECIALIZATION^FXI^^0;3^K:$L(X)>75!($L(X)<2) X"
^DD(8932.1,2,1,0)="^.1"
^DD(8932.1,2,1,1,0)="8932.1^E^KWIC"
^DD(8932.1,2,1,1,1)="S X=$$UP^XLFSTR(X),%1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^USC(8932.1,""E"",I,DA)="""""
^DD(8932.1,2,1,1,2)="S X=$$UP^XLFSTR(X),%1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^USC(8932.1,""E"",I,DA)"
^DD(8932.1,2,1,1,3)="Modified"
^DD(8932.1,2,1,1,"%D",0)="^^1^1^2960530^^"
^DD(8932.1,2,1,1,"%D",1,0)="This is a UPPERCASE KWIC lookup."
^DD(8932.1,2,1,1,"DT")="2960530"
^DD(8932.1,2,3)="Answer must be 2-75 characters in length."
^DD(8932.1,2,21,0)="^.001^2^2^3041005^^"
^DD(8932.1,2,21,1,0)="This is Level III in NUCC's structure of the Provider Taxonomy.  It is the"
^DD(8932.1,2,21,2,0)="most specific, but sometimes defines a ""sub-category"" of Classification."
^DD(8932.1,2,23,0)="^.001^7^7^3041005^^"
^DD(8932.1,2,23,1,0)="Increased the field length from 50 to 75 to accommodate all values of Area"
^DD(8932.1,2,23,2,0)="of Specialization as defined by the NUCC.  August 30, 2002."
^DD(8932.1,2,23,3,0)=" "
^DD(8932.1,2,23,4,0)="Decreased the minimum field length from 3 to 2 to accomodate the value"
^DD(8932.1,2,23,5,0)="""VA"" for X12 code ""261QV0200X"".  August 30, 2002."
^DD(8932.1,2,23,6,0)=" "
^DD(8932.1,2,23,7,0)="Added DESCRIPTION.  August 30, 2002."
^DD(8932.1,2,"DT")="3020830"
^DD(8932.1,2.1,0)="AREA OF SPECIALIZATION CODE^CJ5^^ ; ^X ^DD(8932.1,2.1,9.2) S X=$E(Y(8932.1,2.1,2),Y(8932.1,2.1,3),X)"
^DD(8932.1,2.1,9)="^"
^DD(8932.1,2.1,9.01)="8932.1^6"
^DD(8932.1,2.1,9.1)="$E(X12 CODE,5,9)"
^DD(8932.1,2.1,9.2)="S Y(8932.1,2.1,1)=$S($D(^USC(8932.1,D0,0)):^(0),1:"""") S X=$P(Y(8932.1,2.1,1),U,7),Y(8932.1,2.1,2)=X S X=5,Y(8932.1,2.1,3)=X S X=9"
^DD(8932.1,2.1,21,0)="^^7^7^3020830^"
^DD(8932.1,2.1,21,1,0)="This is Level III, Area of Specialization - a 5 byte alphanumeric"
^DD(8932.1,2.1,21,2,0)="consisting of the 5th through 9th characters of the X12 CODE:   A code that"
^DD(8932.1,2.1,21,3,0)="identifies the provider's specialization, a segment of the population that"
^DD(8932.1,2.1,21,4,0)="a health care provider chooses to service, a specific medical service, a"
^DD(8932.1,2.1,21,5,0)="specialization in treating a specific disease, or any other descriptive"
^DD(8932.1,2.1,21,6,0)="characteristic about the providers practice relating to the services"
^DD(8932.1,2.1,21,7,0)="rendered."
^DD(8932.1,2.1,23,0)="^^1^1^3020830^"
^DD(8932.1,2.1,23,1,0)="Field added August 30, 2002."
^DD(8932.1,3,0)="STATUS^S^a:Active;i:Inactive;^0;4^Q"
^DD(8932.1,3,1,0)="^.1"
^DD(8932.1,3,1,1,0)="^^TRIGGER^8932.1^4"
^DD(8932.1,3,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S X=$S($D(DIFROM):0,1:X[""i"") I X S X=DIV S Y(1)=$S($D(^USC(8932.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DT X ^DD(8932.1,3,1,1,1.4)"
^DD(8932.1,3,1,1,1.4)="S DIH=$S($D(^USC(8932.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=8932.1,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8932.1,3,1,1,2)="Q"
^DD(8932.1,3,1,1,"%D",0)="^^1^1^2960729^"
^DD(8932.1,3,1,1,"%D",1,0)="This trigger sets a date in the 'Date Inactivated' field."
^DD(8932.1,3,1,1,"CREATE CONDITION")="S X=$S($D(DIFROM):0,1:X[""i"")"
^DD(8932.1,3,1,1,"CREATE VALUE")="TODAY"
^DD(8932.1,3,1,1,"DELETE VALUE")="NO EFFECT"
^DD(8932.1,3,1,1,"DT")="2960703"
^DD(8932.1,3,1,1,"FIELD")="Date In"
^DD(8932.1,3,21,0)="^^2^2^3020826^^"
^DD(8932.1,3,21,1,0)="This field will allow old entries to be disabled without removing"
^DD(8932.1,3,21,2,0)="them from the table."
^DD(8932.1,3,"DT")="2960729"
^DD(8932.1,4,0)="DATE INACTIVATED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8932.1,4,3)="Enter the date this Class was inactivated."
^DD(8932.1,4,5,1,0)="8932.1^3^1"
^DD(8932.1,4,21,0)="^^1^1^3020826^^"
^DD(8932.1,4,21,1,0)="This field holds the date that this Class was inactivated."
^DD(8932.1,4,"DT")="2960729"
^DD(8932.1,5,0)="VA CODE^FI^^0;6^K:$L(X)>7!($L(X)<7)!'(X?1""V""6N) X"
^DD(8932.1,5,1,0)="^.1"
^DD(8932.1,5,1,1,0)="8932.1^F"
^DD(8932.1,5,1,1,1)="S ^USC(8932.1,""F"",$E(X,1,30),DA)="""""
^DD(8932.1,5,1,1,2)="K ^USC(8932.1,""F"",$E(X,1,30),DA)"
^DD(8932.1,5,1,1,"%D",0)="^^2^2^2960807^"
^DD(8932.1,5,1,1,"%D",1,0)="This X-ref provides a way for users to enter the VA CODE to lookup"
^DD(8932.1,5,1,1,"%D",2,0)="a person class."
^DD(8932.1,5,1,1,"DT")="2960807"
^DD(8932.1,5,3)="Answer 7 character VA code."
^DD(8932.1,5,21,0)="^^1^1^3020826^^"
^DD(8932.1,5,21,1,0)="This field holds the 7 character VA assigned code for national roll-up."
^DD(8932.1,5,"DT")="2960807"
^DD(8932.1,6,0)="X12 CODE^FX^^0;7^K:$L(X)>10!($L(X)<10)!'(X?3N2AN4N1""X"") X"
^DD(8932.1,6,1,0)="^.1"
^DD(8932.1,6,1,1,0)="8932.1^G"
^DD(8932.1,6,1,1,1)="S ^USC(8932.1,""G"",$E(X,1,30),DA)="""""
^DD(8932.1,6,1,1,2)="K ^USC(8932.1,""G"",$E(X,1,30),DA)"
^DD(8932.1,6,1,1,3)="Allows lookups."
^DD(8932.1,6,1,1,"%D",0)="^^5^5^3020830^"
^DD(8932.1,6,1,1,"%D",1,0)="Created this x-ref to allow lookups on this field, e.g.:"
^DD(8932.1,6,1,1,"%D",2,0)=" "
^DD(8932.1,6,1,1,"%D",3,0)="   S DIC=8932.1,X=""261QV0200X"",DIC(0)=""M"" D ^DIC"
^DD(8932.1,6,1,1,"%D",4,0)=" "
^DD(8932.1,6,1,1,"%D",5,0)="August 30, 2002."
^DD(8932.1,6,1,1,"DT")="3020828"
^DD(8932.1,6,3)="Answer must be 10 characters in length."
^DD(8932.1,6,21,0)="^^2^2^3020830^^^"
^DD(8932.1,6,21,1,0)="This is the code assigned by X12N.  X12 published the joint X12N and CMS"
^DD(8932.1,6,21,2,0)="Health Care Provider Taxonomy following the June 1997 X12 meeting."
^DD(8932.1,6,23,0)="^^32^32^3020830^"
^DD(8932.1,6,23,1,0)="Changed the IT from"
^DD(8932.1,6,23,2,0)=" "
^DD(8932.1,6,23,3,0)="   X?3N2U4N1U "
^DD(8932.1,6,23,4,0)=" to"
^DD(8932.1,6,23,5,0)="   X?3N2AN4N1""X"""
^DD(8932.1,6,23,6,0)=" "
^DD(8932.1,6,23,7,0)="to match the current pattern of the X12 code.  August 30, 2002."
^DD(8932.1,6,23,8,0)=" "
^DD(8932.1,6,23,9,0)="August 30, 2002:"
^DD(8932.1,6,23,10,0)=" There are approximately 800 Provider Taxonomy codes and they are all 10"
^DD(8932.1,6,23,11,0)="digits in length. The hierarchy of provider categories incorporates four"
^DD(8932.1,6,23,12,0)="areas of provider classifications that, when used in concert with one"
^DD(8932.1,6,23,13,0)="another, create the capability to sort providers into broad and specific"
^DD(8932.1,6,23,14,0)="categories.  There are four levels in the hierarchy including:"
^DD(8932.1,6,23,15,0)=" "
^DD(8932.1,6,23,16,0)=" I. Provider Type - 2 byte alphanumeric:"
^DD(8932.1,6,23,17,0)=" A code that identifies a major grouping of service(s) or occupation(s) of"
^DD(8932.1,6,23,18,0)="health care providers."
^DD(8932.1,6,23,19,0)=" "
^DD(8932.1,6,23,20,0)=" II. Classification Code - 2 byte alphanumeric:"
^DD(8932.1,6,23,21,0)=" A code that identifies more specific services(s) or occupation(s) within"
^DD(8932.1,6,23,22,0)="the health care provider type. The coding is based on licensed provider"
^DD(8932.1,6,23,23,0)="classifications."
^DD(8932.1,6,23,24,0)=" "
^DD(8932.1,6,23,25,0)=" III. Area of Specialization - 5 byte alphanumeric:"
^DD(8932.1,6,23,26,0)=" A code that identifies the provider's specialization, a segment of the"
^DD(8932.1,6,23,27,0)="population that a health care provider chooses to service, a specific"
^DD(8932.1,6,23,28,0)="medical service, a specialization in treating a specific disease, or any"
^DD(8932.1,6,23,29,0)="other descriptive characteristic about the providers practice relating to"
^DD(8932.1,6,23,30,0)="the services rendered."
^DD(8932.1,6,23,31,0)=" "
^DD(8932.1,6,23,32,0)=" IV. A place holder for future expansion - 1 byte alphanumeric"
^DD(8932.1,6,"DT")="3020830"
^DD(8932.1,7,0)="reserved^F^^0;8^K:$L(X)>12!($L(X)<1) X"
^DD(8932.1,7,3)="Answer must be 1-12 characters in length."
^DD(8932.1,7,21,0)="^^2^2^3020826^"
^DD(8932.1,7,21,1,0)="This field is only to help a conversion routine for updates to the file."
^DD(8932.1,7,21,2,0)="Any data is used only be a update routine."
^DD(8932.1,7,"DT")="3020830"
^DD(8932.1,8,0)="SPECIALTY CODE^FI^^0;9^K:$L(X)>2!($L(X)<2) X"
^DD(8932.1,8,3)="Enter the 2 character specialty code associated with this classification"
^DD(8932.1,8,21,0)="^^1^1^3020826^"
^DD(8932.1,8,21,1,0)="This field holds the specialty code associated with the classification"
^DD(8932.1,8,"DT")="3020830"
^DD(8932.1,11,0)="DEFINITION^8932.111^^11;0"
^DD(8932.1,90002,0)="INDIVIDUAL/NON^S^I:INDIVIDUAL;N:NON-INDIVIDUAL;^90002;2^Q"
^DD(8932.1,90002,21,0)="^^7^7^3020830^"
^DD(8932.1,90002,21,1,0)="This field indicates whether the entry is for an Individual or for a"
^DD(8932.1,90002,21,2,0)="Non-Individual, and was added at the request of IHS in their namespace,"
^DD(8932.1,90002,21,3,0)="until the file supporting Non-Individuals can be defined."
^DD(8932.1,90002,21,4,0)=" "
^DD(8932.1,90002,21,5,0)="Note that the current definition of the X12 CODE does not explicitly"
^DD(8932.1,90002,21,6,0)="indicate whether an entry is for an Individual or for a Non-Individual,"
^DD(8932.1,90002,21,7,0)="either in value or structure definition."
^DD(8932.1,90002,23,0)="^^11^11^3030708^"
^DD(8932.1,90002,23,1,0)="This field is in the IHS numberspace, and is for their use pending"
^DD(8932.1,90002,23,2,0)="development and deployment of a file to support a Non-Individual taxonomy."
^DD(8932.1,90002,23,3,0)=" "
^DD(8932.1,90002,23,4,0)="PERSON CLASS is intended for Individuals, and as of this writing, plans"
^DD(8932.1,90002,23,5,0)="are under way to create a separate file to support that portion of the"
^DD(8932.1,90002,23,6,0)="X12 Provider Taxonomy which is for Non-Individuals."
^DD(8932.1,90002,23,7,0)=" "
^DD(8932.1,90002,23,8,0)="August 30, 2002."
^DD(8932.1,90002,23,9,0)=" "
^DD(8932.1,90002,23,10,0)="IHS has added entries for non-Individuals to the file.  Patches should "
^DD(8932.1,90002,23,11,0)="take that in to account when planning how to load new data."
^DD(8932.1,90002,"DT")="3030708"
^DD(8932.1,"B","AREA OF SPECIALIZATION",2)=""
^DD(8932.1,"B","AREA OF SPECIALIZATION CODE",2.1)=""
^DD(8932.1,"B","CLASSIFICATION",1)=""
^DD(8932.1,"B","CLASSIFICATION CODE",1.1)=""
^DD(8932.1,"B","DATE INACTIVATED",4)=""
^DD(8932.1,"B","DEFINITION",11)=""
^DD(8932.1,"B","INDIVIDUAL/NON",90002)=""
^DD(8932.1,"B","NUMBER",.001)=""
^DD(8932.1,"B","PROVIDER TYPE",.01)=""
^DD(8932.1,"B","PROVIDER TYPE CODE",.011)=""
^DD(8932.1,"B","SPECIALTY CODE",8)=""
^DD(8932.1,"B","STATUS",3)=""
^DD(8932.1,"B","VA CODE",5)=""
^DD(8932.1,"B","X12 CODE",6)=""
^DD(8932.1,"B","reserved",7)=""
^DD(8932.1,"GL",0,1,.01)=""
^DD(8932.1,"GL",0,2,1)=""
^DD(8932.1,"GL",0,3,2)=""
^DD(8932.1,"GL",0,4,3)=""
^DD(8932.1,"GL",0,5,4)=""
^DD(8932.1,"GL",0,6,5)=""
^DD(8932.1,"GL",0,7,6)=""
^DD(8932.1,"GL",0,8,7)=""
^DD(8932.1,"GL",0,9,8)=""
^DD(8932.1,"GL",11,0,11)=""
^DD(8932.1,"GL",90002,2,90002)=""
^DD(8932.1,"IX",.01)=""
^DD(8932.1,"IX",1)=""
^DD(8932.1,"IX",2)=""
^DD(8932.1,"IX",3)=""
^DD(8932.1,"IX",5)=""
^DD(8932.1,"IX",6)=""
^DD(8932.1,"RQ",.01)=""
^DD(8932.1,"SB",8932.111,11)=""
^DD(8932.111,0)="DEFINITION SUB-FIELD^^.01^1"
^DD(8932.111,0,"DT")="3020828"
^DD(8932.111,0,"NM","DEFINITION")=""
^DD(8932.111,0,"UP")="8932.1"
^DD(8932.111,.01,0)="DEFINITION^W^^0;1^Q"
^DD(8932.111,.01,3)="Enter the definition of this Provider Type."
^DD(8932.111,.01,21,0)="^^2^2^3020829^"
^DD(8932.111,.01,21,1,0)="Enter the definition of this Provider Type.  Types with X12 codes are"
^DD(8932.111,.01,21,2,0)="defined by the NUCC, provided by various sources."
^DD(8932.111,.01,23,0)="^^1^1^3020829^"
^DD(8932.111,.01,23,1,0)="DEFINITION field added August 29, 2002."
^DD(8932.111,.01,"DT")="3020828"
^DD(8932.111,"B","DEFINITION",.01)=""
^DD(8932.111,"GL",0,1,.01)=""
^DD(8932.2,0)="FIELD^^.01^1"
^DD(8932.2,0,"DT")="3020813"
^DD(8932.2,0,"NM","PROGRAM OF STUDY")=""
^DD(8932.2,0,"PT",200,12.2)=""
^DD(8932.2,0,"VR")="8.0"
^DD(8932.2,0,"VRPK")="XU"
^DD(8932.2,.01,0)="NAME^RF^^0;1^K:$L(X)>150!($L(X)<3)!'(X'?1P.E) X"
^DD(8932.2,.01,1,0)="^.1^^0"
^DD(8932.2,.01,3)="Answer must be 3-150 characters in length."
^DD(8932.2,.01,21,0)="^^1^1^3021002^"
^DD(8932.2,.01,21,1,0)="This is the name of the program of study."
^DD(8932.2,.01,"DT")="3020813"
^DD(8932.2,"B","NAME",.01)=""
^DD(8932.2,"GL",0,1,.01)=""
^DD(8932.2,"RQ",.01)=""
^DD(8935.91,0)="FIELD^^3^9"
^DD(8935.91,0,"DDA")="N"
^DD(8935.91,0,"IX","B",8935.91,.01)=""
^DD(8935.91,0,"IX","C",8935.91,.02)=""
^DD(8935.91,0,"IX","D",8935.91,.01)=""
^DD(8935.91,0,"IX","DAD",8935.91,.04)=""
^DD(8935.91,0,"IX","SCAT",8935.913,.02)=""
^DD(8935.91,0,"NM","XHD PARAMETER CATEGORY")=""
^DD(8935.91,0,"PT",8935.91,.04)=""
^DD(8935.91,0,"PT",8935.913,.02)=""
^DD(8935.91,0,"VR")="1.0"
^DD(8935.91,0,"VRPK")="ORRC"
^DD(8935.91,.01,0)="FULL NAME^RF^^0;1^K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X"
^DD(8935.91,.01,1,0)="^.1"
^DD(8935.91,.01,1,1,0)="8935.91^B"
^DD(8935.91,.01,1,1,1)="S ^XHD(8935.91,""B"",$E(X,1,30),DA)="""""
^DD(8935.91,.01,1,1,2)="K ^XHD(8935.91,""B"",$E(X,1,30),DA)"
^DD(8935.91,.01,1,2,0)="8935.91^D^KWIC"
^DD(8935.91,.01,1,2,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^XHD(8935.91,""D"",I,DA)="""""
^DD(8935.91,.01,1,2,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^XHD(8935.91,""D"",I,DA)"
^DD(8935.91,.01,1,2,"%D",0)="^^1^1^3021211^"
^DD(8935.91,.01,1,2,"%D",1,0)="KWIC Cross-reference on the name field allows look-up on partial names."
^DD(8935.91,.01,1,2,"DT")="3021211"
^DD(8935.91,.01,3)="Answer must be 3-60 characters in length, beginning with Package namespace"
^DD(8935.91,.01,21,0)="^.001^1^1^3021108^^^"
^DD(8935.91,.01,21,1,0)="This is the name of the Parameter Category."
^DD(8935.91,.01,"DT")="3021211"
^DD(8935.91,.02,0)="PLUGIN ID^F^^0;2^K:$L(X)>60!($L(X)<3) X"
^DD(8935.91,.02,1,0)="^.1"
^DD(8935.91,.02,1,1,0)="8935.91^C"
^DD(8935.91,.02,1,1,1)="S ^XHD(8935.91,""C"",$E(X,1,30),DA)="""""
^DD(8935.91,.02,1,1,2)="K ^XHD(8935.91,""C"",$E(X,1,30),DA)"
^DD(8935.91,.02,1,1,"%D",0)="^^2^2^3021112^"
^DD(8935.91,.02,1,1,"%D",1,0)="This REGULAR FileMan cross-reference allows look-up and sorting by module "
^DD(8935.91,.02,1,1,"%D",2,0)="ID."
^DD(8935.91,.02,1,1,"DT")="3021112"
^DD(8935.91,.02,3)="Answer must be 3-60 characters in length."
^DD(8935.91,.02,21,0)="^^2^2^3030114^"
^DD(8935.91,.02,21,1,0)="This is the identifier of the plugin to which this category applies "
^DD(8935.91,.02,21,2,0)="(e.g., gov.va.med.hds.prism)."
^DD(8935.91,.02,"DT")="3030114"
^DD(8935.91,.03,0)="NAME^F^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(8935.91,.03,3)="Answer must be 3-60 characters in length."
^DD(8935.91,.03,21,0)="^^2^2^3021108^"
^DD(8935.91,.03,21,1,0)="This is the name of the category by which it will be known to the outside "
^DD(8935.91,.03,21,2,0)="world."
^DD(8935.91,.03,"DT")="3021113"
^DD(8935.91,.04,0)="PARENT ID^P8935.91'^XHD(8935.91,^0;4^Q"
^DD(8935.91,.04,1,0)="^.1"
^DD(8935.91,.04,1,1,0)="8935.91^DAD"
^DD(8935.91,.04,1,1,1)="S ^XHD(8935.91,""DAD"",$E(X,1,30),DA)="""""
^DD(8935.91,.04,1,1,2)="K ^XHD(8935.91,""DAD"",$E(X,1,30),DA)"
^DD(8935.91,.04,1,1,"%D",0)="^^3^3^3021126^"
^DD(8935.91,.04,1,1,"%D",1,0)="This REGULAR, whole-file cross-reference on the parent field helps to "
^DD(8935.91,.04,1,1,"%D",2,0)="assure referential consistency between Parameter Categories and their "
^DD(8935.91,.04,1,1,"%D",3,0)="sub-categories."
^DD(8935.91,.04,1,1,"DT")="3021126"
^DD(8935.91,.04,3)="Specify the parent category"
^DD(8935.91,.04,21,0)="^.001^1^1^3021113^^"
^DD(8935.91,.04,21,1,0)="This is the parent category."
^DD(8935.91,.04,"DT")="3021126"
^DD(8935.91,.05,0)="PACKAGE ROOT^S^0:false;1:true;^0;5^Q"
^DD(8935.91,.05,3)="Is this the root category for the module?"
^DD(8935.91,.05,21,0)="^.001^1^1^3021122^^"
^DD(8935.91,.05,21,1,0)="Boolean field to identify the root category for a given module."
^DD(8935.91,.05,"DT")="3021122"
^DD(8935.91,.06,0)="OK TO TRANSPORT^S^0:false;1:true;^0;6^Q"
^DD(8935.91,.06,3)="Indicate whether the category is ok to transport"
^DD(8935.91,.06,21,0)="^^2^2^3030212^"
^DD(8935.91,.06,21,1,0)="This Boolean field indicates whether or not a given Category is okay to "
^DD(8935.91,.06,21,2,0)="transport with a KIDS distribution."
^DD(8935.91,.06,"DT")="3030212"
^DD(8935.91,1,0)="PREFERENCE PAGE ID^F^^1;1^K:$L(X)>60!($L(X)<3) X"
^DD(8935.91,1,3)="Answer must be 3-60 characters in length."
^DD(8935.91,1,21,0)="^^3^3^3030204^"
^DD(8935.91,1,21,1,0)="This is the freetext ID of the extension-point in the plugin's "
^DD(8935.91,1,21,2,0)="Manifest.xml file that maps to the Java Class for the Preference Page"
^DD(8935.91,1,21,3,0)="associated with this category (e.g., gov.va.med.hds.query.PreferencePage)."
^DD(8935.91,1,"DT")="3030204"
^DD(8935.91,2,0)="PARAMETERS^8935.912^^2;0"
^DD(8935.91,2,21,0)="^.001^1^1^3030226^^^^"
^DD(8935.91,2,21,1,0)="This is the multiple of parameters for the category."
^DD(8935.91,3,0)="SUBCATEGORIES^8935.913^^3;0"
^DD(8935.91,3,21,0)="^.001^2^2^3021112^^^^"
^DD(8935.91,3,21,1,0)="This multiple of subcategories allows an indefinitely nested hierarchy of "
^DD(8935.91,3,21,2,0)="categories."
^DD(8935.91,"B","FULL NAME",.01)=""
^DD(8935.91,"B","NAME",.03)=""
^DD(8935.91,"B","OK TO TRANSPORT",.06)=""
^DD(8935.91,"B","PACKAGE ROOT",.05)=""
^DD(8935.91,"B","PARAMETERS",2)=""
^DD(8935.91,"B","PARENT ID",.04)=""
^DD(8935.91,"B","PLUGIN ID",.02)=""
^DD(8935.91,"B","PREFERENCE PAGE ID",1)=""
^DD(8935.91,"B","SUBCATEGORIES",3)=""
^DD(8935.91,"GL",0,1,.01)=""
^DD(8935.91,"GL",0,2,.02)=""
^DD(8935.91,"GL",0,3,.03)=""
^DD(8935.91,"GL",0,4,.04)=""
^DD(8935.91,"GL",0,5,.05)=""
^DD(8935.91,"GL",0,6,.06)=""
^DD(8935.91,"GL",1,1,1)=""
^DD(8935.91,"GL",2,0,2)=""
^DD(8935.91,"GL",3,0,3)=""
^DD(8935.91,"IX",.01)=""
^DD(8935.91,"IX",.02)=""
^DD(8935.91,"IX",.04)=""
^DD(8935.91,"RQ",.01)=""
^DD(8935.91,"SB",8935.912,2)=""
^DD(8935.91,"SB",8935.913,3)=""
^DD(8935.912,0)="PARAMETERS SUB-FIELD^^.02^2"
^DD(8935.912,0,"IX","B",8935.912,.01)=""
^DD(8935.912,0,"IX","C",8935.912,.02)=""
^DD(8935.912,0,"NM","PARAMETERS")=""
^DD(8935.912,0,"UP")="8935.91"
^DD(8935.912,.01,0)="PARAMETER NAME^MF^^0;1^K:$L(X)>60!($L(X)<3) X"
^DD(8935.912,.01,1,0)="^.1"
^DD(8935.912,.01,1,1,0)="8935.912^B"
^DD(8935.912,.01,1,1,1)="S ^XHD(8935.91,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8935.912,.01,1,1,2)="K ^XHD(8935.91,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8935.912,.01,3)="Answer must be 3-60 characters in length."
^DD(8935.912,.01,21,0)="^.001^2^2^3021112^^^"
^DD(8935.912,.01,21,1,0)="This is the name of the parameter by which it will be identified to the "
^DD(8935.912,.01,21,2,0)="application (e.g., ""Look and Feel"")."
^DD(8935.912,.01,"DT")="3021108"
^DD(8935.912,.02,0)="PARAMETER DEFINITION^P8989.51'^XTV(8989.51,^0;2^Q"
^DD(8935.912,.02,1,0)="^.1"
^DD(8935.912,.02,1,1,0)="8935.912^C"
^DD(8935.912,.02,1,1,1)="S ^XHD(8935.91,DA(1),2,""C"",$E(X,1,30),DA)="""""
^DD(8935.912,.02,1,1,2)="K ^XHD(8935.91,DA(1),2,""C"",$E(X,1,30),DA)"
^DD(8935.912,.02,1,1,"%D",0)="^.101^2^2^3030221^^"
^DD(8935.912,.02,1,1,"%D",1,0)="This REGULAR cross-reference on categories by parameter definition will "
^DD(8935.912,.02,1,1,"%D",2,0)="optimize finding instances of a given parameter in a category."
^DD(8935.912,.02,1,1,"DT")="3030221"
^DD(8935.912,.02,3)="Specify the parameter definition to which this entry applies"
^DD(8935.912,.02,21,0)="^.001^2^2^3021112^^^"
^DD(8935.912,.02,21,1,0)="This is the PARAMETER DEFINITION FILE (#8989.51) to which the entry "
^DD(8935.912,.02,21,2,0)="applies."
^DD(8935.912,.02,"DT")="3030221"
^DD(8935.912,"B","PARAMETER DEFINITION",.02)=""
^DD(8935.912,"B","PARAMETER NAME",.01)=""
^DD(8935.912,"GL",0,1,.01)=""
^DD(8935.912,"GL",0,2,.02)=""
^DD(8935.912,"IX",.01)=""
^DD(8935.912,"IX",.02)=""
^DD(8935.913,0)="SUBCATEGORIES SUB-FIELD^^.02^2"
^DD(8935.913,0,"IX","B",8935.913,.01)=""
^DD(8935.913,0,"IX","C",8935.913,.02)=""
^DD(8935.913,0,"NM","SUBCATEGORIES")=""
^DD(8935.913,0,"UP")="8935.91"
^DD(8935.913,.01,0)="SEQUENCE^MNJ5,1^^0;1^K:+X'=X!(X>999.9)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(8935.913,.01,1,0)="^.1"
^DD(8935.913,.01,1,1,0)="8935.913^B"
^DD(8935.913,.01,1,1,1)="S ^XHD(8935.91,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(8935.913,.01,1,1,2)="K ^XHD(8935.91,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(8935.913,.01,3)="Type a Number between .1 and 999.9, 1 Decimal Digit"
^DD(8935.913,.01,21,0)="^.001^1^1^3021112^^"
^DD(8935.913,.01,21,1,0)="Specify the sequence in which the subcategory will be presented."
^DD(8935.913,.01,"DT")="3021112"
^DD(8935.913,.02,0)="SUBCATEGORY^P8935.91^XHD(8935.91,^0;2^Q"
^DD(8935.913,.02,1,0)="^.1"
^DD(8935.913,.02,1,1,0)="8935.913^C"
^DD(8935.913,.02,1,1,1)="S ^XHD(8935.91,DA(1),3,""C"",$E(X,1,30),DA)="""""
^DD(8935.913,.02,1,1,2)="K ^XHD(8935.91,DA(1),3,""C"",$E(X,1,30),DA)"
^DD(8935.913,.02,1,1,"%D",0)="^^2^2^3021127^"
^DD(8935.913,.02,1,1,"%D",1,0)="This regular cross-reference by subcategory allows quick look-ups based "
^DD(8935.913,.02,1,1,"%D",2,0)="on sub-category ids."
^DD(8935.913,.02,1,1,"DT")="3021127"
^DD(8935.913,.02,1,2,0)="8935.91^SCAT"
^DD(8935.913,.02,1,2,1)="S ^XHD(8935.91,""SCAT"",$E(X,1,30),DA(1),DA)="""""
^DD(8935.913,.02,1,2,2)="K ^XHD(8935.91,""SCAT"",$E(X,1,30),DA(1),DA)"
^DD(8935.913,.02,1,2,"%D",0)="^^2^2^3021127^"
^DD(8935.913,.02,1,2,"%D",1,0)="This regular, whole-file cross-reference by sub-category allows quick "
^DD(8935.913,.02,1,2,"%D",2,0)="look-ups by sub-category id."
^DD(8935.913,.02,1,2,"DT")="3021127"
^DD(8935.913,.02,3)="Select the subcategory."
^DD(8935.913,.02,21,0)="^.001^2^2^3021112^^^"
^DD(8935.913,.02,21,1,0)="This field holds a reference to the subcategory entry in the Parameter "
^DD(8935.913,.02,21,2,0)="Categories file."
^DD(8935.913,.02,"DT")="3021127"
^DD(8935.913,"B","SEQUENCE",.01)=""
^DD(8935.913,"B","SUBCATEGORY",.02)=""
^DD(8935.913,"GL",0,1,.01)=""
^DD(8935.913,"GL",0,2,.02)=""
^DD(8935.913,"IX",.01)=""
^DD(8935.913,"IX",.02)=""
^DD(8970.1,0)="FIELD^^.03^4"
^DD(8970.1,0,"DDA")="N"
^DD(8970.1,0,"DT")="3010817"
^DD(8970.1,0,"IX","B",8970.1,.01)=""
^DD(8970.1,0,"NM","SAGG PROJECT")=""
^DD(8970.1,0,"VR")="2.0"
^DD(8970.1,0,"VRPK")="SAGG"
^DD(8970.1,.01,0)="ONE^RNJ1,0I^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8970.1,.01,1,0)="^.1"
^DD(8970.1,.01,1,1,0)="8970.1^B"
^DD(8970.1,.01,1,1,1)="S ^KMPS(8970.1,""B"",$E(X,1,30),DA)="""""
^DD(8970.1,.01,1,1,2)="K ^KMPS(8970.1,""B"",$E(X,1,30),DA)"
^DD(8970.1,.01,3)="There should be only ONE (1) entry in this file!  Type in the Number 1."
^DD(8970.1,.01,21,0)="^^2^2^2980227^"
^DD(8970.1,.01,21,1,0)="Since the SAGG PROJECT file is identified uniquely with the site at"
^DD(8970.1,.01,21,2,0)="which it is installed, this field will only accept one entry."
^DD(8970.1,.01,"DT")="2980227"
^DD(8970.1,.02,0)="XTMP GLOBAL LOCATION^F^^0;2^K:$L(X)>9!($L(X)<2)!'(X?.U) X"
^DD(8970.1,.02,3)="Input name (2-9 UPPER characters) of the Volume Set (for DSM only) where the XTMP global is located.  If Cache site, leave BLANK."
^DD(8970.1,.02,21,0)="^^4^4^3020410^"
^DD(8970.1,.02,21,1,0)="This field will contain the name of the Volume Set (for DSM only) where"
^DD(8970.1,.02,21,2,0)="the temporary collection global (^XTMP) is located at this site."
^DD(8970.1,.02,21,3,0)=" "
^DD(8970.1,.02,21,4,0)="If this is an Cache site, leave BLANK."
^DD(8970.1,.02,"DT")="2980305"
^DD(8970.1,.025,0)="XTMP GLOBAL UCI^F^^0;3^K:$L(X)>9!($L(X)<2)!'(X?.U) X"
^DD(8970.1,.025,3)="Input name (2-9 UPPER characters) of UCI (for DSM only) where the XTMP global is located.  If Cache site, leave BLANK."
^DD(8970.1,.025,21,0)="^^6^6^3020410^"
^DD(8970.1,.025,21,1,0)="This field will contain the name of the UCI (for DSM only) where the"
^DD(8970.1,.025,21,2,0)="temporary collection global (^XTMP) is located at this site.  If left"
^DD(8970.1,.025,21,3,0)="BLANK, the collection software will default to the value of the first data"
^DD(8970.1,.025,21,4,0)="piece in the ^%ZOSF(""PROD"") global node."
^DD(8970.1,.025,21,5,0)=" "
^DD(8970.1,.025,21,6,0)="If this is an Cache site, leave BLANK."
^DD(8970.1,.025,"DT")="2980305"
^DD(8970.1,.03,0)="VOLUME SET TO MONITOR^8970.11^^1;0"
^DD(8970.1,.03,21,0)="^.001^2^2^3020410^^"
^DD(8970.1,.03,21,1,0)="This multiple field contains the Volume Sets (DSM) or Directories (Cache)"
^DD(8970.1,.03,21,2,0)="that will be monitored by SAGG."
^DD(8970.1,"B","ONE",.01)=""
^DD(8970.1,"B","VOLUME SET TO MONITOR",.03)=""
^DD(8970.1,"B","XTMP GLOBAL LOCATION",.02)=""
^DD(8970.1,"B","XTMP GLOBAL UCI",.025)=""
^DD(8970.1,"GL",0,1,.01)=""
^DD(8970.1,"GL",0,2,.02)=""
^DD(8970.1,"GL",0,3,.025)=""
^DD(8970.1,"GL",1,0,.03)=""
^DD(8970.1,"IX",.01)=""
^DD(8970.1,"RQ",.01)=""
^DD(8970.1,"SB",8970.11,.03)=""
^DD(8970.11,0)="VOLUME SET TO MONITOR SUB-FIELD^^.02^2"
^DD(8970.11,0,"DT")="3010817"
^DD(8970.11,0,"IX","B",8970.11,.01)=""
^DD(8970.11,0,"NM","VOLUME SET TO MONITOR")=""
^DD(8970.11,0,"UP")="8970.1"
^DD(8970.11,.01,0)="VOLUME SET TO MONITOR^MRF^^0;1^K:$L(X)>40!($L(X)<2) X"
^DD(8970.11,.01,1,0)="^.1"
^DD(8970.11,.01,1,1,0)="8970.11^B"
^DD(8970.11,.01,1,1,1)="S ^KMPS(8970.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8970.11,.01,1,1,2)="K ^KMPS(8970.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8970.11,.01,3)="Answer with the name (2-40 characters) of the Directories or Volume Sets that the SAGG collection routines will monitor."
^DD(8970.11,.01,4)="D HELP^KMPSUTL"
^DD(8970.11,.01,21,0)="^.001^18^18^3020410^^"
^DD(8970.11,.01,21,1,0)="This field will contain the name of the Directories (for Cache) or the"
^DD(8970.11,.01,21,2,0)="Volume Sets (for DSM) that the site wants to monitor with the SAGG"
^DD(8970.11,.01,21,3,0)="collection routines.  The site should specify only the Directories or"
^DD(8970.11,.01,21,4,0)="Volume Sets which hold their VistA production globals:"
^DD(8970.11,.01,21,5,0)=" "
^DD(8970.11,.01,21,6,0)="For example:"
^DD(8970.11,.01,21,7,0)=" "
^DD(8970.11,.01,21,8,0)="   For Cache for OpenVMS =>"
^DD(8970.11,.01,21,9,0)="                 _$1$DKA4:[CACHSYS.VAA] ... _$1$DKAx:[CACHSYS.Vxx]"
^DD(8970.11,.01,21,10,0)=" "
^DD(8970.11,.01,21,11,0)="   For Cache for Windows NT =>"
^DD(8970.11,.01,21,12,0)="                 W:\VAA, W:\VBB, W:\VCC ... V:\Vxx"
^DD(8970.11,.01,21,13,0)=" "
^DD(8970.11,.01,21,14,0)="   For DSM =>"
^DD(8970.11,.01,21,15,0)="                 ROU, VAA, VBB ... Vxx"
^DD(8970.11,.01,21,16,0)=" "
^DD(8970.11,.01,21,17,0)="The site should NOT specify 'test/training' Directories or Volume Sets"
^DD(8970.11,.01,21,18,0)="(e.g., UTL, TST, etc.)."
^DD(8970.11,.01,"DT")="3010817"
^DD(8970.11,.02,0)="UCI^F^^0;2^K:$L(X)>9!($L(X)<2)!'(X?.U) X"
^DD(8970.11,.02,3)="Answer with the name (2-9 UPPER characters) of the UCI that the SAGG Project collection routines will monitor for the given VOLUME SET.  If Cache site, leave BLANK."
^DD(8970.11,.02,21,0)="^^6^6^3020410^"
^DD(8970.11,.02,21,1,0)="This field will contain the name of the UCI that the SAGG Project"
^DD(8970.11,.02,21,2,0)="collection routines will monitor for the given VOLUME SET TO MONITOR."
^DD(8970.11,.02,21,3,0)="If left BLANK, the collection software will default to the value of"
^DD(8970.11,.02,21,4,0)="the first data piece in the ^%ZOSF(""PROD"") global node."
^DD(8970.11,.02,21,5,0)=" "
^DD(8970.11,.02,21,6,0)="If this is an Cache site, leave BLANK."
^DD(8970.11,.02,"DT")="2980227"
^DD(8970.11,"B","UCI",.02)=""
^DD(8970.11,"B","VOLUME SET TO MONITOR",.01)=""
^DD(8970.11,"GL",0,1,.01)=""
^DD(8970.11,"GL",0,2,.02)=""
^DD(8970.11,"IX",.01)=""
^DD(8970.11,"RQ",.01)=""
^DD(8971.1,0)="FIELD^^3.08^129"
^DD(8971.1,0,"DDA")="N"
^DD(8971.1,0,"DT")="3030328"
^DD(8971.1,0,"ID","W")="D:$G(Y) ID^KMPRUTL(Y)"
^DD(8971.1,0,"IX","ANODE",8971.1,.03)=""
^DD(8971.1,0,"IX","B",8971.1,.01)=""
^DD(8971.1,0,"NM","RESOURCE USAGE MONITOR")=""
^DD(8971.1,0,"VR")="2.0"
^DD(8971.1,0,"VRPK")="CAPACITY MANAGEMENT - RUM"
^DD(8971.1,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8971.1,.01,1,0)="^.1"
^DD(8971.1,.01,1,1,0)="8971.1^B"
^DD(8971.1,.01,1,1,1)="S ^KMPR(8971.1,""B"",$E(X,1,30),DA)="""""
^DD(8971.1,.01,1,1,2)="K ^KMPR(8971.1,""B"",$E(X,1,30),DA)"
^DD(8971.1,.01,3)="Enter the DATE on which the data was gathered."
^DD(8971.1,.01,21,0)="^^2^2^3030330^"
^DD(8971.1,.01,21,1,0)="The DATE on which the data for this option, protocol or RPC was gathered "
^DD(8971.1,.01,21,2,0)="for this computer node."
^DD(8971.1,.01,"DT")="3030330"
^DD(8971.1,.02,0)="SENT TO CM NATIONAL DATABASE^S^0:NO;1:YES;^0;2^Q"
^DD(8971.1,.02,1,0)="^.1^^0"
^DD(8971.1,.02,"DT")="2981013"
^DD(8971.1,.03,0)="NODE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(8971.1,.03,1,0)="^.1"
^DD(8971.1,.03,1,1,0)="8971.1^ANODE"
^DD(8971.1,.03,1,1,1)="S ^KMPR(8971.1,""ANODE"",$E(X,1,30),DA)="""""
^DD(8971.1,.03,1,1,2)="K ^KMPR(8971.1,""ANODE"",$E(X,1,30),DA)"
^DD(8971.1,.03,1,1,"DT")="2981104"
^DD(8971.1,.03,3)="Answer must be 1-30 characters in length."
^DD(8971.1,.03,21,0)="^^2^2^3030330^"
^DD(8971.1,.03,21,1,0)="The computer NODE on which the data for this option, protocol or RPC was "
^DD(8971.1,.03,21,2,0)="gathered."
^DD(8971.1,.03,"DT")="3030330"
^DD(8971.1,.04,0)="OPTION^F^^0;4^K:$L(X)>32!($L(X)<3) X"
^DD(8971.1,.04,1,0)="^.1^^0"
^DD(8971.1,.04,3)="Answer must be 3-32 characters in length."
^DD(8971.1,.04,"DT")="2981027"
^DD(8971.1,.05,0)="PROTOCOL^F^^0;5^K:$L(X)>63!($L(X)<3) X"
^DD(8971.1,.05,3)="Answer must be 3-63 characters in length."
^DD(8971.1,.05,"DT")="2981005"
^DD(8971.1,.06,0)="NODE TYPE^S^DS:DISK SERVER;TM:TASKMAN;US:USER;UT:USER + TASKMAN;^0;6^Q"
^DD(8971.1,.06,"DT")="2981005"
^DD(8971.1,.07,0)="RPC^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(8971.1,.07,3)="Answer must be 3-30 characters in length."
^DD(8971.1,.07,"DT")="2981014"
^DD(8971.1,.08,0)="RUM DESIGNATION^S^1:TASKMAN;2:OPTION;3:BROKER;4:USERS;5:OTHER;^0;8^Q"
^DD(8971.1,.08,"DT")="3030327"
^DD(8971.1,.09,0)="HL7^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(8971.1,.09,3)="Answer must be 1-30 characters in length."
^DD(8971.1,.09,"DT")="2981105"
^DD(8971.1,1.01,0)="CPU TIME (PT)^F^^1;1^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.01,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.01,21,0)="^^2^2^3030330^"
^DD(8971.1,1.01,21,1,0)="The amount of cpu time that this option, protocol or RPC generated on this"
^DD(8971.1,1.01,21,2,0)="computer node over one workday during prime-time (PT) hours."
^DD(8971.1,1.01,"DT")="3030330"
^DD(8971.1,1.02,0)="DIO (PT)^F^^1;2^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.02,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.02,21,0)="^^2^2^3030330^"
^DD(8971.1,1.02,21,1,0)="The amount of DIOs that this option, protocol or RPC generated on this"
^DD(8971.1,1.02,21,2,0)="computer node over one workday during prime-time (PT) hours."
^DD(8971.1,1.02,"DT")="3030330"
^DD(8971.1,1.03,0)="BIO (PT)^F^^1;3^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.03,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.03,21,0)="^^2^2^3030328^"
^DD(8971.1,1.03,21,1,0)="The amount of BIOs that this option, protocol or RPC generated over one"
^DD(8971.1,1.03,21,2,0)="workday during prime-time (PT) hours."
^DD(8971.1,1.03,"DT")="3030328"
^DD(8971.1,1.04,0)="PAGE FAULT (PT)^F^^1;4^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.04,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.04,21,0)="^^2^2^3030328^"
^DD(8971.1,1.04,21,1,0)="The amount of page faults that this option, protocol or RPC generated over"
^DD(8971.1,1.04,21,2,0)="one workday during prime-time (PT) hours."
^DD(8971.1,1.04,"DT")="3030328"
^DD(8971.1,1.05,0)="M COMMAND (PT)^F^^1;5^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.05,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.05,21,0)="^^2^2^3030328^"
^DD(8971.1,1.05,21,1,0)="The amount of M commands that this option, protocol or RPC generated over"
^DD(8971.1,1.05,21,2,0)="one workday during prime-time (PT) hours."
^DD(8971.1,1.05,"DT")="3030328"
^DD(8971.1,1.06,0)="GLO (PT)^F^^1;6^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.06,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.06,21,0)="^^2^2^3030328^"
^DD(8971.1,1.06,21,1,0)="The amount of GLOs that this option, protocol or RPC generated over one"
^DD(8971.1,1.06,21,2,0)="workday during prime-time (PT) hours."
^DD(8971.1,1.06,"DT")="3030328"
^DD(8971.1,1.07,0)="ELAPSED TIME (PT)^F^^1;7^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.07,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.07,21,0)="^^2^2^3030328^"
^DD(8971.1,1.07,21,1,0)="The amount of elapsed time that this option, protocol or RPC generated"
^DD(8971.1,1.07,21,2,0)="over one workday during prime-time (PT) hours."
^DD(8971.1,1.07,"DT")="3030328"
^DD(8971.1,1.08,0)="OCCURRENCES (PT)^F^^1;8^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,1.08,3)="Answer must be 1-25 characters in length."
^DD(8971.1,1.08,21,0)="^^2^2^3030329^"
^DD(8971.1,1.08,21,1,0)="The number of occurrences generated by this option, protocol or RPC over"
^DD(8971.1,1.08,21,2,0)="one workday during prime-time (PT) hours."
^DD(8971.1,1.08,"DT")="3030329"
^DD(8971.1,1.101,0)="HOUR 0 COUNT (WD)^F^^1.1;1^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.101,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.101,21,0)="^^2^2^3030329^"
^DD(8971.1,1.101,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.101,21,2,0)="(WD) hour 0."
^DD(8971.1,1.101,"DT")="3030329"
^DD(8971.1,1.102,0)="HOUR 1 COUNT (WD)^F^^1.1;2^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.102,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.102,21,0)="^^2^2^3030329^"
^DD(8971.1,1.102,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.102,21,2,0)="(WD) hour 1."
^DD(8971.1,1.102,"DT")="3030329"
^DD(8971.1,1.103,0)="HOUR 2 COUNT (WD)^F^^1.1;3^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.103,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.103,21,0)="^^2^2^3030329^"
^DD(8971.1,1.103,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.103,21,2,0)="(WD) hour 2."
^DD(8971.1,1.103,"DT")="3030329"
^DD(8971.1,1.104,0)="HOUR 3 COUNT (WD)^F^^1.1;4^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.104,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.104,21,0)="^^2^2^3030329^"
^DD(8971.1,1.104,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.104,21,2,0)="(WD) hour 3."
^DD(8971.1,1.104,"DT")="3030329"
^DD(8971.1,1.105,0)="HOUR 4 COUNT (WD)^F^^1.1;5^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.105,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.105,21,0)="^^2^2^3030329^"
^DD(8971.1,1.105,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.105,21,2,0)="(WD) hour 4."
^DD(8971.1,1.105,"DT")="3030329"
^DD(8971.1,1.106,0)="HOUR 5 COUNT (WD)^F^^1.1;6^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.106,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.106,21,0)="^^2^2^3030329^"
^DD(8971.1,1.106,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.106,21,2,0)="(WD) hour 5."
^DD(8971.1,1.106,"DT")="3030329"
^DD(8971.1,1.107,0)="HOUR 6 COUNT (WD)^F^^1.1;7^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.107,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.107,21,0)="^^2^2^3030329^"
^DD(8971.1,1.107,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.107,21,2,0)="(WD) hour 6."
^DD(8971.1,1.107,"DT")="3030329"
^DD(8971.1,1.108,0)="HOUR 7 COUNT (WD)^F^^1.1;8^K:$L(X)>12!($L(X)<1) X"
^DD(8971.1,1.108,3)="Answer must be 1-12 characters in length"
^DD(8971.1,1.108,21,0)="^^2^2^3030329^"
^DD(8971.1,1.108,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.108,21,2,0)="(WD) hour 7."
^DD(8971.1,1.108,"DT")="3030329"
^DD(8971.1,1.109,0)="HOUR 8 COUNT (WD)^F^^1.1;9^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.109,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.109,21,0)="^^2^2^3030329^"
^DD(8971.1,1.109,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.109,21,2,0)="(WD) hour 8."
^DD(8971.1,1.109,"DT")="3030329"
^DD(8971.1,1.11,0)="HOUR 9 COUNT (WD)^F^^1.1;10^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.11,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.11,21,0)="^^2^2^3030329^"
^DD(8971.1,1.11,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.11,21,2,0)="(WD) hour 9."
^DD(8971.1,1.11,"DT")="3030329"
^DD(8971.1,1.111,0)="HOUR 10 COUNT (WD)^F^^1.1;11^K:$L(X)>12!($L(X)<1) X"
^DD(8971.1,1.111,3)="Answer must be 1-12 characters in length"
^DD(8971.1,1.111,21,0)="^^2^2^3030329^"
^DD(8971.1,1.111,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.111,21,2,0)="(WD) hour 10."
^DD(8971.1,1.111,"DT")="3030329"
^DD(8971.1,1.112,0)="HOUR 11 COUNT (WD)^F^^1.1;12^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.112,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.112,21,0)="^^2^2^3030329^"
^DD(8971.1,1.112,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.112,21,2,0)="(WD) hour 11."
^DD(8971.1,1.112,"DT")="3030329"
^DD(8971.1,1.113,0)="HOUR 12 COUNT (WD)^F^^1.1;13^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.113,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.113,21,0)="^^2^2^3030329^"
^DD(8971.1,1.113,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.113,21,2,0)="(WD) hour 12."
^DD(8971.1,1.113,"DT")="3030329"
^DD(8971.1,1.114,0)="HOUR 13 COUNT (WD)^F^^1.1;14^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.114,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.114,21,0)="^^2^2^3030329^"
^DD(8971.1,1.114,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.114,21,2,0)="(WD) hour 13."
^DD(8971.1,1.114,"DT")="3030329"
^DD(8971.1,1.115,0)="HOUR 14 COUNT (WD)^F^^1.1;15^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.115,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.115,21,0)="^^2^2^3030329^"
^DD(8971.1,1.115,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.115,21,2,0)="(WD) hour 14."
^DD(8971.1,1.115,"DT")="3030329"
^DD(8971.1,1.116,0)="HOUR 15 COUNT (WD)^F^^1.1;16^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.116,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.116,21,0)="^^2^2^3030329^"
^DD(8971.1,1.116,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.116,21,2,0)="(WD) hour 15."
^DD(8971.1,1.116,"DT")="3030329"
^DD(8971.1,1.117,0)="HOUR 16 COUNT (WD)^F^^1.1;17^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.117,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.117,21,0)="^^2^2^3030329^"
^DD(8971.1,1.117,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.117,21,2,0)="(WD) hour 16."
^DD(8971.1,1.117,"DT")="3030329"
^DD(8971.1,1.118,0)="HOUR 17 COUNT (WD)^F^^1.1;18^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.118,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.118,21,0)="^^2^2^3030329^"
^DD(8971.1,1.118,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.118,21,2,0)="(WD) hour 17."
^DD(8971.1,1.118,"DT")="3030329"
^DD(8971.1,1.119,0)="HOUR 18 COUNT (WD)^F^^1.1;19^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.119,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.119,21,0)="^^2^2^3030329^"
^DD(8971.1,1.119,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.119,21,2,0)="(WD) hour 18."
^DD(8971.1,1.119,"DT")="3030329"
^DD(8971.1,1.12,0)="HOUR 19 COUNT (WD)^F^^1.1;20^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.12,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.12,21,0)="^^2^2^3030329^"
^DD(8971.1,1.12,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.12,21,2,0)="(WD) hour 19."
^DD(8971.1,1.12,"DT")="3030329"
^DD(8971.1,1.121,0)="HOUR 20 COUNT (WD)^F^^1.1;21^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.121,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.121,21,0)="^^2^2^3030329^"
^DD(8971.1,1.121,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.121,21,2,0)="(WD) hour 20."
^DD(8971.1,1.121,"DT")="3030329"
^DD(8971.1,1.122,0)="HOUR 21 COUNT (WD)^F^^1.1;22^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.122,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.122,21,0)="^^2^2^3030329^"
^DD(8971.1,1.122,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.122,21,2,0)="(WD) hour 21."
^DD(8971.1,1.122,"DT")="3030329"
^DD(8971.1,1.123,0)="HOUR 22 COUNT (WD)^F^^1.1;23^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.123,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.123,21,0)="^^2^2^3030329^"
^DD(8971.1,1.123,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.123,21,2,0)="(WD) hour 22."
^DD(8971.1,1.123,"DT")="3030329"
^DD(8971.1,1.124,0)="HOUR 23 COUNT (WD)^F^^1.1;24^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.124,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.124,21,0)="^^2^2^3030329^"
^DD(8971.1,1.124,21,1,0)="The number of occurrences for this option, protocol or RPC during workday"
^DD(8971.1,1.124,21,2,0)="(WD) hour 23."
^DD(8971.1,1.124,"DT")="3030329"
^DD(8971.1,1.201,0)="HOUR 0 USERS (WD)^F^^1.2;1^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.201,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.201,21,0)="^^2^2^3030328^"
^DD(8971.1,1.201,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.201,21,2,0)="(WD) hour 0."
^DD(8971.1,1.201,"DT")="3030328"
^DD(8971.1,1.202,0)="HOUR 1 USERS (WD)^F^^1.2;2^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.202,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.202,21,0)="^^2^2^3030328^"
^DD(8971.1,1.202,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.202,21,2,0)="(WD) hour 1."
^DD(8971.1,1.202,"DT")="3030328"
^DD(8971.1,1.203,0)="HOUR 2 USERS (WD)^F^^1.2;3^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.203,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.203,21,0)="^^2^2^3030328^"
^DD(8971.1,1.203,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.203,21,2,0)="(WD) hour 2."
^DD(8971.1,1.203,"DT")="3030328"
^DD(8971.1,1.204,0)="HOUR 3 USERS (WD)^F^^1.2;4^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.204,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.204,21,0)="^^2^2^3030328^"
^DD(8971.1,1.204,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.204,21,2,0)="(WD) hour 3."
^DD(8971.1,1.204,"DT")="3030328"
^DD(8971.1,1.205,0)="HOUR 4 USERS (WD)^F^^1.2;5^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.205,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.205,21,0)="^^2^2^3030328^"
^DD(8971.1,1.205,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.205,21,2,0)="(WD) hour 4."
^DD(8971.1,1.205,"DT")="3030328"
^DD(8971.1,1.206,0)="HOUR 5 USERS (WD)^F^^1.2;6^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.206,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.206,21,0)="^^2^2^3030328^"
^DD(8971.1,1.206,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.206,21,2,0)="(WD) hour 5."
^DD(8971.1,1.206,"DT")="3030328"
^DD(8971.1,1.207,0)="HOUR 6 USERS (WD)^F^^1.2;7^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.207,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.207,21,0)="^^2^2^3030328^"
^DD(8971.1,1.207,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.207,21,2,0)="(WD) hour 6."
^DD(8971.1,1.207,"DT")="3030328"
^DD(8971.1,1.208,0)="HOUR 7 USERS (WD)^F^^1.2;8^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.208,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.208,21,0)="^^2^2^3030328^"
^DD(8971.1,1.208,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.208,21,2,0)="(WD) hour 7."
^DD(8971.1,1.208,"DT")="3030328"
^DD(8971.1,1.209,0)="HOUR 8 USERS (WD)^F^^1.2;9^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.209,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.209,21,0)="^^2^2^3030328^"
^DD(8971.1,1.209,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.209,21,2,0)="(WD) hour 8."
^DD(8971.1,1.209,"DT")="3030328"
^DD(8971.1,1.21,0)="HOUR 9 USERS (WD)^F^^1.2;10^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.21,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.21,21,0)="^^2^2^3030328^"
^DD(8971.1,1.21,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.21,21,2,0)="(WD) hour 9."
^DD(8971.1,1.21,"DT")="3030328"
^DD(8971.1,1.211,0)="HOUR 10 USERS (WD)^F^^1.2;11^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.211,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.211,21,0)="^^2^2^3030328^"
^DD(8971.1,1.211,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.211,21,2,0)="(WD) hour 10."
^DD(8971.1,1.211,"DT")="3030328"
^DD(8971.1,1.212,0)="HOUR 11 USERS (WD)^F^^1.2;12^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.212,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.212,21,0)="^^2^2^3030328^"
^DD(8971.1,1.212,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.212,21,2,0)="(WD) hour 11."
^DD(8971.1,1.212,"DT")="3030328"
^DD(8971.1,1.213,0)="HOUR 12 USERS (WD)^F^^1.2;13^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.213,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.213,21,0)="^^2^2^3030328^"
^DD(8971.1,1.213,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.213,21,2,0)="(WD) hour 12."
^DD(8971.1,1.213,"DT")="3030328"
^DD(8971.1,1.214,0)="HOUR 13 USERS (WD)^F^^1.2;14^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.214,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.214,21,0)="^^2^2^3030328^"
^DD(8971.1,1.214,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.214,21,2,0)="(WD) hour 13."
^DD(8971.1,1.214,"DT")="3030328"
^DD(8971.1,1.215,0)="HOUR 14 USERS (WD)^F^^1.2;15^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.215,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.215,21,0)="^^2^2^3030328^"
^DD(8971.1,1.215,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.215,21,2,0)="(WD) hour 14."
^DD(8971.1,1.215,"DT")="3030328"
^DD(8971.1,1.216,0)="HOUR 15 USERS (WD)^F^^1.2;16^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.216,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.216,21,0)="^^2^2^3030328^"
^DD(8971.1,1.216,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.216,21,2,0)="(WD) hour 15."
^DD(8971.1,1.216,"DT")="3030328"
^DD(8971.1,1.217,0)="HOUR 16 USERS (WD)^F^^1.2;17^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.217,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.217,21,0)="^^2^2^3030328^"
^DD(8971.1,1.217,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.217,21,2,0)="(WD) hour 16."
^DD(8971.1,1.217,"DT")="3030328"
^DD(8971.1,1.218,0)="HOUR 17 USERS (WD)^F^^1.2;18^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.218,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.218,21,0)="^^2^2^3030328^"
^DD(8971.1,1.218,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.218,21,2,0)="(WD) hour 17."
^DD(8971.1,1.218,"DT")="3030328"
^DD(8971.1,1.219,0)="HOUR 18 USERS (WD)^F^^1.2;19^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.219,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.219,21,0)="^^2^2^3030328^"
^DD(8971.1,1.219,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.219,21,2,0)="(WD) hour 18."
^DD(8971.1,1.219,"DT")="3030328"
^DD(8971.1,1.22,0)="HOUR 19 USERS (WD)^F^^1.2;20^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.22,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.22,21,0)="^^2^2^3030328^"
^DD(8971.1,1.22,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.22,21,2,0)="(WD) hour 19."
^DD(8971.1,1.22,"DT")="3030328"
^DD(8971.1,1.221,0)="HOUR 20 USERS (WD)^F^^1.2;21^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.221,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.221,21,0)="^^2^2^3030328^"
^DD(8971.1,1.221,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.221,21,2,0)="(WD) hour 20."
^DD(8971.1,1.221,"DT")="3030328"
^DD(8971.1,1.222,0)="HOUR 21 USERS (WD)^F^^1.2;22^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.222,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.222,21,0)="^^2^2^3030328^"
^DD(8971.1,1.222,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.222,21,2,0)="(WD) hour 21."
^DD(8971.1,1.222,"DT")="3030328"
^DD(8971.1,1.223,0)="HOUR 22 USERS (WD)^F^^1.2;23^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.223,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.223,21,0)="^^2^2^3030328^"
^DD(8971.1,1.223,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.223,21,2,0)="(WD) hour 22."
^DD(8971.1,1.223,"DT")="3030328"
^DD(8971.1,1.224,0)="HOUR 23 USERS (WD)^F^^1.2;24^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,1.224,3)="Answer must be 1-8 characters in length"
^DD(8971.1,1.224,21,0)="^^2^2^3030328^"
^DD(8971.1,1.224,21,1,0)="The number of users that ran this option, protocol or RPC during workday"
^DD(8971.1,1.224,21,2,0)="(WD) hour 23."
^DD(8971.1,1.224,"DT")="3030328"
^DD(8971.1,2.01,0)="CPU TIME (NP)^F^^2;1^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.01,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.01,21,0)="^^2^2^3030328^"
^DD(8971.1,2.01,21,1,0)="The amount of cpu time that this option, protocol or RPC generated over"
^DD(8971.1,2.01,21,2,0)="one workday during non-primetime (NP) hours."
^DD(8971.1,2.01,"DT")="3030328"
^DD(8971.1,2.02,0)="DIO (NP)^F^^2;2^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.02,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.02,21,0)="^^2^2^3030328^"
^DD(8971.1,2.02,21,1,0)="The amount of DIOs that this option, protocol or RPC generated over one"
^DD(8971.1,2.02,21,2,0)="workday during non-primetime (NP) hours."
^DD(8971.1,2.02,"DT")="3030328"
^DD(8971.1,2.03,0)="BIO (NP)^F^^2;3^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.03,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.03,21,0)="^^2^2^3030328^"
^DD(8971.1,2.03,21,1,0)="The amount of BIOs that this option, protocol or RPC generated over one"
^DD(8971.1,2.03,21,2,0)="workday during non-primetime (NP) hours."
^DD(8971.1,2.03,"DT")="3030328"
^DD(8971.1,2.04,0)="PAGE FAULT (NP)^F^^2;4^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.04,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.04,21,0)="^^2^2^3030328^"
^DD(8971.1,2.04,21,1,0)="The amount of page faults that this option, protocol or RPC generated over"
^DD(8971.1,2.04,21,2,0)="one workday during non-primetime (NP) hours."
^DD(8971.1,2.04,"DT")="3030328"
^DD(8971.1,2.05,0)="M COMMAND (NP)^F^^2;5^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.05,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.05,21,0)="^^2^2^3030328^"
^DD(8971.1,2.05,21,1,0)="The amount of M commands that this option, protocol or RPC generated over"
^DD(8971.1,2.05,21,2,0)="one workday during non-primetime (NP) hours."
^DD(8971.1,2.05,"DT")="3030328"
^DD(8971.1,2.06,0)="GLO (NP)^F^^2;6^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.06,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.06,21,0)="^^2^2^3030328^"
^DD(8971.1,2.06,21,1,0)="The amount of GLOs that this option, protocol or RPC generated over one"
^DD(8971.1,2.06,21,2,0)="workday during non-primetime (NP) hours."
^DD(8971.1,2.06,"DT")="3030328"
^DD(8971.1,2.07,0)="ELAPSED TIME (NP)^F^^2;7^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.07,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.07,21,0)="^^2^2^3030328^"
^DD(8971.1,2.07,21,1,0)="The amount of elapsed time that this option, protocol or RPC generated"
^DD(8971.1,2.07,21,2,0)="over one workday during non-primetime (NP) hours."
^DD(8971.1,2.07,"DT")="3030328"
^DD(8971.1,2.08,0)="OCCURRENCES (NP)^F^^2;8^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,2.08,3)="Answer must be 1-25 characters in length."
^DD(8971.1,2.08,21,0)="^^2^2^3030329^"
^DD(8971.1,2.08,21,1,0)="The number of occurrences generated by this option, protocol or RPC over"
^DD(8971.1,2.08,21,2,0)="one workday during non-primetime (NP) hours."
^DD(8971.1,2.08,"DT")="3030329"
^DD(8971.1,2.101,0)="HOUR 0 COUNT (NW)^F^^2.1;1^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.101,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.101,21,0)="^^2^2^3030329^"
^DD(8971.1,2.101,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.101,21,2,0)="non-workday (NW) hour 0."
^DD(8971.1,2.101,"DT")="3030329"
^DD(8971.1,2.102,0)="HOUR 1 COUNT (NW)^F^^2.1;2^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.102,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.102,21,0)="^^2^2^3030329^"
^DD(8971.1,2.102,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.102,21,2,0)="non-workday (NW) hour 1."
^DD(8971.1,2.102,"DT")="3030329"
^DD(8971.1,2.103,0)="HOUR 2 COUNT (NW)^F^^2.1;3^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.103,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.103,21,0)="^^2^2^3030329^"
^DD(8971.1,2.103,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.103,21,2,0)="non-workday (NW) hour 2."
^DD(8971.1,2.103,"DT")="3030329"
^DD(8971.1,2.104,0)="HOUR 3 COUNT (NW)^F^^2.1;4^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.104,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.104,21,0)="^^2^2^3030329^"
^DD(8971.1,2.104,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.104,21,2,0)="non-workday (NW) hour 3."
^DD(8971.1,2.104,"DT")="3030329"
^DD(8971.1,2.105,0)="HOUR 4 COUNT (NW)^F^^2.1;5^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.105,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.105,21,0)="^^2^2^3030329^"
^DD(8971.1,2.105,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.105,21,2,0)="non-workday (NW) hour 4."
^DD(8971.1,2.105,"DT")="3030329"
^DD(8971.1,2.106,0)="HOUR 5 COUNT (NW)^F^^2.1;6^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.106,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.106,21,0)="^^2^2^3030329^"
^DD(8971.1,2.106,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.106,21,2,0)="non-workday (NW) hour 5."
^DD(8971.1,2.106,"DT")="3030329"
^DD(8971.1,2.107,0)="HOUR 6 COUNT (NW)^F^^2.1;7^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.107,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.107,21,0)="^^2^2^3030329^"
^DD(8971.1,2.107,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.107,21,2,0)="non-workday (NW) hour 6."
^DD(8971.1,2.107,"DT")="3030329"
^DD(8971.1,2.108,0)="HOUR 7 COUNT (NW)^F^^2.1;8^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.108,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.108,21,0)="^^2^2^3030329^"
^DD(8971.1,2.108,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.108,21,2,0)="non-workday (NW) hour 7."
^DD(8971.1,2.108,"DT")="3030329"
^DD(8971.1,2.109,0)="HOUR 8 COUNT (NW)^F^^2.1;9^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.109,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.109,21,0)="^^2^2^3030329^"
^DD(8971.1,2.109,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.109,21,2,0)="non-workday (NW) hour 8."
^DD(8971.1,2.109,"DT")="3030329"
^DD(8971.1,2.11,0)="HOUR 9 COUNT (NW)^F^^2.1;10^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.11,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.11,21,0)="^^2^2^3030329^"
^DD(8971.1,2.11,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.11,21,2,0)="non-workday (NW) hour 9."
^DD(8971.1,2.11,"DT")="3030329"
^DD(8971.1,2.111,0)="HOUR 10 COUNT (NW)^F^^2.1;11^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.111,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.111,21,0)="^^2^2^3030329^"
^DD(8971.1,2.111,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.111,21,2,0)="non-workday (NW) hour 10."
^DD(8971.1,2.111,"DT")="3030329"
^DD(8971.1,2.112,0)="HOUR 11 COUNT (NW)^F^^2.1;12^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.112,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.112,21,0)="^^2^2^3030329^"
^DD(8971.1,2.112,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.112,21,2,0)="non-workday (NW) hour 11."
^DD(8971.1,2.112,"DT")="3030329"
^DD(8971.1,2.113,0)="HOUR 12 COUNT (NW)^F^^2.1;13^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.113,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.113,21,0)="^^2^2^3030329^"
^DD(8971.1,2.113,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.113,21,2,0)="non-workday (NW) hour 12."
^DD(8971.1,2.113,"DT")="3030329"
^DD(8971.1,2.114,0)="HOUR 13 COUNT (NW)^F^^2.1;14^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.114,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.114,21,0)="^^2^2^3030329^"
^DD(8971.1,2.114,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.114,21,2,0)="non-workday (NW) hour 13."
^DD(8971.1,2.114,"DT")="3030329"
^DD(8971.1,2.115,0)="HOUR 14 COUNT (NW)^F^^2.1;15^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.115,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.115,21,0)="^^2^2^3030329^"
^DD(8971.1,2.115,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.115,21,2,0)="non-workday (NW) hour 14."
^DD(8971.1,2.115,"DT")="3030329"
^DD(8971.1,2.116,0)="HOUR 15 COUNT (NW)^F^^2.1;16^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.116,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.116,21,0)="^^2^2^3030329^"
^DD(8971.1,2.116,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.116,21,2,0)="non-workday (NW) hour 15."
^DD(8971.1,2.116,"DT")="3030329"
^DD(8971.1,2.117,0)="HOUR 16 COUNT (NW)^F^^2.1;17^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.117,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.117,21,0)="^^2^2^3030329^"
^DD(8971.1,2.117,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.117,21,2,0)="non-workday (NW) hour 16."
^DD(8971.1,2.117,"DT")="3030329"
^DD(8971.1,2.118,0)="HOUR 17 COUNT (NW)^F^^2.1;18^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.118,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.118,21,0)="^^2^2^3030329^"
^DD(8971.1,2.118,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.118,21,2,0)="non-workday (NW) hour 17."
^DD(8971.1,2.118,"DT")="3030329"
^DD(8971.1,2.119,0)="HOUR 18 COUNT (NW)^F^^2.1;19^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.119,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.119,21,0)="^^2^2^3030329^"
^DD(8971.1,2.119,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.119,21,2,0)="non-workday (NW) hour 18."
^DD(8971.1,2.119,"DT")="3030329"
^DD(8971.1,2.12,0)="HOUR 19 COUNT (NW)^F^^2.1;20^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.12,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.12,21,0)="^^2^2^3030329^"
^DD(8971.1,2.12,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.12,21,2,0)="non-workday (NW) hour 19."
^DD(8971.1,2.12,"DT")="3030329"
^DD(8971.1,2.121,0)="HOUR 20 COUNT (NW)^F^^2.1;21^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.121,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.121,21,0)="^^2^2^3030329^"
^DD(8971.1,2.121,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.121,21,2,0)="non-workday (NW) hour 20."
^DD(8971.1,2.121,"DT")="3030329"
^DD(8971.1,2.122,0)="HOUR 21 COUNT (NW)^F^^2.1;22^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.122,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.122,21,0)="^^2^2^3030329^"
^DD(8971.1,2.122,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.122,21,2,0)="non-workday (NW) hour 21."
^DD(8971.1,2.122,"DT")="3030329"
^DD(8971.1,2.123,0)="HOUR 22 COUNT (NW)^F^^2.1;23^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.123,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.123,21,0)="^^2^2^3030329^"
^DD(8971.1,2.123,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.123,21,2,0)="non-workday (NW) hour 22."
^DD(8971.1,2.123,"DT")="3030329"
^DD(8971.1,2.124,0)="HOUR 23 COUNT (NW)^F^^2.1;24^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.124,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.124,21,0)="^^2^2^3030329^"
^DD(8971.1,2.124,21,1,0)="The number of occurrences for this option, protocol or RPC during "
^DD(8971.1,2.124,21,2,0)="non-workday (NW) hour 23."
^DD(8971.1,2.124,"DT")="3030329"
^DD(8971.1,2.201,0)="HOUR 0 USERS (NW)^F^^2.2;1^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.201,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.201,21,0)="^^2^2^3030328^"
^DD(8971.1,2.201,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.201,21,2,0)="non-workday (NW) hour 0."
^DD(8971.1,2.201,"DT")="3030328"
^DD(8971.1,2.202,0)="HOUR 1 USERS (NW)^F^^2.2;2^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.202,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.202,21,0)="^^2^2^3030328^"
^DD(8971.1,2.202,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.202,21,2,0)="non-workday (NW) hour 1."
^DD(8971.1,2.202,"DT")="3030328"
^DD(8971.1,2.203,0)="HOUR 2 USERS (NW)^F^^2.2;3^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.203,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.203,21,0)="^^2^2^3030328^"
^DD(8971.1,2.203,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.203,21,2,0)="non-workday (NW) hour 2."
^DD(8971.1,2.203,"DT")="3030328"
^DD(8971.1,2.204,0)="HOUR 3 USERS (NW)^F^^2.2;4^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.204,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.204,21,0)="^^2^2^3030328^"
^DD(8971.1,2.204,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.204,21,2,0)="non-workday (NW) hour 3."
^DD(8971.1,2.204,"DT")="3030328"
^DD(8971.1,2.205,0)="HOUR 4 USERS (NW)^F^^2.2;5^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.205,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.205,21,0)="^^2^2^3030328^"
^DD(8971.1,2.205,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.205,21,2,0)="non-workday (NW) hour 4."
^DD(8971.1,2.205,"DT")="3030328"
^DD(8971.1,2.206,0)="HOUR 5 USERS (NW)^F^^2.2;6^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.206,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.206,21,0)="^^2^2^3030328^"
^DD(8971.1,2.206,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.206,21,2,0)="non-workday (NW) hour 5."
^DD(8971.1,2.206,"DT")="3030328"
^DD(8971.1,2.207,0)="HOUR 6 USERS (NW)^F^^2.2;7^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.207,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.207,21,0)="^^2^2^3030328^"
^DD(8971.1,2.207,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.207,21,2,0)="non-workday (NW) hour 6."
^DD(8971.1,2.207,"DT")="3030328"
^DD(8971.1,2.208,0)="HOUR 7 USERS (NW)^F^^2.2;8^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.208,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.208,21,0)="^^2^2^3030328^"
^DD(8971.1,2.208,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.208,21,2,0)="non-workday (NW) hour 7."
^DD(8971.1,2.208,"DT")="3030328"
^DD(8971.1,2.209,0)="HOUR 8 USERS (NW)^F^^2.2;9^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.209,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.209,21,0)="^^2^2^3030328^"
^DD(8971.1,2.209,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.209,21,2,0)="non-workday (NW) hour 8."
^DD(8971.1,2.209,"DT")="3030328"
^DD(8971.1,2.21,0)="HOUR 9 USERS (NW)^F^^2.2;10^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.21,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.21,21,0)="^^2^2^3030328^"
^DD(8971.1,2.21,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.21,21,2,0)="non-workday (NW) hour 9."
^DD(8971.1,2.21,"DT")="3030328"
^DD(8971.1,2.211,0)="HOUR 10 USERS (NW)^F^^2.2;11^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.211,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.211,21,0)="^^2^2^3030328^"
^DD(8971.1,2.211,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.211,21,2,0)="non-workday (NW) hour 10."
^DD(8971.1,2.211,"DT")="3030328"
^DD(8971.1,2.212,0)="HOUR 11 USERS (NW)^F^^2.2;12^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.212,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.212,21,0)="^^2^2^3030328^"
^DD(8971.1,2.212,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.212,21,2,0)="non-workday (NW) hour 11."
^DD(8971.1,2.212,"DT")="3030328"
^DD(8971.1,2.213,0)="HOUR 12 USERS (NW)^F^^2.2;13^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.213,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.213,21,0)="^^2^2^3030328^"
^DD(8971.1,2.213,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.213,21,2,0)="non-workday (NW) hour 12."
^DD(8971.1,2.213,"DT")="3030328"
^DD(8971.1,2.214,0)="HOUR 13 USERS (NW)^F^^2.2;14^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.214,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.214,21,0)="^^2^2^3030328^"
^DD(8971.1,2.214,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.214,21,2,0)="non-workday (NW) hour 13."
^DD(8971.1,2.214,"DT")="3030328"
^DD(8971.1,2.215,0)="HOUR 14 USERS (NW)^F^^2.2;15^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.215,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.215,21,0)="^^2^2^3030328^"
^DD(8971.1,2.215,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.215,21,2,0)="non-workday (NW) hour 14."
^DD(8971.1,2.215,"DT")="3030328"
^DD(8971.1,2.216,0)="HOUR 15 USERS (NW)^F^^2.2;16^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.216,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.216,21,0)="^^2^2^3030328^"
^DD(8971.1,2.216,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.216,21,2,0)="non-workday (NW) hour 15."
^DD(8971.1,2.216,"DT")="3030328"
^DD(8971.1,2.217,0)="HOUR 16 USERS (NW)^F^^2.2;17^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.217,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.217,21,0)="^^2^2^3030328^"
^DD(8971.1,2.217,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.217,21,2,0)="non-workday (NW) hour 16."
^DD(8971.1,2.217,"DT")="3030328"
^DD(8971.1,2.218,0)="HOUR 17 USERS (NW)^F^^2.2;18^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.218,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.218,21,0)="^^2^2^3030328^"
^DD(8971.1,2.218,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.218,21,2,0)="non-workday (NW) hour 17."
^DD(8971.1,2.218,"DT")="3030328"
^DD(8971.1,2.219,0)="HOUR 18 USERS (NW)^F^^2.2;19^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.219,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.219,21,0)="^^2^2^3030328^"
^DD(8971.1,2.219,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.219,21,2,0)="non-workday (NW) hour 18."
^DD(8971.1,2.219,"DT")="3030328"
^DD(8971.1,2.22,0)="HOUR 19 USERS (NW)^F^^2.2;20^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.22,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.22,21,0)="^^2^2^3030328^"
^DD(8971.1,2.22,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.22,21,2,0)="non-workday (NW) hour 19."
^DD(8971.1,2.22,"DT")="3030328"
^DD(8971.1,2.221,0)="HOUR 20 USERS (NW)^F^^2.2;21^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.221,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.221,21,0)="^^2^2^3030328^"
^DD(8971.1,2.221,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.221,21,2,0)="non-workday (NW) hour 20."
^DD(8971.1,2.221,"DT")="3030328"
^DD(8971.1,2.222,0)="HOUR 21 USERS (NW)^F^^2.2;22^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.222,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.222,21,0)="^^2^2^3030328^"
^DD(8971.1,2.222,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.222,21,2,0)="non-workday (NW) hour 21."
^DD(8971.1,2.222,"DT")="3030328"
^DD(8971.1,2.223,0)="HOUR 22 USERS (NW)^F^^2.2;23^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.223,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.223,21,0)="^^2^2^3030328^"
^DD(8971.1,2.223,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.223,21,2,0)="non-workday (NW) hour 22."
^DD(8971.1,2.223,"DT")="3030328"
^DD(8971.1,2.224,0)="HOUR 23 USERS (NW)^F^^2.2;24^K:$L(X)>8!($L(X)<1) X"
^DD(8971.1,2.224,3)="Answer must be 1-8 characters in length"
^DD(8971.1,2.224,21,0)="^^2^2^3030328^"
^DD(8971.1,2.224,21,1,0)="The number of users that ran this option, protocol or RPC during "
^DD(8971.1,2.224,21,2,0)="non-workday (NW) hour 23."
^DD(8971.1,2.224,"DT")="3030328"
^DD(8971.1,3.01,0)="CPU TIME (NW)^F^^3;1^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.01,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.01,21,0)="^^2^2^3030328^"
^DD(8971.1,3.01,21,1,0)="The amount of cpu time that this option, protocol or RPC generated over"
^DD(8971.1,3.01,21,2,0)="one entire non-workday (NW)."
^DD(8971.1,3.01,"DT")="3030328"
^DD(8971.1,3.02,0)="DIO (NW)^F^^3;2^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.02,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.02,21,0)="^^2^2^3030328^"
^DD(8971.1,3.02,21,1,0)="The amount of DIOs that this option, protocol or RPC generated over one"
^DD(8971.1,3.02,21,2,0)="entire non-workday (NW)."
^DD(8971.1,3.02,"DT")="3030328"
^DD(8971.1,3.03,0)="BIO (NW)^F^^3;3^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.03,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.03,21,0)="^^2^2^3030328^"
^DD(8971.1,3.03,21,1,0)="The amount of BIOs that this option, protocol or RPC generated over one"
^DD(8971.1,3.03,21,2,0)="entire non-workday (NW)."
^DD(8971.1,3.03,"DT")="3030328"
^DD(8971.1,3.04,0)="PAGE FAULT (NW)^F^^3;4^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.04,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.04,21,0)="^^2^2^3030328^"
^DD(8971.1,3.04,21,1,0)="The amount of page faults that this option, protocol or RPC generated over"
^DD(8971.1,3.04,21,2,0)="one entire non-workday (NW)."
^DD(8971.1,3.04,"DT")="3030328"
^DD(8971.1,3.05,0)="M COMMAND (NW)^F^^3;5^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.05,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.05,21,0)="^^2^2^3030328^"
^DD(8971.1,3.05,21,1,0)="The amount of M commands that this option, protocol or RPC generated over"
^DD(8971.1,3.05,21,2,0)="one entire non-workday (NW)."
^DD(8971.1,3.05,"DT")="3030328"
^DD(8971.1,3.06,0)="GLO (NW)^F^^3;6^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.06,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.06,21,0)="^^2^2^3030328^"
^DD(8971.1,3.06,21,1,0)="The amount of GLOs that this option, protocol or RPC generated over one"
^DD(8971.1,3.06,21,2,0)="entire non-workday (NW)."
^DD(8971.1,3.06,"DT")="3030328"
^DD(8971.1,3.07,0)="ELAPSED TIME (NW)^F^^3;7^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.07,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.07,21,0)="^^2^2^3030328^"
^DD(8971.1,3.07,21,1,0)="The amount of elpased time that this option, protocol or RPC generated"
^DD(8971.1,3.07,21,2,0)="over one entire non-workday (NW)."
^DD(8971.1,3.07,"DT")="3030328"
^DD(8971.1,3.08,0)="OCCURRENCES (NW)^F^^3;8^K:$L(X)>25!($L(X)<1) X"
^DD(8971.1,3.08,3)="Answer must be 1-25 characters in length"
^DD(8971.1,3.08,21,0)="^^2^2^3030329^"
^DD(8971.1,3.08,21,1,0)="The number of occurrences generated by this option, protocol or RPC over"
^DD(8971.1,3.08,21,2,0)="one entire non-workday (NW)."
^DD(8971.1,3.08,"DT")="3030329"
^DD(8971.1,"B","BIO (NP)",2.03)=""
^DD(8971.1,"B","BIO (NW)",3.03)=""
^DD(8971.1,"B","BIO (PT)",1.03)=""
^DD(8971.1,"B","CPU TIME (NP)",2.01)=""
^DD(8971.1,"B","CPU TIME (NW)",3.01)=""
^DD(8971.1,"B","CPU TIME (PT)",1.01)=""
^DD(8971.1,"B","DATE",.01)=""
^DD(8971.1,"B","DIO (NP)",2.02)=""
^DD(8971.1,"B","DIO (NW)",3.02)=""
^DD(8971.1,"B","DIO (PT)",1.02)=""
^DD(8971.1,"B","ELAPSED TIME (NP)",2.07)=""
^DD(8971.1,"B","ELAPSED TIME (NW)",3.07)=""
^DD(8971.1,"B","ELAPSED TIME (PT)",1.07)=""
^DD(8971.1,"B","GLO (NP)",2.06)=""
^DD(8971.1,"B","GLO (NW)",3.06)=""
^DD(8971.1,"B","GLO (PT)",1.06)=""
^DD(8971.1,"B","HL7",.09)=""
^DD(8971.1,"B","HOUR 0 COUNT (NW)",2.101)=""
^DD(8971.1,"B","HOUR 0 COUNT (WD)",1.101)=""
^DD(8971.1,"B","HOUR 0 USERS (NW)",2.201)=""
^DD(8971.1,"B","HOUR 0 USERS (WD)",1.201)=""
^DD(8971.1,"B","HOUR 1 COUNT (NW)",2.102)=""
^DD(8971.1,"B","HOUR 1 COUNT (WD)",1.102)=""
^DD(8971.1,"B","HOUR 1 USERS (NW)",2.202)=""
^DD(8971.1,"B","HOUR 1 USERS (WD)",1.202)=""
^DD(8971.1,"B","HOUR 10 COUNT (NW)",2.111)=""
^DD(8971.1,"B","HOUR 10 COUNT (WD)",1.111)=""
^DD(8971.1,"B","HOUR 10 USERS (NW)",2.211)=""
^DD(8971.1,"B","HOUR 10 USERS (WD)",1.211)=""
^DD(8971.1,"B","HOUR 11 COUNT (NW)",2.112)=""
^DD(8971.1,"B","HOUR 11 COUNT (WD)",1.112)=""
^DD(8971.1,"B","HOUR 11 USERS (NW)",2.212)=""
^DD(8971.1,"B","HOUR 11 USERS (WD)",1.212)=""
^DD(8971.1,"B","HOUR 12 COUNT (NW)",2.113)=""
^DD(8971.1,"B","HOUR 12 COUNT (WD)",1.113)=""
^DD(8971.1,"B","HOUR 12 USERS (NW)",2.213)=""
^DD(8971.1,"B","HOUR 12 USERS (WD)",1.213)=""
^DD(8971.1,"B","HOUR 13 COUNT (NW)",2.114)=""
^DD(8971.1,"B","HOUR 13 COUNT (WD)",1.114)=""
^DD(8971.1,"B","HOUR 13 USERS (NW)",2.214)=""
^DD(8971.1,"B","HOUR 13 USERS (WD)",1.214)=""
^DD(8971.1,"B","HOUR 14 COUNT (NW)",2.115)=""
^DD(8971.1,"B","HOUR 14 COUNT (WD)",1.115)=""
^DD(8971.1,"B","HOUR 14 USERS (NW)",2.215)=""
^DD(8971.1,"B","HOUR 14 USERS (WD)",1.215)=""
^DD(8971.1,"B","HOUR 15 COUNT (NW)",2.116)=""
^DD(8971.1,"B","HOUR 15 COUNT (WD)",1.116)=""
^DD(8971.1,"B","HOUR 15 USERS (NW)",2.216)=""
^DD(8971.1,"B","HOUR 15 USERS (WD)",1.216)=""
^DD(8971.1,"B","HOUR 16 COUNT (NW)",2.117)=""
^DD(8971.1,"B","HOUR 16 COUNT (WD)",1.117)=""
^DD(8971.1,"B","HOUR 16 USERS (NW)",2.217)=""
^DD(8971.1,"B","HOUR 16 USERS (WD)",1.217)=""
^DD(8971.1,"B","HOUR 17 COUNT (NW)",2.118)=""
^DD(8971.1,"B","HOUR 17 COUNT (WD)",1.118)=""
^DD(8971.1,"B","HOUR 17 USERS (NW)",2.218)=""
^DD(8971.1,"B","HOUR 17 USERS (WD)",1.218)=""
^DD(8971.1,"B","HOUR 18 COUNT (NW)",2.119)=""
^DD(8971.1,"B","HOUR 18 COUNT (WD)",1.119)=""
^DD(8971.1,"B","HOUR 18 USERS (NW)",2.219)=""
^DD(8971.1,"B","HOUR 18 USERS (WD)",1.219)=""
^DD(8971.1,"B","HOUR 19 COUNT (NW)",2.12)=""
^DD(8971.1,"B","HOUR 19 COUNT (WD)",1.12)=""
^DD(8971.1,"B","HOUR 19 USERS (NW)",2.22)=""
^DD(8971.1,"B","HOUR 19 USERS (WD)",1.22)=""
^DD(8971.1,"B","HOUR 2 COUNT (NW)",2.103)=""
^DD(8971.1,"B","HOUR 2 COUNT (WD)",1.103)=""
^DD(8971.1,"B","HOUR 2 USERS (NW)",2.203)=""
^DD(8971.1,"B","HOUR 2 USERS (WD)",1.203)=""
^DD(8971.1,"B","HOUR 20 COUNT (NW)",2.121)=""
^DD(8971.1,"B","HOUR 20 COUNT (WD)",1.121)=""
^DD(8971.1,"B","HOUR 20 USERS (NW)",2.221)=""
^DD(8971.1,"B","HOUR 20 USERS (WD)",1.221)=""
^DD(8971.1,"B","HOUR 21 COUNT (NW)",2.122)=""
^DD(8971.1,"B","HOUR 21 COUNT (WD)",1.122)=""
^DD(8971.1,"B","HOUR 21 USERS (NW)",2.222)=""
^DD(8971.1,"B","HOUR 21 USERS (WD)",1.222)=""
^DD(8971.1,"B","HOUR 22 COUNT (NW)",2.123)=""
^DD(8971.1,"B","HOUR 22 COUNT (WD)",1.123)=""
^DD(8971.1,"B","HOUR 22 USERS (NW)",2.223)=""
^DD(8971.1,"B","HOUR 22 USERS (WD)",1.223)=""
^DD(8971.1,"B","HOUR 23 COUNT (NW)",2.124)=""
^DD(8971.1,"B","HOUR 23 COUNT (WD)",1.124)=""
^DD(8971.1,"B","HOUR 23 USERS (NW)",2.224)=""
^DD(8971.1,"B","HOUR 23 USERS (WD)",1.224)=""
^DD(8971.1,"B","HOUR 3 COUNT (NW)",2.104)=""
^DD(8971.1,"B","HOUR 3 COUNT (WD)",1.104)=""
^DD(8971.1,"B","HOUR 3 USERS (NW)",2.204)=""
^DD(8971.1,"B","HOUR 3 USERS (WD)",1.204)=""
^DD(8971.1,"B","HOUR 4 COUNT (NW)",2.105)=""
^DD(8971.1,"B","HOUR 4 COUNT (WD)",1.105)=""
^DD(8971.1,"B","HOUR 4 USERS (NW)",2.205)=""
^DD(8971.1,"B","HOUR 4 USERS (WD)",1.205)=""
^DD(8971.1,"B","HOUR 5 COUNT (NW)",2.106)=""
^DD(8971.1,"B","HOUR 5 COUNT (WD)",1.106)=""
^DD(8971.1,"B","HOUR 5 USERS (NW)",2.206)=""
^DD(8971.1,"B","HOUR 5 USERS (WD)",1.206)=""
^DD(8971.1,"B","HOUR 6 COUNT (NW)",2.107)=""
^DD(8971.1,"B","HOUR 6 COUNT (WD)",1.107)=""
^DD(8971.1,"B","HOUR 6 USERS (NW)",2.207)=""
^DD(8971.1,"B","HOUR 6 USERS (WD)",1.207)=""
^DD(8971.1,"B","HOUR 7 COUNT (NW)",2.108)=""
^DD(8971.1,"B","HOUR 7 COUNT (WD)",1.108)=""
^DD(8971.1,"B","HOUR 7 USERS (NW)",2.208)=""
^DD(8971.1,"B","HOUR 7 USERS (WD)",1.208)=""
^DD(8971.1,"B","HOUR 8 COUNT (NW)",2.109)=""
^DD(8971.1,"B","HOUR 8 COUNT (WD)",1.109)=""
^DD(8971.1,"B","HOUR 8 USERS (NW)",2.209)=""
^DD(8971.1,"B","HOUR 8 USERS (WD)",1.209)=""
^DD(8971.1,"B","HOUR 9 COUNT (NW)",2.11)=""
^DD(8971.1,"B","HOUR 9 COUNT (WD)",1.11)=""
^DD(8971.1,"B","HOUR 9 USERS (NW)",2.21)=""
^DD(8971.1,"B","HOUR 9 USERS (WD)",1.21)=""
^DD(8971.1,"B","M COMMAND (NP)",2.05)=""
^DD(8971.1,"B","M COMMAND (NW)",3.05)=""
^DD(8971.1,"B","M COMMAND (PT)",1.05)=""
^DD(8971.1,"B","NODE",.03)=""
^DD(8971.1,"B","NODE TYPE",.06)=""
^DD(8971.1,"B","OCCURRENCES (NP)",2.08)=""
^DD(8971.1,"B","OCCURRENCES (NW)",3.08)=""
^DD(8971.1,"B","OCCURRENCES (PT)",1.08)=""
^DD(8971.1,"B","OPTION",.04)=""
^DD(8971.1,"B","PAGE FAULT (NP)",2.04)=""
^DD(8971.1,"B","PAGE FAULT (NW)",3.04)=""
^DD(8971.1,"B","PAGE FAULT (PT)",1.04)=""
^DD(8971.1,"B","PROTOCOL",.05)=""
^DD(8971.1,"B","RPC",.07)=""
^DD(8971.1,"B","RUM DESIGNATION",.08)=""
^DD(8971.1,"B","SENT TO CM NATIONAL DATABASE",.02)=""
^DD(8971.1,"GL",0,1,.01)=""
^DD(8971.1,"GL",0,2,.02)=""
^DD(8971.1,"GL",0,3,.03)=""
^DD(8971.1,"GL",0,4,.04)=""
^DD(8971.1,"GL",0,5,.05)=""
^DD(8971.1,"GL",0,6,.06)=""
^DD(8971.1,"GL",0,7,.07)=""
^DD(8971.1,"GL",0,8,.08)=""
^DD(8971.1,"GL",0,9,.09)=""
^DD(8971.1,"GL",1,1,1.01)=""
^DD(8971.1,"GL",1,2,1.02)=""
^DD(8971.1,"GL",1,3,1.03)=""
^DD(8971.1,"GL",1,4,1.04)=""
^DD(8971.1,"GL",1,5,1.05)=""
^DD(8971.1,"GL",1,6,1.06)=""
^DD(8971.1,"GL",1,7,1.07)=""
^DD(8971.1,"GL",1,8,1.08)=""
^DD(8971.1,"GL",1.1,1,1.101)=""
^DD(8971.1,"GL",1.1,2,1.102)=""
^DD(8971.1,"GL",1.1,3,1.103)=""
^DD(8971.1,"GL",1.1,4,1.104)=""
^DD(8971.1,"GL",1.1,5,1.105)=""
^DD(8971.1,"GL",1.1,6,1.106)=""
^DD(8971.1,"GL",1.1,7,1.107)=""
^DD(8971.1,"GL",1.1,8,1.108)=""
^DD(8971.1,"GL",1.1,9,1.109)=""
^DD(8971.1,"GL",1.1,10,1.11)=""
^DD(8971.1,"GL",1.1,11,1.111)=""
^DD(8971.1,"GL",1.1,12,1.112)=""
^DD(8971.1,"GL",1.1,13,1.113)=""
^DD(8971.1,"GL",1.1,14,1.114)=""
^DD(8971.1,"GL",1.1,15,1.115)=""
^DD(8971.1,"GL",1.1,16,1.116)=""
^DD(8971.1,"GL",1.1,17,1.117)=""
^DD(8971.1,"GL",1.1,18,1.118)=""
^DD(8971.1,"GL",1.1,19,1.119)=""
^DD(8971.1,"GL",1.1,20,1.12)=""
^DD(8971.1,"GL",1.1,21,1.121)=""
^DD(8971.1,"GL",1.1,22,1.122)=""
^DD(8971.1,"GL",1.1,23,1.123)=""
^DD(8971.1,"GL",1.1,24,1.124)=""
^DD(8971.1,"GL",1.2,1,1.201)=""
^DD(8971.1,"GL",1.2,2,1.202)=""
^DD(8971.1,"GL",1.2,3,1.203)=""
^DD(8971.1,"GL",1.2,4,1.204)=""
^DD(8971.1,"GL",1.2,5,1.205)=""
^DD(8971.1,"GL",1.2,6,1.206)=""
^DD(8971.1,"GL",1.2,7,1.207)=""
^DD(8971.1,"GL",1.2,8,1.208)=""
^DD(8971.1,"GL",1.2,9,1.209)=""
^DD(8971.1,"GL",1.2,10,1.21)=""
^DD(8971.1,"GL",1.2,11,1.211)=""
^DD(8971.1,"GL",1.2,12,1.212)=""
^DD(8971.1,"GL",1.2,13,1.213)=""
^DD(8971.1,"GL",1.2,14,1.214)=""
^DD(8971.1,"GL",1.2,15,1.215)=""
^DD(8971.1,"GL",1.2,16,1.216)=""
^DD(8971.1,"GL",1.2,17,1.217)=""
^DD(8971.1,"GL",1.2,18,1.218)=""
^DD(8971.1,"GL",1.2,19,1.219)=""
^DD(8971.1,"GL",1.2,20,1.22)=""
^DD(8971.1,"GL",1.2,21,1.221)=""
^DD(8971.1,"GL",1.2,22,1.222)=""
^DD(8971.1,"GL",1.2,23,1.223)=""
^DD(8971.1,"GL",1.2,24,1.224)=""
^DD(8971.1,"GL",2,1,2.01)=""
^DD(8971.1,"GL",2,2,2.02)=""
^DD(8971.1,"GL",2,3,2.03)=""
^DD(8971.1,"GL",2,4,2.04)=""
^DD(8971.1,"GL",2,5,2.05)=""
^DD(8971.1,"GL",2,6,2.06)=""
^DD(8971.1,"GL",2,7,2.07)=""
^DD(8971.1,"GL",2,8,2.08)=""
^DD(8971.1,"GL",2.1,1,2.101)=""
^DD(8971.1,"GL",2.1,2,2.102)=""
^DD(8971.1,"GL",2.1,3,2.103)=""
^DD(8971.1,"GL",2.1,4,2.104)=""
^DD(8971.1,"GL",2.1,5,2.105)=""
^DD(8971.1,"GL",2.1,6,2.106)=""
^DD(8971.1,"GL",2.1,7,2.107)=""
^DD(8971.1,"GL",2.1,8,2.108)=""
^DD(8971.1,"GL",2.1,9,2.109)=""
^DD(8971.1,"GL",2.1,10,2.11)=""
^DD(8971.1,"GL",2.1,11,2.111)=""
^DD(8971.1,"GL",2.1,12,2.112)=""
^DD(8971.1,"GL",2.1,13,2.113)=""
^DD(8971.1,"GL",2.1,14,2.114)=""
^DD(8971.1,"GL",2.1,15,2.115)=""
^DD(8971.1,"GL",2.1,16,2.116)=""
^DD(8971.1,"GL",2.1,17,2.117)=""
^DD(8971.1,"GL",2.1,18,2.118)=""
^DD(8971.1,"GL",2.1,19,2.119)=""
^DD(8971.1,"GL",2.1,20,2.12)=""
^DD(8971.1,"GL",2.1,21,2.121)=""
^DD(8971.1,"GL",2.1,22,2.122)=""
^DD(8971.1,"GL",2.1,23,2.123)=""
^DD(8971.1,"GL",2.1,24,2.124)=""
^DD(8971.1,"GL",2.2,1,2.201)=""
^DD(8971.1,"GL",2.2,2,2.202)=""
^DD(8971.1,"GL",2.2,3,2.203)=""
^DD(8971.1,"GL",2.2,4,2.204)=""
^DD(8971.1,"GL",2.2,5,2.205)=""
^DD(8971.1,"GL",2.2,6,2.206)=""
^DD(8971.1,"GL",2.2,7,2.207)=""
^DD(8971.1,"GL",2.2,8,2.208)=""
^DD(8971.1,"GL",2.2,9,2.209)=""
^DD(8971.1,"GL",2.2,10,2.21)=""
^DD(8971.1,"GL",2.2,11,2.211)=""
^DD(8971.1,"GL",2.2,12,2.212)=""
^DD(8971.1,"GL",2.2,13,2.213)=""
^DD(8971.1,"GL",2.2,14,2.214)=""
^DD(8971.1,"GL",2.2,15,2.215)=""
^DD(8971.1,"GL",2.2,16,2.216)=""
^DD(8971.1,"GL",2.2,17,2.217)=""
^DD(8971.1,"GL",2.2,18,2.218)=""
^DD(8971.1,"GL",2.2,19,2.219)=""
^DD(8971.1,"GL",2.2,20,2.22)=""
^DD(8971.1,"GL",2.2,21,2.221)=""
^DD(8971.1,"GL",2.2,22,2.222)=""
^DD(8971.1,"GL",2.2,23,2.223)=""
^DD(8971.1,"GL",2.2,24,2.224)=""
^DD(8971.1,"GL",3,1,3.01)=""
^DD(8971.1,"GL",3,2,3.02)=""
^DD(8971.1,"GL",3,3,3.03)=""
^DD(8971.1,"GL",3,4,3.04)=""
^DD(8971.1,"GL",3,5,3.05)=""
^DD(8971.1,"GL",3,6,3.06)=""
^DD(8971.1,"GL",3,7,3.07)=""
^DD(8971.1,"GL",3,8,3.08)=""
^DD(8971.1,"IX",.01)=""
^DD(8971.1,"IX",.03)=""
^DD(8971.1,"RQ",.01)=""
^DD(8972.1,0)="FIELD^^99.09^22"
^DD(8972.1,0,"DDA")="N"
^DD(8972.1,0,"DT")="3000405"
^DD(8972.1,0,"IX","B",8972.1,.01)=""
^DD(8972.1,0,"NM","CP CODE EVALUATOR")=""
^DD(8972.1,0,"VR")="2.0"
^DD(8972.1,0,"VRPK")="CAPACITY MANAGEMENT TOOLS"
^DD(8972.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8972.1,.01,1,0)="^.1"
^DD(8972.1,.01,1,1,0)="8972.1^B"
^DD(8972.1,.01,1,1,1)="S ^KMPD(8972.1,""B"",$E(X,1,30),DA)="""""
^DD(8972.1,.01,1,1,2)="K ^KMPD(8972.1,""B"",$E(X,1,30),DA)"
^DD(8972.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8972.1,.02,0)="DATE/TIME ENTERED^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(8972.1,.02,"DT")="2990820"
^DD(8972.1,.03,0)="ENTERED BY^P200'^VA(200,^0;3^Q"
^DD(8972.1,.03,"DT")="2990820"
^DD(8972.1,.04,0)="CPU TIME^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(8972.1,.04,3)="Answer must be 1-15 characters in length."
^DD(8972.1,.04,"DT")="2990820"
^DD(8972.1,.05,0)="DIO REFERENCES^F^^0;5^K:$L(X)>15!($L(X)<1) X"
^DD(8972.1,.05,3)="Answer must be 1-15 characters in length."
^DD(8972.1,.05,"DT")="2990820"
^DD(8972.1,.06,0)="BIO REFERENCES^F^^0;6^K:$L(X)>15!($L(X)<1) X"
^DD(8972.1,.06,3)="Answer must be 1-15 characters in length."
^DD(8972.1,.06,"DT")="2990820"
^DD(8972.1,.07,0)="PAGE FAULTS^F^^0;7^K:$L(X)>15!($L(X)<1) X"
^DD(8972.1,.07,3)="Answer must be 1-15 characters in length."
^DD(8972.1,.07,"DT")="2990820"
^DD(8972.1,.08,0)="M COMMANDS^F^^0;8^K:$L(X)>15!($L(X)<1) X"
^DD(8972.1,.08,3)="Answer must be 1-15 characters in length."
^DD(8972.1,.08,"DT")="2990820"
^DD(8972.1,.09,0)="GLOBAL REFERENCES^F^^0;9^K:$L(X)>15!($L(X)<1) X"
^DD(8972.1,.09,3)="Answer must be 1-15 characters in length."
^DD(8972.1,.09,"DT")="2990820"
^DD(8972.1,.1,0)="COUNT^F^^0;10^K:$L(X)>15!($L(X)<1) X"
^DD(8972.1,.1,3)="Answer must be 1-15 characters in length"
^DD(8972.1,.1,"DT")="3000315"
^DD(8972.1,.11,0)="ACTIVE^S^0:NO;1:YES;^0;11^Q"
^DD(8972.1,.11,"DT")="3000404"
^DD(8972.1,1.01,0)="BRIEF DESCRIPTION^F^^1;1^K:$L(X)>60!($L(X)<1) X"
^DD(8972.1,1.01,3)="Answer must be 1-60 characters in length"
^DD(8972.1,1.01,"DT")="3000316"
^DD(8972.1,2.01,0)="DATE/TIME LAST EDITED^D^^2;1^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8972.1,2.01,3)="(No range limit on date)"
^DD(8972.1,2.01,"DT")="3000329"
^DD(8972.1,2.02,0)="LAST EDITED BY^P200'^VA(200,^2;2^Q"
^DD(8972.1,2.02,"DT")="3000329"
^DD(8972.1,10,0)="COMMENTS^8972.11^^10;0"
^DD(8972.1,11,0)="ASSOCIATED ROUTINE^8972.111^^11;0"
^DD(8972.1,99.04,0)="AVE CPU TIME^CJ15^^ ; ^X ^DD(8972.1,99.04,9.4) S X=$E(Y(8972.1,99.04,5),Y(8972.1,99.04,6),X)"
^DD(8972.1,99.04,9)=""
^DD(8972.1,99.04,9.01)="8972.1^.04;8972.1^.1"
^DD(8972.1,99.04,9.1)="$E($S(COUNT:CPU TIME/COUNT,1:CPU TIME),1,15)"
^DD(8972.1,99.04,9.2)="S Y(8972.1,99.04,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"""") S X=$P(Y(8972.1,99.04,1),U,10),Y(8972.1,99.04,2)=X S X=$P(Y(8972.1,99.04,1),U,4),X=$S($P(Y(8972.1,99.04,1),U,10):X/$P(Y(8972.1,99.04,1),U,10),1:""*******"")"
^DD(8972.1,99.04,9.3)="X ^DD(8972.1,99.04,9.2) S Y(8972.1,99.04,3)=X S X=1,Y(8972.1,99.04,4)=X S X=$P(Y(8972.1,99.04,1),U,4)"
^DD(8972.1,99.04,9.4)="X ^DD(8972.1,99.04,9.3) S X=$S(Y(8972.1,99.04,2):Y(8972.1,99.04,3),Y(8972.1,99.04,4):X),Y(8972.1,99.04,5)=X S X=1,Y(8972.1,99.04,6)=X S X=15"
^DD(8972.1,99.04,"DT")="3000404"
^DD(8972.1,99.05,0)="AVE DIO REFERENCES^CJ15^^ ; ^X ^DD(8972.1,99.05,9.4) S X=$E(Y(8972.1,99.05,5),Y(8972.1,99.05,6),X)"
^DD(8972.1,99.05,9)=""
^DD(8972.1,99.05,9.01)="8972.1^.05;8972.1^.1"
^DD(8972.1,99.05,9.1)="$E($S(COUNT:DIO REFERENCES/COUNT,1:DIO REFERENCES),1,15)"
^DD(8972.1,99.05,9.2)="S Y(8972.1,99.05,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"""") S X=$P(Y(8972.1,99.05,1),U,10),Y(8972.1,99.05,2)=X S X=$P(Y(8972.1,99.05,1),U,5),X=$S($P(Y(8972.1,99.05,1),U,10):X/$P(Y(8972.1,99.05,1),U,10),1:""*******"")"
^DD(8972.1,99.05,9.3)="X ^DD(8972.1,99.05,9.2) S Y(8972.1,99.05,3)=X S X=1,Y(8972.1,99.05,4)=X S X=$P(Y(8972.1,99.05,1),U,5)"
^DD(8972.1,99.05,9.4)="X ^DD(8972.1,99.05,9.3) S X=$S(Y(8972.1,99.05,2):Y(8972.1,99.05,3),Y(8972.1,99.05,4):X),Y(8972.1,99.05,5)=X S X=1,Y(8972.1,99.05,6)=X S X=15"
^DD(8972.1,99.05,"DT")="3000404"
^DD(8972.1,99.06,0)="AVE BIO REFERENCES^CJ15^^ ; ^X ^DD(8972.1,99.06,9.4) S X=$E(Y(8972.1,99.06,5),Y(8972.1,99.06,6),X)"
^DD(8972.1,99.06,9)=""
^DD(8972.1,99.06,9.01)="8972.1^.06;8972.1^.1"
^DD(8972.1,99.06,9.1)="$E($S(COUNT:BIO REFERENCES/COUNT,1:BIO REFERENCES),1,15)"
^DD(8972.1,99.06,9.2)="S Y(8972.1,99.06,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"""") S X=$P(Y(8972.1,99.06,1),U,10),Y(8972.1,99.06,2)=X S X=$P(Y(8972.1,99.06,1),U,6),X=$S($P(Y(8972.1,99.06,1),U,10):X/$P(Y(8972.1,99.06,1),U,10),1:""*******"")"
^DD(8972.1,99.06,9.3)="X ^DD(8972.1,99.06,9.2) S Y(8972.1,99.06,3)=X S X=1,Y(8972.1,99.06,4)=X S X=$P(Y(8972.1,99.06,1),U,6)"
^DD(8972.1,99.06,9.4)="X ^DD(8972.1,99.06,9.3) S X=$S(Y(8972.1,99.06,2):Y(8972.1,99.06,3),Y(8972.1,99.06,4):X),Y(8972.1,99.06,5)=X S X=1,Y(8972.1,99.06,6)=X S X=15"
^DD(8972.1,99.06,"DT")="3000404"
^DD(8972.1,99.07,0)="AVE PAGE FAULTS^CJ15^^ ; ^X ^DD(8972.1,99.07,9.4) S X=$E(Y(8972.1,99.07,5),Y(8972.1,99.07,6),X)"
^DD(8972.1,99.07,9)=""
^DD(8972.1,99.07,9.01)="8972.1^.07;8972.1^.1"
^DD(8972.1,99.07,9.1)="$E($S(COUNT:PAGE FAULTS/COUNT,1:PAGE FAULTS),1,15)"
^DD(8972.1,99.07,9.2)="S Y(8972.1,99.07,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"""") S X=$P(Y(8972.1,99.07,1),U,10),Y(8972.1,99.07,2)=X S X=$P(Y(8972.1,99.07,1),U,7),X=$S($P(Y(8972.1,99.07,1),U,10):X/$P(Y(8972.1,99.07,1),U,10),1:""*******"")"
^DD(8972.1,99.07,9.3)="X ^DD(8972.1,99.07,9.2) S Y(8972.1,99.07,3)=X S X=1,Y(8972.1,99.07,4)=X S X=$P(Y(8972.1,99.07,1),U,7)"
^DD(8972.1,99.07,9.4)="X ^DD(8972.1,99.07,9.3) S X=$S(Y(8972.1,99.07,2):Y(8972.1,99.07,3),Y(8972.1,99.07,4):X),Y(8972.1,99.07,5)=X S X=1,Y(8972.1,99.07,6)=X S X=15"
^DD(8972.1,99.07,"DT")="3000404"
^DD(8972.1,99.08,0)="AVE M COMMANDS^CJ15^^ ; ^X ^DD(8972.1,99.08,9.4) S X=$E(Y(8972.1,99.08,5),Y(8972.1,99.08,6),X)"
^DD(8972.1,99.08,9)=""
^DD(8972.1,99.08,9.01)="8972.1^.08;8972.1^.1"
^DD(8972.1,99.08,9.1)="$E($S(COUNT:M COMMANDS/COUNT,1:M COMMANDS),1,15)"
^DD(8972.1,99.08,9.2)="S Y(8972.1,99.08,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"""") S X=$P(Y(8972.1,99.08,1),U,10),Y(8972.1,99.08,2)=X S X=$P(Y(8972.1,99.08,1),U,8),X=$S($P(Y(8972.1,99.08,1),U,10):X/$P(Y(8972.1,99.08,1),U,10),1:""*******"")"
^DD(8972.1,99.08,9.3)="X ^DD(8972.1,99.08,9.2) S Y(8972.1,99.08,3)=X S X=1,Y(8972.1,99.08,4)=X S X=$P(Y(8972.1,99.08,1),U,8)"
^DD(8972.1,99.08,9.4)="X ^DD(8972.1,99.08,9.3) S X=$S(Y(8972.1,99.08,2):Y(8972.1,99.08,3),Y(8972.1,99.08,4):X),Y(8972.1,99.08,5)=X S X=1,Y(8972.1,99.08,6)=X S X=15"
^DD(8972.1,99.08,"DT")="3000404"
^DD(8972.1,99.09,0)="AVE GLOBAL REFERENCES^CJ15^^ ; ^X ^DD(8972.1,99.09,9.4) S X=$E(Y(8972.1,99.09,5),Y(8972.1,99.09,6),X)"
^DD(8972.1,99.09,9)=""
^DD(8972.1,99.09,9.01)="8972.1^.09;8972.1^.1"
^DD(8972.1,99.09,9.1)="$E($S(COUNT:GLOBAL REFERENCES/COUNT,1:GLOBAL REFERENCES),1,15)"
^DD(8972.1,99.09,9.2)="S Y(8972.1,99.09,1)=$S($D(^KMPD(8972.1,D0,0)):^(0),1:"""") S X=$P(Y(8972.1,99.09,1),U,10),Y(8972.1,99.09,2)=X S X=$P(Y(8972.1,99.09,1),U,9),X=$S($P(Y(8972.1,99.09,1),U,10):X/$P(Y(8972.1,99.09,1),U,10),1:""*******"")"
^DD(8972.1,99.09,9.3)="X ^DD(8972.1,99.09,9.2) S Y(8972.1,99.09,3)=X S X=1,Y(8972.1,99.09,4)=X S X=$P(Y(8972.1,99.09,1),U,9)"
^DD(8972.1,99.09,9.4)="X ^DD(8972.1,99.09,9.3) S X=$S(Y(8972.1,99.09,2):Y(8972.1,99.09,3),Y(8972.1,99.09,4):X),Y(8972.1,99.09,5)=X S X=1,Y(8972.1,99.09,6)=X S X=15"
^DD(8972.1,99.09,"DT")="3000404"
^DD(8972.1,"B","ACTIVE",.11)=""
^DD(8972.1,"B","ASSOCIATED ROUTINE",11)=""
^DD(8972.1,"B","AVE BIO REFERENCES",99.06)=""
^DD(8972.1,"B","AVE CPU TIME",99.04)=""
^DD(8972.1,"B","AVE DIO REFERENCES",99.05)=""
^DD(8972.1,"B","AVE GLOBAL REFERENCES",99.09)=""
^DD(8972.1,"B","AVE M COMMANDS",99.08)=""
^DD(8972.1,"B","AVE PAGE FAULTS",99.07)=""
^DD(8972.1,"B","BIO REFERENCES",.06)=""
^DD(8972.1,"B","BRIEF DESCRIPTION",1.01)=""
^DD(8972.1,"B","COMMENTS",10)=""
^DD(8972.1,"B","COUNT",.1)=""
^DD(8972.1,"B","CPU TIME",.04)=""
^DD(8972.1,"B","DATE/TIME ENTERED",.02)=""
^DD(8972.1,"B","DATE/TIME LAST EDITED",2.01)=""
^DD(8972.1,"B","DIO REFERENCES",.05)=""
^DD(8972.1,"B","ENTERED BY",.03)=""
^DD(8972.1,"B","GLOBAL REFERENCES",.09)=""
^DD(8972.1,"B","LAST EDITED BY",2.02)=""
^DD(8972.1,"B","M COMMANDS",.08)=""
^DD(8972.1,"B","NAME",.01)=""
^DD(8972.1,"B","PAGE FAULTS",.07)=""
^DD(8972.1,"GL",0,1,.01)=""
^DD(8972.1,"GL",0,2,.02)=""
^DD(8972.1,"GL",0,3,.03)=""
^DD(8972.1,"GL",0,4,.04)=""
^DD(8972.1,"GL",0,5,.05)=""
^DD(8972.1,"GL",0,6,.06)=""
^DD(8972.1,"GL",0,7,.07)=""
^DD(8972.1,"GL",0,8,.08)=""
^DD(8972.1,"GL",0,9,.09)=""
^DD(8972.1,"GL",0,10,.1)=""
^DD(8972.1,"GL",0,11,.11)=""
^DD(8972.1,"GL",1,1,1.01)=""
^DD(8972.1,"GL",2,1,2.01)=""
^DD(8972.1,"GL",2,2,2.02)=""
^DD(8972.1,"GL",10,0,10)=""
^DD(8972.1,"GL",11,0,11)=""
^DD(8972.1,"IX",.01)=""
^DD(8972.1,"RQ",.01)=""
^DD(8972.1,"SB",8972.11,10)=""
^DD(8972.1,"SB",8972.111,11)=""
^DD(8972.11,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(8972.11,0,"DT")="2990820"
^DD(8972.11,0,"NM","COMMENTS")=""
^DD(8972.11,0,"UP")="8972.1"
^DD(8972.11,.01,0)="COMMENTS^W^^0;1^Q"
^DD(8972.11,.01,"DT")="2990820"
^DD(8972.11,"B","COMMENTS",.01)=""
^DD(8972.11,"GL",0,1,.01)=""
^DD(8972.111,0)="ASSOCIATED ROUTINE SUB-FIELD^^.01^1"
^DD(8972.111,0,"DT")="3000405"
^DD(8972.111,0,"IX","B",8972.111,.01)=""
^DD(8972.111,0,"NM","ASSOCIATED ROUTINE")=""
^DD(8972.111,0,"UP")="8972.1"
^DD(8972.111,.01,0)="ASSOCIATED ROUTINE^MF^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(8972.111,.01,1,0)="^.1"
^DD(8972.111,.01,1,1,0)="8972.111^B"
^DD(8972.111,.01,1,1,1)="S ^KMPD(8972.1,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(8972.111,.01,1,1,2)="K ^KMPD(8972.1,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(8972.111,.01,3)="Answer must be 1-8 characters in length"
^DD(8972.111,.01,"DT")="3000405"
^DD(8972.111,"B","ASSOCIATED ROUTINE",.01)=""
^DD(8972.111,"GL",0,1,.01)=""
^DD(8972.111,"IX",.01)=""
^DD(8972.3,0)="FIELD^^.05^5"
^DD(8972.3,0,"DDA")="N"
^DD(8972.3,0,"DT")="3040729"
^DD(8972.3,0,"IX","B",8972.3,.01)=""
^DD(8972.3,0,"NM","CP DATA ELEMENTS")=""
^DD(8972.3,0,"VR")="2.0"
^DD(8972.3,0,"VRPK")="KMPD"
^DD(8972.3,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8972.3,.01,1,0)="^.1"
^DD(8972.3,.01,1,1,0)="8972.3^B"
^DD(8972.3,.01,1,1,1)="S ^KMPD(8972.3,""B"",$E(X,1,30),DA)="""""
^DD(8972.3,.01,1,1,2)="K ^KMPD(8972.3,""B"",$E(X,1,30),DA)"
^DD(8972.3,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8972.3,.01,"DT")="3040415"
^DD(8972.3,.02,0)="ACTIVE^S^0:NO;1:YES;^0;2^Q"
^DD(8972.3,.02,3)="Enter 0 if this DATA ELEMENT is NOT active, or 1 if this DATA ELEMENT is active."
^DD(8972.3,.02,21,0)="^^3^3^3040729^"
^DD(8972.3,.02,21,1,0)="This field determines if the DATA ELEMENT is selectable.  DATA ELEMENTS "
^DD(8972.3,.02,21,2,0)="should not be deleted, but will be made INACTIVE if they are no longer in "
^DD(8972.3,.02,21,3,0)="use."
^DD(8972.3,.02,"DT")="3040729"
^DD(8972.3,.03,0)="DATA LOCATION (PIECE)^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1.N) X"
^DD(8972.3,.03,3)="*** DO NOT ALTER *** This entry determines which piece represents this data."
^DD(8972.3,.03,21,0)="^^2^2^3040729^"
^DD(8972.3,.03,21,1,0)="The DATA ELEMENTS are seperated by an up-arrow (^) in a data string.  This"
^DD(8972.3,.03,21,2,0)="entry determines which piece represents this data.  DO NOT ALTER!!!"
^DD(8972.3,.03,"DT")="3040729"
^DD(8972.3,.04,0)="DISPLAY TEXT^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(8972.3,.04,3)="The text to display for prompts or printouts. Answer must be 1-30 characters in length"
^DD(8972.3,.04,21,0)="^^2^2^3040729^"
^DD(8972.3,.04,21,1,0)="A more 'readable' form of the DATA ELEMENT name used for prompts and "
^DD(8972.3,.04,21,2,0)="printouts."
^DD(8972.3,.04,"DT")="3040729"
^DD(8972.3,.05,0)="DISPLAY ON CODE EVALUATOR^S^0:NO;1:YES;^0;5^Q"
^DD(8972.3,.05,3)="IF 0 this DATA ELEMENT can NOT be displayed, if 1 this DATA ELEMENT can be displayed."
^DD(8972.3,.05,21,0)="^^2^2^3040729^"
^DD(8972.3,.05,21,1,0)="Not all DATA ELEMENTS are appropriate for the CODE EVALUATOR.  This field "
^DD(8972.3,.05,21,2,0)="restricts which DATA ELEMENTS are displayed."
^DD(8972.3,.05,"DT")="3040729"
^DD(8972.3,"B","ACTIVE",.02)=""
^DD(8972.3,"B","DATA LOCATION (PIECE)",.03)=""
^DD(8972.3,"B","DISPLAY ON CODE EVALUATOR",.05)=""
^DD(8972.3,"B","DISPLAY TEXT",.04)=""
^DD(8972.3,"B","NAME",.01)=""
^DD(8972.3,"GL",0,1,.01)=""
^DD(8972.3,"GL",0,2,.02)=""
^DD(8972.3,"GL",0,3,.03)=""
^DD(8972.3,"GL",0,4,.04)=""
^DD(8972.3,"GL",0,5,.05)=""
^DD(8972.3,"IX",.01)=""
^DD(8972.3,"RQ",.01)=""
^DD(8973,0)="FIELD^^5.03^76"
^DD(8973,0,"DDA")="N"
^DD(8973,0,"DT")="3060412"
^DD(8973,0,"IX","B",8973,.01)=""
^DD(8973,0,"NM","CP PARAMETERS")=""
^DD(8973,0,"VR")="2.0"
^DD(8973,0,"VRPK")="KMPD"
^DD(8973,.01,0)="NAME^R*P4'^DIC(4,^0;1^S DIC(""S"")=""I '$O(^KMPD(8973,0))"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8973,.01,1,0)="^.1"
^DD(8973,.01,1,1,0)="8973^B"
^DD(8973,.01,1,1,1)="S ^KMPD(8973,""B"",$E(X,1,30),DA)="""""
^DD(8973,.01,1,1,2)="K ^KMPD(8973,""B"",$E(X,1,30),DA)"
^DD(8973,.01,3)="Pointer to the Institution file (#4)"
^DD(8973,.01,12)="Allow only one entry in file."
^DD(8973,.01,12.1)="S DIC(""S"")=""I '$O(^KMPD(8973,0))"""
^DD(8973,.01,"DEL",.01,0)="I 1"
^DD(8973,.01,"DT")="3040401"
^DD(8973,.02,0)="CM TOOLS CURRENT VERSION^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(8973,.02,3)="Current version of CAPACITY MANGEMENT TOOLS. Answer must be 1-10 characters in length"
^DD(8973,.02,"DT")="3040401"
^DD(8973,.03,0)="CM TOOLS CURRENT VERSION INST^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,.03,3)="Installation date of the current version of CAPACITY MANAGEMENT TOOLS."
^DD(8973,.03,"DT")="3040401"
^DD(8973,.04,0)="CM TOOLS CURRENT PATCH^F^^0;4^K:$L(X)>10!($L(X)<1) X"
^DD(8973,.04,3)="Current patch number for the CAPACITY MANAGEMNT TOOLS package. Answer must be 1-10 characters in length"
^DD(8973,.04,"DT")="3040401"
^DD(8973,.05,0)="CM TOOLS CURRENT PATCH INST^D^^0;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,.05,3)="Installation Date of the current CAPACITY MANAGEMENT TOOLS patch."
^DD(8973,.05,"DT")="3040401"
^DD(8973,1.01,0)="SAGG CURRENT VERSION^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(8973,1.01,3)="Current version of the SAGG package. Answer must be 1-10 characters in length"
^DD(8973,1.01,"DT")="3040401"
^DD(8973,1.02,0)="SAGG CURRENT VERSION INSTALL^D^^1;2^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.02,3)="Installation Date for the current SAGG package."
^DD(8973,1.02,"DT")="3040401"
^DD(8973,1.03,0)="SAGG CURRENT PATCH^F^^1;3^K:$L(X)>20!($L(X)<1) X"
^DD(8973,1.03,3)="Current SAGG patch number(s). Answer must be 1-20 characters in length"
^DD(8973,1.03,"DT")="3040401"
^DD(8973,1.04,0)="SAGG CURRENT PATCH INSTALL^D^^1;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.04,3)="Installation Date for current SAGG patch."
^DD(8973,1.04,"DT")="3040401"
^DD(8973,1.05,0)="SAGG DLY BKG START^D^^1;5^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.05,3)="Most recent Start Time for the SAGG daily background job."
^DD(8973,1.05,"DT")="3040401"
^DD(8973,1.06,0)="SAGG DLY BKG STOP^D^^1;6^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.06,3)="Most recent Stop Time for the SAGG daily background job."
^DD(8973,1.06,"DT")="3040401"
^DD(8973,1.07,0)="SAGG DLY BKG DELTA^F^^1;7^K:$L(X)>10!($L(X)<1) X"
^DD(8973,1.07,3)="Most recent Delta for the SAGG daily background job."
^DD(8973,1.07,"DT")="3040401"
^DD(8973,1.08,0)="SAGG WKY BKG START^D^^1;8^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.08,3)="Most recent Start Time for the SAGG weekly background job."
^DD(8973,1.08,"DT")="3040401"
^DD(8973,1.09,0)="SAGG WKY BKG STOP^D^^1;9^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.09,3)="Most recent Stop Time for the SAGG weekly background job. "
^DD(8973,1.09,"DT")="3040401"
^DD(8973,1.1,0)="SAGG WKY BKG DELTA^F^^1;10^K:$L(X)>15!($L(X)<1) X"
^DD(8973,1.1,3)="Most recent Delta for the SAGG weekly background job."
^DD(8973,1.1,"DT")="3040720"
^DD(8973,1.11,0)="SAGG WEEKS TO KEEP DATA^NJ3,0^^1;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1.N) X"
^DD(8973,1.11,3)="Type a number between 0 and 100, 0 Decimal Digits"
^DD(8973,1.11,"DT")="3040401"
^DD(8973,1.12,0)="SAGG DLY PURGE START^D^^1;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.12,3)="(No range limit on date)"
^DD(8973,1.12,"DT")="3031121"
^DD(8973,1.13,0)="SAGG DLY PURGE STOP^D^^1;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.13,3)="(No range limit on date)"
^DD(8973,1.13,"DT")="3031121"
^DD(8973,1.14,0)="SAGG DLY PURGE DELTA^F^^1;14^K:$L(X)>10!($L(X)<1) X"
^DD(8973,1.14,3)="Answer must be 1-10 characters in length"
^DD(8973,1.14,"DT")="3031121"
^DD(8973,1.15,0)="SAGG WKY PURGE START^D^^1;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.15,3)="(No range limit on date)"
^DD(8973,1.15,"DT")="3031121"
^DD(8973,1.16,0)="SAGG WKY PURGE STOP^D^^1;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,1.16,3)="(No range limit on date)"
^DD(8973,1.16,"DT")="3031121"
^DD(8973,1.17,0)="SAGG WKY PURGE DELTA^F^^1;17^K:$L(X)>10!($L(X)<1) X"
^DD(8973,1.17,3)="Answer must be 1-10 characters in length"
^DD(8973,1.17,"DT")="3031121"
^DD(8973,2.01,0)="RUM CURRENT VERSION^F^^2;1^K:$L(X)>10!($L(X)<1) X"
^DD(8973,2.01,3)="Current version of the RESOURCE USAGE MONITOR package. Answer must be 1-10 characters in length"
^DD(8973,2.01,"DT")="3040401"
^DD(8973,2.02,0)="RUM CURRENT VERSION INSTALL^D^^2;2^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.02,3)="Installation Date of the current RESOURCE USAGE MONITOR package."
^DD(8973,2.02,"DT")="3040401"
^DD(8973,2.03,0)="RUM CURRENT PATCH^F^^2;3^K:$L(X)>10!($L(X)<1) X"
^DD(8973,2.03,3)="Current patch number(s) for the RESOURCE USAGE MONITOR package. Answer must be 1-10 characters in length"
^DD(8973,2.03,"DT")="3040401"
^DD(8973,2.04,0)="RUM CURRENT PATCH INSTALL^D^^2;4^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.04,3)="Installation Date of the current patch for the RESOURCE USAGE MONITOR package."
^DD(8973,2.04,"DT")="3040401"
^DD(8973,2.05,0)="RUM DLY BKG START^D^^2;5^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.05,3)="Most recent Start Time for the RUM daily background job. "
^DD(8973,2.05,"DT")="3040401"
^DD(8973,2.06,0)="RUM DLY BKG STOP^D^^2;6^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.06,3)="Most recent Stop Time for the RUM daily background job."
^DD(8973,2.06,"DT")="3040401"
^DD(8973,2.07,0)="RUM DLY BKG DELTA^F^^2;7^K:$L(X)>20!($L(X)<1) X"
^DD(8973,2.07,3)="Most recent Delta for the RUM daily background job."
^DD(8973,2.07,"DT")="3040401"
^DD(8973,2.08,0)="RUM WKY BKG START^D^^2;8^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.08,3)="Most recent Start Time for the RUM weekly background job."
^DD(8973,2.08,"DT")="3040401"
^DD(8973,2.09,0)="RUM WKY BKG STOP^D^^2;9^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.09,3)="Most recent Stop Time for the RUM weekly background job.  "
^DD(8973,2.09,"DT")="3040401"
^DD(8973,2.1,0)="RUM WKY BKG DELTA^F^^2;10^K:$L(X)>20!($L(X)<1) X"
^DD(8973,2.1,3)="Most recent Delta for the RUM weekly background job."
^DD(8973,2.1,"DT")="3040401"
^DD(8973,2.11,0)="RUM WEEKS TO KEEP DATA^NJ2,0^^2;11^K:+X'=X!(X>20)!(X<2)!(X?.E1"".""1.N) X"
^DD(8973,2.11,3)="This is the number of weeks that RUM data will be retained in file #8971.1 before purging.  It is recommended that 2 weeks of data be retained."
^DD(8973,2.11,"DT")="3040401"
^DD(8973,2.12,0)="RUM DLY PURGE START^D^^2;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.12,3)="(No range limit on date)"
^DD(8973,2.12,"DT")="3031121"
^DD(8973,2.13,0)="RUM DLY PURGE STOP^D^^2;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.13,3)="(No range limit on date)"
^DD(8973,2.13,"DT")="3031121"
^DD(8973,2.14,0)="RUM DLY PURGE DELTA^F^^2;14^K:$L(X)>10!($L(X)<1) X"
^DD(8973,2.14,3)="Answer must be 1-10 characters in length"
^DD(8973,2.14,"DT")="3031121"
^DD(8973,2.15,0)="RUM WKY PURGE START^D^^2;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.15,3)="(No range limit on date)"
^DD(8973,2.15,"DT")="3031121"
^DD(8973,2.16,0)="RUM WKY PURGE STOP^D^^2;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,2.16,3)="(No range limit on date)"
^DD(8973,2.16,"DT")="3031121"
^DD(8973,2.17,0)="RUM WKY PURGE DELTA^F^^2;17^K:$L(X)>10!($L(X)<1) X"
^DD(8973,2.17,3)="Answer must be 1-10 characters in length"
^DD(8973,2.17,"DT")="3031121"
^DD(8973,3.05,0)="HL7 DLY BKG START^D^^3;5^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.05,3)="Most recent Start Time for the HL7 daily background job.  "
^DD(8973,3.05,"DT")="3040401"
^DD(8973,3.06,0)="HL7 DLY BKG STOP^D^^3;6^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.06,3)="Most recent Stop Time for the HL7 daily background job.  "
^DD(8973,3.06,"DT")="3040401"
^DD(8973,3.07,0)="HL7 DLY BKG DELTA^F^^3;7^K:$L(X)>20!($L(X)<1) X"
^DD(8973,3.07,3)="Most recent Delta for the Timing daily background job."
^DD(8973,3.07,"DT")="3040401"
^DD(8973,3.08,0)="HL7 WKY BKG START^D^^3;8^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.08,3)="Most recent Start Time for the HL7 weekly background job."
^DD(8973,3.08,"DT")="3040401"
^DD(8973,3.09,0)="HL7 WKY BKG STOP^D^^3;9^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.09,3)="Most recent Stop Time for the HL7 weekly background job."
^DD(8973,3.09,"DT")="3040401"
^DD(8973,3.1,0)="HL7 WKY BKG DELTA^F^^3;10^K:$L(X)>20!($L(X)<1) X"
^DD(8973,3.1,3)="Most recent Delta for the HL7 weekly background job."
^DD(8973,3.1,"DT")="3040401"
^DD(8973,3.11,0)="HL7 WEEKS TO KEEP DATA^NJ2,0^^3;11^K:+X'=X!(X>20)!(X<2)!(X?.E1"".""1.N) X"
^DD(8973,3.11,3)="This is the number of weeks that HL7 data will be retained in file #8973.1 before purging.  It is recommended that 2 weeks of data be retained."
^DD(8973,3.11,"DT")="3040401"
^DD(8973,3.12,0)="HL7 DLY PURGE START^D^^3;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.12,3)="(No range limit on date)"
^DD(8973,3.12,"DT")="3031121"
^DD(8973,3.13,0)="HL7 DLY PURGE END^D^^3;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.13,3)="(No range limit on date)"
^DD(8973,3.13,"DT")="3031121"
^DD(8973,3.14,0)="HL7 DLY PURGE DELTA^F^^3;14^K:$L(X)>20!($L(X)<1) X"
^DD(8973,3.14,3)="Answer must be 1-20 characters in length"
^DD(8973,3.14,"DT")="3031121"
^DD(8973,3.15,0)="HL7 WKY PURGE START^D^^3;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.15,3)="(No range limit on date)"
^DD(8973,3.15,"DT")="3031121"
^DD(8973,3.16,0)="HL7 WKY PURGE END^D^^3;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,3.16,3)="(No range limit on date)"
^DD(8973,3.16,"DT")="3031121"
^DD(8973,3.17,0)="HL7 WKY PURGE DELTA^F^^3;17^K:$L(X)>20!($L(X)<1) X"
^DD(8973,3.17,3)="Answer must be 1-20 characters in length"
^DD(8973,3.17,"DT")="3031121"
^DD(8973,4.05,0)="TIMING DLY BKG START^D^^4;5^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.05,3)="Most recent Start Time for the Timing daily background job."
^DD(8973,4.05,"DT")="3040401"
^DD(8973,4.06,0)="TIMING DLY BKG STOP^D^^4;6^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.06,3)="Most recent Stop Time for the Timing daily background job."
^DD(8973,4.06,"DT")="3040401"
^DD(8973,4.07,0)="TIMING DLY BKG DELTA^F^^4;7^K:$L(X)>20!($L(X)<1) X"
^DD(8973,4.07,3)="Most recent Delat for the Timing daily background job."
^DD(8973,4.07,"DT")="3040401"
^DD(8973,4.08,0)="TIMING WKY BKG START^D^^4;8^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.08,3)="Most recent Start Time for the Timing weekly background job."
^DD(8973,4.08,"DT")="3040401"
^DD(8973,4.09,0)="TIMING WKY BKG STOP^D^^4;9^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.09,3)="Most recent Stop Time for the Timing weekly background job."
^DD(8973,4.09,"DT")="3040401"
^DD(8973,4.1,0)="TIMING WKY BKG DELTA^F^^4;10^K:$L(X)>20!($L(X)<1) X"
^DD(8973,4.1,3)="Most recent Delta for the Timing weekly background job."
^DD(8973,4.1,"DT")="3040401"
^DD(8973,4.11,0)="TIMING WEEKS TO KEEP DATA^NJ2,0^^4;11^K:+X'=X!(X>40)!(X<2)!(X?.E1"".""1.N) X"
^DD(8973,4.11,3)="This is the number of weeks that Timing data will be retained in file #8973.2 before purging.  It is recommended that 4 weeks of data be retained.             "
^DD(8973,4.11,"DT")="3031211"
^DD(8973,4.12,0)="TIMING DLY PURGE START^D^^4;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.12,3)="(No range limit on date)"
^DD(8973,4.12,"DT")="3031121"
^DD(8973,4.13,0)="TIMING DLY PURGE END^D^^4;13^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.13,3)="(No range limit on date)"
^DD(8973,4.13,"DT")="3031121"
^DD(8973,4.14,0)="TIMING DLY PURGE DELTA^F^^4;14^K:$L(X)>20!($L(X)<1) X"
^DD(8973,4.14,3)="Answer must be 1-20 characters in length"
^DD(8973,4.14,"DT")="3031121"
^DD(8973,4.15,0)="TIMING WKY PURGE START^D^^4;15^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.15,3)="(No range limit on date)"
^DD(8973,4.15,"DT")="3031121"
^DD(8973,4.16,0)="TIMING WKY PURGE END^D^^4;16^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973,4.16,3)="(No range limit on date)"
^DD(8973,4.16,"DT")="3031121"
^DD(8973,4.17,0)="TIMING WKY PURGE DELTA^F^^4;17^K:$L(X)>20!($L(X)<1) X"
^DD(8973,4.17,3)="Answer must be 1-20 characters in length"
^DD(8973,4.17,"DT")="3031121"
^DD(8973,5.01,0)="SCHEDULED DOWN TIME START^D^^5;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,5.01,3)="Enter the Date/Time that Scheduled Down Time is to begin.  You cannot enter a 'Scheduled Down Time Stop' unless this field has an entry."
^DD(8973,5.01,"DT")="3060412"
^DD(8973,5.02,0)="SCHEDULED DOWN TIME STOP^D^^5;2^S %DT=""ESTR"" D ^%DT S X=Y K:X<1 X"
^DD(8973,5.02,3)="Enter the Date/Time that the Scheduled Down Time will end."
^DD(8973,5.02,"DT")="3060412"
^DD(8973,5.03,0)="REASON FOR DOWN TIME^F^^5;3^K:$L(X)>65!($L(X)<1) X"
^DD(8973,5.03,3)="Answer must be 1-65 characters in length"
^DD(8973,5.03,"DT")="3060412"
^DD(8973,19.01,0)="MONITOR UPDATE RATE - MINUTES^NJ2,0^^19;1^K:+X'=X!(X>60)!(X<5)!(X?.E1"".""1.N) X"
^DD(8973,19.01,3)="When the Timing Monitor is running, this is the number of minutes between automatic updates. (Type a number between 5 and 60)"
^DD(8973,19.01,"DT")="3040213"
^DD(8973,19.02,0)="MONITOR ALERT - SECONDS^NJ3,0^^19;2^K:+X'=X!(X>999)!(X<10)!(X?.E1"".""1.N) X"
^DD(8973,19.02,3)="When the Timing Monitor is running, if the average time-to-load a CPRS Coversheet exceeds this value, an alert will appear on the Timing Monitor screen. (Type a number between 10 and 999)"
^DD(8973,19.02,"DT")="3040213"
^DD(8973,20,0)="CPU^8973.201^^20;0"
^DD(8973,20,21,0)="^^1^1^3040401^"
^DD(8973,20,21,1,0)="Current CPU/Node data."
^DD(8973,21.1,0)="SAGG TRANSMIT TO^8973.01^^21.1;0"
^DD(8973,21.1,21,0)="^^3^3^3040901^^^"
^DD(8973,21.1,21,1,0)="This represents the location(s) where the SAGG data is transmitted after "
^DD(8973,21.1,21,2,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^DD(8973,21.1,21,3,0)="THE LOCAL FACILITY ***"
^DD(8973,21.2,0)="RUM TRANSMIT TO^8973.02^^21.2;0"
^DD(8973,21.2,21,0)="^^3^3^3040901^^"
^DD(8973,21.2,21,1,0)="This represents the location(s) where the RUM data is transmitted after "
^DD(8973,21.2,21,2,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^DD(8973,21.2,21,3,0)="THE LOCAL FACILITY ***"
^DD(8973,21.3,0)="HL7 TRANSMIT TO^8973.03^^21.3;0"
^DD(8973,21.3,21,0)="^^3^3^3040901^^"
^DD(8973,21.3,21,1,0)="This represents the location(s) where the HL7 data is transmitted after "
^DD(8973,21.3,21,2,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^DD(8973,21.3,21,3,0)="THE LOCAL FACILITY ***"
^DD(8973,21.4,0)="TIMING TRANSMIT TO^8973.04^^21.4;0"
^DD(8973,21.4,21,0)="^^3^3^3040901^^"
^DD(8973,21.4,21,1,0)="This represents the location(s) where the TIMING data is transmitted after"
^DD(8973,21.4,21,2,0)="being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY "
^DD(8973,21.4,21,3,0)="THE LOCAL FACILITY ***"
^DD(8973,21.5,0)="VISTA MONITOR TRANSMIT TO^8973.05^^21.5;0"
^DD(8973,"B","CM TOOLS CURRENT PATCH",.04)=""
^DD(8973,"B","CM TOOLS CURRENT PATCH INST",.05)=""
^DD(8973,"B","CM TOOLS CURRENT VERSION",.02)=""
^DD(8973,"B","CM TOOLS CURRENT VERSION INST",.03)=""
^DD(8973,"B","CPU",20)=""
^DD(8973,"B","HL7 DLY BKG DELTA",3.07)=""
^DD(8973,"B","HL7 DLY BKG START",3.05)=""
^DD(8973,"B","HL7 DLY BKG STOP",3.06)=""
^DD(8973,"B","HL7 DLY PURGE DELTA",3.14)=""
^DD(8973,"B","HL7 DLY PURGE END",3.13)=""
^DD(8973,"B","HL7 DLY PURGE START",3.12)=""
^DD(8973,"B","HL7 TRANSMIT TO",21.3)=""
^DD(8973,"B","HL7 WEEKS TO KEEP DATA",3.11)=""
^DD(8973,"B","HL7 WKY BKG DELTA",3.1)=""
^DD(8973,"B","HL7 WKY BKG START",3.08)=""
^DD(8973,"B","HL7 WKY BKG STOP",3.09)=""
^DD(8973,"B","HL7 WKY PURGE DELTA",3.17)=""
^DD(8973,"B","HL7 WKY PURGE END",3.16)=""
^DD(8973,"B","HL7 WKY PURGE START",3.15)=""
^DD(8973,"B","MONITOR ALERT - SECONDS",19.02)=""
^DD(8973,"B","MONITOR UPDATE RATE - MINUTES",19.01)=""
^DD(8973,"B","NAME",.01)=""
^DD(8973,"B","REASON FOR DOWN TIME",5.03)=""
^DD(8973,"B","RUM CURRENT PATCH",2.03)=""
^DD(8973,"B","RUM CURRENT PATCH INSTALL",2.04)=""
^DD(8973,"B","RUM CURRENT VERSION",2.01)=""
^DD(8973,"B","RUM CURRENT VERSION INSTALL",2.02)=""
^DD(8973,"B","RUM DLY BKG DELTA",2.07)=""
^DD(8973,"B","RUM DLY BKG START",2.05)=""
^DD(8973,"B","RUM DLY BKG STOP",2.06)=""
^DD(8973,"B","RUM DLY PURGE DELTA",2.14)=""
^DD(8973,"B","RUM DLY PURGE START",2.12)=""
^DD(8973,"B","RUM DLY PURGE STOP",2.13)=""
^DD(8973,"B","RUM TRANSMIT TO",21.2)=""
^DD(8973,"B","RUM WEEKS TO KEEP DATA",2.11)=""
^DD(8973,"B","RUM WKY BKG DELTA",2.1)=""
^DD(8973,"B","RUM WKY BKG START",2.08)=""
^DD(8973,"B","RUM WKY BKG STOP",2.09)=""
^DD(8973,"B","RUM WKY PURGE DELTA",2.17)=""
^DD(8973,"B","RUM WKY PURGE START",2.15)=""
^DD(8973,"B","RUM WKY PURGE STOP",2.16)=""
^DD(8973,"B","SAGG CURRENT PATCH",1.03)=""
^DD(8973,"B","SAGG CURRENT PATCH INSTALL",1.04)=""
^DD(8973,"B","SAGG CURRENT VERSION",1.01)=""
^DD(8973,"B","SAGG CURRENT VERSION INSTALL",1.02)=""
^DD(8973,"B","SAGG DLY BKG DELTA",1.07)=""
^DD(8973,"B","SAGG DLY BKG START",1.05)=""
^DD(8973,"B","SAGG DLY BKG STOP",1.06)=""
^DD(8973,"B","SAGG DLY PURGE DELTA",1.14)=""
^DD(8973,"B","SAGG DLY PURGE START",1.12)=""
^DD(8973,"B","SAGG DLY PURGE STOP",1.13)=""
^DD(8973,"B","SAGG TRANSMIT TO",21.1)=""
^DD(8973,"B","SAGG WEEKS TO KEEP DATA",1.11)=""
^DD(8973,"B","SAGG WKY BKG DELTA",1.1)=""
^DD(8973,"B","SAGG WKY BKG START",1.08)=""
^DD(8973,"B","SAGG WKY BKG STOP",1.09)=""
^DD(8973,"B","SAGG WKY PURGE DELTA",1.17)=""
^DD(8973,"B","SAGG WKY PURGE START",1.15)=""
^DD(8973,"B","SAGG WKY PURGE STOP",1.16)=""
^DD(8973,"B","SCHEDULED DOWN TIME START",5.01)=""
^DD(8973,"B","SCHEDULED DOWN TIME STOP",5.02)=""
^DD(8973,"B","TIMING DLY BKG DELTA",4.07)=""
^DD(8973,"B","TIMING DLY BKG START",4.05)=""
^DD(8973,"B","TIMING DLY BKG STOP",4.06)=""
^DD(8973,"B","TIMING DLY PURGE DELTA",4.14)=""
^DD(8973,"B","TIMING DLY PURGE END",4.13)=""
^DD(8973,"B","TIMING DLY PURGE START",4.12)=""
^DD(8973,"B","TIMING TRANSMIT TO",21.4)=""
^DD(8973,"B","TIMING WEEKS TO KEEP DATA",4.11)=""
^DD(8973,"B","TIMING WKY BKG DELTA",4.1)=""
^DD(8973,"B","TIMING WKY BKG START",4.08)=""
^DD(8973,"B","TIMING WKY BKG STOP",4.09)=""
^DD(8973,"B","TIMING WKY PURGE DELTA",4.17)=""
^DD(8973,"B","TIMING WKY PURGE END",4.16)=""
^DD(8973,"B","TIMING WKY PURGE START",4.15)=""
^DD(8973,"B","VISTA MONITOR TRANSMIT TO",21.5)=""
^DD(8973,"GL",0,1,.01)=""
^DD(8973,"GL",0,2,.02)=""
^DD(8973,"GL",0,3,.03)=""
^DD(8973,"GL",0,4,.04)=""
^DD(8973,"GL",0,5,.05)=""
^DD(8973,"GL",1,1,1.01)=""
^DD(8973,"GL",1,2,1.02)=""
^DD(8973,"GL",1,3,1.03)=""
^DD(8973,"GL",1,4,1.04)=""
^DD(8973,"GL",1,5,1.05)=""
^DD(8973,"GL",1,6,1.06)=""
^DD(8973,"GL",1,7,1.07)=""
^DD(8973,"GL",1,8,1.08)=""
^DD(8973,"GL",1,9,1.09)=""
^DD(8973,"GL",1,10,1.1)=""
^DD(8973,"GL",1,11,1.11)=""
^DD(8973,"GL",1,12,1.12)=""
^DD(8973,"GL",1,13,1.13)=""
^DD(8973,"GL",1,14,1.14)=""
^DD(8973,"GL",1,15,1.15)=""
^DD(8973,"GL",1,16,1.16)=""
^DD(8973,"GL",1,17,1.17)=""
^DD(8973,"GL",2,1,2.01)=""
^DD(8973,"GL",2,2,2.02)=""
^DD(8973,"GL",2,3,2.03)=""
^DD(8973,"GL",2,4,2.04)=""
^DD(8973,"GL",2,5,2.05)=""
^DD(8973,"GL",2,6,2.06)=""
^DD(8973,"GL",2,7,2.07)=""
^DD(8973,"GL",2,8,2.08)=""
^DD(8973,"GL",2,9,2.09)=""
^DD(8973,"GL",2,10,2.1)=""
^DD(8973,"GL",2,11,2.11)=""
^DD(8973,"GL",2,12,2.12)=""
^DD(8973,"GL",2,13,2.13)=""
^DD(8973,"GL",2,14,2.14)=""
^DD(8973,"GL",2,15,2.15)=""
^DD(8973,"GL",2,16,2.16)=""
^DD(8973,"GL",2,17,2.17)=""
^DD(8973,"GL",3,5,3.05)=""
^DD(8973,"GL",3,6,3.06)=""
^DD(8973,"GL",3,7,3.07)=""
^DD(8973,"GL",3,8,3.08)=""
^DD(8973,"GL",3,9,3.09)=""
^DD(8973,"GL",3,10,3.1)=""
^DD(8973,"GL",3,11,3.11)=""
^DD(8973,"GL",3,12,3.12)=""
^DD(8973,"GL",3,13,3.13)=""
^DD(8973,"GL",3,14,3.14)=""
^DD(8973,"GL",3,15,3.15)=""
^DD(8973,"GL",3,16,3.16)=""
^DD(8973,"GL",3,17,3.17)=""
^DD(8973,"GL",4,5,4.05)=""
^DD(8973,"GL",4,6,4.06)=""
^DD(8973,"GL",4,7,4.07)=""
^DD(8973,"GL",4,8,4.08)=""
^DD(8973,"GL",4,9,4.09)=""
^DD(8973,"GL",4,10,4.1)=""
^DD(8973,"GL",4,11,4.11)=""
^DD(8973,"GL",4,12,4.12)=""
^DD(8973,"GL",4,13,4.13)=""
^DD(8973,"GL",4,14,4.14)=""
^DD(8973,"GL",4,15,4.15)=""
^DD(8973,"GL",4,16,4.16)=""
^DD(8973,"GL",4,17,4.17)=""
^DD(8973,"GL",5,1,5.01)=""
^DD(8973,"GL",5,2,5.02)=""
^DD(8973,"GL",5,3,5.03)=""
^DD(8973,"GL",19,1,19.01)=""
^DD(8973,"GL",19,2,19.02)=""
^DD(8973,"GL",20,0,20)=""
^DD(8973,"GL",21.1,0,21.1)=""
^DD(8973,"GL",21.2,0,21.2)=""
^DD(8973,"GL",21.3,0,21.3)=""
^DD(8973,"GL",21.4,0,21.4)=""
^DD(8973,"GL",21.5,0,21.5)=""
^DD(8973,"IX",.01)=""
^DD(8973,"RQ",.01)=""
^DD(8973,"SB",8973.01,21.1)=""
^DD(8973,"SB",8973.02,21.2)=""
^DD(8973,"SB",8973.03,21.3)=""
^DD(8973,"SB",8973.04,21.4)=""
^DD(8973,"SB",8973.05,21.5)=""
^DD(8973,"SB",8973.201,20)=""
^DD(8973.01,0)="SAGG TRANSMIT TO SUB-FIELD^^.01^1"
^DD(8973.01,0,"DT")="3040720"
^DD(8973.01,0,"IX","B",8973.01,.01)=""
^DD(8973.01,0,"NM","SAGG TRANSMIT TO")=""
^DD(8973.01,0,"UP")="8973"
^DD(8973.01,.01,0)="SAGG TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(8973.01,.01,1,0)="^.1"
^DD(8973.01,.01,1,1,0)="8973.01^B"
^DD(8973.01,.01,1,1,1)="S ^KMPD(8973,DA(1),21.1,""B"",$E(X,1,30),DA)="""""
^DD(8973.01,.01,1,1,2)="K ^KMPD(8973,DA(1),21.1,""B"",$E(X,1,30),DA)"
^DD(8973.01,.01,3)="This represents the location(s) where the SAGG data is transmitted after being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^DD(8973.01,.01,"DT")="3040901"
^DD(8973.01,"B","SAGG TRANSMIT TO",.01)=""
^DD(8973.01,"GL",0,1,.01)=""
^DD(8973.01,"IX",.01)=""
^DD(8973.02,0)="RUM TRANSMIT TO SUB-FIELD^^.01^1"
^DD(8973.02,0,"DT")="3040720"
^DD(8973.02,0,"IX","B",8973.02,.01)=""
^DD(8973.02,0,"NM","RUM TRANSMIT TO")=""
^DD(8973.02,0,"UP")="8973"
^DD(8973.02,.01,0)="RUM TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(8973.02,.01,1,0)="^.1"
^DD(8973.02,.01,1,1,0)="8973.02^B"
^DD(8973.02,.01,1,1,1)="S ^KMPD(8973,DA(1),21.2,""B"",$E(X,1,30),DA)="""""
^DD(8973.02,.01,1,1,2)="K ^KMPD(8973,DA(1),21.2,""B"",$E(X,1,30),DA)"
^DD(8973.02,.01,3)="This represents the location(s) where the RUM data is transmitted after being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^DD(8973.02,.01,"DT")="3040901"
^DD(8973.02,"B","RUM TRANSMIT TO",.01)=""
^DD(8973.02,"GL",0,1,.01)=""
^DD(8973.02,"IX",.01)=""
^DD(8973.03,0)="HL7 TRANSMIT TO SUB-FIELD^^.01^1"
^DD(8973.03,0,"DT")="3040720"
^DD(8973.03,0,"IX","B",8973.03,.01)=""
^DD(8973.03,0,"NM","HL7 TRANSMIT TO")=""
^DD(8973.03,0,"UP")="8973"
^DD(8973.03,.01,0)="HL7 TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(8973.03,.01,1,0)="^.1"
^DD(8973.03,.01,1,1,0)="8973.03^B"
^DD(8973.03,.01,1,1,1)="S ^KMPD(8973,DA(1),21.3,""B"",$E(X,1,30),DA)="""""
^DD(8973.03,.01,1,1,2)="K ^KMPD(8973,DA(1),21.3,""B"",$E(X,1,30),DA)"
^DD(8973.03,.01,3)="This represents the location(s) where the HL7 data is transmitted after being compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^DD(8973.03,.01,"DT")="3040901"
^DD(8973.03,"B","HL7 TRANSMIT TO",.01)=""
^DD(8973.03,"GL",0,1,.01)=""
^DD(8973.03,"IX",.01)=""
^DD(8973.04,0)="TIMING TRANSMIT TO SUB-FIELD^^.01^1"
^DD(8973.04,0,"DT")="3040720"
^DD(8973.04,0,"IX","B",8973.04,.01)=""
^DD(8973.04,0,"NM","TIMING TRANSMIT TO")=""
^DD(8973.04,0,"UP")="8973"
^DD(8973.04,.01,0)="TIMING TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(8973.04,.01,1,0)="^.1"
^DD(8973.04,.01,1,1,0)="8973.04^B"
^DD(8973.04,.01,1,1,1)="S ^KMPD(8973,DA(1),21.4,""B"",$E(X,1,30),DA)="""""
^DD(8973.04,.01,1,1,2)="K ^KMPD(8973,DA(1),21.4,""B"",$E(X,1,30),DA)"
^DD(8973.04,.01,3)="This represents the location(s) where the TIMING data is transmitted afterbeing compiled at the sites.  *** THESE ENTRIES SHOULD NOT BE CHANGED BY THE LOCAL FACILITY ***"
^DD(8973.04,.01,"DT")="3040901"
^DD(8973.04,"B","TIMING TRANSMIT TO",.01)=""
^DD(8973.04,"GL",0,1,.01)=""
^DD(8973.04,"IX",.01)=""
^DD(8973.05,0)="VISTA MONITOR TRANSMIT TO SUB-FIELD^^.01^1"
^DD(8973.05,0,"DT")="3060412"
^DD(8973.05,0,"IX","B",8973.05,.01)=""
^DD(8973.05,0,"NM","VISTA MONITOR TRANSMIT TO")=""
^DD(8973.05,0,"UP")="8973"
^DD(8973.05,.01,0)="VISTA MONITOR TRANSMIT TO^F^^0;1^K:$L(X)>45!($L(X)<1) X"
^DD(8973.05,.01,1,0)="^.1"
^DD(8973.05,.01,1,1,0)="8973.05^B"
^DD(8973.05,.01,1,1,1)="S ^KMPD(8973,DA(1),21.5,""B"",$E(X,1,30),DA)="""""
^DD(8973.05,.01,1,1,2)="K ^KMPD(8973,DA(1),21.5,""B"",$E(X,1,30),DA)"
^DD(8973.05,.01,3)="Answer must be 1-45 characters in length"
^DD(8973.05,.01,"DT")="3060412"
^DD(8973.05,"B","VISTA MONITOR TRANSMIT TO",.01)=""
^DD(8973.05,"GL",0,1,.01)=""
^DD(8973.05,"IX",.01)=""
^DD(8973.1,0)="FIELD^^99.503^368"
^DD(8973.1,0,"DDA")="N"
^DD(8973.1,0,"DT")="3030410"
^DD(8973.1,0,"ID","W")="D:$G(Y) ID^KMPDUT2(Y)"
^DD(8973.1,0,"IX","ACSDTPRNM",8973.1,99.212)=""
^DD(8973.1,0,"IX","APTDTNM",8973.1,.05)=""
^DD(8973.1,0,"IX","ASYNC",8973.1,.06)=""
^DD(8973.1,0,"IX","B",8973.1,.01)=""
^DD(8973.1,0,"NM","CM HL7 DATA")=""
^DD(8973.1,0,"VR")="2.0"
^DD(8973.1,0,"VRPK")="CAPACITY MANAGEMENT TOOLS"
^DD(8973.1,.01,0)="DATE^RD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8973.1,.01,1,0)="^.1"
^DD(8973.1,.01,1,1,0)="8973.1^B"
^DD(8973.1,.01,1,1,1)="S ^KMPD(8973.1,""B"",$E(X,1,30),DA)="""""
^DD(8973.1,.01,1,1,2)="K ^KMPD(8973.1,""B"",$E(X,1,30),DA)"
^DD(8973.1,.01,3)="(No range limit on date)"
^DD(8973.1,.01,"DT")="3010820"
^DD(8973.1,.02,0)="SENT TO NATIONAL DATABASE^S^0:NO;1:YES;^0;2^Q"
^DD(8973.1,.02,3)=""
^DD(8973.1,.02,"DT")="3010720"
^DD(8973.1,.03,0)="NAMESPACE^F^^0;3^K:$L(X)>4!($L(X)<1) X"
^DD(8973.1,.03,3)="Answer must be 1-4 characters in length."
^DD(8973.1,.03,"DT")="3010820"
^DD(8973.1,.05,0)="PROTOCOL^F^^0;5^K:$L(X)>63!($L(X)<3) X"
^DD(8973.1,.05,1,0)="^.1"
^DD(8973.1,.05,1,1,0)="8973.1^APTDTNM^MUMPS"
^DD(8973.1,.05,1,1,1)="D XREF^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.1,.05,1,1,2)="D XREF^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.1,.05,1,1,"%D",0)="^^1^1^3010820^"
^DD(8973.1,.05,1,1,"%D",1,0)="^KMPD(8973.1,""APTDTNM"",Protocol,Date,Namespace)="""""
^DD(8973.1,.05,1,1,"DT")="3010820"
^DD(8973.1,.05,3)="Answer must be 3-63 characters in length"
^DD(8973.1,.05,"DT")="3010820"
^DD(8973.1,.06,0)="SYNC/ASYNC^S^1:SYNCHRONOUS;2:ASYNCHRONOUS;^0;6^Q"
^DD(8973.1,.06,1,0)="^.1"
^DD(8973.1,.06,1,1,0)="8973.1^ASYNC^MUMPS"
^DD(8973.1,.06,1,1,1)="D XREF2^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.1,.06,1,1,2)="D XREF2^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.1,.06,1,1,"%D",0)="^^4^4^3020712^"
^DD(8973.1,.06,1,1,"%D",1,0)="^KMPD(8973.1,""ASYNC"",Date,Sync/Async,Ien)="""""
^DD(8973.1,.06,1,1,"%D",2,0)=" "
^DD(8973.1,.06,1,1,"%D",3,0)="        1 - synchronous"
^DD(8973.1,.06,1,1,"%D",4,0)="        2 - asynchronous"
^DD(8973.1,.06,1,1,"DT")="3020712"
^DD(8973.1,.06,"DT")="3020712"
^DD(8973.1,1.001,0)="TRANS TCP TOT CHR (PT)^F^^1;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.001,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.001,"DT")="3010720"
^DD(8973.1,1.002,0)="TRANS TCP TOT MESSAGES (PT)^F^^1;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.002,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.002,"DT")="3010720"
^DD(8973.1,1.003,0)="TRANS TCP TOT SECONDS (PT)^F^^1;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.003,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.003,"DT")="3010720"
^DD(8973.1,1.004,0)="TRANS MAIL TOT CHR (PT)^F^^1;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.004,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.004,"DT")="3010720"
^DD(8973.1,1.005,0)="TRANS MAIL TOT MESSAGES (PT)^F^^1;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.005,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.005,"DT")="3010720"
^DD(8973.1,1.006,0)="TRANS MAIL TOT SECONDS (PT)^F^^1;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.006,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.006,"DT")="3010720"
^DD(8973.1,1.007,0)="TRANS UNK TOT CHR (PT)^F^^1;7^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.007,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.007,"DT")="3010720"
^DD(8973.1,1.008,0)="TRANS UNK TOT MESSAGES (PT)^F^^1;8^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.008,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.008,"DT")="3010720"
^DD(8973.1,1.009,0)="TRANS UNK TOT SECONDS (PT)^F^^1;9^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.009,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.009,"DT")="3010720"
^DD(8973.1,1.101,0)="I/O INCOMING TOT CHR (PT)^F^^1.1;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.101,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.101,"DT")="3010720"
^DD(8973.1,1.102,0)="I/O INCOMING TOT MESSAGES (PT)^F^^1.1;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.102,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.102,"DT")="3010720"
^DD(8973.1,1.103,0)="I/O INCOMING TOT SECONDS (PT)^F^^1.1;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.103,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.103,"DT")="3010720"
^DD(8973.1,1.104,0)="I/O OUTGOING TOT CHR (PT)^F^^1.1;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.104,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.104,"DT")="3010720"
^DD(8973.1,1.105,0)="I/O OUTGOING TOT MESSAGES (PT)^F^^1.1;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.105,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.105,"DT")="3010720"
^DD(8973.1,1.106,0)="I/O OUTGOING TOT SECONDS (PT)^F^^1.1;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.106,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.106,"DT")="3010720"
^DD(8973.1,1.107,0)="I/O UNK TOT CHR (PT)^F^^1.1;7^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.107,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.107,"DT")="3010720"
^DD(8973.1,1.108,0)="I/O UNK TOT MESSAGES (PT)^F^^1.1;8^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.108,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.108,"DT")="3010720"
^DD(8973.1,1.109,0)="I/O UNK TOT SECONDS (PT)^F^^1.1;9^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.109,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.109,"DT")="3010720"
^DD(8973.1,1.201,0)="L/R LOCAL TOT CHR (PT)^F^^1.2;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.201,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.201,"DT")="3010720"
^DD(8973.1,1.202,0)="L/R LOCAL TOT MESSAGES (PT)^F^^1.2;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.202,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.202,"DT")="3010720"
^DD(8973.1,1.203,0)="L/R LOCAL TOT SECONDS (PT)^F^^1.2;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.203,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.203,"DT")="3010720"
^DD(8973.1,1.204,0)="L/R REMOTE TOT CHR (PT)^F^^1.2;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.204,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.204,"DT")="3010720"
^DD(8973.1,1.205,0)="L/R REMOTE TOT MESSAGES (PT)^F^^1.2;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.205,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.205,"DT")="3010720"
^DD(8973.1,1.206,0)="L/R REMOTE TOT SECONDS (PT)^F^^1.2;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.206,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.206,"DT")="3010720"
^DD(8973.1,1.207,0)="L/R UNK TOT CHR (PT)^F^^1.2;7^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.207,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.207,"DT")="3010720"
^DD(8973.1,1.208,0)="L/R UNK TOT MESSAGES (PT)^F^^1.2;8^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.208,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.208,"DT")="3010720"
^DD(8973.1,1.209,0)="L/R UNK TOT SECONDS (PT)^F^^1.2;9^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,1.209,3)="Answer must be 1-25 characters in length"
^DD(8973.1,1.209,"DT")="3010720"
^DD(8973.1,2.001,0)="TRANS TCP TOT CHR (NP)^F^^2;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.001,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.001,"DT")="3010720"
^DD(8973.1,2.002,0)="TRANS TCP TOT MESSAGES (NP)^F^^2;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.002,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.002,"DT")="3010720"
^DD(8973.1,2.003,0)="TRANS TCP TOT SECONDS (NP)^F^^2;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.003,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.003,"DT")="3010720"
^DD(8973.1,2.004,0)="TRANS MAIL TOT CHR (NP)^F^^2;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.004,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.004,"DT")="3010720"
^DD(8973.1,2.005,0)="TRANS MAIL TOT MESSAGES (NP)^F^^2;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.005,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.005,"DT")="3010720"
^DD(8973.1,2.006,0)="TRANS MAIL TOT SECONDS (NP)^F^^2;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.006,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.006,"DT")="3010720"
^DD(8973.1,2.007,0)="TRANS UNK TOT CHR (NP)^F^^2;7^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.007,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.007,"DT")="3010720"
^DD(8973.1,2.008,0)="TRANS UNK TOT MESSAGES (NP)^F^^2;8^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.008,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.008,"DT")="3010720"
^DD(8973.1,2.009,0)="TRANS UNK TOT SECONDS (NP)^F^^2;9^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.009,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.009,"DT")="3010720"
^DD(8973.1,2.101,0)="I/O INCOMING TOT CHR (PT)^F^^2.1;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.101,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.101,"DT")="3010720"
^DD(8973.1,2.102,0)="I/O INCOMING TOT MESSAGES (NP)^F^^2.1;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.102,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.102,"DT")="3010720"
^DD(8973.1,2.103,0)="I/O INCOMING TOT SECONDS (NP)^F^^2.1;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.103,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.103,"DT")="3010720"
^DD(8973.1,2.104,0)="I/O OUTGOING TOT CHR (NP)^F^^2.1;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.104,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.104,"DT")="3010720"
^DD(8973.1,2.105,0)="I/O OUTGOING TOT MESSAGES (NP)^F^^2.1;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.105,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.105,"DT")="3010720"
^DD(8973.1,2.106,0)="I/O OUTGOING TOT SECONDS (NP)^F^^2.1;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.106,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.106,"DT")="3010720"
^DD(8973.1,2.107,0)="I/O UNK TOT CHR (NP)^F^^2.1;7^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.107,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.107,"DT")="3010720"
^DD(8973.1,2.108,0)="I/O UNK TOT MESSAGES (NP)^F^^2.1;8^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.108,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.108,"DT")="3010720"
^DD(8973.1,2.109,0)="I/O UNK TOT SECONDS (NP)^F^^2.1;9^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.109,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.109,"DT")="3010720"
^DD(8973.1,2.201,0)="L/R LOCAL TOT CHR (NP)^F^^2.2;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.201,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.201,"DT")="3010720"
^DD(8973.1,2.202,0)="L/R LOCAL TOT MESSAGES (NP)^F^^2.2;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.202,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.202,"DT")="3010720"
^DD(8973.1,2.203,0)="L/R LOCAL TOT SECONDS (NP)^F^^2.2;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.203,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.203,"DT")="3010720"
^DD(8973.1,2.204,0)="L/R REMOTE TOT CHR (PT)^F^^2.2;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.204,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.204,"DT")="3010720"
^DD(8973.1,2.205,0)="L/R REMOTE TOT MESSAGES (NP)^F^^2.2;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.205,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.205,"DT")="3010720"
^DD(8973.1,2.206,0)="L/R REMOTE TOT SECONDS (NP)^F^^2.2;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.206,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.206,"DT")="3010720"
^DD(8973.1,2.207,0)="L/R UNK TOT CHR (NP)^F^^2.2;7^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.207,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.207,"DT")="3010720"
^DD(8973.1,2.208,0)="L/R UNK TOT MESSAGES (NP)^F^^2.2;8^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.208,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.208,"DT")="3010720"
^DD(8973.1,2.209,0)="L/R UNK TOT SECONDS (NP)^F^^2.2;9^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,2.209,3)="Answer must be 1-25 characters in length"
^DD(8973.1,2.209,"DT")="3010720"
^DD(8973.1,5.109,0)="HOUR 8 MSG TO CA CHR (PT)^F^^5.1;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.109,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.109,"DT")="3021205"
^DD(8973.1,5.11,0)="HOUR 9 MSG TO CA CHR (PT)^F^^5.1;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.11,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.11,"DT")="3021205"
^DD(8973.1,5.111,0)="HOUR 10 MSG TO CA CHR (PT)^F^^5.1;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.111,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.111,"DT")="3021205"
^DD(8973.1,5.112,0)="HOUR 11 MSG TO CA CHR (PT)^F^^5.1;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.112,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.112,"DT")="3021205"
^DD(8973.1,5.113,0)="HOUR 12 MSG TO CA CHR (PT)^F^^5.1;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.113,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.113,"DT")="3021205"
^DD(8973.1,5.114,0)="HOUR 13 MSG TO CA CHR (PT)^F^^5.1;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.114,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.114,"DT")="3021205"
^DD(8973.1,5.115,0)="HOUR 14 MSG TO CA CHR (PT)^F^^5.1;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.115,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.115,"DT")="3021205"
^DD(8973.1,5.116,0)="HOUR 15 MSG TO CA CHR (PT)^F^^5.1;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.116,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.116,"DT")="3021205"
^DD(8973.1,5.117,0)="HOUR 16 MSG TO CA CHR (PT)^F^^5.1;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.117,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.117,"DT")="3021205"
^DD(8973.1,5.209,0)="HOUR 8 MSG TO CA MSGS (PT)^F^^5.2;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.209,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.209,"DT")="3021204"
^DD(8973.1,5.21,0)="HOUR 9 MSG TO CA MSGS (PT)^F^^5.2;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.21,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.21,"DT")="3021204"
^DD(8973.1,5.211,0)="HOUR 10 MSG TO CA MSGS (PT)^F^^5.2;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.211,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.211,"DT")="3021204"
^DD(8973.1,5.212,0)="HOUR 11 MSG TO CA MSGS (PT)^F^^5.2;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.212,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.212,"DT")="3021204"
^DD(8973.1,5.213,0)="HOUR 12 MSG TO CA MSGS (PT)^F^^5.2;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.213,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.213,"DT")="3021204"
^DD(8973.1,5.214,0)="HOUR 13 MSG TO CA MSGS (PT)^F^^5.2;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.214,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.214,"DT")="3021204"
^DD(8973.1,5.215,0)="HOUR 14 MSG TO CA MSGS (PT)^F^^5.2;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.215,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.215,"DT")="3021204"
^DD(8973.1,5.216,0)="HOUR 15 MSG TO CA MSGS (PT)^F^^5.2;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.216,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.216,"DT")="3021204"
^DD(8973.1,5.217,0)="HOUR 16 MSG TO CA MSGS (PT)^F^^5.2;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.217,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.217,"DT")="3021204"
^DD(8973.1,5.309,0)="HOUR 8 MSG TO CA SEC (PT)^F^^5.3;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.309,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.309,"DT")="3021205"
^DD(8973.1,5.31,0)="HOUR 9 MSG TO CA SEC (PT)^F^^5.3;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.31,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.31,"DT")="3021205"
^DD(8973.1,5.311,0)="HOUR 10 MSG TO CA SEC (PT)^F^^5.3;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.311,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.311,"DT")="3021205"
^DD(8973.1,5.312,0)="HOUR 11 MSG TO CA SEC (PT)^F^^5.3;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.312,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.312,"DT")="3021205"
^DD(8973.1,5.313,0)="HOUR 12 MSG TO CA SEC (PT)^F^^5.3;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.313,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.313,"DT")="3021205"
^DD(8973.1,5.314,0)="HOUR 13 MSG TO CA SEC (PT)^F^^5.3;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.314,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.314,"DT")="3021205"
^DD(8973.1,5.315,0)="HOUR 14 MSG TO CA SEC (PT)^F^^5.3;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.315,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.315,"DT")="3021205"
^DD(8973.1,5.316,0)="HOUR 15 MSG TO CA SEC (PT)^F^^5.3;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.316,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.316,"DT")="3021205"
^DD(8973.1,5.317,0)="HOUR 16 MSG TO CA SEC (PT)^F^^5.3;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.317,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.317,"DT")="3021205"
^DD(8973.1,5.409,0)="HOUR 8 PROC TM (CA-AA) (PT)^F^^5.4;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.409,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.409,"DT")="3021206"
^DD(8973.1,5.41,0)="HOUR 9 PROC TM (CA-AA) (PT)^F^^5.4;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.41,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.41,"DT")="3021206"
^DD(8973.1,5.411,0)="HOUR 10 PROC TM (CA-AA) (PT)^F^^5.4;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.411,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.411,"DT")="3021206"
^DD(8973.1,5.412,0)="HOUR 11 PROC TM (CA-AA) (PT)^F^^5.4;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.412,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.412,"DT")="3021206"
^DD(8973.1,5.413,0)="HOUR 12 PROC TM (CA-AA) (PT)^F^^5.4;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.413,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.413,"DT")="3021206"
^DD(8973.1,5.414,0)="HOUR 13 PROC TM (CA-AA) (PT)^F^^5.4;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.414,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.414,"DT")="3021206"
^DD(8973.1,5.415,0)="HOUR 14 PROC TM (CA-AA) (PT)^F^^5.4;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.415,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.415,"DT")="3021206"
^DD(8973.1,5.416,0)="HOUR 15 PROC TM (CA-AA) (PT)^F^^5.4;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.416,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.416,"DT")="3021206"
^DD(8973.1,5.417,0)="HOUR 16 PROC TM (CA-AA) (PT)^F^^5.4;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.417,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.417,"DT")="3021206"
^DD(8973.1,5.509,0)="HOUR 8 PROC CNT (CA-AA) (PT)^F^^5.5;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.509,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.509,"DT")="3021210"
^DD(8973.1,5.51,0)="HOUR 9 PROC CNT (CA-AA) (PT)^F^^5.5;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.51,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.51,"DT")="3021210"
^DD(8973.1,5.511,0)="HOUR 10 PROC CNT (CA-AA) (PT)^F^^5.5;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.511,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.511,"DT")="3021210"
^DD(8973.1,5.512,0)="HOUR 11 PROC CNT (CA-AA) (PT)^F^^5.5;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.512,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.512,"DT")="3021210"
^DD(8973.1,5.513,0)="HOUR 12 PROC CNT (CA-AA) (PT)^F^^5.5;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.513,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.513,"DT")="3021210"
^DD(8973.1,5.514,0)="HOUR 13 PROC CNT (CA-AA) (PT)^F^^5.5;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.514,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.514,"DT")="3021210"
^DD(8973.1,5.515,0)="HOUR 14 PROC CNT (CA-AA) (PT)^F^^5.5;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.515,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.515,"DT")="3021210"
^DD(8973.1,5.516,0)="HOUR 15 PROC CNT (CA-AA) (PT)^F^^5.5;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.516,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.516,"DT")="3021210"
^DD(8973.1,5.517,0)="HOUR 16 PROC CNT (CA-AA) (PT)^F^^5.5;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.517,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.517,"DT")="3021210"
^DD(8973.1,5.709,0)="HOUR 8 AA TO CA CHR (PT)^F^^5.7;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.709,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.709,"DT")="3021206"
^DD(8973.1,5.71,0)="HOUR 9 AA TO CA CHR (PT)^F^^5.7;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.71,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.71,"DT")="3021206"
^DD(8973.1,5.711,0)="HOUR 10 AA TO CA CHR (PT)^F^^5.7;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.711,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.711,"DT")="3021206"
^DD(8973.1,5.712,0)="HOUR 11 AA TO CA CHR (PT)^F^^5.7;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.712,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.712,"DT")="3021206"
^DD(8973.1,5.713,0)="HOUR 12 AA TO CA CHR (PT)^F^^5.7;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.713,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.713,"DT")="3021206"
^DD(8973.1,5.714,0)="HOUR 13 AA TO CA CHR (PT)^F^^5.7;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.714,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.714,"DT")="3021206"
^DD(8973.1,5.715,0)="HOUR 14 AA TO CA CHR (PT)^F^^5.7;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.715,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.715,"DT")="3021206"
^DD(8973.1,5.716,0)="HOUR 15 AA TO CA CHR (PT)^F^^5.7;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.716,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.716,"DT")="3021206"
^DD(8973.1,5.717,0)="HOUR 16 AA TO CA CHR (PT)^F^^5.7;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.717,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.717,"DT")="3021206"
^DD(8973.1,5.809,0)="HOUR 8 AA TO CA MSGS (PT)^F^^5.8;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.809,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.809,"DT")="3021204"
^DD(8973.1,5.81,0)="HOUR 9 AA TO CA MSGS (PT)^F^^5.8;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.81,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.81,"DT")="3021204"
^DD(8973.1,5.811,0)="HOUR 10 AA TO CA MSGS (PT)^F^^5.8;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.811,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.811,"DT")="3021204"
^DD(8973.1,5.812,0)="HOUR 11 AA TO CA MSGS (PT)^F^^5.8;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.812,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.812,"DT")="3021204"
^DD(8973.1,5.813,0)="HOUR 12 AA TO CA MSGS (PT)^F^^5.8;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.813,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.813,"DT")="3021204"
^DD(8973.1,5.814,0)="HOUR 13 AA TO CA MSGS (PT)^F^^5.8;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.814,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.814,"DT")="3021204"
^DD(8973.1,5.815,0)="HOUR 14 AA TO CA MSGS (PT)^F^^5.8;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.815,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.815,"DT")="3021204"
^DD(8973.1,5.816,0)="HOUR 15 AA TO CA MSGS (PT)^F^^5.8;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.816,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.816,"DT")="3021204"
^DD(8973.1,5.817,0)="HOUR 16 AA TO CA MSGS (PT)^F^^5.8;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.817,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.817,"DT")="3021204"
^DD(8973.1,5.909,0)="HOUR 8 AA TO CA SEC (PT)^F^^5.9;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.909,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.909,"DT")="3021210"
^DD(8973.1,5.91,0)="HOUR 9 AA TO CA SEC (PT)^F^^5.9;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.91,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.91,"DT")="3021210"
^DD(8973.1,5.911,0)="HOUR 10 AA TO CA SEC (PT)^F^^5.9;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.911,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.911,"DT")="3021210"
^DD(8973.1,5.912,0)="HOUR 11 AA TO CA SEC (PT)^F^^5.9;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.912,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.912,"DT")="3021210"
^DD(8973.1,5.913,0)="HOUR 12 AA TO CA SEC (PT)^F^^5.9;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.913,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.913,"DT")="3021210"
^DD(8973.1,5.914,0)="HOUR 13 AA TO CA SEC (PT)^F^^5.9;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.914,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.914,"DT")="3021210"
^DD(8973.1,5.915,0)="HOUR 14 AA TO CA SEC (PT)^F^^5.9;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.915,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.915,"DT")="3021210"
^DD(8973.1,5.916,0)="HOUR 15 AA TO CA SEC (PT)^F^^5.9;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.916,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.916,"DT")="3021210"
^DD(8973.1,5.917,0)="HOUR 16 AA TO CA SEC (PT)^F^^5.9;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,5.917,3)="Answer must be 1-9 characters in length"
^DD(8973.1,5.917,"DT")="3021210"
^DD(8973.1,6.101,0)="HOUR 0 MSG TO CA CHR (NP)^F^^6.1;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.101,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.101,"DT")="3021120"
^DD(8973.1,6.102,0)="HOUR 1 MSG TO CA CHR (NP)^F^^6.1;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.102,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.102,"DT")="3021120"
^DD(8973.1,6.103,0)="HOUR 2 MSG TO CA CHR (NP)^F^^6.1;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.103,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.103,"DT")="3021120"
^DD(8973.1,6.104,0)="HOUR 3 MSG TO CA CHR (NP)^F^^6.1;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.104,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.104,"DT")="3021120"
^DD(8973.1,6.105,0)="HOUR 4 MSG TO CA CHR (NP)^F^^6.1;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.105,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.105,"DT")="3021120"
^DD(8973.1,6.106,0)="HOUR 5 MSG TO CA CHR (NP)^F^^6.1;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.106,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.106,"DT")="3021120"
^DD(8973.1,6.107,0)="HOUR 6 MSG TO CA CHR (NP)^F^^6.1;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.107,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.107,"DT")="3021120"
^DD(8973.1,6.108,0)="HOUR 7 MSG TO CA CHR (NP)^F^^6.1;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.108,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.108,"DT")="3021203"
^DD(8973.1,6.109,0)="HOUR 8 MSG TO CA CHR (NP)^F^^6.1;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.109,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.109,"DT")="3021120"
^DD(8973.1,6.11,0)="HOUR 9 MSG TO CA CHR (NP)^F^^6.1;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.11,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.11,"DT")="3021120"
^DD(8973.1,6.111,0)="HOUR 10 MSG TO CA CHR (NP)^F^^6.1;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.111,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.111,"DT")="3021120"
^DD(8973.1,6.112,0)="HOUR 11 MSG TO CA CHR (NP)^F^^6.1;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.112,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.112,"DT")="3021120"
^DD(8973.1,6.113,0)="HOUR 12 MSG TO CA CHR (NP)^F^^6.1;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.113,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.113,"DT")="3021120"
^DD(8973.1,6.114,0)="HOUR 13 MSG TO CA CHR (NP)^F^^6.1;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.114,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.114,"DT")="3021120"
^DD(8973.1,6.115,0)="HOUR 14 MSG TO CA CHR (NP)^F^^6.1;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.115,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.115,"DT")="3021120"
^DD(8973.1,6.116,0)="HOUR 15 MSG TO CA CHR (NP)^F^^6.1;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.116,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.116,"DT")="3021210"
^DD(8973.1,6.117,0)="HOUR 16 MSG TO CA CHR (NP)^F^^6.1;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.117,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.117,"DT")="3021120"
^DD(8973.1,6.118,0)="HOUR 17 MSG TO CA CHR (NP)^F^^6.1;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.118,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.118,"DT")="3021120"
^DD(8973.1,6.119,0)="HOUR 18 MSG TO CA CHR (NP)^F^^6.1;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.119,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.119,"DT")="3021120"
^DD(8973.1,6.12,0)="HOUR 19 MSG TO CA CHR (NP)^F^^6.1;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.12,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.12,"DT")="3021120"
^DD(8973.1,6.121,0)="HOUR 20 MSG TO CA CHR (NP)^F^^6.1;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.121,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.121,"DT")="3021120"
^DD(8973.1,6.122,0)="HOUR 21 MSG TO CA CHR (NP)^F^^6.1;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.122,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.122,"DT")="3021120"
^DD(8973.1,6.123,0)="HOUR 22 MSG TO CA CHR (NP)^F^^6.1;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.123,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.123,"DT")="3021120"
^DD(8973.1,6.124,0)="HOUR 23 MSG TO CA CHR (NP)^F^^6.1;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.124,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.124,"DT")="3021120"
^DD(8973.1,6.201,0)="HOUR 0 MSG TO CA MSGS (NP)^F^^6.2;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.201,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.201,"DT")="3021203"
^DD(8973.1,6.202,0)="HOUR 1 MSG TO CA MSGS (NP)^F^^6.2;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.202,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.202,"DT")="3021203"
^DD(8973.1,6.203,0)="HOUR 2 MSG TO CA MSGS (NP)^F^^6.2;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.203,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.203,"DT")="3021203"
^DD(8973.1,6.204,0)="HOUR 3 MSG TO CA MSGS (NP)^F^^6.2;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.204,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.204,"DT")="3021203"
^DD(8973.1,6.205,0)="HOUR 4 MSG TO CA MSGS (NP)^F^^6.2;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.205,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.205,"DT")="3021203"
^DD(8973.1,6.206,0)="HOUR 5 MSG TO CA MSGS (NP)^F^^6.2;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.206,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.206,"DT")="3021203"
^DD(8973.1,6.207,0)="HOUR 6 MSG TO CA MSGS (NP)^F^^6.2;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.207,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.207,"DT")="3021203"
^DD(8973.1,6.208,0)="HOUR 7 MSG TO CA MSGS (NP)^F^^6.2;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.208,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.208,"DT")="3021203"
^DD(8973.1,6.209,0)="HOUR 8 MSG TO CA MSGS (NP)^F^^6.2;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.209,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.209,"DT")="3021203"
^DD(8973.1,6.21,0)="HOUR 9 MSG TO CA MSGS (NP)^F^^6.2;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.21,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.21,"DT")="3021203"
^DD(8973.1,6.211,0)="HOUR 10 MSG TO CA MSGS (NP)^F^^6.2;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.211,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.211,"DT")="3021203"
^DD(8973.1,6.212,0)="HOUR 11 MSG TO CA MSGS (NP)^F^^6.2;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.212,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.212,"DT")="3021203"
^DD(8973.1,6.213,0)="HOUR 12 MSG TO CA MSGS (NP)^F^^6.2;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.213,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.213,"DT")="3021203"
^DD(8973.1,6.214,0)="HOUR 13 MSG TO CA MSGS (NP)^F^^6.2;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.214,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.214,"DT")="3021203"
^DD(8973.1,6.215,0)="HOUR 14 MSG TO CA MSGS (NP)^F^^6.2;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.215,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.215,"DT")="3021203"
^DD(8973.1,6.216,0)="HOUR 15 MSG TO CA MSGS (NP)^F^^6.2;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.216,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.216,"DT")="3021203"
^DD(8973.1,6.217,0)="HOUR 16 MSG TO CA MSGS (NP)^F^^6.2;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.217,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.217,"DT")="3021203"
^DD(8973.1,6.218,0)="HOUR 17 MSG TO CA MSGS (NP)^F^^6.2;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.218,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.218,"DT")="3021203"
^DD(8973.1,6.219,0)="HOUR 18 MSG TO CA MSGS (NP)^F^^6.2;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.219,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.219,"DT")="3021203"
^DD(8973.1,6.22,0)="HOUR 19 MSG TO CA MSGS (NP)^F^^6.2;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.22,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.22,"DT")="3021203"
^DD(8973.1,6.221,0)="HOUR 20 MSG TO CA MSGS (NP)^F^^6.2;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.221,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.221,"DT")="3021203"
^DD(8973.1,6.222,0)="HOUR 21 MSG TO CA MSGS (NP)^F^^6.2;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.222,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.222,"DT")="3021203"
^DD(8973.1,6.223,0)="HOUR 22 MSG TO CA MSGS (NP)^F^^6.2;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.223,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.223,"DT")="3021203"
^DD(8973.1,6.224,0)="HOUR 23 MSG TO CA MSGS (NP)^F^^6.2;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.224,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.224,"DT")="3021203"
^DD(8973.1,6.301,0)="HOUR 0 MSG TO CA SEC (NP)^F^^6.3;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.301,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.301,"DT")="3021120"
^DD(8973.1,6.302,0)="HOUR 1 MSG TO CA SEC (NP)^F^^6.3;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.302,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.302,"DT")="3021120"
^DD(8973.1,6.303,0)="HOUR 2 MSG TO CA SEC (NP)^F^^6.3;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.303,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.303,"DT")="3021120"
^DD(8973.1,6.304,0)="HOUR 3 MSG TO CA SEC (NP)^F^^6.3;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.304,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.304,"DT")="3021120"
^DD(8973.1,6.305,0)="HOUR 4 MSG TO CA SEC (NP)^F^^6.3;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.305,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.305,"DT")="3021120"
^DD(8973.1,6.306,0)="HOUR 5 MSG TO CA SEC (NP)^F^^6.3;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.306,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.306,"DT")="3021120"
^DD(8973.1,6.307,0)="HOUR 6 MSG TO CA SEC (NP)^F^^6.3;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.307,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.307,"DT")="3021120"
^DD(8973.1,6.308,0)="HOUR 7 MSG TO CA SEC (NP)^F^^6.3;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.308,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.308,"DT")="3021120"
^DD(8973.1,6.309,0)="HOUR 8 MSG TO CA SEC (NP)^F^^6.3;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.309,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.309,"DT")="3021120"
^DD(8973.1,6.31,0)="HOUR 9 MSG TO CA SEC (NP)^F^^6.3;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.31,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.31,"DT")="3021120"
^DD(8973.1,6.311,0)="HOUR 10 MSG TO CA SEC (NP)^F^^6.3;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.311,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.311,"DT")="3021120"
^DD(8973.1,6.312,0)="HOUR 11 MSG TO CA SEC (NP)^F^^6.3;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.312,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.312,"DT")="3021120"
^DD(8973.1,6.313,0)="HOUR 12 MSG TO CA SEC (NP)^F^^6.3;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.313,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.313,"DT")="3021120"
^DD(8973.1,6.314,0)="HOUR 13 MSG TO CA SEC (NP)^F^^6.3;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.314,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.314,"DT")="3021121"
^DD(8973.1,6.315,0)="HOUR 14 MSG TO CA SEC (NP)^F^^6.3;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.315,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.315,"DT")="3021121"
^DD(8973.1,6.316,0)="HOUR 15 MSG TO CA SEC (NP)^F^^6.3;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.316,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.316,"DT")="3021121"
^DD(8973.1,6.317,0)="HOUR 16 MSG TO CA SEC (NP)^F^^6.3;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.317,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.317,"DT")="3021121"
^DD(8973.1,6.318,0)="HOUR 17 MSG TO CA SEC (NP)^F^^6.3;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.318,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.318,"DT")="3021121"
^DD(8973.1,6.319,0)="HOUR 18 MSG TO CA SEC (NP)^F^^6.3;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.319,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.319,"DT")="3021121"
^DD(8973.1,6.32,0)="HOUR 19 MSG TO CA SEC (NP)^F^^6.3;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.32,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.32,"DT")="3021121"
^DD(8973.1,6.321,0)="HOUR 20 MSG TO CA SEC (NP)^F^^6.3;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.321,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.321,"DT")="3021121"
^DD(8973.1,6.322,0)="HOUR 21 MSG TO CA SEC (NP)^F^^6.3;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.322,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.322,"DT")="3021121"
^DD(8973.1,6.323,0)="HOUR 22 MSG TO CA SEC (NP)^F^^6.3;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.323,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.323,"DT")="3021121"
^DD(8973.1,6.324,0)="HOUR 23 MSG TO CA SEC (NP)^F^^6.3;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.324,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.324,"DT")="3021121"
^DD(8973.1,6.401,0)="HOUR 0 PROC TM (CA-AA) (NP)^F^^6.4;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.401,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.401,"DT")="3021121"
^DD(8973.1,6.402,0)="HOUR 1 PROC TM (CA-AA) (NP)^F^^6.4;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.402,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.402,"DT")="3021121"
^DD(8973.1,6.403,0)="HOUR 2 PROC TM (CA-AA) (NP)^F^^6.4;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.403,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.403,"DT")="3021121"
^DD(8973.1,6.404,0)="HOUR 3 PROC TM (CA-AA) (NP)^F^^6.4;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.404,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.404,"DT")="3021121"
^DD(8973.1,6.405,0)="HOUR 4 PROC TM (CA-AA) (NP)^F^^6.4;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.405,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.405,"DT")="3021121"
^DD(8973.1,6.406,0)="HOUR 5 PROC TM (CA-AA) (NP)^F^^6.4;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.406,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.406,"DT")="3021121"
^DD(8973.1,6.407,0)="HOUR 6 PROC TM (CA-AA) (NP)^F^^6.4;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.407,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.407,"DT")="3021121"
^DD(8973.1,6.408,0)="HOUR 7 PROC TM (CA-AA) (NP)^F^^6.4;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.408,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.408,"DT")="3021121"
^DD(8973.1,6.409,0)="HOUR 8 PROC TM (CA-AA) (NP)^F^^6.4;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.409,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.409,"DT")="3021121"
^DD(8973.1,6.41,0)="HOUR 9 PROC TM (CA-AA) (NP)^F^^6.4;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.41,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.41,"DT")="3021121"
^DD(8973.1,6.411,0)="HOUR 10 PROC TM (CA-AA) (NP)^F^^6.4;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.411,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.411,"DT")="3021121"
^DD(8973.1,6.412,0)="HOUR 11 PROC TM (CA-AA) (NP)^F^^6.4;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.412,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.412,"DT")="3021121"
^DD(8973.1,6.413,0)="HOUR 12 PROC TM (CA-AA) (NP)^F^^6.4;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.413,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.413,"DT")="3021121"
^DD(8973.1,6.414,0)="HOUR 13 PROC TM (CA-AA) (NP)^F^^6.4;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.414,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.414,"DT")="3021121"
^DD(8973.1,6.415,0)="HOUR 14 PROC TM (CA-AA) (NP)^F^^6.4;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.415,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.415,"DT")="3021121"
^DD(8973.1,6.416,0)="HOUR 15 PROC TM (CA-AA) (NP)^F^^6.4;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.416,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.416,"DT")="3021121"
^DD(8973.1,6.417,0)="HOUR 16 PROC TM (CA-AA) (NP)^F^^6.4;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.417,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.417,"DT")="3021121"
^DD(8973.1,6.418,0)="HOUR 17 PROC TM (CA-AA) (NP)^F^^6.4;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.418,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.418,"DT")="3021121"
^DD(8973.1,6.419,0)="HOUR 18 PROC TM (CA-AA) (NP)^F^^6.4;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.419,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.419,"DT")="3021121"
^DD(8973.1,6.42,0)="HOUR 19 PROC TM (CA-AA) (NP)^F^^6.4;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.42,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.42,"DT")="3021121"
^DD(8973.1,6.421,0)="HOUR 20 PROC TM (CA-AA) (NP)^F^^6.4;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.421,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.421,"DT")="3021121"
^DD(8973.1,6.422,0)="HOUR 21 PROC TM (CA-AA) (NP)^F^^6.4;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.422,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.422,"DT")="3021121"
^DD(8973.1,6.423,0)="HOUR 22 PROC TM (CA-AA) (NP)^F^^6.4;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.423,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.423,"DT")="3021121"
^DD(8973.1,6.424,0)="HOUR 23 PROC TM (CA-AA) (NP)^F^^6.4;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.424,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.424,"DT")="3021121"
^DD(8973.1,6.501,0)="HOUR 0 PROC CNT (CA-AA) (NP)^F^^6.5;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.501,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.501,"DT")="3021121"
^DD(8973.1,6.502,0)="HOUR 1 PROC CNT (CA-AA) (NP)^F^^6.5;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.502,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.502,"DT")="3021121"
^DD(8973.1,6.503,0)="HOUR 2 PROC CNT (CA-AA) (NP)^F^^6.5;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.503,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.503,"DT")="3021121"
^DD(8973.1,6.504,0)="HOUR 3 PROC CNT (CA-AA) (NP)^F^^6.5;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.504,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.504,"DT")="3021121"
^DD(8973.1,6.505,0)="HOUR 4 PROC CNT (CA-AA) (NP)^F^^6.5;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.505,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.505,"DT")="3021121"
^DD(8973.1,6.506,0)="HOUR 5 PROC CNT (CA-AA) (NP)^F^^6.5;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.506,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.506,"DT")="3021121"
^DD(8973.1,6.507,0)="HOUR 6 PROC CNT (CA-AA) (NP)^F^^6.5;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.507,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.507,"DT")="3021121"
^DD(8973.1,6.508,0)="HOUR 7 PROC CNT (CA-AA) (NP)^F^^6.5;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.508,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.508,"DT")="3021121"
^DD(8973.1,6.509,0)="HOUR 8 PROC CNT (CA-AA) (NP)^F^^6.5;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.509,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.509,"DT")="3021121"
^DD(8973.1,6.51,0)="HOUR 9 PROC CNT (CA-AA) (NP)^F^^6.5;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.51,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.51,"DT")="3021121"
^DD(8973.1,6.511,0)="HOUR 10 PROC CNT (CA-AA) (NP)^F^^6.5;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.511,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.511,"DT")="3021121"
^DD(8973.1,6.512,0)="HOUR 11 PROC CNT (CA-AA) (NP)^F^^6.5;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.512,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.512,"DT")="3021121"
^DD(8973.1,6.513,0)="HOUR 12 PROC CNT (CA-AA) (NP)^F^^6.5;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.513,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.513,"DT")="3021121"
^DD(8973.1,6.514,0)="HOUR 13 PROC CNT (CA-AA) (NP)^F^^6.5;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.514,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.514,"DT")="3021121"
^DD(8973.1,6.515,0)="HOUR 14 PROC CNT (CA-AA) (NP)^F^^6.5;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.515,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.515,"DT")="3021121"
^DD(8973.1,6.516,0)="HOUR 15 PROC CNT (CA-AA) (NP)^F^^6.5;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.516,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.516,"DT")="3021121"
^DD(8973.1,6.517,0)="HOUR 16 PROC CNT (CA-AA) (NP)^F^^6.5;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.517,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.517,"DT")="3021121"
^DD(8973.1,6.518,0)="HOUR 17 PROC CNT (CA-AA) (NP)^F^^6.5;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.518,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.518,"DT")="3021121"
^DD(8973.1,6.519,0)="HOUR 18 PROC CNT (CA-AA) (NP)^F^^6.5;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.519,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.519,"DT")="3021121"
^DD(8973.1,6.52,0)="HOUR 19 PROC CNT (CA-AA) (NP)^F^^6.5;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.52,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.52,"DT")="3021121"
^DD(8973.1,6.521,0)="HOUR 20 PROC CNT (CA-AA) (NP)^F^^6.5;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.521,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.521,"DT")="3021121"
^DD(8973.1,6.522,0)="HOUR 21 PROC CNT (CA-AA) (NP)^F^^6.5;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.522,"DT")="3021121"
^DD(8973.1,6.523,0)="HOUR 22 PROC CNT (CA-AA) (NP)^F^^6.5;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.523,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.523,"DT")="3021121"
^DD(8973.1,6.524,0)="HOUR 23 PROC CNT (CA-AA) (NP)^F^^6.5;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.524,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.524,"DT")="3021121"
^DD(8973.1,6.701,0)="HOUR 0 AA TO CA CHR (NP)^F^^6.7;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.701,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.701,"DT")="3021121"
^DD(8973.1,6.702,0)="HOUR 1 AA TO CA CHR (NP)^F^^6.7;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.702,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.702,"DT")="3021121"
^DD(8973.1,6.703,0)="HOUR 2 AA TO CA CHR (NP)^F^^6.7;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.703,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.703,"DT")="3021121"
^DD(8973.1,6.704,0)="HOUR 3 AA TO CA CHR (NP)^F^^6.7;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.704,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.704,"DT")="3021121"
^DD(8973.1,6.705,0)="HOUR 4 AA TO CA CHR (NP)^F^^6.7;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.705,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.705,"DT")="3021121"
^DD(8973.1,6.706,0)="HOUR 5 AA TO CA CHR (NP)^F^^6.7;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.706,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.706,"DT")="3021121"
^DD(8973.1,6.707,0)="HOUR 6 AA TO CA CHR (NP)^F^^6.7;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.707,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.707,"DT")="3021121"
^DD(8973.1,6.708,0)="HOUR 7 AA TO CA CHR (NP)^F^^6.7;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.708,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.708,"DT")="3021121"
^DD(8973.1,6.709,0)="HOUR 8 AA TO CA CHR (NP)^F^^6.7;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.709,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.709,"DT")="3021121"
^DD(8973.1,6.71,0)="HOUR 9 AA TO CA CHR (NP)^F^^6.7;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.71,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.71,"DT")="3021121"
^DD(8973.1,6.711,0)="HOUR 10 AA TO CA CHR (NP)^F^^6.7;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.711,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.711,"DT")="3021121"
^DD(8973.1,6.712,0)="HOUR 11 AA TO CA CHR (NP)^F^^6.7;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.712,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.712,"DT")="3021121"
^DD(8973.1,6.713,0)="HOUR 12 AA TO CA CHR (NP)^F^^6.7;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.713,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.713,"DT")="3021121"
^DD(8973.1,6.714,0)="HOUR 13 AA TO CA CHR (NP)^F^^6.7;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.714,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.714,"DT")="3021121"
^DD(8973.1,6.715,0)="HOUR 14 AA TO CA CHR (NP)^F^^6.7;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.715,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.715,"DT")="3021121"
^DD(8973.1,6.716,0)="HOUR 15 AA TO CA CHR (NP)^F^^6.7;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.716,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.716,"DT")="3021121"
^DD(8973.1,6.717,0)="HOUR 16 AA TO CA CHR (NP)^F^^6.7;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.717,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.717,"DT")="3021121"
^DD(8973.1,6.718,0)="HOUR 17 AA TO CA CHR (NP)^F^^6.7;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.718,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.718,"DT")="3021121"
^DD(8973.1,6.719,0)="HOUR 18 AA TO CA CHR (NP)^F^^6.7;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.719,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.719,"DT")="3021121"
^DD(8973.1,6.72,0)="HOUR 19 AA TO CA CHR (NP)^F^^6.7;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.72,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.72,"DT")="3021121"
^DD(8973.1,6.721,0)="HOUR 20 AA TO CA CHR (NP)^F^^6.7;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.721,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.721,"DT")="3021121"
^DD(8973.1,6.722,0)="HOUR 21 AA TO CA CHR (NP)^F^^6.7;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.722,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.722,"DT")="3021121"
^DD(8973.1,6.723,0)="HOUR 22 AA TO CA CHR (NP)^F^^6.7;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.723,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.723,"DT")="3021121"
^DD(8973.1,6.724,0)="HOUR 23 AA TO CA CHR (NP)^F^^6.7;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.724,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.724,"DT")="3021121"
^DD(8973.1,6.801,0)="HOUR 0 AA TO CA MSGS (NP)^F^^6.8;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.801,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.801,"DT")="3021203"
^DD(8973.1,6.802,0)="HOUR 1 AA TO CA MSGS (NP)^F^^6.8;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.802,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.802,"DT")="3021203"
^DD(8973.1,6.803,0)="HOUR 2 AA TO CA MSGS (NP)^F^^6.8;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.803,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.803,"DT")="3021203"
^DD(8973.1,6.804,0)="HOUR 3 AA TO CA MSGS (NP)^F^^6.8;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.804,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.804,"DT")="3021203"
^DD(8973.1,6.805,0)="HOUR 4 AA TO CA MSGS (NP)^F^^6.8;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.805,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.805,"DT")="3021203"
^DD(8973.1,6.806,0)="HOUR 5 AA TO CA MSGS (NP)^F^^6.8;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.806,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.806,"DT")="3021203"
^DD(8973.1,6.807,0)="HOUR 6 AA TO CA MSGS (NP)^F^^6.8;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.807,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.807,"DT")="3021203"
^DD(8973.1,6.808,0)="HOUR 7 AA TO CA MSGS (NP)^F^^6.8;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.808,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.808,"DT")="3021203"
^DD(8973.1,6.809,0)="HOUR 8 AA TO CA MSGS (NP)^F^^6.8;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.809,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.809,"DT")="3021203"
^DD(8973.1,6.81,0)="HOUR 9 AA TO CA MSGS (NP)^F^^6.8;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.81,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.81,"DT")="3021203"
^DD(8973.1,6.811,0)="HOUR 10 AA TO CA MSGS (NP)^F^^6.8;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.811,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.811,"DT")="3021203"
^DD(8973.1,6.812,0)="HOUR 11 AA TO CA MSGS (NP)^F^^6.8;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.812,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.812,"DT")="3021203"
^DD(8973.1,6.813,0)="HOUR 12 AA TO CA MSGS (NP)^F^^6.8;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.813,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.813,"DT")="3021203"
^DD(8973.1,6.814,0)="HOUR 13 AA TO CA MSGS (NP)^F^^6.8;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.814,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.814,"DT")="3021203"
^DD(8973.1,6.815,0)="HOUR 14 AA TO CA MSGS (NP)^F^^6.8;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.815,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.815,"DT")="3021203"
^DD(8973.1,6.816,0)="HOUR 15 AA TO CA MSGS (NP)^F^^6.8;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.816,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.816,"DT")="3021203"
^DD(8973.1,6.817,0)="HOUR 16 AA TO CA MSGS (NP)^F^^6.8;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.817,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.817,"DT")="3021203"
^DD(8973.1,6.818,0)="HOUR 17 AA TO CA MSGS (NP)^F^^6.8;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.818,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.818,"DT")="3021203"
^DD(8973.1,6.819,0)="HOUR 18 AA TO CA MSGS (NP)^F^^6.8;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.819,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.819,"DT")="3021203"
^DD(8973.1,6.82,0)="HOUR 19 AA TO CA MSGS (NP)^F^^6.8;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.82,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.82,"DT")="3021203"
^DD(8973.1,6.821,0)="HOUR 20 AA TO CA MSGS (NP)^F^^6.8;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.821,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.821,"DT")="3021203"
^DD(8973.1,6.822,0)="HOUR 21 AA TO CA MSGS (NP)^F^^6.8;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.822,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.822,"DT")="3021203"
^DD(8973.1,6.823,0)="HOUR 22 AA TO CA MSGS (NP)^F^^6.8;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.823,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.823,"DT")="3021203"
^DD(8973.1,6.824,0)="HOUR 23 AA TO CA MSGS (NP)^F^^6.8;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.824,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.824,"DT")="3021203"
^DD(8973.1,6.901,0)="HOUR 0 AA TO CA SEC (NP)^F^^6.9;1^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.901,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.901,"DT")="3021122"
^DD(8973.1,6.902,0)="HOUR 1 AA TO CA SEC (NP)^F^^6.9;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.902,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.902,"DT")="3021122"
^DD(8973.1,6.903,0)="HOUR 2 AA TO CA SEC (NP)^F^^6.9;3^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.903,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.903,"DT")="3021122"
^DD(8973.1,6.904,0)="HOUR 3 AA TO CA SEC (NP)^F^^6.9;4^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.904,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.904,"DT")="3021122"
^DD(8973.1,6.905,0)="HOUR 4 AA TO CA SEC (NP)^F^^6.9;5^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.905,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.905,"DT")="3021122"
^DD(8973.1,6.906,0)="HOUR 5 AA TO CA SEC (NP)^F^^6.9;6^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.906,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.906,"DT")="3021122"
^DD(8973.1,6.907,0)="HOUR 6 AA TO CA SEC (NP)^F^^6.9;7^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.907,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.907,"DT")="3021122"
^DD(8973.1,6.908,0)="HOUR 7 AA TO CA SEC (NP)^F^^6.9;8^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.908,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.908,"DT")="3021122"
^DD(8973.1,6.909,0)="HOUR 8 AA TO CA SEC (NP)^F^^6.9;9^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.909,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.909,"DT")="3021122"
^DD(8973.1,6.91,0)="HOUR 9 AA TO CA SEC (NP)^F^^6.9;10^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.91,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.91,"DT")="3021122"
^DD(8973.1,6.911,0)="HOUR 10 AA TO CA SEC (NP)^F^^6.9;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.911,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.911,"DT")="3021122"
^DD(8973.1,6.912,0)="HOUR 11 AA TO CA SEC (NP)^F^^6.9;12^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.912,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.912,"DT")="3021122"
^DD(8973.1,6.913,0)="HOUR 12 AA TO CA SEC (NP)^F^^6.9;13^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.913,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.913,"DT")="3021122"
^DD(8973.1,6.914,0)="HOUR 13 AA TO CA SEC (NP)^F^^6.9;14^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.914,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.914,"DT")="3021122"
^DD(8973.1,6.915,0)="HOUR 14 AA TO CA SEC (NP)^F^^6.9;15^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.915,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.915,"DT")="3021122"
^DD(8973.1,6.916,0)="HOUR 15 AA TO CA SEC (NP)^F^^6.9;16^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.916,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.916,"DT")="3021122"
^DD(8973.1,6.917,0)="HOUR 16 AA TO CA SEC (NP)^F^^6.9;17^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.917,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.917,"DT")="3021122"
^DD(8973.1,6.918,0)="HOUR 17 AA TO CA SEC (NP)^F^^6.9;18^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.918,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.918,"DT")="3021122"
^DD(8973.1,6.919,0)="HOUR 18 AA TO CA SEC (NP)^F^^6.9;19^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.919,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.919,"DT")="3021122"
^DD(8973.1,6.92,0)="HOUR 19 AA TO CA SEC (NP)^F^^6.9;20^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.92,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.92,"DT")="3021122"
^DD(8973.1,6.921,0)="HOUR 20 AA TO CA SEC (NP)^F^^6.9;21^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.921,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.921,"DT")="3021122"
^DD(8973.1,6.922,0)="HOUR 21 AA TO CA SEC (NP)^F^^6.9;22^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.922,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.922,"DT")="3021122"
^DD(8973.1,6.923,0)="HOUR 22 AA TO CA SEC (NP)^F^^6.9;23^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.923,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.923,"DT")="3021122"
^DD(8973.1,6.924,0)="HOUR 23 AA TO CA SEC (NP)^F^^6.9;24^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,6.924,3)="Answer must be 1-9 characters in length"
^DD(8973.1,6.924,"DT")="3021122"
^DD(8973.1,99.001,0)="TOT CHR (PT)^F^^99;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.001,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.001,"DT")="3010816"
^DD(8973.1,99.002,0)="TOT MESSAGES (PT)^F^^99;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.002,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.002,"DT")="3010816"
^DD(8973.1,99.003,0)="TOT SECONDS (PT)^F^^99;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.003,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.003,"DT")="3010816"
^DD(8973.1,99.004,0)="TOT CHR (NP)^F^^99;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.004,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.004,"DT")="3010816"
^DD(8973.1,99.005,0)="TOT MESSAGES (NP)^F^^99;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.005,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.005,"DT")="3010816"
^DD(8973.1,99.006,0)="TOT SECONDS (NP)^F^^99;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.006,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.006,"DT")="3010816"
^DD(8973.1,99.201,0)="TOT MSG UNIT CHR^F^^99.2;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.201,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.201,"DT")="3020701"
^DD(8973.1,99.202,0)="TOT MSG UNIT MSGS^F^^99.2;2^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,99.202,3)="Answer must be 1-9 characters in length"
^DD(8973.1,99.202,"DT")="3020701"
^DD(8973.1,99.203,0)="TOT MSG UNIT SEC^F^^99.2;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.203,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.203,"DT")="3020701"
^DD(8973.1,99.206,0)="MSG UNIT TYPE(S)^F^^99.2;6^K:$L(X)>20!($L(X)<1) X"
^DD(8973.1,99.206,3)="Answer must be 1-20 characters in length"
^DD(8973.1,99.206,"DT")="3020701"
^DD(8973.1,99.207,0)="MSG UNIT PROTOCOL^F^^99.2;7^K:$L(X)>30!($L(X)<1) X"
^DD(8973.1,99.207,3)="Answer must be 1-30 characters in length"
^DD(8973.1,99.207,"DT")="3020701"
^DD(8973.1,99.208,0)="MSG UNIT PROTOCOL - INFERRED^F^^99.2;8^K:$L(X)>30!($L(X)<1) X"
^DD(8973.1,99.208,3)="Answer must be 1-30 characters in length"
^DD(8973.1,99.208,"DT")="3020701"
^DD(8973.1,99.209,0)="MSG UNIT NAMESPACE^F^^99.2;9^K:$L(X)>10!($L(X)<1) X"
^DD(8973.1,99.209,3)="Answer must be 1-10 characters in length"
^DD(8973.1,99.209,"DT")="3020701"
^DD(8973.1,99.21,0)="MSG UNIT NAMESPACE - INFERRED^F^^99.2;10^K:$L(X)>10!($L(X)<1) X"
^DD(8973.1,99.21,3)="Answer must be 1-10 characters in length"
^DD(8973.1,99.21,"DT")="3020701"
^DD(8973.1,99.211,0)="CONTACTED SITE NUMBER^F^^99.2;11^K:$L(X)>9!($L(X)<1) X"
^DD(8973.1,99.211,3)="Answer must be 1-9 characters in length"
^DD(8973.1,99.211,"DT")="3020701"
^DD(8973.1,99.212,0)="CONTACTED SITE NAME^F^^99.2;12^K:$L(X)>45!($L(X)<1) X"
^DD(8973.1,99.212,1,0)="^.1"
^DD(8973.1,99.212,1,1,0)="8973.1^ACSDTPRNM^MUMPS"
^DD(8973.1,99.212,1,1,1)="D XREF1^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.1,99.212,1,1,2)="D XREF1^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.1,99.212,1,1,"%D",0)="^^1^1^3020702^"
^DD(8973.1,99.212,1,1,"%D",1,0)="^KMPD(8973.1,""ACSDTPRNM"",ContactSite,Date,Protocol,Namespace)="""""
^DD(8973.1,99.212,1,1,"DT")="3020702"
^DD(8973.1,99.212,3)="Answer must be 1-45 characters in length"
^DD(8973.1,99.212,"DT")="3020701"
^DD(8973.1,99.213,0)="CONTACTED SITE LOCAL/REMOTE^F^^99.2;13^K:$L(X)>10!($L(X)<1) X"
^DD(8973.1,99.213,3)="Answer must be 1-10 characters in length"
^DD(8973.1,99.213,"DT")="3020701"
^DD(8973.1,99.301,0)="TOT MSG UNIT CHR (PT)^F^^99.3;1^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.301,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.301,"DT")="3021018"
^DD(8973.1,99.302,0)="TOT MSG UNIT MSGS (PT)^F^^99.3;2^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.302,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.302,"DT")="3021029"
^DD(8973.1,99.303,0)="TOT MSG UNIT SEC (PT)^F^^99.3;3^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.303,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.303,"DT")="3021018"
^DD(8973.1,99.304,0)="TOT MSG UNIT CHR (NP)^F^^99.3;4^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.304,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.304,"DT")="3021029"
^DD(8973.1,99.305,0)="TOT MSG UNIT MSGS (NP)^F^^99.3;5^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.305,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.305,"DT")="3021029"
^DD(8973.1,99.306,0)="TOT MSG UNIT SEC (NP)^F^^99.3;6^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.306,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.306,"DT")="3021029"
^DD(8973.1,99.307,0)="TOT MSG UNIT CHR (PT&NP)^F^^99.3;7^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.307,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.307,"DT")="3021112"
^DD(8973.1,99.308,0)="TOT MSG UNIT MSGS (PT&NP)^F^^99.3;8^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.308,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.308,"DT")="3021112"
^DD(8973.1,99.309,0)="TOT MSG UNIT SEC (PT&NP)^F^^99.3;9^K:$L(X)>25!($L(X)<1) X"
^DD(8973.1,99.309,3)="Answer must be 1-25 characters in length"
^DD(8973.1,99.309,"DT")="3021112"
^DD(8973.1,99.401,0)="TOT MSG TO CA CHR (PT)^F^^99.4;1^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.401,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.401,"DT")="3021122"
^DD(8973.1,99.402,0)="TOT MSG TO CA CHR (NP)^F^^99.4;2^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.402,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.402,"DT")="3021122"
^DD(8973.1,99.403,0)="TOT MSG TO CA COUNT (PT)^F^^99.4;3^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.403,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.403,"DT")="3021122"
^DD(8973.1,99.404,0)="TOT MSG TO CA COUNT (NP)^F^^99.4;4^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.404,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.404,"DT")="3021122"
^DD(8973.1,99.405,0)="TOT MSG TO CA SEC (PT)^F^^99.4;5^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.405,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.405,"DT")="3021122"
^DD(8973.1,99.406,0)="TOT MSG TO CA SEC (NP)^F^^99.4;6^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.406,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.406,"DT")="3021122"
^DD(8973.1,99.407,0)="TOT PROC TM (CA-AA) (PT)^F^^99.4;7^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.407,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.407,"DT")="3021122"
^DD(8973.1,99.408,0)="TOT PROC TM (CA-AA) (NP)^F^^99.4;8^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.408,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.408,"DT")="3021122"
^DD(8973.1,99.409,0)="TOT PROC CNT (CA-AA) (PT)^F^^99.4;9^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.409,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.409,"DT")="3021122"
^DD(8973.1,99.41,0)="TOT PROC CNT (CA-AA) (NP)^F^^99.4;10^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.41,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.41,"DT")="3021122"
^DD(8973.1,99.411,0)="TOT AA TO CA CHR (PT)^F^^99.4;11^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.411,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.411,"DT")="3021122"
^DD(8973.1,99.412,0)="TOT AA TO CA CHR (NP)^F^^99.4;12^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.412,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.412,"DT")="3021122"
^DD(8973.1,99.413,0)="TOT AA TO CA COUNT (PT)^F^^99.4;13^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.413,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.413,"DT")="3021122"
^DD(8973.1,99.414,0)="TOT AA TO CA COUNT (NP)^F^^99.4;14^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.414,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.414,"DT")="3021122"
^DD(8973.1,99.415,0)="TOT AA TO CA SEC (PT)^F^^99.4;15^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.415,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.415,"DT")="3021127"
^DD(8973.1,99.416,0)="TOT AA TO CA SEC (NP)^F^^99.4;16^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.416,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.416,"DT")="3021122"
^DD(8973.1,99.501,0)="TOT MSG UNIT COUNT (PT)^F^^99.5;1^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.501,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.501,"DT")="3030410"
^DD(8973.1,99.502,0)="TOT MSG UNIT COUNT (NP)^F^^99.5;2^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.502,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.502,"DT")="3030410"
^DD(8973.1,99.503,0)="TOT MSG UNIT COUNT (PT&NP)^F^^99.5;3^K:$L(X)>14!($L(X)<1) X"
^DD(8973.1,99.503,3)="Answer must be 1-14 characters in length"
^DD(8973.1,99.503,"DT")="3030410"
^DD(8973.1,"B","CONTACTED SITE LOCAL/REMOTE",99.213)=""
^DD(8973.1,"B","CONTACTED SITE NAME",99.212)=""
^DD(8973.1,"B","CONTACTED SITE NUMBER",99.211)=""
^DD(8973.1,"B","DATE",.01)=""
^DD(8973.1,"B","HOUR 0 AA TO CA CHR (NP)",6.701)=""
^DD(8973.1,"B","HOUR 0 AA TO CA MSGS (NP)",6.801)=""
^DD(8973.1,"B","HOUR 0 AA TO CA SEC (NP)",6.901)=""
^DD(8973.1,"B","HOUR 0 MSG TO CA CHR (NP)",6.101)=""
^DD(8973.1,"B","HOUR 0 MSG TO CA MSGS (NP)",6.201)=""
^DD(8973.1,"B","HOUR 0 MSG TO CA SEC (NP)",6.301)=""
^DD(8973.1,"B","HOUR 0 PROC CNT (CA-AA) (NP)",6.501)=""
^DD(8973.1,"B","HOUR 0 PROC TM (CA-AA) (NP)",6.401)=""
^DD(8973.1,"B","HOUR 1 AA TO CA CHR (NP)",6.702)=""
^DD(8973.1,"B","HOUR 1 AA TO CA MSGS (NP)",6.802)=""
^DD(8973.1,"B","HOUR 1 AA TO CA SEC (NP)",6.902)=""
^DD(8973.1,"B","HOUR 1 MSG TO CA CHR (NP)",6.102)=""
^DD(8973.1,"B","HOUR 1 MSG TO CA MSGS (NP)",6.202)=""
^DD(8973.1,"B","HOUR 1 MSG TO CA SEC (NP)",6.302)=""
^DD(8973.1,"B","HOUR 1 PROC CNT (CA-AA) (NP)",6.502)=""
^DD(8973.1,"B","HOUR 1 PROC TM (CA-AA) (NP)",6.402)=""
^DD(8973.1,"B","HOUR 10 AA TO CA CHR (NP)",6.711)=""
^DD(8973.1,"B","HOUR 10 AA TO CA CHR (PT)",5.711)=""
^DD(8973.1,"B","HOUR 10 AA TO CA MSGS (NP)",6.811)=""
^DD(8973.1,"B","HOUR 10 AA TO CA MSGS (PT)",5.811)=""
^DD(8973.1,"B","HOUR 10 AA TO CA SEC (NP)",6.911)=""
^DD(8973.1,"B","HOUR 10 AA TO CA SEC (PT)",5.911)=""
^DD(8973.1,"B","HOUR 10 MSG TO CA CHR (NP)",6.111)=""
^DD(8973.1,"B","HOUR 10 MSG TO CA CHR (PT)",5.111)=""
^DD(8973.1,"B","HOUR 10 MSG TO CA MSGS (NP)",6.211)=""
^DD(8973.1,"B","HOUR 10 MSG TO CA MSGS (PT)",5.211)=""
^DD(8973.1,"B","HOUR 10 MSG TO CA SEC (NP)",6.311)=""
^DD(8973.1,"B","HOUR 10 MSG TO CA SEC (PT)",5.311)=""
^DD(8973.1,"B","HOUR 10 PROC CNT (CA-AA) (NP)",6.511)=""
^DD(8973.1,"B","HOUR 10 PROC CNT (CA-AA) (PT)",5.511)=""
^DD(8973.1,"B","HOUR 10 PROC TM (CA-AA) (NP)",6.411)=""
^DD(8973.1,"B","HOUR 10 PROC TM (CA-AA) (PT)",5.411)=""
^DD(8973.1,"B","HOUR 11 AA TO CA CHR (NP)",6.712)=""
^DD(8973.1,"B","HOUR 11 AA TO CA CHR (PT)",5.712)=""
^DD(8973.1,"B","HOUR 11 AA TO CA MSGS (NP)",6.812)=""
^DD(8973.1,"B","HOUR 11 AA TO CA MSGS (PT)",5.812)=""
^DD(8973.1,"B","HOUR 11 AA TO CA SEC (NP)",6.912)=""
^DD(8973.1,"B","HOUR 11 AA TO CA SEC (PT)",5.912)=""
^DD(8973.1,"B","HOUR 11 MSG TO CA CHR (NP)",6.112)=""
^DD(8973.1,"B","HOUR 11 MSG TO CA CHR (PT)",5.112)=""
^DD(8973.1,"B","HOUR 11 MSG TO CA MSGS (NP)",6.212)=""
^DD(8973.1,"B","HOUR 11 MSG TO CA MSGS (PT)",5.212)=""
^DD(8973.1,"B","HOUR 11 MSG TO CA SEC (NP)",6.312)=""
^DD(8973.1,"B","HOUR 11 MSG TO CA SEC (PT)",5.312)=""
^DD(8973.1,"B","HOUR 11 PROC CNT (CA-AA) (NP)",6.512)=""
^DD(8973.1,"B","HOUR 11 PROC CNT (CA-AA) (PT)",5.512)=""
^DD(8973.1,"B","HOUR 11 PROC TM (CA-AA) (NP)",6.412)=""
^DD(8973.1,"B","HOUR 11 PROC TM (CA-AA) (PT)",5.412)=""
^DD(8973.1,"B","HOUR 12 AA TO CA CHR (NP)",6.713)=""
^DD(8973.1,"B","HOUR 12 AA TO CA CHR (PT)",5.713)=""
^DD(8973.1,"B","HOUR 12 AA TO CA MSGS (NP)",6.813)=""
^DD(8973.1,"B","HOUR 12 AA TO CA MSGS (PT)",5.813)=""
^DD(8973.1,"B","HOUR 12 AA TO CA SEC (NP)",6.913)=""
^DD(8973.1,"B","HOUR 12 AA TO CA SEC (PT)",5.913)=""
^DD(8973.1,"B","HOUR 12 MSG TO CA CHR (NP)",6.113)=""
^DD(8973.1,"B","HOUR 12 MSG TO CA CHR (PT)",5.113)=""
^DD(8973.1,"B","HOUR 12 MSG TO CA MSGS (NP)",6.213)=""
^DD(8973.1,"B","HOUR 12 MSG TO CA MSGS (PT)",5.213)=""
^DD(8973.1,"B","HOUR 12 MSG TO CA SEC (NP)",6.313)=""
^DD(8973.1,"B","HOUR 12 MSG TO CA SEC (PT)",5.313)=""
^DD(8973.1,"B","HOUR 12 PROC CNT (CA-AA) (NP)",6.513)=""
^DD(8973.1,"B","HOUR 12 PROC CNT (CA-AA) (PT)",5.513)=""
^DD(8973.1,"B","HOUR 12 PROC TM (CA-AA) (NP)",6.413)=""
^DD(8973.1,"B","HOUR 12 PROC TM (CA-AA) (PT)",5.413)=""
^DD(8973.1,"B","HOUR 13 AA TO CA CHR (NP)",6.714)=""
^DD(8973.1,"B","HOUR 13 AA TO CA CHR (PT)",5.714)=""
^DD(8973.1,"B","HOUR 13 AA TO CA MSGS (NP)",6.814)=""
^DD(8973.1,"B","HOUR 13 AA TO CA MSGS (PT)",5.814)=""
^DD(8973.1,"B","HOUR 13 AA TO CA SEC (NP)",6.914)=""
^DD(8973.1,"B","HOUR 13 AA TO CA SEC (PT)",5.914)=""
^DD(8973.1,"B","HOUR 13 MSG TO CA CHR (NP)",6.114)=""
^DD(8973.1,"B","HOUR 13 MSG TO CA CHR (PT)",5.114)=""
^DD(8973.1,"B","HOUR 13 MSG TO CA MSGS (NP)",6.214)=""
^DD(8973.1,"B","HOUR 13 MSG TO CA MSGS (PT)",5.214)=""
^DD(8973.1,"B","HOUR 13 MSG TO CA SEC (NP)",6.314)=""
^DD(8973.1,"B","HOUR 13 MSG TO CA SEC (PT)",5.314)=""
^DD(8973.1,"B","HOUR 13 PROC CNT (CA-AA) (NP)",6.514)=""
^DD(8973.1,"B","HOUR 13 PROC CNT (CA-AA) (PT)",5.514)=""
^DD(8973.1,"B","HOUR 13 PROC TM (CA-AA) (NP)",6.414)=""
^DD(8973.1,"B","HOUR 13 PROC TM (CA-AA) (PT)",5.414)=""
^DD(8973.1,"B","HOUR 14 AA TO CA CHR (NP)",6.715)=""
^DD(8973.1,"B","HOUR 14 AA TO CA CHR (PT)",5.715)=""
^DD(8973.1,"B","HOUR 14 AA TO CA MSGS (NP)",6.815)=""
^DD(8973.1,"B","HOUR 14 AA TO CA MSGS (PT)",5.815)=""
^DD(8973.1,"B","HOUR 14 AA TO CA SEC (NP)",6.915)=""
^DD(8973.1,"B","HOUR 14 AA TO CA SEC (PT)",5.915)=""
^DD(8973.1,"B","HOUR 14 MSG TO CA CHR (NP)",6.115)=""
^DD(8973.1,"B","HOUR 14 MSG TO CA CHR (PT)",5.115)=""
^DD(8973.1,"B","HOUR 14 MSG TO CA MSGS (NP)",6.215)=""
^DD(8973.1,"B","HOUR 14 MSG TO CA MSGS (PT)",5.215)=""
^DD(8973.1,"B","HOUR 14 MSG TO CA SEC (NP)",6.315)=""
^DD(8973.1,"B","HOUR 14 MSG TO CA SEC (PT)",5.315)=""
^DD(8973.1,"B","HOUR 14 PROC CNT (CA-AA) (NP)",6.515)=""
^DD(8973.1,"B","HOUR 14 PROC CNT (CA-AA) (PT)",5.515)=""
^DD(8973.1,"B","HOUR 14 PROC TM (CA-AA) (NP)",6.415)=""
^DD(8973.1,"B","HOUR 14 PROC TM (CA-AA) (PT)",5.415)=""
^DD(8973.1,"B","HOUR 15 AA TO CA CHR (NP)",6.716)=""
^DD(8973.1,"B","HOUR 15 AA TO CA CHR (PT)",5.716)=""
^DD(8973.1,"B","HOUR 15 AA TO CA MSGS (NP)",6.816)=""
^DD(8973.1,"B","HOUR 15 AA TO CA MSGS (PT)",5.816)=""
^DD(8973.1,"B","HOUR 15 AA TO CA SEC (NP)",6.916)=""
^DD(8973.1,"B","HOUR 15 AA TO CA SEC (PT)",5.916)=""
^DD(8973.1,"B","HOUR 15 MSG TO CA CHR (NP)",6.116)=""
^DD(8973.1,"B","HOUR 15 MSG TO CA CHR (PT)",5.116)=""
^DD(8973.1,"B","HOUR 15 MSG TO CA MSGS (NP)",6.216)=""
^DD(8973.1,"B","HOUR 15 MSG TO CA MSGS (PT)",5.216)=""
^DD(8973.1,"B","HOUR 15 MSG TO CA SEC (NP)",6.316)=""
^DD(8973.1,"B","HOUR 15 MSG TO CA SEC (PT)",5.316)=""
^DD(8973.1,"B","HOUR 15 PROC CNT (CA-AA) (NP)",6.516)=""
^DD(8973.1,"B","HOUR 15 PROC CNT (CA-AA) (PT)",5.516)=""
^DD(8973.1,"B","HOUR 15 PROC TM (CA-AA) (NP)",6.416)=""
^DD(8973.1,"B","HOUR 15 PROC TM (CA-AA) (PT)",5.416)=""
^DD(8973.1,"B","HOUR 16 AA TO CA CHR (NP)",6.717)=""
^DD(8973.1,"B","HOUR 16 AA TO CA CHR (PT)",5.717)=""
^DD(8973.1,"B","HOUR 16 AA TO CA MSGS (NP)",6.817)=""
^DD(8973.1,"B","HOUR 16 AA TO CA MSGS (PT)",5.817)=""
^DD(8973.1,"B","HOUR 16 AA TO CA SEC (NP)",6.917)=""
^DD(8973.1,"B","HOUR 16 AA TO CA SEC (PT)",5.917)=""
^DD(8973.1,"B","HOUR 16 MSG TO CA CHR (NP)",6.117)=""
^DD(8973.1,"B","HOUR 16 MSG TO CA CHR (PT)",5.117)=""
^DD(8973.1,"B","HOUR 16 MSG TO CA MSGS (NP)",6.217)=""
^DD(8973.1,"B","HOUR 16 MSG TO CA MSGS (PT)",5.217)=""
^DD(8973.1,"B","HOUR 16 MSG TO CA SEC (NP)",6.317)=""
^DD(8973.1,"B","HOUR 16 MSG TO CA SEC (PT)",5.317)=""
^DD(8973.1,"B","HOUR 16 PROC CNT (CA-AA) (NP)",6.517)=""
^DD(8973.1,"B","HOUR 16 PROC CNT (CA-AA) (PT)",5.517)=""
^DD(8973.1,"B","HOUR 16 PROC TM (CA-AA) (NP)",6.417)=""
^DD(8973.1,"B","HOUR 16 PROC TM (CA-AA) (PT)",5.417)=""
^DD(8973.1,"B","HOUR 17 AA TO CA CHR (NP)",6.718)=""
^DD(8973.1,"B","HOUR 17 AA TO CA MSGS (NP)",6.818)=""
^DD(8973.1,"B","HOUR 17 AA TO CA SEC (NP)",6.918)=""
^DD(8973.1,"B","HOUR 17 MSG TO CA CHR (NP)",6.118)=""
^DD(8973.1,"B","HOUR 17 MSG TO CA MSGS (NP)",6.218)=""
^DD(8973.1,"B","HOUR 17 MSG TO CA SEC (NP)",6.318)=""
^DD(8973.1,"B","HOUR 17 PROC CNT (CA-AA) (NP)",6.518)=""
^DD(8973.1,"B","HOUR 17 PROC TM (CA-AA) (NP)",6.418)=""
^DD(8973.1,"B","HOUR 18 AA TO CA CHR (NP)",6.719)=""
^DD(8973.1,"B","HOUR 18 AA TO CA MSGS (NP)",6.819)=""
^DD(8973.1,"B","HOUR 18 AA TO CA SEC (NP)",6.919)=""
^DD(8973.1,"B","HOUR 18 MSG TO CA CHR (NP)",6.119)=""
^DD(8973.1,"B","HOUR 18 MSG TO CA MSGS (NP)",6.219)=""
^DD(8973.1,"B","HOUR 18 MSG TO CA SEC (NP)",6.319)=""
^DD(8973.1,"B","HOUR 18 PROC CNT (CA-AA) (NP)",6.519)=""
^DD(8973.1,"B","HOUR 18 PROC TM (CA-AA) (NP)",6.419)=""
^DD(8973.1,"B","HOUR 19 AA TO CA CHR (NP)",6.72)=""
^DD(8973.1,"B","HOUR 19 AA TO CA MSGS (NP)",6.82)=""
^DD(8973.1,"B","HOUR 19 AA TO CA SEC (NP)",6.92)=""
^DD(8973.1,"B","HOUR 19 MSG TO CA CHR (NP)",6.12)=""
^DD(8973.1,"B","HOUR 19 MSG TO CA MSGS (NP)",6.22)=""
^DD(8973.1,"B","HOUR 19 MSG TO CA SEC (NP)",6.32)=""
^DD(8973.1,"B","HOUR 19 PROC CNT (CA-AA) (NP)",6.52)=""
^DD(8973.1,"B","HOUR 19 PROC TM (CA-AA) (NP)",6.42)=""
^DD(8973.1,"B","HOUR 2 AA TO CA CHR (NP)",6.703)=""
^DD(8973.1,"B","HOUR 2 AA TO CA MSGS (NP)",6.803)=""
^DD(8973.1,"B","HOUR 2 AA TO CA SEC (NP)",6.903)=""
^DD(8973.1,"B","HOUR 2 MSG TO CA CHR (NP)",6.103)=""
^DD(8973.1,"B","HOUR 2 MSG TO CA MSGS (NP)",6.203)=""
^DD(8973.1,"B","HOUR 2 MSG TO CA SEC (NP)",6.303)=""
^DD(8973.1,"B","HOUR 2 PROC CNT (CA-AA) (NP)",6.503)=""
^DD(8973.1,"B","HOUR 2 PROC TM (CA-AA) (NP)",6.403)=""
^DD(8973.1,"B","HOUR 20 AA TO CA CHR (NP)",6.721)=""
^DD(8973.1,"B","HOUR 20 AA TO CA MSGS (NP)",6.821)=""
^DD(8973.1,"B","HOUR 20 AA TO CA SEC (NP)",6.921)=""
^DD(8973.1,"B","HOUR 20 MSG TO CA CHR (NP)",6.121)=""
^DD(8973.1,"B","HOUR 20 MSG TO CA MSGS (NP)",6.221)=""
^DD(8973.1,"B","HOUR 20 MSG TO CA SEC (NP)",6.321)=""
^DD(8973.1,"B","HOUR 20 PROC CNT (CA-AA) (NP)",6.521)=""
^DD(8973.1,"B","HOUR 20 PROC TM (CA-AA) (NP)",6.421)=""
^DD(8973.1,"B","HOUR 21 AA TO CA CHR (NP)",6.722)=""
^DD(8973.1,"B","HOUR 21 AA TO CA MSGS (NP)",6.822)=""
^DD(8973.1,"B","HOUR 21 AA TO CA SEC (NP)",6.922)=""
^DD(8973.1,"B","HOUR 21 MSG TO CA CHR (NP)",6.122)=""
^DD(8973.1,"B","HOUR 21 MSG TO CA MSGS (NP)",6.222)=""
^DD(8973.1,"B","HOUR 21 MSG TO CA SEC (NP)",6.322)=""
^DD(8973.1,"B","HOUR 21 PROC CNT (CA-AA) (NP)",6.522)=""
^DD(8973.1,"B","HOUR 21 PROC TM (CA-AA) (NP)",6.422)=""
^DD(8973.1,"B","HOUR 22 AA TO CA CHR (NP)",6.723)=""
^DD(8973.1,"B","HOUR 22 AA TO CA MSGS (NP)",6.823)=""
^DD(8973.1,"B","HOUR 22 AA TO CA SEC (NP)",6.923)=""
^DD(8973.1,"B","HOUR 22 MSG TO CA CHR (NP)",6.123)=""
^DD(8973.1,"B","HOUR 22 MSG TO CA MSGS (NP)",6.223)=""
^DD(8973.1,"B","HOUR 22 MSG TO CA SEC (NP)",6.323)=""
^DD(8973.1,"B","HOUR 22 PROC CNT (CA-AA) (NP)",6.523)=""
^DD(8973.1,"B","HOUR 22 PROC TM (CA-AA) (NP)",6.423)=""
^DD(8973.1,"B","HOUR 23 AA TO CA CHR (NP)",6.724)=""
^DD(8973.1,"B","HOUR 23 AA TO CA MSGS (NP)",6.824)=""
^DD(8973.1,"B","HOUR 23 AA TO CA SEC (NP)",6.924)=""
^DD(8973.1,"B","HOUR 23 MSG TO CA CHR (NP)",6.124)=""
^DD(8973.1,"B","HOUR 23 MSG TO CA MSGS (NP)",6.224)=""
^DD(8973.1,"B","HOUR 23 MSG TO CA SEC (NP)",6.324)=""
^DD(8973.1,"B","HOUR 23 PROC CNT (CA-AA) (NP)",6.524)=""
^DD(8973.1,"B","HOUR 23 PROC TM (CA-AA) (NP)",6.424)=""
^DD(8973.1,"B","HOUR 3 AA TO CA CHR (NP)",6.704)=""
^DD(8973.1,"B","HOUR 3 AA TO CA MSGS (NP)",6.804)=""
^DD(8973.1,"B","HOUR 3 AA TO CA SEC (NP)",6.904)=""
^DD(8973.1,"B","HOUR 3 MSG TO CA CHR (NP)",6.104)=""
^DD(8973.1,"B","HOUR 3 MSG TO CA MSGS (NP)",6.204)=""
^DD(8973.1,"B","HOUR 3 MSG TO CA SEC (NP)",6.304)=""
^DD(8973.1,"B","HOUR 3 PROC CNT (CA-AA) (NP)",6.504)=""
^DD(8973.1,"B","HOUR 3 PROC TM (CA-AA) (NP)",6.404)=""
^DD(8973.1,"B","HOUR 4 AA TO CA CHR (NP)",6.705)=""
^DD(8973.1,"B","HOUR 4 AA TO CA MSGS (NP)",6.805)=""
^DD(8973.1,"B","HOUR 4 AA TO CA SEC (NP)",6.905)=""
^DD(8973.1,"B","HOUR 4 MSG TO CA CHR (NP)",6.105)=""
^DD(8973.1,"B","HOUR 4 MSG TO CA MSGS (NP)",6.205)=""
^DD(8973.1,"B","HOUR 4 MSG TO CA SEC (NP)",6.305)=""
^DD(8973.1,"B","HOUR 4 PROC CNT (CA-AA) (NP)",6.505)=""
^DD(8973.1,"B","HOUR 4 PROC TM (CA-AA) (NP)",6.405)=""
^DD(8973.1,"B","HOUR 5 AA TO CA CHR (NP)",6.706)=""
^DD(8973.1,"B","HOUR 5 AA TO CA MSGS (NP)",6.806)=""
^DD(8973.1,"B","HOUR 5 AA TO CA SEC (NP)",6.906)=""
^DD(8973.1,"B","HOUR 5 MSG TO CA CHR (NP)",6.106)=""
^DD(8973.1,"B","HOUR 5 MSG TO CA MSGS (NP)",6.206)=""
^DD(8973.1,"B","HOUR 5 MSG TO CA SEC (NP)",6.306)=""
^DD(8973.1,"B","HOUR 5 PROC CNT (CA-AA) (NP)",6.506)=""
^DD(8973.1,"B","HOUR 5 PROC TM (CA-AA) (NP)",6.406)=""
^DD(8973.1,"B","HOUR 6 AA TO CA CHR (NP)",6.707)=""
^DD(8973.1,"B","HOUR 6 AA TO CA MSGS (NP)",6.807)=""
^DD(8973.1,"B","HOUR 6 AA TO CA SEC (NP)",6.907)=""
^DD(8973.1,"B","HOUR 6 MSG TO CA CHR (NP)",6.107)=""
^DD(8973.1,"B","HOUR 6 MSG TO CA MSGS (NP)",6.207)=""
^DD(8973.1,"B","HOUR 6 MSG TO CA SEC (NP)",6.307)=""
^DD(8973.1,"B","HOUR 6 PROC CNT (CA-AA) (NP)",6.507)=""
^DD(8973.1,"B","HOUR 6 PROC TM (CA-AA) (NP)",6.407)=""
^DD(8973.1,"B","HOUR 7 AA TO CA CHR (NP)",6.708)=""
^DD(8973.1,"B","HOUR 7 AA TO CA MSGS (NP)",6.808)=""
^DD(8973.1,"B","HOUR 7 AA TO CA SEC (NP)",6.908)=""
^DD(8973.1,"B","HOUR 7 MSG TO CA CHR (NP)",6.108)=""
^DD(8973.1,"B","HOUR 7 MSG TO CA MSGS (NP)",6.208)=""
^DD(8973.1,"B","HOUR 7 MSG TO CA SEC (NP)",6.308)=""
^DD(8973.1,"B","HOUR 7 PROC CNT (CA-AA) (NP)",6.508)=""
^DD(8973.1,"B","HOUR 7 PROC TM (CA-AA) (NP)",6.408)=""
^DD(8973.1,"B","HOUR 8 AA TO CA CHR (NP)",6.709)=""
^DD(8973.1,"B","HOUR 8 AA TO CA CHR (PT)",5.709)=""
^DD(8973.1,"B","HOUR 8 AA TO CA MSGS (NP)",6.809)=""
^DD(8973.1,"B","HOUR 8 AA TO CA MSGS (PT)",5.809)=""
^DD(8973.1,"B","HOUR 8 AA TO CA SEC (NP)",6.909)=""
^DD(8973.1,"B","HOUR 8 AA TO CA SEC (PT)",5.909)=""
^DD(8973.1,"B","HOUR 8 MSG TO CA CHR (NP)",6.109)=""
^DD(8973.1,"B","HOUR 8 MSG TO CA CHR (PT)",5.109)=""
^DD(8973.1,"B","HOUR 8 MSG TO CA MSGS (NP)",6.209)=""
^DD(8973.1,"B","HOUR 8 MSG TO CA MSGS (PT)",5.209)=""
^DD(8973.1,"B","HOUR 8 MSG TO CA SEC (NP)",6.309)=""
^DD(8973.1,"B","HOUR 8 MSG TO CA SEC (PT)",5.309)=""
^DD(8973.1,"B","HOUR 8 PROC CNT (CA-AA) (NP)",6.509)=""
^DD(8973.1,"B","HOUR 8 PROC CNT (CA-AA) (PT)",5.509)=""
^DD(8973.1,"B","HOUR 8 PROC TM (CA-AA) (NP)",6.409)=""
^DD(8973.1,"B","HOUR 8 PROC TM (CA-AA) (PT)",5.409)=""
^DD(8973.1,"B","HOUR 9 AA TO CA CHR (NP)",6.71)=""
^DD(8973.1,"B","HOUR 9 AA TO CA CHR (PT)",5.71)=""
^DD(8973.1,"B","HOUR 9 AA TO CA MSGS (NP)",6.81)=""
^DD(8973.1,"B","HOUR 9 AA TO CA MSGS (PT)",5.81)=""
^DD(8973.1,"B","HOUR 9 AA TO CA SEC (NP)",6.91)=""
^DD(8973.1,"B","HOUR 9 AA TO CA SEC (PT)",5.91)=""
^DD(8973.1,"B","HOUR 9 MSG TO CA CHR (NP)",6.11)=""
^DD(8973.1,"B","HOUR 9 MSG TO CA CHR (PT)",5.11)=""
^DD(8973.1,"B","HOUR 9 MSG TO CA MSGS (NP)",6.21)=""
^DD(8973.1,"B","HOUR 9 MSG TO CA MSGS (PT)",5.21)=""
^DD(8973.1,"B","HOUR 9 MSG TO CA SEC (NP)",6.31)=""
^DD(8973.1,"B","HOUR 9 MSG TO CA SEC (PT)",5.31)=""
^DD(8973.1,"B","HOUR 9 PROC CNT (CA-AA) (NP)",6.51)=""
^DD(8973.1,"B","HOUR 9 PROC CNT (CA-AA) (PT)",5.51)=""
^DD(8973.1,"B","HOUR 9 PROC TM (CA-AA) (NP)",6.41)=""
^DD(8973.1,"B","HOUR 9 PROC TM (CA-AA) (PT)",5.41)=""
^DD(8973.1,"B","I/O INCOMING TOT CHR (PT)",1.101)=""
^DD(8973.1,"B","I/O INCOMING TOT CHR (PT)",2.101)=""
^DD(8973.1,"B","I/O INCOMING TOT MESSAGES (NP)",2.102)=""
^DD(8973.1,"B","I/O INCOMING TOT MESSAGES (PT)",1.102)=""
^DD(8973.1,"B","I/O INCOMING TOT SECONDS (NP)",2.103)=""
^DD(8973.1,"B","I/O INCOMING TOT SECONDS (PT)",1.103)=""
^DD(8973.1,"B","I/O OUTGOING TOT CHR (NP)",2.104)=""
^DD(8973.1,"B","I/O OUTGOING TOT CHR (PT)",1.104)=""
^DD(8973.1,"B","I/O OUTGOING TOT MESSAGES (NP)",2.105)=""
^DD(8973.1,"B","I/O OUTGOING TOT MESSAGES (PT)",1.105)=""
^DD(8973.1,"B","I/O OUTGOING TOT SECONDS (NP)",2.106)=""
^DD(8973.1,"B","I/O OUTGOING TOT SECONDS (PT)",1.106)=""
^DD(8973.1,"B","I/O UNK TOT CHR (NP)",2.107)=""
^DD(8973.1,"B","I/O UNK TOT CHR (PT)",1.107)=""
^DD(8973.1,"B","I/O UNK TOT MESSAGES (NP)",2.108)=""
^DD(8973.1,"B","I/O UNK TOT MESSAGES (PT)",1.108)=""
^DD(8973.1,"B","I/O UNK TOT SECONDS (NP)",2.109)=""
^DD(8973.1,"B","I/O UNK TOT SECONDS (PT)",1.109)=""
^DD(8973.1,"B","L/R LOCAL TOT CHR (NP)",2.201)=""
^DD(8973.1,"B","L/R LOCAL TOT CHR (PT)",1.201)=""
^DD(8973.1,"B","L/R LOCAL TOT MESSAGES (NP)",2.202)=""
^DD(8973.1,"B","L/R LOCAL TOT MESSAGES (PT)",1.202)=""
^DD(8973.1,"B","L/R LOCAL TOT SECONDS (NP)",2.203)=""
^DD(8973.1,"B","L/R LOCAL TOT SECONDS (PT)",1.203)=""
^DD(8973.1,"B","L/R REMOTE TOT CHR (PT)",1.204)=""
^DD(8973.1,"B","L/R REMOTE TOT CHR (PT)",2.204)=""
^DD(8973.1,"B","L/R REMOTE TOT MESSAGES (NP)",2.205)=""
^DD(8973.1,"B","L/R REMOTE TOT MESSAGES (PT)",1.205)=""
^DD(8973.1,"B","L/R REMOTE TOT SECONDS (NP)",2.206)=""
^DD(8973.1,"B","L/R REMOTE TOT SECONDS (PT)",1.206)=""
^DD(8973.1,"B","L/R UNK TOT CHR (NP)",2.207)=""
^DD(8973.1,"B","L/R UNK TOT CHR (PT)",1.207)=""
^DD(8973.1,"B","L/R UNK TOT MESSAGES (NP)",2.208)=""
^DD(8973.1,"B","L/R UNK TOT MESSAGES (PT)",1.208)=""
^DD(8973.1,"B","L/R UNK TOT SECONDS (NP)",2.209)=""
^DD(8973.1,"B","L/R UNK TOT SECONDS (PT)",1.209)=""
^DD(8973.1,"B","MSG UNIT NAMESPACE",99.209)=""
^DD(8973.1,"B","MSG UNIT NAMESPACE - INFERRED",99.21)=""
^DD(8973.1,"B","MSG UNIT PROTOCOL",99.207)=""
^DD(8973.1,"B","MSG UNIT PROTOCOL - INFERRED",99.208)=""
^DD(8973.1,"B","MSG UNIT TYPE(S)",99.206)=""
^DD(8973.1,"B","NAMESPACE",.03)=""
^DD(8973.1,"B","PROTOCOL",.05)=""
^DD(8973.1,"B","SENT TO NATIONAL DATABASE",.02)=""
^DD(8973.1,"B","SYNC/ASYNC",.06)=""
^DD(8973.1,"B","TOT AA TO CA CHR (NP)",99.412)=""
^DD(8973.1,"B","TOT AA TO CA CHR (PT)",99.411)=""
^DD(8973.1,"B","TOT AA TO CA COUNT (NP)",99.414)=""
^DD(8973.1,"B","TOT AA TO CA COUNT (PT)",99.413)=""
^DD(8973.1,"B","TOT AA TO CA SEC (NP)",99.416)=""
^DD(8973.1,"B","TOT AA TO CA SEC (PT)",99.415)=""
^DD(8973.1,"B","TOT CHR (NP)",99.004)=""
^DD(8973.1,"B","TOT CHR (PT)",99.001)=""
^DD(8973.1,"B","TOT MESSAGES (NP)",99.005)=""
^DD(8973.1,"B","TOT MESSAGES (PT)",99.002)=""
^DD(8973.1,"B","TOT MSG TO CA CHR (NP)",99.402)=""
^DD(8973.1,"B","TOT MSG TO CA CHR (PT)",99.401)=""
^DD(8973.1,"B","TOT MSG TO CA COUNT (NP)",99.404)=""
^DD(8973.1,"B","TOT MSG TO CA COUNT (PT)",99.403)=""
^DD(8973.1,"B","TOT MSG TO CA SEC (NP)",99.406)=""
^DD(8973.1,"B","TOT MSG TO CA SEC (PT)",99.405)=""
^DD(8973.1,"B","TOT MSG UNIT CHR",99.201)=""
^DD(8973.1,"B","TOT MSG UNIT CHR (NP)",99.304)=""
^DD(8973.1,"B","TOT MSG UNIT CHR (PT&NP)",99.307)=""
^DD(8973.1,"B","TOT MSG UNIT CHR (PT)",99.301)=""
^DD(8973.1,"B","TOT MSG UNIT COUNT (NP)",99.502)=""
^DD(8973.1,"B","TOT MSG UNIT COUNT (PT&NP)",99.503)=""
^DD(8973.1,"B","TOT MSG UNIT COUNT (PT)",99.501)=""
^DD(8973.1,"B","TOT MSG UNIT MSGS",99.202)=""
^DD(8973.1,"B","TOT MSG UNIT MSGS (NP)",99.305)=""
^DD(8973.1,"B","TOT MSG UNIT MSGS (PT&NP)",99.308)=""
^DD(8973.1,"B","TOT MSG UNIT MSGS (PT)",99.302)=""
^DD(8973.1,"B","TOT MSG UNIT SEC",99.203)=""
^DD(8973.1,"B","TOT MSG UNIT SEC (NP)",99.306)=""
^DD(8973.1,"B","TOT MSG UNIT SEC (PT&NP)",99.309)=""
^DD(8973.1,"B","TOT MSG UNIT SEC (PT)",99.303)=""
^DD(8973.1,"B","TOT PROC CNT (CA-AA) (NP)",99.41)=""
^DD(8973.1,"B","TOT PROC CNT (CA-AA) (PT)",99.409)=""
^DD(8973.1,"B","TOT PROC TM (CA-AA) (NP)",99.408)=""
^DD(8973.1,"B","TOT PROC TM (CA-AA) (PT)",99.407)=""
^DD(8973.1,"B","TOT SECONDS (NP)",99.006)=""
^DD(8973.1,"B","TOT SECONDS (PT)",99.003)=""
^DD(8973.1,"B","TRANS MAIL TOT CHR (NP)",2.004)=""
^DD(8973.1,"B","TRANS MAIL TOT CHR (PT)",1.004)=""
^DD(8973.1,"B","TRANS MAIL TOT MESSAGES (NP)",2.005)=""
^DD(8973.1,"B","TRANS MAIL TOT MESSAGES (PT)",1.005)=""
^DD(8973.1,"B","TRANS MAIL TOT SECONDS (NP)",2.006)=""
^DD(8973.1,"B","TRANS MAIL TOT SECONDS (PT)",1.006)=""
^DD(8973.1,"B","TRANS TCP TOT CHR (NP)",2.001)=""
^DD(8973.1,"B","TRANS TCP TOT CHR (PT)",1.001)=""
^DD(8973.1,"B","TRANS TCP TOT MESSAGES (NP)",2.002)=""
^DD(8973.1,"B","TRANS TCP TOT MESSAGES (PT)",1.002)=""
^DD(8973.1,"B","TRANS TCP TOT SECONDS (NP)",2.003)=""
^DD(8973.1,"B","TRANS TCP TOT SECONDS (PT)",1.003)=""
^DD(8973.1,"B","TRANS UNK TOT CHR (NP)",2.007)=""
^DD(8973.1,"B","TRANS UNK TOT CHR (PT)",1.007)=""
^DD(8973.1,"B","TRANS UNK TOT MESSAGES (NP)",2.008)=""
^DD(8973.1,"B","TRANS UNK TOT MESSAGES (PT)",1.008)=""
^DD(8973.1,"B","TRANS UNK TOT SECONDS (NP)",2.009)=""
^DD(8973.1,"B","TRANS UNK TOT SECONDS (PT)",1.009)=""
^DD(8973.1,"GL",0,1,.01)=""
^DD(8973.1,"GL",0,2,.02)=""
^DD(8973.1,"GL",0,3,.03)=""
^DD(8973.1,"GL",0,5,.05)=""
^DD(8973.1,"GL",0,6,.06)=""
^DD(8973.1,"GL",1,1,1.001)=""
^DD(8973.1,"GL",1,2,1.002)=""
^DD(8973.1,"GL",1,3,1.003)=""
^DD(8973.1,"GL",1,4,1.004)=""
^DD(8973.1,"GL",1,5,1.005)=""
^DD(8973.1,"GL",1,6,1.006)=""
^DD(8973.1,"GL",1,7,1.007)=""
^DD(8973.1,"GL",1,8,1.008)=""
^DD(8973.1,"GL",1,9,1.009)=""
^DD(8973.1,"GL",1.1,1,1.101)=""
^DD(8973.1,"GL",1.1,2,1.102)=""
^DD(8973.1,"GL",1.1,3,1.103)=""
^DD(8973.1,"GL",1.1,4,1.104)=""
^DD(8973.1,"GL",1.1,5,1.105)=""
^DD(8973.1,"GL",1.1,6,1.106)=""
^DD(8973.1,"GL",1.1,7,1.107)=""
^DD(8973.1,"GL",1.1,8,1.108)=""
^DD(8973.1,"GL",1.1,9,1.109)=""
^DD(8973.1,"GL",1.2,1,1.201)=""
^DD(8973.1,"GL",1.2,2,1.202)=""
^DD(8973.1,"GL",1.2,3,1.203)=""
^DD(8973.1,"GL",1.2,4,1.204)=""
^DD(8973.1,"GL",1.2,5,1.205)=""
^DD(8973.1,"GL",1.2,6,1.206)=""
^DD(8973.1,"GL",1.2,7,1.207)=""
^DD(8973.1,"GL",1.2,8,1.208)=""
^DD(8973.1,"GL",1.2,9,1.209)=""
^DD(8973.1,"GL",2,1,2.001)=""
^DD(8973.1,"GL",2,2,2.002)=""
^DD(8973.1,"GL",2,3,2.003)=""
^DD(8973.1,"GL",2,4,2.004)=""
^DD(8973.1,"GL",2,5,2.005)=""
^DD(8973.1,"GL",2,6,2.006)=""
^DD(8973.1,"GL",2,7,2.007)=""
^DD(8973.1,"GL",2,8,2.008)=""
^DD(8973.1,"GL",2,9,2.009)=""
^DD(8973.1,"GL",2.1,1,2.101)=""
^DD(8973.1,"GL",2.1,2,2.102)=""
^DD(8973.1,"GL",2.1,3,2.103)=""
^DD(8973.1,"GL",2.1,4,2.104)=""
^DD(8973.1,"GL",2.1,5,2.105)=""
^DD(8973.1,"GL",2.1,6,2.106)=""
^DD(8973.1,"GL",2.1,7,2.107)=""
^DD(8973.1,"GL",2.1,8,2.108)=""
^DD(8973.1,"GL",2.1,9,2.109)=""
^DD(8973.1,"GL",2.2,1,2.201)=""
^DD(8973.1,"GL",2.2,2,2.202)=""
^DD(8973.1,"GL",2.2,3,2.203)=""
^DD(8973.1,"GL",2.2,4,2.204)=""
^DD(8973.1,"GL",2.2,5,2.205)=""
^DD(8973.1,"GL",2.2,6,2.206)=""
^DD(8973.1,"GL",2.2,7,2.207)=""
^DD(8973.1,"GL",2.2,8,2.208)=""
^DD(8973.1,"GL",2.2,9,2.209)=""
^DD(8973.1,"GL",5.1,9,5.109)=""
^DD(8973.1,"GL",5.1,10,5.11)=""
^DD(8973.1,"GL",5.1,11,5.111)=""
^DD(8973.1,"GL",5.1,12,5.112)=""
^DD(8973.1,"GL",5.1,13,5.113)=""
^DD(8973.1,"GL",5.1,14,5.114)=""
^DD(8973.1,"GL",5.1,15,5.115)=""
^DD(8973.1,"GL",5.1,16,5.116)=""
^DD(8973.1,"GL",5.1,17,5.117)=""
^DD(8973.1,"GL",5.2,9,5.209)=""
^DD(8973.1,"GL",5.2,10,5.21)=""
^DD(8973.1,"GL",5.2,11,5.211)=""
^DD(8973.1,"GL",5.2,12,5.212)=""
^DD(8973.1,"GL",5.2,13,5.213)=""
^DD(8973.1,"GL",5.2,14,5.214)=""
^DD(8973.1,"GL",5.2,15,5.215)=""
^DD(8973.1,"GL",5.2,16,5.216)=""
^DD(8973.1,"GL",5.2,17,5.217)=""
^DD(8973.1,"GL",5.3,9,5.309)=""
^DD(8973.1,"GL",5.3,10,5.31)=""
^DD(8973.1,"GL",5.3,11,5.311)=""
^DD(8973.1,"GL",5.3,12,5.312)=""
^DD(8973.1,"GL",5.3,13,5.313)=""
^DD(8973.1,"GL",5.3,14,5.314)=""
^DD(8973.1,"GL",5.3,15,5.315)=""
^DD(8973.1,"GL",5.3,16,5.316)=""
^DD(8973.1,"GL",5.3,17,5.317)=""
^DD(8973.1,"GL",5.4,9,5.409)=""
^DD(8973.1,"GL",5.4,10,5.41)=""
^DD(8973.1,"GL",5.4,11,5.411)=""
^DD(8973.1,"GL",5.4,12,5.412)=""
^DD(8973.1,"GL",5.4,13,5.413)=""
^DD(8973.1,"GL",5.4,14,5.414)=""
^DD(8973.1,"GL",5.4,15,5.415)=""
^DD(8973.1,"GL",5.4,16,5.416)=""
^DD(8973.1,"GL",5.4,17,5.417)=""
^DD(8973.1,"GL",5.5,9,5.509)=""
^DD(8973.1,"GL",5.5,10,5.51)=""
^DD(8973.1,"GL",5.5,11,5.511)=""
^DD(8973.1,"GL",5.5,12,5.512)=""
^DD(8973.1,"GL",5.5,13,5.513)=""
^DD(8973.1,"GL",5.5,14,5.514)=""
^DD(8973.1,"GL",5.5,15,5.515)=""
^DD(8973.1,"GL",5.5,16,5.516)=""
^DD(8973.1,"GL",5.5,17,5.517)=""
^DD(8973.1,"GL",5.7,9,5.709)=""
^DD(8973.1,"GL",5.7,10,5.71)=""
^DD(8973.1,"GL",5.7,11,5.711)=""
^DD(8973.1,"GL",5.7,12,5.712)=""
^DD(8973.1,"GL",5.7,13,5.713)=""
^DD(8973.1,"GL",5.7,14,5.714)=""
^DD(8973.1,"GL",5.7,15,5.715)=""
^DD(8973.1,"GL",5.7,16,5.716)=""
^DD(8973.1,"GL",5.7,17,5.717)=""
^DD(8973.1,"GL",5.8,9,5.809)=""
^DD(8973.1,"GL",5.8,10,5.81)=""
^DD(8973.1,"GL",5.8,11,5.811)=""
^DD(8973.1,"GL",5.8,12,5.812)=""
^DD(8973.1,"GL",5.8,13,5.813)=""
^DD(8973.1,"GL",5.8,14,5.814)=""
^DD(8973.1,"GL",5.8,15,5.815)=""
^DD(8973.1,"GL",5.8,16,5.816)=""
^DD(8973.1,"GL",5.8,17,5.817)=""
^DD(8973.1,"GL",5.9,9,5.909)=""
^DD(8973.1,"GL",5.9,10,5.91)=""
^DD(8973.1,"GL",5.9,11,5.911)=""
^DD(8973.1,"GL",5.9,12,5.912)=""
^DD(8973.1,"GL",5.9,13,5.913)=""
^DD(8973.1,"GL",5.9,14,5.914)=""
^DD(8973.1,"GL",5.9,15,5.915)=""
^DD(8973.1,"GL",5.9,16,5.916)=""
^DD(8973.1,"GL",5.9,17,5.917)=""
^DD(8973.1,"GL",6.1,1,6.101)=""
^DD(8973.1,"GL",6.1,2,6.102)=""
^DD(8973.1,"GL",6.1,3,6.103)=""
^DD(8973.1,"GL",6.1,4,6.104)=""
^DD(8973.1,"GL",6.1,5,6.105)=""
^DD(8973.1,"GL",6.1,6,6.106)=""
^DD(8973.1,"GL",6.1,7,6.107)=""
^DD(8973.1,"GL",6.1,8,6.108)=""
^DD(8973.1,"GL",6.1,9,6.109)=""
^DD(8973.1,"GL",6.1,10,6.11)=""
^DD(8973.1,"GL",6.1,11,6.111)=""
^DD(8973.1,"GL",6.1,12,6.112)=""
^DD(8973.1,"GL",6.1,13,6.113)=""
^DD(8973.1,"GL",6.1,14,6.114)=""
^DD(8973.1,"GL",6.1,15,6.115)=""
^DD(8973.1,"GL",6.1,16,6.116)=""
^DD(8973.1,"GL",6.1,17,6.117)=""
^DD(8973.1,"GL",6.1,18,6.118)=""
^DD(8973.1,"GL",6.1,19,6.119)=""
^DD(8973.1,"GL",6.1,20,6.12)=""
^DD(8973.1,"GL",6.1,21,6.121)=""
^DD(8973.1,"GL",6.1,22,6.122)=""
^DD(8973.1,"GL",6.1,23,6.123)=""
^DD(8973.1,"GL",6.1,24,6.124)=""
^DD(8973.1,"GL",6.2,1,6.201)=""
^DD(8973.1,"GL",6.2,2,6.202)=""
^DD(8973.1,"GL",6.2,3,6.203)=""
^DD(8973.1,"GL",6.2,4,6.204)=""
^DD(8973.1,"GL",6.2,5,6.205)=""
^DD(8973.1,"GL",6.2,6,6.206)=""
^DD(8973.1,"GL",6.2,7,6.207)=""
^DD(8973.1,"GL",6.2,8,6.208)=""
^DD(8973.1,"GL",6.2,9,6.209)=""
^DD(8973.1,"GL",6.2,10,6.21)=""
^DD(8973.1,"GL",6.2,11,6.211)=""
^DD(8973.1,"GL",6.2,12,6.212)=""
^DD(8973.1,"GL",6.2,13,6.213)=""
^DD(8973.1,"GL",6.2,14,6.214)=""
^DD(8973.1,"GL",6.2,15,6.215)=""
^DD(8973.1,"GL",6.2,16,6.216)=""
^DD(8973.1,"GL",6.2,17,6.217)=""
^DD(8973.1,"GL",6.2,18,6.218)=""
^DD(8973.1,"GL",6.2,19,6.219)=""
^DD(8973.1,"GL",6.2,20,6.22)=""
^DD(8973.1,"GL",6.2,21,6.221)=""
^DD(8973.1,"GL",6.2,22,6.222)=""
^DD(8973.1,"GL",6.2,23,6.223)=""
^DD(8973.1,"GL",6.2,24,6.224)=""
^DD(8973.1,"GL",6.3,1,6.301)=""
^DD(8973.1,"GL",6.3,2,6.302)=""
^DD(8973.1,"GL",6.3,3,6.303)=""
^DD(8973.1,"GL",6.3,4,6.304)=""
^DD(8973.1,"GL",6.3,5,6.305)=""
^DD(8973.1,"GL",6.3,6,6.306)=""
^DD(8973.1,"GL",6.3,7,6.307)=""
^DD(8973.1,"GL",6.3,8,6.308)=""
^DD(8973.1,"GL",6.3,9,6.309)=""
^DD(8973.1,"GL",6.3,10,6.31)=""
^DD(8973.1,"GL",6.3,11,6.311)=""
^DD(8973.1,"GL",6.3,12,6.312)=""
^DD(8973.1,"GL",6.3,13,6.313)=""
^DD(8973.1,"GL",6.3,14,6.314)=""
^DD(8973.1,"GL",6.3,15,6.315)=""
^DD(8973.1,"GL",6.3,16,6.316)=""
^DD(8973.1,"GL",6.3,17,6.317)=""
^DD(8973.1,"GL",6.3,18,6.318)=""
^DD(8973.1,"GL",6.3,19,6.319)=""
^DD(8973.1,"GL",6.3,20,6.32)=""
^DD(8973.1,"GL",6.3,21,6.321)=""
^DD(8973.1,"GL",6.3,22,6.322)=""
^DD(8973.1,"GL",6.3,23,6.323)=""
^DD(8973.1,"GL",6.3,24,6.324)=""
^DD(8973.1,"GL",6.4,1,6.401)=""
^DD(8973.1,"GL",6.4,2,6.402)=""
^DD(8973.1,"GL",6.4,3,6.403)=""
^DD(8973.1,"GL",6.4,4,6.404)=""
^DD(8973.1,"GL",6.4,5,6.405)=""
^DD(8973.1,"GL",6.4,6,6.406)=""
^DD(8973.1,"GL",6.4,7,6.407)=""
^DD(8973.1,"GL",6.4,8,6.408)=""
^DD(8973.1,"GL",6.4,9,6.409)=""
^DD(8973.1,"GL",6.4,10,6.41)=""
^DD(8973.1,"GL",6.4,11,6.411)=""
^DD(8973.1,"GL",6.4,12,6.412)=""
^DD(8973.1,"GL",6.4,13,6.413)=""
^DD(8973.1,"GL",6.4,14,6.414)=""
^DD(8973.1,"GL",6.4,15,6.415)=""
^DD(8973.1,"GL",6.4,16,6.416)=""
^DD(8973.1,"GL",6.4,17,6.417)=""
^DD(8973.1,"GL",6.4,18,6.418)=""
^DD(8973.1,"GL",6.4,19,6.419)=""
^DD(8973.1,"GL",6.4,20,6.42)=""
^DD(8973.1,"GL",6.4,21,6.421)=""
^DD(8973.1,"GL",6.4,22,6.422)=""
^DD(8973.1,"GL",6.4,23,6.423)=""
^DD(8973.1,"GL",6.4,24,6.424)=""
^DD(8973.1,"GL",6.5,1,6.501)=""
^DD(8973.1,"GL",6.5,2,6.502)=""
^DD(8973.1,"GL",6.5,3,6.503)=""
^DD(8973.1,"GL",6.5,4,6.504)=""
^DD(8973.1,"GL",6.5,5,6.505)=""
^DD(8973.1,"GL",6.5,6,6.506)=""
^DD(8973.1,"GL",6.5,7,6.507)=""
^DD(8973.1,"GL",6.5,8,6.508)=""
^DD(8973.1,"GL",6.5,9,6.509)=""
^DD(8973.1,"GL",6.5,10,6.51)=""
^DD(8973.1,"GL",6.5,11,6.511)=""
^DD(8973.1,"GL",6.5,12,6.512)=""
^DD(8973.1,"GL",6.5,13,6.513)=""
^DD(8973.1,"GL",6.5,14,6.514)=""
^DD(8973.1,"GL",6.5,15,6.515)=""
^DD(8973.1,"GL",6.5,16,6.516)=""
^DD(8973.1,"GL",6.5,17,6.517)=""
^DD(8973.1,"GL",6.5,18,6.518)=""
^DD(8973.1,"GL",6.5,19,6.519)=""
^DD(8973.1,"GL",6.5,20,6.52)=""
^DD(8973.1,"GL",6.5,21,6.521)=""
^DD(8973.1,"GL",6.5,22,6.522)=""
^DD(8973.1,"GL",6.5,23,6.523)=""
^DD(8973.1,"GL",6.5,24,6.524)=""
^DD(8973.1,"GL",6.7,1,6.701)=""
^DD(8973.1,"GL",6.7,2,6.702)=""
^DD(8973.1,"GL",6.7,3,6.703)=""
^DD(8973.1,"GL",6.7,4,6.704)=""
^DD(8973.1,"GL",6.7,5,6.705)=""
^DD(8973.1,"GL",6.7,6,6.706)=""
^DD(8973.1,"GL",6.7,7,6.707)=""
^DD(8973.1,"GL",6.7,8,6.708)=""
^DD(8973.1,"GL",6.7,9,6.709)=""
^DD(8973.1,"GL",6.7,10,6.71)=""
^DD(8973.1,"GL",6.7,11,6.711)=""
^DD(8973.1,"GL",6.7,12,6.712)=""
^DD(8973.1,"GL",6.7,13,6.713)=""
^DD(8973.1,"GL",6.7,14,6.714)=""
^DD(8973.1,"GL",6.7,15,6.715)=""
^DD(8973.1,"GL",6.7,16,6.716)=""
^DD(8973.1,"GL",6.7,17,6.717)=""
^DD(8973.1,"GL",6.7,18,6.718)=""
^DD(8973.1,"GL",6.7,19,6.719)=""
^DD(8973.1,"GL",6.7,20,6.72)=""
^DD(8973.1,"GL",6.7,21,6.721)=""
^DD(8973.1,"GL",6.7,22,6.722)=""
^DD(8973.1,"GL",6.7,23,6.723)=""
^DD(8973.1,"GL",6.7,24,6.724)=""
^DD(8973.1,"GL",6.8,1,6.801)=""
^DD(8973.1,"GL",6.8,2,6.802)=""
^DD(8973.1,"GL",6.8,3,6.803)=""
^DD(8973.1,"GL",6.8,4,6.804)=""
^DD(8973.1,"GL",6.8,5,6.805)=""
^DD(8973.1,"GL",6.8,6,6.806)=""
^DD(8973.1,"GL",6.8,7,6.807)=""
^DD(8973.1,"GL",6.8,8,6.808)=""
^DD(8973.1,"GL",6.8,9,6.809)=""
^DD(8973.1,"GL",6.8,10,6.81)=""
^DD(8973.1,"GL",6.8,11,6.811)=""
^DD(8973.1,"GL",6.8,12,6.812)=""
^DD(8973.1,"GL",6.8,13,6.813)=""
^DD(8973.1,"GL",6.8,14,6.814)=""
^DD(8973.1,"GL",6.8,15,6.815)=""
^DD(8973.1,"GL",6.8,16,6.816)=""
^DD(8973.1,"GL",6.8,17,6.817)=""
^DD(8973.1,"GL",6.8,18,6.818)=""
^DD(8973.1,"GL",6.8,19,6.819)=""
^DD(8973.1,"GL",6.8,20,6.82)=""
^DD(8973.1,"GL",6.8,21,6.821)=""
^DD(8973.1,"GL",6.8,22,6.822)=""
^DD(8973.1,"GL",6.8,23,6.823)=""
^DD(8973.1,"GL",6.8,24,6.824)=""
^DD(8973.1,"GL",6.9,1,6.901)=""
^DD(8973.1,"GL",6.9,2,6.902)=""
^DD(8973.1,"GL",6.9,3,6.903)=""
^DD(8973.1,"GL",6.9,4,6.904)=""
^DD(8973.1,"GL",6.9,5,6.905)=""
^DD(8973.1,"GL",6.9,6,6.906)=""
^DD(8973.1,"GL",6.9,7,6.907)=""
^DD(8973.1,"GL",6.9,8,6.908)=""
^DD(8973.1,"GL",6.9,9,6.909)=""
^DD(8973.1,"GL",6.9,10,6.91)=""
^DD(8973.1,"GL",6.9,11,6.911)=""
^DD(8973.1,"GL",6.9,12,6.912)=""
^DD(8973.1,"GL",6.9,13,6.913)=""
^DD(8973.1,"GL",6.9,14,6.914)=""
^DD(8973.1,"GL",6.9,15,6.915)=""
^DD(8973.1,"GL",6.9,16,6.916)=""
^DD(8973.1,"GL",6.9,17,6.917)=""
^DD(8973.1,"GL",6.9,18,6.918)=""
^DD(8973.1,"GL",6.9,19,6.919)=""
^DD(8973.1,"GL",6.9,20,6.92)=""
^DD(8973.1,"GL",6.9,21,6.921)=""
^DD(8973.1,"GL",6.9,22,6.922)=""
^DD(8973.1,"GL",6.9,23,6.923)=""
^DD(8973.1,"GL",6.9,24,6.924)=""
^DD(8973.1,"GL",99,1,99.001)=""
^DD(8973.1,"GL",99,2,99.002)=""
^DD(8973.1,"GL",99,3,99.003)=""
^DD(8973.1,"GL",99,4,99.004)=""
^DD(8973.1,"GL",99,5,99.005)=""
^DD(8973.1,"GL",99,6,99.006)=""
^DD(8973.1,"GL",99.2,1,99.201)=""
^DD(8973.1,"GL",99.2,2,99.202)=""
^DD(8973.1,"GL",99.2,3,99.203)=""
^DD(8973.1,"GL",99.2,6,99.206)=""
^DD(8973.1,"GL",99.2,7,99.207)=""
^DD(8973.1,"GL",99.2,8,99.208)=""
^DD(8973.1,"GL",99.2,9,99.209)=""
^DD(8973.1,"GL",99.2,10,99.21)=""
^DD(8973.1,"GL",99.2,11,99.211)=""
^DD(8973.1,"GL",99.2,12,99.212)=""
^DD(8973.1,"GL",99.2,13,99.213)=""
^DD(8973.1,"GL",99.3,1,99.301)=""
^DD(8973.1,"GL",99.3,2,99.302)=""
^DD(8973.1,"GL",99.3,3,99.303)=""
^DD(8973.1,"GL",99.3,4,99.304)=""
^DD(8973.1,"GL",99.3,5,99.305)=""
^DD(8973.1,"GL",99.3,6,99.306)=""
^DD(8973.1,"GL",99.3,7,99.307)=""
^DD(8973.1,"GL",99.3,8,99.308)=""
^DD(8973.1,"GL",99.3,9,99.309)=""
^DD(8973.1,"GL",99.4,1,99.401)=""
^DD(8973.1,"GL",99.4,2,99.402)=""
^DD(8973.1,"GL",99.4,3,99.403)=""
^DD(8973.1,"GL",99.4,4,99.404)=""
^DD(8973.1,"GL",99.4,5,99.405)=""
^DD(8973.1,"GL",99.4,6,99.406)=""
^DD(8973.1,"GL",99.4,7,99.407)=""
^DD(8973.1,"GL",99.4,8,99.408)=""
^DD(8973.1,"GL",99.4,9,99.409)=""
^DD(8973.1,"GL",99.4,10,99.41)=""
^DD(8973.1,"GL",99.4,11,99.411)=""
^DD(8973.1,"GL",99.4,12,99.412)=""
^DD(8973.1,"GL",99.4,13,99.413)=""
^DD(8973.1,"GL",99.4,14,99.414)=""
^DD(8973.1,"GL",99.4,15,99.415)=""
^DD(8973.1,"GL",99.4,16,99.416)=""
^DD(8973.1,"GL",99.5,1,99.501)=""
^DD(8973.1,"GL",99.5,2,99.502)=""
^DD(8973.1,"GL",99.5,3,99.503)=""
^DD(8973.1,"IX",.01)=""
^DD(8973.1,"IX",.05)=""
^DD(8973.1,"IX",.06)=""
^DD(8973.1,"IX",99.212)=""
^DD(8973.1,"RQ",.01)=""
^DD(8973.2,0)="FIELD^^.1^10"
^DD(8973.2,0,"DT")="3040210"
^DD(8973.2,0,"ID","W")="D:$G(Y) ID1^KMPDUT2(Y)"
^DD(8973.2,0,"IX","ACLNM",8973.2,.06)=""
^DD(8973.2,0,"IX","ADT",8973.2,.03)=""
^DD(8973.2,0,"IX","ANEWPER",8973.2,.05)=""
^DD(8973.2,0,"IX","ASSCLDTTM",8973.2,.07)=""
^DD(8973.2,0,"IX","ASSDTPT",8973.2,.07)=""
^DD(8973.2,0,"IX","ASSDTTM",8973.2,.07)=""
^DD(8973.2,0,"IX","ASSIPDTTM",8973.2,.07)=""
^DD(8973.2,0,"IX","ASSNPDTTM",8973.2,.07)=""
^DD(8973.2,0,"IX","ASTDTTM",8973.2,.03)=""
^DD(8973.2,0,"IX","ASVDTSS",8973.2,.07)=""
^DD(8973.2,0,"IX","ATITLE",8973.2,.08)=""
^DD(8973.2,0,"IX","ATMPSS",8973.2,.07)=""
^DD(8973.2,0,"IX","B",8973.2,.01)=""
^DD(8973.2,0,"IX","C",8973.2,.03)=""
^DD(8973.2,0,"NM","CP TIMING")=""
^DD(8973.2,0,"VR")="2.0"
^DD(8973.2,0,"VRPK")="CAPACITY MANAGEMENT TOOLS"
^DD(8973.2,.01,0)="IDENTIFIER^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(8973.2,.01,1,0)="^.1"
^DD(8973.2,.01,1,1,0)="8973.2^B"
^DD(8973.2,.01,1,1,1)="S ^KMPD(8973.2,""B"",$E(X,1,40),DA)="""""
^DD(8973.2,.01,1,1,2)="K ^KMPD(8973.2,""B"",$E(X,1,40),DA)"
^DD(8973.2,.01,3)="Answer must be 3-40 characters in length"
^DD(8973.2,.01,"DT")="3030715"
^DD(8973.2,.02,0)="SENT TO NATIONAL DATABASE^S^0:NO;1:YES;^0;2^Q"
^DD(8973.2,.02,"DT")="3030715"
^DD(8973.2,.03,0)="SERVER START DATE/TIME^D^^0;3^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(8973.2,.03,1,0)="^.1"
^DD(8973.2,.03,1,1,0)="8973.2^ASTDTTM"
^DD(8973.2,.03,1,1,1)="S ^KMPD(8973.2,""ASTDTTM"",$E(X,1,30),DA)="""""
^DD(8973.2,.03,1,1,2)="K ^KMPD(8973.2,""ASTDTTM"",$E(X,1,30),DA)"
^DD(8973.2,.03,1,1,"%D",0)="^^1^1^3030715^"
^DD(8973.2,.03,1,1,"%D",1,0)="^KMPD(8973.2,""ASTDTTM"",StartDateTime,X)="""""
^DD(8973.2,.03,1,1,"DT")="3030715"
^DD(8973.2,.03,1,2,0)="8973.2^C"
^DD(8973.2,.03,1,2,1)="S ^KMPD(8973.2,""C"",$E(X,1,30),DA)="""""
^DD(8973.2,.03,1,2,2)="K ^KMPD(8973.2,""C"",$E(X,1,30),DA)"
^DD(8973.2,.03,1,2,"DT")="3030805"
^DD(8973.2,.03,1,3,0)="8973.2^ADT^MUMPS"
^DD(8973.2,.03,1,3,1)="S:$P(X,""."") ^KMPD(8973.2,""ADT"",$P(X,"".""),DA)="""""
^DD(8973.2,.03,1,3,2)="K:$P(X,""."") ^KMPD(8973.2,""ADT"",$P(X,"".""),DA)"
^DD(8973.2,.03,1,3,"%D",0)="^^1^1^3031211^"
^DD(8973.2,.03,1,3,"%D",1,0)="^KMPD(8973.2,""ADT"",Date,Ien)="""""
^DD(8973.2,.03,1,3,"DT")="3031211"
^DD(8973.2,.03,3)="(No range limit on date)"
^DD(8973.2,.03,"DT")="3031211"
^DD(8973.2,.04,0)="SERVER DELTA^F^^0;4^K:$L(X)>15!($L(X)<1) X"
^DD(8973.2,.04,3)="Answer must be 1-15 characters in length"
^DD(8973.2,.04,"DT")="3030718"
^DD(8973.2,.05,0)="NEW PERSON^P200'^VA(200,^0;5^Q"
^DD(8973.2,.05,1,0)="^.1"
^DD(8973.2,.05,1,1,0)="8973.2^ANEWPER"
^DD(8973.2,.05,1,1,1)="S ^KMPD(8973.2,""ANEWPER"",$E(X,1,30),DA)="""""
^DD(8973.2,.05,1,1,2)="K ^KMPD(8973.2,""ANEWPER"",$E(X,1,30),DA)"
^DD(8973.2,.05,1,1,"%D",0)="^^1^1^3030715^"
^DD(8973.2,.05,1,1,"%D",1,0)="^KMPD(8973.2,""ANEWPER"",NewPerson,X)="""""
^DD(8973.2,.05,1,1,"DT")="3030715"
^DD(8973.2,.05,"DT")="3030715"
^DD(8973.2,.06,0)="CLIENT NAME^F^^0;6^K:$L(X)>40!($L(X)<1) X"
^DD(8973.2,.06,1,0)="^.1^^0"
^DD(8973.2,.06,1,1,0)="8973.2^ACLNM"
^DD(8973.2,.06,1,1,1)="S ^KMPD(8973.2,""ACLNM"",$E(X,1,30),DA)="""""
^DD(8973.2,.06,1,1,2)="K ^KMPD(8973.2,""ACLNM"",$E(X,1,30),DA)"
^DD(8973.2,.06,1,1,"%D",0)="^^1^1^3030715^"
^DD(8973.2,.06,1,1,"%D",1,0)="^KMPD(8973.2,""ACLNM"",ClientName,X)="""""
^DD(8973.2,.06,1,1,"DT")="3030715"
^DD(8973.2,.06,3)="Answer must be 1-40 characters in length"
^DD(8973.2,.06,"DT")="3030826"
^DD(8973.2,.07,0)="KMPTMP SUBSCRIPT^F^^0;7^K:$L(X)>12!($L(X)<1) X"
^DD(8973.2,.07,1,0)="^.1"
^DD(8973.2,.07,1,1,0)="8973.2^ATMPSS"
^DD(8973.2,.07,1,1,1)="S ^KMPD(8973.2,""ATMPSS"",$E(X,1,30),DA)="""""
^DD(8973.2,.07,1,1,2)="K ^KMPD(8973.2,""ATMPSS"",$E(X,1,30),DA)"
^DD(8973.2,.07,1,1,"%D",0)="^^1^1^3030715^"
^DD(8973.2,.07,1,1,"%D",1,0)="^KMPD(8973.2,""ATMPSS"",KmptmpSubscript,X)="""""
^DD(8973.2,.07,1,1,"DT")="3030715"
^DD(8973.2,.07,1,2,0)="8973.2^ASVDTSS^MUMPS"
^DD(8973.2,.07,1,2,1)="D XREFT1^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.2,.07,1,2,2)="D XREFT1^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.2,.07,1,2,"%D",0)="^^1^1^3030722^"
^DD(8973.2,.07,1,2,"%D",1,0)="^KMPD(8973.2,""ASVDTSS"",KmptmpSubscript,ServerDate,Ien)="""""
^DD(8973.2,.07,1,2,"DT")="3030722"
^DD(8973.2,.07,1,3,0)="8973.2^ASSDTPT^MUMPS"
^DD(8973.2,.07,1,3,1)="D XREFT2^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.2,.07,1,3,2)="D XREFT2^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.2,.07,1,3,"%D",0)="^^1^1^3030723^"
^DD(8973.2,.07,1,3,"%D",1,0)="^KMPD(8973.2,""ASSDTPT"",KmptmpSubscript,ServerDateTime,PrimeTime,DA)="""""
^DD(8973.2,.07,1,3,"DT")="3030723"
^DD(8973.2,.07,1,4,0)="8973.2^ASSDTTM^MUMPS"
^DD(8973.2,.07,1,4,1)="D XREFT3^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.2,.07,1,4,2)="D XREFT3^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.2,.07,1,4,"%D",0)="^^1^1^3030813^"
^DD(8973.2,.07,1,4,"%D",1,0)="^KMPD(8973.2,""ASSDTTM"",KmptmpSusbscript,ServerDateTime,Ien)="""""
^DD(8973.2,.07,1,4,"DT")="3030813"
^DD(8973.2,.07,1,5,0)="8973.2^ASSCLDTTM^MUMPS"
^DD(8973.2,.07,1,5,1)="D XREFT4^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.2,.07,1,5,2)="D XREFT4^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.2,.07,1,5,"%D",0)="^^1^1^3030826^"
^DD(8973.2,.07,1,5,"%D",1,0)="S ^KMPD(8973.2,""ASSCLDTTM"",KmptmpSubscript,ClientName,ServerDateTime,DA)"
^DD(8973.2,.07,1,5,"DT")="3030826"
^DD(8973.2,.07,1,6,0)="8973.2^ASSNPDTTM^MUMPS"
^DD(8973.2,.07,1,6,1)="D XREFT5^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.2,.07,1,6,2)="D XREFT5^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.2,.07,1,6,"%D",0)="^^1^1^3030828^"
^DD(8973.2,.07,1,6,"%D",1,0)="^KMPD(8973.2,""ASSNPDTTM"",KmptmpSubscript,NewPerson,ServerDateTime,DA)="""""
^DD(8973.2,.07,1,6,"DT")="3030828"
^DD(8973.2,.07,1,7,0)="8973.2^ASSIPDTTM^MUMPS"
^DD(8973.2,.07,1,7,1)="D XREFT6^KMPDUT2($G(DA),$G(X),1)"
^DD(8973.2,.07,1,7,2)="D XREFT6^KMPDUT2($G(DA),$G(X),2)"
^DD(8973.2,.07,1,7,"%D",0)="^^1^1^3030828^"
^DD(8973.2,.07,1,7,"%D",1,0)="^KMPD(8973.2,""ASSIPDTTM"",KmptmpSubscript,IpAddress,ServerDateTime,DA)="""""
^DD(8973.2,.07,1,7,"DT")="3030828"
^DD(8973.2,.07,3)="Answer must be 1-12 characters in length"
^DD(8973.2,.07,"DT")="3030828"
^DD(8973.2,.08,0)="TITLE^F^^0;8^K:$L(X)>30!($L(X)<1) X"
^DD(8973.2,.08,1,0)="^.1"
^DD(8973.2,.08,1,1,0)="8973.2^ATITLE"
^DD(8973.2,.08,1,1,1)="S ^KMPD(8973.2,""ATITLE"",$E(X,1,30),DA)="""""
^DD(8973.2,.08,1,1,2)="K ^KMPD(8973.2,""ATITLE"",$E(X,1,30),DA)"
^DD(8973.2,.08,1,1,"%D",0)="^^1^1^3030715^"
^DD(8973.2,.08,1,1,"%D",1,0)="^KMPD(8973.2,""ATITLE"",Title,X)="""""
^DD(8973.2,.08,1,1,"DT")="3030715"
^DD(8973.2,.08,3)="Answer must be 1-30 characters in length"
^DD(8973.2,.08,"DT")="3030715"
^DD(8973.2,.09,0)="IP ADDRESS^F^^0;9^K:$L(X)>15!($L(X)<1) X"
^DD(8973.2,.09,3)="Answer must be 1-15 characters in length"
^DD(8973.2,.09,"DT")="3030716"
^DD(8973.2,.1,0)="DAILY - SENT TO NATIONAL DB^S^0:NO;1:YES;^0;10^Q"
^DD(8973.2,.1,"DT")="3040210"
^DD(8973.2,"B","CLIENT NAME",.06)=""
^DD(8973.2,"B","DAILY - SENT TO NATIONAL DB",.1)=""
^DD(8973.2,"B","IDENTIFIER",.01)=""
^DD(8973.2,"B","IP ADDRESS",.09)=""
^DD(8973.2,"B","KMPTMP SUBSCRIPT",.07)=""
^DD(8973.2,"B","NEW PERSON",.05)=""
^DD(8973.2,"B","SENT TO NATIONAL DATABASE",.02)=""
^DD(8973.2,"B","SERVER DELTA",.04)=""
^DD(8973.2,"B","SERVER START DATE/TIME",.03)=""
^DD(8973.2,"B","TITLE",.08)=""
^DD(8973.2,"GL",0,1,.01)=""
^DD(8973.2,"GL",0,2,.02)=""
^DD(8973.2,"GL",0,3,.03)=""
^DD(8973.2,"GL",0,4,.04)=""
^DD(8973.2,"GL",0,5,.05)=""
^DD(8973.2,"GL",0,6,.06)=""
^DD(8973.2,"GL",0,7,.07)=""
^DD(8973.2,"GL",0,8,.08)=""
^DD(8973.2,"GL",0,9,.09)=""
^DD(8973.2,"GL",0,10,.1)=""
^DD(8973.2,"IX",.01)=""
^DD(8973.2,"IX",.03)=""
^DD(8973.2,"IX",.05)=""
^DD(8973.2,"IX",.06)=""
^DD(8973.2,"IX",.07)=""
^DD(8973.2,"IX",.08)=""
^DD(8973.2,"RQ",.01)=""
^DD(8973.201,0)="CPU SUB-FIELD^^.05^5"
^DD(8973.201,0,"DT")="3031125"
^DD(8973.201,0,"IX","B",8973.201,.01)=""
^DD(8973.201,0,"NM","CPU")=""
^DD(8973.201,0,"UP")="8973"
^DD(8973.201,.01,0)="NODE^F^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(8973.201,.01,1,0)="^.1"
^DD(8973.201,.01,1,1,0)="8973.201^B"
^DD(8973.201,.01,1,1,1)="S ^KMPD(8973,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(8973.201,.01,1,1,2)="K ^KMPD(8973,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(8973.201,.01,3)="Node name. Answer must be 1-30 characters in length"
^DD(8973.201,.01,"DT")="3040401"
^DD(8973.201,.02,0)="TYPE OF CPU^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(8973.201,.02,3)="Type of CPU for this node. Answer must be 1-60 characters in length"
^DD(8973.201,.02,"DT")="3040401"
^DD(8973.201,.03,0)="NUMBER OF PROCESSORS^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1.N) X"
^DD(8973.201,.03,3)="Number of processors for this node. Type a number between 0 and 999, 0 Decimal Digits"
^DD(8973.201,.03,"DT")="3040401"
^DD(8973.201,.04,0)="PROCESSOR SPEED^F^^0;4^K:$L(X)>20!($L(X)<1) X"
^DD(8973.201,.04,3)="Processor speed for this node. Answer must be 1-20 characters in length"
^DD(8973.201,.04,"DT")="3040401"
^DD(8973.201,.05,0)="AMOUNT OF MEMORY^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(8973.201,.05,3)="Amount of memory for this node. Answer must be 1-20 characters in length"
^DD(8973.201,.05,"DT")="3040401"
^DD(8973.201,"B","AMOUNT OF MEMORY",.05)=""
^DD(8973.201,"B","NODE",.01)=""
^DD(8973.201,"B","NUMBER OF PROCESSORS",.03)=""
^DD(8973.201,"B","PROCESSOR SPEED",.04)=""
^DD(8973.201,"B","TYPE OF CPU",.02)=""
^DD(8973.201,"GL",0,1,.01)=""
^DD(8973.201,"GL",0,2,.02)=""
^DD(8973.201,"GL",0,3,.03)=""
^DD(8973.201,"GL",0,4,.04)=""
^DD(8973.201,"GL",0,5,.05)=""
^DD(8973.201,"IX",.01)=""
^DD(8980,0)="FIELD^^21^8"
^DD(8980,0,"DDA")="N"
^DD(8980,0,"DT")="2890908"
^DD(8980,0,"IX","AB",8980.01,.01)=""
^DD(8980,0,"IX","AOK",8980,4)=""
^DD(8980,0,"IX","B",8980,.01)=""
^DD(8980,0,"NM","KERMIT HOLDING")=""
^DD(8980,0,"SCR")="I $D(^XUSEC(""XUMGR"",DUZ))!$D(^DIZ(8980,""AOK"",DUZ,Y))"
^DD(8980,0,"VR")="7.3"
^DD(8980,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8980,.01,1,0)="^.1"
^DD(8980,.01,1,1,0)="8980^B"
^DD(8980,.01,1,1,1)="S ^DIZ(8980,""B"",$E(X,1,30),DA)="""""
^DD(8980,.01,1,1,2)="K ^DIZ(8980,""B"",$E(X,1,30),DA)"
^DD(8980,.01,1,2,0)="^^TRIGGER^8980^4"
^DD(8980,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIZ(8980,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DUZ X ^DD(8980,.01,1,2,1.4)"
^DD(8980,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^DIZ(8980,D0,0)):^(0),1:"""") S X=$S('$D(^VA(200,+$P(Y(1),U,5),0)):"""",1:$P(^(0),U,1))="""""
^DD(8980,.01,1,2,1.4)="S DIH=$S($D(^DIZ(8980,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,5)=DIV,DIH=8980,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8980,.01,1,2,2)="Q"
^DD(8980,.01,1,2,3)="Needed as part of the security screen."
^DD(8980,.01,1,2,"CREATE CONDITION")="CREATOR="""""
^DD(8980,.01,1,2,"CREATE VALUE")="S X=DUZ"
^DD(8980,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(8980,.01,1,2,"DT")="2890908"
^DD(8980,.01,1,2,"FIELD")="CREATOR"
^DD(8980,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8980,.01,21,0)="^^1^1^2920518^^^^"
^DD(8980,.01,21,1,0)="This is a name used to identify the KERMIT file."
^DD(8980,.01,"DT")="2890908"
^DD(8980,1,0)="DATE/TIME LAST ACCESSED^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8980,1,5,1,0)="8980^4^1"
^DD(8980,1,9)="^"
^DD(8980,1,21,0)="^^1^1^2920518^^^^"
^DD(8980,1,21,1,0)="This holds the date/time that the KERMIT routines last access this entry."
^DD(8980,2,0)="Replace File Name^RS^n:NO;y:YES;^0;3^Q"
^DD(8980,2,3)="Should the name be replaced by the RECIEVED file name?"
^DD(8980,2,21,0)="^^2^2^2950105^"
^DD(8980,2,21,1,0)="If this field is set to YES then KERMIT will replace the name with"
^DD(8980,2,21,2,0)="the FILE NAME received from the remote computer."
^DD(8980,2,"DT")="2880725"
^DD(8980,3,0)="KERMIT transfer mode^RS^0:IMAGE;1:DATA;2:TEXT;^0;4^Q"
^DD(8980,3,3)="This is the transfer mode that kermit used to load this data."
^DD(8980,3,21,0)="^^4^4^2920518^^"
^DD(8980,3,21,1,0)="This holds a flag that tells KERMIT how to handle the tranfered data."
^DD(8980,3,21,2,0)="TEXT will wrap the data in a WP type style."
^DD(8980,3,21,3,0)="DATA will only wrap if the line in greater than 255."
^DD(8980,3,21,4,0)="IMAGE stores the KERMIT packets just as they arrive."
^DD(8980,3,"DT")="2880725"
^DD(8980,4,0)="CREATOR^RP200'^VA(200,^0;5^Q"
^DD(8980,4,1,0)="^.1"
^DD(8980,4,1,1,0)="^^TRIGGER^8980^1"
^DD(8980,4,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DIZ(8980,D0,0)):^(0),1:"""") S X=$P(Y(1),U,2) S DIU=X K Y S X=DIV S X=DT X ^DD(8980,4,1,1,1.4)"
^DD(8980,4,1,1,1.4)="S DIH=$S($D(^DIZ(8980,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=8980,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8980,4,1,1,2)="Q"
^DD(8980,4,1,1,"CREATE VALUE")="S X=DT"
^DD(8980,4,1,1,"DELETE VALUE")="NO EFFECT"
^DD(8980,4,1,1,"FIELD")="DATE/TIME CREATED"
^DD(8980,4,1,2,0)="8980^AOK"
^DD(8980,4,1,2,1)="S ^DIZ(8980,""AOK"",$E(X,1,30),DA)="""""
^DD(8980,4,1,2,2)="K ^DIZ(8980,""AOK"",$E(X,1,30),DA)"
^DD(8980,4,3)="The user that created this record."
^DD(8980,4,5,1,0)="8980^.01^2"
^DD(8980,4,9)="^"
^DD(8980,4,21,0)="^^1^1^2920710^^^^"
^DD(8980,4,21,1,0)="This is the person who owns this entry."
^DD(8980,4,"DT")="2890908"
^DD(8980,5,0)="Want to edit the data?^S^n:NO;y:YES;^0;6^Q"
^DD(8980,5,3)="Do you want to edit the data subfile."
^DD(8980,5,21,0)="^^1^1^2920710^^^^"
^DD(8980,5,21,1,0)="This is used as a question to control an edit template."
^DD(8980,5,"DT")="2880728"
^DD(8980,10,0)="ACCESS ALLOWED TO USER^8980.01P^^1;0"
^DD(8980,10,12)="Only active users"
^DD(8980,10,12.1)="S DIC(""S"")=""I $L($P(^(0),U,1))"""
^DD(8980,10,21,0)="^^2^2^2930329^"
^DD(8980,10,21,1,0)="This multipule is used to allow other users access to a"
^DD(8980,10,21,2,0)="KERMIT HOLDING data file created by someone else."
^DD(8980,21,0)="DATA^8980.021^^2;0"
^DD(8980,21,21,0)="^^1^1^2920710^"
^DD(8980,21,21,1,0)="This field holds the data."
^DD(8980,"B","ACCESS ALLOWED TO USER",10)=""
^DD(8980,"B","CREATOR",4)=""
^DD(8980,"B","DATA",21)=""
^DD(8980,"B","DATE/TIME LAST ACCESSED",1)=""
^DD(8980,"B","KERMIT transfer mode",3)=""
^DD(8980,"B","NAME",.01)=""
^DD(8980,"B","Replace File Name",2)=""
^DD(8980,"B","Want to edit the data?",5)=""
^DD(8980,"GL",0,1,.01)=""
^DD(8980,"GL",0,2,1)=""
^DD(8980,"GL",0,3,2)=""
^DD(8980,"GL",0,4,3)=""
^DD(8980,"GL",0,5,4)=""
^DD(8980,"GL",0,6,5)=""
^DD(8980,"GL",1,0,10)=""
^DD(8980,"GL",2,0,21)=""
^DD(8980,"IX",.01)=""
^DD(8980,"IX",4)=""
^DD(8980,"RQ",.01)=""
^DD(8980,"RQ",2)=""
^DD(8980,"RQ",3)=""
^DD(8980,"RQ",4)=""
^DD(8980,"SB",8980.01,10)=""
^DD(8980,"SB",8980.021,21)=""
^DD(8980.01,0)="ACCESS ALLOWED TO USER SUB-FIELD^^.01^1"
^DD(8980.01,0,"IX","B",8980.01,.01)=""
^DD(8980.01,0,"NM","ACCESS ALLOWED TO USER")=""
^DD(8980.01,0,"UP")="8980"
^DD(8980.01,.01,0)="ACCESS ALLOWED TO USER^M*P200'X^VA(200,^0;1^S DIC(""S"")=""I $L($P(^(0),U,1))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(8980.01,.01,1,0)="^.1"
^DD(8980.01,.01,1,1,0)="8980.01^B"
^DD(8980.01,.01,1,1,1)="S ^DIZ(8980,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8980.01,.01,1,1,2)="K ^DIZ(8980,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8980.01,.01,1,2,0)="8980^AB"
^DD(8980.01,.01,1,2,1)="S ^DIZ(8980,""AOK"",$E(X,1,30),DA(1),DA)="""""
^DD(8980.01,.01,1,2,2)="K ^DIZ(8980,""AOK"",$E(X,1,30),DA(1),DA)"
^DD(8980.01,.01,3)="Add other users that can access these records."
^DD(8980.01,.01,21,0)="^^1^1^2930329^^^^"
^DD(8980.01,.01,21,1,0)="This is another person that is allowed to access this entry."
^DD(8980.01,.01,"DT")="2880729"
^DD(8980.01,"B","ACCESS ALLOWED TO USER",.01)=""
^DD(8980.01,"GL",0,1,.01)=""
^DD(8980.01,"IX",.01)=""
^DD(8980.021,0)="DATA SUB-FIELD^^.01^1"
^DD(8980.021,0,"IX","B",8980.021,.01)=""
^DD(8980.021,0,"NM","DATA")=""
^DD(8980.021,0,"UP")="8980"
^DD(8980.021,.01,0)="DATA^W^^0;1^Q"
^DD(8980.021,.01,1,0)="^.1"
^DD(8980.021,.01,1,1,0)="8980.021^B"
^DD(8980.021,.01,1,1,1)="S ^DIZ(8980,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8980.021,.01,1,1,2)="K ^DIZ(8980,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8980.021,.01,21,0)="^^1^1^2920710^^^^"
^DD(8980.021,.01,21,1,0)="The data that KERMIT works on."
^DD(8980.021,.01,"DT")="2881230"
^DD(8980.021,"B","DATA",.01)=""
^DD(8980.021,"GL",0,1,.01)=""
^DD(8980.021,"IX",.01)=""
^DD(8980.2,0)="FIELD^^1^6"
^DD(8980.2,0,"DT")="3011220"
^DD(8980.2,0,"IX","B",8980.2,.01)=""
^DD(8980.2,0,"NM","PKI Digital Signatures")=""
^DD(8980.2,0,"VR")="8.0"
^DD(8980.2,0,"VRPK")="XU"
^DD(8980.2,.01,0)="NAME^RF^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(8980.2,.01,1,0)="^.1"
^DD(8980.2,.01,1,1,0)="8980.2^B"
^DD(8980.2,.01,1,1,1)="S ^XUSSPKI(8980.2,""B"",$E(X,1,30),DA)="""""
^DD(8980.2,.01,1,1,2)="K ^XUSSPKI(8980.2,""B"",$E(X,1,30),DA)"
^DD(8980.2,.01,1,2,0)="^^TRIGGER^8980.2^.05"
^DD(8980.2,.01,1,2,1)="X ^DD(8980.2,.01,1,2,1.3) I X S X=DIV S Y(1)=$S($D(^XUSSPKI(8980.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100) X ^DD(8980.2,.01,1,2,1.4)"
^DD(8980.2,.01,1,2,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^XUSSPKI(8980.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,5)="""""
^DD(8980.2,.01,1,2,1.4)="S DIH=$G(^XUSSPKI(8980.2,DIV(0),0)),DIV=X S $P(^(0),U,5)=DIV,DIH=8980.2,DIG=.05 D ^DICR"
^DD(8980.2,.01,1,2,2)="Q"
^DD(8980.2,.01,1,2,3)="FILEDATE"
^DD(8980.2,.01,1,2,"%D",0)="^^1^1^3020819^"
^DD(8980.2,.01,1,2,"%D",1,0)="This X-ref set the FILEDATE FIELD with todays date/time."
^DD(8980.2,.01,1,2,"CREATE CONDITION")="FILEDATE="""""
^DD(8980.2,.01,1,2,"CREATE VALUE")="NOW"
^DD(8980.2,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(8980.2,.01,1,2,"DT")="3020819"
^DD(8980.2,.01,1,2,"FIELD")="FILE"
^DD(8980.2,.01,3)="Answer must be 3-50 characters in length."
^DD(8980.2,.01,"DT")="3020819"
^DD(8980.2,.02,0)="SIZE OF SIG.^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8980.2,.02,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(8980.2,.02,"DT")="3011015"
^DD(8980.2,.03,0)="USER^RP200'^VA(200,^0;3^Q"
^DD(8980.2,.03,3)=""
^DD(8980.2,.03,21,0)="^.001^2^2^3011220^^"
^DD(8980.2,.03,21,1,0)="This field holds a pointer to the New Person file so we know who's"
^DD(8980.2,.03,21,2,0)="Certificate did the signature."
^DD(8980.2,.03,"DT")="3011220"
^DD(8980.2,.04,0)="DATA FILE^RP1'^DIC(^0;4^Q"
^DD(8980.2,.04,3)=""
^DD(8980.2,.04,21,0)="^^2^2^3011220^"
^DD(8980.2,.04,21,1,0)="This field is a pointer to the file of files. it is to tell us what file"
^DD(8980.2,.04,21,2,0)="has the data that this signature contains."
^DD(8980.2,.04,"DT")="3011220"
^DD(8980.2,.05,0)="FILEDATE^RD^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(8980.2,.05,5,1,0)="8980.2^.01^2"
^DD(8980.2,.05,9)="^"
^DD(8980.2,.05,21,0)="^^1^1^3011220^"
^DD(8980.2,.05,21,1,0)="This field holds the Date that the Signature was added to this file."
^DD(8980.2,.05,"DT")="3011220"
^DD(8980.2,1,0)="SIGNATURE^8980.21^^1;0"
^DD(8980.2,"B","DATA FILE",.04)=""
^DD(8980.2,"B","FILEDATE",.05)=""
^DD(8980.2,"B","NAME",.01)=""
^DD(8980.2,"B","SIGNATURE",1)=""
^DD(8980.2,"B","SIZE OF SIG.",.02)=""
^DD(8980.2,"B","USER",.03)=""
^DD(8980.2,"GL",0,1,.01)=""
^DD(8980.2,"GL",0,2,.02)=""
^DD(8980.2,"GL",0,3,.03)=""
^DD(8980.2,"GL",0,4,.04)=""
^DD(8980.2,"GL",0,5,.05)=""
^DD(8980.2,"GL",1,0,1)=""
^DD(8980.2,"IX",.01)=""
^DD(8980.2,"RQ",.01)=""
^DD(8980.2,"RQ",.03)=""
^DD(8980.2,"RQ",.04)=""
^DD(8980.2,"RQ",.05)=""
^DD(8980.2,"SB",8980.21,1)=""
^DD(8980.21,0)="SIGNATURE SUB-FIELD^^.01^1"
^DD(8980.21,0,"DT")="3011015"
^DD(8980.21,0,"NM","SIGNATURE")=""
^DD(8980.21,0,"UP")="8980.2"
^DD(8980.21,.01,0)="SIGNATURE^WL^^0;1^Q"
^DD(8980.21,.01,"DT")="3011015"
^DD(8980.21,"B","SIGNATURE",.01)=""
^DD(8980.21,"GL",0,1,.01)=""
^DD(8980.22,0)="FIELD^^2^3"
^DD(8980.22,0,"DDA")="N"
^DD(8980.22,0,"DT")="3020130"
^DD(8980.22,0,"IX","B",8980.22,.01)=""
^DD(8980.22,0,"NM","PKI CRL URLS")=""
^DD(8980.22,0,"VR")="8.0"
^DD(8980.22,0,"VRPK")="XU"
^DD(8980.22,.01,0)="NAME^RF^^0;1^K:$L(X)>200!($L(X)<3)!'(X'?1P.E) X"
^DD(8980.22,.01,.1)="URL"
^DD(8980.22,.01,1,0)="^.1^^-1"
^DD(8980.22,.01,1,1,0)="8980.22^B"
^DD(8980.22,.01,1,1,1)="S ^XUSSPKI(8980.22,""B"",$E(X,1,30),DA)="""""
^DD(8980.22,.01,1,1,2)="K ^XUSSPKI(8980.22,""B"",$E(X,1,30),DA)"
^DD(8980.22,.01,3)="Answer must be 3-200 characters in length"
^DD(8980.22,.01,21,0)="^^1^1^3020117^"
^DD(8980.22,.01,21,1,0)="This field holds the URL for the CRL distribution point."
^DD(8980.22,.01,"DT")="3020130"
^DD(8980.22,1,0)="SEEN BY CLIENT^D^^0;2^S %DT=""ETXR"" D ^%DT S X=Y K:X<1 X"
^DD(8980.22,1,.1)="Seen By Client"
^DD(8980.22,1,1,0)="^.1^^0"
^DD(8980.22,1,3)="(No range limit on date)"
^DD(8980.22,1,21,0)="^^2^2^3020130^"
^DD(8980.22,1,21,1,0)="This field is updated every time the URL is sent down from the client."
^DD(8980.22,1,21,2,0)="It will be used to purge the file."
^DD(8980.22,1,"DT")="3020131"
^DD(8980.22,2,0)="DT LAST SENT TO SERVER^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8980.22,2,21,0)="^^2^2^3020131^"
^DD(8980.22,2,21,1,0)="This field records the time that this URL was sent to the CRL server."
^DD(8980.22,2,21,2,0)="It is used to keep the CRL up to date."
^DD(8980.22,2,"DT")="3020131"
^DD(8980.22,"B","DT LAST SENT TO SERVER",2)=""
^DD(8980.22,"B","NAME",.01)=""
^DD(8980.22,"B","SEEN BY CLIENT",1)=""
^DD(8980.22,"B","Seen By Client",1)="1"
^DD(8980.22,"B","URL",.01)="1"
^DD(8980.22,"GL",0,1,.01)=""
^DD(8980.22,"GL",0,2,1)=""
^DD(8980.22,"GL",0,3,2)=""
^DD(8980.22,"IX",.01)=""
^DD(8980.22,"RQ",.01)=""
^DD(8984.1,0)="FIELD^^.04^4"
^DD(8984.1,0,"DDA")="N"
^DD(8984.1,0,"DT")="2930927"
^DD(8984.1,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(8984.1,0,"IX","AC",8984.1,.02)=""
^DD(8984.1,0,"IX","AD",8984.1,.04)=""
^DD(8984.1,0,"IX","AIHS",8984.1,.01)=""
^DD(8984.1,0,"IX","B",8984.1,.01)=""
^DD(8984.1,0,"IX","C",8984.1,.03)=""
^DD(8984.1,0,"NM","LOCAL KEYWORD")=""
^DD(8984.1,0,"VR")="7.3"
^DD(8984.1,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(8984.1,.01,1,0)="^.1"
^DD(8984.1,.01,1,1,0)="8984.1^B"
^DD(8984.1,.01,1,1,1)="S ^XT(8984.1,""B"",$E(X,1,30),DA)="""""
^DD(8984.1,.01,1,1,2)="K ^XT(8984.1,""B"",$E(X,1,30),DA)"
^DD(8984.1,.01,1,2,0)="8984.1^AIHS^MUMPS"
^DD(8984.1,.01,1,2,1)="I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="""" S JL=$P(^(0),U,2),JL1=$P(JL,"";""),JL2=""^""_$P(JL,"";"",2),JL3=+$P(@(JL2_""0)""),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_""JL3,I,JL1,DA)"" D S^XTLKWIC K JL,JL1,JL2,%,JL3"
^DD(8984.1,.01,1,2,2)="I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="""" S JL=$P(^(0),U,2),JL1=$P(JL,"";""),JL2=""^""_$P(JL,"";"",2),JL3=+$P(@(JL2_""0)""),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_""JL3,I,JL1,DA)"" D K^XTLKWIC K JL,JL1,JL2,JL3,%"
^DD(8984.1,.01,1,2,"%D",0)="^^4^4^2930824^"
^DD(8984.1,.01,1,2,"%D",1,0)=" "
^DD(8984.1,.01,1,2,"%D",2,0)="This cross-reference passes the keyword or tokenized phrase into the"
^DD(8984.1,.01,1,2,"%D",3,0)="special lookup cross-reference of the target file in the same manner as is"
^DD(8984.1,.01,1,2,"%D",4,0)="done on the ENTRY field."
^DD(8984.1,.01,1,2,"DT")="2901016"
^DD(8984.1,.01,3)="Answer must be 2-30 characters in length."
^DD(8984.1,.01,21,0)="^^2^2^2940520^"
^DD(8984.1,.01,21,1,0)="A term or phrase that will be associated with a specific entry"
^DD(8984.1,.01,21,2,0)="in a target file."
^DD(8984.1,.01,"DT")="2901016"
^DD(8984.1,.02,0)="ENTRY^V^^0;2^Q"
^DD(8984.1,.02,1,0)="^.1"
^DD(8984.1,.02,1,1,0)="8984.1^AC^MUMPS"
^DD(8984.1,.02,1,1,1)="I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="""" S JLX=$P(^(0),U),JL=$P(^(0),U,2),JL1=$P(JL,"";""),JL2=""^""_$P(JL,"";"",2),JL3=+$P(@(JL2_""0)""),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_""JL3,I,JL1,DA)"" D S^XTLKWIC K JL,JL1,JL2,JL3,JLX,%"
^DD(8984.1,.02,1,1,2)="I $D(^XT(8984.1,DA,0)),$P(^(0),U,2)'="""" S JLX=$P(^(0),U),JL=X,JL1=$P(JL,"";""),JL2=""^""_$P(JL,"";"",2),JL3=+$P(@(JL2_""0)""),U,2),JL3=$P(^XT(8984.4,JL3,0),U,3),%=JL2_""JL3,I,JL1,DA)"" D K^XTLKWIC K JL,JL1,JL2,JL3,JLX,%"
^DD(8984.1,.02,1,1,"%D",0)="^^3^3^2930820^"
^DD(8984.1,.02,1,1,"%D",1,0)=" "
^DD(8984.1,.02,1,1,"%D",2,0)="This cross-reference passes the keyword or 'tokenized' phrase into the"
^DD(8984.1,.02,1,1,"%D",3,0)="special lookup cross-reference of the target file."
^DD(8984.1,.02,1,1,"DT")="2901016"
^DD(8984.1,.02,1,2,0)="^^TRIGGER^8984.1^.03"
^DD(8984.1,.02,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(8984.1,.02,1,2,1.1) X ^DD(8984.1,.02,1,2,1.4)"
^DD(8984.1,.02,1,2,1.1)="S X=DIV X ^DD(8984.1,.02,1,2,49.3) S X=X_"" """
^DD(8984.1,.02,1,2,1.4)="S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.1,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8984.1,.02,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(8984.1,.02,1,2,2.4)"
^DD(8984.1,.02,1,2,2.4)="S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.1,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8984.1,.02,1,2,49.2)=""
^DD(8984.1,.02,1,2,49.3)="X ^DD(8984.1,.02,1,2,49.2) S X=DIV,C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DD(8984.1,.02,1,2,"CREATE VALUE")="ENTRY_"" """
^DD(8984.1,.02,1,2,"DELETE VALUE")="@"
^DD(8984.1,.02,1,2,"DT")="2901016"
^DD(8984.1,.02,1,2,"FIELD")="CODE"
^DD(8984.1,.02,1,3,0)="^^TRIGGER^8984.1^.04"
^DD(8984.1,.02,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(8984.1,.02,1,3,1.1) X ^DD(8984.1,.02,1,3,1.4)"
^DD(8984.1,.02,1,3,1.1)="S X=DIV S X=""^""_$P(X,"";"",2)_""0)"",X=$S($D(@X):+$P(^(0),U,2),1:"""")"
^DD(8984.1,.02,1,3,1.4)="S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=8984.1,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8984.1,.02,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(8984.1,.02,1,3,2.4)"
^DD(8984.1,.02,1,3,2.4)="S DIH=$S($D(^XT(8984.1,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=8984.1,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8984.1,.02,1,3,"CREATE VALUE")="S X=""^""_$P(X,"";"",2)_""0)"",X=$S($D(@X):+$P(^(0),U,2),1:"""")"
^DD(8984.1,.02,1,3,"DELETE VALUE")="@"
^DD(8984.1,.02,1,3,"DT")="2901123"
^DD(8984.1,.02,1,3,"FIELD")="ASSOCIATED FILE"
^DD(8984.1,.02,21,0)="^^3^3^2930820^"
^DD(8984.1,.02,21,1,0)=" "
^DD(8984.1,.02,21,2,0)="This field is a variable pointer to the file and entry with which the"
^DD(8984.1,.02,21,3,0)="keyword is associated."
^DD(8984.1,.02,"DT")="2930927"
^DD(8984.1,.02,"V",0)="^.12P^4^4"
^DD(8984.1,.02,"V",1,0)="31^DISABILITY CONDITION^1^DVBA^n^n"
^DD(8984.1,.02,"V",2,0)="396.93^EXAM EXCEPTIONS^2^DVBB^n^n"
^DD(8984.1,.02,"V",4,0)="80^ICD DIAGNOSIS^4^ICD9(^n^n"
^DD(8984.1,.02,"V","B",31,1)=""
^DD(8984.1,.02,"V","B",80,4)=""
^DD(8984.1,.02,"V","B",396.93,2)=""
^DD(8984.1,.02,"V","M","DISABILITY CONDITION",1)=""
^DD(8984.1,.02,"V","M","EXAM EXCEPTIONS",2)=""
^DD(8984.1,.02,"V","M","ICD DIAGNOSIS",4)=""
^DD(8984.1,.02,"V","O",1,1)=""
^DD(8984.1,.02,"V","O",2,2)=""
^DD(8984.1,.02,"V","O",4,4)=""
^DD(8984.1,.02,"V","P","DVBA",1)=""
^DD(8984.1,.02,"V","P","DVBB",2)=""
^DD(8984.1,.02,"V","P","ICD9(",4)=""
^DD(8984.1,.03,0)="CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(8984.1,.03,1,0)="^.1"
^DD(8984.1,.03,1,1,0)="8984.1^C"
^DD(8984.1,.03,1,1,1)="S ^XT(8984.1,""C"",$E(X,1,30),DA)="""""
^DD(8984.1,.03,1,1,2)="K ^XT(8984.1,""C"",$E(X,1,30),DA)"
^DD(8984.1,.03,1,1,"DT")="2901016"
^DD(8984.1,.03,3)="Answer must be 1-9 characters in length."
^DD(8984.1,.03,5,1,0)="8984.1^.02^2"
^DD(8984.1,.03,21,0)="^^2^2^2930820^"
^DD(8984.1,.03,21,1,0)=" "
^DD(8984.1,.03,21,2,0)="This field holds the entry itself and is triggered by ENTRY field."
^DD(8984.1,.03,"DT")="2901016"
^DD(8984.1,.04,0)="ASSOCIATED FILE^P1'^DIC(^0;4^Q"
^DD(8984.1,.04,1,0)="^.1"
^DD(8984.1,.04,1,1,0)="8984.1^AD"
^DD(8984.1,.04,1,1,1)="S ^XT(8984.1,""AD"",$E(X,1,30),DA)="""""
^DD(8984.1,.04,1,1,2)="K ^XT(8984.1,""AD"",$E(X,1,30),DA)"
^DD(8984.1,.04,1,1,"DT")="2901121"
^DD(8984.1,.04,5,1,0)="8984.1^.02^3"
^DD(8984.1,.04,9)="^"
^DD(8984.1,.04,21,0)="^^3^3^2930820^"
^DD(8984.1,.04,21,1,0)=" "
^DD(8984.1,.04,21,2,0)="This field contains the global root of the file associated with the"
^DD(8984.1,.04,21,3,0)="keyword entry. It is TRIGGERED by the ENTRY field."
^DD(8984.1,.04,"DT")="2901121"
^DD(8984.1,"B","ASSOCIATED FILE",.04)=""
^DD(8984.1,"B","CODE",.03)=""
^DD(8984.1,"B","ENTRY",.02)=""
^DD(8984.1,"B","NAME",.01)=""
^DD(8984.1,"GL",0,1,.01)=""
^DD(8984.1,"GL",0,2,.02)=""
^DD(8984.1,"GL",0,3,.03)=""
^DD(8984.1,"GL",0,4,.04)=""
^DD(8984.1,"IX",.01)=""
^DD(8984.1,"IX",.02)=""
^DD(8984.1,"IX",.03)=""
^DD(8984.1,"IX",.04)=""
^DD(8984.1,"RQ",.01)=""
^DD(8984.2,0)="FIELD^^.03^3"
^DD(8984.2,0,"DDA")="N"
^DD(8984.2,0,"DT")="2930927"
^DD(8984.2,0,"IX","AC",8984.2,.01)=""
^DD(8984.2,0,"IX","AD",8984.2,.02)=""
^DD(8984.2,0,"IX","B",8984.2,.01)=""
^DD(8984.2,0,"IX","D",8984.2,.03)=""
^DD(8984.2,0,"NM","LOCAL SHORTCUT")=""
^DD(8984.2,0,"VR")="7.3"
^DD(8984.2,.01,0)="FREQUENTLY USED NARRATIVE^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1)!'(X'?1P.E) X"
^DD(8984.2,.01,1,0)="^.1"
^DD(8984.2,.01,1,1,0)="8984.2^B"
^DD(8984.2,.01,1,1,1)="S ^XT(8984.2,""B"",$E(X,1,30),DA)="""""
^DD(8984.2,.01,1,1,2)="K ^XT(8984.2,""B"",$E(X,1,30),DA)"
^DD(8984.2,.01,1,1,"%D",0)="^^4^4^2930820^"
^DD(8984.2,.01,1,1,"%D",1,0)="This field is cross-referenced by global node and narrative and will look"
^DD(8984.2,.01,1,1,"%D",2,0)="like this:"
^DD(8984.2,.01,1,1,"%D",3,0)=" "
^DD(8984.2,.01,1,1,"%D",4,0)="^XT(8984.3,""AC"",global root,narrative,DA)"
^DD(8984.2,.01,1,1,"DT")="2901120"
^DD(8984.2,.01,1,2,0)="8984.2^AC^MUMPS"
^DD(8984.2,.01,1,2,1)="I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="""" S JL=$P($P(^(0),U,2),"";"",2),^XT(8984.2,""AC"",JL,$E(X,1,40),DA)="""" K JL"
^DD(8984.2,.01,1,2,2)="I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="""" S JL=$P($P(^(0),U,2),"";"",2) K ^XT(8984.2,""AC"",JL,$E(X,1,40),DA),JL"
^DD(8984.2,.01,1,2,"%D",0)="^^3^3^2930820^"
^DD(8984.2,.01,1,2,"%D",1,0)=" "
^DD(8984.2,.01,1,2,"%D",2,0)="This cross-reference is of the form:"
^DD(8984.2,.01,1,2,"%D",3,0)="  ^XT(8984.2,""AC"",global root,shortcut,DA)"
^DD(8984.2,.01,1,2,"DT")="2901120"
^DD(8984.2,.01,3)="Answer must be 1-40 characters in length."
^DD(8984.2,.01,21,0)="^^5^5^2930820^"
^DD(8984.2,.01,21,1,0)=" "
^DD(8984.2,.01,21,2,0)="This is a word or phrase which will be used EXCLUSIVELY to find an entry."
^DD(8984.2,.01,21,3,0)="During a lookup, this file is checked first. If a shortcut matches the"
^DD(8984.2,.01,21,4,0)="user's entry, the corresponding entry will be displayed and no other"
^DD(8984.2,.01,21,5,0)="lookups will be performed."
^DD(8984.2,.01,"DT")="2901120"
^DD(8984.2,.02,0)="ENTRY^V^^0;2^Q"
^DD(8984.2,.02,1,0)="^.1"
^DD(8984.2,.02,1,1,0)="^^TRIGGER^8984.2^.03"
^DD(8984.2,.02,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(8984.2,.02,1,1,1.1) X ^DD(8984.2,.02,1,1,1.4)"
^DD(8984.2,.02,1,1,1.1)="S X=DIV X ^DD(8984.2,.02,1,1,49.3) S X=X_"" """
^DD(8984.2,.02,1,1,1.4)="S DIH=$S($D(^XT(8984.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.2,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8984.2,.02,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^XT(8984.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(8984.2,.02,1,1,2.4)"
^DD(8984.2,.02,1,1,2.4)="S DIH=$S($D(^XT(8984.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=8984.2,DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8984.2,.02,1,1,49.2)=""
^DD(8984.2,.02,1,1,49.3)="X ^DD(8984.2,.02,1,1,49.2) S X=DIV,C=$S(X="""":-1,'$D(@(U_$P(X,"";"",2)_""0)"")):-1,1:$P(^(0),U,2)),X=$S(X="""":X,'$D(^(+X,0)):"""",1:$P(^(0),U,1)),Y=X,C=$S($D(^DD(+C,.01,0)):$P(^(0),U,2),1:""D"") D:X]"""" Y^DIQ:C'[""D"" S X=Y,C="","""
^DD(8984.2,.02,1,1,"%D",0)="^^2^2^2930820^"
^DD(8984.2,.02,1,1,"%D",1,0)=" "
^DD(8984.2,.02,1,1,"%D",2,0)="Triggers the CODE field of the LOCAL SHORTCUT FILE."
^DD(8984.2,.02,1,1,"CREATE VALUE")="ENTRY_"" """
^DD(8984.2,.02,1,1,"DELETE VALUE")="@"
^DD(8984.2,.02,1,1,"FIELD")="CODE"
^DD(8984.2,.02,1,2,0)="8984.2^AD^MUMPS"
^DD(8984.2,.02,1,2,1)="I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="""" S JLN=$P(^(0),U),JL=$P($P(^(0),U,2),"";"",2),^XT(8984.2,""AC"",JL,JLN,DA)="""" K JL,JLN"
^DD(8984.2,.02,1,2,2)="I $D(^XT(8984.2,DA,0)),$P(^(0),U,2)'="""" S JLN=$P(^(0),U),JL=$P($P(^(0),U,2),"";"",2) K ^XT(8984.2,""AC"",JL,JLN,DA),JL,JLN"
^DD(8984.2,.02,1,2,"%D",0)="^^3^3^2930820^"
^DD(8984.2,.02,1,2,"%D",1,0)=" "
^DD(8984.2,.02,1,2,"%D",2,0)="Resets the 'AC' cross-reference (normally set when editing FREQUENTLY USED"
^DD(8984.2,.02,1,2,"%D",3,0)="NARRATIVE)."
^DD(8984.2,.02,1,2,"DT")="2901120"
^DD(8984.2,.02,21,0)="^^3^3^2930820^"
^DD(8984.2,.02,21,1,0)=" "
^DD(8984.2,.02,21,2,0)="This is a variable pointer to the file and entry with which the shortcut"
^DD(8984.2,.02,21,3,0)="is associated. The entry itself is triggered into the CODE field."
^DD(8984.2,.02,"DT")="2930927"
^DD(8984.2,.02,"V",0)="^.12P^4^4"
^DD(8984.2,.02,"V",1,0)="31^DISABILITY CONDITION^1^DVBA^n^n"
^DD(8984.2,.02,"V",2,0)="396.93^EXAM EXCEPTIONS^2^DVBB^n^n"
^DD(8984.2,.02,"V",4,0)="80^ICD DIAGNOSIS^4^ICD9(^n^n"
^DD(8984.2,.02,"V","B",31,1)=""
^DD(8984.2,.02,"V","B",80,4)=""
^DD(8984.2,.02,"V","B",396.93,2)=""
^DD(8984.2,.02,"V","M","DISABILITY CONDITION",1)=""
^DD(8984.2,.02,"V","M","EXAM EXCEPTIONS",2)=""
^DD(8984.2,.02,"V","M","ICD DIAGNOSIS",4)=""
^DD(8984.2,.02,"V","O",1,1)=""
^DD(8984.2,.02,"V","O",2,2)=""
^DD(8984.2,.02,"V","O",4,4)=""
^DD(8984.2,.02,"V","P","DVBA",1)=""
^DD(8984.2,.02,"V","P","DVBB",2)=""
^DD(8984.2,.02,"V","P","ICD9(",4)=""
^DD(8984.2,.03,0)="CODE^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X"
^DD(8984.2,.03,1,0)="^.1"
^DD(8984.2,.03,1,1,0)="8984.2^D"
^DD(8984.2,.03,1,1,1)="S ^XT(8984.2,""D"",$E(X,1,30),DA)="""""
^DD(8984.2,.03,1,1,2)="K ^XT(8984.2,""D"",$E(X,1,30),DA)"
^DD(8984.2,.03,1,1,"DT")="2901016"
^DD(8984.2,.03,3)="Answer must be 1-9 characters in length."
^DD(8984.2,.03,5,1,0)="8984.2^.02^1"
^DD(8984.2,.03,21,0)="^^3^3^2930820^"
^DD(8984.2,.03,21,1,0)=" "
^DD(8984.2,.03,21,2,0)="This is the lookup-entry in the associated file. It is triggered by the"
^DD(8984.2,.03,21,3,0)="ENTRY field."
^DD(8984.2,.03,"DT")="2901016"
^DD(8984.2,"B","CODE",.03)=""
^DD(8984.2,"B","ENTRY",.02)=""
^DD(8984.2,"B","FREQUENTLY USED NARRATIVE",.01)=""
^DD(8984.2,"GL",0,1,.01)=""
^DD(8984.2,"GL",0,2,.02)=""
^DD(8984.2,"GL",0,3,.03)=""
^DD(8984.2,"IX",.01)=""
^DD(8984.2,"IX",.02)=""
^DD(8984.2,"IX",.03)=""
^DD(8984.2,"RQ",.01)=""
^DD(8984.3,0)="FIELD^^.03^3"
^DD(8984.3,0,"DDA")="N"
^DD(8984.3,0,"DT")="2930114"
^DD(8984.3,0,"IX","AA",8984.31,.01)=""
^DD(8984.3,0,"IX","AC",8984.3,.01)=""
^DD(8984.3,0,"IX","AD",8984.3,.02)=""
^DD(8984.3,0,"IX","B",8984.3,.01)=""
^DD(8984.3,0,"NM","LOCAL SYNONYM")=""
^DD(8984.3,0,"VR")="7.3"
^DD(8984.3,.01,0)="TERM^RFX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X'?1P.E)!'(X?1U.U) X"
^DD(8984.3,.01,1,0)="^.1"
^DD(8984.3,.01,1,1,0)="8984.3^B"
^DD(8984.3,.01,1,1,1)="S ^XT(8984.3,""B"",$E(X,1,30),DA)="""""
^DD(8984.3,.01,1,1,2)="K ^XT(8984.3,""B"",$E(X,1,30),DA)"
^DD(8984.3,.01,1,2,0)="8984.3^AC^MUMPS"
^DD(8984.3,.01,1,2,1)="I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="""" S JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,""GL""),U,2),^XT(8984.3,""AC"",JL,$E(X,1,30),DA)="""" K JL"
^DD(8984.3,.01,1,2,2)="I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="""" S JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,""GL""),U,2) K ^XT(8984.3,""AC"",JL,$E(X,1,30),DA),JL"
^DD(8984.3,.01,1,2,"%D",0)="^^2^2^2930823^"
^DD(8984.3,.01,1,2,"%D",1,0)=" "
^DD(8984.3,.01,1,2,"%D",2,0)="Associates the synonym with the global root of the lookup file."
^DD(8984.3,.01,1,2,"DT")="2901120"
^DD(8984.3,.01,3)="Answer must be 1-30 characters in length."
^DD(8984.3,.01,21,0)="^^3^3^2940520^"
^DD(8984.3,.01,21,1,0)=" "
^DD(8984.3,.01,21,2,0)="The term or phrase associated with the target file that the synonym will"
^DD(8984.3,.01,21,3,0)="be equivalent to."
^DD(8984.3,.01,"DT")="2901120"
^DD(8984.3,.02,0)="ASSOCIATED FILE^R*P1'^DIC(^0;2^S DIC(""S"")=""I $D(^XT(8984.4,+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8984.3,.02,1,0)="^.1"
^DD(8984.3,.02,1,1,0)="8984.3^AD^MUMPS"
^DD(8984.3,.02,1,1,1)="I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="""" S JLN=$P(^(0),U),JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,""GL""),U,2),^XT(8984.3,""AC"",JL,JLN,DA)="""" K JL,JLN"
^DD(8984.3,.02,1,1,2)="I $D(^XT(8984.3,DA,0)),$P(^(0),U,2)'="""" S JLN=$P(^(0),U),JL=$P(^(0),U,2),JL=$P(^DIC(JL,0,""GL""),U,2) K ^XT(8984.3,""AC"",JL,JLN,DA),JL,JLN"
^DD(8984.3,.02,1,1,"%D",0)="^^3^3^2930823^"
^DD(8984.3,.02,1,1,"%D",1,0)=" "
^DD(8984.3,.02,1,1,"%D",2,0)="Associates the synonym with the global root of the lookup file in the 'AC'"
^DD(8984.3,.02,1,1,"%D",3,0)="cross-reference."
^DD(8984.3,.02,1,1,"DT")="2901120"
^DD(8984.3,.02,12)="ONLY FILES FROM THE LOCAL LOOKUP FILE."
^DD(8984.3,.02,12.1)="S DIC(""S"")=""I $D(^XT(8984.4,+Y,0))"""
^DD(8984.3,.02,21,0)="^^2^2^2940520^"
^DD(8984.3,.02,21,1,0)=" "
^DD(8984.3,.02,21,2,0)="The file containing the TERM that MTLU will use for lookups."
^DD(8984.3,.02,"DT")="2901120"
^DD(8984.3,.03,0)="SYNONYM^8984.31A^^1;0"
^DD(8984.3,.03,21,0)="^^2^2^2940520^"
^DD(8984.3,.03,21,1,0)=" "
^DD(8984.3,.03,21,2,0)="One or more terms that are related to the term in the associated file."
^DD(8984.3,"B","ASSOCIATED FILE",.02)=""
^DD(8984.3,"B","SYNONYM",.03)=""
^DD(8984.3,"B","TERM",.01)=""
^DD(8984.3,"GL",0,1,.01)=""
^DD(8984.3,"GL",0,2,.02)=""
^DD(8984.3,"GL",1,0,.03)=""
^DD(8984.3,"IX",.01)=""
^DD(8984.3,"IX",.02)=""
^DD(8984.3,"RQ",.01)=""
^DD(8984.3,"RQ",.02)=""
^DD(8984.3,"SB",8984.31,.03)=""
^DD(8984.31,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(8984.31,0,"DT")="2930114"
^DD(8984.31,0,"IX","B",8984.31,.01)=""
^DD(8984.31,0,"NM","SYNONYM")=""
^DD(8984.31,0,"UP")="8984.3"
^DD(8984.31,.01,0)="SYNONYM^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1)!'(X?1U.U) X"
^DD(8984.31,.01,1,0)="^.1"
^DD(8984.31,.01,1,1,0)="8984.31^B"
^DD(8984.31,.01,1,1,1)="S ^XT(8984.3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8984.31,.01,1,1,2)="K ^XT(8984.3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8984.31,.01,1,2,0)="8984.3^AA^MUMPS"
^DD(8984.31,.01,1,2,1)="S ^XT(8984.3,""AA"",$P(^XT(8984.3,DA(1),0),U,2),$P(^XT(8984.3,DA(1),0),U,1),$E(X,1,30),DA(1),DA)="""""
^DD(8984.31,.01,1,2,2)="K ^XT(8984.3,""AA"",$P(^XT(8984.3,DA(1),0),U,2),$P(^XT(8984.3,DA(1),0),U,1),$E(X,1,30),DA(1),DA)"
^DD(8984.31,.01,1,2,"%D",0)="^^5^5^2930823^"
^DD(8984.31,.01,1,2,"%D",1,0)=" "
^DD(8984.31,.01,1,2,"%D",2,0)="Associates the lookup file # with the synonyn and the MTLU term. Takes the"
^DD(8984.31,.01,1,2,"%D",3,0)="form:"
^DD(8984.31,.01,1,2,"%D",4,0)=" "
^DD(8984.31,.01,1,2,"%D",5,0)="^XT(8984.3,""AA"",LOOKUP FILE,SYNONYM,MTLU TERM)"
^DD(8984.31,.01,1,2,"DT")="2901017"
^DD(8984.31,.01,3)="Answer must be 1-30 characters in length."
^DD(8984.31,.01,"DT")="2930114"
^DD(8984.31,"B","SYNONYM",.01)=""
^DD(8984.31,"GL",0,1,.01)=""
^DD(8984.31,"IX",.01)=""
^DD(8984.4,0)="FIELD^^.03^3"
^DD(8984.4,0,"DDA")="N"
^DD(8984.4,0,"DT")="2901115"
^DD(8984.4,0,"IX","B",8984.4,.01)=""
^DD(8984.4,0,"NM","LOCAL LOOKUP")=""
^DD(8984.4,0,"VR")="7.3"
^DD(8984.4,.01,0)="NAME^RP1'X^DIC(^0;1^S DINUM=X Q"
^DD(8984.4,.01,1,0)="^.1"
^DD(8984.4,.01,1,1,0)="8984.4^B"
^DD(8984.4,.01,1,1,1)="S ^XT(8984.4,""B"",$E(X,1,30),DA)="""""
^DD(8984.4,.01,1,1,2)="K ^XT(8984.4,""B"",$E(X,1,30),DA)"
^DD(8984.4,.01,3)=""
^DD(8984.4,.01,21,0)="^^2^2^2940520^"
^DD(8984.4,.01,21,1,0)=" "
^DD(8984.4,.01,21,2,0)="This is the filename that MTLU is permitted to perform special lookups on"
^DD(8984.4,.01,"DEL",1,0)="I '$D(XTLKDEL)"
^DD(8984.4,.01,"DT")="2901017"
^DD(8984.4,.02,0)="DISPLAY PROTOCOL^FX^^1;E1,20^K:$L(X)>20!($L(X)<3) X"
^DD(8984.4,.02,3)="Answer must be 3-20 characters in length and a valid program entry point. Some suggested displays are ICD DIAGNOSIS - DSPLYD^XTLKKWLD for ICD OPERATION/PROCEDURE - DSPLYO^XTLKKWLD"
^DD(8984.4,.02,21,0)="^^3^3^2940520^"
^DD(8984.4,.02,21,1,0)=" "
^DD(8984.4,.02,21,2,0)="This is an optional developer-suppied routine entry point to customize the"
^DD(8984.4,.02,21,3,0)="display of MTLU matches."
^DD(8984.4,.02,"DT")="2901121"
^DD(8984.4,.03,0)="INDEX^RF^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(8984.4,.03,3)="Answer must be 1-10 characters in length."
^DD(8984.4,.03,21,0)="^^3^3^2940520^"
^DD(8984.4,.03,21,1,0)=" "
^DD(8984.4,.03,21,2,0)="Enter the name of the index (x-ref) that is to be used for MTLU lookups on"
^DD(8984.4,.03,21,3,0)="the target file."
^DD(8984.4,.03,"DT")="2901017"
^DD(8984.4,"B","DISPLAY PROTOCOL",.02)=""
^DD(8984.4,"B","INDEX",.03)=""
^DD(8984.4,"B","NAME",.01)=""
^DD(8984.4,"GL",0,1,.01)=""
^DD(8984.4,"GL",0,3,.03)=""
^DD(8984.4,"GL",1,"E1,20",.02)=""
^DD(8984.4,"IX",.01)=""
^DD(8984.4,"RQ",.01)=""
^DD(8984.4,"RQ",.03)=""
^DD(8985.1,0)="FIELD^^99.991^6"
^DD(8985.1,0,"DDA")="N"
^DD(8985.1,0,"DT")="3050217"
^DD(8985.1,0,"NM","XTID VUID FOR SET OF CODES")=""
^DD(8985.1,0,"VR")="7.3"
^DD(8985.1,0,"VRPK")="XT"
^DD(8985.1,.01,0)="FILE NUMBER^RFXI^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(8985.1,.01,1,0)="^.1^^0"
^DD(8985.1,.01,3)="Answer must be a valid VistA file number or subfile number."
^DD(8985.1,.01,7.5)="I $G(DUZ(0))'=""@"" K X"
^DD(8985.1,.01,8)=""
^DD(8985.1,.01,8.5)=""
^DD(8985.1,.01,9)=""
^DD(8985.1,.01,10)=""
^DD(8985.1,.01,21,0)="^.001^2^2^3050217^^^"
^DD(8985.1,.01,21,1,0)="The file number or subfile number assigned in VistA where the Set of "
^DD(8985.1,.01,21,2,0)="Codes exists."
^DD(8985.1,.01,23,0)="^.001^2^2^3050217^^^^"
^DD(8985.1,.01,23,1,0)="The number of the file or subfile that contains a field of type SET OF "
^DD(8985.1,.01,23,2,0)="CODES."
^DD(8985.1,.01,"DT")="3050217"
^DD(8985.1,.02,0)="FIELD NUMBER^RFXI^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(8985.1,.02,3)="Answer must be a valid field number in the VistA file/subfile."
^DD(8985.1,.02,7.5)="I $G(DUZ(0))'=""@"" K X"
^DD(8985.1,.02,21,0)="^.001^2^2^3050217^^^^"
^DD(8985.1,.02,21,1,0)="The field number assigned to a field in a VistA file or subfile that "
^DD(8985.1,.02,21,2,0)="contains a Set of Codes."
^DD(8985.1,.02,23,0)="^.001^1^1^3050217^^^^"
^DD(8985.1,.02,23,1,0)="A field with a SET OF CODES as its type."
^DD(8985.1,.02,"DT")="3050217"
^DD(8985.1,.03,0)="INTERNAL REFERENCE^RFXI^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(8985.1,.03,3)="Answer must be a valid internal value in the Set of Codes for this field."
^DD(8985.1,.03,7.5)="I $G(DUZ(0))'=""@"" K X"
^DD(8985.1,.03,21,0)="^^1^1^3050217^"
^DD(8985.1,.03,21,1,0)="An internal value used by the Set of Codes."
^DD(8985.1,.03,23,0)="^^2^2^3050217^"
^DD(8985.1,.03,23,1,0)="The internal value used by the set of codes for the field indicated in "
^DD(8985.1,.03,23,2,0)="the FIELD NUMBER field."
^DD(8985.1,.03,"DT")="3050217"
^DD(8985.1,99.98,0)="MASTER ENTRY FOR VUID^RSI^0:NO;1:YES;^VUID;2^Q"
^DD(8985.1,99.98,21,0)="^^2^2^3050217^"
^DD(8985.1,99.98,21,1,0)="This field identifies the Master entry for a VUID associated with a "
^DD(8985.1,99.98,21,2,0)="Term/Concept."
^DD(8985.1,99.98,"DT")="3050217"
^DD(8985.1,99.99,0)="VUID^RFXI^^VUID;1^S X=+X K:$L(X)>20!($L(X)<1)!'(X?1.18N) X"
^DD(8985.1,99.99,1,0)="^.1^^0"
^DD(8985.1,99.99,3)="Answer must be 1-20 characters in length."
^DD(8985.1,99.99,21,0)="^.001^2^2^3050217^^"
^DD(8985.1,99.99,21,1,0)="VHA Unique ID (VUID).  A unique meaningless integer assigned to reference "
^DD(8985.1,99.99,21,2,0)="terms VHA wide."
^DD(8985.1,99.99,"DT")="3050217"
^DD(8985.1,99.991,0)="EFFECTIVE DATE/TIME^8985.11DA^^TERMSTATUS;0"
^DD(8985.1,99.991,21,0)="^.001^1^1^3050217^^"
^DD(8985.1,99.991,21,1,0)="Describes the pair Status and Effective Date/Time for each reference term."
^DD(8985.1,"B","EFFECTIVE DATE/TIME",99.991)=""
^DD(8985.1,"B","FIELD NUMBER",.02)=""
^DD(8985.1,"B","FILE NUMBER",.01)=""
^DD(8985.1,"B","INTERNAL REFERENCE",.03)=""
^DD(8985.1,"B","MASTER ENTRY FOR VUID",99.98)=""
^DD(8985.1,"B","VUID",99.99)=""
^DD(8985.1,"GL",0,1,.01)=""
^DD(8985.1,"GL",0,2,.02)=""
^DD(8985.1,"GL",0,3,.03)=""
^DD(8985.1,"GL","TERMSTATUS",0,99.991)=""
^DD(8985.1,"GL","VUID",1,99.99)=""
^DD(8985.1,"GL","VUID",2,99.98)=""
^DD(8985.1,"RQ",.01)=""
^DD(8985.1,"RQ",.02)=""
^DD(8985.1,"RQ",.03)=""
^DD(8985.1,"RQ",99.98)=""
^DD(8985.1,"RQ",99.99)=""
^DD(8985.1,"SB",8985.11,99.991)=""
^DD(8985.11,0)="EFFECTIVE DATE/TIME SUB-FIELD^^.02^2"
^DD(8985.11,0,"DT")="3050217"
^DD(8985.11,0,"NM","EFFECTIVE DATE/TIME")=""
^DD(8985.11,0,"UP")="8985.1"
^DD(8985.11,.01,0)="EFFECTIVE DATE/TIME^RDI^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8985.11,.01,1,0)="^.1^^0"
^DD(8985.11,.01,21,0)="^.001^2^2^3050217^^^^"
^DD(8985.11,.01,21,1,0)="This is the date/time when the Status of the reference term was "
^DD(8985.11,.01,21,2,0)="established."
^DD(8985.11,.01,"DT")="3050217"
^DD(8985.11,.02,0)="STATUS^RSI^0:INACTIVE;1:ACTIVE;^0;2^Q"
^DD(8985.11,.02,21,0)="^^4^4^3050217^"
^DD(8985.11,.02,21,1,0)="The Status of a reference term is either 'ACTIVE' or 'INACTIVE'.  If "
^DD(8985.11,.02,21,2,0)="'ACTIVE', then the term will be accessible by end-users to document a "
^DD(8985.11,.02,21,3,0)="particular patient event.  If 'INACTIVE', then the term will only be "
^DD(8985.11,.02,21,4,0)="accessible by the application to display legacy data."
^DD(8985.11,.02,"DT")="3050127"
^DD(8985.11,"B","EFFECTIVE DATE/TIME",.01)=""
^DD(8985.11,"B","STATUS",.02)=""
^DD(8985.11,"GL",0,1,.01)=""
^DD(8985.11,"GL",0,2,.02)=""
^DD(8985.11,"RQ",.01)=""
^DD(8985.11,"RQ",.02)=""
^DD(8987.1,0)="FIELD^^7^10"
^DD(8987.1,0,"DDA")="N"
^DD(8987.1,0,"DT")="2940513"
^DD(8987.1,0,"IX","B",8987.1,.01)=""
^DD(8987.1,0,"NM","MSM RTHIST SITE")=""
^DD(8987.1,0,"VR")="7.3"
^DD(8987.1,.01,0)="SITE NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8987.1,.01,1,0)="^.1"
^DD(8987.1,.01,1,1,0)="8987.1^B"
^DD(8987.1,.01,1,1,1)="S ^XUCS(8987.1,""B"",$E(X,1,30),DA)="""""
^DD(8987.1,.01,1,1,2)="K ^XUCS(8987.1,""B"",$E(X,1,30),DA)"
^DD(8987.1,.01,3)="Answer must be 3-30 characters in length."
^DD(8987.1,.01,21,0)="^^1^1^2931105^"
^DD(8987.1,.01,21,1,0)="       This is the name of your site.  For example: SAN FRANCISCO VAMC"
^DD(8987.1,.01,"DT")="2930702"
^DD(8987.1,1,0)="SITE NUMBER^RNJ3,0^^0;2^K:+X'=X!(X>999)!(X<100)!(X?.E1"".""1N.N) X"
^DD(8987.1,1,3)="Type a Number between 100 and 999, 0 Decimal Digits"
^DD(8987.1,1,21,0)="^^1^1^2931105^"
^DD(8987.1,1,21,1,0)="       This is your station number.  For example, 662"
^DD(8987.1,1,"DT")="2930622"
^DD(8987.1,3,0)="VOL GROUP (NODE)^8987.13^^1;0"
^DD(8987.1,3,21,0)="^^2^2^2940825^"
^DD(8987.1,3,21,1,0)="       This multiple defines the each node on the MPM network.  This is"
^DD(8987.1,3,21,2,0)="the same as the System Name when you install MSM."
^DD(8987.1,3,"DT")="2930809"
^DD(8987.1,4,0)="DAYS TO KEEP DATA^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<7)!(X?.E1"".""1N.N) X"
^DD(8987.1,4,3)="Type a Number between 7 and 999, 0 Decimal Digits"
^DD(8987.1,4,21,0)="^^2^2^2931112^"
^DD(8987.1,4,21,1,0)="       This field represents the number of days data will be kept in"
^DD(8987.1,4,21,2,0)=" File #8987.2.  If NULL, then 45 days is the used for the default."
^DD(8987.1,4,"DT")="2931112"
^DD(8987.1,5,0)="DFLT ROU NAME LENGTH^RNJ1,0^^0;3^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8987.1,5,3)="Type a Number between 1 and 8, 0 Decimal Digits"
^DD(8987.1,5,21,0)="^^4^4^2931112^"
^DD(8987.1,5,21,1,0)="       This is a required field that is used by the Routine Report so that"
^DD(8987.1,5,21,2,0)="routines can be grouped by name.  For example, if you enter a ""3"", then"
^DD(8987.1,5,21,3,0)="routine commands and routine global accesses will be grouped together by"
^DD(8987.1,5,21,4,0)="the first 3 characters of their name."
^DD(8987.1,5,"DT")="2931105"
^DD(8987.1,5.1,0)="DFLT GBL NAME LENGTH^RNJ1,0^^0;5^K:+X'=X!(X>8)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8987.1,5.1,3)="Type a Number between 1 and 8, 0 Decimal Digits"
^DD(8987.1,5.1,21,0)="^^4^4^2931108^"
^DD(8987.1,5.1,21,1,0)="       This is a required field that is used by the Global Report so that"
^DD(8987.1,5.1,21,2,0)="global accesses can be grouped.  For example, if you enter a ""3"", then"
^DD(8987.1,5.1,21,3,0)="the global names will be grouped together by the first 3 characters of"
^DD(8987.1,5.1,21,4,0)="their name."
^DD(8987.1,5.1,"DT")="2931105"
^DD(8987.1,5.2,0)="<thresh ROU CMDS/SEC^RNJ8,1^^0;6^K:+X'=X!(X>999999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(8987.1,5.2,3)="Type a Number between .1 and 999999, 1 Decimal Digit"
^DD(8987.1,5.2,21,0)="^^7^7^2931105^"
^DD(8987.1,5.2,21,1,0)="       Some DHCP routines are executed very briefly.  Therefore, the number"
^DD(8987.1,5.2,21,2,0)="of commands they execute are relativity very small for a RTHIST session."
^DD(8987.1,5.2,21,3,0)="A ""bucket"" called '<thresh' in the Routine command report is where all"
^DD(8987.1,5.2,21,4,0)="command counts for these types of routine(s) will be collected.  For"
^DD(8987.1,5.2,21,5,0)="example, if routine ABC executes 976 commands for a RTHIST session and you"
^DD(8987.1,5.2,21,6,0)="specify 1000 as the thresh hold value, then ABC's command count will be"
^DD(8987.1,5.2,21,7,0)="placed in the '<thresh' bucket."
^DD(8987.1,5.2,"DT")="2940513"
^DD(8987.1,5.3,0)="<thresh GBL GREFS/SEC^RNJ8,1^^0;7^K:+X'=X!(X>999999)!(X<.1)!(X?.E1"".""2N.N) X"
^DD(8987.1,5.3,3)="Type a Number between .1 and 999999, 1 Decimal Digit"
^DD(8987.1,5.3,21,0)="^^7^7^2931105^"
^DD(8987.1,5.3,21,1,0)="       Some DHCP routines reference global(s) very little.  Therefore, the"
^DD(8987.1,5.3,21,2,0)="number of global references are relativity very small for a RTHIST"
^DD(8987.1,5.3,21,3,0)="session.  A ""bucket"" called '<thresh' in the Global Access report is where"
^DD(8987.1,5.3,21,4,0)="all these type of global(s) will get placed.  For example, if global ABC"
^DD(8987.1,5.3,21,5,0)="is referenced 109 times fora RTHIST session and you specify 300 as the"
^DD(8987.1,5.3,21,6,0)="thresh hold, the ABC's reference count will be placed in the '<thresh'"
^DD(8987.1,5.3,21,7,0)="bucket."
^DD(8987.1,5.3,"DT")="2940513"
^DD(8987.1,6,0)="LOCAL CMP RECIPIENTS^8987.16PA^^2;0"
^DD(8987.1,6,21,0)="^^3^3^2950118^^"
^DD(8987.1,6,21,1,0)=" "
^DD(8987.1,6,21,2,0)="This field contains the local recipients of MPM alerts or informational"
^DD(8987.1,6,21,3,0)="messages from the performance monitor."
^DD(8987.1,7,0)="REMOTE CMP RECIPIENTS^8987.17A^^4;0"
^DD(8987.1,7,21,0)="^^23^23^2950130^"
^DD(8987.1,7,21,1,0)="These recipients will receive MSM PERFORMANCE DATA. They could be remote"
^DD(8987.1,7,21,2,0)="mail groups or server names specified by your ISC. Data from ALL sites"
^DD(8987.1,7,21,3,0)="will always be sent to G.CMP@ISC-SF.VA.GOV and does not need to be added"
^DD(8987.1,7,21,4,0)="here (this is the Capacity Management Directorate)."
^DD(8987.1,7,21,5,0)=" "
^DD(8987.1,7,21,6,0)="Other ISC's who wish to collect performance data from one or more sites"
^DD(8987.1,7,21,7,0)="should first create a similar mail group. To this group, add appropriate"
^DD(8987.1,7,21,8,0)="recipients, as well as the server option S.A6ALOAD2. This option should"
^DD(8987.1,7,21,9,0)="look like the following:"
^DD(8987.1,7,21,10,0)=" "
^DD(8987.1,7,21,11,0)="NAME: A6ALOAD2                          MENU TEXT: File MSM Data From"
^DD(8987.1,7,21,12,0)="Sites"
^DD(8987.1,7,21,13,0)="  TYPE: server                          CREATOR: CLEMENS,JOHN"
^DD(8987.1,7,21,14,0)="  ROUTINE: A6ALOAD2                     SERVER BULLETIN: (your choice)"
^DD(8987.1,7,21,15,0)="  SERVER ACTION: RUN IMMEDIATELY        SERVER MAIL GROUP:"
^DD(8987.1,7,21,16,0)="  SERVER AUDIT: YES                     SERVER REPLY: SEND REPLY IN ALL"
^DD(8987.1,7,21,17,0)="CASES"
^DD(8987.1,7,21,18,0)="  UPPERCASE MENU TEXT: FILE MSM DATA FROM SITES"
^DD(8987.1,7,21,19,0)=" "
^DD(8987.1,7,21,20,0)=" "
^DD(8987.1,7,21,21,0)="A6ALOAD2 is the routine which will file incoming data from sites into the"
^DD(8987.1,7,21,22,0)="MSM RTHIST REPORT DATA file at the ISC. The routine is available upon"
^DD(8987.1,7,21,23,0)="request from G.KERNEL DEVELOPER@ISC-SF."
^DD(8987.1,"B","<thresh GBL GREFS/SEC",5.3)=""
^DD(8987.1,"B","<thresh ROU CMDS/SEC",5.2)=""
^DD(8987.1,"B","DAYS TO KEEP DATA",4)=""
^DD(8987.1,"B","DFLT GBL NAME LENGTH",5.1)=""
^DD(8987.1,"B","DFLT ROU NAME LENGTH",5)=""
^DD(8987.1,"B","LOCAL CMP RECIPIENTS",6)=""
^DD(8987.1,"B","REMOTE CMP RECIPIENTS",7)=""
^DD(8987.1,"B","SITE NAME",.01)=""
^DD(8987.1,"B","SITE NUMBER",1)=""
^DD(8987.1,"B","VOL GROUP (NODE)",3)=""
^DD(8987.1,"GL",0,1,.01)=""
^DD(8987.1,"GL",0,2,1)=""
^DD(8987.1,"GL",0,3,5)=""
^DD(8987.1,"GL",0,4,4)=""
^DD(8987.1,"GL",0,5,5.1)=""
^DD(8987.1,"GL",0,6,5.2)=""
^DD(8987.1,"GL",0,7,5.3)=""
^DD(8987.1,"GL",1,0,3)=""
^DD(8987.1,"GL",2,0,6)=""
^DD(8987.1,"GL",4,0,7)=""
^DD(8987.1,"IX",.01)=""
^DD(8987.1,"RQ",.01)=""
^DD(8987.1,"RQ",1)=""
^DD(8987.1,"RQ",5)=""
^DD(8987.1,"RQ",5.1)=""
^DD(8987.1,"RQ",5.2)=""
^DD(8987.1,"RQ",5.3)=""
^DD(8987.1,"SB",8987.13,3)=""
^DD(8987.1,"SB",8987.16,6)=""
^DD(8987.1,"SB",8987.17,7)=""
^DD(8987.13,0)="VOL GROUP (NODE) SUB-FIELD^^7^7"
^DD(8987.13,0,"DT")="2940123"
^DD(8987.13,0,"IX","B",8987.13,.01)=""
^DD(8987.13,0,"NM","VOL GROUP")=""
^DD(8987.13,0,"UP")="8987.1"
^DD(8987.13,.01,0)="VOL GROUP (NODE)^F^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(8987.13,.01,1,0)="^.1"
^DD(8987.13,.01,1,1,0)="8987.13^B"
^DD(8987.13,.01,1,1,1)="S ^XUCS(8987.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8987.13,.01,1,1,2)="K ^XUCS(8987.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8987.13,.01,3)="Answer must be 3 characters in length."
^DD(8987.13,.01,21,0)="^^3^3^2931105^"
^DD(8987.13,.01,21,1,0)="       This field is the 3 letter name that is generally associated with"
^DD(8987.13,.01,21,2,0)="the MGR UCI for a node.  For example, CSA, CSB, PSA, FSA, etc.  Please"
^DD(8987.13,.01,21,3,0)="don't include the Shadow Servers."
^DD(8987.13,.01,"DT")="2930809"
^DD(8987.13,1,0)="AUTO ADJUST RTHIST TABLE SIZE^NJ4,0^^0;2^K:+X'=X!(X>2300)!(X<700)!(X?.E1"".""1N.N) X"
^DD(8987.13,1,3)="Type a Number between 700 and 2300, 0 Decimal Digits"
^DD(8987.13,1,21,0)="^^13^13^2931109^"
^DD(8987.13,1,21,1,0)="Leave this field blank to AUTOMATICALLY ADJUST THE RTHIST TABLE SIZE."
^DD(8987.13,1,21,2,0)=""
^DD(8987.13,1,21,3,0)="       When the RTHIST job is started, it requires the number of table"
^DD(8987.13,1,21,4,0)="entries to be specified.  If the entry for table size is too small, then a"
^DD(8987.13,1,21,5,0)="~TABLE,FULL~ condition will occurr."
^DD(8987.13,1,21,6,0)=""
^DD(8987.13,1,21,7,0)="       If you define this field (i.e. Not Null), then I will use this"
^DD(8987.13,1,21,8,0)="value for the MAXIMUM RTHIST table size."
^DD(8987.13,1,21,9,0)=""
^DD(8987.13,1,21,10,0)="       On the other hand, if you leave this field Null, then I will use"
^DD(8987.13,1,21,11,0)="the MAX AM TABLE SIZE field (#6) to adjust the AM RTHIST table size for"
^DD(8987.13,1,21,12,0)="the morning RTHIST session, or the MAX PM TABLE SIZE field (#7) to adjust"
^DD(8987.13,1,21,13,0)="the PM RTHIST table size for the afternoon RTHIST session."
^DD(8987.13,1,"DT")="2931105"
^DD(8987.13,2,0)="NAME OF PRODUCTION UCI^F^^0;3^K:$L(X)>3!($L(X)<3) X"
^DD(8987.13,2,3)="Answer must be 3 characters in length."
^DD(8987.13,2,21,0)="^^2^2^2931105^"
^DD(8987.13,2,21,1,0)="       This is the name of your Production UCI for this node, i.e. VAH."
^DD(8987.13,2,21,2,0)="This is used in various reports."
^DD(8987.13,2,"DT")="2931104"
^DD(8987.13,5,0)="NAME OF MANAGER UCI^F^^0;6^K:$L(X)>3!($L(X)<3) X"
^DD(8987.13,5,3)="Answer must be 3 characters in length."
^DD(8987.13,5,21,0)="^^1^1^2931105^^"
^DD(8987.13,5,21,1,0)="       This is the name of the manager's UCI for this node, i.e. MGR."
^DD(8987.13,5,"DT")="2930805"
^DD(8987.13,5.5,0)="SERVER TYPE^S^c:Compute;p:Print;f:File;g:General;^0;7^Q"
^DD(8987.13,5.5,3)="Enter the type Server for this node.  The DEFAULT is General"
^DD(8987.13,5.5,21,0)="^^2^2^2950118^"
^DD(8987.13,5.5,21,1,0)="This field indicates the type of usage for this node.  For example, a"
^DD(8987.13,5.5,21,2,0)="'Compute' Servers is used only for interactive logins."
^DD(8987.13,5.5,"DT")="2940123"
^DD(8987.13,6,0)="MAX AM TABLE SIZE^F^^1;1^K:$L(X)>245!($L(X)<1) X"
^DD(8987.13,6,3)="Answer must be 1-245 characters in length."
^DD(8987.13,6,21,0)="^^18^18^2940825^"
^DD(8987.13,6,21,1,0)="       This field is equal to the ^RTHIST(<Internal Run Number>,""SIZE"")"
^DD(8987.13,6,21,2,0)="created during the AM RTHIST run.  The piece delimiter is ""~"" that is used"
^DD(8987.13,6,21,3,0)="for parcing.  The following are the piece definations."
^DD(8987.13,6,21,4,0)=" "
^DD(8987.13,6,21,5,0)="$P #   Defination"
^DD(8987.13,6,21,6,0)="====   =========="
^DD(8987.13,6,21,7,0)="1      RTHIST initial Table Size"
^DD(8987.13,6,21,8,0)="2      highest number of Table entries used during RTHIST"
^DD(8987.13,6,21,9,0)="       if $P#1 = $P#2 then an overflow will occurr.  See $P#5 and $P#6."
^DD(8987.13,6,21,10,0)="3      $H date when this node was created."
^DD(8987.13,6,21,11,0)="4      $H time when this node was created."
^DD(8987.13,6,21,12,0)="5      number of Routine Commands by Routine LOST because of a table"
^DD(8987.13,6,21,13,0)="       overflow."
^DD(8987.13,6,21,14,0)="6      number of Global by global references LOST because of a table"
^DD(8987.13,6,21,15,0)="       overflow."
^DD(8987.13,6,21,16,0)="7      number of Routine Commands counted."
^DD(8987.13,6,21,17,0)="8      number of Global references by global counted."
^DD(8987.13,6,21,18,0)="9      number of Global reference by Routine counted."
^DD(8987.13,6,"DT")="2931025"
^DD(8987.13,7,0)="MAX PM TABLE SIZE^F^^2;1^K:$L(X)>245!($L(X)<1) X"
^DD(8987.13,7,3)="Answer must be 1-245 characters in length."
^DD(8987.13,7,21,0)="^^2^2^2940825^"
^DD(8987.13,7,21,1,0)="       This is the same as the MAX AM TABLE SIZE (field #6).  See field"
^DD(8987.13,7,21,2,0)="#6's DESCRIPTION."
^DD(8987.13,7,"DT")="2931025"
^DD(8987.13,"B","AUTO ADJUST RTHIST TABLE SIZE",1)=""
^DD(8987.13,"B","MAX AM TABLE SIZE",6)=""
^DD(8987.13,"B","MAX PM TABLE SIZE",7)=""
^DD(8987.13,"B","NAME OF MANAGER UCI",5)=""
^DD(8987.13,"B","NAME OF PRODUCTION UCI",2)=""
^DD(8987.13,"B","SERVER TYPE",5.5)=""
^DD(8987.13,"B","VOL GROUP (NODE)",.01)=""
^DD(8987.13,"GL",0,1,.01)=""
^DD(8987.13,"GL",0,2,1)=""
^DD(8987.13,"GL",0,3,2)=""
^DD(8987.13,"GL",0,6,5)=""
^DD(8987.13,"GL",0,7,5.5)=""
^DD(8987.13,"GL",1,1,6)=""
^DD(8987.13,"GL",2,1,7)=""
^DD(8987.13,"IX",.01)=""
^DD(8987.16,0)="LOCAL CMP RECIPIENTS SUB-FIELD^^.01^1"
^DD(8987.16,0,"DT")="2931020"
^DD(8987.16,0,"IX","B",8987.16,.01)=""
^DD(8987.16,0,"NM","LOCAL CMP RECIPIENTS")=""
^DD(8987.16,0,"UP")="8987.1"
^DD(8987.16,.01,0)="LOCAL CMP RECIPIENTS^MP200'^VA(200,^0;1^Q"
^DD(8987.16,.01,1,0)="^.1"
^DD(8987.16,.01,1,1,0)="8987.16^B"
^DD(8987.16,.01,1,1,1)="S ^XUCS(8987.1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8987.16,.01,1,1,2)="K ^XUCS(8987.1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8987.16,.01,3)="This user will receive MSM PERFORMANCE ALERTS/DATA"
^DD(8987.16,.01,21,0)="^^2^2^2950118^"
^DD(8987.16,.01,21,1,0)="This field contains the local recipients of MPM alerts or informational"
^DD(8987.16,.01,21,2,0)="messages from the performance monitor."
^DD(8987.16,.01,"DT")="2931020"
^DD(8987.16,"B","LOCAL CMP RECIPIENTS",.01)=""
^DD(8987.16,"GL",0,1,.01)=""
^DD(8987.16,"IX",.01)=""
^DD(8987.17,0)="REMOTE CMP RECIPIENTS SUB-FIELD^^.01^1"
^DD(8987.17,0,"DT")="2931020"
^DD(8987.17,0,"IX","B",8987.17,.01)=""
^DD(8987.17,0,"NM","REMOTE CMP RECIPIENTS")=""
^DD(8987.17,0,"UP")="8987.1"
^DD(8987.17,.01,0)="REMOTE CMP RECIPIENTS^MF^^0;1^K:$L(X)>50!($L(X)<1) X"
^DD(8987.17,.01,1,0)="^.1"
^DD(8987.17,.01,1,1,0)="8987.17^B"
^DD(8987.17,.01,1,1,1)="S ^XUCS(8987.1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(8987.17,.01,1,1,2)="K ^XUCS(8987.1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(8987.17,.01,3)="Answer must be 1-50 characters in length."
^DD(8987.17,.01,21,0)="^^23^23^2950118^"
^DD(8987.17,.01,21,1,0)="These recipients will receive MSM PERFORMANCE DATA. They could be remote"
^DD(8987.17,.01,21,2,0)="mail groups or server names specified by your ISC. Data from ALL sites"
^DD(8987.17,.01,21,3,0)="will always be sent to G.CMP@ISC-SF.VA.GOV and does not need to be added"
^DD(8987.17,.01,21,4,0)="here (this is the Capacity Management Directorate)."
^DD(8987.17,.01,21,5,0)=" "
^DD(8987.17,.01,21,6,0)="Other ISC's who wish to collect performance data from one or more sites"
^DD(8987.17,.01,21,7,0)="should first create a similar mail group. To this group, add appropriate"
^DD(8987.17,.01,21,8,0)="recipients, as well as the server option S.A6ALOAD2. This option should"
^DD(8987.17,.01,21,9,0)="look like the following:"
^DD(8987.17,.01,21,10,0)=" "
^DD(8987.17,.01,21,11,0)="NAME: A6ALOAD2                          MENU TEXT: File MSM Data From"
^DD(8987.17,.01,21,12,0)="Sites"
^DD(8987.17,.01,21,13,0)="  TYPE: server                          CREATOR: CLEMENS,JOHN"
^DD(8987.17,.01,21,14,0)="  ROUTINE: A6ALOAD2                     SERVER BULLETIN: (your choice)"
^DD(8987.17,.01,21,15,0)="  SERVER ACTION: RUN IMMEDIATELY        SERVER MAIL GROUP:"
^DD(8987.17,.01,21,16,0)="  SERVER AUDIT: YES                     SERVER REPLY: SEND REPLY IN ALL"
^DD(8987.17,.01,21,17,0)="CASES"
^DD(8987.17,.01,21,18,0)="  UPPERCASE MENU TEXT: FILE MSM DATA FROM SITES"
^DD(8987.17,.01,21,19,0)=" "
^DD(8987.17,.01,21,20,0)=" "
^DD(8987.17,.01,21,21,0)="A6ALOAD2 is the routine which will file incoming data from sites into the"
^DD(8987.17,.01,21,22,0)="MSM RTHIST REPORT DATA file at the ISC. The routine is available upon"
^DD(8987.17,.01,21,23,0)="request from G.KERNEL DEVELOPERS@ISC-SF."
^DD(8987.17,.01,"DT")="2931020"
^DD(8987.17,"B","REMOTE CMP RECIPIENTS",.01)=""
^DD(8987.17,"GL",0,1,.01)=""
^DD(8987.17,"IX",.01)=""
^DD(8987.2,0)="FIELD^^2^3"
^DD(8987.2,0,"DDA")="N"
^DD(8987.2,0,"DT")="2941121"
^DD(8987.2,0,"IX","B",8987.2,.01)=""
^DD(8987.2,0,"IX","C",8987.21,.01)=""
^DD(8987.2,0,"NM","MSM RTHIST REPORT DATA")=""
^DD(8987.2,0,"VR")="7.3"
^DD(8987.2,.01,0)="SITE_VOL GROUP^RF^^0;1^K:$L(X)>6!($L(X)<6)!'(X'?1P.E) X"
^DD(8987.2,.01,1,0)="^.1"
^DD(8987.2,.01,1,1,0)="8987.2^B"
^DD(8987.2,.01,1,1,1)="S ^XUCS(8987.2,""B"",$E(X,1,30),DA)="""""
^DD(8987.2,.01,1,1,2)="K ^XUCS(8987.2,""B"",$E(X,1,30),DA)"
^DD(8987.2,.01,3)="Answer must be 6 characters in length."
^DD(8987.2,.01,21,0)="^^2^2^2940812^"
^DD(8987.2,.01,21,1,0)="       This is a concatenation of the Site Number and the name of Volume"
^DD(8987.2,.01,21,2,0)="Group 0 (Node name) as defined in the MSM RTHIST SITE file."
^DD(8987.2,.01,"DT")="2930709"
^DD(8987.2,1,0)="DATE/TIME OF REPORT^8987.21DA^^1;0"
^DD(8987.2,1,21,0)="^^2^2^2940826^"
^DD(8987.2,1,21,1,0)="       This multiple contains all of the RTHIST information gathered by"
^DD(8987.2,1,21,2,0)="MPM."
^DD(8987.2,2,0)="SYSTEM CONFIG PARMS^F^^2;1^K:$L(X)>240!($L(X)<1) X"
^DD(8987.2,2,3)="Answer must be 1-240 characters in length."
^DD(8987.2,2,21,0)="^^20^20^2950118^^"
^DD(8987.2,2,21,1,0)="The '~' is used as a Piece delimiter for parsing."
^DD(8987.2,2,21,2,0)="$P #   Definition"
^DD(8987.2,2,21,3,0)="====   =========="
^DD(8987.2,2,21,4,0)="1      buffer cache size"
^DD(8987.2,2,21,5,0)="2      begin burst flush"
^DD(8987.2,2,21,6,0)="3      stop burst flush"
^DD(8987.2,2,21,7,0)="4      flush panic level"
^DD(8987.2,2,21,8,0)="5      flush Interval (sec)"
^DD(8987.2,2,21,9,0)="6      flush quantity"
^DD(8987.2,2,21,10,0)="7      maximum partitions"
^DD(8987.2,2,21,11,0)="8      maximum concurrent partitions"
^DD(8987.2,2,21,12,0)="9      slice size"
^DD(8987.2,2,21,13,0)="10     RunQ slice"
^DD(8987.2,2,21,14,0)="11     Q1 -> Q2 threshold"
^DD(8987.2,2,21,15,0)="12     Q2 -> Q3 threshold"
^DD(8987.2,2,21,16,0)="13     STAP size"
^DD(8987.2,2,21,17,0)="14     STACK size"
^DD(8987.2,2,21,18,0)=" "
^DD(8987.2,2,21,19,0)=" For further information see the Version 4 MSM Utility Manual,"
^DD(8987.2,2,21,20,0)="pg 12-35 thru 12-37."
^DD(8987.2,2,"DT")="2931127"
^DD(8987.2,"B","DATE/TIME OF REPORT",1)=""
^DD(8987.2,"B","SITE_VOL GROUP",.01)=""
^DD(8987.2,"B","SYSTEM CONFIG PARMS",2)=""
^DD(8987.2,"GL",0,1,.01)=""
^DD(8987.2,"GL",1,0,1)=""
^DD(8987.2,"GL",2,1,2)=""
^DD(8987.2,"IX",.01)=""
^DD(8987.2,"RQ",.01)=""
^DD(8987.2,"SB",8987.21,1)=""
^DD(8987.21,0)="DATE/TIME OF REPORT SUB-FIELD^^7^11"
^DD(8987.21,0,"DT")="2941121"
^DD(8987.21,0,"IX","B",8987.21,.01)=""
^DD(8987.21,0,"NM","DATE/TIME OF REPORT")=""
^DD(8987.21,0,"UP")="8987.2"
^DD(8987.21,.01,0)="DATE/TIME OF REPORT^D^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8987.21,.01,1,0)="^.1"
^DD(8987.21,.01,1,1,0)="8987.21^B"
^DD(8987.21,.01,1,1,1)="S ^XUCS(8987.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8987.21,.01,1,1,2)="K ^XUCS(8987.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8987.21,.01,1,2,0)="8987.2^C"
^DD(8987.21,.01,1,2,1)="S ^XUCS(8987.2,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(8987.21,.01,1,2,2)="K ^XUCS(8987.2,""C"",$E(X,1,30),DA(1),DA)"
^DD(8987.21,.01,1,2,"DT")="2930811"
^DD(8987.21,.01,21,0)="^^1^1^2940812^"
^DD(8987.21,.01,21,1,0)="       This is the Date and Time the RTHIST was run for this site."
^DD(8987.21,.01,"DT")="2930811"
^DD(8987.21,1.2,0)="ELAPSED TIME (SECONDS)^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8987.21,1.2,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(8987.21,1.2,21,0)="^^2^2^2940826^"
^DD(8987.21,1.2,21,1,0)="       This field stores the total amount of time, in seconds, the RTHIST"
^DD(8987.21,1.2,21,2,0)="was run.  For example: 3600 = 1 hour."
^DD(8987.21,1.2,"DT")="2931020"
^DD(8987.21,1.3,0)="ROU TABLE FULL^S^n:No;y:Yes;^0;2^Q"
^DD(8987.21,1.3,21,0)="^^3^3^2940826^"
^DD(8987.21,1.3,21,1,0)="       If the RTHIST table size is too small, a ROUTINE TABLE FULL"
^DD(8987.21,1.3,21,2,0)="condition could exist.  This field, if set, will indicate that the"
^DD(8987.21,1.3,21,3,0)="condition did exist."
^DD(8987.21,1.3,"DT")="2930709"
^DD(8987.21,1.4,0)="GBL TABLE FULL^S^n:No;y:Yes;^0;4^Q"
^DD(8987.21,1.4,21,0)="^^3^3^2940826^"
^DD(8987.21,1.4,21,1,0)="        If the table size for RTHIST is set too small there is the"
^DD(8987.21,1.4,21,2,0)="posibility that Global References will be lost.  This field, if it is set,"
^DD(8987.21,1.4,21,3,0)="indicates that the condition actually did exist."
^DD(8987.21,1.4,"DT")="2930709"
^DD(8987.21,1.5,0)="AVERAGE JOBS^NJ5,1^^0;5^K:+X'=X!(X>200)!(X<1)!(X?.E1"".""2N.N) X"
^DD(8987.21,1.5,3)="Type a Number between 1 and 200, 1 Decimal Digit"
^DD(8987.21,1.5,21,0)="^^1^1^2940826^"
^DD(8987.21,1.5,21,1,0)="       This is the average number of jobs on this node during this RTHIST."
^DD(8987.21,1.5,"DT")="2940323"
^DD(8987.21,2,0)="ROUTINE/GLOBAL ACCESSES^8987.32A^^1;0"
^DD(8987.21,2,21,0)="^^2^2^2940826^^"
^DD(8987.21,2,21,1,0)="       This multiple contains the RTHIST information pertaining to"
^DD(8987.21,2,21,2,0)="Routines."
^DD(8987.21,2,"DT")="2930708"
^DD(8987.21,3,0)="GLOBAL REFERENCES^8987.33A^^2;0"
^DD(8987.21,3,21,0)="^^2^2^2940826^"
^DD(8987.21,3,21,1,0)="       This multiple contains the RTHIST information for globals gathered"
^DD(8987.21,3,21,2,0)="by MPM."
^DD(8987.21,4,0)="RAW STATISTICS^8987.34A^^3;0"
^DD(8987.21,4,21,0)="^^1^1^2940826^"
^DD(8987.21,4,21,1,0)="       This multiple contains the RTHIST raw counts gathered by MPM."
^DD(8987.21,5,0)="COMPUTED RATIOS^8987.35A^^4;0"
^DD(8987.21,5,21,0)="^^2^2^2940824^"
^DD(8987.21,5,21,1,0)="       ** NOT CURRENTLY USED **"
^DD(8987.21,5,21,2,0)="       ** FOR FUTURE USE **"
^DD(8987.21,6,0)="RESPONSE TIME^8987.36A^^5;0"
^DD(8987.21,6,21,0)="^^2^2^2940824^"
^DD(8987.21,6,21,1,0)="       This multiple contains the terminal Response Time information"
^DD(8987.21,6,21,2,0)="gathered by MPM."
^DD(8987.21,6,"DT")="2930707"
^DD(8987.21,7,0)="CPU/DISK UTILIZATION^8987.37DA^^6;0"
^DD(8987.21,7,21,0)="^^3^3^2950118^"
^DD(8987.21,7,21,1,0)="This multiple holds a snap-shot of CPU and DISK Utilization"
^DD(8987.21,7,21,2,0)="during a given RTHIST session. For further information, see the Version 4"
^DD(8987.21,7,21,3,0)="MSM Utility Manual, pg 12-42."
^DD(8987.21,"B","AVERAGE JOBS",1.5)=""
^DD(8987.21,"B","COMPUTED RATIOS",5)=""
^DD(8987.21,"B","CPU/DISK UTILIZATION",7)=""
^DD(8987.21,"B","DATE/TIME OF REPORT",.01)=""
^DD(8987.21,"B","ELAPSED TIME (SECONDS)",1.2)=""
^DD(8987.21,"B","GBL TABLE FULL",1.4)=""
^DD(8987.21,"B","GLOBAL REFERENCES",3)=""
^DD(8987.21,"B","RAW STATISTICS",4)=""
^DD(8987.21,"B","RESPONSE TIME",6)=""
^DD(8987.21,"B","ROU TABLE FULL",1.3)=""
^DD(8987.21,"B","ROUTINE/GLOBAL ACCESSES",2)=""
^DD(8987.21,"GL",0,1,.01)=""
^DD(8987.21,"GL",0,2,1.3)=""
^DD(8987.21,"GL",0,3,1.2)=""
^DD(8987.21,"GL",0,4,1.4)=""
^DD(8987.21,"GL",0,5,1.5)=""
^DD(8987.21,"GL",1,0,2)=""
^DD(8987.21,"GL",2,0,3)=""
^DD(8987.21,"GL",3,0,4)=""
^DD(8987.21,"GL",4,0,5)=""
^DD(8987.21,"GL",5,0,6)=""
^DD(8987.21,"GL",6,0,7)=""
^DD(8987.21,"IX",.01)=""
^DD(8987.21,"SB",8987.32,2)=""
^DD(8987.21,"SB",8987.33,3)=""
^DD(8987.21,"SB",8987.34,4)=""
^DD(8987.21,"SB",8987.35,5)=""
^DD(8987.21,"SB",8987.36,6)=""
^DD(8987.21,"SB",8987.37,7)=""
^DD(8987.32,0)="ROUTINE/GLOBAL ACCESSES SUB-FIELD^^5^6"
^DD(8987.32,0,"DT")="2941121"
^DD(8987.32,0,"IX","B",8987.32,.01)=""
^DD(8987.32,0,"NM","ROUTINE/GLOBAL ACCESSES")=""
^DD(8987.32,0,"UP")="8987.21"
^DD(8987.32,.01,0)="ROUTINE NAME^F^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(8987.32,.01,1,0)="^.1"
^DD(8987.32,.01,1,1,0)="8987.32^B"
^DD(8987.32,.01,1,1,1)="S ^XUCS(8987.2,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8987.32,.01,1,1,2)="K ^XUCS(8987.2,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8987.32,.01,3)="Answer must be 1-8 characters in length."
^DD(8987.32,.01,21,0)="^^1^1^2940812^"
^DD(8987.32,.01,21,1,0)="       This field contains the full 1-8 character routine name."
^DD(8987.32,.01,"DT")="2930707"
^DD(8987.32,1,0)="UCI^F^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(8987.32,1,3)="Answer must be 3 characters in length."
^DD(8987.32,1,21,0)="^^1^1^2940812^"
^DD(8987.32,1,21,1,0)="       This is the UCI where the routine called.  For example: VAH"
^DD(8987.32,1,"DT")="2930622"
^DD(8987.32,2,0)="TYPE OF UCI^S^m:Manager;p:Production;o:Other;^0;3^Q"
^DD(8987.32,2,21,0)="^^2^2^2940812^"
^DD(8987.32,2,21,1,0)="       This is the type of the UCI.  For example: Production, Manager,"
^DD(8987.32,2,21,2,0)="etc."
^DD(8987.32,2,"DT")="2930625"
^DD(8987.32,3,0)="NUMBER OF COMMANDS^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<-999999999)!(X?.E1"".""1N.N) X"
^DD(8987.32,3,3)="Type a Number between -999999999 and 999999999, 0 Decimal Digits"
^DD(8987.32,3,21,0)="^^2^2^2940826^^"
^DD(8987.32,3,21,1,0)="       This field contains the total number of commands executed for the"
^DD(8987.32,3,21,2,0)="above routine during the RTHIST run."
^DD(8987.32,3,"DT")="2941121"
^DD(8987.32,4,0)="NUMBER OF GLOBAL ACCESSES^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.32,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.32,4,21,0)="^^2^2^2940826^"
^DD(8987.32,4,21,1,0)="       This field contains the total number of global references made by"
^DD(8987.32,4,21,2,0)="the above named routine."
^DD(8987.32,4,"DT")="2930622"
^DD(8987.32,5,0)="ROUTINE COUNTER NEG^S^n:No;y:Yes;^0;6^Q"
^DD(8987.32,5,21,0)="^^4^4^2940812^"
^DD(8987.32,5,21,1,0)="       Due to a bug in MSM it is possible for the routine counter to be"
^DD(8987.32,5,21,2,0)="negative number.  If the counter is negative two things happen:"
^DD(8987.32,5,21,3,0)="1.  The number in field #3 will be changed to a positive number."
^DD(8987.32,5,21,4,0)="2.  This field will be set to Yes."
^DD(8987.32,5,"DT")="2930625"
^DD(8987.32,"B","NUMBER OF COMMANDS",3)=""
^DD(8987.32,"B","NUMBER OF GLOBAL ACCESSES",4)=""
^DD(8987.32,"B","ROUTINE COUNTER NEG",5)=""
^DD(8987.32,"B","ROUTINE NAME",.01)=""
^DD(8987.32,"B","TYPE OF UCI",2)=""
^DD(8987.32,"B","UCI",1)=""
^DD(8987.32,"GL",0,1,.01)=""
^DD(8987.32,"GL",0,2,1)=""
^DD(8987.32,"GL",0,3,2)=""
^DD(8987.32,"GL",0,4,3)=""
^DD(8987.32,"GL",0,5,4)=""
^DD(8987.32,"GL",0,6,5)=""
^DD(8987.32,"IX",.01)=""
^DD(8987.33,0)="GLOBAL REFERENCES SUB-FIELD^^6^7"
^DD(8987.33,0,"DT")="2940812"
^DD(8987.33,0,"IX","B",8987.33,.01)=""
^DD(8987.33,0,"NM","GLOBAL REFERENCES")=""
^DD(8987.33,0,"UP")="8987.21"
^DD(8987.33,.01,0)="GLOBAL NAME^F^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(8987.33,.01,1,0)="^.1"
^DD(8987.33,.01,1,1,0)="8987.33^B"
^DD(8987.33,.01,1,1,1)="S ^XUCS(8987.2,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8987.33,.01,1,1,2)="K ^XUCS(8987.2,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8987.33,.01,3)="Answer must be 1-8 characters in length."
^DD(8987.33,.01,21,0)="^^1^1^2940826^"
^DD(8987.33,.01,21,1,0)="       This field contains the 1-8 character name of the global."
^DD(8987.33,.01,"DT")="2930707"
^DD(8987.33,1,0)="UCI^F^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(8987.33,1,3)="Answer must be 3 characters in length."
^DD(8987.33,1,21,0)="^^1^1^2940826^"
^DD(8987.33,1,21,1,0)="       This field is the 3 character name of the UCI.  For example: VAH."
^DD(8987.33,1,"DT")="2930707"
^DD(8987.33,2,0)="TYPE OF UCI^S^p:Production;m:Manager;o:Other;^0;3^Q"
^DD(8987.33,2,21,0)="^^2^2^2940812^"
^DD(8987.33,2,21,1,0)="       This is the type of UCI the global is located in.  For example:"
^DD(8987.33,2,21,2,0)="Production."
^DD(8987.33,2,"DT")="2930707"
^DD(8987.33,3,0)="NUMBER OF GLOBAL REFERENCES^NJ9,0^^0;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.33,3,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(8987.33,3,21,0)="^^2^2^2940826^"
^DD(8987.33,3,21,1,0)="       This is the total number of references made to this global during"
^DD(8987.33,3,21,2,0)="the RTHIST run."
^DD(8987.33,3,"DT")="2940812"
^DD(8987.33,4,0)="RESERVED^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.33,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.33,4,21,0)="^^1^1^2940812^"
^DD(8987.33,4,21,1,0)="       Reserved for future use."
^DD(8987.33,4,"DT")="2930707"
^DD(8987.33,5,0)="GLOBAL COUNTER NEG^S^y:Yes;n:No;^0;6^Q"
^DD(8987.33,5,21,0)="^^5^5^2940826^"
^DD(8987.33,5,21,1,0)="       Due to a bug in MSM RTHIST it is possible for the number of global"
^DD(8987.33,5,21,2,0)="references to be negative.  If the number of references is negative two"
^DD(8987.33,5,21,3,0)="things will happen:"
^DD(8987.33,5,21,4,0)="1.  Field #3 be set to a positive number."
^DD(8987.33,5,21,5,0)="2.  And this field will be set to Yes."
^DD(8987.33,5,"DT")="2930707"
^DD(8987.33,6,0)="GLOBAL LOCATION^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(8987.33,6,3)="Answer must be 1-10 characters in length."
^DD(8987.33,6,21,0)="^^3^3^2960112^"
^DD(8987.33,6,21,1,0)="This field contains the Volume Group where the global is located."
^DD(8987.33,6,21,2,0)="For example: if DD resides on V.G FDA,"
^DD(8987.33,6,21,3,0)="             then this field will be equal to FDA"
^DD(8987.33,6,"DT")="2960112"
^DD(8987.33,"B","GLOBAL COUNTER NEG",5)=""
^DD(8987.33,"B","GLOBAL LOCATION",6)=""
^DD(8987.33,"B","GLOBAL NAME",.01)=""
^DD(8987.33,"B","NUMBER OF GLOBAL REFERENCES",3)=""
^DD(8987.33,"B","RESERVED",4)=""
^DD(8987.33,"B","TYPE OF UCI",2)=""
^DD(8987.33,"B","UCI",1)=""
^DD(8987.33,"GL",0,1,.01)=""
^DD(8987.33,"GL",0,2,1)=""
^DD(8987.33,"GL",0,3,2)=""
^DD(8987.33,"GL",0,4,3)=""
^DD(8987.33,"GL",0,5,4)=""
^DD(8987.33,"GL",0,6,5)=""
^DD(8987.33,"GL",0,7,6)=""
^DD(8987.33,"IX",.01)=""
^DD(8987.34,0)="RAW STATISTICS SUB-FIELD^^15^17"
^DD(8987.34,0,"IX","B",8987.34,.01)=""
^DD(8987.34,0,"NM","RAW STATISTICS")=""
^DD(8987.34,0,"UP")="8987.21"
^DD(8987.34,.01,0)="RAW STATISTICS^NJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8987.34,.01,1,0)="^.1"
^DD(8987.34,.01,1,1,0)="8987.34^B"
^DD(8987.34,.01,1,1,1)="S ^XUCS(8987.2,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(8987.34,.01,1,1,2)="K ^XUCS(8987.2,DA(2),1,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(8987.34,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(8987.34,.01,21,0)="^^1^1^2940824^"
^DD(8987.34,.01,21,1,0)="       This is just a number for editing purposes."
^DD(8987.34,.01,"DT")="2930707"
^DD(8987.34,.5,0)="TOTAL MUMPS COMMANDS^NJ10,0^^0;16^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,.5,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(8987.34,.5,21,0)="^^3^3^2950118^"
^DD(8987.34,.5,21,1,0)="The total number of mumps commands performed by the Node during the"
^DD(8987.34,.5,21,2,0)="RTHIST session.  See the Version 4 MSM Utility Manual, pg 12-16, for"
^DD(8987.34,.5,21,3,0)="further information."
^DD(8987.34,.5,"DT")="2960328"
^DD(8987.34,1,0)="PHYSICAL DISK READS^NJ7,0^^0;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,1,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,1,21,0)="^^3^3^2950118^"
^DD(8987.34,1,21,1,0)="The number of physical disk read operations (database only)"
^DD(8987.34,1,21,2,0)="performed.  See the Version 4 MSM Utility Manual, pg 12-16, for further"
^DD(8987.34,1,21,3,0)="information."
^DD(8987.34,1,"DT")="2930708"
^DD(8987.34,2,0)="PHYSICAL DISK WRITES^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,2,21,0)="^^3^3^2950118^"
^DD(8987.34,2,21,1,0)="The number of times database blocks were physically written to the"
^DD(8987.34,2,21,2,0)="disk.  See the Version 4 MSM Utility Manual, pg 12-17, for further"
^DD(8987.34,2,21,3,0)="information."
^DD(8987.34,2,"DT")="2930708"
^DD(8987.34,3,0)="TOTAL DISK I/O^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,3,21,0)="^^1^1^2940826^^"
^DD(8987.34,3,21,1,0)="       This is the total of Field #1 + Field #2."
^DD(8987.34,3,"DT")="2930708"
^DD(8987.34,4,0)="GLOBAL SET CMDS^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,4,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,4,21,0)="^^2^2^2950118^"
^DD(8987.34,4,21,1,0)="This is a count of the number of global Sets.  See the Version 4 MSM"
^DD(8987.34,4,21,2,0)="Utility Manual, pg 12-20, for further information."
^DD(8987.34,4,"DT")="2930708"
^DD(8987.34,5,0)="GLOBAL KILL CMDS^NJ7,0^^0;6^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,5,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,5,21,0)="^^2^2^2950118^"
^DD(8987.34,5,21,1,0)="This is the number of global Kill commands.  See the Version 4 MSM Utility"
^DD(8987.34,5,21,2,0)="Manual, pg 12-20, for further information."
^DD(8987.34,5,"DT")="2930708"
^DD(8987.34,6,0)="GLOBAL FETCHES^NJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,6,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,6,21,0)="^^2^2^2950118^"
^DD(8987.34,6,21,1,0)="This is a count of global node fetched.  See the  Version 4 MSM Utility"
^DD(8987.34,6,21,2,0)="Manual, pg 12-20, for further information."
^DD(8987.34,6,"DT")="2930708"
^DD(8987.34,7,0)="TOTAL GLOBAL ACCESSES^NJ7,0^^0;8^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,7,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,7,21,0)="^^1^1^2950118^^^"
^DD(8987.34,7,21,1,0)="This is the Total of Field #4 + Field #5 + Field #6."
^DD(8987.34,7,"DT")="2930708"
^DD(8987.34,8,0)="TOTAL LOGICAL READ OPERATIONS^NJ7,0^^0;9^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,8,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,8,21,0)="^^2^2^2950118^^"
^DD(8987.34,8,21,1,0)="This is the total number of Logical Buffer Read operations.  See the"
^DD(8987.34,8,21,2,0)="Version 4 MSM Utility Manual, pg 12-22, for further information."
^DD(8987.34,8,"DT")="2930708"
^DD(8987.34,9,0)="TOTAL LOGICAL WRITE OPERATIONS^NJ7,0^^0;10^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,9,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,9,21,0)="^^2^2^2950118^"
^DD(8987.34,9,21,1,0)=" This is the number of times a database block was updated in memory."
^DD(8987.34,9,21,2,0)=" See the Version 4 MSM Utility Manual, pg 12-23, for further information."
^DD(8987.34,9,"DT")="2930708"
^DD(8987.34,10,0)="TOTAL DDP GLOBAL REQUESTS^NJ7,0^^0;11^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,10,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,10,21,0)="^^3^3^2950118^"
^DD(8987.34,10,21,1,0)="This is the number of DDP requests performed on behalf of all other"
^DD(8987.34,10,21,2,0)="systems in the network.  See the Version 4 MSM Utility Manual, pg 12-24,"
^DD(8987.34,10,21,3,0)="for further information."
^DD(8987.34,10,"DT")="2930708"
^DD(8987.34,11,0)="TOTAL RVG REQUESTS^NJ7,0^^0;12^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,11,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,11,21,0)="^^3^3^2950118^"
^DD(8987.34,11,21,1,0)="This is the number of global requests that were made to a volume"
^DD(8987.34,11,21,2,0)="group that is mounted remotely.  See the Version 4 MSM Utility Manual, pg"
^DD(8987.34,11,21,3,0)="12-24, for further information."
^DD(8987.34,11,"DT")="2930708"
^DD(8987.34,12,0)="CHAR INPUT FROM TERMINALS^NJ7,0^^0;13^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,12,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,12,21,0)="^^2^2^2950118^"
^DD(8987.34,12,21,1,0)="This is the number of characters received.  See the Version 4 MSM Utility"
^DD(8987.34,12,21,2,0)="Manual, pg 12-30, for further information."
^DD(8987.34,12,"DT")="2930708"
^DD(8987.34,13,0)="CHAR OUTPUT ON TERMINALS^NJ7,0^^0;14^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,13,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,13,21,0)="^^2^2^2950118^"
^DD(8987.34,13,21,1,0)="This is the number of characters sent.  See the Version 4 MSM Utility"
^DD(8987.34,13,21,2,0)="Manual, pg 12-30, for further information."
^DD(8987.34,13,"DT")="2930708"
^DD(8987.34,14,0)="TOTAL TERMINAL I/O^NJ7,0^^0;15^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,14,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,14,21,0)="^^1^1^2950118^"
^DD(8987.34,14,21,1,0)="This field is the sum of field #12 + field #13."
^DD(8987.34,14,"DT")="2930708"
^DD(8987.34,15,0)="RVG HITS^NJ7,0^^0;17^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.34,15,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.34,15,21,0)="^^3^3^2960116^"
^DD(8987.34,15,21,1,0)="This field contain the number of RVG hits for a particular RTHIST"
^DD(8987.34,15,21,2,0)="session.  To calculate the % of RVG Hits:"
^DD(8987.34,15,21,3,0)="          ((RVG HITS/TOTAL RVG REQUESTS)*100)"
^DD(8987.34,15,"DT")="2960116"
^DD(8987.34,"B","CHAR INPUT FROM TERMINALS",12)=""
^DD(8987.34,"B","CHAR OUTPUT ON TERMINALS",13)=""
^DD(8987.34,"B","GLOBAL FETCHES",6)=""
^DD(8987.34,"B","GLOBAL KILL CMDS",5)=""
^DD(8987.34,"B","GLOBAL SET CMDS",4)=""
^DD(8987.34,"B","PHYSICAL DISK READS",1)=""
^DD(8987.34,"B","PHYSICAL DISK WRITES",2)=""
^DD(8987.34,"B","RAW STATISTICS",.01)=""
^DD(8987.34,"B","RVG HITS",15)=""
^DD(8987.34,"B","TOTAL DDP GLOBAL REQUESTS",10)=""
^DD(8987.34,"B","TOTAL DISK I/O",3)=""
^DD(8987.34,"B","TOTAL GLOBAL ACCESSES",7)=""
^DD(8987.34,"B","TOTAL LOGICAL READ OPERATIONS",8)=""
^DD(8987.34,"B","TOTAL LOGICAL WRITE OPERATIONS",9)=""
^DD(8987.34,"B","TOTAL MUMPS COMMANDS",.5)=""
^DD(8987.34,"B","TOTAL RVG REQUESTS",11)=""
^DD(8987.34,"B","TOTAL TERMINAL I/O",14)=""
^DD(8987.34,"GL",0,1,.01)=""
^DD(8987.34,"GL",0,2,1)=""
^DD(8987.34,"GL",0,3,2)=""
^DD(8987.34,"GL",0,4,3)=""
^DD(8987.34,"GL",0,5,4)=""
^DD(8987.34,"GL",0,6,5)=""
^DD(8987.34,"GL",0,7,6)=""
^DD(8987.34,"GL",0,8,7)=""
^DD(8987.34,"GL",0,9,8)=""
^DD(8987.34,"GL",0,10,9)=""
^DD(8987.34,"GL",0,11,10)=""
^DD(8987.34,"GL",0,12,11)=""
^DD(8987.34,"GL",0,13,12)=""
^DD(8987.34,"GL",0,14,13)=""
^DD(8987.34,"GL",0,15,14)=""
^DD(8987.34,"GL",0,16,.5)=""
^DD(8987.34,"GL",0,17,15)=""
^DD(8987.34,"IX",.01)=""
^DD(8987.35,0)="COMPUTED RATIOS SUB-FIELD^^16^17"
^DD(8987.35,0,"DT")="2931021"
^DD(8987.35,0,"IX","B",8987.35,.01)=""
^DD(8987.35,0,"NM","COMPUTED RATIOS")=""
^DD(8987.35,0,"UP")="8987.21"
^DD(8987.35,.01,0)="COMPUTED RATIOS^NJ1,0^^0;1^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8987.35,.01,1,0)="^.1"
^DD(8987.35,.01,1,1,0)="8987.35^B"
^DD(8987.35,.01,1,1,1)="S ^XUCS(8987.2,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(8987.35,.01,1,1,2)="K ^XUCS(8987.2,DA(2),1,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(8987.35,.01,3)="Type a Number between 1 and 1, 0 Decimal Digits"
^DD(8987.35,.01,21,0)="^^1^1^2950118^"
^DD(8987.35,.01,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,.01,"DT")="2931021"
^DD(8987.35,1,0)="%CACHE READ HIT^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,1,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(8987.35,1,21,0)="^^1^1^2950118^"
^DD(8987.35,1,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,1,"DT")="2931021"
^DD(8987.35,2,0)="CACHE WRITE BUFFERING RATIO^NJ6,0^^0;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,2,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,2,21,0)="^^1^1^2950118^"
^DD(8987.35,2,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,2,"DT")="2931021"
^DD(8987.35,3,0)="%REUSE SAME BLOCK^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,3,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(8987.35,3,21,0)="^^1^1^2950118^"
^DD(8987.35,3,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,3,"DT")="2931021"
^DD(8987.35,4,0)="BUFFER READS/GLOBAL REFERENCES^NJ6,0^^0;5^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,4,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,4,21,0)="^^1^1^2950118^^"
^DD(8987.35,4,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,4,"DT")="2931021"
^DD(8987.35,5,0)="PHYS WRITE/GLOB SET/KILL^NJ6,0^^0;6^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,5,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,5,21,0)="^^1^1^2950118^"
^DD(8987.35,5,21,1,0)="** NOT CURENTLY USED, FOR FUTURE USE **"
^DD(8987.35,5,"DT")="2931021"
^DD(8987.35,6,0)="LOG WRITES/GLOB SET/KILL^NJ6,0^^0;7^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,6,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,6,21,0)="^^1^1^2950118^"
^DD(8987.35,6,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,6,"DT")="2931021"
^DD(8987.35,7,0)="BLOCK SPLIT/GLOB SET^NJ6,0^^0;8^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,7,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,7,21,0)="^^1^1^2950118^"
^DD(8987.35,7,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,7,"DT")="2931021"
^DD(8987.35,8,0)="GLOB FETCH/GLOB SET^NJ6,0^^0;9^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,8,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,8,21,0)="^^1^1^2950118^"
^DD(8987.35,8,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,8,"DT")="2931021"
^DD(8987.35,9,0)="GLOB SET/GLOB KILL^NJ6,0^^0;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,9,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,9,21,0)="^^1^1^2950118^"
^DD(8987.35,9,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,9,"DT")="2931021"
^DD(8987.35,10,0)="%EXECUTES ON LOC VAR^NJ6,0^^0;11^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,10,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,10,21,0)="^^1^1^2950118^"
^DD(8987.35,10,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,10,"DT")="2931021"
^DD(8987.35,11,0)="%RE-EXECUTES ON LOC VAR^NJ6,0^^0;12^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,11,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,11,21,0)="^^1^1^2950118^"
^DD(8987.35,11,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,11,"DT")="2931021"
^DD(8987.35,12,0)="%EXECUTES ON GLOB VAR^NJ6,0^^0;13^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,12,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,12,21,0)="^^1^1^2950118^"
^DD(8987.35,12,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,12,"DT")="2931021"
^DD(8987.35,13,0)="%RE-EXECUTE OF STRING^NJ6,0^^0;14^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,13,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,13,21,0)="^^1^1^2950118^"
^DD(8987.35,13,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,13,"DT")="2931021"
^DD(8987.35,14,0)="%RE-EXECUTE OF SAVED PCODE^NJ6,0^^0;15^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,14,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,14,21,0)="^^1^1^2950118^"
^DD(8987.35,14,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,14,"DT")="2931021"
^DD(8987.35,15,0)="%RVG GLOBAL REFERENCES^NJ6,0^^0;16^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,15,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,15,21,0)="^^1^1^2950118^"
^DD(8987.35,15,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,15,"DT")="2931021"
^DD(8987.35,16,0)="%RVG CACHE HITS^NJ6,0^^0;17^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.35,16,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(8987.35,16,21,0)="^^1^1^2950118^"
^DD(8987.35,16,21,1,0)="** NOT CURRENTLY USED, FOR FUTURE USE **"
^DD(8987.35,16,"DT")="2931021"
^DD(8987.35,"B","%CACHE READ HIT",1)=""
^DD(8987.35,"B","%EXECUTES ON GLOB VAR",12)=""
^DD(8987.35,"B","%EXECUTES ON LOC VAR",10)=""
^DD(8987.35,"B","%RE-EXECUTE OF SAVED PCODE",14)=""
^DD(8987.35,"B","%RE-EXECUTE OF STRING",13)=""
^DD(8987.35,"B","%RE-EXECUTES ON LOC VAR",11)=""
^DD(8987.35,"B","%REUSE SAME BLOCK",3)=""
^DD(8987.35,"B","%RVG CACHE HITS",16)=""
^DD(8987.35,"B","%RVG GLOBAL REFERENCES",15)=""
^DD(8987.35,"B","BLOCK SPLIT/GLOB SET",7)=""
^DD(8987.35,"B","BUFFER READS/GLOBAL REFERENCES",4)=""
^DD(8987.35,"B","CACHE WRITE BUFFERING RATIO",2)=""
^DD(8987.35,"B","COMPUTED RATIOS",.01)=""
^DD(8987.35,"B","GLOB FETCH/GLOB SET",8)=""
^DD(8987.35,"B","GLOB SET/GLOB KILL",9)=""
^DD(8987.35,"B","LOG WRITES/GLOB SET/KILL",6)=""
^DD(8987.35,"B","PHYS WRITE/GLOB SET/KILL",5)=""
^DD(8987.35,"GL",0,1,.01)=""
^DD(8987.35,"GL",0,2,1)=""
^DD(8987.35,"GL",0,3,2)=""
^DD(8987.35,"GL",0,4,3)=""
^DD(8987.35,"GL",0,5,4)=""
^DD(8987.35,"GL",0,6,5)=""
^DD(8987.35,"GL",0,7,6)=""
^DD(8987.35,"GL",0,8,7)=""
^DD(8987.35,"GL",0,9,8)=""
^DD(8987.35,"GL",0,10,9)=""
^DD(8987.35,"GL",0,11,10)=""
^DD(8987.35,"GL",0,12,11)=""
^DD(8987.35,"GL",0,13,12)=""
^DD(8987.35,"GL",0,14,13)=""
^DD(8987.35,"GL",0,15,14)=""
^DD(8987.35,"GL",0,16,15)=""
^DD(8987.35,"GL",0,17,16)=""
^DD(8987.35,"IX",.01)=""
^DD(8987.36,0)="RESPONSE TIME SUB-FIELD^^2^3"
^DD(8987.36,0,"IX","B",8987.36,.01)=""
^DD(8987.36,0,"NM","RESPONSE TIME")=""
^DD(8987.36,0,"UP")="8987.21"
^DD(8987.36,.01,0)="BEGIN INTERVAL^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.36,.01,1,0)="^.1"
^DD(8987.36,.01,1,1,0)="8987.36^B"
^DD(8987.36,.01,1,1,1)="S ^XUCS(8987.2,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(8987.36,.01,1,1,2)="K ^XUCS(8987.2,DA(2),1,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(8987.36,.01,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(8987.36,.01,21,0)="^^2^2^2950118^"
^DD(8987.36,.01,21,1,0)="This is the beginning of the interval captured.  For further"
^DD(8987.36,.01,21,2,0)="information, see the Version 4 MSM Utility Manual, pg 12-40."
^DD(8987.36,.01,"DT")="2930831"
^DD(8987.36,1,0)="END INTERVAL^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.36,1,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(8987.36,1,21,0)="^^2^2^2950118^"
^DD(8987.36,1,21,1,0)="This is the ending of the response time interval.  For further"
^DD(8987.36,1,21,2,0)="information see the Version 4 MSM Utility Manual, pg 12-40."
^DD(8987.36,1,"DT")="2930831"
^DD(8987.36,2,0)="NUMBER OF RESPONSES^NJ7,0^^0;3^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.36,2,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(8987.36,2,21,0)="^^2^2^2940824^"
^DD(8987.36,2,21,1,0)="       This is the number of responses recorded between the interval"
^DD(8987.36,2,21,2,0)="as defined by Field #.01 and Field #1."
^DD(8987.36,2,"DT")="2931112"
^DD(8987.36,"B","BEGIN INTERVAL",.01)=""
^DD(8987.36,"B","END INTERVAL",1)=""
^DD(8987.36,"B","NUMBER OF RESPONSES",2)=""
^DD(8987.36,"GL",0,1,.01)=""
^DD(8987.36,"GL",0,2,1)=""
^DD(8987.36,"GL",0,3,2)=""
^DD(8987.36,"IX",.01)=""
^DD(8987.37,0)="CPU/DISK UTILIZATION SUB-FIELD^^4^5"
^DD(8987.37,0,"IX","B",8987.37,.01)=""
^DD(8987.37,0,"NM","CPU/DISK UTILIZATION")=""
^DD(8987.37,0,"UP")="8987.21"
^DD(8987.37,.01,0)="DATE/TIME OF CPU/DISK UTL^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8987.37,.01,1,0)="^.1"
^DD(8987.37,.01,1,1,0)="8987.37^B"
^DD(8987.37,.01,1,1,1)="S ^XUCS(8987.2,DA(2),1,DA(1),6,""B"",$E(X,1,30),DA)="""""
^DD(8987.37,.01,1,1,2)="K ^XUCS(8987.2,DA(2),1,DA(1),6,""B"",$E(X,1,30),DA)"
^DD(8987.37,.01,3)=""
^DD(8987.37,.01,21,0)="^^1^1^2940825^"
^DD(8987.37,.01,21,1,0)="       This is the Date and Time the 'snap shot' was taken."
^DD(8987.37,.01,"DT")="2930712"
^DD(8987.37,1,0)="TIK INTERVAL^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8987.37,1,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(8987.37,1,21,0)="^^2^2^2940825^"
^DD(8987.37,1,21,1,0)="       This field contains the 'tic' interval of the cpu the 'snap shot'"
^DD(8987.37,1,21,2,0)="was taken on."
^DD(8987.37,1,"DT")="2930707"
^DD(8987.37,2,0)="DISP CPU^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.37,2,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(8987.37,2,21,0)="^^2^2^2940825^"
^DD(8987.37,2,21,1,0)="       This field is used to calculate the % of CPU usage.  The formula"
^DD(8987.37,2,21,2,0)="is: the value of this field / field #1 * 100 = %CPU usage."
^DD(8987.37,2,"DT")="2930707"
^DD(8987.37,3,0)="DISP DISK^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8987.37,3,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(8987.37,3,21,0)="^^2^2^2940825^"
^DD(8987.37,3,21,1,0)="       This field is used to calculate the % of DISK usage.  The formula"
^DD(8987.37,3,21,2,0)="is:  the value of this field / the value field #1 * 100 = % of DISK usage."
^DD(8987.37,3,"DT")="2930707"
^DD(8987.37,4,0)="NUMBER OF ACTIVE JOBS^NJ7,0^^0;5^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8987.37,4,3)="Type a Number between 1 and 9999999, 0 Decimal Digits"
^DD(8987.37,4,21,0)="^^1^1^2940825^"
^DD(8987.37,4,21,1,0)="       This is number of active jobs when the 'snap shot' was taken."
^DD(8987.37,4,"DT")="2930707"
^DD(8987.37,"B","DATE/TIME OF CPU/DISK UTL",.01)=""
^DD(8987.37,"B","DISP CPU",2)=""
^DD(8987.37,"B","DISP DISK",3)=""
^DD(8987.37,"B","NUMBER OF ACTIVE JOBS",4)=""
^DD(8987.37,"B","TIK INTERVAL",1)=""
^DD(8987.37,"GL",0,1,.01)=""
^DD(8987.37,"GL",0,2,1)=""
^DD(8987.37,"GL",0,3,2)=""
^DD(8987.37,"GL",0,4,3)=""
^DD(8987.37,"GL",0,5,4)=""
^DD(8987.37,"IX",.01)=""
^DD(8989.2,0)="FIELD^^4^4"
^DD(8989.2,0,"DT")="2931020"
^DD(8989.2,0,"IX","B",8989.2,.01)=""
^DD(8989.2,0,"NM","KERNEL PARAMETERS")=""
^DD(8989.2,0,"VR")="8.0"
^DD(8989.2,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(8989.2,.01,0)="NAME^RFX^^0;1^K:$L(X)>50!($L(X)<3) X"
^DD(8989.2,.01,1,0)="^.1"
^DD(8989.2,.01,1,1,0)="8989.2^B"
^DD(8989.2,.01,1,1,1)="S ^XTV(8989.2,""B"",$E(X,1,50),DA)="""""
^DD(8989.2,.01,1,1,2)="K ^XTV(8989.2,""B"",$E(X,1,50),DA)"
^DD(8989.2,.01,3)="Answer must be 3-50 characters in length."
^DD(8989.2,.01,"DT")="2940302"
^DD(8989.2,2,0)="TYPE^F^^0;2^K:$L(X)>3!($L(X)<1) X"
^DD(8989.2,2,3)="Answer must be 1-3 characters in length."
^DD(8989.2,2,"DT")="2931020"
^DD(8989.2,3,0)="DEFAULT^F^^0;3^K:$L(X)>50!($L(X)<1) X"
^DD(8989.2,3,3)="Answer must be 1-50 characters in length."
^DD(8989.2,3,"DT")="2931020"
^DD(8989.2,4,0)="REPLACEMENT^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(8989.2,4,3)="Answer must be 1-50 characters in length."
^DD(8989.2,4,"DT")="2931020"
^DD(8989.2,"B","DEFAULT",3)=""
^DD(8989.2,"B","NAME",.01)=""
^DD(8989.2,"B","REPLACEMENT",4)=""
^DD(8989.2,"B","TYPE",2)=""
^DD(8989.2,"GL",0,1,.01)=""
^DD(8989.2,"GL",0,2,2)=""
^DD(8989.2,"GL",0,3,3)=""
^DD(8989.2,"GL",0,4,4)=""
^DD(8989.2,"IX",.01)=""
^DD(8989.2,"RQ",.01)=""
^DD(8989.3,0)="FIELD^^503^69"
^DD(8989.3,0,"DT")="2941128"
^DD(8989.3,0,"IX","AC",8989.3,217)=""
^DD(8989.3,0,"IX","AZTCP",8989.3,300)=""
^DD(8989.3,0,"IX","AZTM",8989.304,2)=""
^DD(8989.3,0,"IX","B",8989.3,.01)=""
^DD(8989.3,0,"NM","KERNEL SYSTEM PARAMETERS")=""
^DD(8989.3,0,"PT",579.5,.01)=""
^DD(8989.3,0,"VR")="8.0"
^DD(8989.3,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(8989.3,.001,0)="NUMBER^NJ1,0^^ ^K:+X'=X!(X>1)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8989.3,.001,3)="TYPE A WHOLE NUMBER BETWEEN 1 AND 1"
^DD(8989.3,.001,21,0)="1^^1^1^2930402^^^"
^DD(8989.3,.001,21,1,0)="Used to have VA fileman only have one entry in the file."
^DD(8989.3,.001,23,0)="^^1^1^2930402^"
^DD(8989.3,.001,23,1,0)=" "
^DD(8989.3,.001,"DT")="2851217"
^DD(8989.3,.01,0)="DOMAIN NAME^RP4.2'X^DIC(4.2,^0;1^S DINUM=1"
^DD(8989.3,.01,1,0)="^.1^^-1"
^DD(8989.3,.01,1,1,0)="8989.3^B"
^DD(8989.3,.01,1,1,1)="S ^XTV(8989.3,""B"",$E(X,1,30),DA)="""""
^DD(8989.3,.01,1,1,2)="K ^XTV(8989.3,""B"",$E(X,1,30),DA)"
^DD(8989.3,.01,3)=""
^DD(8989.3,.01,21,0)="^^4^4^2930402^^^"
^DD(8989.3,.01,21,1,0)="This is the name of this installation of the kernel, as it is known"
^DD(8989.3,.01,21,2,0)="to the rest of the network. It must appear in the DOMAIN file."
^DD(8989.3,.01,21,3,0)="This name applies to all CPUs or Volume sets which access this ^XMB"
^DD(8989.3,.01,21,4,0)="global."
^DD(8989.3,.01,"DEL",.01,0)="I 1"
^DD(8989.3,.01,"DT")="2930715"
^DD(8989.3,.02,0)="IRM MAIL GROUP^RF^^0;2^K:$L(X)>50!($L(X)<3)!'(X?1""G."".E) X"
^DD(8989.3,.02,3)="Answer with the G.MAIL GROUP for system problems."
^DD(8989.3,.02,21,0)="^^2^2^3030219^"
^DD(8989.3,.02,21,1,0)="This field holds the name of the Mail Group that should get messages or "
^DD(8989.3,.02,21,2,0)="bulletns about problems on the system."
^DD(8989.3,.02,"DT")="3030219"
^DD(8989.3,.03,0)="AFTER HOURS MAIL GROUP^F^^0;3^K:$L(X)>50!($L(X)<3)!'(X?1""G."".E) X"
^DD(8989.3,.03,3)="Answer with the AFTER HOURS mail group for system problems."
^DD(8989.3,.03,21,0)="^^2^2^3030219^"
^DD(8989.3,.03,21,1,0)="This field holds the name of a mail group that should get messages and "
^DD(8989.3,.03,21,2,0)="bulletins after hours or on weekends and holidays."
^DD(8989.3,.03,"DT")="3030219"
^DD(8989.3,.05,0)="MIXED OS^S^0:No;1:VMS/Linux;^0;5^Q"
^DD(8989.3,.05,.1)="Mixed OS"
^DD(8989.3,.05,21,0)="^^3^3^3070607^^"
^DD(8989.3,.05,21,1,0)="This field tells Kernel that this is a MIXED OS environment."
^DD(8989.3,.05,21,2,0)="This is only supported on a Cache ECP client/server setup."
^DD(8989.3,.05,21,3,0)="The PRIMARY OS is VMS and the SECONDARY OS is non-VMS."
^DD(8989.3,.05,23,0)="^^9^9^3070607^"
^DD(8989.3,.05,23,1,0)="This is used to select which field to use when selecting OS specific"
^DD(8989.3,.05,23,2,0)="data fields in a mixed OS environment."
^DD(8989.3,.05,23,3,0)="The support is for Cache in a ECP client/server mode with only two OS's"
^DD(8989.3,.05,23,4,0)="at a time."
^DD(8989.3,.05,23,5,0)="In a mixed environment the primary OS is always VMS, the secondary is not "
^DD(8989.3,.05,23,6,0)="VMS (i.e. Linux or NT)"
^DD(8989.3,.05,23,7,0)="Some of the fields that need mixed values are"
^DD(8989.3,.05,23,8,0)="DEFAULT HFS DIRECTORY/SECONDARY HFS DIRECTORY"
^DD(8989.3,.05,23,9,0)="$IO/SECONDARY $I."
^DD(8989.3,.05,"DT")="3070607"
^DD(8989.3,9,0)="AGENCY CODE^S^V:VA;AF:AIR FORCE;I:IHS;ARMY:ARMY;N:NAVY;O:OTHER;E:EHR;USCG:COAST GUARD;^0;8^Q"
^DD(8989.3,9,3)="Enter the agency type for this site"
^DD(8989.3,9,21,0)="^^4^4^2920504^^"
^DD(8989.3,9,21,1,0)="This field defines what agency uses this computer.  It sets a flag which"
^DD(8989.3,9,21,2,0)="may be accessed by application programs which need to know this information."
^DD(8989.3,9,21,3,0)="For example, a scheduling program may operate one way in an Air Force"
^DD(8989.3,9,21,4,0)="environment, and another in a VA environment."
^DD(8989.3,9,"DT")="3060511"
^DD(8989.3,9.8,0)="ROUTINE MONITORING^S^n:No;a:All;s:Selected;^RM;1^Q"
^DD(8989.3,9.8,21,0)="^^2^2^2940822^"
^DD(8989.3,9.8,21,1,0)="This field controls how the routine monitoring program behaves."
^DD(8989.3,9.8,21,2,0)="Weather to look at all routines or just selected name spaces."
^DD(8989.3,9.8,"DT")="2940819"
^DD(8989.3,9.81,0)="ROUTINE N-SPACE TO MONITOR^8989.309^^RM1;0"
^DD(8989.3,11,0)="AUTO-GENERATE ACCESS CODES^S^n:NO;y:YES;^3;1^Q"
^DD(8989.3,11,3)="Yes will cause the kernel to generate access codes automatically."
^DD(8989.3,11,21,0)="^^2^2^2920504^^^^"
^DD(8989.3,11,21,1,0)="If this field is set to YES, then the user will not be allowed to "
^DD(8989.3,11,21,2,0)="choose their ACCESS CODE - it will be assigned for them."
^DD(8989.3,11,"DT")="2850530"
^DD(8989.3,11.2,0)="AUTO-GENERATE VERIFY CODES^S^n:No;y:Yes;^3;3^Q"
^DD(8989.3,11.2,21,0)="^^7^7^3060817^"
^DD(8989.3,11.2,21,1,0)="During the C&A review of VistA the current practice of leaving the VERIFY"
^DD(8989.3,11.2,21,2,0)="CODE blank until the user signed on the first time was found to not comply"
^DD(8989.3,11.2,21,3,0)="with VA DIRECTIVE 6504. "
^DD(8989.3,11.2,21,4,0)=" "
^DD(8989.3,11.2,21,5,0)="This field will be used when someone other than the user goes to enter a "
^DD(8989.3,11.2,21,6,0)="verify code.  The system will select a strong verify code and tell the "
^DD(8989.3,11.2,21,7,0)="operator what the new code is."
^DD(8989.3,11.2,"DT")="3060817"
^DD(8989.3,12,0)="USER CHARACTERISTICS TEMPLATE^*P.402'^DIE(^3;2^S DIC(""S"")=""I $P(^(0),U,4)=200"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8989.3,12,3)=""
^DD(8989.3,12,12)="This must be a NEW PERSON FILE template."
^DD(8989.3,12,12.1)="S DIC(""S"")=""I $P(^(0),U,4)=200"""
^DD(8989.3,12,21,0)="^^7^7^2920504^"
^DD(8989.3,12,21,1,0)="This field contains the name of the input template to be used for the"
^DD(8989.3,12,21,2,0)="EDIT USER CHARACTERISTIC option. If there is a ScreenMan form with the"
^DD(8989.3,12,21,3,0)="same name it will be used, terminal type permitting. If it is left blank,"
^DD(8989.3,12,21,4,0)="the XUEDIT CHARACTERISTICS template will be used.  You may want to define"
^DD(8989.3,12,21,6,0)="different fields. The TERMINAL TYPE question is asked before the template"
^DD(8989.3,12,21,7,0)="is called."
^DD(8989.3,12,"DT")="2910523"
^DD(8989.3,19,0)="OPTION AUDIT^S^n:NO AUDIT;a:ALL OPTIONS AUDITED;s:SPECIFIC OPTIONS AUDITED;u:USERS AUDITED;^19;1^Q"
^DD(8989.3,19,21,0)="^^5^5^2920504^^^"
^DD(8989.3,19,21,1,0)="This field indicates what should be audited  between the 'Initiate Audit'"
^DD(8989.3,19,21,2,0)=" date and 'Terminate Audit' date fields.  The 'Option to Audit' Subfile"
^DD(8989.3,19,21,3,0)=" along with the 'Namespace to Audit' Subfile hold the lists of specific"
^DD(8989.3,19,21,4,0)=" options that would be audited (choosing ""s"").  The 'User to Audit'"
^DD(8989.3,19,"DT")="2870529"
^DD(8989.3,19.1,0)="OPTION TO AUDIT^8989.36P^^19.1;0"
^DD(8989.3,19.1,21,0)="^^1^1^2920504^^"
^DD(8989.3,19.1,21,1,0)="This subfile holds a list of options to audit."
^DD(8989.3,19.2,0)="NAMESPACE TO AUDIT^8989.35^^19.2;0"
^DD(8989.3,19.2,21,0)="^^1^1^2920504^^"
^DD(8989.3,19.2,21,1,0)="This subfile holds a list of namespaces to audit."
^DD(8989.3,19.3,0)="USER TO AUDIT^8989.34P^^19.3;0"
^DD(8989.3,19.3,21,0)="^.001^1^1^3001102^^^"
^DD(8989.3,19.3,21,1,0)="This subfile holds a list of users to audit."
^DD(8989.3,19.4,0)="INITIATE AUDIT^D^^19;2^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(8989.3,19.4,21,0)="^^4^4^2920504^^^"
^DD(8989.3,19.4,21,1,0)="This field indicates the date when an audit will begin.  The 'Option"
^DD(8989.3,19.4,21,2,0)="'Audit' Field defines the nature of the audit that will be performed."
^DD(8989.3,19.4,21,3,0)="Auditing will only be done if there is both a 'Initiate Audit' and"
^DD(8989.3,19.4,21,4,0)="'Terminate Audit' data."
^DD(8989.3,19.4,"DT")="2870529"
^DD(8989.3,19.5,0)="TERMINATE AUDIT^D^^19;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(8989.3,19.5,3)=""
^DD(8989.3,19.5,21,0)="^^2^2^2920504^^"
^DD(8989.3,19.5,21,1,0)="This field indicates when the audit will end.  The start date is"
^DD(8989.3,19.5,21,2,0)="set in the 'Initiate Audit' Field."
^DD(8989.3,21,0)="NEW PERSON IDENTIFIERS^K^^NPI;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8989.3,21,3)="This is Standard MUMPS code. To set DR with ID fields."
^DD(8989.3,21,9)="@"
^DD(8989.3,21,21,0)="^^8^8^2920710^^"
^DD(8989.3,21,21,1,0)="This field holds MUMPS code to set the variable DR to the string of fields"
^DD(8989.3,21,21,2,0)="(Not a template) to be used as Identifiers when adding entries to the NEW"
^DD(8989.3,21,21,3,0)="PERSON file."
^DD(8989.3,21,21,4,0)=" "
^DD(8989.3,21,21,6,0)=" #9 (SSN) is required if the user does not hold the XUSPF200 key."
^DD(8989.3,21,21,7,0)=" "
^DD(8989.3,21,21,8,0)="These fields can be added to by the application."
^DD(8989.3,21,"DT")="2920427"
^DD(8989.3,30.1,0)="CCOW TOKEN TIMEOUT^NJ5,0^^30;1^K:+X'=X!(X>28800)!(X<600)!(X?.E1"".""1N.N) X"
^DD(8989.3,30.1,3)="Type a Number between 600 and 28800, 0 Decimal Digits"
^DD(8989.3,30.1,21,0)="^^7^7^3050222^"
^DD(8989.3,30.1,21,1,0)="This field holds the value for how long a CCOW token is good for in"
^DD(8989.3,30.1,21,2,0)="seconds. When the current time is greater that the CCOW token create time"
^DD(8989.3,30.1,21,3,0)="plus the timeout seconds, the CCOW token will no longer be valid. If this"
^DD(8989.3,30.1,21,4,0)="value is too small (short) users will be frustrated that the SSO part"
^DD(8989.3,30.1,21,5,0)="doesn't work.  If the value is too large (Long) there is a chance that it"
^DD(8989.3,30.1,21,6,0)="could be used to break into the system.  A default value of 5400 (1.5"
^DD(8989.3,30.1,21,7,0)="hours) will be used."
^DD(8989.3,30.1,"DT")="3050222"
^DD(8989.3,31.1,0)="MAX SPOOL LINES PER USER^NJ7,0^^SPL;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8989.3,31.1,3)="Type a Number between 1 and 9999999 lines of spooled data."
^DD(8989.3,31.1,20,0)="^.3LA^1^1"
^DD(8989.3,31.1,20,1,0)="SPOOL"
^DD(8989.3,31.1,21,0)="^^7^7^2920504^"
^DD(8989.3,31.1,21,1,0)="This field holds the MAX number of lines of spooled output any user may"
^DD(8989.3,31.1,21,2,0)="spool. If the user has more that this number then they will not be allowed"
^DD(8989.3,31.1,21,3,0)="to spool any more until some of their spooled documents are deleted.  This"
^DD(8989.3,31.1,21,4,0)="only controls the granting of new spool documents and doesn't terminate a"
^DD(8989.3,31.1,21,6,0)="the number of lines that will be transfered into the spool data file."
^DD(8989.3,31.1,21,7,0)="Recommended value 9999."
^DD(8989.3,31.1,"DT")="2880203"
^DD(8989.3,31.2,0)="MAX SPOOL DOCUMENTS PER USER^NJ3,0^^SPL;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8989.3,31.2,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(8989.3,31.2,20,0)="^.3LA^1^1"
^DD(8989.3,31.2,20,1,0)="SPOOL"
^DD(8989.3,31.2,21,0)="0^^3^3^2920504^^^^"
^DD(8989.3,31.2,21,1,0)="This field limits the number of spooled documents that any user"
^DD(8989.3,31.2,21,2,0)="may have on the system."
^DD(8989.3,31.2,21,3,0)="Recommended value 10-100."
^DD(8989.3,31.2,"DT")="2880203"
^DD(8989.3,31.3,0)="MAX SPOOL DOCUMENT LIFE-SPAN^NJ3,0^^SPL;3^K:+X'=X!(X>365)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8989.3,31.3,3)="Type a Number between 1 and 365, 0 Decimal Digits"
^DD(8989.3,31.3,20,0)="^.3LA^1^1"
^DD(8989.3,31.3,20,1,0)="SPOOL"
^DD(8989.3,31.3,21,0)="^^3^3^2920504^^^^"
^DD(8989.3,31.3,21,1,0)="This field controls the number of days that a spooled document will"
^DD(8989.3,31.3,21,2,0)="be allowed to remain in the spooler before deletion by the XU-SPL-PURGE"
^DD(8989.3,31.3,21,3,0)="option that needs to be setup to run in the background."
^DD(8989.3,31.3,"DT")="2880407"
^DD(8989.3,32,0)="ALPHA/BETA TEST PACKAGE^8989.332P^^ABPKG;0"
^DD(8989.3,32,21,0)="^^2^2^2930402^^^"
^DD(8989.3,32,21,1,0)="This multiple field is used to identify any packages which are currently"
^DD(8989.3,32,21,2,0)="in alpha or beta test at the site."
^DD(8989.3,32,"DT")="2901025"
^DD(8989.3,33,0)="ALPHA,BETA TEST OPTION^8989.333P^^ABOPT;0"
^DD(8989.3,33,21,0)="^^3^3^2930402^^"
^DD(8989.3,33,21,1,0)="This is a multiple field which is used to keep a log of usage of the"
^DD(8989.3,33,21,2,0)="options associated with an alpha or beta test of a package based on the"
^DD(8989.3,33,21,3,0)="namespace(s) indicated for the alpha or beta test package."
^DD(8989.3,33,23,0)="^^1^1^2930402^^"
^DD(8989.3,33,23,1,0)=" "
^DD(8989.3,41,0)="VOLUME SET^8989.304^^4;0"
^DD(8989.3,41,20,0)="^.3LA^^0"
^DD(8989.3,41,21,0)="^^1^1^2920513^^^^"
^DD(8989.3,41,21,1,0)="This is the set of all CPU names in this domain."
^DD(8989.3,41,"DT")="2900504"
^DD(8989.3,51,0)="DNS IP^F^^DNS;1^K:$L(X)>75!($L(X)<7)!'(X?1.(1.3N1"".""1.3N1"".""1.3N1"".""1.3N.1"","")) X"
^DD(8989.3,51,3)="Answer must be 7-75 characters in length."
^DD(8989.3,51,21,0)="^^3^3^2991118^"
^DD(8989.3,51,21,1,0)="This field holds the IP addresses of the DNS(s) that XLFNSLK will use."
^DD(8989.3,51,21,2,0)="Data must be in the form of nnn.nnn.nnn.nnn To list more that one separate"
^DD(8989.3,51,21,3,0)="them with commas (,)."
^DD(8989.3,51,"DT")="2991118"
^DD(8989.3,53.1,0)="PKI Server^F^^IP1;1^K:$L(X)>46!($L(X)<7) X"
^DD(8989.3,53.1,3)="Answer must be 7-46 characters in length"
^DD(8989.3,53.1,21,0)="^^3^3^3011115^"
^DD(8989.3,53.1,21,1,0)="This field holds one to three IP addresses for the PKI servers for this"
^DD(8989.3,53.1,21,2,0)="site.  Each IP address is separated by comas."
^DD(8989.3,53.1,21,3,0)="Example: 10.6.21.12,PKI.fo-oakland.med.va.gov"
^DD(8989.3,53.1,"DT")="3011115"
^DD(8989.3,101,0)="PATH TO MWAPI BITMAPS^F^^101;1^K:$L(X)>100!($L(X)<2) X"
^DD(8989.3,101,3)="Answer must be 2-100 characters in length."
^DD(8989.3,101,"DT")="2940708"
^DD(8989.3,202,0)="DEFAULT # OF ATTEMPTS^NJ1,0^^XUS;2^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1.N) X"
^DD(8989.3,202,3)="Type a integer between 1 and 5."
^DD(8989.3,202,20,0)="^.3LA^1^1"
^DD(8989.3,202,20,1,0)="XUS"
^DD(8989.3,202,21,0)="^^7^7^3010330^"
^DD(8989.3,202,21,1,0)="This is the default number of attempts that a user may try to sign-on"
^DD(8989.3,202,21,2,0)="before the device is locked. This field is overridden by a similar field"
^DD(8989.3,202,21,3,0)="in the DEVICE File. This means that during sign-on the checks against the"
^DD(8989.3,202,21,4,0)="device file for OUT OF SERVICE, SECURITY, and PROHIBITED TIMES FOR SIGN-ON"
^DD(8989.3,202,21,5,0)="will be skipped.  "
^DD(8989.3,202,21,6,0)="The maximum value (5) is set by the VA INFORMATION SYSTEM ACCOUNT AND"
^DD(8989.3,202,21,7,0)="PASSWORD MANAGEMENT POLICY."
^DD(8989.3,202,"DT")="3010330"
^DD(8989.3,203,0)="DEFAULT LOCK-OUT TIME^NJ4,0^^XUS;3^K:+X'=X!(X>9999)!(X<600)!(X?.E1"".""1.N) X"
^DD(8989.3,203,3)="Type a integer between 600 and 9999."
^DD(8989.3,203,20,0)="^.3LA^1^1"
^DD(8989.3,203,20,1,0)="XUS"
^DD(8989.3,203,21,0)="^^7^7^3010326^"
^DD(8989.3,203,21,1,0)="This is the default time in seconds that a locked device must be idle"
^DD(8989.3,203,21,2,0)="before another sign-on attempt will be allowed. This time is overridden"
^DD(8989.3,203,21,3,0)="by a similar field in the DEVICE File. This means that during sign-on the"
^DD(8989.3,203,21,4,0)="checks against the device file for OUT OF SERVICE, SECURITY, and"
^DD(8989.3,203,21,5,0)="PROHIBITED TIMES FOR SIGN-ON will be skipped."
^DD(8989.3,203,21,6,0)="The minimum value is set by the VA INFORMATION SYSTEM ACCOUNT AND PASSWORD"
^DD(8989.3,203,21,7,0)="MANAGEMENT POLICY."
^DD(8989.3,203,"DT")="3010330"
^DD(8989.3,204,0)="DEFAULT MULTIPLE SIGN-ON^S^0:NO;1:YES;2:Only one IP;^XUS;4^Q"
^DD(8989.3,204,20,0)="^.3LA^1^1"
^DD(8989.3,204,20,1,0)="XUS"
^DD(8989.3,204,21,0)="^^9^9^3030130^"
^DD(8989.3,204,21,1,0)="This is the default value for whether users may sign-on at more"
^DD(8989.3,204,21,2,0)="than one terminal at a time. It is overridden by similar fields"
^DD(8989.3,204,21,3,0)="in the DEVICE and NEW PERSON Files. If you select ""Only one IP"" be sure to"
^DD(8989.3,204,21,4,0)="put a value into the ""MULTIPLE SIGN-ON LIMIT"" field so users can sign-on"
^DD(8989.3,204,21,5,0)="at least once."
^DD(8989.3,204,21,6,0)="Current Values"
^DD(8989.3,204,21,7,0)="0 = Multiple signon not allowed."
^DD(8989.3,204,21,8,0)="1 = Multiple signon Allowed."
^DD(8989.3,204,21,9,0)="2 = Multiple sign only allowed from one IP address."
^DD(8989.3,204,"DT")="3030130"
^DD(8989.3,205,0)="ASK DEVICE TYPE AT SIGN-ON^S^0:NO;1:YES;^XUS;5^Q"
^DD(8989.3,205,3)=""
^DD(8989.3,205,20,0)="^.3LA^1^1"
^DD(8989.3,205,20,1,0)="XUS"
^DD(8989.3,205,21,0)="^^10^10^2920504^"
^DD(8989.3,205,21,1,0)="This is the default for whether a user/terminal should be asked for their"
^DD(8989.3,205,21,2,0)="terminal type at sign-on. This is overridden by a similar field in the"
^DD(8989.3,205,21,3,0)="DEVICE and NEW PERSON Files."
^DD(8989.3,205,21,4,0)=" "
^DD(8989.3,205,21,6,0)="terminals DEVICE ATTRIBUTES message, if it is a know one then the"
^DD(8989.3,205,21,7,0)="terminal type is set to this. Otherwise the user is prompted."
^DD(8989.3,205,21,8,0)=" "
^DD(8989.3,205,21,9,0)="If set to NO then the one from the Last Sign-on field or device subtype"
^DD(8989.3,205,21,10,0)="will will be used."
^DD(8989.3,206,0)="DEFAULT AUTO-MENU^S^0:NO;1:YES;^XUS;6^Q"
^DD(8989.3,206,3)=""
^DD(8989.3,206,20,0)="^.3LA^1^1"
^DD(8989.3,206,20,1,0)="XUS"
^DD(8989.3,206,21,0)="^^2^2^2920504^^^^"
^DD(8989.3,206,21,1,0)="This is the default for whether auto-menu is turned ON or OFF."
^DD(8989.3,206,21,2,0)="It is overridden by similar fields in the DEVICE and NEW PERSON Files."
^DD(8989.3,207,0)="DEFAULT LANGUAGE^P.85'^DI(.85,^XUS;7^Q"
^DD(8989.3,207,21,0)="^^3^3^2940524^"
^DD(8989.3,207,21,1,0)="This field points to the default language that is used by the"
^DD(8989.3,207,21,2,0)="site.  The value can be replaced by a language field in the"
^DD(8989.3,207,21,3,0)="New Person file (200.07)."
^DD(8989.3,207,"DT")="2940524"
^DD(8989.3,209,0)="DEFAULT TYPE-AHEAD^S^N:NO;Y:YES;^XUS;9^Q"
^DD(8989.3,209,3)="Enter 'YES' if user should be allowed to pre-type answers"
^DD(8989.3,209,20,0)="^.3LA^1^1"
^DD(8989.3,209,20,1,0)="XUS"
^DD(8989.3,209,21,0)="^^2^2^2920504^^^^"
^DD(8989.3,209,21,1,0)="This is the default as to whether or not Type-Ahead is allowed."
^DD(8989.3,209,21,2,0)="It is overridden by similar fields in the DEVICE and NEW PERSON Files."
^DD(8989.3,209,"DT")="2891004"
^DD(8989.3,210,0)="DEFAULT TIMED-READ (SECONDS)^NJ5,0^^XUS;10^K:+X'=X!(X>99999)!(X<20)!(X?.E1"".""1N.N) X"
^DD(8989.3,210,3)="TYPE A WHOLE NUMBER BETWEEN 20 AND 99999"
^DD(8989.3,210,20,0)="^.3LA^1^1"
^DD(8989.3,210,20,1,0)="XUS"
^DD(8989.3,210,21,0)="^^2^2^2920504^^^^"
^DD(8989.3,210,21,1,0)="This is the default time-out for all READs and is overridden by"
^DD(8989.3,210,21,2,0)="similar fields in the DEVICE and NEW PERSON Files."
^DD(8989.3,210,"DT")="2850825"
^DD(8989.3,211,0)="BYPASS DEVICE LOCK-OUT^S^0:NO;1:YES;^XUS;11^Q"
^DD(8989.3,211,20,0)="^.3LA^1^1"
^DD(8989.3,211,20,1,0)="XUS"
^DD(8989.3,211,21,0)="^^5^5^2920701^^^^"
^DD(8989.3,211,21,1,0)="Setting this field to YES will cause all device lock-out checking to be"
^DD(8989.3,211,21,2,0)="bypassed.  This means that during sign-on the checks against the device"
^DD(8989.3,211,21,3,0)="file for OUT OF SERVICE, SECURITY, and PROHIBITED TIMES FOR SIGN-ON will"
^DD(8989.3,211,21,4,0)="be skipped.  Can be overridden by the PERFORM DEVICE CHECKING field in the"
^DD(8989.3,211,"DT")="2850808"
^DD(8989.3,212,0)="RESERVED^S^0:NO;1:YES;^XUS;12^Q"
^DD(8989.3,212,3)=""
^DD(8989.3,212,20,0)="^.3LA^^0"
^DD(8989.3,212,21,0)="^^1^1^2940125^^^^"
^DD(8989.3,212,21,1,0)="*** This field is NO longer used. ***"
^DD(8989.3,212,"DT")="2940125"
^DD(8989.3,212.1,0)="DEVICE TO AUDIT^8989.33P^^8989.33;0"
^DD(8989.3,212.1,21,0)="^^2^2^2920504^^^"
^DD(8989.3,212.1,21,1,0)="If device auditing is activated, This holds a list of devises that"
^DD(8989.3,212.1,21,2,0)="are to be audited."
^DD(8989.3,212.5,0)="FAILED ACCESS ATTEMPT AUDIT^S^A:ALL DEVICES/NO TEXT RECORDED;D:SPECIFIED DEVICES/NO TEXT RECORDED;AR:ALL DEVICES/TEXT RECORDED;DR:SPECIFIED DEVICES/TEXT RECORDED;N:NO AUDIT;^XUS;14^Q"
^DD(8989.3,212.5,3)=""
^DD(8989.3,212.5,21,0)="^^3^3^2920504^^^^"
^DD(8989.3,212.5,21,1,0)="This field indicates whether an audit log is to be generated for failed"
^DD(8989.3,212.5,21,2,0)="access attempts.  Audits can be done for all devices or specified devices "
^DD(8989.3,212.5,21,3,0)="only.  Recording of what is entered is optional."
^DD(8989.3,213,0)="RESERVED^S^0:NO;1:YES;^XUS;13^Q"
^DD(8989.3,213,20,0)="^.3LA^^0"
^DD(8989.3,213,21,0)="^^2^2^2940125^^^^"
^DD(8989.3,213,21,1,0)="This field is reserved for future use.  "
^DD(8989.3,213,21,2,0)=" "
^DD(8989.3,213,"DT")="2940125"
^DD(8989.3,214,0)="LIFETIME OF VERIFY CODE^RNJ2,0^^XUS;15^K:+X'=X!(X>90)!(X<1)!(X?.E1"".""1.N) X"
^DD(8989.3,214,3)="Type a number between 1 and 90."
^DD(8989.3,214,20,0)="^.3LA^1^1"
^DD(8989.3,214,20,1,0)="XUS"
^DD(8989.3,214,21,0)="^^2^2^2920504^^^^"
^DD(8989.3,214,21,1,0)="This is the number of days that a VERIFY code remains valid."
^DD(8989.3,214,21,2,0)="After this time the user must choose a new VERIFY code."
^DD(8989.3,214,"DT")="3001031"
^DD(8989.3,216,0)="INTERACTIVE USER'S PRIORITY^NJ2,0X^^XUS;16^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X I $D(X),(X>0)&(X<10) W *7,""  This may cause poor system response for users"""
^DD(8989.3,216,3)="If a value of 1-10 this will be the priority of interactive users."
^DD(8989.3,216,20,0)="^.3LA^1^1"
^DD(8989.3,216,20,1,0)="XUS"
^DD(8989.3,216,21,0)="^^3^3^2920504^^^"
^DD(8989.3,216,21,1,0)="This field will change the priority of interactive users on the system"
^DD(8989.3,216,21,2,0)="at sign-on time.  There is a danger that using this field will"
^DD(8989.3,216,21,3,0)="cause the users to have poor response time from the computer."
^DD(8989.3,216,"DT")="2890314"
^DD(8989.3,217,0)="DEFAULT INSTITUTION^RP4^DIC(4,^XUS;17^Q"
^DD(8989.3,217,1,0)="^.1"
^DD(8989.3,217,1,1,0)="8989.3^AC^MUMPS"
^DD(8989.3,217,1,1,1)="I $D(^DD(4.3,217,0)) S $P(^XMB(1,1,""XUS""),U,17)=$P(^XTV(8989.3,1,""XUS""),U,17)"
^DD(8989.3,217,1,1,2)="I $D(^XMB(1,1,""XUS"")) S $P(^XMB(1,1,""XUS""),U,17)="""""
^DD(8989.3,217,1,1,3)="This is to keep files 4.3 and 8989.3 in sync."
^DD(8989.3,217,1,1,"%D",0)="^^2^2^2930214^"
^DD(8989.3,217,1,1,"%D",1,0)="This will keep the default institution in sync between the"
^DD(8989.3,217,1,1,"%D",2,0)="old Kernel site parametere file 4.3 and the new on file 8989.3."
^DD(8989.3,217,1,1,"DT")="2930214"
^DD(8989.3,217,3)="Enter the instutition to use as a default for uses without one."
^DD(8989.3,217,21,0)="^^5^5^2920701^^"
^DD(8989.3,217,21,1,0)="This field is used to define a default institution that will be assigned"
^DD(8989.3,217,21,2,0)="as the user's institution (DUZ(2)) for any user that doesn't have one."
^DD(8989.3,217,21,3,0)=" "
^DD(8989.3,217,21,4,0)="Other Developers are allowed to get this data directly from the"
^DD(8989.3,217,"DT")="2930214"
^DD(8989.3,218,0)="DEFAULT AUTO SIGN-ON^S^0:No;1:Yes;d:Disabled;^XUS;18^Q"
^DD(8989.3,218,21,0)="^^9^9^2970910^"
^DD(8989.3,218,21,1,0)="This field will control the Auto Sign-on (Single Sign-on) feature."
^DD(8989.3,218,21,2,0)=" "
^DD(8989.3,218,21,3,0)="To completely turn off this feature for all users: set to DISABLED."
^DD(8989.3,218,21,4,0)="To allow only selected users: set to No."
^DD(8989.3,218,21,5,0)="To allow ALL but selected users: set to Yes."
^DD(8989.3,218,21,6,0)=" "
^DD(8989.3,218,21,7,0)="The Yes and No values can be over ridden by the AUTO SIGN-ON field in the"
^DD(8989.3,218,21,8,0)="New Person file."
^DD(8989.3,218,21,9,0)="Use of this feature impacts user connecting via Telnet and the Broker."
^DD(8989.3,218,"DT")="2970917"
^DD(8989.3,219,0)="DEFAULT MULTIPLE SIGN-ON LIMIT^NJ3,0^^XUS;19^K:+X'=X!(X>100)!(X<1)!(X?.E1"".""1.N) X"
^DD(8989.3,219,.1)="Multiple Sign-On Limit"
^DD(8989.3,219,3)="Type a number between 1 and 100, 0 Decimal Digits"
^DD(8989.3,219,21,0)="^^3^3^3021021^"
^DD(8989.3,219,21,1,0)="This field sets an upper limit on the number of concurrent sessions that "
^DD(8989.3,219,21,2,0)="one user can have from one IP address when the Multiple Sign-on field "
^DD(8989.3,219,21,3,0)="(#204) is set to ""One IP"""
^DD(8989.3,219,"DT")="3030326"
^DD(8989.3,230,0)="BROKER ACTIVITY TIMEOUT^NJ5,0^^XWB;1^K:+X'=X!(X>36000)!(X<30)!(X?.E1"".""1N.N) X"
^DD(8989.3,230,3)="Type a Number between 30 and 36000, 0 Decimal Digits"
^DD(8989.3,230,21,0)="^^11^11^2990419^"
^DD(8989.3,230,21,1,0)="This field controls how long the Broker server waits (in seconds) for some"
^DD(8989.3,230,21,2,0)="activity from the client. Its value is passed to client applications"
^DD(8989.3,230,21,3,0)="compiled with version 1.1*6 and above of the Broker. The client"
^DD(8989.3,230,21,4,0)="application will contact (""poll"") the server at an interval based on this"
^DD(8989.3,230,21,5,0)="field's value to let the server know it is still there. If a client stops"
^DD(8989.3,230,21,6,0)="polling the server, the server knows that the client process has"
^DD(8989.3,230,21,7,0)="terminated. The ""ghost"" server job is therefore stopped, enabling locks"
^DD(8989.3,230,21,8,0)="and other resources to be freed. A small timeout value in this field"
^DD(8989.3,230,21,9,0)="creates more server and network activity. A large value leaves ghost jobs"
^DD(8989.3,230,21,10,0)="on the server longer. "
^DD(8989.3,230,21,11,0)="We recommend setting it to a value of 180 seconds as a good compromise."
^DD(8989.3,230,"DT")="2990419"
^DD(8989.3,231,0)="GUI POST SIGN-ON^S^0:Don't Send/Show;1:Send/Show;^XWB;2^Q"
^DD(8989.3,231,21,0)="^^3^3^3050419^"
^DD(8989.3,231,21,1,0)="This field will control if the POST SIGN-ON message is sent to the GUI "
^DD(8989.3,231,21,2,0)="client.  If it is sent then the GUI client should display the message "
^DD(8989.3,231,21,3,0)="before allowing the user to continue."
^DD(8989.3,231,"DT")="3050419"
^DD(8989.3,240,0)="INTRO MESSAGE^8989.324^^INTRO;0"
^DD(8989.3,240,21,0)="^^2^2^2940630^^^^"
^DD(8989.3,240,21,1,0)="This field holds the text that is initially displayed at signon, before"
^DD(8989.3,240,21,2,0)="the prompt for access code or other checking."
^DD(8989.3,240,"DT")="2940630"
^DD(8989.3,245,0)="POST SIGN-IN MESSAGE^8989.3245^^POST;0"
^DD(8989.3,245,21,0)="^^2^2^2940630^"
^DD(8989.3,245,21,1,0)="This field holds the text that is displayed after the user has"
^DD(8989.3,245,21,2,0)="successfully passed the signon."
^DD(8989.3,300,0)="LOG RESOURCE USAGE?^S^Y:YES;N:NO;^XUCP;1^Q"
^DD(8989.3,300,1,0)="^.1"
^DD(8989.3,300,1,1,0)="8989.3^AZTCP^MUMPS"
^DD(8989.3,300,1,1,1)="D SET^XUTMG43"
^DD(8989.3,300,1,1,2)="D KILL^XUTMG43"
^DD(8989.3,300,1,1,3)="Needed to notify TaskMan when field changes."
^DD(8989.3,300,1,1,"%D",0)="^^6^6^2921027^^^"
^DD(8989.3,300,1,1,"%D",1,0)="This cross-reference updates TaskMan whenever the field changes."
^DD(8989.3,300,1,1,"%D",2,0)="The code that supports this cross-reference loops through the"
^DD(8989.3,300,1,1,"%D",3,0)="Volume Set file.  For those with link access that are not out of"
^DD(8989.3,300,1,1,"%D",4,0)="service, it adjusts the LOGRSRC node to indicate whether or not"
^DD(8989.3,300,1,1,"%D",6,0)="what has changed."
^DD(8989.3,300,1,1,"DT")="2921019"
^DD(8989.3,300,21,0)="^^6^6^2921019^^"
^DD(8989.3,300,21,1,0)=" "
^DD(8989.3,300,21,2,0)="This Yes/No field is used to indicate whether resource usage data such as"
^DD(8989.3,300,21,3,0)="CPU seconds, DIO, BIO, etc. will be collected in ^XUCP(.  If this field is"
^DD(8989.3,300,21,4,0)="set to ""YES"", every time a user goes in and out of an option and each time"
^DD(8989.3,300,21,6,0)="recorded."
^DD(8989.3,300,"DT")="2921019"
^DD(8989.3,320,0)="PRIMARY HFS DIRECTORY^F^^DEV;1^K:$L(X)>50!($L(X)<1) X"
^DD(8989.3,320,3)="Enter a directory path for HFS files (1-50 char)"
^DD(8989.3,320,21,0)="^^7^7^3061211^"
^DD(8989.3,320,21,1,0)="This field holds a Primary (default) directory path to be used whenever a"
^DD(8989.3,320,21,2,0)="HOST file is referenced and a Directory is not included."
^DD(8989.3,320,21,3,0)="Example: Cache/VMS might have USER$:[TEMP]"
^DD(8989.3,320,21,4,0)="         Cache/NT might have T:\TEMP\"
^DD(8989.3,320,21,5,0)="         Cache/Linux might have /var/tmp/"
^DD(8989.3,320,21,6,0)="If this field is left blank then HOST files that don't have an explicit "
^DD(8989.3,320,21,7,0)="directory path will go to the current processes working directory."
^DD(8989.3,320,"DT")="3061211"
^DD(8989.3,320.2,0)="SECONDARY HFS DIRECTORY^F^^DEV;2^K:$L(X)>50!($L(X)<1) X"
^DD(8989.3,320.2,3)="Enter a directory path for HFS files (1-50 char)"
^DD(8989.3,320.2,21,0)="^^1^1^3061211^"
^DD(8989.3,320.2,21,1,0)="This field holds the secondary HFS directory path."
^DD(8989.3,320.2,"DT")="3061211"
^DD(8989.3,321.01,0)="FACILITY ISO^*P200'^VA(200,^321;1^S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)>0"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8989.3,321.01,3)="Select the Facility Information Security Officer"
^DD(8989.3,321.01,12)="ONLY AN ACTIVE USER MAY BE SELECTED"
^DD(8989.3,321.01,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)>0"""
^DD(8989.3,321.01,21,0)="^^2^2^3080130^"
^DD(8989.3,321.01,21,1,0)="This field holds a pointer to the facility Information Security Officer in"
^DD(8989.3,321.01,21,2,0)="the NEW PERSON file (#200)."
^DD(8989.3,321.01,"DT")="3080130"
^DD(8989.3,321.02,0)="FACILITY CIO^*P200'^VA(200,^321;2^S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)>0"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(8989.3,321.02,3)="Enter the name of the Facility CIO."
^DD(8989.3,321.02,12)="ONLY AN ACTIVE USER MAY BE SELECTED"
^DD(8989.3,321.02,12.1)="S DIC(""S"")=""I $$ACTIVE^XUSER(+Y)>0"""
^DD(8989.3,321.02,21,0)="^^2^2^3080130^"
^DD(8989.3,321.02,21,1,0)="This field holds a pointer to the facility CIO in the NEW PERSON file "
^DD(8989.3,321.02,21,2,0)="(#200)"
^DD(8989.3,321.02,"DT")="3080130"
^DD(8989.3,405.1,0)="IP SECURITY ON^S^n:No;y:Yes;^405;1^Q"
^DD(8989.3,405.1,21,0)="^^2^2^3021028^"
^DD(8989.3,405.1,21,1,0)="This field turns on or off the IP security ""Three strikes and you are "
^DD(8989.3,405.1,21,2,0)="out"" code."
^DD(8989.3,405.1,"DT")="3030728"
^DD(8989.3,405.12,0)="FAILED ATTEMPTS LIMIT - IRM^NJ4,0^^405;2^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8989.3,405.12,3)="Type a Number between 1 and 1000, 0 Decimal Digits"
^DD(8989.3,405.12,21,0)="^^4^4^3040324^"
^DD(8989.3,405.12,21,1,0)="This field holds the value of how many Failed Attempts must be counted by "
^DD(8989.3,405.12,21,2,0)="the XUSFACHK routine before a message is sent to the IRM during normal"
^DD(8989.3,405.12,21,3,0)="business hours (8:00 am to 4:30 pm).  This can be change by the value in "
^DD(8989.3,405.12,21,4,0)="the TOTAL COUNT INCREASE field."
^DD(8989.3,405.12,"DT")="3040324"
^DD(8989.3,405.13,0)="FAILED ATTEMPTS LIMIT - AOD^NJ4,0^^405;3^K:+X'=X!(X>1000)!(X<1)!(X?.E1"".""1.N) X"
^DD(8989.3,405.13,3)="Type a number between 1 and 1000, 0 Decimal Digits"
^DD(8989.3,405.13,21,0)="^^4^4^3040324^"
^DD(8989.3,405.13,21,1,0)="This field holds the value of how many Failed Attempts must be counted by "
^DD(8989.3,405.13,21,2,0)="the XUSFACHK routine before a message is sent to the AOD during after"
^DD(8989.3,405.13,21,3,0)="hours (4:30 pm to 8:00 am).  This can be changed by the value in the "
^DD(8989.3,405.13,21,4,0)="TOTAL COUNT INCREASE field."
^DD(8989.3,405.13,"DT")="3040324"
^DD(8989.3,405.14,0)="USER LOCKING^S^n:No;y:Yes;^405;4^Q"
^DD(8989.3,405.14,21,0)="^^4^4^3021119^"
^DD(8989.3,405.14,21,1,0)="This field controls if Users are locked out of the system because"
^DD(8989.3,405.14,21,2,0)="of exceeding the limit on bad attempts."
^DD(8989.3,405.14,21,3,0)="The ACCESS code must be correct so we can identify the user, and it is"
^DD(8989.3,405.14,21,4,0)="just the VERIFY code that is being entered wrong."
^DD(8989.3,405.14,"DT")="3021119"
^DD(8989.3,405.15,0)="LAST RUN FAILED ATTEMPTS CHECK^D^^405;5^S %DT=""ESTX"" D ^%DT S X=Y K:X<1 X"
^DD(8989.3,405.15,3)="(No range limit on date)"
^DD(8989.3,405.15,21,0)="^^3^3^3030219^"
^DD(8989.3,405.15,21,1,0)="This field holds the date time of the last run of the FAILED ATTEMPTS "
^DD(8989.3,405.15,21,2,0)="checking routine (XUSFACHK)."
^DD(8989.3,405.15,21,3,0)="This field is filled in by the routine and doesn't need user entry."
^DD(8989.3,405.15,"DT")="3030219"
^DD(8989.3,405.16,0)="DEFAULT TS SLACK^NJ2,0^^405;6^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1.N) X"
^DD(8989.3,405.16,3)="Type a number between 0 and 99, 0 Decimal Digits"
^DD(8989.3,405.16,21,0)="^^4^4^3040324^"
^DD(8989.3,405.16,21,1,0)="This field holds a default value for how many times in 10 minutes a"
^DD(8989.3,405.16,21,2,0)="Terminal Server can have a sign-on failure (entries in the FAILED ACCESS"
^DD(8989.3,405.16,21,3,0)="ATTEMPTS LOG) before it is locked.  A default value is 2 is used if no "
^DD(8989.3,405.16,21,4,0)="value is entered."
^DD(8989.3,405.16,"DT")="3040324"
^DD(8989.3,405.17,0)="KEEP THRESHOLD^NJ4,0^^405;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8989.3,405.17,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(8989.3,405.17,21,0)="^^7^7^3031015^"
^DD(8989.3,405.17,21,1,0)="This field holds the number of Failed Access Attempts in the current "
^DD(8989.3,405.17,21,2,0)="sample period that will cause the count to be saved for the next sample "
^DD(8989.3,405.17,21,3,0)="period.  This is used by the routine XUSFACHK and the value will need to "
^DD(8989.3,405.17,21,4,0)="be smaller for a more frequent running and larger for less frequent "
^DD(8989.3,405.17,21,5,0)="running. "
^DD(8989.3,405.17,21,6,0)="A starting value could be 10 if XUSFACHK is scheduled to run every 30 "
^DD(8989.3,405.17,21,7,0)="minutes."
^DD(8989.3,405.17,"DT")="3031015"
^DD(8989.3,405.18,0)="TOTAL COUNT INCREASE^NJ4,0^^405;8^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8989.3,405.18,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(8989.3,405.18,21,0)="^^4^4^3031015^"
^DD(8989.3,405.18,21,1,0)="This field holds the value to be added to the IRM or AOD limits."
^DD(8989.3,405.18,21,2,0)="If the total number of Failed Access Attempts in the sample period"
^DD(8989.3,405.18,21,3,0)="is greater than the IRM (or AOD) limit plus the TOTAL COUNT INCREASE "
^DD(8989.3,405.18,21,4,0)="then it will trigger the sending of the failed attempts message."
^DD(8989.3,405.18,"DT")="3031015"
^DD(8989.3,405.2,0)="TERMINAL SERVER IP^8989.305^^405.2;0"
^DD(8989.3,501,0)="PRODUCTION^RS^0:No;1:Yes;^SID;1^Q"
^DD(8989.3,501,.1)="Production"
^DD(8989.3,501,21,0)="^^5^5^3031022^"
^DD(8989.3,501,21,1,0)="This field holds a flag to indicate if this is a Production account."
^DD(8989.3,501,21,2,0)="It is a Yes/No flag with internal values of 1 = Yes, 0 = No."
^DD(8989.3,501,21,3,0)="It is set by the system after comparing the System ID with the current"
^DD(8989.3,501,21,4,0)="System ID, at some point in the future will be checked against a master"
^DD(8989.3,501,21,5,0)="system."
^DD(8989.3,501,"DT")="3031022"
^DD(8989.3,502,0)="System ID^F^^SID;2^K:$L(X)>100!($L(X)<8) X"
^DD(8989.3,502,3)="Answer must be 8-100 characters in length"
^DD(8989.3,502,21,0)="^^3^3^3031022^"
^DD(8989.3,502,21,1,0)="This field holds the SYSTEM ID, if this is a production system."
^DD(8989.3,502,21,2,0)="This value is compared with the current system value and at some point "
^DD(8989.3,502,21,3,0)="in the future will be checked against a master system."
^DD(8989.3,502,"DT")="3031022"
^DD(8989.3,503,0)="SID LAST CHECKED^D^^SID;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(8989.3,503,21,0)="^^3^3^3031022^"
^DD(8989.3,503,21,1,0)="This field holds the date/time that the SID was last checked."
^DD(8989.3,503,21,2,0)="If the SID has not been compared with the stored one today a full check "
^DD(8989.3,503,21,3,0)="will be done, otherwise the PROD api will just return the current value."
^DD(8989.3,503,"DT")="3031022"
^DD(8989.3,504,0)="LOGICAL DISK NAME^F^^SID;4^K:$L(X)>30!($L(X)<2) X"
^DD(8989.3,504,3)="Answer must be 2-30 characters in length."
^DD(8989.3,504,21,0)="^^2^2^3070731^"
^DD(8989.3,504,21,1,0)="This field holds a logical disk name that is stored in the cache cpf file"
^DD(8989.3,504,21,2,0)="for client system in a ECP client-server setup."
^DD(8989.3,504,"DT")="3070731"
^DD(8989.3,505,0)="PHYSICAL DISK^F^^SID;5^K:$L(X)>30!($L(X)<2) X"
^DD(8989.3,505,3)="Answer must be 2-30 characters in length."
^DD(8989.3,505,21,0)="^^2^2^3070731^"
^DD(8989.3,505,21,1,0)="This field hold the Physical disk name that Cache VMS converts the logical"
^DD(8989.3,505,21,2,0)="name(#504) in to."
^DD(8989.3,505,"DT")="3070731"
^DD(8989.3,"B","AFTER HOURS MAIL GROUP",.03)=""
^DD(8989.3,"B","AGENCY CODE",9)=""
^DD(8989.3,"B","ALPHA,BETA TEST OPTION",33)=""
^DD(8989.3,"B","ALPHA/BETA TEST PACKAGE",32)=""
^DD(8989.3,"B","ASK DEVICE TYPE AT SIGN-ON",205)=""
^DD(8989.3,"B","AUTO-GENERATE ACCESS CODES",11)=""
^DD(8989.3,"B","AUTO-GENERATE VERIFY CODES",11.2)=""
^DD(8989.3,"B","BROKER ACTIVITY TIMEOUT",230)=""
^DD(8989.3,"B","BYPASS DEVICE LOCK-OUT",211)=""
^DD(8989.3,"B","CCOW TOKEN TIMEOUT",30.1)=""
^DD(8989.3,"B","DEFAULT # OF ATTEMPTS",202)=""
^DD(8989.3,"B","DEFAULT AUTO SIGN-ON",218)=""
^DD(8989.3,"B","DEFAULT AUTO-MENU",206)=""
^DD(8989.3,"B","DEFAULT INSTITUTION",217)=""
^DD(8989.3,"B","DEFAULT LANGUAGE",207)=""
^DD(8989.3,"B","DEFAULT LOCK-OUT TIME",203)=""
^DD(8989.3,"B","DEFAULT MULTIPLE SIGN-ON",204)=""
^DD(8989.3,"B","DEFAULT MULTIPLE SIGN-ON LIMIT",219)=""
^DD(8989.3,"B","DEFAULT TIMED-READ (SECONDS)",210)=""
^DD(8989.3,"B","DEFAULT TS SLACK",405.16)=""
^DD(8989.3,"B","DEFAULT TYPE-AHEAD",209)=""
^DD(8989.3,"B","DEVICE TO AUDIT",212.1)=""
^DD(8989.3,"B","DNS IP",51)=""
^DD(8989.3,"B","DOMAIN NAME",.01)=""
^DD(8989.3,"B","FACILITY CIO",321.02)=""
^DD(8989.3,"B","FACILITY ISO",321.01)=""
^DD(8989.3,"B","FAILED ACCESS ATTEMPT AUDIT",212.5)=""
^DD(8989.3,"B","FAILED ATTEMPTS LIMIT - AOD",405.13)=""
^DD(8989.3,"B","FAILED ATTEMPTS LIMIT - IRM",405.12)=""
^DD(8989.3,"B","GUI POST SIGN-ON",231)=""
^DD(8989.3,"B","INITIATE AUDIT",19.4)=""
^DD(8989.3,"B","INTERACTIVE USER'S PRIORITY",216)=""
^DD(8989.3,"B","INTRO MESSAGE",240)=""
^DD(8989.3,"B","IP SECURITY ON",405.1)=""
^DD(8989.3,"B","IRM MAIL GROUP",.02)=""
^DD(8989.3,"B","KEEP THRESHOLD",405.17)=""
^DD(8989.3,"B","LAST RUN FAILED ATTEMPTS CHECK",405.15)=""
^DD(8989.3,"B","LIFETIME OF VERIFY CODE",214)=""
^DD(8989.3,"B","LOG RESOURCE USAGE?",300)=""
^DD(8989.3,"B","LOGICAL DISK NAME",504)=""
^DD(8989.3,"B","MAX SPOOL DOCUMENT LIFE-SPAN",31.3)=""
^DD(8989.3,"B","MAX SPOOL DOCUMENTS PER USER",31.2)=""
^DD(8989.3,"B","MAX SPOOL LINES PER USER",31.1)=""
^DD(8989.3,"B","MIXED OS",.05)=""
^DD(8989.3,"B","Mixed OS",.05)="1"
^DD(8989.3,"B","Multiple Sign-On Limit",219)="1"
^DD(8989.3,"B","NAMESPACE TO AUDIT",19.2)=""
^DD(8989.3,"B","NEW PERSON IDENTIFIERS",21)=""
^DD(8989.3,"B","NUMBER",.001)=""
^DD(8989.3,"B","OPTION AUDIT",19)=""
^DD(8989.3,"B","OPTION TO AUDIT",19.1)=""
^DD(8989.3,"B","PATH TO MWAPI BITMAPS",101)=""
^DD(8989.3,"B","PHYSICAL DISK",505)=""
^DD(8989.3,"B","PKI Server",53.1)=""
^DD(8989.3,"B","POST SIGN-IN MESSAGE",245)=""
^DD(8989.3,"B","PRIMARY HFS DIRECTORY",320)=""
^DD(8989.3,"B","PRODUCTION",501)=""
^DD(8989.3,"B","Production",501)="1"
^DD(8989.3,"B","RESERVED",212)=""
^DD(8989.3,"B","RESERVED",213)=""
^DD(8989.3,"B","ROUTINE MONITORING",9.8)=""
^DD(8989.3,"B","ROUTINE N-SPACE TO MONITOR",9.81)=""
^DD(8989.3,"B","SECONDARY HFS DIRECTORY",320.2)=""
^DD(8989.3,"B","SID LAST CHECKED",503)=""
^DD(8989.3,"B","System ID",502)=""
^DD(8989.3,"B","TERMINAL SERVER IP",405.2)=""
^DD(8989.3,"B","TERMINATE AUDIT",19.5)=""
^DD(8989.3,"B","TOTAL COUNT INCREASE",405.18)=""
^DD(8989.3,"B","USER CHARACTERISTICS TEMPLATE",12)=""
^DD(8989.3,"B","USER LOCKING",405.14)=""
^DD(8989.3,"B","USER TO AUDIT",19.3)=""
^DD(8989.3,"B","VOLUME SET",41)=""
^DD(8989.3,"GL",0,1,.01)=""
^DD(8989.3,"GL",0,2,.02)=""
^DD(8989.3,"GL",0,3,.03)=""
^DD(8989.3,"GL",0,5,.05)=""
^DD(8989.3,"GL",0,8,9)=""
^DD(8989.3,"GL",3,1,11)=""
^DD(8989.3,"GL",3,2,12)=""
^DD(8989.3,"GL",3,3,11.2)=""
^DD(8989.3,"GL",4,0,41)=""
^DD(8989.3,"GL",19,1,19)=""
^DD(8989.3,"GL",19,2,19.4)=""
^DD(8989.3,"GL",19,3,19.5)=""
^DD(8989.3,"GL",19.1,0,19.1)=""
^DD(8989.3,"GL",19.2,0,19.2)=""
^DD(8989.3,"GL",19.3,0,19.3)=""
^DD(8989.3,"GL",30,1,30.1)=""
^DD(8989.3,"GL",101,1,101)=""
^DD(8989.3,"GL",321,1,321.01)=""
^DD(8989.3,"GL",321,2,321.02)=""
^DD(8989.3,"GL",405,1,405.1)=""
^DD(8989.3,"GL",405,2,405.12)=""
^DD(8989.3,"GL",405,3,405.13)=""
^DD(8989.3,"GL",405,4,405.14)=""
^DD(8989.3,"GL",405,5,405.15)=""
^DD(8989.3,"GL",405,6,405.16)=""
^DD(8989.3,"GL",405,7,405.17)=""
^DD(8989.3,"GL",405,8,405.18)=""
^DD(8989.3,"GL",405.2,0,405.2)=""
^DD(8989.3,"GL",8989.33,0,212.1)=""
^DD(8989.3,"GL","ABOPT",0,33)=""
^DD(8989.3,"GL","ABPKG",0,32)=""
^DD(8989.3,"GL","DEV",1,320)=""
^DD(8989.3,"GL","DEV",2,320.2)=""
^DD(8989.3,"GL","DNS",1,51)=""
^DD(8989.3,"GL","INTRO",0,240)=""
^DD(8989.3,"GL","IP1",1,53.1)=""
^DD(8989.3,"GL","NPI","E1,245",21)=""
^DD(8989.3,"GL","POST",0,245)=""
^DD(8989.3,"GL","RM",1,9.8)=""
^DD(8989.3,"GL","RM1",0,9.81)=""
^DD(8989.3,"GL","SID",1,501)=""
^DD(8989.3,"GL","SID",2,502)=""
^DD(8989.3,"GL","SID",3,503)=""
^DD(8989.3,"GL","SID",4,504)=""
^DD(8989.3,"GL","SID",5,505)=""
^DD(8989.3,"GL","SPL",1,31.1)=""
^DD(8989.3,"GL","SPL",2,31.2)=""
^DD(8989.3,"GL","SPL",3,31.3)=""
^DD(8989.3,"GL","XUCP",1,300)=""
^DD(8989.3,"GL","XUS",2,202)=""
^DD(8989.3,"GL","XUS",3,203)=""
^DD(8989.3,"GL","XUS",4,204)=""
^DD(8989.3,"GL","XUS",5,205)=""
^DD(8989.3,"GL","XUS",6,206)=""
^DD(8989.3,"GL","XUS",7,207)=""
^DD(8989.3,"GL","XUS",9,209)=""
^DD(8989.3,"GL","XUS",10,210)=""
^DD(8989.3,"GL","XUS",11,211)=""
^DD(8989.3,"GL","XUS",12,212)=""
^DD(8989.3,"GL","XUS",13,213)=""
^DD(8989.3,"GL","XUS",14,212.5)=""
^DD(8989.3,"GL","XUS",15,214)=""
^DD(8989.3,"GL","XUS",16,216)=""
^DD(8989.3,"GL","XUS",17,217)=""
^DD(8989.3,"GL","XUS",18,218)=""
^DD(8989.3,"GL","XUS",19,219)=""
^DD(8989.3,"GL","XWB",1,230)=""
^DD(8989.3,"GL","XWB",2,231)=""
^DD(8989.3,"GR","SPOOL",31.1,1)=""
^DD(8989.3,"GR","SPOOL",31.2,1)=""
^DD(8989.3,"GR","SPOOL",31.3,1)=""
^DD(8989.3,"GR","XUS",202,1)=""
^DD(8989.3,"GR","XUS",203,1)=""
^DD(8989.3,"GR","XUS",204,1)=""
^DD(8989.3,"GR","XUS",205,1)=""
^DD(8989.3,"GR","XUS",206,1)=""
^DD(8989.3,"GR","XUS",209,1)=""
^DD(8989.3,"GR","XUS",210,1)=""
^DD(8989.3,"GR","XUS",211,1)=""
^DD(8989.3,"GR","XUS",214,1)=""
^DD(8989.3,"GR","XUS",216,1)=""
^DD(8989.3,"IX",.01)=""
^DD(8989.3,"IX",217)=""
^DD(8989.3,"IX",300)=""
^DD(8989.3,"RQ",.01)=""
^DD(8989.3,"RQ",.02)=""
^DD(8989.3,"RQ",214)=""
^DD(8989.3,"RQ",217)=""
^DD(8989.3,"RQ",501)=""
^DD(8989.3,"SB",8989.304,41)=""
^DD(8989.3,"SB",8989.305,405.2)=""
^DD(8989.3,"SB",8989.309,9.81)=""
^DD(8989.3,"SB",8989.324,240)=""
^DD(8989.3,"SB",8989.3245,245)=""
^DD(8989.3,"SB",8989.33,212.1)=""
^DD(8989.3,"SB",8989.332,32)=""
^DD(8989.3,"SB",8989.333,33)=""
^DD(8989.3,"SB",8989.34,19.3)=""
^DD(8989.3,"SB",8989.35,19.2)=""
^DD(8989.3,"SB",8989.36,19.1)=""
^DD(8989.304,0)="VOLUME SET SUB-FIELD^NL^6^3"
^DD(8989.304,0,"IX","B",8989.304,.01)=""
^DD(8989.304,0,"NM","VOLUME SET")=""
^DD(8989.304,0,"UP")="8989.3"
^DD(8989.304,.01,0)="VOLUME SET^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<2)!'(X?.U) X"
^DD(8989.304,.01,1,0)="^.1^^-1"
^DD(8989.304,.01,1,1,0)="8989.304^B"
^DD(8989.304,.01,1,1,1)="S ^XTV(8989.3,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(8989.304,.01,1,1,2)="K ^XTV(8989.3,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(8989.304,.01,3)="Answer with the name of other CPUs or Volume sets, or Directories."
^DD(8989.304,.01,4)="W !,""Your answer must be unique."""
^DD(8989.304,.01,9.2)="I ($D(^XTV(8989.3,""AT"",XUZTOX))\10) S %X=""^XTV(8989.3,""""AT"""",""""""_XUZTOX_"""""","",%Y=""^XTV(8989.3,""""AT"""",""""""_X_"""""","" D %XY^%RCR K ^XTV(8989.3,""AT"",XUZTOX)"
^DD(8989.304,.01,20,0)="^.3LA^^0"
^DD(8989.304,.01,21,0)="^^1^1^2890727^^^^"
^DD(8989.304,.01,21,1,0)="This is the name of each CPU or VOLUME SET in the domain."
^DD(8989.304,.01,"DT")="2930715"
^DD(8989.304,2,0)="MAX SIGNON ALLOWED^NJ5,0^^0;3^K:+X'=X!(X>10000)!(X<0)!(X?.E1"".""1.N) X"
^DD(8989.304,2,1,0)="^.1^^0"
^DD(8989.304,2,1,1,0)="8989.3^AZTM^MUMPS"
^DD(8989.304,2,1,1,1)="Q"
^DD(8989.304,2,1,1,2)="Q"
^DD(8989.304,2,1,1,"DT")="2910225"
^DD(8989.304,2,3)="Type a number between 0 and 10000, 0 Decimal Digits"
^DD(8989.304,2,20,0)="^.3LA^^0"
^DD(8989.304,2,21,0)="^^2^2^3020717^"
^DD(8989.304,2,21,1,0)="This field defines the maximum number of jobs that XUS or RPC Broker will"
^DD(8989.304,2,21,2,0)="allow to sign-on to this VOLUME SET or CPU."
^DD(8989.304,2,"DT")="3020717"
^DD(8989.304,6,0)="LOG SYSTEM RT?^S^y:YES;n:NO;^0;6^Q"
^DD(8989.304,6,3)="ENABLE SYSTEM RESPONSE TIME LOGGING? (Y/N): NO//"
^DD(8989.304,6,21,0)="^^3^3^2871106^"
^DD(8989.304,6,21,1,0)="Setting this field to YES enables system response time logging,"
^DD(8989.304,6,21,2,0)="which will only take place if the necessary code exists in the"
^DD(8989.304,6,21,3,0)="application software."
^DD(8989.304,6,"DT")="2910225"
^DD(8989.304,"B","LOG SYSTEM RT?",6)=""
^DD(8989.304,"B","MAX SIGNON ALLOWED",2)=""
^DD(8989.304,"B","VOLUME SET",.01)=""
^DD(8989.304,"GL",0,1,.01)=""
^DD(8989.304,"GL",0,3,2)=""
^DD(8989.304,"GL",0,6,6)=""
^DD(8989.304,"IX",.01)=""
^DD(8989.304,"IX",2)=""
^DD(8989.305,0)="TERMINAL SERVER IP SUB-FIELD^^2^3"
^DD(8989.305,0,"DT")="3040324"
^DD(8989.305,0,"IX","B",8989.305,.01)=""
^DD(8989.305,0,"NM","TERMINAL SERVER IP")=""
^DD(8989.305,0,"UP")="8989.3"
^DD(8989.305,.01,0)="TERMINAL SERVER IP^MF^^0;1^K:$L(X)>40!($L(X)<7) X"
^DD(8989.305,.01,1,0)="^.1"
^DD(8989.305,.01,1,1,0)="8989.305^B"
^DD(8989.305,.01,1,1,1)="S ^XTV(8989.3,DA(1),405.2,""B"",$E(X,1,30),DA)="""""
^DD(8989.305,.01,1,1,2)="K ^XTV(8989.3,DA(1),405.2,""B"",$E(X,1,30),DA)"
^DD(8989.305,.01,3)="Answer must be 7-40 characters in length."
^DD(8989.305,.01,21,0)="^^2^2^3021028^"
^DD(8989.305,.01,21,1,0)="This field holds the IP addresses of Terminal servers that should get "
^DD(8989.305,.01,21,2,0)="special treatment from the IP security software."
^DD(8989.305,.01,"DT")="3021028"
^DD(8989.305,1,0)="AFTER HOURS SLACK^NJ3,0^^0;2^K:+X'=X!(X>300)!(X<0)!(X?.E1"".""1.N) X"
^DD(8989.305,1,.1)="Slack"
^DD(8989.305,1,3)="Type a number between 0 and 300, 0 Decimal Digits"
^DD(8989.305,1,21,0)="^^5^5^3040324^"
^DD(8989.305,1,21,1,0)="This field holds the after hours slack value use to delay locking the"
^DD(8989.305,1,21,2,0)="Terminal Server address."
^DD(8989.305,1,21,3,0)="Between the hours of 4:30 pm and 8:00 am, If the FAILED ACCESS ATTEMPTS"
^DD(8989.305,1,21,4,0)="LOG has had more entries from this Terminal Server in the last 10 minutes"
^DD(8989.305,1,21,5,0)="than the slack value the TS IP address will be locked."
^DD(8989.305,1,"DT")="3040324"
^DD(8989.305,2,0)="LAST TIME RESET^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8989.305,2,21,0)="^^2^2^3021114^"
^DD(8989.305,2,21,1,0)="This field holds the FileMan date time that the LOCK on this Terminal"
^DD(8989.305,2,21,2,0)="Server was last cleared."
^DD(8989.305,2,"DT")="3021114"
^DD(8989.305,"B","AFTER HOURS SLACK",1)=""
^DD(8989.305,"B","LAST TIME RESET",2)=""
^DD(8989.305,"B","Slack",1)="1"
^DD(8989.305,"B","TERMINAL SERVER IP",.01)=""
^DD(8989.305,"GL",0,1,.01)=""
^DD(8989.305,"GL",0,2,1)=""
^DD(8989.305,"GL",0,3,2)=""
^DD(8989.305,"IX",.01)=""
^DD(8989.309,0)="ROUTINE N-SPACE TO MONITOR SUB-FIELD^^.01^1"
^DD(8989.309,0,"DT")="2940819"
^DD(8989.309,0,"IX","B",8989.309,.01)=""
^DD(8989.309,0,"NM","ROUTINE N-SPACE TO MONITOR")=""
^DD(8989.309,0,"UP")="8989.3"
^DD(8989.309,.01,0)="ROUTINE N-SPACE TO MONITOR^MF^^0;1^K:$L(X)>8!($L(X)<1) X"
^DD(8989.309,.01,1,0)="^.1"
^DD(8989.309,.01,1,1,0)="8989.309^B"
^DD(8989.309,.01,1,1,1)="S ^XTV(8989.3,DA(1),""RM1"",""B"",$E(X,1,30),DA)="""""
^DD(8989.309,.01,1,1,2)="K ^XTV(8989.3,DA(1),""RM1"",""B"",$E(X,1,30),DA)"
^DD(8989.309,.01,3)="Answer must be 1-8 characters in length."
^DD(8989.309,.01,21,0)="^^4^4^2940822^"
^DD(8989.309,.01,21,1,0)="If the routine monitoring programm is to look at name spaces then"
^DD(8989.309,.01,21,2,0)="this multipule is the list of name spaces that it looks at."
^DD(8989.309,.01,21,3,0)="An entry like XU* will cause it to look at all routines that "
^DD(8989.309,.01,21,4,0)="start with XU."
^DD(8989.309,.01,"DT")="2940819"
^DD(8989.309,"B","ROUTINE N-SPACE TO MONITOR",.01)=""
^DD(8989.309,"GL",0,1,.01)=""
^DD(8989.309,"IX",.01)=""
^DD(8989.324,0)="INTRO MESSAGE SUB-FIELD^^.01^1"
^DD(8989.324,0,"NM","INTRO MESSAGE")=""
^DD(8989.324,0,"UP")="8989.3"
^DD(8989.324,.01,0)="INTRO TEXT^WL^^0;1^Q"
^DD(8989.324,.01,3)="This text is displayed as an intro before any checking."
^DD(8989.324,.01,21,0)="^^2^2^2920603^^"
^DD(8989.324,.01,21,1,0)="This field holds the text that is initially displayed at signon, before"
^DD(8989.324,.01,21,2,0)="the prompt for access code or other checking."
^DD(8989.324,.01,23,0)="^^4^4^2891109^"
^DD(8989.324,.01,23,1,0)="The current location is ^XTV(8989.3,1,""INTRO"", referencing this field.  The"
^DD(8989.324,.01,23,2,0)="previous location was ^XMB(""MGR"",""INTRO"", which did not correspond to"
^DD(8989.324,.01,23,3,0)="any field in a file.  The XUSERINT option, an action type, is used now,"
^DD(8989.324,.01,23,4,0)="as in the past, to edit introductory text."
^DD(8989.324,.01,"DT")="2890727"
^DD(8989.324,"B","INTRO TEXT",.01)=""
^DD(8989.324,"GL",0,1,.01)=""
^DD(8989.3245,0)="POST SIGN-IN MESSAGE SUB-FIELD^^.01^1"
^DD(8989.3245,0,"DT")="2940630"
^DD(8989.3245,0,"NM","POST SIGN-IN MESSAGE")=""
^DD(8989.3245,0,"UP")="8989.3"
^DD(8989.3245,.01,0)="POST SIGN-IN MESSAGE^WL^^0;1^Q"
^DD(8989.3245,.01,"DT")="2940630"
^DD(8989.3245,"B","POST SIGN-IN MESSAGE",.01)=""
^DD(8989.3245,"GL",0,1,.01)=""
^DD(8989.33,0)="DEVICE TO AUDIT SUB-FIELD^^.01^1"
^DD(8989.33,0,"IX","B",8989.33,.01)=""
^DD(8989.33,0,"NM","DEVICE TO AUDIT")=""
^DD(8989.33,0,"UP")="8989.3"
^DD(8989.33,.01,0)="DEVICE TO AUDIT^MP3.5'O^%ZIS(1,^0;1^Q"
^DD(8989.33,.01,1,0)="^.1"
^DD(8989.33,.01,1,1,0)="8989.33^B"
^DD(8989.33,.01,1,1,1)="S ^XTV(8989.3,DA(1),8989.33,""B"",$E(X,1,30),DA)="""""
^DD(8989.33,.01,1,1,2)="K ^XTV(8989.3,DA(1),8989.33,""B"",$E(X,1,30),DA)"
^DD(8989.33,.01,2)="S Y(0)=Y I $D(^%ZIS(1,Y,0)) S Y=$P(^%ZIS(1,Y,0),U,1)"
^DD(8989.33,.01,2.1)="I $D(^%ZIS(1,Y,0)) S Y=$P(^%ZIS(1,Y,0),U,1)"
^DD(8989.33,.01,3)=""
^DD(8989.33,.01,4)=""
^DD(8989.33,.01,21,0)="^^3^3^2870902^^^^"
^DD(8989.33,.01,21,1,0)="This field is referenced when the FAILED ACCESS ATTEMPT AUDIT field"
^DD(8989.33,.01,21,2,0)="is set to 'D' or 'DR'.  It is used to specify the logical names of the"
^DD(8989.33,.01,21,3,0)="devices on which to audit failed attempts."
^DD(8989.33,.01,"DT")="2870902"
^DD(8989.33,"B","DEVICE TO AUDIT",.01)=""
^DD(8989.33,"GL",0,1,.01)=""
^DD(8989.33,"IX",.01)=""
^DD(8989.332,0)="ALPHA/BETA TEST PACKAGE SUB-FIELD^^1^6"
^DD(8989.332,0,"DT")="2941128"
^DD(8989.332,0,"IX","B",8989.332,.01)=""
^DD(8989.332,0,"NM","ALPHA/BETA TEST PACKAGE")=""
^DD(8989.332,0,"UP")="8989.3"
^DD(8989.332,.01,0)="ALPHA/BETA TEST PACKAGE^MP9.4'^DIC(9.4,^0;1^Q"
^DD(8989.332,.01,1,0)="^.1"
^DD(8989.332,.01,1,1,0)="8989.332^B"
^DD(8989.332,.01,1,1,1)="S ^XTV(8989.3,DA(1),""ABPKG"",""B"",$E(X,1,30),DA)="""""
^DD(8989.332,.01,1,1,2)="K ^XTV(8989.3,DA(1),""ABPKG"",""B"",$E(X,1,30),DA)"
^DD(8989.332,.01,3)="This is a package currently in alpha or beta test status"
^DD(8989.332,.01,21,0)="^^2^2^2930402^"
^DD(8989.332,.01,21,1,0)="This field identifies a specific package which was installed as an alpha"
^DD(8989.332,.01,21,2,0)="or beta test of the package."
^DD(8989.332,.01,23,0)="^^1^1^2930402^"
^DD(8989.332,.01,23,1,0)=" "
^DD(8989.332,.01,"DT")="2901025"
^DD(8989.332,.02,0)="DATE LAST UPDATED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8989.332,.02,3)="This is the date that the current version of the package was installed"
^DD(8989.332,.02,21,0)="^^2^2^2930402^"
^DD(8989.332,.02,21,1,0)="This field contains the date on which the alpha or beta test package was"
^DD(8989.332,.02,21,2,0)="last installed in the account."
^DD(8989.332,.02,"DT")="2901025"
^DD(8989.332,.03,0)="ADRESSEE FOR USAGE REPORTING^F^^0;3^K:$L(X)>80!($L(X)<5)!'(X?1""G.""1U.E1""@""1U.E) X"
^DD(8989.332,.03,3)="Answer should be a group addressee network mail format (e.g., G.PKG-TEST@ISC-ANYWHERE)"
^DD(8989.332,.03,21,0)="^^3^3^2930402^"
^DD(8989.332,.03,21,1,0)="This field contains a mail group at a domain to which installation and"
^DD(8989.332,.03,21,2,0)="option usage messages are sent.  This is usually a mail group containing"
^DD(8989.332,.03,21,3,0)="one or more of the developers of the package at the developing ISC."
^DD(8989.332,.03,23,0)="^^1^1^2930402^"
^DD(8989.332,.03,23,1,0)=" "
^DD(8989.332,.03,"DT")="2901128"
^DD(8989.332,.04,0)="VERSION NUMBER^F^^0;4^K:$L(X)>9!($L(X)<3)!'(X?.E1""T""1N.N!(X?.E1""V""1N.N)) X"
^DD(8989.332,.04,3)="This is the current version number and should be a number followed by eitherT or V to indicate TEST or VERIFICATION version followed by a number.  Answer must be 3-9 characters in length."
^DD(8989.332,.04,21,0)="^^5^5^2941128^"
^DD(8989.332,.04,21,1,0)="This field contains the current version of the Alpha/Beta Test package."
^DD(8989.332,.04,21,2,0)="This value is used to label some reports to clarify which version of"
^DD(8989.332,.04,21,3,0)="the test package they relate to.  The entry must contain a number"
^DD(8989.332,.04,21,4,0)="followed by T or V (to indicate a package in Testing or in Verification)"
^DD(8989.332,.04,21,5,0)="followed by a number."
^DD(8989.332,.04,"DT")="2941128"
^DD(8989.332,.05,0)="DATE ERRORS LAST REPORTED^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(8989.332,.05,3)="This field indicates the date on which error reporting back to the developing ISC was last performed."
^DD(8989.332,.05,21,0)="^^3^3^2941128^"
^DD(8989.332,.05,21,1,0)="This field is used to keep track of the last date on which reporting of"
^DD(8989.332,.05,21,2,0)="errors back to the developing ISC was performed.  The date is used as the"
^DD(8989.332,.05,21,3,0)="starting date for identification of errors to report."
^DD(8989.332,.05,"DT")="2941128"
^DD(8989.332,1,0)="PACKAGE NAMESPACE OR PREFIX^8989.3321^^1;0"
^DD(8989.332,1,21,0)="^^3^3^2930402^"
^DD(8989.332,1,21,1,0)="This multiple field is used to identify the namespaces or prefixes used"
^DD(8989.332,1,21,2,0)="to identify the options and routines associated with the alpha or beta"
^DD(8989.332,1,21,3,0)="test package."
^DD(8989.332,1,"DT")="2901025"
^DD(8989.332,"B","ADRESSEE FOR USAGE REPORTING",.03)=""
^DD(8989.332,"B","ALPHA/BETA TEST PACKAGE",.01)=""
^DD(8989.332,"B","DATE ERRORS LAST REPORTED",.05)=""
^DD(8989.332,"B","DATE LAST UPDATED",.02)=""
^DD(8989.332,"B","PACKAGE NAMESPACE OR PREFIX",1)=""
^DD(8989.332,"B","VERSION NUMBER",.04)=""
^DD(8989.332,"GL",0,1,.01)=""
^DD(8989.332,"GL",0,2,.02)=""
^DD(8989.332,"GL",0,3,.03)=""
^DD(8989.332,"GL",0,4,.04)=""
^DD(8989.332,"GL",0,5,.05)=""
^DD(8989.332,"GL",1,0,1)=""
^DD(8989.332,"IX",.01)=""
^DD(8989.332,"SB",8989.3321,1)=""
^DD(8989.3321,0)="PACKAGE NAMESPACE OR PREFIX SUB-FIELD^^1^2"
^DD(8989.3321,0,"IX","B",8989.3321,.01)=""
^DD(8989.3321,0,"NM","PACKAGE NAMESPACE OR PREFIX")=""
^DD(8989.3321,0,"UP")="8989.332"
^DD(8989.3321,.01,0)="PACKAGE NAMESPACE OR PREFIX^MF^^0;1^K:$L(X)>4!($L(X)<2)!'(X?1U.UN) X"
^DD(8989.3321,.01,1,0)="^.1"
^DD(8989.3321,.01,1,1,0)="8989.3321^B"
^DD(8989.3321,.01,1,1,1)="S ^XTV(8989.3,DA(2),""ABPKG"",DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8989.3321,.01,1,1,2)="K ^XTV(8989.3,DA(2),""ABPKG"",DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8989.3321,.01,3)="This is (one of) the 2 to 4 character namespaces or prefixes associated with the test package"
^DD(8989.3321,.01,21,0)="^^1^1^2930402^"
^DD(8989.3321,.01,21,1,0)="This field identifies one of the alpha/beta package namespaces."
^DD(8989.3321,.01,"DT")="2901025"
^DD(8989.3321,1,0)="EXCLUDE NAMESPACE OR PREFIX^8989.33211A^^1;0"
^DD(8989.3321,1,21,0)="^^5^5^2930402^"
^DD(8989.3321,1,21,1,0)="This multiple field is used to indicate any specific namespaces or"
^DD(8989.3321,1,21,2,0)="prefixes which begin with the current namespace or prefix which should"
^DD(8989.3321,1,21,3,0)="be excluded from analyses for the alpha/beta package.  Generally those"
^DD(8989.3321,1,21,4,0)="namespaces which are immediately followed by the letter 'Z' are excluded"
^DD(8989.3321,"B","EXCLUDE NAMESPACE OR PREFIX",1)=""
^DD(8989.3321,"B","PACKAGE NAMESPACE OR PREFIX",.01)=""
^DD(8989.3321,"GL",0,1,.01)=""
^DD(8989.3321,"GL",1,0,1)=""
^DD(8989.3321,"IX",.01)=""
^DD(8989.3321,"SB",8989.33211,1)=""
^DD(8989.33211,0)="EXCLUDE NAMESPACE OR PREFIX SUB-FIELD^^.01^1"
^DD(8989.33211,0,"IX","B",8989.33211,.01)=""
^DD(8989.33211,0,"NM","EXCLUDE NAMESPACE OR PREFIX")=""
^DD(8989.33211,0,"UP")="8989.3321"
^DD(8989.33211,.01,0)="EXCLUDE NAMESPACE OR PREFIX^MF^^0;1^K:$L(X)>4!($L(X)<2) X"
^DD(8989.33211,.01,1,0)="^.1"
^DD(8989.33211,.01,1,1,0)="8989.33211^B"
^DD(8989.33211,.01,1,1,1)="S ^XTV(8989.3,DA(3),""ABPKG"",DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8989.33211,.01,1,1,2)="K ^XTV(8989.3,DA(3),""ABPKG"",DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8989.33211,.01,3)="Answer must be 2-4 characters in length."
^DD(8989.33211,.01,21,0)="^^8^8^2930402^"
^DD(8989.33211,.01,21,1,0)="This is a specific namespace or prefix which would normally be included"
^DD(8989.33211,.01,21,2,0)="as a part of the alpha/beta package based on the prefix specified for the"
^DD(8989.33211,.01,21,3,0)="package, but is to be excluded from consideration as part of the alpha/"
^DD(8989.33211,.01,21,4,0)="beta package.  For example, one of the prefixes (or for most packages,"
^DD(8989.33211,.01,21,6,0)="XT, yet the prefix XTJ has been set aside for another, related but"
^DD(8989.33211,.01,21,7,0)="independent, purpose.  The package prefix could be specified as XT, with"
^DD(8989.33211,.01,21,8,0)="XTJ specified as an entry in this 'exclude namespace or prefix' field."
^DD(8989.33211,.01,"DT")="2901128"
^DD(8989.33211,"B","EXCLUDE NAMESPACE OR PREFIX",.01)=""
^DD(8989.33211,"GL",0,1,.01)=""
^DD(8989.33211,"IX",.01)=""
^DD(8989.333,0)="ALPHA,BETA TEST OPTION SUB-FIELD^^.02^2"
^DD(8989.333,0,"NM","ALPHA,BETA TEST OPTION")=""
^DD(8989.333,0,"UP")="8989.3"
^DD(8989.333,.01,0)="ALPHA,BETA TEST OPTION^MP19'X^DIC(19,^0;1^S DINUM=X Q"
^DD(8989.333,.01,1,0)="^.1^^0"
^DD(8989.333,.01,3)="This is an option associated with a namespace currently in alpha or beta test"
^DD(8989.333,.01,21,0)="^^2^2^2930402^"
^DD(8989.333,.01,21,1,0)="This field identifies one option in alpha or beta test package which has"
^DD(8989.333,.01,21,2,0)="been used since the last package installation."
^DD(8989.333,.01,23,0)="^^1^1^2930402^"
^DD(8989.333,.01,23,1,0)=" "
^DD(8989.333,.01,"DT")="2901130"
^DD(8989.333,.02,0)="ACCESSES SINCE LAST UPDATE^NJ11,0^^0;2^K:+X'=X!(X>99999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(8989.333,.02,3)="This is the number of times that this option has been selected since the last update was installed."
^DD(8989.333,.02,21,0)="^^3^3^2930402^"
^DD(8989.333,.02,21,1,0)="This field is a count of the number of accesses to the alpha or beta"
^DD(8989.333,.02,21,2,0)="test package option identified in field .01 since the last package"
^DD(8989.333,.02,21,3,0)="installation."
^DD(8989.333,.02,23,0)="^^1^1^2930402^"
^DD(8989.333,.02,23,1,0)=" "
^DD(8989.333,.02,"DT")="2901025"
^DD(8989.333,"B","ACCESSES SINCE LAST UPDATE",.02)=""
^DD(8989.333,"B","ALPHA,BETA TEST OPTION",.01)=""
^DD(8989.333,"GL",0,1,.01)=""
^DD(8989.333,"GL",0,2,.02)=""
^DD(8989.34,0)="USER TO AUDIT SUB-FIELD^^.01^1"
^DD(8989.34,0,"IX","B",8989.34,.01)=""
^DD(8989.34,0,"NM","USER TO AUDIT")=""
^DD(8989.34,0,"UP")="8989.3"
^DD(8989.34,.01,0)="USER TO AUDIT^MP200'^VA(200,^0;1^Q"
^DD(8989.34,.01,1,0)="^.1"
^DD(8989.34,.01,1,1,0)="8989.34^B"
^DD(8989.34,.01,1,1,1)="S ^XTV(8989.3,DA(1),19.3,""B"",$E(X,1,30),DA)="""""
^DD(8989.34,.01,1,1,2)="K ^XTV(8989.3,DA(1),19.3,""B"",$E(X,1,30),DA)"
^DD(8989.34,.01,21,0)="^^2^2^2890125^"
^DD(8989.34,.01,21,1,0)="This field identifies a user whose use of options will be audited if"
^DD(8989.34,.01,21,2,0)="the 'Option Audit' Field is set to ""u"" (users audited)."
^DD(8989.34,.01,"DT")="2910618"
^DD(8989.34,"B","USER TO AUDIT",.01)=""
^DD(8989.34,"GL",0,1,.01)=""
^DD(8989.34,"IX",.01)=""
^DD(8989.35,0)="NAMESPACE TO AUDIT SUB-FIELD^^.01^1"
^DD(8989.35,0,"IX","B",8989.35,.01)=""
^DD(8989.35,0,"NM","NAMESPACE TO AUDIT")=""
^DD(8989.35,0,"UP")="8989.3"
^DD(8989.35,.01,0)="NAMESPACE TO AUDIT^MF^^0;1^K:$L(X)>5!($L(X)<1) X"
^DD(8989.35,.01,1,0)="^.1"
^DD(8989.35,.01,1,1,0)="8989.35^B"
^DD(8989.35,.01,1,1,1)="S ^XTV(8989.3,DA(1),19.2,""B"",$E(X,1,30),DA)="""""
^DD(8989.35,.01,1,1,2)="K ^XTV(8989.3,DA(1),19.2,""B"",$E(X,1,30),DA)"
^DD(8989.35,.01,3)="ANSWER MUST BE 1-5 CHARACTERS IN LENGTH"
^DD(8989.35,.01,21,0)="^^3^3^2890125^"
^DD(8989.35,.01,21,1,0)="This field holds a package namespace.  All options within that namespace"
^DD(8989.35,.01,21,2,0)="will be audited if the 'Option Audit' Field is set to ""s"" (selected"
^DD(8989.35,.01,21,3,0)="options)."
^DD(8989.35,.01,"DT")="2870529"
^DD(8989.35,"B","NAMESPACE TO AUDIT",.01)=""
^DD(8989.35,"GL",0,1,.01)=""
^DD(8989.35,"IX",.01)=""
^DD(8989.36,0)="OPTION TO AUDIT SUB-FIELD^^.01^1"
^DD(8989.36,0,"IX","B",8989.36,.01)=""
^DD(8989.36,0,"NM","OPTION TO AUDIT")=""
^DD(8989.36,0,"UP")="8989.3"
^DD(8989.36,.01,0)="OPTION TO AUDIT^MP19'^DIC(19,^0;1^Q"
^DD(8989.36,.01,1,0)="^.1"
^DD(8989.36,.01,1,1,0)="8989.36^B"
^DD(8989.36,.01,1,1,1)="S ^XTV(8989.3,DA(1),19.1,""B"",$E(X,1,30),DA)="""""
^DD(8989.36,.01,1,1,2)="K ^XTV(8989.3,DA(1),19.1,""B"",$E(X,1,30),DA)"
^DD(8989.36,.01,21,0)="^^2^2^2890125^"
^DD(8989.36,.01,21,1,0)="This field holds the name of an option that will be audited if the"
^DD(8989.36,.01,21,2,0)="'Option Audit' Field is set to ""s"" (specific options)."
^DD(8989.36,.01,"DT")="2870529"
^DD(8989.36,"B","OPTION TO AUDIT",.01)=""
^DD(8989.36,"GL",0,1,.01)=""
^DD(8989.36,"IX",.01)=""
^DD(8989.5,0)="FIELD^^3^6"
^DD(8989.5,0,"DDA")="N"
^DD(8989.5,0,"DT")="2960528"
^DD(8989.5,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^XTV(8989.51,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(8989.51,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8989.5,0,"ID",.03)="W ""   "",$$EXT^XPARDD($P(^(0),U,3),$P(^(0),U,2),""I"")"
^DD(8989.5,0,"IX","AC",8989.5,.01)=""
^DD(8989.5,0,"IX","AC1",8989.5,.02)=""
^DD(8989.5,0,"IX","AC3",8989.5,.03)=""
^DD(8989.5,0,"IX","AC4",8989.5,1)=""
^DD(8989.5,0,"IX","B",8989.5,.01)=""
^DD(8989.5,0,"NM","PARAMETERS")=""
^DD(8989.5,0,"VR")="7.3"
^DD(8989.5,0,"VRPK")="XT"
^DD(8989.5,.01,0)="ENTITY^RV^^0;1^Q"
^DD(8989.5,.01,1,0)="^.1^^-1"
^DD(8989.5,.01,1,1,0)="8989.5^B"
^DD(8989.5,.01,1,1,1)="S ^XTV(8989.5,""B"",$E(X,1,30),DA)="""""
^DD(8989.5,.01,1,1,2)="K ^XTV(8989.5,""B"",$E(X,1,30),DA)"
^DD(8989.5,.01,1,2,0)="8989.5^AC^MUMPS"
^DD(8989.5,.01,1,2,1)="D S01^XPARDDAC"
^DD(8989.5,.01,1,2,2)="D K01^XPARDDAC"
^DD(8989.5,.01,1,2,3)="DO NOT DELETE!"
^DD(8989.5,.01,1,2,"%D",0)="^^1^1^2960212^^"
^DD(8989.5,.01,1,2,"%D",1,0)="Multiple filed cross-reference with .02, .03, and 1 fields."
^DD(8989.5,.01,1,2,"DT")="2960207"
^DD(8989.5,.01,3)="Enter the entity (package, location, person) to which this parameter will apply."
^DD(8989.5,.01,21,0)="^.001^12^12^3001102^^"
^DD(8989.5,.01,21,1,0)="This is the entity to which the parameter applies.  It is a variable "
^DD(8989.5,.01,21,2,0)="pointer.  An entity may be any of the following:"
^DD(8989.5,.01,21,3,0)=" "
^DD(8989.5,.01,21,4,0)="     USR  User      (   200  New Person file       )"
^DD(8989.5,.01,21,5,0)="     CLS  Class     (  8930  Usr Class file        )"
^DD(8989.5,.01,21,6,0)="     TEA  Team      (404.51  Team file             )"
^DD(8989.5,.01,21,7,0)="     LOC  Location  (    44  Hospital Location file)"
^DD(8989.5,.01,21,8,0)="     SRV  Service   (    49  Service/Section file  )"
^DD(8989.5,.01,21,9,0)="     DIV  Division  (     4  Institution file      )"
^DD(8989.5,.01,21,10,0)="     SYS  System    (   4.2  Domain file           )"
^DD(8989.5,.01,21,11,0)="     PKG  Package   (   9.4  Package file          )"
^DD(8989.5,.01,21,12,0)="     DEV  Device    (   3.5  Device file           )"
^DD(8989.5,.01,"DT")="2960212"
^DD(8989.5,.01,"V",0)="^.12P^11^11"
^DD(8989.5,.01,"V",1,0)="200^User^1^USR^n^n"
^DD(8989.5,.01,"V",2,0)="8930^Class^2^CLS^n^n"
^DD(8989.5,.01,"V",3,0)="404.51^Team^3^TEA^n^n"
^DD(8989.5,.01,"V",4,0)="44^Location^4^LOC^n^n"
^DD(8989.5,.01,"V",5,0)="49^Service^5^SRV^n^n"
^DD(8989.5,.01,"V",6,0)="4^Division^6^DIV^n^n"
^DD(8989.5,.01,"V",7,0)="4.2^System^7^SYS^n^n"
^DD(8989.5,.01,"V",8,0)="9.4^Package^8^PKG^n^n"
^DD(8989.5,.01,"V",9,0)="405.4^Room-Bed^9^BED^n^n"
^DD(8989.5,.01,"V",10,0)="100.21^Team (OE/RR)^3.5^OTL^n^n"
^DD(8989.5,.01,"V",11,0)="3.5^Device^11^DEV^y^n"
^DD(8989.5,.01,"V",11,1)="S DIC(""S"")=""I """"^TRM^""""[(U_$P(^%ZIS(1,Y,""""TYPE""""),U,1)_U)"""
^DD(8989.5,.01,"V",11,2)="Only allow Devices of type TRM."
^DD(8989.5,.01,"V","B",3.5,11)=""
^DD(8989.5,.01,"V","B",4,6)=""
^DD(8989.5,.01,"V","B",4.2,7)=""
^DD(8989.5,.01,"V","B",9.4,8)=""
^DD(8989.5,.01,"V","B",44,4)=""
^DD(8989.5,.01,"V","B",49,5)=""
^DD(8989.5,.01,"V","B",100.21,10)=""
^DD(8989.5,.01,"V","B",200,1)=""
^DD(8989.5,.01,"V","B",404.51,3)=""
^DD(8989.5,.01,"V","B",405.4,9)=""
^DD(8989.5,.01,"V","B",8930,2)=""
^DD(8989.5,.01,"V","M","Class",2)=""
^DD(8989.5,.01,"V","M","Device",11)=""
^DD(8989.5,.01,"V","M","Division",6)=""
^DD(8989.5,.01,"V","M","Location",4)=""
^DD(8989.5,.01,"V","M","Package",8)=""
^DD(8989.5,.01,"V","M","Room-Bed",9)=""
^DD(8989.5,.01,"V","M","Service",5)=""
^DD(8989.5,.01,"V","M","System",7)=""
^DD(8989.5,.01,"V","M","Team",3)=""
^DD(8989.5,.01,"V","M","Team (OE/RR)",10)=""
^DD(8989.5,.01,"V","M","User",1)=""
^DD(8989.5,.01,"V","O",1,1)=""
^DD(8989.5,.01,"V","O",2,2)=""
^DD(8989.5,.01,"V","O",3,3)=""
^DD(8989.5,.01,"V","O",3.5,10)=""
^DD(8989.5,.01,"V","O",4,4)=""
^DD(8989.5,.01,"V","O",5,5)=""
^DD(8989.5,.01,"V","O",6,6)=""
^DD(8989.5,.01,"V","O",7,7)=""
^DD(8989.5,.01,"V","O",8,8)=""
^DD(8989.5,.01,"V","O",9,9)=""
^DD(8989.5,.01,"V","O",11,11)=""
^DD(8989.5,.01,"V","P","BED",9)=""
^DD(8989.5,.01,"V","P","CLS",2)=""
^DD(8989.5,.01,"V","P","DEV",11)=""
^DD(8989.5,.01,"V","P","DIV",6)=""
^DD(8989.5,.01,"V","P","LOC",4)=""
^DD(8989.5,.01,"V","P","OTL",10)=""
^DD(8989.5,.01,"V","P","PKG",8)=""
^DD(8989.5,.01,"V","P","SRV",5)=""
^DD(8989.5,.01,"V","P","SYS",7)=""
^DD(8989.5,.01,"V","P","TEA",3)=""
^DD(8989.5,.01,"V","P","USR",1)=""
^DD(8989.5,.02,0)="PARAMETER^R*P8989.51'^XTV(8989.51,^0;2^S DIC(""S"")=""I $$ALLOW^XPARDD(DA,Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8989.5,.02,1,0)="^.1^^-1"
^DD(8989.5,.02,1,1,0)="8989.5^AC1^MUMPS"
^DD(8989.5,.02,1,1,1)="D S02^XPARDDAC"
^DD(8989.5,.02,1,1,2)="D K02^XPARDDAC"
^DD(8989.5,.02,1,1,3)="DO NOT DELETE!"
^DD(8989.5,.02,1,1,"%D",0)="^^4^4^2980920^"
^DD(8989.5,.02,1,1,"%D",1,0)="Multiple field cross-reference with fields .01, .02, .03, and 1."
^DD(8989.5,.02,1,1,"%D",2,0)=" "
^DD(8989.5,.02,1,1,"%D",3,0)="The structure of this cross-references is as follows:"
^DD(8989.5,.02,1,1,"%D",4,0)="^XTV(8989.5,""AC"",Parameter(#.02),Entity(#.01),Instance(#.03),DA)=Value(#1)"
^DD(8989.5,.02,1,1,"DT")="2960207"
^DD(8989.5,.02,3)="Enter the parameter being defined for this entity."
^DD(8989.5,.02,12)="Screen out parameters which may not be applied to this entity."
^DD(8989.5,.02,12.1)="S DIC(""S"")=""I $$ALLOW^XPARDD(DA,Y)"""
^DD(8989.5,.02,21,0)="^^1^1^2960207^^"
^DD(8989.5,.02,21,1,0)="This is the parameter that is being assigned a value for this entity."
^DD(8989.5,.02,"DT")="2960215"
^DD(8989.5,.03,0)="INSTANCE^RFXO^^0;3^D DDVALID^XPARDD(""I"")"
^DD(8989.5,.03,1,0)="^.1^^-1"
^DD(8989.5,.03,1,1,0)="8989.5^AC3^MUMPS"
^DD(8989.5,.03,1,1,1)="D S03^XPARDDAC"
^DD(8989.5,.03,1,1,2)="D K03^XPARDDAC"
^DD(8989.5,.03,1,1,3)="DO NOT DELETE!"
^DD(8989.5,.03,1,1,"%D",0)="^^4^4^2980920^"
^DD(8989.5,.03,1,1,"%D",1,0)="Multiple field cross-reference with fields .01, .02, .03 and 1."
^DD(8989.5,.03,1,1,"%D",2,0)=" "
^DD(8989.5,.03,1,1,"%D",3,0)="The structure of this cross-references is as follows:"
^DD(8989.5,.03,1,1,"%D",4,0)="^XTV(8989.5,""AC"",Parameter(#.02),Entity(#.01),Instance(#.03),DA)=Value(#1)"
^DD(8989.5,.03,1,1,"DT")="2960207"
^DD(8989.5,.03,2)="S Y(0)=Y S Y=$$OUT^XPARDD(Y,""I"")"
^DD(8989.5,.03,2.1)="S Y=$$OUT^XPARDD(Y,""I"")"
^DD(8989.5,.03,3)=""
^DD(8989.5,.03,4)="D HELP^XPARDD(""I"")"
^DD(8989.5,.03,21,0)="^^3^3^2960207^"
^DD(8989.5,.03,21,1,0)="This contains an instance identifier for cases where there may be multiple "
^DD(8989.5,.03,21,2,0)="instances of a parameter for the same entity.  It is required.  (It defaults "
^DD(8989.5,.03,21,3,0)="to 1 in cases where multiple instances are not allowed.)"
^DD(8989.5,.03,"DT")="2960404"
^DD(8989.5,1,0)="VALUE^RFXO^^1;1^D DDVALID^XPARDD(""V"")"
^DD(8989.5,1,1,0)="^.1^^-1"
^DD(8989.5,1,1,1,0)="8989.5^AC4^MUMPS"
^DD(8989.5,1,1,1,1)="D S1^XPARDDAC"
^DD(8989.5,1,1,1,2)="D K1^XPARDDAC"
^DD(8989.5,1,1,1,3)="DO NOT DELETE!"
^DD(8989.5,1,1,1,"%D",0)="^^4^4^2980920^"
^DD(8989.5,1,1,1,"%D",1,0)="Multiple field cross-reference with fields .01, .02, .03, and 1."
^DD(8989.5,1,1,1,"%D",2,0)=" "
^DD(8989.5,1,1,1,"%D",3,0)="The structure of this cross-references is as follows:"
^DD(8989.5,1,1,1,"%D",4,0)="^XTV(8989.5,""AC"",Parameter(#.02),Entity(#.01),Instance(#.03),DA)=Value(#1)"
^DD(8989.5,1,1,1,"DT")="2960207"
^DD(8989.5,1,2)="S Y(0)=Y S Y=$$OUT^XPARDD(Y,""V"")"
^DD(8989.5,1,2.1)="S Y=$$OUT^XPARDD(Y,""V"")"
^DD(8989.5,1,3)=""
^DD(8989.5,1,4)="D HELP^XPARDD(""V"")"
^DD(8989.5,1,21,0)="^^3^3^2960207^"
^DD(8989.5,1,21,1,0)="This is the value for the parameter.  The allowable values are checked "
^DD(8989.5,1,21,2,0)="according to the data type listed for the parameter in the PARAMETER "
^DD(8989.5,1,21,3,0)="DEFINITION file."
^DD(8989.5,1,"DT")="2960404"
^DD(8989.5,2,0)="WORD PROCESSING TEXT^8989.502^^2;0"
^DD(8989.5,2,21,0)="^^3^3^2970626^"
^DD(8989.5,2,21,1,0)="If the parameter type is word processing, the word processing text is"
^DD(8989.5,2,21,2,0)="contained here and the VALUE field may contain a one line title for the"
^DD(8989.5,2,21,3,0)="word processing text."
^DD(8989.5,3,0)="M CODE^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8989.5,3,3)="This is Standard MUMPS code."
^DD(8989.5,3,9)="@"
^DD(8989.5,3,21,0)="^^2^2^2970626^^"
^DD(8989.5,3,21,1,0)="When a parameter is of type M (for MUMPS code), the executable code is "
^DD(8989.5,3,21,2,0)="stored here, rather than in the VALUE field."
^DD(8989.5,3,"DT")="2960528"
^DD(8989.5,"B","ENTITY",.01)=""
^DD(8989.5,"B","INSTANCE",.03)=""
^DD(8989.5,"B","M CODE",3)=""
^DD(8989.5,"B","PARAMETER",.02)=""
^DD(8989.5,"B","VALUE",1)=""
^DD(8989.5,"B","WORD PROCESSING TEXT",2)=""
^DD(8989.5,"GL",0,1,.01)=""
^DD(8989.5,"GL",0,2,.02)=""
^DD(8989.5,"GL",0,3,.03)=""
^DD(8989.5,"GL",1,1,1)=""
^DD(8989.5,"GL",2,0,2)=""
^DD(8989.5,"GL",3,"E1,245",3)=""
^DD(8989.5,"IX",.01)=""
^DD(8989.5,"IX",.02)=""
^DD(8989.5,"IX",.03)=""
^DD(8989.5,"IX",1)=""
^DD(8989.5,"RQ",.01)=""
^DD(8989.5,"RQ",.02)=""
^DD(8989.5,"RQ",.03)=""
^DD(8989.5,"RQ",1)=""
^DD(8989.5,"SB",8989.502,2)=""
^DD(8989.502,0)="WORD PROCESSING TEXT SUB-FIELD^^.01^1"
^DD(8989.502,0,"DT")="2960207"
^DD(8989.502,0,"NM","WORD PROCESSING TEXT")=""
^DD(8989.502,0,"UP")="8989.5"
^DD(8989.502,.01,0)="WORD PROCESSING TEXT^WL^^0;1^Q"
^DD(8989.502,.01,21,0)="^^2^2^2960207^"
^DD(8989.502,.01,21,1,0)="This contains the parameter value in the case that it is word processing "
^DD(8989.502,.01,21,2,0)="text."
^DD(8989.502,.01,"DT")="2960207"
^DD(8989.502,"B","WORD PROCESSING TEXT",.01)=""
^DD(8989.502,"GL",0,1,.01)=""
^DD(8989.51,0)="FIELD^^30^19"
^DD(8989.51,0,"DDA")="N"
^DD(8989.51,0,"DT")="2970621"
^DD(8989.51,0,"ID","WRITE")="N X S X=^(0) D EN^DDIOL($P(X,U,2),"""",""?36"")"
^DD(8989.51,0,"IX","AG",8989.513,.02)=""
^DD(8989.51,0,"IX","B",8989.51,.01)=""
^DD(8989.51,0,"IX","C",8989.51,.02)=""
^DD(8989.51,0,"IX","D",8989.514,.01)=""
^DD(8989.51,0,"NM","PARAMETER DEFINITION")=""
^DD(8989.51,0,"PT",8935.912,.02)=""
^DD(8989.51,0,"PT",8989.5,.02)=""
^DD(8989.51,0,"PT",8989.52,.04)=""
^DD(8989.51,0,"PT",8989.521,.02)=""
^DD(8989.51,0,"VR")="7.3"
^DD(8989.51,0,"VRPK")="XT"
^DD(8989.51,.01,0)="NAME^RFX^^0;1^D VALID01^XPARDD1"
^DD(8989.51,.01,1,0)="^.1"
^DD(8989.51,.01,1,1,0)="8989.51^B"
^DD(8989.51,.01,1,1,1)="S ^XTV(8989.51,""B"",$E(X,1,30),DA)="""""
^DD(8989.51,.01,1,1,2)="K ^XTV(8989.51,""B"",$E(X,1,30),DA)"
^DD(8989.51,.01,3)="Answer must be 3-30 characters in length.  Name must be unique."
^DD(8989.51,.01,21,0)="^^2^2^2960207^"
^DD(8989.51,.01,21,1,0)="This is the name of the parameter.  It should be namespaced according to the "
^DD(8989.51,.01,21,2,0)="package from which the parameter originated."
^DD(8989.51,.01,"DT")="2960207"
^DD(8989.51,.02,0)="DISPLAY TEXT^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(8989.51,.02,1,0)="^.1"
^DD(8989.51,.02,1,1,0)="8989.51^C^MUMPS"
^DD(8989.51,.02,1,1,1)="S ^XTV(8989.51,""C"",$$UPPER^XPARDD1(X),DA)="""""
^DD(8989.51,.02,1,1,2)="K ^XTV(8989.51,""C"",$$UPPER^XPARDD1(X),DA)"
^DD(8989.51,.02,1,1,"%D",0)="^^2^2^2970606^"
^DD(8989.51,.02,1,1,"%D",1,0)="Cross references display text for lookup.  Display text is put in upper"
^DD(8989.51,.02,1,1,"%D",2,0)="case so lookup will be case insensitive."
^DD(8989.51,.02,1,1,"DT")="2960409"
^DD(8989.51,.02,3)="Answer must be 1-40 characters in length."
^DD(8989.51,.02,21,0)="^^2^2^2960207^"
^DD(8989.51,.02,21,1,0)="This is the displayable name for the parameter (allows mixed case, "
^DD(8989.51,.02,21,2,0)="non-namespaced names)."
^DD(8989.51,.02,"DT")="2960409"
^DD(8989.51,.03,0)="MULTIPLE VALUED^S^1:Yes;0:No;^0;3^Q"
^DD(8989.51,.03,3)="Enter 'Yes' if multiple instances of the parameter are allowed for any single entity."
^DD(8989.51,.03,21,0)="^^3^3^2980705^"
^DD(8989.51,.03,21,1,0)="If this field is set to 'Yes', multiple instances of the parameter will be "
^DD(8989.51,.03,21,2,0)="allowed for a single entity.  Otherwise, the value of the instance field"
^DD(8989.51,.03,21,3,0)="for a given Entity-Parameter combination will always be '1'."
^DD(8989.51,.03,"DT")="2960207"
^DD(8989.51,.04,0)="INSTANCE TERM^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(8989.51,.04,3)="Answer must be 1-40 characters in length."
^DD(8989.51,.04,21,0)="^^3^3^2960207^"
^DD(8989.51,.04,21,1,0)="This is a free text term that can be used when prompting for a new instance of "
^DD(8989.51,.04,21,2,0)="the parameter (in the case where the parameter in multiple valued).  If not "
^DD(8989.51,.04,21,3,0)="entered, the word ""Instance"" will be used."
^DD(8989.51,.04,"DT")="2960207"
^DD(8989.51,.05,0)="VALUE TERM^F^^0;5^K:$L(X)>40!($L(X)<1) X"
^DD(8989.51,.05,3)="Answer must be 1-40 characters in length."
^DD(8989.51,.05,21,0)="^^2^2^2970626^"
^DD(8989.51,.05,21,1,0)="This contains text that is issued as a prompt for the value.  If nothing"
^DD(8989.51,.05,21,2,0)="is here, the prompt will be the word 'Value:'."
^DD(8989.51,.05,"DT")="2960612"
^DD(8989.51,.06,0)="PROHIBIT EDITING^S^1:Yes;0:No;^0;6^Q"
^DD(8989.51,.06,3)="Choose 'Disallow Editing' if editing of this field should not be allowed."
^DD(8989.51,.06,21,0)="^^2^2^2970306^"
^DD(8989.51,.06,21,1,0)="This field prevents the parameter value from being edited with Fileman or"
^DD(8989.51,.06,21,2,0)="any Parameters tools."
^DD(8989.51,.06,"DT")="2970317"
^DD(8989.51,1.1,0)="VALUE DATA TYPE^S^D:date/time;F:free text;N:numeric;S:set of codes;Y:yes/no;P:pointer;W:word processing;M:M code;C:constant;^1;1^Q"
^DD(8989.51,1.1,3)="Enter the type of data this parameter will contain."
^DD(8989.51,1.1,21,0)="^^2^2^2960207^"
^DD(8989.51,1.1,21,1,0)="This is the type of data this parameter will contain.  This field is used to "
^DD(8989.51,1.1,21,2,0)="define a call to the reader (^DIR) in most cases."
^DD(8989.51,1.1,"DT")="2960528"
^DD(8989.51,1.2,0)="VALUE DOMAIN^F^^1;2^K:$L(X)>100!($L(X)<1) X"
^DD(8989.51,1.2,3)="Enter up to 100 characters to further define the data type (used by ^DIR)."
^DD(8989.51,1.2,21,0)="^^3^3^2960207^"
^DD(8989.51,1.2,21,1,0)="This is a string that may be used to further specify the data type.  The "
^DD(8989.51,1.2,21,2,0)="string stored here should be appropriate for the second ^-piece of DIR(0) "
^DD(8989.51,1.2,21,3,0)="when used with the data type field."
^DD(8989.51,1.2,"DT")="2960207"
^DD(8989.51,1.3,0)="VALUE HELP^F^^1;3^K:$L(X)>80!($L(X)<1) X"
^DD(8989.51,1.3,3)="Enter a line of help text to be displayed when entering a parameter value."
^DD(8989.51,1.3,21,0)="^^3^3^2960207^"
^DD(8989.51,1.3,21,1,0)="This field contains a line of help text that is displayed when the user "
^DD(8989.51,1.3,21,2,0)="requests help or encounters an error while entering the VALUE field in the "
^DD(8989.51,1.3,21,3,0)="PARAMETERS file."
^DD(8989.51,1.3,"DT")="2960207"
^DD(8989.51,2,0)="VALUE VALIDATION CODE^K^^2;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8989.51,2,3)="This is M code used by DIR (3rd piece of DIR(0))."
^DD(8989.51,2,9)="@"
^DD(8989.51,2,21,0)="^^2^2^2980705^"
^DD(8989.51,2,21,1,0)="This field contains the M code that is placed in the third piece of DIR(0)"
^DD(8989.51,2,21,2,0)="when validating a value in the PARAMETERS file."
^DD(8989.51,2,"DT")="2960207"
^DD(8989.51,3,0)="VALUE SCREEN CODE^K^^3;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8989.51,3,3)="This is M code placed in DIR(""S"")."
^DD(8989.51,3,9)="@"
^DD(8989.51,3,21,0)="^^3^3^2960207^"
^DD(8989.51,3,21,1,0)="This field contains M code that is used to screen allowable entries for the "
^DD(8989.51,3,21,2,0)="VALUE field in the PARAMETERS file.  The code is placed in DIR(""S"") when "
^DD(8989.51,3,21,3,0)="validating the entry."
^DD(8989.51,3,"DT")="2960207"
^DD(8989.51,4,0)="KEYWORD^8989.514^^4;0"
^DD(8989.51,6.1,0)="INSTANCE DATA TYPE^S^D:date/time;F:free text;N:numeric;S:set of codes;Y:yes/no;P:pointer;^6;1^Q"
^DD(8989.51,6.1,3)="Enter the type of data allowed for the INSTANCE field of the parameter."
^DD(8989.51,6.1,21,0)="^^3^3^2960207^"
^DD(8989.51,6.1,21,1,0)="This is the type of data that is contained in the INSTANCE field of the "
^DD(8989.51,6.1,21,2,0)="PARAMETERS file, if multiple parameter instances per entity are allowed.  "
^DD(8989.51,6.1,21,3,0)="This field is used to define a call to the reader."
^DD(8989.51,6.1,"DT")="2960207"
^DD(8989.51,6.2,0)="INSTANCE DOMAIN^F^^6;2^K:$L(X)>100!($L(X)<1) X"
^DD(8989.51,6.2,3)="Enter up to 100 characters to further define the data type (used by ^DIR)."
^DD(8989.51,6.2,21,0)="^^3^3^2960207^"
^DD(8989.51,6.2,21,1,0)="This may be used to further define the data type for the INSTANCE field of "
^DD(8989.51,6.2,21,2,0)="the parameter.  The string stored here should be appropriate for the second "
^DD(8989.51,6.2,21,3,0)="^-piece of DIR(0) when used with the data type field."
^DD(8989.51,6.2,"DT")="2960207"
^DD(8989.51,6.3,0)="INSTANCE HELP^F^^6;3^K:$L(X)>80!($L(X)<1) X"
^DD(8989.51,6.3,3)="Enter a line of help text to be displayed when entering the parameter instance."
^DD(8989.51,6.3,21,0)="^^3^3^2960207^"
^DD(8989.51,6.3,21,1,0)="This field contains a line of help text that is displayed when the user "
^DD(8989.51,6.3,21,2,0)="requests help or encounters an error while entering the INSTANCE field of "
^DD(8989.51,6.3,21,3,0)="the PARAMETERS file."
^DD(8989.51,6.3,"DT")="2960207"
^DD(8989.51,7,0)="INSTANCE VALIDATION CODE^K^^7;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8989.51,7,3)="This is M code used by DIR (3rd piece of DIR(0))."
^DD(8989.51,7,9)="@"
^DD(8989.51,7,21,0)="^^2^2^2960207^"
^DD(8989.51,7,21,1,0)="This field contains M code that is placed in the third piece of DIR(0) when "
^DD(8989.51,7,21,2,0)="validating the INSTANCE field in the PARAMETERS file."
^DD(8989.51,7,"DT")="2960207"
^DD(8989.51,8,0)="INSTANCE SCREEN CODE^K^^8;E1,245^K:$L(X)>245 X D:$D(X) ^DIM"
^DD(8989.51,8,3)="This is M code placed in DIR(""S"")."
^DD(8989.51,8,9)="@"
^DD(8989.51,8,21,0)="^^3^3^2960207^"
^DD(8989.51,8,21,1,0)="This field contains M code that is used to screen allowable entries for the "
^DD(8989.51,8,21,2,0)="INSTANCE field in the PARAMETERS file.  The code is placed in DIR(""S"") when "
^DD(8989.51,8,21,3,0)="validating the entry."
^DD(8989.51,8,"DT")="2960207"
^DD(8989.51,20,0)="DESCRIPTION^8989.512^^20;0"
^DD(8989.51,20,21,0)="^^1^1^2970626^"
^DD(8989.51,20,21,1,0)="A description of the parameter may be entered here."
^DD(8989.51,30,0)="ALLOWABLE ENTITIES^8989.513I^^30;0"
^DD(8989.51,30,21,0)="^^2^2^2960213^^"
^DD(8989.51,30,21,1,0)="This multiple contains a list of entities (pointers to files) for which the "
^DD(8989.51,30,21,2,0)="parameter may be validly set."
^DD(8989.51,"B","ALLOWABLE ENTITIES",30)=""
^DD(8989.51,"B","DESCRIPTION",20)=""
^DD(8989.51,"B","DISPLAY TEXT",.02)=""
^DD(8989.51,"B","INSTANCE DATA TYPE",6.1)=""
^DD(8989.51,"B","INSTANCE DOMAIN",6.2)=""
^DD(8989.51,"B","INSTANCE HELP",6.3)=""
^DD(8989.51,"B","INSTANCE SCREEN CODE",8)=""
^DD(8989.51,"B","INSTANCE TERM",.04)=""
^DD(8989.51,"B","INSTANCE VALIDATION CODE",7)=""
^DD(8989.51,"B","KEYWORD",4)=""
^DD(8989.51,"B","MULTIPLE VALUED",.03)=""
^DD(8989.51,"B","NAME",.01)=""
^DD(8989.51,"B","PROHIBIT EDITING",.06)=""
^DD(8989.51,"B","VALUE DATA TYPE",1.1)=""
^DD(8989.51,"B","VALUE DOMAIN",1.2)=""
^DD(8989.51,"B","VALUE HELP",1.3)=""
^DD(8989.51,"B","VALUE SCREEN CODE",3)=""
^DD(8989.51,"B","VALUE TERM",.05)=""
^DD(8989.51,"B","VALUE VALIDATION CODE",2)=""
^DD(8989.51,"GL",0,1,.01)=""
^DD(8989.51,"GL",0,2,.02)=""
^DD(8989.51,"GL",0,3,.03)=""
^DD(8989.51,"GL",0,4,.04)=""
^DD(8989.51,"GL",0,5,.05)=""
^DD(8989.51,"GL",0,6,.06)=""
^DD(8989.51,"GL",1,1,1.1)=""
^DD(8989.51,"GL",1,2,1.2)=""
^DD(8989.51,"GL",1,3,1.3)=""
^DD(8989.51,"GL",2,"E1,245",2)=""
^DD(8989.51,"GL",3,"E1,245",3)=""
^DD(8989.51,"GL",4,0,4)=""
^DD(8989.51,"GL",6,1,6.1)=""
^DD(8989.51,"GL",6,2,6.2)=""
^DD(8989.51,"GL",6,3,6.3)=""
^DD(8989.51,"GL",7,"E1,245",7)=""
^DD(8989.51,"GL",8,"E1,245",8)=""
^DD(8989.51,"GL",20,0,20)=""
^DD(8989.51,"GL",30,0,30)=""
^DD(8989.51,"IX",.01)=""
^DD(8989.51,"IX",.02)=""
^DD(8989.51,"RQ",.01)=""
^DD(8989.51,"SB",8989.512,20)=""
^DD(8989.51,"SB",8989.513,30)=""
^DD(8989.51,"SB",8989.514,4)=""
^DD(8989.512,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8989.512,0,"DT")="2960207"
^DD(8989.512,0,"NM","DESCRIPTION")=""
^DD(8989.512,0,"UP")="8989.51"
^DD(8989.512,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(8989.512,.01,3)="Enter a description of the parameter and how it is used."
^DD(8989.512,.01,21,0)="^^1^1^2960207^"
^DD(8989.512,.01,21,1,0)="This is text that describes the purpose and use of the parameter."
^DD(8989.512,.01,"DT")="2960207"
^DD(8989.512,"B","DESCRIPTION",.01)=""
^DD(8989.512,"GL",0,1,.01)=""
^DD(8989.513,0)="ALLOWABLE ENTITIES SUB-FIELD^^.02^2"
^DD(8989.513,0,"DT")="2970621"
^DD(8989.513,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(8989.513,0,"IX","B",8989.513,.01)=""
^DD(8989.513,0,"NM","ALLOWABLE ENTITIES")=""
^DD(8989.513,0,"UP")="8989.51"
^DD(8989.513,.01,0)="PRECEDENCE^MRNJ6,2^^0;1^K:+X'=X!(X>999.99)!(X<0)!(X?.E1"".""3N.N) X"
^DD(8989.513,.01,1,0)="^.1"
^DD(8989.513,.01,1,1,0)="8989.513^B"
^DD(8989.513,.01,1,1,1)="S ^XTV(8989.51,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(8989.513,.01,1,1,2)="K ^XTV(8989.51,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(8989.513,.01,3)="Type a Number between 0 and 999.99, 2 Decimal Digits"
^DD(8989.513,.01,21,0)="^^6^6^2960213^^^"
^DD(8989.513,.01,21,1,0)="A single parameter may be set for several different types of entities.  This "
^DD(8989.513,.01,21,2,0)="lists the order in which entities are searched for a defined value.  For "
^DD(8989.513,.01,21,3,0)="example, if a parameter may be set for a package, a location, and a user, "
^DD(8989.513,.01,21,4,0)="and the respective precedents are 3, 2, 1, the value of the user parameter "
^DD(8989.513,.01,21,5,0)="would be returned.  If it did not exist, the value of the location "
^DD(8989.513,.01,21,6,0)="parameter.  If that did not exist, then the value of the package parameter."
^DD(8989.513,.01,"DT")="2960213"
^DD(8989.513,.02,0)="ENTITY FILE^RP8989.518'^XTV(8989.518,^0;2^Q"
^DD(8989.513,.02,1,0)="^.1"
^DD(8989.513,.02,1,1,0)="8989.51^AG^MUMPS"
^DD(8989.513,.02,1,1,1)="D AGS^XPARDD1"
^DD(8989.513,.02,1,1,2)="D AGK^XPARDD1"
^DD(8989.513,.02,1,1,"%D",0)="^^5^5^2980422^"
^DD(8989.513,.02,1,1,"%D",1,0)="The AG x-ref has the format ^XTV(8989.51,PARAM,30,""AG"",GLOBAL REF,DA)=""""."
^DD(8989.513,.02,1,1,"%D",2,0)=" "
^DD(8989.513,.02,1,1,"%D",3,0)="It is used to screen the parameters that may be selected for a given entity "
^DD(8989.513,.02,1,1,"%D",4,0)="in the PARAMETERS file.  The global root is used because the entity is a "
^DD(8989.513,.02,1,1,"%D",5,0)="variable pointer."
^DD(8989.513,.02,1,1,"DT")="2960207"
^DD(8989.513,.02,3)="Choose a file from which entities for this parameter are identified."
^DD(8989.513,.02,21,0)="^^3^3^2980422^"
^DD(8989.513,.02,21,1,0)="This identifies an entity for which the parameter can be legally entered.  "
^DD(8989.513,.02,21,2,0)="Entities are simply variable pointers.  The files which are eligible to be"
^DD(8989.513,.02,21,3,0)="entities are listed in the PARAMETER ENTITY file."
^DD(8989.513,.02,"DT")="2970621"
^DD(8989.513,"B","ENTITY FILE",.02)=""
^DD(8989.513,"B","PRECEDENCE",.01)=""
^DD(8989.513,"GL",0,1,.01)=""
^DD(8989.513,"GL",0,2,.02)=""
^DD(8989.513,"IX",.01)=""
^DD(8989.513,"IX",.02)=""
^DD(8989.513,"RQ",.01)=""
^DD(8989.513,"RQ",.02)=""
^DD(8989.514,0)="KEYWORD SUB-FIELD^^.01^1"
^DD(8989.514,0,"DT")="3020819"
^DD(8989.514,0,"IX","B",8989.514,.01)=""
^DD(8989.514,0,"NM","KEYWORD")=""
^DD(8989.514,0,"UP")="8989.51"
^DD(8989.514,.01,0)="KEYWORD^MFX^^0;1^K:$L(X)>30!($L(X)<3) X I $D(^XTV(8989.51,""D"",X)) D EN^DDIOL($C(7)_""  ""_$$EZBLD^DIALOG(89895140),"""",""?0"")"
^DD(8989.514,.01,1,0)="^.1"
^DD(8989.514,.01,1,1,0)="8989.514^B"
^DD(8989.514,.01,1,1,1)="S ^XTV(8989.51,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(8989.514,.01,1,1,2)="K ^XTV(8989.51,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(8989.514,.01,1,2,0)="8989.51^D"
^DD(8989.514,.01,1,2,1)="S ^XTV(8989.51,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(8989.514,.01,1,2,2)="K ^XTV(8989.51,""D"",$E(X,1,30),DA(1),DA)"
^DD(8989.514,.01,1,2,3)="KeyWord Lookup"
^DD(8989.514,.01,1,2,"%D",0)="^^2^2^3020819^"
^DD(8989.514,.01,1,2,"%D",1,0)="This cross reference allows the use of the keyword for look up of "
^DD(8989.514,.01,1,2,"%D",2,0)="parameters."
^DD(8989.514,.01,1,2,"DT")="3020819"
^DD(8989.514,.01,3)="Answer must be 3-30 characters in length"
^DD(8989.514,.01,21,0)="^^3^3^3021010^"
^DD(8989.514,.01,21,1,0)="This field provides a list of KEYWORDS that can be used for lookup of "
^DD(8989.514,.01,21,2,0)="Parameter definitions.  It is suggested that each entry only have"
^DD(8989.514,.01,21,3,0)="one word."
^DD(8989.514,.01,"DT")="3021010"
^DD(8989.514,"B","KEYWORD",.01)=""
^DD(8989.514,"GL",0,1,.01)=""
^DD(8989.514,"IX",.01)=""
^DD(8989.518,0)="FIELD^^.03^4"
^DD(8989.518,0,"DDA")="N"
^DD(8989.518,0,"DT")="2970625"
^DD(8989.518,0,"IX","B",8989.518,.01)=""
^DD(8989.518,0,"IX","C",8989.518,.02)=""
^DD(8989.518,0,"NM","PARAMETER ENTITY")=""
^DD(8989.518,0,"PT",8989.513,.02)=""
^DD(8989.518,0,"VR")="7.3"
^DD(8989.518,0,"VRPK")="XT"
^DD(8989.518,.001,0)="FILE NUMBER^NJ16,6X^^ ^K:'$$ALLOW^XPARDD1(X) X"
^DD(8989.518,.001,3)="Enter the file number from which instances of this entity are obtained."
^DD(8989.518,.001,21,0)="^^3^3^2970621^"
^DD(8989.518,.001,21,1,0)="The internal entry numbers of this file match the file numbers from which"
^DD(8989.518,.001,21,2,0)="entity instances are obtained.  For example, for the entity USER, the file"
^DD(8989.518,.001,21,3,0)="number is 200."
^DD(8989.518,.001,"DT")="2970621"
^DD(8989.518,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(8989.518,.01,1,0)="^.1"
^DD(8989.518,.01,1,1,0)="8989.518^B"
^DD(8989.518,.01,1,1,1)="S ^XTV(8989.518,""B"",$E(X,1,30),DA)="""""
^DD(8989.518,.01,1,1,2)="K ^XTV(8989.518,""B"",$E(X,1,30),DA)"
^DD(8989.518,.01,3)="Answer must be 3-30 characters in length."
^DD(8989.518,.01,21,0)="^^3^3^2970626^"
^DD(8989.518,.01,21,1,0)="This is the name used to identify the entity when using parameter tools."
^DD(8989.518,.01,21,2,0)="It may not always be the same as the file name from which entities are"
^DD(8989.518,.01,21,3,0)="selected."
^DD(8989.518,.01,"DT")="2970621"
^DD(8989.518,.02,0)="PREFIX^RF^^0;2^K:$L(X)>3!($L(X)<3) X"
^DD(8989.518,.02,1,0)="^.1"
^DD(8989.518,.02,1,1,0)="8989.518^C"
^DD(8989.518,.02,1,1,1)="S ^XTV(8989.518,""C"",$E(X,1,30),DA)="""""
^DD(8989.518,.02,1,1,2)="K ^XTV(8989.518,""C"",$E(X,1,30),DA)"
^DD(8989.518,.02,1,1,"%D",0)="^^1^1^2980705^"
^DD(8989.518,.02,1,1,"%D",1,0)="This allows linking of an entity prefix to a file number."
^DD(8989.518,.02,1,1,"DT")="2970625"
^DD(8989.518,.02,3)="Answer must be 3 characters in length."
^DD(8989.518,.02,21,0)="^^2^2^2970625^"
^DD(8989.518,.02,21,1,0)="This identifies the prefix used to identify the entity type when making"
^DD(8989.518,.02,21,2,0)="calls to XPAR."
^DD(8989.518,.02,"DT")="2970625"
^DD(8989.518,.03,0)="MIXED CASE NAME^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(8989.518,.03,3)="Answer must be 1-30 characters in length."
^DD(8989.518,.03,21,0)="^^1^1^2970625^"
^DD(8989.518,.03,21,1,0)="This is the name of the entity in mixed case."
^DD(8989.518,.03,"DT")="2970625"
^DD(8989.518,"B","FILE NUMBER",.001)=""
^DD(8989.518,"B","MIXED CASE NAME",.03)=""
^DD(8989.518,"B","NAME",.01)=""
^DD(8989.518,"B","PREFIX",.02)=""
^DD(8989.518,"GL",0,1,.01)=""
^DD(8989.518,"GL",0,2,.02)=""
^DD(8989.518,"GL",0,3,.03)=""
^DD(8989.518,"IX",.01)=""
^DD(8989.518,"IX",.02)=""
^DD(8989.518,"RQ",.01)=""
^DD(8989.518,"RQ",.02)=""
^DD(8989.52,0)="FIELD^^10^5"
^DD(8989.52,0,"DDA")="N"
^DD(8989.52,0,"DT")="2970619"
^DD(8989.52,0,"ID","WRITE")="N X S X=^(0) D EN^DDIOL($P(X,U,2),"""",""?36"")"
^DD(8989.52,0,"IX","B",8989.52,.01)=""
^DD(8989.52,0,"NM","PARAMETER TEMPLATE")=""
^DD(8989.52,0,"VR")="7.3"
^DD(8989.52,0,"VRPK")="XT"
^DD(8989.52,.01,0)="NAME^RFX^^0;1^D VALID01^XPARDD2"
^DD(8989.52,.01,1,0)="^.1"
^DD(8989.52,.01,1,1,0)="8989.52^B"
^DD(8989.52,.01,1,1,1)="S ^XTV(8989.52,""B"",$E(X,1,30),DA)="""""
^DD(8989.52,.01,1,1,2)="K ^XTV(8989.52,""B"",$E(X,1,30),DA)"
^DD(8989.52,.01,3)="Name must be 3-30 characters, unique, and namespaced."
^DD(8989.52,.01,21,0)="^^2^2^2980705^"
^DD(8989.52,.01,21,1,0)="This field contains the name of the parameter template.  The template"
^DD(8989.52,.01,21,2,0)="names must be namespaced."
^DD(8989.52,.01,"DT")="2970318"
^DD(8989.52,.02,0)="DISPLAY TEXT^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(8989.52,.02,3)="Answer must be 3-30 characters in length."
^DD(8989.52,.02,12)="Only files defined as variable pointers in PARAMETERS (8989.5) are allowed."
^DD(8989.52,.02,12.1)="S DIC(""S"")=""I $$ALLOW^XPARDD1(Y)"""
^DD(8989.52,.02,21,0)="^^1^1^2970606^^^"
^DD(8989.52,.02,21,1,0)="This is the display name (non-namespaced) for the template."
^DD(8989.52,.02,"DT")="2970318"
^DD(8989.52,.03,0)="USE ENTITY FROM^*P1'^DIC(^0;3^S DIC(""S"")=""I $$ALLOW^XPARDD1(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(8989.52,.03,3)="Choose the file which identifies the entity for which parameters will be entered."
^DD(8989.52,.03,12)="Only files defined as variable pointer in PARAMETERS (8989.5) are allowed."
^DD(8989.52,.03,12.1)="S DIC(""S"")=""I $$ALLOW^XPARDD1(Y)"""
^DD(8989.52,.03,21,0)="^^2^2^2970318^"
^DD(8989.52,.03,21,1,0)="This identifies the file from which an entity will be selected. The"
^DD(8989.52,.03,21,2,0)="parameters in this template will apply to that entity."
^DD(8989.52,.03,"DT")="2970318"
^DD(8989.52,.04,0)="USE INSTANCE FROM^P8989.51'^XTV(8989.51,^0;4^Q"
^DD(8989.52,.04,3)="The parameter identified here will be used to prompt for an instance which will be used for the multiple parameters in the template."
^DD(8989.52,.04,21,0)="^^3^3^2970619^"
^DD(8989.52,.04,21,1,0)="This allows a parameter to be chosen which will be used to prompt for an"
^DD(8989.52,.04,21,2,0)="instance value.  This instance value will be used for all other parameters"
^DD(8989.52,.04,21,3,0)="in the template that are a multiple type."
^DD(8989.52,.04,"DT")="2970619"
^DD(8989.52,10,0)="PARAMETERS^8989.521IA^^10;0"
^DD(8989.52,10,21,0)="^^1^1^2970317^"
^DD(8989.52,10,21,1,0)="This lists the parameters that make up the template."
^DD(8989.52,"B","DISPLAY TEXT",.02)=""
^DD(8989.52,"B","NAME",.01)=""
^DD(8989.52,"B","PARAMETERS",10)=""
^DD(8989.52,"B","USE ENTITY FROM",.03)=""
^DD(8989.52,"B","USE INSTANCE FROM",.04)=""
^DD(8989.52,"GL",0,1,.01)=""
^DD(8989.52,"GL",0,2,.02)=""
^DD(8989.52,"GL",0,3,.03)=""
^DD(8989.52,"GL",0,4,.04)=""
^DD(8989.52,"GL",10,0,10)=""
^DD(8989.52,"IX",.01)=""
^DD(8989.52,"RQ",.01)=""
^DD(8989.52,"SB",8989.521,10)=""
^DD(8989.521,0)="PARAMETERS SUB-FIELD^^.02^2"
^DD(8989.521,0,"DT")="2970317"
^DD(8989.521,0,"ID","WRITE")="N X S X=^(0) I $P(X,U,2) D EN^DDIOL($P(^XTV(8989.51,+$P(X,U,2),0),U),"""",""?10"")"
^DD(8989.521,0,"IX","B",8989.521,.01)=""
^DD(8989.521,0,"NM","PARAMETERS")=""
^DD(8989.521,0,"UP")="8989.52"
^DD(8989.521,.01,0)="SEQUENCE^MNJ7,3^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""4N.N) X"
^DD(8989.521,.01,1,0)="^.1"
^DD(8989.521,.01,1,1,0)="8989.521^B"
^DD(8989.521,.01,1,1,1)="S ^XTV(8989.52,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(8989.521,.01,1,1,2)="K ^XTV(8989.52,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(8989.521,.01,3)="Type a Number between 1 and 999, 3 Decimal Digits"
^DD(8989.521,.01,21,0)="^^2^2^2970317^"
^DD(8989.521,.01,21,1,0)="This is the sequence in which the value(s) for this parameter should be"
^DD(8989.521,.01,21,2,0)="prompted."
^DD(8989.521,.01,"DT")="2970317"
^DD(8989.521,.02,0)="PARAMETER^P8989.51'^XTV(8989.51,^0;2^Q"
^DD(8989.521,.02,3)="Enter the parameter that should be prompted at this sequence number."
^DD(8989.521,.02,21,0)="^^2^2^2970317^"
^DD(8989.521,.02,21,1,0)="This points to the parameter that should be prompted for at this sequence"
^DD(8989.521,.02,21,2,0)="in the template."
^DD(8989.521,.02,"DT")="2970317"
^DD(8989.521,"B","PARAMETER",.02)=""
^DD(8989.521,"B","SEQUENCE",.01)=""
^DD(8989.521,"GL",0,1,.01)=""
^DD(8989.521,"GL",0,2,.02)=""
^DD(8989.521,"IX",.01)=""
^DD(8991,0)="FIELD^^1^2"
^DD(8991,0,"DT")="2901101"
^DD(8991,0,"IX","B",8991,.01)=""
^DD(8991,0,"NM","XTV ROUTINE CHANGES")=""
^DD(8991,0,"VR")="7.3"
^DD(8991,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(8991,.01,1,0)="^.1"
^DD(8991,.01,1,1,0)="8991^B"
^DD(8991,.01,1,1,1)="S ^XTV(8991,""B"",$E(X,1,30),DA)="""""
^DD(8991,.01,1,1,2)="K ^XTV(8991,""B"",$E(X,1,30),DA)"
^DD(8991,.01,3)="Answer must be 1-30 characters in length."
^DD(8991,.01,21,0)="^^2^2^2930402^^"
^DD(8991,.01,21,1,0)="This is the routine name for a routine which has been logged for change"
^DD(8991,.01,21,2,0)="tracking."
^DD(8991,.01,"DT")="2901101"
^DD(8991,1,0)="VERSION DATE/TIME^8991.01DA^^1;0"
^DD(8991,1,21,0)="^^4^4^2930402^^"
^DD(8991,1,21,1,0)="This multiple is used to track changes by the date on which the changes"
^DD(8991,1,21,2,0)="were LOGGED (changes are not specifically recorded until they are logged)."
^DD(8991,1,21,3,0)=" The last date entry will always contain a complete copy of the routine"
^DD(8991,1,21,4,0)="code."
^DD(8991,"B","NAME",.01)=""
^DD(8991,"B","VERSION DATE/TIME",1)=""
^DD(8991,"GL",0,1,.01)=""
^DD(8991,"GL",1,0,1)=""
^DD(8991,"IX",.01)=""
^DD(8991,"RQ",.01)=""
^DD(8991,"SB",8991.01,1)=""
^DD(8991.01,0)="VERSION DATE/TIME SUB-FIELD^^1^2"
^DD(8991.01,0,"IX","B",8991.01,.01)=""
^DD(8991.01,0,"NM","VERSION DATE/TIME")=""
^DD(8991.01,0,"UP")="8991"
^DD(8991.01,.01,0)="VERSION DATE/TIME^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8991.01,.01,1,0)="^.1"
^DD(8991.01,.01,1,1,0)="8991.01^B"
^DD(8991.01,.01,1,1,1)="S ^XTV(8991,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8991.01,.01,1,1,2)="K ^XTV(8991,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8991.01,.01,3)="This is the Date and Time that the change was recorded"
^DD(8991.01,.01,21,0)="^^2^2^2930402^^"
^DD(8991.01,.01,21,1,0)="This is the date/time when the original copy of the routine was logged, or"
^DD(8991.01,.01,21,2,0)="when changes have been logged since that time."
^DD(8991.01,.01,"DT")="2900111"
^DD(8991.01,1,0)="LINE NUMBER^8991.11A^^1;0"
^DD(8991.01,1,21,0)="^^10^10^2930402^^"
^DD(8991.01,1,21,1,0)="This is a multiple field used to monitor the lines within the routine."
^DD(8991.01,1,21,2,0)="For the last/date time entry, all lines of the routine are present in"
^DD(8991.01,1,21,3,0)="numerical order from the top of the routine (line 1 is the first line of"
^DD(8991.01,1,21,4,0)="the routine) to the last line of the routine."
^DD(8991.01,1,21,5,0)=" "
^DD(8991.01,1,21,6,0)="Changes to the routines are retained under the lines where the changes"
^DD(8991.01,1,21,7,0)="were made, including a copy of the original line and the revised line."
^DD(8991.01,1,21,8,0)="Insertions of one or more lines are included in the line entry WHICH"
^DD(8991.01,1,21,9,0)="FOLLOWS the inserted code.  All other lines which are not changed are"
^DD(8991.01,1,21,10,0)="deleted."
^DD(8991.01,"B","LINE NUMBER",1)=""
^DD(8991.01,"B","VERSION DATE/TIME",.01)=""
^DD(8991.01,"GL",0,1,.01)=""
^DD(8991.01,"GL",1,0,1)=""
^DD(8991.01,"IX",.01)=""
^DD(8991.01,"RQ",.01)=""
^DD(8991.01,"SB",8991.11,1)=""
^DD(8991.11,0)="LINE NUMBER SUB-FIELD^^2^3"
^DD(8991.11,0,"NM","LINE NUMBER")=""
^DD(8991.11,0,"UP")="8991.01"
^DD(8991.11,.01,0)="LINE OF CODE^MF^^0;E1,255^K:$L(X)>255!($L(X)<1) X"
^DD(8991.11,.01,1,0)="^.1^^0"
^DD(8991.11,.01,3)=""
^DD(8991.11,.01,21,0)="^^1^1^2930402^^"
^DD(8991.11,.01,21,1,0)="This contains the line of code for this line number of the routine."
^DD(8991.11,.01,"DT")="2900129"
^DD(8991.11,1,0)="DELETED LINE^F^^DEL;E1,255^K:$L(X)>255!($L(X)<1) X"
^DD(8991.11,1,3)="ANSWER MUST BE 1-255 CHARACTERS IN LENGTH"
^DD(8991.11,1,21,0)="^^3^3^2930402^"
^DD(8991.11,1,21,1,0)="This field contains the previous line of code which was deleted from the"
^DD(8991.11,1,21,2,0)="next version (changes may show up as a deletion of a given line followed"
^DD(8991.11,1,21,3,0)="by an insertion of the new code showing up in the next line)."
^DD(8991.11,1,"DT")="2950210"
^DD(8991.11,2,0)="INSERTED CODE^8991.12A^^INS;0"
^DD(8991.11,2,21,0)="^^2^2^2930402^"
^DD(8991.11,2,21,1,0)="This is a multiple field which is used to include those lines of M code"
^DD(8991.11,2,21,2,0)="which were inserted prior to this line number."
^DD(8991.11,"B","DELETED LINE",1)=""
^DD(8991.11,"B","INSERTED CODE",2)=""
^DD(8991.11,"B","LINE OF CODE",.01)=""
^DD(8991.11,"GL",0,"E1,255",.01)=""
^DD(8991.11,"GL","DEL","E1,255",1)=""
^DD(8991.11,"GL","INS",0,2)=""
^DD(8991.11,"SB",8991.12,2)=""
^DD(8991.12,0)="INSERTED CODE SUB-FIELD^^.01^1"
^DD(8991.12,0,"NM","INSERTED CODE")=""
^DD(8991.12,0,"UP")="8991.11"
^DD(8991.12,.01,0)="INSERTED CODE^F^^0;E1,255^K:$L(X)>255!($L(X)<1) X"
^DD(8991.12,.01,1,0)="^.1^^0"
^DD(8991.12,.01,3)="ANSWER MUST BE 1-255 CHARACTERS IN LENGTH"
^DD(8991.12,.01,21,0)="^^1^1^2930402^"
^DD(8991.12,.01,21,1,0)="This is a line of the code inserted prior to the current line number"
^DD(8991.12,.01,"DT")="2900129"
^DD(8991.12,"B","INSERTED CODE",.01)=""
^DD(8991.12,"GL",0,"E1,255",.01)=""
^DD(8991.19,0)="FIELD^^2^3"
^DD(8991.19,0,"DT")="2900612"
^DD(8991.19,0,"IX","B",8991.19,.01)=""
^DD(8991.19,0,"NM","XTV VERIFICATION PACKAGE")=""
^DD(8991.19,0,"PT",8991.2,.01)=""
^DD(8991.19,0,"VR")="7.3"
^DD(8991.19,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8991.19,.01,1,0)="^.1"
^DD(8991.19,.01,1,1,0)="8991.19^B"
^DD(8991.19,.01,1,1,1)="S ^XTV(8991.19,""B"",$E(X,1,30),DA)="""""
^DD(8991.19,.01,1,1,2)="K ^XTV(8991.19,""B"",$E(X,1,30),DA)"
^DD(8991.19,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8991.19,.01,21,0)="^^1^1^2930402^"
^DD(8991.19,.01,21,1,0)="This is a name used to identify a verification package."
^DD(8991.19,1,0)="FILE INCLUDED IN PACKAGE^8991.191A^^1;0"
^DD(8991.19,1,21,0)="^^2^2^2930402^"
^DD(8991.19,1,21,1,0)="This is a multiple indicating those files which should be considered a"
^DD(8991.19,1,21,2,0)="part of the current verification package."
^DD(8991.19,2,0)="NAMESPACE INCLUDED IN PACKAGE^8991.192A^^2;0"
^DD(8991.19,2,21,0)="^^2^2^2930402^"
^DD(8991.19,2,21,1,0)="This is a multiple field used to specify the one or more namespaces which"
^DD(8991.19,2,21,2,0)="should be considered as part of the verification package."
^DD(8991.19,"B","FILE INCLUDED IN PACKAGE",1)=""
^DD(8991.19,"B","NAME",.01)=""
^DD(8991.19,"B","NAMESPACE INCLUDED IN PACKAGE",2)=""
^DD(8991.19,"GL",0,1,.01)=""
^DD(8991.19,"GL",1,0,1)=""
^DD(8991.19,"GL",2,0,2)=""
^DD(8991.19,"IX",.01)=""
^DD(8991.19,"RQ",.01)=""
^DD(8991.19,"SB",8991.191,1)=""
^DD(8991.19,"SB",8991.192,2)=""
^DD(8991.191,0)="FILE INCLUDED IN PACKAGE SUB-FIELD^^.01^1"
^DD(8991.191,0,"DT")="2900612"
^DD(8991.191,0,"IX","B",8991.191,.01)=""
^DD(8991.191,0,"NM","FILE INCLUDED IN PACKAGE")=""
^DD(8991.191,0,"UP")="8991.19"
^DD(8991.191,.01,0)="FILE NUMBER^MNJ16,5^^0;1^K:+X'=X!(X>9999999999.99999)!(X<.00001)!(X?.E1"".""6N.N) X"
^DD(8991.191,.01,1,0)="^.1"
^DD(8991.191,.01,1,1,0)="8991.191^B"
^DD(8991.191,.01,1,1,1)="S ^XTV(8991.19,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8991.191,.01,1,1,2)="K ^XTV(8991.19,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8991.191,.01,3)="Enter the file number of a file associated with this verification package"
^DD(8991.191,.01,21,0)="^^2^2^2930402^"
^DD(8991.191,.01,21,1,0)="This is the file number for one of the files included in the verification"
^DD(8991.191,.01,21,2,0)="package."
^DD(8991.191,.01,"DT")="2900612"
^DD(8991.191,"B","FILE NUMBER",.01)=""
^DD(8991.191,"GL",0,1,.01)=""
^DD(8991.191,"IX",.01)=""
^DD(8991.192,0)="NAMESPACE INCLUDED IN PACKAGE SUB-FIELD^^.01^1"
^DD(8991.192,0,"DT")="2900612"
^DD(8991.192,0,"IX","B",8991.192,.01)=""
^DD(8991.192,0,"NM","NAMESPACE INCLUDED IN PACKAGE")=""
^DD(8991.192,0,"UP")="8991.19"
^DD(8991.192,.01,0)="NAMESPACE INCLUDED IN PACKAGE^MF^^0;1^K:$L(X)>4!($L(X)<1) X"
^DD(8991.192,.01,1,0)="^.1"
^DD(8991.192,.01,1,1,0)="8991.192^B"
^DD(8991.192,.01,1,1,1)="S ^XTV(8991.19,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8991.192,.01,1,1,2)="K ^XTV(8991.19,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8991.192,.01,3)="Enter a valid namespace (1-4 characters) for this package"
^DD(8991.192,.01,21,0)="^^2^2^2930402^"
^DD(8991.192,.01,21,1,0)="This is one of the namespaces which is to be considered a part of the"
^DD(8991.192,.01,21,2,0)="current verification package."
^DD(8991.192,.01,"DT")="2900612"
^DD(8991.192,"B","NAMESPACE INCLUDED IN PACKAGE",.01)=""
^DD(8991.192,"GL",0,1,.01)=""
^DD(8991.192,"IX",.01)=""
^DD(8991.2,0)="FIELD^^1^2"
^DD(8991.2,0,"DT")="2910809"
^DD(8991.2,0,"IX","B",8991.2,.01)=""
^DD(8991.2,0,"NM","XTV GLOBAL CHANGES")=""
^DD(8991.2,0,"VR")="7.3"
^DD(8991.2,.01,0)="NAME^RP8991.19'^XTV(8991.19,^0;1^Q"
^DD(8991.2,.01,1,0)="^.1"
^DD(8991.2,.01,1,1,0)="8991.2^B"
^DD(8991.2,.01,1,1,1)="S ^XTV(8991.2,""B"",$E(X,1,30),DA)="""""
^DD(8991.2,.01,1,1,2)="K ^XTV(8991.2,""B"",$E(X,1,30),DA)"
^DD(8991.2,.01,3)="Select the desired verification project package"
^DD(8991.2,.01,21,0)="^^2^2^2930402^^"
^DD(8991.2,.01,21,1,0)="This is the name of the XTV VERIFICATION PACKAGE which is to be"
^DD(8991.2,.01,21,2,0)="incorporated for evaluating global changes."
^DD(8991.2,.01,"DT")="2900612"
^DD(8991.2,1,0)="DATE RECORDED^8991.21DA^^1;0"
^DD(8991.2,1,21,0)="^^2^2^2930402^^"
^DD(8991.2,1,21,1,0)="This is a multiple node for identifying different (if multiple records are"
^DD(8991.2,1,21,2,0)="created) records of the global nodes and their contents."
^DD(8991.2,"B","DATE RECORDED",1)=""
^DD(8991.2,"B","NAME",.01)=""
^DD(8991.2,"GL",0,1,.01)=""
^DD(8991.2,"GL",1,0,1)=""
^DD(8991.2,"IX",.01)=""
^DD(8991.2,"RQ",.01)=""
^DD(8991.2,"SB",8991.21,1)=""
^DD(8991.21,0)="DATE RECORDED SUB-FIELD^^2^4"
^DD(8991.21,0,"DT")="2910809"
^DD(8991.21,0,"IX","B",8991.21,.01)=""
^DD(8991.21,0,"NM","DATE RECORDED")=""
^DD(8991.21,0,"UP")="8991.2"
^DD(8991.21,.01,0)="DATE RECORDED^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8991.21,.01,1,0)="^.1"
^DD(8991.21,.01,1,1,0)="8991.21^B"
^DD(8991.21,.01,1,1,1)="S ^XTV(8991.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8991.21,.01,1,1,2)="K ^XTV(8991.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8991.21,.01,3)="This is the date on which this version was recorded"
^DD(8991.21,.01,21,0)="^^2^2^2930402^^"
^DD(8991.21,.01,21,1,0)="This is the date on which the global nodes and associated data were"
^DD(8991.21,.01,21,2,0)="recorded for this XTV VERIFICATION PACKAGE."
^DD(8991.21,.02,0)="VERSION^F^^0;2^K:$L(X)>8!($L(X)<1) X"
^DD(8991.21,.02,3)="This is the version number associated with this data set (optional)"
^DD(8991.21,.02,21,0)="^^2^2^2930402^^"
^DD(8991.21,.02,21,1,0)="This is an optional field for indicating the version of the package which"
^DD(8991.21,.02,21,2,0)="is being recorded."
^DD(8991.21,1,0)="FILE NAME^8991.211A^^1;0"
^DD(8991.21,1,21,0)="^^2^2^2930402^^"
^DD(8991.21,1,21,1,0)="This is multiple for recording the specific file for which global nodes"
^DD(8991.21,1,21,2,0)="and data are recorded."
^DD(8991.21,2,0)="NAMESPACE^8991.212A^^2;0"
^DD(8991.21,2,21,0)="^^2^2^2930402^"
^DD(8991.21,2,21,1,0)="This is a multiple associated with the namespaces for the current XTV"
^DD(8991.21,2,21,2,0)="VERIFICATION PACKAGE."
^DD(8991.21,"B","DATE RECORDED",.01)=""
^DD(8991.21,"B","FILE NAME",1)=""
^DD(8991.21,"B","NAMESPACE",2)=""
^DD(8991.21,"B","VERSION",.02)=""
^DD(8991.21,"GL",0,1,.01)=""
^DD(8991.21,"GL",0,2,.02)=""
^DD(8991.21,"GL",1,0,1)=""
^DD(8991.21,"GL",2,0,2)=""
^DD(8991.21,"IX",.01)=""
^DD(8991.21,"SB",8991.211,1)=""
^DD(8991.21,"SB",8991.212,2)=""
^DD(8991.211,0)="FILE NAME SUB-FIELD^^2^4"
^DD(8991.211,0,"DT")="2910809"
^DD(8991.211,0,"IX","B",8991.211,.01)=""
^DD(8991.211,0,"NM","FILE NAME")=""
^DD(8991.211,0,"UP")="8991.21"
^DD(8991.211,.001,0)="NUMBER^NJ15,5^^ ^K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"".""6N.N) X"
^DD(8991.211,.001,3)="This is the file manager file number for the file"
^DD(8991.211,.001,21,0)="^^1^1^2930402^"
^DD(8991.211,.001,21,1,0)="This is the file number for this file."
^DD(8991.211,.01,0)="FILE NAME^MRF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(8991.211,.01,1,0)="^.1"
^DD(8991.211,.01,1,1,0)="8991.211^B"
^DD(8991.211,.01,1,1,1)="S ^XTV(8991.2,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8991.211,.01,1,1,2)="K ^XTV(8991.2,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8991.211,.01,3)="This is a file name associated with this package"
^DD(8991.211,.01,21,0)="^^1^1^2930402^^"
^DD(8991.211,.01,21,1,0)="This is the name of the file for which global nodes and data are recorded."
^DD(8991.211,1,0)="DIC( ZERO ENTRIES^8991.311A^^C;0"
^DD(8991.211,1,21,0)="^^2^2^2930402^^"
^DD(8991.211,1,21,1,0)="This multiple is used to store the global nodes and data associated with"
^DD(8991.211,1,21,2,0)="the ^DIC(fn,0, nodes for the file."
^DD(8991.211,2,0)="DD( FILE/SUB-FILE^8991.2112A^^D;0"
^DD(8991.211,2,21,0)="^^2^2^2930402^^"
^DD(8991.211,2,21,1,0)="This multiple field is used to identify the ^DD entries for the file and"
^DD(8991.211,2,21,2,0)="any subfiles."
^DD(8991.211,2,"DT")="2910809"
^DD(8991.211,"B","DD( FILE/SUB-FILE",2)=""
^DD(8991.211,"B","DIC( ZERO ENTRIES",1)=""
^DD(8991.211,"B","FILE NAME",.01)=""
^DD(8991.211,"B","NUMBER",.001)=""
^DD(8991.211,"GL",0,1,.01)=""
^DD(8991.211,"GL","C",0,1)=""
^DD(8991.211,"GL","D",0,2)=""
^DD(8991.211,"IX",.01)=""
^DD(8991.211,"RQ",.01)=""
^DD(8991.211,"SB",8991.2112,2)=""
^DD(8991.211,"SB",8991.311,1)=""
^DD(8991.2112,0)="DD( FILE/SUB-FILE SUB-FIELD^^1^2"
^DD(8991.2112,0,"DT")="2910809"
^DD(8991.2112,0,"NM","DD( FILE/SUB-FILE")=""
^DD(8991.2112,0,"UP")="8991.211"
^DD(8991.2112,.01,0)="DD( FILE/SUB-FILE NAME^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(8991.2112,.01,1,0)="^.1^^0"
^DD(8991.2112,.01,3)="Answer must be 1-60 characters in length."
^DD(8991.2112,.01,21,0)="^^2^2^2930402^^"
^DD(8991.2112,.01,21,1,0)="This is the name associated with a given ^DD entry for the file or its"
^DD(8991.2112,.01,21,2,0)="sub-files."
^DD(8991.2112,.01,"DT")="2910809"
^DD(8991.2112,1,0)="DD( GLOBAL^8991.21121A^^1;0"
^DD(8991.2112,1,21,0)="^^2^2^2930402^^"
^DD(8991.2112,1,21,1,0)="This is a multiple field containing the global nodes in the ^DD structure"
^DD(8991.2112,1,21,2,0)="for this file and its subfiles."
^DD(8991.2112,"B","DD( FILE/SUB-FILE NAME",.01)=""
^DD(8991.2112,"B","DD( GLOBAL",1)=""
^DD(8991.2112,"GL",0,1,.01)=""
^DD(8991.2112,"GL",1,0,1)=""
^DD(8991.2112,"SB",8991.21121,1)=""
^DD(8991.21121,0)="DD( GLOBAL SUB-FIELD^^1^3"
^DD(8991.21121,0,"DT")="2910809"
^DD(8991.21121,0,"NM","DD( GLOBAL")=""
^DD(8991.21121,0,"UP")="8991.2112"
^DD(8991.21121,.01,0)="NULL^MF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(8991.21121,.01,1,0)="^.1^^0"
^DD(8991.21121,.01,3)="This piece will actually be NULL"
^DD(8991.21121,.01,21,0)="^^1^1^2930402^^"
^DD(8991.21121,.01,21,1,0)="This appears as a null value."
^DD(8991.21121,.01,"DT")="2910809"
^DD(8991.21121,.02,0)="DD( GLOBAL NODE^FO^^0;2^K:$L(X)>180!($L(X)<1) X"
^DD(8991.21121,.02,2)="S Y(0)=Y S Y=""^""_Y"
^DD(8991.21121,.02,2.1)="S Y=""^""_Y"
^DD(8991.21121,.02,3)="Answer must be 1-180 characters in length."
^DD(8991.21121,.02,21,0)="^^2^2^2930402^"
^DD(8991.21121,.02,21,1,0)="This field contains the specific node of the ^DD entry for this file or"
^DD(8991.21121,.02,21,2,0)="its subfiles."
^DD(8991.21121,.02,"DT")="2910809"
^DD(8991.21121,1,0)="DD( GLOBAL DATA^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(8991.21121,1,3)="Answer must be 1-245 characters in length."
^DD(8991.21121,1,21,0)="^^2^2^2930402^"
^DD(8991.21121,1,21,1,0)="This field contains the actual data associated with this entry in the ^DD"
^DD(8991.21121,1,21,2,0)="global."
^DD(8991.21121,1,"DT")="2910809"
^DD(8991.21121,"B","DD( GLOBAL DATA",1)=""
^DD(8991.21121,"B","DD( GLOBAL NODE",.02)=""
^DD(8991.21121,"B","NULL",.01)=""
^DD(8991.21121,"GL",0,1,.01)=""
^DD(8991.21121,"GL",0,2,.02)=""
^DD(8991.21121,"GL",1,"E1,245",1)=""
^DD(8991.212,0)="NAMESPACE SUB-FIELD^^.01^1"
^DD(8991.212,0,"IX","B",8991.212,.01)=""
^DD(8991.212,0,"NM","NAMESPACE")=""
^DD(8991.212,0,"UP")="8991.21"
^DD(8991.212,.01,0)="NAMESPACE^MF^^0;1^K:$L(X)>4!($L(X)<1) X"
^DD(8991.212,.01,1,0)="^.1"
^DD(8991.212,.01,1,1,0)="8991.212^B"
^DD(8991.212,.01,1,1,1)="S ^XTV(8991.2,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8991.212,.01,1,1,2)="K ^XTV(8991.2,DA(2),1,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8991.212,.01,3)="This is a valid namespace identified for this package"
^DD(8991.212,.01,21,0)="^^2^2^2930402^"
^DD(8991.212,.01,21,1,0)="This is one of the namespaces associated with this XTV VERIFICATION"
^DD(8991.212,.01,21,2,0)="PACKAGE."
^DD(8991.212,"B","NAMESPACE",.01)=""
^DD(8991.212,"GL",0,1,.01)=""
^DD(8991.212,"IX",.01)=""
^DD(8991.311,0)="DIC( ZERO ENTRIES SUB-FIELD^^1^3"
^DD(8991.311,0,"DT")="2910809"
^DD(8991.311,0,"IX","B",8991.311,.01)=""
^DD(8991.311,0,"NM","DIC( ZERO ENTRIES")=""
^DD(8991.311,0,"UP")="8991.211"
^DD(8991.311,.01,0)="GLOBAL NODE^MF^^0;1^K:$L(X)>60!($L(X)<1) X"
^DD(8991.311,.01,1,0)="^.1^^0"
^DD(8991.311,.01,1,1,0)="8991.311^B"
^DD(8991.311,.01,1,1,1)="S ^XTV(8991.2,DA(3),1,DA(2),1,DA(1),""C"",""B"",$E(X,1,30),DA)="""""
^DD(8991.311,.01,1,1,2)="K ^XTV(8991.2,DA(3),1,DA(2),1,DA(1),""C"",""B"",$E(X,1,30),DA)"
^DD(8991.311,.01,3)="Answer must be 1-60 characters in length."
^DD(8991.311,.01,21,0)="^^1^1^2930402^^"
^DD(8991.311,.01,21,1,0)="This is the global node for the ^DIC(fn,0, nodes associated with the file."
^DD(8991.311,.01,"DT")="2910809"
^DD(8991.311,.02,0)="GLOBAL NODE^FO^^0;2^K:$L(X)>180!($L(X)<1) X"
^DD(8991.311,.02,2)="S Y(0)=Y S Y=""^""_Y"
^DD(8991.311,.02,2.1)="S Y=""^""_Y"
^DD(8991.311,.02,3)="Answer must be 1-180 characters in length."
^DD(8991.311,.02,21,0)="^^1^1^2930402^^"
^DD(8991.311,.02,21,1,0)="This is also associated with the global node identity."
^DD(8991.311,.02,"DT")="2910809"
^DD(8991.311,1,0)="DATA FOR GLOBAL NODE^F^^1;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(8991.311,1,3)="These are the data elements for the global node"
^DD(8991.311,1,21,0)="^^1^1^2930402^^"
^DD(8991.311,1,21,1,0)="This field contains the data associated with this global node."
^DD(8991.311,"B","DATA FOR GLOBAL NODE",1)=""
^DD(8991.311,"B","GLOBAL NODE",.01)=""
^DD(8991.311,"B","GLOBAL NODE",.02)=""
^DD(8991.311,"GL",0,1,.01)=""
^DD(8991.311,"GL",0,2,.02)=""
^DD(8991.311,"GL",1,"E1,245",1)=""
^DD(8991.311,"IX",.01)=""
^DD(8991.5,0)="FIELD^^1^5"
^DD(8991.5,0,"DT")="2930726"
^DD(8991.5,0,"IX","B",8991.5,.01)=""
^DD(8991.5,0,"IX","ERR",8991.5,.03)=""
^DD(8991.5,0,"IX","OPTS",8991.5,.04)=""
^DD(8991.5,0,"IX","ROU",8991.5,.02)=""
^DD(8991.5,0,"NM","XQAB ERRORS LOGGED")=""
^DD(8991.5,0,"VR")="8.0"
^DD(8991.5,0,"VRPK")="KERNEL PUBLIC DOMAIN"
^DD(8991.5,.01,0)="NAME^RF^^0;1^K:$L(X)>90!($L(X)<3) X"
^DD(8991.5,.01,1,0)="^.1"
^DD(8991.5,.01,1,1,0)="8991.5^B"
^DD(8991.5,.01,1,1,1)="S ^XTV(8991.5,""B"",$E(X,1,30),DA)="""""
^DD(8991.5,.01,1,1,2)="K ^XTV(8991.5,""B"",$E(X,1,30),DA)"
^DD(8991.5,.01,3)="This NAME is composed of the first 30 characters of the error text (field .03), a semi-colon (;), and the first 30 characters of the option in use (field .04)"
^DD(8991.5,.01,"DT")="2930726"
^DD(8991.5,.02,0)="ROUTINE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X"
^DD(8991.5,.02,1,0)="^.1"
^DD(8991.5,.02,1,1,0)="8991.5^ROU"
^DD(8991.5,.02,1,1,1)="S ^XTV(8991.5,""ROU"",$E(X,1,30),DA)="""""
^DD(8991.5,.02,1,1,2)="K ^XTV(8991.5,""ROU"",$E(X,1,30),DA)"
^DD(8991.5,.02,1,1,"DT")="2910926"
^DD(8991.5,.02,3)="Answer must be 2-10 characters in length."
^DD(8991.5,.02,"DT")="2910926"
^DD(8991.5,.03,0)="ERROR TEXT^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<1) X"
^DD(8991.5,.03,1,0)="^.1"
^DD(8991.5,.03,1,1,0)="8991.5^ERR"
^DD(8991.5,.03,1,1,1)="S ^XTV(8991.5,""ERR"",$E(X,1,30),DA)="""""
^DD(8991.5,.03,1,1,2)="K ^XTV(8991.5,""ERR"",$E(X,1,30),DA)"
^DD(8991.5,.03,1,1,"%D",0)="^^3^3^2930726^"
^DD(8991.5,.03,1,1,"%D",1,0)=" "
^DD(8991.5,.03,1,1,"%D",2,0)="This cross-reference is used to look-up and sort based on the error text"
^DD(8991.5,.03,1,1,"%D",3,0)="associated with this logged error."
^DD(8991.5,.03,1,1,"DT")="2930726"
^DD(8991.5,.03,3)="This field contains the beginning text of the error messages $ZE"
^DD(8991.5,.03,"DT")="2930726"
^DD(8991.5,.04,0)="OPTION IN USE^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(8991.5,.04,1,0)="^.1"
^DD(8991.5,.04,1,1,0)="8991.5^OPTS"
^DD(8991.5,.04,1,1,1)="S ^XTV(8991.5,""OPTS"",$E(X,1,30),DA)="""""
^DD(8991.5,.04,1,1,2)="K ^XTV(8991.5,""OPTS"",$E(X,1,30),DA)"
^DD(8991.5,.04,1,1,"%D",0)="^^3^3^2930726^"
^DD(8991.5,.04,1,1,"%D",1,0)=" "
^DD(8991.5,.04,1,1,"%D",2,0)="This cross-reference is used to permit look-up and sorting rapidly on the"
^DD(8991.5,.04,1,1,"%D",3,0)="basis of the option in use at the time the error was logged."
^DD(8991.5,.04,1,1,"DT")="2930726"
^DD(8991.5,.04,3)="This field contains the option in use at the time the error was logged, if it could be determined."
^DD(8991.5,.04,"DT")="2930726"
^DD(8991.5,1,0)="DATE OF ERROR^8991.51DA^^1;0"
^DD(8991.5,"B","DATE OF ERROR",1)=""
^DD(8991.5,"B","ERROR TEXT",.03)=""
^DD(8991.5,"B","NAME",.01)=""
^DD(8991.5,"B","OPTION IN USE",.04)=""
^DD(8991.5,"B","ROUTINE",.02)=""
^DD(8991.5,"GL",0,1,.01)=""
^DD(8991.5,"GL",0,2,.02)=""
^DD(8991.5,"GL",0,3,.03)=""
^DD(8991.5,"GL",0,4,.04)=""
^DD(8991.5,"GL",1,0,1)=""
^DD(8991.5,"IX",.01)=""
^DD(8991.5,"IX",.02)=""
^DD(8991.5,"IX",.03)=""
^DD(8991.5,"IX",.04)=""
^DD(8991.5,"RQ",.01)=""
^DD(8991.5,"SB",8991.51,1)=""
^DD(8991.51,0)="DATE OF ERROR SUB-FIELD^^1^2"
^DD(8991.51,0,"DT")="2930726"
^DD(8991.51,0,"IX","B",8991.51,.01)=""
^DD(8991.51,0,"NM","DATE OF ERROR")=""
^DD(8991.51,0,"UP")="8991.5"
^DD(8991.51,.01,0)="DATE OF ERROR^MD^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8991.51,.01,1,0)="^.1"
^DD(8991.51,.01,1,1,0)="8991.51^B"
^DD(8991.51,.01,1,1,1)="S ^XTV(8991.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8991.51,.01,1,1,2)="K ^XTV(8991.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8991.51,.01,3)="This is a date on which the error was recorded at least once"
^DD(8991.51,.01,"DT")="2910924"
^DD(8991.51,1,0)="SITE^8991.511A^^1;0"
^DD(8991.51,"B","DATE OF ERROR",.01)=""
^DD(8991.51,"B","SITE",1)=""
^DD(8991.51,"GL",0,1,.01)=""
^DD(8991.51,"GL",1,0,1)=""
^DD(8991.51,"IX",.01)=""
^DD(8991.51,"SB",8991.511,1)=""
^DD(8991.511,0)="SITE SUB-FIELD^^1^3"
^DD(8991.511,0,"DT")="2930726"
^DD(8991.511,0,"IX","B",8991.511,.01)=""
^DD(8991.511,0,"NM","SITE")=""
^DD(8991.511,0,"UP")="8991.51"
^DD(8991.511,.01,0)="SITE^MF^^0;1^K:$L(X)>45!($L(X)<2) X"
^DD(8991.511,.01,1,0)="^.1"
^DD(8991.511,.01,1,1,0)="8991.511^B"
^DD(8991.511,.01,1,1,1)="S ^XTV(8991.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8991.511,.01,1,1,2)="K ^XTV(8991.5,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8991.511,.01,3)="Answer must be 2-45 characters in length."
^DD(8991.511,.01,"DT")="2910924"
^DD(8991.511,.99,0)="NUMBER LOGGED^CJ8,0^^ ; ^X ^DD(8991.511,.99,9.4) S X=Y(8991.511,.99,104) S D0=Y(8991.511,.99,80) S D1=Y(8991.511,.99,81) S D2=Y(8991.511,.99,82) S D3=Y(8991.511,.99,83) S X=$J(X,0,0)"
^DD(8991.511,.99,9)="^"
^DD(8991.511,.99,9.01)="8991.5111^.02"
^DD(8991.511,.99,9.1)="TOTAL(VOL,UCI:NUMBER LOGGED)"
^DD(8991.511,.99,9.2)="S Y(8991.511,.99,80)=$S($D(D0):D0,1:""""),Y(8991.511,.99,81)=$S($D(D1):D1,1:""""),Y(8991.511,.99,82)=$S($D(D2):D2,1:""""),Y(8991.511,.99,83)=$S($D(D3):D3,1:"""")"
^DD(8991.511,.99,9.3)="X ^DD(8991.511,.99,9.2) S Y(8991.511,.99,104)="""""
^DD(8991.511,.99,9.4)="X ^DD(8991.511,.99,9.3) X ""F D3=0:0 S D3=$N(^XTV(8991.5,D0,1,D1,1,D2,1,D3)) Q:D3'>0  S Y(8991.511,.99,104)=Y(8991.511,.99,104)+$S($D(^(D3,0)):$P(^(0),U,2),1:"""""""")"" S D(3)=D3"
^DD(8991.511,1,0)="VOL,UCI^8991.5111A^^1;0"
^DD(8991.511,"B","NUMBER LOGGED",.99)=""
^DD(8991.511,"B","SITE",.01)=""
^DD(8991.511,"B","VOL,UCI",1)=""
^DD(8991.511,"GL",0,1,.01)=""
^DD(8991.511,"GL",1,0,1)=""
^DD(8991.511,"IX",.01)=""
^DD(8991.511,"SB",8991.5111,1)=""
^DD(8991.5111,0)="VOL,UCI SUB-FIELD^^.02^2"
^DD(8991.5111,0,"DT")="2930726"
^DD(8991.5111,0,"IX","B",8991.5111,.01)=""
^DD(8991.5111,0,"NM","VOL,UCI")=""
^DD(8991.5111,0,"UP")="8991.511"
^DD(8991.5111,.01,0)="VOL,UCI^MF^^0;1^K:$L(X)>10!($L(X)<1) X"
^DD(8991.5111,.01,1,0)="^.1"
^DD(8991.5111,.01,1,1,0)="8991.5111^B"
^DD(8991.5111,.01,1,1,1)="S ^XTV(8991.5,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8991.5111,.01,1,1,2)="K ^XTV(8991.5,DA(3),1,DA(2),1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8991.5111,.01,3)="This indicates the volume and uci where the errors were reported from, and is necessary for sites which may not be translating the error log."
^DD(8991.5111,.01,"DT")="2930726"
^DD(8991.5111,.02,0)="NUMBER LOGGED^NJ4,0^^0;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8991.5111,.02,3)="This is the number of this error reported."
^DD(8991.5111,.02,"DT")="2930726"
^DD(8991.5111,"B","NUMBER LOGGED",.02)=""
^DD(8991.5111,"B","VOL,UCI",.01)=""
^DD(8991.5111,"GL",0,1,.01)=""
^DD(8991.5111,"GL",0,2,.02)=""
^DD(8991.5111,"IX",.01)=""
^DD(8992,0)="FIELD^^2^6"
^DD(8992,0,"DT")="3050316"
^DD(8992,0,"IX","AC",8992,.02)=""
^DD(8992,0,"IX","AXQA",8992.01,.02)=""
^DD(8992,0,"IX","AXQAN",8992.01,.02)=""
^DD(8992,0,"IX","B",8992,.01)=""
^DD(8992,0,"NM","ALERT")=""
^DD(8992,0,"VR")="8.0"
^DD(8992,0,"VRPK")="XU"
^DD(8992,.01,0)="RECIPIENT^RP200'XI^VA(200,^0;1^S DINUM=X"
^DD(8992,.01,1,0)="^.1"
^DD(8992,.01,1,1,0)="8992^B"
^DD(8992,.01,1,1,1)="S ^XTV(8992,""B"",$E(X,1,30),DA)="""""
^DD(8992,.01,1,1,2)="K ^XTV(8992,""B"",$E(X,1,30),DA)"
^DD(8992,.01,3)="This is the individual who is to receive the alert"
^DD(8992,.01,"DT")="2941215"
^DD(8992,.02,0)="SURROGATE FOR ALERTS^P200'^VA(200,^0;2^Q"
^DD(8992,.02,1,0)="^.1"
^DD(8992,.02,1,1,0)="8992^AC"
^DD(8992,.02,1,1,1)="S ^XTV(8992,""AC"",$E(X,1,30),DA)="""""
^DD(8992,.02,1,1,2)="K ^XTV(8992,""AC"",$E(X,1,30),DA)"
^DD(8992,.02,1,1,3)="TRACKS WHO A USER IS ACTING AS SURROGATES FOR"
^DD(8992,.02,1,1,"%D",0)="^^2^2^3010702^"
^DD(8992,.02,1,1,"%D",1,0)="This cross-reference is used to be able to rapidly determine which users"
^DD(8992,.02,1,1,"%D",2,0)="a specified user is acting as surrogate for."
^DD(8992,.02,1,1,"DT")="3010702"
^DD(8992,.02,3)="Enter an individual name who will be designated to receive alerts for this user until the specified end date/time or until this surrogate is removed."
^DD(8992,.02,21,0)="^.001^9^9^3020409^^"
^DD(8992,.02,21,1,0)="This field may contain a pointer to the NEW PERSON file who has been"
^DD(8992,.02,21,2,0)="designated as a SURROGATE recipient.  That individual will receive alerts"
^DD(8992,.02,21,3,0)="designated for the current user during the period of time specified by the"
^DD(8992,.02,21,4,0)="entries in SURROGATE START DATE/TIME field [#.03] and the SURROGATE END"
^DD(8992,.02,21,5,0)="DATE/TIME field [#.04] or, if one or both of those fields is not"
^DD(8992,.02,21,6,0)="specified, until the SURROGATE entry is removed.  If the SURROGATE END"
^DD(8992,.02,21,7,0)="DATE/TIME field [#.04] is populated, the SURROGATE data will be removed"
^DD(8992,.02,21,8,0)="automatically the first time an alert is sent to the current USER after"
^DD(8992,.02,21,9,0)="the specified date and time."
^DD(8992,.02,"DT")="3010702"
^DD(8992,.03,0)="SURROGATE START DATE/TIME^D^^0;3^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(8992,.03,3)="Enter the earliest date and time that the SURROGATE should start receiving alerts.  If no date/time is entered, the sending of alerts to the SURROGATE will begin immediately."
^DD(8992,.03,21,0)="^^4^4^2990127^"
^DD(8992,.03,21,1,0)="This field may contain a date and time which will specify when forwarding"
^DD(8992,.03,21,2,0)="of alerts to the SURROGATE specified in field #.02 will begin.  If there"
^DD(8992,.03,21,3,0)="is no entry in this field, and field #.02 is populated, alerts will be"
^DD(8992,.03,21,4,0)="sent to the surrogate immediately."
^DD(8992,.03,"DT")="2990127"
^DD(8992,.04,0)="SURROGATE END DATE/TIME^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(8992,.04,3)="Enter the date and time when alerts should no longer be sent to the SURROGATE.  If no date and time is entered, then the alerts will be sent to the SURROGATE until the SURROGATE entry is removed."
^DD(8992,.04,21,0)="^^5^5^2990127^"
^DD(8992,.04,21,1,0)="This field may contain a date and time.  If data is present, it indicates"
^DD(8992,.04,21,2,0)="the time at which sending of alerts to the individual specified in the"
^DD(8992,.04,21,3,0)="SURROGATE field (#.02) should be terminated.  If no data is present, and"
^DD(8992,.04,21,4,0)="the SURROGATE field is populated, then alerts will be sent to the"
^DD(8992,.04,21,5,0)="SURROGATE until that entry is removed."
^DD(8992,.04,"DT")="2990127"
^DD(8992,1,0)="ALERT DATE/TIME^8992.01DA^^XQA;0"
^DD(8992,2,0)="SURROGATE^8992.02D^^2;0"
^DD(8992,2,21,0)="^^7^7^3041112^"
^DD(8992,2,21,1,0)="This field is a multiple based on the start date/time for a surrogate"
^DD(8992,2,21,2,0)="relationship.  This will permit multiple surrogate relationships to be "
^DD(8992,2,21,3,0)="scheduled."
^DD(8992,2,21,4,0)=" "
^DD(8992,2,21,5,0)="Since a start date/time for the surrogate relationship is required, if "
^DD(8992,2,21,6,0)="the user does not enter one, then the NOW as the current date/time will "
^DD(8992,2,21,7,0)="be used."
^DD(8992,"B","ALERT DATE/TIME",1)=""
^DD(8992,"B","RECIPIENT",.01)=""
^DD(8992,"B","SURROGATE",2)=""
^DD(8992,"B","SURROGATE END DATE/TIME",.04)=""
^DD(8992,"B","SURROGATE FOR ALERTS",.02)=""
^DD(8992,"B","SURROGATE START DATE/TIME",.03)=""
^DD(8992,"GL",0,1,.01)=""
^DD(8992,"GL",0,2,.02)=""
^DD(8992,"GL",0,3,.03)=""
^DD(8992,"GL",0,4,.04)=""
^DD(8992,"GL",2,0,2)=""
^DD(8992,"GL","XQA",0,1)=""
^DD(8992,"IX",.01)=""
^DD(8992,"IX",.02)=""
^DD(8992,"RQ",.01)=""
^DD(8992,"SB",8992.01,1)=""
^DD(8992,"SB",8992.02,2)=""
^DD(8992.01,0)="ALERT DATE/TIME SUB-FIELD^^4^18"
^DD(8992.01,0,"DT")="3011012"
^DD(8992.01,0,"IX","B",8992.01,.01)=""
^DD(8992.01,0,"NM","ALERT DATE/TIME")=""
^DD(8992.01,0,"UP")="8992"
^DD(8992.01,.01,0)="ALERT DATE/TIME^MDI^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.01,.01,1,0)="^.1"
^DD(8992.01,.01,1,1,0)="8992.01^B^MUMPS"
^DD(8992.01,.01,1,1,1)="Q"
^DD(8992.01,.01,1,1,2)="Q"
^DD(8992.01,.01,1,1,3)="This cross-reference will prevent a 'B' cross-reference from being built."
^DD(8992.01,.01,1,1,"DT")="2941214"
^DD(8992.01,.01,3)="This is the date and time that the alert was generated."
^DD(8992.01,.01,21,0)="^^1^1^2930402^"
^DD(8992.01,.01,21,1,0)="This is the date and time when the alert was generated."
^DD(8992.01,.01,"DT")="2941215"
^DD(8992.01,.02,0)="ALERT ID^FI^^0;2^K:$L(X)>50!($L(X)<2) X"
^DD(8992.01,.02,1,0)="^.1"
^DD(8992.01,.02,1,1,0)="8992^AXQA^MUMPS"
^DD(8992.01,.02,1,1,1)="S ^XTV(8992,""AXQA"",X,DA(1),DA)="""""
^DD(8992.01,.02,1,1,2)="K ^XTV(8992,""AXQA"",X,DA(1),DA)"
^DD(8992.01,.02,1,1,"%D",0)="^^5^5^2991001^^^^"
^DD(8992.01,.02,1,1,"%D",1,0)=" "
^DD(8992.01,.02,1,1,"%D",2,0)="This is a cross-reference on the complete XQAID value for this alert,"
^DD(8992.01,.02,1,1,"%D",3,0)="which can be used to identify those individuals who received this particular"
^DD(8992.01,.02,1,1,"%D",4,0)="instance of the alert, and could be used to delete other entries which"
^DD(8992.01,.02,1,1,"%D",5,0)="had received the alert."
^DD(8992.01,.02,1,1,"DT")="2991001"
^DD(8992.01,.02,1,2,0)="8992^AXQAN^MUMPS"
^DD(8992.01,.02,1,2,1)="S ^XTV(8992,""AXQAN"",$P(X,"";""),DA(1),DA)="""""
^DD(8992.01,.02,1,2,2)="K ^XTV(8992,""AXQAN"",$P(X,"";""),DA(1),DA)"
^DD(8992.01,.02,1,2,"%D",0)="^^6^6^2991001^^^^"
^DD(8992.01,.02,1,2,"%D",1,0)=" "
^DD(8992.01,.02,1,2,"%D",2,0)="This cross-reference may be used to identify those users who received the"
^DD(8992.01,.02,1,2,"%D",3,0)="alert with the application package specified XQAID (the first "";""-piece"
^DD(8992.01,.02,1,2,"%D",4,0)="of the complete XQAID value) for those cases in which the full XQAID value"
^DD(8992.01,.02,1,2,"%D",5,0)="may not be known, e.g., an application which was selected by the user"
^DD(8992.01,.02,1,2,"%D",6,0)="without selecting the ALERT ACTION option to process the alert."
^DD(8992.01,.02,1,2,"DT")="2991001"
^DD(8992.01,.02,3)="This is the package identification used to identify this particular alert.  Answer must be 2-50 characters in length."
^DD(8992.01,.02,21,0)="^^4^4^2930402^"
^DD(8992.01,.02,21,1,0)="This is a field in which the package id passed during alert filing.  This"
^DD(8992.01,.02,21,2,0)="id may simply be a package namespace, or it may be a namespace followed by"
^DD(8992.01,.02,21,3,0)="additional data to more accurately identify the type or purpose of the"
^DD(8992.01,.02,21,4,0)="alert."
^DD(8992.01,.02,"DT")="2991110"
^DD(8992.01,.03,0)="MESSAGE TEXT^FI^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(8992.01,.03,3)="This is the text which will be displayed to the user at the time the alert is first shown and when the user selects the alert.nswer must be 3-60 characters in length."
^DD(8992.01,.03,21,0)="^^4^4^2930402^"
^DD(8992.01,.03,21,1,0)="This field contains the text of the message to be presented to the user at"
^DD(8992.01,.03,21,2,0)="the time when he cycles through the menu system the first time after the"
^DD(8992.01,.03,21,3,0)="alert has been filed for the user, and when the user selects the VIEW"
^DD(8992.01,.03,21,4,0)="ALERTS option."
^DD(8992.01,.03,"DT")="2941215"
^DD(8992.01,.04,0)="NEW ALERT FLAG^SI^1:NEW;^0;4^Q"
^DD(8992.01,.04,3)="This flag is set when the alert has not been displayed to the user previously."
^DD(8992.01,.04,21,0)="^^4^4^2930402^"
^DD(8992.01,.04,21,1,0)="This flag is used by the alert processing to indicate a new alert which"
^DD(8992.01,.04,21,2,0)="has not previously been presented to the user.  After the alert message"
^DD(8992.01,.04,21,3,0)="text has been shown to the user, this flag is cleared and the user must"
^DD(8992.01,.04,21,4,0)="then select the VIEW ALERTS option to process the alert."
^DD(8992.01,.04,"DT")="2941215"
^DD(8992.01,.05,0)="ACTION FLAG^SI^D:DELETE;R:RUN ROUTINE;I:IMMEDIATE RUN;^0;5^Q"
^DD(8992.01,.05,3)="This flag indicates how the alert should be processed."
^DD(8992.01,.05,21,0)="^^3^3^2930402^"
^DD(8992.01,.05,21,1,0)="This flag is optional at the present time, since the need for action"
^DD(8992.01,.05,21,2,0)="processing can be determined by the presence of an option name or a"
^DD(8992.01,.05,21,3,0)="routine name for use during alert processing."
^DD(8992.01,.05,"DT")="2941215"
^DD(8992.01,.06,0)="RESERVED1^FI^^0;6^K:$L(X)>60!($L(X)<1) X"
^DD(8992.01,.06,3)="This is a reserved field for future use."
^DD(8992.01,.06,21,0)="^^1^1^2930402^"
^DD(8992.01,.06,21,1,0)="This field is reserved for future use by the alert system."
^DD(8992.01,.06,"DT")="2941215"
^DD(8992.01,.07,0)="ENTRY POINT^FI^^0;7^K:$L(X)>8!($L(X)<1)!'(X?.UN) X"
^DD(8992.01,.07,3)="This is the tag or entry point into the routine if one is used (it may also hold the name of an option).  Answer must be 1-8 characters in length."
^DD(8992.01,.07,21,0)="^^6^6^2930402^"
^DD(8992.01,.07,21,1,0)="While named ENTRY POINT, this is a dual function field.  If the next field"
^DD(8992.01,.07,21,2,0)="(#.08, AROUTINE NAME) contains a routine name, this field contains the"
^DD(8992.01,.07,21,3,0)="desired entry point within that routine (this field may also be null,"
^DD(8992.01,.07,21,4,0)="indicating that the entry point should be at the top of the routine).  If"
^DD(8992.01,.07,21,5,0)="field #.08 is null, then the contents of this field is interpreted as the"
^DD(8992.01,.07,21,6,0)="name of an option which is to be entered when the alert is processed."
^DD(8992.01,.07,"DT")="2941215"
^DD(8992.01,.08,0)="AROUTINE NAME^FI^^0;8^K:$L(X)>8!($L(X)<2)!'(X?1U.UN) X"
^DD(8992.01,.08,3)="This is the routine name to be called when the alert is selected for processing.  Answer must be 2-8 characters in length."
^DD(8992.01,.08,21,0)="^^10^10^2930402^"
^DD(8992.01,.08,21,1,0)="If this field is not null, it contains the name of a routine which is to"
^DD(8992.01,.08,21,2,0)="be used when the alert is processed.  If there is also a value in field"
^DD(8992.01,.08,21,3,0)="#.07, that value is used as an entry point into the routine specified in"
^DD(8992.01,.08,21,4,0)="this field."
^DD(8992.01,.08,21,5,0)=" "
^DD(8992.01,.08,21,6,0)="If this field is null, field #.07 is interpreted as an option name which"
^DD(8992.01,.08,21,7,0)="is to be used when the alert is processed."
^DD(8992.01,.08,21,8,0)=" "
^DD(8992.01,.08,21,9,0)="If both this field and field #.07 are null, the alert is processed as an"
^DD(8992.01,.08,21,10,0)="information only alert."
^DD(8992.01,.08,"DT")="2941215"
^DD(8992.01,.09,0)="RESERVED^FI^^0;9^K:$L(X)>30!($L(X)<2) X"
^DD(8992.01,.09,3)="Answer must be 2-30 characters in length."
^DD(8992.01,.09,21,0)="^^1^1^2930402^"
^DD(8992.01,.09,21,1,0)="This field is reserved for future use in the alert processing system."
^DD(8992.01,.09,"DT")="2941215"
^DD(8992.01,.1,0)="CAN DELETE WITHOUT PROCESSING^S^1:YES;^0;10^Q"
^DD(8992.01,.1,3)="A value in this field indicates that the alert may be deleted by the user without having processed it."
^DD(8992.01,.1,21,0)="^^7^7^2990202^"
^DD(8992.01,.1,21,1,0)="This field was added as a flag to identify alerts which the packages"
^DD(8992.01,.1,21,2,0)="indicate may be deleted by the user without processing the alert.  The"
^DD(8992.01,.1,21,3,0)="value is optional and is passed by the package which generates the alert"
^DD(8992.01,.1,21,4,0)="if they want to give permission for users to be able to delete the alert."
^DD(8992.01,.1,21,5,0)="The flag is checked in the code handling user deletion of alerts.  If an"
^DD(8992.01,.1,21,6,0)="alert involves an action (via an option or routine) it may not be deleted"
^DD(8992.01,.1,21,7,0)="by the user unless this flag is set."
^DD(8992.01,.1,"DT")="2990202"
^DD(8992.01,.13,0)="DAYS FOR SURROGATE^NJ2,0I^^0;13^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8992.01,.13,3)="This is the number of days before the alert is forwarded to the recipient's surrogate(s)."
^DD(8992.01,.13,"DT")="2941215"
^DD(8992.01,.14,0)="DAYS FOR SUPERVISOR^NJ2,0I^^0;14^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8992.01,.14,3)="This is the number of days (1 to 30) to pass before the alert is forwarded to the recipient's supervisor."
^DD(8992.01,.14,"DT")="2941215"
^DD(8992.01,.15,0)="DAYS FOR BACKUP REVIEWER^NJ2,0^^0;15^K:+X'=X!(X>15)!(X<1)!(X?.E1"".""1.N) X"
^DD(8992.01,.15,3)="Enter a number of days (1 to 15) if the alert has not been processed it will be forwarded to the designated BACKUP REVIEWER in the KERNEL SYSTEM PARAMETERS file."
^DD(8992.01,.15,21,0)="^^11^11^3010703^"
^DD(8992.01,.15,21,1,0)="The 'DAYS FOR BACKUP REVIEWER' field contains a number of days, which if"
^DD(8992.01,.15,21,2,0)="exceeded without the alert being processed will cause the alert to be"
^DD(8992.01,.15,21,3,0)="forwarded to the designated 'XQAL BACKUP REVIEWER' in the PARAMETER file"
^DD(8992.01,.15,21,4,0)="with a comment indicating that the alert had not been reviewed by the"
^DD(8992.01,.15,21,5,0)="original recipient."
^DD(8992.01,.15,21,6,0)=" "
^DD(8992.01,.15,21,7,0)="This forwarding option is in addition to the SUPERVISOR (based on entries"
^DD(8992.01,.15,21,8,0)="for CHIEF in the SECTION/SERVICE file) or e-mail surrogates, and was"
^DD(8992.01,.15,21,9,0)="requested by sites to be able to forward unprocessed alerts to a known,"
^DD(8992.01,.15,21,10,0)="interested individual.  This could be someone in Quality Assurance or a"
^DD(8992.01,.15,21,11,0)="specific nurse responsible for handling overdue unprocessed alerts."
^DD(8992.01,.15,"DT")="3010703"
^DD(8992.01,1,0)="DATA FOR ALERT^FI^^1;E1,245^K:$L(X)>245!($L(X)<2) X"
^DD(8992.01,1,3)="This character sequence will be returned to the application when the alert is selected.  Answer must be 2-245 characters in length."
^DD(8992.01,1,21,0)="^^9^9^2930402^"
^DD(8992.01,1,21,1,0)="This field and all following ^-separated fields are processed as a single"
^DD(8992.01,1,21,2,0)="entity and are returned in the variable XQADATA for use by the application"
^DD(8992.01,1,21,3,0)="which generated the alert.  The package may pass a series of variables"
^DD(8992.01,1,21,4,0)="using any desired separator in the variable XQADATA at the time the alert"
^DD(8992.01,1,21,5,0)="is setup.  When the alert is processed the value of XQADATA is returned to"
^DD(8992.01,1,21,6,0)="the application and may be used to establish parameters related to the"
^DD(8992.01,1,21,7,0)="alert without requiring interaction or provision of information by the"
^DD(8992.01,1,21,8,0)="user.  In this way information related to patient entry number, specific"
^DD(8992.01,1,21,9,0)="internal numbers for the desired data, etc may be stored and returned."
^DD(8992.01,1,"DT")="2941215"
^DD(8992.01,2.01,0)="COMMENT FOR DISPLAY^FI^^2;1^K:$L(X)>245!($L(X)<2) X"
^DD(8992.01,2.01,3)="This field is entered during forwarding of an alert to a new recipient."
^DD(8992.01,2.01,"DT")="2941215"
^DD(8992.01,3.01,0)="GUID FOR GUI^F^^3;1^K:$L(X)>38!($L(X)<38) X"
^DD(8992.01,3.01,3)="Answer must be a GUID - 38 characters in length"
^DD(8992.01,3.01,21,0)="^^8^8^3000126^"
^DD(8992.01,3.01,21,1,0)="This field contains a Globally Unique IDentifier (GUID) which is used to"
^DD(8992.01,3.01,21,2,0)="identify the application which should be used in a graphical user"
^DD(8992.01,3.01,21,3,0)="interface environment (windows) to process the alert.  This application"
^DD(8992.01,3.01,21,4,0)="must implement the IVAlert interface.  The GUID should be of the form"
^DD(8992.01,3.01,21,5,0)=" "
^DD(8992.01,3.01,21,6,0)="  {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}"
^DD(8992.01,3.01,21,7,0)=" "
^DD(8992.01,3.01,21,8,0)="where each x is a hexadecimal digit (0 through 9 or A through F)."
^DD(8992.01,3.01,"DT")="3000126"
^DD(8992.01,3.02,0)="PATIENT^P2'^DPT(^3;2^Q"
^DD(8992.01,3.02,3)="If this is a PATIENT-related alert, this field identifies the PATIENT associated with the alert."
^DD(8992.01,3.02,21,0)="^^2^2^3011012^"
^DD(8992.01,3.02,21,1,0)="This field is a pointer value to the PATIENT file, if the alert is"
^DD(8992.01,3.02,21,2,0)="patient related.  It is not a required field for non-patient related alerts."
^DD(8992.01,3.02,"DT")="3011012"
^DD(8992.01,4,0)="LONG INFO TEXT^8992.04^^4;0"
^DD(8992.01,"B","ACTION FLAG",.05)=""
^DD(8992.01,"B","ALERT DATE/TIME",.01)=""
^DD(8992.01,"B","ALERT ID",.02)=""
^DD(8992.01,"B","AROUTINE NAME",.08)=""
^DD(8992.01,"B","CAN DELETE WITHOUT PROCESSING",.1)=""
^DD(8992.01,"B","COMMENT FOR DISPLAY",2.01)=""
^DD(8992.01,"B","DATA FOR ALERT",1)=""
^DD(8992.01,"B","DAYS FOR BACKUP REVIEWER",.15)=""
^DD(8992.01,"B","DAYS FOR SUPERVISOR",.14)=""
^DD(8992.01,"B","DAYS FOR SURROGATE",.13)=""
^DD(8992.01,"B","ENTRY POINT",.07)=""
^DD(8992.01,"B","GUID FOR GUI",3.01)=""
^DD(8992.01,"B","LONG INFO TEXT",4)=""
^DD(8992.01,"B","MESSAGE TEXT",.03)=""
^DD(8992.01,"B","NEW ALERT FLAG",.04)=""
^DD(8992.01,"B","PATIENT",3.02)=""
^DD(8992.01,"B","RESERVED",.09)=""
^DD(8992.01,"B","RESERVED1",.06)=""
^DD(8992.01,"GL",0,1,.01)=""
^DD(8992.01,"GL",0,2,.02)=""
^DD(8992.01,"GL",0,3,.03)=""
^DD(8992.01,"GL",0,4,.04)=""
^DD(8992.01,"GL",0,5,.05)=""
^DD(8992.01,"GL",0,6,.06)=""
^DD(8992.01,"GL",0,7,.07)=""
^DD(8992.01,"GL",0,8,.08)=""
^DD(8992.01,"GL",0,9,.09)=""
^DD(8992.01,"GL",0,10,.1)=""
^DD(8992.01,"GL",0,13,.13)=""
^DD(8992.01,"GL",0,14,.14)=""
^DD(8992.01,"GL",0,15,.15)=""
^DD(8992.01,"GL",1,"E1,245",1)=""
^DD(8992.01,"GL",2,1,2.01)=""
^DD(8992.01,"GL",3,1,3.01)=""
^DD(8992.01,"GL",3,2,3.02)=""
^DD(8992.01,"GL",4,0,4)=""
^DD(8992.01,"IX",.01)=""
^DD(8992.01,"IX",.02)=""
^DD(8992.01,"SB",8992.04,4)=""
^DD(8992.02,0)="SURROGATE SUB-FIELD^^.04^4"
^DD(8992.02,0,"DT")="3050316"
^DD(8992.02,0,"IX","AC",8992.02,.04)=""
^DD(8992.02,0,"IX","B",8992.02,.01)=""
^DD(8992.02,0,"NM","SURROGATE")=""
^DD(8992.02,0,"UP")="8992"
^DD(8992.02,.01,0)="SURROGATE START DATE/TIME^MRD^^0;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.02,.01,1,0)="^.1"
^DD(8992.02,.01,1,1,0)="8992.02^B"
^DD(8992.02,.01,1,1,1)="S ^XTV(8992,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8992.02,.01,1,1,2)="K ^XTV(8992,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8992.02,.01,3)="This is the START DATE/TIME for the surrogate"
^DD(8992.02,.01,21,0)="^^1^1^3041112^"
^DD(8992.02,.01,21,1,0)="This is the starting date and time for a surrogate relationship."
^DD(8992.02,.01,"DT")="3041112"
^DD(8992.02,.02,0)="SURROGATE USER^RP200'^VA(200,^0;2^Q"
^DD(8992.02,.02,3)="This is the user who will be the surrogate during the time period specified"
^DD(8992.02,.02,21,0)="^^2^2^3041112^"
^DD(8992.02,.02,21,1,0)="This is a pointer to the user in the NEW PERSON file who will be acting "
^DD(8992.02,.02,21,2,0)="as the surrogate for the time period specified."
^DD(8992.02,.02,"DT")="3041112"
^DD(8992.02,.03,0)="END DATE TIME^D^^0;3^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.02,.03,3)="This is an optional date/time for when the surrogate relationship will be terminated."
^DD(8992.02,.03,21,0)="^^3^3^3041112^"
^DD(8992.02,.03,21,1,0)="This is an optional date/time for when the surrogate relationship will be "
^DD(8992.02,.03,21,2,0)="terminated.  If there is no value entered, then the relationship will "
^DD(8992.02,.03,21,3,0)="continue until it is specifically terminated."
^DD(8992.02,.03,"DT")="3041112"
^DD(8992.02,.04,0)="NEEDS RETURN^S^1:YES;0:NO;^0;4^Q"
^DD(8992.02,.04,1,0)="^.1"
^DD(8992.02,.04,1,1,0)="8992.02^AC"
^DD(8992.02,.04,1,1,1)="S ^XTV(8992,DA(1),2,""AC"",$E(X,1,30),DA)="""""
^DD(8992.02,.04,1,1,2)="K ^XTV(8992,DA(1),2,""AC"",$E(X,1,30),DA)"
^DD(8992.02,.04,1,1,3)="This x-ref is used to track alerts needing return from surrogates"
^DD(8992.02,.04,1,1,"%D",0)="^^2^2^3050316^"
^DD(8992.02,.04,1,1,"%D",1,0)="This cross reference is used to identify periods for which any alerts "
^DD(8992.02,.04,1,1,"%D",2,0)="forwarded to a surrogate have not been returned to the intended recipient."
^DD(8992.02,.04,1,1,"DT")="3050316"
^DD(8992.02,.04,3)="This is a flag which is used to determine whether alerts have been returned to the intended recipient or not"
^DD(8992.02,.04,21,0)="^^2^2^3050316^"
^DD(8992.02,.04,21,1,0)="This field is used as a flag to indicate whether the alerts have been "
^DD(8992.02,.04,21,2,0)="returned to the intended recipient or not."
^DD(8992.02,.04,"DT")="3050316"
^DD(8992.02,"B","END DATE TIME",.03)=""
^DD(8992.02,"B","NEEDS RETURN",.04)=""
^DD(8992.02,"B","SURROGATE START DATE/TIME",.01)=""
^DD(8992.02,"B","SURROGATE USER",.02)=""
^DD(8992.02,"GL",0,1,.01)=""
^DD(8992.02,"GL",0,2,.02)=""
^DD(8992.02,"GL",0,3,.03)=""
^DD(8992.02,"GL",0,4,.04)=""
^DD(8992.02,"IX",.01)=""
^DD(8992.02,"IX",.04)=""
^DD(8992.02,"RQ",.01)=""
^DD(8992.02,"RQ",.02)=""
^DD(8992.04,0)="LONG INFO TEXT SUB-FIELD^^.01^1"
^DD(8992.04,0,"DT")="3000126"
^DD(8992.04,0,"NM","LONG INFO TEXT")=""
^DD(8992.04,0,"UP")="8992.01"
^DD(8992.04,.01,0)="LONG INFO TEXT^W^^0;1"
^DD(8992.04,.01,3)="This field is used to enter multiple lines of text for a longer INFO only alert"
^DD(8992.04,.01,"DT")="3000126"
^DD(8992.04,"B","LONG INFO TEXT",.01)=""
^DD(8992.04,"GL",0,1,.01)=""
^DD(8992.1,0)="FIELD^^20^16"
^DD(8992.1,0,"DT")="3050316"
^DD(8992.1,0,"IX","AUD",8992.111,.04)=""
^DD(8992.1,0,"IX","B",8992.1,.01)=""
^DD(8992.1,0,"IX","C",8992.1,.04)=""
^DD(8992.1,0,"IX","D",8992.1,.02)=""
^DD(8992.1,0,"IX","PKGID",8992.1,.03)=""
^DD(8992.1,0,"IX","R",8992.11,.01)=""
^DD(8992.1,0,"NM","ALERT TRACKING")=""
^DD(8992.1,0,"VR")="8.0"
^DD(8992.1,0,"VRPK")="XU"
^DD(8992.1,.01,0)="NAME^RFI^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(8992.1,.01,1,0)="^.1"
^DD(8992.1,.01,1,1,0)="8992.1^B"
^DD(8992.1,.01,1,1,1)="S ^XTV(8992.1,""B"",$E(X,1,50),DA)="""""
^DD(8992.1,.01,1,1,2)="K ^XTV(8992.1,""B"",$E(X,1,50),DA)"
^DD(8992.1,.01,3)="Answer must be 3-50 characters in length."
^DD(8992.1,.01,"DT")="2941215"
^DD(8992.1,.02,0)="DATE CREATED^DI^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.1,.02,1,0)="^.1"
^DD(8992.1,.02,1,1,0)="8992.1^D"
^DD(8992.1,.02,1,1,1)="S ^XTV(8992.1,""D"",$E(X,1,30),DA)="""""
^DD(8992.1,.02,1,1,2)="K ^XTV(8992.1,""D"",$E(X,1,30),DA)"
^DD(8992.1,.02,1,1,"DT")="2940707"
^DD(8992.1,.02,3)="This is the date and time that the alert was created."
^DD(8992.1,.02,"DT")="2941215"
^DD(8992.1,.03,0)="PKG ID^FI^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(8992.1,.03,1,0)="^.1"
^DD(8992.1,.03,1,1,0)="8992.1^PKGID"
^DD(8992.1,.03,1,1,1)="S ^XTV(8992.1,""PKGID"",$E(X,1,30),DA)="""""
^DD(8992.1,.03,1,1,2)="K ^XTV(8992.1,""PKGID"",$E(X,1,30),DA)"
^DD(8992.1,.03,1,1,"DT")="2940707"
^DD(8992.1,.03,3)="Answer must be 1-30 characters in length"
^DD(8992.1,.03,"DT")="2991110"
^DD(8992.1,.04,0)="PATIENT^P2'I^DPT(^0;4^Q"
^DD(8992.1,.04,1,0)="^.1"
^DD(8992.1,.04,1,1,0)="8992.1^C"
^DD(8992.1,.04,1,1,1)="S ^XTV(8992.1,""C"",$E(X,1,30),DA)="""""
^DD(8992.1,.04,1,1,2)="K ^XTV(8992.1,""C"",$E(X,1,30),DA)"
^DD(8992.1,.04,1,1,"DT")="2940707"
^DD(8992.1,.04,3)="This is the patient which is indicated by the alert."
^DD(8992.1,.04,"DT")="2941215"
^DD(8992.1,.05,0)="GENERATED BY^P200'I^VA(200,^0;5^Q"
^DD(8992.1,.05,3)="This is the individual who generated the alert"
^DD(8992.1,.05,"DT")="2941215"
^DD(8992.1,.06,0)="GENERATED WHILE QUEUED^SI^1:YES;^0;6^Q"
^DD(8992.1,.06,3)="This field is used to indicate alerts which were generated by queued jobs."
^DD(8992.1,.06,"DT")="2941215"
^DD(8992.1,.07,0)="STATUS^SI^U:UNREAD-REMOVED BY DATE;C:COMPLETELY READ;P:PARTIALLY READ - REMOVED;^0;7^Q"
^DD(8992.1,.07,3)="This field is used to indicate the status of the alert"
^DD(8992.1,.07,"DT")="2941215"
^DD(8992.1,.08,0)="RETENTION DATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.1,.08,21,0)="^^3^3^2980209^"
^DD(8992.1,.08,21,1,0)="This field is used to set a retention date that will prevent the "
^DD(8992.1,.08,21,2,0)="deletion of the alert by the ""Delete old (>14 day) Alerts"" option"
^DD(8992.1,.08,21,3,0)="until this date."
^DD(8992.1,.08,"DT")="2980209"
^DD(8992.1,1.01,0)="DISPLAY TEXT^FI^^1;1^K:$L(X)>70!($L(X)<2) X"
^DD(8992.1,1.01,3)="This is the text displayed for the alert"
^DD(8992.1,1.01,"DT")="2941215"
^DD(8992.1,1.02,0)="OPTION FOR PROCESSING^FI^^1;2^K:$L(X)>60!($L(X)<1) X"
^DD(8992.1,1.02,3)="This is the option which the alert jumps to when the alert is selected for processing"
^DD(8992.1,1.02,"DT")="2941215"
^DD(8992.1,1.03,0)="ROUTINE TAG^FI^^1;3^K:$L(X)>8!($L(X)<1) X"
^DD(8992.1,1.03,3)="This is the tag indicated for the routine specified for use when the alert is selected."
^DD(8992.1,1.03,"DT")="2941215"
^DD(8992.1,1.04,0)="ROUTINE FOR PROCESSING^FI^^1;4^K:$L(X)>30!($L(X)<2) X"
^DD(8992.1,1.04,3)="This is the routine to be invoked when the alert is selected (if a value exists for TAG, then entry will be at the indicated TAG within the routine)."
^DD(8992.1,1.04,"DT")="2941215"
^DD(8992.1,2,0)="DATA FOR PROCESSING^FI^^2;E1,245^K:$L(X)>245!($L(X)<1) X"
^DD(8992.1,2,3)="This is a string of data elements, which may be separated by any desired character, which will be returned to the application when the alert is selected for processing."
^DD(8992.1,2,"DT")="2941215"
^DD(8992.1,3.01,0)="GUID FOR GUI^F^^3;1^K:$L(X)>38!($L(X)<38) X"
^DD(8992.1,3.01,3)="Answer must be a 38 character GUID {.......}"
^DD(8992.1,3.01,21,0)="^^8^8^3010703^"
^DD(8992.1,3.01,21,1,0)="This field contains a Globally Unique IDentifier (GUID) which is used to"
^DD(8992.1,3.01,21,2,0)="identify the application which should be used in a graphical user"
^DD(8992.1,3.01,21,3,0)="interface environment (windows) to process the alert.  This application"
^DD(8992.1,3.01,21,4,0)="must implement the IVAlert interface.  The GUID should be of the form"
^DD(8992.1,3.01,21,5,0)=" "
^DD(8992.1,3.01,21,6,0)="  {xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx}"
^DD(8992.1,3.01,21,7,0)=" "
^DD(8992.1,3.01,21,8,0)="where each x is a hexadecimal digit (0 through 9 or A through F)."
^DD(8992.1,3.01,"DT")="3010703"
^DD(8992.1,4,0)="LONG INFO TEXT^8992.14^^4;0"
^DD(8992.1,20,0)="RECIPIENT^8992.11PA^^20;0"
^DD(8992.1,20,"DT")="2980526"
^DD(8992.1,"B","DATA FOR PROCESSING",2)=""
^DD(8992.1,"B","DATE CREATED",.02)=""
^DD(8992.1,"B","DISPLAY TEXT",1.01)=""
^DD(8992.1,"B","GENERATED BY",.05)=""
^DD(8992.1,"B","GENERATED WHILE QUEUED",.06)=""
^DD(8992.1,"B","GUID FOR GUI",3.01)=""
^DD(8992.1,"B","LONG INFO TEXT",4)=""
^DD(8992.1,"B","NAME",.01)=""
^DD(8992.1,"B","OPTION FOR PROCESSING",1.02)=""
^DD(8992.1,"B","PATIENT",.04)=""
^DD(8992.1,"B","PKG ID",.03)=""
^DD(8992.1,"B","RECIPIENT",20)=""
^DD(8992.1,"B","RETENTION DATE",.08)=""
^DD(8992.1,"B","ROUTINE FOR PROCESSING",1.04)=""
^DD(8992.1,"B","ROUTINE TAG",1.03)=""
^DD(8992.1,"B","STATUS",.07)=""
^DD(8992.1,"GL",0,1,.01)=""
^DD(8992.1,"GL",0,2,.02)=""
^DD(8992.1,"GL",0,3,.03)=""
^DD(8992.1,"GL",0,4,.04)=""
^DD(8992.1,"GL",0,5,.05)=""
^DD(8992.1,"GL",0,6,.06)=""
^DD(8992.1,"GL",0,7,.07)=""
^DD(8992.1,"GL",0,8,.08)=""
^DD(8992.1,"GL",1,1,1.01)=""
^DD(8992.1,"GL",1,2,1.02)=""
^DD(8992.1,"GL",1,3,1.03)=""
^DD(8992.1,"GL",1,4,1.04)=""
^DD(8992.1,"GL",2,"E1,245",2)=""
^DD(8992.1,"GL",3,1,3.01)=""
^DD(8992.1,"GL",4,0,4)=""
^DD(8992.1,"GL",20,0,20)=""
^DD(8992.1,"IX",.01)=""
^DD(8992.1,"IX",.02)=""
^DD(8992.1,"IX",.03)=""
^DD(8992.1,"IX",.04)=""
^DD(8992.1,"RQ",.01)=""
^DD(8992.1,"SB",8992.11,20)=""
^DD(8992.1,"SB",8992.14,4)=""
^DD(8992.11,0)="RECIPIENT SUB-FIELD^^3^12"
^DD(8992.11,0,"DT")="3050316"
^DD(8992.11,0,"IX","B",8992.11,.01)=""
^DD(8992.11,0,"NM","RECIPIENT")=""
^DD(8992.11,0,"UP")="8992.1"
^DD(8992.11,.01,0)="RECIPIENT^MP200'I^VA(200,^0;1^Q"
^DD(8992.11,.01,1,0)="^.1"
^DD(8992.11,.01,1,1,0)="8992.11^B"
^DD(8992.11,.01,1,1,1)="S ^XTV(8992.1,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(8992.11,.01,1,1,2)="K ^XTV(8992.1,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(8992.11,.01,1,2,0)="8992.1^R"
^DD(8992.11,.01,1,2,1)="S ^XTV(8992.1,""R"",$E(X,1,30),DA(1),DA)="""""
^DD(8992.11,.01,1,2,2)="K ^XTV(8992.1,""R"",$E(X,1,30),DA(1),DA)"
^DD(8992.11,.01,1,2,"DT")="2940707"
^DD(8992.11,.01,3)="The entry was specified as a receipient of the alert."
^DD(8992.11,.01,"DT")="2980526"
^DD(8992.11,.02,0)="ALERT FIRST DISPLAYED^DI^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.11,.02,3)="This is the date and time that the alert was first displayed to the user (during a menu cycle)."
^DD(8992.11,.02,"DT")="2941215"
^DD(8992.11,.03,0)="FIRST SELECTED ALERT^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.11,.03,3)="This field indicates when the alert was first selected for processing within the VIEW ALERTS option."
^DD(8992.11,.03,"DT")="2940707"
^DD(8992.11,.04,0)="PROCESSED ALERT^DI^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.11,.04,3)="This indicates when the processing of the alert was completed, as indicated by the kill flag not being cleared on return."
^DD(8992.11,.04,"DT")="2941215"
^DD(8992.11,.05,0)="DELETED ON^DI^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.11,.05,3)="This is the date and time that the alert was deleted for this user."
^DD(8992.11,.05,"DT")="2941215"
^DD(8992.11,.06,0)="AUTO DELETED^DI^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.11,.06,3)="This is the date and time that the alert was deleted automatically due to the age of the alert."
^DD(8992.11,.06,"DT")="2941215"
^DD(8992.11,.07,0)="FORWARDED BY^P200'I^VA(200,^0;7^Q"
^DD(8992.11,.07,3)="This is the user who forwarded the alert to the recipient"
^DD(8992.11,.07,"DT")="2941215"
^DD(8992.11,.08,0)="DATE/TIME FORWARDED^DI^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.11,.08,3)="This is the date and time that the alert was forwarded to the recipient."
^DD(8992.11,.08,"DT")="2941215"
^DD(8992.11,.09,0)="DELETED BY USER^P200'^VA(200,^0;9^Q"
^DD(8992.11,.09,3)="This field is filled in automatically when an alert is deleted for the user, if it was deleted by a user as opposed to deleted during processing."
^DD(8992.11,.09,21,0)="^^5^5^2990203^"
^DD(8992.11,.09,21,1,0)="The 'USER DELETED BY' field is poplulated if the alert is deleted for the"
^DD(8992.11,.09,21,2,0)="current user by someone (either the user or another person from IRM or an"
^DD(8992.11,.09,21,3,0)="ADPAC, etc.) with a delete option as opposed to deletion as a part of the"
^DD(8992.11,.09,21,4,0)="processing of the alert.  The field points to the user who selected the"
^DD(8992.11,.09,21,5,0)="delete option resulting in deletion of the alert prior to its processing."
^DD(8992.11,.09,"DT")="2990219"
^DD(8992.11,1,0)="RECIPIENT TYPE^8992.111PA^^1;0"
^DD(8992.11,2,0)="FORWARDED DATE/TIME^8992.112D^^2;0"
^DD(8992.11,2,"DT")="3030221"
^DD(8992.11,3,0)="SURROGATE FOR^8992.113P^^3;0"
^DD(8992.11,"B","ALERT FIRST DISPLAYED",.02)=""
^DD(8992.11,"B","AUTO DELETED",.06)=""
^DD(8992.11,"B","DATE/TIME FORWARDED",.08)=""
^DD(8992.11,"B","DELETED BY USER",.09)=""
^DD(8992.11,"B","DELETED ON",.05)=""
^DD(8992.11,"B","FIRST SELECTED ALERT",.03)=""
^DD(8992.11,"B","FORWARDED BY",.07)=""
^DD(8992.11,"B","FORWARDED DATE/TIME",2)=""
^DD(8992.11,"B","PROCESSED ALERT",.04)=""
^DD(8992.11,"B","RECIPIENT",.01)=""
^DD(8992.11,"B","RECIPIENT TYPE",1)=""
^DD(8992.11,"B","SURROGATE FOR",3)=""
^DD(8992.11,"GL",0,1,.01)=""
^DD(8992.11,"GL",0,2,.02)=""
^DD(8992.11,"GL",0,3,.03)=""
^DD(8992.11,"GL",0,4,.04)=""
^DD(8992.11,"GL",0,5,.05)=""
^DD(8992.11,"GL",0,6,.06)=""
^DD(8992.11,"GL",0,7,.07)=""
^DD(8992.11,"GL",0,8,.08)=""
^DD(8992.11,"GL",0,9,.09)=""
^DD(8992.11,"GL",1,0,1)=""
^DD(8992.11,"GL",2,0,2)=""
^DD(8992.11,"GL",3,0,3)=""
^DD(8992.11,"IX",.01)=""
^DD(8992.11,"SB",8992.111,1)=""
^DD(8992.11,"SB",8992.112,2)=""
^DD(8992.11,"SB",8992.113,3)=""
^DD(8992.111,0)="RECIPIENT TYPE SUB-FIELD^^.04^4"
^DD(8992.111,0,"DT")="3031020"
^DD(8992.111,0,"IX","B",8992.111,.01)=""
^DD(8992.111,0,"NM","RECIPIENT TYPE")=""
^DD(8992.111,0,"UP")="8992.11"
^DD(8992.111,.01,0)="RECIPIENT TYPE^RP8992.2^XTV(8992.2,^0;1^Q"
^DD(8992.111,.01,1,0)="^.1"
^DD(8992.111,.01,1,1,0)="8992.111^B"
^DD(8992.111,.01,1,1,1)="S ^XTV(8992.1,DA(2),20,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8992.111,.01,1,1,2)="K ^XTV(8992.1,DA(2),20,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8992.111,.01,3)="This is a pointer to a file of different recipient types (i.e., the reason someone was sent the alert)"
^DD(8992.111,.01,21,0)="^^24^24^3031020^"
^DD(8992.111,.01,21,1,0)="This field is used to track how a specific recipient was selected for "
^DD(8992.111,.01,21,2,0)="receiving the alert. The initial recipients are those to whom the alert"
^DD(8992.111,.01,21,3,0)="was initially directed (INITIAL RECIPIENT).  Other recipients may be the"
^DD(8992.111,.01,21,4,0)="result of forwarding.  Recipients of the alert from forwarding are noted"
^DD(8992.111,.01,21,5,0)="by the type of forwarding involved (FWD BY USER, EMAIL SURROGATE,"
^DD(8992.111,.01,21,6,0)="CHIEF/SUPERVISOR, BACKUP REVIEWER, or LAST HOPE)."
^DD(8992.111,.01,21,7,0)=" "
^DD(8992.111,.01,21,8,0)="Marked as a specific category are those to whom the alert was directed,"
^DD(8992.111,.01,21,9,0)="but who were not available to receive an alert due to lack of access"
^DD(8992.111,.01,21,10,0)="(marked with the suffix ""-UNDELIVERABLE"" added to the basis for the "
^DD(8992.111,.01,21,11,0)="alert being sent to the user)."
^DD(8992.111,.01,21,12,0)=" "
^DD(8992.111,.01,21,13,0)="Those who have alerts forwarded to their surrogate or receive the alert "
^DD(8992.111,.01,21,14,0)="while acting as a surrogate for another user are indicated by entries in "
^DD(8992.111,.01,21,15,0)="fields #.02 (SENT TO SURROGATE) and #.03 (ACTING AS SURROGATE), "
^DD(8992.111,.01,21,16,0)="respectively.  In addition, those who are acting as surrogates are "
^DD(8992.111,.01,21,17,0)="identified in the current field by the suffix ""-SURROGATE"" added to the "
^DD(8992.111,.01,21,18,0)="basis for the alert being received.  Since the recipient may be acting as "
^DD(8992.111,.01,21,19,0)="surrogate for more than one user, the actual users for which the message "
^DD(8992.111,.01,21,20,0)="was sent on a surrogate basis are indicated in the SURROGATE FOR sub-file "
^DD(8992.111,.01,21,21,0)="(#8992.113) under the RECIPIENT sub-file."
^DD(8992.111,.01,21,22,0)=" "
^DD(8992.111,.01,21,23,0)="The values stored for this field are pointers to entries in the ALERT "
^DD(8992.111,.01,21,24,0)="RECIPIENT TYPE file (#8992.2)."
^DD(8992.111,.01,"DT")="3031020"
^DD(8992.111,.02,0)="SENT TO SURROGATE^P200'^VA(200,^0;2^Q"
^DD(8992.111,.02,3)="This is the individual that was sent the alert in a surrogate capacity instead of the originally specified recipient."
^DD(8992.111,.02,21,0)="^^2^2^3030221^"
^DD(8992.111,.02,21,1,0)="This field is used to identify the surrogate to whom the alert"
^DD(8992.111,.02,21,2,0)="was sent instead of this originally specified recipient."
^DD(8992.111,.02,"DT")="3030221"
^DD(8992.111,.03,0)="ACTING AS SURROGATE^S^Y:YES;N:NO;^0;3^Q"
^DD(8992.111,.03,3)="Enter Y (YES) if this recipient received the alert acting as surrogate for another user."
^DD(8992.111,.03,21,0)="^^3^3^3030220^"
^DD(8992.111,.03,21,1,0)="This field is used to identify those recipients who were sent the alert "
^DD(8992.111,.03,21,2,0)="because they were selected as an active surrogate for the originally "
^DD(8992.111,.03,21,3,0)="intended user.  In most cases only the Y (YES) entries will be entered."
^DD(8992.111,.03,"DT")="3030220"
^DD(8992.111,.04,0)="ALERT DATE/TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.111,.04,1,0)="^.1"
^DD(8992.111,.04,1,1,0)="8992.1^AUD^MUMPS"
^DD(8992.111,.04,1,1,1)="N XQALDA1 S XQALDA1=+^XTV(8992.1,DA(2),20,DA(1),0),^XTV(8992.1,""AUD"",XQALDA1,X,DA(2))="""""
^DD(8992.111,.04,1,1,2)="N XQALDA1 S XQALDA1=+^XTV(8992.1,DA(2),20,DA(1),0) K ^XTV(8992.1,""AUD"",XQALDA1,X,DA(2))"
^DD(8992.111,.04,1,1,"DT")="3041028"
^DD(8992.111,.04,3)="This is the date and time the alert was sent/forwarded to the current recipient with this recipient type"
^DD(8992.111,.04,21,0)="^^2^2^3030221^"
^DD(8992.111,.04,21,1,0)="This is the date and time the alert was sent/forwarded to the "
^DD(8992.111,.04,21,2,0)="current recipient with this recipient type"
^DD(8992.111,.04,"DT")="3041028"
^DD(8992.111,"B","ACTING AS SURROGATE",.03)=""
^DD(8992.111,"B","ALERT DATE/TIME",.04)=""
^DD(8992.111,"B","RECIPIENT TYPE",.01)=""
^DD(8992.111,"B","SENT TO SURROGATE",.02)=""
^DD(8992.111,"GL",0,1,.01)=""
^DD(8992.111,"GL",0,2,.02)=""
^DD(8992.111,"GL",0,3,.03)=""
^DD(8992.111,"GL",0,4,.04)=""
^DD(8992.111,"IX",.01)=""
^DD(8992.111,"IX",.04)=""
^DD(8992.111,"RQ",.01)=""
^DD(8992.112,0)="FORWARDED DATE/TIME SUB-FIELD^^1.01^4"
^DD(8992.112,0,"DT")="3031020"
^DD(8992.112,0,"IX","B",8992.112,.01)=""
^DD(8992.112,0,"NM","FORWARDED DATE/TIME")=""
^DD(8992.112,0,"UP")="8992.11"
^DD(8992.112,.01,0)="FORWARDED DATE/TIME^MD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.112,.01,1,0)="^.1"
^DD(8992.112,.01,1,1,0)="8992.112^B"
^DD(8992.112,.01,1,1,1)="S ^XTV(8992.1,DA(2),20,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8992.112,.01,1,1,2)="K ^XTV(8992.1,DA(2),20,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8992.112,.01,3)="This is the date/time that the alert was forwarded to the current recipient"
^DD(8992.112,.01,21,0)="^^5^5^3030221^"
^DD(8992.112,.01,21,1,0)="This field is used to track the date/time of forwarding of the alert to "
^DD(8992.112,.01,21,2,0)="this recipient.  This is a multiple field to track instances in which "
^DD(8992.112,.01,21,3,0)="multiple copies of the alert may be forwarded to a single recipient for"
^DD(8992.112,.01,21,4,0)="various reasons.  This multiple field will indicate when it was forwarded"
^DD(8992.112,.01,21,5,0)="and the basis for forwarding of the alert."
^DD(8992.112,.01,"DT")="3030221"
^DD(8992.112,.02,0)="FORWARDING CATEGORY^P8992.2^XTV(8992.2,^0;2^Q"
^DD(8992.112,.02,3)="This field points to a file containing the different reasons for forwarding."
^DD(8992.112,.02,21,0)="^^8^8^3031020^"
^DD(8992.112,.02,21,1,0)="This field is used to track the basis on which the alert is forwarded to "
^DD(8992.112,.02,21,2,0)="the current recipient.  The alert might be forwarded to the recipient by "
^DD(8992.112,.02,21,3,0)="a user directly, or by programmed forwarding related to alerts not being "
^DD(8992.112,.02,21,4,0)="processed within a specified time to EMAIL SURROGATE, CHIEF/SUPERVISOR; "
^DD(8992.112,.02,21,5,0)="BACKUP REVIEWER, or LAST RESORT."
^DD(8992.112,.02,21,6,0)=" "
^DD(8992.112,.02,21,7,0)="Entries for this field are pointers to the values in the ALERT RECIPIENT "
^DD(8992.112,.02,21,8,0)="TYPE file (#8992.2)."
^DD(8992.112,.02,"DT")="3031020"
^DD(8992.112,.03,0)="FORWARDED BY OR FOR^P200'^VA(200,^0;3^Q"
^DD(8992.112,.03,3)="This is the individual that forwarded the alert, or the alert was forwarded for."
^DD(8992.112,.03,21,0)="^^2^2^3030404^"
^DD(8992.112,.03,21,1,0)="This is a record of the individual who forwarded the alert, or on whose "
^DD(8992.112,.03,21,2,0)="behalf the alert was forwarded if it was forwarded automatically."
^DD(8992.112,.03,"DT")="3030404"
^DD(8992.112,1.01,0)="FORWARDING COMMENT^F^^1;1^K:$L(X)>240!($L(X)<1) X"
^DD(8992.112,1.01,3)="Answer must be 1-240 characters in length."
^DD(8992.112,1.01,21,0)="^^2^2^3030220^"
^DD(8992.112,1.01,21,1,0)="This is the comment which was sent to the recipient along with the "
^DD(8992.112,1.01,21,2,0)="forwarded alert."
^DD(8992.112,1.01,"DT")="3030220"
^DD(8992.112,"B","FORWARDED BY OR FOR",.03)=""
^DD(8992.112,"B","FORWARDED DATE/TIME",.01)=""
^DD(8992.112,"B","FORWARDING CATEGORY",.02)=""
^DD(8992.112,"B","FORWARDING COMMENT",1.01)=""
^DD(8992.112,"GL",0,1,.01)=""
^DD(8992.112,"GL",0,2,.02)=""
^DD(8992.112,"GL",0,3,.03)=""
^DD(8992.112,"GL",1,1,1.01)=""
^DD(8992.112,"IX",.01)=""
^DD(8992.113,0)="SURROGATE FOR SUB-FIELD^^.03^3"
^DD(8992.113,0,"DT")="3050316"
^DD(8992.113,0,"IX","B",8992.113,.01)=""
^DD(8992.113,0,"NM","SURROGATE FOR")=""
^DD(8992.113,0,"UP")="8992.11"
^DD(8992.113,.01,0)="SURROGATE FOR^MP200'^VA(200,^0;1^Q"
^DD(8992.113,.01,1,0)="^.1"
^DD(8992.113,.01,1,1,0)="8992.113^B"
^DD(8992.113,.01,1,1,1)="S ^XTV(8992.1,DA(2),20,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(8992.113,.01,1,1,2)="K ^XTV(8992.1,DA(2),20,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(8992.113,.01,3)="Enter the NEW PERSON entry for which the current recipient is acting as surrogate on this alert."
^DD(8992.113,.01,21,0)="^^2^2^3030220^"
^DD(8992.113,.01,21,1,0)="This field is used to track which user or users the current recipient is "
^DD(8992.113,.01,21,2,0)="receiving the current alert while acting as surrogate."
^DD(8992.113,.01,"DT")="3030220"
^DD(8992.113,.02,0)="DATE/TIME - SURROGATE FOR^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.113,.02,3)="Enter the date/time that this alert was received while acting as a surrogate for the intended recipient."
^DD(8992.113,.02,21,0)="^^3^3^3030220^"
^DD(8992.113,.02,21,1,0)="This field has the date/time when the alert was sent to the current "
^DD(8992.113,.02,21,2,0)="recipient while acting as a surrogate for the originally intended "
^DD(8992.113,.02,21,3,0)="recipient."
^DD(8992.113,.02,"DT")="3030220"
^DD(8992.113,.03,0)="DATE-TIME RETURNED^D^^0;3^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(8992.113,.03,3)="This is the date-time that the alert was returned to the originally intended recipient"
^DD(8992.113,.03,21,0)="^^3^3^3050316^"
^DD(8992.113,.03,21,1,0)="This field is a record for the date-time that an alert for which this "
^DD(8992.113,.03,21,2,0)="recipient was acting as a surrogate was returned to the originally "
^DD(8992.113,.03,21,3,0)="intended recipient of the alert."
^DD(8992.113,.03,"DT")="3050316"
^DD(8992.113,"B","DATE-TIME RETURNED",.03)=""
^DD(8992.113,"B","DATE/TIME - SURROGATE FOR",.02)=""
^DD(8992.113,"B","SURROGATE FOR",.01)=""
^DD(8992.113,"GL",0,1,.01)=""
^DD(8992.113,"GL",0,2,.02)=""
^DD(8992.113,"GL",0,3,.03)=""
^DD(8992.113,"IX",.01)=""
^DD(8992.14,0)="LONG INFO TEXT SUB-FIELD^^.01^1"
^DD(8992.14,0,"DT")="3000329"
^DD(8992.14,0,"NM","LONG INFO TEXT")=""
^DD(8992.14,0,"UP")="8992.1"
^DD(8992.14,.01,0)="LONG INFO TEXT^W^^0;1^Q"
^DD(8992.14,.01,3)="Enter text for an information only alert that should be displayed as word-processing text instead of a single line."
^DD(8992.14,.01,21,0)="^^4^4^3000329^"
^DD(8992.14,.01,21,1,0)="This field is used to present a long information only alert.  It can be"
^DD(8992.14,.01,21,2,0)="any length since it is stored as word processing text.  It is to be"
^DD(8992.14,.01,21,3,0)="displayed in a screen-man window on dumb terminals and in a memo box on"
^DD(8992.14,.01,21,4,0)="windowed systems."
^DD(8992.14,.01,"DT")="3000329"
^DD(8992.14,"B","LONG INFO TEXT",.01)=""
^DD(8992.14,"GL",0,1,.01)=""
^DD(8992.2,0)="FIELD^^.01^1"
^DD(8992.2,0,"DT")="3031017"
^DD(8992.2,0,"IX","B",8992.2,.01)=""
^DD(8992.2,0,"NM","ALERT RECIPIENT TYPE")=""
^DD(8992.2,0,"PT",8992.111,.01)=""
^DD(8992.2,0,"PT",8992.112,.02)=""
^DD(8992.2,0,"VR")="8.0"
^DD(8992.2,0,"VRPK")="XU"
^DD(8992.2,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(8992.2,.01,1,0)="^.1"
^DD(8992.2,.01,1,1,0)="8992.2^B"
^DD(8992.2,.01,1,1,1)="S ^XTV(8992.2,""B"",$E(X,1,30),DA)="""""
^DD(8992.2,.01,1,1,2)="K ^XTV(8992.2,""B"",$E(X,1,30),DA)"
^DD(8992.2,.01,3)="Answer must be 3-45 characters in length."
^DD(8992.2,.01,21,0)="^^2^2^3031017^"
^DD(8992.2,.01,21,1,0)="This file is used to maintain a list of recipient types for alerts.  It "
^DD(8992.2,.01,21,2,0)="is used in tracking for what reason a user was sent an alert."
^DD(8992.2,.01,"DT")="3031017"
^DD(8992.2,"B","NAME",.01)=""
^DD(8992.2,"GL",0,1,.01)=""
^DD(8992.2,"IX",.01)=""
^DD(8992.2,"RQ",.01)=""
^DD(8994,0)="FIELD^^3^14"
^DD(8994,0,"DDA")="N"
^DD(8994,0,"DT")="2970807"
^DD(8994,0,"IX","B",8994,.01)=""
^DD(8994,0,"NM","REMOTE PROCEDURE")=""
^DD(8994,0,"PT",19.05,.01)=""
^DD(8994,0,"PT",101.24,.13)=""
^DD(8994,0,"VR")="1.1"
^DD(8994,0,"VRPK")="RPC BROKER"
^DD(8994,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8994,.01,1,0)="^.1"
^DD(8994,.01,1,1,0)="8994^B"
^DD(8994,.01,1,1,1)="S ^XWB(8994,""B"",$E(X,1,30),DA)="""""
^DD(8994,.01,1,1,2)="K ^XWB(8994,""B"",$E(X,1,30),DA)"
^DD(8994,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8994,.02,0)="TAG^F^^0;2^K:$L(X)>8!($L(X)<1) X"
^DD(8994,.02,3)="Enter the TAG to be used as the entry point for the routine.  Leave this field empty if a TAG is not required."
^DD(8994,.02,"DT")="2941213"
^DD(8994,.03,0)="ROUTINE^RF^^0;3^K:$L(X)>8!($L(X)<3)!'(X?1U1.7UN) X"
^DD(8994,.03,3)="This is the name of the routine used by this API"
^DD(8994,.03,"DT")="2941213"
^DD(8994,.04,0)="RETURN VALUE TYPE^RS^1:SINGLE VALUE;2:ARRAY;3:WORD PROCESSING;4:GLOBAL ARRAY;5:GLOBAL INSTANCE;^0;4^Q"
^DD(8994,.04,3)="Select the appropriate value to indicate what type of value will be returned by the API."
^DD(8994,.04,21,0)="^^49^49^2970904^^^^"
^DD(8994,.04,21,1,0)="This field tells RPC Broker how to process the resulting data from the call."
^DD(8994,.04,21,2,0)=""
^DD(8994,.04,21,3,0)="SINGLE VALUE: Broker will return the value of the return parameter (first"
^DD(8994,.04,21,4,0)="   parameter in the formal list).  For example,"
^DD(8994,.04,21,5,0)="       TAG(RESULT)     ;"
^DD(8994,.04,21,6,0)="               S RESULT=""DOE, JOHN"""
^DD(8994,.04,21,7,0)="               Q"
^DD(8994,.04,21,8,0)=""
^DD(8994,.04,21,9,0)="ARRAY: Using $ORDER Broker will traverse the return parameter (first"
^DD(8994,.04,21,10,0)="   parameter in the formal list), returning all elements of the array."
^DD(8994,.04,21,11,0)="   For example,"
^DD(8994,.04,21,12,0)="       TAG(RESULT)     ;"
^DD(8994,.04,21,13,0)="               S RESULT(1)=""ONE"""
^DD(8994,.04,21,14,0)="               S RESULT(2)=""TWO"""
^DD(8994,.04,21,15,0)="               Q"
^DD(8994,.04,21,16,0)=""
^DD(8994,.04,21,17,0)="WORD PROCESSING: This type is treated exactly the same way as the ARRAY,"
^DD(8994,.04,21,18,0)="   with one exception that the WORD WRAP ON field is used to"
^DD(8994,.04,21,19,0)="   control whether each line returned is terminated with CR + LF characters."
^DD(8994,.04,21,20,0)="   See WORD WRAP ON field description for more information."
^DD(8994,.04,21,21,0)=""
^DD(8994,.04,21,22,0)="GLOBAL ARRAY: Return value parameter should be set to a closed global"
^DD(8994,.04,21,23,0)="   reference in ^TMP. The global's data nodes will be traversed using"
^DD(8994,.04,21,24,0)="   $QUERY, and all data values on global nodes descendant from the global"
^DD(8994,.04,21,25,0)="   reference are returned.  This type is especially useful for returning data"
^DD(8994,.04,21,26,0)="   from VA FileMan word processing fields, where each line is on a"
^DD(8994,.04,21,27,0)="   0-subscripted node."
^DD(8994,.04,21,28,0)=""
^DD(8994,.04,21,29,0)="   Important: The global reference you pass is killed by the Broker at the"
^DD(8994,.04,21,30,0)="              end of RPC Execution as part of RPC cleanup. Do not pass a"
^DD(8994,.04,21,31,0)="              global reference that is not in ^TMP or that should not be"
^DD(8994,.04,21,32,0)="              killed."
^DD(8994,.04,21,33,0)=""
^DD(8994,.04,21,34,0)="   This type is useful for returning large amounts of data to the client,"
^DD(8994,.04,21,35,0)="   where using the ARRAY type can exceed the symbol table limit and crash"
^DD(8994,.04,21,36,0)="   your RPC."
^DD(8994,.04,21,37,0)=""
^DD(8994,.04,21,38,0)="   For example, to return sign-on introductory text you could do this,"
^DD(8994,.04,21,39,0)="       TAG(RESULT)     ;"
^DD(8994,.04,21,40,0)="               M RESULT=^XTV(8989.3,1,""INTRO"")"
^DD(8994,.04,21,41,0)="               K RESULT(0)  ;this node is not needed"
^DD(8994,.04,21,42,0)="               Q"
^DD(8994,.04,21,43,0)=""
^DD(8994,.04,21,44,0)="GLOBAL INSTANCE: Using this type Broker will return the value of a global"
^DD(8994,.04,21,45,0)="   node.  For example the following code will return the whole 0th node"
^DD(8994,.04,21,46,0)="   from the NEW PERSON file for the current user."
^DD(8994,.04,21,47,0)="       TAG(RESULT)     ;"
^DD(8994,.04,21,48,0)="               S RESULT=$NA(^VA(200,DUZ,0))"
^DD(8994,.04,21,49,0)="               Q"
^DD(8994,.04,"DT")="2950712"
^DD(8994,.05,0)="AVAILABILITY^S^P:PUBLIC;S:SUBSCRIPTION;A:AGREEMENT;R:RESTRICTED;^0;5^Q"
^DD(8994,.05,3)="Select the appropriate indicator of the availability of this API as PUBLIC (general), SUBSCRIPTION (need to subscribe), AGREEMENT required, or RESTRICTED to the developing package."
^DD(8994,.05,21,0)="^.001^19^19^3000906^^"
^DD(8994,.05,21,1,0)="This field is used to indicate the availability of the API to various"
^DD(8994,.05,21,2,0)="users."
^DD(8994,.05,21,3,0)=""
^DD(8994,.05,21,4,0)="PUBLIC indicates that the API is available for general use by any package,"
^DD(8994,.05,21,5,0)="and it is not necessary to either indicate that the API is being used or"
^DD(8994,.05,21,6,0)="to request permission to use it."
^DD(8994,.05,21,7,0)=""
^DD(8994,.05,21,8,0)="SUBSCRIPTION indicates that the API is available to those packages that"
^DD(8994,.05,21,9,0)="wish to use it, BUT the package needs to indicate that it is using the API"
^DD(8994,.05,21,10,0)="or subscribing to it."
^DD(8994,.05,21,11,0)=""
^DD(8994,.05,21,12,0)="AGREEMENT indicates that the API is available to packages, other than the"
^DD(8994,.05,21,13,0)="developing package, only by means of an integration agreement on its"
^DD(8994,.05,21,14,0)="usage."
^DD(8994,.05,21,15,0)=""
^DD(8994,.05,21,16,0)="RESTRICTED indicates that the API is not available for reference by any"
^DD(8994,.05,21,17,0)="package other than the package which developed it.  Entry of the input and"
^DD(8994,.05,21,18,0)="return parameter information is at the option of the developing package in"
^DD(8994,.05,21,19,0)="this case."
^DD(8994,.05,"DT")="2941213"
^DD(8994,.06,0)="INACTIVE^S^0:ACTIVE;1:INACTIVE;2:LOCAL INACTIVE (ACTIVE REMOTELY);3:REMOTE INACTIVE (ACTIVE LOCALLY);^0;6^Q"
^DD(8994,.06,3)="Marks RPC as not useable completely, locally, or remotely. "
^DD(8994,.06,21,0)="^^6^6^2991008^^^"
^DD(8994,.06,21,1,0)="This field is used to indicate that the RPC is not available for use for"
^DD(8994,.06,21,2,0)="some reason.  An RPC can be marked as completely unusable (1), unusable"
^DD(8994,.06,21,3,0)="locally (2), or unusable remotely (3).  Local use means in the account the"
^DD(8994,.06,21,4,0)="user is logged into; remote use means in an account other than the one the"
^DD(8994,.06,21,5,0)="user is directly logged into (i.e., a 'Remote RPC').  The Broker will not"
^DD(8994,.06,21,6,0)="run an RPC that is marked as unusable in the applicable context."
^DD(8994,.06,23,0)="^^2^2^2991008^^"
^DD(8994,.06,23,1,0)="Before patch XWB*1.1*10, this field was for documentation only.  Also, the"
^DD(8994,.06,23,2,0)="set of codes was only 1 = INACTIVE."
^DD(8994,.06,"DT")="2991007"
^DD(8994,.07,0)="CLIENT MANAGER^S^1:YES;^0;7^Q"
^DD(8994,.07,3)="Enter 1 or YES if this API requires other configuration information related to transmission to the client."
^DD(8994,.07,21,0)="^^4^4^2970905^^^"
^DD(8994,.07,21,1,0)="This field is used to identify those APIs which may be initiated to"
^DD(8994,.07,21,2,0)="control the client or to send data to the client unrelated to requests"
^DD(8994,.07,21,3,0)="from the client.  These actions usually require additional information on"
^DD(8994,.07,21,4,0)="the configuration which is present."
^DD(8994,.07,"DT")="2941215"
^DD(8994,.08,0)="WORD WRAP ON^S^0:FALSE;1:TRUE;^0;8^Q"
^DD(8994,.08,21,0)="^^9^9^2970904^^^^"
^DD(8994,.08,21,1,0)="Affects GLOBAL ARRAY and WORD PROCESSING return value types only. If set to"
^DD(8994,.08,21,2,0)="FALSE, all data values are returned in a single concatenated string in"
^DD(8994,.08,21,3,0)="Results[0]. If set to TRUE, each array node on the M side is returned as a"
^DD(8994,.08,21,4,0)="distinct array item in the Results property of the TRPCBroker."
^DD(8994,.08,21,5,0)=""
^DD(8994,.08,21,6,0)="If you're returning some text to the client and you'd rather let the"
^DD(8994,.08,21,7,0)="memo box of the client control the wrapping of lines, set WORD WRAP ON"
^DD(8994,.08,21,8,0)="to FALSE.  On the other hand, if you want to preserve line breaks as they"
^DD(8994,.08,21,9,0)="exist on the server, set WORD WRAP ON to TRUE."
^DD(8994,.08,"DT")="2950804"
^DD(8994,.09,0)="VERSION^NJ10,5^^0;9^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""6N.N) X"
^DD(8994,.09,3)="Type a Number between 0 and 9999, 5 Decimal Digits"
^DD(8994,.09,21,0)="^^6^6^2991013^"
^DD(8994,.09,21,1,0)="A number to identify the version of the Remote Procedure.  Currently this"
^DD(8994,.09,21,2,0)="number is only checked if the Remote Procedure is being run on a foreign"
^DD(8994,.09,21,3,0)="server.  If a version number is passed to the Broker by the application"
^DD(8994,.09,21,4,0)="requesting that the Remote Procedure be run on the foreign server, the"
^DD(8994,.09,21,5,0)="Remote Procedure will only be run if the value of this field is equal to"
^DD(8994,.09,21,6,0)="or greater than the passed version number."
^DD(8994,.09,23,0)="^^1^1^2991013^^"
^DD(8994,.09,23,1,0)="Introduced in patch XWB*1.1*10."
^DD(8994,.09,"DT")="2991007"
^DD(8994,.1,0)="SUPPRESS RDV USER SETUP^S^0:No;1:Yes;^0;10^Q"
^DD(8994,.1,.1)="Suppress RDV user setup"
^DD(8994,.1,3)="Must not be set to YES for RPC's that collect Patient data."
^DD(8994,.1,9)="^"
^DD(8994,.1,21,0)="^^10^10^3010820^"
^DD(8994,.1,21,1,0)="This field controls how Remote Data View handles the setup of a user to"
^DD(8994,.1,21,2,0)="run the RPC. If the field is set to No or is blank than the remote users"
^DD(8994,.1,21,3,0)="data will be set up in the New Person file and DUZ for the process will be"
^DD(8994,.1,21,4,0)="set to the user. If the field is set to Yes at the remote site the remote"
^DD(8994,.1,21,5,0)="user data will NOT be entered into the New Person file and DUZ will be set"
^DD(8994,.1,21,6,0)="to the Postmaster."
^DD(8994,.1,21,7,0)=" "
^DD(8994,.1,21,8,0)="This field should not be set to Yes for RPC's that collect patient data."
^DD(8994,.1,21,9,0)="If there is any question about why a RPC has this set to yes contact the"
^DD(8994,.1,21,10,0)="DBA for the VA."
^DD(8994,.1,"DT")="3010820"
^DD(8994,.11,0)="APP PROXY ALLOWED^S^0:No;1:Yes;^0;11^Q"
^DD(8994,.11,21,0)="^.001^3^3^3050301^^"
^DD(8994,.11,21,1,0)="This field must be set to Allowed if this RPC is to be run by an "
^DD(8994,.11,21,2,0)="APPLICATION PROXY user."
^DD(8994,.11,21,3,0)="The default is to NOT allow access."
^DD(8994,.11,"DT")="3050301"
^DD(8994,1,0)="DESCRIPTION^8994.01^^1;0"
^DD(8994,2,0)="INPUT PARAMETER^8994.02A^^2;0"
^DD(8994,2,21,0)="^^4^4^2970807^^^^"
^DD(8994,2,21,1,0)="Input parameter is what RPC Broker passes into your remote procedure.  The"
^DD(8994,2,21,2,0)="name that you may call the input parameter has no special meaning to the"
^DD(8994,2,21,3,0)="Broker.  However, you should choose a name that best describes the data"
^DD(8994,2,21,4,0)="that the parameter is used for."
^DD(8994,3,0)="RETURN PARAMETER DESCRIPTION^8994.03^^3;0"
^DD(8994,"B","APP PROXY ALLOWED",.11)=""
^DD(8994,"B","AVAILABILITY",.05)=""
^DD(8994,"B","CLIENT MANAGER",.07)=""
^DD(8994,"B","DESCRIPTION",1)=""
^DD(8994,"B","INACTIVE",.06)=""
^DD(8994,"B","INPUT PARAMETER",2)=""
^DD(8994,"B","NAME",.01)=""
^DD(8994,"B","RETURN PARAMETER DESCRIPTION",3)=""
^DD(8994,"B","RETURN VALUE TYPE",.04)=""
^DD(8994,"B","ROUTINE",.03)=""
^DD(8994,"B","SUPPRESS RDV USER SETUP",.1)=""
^DD(8994,"B","Suppress RDV user setup",.1)="1"
^DD(8994,"B","TAG",.02)=""
^DD(8994,"B","VERSION",.09)=""
^DD(8994,"B","WORD WRAP ON",.08)=""
^DD(8994,"GL",0,1,.01)=""
^DD(8994,"GL",0,2,.02)=""
^DD(8994,"GL",0,3,.03)=""
^DD(8994,"GL",0,4,.04)=""
^DD(8994,"GL",0,5,.05)=""
^DD(8994,"GL",0,6,.06)=""
^DD(8994,"GL",0,7,.07)=""
^DD(8994,"GL",0,8,.08)=""
^DD(8994,"GL",0,9,.09)=""
^DD(8994,"GL",0,10,.1)=""
^DD(8994,"GL",0,11,.11)=""
^DD(8994,"GL",1,0,1)=""
^DD(8994,"GL",2,0,2)=""
^DD(8994,"GL",3,0,3)=""
^DD(8994,"IX",.01)=""
^DD(8994,"RQ",.01)=""
^DD(8994,"RQ",.03)=""
^DD(8994,"RQ",.04)=""
^DD(8994,"SB",8994.01,1)=""
^DD(8994,"SB",8994.02,2)=""
^DD(8994,"SB",8994.03,3)=""
^DD(8994.01,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8994.01,0,"DT")="2941213"
^DD(8994.01,0,"NM","DESCRIPTION")=""
^DD(8994.01,0,"UP")="8994"
^DD(8994.01,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(8994.01,.01,3)="Please enter a brief description of the purpose of this API"
^DD(8994.01,.01,21,0)="^^2^2^2941213^"
^DD(8994.01,.01,21,1,0)="This field is a word processing field for describing the purpose of the"
^DD(8994.01,.01,21,2,0)="API."
^DD(8994.01,.01,"DT")="2941213"
^DD(8994.01,"B","DESCRIPTION",.01)=""
^DD(8994.01,"GL",0,1,.01)=""
^DD(8994.02,0)="INPUT PARAMETER SUB-FIELD^^1^6"
^DD(8994.02,0,"DT")="2970807"
^DD(8994.02,0,"IX","B",8994.02,.01)=""
^DD(8994.02,0,"IX","PARAMSEQ",8994.02,.05)=""
^DD(8994.02,0,"NM","INPUT PARAMETER")=""
^DD(8994.02,0,"UP")="8994"
^DD(8994.02,.01,0)="INPUT PARAMETER^MF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(8994.02,.01,1,0)="^.1"
^DD(8994.02,.01,1,1,0)="8994.02^B"
^DD(8994.02,.01,1,1,1)="S ^XWB(8994,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(8994.02,.01,1,1,2)="K ^XWB(8994,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(8994.02,.01,3)="Answer must be 3-30 characters in length."
^DD(8994.02,.01,21,0)="^^1^1^2941213^"
^DD(8994.02,.01,21,1,0)="This field is used to identify an input parameter for the API."
^DD(8994.02,.01,"DT")="2941213"
^DD(8994.02,.02,0)="PARAMETER TYPE^S^1:LITERAL;2:LIST;3:WORD PROCESSING;4:REFERENCE;^0;2^Q"
^DD(8994.02,.02,3)="Select the appropriate value indicating whether the parameter is a literal, a list, a reference or a word processing string."
^DD(8994.02,.02,21,0)="^^4^4^2970807^"
^DD(8994.02,.02,21,1,0)="This field is used to indicate the type (Literal, List, Reference, or Word"
^DD(8994.02,.02,21,2,0)="Processing entry) of value passed by this parameter.  The Literal, List,"
^DD(8994.02,.02,21,3,0)="and Reference types correspond to the TParamType of the same name.  A Word"
^DD(8994.02,.02,21,4,0)="Processing type would also be a List TParamType."
^DD(8994.02,.02,23,0)="^^5^5^2970807^^^^"
^DD(8994.02,.02,23,1,0)="Currently, this field is used only for documenting the RPC's input"
^DD(8994.02,.02,23,2,0)="parameters."
^DD(8994.02,.02,23,3,0)=""
^DD(8994.02,.02,23,4,0)="In version 1.0 of the RPC Broker the Literal type was called Single Value"
^DD(8994.02,.02,23,5,0)="and the List type was called Array."
^DD(8994.02,.02,"DT")="2970807"
^DD(8994.02,.03,0)="MAXIMUM DATA LENGTH^NJ5,0^^0;3^K:+X'=X!(X>32000)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8994.02,.03,3)="Indicate the maximum length of the parameter, type a Number between 1 and 32000, 0 Decimal Digits"
^DD(8994.02,.03,21,0)="^^2^2^2941213^"
^DD(8994.02,.03,21,1,0)="This field indicates the maximum length that would be expected for the"
^DD(8994.02,.03,21,2,0)="parameter value."
^DD(8994.02,.03,"DT")="2941213"
^DD(8994.02,.04,0)="REQUIRED^S^1:YES;0:NO;^0;4^Q"
^DD(8994.02,.04,3)="This field is used to indicate when an input parameter is required in the API call."
^DD(8994.02,.04,21,0)="^^2^2^2941215^"
^DD(8994.02,.04,21,1,0)="This field is used to indicate that the input parameter is a required"
^DD(8994.02,.04,21,2,0)="argument in the API call."
^DD(8994.02,.04,"DT")="2941215"
^DD(8994.02,.05,0)="SEQUENCE NUMBER^NJ2,0^^0;5^K:+X'=X!(X>30)!(X<1)!(X?.E1"".""1N.N) X"
^DD(8994.02,.05,1,0)="^.1"
^DD(8994.02,.05,1,1,0)="8994.02^PARAMSEQ"
^DD(8994.02,.05,1,1,1)="S ^XWB(8994,DA(1),2,""PARAMSEQ"",$E(X,1,30),DA)="""""
^DD(8994.02,.05,1,1,2)="K ^XWB(8994,DA(1),2,""PARAMSEQ"",$E(X,1,30),DA)"
^DD(8994.02,.05,1,1,"DT")="2970328"
^DD(8994.02,.05,3)="Type a Number between 1 and 30, 0 Decimal Digits"
^DD(8994.02,.05,21,0)="^^14^14^2970327^"
^DD(8994.02,.05,21,1,0)="This number should correspond to the position of this parameter in the"
^DD(8994.02,.05,21,2,0)="formal list of the function.  Consider that the return parameter that"
^DD(8994.02,.05,21,3,0)="Broker passes in, by reference, is the very first parameter with the"
^DD(8994.02,.05,21,4,0)="sequence number of 0.  The next parameter is the first application-supplied"
^DD(8994.02,.05,21,5,0)="parameter with the sequence of 1."
^DD(8994.02,.05,21,6,0)=""
^DD(8994.02,.05,21,7,0)="Example:"
^DD(8994.02,.05,21,8,0)=""
^DD(8994.02,.05,21,9,0)="  Your entry point may look like:"
^DD(8994.02,.05,21,10,0)=""
^DD(8994.02,.05,21,11,0)="    EN(RESULT,USER,DATE)       ;this will do something"
^DD(8994.02,.05,21,12,0)=""
^DD(8994.02,.05,21,13,0)="      In this case the parameter corresponding to USER should have sequence"
^DD(8994.02,.05,21,14,0)="      number 1 and the DATE parameter should be 2."
^DD(8994.02,.05,"DT")="2970328"
^DD(8994.02,1,0)="DESCRIPTION^8994.021^^1;0"
^DD(8994.02,"B","DESCRIPTION",1)=""
^DD(8994.02,"B","INPUT PARAMETER",.01)=""
^DD(8994.02,"B","MAXIMUM DATA LENGTH",.03)=""
^DD(8994.02,"B","PARAMETER TYPE",.02)=""
^DD(8994.02,"B","REQUIRED",.04)=""
^DD(8994.02,"B","SEQUENCE NUMBER",.05)=""
^DD(8994.02,"GL",0,1,.01)=""
^DD(8994.02,"GL",0,2,.02)=""
^DD(8994.02,"GL",0,3,.03)=""
^DD(8994.02,"GL",0,4,.04)=""
^DD(8994.02,"GL",0,5,.05)=""
^DD(8994.02,"GL",1,0,1)=""
^DD(8994.02,"IX",.01)=""
^DD(8994.02,"IX",.05)=""
^DD(8994.02,"SB",8994.021,1)=""
^DD(8994.021,0)="DESCRIPTION SUB-FIELD^^.01^1"
^DD(8994.021,0,"DT")="2941213"
^DD(8994.021,0,"NM","DESCRIPTION")=""
^DD(8994.021,0,"UP")="8994.02"
^DD(8994.021,.01,0)="DESCRIPTION^WL^^0;1^Q"
^DD(8994.021,.01,3)="Please enter a brief description of this input parameter."
^DD(8994.021,.01,21,0)="^^2^2^2941213^"
^DD(8994.021,.01,21,1,0)="This field is used for a description of the meaning or function of the"
^DD(8994.021,.01,21,2,0)="input parameter."
^DD(8994.021,.01,"DT")="2941213"
^DD(8994.021,"B","DESCRIPTION",.01)=""
^DD(8994.021,"GL",0,1,.01)=""
^DD(8994.03,0)="RETURN PARAMETER DESCRIPTION SUB-FIELD^^.01^1"
^DD(8994.03,0,"DT")="2941213"
^DD(8994.03,0,"NM","RETURN PARAMETER DESCRIPTION")=""
^DD(8994.03,0,"UP")="8994"
^DD(8994.03,.01,0)="RETURN PARAMETER DESCRIPTION^WL^^0;1^Q"
^DD(8994.03,.01,3)="Enter a brief description of the return value from this API"
^DD(8994.03,.01,21,0)="^^2^2^2941213^"
^DD(8994.03,.01,21,1,0)="This field is used to obtain a brief description of the return parameter"
^DD(8994.03,.01,21,2,0)="and what it represents."
^DD(8994.03,.01,"DT")="2941213"
^DD(8994.03,"B","RETURN PARAMETER DESCRIPTION",.01)=""
^DD(8994.03,"GL",0,1,.01)=""
^DD(8994.1,0)="FIELD^^7^3"
^DD(8994.1,0,"DDA")="N"
^DD(8994.1,0,"DT")="3030331"
^DD(8994.1,0,"IX","B",8994.1,.01)=""
^DD(8994.1,0,"IX","C",8994.171,1)=""
^DD(8994.1,0,"NM","RPC BROKER SITE PARAMETERS")=""
^DD(8994.1,0,"VR")="1.1"
^DD(8994.1,0,"VRPK")="XWB"
^DD(8994.1,.01,0)="DOMAIN NAME^RP4.2'X^DIC(4.2,^0;1^S DINUM=1"
^DD(8994.1,.01,1,0)="^.1"
^DD(8994.1,.01,1,1,0)="8994.1^B"
^DD(8994.1,.01,1,1,1)="S ^XWB(8994.1,""B"",$E(X,1,30),DA)="""""
^DD(8994.1,.01,1,1,2)="K ^XWB(8994.1,""B"",$E(X,1,30),DA)"
^DD(8994.1,.01,3)=""
^DD(8994.1,.01,21,0)="^^4^4^2960829^^^^"
^DD(8994.1,.01,21,1,0)="This is the name of this installation of the RPC Broker, as it is known"
^DD(8994.1,.01,21,2,0)="to the rest of the network. It must appear in the DOMAIN file."
^DD(8994.1,.01,21,3,0)="This name applies to all CPUs or Volume sets which access this ^XWB"
^DD(8994.1,.01,21,4,0)="global."
^DD(8994.1,.01,"DT")="2960829"
^DD(8994.1,2,0)="MAIL GROUP FOR ALERTS^P3.8'^XMB(3.8,^0;2^Q"
^DD(8994.1,2,21,0)="^^1^1^3000810^"
^DD(8994.1,2,21,1,0)="This field points to the Mail Group file"
^DD(8994.1,2,"DT")="3000810"
^DD(8994.1,7,0)="LISTENER^8994.17P^^7;0"
^DD(8994.1,7,21,0)="^^4^4^2991116^^^^"
^DD(8994.1,7,21,1,0)="This field contains all the information that the Broker needs to run a"
^DD(8994.1,7,21,2,0)="background process, which accepts incoming connection requests.  The listener"
^DD(8994.1,7,21,3,0)="doesn't execute the client's RPCs.  The listener starts up other processes"
^DD(8994.1,7,21,4,0)="as handlers, which run RPCs."
^DD(8994.1,"B","DOMAIN NAME",.01)=""
^DD(8994.1,"B","LISTENER",7)=""
^DD(8994.1,"B","MAIL GROUP FOR ALERTS",2)=""
^DD(8994.1,"GL",0,1,.01)=""
^DD(8994.1,"GL",0,2,2)=""
^DD(8994.1,"GL",7,0,7)=""
^DD(8994.1,"IX",.01)=""
^DD(8994.1,"RQ",.01)=""
^DD(8994.1,"SB",8994.17,7)=""
^DD(8994.17,0)="LISTENER SUB-FIELD^^1^2"
^DD(8994.17,0,"DT")="3030331"
^DD(8994.17,0,"IX","B",8994.17,.01)=""
^DD(8994.17,0,"NM","LISTENER")=""
^DD(8994.17,0,"UP")="8994.1"
^DD(8994.17,.01,0)="BOX-VOLUME PAIR^P14.7'^%ZIS(14.7,^0;1^Q"
^DD(8994.17,.01,1,0)="^.1"
^DD(8994.17,.01,1,1,0)="8994.17^B"
^DD(8994.17,.01,1,1,1)="S ^XWB(8994.1,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(8994.17,.01,1,1,2)="K ^XWB(8994.1,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(8994.17,.01,12)="Knowing how to set XWBCHK before editing this field should reduce the likelihood of inappropriate entries."
^DD(8994.17,.01,12.1)="S DIC(""S"")=""I $G(XWBCHK)=""""I KNOW WHAT I'M DOING"""""""
^DD(8994.17,.01,21,0)="^^1^1^2991116^^^^"
^DD(8994.17,.01,21,1,0)="This field determines on what CPU and volume set the listener should run."
^DD(8994.17,.01,"DEL",1,0)="I $G(XWBCHK)'=""ALLOW"""
^DD(8994.17,.01,"DT")="2991116"
^DD(8994.17,1,0)="PORT^8994.171^^1;0"
^DD(8994.17,1,21,0)="^^10^10^2991116^"
^DD(8994.17,1,21,1,0)="This is the TCP/IP port that the listener should monitor for incoming"
^DD(8994.17,1,21,2,0)="connection requests.  This is the port which a client should use to"
^DD(8994.17,1,21,3,0)="connect to a server."
^DD(8994.17,1,21,4,0)=" "
^DD(8994.17,1,21,5,0)="Don't use a port that is already in use on the CPU where you want to run"
^DD(8994.17,1,21,6,0)="the listener.  No two processes can share the same TCP/IP port on the"
^DD(8994.17,1,21,7,0)="same CPU."
^DD(8994.17,1,21,8,0)=" "
^DD(8994.17,1,21,9,0)="Typically, port numbers bellow 5000 are reserved for various common TCP/IP"
^DD(8994.17,1,21,10,0)="services.  So you should use port numbers 9000 and above."
^DD(8994.17,"B","BOX-VOLUME PAIR",.01)=""
^DD(8994.17,"B","PORT",1)=""
^DD(8994.17,"GL",0,1,.01)=""
^DD(8994.17,"GL",1,0,1)=""
^DD(8994.17,"IX",.01)=""
^DD(8994.17,"SB",8994.171,1)=""
^DD(8994.171,0)="PORT SUB-FIELD^^2^4"
^DD(8994.171,0,"DT")="3030331"
^DD(8994.171,0,"IX","B",8994.171,.01)=""
^DD(8994.171,0,"NM","PORT")=""
^DD(8994.171,0,"UP")="8994.17"
^DD(8994.171,.01,0)="PORT^NJ5,0^^0;1^K:+X'=X!(X>32000)!(X<9000)!(X?.E1"".""1N.N) X"
^DD(8994.171,.01,1,0)="^.1"
^DD(8994.171,.01,1,1,0)="8994.171^B"
^DD(8994.171,.01,1,1,1)="S ^XWB(8994.1,DA(2),7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8994.171,.01,1,1,2)="K ^XWB(8994.1,DA(2),7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8994.171,.01,1,2,0)="^^TRIGGER^8994.171^1"
^DD(8994.171,.01,1,2,1)="K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA,DIV(2)=D2 S Y(1)=$S($D(^XWB(8994.1,D0,7,D1,1,D2,0)):^(0),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=""6"" X ^DD(8994.171,.01,1,2,1.4)"
^DD(8994.171,.01,1,2,1.4)="S DIH=$S($D(^XWB(8994.1,DIV(0),7,DIV(1),1,DIV(2),0)):^(0),1:""""),DIV=X S $P(^(0),U,2)=DIV,DIH=8994.171,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(8994.171,.01,1,2,2)="Q"
^DD(8994.171,.01,1,2,"%D",0)="^^6^6^2960829^^"
^DD(8994.171,.01,1,2,"%D",1,0)="This TRIGGER Xref initializes the STATUS field of the newly entered port"
^DD(8994.171,.01,1,2,"%D",2,0)="to 6 (internal value of STOPPED)."
^DD(8994.171,.01,1,2,"%D",3,0)=""
^DD(8994.171,.01,1,2,"%D",4,0)="This Xref is on the PORT (.01) field of the PORT (1) multiple."
^DD(8994.171,.01,1,2,"%D",5,0)="The SET logic is ""6""."
^DD(8994.171,.01,1,2,"%D",6,0)="No KILL logic."
^DD(8994.171,.01,1,2,"CREATE VALUE")="""6"""
^DD(8994.171,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(8994.171,.01,1,2,"DT")="2960829"
^DD(8994.171,.01,1,2,"FIELD")="STATUS"
^DD(8994.171,.01,3)="Type a Number between 9000 and 32000, 0 Decimal Digits"
^DD(8994.171,.01,"DT")="2991116"
^DD(8994.171,.5,0)="TYPE OF LISTENER^S^0:Original;1:New Style;^0;3^Q"
^DD(8994.171,.5,3)=""
^DD(8994.171,.5,21,0)="^^3^3^3030331^"
^DD(8994.171,.5,21,1,0)="This is a flag to tell a Cache/NT site what kind of RPCBroker listener "
^DD(8994.171,.5,21,2,0)="to start.  It should not be needed for other types of RPCBroker listeners "
^DD(8994.171,.5,21,3,0)="because they will be under the control of TCPIP service."
^DD(8994.171,.5,"DT")="3030331"
^DD(8994.171,1,0)="STATUS^*S^1:START;2:STARTING;3:RUNNING;4:STOP;5:STOPPING;6:STOPPED;^0;2^Q"
^DD(8994.171,1,1,0)="^.1"
^DD(8994.171,1,1,1,0)="8994.1^C^MUMPS"
^DD(8994.171,1,1,1,1)="D STATCHG^XWBTCP(.DA,X)"
^DD(8994.171,1,1,1,2)="Q"
^DD(8994.171,1,1,1,"DT")="2960829"
^DD(8994.171,1,5,1,0)="8994.171^.01^2"
^DD(8994.171,1,12)="You can only set STATUS to START or STOP.  All other settings are controlled by the RPC Broker itself."
^DD(8994.171,1,12.1)="S DIC(""S"")=""I $$STATSCRN^XWBTCP(Y)"""
^DD(8994.171,1,"DT")="2960930"
^DD(8994.171,2,0)="CONTROLLED BY LISTENER STARTER^S^0:NO;1:YES;^0;4^Q"
^DD(8994.171,2,21,0)="^^9^9^2991116^^^^"
^DD(8994.171,2,21,1,0)="If you want the Broker listener to start listening on this CPU-port-UCI"
^DD(8994.171,2,21,2,0)="when the XWB LISTENER STARTER option is run, enter YES.  All of the"
^DD(8994.171,2,21,3,0)="listener entries in this file that have CONTROLLED BY LISTENER STARTER"
^DD(8994.171,2,21,4,0)="set to YES will be started when XWB LISTENER STARTER option is run."
^DD(8994.171,2,21,5,0)=""
^DD(8994.171,2,21,6,0)="Hint: XWB LISTENER STARTER option may be used to start all of the listeners"
^DD(8994.171,2,21,7,0)="      you need automatically when the Task Manager is started.  Use the"
^DD(8994.171,2,21,8,0)="      Schedule/Unschedule Options option.  In the SPECIAL QUEUEING field"
^DD(8994.171,2,21,9,0)="      enter STARTUP.  Leave all other fields empty."
^DD(8994.171,2,"DT")="2961011"
^DD(8994.171,"B","CONTROLLED BY LISTENER STARTER",2)=""
^DD(8994.171,"B","PORT",.01)=""
^DD(8994.171,"B","STATUS",1)=""
^DD(8994.171,"B","TYPE OF LISTENER",.5)=""
^DD(8994.171,"GL",0,1,.01)=""
^DD(8994.171,"GL",0,2,1)=""
^DD(8994.171,"GL",0,3,.5)=""
^DD(8994.171,"GL",0,4,2)=""
^DD(8994.171,"IX",.01)=""
^DD(8994.171,"IX",1)=""
^DD(8994.5,0)="FIELD^^1^4"
^DD(8994.5,0,"DDA")="N"
^DD(8994.5,0,"DT")="3060407"
^DD(8994.5,0,"IX","ACODE",8994.5,.03)=""
^DD(8994.5,0,"IX","B",8994.5,.01)=""
^DD(8994.5,0,"NM","REMOTE APPLICATION")=""
^DD(8994.5,0,"VR")="1.1"
^DD(8994.5,0,"VRPK")="XWB"
^DD(8994.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(8994.5,.01,1,0)="^.1"
^DD(8994.5,.01,1,1,0)="8994.5^B"
^DD(8994.5,.01,1,1,1)="S ^XWB(8994.5,""B"",$E(X,1,30),DA)="""""
^DD(8994.5,.01,1,1,2)="K ^XWB(8994.5,""B"",$E(X,1,30),DA)"
^DD(8994.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(8994.5,.01,21,0)="^.001^2^2^3060328^^"
^DD(8994.5,.01,21,1,0)="This is the NAME of the REMOTE GUI APPLICATION for which the data in this "
^DD(8994.5,.01,21,2,0)="entry pertains."
^DD(8994.5,.02,0)="CONTEXTOPTION^RP19'^DIC(19,^0;2^Q"
^DD(8994.5,.02,3)="This is the option which should be given to the signed in visitor as the Context Option for this application."
^DD(8994.5,.02,21,0)="^^7^7^3060403^"
^DD(8994.5,.02,21,1,0)="The name of the context (Client/Server or B-type) option that the "
^DD(8994.5,.02,21,2,0)="application users will need that will be added as a secondary menu item."
^DD(8994.5,.02,21,3,0)=" "
^DD(8994.5,.02,21,4,0)="The user is signed on as a visitor and given the Context Option specified"
^DD(8994.5,.02,21,5,0)="in this field as a secondary menu option.  The application still needs to"
^DD(8994.5,.02,21,6,0)="set the Context Option using the CreateContext method, but the visitor has"
^DD(8994.5,.02,21,7,0)="it as a valid option so that it can be used."
^DD(8994.5,.02,"DT")="3060403"
^DD(8994.5,.03,0)="APPLICATIONCODE^RF^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(8994.5,.03,1,0)="^.1"
^DD(8994.5,.03,1,1,0)="8994.5^ACODE"
^DD(8994.5,.03,1,1,1)="S ^XWB(8994.5,""ACODE"",$E(X,1,30),DA)="""""
^DD(8994.5,.03,1,1,2)="K ^XWB(8994.5,""ACODE"",$E(X,1,30),DA)"
^DD(8994.5,.03,1,1,3)="THIS CROSS-REFERENCE IS USED AS ENTRY BY THE APPLICATION CODE FOR THE APPLICATION."
^DD(8994.5,.03,1,1,"DT")="3060210"
^DD(8994.5,.03,3)="This value is the HASHED value of the application's code phrase."
^DD(8994.5,.03,21,0)="^^51^51^3060403^"
^DD(8994.5,.03,21,1,0)="This is the hashed value for a security phrase for the application and is "
^DD(8994.5,.03,21,2,0)="described below."
^DD(8994.5,.03,21,3,0)=" "
^DD(8994.5,.03,21,4,0)="Security Phrase"
^DD(8994.5,.03,21,5,0)=" "
^DD(8994.5,.03,21,6,0)="The security phrase is an application's entry into the REMOTE APPLICATION "
^DD(8994.5,.03,21,7,0)="file (#8994.5) for accessing the information necessary to permit the "
^DD(8994.5,.03,21,8,0)="application to enroll a remote user.   Create a security phrase, case "
^DD(8994.5,.03,21,9,0)="sensitive, and at programmer mode use the command (assuming the security "
^DD(8994.5,.03,21,10,0)="phrase is ""My Special Phrase"")"
^DD(8994.5,.03,21,11,0)=" "
^DD(8994.5,.03,21,12,0)="   W $$EN^XUSHSH(""My Special Phrase"")"
^DD(8994.5,.03,21,13,0)=" "
^DD(8994.5,.03,21,14,0)="The resulting value:"
^DD(8994.5,.03,21,15,0)="   ""I&f).c`u:7@01#tL((x"" "
^DD(8994.5,.03,21,16,0)=" "
^DD(8994.5,.03,21,17,0)="This is the one-way hash value for the security phrase.  It is this "
^DD(8994.5,.03,21,18,0)="hashed value that will be entered into the ApplicationCode field (#.03) "
^DD(8994.5,.03,21,19,0)="in the REMOTE APPLICATION file (#8994.5) for the application."
^DD(8994.5,.03,21,20,0)=" "
^DD(8994.5,.03,21,21,0)="To make a remote connection, the application will have the user sign onto "
^DD(8994.5,.03,21,22,0)="the application's authenticating server (the one entered as "
^DD(8994.5,.03,21,23,0)="CallbackServer) and then obtain a Token for the user (similar to "
^DD(8994.5,.03,21,24,0)="""XWBHDL977-124367_0"") using the ""XUS SET VISITOR"" RPC.  The application "
^DD(8994.5,.03,21,25,0)="will then disconnect from the authenticating server and set the new "
^DD(8994.5,.03,21,26,0)="SecurityPhrase property for the TRPCBroker component to the unhashed "
^DD(8994.5,.03,21,27,0)="security phrase concatenated with a caret (""^"") and the token for the user"
^DD(8994.5,.03,21,28,0)="(e.g.,  ""My Special Phrase^XWBHDL977-124367_0"")"
^DD(8994.5,.03,21,29,0)=" "
^DD(8994.5,.03,21,30,0)="This property will be encoded and passed to the remote server for "
^DD(8994.5,.03,21,31,0)="authentication; it will hash the security phrase and use the resulting "
^DD(8994.5,.03,21,32,0)="value to identify the application's entry in the REMOTE APPLICATION file "
^DD(8994.5,.03,21,33,0)="(#8994.5).  The mechanism(s) for contacting the authenticating server "
^DD(8994.5,.03,21,34,0)="will be identified and the authentication server will be requested to "
^DD(8994.5,.03,21,35,0)="provide the demographic information necessary to identify the user and "
^DD(8994.5,.03,21,36,0)="create or match an entry in the NEW PERSON file (#200) based on the token "
^DD(8994.5,.03,21,37,0)="provided.  With this information the user will be set up as a visitor "
^DD(8994.5,.03,21,38,0)="entry and provided the context option specified.  The application will "
^DD(8994.5,.03,21,39,0)="then be notified that the user is connected.  If there is no entry for "
^DD(8994.5,.03,21,40,0)="the application, no match for the token, or the authenticating server can "
^DD(8994.5,.03,21,41,0)="not be connected, the user will be prompted with a regular sign on screen "
^DD(8994.5,.03,21,42,0)="(i.e., required to enter their Access and Verify codes)."
^DD(8994.5,.03,21,43,0)=" "
^DD(8994.5,.03,21,44,0)="Since the security phrase is the application's identifier, we recommend "
^DD(8994.5,.03,21,45,0)="that the security phrase in RPCBroker Delphi-based programs be identified "
^DD(8994.5,.03,21,46,0)="as a const value in an include file.  And that a substitute include file "
^DD(8994.5,.03,21,47,0)="containing a phrase similar to that used above be included with release "
^DD(8994.5,.03,21,48,0)="of the source code.  It must be realized that the security phrase "
^DD(8994.5,.03,21,49,0)="identifies any application that uses it as your application, and it "
^DD(8994.5,.03,21,50,0)="would, of course, be desirable that rogue applications not appear to be "
^DD(8994.5,.03,21,51,0)="your application."
^DD(8994.5,.03,"DT")="3060210"
^DD(8994.5,1,0)="CALLBACKTYPE^8994.51S^^1;0"
^DD(8994.5,1,21,0)="^^10^10^3060403^"
^DD(8994.5,1,21,1,0)="This is a multiple field.  It may contain multiple values describing "
^DD(8994.5,1,21,2,0)="mechanisms by which the remote site can contact the application's "
^DD(8994.5,1,21,3,0)="authenticating site to obtain the demographic information. "
^DD(8994.5,1,21,4,0)=" "
^DD(8994.5,1,21,5,0)="It consists of the following subfields:"
^DD(8994.5,1,21,6,0)=" "
^DD(8994.5,1,21,7,0)="   .01 CALLBACKTYPE"
^DD(8994.5,1,21,8,0)="   .02 CALLBACKPORT"
^DD(8994.5,1,21,9,0)="   .03 CALLBACKSERVER"
^DD(8994.5,1,21,10,0)="   .04 URLSTRING"
^DD(8994.5,1,"DT")="3060403"
^DD(8994.5,"B","APPLICATIONCODE",.03)=""
^DD(8994.5,"B","CALLBACKTYPE",1)=""
^DD(8994.5,"B","CONTEXTOPTION",.02)=""
^DD(8994.5,"B","NAME",.01)=""
^DD(8994.5,"GL",0,1,.01)=""
^DD(8994.5,"GL",0,2,.02)=""
^DD(8994.5,"GL",0,3,.03)=""
^DD(8994.5,"GL",1,0,1)=""
^DD(8994.5,"IX",.01)=""
^DD(8994.5,"IX",.03)=""
^DD(8994.5,"RQ",.01)=""
^DD(8994.5,"RQ",.02)=""
^DD(8994.5,"RQ",.03)=""
^DD(8994.5,"SB",8994.51,1)=""
^DD(8994.51,0)="CALLBACKTYPE SUB-FIELD^^.04^4"
^DD(8994.51,0,"DT")="3060407"
^DD(8994.51,0,"IX","B",8994.51,.01)=""
^DD(8994.51,0,"NM","CALLBACKTYPE")=""
^DD(8994.51,0,"UP")="8994.5"
^DD(8994.51,.01,0)="CALLBACKTYPE^MRS^R:RPC-BROKER;M:M2M-BROKER;H:HTTP;^0;1^Q"
^DD(8994.51,.01,1,0)="^.1"
^DD(8994.51,.01,1,1,0)="8994.51^B"
^DD(8994.51,.01,1,1,1)="S ^XWB(8994.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(8994.51,.01,1,1,2)="K ^XWB(8994.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(8994.51,.01,3)="Select one of the indicators for a Call back type for this Remote GUI Application"
^DD(8994.51,.01,21,0)="^.001^3^3^3060403^^^"
^DD(8994.51,.01,21,1,0)="This field indicates the mechanism(s) by which the server should contact "
^DD(8994.51,.01,21,2,0)="the authenticating server to obtain information necessary to sign the "
^DD(8994.51,.01,21,3,0)="current user on to the current server."
^DD(8994.51,.01,"DT")="3060403"
^DD(8994.51,.02,0)="CALLBACKPORT^RF^^0;2^K:$L(X)>5!($L(X)<2) X"
^DD(8994.51,.02,3)="Answer must be 2-5 characters in length."
^DD(8994.51,.02,21,0)="^.001^2^2^3060403^^"
^DD(8994.51,.02,21,1,0)="This is the port to be used for the callback to the authenticating server "
^DD(8994.51,.02,21,2,0)="for the CALLBACKTYPE specified."
^DD(8994.51,.02,"DT")="3060407"
^DD(8994.51,.03,0)="CALLBACKSERVER^RF^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(8994.51,.03,3)="This should be the server name to be used to contact the authenticating server for accessing the data to authenticate the user for this Remote GUI Application."
^DD(8994.51,.03,21,0)="^.001^2^2^3060403^^"
^DD(8994.51,.03,21,1,0)="This is the server designation to be used for the callback to the "
^DD(8994.51,.03,21,2,0)="authenticating server for the CALLBACKTYPE specified."
^DD(8994.51,.03,"DT")="3060123"
^DD(8994.51,.04,0)="URLSTRING^F^^0;4^K:$L(X)>60!($L(X)<1) X"
^DD(8994.51,.04,3)="Answer must be 1-60 characters in length."
^DD(8994.51,.04,21,0)="^^14^14^3060403^"
^DD(8994.51,.04,21,1,0)="This field holds the text that should follow the server address (field "
^DD(8994.51,.04,21,2,0)="#.03) for HTTP connections to obtain the information for the user token "
^DD(8994.51,.04,21,3,0)="passed in for a REMOTE APPLICATION connection."
^DD(8994.51,.04,21,4,0)=" "
^DD(8994.51,.04,21,5,0)="If the complete URL to be used for the callback is"
^DD(8994.51,.04,21,6,0)="   http://myserver.med.va.gov/some/kind/of/location/somePage.aspx"
^DD(8994.51,.04,21,7,0)=" "
^DD(8994.51,.04,21,8,0)="The CALLBACKSERVER (#.03) field could be"
^DD(8994.51,.04,21,9,0)="   myserver.med.va.gov"
^DD(8994.51,.04,21,10,0)=" "
^DD(8994.51,.04,21,11,0)="and the URLSTRING would be"
^DD(8994.51,.04,21,12,0)="   some/kind/of/location/somePage.aspx"
^DD(8994.51,.04,21,13,0)=" "
^DD(8994.51,.04,21,14,0)="This field is only used if the CALLBACKTYPE (#.01) value is H for HTTP"
^DD(8994.51,.04,"DT")="3060407"
^DD(8994.51,"B","CALLBACKPORT",.02)=""
^DD(8994.51,"B","CALLBACKSERVER",.03)=""
^DD(8994.51,"B","CALLBACKTYPE",.01)=""
^DD(8994.51,"B","URLSTRING",.04)=""
^DD(8994.51,"GL",0,1,.01)=""
^DD(8994.51,"GL",0,2,.02)=""
^DD(8994.51,"GL",0,3,.03)=""
^DD(8994.51,"GL",0,4,.04)=""
^DD(8994.51,"IX",.01)=""
^DD(8994.51,"RQ",.01)=""
^DD(8994.51,"RQ",.02)=""
^DD(8994.51,"RQ",.03)=""
^DD(177100.12,0)="FIELD^^25^26"
^DD(177100.12,0,"DDA")="N"
^DD(177100.12,0,"DT")="3040201"
^DD(177100.12,0,"IX","B",177100.12,.01)=""
^DD(177100.12,0,"NM","CPRS MONITOR")=""
^DD(177100.12,0,"VR")="7.3"
^DD(177100.12,0,"VRPK")="XT"
^DD(177100.12,.01,0)="FACILITY^RP4'X^DIC(4,^0;1^S DINUM=1 Q"
^DD(177100.12,.01,1,0)="^.1"
^DD(177100.12,.01,1,1,0)="177100.12^B"
^DD(177100.12,.01,1,1,1)="S ^AWC(177100.12,""B"",$E(X,1,30),DA)="""""
^DD(177100.12,.01,1,1,2)="K ^AWC(177100.12,""B"",$E(X,1,30),DA)"
^DD(177100.12,.01,1,2,0)="^^TRIGGER^177100.12^1.5"
^DD(177100.12,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AWC(177100.12,D0,1)):^(1),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(177100.12,.01,1,2,1.1) X ^DD(177100.12,.01,1,2,1.4)"
^DD(177100.12,.01,1,2,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(177100.12,.01,1,2,1.4)="S DIH=$G(^AWC(177100.12,DIV(0),1)),DIV=X S $P(^(1),U,2)=DIV,DIH=177100.12,DIG=1.5 D ^DICR"
^DD(177100.12,.01,1,2,2)="Q"
^DD(177100.12,.01,1,2,"%D",0)="^^1^1^3031228^"
^DD(177100.12,.01,1,2,"%D",1,0)="Stuff the station number into field 1.5 when Facility is entered."
^DD(177100.12,.01,1,2,"CREATE VALUE")="FACILITY:#99"
^DD(177100.12,.01,1,2,"DELETE VALUE")="NO EFFECT"
^DD(177100.12,.01,1,2,"DT")="3031228"
^DD(177100.12,.01,1,2,"FIELD")="#1.5"
^DD(177100.12,.01,3)="Enter the station number or name of the main facility where this software will run."
^DD(177100.12,.01,21,0)="^^2^2^3031226^"
^DD(177100.12,.01,21,1,0)="This is a pointer to file 4, the INSTITUTION file which will provide the"
^DD(177100.12,.01,21,2,0)="name of your facility."
^DD(177100.12,.01,"DT")="3031228"
^DD(177100.12,1,0)="TIU TAB^RS^1:ON;0:OFF;^0;2^Q"
^DD(177100.12,1,3)="Enter 1 for ON, 0 for OFF, or you may type in ON or OFF."
^DD(177100.12,1,21,0)="^^2^2^3030801^"
^DD(177100.12,1,21,1,0)="This is a logical switch that controls whether data is captured for the"
^DD(177100.12,1,21,2,0)="item."
^DD(177100.12,1,"DT")="3031230"
^DD(177100.12,1.2,0)="SYSTEM ACTIVE^RS^1:YES;0:NO;^0;17^Q"
^DD(177100.12,1.2,3)="Enter Y or 1 to turn the data capture on or N or 0 to turn it off."
^DD(177100.12,1.2,21,0)="^^1^1^3030821^"
^DD(177100.12,1.2,21,1,0)="This is the master switch for the entire data capture system."
^DD(177100.12,1.2,"DT")="3031230"
^DD(177100.12,1.5,0)="STATION NUMBER^F^^1;2^K:$L(X)>3!($L(X)<3)!'(X?3N) X"
^DD(177100.12,1.5,3)="This field is triggered by the FACILITY field (#.01)."
^DD(177100.12,1.5,5,1,0)="177100.12^.01^2"
^DD(177100.12,1.5,21,0)="^^3^3^3031226^"
^DD(177100.12,1.5,21,1,0)="This is the local station number and is triggered by field .01, the "
^DD(177100.12,1.5,21,2,0)="FACILITY field. All national statistics will be aggregated under this"
^DD(177100.12,1.5,21,3,0)="number."
^DD(177100.12,1.5,"DT")="3031226"
^DD(177100.12,2,0)="LAB COVERSHEET^RS^1:ON;0:OFF;^0;3^Q"
^DD(177100.12,2,3)="Enter 1 for ON, 0 for OFF, or you may type in ON or OFF."
^DD(177100.12,2,21,0)="^^2^2^3030801^"
^DD(177100.12,2,21,1,0)="This is a logical switch that controls whether data is captured for the"
^DD(177100.12,2,21,2,0)="item."
^DD(177100.12,2,"DT")="3031230"
^DD(177100.12,3,0)="REMINDERS COVERSHEET^RS^1:ON;0:OFF;^0;4^Q"
^DD(177100.12,3,3)="Enter 1 for ON, 0 for OFF, or you may type in ON or OFF."
^DD(177100.12,3,21,0)="^^2^2^3030801^"
^DD(177100.12,3,21,1,0)="This is a logical switch that controls whether data is captured for the"
^DD(177100.12,3,21,2,0)="item."
^DD(177100.12,3,"DT")="3031230"
^DD(177100.12,4,0)="HFS LOCATION^RF^^0;5^K:$L(X)>40!($L(X)<3) X"
^DD(177100.12,4,3)="Answer must be 3-40 characters in length.  This is a required field."
^DD(177100.12,4,21,0)="^^5^5^3031228^"
^DD(177100.12,4,21,1,0)="This is a host file location that will be used to write the html pages to "
^DD(177100.12,4,21,2,0)="be sent by ftp to the web server.  This may be any directory accessible "
^DD(177100.12,4,21,3,0)="by the operating system. It should be noted that the proper permissions "
^DD(177100.12,4,21,4,0)="must exist on the directory, e.g., read, write, and delete for all "
^DD(177100.12,4,21,5,0)="functions to work properly."
^DD(177100.12,4,"DT")="3031228"
^DD(177100.12,5,0)="WEB PAGE NAME^RFX^^0;6^K:$L(X)>20!($L(X)<5) X I $D(X) K:""^.html^.htm^.HTML^.HTM^""[(U_"".""_$P(X,""."",2)_U) X"
^DD(177100.12,5,3)="Enter the name of the web page, without .htm or .html."
^DD(177100.12,5,21,0)="^^2^2^3030828^"
^DD(177100.12,5,21,1,0)="This is the name of the webpage for the server. It may be anything the "
^DD(177100.12,5,21,2,0)="facility wishes."
^DD(177100.12,5,"DT")="3040201"
^DD(177100.12,6,0)="NUMBER OF HOURS TO DISPLAY^RNJ2,0^^0;7^K:+X'=X!(X>12)!(X<5)!(X?.E1"".""1.N) X"
^DD(177100.12,6,3)="Type a number between 5 and 12.  The recommended is eight hours."
^DD(177100.12,6,21,0)="^^1^1^3031226^"
^DD(177100.12,6,21,1,0)="This controls the number of hours displayed on the web page."
^DD(177100.12,6,"DT")="3031226"
^DD(177100.12,7,0)="MAXIMUM SECONDS TO DISPLAY^RNJ3,0^^0;8^K:+X'=X!(X>240)!(X<10)!(X?.E1"".""1.N) X"
^DD(177100.12,7,3)="Type a number between 10 and 240.  The recommended is ten seconds."
^DD(177100.12,7,21,0)="^^3^3^3030828^^"
^DD(177100.12,7,21,1,0)="This field controls how many seconds display on the html graph.  It can "
^DD(177100.12,7,21,2,0)="be set from 10 to 240 seconds.  Anything over 240 will flatline at the top"
^DD(177100.12,7,21,3,0)="of the graph.  "
^DD(177100.12,7,"DT")="3030828"
^DD(177100.12,8,0)="TIU LINE COLOR^RF^^0;9^K:$L(X)>11!($L(X)<5)!'(X?1.3N1"",""1.3N1"",""1.3N) X"
^DD(177100.12,8,3)="Answer must be 5-11 characters in length.  This is an RGB color code.  Example: 100,23,109."
^DD(177100.12,8,21,0)="^.001^2^2^3030801^^^"
^DD(177100.12,8,21,1,0)="The RGB color code for the TIU line.  It must be in the form 1-3 numbers, "
^DD(177100.12,8,21,2,0)="1 comma,1-3 numbers, 1 comma, 1-3 numbers."
^DD(177100.12,8,"DT")="3031230"
^DD(177100.12,9,0)="LAB LINE COLOR^RF^^0;10^K:$L(X)>11!($L(X)<5)!'(X?1.3N1"",""1.3N1"",""1.3N) X"
^DD(177100.12,9,3)="Answer must be 5-11 characters in length.  This is an RGB color code.  Example: 100,23,109."
^DD(177100.12,9,21,0)="^^2^2^3030801^"
^DD(177100.12,9,21,1,0)="The RGB color code for the LAB line.  It must be in the form 1-3 numbers,"
^DD(177100.12,9,21,2,0)="1 comma,1-3 numbers, 1 comma, 1-3 numbers."
^DD(177100.12,9,"DT")="3031205"
^DD(177100.12,10,0)="REMINDERS LINE COLOR^RF^^0;11^K:$L(X)>11!($L(X)<5)!'(X?1.3N1"",""1.3N1"",""1.3N) X"
^DD(177100.12,10,3)="Answer must be 5-11 characters in length.  This is an RGB color code.  Example: 100,23,109."
^DD(177100.12,10,21,0)="^^2^2^3030801^"
^DD(177100.12,10,21,1,0)="The RGB color code for the REMINDER line.  It must be in the form 1-3"
^DD(177100.12,10,21,2,0)="numbers, 1 comma,1-3 numbers, 1 comma, 1-3 numbers."
^DD(177100.12,10,"DT")="3031230"
^DD(177100.12,11,0)="DISPLAY GRID?^RS^0:NO;1:YES;^0;12^Q"
^DD(177100.12,11,3)="Enter 1 or Y to display the grid, 0 or N not to display it."
^DD(177100.12,11,21,0)="^^3^3^3030801^"
^DD(177100.12,11,21,1,0)="This determines whether the graph on the webpage has the grid display off"
^DD(177100.12,11,21,2,0)="or on. It is suggested to leave the grid on at all times to facilitate "
^DD(177100.12,11,21,3,0)="viewing the data values displayed."
^DD(177100.12,11,"DT")="3031228"
^DD(177100.12,12,0)="BACKGROUND COLOR^RFX^^0;13^K:$L(X)>11!($L(X)<5)!'(X?1.3N1"",""1.3N1"",""1.3N) X"
^DD(177100.12,12,3)="Answer must be 5-11 characters in length.  This is an RGB color code.  Example: 100,23,109."
^DD(177100.12,12,21,0)="^^2^2^3030801^"
^DD(177100.12,12,21,1,0)="The RGB color code for the graph background.  It must be in the form 1-3"
^DD(177100.12,12,21,2,0)="numbers, 1 comma,1-3 numbers, 1 comma, 1-3 numbers. Example: 100,23,109."
^DD(177100.12,12,"DT")="3031205"
^DD(177100.12,13,0)="NUMBER OF DAYS TO KEEP DATA^NJ4,0^^0;14^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1.N) X"
^DD(177100.12,13,3)="Type a number between 1 and 9999, 0 Decimal Digits"
^DD(177100.12,13,21,0)="^^3^3^3031228^"
^DD(177100.12,13,21,1,0)="This is the number of days to keep the data on file.  It is suggested to "
^DD(177100.12,13,21,2,0)="keep the maximum on file so as to be able to produce trends with VA "
^DD(177100.12,13,21,3,0)="Fileman.  You may select from 1 day to 9999 days."
^DD(177100.12,13,"DT")="3031228"
^DD(177100.12,14,0)="WEB PAGE ROOT LOCATION^RF^^0;15^K:$L(X)>50!($L(X)<1) X"
^DD(177100.12,14,3)="Answer must be 1-50 characters in length.  This entry should not end in / ."
^DD(177100.12,14,21,0)="^^16^16^3031226^"
^DD(177100.12,14,21,1,0)="This is the root of the web page to be able to display other divisions.  "
^DD(177100.12,14,21,2,0)="It is also used to enable the auto-refresh of the web pages."
^DD(177100.12,14,21,3,0)=" "
^DD(177100.12,14,21,4,0)="The proper format is: vaww.facility.med.va.gov/web server foldername. You"
^DD(177100.12,14,21,5,0)="do not have to have a ""/"" on the end."
^DD(177100.12,14,21,6,0)=" "
^DD(177100.12,14,21,7,0)="If this is not filled in properly, the other sites (divisions, satellite "
^DD(177100.12,14,21,8,0)="offices, CBOCs, etc.) will not display properly."
^DD(177100.12,14,21,9,0)=" "
^DD(177100.12,14,21,10,0)="Example: web server folder name for monitor page: cprsmonitor"
^DD(177100.12,14,21,11,0)="                                                  ==========="
^DD(177100.12,14,21,12,0)="         facility name: zzzhospital"
^DD(177100.12,14,21,13,0)="                        ==========="
^DD(177100.12,14,21,14,0)="The entry would be:  vaww.zzzhospital.med.va.gov/cprsmonitor"
^DD(177100.12,14,21,15,0)=" "
^DD(177100.12,14,21,16,0)="Each satellite office page will be appended to this to make a full URL."
^DD(177100.12,14,"DT")="3031226"
^DD(177100.12,17,0)="WEB SERVER ADDRESS^RFX^^1;3^K:$L(X)>50!($L(X)<7) X"
^DD(177100.12,17,3)="Answer must be 7-50 characters in length and a valid DNS entry."
^DD(177100.12,17,21,0)="^^2^2^3030828^"
^DD(177100.12,17,21,1,0)="This is the IP address of the webserver that will display the monitor "
^DD(177100.12,17,21,2,0)="page."
^DD(177100.12,17,"DT")="3031226"
^DD(177100.12,18,0)="WEB SERVER FTP USER^RF^^1;4^K:$L(X)>30!($L(X)<3) X"
^DD(177100.12,18,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(177100.12,18,2.1)="S Y=""<Hidden>"""
^DD(177100.12,18,3)="Answer must be 3-30 characters in length."
^DD(177100.12,18,21,0)="^^8^8^3031224^"
^DD(177100.12,18,21,1,0)="This is the NT username that will be used to log into the WEB SITE FTP"
^DD(177100.12,18,21,2,0)="server where the facility monitor pages are stored. It must be a valid NT"
^DD(177100.12,18,21,3,0)="account but does not have to be in any groups or have special access."
^DD(177100.12,18,21,4,0)=" "
^DD(177100.12,18,21,5,0)="This field must be input in this way:  domain\username"
^DD(177100.12,18,21,6,0)="                                Like:  vhann\vhaxxxname"
^DD(177100.12,18,21,7,0)=" "
^DD(177100.12,18,21,8,0)="                Example:  vha07\vhabirsmythj"
^DD(177100.12,18,"DT")="3031226"
^DD(177100.12,19,0)="WEB SERVER FTP PASSWORD^RFOX^^1;5^K:$L(X)>16!($L(X)<8) X"
^DD(177100.12,19,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(177100.12,19,2.1)="S Y=""<Hidden>"""
^DD(177100.12,19,3)="This is the NT password for the LOCAL FTP USER."
^DD(177100.12,19,21,0)="^^2^2^3031224^"
^DD(177100.12,19,21,1,0)="This is the password to be used with the username (field 18) to log into "
^DD(177100.12,19,21,2,0)="the WEB SITE FTP server where the monitor pages are stored."
^DD(177100.12,19,"DT")="3031224"
^DD(177100.12,20,0)="NATIONAL FTP SERVER ADDRESS^RFX^^1;6^K:$L(X)>50!($L(X)<7) X"
^DD(177100.12,20,3)="Answer must be 7-50 characters in length and must be a valid DNS entry."
^DD(177100.12,20,21,0)="^^2^2^3031226^"
^DD(177100.12,20,21,1,0)="This is the DNS of the National server which will keep the national cprs"
^DD(177100.12,20,21,2,0)="monitor time aggregation for the nation."
^DD(177100.12,20,"DT")="3031226"
^DD(177100.12,21,0)="NATIONAL FTP USER^RF^^1;7^K:$L(X)>30!($L(X)<3) X"
^DD(177100.12,21,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(177100.12,21,2.1)="S Y=""<Hidden>"""
^DD(177100.12,21,3)="Answer must be 3-30 characters in length.  This is the National ftp user name."
^DD(177100.12,21,21,0)="^^1^1^3031226^"
^DD(177100.12,21,21,1,0)="This is the NT username for the National CPRS monitor times web server.  "
^DD(177100.12,21,"DT")="3031226"
^DD(177100.12,22,0)="NATIONAL FTP PASSWORD^RFOX^^1;8^K:$L(X)>16!($L(X)<8) X"
^DD(177100.12,22,2)="S Y(0)=Y S Y=""<Hidden>"""
^DD(177100.12,22,2.1)="S Y=""<Hidden>"""
^DD(177100.12,22,3)="This is the FTP password to roll up the national data."
^DD(177100.12,22,21,0)="^^2^2^3030828^"
^DD(177100.12,22,21,1,0)="This is the password used with the NATIONAL FTP USER to access the "
^DD(177100.12,22,21,2,0)="National CPRS Monitor ftp site to roll up the data."
^DD(177100.12,22,"DT")="3030915"
^DD(177100.12,23,0)="LOG VMS FTP ACTIVITY^S^1:YES;0:NO;^0;16^Q"
^DD(177100.12,23,3)="Enter 1 to log VMS activity or 0 (or enter nothing) to not log VMS activity."
^DD(177100.12,23,21,0)="^^1^1^3031118^"
^DD(177100.12,23,21,1,0)="Turns on or off VMS FTP activity logging.  This affects VMS sites only."
^DD(177100.12,23,"DT")="3031226"
^DD(177100.12,24,0)="DELETE OLD COM FILES (VMS)^S^0:NO;1:YES;^0;18^Q"
^DD(177100.12,24,3)="Enter Y or 1 to delete the AWCMOVEHTM.COM after ftp or N or 0 (or nothing) to leave them.  This affects VMS sites only."
^DD(177100.12,24,21,0)="^^2^2^3031118^"
^DD(177100.12,24,21,1,0)="Controls the deletion of web pages after the ftp process has completed.  "
^DD(177100.12,24,21,2,0)="This affects VMS sites only."
^DD(177100.12,24,"DT")="3031226"
^DD(177100.12,25,0)="USE 'CD' COMMAND IN FTP SCRIPT^S^0:NO;1:YES;^0;19^Q"
^DD(177100.12,25,3)="If your site web server setup requires a ""change directory"" command, enter 1 for YES. If you change this value, always check to make sure it does what you want."
^DD(177100.12,25,21,0)="^^26^26^3040130^"
^DD(177100.12,25,21,1,0)=" "
^DD(177100.12,25,21,2,0)="This field controls an additional instruction for the VMS com files that"
^DD(177100.12,25,21,3,0)="this application constructs during exection. The com file has commands for"
^DD(177100.12,25,21,4,0)="the FTP program to move a web page to a server."
^DD(177100.12,25,21,5,0)=" "
^DD(177100.12,25,21,6,0)="Some sites, according to the revision of they have (Windows 2000 "
^DD(177100.12,25,21,7,0)="server versus Windows 2003 server) and may arrive in the FTP root "
^DD(177100.12,25,21,8,0)="directory and may need to issue this command to go to the correct "
^DD(177100.12,25,21,9,0)="directory:"
^DD(177100.12,25,21,10,0)=" "
^DD(177100.12,25,21,11,0)="        where 'mydirectory' is the name of the directory that needs"
^DD(177100.12,25,21,12,0)="          to be changed to:"
^DD(177100.12,25,21,13,0)=" "
^DD(177100.12,25,21,14,0)="                cd mydirectory"
^DD(177100.12,25,21,15,0)=" "
^DD(177100.12,25,21,16,0)="Setting this field to 1 or YES will insert the above command into the "
^DD(177100.12,25,21,17,0)="script and force a directory change."
^DD(177100.12,25,21,18,0)=" "
^DD(177100.12,25,21,19,0)="The necessity of this command is dictated by the IIS revision.  Under"
^DD(177100.12,25,21,20,0)="IIS versions less than v6, a proper virtual directory access is not"
^DD(177100.12,25,21,21,0)="feasible and the command must be used."
^DD(177100.12,25,21,22,0)="SURE to check the success."
^DD(177100.12,25,21,23,0)=" "
^DD(177100.12,25,21,24,0)="NT sites do not need this switch but if used will not interfere with the "
^DD(177100.12,25,21,25,0)="transfer.  VMS sites must be careful because if you issue this command "
^DD(177100.12,25,21,26,0)="and it is not needed, the com file will fail."
^DD(177100.12,25,"DT")="3040130"
^DD(177100.12,"B","BACKGROUND COLOR",12)=""
^DD(177100.12,"B","DELETE OLD COM FILES (VMS)",24)=""
^DD(177100.12,"B","DISPLAY GRID?",11)=""
^DD(177100.12,"B","FACILITY",.01)=""
^DD(177100.12,"B","HFS LOCATION",4)=""
^DD(177100.12,"B","LAB COVERSHEET",2)=""
^DD(177100.12,"B","LAB LINE COLOR",9)=""
^DD(177100.12,"B","LOG VMS FTP ACTIVITY",23)=""
^DD(177100.12,"B","MAXIMUM SECONDS TO DISPLAY",7)=""
^DD(177100.12,"B","NATIONAL FTP PASSWORD",22)=""
^DD(177100.12,"B","NATIONAL FTP SERVER ADDRESS",20)=""
^DD(177100.12,"B","NATIONAL FTP USER",21)=""
^DD(177100.12,"B","NUMBER OF DAYS TO KEEP DATA",13)=""
^DD(177100.12,"B","NUMBER OF HOURS TO DISPLAY",6)=""
^DD(177100.12,"B","REMINDERS COVERSHEET",3)=""
^DD(177100.12,"B","REMINDERS LINE COLOR",10)=""
^DD(177100.12,"B","STATION NUMBER",1.5)=""
^DD(177100.12,"B","SYSTEM ACTIVE",1.2)=""
^DD(177100.12,"B","TIU LINE COLOR",8)=""
^DD(177100.12,"B","TIU TAB",1)=""
^DD(177100.12,"B","USE 'CD' COMMAND IN FTP SCRIPT",25)=""
^DD(177100.12,"B","WEB PAGE NAME",5)=""
^DD(177100.12,"B","WEB PAGE ROOT LOCATION",14)=""
^DD(177100.12,"B","WEB SERVER ADDRESS",17)=""
^DD(177100.12,"B","WEB SERVER FTP PASSWORD",19)=""
^DD(177100.12,"B","WEB SERVER FTP USER",18)=""
^DD(177100.12,"GL",0,1,.01)=""
^DD(177100.12,"GL",0,2,1)=""
^DD(177100.12,"GL",0,3,2)=""
^DD(177100.12,"GL",0,4,3)=""
^DD(177100.12,"GL",0,5,4)=""
^DD(177100.12,"GL",0,6,5)=""
^DD(177100.12,"GL",0,7,6)=""
^DD(177100.12,"GL",0,8,7)=""
^DD(177100.12,"GL",0,9,8)=""
^DD(177100.12,"GL",0,10,9)=""
^DD(177100.12,"GL",0,11,10)=""
^DD(177100.12,"GL",0,12,11)=""
^DD(177100.12,"GL",0,13,12)=""
^DD(177100.12,"GL",0,14,13)=""
^DD(177100.12,"GL",0,15,14)=""
^DD(177100.12,"GL",0,16,23)=""
^DD(177100.12,"GL",0,17,1.2)=""
^DD(177100.12,"GL",0,18,24)=""
^DD(177100.12,"GL",0,19,25)=""
^DD(177100.12,"GL",1,2,1.5)=""
^DD(177100.12,"GL",1,3,17)=""
^DD(177100.12,"GL",1,4,18)=""
^DD(177100.12,"GL",1,5,19)=""
^DD(177100.12,"GL",1,6,20)=""
^DD(177100.12,"GL",1,7,21)=""
^DD(177100.12,"GL",1,8,22)=""
^DD(177100.12,"IX",.01)=""
^DD(177100.12,"RQ",.01)=""
^DD(177100.12,"RQ",1)=""
^DD(177100.12,"RQ",1.2)=""
^DD(177100.12,"RQ",2)=""
^DD(177100.12,"RQ",3)=""
^DD(177100.12,"RQ",4)=""
^DD(177100.12,"RQ",5)=""
^DD(177100.12,"RQ",6)=""
^DD(177100.12,"RQ",7)=""
^DD(177100.12,"RQ",8)=""
^DD(177100.12,"RQ",9)=""
^DD(177100.12,"RQ",10)=""
^DD(177100.12,"RQ",11)=""
^DD(177100.12,"RQ",12)=""
^DD(177100.12,"RQ",14)=""
^DD(177100.12,"RQ",17)=""
^DD(177100.12,"RQ",18)=""
^DD(177100.12,"RQ",19)=""
^DD(177100.12,"RQ",20)=""
^DD(177100.12,"RQ",21)=""
^DD(177100.12,"RQ",22)=""
^DD(177100.13,0)="FIELD^^5^6"
^DD(177100.13,0,"DDA")="N"
^DD(177100.13,0,"DT")="3030712"
^DD(177100.13,0,"IX","B",177100.13,.01)=""
^DD(177100.13,0,"IX","C",177100.13,3)=""
^DD(177100.13,0,"NM","CPRS MONITOR DATA")=""
^DD(177100.13,.01,0)="ENTRY NUMBER^RF^^0;1^K:$L(X)>100!($L(X)<1)!'(X?1.100N) X"
^DD(177100.13,.01,1,0)="^.1"
^DD(177100.13,.01,1,1,0)="177100.13^B"
^DD(177100.13,.01,1,1,1)="S ^AWC(177100.13,""B"",$E(X,1,30),DA)="""""
^DD(177100.13,.01,1,1,2)="K ^AWC(177100.13,""B"",$E(X,1,30),DA)"
^DD(177100.13,.01,3)="The entry number for the record.  This is system maintained."
^DD(177100.13,.01,21,0)="^^2^2^3030801^"
^DD(177100.13,.01,21,1,0)="This is the internal entry number of the data.  It is manually calculated "
^DD(177100.13,.01,21,2,0)="(""next available"") by the editing routine."
^DD(177100.13,.01,"DT")="3030702"
^DD(177100.13,1,0)="SECONDS^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(177100.13,1,3)="The number of calculated seconds response time."
^DD(177100.13,1,21,0)="^^2^2^3030801^"
^DD(177100.13,1,21,1,0)="This field represents the total number of seconds required to retrieve the"
^DD(177100.13,1,21,2,0)="various CPRS data."
^DD(177100.13,1,"DT")="3030709"
^DD(177100.13,2,0)="USER^P200'^VA(200,^0;3^Q"
^DD(177100.13,2,3)="The DUZ of the user that used the CPRS GUI."
^DD(177100.13,2,21,0)="^^1^1^3030801^"
^DD(177100.13,2,21,1,0)="The DUZ of the user who was using the CPRS GUI."
^DD(177100.13,2,"DT")="3030709"
^DD(177100.13,3,0)="TRAN DATE/TIME^D^^0;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(177100.13,3,1,0)="^.1^^0"
^DD(177100.13,3,1,1,0)="177100.13^C"
^DD(177100.13,3,1,1,1)="S ^AWC(177100.13,""C"",$E(X,1,30),DA)="""""
^DD(177100.13,3,1,1,2)="K ^AWC(177100.13,""C"",$E(X,1,30),DA)"
^DD(177100.13,3,1,1,"%D",0)="^.101^1^1^3030825^^"
^DD(177100.13,3,1,1,"%D",1,0)="Used to sort the HTML report for the web page."
^DD(177100.13,3,1,1,"DT")="3030702"
^DD(177100.13,3,3)="The Fileman date/time of the starting $H."
^DD(177100.13,3,21,0)="^^2^2^3030801^"
^DD(177100.13,3,21,1,0)="This field is used to create a cross-reference for sorting the data for "
^DD(177100.13,3,21,2,0)="the web page."
^DD(177100.13,3,"DT")="3030801"
^DD(177100.13,4,0)="DIVISION^P4'^DIC(4,^0;5^Q"
^DD(177100.13,4,1,0)="^.1^^0"
^DD(177100.13,4,3)="The division of the user."
^DD(177100.13,4,21,0)="^^2^2^3030801^"
^DD(177100.13,4,21,1,0)="This is the division (DUZ(2) variable) for the user. It is used to report "
^DD(177100.13,4,21,2,0)="multiple facilities on different web pages."
^DD(177100.13,4,"DT")="3030829"
^DD(177100.13,5,0)="TYPE^S^1:TIU TAB;2:LAB TAB;3:REMINDER TAB;^0;6^Q"
^DD(177100.13,5,1,0)="^.1^^0"
^DD(177100.13,5,3)="The type of information that was accessed in the CPRS GUI."
^DD(177100.13,5,21,0)="^^5^5^3030801^"
^DD(177100.13,5,21,1,0)="This is the numeric value of type of data reported:"
^DD(177100.13,5,21,2,0)=" "
^DD(177100.13,5,21,3,0)="        1 - TIU tab"
^DD(177100.13,5,21,4,0)="        2 - LAB info"
^DD(177100.13,5,21,5,0)="        3 - Reminder info"
^DD(177100.13,5,"DT")="3030824"
^DD(177100.13,"B","DIVISION",4)=""
^DD(177100.13,"B","ENTRY NUMBER",.01)=""
^DD(177100.13,"B","SECONDS",1)=""
^DD(177100.13,"B","TRAN DATE/TIME",3)=""
^DD(177100.13,"B","TYPE",5)=""
^DD(177100.13,"B","USER",2)=""
^DD(177100.13,"GL",0,1,.01)=""
^DD(177100.13,"GL",0,2,1)=""
^DD(177100.13,"GL",0,3,2)=""
^DD(177100.13,"GL",0,4,3)=""
^DD(177100.13,"GL",0,5,4)=""
^DD(177100.13,"GL",0,6,5)=""
^DD(177100.13,"IX",.01)=""
^DD(177100.13,"IX",3)=""
^DD(177100.13,"RQ",.01)=""
^DD(503330,0)="FIELD^^34^34"
^DD(503330,0,"DDA")="N"
^DD(503330,0,"DT")="3000301"
^DD(503330,0,"ID",1)="W """""
^DD(503330,0,"IX","AB",503330.01,.5)=""
^DD(503330,0,"IX","AC",503330,7)=""
^DD(503330,0,"IX","AD",503330,6)=""
^DD(503330,0,"IX","AE",503330,.7)=""
^DD(503330,0,"IX","AF",503330.01,11)=""
^DD(503330,0,"IX","AG",503330.01,12)=""
^DD(503330,0,"IX","B",503330,.01)=""
^DD(503330,0,"IX","C",503330,27)=""
^DD(503330,0,"IX","D",503330,1)=""
^DD(503330,0,"IX","E",503330.121,.01)=""
^DD(503330,0,"NM","VOLUNTARY MASTER")=" "
^DD(503330,0,"PT",503330.1,.01)=""
^DD(503330,0,"PT",503330.2,.01)=""
^DD(503330,0,"PT",503331,.01)=""
^DD(503330,0,"PT",503335,.01)=""
^DD(503330,0,"VR")="4.0"
^DD(503330,0,"VRPK")="ABSV"
^DD(503330,.01,0)="VOLUNTEER^FX^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3)!(X'?1U.UP1"",""."" ""1U.UP) X I $D(X) D NAME^ABSVTIME"
^DD(503330,.01,1,0)="^.1"
^DD(503330,.01,1,1,0)="503330^B"
^DD(503330,.01,1,1,1)="S ^ABS(503330,""B"",$E(X,1,30),DA)="""""
^DD(503330,.01,1,1,2)="K ^ABS(503330,""B"",$E(X,1,30),DA)"
^DD(503330,.01,1,2,0)="^^TRIGGER^503330^27"
^DD(503330,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(503330,.01,1,2,1.1) X ^DD(503330,.01,1,2,1.4)"
^DD(503330,.01,1,2,1.1)="S X=DIV X ^DD(503330,.01,1,2,49.2) S X=$E(Y(4),Y(5),X) S Y=X,X=Y(1),X=X_Y"
^DD(503330,.01,1,2,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="""" X ^DD(503330,.01,1,2,2.4)"
^DD(503330,.01,1,2,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330,.01,1,2,49.2)="S Y(3)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=DIV,X=$E(X),Y(1)=X,Y(2)=X S X=$P(Y(3),U,2),X=X S X=X,Y(4)=X S X=6,Y(5)=X S X=9"
^DD(503330,.01,1,2,"%D",0)="^^2^2^2940608^"
^DD(503330,.01,1,2,"%D",1,0)="Generates the CODE field of the file based upon the VOLUNTEER name and"
^DD(503330,.01,1,2,"%D",2,0)="SOCIAL SECURITY NUMBER."
^DD(503330,.01,1,2,"CREATE VALUE")="$E(VOLUNTEER)_$E(INTERNAL(SOCIAL SECURITY NUMBER),6,9)"
^DD(503330,.01,1,2,"DELETE VALUE")="@"
^DD(503330,.01,1,2,"DT")="2940608"
^DD(503330,.01,1,2,"FIELD")="CODE"
^DD(503330,.01,1,3,0)="^^TRIGGER^503330^.7"
^DD(503330,.01,1,3,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV,X=$E(X) X ^DD(503330,.01,1,3,1.4)"
^DD(503330,.01,1,3,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,3)=DIV,DIH=503330,DIG=.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330,.01,1,3,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,2)):^(2),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(503330,.01,1,3,2.4)"
^DD(503330,.01,1,3,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,3)=DIV,DIH=503330,DIG=.7 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330,.01,1,3,"%D",0)="^^1^1^2990308^"
^DD(503330,.01,1,3,"%D",1,0)="This trigger moves the first character of the last name into field .7."
^DD(503330,.01,1,3,"CREATE VALUE")="$E(VOLUNTEER)"
^DD(503330,.01,1,3,"DELETE VALUE")="@"
^DD(503330,.01,1,3,"DT")="2990308"
^DD(503330,.01,1,3,"FIELD")="FIRST CHAR"
^DD(503330,.01,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH.  ENTER LAST NAME, FIRST NAME, MI IN THE FOLLOWING FORMAT:  TEST,TOMMY T."
^DD(503330,.01,21,0)="^^3^3^2930323^^^^"
^DD(503330,.01,21,1,0)="This field contains the first and last name of the volunteer in the format"
^DD(503330,.01,21,2,0)="LASTNAME,FIRSTNAME MI."
^DD(503330,.01,21,3,0)=" "
^DD(503330,.01,23,0)="^^1^1^2930323^^^^"
^DD(503330,.01,23,1,0)=" "
^DD(503330,.01,"DEL",1,0)="I '$D(ABS(""DELETE NAME""))"
^DD(503330,.01,"DT")="2990308"
^DD(503330,.1,0)="STATION NAME^503330.01P^^4;0"
^DD(503330,.1,21,0)="^^2^2^2980401^^^^"
^DD(503330,.1,21,1,0)="The fields of this multiple contains information about the volunteer which"
^DD(503330,.1,21,2,0)="is specific to a particular station."
^DD(503330,.5,0)="LOWERCASE PRINTING NAME^CJ30^^ ; ^X ^DD(503330,.5,9.9) S X=$S(Y(503330,.5,12):Y(503330,.5,17),Y(503330,.5,18):X) S Y=X,X=Y(503330,.5,7),X=X_Y"
^DD(503330,.5,9)="^"
^DD(503330,.5,9.01)="503330^.01"
^DD(503330,.5,9.1)="LOWERCASE($P(VOLUNTEER,"","",2)_"" ""_$P(VOLUNTEER,"","",1))_$S($P(VOLUNTEER,"","",3,99)]"""":"", ""_$P(VOLUNTEER,"","",3,99),1:"""")"
^DD(503330,.5,9.2)="S Y(503330,.5,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(503330,.5,1),U,1),Y(503330,.5,2)=X S X="","",Y(503330,.5,3)=X S X=2"
^DD(503330,.5,9.3)="X ^DD(503330,.5,9.2) S X=$P(Y(503330,.5,2),Y(503330,.5,3),X)_"" "",Y(503330,.5,4)=X S X=$P(Y(503330,.5,1),U,1),Y(503330,.5,5)=X S X="","",Y(503330,.5,6)=X S X=1"
^DD(503330,.5,9.4)="X ^DD(503330,.5,9.3) S X=$P(Y(503330,.5,5),Y(503330,.5,6),X) S Y=X,X=Y(503330,.5,4),X=X_Y"
^DD(503330,.5,9.5)="X ^DD(503330,.5,9.4) X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"" S X=X,Y(503330,.5,7)=X,Y(503330,.5,8)=X"
^DD(503330,.5,9.6)="X ^DD(503330,.5,9.5) S X=$P(Y(503330,.5,1),U,1),Y(503330,.5,9)=X S X="","",Y(503330,.5,10)=X S X=3,Y(503330,.5,11)=X S X=99"
^DD(503330,.5,9.7)="X ^DD(503330,.5,9.6) S X=$P(Y(503330,.5,9),Y(503330,.5,10),Y(503330,.5,11),X)]"""",Y(503330,.5,12)=X S X="", "",Y(503330,.5,13)=X S X=$P(Y(503330,.5,1),U,1)"
^DD(503330,.5,9.8)="X ^DD(503330,.5,9.7) S Y(503330,.5,14)=X S X="","",Y(503330,.5,15)=X S X=3,Y(503330,.5,16)=X S X=99"
^DD(503330,.5,9.9)="X ^DD(503330,.5,9.8) S X=$P(Y(503330,.5,14),Y(503330,.5,15),Y(503330,.5,16),X) S Y=X,X=Y(503330,.5,13),X=X_Y,Y(503330,.5,17)=X S X=1,Y(503330,.5,18)=X S X="""""
^DD(503330,.5,21,0)="^^2^2^2930313^^"
^DD(503330,.5,21,1,0)="This field contains the name of the volunteer, in lowercase, in the format"
^DD(503330,.5,21,2,0)="FirstName MI. Lastname. "
^DD(503330,.5,23,0)="^^1^1^2930313^^"
^DD(503330,.5,23,1,0)="This field is computed from the .01 field."
^DD(503330,.5,"DT")="2930202"
^DD(503330,.6,0)="UPPERCASE PRINTING NAME^CJ30^^ ; ^X ^DD(503330,.6,9.7) S Y(503330,.6,18)=X S X="""",X=$S(Y(503330,.6,12):Y(503330,.6,17),Y(503330,.6,18):X) S Y=X,X=Y(503330,.6,7),X=X_Y"
^DD(503330,.6,9)="^"
^DD(503330,.6,9.01)="503330^.01"
^DD(503330,.6,9.1)="$P(VOLUNTEER,"","",2)_"" ""_$P(VOLUNTEER,"","",1)_$S($P(VOLUNTEER,"","",3,99)]"""":"", ""_$P(VOLUNTEER,"","",3,99),1:"""")"
^DD(503330,.6,9.2)="S Y(503330,.6,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(503330,.6,1),U,1),Y(503330,.6,2)=X S X="","",Y(503330,.6,3)=X S X=2"
^DD(503330,.6,9.3)="X ^DD(503330,.6,9.2) S X=$P(Y(503330,.6,2),Y(503330,.6,3),X)_"" "",Y(503330,.6,4)=X S X=$P(Y(503330,.6,1),U,1),Y(503330,.6,5)=X S X="","",Y(503330,.6,6)=X S X=1"
^DD(503330,.6,9.4)="X ^DD(503330,.6,9.3) S X=$P(Y(503330,.6,5),Y(503330,.6,6),X) S Y=X,X=Y(503330,.6,4),X=X_Y,Y(503330,.6,7)=X,Y(503330,.6,8)=X S X=$P(Y(503330,.6,1),U,1)"
^DD(503330,.6,9.5)="X ^DD(503330,.6,9.4) S Y(503330,.6,9)=X S X="","",Y(503330,.6,10)=X S X=3,Y(503330,.6,11)=X S X=99,X=$P(Y(503330,.6,9),Y(503330,.6,10),Y(503330,.6,11),X)"
^DD(503330,.6,9.6)="X ^DD(503330,.6,9.5) S X=X]"""",Y(503330,.6,12)=X S X="", "",Y(503330,.6,13)=X S X=$P(Y(503330,.6,1),U,1),Y(503330,.6,14)=X S X="","",Y(503330,.6,15)=X S X=3"
^DD(503330,.6,9.7)="X ^DD(503330,.6,9.6) S Y(503330,.6,16)=X S X=99,X=$P(Y(503330,.6,14),Y(503330,.6,15),Y(503330,.6,16),X) S Y=X,X=Y(503330,.6,13),X=X_Y,Y(503330,.6,17)=X S X=1"
^DD(503330,.6,21,0)="^^2^2^2930313^"
^DD(503330,.6,21,1,0)="This field computes the name of the volunteer in the format"
^DD(503330,.6,21,2,0)="Firstname MI. Lastname"
^DD(503330,.6,23,0)="^^1^1^2930313^"
^DD(503330,.6,23,1,0)="This field is computed from the .01 field."
^DD(503330,.7,0)="FIRST CHARACTER OF LAST NAME^FI^^2;3^K:$L(X)>1!($L(X)<1) X"
^DD(503330,.7,1,0)="^.1"
^DD(503330,.7,1,1,0)="503330^AE"
^DD(503330,.7,1,1,1)="S ^ABS(503330,""AE"",$E(X,1,30),DA)="""""
^DD(503330,.7,1,1,2)="K ^ABS(503330,""AE"",$E(X,1,30),DA)"
^DD(503330,.7,1,1,"%D",0)="^^2^2^2990308^"
^DD(503330,.7,1,1,"%D",1,0)="This xref is used for sorting by first character of last name for games"
^DD(503330,.7,1,1,"%D",2,0)="printouts."
^DD(503330,.7,1,1,"DT")="2990308"
^DD(503330,.7,3)="Answer must be 1 character in length."
^DD(503330,.7,5,1,0)="503330^.01^3"
^DD(503330,.7,9)="^"
^DD(503330,.7,21,0)="^^2^2^2990308^"
^DD(503330,.7,21,1,0)="This field stores the first character of the volunteers' last name for"
^DD(503330,.7,21,2,0)="faster sorting during games prints."
^DD(503330,.7,"DT")="2990308"
^DD(503330,1,0)="SOCIAL SECURITY NUMBER^RFXO^^0;2^K:X[""""""""!($A(X)=45) X S:$D(X) X=$TR(X,""-"") I $D(X) K:X'?9N&(X'?3N1""-""2N1""-""4N) X I $D(X) W:$D(^ABS(503330,""D"",X)) !!,*7,""This SSN already exists."",*7 K:$D(^ABS(503330,""D"",X)) X"
^DD(503330,1,1,0)="^.1"
^DD(503330,1,1,1,0)="^^TRIGGER^503330^27"
^DD(503330,1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y X ^DD(503330,1,1,1,1.1) X ^DD(503330,1,1,1,1.4)"
^DD(503330,1,1,1,1.1)="S X=DIV X ^DD(503330,1,1,1,49.2) S X=$E(Y(4),Y(5),X) S Y=X,X=Y(2),X=X_Y"
^DD(503330,1,1,1,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330,1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="""" X ^DD(503330,1,1,1,2.4)"
^DD(503330,1,1,1,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,22)=DIV,DIH=503330,DIG=27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330,1,1,1,49.2)="S Y(1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(1),U,1),X=$E(X),Y(2)=X,Y(3)=X S X=DIV,X=X S X=X,Y(4)=X S X=6,Y(5)=X S X=9"
^DD(503330,1,1,1,"%D",0)="^^2^2^2920806^"
^DD(503330,1,1,1,"%D",1,0)="Generates the CODE field of the file based upon the VOLUNTEER name and the "
^DD(503330,1,1,1,"%D",2,0)="SOCIAL SECURITY NUMBER."
^DD(503330,1,1,1,"CREATE VALUE")="$E(VOLUNTEER)_$E(INTERNAL(SOCIAL SECURITY NUMBER),6,9)"
^DD(503330,1,1,1,"DELETE VALUE")="@"
^DD(503330,1,1,1,"DT")="2920806"
^DD(503330,1,1,1,"FIELD")="CODE"
^DD(503330,1,1,2,0)="503330^D"
^DD(503330,1,1,2,1)="S ^ABS(503330,""D"",$E(X,1,30),DA)="""""
^DD(503330,1,1,2,2)="K ^ABS(503330,""D"",$E(X,1,30),DA)"
^DD(503330,1,2)="S Y(0)=Y S:Y]"""" Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(503330,1,2.1)="S:Y]"""" Y=$E(Y,1,3)_""-""_$E(Y,4,5)_""-""_$E(Y,6,9)"
^DD(503330,1,3)="Enter Social Security Number, With or Without the dashes."
^DD(503330,1,21,0)="^^2^2^2930313^"
^DD(503330,1,21,1,0)="This field contains the Social Security Number of the volunteer without"
^DD(503330,1,21,2,0)="dashes."
^DD(503330,1,"DT")="2940705"
^DD(503330,2,0)="STREET ADDRESS #1^F^^0;3^K:$L(X)>35!($L(X)<1) X"
^DD(503330,2,3)="Answer must be 1-35 characters in length."
^DD(503330,2,21,0)="^^2^2^2930313^"
^DD(503330,2,21,1,0)="This field contains the first line of the Volunteers address.  It is the"
^DD(503330,2,21,2,0)="ONLY address line transmitted to the Austin DPC."
^DD(503330,2,"DT")="2930202"
^DD(503330,2.5,0)="STREET ADDRESS #2^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(503330,2.5,3)="Answer must be 1-30 characters in length."
^DD(503330,2.5,21,0)="^^2^2^2930313^"
^DD(503330,2.5,21,1,0)="This field contains the second line of the Volunteers streed address.  It"
^DD(503330,2.5,21,2,0)="is NOT transmitted to the Austin DPC."
^DD(503330,2.5,"DT")="2930202"
^DD(503330,3,0)="CITY^RF^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(503330,3,3)="Answer must be 3-30 characters in length."
^DD(503330,3,21,0)="^^1^1^2930313^"
^DD(503330,3,21,1,0)="This field contains the city/town of the volunteer."
^DD(503330,3,"DT")="2930128"
^DD(503330,4,0)="STATE^RP5'^DIC(5,^0;5^Q"
^DD(503330,4,21,0)="^^1^1^2930313^"
^DD(503330,4,21,1,0)="This field contains the state of the volunteers address."
^DD(503330,4.5,0)="STATE ABBREVIATION^CJ2^^ ; ^X ^DD(503330,4.5,9.2) S Y(503330,4.5,101)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(503330,4.5,101),U,2) S D0=Y(503330,4.5,80)"
^DD(503330,4.5,9)="^"
^DD(503330,4.5,9.01)="5^1;503330^4"
^DD(503330,4.5,9.1)="STATE:ABBREVIATION"
^DD(503330,4.5,9.2)="S Y(503330,4.5,80)=$S($D(D0):D0,1:""""),Y(503330,4.5,1)=$S($D(^ABS(503330,D0,0)):^(0),1:""""),D0=$P(Y(503330,4.5,1),U,5) S:'$D(^DIC(5,+D0,0)) D0=-1"
^DD(503330,4.5,21,0)="^^3^3^2970228^^"
^DD(503330,4.5,21,1,0)=" "
^DD(503330,4.5,21,2,0)="This field computes the correct USPS abbreviation for a state from the"
^DD(503330,4.5,21,3,0)="State file. (File 5)"
^DD(503330,5,0)="ZIP CODE^RF^^0;6^K:$L(X)>10!($L(X)<5)!'(X?5N!(X?5N1""-""4N)) X"
^DD(503330,5,3)="Enter in the following format:  11111 or 11111-1111"
^DD(503330,5,21,0)="^^1^1^2930313^"
^DD(503330,5,21,1,0)="This field contains the 5 or 9 digit Zip Code of the volunteers address."
^DD(503330,5,"DT")="2900313"
^DD(503330,5.5,0)="CITY/STATE/ZIP^CJ30^^ ; ^X ^DD(503330,5.5,9.2) S X=X_""  ""_$P(Y(503330,5.5,1),U,6)"
^DD(503330,5.5,9)="^"
^DD(503330,5.5,9.01)="503330^5;503330^4.5;503330^3"
^DD(503330,5.5,9.1)="CITY_"", ""_STATE ABBREVIATION_""  ""_ZIP CODE"
^DD(503330,5.5,9.2)="X $P(^DD(503330,4.5,0),U,5,99) S Y(503330,5.5,2)=X S Y(503330,5.5,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(503330,5.5,1),U,4)_"", ""_Y(503330,5.5,2)"
^DD(503330,6,0)="SEX^RS^G:Girl under 21;F:Female, 21 and over;M:Male, 21 and over;B:Boy under 21;^0;7^Q"
^DD(503330,6,1,0)="^.1"
^DD(503330,6,1,1,0)="503330^AD"
^DD(503330,6,1,1,1)="S ^ABS(503330,""AD"",$E(X,1,30),DA)="""""
^DD(503330,6,1,1,2)="K ^ABS(503330,""AD"",$E(X,1,30),DA)"
^DD(503330,6,1,1,"%D",0)="^^2^2^2930202^"
^DD(503330,6,1,1,"%D",1,0)="This cross reference is in place to allow for quick updating of the SEX field"
^DD(503330,6,1,1,"%D",2,0)="when the age of the volunteer exceeds 19."
^DD(503330,6,1,1,"DT")="2930202"
^DD(503330,6,21,0)="^^3^3^2930324^"
^DD(503330,6,21,1,0)=" "
^DD(503330,6,21,2,0)="This field contains the sex of a volunteer as required by the Volunteer"
^DD(503330,6,21,3,0)="Package at the Austin DPC."
^DD(503330,6,"DT")="2990715"
^DD(503330,7,0)="BIRTH DATE^RDX^^0;8^S %DT=""EP"" D ^%DT S X=Y K:'$$BDATE^ABSVU1(X) X K:Y<1 X"
^DD(503330,7,.1)="Birth Date"
^DD(503330,7,1,0)="^.1"
^DD(503330,7,1,1,0)="503330^AC^MUMPS"
^DD(503330,7,1,1,1)="S $P(^ABS(503330,DA,0),""^"",16)=$E(X,1,5)_""00"""
^DD(503330,7,1,1,2)="S $P(^ABS(503330,DA,0),""^"",16)="""""
^DD(503330,7,1,1,"%D",0)="^^1^1^2940627^"
^DD(503330,7,1,1,"%D",1,0)="Generates the BIRTH MONTH field of the file based upon the BIRTH DATE."
^DD(503330,7,3)="Enter date of birth.  If exact day is not known enter month and year."
^DD(503330,7,21,0)="^^2^2^2980623^^"
^DD(503330,7,21,1,0)="This field contains the complete birth date of the volunteer.  Although"
^DD(503330,7,21,2,0)="Austin does not require entry of day, this package does."
^DD(503330,7,"DT")="2980513"
^DD(503330,7.5,0)="BIRTH MONTH^D^^0;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503330,7.5,.1)="Birth Month"
^DD(503330,7.5,1,0)="^.1^^0"
^DD(503330,7.5,9)="^"
^DD(503330,7.5,21,0)="^^1^1^2930313^"
^DD(503330,7.5,21,1,0)="This field contains the birth month of the volunteer."
^DD(503330,7.5,23,0)="^^1^1^2930313^"
^DD(503330,7.5,23,1,0)="This field is populated by entry of BIRTH DATE.  It is not normally edited by the user."
^DD(503330,7.5,"DT")="2880518"
^DD(503330,8,0)="AGE^CJ8^^ ; ^S X="""",X1=$P($G(^ABS(503330,D0,0)),""^"",8) S:X1 X=$$AGE^ABSVU2(X1)"
^DD(503330,8,9)="^"
^DD(503330,8,9.01)=""
^DD(503330,8,9.1)="S X="""",X1=$P($G(^ABS(503330,D0,0)),""^"",8) S:X1 X=$$AGE^ABSVU2(X1)"
^DD(503330,8,21,0)="^^1^1^2930313^"
^DD(503330,8,21,1,0)="This field dynamically computes the age of the volunteer."
^DD(503330,8,23,0)="^^2^2^2930313^"
^DD(503330,8,23,1,0)="This field computes the age of the volunteer from the birthdate.  It uses"
^DD(503330,8,23,2,0)="the extrinsic function AGE^ABSVU2."
^DD(503330,8.5,0)="COMBINATION^503330.03I^^1;0"
^DD(503330,8.5,21,0)="^^2^2^2930313^"
^DD(503330,8.5,21,1,0)="This multiple field contains the information necessary to calculate and"
^DD(503330,8.5,21,2,0)="store the various combinations for the volunteer."
^DD(503330,8.5,23,0)="^^2^2^2930313^"
^DD(503330,8.5,23,1,0)="This multiple contains all combinations for all stations for this"
^DD(503330,8.5,23,2,0)="volunteer."
^DD(503330,8.5,"DT")="2980512"
^DD(503330,16.9,0)="TELEPHONE^FXO^^3;2^K:'$$VPHONE^ABSVU2(X) X"
^DD(503330,16.9,2)="S Y(0)=Y S Y=$$PHONEOUT^ABSVU2(Y)"
^DD(503330,16.9,2.1)="S Y=$$PHONEOUT^ABSVU2(Y)"
^DD(503330,16.9,3)="Enter phone number in the following format - 814-943-8164 or 814-943-8164 U (unlisted) or 814-943-8164 Xnnnnn"
^DD(503330,16.9,21,0)="^^1^1^2930313^"
^DD(503330,16.9,21,1,0)="This field contains a telephone number for the volunteer."
^DD(503330,16.9,"DT")="2930513"
^DD(503330,16.95,0)="ALTERNATE TELEPHONE^F^^3;7^K:$L(X)>19!($L(X)<1) X"
^DD(503330,16.95,3)="Answer must be 1-19 characters in length."
^DD(503330,16.95,21,0)="^^1^1^2950707^"
^DD(503330,16.95,21,1,0)="This field contains an alternate telephone number for the volunteer."
^DD(503330,16.95,"DT")="2950707"
^DD(503330,17,0)="NEXT OF KIN^F^^3;1^K:$L(X)>30!($L(X)<3) X"
^DD(503330,17,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(503330,17,21,0)="^^3^3^2930324^"
^DD(503330,17,21,1,0)=" "
^DD(503330,17,21,2,0)="This field contains the name of the Next of Kin of the volunteer, for"
^DD(503330,17,21,3,0)="use in an emergency."
^DD(503330,17,"DT")="2861230"
^DD(503330,18,0)="NOK RELATIONSHIP^F^^3;3^K:$L(X)>15!($L(X)<3) X"
^DD(503330,18,.1)="NOK Relationship"
^DD(503330,18,3)="ANSWER MUST BE 3-15 CHARACTERS IN LENGTH"
^DD(503330,18,21,0)="^^2^2^2930313^"
^DD(503330,18,21,1,0)="This field contains the relationship of the person listed as next of kin"
^DD(503330,18,21,2,0)="to the volunteer."
^DD(503330,18,"DT")="2861230"
^DD(503330,19,0)="NOK TELEPHONE^FXO^^3;4^K:'$$VPHONE^ABSVU2(X) X"
^DD(503330,19,.1)="NOK Telephone"
^DD(503330,19,2)="S Y(0)=Y S Y=$$PHONEOUT^ABSVU2(Y)"
^DD(503330,19,2.1)="S Y=$$PHONEOUT^ABSVU2(Y)"
^DD(503330,19,3)="Enter with or without area code and with or without '-'. ie. 5551212 or 555-1212 or 2025551212 or 202-555-1212"
^DD(503330,19,21,0)="^^2^2^2930313^"
^DD(503330,19,21,1,0)="This field contains the primary phone number for reaching the next of kin "
^DD(503330,19,21,2,0)="of the volunteer in an emergency."
^DD(503330,19,"DT")="2930513"
^DD(503330,20,0)="NOK ALTERNATE PHONE^FXO^^3;5^K:'$$VPHONE^ABSVU2(X) X"
^DD(503330,20,.1)="NOK Alternate Phone"
^DD(503330,20,2)="S Y(0)=Y S Y=$$PHONEOUT^ABSVU2(Y)"
^DD(503330,20,2.1)="S Y=$$PHONEOUT^ABSVU2(Y)"
^DD(503330,20,3)="Enter with or without area code and with or without '-'.  ie. 5551212 or 555-1212 or 2025551212 or 202-555-1212"
^DD(503330,20,21,0)="^^2^2^2930313^"
^DD(503330,20,21,1,0)="This field contains an alternate telephone number for reaching the next of "
^DD(503330,20,21,2,0)="kin of the volunteer in an emergency."
^DD(503330,20,"DT")="2930513"
^DD(503330,21,0)="TRANSACTION TYPE^F^^3;6^K:$L(X)>2!($L(X)<2)!'(X?2N) X"
^DD(503330,21,.1)="Transaction Type"
^DD(503330,21,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(503330,21,21,0)="^^3^3^2930324^"
^DD(503330,21,21,1,0)=" "
^DD(503330,21,21,2,0)="This field contains a two character transaction type code from the Austin"
^DD(503330,21,21,3,0)="DPC."
^DD(503330,21,"DT")="2861231"
^DD(503330,23,0)="PSEUDO INDICATOR^F^^0;18^K:$L(X)>1!($L(X)<1)!'(X?1""P"") X"
^DD(503330,23,3)="Enter 'P' if Pseudo indicator or leave blank."
^DD(503330,23,21,0)="^^3^3^2930313^"
^DD(503330,23,21,1,0)="This field contains a 'P' when the social security number of the volunteer"
^DD(503330,23,21,2,0)="is unknown and a Pseudo number has been assigned for identification"
^DD(503330,23,21,3,0)="purposes."
^DD(503330,23,"DT")="2900313"
^DD(503330,27,0)="CODE^FI^^0;22^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<5)!'(X?1A4N) X"
^DD(503330,27,.1)=" "
^DD(503330,27,1,0)="^.1"
^DD(503330,27,1,1,0)="503330^C"
^DD(503330,27,1,1,1)="S ^ABS(503330,""C"",$E(X,1,30),DA)="""""
^DD(503330,27,1,1,2)="K ^ABS(503330,""C"",$E(X,1,30),DA)"
^DD(503330,27,3)="ANSWER MUST BE 5 CHARACTERS IN LENGTH"
^DD(503330,27,5,1,0)="503330^.01^2"
^DD(503330,27,5,2,0)="503330^1^1"
^DD(503330,27,21,0)="^^2^2^2930313^"
^DD(503330,27,21,1,0)="This field contains the first character of the volunteers last name"
^DD(503330,27,21,2,0)="followed by the last 4 numbers of the SSN."
^DD(503330,27,23,0)="^^1^1^2930313^"
^DD(503330,27,23,1,0)="This field is triggered by the .01 and SSN fields of the volunteer."
^DD(503330,27,"DT")="2920806"
^DD(503330,28,0)="NICKNAME^F^^0;9^K:$L(X)>15!($L(X)<1) X"
^DD(503330,28,3)="Answer must be 1-15 characters in length."
^DD(503330,28,21,0)="^^1^1^2930313^"
^DD(503330,28,21,1,0)="This field contains a nickname often used by the volunteer."
^DD(503330,28,23,0)="^^4^4^2930313^"
^DD(503330,28,23,1,0)="If this field is populated, it is presented when the volunteer logs in"
^DD(503330,28,23,2,0)="using the Auto Log-in Feature of this program.  In the event that this"
^DD(503330,28,23,3,0)="field is null, the first name is extracted from the .01 field and"
^DD(503330,28,23,4,0)="used."
^DD(503330,28,"DT")="2900417"
^DD(503330,29,0)="PREFERRED LANGUAGE FOR LOG-IN^S^1:ENGLISH;2:SPANISH;^0;11^Q"
^DD(503330,29,21,0)="^^2^2^2940309^"
^DD(503330,29,21,1,0)="This field contains the individual volunteers selection for display"
^DD(503330,29,21,2,0)="interaction in the Auto Log-in routines."
^DD(503330,29,"DT")="2940310"
^DD(503330,30,0)="GAMES SHIRT SIZE^F^^0;12^K:$L(X)>4!($L(X)<1) X"
^DD(503330,30,3)="Answer must be 1-4 characters in length."
^DD(503330,30,21,0)="^^2^2^2990209^"
^DD(503330,30,21,1,0)="This field is intended for use for volunteer participants in veterans"
^DD(503330,30,21,2,0)="games events."
^DD(503330,30,"DT")="2990209"
^DD(503330,31,0)="GAMES RIDE STATUS^F^^0;13^K:$L(X)>4!($L(X)<1) X"
^DD(503330,31,3)="Answer must be 1-4 characters in length."
^DD(503330,31,"DT")="2990209"
^DD(503330,32,0)="GAMES RIDE STATION^F^^2;1^K:$L(X)>4!($L(X)<1) X"
^DD(503330,32,3)="Answer must be 1-4 characters in length."
^DD(503330,32,"DT")="2990209"
^DD(503330,33,0)="GAMES HOUSING CODE^F^^2;2^K:$L(X)>4!($L(X)<1) X"
^DD(503330,33,3)="Answer must be 1-4 characters in length."
^DD(503330,33,"DT")="2990209"
^DD(503330,34,0)="5 DIGIT ZIP CODE^CJ5^^ ; ^X ^DD(503330,34,9.2) S X=$E(Y(503330,34,2),Y(503330,34,3),X)"
^DD(503330,34,9)="^"
^DD(503330,34,9.01)="503330^5"
^DD(503330,34,9.1)="$E(ZIP CODE,1,5)"
^DD(503330,34,9.2)="S Y(503330,34,1)=$S($D(^ABS(503330,D0,0)):^(0),1:"""") S X=$P(Y(503330,34,1),U,6),Y(503330,34,2)=X S X=1,Y(503330,34,3)=X S X=5"
^DD(503330,"B"," ",27)="1"
^DD(503330,"B","5 DIGIT ZIP CODE",34)=""
^DD(503330,"B","AGE",8)=""
^DD(503330,"B","ALTERNATE TELEPHONE",16.95)=""
^DD(503330,"B","BIRTH DATE",7)=""
^DD(503330,"B","BIRTH MONTH",7.5)=""
^DD(503330,"B","Birth Date",7)="1"
^DD(503330,"B","Birth Month",7.5)="1"
^DD(503330,"B","CITY",3)=""
^DD(503330,"B","CITY/STATE/ZIP",5.5)=""
^DD(503330,"B","CODE",27)=""
^DD(503330,"B","COMBINATION",8.5)=""
^DD(503330,"B","FIRST CHARACTER OF LAST NAME",.7)=""
^DD(503330,"B","GAMES HOUSING CODE",33)=""
^DD(503330,"B","GAMES RIDE STATION",32)=""
^DD(503330,"B","GAMES RIDE STATUS",31)=""
^DD(503330,"B","GAMES SHIRT SIZE",30)=""
^DD(503330,"B","LOWERCASE PRINTING NAME",.5)=""
^DD(503330,"B","NEXT OF KIN",17)=""
^DD(503330,"B","NICKNAME",28)=""
^DD(503330,"B","NOK ALTERNATE PHONE",20)=""
^DD(503330,"B","NOK Alternate Phone",20)="1"
^DD(503330,"B","NOK RELATIONSHIP",18)=""
^DD(503330,"B","NOK Relationship",18)="1"
^DD(503330,"B","NOK TELEPHONE",19)=""
^DD(503330,"B","NOK Telephone",19)="1"
^DD(503330,"B","PREFERRED LANGUAGE FOR LOG-IN",29)=""
^DD(503330,"B","PSEUDO INDICATOR",23)=""
^DD(503330,"B","SEX",6)=""
^DD(503330,"B","SOCIAL SECURITY NUMBER",1)=""
^DD(503330,"B","STATE",4)=""
^DD(503330,"B","STATE ABBREVIATION",4.5)=""
^DD(503330,"B","STATION NAME",.1)=""
^DD(503330,"B","STREET ADDRESS #1",2)=""
^DD(503330,"B","STREET ADDRESS #2",2.5)=""
^DD(503330,"B","TELEPHONE",16.9)=""
^DD(503330,"B","TRANSACTION TYPE",21)=""
^DD(503330,"B","Transaction Type",21)="1"
^DD(503330,"B","UPPERCASE PRINTING NAME",.6)=""
^DD(503330,"B","VOLUNTEER",.01)=""
^DD(503330,"B","ZIP CODE",5)=""
^DD(503330,"GL",0,1,.01)=""
^DD(503330,"GL",0,2,1)=""
^DD(503330,"GL",0,3,2)=""
^DD(503330,"GL",0,4,3)=""
^DD(503330,"GL",0,5,4)=""
^DD(503330,"GL",0,6,5)=""
^DD(503330,"GL",0,7,6)=""
^DD(503330,"GL",0,8,7)=""
^DD(503330,"GL",0,9,28)=""
^DD(503330,"GL",0,10,2.5)=""
^DD(503330,"GL",0,11,29)=""
^DD(503330,"GL",0,12,30)=""
^DD(503330,"GL",0,13,31)=""
^DD(503330,"GL",0,16,7.5)=""
^DD(503330,"GL",0,18,23)=""
^DD(503330,"GL",0,22,27)=""
^DD(503330,"GL",1,0,8.5)=""
^DD(503330,"GL",2,1,32)=""
^DD(503330,"GL",2,2,33)=""
^DD(503330,"GL",2,3,.7)=""
^DD(503330,"GL",3,1,17)=""
^DD(503330,"GL",3,2,16.9)=""
^DD(503330,"GL",3,3,18)=""
^DD(503330,"GL",3,4,19)=""
^DD(503330,"GL",3,5,20)=""
^DD(503330,"GL",3,6,21)=""
^DD(503330,"GL",3,7,16.95)=""
^DD(503330,"GL",4,0,.1)=""
^DD(503330,"IX",.01)=""
^DD(503330,"IX",.7)=""
^DD(503330,"IX",1)=""
^DD(503330,"IX",6)=""
^DD(503330,"IX",7)=""
^DD(503330,"IX",27)=""
^DD(503330,"RQ",1)=""
^DD(503330,"RQ",3)=""
^DD(503330,"RQ",4)=""
^DD(503330,"RQ",5)=""
^DD(503330,"RQ",6)=""
^DD(503330,"RQ",7)=""
^DD(503330,"SB",503330.01,.1)=""
^DD(503330,"SB",503330.03,8.5)=""
^DD(503330.01,0)="STATION NAME SUB-FIELD^^22^26"
^DD(503330.01,0,"DT")="2970110"
^DD(503330.01,0,"IX","AC",503330.01,.01)=""
^DD(503330.01,0,"IX","B",503330.01,.01)=""
^DD(503330.01,0,"NM","STATION NAME")=" "
^DD(503330.01,0,"UP")="503330"
^DD(503330.01,.01,0)="STATION NAME^RP503338'X^ABS(503338,^0;1^S DINUM=X Q"
^DD(503330.01,.01,1,0)="^.1"
^DD(503330.01,.01,1,1,0)="503330.01^B"
^DD(503330.01,.01,1,1,1)="S ^ABS(503330,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(503330.01,.01,1,1,2)="K ^ABS(503330,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(503330.01,.01,1,2,0)="503330.01^AC^MUMPS"
^DD(503330.01,.01,1,2,1)="S ZX=$P(^ABS(503338,DA,0),U,9) K:ZX="""" ZX I $D(ZX) S $P(^ABS(503330,DA(1),4,DA,0),""^"",12)=ZX,^ABS(503330,""AB"",ZX,DA(1),DA)="""" K ZX"
^DD(503330.01,.01,1,2,2)="S ZX=$P(^ABS(503330,DA(1),4,DA,0),U,12) K:ZX="""" ZX I $D(ZX) S $P(^(0),U,12)="""" K ^ABS(503330,""AB"",ZX,DA(1),DA),ZX"
^DD(503330.01,.01,1,2,"%D",0)="^^1^1^2930319^"
^DD(503330.01,.01,1,2,"%D",1,0)="This cross reference sets the external value of the site number from file 503338 for this record."
^DD(503330.01,.01,1,3,0)="^^TRIGGER^503330.01^.5"
^DD(503330.01,.01,1,3,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y X ^DD(503330.01,.01,1,3,1.1) X ^DD(503330.01,.01,1,3,1.4)"
^DD(503330.01,.01,1,3,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ABS(503338,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503338,D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0) S D1=I(1,0)"
^DD(503330.01,.01,1,3,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=503330.01,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.01,.01,1,3,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="""" X ^DD(503330.01,.01,1,3,2.4)"
^DD(503330.01,.01,1,3,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,12)=DIV,DIH=503330.01,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.01,.01,1,3,"%D",0)="^^2^2^2940909^"
^DD(503330.01,.01,1,3,"%D",1,0)="This cross reference sets the external value of the Voluntary Timekeeping "
^DD(503330.01,.01,1,3,"%D",2,0)="site number from file 503338."
^DD(503330.01,.01,1,3,"CREATE VALUE")="STATION NAME:VOL STATION NUMBER"
^DD(503330.01,.01,1,3,"DELETE VALUE")="@"
^DD(503330.01,.01,1,3,"DT")="2940909"
^DD(503330.01,.01,1,3,"FIELD")="STATION NUMBER"
^DD(503330.01,.01,21,0)="^^1^1^2930313^"
^DD(503330.01,.01,21,1,0)="This field contains the specific DHCP Institution from File 4."
^DD(503330.01,.01,"DT")="2901003"
^DD(503330.01,.5,0)="STATION NUMBER^RF^^0;12^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3) X"
^DD(503330.01,.5,1,0)="^.1"
^DD(503330.01,.5,1,1,0)="503330^AB"
^DD(503330.01,.5,1,1,1)="S ^ABS(503330,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(503330.01,.5,1,1,2)="K ^ABS(503330,""AB"",$E(X,1,30),DA(1),DA)"
^DD(503330.01,.5,3)="Answer must be 3-4 characters in length."
^DD(503330.01,.5,5,1,0)="503330.01^.01^3"
^DD(503330.01,.5,21,0)="^^3^3^2930313^"
^DD(503330.01,.5,21,1,0)="This field contains the 3-4 character station number used to report"
^DD(503330.01,.5,21,2,0)="information for the facility at the Austin DPC.  e.g. 503 or 503A."
^DD(503330.01,.5,21,3,0)="5 character division number are NOT to be used."
^DD(503330.01,.5,"DT")="2901003"
^DD(503330.01,1,0)="ENTRY DATE^RD^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.01,1,21,0)="^^2^2^2930313^"
^DD(503330.01,1,21,1,0)="This field contains the month/year that the volunteer first entered on "
^DD(503330.01,1,21,2,0)="duty for this station/division."
^DD(503330.01,1,"DT")="2900410"
^DD(503330.01,2,0)="YEARS AT STATION^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.01,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(503330.01,2,21,0)="^^2^2^2941221^^^"
^DD(503330.01,2,21,1,0)="This field contains the number of years that the volunteer has been on the"
^DD(503330.01,2,21,2,0)="rolls of the selected station/division."
^DD(503330.01,2,23,0)="^^2^2^2941221^^"
^DD(503330.01,2,23,1,0)="This field will be populated by update from the Austin DPC starting with"
^DD(503330.01,2,23,2,0)="version 5."
^DD(503330.01,2,"DT")="2900410"
^DD(503330.01,2.5,0)="PRIOR YEARS HOURS SERVED^NJ5,0^^0;20^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.01,2.5,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(503330.01,2.5,21,0)="^^2^2^2941221^^"
^DD(503330.01,2.5,21,1,0)="This field contains the total hours served by the volunteer for prior "
^DD(503330.01,2.5,21,2,0)="years.  This figure is updated monthly from the Austin AC."
^DD(503330.01,2.5,"DT")="2941221"
^DD(503330.01,2.7,0)="CURRENT YEAR HOURS SERVED^NJ5,0^^0;21^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.01,2.7,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(503330.01,2.7,21,0)="^^2^2^2941221^"
^DD(503330.01,2.7,21,1,0)="This field contains the number hour hours worked by a volunteer for the"
^DD(503330.01,2.7,21,2,0)="current year.  This figure is updated monthly from the Austin AC."
^DD(503330.01,2.7,"DT")="2941221"
^DD(503330.01,3,0)="HOURS SERVED^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.01,3,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(503330.01,3,9)="^"
^DD(503330.01,3,9.01)="503330.01^2.7;503330.01^2.5"
^DD(503330.01,3,9.1)="PRIOR YEARS HOURS SERVED+CURRENT YEAR HOURS SERVED"
^DD(503330.01,3,21,0)="^^2^2^2930313^"
^DD(503330.01,3,21,1,0)="This field contains the totals hours worked, for all combinations, for"
^DD(503330.01,3,21,2,0)="the selected station/division."
^DD(503330.01,3,23,0)="^^2^2^2930313^"
^DD(503330.01,3,23,1,0)="This field is not normally populated by the local facility but will be"
^DD(503330.01,3,23,2,0)="updated by the Austin DPC starting with version 5."
^DD(503330.01,3,"DT")="2900410"
^DD(503330.01,4,0)="HOURS LAST AWARD^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.01,4,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(503330.01,4,21,0)="^^2^2^2930313^"
^DD(503330.01,4,21,1,0)="This field contains the number of hours for which the volunteer was "
^DD(503330.01,4,21,2,0)="last presented an award."
^DD(503330.01,4,23,0)="^^2^2^2930313^"
^DD(503330.01,4,23,1,0)="This field will not normally be populated by the local facility but will"
^DD(503330.01,4,23,2,0)="contain data uploaded from the Austin DPC starting with Version 5."
^DD(503330.01,4,"DT")="2900410"
^DD(503330.01,5,0)="DATE LAST AWARD^D^^0;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.01,5,21,0)="^^1^1^2930313^"
^DD(503330.01,5,21,1,0)="This field contains the date on which the volunteer last received an award."
^DD(503330.01,5,23,0)="^^2^2^2930313^"
^DD(503330.01,5,23,1,0)="This field is not normally populated by the local facility.  It will contain"
^DD(503330.01,5,23,2,0)="data uploaded from the Austin DPC starting with Version 5."
^DD(503330.01,5,"DT")="2900410"
^DD(503330.01,6,0)="AWARD CODE^P503337'^ABS(503337,^0;7^Q"
^DD(503330.01,6,21,0)="^^2^2^2930313^"
^DD(503330.01,6,21,1,0)="This filed contains the last award received by the volunteer for this"
^DD(503330.01,6,21,2,0)="station/division."
^DD(503330.01,6,"DT")="2900410"
^DD(503330.01,7,0)="TERMINATION DATE^D^^0;8^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.01,7,1,0)="^.1"
^DD(503330.01,7,1,1,0)="^^TRIGGER^503330.01^8"
^DD(503330.01,7,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(503330.01,7,1,1,1.4)"
^DD(503330.01,7,1,1,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=503330.01,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.01,7,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X=""YES"" X ^DD(503330.01,7,1,1,2.4)"
^DD(503330.01,7,1,1,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=503330.01,DIG=8 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.01,7,1,1,"%D",0)="^^3^3^2940701^^^"
^DD(503330.01,7,1,1,"%D",1,0)="In the event that a volunteer is reactivated, that is, the termination date is"
^DD(503330.01,7,1,1,"%D",2,0)="deleted, this cross reference triggers the value of '1' (YES) into field 8 -"
^DD(503330.01,7,1,1,"%D",3,0)="REACTIVATED."
^DD(503330.01,7,1,1,"CREATE VALUE")="@"
^DD(503330.01,7,1,1,"DELETE VALUE")="""YES"""
^DD(503330.01,7,1,1,"FIELD")="REA"
^DD(503330.01,7,21,0)="^^2^2^2930313^"
^DD(503330.01,7,21,1,0)="This field contains the date a volunteer was terminated as an active"
^DD(503330.01,7,21,2,0)="volunteer for the station/division."
^DD(503330.01,7,23,0)="^^2^2^2930313^"
^DD(503330.01,7,23,1,0)="If data is contained in this field, the volunteer is not selectable for"
^DD(503330.01,7,23,2,0)="any data entry function of this package EXCEPT Register/Edit Volunteer Master File."
^DD(503330.01,7,"DT")="2930305"
^DD(503330.01,8,0)="REACTIVATED^S^1:YES;^0;9^Q"
^DD(503330.01,8,3)=" "
^DD(503330.01,8,5,1,0)="503330.01^7^1"
^DD(503330.01,8,21,0)="^^3^3^2930324^"
^DD(503330.01,8,21,1,0)=" "
^DD(503330.01,8,21,2,0)="This field is marked YES if the volunteer is to be reactivated"
^DD(503330.01,8,21,3,0)="in the Austin Database."
^DD(503330.01,8,23,0)="^^3^3^2930313^"
^DD(503330.01,8,23,1,0)="This field is used as a flag to indicate to Transaction Type 88 that"
^DD(503330.01,8,23,2,0)="the termination date field is to contain **** (4 stars).  This indicates"
^DD(503330.01,8,23,3,0)="to the Austin DPC that the volunteer is to be reactivated."
^DD(503330.01,8,"DT")="2930305"
^DD(503330.01,9,0)="PURGED IN AUSTIN^S^Y:YES;^0;10^Q"
^DD(503330.01,9,21,0)="^^2^2^2930313^"
^DD(503330.01,9,21,1,0)="This field is set to YES if the volunteer has been deleted from the Austin"
^DD(503330.01,9,21,2,0)="database."
^DD(503330.01,9,23,0)="^^1^1^2930313^"
^DD(503330.01,9,23,1,0)="To be populated by upload from the Austin DPC in Version 5."
^DD(503330.01,9,"DT")="2970811"
^DD(503330.01,10,0)="DATE PURGED IN AUSTIN^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.01,10,21,0)="^^1^1^2930313^"
^DD(503330.01,10,21,1,0)="Contains the date the volunteer was removed from the Austin Database."
^DD(503330.01,10,23,0)="^^2^2^2930313^"
^DD(503330.01,10,23,1,0)="This Field will be populated by upload from the Austion DPC starting with"
^DD(503330.01,10,23,2,0)="version 5."
^DD(503330.01,10,"DT")="2970811"
^DD(503330.01,11,0)="TT88^S^1:YES;^0;13^Q"
^DD(503330.01,11,1,0)="^.1^^-1"
^DD(503330.01,11,1,2,0)="503330^AF"
^DD(503330.01,11,1,2,1)="S ^ABS(503330,""AF"",$E(X,1,30),DA(1),DA)="""""
^DD(503330.01,11,1,2,2)="K ^ABS(503330,""AF"",$E(X,1,30),DA(1),DA)"
^DD(503330.01,11,1,2,"%D",0)="^^1^1^2920803^"
^DD(503330.01,11,1,2,"%D",1,0)="THIS CROSS REFERENCE CONTAINS THE FLAG FOR SENDING THE UPDATED RECORD TO AUSTIN DPC."
^DD(503330.01,11,1,2,"DT")="2920803"
^DD(503330.01,11,21,0)="^^4^4^2930324^"
^DD(503330.01,11,21,1,0)=" "
^DD(503330.01,11,21,2,0)="This field is set to YES if the volunteer master file for this volunteer"
^DD(503330.01,11,21,3,0)="is to be uploaded to Austin at the end of the month.  It should be marked"
^DD(503330.01,11,21,4,0)="ONLY when there has been a change to the Master File."
^DD(503330.01,11,23,0)="^^2^2^2930323^^"
^DD(503330.01,11,23,1,0)="A 'YES' in this field will cause the TT88 program to transmit this"
^DD(503330.01,11,23,2,0)="record to the Austin DPC at the end of the month."
^DD(503330.01,11,"DT")="2920803"
^DD(503330.01,12,0)="TT04^S^1:YES;^0;14^Q"
^DD(503330.01,12,1,0)="^.1"
^DD(503330.01,12,1,1,0)="503330^AG"
^DD(503330.01,12,1,1,1)="S ^ABS(503330,""AG"",$E(X,1,30),DA(1),DA)="""""
^DD(503330.01,12,1,1,2)="K ^ABS(503330,""AG"",$E(X,1,30),DA(1),DA)"
^DD(503330.01,12,1,1,"%D",0)="^^1^1^2920803^"
^DD(503330.01,12,1,1,"%D",1,0)="This cross reference allows easy access to all records ready for transmission."
^DD(503330.01,12,1,1,"DT")="2920803"
^DD(503330.01,12,21,0)="^^3^3^2930313^"
^DD(503330.01,12,21,1,0)="This field is set to 'YES' when AUSTIN YEARS AT STATION, AUSTIN TOTAL CUM"
^DD(503330.01,12,21,2,0)="HOURS, AUSTIN LAST AWARD HOURS, or AUSTIN LAST AWARD MONTH/YEAR information"
^DD(503330.01,12,21,3,0)="is to be included on the TT88 at the end of the month."
^DD(503330.01,12,23,0)="^^3^3^2930313^"
^DD(503330.01,12,23,1,0)="This field is used as a flag to the TT88 program to indicated whether "
^DD(503330.01,12,23,2,0)="fields 14-17 of this multiple are to be transmitted to the Austin DPC"
^DD(503330.01,12,23,3,0)="as part the TT88."
^DD(503330.01,12,"DT")="2920803"
^DD(503330.01,13,0)="RECORD ESTABLISHED IN AUSTIN?^S^0:YES;1:NO;^0;15^Q"
^DD(503330.01,13,21,0)="^^3^3^2930324^"
^DD(503330.01,13,21,1,0)=" "
^DD(503330.01,13,21,2,0)="This field contains an indicator as to the status of this volunteer's"
^DD(503330.01,13,21,3,0)="record at the Austin DPC."
^DD(503330.01,13,"DT")="2920819"
^DD(503330.01,14,0)="AUSTIN YEARS AT STATION^NJ2,0^^0;16^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(503330.01,14,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(503330.01,14,21,0)="^^2^2^2930313^"
^DD(503330.01,14,21,1,0)="Enter in this field the number of years that the volunteer has been at the"
^DD(503330.01,14,21,2,0)="station when reestablishing a volunteer in the Austin DPC."
^DD(503330.01,14,23,0)="^^2^2^2930313^"
^DD(503330.01,14,23,1,0)="This field is usually null and is used only hold information to be "
^DD(503330.01,14,23,2,0)="transmitted to Austin on the TT88 for volunteer being reactivated."
^DD(503330.01,14,"DT")="2920807"
^DD(503330.01,15,0)="AUSTIN PRIOR YEAR HOURS^NJ5,0^^0;17^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.01,15,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(503330.01,15,21,0)="^^4^4^2980401^"
^DD(503330.01,15,21,1,0)="Enter is this field the number of hours that the volunteer has worked"
^DD(503330.01,15,21,2,0)="at the station when restablishing a volunteer at the Austin DPC.  This"
^DD(503330.01,15,21,3,0)="field should only contain PRIOR YEAR HOURS.  DO NOT enter CURRENT YEAR"
^DD(503330.01,15,21,4,0)="HOURS in this field."
^DD(503330.01,15,23,0)="^^2^2^2980401^^"
^DD(503330.01,15,23,1,0)="This field is usually null, but is used only to hold information to be"
^DD(503330.01,15,23,2,0)="transmitted to Austin on the TT88 for a volunteer being reactivated."
^DD(503330.01,15,"DT")="2980401"
^DD(503330.01,16,0)="AUSTIN LAST AWARD HOURS^NJ5,0^^0;18^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.01,16,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(503330.01,16,21,0)="^^2^2^2930313^"
^DD(503330.01,16,21,1,0)="Enter in this filed the number of hours for which the volunteer was last"
^DD(503330.01,16,21,2,0)="awarded, when reestablishing a volunteer at the Austin DPC."
^DD(503330.01,16,23,0)="^^2^2^2930313^"
^DD(503330.01,16,23,1,0)="This field is usually null, but is used only to hold information to be"
^DD(503330.01,16,23,2,0)="transmitted to Austin on the TT88 for a volunteer being reactivated."
^DD(503330.01,17,0)="AUSTIN LAST AWARD MONTH/YEAR^DX^^0;19^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.01,17,21,0)="^^1^1^2930313^"
^DD(503330.01,17,21,1,0)="Enter in this field the date of the last award for the volunteer."
^DD(503330.01,17,23,0)="^^2^2^2930313^"
^DD(503330.01,17,23,1,0)="This field is usually null, and is used only to hold information to be"
^DD(503330.01,17,23,2,0)="transmitted to Austin on the TT88 for the volunteer when reactivated."
^DD(503330.01,17,"DT")="2990106"
^DD(503330.01,18,0)="REMARKS^503330.118^^1;0"
^DD(503330.01,19,0)="DATE PURGED IN AUSTIN^D^^0;22^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.01,19,21,0)="^^2^2^2950707^"
^DD(503330.01,19,21,1,0)="This field contains the date this particular volunteer was purged"
^DD(503330.01,19,21,2,0)="from the Austin system for the specific station."
^DD(503330.01,19,"DT")="2950707"
^DD(503330.01,20,0)="METHOD OF TRANSPORTATION^S^1:PRIVATELY OWNED VEHICLE;2:PUBLIC TRANSPORTATION;3:WALK/BICYCLE;4:OTHER;^0;23^Q"
^DD(503330.01,20,21,0)="^^2^2^2950707^"
^DD(503330.01,20,21,1,0)="This field contains an indication of the type of transportion used by"
^DD(503330.01,20,21,2,0)="the volunteer."
^DD(503330.01,20,"DT")="2950717"
^DD(503330.01,21,0)="PARKING STICKER^503330.121^^2;0"
^DD(503330.01,22,0)="ELIGIBLE FOR MEALS?^S^0:NO;1:YES;^0;24^Q"
^DD(503330.01,22,21,0)="^^2^2^2970110^"
^DD(503330.01,22,21,1,0)="This field determines whether or not a volunteer will be asked the"
^DD(503330.01,22,21,2,0)="ARE YOU STAYING FOR LUNCH question during auto login."
^DD(503330.01,22,"DT")="2970110"
^DD(503330.01,"B","AUSTIN LAST AWARD HOURS",16)=""
^DD(503330.01,"B","AUSTIN LAST AWARD MONTH/YEAR",17)=""
^DD(503330.01,"B","AUSTIN PRIOR YEAR HOURS",15)=""
^DD(503330.01,"B","AUSTIN YEARS AT STATION",14)=""
^DD(503330.01,"B","AWARD CODE",6)=""
^DD(503330.01,"B","CURRENT YEAR HOURS SERVED",2.7)=""
^DD(503330.01,"B","DATE LAST AWARD",5)=""
^DD(503330.01,"B","DATE PURGED IN AUSTIN",10)=""
^DD(503330.01,"B","DATE PURGED IN AUSTIN",19)=""
^DD(503330.01,"B","ELIGIBLE FOR MEALS?",22)=""
^DD(503330.01,"B","ENTRY DATE",1)=""
^DD(503330.01,"B","HOURS LAST AWARD",4)=""
^DD(503330.01,"B","HOURS SERVED",3)=""
^DD(503330.01,"B","METHOD OF TRANSPORTATION",20)=""
^DD(503330.01,"B","PARKING STICKER",21)=""
^DD(503330.01,"B","PRIOR YEARS HOURS SERVED",2.5)=""
^DD(503330.01,"B","PURGED IN AUSTIN",9)=""
^DD(503330.01,"B","REACTIVATED",8)=""
^DD(503330.01,"B","RECORD ESTABLISHED IN AUSTIN?",13)=""
^DD(503330.01,"B","REMARKS",18)=""
^DD(503330.01,"B","STATION NAME",.01)=""
^DD(503330.01,"B","STATION NUMBER",.5)=""
^DD(503330.01,"B","TERMINATION DATE",7)=""
^DD(503330.01,"B","TT04",12)=""
^DD(503330.01,"B","TT88",11)=""
^DD(503330.01,"B","YEARS AT STATION",2)=""
^DD(503330.01,"GL",0,1,.01)=""
^DD(503330.01,"GL",0,2,1)=""
^DD(503330.01,"GL",0,3,2)=""
^DD(503330.01,"GL",0,4,3)=""
^DD(503330.01,"GL",0,5,4)=""
^DD(503330.01,"GL",0,6,5)=""
^DD(503330.01,"GL",0,7,6)=""
^DD(503330.01,"GL",0,8,7)=""
^DD(503330.01,"GL",0,9,8)=""
^DD(503330.01,"GL",0,10,9)=""
^DD(503330.01,"GL",0,11,10)=""
^DD(503330.01,"GL",0,12,.5)=""
^DD(503330.01,"GL",0,13,11)=""
^DD(503330.01,"GL",0,14,12)=""
^DD(503330.01,"GL",0,15,13)=""
^DD(503330.01,"GL",0,16,14)=""
^DD(503330.01,"GL",0,17,15)=""
^DD(503330.01,"GL",0,18,16)=""
^DD(503330.01,"GL",0,19,17)=""
^DD(503330.01,"GL",0,20,2.5)=""
^DD(503330.01,"GL",0,21,2.7)=""
^DD(503330.01,"GL",0,22,19)=""
^DD(503330.01,"GL",0,23,20)=""
^DD(503330.01,"GL",0,24,22)=""
^DD(503330.01,"GL",1,0,18)=""
^DD(503330.01,"GL",2,0,21)=""
^DD(503330.01,"IX",.01)=""
^DD(503330.01,"IX",.5)=""
^DD(503330.01,"IX",7)=""
^DD(503330.01,"IX",11)=""
^DD(503330.01,"IX",12)=""
^DD(503330.01,"RQ",.01)=""
^DD(503330.01,"RQ",.5)=""
^DD(503330.01,"RQ",1)=""
^DD(503330.01,"SB",503330.118,18)=""
^DD(503330.01,"SB",503330.121,21)=""
^DD(503330.03,0)="COMBINATION SUB-FIELD^^6^7"
^DD(503330.03,0,"DT")="2971222"
^DD(503330.03,0,"ID","WR")="W ""   "",$P(^(0),U,5)"
^DD(503330.03,0,"ID","WRITE")="W ""   "",$P(^(0),U,5)"
^DD(503330.03,0,"IX","AC",503330.03,4)=""
^DD(503330.03,0,"IX","AD",503330.03,.01)=""
^DD(503330.03,0,"IX","B",503330.03,.01)=""
^DD(503330.03,0,"NM","COMBINATION")=""
^DD(503330.03,0,"UP")="503330"
^DD(503330.03,.01,0)="COMBINATION^MFI^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<5)!'(X?3N.1UN1""-""1N)!(+$P(X,""-"",2)>6) X"
^DD(503330.03,.01,1,0)="^.1"
^DD(503330.03,.01,1,1,0)="503330.03^B"
^DD(503330.03,.01,1,1,1)="S ^ABS(503330,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(503330.03,.01,1,1,2)="K ^ABS(503330,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(503330.03,.01,1,2,0)="503330.03^AD^MUMPS"
^DD(503330.03,.01,1,2,1)="S ^ABS(503330,DA(1),1,""AD"",$P(X,""-""),$P(X,""-"",2),DA)="""""
^DD(503330.03,.01,1,2,2)="K ^ABS(503330,DA(1),1,""AD"",$P(X,""-""),$P(X,""-"",2),DA)"
^DD(503330.03,.01,3)="Answer must be 5-6 characters in length and in the format Station Number-Combination Number"
^DD(503330.03,.01,21,0)="^^3^3^2930324^"
^DD(503330.03,.01,21,1,0)=" "
^DD(503330.03,.01,21,2,0)="This field contains the combination ID number.  It is in the format"
^DD(503330.03,.01,21,3,0)="Station number-combination number."
^DD(503330.03,.01,"DT")="2980512"
^DD(503330.03,1,0)="ORGANIZATION^R*P503334'^ABS(503334,^0;2^S DIC(""S"")=""I $P(^ABS(503334,+Y,0),U,5)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(503330.03,1,1,0)="^.1"
^DD(503330.03,1,1,1,0)="^^TRIGGER^503330.03^4"
^DD(503330.03,1,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(503330.03,1,1,1,1.1) X ^DD(503330.03,1,1,1,1.4)"
^DD(503330.03,1,1,1,1.1)="S X=DIV X ^DD(503330.03,1,1,1,49.2) S X=X_$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1))"
^DD(503330.03,1,1,1,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=503330.03,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.03,1,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(503330.03,1,1,1,2.4)"
^DD(503330.03,1,1,1,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=503330.03,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.03,1,1,1,49.2)="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503334,+DIV,0)):"""",1:$P(^(0),U,1))_$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DD(503330.03,1,1,1,"%D",0)="^^1^1^2940701^^"
^DD(503330.03,1,1,1,"%D",1,0)="This cross reference builds the COMB CODE field."
^DD(503330.03,1,1,1,"CREATE VALUE")="ORGANIZATION_SCHEDULE_SERVICE"
^DD(503330.03,1,1,1,"DELETE VALUE")="@"
^DD(503330.03,1,1,1,"FIELD")="COMB "
^DD(503330.03,1,12)="ALLOWS ONLY SELECTION OF ACTIVE ORGANIZATIONS"
^DD(503330.03,1,12.1)="S DIC(""S"")=""I $P(^ABS(503334,+Y,0),U,5)'=1"""
^DD(503330.03,1,21,0)="^^2^2^2930313^"
^DD(503330.03,1,21,1,0)="This field contains the name of the organization associated with this"
^DD(503330.03,1,21,2,0)="combination."
^DD(503330.03,1,"DT")="2960304"
^DD(503330.03,2,0)="SCHEDULE^RP503333'^ABS(503333,^0;3^Q"
^DD(503330.03,2,1,0)="^.1"
^DD(503330.03,2,1,1,0)="^^TRIGGER^503330.03^4"
^DD(503330.03,2,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(503330.03,2,1,1,1.1) X ^DD(503330.03,2,1,1,1.4)"
^DD(503330.03,2,1,1,1.1)="S X=DIV X ^DD(503330.03,2,1,1,49.2) S X=X_$S('$D(^ABS(503332,+$P(Y(1),U,4),0)):"""",1:$P(^(0),U,1))"
^DD(503330.03,2,1,1,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=503330.03,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.03,2,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(503330.03,2,1,1,2.4)"
^DD(503330.03,2,1,1,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=503330.03,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.03,2,1,1,49.2)="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503334,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))_$S('$D(^ABS(503333,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(503330.03,2,1,1,"%D",0)="^^1^1^2940701^"
^DD(503330.03,2,1,1,"%D",1,0)="This cross reference builds the COMB CODE field."
^DD(503330.03,2,1,1,"CREATE VALUE")="ORGANIZATION_SCHEDULE_SERVICE"
^DD(503330.03,2,1,1,"DELETE VALUE")="@"
^DD(503330.03,2,1,1,"FIELD")="COMB "
^DD(503330.03,2,21,0)="^^1^1^2930313^"
^DD(503330.03,2,21,1,0)="This field contains the work schedule code associated with this combination."
^DD(503330.03,2,"DT")="2960304"
^DD(503330.03,3,0)="SERVICE^RP503332'^ABS(503332,^0;4^Q"
^DD(503330.03,3,1,0)="^.1"
^DD(503330.03,3,1,1,0)="^^TRIGGER^503330.03^4"
^DD(503330.03,3,1,1,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(503330.03,3,1,1,1.1) X ^DD(503330.03,3,1,1,1.4)"
^DD(503330.03,3,1,1,1.1)="S X=DIV X ^DD(503330.03,3,1,1,49.2) S X=X_$S('$D(^ABS(503332,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(503330.03,3,1,1,1.4)="S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=503330.03,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.03,3,1,1,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" X ^DD(503330.03,3,1,1,2.4)"
^DD(503330.03,3,1,1,2.4)="S DIH=$S($D(^ABS(503330,DIV(0),1,DIV(1),0)):^(0),1:""""),DIV=X X ""F %=0:0 Q:$L($P(DIH,U,4,99))  S DIH=DIH_U"" S %=$P(DIH,U,6,999),DIU=$P(DIH,U,5),^(0)=$P(DIH,U,1,4)_U_DIV_$S(%]"""":U_%,1:""""),DIH=503330.03,DIG=4 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503330.03,3,1,1,49.2)="S Y(1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$S('$D(^ABS(503334,+$P(Y(1),U,2),0)):"""",1:$P(^(0),U,1))_$S('$D(^ABS(503333,+$P(Y(1),U,3),0)):"""",1:$P(^(0),U,1))"
^DD(503330.03,3,1,1,"%D",0)="^^1^1^2940701^"
^DD(503330.03,3,1,1,"%D",1,0)="This cross reference builds the COMB CODE field."
^DD(503330.03,3,1,1,"CREATE VALUE")="ORGANIZATION_SCHEDULE_SERVICE"
^DD(503330.03,3,1,1,"DELETE VALUE")="@"
^DD(503330.03,3,1,1,"FIELD")="COMB "
^DD(503330.03,3,21,0)="^^1^1^2930313^"
^DD(503330.03,3,21,1,0)="This field contains the facility service associated with this combination."
^DD(503330.03,3,"DT")="2960304"
^DD(503330.03,4,0)="COMB CODE^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(503330.03,4,1,0)="^.1"
^DD(503330.03,4,1,1,0)="503330.03^AC"
^DD(503330.03,4,1,1,1)="S ^ABS(503330,DA(1),1,""AC"",$E(X,1,30),DA)="""""
^DD(503330.03,4,1,1,2)="K ^ABS(503330,DA(1),1,""AC"",$E(X,1,30),DA)"
^DD(503330.03,4,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(503330.03,4,5,1,0)="503330.03^1^1"
^DD(503330.03,4,5,2,0)="503330.03^2^1"
^DD(503330.03,4,5,3,0)="503330.03^3^1"
^DD(503330.03,4,9)="^"
^DD(503330.03,4,21,0)="^^3^3^2930324^"
^DD(503330.03,4,21,1,0)=" "
^DD(503330.03,4,21,2,0)="This field contains the actual combination code transmitted to the"
^DD(503330.03,4,21,3,0)="Austin DPC."
^DD(503330.03,4,"DT")="2880629"
^DD(503330.03,5,0)="ACTIVE/INACTIVE^S^0:ACTIVE;1:INACTIVE;^0;6^Q"
^DD(503330.03,5,21,0)="^^4^4^2971222^"
^DD(503330.03,5,21,1,0)="This field contains the indicator as to the active status of a specific"
^DD(503330.03,5,21,2,0)="combination for the volunteer.  If the status is marked as inactive, the"
^DD(503330.03,5,21,3,0)="combination may not be selected for posting.  There is an exception when"
^DD(503330.03,5,21,4,0)="""Creating a TimeCard"", when any existing combination can be selected."
^DD(503330.03,5,23,0)="^^1^1^2971222^"
^DD(503330.03,5,23,1,0)="This field contains the status of the combination.  0=active, 1=inactive."
^DD(503330.03,5,"DT")="2971222"
^DD(503330.03,6,0)="STATION NUMBER^CJ5^^ ; ^X ^DD(503330.03,6,9.2) S X=$P(Y(503330.03,6,2),Y(503330.03,6,3),X)"
^DD(503330.03,6,9)="^"
^DD(503330.03,6,9.01)="503330.03^.01"
^DD(503330.03,6,9.1)="$P(COMBINATION,""-"",1)"
^DD(503330.03,6,9.2)="S Y(503330.03,6,1)=$S($D(^ABS(503330,D0,1,D1,0)):^(0),1:"""") S X=$P(Y(503330.03,6,1),U,1),Y(503330.03,6,2)=X S X=""-"",Y(503330.03,6,3)=X S X=1"
^DD(503330.03,"B","ACTIVE/INACTIVE",5)=""
^DD(503330.03,"B","COMB CODE",4)=""
^DD(503330.03,"B","COMBINATION",.01)=""
^DD(503330.03,"B","ORGANIZATION",1)=""
^DD(503330.03,"B","SCHEDULE",2)=""
^DD(503330.03,"B","SERVICE",3)=""
^DD(503330.03,"B","STATION NUMBER",6)=""
^DD(503330.03,"GL",0,1,.01)=""
^DD(503330.03,"GL",0,2,1)=""
^DD(503330.03,"GL",0,3,2)=""
^DD(503330.03,"GL",0,4,3)=""
^DD(503330.03,"GL",0,5,4)=""
^DD(503330.03,"GL",0,6,5)=""
^DD(503330.03,"IX",.01)=""
^DD(503330.03,"IX",1)=""
^DD(503330.03,"IX",2)=""
^DD(503330.03,"IX",3)=""
^DD(503330.03,"IX",4)=""
^DD(503330.03,"RQ",1)=""
^DD(503330.03,"RQ",2)=""
^DD(503330.03,"RQ",3)=""
^DD(503330.1,0)="FIELD^^11^9"
^DD(503330.1,0,"DDA")="N"
^DD(503330.1,0,"DT")="2930527"
^DD(503330.1,0,"IX","AC",503330.1,1)=""
^DD(503330.1,0,"IX","AF",503330.1,8)=""
^DD(503330.1,0,"IX","B",503330.1,.01)=""
^DD(503330.1,0,"NM","VOLUNTARY TEMPORARY LOG")=" "
^DD(503330.1,0,"VR")="4.0"
^DD(503330.1,0,"VRPK")="ABSV"
^DD(503330.1,.01,0)="CODE^RP503330'^ABS(503330,^0;1^Q"
^DD(503330.1,.01,.1)="VOLUNTEER NAME"
^DD(503330.1,.01,1,0)="^.1^^-1"
^DD(503330.1,.01,1,1,0)="503330.1^B"
^DD(503330.1,.01,1,1,1)="S ^ABS(503330.1,""B"",$E(X,1,30),DA)="""""
^DD(503330.1,.01,1,1,2)="K ^ABS(503330.1,""B"",$E(X,1,30),DA)"
^DD(503330.1,.01,3)=" "
^DD(503330.1,.01,21,0)="^^1^1^2930313^"
^DD(503330.1,.01,21,1,0)="This field contains the name of the volunteer."
^DD(503330.1,.01,"DT")="2910624"
^DD(503330.1,1,0)="DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.1,1,.1)=" "
^DD(503330.1,1,1,0)="^.1^^-1"
^DD(503330.1,1,1,1,0)="503330.1^AC"
^DD(503330.1,1,1,1,1)="S ^ABS(503330.1,""AC"",$E(X,1,30),DA)="""""
^DD(503330.1,1,1,1,2)="K ^ABS(503330.1,""AC"",$E(X,1,30),DA)"
^DD(503330.1,1,3)=" "
^DD(503330.1,1,21,0)="^^2^2^2930324^"
^DD(503330.1,1,21,1,0)=" "
^DD(503330.1,1,21,2,0)="This field contains the date the volunteer worked at the medical center."
^DD(503330.1,1,"DT")="2910624"
^DD(503330.1,2,0)="COMBINATION^RNJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.1,2,1,0)="^.1^^0"
^DD(503330.1,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(503330.1,2,21,0)="^^2^2^2930313^"
^DD(503330.1,2,21,1,0)="This field contains the combination reflecting the organization, work "
^DD(503330.1,2,21,2,0)="schedule and hospital service of the work period."
^DD(503330.1,2,"DT")="2910624"
^DD(503330.1,2,"V",0)="^.12P^1^1"
^DD(503330.1,2,"V",1,0)="503330^HELP^1^1^n^n"
^DD(503330.1,2,"V","B",503330,1)=""
^DD(503330.1,2,"V","M","HELP",1)=""
^DD(503330.1,2,"V","O",1,1)=""
^DD(503330.1,2,"V","P",1,1)=""
^DD(503330.1,5,0)="MEAL TICKET^S^1:YES;0:NO;^0;6^Q"
^DD(503330.1,5,21,0)="^^1^1^2930313^"
^DD(503330.1,5,21,1,0)="This field is set to 'yes' if the volunteer is staying for lunch."
^DD(503330.1,5,"DT")="2930527"
^DD(503330.1,6,0)="TOTAL HOURS^RNJ1,0^^0;7^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503330.1,6,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503330.1,6,21,0)="^^1^1^2930313^"
^DD(503330.1,6,21,1,0)="This field contains the number of hours that the volunteer is working."
^DD(503330.1,6,"DT")="2891215"
^DD(503330.1,8,0)="STATION NUMBER^F^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3)!'(X?3N!(X?3N1A)) X"
^DD(503330.1,8,1,0)="^.1"
^DD(503330.1,8,1,1,0)="503330.1^AF"
^DD(503330.1,8,1,1,1)="S ^ABS(503330.1,""AF"",$E(X,1,30),DA)="""""
^DD(503330.1,8,1,1,2)="K ^ABS(503330.1,""AF"",$E(X,1,30),DA)"
^DD(503330.1,8,3)="ANSWER MUST BE 3-4 CHARACTERS IN LENGTH"
^DD(503330.1,8,21,0)="^^2^2^2930313^"
^DD(503330.1,8,21,1,0)="This field contains the station number for the period worked."
^DD(503330.1,8,21,2,0)="This is the station number recorded in the Austin Database."
^DD(503330.1,8,"DT")="2891012"
^DD(503330.1,9,0)="REASON FOR ERROR^S^2:DATE WORKED MISSING;3:COMBINATION MISSING/INVALID;4:SERVICE MISSING/INVALID;5:ORGANIZATION MISSING/INVALID;7:TOTAL HOURS MISSING;1:INVALID VOLUNTEER NAME;^0;4^Q"
^DD(503330.1,9,21,0)="^^3^3^2930324^"
^DD(503330.1,9,21,1,0)=" "
^DD(503330.1,9,21,2,0)="This field contains the error code indicating the reason for the"
^DD(503330.1,9,21,3,0)="failure of a record to transfer to the Daily Record file."
^DD(503330.1,9,23,0)="^^3^3^2930313^"
^DD(503330.1,9,23,1,0)="This field is NOT populated by the user.  Data is entered at the time"
^DD(503330.1,9,23,2,0)="the temporary data is transferred to the Daily Record file and is used"
^DD(503330.1,9,23,3,0)="to print the error listing associated with that transfer."
^DD(503330.1,9,"DT")="2930301"
^DD(503330.1,10,0)="TRANSFER SUCCESSFUL?^S^1:YES;0:NO;^0;5^Q"
^DD(503330.1,10,21,0)="^^2^2^2930313^"
^DD(503330.1,10,21,1,0)="This field is set to 'yes' if the transfer of data to the Daily Record"
^DD(503330.1,10,21,2,0)="file is successful."
^DD(503330.1,10,23,0)="^^2^2^2930313^"
^DD(503330.1,10,23,1,0)="This field is NOT populated by the user.  It is set to 'yes' when the"
^DD(503330.1,10,23,2,0)="transfer of the data to the Daily Record file is successful."
^DD(503330.1,10,"DT")="2900111"
^DD(503330.1,11,0)="BREAKOUT COMBINATION^F^^0;8^K:$L(X)>8!($L(X)<7) X"
^DD(503330.1,11,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(503330.1,11,21,0)="^^3^3^2930324^"
^DD(503330.1,11,21,1,0)=" "
^DD(503330.1,11,21,2,0)="This field contains the combination selected by the volunteer during the"
^DD(503330.1,11,21,3,0)="auto log-in session."
^DD(503330.1,11,"DT")="2900111"
^DD(503330.1,"B"," ",1)="1"
^DD(503330.1,"B","BREAKOUT COMBINATION",11)=""
^DD(503330.1,"B","CODE",.01)=""
^DD(503330.1,"B","COMBINATION",2)=""
^DD(503330.1,"B","DATE",1)=""
^DD(503330.1,"B","MEAL TICKET",5)=""
^DD(503330.1,"B","REASON FOR ERROR",9)=""
^DD(503330.1,"B","STATION NUMBER",8)=""
^DD(503330.1,"B","TOTAL HOURS",6)=""
^DD(503330.1,"B","TRANSFER SUCCESSFUL?",10)=""
^DD(503330.1,"B","VOLUNTEER NAME",.01)="1"
^DD(503330.1,"GL",0,1,.01)=""
^DD(503330.1,"GL",0,2,1)=""
^DD(503330.1,"GL",0,3,2)=""
^DD(503330.1,"GL",0,4,9)=""
^DD(503330.1,"GL",0,5,10)=""
^DD(503330.1,"GL",0,6,5)=""
^DD(503330.1,"GL",0,7,6)=""
^DD(503330.1,"GL",0,8,11)=""
^DD(503330.1,"GL",0,9,8)=""
^DD(503330.1,"IX",.01)=""
^DD(503330.1,"IX",1)=""
^DD(503330.1,"IX",8)=""
^DD(503330.1,"RQ",.01)=""
^DD(503330.1,"RQ",2)=""
^DD(503330.1,"RQ",6)=""
^DD(503330.118,0)="REMARKS SUB-FIELD^^.01^1"
^DD(503330.118,0,"DT")="2950707"
^DD(503330.118,0,"NM","REMARKS")=" "
^DD(503330.118,0,"UP")="503330.01"
^DD(503330.118,.01,0)="REMARKS^W^^0;1^Q"
^DD(503330.118,.01,21,0)="^^2^2^2950707^"
^DD(503330.118,.01,21,1,0)="This field is designed to permit the Voluntary Staff to enter notes"
^DD(503330.118,.01,21,2,0)="regarding a volunteer."
^DD(503330.118,.01,"DT")="2950707"
^DD(503330.118,"B","REMARKS",.01)=""
^DD(503330.118,"GL",0,1,.01)=""
^DD(503330.121,0)="PARKING STICKER SUB-FIELD^^2^3"
^DD(503330.121,0,"DT")="2950707"
^DD(503330.121,0,"IX","B",503330.121,.01)=""
^DD(503330.121,0,"NM","PARKING STICKER")=" "
^DD(503330.121,0,"UP")="503330.01"
^DD(503330.121,.01,0)="PARKING STICKER^MF^^0;1^K:$L(X)>13!($L(X)<5)!'(X?3.5AN1""-""1.5AN) X"
^DD(503330.121,.01,1,0)="^.1"
^DD(503330.121,.01,1,1,0)="503330.121^B"
^DD(503330.121,.01,1,1,1)="S ^ABS(503330,DA(2),4,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(503330.121,.01,1,1,2)="K ^ABS(503330,DA(2),4,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(503330.121,.01,1,2,0)="503330^E"
^DD(503330.121,.01,1,2,1)="S ^ABS(503330,""E"",$E(X,1,30),DA(2),DA(1),DA)="""""
^DD(503330.121,.01,1,2,2)="K ^ABS(503330,""E"",$E(X,1,30),DA(2),DA(1),DA)"
^DD(503330.121,.01,1,2,"%D",0)="^^2^2^2950707^"
^DD(503330.121,.01,1,2,"%D",1,0)="This cross reference allows for the lookup of a volunteer by their"
^DD(503330.121,.01,1,2,"%D",2,0)="vehicle parking sticker."
^DD(503330.121,.01,1,2,"DT")="2950707"
^DD(503330.121,.01,3)="Answer with parking sticker number in the following format: Station Number - Sticker Number"
^DD(503330.121,.01,21,0)="^^1^1^2950707^"
^DD(503330.121,.01,21,1,0)="This field contains the VA parking sticker number for the volunteer."
^DD(503330.121,.01,"DT")="2950707"
^DD(503330.121,1,0)="STATE OF VEHICLE REGISTRATION^P5'^DIC(5,^0;2^Q"
^DD(503330.121,1,21,0)="^^1^1^2950707^"
^DD(503330.121,1,21,1,0)="This field contains the state in which the vehicle is registered."
^DD(503330.121,1,"DT")="2950707"
^DD(503330.121,2,0)="LICENSE PLATE NUMBER^F^^0;3^K:$L(X)>12!($L(X)<1) X"
^DD(503330.121,2,3)="Answer must be 1-12 characters in length."
^DD(503330.121,2,21,0)="^^1^1^2950707^"
^DD(503330.121,2,21,1,0)="This field contains the vehicle license plate number."
^DD(503330.121,2,"DT")="2950707"
^DD(503330.121,"B","LICENSE PLATE NUMBER",2)=""
^DD(503330.121,"B","PARKING STICKER",.01)=""
^DD(503330.121,"B","STATE OF VEHICLE REGISTRATION",1)=""
^DD(503330.121,"GL",0,1,.01)=""
^DD(503330.121,"GL",0,2,1)=""
^DD(503330.121,"GL",0,3,2)=""
^DD(503330.121,"IX",.01)=""
^DD(503330.2,0)="FIELD^^4^6"
^DD(503330.2,0,"DDA")="N"
^DD(503330.2,0,"DT")="2961227"
^DD(503330.2,0,"ID",1.5)="W ""   "",$P(^(0),U,6)"
^DD(503330.2,0,"ID",3)="W ""   "",$E($P(^(0),U,4),4,5)_""-""_$E($P(^(0),U,4),6,7)_""-""_$E($P(^(0),U,4),2,3)"
^DD(503330.2,0,"IX","AC",503330.2,3)=""
^DD(503330.2,0,"IX","AD",503330.2,2)=""
^DD(503330.2,0,"IX","B",503330.2,.01)=""
^DD(503330.2,0,"NM","VOLUNTARY MEAL TICKET")=" "
^DD(503330.2,0,"VR")="4.0"
^DD(503330.2,0,"VRPK")="ABSV"
^DD(503330.2,.01,0)="NAME^RP503330'^ABS(503330,^0;1^Q"
^DD(503330.2,.01,1,0)="^.1^^-1"
^DD(503330.2,.01,1,1,0)="503330.2^B"
^DD(503330.2,.01,1,1,1)="S ^ABS(503330.2,""B"",$E(X,1,30),DA)="""""
^DD(503330.2,.01,1,1,2)="K ^ABS(503330.2,""B"",$E(X,1,30),DA)"
^DD(503330.2,.01,3)=" "
^DD(503330.2,.01,21,0)="^^1^1^2930313^"
^DD(503330.2,.01,21,1,0)="This field contains the name of the volunteer."
^DD(503330.2,.01,"DT")="2961230"
^DD(503330.2,1,0)="STATION NUMBER^F^^0;2^K:$L(X)>4!($L(X)<3)!'(X?3.4UN) X"
^DD(503330.2,1,3)="Answer must be 3-4 characters in length."
^DD(503330.2,1,21,0)="^^2^2^2930313^"
^DD(503330.2,1,21,1,0)="This field contains the station number of the volunteer for this meal."
^DD(503330.2,1,21,2,0)="It is the station number recorded in the Austin database."
^DD(503330.2,1,"DT")="2900417"
^DD(503330.2,1.5,0)="PRINTED NAME^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(503330.2,1.5,3)="Answer must be 1-30 characters in length."
^DD(503330.2,1.5,21,0)="^^2^2^2961227^"
^DD(503330.2,1.5,21,1,0)="This field contains the printed name of the volunteer.  It is"
^DD(503330.2,1.5,21,2,0)="also used for printing the names of unscheduled volunteers."
^DD(503330.2,1.5,"DT")="2961227"
^DD(503330.2,2,0)="MEAL TICKET^S^1:YES;0:NO;^0;3^Q"
^DD(503330.2,2,1,0)="^.1"
^DD(503330.2,2,1,1,0)="503330.2^AD"
^DD(503330.2,2,1,1,1)="S ^ABS(503330.2,""AD"",$E(X,1,30),DA)="""""
^DD(503330.2,2,1,1,2)="K ^ABS(503330.2,""AD"",$E(X,1,30),DA)"
^DD(503330.2,2,21,0)="^^1^1^2930313^"
^DD(503330.2,2,21,1,0)="This field is set to 'yes' if the volunteer is eligible for a meal."
^DD(503330.2,2,"DT")="2891024"
^DD(503330.2,3,0)="DATE^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.2,3,1,0)="^.1"
^DD(503330.2,3,1,1,0)="503330.2^AC"
^DD(503330.2,3,1,1,1)="S ^ABS(503330.2,""AC"",$E(X,1,30),DA)="""""
^DD(503330.2,3,1,1,2)="K ^ABS(503330.2,""AC"",$E(X,1,30),DA)"
^DD(503330.2,3,21,0)="^^1^1^2930313^"
^DD(503330.2,3,21,1,0)="This field contains the date the volunteer is eligible for the meal."
^DD(503330.2,3,"DT")="2891013"
^DD(503330.2,4,0)="DATE/TIME MEAL TICKET PRINTED^D^^0;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(503330.2,4,21,0)="^^2^2^2941207^"
^DD(503330.2,4,21,1,0)="This field contains the date and time that a meal ticket was printed for"
^DD(503330.2,4,21,2,0)="the volunteer."
^DD(503330.2,4,"DT")="2941207"
^DD(503330.2,"B","DATE",3)=""
^DD(503330.2,"B","DATE/TIME MEAL TICKET PRINTED",4)=""
^DD(503330.2,"B","MEAL TICKET",2)=""
^DD(503330.2,"B","NAME",.01)=""
^DD(503330.2,"B","PRINTED NAME",1.5)=""
^DD(503330.2,"B","STATION NUMBER",1)=""
^DD(503330.2,"GL",0,1,.01)=""
^DD(503330.2,"GL",0,2,1)=""
^DD(503330.2,"GL",0,3,2)=""
^DD(503330.2,"GL",0,4,3)=""
^DD(503330.2,"GL",0,5,4)=""
^DD(503330.2,"GL",0,6,1.5)=""
^DD(503330.2,"IX",.01)=""
^DD(503330.2,"IX",2)=""
^DD(503330.2,"IX",3)=""
^DD(503330.2,"RQ",.01)=""
^DD(503331,0)="FIELD^^7^9"
^DD(503331,0,"DDA")="N"
^DD(503331,0,"DT")="2930310"
^DD(503331,0,"ID",2)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(503331,0,"ID",4)="W ""   "",$P(^(0),U,5)"
^DD(503331,0,"ID",6)="W ""   "",$P(^(0),U,6)"
^DD(503331,0,"ID","W6")="W ""   "",$P(^(0),U,6)"
^DD(503331,0,"IX","AC",503331,3)=""
^DD(503331,0,"IX","AD",503331,2)=""
^DD(503331,0,"IX","AE",503331,3.5)=""
^DD(503331,0,"IX","AF",503331,5)=""
^DD(503331,0,"IX","AG",503331,2)=""
^DD(503331,0,"IX","B",503331,.01)=""
^DD(503331,0,"NM","VOLUNTEER DAILY TIME")=" "
^DD(503331,0,"VR")="4.0"
^DD(503331,0,"VRPK")="ABSV"
^DD(503331,.01,0)="NAME^RP503330'^ABS(503330,^0;1^Q"
^DD(503331,.01,1,0)="^.1^^-1"
^DD(503331,.01,1,1,0)="503331^B"
^DD(503331,.01,1,1,1)="S ^ABS(503331,""B"",$E(X,1,30),DA)="""""
^DD(503331,.01,1,1,2)="K ^ABS(503331,""B"",$E(X,1,30),DA)"
^DD(503331,.01,3)=" "
^DD(503331,.01,21,0)="^^1^1^2930314^"
^DD(503331,.01,21,1,0)="This field contains the name of volunteer."
^DD(503331,.01,"DT")="2950831"
^DD(503331,1,0)="SITE^F^^0;7^K:$L(X)>7!($L(X)<3) X"
^DD(503331,1,3)="Answer must be 3-7 characters in length."
^DD(503331,1,21,0)="^^5^5^2930324^"
^DD(503331,1,21,1,0)=" "
^DD(503331,1,21,2,0)="This field contains the site number associated with this daily record.  It"
^DD(503331,1,21,3,0)="is the number assigned by the Austin voluntary system defining the"
^DD(503331,1,21,4,0)="specific facility.  It can be 3 numbers or 3 numbers followed by 1"
^DD(503331,1,21,5,0)="uppercase character."
^DD(503331,1,"DT")="2900412"
^DD(503331,2,0)="DATE WORKED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503331,2,1,0)="^.1^^-1"
^DD(503331,2,1,1,0)="503331^AD"
^DD(503331,2,1,1,1)="S ^ABS(503331,""AD"",$E(X,1,30),DA)="""""
^DD(503331,2,1,1,2)="K ^ABS(503331,""AD"",$E(X,1,30),DA)"
^DD(503331,2,1,3,0)="503331^AG^MUMPS"
^DD(503331,2,1,3,1)="S $P(^ABS(503331,DA,0),""^"",2)=$E(X,1,5)_""00"",^ABS(503331,""AF"",$E(X,1,5)_""00"",DA)="""""
^DD(503331,2,1,3,2)="S $P(^ABS(503331,DA,0),""^"",2)="""" K ^ABS(503331,""AF"",$E(X,1,5)_""00"",DA)"
^DD(503331,2,1,3,"%D",0)="^^2^2^2940623^"
^DD(503331,2,1,3,"%D",1,0)="Converts the internal value of DATE WORKED to the format for a month and "
^DD(503331,2,1,3,"%D",2,0)="enters it into the MONTH field."
^DD(503331,2,3)=" "
^DD(503331,2,21,0)="^^1^1^2930314^"
^DD(503331,2,21,1,0)="This field contains the date the volunteer has worked."
^DD(503331,2,"DT")="2880630"
^DD(503331,3,0)="ORGANIZATION^*P503334'^ABS(503334,^0;4^S DIC(""S"")=""I $P(^(0),U,5)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(503331,3,1,0)="^.1"
^DD(503331,3,1,1,0)="503331^AC"
^DD(503331,3,1,1,1)="S ^ABS(503331,""AC"",$E(X,1,30),DA)="""""
^DD(503331,3,1,1,2)="K ^ABS(503331,""AC"",$E(X,1,30),DA)"
^DD(503331,3,12)="Only the selection of Organizations which are active at the Austin DPC are permitted."
^DD(503331,3,12.1)="S DIC(""S"")=""I $P(^(0),U,5)'=1"""
^DD(503331,3,21,0)="^^2^2^2930314^"
^DD(503331,3,21,1,0)="This field contains the service organization the volunteer is representing"
^DD(503331,3,21,2,0)="during this period of work."
^DD(503331,3,"DT")="2930310"
^DD(503331,3.5,0)="SERVICE^P503332'^ABS(503332,^0;8^Q"
^DD(503331,3.5,1,0)="^.1"
^DD(503331,3.5,1,1,0)="503331^AE"
^DD(503331,3.5,1,1,1)="S ^ABS(503331,""AE"",$E(X,1,30),DA)="""""
^DD(503331,3.5,1,1,2)="K ^ABS(503331,""AE"",$E(X,1,30),DA)"
^DD(503331,3.5,21,0)="^^2^2^2930314^"
^DD(503331,3.5,21,1,0)="This field contains the medical center service the volunteer is working"
^DD(503331,3.5,21,2,0)="for during this period."
^DD(503331,3.5,"DT")="2880629"
^DD(503331,4,0)="NUMBER OF HOURS WORKED^RNJ1,0^^0;5^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503331,4,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503331,4,21,0)="^^2^2^2930314^"
^DD(503331,4,21,1,0)="This field contains the numbers of hours worked by the volunteer during"
^DD(503331,4,21,2,0)="this period."
^DD(503331,4,"DT")="2880630"
^DD(503331,5,0)="MONTH^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503331,5,1,0)="^.1"
^DD(503331,5,1,1,0)="503331^AF"
^DD(503331,5,1,1,1)="S ^ABS(503331,""AF"",$E(X,1,30),DA)="""""
^DD(503331,5,1,1,2)="K ^ABS(503331,""AF"",$E(X,1,30),DA)"
^DD(503331,5,9)="^"
^DD(503331,5,21,0)="^^1^1^2930314^"
^DD(503331,5,21,1,0)="This field contains the month during which the work was performed."
^DD(503331,5,23,0)="^^2^2^2930314^"
^DD(503331,5,23,1,0)="This field is populated by a cross reference on the DATE WORKED field"
^DD(503331,5,23,2,0)="of the file."
^DD(503331,5,"DT")="2880630"
^DD(503331,6,0)="COMBINATION^RF^^0;6^K:$L(X)>10!($L(X)<3) X"
^DD(503331,6,3)="ANSWER MUST BE 3-10 CHARACTERS IN LENGTH"
^DD(503331,6,21,0)="^^3^3^2930314^^"
^DD(503331,6,21,1,0)="A combination is a string of 7 to 8 characters representing the service"
^DD(503331,6,21,2,0)="organization represented, the work schedule and the medical center service"
^DD(503331,6,21,3,0)="for which the work was performed."
^DD(503331,6,23,0)="^^3^3^2930314^"
^DD(503331,6,23,1,0)="This field is not normally popluated by the user directly, but rather by"
^DD(503331,6,23,2,0)="a program which allows the user to select only entries appropriate for the"
^DD(503331,6,23,3,0)="site selected."
^DD(503331,6,"DT")="2880601"
^DD(503331,7,0)="REVIEW DAILY ENTRY LIST?^S^1:YES;^0;9^Q"
^DD(503331,7,1,0)="^.1^^0"
^DD(503331,7,21,0)="^^3^3^2930324^"
^DD(503331,7,21,1,0)=" "
^DD(503331,7,21,2,0)="This field contains a ""yes"" if it is to be used in displaying the daily"
^DD(503331,7,21,3,0)="records of an individual volunteer."
^DD(503331,7,23,0)="^^3^3^2930314^"
^DD(503331,7,23,1,0)="This field is a temporary vehicle for selecting specific records"
^DD(503331,7,23,2,0)="for a volunteer for display.  It will be eliminated when the appropriate"
^DD(503331,7,23,3,0)="tools are available from Fileman."
^DD(503331,7,"DT")="2950831"
^DD(503331,"B","COMBINATION",6)=""
^DD(503331,"B","DATE WORKED",2)=""
^DD(503331,"B","MONTH",5)=""
^DD(503331,"B","NAME",.01)=""
^DD(503331,"B","NUMBER OF HOURS WORKED",4)=""
^DD(503331,"B","ORGANIZATION",3)=""
^DD(503331,"B","REVIEW DAILY ENTRY LIST?",7)=""
^DD(503331,"B","SERVICE",3.5)=""
^DD(503331,"B","SITE",1)=""
^DD(503331,"GL",0,1,.01)=""
^DD(503331,"GL",0,2,5)=""
^DD(503331,"GL",0,3,2)=""
^DD(503331,"GL",0,4,3)=""
^DD(503331,"GL",0,5,4)=""
^DD(503331,"GL",0,6,6)=""
^DD(503331,"GL",0,7,1)=""
^DD(503331,"GL",0,8,3.5)=""
^DD(503331,"GL",0,9,7)=""
^DD(503331,"IX",.01)=""
^DD(503331,"IX",2)=""
^DD(503331,"IX",3)=""
^DD(503331,"IX",3.5)=""
^DD(503331,"IX",5)=""
^DD(503331,"RQ",.01)=""
^DD(503331,"RQ",4)=""
^DD(503331,"RQ",6)=""
^DD(503332,0)="FIELD^^2^3"
^DD(503332,0,"DDA")="N"
^DD(503332,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(503332,0,"IX","B",503332,.01)=""
^DD(503332,0,"IX","C",503332,1)=""
^DD(503332,0,"IX","D",503332,2)=""
^DD(503332,0,"NM","VOLUNTARY SERVICE ASSIGNMENT CODES")=" "
^DD(503332,0,"PT",503330.03,3)=""
^DD(503332,0,"PT",503331,3.5)=" "
^DD(503332,0,"PT",503335,1.2)=""
^DD(503332,0,"PT",503336,4)=""
^DD(503332,0,"VR")="4.0"
^DD(503332,0,"VRPK")="ABSV"
^DD(503332,.01,0)="CODE^RF^^0;1^K:$L(X)>4!($L(X)<3)!'(X?3N!(X?3N1U)) X"
^DD(503332,.01,.1)="SERVICE"
^DD(503332,.01,1,0)="^.1"
^DD(503332,.01,1,1,0)="503332^B"
^DD(503332,.01,1,1,1)="S ^ABS(503332,""B"",$E(X,1,30),DA)="""""
^DD(503332,.01,1,1,2)="K ^ABS(503332,""B"",$E(X,1,30),DA)"
^DD(503332,.01,3)="ANSWER MUST BE 3-4 CHARACTERS IN LENGTH"
^DD(503332,.01,21,0)="^^1^1^2930314^"
^DD(503332,.01,21,1,0)="This field contains the code from the Voluntary Service Manual representing the specific medical center service"
^DD(503332,.01,21,2,0)="This field contains the codes recognized by the Austin DPC as representing"
^DD(503332,.01,21,3,0)="the specific medical center service."
^DD(503332,.01,"DT")="2910702"
^DD(503332,1,0)="USING SERVICES/SUBDIVISIONS^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<5) X"
^DD(503332,1,1,0)="^.1"
^DD(503332,1,1,1,0)="503332^C"
^DD(503332,1,1,1,1)="S ^ABS(503332,""C"",$E(X,1,30),DA)="""""
^DD(503332,1,1,1,2)="K ^ABS(503332,""C"",$E(X,1,30),DA)"
^DD(503332,1,3)="ANSWER MUST BE 5-35 CHARACTERS IN LENGTH"
^DD(503332,1,21,0)="^^1^1^2930314^"
^DD(503332,1,21,1,0)="This field contains the full name of the service."
^DD(503332,2,0)="ABBREVIATION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>7!($L(X)<4)!'(X?4U!(X?4U1""(""1U1"")"")) X"
^DD(503332,2,1,0)="^.1"
^DD(503332,2,1,1,0)="503332^D"
^DD(503332,2,1,1,1)="S ^ABS(503332,""D"",$E(X,1,30),DA)="""""
^DD(503332,2,1,1,2)="K ^ABS(503332,""D"",$E(X,1,30),DA)"
^DD(503332,2,3)="ANSWER MUST BE 4-7 CHARACTERS IN LENGTH"
^DD(503332,2,21,0)="^^1^1^2930314^"
^DD(503332,2,21,1,0)="This field contains an abbrevation for the service."
^DD(503332,"B","ABBREVIATION",2)=""
^DD(503332,"B","CODE",.01)=""
^DD(503332,"B","SERVICE",.01)="1"
^DD(503332,"B","USING SERVICES/SUBDIVISIONS",1)=""
^DD(503332,"GL",0,1,.01)=""
^DD(503332,"GL",0,2,1)=""
^DD(503332,"GL",0,3,2)=""
^DD(503332,"IX",.01)=""
^DD(503332,"IX",1)=""
^DD(503332,"IX",2)=""
^DD(503332,"RQ",.01)=""
^DD(503333,0)="FIELD^^2^3"
^DD(503333,0,"DDA")="N"
^DD(503333,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(503333,0,"IX","B",503333,.01)=""
^DD(503333,0,"IX","C",503333,2)=""
^DD(503333,0,"NM","VOLUNTEER'S SCHEDULED WORKDAYS")=" "
^DD(503333,0,"PT",503330.03,2)=""
^DD(503333,0,"VR")="4.0"
^DD(503333,0,"VRPK")="ABSV"
^DD(503333,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X?1E) X"
^DD(503333,.01,1,0)="^.1"
^DD(503333,.01,1,1,0)="503333^B"
^DD(503333,.01,1,1,1)="S ^ABS(503333,""B"",$E(X,1,30),DA)="""""
^DD(503333,.01,1,1,2)="K ^ABS(503333,""B"",$E(X,1,30),DA)"
^DD(503333,.01,3)="ANSWER MUST BE 1 CHARACTER IN LENGTH"
^DD(503333,.01,21,0)="^^1^1^2930314^"
^DD(503333,.01,21,1,0)="This field contains the code from the Voluntary Service Manual representing the work schedule."
^DD(503333,.01,21,2,0)="This field contains the approved codes, recognized by the Austin DPC,"
^DD(503333,.01,21,3,0)="representing the work schedule."
^DD(503333,1,0)="DAYS^RF^^0;2^K:$L(X)>40!($L(X)<6) X"
^DD(503333,1,3)="ENTER DAY(S) OF WEEK"
^DD(503333,1,21,0)="^^1^1^2930314^"
^DD(503333,1,21,1,0)="This field contains the days making up the work schedule."
^DD(503333,2,0)="APPEARS AS^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?1.8U) X"
^DD(503333,2,1,0)="^.1"
^DD(503333,2,1,1,0)="503333^C"
^DD(503333,2,1,1,1)="S ^ABS(503333,""C"",$E(X,1,30),DA)="""""
^DD(503333,2,1,1,2)="K ^ABS(503333,""C"",$E(X,1,30),DA)"
^DD(503333,2,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(503333,2,21,0)="^^1^1^2930314^"
^DD(503333,2,21,1,0)="This field contains the abbreviation of the work schedule."
^DD(503333,"B","APPEARS AS",2)=""
^DD(503333,"B","CODE",.01)=""
^DD(503333,"B","DAYS",1)=""
^DD(503333,"GL",0,1,.01)=""
^DD(503333,"GL",0,2,1)=""
^DD(503333,"GL",0,3,2)=""
^DD(503333,"IX",.01)=""
^DD(503333,"IX",2)=""
^DD(503333,"RQ",.01)=""
^DD(503333,"RQ",1)=""
^DD(503333,"RQ",2)=""
^DD(503334,0)="FIELD^^5^8"
^DD(503334,0,"DDA")="N"
^DD(503334,0,"DT")="3010808"
^DD(503334,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(503334,0,"ID",3)="W ""   "",$P(^(0),U,4)"
^DD(503334,0,"IX","B",503334,.01)=""
^DD(503334,0,"IX","C",503334,1)=""
^DD(503334,0,"IX","D",503334,2)=""
^DD(503334,0,"IX","E",503334,3)=""
^DD(503334,0,"NM","VOLUNTEER ORGANIZATION CODES")=" "
^DD(503334,0,"PT",503330.03,1)=" "
^DD(503334,0,"PT",503331,3)=" "
^DD(503334,0,"PT",503334.1,.5)=" "
^DD(503334,0,"PT",503335,1.1)=" "
^DD(503334,0,"PT",503336,3)=" "
^DD(503334,0,"PT",503338.018,.01)=" "
^DD(503334,0,"PT",503340,1)=""
^DD(503334,0,"PT",503340,42)=""
^DD(503334,0,"PT",503340,45)=""
^DD(503334,0,"PT",503344,10)=""
^DD(503334,0,"PT",503346.1,1)=""
^DD(503334,0,"VR")="4.0"
^DD(503334,0,"VRPK")="ABSV"
^DD(503334,.001,0)="NUMBER^NJ3,0^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503334,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(503334,.001,21,0)="^^3^3^2930323^"
^DD(503334,.001,21,1,0)=" "
^DD(503334,.001,21,2,0)="This field is the Internal Reference Number for file 503334.  The IRN is"
^DD(503334,.001,21,3,0)="calculated as the integer equivalent of the Organization Code."
^DD(503334,.01,0)="CODE^RFX^^0;1^K:$L(X)>3!($L(X)<3)!'(X?3N) X I $D(X) S DINUM=+X"
^DD(503334,.01,1,0)="^.1"
^DD(503334,.01,1,1,0)="503334^B"
^DD(503334,.01,1,1,1)="S ^ABS(503334,""B"",$E(X,1,30),DA)="""""
^DD(503334,.01,1,1,2)="K ^ABS(503334,""B"",$E(X,1,30),DA)"
^DD(503334,.01,3)="ENTER 3 DIGIT NUMERIC ORGANIZATION CODE"
^DD(503334,.01,21,0)="^^1^1^2930314^"
^DD(503334,.01,21,1,0)="This field contains the code from the Voluntary Service Manual representing the organizations providing service to the Medical Center."
^DD(503334,.01,21,2,0)="This field contains the approved codes representing the organizations"
^DD(503334,.01,21,3,0)="providing service to the Medical Center."
^DD(503334,1,0)="ORGANIZATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X"
^DD(503334,1,1,0)="^.1"
^DD(503334,1,1,1,0)="503334^C"
^DD(503334,1,1,1,1)="S ^ABS(503334,""C"",$E(X,1,30),DA)="""""
^DD(503334,1,1,1,2)="K ^ABS(503334,""C"",$E(X,1,30),DA)"
^DD(503334,1,1,2,0)="^^TRIGGER^503334^1.5"
^DD(503334,1,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y X ^DD(503334,1,1,2,1.1) S DIH=$G(^ABS(503334,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=503334,DIG=1.5 D ^DICR"
^DD(503334,1,1,2,1.1)="S X=DIV S X=DIV X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DD(503334,1,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503334,DIV(0),0)),DIV=X S $P(^(0),U,7)=DIV,DIH=503334,DIG=1.5 D ^DICR"
^DD(503334,1,1,2,"%D",0)="^^1^1^3010808^"
^DD(503334,1,1,2,"%D",1,0)="This cross reference creates a lowercase printing name value for printing."
^DD(503334,1,1,2,"CREATE VALUE")="LOWERCASE(ORGANIZATION)"
^DD(503334,1,1,2,"DELETE VALUE")="@"
^DD(503334,1,1,2,"DT")="3010808"
^DD(503334,1,1,2,"FIELD")="#1.5"
^DD(503334,1,3)="ANSWER MUST BE 3-30 CHARACTERS IN LENGTH"
^DD(503334,1,21,0)="^^1^1^2930314^"
^DD(503334,1,21,1,0)="This field contains the full name of the organization providing service to the Medical Center."
^DD(503334,1,"DT")="3010808"
^DD(503334,1.5,0)="LOWERCASE PRINTING NAME^F^^0;7^K:$L(X)>30!($L(X)<3) X"
^DD(503334,1.5,3)="Answer must be 3-30 characters in length."
^DD(503334,1.5,5,1,0)="503334^1^2"
^DD(503334,1.5,21,0)="^^3^3^3010808^"
^DD(503334,1.5,21,1,0)="This field contains the lowercase value of the Organization Name for"
^DD(503334,1.5,21,2,0)="printing.  It is triggered by the ORGANIZATION field but can be modified"
^DD(503334,1.5,21,3,0)="as appropriate."
^DD(503334,1.5,"DT")="3010808"
^DD(503334,2,0)="ABBREVIATION^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<2)!'(X?4U) X"
^DD(503334,2,1,0)="^.1"
^DD(503334,2,1,1,0)="503334^D"
^DD(503334,2,1,1,1)="S ^ABS(503334,""D"",$E(X,1,30),DA)="""""
^DD(503334,2,1,1,2)="K ^ABS(503334,""D"",$E(X,1,30),DA)"
^DD(503334,2,3)="ANSWER MUST BE 2-4 CHARACTERS IN LENGTH"
^DD(503334,2,21,0)="^^1^1^2930314^"
^DD(503334,2,21,1,0)="This field contains an abbreviation for the specific organization."
^DD(503334,2,"DT")="2880701"
^DD(503334,3,0)="LOCAL ABBREVIATION^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<2) X"
^DD(503334,3,1,0)="^.1"
^DD(503334,3,1,1,0)="503334^E"
^DD(503334,3,1,1,1)="S ^ABS(503334,""E"",$E(X,1,30),DA)="""""
^DD(503334,3,1,1,2)="K ^ABS(503334,""E"",$E(X,1,30),DA)"
^DD(503334,3,3)="ANSWER MUST BE 2-6 CHARACTERS IN LENGTH"
^DD(503334,3,21,0)="^^2^2^2930323^"
^DD(503334,3,21,1,0)="This field contains an abbreviation for the organization selected by the"
^DD(503334,3,21,2,0)="local facility."
^DD(503334,3,21,3,0)="local facility."
^DD(503334,3,"DT")="2880701"
^DD(503334,4,0)="INACTIVE AUSTIN ORGANIZATION^S^0:NO;1:YES;^0;5^Q"
^DD(503334,4,21,0)="^^2^2^2930310^"
^DD(503334,4,21,1,0)="This field contains a flag which indicates which organizations are in the"
^DD(503334,4,21,2,0)="AUSTIN DPC Volunteer database."
^DD(503334,4,"DT")="2930310"
^DD(503334,5,0)="DONATIONS COUNTER^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1.N) X"
^DD(503334,5,3)="Type a number between 0 and 99999, 0 Decimal Digits"
^DD(503334,5,"DT")="3000918"
^DD(503334,"B","ABBREVIATION",2)=""
^DD(503334,"B","CODE",.01)=""
^DD(503334,"B","DONATIONS COUNTER",5)=""
^DD(503334,"B","INACTIVE AUSTIN ORGANIZATION",4)=""
^DD(503334,"B","LOCAL ABBREVIATION",3)=""
^DD(503334,"B","LOWERCASE PRINTING NAME",1.5)=""
^DD(503334,"B","NUMBER",.001)=""
^DD(503334,"B","ORGANIZATION",1)=""
^DD(503334,"GL",0,1,.01)=""
^DD(503334,"GL",0,2,1)=""
^DD(503334,"GL",0,3,2)=""
^DD(503334,"GL",0,4,3)=""
^DD(503334,"GL",0,5,4)=""
^DD(503334,"GL",0,6,5)=""
^DD(503334,"GL",0,7,1.5)=""
^DD(503334,"IX",.01)=""
^DD(503334,"IX",1)=""
^DD(503334,"IX",2)=""
^DD(503334,"IX",3)=""
^DD(503334,"RQ",.01)=""
^DD(503334.1,0)="FIELD^^15^24"
^DD(503334.1,0,"DT")="3000207"
^DD(503334.1,0,"ID",.5)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ABS(503334,+$P(^(0),U,11),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(503334,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(503334.1,0,"ID",2)="W ""   "",$P(^(0),U,3)"
^DD(503334.1,0,"IX","AC",503334.1,9)=""
^DD(503334.1,0,"IX","AD",503334.1,11)=""
^DD(503334.1,0,"IX","B",503334.1,.01)=""
^DD(503334.1,0,"IX","C",503334.1,.5)=""
^DD(503334.1,0,"IX","D",503334.1,2)=""
^DD(503334.1,0,"IX","E",503334.112,.01)=""
^DD(503334.1,0,"IX","F",503334.1,.5)=""
^DD(503334.1,0,"NM","VOLUNTARY ORGANIZATION NATIONAL OFFICIAL")=" "
^DD(503334.1,0,"VR")="4.0"
^DD(503334.1,0,"VRPK")="ABSV"
^DD(503334.1,.01,0)="NAME^RF^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(503334.1,.01,1,0)="^.1"
^DD(503334.1,.01,1,1,0)="503334.1^B"
^DD(503334.1,.01,1,1,1)="S ^ABS(503334.1,""B"",$E(X,1,30),DA)="""""
^DD(503334.1,.01,1,1,2)="K ^ABS(503334.1,""B"",$E(X,1,30),DA)"
^DD(503334.1,.01,1,2,0)="^^TRIGGER^503334.1^2.5"
^DD(503334.1,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503334.1,.01,1,2,1.1) X ^DD(503334.1,.01,1,2,1.4)"
^DD(503334.1,.01,1,2,1.1)="S X=DIV X ^DD(503334.1,.01,1,2,49.3) S X=X_Y_"" ""_$P(Y(1),U,17)"
^DD(503334.1,.01,1,2,1.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(503334.1,.01,1,2,2.4)"
^DD(503334.1,.01,1,2,2.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,.01,1,2,49.2)="S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16)_"" "",Y(2)=X S X=DIV,Y(3)=X S X="","",Y(4)=X S X=2,Y(5)=X S X=99"
^DD(503334.1,.01,1,2,49.3)="X ^DD(503334.1,.01,1,2,49.2) S X=$P(Y(3),Y(4),Y(5),X) S Y=X,X=Y(2),X=X_Y_"" "",Y(6)=X S X=DIV,Y(7)=X S X="","",Y(8)=X S X=1,X=$P(Y(7),Y(8),X) S Y=X,X=Y(6),X=X"
^DD(503334.1,.01,1,2,"CREATE VALUE")="NAME PREFIX_"" ""_$P(NAME,"","",2,99)_"" ""_$P(NAME,"","",1)_"" ""_NAME SUFFIX"
^DD(503334.1,.01,1,2,"DELETE VALUE")="@"
^DD(503334.1,.01,1,2,"DT")="3000207"
^DD(503334.1,.01,1,2,"FIELD")="NAME LINE 1"
^DD(503334.1,.01,3)="Answer must be 3-45 characters in length."
^DD(503334.1,.01,"DT")="3000207"
^DD(503334.1,.05,0)="NAME PREFIX^F^^0;16^K:$L(X)>10!($L(X)<2) X"
^DD(503334.1,.05,1,0)="^.1"
^DD(503334.1,.05,1,1,0)="^^TRIGGER^503334.1^2.5"
^DD(503334.1,.05,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503334.1,.05,1,1,1.1) X ^DD(503334.1,.05,1,1,1.4)"
^DD(503334.1,.05,1,1,1.1)="S X=DIV X ^DD(503334.1,.05,1,1,49.3) S X=$P(Y(7),Y(8),X) S Y=X,X=Y(6),X=X_Y_"" ""_$P(Y(2),U,17)"
^DD(503334.1,.05,1,1,1.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,.05,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(503334.1,.05,1,1,2.4)"
^DD(503334.1,.05,1,1,2.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,.05,1,1,49.2)="S Y(2)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=DIV_"" "",Y(1)=X S X=$P(Y(2),U,1),Y(3)=X S X="","",Y(4)=X S X=2,Y(5)=X S X=99"
^DD(503334.1,.05,1,1,49.3)="X ^DD(503334.1,.05,1,1,49.2) S X=$P(Y(3),Y(4),Y(5),X) S Y=X,X=Y(1),X=X_Y_"" "",Y(6)=X S X=$P(Y(2),U,1),Y(7)=X S X="","",Y(8)=X S X=1"
^DD(503334.1,.05,1,1,"CREATE VALUE")="NAME PREFIX_"" ""_$P(NAME,"","",2,99)_"" ""_$P(NAME,"","",1)_"" ""_NAME SUFFIX"
^DD(503334.1,.05,1,1,"DELETE VALUE")="@"
^DD(503334.1,.05,1,1,"DT")="3000207"
^DD(503334.1,.05,1,1,"FIELD")="NAME LINE 1"
^DD(503334.1,.05,3)="Answer must be 2-10 characters in length."
^DD(503334.1,.05,"DT")="3000207"
^DD(503334.1,.07,0)="NAME SUFFIX^F^^0;17^K:$L(X)>10!($L(X)<2) X"
^DD(503334.1,.07,1,0)="^.1"
^DD(503334.1,.07,1,1,0)="^^TRIGGER^503334.1^2.5"
^DD(503334.1,.07,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503334.1,.07,1,1,1.1) X ^DD(503334.1,.07,1,1,1.4)"
^DD(503334.1,.07,1,1,1.1)="S X=DIV X ^DD(503334.1,.07,1,1,49.3) S X=$P(Y(7),Y(8),X) S Y=X,X=Y(6),X=X_Y_"" ""_DIV"
^DD(503334.1,.07,1,1,1.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,.07,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" X ^DD(503334.1,.07,1,1,2.4)"
^DD(503334.1,.07,1,1,2.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,1)=DIV,DIH=503334.1,DIG=2.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,.07,1,1,49.2)="S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,16)_"" "",Y(2)=X S X=$P(Y(1),U,1),Y(3)=X S X="","",Y(4)=X S X=2,Y(5)=X S X=99"
^DD(503334.1,.07,1,1,49.3)="X ^DD(503334.1,.07,1,1,49.2) S X=$P(Y(3),Y(4),Y(5),X) S Y=X,X=Y(2),X=X_Y_"" "",Y(6)=X S X=$P(Y(1),U,1),Y(7)=X S X="","",Y(8)=X S X=1"
^DD(503334.1,.07,1,1,"CREATE VALUE")="NAME PREFIX_"" ""_$P(NAME,"","",2,99)_"" ""_$P(NAME,"","",1)_"" ""_NAME SUFFIX"
^DD(503334.1,.07,1,1,"DELETE VALUE")="@"
^DD(503334.1,.07,1,1,"FIELD")="NAME LINE 1"
^DD(503334.1,.07,3)="Answer must be 2-10 characters in length."
^DD(503334.1,.07,"DT")="3000207"
^DD(503334.1,.5,0)="ORGANIZATION^P503334'^ABS(503334,^0;11^Q"
^DD(503334.1,.5,1,0)="^.1"
^DD(503334.1,.5,1,1,0)="503334.1^C"
^DD(503334.1,.5,1,1,1)="S ^ABS(503334.1,""C"",$E(X,1,30),DA)="""""
^DD(503334.1,.5,1,1,2)="K ^ABS(503334.1,""C"",$E(X,1,30),DA)"
^DD(503334.1,.5,1,1,"DT")="2991115"
^DD(503334.1,.5,1,2,0)="503334.1^F"
^DD(503334.1,.5,1,2,1)="S ^ABS(503334.1,""F"",$E(X,1,30),DA)="""""
^DD(503334.1,.5,1,2,2)="K ^ABS(503334.1,""F"",$E(X,1,30),DA)"
^DD(503334.1,.5,1,2,"%D",0)="^^1^1^3000303^"
^DD(503334.1,.5,1,2,"%D",1,0)="This cross reference was created to permit lookup by organization."
^DD(503334.1,.5,1,2,"DT")="3000303"
^DD(503334.1,.5,"DT")="3000303"
^DD(503334.1,.6,0)="ORGANIZATION NAME^CJ40^^ ; ^X ^DD(503334.1,.6,9.2) S Y(503334.1,.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,.6,101),U,2) S D0=Y(503334.1,.6,80)"
^DD(503334.1,.6,9)="^"
^DD(503334.1,.6,9.01)="503334^1;503334.1^.5"
^DD(503334.1,.6,9.1)="ORGANIZATION:#1"
^DD(503334.1,.6,9.2)="S Y(503334.1,.6,80)=$S($D(D0):D0,1:""""),Y(503334.1,.6,1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:""""),D0=$P(Y(503334.1,.6,1),U,11) S:'$D(^ABS(503334,+D0,0)) D0=-1"
^DD(503334.1,.6,"DT")="3000207"
^DD(503334.1,1,0)="STATION NUMBER^P503338'^ABS(503338,^0;2^Q"
^DD(503334.1,1,"DT")="2941230"
^DD(503334.1,2,0)="TITLE^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(503334.1,2,1,0)="^.1"
^DD(503334.1,2,1,1,0)="503334.1^D"
^DD(503334.1,2,1,1,1)="S ^ABS(503334.1,""D"",$E(X,1,30),DA)="""""
^DD(503334.1,2,1,1,2)="K ^ABS(503334.1,""D"",$E(X,1,30),DA)"
^DD(503334.1,2,1,1,"DT")="2991115"
^DD(503334.1,2,1,2,0)="^^TRIGGER^503334.1^2.6"
^DD(503334.1,2,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(503334.1,2,1,2,1.4)"
^DD(503334.1,2,1,2,1.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,2)=DIV,DIH=503334.1,DIG=2.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,2,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" X ^DD(503334.1,2,1,2,2.4)"
^DD(503334.1,2,1,2,2.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,2)=DIV,DIH=503334.1,DIG=2.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,2,1,2,"CREATE VALUE")="TITLE"
^DD(503334.1,2,1,2,"DELETE VALUE")="@"
^DD(503334.1,2,1,2,"DT")="3000216"
^DD(503334.1,2,1,2,"FIELD")="NAME LINE 2"
^DD(503334.1,2,3)="Answer must be 1-30 characters in length."
^DD(503334.1,2,"DT")="3000216"
^DD(503334.1,2.5,0)="NAME LINE 1^FO^^2;1^K:$L(X)>45!($L(X)<1) X"
^DD(503334.1,2.5,2)="S Y(0)=Y S Y=$$STRIP^ABSVU1(Y)"
^DD(503334.1,2.5,2.1)="S Y=$$STRIP^ABSVU1(Y)"
^DD(503334.1,2.5,3)="Answer must be 1-45 characters in length."
^DD(503334.1,2.5,5,1,0)="503334.1^.01^2"
^DD(503334.1,2.5,5,2,0)="503334.1^.05^1"
^DD(503334.1,2.5,5,3,0)="503334.1^.07^1"
^DD(503334.1,2.5,"DT")="3000207"
^DD(503334.1,2.6,0)="NAME LINE 2^F^^2;2^K:$L(X)>45!($L(X)<1) X"
^DD(503334.1,2.6,3)="Answer must be 1-45 characters in length."
^DD(503334.1,2.6,5,1,0)="503334.1^2^2"
^DD(503334.1,2.6,"DT")="3000207"
^DD(503334.1,3,0)="ADDRESS LINE 1^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(503334.1,3,3)="Answer must be 1-30 characters in length."
^DD(503334.1,3,"DT")="3000207"
^DD(503334.1,3.5,0)="ADDRESS LINE 3^F^^2;3^K:$L(X)>30!($L(X)<1) X"
^DD(503334.1,3.5,3)="Answer must be 1-30 characters in length."
^DD(503334.1,3.5,"DT")="3000207"
^DD(503334.1,3.6,0)="ADDRESS CITY/ZIP^F^^2;4^K:$L(X)>45!($L(X)<1) X"
^DD(503334.1,3.6,3)="Answer must be 1-45 characters in length."
^DD(503334.1,3.6,5,1,0)="503334.1^5^1"
^DD(503334.1,3.6,5,2,0)="503334.1^6^1"
^DD(503334.1,3.6,5,3,0)="503334.1^8^1"
^DD(503334.1,3.6,"DT")="3000207"
^DD(503334.1,4,0)="ADDRESS LINE 2^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(503334.1,4,3)="Answer must be 1-30 characters in length."
^DD(503334.1,4,"DT")="3000207"
^DD(503334.1,5,0)="CITY^F^^0;6^K:$L(X)>20!($L(X)<1) X"
^DD(503334.1,5,1,0)="^.1"
^DD(503334.1,5,1,1,0)="^^TRIGGER^503334.1^3.6"
^DD(503334.1,5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(503334.1,5,1,1,1.1) X ^DD(503334.1,5,1,1,1.4)"
^DD(503334.1,5,1,1,1.1)="S X=DIV X $P(^DD(503334.1,7,0),U,5,99) S Y(1)=X S Y(2)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=DIV_"", ""_Y(1)_""  ""_$P(Y(2),U,8)"
^DD(503334.1,5,1,1,1.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(503334.1,5,1,1,2.4)"
^DD(503334.1,5,1,1,2.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,5,1,1,"CREATE VALUE")="#5_"", ""_#7_""  ""_#8"
^DD(503334.1,5,1,1,"DELETE VALUE")="@"
^DD(503334.1,5,1,1,"FIELD")="#3.6"
^DD(503334.1,5,3)="Answer must be 1-20 characters in length."
^DD(503334.1,5,"DT")="3000207"
^DD(503334.1,6,0)="STATE^P5'^DIC(5,^0;7^Q"
^DD(503334.1,6,1,0)="^.1"
^DD(503334.1,6,1,1,0)="^^TRIGGER^503334.1^3.6"
^DD(503334.1,6,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(503334.1,6,1,1,1.1) X ^DD(503334.1,6,1,1,1.4)"
^DD(503334.1,6,1,1,1.1)="S X=DIV X $P(^DD(503334.1,7,0),U,5,99) S Y(2)=X S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6)_"", ""_Y(2)_""  ""_$P(Y(1),U,8)"
^DD(503334.1,6,1,1,1.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,6,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(503334.1,6,1,1,2.4)"
^DD(503334.1,6,1,1,2.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,6,1,1,"CREATE VALUE")="#5_"", ""_#7_""  ""_#8"
^DD(503334.1,6,1,1,"DELETE VALUE")="@"
^DD(503334.1,6,1,1,"FIELD")="#3.6"
^DD(503334.1,6,"DT")="3000207"
^DD(503334.1,7,0)="STATE ABBREVIATION^CJ2^^ ; ^X ^DD(503334.1,7,9.2) S Y(503334.1,7,101)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(503334.1,7,101),U,2) S D0=Y(503334.1,7,80)"
^DD(503334.1,7,9)="^"
^DD(503334.1,7,9.01)="5^1;503334.1^6"
^DD(503334.1,7,9.1)="STATE:ABBREVIATION"
^DD(503334.1,7,9.2)="S Y(503334.1,7,80)=$S($D(D0):D0,1:""""),Y(503334.1,7,1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:""""),D0=$P(Y(503334.1,7,1),U,7) S:'$D(^DIC(5,+D0,0)) D0=-1"
^DD(503334.1,8,0)="ZIP CODE^F^^0;8^K:$L(X)>10!($L(X)<5) X"
^DD(503334.1,8,1,0)="^.1"
^DD(503334.1,8,1,1,0)="^^TRIGGER^503334.1^3.6"
^DD(503334.1,8,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(503334.1,8,1,1,1.1) X ^DD(503334.1,8,1,1,1.4)"
^DD(503334.1,8,1,1,1.1)="S X=DIV X $P(^DD(503334.1,7,0),U,5,99) S Y(2)=X S Y(1)=$S($D(^ABS(503334.1,D0,0)):^(0),1:"""") S X=$P(Y(1),U,6)_"", ""_Y(2)_""  ""_DIV"
^DD(503334.1,8,1,1,1.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,8,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503334.1,D0,2)):^(2),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(503334.1,8,1,1,2.4)"
^DD(503334.1,8,1,1,2.4)="S DIH=$S($D(^ABS(503334.1,DIV(0),2)):^(2),1:""""),DIV=X S $P(^(2),U,4)=DIV,DIH=503334.1,DIG=3.6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503334.1,8,1,1,"CREATE VALUE")="#5_"", ""_#7_""  ""_#8"
^DD(503334.1,8,1,1,"DELETE VALUE")="@"
^DD(503334.1,8,1,1,"FIELD")="#3.6"
^DD(503334.1,8,3)="Answer must be 5-10 characters in length."
^DD(503334.1,8,"DT")="3000207"
^DD(503334.1,9,0)="NATIONAL CERTIFYING OFFICIAL?^S^0:N;1:Y;^0;9^Q"
^DD(503334.1,9,1,0)="^.1"
^DD(503334.1,9,1,1,0)="503334.1^AC"
^DD(503334.1,9,1,1,1)="S ^ABS(503334.1,""AC"",$E(X,1,30),DA)="""""
^DD(503334.1,9,1,1,2)="K ^ABS(503334.1,""AC"",$E(X,1,30),DA)"
^DD(503334.1,9,1,1,"DT")="3000419"
^DD(503334.1,9,"DT")="3000419"
^DD(503334.1,10,0)="REVIEW MINUTES?^S^0:N;1:Y;^0;10^Q"
^DD(503334.1,10,3)=" "
^DD(503334.1,10,"DT")="2941230"
^DD(503334.1,11,0)="NATIONAL REPRESENTATIVE?^S^0:NO;1:YES;^0;12^Q"
^DD(503334.1,11,1,0)="^.1"
^DD(503334.1,11,1,1,0)="503334.1^AD"
^DD(503334.1,11,1,1,1)="S ^ABS(503334.1,""AD"",$E(X,1,30),DA)="""""
^DD(503334.1,11,1,1,2)="K ^ABS(503334.1,""AD"",$E(X,1,30),DA)"
^DD(503334.1,11,1,1,"DT")="3000419"
^DD(503334.1,11,"DT")="3000419"
^DD(503334.1,12,0)="AREA OF JURISDICTION^503334.112^^1;0"
^DD(503334.1,12,3)="Answer must be 1-150 characters in length."
^DD(503334.1,12,"DT")="2941230"
^DD(503334.1,13,0)="TELEPHONE NUMBER^F^^0;13^K:$L(X)>18!($L(X)<10) X"
^DD(503334.1,13,3)="Answer must be 10-18 characters in length."
^DD(503334.1,13,"DT")="2941230"
^DD(503334.1,14,0)="DATE APPOINTED^D^^0;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503334.1,14,"DT")="2941230"
^DD(503334.1,15,0)="AJR REVIEW MONTH^S^1:JANUARY;2:FEBRUARY;3:MARCH;4:APRIL;5:MAY;6:JUNE;7:JULY;8:AUGUST;9:SEPTEMBER;10:OCTOBER;11:NOVEMBER;12:DECEMBER;^0;15^Q"
^DD(503334.1,15,"DT")="2941230"
^DD(503334.1,"B","ADDRESS CITY/ZIP",3.6)=""
^DD(503334.1,"B","ADDRESS LINE 1",3)=""
^DD(503334.1,"B","ADDRESS LINE 2",4)=""
^DD(503334.1,"B","ADDRESS LINE 3",3.5)=""
^DD(503334.1,"B","AJR REVIEW MONTH",15)=""
^DD(503334.1,"B","AREA OF JURISDICTION",12)=""
^DD(503334.1,"B","CITY",5)=""
^DD(503334.1,"B","DATE APPOINTED",14)=""
^DD(503334.1,"B","NAME",.01)=""
^DD(503334.1,"B","NAME LINE 1",2.5)=""
^DD(503334.1,"B","NAME LINE 2",2.6)=""
^DD(503334.1,"B","NAME PREFIX",.05)=""
^DD(503334.1,"B","NAME SUFFIX",.07)=""
^DD(503334.1,"B","NATIONAL CERTIFYING OFFICIAL?",9)=""
^DD(503334.1,"B","NATIONAL REPRESENTATIVE?",11)=""
^DD(503334.1,"B","ORGANIZATION",.5)=""
^DD(503334.1,"B","ORGANIZATION NAME",.6)=""
^DD(503334.1,"B","REVIEW MINUTES?",10)=""
^DD(503334.1,"B","STATE",6)=""
^DD(503334.1,"B","STATE ABBREVIATION",7)=""
^DD(503334.1,"B","STATION NUMBER",1)=""
^DD(503334.1,"B","TELEPHONE NUMBER",13)=""
^DD(503334.1,"B","TITLE",2)=""
^DD(503334.1,"B","ZIP CODE",8)=""
^DD(503334.1,"GL",0,1,.01)=""
^DD(503334.1,"GL",0,2,1)=""
^DD(503334.1,"GL",0,3,2)=""
^DD(503334.1,"GL",0,4,3)=""
^DD(503334.1,"GL",0,5,4)=""
^DD(503334.1,"GL",0,6,5)=""
^DD(503334.1,"GL",0,7,6)=""
^DD(503334.1,"GL",0,8,8)=""
^DD(503334.1,"GL",0,9,9)=""
^DD(503334.1,"GL",0,10,10)=""
^DD(503334.1,"GL",0,11,.5)=""
^DD(503334.1,"GL",0,12,11)=""
^DD(503334.1,"GL",0,13,13)=""
^DD(503334.1,"GL",0,14,14)=""
^DD(503334.1,"GL",0,15,15)=""
^DD(503334.1,"GL",0,16,.05)=""
^DD(503334.1,"GL",0,17,.07)=""
^DD(503334.1,"GL",1,0,12)=""
^DD(503334.1,"GL",2,1,2.5)=""
^DD(503334.1,"GL",2,2,2.6)=""
^DD(503334.1,"GL",2,3,3.5)=""
^DD(503334.1,"GL",2,4,3.6)=""
^DD(503334.1,"IX",.01)=""
^DD(503334.1,"IX",.05)=""
^DD(503334.1,"IX",.07)=""
^DD(503334.1,"IX",.5)=""
^DD(503334.1,"IX",2)=""
^DD(503334.1,"IX",5)=""
^DD(503334.1,"IX",6)=""
^DD(503334.1,"IX",8)=""
^DD(503334.1,"IX",9)=""
^DD(503334.1,"IX",11)=""
^DD(503334.1,"RQ",.01)=""
^DD(503334.1,"SB",503334.112,12)=""
^DD(503334.112,0)="AREA OF JURISDICTION SUB-FIELD^^.01^1"
^DD(503334.112,0,"DT")="3000128"
^DD(503334.112,0,"IX","B",503334.112,.01)=""
^DD(503334.112,0,"NM","AREA OF JURISDICTION")=""
^DD(503334.112,0,"UP")="503334.1"
^DD(503334.112,.01,0)="AREA OF JURISDICTION^MF^^0;1^K:$L(X)>5!($L(X)<3) X"
^DD(503334.112,.01,1,0)="^.1"
^DD(503334.112,.01,1,1,0)="503334.112^B"
^DD(503334.112,.01,1,1,1)="S ^ABS(503334.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(503334.112,.01,1,1,2)="K ^ABS(503334.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(503334.112,.01,1,2,0)="503334.1^E"
^DD(503334.112,.01,1,2,1)="S ^ABS(503334.1,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(503334.112,.01,1,2,2)="K ^ABS(503334.1,""E"",$E(X,1,30),DA(1),DA)"
^DD(503334.112,.01,1,2,"%D",0)="^^1^1^3000128^"
^DD(503334.112,.01,1,2,"%D",1,0)="This cross reference is used to specifically print mailing labels."
^DD(503334.112,.01,1,2,"DT")="3000128"
^DD(503334.112,.01,3)="Answer must be 3-5 characters in length."
^DD(503334.112,.01,21,0)="^^2^2^3000128^"
^DD(503334.112,.01,21,1,0)="This field contains the station number or 'USA' for printing of mailing"
^DD(503334.112,.01,21,2,0)="labels."
^DD(503334.112,.01,"DT")="3000128"
^DD(503334.112,"B","AREA OF JURISDICTION",.01)=""
^DD(503334.112,"GL",0,1,.01)=""
^DD(503334.112,"IX",.01)=""
^DD(503335,0)="FIELD^^40^53"
^DD(503335,0,"DDA")="N"
^DD(503335,0,"DT")="2930514"
^DD(503335,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(503335,0,"ID",4)="W ""   "",$E($P(^(0),U,5),4,5)_""-""_$E($P(^(0),U,5),6,7)_""-""_$E($P(^(0),U,5),2,3)"
^DD(503335,0,"ID","W1")="W ""   "",$P(^(0),U,2)"
^DD(503335,0,"IX","AC",503335,1.5)=""
^DD(503335,0,"IX","AD",503335,1.1)=""
^DD(503335,0,"IX","AE",503335,1.2)=""
^DD(503335,0,"IX","AF",503335,1.9)=""
^DD(503335,0,"IX","AI",503335,2.1)=""
^DD(503335,0,"IX","AJ",503335,2.3)=""
^DD(503335,0,"IX","AK",503335,4)=""
^DD(503335,0,"IX","AL",503335,37)=""
^DD(503335,0,"IX","B",503335,.01)=""
^DD(503335,0,"NM","VOLUNTARY TIME CARD")=" "
^DD(503335,0,"VR")="4.0"
^DD(503335,0,"VRPK")="ABSV"
^DD(503335,.01,0)="NAME^RP503330'^ABS(503330,^0;1^Q"
^DD(503335,.01,1,0)="^.1^^-1"
^DD(503335,.01,1,1,0)="503335^B"
^DD(503335,.01,1,1,1)="S ^ABS(503335,""B"",$E(X,1,30),DA)="""""
^DD(503335,.01,1,1,2)="K ^ABS(503335,""B"",$E(X,1,30),DA)"
^DD(503335,.01,3)=" "
^DD(503335,.01,21,0)="^^2^2^2930324^"
^DD(503335,.01,21,1,0)=" "
^DD(503335,.01,21,2,0)="This field contains the name of the volunteer."
^DD(503335,.01,"DT")="2950118"
^DD(503335,1,0)="COMBINATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<7) X"
^DD(503335,1,1,0)="^.1^^0"
^DD(503335,1,3)="ANSWER MUST BE 7-8 CHARACTERS IN LENGTH"
^DD(503335,1,21,0)="^^3^3^2930324^"
^DD(503335,1,21,1,0)=" "
^DD(503335,1,21,2,0)="This field contains the Organization/Schedule/Service combination for the"
^DD(503335,1,21,3,0)="time card."
^DD(503335,1,"DT")="2880707"
^DD(503335,1.1,0)="ORGANIZATION^*P503334'^ABS(503334,^0;7^S DIC(""S"")=""I $P(^(0),U,5)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(503335,1.1,1,0)="^.1"
^DD(503335,1.1,1,1,0)="503335^AD"
^DD(503335,1.1,1,1,1)="S ^ABS(503335,""AD"",$E(X,1,30),DA)="""""
^DD(503335,1.1,1,1,2)="K ^ABS(503335,""AD"",$E(X,1,30),DA)"
^DD(503335,1.1,3)=" "
^DD(503335,1.1,12)="You may select on organizations marked active at the DPC."
^DD(503335,1.1,12.1)="S DIC(""S"")=""I $P(^(0),U,5)'=1"""
^DD(503335,1.1,21,0)="^^2^2^2930324^"
^DD(503335,1.1,21,1,0)=" "
^DD(503335,1.1,21,2,0)="This field contains the Organization for the time card."
^DD(503335,1.1,"DT")="2930310"
^DD(503335,1.15,0)="ORGANIZATION NAME^CJ30^^ ; ^X ^DD(503335,1.15,9.2) S Y(503335,1.15,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503335,1.15,101),U,2) S D0=Y(503335,1.15,80)"
^DD(503335,1.15,9)="^"
^DD(503335,1.15,9.01)="503334^1;503335^1.1"
^DD(503335,1.15,9.1)="ORGANIZATION:ORGANIZATION"
^DD(503335,1.15,9.2)="S Y(503335,1.15,80)=$S($D(D0):D0,1:""""),Y(503335,1.15,1)=$S($D(^ABS(503335,D0,0)):^(0),1:""""),D0=$P(Y(503335,1.15,1),U,7) S:'$D(^ABS(503334,+D0,0)) D0=-1"
^DD(503335,1.15,21,0)="^^3^3^2930324^"
^DD(503335,1.15,21,1,0)=" "
^DD(503335,1.15,21,2,0)="This field extracts the name of the Organization in field 1.1 from file"
^DD(503335,1.15,21,3,0)="503334."
^DD(503335,1.15,"DT")="2930311"
^DD(503335,1.2,0)="SERVICE^P503332'^ABS(503332,^0;8^Q"
^DD(503335,1.2,1,0)="^.1"
^DD(503335,1.2,1,1,0)="503335^AE"
^DD(503335,1.2,1,1,1)="S ^ABS(503335,""AE"",$E(X,1,30),DA)="""""
^DD(503335,1.2,1,1,2)="K ^ABS(503335,""AE"",$E(X,1,30),DA)"
^DD(503335,1.2,21,0)="^^2^2^2930324^"
^DD(503335,1.2,21,1,0)=" "
^DD(503335,1.2,21,2,0)="This field contains the service assignment for the time card."
^DD(503335,1.2,"DT")="2880804"
^DD(503335,1.3,0)="SERVICE NAME^CJ30^^ ; ^X ^DD(503335,1.3,9.2) S Y(503335,1.3,101)=$S($D(^ABS(503332,D0,0)):^(0),1:"""") S X=$P(Y(503335,1.3,101),U,2) S D0=Y(503335,1.3,80)"
^DD(503335,1.3,9)="^"
^DD(503335,1.3,9.01)="503332^1;503335^1.2"
^DD(503335,1.3,9.1)="SERVICE:#1"
^DD(503335,1.3,9.2)="S Y(503335,1.3,80)=$S($D(D0):D0,1:""""),Y(503335,1.3,1)=$S($D(^ABS(503335,D0,0)):^(0),1:""""),D0=$P(Y(503335,1.3,1),U,8) S:'$D(^ABS(503332,+D0,0)) D0=-1"
^DD(503335,1.3,21,0)="^^2^2^2930324^"
^DD(503335,1.3,21,1,0)=" "
^DD(503335,1.3,21,2,0)="This field extracts the name of the Service in field 1.2 from file 503335."
^DD(503335,1.5,0)="MONTH TRANSMITTED^D^^0;14^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503335,1.5,1,0)="^.1"
^DD(503335,1.5,1,1,0)="503335^AC"
^DD(503335,1.5,1,1,1)="S ^ABS(503335,""AC"",$E(X,1,30),DA)="""""
^DD(503335,1.5,1,1,2)="K ^ABS(503335,""AC"",$E(X,1,30),DA)"
^DD(503335,1.5,21,0)="^^3^3^2930324^"
^DD(503335,1.5,21,1,0)=" "
^DD(503335,1.5,21,2,0)="This field contains the Month and Year, in FileManager format, that the"
^DD(503335,1.5,21,3,0)="time card was transmitted to the Austin DPC."
^DD(503335,1.5,"DT")="2890209"
^DD(503335,1.9,0)="TRANSMISSION STATUS^S^0:SUSPENDED;1:READY FOR TRANSMISSION;2:ERROR -  NOT TRANSMITTED;3:TRANSMITTED;4:RETRANSMITTED;^0;6^Q"
^DD(503335,1.9,1,0)="^.1"
^DD(503335,1.9,1,1,0)="503335^AF"
^DD(503335,1.9,1,1,1)="S ^ABS(503335,""AF"",$E(X,1,30),DA)="""""
^DD(503335,1.9,1,1,2)="K ^ABS(503335,""AF"",$E(X,1,30),DA)"
^DD(503335,1.9,21,0)="^^2^2^2930324^"
^DD(503335,1.9,21,1,0)=" "
^DD(503335,1.9,21,2,0)="This field contains the current transmission status of the time card."
^DD(503335,1.9,"DT")="2880811"
^DD(503335,2,0)="DELAY TRANSMISSION^S^0:NO;1:YES;^0;3^Q"
^DD(503335,2,21,0)="^^3^3^2930324^"
^DD(503335,2,21,1,0)=" "
^DD(503335,2,21,2,0)="This field is set to 'YES' if this particular time card is to be delayed in"
^DD(503335,2,21,3,0)="its transmission to Austin."
^DD(503335,2,"DT")="2880804"
^DD(503335,2.1,0)="DATE TRANSMITTED^D^^0;4^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(503335,2.1,1,0)="^.1"
^DD(503335,2.1,1,1,0)="503335^AI^MUMPS"
^DD(503335,2.1,1,1,1)="S $P(^ABS(503335,DA,0),""^"",14)=$E(X,1,5)_""00"",^ABS(503335,""AC"",$E(X,1,5)_""00"",DA)="""""
^DD(503335,2.1,1,1,2)="S $P(^ABS(503335,DA,0),""^"",14)="""" K ^ABS(503335,""AC"",$E(X,1,5)_""00"",DA)"
^DD(503335,2.1,1,1,"%D",0)="^^2^2^2940623^"
^DD(503335,2.1,1,1,"%D",1,0)="Converts the internal value of DATE TRANSMITTED to the format for a month"
^DD(503335,2.1,1,1,"%D",2,0)="and enters it into the MONTH TRANSMITTED field."
^DD(503335,2.1,21,0)="^^3^3^2930324^"
^DD(503335,2.1,21,1,0)=" "
^DD(503335,2.1,21,2,0)="This field contains the full FileManager date that the time card was"
^DD(503335,2.1,21,3,0)="transmitted to the Austin DPC."
^DD(503335,2.1,"DT")="2890209"
^DD(503335,2.2,0)="TRANSMITTED BY^P200'^VA(200,^0;9^Q"
^DD(503335,2.2,3)=" "
^DD(503335,2.2,21,0)="^^3^3^2930324^"
^DD(503335,2.2,21,1,0)=" "
^DD(503335,2.2,21,2,0)="Thie field contains the name of the user who transmitted the time card to"
^DD(503335,2.2,21,3,0)="Austin."
^DD(503335,2.2,"DT")="2930204"
^DD(503335,2.3,0)="DATE RETRANSMITTED^D^^0;10^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(503335,2.3,1,0)="^.1"
^DD(503335,2.3,1,1,0)="503335^AJ^MUMPS"
^DD(503335,2.3,1,1,1)="S $P(^ABS(503335,DA,0),""^"",14)=$E(X,1,5)_""00"",^ABS(503335,""AC"",$E(X,1,5)_""00"",DA)="""""
^DD(503335,2.3,1,1,2)="S $P(^ABS(503335,DA,0),""^"",14)="""" K ^ABS(503335,""AC"",$E(X,1,5)_""00"",DA)"
^DD(503335,2.3,1,1,"%D",0)="^^2^2^2940623^"
^DD(503335,2.3,1,1,"%D",1,0)="Converts the internal value of DATE RETRANSMITTED to the format for a month"
^DD(503335,2.3,1,1,"%D",2,0)="and enters it into the MONTH TRANSMITTED field."
^DD(503335,2.3,21,0)="^^4^4^2930324^"
^DD(503335,2.3,21,1,0)=" "
^DD(503335,2.3,21,2,0)="In the event that a time card needs to be re-transmitted to the Austin"
^DD(503335,2.3,21,3,0)="DPC, this field will contain the full date, in FileManager format, that"
^DD(503335,2.3,21,4,0)="the card was re-transmitted."
^DD(503335,2.3,"DT")="2890209"
^DD(503335,2.4,0)="RETRANSMITTED BY^P200'^VA(200,^0;11^Q"
^DD(503335,2.4,21,0)="^^4^4^2930324^"
^DD(503335,2.4,21,1,0)=" "
^DD(503335,2.4,21,2,0)="In the event that a time card needs to be re-transmitted to the Austin"
^DD(503335,2.4,21,3,0)="DPC, this field will contain the name of user who re-transmitted the time"
^DD(503335,2.4,21,4,0)="card."
^DD(503335,2.4,"DT")="2930204"
^DD(503335,3,0)="STATION NUMBER^RF^^0;12^K:$L(X)>4!($L(X)<3)!'(X?3N.1U) X"
^DD(503335,3,3)="Answer must be 3-4 characters in length."
^DD(503335,3,21,0)="^^3^3^2930324^"
^DD(503335,3,21,1,0)=" "
^DD(503335,3,21,2,0)="This field contains the 3-4 character station number used by the Austin"
^DD(503335,3,21,3,0)="DPC to identify the specific voluntary activity."
^DD(503335,3,"DT")="2920901"
^DD(503335,4,0)="MONTH/YEAR^D^^0;5^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503335,4,1,0)="^.1"
^DD(503335,4,1,1,0)="503335^AK"
^DD(503335,4,1,1,1)="S ^ABS(503335,""AK"",$E(X,1,30),DA)="""""
^DD(503335,4,1,1,2)="K ^ABS(503335,""AK"",$E(X,1,30),DA)"
^DD(503335,4,3)=" "
^DD(503335,4,21,0)="^^2^2^2930324^"
^DD(503335,4,21,1,0)=" "
^DD(503335,4,21,2,0)="This field contains the Month/Year of the time card."
^DD(503335,4,"DT")="2890302"
^DD(503335,4.5,0)="ON ORG DETAIL LIST^RS^1:YES;^0;13^Q"
^DD(503335,4.5,1,0)="^.1^^0"
^DD(503335,4.5,21,0)="^^3^3^2930324^"
^DD(503335,4.5,21,1,0)=" "
^DD(503335,4.5,21,2,0)="This field contains a flag to indicate whether this particular time card"
^DD(503335,4.5,21,3,0)="is to print on a specific Organization Detail Listing."
^DD(503335,4.5,"DT")="2950831"
^DD(503335,4.6,0)="ON SERV DETAIL LIST^S^1:YES;^0;15^Q"
^DD(503335,4.6,1,0)="^.1^^0"
^DD(503335,4.6,21,0)="^^1^1^2950302^"
^DD(503335,4.6,21,1,0)="This field is used to print selected records for the Service Detail List option."
^DD(503335,4.6,"DT")="2950831"
^DD(503335,5,0)="DAY 1^NJ1,0^^1;1^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,5,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,5,21,0)="^^3^3^2930324^"
^DD(503335,5,21,1,0)=" "
^DD(503335,5,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,5,21,3,0)="first day of the month."
^DD(503335,6,0)="DAY 2^NJ1,0^^1;2^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,6,.1)=" "
^DD(503335,6,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,6,21,0)="^^3^3^2930324^"
^DD(503335,6,21,1,0)=" "
^DD(503335,6,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,6,21,3,0)="second day of the month."
^DD(503335,7,0)="DAY 3^NJ1,0^^1;3^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,7,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,7,21,0)="^^3^3^2930324^"
^DD(503335,7,21,1,0)=" "
^DD(503335,7,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,7,21,3,0)="third day of the month."
^DD(503335,8,0)="DAY 4^NJ1,0^^1;4^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,8,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,8,21,0)="^^3^3^2930324^"
^DD(503335,8,21,1,0)=" "
^DD(503335,8,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,8,21,3,0)="fourth day of the month."
^DD(503335,9,0)="DAY 5^NJ1,0^^1;5^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,9,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,9,21,0)="^^3^3^2930324^"
^DD(503335,9,21,1,0)=" "
^DD(503335,9,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,9,21,3,0)="fifth day of the month."
^DD(503335,10,0)="DAY 6^NJ1,0^^1;6^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,10,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,10,21,0)="^^3^3^2930324^"
^DD(503335,10,21,1,0)=" "
^DD(503335,10,21,2,0)="This field contains the number of hours that the volunteer worked for the"
^DD(503335,10,21,3,0)="sixth day of the month."
^DD(503335,11,0)="DAY 7^NJ1,0^^1;7^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,11,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,11,21,0)="^^3^3^2930324^"
^DD(503335,11,21,1,0)=" "
^DD(503335,11,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,11,21,3,0)="seventh day of the month."
^DD(503335,12,0)="DAY 8^NJ1,0^^1;8^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,12,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,12,21,0)="^^3^3^2930324^"
^DD(503335,12,21,1,0)=" "
^DD(503335,12,21,2,0)="This field contains the number of hours that the volunteer worked for the"
^DD(503335,12,21,3,0)="eighth day of the month."
^DD(503335,13,0)="DAY 9^NJ1,0^^1;9^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,13,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,13,21,0)="^^3^3^2930324^"
^DD(503335,13,21,1,0)=" "
^DD(503335,13,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,13,21,3,0)="ninth day of the month."
^DD(503335,14,0)="DAY 10^NJ1,0^^1;10^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,14,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,14,21,0)="^^3^3^2930324^"
^DD(503335,14,21,1,0)=" "
^DD(503335,14,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,14,21,3,0)="tenth day of the month."
^DD(503335,15,0)="DAY 11^NJ1,0^^1;11^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,15,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,15,21,0)="^^3^3^2930324^"
^DD(503335,15,21,1,0)=" "
^DD(503335,15,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,15,21,3,0)="eleventh day of the month."
^DD(503335,16,0)="DAY 12^NJ1,0^^1;12^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,16,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,16,21,0)="^^3^3^2930324^"
^DD(503335,16,21,1,0)=" "
^DD(503335,16,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,16,21,3,0)="twelfth day of the month."
^DD(503335,17,0)="DAY 13^NJ1,0^^1;13^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,17,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,17,21,0)="^^3^3^2930324^"
^DD(503335,17,21,1,0)=" "
^DD(503335,17,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,17,21,3,0)="thirteenth day of the month."
^DD(503335,18,0)="DAY 14^NJ1,0^^1;14^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,18,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,18,21,0)="^^3^3^2930324^"
^DD(503335,18,21,1,0)=" "
^DD(503335,18,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,18,21,3,0)="fourteenth day of the month."
^DD(503335,19,0)="DAY 15^NJ1,0^^1;15^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,19,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,19,21,0)="^^3^3^2930324^"
^DD(503335,19,21,1,0)=" "
^DD(503335,19,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,19,21,3,0)="fifteenth day of the month."
^DD(503335,20,0)="DAY 16^NJ1,0^^1;16^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,20,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,20,21,0)="^^3^3^2930324^"
^DD(503335,20,21,1,0)=" "
^DD(503335,20,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,20,21,3,0)="sixteenth day of the month."
^DD(503335,21,0)="DAY 17^NJ1,0^^1;17^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,21,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,21,21,0)="^^3^3^2930324^"
^DD(503335,21,21,1,0)=" "
^DD(503335,21,21,2,0)="This field contains the number of hours the volunteer worked on the"
^DD(503335,21,21,3,0)="seventeenth day of the month."
^DD(503335,22,0)="DAY 18^NJ1,0^^1;18^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,22,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,22,21,0)="^^3^3^2930324^"
^DD(503335,22,21,1,0)=" "
^DD(503335,22,21,2,0)="This field contains the number of hours the volunteer worked on the"
^DD(503335,22,21,3,0)="eighteenth day of the month."
^DD(503335,23,0)="DAY 19^NJ1,0^^1;19^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,23,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,23,21,0)="^^3^3^2930324^"
^DD(503335,23,21,1,0)=" "
^DD(503335,23,21,2,0)="This field contains the number of hours the volunteer worked on the"
^DD(503335,23,21,3,0)="nineteenth day of the month."
^DD(503335,24,0)="DAY 20^NJ1,0^^1;20^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,24,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,24,21,0)="^^3^3^2930324^"
^DD(503335,24,21,1,0)=" "
^DD(503335,24,21,2,0)="This field contains the number of hours the volunteer worked on the"
^DD(503335,24,21,3,0)="twentieth day of the month."
^DD(503335,25,0)="DAY 21^NJ1,0^^1;21^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,25,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,25,21,0)="^^3^3^2930324^"
^DD(503335,25,21,1,0)=" "
^DD(503335,25,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,25,21,3,0)="twenty-first day of the month."
^DD(503335,26,0)="DAY 22^NJ1,0^^1;22^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,26,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,26,21,0)="^^3^3^2930324^"
^DD(503335,26,21,1,0)=" "
^DD(503335,26,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,26,21,3,0)="twenty-second day of the month."
^DD(503335,27,0)="DAY 23^NJ1,0^^1;23^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,27,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,27,21,0)="^^3^3^2930324^"
^DD(503335,27,21,1,0)=" "
^DD(503335,27,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,27,21,3,0)="twenty-third day of the month."
^DD(503335,28,0)="DAY 24^NJ1,0^^1;24^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,28,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,28,21,0)="^^3^3^2930324^"
^DD(503335,28,21,1,0)=" "
^DD(503335,28,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,28,21,3,0)="twenty-fourth day of the month."
^DD(503335,29,0)="DAY 25^NJ1,0^^1;25^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,29,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,29,21,0)="^^3^3^2930324^"
^DD(503335,29,21,1,0)=" "
^DD(503335,29,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,29,21,3,0)="twenty-fifth day of the month"
^DD(503335,30,0)="DAY 26^NJ1,0^^1;26^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,30,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,30,21,0)="^^3^3^2930324^"
^DD(503335,30,21,1,0)=" "
^DD(503335,30,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,30,21,3,0)="twenty-sixth day of the month."
^DD(503335,31,0)="DAY 27^NJ1,0^^1;27^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,31,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,31,21,0)="^^3^3^2930324^"
^DD(503335,31,21,1,0)=" "
^DD(503335,31,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,31,21,3,0)="twenty-seventh day of the month."
^DD(503335,32,0)="DAY 28^NJ1,0^^1;28^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,32,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,32,21,0)="^^3^3^2930324^"
^DD(503335,32,21,1,0)=" "
^DD(503335,32,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,32,21,3,0)="twenty-eighth day of the month."
^DD(503335,33,0)="DAY 29^NJ1,0^^1;29^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,33,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,33,21,0)="^^3^3^2930324^"
^DD(503335,33,21,1,0)=" "
^DD(503335,33,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,33,21,3,0)="twenty-ninth day of the month."
^DD(503335,34,0)="DAY 30^NJ1,0^^1;30^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,34,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,34,21,0)="^^3^3^2930324^"
^DD(503335,34,21,1,0)=" "
^DD(503335,34,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,34,21,3,0)="thirtieth day of the month."
^DD(503335,35,0)="DAY 31^NJ1,0^^1;31^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503335,35,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(503335,35,21,0)="^^3^3^2930324^"
^DD(503335,35,21,1,0)=" "
^DD(503335,35,21,2,0)="This field contains the number of hours that the volunteer worked on the"
^DD(503335,35,21,3,0)="thirty-first day of the month."
^DD(503335,36,0)="TIME CARD^F^^2;1^K:$L(X)>80!($L(X)<1) X"
^DD(503335,36,3)="ANSWER MUST BE 1-80 CHARACTERS IN LENGTH"
^DD(503335,36,21,0)="^^3^3^2930324^"
^DD(503335,36,21,1,0)=" "
^DD(503335,36,21,2,0)="This field contains the actual data string which will be transmitted to"
^DD(503335,36,21,3,0)="the Austin DPC."
^DD(503335,36,"DT")="2880707"
^DD(503335,37,0)="HOSPITAL USE ONLY^P503337'^ABS(503337,^1;33^Q"
^DD(503335,37,.1)="BACKDATE/AWARD CODE"
^DD(503335,37,1,0)="^.1^^-1"
^DD(503335,37,1,1,0)="503335^AL^MUMPS"
^DD(503335,37,1,1,1)="I $D(X) S $P(^ABS(503335,DA,1),""^"",34)=$P(^ABS(503337,X,0),""^"",2)"
^DD(503335,37,1,1,2)="S $P(^ABS(503335,DA,1),""^"",34)="""""
^DD(503335,37,1,1,"%D",0)="^^2^2^2940701^"
^DD(503335,37,1,1,"%D",1,0)="This cross reference places the value of the HOSPITAL USE ONLY field into"
^DD(503335,37,1,1,"%D",2,0)="the 49/50 field."
^DD(503335,37,1,1,"DT")="2920904"
^DD(503335,37,3)=" "
^DD(503335,37,21,0)="^^3^3^2930324^"
^DD(503335,37,21,1,0)=" "
^DD(503335,37,21,2,0)="This field contains the Award Code or 'BD' which is entered in card"
^DD(503335,37,21,3,0)="columns 49-50 of the time card."
^DD(503335,37,"DT")="2940701"
^DD(503335,38,0)="TOTAL HOURS WORKED^NJ6,0^^1;32^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(503335,38,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(503335,38,21,0)="^^3^3^2930324^"
^DD(503335,38,21,1,0)=" "
^DD(503335,38,21,2,0)="This field contains the total hours worked for this time card.  It is the"
^DD(503335,38,21,3,0)="sum of fields 5 thru 35."
^DD(503335,38,"DT")="2880707"
^DD(503335,39,0)="49/50^F^^1;34^K:$L(X)>2!($L(X)<2) X"
^DD(503335,39,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(503335,39,21,0)="^^3^3^2930324^"
^DD(503335,39,21,1,0)=" "
^DD(503335,39,21,2,0)="This field contains the Award Code or 'BD' which is entered in card"
^DD(503335,39,21,3,0)="columns 49-50 of the time card."
^DD(503335,39,"DT")="2890504"
^DD(503335,40,0)="VISITS^CJ8,0^^ ; ^S X=$$VISIT^ABSVTC(D0)"
^DD(503335,40,9)="^"
^DD(503335,40,9.01)=""
^DD(503335,40,9.1)="S X=$$VISIT^ABSVTC(D0)"
^DD(503335,"B"," ",6)="1"
^DD(503335,"B","49/50",39)=""
^DD(503335,"B","BACKDATE/AWARD CODE",37)="1"
^DD(503335,"B","COMBINATION",1)=""
^DD(503335,"B","DATE RETRANSMITTED",2.3)=""
^DD(503335,"B","DATE TRANSMITTED",2.1)=""
^DD(503335,"B","DAY 1",5)=""
^DD(503335,"B","DAY 10",14)=""
^DD(503335,"B","DAY 11",15)=""
^DD(503335,"B","DAY 12",16)=""
^DD(503335,"B","DAY 13",17)=""
^DD(503335,"B","DAY 14",18)=""
^DD(503335,"B","DAY 15",19)=""
^DD(503335,"B","DAY 16",20)=""
^DD(503335,"B","DAY 17",21)=""
^DD(503335,"B","DAY 18",22)=""
^DD(503335,"B","DAY 19",23)=""
^DD(503335,"B","DAY 2",6)=""
^DD(503335,"B","DAY 20",24)=""
^DD(503335,"B","DAY 21",25)=""
^DD(503335,"B","DAY 22",26)=""
^DD(503335,"B","DAY 23",27)=""
^DD(503335,"B","DAY 24",28)=""
^DD(503335,"B","DAY 25",29)=""
^DD(503335,"B","DAY 26",30)=""
^DD(503335,"B","DAY 27",31)=""
^DD(503335,"B","DAY 28",32)=""
^DD(503335,"B","DAY 29",33)=""
^DD(503335,"B","DAY 3",7)=""
^DD(503335,"B","DAY 30",34)=""
^DD(503335,"B","DAY 31",35)=""
^DD(503335,"B","DAY 4",8)=""
^DD(503335,"B","DAY 5",9)=""
^DD(503335,"B","DAY 6",10)=""
^DD(503335,"B","DAY 7",11)=""
^DD(503335,"B","DAY 8",12)=""
^DD(503335,"B","DAY 9",13)=""
^DD(503335,"B","DELAY TRANSMISSION",2)=""
^DD(503335,"B","HOSPITAL USE ONLY",37)=""
^DD(503335,"B","MONTH TRANSMITTED",1.5)=""
^DD(503335,"B","MONTH/YEAR",4)=""
^DD(503335,"B","NAME",.01)=""
^DD(503335,"B","ON ORG DETAIL LIST",4.5)=""
^DD(503335,"B","ON SERV DETAIL LIST",4.6)=""
^DD(503335,"B","ORGANIZATION",1.1)=""
^DD(503335,"B","ORGANIZATION NAME",1.15)=""
^DD(503335,"B","RETRANSMITTED BY",2.4)=""
^DD(503335,"B","SERVICE",1.2)=""
^DD(503335,"B","SERVICE NAME",1.3)=""
^DD(503335,"B","STATION NUMBER",3)=""
^DD(503335,"B","TIME CARD",36)=""
^DD(503335,"B","TOTAL HOURS WORKED",38)=""
^DD(503335,"B","TRANSMISSION STATUS",1.9)=""
^DD(503335,"B","TRANSMITTED BY",2.2)=""
^DD(503335,"B","VISITS",40)=""
^DD(503335,"GL",0,1,.01)=""
^DD(503335,"GL",0,2,1)=""
^DD(503335,"GL",0,3,2)=""
^DD(503335,"GL",0,4,2.1)=""
^DD(503335,"GL",0,5,4)=""
^DD(503335,"GL",0,6,1.9)=""
^DD(503335,"GL",0,7,1.1)=""
^DD(503335,"GL",0,8,1.2)=""
^DD(503335,"GL",0,9,2.2)=""
^DD(503335,"GL",0,10,2.3)=""
^DD(503335,"GL",0,11,2.4)=""
^DD(503335,"GL",0,12,3)=""
^DD(503335,"GL",0,13,4.5)=""
^DD(503335,"GL",0,14,1.5)=""
^DD(503335,"GL",0,15,4.6)=""
^DD(503335,"GL",1,1,5)=""
^DD(503335,"GL",1,2,6)=""
^DD(503335,"GL",1,3,7)=""
^DD(503335,"GL",1,4,8)=""
^DD(503335,"GL",1,5,9)=""
^DD(503335,"GL",1,6,10)=""
^DD(503335,"GL",1,7,11)=""
^DD(503335,"GL",1,8,12)=""
^DD(503335,"GL",1,9,13)=""
^DD(503335,"GL",1,10,14)=""
^DD(503335,"GL",1,11,15)=""
^DD(503335,"GL",1,12,16)=""
^DD(503335,"GL",1,13,17)=""
^DD(503335,"GL",1,14,18)=""
^DD(503335,"GL",1,15,19)=""
^DD(503335,"GL",1,16,20)=""
^DD(503335,"GL",1,17,21)=""
^DD(503335,"GL",1,18,22)=""
^DD(503335,"GL",1,19,23)=""
^DD(503335,"GL",1,20,24)=""
^DD(503335,"GL",1,21,25)=""
^DD(503335,"GL",1,22,26)=""
^DD(503335,"GL",1,23,27)=""
^DD(503335,"GL",1,24,28)=""
^DD(503335,"GL",1,25,29)=""
^DD(503335,"GL",1,26,30)=""
^DD(503335,"GL",1,27,31)=""
^DD(503335,"GL",1,28,32)=""
^DD(503335,"GL",1,29,33)=""
^DD(503335,"GL",1,30,34)=""
^DD(503335,"GL",1,31,35)=""
^DD(503335,"GL",1,32,38)=""
^DD(503335,"GL",1,33,37)=""
^DD(503335,"GL",1,34,39)=""
^DD(503335,"GL",2,1,36)=""
^DD(503335,"IX",.01)=""
^DD(503335,"IX",1.1)=""
^DD(503335,"IX",1.2)=""
^DD(503335,"IX",1.5)=""
^DD(503335,"IX",1.9)=""
^DD(503335,"IX",2.1)=""
^DD(503335,"IX",2.3)=""
^DD(503335,"IX",4)=""
^DD(503335,"IX",37)=""
^DD(503335,"RQ",.01)=""
^DD(503335,"RQ",3)=""
^DD(503335,"RQ",4.5)=""
^DD(503336,0)="FIELD^^14^18"
^DD(503336,0,"DDA")="N"
^DD(503336,0,"DT")="2930310"
^DD(503336,0,"ID",2.5)="W ""   "",$P(^(0),U,14)"
^DD(503336,0,"ID",3)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ABS(503334,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(503334,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(503336,0,"ID",7)="W ""   "",$E($P(^(0),U,8),4,5)_""-""_$E($P(^(0),U,8),6,7)_""-""_$E($P(^(0),U,8),2,3)"
^DD(503336,0,"IX","AC",503336,7)=""
^DD(503336,0,"IX","AD",503336,14)=""
^DD(503336,0,"IX","AE",503336,8.5)=""
^DD(503336,0,"IX","AF",503336,8)=""
^DD(503336,0,"IX","AG",503336,11)=""
^DD(503336,0,"IX","B",503336,.01)=""
^DD(503336,0,"IX","C",503336,2.5)=""
^DD(503336,0,"IX","D",503336,3)=""
^DD(503336,0,"IX","E",503336,7)=""
^DD(503336,0,"NM","OCCASIONAL VOLUNTEER TIME SHEET")=" "
^DD(503336,0,"VR")="4.0"
^DD(503336,0,"VRPK")="ABSV"
^DD(503336,.01,0)="ID NUMBER^RNJ5,0X^^0;1^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(503336,.01,1,0)="^.1"
^DD(503336,.01,1,1,0)="503336^B"
^DD(503336,.01,1,1,1)="S ^ABS(503336,""B"",$E(X,1,30),DA)="""""
^DD(503336,.01,1,1,2)="K ^ABS(503336,""B"",$E(X,1,30),DA)"
^DD(503336,.01,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(503336,.01,21,0)="^^3^3^2930324^"
^DD(503336,.01,21,1,0)=" "
^DD(503336,.01,21,2,0)="This field contains the unique identification number assigned to this time"
^DD(503336,.01,21,3,0)="sheet."
^DD(503336,.01,"DT")="2940413"
^DD(503336,1,0)="TRANSACTION TYPE^F^^0;2^K:$L(X)>2!($L(X)<2)!'(X?2""07"") X"
^DD(503336,1,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(503336,1,21,0)="^^3^3^2930324^"
^DD(503336,1,21,1,0)=" "
^DD(503336,1,21,2,0)="This field contains the transaction type assigned to this time sheet.  It"
^DD(503336,1,21,3,0)="will always be '07'."
^DD(503336,2,0)="FACILITY^F^^0;3^K:$L(X)>4!($L(X)<3)!'(X?3.4UN) X"
^DD(503336,2,.1)="[D"
^DD(503336,2,3)="Answer must be 3-4 characters in length."
^DD(503336,2,21,0)="^^3^3^2930324^"
^DD(503336,2,21,1,0)=" "
^DD(503336,2,21,2,0)="This field contains the 3-4 character station number used by the Austin"
^DD(503336,2,21,3,0)="DPC to identify the specific voluntary activity."
^DD(503336,2,"DT")="2930324"
^DD(503336,2.5,0)="NAME OR ORGANIZATION NAME^F^^0;14^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(503336,2.5,1,0)="^.1"
^DD(503336,2.5,1,1,0)="503336^C"
^DD(503336,2.5,1,1,1)="S ^ABS(503336,""C"",$E(X,1,30),DA)="""""
^DD(503336,2.5,1,1,2)="K ^ABS(503336,""C"",$E(X,1,30),DA)"
^DD(503336,2.5,3)="ANSWER MUST BE 2-30 CHARACTERS IN LENGTH"
^DD(503336,2.5,21,0)="^^3^3^2930324^"
^DD(503336,2.5,21,1,0)=" "
^DD(503336,2.5,21,2,0)="This field will contain the free text name of the individual or"
^DD(503336,2.5,21,3,0)="organization being represented on the time sheet."
^DD(503336,2.5,"DT")="2881212"
^DD(503336,3,0)="ORGANIZATION CODE^*P503334'^ABS(503334,^0;4^S DIC(""S"")=""I $P(^(0),U,5)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(503336,3,1,0)="^.1"
^DD(503336,3,1,1,0)="503336^D"
^DD(503336,3,1,1,1)="S ^ABS(503336,""D"",$E(X,1,30),DA)="""""
^DD(503336,3,1,1,2)="K ^ABS(503336,""D"",$E(X,1,30),DA)"
^DD(503336,3,12)="You may only select only organizations active at the DPC in Austin."
^DD(503336,3,12.1)="S DIC(""S"")=""I $P(^(0),U,5)'=1"""
^DD(503336,3,21,0)="^^3^3^2930324^"
^DD(503336,3,21,1,0)=" "
^DD(503336,3,21,2,0)="This field contains the specific organization being represented on the time"
^DD(503336,3,21,3,0)="sheet."
^DD(503336,3,"DT")="2930310"
^DD(503336,3.5,0)="ORGANIZATION^CJ30^^ ; ^X ^DD(503336,3.5,9.2) S Y(503336,3.5,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503336,3.5,101),U,2) S D0=Y(503336,3.5,80)"
^DD(503336,3.5,9)="^"
^DD(503336,3.5,9.01)="503334^1;503336^3"
^DD(503336,3.5,9.1)="ORGANIZATION CODE:ORGANIZATION"
^DD(503336,3.5,9.2)="S Y(503336,3.5,80)=$S($D(D0):D0,1:""""),Y(503336,3.5,1)=$S($D(^ABS(503336,D0,0)):^(0),1:""""),D0=$P(Y(503336,3.5,1),U,4) S:'$D(^ABS(503334,+D0,0)) D0=-1"
^DD(503336,4,0)="SERVICE ASSIGNMENT^P503332'^ABS(503332,^0;5^Q"
^DD(503336,4,21,0)="^^3^3^2930324^"
^DD(503336,4,21,1,0)=" "
^DD(503336,4,21,2,0)="This field contains the name of the Medical Center Service for which the"
^DD(503336,4,21,3,0)="volunteers worked."
^DD(503336,4,"DT")="2900809"
^DD(503336,5,0)="NUMBER IN GROUP^NJ2,0^^0;6^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503336,5,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(503336,5,21,0)="^^3^3^2930324^"
^DD(503336,5,21,1,0)=" "
^DD(503336,5,21,2,0)="This field contains the number of volunteers in the specific group"
^DD(503336,5,21,3,0)="represented on this time sheet."
^DD(503336,6,0)="TOTAL HOURS^NJ3,0^^0;7^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503336,6,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(503336,6,10)="503335,0;6"
^DD(503336,6,21,0)="^^3^3^2930324^"
^DD(503336,6,21,1,0)=" "
^DD(503336,6,21,2,0)="This field contains the total number of hours provided by all the members"
^DD(503336,6,21,3,0)="of the group."
^DD(503336,7,0)="DATE^DX^^0;8^S %DT=""EP"" D ^%DT S X=Y K:Y<1 X"
^DD(503336,7,1,0)="^.1"
^DD(503336,7,1,1,0)="503336^AC"
^DD(503336,7,1,1,1)="S ^ABS(503336,""AC"",$E(X,1,30),DA)="""""
^DD(503336,7,1,1,2)="K ^ABS(503336,""AC"",$E(X,1,30),DA)"
^DD(503336,7,1,2,0)="503336^E"
^DD(503336,7,1,2,1)="S ^ABS(503336,""E"",$E(X,1,30),DA)="""""
^DD(503336,7,1,2,2)="K ^ABS(503336,""E"",$E(X,1,30),DA)"
^DD(503336,7,1,2,"%D",0)="^^2^2^2980512^"
^DD(503336,7,1,2,"%D",1,0)="This cross reference allows the user to select an existing occasional time"
^DD(503336,7,1,2,"%D",2,0)="sheet by date."
^DD(503336,7,1,2,"DT")="2980512"
^DD(503336,7,21,0)="^^2^2^2930324^"
^DD(503336,7,21,1,0)=" "
^DD(503336,7,21,2,0)="This field contains the date the work was provided."
^DD(503336,7,"DT")="2980512"
^DD(503336,8,0)="TRANSMISSION STATUS^S^0:SUSPENDED;1:READY FOR TRANSMISSION;2:ERROR - NOT TRANSMITTED;3:TRANSMITTED;4:RETRANSMITTED;^0;9^Q"
^DD(503336,8,1,0)="^.1"
^DD(503336,8,1,1,0)="503336^AF"
^DD(503336,8,1,1,1)="S ^ABS(503336,""AF"",$E(X,1,30),DA)="""""
^DD(503336,8,1,1,2)="K ^ABS(503336,""AF"",$E(X,1,30),DA)"
^DD(503336,8,21,0)="^^2^2^2930324^"
^DD(503336,8,21,1,0)=" "
^DD(503336,8,21,2,0)="This field contains the transmission status of this particular time sheet."
^DD(503336,8,"DT")="2881208"
^DD(503336,8.5,0)="DATE TRANSMITTED^D^^0;15^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503336,8.5,1,0)="^.1"
^DD(503336,8.5,1,1,0)="503336^AE^MUMPS"
^DD(503336,8.5,1,1,1)="S $P(^ABS(503336,DA,0),""^"",16)=$E(X,1,5)_""00"",^ABS(503336,""AD"",$E(X,1,5)_""00"",DA)="""""
^DD(503336,8.5,1,1,2)="S $P(^ABS(503336,DA,0),""^"",16)="""" K ^ABS(503336,""AD"",$E(X,1,5)_""00"",DA)"
^DD(503336,8.5,1,1,"%D",0)="^^2^2^2940623^"
^DD(503336,8.5,1,1,"%D",1,0)="Converts the internal value of DATE TRANSMITTED to the format for a month"
^DD(503336,8.5,1,1,"%D",2,0)="and enters it into the TRANSMISSION MONTH field."
^DD(503336,8.5,21,0)="^^3^3^2930324^"
^DD(503336,8.5,21,1,0)=" "
^DD(503336,8.5,21,2,0)="This field contains the full date, in FileManager format, that the time"
^DD(503336,8.5,21,3,0)="sheet was transmitted to the Austin DPC."
^DD(503336,8.5,"DT")="2890209"
^DD(503336,9,0)="DELAY TRANSMISSION^S^0:NO;1:YES;^0;10^Q"
^DD(503336,9,21,0)="^^3^3^2930324^"
^DD(503336,9,21,1,0)=" "
^DD(503336,9,21,2,0)="This field will contain a 'yes' when the users wish to delay the"
^DD(503336,9,21,3,0)="transmission of this time sheet to the Austin DPC."
^DD(503336,10,0)="TRANSMITTED BY^P200'^VA(200,^0;11^Q"
^DD(503336,10,21,0)="^^3^3^2930324^^"
^DD(503336,10,21,1,0)=" "
^DD(503336,10,21,2,0)="This field contains the name of the user who transmitted the time sheet to"
^DD(503336,10,21,3,0)="the Austin DPC."
^DD(503336,10,22)=" "
^DD(503336,10,"DT")="2930204"
^DD(503336,11,0)="DATE RETRANSMITTED^D^^0;12^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503336,11,1,0)="^.1"
^DD(503336,11,1,1,0)="503336^AG^MUMPS"
^DD(503336,11,1,1,1)="S $P(^ABS(503336,DA,0),""^"",16)=$E(X,1,5)_""00"",^ABS(503336,""AD"",$E(X,1,5)_""00"",DA)="""""
^DD(503336,11,1,1,2)="S $P(^ABS(503336,DA,0),""^"",16)="""" K ^ABS(503336,""AD"",$E(X,1,5),DA)"
^DD(503336,11,1,1,"%D",0)="^^2^2^2940623^^"
^DD(503336,11,1,1,"%D",1,0)="Converts the internal value of DATE RETRANSMITTED to the format for a month"
^DD(503336,11,1,1,"%D",2,0)="and enters it into the TRANSMISSION MONTH field."
^DD(503336,11,21,0)="^^3^3^2930324^"
^DD(503336,11,21,1,0)=" "
^DD(503336,11,21,2,0)="This field contains the full date, in FileManager format, that the time"
^DD(503336,11,21,3,0)="sheet was re-transmitted to the Austin DPC."
^DD(503336,11,"DT")="2890209"
^DD(503336,12,0)="RETRANSMITTED BY^P200'^VA(200,^0;13^Q"
^DD(503336,12,21,0)="^^3^3^2930324^"
^DD(503336,12,21,1,0)=" "
^DD(503336,12,21,2,0)="This field contains the name of the user who re-transmitted the time sheet"
^DD(503336,12,21,3,0)="to the Austin DPC."
^DD(503336,12,"DT")="2930204"
^DD(503336,13,0)="TIME CARD^F^^2;1^K:$L(X)>80!($L(X)<80) X"
^DD(503336,13,3)="ANSWER MUST BE 80 CHARACTERS IN LENGTH"
^DD(503336,13,21,0)="^^3^3^2930324^"
^DD(503336,13,21,1,0)=" "
^DD(503336,13,21,2,0)="This field contains the data string for this time sheet in the format"
^DD(503336,13,21,3,0)="necessary to be transmitted to the Austin DPC."
^DD(503336,13,"DT")="2881208"
^DD(503336,14,0)="TRANSMISSION MONTH^D^^0;16^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503336,14,1,0)="^.1"
^DD(503336,14,1,1,0)="503336^AD"
^DD(503336,14,1,1,1)="S ^ABS(503336,""AD"",$E(X,1,30),DA)="""""
^DD(503336,14,1,1,2)="K ^ABS(503336,""AD"",$E(X,1,30),DA)"
^DD(503336,14,21,0)="^^3^3^2930324^"
^DD(503336,14,21,1,0)=" "
^DD(503336,14,21,2,0)="This field contains the Month/Year that the time sheet was last"
^DD(503336,14,21,3,0)="transmitted to the Austin DPC."
^DD(503336,14,"DT")="2890209"
^DD(503336,"B","DATE",7)=""
^DD(503336,"B","DATE RETRANSMITTED",11)=""
^DD(503336,"B","DATE TRANSMITTED",8.5)=""
^DD(503336,"B","DELAY TRANSMISSION",9)=""
^DD(503336,"B","FACILITY",2)=""
^DD(503336,"B","ID NUMBER",.01)=""
^DD(503336,"B","NAME OR ORGANIZATION NAME",2.5)=""
^DD(503336,"B","NUMBER IN GROUP",5)=""
^DD(503336,"B","ORGANIZATION",3.5)=""
^DD(503336,"B","ORGANIZATION CODE",3)=""
^DD(503336,"B","RETRANSMITTED BY",12)=""
^DD(503336,"B","SERVICE ASSIGNMENT",4)=""
^DD(503336,"B","TIME CARD",13)=""
^DD(503336,"B","TOTAL HOURS",6)=""
^DD(503336,"B","TRANSACTION TYPE",1)=""
^DD(503336,"B","TRANSMISSION MONTH",14)=""
^DD(503336,"B","TRANSMISSION STATUS",8)=""
^DD(503336,"B","TRANSMITTED BY",10)=""
^DD(503336,"B","[D",2)="1"
^DD(503336,"GL",0,1,.01)=""
^DD(503336,"GL",0,2,1)=""
^DD(503336,"GL",0,3,2)=""
^DD(503336,"GL",0,4,3)=""
^DD(503336,"GL",0,5,4)=""
^DD(503336,"GL",0,6,5)=""
^DD(503336,"GL",0,7,6)=""
^DD(503336,"GL",0,8,7)=""
^DD(503336,"GL",0,9,8)=""
^DD(503336,"GL",0,10,9)=""
^DD(503336,"GL",0,11,10)=""
^DD(503336,"GL",0,12,11)=""
^DD(503336,"GL",0,13,12)=""
^DD(503336,"GL",0,14,2.5)=""
^DD(503336,"GL",0,15,8.5)=""
^DD(503336,"GL",0,16,14)=""
^DD(503336,"GL",2,1,13)=""
^DD(503336,"IX",.01)=""
^DD(503336,"IX",2.5)=""
^DD(503336,"IX",3)=""
^DD(503336,"IX",7)=""
^DD(503336,"IX",8)=""
^DD(503336,"IX",8.5)=""
^DD(503336,"IX",11)=""
^DD(503336,"IX",14)=""
^DD(503336,"RQ",.01)=""
^DD(503337,0)="FIELD^^3^4"
^DD(503337,0,"DDA")="N"
^DD(503337,0,"DT")="2950302"
^DD(503337,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(503337,0,"IX","B",503337,.01)=""
^DD(503337,0,"IX","C",503337,1)=""
^DD(503337,0,"NM","VOLUNTARY AWARD CODES")=" "
^DD(503337,0,"PT",503330.01,6)=""
^DD(503337,0,"PT",503335,37)=""
^DD(503337,0,"VR")="4.0"
^DD(503337,0,"VRPK")="ABSV"
^DD(503337,.01,0)="NAME^RF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>45!($L(X)<3)!'(X'?1P.E) X"
^DD(503337,.01,1,0)="^.1"
^DD(503337,.01,1,1,0)="503337^B^MUMPS"
^DD(503337,.01,1,1,1)="S ^ABS(503337,""B"",$E(X,1,45),DA)="""""
^DD(503337,.01,1,1,2)="K ^ABS(503337,""B"",$E(X,1,45),DA)"
^DD(503337,.01,1,1,"%D",0)="^^1^1^2940623^^"
^DD(503337,.01,1,1,"%D",1,0)="This is a standard lookup cross reference extended to 45 characters."
^DD(503337,.01,3)="ANSWER MUST BE 3-45 CHARACTERS IN LENGTH"
^DD(503337,.01,21,0)="^^3^3^2930324^"
^DD(503337,.01,21,1,0)=" "
^DD(503337,.01,21,2,0)="This field contains the full name of the awards recognized by the Austin"
^DD(503337,.01,21,3,0)="DPC."
^DD(503337,1,0)="CODE^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!((X'?2N)&(X'?1""BD"")) X"
^DD(503337,1,.1)="Code"
^DD(503337,1,1,0)="^.1"
^DD(503337,1,1,1,0)="503337^C"
^DD(503337,1,1,1,1)="S ^ABS(503337,""C"",$E(X,1,30),DA)="""""
^DD(503337,1,1,1,2)="K ^ABS(503337,""C"",$E(X,1,30),DA)"
^DD(503337,1,1,1,"DT")="2940623"
^DD(503337,1,3)="ANSWER MUST BE 2 CHARACTERS IN LENGTH"
^DD(503337,1,21,0)="^^1^1^2930314^"
^DD(503337,1,21,1,0)="This field contains the number code representing the award."
^DD(503337,1,"DT")="2940623"
^DD(503337,2,0)="REQUIRED HOURS^RNJ6,0^^0;3^K:+X'=X!(X>100000)!(X<0)!(X?.E1"".""1N.N) X"
^DD(503337,2,.1)="Required Hours"
^DD(503337,2,3)="Type a Number between 0 and 100000, 0 Decimal Digits"
^DD(503337,2,21,0)="^^2^2^2930314^"
^DD(503337,2,21,1,0)="This field contains the number of hours required to be eligible for the"
^DD(503337,2,21,2,0)="award."
^DD(503337,2,"DT")="2950302"
^DD(503337,3,0)="AWARD TYPE^S^1:YOUTH;2:ADULT;X:OTHER;^0;4^Q"
^DD(503337,3,21,0)="^^1^1^2950302^"
^DD(503337,3,21,1,0)="This field contains the type of award."
^DD(503337,3,"DT")="2930511"
^DD(503337,"B","AWARD TYPE",3)=""
^DD(503337,"B","CODE",1)=""
^DD(503337,"B","Code",1)="1"
^DD(503337,"B","NAME",.01)=""
^DD(503337,"B","REQUIRED HOURS",2)=""
^DD(503337,"B","Required Hours",2)="1"
^DD(503337,"GL",0,1,.01)=""
^DD(503337,"GL",0,2,1)=""
^DD(503337,"GL",0,3,2)=""
^DD(503337,"GL",0,4,3)=""
^DD(503337,"IX",.01)=""
^DD(503337,"IX",1)=""
^DD(503337,"RQ",.01)=""
^DD(503337,"RQ",1)=""
^DD(503337,"RQ",2)=""
^DD(503338,0)="FIELD^^18^19"
^DD(503338,0,"DDA")="N"
^DD(503338,0,"DT")="3000301"
^DD(503338,0,"ID","WR")="W ""  "",$P(^(0),""^"",9)"
^DD(503338,0,"IX","AB",503338.018,.01)=""
^DD(503338,0,"IX","AC",503338,1)=""
^DD(503338,0,"IX","AD",503338,9)=""
^DD(503338,0,"IX","B",503338,.01)=""
^DD(503338,0,"IX","C",503338,9)=""
^DD(503338,0,"NM","VOLUNTARY SERVICE SITE PARAMETER")=""
^DD(503338,0,"PT",503330.01,.01)=""
^DD(503338,0,"PT",503334.1,1)=""
^DD(503338,0,"PT",503340,.5)=""
^DD(503338,0,"PT",503344,11)=""
^DD(503338,0,"VR")="4.0"
^DD(503338,0,"VRPK")="ABSV"
^DD(503338,.01,0)="SITE NAME^R*P4'X^DIC(4,^0;1^S DIC(""S"")=""I $D(^DIC(4,+Y,99)),$P(^(99),U,1)]"""""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X"
^DD(503338,.01,1,0)="^.1"
^DD(503338,.01,1,1,0)="503338^B"
^DD(503338,.01,1,1,1)="S ^ABS(503338,""B"",$E(X,1,30),DA)="""""
^DD(503338,.01,1,1,2)="K ^ABS(503338,""B"",$E(X,1,30),DA)"
^DD(503338,.01,1,2,0)="^^TRIGGER^503338^9"
^DD(503338,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503338,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y X ^DD(503338,.01,1,2,1.1) X ^DD(503338,.01,1,2,1.4)"
^DD(503338,.01,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^DIC(4,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(4,D0,99)):^(99),1:"""") S X=$P(Y(101),U,1) S D0=I(0,0)"
^DD(503338,.01,1,2,1.4)="S DIH=$S($D(^ABS(503338,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=503338,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503338,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503338,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="""" X ^DD(503338,.01,1,2,2.4)"
^DD(503338,.01,1,2,2.4)="S DIH=$S($D(^ABS(503338,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=503338,DIG=9 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503338,.01,1,2,"%D",0)="^^2^2^2940623^"
^DD(503338,.01,1,2,"%D",1,0)="This cross reference places the STATION NUMBER field of the INSTITUTION "
^DD(503338,.01,1,2,"%D",2,0)="file into the VOL STATION NUMBER field of this file."
^DD(503338,.01,1,2,"CREATE VALUE")="#.01:#99"
^DD(503338,.01,1,2,"DELETE VALUE")="@"
^DD(503338,.01,1,2,"FIELD")="VOL"
^DD(503338,.01,3)="You may select ONLY those stations which have a station number in field 99 of the Institution File (4)."
^DD(503338,.01,4)=" "
^DD(503338,.01,12)="Allows selection of only those institutions which have a station number in field 99 of file 4."
^DD(503338,.01,12.1)="S DIC(""S"")=""I $D(^DIC(4,+Y,99)),$P(^(99),U,1)]"""""""""""
^DD(503338,.01,21,0)="^^3^3^2930324^"
^DD(503338,.01,21,1,0)=" "
^DD(503338,.01,21,2,0)="This field contains the name of the voluntary service site.  It is a"
^DD(503338,.01,21,3,0)="pointer to the DHCP Institution file."
^DD(503338,.01,"DT")="2901002"
^DD(503338,1,0)="PRIMARY STATION^S^1:YES;^0;2^I $D(X) D PRIMARY^ABSVSITE Q"
^DD(503338,1,1,0)="^.1"
^DD(503338,1,1,1,0)="503338^AC"
^DD(503338,1,1,1,1)="S ^ABS(503338,""AC"",$E(X,1,30),DA)="""""
^DD(503338,1,1,1,2)="K ^ABS(503338,""AC"",$E(X,1,30),DA)"
^DD(503338,1,21,0)="^^5^5^2930324^"
^DD(503338,1,21,1,0)=" "
^DD(503338,1,21,2,0)="This field will be set to 'YES' when the station is the station which has"
^DD(503338,1,21,3,0)="the most volunteer activity.  Only one station may carry this indicator."
^DD(503338,1,21,4,0)="It is only important if your station supports multiple voluntary service"
^DD(503338,1,21,5,0)="activities."
^DD(503338,1,"DT")="2900410"
^DD(503338,2,0)="DAYS TO RETAIN TIME CARDS^NJ3,0^^0;3^K:+X'=X!(X>999)!(X<60)!(X?.E1"".""1N.N) X"
^DD(503338,2,3)="Enter the number of days between 60 and 999 you wish to retain time cards on the system."
^DD(503338,2,21,0)="^^3^3^2930324^"
^DD(503338,2,21,1,0)=" "
^DD(503338,2,21,2,0)="This field contains the number of days you wish time cards in file 503335"
^DD(503338,2,21,3,0)="to be retained and protected from purging."
^DD(503338,2,"DT")="2890208"
^DD(503338,3,0)="DAYS TO RETAIN DAILY RECORDS^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<60)!(X?.E1"".""1N.N) X"
^DD(503338,3,3)="Enter the number of days between 60 and 999 you want to retain daily time keeping records on the system."
^DD(503338,3,21,0)="^^3^3^2930324^"
^DD(503338,3,21,1,0)=" "
^DD(503338,3,21,2,0)="This field contains the number of days you wish to retain daily record"
^DD(503338,3,21,3,0)="entries in file 503331 and protect them from purging."
^DD(503338,3,"DT")="2890208"
^DD(503338,4,0)="MEAL PRICE^NJ5,2^^0;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99.99)!(X<.01) X"
^DD(503338,4,3)="Type a Dollar Amount between .01 and 99.99, 2 Decimal Digits"
^DD(503338,4,21,0)="^^3^3^2930324^"
^DD(503338,4,21,1,0)=" "
^DD(503338,4,21,2,0)="This field contains the authorized meal price for volunteers who eat in the"
^DD(503338,4,21,3,0)="canteen."
^DD(503338,4,"DT")="2890922"
^DD(503338,5,0)="REQUIRED HOURS FOR LUNCH^NJ2,0^^0;6^K:+X'=X!(X>24)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503338,5,3)="ENTER THE NUMBER OF HOURS A VOLUNTEER MUST WORK BEFORE YOU PROVIDE LUNCH"
^DD(503338,5,21,0)="^^3^3^2930324^"
^DD(503338,5,21,1,0)=" "
^DD(503338,5,21,2,0)="This field contains the minimum number of hours of service a volunteer"
^DD(503338,5,21,3,0)="must work to be eligible for a meal at VA expense."
^DD(503338,5,"DT")="2890926"
^DD(503338,6,0)="CUT OFF TIME FOR LUNCH^FX^^0;7^D ^ABSVTIME"
^DD(503338,6,3)="Enter the time when the system will stop asking the volunteers if they are   staying for lunch.  Use 24 hour (Military) time, i.e. 10:00 AM is 1000"
^DD(503338,6,21,0)="^^4^4^2930324^"
^DD(503338,6,21,1,0)=" "
^DD(503338,6,21,2,0)="This field contains the time, in 24 hour time (1:00 p.m. - 1300), after"
^DD(503338,6,21,3,0)="which the auto log-in program will not ask a volunteer if he/she is"
^DD(503338,6,21,4,0)="staying for lunch."
^DD(503338,6,"DT")="2900807"
^DD(503338,7,0)="SCREEN SAVER NAME/INFO^503338.07^^1;0"
^DD(503338,7,21,0)="^^3^3^2950302^^"
^DD(503338,7,21,1,0)=" "
^DD(503338,7,21,2,0)="This word processing field contains the banner you wish to have displayed"
^DD(503338,7,21,3,0)="on the screen saver portion of the auto log-in program."
^DD(503338,8,0)="AUTHORIZED USER^503338.08P^^2;0"
^DD(503338,8,21,0)="^^3^3^2930324^"
^DD(503338,8,21,1,0)=" "
^DD(503338,8,21,2,0)="This multiple field contains a list of those users authorized access to"
^DD(503338,8,21,3,0)="the records for this specific voluntary service activity."
^DD(503338,9,0)="VOL STATION NUMBER^RF^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<3)!'(X?3.4UN) X"
^DD(503338,9,1,0)="^.1"
^DD(503338,9,1,1,0)="503338^AD"
^DD(503338,9,1,1,1)="S ^ABS(503338,""AD"",$E(X,1,30),DA)="""""
^DD(503338,9,1,1,2)="K ^ABS(503338,""AD"",$E(X,1,30),DA)"
^DD(503338,9,1,2,0)="503338^C"
^DD(503338,9,1,2,1)="S ^ABS(503338,""C"",$E(X,1,30),DA)="""""
^DD(503338,9,1,2,2)="K ^ABS(503338,""C"",$E(X,1,30),DA)"
^DD(503338,9,1,2,"%D",0)="^^3^3^2930318^"
^DD(503338,9,1,2,"%D",1,0)="This cross reference allows the user to look up the record when the"
^DD(503338,9,1,2,"%D",2,0)="voluntary station number is different than the station number field"
^DD(503338,9,1,2,"%D",3,0)="in the Institution File."
^DD(503338,9,1,2,"DT")="2930318"
^DD(503338,9,3)="Answer with the Station Number used by the Voluntary Service Package at the Austin DPC."
^DD(503338,9,5,1,0)="503338^.01^2"
^DD(503338,9,21,0)="^^3^3^2930324^"
^DD(503338,9,21,1,0)=" "
^DD(503338,9,21,2,0)="This field contains the 3-4 character station number used by the Austin"
^DD(503338,9,21,3,0)="DPC to identify the specific voluntary activity."
^DD(503338,9,"DT")="2930318"
^DD(503338,10,0)="REQUIRE ALTERNATE LANGUAGE?^S^0:NO;1:YES;^0;8^Q"
^DD(503338,10,1,0)="^.1^^0"
^DD(503338,10,21,0)="^^3^3^2940112^"
^DD(503338,10,21,1,0)="This field is set to YES when the station has a need to present the"
^DD(503338,10,21,2,0)="text of the auto-login program to the volunteers in a language other"
^DD(503338,10,21,3,0)="than English."
^DD(503338,10,"DT")="2940114"
^DD(503338,11,0)="DEFAULT LANGUAGE^S^1:ENGLISH;2:SPANISH;^0;10^Q"
^DD(503338,11,21,0)="^^2^2^2940112^"
^DD(503338,11,21,1,0)="This field contains the language to be used as a default when"
^DD(503338,11,21,2,0)="presenting questions to volunteers during the auto-login process."
^DD(503338,11,"DT")="2940112"
^DD(503338,12,0)="ALTERNATE LANGUAGE^S^1:ENGLISH;2:SPANISH;^0;11^Q"
^DD(503338,12,21,0)="^^2^2^2950302^"
^DD(503338,12,21,1,0)="This field contains the alternate language in use at the facility for"
^DD(503338,12,21,2,0)="volunteers, when required."
^DD(503338,12,"DT")="2940120"
^DD(503338,13,0)="MEAL AUTHORIZATION TYPE^S^0:MEAL LIST;1:MEAL TICKET;^0;12^Q"
^DD(503338,13,21,0)="^^2^2^2950803^^^"
^DD(503338,13,21,1,0)="This field contains the meal authorization type in use at the facility"
^DD(503338,13,21,2,0)="for volunteer meals."
^DD(503338,13,"DT")="2941128"
^DD(503338,14,0)="VETERANS GAMES^S^0:NO;1:YES;^0;13^Q"
^DD(503338,14,21,0)="^^3^3^2990209^"
^DD(503338,14,21,1,0)="This field is used to specify if a particular site is being used for the"
^DD(503338,14,21,2,0)="purpose of recording volunteer hours for a program of national veteran"
^DD(503338,14,21,3,0)="games."
^DD(503338,14,"DT")="2990209"
^DD(503338,15,0)="MEALS ON SATURDAYS?^S^0:NO;1:YES;^0;14^Q"
^DD(503338,15,21,0)="^^2^2^2990310^"
^DD(503338,15,21,1,0)="If ""YES"" the ""Are you staying for lunch"" question will be asked if"
^DD(503338,15,21,2,0)="appropriate."
^DD(503338,15,"DT")="2990310"
^DD(503338,16,0)="MEALS ON SUNDAYS?^S^0:NO;1:YES;^0;15^Q"
^DD(503338,16,3)=""
^DD(503338,16,"DT")="2990310"
^DD(503338,17,0)="MEALS ON HOLIDAYS?^S^0:NO;1:YES;^0;16^Q"
^DD(503338,17,3)=""
^DD(503338,17,"DT")="2990310"
^DD(503338,18,0)="AFFILIATED ORGANIZATIONS^503338.018P^^3;0"
^DD(503338,"B","AFFILIATED ORGANIZATIONS",18)=""
^DD(503338,"B","ALTERNATE LANGUAGE",12)=""
^DD(503338,"B","AUTHORIZED USER",8)=""
^DD(503338,"B","CUT OFF TIME FOR LUNCH",6)=""
^DD(503338,"B","DAYS TO RETAIN DAILY RECORDS",3)=""
^DD(503338,"B","DAYS TO RETAIN TIME CARDS",2)=""
^DD(503338,"B","DEFAULT LANGUAGE",11)=""
^DD(503338,"B","MEAL AUTHORIZATION TYPE",13)=""
^DD(503338,"B","MEAL PRICE",4)=""
^DD(503338,"B","MEALS ON HOLIDAYS?",17)=""
^DD(503338,"B","MEALS ON SATURDAYS?",15)=""
^DD(503338,"B","MEALS ON SUNDAYS?",16)=""
^DD(503338,"B","PRIMARY STATION",1)=""
^DD(503338,"B","REQUIRE ALTERNATE LANGUAGE?",10)=""
^DD(503338,"B","REQUIRED HOURS FOR LUNCH",5)=""
^DD(503338,"B","SCREEN SAVER NAME/INFO",7)=""
^DD(503338,"B","SITE NAME",.01)=""
^DD(503338,"B","VETERANS GAMES",14)=""
^DD(503338,"B","VOL STATION NUMBER",9)=""
^DD(503338,"GL",0,1,.01)=""
^DD(503338,"GL",0,2,1)=""
^DD(503338,"GL",0,3,2)=""
^DD(503338,"GL",0,4,3)=""
^DD(503338,"GL",0,5,4)=""
^DD(503338,"GL",0,6,5)=""
^DD(503338,"GL",0,7,6)=""
^DD(503338,"GL",0,8,10)=""
^DD(503338,"GL",0,9,9)=""
^DD(503338,"GL",0,10,11)=""
^DD(503338,"GL",0,11,12)=""
^DD(503338,"GL",0,12,13)=""
^DD(503338,"GL",0,13,14)=""
^DD(503338,"GL",0,14,15)=""
^DD(503338,"GL",0,15,16)=""
^DD(503338,"GL",0,16,17)=""
^DD(503338,"GL",1,0,7)=""
^DD(503338,"GL",2,0,8)=""
^DD(503338,"GL",3,0,18)=""
^DD(503338,"IX",.01)=""
^DD(503338,"IX",1)=""
^DD(503338,"IX",9)=""
^DD(503338,"RQ",.01)=""
^DD(503338,"RQ",9)=""
^DD(503338,"SB",503338.018,18)=""
^DD(503338,"SB",503338.07,7)=""
^DD(503338,"SB",503338.08,8)=""
^DD(503338.018,0)="AFFILIATED ORGANIZATIONS SUB-FIELD^^1^2"
^DD(503338.018,0,"DT")="3000118"
^DD(503338.018,0,"IX","B",503338.018,.01)=""
^DD(503338.018,0,"NM","AFFILIATED ORGANIZATIONS")=""
^DD(503338.018,0,"UP")="503338"
^DD(503338.018,.01,0)="AFFILIATED ORGANIZATIONS^MP503334'^ABS(503334,^0;1^Q"
^DD(503338.018,.01,1,0)="^.1"
^DD(503338.018,.01,1,1,0)="503338.018^B"
^DD(503338.018,.01,1,1,1)="S ^ABS(503338,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(503338.018,.01,1,1,2)="K ^ABS(503338,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(503338.018,.01,1,2,0)="503338^AB"
^DD(503338.018,.01,1,2,1)="S ^ABS(503338,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(503338.018,.01,1,2,2)="K ^ABS(503338,""AB"",$E(X,1,30),DA(1),DA)"
^DD(503338.018,.01,1,2,"DT")="3000216"
^DD(503338.018,.01,21,0)="^^2^2^3000118^^"
^DD(503338.018,.01,21,1,0)="This field contains the names of organizations specifically affiliated"
^DD(503338.018,.01,21,2,0)="with this station number."
^DD(503338.018,.01,"DT")="3000216"
^DD(503338.018,1,0)="ORGANIZATION NAME^CJ45^^ ; ^X ^DD(503338.018,1,9.3) S X=$P(Y(503338.018,1,101),U,2) S D0=Y(503338.018,1,80) S D1=Y(503338.018,1,81)"
^DD(503338.018,1,9)="^"
^DD(503338.018,1,9.01)="503334^1;503338.018^.01"
^DD(503338.018,1,9.1)="#.01:ORGANIZATION"
^DD(503338.018,1,9.2)="S Y(503338.018,1,81)=$S($D(D1):D1,1:""""),Y(503338.018,1,80)=$S($D(D0):D0,1:""""),Y(503338.018,1,1)=$S($D(^ABS(503338,D0,3,D1,0)):^(0),1:"""")"
^DD(503338.018,1,9.3)="X ^DD(503338.018,1,9.2) S D0=$P(Y(503338.018,1,1),U,1) S:'$D(^ABS(503334,+D0,0)) D0=-1 S Y(503338.018,1,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""")"
^DD(503338.018,"B","AFFILIATED ORGANIZATIONS",.01)=""
^DD(503338.018,"B","ORGANIZATION NAME",1)=""
^DD(503338.018,"GL",0,1,.01)=""
^DD(503338.018,"IX",.01)=""
^DD(503338.07,0)="SCREEN SAVER NAME/INFO SUB-FIELD^^.01^1"
^DD(503338.07,0,"NM","SCREEN SAVER NAME/INFO")=" "
^DD(503338.07,0,"UP")="503338"
^DD(503338.07,.01,0)="SCREEN SAVER NAME/INFO^W^^0;1^Q"
^DD(503338.07,.01,"DT")="2891023"
^DD(503338.07,"B","SCREEN SAVER NAME/INFO",.01)=""
^DD(503338.07,"GL",0,1,.01)=""
^DD(503338.08,0)="AUTHORIZED USER SUB-FIELD^^.01^1"
^DD(503338.08,0,"DT")="2930603"
^DD(503338.08,0,"IX","B",503338.08,.01)=""
^DD(503338.08,0,"NM","AUTHORIZED USER")=" "
^DD(503338.08,0,"UP")="503338"
^DD(503338.08,.01,0)="AUTHORIZED USER^MP200'^VA(200,^0;1^Q"
^DD(503338.08,.01,1,0)="^.1"
^DD(503338.08,.01,1,1,0)="503338.08^B"
^DD(503338.08,.01,1,1,1)="S ^ABS(503338,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(503338.08,.01,1,1,2)="K ^ABS(503338,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(503338.08,.01,21,0)="^^3^3^2930324^"
^DD(503338.08,.01,21,1,0)=" "
^DD(503338.08,.01,21,2,0)="This field contains the names of all authorized users for each station"
^DD(503338.08,.01,21,3,0)="designated."
^DD(503338.08,.01,"DT")="2930603"
^DD(503338.08,"B","AUTHORIZED USER",.01)=""
^DD(503338.08,"GL",0,1,.01)=""
^DD(503338.08,"IX",.01)=""
^DD(503338.1,0)="FIELD^^9^10"
^DD(503338.1,0,"DDA")="N"
^DD(503338.1,0,"DT")="2980408"
^DD(503338.1,0,"IX","B",503338.1,.01)=""
^DD(503338.1,0,"IX","C",503338.15,.01)=""
^DD(503338.1,0,"NM","VOLUNTARY LABEL CONFIGURATION")=" "
^DD(503338.1,0,"VR")="4.0"
^DD(503338.1,0,"VRPK")="ABSV"
^DD(503338.1,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(503338.1,.01,1,0)="^.1"
^DD(503338.1,.01,1,1,0)="503338.1^B"
^DD(503338.1,.01,1,1,1)="S ^ABS(503338.1,""B"",$E(X,1,30),DA)="""""
^DD(503338.1,.01,1,1,2)="K ^ABS(503338.1,""B"",$E(X,1,30),DA)"
^DD(503338.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(503338.1,1,0)="NUMBER OF LABEL COLUMNS^NJ1,0^^0;2^K:+X'=X!(X>5)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503338.1,1,3)="Type a Number between 1 and 5, 0 Decimal Digits"
^DD(503338.1,1,"DT")="2940818"
^DD(503338.1,2,0)="NUMBER OF LABEL ROWS PER PAGE^NJ2,0^^0;3^K:+X'=X!(X>20)!(X<0)!(X?.E1"".""1N.N) X"
^DD(503338.1,2,3)="Enter the Number of Label Rows per Page (0-20).  If the Labels are Continuous Form, Enter 0.  "
^DD(503338.1,2,"DT")="2980408"
^DD(503338.1,3,0)="NUMBER OF LINES PER LABEL^NJ2,0^^0;4^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503338.1,3,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(503338.1,3,"DT")="2940812"
^DD(503338.1,4,0)="NUMBER OF COL/LABEL - OPTIONAL^NJ3,0^^0;5^K:+X'=X!(X>132)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503338.1,4,3)="Only enter a number between 1 and 132 when you are ABSOLUTELY SURE you will not be printing more that one pitch, otherwise leave blank."
^DD(503338.1,4,21,0)="^^3^3^2940815^"
^DD(503338.1,4,21,1,0)="This contains the number of columns per label.  This field is optional"
^DD(503338.1,4,21,2,0)="and will normally be blank since the program will use the page width"
^DD(503338.1,4,21,3,0)="of the sheet to calculate the number of individual columns."
^DD(503338.1,4,"DT")="2940816"
^DD(503338.1,5,0)="MANUFACTURER & STOCK #^503338.15^^1;0"
^DD(503338.1,6,0)="LEFT MARGIN OFFSET^NJ2,0^^0;6^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503338.1,6,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(503338.1,6,21,0)="^^2^2^2970404^"
^DD(503338.1,6,21,1,0)="This field contains the number of columns that the printed label is"
^DD(503338.1,6,21,2,0)="to print from the left margin of the label."
^DD(503338.1,6,"DT")="2970404"
^DD(503338.1,7,0)="TOP MARGIN OFFSET (FIRST PAGE)^NJ2,0^^0;7^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(503338.1,7,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(503338.1,7,"DT")="2970404"
^DD(503338.1,8,0)="TOP MARGIN OFFSET (OTHER PGS)^NJ2,0^^0;8^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""1N.N) X"
^DD(503338.1,8,3)="Type a Number between 0 and 10, 0 Decimal Digits"
^DD(503338.1,8,"DT")="2970404"
^DD(503338.1,9,0)="LASER LABEL?^S^0:NO;1:YES;^0;9^Q"
^DD(503338.1,9,21,0)="^^3^3^2980401^"
^DD(503338.1,9,21,1,0)="Set this field to YES if the labels are designed for laser printer output."
^DD(503338.1,9,21,2,0)=" If set to YES, the user will not be asked the ALIGNMENT question during"
^DD(503338.1,9,21,3,0)="printing."
^DD(503338.1,9,"DT")="2980401"
^DD(503338.1,"B","LASER LABEL?",9)=""
^DD(503338.1,"B","LEFT MARGIN OFFSET",6)=""
^DD(503338.1,"B","MANUFACTURER & STOCK #",5)=""
^DD(503338.1,"B","NAME",.01)=""
^DD(503338.1,"B","NUMBER OF COL/LABEL - OPTIONAL",4)=""
^DD(503338.1,"B","NUMBER OF LABEL COLUMNS",1)=""
^DD(503338.1,"B","NUMBER OF LABEL ROWS PER PAGE",2)=""
^DD(503338.1,"B","NUMBER OF LINES PER LABEL",3)=""
^DD(503338.1,"B","TOP MARGIN OFFSET (FIRST PAGE)",7)=""
^DD(503338.1,"B","TOP MARGIN OFFSET (OTHER PGS)",8)=""
^DD(503338.1,"GL",0,1,.01)=""
^DD(503338.1,"GL",0,2,1)=""
^DD(503338.1,"GL",0,3,2)=""
^DD(503338.1,"GL",0,4,3)=""
^DD(503338.1,"GL",0,5,4)=""
^DD(503338.1,"GL",0,6,6)=""
^DD(503338.1,"GL",0,7,7)=""
^DD(503338.1,"GL",0,8,8)=""
^DD(503338.1,"GL",0,9,9)=""
^DD(503338.1,"GL",1,0,5)=""
^DD(503338.1,"IX",.01)=""
^DD(503338.1,"RQ",.01)=""
^DD(503338.1,"SB",503338.15,5)=""
^DD(503338.15,0)="MANUFACTURER & STOCK # SUB-FIELD^^.01^1"
^DD(503338.15,0,"DT")="2940812"
^DD(503338.15,0,"IX","B",503338.15,.01)=""
^DD(503338.15,0,"NM","MANUFACTURER & STOCK #")=" "
^DD(503338.15,0,"UP")="503338.1"
^DD(503338.15,.01,0)="MANUFACTURER & STOCK #^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(503338.15,.01,1,0)="^.1"
^DD(503338.15,.01,1,1,0)="503338.15^B"
^DD(503338.15,.01,1,1,1)="S ^ABS(503338.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(503338.15,.01,1,1,2)="K ^ABS(503338.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(503338.15,.01,1,2,0)="503338.1^C"
^DD(503338.15,.01,1,2,1)="S ^ABS(503338.1,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(503338.15,.01,1,2,2)="K ^ABS(503338.1,""C"",$E(X,1,30),DA(1),DA)"
^DD(503338.15,.01,1,2,"%D",0)="^^2^2^2940812^"
^DD(503338.15,.01,1,2,"%D",1,0)="This cross reference allows the user to configure a specific label from a"
^DD(503338.15,.01,1,2,"%D",2,0)="specific manufacturer."
^DD(503338.15,.01,1,2,"DT")="2940812"
^DD(503338.15,.01,3)="Answer must be 1-30 characters in length."
^DD(503338.15,.01,"DT")="2940812"
^DD(503338.15,"B","MANUFACTURER & STOCK #",.01)=""
^DD(503338.15,"GL",0,1,.01)=""
^DD(503338.15,"IX",.01)=""
^DD(503339,0)="FIELD^^3^4"
^DD(503339,0,"DDA")="N"
^DD(503339,0,"DT")="2960531"
^DD(503339,0,"ID",1)="W:$D(^(1)) ""   "",$P(^(1),U,1)"
^DD(503339,0,"IX","AC",503339,1)=""
^DD(503339,0,"IX","B",503339,.01)=""
^DD(503339,0,"IX","C",503339,3)=""
^DD(503339,0,"NM","VOLUNTARY PHRASE")=" "
^DD(503339,0,"VR")="4.0"
^DD(503339,0,"VRPK")="ABSV"
^DD(503339,.01,0)="ID^RNJ3,0X^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X I $D(X) S DINUM=X"
^DD(503339,.01,1,0)="^.1"
^DD(503339,.01,1,1,0)="503339^B"
^DD(503339,.01,1,1,1)="S ^ABS(503339,""B"",$E(X,1,30),DA)="""""
^DD(503339,.01,1,1,2)="K ^ABS(503339,""B"",$E(X,1,30),DA)"
^DD(503339,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(503339,.01,"DT")="2940111"
^DD(503339,1,0)="ENGLISH PHRASE^F^^1;1^K:$L(X)>150!($L(X)<1) X"
^DD(503339,1,1,0)="^.1"
^DD(503339,1,1,1,0)="503339^AC"
^DD(503339,1,1,1,1)="S ^ABS(503339,""AC"",$E(X,1,30),DA)="""""
^DD(503339,1,1,1,2)="K ^ABS(503339,""AC"",$E(X,1,30),DA)"
^DD(503339,1,1,1,"DT")="2960531"
^DD(503339,1,3)="Answer must be 1-150 characters in length."
^DD(503339,1,"DT")="2960531"
^DD(503339,2,0)="SPANISH PHRASE^F^^2;1^K:$L(X)>200!($L(X)<1) X"
^DD(503339,2,3)="Answer must be 1-200 characters in length."
^DD(503339,2,"DT")="2940121"
^DD(503339,3,0)="SHORT LOOKUP^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(503339,3,1,0)="^.1"
^DD(503339,3,1,1,0)="503339^C"
^DD(503339,3,1,1,1)="S ^ABS(503339,""C"",$E(X,1,30),DA)="""""
^DD(503339,3,1,1,2)="K ^ABS(503339,""C"",$E(X,1,30),DA)"
^DD(503339,3,1,1,"%D",0)="^^2^2^2960531^"
^DD(503339,3,1,1,"%D",1,0)="This cross reference will be used to look up phrases by the an english "
^DD(503339,3,1,1,"%D",2,0)="text short phrase."
^DD(503339,3,1,1,"DT")="2960531"
^DD(503339,3,3)="Answer must be 1-30 characters in length."
^DD(503339,3,21,0)="^^2^2^2960531^"
^DD(503339,3,21,1,0)="This field allows the programmer to use free text for displaying a"
^DD(503339,3,21,2,0)="phrase rather than just the number."
^DD(503339,3,"DT")="2960531"
^DD(503339,"B","ENGLISH PHRASE",1)=""
^DD(503339,"B","ID",.01)=""
^DD(503339,"B","SHORT LOOKUP",3)=""
^DD(503339,"B","SPANISH PHRASE",2)=""
^DD(503339,"GL",0,1,.01)=""
^DD(503339,"GL",0,2,3)=""
^DD(503339,"GL",1,1,1)=""
^DD(503339,"GL",2,1,2)=""
^DD(503339,"IX",.01)=""
^DD(503339,"IX",1)=""
^DD(503339,"IX",3)=""
^DD(503339,"RQ",.01)=""
^DD(503339.1,0)="FIELD^^3^4"
^DD(503339.1,0,"DDA")="N"
^DD(503339.1,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(450.12,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(503339.1,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(450.12,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(503339.1,0,"IX","B",503339.1,.01)=""
^DD(503339.1,0,"IX","C",503339.1,1)=""
^DD(503339.1,0,"NM","VOLUNTARY SERVER MESSAGE")=" "
^DD(503339.1,0,"VR")="4.0"
^DD(503339.1,0,"VRPK")="ABSV"
^DD(503339.1,.01,0)="ID^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(503339.1,.01,1,0)="^.1"
^DD(503339.1,.01,1,1,0)="503339.1^B"
^DD(503339.1,.01,1,1,1)="S ^ABS(503339.1,""B"",$E(X,1,30),DA)="""""
^DD(503339.1,.01,1,1,2)="K ^ABS(503339.1,""B"",$E(X,1,30),DA)"
^DD(503339.1,.01,3)="Answer must be 1-30 characters in length."
^DD(503339.1,.01,21,0)="^^1^1^2911122^"
^DD(503339.1,.01,21,1,0)="This field contains the internal entry number of the download message."
^DD(503339.1,.01,"DT")="2911023"
^DD(503339.1,1,0)="TYPE^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(503339.1,1,1,0)="^.1"
^DD(503339.1,1,1,1,0)="503339.1^C"
^DD(503339.1,1,1,1,1)="S ^ABS(503339.1,""C"",$E(X,1,30),DA)="""""
^DD(503339.1,1,1,1,2)="K ^ABS(503339.1,""C"",$E(X,1,30),DA)"
^DD(503339.1,1,1,1,"DT")="2910701"
^DD(503339.1,1,3)="Answer must be 1-30 characters in length."
^DD(503339.1,1,21,0)="^^4^4^2911122^"
^DD(503339.1,1,21,1,0)="This field contains the code for the type of download; the month, day"
^DD(503339.1,1,21,2,0)="and year (MMDDYY) it was created; the station number it pertains to; and"
^DD(503339.1,1,21,3,0)="the sequence number of the message within the total download message count."
^DD(503339.1,1,21,4,0)="For example: TYPE-MMDDYY-STATION NUMBER-SEQUENCE NUMBER"
^DD(503339.1,1,"DT")="2911023"
^DD(503339.1,2,0)="STATUS^S^R:RECEIVED;S:SERVED;^0;3^Q"
^DD(503339.1,2,3)=" "
^DD(503339.1,2,21,0)="^^3^3^2911122^"
^DD(503339.1,2,21,1,0)="This field identifies the status of the download message. When the message"
^DD(503339.1,2,21,2,0)="arrives it is marked as RECEIVED. After the message has been processed it"
^DD(503339.1,2,21,3,0)="is marked as SERVED."
^DD(503339.1,2,"DT")="2911023"
^DD(503339.1,3,0)="DATE RECEIVED^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503339.1,3,3)=" "
^DD(503339.1,3,21,0)="^^1^1^2911122^"
^DD(503339.1,3,21,1,0)="This field contains the date and time the download message was received."
^DD(503339.1,3,"DT")="2910701"
^DD(503339.1,"B","DATE RECEIVED",3)=""
^DD(503339.1,"B","ID",.01)=""
^DD(503339.1,"B","STATUS",2)=""
^DD(503339.1,"B","TYPE",1)=""
^DD(503339.1,"GL",0,1,.01)=""
^DD(503339.1,"GL",0,2,1)=""
^DD(503339.1,"GL",0,3,2)=""
^DD(503339.1,"GL",0,4,3)=""
^DD(503339.1,"IX",.01)=""
^DD(503339.1,"IX",1)=""
^DD(503339.1,"RQ",.01)=""
^DD(503339.2,0)="FIELD^^23^28"
^DD(503339.2,0,"DDA")="N"
^DD(503339.2,0,"DT")="3001027"
^DD(503339.2,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(503339.2,0,"ID","Z0")="W $P($G(^(5,1,0)),U,1)"
^DD(503339.2,0,"IX","B",503339.2,.01)=""
^DD(503339.2,0,"IX","C",503339.2,1)=""
^DD(503339.2,0,"IX","D",503339.214,1)=""
^DD(503339.2,0,"IX","E",503339.21,.01)=""
^DD(503339.2,0,"IX","F",503339.22,.01)=""
^DD(503339.2,0,"IX","G",503339.21,1)=""
^DD(503339.2,0,"NM","VOLUNTARY SERVICE DIRECTORY")=" "
^DD(503339.2,0,"PT",503339.2,1.2)=""
^DD(503339.2,0,"PT",503339.9,.01)=""
^DD(503339.2,0,"VR")="4.0"
^DD(503339.2,0,"VRPK")="ABSV"
^DD(503339.2,.01,0)="STATION NUMBER^RFX^^0;1^Q:X=""USA""  K:$L(X)>4!($L(X)<3)!'(X?3N.1U) X"
^DD(503339.2,.01,1,0)="^.1"
^DD(503339.2,.01,1,1,0)="503339.2^B"
^DD(503339.2,.01,1,1,1)="S ^ABS(503339.2,""B"",$E(X,1,30),DA)="""""
^DD(503339.2,.01,1,1,2)="K ^ABS(503339.2,""B"",$E(X,1,30),DA)"
^DD(503339.2,.01,3)="Answer must be 3-4 characters in length."
^DD(503339.2,.01,21,0)="^^3^3^2941230^"
^DD(503339.2,.01,21,1,0)="This field contains the Voluntary Service Station Number.  It can"
^DD(503339.2,.01,21,2,0)="contain upto 4 characters and may be different from the offical station"
^DD(503339.2,.01,21,3,0)="number."
^DD(503339.2,.01,"DT")="3000414"
^DD(503339.2,.05,0)="SYNONYM^503339.22^^5;0"
^DD(503339.2,1,0)="STATION NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<1) X"
^DD(503339.2,1,1,0)="^.1"
^DD(503339.2,1,1,1,0)="503339.2^C"
^DD(503339.2,1,1,1,1)="S ^ABS(503339.2,""C"",$E(X,1,30),DA)="""""
^DD(503339.2,1,1,1,2)="K ^ABS(503339.2,""C"",$E(X,1,30),DA)"
^DD(503339.2,1,1,1,"DT")="2950106"
^DD(503339.2,1,3)="Answer must be 1-40 characters in length."
^DD(503339.2,1,21,0)="^^4^4^2941230^"
^DD(503339.2,1,21,1,0)="This field contains the name of the VA Facility.  This name may differ"
^DD(503339.2,1,21,2,0)="from the official name in cases of multiple division facilities and/or"
^DD(503339.2,1,21,3,0)="those facilities which are commonly identified by location rather than"
^DD(503339.2,1,21,4,0)="by official name. E.g. Altoona vs James E. VanZandt VA Medical Center."
^DD(503339.2,1,"DT")="3000414"
^DD(503339.2,1.2,0)="PRIMARY STATION^P503339.2'^ABS(503339.2,^0;14^Q"
^DD(503339.2,1.2,21,0)="^^2^2^3000414^"
^DD(503339.2,1.2,21,1,0)="This field contains the Primary Station Number for ALL entries in the"
^DD(503339.2,1.2,21,2,0)="File, Including Primary Stations."
^DD(503339.2,1.2,"DT")="3000414"
^DD(503339.2,1.5,0)="SECONDARY STATION NUMBER^503339.21^^3;0"
^DD(503339.2,2,0)="VISN^NJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503339.2,2,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(503339.2,2,21,0)="^^2^2^2941230^"
^DD(503339.2,2,21,1,0)="This field is reserved for the VA region or Veterans Integration Network"
^DD(503339.2,2,21,2,0)="number."
^DD(503339.2,2,"DT")="2951012"
^DD(503339.2,3,0)="ADD LINE 1^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(503339.2,3,3)="Answer must be 1-30 characters in length."
^DD(503339.2,3,21,0)="^^2^2^2941230^"
^DD(503339.2,3,21,1,0)="This field contains the first line of the of the Voluntary Service mailing"
^DD(503339.2,3,21,2,0)="address for this facility.  E.g. VA Medical Center (135)"
^DD(503339.2,3,"DT")="2941230"
^DD(503339.2,4,0)="ADD LINE 2^F^^0;5^K:$L(X)>30!($L(X)<1) X"
^DD(503339.2,4,3)="Answer must be 1-30 characters in length."
^DD(503339.2,4,21,0)="^^2^2^2941230^"
^DD(503339.2,4,21,1,0)="This field contains the second line of the Voluntary Service mailing address"
^DD(503339.2,4,21,2,0)="for this facility."
^DD(503339.2,4,"DT")="2941230"
^DD(503339.2,4.5,0)="ADD LINE 3^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(503339.2,4.5,3)="Answer must be 1-30 characters in length."
^DD(503339.2,4.5,21,0)="^^2^2^2941230^"
^DD(503339.2,4.5,21,1,0)="This field contains (if necessary), the third line of the Voluntary Service"
^DD(503339.2,4.5,21,2,0)="mailing Address for the facility."
^DD(503339.2,4.5,"DT")="2941230"
^DD(503339.2,5,0)="CITY^F^^0;6^K:$L(X)>25!($L(X)<1) X"
^DD(503339.2,5,3)="Answer must be 1-25 characters in length."
^DD(503339.2,5,21,0)="^^1^1^2941230^"
^DD(503339.2,5,21,1,0)="This field contains the Mailing Address City name for the facility."
^DD(503339.2,5,"DT")="2941230"
^DD(503339.2,6,0)="STATE^P5'^DIC(5,^0;7^Q"
^DD(503339.2,6,21,0)="^^2^2^2941230^"
^DD(503339.2,6,21,1,0)="This field points to the State file and contains the State location"
^DD(503339.2,6,21,2,0)="of the facility."
^DD(503339.2,6,"DT")="2941230"
^DD(503339.2,7,0)="ZIP CODE^F^^0;8^K:$L(X)>10!($L(X)<5) X"
^DD(503339.2,7,3)="Answer must be 5-10 characters in length."
^DD(503339.2,7,21,0)="^^1^1^2941230^"
^DD(503339.2,7,21,1,0)="This field contains the 5 or 9 digit US Zip Code of the Facility."
^DD(503339.2,7,"DT")="2941230"
^DD(503339.2,8,0)="PRIMARY FTS PHONE^F^^1;1^K:$L(X)>18!($L(X)<12) X"
^DD(503339.2,8,3)="Answer must be 12-18 characters in length."
^DD(503339.2,8,21,0)="^^2^2^2941230^"
^DD(503339.2,8,21,1,0)="This field contains the primary FTS telephone number for the Voluntary"
^DD(503339.2,8,21,2,0)="Service at the facility."
^DD(503339.2,8,"DT")="2950106"
^DD(503339.2,9,0)="ALTERNATE FTS PHONE^F^^1;2^K:$L(X)>18!($L(X)<12) X"
^DD(503339.2,9,3)="Answer must be 12-18 characters in length."
^DD(503339.2,9,21,0)="^^2^2^2941230^"
^DD(503339.2,9,21,1,0)="This field contains an alternate FTS telephone number for the Voluntary "
^DD(503339.2,9,21,2,0)="Service at the facility."
^DD(503339.2,9,"DT")="2950106"
^DD(503339.2,10,0)="PRIMARY COMMERCIAL PHONE^F^^1;3^K:$L(X)>19!($L(X)<12) X"
^DD(503339.2,10,3)="Answer must be 12-19 characters in length."
^DD(503339.2,10,21,0)="^^3^3^2941230^^"
^DD(503339.2,10,21,1,0)="This field contains the primary commercial telephone number for the "
^DD(503339.2,10,21,2,0)="Voluntary Service at the facility.  It should include Area Code and"
^DD(503339.2,10,21,3,0)="Xnnnn for extension, when appropriate."
^DD(503339.2,10,"DT")="2941230"
^DD(503339.2,11,0)="ALTERNATE COMMERCIAL PHONE^F^^1;4^K:$L(X)>19!($L(X)<12) X"
^DD(503339.2,11,3)="Answer must be 12-19 characters in length."
^DD(503339.2,11,21,0)="^^3^3^2941230^"
^DD(503339.2,11,21,1,0)="This field contains an alternate commercial telephone number for the"
^DD(503339.2,11,21,2,0)="Voluntary Service at the facility.  It should include Area Code and "
^DD(503339.2,11,21,3,0)="Xnnnn for extension, when appropriate."
^DD(503339.2,11,"DT")="2941230"
^DD(503339.2,12,0)="FTS FAX NUMBER^F^^1;5^K:$L(X)>18!($L(X)<12) X"
^DD(503339.2,12,3)="Answer must be 12-18 characters in length."
^DD(503339.2,12,21,0)="^^2^2^2941230^"
^DD(503339.2,12,21,1,0)="This field contains the FTS phone number (if any) of a fax machine "
^DD(503339.2,12,21,2,0)="available for receiving faxes for delivery to Voluntary Service."
^DD(503339.2,12,"DT")="2950106"
^DD(503339.2,13,0)="COMMERCIAL FAX NUMBER^F^^1;6^K:$L(X)>19!($L(X)<12) X"
^DD(503339.2,13,3)="Answer must be 12-19 characters in length."
^DD(503339.2,13,21,0)="^^2^2^2941230^"
^DD(503339.2,13,21,1,0)="This field contains the commercial phone number (if any) of a fax machine"
^DD(503339.2,13,21,2,0)="available for receiving faxes for delivery to Voluntary Service."
^DD(503339.2,13,"DT")="2950106"
^DD(503339.2,14,0)="POSITIONS^503339.214^^2;0"
^DD(503339.2,14,21,0)="^^2^2^2941230^"
^DD(503339.2,14,21,1,0)="This multiple value field contains the list of personnel working within"
^DD(503339.2,14,21,2,0)="the Voluntary Service at the facility."
^DD(503339.2,15,0)="DATE OF LAST UPDATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503339.2,15,21,0)="^^2^2^2941230^"
^DD(503339.2,15,21,1,0)="This field contains the date the individual facility record was last"
^DD(503339.2,15,21,2,0)="modified."
^DD(503339.2,15,23,0)="^^2^2^2941230^"
^DD(503339.2,15,23,1,0)="This field is used to determine when a record was last updated by the"
^DD(503339.2,15,23,2,0)="system.  It is used to prevent redundant transmission of information."
^DD(503339.2,15,"DT")="2941230"
^DD(503339.2,16,0)="PROGRAMS SUPERVISED^503339.216IP^^4;0"
^DD(503339.2,17,0)="CHIEF'S IMMEDIATE SUPERVISOR^F^^0;11^K:$L(X)>30!($L(X)<1) X"
^DD(503339.2,17,3)="Answer with the TITLE of the position which immediately supervises the Chief, Voluntary Service.  No more than 30 characters, please!"
^DD(503339.2,17,21,0)="^^2^2^2950404^"
^DD(503339.2,17,21,1,0)="This field contains the TITLE of the position which is the immediate"
^DD(503339.2,17,21,2,0)="supervisor for the Chief, Voluntary Service."
^DD(503339.2,17,"DT")="2950404"
^DD(503339.2,18,0)="TITLE OF CHIEF^F^^1;7^K:$L(X)>30!($L(X)<1) X"
^DD(503339.2,18,3)="Answer must be 1-30 characters in length."
^DD(503339.2,18,"DT")="2950602"
^DD(503339.2,19,0)="NATIONAL ASSIGNMENT?^S^0:NO;1:YES;^0;12^Q"
^DD(503339.2,19,1,0)="^.1"
^DD(503339.2,19,1,1,0)="^^TRIGGER^503339.2^20"
^DD(503339.2,19,1,1,1)="X ^DD(503339.2,19,1,1,1.3) I X S X=DIV S Y(1)=$S($D(^ABS(503339.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(503339.2,19,1,1,1.4)"
^DD(503339.2,19,1,1,1.3)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$C(59)_$S($D(^DD(503339.2,19,0)):$P(^(0),U,3),1:"""") S X=$P($P(Y(1),$C(59)_Y(0)_"":"",2),$C(59),1)=""NO"""
^DD(503339.2,19,1,1,1.4)="S DIH=$S($D(^ABS(503339.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=503339.2,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503339.2,19,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503339.2,D0,0)):^(0),1:"""") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="""" X ^DD(503339.2,19,1,1,2.4)"
^DD(503339.2,19,1,1,2.4)="S DIH=$S($D(^ABS(503339.2,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,13)=DIV,DIH=503339.2,DIG=20 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503339.2,19,1,1,"CREATE CONDITION")="NATIONAL ASSIGNMENT?=""NO"""
^DD(503339.2,19,1,1,"CREATE VALUE")="@"
^DD(503339.2,19,1,1,"DELETE VALUE")="@"
^DD(503339.2,19,1,1,"FIELD")="NATIONAL ASSIGNMENT POSITION"
^DD(503339.2,19,"DT")="2961230"
^DD(503339.2,20,0)="NATIONAL ASSIGNMENT POSITION^S^R:REPRESENTATIVE;M:MEMBER AT LARGE;V:VISN CHIEF;O:OTHER;^0;13^Q"
^DD(503339.2,20,5,1,0)="503339.2^19^1"
^DD(503339.2,20,"DT")="2970416"
^DD(503339.2,21,0)="STATE ABBREVIATION^CJ2^^ ; ^X ^DD(503339.2,21,9.2) S Y(503339.2,21,101)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(503339.2,21,101),U,2) S D0=Y(503339.2,21,80)"
^DD(503339.2,21,9)="^"
^DD(503339.2,21,9.01)="5^1;503339.2^6"
^DD(503339.2,21,9.1)="STATE:ABBREVIATION"
^DD(503339.2,21,9.2)="S Y(503339.2,21,80)=$S($D(D0):D0,1:""""),Y(503339.2,21,1)=$S($D(^ABS(503339.2,D0,0)):^(0),1:""""),D0=$P(Y(503339.2,21,1),U,7) S:'$D(^DIC(5,+D0,0)) D0=-1"
^DD(503339.2,21,"DT")="2970228"
^DD(503339.2,22,0)="CITY/STATE/ZIP^CJ30^^ ; ^X ^DD(503339.2,22,9.2) S X=X_""  ""_$P(Y(503339.2,22,1),U,8)"
^DD(503339.2,22,9)="^"
^DD(503339.2,22,9.01)="503339.2^7;503339.2^21;503339.2^5"
^DD(503339.2,22,9.1)="CITY_"", ""_STATE ABBREVIATION_""  ""_ZIP CODE"
^DD(503339.2,22,9.2)="X $P(^DD(503339.2,21,0),U,5,99) S Y(503339.2,22,2)=X S Y(503339.2,22,1)=$S($D(^ABS(503339.2,D0,0)):^(0),1:"""") S X=$P(Y(503339.2,22,1),U,6)_"", ""_Y(503339.2,22,2)"
^DD(503339.2,23,0)="LOOKUP SYNONYM^C^^ ; ^X ^DD(503339.2,23,9.3) S X=Y(503339.2,23,102) S D0=Y(503339.2,23,80) S D1=Y(503339.2,23,81)"
^DD(503339.2,23,9)="^"
^DD(503339.2,23,9.01)="503339.22^.01"
^DD(503339.2,23,9.1)="LAST(SYNONYM)"
^DD(503339.2,23,9.2)="S Y(503339.2,23,80)=$G(D0),Y(503339.2,23,81)=$G(D1),Y(503339.2,23,102)="""""
^DD(503339.2,23,9.3)="X ^DD(503339.2,23,9.2) X ""F D1=0:0 S D1=$O(^ABS(503339.2,D0,5,D1)) Q:D1'>0  S Y=$S($D(^(D1,0)):$P(^(0),U,1),1:"""""""") S:Y'?."""" """" Y(503339.2,23,102)=Y"" S D(1)=D1"
^DD(503339.2,"B","ADD LINE 1",3)=""
^DD(503339.2,"B","ADD LINE 2",4)=""
^DD(503339.2,"B","ADD LINE 3",4.5)=""
^DD(503339.2,"B","ALTERNATE COMMERCIAL PHONE",11)=""
^DD(503339.2,"B","ALTERNATE FTS PHONE",9)=""
^DD(503339.2,"B","CHIEF'S IMMEDIATE SUPERVISOR",17)=""
^DD(503339.2,"B","CITY",5)=""
^DD(503339.2,"B","CITY/STATE/ZIP",22)=""
^DD(503339.2,"B","COMMERCIAL FAX NUMBER",13)=""
^DD(503339.2,"B","DATE OF LAST UPDATE",15)=""
^DD(503339.2,"B","FTS FAX NUMBER",12)=""
^DD(503339.2,"B","LOOKUP SYNONYM",23)=""
^DD(503339.2,"B","NATIONAL ASSIGNMENT POSITION",20)=""
^DD(503339.2,"B","NATIONAL ASSIGNMENT?",19)=""
^DD(503339.2,"B","POSITIONS",14)=""
^DD(503339.2,"B","PRIMARY COMMERCIAL PHONE",10)=""
^DD(503339.2,"B","PRIMARY FTS PHONE",8)=""
^DD(503339.2,"B","PRIMARY STATION",1.2)=""
^DD(503339.2,"B","PROGRAMS SUPERVISED",16)=""
^DD(503339.2,"B","SECONDARY STATION NUMBER",1.5)=""
^DD(503339.2,"B","STATE",6)=""
^DD(503339.2,"B","STATE ABBREVIATION",21)=""
^DD(503339.2,"B","STATION NAME",1)=""
^DD(503339.2,"B","STATION NUMBER",.01)=""
^DD(503339.2,"B","SYNONYM",.05)=""
^DD(503339.2,"B","TITLE OF CHIEF",18)=""
^DD(503339.2,"B","VISN",2)=""
^DD(503339.2,"B","ZIP CODE",7)=""
^DD(503339.2,"GL",0,1,.01)=""
^DD(503339.2,"GL",0,2,1)=""
^DD(503339.2,"GL",0,3,2)=""
^DD(503339.2,"GL",0,4,3)=""
^DD(503339.2,"GL",0,5,4)=""
^DD(503339.2,"GL",0,6,5)=""
^DD(503339.2,"GL",0,7,6)=""
^DD(503339.2,"GL",0,8,7)=""
^DD(503339.2,"GL",0,9,4.5)=""
^DD(503339.2,"GL",0,10,15)=""
^DD(503339.2,"GL",0,11,17)=""
^DD(503339.2,"GL",0,12,19)=""
^DD(503339.2,"GL",0,13,20)=""
^DD(503339.2,"GL",0,14,1.2)=""
^DD(503339.2,"GL",1,1,8)=""
^DD(503339.2,"GL",1,2,9)=""
^DD(503339.2,"GL",1,3,10)=""
^DD(503339.2,"GL",1,4,11)=""
^DD(503339.2,"GL",1,5,12)=""
^DD(503339.2,"GL",1,6,13)=""
^DD(503339.2,"GL",1,7,18)=""
^DD(503339.2,"GL",2,0,14)=""
^DD(503339.2,"GL",3,0,1.5)=""
^DD(503339.2,"GL",4,0,16)=""
^DD(503339.2,"GL",5,0,.05)=""
^DD(503339.2,"IX",.01)=""
^DD(503339.2,"IX",1)=""
^DD(503339.2,"IX",19)=""
^DD(503339.2,"RQ",.01)=""
^DD(503339.2,"SB",503339.21,1.5)=""
^DD(503339.2,"SB",503339.214,14)=""
^DD(503339.2,"SB",503339.216,16)=""
^DD(503339.2,"SB",503339.22,.05)=""
^DD(503339.21,0)="SECONDARY STATION NUMBER SUB-FIELD^^6^7"
^DD(503339.21,0,"DT")="2960206"
^DD(503339.21,0,"IX","B",503339.21,.01)=""
^DD(503339.21,0,"NM","SECONDARY STATION NUMBER")=" "
^DD(503339.21,0,"UP")="503339.2"
^DD(503339.21,.01,0)="SECONDARY STATION NUMBER^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<3) X"
^DD(503339.21,.01,1,0)="^.1"
^DD(503339.21,.01,1,1,0)="503339.21^B"
^DD(503339.21,.01,1,1,1)="S ^ABS(503339.2,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(503339.21,.01,1,1,2)="K ^ABS(503339.2,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(503339.21,.01,1,2,0)="503339.2^E"
^DD(503339.21,.01,1,2,1)="S ^ABS(503339.2,""E"",$E(X,1,30),DA(1),DA)="""""
^DD(503339.21,.01,1,2,2)="K ^ABS(503339.2,""E"",$E(X,1,30),DA(1),DA)"
^DD(503339.21,.01,1,2,"DT")="2950208"
^DD(503339.21,.01,3)="Answer must be 3-6 characters in length."
^DD(503339.21,.01,"DT")="2950208"
^DD(503339.21,1,0)="SECONDARY STATION NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(503339.21,1,1,0)="^.1"
^DD(503339.21,1,1,1,0)="503339.2^G"
^DD(503339.21,1,1,1,1)="S ^ABS(503339.2,""G"",$E(X,1,30),DA(1),DA)="""""
^DD(503339.21,1,1,1,2)="K ^ABS(503339.2,""G"",$E(X,1,30),DA(1),DA)"
^DD(503339.21,1,1,1,"DT")="2960419"
^DD(503339.21,1,3)="Answer must be 1-30 characters in length."
^DD(503339.21,1,"DT")="2960419"
^DD(503339.21,2,0)="FTS PHONE NUMBER^F^^0;3^K:$L(X)>19!($L(X)<12) X"
^DD(503339.21,2,3)="Answer must be 12-19 characters in length."
^DD(503339.21,2,21,0)="^^1^1^2950522^"
^DD(503339.21,2,21,1,0)="This field contains the FTS Phone number for the secondary station."
^DD(503339.21,2,"DT")="2950522"
^DD(503339.21,3,0)="COMMERCIAL PHONE NUMBER^F^^0;4^K:$L(X)>19!($L(X)<12) X"
^DD(503339.21,3,3)="Answer must be 12-19 characters in length."
^DD(503339.21,3,"DT")="2950522"
^DD(503339.21,4,0)="FTS FAX NUMBER^F^^0;5^K:$L(X)>19!($L(X)<12) X"
^DD(503339.21,4,3)="Answer must be 12-19 characters in length."
^DD(503339.21,4,"DT")="2950522"
^DD(503339.21,5,0)="COMMERCIAL FAX NUMBER^F^^0;6^K:$L(X)>19!($L(X)<12) X"
^DD(503339.21,5,3)="Answer must be 12-19 characters in length."
^DD(503339.21,5,"DT")="2950522"
^DD(503339.21,6,0)="SEPARATE VAVS COMMITTEE?^S^0:NO;1:YES;^0;7^Q"
^DD(503339.21,6,"DT")="2960206"
^DD(503339.21,"B","COMMERCIAL FAX NUMBER",5)=""
^DD(503339.21,"B","COMMERCIAL PHONE NUMBER",3)=""
^DD(503339.21,"B","FTS FAX NUMBER",4)=""
^DD(503339.21,"B","FTS PHONE NUMBER",2)=""
^DD(503339.21,"B","SECONDARY STATION NAME",1)=""
^DD(503339.21,"B","SECONDARY STATION NUMBER",.01)=""
^DD(503339.21,"B","SEPARATE VAVS COMMITTEE?",6)=""
^DD(503339.21,"GL",0,1,.01)=""
^DD(503339.21,"GL",0,2,1)=""
^DD(503339.21,"GL",0,3,2)=""
^DD(503339.21,"GL",0,4,3)=""
^DD(503339.21,"GL",0,5,4)=""
^DD(503339.21,"GL",0,6,5)=""
^DD(503339.21,"GL",0,7,6)=""
^DD(503339.21,"IX",.01)=""
^DD(503339.21,"IX",1)=""
^DD(503339.214,0)="POSITIONS SUB-FIELD^^4^7"
^DD(503339.214,0,"DT")="2970617"
^DD(503339.214,0,"IX","B",503339.214,.01)=""
^DD(503339.214,0,"NM","POSITIONS")=" "
^DD(503339.214,0,"UP")="503339.2"
^DD(503339.214,.001,0)="NUMBER^NJ2,0^^ ^K:+X'=X!(X>20)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503339.214,.001,3)="Type a Number between 1 and 20, 0 Decimal Digits"
^DD(503339.214,.001,21,0)="^^2^2^2941230^"
^DD(503339.214,.001,21,1,0)="This field is used to for determining the display position of the entry."
^DD(503339.214,.001,21,2,0)="The Chief will usually be entry #1."
^DD(503339.214,.001,"DT")="2941230"
^DD(503339.214,.01,0)="TITLE^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(503339.214,.01,1,0)="^.1"
^DD(503339.214,.01,1,1,0)="503339.214^B"
^DD(503339.214,.01,1,1,1)="S ^ABS(503339.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(503339.214,.01,1,1,2)="K ^ABS(503339.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(503339.214,.01,3)="Answer must be 1-30 characters in length."
^DD(503339.214,.01,21,0)="^^2^2^2941230^"
^DD(503339.214,.01,21,1,0)="This field contain the Organizational Title of the position.  E.g. Chief,"
^DD(503339.214,.01,21,2,0)="Secretary, Specialist."
^DD(503339.214,.01,"DT")="2941230"
^DD(503339.214,1,0)="EMPLOYEE NAME^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(503339.214,1,1,0)="^.1"
^DD(503339.214,1,1,1,0)="503339.2^D"
^DD(503339.214,1,1,1,1)="S ^ABS(503339.2,""D"",$E(X,1,30),DA(1),DA)="""""
^DD(503339.214,1,1,1,2)="K ^ABS(503339.2,""D"",$E(X,1,30),DA(1),DA)"
^DD(503339.214,1,1,1,"DT")="2950106"
^DD(503339.214,1,3)="Answer must be 1-30 characters in length."
^DD(503339.214,1,21,0)="^^3^3^2941230^"
^DD(503339.214,1,21,1,0)="This field contains the name of the employee occupying the position.  The"
^DD(503339.214,1,21,2,0)="term VACANT can be inserted when appropriate.  Employee name should"
^DD(503339.214,1,21,3,0)="be entered in the format LastName,FirstName MI."
^DD(503339.214,1,"DT")="2950106"
^DD(503339.214,1.5,0)="NICKNAME^F^^0;5^K:$L(X)>20!($L(X)<1) X"
^DD(503339.214,1.5,3)="Answer must be 1-20 characters in length."
^DD(503339.214,1.5,21,0)="^^1^1^2941230^"
^DD(503339.214,1.5,21,1,0)="This field contains the commonly used Nickname of the employee. (optional)"
^DD(503339.214,1.5,"DT")="2941230"
^DD(503339.214,2,0)="GRADE^F^^0;3^K:$L(X)>6!($L(X)<1) X"
^DD(503339.214,2,3)="Answer must be 1-6 characters in length."
^DD(503339.214,2,21,0)="^^1^1^2941230^"
^DD(503339.214,2,21,1,0)="This field contains the current grade of the employee."
^DD(503339.214,2,"DT")="2941230"
^DD(503339.214,3,0)="ENTRY DATE IN POSITION^D^^0;4^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503339.214,3,21,0)="^^2^2^2941230^"
^DD(503339.214,3,21,1,0)="This field contains the date the employee first entered the current "
^DD(503339.214,3,21,2,0)="position."
^DD(503339.214,3,"DT")="2941230"
^DD(503339.214,4,0)="SEX^S^1:MALE;2:FEMALE;^0;6^Q"
^DD(503339.214,4,"DT")="2970617"
^DD(503339.214,"B","EMPLOYEE NAME",1)=""
^DD(503339.214,"B","ENTRY DATE IN POSITION",3)=""
^DD(503339.214,"B","GRADE",2)=""
^DD(503339.214,"B","NICKNAME",1.5)=""
^DD(503339.214,"B","NUMBER",.001)=""
^DD(503339.214,"B","SEX",4)=""
^DD(503339.214,"B","TITLE",.01)=""
^DD(503339.214,"GL",0,1,.01)=""
^DD(503339.214,"GL",0,2,1)=""
^DD(503339.214,"GL",0,3,2)=""
^DD(503339.214,"GL",0,4,3)=""
^DD(503339.214,"GL",0,5,1.5)=""
^DD(503339.214,"GL",0,6,4)=""
^DD(503339.214,"IX",.01)=""
^DD(503339.214,"IX",1)=""
^DD(503339.216,0)="PROGRAMS SUPERVISED SUB-FIELD^^3^4"
^DD(503339.216,0,"DT")="3001027"
^DD(503339.216,0,"ID",2)="W ""   "",$P(^(0),U,2)"
^DD(503339.216,0,"ID",3)="W ""   "",$P(^(0),U,3)"
^DD(503339.216,0,"IX","B",503339.216,.01)=""
^DD(503339.216,0,"IX","C",503339.216,3)=""
^DD(503339.216,0,"NM","PROGRAMS SUPERVISED")=" "
^DD(503339.216,0,"UP")="503339.2"
^DD(503339.216,.01,0)="PROGRAMS SUPERVISED^MP503339.3'^ABS(503339.3,^0;1^Q"
^DD(503339.216,.01,1,0)="^.1"
^DD(503339.216,.01,1,1,0)="503339.216^B"
^DD(503339.216,.01,1,1,1)="S ^ABS(503339.2,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(503339.216,.01,1,1,2)="K ^ABS(503339.2,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(503339.216,.01,1,2,0)="^^TRIGGER^503339.216^3"
^DD(503339.216,.01,1,2,1)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503339.2,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(503339.216,.01,1,2,1.1) X ^DD(503339.216,.01,1,2,1.4)"
^DD(503339.216,.01,1,2,1.1)="S X=DIV S I(1,0)=$S($D(D1):D1,1:""""),I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ABS(503339.3,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503339.3,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0) S D1=I(1,0)"
^DD(503339.216,.01,1,2,1.4)="S DIH=$S($D(^ABS(503339.2,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=503339.216,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503339.216,.01,1,2,2)="K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^ABS(503339.2,D0,4,D1,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(503339.216,.01,1,2,2.4)"
^DD(503339.216,.01,1,2,2.4)="S DIH=$S($D(^ABS(503339.2,DIV(0),4,DIV(1),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=503339.216,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503339.216,.01,1,2,"CREATE VALUE")="PROGRAMS SUPERVISED:PROGRAM"
^DD(503339.216,.01,1,2,"DELETE VALUE")="@"
^DD(503339.216,.01,1,2,"DT")="2990107"
^DD(503339.216,.01,1,2,"FIELD")="STORE"
^DD(503339.216,.01,21,0)="^.001^2^2^3001027^^"
^DD(503339.216,.01,21,1,0)="This field contains the name of programs supervised by the Chief, Voluntary"
^DD(503339.216,.01,21,2,0)="Service."
^DD(503339.216,.01,"DT")="3001027"
^DD(503339.216,1,0)="PROGRAMMED SUPERVISED NAME^CJ30^^ ; ^X ^DD(503339.216,1,9.5) S X=$S(Y(503339.216,1,2):Y(503339.216,1,102),Y(503339.216,1,103):X) S D0=Y(503339.216,1,80) S D1=Y(503339.216,1,81)"
^DD(503339.216,1,9)="^"
^DD(503339.216,1,9.01)="503339.216^2;503339.3^1;503339.216^.01"
^DD(503339.216,1,9.1)="$S((#.01<99):(#.01:#1),1:#2)"
^DD(503339.216,1,9.2)="S Y(503339.216,1,81)=$S($D(D1):D1,1:""""),Y(503339.216,1,80)=$S($D(D0):D0,1:""""),Y(503339.216,1,1)=$S($D(^ABS(503339.2,D0,4,D1,0)):^(0),1:"""")"
^DD(503339.216,1,9.3)="X ^DD(503339.216,1,9.2) S X=$S('$D(^ABS(503339.3,+$P(Y(503339.216,1,1),U,1),0)):"""",1:$P(^(0),U,1))<99,Y(503339.216,1,2)=X,Y(503339.216,1,3)=X"
^DD(503339.216,1,9.4)="X ^DD(503339.216,1,9.3) S D0=$P(Y(503339.216,1,1),U,1) S:'$D(^ABS(503339.3,+D0,0)) D0=-1 S Y(503339.216,1,101)=$S($D(^ABS(503339.3,D0,0)):^(0),1:"""")"
^DD(503339.216,1,9.5)="X ^DD(503339.216,1,9.4) S X=$P(Y(503339.216,1,101),U,2),Y(503339.216,1,102)=X S X=1,Y(503339.216,1,103)=X S X=$P(Y(503339.216,1,1),U,2)"
^DD(503339.216,2,0)="OTHER PROGRAM NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(503339.216,2,3)="Answer must be 1-30 characters in length."
^DD(503339.216,2,"DT")="2950607"
^DD(503339.216,3,0)="STORED NAME^F^^0;3^K:$L(X)>45!($L(X)<1) X"
^DD(503339.216,3,1,0)="^.1"
^DD(503339.216,3,1,1,0)="503339.216^C"
^DD(503339.216,3,1,1,1)="S ^ABS(503339.2,DA(1),4,""C"",$E(X,1,30),DA)="""""
^DD(503339.216,3,1,1,2)="K ^ABS(503339.2,DA(1),4,""C"",$E(X,1,30),DA)"
^DD(503339.216,3,1,1,"DT")="2990107"
^DD(503339.216,3,3)="Answer must be 1-45 characters in length."
^DD(503339.216,3,5,1,0)="503339.216^.01^2"
^DD(503339.216,3,9)="^"
^DD(503339.216,3,"DT")="2990107"
^DD(503339.216,"B","OTHER PROGRAM NAME",2)=""
^DD(503339.216,"B","PROGRAMMED SUPERVISED NAME",1)=""
^DD(503339.216,"B","PROGRAMS SUPERVISED",.01)=""
^DD(503339.216,"B","STORED NAME",3)=""
^DD(503339.216,"GL",0,1,.01)=""
^DD(503339.216,"GL",0,2,2)=""
^DD(503339.216,"GL",0,3,3)=""
^DD(503339.216,"IX",.01)=""
^DD(503339.216,"IX",3)=""
^DD(503339.22,0)="SYNONYM SUB-FIELD^^.01^1"
^DD(503339.22,0,"DT")="2960419"
^DD(503339.22,0,"IX","B",503339.22,.01)=""
^DD(503339.22,0,"NM","SYNONYM")=" "
^DD(503339.22,0,"UP")="503339.2"
^DD(503339.22,.01,0)="SYNONYM^MF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(503339.22,.01,1,0)="^.1^^-1"
^DD(503339.22,.01,1,1,0)="503339.22^B"
^DD(503339.22,.01,1,1,1)="S ^ABS(503339.2,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(503339.22,.01,1,1,2)="K ^ABS(503339.2,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(503339.22,.01,1,2,0)="503339.2^F"
^DD(503339.22,.01,1,2,1)="S ^ABS(503339.2,""F"",$E(X,1,30),DA(1),DA)="""""
^DD(503339.22,.01,1,2,2)="K ^ABS(503339.2,""F"",$E(X,1,30),DA(1),DA)"
^DD(503339.22,.01,1,2,"DT")="2960419"
^DD(503339.22,.01,3)="Answer must be 1-30 characters in length."
^DD(503339.22,.01,21,0)="^^1^1^2960419^"
^DD(503339.22,.01,21,1,0)="This field is used to place commonly used synonyms for the hospital name."
^DD(503339.22,.01,"DT")="3001027"
^DD(503339.22,"B","SYNONYM",.01)=""
^DD(503339.22,"GL",0,1,.01)=""
^DD(503339.22,"IX",.01)=""
^DD(503339.3,0)="FIELD^^1^2"
^DD(503339.3,0,"DDA")="N"
^DD(503339.3,0,"DT")="2950404"
^DD(503339.3,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(503339.3,0,"IX","B",503339.3,.01)=""
^DD(503339.3,0,"IX","C",503339.3,1)=""
^DD(503339.3,0,"NM","VOLUNTARY SERVICE PROGRAMS")=" "
^DD(503339.3,0,"PT",503339.216,.01)=""
^DD(503339.3,0,"VR")="4.0"
^DD(503339.3,0,"VRPK")="ABSV"
^DD(503339.3,.01,0)="PROGRAM NUMBER^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503339.3,.01,1,0)="^.1"
^DD(503339.3,.01,1,1,0)="503339.3^B"
^DD(503339.3,.01,1,1,1)="S ^ABS(503339.3,""B"",$E(X,1,30),DA)="""""
^DD(503339.3,.01,1,1,2)="K ^ABS(503339.3,""B"",$E(X,1,30),DA)"
^DD(503339.3,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(503339.3,.01,"DT")="2950404"
^DD(503339.3,1,0)="PROGRAM^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(503339.3,1,1,0)="^.1"
^DD(503339.3,1,1,1,0)="503339.3^C"
^DD(503339.3,1,1,1,1)="S ^ABS(503339.3,""C"",$E(X,1,30),DA)="""""
^DD(503339.3,1,1,1,2)="K ^ABS(503339.3,""C"",$E(X,1,30),DA)"
^DD(503339.3,1,1,1,"DT")="2990107"
^DD(503339.3,1,3)="Answer must be 1-30 characters in length."
^DD(503339.3,1,"DT")="2990107"
^DD(503339.3,"B","PROGRAM",1)=""
^DD(503339.3,"B","PROGRAM NUMBER",.01)=""
^DD(503339.3,"GL",0,1,.01)=""
^DD(503339.3,"GL",0,2,1)=""
^DD(503339.3,"IX",.01)=""
^DD(503339.3,"IX",1)=""
^DD(503339.3,"RQ",.01)=""
^DD(503339.5,0)="FIELD^^4^5"
^DD(503339.5,0,"DDA")="N"
^DD(503339.5,0,"DT")="3030403"
^DD(503339.5,0,"IX","B",503339.5,.01)=""
^DD(503339.5,0,"IX","IN",503339.51,.02)=""
^DD(503339.5,0,"NM","VOLUNTARY MIGRATION LOG")=""
^DD(503339.5,0,"VR")="4.0"
^DD(503339.5,0,"VRPK")="ABSV"
^DD(503339.5,.01,0)="SITE NUMBER^RF^^0;1^K:$L(X)>7!($L(X)<3)!'(X'?1P.E) X"
^DD(503339.5,.01,1,0)="^.1"
^DD(503339.5,.01,1,1,0)="503339.5^B"
^DD(503339.5,.01,1,1,1)="S ^ABS(503339.5,""B"",$E(X,1,30),DA)="""""
^DD(503339.5,.01,1,1,2)="K ^ABS(503339.5,""B"",$E(X,1,30),DA)"
^DD(503339.5,.01,3)="Answer must be 3-7 characters in length.  It should not be changed."
^DD(503339.5,.01,21,0)="^^2^2^3020823^"
^DD(503339.5,.01,21,1,0)="This is the site or station number of the Parent site for this Station."
^DD(503339.5,.01,21,2,0)="It must equal the value obtained from $$KSP^XUPARAM(""INST"")."
^DD(503339.5,.01,"DT")="3020823"
^DD(503339.5,1,0)="STATIONS^503339.51^^1;0"
^DD(503339.5,2,0)="VALIDATION RESULTS^503339.52DI^^2;0"
^DD(503339.5,2,21,0)="^.001^2^2^3020913^^^^"
^DD(503339.5,2,21,1,0)="This multiple contains results of data analysis of the existing VTK data"
^DD(503339.5,2,21,2,0)="in preparation for exporting the data to the new VSS application."
^DD(503339.5,2,"DT")="3020913"
^DD(503339.5,3,0)="ORGANIZATION CODES^503339.53^^3;0"
^DD(503339.5,4,0)="SERVICE CODES^503339.54^^4;0"
^DD(503339.5,4,21,0)="^.001^3^3^3030402^^"
^DD(503339.5,4,21,1,0)="Multiple of the National Service Codes supported by the new VSS application."
^DD(503339.5,4,21,2,0)="This multiple is pre-populated.  Do NOT enter a new Service Code unless you"
^DD(503339.5,4,21,3,0)=" have approval from System Implementation."
^DD(503339.5,"B","ORGANIZATION CODES",3)=""
^DD(503339.5,"B","SERVICE CODES",4)=""
^DD(503339.5,"B","SITE NUMBER",.01)=""
^DD(503339.5,"B","STATIONS",1)=""
^DD(503339.5,"B","VALIDATION RESULTS",2)=""
^DD(503339.5,"GL",0,1,.01)=""
^DD(503339.5,"GL",1,0,1)=""
^DD(503339.5,"GL",2,0,2)=""
^DD(503339.5,"GL",3,0,3)=""
^DD(503339.5,"GL",4,0,4)=""
^DD(503339.5,"IX",.01)=""
^DD(503339.5,"RQ",.01)=""
^DD(503339.5,"SB",503339.51,1)=""
^DD(503339.5,"SB",503339.52,2)=""
^DD(503339.5,"SB",503339.53,3)=""
^DD(503339.5,"SB",503339.54,4)=""
^DD(503339.51,0)="STATIONS SUB-FIELD^^11^13"
^DD(503339.51,0,"DT")="3030403"
^DD(503339.51,0,"IX","B",503339.51,.01)=""
^DD(503339.51,0,"IX","SN",503339.51,.02)=""
^DD(503339.51,0,"NM","STATIONS")=""
^DD(503339.51,0,"UP")="503339.5"
^DD(503339.51,.01,0)="STATION NUMBER^RF^^0;1^K:$L(X)>7!($L(X)<3) X"
^DD(503339.51,.01,1,0)="^.1"
^DD(503339.51,.01,1,1,0)="503339.51^B"
^DD(503339.51,.01,1,1,1)="S ^ABS(503339.5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(503339.51,.01,1,1,2)="K ^ABS(503339.5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(503339.51,.01,3)="Answer must be 3-7 characters in length."
^DD(503339.51,.01,21,0)="^.001^4^4^3030403^^^^"
^DD(503339.51,.01,21,1,0)="Multiple of station numbers identifying all the institutions for which"
^DD(503339.51,.01,21,2,0)="Volunteer's hours exist between October 1, 1996 and Today.  The station's data"
^DD(503339.51,.01,21,3,0)="can be sent to the new VSS application depending on the value in field .02,"
^DD(503339.51,.01,21,4,0)="'Send this Station's Data?'."
^DD(503339.51,.01,"DEL",1,0)="I 1"
^DD(503339.51,.01,"DT")="3030403"
^DD(503339.51,.02,0)="Send this Station's Data?^RS^Y:YES;N:NO;^0;10^Q"
^DD(503339.51,.02,1,0)="^.1"
^DD(503339.51,.02,1,1,0)="503339.5^IN"
^DD(503339.51,.02,1,1,1)="S ^ABS(503339.5,""IN"",$E(X,1,30),DA(1),DA)="""""
^DD(503339.51,.02,1,1,2)="K ^ABS(503339.5,""IN"",$E(X,1,30),DA(1),DA)"
^DD(503339.51,.02,1,1,"%D",0)="^^2^2^3030403^"
^DD(503339.51,.02,1,1,"%D",1,0)="This cross reference is used to build of list of station numbers to exclude"
^DD(503339.51,.02,1,1,"%D",2,0)="from sending their data to the new VSS application."
^DD(503339.51,.02,1,1,"DT")="3030403"
^DD(503339.51,.02,1,2,0)="503339.51^SN"
^DD(503339.51,.02,1,2,1)="S ^ABS(503339.5,DA(1),1,""SN"",$E(X,1,30),DA)="""""
^DD(503339.51,.02,1,2,2)="K ^ABS(503339.5,DA(1),1,""SN"",$E(X,1,30),DA)"
^DD(503339.51,.02,1,2,"DT")="3030403"
^DD(503339.51,.02,21,0)="^^3^3^3030403^"
^DD(503339.51,.02,21,1,0)="Enter 'YES' if you want all of the Volunteer's hours information for this"
^DD(503339.51,.02,21,2,0)="station sent to the new VSS application.  Enter 'NO' if you don't want to"
^DD(503339.51,.02,21,3,0)="send this stations Volunteer's hours to the new VSS application."
^DD(503339.51,.02,"DT")="3030403"
^DD(503339.51,1,0)="STATION NAME^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(503339.51,1,3)="Answer must be 3-30 characters in length."
^DD(503339.51,1,21,0)="^^1^1^3020823^"
^DD(503339.51,1,21,1,0)="Enter the name of the station."
^DD(503339.51,1,"DT")="3020823"
^DD(503339.51,2,0)="VISN^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(503339.51,2,3)="Answer must be 1-30 characters in length."
^DD(503339.51,2,21,0)="^^1^1^3020823^"
^DD(503339.51,2,21,1,0)="The number or name of the VISN to which the station belongs."
^DD(503339.51,2,"DT")="3020823"
^DD(503339.51,3,0)="STREET ADDRESS LINE 1^F^^0;4^K:$L(X)>35!($L(X)<1) X"
^DD(503339.51,3,3)="Answer must be 1-35 characters in length."
^DD(503339.51,3,21,0)="^.001^1^1^3020823^^"
^DD(503339.51,3,21,1,0)="Enter the first line of the station's street address."
^DD(503339.51,3,"DT")="3020823"
^DD(503339.51,4,0)="STREET ADDRESS LINE 2^F^^0;5^K:$L(X)>35!($L(X)<1) X"
^DD(503339.51,4,3)="Answer must be 1-35 characters in length."
^DD(503339.51,4,21,0)="^^1^1^3020823^"
^DD(503339.51,4,21,1,0)="If appropriate, enter the second line of the station's street address."
^DD(503339.51,4,"DT")="3020823"
^DD(503339.51,5,0)="CITY^F^^0;6^K:$L(X)>30!($L(X)<1) X"
^DD(503339.51,5,3)="Answer must be 1-30 characters in length."
^DD(503339.51,5,21,0)="^^1^1^3020823^"
^DD(503339.51,5,21,1,0)="Enter the station's city."
^DD(503339.51,5,"DT")="3020823"
^DD(503339.51,6,0)="STATE^RF^^0;7^K:$L(X)>2!($L(X)<2) X"
^DD(503339.51,6,3)="Answer must be 2 characters in length."
^DD(503339.51,6,21,0)="^^1^1^3020823^"
^DD(503339.51,6,21,1,0)="Enter the two letter abbreviation of the station's state."
^DD(503339.51,6,"DT")="3020823"
^DD(503339.51,7,0)="ZIP CODE^F^^0;8^K:$L(X)>10!($L(X)<5) X"
^DD(503339.51,7,3)="Answer must be 5-10 characters in length."
^DD(503339.51,7,21,0)="^^1^1^3020823^"
^DD(503339.51,7,21,1,0)="Enter the station's zip code."
^DD(503339.51,7,"DT")="3020823"
^DD(503339.51,8,0)="USER ADMIN'S LAST NAME^RF^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(503339.51,8,3)="Answer must be 1-30 characters in length."
^DD(503339.51,8,21,0)="^^2^2^3020823^"
^DD(503339.51,8,21,1,0)="Enter the last name of the person who will be the User Administrator at"
^DD(503339.51,8,21,2,0)="the site."
^DD(503339.51,8,"DT")="3020823"
^DD(503339.51,9,0)="USER ADMIN'S FIRST NAME^RF^^1;1^K:$L(X)>30!($L(X)<1) X"
^DD(503339.51,9,3)="Answer must be 1-30 characters in length."
^DD(503339.51,9,21,0)="^^2^2^3021001^"
^DD(503339.51,9,21,1,0)="Enter the first name of the person who will be the User Administrator at"
^DD(503339.51,9,21,2,0)="the site."
^DD(503339.51,9,"DT")="3020823"
^DD(503339.51,10,0)="USER ADMIN'S MIDDLE NAME^F^^1;2^K:$L(X)>20!($L(X)<1) X"
^DD(503339.51,10,3)="Answer must be 1-20 characters in length."
^DD(503339.51,10,21,0)="^^2^2^3020823^"
^DD(503339.51,10,21,1,0)="Enter the middle name of the person who will be the User Administrator at"
^DD(503339.51,10,21,2,0)="the site."
^DD(503339.51,10,"DT")="3020823"
^DD(503339.51,11,0)="USER ADMIN'S NT USERNAME^RFX^^1;3^K:$L(X)>40!($L(X)<3)!(X'?1.E1""\""1.E) X"
^DD(503339.51,11,3)="Answer must be 3-40 characters in length and include a '\'."
^DD(503339.51,11,21,0)="^.001^4^4^3021001^^"
^DD(503339.51,11,21,1,0)="Enter the NT Username for the person who will be the User Administrator at"
^DD(503339.51,11,21,2,0)="the site.  You must include the domain.  So the format is:"
^DD(503339.51,11,21,3,0)=" "
^DD(503339.51,11,21,4,0)="        ""DOMAIN\NT USERNAME"""
^DD(503339.51,11,"DT")="3021017"
^DD(503339.51,"B","CITY",5)=""
^DD(503339.51,"B","STATE",6)=""
^DD(503339.51,"B","STATION NAME",1)=""
^DD(503339.51,"B","STATION NUMBER",.01)=""
^DD(503339.51,"B","STREET ADDRESS LINE 1",3)=""
^DD(503339.51,"B","STREET ADDRESS LINE 2",4)=""
^DD(503339.51,"B","Send this Station's Data?",.02)=""
^DD(503339.51,"B","USER ADMIN'S FIRST NAME",9)=""
^DD(503339.51,"B","USER ADMIN'S LAST NAME",8)=""
^DD(503339.51,"B","USER ADMIN'S MIDDLE NAME",10)=""
^DD(503339.51,"B","USER ADMIN'S NT USERNAME",11)=""
^DD(503339.51,"B","VISN",2)=""
^DD(503339.51,"B","ZIP CODE",7)=""
^DD(503339.51,"GL",0,1,.01)=""
^DD(503339.51,"GL",0,2,1)=""
^DD(503339.51,"GL",0,3,2)=""
^DD(503339.51,"GL",0,4,3)=""
^DD(503339.51,"GL",0,5,4)=""
^DD(503339.51,"GL",0,6,5)=""
^DD(503339.51,"GL",0,7,6)=""
^DD(503339.51,"GL",0,8,7)=""
^DD(503339.51,"GL",0,9,8)=""
^DD(503339.51,"GL",0,10,.02)=""
^DD(503339.51,"GL",1,1,9)=""
^DD(503339.51,"GL",1,2,10)=""
^DD(503339.51,"GL",1,3,11)=""
^DD(503339.51,"IX",.01)=""
^DD(503339.51,"IX",.02)=""
^DD(503339.51,"RQ",.01)=""
^DD(503339.51,"RQ",.02)=""
^DD(503339.51,"RQ",6)=""
^DD(503339.51,"RQ",8)=""
^DD(503339.51,"RQ",9)=""
^DD(503339.51,"RQ",11)=""
^DD(503339.52,0)="VALIDATION RESULTS SUB-FIELD^^4^5"
^DD(503339.52,0,"DT")="3020913"
^DD(503339.52,0,"ID",1)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(503339.52,1,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,2)_"""":"""",2),$C(59),1)"")"
^DD(503339.52,0,"ID",2)="W ""   "",@(""$P($P($C(59)_$S($D(^DD(503339.52,2,0)):$P(^(0),U,3),1:0)_$E(""_DIC_""Y,0),0),$C(59)_$P(^(0),U,3)_"""":"""",2),$C(59),1)"")"
^DD(503339.52,0,"IX","B",503339.52,.01)=""
^DD(503339.52,0,"NM","VALIDATION RESULTS")=""
^DD(503339.52,0,"UP")="503339.5"
^DD(503339.52,.01,0)="TIME RUN^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(503339.52,.01,1,0)="^.1"
^DD(503339.52,.01,1,1,0)="503339.52^B"
^DD(503339.52,.01,1,1,1)="S ^ABS(503339.5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(503339.52,.01,1,1,2)="K ^ABS(503339.5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(503339.52,.01,21,0)="^^1^1^3020913^"
^DD(503339.52,.01,21,1,0)="The time that the validation was done."
^DD(503339.52,.01,"DT")="3020913"
^DD(503339.52,1,0)="VALIDATED DATA^RS^O:Occasional Hours;R:Regular Hours;G:Organizations;S:Services;V:Volunteers;^0;2^Q"
^DD(503339.52,1,21,0)="^^1^1^3020913^"
^DD(503339.52,1,21,1,0)="Type of data validated."
^DD(503339.52,1,"DT")="3020913"
^DD(503339.52,2,0)="DATA EXPORTED?^S^Y:YES, DATA IS EXPORTED;N:NO, ONLY VALIDATION DONE;^0;3^Q"
^DD(503339.52,2,21,0)="^.001^4^4^3020913^^"
^DD(503339.52,2,21,1,0)="If validation is done as part of the actual export process, YES."
^DD(503339.52,2,21,2,0)=" "
^DD(503339.52,2,21,3,0)="If validation is done in preparation for export, but an export does not"
^DD(503339.52,2,21,4,0)="follow immediately, NO."
^DD(503339.52,2,"DT")="3020913"
^DD(503339.52,3,0)="ERROR COUNT^NJ7,0^^0;4^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(503339.52,3,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(503339.52,3,21,0)="^^2^2^3020913^"
^DD(503339.52,3,21,1,0)="Contains a count of the number of problems found during the data"
^DD(503339.52,3,21,2,0)="validation run."
^DD(503339.52,3,"DT")="3020913"
^DD(503339.52,4,0)="ERROR LISTING^503339.524^^1;0"
^DD(503339.52,"B","DATA EXPORTED?",2)=""
^DD(503339.52,"B","ERROR COUNT",3)=""
^DD(503339.52,"B","ERROR LISTING",4)=""
^DD(503339.52,"B","TIME RUN",.01)=""
^DD(503339.52,"B","VALIDATED DATA",1)=""
^DD(503339.52,"GL",0,1,.01)=""
^DD(503339.52,"GL",0,2,1)=""
^DD(503339.52,"GL",0,3,2)=""
^DD(503339.52,"GL",0,4,3)=""
^DD(503339.52,"GL",1,0,4)=""
^DD(503339.52,"IX",.01)=""
^DD(503339.52,"RQ",.01)=""
^DD(503339.52,"RQ",1)=""
^DD(503339.52,"SB",503339.524,4)=""
^DD(503339.524,0)="ERROR LISTING SUB-FIELD^^.01^1"
^DD(503339.524,0,"DT")="3020913"
^DD(503339.524,0,"NM","ERROR LISTING")=""
^DD(503339.524,0,"UP")="503339.52"
^DD(503339.524,.01,0)="ERROR LISTING^WL^^0;1^Q"
^DD(503339.524,.01,21,0)="^.001^2^2^3020913^^"
^DD(503339.524,.01,21,1,0)="This word processing field contains the actual text of the errors"
^DD(503339.524,.01,21,2,0)="encountered during the validation process."
^DD(503339.524,.01,"DT")="3020913"
^DD(503339.524,"B","ERROR LISTING",.01)=""
^DD(503339.524,"GL",0,1,.01)=""
^DD(503339.53,0)="ORGANIZATION CODES SUB-FIELD^^.01^1"
^DD(503339.53,0,"DT")="3030403"
^DD(503339.53,0,"IX","B",503339.53,.01)=""
^DD(503339.53,0,"NM","ORGANIZATION CODES")=""
^DD(503339.53,0,"UP")="503339.5"
^DD(503339.53,.01,0)="ORGANIZATION CODES^MF^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(503339.53,.01,1,0)="^.1"
^DD(503339.53,.01,1,1,0)="503339.53^B"
^DD(503339.53,.01,1,1,1)="S ^ABS(503339.5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(503339.53,.01,1,1,2)="K ^ABS(503339.5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(503339.53,.01,3)="Answer must be 3 characters in length."
^DD(503339.53,.01,21,0)="^^3^3^3030403^"
^DD(503339.53,.01,21,1,0)="Multiple of the National Organization Codes supported by the new VSS"
^DD(503339.53,.01,21,2,0)=" application. This multiple is pre-populated.  Do NOT enter a new Organization"
^DD(503339.53,.01,21,3,0)=" Code unless you have approval from System Implementation."
^DD(503339.53,.01,"DT")="3030403"
^DD(503339.53,"B","ORGANIZATION CODES",.01)=""
^DD(503339.53,"GL",0,1,.01)=""
^DD(503339.53,"IX",.01)=""
^DD(503339.54,0)="SERVICE CODES SUB-FIELD^^.01^1"
^DD(503339.54,0,"DT")="3030401"
^DD(503339.54,0,"IX","B",503339.54,.01)=""
^DD(503339.54,0,"NM","SERVICE CODES")=""
^DD(503339.54,0,"UP")="503339.5"
^DD(503339.54,.01,0)="SERVICE CODES^F^^0;1^K:$L(X)>4!($L(X)<3) X"
^DD(503339.54,.01,1,0)="^.1"
^DD(503339.54,.01,1,1,0)="503339.54^B"
^DD(503339.54,.01,1,1,1)="S ^ABS(503339.5,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(503339.54,.01,1,1,2)="K ^ABS(503339.5,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(503339.54,.01,3)="Answer must be 3-4 characters in length."
^DD(503339.54,.01,"DT")="3030401"
^DD(503339.54,"B","SERVICE CODES",.01)=""
^DD(503339.54,"GL",0,1,.01)=""
^DD(503339.54,"IX",.01)=""
^DD(503339.9,0)="FIELD^^2^4"
^DD(503339.9,0,"DDA")="N"
^DD(503339.9,0,"DT")="2950913"
^DD(503339.9,0,"ID",1)="W ""   "",$E($P(^(0),U,2),4,5)_""-""_$E($P(^(0),U,2),6,7)_""-""_$E($P(^(0),U,2),2,3)"
^DD(503339.9,0,"IX","B",503339.9,.01)=""
^DD(503339.9,0,"NM","VOLUNTARY SERVICE SUPPLEMENT")=" "
^DD(503339.9,0,"VR")="4.0"
^DD(503339.9,0,"VRPK")="ABSV"
^DD(503339.9,.01,0)="FACILITY NUMBER^RP503339.2'^ABS(503339.2,^0;1^Q"
^DD(503339.9,.01,1,0)="^.1"
^DD(503339.9,.01,1,1,0)="503339.9^B"
^DD(503339.9,.01,1,1,1)="S ^ABS(503339.9,""B"",$E(X,1,30),DA)="""""
^DD(503339.9,.01,1,1,2)="K ^ABS(503339.9,""B"",$E(X,1,30),DA)"
^DD(503339.9,.01,1,2,0)="^^TRIGGER^503339.9^.5"
^DD(503339.9,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503339.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(503339.9,.01,1,2,1.1) X ^DD(503339.9,.01,1,2,1.4)"
^DD(503339.9,.01,1,2,1.1)="S X=DIV S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ABS(503339.2,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503339.2,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(503339.9,.01,1,2,1.4)="S DIH=$S($D(^ABS(503339.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=503339.9,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503339.9,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503339.9,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(503339.9,.01,1,2,2.4)"
^DD(503339.9,.01,1,2,2.4)="S DIH=$S($D(^ABS(503339.9,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=503339.9,DIG=.5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0"
^DD(503339.9,.01,1,2,"CREATE VALUE")="#.01:#1"
^DD(503339.9,.01,1,2,"DELETE VALUE")="@"
^DD(503339.9,.01,1,2,"DT")="2950913"
^DD(503339.9,.01,1,2,"FIELD")="#.5"
^DD(503339.9,.01,3)=" "
^DD(503339.9,.01,"DT")="2950913"
^DD(503339.9,.5,0)="FACILITY NAME^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(503339.9,.5,3)="Answer must be 1-40 characters in length."
^DD(503339.9,.5,5,1,0)="503339.9^.01^2"
^DD(503339.9,.5,"DT")="2950913"
^DD(503339.9,1,0)="DATE OF REALIGNMENT^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503339.9,1,"DT")="2950913"
^DD(503339.9,2,0)="EFFECT OF CHANGE^503339.92^^1;0"
^DD(503339.9,"B","DATE OF REALIGNMENT",1)=""
^DD(503339.9,"B","EFFECT OF CHANGE",2)=""
^DD(503339.9,"B","FACILITY NAME",.5)=""
^DD(503339.9,"B","FACILITY NUMBER",.01)=""
^DD(503339.9,"GL",0,1,.01)=""
^DD(503339.9,"GL",0,2,1)=""
^DD(503339.9,"GL",0,3,.5)=""
^DD(503339.9,"GL",1,0,2)=""
^DD(503339.9,"IX",.01)=""
^DD(503339.9,"RQ",.01)=""
^DD(503339.9,"SB",503339.92,2)=""
^DD(503339.92,0)="EFFECT OF CHANGE SUB-FIELD^^.01^1"
^DD(503339.92,0,"DT")="2950602"
^DD(503339.92,0,"NM","EFFECT OF CHANGE")=" "
^DD(503339.92,0,"UP")="503339.9"
^DD(503339.92,.01,0)="EFFECT OF CHANGE^W^^0;1^Q"
^DD(503339.92,.01,"DT")="2950602"
^DD(503339.92,"B","EFFECT OF CHANGE",.01)=""
^DD(503339.92,"GL",0,1,.01)=""
^DD(503340,0)="FIELD^^45.5^55"
^DD(503340,0,"DDA")="N"
^DD(503340,0,"DT")="3020419"
^DD(503340,0,"ID",1.5)="W ""   "",$P(^(0),U,14)"
^DD(503340,0,"ID",2)="W ""   "",$E($P(^(0),U,3),4,5)_""-""_$E($P(^(0),U,3),6,7)_""-""_$E($P(^(0),U,3),2,3)"
^DD(503340,0,"IX","AD",503340,.5)=""
^DD(503340,0,"IX","AE",503340,.6)=""
^DD(503340,0,"IX","B",503340,.01)=""
^DD(503340,0,"IX","C",503340,1)=""
^DD(503340,0,"IX","D",503340,2)=""
^DD(503340,0,"NM","DONATIONS")=""
^DD(503340,0,"PT",503343,5)=""
^DD(503340,0,"VR")="4.0"
^DD(503340,0,"VRPK")="ABSV"
^DD(503340,.01,0)="TRACKING NUMBER^RF^^0;1^K:$L(X)>14!($L(X)<1) X"
^DD(503340,.01,1,0)="^.1"
^DD(503340,.01,1,1,0)="503340^B"
^DD(503340,.01,1,1,1)="S ^ABS(503340,""B"",$E(X,1,30),DA)="""""
^DD(503340,.01,1,1,2)="K ^ABS(503340,""B"",$E(X,1,30),DA)"
^DD(503340,.01,1,2,0)="^^TRIGGER^503340^.5"
^DD(503340,.01,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X=DIV S X=$$XREF^ABSVDENT(X) S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=503340,DIG=.5 D ^DICR"
^DD(503340,.01,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,15)=DIV,DIH=503340,DIG=.5 D ^DICR"
^DD(503340,.01,1,2,"CREATE VALUE")="S X=$$XREF^ABSVDENT(X)"
^DD(503340,.01,1,2,"DELETE VALUE")="@"
^DD(503340,.01,1,2,"DT")="3020419"
^DD(503340,.01,1,2,"FIELD")="VOLUNTARY STATION NAME"
^DD(503340,.01,3)="Answer must be 1-14 characters in length."
^DD(503340,.01,"DT")="3020419"
^DD(503340,.5,0)="VOLUNTARY STATION NAME^P503338'^ABS(503338,^0;15^Q"
^DD(503340,.5,1,0)="^.1"
^DD(503340,.5,1,1,0)="^^TRIGGER^503340^.6"
^DD(503340,.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y X ^DD(503340,.5,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=503340,DIG=.6 D ^DICR"
^DD(503340,.5,1,1,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ABS(503338,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503338,D0,0)):^(0),1:"""") S X=$P(Y(101),U,9) S D0=I(0,0)"
^DD(503340,.5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV X ^DD(503340,.5,1,1,59.2) S X=$P(Y(101),U,9) S D0=I(0,0) X ^DD(503340,.5,1,1,2.4)"
^DD(503340,.5,1,1,2.4)="S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,19)=DIV,DIH=503340,DIG=.6 D ^DICR"
^DD(503340,.5,1,1,59.2)="S I(0,0)=$G(D0),Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:""""),D0=$P(Y(1),U,15) S:'D0!'$D(^ABS(503338,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503338,D0,0)):^(0),1:"""")"
^DD(503340,.5,1,1,"CREATE VALUE")="VOLUNTARY STATION NAME:VOL STATION NUMBER"
^DD(503340,.5,1,1,"DELETE VALUE")="VOLUNTARY STATION NAME:VOL STATION NUMBER"
^DD(503340,.5,1,1,"FIELD")="STA"
^DD(503340,.5,1,2,0)="503340^AD"
^DD(503340,.5,1,2,1)="S ^ABS(503340,""AD"",$E(X,1,30),DA)="""""
^DD(503340,.5,1,2,2)="K ^ABS(503340,""AD"",$E(X,1,30),DA)"
^DD(503340,.5,1,2,"DT")="3011205"
^DD(503340,.5,5,1,0)="503340^.01^2"
^DD(503340,.5,9)="^"
^DD(503340,.5,"DT")="3011205"
^DD(503340,.6,0)="STATION NUMBER^F^^0;19^K:$L(X)>5!($L(X)<3) X"
^DD(503340,.6,1,0)="^.1"
^DD(503340,.6,1,1,0)="503340^AE"
^DD(503340,.6,1,1,1)="S ^ABS(503340,""AE"",$E(X,1,30),DA)="""""
^DD(503340,.6,1,1,2)="K ^ABS(503340,""AE"",$E(X,1,30),DA)"
^DD(503340,.6,1,1,"DT")="3011205"
^DD(503340,.6,3)="Answer must be 3-5 characters in length."
^DD(503340,.6,5,1,0)="503340^.5^1"
^DD(503340,.6,9)="^"
^DD(503340,.6,"DT")="3011205"
^DD(503340,1,0)="ORGANIZATION^RP503334'^ABS(503334,^0;2^Q"
^DD(503340,1,1,0)="^.1"
^DD(503340,1,1,1,0)="^^TRIGGER^503340^1.5"
^DD(503340,1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y X ^DD(503340,1,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=503340,DIG=1.5 D ^DICR"
^DD(503340,1,1,1,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1 S Y(101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(503340,1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,0)):^(0),1:"""") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),0)),DIV=X S $P(^(0),U,14)=DIV,DIH=503340,DIG=1.5 D ^DICR"
^DD(503340,1,1,1,"CREATE VALUE")="ORGANIZATION:#1"
^DD(503340,1,1,1,"DELETE VALUE")="@"
^DD(503340,1,1,1,"DT")="3010808"
^DD(503340,1,1,1,"FIELD")="#1.5"
^DD(503340,1,1,2,0)="503340^C"
^DD(503340,1,1,2,1)="S ^ABS(503340,""C"",$E(X,1,30),DA)="""""
^DD(503340,1,1,2,2)="K ^ABS(503340,""C"",$E(X,1,30),DA)"
^DD(503340,1,1,2,"DT")="3010822"
^DD(503340,1,"DT")="3010822"
^DD(503340,1.5,0)="ORGANIZATION NAME^F^^0;14^K:$L(X)>30!($L(X)<1) X"
^DD(503340,1.5,3)="Answer must be 1-30 characters in length."
^DD(503340,1.5,5,1,0)="503340^1^1"
^DD(503340,1.5,"DT")="2911007"
^DD(503340,1.6,0)="PRINTING ORG NAME^CJ30^^ ; ^X ^DD(503340,1.6,9.2) S Y(503340,1.6,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503340,1.6,101),U,7) S D0=Y(503340,1.6,80)"
^DD(503340,1.6,9)="^"
^DD(503340,1.6,9.01)="503334^1.5;503340^1"
^DD(503340,1.6,9.1)="ORGANIZATION:#1.5"
^DD(503340,1.6,9.2)="S Y(503340,1.6,80)=$G(D0),Y(503340,1.6,1)=$S($D(^ABS(503340,D0,0)):^(0),1:""""),D0=$P(Y(503340,1.6,1),U,2) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1"
^DD(503340,1.7,0)="INDIVIDUAL DONOR^P503346.1^ABS(503346.1,^5;1^Q"
^DD(503340,1.7,1,0)="^.1"
^DD(503340,1.7,1,1,0)="^^TRIGGER^503340^30"
^DD(503340,1.7,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(503340,1.7,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,1)=DIV,DIH=503340,DIG=30 D ^DICR"
^DD(503340,1.7,1,1,1.1)="S X=DIV X ^DD(503340,1.7,1,1,49.5) S X=$P(Y(14),Y(15),Y(16),X) S Y=X,X=Y(13),X=X_Y,X=$S(Y(10):Y(11),Y(12):X) S Y=X,X=Y(5),X=X_Y"
^DD(503340,1.7,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,1)=DIV,DIH=503340,DIG=30 D ^DICR"
^DD(503340,1.7,1,1,49.2)="S X=$S('$D(^ABS(503346.1,+DIV,0)):"""",1:$P(^(0),U,1)),Y(1)=X S X="","",Y(2)=X S X=2,X=$P(Y(1),Y(2),X)_"" "",Y(3)=X S X=$S('$D(^ABS(503346.1,+DIV,0)):"""",1:$P(^(0),U,1))"
^DD(503340,1.7,1,1,49.3)="X ^DD(503340,1.7,1,1,49.2) S Y(4)=X S X="","",X=$P(Y(4),X) S Y=X,X=Y(3),X=X_Y,Y(5)=X,Y(6)=X S X=$S('$D(^ABS(503346.1,+DIV,0)):"""",1:$P(^(0),U,1)),Y(7)=X S X="","""
^DD(503340,1.7,1,1,49.4)="X ^DD(503340,1.7,1,1,49.3) S Y(8)=X S X=3,Y(9)=X S X=99,X=$P(Y(7),Y(8),Y(9),X)="""",Y(10)=X S X="""",Y(11)=X S X=1,Y(12)=X S X="" "",Y(13)=X"
^DD(503340,1.7,1,1,49.5)="X ^DD(503340,1.7,1,1,49.4) S X=$S('$D(^ABS(503346.1,+DIV,0)):"""",1:$P(^(0),U,1)),Y(14)=X S X="","",Y(15)=X S X=3,Y(16)=X S X=99"
^DD(503340,1.7,1,1,"CREATE VALUE")="$P(INDIVIDUAL DONOR,"","",2)_"" ""_$P(INDIVIDUAL DONOR,"","")_$S($P(INDIVIDUAL DONOR,"","",3,99)="""":"""",1:"" ""_$P(INDIVIDUAL DONOR,"","",3,99))"
^DD(503340,1.7,1,1,"DELETE VALUE")="@"
^DD(503340,1.7,1,1,"DT")="3010803"
^DD(503340,1.7,1,1,"FIELD")="#30"
^DD(503340,1.7,"DT")="3010803"
^DD(503340,1.71,0)="DONOR ADDRESS 1^F^^5;2^K:$L(X)>30!($L(X)<3) X"
^DD(503340,1.71,1,0)="^.1"
^DD(503340,1.71,1,1,0)="^^TRIGGER^503340^31"
^DD(503340,1.71,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,2)=DIV,DIH=503340,DIG=31 D ^DICR"
^DD(503340,1.71,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,2)=DIV,DIH=503340,DIG=31 D ^DICR"
^DD(503340,1.71,1,1,"CREATE VALUE")="DONOR ADDRESS 1"
^DD(503340,1.71,1,1,"DELETE VALUE")="@"
^DD(503340,1.71,1,1,"FIELD")="#31"
^DD(503340,1.71,3)="Answer must be 3-30 characters in length."
^DD(503340,1.71,"DT")="3010803"
^DD(503340,1.72,0)="DONOR ADDRESS 2^F^^5;3^K:$L(X)>30!($L(X)<3) X"
^DD(503340,1.72,1,0)="^.1"
^DD(503340,1.72,1,1,0)="^^TRIGGER^503340^32"
^DD(503340,1.72,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,3)=DIV,DIH=503340,DIG=32 D ^DICR"
^DD(503340,1.72,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,3)=DIV,DIH=503340,DIG=32 D ^DICR"
^DD(503340,1.72,1,1,"CREATE VALUE")="DONOR ADDRESS 2"
^DD(503340,1.72,1,1,"DELETE VALUE")="@"
^DD(503340,1.72,1,1,"FIELD")="#32"
^DD(503340,1.72,3)="Answer must be 3-30 characters in length."
^DD(503340,1.72,"DT")="3010803"
^DD(503340,2,0)="DATE RECEIVED^D^^0;3^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503340,2,1,0)="^.1"
^DD(503340,2,1,1,0)="503340^D"
^DD(503340,2,1,1,1)="S ^ABS(503340,""D"",$E(X,1,30),DA)="""""
^DD(503340,2,1,1,2)="K ^ABS(503340,""D"",$E(X,1,30),DA)"
^DD(503340,2,"DT")="2871016"
^DD(503340,3,0)="DATE ACKNOWLEDGED^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503340,3,3)="ENTER DATE THANK YOU LETTER WAS SENT"
^DD(503340,3,"DT")="3010711"
^DD(503340,3.5,0)="POST/CHAPTER/UNIT^P503347^ABS(503347,^4;8^Q"
^DD(503340,3.5,"DT")="3010803"
^DD(503340,4,0)="POST^F^^0;5^K:$L(X)>8!($L(X)<1) X"
^DD(503340,4,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(503340,4.5,0)="ITEM(S) DONATED^F^^2;5^K:$L(X)>60!($L(X)<3) X"
^DD(503340,4.5,3)="Answer must be 3-60 characters in length"
^DD(503340,4.5,"DT")="3000929"
^DD(503340,5,0)="TYPE OF DONATION^S^1:CASH/CHECK;2:OTHER;3:SERVICES;4:COMFORT ARTICLES;5:EQUIPMENT;6:CLOTHING;7:FOOD;8:CANTEEN COUPON BOOKS;9:MAGAZINES/BOOKS;^0;6^Q"
^DD(503340,5,3)="PICK ONE OF THE FOLLOWING CODES: ENTER THE APPROPRIATE CODE."
^DD(503340,5,"DT")="3010803"
^DD(503340,6,0)="VALUE^RNJ11,2^^0;7^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0)!(X?.E1"".""3.N) X"
^DD(503340,6,3)="Type a Dollar amount between 0 and 99999999, 2 Decimal Digits"
^DD(503340,6,"DT")="3010822"
^DD(503340,7,0)="FUND^P503342'^ABS(503342,^0;8^Q"
^DD(503340,7,3)="Select the appropriate GPF entry. Points to File #503342."
^DD(503340,7,"DT")="3010629"
^DD(503340,8,0)="REMARKS^503340.08^^1;0"
^DD(503340,9,0)="WORKDAYS^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503340,9,3)="ENTER NUMBER OF DAYS FROM DATE OF RECEIPT TO DATE OF ACKNOWLEDGEMENT."
^DD(503340,10,0)="ENTERED BY^P200'^VA(200,^0;10^Q"
^DD(503340,10,"DT")="2961217"
^DD(503340,11,0)="DATE ENTERED^D^^0;11^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503340,11,"DT")="2871118"
^DD(503340,12,0)="LAST EDITED BY^P200'^VA(200,^0;12^Q"
^DD(503340,12,"DT")="2961217"
^DD(503340,13,0)="DATE LAST EDITED^D^^0;13^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(503340,13,"DT")="2871118"
^DD(503340,14,0)="PERMANENT RECEIPT #^F^^2;1^K:$L(X)>8!($L(X)<8) X"
^DD(503340,14,3)="Answer must be 8 characters in length."
^DD(503340,14,"DT")="3010711"
^DD(503340,14.5,0)="DATE OF PERMANENT RECEIPT^D^^0;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503340,14.5,3)="ENTER DATE OF PERMANENT RECEIPT."
^DD(503340,14.5,"DT")="3010711"
^DD(503340,15,0)="LETTER SENT?^S^0:NO;1:YES;^2;2^Q"
^DD(503340,15,"DT")="3000929"
^DD(503340,16,0)="PURPOSE OF DONATION^F^^2;3^K:$L(X)>30!($L(X)<1) X"
^DD(503340,16,3)="Answer must be 1-30 characters in length."
^DD(503340,16,"DT")="3010729"
^DD(503340,17,0)="LETTER FORMAT^P503341'^ABS(503341,^2;4^Q"
^DD(503340,17,"DT")="3000929"
^DD(503340,18,0)="NAME OF ITEM(S)^F^^0;16^K:$L(X)>20!($L(X)<1) X"
^DD(503340,18,3)="Answer must be 1-20 characters in length."
^DD(503340,18,"DT")="3010711"
^DD(503340,19,0)="DATE DEPOSITED^D^^0;17^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503340,19,3)="ENTER DATE TEMPORARY RECEIPT WAS COMPLETED."
^DD(503340,19,"DT")="3010711"
^DD(503340,20,0)="DONOR CITY^F^^5;4^K:$L(X)>20!($L(X)<3) X"
^DD(503340,20,1,0)="^.1"
^DD(503340,20,1,1,0)="^^TRIGGER^503340^33"
^DD(503340,20,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=503340,DIG=33 D ^DICR"
^DD(503340,20,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,4)=DIV,DIH=503340,DIG=33 D ^DICR"
^DD(503340,20,1,1,"CREATE VALUE")="DONOR CITY"
^DD(503340,20,1,1,"DELETE VALUE")="@"
^DD(503340,20,1,1,"FIELD")="LETTER CITY"
^DD(503340,20,3)="Answer must be 3-20 characters in length."
^DD(503340,20,"DT")="3010803"
^DD(503340,21,0)="DONOR STATE^P5'^DIC(5,^5;5^Q"
^DD(503340,21,1,0)="^.1"
^DD(503340,21,1,1,0)="^^TRIGGER^503340^34"
^DD(503340,21,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=DIV,X=X S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,5)=DIV,DIH=503340,DIG=34 D ^DICR"
^DD(503340,21,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,5)=DIV,DIH=503340,DIG=34 D ^DICR"
^DD(503340,21,1,1,"CREATE VALUE")="INTERNAL(DONOR STATE)"
^DD(503340,21,1,1,"DELETE VALUE")="@"
^DD(503340,21,1,1,"DT")="3010806"
^DD(503340,21,1,1,"FIELD")="LETTER STATE"
^DD(503340,21,"DT")="3010806"
^DD(503340,21.5,0)="DONOR STATE ABBREVIATION^CJ3^^ ; ^X ^DD(503340,21.5,9.2) S Y(503340,21.5,101)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(503340,21.5,101),U,2) S D0=Y(503340,21.5,80)"
^DD(503340,21.5,9)="^"
^DD(503340,21.5,9.01)="5^1;503340^21"
^DD(503340,21.5,9.1)="DONOR STATE:ABBREVIATION"
^DD(503340,21.5,9.2)="S Y(503340,21.5,80)=$G(D0),Y(503340,21.5,1)=$S($D(^ABS(503340,D0,5)):^(5),1:""""),D0=$P(Y(503340,21.5,1),U,5) S:'D0!'$D(^DIC(5,+D0,0)) D0=-1"
^DD(503340,22,0)="DONOR ZIP^F^^5;6^K:$L(X)>10!($L(X)<5) X"
^DD(503340,22,1,0)="^.1"
^DD(503340,22,1,1,0)="^^TRIGGER^503340^35"
^DD(503340,22,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X=DIV S X=DIV S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,6)=DIV,DIH=503340,DIG=35 D ^DICR"
^DD(503340,22,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,4)):^(4),1:"""") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),4)),DIV=X S $P(^(4),U,6)=DIV,DIH=503340,DIG=35 D ^DICR"
^DD(503340,22,1,1,"CREATE VALUE")="DONOR ZIP"
^DD(503340,22,1,1,"DELETE VALUE")="@"
^DD(503340,22,1,1,"FIELD")="#35"
^DD(503340,22,3)="Answer must be 5-10 characters in length."
^DD(503340,22,"DT")="3010803"
^DD(503340,23,0)="PRINT LETTER NOW?^S^1:YES;0:NO;^5;7^Q"
^DD(503340,23,"DT")="3010806"
^DD(503340,24,0)="NUMBER OF COPIES^NJ2,0^^2;6^K:+X'=X!(X>10)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503340,24,3)="Type a Number between 1 and 10, 0 Decimal Digits"
^DD(503340,24,21,0)="^^2^2^3010817^"
^DD(503340,24,21,1,0)="This field stores the number of copies of the thank you letter for a"
^DD(503340,24,21,2,0)="specific donation."
^DD(503340,24,"DT")="3010817"
^DD(503340,30,0)="LETTER RECIPIENT^F^^4;1^K:$L(X)>40!($L(X)<3) X"
^DD(503340,30,3)="Enter complete name of person to receive thank you letter, example: MR JOHN SMITH"
^DD(503340,30,5,1,0)="503340^1.7^1"
^DD(503340,30,"DT")="3010726"
^DD(503340,30.5,0)="LETTER RECIPIENT TITLE^F^^4;7^K:$L(X)>15!($L(X)<1) X"
^DD(503340,30.5,3)="Answer must be 1-15 characters in length."
^DD(503340,30.5,"DT")="3010726"
^DD(503340,30.7,0)="LETTER SALUTATION^F^^4;9^K:$L(X)>30!($L(X)<3) X"
^DD(503340,30.7,3)="Answer must be 3-30 characters in length"
^DD(503340,30.7,"DT")="3010803"
^DD(503340,31,0)="LETTER ADD1^F^^4;2^K:$L(X)>40!($L(X)<3) X"
^DD(503340,31,3)="Answer must be 3-40 characters in length."
^DD(503340,31,5,1,0)="503340^1.71^1"
^DD(503340,31,"DT")="3000929"
^DD(503340,32,0)="LETTER ADD2^F^^4;3^K:$L(X)>40!($L(X)<3) X"
^DD(503340,32,3)="Answer must be 3-40 characters in length."
^DD(503340,32,5,1,0)="503340^1.72^1"
^DD(503340,32,"DT")="3000929"
^DD(503340,33,0)="LETTER CITY^F^^4;4^K:$L(X)>30!($L(X)<3) X"
^DD(503340,33,3)="Answer must be 3-30 characters in length."
^DD(503340,33,5,1,0)="503340^20^1"
^DD(503340,33,"DT")="3000929"
^DD(503340,34,0)="LETTER STATE^P5'^DIC(5,^4;5^Q"
^DD(503340,34,1,0)="^.1"
^DD(503340,34,1,1,0)="^^TRIGGER^503340^34.5"
^DD(503340,34,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y X ^DD(503340,34,1,1,1.1) S DIH=$G(^ABS(503340,DIV(0),5)),DIV=X S $P(^(5),U,10)=DIV,DIH=503340,DIG=34.5 D ^DICR"
^DD(503340,34,1,1,1.1)="S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^DIC(5,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(101),U,2) S D0=I(0,0)"
^DD(503340,34,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ABS(503340,D0,5)):^(5),1:"""") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="""" S DIH=$G(^ABS(503340,DIV(0),5)),DIV=X S $P(^(5),U,10)=DIV,DIH=503340,DIG=34.5 D ^DICR"
^DD(503340,34,1,1,"CREATE VALUE")="LETTER STATE:ABBREVIATION"
^DD(503340,34,1,1,"DELETE VALUE")="@"
^DD(503340,34,1,1,"FIELD")="LETTER STATE ABBREVIATION"
^DD(503340,34,3)="ENTER STATE OR ABBREVIATION (example: PA for Pennsylvania)"
^DD(503340,34,5,1,0)="503340^21^1"
^DD(503340,34,"DT")="3010806"
^DD(503340,34.5,0)="LETTER STATE ABBREVIATION^F^^5;10^K:$L(X)>4!($L(X)<2) X"
^DD(503340,34.5,3)="Answer must be 2-4 characters in length."
^DD(503340,34.5,5,1,0)="503340^34^1"
^DD(503340,34.5,"DT")="3010806"
^DD(503340,35,0)="LETTER ZIP CODE^F^^4;6^K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1""-""4N)) X"
^DD(503340,35,3)="Answer must be 5-10 characters in length."
^DD(503340,35,5,1,0)="503340^22^1"
^DD(503340,35,"DT")="3000929"
^DD(503340,36,0)="LETTER CC^F^^5;8^K:$L(X)>3!($L(X)<3) X"
^DD(503340,36,3)="Answer must be 3 characters in length."
^DD(503340,36,"DT")="3010806"
^DD(503340,37,0)="LETTER DATE^D^^5;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503340,37,"DT")="3010806"
^DD(503340,40,0)="LETTER CC1 NAME^F^^6;1^K:$L(X)>30!($L(X)<3) X"
^DD(503340,40,3)="Answer must be 3-30 characters in length."
^DD(503340,40,"DT")="3010806"
^DD(503340,41,0)="LETTER CC1 TITLE^F^^6;2^K:$L(X)>30!($L(X)<3) X"
^DD(503340,41,3)="Answer must be 3-30 characters in length."
^DD(503340,41,"DT")="3010806"
^DD(503340,42,0)="LETTER CC1 ORGANIZATION^P503334'^ABS(503334,^6;3^Q"
^DD(503340,42,3)=""
^DD(503340,42,"DT")="3010806"
^DD(503340,42.5,0)="LETTER CC1 ORGANIZATION NAME^CJ30^^ ; ^X ^DD(503340,42.5,9.2) S Y(503340,42.5,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503340,42.5,101),U,7) S D0=Y(503340,42.5,80)"
^DD(503340,42.5,9)="^"
^DD(503340,42.5,9.01)="503334^1.5;503340^42"
^DD(503340,42.5,9.1)="#42:#1.5"
^DD(503340,42.5,9.2)="S Y(503340,42.5,80)=$G(D0),Y(503340,42.5,1)=$S($D(^ABS(503340,D0,6)):^(6),1:""""),D0=$P(Y(503340,42.5,1),U,3) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1"
^DD(503340,43,0)="LETTER CC2 NAME^F^^6;4^K:$L(X)>30!($L(X)<3) X"
^DD(503340,43,3)="Answer must be 3-30 characters in length."
^DD(503340,43,"DT")="3010806"
^DD(503340,44,0)="LETTER CC2 TITLE^F^^6;5^K:$L(X)>30!($L(X)<3) X"
^DD(503340,44,3)="Answer must be 3-30 characters in length."
^DD(503340,44,"DT")="3010806"
^DD(503340,45,0)="LETTER CC2 ORGANIZATION^P503334'^ABS(503334,^6;6^Q"
^DD(503340,45,3)=""
^DD(503340,45,"DT")="3010806"
^DD(503340,45.5,0)="LETTER CC2 ORGANIZATION NAME^CJ30^^ ; ^X ^DD(503340,45.5,9.2) S Y(503340,45.5,101)=$S($D(^ABS(503334,D0,0)):^(0),1:"""") S X=$P(Y(503340,45.5,101),U,7) S D0=Y(503340,45.5,80)"
^DD(503340,45.5,9)="^"
^DD(503340,45.5,9.01)="503334^1.5;503340^45"
^DD(503340,45.5,9.1)="#45:#1.5"
^DD(503340,45.5,9.2)="S Y(503340,45.5,80)=$G(D0),Y(503340,45.5,1)=$S($D(^ABS(503340,D0,6)):^(6),1:""""),D0=$P(Y(503340,45.5,1),U,6) S:'D0!'$D(^ABS(503334,+D0,0)) D0=-1"
^DD(503340,"B","DATE ACKNOWLEDGED",3)=""
^DD(503340,"B","DATE DEPOSITED",19)=""
^DD(503340,"B","DATE ENTERED",11)=""
^DD(503340,"B","DATE LAST EDITED",13)=""
^DD(503340,"B","DATE OF PERMANENT RECEIPT",14.5)=""
^DD(503340,"B","DATE RECEIVED",2)=""
^DD(503340,"B","DONOR ADDRESS 1",1.71)=""
^DD(503340,"B","DONOR ADDRESS 2",1.72)=""
^DD(503340,"B","DONOR CITY",20)=""
^DD(503340,"B","DONOR STATE",21)=""
^DD(503340,"B","DONOR STATE ABBREVIATION",21.5)=""
^DD(503340,"B","DONOR ZIP",22)=""
^DD(503340,"B","ENTERED BY",10)=""
^DD(503340,"B","FUND",7)=""
^DD(503340,"B","INDIVIDUAL DONOR",1.7)=""
^DD(503340,"B","ITEM(S) DONATED",4.5)=""
^DD(503340,"B","LAST EDITED BY",12)=""
^DD(503340,"B","LETTER ADD1",31)=""
^DD(503340,"B","LETTER ADD2",32)=""
^DD(503340,"B","LETTER CC",36)=""
^DD(503340,"B","LETTER CC1 NAME",40)=""
^DD(503340,"B","LETTER CC1 ORGANIZATION",42)=""
^DD(503340,"B","LETTER CC1 ORGANIZATION NAME",42.5)=""
^DD(503340,"B","LETTER CC1 TITLE",41)=""
^DD(503340,"B","LETTER CC2 NAME",43)=""
^DD(503340,"B","LETTER CC2 ORGANIZATION",45)=""
^DD(503340,"B","LETTER CC2 ORGANIZATION NAME",45.5)=""
^DD(503340,"B","LETTER CC2 TITLE",44)=""
^DD(503340,"B","LETTER CITY",33)=""
^DD(503340,"B","LETTER DATE",37)=""
^DD(503340,"B","LETTER FORMAT",17)=""
^DD(503340,"B","LETTER RECIPIENT",30)=""
^DD(503340,"B","LETTER RECIPIENT TITLE",30.5)=""
^DD(503340,"B","LETTER SALUTATION",30.7)=""
^DD(503340,"B","LETTER SENT?",15)=""
^DD(503340,"B","LETTER STATE",34)=""
^DD(503340,"B","LETTER STATE ABBREVIATION",34.5)=""
^DD(503340,"B","LETTER ZIP CODE",35)=""
^DD(503340,"B","NAME OF ITEM(S)",18)=""
^DD(503340,"B","NUMBER OF COPIES",24)=""
^DD(503340,"B","ORGANIZATION",1)=""
^DD(503340,"B","ORGANIZATION NAME",1.5)=""
^DD(503340,"B","PERMANENT RECEIPT #",14)=""
^DD(503340,"B","POST",4)=""
^DD(503340,"B","POST/CHAPTER/UNIT",3.5)=""
^DD(503340,"B","PRINT LETTER NOW?",23)=""
^DD(503340,"B","PRINTING ORG NAME",1.6)=""
^DD(503340,"B","PURPOSE OF DONATION",16)=""
^DD(503340,"B","REMARKS",8)=""
^DD(503340,"B","STATION NUMBER",.6)=""
^DD(503340,"B","TRACKING NUMBER",.01)=""
^DD(503340,"B","TYPE OF DONATION",5)=""
^DD(503340,"B","VALUE",6)=""
^DD(503340,"B","VOLUNTARY STATION NAME",.5)=""
^DD(503340,"B","WORKDAYS",9)=""
^DD(503340,"GL",0,1,.01)=""
^DD(503340,"GL",0,2,1)=""
^DD(503340,"GL",0,3,2)=""
^DD(503340,"GL",0,4,3)=""
^DD(503340,"GL",0,5,4)=""
^DD(503340,"GL",0,6,5)=""
^DD(503340,"GL",0,7,6)=""
^DD(503340,"GL",0,8,7)=""
^DD(503340,"GL",0,9,9)=""
^DD(503340,"GL",0,10,10)=""
^DD(503340,"GL",0,11,11)=""
^DD(503340,"GL",0,12,12)=""
^DD(503340,"GL",0,13,13)=""
^DD(503340,"GL",0,14,1.5)=""
^DD(503340,"GL",0,15,.5)=""
^DD(503340,"GL",0,16,18)=""
^DD(503340,"GL",0,17,19)=""
^DD(503340,"GL",0,18,14.5)=""
^DD(503340,"GL",0,19,.6)=""
^DD(503340,"GL",1,0,8)=""
^DD(503340,"GL",2,1,14)=""
^DD(503340,"GL",2,2,15)=""
^DD(503340,"GL",2,3,16)=""
^DD(503340,"GL",2,4,17)=""
^DD(503340,"GL",2,5,4.5)=""
^DD(503340,"GL",2,6,24)=""
^DD(503340,"GL",4,1,30)=""
^DD(503340,"GL",4,2,31)=""
^DD(503340,"GL",4,3,32)=""
^DD(503340,"GL",4,4,33)=""
^DD(503340,"GL",4,5,34)=""
^DD(503340,"GL",4,6,35)=""
^DD(503340,"GL",4,7,30.5)=""
^DD(503340,"GL",4,8,3.5)=""
^DD(503340,"GL",4,9,30.7)=""
^DD(503340,"GL",5,1,1.7)=""
^DD(503340,"GL",5,2,1.71)=""
^DD(503340,"GL",5,3,1.72)=""
^DD(503340,"GL",5,4,20)=""
^DD(503340,"GL",5,5,21)=""
^DD(503340,"GL",5,6,22)=""
^DD(503340,"GL",5,7,23)=""
^DD(503340,"GL",5,8,36)=""
^DD(503340,"GL",5,9,37)=""
^DD(503340,"GL",5,10,34.5)=""
^DD(503340,"GL",6,1,40)=""
^DD(503340,"GL",6,2,41)=""
^DD(503340,"GL",6,3,42)=""
^DD(503340,"GL",6,4,43)=""
^DD(503340,"GL",6,5,44)=""
^DD(503340,"GL",6,6,45)=""
^DD(503340,"IX",.01)=""
^DD(503340,"IX",.5)=""
^DD(503340,"IX",.6)=""
^DD(503340,"IX",1)=""
^DD(503340,"IX",1.7)=""
^DD(503340,"IX",1.71)=""
^DD(503340,"IX",1.72)=""
^DD(503340,"IX",2)=""
^DD(503340,"IX",20)=""
^DD(503340,"IX",21)=""
^DD(503340,"IX",22)=""
^DD(503340,"IX",34)=""
^DD(503340,"RQ",.01)=""
^DD(503340,"RQ",1)=""
^DD(503340,"RQ",6)=""
^DD(503340,"SB",503340.08,8)=""
^DD(503340.08,0)="REMARKS SUB-FIELD^^.01^1"
^DD(503340.08,0,"NM","REMARKS")=""
^DD(503340.08,0,"UP")="503340"
^DD(503340.08,.01,0)="REMARKS^W^^0;1^Q"
^DD(503340.08,"B","REMARKS",.01)=""
^DD(503340.08,"GL",0,1,.01)=""
^DD(503340.1,0)="FIELD^^7^11"
^DD(503340.1,0,"DT")="3010711"
^DD(503340.1,0,"IX","B",503340.1,.01)=""
^DD(503340.1,0,"NM","DONATIONS LETTER RECIPIENT")=" "
^DD(503340.1,0,"VR")="4.0"
^DD(503340.1,0,"VRPK")="ABSV"
^DD(503340.1,.01,0)="NAME^RFX^^0;1^K:X[""""""""!($A(X)=40) X I $D(X) K:$L(X)>45!($L(X)<3)!(X'?1U.UP1"",""."" ""1U.UP) X"
^DD(503340.1,.01,1,0)="^.1"
^DD(503340.1,.01,1,1,0)="503340.1^B"
^DD(503340.1,.01,1,1,1)="S ^ABS(503340.1,""B"",$E(X,1,30),DA)="""""
^DD(503340.1,.01,1,1,2)="K ^ABS(503340.1,""B"",$E(X,1,30),DA)"
^DD(503340.1,.01,3)="NAME MUST BE 3-40 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(503340.1,.01,"DT")="3000929"
^DD(503340.1,1,0)="PRINTED NAME^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(503340.1,1,3)="Answer must be 1-40 characters in length"
^DD(503340.1,1,"DT")="3000928"
^DD(503340.1,1.5,0)="TITLE^F^^1;1^K:$L(X)>15!($L(X)<3) X"
^DD(503340.1,1.5,3)="Answer must be 3-15 characters in length."
^DD(503340.1,1.5,"DT")="3010711"
^DD(503340.1,1.8,0)="MR/MRS/MS/MISS^F^^1;2^K:$L(X)>4!($L(X)<1) X"
^DD(503340.1,1.8,3)="Answer must be 1-4 characters in length."
^DD(503340.1,1.8,"DT")="3010711"
^DD(503340.1,2,0)="ADDRESS 1^F^^0;3^K:$L(X)>40!($L(X)<1) X"
^DD(503340.1,2,3)="Answer must be 1-40 characters in length"
^DD(503340.1,2,"DT")="3000928"
^DD(503340.1,3,0)="ADDRESS 2^F^^0;4^K:$L(X)>40!($L(X)<1) X"
^DD(503340.1,3,3)="Answer must be 1-40 characters in length"
^DD(503340.1,3,"DT")="3000928"
^DD(503340.1,4,0)="CITY^F^^0;5^K:$L(X)>30!($L(X)<3) X"
^DD(503340.1,4,3)="Answer must be 3-30 characters in length."
^DD(503340.1,4,"DT")="3000928"
^DD(503340.1,5,0)="STATE^P5'^DIC(5,^0;6^Q"
^DD(503340.1,5,"DT")="3000928"
^DD(503340.1,5.5,0)="STATE ABBREVIATION^CJ2^^ ; ^X ^DD(503340.1,5.5,9.2) S Y(503340.1,5.5,101)=$S($D(^DIC(5,D0,0)):^(0),1:"""") S X=$P(Y(503340.1,5.5,101),U,2) S D0=Y(503340.1,5.5,80)"
^DD(503340.1,5.5,9)="^"
^DD(503340.1,5.5,9.01)="5^1;503340.1^5"
^DD(503340.1,5.5,9.1)="STATE:ABBREVIATION"
^DD(503340.1,5.5,9.2)="S Y(503340.1,5.5,80)=$G(D0),Y(503340.1,5.5,1)=$S($D(^ABS(503340.1,D0,0)):^(0),1:""""),D0=$P(Y(503340.1,5.5,1),U,6) S:'D0!'$D(^DIC(5,+D0,0)) D0=-1"
^DD(503340.1,6,0)="ZIP CODE^F^^0;7^K:$L(X)>10!($L(X)<5)!'((X?5N)!(X?5N1""-""4N)) X"
^DD(503340.1,6,3)="Answer must be 5-10 characters in length"
^DD(503340.1,6,"DT")="3000928"
^DD(503340.1,7,0)="PHONE^F^^0;8^K:$L(X)>12!($L(X)<12)!'(X?3N1""-""3N1""-""4N) X"
^DD(503340.1,7,3)="Answer must be 12 characters in length"
^DD(503340.1,7,"DT")="3000928"
^DD(503340.1,"B","ADDRESS 1",2)=""
^DD(503340.1,"B","ADDRESS 2",3)=""
^DD(503340.1,"B","CITY",4)=""
^DD(503340.1,"B","MR/MRS/MS/MISS",1.8)=""
^DD(503340.1,"B","NAME",.01)=""
^DD(503340.1,"B","PHONE",7)=""
^DD(503340.1,"B","PRINTED NAME",1)=""
^DD(503340.1,"B","STATE",5)=""
^DD(503340.1,"B","STATE ABBREVIATION",5.5)=""
^DD(503340.1,"B","TITLE",1.5)=""
^DD(503340.1,"B","ZIP CODE",6)=""
^DD(503340.1,"GL",0,1,.01)=""
^DD(503340.1,"GL",0,2,1)=""
^DD(503340.1,"GL",0,3,2)=""
^DD(503340.1,"GL",0,4,3)=""
^DD(503340.1,"GL",0,5,4)=""
^DD(503340.1,"GL",0,6,5)=""
^DD(503340.1,"GL",0,7,6)=""
^DD(503340.1,"GL",0,8,7)=""
^DD(503340.1,"GL",1,1,1.5)=""
^DD(503340.1,"GL",1,2,1.8)=""
^DD(503340.1,"IX",.01)=""
^DD(503340.1,"RQ",.01)=""
^DD(503341,0)="FIELD^^2^3"
^DD(503341,0,"DDA")="N"
^DD(503341,0,"DT")="3000905"
^DD(503341,0,"IX","B",503341,.01)=""
^DD(503341,0,"NM","DONATIONS LETTER FORMAT")=" "
^DD(503341,0,"PT",503340,17)=""
^DD(503341,0,"VR")="4.0"
^DD(503341,0,"VRPK")="ABSV"
^DD(503341,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(503341,.01,1,0)="^.1"
^DD(503341,.01,1,1,0)="503341^B"
^DD(503341,.01,1,1,1)="S ^ABS(503341,""B"",$E(X,1,30),DA)="""""
^DD(503341,.01,1,1,2)="K ^ABS(503341,""B"",$E(X,1,30),DA)"
^DD(503341,.01,3)="Enter the name assigned to the volunteer donation letter.  Do not exceed 30 characters."
^DD(503341,.01,21,0)="^^2^2^3000905^"
^DD(503341,.01,21,1,0)="This field contains the name of the specific letter type to be sent to a"
^DD(503341,.01,21,2,0)="donor."
^DD(503341,.01,23,0)="^^2^2^3000905^"
^DD(503341,.01,23,1,0)="This field contains a free text name of the letter type being mailed to a"
^DD(503341,.01,23,2,0)="donor."
^DD(503341,.01,"DT")="3000905"
^DD(503341,1,0)="DATE CREATED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(503341,1,3)="(No range limit on date)"
^DD(503341,1,"DT")="3000905"
^DD(503341,2,0)="TEXT OF LETTER^503341.02^^1;0"
^DD(503341,"B","DATE CREATED",1)=""
^DD(503341,"B","NAME",.01)=""
^DD(503341,"B","TEXT OF LETTER",2)=""
^DD(503341,"GL",0,1,.01)=""
^DD(503341,"GL",0,2,1)=""
^DD(503341,"GL",1,0,2)=""
^DD(503341,"IX",.01)=""
^DD(503341,"RQ",.01)=""
^DD(503341,"SB",503341.02,2)=""
^DD(503341.02,0)="TEXT OF LETTER SUB-FIELD^^.01^1"
^DD(503341.02,0,"DT")="3000905"
^DD(503341.02,0,"NM","TEXT OF LETTER")=" "
^DD(503341.02,0,"UP")="503341"
^DD(503341.02,.01,0)="TEXT OF LETTER^W^^0;1"
^DD(503341.02,.01,"DT")="3000905"
^DD(503341.02,"B","TEXT OF LETTER",.01)=""
^DD(503341.02,"GL",0,1,.01)=""
^DD(503342,0)="FIELD^^2^3"
^DD(503342,0,"DDA")="N"
^DD(503342,0,"DT")="3010629"
^DD(503342,0,"ID",1)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(503342,0,"IX","B",503342,.01)=""
^DD(503342,0,"IX","C",503342,1)=""
^DD(503342,0,"NM","GPF/DONATIONS")=" "
^DD(503342,0,"PT",503340,7)=""
^DD(503342,0,"PT",503344,13)=""
^DD(503342,0,"VR")="4.0"
^DD(503342,0,"VRPK")="ABSV"
^DD(503342,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X"
^DD(503342,.01,1,0)="^.1"
^DD(503342,.01,1,1,0)="503342^B"
^DD(503342,.01,1,1,1)="S ^ABS(503342,""B"",$E(X,1,30),DA)="""""
^DD(503342,.01,1,1,2)="K ^ABS(503342,""B"",$E(X,1,30),DA)"
^DD(503342,.01,3)="Answer must be 3-30 characters in length."
^DD(503342,.01,"DT")="3010629"
^DD(503342,1,0)="ABBREVIATION^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X"
^DD(503342,1,1,0)="^.1"
^DD(503342,1,1,1,0)="503342^C"
^DD(503342,1,1,1,1)="S ^ABS(503342,""C"",$E(X,1,30),DA)="""""
^DD(503342,1,1,1,2)="K ^ABS(503342,""C"",$E(X,1,30),DA)"
^DD(503342,1,3)="ANSWER MUST BE 1-8 CHARACTERS IN LENGTH"
^DD(503342,2,0)="ACCOUNT NUMBER^RF^^0;3^K:$L(X)>9!($L(X)<9) X"
^DD(503342,2,3)="Answer must be 9 characters in length."
^DD(503342,2,21,0)="^.001^3^3^3010629^^"
^DD(503342,2,21,1,0)="Enter a 9 character account number. This is a required field."
^DD(503342,2,21,2,0)=" "
^DD(503342,2,21,3,0)=" "
^DD(503342,2,"DT")="3010629"
^DD(503342,"B","ABBREVIATION",1)=""
^DD(503342,"B","ACCOUNT NUMBER",2)=""
^DD(503342,"B","NAME",.01)=""
^DD(503342,"GL",0,1,.01)=""
^DD(503342,"GL",0,2,1)=""
^DD(503342,"GL",0,3,2)=""
^DD(503342,"IX",.01)=""
^DD(503342,"IX",1)=""
^DD(503342,"RQ",.01)=""
^DD(503342,"RQ",1)=""
^DD(503342,"RQ",2)=""
^DD(503343,0)="FIELD^^5^6"
^DD(503343,0,"DDA")="N"
^DD(503343,0,"DT")="3000906"
^DD(503343,0,"IX","B",503343,.01)=""
^DD(503343,0,"NM","FIELD SERVICE RECEIPT")=" "
^DD(503343,0,"VR")="4.0"
^DD(503343,0,"VRPK")="ABSV"
^DD(503343,.01,0)="ID NUMBER^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(503343,.01,1,0)="^.1"
^DD(503343,.01,1,1,0)="503343^B"
^DD(503343,.01,1,1,1)="S ^ABS(503343,""B"",$E(X,1,30),DA)="""""
^DD(503343,.01,1,1,2)="K ^ABS(503343,""B"",$E(X,1,30),DA)"
^DD(503343,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(503343,.01,"DT")="3000906"
^DD(503343,1,0)="DATE/TIME OF RECEIPT^D^^0;2^S %DT=""ETR"" D ^%DT S X=Y K:X<1 X"
^DD(503343,1,3)="(No range limit on date)"
^DD(503343,1,"DT")="3000906"
^DD(503343,2,0)="AMOUNT^NJ11,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99999999)!(X<0)!(X?.E1"".""3.N) X"
^DD(503343,2,3)="Type a Dollar amount between 0 and 99999999, 2 Decimal Digits"
^DD(503343,2,"DT")="3000906"
^DD(503343,3,0)="PERMANENT RECEIPT NUMBER^F^^0;4^K:$L(X)>20!($L(X)<3) X"
^DD(503343,3,3)="Answer must be 3-20 characters in length"
^DD(503343,3,"DT")="3000906"
^DD(503343,4,0)="DATE OF PERMANENT RECEIPT^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:X<1 X"
^DD(503343,4,3)="(No range limit on date)"
^DD(503343,4,"DT")="3000906"
^DD(503343,5,0)="DONATION^P503340'^ABS(503340,^0;6^Q"
^DD(503343,5,"DT")="3000906"
^DD(503343,"B","AMOUNT",2)=""
^DD(503343,"B","DATE OF PERMANENT RECEIPT",4)=""
^DD(503343,"B","DATE/TIME OF RECEIPT",1)=""
^DD(503343,"B","DONATION",5)=""
^DD(503343,"B","ID NUMBER",.01)=""
^DD(503343,"B","PERMANENT RECEIPT NUMBER",3)=""
^DD(503343,"GL",0,1,.01)=""
^DD(503343,"GL",0,2,1)=""
^DD(503343,"GL",0,3,2)=""
^DD(503343,"GL",0,4,3)=""
^DD(503343,"GL",0,5,4)=""
^DD(503343,"GL",0,6,5)=""
^DD(503343,"IX",.01)=""
^DD(503343,"RQ",.01)=""
^DD(503344,0)="FIELD^^14^16"
^DD(503344,0,"IX","B",503344,.01)=""
^DD(503344,0,"NM","TEMPORARY RECEIPT")=" "
^DD(503344,0,"VR")="4.0"
^DD(503344,0,"VRPK")="ABSV"
^DD(503344,.01,0)="RECEIPT NUMBER^RNJ7,0X^^0;1^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""1N.N) X S DINUM=X"
^DD(503344,.01,1,0)="^.1"
^DD(503344,.01,1,1,0)="503344^B"
^DD(503344,.01,1,1,1)="S ^ABS(503344,""B"",$E(X,1,30),DA)="""""
^DD(503344,.01,1,1,2)="K ^ABS(503344,""B"",$E(X,1,30),DA)"
^DD(503344,.01,3)="Type a Number between 0 and 9999999, 0 Decimal Digits"
^DD(503344,.01,"DT")="3010425"
^DD(503344,1,0)="DONOR NAME^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(503344,1,3)="Answer must be 1-30 characters in length."
^DD(503344,1,"DT")="3010424"
^DD(503344,2,0)="DONOR ADDRESS LINE1^F^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(503344,2,3)="Answer must be 1-30 characters in length."
^DD(503344,2,"DT")="3010424"
^DD(503344,3,0)="DONOR CITY/STATE/ZIP^F^^0;4^K:$L(X)>30!($L(X)<1) X"
^DD(503344,3,3)="Answer must be 1-30 characters in length."
^DD(503344,3,"DT")="3010812"
^DD(503344,4,0)="TYPE OF FUNDS^S^C:CASH/CHECK;M:MONEY ORDER;O:OTHER;^0;5^Q"
^DD(503344,4,"DT")="3010502"
^DD(503344,5,0)="AMOUNT^NJ10,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999999)!(X<0) X"
^DD(503344,5,3)="Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits"
^DD(503344,5,"DT")="3010424"
^DD(503344,6,0)="ISSUED BY^F^^0;7^K:$L(X)>30!($L(X)<1) X"
^DD(503344,6,3)="Answer must be 1-30 characters in length."
^DD(503344,6,"DT")="3010425"
^DD(503344,7,0)="DATE ISSUED^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(503344,7,"DT")="3010424"
^DD(503344,8,0)="DONATIONS FILE REF#^F^^0;9^K:$L(X)>20!($L(X)<1) X"
^DD(503344,8,3)="Answer must be 1-20 characters in length."
^DD(503344,8,"DT")="3010425"
^DD(503344,9,0)="DONOR ADDRESS LINE2^F^^0;10^K:$L(X)>30!($L(X)<1) X"
^DD(503344,9,3)="Answer must be 1-30 characters in length."
^DD(503344,9,"DT")="3010430"
^DD(503344,10,0)="ORGANIZATION^RP503334'^ABS(503334,^0;11^Q"
^DD(503344,10,3)="ENTER VOLUNTEER ORGANIZATION CODE OR NAME."
^DD(503344,10,"DT")="3010812"
^DD(503344,10.5,0)="ORGANIZATION NAME^F^^1;4^K:$L(X)>30!($L(X)<1) X"
^DD(503344,10.5,3)="Answer must be 1-30 characters in length."
^DD(503344,10.5,"DT")="3010814"
^DD(503344,11,0)="SITE^P503338'^ABS(503338,^0;12^Q"
^DD(503344,11,"DT")="3010502"
^DD(503344,12,0)="POST^F^^1;1^K:$L(X)>8!($L(X)<1) X"
^DD(503344,12,3)="Answer must be 1-8 characters in length."
^DD(503344,12,"DT")="3010720"
^DD(503344,13,0)="POST FUND^P503342'^ABS(503342,^1;2^Q"
^DD(503344,13,3)="TO ENTER A NEW ENTRY, EDIT FILE GPF/DONATIONS."
^DD(503344,13,"DT")="3010720"
^DD(503344,14,0)="PURPOSE OF DONATION^F^^1;3^K:$L(X)>30!($L(X)<1) X"
^DD(503344,14,3)="Answer must be 1-30 characters in length."
^DD(503344,14,"DT")="3010729"
^DD(503344,"B","AMOUNT",5)=""
^DD(503344,"B","DATE ISSUED",7)=""
^DD(503344,"B","DONATIONS FILE REF#",8)=""
^DD(503344,"B","DONOR ADDRESS LINE1",2)=""
^DD(503344,"B","DONOR ADDRESS LINE2",9)=""
^DD(503344,"B","DONOR CITY/STATE/ZIP",3)=""
^DD(503344,"B","DONOR NAME",1)=""
^DD(503344,"B","ISSUED BY",6)=""
^DD(503344,"B","ORGANIZATION",10)=""
^DD(503344,"B","ORGANIZATION NAME",10.5)=""
^DD(503344,"B","POST",12)=""
^DD(503344,"B","POST FUND",13)=""
^DD(503344,"B","PURPOSE OF DONATION",14)=""
^DD(503344,"B","RECEIPT NUMBER",.01)=""
^DD(503344,"B","SITE",11)=""
^DD(503344,"B","TYPE OF FUNDS",4)=""
^DD(503344,"GL",0,1,.01)=""
^DD(503344,"GL",0,2,1)=""
^DD(503344,"GL",0,3,2)=""
^DD(503344,"GL",0,4,3)=""
^DD(503344,"GL",0,5,4)=""
^DD(503344,"GL",0,6,5)=""
^DD(503344,"GL",0,7,6)=""
^DD(503344,"GL",0,8,7)=""
^DD(503344,"GL",0,9,8)=""
^DD(503344,"GL",0,10,9)=""
^DD(503344,"GL",0,11,10)=""
^DD(503344,"GL",0,12,11)=""
^DD(503344,"GL",1,1,12)=""
^DD(503344,"GL",1,2,13)=""
^DD(503344,"GL",1,3,14)=""
^DD(503344,"GL",1,4,10.5)=""
^DD(503344,"IX",.01)=""
^DD(503344,"RQ",.01)=""
^DD(503344,"RQ",10)=""
^DD(503345,0)="FIELD^^1^3"
^DD(503345,0,"DDA")="N"
^DD(503345,0,"DT")="3000906"
^DD(503345,0,"IX","B",503345,.01)=""
^DD(503345,0,"NM","DONATION PURPOSE")=" "
^DD(503345,0,"VR")="4.0"
^DD(503345,0,"VRPK")="ABSV"
^DD(503345,.001,0)="NUMBER^NJ5,0^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(503345,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(503345,.001,"DT")="3000906"
^DD(503345,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(503345,.01,1,0)="^.1"
^DD(503345,.01,1,1,0)="503345^B"
^DD(503345,.01,1,1,1)="S ^ABS(503345,""B"",$E(X,1,30),DA)="""""
^DD(503345,.01,1,1,2)="K ^ABS(503345,""B"",$E(X,1,30),DA)"
^DD(503345,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(503345,1,0)="SHORT NAME^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(503345,1,3)="Answer must be 1-10 characters in length."
^DD(503345,1,"DT")="3000906"
^DD(503345,"B","NAME",.01)=""
^DD(503345,"B","NUMBER",.001)=""
^DD(503345,"B","SHORT NAME",1)=""
^DD(503345,"GL",0,1,.01)=""
^DD(503345,"GL",0,2,1)=""
^DD(503345,"IX",.01)=""
^DD(503345,"RQ",.01)=""
^DD(503346.1,0)="FIELD^^1^2"
^DD(503346.1,0,"DT")="3010803"
^DD(503346.1,0,"IX","B",503346.1,.01)=""
^DD(503346.1,0,"NM","INDIVIDUAL DONOR")=" "
^DD(503346.1,0,"PT",503340,1.7)=""
^DD(503346.1,0,"VR")="4.0"
^DD(503346.1,0,"VRPK")="ABSV"
^DD(503346.1,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X I $D(X) S XLFNC=X D STDNAME^XLFNAME(.XLFNC,""C"") S X=XLFNC K:$L(X)>35!($L(X)<3) X,XLFNC"
^DD(503346.1,.01,1,0)="^.1"
^DD(503346.1,.01,1,1,0)="503346.1^B"
^DD(503346.1,.01,1,1,1)="S ^ABS(503346.1,""B"",$E(X,1,30),DA)="""""
^DD(503346.1,.01,1,1,2)="K ^ABS(503346.1,""B"",$E(X,1,30),DA)"
^DD(503346.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(503346.1,1,0)="ORGANIZATION^P503334'^ABS(503334,^0;2^Q"
^DD(503346.1,1,3)=" "
^DD(503346.1,1,"DT")="3010803"
^DD(503346.1,"B","NAME",.01)=""
^DD(503346.1,"B","ORGANIZATION",1)=""
^DD(503346.1,"GL",0,1,.01)=""
^DD(503346.1,"GL",0,2,1)=""
^DD(503346.1,"IX",.01)=""
^DD(503346.1,"RQ",.01)=""
^DD(503347,0)="FIELD^^.01^1"
^DD(503347,0,"DDA")="N"
^DD(503347,0,"IX","B",503347,.01)=""
^DD(503347,0,"NM","POST/CHAPTER/UNIT")=" "
^DD(503347,0,"PT",503340,3.5)=""
^DD(503347,0,"VR")="4.0"
^DD(503347,0,"VRPK")="ABSV"
^DD(503347,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(503347,.01,1,0)="^.1"
^DD(503347,.01,1,1,0)="503347^B"
^DD(503347,.01,1,1,1)="S ^ABS(503347,""B"",$E(X,1,30),DA)="""""
^DD(503347,.01,1,1,2)="K ^ABS(503347,""B"",$E(X,1,30),DA)"
^DD(503347,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(503347,"B","NAME",.01)=""
^DD(503347,"GL",0,1,.01)=""
^DD(503347,"IX",.01)=""
^DD(503347,"RQ",.01)=""
^DD(509850,0)="FIELD^^4^5"
^DD(509850,0,"DDA")="N"
^DD(509850,0,"DT")="2950926"
^DD(509850,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(509850,0,"IX","AT",509850,2)=""
^DD(509850,0,"IX","B",509850,.01)=""
^DD(509850,0,"NM","CDR ACCOUNT")=""
^DD(509850,0,"PT",509850.6,5)=""
^DD(509850,0,"PT",509850.81,.03)=""
^DD(509850,0,"VR")="3.0"
^DD(509850,0,"VRPK")="QUASAR"
^DD(509850,.01,0)="ACCOUNT NUMBER^RF^^0;1^K:$L(X)>7!($L(X)<7)!'(X?4N1P2N) X"
^DD(509850,.01,.1)="Account Number"
^DD(509850,.01,1,0)="^.1"
^DD(509850,.01,1,1,0)="509850^B"
^DD(509850,.01,1,1,1)="S ^ACK(509850,""B"",$E(X,1,30),DA)="""""
^DD(509850,.01,1,1,2)="K ^ACK(509850,""B"",$E(X,1,30),DA)"
^DD(509850,.01,3)="Your answer must be 7 characters in length."
^DD(509850,.01,9)="^"
^DD(509850,.01,21,0)="^^2^2^2950824^^^^"
^DD(509850,.01,21,1,0)="The ACCOUNT NUMBER field contains the account number for each cost "
^DD(509850,.01,21,2,0)="account as defined in the CDR Handbook issued annually."
^DD(509850,.01,"DT")="2950714"
^DD(509850,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850,1,0)="NAME^RFX^^0;2^K:$L(X)>45!($L(X)<3) X I $D(X) S X=$$UPC^ACKQUTL(X)"
^DD(509850,1,.1)="Name"
^DD(509850,1,3)="Your answer must be 3 to 45 characters in length."
^DD(509850,1,21,0)="^^2^2^2950914^^"
^DD(509850,1,21,1,0)="The NAME field contains a descriptive title for the Cost Distribution"
^DD(509850,1,21,2,0)="Report (CDR) ACCOUNT NUMBER field."
^DD(509850,1,"DT")="2950914"
^DD(509850,2,0)="TYPE^S^N:NORMAL ACCOUNT;E:EDUCATION & TRAINING;R:RESEARCH;P:PASS THROUGH;^0;3^Q"
^DD(509850,2,.1)="Type"
^DD(509850,2,1,0)="^.1"
^DD(509850,2,1,1,0)="509850^AT"
^DD(509850,2,1,1,1)="S ^ACK(509850,""AT"",$E(X,1,30),DA)="""""
^DD(509850,2,1,1,2)="K ^ACK(509850,""AT"",$E(X,1,30),DA)"
^DD(509850,2,1,1,3)="DO NOT DELETE!"
^DD(509850,2,1,1,"%D",0)="^^2^2^2951207^"
^DD(509850,2,1,1,"%D",1,0)="This cross-reference is used to indicate the TYPE of the CDR entry,"
^DD(509850,2,1,1,"%D",2,0)="(i.e., normal, education and training, research, or pass through)."
^DD(509850,2,3)="Enter the CDR account type."
^DD(509850,2,9)="^"
^DD(509850,2,21,0)="^^3^3^2950815^^"
^DD(509850,2,21,1,0)="The TYPE field contains a designator for various kinds of CDR accounts "
^DD(509850,2,21,2,0)="(i.e., N for NORMAL ACCOUNT, R for RESEARCH, E for EDUCATION, or P for "
^DD(509850,2,21,3,0)="PASS THROUGH)."
^DD(509850,2,"DT")="2950714"
^DD(509850,3,0)="CATEGORY^S^1:MEDICAL;2:SURGICAL;3:PSYCHIATRIC;4:VA NURSING HOME;5:INTERMEDIATE CARE;6:OUTPATIENT CARE;7:NON-VA FACILITIES;8:MISC BENEFITS & SVC;9:DOMICILIARY CARE;10:PSYCH RESIDENTIAL REHAB;11:INTERSTATION TRANS;12:SPEC INTEREST PROGRAMS;^0;4^Q"
^DD(509850,3,.1)="Category"
^DD(509850,3,3)="Enter the CDR account category."
^DD(509850,3,9)="^"
^DD(509850,3,21,0)="^^2^2^2950815^^^^"
^DD(509850,3,21,1,0)="The CATEGORY field refers to the cost account series headings (e.g., "
^DD(509850,3,21,2,0)="MEDICAL, SURGICAL, etc.)."
^DD(509850,3,"DT")="2950926"
^DD(509850,4,0)="ACTIVE^S^0:INACTIVE;1:ACTIVE;^0;5^Q"
^DD(509850,4,.1)="Active"
^DD(509850,4,3)="Enter 0 for INACTIVE or 1 for ACTIVE."
^DD(509850,4,9)="^"
^DD(509850,4,21,0)="^^5^5^2950815^^"
^DD(509850,4,21,1,0)="The ACTIVE field contains 0 for INACTIVE or 1 for ACTIVE.  Because"
^DD(509850,4,21,2,0)="entries in the CDR ACCOUNT file are pointed to by the CDR ACCOUNT"
^DD(509850,4,21,3,0)="field in the A&SP CLINIC VISIT file, entries should not be deleted."
^DD(509850,4,21,4,0)="CDR account numbers which are not to be used should be marked as"
^DD(509850,4,21,5,0)="inactive."
^DD(509850,4,"DT")="2950815"
^DD(509850,"B","ACCOUNT NUMBER",.01)=""
^DD(509850,"B","ACTIVE",4)=""
^DD(509850,"B","Account Number",.01)="1"
^DD(509850,"B","Active",4)="1"
^DD(509850,"B","CATEGORY",3)=""
^DD(509850,"B","Category",3)="1"
^DD(509850,"B","NAME",1)=""
^DD(509850,"B","Name",1)="1"
^DD(509850,"B","TYPE",2)=""
^DD(509850,"B","Type",2)="1"
^DD(509850,"GL",0,1,.01)=""
^DD(509850,"GL",0,2,1)=""
^DD(509850,"GL",0,3,2)=""
^DD(509850,"GL",0,4,3)=""
^DD(509850,"GL",0,5,4)=""
^DD(509850,"IX",.01)=""
^DD(509850,"IX",2)=""
^DD(509850,"RQ",.01)=""
^DD(509850,"RQ",1)=""
^DD(509850.1,0)="FIELD^^1^7"
^DD(509850.1,0,"DDA")="N"
^DD(509850.1,0,"DT")="2991029"
^DD(509850.1,0,"ID","WRITE")=""
^DD(509850.1,0,"IX","AC",509850.1,.02)=""
^DD(509850.1,0,"IX","ACSC",509850.1,.04)=""
^DD(509850.1,0,"IX","B",509850.1,.01)=""
^DD(509850.1,0,"NM","A&SP DIAGNOSTIC CONDITION")=""
^DD(509850.1,0,"PT",509850.22,.01)=""
^DD(509850.1,0,"PT",509850.63,.01)=""
^DD(509850.1,0,"VR")="3.0"
^DD(509850.1,0,"VRPK")="QUASAR"
^DD(509850.1,.01,0)="CODE^RP80'X^ICD9(^0;1^K:'$$ACKICD^ACKQUT1(X) X S:$D(X) DINUM=X"
^DD(509850.1,.01,.1)="Code"
^DD(509850.1,.01,1,0)="^.1"
^DD(509850.1,.01,1,1,0)="509850.1^B"
^DD(509850.1,.01,1,1,1)="S ^ACK(509850.1,""B"",$E(X,1,30),DA)="""""
^DD(509850.1,.01,1,1,2)="K ^ACK(509850.1,""B"",$E(X,1,30),DA)"
^DD(509850.1,.01,3)="Enter the ICD-9CM code number."
^DD(509850.1,.01,4)="W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.1,.01,9)="^"
^DD(509850.1,.01,21,0)="^.001^2^2^3001002^^^^"
^DD(509850.1,.01,21,1,0)="The CODE field contains the pointer to the diagnostic condition code for "
^DD(509850.1,.01,21,2,0)="Audiology and Speech Pathology."
^DD(509850.1,.01,"DT")="3030226"
^DD(509850.1,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850.1,.02,0)="MODIFIERS ALLOWED^S^1:YES;0:NO;^0;2^Q"
^DD(509850.1,.02,.1)="Modifiers Allowed"
^DD(509850.1,.02,1,0)="^.1"
^DD(509850.1,.02,1,1,0)="509850.1^AC^MUMPS"
^DD(509850.1,.02,1,1,1)="S:X ^ACK(509850.1,""AC"",X,DA)="""""
^DD(509850.1,.02,1,1,2)="K:X ^ACK(509850.1,""AC"",X,DA)"
^DD(509850.1,.02,1,1,3)="DO NOT DELETE!"
^DD(509850.1,.02,1,1,"%D",0)="^^2^2^2951207^^"
^DD(509850.1,.02,1,1,"%D",1,0)="This cross-reference is used to identify those ICD-9CM codes which"
^DD(509850.1,.02,1,1,"%D",2,0)="are distributed with modifiers."
^DD(509850.1,.02,1,1,"DT")="2920824"
^DD(509850.1,.02,3)="Does this CODE contain modifiers?"
^DD(509850.1,.02,9)="^"
^DD(509850.1,.02,21,0)="^^7^7^2991029^^"
^DD(509850.1,.02,21,1,0)="No longer used after the installation of Quasar Version 3.0."
^DD(509850.1,.02,21,2,0)="The MODIFIERS ALLOWED field activates or inactivates ICD-9CM code "
^DD(509850.1,.02,21,3,0)="modifiers (i.e., 0 for NO or 1 for YES).  ICD-9CM codes for Audiology and "
^DD(509850.1,.02,21,4,0)="Speech Pathology may not adequately describe the scope or variety of "
^DD(509850.1,.02,21,5,0)="problems seen by audiologists and speech pathologists. Recognizing this "
^DD(509850.1,.02,21,6,0)="deficiency, modifiers have been developed for certain codes to clarify "
^DD(509850.1,.02,21,7,0)="diseases or to provide codes for diseases where no codes now exist."
^DD(509850.1,.02,"DT")="2991029"
^DD(509850.1,.03,0)="*CARD CODE^NJ2,0^^0;3^K:+X'=X!(X>70)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.1,.03,.1)="Card Code"
^DD(509850.1,.03,1,0)="^.1^^0"
^DD(509850.1,.03,3)="Enter a number between 1 and 70 with 0 decimal digits."
^DD(509850.1,.03,9)="^"
^DD(509850.1,.03,21,0)="^^3^3^2950815^^^^"
^DD(509850.1,.03,21,1,0)="The CARD CODE field has been marked for deletion.  Card code capability "
^DD(509850.1,.03,21,2,0)="was not implemented in QUASAR V. 1.0.  Eighteen months after the release "
^DD(509850.1,.03,21,3,0)="of QUASAR V. 2.0, this field can be removed."
^DD(509850.1,.03,"DT")="2950824"
^DD(509850.1,.04,0)="CLINIC STOP^S^A:AUDIOLOGY;S:SPEECH;SA:EITHER;^0;4^Q"
^DD(509850.1,.04,.1)="Clinic Stop"
^DD(509850.1,.04,1,0)="^.1"
^DD(509850.1,.04,1,1,0)="509850.1^ACSC"
^DD(509850.1,.04,1,1,1)="S ^ACK(509850.1,""ACSC"",$E(X,1,30),DA)="""""
^DD(509850.1,.04,1,1,2)="K ^ACK(509850.1,""ACSC"",$E(X,1,30),DA)"
^DD(509850.1,.04,1,1,3)="DO NOT DELETE!"
^DD(509850.1,.04,1,1,"%D",0)="^^2^2^2951207^"
^DD(509850.1,.04,1,1,"%D",1,0)="This cross-reference indicates which stop code the ICD-9CM code"
^DD(509850.1,.04,1,1,"%D",2,0)="can be used for, (i.e., Audiology, Speech Pathology, or either)."
^DD(509850.1,.04,3)="Enter the clinic stop for this ICD-9CM code."
^DD(509850.1,.04,9)="^"
^DD(509850.1,.04,21,0)="^^3^3^2950815^^^^"
^DD(509850.1,.04,21,1,0)="The CLINIC STOP field contains A for AUDIOLOGY, S for SPEECH PATHOLOGY, "
^DD(509850.1,.04,21,2,0)="or SA for EITHER Speech or Audiology.  The ICD-9CM CODE is used for one "
^DD(509850.1,.04,21,3,0)="of these clinic stops."
^DD(509850.1,.04,"DT")="2950815"
^DD(509850.1,.05,0)="HEARING LOSS CODE^S^0:NO;1:YES;^0;5^Q"
^DD(509850.1,.05,.1)="Hearing Loss Code?"
^DD(509850.1,.05,3)="Enter 0 for NO or 1 for YES."
^DD(509850.1,.05,9)="^"
^DD(509850.1,.05,21,0)="^^6^6^2950824^^"
^DD(509850.1,.05,21,1,0)="Audiometric fields are required for C&P exams but are optional"
^DD(509850.1,.05,21,2,0)="for routine exams.  The only exception to this is if the problem"
^DD(509850.1,.05,21,3,0)="involves an ICD-9CM code which indicates a hearing loss."
^DD(509850.1,.05,21,4,0)="The HEARING LOSS CODE field contains 1 or YES if this ICD-9CM"
^DD(509850.1,.05,21,5,0)="code requires the asking of the audiometric questions.  The field"
^DD(509850.1,.05,21,6,0)="contains 0 or NO if the ICD-9CM code is not a hearing loss code."
^DD(509850.1,.05,"DT")="2950824"
^DD(509850.1,.06,0)="ACTIVE^S^0:INACTIVE;1:ACTIVE;^0;6^Q"
^DD(509850.1,.06,.1)="Active?"
^DD(509850.1,.06,3)="Enter 0 for INACTIVE or 1 for ACTIVE."
^DD(509850.1,.06,9)="^"
^DD(509850.1,.06,21,0)="^^9^9^2950815^^^^"
^DD(509850.1,.06,21,1,0)="The ACTIVE field contains 0 for INACTIVE or 1 for ACTIVE.  Because "
^DD(509850.1,.06,21,2,0)="entries in the A&SP DIAGNOSTIC CONDITION file are pointed to by the "
^DD(509850.1,.06,21,3,0)="DIAGNOSTIC CODE field in the A&SP CLINIC VISIT file, entries should not "
^DD(509850.1,.06,21,4,0)="be deleted."
^DD(509850.1,.06,21,5,0)="  "
^DD(509850.1,.06,21,6,0)="Periodically, ICD-9CM codes are inactivated by the code developers, the "
^DD(509850.1,.06,21,7,0)="Department of Veterans Affairs, or the Director, Audiology and Speech "
^DD(509850.1,.06,21,8,0)="Pathology Service (VAHQ).  Diagnostic codes which are not to be used are "
^DD(509850.1,.06,21,9,0)="marked as inactive."
^DD(509850.1,.06,"DT")="2950724"
^DD(509850.1,1,0)="ALLOWABLE MODIFIERS^509850.11^^1;0"
^DD(509850.1,1,9)="^"
^DD(509850.1,1,21,0)="^^2^2^2951208^^^^"
^DD(509850.1,1,21,1,0)="The ALLOWABLE MODIFIERS field is a multiple field containing the"
^DD(509850.1,1,21,2,0)="letter and description for an ICD-9 diagnostic code modifier."
^DD(509850.1,1,"DT")="2920113"
^DD(509850.1,"B","*CARD CODE",.03)=""
^DD(509850.1,"B","ACTIVE",.06)=""
^DD(509850.1,"B","ALLOWABLE MODIFIERS",1)=""
^DD(509850.1,"B","Active?",.06)="1"
^DD(509850.1,"B","CLINIC STOP",.04)=""
^DD(509850.1,"B","CODE",.01)=""
^DD(509850.1,"B","Card Code",.03)="1"
^DD(509850.1,"B","Clinic Stop",.04)="1"
^DD(509850.1,"B","Code",.01)="1"
^DD(509850.1,"B","HEARING LOSS CODE",.05)=""
^DD(509850.1,"B","Hearing Loss Code?",.05)="1"
^DD(509850.1,"B","MODIFIERS ALLOWED",.02)=""
^DD(509850.1,"B","Modifiers Allowed",.02)="1"
^DD(509850.1,"GL",0,1,.01)=""
^DD(509850.1,"GL",0,2,.02)=""
^DD(509850.1,"GL",0,3,.03)=""
^DD(509850.1,"GL",0,4,.04)=""
^DD(509850.1,"GL",0,5,.05)=""
^DD(509850.1,"GL",0,6,.06)=""
^DD(509850.1,"GL",1,0,1)=""
^DD(509850.1,"IX",.01)=""
^DD(509850.1,"IX",.02)=""
^DD(509850.1,"IX",.04)=""
^DD(509850.1,"RQ",.01)=""
^DD(509850.1,"SB",509850.11,1)=""
^DD(509850.11,0)="ALLOWABLE MODIFIERS SUB-FIELD^^.04^3"
^DD(509850.11,0,"DT")="2920420"
^DD(509850.11,0,"IX","B",509850.11,.01)=""
^DD(509850.11,0,"NM","ALLOWABLE MODIFIERS")=""
^DD(509850.11,0,"UP")="509850.1"
^DD(509850.11,.01,0)="ALLOWABLE MODIFIERS^MFX^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(509850.11,.01,.1)="Allowable Modifiers"
^DD(509850.11,.01,1,0)="^.1"
^DD(509850.11,.01,1,1,0)="509850.11^B"
^DD(509850.11,.01,1,1,1)="S ^ACK(509850.1,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.11,.01,1,1,2)="K ^ACK(509850.1,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.11,.01,3)="Enter a modifier code for this ICD-9 diagnostic condition."
^DD(509850.11,.01,4)="W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.11,.01,21,0)="^^10^10^2951208^^^^"
^DD(509850.11,.01,21,1,0)="The ALLOWABLE MODIFIERS field contains the letter modifiers for an ICD-"
^DD(509850.11,.01,21,2,0)="9CM diagnostic code.  ICD-9CM codes for Audiology and Speech Pathology "
^DD(509850.11,.01,21,3,0)="may not adequately describe the scope or variety of problems seen by "
^DD(509850.11,.01,21,4,0)="audiologists and speech pathologists. Recognizing this deficiency, "
^DD(509850.11,.01,21,5,0)="modifiers have been developed for certain codes to clarify diseases  "
^DD(509850.11,.01,21,6,0)="or to provide codes for diseases where no codes now exist. New modifiers "
^DD(509850.11,.01,21,7,0)="should only be added at the direction of the Director, Audiology and"
^DD(509850.11,.01,21,8,0)="Speech Pathology Service (VAHQ).  For some reporting applications, "
^DD(509850.11,.01,21,9,0)="the modifiers will be deleted and only the standard ICD-9CM code will "
^DD(509850.11,.01,21,10,0)="be reported."
^DD(509850.11,.01,"DT")="2950824"
^DD(509850.11,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>35!($L(X)<3) X"
^DD(509850.11,.02,.1)="Description"
^DD(509850.11,.02,3)="Your answer must be 3 to 35 characters in length."
^DD(509850.11,.02,21,0)="^^3^3^2950914^^^"
^DD(509850.11,.02,21,1,0)="The DESCRIPTION field contains the descriptor for the modifier of the "
^DD(509850.11,.02,21,2,0)="ICD-9CM diagnostic code.  This descriptor should only be edited at the "
^DD(509850.11,.02,21,3,0)="direction of the Director, Audiology and Speech Pathology Service (VAHQ)."
^DD(509850.11,.02,"DT")="2950724"
^DD(509850.11,.04,0)="*CARD CODE^NJ2,0^^0;4^K:+X'=X!(X>70)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.11,.04,.1)="Card Code"
^DD(509850.11,.04,1,0)="^.1^^0"
^DD(509850.11,.04,3)="Enter a number between 1 and 70 with 0 decimal digits."
^DD(509850.11,.04,21,0)="^^3^3^2950815^^^"
^DD(509850.11,.04,21,1,0)="The CARD CODE field has been marked for deletion.  Card code capability "
^DD(509850.11,.04,21,2,0)="was not implemented in QUASAR V. 1.0.  Eighteen months after the release "
^DD(509850.11,.04,21,3,0)="of QUASAR V. 2.0, this field can be removed."
^DD(509850.11,.04,"DT")="2950824"
^DD(509850.11,"B","*CARD CODE",.04)=""
^DD(509850.11,"B","ALLOWABLE MODIFIERS",.01)=""
^DD(509850.11,"B","Allowable Modifiers",.01)="1"
^DD(509850.11,"B","Card Code",.04)="1"
^DD(509850.11,"B","DESCRIPTION",.02)=""
^DD(509850.11,"B","Description",.02)="1"
^DD(509850.11,"GL",0,1,.01)=""
^DD(509850.11,"GL",0,2,.02)=""
^DD(509850.11,"GL",0,4,.04)=""
^DD(509850.11,"IX",.01)=""
^DD(509850.2,0)="FIELD^^2^4"
^DD(509850.2,0,"DDA")="N"
^DD(509850.2,0,"IX","B",509850.2,.01)=""
^DD(509850.2,0,"NM","A&SP PATIENT")=""
^DD(509850.2,0,"PT",509850.6,1)=""
^DD(509850.2,0,"VR")="3.0"
^DD(509850.2,0,"VRPK")="QUASAR"
^DD(509850.2,.01,0)="NAME^RP2'X^DPT(^0;1^S DINUM=X"
^DD(509850.2,.01,.1)="Name"
^DD(509850.2,.01,1,0)="^.1"
^DD(509850.2,.01,1,1,0)="509850.2^B"
^DD(509850.2,.01,1,1,1)="S ^ACK(509850.2,""B"",$E(X,1,30),DA)="""""
^DD(509850.2,.01,1,1,2)="K ^ACK(509850.2,""B"",$E(X,1,30),DA)"
^DD(509850.2,.01,3)="Enter the patient's name."
^DD(509850.2,.01,4)="K DZ"
^DD(509850.2,.01,9)="^"
^DD(509850.2,.01,21,0)="^^2^2^2990910^^^"
^DD(509850.2,.01,21,1,0)="The NAME field contains the name of the patient seen in the Audiology"
^DD(509850.2,.01,21,2,0)="and Speech Pathology clinics."
^DD(509850.2,.01,"DT")="2950724"
^DD(509850.2,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850.2,.03,0)="ASP FILE NUMBER^FX^^0;3^K:$L(X)>15!($L(X)<4) X"
^DD(509850.2,.03,.1)="A&SP File Number"
^DD(509850.2,.03,3)="Your answer must be 4 to 15 characters in length."
^DD(509850.2,.03,9)="^"
^DD(509850.2,.03,21,0)="^^6^6^2990707^^^^"
^DD(509850.2,.03,21,1,0)="The ASP FILE NUMBER field contains an existing LOCAL file number "
^DD(509850.2,.03,21,2,0)="associated with this Audiology and Speech Pathology patient.  Some "
^DD(509850.2,.03,21,3,0)="Audiology and Speech Pathology Services may use locally-determined file "
^DD(509850.2,.03,21,4,0)="numbers to track and control clinic files.  This field does NOT contain "
^DD(509850.2,.03,21,5,0)="the patient's social security number.  Use of this field is optional and "
^DD(509850.2,.03,21,6,0)="is controlled by the USE ASP CLINIC FILE NUMBER site parameter."
^DD(509850.2,.03,"DT")="2990616"
^DD(509850.2,1,0)="INITIAL VISIT DATE^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.2,1,.1)="Initial Visit Date"
^DD(509850.2,1,1,0)="^.1^^0"
^DD(509850.2,1,3)="Enter the date of this patient's first visit to A&SP."
^DD(509850.2,1,5,1,0)="509850.6^1^4"
^DD(509850.2,1,9)="^"
^DD(509850.2,1,21,0)="^^3^3^2990707^^^^"
^DD(509850.2,1,21,1,0)="The INITIAL VISIT DATE field contains the date (if known) of this "
^DD(509850.2,1,21,2,0)="patient's first visit to the Audiology and/or Speech Pathology clinic "
^DD(509850.2,1,21,3,0)="at this site.  This field can be left blank."
^DD(509850.2,1,23,0)="^^6^6^2990707^^^^"
^DD(509850.2,1,23,1,0)="When a visit is entered for a patient, the patient's record is "
^DD(509850.2,1,23,2,0)="checked to see if the INITIAL VISIT DATE has been entered for that "
^DD(509850.2,1,23,3,0)="patient.  If there is not one, the user is prompted for one."
^DD(509850.2,1,23,4,0)="  "
^DD(509850.2,1,23,5,0)="This action is based on a trigger on the PATIENT NAME field of the"
^DD(509850.2,1,23,6,0)="A&SP CLINIC VISIT file (#509850.6)."
^DD(509850.2,1,"DT")="2990412"
^DD(509850.2,2,0)="DIAGNOSTIC CONDITION^509850.22P^^1;0"
^DD(509850.2,2,9)="^"
^DD(509850.2,2,21,0)="^^3^3^2990521^^^^"
^DD(509850.2,2,21,1,0)="The DIAGNOSTIC CONDITION field contains the ICD-9CM diagnostic condition "
^DD(509850.2,2,21,2,0)="code for the A&SP patient.  Disease codes listed in this field appear in "
^DD(509850.2,2,21,3,0)="the A&SP Problem List."
^DD(509850.2,2,"DT")="2950727"
^DD(509850.2,"B","A&SP File Number",.03)="1"
^DD(509850.2,"B","ASP FILE NUMBER",.03)=""
^DD(509850.2,"B","DIAGNOSTIC CONDITION",2)=""
^DD(509850.2,"B","INITIAL VISIT DATE",1)=""
^DD(509850.2,"B","Initial Visit Date",1)="1"
^DD(509850.2,"B","NAME",.01)=""
^DD(509850.2,"B","Name",.01)="1"
^DD(509850.2,"GL",0,1,.01)=""
^DD(509850.2,"GL",0,2,1)=""
^DD(509850.2,"GL",0,3,.03)=""
^DD(509850.2,"GL",1,0,2)=""
^DD(509850.2,"IX",.01)=""
^DD(509850.2,"RQ",.01)=""
^DD(509850.2,"SB",509850.22,2)=""
^DD(509850.22,0)="DIAGNOSTIC CONDITION SUB-FIELD^^1^2"
^DD(509850.22,0,"IX","B",509850.22,.01)=""
^DD(509850.22,0,"NM","DIAGNOSTIC CONDITION")=""
^DD(509850.22,0,"UP")="509850.2"
^DD(509850.22,.01,0)="DIAGNOSTIC CONDITION^MP509850.1'^ACK(509850.1,^0;1^Q"
^DD(509850.22,.01,.1)="Diagnostic Condition"
^DD(509850.22,.01,1,0)="^.1"
^DD(509850.22,.01,1,1,0)="509850.22^B"
^DD(509850.22,.01,1,1,1)="S ^ACK(509850.2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.22,.01,1,1,2)="K ^ACK(509850.2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.22,.01,3)="Enter the ICD-9 code for this patient."
^DD(509850.22,.01,21,0)="^^3^3^2950815^^^"
^DD(509850.22,.01,21,1,0)="The DIAGNOSTIC CONDITION field contains the ICD-9CM diagnostic condition "
^DD(509850.22,.01,21,2,0)="code for the A&SP patient.  Disease codes listed in this field appear in "
^DD(509850.22,.01,21,3,0)="the A&SP Problem List."
^DD(509850.22,.01,"DT")="2950727"
^DD(509850.22,1,0)="DATE CONDITION ENTERED^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.22,1,.1)="Date Condition Entered"
^DD(509850.22,1,3)="Enter the date the ICD-9 code was submitted for this patient."
^DD(509850.22,1,21,0)="^^3^3^2950815^^"
^DD(509850.22,1,21,1,0)="The DATE CONDITION ENTERED field contains the date the DIAGNOSTIC "
^DD(509850.22,1,21,2,0)="CONDITION was entered for the A&SP patient.  This field appears in the "
^DD(509850.22,1,21,3,0)="A&SP Problem List."
^DD(509850.22,1,"DT")="2950724"
^DD(509850.22,"B","DATE CONDITION ENTERED",1)=""
^DD(509850.22,"B","DIAGNOSTIC CONDITION",.01)=""
^DD(509850.22,"B","Date Condition Entered",1)="1"
^DD(509850.22,"B","Diagnostic Condition",.01)="1"
^DD(509850.22,"GL",0,1,.01)=""
^DD(509850.22,"GL",0,2,1)=""
^DD(509850.22,"IX",.01)=""
^DD(509850.3,0)="FIELD^^.06^6"
^DD(509850.3,0,"DDA")="N"
^DD(509850.3,0,"DT")="2991122"
^DD(509850.3,0,"IX","ALID",509850.3,.05)=""
^DD(509850.3,0,"IX","B",509850.3,.01)=""
^DD(509850.3,0,"IX","C",509850.3,.05)=""
^DD(509850.3,0,"IX","D",509850.3,.01)=""
^DD(509850.3,0,"NM","A&SP STAFF")=""
^DD(509850.3,0,"PT",509850.6,.25)=""
^DD(509850.3,0,"PT",509850.6,.27)=""
^DD(509850.3,0,"PT",509850.6,6)=""
^DD(509850.3,0,"PT",509850.6,7)=""
^DD(509850.3,0,"PT",509850.6,8)=""
^DD(509850.3,0,"PT",509850.61,.05)=""
^DD(509850.3,0,"PT",509850.615,.05)=""
^DD(509850.3,0,"PT",509850.63,.14)=""
^DD(509850.3,0,"PT",509850.66,.01)=""
^DD(509850.3,0,"VR")="3.0"
^DD(509850.3,0,"VRPK")="QUASAR"
^DD(509850.3,.01,0)="NAME^RP8930.3'XI^USR(8930.3,^0;1^Q"
^DD(509850.3,.01,.1)="Name"
^DD(509850.3,.01,1,0)="^.1"
^DD(509850.3,.01,1,1,0)="509850.3^B"
^DD(509850.3,.01,1,1,1)="S ^ACK(509850.3,""B"",$E(X,1,30),DA)="""""
^DD(509850.3,.01,1,1,2)="K ^ACK(509850.3,""B"",$E(X,1,30),DA)"
^DD(509850.3,.01,1,2,0)="509850.3^D^MUMPS"
^DD(509850.3,.01,1,2,1)="D STAFFREF^ACKQUTL6(X,DA)"
^DD(509850.3,.01,1,2,2)="Q"
^DD(509850.3,.01,1,2,3)="Do not Delete"
^DD(509850.3,.01,1,2,"%D",0)="^^2^2^2991126^^"
^DD(509850.3,.01,1,2,"%D",1,0)="Creates a Cross reference using the user actual name.  This reference is"
^DD(509850.3,.01,1,2,"%D",2,0)="used for partial name lookups during Provider Name input."
^DD(509850.3,.01,1,2,"DT")="2991126"
^DD(509850.3,.01,3)="Enter the name of the staff member."
^DD(509850.3,.01,9)="^"
^DD(509850.3,.01,21,0)="^^4^4^2991123^^^^"
^DD(509850.3,.01,21,1,0)="The NAME field contains the name of the clinician, fee basis clinician, "
^DD(509850.3,.01,21,2,0)="other provider (e.g., health technician), or student providing direct care "
^DD(509850.3,.01,21,3,0)="in the clinic.  New names can be added to the A&SP STAFF file at any "
^DD(509850.3,.01,21,4,0)="time.  However, staff names should NEVER be deleted."
^DD(509850.3,.01,"DT")="2991126"
^DD(509850.3,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850.3,.02,0)="STATUS^S^S:STUDENT;C:CLINICIAN;F:FEE BASIS CLINICIAN;O:OTHER PROVIDER;^0;2^Q"
^DD(509850.3,.02,.1)="Status"
^DD(509850.3,.02,3)="Enter the staff member's status."
^DD(509850.3,.02,9)="^"
^DD(509850.3,.02,21,0)="^^3^3^2991122^^^^"
^DD(509850.3,.02,21,1,0)="STATUS identifies the position of the individual in the NAME field "
^DD(509850.3,.02,21,2,0)="as a clinician, fee basis clinician, other provider (e.g., health "
^DD(509850.3,.02,21,3,0)="technician), or student."
^DD(509850.3,.02,"DT")="2950815"
^DD(509850.3,.03,0)="ACTIVATION DATE^DX^^0;3^S %DT=""EX"" D ^%DT S:'$$ADATE^ACKQUTL6(D0,Y) Y=0 S X=Y K:Y<1 X"
^DD(509850.3,.03,.1)="Activation Date"
^DD(509850.3,.03,3)="Enter the date this person became actively associated with A&SP clinic visits.  Activation date must be before Inactivation date."
^DD(509850.3,.03,9)="^"
^DD(509850.3,.03,21,0)="^^3^3^2991122^^^^"
^DD(509850.3,.03,21,1,0)="ACTIVATION DATE is the earliest date that this individual is to be "
^DD(509850.3,.03,21,2,0)="associated with A&SP clinic visits.  You can enter EOD date or initial "
^DD(509850.3,.03,21,3,0)="QUASAR activation date."
^DD(509850.3,.03,"DT")="2990902"
^DD(509850.3,.04,0)="INACTIVATION DATE^DX^^0;4^S %DT=""EX"" D ^%DT S:'$$IDATE^ACKQUTL6(D0,Y) Y=0 S X=Y K:Y<1 X"
^DD(509850.3,.04,.1)="Inactivation Date"
^DD(509850.3,.04,3)="Enter the date this person was inactivated. Inactivation date must be after the Activation date."
^DD(509850.3,.04,9)="^"
^DD(509850.3,.04,21,0)="^^3^3^2991122^^^^"
^DD(509850.3,.04,21,1,0)="INACTIVATION DATE is the date when this individual is no longer "
^DD(509850.3,.04,21,2,0)="associated with A&SP clinic visits.  You can enter the employee's "
^DD(509850.3,.04,21,3,0)="termination date."
^DD(509850.3,.04,"DT")="2990902"
^DD(509850.3,.05,0)="ID NUMBER^RFX^^0;5^S X=+X,X=$E(""0000"",1,4-$L(X))_X K:X'?4N X I $D(X) S X1=$O(^ACK(509850.3,""C"",X,0)) I X1 W !,*7,""But "",X,"" is already used by "",$$CONVERT^ACKQUTL4(X1),""!"" K X"
^DD(509850.3,.05,.1)="ID Number"
^DD(509850.3,.05,1,0)="^.1"
^DD(509850.3,.05,1,1,0)="509850.3^ALID^MUMPS"
^DD(509850.3,.05,1,1,1)="D STAFFNO^ACKQUTL6(X)"
^DD(509850.3,.05,1,1,2)="Q"
^DD(509850.3,.05,1,1,3)="DO NOT DELETE!"
^DD(509850.3,.05,1,1,"%D",0)="^^1^1^2990831^^^^"
^DD(509850.3,.05,1,1,"%D",1,0)="This cross-reference stores the highest used ID NUMBER."
^DD(509850.3,.05,1,1,"DT")="2990831"
^DD(509850.3,.05,1,2,0)="509850.3^C"
^DD(509850.3,.05,1,2,1)="S ^ACK(509850.3,""C"",$E(X,1,30),DA)="""""
^DD(509850.3,.05,1,2,2)="K ^ACK(509850.3,""C"",$E(X,1,30),DA)"
^DD(509850.3,.05,1,2,3)="DO NOT DELETE!"
^DD(509850.3,.05,1,2,"%D",0)="^^1^1^2951207^^"
^DD(509850.3,.05,1,2,"%D",1,0)="This cross-reference allows lookup of A&SP staff by the ID NUMBER field."
^DD(509850.3,.05,1,2,"DT")="2911230"
^DD(509850.3,.05,3)="Your answer must be unique and 4 characters in length."
^DD(509850.3,.05,4)="S ACK=$G(^ACK(509850.3,""ALID""))+1 W !?5,""The next available ID NUMBER is "",$E(""0000"",1,4-$L(ACK))_ACK,""."",!"
^DD(509850.3,.05,9)="^"
^DD(509850.3,.05,21,0)="^^3^3^2991122^^^^"
^DD(509850.3,.05,21,1,0)="The ID NUMBER field is used at stations that use code numbers in lieu of "
^DD(509850.3,.05,21,2,0)="provider names.  QUASAR provides a sequential default number staring with "
^DD(509850.3,.05,21,3,0)="0001, but any unique four digit number is accepted."
^DD(509850.3,.05,"DT")="2991208"
^DD(509850.3,.06,0)="SUPERVISOR^S^0:NO;1:YES;^0;6^Q"
^DD(509850.3,.06,.1)="Supervisor"
^DD(509850.3,.06,3)="Answer YES or NO."
^DD(509850.3,.06,4)="W !?5,""Answer 0 or NO if this staff person is not a supervisor."",!?5,""Answer 1 or YES if this staff person is a supervisor."",!"
^DD(509850.3,.06,9)="^"
^DD(509850.3,.06,21,0)="^^5^5^2950815^^^^"
^DD(509850.3,.06,21,1,0)="The SUPERVISOR field determines whether or not this staff member is a "
^DD(509850.3,.06,21,2,0)="supervisor.  Supervisors have access to certain functions within the "
^DD(509850.3,.06,21,3,0)="QUASAR package that is not available to other staff members, such as C&P "
^DD(509850.3,.06,21,4,0)="exam adequation of exams performed by other clinicians.  Non-supervisory "
^DD(509850.3,.06,21,5,0)="clinicians can only adequate their own exams."
^DD(509850.3,.06,"DT")="2950626"
^DD(509850.3,"B","ACTIVATION DATE",.03)=""
^DD(509850.3,"B","Activation Date",.03)="1"
^DD(509850.3,"B","ID NUMBER",.05)=""
^DD(509850.3,"B","ID Number",.05)="1"
^DD(509850.3,"B","INACTIVATION DATE",.04)=""
^DD(509850.3,"B","Inactivation Date",.04)="1"
^DD(509850.3,"B","NAME",.01)=""
^DD(509850.3,"B","Name",.01)="1"
^DD(509850.3,"B","STATUS",.02)=""
^DD(509850.3,"B","SUPERVISOR",.06)=""
^DD(509850.3,"B","Status",.02)="1"
^DD(509850.3,"B","Supervisor",.06)="1"
^DD(509850.3,"GL",0,1,.01)=""
^DD(509850.3,"GL",0,2,.02)=""
^DD(509850.3,"GL",0,3,.03)=""
^DD(509850.3,"GL",0,4,.04)=""
^DD(509850.3,"GL",0,5,.05)=""
^DD(509850.3,"GL",0,6,.06)=""
^DD(509850.3,"IX",.01)=""
^DD(509850.3,"IX",.05)=""
^DD(509850.3,"RQ",.01)=""
^DD(509850.3,"RQ",.05)=""
^DD(509850.4,0)="FIELD^^1^7"
^DD(509850.4,0,"DDA")="N"
^DD(509850.4,0,"DT")="2991029"
^DD(509850.4,0,"ID","WRITE")=""
^DD(509850.4,0,"IX","AC",509850.4,.05)=""
^DD(509850.4,0,"IX","B",509850.4,.01)=""
^DD(509850.4,0,"NM","A&SP PROCEDURE CODE")=""
^DD(509850.4,0,"PT",509850.61,.01)=""
^DD(509850.4,0,"VR")="3.0"
^DD(509850.4,0,"VRPK")="QUASAR"
^DD(509850.4,.01,0)="CODE^RP81'X^ICPT(^0;1^K:'$$ACKCPT^ACKQUT1(X) X S:$D(X) DINUM=X"
^DD(509850.4,.01,.1)="Code"
^DD(509850.4,.01,1,0)="^.1"
^DD(509850.4,.01,1,1,0)="509850.4^B"
^DD(509850.4,.01,1,1,1)="S ^ACK(509850.4,""B"",$E(X,1,30),DA)="""""
^DD(509850.4,.01,1,1,2)="K ^ACK(509850.4,""B"",$E(X,1,30),DA)"
^DD(509850.4,.01,3)="Enter the CPT code number."
^DD(509850.4,.01,4)="W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.4,.01,9)="^"
^DD(509850.4,.01,21,0)="^.001^2^2^3001002^^^^"
^DD(509850.4,.01,21,1,0)="The CODE field contains the pointer to the CPT-4 procedure code for "
^DD(509850.4,.01,21,2,0)="Audiology and Speech Pathology."
^DD(509850.4,.01,"DT")="3030414"
^DD(509850.4,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850.4,.02,0)="CLINIC STOP^S^S:SPEECH;A:AUDIOLOGY;SA:EITHER;^0;2^Q"
^DD(509850.4,.02,.1)="Clinic Stop"
^DD(509850.4,.02,3)="Enter the clinic stop for this CPT CODE."
^DD(509850.4,.02,9)="^"
^DD(509850.4,.02,21,0)="^^3^3^2950815^^^"
^DD(509850.4,.02,21,1,0)="The CLINIC STOP field contains A for AUDIOLOGY, S for SPEECH PATHOLOGY, "
^DD(509850.4,.02,21,2,0)="or SA for EITHER Speech or Audiology.  The CPT CODE is used for one of "
^DD(509850.4,.02,21,3,0)="these clinic stops."
^DD(509850.4,.02,"DT")="2950725"
^DD(509850.4,.03,0)="*CARD CODE^NJ2,0^^0;3^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.4,.03,.1)="Card Code"
^DD(509850.4,.03,3)="Enter a number between 1 and 60 with 0 decimal digits."
^DD(509850.4,.03,9)="^"
^DD(509850.4,.03,21,0)="^^3^3^2950815^^"
^DD(509850.4,.03,21,1,0)="The CARD CODE field has been marked for deletion.  Card code capability "
^DD(509850.4,.03,21,2,0)="was not implemented in QUASAR V. 1.0.  Eighteen months after the release "
^DD(509850.4,.03,21,3,0)="of QUASAR V. 2.0, this field can be removed."
^DD(509850.4,.03,"DT")="2950814"
^DD(509850.4,.04,0)="ACTIVE^S^0:INACTIVE;1:ACTIVE;^0;4^Q"
^DD(509850.4,.04,.1)="Active?"
^DD(509850.4,.04,3)="Enter 0 for INACTIVE or 1 for ACTIVE."
^DD(509850.4,.04,9)="^"
^DD(509850.4,.04,21,0)="^^8^8^2950815^^"
^DD(509850.4,.04,21,1,0)="The ACTIVE field contains 0 for INACTIVE or 1 for ACTIVE.  Because "
^DD(509850.4,.04,21,2,0)="entries in the A&SP PROCEDURE CODE file are pointed to by the PROCEDURE "
^DD(509850.4,.04,21,3,0)="CODE field in the A&SP CLINIC VISIT file, entries should not be deleted."
^DD(509850.4,.04,21,4,0)="  "
^DD(509850.4,.04,21,5,0)="Periodically, CPT-4 codes are inactivated by the code developers, the "
^DD(509850.4,.04,21,6,0)="Department of Veterans Affairs, or the Director, Audiology and Speech "
^DD(509850.4,.04,21,7,0)="Pathology Service (VAHQ).  Procedure codes which are not to be used are "
^DD(509850.4,.04,21,8,0)="marked as inactive."
^DD(509850.4,.04,"DT")="2950725"
^DD(509850.4,.05,0)="MODIFIERS ALLOWED^S^1:YES;0:NO;^0;5^Q"
^DD(509850.4,.05,.1)="Modifiers Allowed"
^DD(509850.4,.05,1,0)="^.1"
^DD(509850.4,.05,1,1,0)="509850.4^AC^MUMPS"
^DD(509850.4,.05,1,1,1)="S:X ^ACK(509850.4,""AC"",X,DA)="""""
^DD(509850.4,.05,1,1,2)="K:X ^ACK(509850.4,""AC"",X,DA)"
^DD(509850.4,.05,1,1,3)="DO NOT DELETE!"
^DD(509850.4,.05,1,1,"%D",0)="^^2^2^2951207^^"
^DD(509850.4,.05,1,1,"%D",1,0)="This cross-reference is used to identify those CPT-4 codes which "
^DD(509850.4,.05,1,1,"%D",2,0)="are distributed with modifiers."
^DD(509850.4,.05,1,1,"DT")="2920824"
^DD(509850.4,.05,3)="Does this CODE contain modifiers?"
^DD(509850.4,.05,9)="^"
^DD(509850.4,.05,21,0)="^^7^7^2991029^^"
^DD(509850.4,.05,21,1,0)="No longer used after the installation of Quasar Version 3.0."
^DD(509850.4,.05,21,2,0)="The MODIFIERS ALLOWED field activates or inactivates CPT-4 code modifiers "
^DD(509850.4,.05,21,3,0)="(i.e., 0 for NO or 1 for YES).  CPT-4 codes for Audiology and Speech "
^DD(509850.4,.05,21,4,0)="Pathology may not adequately describe the scope or variety of procedures "
^DD(509850.4,.05,21,5,0)="seen by audiologists and speech pathologists.  Recognizing this "
^DD(509850.4,.05,21,6,0)="deficiency, modifiers have been developed for certain codes to clarify "
^DD(509850.4,.05,21,7,0)="procedures or to provide codes for procedures where no codes now exist."
^DD(509850.4,.05,"DT")="2991029"
^DD(509850.4,.06,0)="COST^NJ7,2^^0;6^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(509850.4,.06,.1)="Cost"
^DD(509850.4,.06,3)="Enter a dollar amount between 0 and 9999 with 2 decimal digits."
^DD(509850.4,.06,9)="^"
^DD(509850.4,.06,21,0)="^^4^4^2950815^^^"
^DD(509850.4,.06,21,1,0)="The COST field contains the current unit cost for each CPT-4 procedure."
^DD(509850.4,.06,21,2,0)="You can use average community costs from private sector hospitals and "
^DD(509850.4,.06,21,3,0)="clinics, Medicare reimbursement rates, or insurance UCRs. You can also "
^DD(509850.4,.06,21,4,0)="enter real costs, if these are known."
^DD(509850.4,.06,"DT")="2950725"
^DD(509850.4,1,0)="ALLOWABLE MODIFIERS^509850.41^^1;0"
^DD(509850.4,1,9)="^"
^DD(509850.4,1,21,0)="^^2^2^2950914^^^"
^DD(509850.4,1,21,1,0)="The ALLOWABLE MODIFIERS field is a multiple field containing the letter, "
^DD(509850.4,1,21,2,0)="description, and cost for a CPT-4 procedure code."
^DD(509850.4,"B","*CARD CODE",.03)=""
^DD(509850.4,"B","ACTIVE",.04)=""
^DD(509850.4,"B","ALLOWABLE MODIFIERS",1)=""
^DD(509850.4,"B","Active?",.04)="1"
^DD(509850.4,"B","CLINIC STOP",.02)=""
^DD(509850.4,"B","CODE",.01)=""
^DD(509850.4,"B","COST",.06)=""
^DD(509850.4,"B","Card Code",.03)="1"
^DD(509850.4,"B","Clinic Stop",.02)="1"
^DD(509850.4,"B","Code",.01)="1"
^DD(509850.4,"B","Cost",.06)="1"
^DD(509850.4,"B","MODIFIERS ALLOWED",.05)=""
^DD(509850.4,"B","Modifiers Allowed",.05)="1"
^DD(509850.4,"GL",0,1,.01)=""
^DD(509850.4,"GL",0,2,.02)=""
^DD(509850.4,"GL",0,3,.03)=""
^DD(509850.4,"GL",0,4,.04)=""
^DD(509850.4,"GL",0,5,.05)=""
^DD(509850.4,"GL",0,6,.06)=""
^DD(509850.4,"GL",1,0,1)=""
^DD(509850.4,"IX",.01)=""
^DD(509850.4,"IX",.05)=""
^DD(509850.4,"RQ",.01)=""
^DD(509850.4,"SB",509850.41,1)=""
^DD(509850.41,0)="ALLOWABLE MODIFIERS SUB-FIELD^^.04^4"
^DD(509850.41,0,"DT")="2920718"
^DD(509850.41,0,"IX","B",509850.41,.01)=""
^DD(509850.41,0,"NM","ALLOWABLE MODIFIERS")=""
^DD(509850.41,0,"UP")="509850.4"
^DD(509850.41,.01,0)="ALLOWABLE MODIFIERS^MFX^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(509850.41,.01,.1)="Allowable Modifiers"
^DD(509850.41,.01,1,0)="^.1"
^DD(509850.41,.01,1,1,0)="509850.41^B"
^DD(509850.41,.01,1,1,1)="S ^ACK(509850.4,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.41,.01,1,1,2)="K ^ACK(509850.4,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.41,.01,3)="Enter a modifier code for this CPT procedure code."
^DD(509850.41,.01,4)="W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.41,.01,21,0)="^^8^8^2951208^^^^"
^DD(509850.41,.01,21,1,0)="The ALLOWABLE MODIFIERS field contains the letter modifiers for a CPT "
^DD(509850.41,.01,21,2,0)="procedure code.  CPT-4 codes for Audiology and Speech Pathology may not "
^DD(509850.41,.01,21,3,0)="adequately describe the scope or variety of procedures seen by "
^DD(509850.41,.01,21,4,0)="audiologists and speech pathologists.  Recognizing this deficiency, "
^DD(509850.41,.01,21,5,0)="modifiers have been developed for certain codes to clarify procedures or "
^DD(509850.41,.01,21,6,0)="to provide codes for procedures where no codes now exist.  New modifiers "
^DD(509850.41,.01,21,7,0)="should only be added at the direction of the Director, Audiology and"
^DD(509850.41,.01,21,8,0)="Speech Pathology Service (VAHQ)."
^DD(509850.41,.01,"DT")="2950824"
^DD(509850.41,.02,0)="DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(509850.41,.02,.1)="Description"
^DD(509850.41,.02,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.41,.02,21,0)="^^3^3^2950914^^^"
^DD(509850.41,.02,21,1,0)="The DESCRIPTION field contains the descriptor for the modifier of the "
^DD(509850.41,.02,21,2,0)="CPT-4 procedure code.  This descriptor should only be edited at the "
^DD(509850.41,.02,21,3,0)="direction of the Director, Audiology and Speech Pathology Service (VAHQ)."
^DD(509850.41,.02,"DT")="2950725"
^DD(509850.41,.03,0)="COST^NJ7,2^^0;3^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>9999)!(X<0) X"
^DD(509850.41,.03,.1)="Cost"
^DD(509850.41,.03,3)="Enter a dollar amount between 0 and 9999 with 2 decimal digits."
^DD(509850.41,.03,21,0)="^^4^4^2950815^^^"
^DD(509850.41,.03,21,1,0)="The COST field contains the current unit cost for each CPT-4 procedure "
^DD(509850.41,.03,21,2,0)="modifier.  You can use average community costs from private sector "
^DD(509850.41,.03,21,3,0)="hospitals and clinics, Medicare reimbursement rates, or insurance UCRs. "
^DD(509850.41,.03,21,4,0)="You can also enter real costs, if these are known."
^DD(509850.41,.03,"DT")="2950725"
^DD(509850.41,.04,0)="*CARD CODE^NJ2,0^^0;4^K:+X'=X!(X>60)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.41,.04,.1)="Card Code"
^DD(509850.41,.04,3)="Enter a number between 1 and 60 with 0 decimal digits."
^DD(509850.41,.04,21,0)="^^3^3^2950815^^"
^DD(509850.41,.04,21,1,0)="The CARD CODE field has been marked for deletion.  Card code capability "
^DD(509850.41,.04,21,2,0)="was not implemented in QUASAR V. 1.0.  Eighteen months after the release "
^DD(509850.41,.04,21,3,0)="of QUASAR V. 2.0, this field can be removed."
^DD(509850.41,.04,"DT")="2950814"
^DD(509850.41,"B","*CARD CODE",.04)=""
^DD(509850.41,"B","ALLOWABLE MODIFIERS",.01)=""
^DD(509850.41,"B","Allowable Modifiers",.01)="1"
^DD(509850.41,"B","COST",.03)=""
^DD(509850.41,"B","Card Code",.04)="1"
^DD(509850.41,"B","Cost",.03)="1"
^DD(509850.41,"B","DESCRIPTION",.02)=""
^DD(509850.41,"B","Description",.02)="1"
^DD(509850.41,"GL",0,1,.01)=""
^DD(509850.41,"GL",0,2,.02)=""
^DD(509850.41,"GL",0,3,.03)=""
^DD(509850.41,"GL",0,4,.04)=""
^DD(509850.41,"IX",.01)=""
^DD(509850.5,0)="FIELD^^1^2"
^DD(509850.5,0,"DDA")="N"
^DD(509850.5,0,"DT")="2990420"
^DD(509850.5,0,"IX","B",509850.5,.01)=""
^DD(509850.5,0,"NM","A&SP PROCEDURE MODIFIER")=""
^DD(509850.5,0,"PT",509850.64,.01)=""
^DD(509850.5,0,"VR")="3.0"
^DD(509850.5,0,"VRPK")="QUASAR"
^DD(509850.5,.01,0)="MODIFIER^*P81.3'XI^DIC(81.3,^0;1^D MODS^ACKQUTL5 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(509850.5,.01,1,0)="^.1"
^DD(509850.5,.01,1,1,0)="509850.5^B"
^DD(509850.5,.01,1,1,1)="S ^ACK(509850.5,""B"",$E(X,1,30),DA)="""""
^DD(509850.5,.01,1,1,2)="K ^ACK(509850.5,""B"",$E(X,1,30),DA)"
^DD(509850.5,.01,3)="Enter valid Modifier code."
^DD(509850.5,.01,4)=""
^DD(509850.5,.01,8.5)="Y"
^DD(509850.5,.01,21,0)="^^1^1^2991115^^^^"
^DD(509850.5,.01,21,1,0)="Valid Procedure Modifiers used within A&SP."
^DD(509850.5,.01,"DT")="2991005"
^DD(509850.5,1,0)="MODIFIER STATUS^RS^1:ACTIVE;0:INACTIVE;^0;2^Q"
^DD(509850.5,1,3)="Enter 'A' to set the modifier status to Active or 'I' to set the status to Inactive."
^DD(509850.5,1,21,0)="^^2^2^2990426^^"
^DD(509850.5,1,21,1,0)="This is the current status of the CPT Modifier.  If the status is Inactive "
^DD(509850.5,1,21,2,0)="the Modifier will be unselectable within the New/Edit Function."
^DD(509850.5,1,"DT")="2990413"
^DD(509850.5,"B","MODIFIER",.01)=""
^DD(509850.5,"B","MODIFIER STATUS",1)=""
^DD(509850.5,"GL",0,1,.01)=""
^DD(509850.5,"GL",0,2,1)=""
^DD(509850.5,"IX",.01)=""
^DD(509850.5,"RQ",1)=""
^DD(509850.6,0)="FIELD^^900^64"
^DD(509850.6,0,"DDA")="N"
^DD(509850.6,0,"DT")="3001006"
^DD(509850.6,0,"ID",1)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^ACK(509850.2,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(509850.2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(509850.6,0,"IX","AC",509850.615,.01)=""
^DD(509850.6,0,"IX","AD",509850.6,80)=""
^DD(509850.6,0,"IX","AD",509850.61,.01)=""
^DD(509850.6,0,"IX","AD",509850.615,.03)=""
^DD(509850.6,0,"IX","ADCI",509850.6,5)=""
^DD(509850.6,0,"IX","AE",509850.6,20)=""
^DD(509850.6,0,"IX","AE",509850.61,.05)=""
^DD(509850.6,0,"IX","AE",509850.615,.05)=""
^DD(509850.6,0,"IX","AEX",509850.6,900)=""
^DD(509850.6,0,"IX","AEX1",509850.6,140)=""
^DD(509850.6,0,"IX","AEX2",509850.6,135)=""
^DD(509850.6,0,"IX","AEX3",509850.6,125)=""
^DD(509850.6,0,"IX","AEXCLN",509850.6,2.6)=""
^DD(509850.6,0,"IX","AEXPAT",509850.6,1)=""
^DD(509850.6,0,"IX","AF",509850.6,25)=""
^DD(509850.6,0,"IX","AG",509850.6,30)=""
^DD(509850.6,0,"IX","AG",509850.615,.05)=""
^DD(509850.6,0,"IX","AH",509850.6,35)=""
^DD(509850.6,0,"IX","AI",509850.6,6)=""
^DD(509850.6,0,"IX","AJ",509850.6,.25)=""
^DD(509850.6,0,"IX","AK",509850.6,7)=""
^DD(509850.6,0,"IX","AL",509850.6,60)=""
^DD(509850.6,0,"IX","ALCP",509850.6,.08)=""
^DD(509850.6,0,"IX","AM",509850.6,.01)=""
^DD(509850.6,0,"IX","AMD",509850.6,4.01)=""
^DD(509850.6,0,"IX","AN",509850.6,55)=""
^DD(509850.6,0,"IX","AO",509850.615,.01)=""
^DD(509850.6,0,"IX","AP",509850.6,90)=""
^DD(509850.6,0,"IX","APCEC",509850.6,2.6)=""
^DD(509850.6,0,"IX","APCED",509850.6,.01)=""
^DD(509850.6,0,"IX","APCEP",509850.6,1)=""
^DD(509850.6,0,"IX","APCET",509850.6,55)=""
^DD(509850.6,0,"IX","APD",509850.6,1)=""
^DD(509850.6,0,"IX","APT",509850.6,1)=""
^DD(509850.6,0,"IX","AQ",509850.615,.03)=""
^DD(509850.6,0,"IX","ATCAT",509850.6,5)=""
^DD(509850.6,0,"IX","ATCDR",509850.6,5)=""
^DD(509850.6,0,"IX","ATMV",509850.6,.01)=""
^DD(509850.6,0,"IX","AWAIT",509850.6,.09)=""
^DD(509850.6,0,"IX","B",509850.6,.01)=""
^DD(509850.6,0,"IX","C",509850.6,1)=""
^DD(509850.6,0,"IX","ST1",509850.6,6)=""
^DD(509850.6,0,"IX","ST2",509850.6,.25)=""
^DD(509850.6,0,"IX","ST3",509850.6,7)=""
^DD(509850.6,0,"IX","ST4",509850.6,8)=""
^DD(509850.6,0,"NM","A&SP CLINIC VISIT")=" "
^DD(509850.6,0,"VR")="3.0"
^DD(509850.6,0,"VRPK")="ACKQ"
^DD(509850.6,.01,0)="DATE^RDXI^^0;1^S %DT=""EXT"" D ^%DT S:Y[""."" Y=$P(Y,""."",1) S X=Y K:Y<0 X I $D(X) D CHKDT^ACKQAS"
^DD(509850.6,.01,.1)="Date"
^DD(509850.6,.01,1,0)="^.1"
^DD(509850.6,.01,1,1,0)="509850.6^B"
^DD(509850.6,.01,1,1,1)="S ^ACK(509850.6,""B"",$E(X,1,30),DA)="""""
^DD(509850.6,.01,1,1,2)="K ^ACK(509850.6,""B"",$E(X,1,30),DA)"
^DD(509850.6,.01,1,2,0)="509850.6^ATMV^MUMPS"
^DD(509850.6,.01,1,2,1)="S ACKMO=$E(X,1,5)_""00"",$P(^(ACKMO),U)=$S($D(^ACK(509850.6,""ATMV"",ACKMO)):^(ACKMO)+1,1:1) K ACKMO"
^DD(509850.6,.01,1,2,2)="S ACKMO=$E(X,1,5)_""00"" S:$D(^ACK(509850.6,""ATMV"",ACKMO)) $P(^(ACKMO),U)=^(ACKMO)-1 K:$S($D(^(ACKMO)):'^(ACKMO),1:0) ^(ACKMO) K ACKMO"
^DD(509850.6,.01,1,2,3)="DO NOT DELETE!"
^DD(509850.6,.01,1,2,"%D",0)="^^2^2^2990617^^^^"
^DD(509850.6,.01,1,2,"%D",1,0)="This cross reference is ordered by FileMan internal date (year and month)."
^DD(509850.6,.01,1,2,"%D",2,0)="It is used to store an incremental count of total monthly visits."
^DD(509850.6,.01,1,3,0)="509850.6^APCED^MUMPS"
^DD(509850.6,.01,1,3,1)="D SETREF^ACKQUTL5(X,DA,""D"")"
^DD(509850.6,.01,1,3,2)="D KILLREF^ACKQUTL5(X,DA,""D"")"
^DD(509850.6,.01,1,3,3)="Do not Delete"
^DD(509850.6,.01,1,3,"%D",0)="^^6^6^2990916^"
^DD(509850.6,.01,1,3,"%D",1,0)="This cross reference is only set when all four of the required fields"
^DD(509850.6,.01,1,3,"%D",2,0)="(Visit Date, Patient, Clinic Location and Visit Time) for this cross"
^DD(509850.6,.01,1,3,"%D",3,0)="reference exist within the Visit File.  After the cross reference has"
^DD(509850.6,.01,1,3,"%D",4,0)="been set up, if any of the required fields are deleted the cross reference"
^DD(509850.6,.01,1,3,"%D",5,0)="is deleted.  If any of the required fields are amended the cross reference"
^DD(509850.6,.01,1,3,"%D",6,0)="is deleted and reset with the amended values."
^DD(509850.6,.01,1,3,"DT")="2990916"
^DD(509850.6,.01,1,4,0)="509850.6^AM^MUMPS"
^DD(509850.6,.01,1,4,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,.01,1,4,2)="Q"
^DD(509850.6,.01,1,4,3)="Do not Delete."
^DD(509850.6,.01,1,4,"%D",0)="^^4^4^2990929^^"
^DD(509850.6,.01,1,4,"%D",1,0)="Call to update PCE PENDING field with '1', set the SENT OKAY field to null"
^DD(509850.6,.01,1,4,"%D",2,0)="and the LAST EDITED IN QUASAR field to todays date."
^DD(509850.6,.01,1,4,"%D",3,0)="This processing is not run when the dummy record is created (i.e. when "
^DD(509850.6,.01,1,4,"%D",4,0)="D0 is undefined)."
^DD(509850.6,.01,1,4,"DT")="2990929"
^DD(509850.6,.01,3)="Enter the patient's clinic visit date."
^DD(509850.6,.01,9)="^"
^DD(509850.6,.01,21,0)="^^1^1^2990915^^^^"
^DD(509850.6,.01,21,1,0)="The DATE field contains the encounter date or date and time."
^DD(509850.6,.01,"DT")="2990929"
^DD(509850.6,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850.6,.07,0)="TIME SPENT (minutes)^RNJ3,0^^0;7^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,.07,.1)="Time Spent in Minutes"
^DD(509850.6,.07,3)="Enter the entire amount of time that was spent on this visit (in minutes)."
^DD(509850.6,.07,4)="W !?5,""Your answer should be a number between 0 and 999."",!"
^DD(509850.6,.07,9)="^"
^DD(509850.6,.07,21,0)="^^4^4^2990218^^^^"
^DD(509850.6,.07,21,1,0)="The TIME SPENT field is used to record the TOTAL number of minutes that "
^DD(509850.6,.07,21,2,0)="were used during this clinic visit.  TIME SPENT is to include direct "
^DD(509850.6,.07,21,3,0)="(e.g., face-to-face) and indirect time (e.g., paperwork, documentation, "
^DD(509850.6,.07,21,4,0)="administration)."
^DD(509850.6,.07,"DT")="2950717"
^DD(509850.6,.08,0)="LINKED C&P EXAM^F^^0;8^W !,""You may not edit this field!"",*7 K X"
^DD(509850.6,.08,.1)="Linked C&P Exam"
^DD(509850.6,.08,1,0)="^.1"
^DD(509850.6,.08,1,1,0)="509850.6^ALCP"
^DD(509850.6,.08,1,1,1)="S ^ACK(509850.6,""ALCP"",$E(X,1,30),DA)="""""
^DD(509850.6,.08,1,1,2)="K ^ACK(509850.6,""ALCP"",$E(X,1,30),DA)"
^DD(509850.6,.08,1,1,3)="DO NOT DELETE!"
^DD(509850.6,.08,1,1,"%D",0)="^^3^3^2990622^^"
^DD(509850.6,.08,1,1,"%D",1,0)="This cross-reference stores the soft link data from the AMIE"
^DD(509850.6,.08,1,1,"%D",2,0)="interface and the internal entry number for each clinic visit"
^DD(509850.6,.08,1,1,"%D",3,0)="which is an AMIE C&P request."
^DD(509850.6,.08,1,1,"DT")="2920222"
^DD(509850.6,.08,9)="^"
^DD(509850.6,.08,21,0)="^^6^6^2950815^^^^"
^DD(509850.6,.08,21,1,0)="For C&P exams, the LINKED C&P EXAM field is automatically filled in "
^DD(509850.6,.08,21,2,0)="by the QUASAR package.  It provides a means of linking this QUASAR "
^DD(509850.6,.08,21,3,0)="visit with a specific AMIE C&P request.  If the visit is not a C&P "
^DD(509850.6,.08,21,4,0)="exam this field is left blank."
^DD(509850.6,.08,21,5,0)="  "
^DD(509850.6,.08,21,6,0)="This field should not be edited manually."
^DD(509850.6,.08,"DT")="2950717"
^DD(509850.6,.09,0)="C AND P STATUS^S^0:NOT A C&P EXAM;1:NOT SIGNED OFF;2:AWAITING ADEQUATION;3:COMPLETE;^0;9^Q"
^DD(509850.6,.09,.1)="C and P Status"
^DD(509850.6,.09,1,0)="^.1"
^DD(509850.6,.09,1,1,0)="509850.6^AWAIT^MUMPS"
^DD(509850.6,.09,1,1,1)="S:X=1!(X=2) ^ACK(509850.6,""AWAIT"",X,DA)="""""
^DD(509850.6,.09,1,1,2)="K ^ACK(509850.6,""AWAIT"",X,DA)"
^DD(509850.6,.09,1,1,3)="DO NOT DELETE!"
^DD(509850.6,.09,1,1,"%D",0)="^^4^4^2951207^^"
^DD(509850.6,.09,1,1,"%D",1,0)="This cross-reference is ordered by C AND P STATUS set of codes number,"
^DD(509850.6,.09,1,1,"%D",2,0)="followed by internal entry number.  It is used to quickly find C&P "
^DD(509850.6,.09,1,1,"%D",3,0)="exams waiting for signatures.  A look-up cross-reference was not used, "
^DD(509850.6,.09,1,1,"%D",4,0)="as the lookup was not intended to be available to FileMan proper."
^DD(509850.6,.09,1,1,"DT")="2920229"
^DD(509850.6,.09,3)="Enter the code for the C&P status."
^DD(509850.6,.09,5,1,0)="509850.6^2.5^1"
^DD(509850.6,.09,5,2,0)="509850.6^4.17^1"
^DD(509850.6,.09,5,3,0)="509850.6^4.19^1"
^DD(509850.6,.09,9)="^"
^DD(509850.6,.09,21,0)="^^3^3^2950815^^^"
^DD(509850.6,.09,21,1,0)="The C AND P STATUS field indicates the status of the C&P exam"
^DD(509850.6,.09,21,2,0)="(if any).  0 stands for NOT A C&P EXAM, 1 stands for NOT SIGNED"
^DD(509850.6,.09,21,3,0)="OFF, 2 stands for AWAITING ADEQUATION, and 3 stands for COMPLETE."
^DD(509850.6,.09,"DT")="2950717"
^DD(509850.6,.25,0)="*SECOND CLINCIAN^*P509850.3'^ACK(509850.3,^2;5^S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.6,.25,.1)="Second Clinician"
^DD(509850.6,.25,1,0)="^.1"
^DD(509850.6,.25,1,1,0)="509850.6^ST2^MUMPS"
^DD(509850.6,.25,1,1,1)="S ^ACK(509850.6,""ST"",X,DA)=2"
^DD(509850.6,.25,1,1,2)="K ^ACK(509850.6,""ST"",X,DA)"
^DD(509850.6,.25,1,1,3)="DO NOT DELETE!"
^DD(509850.6,.25,1,1,"%D",0)="^^7^7^2991104^^^"
^DD(509850.6,.25,1,1,"%D",1,0)="The ST subscript holds cross-references for all staff involved"
^DD(509850.6,.25,1,1,"%D",2,0)="in this clinic visit.  Rather than set the cross-reference equal to"
^DD(509850.6,.25,1,1,"%D",3,0)="null, it is coded as to the position of the staff member."
^DD(509850.6,.25,1,1,"%D",4,0)="  "
^DD(509850.6,.25,1,1,"%D",5,0)="           1 = PRIMARY PROVIDER"
^DD(509850.6,.25,1,1,"%D",6,0)="           2 = SECONDARY PROVIDER"
^DD(509850.6,.25,1,1,"%D",7,0)="           3 = STUDENT"
^DD(509850.6,.25,1,1,"DT")="2920627"
^DD(509850.6,.25,1,2,0)="509850.6^AJ^MUMPS"
^DD(509850.6,.25,1,2,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,.25,1,2,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,.25,1,2,3)="Do not Delete"
^DD(509850.6,.25,1,2,"%D",0)="^^2^2^2991104^^^^"
^DD(509850.6,.25,1,2,"%D",1,0)="Call to update send to PCE field with todays date, this in turn creates"
^DD(509850.6,.25,1,2,"%D",2,0)="the cross reference used by the overnight send to PCE process."
^DD(509850.6,.25,1,2,"DT")="2990929"
^DD(509850.6,.25,3)="If a secondary provider was involved with this visit, enter his or her name."
^DD(509850.6,.25,4)="I '$D(ACKVD) W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.6,.25,9)="^"
^DD(509850.6,.25,12)="Only A&SP CLINICIANS or OTHER PROVIDERS who are ACTIVE on the VISIT DATE can be selected."
^DD(509850.6,.25,12.1)="S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"""
^DD(509850.6,.25,21,0)="^^7^7^2991104^^^^"
^DD(509850.6,.25,21,1,0)="If more than one provider was involved in this exam, the"
^DD(509850.6,.25,21,2,0)="name of the SECONDARY PROVIDER should be entered here.  In order"
^DD(509850.6,.25,21,3,0)="to enter a provider in this field, the provider must already"
^DD(509850.6,.25,21,4,0)="exist in the A&SP STAFF file (#509850.3) and the ACTIVATION DATE "
^DD(509850.6,.25,21,5,0)="and INACTIVATION DATE must indicate that the selected provider is"
^DD(509850.6,.25,21,6,0)="active on the date of the exam.  The SECONDARY PROVIDER field can be "
^DD(509850.6,.25,21,7,0)="left blank."
^DD(509850.6,.25,"DT")="2991104"
^DD(509850.6,.27,0)="*LEAD ROLE^*P509850.3'^ACK(509850.3,^2;7^S DIC(""S"")=""I $D(ACKSTF(Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.6,.27,.1)="Lead Role"
^DD(509850.6,.27,3)="Enter the name of the lead staff member involved in this exam."
^DD(509850.6,.27,9)="^"
^DD(509850.6,.27,12)="You must select a clinician, other provider, or student involved with this exam."
^DD(509850.6,.27,12.1)="S DIC(""S"")=""I $D(ACKSTF(Y))"""
^DD(509850.6,.27,21,0)="^^10^10^2990310^^"
^DD(509850.6,.27,21,1,0)="For visits involving more than one staff member, the LEAD ROLE field is"
^DD(509850.6,.27,21,2,0)="provided to show which staff member played the leading role in the"
^DD(509850.6,.27,21,3,0)="examination.  Credit for the visit is always given to the clinician "
^DD(509850.6,.27,21,4,0)="in the LEAD ROLL field."
^DD(509850.6,.27,21,5,0)="  "
^DD(509850.6,.27,21,6,0)="This field can only be entered through the Enter Clinic Visits option."
^DD(509850.6,.27,21,7,0)=" "
^DD(509850.6,.27,21,8,0)="The LEAD ROLE field has been marked for deletion.  This field is not"
^DD(509850.6,.27,21,9,0)="used by QUASAR V. 3.0.  Eighteen months after the release of"
^DD(509850.6,.27,21,10,0)="QUASAR 3.0, this field can be removed. "
^DD(509850.6,.27,"DT")="2990219"
^DD(509850.6,1,0)="PATIENT NAME^RP509850.2X^ACK(509850.2,^0;2^S DFN=X"
^DD(509850.6,1,.1)="Patient Name"
^DD(509850.6,1,1,0)="^.1^^-1"
^DD(509850.6,1,1,1,0)="^^TRIGGER^509850.6^2"
^DD(509850.6,1,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(509850.6,1,1,1,1.1) X ^DD(509850.6,1,1,1,1.4)"
^DD(509850.6,1,1,1,1.1)="S X=DIV X ^DD(509850.6,1,1,1,49.2) S D0=$P(Y(101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(201)=$S($D(^DPT(D0,.36)):^(.36),1:"""") S X=$S('$D(^DIC(8,+$P(Y(201),U,1),0)):"""",1:$P(^(0),U,1)) S D0=I(0,0)"
^DD(509850.6,1,1,1,1.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=509850.6,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,1,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="""" X ^DD(509850.6,1,1,1,2.4)"
^DD(509850.6,1,1,1,2.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,3)=DIV,DIH=509850.6,DIG=2 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,1,1,1,3)="DO NOT DELETE!"
^DD(509850.6,1,1,1,49.2)="S I(0,0)=$S($D(D0):D0,1:""""),D0=DIV S:'$D(^ACK(509850.2,+D0,0)) D0=-1 S I(100,0)=$S($D(D0):D0,1:""""),Y(101)=$S($D(^ACK(509850.2,D0,0)):^(0),1:"""")"
^DD(509850.6,1,1,1,"%D",0)="^^2^2^2951208^"
^DD(509850.6,1,1,1,"%D",1,0)="The PATIENT NAME field triggers the appropriate value into the"
^DD(509850.6,1,1,1,"%D",2,0)="PATIENT ELIGIBILITY CODE field."
^DD(509850.6,1,1,1,"CREATE VALUE")="PATIENT NAME:NAME:ELIGIBILITY CODE"
^DD(509850.6,1,1,1,"DELETE VALUE")="@"
^DD(509850.6,1,1,1,"FIELD")="PATIENT ELIGI"
^DD(509850.6,1,1,2,0)="^^TRIGGER^509850.6^1.5"
^DD(509850.6,1,1,2,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV D AOA^ACKQAS X ^DD(509850.6,1,1,2,1.4)"
^DD(509850.6,1,1,2,1.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=509850.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,1,1,2,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="""" X ^DD(509850.6,1,1,2,2.4)"
^DD(509850.6,1,1,2,2.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,4)=DIV,DIH=509850.6,DIG=1.5 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,1,1,2,3)="DO NOT DELETE!"
^DD(509850.6,1,1,2,"%D",0)="^^2^2^2951208^"
^DD(509850.6,1,1,2,"%D",1,0)="The PATIENT NAME field triggers the appropriate value into the"
^DD(509850.6,1,1,2,"%D",2,0)="AGE ON APPOINTMENT field."
^DD(509850.6,1,1,2,"CREATE VALUE")="D AOA^ACKQAS"
^DD(509850.6,1,1,2,"DELETE VALUE")="@"
^DD(509850.6,1,1,2,"FIELD")="AGE ON APPOINTMENT"
^DD(509850.6,1,1,3,0)="509850.6^APT"
^DD(509850.6,1,1,3,1)="S ^ACK(509850.6,""APT"",$E(X,1,30),DA)="""""
^DD(509850.6,1,1,3,2)="K ^ACK(509850.6,""APT"",$E(X,1,30),DA)"
^DD(509850.6,1,1,3,3)="DO NOT DELETE!"
^DD(509850.6,1,1,3,"%D",0)="^^1^1^2990719^^"
^DD(509850.6,1,1,3,"%D",1,0)="This cross-reference is in patient DFN and internal entry number order."
^DD(509850.6,1,1,4,0)="^^TRIGGER^509850.2^1"
^DD(509850.6,1,1,4,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(509850.6,1,1,4,89.2) S X=$P(Y(101),U,2) S D0=I(0,0) S DIU=X K Y S X=DIV D IVD^ACKQAS X ^DD(509850.6,1,1,4,1.4)"
^DD(509850.6,1,1,4,1.4)="S DIH=$S($D(^ACK(509850.2,DIV(0),0)):^(0),1:""""),DIV=X I $D(^(0)) S $P(^(0),U,2)=DIV,DIH=509850.2,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,1,1,4,2)="Q"
^DD(509850.6,1,1,4,3)="Do not Delete."
^DD(509850.6,1,1,4,89.2)="S I(0,0)=$S($D(D0):D0,1:""""),Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:""""),D0=$P(Y(1),U,2) S:'$D(^ACK(509850.2,+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^ACK(509850.2,D0,0)):^(0),1:"""")"
^DD(509850.6,1,1,4,"%D",0)="^^2^2^2991004^^^^"
^DD(509850.6,1,1,4,"%D",1,0)="When a PATIENT NAME is selected for this visit, the user is asked"
^DD(509850.6,1,1,4,"%D",2,0)="for the patient's INITIAL VISIT DATE if it has not been entered."
^DD(509850.6,1,1,4,"CREATE VALUE")="D IVD^ACKQAS"
^DD(509850.6,1,1,4,"DELETE VALUE")="NO EFFECT"
^DD(509850.6,1,1,4,"DT")="2910715"
^DD(509850.6,1,1,4,"FIELD")="#1:#1"
^DD(509850.6,1,1,5,0)="509850.6^APD^MUMPS"
^DD(509850.6,1,1,5,1)="S ^ACK(509850.6,""APD"",X,+^ACK(509850.6,DA,0),DA)="""""
^DD(509850.6,1,1,5,2)="K ^ACK(509850.6,""APD"",X,+^ACK(509850.6,DA,0),DA)"
^DD(509850.6,1,1,5,3)="DO NOT DELETE!"
^DD(509850.6,1,1,5,"%D",0)="^^3^3^2990719^^^"
^DD(509850.6,1,1,5,"%D",1,0)="This cross-reference is in patient DFN, date of visit, and internal"
^DD(509850.6,1,1,5,"%D",2,0)="entry number order.  It is used to check for duplicate visits by"
^DD(509850.6,1,1,5,"%D",3,0)="this patient on this date."
^DD(509850.6,1,1,5,"DT")="2910805"
^DD(509850.6,1,1,6,0)="509850.6^C"
^DD(509850.6,1,1,6,1)="S ^ACK(509850.6,""C"",$E(X,1,30),DA)="""""
^DD(509850.6,1,1,6,2)="K ^ACK(509850.6,""C"",$E(X,1,30),DA)"
^DD(509850.6,1,1,6,3)="DO NOT DELETE!"
^DD(509850.6,1,1,6,"%D",0)="^^2^2^2951207^^"
^DD(509850.6,1,1,6,"%D",1,0)="This cross-reference is in patient DFN and internal entry number order."
^DD(509850.6,1,1,6,"%D",2,0)="It is used for lookup by patient name."
^DD(509850.6,1,1,6,"DT")="2911209"
^DD(509850.6,1,1,7,0)="509850.6^APCEP^MUMPS"
^DD(509850.6,1,1,7,1)="D SETREF^ACKQUTL5(X,DA,""P"")"
^DD(509850.6,1,1,7,2)="D KILLREF^ACKQUTL5(X,DA,""P"")"
^DD(509850.6,1,1,7,3)="Do not Delete"
^DD(509850.6,1,1,7,"%D",0)="^^6^6^2990916^"
^DD(509850.6,1,1,7,"%D",1,0)="This cross reference is only set when all four of the required fields"
^DD(509850.6,1,1,7,"%D",2,0)="(Visit Date, Patient, Clinic Location and Visit Time) for this cross"
^DD(509850.6,1,1,7,"%D",3,0)="reference exist within the Visit File.  After the cross reference has "
^DD(509850.6,1,1,7,"%D",4,0)="been set up, if any of the required fields are deleted the cross reference"
^DD(509850.6,1,1,7,"%D",5,0)="is deleted.  If any of the required fields are amended the cross reference"
^DD(509850.6,1,1,7,"%D",6,0)="is deleted and reset with the amended values."
^DD(509850.6,1,1,7,"DT")="2990916"
^DD(509850.6,1,1,8,0)="509850.6^AEXPAT^MUMPS"
^DD(509850.6,1,1,8,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,1,1,8,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,1,1,8,3)="Do not Delete"
^DD(509850.6,1,1,8,"%D",0)="^^2^2^2990929^"
^DD(509850.6,1,1,8,"%D",1,0)="This index sets the last edited in Quasar to NOW which in turn"
^DD(509850.6,1,1,8,"%D",2,0)="may cause the visit to be a PCE Exception."
^DD(509850.6,1,1,8,"DT")="2990929"
^DD(509850.6,1,3)="Enter the name of the patient seen during this clinic visit."
^DD(509850.6,1,9)="^"
^DD(509850.6,1,21,0)="^^3^3^2990507^^^^"
^DD(509850.6,1,21,1,0)="The PATIENT NAME field contains the name of the patient seen during"
^DD(509850.6,1,21,2,0)="this clinic visit.  In order to enter a patient name into this field,"
^DD(509850.6,1,21,3,0)="the patient must already exist in the PATIENT file (#2)."
^DD(509850.6,1,"DT")="2991004"
^DD(509850.6,1.5,0)="AGE ON APPOINTMENT^NJ3,0^^0;4^K:+X'=X!(X>120)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,1.5,.1)="Age on Appointment"
^DD(509850.6,1.5,3)="Enter a number between 0 and 120 with 0 decimal digits."
^DD(509850.6,1.5,5,1,0)="509850.6^1^2"
^DD(509850.6,1.5,9)="^"
^DD(509850.6,1.5,21,0)="^^3^3^2950815^^^"
^DD(509850.6,1.5,21,1,0)="The AGE ON APPOINTMENT field is automatically filled in by the"
^DD(509850.6,1.5,21,2,0)="QUASAR package.  It is triggered by the PATIENT NAME field of"
^DD(509850.6,1.5,21,3,0)="the A&SP CLINIC VISIT file (#509850.6)."
^DD(509850.6,1.5,"DT")="2950717"
^DD(509850.6,2,0)="PATIENT ELIGIBILITY CODE^RF^^0;3^K:$L(X)>30!($L(X)<1) X"
^DD(509850.6,2,.1)="Patient Eligibility Code"
^DD(509850.6,2,3)="Answer must be 1-30 characters in length."
^DD(509850.6,2,4)=" "
^DD(509850.6,2,5,1,0)="509850.6^1^1"
^DD(509850.6,2,9)="^"
^DD(509850.6,2,21,0)="^.001^1^1^3001002^^^^"
^DD(509850.6,2,21,1,0)="This is the Primary Eligibility of the patient"
^DD(509850.6,2,"DT")="3001002"
^DD(509850.6,2.5,0)="C AND P^S^0:NO;1:YES;^0;5^Q"
^DD(509850.6,2.5,.1)="C and P"
^DD(509850.6,2.5,1,0)="^.1"
^DD(509850.6,2.5,1,1,0)="^^TRIGGER^509850.6^.09"
^DD(509850.6,2.5,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,2.5,1,1,1.4)"
^DD(509850.6,2.5,1,1,1.1)="S X=DIV S X=DIV,X=X S X=X=1,Y(1)=X S X=1,Y(2)=X S X=1,Y(3)=X S X=0,X=$S(Y(1):Y(2),Y(3):X)"
^DD(509850.6,2.5,1,1,1.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,2.5,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,2.5,1,1,2.4)"
^DD(509850.6,2.5,1,1,2.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,2.5,1,1,3)="DO NOT DELETE!"
^DD(509850.6,2.5,1,1,"%D",0)="^^2^2^2951208^^"
^DD(509850.6,2.5,1,1,"%D",1,0)="The C AND P field triggers the appropriate value into the"
^DD(509850.6,2.5,1,1,"%D",2,0)="C AND P STATUS field."
^DD(509850.6,2.5,1,1,"CREATE VALUE")="D TRIGCP^ACKQUTL"
^DD(509850.6,2.5,1,1,"DELETE VALUE")="D TRIGCP^ACKQUTL"
^DD(509850.6,2.5,1,1,"DT")="2921029"
^DD(509850.6,2.5,1,1,"FIELD")="#.09"
^DD(509850.6,2.5,3)="Is this a C&P exam?"
^DD(509850.6,2.5,4)=" "
^DD(509850.6,2.5,9)="^"
^DD(509850.6,2.5,21,0)="^^12^12^2990219^^^^"
^DD(509850.6,2.5,21,1,0)="The C AND P field contains 0 or NO if this is not a C&P exam.  The field "
^DD(509850.6,2.5,21,2,0)="contains 1 or YES if this is a C&P exam."
^DD(509850.6,2.5,21,3,0)="  "
^DD(509850.6,2.5,21,4,0)="WARNING:  QUASAR points to the AMIE 2507 REQUEST file (#396.3) to "
^DD(509850.6,2.5,21,5,0)="determine if a patient on a given date is a C&P visit.  If AUDIO exam is "
^DD(509850.6,2.5,21,6,0)="not found in the exam list, QUASAR does not recognize the visit as a C&P "
^DD(509850.6,2.5,21,7,0)="visit."
^DD(509850.6,2.5,21,8,0)="  "
^DD(509850.6,2.5,21,9,0)="The C AND P field can be filled with 1 or YES at the ""Is this a C&P "
^DD(509850.6,2.5,21,10,0)="exam?"" prompt or by entering ^C AND P.  This provides you with the AMIE "
^DD(509850.6,2.5,21,11,0)="worksheet fields, but the examination is not available for adequation and "
^DD(509850.6,2.5,21,12,0)="is not linked to the AMIE system."
^DD(509850.6,2.5,"DT")="2950717"
^DD(509850.6,2.6,0)="CLINIC LOCATION^P44'^SC(^0;6^Q"
^DD(509850.6,2.6,.1)="Clinic Location"
^DD(509850.6,2.6,1,0)="^.1"
^DD(509850.6,2.6,1,1,0)="509850.6^APCEC^MUMPS"
^DD(509850.6,2.6,1,1,1)="D SETREF^ACKQUTL5(X,DA,""C"")"
^DD(509850.6,2.6,1,1,2)="D KILLREF^ACKQUTL5(X,DA,""C"")"
^DD(509850.6,2.6,1,1,3)="Do not Delete"
^DD(509850.6,2.6,1,1,"%D",0)="^^6^6^2990916^"
^DD(509850.6,2.6,1,1,"%D",1,0)="This cross reference is only set when all four of the required fields"
^DD(509850.6,2.6,1,1,"%D",2,0)="(Visit Date, Patient, Clinic Location and Visit Time) for this cross"
^DD(509850.6,2.6,1,1,"%D",3,0)="reference exist within the Visit File.  After the cross reference has "
^DD(509850.6,2.6,1,1,"%D",4,0)="been set up, if any of the required fields are deleted the cross reference"
^DD(509850.6,2.6,1,1,"%D",5,0)="is deleted.  If any of the required fields are amended the cross reference"
^DD(509850.6,2.6,1,1,"%D",6,0)="is deleted and reset with the amended values."
^DD(509850.6,2.6,1,1,"DT")="2990916"
^DD(509850.6,2.6,1,2,0)="509850.6^AEXCLN^MUMPS"
^DD(509850.6,2.6,1,2,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,2.6,1,2,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,2.6,1,2,3)="Do not Delete"
^DD(509850.6,2.6,1,2,"%D",0)="^^2^2^2991208^^"
^DD(509850.6,2.6,1,2,"%D",1,0)="This index updated the Last Edited in Quasar field which in"
^DD(509850.6,2.6,1,2,"%D",2,0)="turn may cause the visit to become a PCE Exception."
^DD(509850.6,2.6,1,2,"DT")="2990929"
^DD(509850.6,2.6,3)="Enter the clinic location for this visit."
^DD(509850.6,2.6,9)="^"
^DD(509850.6,2.6,21,0)="^^3^3^2990420^^^^"
^DD(509850.6,2.6,21,1,0)="The CLINIC LOCATION field is a pointer to the HOSPITAL LOCATION"
^DD(509850.6,2.6,21,2,0)="file (#44).  Clinic location names must match exactly with MAS"
^DD(509850.6,2.6,21,3,0)="clinic names set up in DHCP."
^DD(509850.6,2.6,"DT")="2990929"
^DD(509850.6,2.7,0)="SECONDARY PROVIDER^509850.66PA^^2.7;0"
^DD(509850.6,2.7,12)="Only A&SP CLINICIANS or OTHER PROVIDERS who are ACTIVE on the VISIT DATE can be selected."
^DD(509850.6,2.7,"DT")="2991104"
^DD(509850.6,3,0)="DIAGNOSTIC CODE^509850.63PA^^1;0"
^DD(509850.6,3,9)="^"
^DD(509850.6,3,21,0)="^.001^2^2^3001013^^^^"
^DD(509850.6,3,21,1,0)="The DIAGNOSTIC CODE field is a pointer to the A&SP DIAGNOSTIC"
^DD(509850.6,3,21,2,0)="CONDITION file (#509850.1)."
^DD(509850.6,4,0)="CLINIC STOP CODE^S^A:AUDIOLOGY;S:SPEECH;AT:TELEPHONE AUDIOLOGY;ST:TELEPHONE SPEECH;^2;1^Q"
^DD(509850.6,4,.1)="Clinic Stop Code"
^DD(509850.6,4,3)=" "
^DD(509850.6,4,9)="^"
^DD(509850.6,4,21,0)="^^3^3^2990512^^^^"
^DD(509850.6,4,21,1,0)="The CLINIC STOP CODE field contains A for Audiology, S for Speech"
^DD(509850.6,4,21,2,0)="Pathology, AT for an Audiology Telephone visit and ST for Speech Telephone"
^DD(509850.6,4,21,3,0)="visit."
^DD(509850.6,4,"DT")="2990512"
^DD(509850.6,4.01,0)="TONE R500^RNJ3,0^^4;1^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.01,.1)="Tone R500"
^DD(509850.6,4.01,1,0)="^.1"
^DD(509850.6,4.01,1,1,0)="509850.6^AMD^MUMPS"
^DD(509850.6,4.01,1,1,1)="S X1=^ACK(509850.6,DA,0) S:'$D(ACKNAMD) ^ACK(509850.6,""AMD"",+$P(X1,U,2),9999999-$P(X1,U),DA)="""" K X1"
^DD(509850.6,4.01,1,1,2)="S X1=^ACK(509850.6,DA,0) K ^ACK(509850.6,""AMD"",+$P(X1,U,2),9999999-$P(X1,U),DA),X1"
^DD(509850.6,4.01,1,1,3)="DO NOT DELETE!"
^DD(509850.6,4.01,1,1,"%D",0)="^^3^3^2990312^^^"
^DD(509850.6,4.01,1,1,"%D",1,0)="This cross-reference is in patient DFN, inverse date, and internal"
^DD(509850.6,4.01,1,1,"%D",2,0)="entry number order.  It is used to easily locate the most recent"
^DD(509850.6,4.01,1,1,"%D",3,0)="audiometric data for a patient."
^DD(509850.6,4.01,1,1,"DT")="2920926"
^DD(509850.6,4.01,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.01,9)="^"
^DD(509850.6,4.01,21,0)="^^4^4^2981217^^^^"
^DD(509850.6,4.01,21,1,0)="The TONE R500 field indicates the patient's pure tone threshold at 500Hz."
^DD(509850.6,4.01,21,2,0)="The 500Hz threshold is not currently used for evaluation, but is used"
^DD(509850.6,4.01,21,3,0)="in determining whether or not a ratable hearing loss exists.  It is"
^DD(509850.6,4.01,21,4,0)="not included in the four-frequency average."
^DD(509850.6,4.01,"DT")="2981217"
^DD(509850.6,4.02,0)="TONE R1000^RNJ3,0^^4;2^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.02,.1)="Tone R1000"
^DD(509850.6,4.02,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.02,9)="^"
^DD(509850.6,4.02,21,0)="^^2^2^2981217^^^^"
^DD(509850.6,4.02,21,1,0)="The TONE R1000 field indicates the pure tone threshold (Right) at "
^DD(509850.6,4.02,21,2,0)="1000Hz for this patient."
^DD(509850.6,4.02,"DT")="2981217"
^DD(509850.6,4.03,0)="TONE R2000^RNJ3,0^^4;3^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.03,.1)="Tone R2000"
^DD(509850.6,4.03,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.03,9)="^"
^DD(509850.6,4.03,21,0)="^^2^2^2981217^^^^"
^DD(509850.6,4.03,21,1,0)="The TONE R2000 field indicates the pure tone threshold (Right) at"
^DD(509850.6,4.03,21,2,0)="2000Hz for this patient."
^DD(509850.6,4.03,"DT")="2981217"
^DD(509850.6,4.04,0)="TONE R3000^RNJ3,0^^4;4^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.04,.1)="Tone R3000"
^DD(509850.6,4.04,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.04,9)="^"
^DD(509850.6,4.04,21,0)="^^2^2^2981217^^^^"
^DD(509850.6,4.04,21,1,0)="The TONE R3000 field indicates the pure tone threshold (Right) at"
^DD(509850.6,4.04,21,2,0)="3000Hz for this patient."
^DD(509850.6,4.04,"DT")="2981217"
^DD(509850.6,4.05,0)="TONE R4000^RNJ3,0^^4;5^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.05,.1)="Tone R4000"
^DD(509850.6,4.05,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.05,9)="^"
^DD(509850.6,4.05,21,0)="^^2^2^2981217^^^"
^DD(509850.6,4.05,21,1,0)="The TONE R4000 field indicates the pure tone threshold (Right) at"
^DD(509850.6,4.05,21,2,0)="4000Hz for this patient."
^DD(509850.6,4.05,"DT")="2981217"
^DD(509850.6,4.06,0)="TONE R AVERAGE^RNJ3,0^^4;6^K:+X'=X!(X>105)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.06,.1)="Tone R Average"
^DD(509850.6,4.06,3)="Type a Number between 0 and 105, 0 Decimal Digits"
^DD(509850.6,4.06,4)="W !?5,""This field is automatically filled in by the package."",!"
^DD(509850.6,4.06,9)="^"
^DD(509850.6,4.06,21,0)="^^7^7^2981217^^^^"
^DD(509850.6,4.06,21,1,0)="The TONE R AVERAGE field is the average pure tone threshold for this "
^DD(509850.6,4.06,21,2,0)="patient's right ear.  This indicates the average of the 1000, 2000, "
^DD(509850.6,4.06,21,3,0)="3000 and 4000Hz scores for the right ear."
^DD(509850.6,4.06,21,4,0)="  "
^DD(509850.6,4.06,21,5,0)="This is a computed field.  If the package options are used to enter "
^DD(509850.6,4.06,21,6,0)="the 1000 to 4000Hz threshold values, this field is computed and filled "
^DD(509850.6,4.06,21,7,0)="in by the QUASAR software."
^DD(509850.6,4.06,"DT")="2981217"
^DD(509850.6,4.07,0)="TONE L500^RNJ3,0^^4;7^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.07,.1)="Tone L500"
^DD(509850.6,4.07,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.07,9)="^"
^DD(509850.6,4.07,21,0)="^^4^4^2981217^^^^"
^DD(509850.6,4.07,21,1,0)="The TONE L500 field indicates the patient's pure tone threshold at 500Hz."
^DD(509850.6,4.07,21,2,0)="The 500Hz threshold is not currently used for evaluation, but is used"
^DD(509850.6,4.07,21,3,0)="in determining whether or not a ratable hearing loss exists.  It is "
^DD(509850.6,4.07,21,4,0)="not included in the four-frequency average."
^DD(509850.6,4.07,"DT")="2981217"
^DD(509850.6,4.08,0)="TONE L1000^RNJ3,0^^4;8^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.08,.1)="Tone L1000"
^DD(509850.6,4.08,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.08,9)="^"
^DD(509850.6,4.08,21,0)="^^2^2^2981217^^^^"
^DD(509850.6,4.08,21,1,0)="The TONE L1000 field indicates the pure tone threshold (Left) at 1000Hz"
^DD(509850.6,4.08,21,2,0)="for this patient."
^DD(509850.6,4.08,"DT")="2981217"
^DD(509850.6,4.09,0)="TONE L2000^RNJ3,0^^4;9^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.09,.1)="Tone L2000"
^DD(509850.6,4.09,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.09,9)="^"
^DD(509850.6,4.09,21,0)="^^2^2^2981217^^^"
^DD(509850.6,4.09,21,1,0)="The TONE L2000 field indicates the pure tone threshold (Left) at 2000Hz"
^DD(509850.6,4.09,21,2,0)="for this patient."
^DD(509850.6,4.09,"DT")="2981217"
^DD(509850.6,4.1,0)="TONE L3000^RNJ3,0^^4;10^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.1,.1)="Tone L3000"
^DD(509850.6,4.1,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.1,9)="^"
^DD(509850.6,4.1,21,0)="^^2^2^2981217^^^"
^DD(509850.6,4.1,21,1,0)="The TONE L3000 field indicates the pure tone threshold (Left) at 3000Hz"
^DD(509850.6,4.1,21,2,0)="for this patient."
^DD(509850.6,4.1,"DT")="2981217"
^DD(509850.6,4.11,0)="TONE L4000^RNJ3,0^^4;11^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.11,.1)="Tone L4000"
^DD(509850.6,4.11,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.6,4.11,9)="^"
^DD(509850.6,4.11,21,0)="^^2^2^2981217^^^"
^DD(509850.6,4.11,21,1,0)="The TONE L4000 field indicates the pure tone threshold (Left) at 4000Hz"
^DD(509850.6,4.11,21,2,0)="for this patient."
^DD(509850.6,4.11,"DT")="2981217"
^DD(509850.6,4.12,0)="TONE L AVERAGE^RNJ3,0^^4;12^K:+X'=X!(X>105)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.12,.1)="Tone L Average"
^DD(509850.6,4.12,3)="Type a Number between 0 and 105, 0 Decimal Digits"
^DD(509850.6,4.12,4)="W !?5,""This field is automatically filled in by the package."",!"
^DD(509850.6,4.12,9)="^"
^DD(509850.6,4.12,21,0)="^^7^7^2981217^^^^"
^DD(509850.6,4.12,21,1,0)="The TONE L AVERAGE field is the average pure tone threshold for this"
^DD(509850.6,4.12,21,2,0)="patient's left ear.  This indicates the average of the 1000, 2000,"
^DD(509850.6,4.12,21,3,0)="3000 and 4000Hz scores for the left ear."
^DD(509850.6,4.12,21,4,0)="  "
^DD(509850.6,4.12,21,5,0)="This is a computed field.  If the package options are used to enter "
^DD(509850.6,4.12,21,6,0)="the 1000 to 4000Hz threshold values, this field is computed and filled "
^DD(509850.6,4.12,21,7,0)="in by the QUASAR software."
^DD(509850.6,4.12,"DT")="2981217"
^DD(509850.6,4.13,0)="CNC R^NJ3,0^^4;13^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.13,.1)="CNC Right"
^DD(509850.6,4.13,3)="Enter a number between 0 and 100 without the % symbol."
^DD(509850.6,4.13,9)="^"
^DD(509850.6,4.13,21,0)="^^2^2^2950816^^^"
^DD(509850.6,4.13,21,1,0)="The CNC R field contains the patient's (Right) word recognition score for "
^DD(509850.6,4.13,21,2,0)="Maryland CNC material.  This score is a percentage between 0 and 100."
^DD(509850.6,4.13,"DT")="2950725"
^DD(509850.6,4.14,0)="CNC L^NJ3,0^^4;14^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.14,.1)="CNC Left"
^DD(509850.6,4.14,3)="Enter a number between 0 and 100 without the % symbol."
^DD(509850.6,4.14,9)="^"
^DD(509850.6,4.14,21,0)="^^2^2^2950816^^^"
^DD(509850.6,4.14,21,1,0)="The CNC L field contains the patient's (Left) word recognition score for "
^DD(509850.6,4.14,21,2,0)="Maryland CNC material.  This score is a percentage between 0 and 100."
^DD(509850.6,4.14,"DT")="2950725"
^DD(509850.6,4.15,0)="W22 R^NJ3,0^^4;15^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.15,.1)="W22 Right"
^DD(509850.6,4.15,3)="Enter a number between 0 and 100 without the % symbol."
^DD(509850.6,4.15,9)="^"
^DD(509850.6,4.15,21,0)="^^2^2^2950816^^^"
^DD(509850.6,4.15,21,1,0)="The W22 R field contains the patient's (Right) word recognition score "
^DD(509850.6,4.15,21,2,0)="for CID W-22 material.  This score is a percentage between 0 and 100."
^DD(509850.6,4.15,"DT")="2950725"
^DD(509850.6,4.16,0)="W22 L^NJ3,0^^4;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.16,.1)="W22 Left"
^DD(509850.6,4.16,3)="Enter a number between 0 and 100 without the % symbol."
^DD(509850.6,4.16,9)="^"
^DD(509850.6,4.16,21,0)="^^2^2^2950816^^^"
^DD(509850.6,4.16,21,1,0)="The W22 L field contains the patient's (Left) word recognition score "
^DD(509850.6,4.16,21,2,0)="for CID W-22 material.  This score is a percentage between 0 and 100."
^DD(509850.6,4.16,"DT")="2950725"
^DD(509850.6,4.17,0)="SIGNATURE^F^^4;17^K:$L(X)>30!($L(X)<3) X"
^DD(509850.6,4.17,.1)="Signature"
^DD(509850.6,4.17,1,0)="^.1"
^DD(509850.6,4.17,1,1,0)="^^TRIGGER^509850.6^.09"
^DD(509850.6,4.17,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.17,1,1,1.4)"
^DD(509850.6,4.17,1,1,1.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,4.17,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.17,1,1,2.4)"
^DD(509850.6,4.17,1,1,2.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,4.17,1,1,3)="DO NOT DELETE!"
^DD(509850.6,4.17,1,1,"%D",0)="^^2^2^2951208^^^"
^DD(509850.6,4.17,1,1,"%D",1,0)="The SIGNATURE field triggers the appropriate value into the C&P "
^DD(509850.6,4.17,1,1,"%D",2,0)="STATUS field."
^DD(509850.6,4.17,1,1,"CREATE VALUE")="D TRIGCP^ACKQUTL"
^DD(509850.6,4.17,1,1,"DELETE VALUE")="D TRIGCP^ACKQUTL"
^DD(509850.6,4.17,1,1,"DT")="2921029"
^DD(509850.6,4.17,1,1,"FIELD")="#.09"
^DD(509850.6,4.17,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.6,4.17,9)="^"
^DD(509850.6,4.17,21,0)="^^7^7^2991109^^^^"
^DD(509850.6,4.17,21,1,0)="For C&P exams, the SIGNATURE field contains the electronic signature "
^DD(509850.6,4.17,21,2,0)="of the audiologist who completed the exam.  When the exam is signed, "
^DD(509850.6,4.17,21,3,0)="it is released for adequation by the supervisor.  Clinicians and "
^DD(509850.6,4.17,21,4,0)="adequators must have an electronic signature provided by IRM or "
^DD(509850.6,4.17,21,5,0)="selected through the Edit Electronic Signature Code option on the "
^DD(509850.6,4.17,21,6,0)="User's Toolbox menu in the user's secondary DHCP menu.  The signature "
^DD(509850.6,4.17,21,7,0)="field is not displayed for routine exams."
^DD(509850.6,4.17,"DT")="2950725"
^DD(509850.6,4.18,0)="DATE SIGNED^D^^4;18^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.6,4.18,.1)="Date Signed"
^DD(509850.6,4.18,3)="Enter the date and time that the electronic signature was entered."
^DD(509850.6,4.18,9)="^"
^DD(509850.6,4.18,21,0)="^^3^3^2950816^^^"
^DD(509850.6,4.18,21,1,0)="For C&P exams, the DATE SIGNED field contains the date that the "
^DD(509850.6,4.18,21,2,0)="electronic signature was entered, thereby releasing the C&P exam for "
^DD(509850.6,4.18,21,3,0)="adequation.  The DATE SIGNED field is not displayed for routine exams."
^DD(509850.6,4.18,"DT")="2950725"
^DD(509850.6,4.19,0)="ADEQUATED BY^F^^4;19^K:$L(X)>30!($L(X)<3) X"
^DD(509850.6,4.19,.1)="Adequated By"
^DD(509850.6,4.19,1,0)="^.1"
^DD(509850.6,4.19,1,1,0)="^^TRIGGER^509850.6^.09"
^DD(509850.6,4.19,1,1,1)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.19,1,1,1.4)"
^DD(509850.6,4.19,1,1,1.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,4.19,1,1,2)="K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACK(509850.6,D0,0)):^(0),1:"""") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV D TRIGCP^ACKQUTL X ^DD(509850.6,4.19,1,1,2.4)"
^DD(509850.6,4.19,1,1,2.4)="S DIH=$S($D(^ACK(509850.6,DIV(0),0)):^(0),1:""""),DIV=X S $P(^(0),U,9)=DIV,DIH=509850.6,DIG=.09 D ^DICR:$O(^DD(DIH,DIG,1,0))'="""""
^DD(509850.6,4.19,1,1,3)="DO NOT DELETE!"
^DD(509850.6,4.19,1,1,"%D",0)="^^2^2^2951208^^^"
^DD(509850.6,4.19,1,1,"%D",1,0)="The ADEQUATED BY field triggers the appropriate value into the C&P "
^DD(509850.6,4.19,1,1,"%D",2,0)="STATUS field."
^DD(509850.6,4.19,1,1,"CREATE VALUE")="D TRIGCP^ACKQUTL"
^DD(509850.6,4.19,1,1,"DELETE VALUE")="D TRIGCP^ACKQUTL"
^DD(509850.6,4.19,1,1,"DT")="2921029"
^DD(509850.6,4.19,1,1,"FIELD")="#.09"
^DD(509850.6,4.19,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.6,4.19,9)="^"
^DD(509850.6,4.19,21,0)="^^10^10^2960402^^^^"
^DD(509850.6,4.19,21,1,0)="The ADEQUATED BY field contains the electronic signature of the "
^DD(509850.6,4.19,21,2,0)="audiologist who adequated the clinic visit.  Only an adequator designated "
^DD(509850.6,4.19,21,3,0)="as a supervisor in the A&SP STAFF file (#509850.3) can adequate a C&P exam "
^DD(509850.6,4.19,21,4,0)="for other clinicians.  Clinicians may adequate there own C&P exams."
^DD(509850.6,4.19,21,5,0)="  "
^DD(509850.6,4.19,21,6,0)="Adequators must have an electronic signature provided by IRM or "
^DD(509850.6,4.19,21,7,0)="selected through the Edit Electronic Signature Code option on the "
^DD(509850.6,4.19,21,8,0)="User's Toolbox menu in the user's secondary DHCP menu.  The signature "
^DD(509850.6,4.19,21,9,0)="field is not displayed for routine exams.  Adequated exams can "
^DD(509850.6,4.19,21,10,0)="be printed and/or released to the AMIE package."
^DD(509850.6,4.19,"DT")="2950725"
^DD(509850.6,4.2,0)="DATE ADEQUATED^D^^4;20^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.6,4.2,.1)="Date Adequated"
^DD(509850.6,4.2,3)="Enter the date and time that the electronic signature was entered."
^DD(509850.6,4.2,9)="^"
^DD(509850.6,4.2,21,0)="^^2^2^2950816^^^"
^DD(509850.6,4.2,21,1,0)="The DATE ADEQUATED field contains the date that the electronic "
^DD(509850.6,4.2,21,2,0)="signature was entered for the adequation of this C&P exam."
^DD(509850.6,4.2,"DT")="2950725"
^DD(509850.6,4.21,0)="*NU6 R^NJ3,0^^4;21^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.21,.1)="NU6 Right"
^DD(509850.6,4.21,3)="Enter a number between 0 and 100 with 0 decimal digits."
^DD(509850.6,4.21,9)="^"
^DD(509850.6,4.21,21,0)="^^6^6^2951214^^^"
^DD(509850.6,4.21,21,1,0)="The NU6 R field contains the patient's (Right) word recognition score "
^DD(509850.6,4.21,21,2,0)="for NU-6 material.  This score is a percentage between 0 and 100."
^DD(509850.6,4.21,21,3,0)="  "
^DD(509850.6,4.21,21,4,0)="The NU6 R field has been marked for deletion.  This field is not"
^DD(509850.6,4.21,21,5,0)="used by QUASAR V. 2.0.  Eighteen months after the release of "
^DD(509850.6,4.21,21,6,0)="QUASAR 2.0, this field can be removed."
^DD(509850.6,4.21,"DT")="2951214"
^DD(509850.6,4.22,0)="*NU6 L^NJ3,0^^4;22^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.6,4.22,.1)="NU6 Left"
^DD(509850.6,4.22,3)="Enter a number between 0 and 100 with 0 decimal digits."
^DD(509850.6,4.22,9)="^"
^DD(509850.6,4.22,21,0)="^^6^6^2951214^^^^"
^DD(509850.6,4.22,21,1,0)="The NU6 L field contains the patient's (Left) word recognition score "
^DD(509850.6,4.22,21,2,0)="for NU-6 material.  This score is a percentage between 0 and 100."
^DD(509850.6,4.22,21,3,0)="  "
^DD(509850.6,4.22,21,4,0)="The NU6 L field has been marked for deletion.  This field is not"
^DD(509850.6,4.22,21,5,0)="used by QUASAR V. 2.0.  Eighteen months after the release of"
^DD(509850.6,4.22,21,6,0)="QUASAR 2.0, this field can be removed."
^DD(509850.6,4.22,"DT")="2951214"
^DD(509850.6,4.23,0)="DATE OF AUDIOMETRIC TESTING^D^^4;23^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.6,4.23,.1)="Date of Audiometric Testing"
^DD(509850.6,4.23,3)="Enter the date that audiometric testing was done."
^DD(509850.6,4.23,9)="^"
^DD(509850.6,4.23,21,0)="^^3^3^2950725^^"
^DD(509850.6,4.23,21,1,0)="When audiometric data are pulled from a past visit (i.e., testing is "
^DD(509850.6,4.23,21,2,0)="not done on the current date), the DATE OF AUDIOMETRIC TESTING field "
^DD(509850.6,4.23,21,3,0)="is filled with the date when actual testing was done."
^DD(509850.6,4.23,"DT")="2950725"
^DD(509850.6,4.24,0)="COMPLETER TITLE^F^^4;24^K:$L(X)>30!($L(X)<3) X"
^DD(509850.6,4.24,.1)="Completer Title"
^DD(509850.6,4.24,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.6,4.24,9)="^"
^DD(509850.6,4.24,21,0)="^^7^7^2960402^^"
^DD(509850.6,4.24,21,1,0)="For C&P exams, the COMPLETER TITLE field contains the title of the"
^DD(509850.6,4.24,21,2,0)="audiologist who completed the exam.  QUASAR fills in this field from"
^DD(509850.6,4.24,21,3,0)="the SIGNATURE BLOCK TITLE in the NEW PERSON file (#200).  SIGNATURE"
^DD(509850.6,4.24,21,4,0)="BLOCK TITLE can be entered by IRM or through the Edit Electronic"
^DD(509850.6,4.24,21,5,0)="Signature Code option on the User's Toolbox menu in the user's"
^DD(509850.6,4.24,21,6,0)="secondary DHCP menu.  The title field is not displayed for routine"
^DD(509850.6,4.24,21,7,0)="exams."
^DD(509850.6,4.24,"DT")="2960402"
^DD(509850.6,4.25,0)="ADEQUATOR TITLE^F^^4;25^K:$L(X)>30!($L(X)<3) X"
^DD(509850.6,4.25,.1)="Adequator Title"
^DD(509850.6,4.25,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.6,4.25,9)="^"
^DD(509850.6,4.25,21,0)="^^7^7^2960402^^"
^DD(509850.6,4.25,21,1,0)="For C&P exams, the ADEQUATOR TITLE field contains the title of the"
^DD(509850.6,4.25,21,2,0)="audiologist who adequated the clinic visit.  QUASAR fills in this"
^DD(509850.6,4.25,21,3,0)="field from the SIGNATURE BLOCK TITLE in the NEW PERSON file (#200)."
^DD(509850.6,4.25,21,4,0)="SIGNATURE BLOCK TITLE can be entered by IRM or through the Edit"
^DD(509850.6,4.25,21,5,0)="Electronic Signature Code option on the User's Toolbox menu in the"
^DD(509850.6,4.25,21,6,0)="user's secondary DHCP menu.  The title field is not displayed for"
^DD(509850.6,4.25,21,7,0)="routine exams."
^DD(509850.6,4.25,"DT")="2960402"
^DD(509850.6,5,0)="CDR ACCOUNT^*P509850'^ACK(509850,^2;2^S DIC(""S"")=""I $P(^(0),U,5)=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.6,5,.1)="CDR Account"
^DD(509850.6,5,1,0)="^.1"
^DD(509850.6,5,1,1,0)="509850.6^ATCAT^MUMPS"
^DD(509850.6,5,1,1,1)="S ACKCAT=$E(^ACK(509850,X,0),1,2),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_""00"",$P(^(ACKCAT),U)=$S($D(^ACK(509850.6,""ATCAT"",ACKMO,ACKCAT)):^(ACKCAT)+1,1:1)"
^DD(509850.6,5,1,1,2)="S ACKCAT=$E(^ACK(509850,X,0),1,2),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_""00"" S:$D(^ACK(509850.6,""ATCAT"",ACKMO,ACKCAT)) $P(^(ACKCAT),U)=^(ACKCAT)-1 K:$S($D(^(ACKCAT)):'^(ACKCAT),1:0) ^(ACKCAT) K ACKCAT,ACKMO"
^DD(509850.6,5,1,1,3)="DO NOT DELETE!"
^DD(509850.6,5,1,1,"%D",0)="^^4^4^2951207^"
^DD(509850.6,5,1,1,"%D",1,0)="This cross reference is ordered by FileMan internal date (year and"
^DD(509850.6,5,1,1,"%D",2,0)="month), followed by the first two digits of the CDR account number."
^DD(509850.6,5,1,1,"%D",3,0)="The cross-reference is used to store an incremental count of the"
^DD(509850.6,5,1,1,"%D",4,0)="visits for the month/CDR category."
^DD(509850.6,5,1,2,0)="509850.6^ATCDR^MUMPS"
^DD(509850.6,5,1,2,1)="S ACKCDR=+^ACK(509850,X,0),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_""00"",$P(^(ACKCDR),U)=$S($D(^ACK(509850.6,""ATCDR"",ACKMO,ACKCDR)):^(ACKCDR)+1,1:1) K ACKMO,ACKCDR"
^DD(509850.6,5,1,2,2)="S ACKCDR=+^ACK(509850,X,0),ACKMO=$E(^ACK(509850.6,DA,0),1,5)_""00"" S:$D(^ACK(509850.6,""ATCDR"",ACKMO,ACKCDR)) $P(^(ACKCDR),U)=^(ACKCDR)-1 K:$S($D(^(ACKCDR)):'^(ACKCDR),1:0) ^(ACKCDR) K ACKMO,ACKCDR"
^DD(509850.6,5,1,2,3)="DO NOT DELETE!"
^DD(509850.6,5,1,2,"%D",0)="^^4^4^2951207^"
^DD(509850.6,5,1,2,"%D",1,0)="This cross reference is ordered by FileMan internal date (year and"
^DD(509850.6,5,1,2,"%D",2,0)="month), followed by the full CDR account number (without trailing "".00"")."
^DD(509850.6,5,1,2,"%D",3,0)="The cross-reference is used to store an incremental count of the"
^DD(509850.6,5,1,2,"%D",4,0)="visits for the month and CDR account number."
^DD(509850.6,5,1,3,0)="509850.6^ADCI^MUMPS"
^DD(509850.6,5,1,3,1)="S ^ACK(509850.6,""ADCI"",$E($P(^ACK(509850.6,DA,0),U),1,5)_""00"",X,DA)="""""
^DD(509850.6,5,1,3,2)="K ^ACK(509850.6,""ADCI"",$E($P(^ACK(509850.6,DA,0),U),1,5)_""00"",X,DA)"
^DD(509850.6,5,1,3,3)="DO NOT DELETE!"
^DD(509850.6,5,1,3,"%D",0)="^^3^3^2990923^^^^"
^DD(509850.6,5,1,3,"%D",1,0)="This cross-reference identifies the date (internal FileMan year"
^DD(509850.6,5,1,3,"%D",2,0)="and month), CDR number (pointer to the CDR ACCOUNT file (#509850)),"
^DD(509850.6,5,1,3,"%D",3,0)="and internal entry number for each clinic visit."
^DD(509850.6,5,1,3,"DT")="2990923"
^DD(509850.6,5,3)="Enter the CDR account number for this exam."
^DD(509850.6,5,9)="^"
^DD(509850.6,5,12)="The CDR account must be active."
^DD(509850.6,5,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=1"""
^DD(509850.6,5,21,0)="^^2^2^2990315^^^^"
^DD(509850.6,5,21,1,0)="The CDR ACCOUNT field contains the CDR account number to be credited"
^DD(509850.6,5,21,2,0)="with this clinic visit."
^DD(509850.6,5,"DT")="2990923"
^DD(509850.6,6,0)="PRIMARY PROVIDER^*P509850.3'^ACK(509850.3,^2;3^S DIC(""S"")=""I $D(ACKVD),'$$STACT^ACKQUTL(+Y,ACKVD)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.6,6,.1)="Primary Provider"
^DD(509850.6,6,1,0)="^.1"
^DD(509850.6,6,1,1,0)="509850.6^ST1^MUMPS"
^DD(509850.6,6,1,1,1)="S ^ACK(509850.6,""ST"",X,DA)=1"
^DD(509850.6,6,1,1,2)="K ^ACK(509850.6,""ST"",X,DA)"
^DD(509850.6,6,1,1,3)="DO NOT DELETE!"
^DD(509850.6,6,1,1,"%D",0)="^.101^7^7^3000329^^^"
^DD(509850.6,6,1,1,"%D",1,0)="The ST subscript holds cross-references for all staff involved "
^DD(509850.6,6,1,1,"%D",2,0)="in this clinic visit.  Rather than set the cross-reference equal to "
^DD(509850.6,6,1,1,"%D",3,0)="null, it is coded as to the position of the staff member."
^DD(509850.6,6,1,1,"%D",4,0)=" "
^DD(509850.6,6,1,1,"%D",5,0)="           1 = PRIMARY PROVIDER"
^DD(509850.6,6,1,1,"%D",6,0)="           2 = SECONDARY PROVIDER"
^DD(509850.6,6,1,1,"%D",7,0)="           3 = STUDENT"
^DD(509850.6,6,1,1,"DT")="2920627"
^DD(509850.6,6,1,2,0)="509850.6^AI^MUMPS"
^DD(509850.6,6,1,2,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,6,1,2,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,6,1,2,3)="Do not Delete"
^DD(509850.6,6,1,2,"%D",0)="^.101^2^2^3000329^^^^"
^DD(509850.6,6,1,2,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,6,1,2,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,6,1,2,"DT")="2990929"
^DD(509850.6,6,3)="Enter the name of the Primary Provider who saw the patient."
^DD(509850.6,6,4)="I '$D(ACKVD) W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.6,6,9)="^"
^DD(509850.6,6,12)="Only A&SP PRIMARY PROVIDERS who are ACTIVE on the VISIT DATE can be selected."
^DD(509850.6,6,12.1)="S DIC(""S"")=""I $D(ACKVD),'$$STACT^ACKQUTL(+Y,ACKVD)"""
^DD(509850.6,6,21,0)="^.001^12^12^3000323^^"
^DD(509850.6,6,21,1,0)="The PRIMARY PROVIDER field contains the name of the primary A&SP Provider"
^DD(509850.6,6,21,2,0)="who participated in this exam.  In order to enter a Provider in this"
^DD(509850.6,6,21,3,0)="field, the Provider must already exist in the A&SP STAFF file (#509850.3)"
^DD(509850.6,6,21,4,0)="and the ACTIVATION DATE and INACTIVATION DATE must indicate that the"
^DD(509850.6,6,21,5,0)="selected Provider is active on the date of the exam."
^DD(509850.6,6,21,6,0)="  "
^DD(509850.6,6,21,7,0)="Credit for a clinic visit is always credited to the Primary Provider. If"
^DD(509850.6,6,21,8,0)="you want credit be given to the SECONDARY PROVIDER or STUDENT, then you"
^DD(509850.6,6,21,9,0)="should enter ONLY the name of the provider who will get the credit.  For"
^DD(509850.6,6,21,10,0)="example, if a health technician provides care and will get credit for the"
^DD(509850.6,6,21,11,0)="visit, the health technician's name should be entered in the SECONDARY"
^DD(509850.6,6,21,12,0)="PROVIDER field.  All other fields should be left blank."
^DD(509850.6,6,"DT")="2990929"
^DD(509850.6,6.5,0)="PCE ERROR^509850.65A^^6.5;0"
^DD(509850.6,6.5,21,0)="^^4^4^2990915^^^^"
^DD(509850.6,6.5,21,1,0)="This multiple contains any error messages returned by PCE when this visit was"
^DD(509850.6,6.5,21,2,0)="transmitted via the Interface to PCE. The multiple contains the name of the "
^DD(509850.6,6.5,21,3,0)="field in error, the internal value of the field, the external value of the "
^DD(509850.6,6.5,21,4,0)="field (where possible) and the text of the error message."
^DD(509850.6,6.5,"DT")="2990702"
^DD(509850.6,7,0)="STUDENT^*P509850.3'^ACK(509850.3,^2;4^S DIC(""S"")=""I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-2"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.6,7,.1)="Student"
^DD(509850.6,7,1,0)="^.1"
^DD(509850.6,7,1,1,0)="509850.6^ST3^MUMPS"
^DD(509850.6,7,1,1,1)="S ^ACK(509850.6,""ST"",X,DA)=3"
^DD(509850.6,7,1,1,2)="K ^ACK(509850.6,""ST"",X,DA)"
^DD(509850.6,7,1,1,3)="DO NOT DELETE!"
^DD(509850.6,7,1,1,"%D",0)="^.101^8^8^3000329^^"
^DD(509850.6,7,1,1,"%D",1,0)="The ST subscript holds cross-references for all staff involved"
^DD(509850.6,7,1,1,"%D",2,0)="in this clinic visit.  Rather than set the cross-reference equal to"
^DD(509850.6,7,1,1,"%D",3,0)="null, it is coded as to the position of the staff member."
^DD(509850.6,7,1,1,"%D",4,0)="  "
^DD(509850.6,7,1,1,"%D",5,0)="           1 = CLINICIAN"
^DD(509850.6,7,1,1,"%D",6,0)="           2 = SECOND CLINICIAN"
^DD(509850.6,7,1,1,"%D",7,0)="           3 = STUDENT"
^DD(509850.6,7,1,1,"%D",8,0)="           4 = OTHER PROVIDER"
^DD(509850.6,7,1,1,"DT")="2920627"
^DD(509850.6,7,1,2,0)="509850.6^AK^MUMPS"
^DD(509850.6,7,1,2,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,7,1,2,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,7,1,2,3)="Do not Delete"
^DD(509850.6,7,1,2,"%D",0)="^.101^2^2^3000329^^^^"
^DD(509850.6,7,1,2,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,7,1,2,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,7,1,2,"DT")="2990929"
^DD(509850.6,7,3)="If a student was involved with this visit, enter the student's name."
^DD(509850.6,7,4)="I '$D(ACKVD) W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.6,7,9)="^"
^DD(509850.6,7,12)="Only STUDENTS who are ACTIVE on the VISIT DATE can be selected."
^DD(509850.6,7,12.1)="S DIC(""S"")=""I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-2"""
^DD(509850.6,7,21,0)="^^8^8^2990406^^"
^DD(509850.6,7,21,1,0)="If a student or trainee participated in this exam, the name of the "
^DD(509850.6,7,21,2,0)="STUDENT should be entered here.  In order to enter a student in this "
^DD(509850.6,7,21,3,0)="field, the student must already exist in the A&SP STAFF file "
^DD(509850.6,7,21,4,0)="(#509850.3), be designated as a student, and the ACTIVATION DATE and "
^DD(509850.6,7,21,5,0)="INACTIVATION DATE must indicate that the selected student is active on "
^DD(509850.6,7,21,6,0)="the date of the exam."
^DD(509850.6,7,21,7,0)="  "
^DD(509850.6,7,21,8,0)="QUASAR assumes that students are supervised 100% of the time. "
^DD(509850.6,7,"DT")="2990929"
^DD(509850.6,8,0)="*OTHER PROVIDER^*P509850.3'^ACK(509850.3,^2;8^S DIC(""S"")=""I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-6"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.6,8,.1)="Other Provider"
^DD(509850.6,8,1,0)="^.1"
^DD(509850.6,8,1,1,0)="509850.6^ST4^MUMPS"
^DD(509850.6,8,1,1,1)="S ^ACK(509850.6,""ST"",X,DA)=4"
^DD(509850.6,8,1,1,2)="K ^ACK(509850.6,""ST"",X,DA)"
^DD(509850.6,8,1,1,3)="DO NOT DELETE!"
^DD(509850.6,8,1,1,"%D",0)="^^8^8^2951207^"
^DD(509850.6,8,1,1,"%D",1,0)="The ST subscript holds cross-references for all staff involved"
^DD(509850.6,8,1,1,"%D",2,0)="in this clinic visit.  Rather than set the cross-reference equal to"
^DD(509850.6,8,1,1,"%D",3,0)="null, it is coded as to the position of the staff member."
^DD(509850.6,8,1,1,"%D",4,0)="  "
^DD(509850.6,8,1,1,"%D",5,0)="           1 = CLINICIAN"
^DD(509850.6,8,1,1,"%D",6,0)="           2 = SECOND CLINICIAN"
^DD(509850.6,8,1,1,"%D",7,0)="           3 = STUDENT"
^DD(509850.6,8,1,1,"%D",8,0)="           4 = OTHER PROVIDER"
^DD(509850.6,8,1,1,"DT")="2950926"
^DD(509850.6,8,3)="If an health technician was involved with this visit, enter his or her name."
^DD(509850.6,8,4)="I '$D(ACKVD) W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.6,8,9)="^"
^DD(509850.6,8,12)="Only OTHER PROVIDERS who are ACTIVE on the VISIT DATE can be selected."
^DD(509850.6,8,12.1)="S DIC(""S"")=""I $D(ACKVD),$$STACT^ACKQUTL(+Y,ACKVD)=-6"""
^DD(509850.6,8,21,0)="^^9^9^2990310^^"
^DD(509850.6,8,21,1,0)="The OTHER PROVIDER field contains the name of the health technician"
^DD(509850.6,8,21,2,0)="who participated in this exam.  In order to enter a name in this"
^DD(509850.6,8,21,3,0)="field, the person must already exist in the A&SP STAFF file (#509850.3)"
^DD(509850.6,8,21,4,0)="and the ACTIVATION DATE and INACTIVATION DATE must indicate that the"
^DD(509850.6,8,21,5,0)="selected individual is active on the date of the exam."
^DD(509850.6,8,21,6,0)=" "
^DD(509850.6,8,21,7,0)="The OTHER PROVIDER field has been marked for deletion.  This field is "
^DD(509850.6,8,21,8,0)="not used by QUASAR V. 3.0.  Eighteen months after the release of "
^DD(509850.6,8,21,9,0)="QUASAR 3.0, this field can be removed."
^DD(509850.6,8,"DT")="2990219"
^DD(509850.6,9,0)="*DISPOSITION^F^^2;6^K:$L(X)>80!($L(X)<3) X"
^DD(509850.6,9,.1)="Disposition"
^DD(509850.6,9,3)="Your answer must be 3 to 80 characters in length."
^DD(509850.6,9,9)="^"
^DD(509850.6,9,21,0)="^^9^9^2990423^^"
^DD(509850.6,9,21,1,0)="The DISPOSITION field permits you to enter free text data (up to 80 "
^DD(509850.6,9,21,2,0)="characters).  You can code any data in this field such as clinic "
^DD(509850.6,9,21,3,0)="outcomes, pre and/or post test data, patient satisfaction, or any other "
^DD(509850.6,9,21,4,0)="numerical data.  This data field can be sorted using FileMan in the "
^DD(509850.6,9,21,5,0)="Tailor-Made A&SP Reports option on the A&SP Reports menu."
^DD(509850.6,9,21,6,0)=" "
^DD(509850.6,9,21,7,0)="The DISPOSITION field has been marked for deletion.  This field is "
^DD(509850.6,9,21,8,0)="not used by QUASAR V. 3.0.  Eighteen months after the release of "
^DD(509850.6,9,21,9,0)="QUASAR 3.0, this field can be removed."
^DD(509850.6,9,"DT")="2990219"
^DD(509850.6,10,0)="PROCEDURE CODE^509850.61PA^^3;0"
^DD(509850.6,10,9)="^"
^DD(509850.6,10,21,0)="^.001^2^2^3001006^^^^"
^DD(509850.6,10,21,1,0)="The PROCEDURE CODE field contains CPT-4 procedure codes and modifiers, "
^DD(509850.6,10,21,2,0)="if any, for this exam."
^DD(509850.6,15,0)="EVENT CAPTURE PROCEDURE^509850.615PA^^7;0"
^DD(509850.6,15,"DT")="3001003"
^DD(509850.6,20,0)="SERVICE CONNECTED^RS^0:NO;1:YES;^5;3^Q"
^DD(509850.6,20,.1)=" "
^DD(509850.6,20,1,0)="^.1"
^DD(509850.6,20,1,1,0)="509850.6^AE^MUMPS"
^DD(509850.6,20,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,20,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,20,1,1,3)="Do not Delete"
^DD(509850.6,20,1,1,"%D",0)="^.101^2^2^3000508^^^^"
^DD(509850.6,20,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,20,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,20,1,1,"DT")="2990929"
^DD(509850.6,20,3)="Was care for Service Connected Condition ?                                 Enter YES or NO"
^DD(509850.6,20,4)="D RATDIS^ACKQNQ W !!"
^DD(509850.6,20,21,0)="^^4^4^2991101^^^^"
^DD(509850.6,20,21,1,0)="This prompt allows the user to indicate if the visit is Service Connected"
^DD(509850.6,20,21,2,0)="or not.  If the visit is not Service Connected the user may be prompted"
^DD(509850.6,20,21,3,0)="for additional information relating to Agent Orange, Radiation and"
^DD(509850.6,20,21,4,0)="Environmental Contaminants."
^DD(509850.6,20,"DT")="2990929"
^DD(509850.6,25,0)="AGENT ORANGE^RS^0:NO;1:YES;^5;4^Q"
^DD(509850.6,25,1,0)="^.1"
^DD(509850.6,25,1,1,0)="509850.6^AF^MUMPS"
^DD(509850.6,25,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,25,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,25,1,1,3)="Do not Delete"
^DD(509850.6,25,1,1,"%D",0)="^^2^2^3000801^"
^DD(509850.6,25,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,25,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,25,1,1,"DT")="2990929"
^DD(509850.6,25,3)="Was care related to Agent Orange Exposure ?                                Enter YES or NO"
^DD(509850.6,25,21,0)="^^1^1^2991101^^^"
^DD(509850.6,25,21,1,0)="Is this visit related to Agent Orange Exposure."
^DD(509850.6,25,"DT")="2990929"
^DD(509850.6,30,0)="RADIATION^RS^0:NO;1:YES;^5;5^Q"
^DD(509850.6,30,1,0)="^.1"
^DD(509850.6,30,1,1,0)="509850.6^AG^MUMPS"
^DD(509850.6,30,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,30,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,30,1,1,3)="Do not Delete"
^DD(509850.6,30,1,1,"%D",0)="^.101^2^2^3000801^^^^"
^DD(509850.6,30,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,30,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,30,1,1,"DT")="2990929"
^DD(509850.6,30,3)="Was care related to Ionizing Radiation Exposure ?                          Enter YES or NO"
^DD(509850.6,30,21,0)="^^1^1^2991101^^^"
^DD(509850.6,30,21,1,0)="Is this visit related to Radiation Exposure."
^DD(509850.6,30,"DT")="2990929"
^DD(509850.6,35,0)="ENVIRONMENTAL CONTAMINANTS^RS^0:NO;1:YES;^5;6^Q"
^DD(509850.6,35,1,0)="^.1"
^DD(509850.6,35,1,1,0)="509850.6^AH^MUMPS"
^DD(509850.6,35,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,35,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,35,1,1,3)="Do not Delete"
^DD(509850.6,35,1,1,"%D",0)="^^2^2^2990929^^^^"
^DD(509850.6,35,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,35,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,35,1,1,"DT")="2990929"
^DD(509850.6,35,3)="Was care related to Environmental Contaminants Exposure ?                 Enter YES or NO"
^DD(509850.6,35,21,0)="^^1^1^2991101^^^^"
^DD(509850.6,35,21,1,0)="Is this visit related to Environmental Contaminants exposure."
^DD(509850.6,35,"DT")="2990929"
^DD(509850.6,55,0)="APPOINTMENT TIME^RFXO^^5;8^K:$L(X)>8!($L(X)<1) X I $D(X) S X=$$DATACHEK^ACKQUTL6(X,DA) K:'X X I $D(X) I '$$DUPECHK^ACKQUTL6(X,DA,$G(ACKPAT)) S ACKITME=X K X"
^DD(509850.6,55,1,0)="^.1"
^DD(509850.6,55,1,1,0)="509850.6^AN^MUMPS"
^DD(509850.6,55,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,55,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,55,1,1,3)="Do not Delete."
^DD(509850.6,55,1,1,"%D",0)="^^2^2^2990929^^"
^DD(509850.6,55,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,55,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,55,1,1,"DT")="2990929"
^DD(509850.6,55,1,2,0)="509850.6^APCET^MUMPS"
^DD(509850.6,55,1,2,1)="D SETREF^ACKQUTL5(X,DA,""T"")"
^DD(509850.6,55,1,2,2)="D KILLREF^ACKQUTL5(X,DA,""T"")"
^DD(509850.6,55,1,2,3)="Do not Delete"
^DD(509850.6,55,1,2,"%D",0)="^^6^6^2990922^^"
^DD(509850.6,55,1,2,"%D",1,0)="This cross reference is only set when all four of the required fields"
^DD(509850.6,55,1,2,"%D",2,0)="(Visit Date, Patient, Clinic Location and Visit Time) for this cross"
^DD(509850.6,55,1,2,"%D",3,0)="reference exist within the Visit File.  After the cross reference has "
^DD(509850.6,55,1,2,"%D",4,0)="been set up, if any of the required fields are deleted the cross reference"
^DD(509850.6,55,1,2,"%D",5,0)="is deleted.  If any of the required fields are amended the cross reference"
^DD(509850.6,55,1,2,"%D",6,0)="is deleted and reset with the amended values."
^DD(509850.6,55,1,2,"DT")="2990916"
^DD(509850.6,55,2)="S Y(0)=Y Q:'$D(Y)  S Y=$TR(Y,""."",""""),Y=$$FMT^ACKQUTL6(Y)"
^DD(509850.6,55,2.1)="Q:'$D(Y)  S Y=$TR(Y,""."",""""),Y=$$FMT^ACKQUTL6(Y)"
^DD(509850.6,55,3)="Answer must be 1-8 characters in length."
^DD(509850.6,55,4)="D:$D(ACKITME) DUPCHK^ACKQUTL6 D TIMERR^ACKQASU5"
^DD(509850.6,55,21,0)="^^3^3^2991011^^^^"
^DD(509850.6,55,21,1,0)="Enter the time the visit took place such as 10, 10AM, 10:30, 0100, 0025"
^DD(509850.6,55,21,2,0)="etc.  You may also enter a time, such as NOON, MIDNIGHT or NOW.  "
^DD(509850.6,55,21,3,0)="Time is REQUIRED in this response."
^DD(509850.6,55,"DT")="2991011"
^DD(509850.6,60,0)="DIVISION^RP40.8'^DG(40.8,^5;1^Q"
^DD(509850.6,60,1,0)="^.1"
^DD(509850.6,60,1,1,0)="509850.6^AL^MUMPS"
^DD(509850.6,60,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,60,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,60,1,1,3)="Do not Delete"
^DD(509850.6,60,1,1,"%D",0)="^^2^2^2990929^^^^"
^DD(509850.6,60,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,60,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,60,1,1,"DT")="2990929"
^DD(509850.6,60,3)="Enter the Division at which the visit took place."
^DD(509850.6,60,21,0)="^^3^3^2990616^^^"
^DD(509850.6,60,21,1,0)="This is the division at which the visit took place.  All clinics are"
^DD(509850.6,60,21,2,0)="defined as part of a Division.  The user may only select a division that"
^DD(509850.6,60,21,3,0)="has been entered on the A&SP Site Parameters file."
^DD(509850.6,60,"DT")="2990929"
^DD(509850.6,80,0)="VISIT ELIGIBILITY^R*P8'^DIC(8,^5;2^S DIC(""S"")=""I $D(ACKELDIS(Y))"",DIC(""W"")=""W """""""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.6,80,1,0)="^.1"
^DD(509850.6,80,1,1,0)="509850.6^AD^MUMPS"
^DD(509850.6,80,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,80,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,80,1,1,3)="Do not Delete"
^DD(509850.6,80,1,1,"%D",0)="^^2^2^2990929^^^^"
^DD(509850.6,80,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,80,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,80,1,1,"DT")="2990929"
^DD(509850.6,80,3)=" "
^DD(509850.6,80,12)="Only eligibilities associated with the visit are valid for entry."
^DD(509850.6,80,12.1)="S DIC(""S"")=""I $D(ACKELDIS(Y))"",DIC(""W"")=""W """""""""""
^DD(509850.6,80,21,0)="^^1^1^2991008^^^^"
^DD(509850.6,80,21,1,0)="Only Eligibilities associated with the visit are valid for entry."
^DD(509850.6,80,"DT")="2990929"
^DD(509850.6,90,0)="MILITARY SEXUAL TRAUMA^RS^1:YES;0:NO;^2;9^Q"
^DD(509850.6,90,1,0)="^.1"
^DD(509850.6,90,1,1,0)="509850.6^AP^MUMPS"
^DD(509850.6,90,1,1,1)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,90,1,1,2)="D SEND^ACKQUTL5(DA)"
^DD(509850.6,90,1,1,3)="Do not Delete"
^DD(509850.6,90,1,1,"%D",0)="^.101^2^2^3000801^^"
^DD(509850.6,90,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.6,90,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.6,90,1,1,"DT")="3000801"
^DD(509850.6,90,3)="Please enter YES or NO."
^DD(509850.6,90,21,0)="^^2^2^3000801^"
^DD(509850.6,90,21,1,0)="Indicates whether the patients visit was related to Military Sexual"
^DD(509850.6,90,21,2,0)="Trauma."
^DD(509850.6,90,"DT")="3000801"
^DD(509850.6,100,0)="REVIEW OF MEDICAL RECORDS^509850.62^^100;0"
^DD(509850.6,100,9)="^"
^DD(509850.6,100,21,0)="3^^3^3^2990622^"
^DD(509850.6,100,21,1,0)=" REVIEW OF MEDICAL RECORDS: Indicate whether the C-file was reviewed. If"
^DD(509850.6,100,21,2,0)=" the C-file was not reviewed or was not available for review, the examiner"
^DD(509850.6,100,21,3,0)=" should so state."
^DD(509850.6,100,"DT")="2970604"
^DD(509850.6,101,0)="MEDICAL HISTORY^509850.6101^^101;0"
^DD(509850.6,101,9)="^"
^DD(509850.6,101,21,0)="^^15^15^2990610^"
^DD(509850.6,101,21,1,0)=" MEDICAL HISTORY (SUBJECTIVE COMPLAINTS):"
^DD(509850.6,101,21,2,0)="|NOWRAP|"
^DD(509850.6,101,21,3,0)=" Comment on:"
^DD(509850.6,101,21,4,0)=" 1. Chief Complaint."
^DD(509850.6,101,21,5,0)=" 2. Situation of greatest difficulty."
^DD(509850.6,101,21,6,0)=" 3. Pertinent service history."
^DD(509850.6,101,21,7,0)=" 4. History of military, occupational, and recreational noise exposure."
^DD(509850.6,101,21,8,0)=" 5. Tinnitus - If present, state:"
^DD(509850.6,101,21,9,0)="    a. date and circumstances of onset"
^DD(509850.6,101,21,10,0)="    b. whether it is unilateral or bilateral"
^DD(509850.6,101,21,11,0)="    c. whether it is recurrent (indicate frequency and duration)"
^DD(509850.6,101,21,12,0)="    d. State the most likely etiology of the tinnitus, and    "
^DD(509850.6,101,21,13,0)="       specifically, if hearing loss is present, whether the tinnitus "
^DD(509850.6,101,21,14,0)="       is due to the same etiology (or causative factor) as the hearing"
^DD(509850.6,101,21,15,0)="       loss."
^DD(509850.6,101,"DT")="2970604"
^DD(509850.6,102,0)="PHYSICAL EXAMINATION^509850.6102^^102;0"
^DD(509850.6,102,9)="^"
^DD(509850.6,102,21,0)="^^21^21^2990608^"
^DD(509850.6,102,21,1,0)=" PHYSICAL EXAMINATION (OBJECTIVE FINDINGS):"
^DD(509850.6,102,21,2,0)="|NOWRAP|"
^DD(509850.6,102,21,3,0)=" 1. Measure pure tone thresholds in decibels at the indicated "
^DD(509850.6,102,21,4,0)="    frequencies (air conduction):"
^DD(509850.6,102,21,5,0)=" ==========RIGHT EAR=============================LEFT EAR==============="
^DD(509850.6,102,21,6,0)="  A*    B     C     D     E    **     A*    B     C     D     E    **"
^DD(509850.6,102,21,7,0)=" 500  1000  2000  3000  4000 average 500  1000  2000  3000  4000 average"
^DD(509850.6,102,21,8,0)="   "
^DD(509850.6,102,21,9,0)="   *The pure tone threshold at 500 Hz is not used in determining the"
^DD(509850.6,102,21,10,0)="    evaluation but is used in determining whether or not a ratable "
^DD(509850.6,102,21,11,0)="    hearing loss exists.  "
^DD(509850.6,102,21,12,0)="   **The average of B, C, D, and E."
^DD(509850.6,102,21,13,0)="   "
^DD(509850.6,102,21,14,0)=" 2. Speech Recognition Score:"
^DD(509850.6,102,21,15,0)="    Maryland CNC word list ______% right ear _____% left ear"
^DD(509850.6,102,21,16,0)=" "
^DD(509850.6,102,21,17,0)=" 3. When only pure tone results should be used to evaluate hearing "
^DD(509850.6,102,21,18,0)="    loss, the examiner, who must be a state-licensed audiologist, should  "
^DD(509850.6,102,21,19,0)="    certify that language difficulties or other problems (specify what "
^DD(509850.6,102,21,20,0)="    the problems are) make the combined use of pure tone average and"
^DD(509850.6,102,21,21,0)="    speech discrimination inappropriate."
^DD(509850.6,102,"DT")="2970604"
^DD(509850.6,103,0)="DIAGNOSTIC AND CLINICAL TESTS^509850.6103^^103;0"
^DD(509850.6,103,9)="^"
^DD(509850.6,103,21,0)="^^10^10^2990608^"
^DD(509850.6,103,21,1,0)=" DIAGNOSTIC AND CLINICAL TESTS: "
^DD(509850.6,103,21,2,0)="|NOWRAP| "
^DD(509850.6,103,21,3,0)=" 1. Report middle-ear status, confirm type of loss, and indicate need for"
^DD(509850.6,103,21,4,0)="    medical follow-up.  In cases where there is poor inter-test"
^DD(509850.6,103,21,5,0)="    reliability and/or positive Stenger test results, obtain and report"
^DD(509850.6,103,21,6,0)="    estimates of hearing thresholds using a combination of behavioral"
^DD(509850.6,103,21,7,0)="    testing, Stenger interference levels, and electrophysiological tests."
^DD(509850.6,103,21,8,0)=" "
^DD(509850.6,103,21,9,0)=" 2. Include results of all diagnostic and clinical tests conducted in the"
^DD(509850.6,103,21,10,0)="    examination report."
^DD(509850.6,103,"DT")="2970604"
^DD(509850.6,104,0)="DIAGNOSIS^509850.6104^^104;0"
^DD(509850.6,104,9)="^"
^DD(509850.6,104,21,0)="^^17^17^2990608^"
^DD(509850.6,104,21,1,0)=" DIAGNOSIS: "
^DD(509850.6,104,21,2,0)="|NOWRAP|"
^DD(509850.6,104,21,3,0)=" 1. Summary of audiologic test results. Indicate type and degree of"
^DD(509850.6,104,21,4,0)="    hearing loss for the frequency range from 500 to 4000 Hz.  For type of"
^DD(509850.6,104,21,5,0)="    loss, indicate whether it is normal, conductive, sensorineural,"
^DD(509850.6,104,21,6,0)="    central, or mixed.  For degree, indicate whether it is mild (26-40 dB"
^DD(509850.6,104,21,7,0)="    HL), moderate (41-54 dB HL), moderately-severe (55-69 dB HL), severe"
^DD(509850.6,104,21,8,0)="    (70-89  dB HL), or profound (90+ dB HL). For VA purposes, impaired"
^DD(509850.6,104,21,9,0)="    hearing is considered to be a disability when the auditory threshold"
^DD(509850.6,104,21,10,0)="    in any of the frequencies 500, 1000, 2000, 3000, and 4000 Hz is 40 dB"
^DD(509850.6,104,21,11,0)="    HL or greater; or when the auditory thresholds for at least three of"
^DD(509850.6,104,21,12,0)="    these frequencies are 26 dB HL or greater; or when speech recognition"
^DD(509850.6,104,21,13,0)="    scores are less than 94%."
^DD(509850.6,104,21,14,0)=" "
^DD(509850.6,104,21,15,0)=" 2. Note whether, based on audiologic results, medical follow-up is needed"
^DD(509850.6,104,21,16,0)="    for an ear or hearing problem, and whether there is a problem that, if"
^DD(509850.6,104,21,17,0)="    treated, might cause a change in hearing threshold levels."
^DD(509850.6,104,"DT")="2970604"
^DD(509850.6,125,0)="PCE VISIT IEN^F^^6;3^K:$L(X)>8!($L(X)<1) X"
^DD(509850.6,125,1,0)="^.1"
^DD(509850.6,125,1,1,0)="509850.6^AEX3^MUMPS"
^DD(509850.6,125,1,1,1)="D EXCEPT^ACKQUTL5(DA,125,X)"
^DD(509850.6,125,1,1,2)="D EXCEPT^ACKQUTL5(DA,125,X)"
^DD(509850.6,125,1,1,3)="Do not Delete"
^DD(509850.6,125,1,1,"%D",0)="^.101^3^3^3000508^^^^"
^DD(509850.6,125,1,1,"%D",1,0)="Set and Kill logic gets LAST SENT TO QUASAR,LAST EDITED IN QUASAR and PCE"
^DD(509850.6,125,1,1,"%D",2,0)="VISIT IEN field values and runs processing that either sets or kills the"
^DD(509850.6,125,1,1,"%D",3,0)="EXCEPTION DATE depending on the field values. "
^DD(509850.6,125,1,1,"DT")="2991006"
^DD(509850.6,125,3)="Answer must be 1-8 characters in length."
^DD(509850.6,125,21,0)="^^2^2^2991005^^^^"
^DD(509850.6,125,21,1,0)="This is the IEN of the PCE visit passed back by the send to PCE"
^DD(509850.6,125,21,2,0)="processing. "
^DD(509850.6,125,"DT")="2991006"
^DD(509850.6,135,0)="LAST SENT TO PCE^D^^6;5^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.6,135,1,0)="^.1"
^DD(509850.6,135,1,1,0)="509850.6^AEX2^MUMPS"
^DD(509850.6,135,1,1,1)="D EXCEPT^ACKQUTL5(DA,135,X)"
^DD(509850.6,135,1,1,2)="D EXCEPT^ACKQUTL5(DA,135,X)"
^DD(509850.6,135,1,1,3)="Do not Delete"
^DD(509850.6,135,1,1,"%D",0)="^^3^3^2991209^^^^"
^DD(509850.6,135,1,1,"%D",1,0)="Set and Kill logic gets LAST SENT TO QUASAR,LAST EDITED IN QUASAR and PCE"
^DD(509850.6,135,1,1,"%D",2,0)="VISIT IEN field values and runs processing that either sets or kills the"
^DD(509850.6,135,1,1,"%D",3,0)="EXCEPTION DATE depending on the field values. "
^DD(509850.6,135,1,1,"DT")="2991006"
^DD(509850.6,135,21,0)="^^1^1^2990914^^^"
^DD(509850.6,135,21,1,0)="The Date/Time that the system last attempted to send this data to PCE."
^DD(509850.6,135,"DT")="2991006"
^DD(509850.6,140,0)="LAST EDITED IN QUASAR^D^^6;7^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.6,140,1,0)="^.1"
^DD(509850.6,140,1,1,0)="509850.6^AEX1^MUMPS"
^DD(509850.6,140,1,1,1)="D EXCEPT^ACKQUTL5(DA,140,X)"
^DD(509850.6,140,1,1,2)="D EXCEPT^ACKQUTL5(DA,140,X)"
^DD(509850.6,140,1,1,3)="Do not Delete"
^DD(509850.6,140,1,1,"%D",0)="^.101^3^3^3000508^^^^"
^DD(509850.6,140,1,1,"%D",1,0)="Set and Kill logic gets LAST SENT TO QUASAR,LAST EDITED IN QUASAR and PCE"
^DD(509850.6,140,1,1,"%D",2,0)="VISIT IEN field values and runs processing that either sets or kills the"
^DD(509850.6,140,1,1,"%D",3,0)="EXCEPTION DATE depending on the field values."
^DD(509850.6,140,1,1,"DT")="2991006"
^DD(509850.6,140,21,0)="^^3^3^2990914^^^^"
^DD(509850.6,140,21,1,0)="This date is the date when the visit record was last edited in Quasar."
^DD(509850.6,140,21,2,0)="This field is not dependant on the PCE interface being on for the current"
^DD(509850.6,140,21,3,0)="Division."
^DD(509850.6,140,"DT")="2991006"
^DD(509850.6,900,0)="EXCEPTION DATE^D^^6;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.6,900,1,0)="^.1"
^DD(509850.6,900,1,1,0)="509850.6^AEX^MUMPS"
^DD(509850.6,900,1,1,1)="S ^ACK(509850.6,""AEX"",X,DA)="""""
^DD(509850.6,900,1,1,2)="K ^ACK(509850.6,""AEX"",X,DA)"
^DD(509850.6,900,1,1,"%D",0)="^.101^2^2^3000508^^^"
^DD(509850.6,900,1,1,"%D",1,0)="This index is used by the PCE Exception Report to identify"
^DD(509850.6,900,1,1,"%D",2,0)="all visits that are EXCEPTIONS."
^DD(509850.6,900,1,1,"DT")="2991006"
^DD(509850.6,900,21,0)="^^7^7^2991006^"
^DD(509850.6,900,21,1,0)="Set to NOW whenever the system determines that the Visit has"
^DD(509850.6,900,21,2,0)="become a PCE Exception. Triggered by changes to the PCE Visit "
^DD(509850.6,900,21,3,0)="IEN field, the LAST SENT TO PCE field and the LAST EDITED IN"
^DD(509850.6,900,21,4,0)="QUASAR field."
^DD(509850.6,900,21,5,0)=" "
^DD(509850.6,900,21,6,0)="NB. This field has been numbered 900 to ensure it is the last"
^DD(509850.6,900,21,7,0)="field killed when a visit is deleted."
^DD(509850.6,900,"DT")="2991006"
^DD(509850.6,"B"," ",20)="1"
^DD(509850.6,"B","*DISPOSITION",9)=""
^DD(509850.6,"B","*LEAD ROLE",.27)=""
^DD(509850.6,"B","*NU6 L",4.22)=""
^DD(509850.6,"B","*NU6 R",4.21)=""
^DD(509850.6,"B","*OTHER PROVIDER",8)=""
^DD(509850.6,"B","*SECOND CLINCIAN",.25)=""
^DD(509850.6,"B","ADEQUATED BY",4.19)=""
^DD(509850.6,"B","ADEQUATOR TITLE",4.25)=""
^DD(509850.6,"B","AGE ON APPOINTMENT",1.5)=""
^DD(509850.6,"B","AGENT ORANGE",25)=""
^DD(509850.6,"B","APPOINTMENT TIME",55)=""
^DD(509850.6,"B","Adequated By",4.19)="1"
^DD(509850.6,"B","Adequator Title",4.25)="1"
^DD(509850.6,"B","Age on Appointment",1.5)="1"
^DD(509850.6,"B","C AND P",2.5)=""
^DD(509850.6,"B","C AND P STATUS",.09)=""
^DD(509850.6,"B","C and P",2.5)="1"
^DD(509850.6,"B","C and P Status",.09)="1"
^DD(509850.6,"B","CDR ACCOUNT",5)=""
^DD(509850.6,"B","CDR Account",5)="1"
^DD(509850.6,"B","CLINIC LOCATION",2.6)=""
^DD(509850.6,"B","CLINIC STOP CODE",4)=""
^DD(509850.6,"B","CNC L",4.14)=""
^DD(509850.6,"B","CNC Left",4.14)="1"
^DD(509850.6,"B","CNC R",4.13)=""
^DD(509850.6,"B","CNC Right",4.13)="1"
^DD(509850.6,"B","COMPLETER TITLE",4.24)=""
^DD(509850.6,"B","Clinic Location",2.6)="1"
^DD(509850.6,"B","Clinic Stop Code",4)="1"
^DD(509850.6,"B","Completer Title",4.24)="1"
^DD(509850.6,"B","DATE",.01)=""
^DD(509850.6,"B","DATE ADEQUATED",4.2)=""
^DD(509850.6,"B","DATE OF AUDIOMETRIC TESTING",4.23)=""
^DD(509850.6,"B","DATE SIGNED",4.18)=""
^DD(509850.6,"B","DIAGNOSIS",104)=""
^DD(509850.6,"B","DIAGNOSTIC AND CLINICAL TESTS",103)=""
^DD(509850.6,"B","DIAGNOSTIC CODE",3)=""
^DD(509850.6,"B","DIVISION",60)=""
^DD(509850.6,"B","Date",.01)="1"
^DD(509850.6,"B","Date Adequated",4.2)="1"
^DD(509850.6,"B","Date Signed",4.18)="1"
^DD(509850.6,"B","Date of Audiometric Testing",4.23)="1"
^DD(509850.6,"B","Disposition",9)="1"
^DD(509850.6,"B","ENVIRONMENTAL CONTAMINANTS",35)=""
^DD(509850.6,"B","EVENT CAPTURE PROCEDURE",15)=""
^DD(509850.6,"B","EXCEPTION DATE",900)=""
^DD(509850.6,"B","LAST EDITED IN QUASAR",140)=""
^DD(509850.6,"B","LAST SENT TO PCE",135)=""
^DD(509850.6,"B","LINKED C&P EXAM",.08)=""
^DD(509850.6,"B","Lead Role",.27)="1"
^DD(509850.6,"B","Linked C&P Exam",.08)="1"
^DD(509850.6,"B","MEDICAL HISTORY",101)=""
^DD(509850.6,"B","MILITARY SEXUAL TRAUMA",90)=""
^DD(509850.6,"B","NU6 Left",4.22)="1"
^DD(509850.6,"B","NU6 Right",4.21)="1"
^DD(509850.6,"B","Other Provider",8)="1"
^DD(509850.6,"B","PATIENT ELIGIBILITY CODE",2)=""
^DD(509850.6,"B","PATIENT NAME",1)=""
^DD(509850.6,"B","PCE ERROR",6.5)=""
^DD(509850.6,"B","PCE VISIT IEN",125)=""
^DD(509850.6,"B","PHYSICAL EXAMINATION",102)=""
^DD(509850.6,"B","PRIMARY PROVIDER",6)=""
^DD(509850.6,"B","PROCEDURE CODE",10)=""
^DD(509850.6,"B","Patient Eligibility Code",2)="1"
^DD(509850.6,"B","Patient Name",1)="1"
^DD(509850.6,"B","Primary Provider",6)="1"
^DD(509850.6,"B","RADIATION",30)=""
^DD(509850.6,"B","REVIEW OF MEDICAL RECORDS",100)=""
^DD(509850.6,"B","SECONDARY PROVIDER",2.7)=""
^DD(509850.6,"B","SERVICE CONNECTED",20)=""
^DD(509850.6,"B","SIGNATURE",4.17)=""
^DD(509850.6,"B","STUDENT",7)=""
^DD(509850.6,"B","Second Clinician",.25)="1"
^DD(509850.6,"B","Signature",4.17)="1"
^DD(509850.6,"B","Student",7)="1"
^DD(509850.6,"B","TIME SPENT (minutes)",.07)=""
^DD(509850.6,"B","TONE L AVERAGE",4.12)=""
^DD(509850.6,"B","TONE L1000",4.08)=""
^DD(509850.6,"B","TONE L2000",4.09)=""
^DD(509850.6,"B","TONE L3000",4.1)=""
^DD(509850.6,"B","TONE L4000",4.11)=""
^DD(509850.6,"B","TONE L500",4.07)=""
^DD(509850.6,"B","TONE R AVERAGE",4.06)=""
^DD(509850.6,"B","TONE R1000",4.02)=""
^DD(509850.6,"B","TONE R2000",4.03)=""
^DD(509850.6,"B","TONE R3000",4.04)=""
^DD(509850.6,"B","TONE R4000",4.05)=""
^DD(509850.6,"B","TONE R500",4.01)=""
^DD(509850.6,"B","Time Spent in Minutes",.07)="1"
^DD(509850.6,"B","Tone L Average",4.12)="1"
^DD(509850.6,"B","Tone L1000",4.08)="1"
^DD(509850.6,"B","Tone L2000",4.09)="1"
^DD(509850.6,"B","Tone L3000",4.1)="1"
^DD(509850.6,"B","Tone L4000",4.11)="1"
^DD(509850.6,"B","Tone L500",4.07)="1"
^DD(509850.6,"B","Tone R Average",4.06)="1"
^DD(509850.6,"B","Tone R1000",4.02)="1"
^DD(509850.6,"B","Tone R2000",4.03)="1"
^DD(509850.6,"B","Tone R3000",4.04)="1"
^DD(509850.6,"B","Tone R4000",4.05)="1"
^DD(509850.6,"B","Tone R500",4.01)="1"
^DD(509850.6,"B","VISIT ELIGIBILITY",80)=""
^DD(509850.6,"B","W22 L",4.16)=""
^DD(509850.6,"B","W22 Left",4.16)="1"
^DD(509850.6,"B","W22 R",4.15)=""
^DD(509850.6,"B","W22 Right",4.15)="1"
^DD(509850.6,"GL",0,1,.01)=""
^DD(509850.6,"GL",0,2,1)=""
^DD(509850.6,"GL",0,3,2)=""
^DD(509850.6,"GL",0,4,1.5)=""
^DD(509850.6,"GL",0,5,2.5)=""
^DD(509850.6,"GL",0,6,2.6)=""
^DD(509850.6,"GL",0,7,.07)=""
^DD(509850.6,"GL",0,8,.08)=""
^DD(509850.6,"GL",0,9,.09)=""
^DD(509850.6,"GL",1,0,3)=""
^DD(509850.6,"GL",2,1,4)=""
^DD(509850.6,"GL",2,2,5)=""
^DD(509850.6,"GL",2,3,6)=""
^DD(509850.6,"GL",2,4,7)=""
^DD(509850.6,"GL",2,5,.25)=""
^DD(509850.6,"GL",2,6,9)=""
^DD(509850.6,"GL",2,7,.27)=""
^DD(509850.6,"GL",2,8,8)=""
^DD(509850.6,"GL",2,9,90)=""
^DD(509850.6,"GL",2.7,0,2.7)=""
^DD(509850.6,"GL",3,0,10)=""
^DD(509850.6,"GL",4,1,4.01)=""
^DD(509850.6,"GL",4,2,4.02)=""
^DD(509850.6,"GL",4,3,4.03)=""
^DD(509850.6,"GL",4,4,4.04)=""
^DD(509850.6,"GL",4,5,4.05)=""
^DD(509850.6,"GL",4,6,4.06)=""
^DD(509850.6,"GL",4,7,4.07)=""
^DD(509850.6,"GL",4,8,4.08)=""
^DD(509850.6,"GL",4,9,4.09)=""
^DD(509850.6,"GL",4,10,4.1)=""
^DD(509850.6,"GL",4,11,4.11)=""
^DD(509850.6,"GL",4,12,4.12)=""
^DD(509850.6,"GL",4,13,4.13)=""
^DD(509850.6,"GL",4,14,4.14)=""
^DD(509850.6,"GL",4,15,4.15)=""
^DD(509850.6,"GL",4,16,4.16)=""
^DD(509850.6,"GL",4,17,4.17)=""
^DD(509850.6,"GL",4,18,4.18)=""
^DD(509850.6,"GL",4,19,4.19)=""
^DD(509850.6,"GL",4,20,4.2)=""
^DD(509850.6,"GL",4,21,4.21)=""
^DD(509850.6,"GL",4,22,4.22)=""
^DD(509850.6,"GL",4,23,4.23)=""
^DD(509850.6,"GL",4,24,4.24)=""
^DD(509850.6,"GL",4,25,4.25)=""
^DD(509850.6,"GL",5,1,60)=""
^DD(509850.6,"GL",5,2,80)=""
^DD(509850.6,"GL",5,3,20)=""
^DD(509850.6,"GL",5,4,25)=""
^DD(509850.6,"GL",5,5,30)=""
^DD(509850.6,"GL",5,6,35)=""
^DD(509850.6,"GL",5,8,55)=""
^DD(509850.6,"GL",6,3,125)=""
^DD(509850.6,"GL",6,5,135)=""
^DD(509850.6,"GL",6,6,900)=""
^DD(509850.6,"GL",6,7,140)=""
^DD(509850.6,"GL",6.5,0,6.5)=""
^DD(509850.6,"GL",7,0,15)=""
^DD(509850.6,"GL",100,0,100)=""
^DD(509850.6,"GL",101,0,101)=""
^DD(509850.6,"GL",102,0,102)=""
^DD(509850.6,"GL",103,0,103)=""
^DD(509850.6,"GL",104,0,104)=""
^DD(509850.6,"IX",.01)=""
^DD(509850.6,"IX",.08)=""
^DD(509850.6,"IX",.09)=""
^DD(509850.6,"IX",.25)=""
^DD(509850.6,"IX",1)=""
^DD(509850.6,"IX",2.5)=""
^DD(509850.6,"IX",2.6)=""
^DD(509850.6,"IX",4.01)=""
^DD(509850.6,"IX",4.17)=""
^DD(509850.6,"IX",4.19)=""
^DD(509850.6,"IX",5)=""
^DD(509850.6,"IX",6)=""
^DD(509850.6,"IX",7)=""
^DD(509850.6,"IX",8)=""
^DD(509850.6,"IX",20)=""
^DD(509850.6,"IX",25)=""
^DD(509850.6,"IX",30)=""
^DD(509850.6,"IX",35)=""
^DD(509850.6,"IX",55)=""
^DD(509850.6,"IX",60)=""
^DD(509850.6,"IX",80)=""
^DD(509850.6,"IX",90)=""
^DD(509850.6,"IX",125)=""
^DD(509850.6,"IX",135)=""
^DD(509850.6,"IX",140)=""
^DD(509850.6,"IX",900)=""
^DD(509850.6,"RQ",.01)=""
^DD(509850.6,"RQ",.07)=""
^DD(509850.6,"RQ",1)=""
^DD(509850.6,"RQ",2)=""
^DD(509850.6,"RQ",4.01)=""
^DD(509850.6,"RQ",4.02)=""
^DD(509850.6,"RQ",4.03)=""
^DD(509850.6,"RQ",4.04)=""
^DD(509850.6,"RQ",4.05)=""
^DD(509850.6,"RQ",4.06)=""
^DD(509850.6,"RQ",4.07)=""
^DD(509850.6,"RQ",4.08)=""
^DD(509850.6,"RQ",4.09)=""
^DD(509850.6,"RQ",4.1)=""
^DD(509850.6,"RQ",4.11)=""
^DD(509850.6,"RQ",4.12)=""
^DD(509850.6,"RQ",20)=""
^DD(509850.6,"RQ",25)=""
^DD(509850.6,"RQ",30)=""
^DD(509850.6,"RQ",35)=""
^DD(509850.6,"RQ",55)=""
^DD(509850.6,"RQ",60)=""
^DD(509850.6,"RQ",80)=""
^DD(509850.6,"RQ",90)=""
^DD(509850.6,"SB",509850.61,10)=""
^DD(509850.6,"SB",509850.6101,101)=""
^DD(509850.6,"SB",509850.6102,102)=""
^DD(509850.6,"SB",509850.6103,103)=""
^DD(509850.6,"SB",509850.6104,104)=""
^DD(509850.6,"SB",509850.615,15)=""
^DD(509850.6,"SB",509850.62,100)=""
^DD(509850.6,"SB",509850.63,3)=""
^DD(509850.6,"SB",509850.65,6.5)=""
^DD(509850.6,"SB",509850.66,2.7)=""
^DD(509850.61,0)="PROCEDURE CODE SUB-FIELD^^.07^6"
^DD(509850.61,0,"DT")="3001006"
^DD(509850.61,0,"IX","AC",509850.61,.01)=""
^DD(509850.61,0,"IX","AD",509850.61,.03)=""
^DD(509850.61,0,"IX","AE",509850.61,.03)=""
^DD(509850.61,0,"IX","AF",509850.61,.05)=""
^DD(509850.61,0,"IX","B",509850.61,.01)=""
^DD(509850.61,0,"NM","PROCEDURE CODE")=" "
^DD(509850.61,0,"UP")="509850.6"
^DD(509850.61,.01,0)="PROCEDURE CODE^M*P509850.4'X^ACK(509850.4,^0;1^S DIC(""S"")=""I $D(ACKCSC),'$G(ACKEVENT),$$CPT^ACKQUT1(+Y,ACKVD,ACKCSC)"" S DIC(""W"")="""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.61,.01,.1)="Procedure Code"
^DD(509850.61,.01,1,0)="^.1"
^DD(509850.61,.01,1,1,0)="509850.61^B"
^DD(509850.61,.01,1,1,1)="S ^ACK(509850.6,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(509850.61,.01,1,1,2)="K ^ACK(509850.6,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(509850.61,.01,1,2,0)="509850.61^AC^MUMPS"
^DD(509850.61,.01,1,2,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.61,.01,1,2,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.61,.01,1,2,3)="Do not Delete"
^DD(509850.61,.01,1,2,"%D",0)="^.101^2^2^3001006^^^^"
^DD(509850.61,.01,1,2,"%D",1,0)="This index updates the Last Edited in Quasar field. This in turn"
^DD(509850.61,.01,1,2,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.61,.01,1,2,"DT")="2990930"
^DD(509850.61,.01,1,3,0)="509850.6^AD^MUMPS"
^DD(509850.61,.01,1,3,1)="Q"
^DD(509850.61,.01,1,3,2)="D KILLEC^ACKQUTL5(DA,DA(1))"
^DD(509850.61,.01,1,3,3)="Do not Delete."
^DD(509850.61,.01,1,3,"%D",0)="^.101^2^2^3001010^^^"
^DD(509850.61,.01,1,3,"%D",1,0)="If the CPT code was set up via the input of an EC code and the CPT is being"
^DD(509850.61,.01,1,3,"%D",2,0)="deleted the EC code also requires deleting."
^DD(509850.61,.01,1,3,"DT")="3001010"
^DD(509850.61,.01,3)="Enter a CPT procedure code for this visit."
^DD(509850.61,.01,12)="The CPT code must be active and consistent with the stop code."
^DD(509850.61,.01,12.1)="S DIC(""S"")=""I $D(ACKCSC),'$G(ACKEVENT),$$CPT^ACKQUT1(+Y,ACKVD,ACKCSC)"" S DIC(""W"")="""""
^DD(509850.61,.01,21,0)="^.001^8^8^3001005^^^^"
^DD(509850.61,.01,21,1,0)="The PROCEDURE CODE field contains a CPT procedure code for this exam.  "
^DD(509850.61,.01,21,2,0)="QUASAR accepts multiple CPT-4 codes and displays a sequential count of "
^DD(509850.61,.01,21,3,0)="entered procedures.  QUASAR allows the same CPT-4 code to be entered "
^DD(509850.61,.01,21,4,0)="more than once if the second and subsequent codes are enclosed in "
^DD(509850.61,.01,21,5,0)="quotation marks (e.g., ""92507"").  If this is not done, QUASAR assumes "
^DD(509850.61,.01,21,6,0)="that the entry is a mistake and displays the entered code followed by "
^DD(509850.61,.01,21,7,0)="double slant bars (e.g., 92507//).  This signals you that this code has "
^DD(509850.61,.01,21,8,0)="already been entered for this visit."
^DD(509850.61,.01,"DT")="3030414"
^DD(509850.61,.02,0)="*MODIFIER^FX^^0;2^K:X'?1A X I $D(X) D PCXFM^ACKQAS1"
^DD(509850.61,.02,.1)="Modifier"
^DD(509850.61,.02,3)="Your answer must be 1 character in length."
^DD(509850.61,.02,4)=" "
^DD(509850.61,.02,21,0)="^^12^12^3000211^^^"
^DD(509850.61,.02,21,1,0)="The MODIFIER field contains the letter modifiers for some CPT-4 "
^DD(509850.61,.02,21,2,0)="procedure codes.  The CPT-4 code set does not provide codes to describe "
^DD(509850.61,.02,21,3,0)="the full scope and complexity of procedures performed by audiologists "
^DD(509850.61,.02,21,4,0)="and speech-language pathologists.  Recognizing this deficiency, "
^DD(509850.61,.02,21,5,0)="modifiers are provided to more fully describe procedures or to provide "
^DD(509850.61,.02,21,6,0)="procedures where none exist."
^DD(509850.61,.02,21,7,0)=" "
^DD(509850.61,.02,21,8,0)="The MODIFIER field has been marked for deletion.  This field is "
^DD(509850.61,.02,21,9,0)="not used by QUASAR V. 3.0.  Eighteen months after the release of "
^DD(509850.61,.02,21,10,0)="QUASAR 3.0, this field can be removed."
^DD(509850.61,.02,21,11,0)="Any Modifiers already defined for Procedure codes pre Version 3.0 will "
^DD(509850.61,.02,21,12,0)="however be retained for the integrity of historic data."
^DD(509850.61,.02,"DT")="3001016"
^DD(509850.61,.03,0)="VOLUME^RNJ2,0^^0;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.61,.03,.1)="PROCEDURE COUNT"
^DD(509850.61,.03,1,0)="^.1"
^DD(509850.61,.03,1,1,0)="509850.61^AD^MUMPS"
^DD(509850.61,.03,1,1,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.61,.03,1,1,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.61,.03,1,1,3)="Do not Delete"
^DD(509850.61,.03,1,1,"%D",0)="^.101^2^2^3001006^^^^"
^DD(509850.61,.03,1,1,"%D",1,0)="This index updates the Last Edited in Quasar field. This in turn"
^DD(509850.61,.03,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.61,.03,1,1,"DT")="2990930"
^DD(509850.61,.03,1,2,0)="509850.61^AE^MUMPS"
^DD(509850.61,.03,1,2,1)="D CPVOLPRV^ACKQUTL5(DA,DA(1),X,""V"",""S"")"
^DD(509850.61,.03,1,2,2)="D CPVOLPRV^ACKQUTL5(DA,DA(1),X,""V"",""D"")"
^DD(509850.61,.03,1,2,3)="Do not Delete."
^DD(509850.61,.03,1,2,"%D",0)="^^2^2^3001011^"
^DD(509850.61,.03,1,2,"%D",1,0)="If this CPT record contains a reference to a EC record the value entered"
^DD(509850.61,.03,1,2,"%D",2,0)="within this field is automatically updated to the associated EC field."
^DD(509850.61,.03,1,2,"DT")="3001011"
^DD(509850.61,.03,3)="How many times was the procedure performed. Enter 1-99."
^DD(509850.61,.03,21,0)="^.001^3^3^3001003^^^^"
^DD(509850.61,.03,21,1,0)="A procedure may be carried out multiple times during a visit.  The volume"
^DD(509850.61,.03,21,2,0)="field allows the user to specify how many times each procedure was "
^DD(509850.61,.03,21,3,0)="performed."
^DD(509850.61,.03,"DT")="3001011"
^DD(509850.61,.04,0)="CPT MODIFIER^509850.64PA^^1;0"
^DD(509850.61,.05,0)="PROCEDURE PROVIDER^*P509850.3'^ACK(509850.3,^0;4^S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.61,.05,1,0)="^.1"
^DD(509850.61,.05,1,1,0)="509850.6^AE^MUMPS"
^DD(509850.61,.05,1,1,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.61,.05,1,1,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.61,.05,1,1,3)="Do not Delete."
^DD(509850.61,.05,1,1,"%D",0)="^^2^2^3001006^"
^DD(509850.61,.05,1,1,"%D",1,0)="This index updates the Last Edited in Quasar field. This in turn"
^DD(509850.61,.05,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.61,.05,1,1,"DT")="3001006"
^DD(509850.61,.05,1,2,0)="509850.61^AF^MUMPS"
^DD(509850.61,.05,1,2,1)="D CPVOLPRV^ACKQUTL5(DA,DA(1),X,""P"",""S"")"
^DD(509850.61,.05,1,2,2)="D CPVOLPRV^ACKQUTL5(DA,DA(1),X,""P"",""D"")"
^DD(509850.61,.05,1,2,3)="Do not Delete."
^DD(509850.61,.05,1,2,"%D",0)="^^2^2^3001011^"
^DD(509850.61,.05,1,2,"%D",1,0)="If this CPT record contains a reference to a EC record the value entered"
^DD(509850.61,.05,1,2,"%D",2,0)="within this field is automatically updated to the associated EC field."
^DD(509850.61,.05,1,2,"DT")="3001011"
^DD(509850.61,.05,3)="Enter the Provider who carried out this Procedure."
^DD(509850.61,.05,12)="Only Fee Basis Clinicians, Clinicians or Other Providers are valid values."
^DD(509850.61,.05,12.1)="S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"""
^DD(509850.61,.05,"DT")="3001011"
^DD(509850.61,.07,0)="EVENT CAPTURE CODE POINTER^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.61,.07,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(509850.61,.07,21,0)="^^1^1^3001006^"
^DD(509850.61,.07,21,1,0)="This value is a pointer to this CPT entries corresponding EC entry."
^DD(509850.61,.07,"DT")="3001006"
^DD(509850.61,"B","*MODIFIER",.02)=""
^DD(509850.61,"B","CPT MODIFIER",.04)=""
^DD(509850.61,"B","EVENT CAPTURE CODE POINTER",.07)=""
^DD(509850.61,"B","Modifier",.02)="1"
^DD(509850.61,"B","PROCEDURE CODE",.01)=""
^DD(509850.61,"B","PROCEDURE COUNT",.03)="1"
^DD(509850.61,"B","PROCEDURE PROVIDER",.05)=""
^DD(509850.61,"B","Procedure Code",.01)="1"
^DD(509850.61,"B","VOLUME",.03)=""
^DD(509850.61,"GL",0,1,.01)=""
^DD(509850.61,"GL",0,2,.02)=""
^DD(509850.61,"GL",0,3,.03)=""
^DD(509850.61,"GL",0,4,.05)=""
^DD(509850.61,"GL",0,5,.07)=""
^DD(509850.61,"GL",1,0,.04)=""
^DD(509850.61,"IX",.01)=""
^DD(509850.61,"IX",.03)=""
^DD(509850.61,"IX",.05)=""
^DD(509850.61,"RQ",.03)=""
^DD(509850.61,"SB",509850.64,.04)=""
^DD(509850.6101,0)="MEDICAL HISTORY SUB-FIELD^^.01^1"
^DD(509850.6101,0,"DT")="2910819"
^DD(509850.6101,0,"NM","MEDICAL HISTORY")=" "
^DD(509850.6101,0,"UP")="509850.6"
^DD(509850.6101,.01,0)="MEDICAL HISTORY^W^^0;1^Q"
^DD(509850.6101,.01,.1)="Medical History"
^DD(509850.6101,.01,3)="Enter a brief medical history, including tinnitus assessment."
^DD(509850.6101,.01,21,0)="^^15^15^2990610^^"
^DD(509850.6101,.01,21,1,0)=" MEDICAL HISTORY (SUBJECTIVE COMPLAINTS):"
^DD(509850.6101,.01,21,2,0)="|NOWRAP|"
^DD(509850.6101,.01,21,3,0)=" Comment on:"
^DD(509850.6101,.01,21,4,0)=" 1. Chief Complaint."
^DD(509850.6101,.01,21,5,0)=" 2. Situation of greatest difficulty."
^DD(509850.6101,.01,21,6,0)=" 3. Pertinent service history."
^DD(509850.6101,.01,21,7,0)=" 4. History of military, occupational, and recreational noise exposure."
^DD(509850.6101,.01,21,8,0)=" 5. Tinnitus - If present, state:"
^DD(509850.6101,.01,21,9,0)="    a. date and circumstances of onset"
^DD(509850.6101,.01,21,10,0)="    b. whether it is unilateral or bilateral"
^DD(509850.6101,.01,21,11,0)="    c. whether it is recurrent (indicate frequency and duration)"
^DD(509850.6101,.01,21,12,0)="    d. State the most likely etiology of the tinnitus, and    "
^DD(509850.6101,.01,21,13,0)="       specifically, if hearing loss is present, whether the tinnitus "
^DD(509850.6101,.01,21,14,0)="       is due to the same etiology (or causative factor) as the hearing"
^DD(509850.6101,.01,21,15,0)="       loss."
^DD(509850.6101,.01,"DT")="2970604"
^DD(509850.6101,"B","MEDICAL HISTORY",.01)=""
^DD(509850.6101,"B","Medical History",.01)="1"
^DD(509850.6101,"GL",0,1,.01)=""
^DD(509850.6102,0)="PHYSICAL EXAMINATION SUB-FIELD^^.01^1"
^DD(509850.6102,0,"DT")="2910819"
^DD(509850.6102,0,"NM","PHYSICAL EXAMINATION")=" "
^DD(509850.6102,0,"UP")="509850.6"
^DD(509850.6102,.01,0)="PHYSICAL EXAMINATION^W^^0;1^Q"
^DD(509850.6102,.01,.1)="Physical Examination"
^DD(509850.6102,.01,3)="Enter results of physical examination."
^DD(509850.6102,.01,21,0)="^^21^21^2990608^"
^DD(509850.6102,.01,21,1,0)=" PHYSICAL EXAMINATION (OBJECTIVE FINDINGS):"
^DD(509850.6102,.01,21,2,0)="|NOWRAP|"
^DD(509850.6102,.01,21,3,0)=" 1. Measure pure tone thresholds in decibels at the indicated "
^DD(509850.6102,.01,21,4,0)="    frequencies (air conduction):"
^DD(509850.6102,.01,21,5,0)=" ==========RIGHT EAR=============================LEFT EAR==============="
^DD(509850.6102,.01,21,6,0)="  A*    B     C     D     E    **     A*    B     C     D    E     **"
^DD(509850.6102,.01,21,7,0)=" 500  1000  2000  3000  4000 average 500  1000  2000  3000  4000 average"
^DD(509850.6102,.01,21,8,0)="   "
^DD(509850.6102,.01,21,9,0)="   *The pure tone threshold at 500 Hz is not used in determining the"
^DD(509850.6102,.01,21,10,0)="    evaluation but is used in determining whether or not a ratable "
^DD(509850.6102,.01,21,11,0)="    hearing loss exists.  "
^DD(509850.6102,.01,21,12,0)="   **The average of B, C, D, and E."
^DD(509850.6102,.01,21,13,0)="   "
^DD(509850.6102,.01,21,14,0)=" 2. Speech Recognition Score:"
^DD(509850.6102,.01,21,15,0)="    Maryland CNC word list ______% right ear _____% left ear"
^DD(509850.6102,.01,21,16,0)=" "
^DD(509850.6102,.01,21,17,0)=" 3. When only pure tone results should be used to evaluate hearing "
^DD(509850.6102,.01,21,18,0)="    loss, the examiner, who must be a state-licensed audiologist, should  "
^DD(509850.6102,.01,21,19,0)="    certify that language difficulties or other problems (specify what "
^DD(509850.6102,.01,21,20,0)="    the problems are) make the combined use of pure tone average and"
^DD(509850.6102,.01,21,21,0)="    speech discrimination inappropriate."
^DD(509850.6102,.01,"DT")="2970604"
^DD(509850.6102,"B","PHYSICAL EXAMINATION",.01)=""
^DD(509850.6102,"B","Physical Examination",.01)="1"
^DD(509850.6102,"GL",0,1,.01)=""
^DD(509850.6103,0)="DIAGNOSTIC AND CLINICAL TESTS SUB-FIELD^^.01^1"
^DD(509850.6103,0,"DT")="2910819"
^DD(509850.6103,0,"NM","DIAGNOSTIC AND CLINICAL TESTS")=" "
^DD(509850.6103,0,"UP")="509850.6"
^DD(509850.6103,.01,0)="DIAGNOSTIC AND CLINICAL TESTS^W^^0;1^Q"
^DD(509850.6103,.01,.1)="Diagnostic and Clinical Tests"
^DD(509850.6103,.01,3)="Enter a summary of all diagnostic and clinical tests."
^DD(509850.6103,.01,21,0)="^^10^10^2990608^"
^DD(509850.6103,.01,21,1,0)=" DIAGNOSTIC AND CLINICAL TESTS: "
^DD(509850.6103,.01,21,2,0)="|NOWRAP|"
^DD(509850.6103,.01,21,3,0)=" 1. Report middle-ear status, confirm type of loss, and indicate need for"
^DD(509850.6103,.01,21,4,0)="    medical follow-up.  In cases where there is poor inter-test"
^DD(509850.6103,.01,21,5,0)="    reliability and/or positive Stenger test results, obtain and report"
^DD(509850.6103,.01,21,6,0)="    estimates of hearing thresholds using a combination of behavioral"
^DD(509850.6103,.01,21,7,0)="    testing, Stenger interference levels, and electrophysiological tests."
^DD(509850.6103,.01,21,8,0)=" "
^DD(509850.6103,.01,21,9,0)=" 2. Include results of all diagnostic and clinical tests conducted in the"
^DD(509850.6103,.01,21,10,0)="    examination report."
^DD(509850.6103,.01,"DT")="2970604"
^DD(509850.6103,"B","DIAGNOSTIC AND CLINICAL TESTS",.01)=""
^DD(509850.6103,"B","Diagnostic and Clinical Tests",.01)="1"
^DD(509850.6103,"GL",0,1,.01)=""
^DD(509850.6104,0)="DIAGNOSIS SUB-FIELD^^.01^1"
^DD(509850.6104,0,"DT")="2910819"
^DD(509850.6104,0,"NM","DIAGNOSIS")=" "
^DD(509850.6104,0,"UP")="509850.6"
^DD(509850.6104,.01,0)="DIAGNOSIS^W^^0;1^Q"
^DD(509850.6104,.01,.1)="Diagnosis"
^DD(509850.6104,.01,3)="Enter your diagnosis for the outcome of this exam."
^DD(509850.6104,.01,21,0)="^^17^17^2990608^"
^DD(509850.6104,.01,21,1,0)=" DIAGNOSIS: "
^DD(509850.6104,.01,21,2,0)="|NOWRAP|"
^DD(509850.6104,.01,21,3,0)=" 1. Summary of audiologic test results. Indicate type and degree of"
^DD(509850.6104,.01,21,4,0)="    hearing loss for the frequency range from 500 to 4000 Hz.  For type of"
^DD(509850.6104,.01,21,5,0)="    loss, indicate whether it is normal, conductive, sensorineural,"
^DD(509850.6104,.01,21,6,0)="    central, or mixed.  For degree, indicate whether it is mild (26-40 dB"
^DD(509850.6104,.01,21,7,0)="    HL), moderate (41-54 dB HL), moderately-severe (55-69 dB HL), severe"
^DD(509850.6104,.01,21,8,0)="    (70-89  dB HL), or profound (90+ dB HL). For VA purposes, impaired"
^DD(509850.6104,.01,21,9,0)="    hearing is considered to be a disability when the auditory threshold"
^DD(509850.6104,.01,21,10,0)="    in any of the frequencies 500, 1000, 2000, 3000, and 4000 Hz is 40 dB"
^DD(509850.6104,.01,21,11,0)="    HL or greater; or when the auditory thresholds for at least three of"
^DD(509850.6104,.01,21,12,0)="    these frequencies are 26 dB HL or greater; or when speech recognition"
^DD(509850.6104,.01,21,13,0)="    scores are less than 94%."
^DD(509850.6104,.01,21,14,0)=" "
^DD(509850.6104,.01,21,15,0)=" 2. Note whether, based on audiologic results, medical follow-up is needed"
^DD(509850.6104,.01,21,16,0)="    for an ear or hearing problem, and whether there is a problem that, if"
^DD(509850.6104,.01,21,17,0)="    treated, might cause a change in hearing threshold levels."
^DD(509850.6104,.01,"DT")="2970604"
^DD(509850.6104,"B","DIAGNOSIS",.01)=""
^DD(509850.6104,"B","Diagnosis",.01)="1"
^DD(509850.6104,"GL",0,1,.01)=""
^DD(509850.615,0)="EVENT CAPTURE PROCEDURE SUB-FIELD^^.07^4"
^DD(509850.615,0,"DT")="3001006"
^DD(509850.615,0,"IX","B",509850.615,.01)=""
^DD(509850.615,0,"NM","EVENT CAPTURE PROCEDURE")=" "
^DD(509850.615,0,"UP")="509850.6"
^DD(509850.615,.01,0)="EVENT CAPTURE PROCEDURE^M*P725'X^EC(725,^0;1^S DIC(""S"")=""I $D(ACKVD),$D(ACKCSC),$G(ACKEVENT),$$CHK^ACKQUTL5(+Y,ACKVD,ACKCSC)"" S DIC(""W"")=""W ?42,""""  """"_$P(^EC(725,+Y,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.615,.01,1,0)="^.1"
^DD(509850.615,.01,1,1,0)="509850.615^B"
^DD(509850.615,.01,1,1,1)="S ^ACK(509850.6,DA(1),7,""B"",$E(X,1,30),DA)="""""
^DD(509850.615,.01,1,1,2)="K ^ACK(509850.6,DA(1),7,""B"",$E(X,1,30),DA)"
^DD(509850.615,.01,1,2,0)="509850.6^AC^MUMPS"
^DD(509850.615,.01,1,2,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.615,.01,1,2,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.615,.01,1,2,3)="Do not Delete."
^DD(509850.615,.01,1,2,"%D",0)="^.101^2^2^3001121^^"
^DD(509850.615,.01,1,2,"%D",1,0)="This index updates the Last Edited in Quasar field. This in turn"
^DD(509850.615,.01,1,2,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.615,.01,1,2,"DT")="3001006"
^DD(509850.615,.01,1,3,0)="509850.6^AO^MUMPS"
^DD(509850.615,.01,1,3,1)="D SETCPT^ACKQUTL5(DA,DA(1),X)"
^DD(509850.615,.01,1,3,2)="D KILLCPT^ACKQUTL5(DA,DA(1))"
^DD(509850.615,.01,1,3,3)="Do not Delete."
^DD(509850.615,.01,1,3,"%D",0)="^^3^3^3001121^"
^DD(509850.615,.01,1,3,"%D",1,0)="Sets up corresponding CPT Procedure entry when an Event Capture Code is"
^DD(509850.615,.01,1,3,"%D",2,0)="created. If EC code is deleted this cross reference will delete the CPT"
^DD(509850.615,.01,1,3,"%D",3,0)="node the EC entry is pointing to."
^DD(509850.615,.01,1,3,"DT")="3001006"
^DD(509850.615,.01,3)="Enter an Event Capture Procedure code."
^DD(509850.615,.01,12)="Only active Audiology & Speech Pathology codes with associated CPT codes are valid."
^DD(509850.615,.01,12.1)="S DIC(""S"")=""I $D(ACKVD),$D(ACKCSC),$$CHK^ACKQUTL5(+Y,ACKVD,ACKCSC)"""
^DD(509850.615,.01,21,0)="^.001^2^2^3001005^^^^"
^DD(509850.615,.01,21,1,0)="Procedures performed during this QUASAR encounter as defined by Event"
^DD(509850.615,.01,21,2,0)="Capture codes."
^DD(509850.615,.01,"DT")="3001116"
^DD(509850.615,.03,0)="VOLUME^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.615,.03,1,0)="^.1"
^DD(509850.615,.03,1,1,0)="509850.6^AD^MUMPS"
^DD(509850.615,.03,1,1,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.615,.03,1,1,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.615,.03,1,1,3)="Do not Delete."
^DD(509850.615,.03,1,1,"%D",0)="^.101^2^2^3001010^^^^"
^DD(509850.615,.03,1,1,"%D",1,0)="This index updates the Last Edited in Quasar field. This in turn"
^DD(509850.615,.03,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.615,.03,1,1,"DT")="3001006"
^DD(509850.615,.03,1,2,0)="509850.6^AQ^MUMPS"
^DD(509850.615,.03,1,2,1)="D ECVOLPRV^ACKQUTL5(DA,DA(1),X,""V"",""S"")"
^DD(509850.615,.03,1,2,2)="D ECVOLPRV^ACKQUTL5(DA,DA(1),X,""V"",""D"")"
^DD(509850.615,.03,1,2,3)="Do not Delete."
^DD(509850.615,.03,1,2,"%D",0)="^.101^3^3^3001011^^^"
^DD(509850.615,.03,1,2,"%D",1,0)="If this Event Capture record contains a reference to a CPT record the"
^DD(509850.615,.03,1,2,"%D",2,0)="value entered within this field is automatically updated to the associated"
^DD(509850.615,.03,1,2,"%D",3,0)="CPT field."
^DD(509850.615,.03,1,2,"DT")="3001010"
^DD(509850.615,.03,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(509850.615,.03,21,0)="^.001^3^3^3001003^^"
^DD(509850.615,.03,21,1,0)="A procedure may be carried out multiple times during a visit.  The volume"
^DD(509850.615,.03,21,2,0)="field allows the user to specify how many times each procedure was "
^DD(509850.615,.03,21,3,0)="performed."
^DD(509850.615,.03,"DT")="3001010"
^DD(509850.615,.05,0)="EC PROCEDURE PROVIDER^*P509850.3'^ACK(509850.3,^0;3^S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.615,.05,1,0)="^.1^^-1"
^DD(509850.615,.05,1,1,0)="509850.6^AE^MUMPS"
^DD(509850.615,.05,1,1,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.615,.05,1,1,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.615,.05,1,1,3)="Do not Delete."
^DD(509850.615,.05,1,1,"%D",0)="^.101^2^2^3001010^^"
^DD(509850.615,.05,1,1,"%D",1,0)="This index updates the Last Edited in Quasar field. This in turn"
^DD(509850.615,.05,1,1,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.615,.05,1,1,"DT")="3001006"
^DD(509850.615,.05,1,3,0)="509850.6^AG^MUMPS"
^DD(509850.615,.05,1,3,1)="D ECVOLPRV^ACKQUTL5(DA,DA(1),X,""P"",""S"")"
^DD(509850.615,.05,1,3,2)="D ECVOLPRV^ACKQUTL5(DA,DA(1),X,""P"",""D"")"
^DD(509850.615,.05,1,3,3)="Do not Delete."
^DD(509850.615,.05,1,3,"%D",0)="^.101^3^3^3001010^^^"
^DD(509850.615,.05,1,3,"%D",1,0)="If this Event Capture record contains a reference to a CPT record the"
^DD(509850.615,.05,1,3,"%D",2,0)="value entered within this field is automatically updated to the associated"
^DD(509850.615,.05,1,3,"%D",3,0)="CPT field."
^DD(509850.615,.05,1,3,"DT")="3001010"
^DD(509850.615,.05,3)="Enter the Provider who carried out this Event Capture Procedure."
^DD(509850.615,.05,12)="Only Fee Basis Clinicians, Clinicians or Other Providers are valid entries."
^DD(509850.615,.05,12.1)="S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"""
^DD(509850.615,.05,21,0)="^^1^1^3001011^"
^DD(509850.615,.05,21,1,0)="This is the Provider who carried out this Event Capture Procedure."
^DD(509850.615,.05,"DT")="3001011"
^DD(509850.615,.07,0)="CPT CODE POINTER^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(509850.615,.07,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(509850.615,.07,21,0)="^^1^1^3001006^"
^DD(509850.615,.07,21,1,0)="This value is a pointer to this EC entries corresponding CPT entry."
^DD(509850.615,.07,"DT")="3001006"
^DD(509850.615,"B","CPT CODE POINTER",.07)=""
^DD(509850.615,"B","EC PROCEDURE PROVIDER",.05)=""
^DD(509850.615,"B","EVENT CAPTURE PROCEDURE",.01)=""
^DD(509850.615,"B","VOLUME",.03)=""
^DD(509850.615,"GL",0,1,.01)=""
^DD(509850.615,"GL",0,2,.03)=""
^DD(509850.615,"GL",0,3,.05)=""
^DD(509850.615,"GL",0,4,.07)=""
^DD(509850.615,"IX",.01)=""
^DD(509850.615,"IX",.03)=""
^DD(509850.615,"IX",.05)=""
^DD(509850.615,"RQ",.03)=""
^DD(509850.62,0)="REVIEW OF MEDICAL RECORDS SUB-FIELD^^.01^1"
^DD(509850.62,0,"DT")="2910715"
^DD(509850.62,0,"NM","REVIEW OF MEDICAL RECORDS")=" "
^DD(509850.62,0,"UP")="509850.6"
^DD(509850.62,.01,0)="REVIEW OF MEDICAL RECORDS^W^^0;1^Q"
^DD(509850.62,.01,.1)="Review of Medical Records"
^DD(509850.62,.01,3)="State whether the C-file and SMRs were reviewed."
^DD(509850.62,.01,4)=" "
^DD(509850.62,.01,21,0)="^^3^3^2990622^^^^"
^DD(509850.62,.01,21,1,0)=" REVIEW OF MEDICAL RECORDS: Indicate whether the C-file was reviewed. If"
^DD(509850.62,.01,21,2,0)=" the C-file was not reviewed or was not available for review, the examiner"
^DD(509850.62,.01,21,3,0)=" should so state."
^DD(509850.62,.01,"DT")="2970604"
^DD(509850.62,"B","REVIEW OF MEDICAL RECORDS",.01)=""
^DD(509850.62,"B","Review of Medical Records",.01)="1"
^DD(509850.62,"GL",0,1,.01)=""
^DD(509850.63,0)="DIAGNOSTIC CODE SUB-FIELD^^.15^5"
^DD(509850.63,0,"DT")="3000911"
^DD(509850.63,0,"IX","AC",509850.63,.01)=""
^DD(509850.63,0,"IX","AC",509850.63,.12)=""
^DD(509850.63,0,"IX","AD",509850.63,.14)=""
^DD(509850.63,0,"IX","B",509850.63,.01)=""
^DD(509850.63,0,"NM","DIAGNOSTIC CODE")=" "
^DD(509850.63,0,"UP")="509850.6"
^DD(509850.63,.01,0)="DIAGNOSTIC CODE^M*P509850.1'X^ACK(509850.1,^0;1^S DIC(""S"")=""I $D(ACKCSC),$$ICD^ACKQUT1(+Y,ACKVD,ACKCSC)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.63,.01,.1)="Diagnostic Code"
^DD(509850.63,.01,1,0)="^.1"
^DD(509850.63,.01,1,1,0)="509850.63^B"
^DD(509850.63,.01,1,1,1)="S ^ACK(509850.6,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.63,.01,1,1,2)="K ^ACK(509850.6,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.63,.01,1,2,0)="509850.63^AC^MUMPS"
^DD(509850.63,.01,1,2,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.63,.01,1,2,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.63,.01,1,2,3)="Do not Delete"
^DD(509850.63,.01,1,2,"%D",0)="^.101^2^2^3010215^^^^"
^DD(509850.63,.01,1,2,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn may"
^DD(509850.63,.01,1,2,"%D",2,0)="cause the visit to become a PCE Exception."
^DD(509850.63,.01,1,2,"DT")="2990930"
^DD(509850.63,.01,3)="Enter an ICD9 code for this clinic visit."
^DD(509850.63,.01,4)=" "
^DD(509850.63,.01,12)="The diagnostic code must be active and consistent with the stop code."
^DD(509850.63,.01,12.1)="S DIC(""S"")=""I $D(ACKCSC),$$ICD^ACKQUT1(+Y,ACKVD,ACKCSC)"""
^DD(509850.63,.01,21,0)="^^2^2^2991026^^^^"
^DD(509850.63,.01,21,1,0)="The DIAGNOSTIC CODE field is a pointer to the A&SP DIAGNOSTIC"
^DD(509850.63,.01,21,2,0)="CONDITION file (#509850.1)."
^DD(509850.63,.01,"DT")="3030618"
^DD(509850.63,.12,0)="PRIMARY DIAGNOSIS^RSX^1:YES;0:NO;^0;2^I X=1,$$PRIMARY^ACKQASU5(DA(1),"""") K X"
^DD(509850.63,.12,1,0)="^.1"
^DD(509850.63,.12,1,1,0)="509850.63^AC^MUMPS"
^DD(509850.63,.12,1,1,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.63,.12,1,1,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.63,.12,1,1,3)="Do not Delete"
^DD(509850.63,.12,1,1,"%D",0)="^^2^2^2991028^"
^DD(509850.63,.12,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn may"
^DD(509850.63,.12,1,1,"%D",2,0)="cause the visit to become a PCE Exception."
^DD(509850.63,.12,1,1,"DT")="2991028"
^DD(509850.63,.12,3)="Select whether this was the Primary or a Secondary Diagnosis.  Note that each visit must have a Primary Diagnosis and that it is only possible to allocate one Diagnosis as the Primary Diagnosis."
^DD(509850.63,.12,21,0)="^^1^1^2991011^^^^"
^DD(509850.63,.12,21,1,0)="This field indicates whether the Diagnosis is the Primary or a Secondary Diagnosis.  A Primary Diagnosis must be defined within each visit.  It is only possible to have one Primary Diagnosis. "
^DD(509850.63,.12,"DT")="2991028"
^DD(509850.63,.13,0)="UPDATE PCE PROBLEM LIST^RS^1:YES;0:NO;^0;3^Q"
^DD(509850.63,.13,3)="Do you wish to update the PCE Problem List with this Diagnosis code."
^DD(509850.63,.13,21,0)="^^2^2^3000911^"
^DD(509850.63,.13,21,1,0)="If set to true the associated Diagnosis code will be transferred to the"
^DD(509850.63,.13,21,2,0)="PCE Problem List along with the other Visit data."
^DD(509850.63,.13,"DT")="3000911"
^DD(509850.63,.14,0)="DIAGNOSIS PROVIDER^R*P509850.3'X^ACK(509850.3,^0;4^S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.63,.14,1,0)="^.1"
^DD(509850.63,.14,1,1,0)="509850.63^AD^MUMPS"
^DD(509850.63,.14,1,1,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.63,.14,1,1,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.63,.14,1,1,3)="Do not delete."
^DD(509850.63,.14,1,1,"%D",0)="^.101^2^2^3010215^^"
^DD(509850.63,.14,1,1,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn may cause"
^DD(509850.63,.14,1,1,"%D",2,0)="the visit to become a PCE Exception."
^DD(509850.63,.14,1,1,"DT")="3010215"
^DD(509850.63,.14,3)="Enter the Provider associated with this Diagnosis."
^DD(509850.63,.14,12)="Only valid Primary or Secondary Providers may be selected."
^DD(509850.63,.14,12.1)="S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"""
^DD(509850.63,.14,"DT")="3010215"
^DD(509850.63,.15,0)="*MODIFIER^RFX^^0;15^D DCXFM^ACKQAS1"
^DD(509850.63,.15,.1)="Modifier"
^DD(509850.63,.15,3)="Select a modifier for this diagnostic code."
^DD(509850.63,.15,4)=" "
^DD(509850.63,.15,21,0)="6^^8^8^3000211^^^^"
^DD(509850.63,.15,21,1,0)="The MODIFIER field contains the description of the ICD-9CM diagnostic"
^DD(509850.63,.15,21,2,0)="code for this clinic visit."
^DD(509850.63,.15,21,3,0)=" "
^DD(509850.63,.15,21,4,0)="The MODIFIER field has been marked for deletion.  This field is "
^DD(509850.63,.15,21,5,0)="not used by QUASAR V. 3.0.  Eighteen months after the release of "
^DD(509850.63,.15,21,6,0)="QUASAR 3.0, this field can be removed.  Any Modifiers defined for  "
^DD(509850.63,.15,21,7,0)="Diagnostic Codes pre version 3.0 will be retained for the integrity"
^DD(509850.63,.15,21,8,0)="of historic data."
^DD(509850.63,.15,"DT")="2990223"
^DD(509850.63,"B","*MODIFIER",.15)=""
^DD(509850.63,"B","DIAGNOSIS PROVIDER",.14)=""
^DD(509850.63,"B","DIAGNOSTIC CODE",.01)=""
^DD(509850.63,"B","Diagnostic Code",.01)="1"
^DD(509850.63,"B","Modifier",.15)="1"
^DD(509850.63,"B","PRIMARY DIAGNOSIS",.12)=""
^DD(509850.63,"B","UPDATE PCE PROBLEM LIST",.13)=""
^DD(509850.63,"GL",0,1,.01)=""
^DD(509850.63,"GL",0,2,.12)=""
^DD(509850.63,"GL",0,3,.13)=""
^DD(509850.63,"GL",0,4,.14)=""
^DD(509850.63,"GL",0,15,.15)=""
^DD(509850.63,"IX",.01)=""
^DD(509850.63,"IX",.12)=""
^DD(509850.63,"IX",.14)=""
^DD(509850.63,"RQ",.12)=""
^DD(509850.63,"RQ",.13)=""
^DD(509850.63,"RQ",.14)=""
^DD(509850.63,"RQ",.15)=""
^DD(509850.64,0)="CPT MODIFIER SUB-FIELD^^.01^1"
^DD(509850.64,0,"DT")="2990421"
^DD(509850.64,0,"IX","AC",509850.64,.01)=""
^DD(509850.64,0,"IX","B",509850.64,.01)=""
^DD(509850.64,0,"NM","CPT MODIFIER")=" "
^DD(509850.64,0,"UP")="509850.61"
^DD(509850.64,.01,0)="CPT MODIFIER^M*P509850.5'X^ACK(509850.5,^0;1^S DIC(""S"")=""D:'$D(ACKMOD(ACKPC)) MOD^ACKQUTL5  I $D(ACKMOD(ACKPC,Y))"" D MODW^ACKQUTL5 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.64,.01,1,0)="^.1"
^DD(509850.64,.01,1,1,0)="509850.64^B"
^DD(509850.64,.01,1,1,1)="S ^ACK(509850.6,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.64,.01,1,1,2)="K ^ACK(509850.6,DA(2),3,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.64,.01,1,2,0)="509850.64^AC^MUMPS"
^DD(509850.64,.01,1,2,1)="D SEND^ACKQUTL5(DA(2))"
^DD(509850.64,.01,1,2,2)="D SEND^ACKQUTL5(DA(2))"
^DD(509850.64,.01,1,2,3)="Do not Delete"
^DD(509850.64,.01,1,2,"%D",0)="^^2^2^2990930^^^^"
^DD(509850.64,.01,1,2,"%D",1,0)="This index updates the Last Edited in QUASAR field. This in turn"
^DD(509850.64,.01,1,2,"%D",2,0)="may cause the visit to become a PCE Exception."
^DD(509850.64,.01,1,2,"DT")="2990930"
^DD(509850.64,.01,3)="Enter a Modifier code(s) for the selected Procedure."
^DD(509850.64,.01,12)="Only valid Modifiers for the selected Procedure that are marked as active on the A&SP CPT Modifiers File are available for selection."
^DD(509850.64,.01,12.1)="S DIC(""S"")=""D:'$D(ACKMOD(ACKPC)) MOD^ACKQUTL5  I $D(ACKMOD(ACKPC,Y))"" D MODW^ACKQUTL5"
^DD(509850.64,.01,21,0)="^^2^2^2990901^^^^"
^DD(509850.64,.01,21,1,0)="This allows for a more specific description of the procedure than is"
^DD(509850.64,.01,21,2,0)="possible using just the CPT Procedure Codes."
^DD(509850.64,.01,"DT")="2990930"
^DD(509850.64,"B","CPT MODIFIER",.01)=""
^DD(509850.64,"GL",0,1,.01)=""
^DD(509850.64,"IX",.01)=""
^DD(509850.65,0)="PCE ERROR SUB-FIELD^^1^5"
^DD(509850.65,0,"DT")="2990702"
^DD(509850.65,0,"IX","B",509850.65,.01)=""
^DD(509850.65,0,"NM","PCE ERROR")=" "
^DD(509850.65,0,"UP")="509850.6"
^DD(509850.65,.01,0)="PCE ERROR^MNJ6,0X^^0;1^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(509850.65,.01,1,0)="^.1"
^DD(509850.65,.01,1,1,0)="509850.65^B"
^DD(509850.65,.01,1,1,1)="S ^ACK(509850.6,DA(1),6.5,""B"",$E(X,1,30),DA)="""""
^DD(509850.65,.01,1,1,2)="K ^ACK(509850.6,DA(1),6.5,""B"",$E(X,1,30),DA)"
^DD(509850.65,.01,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(509850.65,.01,"DT")="2990702"
^DD(509850.65,.02,0)="PCE FIELD NAME^F^^0;2^K:$L(X)>25!($L(X)<1) X"
^DD(509850.65,.02,3)="Answer must be 1-25 characters in length."
^DD(509850.65,.02,21,0)="^^3^3^2990702^^"
^DD(509850.65,.02,21,1,0)="This is the name of the field as defined in the array passed across to PCE."
^DD(509850.65,.02,21,2,0)="Examples of this field are: ENC D/T=Visit Date/Time, PATIENT=Patient,"
^DD(509850.65,.02,21,3,0)="HOS LOC=Clinic, PROCEDURE=Procedure CPT, DIAGNOSIS=Diagnosis ICD9."
^DD(509850.65,.02,"DT")="2990702"
^DD(509850.65,.03,0)="PCE FIELD INTERNAL VALUE^F^^0;3^K:$L(X)>25!($L(X)<1) X"
^DD(509850.65,.03,3)="Answer must be 1-25 characters in length."
^DD(509850.65,.03,21,0)="^^6^6^2990702^"
^DD(509850.65,.03,21,1,0)="This is the internal value of the field, that was passed to PCE and caused the"
^DD(509850.65,.03,21,2,0)="error message."
^DD(509850.65,.03,21,3,0)="The type for this field will obviously depend on the value of PCE FIELD NAME."
^DD(509850.65,.03,21,4,0)="For instance, if field name is ENC D/T (Visit Date/Time) then this field will"
^DD(509850.65,.03,21,5,0)="contain an internal Fileman Date/Time value. If the field name is PATIENT"
^DD(509850.65,.03,21,6,0)="then this field will contain the pointer to the PATIENT File."
^DD(509850.65,.03,"DT")="2990702"
^DD(509850.65,.04,0)="PCE FIELD EXTERNAL VALUE^F^^0;4^K:$L(X)>25!($L(X)<1) X"
^DD(509850.65,.04,3)="Answer must be 1-25 characters in length."
^DD(509850.65,.04,21,0)="^^8^8^2990702^"
^DD(509850.65,.04,21,1,0)="This field contains the External value of the field that was rejected by PCE."
^DD(509850.65,.04,21,2,0)="As with the Internal Value field, the type of value in this field will depend"
^DD(509850.65,.04,21,3,0)="on the PCE FIELD NAME that caused the error."
^DD(509850.65,.04,21,4,0)="If the PCE FIELD NAME is ENC D/T then this field will contain the external"
^DD(509850.65,.04,21,5,0)="value of the Visit Date/Time. If the PCE FIELD NAME is PATIENT then this "
^DD(509850.65,.04,21,6,0)="field will contain the Patient Name."
^DD(509850.65,.04,21,7,0)="It is not always possible to determine the external value of the PCE FIELD"
^DD(509850.65,.04,21,8,0)="NAME and so in some cases this field will be blank."
^DD(509850.65,.04,"DT")="2990702"
^DD(509850.65,1,0)="PCE ERROR MESSAGE^F^^1;1^K:$L(X)>200!($L(X)<1) X"
^DD(509850.65,1,3)="Answer must be 1-200 characters in length."
^DD(509850.65,1,21,0)="^^2^2^2990702^"
^DD(509850.65,1,21,1,0)="This field contains the text of the error message returned by PCE. The text in"
^DD(509850.65,1,21,2,0)="this field comes directly from PCE and has not been generated in Quasar."
^DD(509850.65,1,"DT")="2990702"
^DD(509850.65,"B","PCE ERROR",.01)=""
^DD(509850.65,"B","PCE ERROR MESSAGE",1)=""
^DD(509850.65,"B","PCE FIELD EXTERNAL VALUE",.04)=""
^DD(509850.65,"B","PCE FIELD INTERNAL VALUE",.03)=""
^DD(509850.65,"B","PCE FIELD NAME",.02)=""
^DD(509850.65,"GL",0,1,.01)=""
^DD(509850.65,"GL",0,2,.02)=""
^DD(509850.65,"GL",0,3,.03)=""
^DD(509850.65,"GL",0,4,.04)=""
^DD(509850.65,"GL",1,1,1)=""
^DD(509850.65,"IX",.01)=""
^DD(509850.66,0)="SECONDARY PROVIDER SUB-FIELD^^.01^1"
^DD(509850.66,0,"DT")="2991104"
^DD(509850.66,0,"IX","AJ",509850.66,.01)=""
^DD(509850.66,0,"IX","B",509850.66,.01)=""
^DD(509850.66,0,"IX","ST2",509850.66,.01)=""
^DD(509850.66,0,"NM","SECONDARY PROVIDER")=" "
^DD(509850.66,0,"UP")="509850.6"
^DD(509850.66,.01,0)="SECONDARY PROVIDER^M*P509850.3'X^ACK(509850.3,^0;1^S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.66,.01,1,0)="^.1"
^DD(509850.66,.01,1,1,0)="509850.66^B"
^DD(509850.66,.01,1,1,1)="S ^ACK(509850.6,DA(1),2.7,""B"",$E(X,1,30),DA)="""""
^DD(509850.66,.01,1,1,2)="K ^ACK(509850.6,DA(1),2.7,""B"",$E(X,1,30),DA)"
^DD(509850.66,.01,1,2,0)="509850.66^ST2^MUMPS"
^DD(509850.66,.01,1,2,1)="S ^ACK(509850.6,""ST"",X,DA(1))=2"
^DD(509850.66,.01,1,2,2)="K ^ACK(509850.6,""ST"",X,DA(1))"
^DD(509850.66,.01,1,2,3)="Do Not Delete"
^DD(509850.66,.01,1,2,"%D",0)="^.101^7^7^3000329^^^^"
^DD(509850.66,.01,1,2,"%D",1,0)="The ST subscript holds cross-references for all staff involved"
^DD(509850.66,.01,1,2,"%D",2,0)="in this clinic visit.  Rather than set the cross-reference equal to"
^DD(509850.66,.01,1,2,"%D",3,0)="null, it is coded as to the position of the staff member."
^DD(509850.66,.01,1,2,"%D",4,0)="  "
^DD(509850.66,.01,1,2,"%D",5,0)="           1 = PRIMARY PROVIDER"
^DD(509850.66,.01,1,2,"%D",6,0)="           2 = SECONDARY PROVIDER"
^DD(509850.66,.01,1,2,"%D",7,0)="           3 = STUDENT"
^DD(509850.66,.01,1,2,"DT")="2991108"
^DD(509850.66,.01,1,3,0)="509850.66^AJ^MUMPS"
^DD(509850.66,.01,1,3,1)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.66,.01,1,3,2)="D SEND^ACKQUTL5(DA(1))"
^DD(509850.66,.01,1,3,3)="Do Not Delete"
^DD(509850.66,.01,1,3,"%D",0)="^.101^2^2^3000329^^^^"
^DD(509850.66,.01,1,3,"%D",1,0)="Call to update send to PCE field with todays date, this in turn creates"
^DD(509850.66,.01,1,3,"%D",2,0)="the cross reference used by the overnight send to PCE process."
^DD(509850.66,.01,1,3,"DT")="2991108"
^DD(509850.66,.01,3)="If a secondary provider was involved with this visit, enter his or her name."
^DD(509850.66,.01,4)="I '$D(ACKVD) W !?5,""Input should take place ONLY through the QUASAR menu options."",!"
^DD(509850.66,.01,12.1)="S DIC(""S"")=""I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""""0""""!(ACKVALSC=""""-6"""")"""
^DD(509850.66,.01,21,0)="^.001^7^7^3000323^^^^"
^DD(509850.66,.01,21,1,0)="If more than one provider was involved in this exam, the"
^DD(509850.66,.01,21,2,0)="name or names of the SECONDARY PROVIDER(S) should be entered "
^DD(509850.66,.01,21,3,0)="here.  In order to enter a provider in this field, the provider must"
^DD(509850.66,.01,21,4,0)="already exist in the A&SP STAFF file (#509850.3) and the ACTIVATION"
^DD(509850.66,.01,21,5,0)="DATE and INACTIVATION DATE must indicate that the selected provider is"
^DD(509850.66,.01,21,6,0)="active on the date of the exam.  The SECONDARY PROVIDER field can be "
^DD(509850.66,.01,21,7,0)="left blank."
^DD(509850.66,.01,"DT")="3000324"
^DD(509850.66,"B","SECONDARY PROVIDER",.01)=""
^DD(509850.66,"GL",0,1,.01)=""
^DD(509850.66,"IX",.01)=""
^DD(509850.7,0)="FIELD^^5^14"
^DD(509850.7,0,"DDA")="N"
^DD(509850.7,0,"DT")="3001016"
^DD(509850.7,0,"IX","B",509850.7,.01)=""
^DD(509850.7,0,"NM","A&SP WORKLOAD")=" "
^DD(509850.7,0,"VR")="3.0"
^DD(509850.7,0,"VRPK")="ACKQ"
^DD(509850.7,.01,0)="MONTH^RD^^0;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.7,.01,.1)="Month"
^DD(509850.7,.01,1,0)="^.1"
^DD(509850.7,.01,1,1,0)="509850.7^B"
^DD(509850.7,.01,1,1,1)="S ^ACK(509850.7,""B"",$E(X,1,30),DA)="""""
^DD(509850.7,.01,1,1,2)="K ^ACK(509850.7,""B"",$E(X,1,30),DA)"
^DD(509850.7,.01,3)="Enter the month and year for workload generation."
^DD(509850.7,.01,9)="^"
^DD(509850.7,.01,21,0)="^^2^2^2990831^^^"
^DD(509850.7,.01,21,1,0)="The MONTH field contains the date (month and year) for which"
^DD(509850.7,.01,21,2,0)="statistical data is generated."
^DD(509850.7,.01,"DT")="2950726"
^DD(509850.7,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850.7,.02,0)="*STATION NUMBER^F^^0;2^K:$L(X)>4!($L(X)<3) X"
^DD(509850.7,.02,.1)="Station Number"
^DD(509850.7,.02,3)="Your answer must be 3 to 4 characters in length."
^DD(509850.7,.02,9)="^"
^DD(509850.7,.02,21,0)="^^8^8^2950816^^^"
^DD(509850.7,.02,21,1,0)="The STATION NUMBER field contains the facility's 3 or 4 digit"
^DD(509850.7,.02,21,2,0)="unique identification code."
^DD(509850.7,.02,21,3,0)="  "
^DD(509850.7,.02,21,4,0)="Due to insufficient resources for development and support of the "
^DD(509850.7,.02,21,5,0)="central data base, the QUASAR V. 1.0 workload rollup report has been "
^DD(509850.7,.02,21,6,0)="discontinued.  However, because capitation data is vital to local "
^DD(509850.7,.02,21,7,0)="managers, the functionality will remain in QUASAR V. 2.0.  Eighteen "
^DD(509850.7,.02,21,8,0)="months after the release of QUASAR V. 2.0, this field can be removed."
^DD(509850.7,.02,"DT")="2950816"
^DD(509850.7,.03,0)="*DOMAIN^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(509850.7,.03,.1)="Domain"
^DD(509850.7,.03,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.7,.03,9)="^"
^DD(509850.7,.03,21,0)="^^7^7^2950816^^^"
^DD(509850.7,.03,21,1,0)="The DOMAIN field contains the facility's domain name."
^DD(509850.7,.03,21,2,0)="  "
^DD(509850.7,.03,21,3,0)="Due to insufficient resources for development and support of the "
^DD(509850.7,.03,21,4,0)="central data base, the QUASAR V. 1.0 workload rollup report has been "
^DD(509850.7,.03,21,5,0)="discontinued.  However, because capitation data is vital to local "
^DD(509850.7,.03,21,6,0)="managers, the functionality will remain in QUASAR V. 2.0.  Eighteen "
^DD(509850.7,.03,21,7,0)="months after the release of QUASAR V. 2.0, this field can be removed."
^DD(509850.7,.03,"DT")="2950816"
^DD(509850.7,.04,0)="COMPILE START TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.7,.04,.1)="Compile Start Time"
^DD(509850.7,.04,3)="Enter the exact time the capitation statistics started compiling."
^DD(509850.7,.04,9)="^"
^DD(509850.7,.04,21,0)="^^2^2^2950816^^^^"
^DD(509850.7,.04,21,1,0)="The COMPILE START TIME field contains the exact date and time that"
^DD(509850.7,.04,21,2,0)="the capitation statistics started compiling."
^DD(509850.7,.04,"DT")="2950816"
^DD(509850.7,.05,0)="JOB NUMBER^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(509850.7,.05,.1)="Job Number"
^DD(509850.7,.05,3)="Your answer must be 1 to 10 characters in length."
^DD(509850.7,.05,9)="^"
^DD(509850.7,.05,21,0)="^^2^2^2950816^^"
^DD(509850.7,.05,21,1,0)="The JOB NUMBER field identifies the job which is generating the"
^DD(509850.7,.05,21,2,0)="capitation statistics."
^DD(509850.7,.05,"DT")="2950726"
^DD(509850.7,.06,0)="COMPILE END TIME^D^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.7,.06,.1)="Compile End Time"
^DD(509850.7,.06,3)="Enter the exact time the capitation statistics finished compiling."
^DD(509850.7,.06,9)="^"
^DD(509850.7,.06,21,0)="^^2^2^2950816^^^^"
^DD(509850.7,.06,21,1,0)="The COMPILE END TIME field contains the exact date and time that the"
^DD(509850.7,.06,21,2,0)="capitation statistics completed compiling."
^DD(509850.7,.06,"DT")="2950816"
^DD(509850.7,.07,0)="*VERIFIED BY^F^^0;7^K:$L(X)>35!($L(X)<3) X"
^DD(509850.7,.07,.1)="Verified By"
^DD(509850.7,.07,3)="Your answer must be 3 to 35 characters in length."
^DD(509850.7,.07,9)="^"
^DD(509850.7,.07,21,0)="^^5^5^2950816^^"
^DD(509850.7,.07,21,1,0)="Due to insufficient resources for development and support of the "
^DD(509850.7,.07,21,2,0)="central data base, the QUASAR V. 1.0 workload rollup report has been "
^DD(509850.7,.07,21,3,0)="discontinued.  However, because capitation data is vital to local "
^DD(509850.7,.07,21,4,0)="managers, the functionality will remain in QUASAR V. 2.0.  Eighteen "
^DD(509850.7,.07,21,5,0)="months after the release of QUASAR V. 2.0, this field can be removed."
^DD(509850.7,.07,"DT")="2950816"
^DD(509850.7,.08,0)="*RELEASE DATE^D^^0;8^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.7,.08,.1)="Release Date"
^DD(509850.7,.08,3)="Enter date and time."
^DD(509850.7,.08,9)="^"
^DD(509850.7,.08,21,0)="^^5^5^2950816^^"
^DD(509850.7,.08,21,1,0)="Due to insufficient resources for development and support of the "
^DD(509850.7,.08,21,2,0)="central data base, the QUASAR V. 1.0 workload rollup report has been "
^DD(509850.7,.08,21,3,0)="discontinued.  However, because capitation data is vital to local "
^DD(509850.7,.08,21,4,0)="managers, the functionality will remain in QUASAR V. 2.0.  Eighteen "
^DD(509850.7,.08,21,5,0)="months after the release of QUASAR V. 2.0, this field can be removed."
^DD(509850.7,.08,"DT")="2950816"
^DD(509850.7,.09,0)="CDR TOTAL PAID HOURS^NJ5,0^^0;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.7,.09,.1)="CDR Total Paid Hours"
^DD(509850.7,.09,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.7,.09,9)="^"
^DD(509850.7,.09,21,0)="^^9^9^2950816^^^"
^DD(509850.7,.09,21,1,0)="The CDR TOTAL PAID HOURS field contains the total number of paid hours "
^DD(509850.7,.09,21,2,0)="for the service for the month.  This field contains the total paid "
^DD(509850.7,.09,21,3,0)="hours for all staff members assigned to the service as FTEE including "
^DD(509850.7,.09,21,4,0)="secretarial or clerical staff.  This total does NOT include students "
^DD(509850.7,.09,21,5,0)="or trainees.  Supervisors need to be aware that total paid hours are "
^DD(509850.7,.09,21,6,0)="not always the number of FTEE times the number of paid hours in the "
^DD(509850.7,.09,21,7,0)="month.  The total paid hours must be calculated carefully when there "
^DD(509850.7,.09,21,8,0)="are LWOP hours or when the staff are on flexible hours or irregular "
^DD(509850.7,.09,21,9,0)="tours of duty."
^DD(509850.7,.09,"DT")="2950726"
^DD(509850.7,1,0)="ICD9^509850.71A^^1;0"
^DD(509850.7,1,9)="^"
^DD(509850.7,1,21,0)="^^4^4^2990512^^^^"
^DD(509850.7,1,21,1,0)="The ICD9 field is a multiple field containing diagnostic data for"
^DD(509850.7,1,21,2,0)="capitation statistics for a specific month.  This includes ICD-9CM "
^DD(509850.7,1,21,3,0)="codes, total patient count, unique patient count, stop code, and "
^DD(509850.7,1,21,4,0)="demographic data."
^DD(509850.7,1,"DT")="2950726"
^DD(509850.7,2,0)="CPT^509850.72A^^2;0"
^DD(509850.7,2,9)="^"
^DD(509850.7,2,21,0)="^^4^4^2950816^^"
^DD(509850.7,2,21,1,0)="The CPT field is a multiple field containing procedure data for"
^DD(509850.7,2,21,2,0)="capitation statistics for a specific month.  This includes CPT-4 "
^DD(509850.7,2,21,3,0)="codes, total patient count, unique patient count, stop code, and "
^DD(509850.7,2,21,4,0)="demographic data."
^DD(509850.7,3,0)="ZIP CODE^509850.73A^^3;0"
^DD(509850.7,3,9)="^"
^DD(509850.7,3,21,0)="^^4^4^2950816^^"
^DD(509850.7,3,21,1,0)="The ZIP CODE field is a multiple field containing demographic data for"
^DD(509850.7,3,21,2,0)="capitation statistics for a specific month.  This includes zip code, "
^DD(509850.7,3,21,3,0)="C and P visit totals, total patient count, unique patient count, and "
^DD(509850.7,3,21,4,0)="stop code."
^DD(509850.7,4,0)="CDR^509850.74A^^4;0"
^DD(509850.7,4,9)="^"
^DD(509850.7,4,21,0)="^^3^3^2950816^^"
^DD(509850.7,4,21,1,0)="The CDR field is a multiple field containing CDR data for workload "
^DD(509850.7,4,21,2,0)="statistics for a specific month.  This includes the CDR cost account "
^DD(509850.7,4,21,3,0)="and the percentage of workload associated with that cost account."
^DD(509850.7,5,0)="DIVISION^509850.75P^^5;0"
^DD(509850.7,5,12)="Only divisions on the A&SP Site Parameters file may be selected."
^DD(509850.7,5,12.1)="S DIC(""S"")=""I $$ASPDIV^ACKQUTL2(X)"""
^DD(509850.7,"B","*DOMAIN",.03)=""
^DD(509850.7,"B","*RELEASE DATE",.08)=""
^DD(509850.7,"B","*STATION NUMBER",.02)=""
^DD(509850.7,"B","*VERIFIED BY",.07)=""
^DD(509850.7,"B","CDR",4)=""
^DD(509850.7,"B","CDR TOTAL PAID HOURS",.09)=""
^DD(509850.7,"B","CDR Total Paid Hours",.09)="1"
^DD(509850.7,"B","COMPILE END TIME",.06)=""
^DD(509850.7,"B","COMPILE START TIME",.04)=""
^DD(509850.7,"B","CPT",2)=""
^DD(509850.7,"B","Compile End Time",.06)="1"
^DD(509850.7,"B","Compile Start Time",.04)="1"
^DD(509850.7,"B","DIVISION",5)=""
^DD(509850.7,"B","Domain",.03)="1"
^DD(509850.7,"B","ICD9",1)=""
^DD(509850.7,"B","JOB NUMBER",.05)=""
^DD(509850.7,"B","Job Number",.05)="1"
^DD(509850.7,"B","MONTH",.01)=""
^DD(509850.7,"B","Month",.01)="1"
^DD(509850.7,"B","Release Date",.08)="1"
^DD(509850.7,"B","Station Number",.02)="1"
^DD(509850.7,"B","Verified By",.07)="1"
^DD(509850.7,"B","ZIP CODE",3)=""
^DD(509850.7,"GL",0,1,.01)=""
^DD(509850.7,"GL",0,2,.02)=""
^DD(509850.7,"GL",0,3,.03)=""
^DD(509850.7,"GL",0,4,.04)=""
^DD(509850.7,"GL",0,5,.05)=""
^DD(509850.7,"GL",0,6,.06)=""
^DD(509850.7,"GL",0,7,.07)=""
^DD(509850.7,"GL",0,8,.08)=""
^DD(509850.7,"GL",0,9,.09)=""
^DD(509850.7,"GL",1,0,1)=""
^DD(509850.7,"GL",2,0,2)=""
^DD(509850.7,"GL",3,0,3)=""
^DD(509850.7,"GL",4,0,4)=""
^DD(509850.7,"GL",5,0,5)=""
^DD(509850.7,"IX",.01)=""
^DD(509850.7,"RQ",.01)=""
^DD(509850.7,"SB",509850.71,1)=""
^DD(509850.7,"SB",509850.72,2)=""
^DD(509850.7,"SB",509850.73,3)=""
^DD(509850.7,"SB",509850.74,4)=""
^DD(509850.7,"SB",509850.75,5)=""
^DD(509850.71,0)="ICD9 SUB-FIELD^^.05^5"
^DD(509850.71,0,"DT")="2930309"
^DD(509850.71,0,"IX","B",509850.71,.01)=""
^DD(509850.71,0,"NM","ICD9")=" "
^DD(509850.71,0,"UP")="509850.7"
^DD(509850.71,.01,0)="ICD9^F^^0;1^K:$L(X)>7!($L(X)<4) X"
^DD(509850.71,.01,.1)="ICD-9"
^DD(509850.71,.01,1,0)="^.1"
^DD(509850.71,.01,1,1,0)="509850.71^B"
^DD(509850.71,.01,1,1,1)="S ^ACK(509850.7,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.71,.01,1,1,2)="K ^ACK(509850.7,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.71,.01,3)="Your answer must be 4 to 7 characters in length."
^DD(509850.71,.01,21,0)="^^2^2^2950816^^^^"
^DD(509850.71,.01,21,1,0)="The ICD9 field contains a list of all ICD-9CM codes reported during "
^DD(509850.71,.01,21,2,0)="the specified month. Modifiers are not included in the analysis."
^DD(509850.71,.01,"DT")="2950726"
^DD(509850.71,.02,0)="COUNT^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.71,.02,.1)="Count"
^DD(509850.71,.02,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.71,.02,21,0)="^^2^2^2950816^^^^"
^DD(509850.71,.02,21,1,0)="The COUNT field contains a total count of the ICD-9CM disease codes by "
^DD(509850.71,.02,21,2,0)="patient reported during the specified month."
^DD(509850.71,.02,"DT")="2950726"
^DD(509850.71,.03,0)="UNIQUE^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.71,.03,.1)="Unique"
^DD(509850.71,.03,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.71,.03,21,0)="^^11^11^2950816^^^^"
^DD(509850.71,.03,21,1,0)="The UNIQUE field contains a count of the ICD-9CM disease codes by "
^DD(509850.71,.03,21,2,0)="unique (capitated) patient.  A unique (capitated) visit is one for "
^DD(509850.71,.03,21,3,0)="which no ASP visit is on record for the current fiscal year.  This "
^DD(509850.71,.03,21,4,0)="field is important because future budget allocations in VHA will be "
^DD(509850.71,.03,21,5,0)="based on unique visits (i.e., fixed, per capita rates for each patient "
^DD(509850.71,.03,21,6,0)="without regard to the number or nature of  services provided).  "
^DD(509850.71,.03,21,7,0)="However, it is important to understand that a unique visit for the ASP "
^DD(509850.71,.03,21,8,0)="service may not be unique to the medical center.  ASP services may be "
^DD(509850.71,.03,21,9,0)="asked for the proportion of unique patients in the case mix as medical "
^DD(509850.71,.03,21,10,0)="centers and VISNs improve efficiency.  The user may compare the total "
^DD(509850.71,.03,21,11,0)="COUNT to the UNIQUE count to determine the case mix."
^DD(509850.71,.03,"DT")="2950726"
^DD(509850.71,.04,0)="STOP CODE^NJ3,0^^0;4^K:+X'=X!(X>204)!(X<203)!(X?.E1"".""1N.N) X"
^DD(509850.71,.04,.1)="Stop Code"
^DD(509850.71,.04,3)="Enter 203 for Audiology or 204 for Speech Pathology."
^DD(509850.71,.04,21,0)="^^6^6^2950816^^^"
^DD(509850.71,.04,21,1,0)="The STOP CODE field contains the stop code (203 for Audiology or 204 "
^DD(509850.71,.04,21,2,0)="for Speech Pathology) associated with each visit.  Statistics are "
^DD(509850.71,.04,21,3,0)="reported for one or both clinic stop codes assigned to Audiology and "
^DD(509850.71,.04,21,4,0)="Speech Pathology.  All audiology clinics, providers, or activities "
^DD(509850.71,.04,21,5,0)="report into stop code 203.  All speech pathology clinics, providers, "
^DD(509850.71,.04,21,6,0)="or activities report into stop code 204."
^DD(509850.71,.04,"DT")="2950726"
^DD(509850.71,.05,0)="ZIP CODE^FX^^0;5^S X=$$PAD^ACKQUTL(X,""R"",5,""0"") K:$L(X)>5!($L(X)<5) X"
^DD(509850.71,.05,.1)="Zip Code"
^DD(509850.71,.05,3)="Your answer must be 5 characters in length."
^DD(509850.71,.05,21,0)="^^5^5^2950816^^^"
^DD(509850.71,.05,21,1,0)="The ZIP CODE field contains the patient's zip code.  This field is "
^DD(509850.71,.05,21,2,0)="used to calculate the demographic portion of the report.  The "
^DD(509850.71,.05,21,3,0)="demographic report is useful in determining service areas and "
^DD(509850.71,.05,21,4,0)="forecasting needs for establishing services, outpatient clinics, "
^DD(509850.71,.05,21,5,0)="community-based clinics, outreach centers, and fee basis sites."
^DD(509850.71,.05,"DT")="2950726"
^DD(509850.71,"B","COUNT",.02)=""
^DD(509850.71,"B","Count",.02)="1"
^DD(509850.71,"B","ICD-9",.01)="1"
^DD(509850.71,"B","ICD9",.01)=""
^DD(509850.71,"B","STOP CODE",.04)=""
^DD(509850.71,"B","Stop Code",.04)="1"
^DD(509850.71,"B","UNIQUE",.03)=""
^DD(509850.71,"B","Unique",.03)="1"
^DD(509850.71,"B","ZIP CODE",.05)=""
^DD(509850.71,"B","Zip Code",.05)="1"
^DD(509850.71,"GL",0,1,.01)=""
^DD(509850.71,"GL",0,2,.02)=""
^DD(509850.71,"GL",0,3,.03)=""
^DD(509850.71,"GL",0,4,.04)=""
^DD(509850.71,"GL",0,5,.05)=""
^DD(509850.71,"IX",.01)=""
^DD(509850.72,0)="CPT SUB-FIELD^^.05^5"
^DD(509850.72,0,"DT")="2930309"
^DD(509850.72,0,"IX","B",509850.72,.01)=""
^DD(509850.72,0,"NM","CPT")=" "
^DD(509850.72,0,"UP")="509850.7"
^DD(509850.72,.01,0)="CPT^F^^0;1^K:$L(X)>6!($L(X)<5) X"
^DD(509850.72,.01,.1)="CPT Code"
^DD(509850.72,.01,1,0)="^.1"
^DD(509850.72,.01,1,1,0)="509850.72^B"
^DD(509850.72,.01,1,1,1)="S ^ACK(509850.7,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(509850.72,.01,1,1,2)="K ^ACK(509850.7,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(509850.72,.01,3)="Your answer must be 5 to 6 characters in length."
^DD(509850.72,.01,21,0)="^^2^2^2950816^^"
^DD(509850.72,.01,21,1,0)="The CPT field contains a list of all CPT-4 codes reported during the "
^DD(509850.72,.01,21,2,0)="specified month.  Modifiers are not included in the analysis."
^DD(509850.72,.01,"DT")="2950726"
^DD(509850.72,.02,0)="COUNT^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.72,.02,.1)="Count"
^DD(509850.72,.02,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.72,.02,21,0)="^^2^2^2950816^^"
^DD(509850.72,.02,21,1,0)="The COUNT field contains a total count of the CPT-4 procedure codes by "
^DD(509850.72,.02,21,2,0)="patient reported during the specified month."
^DD(509850.72,.02,"DT")="2950726"
^DD(509850.72,.03,0)="UNIQUE^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.72,.03,.1)="Unique"
^DD(509850.72,.03,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.72,.03,21,0)="^^11^11^2950816^^"
^DD(509850.72,.03,21,1,0)="The UNIQUE field contains a count of the CPT-4 procedure codes by "
^DD(509850.72,.03,21,2,0)="unique (capitated) patient.  A unique (capitated) visit is one for "
^DD(509850.72,.03,21,3,0)="which no ASP visit is on record for the current fiscal year.  This "
^DD(509850.72,.03,21,4,0)="field is important because future budget allocations in VHA will be "
^DD(509850.72,.03,21,5,0)="based on unique visits (i.e., fixed, per capita rates for each patient "
^DD(509850.72,.03,21,6,0)="without regard to the number or nature of  services provided).  "
^DD(509850.72,.03,21,7,0)="However, it is important to understand that a unique visit for the ASP "
^DD(509850.72,.03,21,8,0)="service may not be unique to the medical center.  ASP services may be "
^DD(509850.72,.03,21,9,0)="asked for the proportion of unique patients in the case mix as medical "
^DD(509850.72,.03,21,10,0)="centers and VISNs improve efficiency.  The user may compare the total "
^DD(509850.72,.03,21,11,0)="COUNT to the UNIQUE count to determine the case mix."
^DD(509850.72,.03,"DT")="2950726"
^DD(509850.72,.04,0)="STOP CODE^NJ3,0^^0;4^K:+X'=X!(X>204)!(X<203)!(X?.E1"".""1N.N) X"
^DD(509850.72,.04,.1)="Stop Code"
^DD(509850.72,.04,3)="Enter 203 for Audiology or 204 for Speech Pathology."
^DD(509850.72,.04,21,0)="^^6^6^2950816^^^"
^DD(509850.72,.04,21,1,0)="The STOP CODE field contains the stop code (203 for Audiology or 204 "
^DD(509850.72,.04,21,2,0)="for Speech Pathology) associated with each visit.  Statistics are "
^DD(509850.72,.04,21,3,0)="reported for one or both clinic stop codes assigned to Audiology and "
^DD(509850.72,.04,21,4,0)="Speech Pathology.  All audiology clinics, providers, or activities "
^DD(509850.72,.04,21,5,0)="report into stop code 203.  All speech pathology clinics, providers, "
^DD(509850.72,.04,21,6,0)="or activities report into stop code 204."
^DD(509850.72,.04,"DT")="2950726"
^DD(509850.72,.05,0)="ZIP CODE^FX^^0;5^S X=$$PAD^ACKQUTL(X,""R"",5,""0"") K:$L(X)>5!($L(X)<5) X"
^DD(509850.72,.05,.1)="Zip Code"
^DD(509850.72,.05,3)="Your answer must be 5 characters in length."
^DD(509850.72,.05,21,0)="^^5^5^2950816^^"
^DD(509850.72,.05,21,1,0)="The ZIP CODE field contains the patient's zip code.  This field is "
^DD(509850.72,.05,21,2,0)="used to calculate the demographic portion of the report.  The "
^DD(509850.72,.05,21,3,0)="demographic report is useful in determining service areas and "
^DD(509850.72,.05,21,4,0)="forecasting needs for establishing services, outpatient clinics, "
^DD(509850.72,.05,21,5,0)="community-based clinics, outreach centers, and fee basis sites."
^DD(509850.72,.05,"DT")="2950726"
^DD(509850.72,"B","COUNT",.02)=""
^DD(509850.72,"B","CPT",.01)=""
^DD(509850.72,"B","CPT Code",.01)="1"
^DD(509850.72,"B","Count",.02)="1"
^DD(509850.72,"B","STOP CODE",.04)=""
^DD(509850.72,"B","Stop Code",.04)="1"
^DD(509850.72,"B","UNIQUE",.03)=""
^DD(509850.72,"B","Unique",.03)="1"
^DD(509850.72,"B","ZIP CODE",.05)=""
^DD(509850.72,"B","Zip Code",.05)="1"
^DD(509850.72,"GL",0,1,.01)=""
^DD(509850.72,"GL",0,2,.02)=""
^DD(509850.72,"GL",0,3,.03)=""
^DD(509850.72,"GL",0,4,.04)=""
^DD(509850.72,"GL",0,5,.05)=""
^DD(509850.72,"IX",.01)=""
^DD(509850.73,0)="ZIP CODE SUB-FIELD^^.05^5"
^DD(509850.73,0,"DT")="2930309"
^DD(509850.73,0,"IX","B",509850.73,.01)=""
^DD(509850.73,0,"NM","ZIP CODE")=" "
^DD(509850.73,0,"UP")="509850.7"
^DD(509850.73,.01,0)="ZIP CODE^FX^^0;1^S X=$$PAD^ACKQUTL(X,""R"",5,""0"") K:$L(X)>5!($L(X)<5) X"
^DD(509850.73,.01,.1)="Zip Code"
^DD(509850.73,.01,1,0)="^.1"
^DD(509850.73,.01,1,1,0)="509850.73^B"
^DD(509850.73,.01,1,1,1)="S ^ACK(509850.7,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(509850.73,.01,1,1,2)="K ^ACK(509850.7,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(509850.73,.01,3)="Your answer must be 5 characters in length."
^DD(509850.73,.01,21,0)="^^2^2^2950816^^"
^DD(509850.73,.01,21,1,0)="The ZIP CODE field contains a list of all zip codes reported during"
^DD(509850.73,.01,21,2,0)="the specified month."
^DD(509850.73,.01,"DT")="2950726"
^DD(509850.73,.02,0)="C AND P^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.73,.02,.1)="C and P"
^DD(509850.73,.02,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.73,.02,21,0)="^^2^2^2950816^^"
^DD(509850.73,.02,21,1,0)="The C AND P field contains a total count of the C&P exams during "
^DD(509850.73,.02,21,2,0)="the specified month."
^DD(509850.73,.02,"DT")="2950726"
^DD(509850.73,.03,0)="COUNT^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.73,.03,.1)="Count"
^DD(509850.73,.03,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.73,.03,21,0)="^^2^2^2950816^^"
^DD(509850.73,.03,21,1,0)="The COUNT field contains a total count of patients by zip code "
^DD(509850.73,.03,21,2,0)="reported during the specified month."
^DD(509850.73,.03,"DT")="2950816"
^DD(509850.73,.04,0)="UNIQUE^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.73,.04,.1)="Unique"
^DD(509850.73,.04,3)="Enter a number between 0 and 99999 with 0 decimal digits."
^DD(509850.73,.04,21,0)="^^11^11^2950816^^"
^DD(509850.73,.04,21,1,0)="The UNIQUE field contains a count of the demographic zip code by "
^DD(509850.73,.04,21,2,0)="unique (capitated) patient.  A unique (capitated) visit is one for "
^DD(509850.73,.04,21,3,0)="which no ASP visit is on record for the current fiscal year.  This "
^DD(509850.73,.04,21,4,0)="field is important because future budget allocations in VHA will be "
^DD(509850.73,.04,21,5,0)="based on unique visits (i.e., fixed, per capita rates for each patient "
^DD(509850.73,.04,21,6,0)="without regard to the number or nature of  services provided).  "
^DD(509850.73,.04,21,7,0)="However, it is important to understand that a unique visit for the ASP "
^DD(509850.73,.04,21,8,0)="service may not be unique to the medical center.  ASP services may be "
^DD(509850.73,.04,21,9,0)="asked for the proportion of unique patients in the case mix as medical "
^DD(509850.73,.04,21,10,0)="centers and VISNs improve efficiency.  The user may compare the total "
^DD(509850.73,.04,21,11,0)="COUNT to the UNIQUE count to determine the case mix."
^DD(509850.73,.04,"DT")="2950816"
^DD(509850.73,.05,0)="STOP CODE^NJ3,0^^0;5^K:+X'=X!(X>204)!(X<203)!(X?.E1"".""1N.N) X"
^DD(509850.73,.05,.1)="Stop Code"
^DD(509850.73,.05,3)="Enter 203 for Audiology or 204 for Speech Pathology."
^DD(509850.73,.05,21,0)="^^6^6^2950816^^^"
^DD(509850.73,.05,21,1,0)="The STOP CODE field contains the stop code (203 for Audiology or 204 "
^DD(509850.73,.05,21,2,0)="for Speech Pathology) associated with each visit.  Statistics are "
^DD(509850.73,.05,21,3,0)="reported for one or both clinic stop codes assigned to Audiology and "
^DD(509850.73,.05,21,4,0)="Speech Pathology.  All audiology clinics, providers, or activities "
^DD(509850.73,.05,21,5,0)="report into stop code 203.  All speech pathology clinics, providers, "
^DD(509850.73,.05,21,6,0)="or activities report into stop code 204."
^DD(509850.73,.05,"DT")="2950726"
^DD(509850.73,"B","C AND P",.02)=""
^DD(509850.73,"B","C and P",.02)="1"
^DD(509850.73,"B","COUNT",.03)=""
^DD(509850.73,"B","Count",.03)="1"
^DD(509850.73,"B","STOP CODE",.05)=""
^DD(509850.73,"B","Stop Code",.05)="1"
^DD(509850.73,"B","UNIQUE",.04)=""
^DD(509850.73,"B","Unique",.04)="1"
^DD(509850.73,"B","ZIP CODE",.01)=""
^DD(509850.73,"B","Zip Code",.01)="1"
^DD(509850.73,"GL",0,1,.01)=""
^DD(509850.73,"GL",0,2,.02)=""
^DD(509850.73,"GL",0,3,.03)=""
^DD(509850.73,"GL",0,4,.04)=""
^DD(509850.73,"GL",0,5,.05)=""
^DD(509850.73,"IX",.01)=""
^DD(509850.74,0)="CDR SUB-FIELD^^.02^2"
^DD(509850.74,0,"DT")="2951206"
^DD(509850.74,0,"IX","B",509850.74,.01)=""
^DD(509850.74,0,"NM","CDR")=" "
^DD(509850.74,0,"UP")="509850.7"
^DD(509850.74,.01,0)="CDR^F^^0;1^K:$L(X)>7!($L(X)<4) X"
^DD(509850.74,.01,.1)="CDR Cost Account"
^DD(509850.74,.01,1,0)="^.1"
^DD(509850.74,.01,1,1,0)="509850.74^B"
^DD(509850.74,.01,1,1,1)="S ^ACK(509850.7,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(509850.74,.01,1,1,2)="K ^ACK(509850.7,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(509850.74,.01,3)="Your answer must be 4 to 7 characters in length."
^DD(509850.74,.01,21,0)="^^2^2^2950816^^"
^DD(509850.74,.01,21,1,0)="The CDR field contains a list of all cost accounts reported during the "
^DD(509850.74,.01,21,2,0)="specified month."
^DD(509850.74,.01,"DT")="2950816"
^DD(509850.74,.02,0)="PERCENT^NJ13,9^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""10N.N) X"
^DD(509850.74,.02,.1)="Percent"
^DD(509850.74,.02,3)="Store a number between 0 and 100 with up to 9 decimal digits."
^DD(509850.74,.02,21,0)="^^16^16^2951206^^^^"
^DD(509850.74,.02,21,1,0)="The PERCENT field contains the workload percentage for each CDR "
^DD(509850.74,.02,21,2,0)="account.  QUASAR uses the following algorithm to calculate cost "
^DD(509850.74,.02,21,3,0)="distributions.  You specify the TOTAL PAID HOURS and any PASS-THROUGH "
^DD(509850.74,.02,21,4,0)="ACCOUNTS (i.e., 6000-, 7000-, and 8000-series accounts).  You must "
^DD(509850.74,.02,21,5,0)="also enter administrative time associated with Associated Health "
^DD(509850.74,.02,21,6,0)="Professions Traineeship or other VA Headquarters-sponsored training "
^DD(509850.74,.02,21,7,0)="programs (.13 subaccount) and time associated with preparing and "
^DD(509850.74,.02,21,8,0)="presenting formal continuing education programs (.14 subaccount).  You "
^DD(509850.74,.02,21,9,0)="must enter any medical (.21 subaccount) or prosthetics (.22 subaccount) "
^DD(509850.74,.02,21,10,0)="research hours.  QUASAR calculates hours for instruction/supervision of "
^DD(509850.74,.02,21,11,0)="trainees (.12 subaccount).  QUASAR computes the total education, "
^DD(509850.74,.02,21,12,0)="research, and pass-through hours and subtracts this total from the total "
^DD(509850.74,.02,21,13,0)="paid hours.  The remainder is the number of hours for patient care "
^DD(509850.74,.02,21,14,0)="during the reporting period.  QUASAR then computes the proportion of "
^DD(509850.74,.02,21,15,0)="care associated with specific cost accounts (based on treating "
^DD(509850.74,.02,21,16,0)="specialty) to the total number of hours of patient care."
^DD(509850.74,.02,"DT")="2951206"
^DD(509850.74,"B","CDR",.01)=""
^DD(509850.74,"B","CDR Cost Account",.01)="1"
^DD(509850.74,"B","PERCENT",.02)=""
^DD(509850.74,"B","Percent",.02)="1"
^DD(509850.74,"GL",0,1,.01)=""
^DD(509850.74,"GL",0,2,.02)=""
^DD(509850.74,"IX",.01)=""
^DD(509850.75,0)="DIVISION SUB-FIELD^^5.9^10"
^DD(509850.75,0,"DT")="3001016"
^DD(509850.75,0,"IX","B",509850.75,.01)=""
^DD(509850.75,0,"NM","DIVISION")=" "
^DD(509850.75,0,"UP")="509850.7"
^DD(509850.75,.01,0)="DIVISION^MR*P40.8'X^DG(40.8,^0;1^S DIC(""S"")=""I $$ASPDIV^ACKQUTL2(X)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(509850.75,.01,1,0)="^.1"
^DD(509850.75,.01,1,1,0)="509850.75^B"
^DD(509850.75,.01,1,1,1)="S ^ACK(509850.7,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(509850.75,.01,1,1,2)="K ^ACK(509850.7,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(509850.75,.01,3)="Enter the Division for which Workload is required."
^DD(509850.75,.01,12.1)="S DIC(""S"")=""I $$ASPDIV^ACKQUTL2(X)"""
^DD(509850.75,.01,21,0)="^^4^4^2990305^"
^DD(509850.75,.01,21,1,0)="In version 3.0 Workload Statistics will be broken down by Division."
^DD(509850.75,.01,21,2,0)="This multiple will contain statistics on demographic, disease, and procedure "
^DD(509850.75,.01,21,3,0)="for each division on the A&SP Site Parameters file for which there has"
^DD(509850.75,.01,21,4,0)="been activity during the month."
^DD(509850.75,.01,"DT")="2990528"
^DD(509850.75,5.02,0)="DIVISION COMPILE START TIME^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.75,5.02,3)="Enter the exact time the Capitation Statistics started compiling for the Division."
^DD(509850.75,5.02,21,0)="^^3^3^2990503^"
^DD(509850.75,5.02,21,1,0)="The DIVISION COMPILE START TIME field records the exact date and"
^DD(509850.75,5.02,21,2,0)="time that the capitation statistics started compiling for the "
^DD(509850.75,5.02,21,3,0)="division and month."
^DD(509850.75,5.02,"DT")="2990503"
^DD(509850.75,5.03,0)="DIVISION JOB NUMBER^F^^0;3^K:$L(X)>10!($L(X)<1) X"
^DD(509850.75,5.03,3)="Answer must be 1-10 characters in length."
^DD(509850.75,5.03,21,0)="^^3^3^2990503^"
^DD(509850.75,5.03,21,1,0)="The DIVISION JOB NUMBER field records the Mumps Job Id of the"
^DD(509850.75,5.03,21,2,0)="compilation job that is generating the capitation statistics for"
^DD(509850.75,5.03,21,3,0)="the division and month. "
^DD(509850.75,5.03,"DT")="2990503"
^DD(509850.75,5.04,0)="DIVISION COMPILE END TIME^D^^0;4^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.75,5.04,3)="Enter the exact time the capitation statistics finished compiling."
^DD(509850.75,5.04,21,0)="^^3^3^2990503^"
^DD(509850.75,5.04,21,1,0)="The DIVISION COMPILE END TIME contains the exact time that the"
^DD(509850.75,5.04,21,2,0)="capitation statistics finished compiling for the Division and"
^DD(509850.75,5.04,21,3,0)="month."
^DD(509850.75,5.04,"DT")="2990503"
^DD(509850.75,5.05,0)="DIVISION CDR TOTAL PAID HOURS^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.75,5.05,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.75,5.05,21,0)="^^10^10^2990729^"
^DD(509850.75,5.05,21,1,0)="The DIVISION CDR TOTAL PAID HOURS field contains the total number"
^DD(509850.75,5.05,21,2,0)="of paid hours for the service for the division for the month."
^DD(509850.75,5.05,21,3,0)="This field contains the total paid hours for all staff members"
^DD(509850.75,5.05,21,4,0)="assigned to the service as FTEE including secretarial or clerical"
^DD(509850.75,5.05,21,5,0)="staff. This total does not include students of trainees."
^DD(509850.75,5.05,21,6,0)="Supervisors need to be aware that total paid hours are not always"
^DD(509850.75,5.05,21,7,0)="the number of FTEE times the number of paid hours in the month."
^DD(509850.75,5.05,21,8,0)="the total paid hours must be calculated carefully when there are"
^DD(509850.75,5.05,21,9,0)="LWOP hours or when the staff are on flexible hours or irregular "
^DD(509850.75,5.05,21,10,0)="tours of duty."
^DD(509850.75,5.05,"DT")="2990503"
^DD(509850.75,5.5,0)="DIVISION ICD9^509850.751A^^1;0"
^DD(509850.75,5.6,0)="DIVISION CPT^509850.752A^^2;0"
^DD(509850.75,5.7,0)="DIVISION ZIP^509850.753A^^3;0"
^DD(509850.75,5.7,"DT")="2990305"
^DD(509850.75,5.8,0)="DIVISION CDR^509850.754A^^4;0"
^DD(509850.75,5.8,"DT")="2990305"
^DD(509850.75,5.9,0)="DIVISION EC^509850.755A^^5;0"
^DD(509850.75,"B","DIVISION",.01)=""
^DD(509850.75,"B","DIVISION CDR",5.8)=""
^DD(509850.75,"B","DIVISION CDR TOTAL PAID HOURS",5.05)=""
^DD(509850.75,"B","DIVISION COMPILE END TIME",5.04)=""
^DD(509850.75,"B","DIVISION COMPILE START TIME",5.02)=""
^DD(509850.75,"B","DIVISION CPT",5.6)=""
^DD(509850.75,"B","DIVISION EC",5.9)=""
^DD(509850.75,"B","DIVISION ICD9",5.5)=""
^DD(509850.75,"B","DIVISION JOB NUMBER",5.03)=""
^DD(509850.75,"B","DIVISION ZIP",5.7)=""
^DD(509850.75,"GL",0,1,.01)=""
^DD(509850.75,"GL",0,2,5.02)=""
^DD(509850.75,"GL",0,3,5.03)=""
^DD(509850.75,"GL",0,4,5.04)=""
^DD(509850.75,"GL",0,5,5.05)=""
^DD(509850.75,"GL",1,0,5.5)=""
^DD(509850.75,"GL",2,0,5.6)=""
^DD(509850.75,"GL",3,0,5.7)=""
^DD(509850.75,"GL",4,0,5.8)=""
^DD(509850.75,"GL",5,0,5.9)=""
^DD(509850.75,"IX",.01)=""
^DD(509850.75,"RQ",.01)=""
^DD(509850.75,"SB",509850.751,5.5)=""
^DD(509850.75,"SB",509850.752,5.6)=""
^DD(509850.75,"SB",509850.753,5.7)=""
^DD(509850.75,"SB",509850.754,5.8)=""
^DD(509850.75,"SB",509850.755,5.9)=""
^DD(509850.751,0)="DIVISION ICD9 SUB-FIELD^^60^7"
^DD(509850.751,0,"DT")="2990512"
^DD(509850.751,0,"IX","B",509850.751,.01)=""
^DD(509850.751,0,"NM","DIVISION ICD9")=" "
^DD(509850.751,0,"UP")="509850.75"
^DD(509850.751,.01,0)="DIVISION ICD9^MF^^0;1^K:$L(X)>7!($L(X)<4) X"
^DD(509850.751,.01,1,0)="^.1"
^DD(509850.751,.01,1,1,0)="509850.751^B"
^DD(509850.751,.01,1,1,1)="S ^ACK(509850.7,DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.751,.01,1,1,2)="K ^ACK(509850.7,DA(2),5,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.751,.01,3)="Answer must be 4-7 characters in length."
^DD(509850.751,.01,21,0)="^^2^2^2990305^"
^DD(509850.751,.01,21,1,0)="The DIVISION ICD9 field contains the ICD9 code which has been reported during"
^DD(509850.751,.01,21,2,0)="the month for the Division and for which there are statistics."
^DD(509850.751,.01,"DT")="2990305"
^DD(509850.751,10,0)="DIVISION ICD9 # FOR AUDIOLOGY^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.751,10,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.751,10,21,0)="^^2^2^2990512^"
^DD(509850.751,10,21,1,0)="This is the number of Audiology visits that occurred during the given"
^DD(509850.751,10,21,2,0)="month within the given Division for patients with the same ICD9 code."
^DD(509850.751,10,"DT")="2990512"
^DD(509850.751,20,0)="DIVISION ICD9 # FOR AUDIO/TEL^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.751,20,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.751,20,21,0)="^^2^2^2990512^^"
^DD(509850.751,20,21,1,0)="This is the number of Telephone Audiology visits that occurred during the "
^DD(509850.751,20,21,2,0)="given month within the given Division for patients with the same ICD9 code."
^DD(509850.751,20,"DT")="2990512"
^DD(509850.751,30,0)="DIVISION ICD9 # AUDIO UNIQUE^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.751,30,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.751,30,21,0)="^^3^3^2990512^"
^DD(509850.751,30,21,1,0)="This is the number of Unique Audiology visits for the Fiscal Year that "
^DD(509850.751,30,21,2,0)="occurred during the given month within the given Division for patients with"
^DD(509850.751,30,21,3,0)="the same ICD9 code."
^DD(509850.751,30,"DT")="2990512"
^DD(509850.751,40,0)="DIVISION ICD9 # FOR SPEECH^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.751,40,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.751,40,21,0)="^^2^2^2990512^"
^DD(509850.751,40,21,1,0)="This is the number of Speech visits that occurred during the given month "
^DD(509850.751,40,21,2,0)="within the given Division for patients with the same ICD9 code."
^DD(509850.751,40,"DT")="2990512"
^DD(509850.751,50,0)="DIVISION ICD9 # FOR SPEECH/TEL^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.751,50,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.751,50,21,0)="^^2^2^2990512^"
^DD(509850.751,50,21,1,0)="This is the number of Speech Telephone visits that occurred during the  "
^DD(509850.751,50,21,2,0)="given month within the given Division for patients with the same ICD9 code."
^DD(509850.751,50,"DT")="2990512"
^DD(509850.751,60,0)="DIVISION ICD9 # SPEECH UNIQUE^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.751,60,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.751,60,21,0)="^^3^3^2990729^"
^DD(509850.751,60,21,1,0)="This is the number of Unique Speech visits for the Fiscal Year that occurred "
^DD(509850.751,60,21,2,0)="during the given month within the given Division for patients with the"
^DD(509850.751,60,21,3,0)="same ICD9 code."
^DD(509850.751,60,"DT")="2990512"
^DD(509850.751,"B","DIVISION ICD9",.01)=""
^DD(509850.751,"B","DIVISION ICD9 # AUDIO UNIQUE",30)=""
^DD(509850.751,"B","DIVISION ICD9 # FOR AUDIO/TEL",20)=""
^DD(509850.751,"B","DIVISION ICD9 # FOR AUDIOLOGY",10)=""
^DD(509850.751,"B","DIVISION ICD9 # FOR SPEECH",40)=""
^DD(509850.751,"B","DIVISION ICD9 # FOR SPEECH/TEL",50)=""
^DD(509850.751,"B","DIVISION ICD9 # SPEECH UNIQUE",60)=""
^DD(509850.751,"GL",0,1,.01)=""
^DD(509850.751,"GL",0,2,10)=""
^DD(509850.751,"GL",0,3,20)=""
^DD(509850.751,"GL",0,4,30)=""
^DD(509850.751,"GL",0,5,40)=""
^DD(509850.751,"GL",0,6,50)=""
^DD(509850.751,"GL",0,7,60)=""
^DD(509850.751,"IX",.01)=""
^DD(509850.752,0)="DIVISION CPT SUB-FIELD^^60^7"
^DD(509850.752,0,"DT")="2990512"
^DD(509850.752,0,"IX","B",509850.752,.01)=""
^DD(509850.752,0,"NM","DIVISION CPT")=" "
^DD(509850.752,0,"UP")="509850.75"
^DD(509850.752,.01,0)="DIVISION CPT^MF^^0;1^K:$L(X)>6!($L(X)<5) X"
^DD(509850.752,.01,1,0)="^.1"
^DD(509850.752,.01,1,1,0)="509850.752^B"
^DD(509850.752,.01,1,1,1)="S ^ACK(509850.7,DA(2),5,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(509850.752,.01,1,1,2)="K ^ACK(509850.7,DA(2),5,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(509850.752,.01,3)="Answer must be 5-6 characters in length."
^DD(509850.752,.01,21,0)="^.001^2^2^3001016^^"
^DD(509850.752,.01,21,1,0)="The DIVISIION CPT field contains all the CPT-4 codes reported during the month"
^DD(509850.752,.01,21,2,0)="for the division. Modifiers are not included in the analysis."
^DD(509850.752,.01,"DT")="2990305"
^DD(509850.752,10,0)="DIVISION CPT # FOR AUDIOLOGY^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.752,10,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.752,10,21,0)="^.001^2^2^3001016^^"
^DD(509850.752,10,21,1,0)="This is the number of Audiology visits that occurred during the given month"
^DD(509850.752,10,21,2,0)="within the given Division for patients with the same CPT code."
^DD(509850.752,10,"DT")="2990512"
^DD(509850.752,20,0)="DIVISION CPT # FOR AUDIO/TEL^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.752,20,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.752,20,21,0)="^.001^2^2^3001016^^"
^DD(509850.752,20,21,1,0)="This is the number of Telephone Audiology visits that occurred during the  "
^DD(509850.752,20,21,2,0)="given month within the given Division for patients with the same CPT code."
^DD(509850.752,20,"DT")="2990512"
^DD(509850.752,30,0)="DIVISION CPT # AUDIO UNIQUE^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.752,30,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.752,30,21,0)="^.001^3^3^3001016^^"
^DD(509850.752,30,21,1,0)="This is the number of Unique Audiology visits for the Fiscal Year that  "
^DD(509850.752,30,21,2,0)="occurred during the given month within the given Division for patients with"
^DD(509850.752,30,21,3,0)="the same CPT code."
^DD(509850.752,30,"DT")="2990512"
^DD(509850.752,40,0)="DIVISION CPT # FOR SPEECH^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.752,40,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.752,40,21,0)="^.001^2^2^3001016^^"
^DD(509850.752,40,21,1,0)="This is the number of Speech visits that occurred during the given month "
^DD(509850.752,40,21,2,0)="within the given Division for patients with the same CPT code."
^DD(509850.752,40,"DT")="2990512"
^DD(509850.752,50,0)="DIVISION CPT # FOR SPEECH/TEL^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.752,50,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.752,50,21,0)="^.001^2^2^3001016^^"
^DD(509850.752,50,21,1,0)="This is the number of Telephone Speech visits that occurred during the  "
^DD(509850.752,50,21,2,0)="given month within the given Division for patients with the same CPT code."
^DD(509850.752,50,"DT")="2990512"
^DD(509850.752,60,0)="DIVISION CPT # SPEECH UNIQUE^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.752,60,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.752,60,21,0)="^.001^3^3^3001016^^"
^DD(509850.752,60,21,1,0)="This is the number of Unique Speech visits for the Fiscal Year that "
^DD(509850.752,60,21,2,0)="occurred during the given month within the given Division for patients with"
^DD(509850.752,60,21,3,0)="the same CPT code."
^DD(509850.752,60,"DT")="2990512"
^DD(509850.752,"B","DIVISION CPT",.01)=""
^DD(509850.752,"B","DIVISION CPT # AUDIO UNIQUE",30)=""
^DD(509850.752,"B","DIVISION CPT # FOR AUDIO/TEL",20)=""
^DD(509850.752,"B","DIVISION CPT # FOR AUDIOLOGY",10)=""
^DD(509850.752,"B","DIVISION CPT # FOR SPEECH",40)=""
^DD(509850.752,"B","DIVISION CPT # FOR SPEECH/TEL",50)=""
^DD(509850.752,"B","DIVISION CPT # SPEECH UNIQUE",60)=""
^DD(509850.752,"GL",0,1,.01)=""
^DD(509850.752,"GL",0,2,10)=""
^DD(509850.752,"GL",0,3,20)=""
^DD(509850.752,"GL",0,4,30)=""
^DD(509850.752,"GL",0,5,40)=""
^DD(509850.752,"GL",0,6,50)=""
^DD(509850.752,"GL",0,7,60)=""
^DD(509850.752,"IX",.01)=""
^DD(509850.753,0)="DIVISION ZIP SUB-FIELD^^80^9"
^DD(509850.753,0,"DT")="2990512"
^DD(509850.753,0,"IX","B",509850.753,.01)=""
^DD(509850.753,0,"NM","DIVISION ZIP")=" "
^DD(509850.753,0,"UP")="509850.75"
^DD(509850.753,.01,0)="DIVISION ZIP CODE^MF^^0;1^K:$L(X)>5!($L(X)<5) X"
^DD(509850.753,.01,1,0)="^.1"
^DD(509850.753,.01,1,1,0)="509850.753^B"
^DD(509850.753,.01,1,1,1)="S ^ACK(509850.7,DA(2),5,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(509850.753,.01,1,1,2)="K ^ACK(509850.7,DA(2),5,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(509850.753,.01,3)="Answer must be 5 characters in length."
^DD(509850.753,.01,21,0)="^^2^2^2990305^^"
^DD(509850.753,.01,21,1,0)="The DIVISION ZIP CODE field contains the zip codes reported during the month"
^DD(509850.753,.01,21,2,0)="for the division."
^DD(509850.753,.01,"DT")="2990305"
^DD(509850.753,10,0)="DIVISION ZIP # FOR AUDIOLOGY^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,10,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,10,21,0)="^^2^2^2990512^^^"
^DD(509850.753,10,21,1,0)="This is the amount of Audiology visits that occurred during the given month "
^DD(509850.753,10,21,2,0)="within the given Division for patients within the same ZIP code."
^DD(509850.753,10,"DT")="2990512"
^DD(509850.753,20,0)="DIVISION ZIP # FOR AUDIO/TEL^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,20,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,20,21,0)="^^3^3^2990512^^^^"
^DD(509850.753,20,21,1,0)="This is the amount of Telephone Audiology visits that occurred during"
^DD(509850.753,20,21,2,0)="the given month within the given Division for patients within the same"
^DD(509850.753,20,21,3,0)="ZIP code."
^DD(509850.753,20,"DT")="2990512"
^DD(509850.753,30,0)="DIVISION ZIP # AUDIO UNIQUE^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,30,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,30,21,0)="^^3^3^2990729^"
^DD(509850.753,30,21,1,0)="This is the number of Unique Audiology visits for the Fiscal Year that"
^DD(509850.753,30,21,2,0)="occurred during the given month within the given Division for patients"
^DD(509850.753,30,21,3,0)="with the same ZIP code."
^DD(509850.753,30,"DT")="2990512"
^DD(509850.753,40,0)="DIVISION ZIP # C&P FOR AUDIO^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,40,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,40,21,0)="^^2^2^2990512^^^"
^DD(509850.753,40,21,1,0)="This is the number of Audiology C&P visits that occurred during the given"
^DD(509850.753,40,21,2,0)="month within the given Division for patients within the same ZIP code."
^DD(509850.753,40,"DT")="2990512"
^DD(509850.753,50,0)="DIVISION ZIP # FOR SPEECH^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,50,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,50,21,0)="^^2^2^2990512^"
^DD(509850.753,50,21,1,0)="This is the amount of Speech visits that occurred during the given month"
^DD(509850.753,50,21,2,0)="within the given Division for patients within the same ZIP code."
^DD(509850.753,50,"DT")="2990512"
^DD(509850.753,60,0)="DIVISION ZIP # FOR SPEECH/TEL^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,60,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,60,21,0)="^^2^2^2990729^"
^DD(509850.753,60,21,1,0)="This is the number of Speech Telephone visits that occurred during the given "
^DD(509850.753,60,21,2,0)="month within the given Division for patients within the same ZIP code."
^DD(509850.753,60,"DT")="2990512"
^DD(509850.753,70,0)="DIVISION ZIP # SPEECH UNIQUE^NJ5,0^^0;8^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,70,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,70,21,0)="^^3^3^2990729^"
^DD(509850.753,70,21,1,0)="This is the number of Unique Speech visits for the Fiscal Year that"
^DD(509850.753,70,21,2,0)="occurred during the given month within the given Division for patients"
^DD(509850.753,70,21,3,0)="with the same ZIP code."
^DD(509850.753,70,"DT")="2990512"
^DD(509850.753,80,0)="DIVISION ZIP # C&P FOR SPEECH^NJ5,0^^0;9^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.753,80,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.753,80,21,0)="^^2^2^2990512^"
^DD(509850.753,80,21,1,0)="This is the number of Speech C&P visits that occurred during the given"
^DD(509850.753,80,21,2,0)="month within the given Division for patients with the same ZIP code."
^DD(509850.753,80,"DT")="2990512"
^DD(509850.753,"B","DIVISION ZIP # AUDIO UNIQUE",30)=""
^DD(509850.753,"B","DIVISION ZIP # C&P FOR AUDIO",40)=""
^DD(509850.753,"B","DIVISION ZIP # C&P FOR SPEECH",80)=""
^DD(509850.753,"B","DIVISION ZIP # FOR AUDIO/TEL",20)=""
^DD(509850.753,"B","DIVISION ZIP # FOR AUDIOLOGY",10)=""
^DD(509850.753,"B","DIVISION ZIP # FOR SPEECH",50)=""
^DD(509850.753,"B","DIVISION ZIP # FOR SPEECH/TEL",60)=""
^DD(509850.753,"B","DIVISION ZIP # SPEECH UNIQUE",70)=""
^DD(509850.753,"B","DIVISION ZIP CODE",.01)=""
^DD(509850.753,"GL",0,1,.01)=""
^DD(509850.753,"GL",0,2,10)=""
^DD(509850.753,"GL",0,3,20)=""
^DD(509850.753,"GL",0,4,30)=""
^DD(509850.753,"GL",0,5,40)=""
^DD(509850.753,"GL",0,6,50)=""
^DD(509850.753,"GL",0,7,60)=""
^DD(509850.753,"GL",0,8,70)=""
^DD(509850.753,"GL",0,9,80)=""
^DD(509850.753,"IX",.01)=""
^DD(509850.754,0)="DIVISION CDR SUB-FIELD^^54.02^2"
^DD(509850.754,0,"DT")="2990505"
^DD(509850.754,0,"IX","B",509850.754,.01)=""
^DD(509850.754,0,"NM","DIVISION CDR")=" "
^DD(509850.754,0,"UP")="509850.75"
^DD(509850.754,.01,0)="DIVISION CDR^MF^^0;1^K:$L(X)>7!($L(X)<4) X"
^DD(509850.754,.01,1,0)="^.1"
^DD(509850.754,.01,1,1,0)="509850.754^B"
^DD(509850.754,.01,1,1,1)="S ^ACK(509850.7,DA(2),5,DA(1),4,""B"",$E(X,1,30),DA)="""""
^DD(509850.754,.01,1,1,2)="K ^ACK(509850.7,DA(2),5,DA(1),4,""B"",$E(X,1,30),DA)"
^DD(509850.754,.01,3)="Answer must be 4-7 characters in length."
^DD(509850.754,.01,21,0)="^^2^2^2990505^^"
^DD(509850.754,.01,21,1,0)="The DIVISION CDR field contains all the cost accounts reported during the month"
^DD(509850.754,.01,21,2,0)="for the division."
^DD(509850.754,.01,"DT")="2990505"
^DD(509850.754,54.02,0)="DIVISION CDR PERCENT^NJ3,0^^0;2^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.754,54.02,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.754,54.02,21,0)="^^20^20^2990729^"
^DD(509850.754,54.02,21,1,0)="The DIVISION CDR PERCENT field contains the Workload"
^DD(509850.754,54.02,21,2,0)="percentage for each CDR account. Quasar uses the"
^DD(509850.754,54.02,21,3,0)="following algorithm to calculate cost distributions. You"
^DD(509850.754,54.02,21,4,0)="specify the TOTAL PAID HOURS and any PASS-THROUGH"
^DD(509850.754,54.02,21,5,0)="ACCOUNTS (ie. 6000-, 7000- and 8000- series accounts)."
^DD(509850.754,54.02,21,6,0)="You must also enter Administrative time associated with"
^DD(509850.754,54.02,21,7,0)="Associated Health Professions Traineeship or other VA"
^DD(509850.754,54.02,21,8,0)="headquarters-sponsored training programs (.13 subaccount)"
^DD(509850.754,54.02,21,9,0)="and time associated with preparing and presenting formal"
^DD(509850.754,54.02,21,10,0)="continuing education programs (.14 subaccount). You must"
^DD(509850.754,54.02,21,11,0)="enter any medical (.21 subaccount) or prosthetics (.22"
^DD(509850.754,54.02,21,12,0)="subaccount) research hours. Quasar calculates hours for"
^DD(509850.754,54.02,21,13,0)="instruction/ supervision of trainees (.12 subaccount)."
^DD(509850.754,54.02,21,14,0)="Quasar computes the total education, research and"
^DD(509850.754,54.02,21,15,0)="pass-through hours and subtracts this total from the"
^DD(509850.754,54.02,21,16,0)="total paid hours. The remainder is the number of hours"
^DD(509850.754,54.02,21,17,0)="for patient care during the reporting period. Quasar then"
^DD(509850.754,54.02,21,18,0)="computes the proportion of care associated with specific"
^DD(509850.754,54.02,21,19,0)="cost accounts (based on treating specialty) to the total"
^DD(509850.754,54.02,21,20,0)="number of hours of patient care."
^DD(509850.754,54.02,"DT")="2990505"
^DD(509850.754,"B","DIVISION CDR",.01)=""
^DD(509850.754,"B","DIVISION CDR PERCENT",54.02)=""
^DD(509850.754,"GL",0,1,.01)=""
^DD(509850.754,"GL",0,2,54.02)=""
^DD(509850.754,"IX",.01)=""
^DD(509850.755,0)="DIVISION EC SUB-FIELD^^60^7"
^DD(509850.755,0,"DT")="3001016"
^DD(509850.755,0,"IX","B",509850.755,.01)=""
^DD(509850.755,0,"NM","DIVISION EC")=" "
^DD(509850.755,0,"UP")="509850.75"
^DD(509850.755,.01,0)="DIVISION EC^F^^0;1^K:$L(X)>5!($L(X)<5) X"
^DD(509850.755,.01,1,0)="^.1"
^DD(509850.755,.01,1,1,0)="509850.755^B"
^DD(509850.755,.01,1,1,1)="S ^ACK(509850.7,DA(2),5,DA(1),5,""B"",$E(X,1,30),DA)="""""
^DD(509850.755,.01,1,1,2)="K ^ACK(509850.7,DA(2),5,DA(1),5,""B"",$E(X,1,30),DA)"
^DD(509850.755,.01,3)="Answer must be 5 characters in length."
^DD(509850.755,.01,21,0)="^^2^2^3001016^"
^DD(509850.755,.01,21,1,0)="The DIVISIION EC field contains all the CPT-4 codes reported during the"
^DD(509850.755,.01,21,2,0)="month for the division."
^DD(509850.755,.01,"DT")="3001016"
^DD(509850.755,10,0)="DIVISION EC # FOR AUDIOLOGY^NJ5,0^^0;2^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.755,10,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.755,10,21,0)="^^2^2^3001016^"
^DD(509850.755,10,21,1,0)="This is the number of Audiology visits that occurred during the given"
^DD(509850.755,10,21,2,0)="month within the given Division for patients with the same EC code."
^DD(509850.755,10,"DT")="3001016"
^DD(509850.755,20,0)="DIVISION EC # FOR AUDIO/TEL^NJ5,0^^0;3^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.755,20,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.755,20,21,0)="^.001^2^2^3001016^^"
^DD(509850.755,20,21,1,0)="This is the number of Telephone Audiology visits that occurred during the"
^DD(509850.755,20,21,2,0)="given month within the given Division for patients with the same EC code."
^DD(509850.755,20,"DT")="3001016"
^DD(509850.755,30,0)="DIVISION EC # AUDIO UNIQUE^NJ5,0^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.755,30,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.755,30,21,0)="^^3^3^3001016^"
^DD(509850.755,30,21,1,0)="This is the number of Unique Audiology visits for the Fiscal Year that"
^DD(509850.755,30,21,2,0)="occurred during the given month within the given Division for patients"
^DD(509850.755,30,21,3,0)="with the same EC code."
^DD(509850.755,30,"DT")="3001016"
^DD(509850.755,40,0)="DIVISION EC # FOR SPEECH^NJ5,0^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.755,40,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.755,40,21,0)="^^2^2^3001016^"
^DD(509850.755,40,21,1,0)="This is the number of Speech visits that occurred during the given month"
^DD(509850.755,40,21,2,0)="within the given Division for patients with the same EC code."
^DD(509850.755,40,"DT")="3001016"
^DD(509850.755,50,0)="DIVISION EC # FOR SPEECH/TEL^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.755,50,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.755,50,21,0)="^.001^2^2^3001016^^"
^DD(509850.755,50,21,1,0)="This is the number of Telephone Speech visits that occurred during the"
^DD(509850.755,50,21,2,0)="given month within the given Division for patients with the same EC code."
^DD(509850.755,50,"DT")="3001016"
^DD(509850.755,60,0)="DIVISION EC # SPEECH UNIQUE^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.755,60,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(509850.755,60,21,0)="^.001^3^3^3001016^^"
^DD(509850.755,60,21,1,0)="This is the number of Unique Speech visits for the Fiscal Year that"
^DD(509850.755,60,21,2,0)="occurred during the given month within the given Division for patients"
^DD(509850.755,60,21,3,0)="with the same EC code."
^DD(509850.755,60,"DT")="3001016"
^DD(509850.755,"B","DIVISION EC",.01)=""
^DD(509850.755,"B","DIVISION EC # AUDIO UNIQUE",30)=""
^DD(509850.755,"B","DIVISION EC # FOR AUDIO/TEL",20)=""
^DD(509850.755,"B","DIVISION EC # FOR AUDIOLOGY",10)=""
^DD(509850.755,"B","DIVISION EC # FOR SPEECH",40)=""
^DD(509850.755,"B","DIVISION EC # FOR SPEECH/TEL",50)=""
^DD(509850.755,"B","DIVISION EC # SPEECH UNIQUE",60)=""
^DD(509850.755,"GL",0,1,.01)=""
^DD(509850.755,"GL",0,2,10)=""
^DD(509850.755,"GL",0,3,20)=""
^DD(509850.755,"GL",0,4,30)=""
^DD(509850.755,"GL",0,5,40)=""
^DD(509850.755,"GL",0,6,50)=""
^DD(509850.755,"GL",0,7,60)=""
^DD(509850.755,"IX",.01)=""
^DD(509850.8,0)="FIELD^^727.8252^15"
^DD(509850.8,0,"DDA")="N"
^DD(509850.8,0,"DT")="3001023"
^DD(509850.8,0,"IX","B",509850.8,.01)=""
^DD(509850.8,0,"NM","A&SP SITE PARAMETERS")=" "
^DD(509850.8,0,"VR")="3.0"
^DD(509850.8,0,"VRPK")="ACKQ"
^DD(509850.8,.01,0)="SITE NAME^RP4'X^DIC(4,^0;1^S DINUM=1 S DIC(""S"")=""I $D(ACKQ)"""
^DD(509850.8,.01,.1)="Site Name"
^DD(509850.8,.01,1,0)="^.1"
^DD(509850.8,.01,1,1,0)="509850.8^B"
^DD(509850.8,.01,1,1,1)="S ^ACK(509850.8,""B"",$E(X,1,30),DA)="""""
^DD(509850.8,.01,1,1,2)="K ^ACK(509850.8,""B"",$E(X,1,30),DA)"
^DD(509850.8,.01,3)="Enter your site name or number."
^DD(509850.8,.01,4)="W !?5,""Only one entry is allowed in this file."",!"
^DD(509850.8,.01,9)="^"
^DD(509850.8,.01,21,0)="^^3^3^2990910^^^^"
^DD(509850.8,.01,21,1,0)="The SITE NAME field is a pointer to the INSTITUTION file (#4).  The "
^DD(509850.8,.01,21,2,0)="INSTITUTION file contains listings of all VA facilities.  You can "
^DD(509850.8,.01,21,3,0)="enter your facility name or the three-digit station number."
^DD(509850.8,.01,"DT")="2990218"
^DD(509850.8,.01,"LAYGO",1,0)="W:'$D(ACKLAYGO) !!?5,""Input should take place ONLY through the QUASAR menu options."",!! I $D(ACKLAYGO)"
^DD(509850.8,.02,0)="*WORKLOAD MAIL GROUP^P3.8I^XMB(3.8,^0;2^Q"
^DD(509850.8,.02,.1)="Workload Mail Group"
^DD(509850.8,.02,3)="Enter the mail group name."
^DD(509850.8,.02,9)="^"
^DD(509850.8,.02,21,0)="^^4^4^2950816^^"
^DD(509850.8,.02,21,1,0)="Due to insufficient resources for development and support of the "
^DD(509850.8,.02,21,2,0)="central data base, the QUASAR V. 1.0 workload rollup report will be "
^DD(509850.8,.02,21,3,0)="discontinued. Eighteen months after the release of QUASAR V. 2.0, "
^DD(509850.8,.02,21,4,0)="this field can be removed."
^DD(509850.8,.02,"DT")="2990311"
^DD(509850.8,.03,0)="*WKLD RECEIVING USER^FI^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(509850.8,.03,.1)="Workload Receiving User"
^DD(509850.8,.03,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.8,.03,9)="^"
^DD(509850.8,.03,21,0)="^^4^4^2950816^^^"
^DD(509850.8,.03,21,1,0)="Due to insufficient resources for development and support of the "
^DD(509850.8,.03,21,2,0)="central data base, the QUASAR V. 1.0 workload rollup report will be "
^DD(509850.8,.03,21,3,0)="discontinued. Eighteen months after the release of QUASAR V. 2.0, "
^DD(509850.8,.03,21,4,0)="this field can be removed."
^DD(509850.8,.03,"DT")="2990311"
^DD(509850.8,.04,0)="*WKLD DOMAIN^FXI^^0;4^S DIC=4.2,DIC(0)=""EMQ"" D ^DIC K:Y<1 X I Y>0 S X=$P(^DIC(4.2,+Y,0),U)"
^DD(509850.8,.04,.1)="Workload Domain"
^DD(509850.8,.04,3)="Your answer must be 3 to 30 characters in length."
^DD(509850.8,.04,9)="^"
^DD(509850.8,.04,21,0)="^^4^4^2950816^^^"
^DD(509850.8,.04,21,1,0)="Due to insufficient resources for development and support of the "
^DD(509850.8,.04,21,2,0)="central data base, the QUASAR V. 1.0 workload rollup report will be "
^DD(509850.8,.04,21,3,0)="discontinued. Eighteen months after the release of QUASAR V. 2.0, "
^DD(509850.8,.04,21,4,0)="this field can be removed."
^DD(509850.8,.04,"DT")="2990311"
^DD(509850.8,.05,0)="*USE ASP CLINIC FILE NUMBER^SXI^0:NO;1:YES;^0;5^S DIC(""B"")=0"
^DD(509850.8,.05,.1)="Use A&SP Clinic File Numbers?"
^DD(509850.8,.05,3)="Do you want to use an existing file numbering system?"
^DD(509850.8,.05,9)="^"
^DD(509850.8,.05,21,0)="^^6^6^2990310^^^^"
^DD(509850.8,.05,21,1,0)="The USE ASP CLINIC FILE NUMBER field is no longer used at the site level. With "
^DD(509850.8,.05,21,2,0)="Quasar version 3.0 this parameter is associated with each Division and can be"
^DD(509850.8,.05,21,3,0)="found on the sub-file 509850.83"
^DD(509850.8,.05,21,4,0)=" "
^DD(509850.8,.05,21,5,0)="Eighteen months after the release of Quasar v3.0 this field can be removed."
^DD(509850.8,.05,21,6,0)=" "
^DD(509850.8,.05,"DT")="2990311"
^DD(509850.8,.06,0)="*USE MODIFIERS^SI^0:NO;1:YES;^0;6^Q"
^DD(509850.8,.06,.1)="Use Modifiers?"
^DD(509850.8,.06,3)="Do you want to use diagnosis and procedure code modifiers?"
^DD(509850.8,.06,9)="^"
^DD(509850.8,.06,21,0)="^^7^7^2990310^^^^"
^DD(509850.8,.06,21,1,0)="The USE MODIFIERS field is no longer used at the site level. With Quasar"
^DD(509850.8,.06,21,2,0)="version 3.0 the ASP Diagnosis Modifiers have been removed and the ASP Procedure"
^DD(509850.8,.06,21,3,0)="Modifiers have been replaced with CPT Modifiers which are mandatory. There"
^DD(509850.8,.06,21,4,0)="is no longer a need for this parameter."
^DD(509850.8,.06,21,5,0)=" "
^DD(509850.8,.06,21,6,0)="Eighteen months after the release of Quasar v3.0 this field can be removed."
^DD(509850.8,.06,21,7,0)=" "
^DD(509850.8,.06,"DT")="2990311"
^DD(509850.8,.07,0)="*USE C&P^SI^0:NO;1:YES;^0;7^Q"
^DD(509850.8,.07,.1)="Use Compensation and Pension Interface?"
^DD(509850.8,.07,3)="Do you want to use QUASAR's AMIE/C&P interface?"
^DD(509850.8,.07,9)="^"
^DD(509850.8,.07,21,0)="^^6^6^2990310^^^^"
^DD(509850.8,.07,21,1,0)="The USE C&P field is no longer used at the site level. With Quasar version "
^DD(509850.8,.07,21,2,0)="3.0 this parameter is associated with each Division and can be found on the "
^DD(509850.8,.07,21,3,0)="sub-file 509850.83"
^DD(509850.8,.07,21,4,0)=" "
^DD(509850.8,.07,21,5,0)="Eighteen months after the release of Quasar v3.0 this field can be removed."
^DD(509850.8,.07,21,6,0)=" "
^DD(509850.8,.07,"DT")="2990311"
^DD(509850.8,.08,0)="*BYPASS AUDIOMETRICS^SI^0:NO;1:YES;^0;8^Q"
^DD(509850.8,.08,.1)="Bypass Audiometrics?"
^DD(509850.8,.08,3)="Answer YES or NO."
^DD(509850.8,.08,4)="W !?5,""Do you want to give users the ability to bypass the entry of"",!?5,""audiometric data during data entry sessions?"",!"
^DD(509850.8,.08,9)="^"
^DD(509850.8,.08,21,0)="^^6^6^2990310^^^^"
^DD(509850.8,.08,21,1,0)="The BYPASS AUDIOMETRICS field is no longer used at the site level. With "
^DD(509850.8,.08,21,2,0)="Quasar version 3.0 this parameter is associated with each Division and can be"
^DD(509850.8,.08,21,3,0)="found on the sub-file 509850.83"
^DD(509850.8,.08,21,4,0)=" "
^DD(509850.8,.08,21,5,0)="Eighteen months after the release of Quasar v3.0 this field can be removed."
^DD(509850.8,.08,21,6,0)=" "
^DD(509850.8,.08,"DT")="2990311"
^DD(509850.8,.1,0)="GENERATE CDR FOR SITE/DIVISION^RS^S:SITE;D:DIVISION;^0;10^Q"
^DD(509850.8,.1,3)="Should the CDR be generated for the Site, or for each Division?"
^DD(509850.8,.1,21,0)="^^2^2^2990520^"
^DD(509850.8,.1,21,1,0)="This field determines whether the CDR is Generated for the Site as a"
^DD(509850.8,.1,21,2,0)="whole, or individually for each Division."
^DD(509850.8,.1,"DT")="2990520"
^DD(509850.8,1,0)="*CLINIC LOCATION^509850.81P^^1;0"
^DD(509850.8,1,9)="^"
^DD(509850.8,1,21,0)="^^7^7^2990310^^^^"
^DD(509850.8,1,21,1,0)="The CLINIC LOCATION sub-file has been moved and is now a sub-file of the "
^DD(509850.8,1,21,2,0)="Division Multiple. With Quasar version 3.0 the ASP clinics are stored under"
^DD(509850.8,1,21,3,0)="their respective Divisions on the sub-file 509850.831"
^DD(509850.8,1,21,4,0)=" "
^DD(509850.8,1,21,5,0)="Eighteen months after the release of Quasar v3.0 this field and sub-file can"
^DD(509850.8,1,21,6,0)="be deleted."
^DD(509850.8,1,21,7,0)=" "
^DD(509850.8,1,"DT")="2990111"
^DD(509850.8,2,0)="INTERFACE WITH PCE^RS^0:NO;1:YES;^0;9^Q"
^DD(509850.8,2,3)="Do you want to activate the overnight interface with the PCE system?"
^DD(509850.8,2,21,0)="^^9^9^2990922^^^^"
^DD(509850.8,2,21,1,0)=" "
^DD(509850.8,2,21,2,0)="This field determines whether Quasar will interface with the PCE package."
^DD(509850.8,2,21,3,0)="If you answer YES then Quasar will attempt to send visit data to PCE "
^DD(509850.8,2,21,4,0)="whenever a visit is entered or edited. It will also delete visit data"
^DD(509850.8,2,21,5,0)="from PCE if the corresponding QUASAR visit is deleted."
^DD(509850.8,2,21,6,0)=" "
^DD(509850.8,2,21,7,0)="If you wish QUASAR to send visit data to PCE then you must also set the "
^DD(509850.8,2,21,8,0)="SEND TO PCE parameter to YES for the appropriate Division or Divisions."
^DD(509850.8,2,21,9,0)=" "
^DD(509850.8,2,"DT")="2990112"
^DD(509850.8,3,0)="DIVISION^509850.83P^^2;0"
^DD(509850.8,3,"DT")="2990217"
^DD(509850.8,100,0)="*CONVERSION STATUS^SXI^0:NOT RUN;1:RUN, NOT COMPLETELY CONVERTED;2:COMPLETED;^100;1^K X"
^DD(509850.8,100,.1)="Conversion Status"
^DD(509850.8,100,3)="Enter the conversion status."
^DD(509850.8,100,9)="^"
^DD(509850.8,100,21,0)="^^2^2^2981230^^"
^DD(509850.8,100,21,1,0)="Eighteen months after the release of QUASAR V. 2.0, this field can "
^DD(509850.8,100,21,2,0)="be removed."
^DD(509850.8,100,"DT")="2990311"
^DD(509850.8,727.8251,0)="AUDIOLOGY DSS UNIT LINK^P724'X^ECD(^DSS;1^S:$D(X) DINUM=X"
^DD(509850.8,727.8251,.1)="Audiology DSS Unit Link"
^DD(509850.8,727.8251,3)="Enter the name of the DSS unit to be used for audiology."
^DD(509850.8,727.8251,21,0)="^^4^4^2990427^^^"
^DD(509850.8,727.8251,21,1,0)="The AUDIOLOGY DSS UNIT LINK field is a pointer to the DSS UNIT"
^DD(509850.8,727.8251,21,2,0)="file (#724) from Event Capture. This field creates linkage between"
^DD(509850.8,727.8251,21,3,0)="QUASAR and a specific DSS unit in order to define data needed"
^DD(509850.8,727.8251,21,4,0)="by the QUASAR/DSS extract."
^DD(509850.8,727.8251,"DT")="2990427"
^DD(509850.8,727.8252,0)="SPEECH PATHOLOGY DSS UNIT LINK^P724'X^ECD(^DSS;2^S:$D(X) DINUM=X"
^DD(509850.8,727.8252,.1)="Speech Pathology DSS Unit Link"
^DD(509850.8,727.8252,3)="Enter the name of the DSS unit to be used for speech pathology."
^DD(509850.8,727.8252,21,0)="^^4^4^2990427^^"
^DD(509850.8,727.8252,21,1,0)="The SPEECH PATHOLOGY DSS UNIT LINK field is a pointer to the"
^DD(509850.8,727.8252,21,2,0)="DSS UNIT file (#724) from Event Capture. This field creates"
^DD(509850.8,727.8252,21,3,0)="linkage between QUASAR and a specific DSS unit in order to "
^DD(509850.8,727.8252,21,4,0)="define data needed by the QUASAR/DSS extract."
^DD(509850.8,727.8252,"DT")="2990427"
^DD(509850.8,"B","*BYPASS AUDIOMETRICS",.08)=""
^DD(509850.8,"B","*CLINIC LOCATION",1)=""
^DD(509850.8,"B","*CONVERSION STATUS",100)=""
^DD(509850.8,"B","*USE ASP CLINIC FILE NUMBER",.05)=""
^DD(509850.8,"B","*USE C&P",.07)=""
^DD(509850.8,"B","*USE MODIFIERS",.06)=""
^DD(509850.8,"B","*WKLD DOMAIN",.04)=""
^DD(509850.8,"B","*WKLD RECEIVING USER",.03)=""
^DD(509850.8,"B","*WORKLOAD MAIL GROUP",.02)=""
^DD(509850.8,"B","AUDIOLOGY DSS UNIT LINK",727.8251)=""
^DD(509850.8,"B","Audiology DSS Unit Link",727.8251)="1"
^DD(509850.8,"B","Bypass Audiometrics?",.08)="1"
^DD(509850.8,"B","Conversion Status",100)="1"
^DD(509850.8,"B","DIVISION",3)=""
^DD(509850.8,"B","GENERATE CDR FOR SITE/DIVISION",.1)=""
^DD(509850.8,"B","INTERFACE WITH PCE",2)=""
^DD(509850.8,"B","SITE NAME",.01)=""
^DD(509850.8,"B","SPEECH PATHOLOGY DSS UNIT LINK",727.8252)=""
^DD(509850.8,"B","Site Name",.01)="1"
^DD(509850.8,"B","Speech Pathology DSS Unit Link",727.8252)="1"
^DD(509850.8,"B","Use A&SP Clinic File Numbers?",.05)="1"
^DD(509850.8,"B","Use Modifiers?",.06)="1"
^DD(509850.8,"B","Workload Domain",.04)="1"
^DD(509850.8,"B","Workload Mail Group",.02)="1"
^DD(509850.8,"B","Workload Receiving User",.03)="1"
^DD(509850.8,"GL",0,1,.01)=""
^DD(509850.8,"GL",0,2,.02)=""
^DD(509850.8,"GL",0,3,.03)=""
^DD(509850.8,"GL",0,4,.04)=""
^DD(509850.8,"GL",0,5,.05)=""
^DD(509850.8,"GL",0,6,.06)=""
^DD(509850.8,"GL",0,7,.07)=""
^DD(509850.8,"GL",0,8,.08)=""
^DD(509850.8,"GL",0,9,2)=""
^DD(509850.8,"GL",0,10,.1)=""
^DD(509850.8,"GL",1,0,1)=""
^DD(509850.8,"GL",2,0,3)=""
^DD(509850.8,"GL",100,1,100)=""
^DD(509850.8,"GL","DSS",1,727.8251)=""
^DD(509850.8,"GL","DSS",2,727.8252)=""
^DD(509850.8,"IX",.01)=""
^DD(509850.8,"RQ",.01)=""
^DD(509850.8,"RQ",.1)=""
^DD(509850.8,"RQ",2)=""
^DD(509850.8,"SB",509850.81,1)=""
^DD(509850.8,"SB",509850.83,3)=""
^DD(509850.81,0)="*CLINIC LOCATION SUB-FIELD^^.03^3"
^DD(509850.81,0,"DT")="2930130"
^DD(509850.81,0,"IX","B",509850.81,.01)=""
^DD(509850.81,0,"NM","*CLINIC LOCATION")=" "
^DD(509850.81,0,"UP")="509850.8"
^DD(509850.81,.01,0)="*CLINIC LOCATION^M*P44'XI^SC(^0;1^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(509850.81,.01,.1)="Clinic Location"
^DD(509850.81,.01,1,0)="^.1"
^DD(509850.81,.01,1,1,0)="509850.81^B"
^DD(509850.81,.01,1,1,1)="S ^ACK(509850.8,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.81,.01,1,1,2)="K ^ACK(509850.8,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.81,.01,3)="Select an A&SP clinic."
^DD(509850.81,.01,12)="Only clinic locations may be selected."
^DD(509850.81,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(509850.81,.01,21,0)="^^6^6^2990310^^^^"
^DD(509850.81,.01,21,1,0)="The CLINIC LOCATION sub-file 509850.81 is no longer used. With Quasar version"
^DD(509850.81,.01,21,2,0)="3.0 this record has been replaced by the sub-file 509850.831 in which valid"
^DD(509850.81,.01,21,3,0)="ASP Clinics are stored under their respective Divisions."
^DD(509850.81,.01,21,4,0)=" "
^DD(509850.81,.01,21,5,0)="Eighteen months after the release of Quasar v3.0 this field can be deleted."
^DD(509850.81,.01,21,6,0)=" "
^DD(509850.81,.01,"DT")="2990813"
^DD(509850.81,.02,0)="*ID NUMBER^NJ2,0XI^^0;2^K:X'?1.2N X I $D(X) S X1=$O(^ACK(509850.8,""AC"",X,1,0)) X ""I X1 W !!,*7,*7,""""ID NUMBER """",X,"""" ALREADY USED BY """",$P(^SC(+^ACK(509850.8,1,1,X1,0),0),U),""""!!"""" K X"" K X1"
^DD(509850.81,.02,.1)="ID Number"
^DD(509850.81,.02,1,0)="^.1^^0"
^DD(509850.81,.02,3)="Enter a number between 0 and 99, 0 decimal digits."
^DD(509850.81,.02,21,0)="^^3^3^2981230^^^^"
^DD(509850.81,.02,21,1,0)="The ID NUMBER field has been marked for deletion.  Card code capability "
^DD(509850.81,.02,21,2,0)="was not implemented in QUASAR V. 1.0.  Eighteen months after the release "
^DD(509850.81,.02,21,3,0)="of QUASAR V. 2.0, this field can be removed."
^DD(509850.81,.02,"DT")="2990311"
^DD(509850.81,.03,0)="*CDR ACCOUNT^*P509850'I^ACK(509850,^0;3^S DIC(""S"")=""I $P(^(0),U)\1=2611"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(509850.81,.03,.1)="CDR Account"
^DD(509850.81,.03,3)="Select a CDR account number."
^DD(509850.81,.03,12)="Only 2611 accounts can be chosen."
^DD(509850.81,.03,12.1)="S DIC(""S"")=""I $P(^(0),U)\1=2611"""
^DD(509850.81,.03,21,0)="^^7^7^2951208^^^^"
^DD(509850.81,.03,21,1,0)="The CDR ACCOUNT field is a pointer to the CDR ACCOUNT file"
^DD(509850.81,.03,21,2,0)="(#509850).  Only 2611 (Rehabilitation and Supportive Services) "
^DD(509850.81,.03,21,3,0)="accounts can be chosen."
^DD(509850.81,.03,21,4,0)="  "
^DD(509850.81,.03,21,5,0)="The CDR ACCOUNT field has been marked for deletion.  This field"
^DD(509850.81,.03,21,6,0)="is not used by QUASAR V. 2.0.  Eighteen months after the release"
^DD(509850.81,.03,21,7,0)="of QUASAR 2.0, this field can be removed."
^DD(509850.81,.03,"DT")="2990311"
^DD(509850.81,"B","*CDR ACCOUNT",.03)=""
^DD(509850.81,"B","*CLINIC LOCATION",.01)=""
^DD(509850.81,"B","*ID NUMBER",.02)=""
^DD(509850.81,"B","CDR Account",.03)="1"
^DD(509850.81,"B","Clinic Location",.01)="1"
^DD(509850.81,"B","ID Number",.02)="1"
^DD(509850.81,"GL",0,1,.01)=""
^DD(509850.81,"GL",0,2,.02)=""
^DD(509850.81,"GL",0,3,.03)=""
^DD(509850.81,"IX",.01)=""
^DD(509850.83,0)="DIVISION SUB-FIELD^^1^10"
^DD(509850.83,0,"DT")="3001023"
^DD(509850.83,0,"IX","B",509850.83,.01)=""
^DD(509850.83,0,"NM","DIVISION")=" "
^DD(509850.83,0,"UP")="509850.8"
^DD(509850.83,.01,0)="DIVISION^MR*P40.8'XI^DG(40.8,^0;1^S DIC(""S"")=""I $D(ACKQ)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(509850.83,.01,.1)="DIVISION NAME"
^DD(509850.83,.01,1,0)="^.1"
^DD(509850.83,.01,1,1,0)="509850.83^B"
^DD(509850.83,.01,1,1,1)="S ^ACK(509850.8,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(509850.83,.01,1,1,2)="K ^ACK(509850.8,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(509850.83,.01,3)="Enter the Division or Divisions for which you record A&SP Visits."
^DD(509850.83,.01,12)=" "
^DD(509850.83,.01,12.1)="S DIC(""S"")=""I $D(ACKQ)"""
^DD(509850.83,.01,21,0)="^.001^9^9^3001023^^^^"
^DD(509850.83,.01,21,1,0)="If you are a single division site, enter your division here and all"
^DD(509850.83,.01,21,2,0)="workload will be credited to your division."
^DD(509850.83,.01,21,3,0)=" "
^DD(509850.83,.01,21,4,0)="If you are a multi-divisional site you must enter each division here and"
^DD(509850.83,.01,21,5,0)="when entering a visit you will be asked to select the division in which"
^DD(509850.83,.01,21,6,0)="the visit took place. This allows the workload to be credited to the"
^DD(509850.83,.01,21,7,0)="correct divisions."
^DD(509850.83,.01,21,8,0)=" "
^DD(509850.83,.01,21,9,0)="You must enter at least one Division for your site."
^DD(509850.83,.01,"DT")="2990922"
^DD(509850.83,.02,0)="DIVISION STATUS^RSX^A:ACTIVE;I:INACTIVE;^0;2^Q"
^DD(509850.83,.02,21,0)="^^3^3^2990311^^^^"
^DD(509850.83,.02,21,1,0)="Set the Division Status to INACTIVE if you no longer record visits at that"
^DD(509850.83,.02,21,2,0)="Division. A division cannot be deleted but by changing the Status to"
^DD(509850.83,.02,21,3,0)="INACTIVE the Division cannot be selected for New visits."
^DD(509850.83,.02,"DT")="2990311"
^DD(509850.83,.03,0)="SEND TO PCE^RS^0:NO;1:YES;^0;3^Q"
^DD(509850.83,.03,3)="Do you wish Encounter Data for this Division to be sent to PCE?"
^DD(509850.83,.03,21,0)="^.001^10^10^3000323^^^^"
^DD(509850.83,.03,21,1,0)="Enter YES if you wish data for this Division to be sent to PCE."
^DD(509850.83,.03,21,2,0)=" "
^DD(509850.83,.03,21,3,0)="Both the INTERFACE TO PCE parameter for the Site, and the SEND "
^DD(509850.83,.03,21,4,0)="TO PCE parameter for a Division, must be set to YES if you wish"
^DD(509850.83,.03,21,5,0)="QUASAR to transmit Visit data to PCE for the Division."
^DD(509850.83,.03,21,6,0)=" "
^DD(509850.83,.03,21,7,0)="If you record Visit data for multiple Divisions then you can"
^DD(509850.83,.03,21,8,0)="configure QUASAR so that the PCE Interface is only active for"
^DD(509850.83,.03,21,9,0)="selected Divisions."
^DD(509850.83,.03,21,10,0)=" "
^DD(509850.83,.03,"DT")="2990112"
^DD(509850.83,.04,0)="USE ASP CLINIC FILE NUMBER^RS^0:NO;1:YES;^0;4^Q"
^DD(509850.83,.04,3)="Do you want to use an existing file numbering system?"
^DD(509850.83,.04,21,0)="^^3^3^2990112^^^"
^DD(509850.83,.04,21,1,0)="The USE ASP CLINIC FILE NUMBER field allows you to associate"
^DD(509850.83,.04,21,2,0)="existing clinic file numbers with patients. This option allows"
^DD(509850.83,.04,21,3,0)="clinics to cross reference clinic file numbers with visit entries."
^DD(509850.83,.04,"DT")="2990112"
^DD(509850.83,.06,0)="USE C&P^RS^0:NO;1:YES;^0;6^Q"
^DD(509850.83,.06,3)="Do you want to use QUASAR's AMIE/C&P interface?"
^DD(509850.83,.06,21,0)="^^6^6^2990112^^^"
^DD(509850.83,.06,21,1,0)="The USE C&P field allows you to use the QUASAR - AMIE/C&P interface"
^DD(509850.83,.06,21,2,0)="for data transmission. If you answer YES to this field, you can enter"
^DD(509850.83,.06,21,3,0)="all C&P exam information contained on the AMIE worksheet, adequate the"
^DD(509850.83,.06,21,4,0)="results, and hand-off the report to the AMIE/C&P package. If your station"
^DD(509850.83,.06,21,5,0)="does not support the AMIE package (e.g., reports are typed or dictated for"
^DD(509850.83,.06,21,6,0)="transcription), you should answer NO to this question."
^DD(509850.83,.06,"DT")="2990112"
^DD(509850.83,.07,0)="BYPASS AUDIOMETRICS^RS^0:NO;1:YES;^0;7^Q"
^DD(509850.83,.07,3)="Do you want to give users the ability to bypass the entry of audiometric data during data entry sessions?"
^DD(509850.83,.07,21,0)="^^11^11^2990922^^^^"
^DD(509850.83,.07,21,1,0)="Certain diagnosis codes (i.e., hearing loss codes) are flagged to"
^DD(509850.83,.07,21,2,0)="require audiometric data to be entered when those codes are used"
^DD(509850.83,.07,21,3,0)="for a visit. If a visit contains one of the flagged codes, users"
^DD(509850.83,.07,21,4,0)="are generally forced to enter the audiometric data."
^DD(509850.83,.07,21,5,0)=" "
^DD(509850.83,.07,21,6,0)="By answering YES for the BYPASS AUDIOMETRICS field, you allow"
^DD(509850.83,.07,21,7,0)="users to bypass the entry of the audiometric data. If you answer"
^DD(509850.83,.07,21,8,0)="NO, users are not given the bypass option and audiometric data is"
^DD(509850.83,.07,21,9,0)="required if flagged codes are used."
^DD(509850.83,.07,21,10,0)=" "
^DD(509850.83,.07,21,11,0)="In any case, if the exam is a C&P exam, audiometric data is required."
^DD(509850.83,.07,"DT")="2990112"
^DD(509850.83,.075,0)="PROCEDURE CODE YEAR^509850.832A^^2;0"
^DD(509850.83,.08,0)="PCE INTERFACE START DATE^RD^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.83,.08,3)="Enter the first Visit Date to be sent to PCE."
^DD(509850.83,.08,4)=" "
^DD(509850.83,.08,21,0)="^^16^16^2990921^^^^"
^DD(509850.83,.08,21,1,0)=" "
^DD(509850.83,.08,21,2,0)="Enter the first Visit Date to be sent to PCE. QUASAR will only send"
^DD(509850.83,.08,21,3,0)="Visits for this Division if the Visit date falls on or after the PCE"
^DD(509850.83,.08,21,4,0)="INTERFACE START DATE."
^DD(509850.83,.08,21,5,0)=" "
^DD(509850.83,.08,21,6,0)="If you enter the 1st of the next calendar month for instance, you may"
^DD(509850.83,.08,21,7,0)="continue to enter, edit or delete visits for the current calendar month"
^DD(509850.83,.08,21,8,0)="and QUASAR will not transmit them to PCE. Once new Visits are entered "
^DD(509850.83,.08,21,9,0)="for the new month they will automatically be transmitted to PCE."
^DD(509850.83,.08,21,10,0)=" "
^DD(509850.83,.08,21,11,0)="If you enter a date in the past, QUASAR will not automatically transmit"
^DD(509850.83,.08,21,12,0)="visits that are already on file, even if their Visit Date is after the "
^DD(509850.83,.08,21,13,0)="PCE INTERFACE START DATE. These visits will be reported on the PCE "
^DD(509850.83,.08,21,14,0)="Exception Report and must be edited in QUASAR to initiate transfer to "
^DD(509850.83,.08,21,15,0)="PCE."
^DD(509850.83,.08,21,16,0)=" "
^DD(509850.83,.08,"DT")="2990921"
^DD(509850.83,.09,0)="UPDATE PCE PROBLEM LIST^RS^1:YES;0:NO;^0;9^Q"
^DD(509850.83,.09,3)="Do you wish to update the PCE Problem List when transferring data to PCE ?"
^DD(509850.83,.09,21,0)="^^5^5^3000911^"
^DD(509850.83,.09,21,1,0)="When this field is set to 'Yes' and the PCE interface is active for the"
^DD(509850.83,.09,21,2,0)="selected division, a prompt asking if the user wishes to update the PCE"
^DD(509850.83,.09,21,3,0)="Problem list is displayed for each Diagnosis code that is entered within"
^DD(509850.83,.09,21,4,0)="the ACKQAS VISIT ENTRY option.  These marked Diagnosis codes are sent to"
^DD(509850.83,.09,21,5,0)="PCE along with all the other visit data."
^DD(509850.83,.09,"DT")="3000911"
^DD(509850.83,1,0)="CLINIC^509850.831P^^1;0"
^DD(509850.83,"B","BYPASS AUDIOMETRICS",.07)=""
^DD(509850.83,"B","CLINIC",1)=""
^DD(509850.83,"B","DIVISION",.01)=""
^DD(509850.83,"B","DIVISION NAME",.01)="1"
^DD(509850.83,"B","DIVISION STATUS",.02)=""
^DD(509850.83,"B","PCE INTERFACE START DATE",.08)=""
^DD(509850.83,"B","PROCEDURE CODE YEAR",.075)=""
^DD(509850.83,"B","SEND TO PCE",.03)=""
^DD(509850.83,"B","UPDATE PCE PROBLEM LIST",.09)=""
^DD(509850.83,"B","USE ASP CLINIC FILE NUMBER",.04)=""
^DD(509850.83,"B","USE C&P",.06)=""
^DD(509850.83,"GL",0,1,.01)=""
^DD(509850.83,"GL",0,2,.02)=""
^DD(509850.83,"GL",0,3,.03)=""
^DD(509850.83,"GL",0,4,.04)=""
^DD(509850.83,"GL",0,6,.06)=""
^DD(509850.83,"GL",0,7,.07)=""
^DD(509850.83,"GL",0,8,.08)=""
^DD(509850.83,"GL",0,9,.09)=""
^DD(509850.83,"GL",1,0,1)=""
^DD(509850.83,"GL",2,0,.075)=""
^DD(509850.83,"IX",.01)=""
^DD(509850.83,"RQ",.01)=""
^DD(509850.83,"RQ",.02)=""
^DD(509850.83,"RQ",.03)=""
^DD(509850.83,"RQ",.04)=""
^DD(509850.83,"RQ",.06)=""
^DD(509850.83,"RQ",.07)=""
^DD(509850.83,"RQ",.08)=""
^DD(509850.83,"RQ",.09)=""
^DD(509850.83,"SB",509850.831,1)=""
^DD(509850.83,"SB",509850.832,.075)=""
^DD(509850.831,0)="CLINIC SUB-FIELD^^.01^1"
^DD(509850.831,0,"DT")="2990217"
^DD(509850.831,0,"IX","B",509850.831,.01)=""
^DD(509850.831,0,"NM","CLINIC")=" "
^DD(509850.831,0,"UP")="509850.83"
^DD(509850.831,.01,0)="CLINIC LOCATION^MR*P44'X^SC(^0;1^S DIC(""S"")=""I $D(ACKDIV),$P(^(0),U,3)=""""C"""",$$CLNDIV^ACKQUTL2(Y)=ACKDIV,$$ASPCLN^ACKQUTL2(Y)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X"
^DD(509850.831,.01,1,0)="^.1"
^DD(509850.831,.01,1,1,0)="509850.831^B"
^DD(509850.831,.01,1,1,1)="S ^ACK(509850.8,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(509850.831,.01,1,1,2)="K ^ACK(509850.8,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(509850.831,.01,3)="Select an A&SP clinic."
^DD(509850.831,.01,12)="Only clinic locations may be selected."
^DD(509850.831,.01,12.1)="S DIC(""S"")=""I $D(ACKDIV),$P(^(0),U,3)=""""C"""",$$CLNDIV^ACKQUTL2(Y)=ACKDIV,$$ASPCLN^ACKQUTL2(Y)"""
^DD(509850.831,.01,21,0)="^^5^5^2990308^^^^"
^DD(509850.831,.01,21,1,0)="The CLINIC LOCATION field is a pointer to the HOSPITAL LOCATION file (#4)."
^DD(509850.831,.01,21,2,0)="Clinic location can be set up by stop code (e.g., Audiology or Speech"
^DD(509850.831,.01,21,3,0)="Pathology), clinic (e.g., Dysphagia clinic or Hearing Aid Clinic), or by"
^DD(509850.831,.01,21,4,0)="individual clinician (e.g., Audiology--smith). However, clinic location"
^DD(509850.831,.01,21,5,0)="names MUST match the clinic names established by MAS."
^DD(509850.831,.01,"DT")="2990311"
^DD(509850.831,"B","CLINIC LOCATION",.01)=""
^DD(509850.831,"GL",0,1,.01)=""
^DD(509850.831,"IX",.01)=""
^DD(509850.831,"RQ",.01)=""
^DD(509850.832,0)="PROCEDURE CODE YEAR SUB-FIELD^^2^2"
^DD(509850.832,0,"DT")="3001023"
^DD(509850.832,0,"IX","AC",509850.832,2)=""
^DD(509850.832,0,"IX","B",509850.832,.01)=""
^DD(509850.832,0,"NM","PROCEDURE CODE YEAR")=" "
^DD(509850.832,0,"UP")="509850.83"
^DD(509850.832,.01,0)="PROCEDURE CODE YEAR^RNJ2,0^^0;1^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.832,.01,1,0)="^.1"
^DD(509850.832,.01,1,1,0)="509850.832^B"
^DD(509850.832,.01,1,1,1)="S ^ACK(509850.8,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(509850.832,.01,1,1,2)="K ^ACK(509850.8,DA(2),2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(509850.832,.01,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(509850.832,.01,21,0)="^^2^2^3001121^"
^DD(509850.832,.01,21,1,0)="This is the year the value within the USE EVENT CAPTURE CODES will take or"
^DD(509850.832,.01,21,2,0)="took effect."
^DD(509850.832,.01,"DT")="3001023"
^DD(509850.832,2,0)="USE EVENT CAPTURE CODES^RS^1:YES;0:NO;^0;2^Q"
^DD(509850.832,2,1,0)="^.1"
^DD(509850.832,2,1,1,0)="509850.832^AC^MUMPS"
^DD(509850.832,2,1,1,1)="D CHANGE^ACKQUTL9(X,DA(1))"
^DD(509850.832,2,1,1,2)="Q"
^DD(509850.832,2,1,1,3)="Do not Delete."
^DD(509850.832,2,1,1,"%D",0)="^.101^3^3^3001024^^"
^DD(509850.832,2,1,1,"%D",1,0)="When this field is edited run CHANGE^ACKQUTL9 - this code sends all active"
^DD(509850.832,2,1,1,"%D",2,0)="supervisors a mail message indicating that a change was made to this"
^DD(509850.832,2,1,1,"%D",3,0)="field."
^DD(509850.832,2,1,1,"DT")="3001023"
^DD(509850.832,2,3)="Do you wish to use Event Capture codes in place of CPT Procedure codes within the ACKQAS VISIT ENTER/EDIT Options ?  If so enter 'Yes'."
^DD(509850.832,2,21,0)="^.001^3^3^3001121^^"
^DD(509850.832,2,21,1,0)="Event Capture codes will be available for selection within the options"
^DD(509850.832,2,21,2,0)="[ACKQAS VISIT ENTRY] and [ACKQAS VISIT EDIT] (in place of CPT Procedure"
^DD(509850.832,2,21,3,0)="codes) if the user enters 'Yes' at this prompt."
^DD(509850.832,2,"DT")="3001023"
^DD(509850.832,"B","PROCEDURE CODE YEAR",.01)=""
^DD(509850.832,"B","USE EVENT CAPTURE CODES",2)=""
^DD(509850.832,"GL",0,1,.01)=""
^DD(509850.832,"GL",0,2,2)=""
^DD(509850.832,"IX",.01)=""
^DD(509850.832,"IX",2)=""
^DD(509850.832,"RQ",.01)=""
^DD(509850.832,"RQ",2)=""
^DD(509850.9,0)="FIELD^^791000.12^471"
^DD(509850.9,0,"DDA")="N"
^DD(509850.9,0,"DT")="3051004"
^DD(509850.9,0,"IX","AC",509850.9,.1)=""
^DD(509850.9,0,"IX","B",509850.9,.01)=""
^DD(509850.9,0,"IX","DFN",509850.9,.02)=""
^DD(509850.9,0,"IX","DFN2",509850.9,.02)=""
^DD(509850.9,0,"IX","ICN",509850.9,.11)=""
^DD(509850.9,0,"IX","NAME",509850.9,791000.02)=""
^DD(509850.9,0,"IX","NL4",509850.9,.02)=""
^DD(509850.9,0,"IX","NM",509850.9,791000.02)=""
^DD(509850.9,0,"IX","NM2",509850.9,.02)=""
^DD(509850.9,0,"IX","SSN",509850.9,791000.01)=""
^DD(509850.9,0,"IX","SSN2",509850.9,.02)=""
^DD(509850.9,0,"NM","AUDIOMETRIC EXAM DATA")=" "
^DD(509850.9,0,"VR")="3.0"
^DD(509850.9,0,"VRPK")="ACKQ"
^DD(509850.9,.01,0)="DATE/TIME OF VISIT^RD^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.9,.01,1,0)="^.1"
^DD(509850.9,.01,1,1,0)="509850.9^B"
^DD(509850.9,.01,1,1,1)="S ^ACK(509850.9,""B"",$E(X,1,30),DA)="""""
^DD(509850.9,.01,1,1,2)="K ^ACK(509850.9,""B"",$E(X,1,30),DA)"
^DD(509850.9,.01,3)="Enter the date and time of the patient visit."
^DD(509850.9,.01,10)="This gets set from the GUI Audiogram edit ACKQROES3E"
^DD(509850.9,.01,21,0)="^.001^6^6^3030728^^"
^DD(509850.9,.01,21,1,0)="This field is updated from the Audiometric Module enter/edit"
^DD(509850.9,.01,21,2,0)="GUI application ACKQROES3E.EXE used in conjunction with "
^DD(509850.9,.01,21,3,0)="Remote Order Entry System 3.0 for ordering hearing aid products."
^DD(509850.9,.01,21,4,0)="Since it is crossreferenced on this field, if a previous entry"
^DD(509850.9,.01,21,5,0)="already has the given date/time, it will be incremented by 1"
^DD(509850.9,.01,21,6,0)="second intervals until an unused date/time if found."
^DD(509850.9,.01,23,0)="^.001^2^2^3030728^^"
^DD(509850.9,.01,23,1,0)="This field will have up to 6 decimal places if additional seconds"
^DD(509850.9,.01,23,2,0)="need to be added to create a new entry."
^DD(509850.9,.01,"DT")="3030729"
^DD(509850.9,.02,0)="PATIENT^P2'^DPT(^0;2^Q"
^DD(509850.9,.02,1,0)="^.1"
^DD(509850.9,.02,1,1,0)="509850.9^DFN^MUMPS"
^DD(509850.9,.02,1,1,1)="N Z1 S Z1=$P(^ACK(509850.9,DA,0),U,1) I Z1 S ^ACK(509850.9,""DFN"",X,Z1,DA)="""""
^DD(509850.9,.02,1,1,2)="S Z1=$P(^ACK(509850.9,DA,0),U,1) I Z1 K ^ACK(509850.9,""DFN"",X,DA),Z1"
^DD(509850.9,.02,1,1,"%D",0)="^.101^1^1^3050810^^^^"
^DD(509850.9,.02,1,1,"%D",1,0)="This crossreferences the file by DFN,and Date/Time of visit"
^DD(509850.9,.02,1,1,"DT")="3050801"
^DD(509850.9,.02,1,2,0)="509850.9^NM2^MUMPS"
^DD(509850.9,.02,1,2,1)="I $D(^DPT(X,0)) S Z1=$P(^DPT(X,0),U,1) S:$L(Z1) ^ACK(509850.9,""NM"",Z1,DA)="""""
^DD(509850.9,.02,1,2,2)="I $D(^DPT(X,0)) S Z1=$P(^DPT(X,0),U,1) K:$L(Z1) ^ACK(509850.9,""NM"",Z1,DA) K Z1"
^DD(509850.9,.02,1,2,"%D",0)="^.101^2^2^3050810^^^^"
^DD(509850.9,.02,1,2,"%D",1,0)="This cross reference allows the local station to also lookup the Audiogram"
^DD(509850.9,.02,1,2,"%D",2,0)="by the patient's name."
^DD(509850.9,.02,1,2,"DT")="3030630"
^DD(509850.9,.02,1,3,0)="509850.9^DFN2"
^DD(509850.9,.02,1,3,1)="S ^ACK(509850.9,""DFN2"",$E(X,1,30),DA)="""""
^DD(509850.9,.02,1,3,2)="K ^ACK(509850.9,""DFN2"",$E(X,1,30),DA)"
^DD(509850.9,.02,1,3,"DT")="3050405"
^DD(509850.9,.02,1,4,0)="509850.9^NL4^MUMPS"
^DD(509850.9,.02,1,4,1)="I $D(^DPT(X,0)) S Z1=$P(^(0),U,1),Z2=$P(^(0),U,9) I $L(Z1),$L(Z2) S ^ACK(509850.9,""NL4"",$E(Z1,1)_$E(Z2,6,9),DA)="""""
^DD(509850.9,.02,1,4,2)="I $D(^DPT(X,0)) S Z1=$P(^(0),U,1),Z2=$P(^(0),U,9) I $L(Z1),$L(Z2) K ^ACK(509850.9,""NL4"",$E(Z1,1)_$E(Z2,6,9),DA),Z1,Z2"
^DD(509850.9,.02,1,4,"%D",0)="^^2^2^3050726^"
^DD(509850.9,.02,1,4,"%D",1,0)="Cross reference of first initial of last name and last four taken from "
^DD(509850.9,.02,1,4,"%D",2,0)="the PATIENT file for the DFN."
^DD(509850.9,.02,1,4,"DT")="3050726"
^DD(509850.9,.02,1,5,0)="509850.9^SSN2^MUMPS"
^DD(509850.9,.02,1,5,1)="I $D(^DPT(X,0)) S Z1=$P(^DPT(X,0),U,9) S:$L(Z1) ^ACK(509850.9,""SSN2"",Z1,DA)="""""
^DD(509850.9,.02,1,5,2)="I $D(^DPT(X,0)) S Z1=$P(^DPT(X,0),U,9) K:$L(Z1) ^ACK(509850.9,""SSN2"",Z1,DA),Z1"
^DD(509850.9,.02,1,5,"%D",0)="^.101^1^1^3050801^^^"
^DD(509850.9,.02,1,5,"%D",1,0)="Cross reference on SSN from Patient File for lookup."
^DD(509850.9,.02,1,5,"DT")="3050801"
^DD(509850.9,.02,21,0)="^.001^5^5^3050812^^^^"
^DD(509850.9,.02,21,1,0)="This field contains the patient for whom the audiometric data was created."
^DD(509850.9,.02,21,2,0)="It is the internal record number from the PATIENT file for the local"
^DD(509850.9,.02,21,3,0)="clinic, except at the DDC.  At the DDC this field will be looked up"
^DD(509850.9,.02,21,4,0)="in the DDC PATIENT file and filled in from there after transmission, from"
^DD(509850.9,.02,21,5,0)="the SSN and NAME of the patient, if it can be found."
^DD(509850.9,.02,23,0)="^^5^5^3050812^"
^DD(509850.9,.02,23,1,0)="This field is filled in at the local clinics from the entry in the"
^DD(509850.9,.02,23,2,0)="Audiometric Module GUI application.  The name from the local clinic"
^DD(509850.9,.02,23,3,0)="is transmitted along with the hashed SSN to the DDC, where it is"
^DD(509850.9,.02,23,4,0)="added to their file.  If a match can be found in the DDC database"
^DD(509850.9,.02,23,5,0)="this field will be filled in at the site, with that DFN."
^DD(509850.9,.02,"DT")="3050801"
^DD(509850.9,.03,0)="EXAMINING AUDIOLOGIST^P200'^VA(200,^0;3^Q"
^DD(509850.9,.03,10)="The local NEW PERSON file (#200)"
^DD(509850.9,.03,21,0)="^.001^4^4^3030728^^"
^DD(509850.9,.03,21,1,0)="This pointer to the new person file is retrieved from the Audiometric"
^DD(509850.9,.03,21,2,0)="Module Enter/Edit program.  After transmission to the DDC, the name will"
^DD(509850.9,.03,21,3,0)="be looked up in the database there, and if found will be updated with"
^DD(509850.9,.03,21,4,0)="the pointer to their database."
^DD(509850.9,.03,23,0)="^.001^2^2^3030728^^"
^DD(509850.9,.03,23,1,0)="The QUASAR Audiometric Exam Module GUI is the source of this information."
^DD(509850.9,.03,23,2,0)="That GUI application does the lookup, validation and storage."
^DD(509850.9,.03,"DT")="3010131"
^DD(509850.9,.04,0)="REFERRAL SOURCE^P44'^SC(^0;4^Q"
^DD(509850.9,.04,10)="This refers to the HOSPITAL LOCATION file taken from the GUI interface"
^DD(509850.9,.04,21,0)="^.001^4^4^3030728^^"
^DD(509850.9,.04,21,1,0)="This is entered in the GUI application ACKQROES3E where it is"
^DD(509850.9,.04,21,2,0)="validated and stored into this file.  After transmission to the DDC,"
^DD(509850.9,.04,21,3,0)="a search of the local file is done and if a match is found, this is"
^DD(509850.9,.04,21,4,0)="updated with that value."
^DD(509850.9,.04,23,0)="^.001^4^4^3030728^^"
^DD(509850.9,.04,23,1,0)="This is entered in the GUI application ACKQROES3E where it is"
^DD(509850.9,.04,23,2,0)="validated and stored into this file.  After transmission to the DDC,"
^DD(509850.9,.04,23,3,0)="a search of the local file is done and if a match is found, this is"
^DD(509850.9,.04,23,4,0)="updated with that value."
^DD(509850.9,.04,"DT")="3010208"
^DD(509850.9,.05,0)="AGE AT VISIT^NJ3,0^^0;5^K:+X'=X!(X>150)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,.05,3)="Type a Number between 0 and 150, 0 Decimal Digits"
^DD(509850.9,.05,10)="The birth date is subtracted from the DATE/TIME OF VISIT"
^DD(509850.9,.05,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,.05,21,1,0)="Age of patient at time of visit"
^DD(509850.9,.05,23,0)="^.001^4^4^3030728^^"
^DD(509850.9,.05,23,1,0)="This field is calculated from the birth date from the PATIENT file"
^DD(509850.9,.05,23,2,0)="to the date of the visit.  User's will not be able to edit it"
^DD(509850.9,.05,23,3,0)="through the GUI interface: ACKQROES3E.EXE.  It is also transmitted"
^DD(509850.9,.05,23,4,0)="to the DDC."
^DD(509850.9,.05,"DT")="3020705"
^DD(509850.9,.06,0)="*VA ELIGIBILITY STATUS^S^P:PENDING VERIFICATION;R:PENDING RE-VERIFICATION;V:VERIFIED;^0;6^Q"
^DD(509850.9,.06,3)=" "
^DD(509850.9,.06,21,0)="^^4^4^3050808^"
^DD(509850.9,.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,.06,21,2,0)="The eligibility status at the time of the visit as taken from"
^DD(509850.9,.06,21,3,0)="the PATIENT file. It can be PENDING VERIFICATION,"
^DD(509850.9,.06,21,4,0)="PENTING RE-VERIFICATION, or VERIFIED."
^DD(509850.9,.06,23,0)="^^3^3^3050808^"
^DD(509850.9,.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,.06,23,2,0)="This is a set of codes field where P=PENDING VERIFICATION"
^DD(509850.9,.06,23,3,0)="R=PENDING RE-VERIFICATION, or V=VERIFIED"
^DD(509850.9,.06,"DT")="3050808"
^DD(509850.9,.07,0)="TYPE OF VISIT^F^^0;7^K:$L(X)>31!($L(X)<2) X"
^DD(509850.9,.07,3)="Answer must be 2-31 characters in length."
^DD(509850.9,.07,10)="from the GUI application ACKQROES3E"
^DD(509850.9,.07,21,0)="^.001^2^2^3030728^^"
^DD(509850.9,.07,21,1,0)="The text for this field is taken from the radio buttons in the"
^DD(509850.9,.07,21,2,0)="like named field in the GUI application ACKQROES3E."
^DD(509850.9,.07,23,0)="^.001^4^4^3030728^^"
^DD(509850.9,.07,23,1,0)="The entries can be entered automatically if the button for Compensation"
^DD(509850.9,.07,23,2,0)="and Pension or Audiological Assessment are selected.  If OTHER is "
^DD(509850.9,.07,23,3,0)="selected the user will have to enter their own description of the"
^DD(509850.9,.07,23,4,0)="type of visit, up to 31 characters."
^DD(509850.9,.07,"DT")="3020417"
^DD(509850.9,.08,0)="TRANSDUCER TYPE^S^E:EARPHONES;I:INSERT;^0;8^Q"
^DD(509850.9,.08,3)=" "
^DD(509850.9,.08,21,0)="^^1^1^3050812^"
^DD(509850.9,.08,21,1,0)="Indicates if the test was performed using Ear Phones or an Insert."
^DD(509850.9,.08,"DT")="3051004"
^DD(509850.9,.09,0)="DATE SIGNED^D^^0;9^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.9,.09,3)="Enter the date the information is verified as accurate."
^DD(509850.9,.09,10)="From the DATE SIGNED in the GUI Audiometric Module enter/edit."
^DD(509850.9,.09,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,.09,21,1,0)="This is the date the exam data is verified as accurate."
^DD(509850.9,.09,23,0)="^.001^2^2^3030728^^^^"
^DD(509850.9,.09,23,1,0)="Changes to this date are not allowed since it triggers the"
^DD(509850.9,.09,23,2,0)="sending of the data to the DDC from the GUI."
^DD(509850.9,.09,"DT")="3020506"
^DD(509850.9,.1,0)="TESTING STATION^P4'^DIC(4,^0;10^Q"
^DD(509850.9,.1,1,0)="^.1"
^DD(509850.9,.1,1,1,0)="509850.9^AC"
^DD(509850.9,.1,1,1,1)="S ^ACK(509850.9,""AC"",$E(X,1,30),DA)="""""
^DD(509850.9,.1,1,1,2)="K ^ACK(509850.9,""AC"",$E(X,1,30),DA)"
^DD(509850.9,.1,1,1,"DT")="3030808"
^DD(509850.9,.1,3)=" "
^DD(509850.9,.1,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,.1,21,1,0)="This is the Station where the exam was entered"
^DD(509850.9,.1,23,0)="^.001^4^4^3030728^^^"
^DD(509850.9,.1,23,1,0)="This is the station of the exam.  The number of the station"
^DD(509850.9,.1,23,2,0)="is sent to the DDC and if a match can be made there, will "
^DD(509850.9,.1,23,3,0)="be placed in this field at the DDC. It is automatically"
^DD(509850.9,.1,23,4,0)="filled in at the site entered."
^DD(509850.9,.1,"DT")="3030808"
^DD(509850.9,.11,0)="ICN^F^^0;11^K:$L(X)>17!($L(X)<1)!'(X?10N.1U.6N) X"
^DD(509850.9,.11,1,0)="^.1"
^DD(509850.9,.11,1,1,0)="509850.9^ICN"
^DD(509850.9,.11,1,1,1)="S ^ACK(509850.9,""ICN"",$E(X,1,30),DA)="""""
^DD(509850.9,.11,1,1,2)="K ^ACK(509850.9,""ICN"",$E(X,1,30),DA)"
^DD(509850.9,.11,1,1,"%D",0)="^^2^2^3050726^"
^DD(509850.9,.11,1,1,"%D",1,0)="Regular cross reference on the Integration Control Number for the "
^DD(509850.9,.11,1,1,"%D",2,0)="Patient. Used primarily for lookups."
^DD(509850.9,.11,1,1,"DT")="3050726"
^DD(509850.9,.11,3)="Answer must be 1-17 characters in length."
^DD(509850.9,.11,10)="PATIENT FILE"
^DD(509850.9,.11,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,.11,21,1,0)="Pointer to the Master Patient Index file"
^DD(509850.9,.11,23,0)="^.001^4^4^3030728^^^^"
^DD(509850.9,.11,23,1,0)="Pointer to the Master Patient Index"
^DD(509850.9,.11,23,2,0)="It is gathered from the PATIENT file and sent with the data to"
^DD(509850.9,.11,23,3,0)="the DDC, where it will be used in enhancements for matching up"
^DD(509850.9,.11,23,4,0)="correct patients."
^DD(509850.9,.11,"DT")="3050726"
^DD(509850.9,.12,0)="DATE SENT TO DDC^D^^0;12^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.9,.12,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,.12,21,1,0)="This is filled in when the data is transmitted to the DDC."
^DD(509850.9,.12,23,0)="^.001^2^2^3030728^^"
^DD(509850.9,.12,23,1,0)="When the data is transmitted to the DDC, this field is filled"
^DD(509850.9,.12,23,2,0)="in automatically for help in tracing problems."
^DD(509850.9,.12,"DT")="3021220"
^DD(509850.9,.13,0)="MESSAGE NUMBER^P3.9'^XMB(3.9,^0;13^Q"
^DD(509850.9,.13,21,0)="^.001^2^2^3030728^^^^"
^DD(509850.9,.13,21,1,0)="The pointer to the message that was sent to the DDC"
^DD(509850.9,.13,21,2,0)="on the date in piece 12"
^DD(509850.9,.13,23,0)="^.001^4^4^3030728^^^"
^DD(509850.9,.13,23,1,0)="This is the message number from the 3.9 file, used to transmit"
^DD(509850.9,.13,23,2,0)="the data to the DDC.  It's primary use is in problem solving,"
^DD(509850.9,.13,23,3,0)="should transmission problems occur."
^DD(509850.9,.13,23,4,0)="It is automatically filled in following transmission."
^DD(509850.9,.13,"DT")="3020528"
^DD(509850.9,.14,0)="CLAIM NUMBER^F^^0;14^K:$L(X)>19!($L(X)<7) X"
^DD(509850.9,.14,3)="Answer must be 7-19 characters in length."
^DD(509850.9,.14,21,0)="^^2^2^3050802^"
^DD(509850.9,.14,21,1,0)="This is the claim number of the patient at the time of the procedure."
^DD(509850.9,.14,21,2,0)="This is entered into the Audiogram Edit."
^DD(509850.9,.14,"DT")="3050811"
^DD(509850.9,.15,0)="RETRANSMISSION DATE^D^^0;15^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.9,.15,21,0)="^.001^2^2^3050815^^^"
^DD(509850.9,.15,21,1,0)="If the audiogram is retransmitted to the DDC this will track the last "
^DD(509850.9,.15,21,2,0)="date/time it was sent."
^DD(509850.9,.15,"DT")="3050726"
^DD(509850.9,.16,0)="RETRANSMISSION USER^P200'^VA(200,^0;16^Q"
^DD(509850.9,.16,21,0)="^.001^2^2^3050802^^"
^DD(509850.9,.16,21,1,0)="This is the user who last retransmitted the audiogram to the DDC on the "
^DD(509850.9,.16,21,2,0)="date in field .15 of the zero node."
^DD(509850.9,.16,"DT")="3050726"
^DD(509850.9,1.01,0)="RIGHT FOUR FREQUENCY PTA^NJ3,0^^1;1^K:+X'=X!(X>110)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.01,3)="Type a Number between -10 and 110, 0 Decimal Digits"
^DD(509850.9,1.01,10)="Calculated from the GUI e/e"
^DD(509850.9,1.01,21,0)="^.001^2^2^3030728^^^"
^DD(509850.9,1.01,21,1,0)="Based on the PURE TONE thresholds taken at 1000, 2000, 3000,"
^DD(509850.9,1.01,21,2,0)="and 4000 Hz, for the Right ear."
^DD(509850.9,1.01,23,0)="^.001^5^5^3030728^^^"
^DD(509850.9,1.01,23,1,0)="This is a calculated field of the average of the readings"
^DD(509850.9,1.01,23,2,0)="from the 1000, 2000, 3000 and 4000 Hz fields for this"
^DD(509850.9,1.01,23,3,0)="ear. Refer to the decision tree in the Technical Manual"
^DD(509850.9,1.01,23,4,0)="for the description of whether the initial or final"
^DD(509850.9,1.01,23,5,0)="readings are used."
^DD(509850.9,1.01,"DT")="3050812"
^DD(509850.9,1.02,0)="LEFT FOUR FREQUENCY PTA^NJ3,0^^1;2^K:+X'=X!(X>110)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.02,3)="Type a Number between -10 and 110, 0 Decimal Digits"
^DD(509850.9,1.02,10)="Calculated from the GUI e/e"
^DD(509850.9,1.02,21,0)="^.001^2^2^3030728^^^"
^DD(509850.9,1.02,21,1,0)="This is a calculated field of the average of the readings"
^DD(509850.9,1.02,21,2,0)="from the 1000, 2000, 3000 and 4000 Hz fields for the Left ear."
^DD(509850.9,1.02,23,0)="^.001^5^5^3030728^^^"
^DD(509850.9,1.02,23,1,0)="This is a calculated field of the average of the readings"
^DD(509850.9,1.02,23,2,0)="from the 1000, 2000, 3000 and 4000 Hz fields for this"
^DD(509850.9,1.02,23,3,0)="ear. Refer to the decision tree in the Technical Manual"
^DD(509850.9,1.02,23,4,0)="for the description of the rules for using the initial"
^DD(509850.9,1.02,23,5,0)="or final readings."
^DD(509850.9,1.02,"DT")="3050802"
^DD(509850.9,1.03,0)="RIGHT THREE FREQUENCY PTA^NJ3,0^^1;3^K:+X'=X!(X>110)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.03,3)="Type a Number between -10 and 110, 0 Decimal Digits"
^DD(509850.9,1.03,21,0)="^.001^2^2^3030728^^"
^DD(509850.9,1.03,21,1,0)="This average is based on the threshold readings from 500, 1000 and 2000 Hz."
^DD(509850.9,1.03,21,2,0)="Right ear only."
^DD(509850.9,1.03,23,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.03,23,1,0)="This average is based on the threshold readings from 500, 1000 and 2000 Hz. Refer to the Technical Manual for rules about using the initial or final readings."
^DD(509850.9,1.03,"DT")="3050802"
^DD(509850.9,1.04,0)="LEFT THREE FREQUENCY PTA^NJ3,0^^1;4^K:+X'=X!(X>110)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.04,3)="Type a Number between -10 and 110, 0 Decimal Digits"
^DD(509850.9,1.04,21,0)="^.001^2^2^3030728^^"
^DD(509850.9,1.04,21,1,0)="This average is based on the threshold readings from 500, 1000 and 2000 Hz."
^DD(509850.9,1.04,21,2,0)="Left ear only."
^DD(509850.9,1.04,23,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.04,23,1,0)="This average is based on the threshold readings from 500, 1000 and 2000 Hz. Refer to the Technical Manual for the rules on using the initial or final readings."
^DD(509850.9,1.04,"DT")="3050802"
^DD(509850.9,1.05,0)="RIGHT TWO FREQUENCY PTA^NJ3,0^^1;5^K:+X'=X!(X>105)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.05,3)="Type a Number between -10 and 105, 0 Decimal Digits"
^DD(509850.9,1.05,21,0)="^.001^2^2^3030728^^"
^DD(509850.9,1.05,21,1,0)="This average is based on the lowest two thresholds from 500, 1000 and "
^DD(509850.9,1.05,21,2,0)="2000 hz for the Right ear."
^DD(509850.9,1.05,23,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.05,23,1,0)="This average is based on the lowest two thresholds from 500, 1000 and 2000 Hz.  Refer to the Technical Manual for the rules on using the initial or final readings."
^DD(509850.9,1.05,"DT")="3050801"
^DD(509850.9,1.06,0)="LEFT TWO FREQUENCY PTA^NJ3,0^^1;6^K:+X'=X!(X>110)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.06,3)="Type a Number between -10 and 110, 0 Decimal Digits"
^DD(509850.9,1.06,21,0)="^^2^2^3030728^"
^DD(509850.9,1.06,21,1,0)="This average is based on the lowest two thresholds from 500, 1000 and"
^DD(509850.9,1.06,21,2,0)="2000 hz for the Left ear."
^DD(509850.9,1.06,23,0)="^^3^3^3030728^"
^DD(509850.9,1.06,23,1,0)="This average is based on the lowest two thresholds from 500, 1000 and"
^DD(509850.9,1.06,23,2,0)="2000 hz. Refer to the Technical Manual for the rules on using the initial"
^DD(509850.9,1.06,23,3,0)="or final readings."
^DD(509850.9,1.06,"DT")="3050812"
^DD(509850.9,1.07,0)="RIGHT MCL^NJ3,0^^1;7^K:+X'=X!(X>120)!(X<50)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.07,3)="Type a Number between 50 and 120, 0 Decimal Digits"
^DD(509850.9,1.07,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,1.07,21,1,0)="Most Comfortable Loudness for the Right ear."
^DD(509850.9,1.07,23,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.07,23,1,0)="This is about 65 dB SPL for normal ears. (45 dB HL)"
^DD(509850.9,1.07,"DT")="3030121"
^DD(509850.9,1.08,0)="RIGHT UCL^NJ3,0^^1;8^K:+X'=X!(X>120)!(X<50)!(X?.E1"".""1N.N) X"
^DD(509850.9,1.08,3)="Type a Number between 50 and 120, 0 Decimal Digits"
^DD(509850.9,1.08,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.08,21,1,0)="Uncomfortable Loudness for the Right ear."
^DD(509850.9,1.08,23,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.08,23,1,0)="The upper boundary is about 130 dB SPL for normal ears.  Sound above this level causes discomfort and then pain."
^DD(509850.9,1.08,"DT")="3030121"
^DD(509850.9,1.09,0)="LEFT MCL^NJ3,0^^1;9^K:+X'=X!(X>120)!(X<50)!(X?.E1"".""1.N) X"
^DD(509850.9,1.09,3)="Type a number between 50 and 120, 0 Decimal Digits"
^DD(509850.9,1.09,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.09,21,1,0)="Most Comfortable Loudness for the Left ear."
^DD(509850.9,1.09,23,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.09,23,1,0)="This is about 65 dB SPL for normal ears. (45 dB HL)"
^DD(509850.9,1.09,"DT")="3030121"
^DD(509850.9,1.1,0)="LEFT UCL^NJ3,0^^1;10^K:+X'=X!(X>120)!(X<50)!(X?.E1"".""1.N) X"
^DD(509850.9,1.1,3)="Type a number between 50 and 120, 0 Decimal Digits"
^DD(509850.9,1.1,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.1,21,1,0)="Uncomfortable Loudness for the Left ear."
^DD(509850.9,1.1,23,0)="^.001^1^1^3030728^^"
^DD(509850.9,1.1,23,1,0)="The upper boundary is about 130 dB SPL for normal ears.  Sound above this level causes discomfort, then pain."
^DD(509850.9,1.1,"DT")="3030121"
^DD(509850.9,1.11,0)="R TYMPANOGRAM TYPE^S^1:As;2:Ad;3:A;4:B;5:C;6:FLAT;^1;11^Q"
^DD(509850.9,1.11,21,0)="^.001^1^1^3050802^^"
^DD(509850.9,1.11,21,1,0)="Tympanogram Type used for the Right ear."
^DD(509850.9,1.11,"DT")="3050804"
^DD(509850.9,1.12,0)="L TYMPANOGRAM TYPE^S^1:As;2:Ad;3:A;4:B;5:C;6:FLAT;^1;12^Q"
^DD(509850.9,1.12,21,0)="^^1^1^3050726^"
^DD(509850.9,1.12,21,1,0)="Tympanogram Type used for the Left ear."
^DD(509850.9,1.12,"DT")="3050804"
^DD(509850.9,10.01,0)="INITIAL A/C THRESHOLD R 125^F^^10;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.01,21,0)="^.001^2^2^3030728^^^^"
^DD(509850.9,10.01,21,1,0)="The lowest level(dB) a 125 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.01,21,2,0)="Initial test on the Right ear."
^DD(509850.9,10.01,"DT")="3050726"
^DD(509850.9,10.02,0)="INITIAL A/C THRESHOLD R 250^F^^10;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.02,21,0)="^^1^1^3030121^"
^DD(509850.9,10.02,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.02,"DT")="3050726"
^DD(509850.9,10.03,0)="INITIAL A/C THRESHOLD R 500^F^^10;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.03,21,0)="^^1^1^3030121^"
^DD(509850.9,10.03,21,1,0)="The lowest level(dB) a 500 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.03,"DT")="3050726"
^DD(509850.9,10.04,0)="INITIAL A/C THRESHOLD R 750^F^^10;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.04,21,0)="^^1^1^3030121^"
^DD(509850.9,10.04,21,1,0)="The lowest level(dB) a 750 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.04,"DT")="3050726"
^DD(509850.9,10.05,0)="INITIAL A/C THRESHOLD R 1000^F^^10;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.05,21,0)="^^1^1^3030121^"
^DD(509850.9,10.05,21,1,0)="The lowest level(dB) a 1000 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.05,"DT")="3050726"
^DD(509850.9,10.06,0)="INITIAL A/C THRESHOLD R 1500^F^^10;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.06,21,0)="^^1^1^3030121^"
^DD(509850.9,10.06,21,1,0)="The lowest level(dB) a 1500 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.06,"DT")="3050726"
^DD(509850.9,10.07,0)="INITIAL A/C THRESHOLD R 2000^F^^10;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.07,21,0)="^^1^1^3030121^"
^DD(509850.9,10.07,21,1,0)="The lowest level(dB) a 2000 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.07,"DT")="3050726"
^DD(509850.9,10.08,0)="INITIAL A/C THRESHOLD R 3000^F^^10;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.08,21,0)="^^1^1^3030121^^"
^DD(509850.9,10.08,21,1,0)="The lowest level(dB) a 3000 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.08,"DT")="3050726"
^DD(509850.9,10.09,0)="INITIAL A/C THRESHOLD R 4000^F^^10;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.09,21,0)="^^1^1^3030121^"
^DD(509850.9,10.09,21,1,0)="The lowest level(dB) a 4000 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.09,"DT")="3050726"
^DD(509850.9,10.1,0)="INITIAL A/C THRESHOLD R 6000^F^^10;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.1,21,0)="^^1^1^3030121^"
^DD(509850.9,10.1,21,1,0)="The lowest level(dB) a 6000 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.1,"DT")="3050726"
^DD(509850.9,10.11,0)="INITIAL A/C THRESHOLD R 8000^F^^10;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.11,21,0)="^^1^1^3030121^"
^DD(509850.9,10.11,21,1,0)="The lowest level(dB) a 8000 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.11,"DT")="3050726"
^DD(509850.9,10.12,0)="INITIAL A/C THRESHOLD R 12000^F^^10;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,10.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,10.12,21,0)="^^1^1^3030121^"
^DD(509850.9,10.12,21,1,0)="The lowest level(dB) a 12000 Hz test frequency is heard 50% of the time."
^DD(509850.9,10.12,"DT")="3050726"
^DD(509850.9,11.01,0)="*INITIAL A/C THRESH TAG R 125^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;1^Q"
^DD(509850.9,11.01,21,0)="^^3^3^3050808^"
^DD(509850.9,11.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.01,21,2,0)="Set of codes indicating if the result was obtained using masking, and/or"
^DD(509850.9,11.01,21,3,0)="if no response was received."
^DD(509850.9,11.01,23,0)="^^1^1^3050808^"
^DD(509850.9,11.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.01,"DT")="3050808"
^DD(509850.9,11.02,0)="*INITIAL A/C THRESH TAG R 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;2^Q"
^DD(509850.9,11.02,21,0)="^^1^1^3050808^"
^DD(509850.9,11.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.02,23,0)="^^1^1^3050808^"
^DD(509850.9,11.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.02,"DT")="3050808"
^DD(509850.9,11.03,0)="*INITIAL A/C THRESH TAG R 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;3^Q"
^DD(509850.9,11.03,21,0)="^^1^1^3050808^"
^DD(509850.9,11.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.03,23,0)="^^1^1^3050808^"
^DD(509850.9,11.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.03,"DT")="3050808"
^DD(509850.9,11.04,0)="*INITIAL A/C THRESH TAG R 750^S^0:unmasked;1:masked;2:no reponse;3:masked no response;4:CNM;5:DNT;6:CNT;^11;4^Q"
^DD(509850.9,11.04,21,0)="^^1^1^3050808^"
^DD(509850.9,11.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.04,23,0)="^^1^1^3050808^"
^DD(509850.9,11.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.04,"DT")="3050808"
^DD(509850.9,11.05,0)="*INITIAL A/C THRESH TAG R 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;5^Q"
^DD(509850.9,11.05,21,0)="^^1^1^3050808^"
^DD(509850.9,11.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.05,23,0)="^^1^1^3050808^"
^DD(509850.9,11.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.05,"DT")="3050808"
^DD(509850.9,11.06,0)="*INITIAL A/C THRESH TAG R 1500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;6^Q"
^DD(509850.9,11.06,21,0)="^^1^1^3050808^"
^DD(509850.9,11.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.06,23,0)="^^1^1^3050808^"
^DD(509850.9,11.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.06,"DT")="3050808"
^DD(509850.9,11.07,0)="*INITIAL A/C THRESH TAG R 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;7^Q"
^DD(509850.9,11.07,21,0)="^^1^1^3050808^"
^DD(509850.9,11.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.07,23,0)="^^1^1^3050808^"
^DD(509850.9,11.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.07,"DT")="3050808"
^DD(509850.9,11.08,0)="*INITIAL A/C THRESH TAG R 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;8^Q"
^DD(509850.9,11.08,21,0)="^^1^1^3050808^"
^DD(509850.9,11.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.08,23,0)="^^1^1^3050808^"
^DD(509850.9,11.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.08,"DT")="3050808"
^DD(509850.9,11.09,0)="*INITIAL A/C THRESH TAG R 4000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;9^Q"
^DD(509850.9,11.09,21,0)="^^1^1^3050808^"
^DD(509850.9,11.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.09,23,0)="^^1^1^3050808^"
^DD(509850.9,11.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.09,"DT")="3050812"
^DD(509850.9,11.1,0)="*INITIAL A/C THRESH TAG R 6000^S^0:unmasked;1:masked;2:no response;3:unmasked no response;4:CNM;5:DNT;6:CNT;^11;10^Q"
^DD(509850.9,11.1,21,0)="^^1^1^3050808^"
^DD(509850.9,11.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.1,23,0)="^^1^1^3050808^"
^DD(509850.9,11.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.1,"DT")="3050808"
^DD(509850.9,11.11,0)="*INITIAL A/C THRESH TAG R 8000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;11^Q"
^DD(509850.9,11.11,21,0)="^^2^2^3050808^"
^DD(509850.9,11.11,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.11,21,2,0)="The lowest level(dB) a 8000 Hz test frequency is heard 50% of the time."
^DD(509850.9,11.11,23,0)="^^1^1^3050808^"
^DD(509850.9,11.11,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.11,"DT")="3050808"
^DD(509850.9,11.12,0)="*INITIAL A/C THRESH TAG R12000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^11;12^Q"
^DD(509850.9,11.12,21,0)="^^1^1^3050808^"
^DD(509850.9,11.12,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.12,23,0)="^^1^1^3050808^"
^DD(509850.9,11.12,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,11.12,"DT")="3050808"
^DD(509850.9,15.01,0)="RETEST A/C THRESHOLD R 125^F^^15;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.01,21,0)="^.001^1^1^3050802^^"
^DD(509850.9,15.01,21,1,0)="Value received if a retest was done at 125 Hz for Right ear."
^DD(509850.9,15.01,"DT")="3050726"
^DD(509850.9,15.02,0)="RETEST A/C THRESHOLD R 250^F^^15;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.02,21,0)="^^1^1^3050726^"
^DD(509850.9,15.02,21,1,0)="Value received if a retest was done at 250 Hz for Right ear."
^DD(509850.9,15.02,"DT")="3050726"
^DD(509850.9,15.03,0)="RETEST A/C THRESHOLD R 500^F^^15;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.03,21,0)="^.001^1^1^3050726^^^"
^DD(509850.9,15.03,21,1,0)="Value received if a retest was done at 500 Hz for Right ear."
^DD(509850.9,15.03,"DT")="3050726"
^DD(509850.9,15.04,0)="RETEST A/C THRESHOLD R 750^F^^15;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.04,21,0)="^.001^1^1^3050726^^"
^DD(509850.9,15.04,21,1,0)="Value received if a retest was done at 750 Hz for Right ear."
^DD(509850.9,15.04,"DT")="3050726"
^DD(509850.9,15.05,0)="RETEST A/C THRESHOLD R 1000^F^^15;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.05,21,0)="^^1^1^3050726^"
^DD(509850.9,15.05,21,1,0)="Value received if a retest was done at 1000 Hz for Right ear."
^DD(509850.9,15.05,"DT")="3050726"
^DD(509850.9,15.06,0)="RETEST A/C THRESHOLD R 1500^F^^15;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.06,21,0)="^^1^1^3050726^"
^DD(509850.9,15.06,21,1,0)="Value received if a retest was done at 1500 Hz for Right ear."
^DD(509850.9,15.06,"DT")="3050726"
^DD(509850.9,15.07,0)="RETEST A/C THRESHOLD R 2000^F^^15;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.07,21,0)="^^1^1^3050726^"
^DD(509850.9,15.07,21,1,0)="Value received if a retest was done at 2000 Hz for Right ear."
^DD(509850.9,15.07,"DT")="3050726"
^DD(509850.9,15.08,0)="RETEST A/C THRESHOLD R 3000^F^^15;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.08,21,0)="^^1^1^3050726^"
^DD(509850.9,15.08,21,1,0)="Value received if a retest was done at 3000 Hz for Right ear."
^DD(509850.9,15.08,"DT")="3050726"
^DD(509850.9,15.09,0)="RETEST A/C THRESHOLD R 4000^F^^15;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.09,21,0)="^^1^1^3050726^"
^DD(509850.9,15.09,21,1,0)="Value received if a retest was done at 4000 Hz for Right ear."
^DD(509850.9,15.09,"DT")="3050726"
^DD(509850.9,15.1,0)="RETEST A/C THRESHOLD R 6000^F^^15;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.1,21,0)="^^1^1^3050726^"
^DD(509850.9,15.1,21,1,0)="Value received if a retest was done at 6000 Hz for Right ear."
^DD(509850.9,15.1,"DT")="3050726"
^DD(509850.9,15.11,0)="RETEST A/C THRESHOLD R 8000^F^^15;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,15.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,15.11,21,0)="^^1^1^3050726^"
^DD(509850.9,15.11,21,1,0)="Value received if a retest was done at 8000 Hz for Right ear."
^DD(509850.9,15.11,"DT")="3050726"
^DD(509850.9,20.01,0)="FINAL A/C THRESHOLD R 125^F^^20;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.01,21,0)="^.001^2^2^3030728^^^^"
^DD(509850.9,20.01,21,1,0)="The lowest level(dB) a 125 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.01,21,2,0)="Repeat testing of the Right ear."
^DD(509850.9,20.01,"DT")="3050809"
^DD(509850.9,20.02,0)="FINAL A/C THRESHOLD R 250^F^^20;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.02,21,0)="^^1^1^3030121^"
^DD(509850.9,20.02,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.02,"DT")="3050809"
^DD(509850.9,20.03,0)="FINAL A/C THRESHOLD R 500^F^^20;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.03,21,0)="^^1^1^3030121^"
^DD(509850.9,20.03,21,1,0)="The lowest level(dB) a 500 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.03,"DT")="3050809"
^DD(509850.9,20.04,0)="FINAL A/C THRESHOLD R 750^F^^20;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.04,21,0)="^.001^1^1^3030121^^"
^DD(509850.9,20.04,21,1,0)="The lowest level(dB) a 750 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.04,"DT")="3050809"
^DD(509850.9,20.05,0)="FINAL A/C THRESHOLD R 1000^F^^20;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.05,21,0)="^^1^1^3030121^"
^DD(509850.9,20.05,21,1,0)="The lowest level(dB) a 1000 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.05,"DT")="3050809"
^DD(509850.9,20.06,0)="FINAL A/C THRESHOLD R 1500^F^^20;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.06,21,0)="^^1^1^3030121^"
^DD(509850.9,20.06,21,1,0)="The lowest level(dB) a 1500 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.06,"DT")="3050809"
^DD(509850.9,20.07,0)="FINAL A/C THRESHOLD R 2000^F^^20;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.07,21,0)="^^1^1^3030121^"
^DD(509850.9,20.07,21,1,0)="The lowest level(dB) a 2000 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.07,"DT")="3050809"
^DD(509850.9,20.08,0)="FINAL A/C THRESHOLD R 3000^F^^20;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.08,21,0)="^^1^1^3030121^"
^DD(509850.9,20.08,21,1,0)="The lowest level(dB) a 3000 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.08,"DT")="3050809"
^DD(509850.9,20.09,0)="FINAL A/C THRESHOLD R 4000^F^^20;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.09,21,0)="^^1^1^3030121^"
^DD(509850.9,20.09,21,1,0)="The lowest level(dB) a 4000 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.09,"DT")="3050809"
^DD(509850.9,20.1,0)="FINAL A/C THRESHOLD R 6000^F^^20;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.1,21,0)="^^1^1^3030121^"
^DD(509850.9,20.1,21,1,0)="The lowest level(dB) a 6000 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.1,"DT")="3050809"
^DD(509850.9,20.11,0)="FINAL A/C THRESHOLD R 8000^F^^20;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.11,21,0)="^^1^1^3030121^"
^DD(509850.9,20.11,21,1,0)="The lowest level(dB) a 8000 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.11,"DT")="3050809"
^DD(509850.9,20.12,0)="FINAL A/C THRESHOLD R 12000^F^^20;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,20.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,20.12,21,0)="^^1^1^3030121^"
^DD(509850.9,20.12,21,1,0)="The lowest level(dB) a 12000 Hz test frequency is heard 50% of the time."
^DD(509850.9,20.12,"DT")="3050809"
^DD(509850.9,21.01,0)="*REPEAT A/C THRESH TAG R 125^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;1^Q"
^DD(509850.9,21.01,21,0)="^^3^3^3050808^"
^DD(509850.9,21.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.01,21,2,0)="Set of codes indicating if the result was obtained using masking, and/or"
^DD(509850.9,21.01,21,3,0)="if a No-Response was obtained."
^DD(509850.9,21.01,23,0)="^^1^1^3050808^"
^DD(509850.9,21.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.01,"DT")="3050808"
^DD(509850.9,21.02,0)="*REPEAT A/C THRESH TAG R 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;2^Q"
^DD(509850.9,21.02,21,0)="^^3^3^3050808^"
^DD(509850.9,21.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.02,21,2,0)="Set of codes indicating if the result was obtained using masking, and/or"
^DD(509850.9,21.02,21,3,0)="if a No-Response was obtained."
^DD(509850.9,21.02,23,0)="^^1^1^3050808^"
^DD(509850.9,21.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.02,"DT")="3050808"
^DD(509850.9,21.03,0)="*REPEAT A/C THRESH TAG R 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;3^Q"
^DD(509850.9,21.03,21,0)="^^1^1^3050808^"
^DD(509850.9,21.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.03,23,0)="^^1^1^3050808^"
^DD(509850.9,21.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.03,"DT")="3050808"
^DD(509850.9,21.04,0)="*REPEAT A/C THRESH TAG R 750^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;4^Q"
^DD(509850.9,21.04,21,0)="^^1^1^3050808^"
^DD(509850.9,21.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.04,23,0)="^^1^1^3050808^"
^DD(509850.9,21.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.04,"DT")="3050808"
^DD(509850.9,21.05,0)="*REPEAT A/C THRESH TAG R 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;5^Q"
^DD(509850.9,21.05,21,0)="^^1^1^3050808^"
^DD(509850.9,21.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.05,23,0)="^^1^1^3050808^"
^DD(509850.9,21.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.05,"DT")="3050808"
^DD(509850.9,21.06,0)="*REPEAT A/C THRESH TAG R 1500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;6^Q"
^DD(509850.9,21.06,21,0)="^^1^1^3050808^"
^DD(509850.9,21.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.06,23,0)="^^1^1^3050808^"
^DD(509850.9,21.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.06,"DT")="3050808"
^DD(509850.9,21.07,0)="*REPEAT A/C THRESH TAG R 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;7^Q"
^DD(509850.9,21.07,21,0)="^^1^1^3050808^"
^DD(509850.9,21.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.07,23,0)="^^1^1^3050808^"
^DD(509850.9,21.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.07,"DT")="3050808"
^DD(509850.9,21.08,0)="*REPEAT A/C THRESH TAG R 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;8^Q"
^DD(509850.9,21.08,21,0)="^^1^1^3050808^"
^DD(509850.9,21.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.08,23,0)="^^1^1^3050808^"
^DD(509850.9,21.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.08,"DT")="3050808"
^DD(509850.9,21.09,0)="*REPEAT A/C THRESH TAG R 4000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;9^Q"
^DD(509850.9,21.09,21,0)="^^1^1^3050808^"
^DD(509850.9,21.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.09,23,0)="^^1^1^3050808^"
^DD(509850.9,21.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.09,"DT")="3050808"
^DD(509850.9,21.1,0)="*REPEAT A/C THRESH TAG R 6000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;10^Q"
^DD(509850.9,21.1,21,0)="^^1^1^3050808^"
^DD(509850.9,21.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.1,23,0)="^^1^1^3050808^"
^DD(509850.9,21.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.1,"DT")="3050808"
^DD(509850.9,21.11,0)="*REPEAT A/C THRESH TAG R 8000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;11^Q"
^DD(509850.9,21.11,21,0)="^^1^1^3050808^"
^DD(509850.9,21.11,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.11,23,0)="^^1^1^3050808^"
^DD(509850.9,21.11,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.11,"DT")="3050808"
^DD(509850.9,21.12,0)="*REPEAT A/C THRESH TAG R 12000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^21;12^Q"
^DD(509850.9,21.12,21,0)="^^1^1^3050808^"
^DD(509850.9,21.12,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.12,23,0)="^^1^1^3050808^"
^DD(509850.9,21.12,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,21.12,"DT")="3050808"
^DD(509850.9,30.01,0)="INITIAL A/C THRESHOLD L 125^F^^30;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.01,21,0)="^.001^2^2^3030728^^^"
^DD(509850.9,30.01,21,1,0)="The lowest level(dB) a 125 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.01,21,2,0)="During initial testing of the left ear."
^DD(509850.9,30.01,"DT")="3050726"
^DD(509850.9,30.02,0)="INITIAL A/C THRESHOLD L 250^F^^30;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.02,21,0)="^^1^1^3030122^"
^DD(509850.9,30.02,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.02,"DT")="3050726"
^DD(509850.9,30.03,0)="INITIAL A/C THRESHOLD L 500^F^^30;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.03,21,0)="^.001^1^1^3030122^^"
^DD(509850.9,30.03,21,1,0)="The lowest level(dB) a 500 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.03,"DT")="3050726"
^DD(509850.9,30.04,0)="INITIAL A/C THRESHOLD L 750^F^^30;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.04,21,0)="^.001^1^1^3030122^^"
^DD(509850.9,30.04,21,1,0)="The lowest level(dB) a 750 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.04,"DT")="3050726"
^DD(509850.9,30.05,0)="INITIAL A/C THRESHOLD L 1000^F^^30;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.05,21,0)="^^1^1^3030122^"
^DD(509850.9,30.05,21,1,0)="The lowest level(dB) a 1000 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.05,"DT")="3050726"
^DD(509850.9,30.06,0)="INITIAL A/C THRESHOLD L 1500^F^^30;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.06,21,0)="^^1^1^3030122^"
^DD(509850.9,30.06,21,1,0)="The lowest level(dB) a 1500 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.06,"DT")="3050726"
^DD(509850.9,30.07,0)="INITIAL A/C THRESHOLD L 2000^F^^30;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.07,21,0)="^^1^1^3030122^"
^DD(509850.9,30.07,21,1,0)="The lowest level(dB) a 2000 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.07,"DT")="3050726"
^DD(509850.9,30.08,0)="INITIAL A/C THRESHOLD L 3000^F^^30;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.08,21,0)="^^1^1^3030122^"
^DD(509850.9,30.08,21,1,0)="The lowest level(dB) a 3000 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.08,"DT")="3050726"
^DD(509850.9,30.09,0)="INITIAL A/C THRESHOLD L 4000^F^^30;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.09,21,0)="^^1^1^3030122^"
^DD(509850.9,30.09,21,1,0)="The lowest level(dB) a 4000 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.09,"DT")="3050726"
^DD(509850.9,30.1,0)="INITIAL A/C THRESHOLD L 6000^F^^30;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.1,21,0)="^^1^1^3030122^"
^DD(509850.9,30.1,21,1,0)="The lowest level(dB) a 6000 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.1,"DT")="3050726"
^DD(509850.9,30.11,0)="INITIAL A/C THRESHOLD L 8000^F^^30;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.11,21,0)="^^1^1^3030122^"
^DD(509850.9,30.11,21,1,0)="The lowest level(dB) a 8000 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.11,"DT")="3050726"
^DD(509850.9,30.12,0)="INITIAL A/C THRESHOLD L 12000^F^^30;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,30.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,30.12,21,0)="^^1^1^3030122^"
^DD(509850.9,30.12,21,1,0)="The lowest level(dB) a 12000 Hz test frequency is heard 50% of the time."
^DD(509850.9,30.12,"DT")="3050726"
^DD(509850.9,31.01,0)="*INITIAL A/C THRESH TAG L 125^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;1^Q"
^DD(509850.9,31.01,21,0)="^^3^3^3050808^"
^DD(509850.9,31.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.01,21,2,0)="Set of codes indicating if the result was obtained using masking, and/or"
^DD(509850.9,31.01,21,3,0)="if a No-Response was received."
^DD(509850.9,31.01,23,0)="^^1^1^3050808^"
^DD(509850.9,31.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.01,"DT")="3050808"
^DD(509850.9,31.02,0)="*INITIAL A/C THRESH TAG L 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;2^Q"
^DD(509850.9,31.02,21,0)="^^1^1^3050808^"
^DD(509850.9,31.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.02,23,0)="^^1^1^3050808^"
^DD(509850.9,31.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.02,"DT")="3050808"
^DD(509850.9,31.03,0)="*INITIAL A/C THRESH TAG L 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;3^Q"
^DD(509850.9,31.03,21,0)="^^1^1^3050808^"
^DD(509850.9,31.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.03,23,0)="^^1^1^3050808^"
^DD(509850.9,31.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.03,"DT")="3050808"
^DD(509850.9,31.04,0)="*INITIAL A/C THRESH TAG L 750^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;4^Q"
^DD(509850.9,31.04,21,0)="^^1^1^3050808^"
^DD(509850.9,31.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.04,23,0)="^^1^1^3050808^"
^DD(509850.9,31.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.04,"DT")="3050808"
^DD(509850.9,31.05,0)="*INITIAL A/C THRESH TAG L 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;5^Q"
^DD(509850.9,31.05,21,0)="^^1^1^3050808^"
^DD(509850.9,31.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.05,23,0)="^^1^1^3050808^"
^DD(509850.9,31.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.05,"DT")="3050808"
^DD(509850.9,31.06,0)="*INITIAL A/C THRESH TAG L 1500^S^0:unmasked;1:masked;2:no response;3:unmasked no response;4:CNM;5:DNT;6:CNT;^31;6^Q"
^DD(509850.9,31.06,21,0)="^^1^1^3050808^"
^DD(509850.9,31.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.06,23,0)="^^1^1^3050808^"
^DD(509850.9,31.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.06,"DT")="3050808"
^DD(509850.9,31.07,0)="*INITIAL A/C THRESH TAG L 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;7^Q"
^DD(509850.9,31.07,21,0)="^^1^1^3050808^"
^DD(509850.9,31.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.07,23,0)="^^1^1^3050808^"
^DD(509850.9,31.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.07,"DT")="3050808"
^DD(509850.9,31.08,0)="*INITIAL A/C THRESH TAG L 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;8^Q"
^DD(509850.9,31.08,21,0)="^^1^1^3050808^"
^DD(509850.9,31.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.08,23,0)="^^1^1^3050808^"
^DD(509850.9,31.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.08,"DT")="3050808"
^DD(509850.9,31.09,0)="*INITIAL A/C THRESH TAG L 4000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;9^Q"
^DD(509850.9,31.09,21,0)="^^1^1^3050808^"
^DD(509850.9,31.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.09,23,0)="^^1^1^3050808^"
^DD(509850.9,31.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.09,"DT")="3050808"
^DD(509850.9,31.1,0)="*INITIAL A/C THRESH TAG L 6000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;10^Q"
^DD(509850.9,31.1,21,0)="^^1^1^3050808^"
^DD(509850.9,31.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.1,23,0)="^^1^1^3050808^"
^DD(509850.9,31.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.1,"DT")="3050808"
^DD(509850.9,31.11,0)="*INITIAL A/C THRESH TAG L 8000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;11^Q"
^DD(509850.9,31.11,21,0)="^^1^1^3050808^"
^DD(509850.9,31.11,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.11,23,0)="^^1^1^3050808^"
^DD(509850.9,31.11,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.11,"DT")="3050808"
^DD(509850.9,31.12,0)="*INITIAL A/C THRESH TAG L12000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^31;12^Q"
^DD(509850.9,31.12,21,0)="^^1^1^3050808^"
^DD(509850.9,31.12,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.12,23,0)="^^1^1^3050808^"
^DD(509850.9,31.12,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,31.12,"DT")="3050808"
^DD(509850.9,35.01,0)="RETEST A/C THRESHOLD L 125^F^^35;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.01,21,0)="^.001^1^1^3050802^^"
^DD(509850.9,35.01,21,1,0)="Value received if a retest was done at 125 Hz for Left ear."
^DD(509850.9,35.01,"DT")="3050726"
^DD(509850.9,35.02,0)="RETEST A/C THRESHOLD L 250^F^^35;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.02,21,0)="^^1^1^3050726^"
^DD(509850.9,35.02,21,1,0)="Value received if a retest was done at 250 Hz for Left ear."
^DD(509850.9,35.02,"DT")="3050726"
^DD(509850.9,35.03,0)="RETEST A/C THRESHOLD L 500^F^^35;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.03,21,0)="^^1^1^3050726^"
^DD(509850.9,35.03,21,1,0)="Value received if a retest was done at 500 Hz for Left ear."
^DD(509850.9,35.03,"DT")="3050726"
^DD(509850.9,35.04,0)="RETEST A/C THRESHOLD L 750^F^^35;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.04,21,0)="^^1^1^3050726^"
^DD(509850.9,35.04,21,1,0)="Value received if a retest was done at 750 Hz for Left ear."
^DD(509850.9,35.04,"DT")="3050726"
^DD(509850.9,35.05,0)="RETEST A/C THRESHOLD L 1000^F^^35;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.05,21,0)="^^1^1^3050726^"
^DD(509850.9,35.05,21,1,0)="Value received if a retest was done at 1000 Hz for Left ear."
^DD(509850.9,35.05,"DT")="3050726"
^DD(509850.9,35.06,0)="RETEST A/C THRESHOLD L 1500^F^^35;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.06,21,0)="^^1^1^3050726^"
^DD(509850.9,35.06,21,1,0)="Value received if a retest was done at 1500 Hz for Left ear."
^DD(509850.9,35.06,"DT")="3050726"
^DD(509850.9,35.07,0)="RETEST A/C THRESHOLD L 2000^F^^35;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.07,21,0)="^^1^1^3050726^"
^DD(509850.9,35.07,21,1,0)="Value received if a retest was done at 2000 Hz for Left ear."
^DD(509850.9,35.07,"DT")="3050726"
^DD(509850.9,35.08,0)="RETEST A/C THRESHOLD L 3000^F^^35;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.08,21,0)="^^1^1^3050726^"
^DD(509850.9,35.08,21,1,0)="Value received if a retest was done at 3000 Hz for Left ear."
^DD(509850.9,35.08,"DT")="3050726"
^DD(509850.9,35.09,0)="RETEST A/C THRESHOLD L 4000^F^^35;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.09,21,0)="^^1^1^3050726^"
^DD(509850.9,35.09,21,1,0)="Value received if a retest was done at 4000 Hz for Left ear."
^DD(509850.9,35.09,"DT")="3050726"
^DD(509850.9,35.1,0)="RETEST A/C THRESHOLD L 6000^F^^35;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.1,21,0)="^^1^1^3050726^"
^DD(509850.9,35.1,21,1,0)="Value received if a retest was done at 6000 Hz for Left ear."
^DD(509850.9,35.1,"DT")="3050726"
^DD(509850.9,35.11,0)="RETEST A/C THRESHOLD L 8000^F^^35;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,35.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,35.11,21,0)="^^1^1^3050726^"
^DD(509850.9,35.11,21,1,0)="Value received if a retest was done at 8000 Hz for Left ear."
^DD(509850.9,35.11,"DT")="3050726"
^DD(509850.9,40.01,0)="FINAL A/C THRESHOLD L 125^F^^40;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.01,21,0)="^.001^2^2^3030728^^"
^DD(509850.9,40.01,21,1,0)="The lowest level(dB) a 125 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.01,21,2,0)="Repeat testing of the Left ear."
^DD(509850.9,40.01,"DT")="3050809"
^DD(509850.9,40.02,0)="FINAL A/C THRESHOLD L 250^F^^40;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.02,21,0)="^^1^1^3030122^"
^DD(509850.9,40.02,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.02,"DT")="3050809"
^DD(509850.9,40.03,0)="FINAL A/C THRESHOLD L 500^F^^40;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.03,21,0)="^^1^1^3030122^"
^DD(509850.9,40.03,21,1,0)="The lowest level(dB) a 500 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.03,"DT")="3050809"
^DD(509850.9,40.04,0)="FINAL A/C THRESHOLD L 750^F^^40;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.04,21,0)="^^1^1^3030122^"
^DD(509850.9,40.04,21,1,0)="The lowest level(dB) a 750 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.04,"DT")="3050809"
^DD(509850.9,40.05,0)="FINAL A/C THRESHOLD L 1000^F^^40;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.05,21,0)="^^1^1^3030122^"
^DD(509850.9,40.05,21,1,0)="The lowest level(dB) a 1000 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.05,"DT")="3050809"
^DD(509850.9,40.06,0)="FINAL A/C THRESHOLD L 1500^F^^40;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.06,21,0)="^^1^1^3030122^"
^DD(509850.9,40.06,21,1,0)="The lowest level(dB) a 1500 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.06,"DT")="3050809"
^DD(509850.9,40.07,0)="FINAL A/C THRESHOLD L 2000^F^^40;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.07,21,0)="^^1^1^3030122^"
^DD(509850.9,40.07,21,1,0)="The lowest level(dB) a 2000 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.07,"DT")="3050809"
^DD(509850.9,40.08,0)="FINAL A/C THRESHOLD L 3000^F^^40;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.08,21,0)="^^1^1^3030122^"
^DD(509850.9,40.08,21,1,0)="The lowest level(dB) a 3000 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.08,"DT")="3050809"
^DD(509850.9,40.09,0)="FINAL A/C THRESHOLD L 4000^F^^40;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.09,21,0)="^^1^1^3030122^"
^DD(509850.9,40.09,21,1,0)="The lowest level(dB) a 4000 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.09,"DT")="3050809"
^DD(509850.9,40.1,0)="FINAL A/C THRESHOLD L 6000^F^^40;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.1,21,0)="^^1^1^3030122^"
^DD(509850.9,40.1,21,1,0)="The lowest level(dB) a 6000 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.1,"DT")="3050809"
^DD(509850.9,40.11,0)="FINAL A/C THRESHOLD L 8000^F^^40;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.11,21,0)="^^1^1^3030122^"
^DD(509850.9,40.11,21,1,0)="The lowest level(dB) a 8000 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.11,"DT")="3050809"
^DD(509850.9,40.12,0)="FINAL A/C THRESHOLD L 12000^F^^40;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,40.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,40.12,21,0)="^^1^1^3030122^"
^DD(509850.9,40.12,21,1,0)="The lowest level(dB) a 12000 Hz test frequency is heard 50% of the time."
^DD(509850.9,40.12,"DT")="3050809"
^DD(509850.9,41.01,0)="*REPEAT A/C THRESH TAG L 125^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;1^Q"
^DD(509850.9,41.01,21,0)="^^3^3^3050808^"
^DD(509850.9,41.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.01,21,2,0)="Set of codes indicating if the result was obtained using masking, and/or"
^DD(509850.9,41.01,21,3,0)="if the result was a No-Response."
^DD(509850.9,41.01,23,0)="^^1^1^3050808^"
^DD(509850.9,41.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.01,"DT")="3050808"
^DD(509850.9,41.02,0)="*REPEAT A/C THRESH TAG L 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;2^Q"
^DD(509850.9,41.02,21,0)="^^1^1^3050808^"
^DD(509850.9,41.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.02,23,0)="^^1^1^3050808^"
^DD(509850.9,41.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.02,"DT")="3050808"
^DD(509850.9,41.03,0)="*REPEAT A/C THRESH TAG 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;3^Q"
^DD(509850.9,41.03,21,0)="^^1^1^3050808^"
^DD(509850.9,41.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.03,23,0)="^^1^1^3050808^"
^DD(509850.9,41.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.03,"DT")="3050808"
^DD(509850.9,41.04,0)="*REPEAT A/C THRESH TAAG L 750^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;4^Q"
^DD(509850.9,41.04,21,0)="^^1^1^3050808^"
^DD(509850.9,41.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.04,23,0)="^^1^1^3050808^"
^DD(509850.9,41.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.04,"DT")="3050808"
^DD(509850.9,41.05,0)="*REPEAT A/C THRESH TAG L 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;5^Q"
^DD(509850.9,41.05,21,0)="^^1^1^3050808^"
^DD(509850.9,41.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.05,23,0)="^^1^1^3050808^"
^DD(509850.9,41.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.05,"DT")="3050808"
^DD(509850.9,41.06,0)="*REPEAT A/C THRESHOLD TAG 1500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;6^Q"
^DD(509850.9,41.06,21,0)="^^1^1^3050808^"
^DD(509850.9,41.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.06,23,0)="^^1^1^3050808^"
^DD(509850.9,41.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.06,"DT")="3050808"
^DD(509850.9,41.07,0)="*REPEAT A/C THRESH TAG L 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;7^Q"
^DD(509850.9,41.07,21,0)="^^1^1^3050808^"
^DD(509850.9,41.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.07,23,0)="^^1^1^3050808^"
^DD(509850.9,41.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.07,"DT")="3050808"
^DD(509850.9,41.08,0)="*REPEAT A/C THRESH TAG L 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;8^Q"
^DD(509850.9,41.08,21,0)="^^1^1^3050808^"
^DD(509850.9,41.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.08,23,0)="^^1^1^3050808^"
^DD(509850.9,41.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.08,"DT")="3050808"
^DD(509850.9,41.09,0)="*REPEAT A/C THRESH TAG L 4000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;9^Q"
^DD(509850.9,41.09,21,0)="^^1^1^3050808^"
^DD(509850.9,41.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.09,23,0)="^^1^1^3050808^"
^DD(509850.9,41.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.09,"DT")="3050808"
^DD(509850.9,41.1,0)="*REPEAT A/C THRESH TAG L 6000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;10^Q"
^DD(509850.9,41.1,21,0)="^^1^1^3050808^"
^DD(509850.9,41.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.1,23,0)="^^1^1^3050808^"
^DD(509850.9,41.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.1,"DT")="3050808"
^DD(509850.9,41.11,0)="*REPEAT A/C THRESH TAG L 8000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;11^Q"
^DD(509850.9,41.11,21,0)="^^1^1^3050808^"
^DD(509850.9,41.11,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.11,23,0)="^^1^1^3050808^"
^DD(509850.9,41.11,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.11,"DT")="3050808"
^DD(509850.9,41.12,0)="*REPEAT A/C THRESH TAG L 12000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^41;12^Q"
^DD(509850.9,41.12,21,0)="^^1^1^3050808^"
^DD(509850.9,41.12,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.12,23,0)="^^1^1^3050808^"
^DD(509850.9,41.12,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,41.12,"DT")="3050808"
^DD(509850.9,50.01,0)="*INITIAL A/C MASK LEVEL R 125^NJ3,0^^50;1^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.01,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.01,21,0)="^^3^3^3050808^"
^DD(509850.9,50.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.01,21,2,0)="The initial masking noise level(dB) needed to obtain a true threshold "
^DD(509850.9,50.01,21,3,0)="at 125 Hz for the Right ear"
^DD(509850.9,50.01,23,0)="^^1^1^3050808^"
^DD(509850.9,50.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.01,"DT")="3050808"
^DD(509850.9,50.02,0)="*INITIAL A/C MASK LEVEL R 250^NJ3,0^^50;2^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.02,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.02,21,0)="^^2^2^3050808^"
^DD(509850.9,50.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.02,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 250 Hz"
^DD(509850.9,50.02,23,0)="^^1^1^3050808^"
^DD(509850.9,50.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.02,"DT")="3050808"
^DD(509850.9,50.03,0)="*INITIAL A/C MASK LEVELR 500^NJ3,0^^50;3^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.03,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.03,21,0)="^^2^2^3050808^"
^DD(509850.9,50.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.03,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,50.03,23,0)="^^1^1^3050808^"
^DD(509850.9,50.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.03,"DT")="3050808"
^DD(509850.9,50.04,0)="*INITIAL A/C MASK LEVEL R 750^NJ3,0^^50;4^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.04,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.04,21,0)="^^2^2^3050808^"
^DD(509850.9,50.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.04,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,50.04,23,0)="^^1^1^3050808^"
^DD(509850.9,50.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.04,"DT")="3050808"
^DD(509850.9,50.05,0)="*INITIAL A/C MASK LEVEL R 1000^NJ3,0^^50;5^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.05,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.05,21,0)="^^2^2^3050808^"
^DD(509850.9,50.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.05,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,50.05,23,0)="^^1^1^3050808^"
^DD(509850.9,50.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.05,"DT")="3050808"
^DD(509850.9,50.06,0)="*INITIAL A/C MASK LEVEL R 1500^NJ3,0^^50;6^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.06,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.06,21,0)="^^2^2^3050808^"
^DD(509850.9,50.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.06,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,50.06,23,0)="^^1^1^3050808^"
^DD(509850.9,50.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.06,"DT")="3050808"
^DD(509850.9,50.07,0)="*INITIAL A/C MASK LEVEL R 2000^NJ3,0^^50;7^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.07,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.07,21,0)="^^2^2^3050808^"
^DD(509850.9,50.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.07,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,50.07,23,0)="^^1^1^3050808^"
^DD(509850.9,50.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.07,"DT")="3050808"
^DD(509850.9,50.08,0)="*INITIAL A/C MASK LEVEL R 3000^NJ3,0^^50;8^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.08,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.08,21,0)="^^2^2^3050808^"
^DD(509850.9,50.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.08,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,50.08,23,0)="^^1^1^3050808^"
^DD(509850.9,50.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.08,"DT")="3050808"
^DD(509850.9,50.09,0)="*INITIAL A/C MASK LEVEL R 4000^NJ3,0^^50;9^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.09,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.09,21,0)="^^2^2^3050808^"
^DD(509850.9,50.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.09,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,50.09,23,0)="^^1^1^3050808^"
^DD(509850.9,50.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.09,"DT")="3050808"
^DD(509850.9,50.1,0)="*INITIAL A/C MASK LEVEL R 6000^NJ3,0^^50;10^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.1,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.1,21,0)="^^2^2^3050808^"
^DD(509850.9,50.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.1,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,50.1,23,0)="^^1^1^3050808^"
^DD(509850.9,50.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.1,"DT")="3050808"
^DD(509850.9,50.11,0)="*INITIAL A/C MASK LEVEL R 8000^NJ3,0^^50;11^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.11,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.11,21,0)="^^2^2^3050808^"
^DD(509850.9,50.11,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.11,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 8000 Hz"
^DD(509850.9,50.11,23,0)="^^1^1^3050808^"
^DD(509850.9,50.11,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.11,"DT")="3050808"
^DD(509850.9,50.12,0)="*INITIAL A/C MASK LEVEL R12000^NJ3,0^^50;12^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,50.12,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,50.12,21,0)="^^2^2^3050808^"
^DD(509850.9,50.12,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.12,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 12000 Hz"
^DD(509850.9,50.12,23,0)="^^1^1^3050808^"
^DD(509850.9,50.12,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,50.12,"DT")="3050808"
^DD(509850.9,51.01,0)="FINAL A/C MASK LEVEL R 125^F^^51;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.01,21,0)="^.001^2^2^3030728^^^^"
^DD(509850.9,51.01,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 125 Hz"
^DD(509850.9,51.01,21,2,0)="during final testing for the Right ear."
^DD(509850.9,51.01,"DT")="3050726"
^DD(509850.9,51.02,0)="FINAL A/C MASK LEVEL R 250^F^^51;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.02,21,0)="^^1^1^3030122^"
^DD(509850.9,51.02,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 250 Hz"
^DD(509850.9,51.02,"DT")="3050726"
^DD(509850.9,51.03,0)="FINAL A/C MASK LEVEL R 500^F^^51;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.03,21,0)="^^1^1^3030122^"
^DD(509850.9,51.03,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,51.03,"DT")="3050726"
^DD(509850.9,51.04,0)="FINAL A/C MASK LEVEL R 750^F^^51;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.04,21,0)="^^1^1^3030122^"
^DD(509850.9,51.04,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,51.04,"DT")="3050726"
^DD(509850.9,51.05,0)="FINAL A/C MASK LEVEL R 1000^F^^51;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.05,21,0)="^^1^1^3030122^"
^DD(509850.9,51.05,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,51.05,"DT")="3050726"
^DD(509850.9,51.06,0)="FINAL A/C MASK LEVEL R 1500^F^^51;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.06,21,0)="^^1^1^3030122^"
^DD(509850.9,51.06,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,51.06,"DT")="3050726"
^DD(509850.9,51.07,0)="FINAL A/C MASK LEVEL R 2000^F^^51;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.07,21,0)="^^1^1^3030122^"
^DD(509850.9,51.07,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,51.07,"DT")="3050726"
^DD(509850.9,51.08,0)="FINAL A/C MASK LEVEL R 3000^F^^51;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.08,21,0)="^^1^1^3030122^"
^DD(509850.9,51.08,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,51.08,"DT")="3050726"
^DD(509850.9,51.09,0)="FINAL A/C MASK LEVEL R 4000^F^^51;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.09,21,0)="^^1^1^3030122^"
^DD(509850.9,51.09,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,51.09,"DT")="3050726"
^DD(509850.9,51.1,0)="FINAL A/C MASK LEVEL R 6000^F^^51;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.1,21,0)="^^1^1^3030122^"
^DD(509850.9,51.1,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,51.1,"DT")="3050726"
^DD(509850.9,51.11,0)="FINAL A/C MASK LEVEL R 8000^F^^51;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.11,21,0)="^.001^1^1^3030122^^"
^DD(509850.9,51.11,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 8000 Hz"
^DD(509850.9,51.11,"DT")="3050726"
^DD(509850.9,51.12,0)="FINAL A/C MASK LEVEL R 12000^F^^51;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,51.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,51.12,21,0)="^^1^1^3030122^"
^DD(509850.9,51.12,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 12000 Hz"
^DD(509850.9,51.12,"DT")="3050726"
^DD(509850.9,60.01,0)="*INITIAL A/C MASK LEVEL L 125^NJ3,0^^60;1^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.01,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.01,21,0)="^^3^3^3050808^"
^DD(509850.9,60.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.01,21,2,0)="The initial masking noise level(dB) needed to obtain a true threshold "
^DD(509850.9,60.01,21,3,0)="at 125 Hz on the Left ear."
^DD(509850.9,60.01,23,0)="^^1^1^3050808^"
^DD(509850.9,60.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.01,"DT")="3050808"
^DD(509850.9,60.02,0)="*INITIAL A/C MASK LEVEL L 250^NJ3,0^^60;2^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.02,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.02,21,0)="^^2^2^3050808^"
^DD(509850.9,60.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.02,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 250 Hz"
^DD(509850.9,60.02,23,0)="^^1^1^3050808^"
^DD(509850.9,60.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.02,"DT")="3050808"
^DD(509850.9,60.03,0)="*INITIAL A/C MASK LEVEL L 500^NJ3,0^^60;3^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.03,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.03,21,0)="^^2^2^3050808^"
^DD(509850.9,60.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.03,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,60.03,23,0)="^^1^1^3050808^"
^DD(509850.9,60.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.03,"DT")="3050808"
^DD(509850.9,60.04,0)="*INITIAL A/C MASK LEVEL L 750^NJ3,0^^60;4^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.04,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.04,21,0)="^^2^2^3050808^"
^DD(509850.9,60.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.04,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,60.04,23,0)="^^1^1^3050808^"
^DD(509850.9,60.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.04,"DT")="3050808"
^DD(509850.9,60.05,0)="*INITIAL A/C MASK LEVEL L 1000^NJ3,0^^60;5^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.05,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.05,21,0)="^^2^2^3050808^"
^DD(509850.9,60.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.05,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,60.05,23,0)="^^1^1^3050808^"
^DD(509850.9,60.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.05,"DT")="3050808"
^DD(509850.9,60.06,0)="*INITIAL A/C MASK LEVEL L 1500^NJ3,0^^60;6^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.06,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.06,21,0)="^^2^2^3050808^"
^DD(509850.9,60.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.06,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,60.06,23,0)="^^1^1^3050808^"
^DD(509850.9,60.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.06,"DT")="3050808"
^DD(509850.9,60.07,0)="*INITIAL A/C MASK LEVEL L 2000^NJ3,0^^60;7^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.07,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.07,21,0)="^^2^2^3050808^"
^DD(509850.9,60.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.07,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,60.07,23,0)="^^1^1^3050808^"
^DD(509850.9,60.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.07,"DT")="3050808"
^DD(509850.9,60.08,0)="*INITIAL A/C MASK LEVEL L 3000^NJ3,0^^60;8^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.08,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.08,21,0)="^^2^2^3050808^"
^DD(509850.9,60.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.08,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,60.08,23,0)="^^1^1^3050808^"
^DD(509850.9,60.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.08,"DT")="3050808"
^DD(509850.9,60.09,0)="*INITIAL A/C MASK LEVEL L 4000^NJ3,0^^60;9^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.09,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.09,21,0)="^^2^2^3050808^"
^DD(509850.9,60.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.09,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,60.09,23,0)="^^1^1^3050808^"
^DD(509850.9,60.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.09,"DT")="3050808"
^DD(509850.9,60.1,0)="*INITIAL A/C MASK LEVEL L 6000^NJ3,0^^60;10^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.1,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.1,21,0)="^^2^2^3050808^"
^DD(509850.9,60.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.1,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,60.1,23,0)="^^1^1^3050808^"
^DD(509850.9,60.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.1,"DT")="3050808"
^DD(509850.9,60.11,0)="*INITIAL A/C MASK LEVEL L 8000^NJ3,0^^60;11^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.11,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.11,21,0)="^^2^2^3050808^"
^DD(509850.9,60.11,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.11,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 8000 Hz"
^DD(509850.9,60.11,23,0)="^^1^1^3050808^"
^DD(509850.9,60.11,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.11,"DT")="3050808"
^DD(509850.9,60.12,0)="*INITIAL A/C MASK LEVEL L12000^NJ3,0^^60;12^K:+X'=X!(X>120)!(X<-10)!(X?.E1"".""1N.N) X"
^DD(509850.9,60.12,3)="Type a Number between -10 and 120, 0 Decimal Digits"
^DD(509850.9,60.12,21,0)="^^2^2^3050808^"
^DD(509850.9,60.12,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.12,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 12000 Hz"
^DD(509850.9,60.12,23,0)="^^1^1^3050808^"
^DD(509850.9,60.12,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,60.12,"DT")="3050808"
^DD(509850.9,61.01,0)="FINAL A/C MASK LEVEL L 125^F^^61;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.01,21,0)="^.001^2^2^3030728^^^^"
^DD(509850.9,61.01,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 125 Hz"
^DD(509850.9,61.01,21,2,0)="during final testing of the Left ear."
^DD(509850.9,61.01,"DT")="3050726"
^DD(509850.9,61.02,0)="FINAL A/C MASK LEVEL L 250^F^^61;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.02,21,0)="^^1^1^3030122^"
^DD(509850.9,61.02,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 250 Hz"
^DD(509850.9,61.02,"DT")="3050726"
^DD(509850.9,61.03,0)="FINAL A/C MASK LEVEL L 500^F^^61;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.03,21,0)="^^1^1^3030122^"
^DD(509850.9,61.03,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,61.03,"DT")="3050726"
^DD(509850.9,61.04,0)="FINAL A/C MASK LEVEL L 750^F^^61;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.04,21,0)="^^1^1^3030122^"
^DD(509850.9,61.04,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,61.04,"DT")="3050726"
^DD(509850.9,61.05,0)="FINAL A/C MASK LEVEL L 1000^F^^61;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.05,21,0)="^^1^1^3030122^"
^DD(509850.9,61.05,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,61.05,"DT")="3050726"
^DD(509850.9,61.06,0)="FINAL A/C MASK LEVEL L 1500^F^^61;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.06,21,0)="^^1^1^3030122^"
^DD(509850.9,61.06,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,61.06,"DT")="3050726"
^DD(509850.9,61.07,0)="FINAL A/C MASK LEVEL L 2000^F^^61;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.07,21,0)="^^1^1^3030122^"
^DD(509850.9,61.07,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,61.07,"DT")="3050726"
^DD(509850.9,61.08,0)="FINAL A/C MASK LEVEL L 3000^F^^61;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.08,21,0)="^^1^1^3030122^"
^DD(509850.9,61.08,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,61.08,"DT")="3050726"
^DD(509850.9,61.09,0)="FINAL A/C MASK LEVEL L 4000^F^^61;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.09,21,0)="^^1^1^3030122^"
^DD(509850.9,61.09,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,61.09,"DT")="3050726"
^DD(509850.9,61.1,0)="FINAL A/C MASK LEVEL L 6000^F^^61;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.1,21,0)="^^1^1^3030122^"
^DD(509850.9,61.1,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,61.1,"DT")="3050726"
^DD(509850.9,61.11,0)="FINAL A/C MASK LEVEL L 8000^F^^61;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.11,21,0)="^^1^1^3030122^"
^DD(509850.9,61.11,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 8000 Hz"
^DD(509850.9,61.11,"DT")="3050726"
^DD(509850.9,61.12,0)="FINAL A/C MASK LEVEL L 12000^F^^61;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,61.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,61.12,21,0)="^^1^1^3030122^"
^DD(509850.9,61.12,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 12000 Hz"
^DD(509850.9,61.12,"DT")="3050726"
^DD(509850.9,70.01,0)="INITIAL B/C THRESHOLD R 250^F^^70;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.01,21,0)="^.001^2^2^3030728^^^^"
^DD(509850.9,70.01,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time"
^DD(509850.9,70.01,21,2,0)="during bone conduction testing of the Right ear."
^DD(509850.9,70.01,"DT")="3050726"
^DD(509850.9,70.02,0)="INITIAL B/C THRESHOLD R 500^F^^70;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.02,21,0)="^^1^1^3030122^"
^DD(509850.9,70.02,21,1,0)="The lowest level(dB) a 500 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.02,"DT")="3050726"
^DD(509850.9,70.03,0)="INITIAL B/C THRESHOLD R 750^F^^70;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.03,21,0)="^^1^1^3030122^"
^DD(509850.9,70.03,21,1,0)="The lowest level(dB) a 750 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.03,"DT")="3050726"
^DD(509850.9,70.04,0)="INITIAL B/C THRESHOLD R 1000^F^^70;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.04,21,0)="^^1^1^3030122^"
^DD(509850.9,70.04,21,1,0)="The lowest level(dB) a 1000 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.04,"DT")="3050726"
^DD(509850.9,70.05,0)="INITIAL B/C THRESHOLD R 1500^F^^70;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.05,21,0)="^^1^1^3030122^"
^DD(509850.9,70.05,21,1,0)="The lowest level(dB) a 1500 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.05,"DT")="3050726"
^DD(509850.9,70.06,0)="INITIAL B/C THRESHOLD R 2000^F^^70;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.06,21,0)="^^1^1^3030122^"
^DD(509850.9,70.06,21,1,0)="The lowest level(dB) a 2000 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.06,"DT")="3050726"
^DD(509850.9,70.07,0)="INITIAL B/C THRESHOLD R 3000^F^^70;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.07,21,0)="^^1^1^3030122^"
^DD(509850.9,70.07,21,1,0)="The lowest level(dB) a 3000 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.07,"DT")="3050726"
^DD(509850.9,70.08,0)="INITIAL B/C THRESHOLD R 4000^F^^70;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.08,21,0)="^^1^1^3030122^"
^DD(509850.9,70.08,21,1,0)="The lowest level(dB) a 4000 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.08,"DT")="3050726"
^DD(509850.9,70.09,0)="INITIAL B/C THRESHOLD R 6000^F^^70;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,70.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,70.09,21,0)="^^1^1^3030122^"
^DD(509850.9,70.09,21,1,0)="The lowest level(dB) a 6000 Hz test frequency is heard 50% of the time."
^DD(509850.9,70.09,"DT")="3050726"
^DD(509850.9,71.01,0)="*INITIAL B/C THRESH TAG R 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;1^Q"
^DD(509850.9,71.01,3)=" "
^DD(509850.9,71.01,21,0)="^^3^3^3050808^"
^DD(509850.9,71.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.01,21,2,0)="Indicator of masking presence during bone conduction testing"
^DD(509850.9,71.01,21,3,0)="at 250 Hz on the Right ear."
^DD(509850.9,71.01,23,0)="^^1^1^3050808^"
^DD(509850.9,71.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.01,"DT")="3050808"
^DD(509850.9,71.02,0)="*INITIAL B/C THRESH TAG R 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;2^Q"
^DD(509850.9,71.02,3)=" "
^DD(509850.9,71.02,21,0)="^^2^2^3050808^"
^DD(509850.9,71.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.02,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.02,23,0)="^^1^1^3050808^"
^DD(509850.9,71.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.02,"DT")="3050808"
^DD(509850.9,71.03,0)="*INITIAL B/C THRESH TAG R 750^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;3^Q"
^DD(509850.9,71.03,3)=" "
^DD(509850.9,71.03,21,0)="^^2^2^3050808^"
^DD(509850.9,71.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.03,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.03,23,0)="^^1^1^3050808^"
^DD(509850.9,71.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.03,"DT")="3050808"
^DD(509850.9,71.04,0)="*INITIAL B/C THRESH TAG R 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;4^Q"
^DD(509850.9,71.04,3)=" "
^DD(509850.9,71.04,21,0)="^^2^2^3050808^"
^DD(509850.9,71.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.04,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.04,23,0)="^^1^1^3050808^"
^DD(509850.9,71.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.04,"DT")="3050808"
^DD(509850.9,71.05,0)="*INITIAL B/C THRESH TAG R 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;5^Q"
^DD(509850.9,71.05,3)=" "
^DD(509850.9,71.05,21,0)="^^2^2^3050808^"
^DD(509850.9,71.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.05,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.05,23,0)="^^1^1^3050808^"
^DD(509850.9,71.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.05,"DT")="3050808"
^DD(509850.9,71.06,0)="*INITIAL B/C THRESH TAG R 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;6^Q"
^DD(509850.9,71.06,3)=" "
^DD(509850.9,71.06,21,0)="^^2^2^3050808^"
^DD(509850.9,71.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.06,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.06,23,0)="^^1^1^3050808^"
^DD(509850.9,71.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.06,"DT")="3050808"
^DD(509850.9,71.07,0)="*INITIAL B/C THRESH TAG R 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;7^Q"
^DD(509850.9,71.07,3)=" "
^DD(509850.9,71.07,21,0)="^^2^2^3050808^"
^DD(509850.9,71.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.07,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.07,23,0)="^^1^1^3050808^"
^DD(509850.9,71.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.07,"DT")="3050808"
^DD(509850.9,71.08,0)="*INITIAL B/C THRESH TAG R 4000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;8^Q"
^DD(509850.9,71.08,3)=" "
^DD(509850.9,71.08,21,0)="^^2^2^3050808^"
^DD(509850.9,71.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.08,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.08,23,0)="^^1^1^3050808^"
^DD(509850.9,71.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.08,"DT")="3050808"
^DD(509850.9,71.09,0)="*INITIAL B/C THRESH TAG R 6000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^71;9^Q"
^DD(509850.9,71.09,3)=" "
^DD(509850.9,71.09,21,0)="^^2^2^3050808^"
^DD(509850.9,71.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.09,21,2,0)="Indicator of masking presence."
^DD(509850.9,71.09,23,0)="^^1^1^3050808^"
^DD(509850.9,71.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,71.09,"DT")="3050808"
^DD(509850.9,72.01,0)="RETEST B/C THRESHOLD R 250^F^^72;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.01,21,0)="^.001^2^2^3050802^^"
^DD(509850.9,72.01,21,1,0)="Value received if a bone conduction retest was done at 250 Hz for Right"
^DD(509850.9,72.01,21,2,0)="ear."
^DD(509850.9,72.01,"DT")="3050726"
^DD(509850.9,72.02,0)="RETEST B/C THRESHOLD R 500^F^^72;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.02,21,0)="^^2^2^3050726^"
^DD(509850.9,72.02,21,1,0)="Value received if a bone conduction retest was done at 500 Hz for Right"
^DD(509850.9,72.02,21,2,0)="ear."
^DD(509850.9,72.02,"DT")="3050726"
^DD(509850.9,72.03,0)="RETEST B/C THRESHOLD R 750^F^^72;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.03,21,0)="^^2^2^3050726^"
^DD(509850.9,72.03,21,1,0)="Value received if a bone conduction retest was done at 750 Hz for Right"
^DD(509850.9,72.03,21,2,0)="ear."
^DD(509850.9,72.03,"DT")="3050726"
^DD(509850.9,72.04,0)="RETEST B/C THRESHOLD R 1000^F^^72;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.04,21,0)="^^2^2^3050726^"
^DD(509850.9,72.04,21,1,0)="Value received if a bone conduction retest was done at 1000 Hz for Right"
^DD(509850.9,72.04,21,2,0)="ear."
^DD(509850.9,72.04,"DT")="3050726"
^DD(509850.9,72.05,0)="RETEST B/C THRESHOLD R 1500^F^^72;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.05,21,0)="^^2^2^3050726^"
^DD(509850.9,72.05,21,1,0)="Value received if a bone conduction retest was done at 1500 Hz for Right"
^DD(509850.9,72.05,21,2,0)="ear."
^DD(509850.9,72.05,"DT")="3050726"
^DD(509850.9,72.06,0)="RETEST B/C THRESHOLD R 2000^F^^72;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.06,21,0)="^^2^2^3050726^"
^DD(509850.9,72.06,21,1,0)="Value received if a bone conduction retest was done at 2000 Hz for Right"
^DD(509850.9,72.06,21,2,0)="ear."
^DD(509850.9,72.06,"DT")="3050726"
^DD(509850.9,72.07,0)="RETEST B/C THRESHOLD R 3000^F^^72;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.07,21,0)="^^2^2^3050726^"
^DD(509850.9,72.07,21,1,0)="Value received if a bone conduction retest was done at 3000 Hz for Right"
^DD(509850.9,72.07,21,2,0)="ear."
^DD(509850.9,72.07,"DT")="3050726"
^DD(509850.9,72.08,0)="RETEST B/C THRESHOLD R 4000^F^^72;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.08,21,0)="^^2^2^3050726^"
^DD(509850.9,72.08,21,1,0)="Value received if a bone conduction retest was done at 4000 Hz for Right"
^DD(509850.9,72.08,21,2,0)="ear."
^DD(509850.9,72.08,"DT")="3050726"
^DD(509850.9,72.09,0)="RETEST B/C THRESHOLD R 6000^F^^72;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,72.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,72.09,21,0)="^^2^2^3050726^"
^DD(509850.9,72.09,21,1,0)="Value received if a bone conduction retest was done at 6000 Hz for Right"
^DD(509850.9,72.09,21,2,0)="ear."
^DD(509850.9,72.09,"DT")="3050726"
^DD(509850.9,75.01,0)="FINAL B/C THRESHOLD R 250^F^^75;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.01,21,0)="^^2^2^3030728^"
^DD(509850.9,75.01,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time"
^DD(509850.9,75.01,21,2,0)="during repeat bone conduction testing on the Right ear."
^DD(509850.9,75.01,"DT")="3050809"
^DD(509850.9,75.02,0)="FINAL B/C THRESHOLD R 500^F^^75;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.02,"DT")="3050809"
^DD(509850.9,75.03,0)="FINAL B/C THRESHOLD R 750^F^^75;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.03,"DT")="3050809"
^DD(509850.9,75.04,0)="FINAL B/C THRESHOLD R 1000^F^^75;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.04,"DT")="3050809"
^DD(509850.9,75.05,0)="FINAL B/C THRESHOLD R 1500^F^^75;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.05,"DT")="3050809"
^DD(509850.9,75.06,0)="FINAL B/C THRESHOLD R 2000^F^^75;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.06,"DT")="3050809"
^DD(509850.9,75.07,0)="FINAL B/C THRESHOLD R 3000^F^^75;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.07,"DT")="3050809"
^DD(509850.9,75.08,0)="FINAL B/C THRESHOLD R 4000^F^^75;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.08,"DT")="3050809"
^DD(509850.9,75.09,0)="FINAL B/C THRESHOLD R 6000^F^^75;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,75.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,75.09,"DT")="3050809"
^DD(509850.9,76.01,0)="*REPEAT B/C THRESH TAG R 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;1^Q"
^DD(509850.9,76.01,21,0)="^^3^3^3050808^"
^DD(509850.9,76.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.01,21,2,0)="Indicator of masking presence during repeat bone conduction testing"
^DD(509850.9,76.01,21,3,0)="of the Right ear."
^DD(509850.9,76.01,23,0)="^^1^1^3050808^"
^DD(509850.9,76.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.01,"DT")="3050808"
^DD(509850.9,76.02,0)="*REPEAT B/C THRESH TAG R 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;2^Q"
^DD(509850.9,76.02,21,0)="^^2^2^3050808^"
^DD(509850.9,76.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.02,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.02,23,0)="^^1^1^3050808^"
^DD(509850.9,76.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.02,"DT")="3050808"
^DD(509850.9,76.03,0)="*REPEAT B/C THRESH TAG R 750^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;3^Q"
^DD(509850.9,76.03,21,0)="^^2^2^3050808^"
^DD(509850.9,76.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.03,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.03,23,0)="^^1^1^3050808^"
^DD(509850.9,76.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.03,"DT")="3050808"
^DD(509850.9,76.04,0)="*REPEAT B/C THRESH TAG R 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;4^Q"
^DD(509850.9,76.04,21,0)="^^2^2^3050808^"
^DD(509850.9,76.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.04,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.04,23,0)="^^1^1^3050808^"
^DD(509850.9,76.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.04,"DT")="3050808"
^DD(509850.9,76.05,0)="*REPEAT B/C THRESH TAG R 1500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;5^Q"
^DD(509850.9,76.05,21,0)="^^2^2^3050808^"
^DD(509850.9,76.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.05,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.05,23,0)="^^1^1^3050808^"
^DD(509850.9,76.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.05,"DT")="3050808"
^DD(509850.9,76.06,0)="*REPEAT B/C THRESH TAG R 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;6^Q"
^DD(509850.9,76.06,21,0)="^^2^2^3050808^"
^DD(509850.9,76.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.06,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.06,23,0)="^^1^1^3050808^"
^DD(509850.9,76.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.06,"DT")="3050808"
^DD(509850.9,76.07,0)="*REPEAT B/C THRESH TAG R 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;7^Q"
^DD(509850.9,76.07,21,0)="^^2^2^3050808^"
^DD(509850.9,76.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.07,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.07,23,0)="^^1^1^3050808^"
^DD(509850.9,76.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.07,"DT")="3050808"
^DD(509850.9,76.08,0)="*REPEAT B/C THRESH TAG R 4000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;8^Q"
^DD(509850.9,76.08,21,0)="^^2^2^3050808^"
^DD(509850.9,76.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.08,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.08,23,0)="^^1^1^3050808^"
^DD(509850.9,76.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.08,"DT")="3050808"
^DD(509850.9,76.09,0)="*REPEAT B/C THRESH TAG R 6000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^76;9^Q"
^DD(509850.9,76.09,21,0)="^^2^2^3050808^"
^DD(509850.9,76.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.09,21,2,0)="Indicator of masking presence."
^DD(509850.9,76.09,23,0)="^^1^1^3050808^"
^DD(509850.9,76.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,76.09,"DT")="3050808"
^DD(509850.9,80.01,0)="INITIAL B/C THRESHOLD L 250^F^^80;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.01,21,0)="^.001^2^2^3030728^^^"
^DD(509850.9,80.01,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time"
^DD(509850.9,80.01,21,2,0)="during initial bone conduction testing on the Left ear."
^DD(509850.9,80.01,"DT")="3050726"
^DD(509850.9,80.02,0)="INITIAL B/C THRESHOLD L 500^F^^80;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.02,21,0)="^.001^2^2^3030728^^"
^DD(509850.9,80.02,21,1,0)="The lowest level(dB) a 500 Hz test frequency is heard 50% of the time"
^DD(509850.9,80.02,21,2,0)="during initial bone conduction testing on the Left ear."
^DD(509850.9,80.02,"DT")="3050726"
^DD(509850.9,80.03,0)="INITIAL B/C THRESHOLD L 750^F^^80;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.03,21,0)="^^1^1^3030122^"
^DD(509850.9,80.03,21,1,0)="The lowest level(dB) a 750 Hz test frequency is heard 50% of the time."
^DD(509850.9,80.03,"DT")="3050726"
^DD(509850.9,80.04,0)="INITIAL B/C THRESHOLD L 1000^F^^80;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.04,21,0)="^^1^1^3030122^"
^DD(509850.9,80.04,21,1,0)="The lowest level(dB) a 1000 Hz test frequency is heard 50% of the time."
^DD(509850.9,80.04,"DT")="3050726"
^DD(509850.9,80.05,0)="INITIAL B/C THRESHOLD L 1500^F^^80;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.05,21,0)="^^1^1^3030122^"
^DD(509850.9,80.05,21,1,0)="The lowest level(dB) a 1500 Hz test frequency is heard 50% of the time."
^DD(509850.9,80.05,"DT")="3050726"
^DD(509850.9,80.06,0)="INITIAL B/C THRESHOLD L 2000^F^^80;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.06,21,0)="^^1^1^3030122^"
^DD(509850.9,80.06,21,1,0)="The lowest level(dB) a 2000 Hz test frequency is heard 50% of the time."
^DD(509850.9,80.06,"DT")="3050726"
^DD(509850.9,80.07,0)="INITIAL B/C THRESHOLD L 3000^F^^80;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.07,21,0)="^^1^1^3030122^"
^DD(509850.9,80.07,21,1,0)="The lowest level(dB) a 3000 Hz test frequency is heard 50% of the time."
^DD(509850.9,80.07,"DT")="3050726"
^DD(509850.9,80.08,0)="INITIAL B/C THRESHOLD L 4000^F^^80;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.08,21,0)="^^1^1^3030122^"
^DD(509850.9,80.08,21,1,0)="The lowest level(dB) a 4000 Hz test frequency is heard 50% of the time."
^DD(509850.9,80.08,"DT")="3050726"
^DD(509850.9,80.09,0)="INITIAL B/C THRESHOLD L 6000^F^^80;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,80.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,80.09,21,0)="^^1^1^3030122^"
^DD(509850.9,80.09,21,1,0)="The lowest level(dB) a 6000 Hz test frequency is heard 50% of the time."
^DD(509850.9,80.09,"DT")="3050726"
^DD(509850.9,81.01,0)="*INITIAL B/C THRESH TAG L 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;1^Q"
^DD(509850.9,81.01,3)=" "
^DD(509850.9,81.01,21,0)="^^3^3^3050808^"
^DD(509850.9,81.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.01,21,2,0)="Indicator of masking presence during bone conduction testing"
^DD(509850.9,81.01,21,3,0)="on the Left ear at 250 Hz."
^DD(509850.9,81.01,23,0)="^^1^1^3050808^"
^DD(509850.9,81.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.01,"DT")="3050808"
^DD(509850.9,81.02,0)="*INITIAL B/C THRESH TAG L 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;2^Q"
^DD(509850.9,81.02,3)=" "
^DD(509850.9,81.02,21,0)="^^2^2^3050808^"
^DD(509850.9,81.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.02,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.02,23,0)="^^1^1^3050808^"
^DD(509850.9,81.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.02,"DT")="3050808"
^DD(509850.9,81.03,0)="*INITIAL B/C THRESH TAG L 750^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;3^Q"
^DD(509850.9,81.03,3)=" "
^DD(509850.9,81.03,21,0)="^^2^2^3050808^"
^DD(509850.9,81.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.03,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.03,23,0)="^^1^1^3050808^"
^DD(509850.9,81.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.03,"DT")="3050808"
^DD(509850.9,81.04,0)="*INITIAL B/C THRESH TAG L 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;4^Q"
^DD(509850.9,81.04,3)=" "
^DD(509850.9,81.04,21,0)="^^2^2^3050808^"
^DD(509850.9,81.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.04,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.04,23,0)="^^1^1^3050808^"
^DD(509850.9,81.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.04,"DT")="3050808"
^DD(509850.9,81.05,0)="*INITIAL B/C THRESH TAG L 1500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;5^Q"
^DD(509850.9,81.05,3)=" "
^DD(509850.9,81.05,21,0)="^^2^2^3050808^"
^DD(509850.9,81.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.05,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.05,23,0)="^^1^1^3050808^"
^DD(509850.9,81.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.05,"DT")="3050808"
^DD(509850.9,81.06,0)="*INITIAL B/C THRESH TAG L 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;6^Q"
^DD(509850.9,81.06,3)=" "
^DD(509850.9,81.06,21,0)="^^2^2^3050808^"
^DD(509850.9,81.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.06,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.06,23,0)="^^1^1^3050808^"
^DD(509850.9,81.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.06,"DT")="3050808"
^DD(509850.9,81.07,0)="*INITIAL B/C THRESH TAG L 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;7^Q"
^DD(509850.9,81.07,3)=" "
^DD(509850.9,81.07,21,0)="^^2^2^3050808^"
^DD(509850.9,81.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.07,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.07,23,0)="^^1^1^3050808^"
^DD(509850.9,81.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.07,"DT")="3050808"
^DD(509850.9,81.08,0)="*INITIAL B/C THRESH TAG L 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;8^Q"
^DD(509850.9,81.08,3)=" "
^DD(509850.9,81.08,21,0)="^^2^2^3050808^"
^DD(509850.9,81.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.08,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.08,23,0)="^^1^1^3050808^"
^DD(509850.9,81.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.08,"DT")="3050808"
^DD(509850.9,81.09,0)="*INITIAL B/C THRESH TAG L 6000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^81;9^Q"
^DD(509850.9,81.09,3)=" "
^DD(509850.9,81.09,21,0)="^^2^2^3050808^"
^DD(509850.9,81.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.09,21,2,0)="Indicator of masking presence."
^DD(509850.9,81.09,23,0)="^^1^1^3050808^"
^DD(509850.9,81.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,81.09,"DT")="3050808"
^DD(509850.9,82.01,0)="RETEST B/C THRESHOLD L 250^F^^82;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.01,21,0)="^.001^2^2^3050802^^"
^DD(509850.9,82.01,21,1,0)="Value received if a bone conduction retest was done at 250 Hz for Left"
^DD(509850.9,82.01,21,2,0)="ear."
^DD(509850.9,82.01,"DT")="3050726"
^DD(509850.9,82.02,0)="RETEST B/C THRESHOLD L 500^F^^82;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.02,21,0)="^^2^2^3050726^"
^DD(509850.9,82.02,21,1,0)="Value received if a bone conduction retest was done at 500 Hz for Left"
^DD(509850.9,82.02,21,2,0)="ear."
^DD(509850.9,82.02,"DT")="3050815"
^DD(509850.9,82.03,0)="RETEST B/C THRESHOLD L 750^F^^82;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.03,21,0)="^^2^2^3050726^"
^DD(509850.9,82.03,21,1,0)="Value received if a bone conduction retest was done at 750 Hz for Left"
^DD(509850.9,82.03,21,2,0)="ear."
^DD(509850.9,82.03,"DT")="3050726"
^DD(509850.9,82.04,0)="RETEST B/C THRESHOLD L 1000^F^^82;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.04,21,0)="^^2^2^3050726^"
^DD(509850.9,82.04,21,1,0)="Value received if a bone conduction retest was done at 1000 Hz for Left"
^DD(509850.9,82.04,21,2,0)="ear."
^DD(509850.9,82.04,"DT")="3050726"
^DD(509850.9,82.05,0)="RETEST B/C THRESHOLD L 1500^F^^82;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.05,21,0)="^^2^2^3050726^"
^DD(509850.9,82.05,21,1,0)="Value received if a bone conduction retest was done at 1500 Hz for Left"
^DD(509850.9,82.05,21,2,0)="ear."
^DD(509850.9,82.05,"DT")="3050726"
^DD(509850.9,82.06,0)="RETEST B/C THRESHOLD L 2000^F^^82;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.06,21,0)="^^2^2^3050726^"
^DD(509850.9,82.06,21,1,0)="Value received if a bone conduction retest was done at 2000 Hz for Left"
^DD(509850.9,82.06,21,2,0)="ear."
^DD(509850.9,82.06,"DT")="3050815"
^DD(509850.9,82.07,0)="RETEST B/C THRESHOLD L 3000^F^^82;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.07,21,0)="^^2^2^3050726^"
^DD(509850.9,82.07,21,1,0)="Value received if a bone conduction retest was done at 3000 Hz for Left"
^DD(509850.9,82.07,21,2,0)="ear."
^DD(509850.9,82.07,"DT")="3050726"
^DD(509850.9,82.08,0)="RETEST B/C THRESHOLD L 4000^F^^82;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.08,21,0)="^^2^2^3050726^"
^DD(509850.9,82.08,21,1,0)="Value received if a bone conduction retest was done at 4000 Hz for Left"
^DD(509850.9,82.08,21,2,0)="ear."
^DD(509850.9,82.08,"DT")="3050726"
^DD(509850.9,82.09,0)="RETEST B/C THRESHOLD L 6000^F^^82;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,82.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,82.09,21,0)="^^2^2^3050726^"
^DD(509850.9,82.09,21,1,0)="Value received if a bone conduction retest was done at 6000 Hz for Left"
^DD(509850.9,82.09,21,2,0)="ear."
^DD(509850.9,82.09,"DT")="3050815"
^DD(509850.9,85.01,0)="FINAL B/C THRESHOLD L 250^F^^85;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.01,21,0)="^^1^1^3030122^"
^DD(509850.9,85.01,21,1,0)="The lowest level(dB) a 250 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.01,"DT")="3050809"
^DD(509850.9,85.02,0)="FINAL B/C THRESHOLD L 500^F^^85;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.02,21,0)="^^1^1^3030122^"
^DD(509850.9,85.02,21,1,0)="The lowest level(dB) a 500 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.02,"DT")="3050809"
^DD(509850.9,85.03,0)="FINAL B/C THRESHOLD L 750^F^^85;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.03,21,0)="^^1^1^3030122^"
^DD(509850.9,85.03,21,1,0)="The lowest level(dB) a 750 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.03,"DT")="3050809"
^DD(509850.9,85.04,0)="FINAL B/C THRESHOLD L 1000^F^^85;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.04,21,0)="^^1^1^3030122^"
^DD(509850.9,85.04,21,1,0)="The lowest level(dB) a 1000 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.04,"DT")="3050809"
^DD(509850.9,85.05,0)="FINAL B/C THRESHOLD L 1500^F^^85;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.05,21,0)="^^1^1^3030122^"
^DD(509850.9,85.05,21,1,0)="The lowest level(dB) a 1500 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.05,"DT")="3050809"
^DD(509850.9,85.06,0)="FINAL B/C THRESHOLD L 2000^F^^85;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.06,21,0)="^^1^1^3030122^"
^DD(509850.9,85.06,21,1,0)="The lowest level(dB) a 2000 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.06,"DT")="3050809"
^DD(509850.9,85.07,0)="FINAL B/C THRESHOLD L 3000^F^^85;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.07,21,0)="^^1^1^3030122^"
^DD(509850.9,85.07,21,1,0)="The lowest level(dB) a 3000 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.07,"DT")="3050809"
^DD(509850.9,85.08,0)="FINAL B/C THRESHOLD L 4000^F^^85;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.08,21,0)="^^1^1^3030122^"
^DD(509850.9,85.08,21,1,0)="The lowest level(dB) a 4000 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.08,"DT")="3050809"
^DD(509850.9,85.09,0)="FINAL B/C THRESHOLD L 6000^F^^85;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,85.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,85.09,21,0)="^^1^1^3030122^"
^DD(509850.9,85.09,21,1,0)="The lowest level(dB) a 6000 Hz test frequency is heard 50% of the time."
^DD(509850.9,85.09,"DT")="3050809"
^DD(509850.9,86.01,0)="*REPEAT B/C THRESH TAG L 250^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;1^Q"
^DD(509850.9,86.01,21,0)="^^3^3^3050808^"
^DD(509850.9,86.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.01,21,2,0)="Indicator of final masking presence during bone conduction testing"
^DD(509850.9,86.01,21,3,0)="on the Left ear at 250 Hz."
^DD(509850.9,86.01,23,0)="^^1^1^3050808^"
^DD(509850.9,86.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.01,"DT")="3050808"
^DD(509850.9,86.02,0)="*REPEAT B/C THRESH TAG L 500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;2^Q"
^DD(509850.9,86.02,21,0)="^^2^2^3050808^"
^DD(509850.9,86.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.02,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.02,23,0)="^^1^1^3050808^"
^DD(509850.9,86.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.02,"DT")="3050808"
^DD(509850.9,86.03,0)="*REPEAT B/C THRESH TAG  L 750^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;3^Q"
^DD(509850.9,86.03,21,0)="^^2^2^3050808^"
^DD(509850.9,86.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.03,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.03,23,0)="^.001^1^1^3050808^^"
^DD(509850.9,86.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.03,"DT")="3050808"
^DD(509850.9,86.04,0)="*REPEAT B/C THRESH TAG L 1000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;4^Q"
^DD(509850.9,86.04,21,0)="^^2^2^3050808^"
^DD(509850.9,86.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.04,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.04,23,0)="^^1^1^3050808^"
^DD(509850.9,86.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.04,"DT")="3050808"
^DD(509850.9,86.05,0)="*REPEAT B/C THRESH TAG L 1500^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;5^Q"
^DD(509850.9,86.05,21,0)="^^2^2^3050808^"
^DD(509850.9,86.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.05,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.05,23,0)="^^1^1^3050808^"
^DD(509850.9,86.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.05,"DT")="3050808"
^DD(509850.9,86.06,0)="*REPEAT B/C THRESH TAG L 2000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;6^Q"
^DD(509850.9,86.06,21,0)="^^2^2^3050808^"
^DD(509850.9,86.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.06,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.06,23,0)="^^1^1^3050808^"
^DD(509850.9,86.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.06,"DT")="3050808"
^DD(509850.9,86.07,0)="*REPEAT B/C THRESH TAG L 3000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;7^Q"
^DD(509850.9,86.07,21,0)="^^2^2^3050808^"
^DD(509850.9,86.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.07,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.07,23,0)="^^1^1^3050808^"
^DD(509850.9,86.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.07,"DT")="3050808"
^DD(509850.9,86.08,0)="*REPEAT B/C THRESH TAG L 4000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;8^Q"
^DD(509850.9,86.08,21,0)="^^2^2^3050808^"
^DD(509850.9,86.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.08,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.08,23,0)="^^1^1^3050808^"
^DD(509850.9,86.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.08,"DT")="3050808"
^DD(509850.9,86.09,0)="*REPEAT B/C THRESH TAG L 6000^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^86;9^Q"
^DD(509850.9,86.09,21,0)="^^2^2^3050808^"
^DD(509850.9,86.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.09,21,2,0)="Indicator of masking presence."
^DD(509850.9,86.09,23,0)="^^1^1^3050808^"
^DD(509850.9,86.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,86.09,"DT")="3050808"
^DD(509850.9,90.01,0)="*INITIAL B/C MASK LEVEL R 250^NJ3,0^^90;1^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.01,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.01,21,0)="^^3^3^3050808^"
^DD(509850.9,90.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.01,21,2,0)="The initial masking noise level(dB) needed to obtain a true threshold "
^DD(509850.9,90.01,21,3,0)="at 250 Hz on the Right ear."
^DD(509850.9,90.01,23,0)="^^1^1^3050808^"
^DD(509850.9,90.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.01,"DT")="3050808"
^DD(509850.9,90.02,0)="*INITIAL B/C MASK LEVEL R 500^NJ3,0^^90;2^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.02,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.02,21,0)="^^2^2^3050808^"
^DD(509850.9,90.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.02,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,90.02,23,0)="^^1^1^3050808^"
^DD(509850.9,90.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.02,"DT")="3050808"
^DD(509850.9,90.03,0)="*INITIAL B/C MASK LEVEL R 750^NJ3,0^^90;3^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.03,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.03,21,0)="^^2^2^3050808^"
^DD(509850.9,90.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.03,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,90.03,23,0)="^^1^1^3050808^"
^DD(509850.9,90.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.03,"DT")="3050808"
^DD(509850.9,90.04,0)="*INITIAL B/C MASK LEVEL R 1000^NJ3,0^^90;4^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.04,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.04,21,0)="^^2^2^3050808^"
^DD(509850.9,90.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.04,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,90.04,23,0)="^^1^1^3050808^"
^DD(509850.9,90.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.04,"DT")="3050808"
^DD(509850.9,90.05,0)="*INITIAL B/C MASK LEVEL R 1500^NJ3,0^^90;5^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.05,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.05,21,0)="^^2^2^3050808^"
^DD(509850.9,90.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.05,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,90.05,23,0)="^^1^1^3050808^"
^DD(509850.9,90.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.05,"DT")="3050808"
^DD(509850.9,90.06,0)="*INITIAL B/C MASK LEVEL R 2000^NJ3,0^^90;6^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.06,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.06,21,0)="^^2^2^3050808^"
^DD(509850.9,90.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.06,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,90.06,23,0)="^^1^1^3050808^"
^DD(509850.9,90.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.06,"DT")="3050808"
^DD(509850.9,90.07,0)="*INITIAL B/C MASK LEVEL R 3000^NJ3,0^^90;7^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.07,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.07,21,0)="^^2^2^3050808^"
^DD(509850.9,90.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.07,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,90.07,23,0)="^^1^1^3050808^"
^DD(509850.9,90.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.07,"DT")="3050808"
^DD(509850.9,90.08,0)="*INITIAL B/C MASK LEVEL R 4000^NJ3,0^^90;8^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.08,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.08,21,0)="^^2^2^3050809^"
^DD(509850.9,90.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.08,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,90.08,23,0)="^^1^1^3050809^"
^DD(509850.9,90.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.08,"DT")="3050809"
^DD(509850.9,90.09,0)="*INITIAL B/C MASK LEVEL R 6000^NJ3,0^^90;9^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,90.09,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,90.09,21,0)="^^2^2^3050809^"
^DD(509850.9,90.09,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.09,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,90.09,23,0)="^^1^1^3050809^"
^DD(509850.9,90.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,90.09,"DT")="3050809"
^DD(509850.9,91.01,0)="FINAL B/C MASK LEVEL R 250^F^^91;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.01,21,0)="^.001^2^2^3030728^^^"
^DD(509850.9,91.01,21,1,0)="The final masking noise level(dB) needed to obtain a true threshold at 250 Hz"
^DD(509850.9,91.01,21,2,0)="during bone conduction testing on the Right ear."
^DD(509850.9,91.01,"DT")="3050726"
^DD(509850.9,91.02,0)="FINAL B/C MASK LEVEL R 500^F^^91;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.02,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,91.02,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,91.02,"DT")="3050726"
^DD(509850.9,91.03,0)="FINAL B/C MASK LEVEL R 750^F^^91;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.03,21,0)="^^1^1^3030122^"
^DD(509850.9,91.03,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,91.03,"DT")="3050726"
^DD(509850.9,91.04,0)="FINAL B/C MASK LEVEL R 1000^F^^91;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.04,21,0)="^^1^1^3030122^"
^DD(509850.9,91.04,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,91.04,"DT")="3050726"
^DD(509850.9,91.05,0)="FINAL B/C MASK LEVEL R 1500^F^^91;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.05,21,0)="^^1^1^3030122^"
^DD(509850.9,91.05,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,91.05,"DT")="3050726"
^DD(509850.9,91.06,0)="FINAL B/C MASK LEVEL R 2000^F^^91;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.06,21,0)="^^1^1^3030122^"
^DD(509850.9,91.06,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,91.06,"DT")="3050726"
^DD(509850.9,91.07,0)="FINAL B/C MASK LEVEL R 3000^F^^91;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.07,21,0)="^^1^1^3030122^"
^DD(509850.9,91.07,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,91.07,"DT")="3050726"
^DD(509850.9,91.08,0)="FINAL B/C MASK LEVEL R 4000^F^^91;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.08,21,0)="^^1^1^3030122^"
^DD(509850.9,91.08,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,91.08,"DT")="3050726"
^DD(509850.9,91.09,0)="FINAL B/C MASK LEVEL R 6000^F^^91;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,91.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,91.09,21,0)="^^1^1^3030122^"
^DD(509850.9,91.09,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,91.09,"DT")="3050726"
^DD(509850.9,100.01,0)="*INITIAL B/C MASK LEVEL L^NJ3,0^^100;1^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.01,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.01,21,0)="^^2^2^3050809^"
^DD(509850.9,100.01,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.01,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 250 Hz"
^DD(509850.9,100.01,23,0)="^^1^1^3050809^"
^DD(509850.9,100.01,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.01,"DT")="3050809"
^DD(509850.9,100.02,0)="*INITIAL B/C MASK LEVEL L 500^NJ3,0^^100;2^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.02,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.02,21,0)="^^2^2^3050809^"
^DD(509850.9,100.02,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.02,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,100.02,23,0)="^^1^1^3050809^"
^DD(509850.9,100.02,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.02,"DT")="3050809"
^DD(509850.9,100.03,0)="*INITIAL B/C MASK LEVEL L 750^NJ3,0^^100;3^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.03,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.03,21,0)="^^2^2^3050809^"
^DD(509850.9,100.03,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.03,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,100.03,23,0)="^^1^1^3050809^"
^DD(509850.9,100.03,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.03,"DT")="3050809"
^DD(509850.9,100.04,0)="*INITIAL B/C MASK LEVEL L 1000^NJ3,0^^100;4^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.04,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.04,21,0)="^^2^2^3050809^"
^DD(509850.9,100.04,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.04,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,100.04,23,0)="^^1^1^3050809^"
^DD(509850.9,100.04,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.04,"DT")="3050809"
^DD(509850.9,100.05,0)="*INITIAL B/C MASK LEVEL L 1500^NJ3,0^^100;5^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.05,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.05,21,0)="^^2^2^3050809^"
^DD(509850.9,100.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.05,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,100.05,23,0)="^^1^1^3050809^"
^DD(509850.9,100.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.05,"DT")="3050809"
^DD(509850.9,100.06,0)="*INITIAL B/C MASK LEVEL L 2000^NJ3,0^^100;6^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.06,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.06,21,0)="^^2^2^3050809^"
^DD(509850.9,100.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.06,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,100.06,23,0)="^^1^1^3050809^"
^DD(509850.9,100.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.06,"DT")="3050809"
^DD(509850.9,100.07,0)="*INITIAL B/C MASK LEVEL L 3000^NJ3,0^^100;7^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.07,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.07,21,0)="^^2^2^3050809^"
^DD(509850.9,100.07,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.07,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,100.07,23,0)="^^1^1^3050809^"
^DD(509850.9,100.07,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.07,"DT")="3050809"
^DD(509850.9,100.08,0)="*INITIAL B/C MASK LEVEL L 4000^NJ3,0^^100;8^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.08,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.08,21,0)="^^2^2^3050808^"
^DD(509850.9,100.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.08,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,100.08,23,0)="^^1^1^3050808^"
^DD(509850.9,100.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.08,"DT")="3050808"
^DD(509850.9,100.09,0)="*INITIAL B/C MASK LEVEL 6000^NJ3,0^^100;9^K:+X'=X!(X>110)!(X<10)!(X?.E1"".""1N.N) X"
^DD(509850.9,100.09,3)="Type a Number between 10 and 110, 0 Decimal Digits"
^DD(509850.9,100.09,21,0)="^^2^2^3050808^"
^DD(509850.9,100.09,21,1,0)="MARKED FOR DELETION "
^DD(509850.9,100.09,21,2,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,100.09,23,0)="^^1^1^3050808^"
^DD(509850.9,100.09,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,100.09,"DT")="3050808"
^DD(509850.9,101.01,0)="FINAL B/C MASK LEVEL L 250^F^^101;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.01,21,0)="^.001^2^2^3030728^^"
^DD(509850.9,101.01,21,1,0)="The final masking noise level(dB) needed to obtain a true threshold "
^DD(509850.9,101.01,21,2,0)="at 250 Hz during bone conduction testing."
^DD(509850.9,101.01,"DT")="3050726"
^DD(509850.9,101.02,0)="FINAL B/C MASK LEVEL L 500^F^^101;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.02,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,101.02,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 500 Hz"
^DD(509850.9,101.02,"DT")="3050726"
^DD(509850.9,101.03,0)="FINAL B/C MASK LEVEL L 750^F^^101;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.03,21,0)="^^1^1^3030122^"
^DD(509850.9,101.03,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 750 Hz"
^DD(509850.9,101.03,"DT")="3050726"
^DD(509850.9,101.04,0)="FINAL B/C MASK LEVEL L 1000^F^^101;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.04,21,0)="^^1^1^3030122^"
^DD(509850.9,101.04,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1000 Hz"
^DD(509850.9,101.04,"DT")="3050726"
^DD(509850.9,101.05,0)="FINAL B/C MASK LEVEL L 1500^F^^101;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.05,21,0)="^^1^1^3030122^"
^DD(509850.9,101.05,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 1500 Hz"
^DD(509850.9,101.05,"DT")="3050726"
^DD(509850.9,101.06,0)="FINAL B/C MASK LEVEL L 2000^F^^101;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.06,21,0)="^^1^1^3030122^"
^DD(509850.9,101.06,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 2000 Hz"
^DD(509850.9,101.06,"DT")="3050726"
^DD(509850.9,101.07,0)="FINAL B/C MASK LEVEL L 3000^F^^101;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.07,21,0)="^^1^1^3030122^"
^DD(509850.9,101.07,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 3000 Hz"
^DD(509850.9,101.07,"DT")="3050726"
^DD(509850.9,101.08,0)="FINAL B/C MASK LEVEL L 4000^F^^101;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.08,21,0)="^^1^1^3030122^"
^DD(509850.9,101.08,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 4000 Hz"
^DD(509850.9,101.08,"DT")="3050726"
^DD(509850.9,101.09,0)="FINAL B/C MASK LEVEL L 6000^F^^101;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,101.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,101.09,21,0)="^^1^1^3030122^"
^DD(509850.9,101.09,21,1,0)="The masking noise level(dB) needed to obtain a true threshold at 6000 Hz"
^DD(509850.9,101.09,"DT")="3050726"
^DD(509850.9,110.03,0)="MATERIAL R-1^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^110;3^Q"
^DD(509850.9,110.03,3)=" "
^DD(509850.9,110.03,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,110.03,21,1,0)="Standard word list used in test 1 for Right ear."
^DD(509850.9,110.03,"DT")="3050810"
^DD(509850.9,110.04,0)="PERCENT CORRECT R-1^F^^110;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.04,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,110.04,21,1,0)="Percent Correct Right Ear Test 1"
^DD(509850.9,110.04,"DT")="3050726"
^DD(509850.9,110.05,0)="PRESENTATION METHOD R-1^S^1:CD;2:Tape;3:MLV;^110;5^Q"
^DD(509850.9,110.05,21,0)="^^2^2^3050815^"
^DD(509850.9,110.05,21,1,0)="Notes if presented by a Recorded medium or Monitored Live Voice(MLV) "
^DD(509850.9,110.05,21,2,0)="All tests"
^DD(509850.9,110.05,23,0)="^^3^3^3050815^"
^DD(509850.9,110.05,23,1,0)="Applies to all word tests.  In patch ACKQ*3.0*12 the categories CD and "
^DD(509850.9,110.05,23,2,0)="Tape are combined into 'Recorded'. Existing entries of CD or Tape will be "
^DD(509850.9,110.05,23,3,0)="displayed as Recorded."
^DD(509850.9,110.05,"DT")="3020410"
^DD(509850.9,110.06,0)="PRESENTATION LEVEL R-1^NJ3,0^^110;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,110.06,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,110.06,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,110.06,21,1,0)="Presentation level in dB for Rt ear on test 1."
^DD(509850.9,110.06,"DT")="3050726"
^DD(509850.9,110.07,0)="MASKING LEVEL R-1^F^^110;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.07,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,110.07,21,1,0)="Masking level in dB, required for test 1 on Right ear"
^DD(509850.9,110.07,"DT")="3050726"
^DD(509850.9,110.08,0)="*WORD LIST R-2^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^110;8^Q"
^DD(509850.9,110.08,3)=" "
^DD(509850.9,110.08,21,0)="^^2^2^3050809^"
^DD(509850.9,110.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.08,21,2,0)="Standard word list used in test 2 for Right ear."
^DD(509850.9,110.08,23,0)="^^1^1^3050809^"
^DD(509850.9,110.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.08,"DT")="3050809"
^DD(509850.9,110.09,0)="PERCENT CORRECT R-2^F^^110;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.09,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,110.09,21,1,0)="Percent Correct Right Ear Test 2"
^DD(509850.9,110.09,"DT")="3050726"
^DD(509850.9,110.1,0)="*PRESENTATION METHOD R-2^S^1:CD;2:Tape;3:MLV;^110;10^Q"
^DD(509850.9,110.1,21,0)="^^3^3^3050808^"
^DD(509850.9,110.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.1,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,110.1,21,3,0)="Right ear - Test 2"
^DD(509850.9,110.1,23,0)="^^1^1^3050808^"
^DD(509850.9,110.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.1,"DT")="3050808"
^DD(509850.9,110.11,0)="PRESENTATION LEVEL R-2^NJ3,0^^110;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,110.11,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,110.11,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,110.11,21,1,0)="Presentation level in dB for Rt ear on test 2"
^DD(509850.9,110.11,"DT")="3050726"
^DD(509850.9,110.12,0)="MASKING LEVEL R-2^F^^110;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.12,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,110.12,21,1,0)="Masking level in dB for Right ear on test 2"
^DD(509850.9,110.12,"DT")="3050726"
^DD(509850.9,110.13,0)="*WORD LIST R-3^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^110;13^Q"
^DD(509850.9,110.13,3)=" "
^DD(509850.9,110.13,21,0)="^^2^2^3050808^"
^DD(509850.9,110.13,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.13,21,2,0)="Standard word list used in test 3 for Right ear."
^DD(509850.9,110.13,23,0)="^^1^1^3050808^"
^DD(509850.9,110.13,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.13,"DT")="3050808"
^DD(509850.9,110.14,0)="PERCENT CORRECT R-3^F^^110;14^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.14,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.14,21,0)="^^1^1^3030122^"
^DD(509850.9,110.14,21,1,0)="Percent Correct Right Ear Test 3"
^DD(509850.9,110.14,"DT")="3050726"
^DD(509850.9,110.15,0)="*PRESENTATION METHOD R-3^S^1:CD;2:Tape;3:MLV;^110;15^Q"
^DD(509850.9,110.15,21,0)="^^3^3^3050808^"
^DD(509850.9,110.15,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.15,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,110.15,21,3,0)="Right ear - Test 3"
^DD(509850.9,110.15,23,0)="^^1^1^3050808^"
^DD(509850.9,110.15,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.15,"DT")="3050808"
^DD(509850.9,110.16,0)="PRESENTATION LEVEL R-3^NJ3,0^^110;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,110.16,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,110.16,21,0)="^^1^1^3030130^"
^DD(509850.9,110.16,21,1,0)="Presentation level in dB for Rt ear on test 3"
^DD(509850.9,110.16,"DT")="3050726"
^DD(509850.9,110.17,0)="MASKING LEVEL R-3^F^^110;17^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.17,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.17,21,0)="^^1^1^3030130^"
^DD(509850.9,110.17,21,1,0)="Masking level in dB for Right ear on test 3"
^DD(509850.9,110.17,"DT")="3050726"
^DD(509850.9,110.18,0)="*WORD LIST R-4^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^110;18^Q"
^DD(509850.9,110.18,3)=" "
^DD(509850.9,110.18,21,0)="^^2^2^3050808^"
^DD(509850.9,110.18,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.18,21,2,0)="Standard word list used in test 4 for Right ear."
^DD(509850.9,110.18,23,0)="^^1^1^3050808^"
^DD(509850.9,110.18,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.18,"DT")="3050808"
^DD(509850.9,110.19,0)="PERCENT CORRECT R-4^F^^110;19^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.19,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.19,21,0)="^^1^1^3030122^"
^DD(509850.9,110.19,21,1,0)="Percent Correct Right Ear Test 4"
^DD(509850.9,110.19,"DT")="3050726"
^DD(509850.9,110.2,0)="*PRESENTATION METHOD R-4^S^1:CD;2:Tape;3:MLV;^110;20^Q"
^DD(509850.9,110.2,21,0)="^^3^3^3050808^"
^DD(509850.9,110.2,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.2,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,110.2,21,3,0)="Right ear - Test 4"
^DD(509850.9,110.2,23,0)="^^1^1^3050808^"
^DD(509850.9,110.2,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.2,"DT")="3050808"
^DD(509850.9,110.21,0)="PRESENTATION LEVEL R-4^NJ3,0^^110;21^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,110.21,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,110.21,21,0)="^^1^1^3030130^"
^DD(509850.9,110.21,21,1,0)="Presentation level in dB for Rt ear on test 4"
^DD(509850.9,110.21,"DT")="3050726"
^DD(509850.9,110.22,0)="MASKING LEVEL R-4^F^^110;22^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.22,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.22,21,0)="^^1^1^3030130^"
^DD(509850.9,110.22,21,1,0)="Masking level in dB for Right ear on test 4"
^DD(509850.9,110.22,"DT")="3050726"
^DD(509850.9,110.23,0)="*WORD LIST R-5^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^110;23^Q"
^DD(509850.9,110.23,3)=" "
^DD(509850.9,110.23,21,0)="^^2^2^3050808^"
^DD(509850.9,110.23,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.23,21,2,0)="Standard word list used in test 5 for Right ear."
^DD(509850.9,110.23,23,0)="^^1^1^3050808^"
^DD(509850.9,110.23,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.23,"DT")="3050808"
^DD(509850.9,110.24,0)="PERCENT CORRECT R-5^F^^110;24^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.24,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.24,21,0)="^^1^1^3030122^"
^DD(509850.9,110.24,21,1,0)="Percent Correct Right Ear Test 5"
^DD(509850.9,110.24,"DT")="3050726"
^DD(509850.9,110.25,0)="*PRESENTATION METHOD R-5^S^1:CD;2:Tape;3:MLV;^110;25^Q"
^DD(509850.9,110.25,21,0)="^^3^3^3050808^"
^DD(509850.9,110.25,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.25,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,110.25,21,3,0)="Right ear - Test 5"
^DD(509850.9,110.25,23,0)="^^1^1^3050808^"
^DD(509850.9,110.25,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,110.25,"DT")="3050808"
^DD(509850.9,110.26,0)="PRESENTATION LEVEL R-5^NJ3,0^^110;26^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,110.26,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,110.26,21,0)="^^1^1^3030130^"
^DD(509850.9,110.26,21,1,0)="Presentation level in dB for Rt ear on test 5"
^DD(509850.9,110.26,"DT")="3050726"
^DD(509850.9,110.27,0)="MASKING LEVEL R-5^F^^110;27^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.27,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.27,21,0)="^^1^1^3030130^"
^DD(509850.9,110.27,21,1,0)="Masking level in dB for Right ear on test 5"
^DD(509850.9,110.27,"DT")="3050726"
^DD(509850.9,110.28,0)="LIST R-1^F^^110;28^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.28,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.28,21,0)="^.001^1^1^3070126^^^"
^DD(509850.9,110.28,21,1,0)="Word list used for Test 1 of the Right ear."
^DD(509850.9,110.28,"DT")="3070130"
^DD(509850.9,110.29,0)="LIST R-2^F^^110;29^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.29,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.29,21,0)="^^1^1^3050726^"
^DD(509850.9,110.29,21,1,0)="Word list used for Test 2 of the Right ear."
^DD(509850.9,110.29,"DT")="3070126"
^DD(509850.9,110.3,0)="LIST R-3^F^^110;30^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.3,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.3,21,0)="^^1^1^3050726^"
^DD(509850.9,110.3,21,1,0)="Word list used for Test 3 of the Right ear."
^DD(509850.9,110.3,"DT")="3070126"
^DD(509850.9,110.31,0)="LIST R-4^F^^110;31^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.31,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.31,21,0)="^^1^1^3050726^"
^DD(509850.9,110.31,21,1,0)="Word list used for Test 4 of the Right ear."
^DD(509850.9,110.31,"DT")="3070126"
^DD(509850.9,110.32,0)="LIST R-5^F^^110;32^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,110.32,3)="Answer must be 1-4 characters in length."
^DD(509850.9,110.32,21,0)="^^1^1^3050726^"
^DD(509850.9,110.32,21,1,0)="Word list used for Test 5 of the Right ear."
^DD(509850.9,110.32,"DT")="3070126"
^DD(509850.9,111.03,0)="MATERIAL L-1^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^111;3^Q"
^DD(509850.9,111.03,3)=" "
^DD(509850.9,111.03,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,111.03,21,1,0)="Standard word list used in test 1 for Left ear"
^DD(509850.9,111.03,"DT")="3050810"
^DD(509850.9,111.04,0)="PERCENT CORRECT L-1^F^^111;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.04,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,111.04,21,1,0)="Percent Correct Left Ear Test 1"
^DD(509850.9,111.04,"DT")="3050726"
^DD(509850.9,111.05,0)="*PRESENTATION METHOD L-1^S^1:CD;2:Tape;3:MLV;^111;5^Q"
^DD(509850.9,111.05,21,0)="^^3^3^3050815^"
^DD(509850.9,111.05,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.05,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,111.05,21,3,0)="Left ear - Test 1"
^DD(509850.9,111.05,23,0)="^^1^1^3050815^"
^DD(509850.9,111.05,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.05,"DT")="3050815"
^DD(509850.9,111.06,0)="PRESENTATION LEVEL L-1^NJ3,0^^111;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,111.06,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,111.06,21,0)="^^1^1^3030130^"
^DD(509850.9,111.06,21,1,0)="Presentation level in dB for Left ear on test 1"
^DD(509850.9,111.06,"DT")="3050726"
^DD(509850.9,111.07,0)="MASKING LEVEL L-1^F^^111;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.07,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,111.07,21,1,0)="Masking level in dB, required for test 1 on Left ear"
^DD(509850.9,111.07,"DT")="3050726"
^DD(509850.9,111.08,0)="*WORD LIST L-2^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^111;8^Q"
^DD(509850.9,111.08,3)=" "
^DD(509850.9,111.08,21,0)="^.001^2^2^3050808^^"
^DD(509850.9,111.08,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.08,21,2,0)="Standard word list used in test 2 for Left ear"
^DD(509850.9,111.08,23,0)="^.001^1^1^3050808^^"
^DD(509850.9,111.08,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.08,"DT")="3050808"
^DD(509850.9,111.09,0)="PERCENT CORRECT L-2^F^^111;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.09,21,0)="^^1^1^3030122^"
^DD(509850.9,111.09,21,1,0)="Percent Correct Left Ear Test 2"
^DD(509850.9,111.09,"DT")="3050726"
^DD(509850.9,111.1,0)="*PRESENTATION METHOD L-2^S^1:CD;2:Tape;3:MLV;^111;10^Q"
^DD(509850.9,111.1,21,0)="^^3^3^3050808^"
^DD(509850.9,111.1,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.1,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,111.1,21,3,0)="Left ear - Test 2"
^DD(509850.9,111.1,23,0)="^^1^1^3050808^"
^DD(509850.9,111.1,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.1,"DT")="3050808"
^DD(509850.9,111.11,0)="PRESENTATION LEVEL L-2^NJ3,0^^111;11^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,111.11,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,111.11,21,0)="^^1^1^3030130^"
^DD(509850.9,111.11,21,1,0)="Presentation level in dB for Left ear on test 2"
^DD(509850.9,111.11,"DT")="3050726"
^DD(509850.9,111.12,0)="MASKING LEVEL L-2^F^^111;12^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.12,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.12,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,111.12,21,1,0)="Masking level in dB, required for test 2 on Left ear"
^DD(509850.9,111.12,"DT")="3050726"
^DD(509850.9,111.13,0)="*WORD LIST L-3^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^111;13^Q"
^DD(509850.9,111.13,3)=" "
^DD(509850.9,111.13,21,0)="^^2^2^3050808^"
^DD(509850.9,111.13,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.13,21,2,0)="Standard word list used in test 3 for Left ear"
^DD(509850.9,111.13,23,0)="^^1^1^3050808^"
^DD(509850.9,111.13,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.13,"DT")="3050808"
^DD(509850.9,111.14,0)="PERCENT CORRECT L-3^F^^111;14^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.14,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.14,21,0)="^^1^1^3030122^"
^DD(509850.9,111.14,21,1,0)="Percent Correct Left Ear Test 3"
^DD(509850.9,111.14,"DT")="3050726"
^DD(509850.9,111.15,0)="*PRESENTATION METHOD L-3^S^1:CD;2:Tape;3:MLV;^111;15^Q"
^DD(509850.9,111.15,21,0)="^^3^3^3050808^"
^DD(509850.9,111.15,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.15,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,111.15,21,3,0)="Left ear - Test 3"
^DD(509850.9,111.15,23,0)="^^1^1^3050808^"
^DD(509850.9,111.15,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.15,"DT")="3050808"
^DD(509850.9,111.16,0)="PRESENTATION LEVEL L-3^NJ3,0^^111;16^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,111.16,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,111.16,21,0)="^^1^1^3030130^"
^DD(509850.9,111.16,21,1,0)="Presentation level in dB for Left ear on test 3"
^DD(509850.9,111.16,"DT")="3050726"
^DD(509850.9,111.17,0)="MASKING LEVEL L-3^F^^111;17^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.17,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.17,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,111.17,21,1,0)="Masking level in dB, required for test 3 on Left ear"
^DD(509850.9,111.17,"DT")="3050726"
^DD(509850.9,111.18,0)="*WORD LIST L-4^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^111;18^Q"
^DD(509850.9,111.18,3)=" "
^DD(509850.9,111.18,21,0)="^^2^2^3050808^"
^DD(509850.9,111.18,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.18,21,2,0)="Standard word list used in test 4 for Left ear"
^DD(509850.9,111.18,23,0)="^^1^1^3050808^"
^DD(509850.9,111.18,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.18,"DT")="3050808"
^DD(509850.9,111.19,0)="PERCENT CORRECT L-4^F^^111;19^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.19,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.19,21,0)="^^1^1^3030122^"
^DD(509850.9,111.19,21,1,0)="Percent Correct Left Ear Test 4"
^DD(509850.9,111.19,"DT")="3050726"
^DD(509850.9,111.2,0)="*PRESENTATION METHOD L-4^S^1:CD;2:Tape;3:MLV;^111;20^Q"
^DD(509850.9,111.2,21,0)="^^3^3^3050808^"
^DD(509850.9,111.2,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.2,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,111.2,21,3,0)="Left ear - Test 4"
^DD(509850.9,111.2,23,0)="^^1^1^3050808^"
^DD(509850.9,111.2,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.2,"DT")="3050808"
^DD(509850.9,111.21,0)="PRESENTATION LEVEL L-4^NJ3,0^^111;21^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,111.21,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,111.21,21,0)="^^1^1^3030130^"
^DD(509850.9,111.21,21,1,0)="Presentation level in dB for Left ear on test 4"
^DD(509850.9,111.21,"DT")="3050726"
^DD(509850.9,111.22,0)="MASKING LEVEL L-4^F^^111;22^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.22,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.22,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,111.22,21,1,0)="Masking level in dB, required for test 4 on Left ear"
^DD(509850.9,111.22,"DT")="3050726"
^DD(509850.9,111.23,0)="*WORD LIST L-5^S^1:NU6-25;2:W22-25;3:CNC-25;4:NU6-50;5:W22-50;6:CNC-50;7:OTHER;^111;23^Q"
^DD(509850.9,111.23,3)=" "
^DD(509850.9,111.23,21,0)="^^2^2^3050808^"
^DD(509850.9,111.23,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.23,21,2,0)="Standard word list used in test 5 for Left ear"
^DD(509850.9,111.23,23,0)="^^1^1^3050808^"
^DD(509850.9,111.23,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.23,"DT")="3050808"
^DD(509850.9,111.24,0)="PERCENT CORRECT L-5^F^^111;24^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.24,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.24,21,0)="^^1^1^3030122^"
^DD(509850.9,111.24,21,1,0)="Percent Correct Left Ear Test 5"
^DD(509850.9,111.24,"DT")="3050726"
^DD(509850.9,111.25,0)="*PRESENTATION METHOD L-5^S^1:CD;2:Tape;3:MLV;^111;25^Q"
^DD(509850.9,111.25,21,0)="^^3^3^3050808^"
^DD(509850.9,111.25,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.25,21,2,0)="Notes if presented by CD,tape or Monitored Live Voice(MLV)"
^DD(509850.9,111.25,21,3,0)="Left ear - Test 5"
^DD(509850.9,111.25,23,0)="^^1^1^3050808^"
^DD(509850.9,111.25,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,111.25,"DT")="3050808"
^DD(509850.9,111.26,0)="PRESENTATION LEVEL L-5^NJ3,0^^111;26^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,111.26,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,111.26,21,0)="^^1^1^3030130^"
^DD(509850.9,111.26,21,1,0)="Presentation level in dB for Left ear on test 5"
^DD(509850.9,111.26,"DT")="3050726"
^DD(509850.9,111.27,0)="MASKING LEVEL L-5^F^^111;27^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.27,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.27,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,111.27,21,1,0)="Masking level in dB, required for test 5 on Left ear"
^DD(509850.9,111.27,"DT")="3050726"
^DD(509850.9,111.28,0)="LIST L-1^F^^111;28^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.28,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.28,21,0)="^.001^1^1^3050802^^"
^DD(509850.9,111.28,21,1,0)="Word list used for Test 1 of the Left ear."
^DD(509850.9,111.28,"DT")="3070126"
^DD(509850.9,111.29,0)="LIST L-2^F^^111;29^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.29,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.29,21,0)="^^1^1^3050726^"
^DD(509850.9,111.29,21,1,0)="Word list used for Test 2 of the Left ear."
^DD(509850.9,111.29,"DT")="3070126"
^DD(509850.9,111.3,0)="LIST L-3^F^^111;30^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.3,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.3,21,0)="^^1^1^3050726^"
^DD(509850.9,111.3,21,1,0)="Word list used for Test 3 of the Left ear."
^DD(509850.9,111.3,"DT")="3070126"
^DD(509850.9,111.31,0)="LIST L-4^F^^111;31^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.31,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.31,21,0)="^^1^1^3050726^"
^DD(509850.9,111.31,21,1,0)="Word list used for Test 4 of the Left ear."
^DD(509850.9,111.31,"DT")="3070126"
^DD(509850.9,111.32,0)="LIST L-5^F^^111;32^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,111.32,3)="Answer must be 1-4 characters in length."
^DD(509850.9,111.32,21,0)="^^1^1^3050726^"
^DD(509850.9,111.32,21,1,0)="Word list used for Test 5 of the Left ear."
^DD(509850.9,111.32,"DT")="3070126"
^DD(509850.9,112.03,0)="CI WORD LIST R-1^S^1:Cuny Sentences;2:CID Sentences;3:Iowa Sentences;4:HINT;5:W-22;6:NU6;7:CNC;^112;3^Q"
^DD(509850.9,112.03,21,0)="^^1^1^3030729^"
^DD(509850.9,112.03,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,112.03,"DT")="3020417"
^DD(509850.9,112.04,0)="CI PERCENT CORRECT R-1^NJ6,2^^112;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,112.04,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(509850.9,112.04,21,0)="^^1^1^3030729^"
^DD(509850.9,112.04,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,112.04,"DT")="3020417"
^DD(509850.9,112.08,0)="CI WORD LIST R-2^S^1:Cuny Sentences;2:CID Sentences;3:Iowa Sentences;4:HINT;5:W-22;6:NU6;7:CNC;^112;8^Q"
^DD(509850.9,112.08,21,0)="^^1^1^3030729^"
^DD(509850.9,112.08,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,112.08,"DT")="3020417"
^DD(509850.9,112.09,0)="CI PERCENT CORRECT R-2^NJ6,2^^112;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,112.09,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(509850.9,112.09,21,0)="^^1^1^3030729^"
^DD(509850.9,112.09,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,112.09,"DT")="3020417"
^DD(509850.9,112.28,0)="CI NOISE PERCENT RIGHT^NJ6,2^^112;28^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,112.28,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(509850.9,112.28,21,0)="^^1^1^3030729^"
^DD(509850.9,112.28,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,112.28,"DT")="3020418"
^DD(509850.9,112.29,0)="CI NOISE MATERIAL RIGHT^S^1:Multi Talker Babble;2:Speech Nois;^112;29^Q"
^DD(509850.9,112.29,21,0)="^^1^1^3030729^"
^DD(509850.9,112.29,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,112.29,"DT")="3020418"
^DD(509850.9,113.03,0)="CI WORD LIST L-1^S^1:Cuny Sentences;2:CID Sentences;3:Iowa Sentences;4:HINT;5:W-22;6:NU6;7:CNC;^113;3^Q"
^DD(509850.9,113.03,21,0)="^^1^1^3030729^"
^DD(509850.9,113.03,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,113.03,"DT")="3020417"
^DD(509850.9,113.04,0)="CI PERCENT CORRECT L-1^NJ6,2^^113;4^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,113.04,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(509850.9,113.04,21,0)="^^1^1^3030729^"
^DD(509850.9,113.04,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,113.04,"DT")="3020417"
^DD(509850.9,113.08,0)="CI WORD LIST L-2^S^1:Cuny Sentences;2:CID Sentences;3:Iowa Sentences;4:HINT;5:W-22;6:NU6;7:CNC;^113;8^Q"
^DD(509850.9,113.08,21,0)="^^1^1^3030729^"
^DD(509850.9,113.08,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,113.08,"DT")="3020417"
^DD(509850.9,113.09,0)="CI PERCENT CORRECT L-2^NJ6,2^^113;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,113.09,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(509850.9,113.09,21,0)="^^1^1^3030729^"
^DD(509850.9,113.09,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,113.09,"DT")="3020417"
^DD(509850.9,113.28,0)="CI NOISE PERCENT LEFT^NJ6,2^^113;28^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,113.28,3)="Type a Number between 0 and 100, 2 Decimal Digits"
^DD(509850.9,113.28,21,0)="^^1^1^3030729^"
^DD(509850.9,113.28,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,113.28,"DT")="3020418"
^DD(509850.9,113.29,0)="CI NOISE MATERIAL LEFT^S^1:Multi Talker Babble;2:Speech Nois;^113;29^Q"
^DD(509850.9,113.29,21,0)="^^1^1^3030729^"
^DD(509850.9,113.29,21,1,0)="DDC field for Cochlear Implant registry"
^DD(509850.9,113.29,"DT")="3020418"
^DD(509850.9,115.01,0)="INITIAL SRT THRESH R^F^^115;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.01,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,115.01,21,1,0)="Initial Speech Reception Threshold in dB for Rt ear"
^DD(509850.9,115.01,"DT")="3050726"
^DD(509850.9,115.02,0)="REPEAT SRT THRESH R^F^^115;2^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.02,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.02,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,115.02,21,1,0)="Repeat Speech Reception Threshold in dB for Rt ear"
^DD(509850.9,115.02,"DT")="3050726"
^DD(509850.9,115.03,0)="INITIAL SRT MASK LEVEL R^F^^115;3^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.03,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.03,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,115.03,21,1,0)="Initial Speech Reception Threshold Masking Level in dB for Rt ear"
^DD(509850.9,115.03,"DT")="3050726"
^DD(509850.9,115.04,0)="FINAL SRT MASK LEVEL R^F^^115;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.04,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,115.04,21,1,0)="Final Speech Reception Threshold Masking Level in dB for Rt ear"
^DD(509850.9,115.04,"DT")="3050726"
^DD(509850.9,115.05,0)="INITIAL SRT THRESH L^F^^115;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.05,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,115.05,21,1,0)="Initial Speech Reception Threshold in dB for Left ear"
^DD(509850.9,115.05,"DT")="3050726"
^DD(509850.9,115.06,0)="REPEAT SRT THRESH L^F^^115;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.06,21,0)="^.001^1^1^3030715^^^^"
^DD(509850.9,115.06,21,1,0)="Repeat Speech Reception Threshold in dB for Left ear"
^DD(509850.9,115.06,"DT")="3050726"
^DD(509850.9,115.07,0)="INITIAL SRT MASK LEVEL L^F^^115;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.07,21,0)="^.001^1^1^3030410^^"
^DD(509850.9,115.07,21,1,0)="Initial Speech Reception Threshold Masking Level in dB for Left ear"
^DD(509850.9,115.07,"DT")="3050726"
^DD(509850.9,115.08,0)="FINAL SRT MASK LEVEL L^F^^115;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,115.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,115.08,21,0)="^.001^1^1^3030410^^"
^DD(509850.9,115.08,21,1,0)="Final Speech Reception Threshold Masking Level in dB for Left ear"
^DD(509850.9,115.08,"DT")="3050726"
^DD(509850.9,115.09,0)="PBMAX R^NJ3,0^^115;9^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,115.09,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,115.09,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,115.09,21,1,0)="The best Phonetically Balanced score obtained in a series for Right ear"
^DD(509850.9,115.09,"DT")="3020328"
^DD(509850.9,115.1,0)="PBMIN R^NJ3,0^^115;10^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,115.1,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,115.1,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,115.1,21,1,0)="The lowest Phonetically Balanced score obtained in a series for Right ear "
^DD(509850.9,115.1,"DT")="3020328"
^DD(509850.9,115.11,0)="PI/PB R^NJ4,2^^115;11^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,115.11,3)="Type a Number between 0 and 1, 2 Decimal Digits"
^DD(509850.9,115.11,21,0)="^.001^5^5^3030728^^^"
^DD(509850.9,115.11,21,1,0)="Basically this is the PB Max minus the PB Min score, divided by the "
^DD(509850.9,115.11,21,2,0)="PB Max score. But, only occurs when a second score, obtained at a"
^DD(509850.9,115.11,21,3,0)="higher presentation level, is poorer than a prior score at a lower"
^DD(509850.9,115.11,21,4,0)="presentation level.  Right ear testing. Acronym for:"
^DD(509850.9,115.11,21,5,0)="Performance Intensity function for Phonetically Balanced word lists"
^DD(509850.9,115.11,"DT")="3020328"
^DD(509850.9,115.12,0)="PBMAX L^NJ3,0^^115;12^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,115.12,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,115.12,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,115.12,21,1,0)="The best Phonetically Balanced score obtained in a series for Left ear "
^DD(509850.9,115.12,"DT")="3020328"
^DD(509850.9,115.13,0)="PBMIN L^NJ3,0^^115;13^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,115.13,3)="Type a Number between 0 and 100, 0 Decimal Digits"
^DD(509850.9,115.13,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,115.13,21,1,0)="The lowest Phonetically Balanced score obtained in a series for Left ear "
^DD(509850.9,115.13,"DT")="3020328"
^DD(509850.9,115.14,0)="PI/PB L^NJ4,2^^115;14^K:+X'=X!(X>1)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,115.14,3)="Type a Number between 0 and 1, 2 Decimal Digits"
^DD(509850.9,115.14,21,0)="^.001^5^5^3030728^^"
^DD(509850.9,115.14,21,1,0)="Basically this is the PB Max minus the PB Min score, divided by the"
^DD(509850.9,115.14,21,2,0)="PB Max score. But, only occurs when a second score, obtained at a"
^DD(509850.9,115.14,21,3,0)="higher presentation level, is poorer than a prior score at a lower"
^DD(509850.9,115.14,21,4,0)="presentation level.  Left ear testing.  Acronym for:"
^DD(509850.9,115.14,21,5,0)="Performance Intensity function for Phonetically Balanced word lists"
^DD(509850.9,115.14,"DT")="3020328"
^DD(509850.9,115.15,0)="*FINAL SRT TAG R^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^115;15^Q"
^DD(509850.9,115.15,21,0)="^^3^3^3050809^"
^DD(509850.9,115.15,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.15,21,2,0)="The masking code associated with the final SRT masking level"
^DD(509850.9,115.15,21,3,0)="for the Right ear."
^DD(509850.9,115.15,23,0)="^^1^1^3050809^"
^DD(509850.9,115.15,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.15,"DT")="3050809"
^DD(509850.9,115.16,0)="*FINAL SRT TAG L^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^115;16^Q"
^DD(509850.9,115.16,21,0)="^.001^3^3^3050810^^"
^DD(509850.9,115.16,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.16,21,2,0)="The masking code associated with the final masking level"
^DD(509850.9,115.16,21,3,0)="for the Left ear."
^DD(509850.9,115.16,23,0)="^.001^1^1^3050810^^"
^DD(509850.9,115.16,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.16,"DT")="3050809"
^DD(509850.9,115.17,0)="*INITIAL SRT TAG R^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^115;17^Q"
^DD(509850.9,115.17,21,0)="^.001^1^1^3050815^^"
^DD(509850.9,115.17,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.17,23,0)="^.001^1^1^3050815^^"
^DD(509850.9,115.17,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.17,"DT")="3050810"
^DD(509850.9,115.18,0)="*INITIAL SRT TAG L^S^0:unmasked;1:masked;2:no response;3:masked no response;4:CNM;5:DNT;6:CNT;^115;18^Q"
^DD(509850.9,115.18,21,0)="^^1^1^3050815^"
^DD(509850.9,115.18,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.18,23,0)="^^1^1^3050815^"
^DD(509850.9,115.18,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,115.18,"DT")="3050810"
^DD(509850.9,115.19,0)="APPLIED MAX R^NJ1,0^^115;19^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,115.19,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(509850.9,115.19,21,0)="^^2^2^3070207^"
^DD(509850.9,115.19,21,1,0)="This field contains the test to use for PB Max. It will be manually"
^DD(509850.9,115.19,21,2,0)="selected from the GUI if it is anything other than the default."
^DD(509850.9,115.19,"DT")="3061130"
^DD(509850.9,115.2,0)="APPLIED MAX L^NJ1,0^^115;20^K:+X'=X!(X>5)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,115.2,3)="Type a Number between 0 and 5, 0 Decimal Digits"
^DD(509850.9,115.2,21,0)="^^2^2^3070207^"
^DD(509850.9,115.2,21,1,0)="This field contains the test to use for PB Max. It will be manually"
^DD(509850.9,115.2,21,2,0)="selected from the GUI if it is anything other than the default."
^DD(509850.9,115.2,"DT")="3061130"
^DD(509850.9,120.01,0)="MIDDLE EAR PRESSURE R^F^^120;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.01,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,120.01,21,1,0)="Middle Ear Pressure reading for the Right Ear"
^DD(509850.9,120.01,"DT")="3050811"
^DD(509850.9,120.02,0)="PK IMMITTANCE 226 R^NJ5,2^^120;2^K:+X'=X!(X>15)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,120.02,3)="Type a Number between 0 and 15, 2 Decimal Digits"
^DD(509850.9,120.02,21,0)="^^1^1^3050726^"
^DD(509850.9,120.02,21,1,0)="Peak Static Acoustic Immittance 226 value Right ear"
^DD(509850.9,120.02,"DT")="3050726"
^DD(509850.9,120.03,0)="VEQ - EQUIV EAR CANAL VOL R^NJ5,2^^120;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,120.03,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(509850.9,120.03,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,120.03,21,1,0)="Equivalent Volume (Tympanometry) for Right ear"
^DD(509850.9,120.03,"DT")="3050726"
^DD(509850.9,120.04,0)="IAR THRESHOLD R 500^F^^120;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.04,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,120.04,21,1,0)="Ipsilateral Acoustic Reflex threshold Right ear- 500 Hz"
^DD(509850.9,120.04,"DT")="3030423"
^DD(509850.9,120.05,0)="IAR THRESHOLD R 1000^F^^120;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.05,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,120.05,21,1,0)="Ipsilateral Acoustic Reflex threshold Right ear- 1000 Hz"
^DD(509850.9,120.05,"DT")="3030423"
^DD(509850.9,120.06,0)="IAR THRESHOLD R 2000^F^^120;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.06,21,0)="^.001^1^1^3030423^^^"
^DD(509850.9,120.06,21,1,0)="Ipsilateral Acoustic Reflex threshold Right ear- 2000 Hz"
^DD(509850.9,120.06,"DT")="3030423"
^DD(509850.9,120.07,0)="IAR THRESHOLD R 4000^F^^120;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.07,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,120.07,21,1,0)="Ipsilateral Acoustic Reflex threshold Right ear- 4000 Hz"
^DD(509850.9,120.07,"DT")="3030423"
^DD(509850.9,120.08,0)="CAR THRESHOLD R 500^F^^120;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.08,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,120.08,21,1,0)="Contralateral Acoustic Reflex threshold Right ear - 500 Hz"
^DD(509850.9,120.08,"DT")="3030423"
^DD(509850.9,120.09,0)="CAR THRESHOLD R 1000^F^^120;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.09,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,120.09,21,1,0)="Contralateral Acoustic Reflex threshold Right ear - 1000 Hz"
^DD(509850.9,120.09,"DT")="3030423"
^DD(509850.9,120.1,0)="CAR THRESHOLD R 2000^F^^120;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.1,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,120.1,21,1,0)="Contralateral Acoustic Reflex threshold Right ear - 2000 Hz"
^DD(509850.9,120.1,"DT")="3030423"
^DD(509850.9,120.11,0)="CAR THRESHOLD R 4000^F^^120;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.11,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,120.11,21,1,0)="Contralateral Acoustic Reflex threshold Right ear - 4000 Hz"
^DD(509850.9,120.11,"DT")="3030423"
^DD(509850.9,120.12,0)="ACOUSTIC REFLEX DECAY R 500^S^0:negative;1:positive;2:CNT;3:DNT;^120;12^Q"
^DD(509850.9,120.12,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,120.12,21,1,0)="Pos or Neg Acoustic Reflex Decay in Right ear at 500 Hz"
^DD(509850.9,120.12,"DT")="3050815"
^DD(509850.9,120.13,0)="ACOUSTIC REFLEX DECAY R 1000^S^0:negative;1:positive;2:CNT;3:DNT;^120;13^Q"
^DD(509850.9,120.13,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,120.13,21,1,0)="Acoustic Reflex Decay in Right ear at 1000 Hz"
^DD(509850.9,120.13,"DT")="3050815"
^DD(509850.9,120.14,0)="AR HALF LIFE 500 R^F^^120;14^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,120.14,3)="Answer must be 1-3 characters in length."
^DD(509850.9,120.14,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,120.14,21,1,0)="Acoustic Reflex Half Life - Right ear at 500 Hz"
^DD(509850.9,120.14,"DT")="3050726"
^DD(509850.9,120.15,0)="AR HALF LIFE 1000 R^F^^120;15^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,120.15,3)="Answer must be 1-3 characters in length."
^DD(509850.9,120.15,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,120.15,21,1,0)="Acoustic Reflex Half Life - Right ear at 1000 Hz"
^DD(509850.9,120.15,"DT")="3050726"
^DD(509850.9,120.16,0)="INTER-TEST CONSISTENCY R^S^1:GOOD;2:FAIR;3:POOR;^120;16^Q"
^DD(509850.9,120.16,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,120.16,21,1,0)="Good,Fair or Poor Inter-test consistency for Right ear"
^DD(509850.9,120.16,"DT")="3020417"
^DD(509850.9,120.17,0)="IAR BBN R^F^^120;17^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.17,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.17,21,0)="^.001^1^1^3050802^^"
^DD(509850.9,120.17,21,1,0)="Ipsillateral Acoustic Reflex for Right ear Broad Band Noise."
^DD(509850.9,120.17,"DT")="3050726"
^DD(509850.9,120.18,0)="CAR BBN R^F^^120;18^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,120.18,3)="Answer must be 1-4 characters in length."
^DD(509850.9,120.18,21,0)="^.001^1^1^3050726^^^"
^DD(509850.9,120.18,21,1,0)="Contrlateral Acoustic Reflex for Right ear Broad Band Noise."
^DD(509850.9,120.18,"DT")="3050726"
^DD(509850.9,120.19,0)="PK IMMITTANCE 678 R^NJ5,2^^120;19^K:+X'=X!(X>15)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,120.19,3)="Type a Number between 0 and 15, 2 Decimal Digits"
^DD(509850.9,120.19,21,0)="^^1^1^3050726^"
^DD(509850.9,120.19,21,1,0)="Peak Static Acoustic Immittance 678 value Right ear"
^DD(509850.9,120.19,"DT")="3050726"
^DD(509850.9,120.2,0)="WEBER R^F^^120;20^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,120.2,3)="Answer must be 1-3 characters in length."
^DD(509850.9,120.2,21,0)="^^1^1^3050726^"
^DD(509850.9,120.2,21,1,0)="Result of Weber Test for Right ear."
^DD(509850.9,120.2,"DT")="3050726"
^DD(509850.9,120.21,0)="PT STENGER R^F^^120;21^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,120.21,3)="Answer must be 1-3 characters in length."
^DD(509850.9,120.21,21,0)="^^1^1^3050726^"
^DD(509850.9,120.21,21,1,0)="Result of PT STENGER Test for Right ear."
^DD(509850.9,120.21,"DT")="3050726"
^DD(509850.9,120.22,0)="RINNE R^F^^120;22^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,120.22,3)="Answer must be 1-3 characters in length."
^DD(509850.9,120.22,21,0)="^^1^1^3050726^"
^DD(509850.9,120.22,21,1,0)="Result of RINNE Test for Right ear."
^DD(509850.9,120.22,"DT")="3050726"
^DD(509850.9,120.23,0)="OTHER TEST R^F^^120;23^K:$L(X)>10!($L(X)<1) X"
^DD(509850.9,120.23,3)="Answer must be 1-10 characters in length."
^DD(509850.9,120.23,21,0)="^.001^1^1^3050802^^"
^DD(509850.9,120.23,21,1,0)="Result of any other word test for Right ear."
^DD(509850.9,120.23,"DT")="3050726"
^DD(509850.9,121.01,0)="MIDDLE EAR PRESSURE L^F^^121;1^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.01,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.01,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,121.01,21,1,0)="Middle Ear Pressure reading for the Left Ear"
^DD(509850.9,121.01,"DT")="3050811"
^DD(509850.9,121.02,0)="PK IMMITTANCE 226 L^NJ5,2^^121;2^K:+X'=X!(X>15)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,121.02,3)="Type a Number between 0 and 15, 2 Decimal Digits"
^DD(509850.9,121.02,21,0)="^^1^1^3050726^"
^DD(509850.9,121.02,21,1,0)="Peak Static Acoustic Immittance 226 value Left ear"
^DD(509850.9,121.02,"DT")="3050726"
^DD(509850.9,121.03,0)="VEQ - EQUIV EAR CANAL VOL L^NJ5,2^^121;3^K:+X'=X!(X>10)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,121.03,3)="Type a Number between 0 and 10, 2 Decimal Digits"
^DD(509850.9,121.03,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,121.03,21,1,0)="Equivalent Volume (Tympanometry) for Left ear"
^DD(509850.9,121.03,"DT")="3050726"
^DD(509850.9,121.04,0)="IAR THRESHOLD L 500^F^^121;4^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.04,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.04,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,121.04,21,1,0)="Ipsilateral Acoustic Reflex threshold Left ear- 500 Hz"
^DD(509850.9,121.04,"DT")="3030423"
^DD(509850.9,121.05,0)="IAR THRESHOLD L 1000^F^^121;5^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.05,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.05,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,121.05,21,1,0)="Ipsilateral Acoustic Reflex threshold Left ear- 1000 Hz"
^DD(509850.9,121.05,"DT")="3030423"
^DD(509850.9,121.06,0)="IAR THRESHOLD L 2000^F^^121;6^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.06,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.06,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,121.06,21,1,0)="Ipsilateral Acoustic Reflex threshold Left ear- 2000 Hz"
^DD(509850.9,121.06,"DT")="3030423"
^DD(509850.9,121.07,0)="IAR THRESHOLD L 4000^F^^121;7^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.07,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.07,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,121.07,21,1,0)="Ipsilateral Acoustic Reflex threshold Left ear- 4000 Hz"
^DD(509850.9,121.07,"DT")="3030423"
^DD(509850.9,121.08,0)="CAR THRESHOLD L 500^F^^121;8^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.08,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.08,21,0)="^.001^1^1^3030728^^^"
^DD(509850.9,121.08,21,1,0)="Contralateral Acoustic Reflex threshold Left ear - 500 Hz"
^DD(509850.9,121.08,"DT")="3030423"
^DD(509850.9,121.09,0)="CAR THRESHOLD L 1000^F^^121;9^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.09,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.09,21,0)="^.001^1^1^3030423^^"
^DD(509850.9,121.09,21,1,0)="Contralateral Acoustic Reflex threshold Left ear - 1000 Hz"
^DD(509850.9,121.09,"DT")="3030423"
^DD(509850.9,121.1,0)="CAR THRESHOLD L 2000^F^^121;10^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.1,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.1,21,0)="^.001^1^1^3030423^^^"
^DD(509850.9,121.1,21,1,0)="Contralateral Acoustic Reflex threshold Left ear - 2000 Hz"
^DD(509850.9,121.1,23,0)="^.001^1^1^3030423^^^^"
^DD(509850.9,121.1,23,1,0)="Contralateral Acoustic Reflex threshold Left ear - 2000 Hz"
^DD(509850.9,121.1,"DT")="3030423"
^DD(509850.9,121.11,0)="CAR THRESHOLD L 4000^F^^121;11^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.11,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.11,21,0)="^.001^1^1^3030423^^^"
^DD(509850.9,121.11,21,1,0)="Contralateral Acoustic Reflex threshold Left ear - 4000 Hz"
^DD(509850.9,121.11,"DT")="3030423"
^DD(509850.9,121.12,0)="ACOUSTIC REFLEX DECAY L 500^S^0:negative;1:positive;2:CNT;3:DNT;^121;12^Q"
^DD(509850.9,121.12,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,121.12,21,1,0)="Pos or Neg Acoustic Reflex Decay in Left ear at 500 Hz"
^DD(509850.9,121.12,"DT")="3050815"
^DD(509850.9,121.13,0)="ACOUSTIC REFLEX DECAY L 1000^S^0:negative;1:positive;2:CNT;3:DNT;^121;13^Q"
^DD(509850.9,121.13,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,121.13,21,1,0)="Pos or Neg Acoustic Reflex Decay in Left ear at 1000 Hz"
^DD(509850.9,121.13,"DT")="3050815"
^DD(509850.9,121.14,0)="AR HALF LIFE 500 L^F^^121;14^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,121.14,3)="Answer must be 1-3 characters in length."
^DD(509850.9,121.14,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,121.14,21,1,0)="Acoustic Reflex Half Life - Left ear at 500 Hz"
^DD(509850.9,121.14,"DT")="3050726"
^DD(509850.9,121.15,0)="AR HALF LIFE 1000 L^F^^121;15^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,121.15,3)="Answer must be 1-3 characters in length."
^DD(509850.9,121.15,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,121.15,21,1,0)="Acoustic Reflex Half Life - Left ear at 1000 Hz"
^DD(509850.9,121.15,"DT")="3050726"
^DD(509850.9,121.16,0)="INTER-TEST CONSISTENCY L^S^1:GOOD;2:FAIR;3:POOR;^121;16^Q"
^DD(509850.9,121.16,3)=" "
^DD(509850.9,121.16,21,0)="^.001^1^1^3030728^^"
^DD(509850.9,121.16,21,1,0)="Good,Fair or Poor Inter-test consistency for Left ear"
^DD(509850.9,121.16,"DT")="3020417"
^DD(509850.9,121.17,0)="IAR BBN L^F^^121;17^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.17,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.17,21,0)="^^1^1^3050726^"
^DD(509850.9,121.17,21,1,0)="Ipsilateral Acoustic Reflex Braod Band Noise Left ear result."
^DD(509850.9,121.17,"DT")="3050726"
^DD(509850.9,121.18,0)="CAR BBN L^F^^121;18^K:$L(X)>4!($L(X)<1) X"
^DD(509850.9,121.18,3)="Answer must be 1-4 characters in length."
^DD(509850.9,121.18,21,0)="^^1^1^3050726^"
^DD(509850.9,121.18,21,1,0)="Contralateral Acoustic Reflex Braod Band Noise Left ear result."
^DD(509850.9,121.18,"DT")="3050726"
^DD(509850.9,121.19,0)="PK IMMITTANCE 678 L^NJ5,2^^121;19^K:+X'=X!(X>15)!(X<0)!(X?.E1"".""3N.N) X"
^DD(509850.9,121.19,3)="Type a Number between 0 and 15, 2 Decimal Digits"
^DD(509850.9,121.19,21,0)="^^1^1^3050726^"
^DD(509850.9,121.19,21,1,0)="Peak Static Acoustic Immittance 678 value Left ear"
^DD(509850.9,121.19,"DT")="3050726"
^DD(509850.9,121.2,0)="WEBER L^F^^121;20^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,121.2,3)="Answer must be 1-3 characters in length."
^DD(509850.9,121.2,21,0)="^^1^1^3050726^"
^DD(509850.9,121.2,21,1,0)="Result of the WEBER word test for Left ear."
^DD(509850.9,121.2,"DT")="3050726"
^DD(509850.9,121.21,0)="PT STENGER L^F^^121;21^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,121.21,3)="Answer must be 1-3 characters in length."
^DD(509850.9,121.21,21,0)="^^1^1^3050726^"
^DD(509850.9,121.21,21,1,0)="Result of the PT STNEGER word test for Left ear."
^DD(509850.9,121.21,"DT")="3050726"
^DD(509850.9,121.22,0)="RINNE L^F^^121;22^K:$L(X)>3!($L(X)<1) X"
^DD(509850.9,121.22,3)="Answer must be 1-3 characters in length."
^DD(509850.9,121.22,21,0)="^^1^1^3050726^"
^DD(509850.9,121.22,21,1,0)="Result of the RINNE word test for Left ear."
^DD(509850.9,121.22,"DT")="3050726"
^DD(509850.9,121.23,0)="OTHER TEST L^F^^121;23^K:$L(X)>10!($L(X)<1) X"
^DD(509850.9,121.23,3)="Answer must be 1-10 characters in length."
^DD(509850.9,121.23,21,0)="^^1^1^3050809^"
^DD(509850.9,121.23,21,1,0)="Result of any other word test for Left ear."
^DD(509850.9,121.23,"DT")="3050809"
^DD(509850.9,122,0)="COMMENTS^509850.9122^^122;0"
^DD(509850.9,122,21,0)="^.001^4^4^3050815^^"
^DD(509850.9,122,21,1,0)="This word processing field holds any comments entered into the Audiogram "
^DD(509850.9,122,21,2,0)="Edit program before it is signed. The data is limited to 300 characters "
^DD(509850.9,122,21,3,0)="by the edit program and will appear on VA form 10-2364, when that form is "
^DD(509850.9,122,21,4,0)="generated from the Audiogram Display program."
^DD(509850.9,791000.01,0)="SSN TEXT^F^^791000;1^K:$L(X)>10!($L(X)<9) X"
^DD(509850.9,791000.01,1,0)="^.1^^-1"
^DD(509850.9,791000.01,1,1,0)="509850.9^SSN"
^DD(509850.9,791000.01,1,1,1)="S ^ACK(509850.9,""SSN"",$E(X,1,30),DA)="""""
^DD(509850.9,791000.01,1,1,2)="K ^ACK(509850.9,""SSN"",$E(X,1,30),DA)"
^DD(509850.9,791000.01,1,1,"%D",0)="^.101^1^1^3050801^^^^"
^DD(509850.9,791000.01,1,1,"%D",1,0)="reg xref on ssn text as sent from clinic, in 791000.01"
^DD(509850.9,791000.01,1,1,"DT")="3020910"
^DD(509850.9,791000.01,3)="Answer must be 9-10 characters in length."
^DD(509850.9,791000.01,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,791000.01,21,1,0)="DDC field - text SSN of the patient"
^DD(509850.9,791000.01,"DT")="3050810"
^DD(509850.9,791000.02,0)="DFN NAME TEXT^F^^791000;2^K:$L(X)>30!($L(X)<3) X"
^DD(509850.9,791000.02,1,0)="^.1^^-1"
^DD(509850.9,791000.02,1,1,0)="509850.9^NAME^MUMPS"
^DD(509850.9,791000.02,1,1,1)="S Z1=$P(^ACK(509850.9,DA,791000),U,1) I Z1 S ^ACK(509850.9,""NAME"",X,$E(Z1,6,9),DA)="""""
^DD(509850.9,791000.02,1,1,2)="S Z1=$P(^ACK(509850.9,DA,791000),U,1) I Z1 K ^ACK(509850.9,""NAME"",X,$E(Z1,6,9),DA)"
^DD(509850.9,791000.02,1,1,"%D",0)="^.101^1^1^3020614^^^^"
^DD(509850.9,791000.02,1,1,"%D",1,0)="BY NAME AND LAST 4"
^DD(509850.9,791000.02,1,1,"DT")="3020614"
^DD(509850.9,791000.02,1,2,0)="509850.9^NM"
^DD(509850.9,791000.02,1,2,1)="S ^ACK(509850.9,""NM"",$E(X,1,30),DA)="""""
^DD(509850.9,791000.02,1,2,2)="K ^ACK(509850.9,""NM"",$E(X,1,30),DA)"
^DD(509850.9,791000.02,1,2,"%D",0)="^.101^1^1^3030729^^^^"
^DD(509850.9,791000.02,1,2,"%D",1,0)="REG XREF ON TEXT NAME AS SENT FROM CLINIC TO DDC, from 791000.02"
^DD(509850.9,791000.02,1,2,"DT")="3020910"
^DD(509850.9,791000.02,3)="Answer must be 3-30 characters in length."
^DD(509850.9,791000.02,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,791000.02,21,1,0)="DDC field - the text name of the patient"
^DD(509850.9,791000.02,"DT")="3050810"
^DD(509850.9,791000.03,0)="EXAMINER NAME TEXT^F^^791000;3^K:$L(X)>30!($L(X)<3) X"
^DD(509850.9,791000.03,3)="Answer must be 3-30 characters in length."
^DD(509850.9,791000.03,21,0)="^.001^1^1^3030131^^^^"
^DD(509850.9,791000.03,21,1,0)="DDC field - text name of the examiner"
^DD(509850.9,791000.03,"DT")="3011116"
^DD(509850.9,791000.04,0)="REFERRAL SOURCE TEXT^F^^791000;4^K:$L(X)>30!($L(X)<2) X"
^DD(509850.9,791000.04,3)="Answer must be 2-30 characters in length."
^DD(509850.9,791000.04,21,0)="^.001^1^1^3030131^^^^"
^DD(509850.9,791000.04,21,1,0)="DDC field - text name of referral source (hospital location)"
^DD(509850.9,791000.04,"DT")="3011116"
^DD(509850.9,791000.05,0)="BIRTH DATE^F^^791000;5^K:$L(X)>9!($L(X)<1) X"
^DD(509850.9,791000.05,3)="Answer must be 1-9 characters in length."
^DD(509850.9,791000.05,21,0)="^.001^1^1^3030131^^^"
^DD(509850.9,791000.05,21,1,0)="DDC field - date of Birth of patient"
^DD(509850.9,791000.05,"DT")="3050817"
^DD(509850.9,791000.06,0)="*ELIGIBILITY STATUS TEXT^F^^791000;6^K:$L(X)>24!($L(X)<1) X"
^DD(509850.9,791000.06,3)="Answer must be 1-24 characters in length."
^DD(509850.9,791000.06,21,0)="^^2^2^3050808^"
^DD(509850.9,791000.06,21,1,0)="MARKED FOR DELETION"
^DD(509850.9,791000.06,21,2,0)="DDC field - text eligibility status : see Set 7 (P,R,V)"
^DD(509850.9,791000.06,23,0)="^^1^1^3050808^"
^DD(509850.9,791000.06,23,1,0)="MARKED FOR DELETION"
^DD(509850.9,791000.06,"DT")="3050808"
^DD(509850.9,791000.07,0)="TYPE OF VET TEXT^F^^791000;7^K:$L(X)>25!($L(X)<1) X"
^DD(509850.9,791000.07,3)="Answer must be 1-25 characters in length."
^DD(509850.9,791000.07,21,0)="^.001^1^1^3030131^^^^"
^DD(509850.9,791000.07,21,1,0)="DDC field - abbreviation of visit type"
^DD(509850.9,791000.07,"DT")="3020705"
^DD(509850.9,791000.08,0)="STATION NUMBER^F^^791000;8^K:$L(X)>8!($L(X)<3) X"
^DD(509850.9,791000.08,3)="Answer must be 3-8 characters in length."
^DD(509850.9,791000.08,21,0)="^.001^1^1^3030131^^^^"
^DD(509850.9,791000.08,21,1,0)="DDC field - station Number of sending site"
^DD(509850.9,791000.08,"DT")="3020701"
^DD(509850.9,791000.09,0)="DATE SIGNED AT SITE^D^^791000;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(509850.9,791000.09,21,0)="^^1^1^3030131^"
^DD(509850.9,791000.09,21,1,0)="DDC field - date signed at site"
^DD(509850.9,791000.09,"DT")="3011116"
^DD(509850.9,791000.1,0)="AUDIOMETRIC DATA IEN AT SITE^NJ6,0^^791000;10^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(509850.9,791000.1,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(509850.9,791000.1,21,0)="^.001^1^1^3030131^^"
^DD(509850.9,791000.1,21,1,0)="DDC field - IEN of Audiometric Exam File #791850.9 at site."
^DD(509850.9,791000.1,"DT")="3020410"
^DD(509850.9,791000.11,0)="SENDING USER^F^^791000;11^K:$L(X)>30!($L(X)<1) X"
^DD(509850.9,791000.11,3)="Answer must be 1-30 characters in length."
^DD(509850.9,791000.11,21,0)="^.001^1^1^3030131^^^"
^DD(509850.9,791000.11,21,1,0)="DDC field - name of the submitting user retrieved from mail msg"
^DD(509850.9,791000.11,"DT")="3020701"
^DD(509850.9,791000.12,0)="SENDING SERVICE^F^^791000;12^K:$L(X)>30!($L(X)<2) X"
^DD(509850.9,791000.12,3)="Answer must be 2-30 characters in length."
^DD(509850.9,791000.12,21,0)="^.001^1^1^3030728^^^^"
^DD(509850.9,791000.12,21,1,0)="DDC field - name of the Service of the submitting user"
^DD(509850.9,791000.12,"DT")="3020603"
^DD(509850.9,"B","*ELIGIBILITY STATUS TEXT",791000.06)=""
^DD(509850.9,"B","*FINAL SRT TAG L",115.16)=""
^DD(509850.9,"B","*FINAL SRT TAG R",115.15)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 1000",60.05)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 125",60.01)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 1500",60.06)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 2000",60.07)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 250",60.02)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 3000",60.08)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 4000",60.09)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 500",60.03)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 6000",60.1)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 750",60.04)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L 8000",60.11)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL L12000",60.12)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 1000",50.05)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 125",50.01)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 1500",50.06)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 2000",50.07)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 250",50.02)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 3000",50.08)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 4000",50.09)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 6000",50.1)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 750",50.04)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R 8000",50.11)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVEL R12000",50.12)=""
^DD(509850.9,"B","*INITIAL A/C MASK LEVELR 500",50.03)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 1000",31.05)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 125",31.01)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 1500",31.06)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 2000",31.07)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 250",31.02)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 3000",31.08)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 4000",31.09)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 500",31.03)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 6000",31.1)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 750",31.04)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L 8000",31.11)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG L12000",31.12)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 1000",11.05)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 125",11.01)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 1500",11.06)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 2000",11.07)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 250",11.02)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 3000",11.08)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 4000",11.09)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 500",11.03)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 6000",11.1)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 750",11.04)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R 8000",11.11)=""
^DD(509850.9,"B","*INITIAL A/C THRESH TAG R12000",11.12)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL 6000",100.09)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L",100.01)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L 1000",100.04)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L 1500",100.05)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L 2000",100.06)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L 3000",100.07)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L 4000",100.08)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L 500",100.02)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL L 750",100.03)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 1000",90.04)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 1500",90.05)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 2000",90.06)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 250",90.01)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 3000",90.07)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 4000",90.08)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 500",90.02)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 6000",90.09)=""
^DD(509850.9,"B","*INITIAL B/C MASK LEVEL R 750",90.03)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 1000",81.04)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 1000",81.08)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 1500",81.05)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 2000",81.06)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 250",81.01)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 3000",81.07)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 500",81.02)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 6000",81.09)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG L 750",81.03)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 1000",71.04)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 1000",71.05)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 2000",71.06)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 250",71.01)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 3000",71.07)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 4000",71.08)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 500",71.02)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 6000",71.09)=""
^DD(509850.9,"B","*INITIAL B/C THRESH TAG R 750",71.03)=""
^DD(509850.9,"B","*INITIAL SRT TAG L",115.18)=""
^DD(509850.9,"B","*INITIAL SRT TAG R",115.17)=""
^DD(509850.9,"B","*PRESENTATION METHOD L-1",111.05)=""
^DD(509850.9,"B","*PRESENTATION METHOD L-2",111.1)=""
^DD(509850.9,"B","*PRESENTATION METHOD L-3",111.15)=""
^DD(509850.9,"B","*PRESENTATION METHOD L-4",111.2)=""
^DD(509850.9,"B","*PRESENTATION METHOD L-5",111.25)=""
^DD(509850.9,"B","*PRESENTATION METHOD R-2",110.1)=""
^DD(509850.9,"B","*PRESENTATION METHOD R-3",110.15)=""
^DD(509850.9,"B","*PRESENTATION METHOD R-4",110.2)=""
^DD(509850.9,"B","*PRESENTATION METHOD R-5",110.25)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAAG L 750",41.04)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG 500",41.03)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 1000",41.05)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 12000",41.12)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 125",41.01)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 2000",41.07)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 250",41.02)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 3000",41.08)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 4000",41.09)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 6000",41.1)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG L 8000",41.11)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 1000",21.05)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 12000",21.12)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 125",21.01)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 1500",21.06)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 2000",21.07)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 250",21.02)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 3000",21.08)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 4000",21.09)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 500",21.03)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 6000",21.1)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 750",21.04)=""
^DD(509850.9,"B","*REPEAT A/C THRESH TAG R 8000",21.11)=""
^DD(509850.9,"B","*REPEAT A/C THRESHOLD TAG 1500",41.06)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG  L 750",86.03)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 1000",86.04)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 1500",86.05)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 2000",86.06)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 250",86.01)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 3000",86.07)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 4000",86.08)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 500",86.02)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG L 6000",86.09)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 1000",76.04)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 1500",76.05)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 2000",76.06)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 250",76.01)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 3000",76.07)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 4000",76.08)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 500",76.02)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 6000",76.09)=""
^DD(509850.9,"B","*REPEAT B/C THRESH TAG R 750",76.03)=""
^DD(509850.9,"B","*VA ELIGIBILITY STATUS",.06)=""
^DD(509850.9,"B","*WORD LIST L-2",111.08)=""
^DD(509850.9,"B","*WORD LIST L-3",111.13)=""
^DD(509850.9,"B","*WORD LIST L-4",111.18)=""
^DD(509850.9,"B","*WORD LIST L-5",111.23)=""
^DD(509850.9,"B","*WORD LIST R-2",110.08)=""
^DD(509850.9,"B","*WORD LIST R-3",110.13)=""
^DD(509850.9,"B","*WORD LIST R-4",110.18)=""
^DD(509850.9,"B","*WORD LIST R-5",110.23)=""
^DD(509850.9,"B","ACOUSTIC REFLEX DECAY L 1000",121.13)=""
^DD(509850.9,"B","ACOUSTIC REFLEX DECAY L 500",121.12)=""
^DD(509850.9,"B","ACOUSTIC REFLEX DECAY R 1000",120.13)=""
^DD(509850.9,"B","ACOUSTIC REFLEX DECAY R 500",120.12)=""
^DD(509850.9,"B","AGE AT VISIT",.05)=""
^DD(509850.9,"B","APPLIED MAX L",115.2)=""
^DD(509850.9,"B","APPLIED MAX R",115.19)=""
^DD(509850.9,"B","AR HALF LIFE 1000 L",121.15)=""
^DD(509850.9,"B","AR HALF LIFE 1000 R",120.15)=""
^DD(509850.9,"B","AR HALF LIFE 500 L",121.14)=""
^DD(509850.9,"B","AR HALF LIFE 500 R",120.14)=""
^DD(509850.9,"B","AUDIOMETRIC DATA IEN AT SITE",791000.1)=""
^DD(509850.9,"B","BIRTH DATE",791000.05)=""
^DD(509850.9,"B","CAR BBN L",121.18)=""
^DD(509850.9,"B","CAR BBN R",120.18)=""
^DD(509850.9,"B","CAR THRESHOLD L 1000",121.09)=""
^DD(509850.9,"B","CAR THRESHOLD L 2000",121.1)=""
^DD(509850.9,"B","CAR THRESHOLD L 4000",121.11)=""
^DD(509850.9,"B","CAR THRESHOLD L 500",121.08)=""
^DD(509850.9,"B","CAR THRESHOLD R 1000",120.09)=""
^DD(509850.9,"B","CAR THRESHOLD R 2000",120.1)=""
^DD(509850.9,"B","CAR THRESHOLD R 4000",120.11)=""
^DD(509850.9,"B","CAR THRESHOLD R 500",120.08)=""
^DD(509850.9,"B","CI NOISE MATERIAL LEFT",113.29)=""
^DD(509850.9,"B","CI NOISE MATERIAL RIGHT",112.29)=""
^DD(509850.9,"B","CI NOISE PERCENT LEFT",113.28)=""
^DD(509850.9,"B","CI NOISE PERCENT RIGHT",112.28)=""
^DD(509850.9,"B","CI PERCENT CORRECT L-1",113.04)=""
^DD(509850.9,"B","CI PERCENT CORRECT L-2",113.09)=""
^DD(509850.9,"B","CI PERCENT CORRECT R-1",112.04)=""
^DD(509850.9,"B","CI PERCENT CORRECT R-2",112.09)=""
^DD(509850.9,"B","CI WORD LIST L-1",113.03)=""
^DD(509850.9,"B","CI WORD LIST L-2",113.08)=""
^DD(509850.9,"B","CI WORD LIST R-1",112.03)=""
^DD(509850.9,"B","CI WORD LIST R-2",112.08)=""
^DD(509850.9,"B","CLAIM NUMBER",.14)=""
^DD(509850.9,"B","COMMENTS",122)=""
^DD(509850.9,"B","DATE SENT TO DDC",.12)=""
^DD(509850.9,"B","DATE SIGNED",.09)=""
^DD(509850.9,"B","DATE SIGNED AT SITE",791000.09)=""
^DD(509850.9,"B","DATE/TIME OF VISIT",.01)=""
^DD(509850.9,"B","DFN NAME TEXT",791000.02)=""
^DD(509850.9,"B","EXAMINER NAME TEXT",791000.03)=""
^DD(509850.9,"B","EXAMINING AUDIOLOGIST",.03)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 1000",61.05)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 12000",61.12)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 125",61.01)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 1500",61.06)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 2000",61.07)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 250",61.02)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 3000",61.08)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 4000",61.09)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 500",61.03)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 6000",61.1)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 750",61.04)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL L 8000",61.11)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 1000",51.05)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 12000",51.12)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 125",51.01)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 1500",51.06)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 2000",51.07)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 250",51.02)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 3000",51.08)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 4000",51.09)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 500",51.03)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 6000",51.1)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 750",51.04)=""
^DD(509850.9,"B","FINAL A/C MASK LEVEL R 8000",51.11)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 1000",40.05)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 12000",40.12)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 125",40.01)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 1500",40.06)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 2000",40.07)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 250",40.02)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 3000",40.08)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 4000",40.09)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 500",40.03)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 6000",40.1)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 750",40.04)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD L 8000",40.11)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 1000",20.05)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 12000",20.12)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 125",20.01)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 1500",20.06)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 2000",20.07)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 250",20.02)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 3000",20.08)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 4000",20.09)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 500",20.03)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 6000",20.1)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 750",20.04)=""
^DD(509850.9,"B","FINAL A/C THRESHOLD R 8000",20.11)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 1000",101.04)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 1500",101.05)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 2000",101.06)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 250",101.01)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 3000",101.07)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 4000",101.08)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 500",101.02)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 6000",101.09)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL L 750",101.03)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 1000",91.04)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 1500",91.05)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 2000",91.06)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 250",91.01)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 3000",91.07)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 4000",91.08)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 500",91.02)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 6000",91.09)=""
^DD(509850.9,"B","FINAL B/C MASK LEVEL R 750",91.03)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 1000",85.04)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 1500",85.05)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 2000",85.06)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 250",85.01)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 3000",85.07)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 4000",85.08)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 500",85.02)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 6000",85.09)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD L 750",85.03)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 1000",75.04)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 1500",75.05)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 2000",75.06)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 250",75.01)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 3000",75.07)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 4000",75.08)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 500",75.02)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 6000",75.09)=""
^DD(509850.9,"B","FINAL B/C THRESHOLD R 750",75.03)=""
^DD(509850.9,"B","FINAL SRT MASK LEVEL L",115.08)=""
^DD(509850.9,"B","FINAL SRT MASK LEVEL R",115.04)=""
^DD(509850.9,"B","IAR BBN L",121.17)=""
^DD(509850.9,"B","IAR BBN R",120.17)=""
^DD(509850.9,"B","IAR THRESHOLD L 1000",121.05)=""
^DD(509850.9,"B","IAR THRESHOLD L 2000",121.06)=""
^DD(509850.9,"B","IAR THRESHOLD L 4000",121.07)=""
^DD(509850.9,"B","IAR THRESHOLD L 500",121.04)=""
^DD(509850.9,"B","IAR THRESHOLD R 1000",120.05)=""
^DD(509850.9,"B","IAR THRESHOLD R 2000",120.06)=""
^DD(509850.9,"B","IAR THRESHOLD R 4000",120.07)=""
^DD(509850.9,"B","IAR THRESHOLD R 500",120.04)=""
^DD(509850.9,"B","ICN",.11)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 1000",30.05)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 12000",30.12)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 125",30.01)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 1500",30.06)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 2000",30.07)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 250",30.02)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 3000",30.08)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 4000",30.09)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 500",30.03)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 6000",30.1)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 750",30.04)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD L 8000",30.11)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 1000",10.05)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 12000",10.12)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 125",10.01)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 1500",10.06)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 2000",10.07)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 250",10.02)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 3000",10.08)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 4000",10.09)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 500",10.03)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 6000",10.1)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 750",10.04)=""
^DD(509850.9,"B","INITIAL A/C THRESHOLD R 8000",10.11)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 1000",80.04)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 1500",80.05)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 2000",80.06)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 250",80.01)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 3000",80.07)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 4000",80.08)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 500",80.02)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 6000",80.09)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD L 750",80.03)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 1000",70.04)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 1500",70.05)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 2000",70.06)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 250",70.01)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 3000",70.07)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 4000",70.08)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 500",70.02)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 6000",70.09)=""
^DD(509850.9,"B","INITIAL B/C THRESHOLD R 750",70.03)=""
^DD(509850.9,"B","INITIAL SRT MASK LEVEL L",115.07)=""
^DD(509850.9,"B","INITIAL SRT MASK LEVEL R",115.03)=""
^DD(509850.9,"B","INITIAL SRT THRESH L",115.05)=""
^DD(509850.9,"B","INITIAL SRT THRESH R",115.01)=""
^DD(509850.9,"B","INTER-TEST CONSISTENCY L",121.16)=""
^DD(509850.9,"B","INTER-TEST CONSISTENCY R",120.16)=""
^DD(509850.9,"B","L TYMPANOGRAM TYPE",1.12)=""
^DD(509850.9,"B","LEFT FOUR FREQUENCY PTA",1.02)=""
^DD(509850.9,"B","LEFT MCL",1.09)=""
^DD(509850.9,"B","LEFT THREE FREQUENCY PTA",1.04)=""
^DD(509850.9,"B","LEFT TWO FREQUENCY PTA",1.06)=""
^DD(509850.9,"B","LEFT UCL",1.1)=""
^DD(509850.9,"B","LIST L-1",111.28)=""
^DD(509850.9,"B","LIST L-2",111.29)=""
^DD(509850.9,"B","LIST L-3",111.3)=""
^DD(509850.9,"B","LIST L-4",111.31)=""
^DD(509850.9,"B","LIST L-5",111.32)=""
^DD(509850.9,"B","LIST R-1",110.28)=""
^DD(509850.9,"B","LIST R-2",110.29)=""
^DD(509850.9,"B","LIST R-3",110.3)=""
^DD(509850.9,"B","LIST R-4",110.31)=""
^DD(509850.9,"B","LIST R-5",110.32)=""
^DD(509850.9,"B","MASKING LEVEL L-1",111.07)=""
^DD(509850.9,"B","MASKING LEVEL L-2",111.12)=""
^DD(509850.9,"B","MASKING LEVEL L-3",111.17)=""
^DD(509850.9,"B","MASKING LEVEL L-4",111.22)=""
^DD(509850.9,"B","MASKING LEVEL L-5",111.27)=""
^DD(509850.9,"B","MASKING LEVEL R-1",110.07)=""
^DD(509850.9,"B","MASKING LEVEL R-2",110.12)=""
^DD(509850.9,"B","MASKING LEVEL R-3",110.17)=""
^DD(509850.9,"B","MASKING LEVEL R-4",110.22)=""
^DD(509850.9,"B","MASKING LEVEL R-5",110.27)=""
^DD(509850.9,"B","MATERIAL L-1",111.03)=""
^DD(509850.9,"B","MATERIAL R-1",110.03)=""
^DD(509850.9,"B","MESSAGE NUMBER",.13)=""
^DD(509850.9,"B","MIDDLE EAR PRESSURE L",121.01)=""
^DD(509850.9,"B","MIDDLE EAR PRESSURE R",120.01)=""
^DD(509850.9,"B","OTHER TEST L",121.23)=""
^DD(509850.9,"B","OTHER TEST R",120.23)=""
^DD(509850.9,"B","PATIENT",.02)=""
^DD(509850.9,"B","PBMAX L",115.12)=""
^DD(509850.9,"B","PBMAX R",115.09)=""
^DD(509850.9,"B","PBMIN L",115.13)=""
^DD(509850.9,"B","PBMIN R",115.1)=""
^DD(509850.9,"B","PERCENT CORRECT L-1",111.04)=""
^DD(509850.9,"B","PERCENT CORRECT L-2",111.09)=""
^DD(509850.9,"B","PERCENT CORRECT L-3",111.14)=""
^DD(509850.9,"B","PERCENT CORRECT L-4",111.19)=""
^DD(509850.9,"B","PERCENT CORRECT L-5",111.24)=""
^DD(509850.9,"B","PERCENT CORRECT R-1",110.04)=""
^DD(509850.9,"B","PERCENT CORRECT R-2",110.09)=""
^DD(509850.9,"B","PERCENT CORRECT R-3",110.14)=""
^DD(509850.9,"B","PERCENT CORRECT R-4",110.19)=""
^DD(509850.9,"B","PERCENT CORRECT R-5",110.24)=""
^DD(509850.9,"B","PI/PB L",115.14)=""
^DD(509850.9,"B","PI/PB R",115.11)=""
^DD(509850.9,"B","PK IMMITTANCE 226 L",121.02)=""
^DD(509850.9,"B","PK IMMITTANCE 226 R",120.02)=""
^DD(509850.9,"B","PK IMMITTANCE 678 L",121.19)=""
^DD(509850.9,"B","PK IMMITTANCE 678 R",120.19)=""
^DD(509850.9,"B","PRESENTATION LEVEL L-1",111.06)=""
^DD(509850.9,"B","PRESENTATION LEVEL L-2",111.11)=""
^DD(509850.9,"B","PRESENTATION LEVEL L-3",111.16)=""
^DD(509850.9,"B","PRESENTATION LEVEL L-4",111.21)=""
^DD(509850.9,"B","PRESENTATION LEVEL L-5",111.26)=""
^DD(509850.9,"B","PRESENTATION LEVEL R-1",110.06)=""
^DD(509850.9,"B","PRESENTATION LEVEL R-2",110.11)=""
^DD(509850.9,"B","PRESENTATION LEVEL R-3",110.16)=""
^DD(509850.9,"B","PRESENTATION LEVEL R-4",110.21)=""
^DD(509850.9,"B","PRESENTATION LEVEL R-5",110.26)=""
^DD(509850.9,"B","PRESENTATION METHOD R-1",110.05)=""
^DD(509850.9,"B","PT STENGER L",121.21)=""
^DD(509850.9,"B","PT STENGER R",120.21)=""
^DD(509850.9,"B","R TYMPANOGRAM TYPE",1.11)=""
^DD(509850.9,"B","REFERRAL SOURCE",.04)=""
^DD(509850.9,"B","REFERRAL SOURCE TEXT",791000.04)=""
^DD(509850.9,"B","REPEAT SRT THRESH L",115.06)=""
^DD(509850.9,"B","REPEAT SRT THRESH R",115.02)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 1000",35.05)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 125",35.01)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 1500",35.06)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 2000",35.07)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 250",35.02)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 3000",35.08)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 4000",35.09)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 500",35.03)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 6000",35.1)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 750",35.04)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD L 8000",35.11)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 1000",15.05)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 125",15.01)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 1500",15.06)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 2000",15.07)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 250",15.02)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 3000",15.08)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 4000",15.09)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 500",15.03)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 6000",15.1)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 750",15.04)=""
^DD(509850.9,"B","RETEST A/C THRESHOLD R 8000",15.11)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 1000",82.04)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 1500",82.05)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 2000",82.06)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 250",82.01)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 3000",82.07)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 4000",82.08)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 500",82.02)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 6000",82.09)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD L 750",82.03)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 1000",72.04)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 1500",72.05)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 2000",72.06)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 250",72.01)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 3000",72.07)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 4000",72.08)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 500",72.02)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 6000",72.09)=""
^DD(509850.9,"B","RETEST B/C THRESHOLD R 750",72.03)=""
^DD(509850.9,"B","RETRANSMISSION DATE",.15)=""
^DD(509850.9,"B","RETRANSMISSION USER",.16)=""
^DD(509850.9,"B","RIGHT FOUR FREQUENCY PTA",1.01)=""
^DD(509850.9,"B","RIGHT MCL",1.07)=""
^DD(509850.9,"B","RIGHT THREE FREQUENCY PTA",1.03)=""
^DD(509850.9,"B","RIGHT TWO FREQUENCY PTA",1.05)=""
^DD(509850.9,"B","RIGHT UCL",1.08)=""
^DD(509850.9,"B","RINNE L",121.22)=""
^DD(509850.9,"B","RINNE R",120.22)=""
^DD(509850.9,"B","SENDING SERVICE",791000.12)=""
^DD(509850.9,"B","SENDING USER",791000.11)=""
^DD(509850.9,"B","SSN TEXT",791000.01)=""
^DD(509850.9,"B","STATION NUMBER",791000.08)=""
^DD(509850.9,"B","TESTING STATION",.1)=""
^DD(509850.9,"B","TRANSDUCER TYPE",.08)=""
^DD(509850.9,"B","TYPE OF VET TEXT",791000.07)=""
^DD(509850.9,"B","TYPE OF VISIT",.07)=""
^DD(509850.9,"B","VEQ - EQUIV EAR CANAL VOL L",121.03)=""
^DD(509850.9,"B","VEQ - EQUIV EAR CANAL VOL R",120.03)=""
^DD(509850.9,"B","WEBER L",121.2)=""
^DD(509850.9,"B","WEBER R",120.2)=""
^DD(509850.9,"GL",0,1,.01)=""
^DD(509850.9,"GL",0,2,.02)=""
^DD(509850.9,"GL",0,3,.03)=""
^DD(509850.9,"GL",0,4,.04)=""
^DD(509850.9,"GL",0,5,.05)=""
^DD(509850.9,"GL",0,6,.06)=""
^DD(509850.9,"GL",0,7,.07)=""
^DD(509850.9,"GL",0,8,.08)=""
^DD(509850.9,"GL",0,9,.09)=""
^DD(509850.9,"GL",0,10,.1)=""
^DD(509850.9,"GL",0,11,.11)=""
^DD(509850.9,"GL",0,12,.12)=""
^DD(509850.9,"GL",0,13,.13)=""
^DD(509850.9,"GL",0,14,.14)=""
^DD(509850.9,"GL",0,15,.15)=""
^DD(509850.9,"GL",0,16,.16)=""
^DD(509850.9,"GL",1,1,1.01)=""
^DD(509850.9,"GL",1,2,1.02)=""
^DD(509850.9,"GL",1,3,1.03)=""
^DD(509850.9,"GL",1,4,1.04)=""
^DD(509850.9,"GL",1,5,1.05)=""
^DD(509850.9,"GL",1,6,1.06)=""
^DD(509850.9,"GL",1,7,1.07)=""
^DD(509850.9,"GL",1,8,1.08)=""
^DD(509850.9,"GL",1,9,1.09)=""
^DD(509850.9,"GL",1,10,1.1)=""
^DD(509850.9,"GL",1,11,1.11)=""
^DD(509850.9,"GL",1,12,1.12)=""
^DD(509850.9,"GL",10,1,10.01)=""
^DD(509850.9,"GL",10,2,10.02)=""
^DD(509850.9,"GL",10,3,10.03)=""
^DD(509850.9,"GL",10,4,10.04)=""
^DD(509850.9,"GL",10,5,10.05)=""
^DD(509850.9,"GL",10,6,10.06)=""
^DD(509850.9,"GL",10,7,10.07)=""
^DD(509850.9,"GL",10,8,10.08)=""
^DD(509850.9,"GL",10,9,10.09)=""
^DD(509850.9,"GL",10,10,10.1)=""
^DD(509850.9,"GL",10,11,10.11)=""
^DD(509850.9,"GL",10,12,10.12)=""
^DD(509850.9,"GL",11,1,11.01)=""
^DD(509850.9,"GL",11,2,11.02)=""
^DD(509850.9,"GL",11,3,11.03)=""
^DD(509850.9,"GL",11,4,11.04)=""
^DD(509850.9,"GL",11,5,11.05)=""
^DD(509850.9,"GL",11,6,11.06)=""
^DD(509850.9,"GL",11,7,11.07)=""
^DD(509850.9,"GL",11,8,11.08)=""
^DD(509850.9,"GL",11,9,11.09)=""
^DD(509850.9,"GL",11,10,11.1)=""
^DD(509850.9,"GL",11,11,11.11)=""
^DD(509850.9,"GL",11,12,11.12)=""
^DD(509850.9,"GL",15,1,15.01)=""
^DD(509850.9,"GL",15,2,15.02)=""
^DD(509850.9,"GL",15,3,15.03)=""
^DD(509850.9,"GL",15,4,15.04)=""
^DD(509850.9,"GL",15,5,15.05)=""
^DD(509850.9,"GL",15,6,15.06)=""
^DD(509850.9,"GL",15,7,15.07)=""
^DD(509850.9,"GL",15,8,15.08)=""
^DD(509850.9,"GL",15,9,15.09)=""
^DD(509850.9,"GL",15,10,15.1)=""
^DD(509850.9,"GL",15,11,15.11)=""
^DD(509850.9,"GL",20,1,20.01)=""
^DD(509850.9,"GL",20,2,20.02)=""
^DD(509850.9,"GL",20,3,20.03)=""
^DD(509850.9,"GL",20,4,20.04)=""
^DD(509850.9,"GL",20,5,20.05)=""
^DD(509850.9,"GL",20,6,20.06)=""
^DD(509850.9,"GL",20,7,20.07)=""
^DD(509850.9,"GL",20,8,20.08)=""
^DD(509850.9,"GL",20,9,20.09)=""
^DD(509850.9,"GL",20,10,20.1)=""
^DD(509850.9,"GL",20,11,20.11)=""
^DD(509850.9,"GL",20,12,20.12)=""
^DD(509850.9,"GL",21,1,21.01)=""
^DD(509850.9,"GL",21,2,21.02)=""
^DD(509850.9,"GL",21,3,21.03)=""
^DD(509850.9,"GL",21,4,21.04)=""
^DD(509850.9,"GL",21,5,21.05)=""
^DD(509850.9,"GL",21,6,21.06)=""
^DD(509850.9,"GL",21,7,21.07)=""
^DD(509850.9,"GL",21,8,21.08)=""
^DD(509850.9,"GL",21,9,21.09)=""
^DD(509850.9,"GL",21,10,21.1)=""
^DD(509850.9,"GL",21,11,21.11)=""
^DD(509850.9,"GL",21,12,21.12)=""
^DD(509850.9,"GL",30,1,30.01)=""
^DD(509850.9,"GL",30,2,30.02)=""
^DD(509850.9,"GL",30,3,30.03)=""
^DD(509850.9,"GL",30,4,30.04)=""
^DD(509850.9,"GL",30,5,30.05)=""
^DD(509850.9,"GL",30,6,30.06)=""
^DD(509850.9,"GL",30,7,30.07)=""
^DD(509850.9,"GL",30,8,30.08)=""
^DD(509850.9,"GL",30,9,30.09)=""
^DD(509850.9,"GL",30,10,30.1)=""
^DD(509850.9,"GL",30,11,30.11)=""
^DD(509850.9,"GL",30,12,30.12)=""
^DD(509850.9,"GL",31,1,31.01)=""
^DD(509850.9,"GL",31,2,31.02)=""
^DD(509850.9,"GL",31,3,31.03)=""
^DD(509850.9,"GL",31,4,31.04)=""
^DD(509850.9,"GL",31,5,31.05)=""
^DD(509850.9,"GL",31,6,31.06)=""
^DD(509850.9,"GL",31,7,31.07)=""
^DD(509850.9,"GL",31,8,31.08)=""
^DD(509850.9,"GL",31,9,31.09)=""
^DD(509850.9,"GL",31,10,31.1)=""
^DD(509850.9,"GL",31,11,31.11)=""
^DD(509850.9,"GL",31,12,31.12)=""
^DD(509850.9,"GL",35,1,35.01)=""
^DD(509850.9,"GL",35,2,35.02)=""
^DD(509850.9,"GL",35,3,35.03)=""
^DD(509850.9,"GL",35,4,35.04)=""
^DD(509850.9,"GL",35,5,35.05)=""
^DD(509850.9,"GL",35,6,35.06)=""
^DD(509850.9,"GL",35,7,35.07)=""
^DD(509850.9,"GL",35,8,35.08)=""
^DD(509850.9,"GL",35,9,35.09)=""
^DD(509850.9,"GL",35,10,35.1)=""
^DD(509850.9,"GL",35,11,35.11)=""
^DD(509850.9,"GL",40,1,40.01)=""
^DD(509850.9,"GL",40,2,40.02)=""
^DD(509850.9,"GL",40,3,40.03)=""
^DD(509850.9,"GL",40,4,40.04)=""
^DD(509850.9,"GL",40,5,40.05)=""
^DD(509850.9,"GL",40,6,40.06)=""
^DD(509850.9,"GL",40,7,40.07)=""
^DD(509850.9,"GL",40,8,40.08)=""
^DD(509850.9,"GL",40,9,40.09)=""
^DD(509850.9,"GL",40,10,40.1)=""
^DD(509850.9,"GL",40,11,40.11)=""
^DD(509850.9,"GL",40,12,40.12)=""
^DD(509850.9,"GL",41,1,41.01)=""
^DD(509850.9,"GL",41,2,41.02)=""
^DD(509850.9,"GL",41,3,41.03)=""
^DD(509850.9,"GL",41,4,41.04)=""
^DD(509850.9,"GL",41,5,41.05)=""
^DD(509850.9,"GL",41,6,41.06)=""
^DD(509850.9,"GL",41,7,41.07)=""
^DD(509850.9,"GL",41,8,41.08)=""
^DD(509850.9,"GL",41,9,41.09)=""
^DD(509850.9,"GL",41,10,41.1)=""
^DD(509850.9,"GL",41,11,41.11)=""
^DD(509850.9,"GL",41,12,41.12)=""
^DD(509850.9,"GL",50,1,50.01)=""
^DD(509850.9,"GL",50,2,50.02)=""
^DD(509850.9,"GL",50,3,50.03)=""
^DD(509850.9,"GL",50,4,50.04)=""
^DD(509850.9,"GL",50,5,50.05)=""
^DD(509850.9,"GL",50,6,50.06)=""
^DD(509850.9,"GL",50,7,50.07)=""
^DD(509850.9,"GL",50,8,50.08)=""
^DD(509850.9,"GL",50,9,50.09)=""
^DD(509850.9,"GL",50,10,50.1)=""
^DD(509850.9,"GL",50,11,50.11)=""
^DD(509850.9,"GL",50,12,50.12)=""
^DD(509850.9,"GL",51,1,51.01)=""
^DD(509850.9,"GL",51,2,51.02)=""
^DD(509850.9,"GL",51,3,51.03)=""
^DD(509850.9,"GL",51,4,51.04)=""
^DD(509850.9,"GL",51,5,51.05)=""
^DD(509850.9,"GL",51,6,51.06)=""
^DD(509850.9,"GL",51,7,51.07)=""
^DD(509850.9,"GL",51,8,51.08)=""
^DD(509850.9,"GL",51,9,51.09)=""
^DD(509850.9,"GL",51,10,51.1)=""
^DD(509850.9,"GL",51,11,51.11)=""
^DD(509850.9,"GL",51,12,51.12)=""
^DD(509850.9,"GL",60,1,60.01)=""
^DD(509850.9,"GL",60,2,60.02)=""
^DD(509850.9,"GL",60,3,60.03)=""
^DD(509850.9,"GL",60,4,60.04)=""
^DD(509850.9,"GL",60,5,60.05)=""
^DD(509850.9,"GL",60,6,60.06)=""
^DD(509850.9,"GL",60,7,60.07)=""
^DD(509850.9,"GL",60,8,60.08)=""
^DD(509850.9,"GL",60,9,60.09)=""
^DD(509850.9,"GL",60,10,60.1)=""
^DD(509850.9,"GL",60,11,60.11)=""
^DD(509850.9,"GL",60,12,60.12)=""
^DD(509850.9,"GL",61,1,61.01)=""
^DD(509850.9,"GL",61,2,61.02)=""
^DD(509850.9,"GL",61,3,61.03)=""
^DD(509850.9,"GL",61,4,61.04)=""
^DD(509850.9,"GL",61,5,61.05)=""
^DD(509850.9,"GL",61,6,61.06)=""
^DD(509850.9,"GL",61,7,61.07)=""
^DD(509850.9,"GL",61,8,61.08)=""
^DD(509850.9,"GL",61,9,61.09)=""
^DD(509850.9,"GL",61,10,61.1)=""
^DD(509850.9,"GL",61,11,61.11)=""
^DD(509850.9,"GL",61,12,61.12)=""
^DD(509850.9,"GL",70,1,70.01)=""
^DD(509850.9,"GL",70,2,70.02)=""
^DD(509850.9,"GL",70,3,70.03)=""
^DD(509850.9,"GL",70,4,70.04)=""
^DD(509850.9,"GL",70,5,70.05)=""
^DD(509850.9,"GL",70,6,70.06)=""
^DD(509850.9,"GL",70,7,70.07)=""
^DD(509850.9,"GL",70,8,70.08)=""
^DD(509850.9,"GL",70,9,70.09)=""
^DD(509850.9,"GL",71,1,71.01)=""
^DD(509850.9,"GL",71,2,71.02)=""
^DD(509850.9,"GL",71,3,71.03)=""
^DD(509850.9,"GL",71,4,71.04)=""
^DD(509850.9,"GL",71,5,71.05)=""
^DD(509850.9,"GL",71,6,71.06)=""
^DD(509850.9,"GL",71,7,71.07)=""
^DD(509850.9,"GL",71,8,71.08)=""
^DD(509850.9,"GL",71,9,71.09)=""
^DD(509850.9,"GL",72,1,72.01)=""
^DD(509850.9,"GL",72,2,72.02)=""
^DD(509850.9,"GL",72,3,72.03)=""
^DD(509850.9,"GL",72,4,72.04)=""
^DD(509850.9,"GL",72,5,72.05)=""
^DD(509850.9,"GL",72,6,72.06)=""
^DD(509850.9,"GL",72,7,72.07)=""
^DD(509850.9,"GL",72,8,72.08)=""
^DD(509850.9,"GL",72,9,72.09)=""
^DD(509850.9,"GL",75,1,75.01)=""
^DD(509850.9,"GL",75,2,75.02)=""
^DD(509850.9,"GL",75,3,75.03)=""
^DD(509850.9,"GL",75,4,75.04)=""
^DD(509850.9,"GL",75,5,75.05)=""
^DD(509850.9,"GL",75,6,75.06)=""
^DD(509850.9,"GL",75,7,75.07)=""
^DD(509850.9,"GL",75,8,75.08)=""
^DD(509850.9,"GL",75,9,75.09)=""
^DD(509850.9,"GL",76,1,76.01)=""
^DD(509850.9,"GL",76,2,76.02)=""
^DD(509850.9,"GL",76,3,76.03)=""
^DD(509850.9,"GL",76,4,76.04)=""
^DD(509850.9,"GL",76,5,76.05)=""
^DD(509850.9,"GL",76,6,76.06)=""
^DD(509850.9,"GL",76,7,76.07)=""
^DD(509850.9,"GL",76,8,76.08)=""
^DD(509850.9,"GL",76,9,76.09)=""
^DD(509850.9,"GL",80,1,80.01)=""
^DD(509850.9,"GL",80,2,80.02)=""
^DD(509850.9,"GL",80,3,80.03)=""
^DD(509850.9,"GL",80,4,80.04)=""
^DD(509850.9,"GL",80,5,80.05)=""
^DD(509850.9,"GL",80,6,80.06)=""
^DD(509850.9,"GL",80,7,80.07)=""
^DD(509850.9,"GL",80,8,80.08)=""
^DD(509850.9,"GL",80,9,80.09)=""
^DD(509850.9,"GL",81,1,81.01)=""
^DD(509850.9,"GL",81,2,81.02)=""
^DD(509850.9,"GL",81,3,81.03)=""
^DD(509850.9,"GL",81,4,81.04)=""
^DD(509850.9,"GL",81,5,81.05)=""
^DD(509850.9,"GL",81,6,81.06)=""
^DD(509850.9,"GL",81,7,81.07)=""
^DD(509850.9,"GL",81,8,81.08)=""
^DD(509850.9,"GL",81,9,81.09)=""
^DD(509850.9,"GL",82,1,82.01)=""
^DD(509850.9,"GL",82,2,82.02)=""
^DD(509850.9,"GL",82,3,82.03)=""
^DD(509850.9,"GL",82,4,82.04)=""
^DD(509850.9,"GL",82,5,82.05)=""
^DD(509850.9,"GL",82,6,82.06)=""
^DD(509850.9,"GL",82,7,82.07)=""
^DD(509850.9,"GL",82,8,82.08)=""
^DD(509850.9,"GL",82,9,82.09)=""
^DD(509850.9,"GL",85,1,85.01)=""
^DD(509850.9,"GL",85,2,85.02)=""
^DD(509850.9,"GL",85,3,85.03)=""
^DD(509850.9,"GL",85,4,85.04)=""
^DD(509850.9,"GL",85,5,85.05)=""
^DD(509850.9,"GL",85,6,85.06)=""
^DD(509850.9,"GL",85,7,85.07)=""
^DD(509850.9,"GL",85,8,85.08)=""
^DD(509850.9,"GL",85,9,85.09)=""
^DD(509850.9,"GL",86,1,86.01)=""
^DD(509850.9,"GL",86,2,86.02)=""
^DD(509850.9,"GL",86,3,86.03)=""
^DD(509850.9,"GL",86,4,86.04)=""
^DD(509850.9,"GL",86,5,86.05)=""
^DD(509850.9,"GL",86,6,86.06)=""
^DD(509850.9,"GL",86,7,86.07)=""
^DD(509850.9,"GL",86,8,86.08)=""
^DD(509850.9,"GL",86,9,86.09)=""
^DD(509850.9,"GL",90,1,90.01)=""
^DD(509850.9,"GL",90,2,90.02)=""
^DD(509850.9,"GL",90,3,90.03)=""
^DD(509850.9,"GL",90,4,90.04)=""
^DD(509850.9,"GL",90,5,90.05)=""
^DD(509850.9,"GL",90,6,90.06)=""
^DD(509850.9,"GL",90,7,90.07)=""
^DD(509850.9,"GL",90,8,90.08)=""
^DD(509850.9,"GL",90,9,90.09)=""
^DD(509850.9,"GL",91,1,91.01)=""
^DD(509850.9,"GL",91,2,91.02)=""
^DD(509850.9,"GL",91,3,91.03)=""
^DD(509850.9,"GL",91,4,91.04)=""
^DD(509850.9,"GL",91,5,91.05)=""
^DD(509850.9,"GL",91,6,91.06)=""
^DD(509850.9,"GL",91,7,91.07)=""
^DD(509850.9,"GL",91,8,91.08)=""
^DD(509850.9,"GL",91,9,91.09)=""
^DD(509850.9,"GL",100,1,100.01)=""
^DD(509850.9,"GL",100,2,100.02)=""
^DD(509850.9,"GL",100,3,100.03)=""
^DD(509850.9,"GL",100,4,100.04)=""
^DD(509850.9,"GL",100,5,100.05)=""
^DD(509850.9,"GL",100,6,100.06)=""
^DD(509850.9,"GL",100,7,100.07)=""
^DD(509850.9,"GL",100,8,100.08)=""
^DD(509850.9,"GL",100,9,100.09)=""
^DD(509850.9,"GL",101,1,101.01)=""
^DD(509850.9,"GL",101,2,101.02)=""
^DD(509850.9,"GL",101,3,101.03)=""
^DD(509850.9,"GL",101,4,101.04)=""
^DD(509850.9,"GL",101,5,101.05)=""
^DD(509850.9,"GL",101,6,101.06)=""
^DD(509850.9,"GL",101,7,101.07)=""
^DD(509850.9,"GL",101,8,101.08)=""
^DD(509850.9,"GL",101,9,101.09)=""
^DD(509850.9,"GL",110,3,110.03)=""
^DD(509850.9,"GL",110,4,110.04)=""
^DD(509850.9,"GL",110,5,110.05)=""
^DD(509850.9,"GL",110,6,110.06)=""
^DD(509850.9,"GL",110,7,110.07)=""
^DD(509850.9,"GL",110,8,110.08)=""
^DD(509850.9,"GL",110,9,110.09)=""
^DD(509850.9,"GL",110,10,110.1)=""
^DD(509850.9,"GL",110,11,110.11)=""
^DD(509850.9,"GL",110,12,110.12)=""
^DD(509850.9,"GL",110,13,110.13)=""
^DD(509850.9,"GL",110,14,110.14)=""
^DD(509850.9,"GL",110,15,110.15)=""
^DD(509850.9,"GL",110,16,110.16)=""
^DD(509850.9,"GL",110,17,110.17)=""
^DD(509850.9,"GL",110,18,110.18)=""
^DD(509850.9,"GL",110,19,110.19)=""
^DD(509850.9,"GL",110,20,110.2)=""
^DD(509850.9,"GL",110,21,110.21)=""
^DD(509850.9,"GL",110,22,110.22)=""
^DD(509850.9,"GL",110,23,110.23)=""
^DD(509850.9,"GL",110,24,110.24)=""
^DD(509850.9,"GL",110,25,110.25)=""
^DD(509850.9,"GL",110,26,110.26)=""
^DD(509850.9,"GL",110,27,110.27)=""
^DD(509850.9,"GL",110,28,110.28)=""
^DD(509850.9,"GL",110,29,110.29)=""
^DD(509850.9,"GL",110,30,110.3)=""
^DD(509850.9,"GL",110,31,110.31)=""
^DD(509850.9,"GL",110,32,110.32)=""
^DD(509850.9,"GL",111,3,111.03)=""
^DD(509850.9,"GL",111,4,111.04)=""
^DD(509850.9,"GL",111,5,111.05)=""
^DD(509850.9,"GL",111,6,111.06)=""
^DD(509850.9,"GL",111,7,111.07)=""
^DD(509850.9,"GL",111,8,111.08)=""
^DD(509850.9,"GL",111,9,111.09)=""
^DD(509850.9,"GL",111,10,111.1)=""
^DD(509850.9,"GL",111,11,111.11)=""
^DD(509850.9,"GL",111,12,111.12)=""
^DD(509850.9,"GL",111,13,111.13)=""
^DD(509850.9,"GL",111,14,111.14)=""
^DD(509850.9,"GL",111,15,111.15)=""
^DD(509850.9,"GL",111,16,111.16)=""
^DD(509850.9,"GL",111,17,111.17)=""
^DD(509850.9,"GL",111,18,111.18)=""
^DD(509850.9,"GL",111,19,111.19)=""
^DD(509850.9,"GL",111,20,111.2)=""
^DD(509850.9,"GL",111,21,111.21)=""
^DD(509850.9,"GL",111,22,111.22)=""
^DD(509850.9,"GL",111,23,111.23)=""
^DD(509850.9,"GL",111,24,111.24)=""
^DD(509850.9,"GL",111,25,111.25)=""
^DD(509850.9,"GL",111,26,111.26)=""
^DD(509850.9,"GL",111,27,111.27)=""
^DD(509850.9,"GL",111,28,111.28)=""
^DD(509850.9,"GL",111,29,111.29)=""
^DD(509850.9,"GL",111,30,111.3)=""
^DD(509850.9,"GL",111,31,111.31)=""
^DD(509850.9,"GL",111,32,111.32)=""
^DD(509850.9,"GL",112,3,112.03)=""
^DD(509850.9,"GL",112,4,112.04)=""
^DD(509850.9,"GL",112,8,112.08)=""
^DD(509850.9,"GL",112,9,112.09)=""
^DD(509850.9,"GL",112,28,112.28)=""
^DD(509850.9,"GL",112,29,112.29)=""
^DD(509850.9,"GL",113,3,113.03)=""
^DD(509850.9,"GL",113,4,113.04)=""
^DD(509850.9,"GL",113,8,113.08)=""
^DD(509850.9,"GL",113,9,113.09)=""
^DD(509850.9,"GL",113,28,113.28)=""
^DD(509850.9,"GL",113,29,113.29)=""
^DD(509850.9,"GL",115,1,115.01)=""
^DD(509850.9,"GL",115,2,115.02)=""
^DD(509850.9,"GL",115,3,115.03)=""
^DD(509850.9,"GL",115,4,115.04)=""
^DD(509850.9,"GL",115,5,115.05)=""
^DD(509850.9,"GL",115,6,115.06)=""
^DD(509850.9,"GL",115,7,115.07)=""
^DD(509850.9,"GL",115,8,115.08)=""
^DD(509850.9,"GL",115,9,115.09)=""
^DD(509850.9,"GL",115,10,115.1)=""
^DD(509850.9,"GL",115,11,115.11)=""
^DD(509850.9,"GL",115,12,115.12)=""
^DD(509850.9,"GL",115,13,115.13)=""
^DD(509850.9,"GL",115,14,115.14)=""
^DD(509850.9,"GL",115,15,115.15)=""
^DD(509850.9,"GL",115,16,115.16)=""
^DD(509850.9,"GL",115,17,115.17)=""
^DD(509850.9,"GL",115,18,115.18)=""
^DD(509850.9,"GL",115,19,115.19)=""
^DD(509850.9,"GL",115,20,115.2)=""
^DD(509850.9,"GL",120,1,120.01)=""
^DD(509850.9,"GL",120,2,120.02)=""
^DD(509850.9,"GL",120,3,120.03)=""
^DD(509850.9,"GL",120,4,120.04)=""
^DD(509850.9,"GL",120,5,120.05)=""
^DD(509850.9,"GL",120,6,120.06)=""
^DD(509850.9,"GL",120,7,120.07)=""
^DD(509850.9,"GL",120,8,120.08)=""
^DD(509850.9,"GL",120,9,120.09)=""
^DD(509850.9,"GL",120,10,120.1)=""
^DD(509850.9,"GL",120,11,120.11)=""
^DD(509850.9,"GL",120,12,120.12)=""
^DD(509850.9,"GL",120,13,120.13)=""
^DD(509850.9,"GL",120,14,120.14)=""
^DD(509850.9,"GL",120,15,120.15)=""
^DD(509850.9,"GL",120,16,120.16)=""
^DD(509850.9,"GL",120,17,120.17)=""
^DD(509850.9,"GL",120,18,120.18)=""
^DD(509850.9,"GL",120,19,120.19)=""
^DD(509850.9,"GL",120,20,120.2)=""
^DD(509850.9,"GL",120,21,120.21)=""
^DD(509850.9,"GL",120,22,120.22)=""
^DD(509850.9,"GL",120,23,120.23)=""
^DD(509850.9,"GL",121,1,121.01)=""
^DD(509850.9,"GL",121,2,121.02)=""
^DD(509850.9,"GL",121,3,121.03)=""
^DD(509850.9,"GL",121,4,121.04)=""
^DD(509850.9,"GL",121,5,121.05)=""
^DD(509850.9,"GL",121,6,121.06)=""
^DD(509850.9,"GL",121,7,121.07)=""
^DD(509850.9,"GL",121,8,121.08)=""
^DD(509850.9,"GL",121,9,121.09)=""
^DD(509850.9,"GL",121,10,121.1)=""
^DD(509850.9,"GL",121,11,121.11)=""
^DD(509850.9,"GL",121,12,121.12)=""
^DD(509850.9,"GL",121,13,121.13)=""
^DD(509850.9,"GL",121,14,121.14)=""
^DD(509850.9,"GL",121,15,121.15)=""
^DD(509850.9,"GL",121,16,121.16)=""
^DD(509850.9,"GL",121,17,121.17)=""
^DD(509850.9,"GL",121,18,121.18)=""
^DD(509850.9,"GL",121,19,121.19)=""
^DD(509850.9,"GL",121,20,121.2)=""
^DD(509850.9,"GL",121,21,121.21)=""
^DD(509850.9,"GL",121,22,121.22)=""
^DD(509850.9,"GL",121,23,121.23)=""
^DD(509850.9,"GL",122,0,122)=""
^DD(509850.9,"GL",791000,1,791000.01)=""
^DD(509850.9,"GL",791000,2,791000.02)=""
^DD(509850.9,"GL",791000,3,791000.03)=""
^DD(509850.9,"GL",791000,4,791000.04)=""
^DD(509850.9,"GL",791000,5,791000.05)=""
^DD(509850.9,"GL",791000,6,791000.06)=""
^DD(509850.9,"GL",791000,7,791000.07)=""
^DD(509850.9,"GL",791000,8,791000.08)=""
^DD(509850.9,"GL",791000,9,791000.09)=""
^DD(509850.9,"GL",791000,10,791000.1)=""
^DD(509850.9,"GL",791000,11,791000.11)=""
^DD(509850.9,"GL",791000,12,791000.12)=""
^DD(509850.9,"IX",.01)=""
^DD(509850.9,"IX",.02)=""
^DD(509850.9,"IX",.1)=""
^DD(509850.9,"IX",.11)=""
^DD(509850.9,"IX",791000.01)=""
^DD(509850.9,"IX",791000.02)=""
^DD(509850.9,"RQ",.01)=""
^DD(509850.9,"SB",509850.9122,122)=""
^DD(509850.9122,0)="COMMENTS SUB-FIELD^^.01^1"
^DD(509850.9122,0,"DT")="3040517"
^DD(509850.9122,0,"NM","COMMENTS")=" "
^DD(509850.9122,0,"UP")="509850.9"
^DD(509850.9122,.01,0)="COMMENTS^W^^0;1^Q"
^DD(509850.9122,.01,3)="Enter and initial comments on this audiogram"
^DD(509850.9122,.01,21,0)="^.001^1^1^3050815^^^^"
^DD(509850.9122,.01,21,1,0)="This field contains comments added to and shown on the 2364."
^DD(509850.9122,.01,"DT")="3040517"
^DD(509850.9122,"B","COMMENTS",.01)=""
^DD(509850.9122,"GL",0,1,.01)=""
^DD(537000,0)="FIELD^^12^11"
^DD(537000,0,"DDA")="N"
^DD(537000,0,"DT")="2940127"
^DD(537000,0,"ID","W1")="N AX S AX=$P(^(0),U,2) D EN^DDIOL($E(AX,4,5)_""-""_$E(AX,6,7)_""-""_$E(AX,2,3),"""",""?0"")"
^DD(537000,0,"ID","W3")="D EN^DDIOL($P(^(0),U,4),"""",""?0"")"
^DD(537000,0,"ID","W7")="D EN^DDIOL($P(^(0),U,8),"""",""?0"")"
^DD(537000,0,"ID","W8")="D EN^DDIOL($$GET1^DIQ(537000,Y_"","",8),"""",""?0"")"
^DD(537000,0,"IX","B",537000,.01)=""
^DD(537000,0,"IX","C",537000,8)=""
^DD(537000,0,"IX","D",537000,1)=""
^DD(537000,0,"IX","E",537000,7)=""
^DD(537000,0,"IX","F",537000,3)=""
^DD(537000,0,"NM","VAMC NETWORK HEALTH EXCHANGE")=""
^DD(537000,0,"VR")="5.1"
^DD(537000,.01,0)="MESSAGE ID^RF^^0;1^K:$L(X)>30!($L(X)<1)!'(X'?1P.E) X"
^DD(537000,.01,1,0)="^.1"
^DD(537000,.01,1,1,0)="537000^B"
^DD(537000,.01,1,1,1)="S ^AFJ(537000,""B"",$E(X,1,30),DA)="""""
^DD(537000,.01,1,1,2)="K ^AFJ(537000,""B"",$E(X,1,30),DA)"
^DD(537000,.01,3)="MAIL MESSAGE NUMBER OF REQUESTING FACILITY"
^DD(537000,.01,21,0)="^^1^1^2931018^^"
^DD(537000,.01,21,1,0)="This is the message number from the requesting facility."
^DD(537000,.01,"DT")="2930111"
^DD(537000,1,0)="DATE/TIME RECEIVED^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(537000,1,1,0)="^.1"
^DD(537000,1,1,1,0)="537000^D"
^DD(537000,1,1,1,1)="S ^AFJ(537000,""D"",$E(X,1,30),DA)="""""
^DD(537000,1,1,1,2)="K ^AFJ(537000,""D"",$E(X,1,30),DA)"
^DD(537000,1,1,1,"%D",0)="^^1^1^2930316^"
^DD(537000,1,1,1,"%D",1,0)="DATE OF REQUEST"
^DD(537000,1,1,1,"DT")="2930316"
^DD(537000,1,21,0)="^^1^1^2930507^"
^DD(537000,1,21,1,0)="DATE REQUEST WAS MADE."
^DD(537000,1,"AUDIT")=""
^DD(537000,1,"AX")=""
^DD(537000,1,"DT")="2940127"
^DD(537000,2,0)="REQUEST TYPE^F^^1;3^K:$L(X)>10!($L(X)<1) X"
^DD(537000,2,3)="ALL DATA OR JUST PHARMACY AND BRIEF"
^DD(537000,2,21,0)="^^2^2^2930831^^"
^DD(537000,2,21,1,0)="TYPE OF REQUEST:  TOTAL (ALL)   OR    PHARMACY  DATA"
^DD(537000,2,21,2,0)="AND ALSO BRIEF DISPLAY OF DATA"
^DD(537000,2,"DT")="2930507"
^DD(537000,3,0)="PATIENT SSN^F^^0;4^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>12!($L(X)<9) X"
^DD(537000,3,1,0)="^.1"
^DD(537000,3,1,1,0)="537000^F"
^DD(537000,3,1,1,1)="S ^AFJ(537000,""F"",$E(X,1,30),DA)="""""
^DD(537000,3,1,1,2)="K ^AFJ(537000,""F"",$E(X,1,30),DA)"
^DD(537000,3,1,1,"%D",0)="^^1^1^2930510^"
^DD(537000,3,1,1,"%D",1,0)="SSN"
^DD(537000,3,1,1,"DT")="2930510"
^DD(537000,3,3)="SSN, ALLOWS FOR DASHES"
^DD(537000,3,21,0)="^^1^1^2930507^"
^DD(537000,3,21,1,0)="PATIENT'S SSN.  MUST BE IN YOUR PATIENT FILE"
^DD(537000,3,"DT")="2930510"
^DD(537000,6,0)="REQUESTOR DUZ^F^^0;7^K:$L(X)>10!($L(X)<1) X"
^DD(537000,6,3)="REQUESTOR'S DUZ"
^DD(537000,6,21,0)="^^1^1^2930507^"
^DD(537000,6,21,1,0)="DUZ OF REQUESTOR"
^DD(537000,6,"DT")="2930111"
^DD(537000,7,0)="REQUESTOR NAME^F^^0;8^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>60!($L(X)<1) X"
^DD(537000,7,1,0)="^.1"
^DD(537000,7,1,1,0)="537000^E"
^DD(537000,7,1,1,1)="S ^AFJ(537000,""E"",$E(X,1,30),DA)="""""
^DD(537000,7,1,1,2)="K ^AFJ(537000,""E"",$E(X,1,30),DA)"
^DD(537000,7,1,1,"DT")="2950316"
^DD(537000,7,3)="NAME OF REQUESTOR"
^DD(537000,7,21,0)="^^1^1^2930507^"
^DD(537000,7,21,1,0)="NAME OF REQUESTOR"
^DD(537000,7,"DT")="2950316"
^DD(537000,8,0)="REQUESTING PLACE^P4.2'^DIC(4.2,^1;1^Q"
^DD(537000,8,1,0)="^.1"
^DD(537000,8,1,1,0)="537000^C"
^DD(537000,8,1,1,1)="S ^AFJ(537000,""C"",$E(X,1,30),DA)="""""
^DD(537000,8,1,1,2)="K ^AFJ(537000,""C"",$E(X,1,30),DA)"
^DD(537000,8,1,1,"%D",0)="^^1^1^2930316^"
^DD(537000,8,1,1,"%D",1,0)="REQUESTING PLACE FOR PATIENT DATA"
^DD(537000,8,1,1,"DT")="2930316"
^DD(537000,8,3)="Enter the domain where the request originated."
^DD(537000,8,21,0)="^.001^1^1^3011115^^"
^DD(537000,8,21,1,0)="FACILITY REQUESTING DATA"
^DD(537000,8,"DT")="3011115"
^DD(537000,9,0)="PATIENT DATA FOUND?^S^Y:YES;N:NO;^1;2^Q"
^DD(537000,9,3)="WAS THE DATA FOUND?"
^DD(537000,9,21,0)="^^1^1^2930507^"
^DD(537000,9,21,1,0)="WAS THIS DATA FOUND SUCESSFULLY.  AUDITED"
^DD(537000,9,"AUDIT")=""
^DD(537000,9,"AX")=""
^DD(537000,9,"DT")="2940801"
^DD(537000,10,0)="SENSITIVE PATIENT?^S^1:YES;0:NO;^1;4^Q"
^DD(537000,10,3)="WAS THIS SENSITIVE PATIENT, IF SO SENDS BULLETIN TO ISO"
^DD(537000,10,21,0)="^^1^1^2930507^"
^DD(537000,10,21,1,0)="IS THIS A SENSITIVE PATIENT?  IF SO, SENDS BULLETIN TO SECURITY OFFICER."
^DD(537000,10,"DT")="2930331"
^DD(537000,11,0)="OUTGOING REQUEST?^S^Y:YES;N:NO;^1;5^Q"
^DD(537000,11,"DT")="2930907"
^DD(537000,12,0)="DATE/TIME COMPLETED^D^^1;6^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(537000,12,"DT")="2940127"
^DD(537000,"B","DATE/TIME COMPLETED",12)=""
^DD(537000,"B","DATE/TIME RECEIVED",1)=""
^DD(537000,"B","MESSAGE ID",.01)=""
^DD(537000,"B","OUTGOING REQUEST?",11)=""
^DD(537000,"B","PATIENT DATA FOUND?",9)=""
^DD(537000,"B","PATIENT SSN",3)=""
^DD(537000,"B","REQUEST TYPE",2)=""
^DD(537000,"B","REQUESTING PLACE",8)=""
^DD(537000,"B","REQUESTOR DUZ",6)=""
^DD(537000,"B","REQUESTOR NAME",7)=""
^DD(537000,"B","SENSITIVE PATIENT?",10)=""
^DD(537000,"GL",0,1,.01)=""
^DD(537000,"GL",0,2,1)=""
^DD(537000,"GL",0,4,3)=""
^DD(537000,"GL",0,7,6)=""
^DD(537000,"GL",0,8,7)=""
^DD(537000,"GL",1,1,8)=""
^DD(537000,"GL",1,2,9)=""
^DD(537000,"GL",1,3,2)=""
^DD(537000,"GL",1,4,10)=""
^DD(537000,"GL",1,5,11)=""
^DD(537000,"GL",1,6,12)=""
^DD(537000,"IX",.01)=""
^DD(537000,"IX",1)=""
^DD(537000,"IX",3)=""
^DD(537000,"IX",7)=""
^DD(537000,"IX",8)=""
^DD(537000,"RQ",.01)=""
^DD(537010,0)="FIELD^^4^5"
^DD(537010,0,"DDA")="N"
^DD(537010,0,"DT")="2940420"
^DD(537010,0,"ID",2)="D EN^DDIOL($P(^(0),U,3),"""",""?15"")"
^DD(537010,0,"IX","B",537010,.01)=""
^DD(537010,0,"IX","C",537010,2)=""
^DD(537010,0,"NM","VAMC NETWORK PATIENT")=""
^DD(537010,0,"PT",67,2.2)=""
^DD(537010,0,"VR")="5.1"
^DD(537010,.01,0)="Social Security Number^RF^^0;1^K:$L(X)>12!($L(X)<9) X"
^DD(537010,.01,1,0)="^.1"
^DD(537010,.01,1,1,0)="537010^B"
^DD(537010,.01,1,1,1)="S ^AFJ(537010,""B"",$E(X,1,30),DA)="""""
^DD(537010,.01,1,1,2)="K ^AFJ(537010,""B"",$E(X,1,30),DA)"
^DD(537010,.01,3)="Answer must be 9-12 characters in length."
^DD(537010,.01,21,0)="^^2^2^2940223^"
^DD(537010,.01,21,1,0)="this field should contain the patient ssn for use to compare the common"
^DD(537010,.01,21,2,0)="patients"
^DD(537010,.01,"DT")="2940223"
^DD(537010,1,0)="Date of Birth^D^^0;2^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(537010,1,"DT")="2940302"
^DD(537010,2,0)="Patient Name^F^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>50!($L(X)<1) X"
^DD(537010,2,1,0)="^.1"
^DD(537010,2,1,1,0)="537010^C"
^DD(537010,2,1,1,1)="S ^AFJ(537010,""C"",$E(X,1,30),DA)="""""
^DD(537010,2,1,1,2)="K ^AFJ(537010,""C"",$E(X,1,30),DA)"
^DD(537010,2,1,1,"%D",0)="^^1^1^2940719^"
^DD(537010,2,1,1,"%D",1,0)="NAME"
^DD(537010,2,1,1,"DT")="2940719"
^DD(537010,2,3)="Answer must be 1-50 characters in length."
^DD(537010,2,"DT")="2940719"
^DD(537010,3,0)="Records Available At^537010.04P^^1;0"
^DD(537010,4,0)="Date Entered^D^^2;1^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(537010,4,"DT")="2940420"
^DD(537010,"B","Date Entered",4)=""
^DD(537010,"B","Date of Birth",1)=""
^DD(537010,"B","Patient Name",2)=""
^DD(537010,"B","Records Available At",3)=""
^DD(537010,"B","Social Security Number",.01)=""
^DD(537010,"GL",0,1,.01)=""
^DD(537010,"GL",0,2,1)=""
^DD(537010,"GL",0,3,2)=""
^DD(537010,"GL",1,0,3)=""
^DD(537010,"GL",2,1,4)=""
^DD(537010,"IX",.01)=""
^DD(537010,"IX",2)=""
^DD(537010,"RQ",.01)=""
^DD(537010,"SB",537010.04,3)=""
^DD(537010.04,0)="Records Available At SUB-FIELD^^.01^1"
^DD(537010.04,0,"DT")="2940223"
^DD(537010.04,0,"IX","B",537010.04,.01)=""
^DD(537010.04,0,"NM","Records Available At")=""
^DD(537010.04,0,"UP")="537010"
^DD(537010.04,.01,0)="Records Available At^P4.2'^DIC(4.2,^0;1^Q"
^DD(537010.04,.01,1,0)="^.1"
^DD(537010.04,.01,1,1,0)="537010.04^B"
^DD(537010.04,.01,1,1,1)="S ^AFJ(537010,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(537010.04,.01,1,1,2)="K ^AFJ(537010,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(537010.04,.01,3)="Enter a domain which has records on the patient."
^DD(537010.04,.01,"DT")="3011115"
^DD(537010.04,"B","Records Available At",.01)=""
^DD(537010.04,"GL",0,1,.01)=""
^DD(537010.04,"IX",.01)=""
^DD(537015,0)="FIELD^^.01^1"
^DD(537015,0,"IX","B",537015,.01)=""
^DD(537015,0,"NM","VAMC NETWORK HEALTH TYPES")=""
^DD(537015,0,"VR")="5.1"
^DD(537015,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(537015,.01,1,0)="^.1"
^DD(537015,.01,1,1,0)="537015^B"
^DD(537015,.01,1,1,1)="S ^AFJ(537015,""B"",$E(X,1,30),DA)="""""
^DD(537015,.01,1,1,2)="K ^AFJ(537015,""B"",$E(X,1,30),DA)"
^DD(537015,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(537015,.01,"DT")="3030430"
^DD(537015,"B","NAME",.01)=""
^DD(537015,"GL",0,1,.01)=""
^DD(537015,"IX",.01)=""
^DD(537015,"RQ",.01)=""
^DD(537025,0)="FIELD^^6^8"
^DD(537025,0,"DDA")="N"
^DD(537025,0,"DT")="2960123"
^DD(537025,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(537025,0,"IX","AC",537025,1.1)=""
^DD(537025,0,"IX","B",537025,.01)=""
^DD(537025,0,"IX","C",537025,1)=""
^DD(537025,0,"NM","VAMC NETWORK HEALTH AUTHORIZED SITES")=""
^DD(537025,0,"VR")="5.1"
^DD(537025,.01,0)="NAME^R*P4.2'^DIC(4.2,^0;1^S DIC(""S"")=""I $P(^(0),U,2)'[""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(537025,.01,1,0)="^.1"
^DD(537025,.01,1,1,0)="537025^B"
^DD(537025,.01,1,1,1)="S ^AFJ(537025,""B"",$E(X,1,30),DA)="""""
^DD(537025,.01,1,1,2)="K ^AFJ(537025,""B"",$E(X,1,30),DA)"
^DD(537025,.01,3)="Enter the name of an authorized site."
^DD(537025,.01,12)="You may not select closed domains."
^DD(537025,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,2)'[""""C"""""""
^DD(537025,.01,21,0)="^.001^2^2^3011115^^^"
^DD(537025,.01,21,1,0)="Enter the name of the sites that you will send data requests to and"
^DD(537025,.01,21,2,0)="receive data from.  (Include your own site)."
^DD(537025,.01,"DT")="3011115"
^DD(537025,1,0)="STATION NUMBER^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>43!($L(X)<1) X"
^DD(537025,1,1,0)="^.1"
^DD(537025,1,1,1,0)="537025^C"
^DD(537025,1,1,1,1)="S ^AFJ(537025,""C"",$E(X,1,30),DA)="""""
^DD(537025,1,1,1,2)="K ^AFJ(537025,""C"",$E(X,1,30),DA)"
^DD(537025,1,1,1,"%D",0)="^^1^1^2930114^"
^DD(537025,1,1,1,"%D",1,0)="SO USERS CAN ENTER STATION NUMBER INSTEAD OF NAME."
^DD(537025,1,1,1,"DT")="2930114"
^DD(537025,1,3)="Answer must be 1-43 characters in length."
^DD(537025,1,21,0)="^^4^4^2960123^^"
^DD(537025,1,21,1,0)="Enter the station number for the site."
^DD(537025,1,21,2,0)="The 'ALL LOCAL AREA SITES' entry should have site numbers entered"
^DD(537025,1,21,3,0)="separated by commas (i.e., 612,662) for those sites you wish to request"
^DD(537025,1,21,4,0)="data from when selecting the ALL LOCAL AREA SITES entry."
^DD(537025,1,"DT")="2960123"
^DD(537025,1.1,0)="NICKNAME^F^^0;7^K:$L(X)>3!($L(X)<1) X"
^DD(537025,1.1,1,0)="^.1"
^DD(537025,1.1,1,1,0)="537025^AC"
^DD(537025,1.1,1,1,1)="S ^AFJ(537025,""AC"",$E(X,1,30),DA)="""""
^DD(537025,1.1,1,1,2)="K ^AFJ(537025,""AC"",$E(X,1,30),DA)"
^DD(537025,1.1,1,1,"DT")="2951213"
^DD(537025,1.1,3)="PUT IN NICKNAME FOR SITE .. YOUR CHOICE 1-3 CHAR"
^DD(537025,1.1,21,0)="^^6^6^2960122^"
^DD(537025,1.1,21,1,0)="Enter the character that will be displayed upon Patient Lookup (if Update"
^DD(537025,1.1,21,2,0)="Network Identifier is set to YES) that will signify this site entry (i.e."
^DD(537025,1.1,21,3,0)="'W' for Chicago Westside or 'SF' for San Francisco VAMC).  If a patient"
^DD(537025,1.1,21,4,0)="has been seen at more than one site, these nicknames are strung together"
^DD(537025,1.1,21,5,0)="(i.e. WSF is displayed if patient has been seet at Chicago Westside AND"
^DD(537025,1.1,21,6,0)="San Francisco VAMCs)."
^DD(537025,1.1,"DT")="2951213"
^DD(537025,2,0)="INCLUDE IN 'ALL'?^S^1:YES;0:NO;^0;3^Q"
^DD(537025,2,3)="IF YOU WANT THIS TO BE INCLUDED WHEN ALL IS CHOSEN"
^DD(537025,2,21,0)="^^2^2^2960122^"
^DD(537025,2,21,1,0)="Enter YES to include this entry as one of the sites requests will be sent"
^DD(537025,2,21,2,0)="to if the user selects the ALL LOCAL AREA SITES entry."
^DD(537025,2,"DT")="2930525"
^DD(537025,3,0)="SEND UPDATE TO NETWORK FILE?^S^1:YES;0:NO;^0;4^Q"
^DD(537025,3,3)="THIS WILL ALLOW THE NETWORK PATIENT FILE TO BE UPDATED NIGHTLY AT THE OTHER SITE IF YES"
^DD(537025,3,21,0)="^^7^7^2960122^"
^DD(537025,3,21,1,0)="THIS FIELD DETERMINES WHETHER YOU WANT TO SEND YOUR NIGHTLY UPDATES TO"
^DD(537025,3,21,2,0)="ANOTHER SITE TO UPDATE THEIR NETWORK PATIENT FILE.  "
^DD(537025,3,21,3,0)="Any new patients seen at your site will be sent to this site and added to"
^DD(537025,3,21,4,0)="their Network Patient File as having data at your site. If your sites"
^DD(537025,3,21,5,0)="entry at this site is set to update the patient identifier, then that"
^DD(537025,3,21,6,0)="sites nickname for your site will be updated and displayed at patient"
^DD(537025,3,21,7,0)="lookup."
^DD(537025,3,"DT")="2950112"
^DD(537025,4,0)="# DAYS TO KEEP TRACKING DATA?^NJ3,0^^0;5^K:+X'=X!(X>999)!(X<7)!(X?.E1"".""1N.N) X"
^DD(537025,4,3)="NUMBER OF DAYS FOR 537000 TO KEEP DATA ON FILE"
^DD(537025,4,"DT")="2940606"
^DD(537025,5,0)="ACCEPT NETWORK FILE UPDATE?^S^1:YES;0:NO;^0;6^Q"
^DD(537025,5,3)="DO YOU WANT TO ACCEPT THE UPDATE FROM ANOTHER SITE?"
^DD(537025,5,21,0)="^^3^3^2960122^^"
^DD(537025,5,21,1,0)="THIS FIELD DETERMINES WHETHER YOU WANT TO ACCEPT THE NIGHTLY UPDATE FROM"
^DD(537025,5,21,2,0)="ANOTHER SITE.  SITE MAY WANT TO SEND YOU THEIR UPDATE BUT YOU MAY NOT"
^DD(537025,5,21,3,0)="WANT TO ACCEPT BECAUSE THEY ARE NOT PART OF YOUR NETWORK."
^DD(537025,5,"DT")="2941116"
^DD(537025,6,0)="UPDATE NETWORK IDENTIFIER ?^S^1:YES;0:NO;^0;8^Q"
^DD(537025,6,3)="WILL YOU UPDATE THE IDENTIFIER THAT SHOWS UP NEXT TO THE PATIENT NAME"
^DD(537025,6,21,0)="^^4^4^2960122^"
^DD(537025,6,21,1,0)="If yes, then the NETWORK IDENTIFIER field in the PATIENT FILE (#2) will"
^DD(537025,6,21,2,0)="be updated with the NICKNAME for this site entry and displayed at patient"
^DD(537025,6,21,3,0)="lookup.  Note: Network Identifiers from multiple sites are concatenated"
^DD(537025,6,21,4,0)="(strung) together."
^DD(537025,6,"DT")="2941222"
^DD(537025,"B","# DAYS TO KEEP TRACKING DATA?",4)=""
^DD(537025,"B","ACCEPT NETWORK FILE UPDATE?",5)=""
^DD(537025,"B","INCLUDE IN 'ALL'?",2)=""
^DD(537025,"B","NAME",.01)=""
^DD(537025,"B","NICKNAME",1.1)=""
^DD(537025,"B","SEND UPDATE TO NETWORK FILE?",3)=""
^DD(537025,"B","STATION NUMBER",1)=""
^DD(537025,"B","UPDATE NETWORK IDENTIFIER ?",6)=""
^DD(537025,"GL",0,1,.01)=""
^DD(537025,"GL",0,2,1)=""
^DD(537025,"GL",0,3,2)=""
^DD(537025,"GL",0,4,3)=""
^DD(537025,"GL",0,5,4)=""
^DD(537025,"GL",0,6,5)=""
^DD(537025,"GL",0,7,1.1)=""
^DD(537025,"GL",0,8,6)=""
^DD(537025,"IX",.01)=""
^DD(537025,"IX",1)=""
^DD(537025,"IX",1.1)=""
^DD(537025,"RQ",.01)=""
^DD(791810,0)="FIELD^^901^48"
^DD(791810,0,"DDA")="N"
^DD(791810,0,"DT")="2950206"
^DD(791810,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^RMPF(791810.1,+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(791810.1,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(791810,0,"ID",.04)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(791810,0,"IX","AC",791810,.03)=""
^DD(791810,0,"IX","AD",791810,.06)=""
^DD(791810,0,"IX","AE",791810,.04)=""
^DD(791810,0,"IX","AEE",791810,.01)=""
^DD(791810,0,"IX","AF",791810,2.08)=""
^DD(791810,0,"IX","AP",791810,11.04)=""
^DD(791810,0,"IX","B",791810,.01)=""
^DD(791810,0,"IX","C",791810,.04)=""
^DD(791810,0,"IX","D",791810,.07)=""
^DD(791810,0,"NM","STATION ORDER")=""
^DD(791810,0,"PT",791812.0101,.01)=""
^DD(791810,0,"VR")="2.0"
^DD(791810,.01,0)="ORDER DATE/TIME^RD^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,.01,1,0)="^.1^^-1"
^DD(791810,.01,1,1,0)="791810^B"
^DD(791810,.01,1,1,1)="S ^RMPF(791810,""B"",$E(X,1,30),DA)="""""
^DD(791810,.01,1,1,2)="K ^RMPF(791810,""B"",$E(X,1,30),DA)"
^DD(791810,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791810,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810,.01,1,3,0)="791810^AEE^MUMPS"
^DD(791810,.01,1,3,1)="S ZZ=$P(^RMPF(791810,DA,0),""^"",4) I ZZ S ^RMPF(791810,""AE"",ZZ,9999999.9999-X,DA)="""" K ZZ"
^DD(791810,.01,1,3,2)="S ZZ=$P(^RMPF(791810,DA,0),""^"",4) I ZZ K ^RMPF(791810,""AE"",ZZ,9999999.9999-X,DA),ZZ"
^DD(791810,.01,1,3,"%D",0)="^^3^3^2940714^^"
^DD(791810,.01,1,3,"%D",1,0)="This cross-reference is used to look up orders that have been placed for"
^DD(791810,.01,1,3,"%D",2,0)="a specific patient.  The orders will be in reverse chronological order by"
^DD(791810,.01,1,3,"%D",3,0)="order date."
^DD(791810,.01,1,3,"DT")="2911112"
^DD(791810,.01,3)=""
^DD(791810,.01,21,0)="^^3^3^2940126^"
^DD(791810,.01,21,1,0)="The Order Date/Time field contains the date and time that a"
^DD(791810,.01,21,2,0)="user initiated an individual order.  This date is automatically"
^DD(791810,.01,21,3,0)="recorded and cannot be edited through the ROES software.  The date/time is unique."
^DD(791810,.01,"DT")="2931115"
^DD(791810,.02,0)="TYPE OF ORDER^P791810.1'^RMPF(791810.1,^0;2^Q"
^DD(791810,.02,3)="Enter the type of order you wish to enter or a <?> to choose."
^DD(791810,.02,21,0)="^^4^4^2950403^^^^"
^DD(791810,.02,21,1,0)="This field indicates the type of order that a user chose to create."
^DD(791810,.02,21,2,0)="The type of order determines which enter/edit sequences and display"
^DD(791810,.02,21,3,0)="screens are used by the software.  Once entered, the type of order"
^DD(791810,.02,21,4,0)="cannot be changed by a user."
^DD(791810,.03,0)="STATUS OF ORDER^P791810.2'^RMPF(791810.2,^0;3^Q"
^DD(791810,.03,1,0)="^.1^^-1"
^DD(791810,.03,1,2,0)="791810^AC"
^DD(791810,.03,1,2,1)="S ^RMPF(791810,""AC"",$E(X,1,30),DA)="""""
^DD(791810,.03,1,2,2)="K ^RMPF(791810,""AC"",$E(X,1,30),DA)"
^DD(791810,.03,1,2,"%D",0)="^^3^3^2940610^^^^"
^DD(791810,.03,1,2,"%D",1,0)="This cross-reference allows orders to be sorted by their status for"
^DD(791810,.03,1,2,"%D",2,0)="print purposes and for certain functions that may only be performed on"
^DD(791810,.03,1,2,"%D",3,0)="orders with a certain status."
^DD(791810,.03,21,0)="^^3^3^2940126^"
^DD(791810,.03,21,1,0)="This field indicates the current status of the chosen order.  Certain"
^DD(791810,.03,21,2,0)="functions in the ROES can only be accomplished for orders of a"
^DD(791810,.03,21,3,0)="particular status.  The setting of this field is controlled by the software."
^DD(791810,.03,"DT")="2900725"
^DD(791810,.04,0)="PATIENT^P2'^DPT(^0;4^Q"
^DD(791810,.04,1,0)="^.1"
^DD(791810,.04,1,1,0)="791810^AE^MUMPS"
^DD(791810,.04,1,1,1)="S ZZ=$P(^RMPF(791810,DA,0),""^"",1) I ZZ S ^RMPF(791810,""AE"",X,9999999.9999-ZZ,DA)="""" K ZZ"
^DD(791810,.04,1,1,2)="S ZZ=$P(^RMPF(791810,DA,0),""^"",1) I ZZ K ^RMPF(791810,""AE"",X,9999999.9999-ZZ,DA),ZZ"
^DD(791810,.04,1,1,"%D",0)="^^2^2^2940126^"
^DD(791810,.04,1,1,"%D",1,0)="This cross-reference allows for the sorting of order by patient"
^DD(791810,.04,1,1,"%D",2,0)="in reverse chronological order by order date/time."
^DD(791810,.04,1,1,"DT")="2911112"
^DD(791810,.04,1,2,0)="791810^C"
^DD(791810,.04,1,2,1)="S ^RMPF(791810,""C"",$E(X,1,30),DA)="""""
^DD(791810,.04,1,2,2)="K ^RMPF(791810,""C"",$E(X,1,30),DA)"
^DD(791810,.04,1,2,"%D",0)="^^1^1^2940714^"
^DD(791810,.04,1,2,"%D",1,0)="This cross-reference is used to look up an order by patient."
^DD(791810,.04,1,2,"DT")="2940714"
^DD(791810,.04,21,0)="^^2^2^2940610^^^"
^DD(791810,.04,21,1,0)="This field contains a pointer to the Patient File"
^DD(791810,.04,21,2,0)="for identification of the patient in ""Patient Type"" orders."
^DD(791810,.04,"DT")="2940714"
^DD(791810,.05,0)="ENTERING USER^P200'^VA(200,^0;5^Q"
^DD(791810,.05,21,0)="^^3^3^2950510^^"
^DD(791810,.05,21,1,0)="This is a pointer to the New Person file for the user who initially"
^DD(791810,.05,21,2,0)="created the order.  This field is set by the software and is"
^DD(791810,.05,21,3,0)="not editable."
^DD(791810,.05,22)=""
^DD(791810,.05,"DT")="2950510"
^DD(791810,.06,0)="STATUS DATE^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,.06,1,0)="^.1"
^DD(791810,.06,1,1,0)="791810^AD^MUMPS"
^DD(791810,.06,1,1,1)="S ^RMPF(791810,""AD"",9999999.9999-X,DA)="""""
^DD(791810,.06,1,1,2)="K ^RMPF(791810,""AD"",9999999.9999-X,DA)"
^DD(791810,.06,1,1,"%D",0)="^^2^2^2940714^^^"
^DD(791810,.06,1,1,"%D",1,0)="This cross-reference is used to sort orders by status date in"
^DD(791810,.06,1,1,"%D",2,0)="reverse chronological order."
^DD(791810,.06,1,1,"DT")="2940714"
^DD(791810,.06,"DT")="2940714"
^DD(791810,.07,0)="PURCHASE ORDER NUMBER^F^^0;7^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>11!($L(X)<11)!'(X?1""G""5N1""-""4N) X"
^DD(791810,.07,1,0)="^.1"
^DD(791810,.07,1,1,0)="791810^D"
^DD(791810,.07,1,1,1)="S ^RMPF(791810,""D"",$E(X,1,30),DA)="""""
^DD(791810,.07,1,1,2)="K ^RMPF(791810,""D"",$E(X,1,30),DA)"
^DD(791810,.07,1,1,"%D",0)="^^1^1^2940714^"
^DD(791810,.07,1,1,"%D",1,0)="This cross-reference is used to look up an order by purchase order number."
^DD(791810,.07,1,1,"DT")="2940714"
^DD(791810,.07,3)="Answer must match 1 ""G"", 5 numbers, 1 ""-"" and 4 numbers."
^DD(791810,.07,21,0)="^^3^3^2950501^^"
^DD(791810,.07,21,1,0)="This is the purchase order number that was assigned to an order by the"
^DD(791810,.07,21,2,0)="DDC.  The value of this field is assigned by the order update"
^DD(791810,.07,21,3,0)="process and cannot be edited at the field station."
^DD(791810,.07,"DT")="2940714"
^DD(791810,.08,0)="ORDERED/REQUESTED BY^P200'^VA(200,^0;8^Q"
^DD(791810,.08,21,0)="^^3^3^2940126^"
^DD(791810,.08,21,1,0)="This field is a pointer to the New Person File for the user who"
^DD(791810,.08,21,2,0)="requested the order.  This person is not necessairly the"
^DD(791810,.08,21,3,0)="Entering User."
^DD(791810,.08,"DT")="2901017"
^DD(791810,.09,0)="ORDER/REQUEST DATE^D^^0;9^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,.09,21,0)="^^2^2^2910524^"
^DD(791810,.09,21,1,0)="This is the date that the order or request was actually made.  It may"
^DD(791810,.09,21,2,0)="not be the same as the date the order was entered."
^DD(791810,.09,"DT")="2900520"
^DD(791810,.1,0)="APPROVED BY^P200'^VA(200,^0;10^Q"
^DD(791810,.1,21,0)="^^2^2^2940610^^"
^DD(791810,.1,21,1,0)="This field is a pointer to the New Person File for the user who"
^DD(791810,.1,21,2,0)="approved the order."
^DD(791810,.1,"DT")="2901017"
^DD(791810,.11,0)="APPROVAL DATE^D^^0;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,.11,21,0)="^^1^1^2940610^^"
^DD(791810,.11,21,1,0)="This is the date that the order was actually approved."
^DD(791810,.11,"DT")="2900620"
^DD(791810,.12,0)="TRANSMISSION BATCH^P791812'^RMPF(791812,^0;12^Q"
^DD(791810,.12,21,0)="2"
^DD(791810,.12,21,1,0)="This is a pointer to the transmission batch where the order"
^DD(791810,.12,21,2,0)="was placed upon approval."
^DD(791810,.12,"DT")="2900628"
^DD(791810,.13,0)="CONTRACTOR'S INVOICE NUMBER^F^^0;13^K:$L(X)>20!($L(X)<1) X"
^DD(791810,.13,3)="Answer must be 1-20 characters in length."
^DD(791810,.13,21,0)="^^2^2^2940708^^"
^DD(791810,.13,21,1,0)="This field contains the invoice number from the vendor who shipped the"
^DD(791810,.13,21,2,0)="order."
^DD(791810,.13,"DT")="2940708"
^DD(791810,.15,0)="ENTERED FROM THIS MENU^P791810.5^RMPF(791810.5,^0;15^Q"
^DD(791810,.15,3)=""
^DD(791810,.15,21,0)="^^1^1^2940413^^"
^DD(791810,.15,21,1,0)="This field contains the name of the menu from which the order was entered."
^DD(791810,.15,"DT")="2940413"
^DD(791810,1.01,0)="ADDRESS LINE 1^F^^1;1^K:$L(X)>30!($L(X)<3) X"
^DD(791810,1.01,3)="Answer must be 3-30 characters in length."
^DD(791810,1.01,21,0)="^^1^1^2910524^"
^DD(791810,1.01,21,1,0)="This is the first free text line of a patient's address."
^DD(791810,1.01,"DT")="2900716"
^DD(791810,1.02,0)="ADDRESS LINE 2^F^^1;2^K:$L(X)>30!($L(X)<3) X"
^DD(791810,1.02,3)="Answer must be 3-30 characters in length."
^DD(791810,1.02,21,0)="^^1^1^2910524^"
^DD(791810,1.02,21,1,0)="This is the second free text address line of a patient's address."
^DD(791810,1.02,"DT")="2900716"
^DD(791810,1.03,0)="ADDRESS LINE 3^F^^1;3^K:$L(X)>30!($L(X)<3) X"
^DD(791810,1.03,3)="Answer must be 3-30 characters in length."
^DD(791810,1.03,21,0)="^^1^1^2910524^"
^DD(791810,1.03,21,1,0)="This is the third free text line of a patient's address."
^DD(791810,1.03,"DT")="2900716"
^DD(791810,1.04,0)="CITY^F^^1;4^K:$L(X)>15!($L(X)<2) X"
^DD(791810,1.04,3)="Answer must be 2-15 characters in length."
^DD(791810,1.04,21,0)="^^1^1^2910524^"
^DD(791810,1.04,21,1,0)="This is the free text city name for a patient's address."
^DD(791810,1.04,"DT")="2900716"
^DD(791810,1.05,0)="STATE^P5'^DIC(5,^1;5^Q"
^DD(791810,1.05,21,0)="^^1^1^2910524^"
^DD(791810,1.05,21,1,0)="This is a pointer to the State File for the patient's address."
^DD(791810,1.05,"DT")="2900716"
^DD(791810,1.06,0)="ZIP CODE^F^^1;6^K:$L(X)>10!($L(X)<5) X"
^DD(791810,1.06,3)="Answer must be 5-10 characters in length."
^DD(791810,1.06,21,0)="^^1^1^2910524^"
^DD(791810,1.06,21,1,0)="This is the zip code for the patient's address."
^DD(791810,1.06,"DT")="2900716"
^DD(791810,1.07,0)="BEGIN DATE^D^^1;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,1.07,21,0)="^^2^2^2910524^^"
^DD(791810,1.07,21,1,0)="This is the beginning date for the patient's address if the"
^DD(791810,1.07,21,2,0)="address is a temporary address."
^DD(791810,1.07,"DT")="2900716"
^DD(791810,1.08,0)="END DATE^D^^1;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,1.08,21,0)="^^2^2^2910524^"
^DD(791810,1.08,21,1,0)="This is the ending date for a patient's address if the address is a"
^DD(791810,1.08,21,2,0)="temporary address."
^DD(791810,1.08,"DT")="2900716"
^DD(791810,2.01,0)="DISABILITY CODE^*P662'^RMPR(662,^2;1^D CHECK^RMPFET7 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(791810,2.01,1,0)="^.1^^0"
^DD(791810,2.01,3)=""
^DD(791810,2.01,12)="This screen limits the codes by transaction type."
^DD(791810,2.01,12.1)="D CHECK^RMPFET7"
^DD(791810,2.01,21,0)="^^2^2^2940126^"
^DD(791810,2.01,21,1,0)="This field holds the disability code that makes a veteran entitled for"
^DD(791810,2.01,21,2,0)="a ROES order."
^DD(791810,2.01,"DT")="2940708"
^DD(791810,2.02,0)="ELIGIBILITY^P791810.4'^RMPF(791810.4,^2;2^Q"
^DD(791810,2.02,3)=""
^DD(791810,2.02,21,0)="^^1^1^2950206^^^"
^DD(791810,2.02,21,1,0)="This field holds the eligibility used by each ROES order."
^DD(791810,2.02,"DT")="2931130"
^DD(791810,2.03,0)="ELIGIBILITY ENTERED BY^P200'^VA(200,^2;3^Q"
^DD(791810,2.03,21,0)="^^3^3^2940107^"
^DD(791810,2.03,21,1,0)=" "
^DD(791810,2.03,21,2,0)="This field contains the name of the user entering the patient's"
^DD(791810,2.03,21,3,0)="eligibility."
^DD(791810,2.03,"DT")="2940107"
^DD(791810,2.04,0)="ELIGIBILITY ENTERED BY USER?^S^0:NOT ENTERED BY USER;1:ENTERED BY USER;^2;4^Q"
^DD(791810,2.04,21,0)="^^3^3^2940107^"
^DD(791810,2.04,21,1,0)=" "
^DD(791810,2.04,21,2,0)="This field indicates whether the user entered the eligibility or whether"
^DD(791810,2.04,21,3,0)="the eligibility was determined from the DHCP Patient File."
^DD(791810,2.04,"DT")="2940107"
^DD(791810,2.05,0)="DATE ELIGIBILITY ENTERED^D^^2;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,2.05,21,0)="^^3^3^2940126^"
^DD(791810,2.05,21,1,0)=" "
^DD(791810,2.05,21,2,0)="This field contains the date that a user entered an eligibility into a"
^DD(791810,2.05,21,3,0)="ROES order."
^DD(791810,2.05,"DT")="2940112"
^DD(791810,2.06,0)="PROPOSED ELIGIBILITY^P791810.4'^RMPF(791810.4,^2;6^Q"
^DD(791810,2.06,21,0)="^^2^2^2941228^^"
^DD(791810,2.06,21,1,0)="This field holds that eligibility the ASPS submits to PSAS when requesting"
^DD(791810,2.06,21,2,0)="an eligibility determination."
^DD(791810,2.06,"DT")="2941228"
^DD(791810,2.07,0)="PE ENTERED BY^P200'^VA(200,^2;7^Q"
^DD(791810,2.07,21,0)="^^1^1^2941228^^^"
^DD(791810,2.07,21,1,0)="This field contains the user who entered the proposed eligibility."
^DD(791810,2.07,"DT")="2941228"
^DD(791810,2.08,0)="PE ENTRY DATE/TIME^D^^2;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,2.08,1,0)="^.1"
^DD(791810,2.08,1,1,0)="791810^AF"
^DD(791810,2.08,1,1,1)="S ^RMPF(791810,""AF"",$E(X,1,30),DA)="""""
^DD(791810,2.08,1,1,2)="K ^RMPF(791810,""AF"",$E(X,1,30),DA)"
^DD(791810,2.08,1,1,"%D",0)="^^3^3^2941209^^"
^DD(791810,2.08,1,1,"%D",1,0)="This cross-reference is used to list orders that need eligibility"
^DD(791810,2.08,1,1,"%D",2,0)="determinations by PSAS. The cross-reference is killed manually when the"
^DD(791810,2.08,1,1,"%D",3,0)="eligibility determination has been made."
^DD(791810,2.08,1,1,"DT")="2941209"
^DD(791810,2.08,21,0)="^^2^2^2941228^^"
^DD(791810,2.08,21,1,0)="This field holds the date and time that the proposed eligibility"
^DD(791810,2.08,21,2,0)="was entered."
^DD(791810,2.08,"DT")="2941228"
^DD(791810,2.09,0)="ELIGIBILITY COMMENT^F^^2;9^K:$L(X)>50!($L(X)<3) X"
^DD(791810,2.09,3)="Answer must be 3-50 characters in length."
^DD(791810,2.09,21,0)="^^2^2^2941228^^"
^DD(791810,2.09,21,1,0)="This is a free text field that PSAS may use to enter a comment when"
^DD(791810,2.09,21,2,0)="determining the eligibility for a patient."
^DD(791810,2.09,"DT")="2941223"
^DD(791810,2.13,0)="SENSITIVE PATIENT RECORD^S^0:NO;1:YES;^2;13^Q"
^DD(791810,2.13,21,0)="^^2^2^2990521^"
^DD(791810,2.13,21,1,0)="This field is set to yes  if this record is designated as a sensitive"
^DD(791810,2.13,21,2,0)="record."
^DD(791810,2.13,"DT")="2990521"
^DD(791810,10.01,0)="REMARKS^F^^10;1^K:$L(X)>70!($L(X)<1) X"
^DD(791810,10.01,3)="Answer must be 1-70 characters in length."
^DD(791810,10.01,21,0)="^^1^1^2950501^^^"
^DD(791810,10.01,21,1,0)="This is a free text field for the entry of remarks to be sent to the DDC."
^DD(791810,10.01,"DT")="2931123"
^DD(791810,10.02,0)="DISAPPROVAL REASON^F^^10;2^K:$L(X)>30!($L(X)<3) X"
^DD(791810,10.02,3)="Answer must be 3-30 characters in length."
^DD(791810,10.02,21,0)="^^2^2^2940126^"
^DD(791810,10.02,21,1,0)="This is a free text reason that must be entered when an order is"
^DD(791810,10.02,21,2,0)="disapproved."
^DD(791810,10.02,"DT")="2910220"
^DD(791810,10.03,0)="CANCEL REASON^F^^10;3^K:$L(X)>30!($L(X)<1) X"
^DD(791810,10.03,3)="Answer must be 1-30 characters in length."
^DD(791810,10.03,21,0)="^^2^2^2940126^"
^DD(791810,10.03,21,1,0)="This is a free text reason that must be entered when certain types of"
^DD(791810,10.03,21,2,0)="orders are canceled."
^DD(791810,10.03,"DT")="2901116"
^DD(791810,10.04,0)="DATE PATIENT REQUESTED CARE^D^^10;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,10.04,21,0)="^^2^2^2940708^^"
^DD(791810,10.04,21,1,0)="This field contains the date that the patient first requested care for"
^DD(791810,10.04,21,2,0)="the product or service referenced in the order."
^DD(791810,10.04,"DT")="2940708"
^DD(791810,10.05,0)="DELIVERY CATEGORY^S^R:routine (Shipped within 6 days);P:priority (Shipped within 24 hours);E:emergency (Received by patient within 24 hours);^10;5^Q"
^DD(791810,10.05,21,0)="^^7^7^2950206^^^"
^DD(791810,10.05,21,1,0)=" "
^DD(791810,10.05,21,2,0)="This field contains the order delivery category.  'ROUTINE' means the"
^DD(791810,10.05,21,3,0)="product will be shipped within 6 days of receipt of the order, 'PRIORITY'"
^DD(791810,10.05,21,4,0)="means the product will be shipped within 24 hours of receipt of the order"
^DD(791810,10.05,21,5,0)="and 'EMERGENCY' means the product will be delivered within 24 hours of"
^DD(791810,10.05,21,6,0)="receipt of the order.  The majority of orders will be 'ROUTINE'.  Extra"
^DD(791810,10.05,21,7,0)="shipping costs are incurred with 'PRIORITY' and 'EMERGENCY' orders."
^DD(791810,10.05,"DT")="2950206"
^DD(791810,10.06,0)="RELEASED BY^P200'^VA(200,^10;6^Q"
^DD(791810,10.06,21,0)="^^4^4^2950501^^^"
^DD(791810,10.06,21,1,0)="This field contains the name of the user who released an order for"
^DD(791810,10.06,21,2,0)="transmission to the DDC.  This field is only used for orders"
^DD(791810,10.06,21,3,0)="that require updates after initial submission (e.g., Custom Hearing"
^DD(791810,10.06,21,4,0)="Aid Orders)."
^DD(791810,10.06,"DT")="2910826"
^DD(791810,10.07,0)="RELEASE DATE^D^^10;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,10.07,21,0)="^^3^3^2950501^^"
^DD(791810,10.07,21,1,0)="This field contains the date that an order was released to the DDC."
^DD(791810,10.07,21,2,0)="This field is only used for order types that require updates after"
^DD(791810,10.07,21,3,0)="initial submission."
^DD(791810,10.07,"DT")="2910826"
^DD(791810,10.08,0)="AUDIOLOGICAL ASSESSMENT DATE^D^^10;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810,10.08,21,0)="^^2^2^2940708^^"
^DD(791810,10.08,21,1,0)="This is the date that the patient received an audiological assessment for"
^DD(791810,10.08,21,2,0)="the condition connected with this order."
^DD(791810,10.08,"DT")="2940708"
^DD(791810,11.01,0)="TYPE OF HEARING AID FITTING^S^M:monaural;B:binaural;C:cros;BC:bi-cros;^11;1^Q"
^DD(791810,11.01,21,0)="^^3^3^2910913^^"
^DD(791810,11.01,21,1,0)="This field holds the type of fitting for hearing aid orders.  If the fitting"
^DD(791810,11.01,21,2,0)="is binaural, when the first aid is ordered, users are asked if they wish"
^DD(791810,11.01,21,3,0)="to order the second aid the same as the first."
^DD(791810,11.01,"DT")="2950206"
^DD(791810,11.02,0)="AUTHORIZED USAGE^S^M:monaural wearer;B:binaural wearer;^11;2^Q"
^DD(791810,11.02,21,0)="^^2^2^2910524^"
^DD(791810,11.02,21,1,0)="The authorized hearing aid usage must be entered in this field for"
^DD(791810,11.02,21,2,0)="hearing aid orders."
^DD(791810,11.02,"DT")="2950206"
^DD(791810,11.03,0)="ITEM TO BE REPLACED BY DDC?^S^1:YES;0:NO;1:yes;0:no;^11;3^Q"
^DD(791810,11.03,21,0)="^^3^3^2950427^^"
^DD(791810,11.03,21,1,0)="Users must enter 'YES' at the prompt for this data field in order to"
^DD(791810,11.03,21,2,0)="receive replacements for line items they issue from their station"
^DD(791810,11.03,21,3,0)="stock."
^DD(791810,11.03,"DT")="2950427"
^DD(791810,11.04,0)="PROSTHETICS ORDER^P660'^RMPR(660,^11;4^Q"
^DD(791810,11.04,1,0)="^.1"
^DD(791810,11.04,1,1,0)="791810^AP"
^DD(791810,11.04,1,1,1)="S ^RMPF(791810,""AP"",$E(X,1,30),DA)="""""
^DD(791810,11.04,1,1,2)="K ^RMPF(791810,""AP"",$E(X,1,30),DA)"
^DD(791810,11.04,1,1,"%D",0)="^^5^5^2950201^^^"
^DD(791810,11.04,1,1,"%D",1,0)="This cross-reference is used to look up a ROES order that is"
^DD(791810,11.04,1,1,"%D",2,0)="associated with a Prosthetics Package transaction when the order is"
^DD(791810,11.04,1,1,"%D",3,0)="entered through the Prosthetics Package interface.  Once a ROES order is"
^DD(791810,11.04,1,1,"%D",4,0)="associated with a Prosthetics transaction, only that order may be accessed"
^DD(791810,11.04,1,1,"%D",5,0)="when entering ROES from the Prosthetics Package."
^DD(791810,11.04,1,1,"DT")="2940131"
^DD(791810,11.04,21,0)="^^2^2^2950501^^^"
^DD(791810,11.04,21,1,0)="This field holds a pointer to a Prosthetics Transaction for those"
^DD(791810,11.04,21,2,0)="orders entered through the interface to the DHCP Prosthetics Package."
^DD(791810,11.04,"DT")="2940131"
^DD(791810,101,0)="LINE ITEM^791810.0101P^^101;0"
^DD(791810,101,21,0)="^^1^1^2940714^^^"
^DD(791810,101,21,1,0)="This multiple field contains the line items that are part of an order."
^DD(791810,201,0)="MESSAGE DATE/TIME^791810.0201DA^^201;0"
^DD(791810,201,21,0)="^^1^1^2950501^^^"
^DD(791810,201,21,1,0)="This field contains all messages received from the DDC."
^DD(791810,301,0)="AUTHORIZED HEARING AIDS^791810.0301A^^301;0"
^DD(791810,301,21,0)="^^2^2^2940714^^"
^DD(791810,301,21,1,0)="This node contains information about the authorized hearing aids for a"
^DD(791810,301,21,2,0)="veteran."
^DD(791810,901,0)="STATION NUMBER-NAME^F^^STA;1^K:$L(X)>30!($L(X)<3) X"
^DD(791810,901,3)="Answer must be 3-30 characters in length."
^DD(791810,901,21,0)="^^2^2^2940126^"
^DD(791810,901,21,1,0)="This field contains the station number and name for the facility"
^DD(791810,901,21,2,0)="initiating an order."
^DD(791810,901,"DT")="2910912"
^DD(791810,"B","ADDRESS LINE 1",1.01)=""
^DD(791810,"B","ADDRESS LINE 2",1.02)=""
^DD(791810,"B","ADDRESS LINE 3",1.03)=""
^DD(791810,"B","APPROVAL DATE",.11)=""
^DD(791810,"B","APPROVED BY",.1)=""
^DD(791810,"B","AUDIOLOGICAL ASSESSMENT DATE",10.08)=""
^DD(791810,"B","AUTHORIZED HEARING AIDS",301)=""
^DD(791810,"B","AUTHORIZED USAGE",11.02)=""
^DD(791810,"B","BEGIN DATE",1.07)=""
^DD(791810,"B","CANCEL REASON",10.03)=""
^DD(791810,"B","CITY",1.04)=""
^DD(791810,"B","CONTRACTOR'S INVOICE NUMBER",.13)=""
^DD(791810,"B","DATE ELIGIBILITY ENTERED",2.05)=""
^DD(791810,"B","DATE PATIENT REQUESTED CARE",10.04)=""
^DD(791810,"B","DELIVERY CATEGORY",10.05)=""
^DD(791810,"B","DISABILITY CODE",2.01)=""
^DD(791810,"B","DISAPPROVAL REASON",10.02)=""
^DD(791810,"B","ELIGIBILITY",2.02)=""
^DD(791810,"B","ELIGIBILITY COMMENT",2.09)=""
^DD(791810,"B","ELIGIBILITY ENTERED BY",2.03)=""
^DD(791810,"B","ELIGIBILITY ENTERED BY USER?",2.04)=""
^DD(791810,"B","END DATE",1.08)=""
^DD(791810,"B","ENTERED FROM THIS MENU",.15)=""
^DD(791810,"B","ENTERING USER",.05)=""
^DD(791810,"B","ITEM TO BE REPLACED BY DDC?",11.03)=""
^DD(791810,"B","LINE ITEM",101)=""
^DD(791810,"B","MESSAGE DATE/TIME",201)=""
^DD(791810,"B","ORDER DATE/TIME",.01)=""
^DD(791810,"B","ORDER/REQUEST DATE",.09)=""
^DD(791810,"B","ORDERED/REQUESTED BY",.08)=""
^DD(791810,"B","PATIENT",.04)=""
^DD(791810,"B","PE ENTERED BY",2.07)=""
^DD(791810,"B","PE ENTRY DATE/TIME",2.08)=""
^DD(791810,"B","PROPOSED ELIGIBILITY",2.06)=""
^DD(791810,"B","PROSTHETICS ORDER",11.04)=""
^DD(791810,"B","PURCHASE ORDER NUMBER",.07)=""
^DD(791810,"B","RELEASE DATE",10.07)=""
^DD(791810,"B","RELEASED BY",10.06)=""
^DD(791810,"B","REMARKS",10.01)=""
^DD(791810,"B","SENSITIVE PATIENT RECORD",2.13)=""
^DD(791810,"B","STATE",1.05)=""
^DD(791810,"B","STATION NUMBER-NAME",901)=""
^DD(791810,"B","STATUS DATE",.06)=""
^DD(791810,"B","STATUS OF ORDER",.03)=""
^DD(791810,"B","TRANSMISSION BATCH",.12)=""
^DD(791810,"B","TYPE OF HEARING AID FITTING",11.01)=""
^DD(791810,"B","TYPE OF ORDER",.02)=""
^DD(791810,"B","ZIP CODE",1.06)=""
^DD(791810,"GL",0,1,.01)=""
^DD(791810,"GL",0,2,.02)=""
^DD(791810,"GL",0,3,.03)=""
^DD(791810,"GL",0,4,.04)=""
^DD(791810,"GL",0,5,.05)=""
^DD(791810,"GL",0,6,.06)=""
^DD(791810,"GL",0,7,.07)=""
^DD(791810,"GL",0,8,.08)=""
^DD(791810,"GL",0,9,.09)=""
^DD(791810,"GL",0,10,.1)=""
^DD(791810,"GL",0,11,.11)=""
^DD(791810,"GL",0,12,.12)=""
^DD(791810,"GL",0,13,.13)=""
^DD(791810,"GL",0,15,.15)=""
^DD(791810,"GL",1,1,1.01)=""
^DD(791810,"GL",1,2,1.02)=""
^DD(791810,"GL",1,3,1.03)=""
^DD(791810,"GL",1,4,1.04)=""
^DD(791810,"GL",1,5,1.05)=""
^DD(791810,"GL",1,6,1.06)=""
^DD(791810,"GL",1,7,1.07)=""
^DD(791810,"GL",1,8,1.08)=""
^DD(791810,"GL",2,1,2.01)=""
^DD(791810,"GL",2,2,2.02)=""
^DD(791810,"GL",2,3,2.03)=""
^DD(791810,"GL",2,4,2.04)=""
^DD(791810,"GL",2,5,2.05)=""
^DD(791810,"GL",2,6,2.06)=""
^DD(791810,"GL",2,7,2.07)=""
^DD(791810,"GL",2,8,2.08)=""
^DD(791810,"GL",2,9,2.09)=""
^DD(791810,"GL",2,13,2.13)=""
^DD(791810,"GL",10,1,10.01)=""
^DD(791810,"GL",10,2,10.02)=""
^DD(791810,"GL",10,3,10.03)=""
^DD(791810,"GL",10,4,10.04)=""
^DD(791810,"GL",10,5,10.05)=""
^DD(791810,"GL",10,6,10.06)=""
^DD(791810,"GL",10,7,10.07)=""
^DD(791810,"GL",10,8,10.08)=""
^DD(791810,"GL",11,1,11.01)=""
^DD(791810,"GL",11,2,11.02)=""
^DD(791810,"GL",11,3,11.03)=""
^DD(791810,"GL",11,4,11.04)=""
^DD(791810,"GL",101,0,101)=""
^DD(791810,"GL",201,0,201)=""
^DD(791810,"GL",301,0,301)=""
^DD(791810,"GL","STA",1,901)=""
^DD(791810,"IX",.01)=""
^DD(791810,"IX",.03)=""
^DD(791810,"IX",.04)=""
^DD(791810,"IX",.06)=""
^DD(791810,"IX",.07)=""
^DD(791810,"IX",2.08)=""
^DD(791810,"IX",11.04)=""
^DD(791810,"RQ",.01)=""
^DD(791810,"SB",791810.0101,101)=""
^DD(791810,"SB",791810.0201,201)=""
^DD(791810,"SB",791810.0301,301)=""
^DD(791810.0101,0)="LINE ITEM SUB-FIELD^^102^48"
^DD(791810.0101,0,"DT")="2950206"
^DD(791810.0101,0,"IX","AC",791810.0101,.01)=""
^DD(791810.0101,0,"IX","AD",791810.0101,.16)=""
^DD(791810.0101,0,"IX","B",791810.0101,.01)=""
^DD(791810.0101,0,"NM","LINE ITEM")=""
^DD(791810.0101,0,"UP")="791810"
^DD(791810.0101,.01,0)="ITEM NAME^P791811'^RMPF(791811,^0;1^Q"
^DD(791810.0101,.01,1,0)="^.1"
^DD(791810.0101,.01,1,1,0)="791810.0101^B"
^DD(791810.0101,.01,1,1,1)="S ^RMPF(791810,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791810.0101,.01,1,1,2)="K ^RMPF(791810,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791810.0101,.01,1,1,"%D",0)="^^1^1^2950201^^"
^DD(791810.0101,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.0101,.01,1,2,0)="791810.0101^AC^MUMPS"
^DD(791810.0101,.01,1,2,1)="I $D(^RMPF(791811,X,0)) S ZZ=$P(^(0),U,4),ZY=$P(^(0),U,6),ZZ=ZZ*$S(ZY:1+(ZY/100),1:1),$P(^RMPF(791810,DA(1),101,DA,0),U,14)=ZZ"
^DD(791810.0101,.01,1,2,2)="S $P(^RMPF(791810,DA(1),101,DA,0),U,14)="""""
^DD(791810.0101,.01,1,2,"%D",0)="^^3^3^2940126^"
^DD(791810.0101,.01,1,2,"%D",1,0)="This cross-reference gets the current cost for a line item and sets it into"
^DD(791810.0101,.01,1,2,"%D",2,0)="the 'Cost of Item' field for the line item in the order.  This"
^DD(791810.0101,.01,1,2,"%D",3,0)="insures that the cost is recorded at the time the order is created."
^DD(791810.0101,.01,1,2,"DT")="2911112"
^DD(791810.0101,.01,21,0)="^^1^1^2910524^"
^DD(791810.0101,.01,21,1,0)="This is a pointer to the line items in the Remote Inventory Product File."
^DD(791810.0101,.01,"DT")="2911112"
^DD(791810.0101,.02,0)="BATTERY TYPE FURNISHED^P791811.3'X^RMPF(791811.3,^0;2^Q"
^DD(791810.0101,.02,3)=""
^DD(791810.0101,.02,21,0)="^^2^2^2910524^"
^DD(791810.0101,.02,21,1,0)="This is a pointer to a specific battery type in the battery file.  Only"
^DD(791810.0101,.02,21,2,0)="batteries that may be used for the model chosen may be used."
^DD(791810.0101,.02,"DT")="2941103"
^DD(791810.0101,.03,0)="ACQUISITION DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,.03,21,0)="^^2^2^2950501^^"
^DD(791810.0101,.03,21,1,0)="This is the date that a product was acquired if it came from some source"
^DD(791810.0101,.03,21,2,0)="other than the DDC."
^DD(791810.0101,.03,"DT")="2901213"
^DD(791810.0101,.04,0)="LEFT OR RIGHT^S^L:left ear;R:right ear;^0;4^Q"
^DD(791810.0101,.04,21,0)="^^1^1^2910524^"
^DD(791810.0101,.04,21,1,0)="This is an indication of the ear for which a hearing aid has been ordered."
^DD(791810.0101,.04,"DT")="2950206"
^DD(791810.0101,.05,0)="ITEM SERIAL #^F^^0;5^K:$L(X)>10!($L(X)<1) X"
^DD(791810.0101,.05,3)="Answer must be 1-10 characters in length."
^DD(791810.0101,.05,21,0)="^^1^1^2910524^"
^DD(791810.0101,.05,21,1,0)="This is the serial number of the line item."
^DD(791810.0101,.05,"DT")="2900710"
^DD(791810.0101,.06,0)="QUANTITY^NJ4,0^^0;6^K:+X'=X!(X>9999)!(X<-9999)!(X?.E1"".""1N.N) X"
^DD(791810.0101,.06,3)="Type a Number between -9999 and 9999, 0 Decimal Digits"
^DD(791810.0101,.06,21,0)="^^1^1^2940714^"
^DD(791810.0101,.06,21,1,0)="This is the quantity of line item(s) requested in an order."
^DD(791810.0101,.06,"DT")="2940728"
^DD(791810.0101,.07,0)="TYPE OF INCREASE^S^T:temporary increase;P:permanent increase;^0;7^Q"
^DD(791810.0101,.07,21,0)="^^2^2^2910524^"
^DD(791810.0101,.07,21,1,0)="This field defines whether an increase or decrease in quantity should"
^DD(791810.0101,.07,21,2,0)="be permanent or temporary."
^DD(791810.0101,.07,"DT")="2950206"
^DD(791810.0101,.08,0)="ISSUE DATE^D^^0;8^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,.08,21,0)="^^1^1^2910524^"
^DD(791810.0101,.08,21,1,0)="This is the date that an item was actually issued to a veteran."
^DD(791810.0101,.08,"DT")="2900709"
^DD(791810.0101,.09,0)="RETURN ACTION^S^R:REDUCE CLINIC STOCK;D:DEFECTIVE ITEM;^0;9^Q"
^DD(791810.0101,.09,21,0)="^^1^1^2950206^^"
^DD(791810.0101,.09,21,1,0)="This field is no longer used."
^DD(791810.0101,.09,"DT")="2901113"
^DD(791810.0101,.1,0)="TYPE OF LOSS^F^^0;10^K:$L(X)>30!($L(X)<3) X"
^DD(791810.0101,.1,3)="Answer must be 3-30 characters in length."
^DD(791810.0101,.1,21,0)="^^2^2^2910524^"
^DD(791810.0101,.1,21,1,0)="This is a free text field that users must enter to describe how an item"
^DD(791810.0101,.1,21,2,0)="was lost."
^DD(791810.0101,.1,"DT")="2901126"
^DD(791810.0101,.11,0)="PURCHASED BY^S^CDP:clinic direct purchase;SP:self purchase;MIL:military issue;O:other;^0;11^Q"
^DD(791810.0101,.11,21,0)="^^3^3^2950501^^"
^DD(791810.0101,.11,21,1,0)="This field is used in the product registration process to indicate"
^DD(791810.0101,.11,21,2,0)="the method used for purchasing items that have not been ordered"
^DD(791810.0101,.11,21,3,0)="from the DDC."
^DD(791810.0101,.11,"DT")="2950206"
^DD(791810.0101,.12,0)="TYPE OF ISSUE^S^P:permanent issue;T:temporary issue;^0;12^Q"
^DD(791810.0101,.12,21,0)="^^2^2^2910524^"
^DD(791810.0101,.12,21,1,0)="This field indicates whether the issue of a product to a veteran was a"
^DD(791810.0101,.12,21,2,0)="permanent issue or a temporary issue."
^DD(791810.0101,.12,"DT")="2950206"
^DD(791810.0101,.13,0)="RECOVERY DATE^D^^0;13^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,.13,21,0)="^^2^2^2910524^"
^DD(791810.0101,.13,21,1,0)="This is the date that an item was recovered or reclaimed into station"
^DD(791810.0101,.13,21,2,0)="stock from a veteran or other source."
^DD(791810.0101,.13,"DT")="2901127"
^DD(791810.0101,.14,0)="PRICE OF ITEM^NJ10,4^^0;14^K:+X'=X!(X>99999.99)!(X<0)!(X?.E1"".""5N.N) X"
^DD(791810.0101,.14,3)="Type a Number between 0 and 99999.99, 4 Decimal Digits"
^DD(791810.0101,.14,21,0)="^^1^1^2910524^"
^DD(791810.0101,.14,21,1,0)="This is the cost of an item at the time is was ordered."
^DD(791810.0101,.14,"DT")="2911007"
^DD(791810.0101,.15,0)="TYPE OF ENTRY^S^O:ORDER;D:DELETE;DC:DELETED BY A CHANGE;OC:ORDERED BY A CHANGE;C:CANCELED;^0;15^Q"
^DD(791810.0101,.15,21,0)="^^2^2^2910913^"
^DD(791810.0101,.15,21,1,0)="This field shows whether the item was an original order, a deletion or"
^DD(791810.0101,.15,21,2,0)="a change of model."
^DD(791810.0101,.15,"DT")="2940419"
^DD(791810.0101,.16,0)="RELATED ORDER^NJ3,0^^0;16^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791810.0101,.16,1,0)="^.1"
^DD(791810.0101,.16,1,1,0)="791810.0101^AD"
^DD(791810.0101,.16,1,1,1)="S ^RMPF(791810,DA(1),101,""AD"",$E(X,1,30),DA)="""""
^DD(791810.0101,.16,1,1,2)="K ^RMPF(791810,DA(1),101,""AD"",$E(X,1,30),DA)"
^DD(791810.0101,.16,1,1,"%D",0)="^^2^2^2910924^"
^DD(791810.0101,.16,1,1,"%D",1,0)="This cross-reference allows all related line item entries (orders and"
^DD(791810.0101,.16,1,1,"%D",2,0)="adjustments) to be grouped by original entry."
^DD(791810.0101,.16,1,1,"DT")="2910829"
^DD(791810.0101,.16,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(791810.0101,.16,21,0)="^^5^5^2940126^"
^DD(791810.0101,.16,21,1,0)="This field contains the internal number of the line item that this"
^DD(791810.0101,.16,21,2,0)="item related to.  If the entry is a new order, the related order"
^DD(791810.0101,.16,21,3,0)="number will be the same as the internal number for the order.  If the"
^DD(791810.0101,.16,21,4,0)="entry is an adjustment to an existing order, this number will be the"
^DD(791810.0101,.16,21,5,0)="internal number of the entry that the adjustment relates to."
^DD(791810.0101,.16,"DT")="2910829"
^DD(791810.0101,.17,0)="LAST STATUS DATE^D^^0;17^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,.17,21,0)="^^1^1^2940714^"
^DD(791810.0101,.17,21,1,0)="This is the last date that the line item information was updated."
^DD(791810.0101,.17,"DT")="2940502"
^DD(791810.0101,.18,0)="LAST STATUS^P791810.2'^RMPF(791810.2,^0;18^Q"
^DD(791810.0101,.18,21,0)="^^1^1^2940714^"
^DD(791810.0101,.18,21,1,0)="This is the last status received for the line item."
^DD(791810.0101,.18,"DT")="2940502"
^DD(791810.0101,.19,0)="LAST ACTION^S^O:ORDER;C:CANCEL;I:ISSUE;R:CERTIFIED;A:ADJUSTED;AR:ADJUSTED AND CERTIFIED;RI:CERTIFIED AND ISSUED;AI:ADJUSTED AND ISSUED;ARI:ADJUSTED, CERTIFIED AND ISSUED;^0;19^Q"
^DD(791810.0101,.19,21,0)="^^1^1^2940726^^"
^DD(791810.0101,.19,21,1,0)="This is the last action(s) taken on the line item."
^DD(791810.0101,.19,"DT")="2940726"
^DD(791810.0101,.2,0)="APPROVED SINCE LAST EDIT^S^0:APPROVED;1:NOT APPROVED;^0;20^Q"
^DD(791810.0101,.2,21,0)="^^2^2^2940630^^"
^DD(791810.0101,.2,21,1,0)="This field indicates whether or not the last edit of this line item"
^DD(791810.0101,.2,21,2,0)="was approved."
^DD(791810.0101,.2,"DT")="2940630"
^DD(791810.0101,2.01,0)="MAKE^F^^2;1^K:$L(X)>30!($L(X)<1) X"
^DD(791810.0101,2.01,3)="Answer must be 1-30 characters in length."
^DD(791810.0101,2.01,21,0)="^^3^3^2940126^"
^DD(791810.0101,2.01,21,1,0)="This is a free text entry of the make of an item that is used in"
^DD(791810.0101,2.01,21,2,0)="orders when the item is not listed in the Remote Inventory Product"
^DD(791810.0101,2.01,21,3,0)="File."
^DD(791810.0101,2.01,"DT")="2901114"
^DD(791810.0101,2.02,0)="MODEL^F^^2;2^K:$L(X)>30!($L(X)<1) X"
^DD(791810.0101,2.02,3)="Answer must be 1-30 characters in length."
^DD(791810.0101,2.02,21,0)="^^2^2^2940126^"
^DD(791810.0101,2.02,21,1,0)="This is the free text name of the model of an item used in an order"
^DD(791810.0101,2.02,21,2,0)="when the model is not in the Remote Inventory Product File."
^DD(791810.0101,2.02,"DT")="2901114"
^DD(791810.0101,2.03,0)="SECOND BATTERY TYPE^P791811.3'^RMPF(791811.3,^2;3^Q"
^DD(791810.0101,2.03,21,0)="^^2^2^2911007^"
^DD(791810.0101,2.03,21,1,0)="This field holds the second battery type for items that require more than"
^DD(791810.0101,2.03,21,2,0)="one battery type."
^DD(791810.0101,2.03,"DT")="2911007"
^DD(791810.0101,2.04,0)="PRODUCT GROUP REQUESTED FOR^*P791811.1'^RMPF(791811.1,^2;4^S DIC(""S"")=""I $P(^RMPF(791811.1,+Y,0),U,3)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(791810.0101,2.04,3)="Enter the Product Group of the item requiring batteries."
^DD(791810.0101,2.04,12)="This screen is used to limit product groups to those that use batteries."
^DD(791810.0101,2.04,12.1)="S DIC(""S"")=""I $P(^RMPF(791811.1,+Y,0),U,3)"""
^DD(791810.0101,2.04,21,0)="^^2^2^2940714^"
^DD(791810.0101,2.04,21,1,0)="This is the product group of the item for which the user is requesting"
^DD(791810.0101,2.04,21,2,0)="batteries."
^DD(791810.0101,2.04,"DT")="2940726"
^DD(791810.0101,2.05,0)="BRAND PREFERENCE^S^N:no preference;P:prefer;D:demand;^2;5^Q"
^DD(791810.0101,2.05,21,0)="^^2^2^2940714^"
^DD(791810.0101,2.05,21,1,0)="This field indicates if a patient has a preference or a demand for a"
^DD(791810.0101,2.05,21,2,0)="particular brand of line item."
^DD(791810.0101,2.05,"DT")="2950206"
^DD(791810.0101,2.06,0)="BRAND REQUESTED^P791811.4'^RMPF(791811.4,^2;6^Q"
^DD(791810.0101,2.06,3)=""
^DD(791810.0101,2.06,21,0)="^^1^1^2940714^"
^DD(791810.0101,2.06,21,1,0)="This is the brand of line item that a patient prefers or demands."
^DD(791810.0101,2.06,"DT")="2940404"
^DD(791810.0101,3.01,0)="TYPE OF TRANSACTION^S^I:initial;R:replace;S:spare;A:adjust/repair;^3;1^Q"
^DD(791810.0101,3.01,21,0)="^^3^3^2940201^^^"
^DD(791810.0101,3.01,21,1,0)="This field contains data that is collected by ROES and passed to the"
^DD(791810.0101,3.01,21,2,0)="DHCP Prosthetics Package.  The information related to the reason the"
^DD(791810.0101,3.01,21,3,0)="item is being ordered for the veteran."
^DD(791810.0101,3.01,23,0)="^^2^2^2940201^^"
^DD(791810.0101,3.01,23,1,0)="This information is passed to the Prosthetics Package.  The variable used"
^DD(791810.0101,3.01,23,2,0)="to hold the data is RMPFTT."
^DD(791810.0101,3.01,"DT")="2950206"
^DD(791810.0101,3.02,0)="DISABILITY CODE^*P662'^RMPR(662,^3;2^D CHECK^RMPFET7 D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(791810.0101,3.02,12)="The only disabilities that may be chosen are those that relate to this order type."
^DD(791810.0101,3.02,12.1)="D CHECK^RMPFET7"
^DD(791810.0101,3.02,21,0)="^^3^3^2940131^^"
^DD(791810.0101,3.02,21,1,0)="This field contains a pointer to the Prosthetic Disability File.  The"
^DD(791810.0101,3.02,21,2,0)="disability entered is associated with the line item being ordered through"
^DD(791810.0101,3.02,21,3,0)="ROES."
^DD(791810.0101,3.02,23,0)="^^2^2^2940201^^^"
^DD(791810.0101,3.02,23,1,0)="This information is passed to the Prosthetics Package.  The variable used"
^DD(791810.0101,3.02,23,2,0)="to hold the information is RMPFDIS."
^DD(791810.0101,3.02,"DT")="2940726"
^DD(791810.0101,3.03,0)="SC/NSC FOR DISABILITY^S^S:service connected;N:non-service connected;^3;3^Q"
^DD(791810.0101,3.03,21,0)="^^3^3^2940131^"
^DD(791810.0101,3.03,21,1,0)="This field indicated whether a veteran is service connected or non-"
^DD(791810.0101,3.03,21,2,0)="service connected for the disability associated with the order for the"
^DD(791810.0101,3.03,21,3,0)="line item selected."
^DD(791810.0101,3.03,23,0)="^^2^2^2940201^^"
^DD(791810.0101,3.03,23,1,0)="This information is passed to the Prosthetics Package.  The variable used"
^DD(791810.0101,3.03,23,2,0)="to hold this information is RMPFDSN."
^DD(791810.0101,3.03,"DT")="2950206"
^DD(791810.0101,3.04,0)="PATIENT CATEGORY^S^1:SC/OP;2:SC/IP;3:NSC/IP;4:NSC/OP;^3;4^Q"
^DD(791810.0101,3.04,21,0)="^^2^2^2940131^"
^DD(791810.0101,3.04,21,1,0)="This field contains the patient category assigned to the veteran for the"
^DD(791810.0101,3.04,21,2,0)="specific line item ordered."
^DD(791810.0101,3.04,23,0)="^^4^4^2940201^^"
^DD(791810.0101,3.04,23,1,0)="This information is passed to the Prosthetics Package.  The variable used"
^DD(791810.0101,3.04,23,2,0)="to hold the data is RMPFPCT.  If the user enters a '4' for NSC/IP, the"
^DD(791810.0101,3.04,23,3,0)="user will be asked for the 'SPECIAL CATEGORY' contained in field number"
^DD(791810.0101,3.04,23,4,0)="3.05."
^DD(791810.0101,3.04,"DT")="2940131"
^DD(791810.0101,3.05,0)="SPECIAL CATEGORY^S^1:Special Legislation;2:A&A;3:PHC;^3;5^Q"
^DD(791810.0101,3.05,21,0)="^^2^2^2940131^"
^DD(791810.0101,3.05,21,1,0)="This field contains the special category associated with a veteran who"
^DD(791810.0101,3.05,21,2,0)="has been determined to be NSC/OP for the line item ordered."
^DD(791810.0101,3.05,23,0)="^^3^3^2940201^^"
^DD(791810.0101,3.05,23,1,0)="This information is only asked if field number 3.04 is answered as '4' or"
^DD(791810.0101,3.05,23,2,0)="'NSC/OP'.  The information is passed to the Prosthetics Package.  The"
^DD(791810.0101,3.05,23,3,0)="variable used to hold the information is RMPFPSC."
^DD(791810.0101,3.05,"DT")="2940131"
^DD(791810.0101,90.01,0)="USER MAKING ADJUSTMENT^P200'^VA(200,^90;1^Q"
^DD(791810.0101,90.01,21,0)="^^2^2^2910924^"
^DD(791810.0101,90.01,21,1,0)="This field contains the user who made the order or adjustment for the"
^DD(791810.0101,90.01,21,2,0)="line item."
^DD(791810.0101,90.01,"DT")="2910829"
^DD(791810.0101,90.02,0)="DATE/TIME OF ADJUSTMENT^D^^90;2^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,90.02,21,0)="^^2^2^2910924^"
^DD(791810.0101,90.02,21,1,0)="This field contains the date and time that an order or adjustment was"
^DD(791810.0101,90.02,21,2,0)="made."
^DD(791810.0101,90.02,"DT")="2910829"
^DD(791810.0101,90.03,0)="REASON FOR ADJUSTMENT^F^^90;3^K:$L(X)>17!($L(X)<3) X"
^DD(791810.0101,90.03,3)="Answer must be 3-17 characters in length."
^DD(791810.0101,90.03,21,0)="^^1^1^2910924^"
^DD(791810.0101,90.03,21,1,0)="This field contains the reason for an adjustment."
^DD(791810.0101,90.03,"DT")="2910829"
^DD(791810.0101,90.04,0)="ADJUSTMENT MESSAGE^F^^90;4^K:$L(X)>30!($L(X)<3) X"
^DD(791810.0101,90.04,3)="Answer must be 3-30 characters in length."
^DD(791810.0101,90.04,21,0)="^^2^2^2940126^"
^DD(791810.0101,90.04,21,1,0)="If an adjustment has a special message to display on the Order Detail"
^DD(791810.0101,90.04,21,2,0)="Screen, this field will contain the message."
^DD(791810.0101,90.04,"DT")="2910910"
^DD(791810.0101,90.05,0)="CANCEL REASON^F^^90;5^K:$L(X)>30!($L(X)<3) X"
^DD(791810.0101,90.05,3)="Answer must be 3-30 characters in length."
^DD(791810.0101,90.05,21,0)="^^1^1^2940426^"
^DD(791810.0101,90.05,21,1,0)="This field holds the name of the user canceling the line item order."
^DD(791810.0101,90.05,"DT")="2940509"
^DD(791810.0101,90.06,0)="DATE RETURNED TO VENDOR^D^^90;6^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,90.06,21,0)="^^2^2^2940510^"
^DD(791810.0101,90.06,21,1,0)="This field contains the date that an item was returned to the vendor"
^DD(791810.0101,90.06,21,2,0)="for credit.  It is a data point included in cancel transactions."
^DD(791810.0101,90.06,"DT")="2940510"
^DD(791810.0101,90.07,0)="SHIP DATE^D^^90;7^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,90.07,"DT")="2940510"
^DD(791810.0101,90.08,0)="CERTIFICATION USER^P200'^VA(200,^90;8^Q"
^DD(791810.0101,90.08,21,0)="^^1^1^2940524^"
^DD(791810.0101,90.08,21,1,0)="This is the name of the user who certified a Custom Hearing Aid Order."
^DD(791810.0101,90.08,"DT")="2940524"
^DD(791810.0101,90.09,0)="CERTIFICATION DATE/TIME^D^^90;9^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,90.09,21,0)="^^1^1^2940524^"
^DD(791810.0101,90.09,21,1,0)="This is the date and time that a Custom Hearing Aid Order was certified."
^DD(791810.0101,90.09,"DT")="2940524"
^DD(791810.0101,90.1,0)="RECERTIFIED BY^P200'^VA(200,^90;10^Q"
^DD(791810.0101,90.1,21,0)="^^1^1^2941028^"
^DD(791810.0101,90.1,21,1,0)="This field contains the last user to recertify a Custom Hearing Aid order."
^DD(791810.0101,90.1,"DT")="2941028"
^DD(791810.0101,90.11,0)="RECERTIFICATION DATE^D^^90;11^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0101,90.11,21,0)="^^2^2^2941028^"
^DD(791810.0101,90.11,21,1,0)="This field contains the last date that a Custom Hearing Aid order was"
^DD(791810.0101,90.11,21,2,0)="recertified."
^DD(791810.0101,90.11,"DT")="2941028"
^DD(791810.0101,90.12,0)="ISSUED BY^P200'X^VA(200,^90;12^D IU^RMPFET71"
^DD(791810.0101,90.12,21,0)="^^1^1^2950203^^"
^DD(791810.0101,90.12,21,1,0)="This is the name of the user issuing the hearing aid."
^DD(791810.0101,90.12,"DT")="2950206"
^DD(791810.0101,90.13,0)="CANCELED BY^P200'^VA(200,^90;13^Q"
^DD(791810.0101,90.13,21,0)="^^1^1^2950103^"
^DD(791810.0101,90.13,21,1,0)="This field holds the name of the user who canceled the line item."
^DD(791810.0101,90.13,"DT")="2950206"
^DD(791810.0101,90.14,0)="REASON FOR DELAY^P791810.6'^RMPF(791810.6,^90;14^Q"
^DD(791810.0101,90.14,21,0)="^^3^3^2950104^"
^DD(791810.0101,90.14,21,1,0)="If the issue date for a hearing aid is more than 40 working days since"
^DD(791810.0101,90.14,21,2,0)="the patient requested care, a user must enter a reason for delay of the"
^DD(791810.0101,90.14,21,3,0)="order in this field."
^DD(791810.0101,90.14,"DT")="2950104"
^DD(791810.0101,90.15,0)="FT REASON FOR DELAY^F^^90;15^K:$L(X)>50!($L(X)<3) X"
^DD(791810.0101,90.15,3)="Answer must be 3-50 characters in length."
^DD(791810.0101,90.15,21,0)="^^2^2^2950104^"
^DD(791810.0101,90.15,21,1,0)="If a user selects 'OTHER' as a reason for delay in filling the order, they"
^DD(791810.0101,90.15,21,2,0)="must enter a free text reason in this field."
^DD(791810.0101,90.15,"DT")="2950104"
^DD(791810.0101,101,0)="SERIAL NUMBER OF REPLACED ITEM^791810.101101A^^101;0"
^DD(791810.0101,101,21,0)="^^2^2^2910524^"
^DD(791810.0101,101,21,1,0)="This field indicates the serial number of an authorized item that is"
^DD(791810.0101,101,21,2,0)="being replaced by a new product."
^DD(791810.0101,102,0)="COMPONENT^791810.101102P^^102;0"
^DD(791810.0101,102,12)="Only components that can be used with this model may be chosen."
^DD(791810.0101,102,12.1)="D COMP^RMPFUTL"
^DD(791810.0101,102,21,0)="^^3^3^2940714^"
^DD(791810.0101,102,21,1,0)="This is a pointer to the Hearing Aid Component File for any components being"
^DD(791810.0101,102,21,2,0)="ordered with a hearing aid.  Components may only be chosen if they have been"
^DD(791810.0101,102,21,3,0)="associated with the model selected."
^DD(791810.0101,"B","ACQUISITION DATE",.03)=""
^DD(791810.0101,"B","ADJUSTMENT MESSAGE",90.04)=""
^DD(791810.0101,"B","APPROVED SINCE LAST EDIT",.2)=""
^DD(791810.0101,"B","BATTERY TYPE FURNISHED",.02)=""
^DD(791810.0101,"B","BRAND PREFERENCE",2.05)=""
^DD(791810.0101,"B","BRAND REQUESTED",2.06)=""
^DD(791810.0101,"B","CANCEL REASON",90.05)=""
^DD(791810.0101,"B","CANCELED BY",90.13)=""
^DD(791810.0101,"B","CERTIFICATION DATE/TIME",90.09)=""
^DD(791810.0101,"B","CERTIFICATION USER",90.08)=""
^DD(791810.0101,"B","COMPONENT",102)=""
^DD(791810.0101,"B","DATE RETURNED TO VENDOR",90.06)=""
^DD(791810.0101,"B","DATE/TIME OF ADJUSTMENT",90.02)=""
^DD(791810.0101,"B","DISABILITY CODE",3.02)=""
^DD(791810.0101,"B","FT REASON FOR DELAY",90.15)=""
^DD(791810.0101,"B","ISSUE DATE",.08)=""
^DD(791810.0101,"B","ISSUED BY",90.12)=""
^DD(791810.0101,"B","ITEM NAME",.01)=""
^DD(791810.0101,"B","ITEM SERIAL #",.05)=""
^DD(791810.0101,"B","LAST ACTION",.19)=""
^DD(791810.0101,"B","LAST STATUS",.18)=""
^DD(791810.0101,"B","LAST STATUS DATE",.17)=""
^DD(791810.0101,"B","LEFT OR RIGHT",.04)=""
^DD(791810.0101,"B","MAKE",2.01)=""
^DD(791810.0101,"B","MODEL",2.02)=""
^DD(791810.0101,"B","PATIENT CATEGORY",3.04)=""
^DD(791810.0101,"B","PRICE OF ITEM",.14)=""
^DD(791810.0101,"B","PRODUCT GROUP REQUESTED FOR",2.04)=""
^DD(791810.0101,"B","PURCHASED BY",.11)=""
^DD(791810.0101,"B","QUANTITY",.06)=""
^DD(791810.0101,"B","REASON FOR ADJUSTMENT",90.03)=""
^DD(791810.0101,"B","REASON FOR DELAY",90.14)=""
^DD(791810.0101,"B","RECERTIFICATION DATE",90.11)=""
^DD(791810.0101,"B","RECERTIFIED BY",90.1)=""
^DD(791810.0101,"B","RECOVERY DATE",.13)=""
^DD(791810.0101,"B","RELATED ORDER",.16)=""
^DD(791810.0101,"B","RETURN ACTION",.09)=""
^DD(791810.0101,"B","SC/NSC FOR DISABILITY",3.03)=""
^DD(791810.0101,"B","SECOND BATTERY TYPE",2.03)=""
^DD(791810.0101,"B","SERIAL NUMBER OF REPLACED ITEM",101)=""
^DD(791810.0101,"B","SHIP DATE",90.07)=""
^DD(791810.0101,"B","SPECIAL CATEGORY",3.05)=""
^DD(791810.0101,"B","TYPE OF ENTRY",.15)=""
^DD(791810.0101,"B","TYPE OF INCREASE",.07)=""
^DD(791810.0101,"B","TYPE OF ISSUE",.12)=""
^DD(791810.0101,"B","TYPE OF LOSS",.1)=""
^DD(791810.0101,"B","TYPE OF TRANSACTION",3.01)=""
^DD(791810.0101,"B","USER MAKING ADJUSTMENT",90.01)=""
^DD(791810.0101,"GL",0,1,.01)=""
^DD(791810.0101,"GL",0,2,.02)=""
^DD(791810.0101,"GL",0,3,.03)=""
^DD(791810.0101,"GL",0,4,.04)=""
^DD(791810.0101,"GL",0,5,.05)=""
^DD(791810.0101,"GL",0,6,.06)=""
^DD(791810.0101,"GL",0,7,.07)=""
^DD(791810.0101,"GL",0,8,.08)=""
^DD(791810.0101,"GL",0,9,.09)=""
^DD(791810.0101,"GL",0,10,.1)=""
^DD(791810.0101,"GL",0,11,.11)=""
^DD(791810.0101,"GL",0,12,.12)=""
^DD(791810.0101,"GL",0,13,.13)=""
^DD(791810.0101,"GL",0,14,.14)=""
^DD(791810.0101,"GL",0,15,.15)=""
^DD(791810.0101,"GL",0,16,.16)=""
^DD(791810.0101,"GL",0,17,.17)=""
^DD(791810.0101,"GL",0,18,.18)=""
^DD(791810.0101,"GL",0,19,.19)=""
^DD(791810.0101,"GL",0,20,.2)=""
^DD(791810.0101,"GL",2,1,2.01)=""
^DD(791810.0101,"GL",2,2,2.02)=""
^DD(791810.0101,"GL",2,3,2.03)=""
^DD(791810.0101,"GL",2,4,2.04)=""
^DD(791810.0101,"GL",2,5,2.05)=""
^DD(791810.0101,"GL",2,6,2.06)=""
^DD(791810.0101,"GL",3,1,3.01)=""
^DD(791810.0101,"GL",3,2,3.02)=""
^DD(791810.0101,"GL",3,3,3.03)=""
^DD(791810.0101,"GL",3,4,3.04)=""
^DD(791810.0101,"GL",3,5,3.05)=""
^DD(791810.0101,"GL",90,1,90.01)=""
^DD(791810.0101,"GL",90,2,90.02)=""
^DD(791810.0101,"GL",90,3,90.03)=""
^DD(791810.0101,"GL",90,4,90.04)=""
^DD(791810.0101,"GL",90,5,90.05)=""
^DD(791810.0101,"GL",90,6,90.06)=""
^DD(791810.0101,"GL",90,7,90.07)=""
^DD(791810.0101,"GL",90,8,90.08)=""
^DD(791810.0101,"GL",90,9,90.09)=""
^DD(791810.0101,"GL",90,10,90.1)=""
^DD(791810.0101,"GL",90,11,90.11)=""
^DD(791810.0101,"GL",90,12,90.12)=""
^DD(791810.0101,"GL",90,13,90.13)=""
^DD(791810.0101,"GL",90,14,90.14)=""
^DD(791810.0101,"GL",90,15,90.15)=""
^DD(791810.0101,"GL",101,0,101)=""
^DD(791810.0101,"GL",102,0,102)=""
^DD(791810.0101,"IX",.01)=""
^DD(791810.0101,"IX",.16)=""
^DD(791810.0101,"SB",791810.101101,101)=""
^DD(791810.0101,"SB",791810.101102,102)=""
^DD(791810.0201,0)="MESSAGE DATE/TIME SUB-FIELD^^101^3"
^DD(791810.0201,0,"DT")="2940630"
^DD(791810.0201,0,"IX","B",791810.0201,.01)=""
^DD(791810.0201,0,"NM","MESSAGE DATE/TIME")=""
^DD(791810.0201,0,"UP")="791810"
^DD(791810.0201,.01,0)="MESSAGE DATE/TIME^D^^0;1^S %DT=""ETX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0201,.01,1,0)="^.1"
^DD(791810.0201,.01,1,1,0)="791810.0201^B"
^DD(791810.0201,.01,1,1,1)="S ^RMPF(791810,DA(1),201,""B"",$E(X,1,30),DA)="""""
^DD(791810.0201,.01,1,1,2)="K ^RMPF(791810,DA(1),201,""B"",$E(X,1,30),DA)"
^DD(791810.0201,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791810.0201,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.0201,.01,21,0)="^^1^1^2950501^^"
^DD(791810.0201,.01,21,1,0)="This is the date and time that the message was created at the DDC."
^DD(791810.0201,.01,"DT")="2901214"
^DD(791810.0201,.02,0)="MESSAGE^P3.9'^XMB(3.9,^0;2^Q"
^DD(791810.0201,.02,21,0)="^^2^2^2950501^^"
^DD(791810.0201,.02,21,1,0)="This field holds the pointer to the MESSAGE File (XMB(3.9)) for the"
^DD(791810.0201,.02,21,2,0)="message generating the update."
^DD(791810.0201,.02,"DT")="2920123"
^DD(791810.0201,101,0)="ERROR MESSAGE^791810.201101A^^101;0"
^DD(791810.0201,101,21,0)="^^2^2^2950501^^"
^DD(791810.0201,101,21,1,0)="This is the text of the message returned from the DDC indicating the"
^DD(791810.0201,101,21,2,0)="action taken on the order."
^DD(791810.0201,"B","ERROR MESSAGE",101)=""
^DD(791810.0201,"B","MESSAGE",.02)=""
^DD(791810.0201,"B","MESSAGE DATE/TIME",.01)=""
^DD(791810.0201,"GL",0,1,.01)=""
^DD(791810.0201,"GL",0,2,.02)=""
^DD(791810.0201,"GL",101,0,101)=""
^DD(791810.0201,"IX",.01)=""
^DD(791810.0201,"SB",791810.201101,101)=""
^DD(791810.0301,0)="AUTHORIZED HEARING AIDS SUB-FIELD^^.08^8"
^DD(791810.0301,0,"DT")="2950206"
^DD(791810.0301,0,"IX","B",791810.0301,.01)=""
^DD(791810.0301,0,"NM","AUTHORIZED HEARING AIDS")=""
^DD(791810.0301,0,"UP")="791810"
^DD(791810.0301,.01,0)="MODEL^F^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(791810.0301,.01,1,0)="^.1"
^DD(791810.0301,.01,1,1,0)="791810.0301^B"
^DD(791810.0301,.01,1,1,1)="S ^RMPF(791810,DA(1),301,""B"",$E(X,1,30),DA)="""""
^DD(791810.0301,.01,1,1,2)="K ^RMPF(791810,DA(1),301,""B"",$E(X,1,30),DA)"
^DD(791810.0301,.01,1,1,"%D",0)="^^1^1^2950206^^^"
^DD(791810.0301,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.0301,.01,3)="Answer must be 3-30 characters in length."
^DD(791810.0301,.01,21,0)="^^1^1^2940714^"
^DD(791810.0301,.01,21,1,0)="This field holds the name of a model of line item on the patient record.."
^DD(791810.0301,.01,"DT")="2940505"
^DD(791810.0301,.02,0)="MAKE^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(791810.0301,.02,3)="Answer must be 3-30 characters in length."
^DD(791810.0301,.02,21,0)="^^2^2^2940714^"
^DD(791810.0301,.02,21,1,0)="This field holds the name of the line item on the patient's permanent"
^DD(791810.0301,.02,21,2,0)="record."
^DD(791810.0301,.02,"DT")="2940505"
^DD(791810.0301,.03,0)="ISSUE DATE^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0301,.03,21,0)="^^1^1^2940714^"
^DD(791810.0301,.03,21,1,0)="This is the issue date of the line item on the patient's record."
^DD(791810.0301,.03,"DT")="2940505"
^DD(791810.0301,.04,0)="SERIAL NUMBER^F^^0;4^K:$L(X)>12!($L(X)<1) X"
^DD(791810.0301,.04,3)="Answer must be 1-12 characters in length."
^DD(791810.0301,.04,21,0)="^^1^1^2940714^"
^DD(791810.0301,.04,21,1,0)="This is the serial number of the line item in the patient's record.."
^DD(791810.0301,.04,"DT")="2940505"
^DD(791810.0301,.05,0)="STATION^F^^0;5^K:$L(X)>8!($L(X)<3) X"
^DD(791810.0301,.05,3)="Answer must be 3-8 characters in length."
^DD(791810.0301,.05,21,0)="^^2^2^2940714^"
^DD(791810.0301,.05,21,1,0)="This is the station that issued the line item, or the alternative method"
^DD(791810.0301,.05,21,2,0)="of purchase (e.g., 'SP' for SELF PURCHASED)."
^DD(791810.0301,.05,"DT")="2940505"
^DD(791810.0301,.06,0)="BATTERY^F^^0;6^K:$L(X)>15!($L(X)<3) X"
^DD(791810.0301,.06,3)="Answer must be 3-15 characters in length."
^DD(791810.0301,.06,21,0)="^^1^1^2940714^"
^DD(791810.0301,.06,21,1,0)="This is the name of the battery that is used by the line item."
^DD(791810.0301,.06,"DT")="2940505"
^DD(791810.0301,.07,0)="EAR^S^L:left;R:right;^0;7^Q"
^DD(791810.0301,.07,21,0)="^^1^1^2940714^"
^DD(791810.0301,.07,21,1,0)="This is the ear for which the line item was issued."
^DD(791810.0301,.07,"DT")="2950206"
^DD(791810.0301,.08,0)="DATE AIDS AUTHORIZED^D^^0;8^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.0301,.08,21,0)="^^2^2^2940714^"
^DD(791810.0301,.08,21,1,0)="This is the date that the information about the line item"
^DD(791810.0301,.08,21,2,0)="was updated by the DDC."
^DD(791810.0301,.08,"DT")="2940505"
^DD(791810.0301,"B","BATTERY",.06)=""
^DD(791810.0301,"B","DATE AIDS AUTHORIZED",.08)=""
^DD(791810.0301,"B","EAR",.07)=""
^DD(791810.0301,"B","ISSUE DATE",.03)=""
^DD(791810.0301,"B","MAKE",.02)=""
^DD(791810.0301,"B","MODEL",.01)=""
^DD(791810.0301,"B","SERIAL NUMBER",.04)=""
^DD(791810.0301,"B","STATION",.05)=""
^DD(791810.0301,"GL",0,1,.01)=""
^DD(791810.0301,"GL",0,2,.02)=""
^DD(791810.0301,"GL",0,3,.03)=""
^DD(791810.0301,"GL",0,4,.04)=""
^DD(791810.0301,"GL",0,5,.05)=""
^DD(791810.0301,"GL",0,6,.06)=""
^DD(791810.0301,"GL",0,7,.07)=""
^DD(791810.0301,"GL",0,8,.08)=""
^DD(791810.0301,"IX",.01)=""
^DD(791810.1,0)="FIELD^^103^17"
^DD(791810.1,0,"DDA")="N"
^DD(791810.1,0,"DT")="2940518"
^DD(791810.1,0,"IX","AC",791810.1,.03)=""
^DD(791810.1,0,"IX","AD",791810.1,.02)=""
^DD(791810.1,0,"IX","B",791810.1,.01)=""
^DD(791810.1,0,"NM","ORDER TYPE")=""
^DD(791810.1,0,"PT",791810,.02)=""
^DD(791810.1,0,"VR")="2.0"
^DD(791810.1,.01,0)="NAME^RF^^0;1^K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X"
^DD(791810.1,.01,1,0)="^.1"
^DD(791810.1,.01,1,1,0)="791810.1^B"
^DD(791810.1,.01,1,1,1)="S ^RMPF(791810.1,""B"",$E(X,1,30),DA)="""""
^DD(791810.1,.01,1,1,2)="K ^RMPF(791810.1,""B"",$E(X,1,30),DA)"
^DD(791810.1,.01,1,1,"%D",0)="^^1^1^2940712^^"
^DD(791810.1,.01,1,1,"%D",1,0)="Standard name cross-reference.  It is used to look up the product group."
^DD(791810.1,.01,3)="Answer must be 3-35 characters in length."
^DD(791810.1,.01,21,0)="^^2^2^2950403^^"
^DD(791810.1,.01,21,1,0)="The order type is the name of the order that is initiated"
^DD(791810.1,.01,21,2,0)="from the field station (Ex.:  REQUEST 2474)."
^DD(791810.1,.01,"DT")="2930930"
^DD(791810.1,.02,0)="TYPE ABBREVIATION^RFX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$D(^RMPF(791810.1,""AD"",X)) X I $D(X) K:$L(X)>1!($L(X)<1) X"
^DD(791810.1,.02,1,0)="^.1"
^DD(791810.1,.02,1,1,0)="791810.1^AD"
^DD(791810.1,.02,1,1,1)="S ^RMPF(791810.1,""AD"",$E(X,1,30),DA)="""""
^DD(791810.1,.02,1,1,2)="K ^RMPF(791810.1,""AD"",$E(X,1,30),DA)"
^DD(791810.1,.02,1,1,"%D",0)="^^2^2^2910924^"
^DD(791810.1,.02,1,1,"%D",1,0)="This cross-reference is used by the input transform for this field to"
^DD(791810.1,.02,1,1,"%D",2,0)="prevent an abbreviation from being used more than once."
^DD(791810.1,.02,1,1,"DT")="2920129"
^DD(791810.1,.02,3)="Answer must be 1 character in length and may not already exist for a order type."
^DD(791810.1,.02,21,0)="^^3^3^2940125^"
^DD(791810.1,.02,21,1,0)="The Type Abbreviation is a one character alphabetic that is used"
^DD(791810.1,.02,21,2,0)="to represent the order type.  A character may only be used"
^DD(791810.1,.02,21,3,0)="one time for an order type."
^DD(791810.1,.02,"DT")="2911112"
^DD(791810.1,.03,0)="PATIENT OR STATION^S^P:PATIENT;S:STATION;^0;3^Q"
^DD(791810.1,.03,1,0)="^.1"
^DD(791810.1,.03,1,1,0)="791810.1^AC"
^DD(791810.1,.03,1,1,1)="S ^RMPF(791810.1,""AC"",$E(X,1,30),DA)="""""
^DD(791810.1,.03,1,1,2)="K ^RMPF(791810.1,""AC"",$E(X,1,30),DA)"
^DD(791810.1,.03,1,1,"%D",0)="^^2^2^2940125^"
^DD(791810.1,.03,1,1,"%D",1,0)="This cross-reference is used to sort 'Patient' and 'Station' types"
^DD(791810.1,.03,1,1,"%D",2,0)="of orders for display and print purposes."
^DD(791810.1,.03,3)=""
^DD(791810.1,.03,21,0)="^^2^2^2940125^"
^DD(791810.1,.03,21,1,0)="This indicates whether the order type is one that related to a"
^DD(791810.1,.03,21,2,0)="specific veteran or whether it relates to station stock."
^DD(791810.1,.03,"DT")="2901212"
^DD(791810.1,.04,0)="MAXIMUM NUMBER OF ITEMS^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(791810.1,.04,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(791810.1,.04,21,0)="^^2^2^2940125^"
^DD(791810.1,.04,21,1,0)="This field indicates the maximum number of items that may be listed for"
^DD(791810.1,.04,21,2,0)="the order type."
^DD(791810.1,.04,"DT")="2901116"
^DD(791810.1,.05,0)="ORDER MESSAGE^F^^0;5^K:$L(X)>70!($L(X)<3) X"
^DD(791810.1,.05,3)="Answer must be 3-70 characters in length."
^DD(791810.1,.05,21,0)="^^2^2^2940125^"
^DD(791810.1,.05,21,1,0)="This field may hold a free text message that will be displayed on the screen"
^DD(791810.1,.05,21,2,0)="for the order type."
^DD(791810.1,.05,"DT")="2901120"
^DD(791810.1,.06,0)="DISPLAY COSTS?^S^0:DO NOT DISPLAY COSTS;1:DISPLAY COSTS;^0;6^Q"
^DD(791810.1,.06,21,0)="^^2^2^2940125^"
^DD(791810.1,.06,21,1,0)="This field indicates whether or not costs should be displayed for items"
^DD(791810.1,.06,21,2,0)="entered under this order type."
^DD(791810.1,.06,"DT")="2901212"
^DD(791810.1,.07,0)="INACTIVE^S^1:INACTIVE;0:ACTIVE;^0;7^Q"
^DD(791810.1,.07,21,0)="^^2^2^2950206^^"
^DD(791810.1,.07,21,1,0)="This field may be set to '1' to make the order type inactive for selection"
^DD(791810.1,.07,21,2,0)="from the ROES menus."
^DD(791810.1,.07,"DT")="2910826"
^DD(791810.1,.08,0)="SHORT NAME^F^^0;8^K:$L(X)>6!($L(X)<1) X"
^DD(791810.1,.08,3)="Answer must be 1-6 characters in length."
^DD(791810.1,.08,21,0)="^^2^2^2940125^"
^DD(791810.1,.08,21,1,0)="This field contains the short name for an order type to be used in"
^DD(791810.1,.08,21,2,0)="displays and print-outs."
^DD(791810.1,.08,"DT")="2910913"
^DD(791810.1,.09,0)="NON-CONTRACT ITEMS^S^0:DO NOT ALLOW NON-CONTRACT ITEMS;1:ALLOW NON-CONTRACT ITEMS;2:ASSUME NON-CONTRACT ITEMS;^0;9^Q"
^DD(791810.1,.09,21,0)="^^4^4^2940711^"
^DD(791810.1,.09,21,1,0)="This field controls the selection of NON-CONTRACT ITEMS for the order"
^DD(791810.1,.09,21,2,0)="type.  An order type may be set to '0' for DO NOT ALLOW NON-CONTRACT"
^DD(791810.1,.09,21,3,0)="ITEMS, to '1' for ALLOW NON-CONTRACT ITEMS or to '2' for ASSUME"
^DD(791810.1,.09,21,4,0)="NON-CONTRACT ITEMS."
^DD(791810.1,.09,"DT")="2930930"
^DD(791810.1,.1,0)="ASK TO VIEW ADDRESS^S^0:ASK TO VIEW ADDRESS;1:DO NOT ASK TO VIEW ADDRESS;^0;10^Q"
^DD(791810.1,.1,21,0)="^^2^2^2940711^^"
^DD(791810.1,.1,21,1,0)="This field controls whether or not the user is asked to view or change"
^DD(791810.1,.1,21,2,0)="the patient address from within the order process."
^DD(791810.1,.1,"DT")="2940516"
^DD(791810.1,1,0)="ITEM EDIT STRING^F^^1;1^K:$L(X)>120!($L(X)<1) X"
^DD(791810.1,1,3)="Answer must be 1-120 characters in length."
^DD(791810.1,1,21,0)="^^2^2^2940125^"
^DD(791810.1,1,21,1,0)="This is a free text field that contains the 'DR' edit string for items"
^DD(791810.1,1,21,2,0)="chosen under this order type."
^DD(791810.1,1,"DT")="2940131"
^DD(791810.1,2,0)="ITEM REQUIREMENTS STRING^F^^2;1^K:$L(X)>120!($L(X)<1) X"
^DD(791810.1,2,3)="Answer must be 1-120 characters in length."
^DD(791810.1,2,21,0)="^^2^2^2940125^"
^DD(791810.1,2,21,1,0)="This field contains a 'DR' type of string that contains the field numbers of"
^DD(791810.1,2,21,2,0)="fields that are required for the completion of an order of this type."
^DD(791810.1,2,"DT")="2910826"
^DD(791810.1,2.01,0)="SPECIAL REQUIREMENTS MODULE^F^^2;2^K:$L(X)>8!($L(X)<1) X"
^DD(791810.1,2.01,3)="Answer must be 1-8 characters in length."
^DD(791810.1,2.01,21,0)="^^2^2^2940125^"
^DD(791810.1,2.01,21,1,0)="This field may contain the name of the program that checks for special"
^DD(791810.1,2.01,21,2,0)="requirements needed for this order type to be considered complete."
^DD(791810.1,2.01,"DT")="2901114"
^DD(791810.1,100,0)="EDIT FIELDS^791810.11I^^100;0"
^DD(791810.1,100,21,0)="^^2^2^2940125^"
^DD(791810.1,100,21,1,0)="This multiple field contains information about the general fields (non-item"
^DD(791810.1,100,21,2,0)="related) that are needed to complete this order type."
^DD(791810.1,101,0)="PRODUCT GROUP(S)^791810.1101P^^101;0"
^DD(791810.1,101,21,0)="^^2^2^2940125^"
^DD(791810.1,101,21,1,0)="This multiple contains a list of product groups that may be associated"
^DD(791810.1,101,21,2,0)="with this order type."
^DD(791810.1,102,0)="AVAILABLE TO ROES MENU #^791810.1102S^^102;0"
^DD(791810.1,102,21,0)="^^2^2^2940125^"
^DD(791810.1,102,21,1,0)="This field designates from which menus that this order type may be"
^DD(791810.1,102,21,2,0)="selected."
^DD(791810.1,103,0)="DISABILITIES ALLOWED^791810.1103A^^103;0"
^DD(791810.1,103,21,0)="^^3^3^2940711^^"
^DD(791810.1,103,21,1,0)=" "
^DD(791810.1,103,21,2,0)="This multiple contains free text codes which are included in the"
^DD(791810.1,103,21,3,0)="prosthetic disabilities that this order type allows."
^DD(791810.1,"B","ASK TO VIEW ADDRESS",.1)=""
^DD(791810.1,"B","AVAILABLE TO ROES MENU #",102)=""
^DD(791810.1,"B","DISABILITIES ALLOWED",103)=""
^DD(791810.1,"B","DISPLAY COSTS?",.06)=""
^DD(791810.1,"B","EDIT FIELDS",100)=""
^DD(791810.1,"B","INACTIVE",.07)=""
^DD(791810.1,"B","ITEM EDIT STRING",1)=""
^DD(791810.1,"B","ITEM REQUIREMENTS STRING",2)=""
^DD(791810.1,"B","MAXIMUM NUMBER OF ITEMS",.04)=""
^DD(791810.1,"B","NAME",.01)=""
^DD(791810.1,"B","NON-CONTRACT ITEMS",.09)=""
^DD(791810.1,"B","ORDER MESSAGE",.05)=""
^DD(791810.1,"B","PATIENT OR STATION",.03)=""
^DD(791810.1,"B","PRODUCT GROUP(S)",101)=""
^DD(791810.1,"B","SHORT NAME",.08)=""
^DD(791810.1,"B","SPECIAL REQUIREMENTS MODULE",2.01)=""
^DD(791810.1,"B","TYPE ABBREVIATION",.02)=""
^DD(791810.1,"GL",0,1,.01)=""
^DD(791810.1,"GL",0,2,.02)=""
^DD(791810.1,"GL",0,3,.03)=""
^DD(791810.1,"GL",0,4,.04)=""
^DD(791810.1,"GL",0,5,.05)=""
^DD(791810.1,"GL",0,6,.06)=""
^DD(791810.1,"GL",0,7,.07)=""
^DD(791810.1,"GL",0,8,.08)=""
^DD(791810.1,"GL",0,9,.09)=""
^DD(791810.1,"GL",0,10,.1)=""
^DD(791810.1,"GL",1,1,1)=""
^DD(791810.1,"GL",2,1,2)=""
^DD(791810.1,"GL",2,2,2.01)=""
^DD(791810.1,"GL",100,0,100)=""
^DD(791810.1,"GL",101,0,101)=""
^DD(791810.1,"GL",102,0,102)=""
^DD(791810.1,"GL",103,0,103)=""
^DD(791810.1,"IX",.01)=""
^DD(791810.1,"IX",.02)=""
^DD(791810.1,"IX",.03)=""
^DD(791810.1,"RQ",.01)=""
^DD(791810.1,"RQ",.02)=""
^DD(791810.1,"SB",791810.11,100)=""
^DD(791810.1,"SB",791810.1101,101)=""
^DD(791810.1,"SB",791810.1102,102)=""
^DD(791810.1,"SB",791810.1103,103)=""
^DD(791810.101101,0)="SERIAL NUMBER OF REPLACED ITEM SUB-FIELD^^.01^1"
^DD(791810.101101,0,"IX","B",791810.101101,.01)=""
^DD(791810.101101,0,"NM","SERIAL NUMBER OF REPLACED ITEM")=""
^DD(791810.101101,0,"UP")="791810.0101"
^DD(791810.101101,.01,0)="SERIAL NUMBER OF REPLACED ITEM^MF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(791810.101101,.01,1,0)="^.1"
^DD(791810.101101,.01,1,1,0)="791810.101101^B"
^DD(791810.101101,.01,1,1,1)="S ^RMPF(791810,DA(2),101,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791810.101101,.01,1,1,2)="K ^RMPF(791810,DA(2),101,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791810.101101,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791810.101101,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.101101,.01,3)="Answer must be 1-20 characters in length."
^DD(791810.101101,.01,21,0)="^^2^2^2910524^"
^DD(791810.101101,.01,21,1,0)="This is the actual serial number of the item that is being replaced by"
^DD(791810.101101,.01,21,2,0)="a new order."
^DD(791810.101101,.01,"DT")="2901126"
^DD(791810.101101,"B","SERIAL NUMBER OF REPLACED ITEM",.01)=""
^DD(791810.101101,"GL",0,1,.01)=""
^DD(791810.101101,"IX",.01)=""
^DD(791810.101102,0)="COMPONENT SUB-FIELD^^.07^7"
^DD(791810.101102,0,"DT")="2910909"
^DD(791810.101102,0,"IX","AC",791810.101102,.01)=""
^DD(791810.101102,0,"IX","B",791810.101102,.01)=""
^DD(791810.101102,0,"NM","COMPONENT")=""
^DD(791810.101102,0,"UP")="791810.0101"
^DD(791810.101102,.01,0)="COMPONENT^M*P791811.2'X^RMPF(791811.2,^0;1^Q"
^DD(791810.101102,.01,1,0)="^.1"
^DD(791810.101102,.01,1,1,0)="791810.101102^B"
^DD(791810.101102,.01,1,1,1)="S ^RMPF(791810,DA(2),101,DA(1),102,""B"",$E(X,1,30),DA)="""""
^DD(791810.101102,.01,1,1,2)="K ^RMPF(791810,DA(2),101,DA(1),102,""B"",$E(X,1,30),DA)"
^DD(791810.101102,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791810.101102,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.101102,.01,1,2,0)="791810.101102^AC^MUMPS"
^DD(791810.101102,.01,1,2,1)="D COST^RMPFUTL"
^DD(791810.101102,.01,1,2,2)="D COSTKILL^RMPFUTL"
^DD(791810.101102,.01,1,2,"%D",0)="^^2^2^2911112^^"
^DD(791810.101102,.01,1,2,"%D",1,0)="This cross-reference sets the current cost of the component into the"
^DD(791810.101102,.01,1,2,"%D",2,0)="'Cost of Component' field."
^DD(791810.101102,.01,1,2,"DT")="2911112"
^DD(791810.101102,.01,21,0)="^^1^1^2940714^"
^DD(791810.101102,.01,21,1,0)="This field contains a component that may be added to a custom hearing aid."
^DD(791810.101102,.01,"DT")="2911112"
^DD(791810.101102,.02,0)="PRICE OF COMPONENT^NJ10,4IO^^0;2^K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(791810.101102,.02,2)="S Y(0)=Y S Y=$J(Y,0,2)"
^DD(791810.101102,.02,2.1)="S Y=$J(Y,0,2)"
^DD(791810.101102,.02,3)="Type a Number between 0 and 99999.9999, 4 Decimal Digits"
^DD(791810.101102,.02,21,0)="^^1^1^2910524^"
^DD(791810.101102,.02,21,1,0)="This field contains the cost of the component at the time it was ordered."
^DD(791810.101102,.02,"DT")="2911007"
^DD(791810.101102,.03,0)="TYPE OF ENTRY^S^O:ORDER;D:DELETE;A:ADDITION;^0;3^Q"
^DD(791810.101102,.03,21,0)="^^2^2^2910924^"
^DD(791810.101102,.03,21,1,0)="This field contains an indicator of whether the component was entered"
^DD(791810.101102,.03,21,2,0)="as part of an order, a deletion or and addition."
^DD(791810.101102,.03,"DT")="2910909"
^DD(791810.101102,.04,0)="RELATED ORDER^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791810.101102,.04,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791810.101102,.04,21,0)="^^4^4^2910924^"
^DD(791810.101102,.04,21,1,0)="This field contains the internal number of the component order to which"
^DD(791810.101102,.04,21,2,0)="this component order relates.  It will be the same as the internal"
^DD(791810.101102,.04,21,3,0)="number for this order if the entry is an original order.  It will be the"
^DD(791810.101102,.04,21,4,0)="internal number of the related entry if this is an adjustment."
^DD(791810.101102,.04,"DT")="2910905"
^DD(791810.101102,.05,0)="USER MAKING ADJUSTMENT^P200'^VA(200,^0;5^Q"
^DD(791810.101102,.05,21,0)="^^1^1^2910924^"
^DD(791810.101102,.05,21,1,0)="This field contains the name of the user making an adjustment."
^DD(791810.101102,.05,"DT")="2910905"
^DD(791810.101102,.06,0)="DATE/TIME OF ADJUSTMENT^D^^0;6^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.101102,.06,21,0)="^^1^1^2910924^"
^DD(791810.101102,.06,21,1,0)="This field contains the date and time that an adjustment was made."
^DD(791810.101102,.06,"DT")="2910905"
^DD(791810.101102,.07,0)="REASON FOR ADJUSTMENT^F^^0;7^K:$L(X)>14!($L(X)<1) X"
^DD(791810.101102,.07,3)="Answer must be 1-14 characters in length."
^DD(791810.101102,.07,21,0)="^^1^1^2910924^"
^DD(791810.101102,.07,21,1,0)="This field contains the reason for making the adjustment."
^DD(791810.101102,.07,"DT")="2910905"
^DD(791810.101102,"B","COMPONENT",.01)=""
^DD(791810.101102,"B","DATE/TIME OF ADJUSTMENT",.06)=""
^DD(791810.101102,"B","PRICE OF COMPONENT",.02)=""
^DD(791810.101102,"B","REASON FOR ADJUSTMENT",.07)=""
^DD(791810.101102,"B","RELATED ORDER",.04)=""
^DD(791810.101102,"B","TYPE OF ENTRY",.03)=""
^DD(791810.101102,"B","USER MAKING ADJUSTMENT",.05)=""
^DD(791810.101102,"GL",0,1,.01)=""
^DD(791810.101102,"GL",0,2,.02)=""
^DD(791810.101102,"GL",0,3,.03)=""
^DD(791810.101102,"GL",0,4,.04)=""
^DD(791810.101102,"GL",0,5,.05)=""
^DD(791810.101102,"GL",0,6,.06)=""
^DD(791810.101102,"GL",0,7,.07)=""
^DD(791810.101102,"IX",.01)=""
^DD(791810.11,0)="EDIT FIELDS SUB-FIELD^^.05^6"
^DD(791810.11,0,"DT")="2940518"
^DD(791810.11,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(791810.11,0,"ID",.04)="W ""   "",$P(^(0),U,4)"
^DD(791810.11,0,"IX","B",791810.11,.01)=""
^DD(791810.11,0,"NM","EDIT FIELDS")=""
^DD(791810.11,0,"UP")="791810.1"
^DD(791810.11,.001,0)="EDIT FIELD NUMBER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791810.11,.001,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791810.11,.001,"DT")="2901111"
^DD(791810.11,.01,0)="EDIT FIELD NUMBER^MNJ4,0X^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(791810.11,.01,1,0)="^.1"
^DD(791810.11,.01,1,1,0)="791810.11^B"
^DD(791810.11,.01,1,1,1)="S ^RMPF(791810.1,DA(1),100,""B"",$E(X,1,30),DA)="""""
^DD(791810.11,.01,1,1,2)="K ^RMPF(791810.1,DA(1),100,""B"",$E(X,1,30),DA)"
^DD(791810.11,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791810.11,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.11,.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791810.11,.01,21,0)="^^3^3^2940125^"
^DD(791810.11,.01,21,1,0)="This is the sequencing number used for the editing of fields for this"
^DD(791810.11,.01,21,2,0)="order type.  Prompts for fields to be edited will occur in the order"
^DD(791810.11,.01,21,3,0)="of these sequencing numbers."
^DD(791810.11,.01,"DT")="2910614"
^DD(791810.11,.02,0)="FIELD NUMBER IN 791810^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(791810.11,.02,3)="Answer must be 1-60 characters in length."
^DD(791810.11,.02,21,0)="^^2^2^2940125^"
^DD(791810.11,.02,21,1,0)="This is the FileMan field number of the field to be edited when this type"
^DD(791810.11,.02,21,2,0)="of order is entered."
^DD(791810.11,.02,"DT")="2901111"
^DD(791810.11,.03,0)="REQUIRED FOR COMPLETION^S^1:REQUIRED FOR COMPLETION;0:NOT REQUIRED FOR COMPLETION;^0;3^Q"
^DD(791810.11,.03,21,0)="^^2^2^2910524^"
^DD(791810.11,.03,21,1,0)="This field indicates whether or not entry of data in this field is required"
^DD(791810.11,.03,21,2,0)="for completion of the order."
^DD(791810.11,.03,"DT")="2901114"
^DD(791810.11,.04,0)="PROMPT^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(791810.11,.04,3)="Answer must be 3-30 characters in length."
^DD(791810.11,.04,21,0)="^^2^2^2910524^"
^DD(791810.11,.04,21,1,0)="This is the free text prompt that is used in the display and enter/edit"
^DD(791810.11,.04,21,2,0)="process for this data field."
^DD(791810.11,.04,"DT")="2901126"
^DD(791810.11,.05,0)="VARIABLE NAME^F^^0;5^K:$L(X)>8!($L(X)<1) X"
^DD(791810.11,.05,3)="Answer must be 1-8 characters in length."
^DD(791810.11,.05,21,0)="^^2^2^2910524^"
^DD(791810.11,.05,21,1,0)="This is the name of the standard variable used to represent this data"
^DD(791810.11,.05,21,2,0)="element."
^DD(791810.11,.05,"DT")="2901115"
^DD(791810.11,"B","EDIT FIELD NUMBER",.001)=""
^DD(791810.11,"B","EDIT FIELD NUMBER",.01)=""
^DD(791810.11,"B","FIELD NUMBER IN 791810",.02)=""
^DD(791810.11,"B","PROMPT",.04)=""
^DD(791810.11,"B","REQUIRED FOR COMPLETION",.03)=""
^DD(791810.11,"B","VARIABLE NAME",.05)=""
^DD(791810.11,"GL",0,1,.01)=""
^DD(791810.11,"GL",0,2,.02)=""
^DD(791810.11,"GL",0,3,.03)=""
^DD(791810.11,"GL",0,4,.04)=""
^DD(791810.11,"GL",0,5,.05)=""
^DD(791810.11,"IX",.01)=""
^DD(791810.1101,0)="PRODUCT GROUP(S) SUB-FIELD^^.01^1"
^DD(791810.1101,0,"IX","B",791810.1101,.01)=""
^DD(791810.1101,0,"NM","PRODUCT GROUP(S)")=""
^DD(791810.1101,0,"UP")="791810.1"
^DD(791810.1101,.01,0)="PRODUCT GROUP(S)^MP791811.1'^RMPF(791811.1,^0;1^Q"
^DD(791810.1101,.01,1,0)="^.1^^-1"
^DD(791810.1101,.01,1,1,0)="791810.1101^B"
^DD(791810.1101,.01,1,1,1)="S ^RMPF(791810.1,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791810.1101,.01,1,1,2)="K ^RMPF(791810.1,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791810.1101,.01,1,1,"%D",0)="^^2^2^2940711^^"
^DD(791810.1101,.01,1,1,"%D",1,0)="Standard name cross-reference.  It is used to look up the product groups"
^DD(791810.1101,.01,1,1,"%D",2,0)="associated an order type."
^DD(791810.1101,.01,21,0)="^^2^2^2940125^"
^DD(791810.1101,.01,21,1,0)="This is a pointer to a product group that may be associated with this"
^DD(791810.1101,.01,21,2,0)="order type."
^DD(791810.1101,.01,"DT")="2930928"
^DD(791810.1101,"B","PRODUCT GROUP(S)",.01)=""
^DD(791810.1101,"GL",0,1,.01)=""
^DD(791810.1101,"IX",.01)=""
^DD(791810.1102,0)="AVAILABLE TO ROES MENU # SUB-FIELD^^.01^1"
^DD(791810.1102,0,"DT")="2931129"
^DD(791810.1102,0,"IX","B",791810.1102,.01)=""
^DD(791810.1102,0,"NM","AVAILABLE TO ROES MENU #")=""
^DD(791810.1102,0,"UP")="791810.1"
^DD(791810.1102,.01,0)="AVAILABLE TO ROES MENU #^MS^0:AUDIOLOGY MENU;10:PROSTHETICS MENU;^0;1^Q"
^DD(791810.1102,.01,1,0)="^.1"
^DD(791810.1102,.01,1,1,0)="791810.1102^B"
^DD(791810.1102,.01,1,1,1)="S ^RMPF(791810.1,DA(1),102,""B"",$E(X,1,30),DA)="""""
^DD(791810.1102,.01,1,1,2)="K ^RMPF(791810.1,DA(1),102,""B"",$E(X,1,30),DA)"
^DD(791810.1102,.01,1,1,"%D",0)="^^2^2^2940711^"
^DD(791810.1102,.01,1,1,"%D",1,0)="This is the standard 'B' cross-reference of the name field.  It is used"
^DD(791810.1102,.01,1,1,"%D",2,0)="to look up the internal menu number used by an order or batch."
^DD(791810.1102,.01,"DT")="2931129"
^DD(791810.1102,"B","AVAILABLE TO ROES MENU #",.01)=""
^DD(791810.1102,"GL",0,1,.01)=""
^DD(791810.1102,"IX",.01)=""
^DD(791810.1103,0)="DISABILITIES ALLOWED SUB-FIELD^^.01^1"
^DD(791810.1103,0,"DT")="2940113"
^DD(791810.1103,0,"IX","B",791810.1103,.01)=""
^DD(791810.1103,0,"NM","DISABILITIES ALLOWED")=""
^DD(791810.1103,0,"UP")="791810.1"
^DD(791810.1103,.01,0)="DISABILITIES ALLOWED^MF^^0;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>15!($L(X)<2) X"
^DD(791810.1103,.01,1,0)="^.1^^-1"
^DD(791810.1103,.01,1,1,0)="791810.1103^B"
^DD(791810.1103,.01,1,1,1)="S ^RMPF(791810.1,DA(1),103,""B"",$E(X,1,30),DA)="""""
^DD(791810.1103,.01,1,1,2)="K ^RMPF(791810.1,DA(1),103,""B"",$E(X,1,30),DA)"
^DD(791810.1103,.01,1,1,"%D",0)="^^1^1^2950206^^"
^DD(791810.1103,.01,1,1,"%D",1,0)="Standard look-up cross reference."
^DD(791810.1103,.01,3)="Answer must be 2-15 characters in length."
^DD(791810.1103,.01,21,0)="^^2^2^2940711^"
^DD(791810.1103,.01,21,1,0)="This field holds a code which is the first letter of the disability"
^DD(791810.1103,.01,21,2,0)="condition group allowed for use with this order type."
^DD(791810.1103,.01,"DT")="2940518"
^DD(791810.1103,"B","DISABILITIES ALLOWED",.01)=""
^DD(791810.1103,"GL",0,1,.01)=""
^DD(791810.1103,"IX",.01)=""
^DD(791810.2,0)="FIELD^^101^10"
^DD(791810.2,0,"DDA")="N"
^DD(791810.2,0,"DT")="2950119"
^DD(791810.2,0,"IX","AB",791810.2101,.01)=""
^DD(791810.2,0,"IX","B",791810.2,.01)=""
^DD(791810.2,0,"IX","C",791810.2,.02)=""
^DD(791810.2,0,"NM","ORDER STATUS")=""
^DD(791810.2,0,"PT",791810,.03)=""
^DD(791810.2,0,"PT",791810.0101,.18)=""
^DD(791810.2,0,"PT",791810.201101,.04)=""
^DD(791810.2,0,"VR")="2.0"
^DD(791810.2,.01,0)="STATUS NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(791810.2,.01,1,0)="^.1"
^DD(791810.2,.01,1,1,0)="791810.2^B"
^DD(791810.2,.01,1,1,1)="S ^RMPF(791810.2,""B"",$E(X,1,30),DA)="""""
^DD(791810.2,.01,1,1,2)="K ^RMPF(791810.2,""B"",$E(X,1,30),DA)"
^DD(791810.2,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791810.2,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.2,.01,3)="Answer must be 3-30 characters in length."
^DD(791810.2,.01,21,0)="^^1^1^2940125^"
^DD(791810.2,.01,21,1,0)="This is the name of the status that is assigned to an order."
^DD(791810.2,.02,0)="CODE^FX^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1)!'(X?1.2U)!$D(^RMPF(791810.2,""C"",X)) X"
^DD(791810.2,.02,1,0)="^.1"
^DD(791810.2,.02,1,1,0)="791810.2^C"
^DD(791810.2,.02,1,1,1)="S ^RMPF(791810.2,""C"",$E(X,1,30),DA)="""""
^DD(791810.2,.02,1,1,2)="K ^RMPF(791810.2,""C"",$E(X,1,30),DA)"
^DD(791810.2,.02,1,1,"%D",0)="^^3^3^2940125^"
^DD(791810.2,.02,1,1,"%D",1,0)="This field contains the code for a status.  This code is used by ROES"
^DD(791810.2,.02,1,1,"%D",2,0)="programs to determine functions that may be performed on an order"
^DD(791810.2,.02,1,1,"%D",3,0)="with this status code."
^DD(791810.2,.02,1,1,"DT")="2931115"
^DD(791810.2,.02,3)="Answer must be 1-2 characters in length."
^DD(791810.2,.02,21,0)="^^3^3^2940125^"
^DD(791810.2,.02,21,1,0)="This field contains the code for a status.  This code is used by ROES"
^DD(791810.2,.02,21,2,0)="programs to determine functions that may be performed on an order"
^DD(791810.2,.02,21,3,0)="with this status code."
^DD(791810.2,.02,"DT")="2931115"
^DD(791810.2,.03,0)="INACTIVE STATUS^S^1:INACTIVE;0:ACTIVE;^0;3^Q"
^DD(791810.2,.03,21,0)="^^1^1^2910524^"
^DD(791810.2,.03,21,1,0)="This field indicates whether or not the status is inactive."
^DD(791810.2,.03,"DT")="2900521"
^DD(791810.2,.04,0)="SHORT NAME^F^^0;4^K:$L(X)>6!($L(X)<1) X"
^DD(791810.2,.04,3)="Answer must be 1-6 characters in length."
^DD(791810.2,.04,21,0)="^^2^2^2910924^"
^DD(791810.2,.04,21,1,0)="This field contains the short name of a status and is used in some"
^DD(791810.2,.04,21,2,0)="output programs."
^DD(791810.2,.04,"DT")="2910718"
^DD(791810.2,.05,0)="STATUS CATEGORY^S^E:EDITABLE;C:COMPLETE;P:BEING PROCESSED;^0;5^Q"
^DD(791810.2,.05,21,0)="^^2^2^2940125^"
^DD(791810.2,.05,21,1,0)="This field determines whether or not an order with this status may be"
^DD(791810.2,.05,21,2,0)="edited."
^DD(791810.2,.05,"DT")="2950510"
^DD(791810.2,.06,0)="SPECIAL STATUS EVALUATION^F^^0;6^K:$L(X)>17!($L(X)<3) X"
^DD(791810.2,.06,3)="Answer must be 3-17 characters in length."
^DD(791810.2,.06,21,0)="^^3^3^2940125^"
^DD(791810.2,.06,21,1,0)="This field may contain the name of a line tage in routine 'RMPFET3' that is"
^DD(791810.2,.06,21,2,0)="to be executed to determine whether or not an order should remain in"
^DD(791810.2,.06,21,3,0)="this status."
^DD(791810.2,.06,"DT")="2910826"
^DD(791810.2,.07,0)="NUMERIC CODE^NJ4,0X^^0;7^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791810.2,.07,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791810.2,.07,"DT")="2931122"
^DD(791810.2,.09,0)="PROCESSING ORDER^NJ3,0^^0;9^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791810.2,.09,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(791810.2,.09,21,0)="^^2^2^2940624^"
^DD(791810.2,.09,21,1,0)="This field contains a numeric value that is used to determine the status of"
^DD(791810.2,.09,21,2,0)="an order based on the status of each line item."
^DD(791810.2,.09,"DT")="2940624"
^DD(791810.2,.1,0)="APPLY TO PSAS?^S^0:APPLIES TO PSAS;1:DOES NOT APPLY TO PSAS;^0;10^Q"
^DD(791810.2,.1,21,0)="^^1^1^2950119^"
^DD(791810.2,.1,21,1,0)="This field indicates whether or not the status may apply to a PSAS order."
^DD(791810.2,.1,"DT")="2950119"
^DD(791810.2,101,0)="ACTION TO TRIGGER STATUS^791810.2101S^^101;0"
^DD(791810.2,"B","ACTION TO TRIGGER STATUS",101)=""
^DD(791810.2,"B","APPLY TO PSAS?",.1)=""
^DD(791810.2,"B","CODE",.02)=""
^DD(791810.2,"B","INACTIVE STATUS",.03)=""
^DD(791810.2,"B","NUMERIC CODE",.07)=""
^DD(791810.2,"B","PROCESSING ORDER",.09)=""
^DD(791810.2,"B","SHORT NAME",.04)=""
^DD(791810.2,"B","SPECIAL STATUS EVALUATION",.06)=""
^DD(791810.2,"B","STATUS CATEGORY",.05)=""
^DD(791810.2,"B","STATUS NAME",.01)=""
^DD(791810.2,"GL",0,1,.01)=""
^DD(791810.2,"GL",0,2,.02)=""
^DD(791810.2,"GL",0,3,.03)=""
^DD(791810.2,"GL",0,4,.04)=""
^DD(791810.2,"GL",0,5,.05)=""
^DD(791810.2,"GL",0,6,.06)=""
^DD(791810.2,"GL",0,7,.07)=""
^DD(791810.2,"GL",0,9,.09)=""
^DD(791810.2,"GL",0,10,.1)=""
^DD(791810.2,"GL",101,0,101)=""
^DD(791810.2,"IX",.01)=""
^DD(791810.2,"IX",.02)=""
^DD(791810.2,"RQ",.01)=""
^DD(791810.2,"SB",791810.2101,101)=""
^DD(791810.201101,0)="ERROR MESSAGE SUB-FIELD^^.1^10"
^DD(791810.201101,0,"DT")="2940630"
^DD(791810.201101,0,"IX","B",791810.201101,.01)=""
^DD(791810.201101,0,"NM","ERROR MESSAGE")=""
^DD(791810.201101,0,"UP")="791810.0201"
^DD(791810.201101,.01,0)="ERROR MESSAGE^F^^0;1^K:$L(X)>70!($L(X)<3) X"
^DD(791810.201101,.01,1,0)="^.1"
^DD(791810.201101,.01,1,1,0)="791810.201101^B"
^DD(791810.201101,.01,1,1,1)="S ^RMPF(791810,DA(2),201,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791810.201101,.01,1,1,2)="K ^RMPF(791810,DA(2),201,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791810.201101,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791810.201101,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.201101,.01,3)="Answer must be 3-70 characters in length."
^DD(791810.201101,.01,21,0)="^^2^2^2950501^^"
^DD(791810.201101,.01,21,1,0)="This is the actual free text message returned from the DDC as part of the"
^DD(791810.201101,.01,21,2,0)="order update process."
^DD(791810.201101,.01,"DT")="2910101"
^DD(791810.201101,.02,0)="SENT BY^F^^0;2^K:$L(X)>30!($L(X)<3) X"
^DD(791810.201101,.02,3)="Answer must be 3-30 characters in length."
^DD(791810.201101,.02,21,0)="^^3^3^2950501^^"
^DD(791810.201101,.02,21,1,0)="This is the free text name of the DDC staff person who processed the"
^DD(791810.201101,.02,21,2,0)="order.  It is be used as a reference if there are questions about"
^DD(791810.201101,.02,21,3,0)="the order."
^DD(791810.201101,.02,"DT")="2901214"
^DD(791810.201101,.03,0)="TELEPHONE #^F^^0;3^K:$L(X)>15!($L(X)<3) X"
^DD(791810.201101,.03,3)="Answer must be 3-15 characters in length."
^DD(791810.201101,.03,21,0)="^^3^3^2950501^^"
^DD(791810.201101,.03,21,1,0)="This is the telephone number of the DDC staff person who processed the"
^DD(791810.201101,.03,21,2,0)="orders.  It is to be used in the event of questions or problems with"
^DD(791810.201101,.03,21,3,0)="the order."
^DD(791810.201101,.03,"DT")="2901214"
^DD(791810.201101,.04,0)="STATUS UPDATE^P791810.2'^RMPF(791810.2,^0;4^Q"
^DD(791810.201101,.04,21,0)="^^3^3^2950501^^"
^DD(791810.201101,.04,21,1,0)="This is a pointer to the Order Status File for the updated status"
^DD(791810.201101,.04,21,2,0)="of this order that has resulted from the processing procedure at the"
^DD(791810.201101,.04,21,3,0)="DDC."
^DD(791810.201101,.04,"DT")="2901218"
^DD(791810.201101,.05,0)="DATE MESSAGE PROCESSED BY DDC^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.201101,.05,21,0)="^^1^1^2920123^"
^DD(791810.201101,.05,21,1,0)="This field contains the date that the message was processed at the DDC."
^DD(791810.201101,.05,"DT")="2920123"
^DD(791810.201101,.06,0)="MESSAGE READ?^S^1:MESSAGE READ;0:MESSAGE NOT READ;^0;6^Q"
^DD(791810.201101,.06,21,0)="^^3^3^2950501^^"
^DD(791810.201101,.06,21,1,0)="This field indicates whether or not a message from the DDC to the"
^DD(791810.201101,.06,21,2,0)="station has been read or not.  The standard message indicating"
^DD(791810.201101,.06,21,3,0)="completion is automatically set to 'MESSAGE READ'."
^DD(791810.201101,.06,"DT")="2910913"
^DD(791810.201101,.07,0)="LAST USER READING MESSAGE^P200'^VA(200,^0;7^Q"
^DD(791810.201101,.07,21,0)="^^1^1^2910913^"
^DD(791810.201101,.07,21,1,0)="This field contains the name of the last user to read the message."
^DD(791810.201101,.07,"DT")="2910913"
^DD(791810.201101,.08,0)="RELATED LINE ITEM^NJ3,0^^0;8^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791810.201101,.08,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(791810.201101,.08,21,0)="^^2^2^2940623^"
^DD(791810.201101,.08,21,1,0)="This field contains the internal number of the line item that this"
^DD(791810.201101,.08,21,2,0)="message applies to."
^DD(791810.201101,.08,"DT")="2940623"
^DD(791810.201101,.09,0)="PURCHASE ORDER NUMBER^F^^0;9^K:$L(X)>11!($L(X)<11)!'(X?1A5N1""-""4N) X"
^DD(791810.201101,.09,3)="Answer must be 11 characters in length."
^DD(791810.201101,.09,21,0)="^^1^1^2940601^"
^DD(791810.201101,.09,21,1,0)="This is the Purchase Order Number for the line item order."
^DD(791810.201101,.09,"DT")="2940630"
^DD(791810.201101,.1,0)="SHIP DATE^D^^0;10^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791810.201101,.1,21,0)="^^1^1^2940601^"
^DD(791810.201101,.1,21,1,0)="The date that the DDC expects to ship the line item."
^DD(791810.201101,.1,"DT")="2940601"
^DD(791810.201101,"B","DATE MESSAGE PROCESSED BY DDC",.05)=""
^DD(791810.201101,"B","ERROR MESSAGE",.01)=""
^DD(791810.201101,"B","LAST USER READING MESSAGE",.07)=""
^DD(791810.201101,"B","MESSAGE READ?",.06)=""
^DD(791810.201101,"B","PURCHASE ORDER NUMBER",.09)=""
^DD(791810.201101,"B","RELATED LINE ITEM",.08)=""
^DD(791810.201101,"B","SENT BY",.02)=""
^DD(791810.201101,"B","SHIP DATE",.1)=""
^DD(791810.201101,"B","STATUS UPDATE",.04)=""
^DD(791810.201101,"B","TELEPHONE #",.03)=""
^DD(791810.201101,"GL",0,1,.01)=""
^DD(791810.201101,"GL",0,2,.02)=""
^DD(791810.201101,"GL",0,3,.03)=""
^DD(791810.201101,"GL",0,4,.04)=""
^DD(791810.201101,"GL",0,5,.05)=""
^DD(791810.201101,"GL",0,6,.06)=""
^DD(791810.201101,"GL",0,7,.07)=""
^DD(791810.201101,"GL",0,8,.08)=""
^DD(791810.201101,"GL",0,9,.09)=""
^DD(791810.201101,"GL",0,10,.1)=""
^DD(791810.201101,"IX",.01)=""
^DD(791810.2101,0)="ACTION TO TRIGGER STATUS SUB-FIELD^^.01^1"
^DD(791810.2101,0,"DT")="2940803"
^DD(791810.2101,0,"IX","B",791810.2101,.01)=""
^DD(791810.2101,0,"NM","ACTION TO TRIGGER STATUS")=""
^DD(791810.2101,0,"UP")="791810.2"
^DD(791810.2101,.01,0)="ACTION TO TRIGGER STATUS^MS^O:ORDER;C:CANCEL;I:ISSUE;R:CERTIFICATION;A:ADJUSTMENT;AR:ADJUSTMENT AND CERTIFICATION;RI:CERTIFICATION AND ISSUE;AI:ADJUSTMENT AND ISSUE;ARI:ADJUSTMENT, CERTIFICATION AND ISSUE;^0;1^Q"
^DD(791810.2101,.01,1,0)="^.1"
^DD(791810.2101,.01,1,1,0)="791810.2101^B"
^DD(791810.2101,.01,1,1,1)="S ^RMPF(791810.2,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791810.2101,.01,1,1,2)="K ^RMPF(791810.2,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791810.2101,.01,1,1,"%D",0)="^^1^1^2950206^^"
^DD(791810.2101,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.2101,.01,1,2,0)="791810.2^AB"
^DD(791810.2101,.01,1,2,1)="S ^RMPF(791810.2,""AB"",$E(X,1,30),DA(1),DA)="""""
^DD(791810.2101,.01,1,2,2)="K ^RMPF(791810.2,""AB"",$E(X,1,30),DA(1),DA)"
^DD(791810.2101,.01,1,2,"%D",0)="^^3^3^2950206^^"
^DD(791810.2101,.01,1,2,"%D",1,0)="This cross-reference is used to look up the actions that have been taken"
^DD(791810.2101,.01,1,2,"%D",2,0)="on an order and convert the status to the correct transmission status as"
^DD(791810.2101,.01,1,2,"%D",3,0)="it is being sent to the DDC."
^DD(791810.2101,.01,1,2,"DT")="2940803"
^DD(791810.2101,.01,21,0)="^^3^3^2950206^^"
^DD(791810.2101,.01,21,1,0)="This field is used to determine the transmit status of an order depending"
^DD(791810.2101,.01,21,2,0)="on the last action taken on the order. For example, if the last action"
^DD(791810.2101,.01,21,3,0)="was an initial order, the transmit status will be ORD-TRANS."
^DD(791810.2101,.01,"DT")="2940803"
^DD(791810.2101,"B","ACTION TO TRIGGER STATUS",.01)=""
^DD(791810.2101,"GL",0,1,.01)=""
^DD(791810.2101,"IX",.01)=""
^DD(791810.3,0)="FIELD^^.01^1"
^DD(791810.3,0,"DDA")="N"
^DD(791810.3,0,"DT")="2940201"
^DD(791810.3,0,"IX","B",791810.3,.01)=""
^DD(791810.3,0,"NM","DISABILITY")=""
^DD(791810.3,0,"VR")="2.0"
^DD(791810.3,.01,0)="DISABILITY DX CODE^RNJ6,0^^0;1^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(791810.3,.01,1,0)="^.1"
^DD(791810.3,.01,1,1,0)="791810.3^B"
^DD(791810.3,.01,1,1,1)="S ^RMPF(791810.3,""B"",$E(X,1,30),DA)="""""
^DD(791810.3,.01,1,1,2)="K ^RMPF(791810.3,""B"",$E(X,1,30),DA)"
^DD(791810.3,.01,1,1,"%D",0)="^^3^3^2940711^"
^DD(791810.3,.01,1,1,"%D",1,0)="This is the standard name cross-reference for the file.  It is used to"
^DD(791810.3,.01,1,1,"%D",2,0)="look up codes in the file and compare them to codes contained in the"
^DD(791810.3,.01,1,1,"%D",3,0)="DISABILITY CONDITION FILE."
^DD(791810.3,.01,3)="Type a Number between 0 and 999999, 0 Decimal Digits"
^DD(791810.3,.01,21,0)="^^2^2^2911205^"
^DD(791810.3,.01,21,1,0)="This field contains the diagnostic code entries for VA disability"
^DD(791810.3,.01,21,2,0)="conditions that apply to a specific product group."
^DD(791810.3,.01,"DT")="2911205"
^DD(791810.3,"B","DISABILITY DX CODE",.01)=""
^DD(791810.3,"GL",0,1,.01)=""
^DD(791810.3,"IX",.01)=""
^DD(791810.3,"RQ",.01)=""
^DD(791810.4,0)="FIELD^^.03^3"
^DD(791810.4,0,"DDA")="N"
^DD(791810.4,0,"DT")="2941129"
^DD(791810.4,0,"IX","B",791810.4,.01)=""
^DD(791810.4,0,"NM","ROES ELIGIBILITY")=""
^DD(791810.4,0,"PT",791810,2.02)=""
^DD(791810.4,0,"PT",791810,2.06)=""
^DD(791810.4,0,"VR")="2.0"
^DD(791810.4,.01,0)="NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X"
^DD(791810.4,.01,1,0)="^.1"
^DD(791810.4,.01,1,1,0)="791810.4^B"
^DD(791810.4,.01,1,1,1)="S ^RMPF(791810.4,""B"",$E(X,1,30),DA)="""""
^DD(791810.4,.01,1,1,2)="K ^RMPF(791810.4,""B"",$E(X,1,30),DA)"
^DD(791810.4,.01,1,1,"%D",0)="^^2^2^2940712^^"
^DD(791810.4,.01,1,1,"%D",1,0)="This is the standard name cross-reference.  It is used to look up the"
^DD(791810.4,.01,1,1,"%D",2,0)="name of the eligibility used by ROES orders for eligibility determinations."
^DD(791810.4,.01,3)="Answer must be 3-40 characters in length."
^DD(791810.4,.01,21,0)="^^2^2^2940125^"
^DD(791810.4,.01,21,1,0)="This field contains the name of an eligibility that makes a veteran"
^DD(791810.4,.01,21,2,0)="eligible for ROES orders."
^DD(791810.4,.01,"DT")="2931130"
^DD(791810.4,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>10!($L(X)<1) X"
^DD(791810.4,.02,3)="Answer must be 1-10 characters in length."
^DD(791810.4,.02,21,0)="^^1^1^2931130^"
^DD(791810.4,.02,21,1,0)="This field contains the abbreviation for the eligibility name."
^DD(791810.4,.02,"DT")="2931130"
^DD(791810.4,.03,0)="DETERMINED BY PSAS^S^0:NOT DETERMINED BY PSAS;1:DETERMINED BY PSAS;^0;3^Q"
^DD(791810.4,.03,21,0)="^^3^3^2941129^"
^DD(791810.4,.03,21,1,0)="This field flags eligibilities that Audiology and Speech Pathology Service"
^DD(791810.4,.03,21,2,0)="may select as probable determinations for veterans whose eligibility cannot"
^DD(791810.4,.03,21,3,0)="be determined from the DHCP database."
^DD(791810.4,.03,"DT")="2941129"
^DD(791810.4,"B","ABBREVIATION",.02)=""
^DD(791810.4,"B","DETERMINED BY PSAS",.03)=""
^DD(791810.4,"B","NAME",.01)=""
^DD(791810.4,"GL",0,1,.01)=""
^DD(791810.4,"GL",0,2,.02)=""
^DD(791810.4,"GL",0,3,.03)=""
^DD(791810.4,"IX",.01)=""
^DD(791810.4,"RQ",.01)=""
^DD(791810.5,0)="FIELD^^.03^3"
^DD(791810.5,0,"DT")="2940215"
^DD(791810.5,0,"IX","B",791810.5,.01)=""
^DD(791810.5,0,"IX","C",791810.5,.02)=""
^DD(791810.5,0,"NM","ROES MENU")=""
^DD(791810.5,0,"PT",791810,.15)=""
^DD(791810.5,0,"PT",791811.1101,.01)=""
^DD(791810.5,0,"PT",791812,.09)=""
^DD(791810.5,0,"VR")="2.0"
^DD(791810.5,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(791810.5,.01,1,0)="^.1"
^DD(791810.5,.01,1,1,0)="791810.5^B"
^DD(791810.5,.01,1,1,1)="S ^RMPF(791810.5,""B"",$E(X,1,30),DA)="""""
^DD(791810.5,.01,1,1,2)="K ^RMPF(791810.5,""B"",$E(X,1,30),DA)"
^DD(791810.5,.01,1,1,"%D",0)="^^2^2^2940711^^"
^DD(791810.5,.01,1,1,"%D",1,0)="This is the standard name cross-reference that is used to look up the"
^DD(791810.5,.01,1,1,"%D",2,0)="ROES menu name."
^DD(791810.5,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(791810.5,.01,21,0)="^^2^2^2940714^"
^DD(791810.5,.01,21,1,0)="This is the name of the menu entry.  Each menu is assigned to a service"
^DD(791810.5,.01,21,2,0)="(ASPS or PSAS)."
^DD(791810.5,.02,0)="MENU DESIGNATION^NJ3,0^^0;2^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(791810.5,.02,1,0)="^.1"
^DD(791810.5,.02,1,1,0)="791810.5^C"
^DD(791810.5,.02,1,1,1)="S ^RMPF(791810.5,""C"",$E(X,1,30),DA)="""""
^DD(791810.5,.02,1,1,2)="K ^RMPF(791810.5,""C"",$E(X,1,30),DA)"
^DD(791810.5,.02,1,1,"%D",0)="^^3^3^2940711^"
^DD(791810.5,.02,1,1,"%D",1,0)="This cross-reference is used to look up the menu entry by menu designation."
^DD(791810.5,.02,1,1,"%D",2,0)="The menu designation is assigned to each menu at sign-on by an entry"
^DD(791810.5,.02,1,1,"%D",3,0)="action on that menu."
^DD(791810.5,.02,1,1,"DT")="2940215"
^DD(791810.5,.02,3)="Type a Number between 0 and 999, 0 Decimal Digits"
^DD(791810.5,.02,21,0)="^^3^3^2940711^"
^DD(791810.5,.02,21,1,0)="This field contains a numeric menu designation.  The designation is used"
^DD(791810.5,.02,21,2,0)="to restrict such things as product groups and disability codes used for"
^DD(791810.5,.02,21,3,0)="a specific menu or service."
^DD(791810.5,.02,"DT")="2940215"
^DD(791810.5,.03,0)="OPTION FILE MENU^P19'^DIC(19,^0;3^Q"
^DD(791810.5,.03,21,0)="^^2^2^2940711^"
^DD(791810.5,.03,21,1,0)="This field contains a pointer to the option file for the menu designated"
^DD(791810.5,.03,21,2,0)="in this file."
^DD(791810.5,.03,"DT")="2940215"
^DD(791810.5,"B","MENU DESIGNATION",.02)=""
^DD(791810.5,"B","NAME",.01)=""
^DD(791810.5,"B","OPTION FILE MENU",.03)=""
^DD(791810.5,"GL",0,1,.01)=""
^DD(791810.5,"GL",0,2,.02)=""
^DD(791810.5,"GL",0,3,.03)=""
^DD(791810.5,"IX",.01)=""
^DD(791810.5,"IX",.02)=""
^DD(791810.5,"RQ",.01)=""
^DD(791810.6,0)="FIELD^^.01^1"
^DD(791810.6,0,"DDA")="N"
^DD(791810.6,0,"DT")="2941024"
^DD(791810.6,0,"IX","B",791810.6,.01)=""
^DD(791810.6,0,"NM","ORDER DELAY REASONS")=""
^DD(791810.6,0,"PT",791810.0101,90.14)=""
^DD(791810.6,0,"VR")="2.0"
^DD(791810.6,.01,0)="REASON^RF^^0;1^K:$L(X)>80!($L(X)<3)!'(X'?1P.E) X"
^DD(791810.6,.01,1,0)="^.1"
^DD(791810.6,.01,1,1,0)="791810.6^B"
^DD(791810.6,.01,1,1,1)="S ^RMPF(791810.6,""B"",$E(X,1,30),DA)="""""
^DD(791810.6,.01,1,1,2)="K ^RMPF(791810.6,""B"",$E(X,1,30),DA)"
^DD(791810.6,.01,1,1,"%D",0)="^^1^1^2950202^"
^DD(791810.6,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791810.6,.01,3)="Answer must be 3-80 characters in length."
^DD(791810.6,.01,21,0)="^^3^3^2940808^"
^DD(791810.6,.01,21,1,0)="This is the reason that a Hearing Aid Order was delayed beyond the"
^DD(791810.6,.01,21,2,0)="standard established by Audiology and Speech Pathology Service in"
^DD(791810.6,.01,21,3,0)="VACO."
^DD(791810.6,.01,"DT")="2941024"
^DD(791810.6,"B","REASON",.01)=""
^DD(791810.6,"GL",0,1,.01)=""
^DD(791810.6,"IX",.01)=""
^DD(791810.6,"RQ",.01)=""
^DD(791811,0)="FIELD^^999^12"
^DD(791811,0,"DDA")="N"
^DD(791811,0,"DT")="2940914"
^DD(791811,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(791811,0,"IX","AC",791811,.03)=""
^DD(791811,0,"IX","B",791811,.01)=""
^DD(791811,0,"IX","C",791811,.05)=""
^DD(791811,0,"IX","D",791811,.02)=""
^DD(791811,0,"IX","F",791811,.05)=""
^DD(791811,0,"NM","REMOTE INVENTORY PRODUCT")=""
^DD(791811,0,"PT",791810.0101,.01)=""
^DD(791811,0,"VR")="2.0"
^DD(791811,.01,0)="ITEM NAME^RFX^^0;1^K:$L(X)>30!($L(X)<2)!'(X'?1P.E) X"
^DD(791811,.01,1,0)="^.1"
^DD(791811,.01,1,1,0)="791811^B"
^DD(791811,.01,1,1,1)="S ^RMPF(791811,""B"",$E(X,1,30),DA)="""""
^DD(791811,.01,1,1,2)="K ^RMPF(791811,""B"",$E(X,1,30),DA)"
^DD(791811,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791811,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791811,.01,3)="NAME MUST BE 2-30 CHARACTERS NOT STARTING WITH PUNCTUATION"
^DD(791811,.01,21,0)="^^2^2^2910524^"
^DD(791811,.01,21,1,0)="This in the free text name of the item to be selected as part of a"
^DD(791811,.01,21,2,0)="transaction."
^DD(791811,.01,"DT")="2901228"
^DD(791811,.02,0)="MAKE^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(791811,.02,1,0)="^.1"
^DD(791811,.02,1,1,0)="791811^D"
^DD(791811,.02,1,1,1)="S ^RMPF(791811,""D"",$E(X,1,30),DA)="""""
^DD(791811,.02,1,1,2)="K ^RMPF(791811,""D"",$E(X,1,30),DA)"
^DD(791811,.02,1,1,"%D",0)="^^1^1^2910924^"
^DD(791811,.02,1,1,"%D",1,0)="This cross-reference allows models to be looked up by make."
^DD(791811,.02,1,1,"DT")="2910628"
^DD(791811,.02,3)="Answer must be 2-30 characters in length."
^DD(791811,.02,21,0)="^^2^2^2910524^"
^DD(791811,.02,21,1,0)="This is the free text name of the make of the item to be selected as"
^DD(791811,.02,21,2,0)="part of a transaction."
^DD(791811,.02,"DT")="2940914"
^DD(791811,.03,0)="PRODUCT GROUP^P791811.1'^RMPF(791811.1,^0;3^Q"
^DD(791811,.03,1,0)="^.1^^-1"
^DD(791811,.03,1,1,0)="791811^AC"
^DD(791811,.03,1,1,1)="S ^RMPF(791811,""AC"",$E(X,1,30),DA)="""""
^DD(791811,.03,1,1,2)="K ^RMPF(791811,""AC"",$E(X,1,30),DA)"
^DD(791811,.03,1,1,"%D",0)="^^1^1^2910924^"
^DD(791811,.03,1,1,"%D",1,0)="This cross-reference allows models to be sorted by product group."
^DD(791811,.03,21,0)="^^1^1^2950501^^"
^DD(791811,.03,21,1,0)="This is the DDC product group to which the item belongs."
^DD(791811,.03,"DT")="2940805"
^DD(791811,.04,0)="COST^NJ10,4^^0;4^K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(791811,.04,3)="Type a Number between 0 and 99999.9999, 4 Decimal Digits"
^DD(791811,.04,21,0)="^^1^1^2940712^^"
^DD(791811,.04,21,1,0)="This is the approximate current cost of the item."
^DD(791811,.04,"DT")="2901220"
^DD(791811,.05,0)="NSN^F^^0;5^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<16)!'(X?4N1""-""2N1""-""3N1""-""4N) X"
^DD(791811,.05,1,0)="^.1"
^DD(791811,.05,1,1,0)="791811^C"
^DD(791811,.05,1,1,1)="S ^RMPF(791811,""C"",$E(X,1,30),DA)="""""
^DD(791811,.05,1,1,2)="K ^RMPF(791811,""C"",$E(X,1,30),DA)"
^DD(791811,.05,1,1,"%D",0)="^^2^2^2910924^"
^DD(791811,.05,1,1,"%D",1,0)="This cross-reference allows a model to be looked up by National Stock"
^DD(791811,.05,1,1,"%D",2,0)="Number."
^DD(791811,.05,1,2,0)="791811^F^MUMPS"
^DD(791811,.05,1,2,1)="I $L(X)=16 S Z1=$E(X,13,16),^RMPF(791811,""F"",Z1,DA)="""" K Z1"
^DD(791811,.05,1,2,2)="I $L(X)=16 S Z1=$E(X,13,16) K ^RMPF(791811,""F"",Z1,DA),Z1"
^DD(791811,.05,1,2,"%D",0)="^^3^3^2940216^"
^DD(791811,.05,1,2,"%D",1,0)=" "
^DD(791811,.05,1,2,"%D",2,0)="This cross-reference allows users to look up items by the last four"
^DD(791811,.05,1,2,"%D",3,0)="numbers of the item's National Stock Number."
^DD(791811,.05,1,2,"DT")="2940216"
^DD(791811,.05,3)="Answer must be 16 characters in length."
^DD(791811,.05,21,0)="^^1^1^2910524^"
^DD(791811,.05,21,1,0)="This is the National Stock Number of the item."
^DD(791811,.05,"DT")="2940216"
^DD(791811,.06,0)="CURRENT MARKUP^NJ8,4^^0;6^K:+X'=X!(X>100)!(X<0)!(X?.E1"".""5N.N) X"
^DD(791811,.06,3)="Type a Number between 0 and 100, 4 Decimal Digits"
^DD(791811,.06,21,0)="^^1^1^2910524^"
^DD(791811,.06,21,1,0)="This is the current percentage of markup for the item."
^DD(791811,.06,"DT")="2910510"
^DD(791811,.07,0)="REQUIRES SECOND BATTERY TYPE^S^0:TWO BATTERY TYPES NOT ALLOWED;1:TWO BATTERY TYPES ALLOWED;^0;7^Q"
^DD(791811,.07,21,0)="^^2^2^2940712^"
^DD(791811,.07,21,1,0)="This field will contain a '1' if the item ordered requires a second"
^DD(791811,.07,21,2,0)="battery type."
^DD(791811,.07,"DT")="2911007"
^DD(791811,.08,0)="UNIT OF ISSUE^NJ4,0^^0;8^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791811,.08,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791811,.08,21,0)="^^3^3^2940712^"
^DD(791811,.08,21,1,0)="If the item is issued in a specific quantity (6-pack of batteries), this"
^DD(791811,.08,21,2,0)="field will contain the smallest number issued.  If there is no entry, the"
^DD(791811,.08,21,3,0)="unit of issue is assumed to be one."
^DD(791811,.08,"DT")="2940216"
^DD(791811,.09,0)="AMIS CODE FOR PROSTHETICS^S^01 A:AIDS FOR THE BLIND UNDER $5000;01 B:AIDS FOR THE BLIND OVER $5000;08:FLEX-ORTHO;20:PROSTHETIC SOCKS & HOSE;14 C:SCROTAL SUPPORT;13 K:EQUIPMENT, ALL OTHER;^0;9^Q"
^DD(791811,.09,21,0)="^^1^1^2940607^"
^DD(791811,.09,21,1,0)="This field contains the Prosthetics AMIS code for the line item."
^DD(791811,.09,"DT")="2940630"
^DD(791811,101,0)="COMPONENT^791811.0101PA^^101;0"
^DD(791811,101,21,0)="^^2^2^2910524^"
^DD(791811,101,21,1,0)="This multiple field contains a list of the componenets that may be"
^DD(791811,101,21,2,0)="associated with an item."
^DD(791811,102,0)="BATTERY TYPE^791811.0102PA^^102;0"
^DD(791811,102,21,0)="^^2^2^2910524^"
^DD(791811,102,21,1,0)="This multiple field is a list of the specific batteries that may be"
^DD(791811,102,21,2,0)="associated with a line item."
^DD(791811,999,0)="INACTIVE^S^1:INACTIVE;0:ACTIVE;^I;1^Q"
^DD(791811,999,21,0)="^^2^2^2910524^^"
^DD(791811,999,21,1,0)="If this field is set to 'Inactive', the line item will not be available"
^DD(791811,999,21,2,0)="for selection in the order/entry process."
^DD(791811,999,"DT")="2901214"
^DD(791811,"B","AMIS CODE FOR PROSTHETICS",.09)=""
^DD(791811,"B","BATTERY TYPE",102)=""
^DD(791811,"B","COMPONENT",101)=""
^DD(791811,"B","COST",.04)=""
^DD(791811,"B","CURRENT MARKUP",.06)=""
^DD(791811,"B","INACTIVE",999)=""
^DD(791811,"B","ITEM NAME",.01)=""
^DD(791811,"B","MAKE",.02)=""
^DD(791811,"B","NSN",.05)=""
^DD(791811,"B","PRODUCT GROUP",.03)=""
^DD(791811,"B","REQUIRES SECOND BATTERY TYPE",.07)=""
^DD(791811,"B","UNIT OF ISSUE",.08)=""
^DD(791811,"GL",0,1,.01)=""
^DD(791811,"GL",0,2,.02)=""
^DD(791811,"GL",0,3,.03)=""
^DD(791811,"GL",0,4,.04)=""
^DD(791811,"GL",0,5,.05)=""
^DD(791811,"GL",0,6,.06)=""
^DD(791811,"GL",0,7,.07)=""
^DD(791811,"GL",0,8,.08)=""
^DD(791811,"GL",0,9,.09)=""
^DD(791811,"GL",101,0,101)=""
^DD(791811,"GL",102,0,102)=""
^DD(791811,"GL","I",1,999)=""
^DD(791811,"IX",.01)=""
^DD(791811,"IX",.02)=""
^DD(791811,"IX",.03)=""
^DD(791811,"IX",.05)=""
^DD(791811,"RQ",.01)=""
^DD(791811,"SB",791811.0101,101)=""
^DD(791811,"SB",791811.0102,102)=""
^DD(791811.0101,0)="COMPONENT SUB-FIELD^^.02^2"
^DD(791811.0101,0,"IX","B",791811.0101,.01)=""
^DD(791811.0101,0,"NM","COMPONENT")=""
^DD(791811.0101,0,"UP")="791811"
^DD(791811.0101,.01,0)="COMPONENT^MP791811.2'X^RMPF(791811.2,^0;1^Q"
^DD(791811.0101,.01,1,0)="^.1"
^DD(791811.0101,.01,1,1,0)="791811.0101^B"
^DD(791811.0101,.01,1,1,1)="S ^RMPF(791811,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791811.0101,.01,1,1,2)="K ^RMPF(791811,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791811.0101,.01,1,1,"%D",0)="^^2^2^2940712^^"
^DD(791811.0101,.01,1,1,"%D",1,0)="Standard name cross-reference.  This cross-reference is used to look up"
^DD(791811.0101,.01,1,1,"%D",2,0)="components for an item."
^DD(791811.0101,.01,1,1,"DT")="2910220"
^DD(791811.0101,.01,3)=""
^DD(791811.0101,.01,21,0)="^^2^2^2910524^"
^DD(791811.0101,.01,21,1,0)="This is a pointer to the Hearing Aid Components File for the component"
^DD(791811.0101,.01,21,2,0)="associated with the item."
^DD(791811.0101,.01,"DT")="2910220"
^DD(791811.0101,.02,0)="COST OF COMPONENT^NJ10,4^^0;2^K:+X'=X!(X>99999.9999)!(X<0)!(X?.E1"".""5N.N) X"
^DD(791811.0101,.02,3)="Type a Number between 0 and 99999.9999, 4 Decimal Digits"
^DD(791811.0101,.02,21,0)="^^1^1^2910524^"
^DD(791811.0101,.02,21,1,0)="This is the current cost of the component."
^DD(791811.0101,.02,"DT")="2901220"
^DD(791811.0101,"B","COMPONENT",.01)=""
^DD(791811.0101,"B","COST OF COMPONENT",.02)=""
^DD(791811.0101,"GL",0,1,.01)=""
^DD(791811.0101,"GL",0,2,.02)=""
^DD(791811.0101,"IX",.01)=""
^DD(791811.0102,0)="BATTERY TYPE SUB-FIELD^^.01^1"
^DD(791811.0102,0,"IX","B",791811.0102,.01)=""
^DD(791811.0102,0,"NM","BATTERY TYPE")=""
^DD(791811.0102,0,"UP")="791811"
^DD(791811.0102,.01,0)="BATTERY TYPE^MP791811.3'X^RMPF(791811.3,^0;1^I $D(X) S DINUM=X"
^DD(791811.0102,.01,1,0)="^.1"
^DD(791811.0102,.01,1,1,0)="791811.0102^B"
^DD(791811.0102,.01,1,1,1)="S ^RMPF(791811,DA(1),102,""B"",$E(X,1,30),DA)="""""
^DD(791811.0102,.01,1,1,2)="K ^RMPF(791811,DA(1),102,""B"",$E(X,1,30),DA)"
^DD(791811.0102,.01,1,1,"%D",0)="^^1^1^2941103^^^"
^DD(791811.0102,.01,1,1,"%D",1,0)="Standard name cross-reference.  It is used to look up batteries for the item."
^DD(791811.0102,.01,21,0)="^^2^2^2910524^"
^DD(791811.0102,.01,21,1,0)="This is a pointer to the Battery File for a battery type associated with"
^DD(791811.0102,.01,21,2,0)="this line item."
^DD(791811.0102,.01,"DT")="2900730"
^DD(791811.0102,"B","BATTERY TYPE",.01)=""
^DD(791811.0102,"GL",0,1,.01)=""
^DD(791811.0102,"IX",.01)=""
^DD(791811.1,0)="FIELD^^101^4"
^DD(791811.1,0,"DDA")="N"
^DD(791811.1,0,"DT")="2940726"
^DD(791811.1,0,"IX","B",791811.1,.01)=""
^DD(791811.1,0,"NM","REMOTE PRODUCT GROUP")=""
^DD(791811.1,0,"PT",791810.0101,2.04)=""
^DD(791811.1,0,"PT",791810.1101,.01)=""
^DD(791811.1,0,"PT",791811,.03)=""
^DD(791811.1,0,"VR")="2.0"
^DD(791811.1,.01,0)="PRODUCT GROUP^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(791811.1,.01,1,0)="^.1"
^DD(791811.1,.01,1,1,0)="791811.1^B"
^DD(791811.1,.01,1,1,1)="S ^RMPF(791811.1,""B"",$E(X,1,30),DA)="""""
^DD(791811.1,.01,1,1,2)="K ^RMPF(791811.1,""B"",$E(X,1,30),DA)"
^DD(791811.1,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791811.1,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791811.1,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(791811.1,.01,21,0)="^^2^2^2910524^"
^DD(791811.1,.01,21,1,0)="This is the name of the product group.  Commodity line items are"
^DD(791811.1,.01,21,2,0)="associated with a product group."
^DD(791811.1,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(791811.1,.02,3)="Answer must be 1-5 characters in length."
^DD(791811.1,.02,21,0)="^^1^1^2910524^"
^DD(791811.1,.02,21,1,0)="This is the abbreviation for the name of the product group."
^DD(791811.1,.03,0)="MAY USE BATTERIES^S^0:MAY NOT USE BATTERIES;1:MAY USE BATTERIES;^0;3^Q"
^DD(791811.1,.03,21,0)="^^2^2^2940726^"
^DD(791811.1,.03,21,1,0)="This field indicates whether or not items in this product group may use"
^DD(791811.1,.03,21,2,0)="batteries."
^DD(791811.1,.03,"DT")="2940726"
^DD(791811.1,101,0)="ROES MENUS ALLOWED^791811.1101P^^101;0"
^DD(791811.1,101,21,0)="^^2^2^2940712^"
^DD(791811.1,101,21,1,0)="This multiple contains the names of the menus that allow selection of"
^DD(791811.1,101,21,2,0)="items from this product group."
^DD(791811.1,"B","ABBREVIATION",.02)=""
^DD(791811.1,"B","MAY USE BATTERIES",.03)=""
^DD(791811.1,"B","PRODUCT GROUP",.01)=""
^DD(791811.1,"B","ROES MENUS ALLOWED",101)=""
^DD(791811.1,"GL",0,1,.01)=""
^DD(791811.1,"GL",0,2,.02)=""
^DD(791811.1,"GL",0,3,.03)=""
^DD(791811.1,"GL",101,0,101)=""
^DD(791811.1,"IX",.01)=""
^DD(791811.1,"RQ",.01)=""
^DD(791811.1,"SB",791811.1101,101)=""
^DD(791811.1101,0)="ROES MENUS ALLOWED SUB-FIELD^^.01^1"
^DD(791811.1101,0,"DT")="2940215"
^DD(791811.1101,0,"IX","B",791811.1101,.01)=""
^DD(791811.1101,0,"NM","ROES MENUS ALLOWED")=""
^DD(791811.1101,0,"UP")="791811.1"
^DD(791811.1101,.01,0)="ROES MENUS ALLOWED^MP791810.5'^RMPF(791810.5,^0;1^Q"
^DD(791811.1101,.01,1,0)="^.1"
^DD(791811.1101,.01,1,1,0)="791811.1101^B"
^DD(791811.1101,.01,1,1,1)="S ^RMPF(791811.1,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791811.1101,.01,1,1,2)="K ^RMPF(791811.1,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791811.1101,.01,1,1,"%D",0)="^^2^2^2940712^"
^DD(791811.1101,.01,1,1,"%D",1,0)="This is the standard name cross-reference for the ROES menu.  It is used"
^DD(791811.1101,.01,1,1,"%D",2,0)="to look up menus that allow selection of items from this product group."
^DD(791811.1101,.01,21,0)="^^2^2^2940712^"
^DD(791811.1101,.01,21,1,0)="This is the name of the ROES menu that allows selection of this product"
^DD(791811.1101,.01,21,2,0)="group."
^DD(791811.1101,.01,"DT")="2940215"
^DD(791811.1101,"B","ROES MENUS ALLOWED",.01)=""
^DD(791811.1101,"GL",0,1,.01)=""
^DD(791811.1101,"IX",.01)=""
^DD(791811.2,0)="FIELD^^.05^4"
^DD(791811.2,0,"DDA")="N"
^DD(791811.2,0,"DT")="2970627"
^DD(791811.2,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(791811.2,0,"IX","B",791811.2,.01)=""
^DD(791811.2,0,"IX","C",791811.2,.03)=""
^DD(791811.2,0,"NM","HEARING AID COMPONENTS")=" "
^DD(791811.2,0,"PT",791810.101102,.01)=" "
^DD(791811.2,0,"PT",791811.0101,.01)=" "
^DD(791811.2,0,"VR")="2.0"
^DD(791811.2,0,"VRPK")="RMPF"
^DD(791811.2,.01,0)="COMPONENT NAME^RF^^0;1^K:$L(X)>50!($L(X)<1)!'(X'?1P.E) X"
^DD(791811.2,.01,1,0)="^.1"
^DD(791811.2,.01,1,1,0)="791811.2^B"
^DD(791811.2,.01,1,1,1)="S ^RMPF(791811.2,""B"",$E(X,1,30),DA)="""""
^DD(791811.2,.01,1,1,2)="K ^RMPF(791811.2,""B"",$E(X,1,30),DA)"
^DD(791811.2,.01,1,1,"%D",0)="^^2^2^2940712^^"
^DD(791811.2,.01,1,1,"%D",1,0)="Standard name cross-reference.  It is used to look up a hearing aid component"
^DD(791811.2,.01,1,1,"%D",2,0)="by name."
^DD(791811.2,.01,3)="Answer must be 1-50 characters in length."
^DD(791811.2,.01,21,0)="^^2^2^2910524^"
^DD(791811.2,.01,21,1,0)="This is the name of the component.  Components may be associated with"
^DD(791811.2,.01,21,2,0)="a line item in the Remote Inventory Product File."
^DD(791811.2,.01,"DT")="2900627"
^DD(791811.2,.03,0)="ORDER CODE^RF^^0;3^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X"
^DD(791811.2,.03,1,0)="^.1"
^DD(791811.2,.03,1,1,0)="791811.2^C"
^DD(791811.2,.03,1,1,1)="S ^RMPF(791811.2,""C"",$E(X,1,30),DA)="""""
^DD(791811.2,.03,1,1,2)="K ^RMPF(791811.2,""C"",$E(X,1,30),DA)"
^DD(791811.2,.03,1,1,"%D",0)="^^1^1^2910924^"
^DD(791811.2,.03,1,1,"%D",1,0)="This cross-reference allows components to be looked up by order code."
^DD(791811.2,.03,3)="Answer must be 1-10 characters in length."
^DD(791811.2,.03,21,0)="^^2^2^2910524^"
^DD(791811.2,.03,21,1,0)="This is the order code or abbreviation for the component.  It may be used"
^DD(791811.2,.03,21,2,0)="to select the component in the ordering process."
^DD(791811.2,.03,"DT")="2970627"
^DD(791811.2,.04,0)="AVAILABLE W/BUNDLED PRICING^S^1:YES;0:NO;^0;4^Q"
^DD(791811.2,.04,"DT")="3010608"
^DD(791811.2,.05,0)="AVAIL WITH EXTRA COMP ORDER^S^1:NO;0:YES;^0;5^Q"
^DD(791811.2,.05,"DT")="3010608"
^DD(791811.2,"B","AVAIL WITH EXTRA COMP ORDER",.05)=""
^DD(791811.2,"B","AVAILABLE W/BUNDLED PRICING",.04)=""
^DD(791811.2,"B","COMPONENT NAME",.01)=""
^DD(791811.2,"B","ORDER CODE",.03)=""
^DD(791811.2,"GL",0,1,.01)=""
^DD(791811.2,"GL",0,3,.03)=""
^DD(791811.2,"GL",0,4,.04)=""
^DD(791811.2,"GL",0,5,.05)=""
^DD(791811.2,"IX",.01)=""
^DD(791811.2,"IX",.03)=""
^DD(791811.2,"RQ",.01)=""
^DD(791811.2,"RQ",.03)=""
^DD(791811.3,0)="FIELD^^.02^2"
^DD(791811.3,0,"DDA")="N"
^DD(791811.3,0,"DT")="2940809"
^DD(791811.3,0,"IX","B",791811.3,.01)=""
^DD(791811.3,0,"NM","BATTERY")=""
^DD(791811.3,0,"PT",791810.0101,.02)=""
^DD(791811.3,0,"PT",791810.0101,2.03)=""
^DD(791811.3,0,"PT",791811.0102,.01)=""
^DD(791811.3,0,"VR")="2.0"
^DD(791811.3,.01,0)="BATTERY NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(791811.3,.01,1,0)="^.1"
^DD(791811.3,.01,1,1,0)="791811.3^B"
^DD(791811.3,.01,1,1,1)="S ^RMPF(791811.3,""B"",$E(X,1,30),DA)="""""
^DD(791811.3,.01,1,1,2)="K ^RMPF(791811.3,""B"",$E(X,1,30),DA)"
^DD(791811.3,.01,1,1,"%D",0)="^^1^1^2940712^^^"
^DD(791811.3,.01,1,1,"%D",1,0)="Standard name cross-reference.  It is used to look up a battery by name."
^DD(791811.3,.01,3)="Answer must be 3-30 characters in length."
^DD(791811.3,.01,21,0)="^^2^2^2910524^"
^DD(791811.3,.01,21,1,0)="This is the name of a specific type of battery.  Batteries may be associated"
^DD(791811.3,.01,21,2,0)="with line items from the Remote Inventory Product File."
^DD(791811.3,.02,0)="INACTIVE^S^1:INACTIVE;0:ACTIVE;^0;2^Q"
^DD(791811.3,.02,21,0)="^^1^1^2940809^"
^DD(791811.3,.02,21,1,0)="This field indicates whether a battery is active or inactive."
^DD(791811.3,.02,"DT")="2940809"
^DD(791811.3,"B","BATTERY NAME",.01)=""
^DD(791811.3,"B","INACTIVE",.02)=""
^DD(791811.3,"GL",0,1,.01)=""
^DD(791811.3,"GL",0,2,.02)=""
^DD(791811.3,"IX",.01)=""
^DD(791811.3,"RQ",.01)=""
^DD(791811.4,0)="FIELD^^.02^2"
^DD(791811.4,0,"DT")="2940404"
^DD(791811.4,0,"IX","B",791811.4,.01)=""
^DD(791811.4,0,"IX","C",791811.4,.02)=""
^DD(791811.4,0,"NM","REMOTE PROSTHETIC ITEM BRANDS")=""
^DD(791811.4,0,"PT",791810.0101,2.06)=""
^DD(791811.4,0,"VR")="2.0"
^DD(791811.4,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(791811.4,.01,1,0)="^.1"
^DD(791811.4,.01,1,1,0)="791811.4^B"
^DD(791811.4,.01,1,1,1)="S ^RMPF(791811.4,""B"",$E(X,1,30),DA)="""""
^DD(791811.4,.01,1,1,2)="K ^RMPF(791811.4,""B"",$E(X,1,30),DA)"
^DD(791811.4,.01,1,1,"%D",0)="^^2^2^2940712^"
^DD(791811.4,.01,1,1,"%D",1,0)="This is the standard name cross-reference.  It is used to look up the"
^DD(791811.4,.01,1,1,"%D",2,0)="brand names in the file."
^DD(791811.4,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(791811.4,.02,0)="ABBREVIATION^F^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1) X"
^DD(791811.4,.02,1,0)="^.1"
^DD(791811.4,.02,1,1,0)="791811.4^C"
^DD(791811.4,.02,1,1,1)="S ^RMPF(791811.4,""C"",$E(X,1,30),DA)="""""
^DD(791811.4,.02,1,1,2)="K ^RMPF(791811.4,""C"",$E(X,1,30),DA)"
^DD(791811.4,.02,1,1,"%D",0)="^^1^1^2940712^"
^DD(791811.4,.02,1,1,"%D",1,0)="This cross-reference is used to look up brands by abbreviation."
^DD(791811.4,.02,1,1,"DT")="2940426"
^DD(791811.4,.02,3)="Answer must be 1-5 characters in length."
^DD(791811.4,.02,"DT")="2940426"
^DD(791811.4,"B","ABBREVIATION",.02)=""
^DD(791811.4,"B","NAME",.01)=""
^DD(791811.4,"GL",0,1,.01)=""
^DD(791811.4,"GL",0,2,.02)=""
^DD(791811.4,"IX",.01)=""
^DD(791811.4,"IX",.02)=""
^DD(791811.4,"RQ",.01)=""
^DD(791812,0)="FIELD^^101^11"
^DD(791812,0,"DDA")="N"
^DD(791812,0,"DT")="2940727"
^DD(791812,0,"IX","AC",791812,.01)=""
^DD(791812,0,"IX","B",791812,.01)=""
^DD(791812,0,"IX","C",791812,.02)=""
^DD(791812,0,"NM","TRANSMISSION BATCH")=""
^DD(791812,0,"PT",791810,.12)=""
^DD(791812,0,"VR")="2.0"
^DD(791812,.01,0)="ENTRY DATE/TIME^RD^^0;1^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791812,.01,1,0)="^.1"
^DD(791812,.01,1,1,0)="791812^B"
^DD(791812,.01,1,1,1)="S ^RMPF(791812,""B"",$E(X,1,30),DA)="""""
^DD(791812,.01,1,1,2)="K ^RMPF(791812,""B"",$E(X,1,30),DA)"
^DD(791812,.01,1,1,"%D",0)="^^1^1^2940712^^"
^DD(791812,.01,1,1,"%D",1,0)="Standard name cross-reference.  It is used to look up a batch."
^DD(791812,.01,1,2,0)="791812^AC^MUMPS"
^DD(791812,.01,1,2,1)="S ^RMPF(791812,""AC"",9999999.9999-X,DA)="""""
^DD(791812,.01,1,2,2)="K ^RMPF(791812,""AC"",9999999.9999-X,DA)"
^DD(791812,.01,1,2,"%D",0)="^^2^2^2911112^^"
^DD(791812,.01,1,2,"%D",1,0)="Cross-reference to sort batches in reverse chronological order by"
^DD(791812,.01,1,2,"%D",2,0)="entry date/time for display and print purposes."
^DD(791812,.01,1,2,"DT")="2911112"
^DD(791812,.01,3)=""
^DD(791812,.01,21,0)="^^2^2^2940125^"
^DD(791812,.01,21,1,0)="This is the date and time that the order batch was created.  It is"
^DD(791812,.01,21,2,0)="automatically assigned when a batch is opened."
^DD(791812,.01,"DT")="2911112"
^DD(791812,.02,0)="STATUS OF BATCH^S^1:OPEN;2:CLOSED;3:TRANSMITTED;4:QUEUED FOR TRANSMISSION;^0;2^Q"
^DD(791812,.02,1,0)="^.1"
^DD(791812,.02,1,1,0)="791812^C"
^DD(791812,.02,1,1,1)="S ^RMPF(791812,""C"",$E(X,1,30),DA)="""""
^DD(791812,.02,1,1,2)="K ^RMPF(791812,""C"",$E(X,1,30),DA)"
^DD(791812,.02,1,1,"%D",0)="^^2^2^2910924^"
^DD(791812,.02,1,1,"%D",1,0)="Cross-reference to sort batches by status for the purpose of performing"
^DD(791812,.02,1,1,"%D",2,0)="certain actions on batches of a particular status."
^DD(791812,.02,21,0)="^^1^1^2940712^^"
^DD(791812,.02,21,1,0)="This is the current status of the batch."
^DD(791812,.02,"DT")="2911028"
^DD(791812,.03,0)="DATE/TIME CLOSED^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791812,.03,21,0)="^^1^1^2910524^"
^DD(791812,.03,21,1,0)="This is the date and time that the batch was closed."
^DD(791812,.04,0)="# ACTIVE IN BATCH^NJ4,0^^0;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791812,.04,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791812,.04,21,0)="^^3^3^2940125^"
^DD(791812,.04,21,1,0)="This is the current number of active orders in the batch.  When an"
^DD(791812,.04,21,2,0)="order is deleted from the batch, it is removed from the number of"
^DD(791812,.04,21,3,0)="active orders."
^DD(791812,.05,0)="CLOSED BY^P200'^VA(200,^0;5^Q"
^DD(791812,.05,21,0)="^^2^2^2910524^"
^DD(791812,.05,21,1,0)="This is a pointer to the New Person File for the person who closed the"
^DD(791812,.05,21,2,0)="batch."
^DD(791812,.05,"DT")="2911112"
^DD(791812,.06,0)="TRANSMISSION MESSAGE^P3.9'^XMB(3.9,^0;6^Q"
^DD(791812,.06,21,0)="^^2^2^2910524^"
^DD(791812,.06,21,1,0)="This is a pointer to the message file indicating the message in which"
^DD(791812,.06,21,2,0)="the batch was transmitted."
^DD(791812,.06,"DT")="2900628"
^DD(791812,.07,0)="TRANSMISSION DATE/TIME^D^^0;7^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791812,.07,21,0)="^^1^1^2950501^^"
^DD(791812,.07,21,1,0)="This is the date and time that the batch was transmitted to the DDC."
^DD(791812,.07,"DT")="2900629"
^DD(791812,.08,0)="STATION NUMBER^F^^0;8^K:$L(X)>40!($L(X)<1) X"
^DD(791812,.08,3)="Answer must be 1-40 characters in length."
^DD(791812,.08,21,0)="^^2^2^2940125^"
^DD(791812,.08,21,1,0)="This is the free text station number and name for the station originating"
^DD(791812,.08,21,2,0)="the order."
^DD(791812,.08,"DT")="2920129"
^DD(791812,.09,0)="ALLOCIATED MENU^P791810.5'^RMPF(791810.5,^0;9^Q"
^DD(791812,.09,3)=""
^DD(791812,.09,21,0)="^^3^3^2940117^"
^DD(791812,.09,21,1,0)="This field holds the name of the menu associated with the transmission"
^DD(791812,.09,21,2,0)="batch.  The entry in this field restricts selection of a batch to"
^DD(791812,.09,21,3,0)="users holding the menu for the service that created the batch."
^DD(791812,.09,"DT")="2940727"
^DD(791812,.1,0)="TASK NUMBER OF AUTO-QUEUE^NJ8,0^^0;10^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791812,.1,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(791812,.1,21,0)="^^3^3^2940708^"
^DD(791812,.1,21,1,0)="This field holds that task number of the transmission queue for batches"
^DD(791812,.1,21,2,0)="that have been queued by the auto-queue option.  This task number may"
^DD(791812,.1,21,3,0)="be retrieved to reschedule the closing and transmission of the batch."
^DD(791812,.1,"DT")="2940708"
^DD(791812,101,0)="ORDER^791812.0101PA^^101;0"
^DD(791812,101,21,0)="^^1^1^2950501^^^^"
^DD(791812,101,21,1,0)="This is a multiple field that lists the orders in the batch."
^DD(791812,101,"DT")="2950501"
^DD(791812,"B","# ACTIVE IN BATCH",.04)=""
^DD(791812,"B","ALLOCIATED MENU",.09)=""
^DD(791812,"B","CLOSED BY",.05)=""
^DD(791812,"B","DATE/TIME CLOSED",.03)=""
^DD(791812,"B","ENTRY DATE/TIME",.01)=""
^DD(791812,"B","ORDER",101)=""
^DD(791812,"B","STATION NUMBER",.08)=""
^DD(791812,"B","STATUS OF BATCH",.02)=""
^DD(791812,"B","TASK NUMBER OF AUTO-QUEUE",.1)=""
^DD(791812,"B","TRANSMISSION DATE/TIME",.07)=""
^DD(791812,"B","TRANSMISSION MESSAGE",.06)=""
^DD(791812,"GL",0,1,.01)=""
^DD(791812,"GL",0,2,.02)=""
^DD(791812,"GL",0,3,.03)=""
^DD(791812,"GL",0,4,.04)=""
^DD(791812,"GL",0,5,.05)=""
^DD(791812,"GL",0,6,.06)=""
^DD(791812,"GL",0,7,.07)=""
^DD(791812,"GL",0,8,.08)=""
^DD(791812,"GL",0,9,.09)=""
^DD(791812,"GL",0,10,.1)=""
^DD(791812,"GL",101,0,101)=""
^DD(791812,"IX",.01)=""
^DD(791812,"IX",.02)=""
^DD(791812,"RQ",.01)=""
^DD(791812,"SB",791812.0101,101)=""
^DD(791812.0101,0)="TRANSACTION SUB-FIELD^^791810.2^5"
^DD(791812.0101,0,"IX","B",791812.0101,.01)=""
^DD(791812.0101,0,"NM","ORDER")=""
^DD(791812.0101,0,"UP")="791812"
^DD(791812.0101,.01,0)="ORDER^P791810'^RMPF(791810,^0;1^Q"
^DD(791812.0101,.01,1,0)="^.1"
^DD(791812.0101,.01,1,1,0)="791812.0101^B"
^DD(791812.0101,.01,1,1,1)="S ^RMPF(791812,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791812.0101,.01,1,1,2)="K ^RMPF(791812,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791812.0101,.01,1,1,"%D",0)="^^1^1^2940712^^"
^DD(791812.0101,.01,1,1,"%D",1,0)="Standard name cross-reference.  It is used to look up an order in the batch."
^DD(791812.0101,.01,21,0)="^^2^2^2940125^"
^DD(791812.0101,.01,21,1,0)="This is a pointer to the Station Order File for each order"
^DD(791812.0101,.01,21,2,0)="entered into the batch."
^DD(791812.0101,.01,"DT")="2950501"
^DD(791812.0101,.02,0)="DELETED BY^P200'^VA(200,^0;2^Q"
^DD(791812.0101,.02,21,0)="^^2^2^2940125^"
^DD(791812.0101,.02,21,1,0)="This is a pointer to the New Person File for the person who deleted a"
^DD(791812.0101,.02,21,2,0)="order from the batch."
^DD(791812.0101,.02,"DT")="2901206"
^DD(791812.0101,.03,0)="DATE/TIME DELETED^D^^0;3^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791812.0101,.03,21,0)="^^1^1^2940125^"
^DD(791812.0101,.03,21,1,0)="This is the date and time that an order was deleted from the batch."
^DD(791812.0101,.03,"DT")="2901206"
^DD(791812.0101,.04,0)="REASON FOR DELETION^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(791812.0101,.04,3)="Answer must be 3-30 characters in length."
^DD(791812.0101,.04,21,0)="^^2^2^2940125^^"
^DD(791812.0101,.04,21,1,0)="This is a free text reason for deleting an order.  It must be entered"
^DD(791812.0101,.04,21,2,0)="for each order deleted."
^DD(791812.0101,.04,"DT")="2901206"
^DD(791812.0101,791810.2,0)="ORDER"
^DD(791812.0101,"B","DATE/TIME DELETED",.03)=""
^DD(791812.0101,"B","DELETED BY",.02)=""
^DD(791812.0101,"B","ORDER",.01)=""
^DD(791812.0101,"B","ORDER",791810.2)=""
^DD(791812.0101,"B","REASON FOR DELETION",.04)=""
^DD(791812.0101,"GL",0,1,.01)=""
^DD(791812.0101,"GL",0,2,.02)=""
^DD(791812.0101,"GL",0,3,.03)=""
^DD(791812.0101,"GL",0,4,.04)=""
^DD(791812.0101,"IX",.01)=""
^DD(791813,0)="FIELD^^101^39"
^DD(791813,0,"DDA")="N"
^DD(791813,0,"DT")="2950206"
^DD(791813,0,"IX","B",791813,.01)=""
^DD(791813,0,"NM","REMOTE ORDER/ENTRY PARAMETER")=""
^DD(791813,0,"VR")="2.0"
^DD(791813,.01,0)="STATION^RP4X^DIC(4,^0;1^S:$D(X) DINUM=X"
^DD(791813,.01,1,0)="^.1"
^DD(791813,.01,1,1,0)="791813^B"
^DD(791813,.01,1,1,1)="S ^RMPF(791813,""B"",$E(X,1,30),DA)="""""
^DD(791813,.01,1,1,2)="K ^RMPF(791813,""B"",$E(X,1,30),DA)"
^DD(791813,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791813,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791813,.01,3)=""
^DD(791813,.01,21,0)="^^2^2^2950501^^^"
^DD(791813,.01,21,1,0)="This field is a pointer to the Institution File for each station that"
^DD(791813,.01,21,2,0)="sets up parameters for the Remote Order/Entry System."
^DD(791813,.01,"DT")="2910916"
^DD(791813,.02,0)="ALLOW FREE TEXT ADDRESS^S^1:ALLOW FREE TEXT ADDRESS;0:DON'T ALLOW FREE TEXT ADDRESS;^0;2^Q"
^DD(791813,.02,21,0)="^^7^7^2950501^^^"
^DD(791813,.02,21,1,0)="If this field is answered 'YES', in the Enter/Edit Patient Orders"
^DD(791813,.02,21,2,0)="option the user will be asked if a new address should be entered for"
^DD(791813,.02,21,3,0)="a patient.  If a new address is entered, the new address will be transmitted"
^DD(791813,.02,21,4,0)="to the DDC for update of the DDC database.  The DHCP patient file at"
^DD(791813,.02,21,5,0)="the station will not be changed.  The patient should be sent to MAS to"
^DD(791813,.02,21,6,0)="update the station database.  If 'NO' is entered, the address in the DHCP"
^DD(791813,.02,21,7,0)="patient file will be used for the order."
^DD(791813,.02,"DT")="2900718"
^DD(791813,.03,0)="TRANSMISSION QUEUE OPTIONS^S^I:immediate queue of batch;S:standard queue time for batch;C:choose queue time for batch;A:auto-queue batch;^0;3^Q"
^DD(791813,.03,21,0)="^^9^9^2940712^^"
^DD(791813,.03,21,1,0)="This parameter controls the queue time for transmission batches.  If"
^DD(791813,.03,21,2,0)="an 'I' is entered, batches will be queued for transmission immediately"
^DD(791813,.03,21,3,0)="upon closing.  If an 'S' is chosen, the user will be asked to set a"
^DD(791813,.03,21,4,0)="parameter defining the time of day for queueing transmission batches."
^DD(791813,.03,21,5,0)="If a 'C' is entered, the user closing a batch will be asked for a"
^DD(791813,.03,21,6,0)="date and time to queue the batch.  If an 'A' is entered, the batch will be"
^DD(791813,.03,21,7,0)="queued automatically every day at the time set in the parameter 'Standard"
^DD(791813,.03,21,8,0)="Queue Time for Batch'.  If no entry is made in this field,"
^DD(791813,.03,21,9,0)="immediate queueing will be assumed."
^DD(791813,.03,"DT")="2950206"
^DD(791813,.04,0)="STANDARD QUEUE TIME FOR BATCH^DXO^^0;4^S:X[""@"" X=$P(X,""@"",2) S X=DT_""@""_X,%DT=""TXR"" D ^%DT S X=Y K:Y<1 X S X=$E(X,8,12)"
^DD(791813,.04,2)="S Y(0)=Y S Y=Y_""00000"" S Y=$E(Y,2,3)_"":""_$E(Y,4,5)"
^DD(791813,.04,2.1)="S Y=Y_""00000"" S Y=$E(Y,2,3)_"":""_$E(Y,4,5)"
^DD(791813,.04,3)="MONTH, DAY AND YEAR NEED NOT BE ENTERED"
^DD(791813,.04,21,0)="^^4^4^2950501^^^^"
^DD(791813,.04,21,1,0)="If the System Manager has chosen to set a standard time for queueing"
^DD(791813,.04,21,2,0)="of transmission batches to the DDC, this field should hold the"
^DD(791813,.04,21,3,0)="time of day for that transmission.  Any batches that have been closed"
^DD(791813,.04,21,4,0)="will automatically be queued for transmission every day at this time."
^DD(791813,.04,"DT")="2930115"
^DD(791813,.05,0)="MULTIPLE STATION ORDERS^S^1:MULTIPLE STATIONS;0:ONE STATION;^0;5^Q"
^DD(791813,.05,21,0)="^^2^2^2940125^"
^DD(791813,.05,21,1,0)="This field indicates whether or not a field facility wishes to allow"
^DD(791813,.05,21,2,0)="ROES orders to be created for multiple station numbers."
^DD(791813,.05,"DT")="2900718"
^DD(791813,.06,0)="ALLOW MULTIPLE APPROVAL^S^1:ALLOW MULTIPLE APPROVAL;0:DO NOT ALLOW MULTIPLE APPROVAL;^0;6^Q"
^DD(791813,.06,21,0)="^^3^3^2940125^"
^DD(791813,.06,21,1,0)="If the user chooses to allow multiple approval of orders, the"
^DD(791813,.06,21,2,0)="Approving Official will be able to select a group of orders to"
^DD(791813,.06,21,3,0)="approve without reviewing the display screen for each order."
^DD(791813,.06,"DT")="2900725"
^DD(791813,.07,0)="APPROVAL PROCESS^S^S:supervisors only;A:audiologists and supervisors;^0;7^Q"
^DD(791813,.07,21,0)="^^4^4^2940125^"
^DD(791813,.07,21,1,0)="This field indicates whether a station wishes to allow both supervisors"
^DD(791813,.07,21,2,0)="and Audiologists to be able to approve orders or if they only wish to allow"
^DD(791813,.07,21,3,0)="supervisors to have approval privileges.  If no entry is made in this"
^DD(791813,.07,21,4,0)="parameter, only supervisors will be able to approve orders."
^DD(791813,.07,"DT")="2950206"
^DD(791813,.08,0)="ELIGIBILITY EDIT CAPABILITY^S^0:NO EDIT OF DHCP ELIGIBILITY;1:EDIT OF DHCP ELIGIBILITY BY SUPERVISOR;2:EDIT OF DHCP ELIGIBILITY BY ANYONE;^0;8^Q"
^DD(791813,.08,21,0)="^^5^5^2940712^^"
^DD(791813,.08,21,1,0)="This parameter controls users abilities to edit the eligibility for"
^DD(791813,.08,21,2,0)="a patient.  If set to '0', the DHCP eligibility determined from the"
^DD(791813,.08,21,3,0)="database cannot be edited.  If set to '1', the DHCP eligibility can only"
^DD(791813,.08,21,4,0)="be edited by a supervisor.  If set to '2', the DHCP eligibility can be"
^DD(791813,.08,21,5,0)="edited by any user."
^DD(791813,.08,"DT")="2940118"
^DD(791813,.09,0)="DISPLAY ERRORS ON MENU ENTRY^S^0:DO NOT DISPLAY ERRORS;1:DISPLAY ERRORS;^0;9^Q"
^DD(791813,.09,21,0)="^^2^2^2940707^^"
^DD(791813,.09,21,1,0)="If this parameter is set to 'DISPLAY ERRORS', all users signing on to"
^DD(791813,.09,21,2,0)="ROES will see a list of orders in the error status."
^DD(791813,.09,"DT")="2940707"
^DD(791813,.1,0)="ORDER DELIVERY ROUTING^F^^0;10^K:$L(X)>10!($L(X)<3) X"
^DD(791813,.1,3)="Answer must be 3-10 characters in length."
^DD(791813,.1,21,0)="^^3^3^2950501^^"
^DD(791813,.1,21,1,0)="This field contains the free text routing symbol of the service requesting"
^DD(791813,.1,21,2,0)="a regular mail response to correspondence or product delivery from the"
^DD(791813,.1,21,3,0)="DDC."
^DD(791813,.1,"DT")="2901229"
^DD(791813,.11,0)="CERTIFICATION APPROVAL^S^0:ANY USER CAN CERTIFY;1:AUDIOLOGISTS & SUPERVISORS;2:SUPERVISORS ONLY;^0;11^Q"
^DD(791813,.11,21,0)="^^2^2^2941229^"
^DD(791813,.11,21,1,0)="This parameter controls which individuals are allowed to certify Custom"
^DD(791813,.11,21,2,0)="Hearing Aid and Componenet orders."
^DD(791813,.11,"DT")="2941229"
^DD(791813,.12,0)="ISSUE APPROVAL^S^0:ANY USER CAN ISSUE;1:AUDIOLOGISTS & SUPERVISORS;2:SUPERVISORS ONLY;^0;12^Q"
^DD(791813,.12,21,0)="^^2^2^2941229^"
^DD(791813,.12,21,1,0)="This parameter controls which individuals may be entered as the issuing"
^DD(791813,.12,21,2,0)="Audiologist."
^DD(791813,.12,"DT")="2941229"
^DD(791813,.13,0)="PSAS ELIGIBILITY DETERMINATION^S^0:ALLOW REQUESTS TO PSAS;1:DO NOT ALLOW REQUESTS TO PSAS;^0;13^Q"
^DD(791813,.13,21,0)="^^3^3^2950103^"
^DD(791813,.13,21,1,0)="This parameter determines whether electronic requests may be sent to PSAS"
^DD(791813,.13,21,2,0)="for eligibility determinations for patients whose eligibility cannot"
^DD(791813,.13,21,3,0)="be determined from the DHCP patient database."
^DD(791813,.13,"DT")="2950103"
^DD(791813,1.01,0)="# OF DAYS TO SAVE INCOMPLETE^NJ4,0^^1;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,1.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,1.01,21,0)="^^6^6^2940125^"
^DD(791813,1.01,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,1.01,21,2,0)="number of days to retain orders with the status of INCOMPLETE.  This"
^DD(791813,1.01,21,3,0)="field will be checked when the Order Purge routine is run.  If there"
^DD(791813,1.01,21,4,0)="is no entry in this field when the purge routine is run, any order"
^DD(791813,1.01,21,5,0)="with a status of INCOMPLETE that is more than 30 days old will be"
^DD(791813,1.01,21,6,0)="permanently deleted."
^DD(791813,1.01,"DT")="2900725"
^DD(791813,1.02,0)="# OF DAYS TO SAVE DISAPPROVED^NJ4,0^^1;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,1.02,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,1.02,21,0)="^^6^6^2940125^"
^DD(791813,1.02,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,1.02,21,2,0)="number of days to retain orders with the status of DISAPPROVED.  This"
^DD(791813,1.02,21,3,0)="field will be checked when the Order Purge routine is run.  If there"
^DD(791813,1.02,21,4,0)="is no entry in this field when the purge routine is run, any order"
^DD(791813,1.02,21,5,0)="with a status of DISAPPROVED that is more than 30 days old will be"
^DD(791813,1.02,21,6,0)="permanently deleted."
^DD(791813,1.02,"DT")="2900725"
^DD(791813,1.03,0)="# OF DAYS TO SAVE ERRORS^NJ4,0^^1;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,1.03,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,1.03,21,0)="^^6^6^2940125^"
^DD(791813,1.03,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,1.03,21,2,0)="number of days to retain orders with the status of ERROR.  This"
^DD(791813,1.03,21,3,0)="field will be checked when the Order Purge routine is run.  If there"
^DD(791813,1.03,21,4,0)="is no entry in this field when the purge routine is run, any order"
^DD(791813,1.03,21,5,0)="with a status of ERROR that is more than 30 days old will be"
^DD(791813,1.03,21,6,0)="permanently deleted."
^DD(791813,1.03,"DT")="2900725"
^DD(791813,1.04,0)="# OF DAYS TO SAVE COMPLETE^NJ4,0^^1;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,1.04,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,1.04,21,0)="^^6^6^2940125^"
^DD(791813,1.04,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,1.04,21,2,0)="number of days to retain orders with the status of COMPLETE.  This"
^DD(791813,1.04,21,3,0)="field will be checked when the Order Purge routine is run.  If there"
^DD(791813,1.04,21,4,0)="is no entry in this field when the purge routine is run, any order"
^DD(791813,1.04,21,5,0)="with a status of COMPLETE that is more than 30 days old will be"
^DD(791813,1.04,21,6,0)="permanently deleted."
^DD(791813,1.04,"DT")="2900725"
^DD(791813,1.05,0)="# OF DAYS TO SAVE REJECTS^NJ4,0^^1;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,1.05,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,1.05,21,0)="^^6^6^2940628^^^"
^DD(791813,1.05,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,1.05,21,2,0)="number of days to retain orders with the status of REJECT.  This"
^DD(791813,1.05,21,3,0)="field will be checked when the Order Purge routine is run.  If there"
^DD(791813,1.05,21,4,0)="is no entry in this field when the purge routine is run, any order"
^DD(791813,1.05,21,5,0)="with a status of REJECT that is more than 30 days old will be"
^DD(791813,1.05,21,6,0)="permanently deleted."
^DD(791813,1.05,"DT")="2910913"
^DD(791813,1.06,0)="# OF DAYS TO SAVE CANCELS^NJ4,0^^1;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,1.06,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,1.06,21,0)="^^6^6^2940628^^^"
^DD(791813,1.06,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,1.06,21,2,0)="number of days to retain orders with the status of CANCELED.  This"
^DD(791813,1.06,21,3,0)="field will be checked when the Order Purge option is run.  If there is"
^DD(791813,1.06,21,4,0)="no entry in this field when the purge routine is run, any order with"
^DD(791813,1.06,21,5,0)="a status of CANCELED that is more than 30 days old will be permanently"
^DD(791813,1.06,21,6,0)="deleted."
^DD(791813,1.06,"DT")="2940628"
^DD(791813,2.01,0)="EXTENDED CLINIC^P4'^DIC(4,^2;1^Q"
^DD(791813,2.01,21,0)="^^4^4^2910808^"
^DD(791813,2.01,21,1,0)="This field contains the name of the Extended Audiology Clinic for the"
^DD(791813,2.01,21,2,0)="station entering the parameters.  This field will contain the same"
^DD(791813,2.01,21,3,0)="name as the 'STATION' field when the station is an Extended Audiology"
^DD(791813,2.01,21,4,0)="Clinic."
^DD(791813,2.01,"DT")="2910808"
^DD(791813,2.02,0)="EXTENDED CLINIC ROUTING^F^^2;2^K:$L(X)>10!($L(X)<3) X"
^DD(791813,2.02,3)="Answer must be 3-10 characters in length."
^DD(791813,2.02,21,0)="^^2^2^2910808^"
^DD(791813,2.02,21,1,0)="This field will contain the routing symbol to be used when addressing"
^DD(791813,2.02,21,2,0)="mail to the Extended Audiology Clinic."
^DD(791813,2.02,"DT")="2910808"
^DD(791813,2.03,0)="LAST USER TO RUN PURGE^P200'^VA(200,^2;3^Q"
^DD(791813,2.03,21,0)="^^1^1^2950109^"
^DD(791813,2.03,21,1,0)="This is the name of the last user running the purge routine."
^DD(791813,2.03,"DT")="2950109"
^DD(791813,2.04,0)="LAST DATE PURGE WAS RUN^D^^2;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791813,2.04,21,0)="^^1^1^2950109^"
^DD(791813,2.04,21,1,0)="This is the last date and time that the purge routine was run."
^DD(791813,2.04,"DT")="2950109"
^DD(791813,10.02,0)="ALLOW FREE TEXT ADDRESS^S^1:ALLOW FREE TEXT ADDRESS;0:DON'T ALLOW FREE TEXT ADDRESS;^10;2^Q"
^DD(791813,10.02,21,0)="^^7^7^2950501^^^"
^DD(791813,10.02,21,1,0)="If this field is answered 'YES', in the Enter/Edit Patient Orders"
^DD(791813,10.02,21,2,0)="option the user will be asked if a new address should be entered for a"
^DD(791813,10.02,21,3,0)="patient.  If a new address is entered, the new address will be transmitted"
^DD(791813,10.02,21,4,0)="to the DDC for update of the DDC database.  The DHCP patient file at"
^DD(791813,10.02,21,5,0)="the station will not be changed.  The patient should be sent to MAS to"
^DD(791813,10.02,21,6,0)="update the station database.  If 'NO' is entered, the address in the DHCP"
^DD(791813,10.02,21,7,0)="patient file will be used for the order."
^DD(791813,10.02,"DT")="2931129"
^DD(791813,10.03,0)="TRANSMISSION QUEUE OPTIONS^S^I:immediate queue of batch;S:standard queue time for batch;C:choose queue time for batch;A:auto-queue of batch;^10;3^Q"
^DD(791813,10.03,21,0)="^^9^9^2950501^^"
^DD(791813,10.03,21,1,0)="This parameter controls the queue time of r transmission batches.  I an "
^DD(791813,10.03,21,2,0)="'I' is entered, batches will be queued for transmission immediately upon"
^DD(791813,10.03,21,3,0)="closing.  If an 'S' is chosen, the user will be asked to set a parameter"
^DD(791813,10.03,21,4,0)="defining the time of day for queueing transmission batches.  If a 'C' is"
^DD(791813,10.03,21,5,0)="entered, the user closing a batch will be asked for a date and time to"
^DD(791813,10.03,21,6,0)="queue the batch.  If an 'A' is entered, the batch will be queued auto-"
^DD(791813,10.03,21,7,0)="matically every day at the time set in the parameter 'Standard Queue"
^DD(791813,10.03,21,8,0)="Time for Batch'.  If no entry is made in this field, immediate queueing"
^DD(791813,10.03,21,9,0)="will be assumed."
^DD(791813,10.03,"DT")="2950206"
^DD(791813,10.04,0)="STANDARD QUEUE TIME FOR BATCH^D^^10;4^S %DT=""ETXR"" D ^%DT S X=Y K:Y<1 X"
^DD(791813,10.04,21,0)="^^4^4^2950501^^"
^DD(791813,10.04,21,1,0)="If the ADPAC has chosen to set a standard time for queueing of transmission"
^DD(791813,10.04,21,2,0)="batches to the DDC, this field should hold the time of day for that"
^DD(791813,10.04,21,3,0)="transmission.  Any batches that have been closed will automatically be"
^DD(791813,10.04,21,4,0)="queued for transmission every day at this time."
^DD(791813,10.04,"DT")="2931129"
^DD(791813,10.05,0)="MULTIPLE STATION ORDERS^S^1:MULITPLE STATIONS;0:ONE STATION;^10;5^Q"
^DD(791813,10.05,21,0)="^^2^2^2940712^^"
^DD(791813,10.05,21,1,0)="This field indicates whether or not a facility wishes to allow ROES"
^DD(791813,10.05,21,2,0)="orders to be created for multiple station numbers."
^DD(791813,10.05,"DT")="2931129"
^DD(791813,10.06,0)="ALLOW MULTIPLE APPROVAL^S^0:DO NOT REQUIRE APPROVAL OF ORDERS;1:REQUIRE APPROVAL OF ORDERS;2:REQUIRE APPROVAL AND ALLOW MULTIPLE APPROVAL;^10;6^Q"
^DD(791813,10.06,21,0)="^^3^3^2940712^"
^DD(791813,10.06,21,1,0)="If the user chooses to allow multiple approval of orders, the Approving"
^DD(791813,10.06,21,2,0)="Official will be able to select a group of orders to approve without"
^DD(791813,10.06,21,3,0)="reviewing the display screen for each order."
^DD(791813,10.06,"DT")="2940621"
^DD(791813,10.07,0)="APPROVAL PROCESS^S^S:supervisors only;A:all PSAS staff;N:no approval required;^10;7^Q"
^DD(791813,10.07,21,0)="^^4^4^2940712^"
^DD(791813,10.07,21,1,0)="This field indicates whether a station wished to allow both supervisors"
^DD(791813,10.07,21,2,0)="and Audiologists to be able to approve orders or if they only wish to"
^DD(791813,10.07,21,3,0)="allow supervisors to have approval privileges.  If no entry is made in"
^DD(791813,10.07,21,4,0)="this parameter, only supervisors will be able to approve orders."
^DD(791813,10.07,"DT")="2950206"
^DD(791813,10.08,0)="ELIGIBILITY EDIT CAPABILITY^S^0:NO EDIT OF DHCP ELIGIBILITY;1:EDIT OF DHPC ELIGIBILITY BY SUPERVISOR;2:EDIT OF DHCP ELIGIBILITY BY ANYONE;^10;8^Q"
^DD(791813,10.08,21,0)="^^5^5^2940712^"
^DD(791813,10.08,21,1,0)="This parameter controls users abilities to edit the eligibility for"
^DD(791813,10.08,21,2,0)="a patient.  If set to '0', the DHCP eligibility determined from the"
^DD(791813,10.08,21,3,0)="database cannot be edited.  If set to '1', the DHCP eligibility can only"
^DD(791813,10.08,21,4,0)="be edited by a supervisor.  If set to '2', the DHCP eligibility can be"
^DD(791813,10.08,21,5,0)="edited by any user."
^DD(791813,10.08,"DT")="2940118"
^DD(791813,10.09,0)="DISPLAY ERRORS ON MENU ENTRY^S^0:DO NOT DISPLAY ERRORS;1:DISPLAY ERRORS;^10;9^Q"
^DD(791813,10.09,21,0)="^^2^2^2940712^^"
^DD(791813,10.09,21,1,0)="If this parameter is set to 'DISPLAY ERRORS', all users signing on to"
^DD(791813,10.09,21,2,0)="ROES will see a list of orders in the error status."
^DD(791813,10.09,"DT")="2940707"
^DD(791813,10.1,0)="ORDER DELIVERY ROUTING^F^^10;10^K:$L(X)>10!($L(X)<3) X"
^DD(791813,10.1,3)="Answer must be 3-10 characters in length."
^DD(791813,10.1,21,0)="^^3^3^2950501^^"
^DD(791813,10.1,21,1,0)="This field contains the free text routing symbol of the service requesting"
^DD(791813,10.1,21,2,0)="a regular mail response to correspondence or product delivery from the"
^DD(791813,10.1,21,3,0)="DDC."
^DD(791813,10.1,"DT")="2940118"
^DD(791813,11.01,0)="# OF DAYS TO SAVE INCOMPLETE^NJ4,0^^11;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,11.01,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,11.01,21,0)="^^6^6^2940712^^"
^DD(791813,11.01,21,1,0)="A numeric value from 1 to 9999 enterd into this field will determine the"
^DD(791813,11.01,21,2,0)="number of days to retain orders with the status of INCOMPLETE.  This"
^DD(791813,11.01,21,3,0)="field will be checked when the Order Purge routine is run.  If there"
^DD(791813,11.01,21,4,0)="is no entry in this field when the purge routine is run, any order with a"
^DD(791813,11.01,21,5,0)="status of INCOMPLETE that is more than 30 days old will be permanently"
^DD(791813,11.01,21,6,0)="deleted."
^DD(791813,11.01,"DT")="2931129"
^DD(791813,11.02,0)="# OF DAYS TO SAVE DISAPPROVED^NJ4,0^^11;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,11.02,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,11.02,21,0)="^^5^5^2940712^"
^DD(791813,11.02,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine"
^DD(791813,11.02,21,2,0)="the number of days to retain orders with the status of COMPLETE.  This"
^DD(791813,11.02,21,3,0)="field will be checked when the Order Purge routine is run.  If there is no"
^DD(791813,11.02,21,4,0)="entry in this field when the purge routine is run, any order with a status"
^DD(791813,11.02,21,5,0)="of COMPLETE that is more than 30 days old will be permanently deleted."
^DD(791813,11.02,"DT")="2931129"
^DD(791813,11.03,0)="# OF DAYS TO SAVE ERRORS^NJ4,0^^11;3^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,11.03,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,11.03,21,0)="^^5^5^2940712^"
^DD(791813,11.03,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,11.03,21,2,0)="number of days to retain orders with the status of ERROR.  This field"
^DD(791813,11.03,21,3,0)="will be checked when the Order Purge routine is run.  If there is no entry"
^DD(791813,11.03,21,4,0)="in this field when the purge routine is run, any order with a status of"
^DD(791813,11.03,21,5,0)="ERROR that is more than 30 days old will be permanently deleted."
^DD(791813,11.03,"DT")="2931129"
^DD(791813,11.04,0)="# OF DAYS TO SAVE COMPLETE^NJ4,0^^11;4^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,11.04,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,11.04,21,0)="^^5^5^2940712^^"
^DD(791813,11.04,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,11.04,21,2,0)="number of days to reatin orders with the status of COMPLETE.  This field"
^DD(791813,11.04,21,3,0)="will be checked when the Order Purge routine is run.  If there is no entry"
^DD(791813,11.04,21,4,0)="in this field when the purge routine is run, any order with a status of"
^DD(791813,11.04,21,5,0)="COMPLETE that is more than 30 days old will be permanently deleted."
^DD(791813,11.04,"DT")="2931129"
^DD(791813,11.05,0)="# OF DAYS TO SAVE REJECTS^NJ4,0^^11;5^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,11.05,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,11.05,21,0)="^^5^5^2940712^"
^DD(791813,11.05,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,11.05,21,2,0)="number of days to retain orders with the status of REJECT.  This field"
^DD(791813,11.05,21,3,0)="will be checked when the Order Purge routine is run.  If there is no entry"
^DD(791813,11.05,21,4,0)="in this field when the purge routine is run, any order with a status of"
^DD(791813,11.05,21,5,0)="REJECT that is more than 30 days old will be permanently deleted."
^DD(791813,11.05,"DT")="2931129"
^DD(791813,11.06,0)="# OF DAYS TO SAVE CANCELS^NJ4,0^^11;6^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(791813,11.06,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(791813,11.06,21,0)="^^6^6^2940628^"
^DD(791813,11.06,21,1,0)="A numeric value from 1 to 9999 entered into this field will determine the"
^DD(791813,11.06,21,2,0)="number of days to retain orders with the status of CANCELED.  This"
^DD(791813,11.06,21,3,0)="field will be checked when the Order Purge option is run.  If there is"
^DD(791813,11.06,21,4,0)="no entry in this field when the purge routine is run, any order with"
^DD(791813,11.06,21,5,0)="a status of CANCELED that is more than 30 days old will be permanently"
^DD(791813,11.06,21,6,0)="deleted."
^DD(791813,11.06,"DT")="2940628"
^DD(791813,101,0)="STAFF DESIGNATION^791813.0101P^^101;0"
^DD(791813,101,21,0)="^^2^2^2931129^"
^DD(791813,101,21,1,0)="This multiple field contains a list of users who have been given"
^DD(791813,101,21,2,0)="designation as an Audiologist."
^DD(791813,101,"DT")="2910217"
^DD(791813,"B","# OF DAYS TO SAVE CANCELS",1.06)=""
^DD(791813,"B","# OF DAYS TO SAVE CANCELS",11.06)=""
^DD(791813,"B","# OF DAYS TO SAVE COMPLETE",1.04)=""
^DD(791813,"B","# OF DAYS TO SAVE COMPLETE",11.04)=""
^DD(791813,"B","# OF DAYS TO SAVE DISAPPROVED",1.02)=""
^DD(791813,"B","# OF DAYS TO SAVE DISAPPROVED",11.02)=""
^DD(791813,"B","# OF DAYS TO SAVE ERRORS",1.03)=""
^DD(791813,"B","# OF DAYS TO SAVE ERRORS",11.03)=""
^DD(791813,"B","# OF DAYS TO SAVE INCOMPLETE",1.01)=""
^DD(791813,"B","# OF DAYS TO SAVE INCOMPLETE",11.01)=""
^DD(791813,"B","# OF DAYS TO SAVE REJECTS",1.05)=""
^DD(791813,"B","# OF DAYS TO SAVE REJECTS",11.05)=""
^DD(791813,"B","ALLOW FREE TEXT ADDRESS",.02)=""
^DD(791813,"B","ALLOW FREE TEXT ADDRESS",10.02)=""
^DD(791813,"B","ALLOW MULTIPLE APPROVAL",.06)=""
^DD(791813,"B","ALLOW MULTIPLE APPROVAL",10.06)=""
^DD(791813,"B","APPROVAL PROCESS",.07)=""
^DD(791813,"B","APPROVAL PROCESS",10.07)=""
^DD(791813,"B","CERTIFICATION APPROVAL",.11)=""
^DD(791813,"B","DISPLAY ERRORS ON MENU ENTRY",.09)=""
^DD(791813,"B","DISPLAY ERRORS ON MENU ENTRY",10.09)=""
^DD(791813,"B","ELIGIBILITY EDIT CAPABILITY",.08)=""
^DD(791813,"B","ELIGIBILITY EDIT CAPABILITY",10.08)=""
^DD(791813,"B","EXTENDED CLINIC",2.01)=""
^DD(791813,"B","EXTENDED CLINIC ROUTING",2.02)=""
^DD(791813,"B","ISSUE APPROVAL",.12)=""
^DD(791813,"B","LAST DATE PURGE WAS RUN",2.04)=""
^DD(791813,"B","LAST USER TO RUN PURGE",2.03)=""
^DD(791813,"B","MULTIPLE STATION ORDERS",.05)=""
^DD(791813,"B","MULTIPLE STATION ORDERS",10.05)=""
^DD(791813,"B","ORDER DELIVERY ROUTING",.1)=""
^DD(791813,"B","ORDER DELIVERY ROUTING",10.1)=""
^DD(791813,"B","PSAS ELIGIBILITY DETERMINATION",.13)=""
^DD(791813,"B","STAFF DESIGNATION",101)=""
^DD(791813,"B","STANDARD QUEUE TIME FOR BATCH",.04)=""
^DD(791813,"B","STANDARD QUEUE TIME FOR BATCH",10.04)=""
^DD(791813,"B","STATION",.01)=""
^DD(791813,"B","TRANSMISSION QUEUE OPTIONS",.03)=""
^DD(791813,"B","TRANSMISSION QUEUE OPTIONS",10.03)=""
^DD(791813,"GL",0,1,.01)=""
^DD(791813,"GL",0,2,.02)=""
^DD(791813,"GL",0,3,.03)=""
^DD(791813,"GL",0,4,.04)=""
^DD(791813,"GL",0,5,.05)=""
^DD(791813,"GL",0,6,.06)=""
^DD(791813,"GL",0,7,.07)=""
^DD(791813,"GL",0,8,.08)=""
^DD(791813,"GL",0,9,.09)=""
^DD(791813,"GL",0,10,.1)=""
^DD(791813,"GL",0,11,.11)=""
^DD(791813,"GL",0,12,.12)=""
^DD(791813,"GL",0,13,.13)=""
^DD(791813,"GL",1,1,1.01)=""
^DD(791813,"GL",1,2,1.02)=""
^DD(791813,"GL",1,3,1.03)=""
^DD(791813,"GL",1,4,1.04)=""
^DD(791813,"GL",1,5,1.05)=""
^DD(791813,"GL",1,6,1.06)=""
^DD(791813,"GL",2,1,2.01)=""
^DD(791813,"GL",2,2,2.02)=""
^DD(791813,"GL",2,3,2.03)=""
^DD(791813,"GL",2,4,2.04)=""
^DD(791813,"GL",10,2,10.02)=""
^DD(791813,"GL",10,3,10.03)=""
^DD(791813,"GL",10,4,10.04)=""
^DD(791813,"GL",10,5,10.05)=""
^DD(791813,"GL",10,6,10.06)=""
^DD(791813,"GL",10,7,10.07)=""
^DD(791813,"GL",10,8,10.08)=""
^DD(791813,"GL",10,9,10.09)=""
^DD(791813,"GL",10,10,10.1)=""
^DD(791813,"GL",11,1,11.01)=""
^DD(791813,"GL",11,2,11.02)=""
^DD(791813,"GL",11,3,11.03)=""
^DD(791813,"GL",11,4,11.04)=""
^DD(791813,"GL",11,5,11.05)=""
^DD(791813,"GL",11,6,11.06)=""
^DD(791813,"GL",101,0,101)=""
^DD(791813,"IX",.01)=""
^DD(791813,"RQ",.01)=""
^DD(791813,"SB",791813.0101,101)=""
^DD(791813.0101,0)="STAFF DESIGNATION SUB-FIELD^^.03^2"
^DD(791813.0101,0,"DT")="2910217"
^DD(791813.0101,0,"IX","B",791813.0101,.01)=""
^DD(791813.0101,0,"NM","STAFF DESIGNATION")=""
^DD(791813.0101,0,"UP")="791813"
^DD(791813.0101,.01,0)="STAFF MEMBER^MP200'X^VA(200,^0;1^S:$D(X) DINUM=X Q"
^DD(791813.0101,.01,1,0)="^.1^^-1"
^DD(791813.0101,.01,1,1,0)="791813.0101^B"
^DD(791813.0101,.01,1,1,1)="S ^RMPF(791813,DA(1),101,""B"",$E(X,1,30),DA)="""""
^DD(791813.0101,.01,1,1,2)="K ^RMPF(791813,DA(1),101,""B"",$E(X,1,30),DA)"
^DD(791813.0101,.01,1,1,"%D",0)="^^1^1^2910924^"
^DD(791813.0101,.01,1,1,"%D",1,0)="Standard name cross-reference."
^DD(791813.0101,.01,21,0)="^^2^2^2910524^"
^DD(791813.0101,.01,21,1,0)="This is a pointer to the New Person File for the staff member to receive"
^DD(791813.0101,.01,21,2,0)="staff designation."
^DD(791813.0101,.01,"DT")="2910217"
^DD(791813.0101,.03,0)="AUDIOLOGIST^S^0:NOT AN AUDIOLOGIST;1:AUDIOLOGIST;^0;3^Q"
^DD(791813.0101,.03,21,0)="^^2^2^2910524^"
^DD(791813.0101,.03,21,1,0)="This field indicates whether or not the staff member has been designated"
^DD(791813.0101,.03,21,2,0)="as an Audiologist."
^DD(791813.0101,.03,"DT")="2910217"
^DD(791813.0101,"B","AUDIOLOGIST",.03)=""
^DD(791813.0101,"B","STAFF MEMBER",.01)=""
^DD(791813.0101,"GL",0,1,.01)=""
^DD(791813.0101,"GL",0,3,.03)=""
^DD(791813.0101,"IX",.01)=""
^DD(791814,0)="FIELD^^2.04^10"
^DD(791814,0,"DDA")="N"
^DD(791814,0,"DT")="3030212"
^DD(791814,0,"IX","B",791814,.01)=""
^DD(791814,0,"IX","C",791814,2.02)=""
^DD(791814,0,"IX","D",791814,.04)=""
^DD(791814,0,"NM","ROES ELIGIBILITY CONFIRMATION")=""
^DD(791814,0,"VR")="3.0"
^DD(791814,0,"VRPK")="ROES"
^DD(791814,.01,0)="PATIENT^RP2'^DPT(^0;1^Q"
^DD(791814,.01,.1)="PATIENT NAME"
^DD(791814,.01,1,0)="^.1"
^DD(791814,.01,1,1,0)="791814^B"
^DD(791814,.01,1,1,1)="S ^RMPF(791814,""B"",$E(X,1,30),DA)="""""
^DD(791814,.01,1,1,2)="K ^RMPF(791814,""B"",$E(X,1,30),DA)"
^DD(791814,.01,3)=""
^DD(791814,.01,21,0)="^.001^1^1^3030212^^"
^DD(791814,.01,21,1,0)="Pointer to the PATIENT file at the facility where file kept."
^DD(791814,.01,23,0)="^.001^1^1^3030212^^"
^DD(791814,.01,23,1,0)="Maintains the pointer to the record in the PATIENT (#2) FILE."
^DD(791814,.01,"DT")="3030729"
^DD(791814,.02,0)="DATE REQUEST ENTERED^D^^0;2^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791814,.02,21,0)="^.001^3^3^3030212^^^"
^DD(791814,.02,21,1,0)="This is the date the request is entered.  It is to"
^DD(791814,.02,21,2,0)="be filled in automatically by the program entering the"
^DD(791814,.02,21,3,0)="request."
^DD(791814,.02,"DT")="3030729"
^DD(791814,.03,0)="ENTERING USER (ASPS)^P200'^VA(200,^0;3^Q"
^DD(791814,.03,3)=""
^DD(791814,.03,21,0)="^.001^2^2^3030212^^^^"
^DD(791814,.03,21,1,0)="This is the person entering the request for the eligibility confirmation."
^DD(791814,.03,21,2,0)="Usually this person will be an Audiologist."
^DD(791814,.03,23,0)="^.001^6^6^3030212^^^^"
^DD(791814,.03,23,1,0)="This field is filled in automatically by the ROES3 program when"
^DD(791814,.03,23,2,0)="a user accesses CPRS Tools to connect to the DDC for a patient"
^DD(791814,.03,23,3,0)="order, and the system cannot determine an acceptable eligibility,"
^DD(791814,.03,23,4,0)="or one that PSAS requires to be approved by them."
^DD(791814,.03,23,5,0)="It is used in the GUI application and in the messages sent"
^DD(791814,.03,23,6,0)="to PSAS and ASPS about the request."
^DD(791814,.03,"DT")="3030212"
^DD(791814,.04,0)="EXPIRATION DATE^D^^0;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791814,.04,1,0)="^.1"
^DD(791814,.04,1,1,0)="791814^D"
^DD(791814,.04,1,1,1)="S ^RMPF(791814,""D"",$E(X,1,30),DA)="""""
^DD(791814,.04,1,1,2)="K ^RMPF(791814,""D"",$E(X,1,30),DA)"
^DD(791814,.04,1,1,"%D",0)="^^1^1^3030212^"
^DD(791814,.04,1,1,"%D",1,0)="Keeps a sorted list of expiration dates for facilitation of purging."
^DD(791814,.04,1,1,"DT")="3030212"
^DD(791814,.04,3)=""
^DD(791814,.04,21,0)="^.001^1^1^3030212^^^"
^DD(791814,.04,21,1,0)="This is the date that the request or approval will expire."
^DD(791814,.04,"DT")="3030212"
^DD(791814,1.01,0)="SUGGESTED ELIGIBILITY^F^^1;1^K:$L(X)>3!($L(X)<2) X"
^DD(791814,1.01,3)=""
^DD(791814,1.01,21,0)="^.001^3^3^3030212^^"
^DD(791814,1.01,21,1,0)="This is the eligibility code that the entering user suggests."
^DD(791814,1.01,21,2,0)="It will be seen by the PSAS user from the menu option RMPFDE2"
^DD(791814,1.01,21,3,0)="that displays eligibilities waiting for approval."
^DD(791814,1.01,"DT")="3030212"
^DD(791814,1.02,0)="EMAIL MSG NUMBER^P3.9'^XMB(3.9,^1;2^Q"
^DD(791814,1.02,3)=""
^DD(791814,1.02,21,0)="^.001^1^1^3030212^^^^"
^DD(791814,1.02,21,1,0)="This is the internal number of the message sent to PSAS"
^DD(791814,1.02,23,0)="^.001^4^4^3030212^^^"
^DD(791814,1.02,23,1,0)="Pointer to the MESSAGE file (#3.9)"
^DD(791814,1.02,23,2,0)="It is used by option RMPFDE2 to get and display the additional"
^DD(791814,1.02,23,3,0)="text that ASPS entered to assist in making the eligibility"
^DD(791814,1.02,23,4,0)="determination."
^DD(791814,1.02,"DT")="3030212"
^DD(791814,2.01,0)="PSAS ELIGIBILITY^F^^2;1^K:$L(X)>3!($L(X)<2) X"
^DD(791814,2.01,3)=""
^DD(791814,2.01,21,0)="^.001^2^2^3030212^^^"
^DD(791814,2.01,21,1,0)="THIS IS THE ELIGIBILITY CODE THAT PSAS SELECTS TO APPROVE"
^DD(791814,2.01,21,2,0)="IT MAY OR MAY NOT BE THE SAME AS THE ONE SUGGESTED BY ASPS"
^DD(791814,2.01,23,0)="^.001^4^4^3030212^^"
^DD(791814,2.01,23,1,0)="This is the eligibility code approved or chosen by PSAS"
^DD(791814,2.01,23,2,0)="from the menu option RMPFDE2.  It may or may not be the"
^DD(791814,2.01,23,3,0)="same as the one suggested by ASPS. It may also be blank"
^DD(791814,2.01,23,4,0)="in the cases of eligibility denial."
^DD(791814,2.01,"DT")="3030212"
^DD(791814,2.02,0)="APPROVE/REJECT^S^0:REJECTED;1:APPROVED;2:WAITING;^2;2^Q"
^DD(791814,2.02,.1)="ACCEPT/DENY"
^DD(791814,2.02,1,0)="^.1"
^DD(791814,2.02,1,1,0)="791814^C"
^DD(791814,2.02,1,1,1)="S ^RMPF(791814,""C"",$E(X,1,30),DA)="""""
^DD(791814,2.02,1,1,2)="K ^RMPF(791814,""C"",$E(X,1,30),DA)"
^DD(791814,2.02,1,1,"%D",0)="^.101^2^2^3030212^^"
^DD(791814,2.02,1,1,"%D",1,0)="This cross-reference is set to facilitate the VistA menu option: RMPFDE2"
^DD(791814,2.02,1,1,"%D",2,0)="used for PSAS to loop through the 2's to evaluate the eligibility request."
^DD(791814,2.02,1,1,"DT")="3030212"
^DD(791814,2.02,21,0)="^.001^3^3^3030212^^^^"
^DD(791814,2.02,21,1,0)="""0"" SHOWS THE REQUEST IS REJECTED"
^DD(791814,2.02,21,2,0)="""1"" SHOWS THE REQUEST IS APPROVED"
^DD(791814,2.02,21,3,0)="""2"" SHOWS WAITING FOR ACTION"
^DD(791814,2.02,23,0)="^.001^5^5^3030212^^^^"
^DD(791814,2.02,23,1,0)="Program RMPFDE2 puts in 1 if the request is approved"
^DD(791814,2.02,23,2,0)="or if PSAS selects another eligibility to approve."
^DD(791814,2.02,23,3,0)="The program puts in a 0 if the request is rejected."
^DD(791814,2.02,23,4,0)="Having a 2 indicates that the request has not"
^DD(791814,2.02,23,5,0)="been acted on yet."
^DD(791814,2.02,"DT")="3030212"
^DD(791814,2.03,0)="USER (PSAS)^P200'^VA(200,^2;3^Q"
^DD(791814,2.03,3)=""
^DD(791814,2.03,21,0)="^.001^2^2^3030212^^^"
^DD(791814,2.03,21,1,0)="THIS IS THE NAME OF THE PERSON ACTING ON THE REQUEST."
^DD(791814,2.03,21,2,0)="USUALLY A PERSON FROM PSAS, IN AN OFFICIAL STATUS."
^DD(791814,2.03,"DT")="3030212"
^DD(791814,2.04,0)="ACTION DATE^D^^2;4^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(791814,2.04,3)=""
^DD(791814,2.04,21,0)="^.001^1^1^3030212^^^^"
^DD(791814,2.04,21,1,0)="This is the date that the PSAS official acted on the request"
^DD(791814,2.04,23,0)="^.001^4^4^3030212^^^"
^DD(791814,2.04,23,1,0)="This field is used in messages that display when a request"
^DD(791814,2.04,23,2,0)="was acted on. It is also referenced in the GUI application"
^DD(791814,2.04,23,3,0)="ROES3.EXE to display the status of a prior request for approval"
^DD(791814,2.04,23,4,0)="of a patient's eligibility."
^DD(791814,2.04,"DT")="3030212"
^DD(791814,"B","ACCEPT/DENY",2.02)="1"
^DD(791814,"B","ACTION DATE",2.04)=""
^DD(791814,"B","APPROVE/REJECT",2.02)=""
^DD(791814,"B","DATE REQUEST ENTERED",.02)=""
^DD(791814,"B","EMAIL MSG NUMBER",1.02)=""
^DD(791814,"B","ENTERING USER (ASPS)",.03)=""
^DD(791814,"B","EXPIRATION DATE",.04)=""
^DD(791814,"B","PATIENT",.01)=""
^DD(791814,"B","PATIENT NAME",.01)="1"
^DD(791814,"B","PSAS ELIGIBILITY",2.01)=""
^DD(791814,"B","SUGGESTED ELIGIBILITY",1.01)=""
^DD(791814,"B","USER (PSAS)",2.03)=""
^DD(791814,"GL",0,1,.01)=""
^DD(791814,"GL",0,2,.02)=""
^DD(791814,"GL",0,3,.03)=""
^DD(791814,"GL",0,4,.04)=""
^DD(791814,"GL",1,1,1.01)=""
^DD(791814,"GL",1,2,1.02)=""
^DD(791814,"GL",2,1,2.01)=""
^DD(791814,"GL",2,2,2.02)=""
^DD(791814,"GL",2,3,2.03)=""
^DD(791814,"GL",2,4,2.04)=""
^DD(791814,"IX",.01)=""
^DD(791814,"IX",.04)=""
^DD(791814,"IX",2.02)=""
^DD(791814,"RQ",.01)=""
^DD(9000001,0)="FIELD^^4101^3"
^DD(9000001,0,"ACT")="D ^AUPNPAT"
^DD(9000001,0,"DDA")="N"
^DD(9000001,0,"DIC")="DPTLK"
^DD(9000001,0,"DT")="2940424"
^DD(9000001,0,"IX","B",9000001,.01)=""
^DD(9000001,0,"IX","D",9000001.41,.02)=""
^DD(9000001,0,"NM","PATIENT/IHS")=""
^DD(9000001,0,"PT",839.01,.02)=""
^DD(9000001,0,"PT",8925,.02)=""
^DD(9000001,0,"PT",9000010,.05)=""
^DD(9000001,0,"PT",9000010.06,.02)=""
^DD(9000001,0,"PT",9000010.07,.02)=""
^DD(9000001,0,"PT",9000010.11,.02)=""
^DD(9000001,0,"PT",9000010.12,.02)=""
^DD(9000001,0,"PT",9000010.13,.02)=""
^DD(9000001,0,"PT",9000010.15,.02)=""
^DD(9000001,0,"PT",9000010.16,.02)=""
^DD(9000001,0,"PT",9000010.18,.02)=""
^DD(9000001,0,"PT",9000010.23,.02)=""
^DD(9000001,0,"PT",9000011,.02)=""
^DD(9000001,0,"SCR")="X ""I '$P(^DPT(Y,0),U,19)"" W $E(^AUPNPAT(Y,0),0)"
^DD(9000001,.01,0)="NAME^RP2'X^DPT(^0;1^S:$D(X) DINUM=X"
^DD(9000001,.01,1,0)="^.1^^-1"
^DD(9000001,.01,1,1,0)="9000001^B"
^DD(9000001,.01,1,1,1)="S ^AUPNPAT(""B"",$E(X,1,30),DA)="""""
^DD(9000001,.01,1,1,2)="K ^AUPNPAT(""B"",$E(X,1,30),DA)"
^DD(9000001,.01,10)="011/PINAME"
^DD(9000001,.01,21,0)="^^3^3^2960809^^^^"
^DD(9000001,.01,21,1,0)="This field points to the Patient file (#2) and has the same internal"
^DD(9000001,.01,21,2,0)="number as that file.  Thus, the patient's name is the Patient file (#2)"
^DD(9000001,.01,21,3,0)="name."
^DD(9000001,.01,23,0)="^^6^6^2960809^^^"
^DD(9000001,.01,23,1,0)="This field is populated in the VA when a new patient is added to the ^DPT "
^DD(9000001,.01,23,2,0)="file by the PX09 cross-reference on the Social Security Number (.09) field "
^DD(9000001,.01,23,3,0)="of ^DPT."
^DD(9000001,.01,23,4,0)="  "
^DD(9000001,.01,23,5,0)="Any merging of patients in ^DPT by a VAMC should include this PATIENT/IHS  "
^DD(9000001,.01,23,6,0)="file in its merging process."
^DD(9000001,.01,"DEL",.01,0)="I 1"
^DD(9000001,.01,"DT")="2900929"
^DD(9000001,1201,0)="LOCATION OF HOME^9000001.12^^12;0"
^DD(9000001,1201,21,0)="^^1^1^2960809^^"
^DD(9000001,1201,21,1,0)="This is the directions to get to the patients home."
^DD(9000001,4101,0)="HEALTH RECORD NO.^9000001.41IPA^^41;0"
^DD(9000001,4101,21,0)="^^4^4^2940122^^^"
^DD(9000001,4101,21,1,0)="This multiple contains the different health record identifiers by facility."
^DD(9000001,4101,21,2,0)="IHS uses a 6 character identifier."
^DD(9000001,4101,21,3,0)="The VA uses the social security number which may be up to 10 "
^DD(9000001,4101,21,4,0)="characters.  "
^DD(9000001,4101,23,0)="^^2^2^2940122^^^"
^DD(9000001,4101,23,1,0)="This multiple is used for Multi-Facility Integration (MFI) processing"
^DD(9000001,4101,23,2,0)="at IHS facilities."
^DD(9000001,"B","HEALTH RECORD NO.",4101)=""
^DD(9000001,"B","LOCATION OF HOME",1201)=""
^DD(9000001,"B","NAME",.01)=""
^DD(9000001,"GL",0,1,.01)=""
^DD(9000001,"GL",12,0,1201)=""
^DD(9000001,"GL",41,0,4101)=""
^DD(9000001,"IX",.01)=""
^DD(9000001,"RQ",.01)=""
^DD(9000001,"SB",9000001.12,1201)=""
^DD(9000001,"SB",9000001.41,4101)=""
^DD(9000001.12,0)="LOCATION OF HOME SUB-FIELD^^.01^1"
^DD(9000001.12,0,"DT")="2940424"
^DD(9000001.12,0,"NM","LOCATION OF HOME")=""
^DD(9000001.12,0,"UP")="9000001"
^DD(9000001.12,.01,0)="LOCATION OF HOME^W^^0;1^Q"
^DD(9000001.12,.01,3)="Enter the directions to get to the patients home."
^DD(9000001.12,.01,21,0)="^^1^1^2960809^^"
^DD(9000001.12,.01,21,1,0)="This is the directions to get to the patients home."
^DD(9000001.12,.01,"DT")="2940424"
^DD(9000001.12,"B","LOCATION OF HOME",.01)=""
^DD(9000001.12,"GL",0,1,.01)=""
^DD(9000001.41,0)="HEALTH RECORD NO. SUB-FIELD^NL^.06^5"
^DD(9000001.41,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(9000001.41,0,"NM","HEALTH RECORD NO.")=""
^DD(9000001.41,0,"UP")="9000001"
^DD(9000001.41,.01,0)="HEALTH RECORD FAC^P9999999.06'X^AUTTLOC(^0;1^S DINUM=X"
^DD(9000001.41,.01,1,0)="^.1^^0"
^DD(9000001.41,.01,3)="ENTER NAME OF FACILITY ASSOCIATED WITH THE HEALTH RECORD NUMBER YOU WISH TO ENTER."
^DD(9000001.41,.01,10)="015/HRSUBR"
^DD(9000001.41,.01,21,0)="^6^6^6^2940122^^^^"
^DD(9000001.41,.01,21,1,0)="This field is a pointer to the LOCATION file.  The internal pointer"
^DD(9000001.41,.01,21,2,0)="is forced into the third subscript for the 9000001.41 subfile.  This"
^DD(9000001.41,.01,21,3,0)="allows easy lookup by health record number for the logged on"
^DD(9000001.41,.01,21,4,0)="location (facility)."
^DD(9000001.41,.01,21,5,0)=" "
^DD(9000001.41,.01,21,6,0)="The complete subscript for 9000001.41 will be (DFN,41,facility pointer,0)."
^DD(9000001.41,.01,23,0)="^^3^3^2940122^^^"
^DD(9000001.41,.01,23,1,0)="In the VA, the Kernel Site Parameters DEFAULT INSTITUTION field is used"
^DD(9000001.41,.01,23,2,0)="to populate this field.  This was used instead of the users institution"
^DD(9000001.41,.01,23,3,0)="because of regional users ability to add patients to the VA."
^DD(9000001.41,.01,"DT")="2910307"
^DD(9000001.41,.02,0)="HEALTH RECORD NO.^RFX^^0;2^I $G(DUZ(""AG""))=""I"" K:(X'?1.6N&(X'?1""T""5N))!(X?1.6N&(X'=+X)) X"
^DD(9000001.41,.02,1,0)="^.1"
^DD(9000001.41,.02,1,1,0)="9000001^D"
^DD(9000001.41,.02,1,1,1)="S ^AUPNPAT(""D"",$E(X,1,30),DA(1),DA)="""""
^DD(9000001.41,.02,1,1,2)="K ^AUPNPAT(""D"",$E(X,1,30),DA(1),DA)"
^DD(9000001.41,.02,3)="ENTER TEXT FROM 1 TO 10 CHARACTERS."
^DD(9000001.41,.02,10)="015/HRNUMB"
^DD(9000001.41,.02,21,0)="^^6^6^2940122^^"
^DD(9000001.41,.02,21,1,0)="This field is used to represent the health record number related to a"
^DD(9000001.41,.02,21,2,0)="facility."
^DD(9000001.41,.02,21,3,0)=" "
^DD(9000001.41,.02,21,4,0)="IHS uses a 6 character whole number."
^DD(9000001.41,.02,21,5,0)=" "
^DD(9000001.41,.02,21,6,0)="VA uses the patient SSN from the Patient File (2)."
^DD(9000001.41,.02,23,0)="^^2^2^2940122^^"
^DD(9000001.41,.02,23,1,0)="In the VA, this field is populated by the PX09 cross-reference on the "
^DD(9000001.41,.02,23,2,0)="SSN (.09) field of the Patient File (2)."
^DD(9000001.41,.02,"DT")="2880524"
^DD(9000001.41,.03,0)="DATE INACTIVATED/DELETED^D^^0;3^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000001.41,.03,21,0)="^^1^1^2940122^^"
^DD(9000001.41,.03,21,1,0)="This is date that the patients entry was inactivated."
^DD(9000001.41,.03,23,0)="^^2^2^2940122^^"
^DD(9000001.41,.03,23,1,0)="This is primarily used by IHS facilities for tracking patients."
^DD(9000001.41,.03,23,2,0)="The VA currently is not maintaining this field."
^DD(9000001.41,.05,0)="RECORD STATUS^S^D:DELETED;I:INACTIVATED;M:MERGED;^0;5^Q"
^DD(9000001.41,.05,3)="Enter ""D"" if the record has been deleted."
^DD(9000001.41,.05,21,0)="^^3^3^2940122^^^"
^DD(9000001.41,.05,21,1,0)="This field is used by the IHS Multi-Facility Integration (MFI) package"
^DD(9000001.41,.05,21,2,0)="to determine whether to stop integrating data at a facility for a "
^DD(9000001.41,.05,21,3,0)="particular patient and location facility."
^DD(9000001.41,.05,"DT")="2900419"
^DD(9000001.41,.06,0)="STOP INTEGRATION^S^0:NO;1:YES;^0;6^Q"
^DD(9000001.41,.06,21,0)="^^3^3^2940523^^"
^DD(9000001.41,.06,21,1,0)="This field is used by the Mult-Facility Integration (MFI) package,"
^DD(9000001.41,.06,21,2,0)="created by IHS, to indicate this patients data should no longer be"
^DD(9000001.41,.06,21,3,0)="integrated by MFI."
^DD(9000001.41,.06,"DT")="2880817"
^DD(9000001.41,"B","DATE INACTIVATED/DELETED",.03)=""
^DD(9000001.41,"B","HEALTH RECORD FAC",.01)=""
^DD(9000001.41,"B","HEALTH RECORD NO.",.02)=""
^DD(9000001.41,"B","RECORD STATUS",.05)=""
^DD(9000001.41,"B","STOP INTEGRATION",.06)=""
^DD(9000001.41,"GL",0,1,.01)=""
^DD(9000001.41,"GL",0,2,.02)=""
^DD(9000001.41,"GL",0,3,.03)=""
^DD(9000001.41,"GL",0,5,.05)=""
^DD(9000001.41,"GL",0,6,.06)=""
^DD(9000001.41,"IX",.02)=""
^DD(9000001.41,"RQ",.02)=""
^DD(9000010,0)="FIELD^^81203^39"
^DD(9000010,0,"ACT")="S X=""AUPNVSIT"" X ^%ZOSF(""TEST"") I $T D:$G(DUZ(""AG""))?1""I""0.1""HS"" POSTSLCT^AUPNVSIT"
^DD(9000010,0,"DDA")="N"
^DD(9000010,0,"DIKOLD")="VSITXX1"
^DD(9000010,0,"DT")="2960701"
^DD(9000010,0,"ID",.05)="W ""   "",$S($D(^DPT(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010,0,"ID",.22)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^SC(+$P(^(0),U,22),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(44,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(9000010,0,"ID",15001)="W:$D(^(150)) ""   "",$P(^(150),U,1)"
^DD(9000010,0,"IX","AA",9000010,.05)=""
^DD(9000010,0,"IX","AA-TOO",9000010,.01)=""
^DD(9000010,0,"IX","AAH",9000010,.07)=""
^DD(9000010,0,"IX","AAHTOO",9000010,.01)=""
^DD(9000010,0,"IX","AAHTOO2",9000010,.05)=""
^DD(9000010,0,"IX","AD",9000010,.12)=""
^DD(9000010,0,"IX","ADEL",9000010,.09)=""
^DD(9000010,0,"IX","ADEL2",9000010,.01)=""
^DD(9000010,0,"IX","AET",9000010,15003)=""
^DD(9000010,0,"IX","AET1",9000010,.01)=""
^DD(9000010,0,"IX","AET2",9000010,.05)=""
^DD(9000010,0,"IX","AET3",9000010,.22)=""
^DD(9000010,0,"IX","AHL",9000010,.22)=""
^DD(9000010,0,"IX","AHL2",9000010,.01)=""
^DD(9000010,0,"IX","APV",9000010,.12)=""
^DD(9000010,0,"IX","AVAA2",9000010,.21)=""
^DD(9000010,0,"IX","B",9000010,.01)=""
^DD(9000010,0,"IX","C",9000010,.05)=""
^DD(9000010,0,"IX","VID",9000010,15001)=""
^DD(9000010,0,"NM","VISIT")=""
^DD(9000010,0,"PT",45.06,.06)=""
^DD(9000010,0,"PT",70.03,27)=""
^DD(9000010,0,"PT",130,.015)=""
^DD(9000010,0,"PT",356,.03)=""
^DD(9000010,0,"PT",405,.27)=""
^DD(9000010,0,"PT",409.68,.05)=""
^DD(9000010,0,"PT",660,8.12)=""
^DD(9000010,0,"PT",691,900)=""
^DD(9000010,0,"PT",691.1,900)=""
^DD(9000010,0,"PT",691.5,900)=""
^DD(9000010,0,"PT",691.6,900)=""
^DD(9000010,0,"PT",691.7,900)=""
^DD(9000010,0,"PT",691.8,900)=""
^DD(9000010,0,"PT",694,900)=""
^DD(9000010,0,"PT",698,900)=""
^DD(9000010,0,"PT",698.1,900)=""
^DD(9000010,0,"PT",698.2,900)=""
^DD(9000010,0,"PT",698.3,900)=""
^DD(9000010,0,"PT",699,900)=""
^DD(9000010,0,"PT",699.5,900)=""
^DD(9000010,0,"PT",700,900)=""
^DD(9000010,0,"PT",701,900)=""
^DD(9000010,0,"PT",702,.13)=""
^DD(9000010,0,"PT",721,28)=""
^DD(9000010,0,"PT",810.31,.07)=""
^DD(9000010,0,"PT",839.01,.03)=""
^DD(9000010,0,"PT",8925,.03)=""
^DD(9000010,0,"PT",8925,1207)=""
^DD(9000010,0,"PT",8925.5,1.11)=""
^DD(9000010,0,"PT",8925.5,1.12)=""
^DD(9000010,0,"PT",9000010,.12)=""
^DD(9000010,0,"PT",9000010.06,.03)=""
^DD(9000010,0,"PT",9000010.07,.03)=""
^DD(9000010,0,"PT",9000010.11,.03)=""
^DD(9000010,0,"PT",9000010.12,.03)=""
^DD(9000010,0,"PT",9000010.13,.03)=""
^DD(9000010,0,"PT",9000010.15,.03)=""
^DD(9000010,0,"PT",9000010.16,.03)=""
^DD(9000010,0,"PT",9000010.18,.03)=""
^DD(9000010,0,"PT",9000010.23,.03)=""
^DD(9000010,0,"SCR")="I '$P(^(0),U,11),($P(^(0),U,9)!($D(APCDOVRR)!$D(VSIT)!($G(DUZ(""AG""))?1""V""0.1""A"")))"
^DD(9000010,0,"SP",.02)=""
^DD(9000010,0,"SP",.03)=""
^DD(9000010,0,"SP",.06)=""
^DD(9000010,0,"SP",.07)=""
^DD(9000010,0,"SP",.08)=""
^DD(9000010,0,"VR")="2.0"
^DD(9000010,0,"VRPK")="VISIT TRACKING"
^DD(9000010,.01,0)="VISIT/ADMIT DATE&TIME^RDX^^0;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010,.01,.1)="VISIT DATE & TIME"
^DD(9000010,.01,1,0)="^.1"
^DD(9000010,.01,1,1,0)="9000010^B"
^DD(9000010,.01,1,1,1)="S ^AUPNVSIT(""B"",$E(X,1,30),DA)="""""
^DD(9000010,.01,1,1,2)="K ^AUPNVSIT(""B"",$E(X,1,30),DA)"
^DD(9000010,.01,1,1,"%D",0)="^^2^2^2940218^^"
^DD(9000010,.01,1,1,"%D",1,0)="Regular B cross reference on .01 Visit/Admit Date&Time"
^DD(9000010,.01,1,1,"%D",2,0)="^AUPNVSIT(""B"",Visit/Admit Date&Time,ien)="""""
^DD(9000010,.01,1,2,0)="9000010^AAHTOO^MUMPS"
^DD(9000010,.01,1,2,1)="I $P(^AUPNVSIT(DA,0),U,5),$P(^(0),U,7)]"""",$P(^(0),U,7)=""H"" S ^AUPNVSIT(""AAH"",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,""."",1))_$S($P(X,""."",2)'="""":"".""_$P(X,""."",2),1:"""")),DA)="""""
^DD(9000010,.01,1,2,2)="I $P(^AUPNVSIT(DA,0),U,5),$P(^(0),U,7)]"""",$P(^(0),U,7)=""H"" K ^AUPNVSIT(""AAH"",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,""."",1))_$S($P(X,""."",2)'="""":"".""_$P(X,""."",2),1:"""")),DA)"
^DD(9000010,.01,1,2,"%D",0)="^^2^2^2960415^"
^DD(9000010,.01,1,2,"%D",1,0)="This cross reference indexes Hospitalization visits (#.07=H) by patient"
^DD(9000010,.01,1,2,"%D",2,0)="and inverse visit date.  Used to get at the last n Hospitalizations."
^DD(9000010,.01,1,3,0)="9000010^AA-TOO^MUMPS"
^DD(9000010,.01,1,3,1)="I $P(^AUPNVSIT(DA,0),U,5) S ^AUPNVSIT(""AA"",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,""."",1))_$S($P(X,""."",2)'="""":"".""_$P(X,""."",2),1:"""")),DA)=$S(+$P(^AUPNVSIT(DA,0),U,21):+$P(^(0),U,21),1:"""")"
^DD(9000010,.01,1,3,2)="I $P(^AUPNVSIT(DA,0),U,5) K ^AUPNVSIT(""AA"",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,""."",1))_$S($P(X,""."",2)'="""":"".""_$P(X,""."",2),1:"""")),DA)"
^DD(9000010,.01,1,3,"%D",0)="^^5^5^2960318^^^^"
^DD(9000010,.01,1,3,"%D",1,0)="This cross reference indexes the visits by patient and inverse date."
^DD(9000010,.01,1,3,"%D",2,0)="It is used to find the last n visits by a particular patient.  Used by"
^DD(9000010,.01,1,3,"%D",3,0)="PCC Q-Man, PCC Health Summary, PCC Management Reports, etc."
^DD(9000010,.01,1,3,"%D",4,0)="The name AA-TOO signifies that the cross reference used several field"
^DD(9000010,.01,1,3,"%D",5,0)="values and therefore the index AA is set on all of the fields."
^DD(9000010,.01,1,3,"DT")="2950404"
^DD(9000010,.01,1,4,0)="9000010^AET1^MUMPS"
^DD(9000010,.01,1,4,1)="I $P($G(^AUPNVSIT(DA,150)),U,3)]"""",$P($G(^AUPNVSIT(DA,0)),U,22)]"""",$P($G(^AUPNVSIT(DA,0)),U,5)]"""" S ^AUPNVSIT(""AET"",$P(^AUPNVSIT(DA,0),U,5),X,$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)="""""
^DD(9000010,.01,1,4,2)="I $P($G(^AUPNVSIT(DA,150)),U,3)]"""",$P($G(^AUPNVSIT(DA,0)),U,22)]"""",$P($G(^AUPNVSIT(DA,0)),U,5)]"""" K ^AUPNVSIT(""AET"",$P(^AUPNVSIT(DA,0),U,5),X,$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)"
^DD(9000010,.01,1,4,"%D",0)="^^3^3^2960521^^^^"
^DD(9000010,.01,1,4,"%D",1,0)="Cross reference for OE 3 and CPRS this gives the patient, visit date/time,"
^DD(9000010,.01,1,4,"%D",2,0)="hospital location, encounter type, visit IEN."
^DD(9000010,.01,1,4,"%D",3,0)="It is set to Service Category."
^DD(9000010,.01,1,4,"DT")="2960521"
^DD(9000010,.01,1,5,0)="9000010^ADEL2^MUMPS"
^DD(9000010,.01,1,5,1)="I $G(DUZ(""AG""))'?1""I""0.1""HS"",+$P(^AUPNVSIT(DA,0),""^"",9)'>0 S ^AUPNVSIT(""ADEL"",+X,DA)="""""
^DD(9000010,.01,1,5,2)="K ^AUPNVSIT(""ADEL"",+X,DA)"
^DD(9000010,.01,1,5,"%D",0)="^^1^1^2950125^"
^DD(9000010,.01,1,5,"%D",1,0)="This sets the ""delete"" flag based upon the Dependent Entry Count."
^DD(9000010,.01,1,5,"DT")="2920311"
^DD(9000010,.01,1,6,0)="9000010^AHL2^MUMPS"
^DD(9000010,.01,1,6,1)="I $P(^AUPNVSIT(DA,0),U,22) S ^AUPNVSIT(""AHL"",$P(^AUPNVSIT(DA,0),U,22),((9999999-$P(X,""."",1))_$S($P(X,""."",2)'="""":"".""_$P(X,""."",2),1:"""")),DA)="""""
^DD(9000010,.01,1,6,2)="I $P(^AUPNVSIT(DA,0),U,22) K ^AUPNVSIT(""AHL"",$P(^AUPNVSIT(DA,0),U,22),((9999999-$P(X,""."",1))_$S($P(X,""."",2)'="""":"".""_$P(X,""."",2),1:"""")),DA)"
^DD(9000010,.01,1,6,"%D",0)="^^5^5^2960318^^^^"
^DD(9000010,.01,1,6,"%D",1,0)="This cross reference indexes the visits by hospital location and inverse"
^DD(9000010,.01,1,6,"%D",2,0)="date.  It is used to find a date/time range of visits by a particular"
^DD(9000010,.01,1,6,"%D",3,0)="hospital location.  The name AHL2 signifies that the cross reference used"
^DD(9000010,.01,1,6,"%D",4,0)="several field values and therefore the index AHL is set on all of the"
^DD(9000010,.01,1,6,"%D",5,0)="fields."
^DD(9000010,.01,1,6,"DT")="2960318"
^DD(9000010,.01,3)=""
^DD(9000010,.01,10)=""
^DD(9000010,.01,11,0)="^.2LAP^^0"
^DD(9000010,.01,20,0)="^.3LA^3^3"
^DD(9000010,.01,20,1,0)="IHS"
^DD(9000010,.01,20,2,0)="VA"
^DD(9000010,.01,20,3,0)="VA/IHS"
^DD(9000010,.01,21,0)="^^1^1^2951012^^^^"
^DD(9000010,.01,21,1,0)="Type date of visit.  Must be between DOB and today.  In the VA this reflects the visit appointment and or event date time."
^DD(9000010,.01,22)=" "
^DD(9000010,.01,"AUDIT")="n"
^DD(9000010,.01,"DEL",.01,0)="I 1"
^DD(9000010,.01,"DT")="2960521"
^DD(9000010,.02,0)="DATE VISIT CREATED^RDXI^^0;2^S %DT=""EXRS"" D ^%DT S X=Y K:DT<X!(2600000>X) X"
^DD(9000010,.02,1,0)="^.1^^0"
^DD(9000010,.02,3)="SYSTEM GENERATED"
^DD(9000010,.02,10)=""
^DD(9000010,.02,20,0)="^.3LA^3^3"
^DD(9000010,.02,20,1,0)="IHS"
^DD(9000010,.02,20,2,0)="VA"
^DD(9000010,.02,20,3,0)="IHS/VA"
^DD(9000010,.02,21,0)="^3^4^4^2960415^^^^"
^DD(9000010,.02,21,1,0)="Generated when new visit added to subfile."
^DD(9000010,.02,21,2,0)="Date visit added to file.  Usually stuffed with DT."
^DD(9000010,.02,21,3,0)=" "
^DD(9000010,.02,21,4,0)="A date between 1960 and today."
^DD(9000010,.02,"DT")="2960610"
^DD(9000010,.03,0)="TYPE^RS^I:IHS;C:CONTRACT;T:TRIBAL;O:OTHER;6:638 PROGRAM;V:VA;^0;3^Q"
^DD(9000010,.03,3)=""
^DD(9000010,.03,20,0)="^.3LA^1^1"
^DD(9000010,.03,20,1,0)="IHS"
^DD(9000010,.03,21,0)="^^4^4^2920603^"
^DD(9000010,.03,21,1,0)="IHS- The type of visit.  Differentiates between various categories of"
^DD(9000010,.03,21,2,0)="visit types.  E.g.  A visit provided by contract care funds versus"
^DD(9000010,.03,21,3,0)="a visit directing provided by IHS.  I-IHS, C-Contract, V-VA, O-Other, "
^DD(9000010,.03,21,4,0)="6-638 Program."
^DD(9000010,.03,"DT")="2880512"
^DD(9000010,.05,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;5^Q"
^DD(9000010,.05,.1)="PATIENT/IHS"
^DD(9000010,.05,1,0)="^.1"
^DD(9000010,.05,1,1,0)="9000010^C"
^DD(9000010,.05,1,1,1)="S ^AUPNVSIT(""C"",$E(X,1,30),DA)="""""
^DD(9000010,.05,1,1,2)="K ^AUPNVSIT(""C"",$E(X,1,30),DA)"
^DD(9000010,.05,1,1,"DT")="2960415"
^DD(9000010,.05,1,2,0)="9000010^AA^MUMPS"
^DD(9000010,.05,1,2,1)="S ^AUPNVSIT(""AA"",X,((9999999-$P(+^AUPNVSIT(DA,0),""."",1))_$S($P(+^AUPNVSIT(DA,0),""."",2)'="""":"".""_$P(+^(0),""."",2),1:"""")),DA)=$S(+$P(^AUPNVSIT(DA,0),U,21):+$P(^(0),U,21),1:"""")"
^DD(9000010,.05,1,2,2)="K ^AUPNVSIT(""AA"",X,((9999999-$P(+^AUPNVSIT(DA,0),""."",1))_$S($P(+^AUPNVSIT(DA,0),""."",2)'="""":"".""_$P(+^(0),""."",2),1:"""")),DA)"
^DD(9000010,.05,1,2,"%D",0)="^^2^2^2960415^^"
^DD(9000010,.05,1,2,"%D",1,0)="Indexes visits by patient and inverse visit date.  Used to find the last n"
^DD(9000010,.05,1,2,"%D",2,0)="visits made by a patient."
^DD(9000010,.05,1,2,"DT")="2950404"
^DD(9000010,.05,1,3,0)="9000010^AAHTOO2^MUMPS"
^DD(9000010,.05,1,3,1)="I $P(^AUPNVSIT(DA,0),U,7)]"""",$P(^(0),U,7)=""H"" S ^AUPNVSIT(""AAH"",X,((9999999-$P(+^AUPNVSIT(DA,0),""."",1))_$S($P(+^AUPNVSIT(DA,0),""."",2)'="""":"".""_$P(+^(0),""."",2),1:"""")),DA)="""""
^DD(9000010,.05,1,3,2)="I $P(^AUPNVSIT(DA,0),U,7)]"""",$P(^(0),U,7)=""H"" K ^AUPNVSIT(""AAH"",X,((9999999-$P(+^AUPNVSIT(DA,0),""."",1))_$S($P(+^AUPNVSIT(DA,0),""."",2)'="""":"".""_$P(+^(0),""."",2),1:"""")),DA)"
^DD(9000010,.05,1,3,"%D",0)="^^2^2^2960415^"
^DD(9000010,.05,1,3,"%D",1,0)="Indexes HOSPITALIZATION visits by patient, inverse visit date.  Used to"
^DD(9000010,.05,1,3,"%D",2,0)="find the last n Hospitaliations for a given patient."
^DD(9000010,.05,1,4,0)="9000010^AET2^MUMPS"
^DD(9000010,.05,1,4,1)="I $P($G(^AUPNVSIT(DA,150)),U,3)]"""",$P($G(^AUPNVSIT(DA,0)),U,22)]"""" S ^AUPNVSIT(""AET"",X,$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)="""""
^DD(9000010,.05,1,4,2)="I $P($G(^AUPNVSIT(DA,150)),U,3)]"""",$P($G(^AUPNVSIT(DA,0)),U,22)]"""" K ^AUPNVSIT(""AET"",X,$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)"
^DD(9000010,.05,1,4,"%D",0)="^^3^3^2960521^^^^"
^DD(9000010,.05,1,4,"%D",1,0)="Cross reference for OE 3 and CPRS this gives the patient, visit date/time,"
^DD(9000010,.05,1,4,"%D",2,0)="hospital location, encounter type, visit IEN. "
^DD(9000010,.05,1,4,"%D",3,0)="It is set to Service Category."
^DD(9000010,.05,1,4,"DT")="2960521"
^DD(9000010,.05,20,0)="^.3LA^1^1"
^DD(9000010,.05,20,1,0)="IHS"
^DD(9000010,.05,21,0)="^^1^1^2960415^^^^"
^DD(9000010,.05,21,1,0)="Pointer to the Patient file."
^DD(9000010,.05,"DT")="2960521"
^DD(9000010,.06,0)="LOC. OF ENCOUNTER^P9999999.06'^AUTTLOC(^0;6^Q"
^DD(9000010,.06,1,0)="^.1^^0"
^DD(9000010,.06,10)=""
^DD(9000010,.06,20,0)="^.3LA^1^1"
^DD(9000010,.06,20,1,0)="IHS"
^DD(9000010,.06,21,0)="^^3^3^2950816^^^^"
^DD(9000010,.06,21,1,0)="Pointer to the location file.  Location where the visit took place."
^DD(9000010,.06,21,2,0)="In the VA, the Location file entries will be based on the current entries"
^DD(9000010,.06,21,3,0)="in the institution file, so this field represents the institution."
^DD(9000010,.06,"AUDIT")=""
^DD(9000010,.06,"DT")="2950816"
^DD(9000010,.07,0)="SERVICE CATEGORY^S^A:AMBULATORY;H:HOSPITALIZATION;I:IN HOSPITAL;C:CHART REVIEW;T:TELECOMMUNICATIONS;N:NOT FOUND;S:DAY SURGERY;O:OBSERVATION;E:EVENT (HISTORICAL);R:NURSING HOME;D:DAILY HOSPITALIZATION DATA;X:ANCILLARY PACKAGE DAILY DATA;^0;7^Q"
^DD(9000010,.07,1,0)="^.1^^-1"
^DD(9000010,.07,1,1,0)="9000010^AAH^MUMPS"
^DD(9000010,.07,1,1,1)="I X=""H"",$P(^AUPNVSIT(DA,0),U,5)]"""" S ^AUPNVSIT(""AAH"",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(+^(0),""."",1))_$S($P(+^(0),""."",2):"".""_$P(+^(0),""."",2),1:"""")),DA)="""""
^DD(9000010,.07,1,1,2)="I X=""H"",$P(^AUPNVSIT(DA,0),U,5)]"""" K ^AUPNVSIT(""AAH"",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(+^(0),""."",1))_$S($P(+^(0),""."",2):"".""_$P(+^(0),""."",2),1:"""")),DA)"
^DD(9000010,.07,1,1,"%D",0)="^^2^2^2920827^^"
^DD(9000010,.07,1,1,"%D",1,0)="Indexes Hospitalization visits by patient and inverse visit date.  Used"
^DD(9000010,.07,1,1,"%D",2,0)="to find the last n Hospitalizations for a given patient."
^DD(9000010,.07,1,1,"DT")="2920827"
^DD(9000010,.07,3)=""
^DD(9000010,.07,10)=""
^DD(9000010,.07,20,0)="^.3LA^1^1"
^DD(9000010,.07,20,1,0)="IHS"
^DD(9000010,.07,21,0)="^^12^12^2950613^"
^DD(9000010,.07,21,1,0)="This service category field represents what kind of service was provided."
^DD(9000010,.07,21,2,0)="The IHS definition is represented by a set of codes.  This field can be"
^DD(9000010,.07,21,3,0)="used by IHS to screen on service categories."
^DD(9000010,.07,21,4,0)=" "
^DD(9000010,.07,21,5,0)="The VA continues to populate this field to be backward compatible with"
^DD(9000010,.07,21,6,0)="IHS utilities depending on this field."
^DD(9000010,.07,21,7,0)=" "
^DD(9000010,.07,21,8,0)="  The VA uses the Service Provided file (#150.1) to define a more"
^DD(9000010,.07,21,9,0)="detailed file of services provided.  When a VA user identifies the Service"
^DD(9000010,.07,21,10,0)="Provided (field 15001), a trigger will automatically populate this service"
^DD(9000010,.07,21,11,0)="category based on relationships between entries in File 150.1 and the set"
^DD(9000010,.07,21,12,0)="of codes for this field."
^DD(9000010,.07,21,13,0)="The population of this field is dependent upon entries provided by applicaions as well as default values and caculated codes."
^DD(9000010,.07,"DT")="2960521"
^DD(9000010,.08,0)="DSS ID^*P40.7'^DIC(40.7,^0;8^S DIC(""S"")=""I $P(^(0),U,3)=""""""""!($P(^(0),U,3)'<$P(^AUPNVSIT(DA,0),U))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010,.08,10)=""
^DD(9000010,.08,12)="ALLOW PAST VISITS"
^DD(9000010,.08,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""""""!($P(^(0),U,3)'<$P(^AUPNVSIT(DA,0),U))"""
^DD(9000010,.08,20,0)="^.3LA^3^3"
^DD(9000010,.08,20,1,0)="IHS"
^DD(9000010,.08,20,2,0)="VA"
^DD(9000010,.08,20,3,0)="IHS/VA"
^DD(9000010,.08,21,0)="^^2^2^2961227^^^^"
^DD(9000010,.08,21,1,0)="Pointer to the Clinic Stop file."
^DD(9000010,.08,21,2,0)="Organized clinic in which this visit took place.  E.g.  Pediatrics, General"
^DD(9000010,.08,"DT")="2961015"
^DD(9000010,.09,0)="DEPENDENT ENTRY COUNT^NJ3,0I^^0;9^K:+X'=X!(X>999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9000010,.09,1,0)="^.1^^0"
^DD(9000010,.09,1,1,0)="9000010^ADEL^MUMPS"
^DD(9000010,.09,1,1,1)="I $G(DUZ(""AG""))'?1""I""0.1""HS"" S:X'>0 ^AUPNVSIT(""ADEL"",+^AUPNVSIT(DA,0),DA)="""" K:X>0 ^AUPNVSIT(""ADEL"",+^AUPNVSIT(DA,0),DA)"
^DD(9000010,.09,1,1,2)="Q"
^DD(9000010,.09,1,1,"DT")="2920311"
^DD(9000010,.09,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 999"
^DD(9000010,.09,9)="^"
^DD(9000010,.09,20,0)="^.3LA^3^3"
^DD(9000010,.09,20,1,0)="IHS"
^DD(9000010,.09,20,2,0)="VA"
^DD(9000010,.09,20,3,0)="IHS/VA"
^DD(9000010,.09,21,0)="^^4^4^2920603^^^"
^DD(9000010,.09,21,1,0)="IHS- a count of how many ""V"" file entries are pointing to this visit."
^DD(9000010,.09,21,2,0)="If the count is zero, the visit should be deleted."
^DD(9000010,.09,21,3,0)="Field is updated by a cross reference in each ""V"" file that calls"
^DD(9000010,.09,21,4,0)="routine ADD^AUPNVSIT or SUB^AUPNVSIT."
^DD(9000010,.09,"AUDIT")="n"
^DD(9000010,.09,"DT")="2920819"
^DD(9000010,.11,0)="DELETE FLAG^SI^0:ACTIVE;1:DELETED;^0;11^Q"
^DD(9000010,.11,9)="^"
^DD(9000010,.11,20,0)="^.3LA^3^3"
^DD(9000010,.11,20,1,0)="IHS"
^DD(9000010,.11,20,2,0)="VA"
^DD(9000010,.11,20,3,0)="IHS/VA"
^DD(9000010,.11,21,0)="^^1^1^2920603^"
^DD(9000010,.11,21,1,0)="Flag set to signify that the visit has been deleted."
^DD(9000010,.11,"DT")="2861111"
^DD(9000010,.12,0)="PARENT VISIT LINK^P9000010'^AUPNVSIT(^0;12^Q"
^DD(9000010,.12,1,0)="^.1^^-1"
^DD(9000010,.12,1,1,0)="9000010^AD"
^DD(9000010,.12,1,1,1)="S ^AUPNVSIT(""AD"",$E(X,1,30),DA)="""""
^DD(9000010,.12,1,1,2)="K ^AUPNVSIT(""AD"",$E(X,1,30),DA)"
^DD(9000010,.12,1,1,"%D",0)="^^1^1^2950126^"
^DD(9000010,.12,1,1,"%D",1,0)="PARENT VISIT LINK"
^DD(9000010,.12,1,3,0)="9000010^APV^MUMPS"
^DD(9000010,.12,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010,.12,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010,.12,1,3,"%D",0)="^^1^1^2960318^"
^DD(9000010,.12,1,3,"%D",1,0)="This updates the dependent entry count when a child visit is created."
^DD(9000010,.12,1,3,"DT")="2950518"
^DD(9000010,.12,20,0)="^.3LA^3^3"
^DD(9000010,.12,20,1,0)="IHS"
^DD(9000010,.12,20,2,0)="VA"
^DD(9000010,.12,20,3,0)="IHS/VA"
^DD(9000010,.12,21,0)="^^1^1^2950518^^^"
^DD(9000010,.12,21,1,0)="The PARENT VISIT LINK field points back to the VISIT file."
^DD(9000010,.12,"DT")="2960415"
^DD(9000010,.13,0)="DATE LAST MODIFIED^DX^^0;13^S %DT=""EXRS"" D ^%DT S X=Y K:DT<X!(2600000>X) X"
^DD(9000010,.13,1,0)="^.1^^0"
^DD(9000010,.13,3)="TYPE A DATE BETWEEN 1960 AND TODAY"
^DD(9000010,.13,20,0)="^.3LA^3^3"
^DD(9000010,.13,20,1,0)="IHS"
^DD(9000010,.13,20,2,0)="VA"
^DD(9000010,.13,20,3,0)="IHS/VA"
^DD(9000010,.13,21,0)="^^3^3^2960415^^^"
^DD(9000010,.13,21,1,0)="Date on which the visit was last modified.  Any time a field in the visit"
^DD(9000010,.13,21,2,0)="file or a V File is added or deleted, this field is automatically updated with the current"
^DD(9000010,.13,21,3,0)="date."
^DD(9000010,.13,"DT")="2960415"
^DD(9000010,.18,0)="CHECK OUT DATE&TIME^D^^0;18^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010,.18,3)="Enter the date and time the patient checked out."
^DD(9000010,.18,21,0)="^^2^2^2951013^^"
^DD(9000010,.18,21,1,0)="This field is the date and time the patient checked out for this visit."
^DD(9000010,.18,21,2,0)="This field will only store the information temporarily and will be empty."
^DD(9000010,.18,23,0)="^^2^2^2951013^^"
^DD(9000010,.18,23,1,0)="This data is passed from the MCCR event data capture and then passed"
^DD(9000010,.18,23,2,0)="from PCE to PIMS 5.3 for automated check-out."
^DD(9000010,.18,"DT")="2940217"
^DD(9000010,.21,0)="ELIGIBILITY^*P8'X^DIC(8,^0;21^S DIC(""S"")=""I $D(^DPT($S($D(DFN):DFN,1:$P(^AUPNVSIT(DA,0),""""^"""",5)),""""E"""",+Y,0))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010,.21,1,0)="^.1"
^DD(9000010,.21,1,1,0)="9000010^AVAA2^MUMPS"
^DD(9000010,.21,1,1,1)="I +$P(^AUPNVSIT(DA,0),""^"",5) S ^AUPNVSIT(""AA"",$P(^AUPNVSIT(DA,0),""^"",5),((9999999-$P(+^AUPNVSIT(DA,0),"".""))_$S($P(+^AUPNVSIT(DA,0),""."",2)'="""":"".""_$P(+^(0),""."",2),1:"""")),DA)=$S(+X:+X,1:"""")"
^DD(9000010,.21,1,1,2)="I +$P(^AUPNVSIT(DA,0),""^"",5),$D(^AUPNVSIT(""AA"",$P(^AUPNVSIT(DA,0),""^"",5),((9999999-$P(+^AUPNVSIT(DA,0),"".""))_$S($P(+^AUPNVSIT(DA,0),""."",2)'="""":"".""_$P(+^(0),""."",2),1:"""")),DA)) S ^(DA)="""""
^DD(9000010,.21,1,1,3)="This is a required field."
^DD(9000010,.21,1,1,"%D",0)="^^1^1^2950404^^^^"
^DD(9000010,.21,1,1,"%D",1,0)="Set the ""AA"" cross reference equal to the pt's eligibility (pointer)."
^DD(9000010,.21,1,1,"DT")="2950404"
^DD(9000010,.21,3)="Select the eligibility which best describes the patient's entitlement to care for this visit."
^DD(9000010,.21,12)="only valid eligibilities for this pt."
^DD(9000010,.21,12.1)="S DIC(""S"")=""I $D(^DPT($S($D(DFN):DFN,1:$P(^AUPNVSIT(DA,0),""""^"""",5)),""""E"""",+Y,0))"""
^DD(9000010,.21,20,0)="^.3LA^1^1"
^DD(9000010,.21,20,1,0)="VA"
^DD(9000010,.21,21,0)="^^1^1^2950831^^^^"
^DD(9000010,.21,21,1,0)="Defines the patient's eligibility for this visit."
^DD(9000010,.21,"DT")="2950404"
^DD(9000010,.22,0)="HOSPITAL LOCATION^P44'^SC(^0;22^Q"
^DD(9000010,.22,1,0)="^.1"
^DD(9000010,.22,1,1,0)="9000010^AHL^MUMPS"
^DD(9000010,.22,1,1,1)="S ^AUPNVSIT(""AHL"",X,(9999999-$P($P(^AUPNVSIT(DA,0),U,1),""."",1))_$S($P($P(^(0),U,1),""."",2)'="""":"".""_$P($P(^(0),U,1),""."",2),1:""""),DA)="""""
^DD(9000010,.22,1,1,2)="K ^AUPNVSIT(""AHL"",X,(9999999-$P($P(^AUPNVSIT(DA,0),U,1),""."",1))_$S($P($P(^(0),U,1),""."",2)'="""":"".""_$P($P(^(0),U,1),""."",2),1:""""),DA)"
^DD(9000010,.22,1,1,"%D",0)="^^4^4^2960318^^^^"
^DD(9000010,.22,1,1,"%D",1,0)="This cross reference indexes the visits by hospital location and inverse"
^DD(9000010,.22,1,1,"%D",2,0)="date.  It is used to find a date/time range of visits by a particular"
^DD(9000010,.22,1,1,"%D",3,0)="hospital location.  The cross reference used several field values and"
^DD(9000010,.22,1,1,"%D",4,0)="therefore the index AHL is set on all of the fields."
^DD(9000010,.22,1,1,"DT")="2960318"
^DD(9000010,.22,1,2,0)="9000010^AET3^MUMPS"
^DD(9000010,.22,1,2,1)="I $P($G(^AUPNVSIT(DA,150)),U,3)]"""",$P($G(^AUPNVSIT(DA,0)),U,5)]"""" S ^AUPNVSIT(""AET"",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),X,$P(^AUPNVSIT(DA,150),U,3),DA)="""""
^DD(9000010,.22,1,2,2)="I $P($G(^AUPNVSIT(DA,150)),U,3)]"""",$P($G(^AUPNVSIT(DA,0)),U,5)]"""" K ^AUPNVSIT(""AET"",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),X,$P(^AUPNVSIT(DA,150),U,3),DA)"
^DD(9000010,.22,1,2,"%D",0)="^^3^3^2960521^^"
^DD(9000010,.22,1,2,"%D",1,0)="Cross reference for OE 3 and CPRS this gives the patient, visit date/time,"
^DD(9000010,.22,1,2,"%D",2,0)="hospital location, encounter type, visit IEN. "
^DD(9000010,.22,1,2,"%D",3,0)="It is set to Service Category."
^DD(9000010,.22,1,2,"DT")="2960521"
^DD(9000010,.22,3)="Answer with the name of the hospital location where this visit occurred."
^DD(9000010,.22,20,0)="^.3LA^1^1"
^DD(9000010,.22,20,1,0)="VA"
^DD(9000010,.22,21,0)="^^1^1^2950608^^^"
^DD(9000010,.22,21,1,0)="The hospital location where this visit occurred."
^DD(9000010,.22,"DT")="2960521"
^DD(9000010,.23,0)="CREATED BY USER^P200'^VA(200,^0;23^Q"
^DD(9000010,.23,3)="SYSTEM GENERATED"
^DD(9000010,.23,20,0)="^.3LA^1^1"
^DD(9000010,.23,20,1,0)="VA"
^DD(9000010,.23,21,0)="^^1^1^2950613^^"
^DD(9000010,.23,21,1,0)="The name of the user who created this visit entry.  In the VA using scanned encounter forms, this is the user who is performing the scans."
^DD(9000010,.23,"DT")="2920715"
^DD(9000010,.24,0)="OPTION USED TO CREATE^P19'^DIC(19,^0;24^Q"
^DD(9000010,.24,3)="SYSTEM GENERATED"
^DD(9000010,.24,10)=""
^DD(9000010,.24,20,0)="^.3LA^1^1"
^DD(9000010,.24,20,1,0)="VA"
^DD(9000010,.24,21,0)="^^1^1^2920715^^"
^DD(9000010,.24,21,1,0)="If known, the option under which this visit was created."
^DD(9000010,.24,"DT")="2920715"
^DD(9000010,.25,0)="PROTOCOL^P101'^ORD(101,^0;25^Q"
^DD(9000010,.25,21,0)="^^1^1^2950613^"
^DD(9000010,.25,21,1,0)="This is the protocol which was used to create this visit."
^DD(9000010,.25,"DT")="2941025"
^DD(9000010,.26,0)="PFSS ACCOUNT REFERENCE^P375'^IBBAA(375,^0;26^Q"
^DD(9000010,.26,3)=""
^DD(9000010,.26,21,0)="^^3^3^3050610^"
^DD(9000010,.26,21,1,0)="The number by which all VistA applications will reference an"
^DD(9000010,.26,21,2,0)="external medical billing system account number for purposes"
^DD(9000010,.26,21,3,0)="of attaching charges for 1st or 3rd party billing."
^DD(9000010,.26,23,0)="^^1^1^3050610^"
^DD(9000010,.26,23,1,0)="A pointer to the PFSS ACCOUNT FILE (#375)"
^DD(9000010,.26,"DT")="3050602"
^DD(9000010,2101,0)="OUTSIDE LOCATION^F^^21;1^K:$L(X)>50!($L(X)<2) X"
^DD(9000010,2101,3)="Answer must be 2-50 characters in length."
^DD(9000010,2101,21,0)="^^1^1^2950816^^^"
^DD(9000010,2101,21,1,0)="Free text location of service."
^DD(9000010,2101,"DT")="2920603"
^DD(9000010,15001,0)="VISIT ID^RFI^^150;1^K:$L(X)>15!($L(X)<8)!'(X?4.10NU1""-""3.4U) X"
^DD(9000010,15001,1,0)="^.1"
^DD(9000010,15001,1,1,0)="9000010^VID"
^DD(9000010,15001,1,1,1)="S ^AUPNVSIT(""VID"",$E(X,1,30),DA)="""""
^DD(9000010,15001,1,1,2)="K ^AUPNVSIT(""VID"",$E(X,1,30),DA)"
^DD(9000010,15001,1,1,"DT")="2960425"
^DD(9000010,15001,3)="This is the unique visit id and is set by Visit Tracking and cannot be changed."
^DD(9000010,15001,"DT")="2960425"
^DD(9000010,15002,0)="PATIENT STATUS IN/OUT^S^1:IN;0:OUT;^150;2^Q"
^DD(9000010,15002,21,0)="^^1^1^2950613^"
^DD(9000010,15002,21,1,0)="This is an indicator of the patient's status at the time of the visit."
^DD(9000010,15002,"DT")="2950517"
^DD(9000010,15003,0)="ENCOUNTER TYPE^S^P:PRIMARY;O:OCCASION OF SERVICE;S:STOP CODE;A:ANCILLARY;C:CREDIT STOP;^150;3^Q"
^DD(9000010,15003,1,0)="^.1^^-1"
^DD(9000010,15003,1,1,0)="9000010^AET^MUMPS"
^DD(9000010,15003,1,1,1)="I $P($G(^AUPNVSIT(DA,0)),U,5)]"""",$P($G(^AUPNVSIT(DA,0)),U,22)]"""" S ^AUPNVSIT(""AET"",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),X,DA)="""""
^DD(9000010,15003,1,1,2)="I $P($G(^AUPNVSIT(DA,0)),U,5)]"""",$P($G(^AUPNVSIT(DA,0)),U,22)]"""" K ^AUPNVSIT(""AET"",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),X,DA)"
^DD(9000010,15003,1,1,"%D",0)="^^3^3^2960521^^"
^DD(9000010,15003,1,1,"%D",1,0)="Cross reference for OE 3 and CPRS this gives the patient, visit date/time,"
^DD(9000010,15003,1,1,"%D",2,0)="hospital location, encounter type, visit IEN. It is set to Service"
^DD(9000010,15003,1,1,"%D",3,0)="Category."
^DD(9000010,15003,1,1,"DT")="2960521"
^DD(9000010,15003,21,0)="^^2^2^2960701^^^^"
^DD(9000010,15003,21,1,0)="This field notes the primary type of visits, the stop code visit and the "
^DD(9000010,15003,21,2,0)="occasion of service visit that were manual entered."
^DD(9000010,15003,"DT")="2960701"
^DD(9000010,80001,0)="SERVICE CONNECTED^S^1:YES;0:NO;^800;1^Q"
^DD(9000010,80001,3)="If this visit is treating a service connected problem, enter ""YES"" here."
^DD(9000010,80001,21,0)="^^2^2^2950613^^^^"
^DD(9000010,80001,21,1,0)="This field will be used to indicate if this visit was for treating a "
^DD(9000010,80001,21,2,0)="VA patient based on a service connected problem."
^DD(9000010,80001,23,0)="^^2^2^2950613^^^^"
^DD(9000010,80001,23,1,0)="This field may be passed to the Visit based on the MCCR event data "
^DD(9000010,80001,23,2,0)="capture."
^DD(9000010,80001,"DT")="2940217"
^DD(9000010,80002,0)="AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^800;2^Q"
^DD(9000010,80002,3)="If this visit is treating an agent orange exposure problem, enter ""YES"" here."
^DD(9000010,80002,21,0)="^^2^2^2940217^"
^DD(9000010,80002,21,1,0)="This field is used to indicate that this visit represents treatment of"
^DD(9000010,80002,21,2,0)="a VA patient for a problem that is related to Agent Orange Exposure."
^DD(9000010,80002,23,0)="^^1^1^2940217^"
^DD(9000010,80002,23,1,0)="This data may be passed to the Visit from MCCR event data capture. "
^DD(9000010,80002,"DT")="2940217"
^DD(9000010,80003,0)="IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^800;3^Q"
^DD(9000010,80003,3)="If this visit is treating an Ionizing Radiation Exposure problem, enter ""YES""."
^DD(9000010,80003,21,0)="^^2^2^2940217^"
^DD(9000010,80003,21,1,0)="This field is used to indicate that this visit represents treatment of"
^DD(9000010,80003,21,2,0)="a VA patient for a problem that is related to Ionizing Radiation Exposure."
^DD(9000010,80003,23,0)="^^1^1^2940217^"
^DD(9000010,80003,23,1,0)="This data may be passed to the Visit from MCCR event data capture."
^DD(9000010,80003,"DT")="2940217"
^DD(9000010,80004,0)="PERSIAN GULF EXPOSURE^S^1:YES;0:NO;^800;4^Q"
^DD(9000010,80004,3)="If this visit is treating a problem related to Persian Gulf Exposure, enter ""YES"""
^DD(9000010,80004,21,0)="^^2^2^2940217^"
^DD(9000010,80004,21,1,0)="This field is used to indicate that this visit represents treatment of a"
^DD(9000010,80004,21,2,0)="VA patient for a problem that is related to Persian Gulf Exposure."
^DD(9000010,80004,23,0)="^^1^1^2940217^"
^DD(9000010,80004,23,1,0)="This data may be passed to the Visit from the MCCR event data capture."
^DD(9000010,80004,"DT")="2940217"
^DD(9000010,80005,0)="MILITARY SEXUAL TRAUMA^S^1:YES;0:NO;^800;5^Q"
^DD(9000010,80005,21,0)="^^1^1^2980610^"
^DD(9000010,80005,21,1,0)="Indicates whether the patient visit was related to their Military Sexual Trauma."
^DD(9000010,80005,"DT")="2980625"
^DD(9000010,80006,0)="HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^800;6^Q"
^DD(9000010,80006,3)="If this visit is treating a problem related to Head/Neck Cancer, enter ""YES"""
^DD(9000010,80006,21,0)="^.001^2^2^3010925^^^"
^DD(9000010,80006,21,1,0)="This field is used to indicate that the visit represents treatment of a"
^DD(9000010,80006,21,2,0)="VA patient for a problem that is related to Head and/or Neck Cancer."
^DD(9000010,80006,"DT")="3010925"
^DD(9000010,80007,0)="COMBAT VETERAN^S^1:YES;0:NO;^800;7^Q"
^DD(9000010,80007,3)="If this visit is treating a problem possibly related to combat."
^DD(9000010,80007,21,0)="^^2^2^3031118^"
^DD(9000010,80007,21,1,0)="This field is used to indicate that the visit represents treatment of a"
^DD(9000010,80007,21,2,0)="VA patient for a problem that is possibly related to combat."
^DD(9000010,80007,"DT")="3031118"
^DD(9000010,80011,0)="SERVICE CONNECTION EDIT FLAG^S^0:EDITABLE;1:NOT EDITABLE;^800;11^Q"
^DD(9000010,80011,3)="Enter 1 to prevent user editing of the Service Connection classification."
^DD(9000010,80011,21,0)="^.001^2^2^3040205^^^^"
^DD(9000010,80011,21,1,0)="This field is used to determine if the Service Connection Classification"
^DD(9000010,80011,21,2,0)="for the Visit can be edited by the user."
^DD(9000010,80011,23,0)="^.001^3^3^3040205^^^^"
^DD(9000010,80011,23,1,0)="The Service Connected classification is not editable if"
^DD(9000010,80011,23,2,0)="either any of the diagnosis Service Connection classifications are ""Yes"""
^DD(9000010,80011,23,3,0)="or all of the diagnosis Service Connection classifications are ""No""."
^DD(9000010,80011,"DT")="3040205"
^DD(9000010,80012,0)="AGENT ORANGE EDIT FLAG^S^0:EDITABLE;1:NOT EDITABLE;^800;12^Q"
^DD(9000010,80012,3)="Enter 1 to prevent user editing of the Agent Orange classification"
^DD(9000010,80012,21,0)="^.001^2^2^3040206^^^"
^DD(9000010,80012,21,1,0)="This field is used to determine if the Agent Orange Classification"
^DD(9000010,80012,21,2,0)="for the Visit can be edited by the user."
^DD(9000010,80012,23,0)="^.001^3^3^3040206^^"
^DD(9000010,80012,23,1,0)="The Agent Orange classification is not editable if"
^DD(9000010,80012,23,2,0)="either any of the diagnosis Agent Orange classifiactions are ""Yes"""
^DD(9000010,80012,23,3,0)="or all of the diagnosis Agent Orange classifiactions are ""No""."
^DD(9000010,80012,"DT")="3040205"
^DD(9000010,80013,0)="IONIZING RADIATION EDIT FLAG^S^0:EDITABLE;1:NOT EDITABLE;^800;13^Q"
^DD(9000010,80013,3)="Enter 1 to prevent user editing of the Ionizing Radiation classification"
^DD(9000010,80013,21,0)="^.001^2^2^3040206^^^^"
^DD(9000010,80013,21,1,0)="This field is used to determine if the Ionizing Radiation classification"
^DD(9000010,80013,21,2,0)="for the Visit can be edited by the user."
^DD(9000010,80013,23,0)="^.001^3^3^3040206^^^"
^DD(9000010,80013,23,1,0)="The Ionizing Radiation classification is not editable if"
^DD(9000010,80013,23,2,0)="either any of the diagnosis Ionizing Radiation classifications are ""Yes"""
^DD(9000010,80013,23,3,0)="or all of the diagnosis Ionizing Radiation classifiactions are ""No""."
^DD(9000010,80013,"DT")="3040205"
^DD(9000010,80014,0)="ENVIRONMENTAL CONT. EDIT FLAG^S^0:EDITABLE;1:NOT EDITABLE;^800;14^Q"
^DD(9000010,80014,3)="Enter 1 to prevent user editing of the Environmental Contaminants classification."
^DD(9000010,80014,21,0)="^.001^2^2^3040206^^^^"
^DD(9000010,80014,21,1,0)="This field is used to determine if the Environmental Contaminants"
^DD(9000010,80014,21,2,0)="classification for the Visit can be edited by the user."
^DD(9000010,80014,23,0)="^.001^4^4^3040206^^^^"
^DD(9000010,80014,23,1,0)="The Environmental Contaminants classification is not editable if"
^DD(9000010,80014,23,2,0)="either any of the diagnosis Environmental Contaminants classifications"
^DD(9000010,80014,23,3,0)="are ""Yes"", or all of the diagnosis Environmental Contaminants"
^DD(9000010,80014,23,4,0)="classifications are ""No""."
^DD(9000010,80014,"DT")="3040205"
^DD(9000010,80015,0)="MST EDIT FLAG^S^0:EDITABLE;1:NOT EDITABLE;^800;15^Q"
^DD(9000010,80015,3)="Enter 1 to prevent user editing of the Military Sexual Trauma classification"
^DD(9000010,80015,21,0)="^^2^2^3040205^"
^DD(9000010,80015,21,1,0)="This field is used to determine if the Military Sexual Trauma classification"
^DD(9000010,80015,21,2,0)="for the Visit can be edited by the user."
^DD(9000010,80015,23,0)="^.001^4^4^3040205^^"
^DD(9000010,80015,23,1,0)="The Military Sexual Trauma classification is not editable if"
^DD(9000010,80015,23,2,0)="either any of the diagnosis Miliary Sexual Trauma classifications"
^DD(9000010,80015,23,3,0)="are ""Yes"", or all of the diagnosis Miliary Sexual Trauma classifications"
^DD(9000010,80015,23,4,0)="are ""No""."
^DD(9000010,80015,"DT")="3040205"
^DD(9000010,80016,0)="HEAD AND NECK CANCER EDIT FLAG^S^0:EDITABLE;1:NOT EDITABLE;^800;16^Q"
^DD(9000010,80016,3)="Enter 1 to prevent user editing of the Head and Neck Cancer classification"
^DD(9000010,80016,21,0)="^^2^2^3040206^"
^DD(9000010,80016,21,1,0)="This field is used to determine if the Head and/or Neck Cancer"
^DD(9000010,80016,21,2,0)="classification can be edited by the user."
^DD(9000010,80016,23,0)="^^4^4^3040206^"
^DD(9000010,80016,23,1,0)="The Head and/or Neck Cancer classification is not editable if"
^DD(9000010,80016,23,2,0)="either any of the diagnosis Head and/or Neck Cancer classifications"
^DD(9000010,80016,23,3,0)="are ""Yes"", or all of the diagnosis Head and/or Neck Cancer classifications"
^DD(9000010,80016,23,4,0)="are ""No""."
^DD(9000010,80016,"DT")="3040205"
^DD(9000010,80017,0)="COMBAT VETERAN EDIT FLAG^S^0:EDITABLE;1:NOT EDITABLE;^800;17^Q"
^DD(9000010,80017,3)="Enter 1 to prevent user editing of the combat Veteran classification."
^DD(9000010,80017,21,0)="^.001^2^2^3040226^^^"
^DD(9000010,80017,21,1,0)="This field is used to determine if the Combat Veteran classification can be "
^DD(9000010,80017,21,2,0)="edited by the user."
^DD(9000010,80017,23,0)="^.001^3^3^3040226^^"
^DD(9000010,80017,23,1,0)="The combat Veteran classification is not editable if either any of the"
^DD(9000010,80017,23,2,0)="diagnosis Combat Veteran classifications are ""Yes"", or all of the"
^DD(9000010,80017,23,3,0)="diagnosis Combat Veteran classifications are ""No""."
^DD(9000010,80017,"DT")="3040217"
^DD(9000010,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010,81101,3)="Answer must be 1-245 characters in length."
^DD(9000010,81101,21,0)="^^1^1^2950711^"
^DD(9000010,81101,21,1,0)="A FIELD TO ADD COMMENTS AS THEY PERTAIN TO A VISIT"
^DD(9000010,81101,"DT")="2950711"
^DD(9000010,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010,81202,21,0)="^^1^1^2960509^^"
^DD(9000010,81202,21,1,0)="This is a pointer to the package that wanted the visit created."
^DD(9000010,81202,"DT")="2960508"
^DD(9000010,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010,81203,21,0)="^^2^2^2960509^^"
^DD(9000010,81203,21,1,0)="This is a pointer to the PCE DATA SOURCE file and is the source that"
^DD(9000010,81203,21,2,0)="wanted the visit created."
^DD(9000010,81203,"DT")="2960509"
^DD(9000010,"B","AGENT ORANGE EDIT FLAG",80012)=""
^DD(9000010,"B","AGENT ORANGE EXPOSURE",80002)=""
^DD(9000010,"B","CHECK OUT DATE&TIME",.18)=""
^DD(9000010,"B","COMBAT VETERAN",80007)=""
^DD(9000010,"B","COMBAT VETERAN EDIT FLAG",80017)=""
^DD(9000010,"B","COMMENTS",81101)=""
^DD(9000010,"B","CREATED BY USER",.23)=""
^DD(9000010,"B","DATA SOURCE",81203)=""
^DD(9000010,"B","DATE LAST MODIFIED",.13)=""
^DD(9000010,"B","DATE VISIT CREATED",.02)=""
^DD(9000010,"B","DELETE FLAG",.11)=""
^DD(9000010,"B","DEPENDENT ENTRY COUNT",.09)=""
^DD(9000010,"B","DSS ID",.08)=""
^DD(9000010,"B","ELIGIBILITY",.21)=""
^DD(9000010,"B","ENCOUNTER TYPE",15003)=""
^DD(9000010,"B","ENVIRONMENTAL CONT. EDIT FLAG",80014)=""
^DD(9000010,"B","HEAD AND NECK CANCER EDIT FLAG",80016)=""
^DD(9000010,"B","HEAD AND/OR NECK CANCER",80006)=""
^DD(9000010,"B","HOSPITAL LOCATION",.22)=""
^DD(9000010,"B","IONIZING RADIATION EDIT FLAG",80013)=""
^DD(9000010,"B","IONIZING RADIATION EXPOSURE",80003)=""
^DD(9000010,"B","LOC. OF ENCOUNTER",.06)=""
^DD(9000010,"B","MILITARY SEXUAL TRAUMA",80005)=""
^DD(9000010,"B","MST EDIT FLAG",80015)=""
^DD(9000010,"B","OPTION USED TO CREATE",.24)=""
^DD(9000010,"B","OUTSIDE LOCATION",2101)=""
^DD(9000010,"B","PACKAGE",81202)=""
^DD(9000010,"B","PARENT VISIT LINK",.12)=""
^DD(9000010,"B","PATIENT NAME",.05)=""
^DD(9000010,"B","PATIENT STATUS IN/OUT",15002)=""
^DD(9000010,"B","PATIENT/IHS",.05)="1"
^DD(9000010,"B","PERSIAN GULF EXPOSURE",80004)=""
^DD(9000010,"B","PFSS ACCOUNT REFERENCE",.26)=""
^DD(9000010,"B","PROTOCOL",.25)=""
^DD(9000010,"B","SERVICE CATEGORY",.07)=""
^DD(9000010,"B","SERVICE CONNECTED",80001)=""
^DD(9000010,"B","SERVICE CONNECTION EDIT FLAG",80011)=""
^DD(9000010,"B","TYPE",.03)=""
^DD(9000010,"B","VISIT DATE & TIME",.01)="1"
^DD(9000010,"B","VISIT ID",15001)=""
^DD(9000010,"B","VISIT/ADMIT DATE&TIME",.01)=""
^DD(9000010,"GL",0,1,.01)=""
^DD(9000010,"GL",0,2,.02)=""
^DD(9000010,"GL",0,3,.03)=""
^DD(9000010,"GL",0,5,.05)=""
^DD(9000010,"GL",0,6,.06)=""
^DD(9000010,"GL",0,7,.07)=""
^DD(9000010,"GL",0,8,.08)=""
^DD(9000010,"GL",0,9,.09)=""
^DD(9000010,"GL",0,11,.11)=""
^DD(9000010,"GL",0,12,.12)=""
^DD(9000010,"GL",0,13,.13)=""
^DD(9000010,"GL",0,18,.18)=""
^DD(9000010,"GL",0,21,.21)=""
^DD(9000010,"GL",0,22,.22)=""
^DD(9000010,"GL",0,23,.23)=""
^DD(9000010,"GL",0,24,.24)=""
^DD(9000010,"GL",0,25,.25)=""
^DD(9000010,"GL",0,26,.26)=""
^DD(9000010,"GL",21,1,2101)=""
^DD(9000010,"GL",150,1,15001)=""
^DD(9000010,"GL",150,2,15002)=""
^DD(9000010,"GL",150,3,15003)=""
^DD(9000010,"GL",800,1,80001)=""
^DD(9000010,"GL",800,2,80002)=""
^DD(9000010,"GL",800,3,80003)=""
^DD(9000010,"GL",800,4,80004)=""
^DD(9000010,"GL",800,5,80005)=""
^DD(9000010,"GL",800,6,80006)=""
^DD(9000010,"GL",800,7,80007)=""
^DD(9000010,"GL",800,11,80011)=""
^DD(9000010,"GL",800,12,80012)=""
^DD(9000010,"GL",800,13,80013)=""
^DD(9000010,"GL",800,14,80014)=""
^DD(9000010,"GL",800,15,80015)=""
^DD(9000010,"GL",800,16,80016)=""
^DD(9000010,"GL",800,17,80017)=""
^DD(9000010,"GL",811,1,81101)=""
^DD(9000010,"GL",812,2,81202)=""
^DD(9000010,"GL",812,3,81203)=""
^DD(9000010,"GR","IHS",.01,1)=""
^DD(9000010,"GR","IHS",.02,1)=""
^DD(9000010,"GR","IHS",.03,1)=""
^DD(9000010,"GR","IHS",.05,1)=""
^DD(9000010,"GR","IHS",.06,1)=""
^DD(9000010,"GR","IHS",.07,1)=""
^DD(9000010,"GR","IHS",.08,1)=""
^DD(9000010,"GR","IHS",.09,1)=""
^DD(9000010,"GR","IHS",.11,1)=""
^DD(9000010,"GR","IHS",.12,1)=""
^DD(9000010,"GR","IHS",.13,1)=""
^DD(9000010,"GR","IHS/VA",.02,3)=""
^DD(9000010,"GR","IHS/VA",.08,3)=""
^DD(9000010,"GR","IHS/VA",.09,3)=""
^DD(9000010,"GR","IHS/VA",.11,3)=""
^DD(9000010,"GR","IHS/VA",.12,3)=""
^DD(9000010,"GR","IHS/VA",.13,3)=""
^DD(9000010,"GR","VA",.01,2)=""
^DD(9000010,"GR","VA",.02,2)=""
^DD(9000010,"GR","VA",.08,2)=""
^DD(9000010,"GR","VA",.09,2)=""
^DD(9000010,"GR","VA",.11,2)=""
^DD(9000010,"GR","VA",.12,2)=""
^DD(9000010,"GR","VA",.13,2)=""
^DD(9000010,"GR","VA",.21,1)=""
^DD(9000010,"GR","VA",.22,1)=""
^DD(9000010,"GR","VA",.23,1)=""
^DD(9000010,"GR","VA",.24,1)=""
^DD(9000010,"GR","VA/IHS",.01,3)=""
^DD(9000010,"IX",.01)=""
^DD(9000010,"IX",.05)=""
^DD(9000010,"IX",.07)=""
^DD(9000010,"IX",.09)=""
^DD(9000010,"IX",.12)=""
^DD(9000010,"IX",.21)=""
^DD(9000010,"IX",.22)=""
^DD(9000010,"IX",15001)=""
^DD(9000010,"IX",15003)=""
^DD(9000010,"RQ",.01)=""
^DD(9000010,"RQ",.02)=""
^DD(9000010,"RQ",.03)=""
^DD(9000010,"RQ",.05)=""
^DD(9000010,"RQ",15001)=""
^DD(9000010.06,0)="FIELD^^81203^13"
^DD(9000010.06,0,"DDA")="N"
^DD(9000010.06,0,"DT")="2960613"
^DD(9000010.06,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.06,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.06,0,"IX","AD",9000010.06,.03)=""
^DD(9000010.06,0,"IX","AV10",9000010.06,.03)=""
^DD(9000010.06,0,"IX","B",9000010.06,.01)=""
^DD(9000010.06,0,"IX","C",9000010.06,.02)=""
^DD(9000010.06,0,"NM","V PROVIDER")=""
^DD(9000010.06,.01,0)="PROVIDER^RP200'^VA(200,^0;1^Q"
^DD(9000010.06,.01,1,0)="^.1^^-1"
^DD(9000010.06,.01,1,1,0)="9000010.06^B"
^DD(9000010.06,.01,1,1,1)="S ^AUPNVPRV(""B"",$E(X,1,30),DA)="""""
^DD(9000010.06,.01,1,1,2)="K ^AUPNVPRV(""B"",$E(X,1,30),DA)"
^DD(9000010.06,.01,1,1,"DT")="2940228"
^DD(9000010.06,.01,3)="Enter the provider of the patient encounter."
^DD(9000010.06,.01,4)=""
^DD(9000010.06,.01,21,0)="^^1^1^2960513^^^"
^DD(9000010.06,.01,21,1,0)="This is the provider giving patient care at this encounter."
^DD(9000010.06,.01,"AUDIT")=""
^DD(9000010.06,.01,"DT")="2960513"
^DD(9000010.06,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.06,.02,1,0)="^.1"
^DD(9000010.06,.02,1,2,0)="9000010.06^C"
^DD(9000010.06,.02,1,2,1)="S ^AUPNVPRV(""C"",$E(X,1,30),DA)="""""
^DD(9000010.06,.02,1,2,2)="K ^AUPNVPRV(""C"",$E(X,1,30),DA)"
^DD(9000010.06,.02,1,2,"%D",0)="^^1^1^2950810^"
^DD(9000010.06,.02,1,2,"%D",1,0)="This cross reference allows lookup by Patient in this file."
^DD(9000010.06,.02,1,2,"DT")="2950810"
^DD(9000010.06,.02,3)="Enter the patient name."
^DD(9000010.06,.02,21,0)="^^1^1^2950810^"
^DD(9000010.06,.02,21,1,0)="Patient Name."
^DD(9000010.06,.02,23,0)="^^2^2^2950810^"
^DD(9000010.06,.02,23,1,0)="Pointer to the Patient file.  Always stuffed by data entry, no editing"
^DD(9000010.06,.02,23,2,0)="allowed."
^DD(9000010.06,.02,"AUDIT")=""
^DD(9000010.06,.02,"DT")="2950810"
^DD(9000010.06,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVPRV(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.06,.03,1,0)="^.1"
^DD(9000010.06,.03,1,1,0)="9000010.06^AD"
^DD(9000010.06,.03,1,1,1)="S ^AUPNVPRV(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.06,.03,1,1,2)="K ^AUPNVPRV(""AD"",$E(X,1,30),DA)"
^DD(9000010.06,.03,1,1,"%D",0)="^^1^1^2950810^"
^DD(9000010.06,.03,1,1,"%D",1,0)="This is used for programmed lookup by visit internal entry number."
^DD(9000010.06,.03,1,1,"DT")="2940228"
^DD(9000010.06,.03,1,2,0)="9000010.06^AV10^MUMPS"
^DD(9000010.06,.03,1,2,1)="D ADD^AUPNVSIT"
^DD(9000010.06,.03,1,2,2)="D SUB^AUPNVSIT"
^DD(9000010.06,.03,1,2,"%D",0)="^^7^7^2950810^"
^DD(9000010.06,.03,1,2,"%D",1,0)="This cross reference is used to add ""1"" to the Dependent Entry Count field"
^DD(9000010.06,.03,1,2,"%D",2,0)="(#.09) of the related Visit file (9000010) entry to indicate that there is"
^DD(9000010.06,.03,1,2,"%D",3,0)="a file (in this case V Provider) pointing to the Visit."
^DD(9000010.06,.03,1,2,"%D",4,0)=" "
^DD(9000010.06,.03,1,2,"%D",5,0)="When the measurement entry is deleted, this cross reference is used to"
^DD(9000010.06,.03,1,2,"%D",6,0)="subtract ""1"" from the Dependent Entry Count field (#.09) of the related"
^DD(9000010.06,.03,1,2,"%D",7,0)="Visit file (9000010) entry."
^DD(9000010.06,.03,1,2,"DT")="2940218"
^DD(9000010.06,.03,3)="Enter the encounter from the Visit file.  Always stuffed."
^DD(9000010.06,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.06,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVPRV(DA,0),U,2)"""
^DD(9000010.06,.03,21,0)="^^2^2^2950810^"
^DD(9000010.06,.03,21,1,0)="The encounter entry in the Visit file where the provider gave clinical"
^DD(9000010.06,.03,21,2,0)="care to the patient."
^DD(9000010.06,.03,23,0)="^^2^2^2950810^"
^DD(9000010.06,.03,23,1,0)="Pointer to the Visit file. Always stuffed by data entry, no editing"
^DD(9000010.06,.03,23,2,0)="allowed."
^DD(9000010.06,.03,"AUDIT")=""
^DD(9000010.06,.03,"DT")="2940304"
^DD(9000010.06,.04,0)="PRIMARY/SECONDARY^RS^P:PRIMARY;S:SECONDARY;^0;4^Q"
^DD(9000010.06,.04,3)="Enter a P if the provider is the primary care giver for the encounter, otherwise enter S."
^DD(9000010.06,.04,10)="028/PSPRIME"
^DD(9000010.06,.04,21,0)="^^13^13^2950810^^"
^DD(9000010.06,.04,21,1,0)="This field indicates the provider was the primary or secondary care"
^DD(9000010.06,.04,21,2,0)="giver for the encounter.  The primary provider is usually the physician"
^DD(9000010.06,.04,21,3,0)="responsible for the patients care at THIS PARTICULAR encounter, where"
^DD(9000010.06,.04,21,4,0)="clinical decisions were being made.  The primary provider for this"
^DD(9000010.06,.04,21,5,0)="encounter may or may not be the ""Primary Care Provider"" for this patient"
^DD(9000010.06,.04,21,6,0)="for overall care."
^DD(9000010.06,.04,21,7,0)="  "
^DD(9000010.06,.04,21,8,0)="Secondary providers are those providers, who were also providing care"
^DD(9000010.06,.04,21,9,0)="where clinical decisions were being made.  This may be nurses, social"
^DD(9000010.06,.04,21,10,0)="workers, pharmacists,..."
^DD(9000010.06,.04,21,11,0)="  "
^DD(9000010.06,.04,21,12,0)="There may be more than one ""primary"" and ""secondary"" V Provider entries"
^DD(9000010.06,.04,21,13,0)="for a particular encounter in the Visit file."
^DD(9000010.06,.04,23,0)="^^4^4^2950810^^^"
^DD(9000010.06,.04,23,1,0)="In the VA's PCE interfaces, ""primary"" is the default for provider entries"
^DD(9000010.06,.04,23,2,0)="where a provider has not been entered yet for the visit.  ""Secondary"" is"
^DD(9000010.06,.04,23,3,0)="the default for provider entries where a provider already exist for the"
^DD(9000010.06,.04,23,4,0)="visit. "
^DD(9000010.06,.04,"AUDIT")=""
^DD(9000010.06,.04,"DT")="2940427"
^DD(9000010.06,.05,0)="OPERATING/ATTENDING^S^A:ATTENDING;O:OPERATING;^0;5^Q"
^DD(9000010.06,.05,3)="Enter A if the provider was ""Attending"" at this encounter.  Enter O if the provider was ""Operating"" at this encounter."
^DD(9000010.06,.05,21,0)="^^2^2^2950810^"
^DD(9000010.06,.05,21,1,0)="A Provider may be furthur identified as the ""Attending"" provider or an"
^DD(9000010.06,.05,21,2,0)="""Operating"" provider for the encounter."
^DD(9000010.06,.05,"AUDIT")=""
^DD(9000010.06,.05,"DT")="2940427"
^DD(9000010.06,.06,0)="PERSON CLASS^P8932.1'^USC(8932.1,^0;6^Q"
^DD(9000010.06,.06,21,0)="^^1^1^2960613^"
^DD(9000010.06,.06,21,1,0)="This is the class of the provider at the time of the encounter."
^DD(9000010.06,.06,"DT")="2960613"
^DD(9000010.06,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.06,1201,3)="Enter the date and time the provider had the encounter with the patient."
^DD(9000010.06,1201,21,0)="^^10^10^2960403^^^^"
^DD(9000010.06,1201,21,1,0)="This is the date and time the provider had the encounter with the"
^DD(9000010.06,1201,21,2,0)="patient. This date and time may be different from the visit date and time."
^DD(9000010.06,1201,21,3,0)="For example, for clinic appointment visits, the visit date and time is the date"
^DD(9000010.06,1201,21,4,0)="and time of the appointment, not the time the provider performed the"
^DD(9000010.06,1201,21,5,0)="clinical event. "
^DD(9000010.06,1201,21,6,0)=" "
^DD(9000010.06,1201,21,7,0)="The date may be an imprecise date.   "
^DD(9000010.06,1201,21,8,0)="                            "
^DD(9000010.06,1201,21,9,0)="Date and time may be within 30 days before or after the visit date, with"
^DD(9000010.06,1201,21,10,0)="the restriction the date cannot be a future date."
^DD(9000010.06,1201,23,0)="^^14^14^2960403^^^^"
^DD(9000010.06,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the"
^DD(9000010.06,1201,23,2,0)="primary source of the event date and time.  The event date prompt defaults"
^DD(9000010.06,1201,23,3,0)="to the visit date, and the time is entered to reflect the actual time the"
^DD(9000010.06,1201,23,4,0)="provider had the encounter.  The event date does not have to be the visit"
^DD(9000010.06,1201,23,5,0)="date, but it must be within 30 days before or after the visit, and not be"
^DD(9000010.06,1201,23,6,0)="a future date."
^DD(9000010.06,1201,23,7,0)=" "
^DD(9000010.06,1201,23,8,0)="If a user wants to enter a historical provider encounter, the user should"
^DD(9000010.06,1201,23,9,0)="use the Historical Encounter entry action to document the historical"
^DD(9000010.06,1201,23,10,0)="encounter with the provider. Historical entries will not be eligible for"
^DD(9000010.06,1201,23,11,0)="credit."
^DD(9000010.06,1201,23,12,0)=" "
^DD(9000010.06,1201,23,13,0)="PCE Data Sources for automatic (scanning) data capture will be blank"
^DD(9000010.06,1201,23,14,0)="unless the event date and time are passed to PCE for filing."
^DD(9000010.06,1201,"DT")="2960403"
^DD(9000010.06,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.06,80101,3)="Answer is automatically entered by PCE filing logic."
^DD(9000010.06,80101,21,0)="^^2^2^2950901^^^^"
^DD(9000010.06,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original"
^DD(9000010.06,80101,21,2,0)="provider data is being edited."
^DD(9000010.06,80101,23,0)="^^2^2^2950901^^^^"
^DD(9000010.06,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.06,80101,23,2,0)="record to ddetermine if the edited flag should be set to ""1""."
^DD(9000010.06,80101,"DT")="2940314"
^DD(9000010.06,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.06,80102,3)="Answer is automatically entered by the PCE filing logic."
^DD(9000010.06,80102,21,0)="^^3^3^2950901^^^^"
^DD(9000010.06,80102,21,1,0)="This field is populated automatically by the PCE filing logic.  The formt of"
^DD(9000010.06,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.06,80102,21,3,0)="for Edit_""-""DUZ of the persion who entered the data_"";""..."
^DD(9000010.06,80102,23,0)="^^14^14^2950901^^^^"
^DD(9000010.06,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE data source file.  If this"
^DD(9000010.06,80102,23,2,0)="is not passed, then PCE filing logic will not process the data."
^DD(9000010.06,80102,23,3,0)=" "
^DD(9000010.06,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source that"
^DD(9000010.06,80102,23,5,0)="added the data.  If the record existed previously, PCE filing logic compares"
^DD(9000010.06,80102,23,6,0)="the old and new records of information.  An ""E"" will be automatically used if"
^DD(9000010.06,80102,23,7,0)="the filing logic finds the data has been edited.  If ""E"" is used, then the"
^DD(9000010.06,80102,23,8,0)="Edited Flag field is automatically set to 1."
^DD(9000010.06,80102,23,9,0)=" "
^DD(9000010.06,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who performed"
^DD(9000010.06,80102,23,11,0)="the addition or editing of data for this record."
^DD(9000010.06,80102,23,12,0)=" "
^DD(9000010.06,80102,23,13,0)="Iterations of editing will be concatenated to the previous data source value,"
^DD(9000010.06,80102,23,14,0)="up to 85 characters."
^DD(9000010.06,80102,"DT")="2960509"
^DD(9000010.06,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.06,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.06,81101,21,0)="^^2^2^2950901^^^^"
^DD(9000010.06,81101,21,1,0)="This is a comment related to the patient's provider.  The provider may enter"
^DD(9000010.06,81101,21,2,0)="this manually via the PCE User Interface."
^DD(9000010.06,81101,"DT")="2950712"
^DD(9000010.06,81201,0)="VERIFIED^SI^1:ELECTONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.06,81201,"DT")="2960509"
^DD(9000010.06,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.06,81202,"DT")="2960509"
^DD(9000010.06,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.06,81203,"DT")="2960509"
^DD(9000010.06,"B","AUDIT TRAIL",80102)=""
^DD(9000010.06,"B","COMMENTS",81101)=""
^DD(9000010.06,"B","DATA SOURCE",81203)=""
^DD(9000010.06,"B","EDITED FLAG",80101)=""
^DD(9000010.06,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.06,"B","OPERATING/ATTENDING",.05)=""
^DD(9000010.06,"B","PACKAGE",81202)=""
^DD(9000010.06,"B","PATIENT NAME",.02)=""
^DD(9000010.06,"B","PERSON CLASS",.06)=""
^DD(9000010.06,"B","PRIMARY/SECONDARY",.04)=""
^DD(9000010.06,"B","PROVIDER",.01)=""
^DD(9000010.06,"B","VERIFIED",81201)=""
^DD(9000010.06,"B","VISIT",.03)=""
^DD(9000010.06,"GL",0,1,.01)=""
^DD(9000010.06,"GL",0,2,.02)=""
^DD(9000010.06,"GL",0,3,.03)=""
^DD(9000010.06,"GL",0,4,.04)=""
^DD(9000010.06,"GL",0,5,.05)=""
^DD(9000010.06,"GL",0,6,.06)=""
^DD(9000010.06,"GL",12,1,1201)=""
^DD(9000010.06,"GL",801,1,80101)=""
^DD(9000010.06,"GL",801,2,80102)=""
^DD(9000010.06,"GL",811,1,81101)=""
^DD(9000010.06,"GL",812,1,81201)=""
^DD(9000010.06,"GL",812,2,81202)=""
^DD(9000010.06,"GL",812,3,81203)=""
^DD(9000010.06,"IX",.01)=""
^DD(9000010.06,"IX",.02)=""
^DD(9000010.06,"IX",.03)=""
^DD(9000010.06,"RQ",.01)=""
^DD(9000010.06,"RQ",.02)=""
^DD(9000010.06,"RQ",.03)=""
^DD(9000010.06,"RQ",.04)=""
^DD(9000010.07,0)="FIELD^^81203^28"
^DD(9000010.07,0,"DDA")="N"
^DD(9000010.07,0,"DT")="2960513"
^DD(9000010.07,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.07,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.07,0,"IX","AA",9000010.07,.03)=""
^DD(9000010.07,0,"IX","AATOO",9000010.07,.02)=""
^DD(9000010.07,0,"IX","AD",9000010.07,.03)=""
^DD(9000010.07,0,"IX","AV10",9000010.07,.03)=""
^DD(9000010.07,0,"IX","B",9000010.07,.01)=""
^DD(9000010.07,0,"IX","C",9000010.07,.02)=""
^DD(9000010.07,0,"NM","V POV")=""
^DD(9000010.07,0,"PT",100.04,.01)=""
^DD(9000010.07,0,"PT",8925.9,.03)=""
^DD(9000010.07,.01,0)="POV^R*P80'X^ICD9(^0;1^S:$D(APCDEIN) APCDTPCC="""" S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.07,.01,1,0)="^.1^^-1"
^DD(9000010.07,.01,1,1,0)="9000010.07^B"
^DD(9000010.07,.01,1,1,1)="S ^AUPNVPOV(""B"",$E(X,1,30),DA)="""""
^DD(9000010.07,.01,1,1,2)="K ^AUPNVPOV(""B"",$E(X,1,30),DA)"
^DD(9000010.07,.01,3)="Enter the ICD Diagnosis code or text for the problem treated at the encounter."
^DD(9000010.07,.01,12)="POV CANNOT BE AN INACTIVE CODE"
^DD(9000010.07,.01,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.07,.01,21,0)="^^16^16^2950831^"
^DD(9000010.07,.01,21,1,0)="POV is an abbreviation for ""Purpose of Visit"".  Since Purpose of Visit is"
^DD(9000010.07,.01,21,2,0)="often confused with ""Chief complaint"", another abbreviation might better"
^DD(9000010.07,.01,21,3,0)="be  ""Problem of Visit"".  This is the Provider's conclusion about what was"
^DD(9000010.07,.01,21,4,0)="treated at the visit.  The Provider should be able to indicate a preferred"
^DD(9000010.07,.01,21,5,0)="narrative for what was treated and an ICD Diagnosis code.  If the problem"
^DD(9000010.07,.01,21,6,0)="treated is from the Problem List, then the problem list entry information"
^DD(9000010.07,.01,21,7,0)="can be used for the ""Problem of Visit"" entry.  The provider can"
^DD(9000010.07,.01,21,8,0)="alternatively have this information automatically captured via scanned"
^DD(9000010.07,.01,21,9,0)="Encounter Forms (e.g., AICS - the VA's Encounter Form Data Capture"
^DD(9000010.07,.01,21,10,0)="package)."
^DD(9000010.07,.01,21,11,0)=" "
^DD(9000010.07,.01,21,12,0)="At VA facilites, the ICD Diagnosis is screened by Inactive Code and it"
^DD(9000010.07,.01,21,13,0)="must be appropriate for the Patient's age and sex."
^DD(9000010.07,.01,21,14,0)=" "
^DD(9000010.07,.01,21,15,0)="At IHS facilities, the ICD Diagnosis is screened by Inactive Code,"
^DD(9000010.07,.01,21,16,0)="appropriate for the Patient's age and sex, and Not ""E"" codes."
^DD(9000010.07,.01,23,0)="^^1^1^2950831^^^^"
^DD(9000010.07,.01,23,1,0)="This is a pointer to the ICD Diagnosis (#80) file."
^DD(9000010.07,.01,"AUDIT")="n"
^DD(9000010.07,.01,"DT")="2950831"
^DD(9000010.07,.019,0)="ICD NARRATIVE^CJ30^^ ; ^X ^DD(9000010.07,.019,9.2) S Y(9000010.07,.019,101)=$S($D(^ICD9(D0,0)):^(0),1:"""") S X=$P(Y(9000010.07,.019,101),U,3) S D0=Y(9000010.07,.019,80)"
^DD(9000010.07,.019,9)="^"
^DD(9000010.07,.019,9.01)="80^3;9000010.07^.01"
^DD(9000010.07,.019,9.1)="POV:DIAGNOSIS"
^DD(9000010.07,.019,9.2)="S Y(9000010.07,.019,80)=$S($D(D0):D0,1:""""),Y(9000010.07,.019,1)=$S($D(^AUPNVPOV(D0,0)):^(0),1:""""),D0=$P(Y(9000010.07,.019,1),U,1) S:'$D(^ICD9(+D0,0)) D0=-1"
^DD(9000010.07,.019,21,0)="^^3^3^2950831^"
^DD(9000010.07,.019,21,1,0)="This is the computed diagnosis narrative that is defined in the ICD"
^DD(9000010.07,.019,21,2,0)="Diagnosis file for the ICD Diagnosis code identified in the POV"
^DD(9000010.07,.019,21,3,0)="(.01) field."
^DD(9000010.07,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.07,.02,1,0)="^.1"
^DD(9000010.07,.02,1,2,0)="9000010.07^AATOO^MUMPS"
^DD(9000010.07,.02,1,2,1)="I $P(^AUPNVPOV(DA,0),U,3)]"""" S ^AUPNVPOV(""AA"",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.07,.02,1,2,2)="I $P(^AUPNVPOV(DA,0),U,3)]"""" K ^AUPNVPOV(""AA"",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPOV(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.07,.02,1,2,"%D",0)="^^4^4^2950831^"
^DD(9000010.07,.02,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, inverted"
^DD(9000010.07,.02,1,2,"%D",2,0)="visit date, and internal entry number."
^DD(9000010.07,.02,1,2,"%D",3,0)=" "
^DD(9000010.07,.02,1,2,"%D",4,0)="    ""AA"",PATIENT,VISIT,DA"
^DD(9000010.07,.02,1,3,0)="9000010.07^C"
^DD(9000010.07,.02,1,3,1)="S ^AUPNVPOV(""C"",$E(X,1,30),DA)="""""
^DD(9000010.07,.02,1,3,2)="K ^AUPNVPOV(""C"",$E(X,1,30),DA)"
^DD(9000010.07,.02,1,3,"%D",0)="^^2^2^2950831^"
^DD(9000010.07,.02,1,3,"%D",1,0)="This cross reference allows Fileman to look-up entries in the file for a"
^DD(9000010.07,.02,1,3,"%D",2,0)="particular Patient."
^DD(9000010.07,.02,1,3,"DT")="2950831"
^DD(9000010.07,.02,3)="Enter the name of the patient who had the POV treated."
^DD(9000010.07,.02,21,0)="^^1^1^2950901^"
^DD(9000010.07,.02,21,1,0)="This is the patient whose problem or diagnosis was treated."
^DD(9000010.07,.02,23,0)="^^3^3^2950901^^"
^DD(9000010.07,.02,23,1,0)="This is a pointer to the Patient/IHS file (#9000001), which is dinumed to"
^DD(9000010.07,.02,23,2,0)="the Patient file (#2).  This field is always stuffed by the application."
^DD(9000010.07,.02,23,3,0)="No editing is allowed."
^DD(9000010.07,.02,"AUDIT")="n"
^DD(9000010.07,.02,"DT")="2950831"
^DD(9000010.07,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVPOV(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.07,.03,1,0)="^.1"
^DD(9000010.07,.03,1,1,0)="9000010.07^AD"
^DD(9000010.07,.03,1,1,1)="S ^AUPNVPOV(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.07,.03,1,1,2)="K ^AUPNVPOV(""AD"",$E(X,1,30),DA)"
^DD(9000010.07,.03,1,1,"%D",0)="^^4^4^2950831^"
^DD(9000010.07,.03,1,1,"%D",1,0)="This cross-reference is used for searches by the visit pointer and"
^DD(9000010.07,.03,1,1,"%D",2,0)="internal entry number."
^DD(9000010.07,.03,1,1,"%D",3,0)=" "
^DD(9000010.07,.03,1,1,"%D",4,0)="  ""AD"",VISIT pointer value, DA"
^DD(9000010.07,.03,1,2,0)="9000010.07^AA^MUMPS"
^DD(9000010.07,.03,1,2,1)="Q:$P(^AUPNVPOV(DA,0),U,2)=""""  S ^AUPNVPOV(""AA"",$P(^AUPNVPOV(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.07,.03,1,2,2)="Q:$P(^AUPNVPOV(DA,0),U,2)=""""  K ^AUPNVPOV(""AA"",$P(^AUPNVPOV(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.07,.03,1,2,"%D",0)="^^4^4^2950831^"
^DD(9000010.07,.03,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, inverted"
^DD(9000010.07,.03,1,2,"%D",2,0)="visit date (from the Visit file) and the internal entry number."
^DD(9000010.07,.03,1,2,"%D",3,0)=" "
^DD(9000010.07,.03,1,2,"%D",4,0)="    ""AA"",PATIENT,inverted VISIT, DA"
^DD(9000010.07,.03,1,3,0)="9000010.07^AV10^MUMPS"
^DD(9000010.07,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.07,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.07,.03,1,3,"%D",0)="^^2^2^2940126^"
^DD(9000010.07,.03,1,3,"%D",1,0)="This cross-reference adds and subtracts from the dependent entry count in"
^DD(9000010.07,.03,1,3,"%D",2,0)="the VISIT file."
^DD(9000010.07,.03,3)="Enter the visit date/time for the encounter where the problem was treated."
^DD(9000010.07,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.07,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVPOV(DA,0),U,2)"""
^DD(9000010.07,.03,21,0)="^^20^20^2950901^"
^DD(9000010.07,.03,21,1,0)="The encounter entry in the Visit file that is associated with this"
^DD(9000010.07,.03,21,2,0)="problem treated."
^DD(9000010.07,.03,21,3,0)=" "
^DD(9000010.07,.03,21,4,0)="In IHS facilities, this is the date and time the visit actually occurred."
^DD(9000010.07,.03,21,5,0)=" "
^DD(9000010.07,.03,21,6,0)="In VA facilities, this is the data and time of the clinic appointment for"
^DD(9000010.07,.03,21,7,0)="the patient in the Scheduling package, or the date and time the encounter"
^DD(9000010.07,.03,21,8,0)="occurred if there was no appointment. By using the appointment date and"
^DD(9000010.07,.03,21,9,0)="time, clinic activity can be captured for clinical use as well as be"
^DD(9000010.07,.03,21,10,0)="used for billing and workload information by the appropriate VA packages."
^DD(9000010.07,.03,21,11,0)="If the visit was for a walk-in, an appointment should be entered in"
^DD(9000010.07,.03,21,12,0)="Scheduling first in order to have the clinical information also be used"
^DD(9000010.07,.03,21,13,0)="for the administrative uses."
^DD(9000010.07,.03,21,14,0)=" "
^DD(9000010.07,.03,21,15,0)="Non-clinic appointment encounters can be entered, but the clinical POV"
^DD(9000010.07,.03,21,16,0)="information is not accepted for billing.  "
^DD(9000010.07,.03,21,17,0)=" "
^DD(9000010.07,.03,21,18,0)="The patient encounter can be the result of an inpatient encounter.  In"
^DD(9000010.07,.03,21,19,0)="this case, the ward would be specified as the hospital location in the"
^DD(9000010.07,.03,21,20,0)="Visit File."
^DD(9000010.07,.03,23,0)="^^2^2^2950901^^"
^DD(9000010.07,.03,23,1,0)="This is a pointer to the Visit file (#9000010).  This field is stuffed by"
^DD(9000010.07,.03,23,2,0)="the applications.  No editing is allowed."
^DD(9000010.07,.03,"AUDIT")="n"
^DD(9000010.07,.03,"DT")="2890811"
^DD(9000010.07,.04,0)="PROVIDER NARRATIVE^R*P9999999.27^AUTNPOV(^0;4^S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.07,.04,3)="Enter the provider's preferred text identifying the diagnosis treated at the encounter."
^DD(9000010.07,.04,12)="IHS OLD LOOKUP or VA Exact Match"
^DD(9000010.07,.04,12.1)="S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"")"
^DD(9000010.07,.04,21,0)="^^19^19^2950901^"
^DD(9000010.07,.04,21,1,0)="This is the providers text describing the diagnosis that was treated at"
^DD(9000010.07,.04,21,2,0)="the visit.  The text may contain additional information related"
^DD(9000010.07,.04,21,3,0)="specifically to the patient at the time of the visit (e.g, Hypertension,"
^DD(9000010.07,.04,21,4,0)="uncontrolled).  The providers' narrative may be different from the ICD"
^DD(9000010.07,.04,21,5,0)="Diagnosis files description for a code, but should not have a"
^DD(9000010.07,.04,21,6,0)="significantly different meaning.  The ICD Diagnosis code in the POV (.01)"
^DD(9000010.07,.04,21,7,0)="field should be the code that ""most closely"" represents the providers"
^DD(9000010.07,.04,21,8,0)="narrative."
^DD(9000010.07,.04,21,9,0)=" "
^DD(9000010.07,.04,21,10,0)="In IHS facilities, this narrative is entered by data entry clerks."
^DD(9000010.07,.04,21,11,0)=" "
^DD(9000010.07,.04,21,12,0)="In VA facilities, this narrative may be entered manually or derived from:"
^DD(9000010.07,.04,21,13,0)="1) the ICD Diagnosis text from the ICD Diagnosis file (Scheduling"
^DD(9000010.07,.04,21,14,0)="interface)"
^DD(9000010.07,.04,21,15,0)="2) the text defined on Encounter Forms when defining the most common"
^DD(9000010.07,.04,21,16,0)="diagnosis treated for a clinic (AICS or other automated data capture)"
^DD(9000010.07,.04,21,17,0)="3) the Problem list entries' ""provider narrative"", captured from the"
^DD(9000010.07,.04,21,18,0)="Active Problem list being checked off for problems treated at the"
^DD(9000010.07,.04,21,19,0)="encounter on an Encounter Form (AICS or other automated data capture)."
^DD(9000010.07,.04,23,0)="^^7^7^2950901^"
^DD(9000010.07,.04,23,1,0)="This is a pointer to the Provider Narrative file (#9999999.27).  Disk"
^DD(9000010.07,.04,23,2,0)="space is saved by storing ONE entry in the provider narrative file for"
^DD(9000010.07,.04,23,3,0)="each unique narrative.  The provider narrative is often repetitive,"
^DD(9000010.07,.04,23,4,0)="especially, if the data capture mode is automated."
^DD(9000010.07,.04,23,5,0)=" "
^DD(9000010.07,.04,23,6,0)="The resulting entries in the Provider Narrative file builds a file of"
^DD(9000010.07,.04,23,7,0)="preferred provider terminology."
^DD(9000010.07,.04,"AUDIT")=""
^DD(9000010.07,.04,"DT")="2950831"
^DD(9000010.07,.06,0)="MODIFIER^*S^C:CONSIDER;D:DOUBTFUL;F:FOLLOW UP;M:MAYBE, POSSIBLE, PERHAPS;O:RULE OUT;P:PROBABLE;R:RESOLVED;S:SUSPECT, SUSPICIOUS;T:STATUS POST;^0;6^Q"
^DD(9000010.07,.06,3)="Enter the provider's modifier of the diagnosis treated."
^DD(9000010.07,.06,10)="061/DISPEC"
^DD(9000010.07,.06,12)="VA screens for Rule Out, Follow Up, and Status Post"
^DD(9000010.07,.06,12.1)="S:DUZ(""AG"")=""V"" DIC(""S"")=""I """"FOT""""[Y"""
^DD(9000010.07,.06,21,0)="^^4^4^2950901^"
^DD(9000010.07,.06,21,1,0)="(Optional) This is how a provider may modify the diagnosis or problem"
^DD(9000010.07,.06,21,2,0)="treated to reflect the status of the diagnosis as of this"
^DD(9000010.07,.06,21,3,0)="visit. Common examples of modifiers are Rule Out, Follow-up, or Status"
^DD(9000010.07,.06,21,4,0)="Post.  "
^DD(9000010.07,.06,23,0)="^^3^3^2950901^^^"
^DD(9000010.07,.06,23,1,0)="The VA uses a smaller set of modifiers than the IHS does.  The file is"
^DD(9000010.07,.06,23,2,0)="distributed with the complete set of codes originally defined by the"
^DD(9000010.07,.06,23,3,0)="Indian Health Service."
^DD(9000010.07,.06,"DT")="2950831"
^DD(9000010.07,.12,0)="PRIMARY/SECONDARY^S^P:PRIMARY;S:SECONDARY;^0;12^Q"
^DD(9000010.07,.12,3)="Enter the clinically pertinent ranking for this problem treated."
^DD(9000010.07,.12,10)="061/DIPRIME"
^DD(9000010.07,.12,21,0)="^^3^3^2950901^"
^DD(9000010.07,.12,21,1,0)="This field represents the clinically pertinent ranking of problems treated."
^DD(9000010.07,.12,21,2,0)="There is no limit on how many POV's may be identified as primary or"
^DD(9000010.07,.12,21,3,0)="secondary problems treated at the visit."
^DD(9000010.07,.12,"DT")="2950831"
^DD(9000010.07,.13,0)="DATE OF INJURY^D^^0;13^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.07,.13,3)="Enter the date of the injury"
^DD(9000010.07,.13,21,0)="^^5^5^2960404^^^"
^DD(9000010.07,.13,21,1,0)="This is the date the injury occurred for the problem being treated."
^DD(9000010.07,.13,21,2,0)=" "
^DD(9000010.07,.13,21,3,0)="At VA facilities, the date of injury is prompted for when the ICD"
^DD(9000010.07,.13,21,4,0)="Diagnosis in the POV field (.01) is for an injury with a code between"
^DD(9000010.07,.13,21,5,0)="800-999.999."
^DD(9000010.07,.13,"DT")="2960404"
^DD(9000010.07,.15,0)="CLINICAL TERM^P757.01'^LEX(757.01,^0;15^Q"
^DD(9000010.07,.15,3)="Enter the provider narrative or clinical terminology for the diagnosis treated."
^DD(9000010.07,.15,21,0)="^^7^7^2950817^"
^DD(9000010.07,.15,21,1,0)="This field is the clinical lexicon term which most closely represents"
^DD(9000010.07,.15,21,2,0)="the provider narrative of the problem treated."
^DD(9000010.07,.15,21,3,0)=" "
^DD(9000010.07,.15,21,4,0)="At VA facilities: The clinical lexicon is automatically captured via"
^DD(9000010.07,.15,21,5,0)="encounter form data capture (AICS package) when the of problem being "
^DD(9000010.07,.15,21,6,0)="treated is from the Active Problem List.  In the manual data entry"
^DD(9000010.07,.15,21,7,0)="process, there is currently no prompt for the clinical term."
^DD(9000010.07,.15,23,0)="^^4^4^2950817^"
^DD(9000010.07,.15,23,1,0)="This field was created by the VA to capture the clinical lexicon term,"
^DD(9000010.07,.15,23,2,0)="as an alternative to, or in addition to the ICD9 Diagnosis code.  This"
^DD(9000010.07,.15,23,3,0)="field will primarily be populated when the diagnosis being treated at a"
^DD(9000010.07,.15,23,4,0)="visit is based on an entry in the Active Problem List."
^DD(9000010.07,.15,"DT")="2940518"
^DD(9000010.07,.16,0)="PROBLEM LIST ENTRY^P9000011'^AUPNPROB(^0;16^Q"
^DD(9000010.07,.16,3)="Enter the problem entry from the patient's problem list for the problem treated."
^DD(9000010.07,.16,21,0)="^^2^2^2950817^"
^DD(9000010.07,.16,21,1,0)="This field identifies what Problem List entry is related to the problem"
^DD(9000010.07,.16,21,2,0)="treated at the visit."
^DD(9000010.07,.16,23,0)="^^5^5^2950817^"
^DD(9000010.07,.16,23,1,0)="This field was added for use by PCE in the VA."
^DD(9000010.07,.16,23,2,0)=" "
^DD(9000010.07,.16,23,3,0)="Automated data capture methods, that allow the problems treated at a "
^DD(9000010.07,.16,23,4,0)="visit to be selected from the active problem list, will be able to"
^DD(9000010.07,.16,23,5,0)="provide the problem list entry which is stored in this field."
^DD(9000010.07,.16,"DT")="2930329"
^DD(9000010.07,.17,0)="ORDERING/RESULTING^S^O:ORDERING;R:RESULTING;OR:BOTH O&R;^0;17^Q"
^DD(9000010.07,.17,3)="Enter O if the diagnosis is an ordering diagnosis, enter R if the diagnosis is a resulting diagnosis and enter B if the diagnosis is used for both ordering and resulting."
^DD(9000010.07,.17,21,0)="^.001^2^2^3040217^^^^"
^DD(9000010.07,.17,21,1,0)="This field identifies a diagnosis as being Ordering, Resulting, or"
^DD(9000010.07,.17,21,2,0)="both Ordering and Resulting."
^DD(9000010.07,.17,23,0)="^.001^2^2^3040217^^^^"
^DD(9000010.07,.17,23,1,0)="Ordering diagnoses are used for facility charges in billing,"
^DD(9000010.07,.17,23,2,0)="resulting diagnoses are used in professional services billing."
^DD(9000010.07,.17,"DT")="3040217"
^DD(9000010.07,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.07,1201,3)="Enter the date and time this problem was treated."
^DD(9000010.07,1201,21,0)="^^7^7^2960403^^"
^DD(9000010.07,1201,21,1,0)="This is the actual date and time of the encounter.  This date and time may"
^DD(9000010.07,1201,21,2,0)="be different than the visit date and time specified in the Visit file."
^DD(9000010.07,1201,21,3,0)="However it must be within 30 days of the Visit date and Not be a future"
^DD(9000010.07,1201,21,4,0)="date.  "
^DD(9000010.07,1201,21,5,0)=" "
^DD(9000010.07,1201,21,6,0)="This field is useful for capturing the actual time encounters take place,"
^DD(9000010.07,1201,21,7,0)="or when, during the encounter, something happened."
^DD(9000010.07,1201,23,0)="^^9^9^2960403^^^^"
^DD(9000010.07,1201,23,1,0)="This field was added for use by PCE in the VA, to support the capture of"
^DD(9000010.07,1201,23,2,0)="the actual event date and time of the encounter which is not reflected in"
^DD(9000010.07,1201,23,3,0)="the Visit file entry.  IHS allows the Visit date and time to be the actual"
^DD(9000010.07,1201,23,4,0)="date and time. But, the VA uses the Visit date and time as the"
^DD(9000010.07,1201,23,5,0)="Appointment date and time, rather than the ""Actual"" encounter event date"
^DD(9000010.07,1201,23,6,0)="and time.  The Appointment date and time orientation of visits allows the"
^DD(9000010.07,1201,23,7,0)="VA Scheduling, billing and workload functionality to understand the"
^DD(9000010.07,1201,23,8,0)="linkage between the clinical data being captured for a visit and the"
^DD(9000010.07,1201,23,9,0)="existing Outpatient Scheduled events."
^DD(9000010.07,1201,"DT")="2960403"
^DD(9000010.07,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.07,1202,3)="Enter the ordering provider."
^DD(9000010.07,1202,21,0)="^^5^5^2960513^^"
^DD(9000010.07,1202,21,1,0)="For consistency, this field was added to each V-file.  However, for the "
^DD(9000010.07,1202,21,2,0)="V POV, the Ordering Provider does not apply itself well, unless a provider"
^DD(9000010.07,1202,21,3,0)="is ordering another provider to treat a problem. Optionally, in the"
^DD(9000010.07,1202,21,4,0)="future, this field may be able to represent the provider responsible for"
^DD(9000010.07,1202,21,5,0)="the encounter providers work."
^DD(9000010.07,1202,"DT")="2960513"
^DD(9000010.07,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.07,1204,3)="Enter the care giver who treated the problem."
^DD(9000010.07,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.07,1204,21,1,0)="This is the provider who treated the diagnosis at the encounter."
^DD(9000010.07,1204,"DT")="2941219"
^DD(9000010.07,80001,0)="SERVICE CONNECTED^S^1:YES;0:NO;^800;1^Q"
^DD(9000010.07,80001,3)="If this problem treated is service connected, enter ""YES"" here."
^DD(9000010.07,80001,21,0)="^^2^2^2950817^^"
^DD(9000010.07,80001,21,1,0)="This field is used in the VA to indicate that this problem treated at this"
^DD(9000010.07,80001,21,2,0)="visit was service connected."
^DD(9000010.07,80001,23,0)="^^5^5^2950831^"
^DD(9000010.07,80001,23,1,0)="This field is used by the VA.  The data is only passed to PCE from the"
^DD(9000010.07,80001,23,2,0)="automated data capture of encounter form data when a Problem from the"
^DD(9000010.07,80001,23,3,0)="Active Problem list has been identified as the problem treated at the"
^DD(9000010.07,80001,23,4,0)="visit.  If the Problem List identified the Problem as Service Connected,"
^DD(9000010.07,80001,23,5,0)="then this Service Connected field would be automatically set to 1."
^DD(9000010.07,80001,"DT")="2940331"
^DD(9000010.07,80002,0)="AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^800;2^Q"
^DD(9000010.07,80002,3)="If the problem treated is related to agent orange exposure, enter ""YES"" here."
^DD(9000010.07,80002,21,0)="^^2^2^2940331^"
^DD(9000010.07,80002,21,1,0)="This field is used in the VA to indicate that this problem treated at this"
^DD(9000010.07,80002,21,2,0)="visit was related to agent orange exposure."
^DD(9000010.07,80002,23,0)="^^5^5^2950831^"
^DD(9000010.07,80002,23,1,0)="This field is used by the VA.  The data is only passed to PCE from"
^DD(9000010.07,80002,23,2,0)="the automated data capture of encounter form data.  If a problem from the"
^DD(9000010.07,80002,23,3,0)="Active Problem List is identified as the problem treated at the visit, and"
^DD(9000010.07,80002,23,4,0)="the problem has been associated with Agent Orange Exposure in the Problem"
^DD(9000010.07,80002,23,5,0)="List, then the POV's Agent Orange Exposure will be set to ""1""."
^DD(9000010.07,80002,"DT")="2940331"
^DD(9000010.07,80003,0)="IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^800;3^Q"
^DD(9000010.07,80003,3)="If this problem treated is related to ionizing radiation exposure, enter ""YES""."
^DD(9000010.07,80003,21,0)="^^2^2^2940331^"
^DD(9000010.07,80003,21,1,0)="This field is used in the VA to indicate that this problem treated at this"
^DD(9000010.07,80003,21,2,0)="visit was related to ionizing radiation exposure."
^DD(9000010.07,80003,23,0)="^^5^5^2950831^"
^DD(9000010.07,80003,23,1,0)="This field is used by the VA.  The data is only passed to PCE from the"
^DD(9000010.07,80003,23,2,0)="automated data capture of encounter form data.  If a problem on the Active"
^DD(9000010.07,80003,23,3,0)="Problem List is identified as a problem treated at the visit, and the"
^DD(9000010.07,80003,23,4,0)="problem is defined as related to ionizing radiation exposure, then the POV"
^DD(9000010.07,80003,23,5,0)="Ionizing Radiation Exposure will be set to ""1""."
^DD(9000010.07,80003,"DT")="2940331"
^DD(9000010.07,80004,0)="PERSIAN GULF EXPOSURE^S^1:YES;0:NO;^800;4^Q"
^DD(9000010.07,80004,3)="If this problem treated is related to Persian Gulf exposure, enter ""YES"" here."
^DD(9000010.07,80004,21,0)="^^2^2^2950831^^"
^DD(9000010.07,80004,21,1,0)="This field is used in the VA to indicate that this problem treated at this"
^DD(9000010.07,80004,21,2,0)="visit was related to Persian Gulf exposure."
^DD(9000010.07,80004,23,0)="^^5^5^2950831^"
^DD(9000010.07,80004,23,1,0)="This field is only passed to PCE from the automated data capture of"
^DD(9000010.07,80004,23,2,0)="encounter form data.  If a problem on the Active Problem List is"
^DD(9000010.07,80004,23,3,0)="identified as the problem treated at the visit, and the problem defined as"
^DD(9000010.07,80004,23,4,0)="being related to Persian Gulf Exposure in the Problem List, then the POV"
^DD(9000010.07,80004,23,5,0)="Persian Gulf Exposure will automatically be set to ""1""."
^DD(9000010.07,80004,"DT")="2940331"
^DD(9000010.07,80005,0)="MILITARY SEXUAL TRAUMA^S^1:YES;0:NO;^800;5^Q"
^DD(9000010.07,80005,3)="If this Diagnosis code is related to Military Sexual Trauma, enter a ""YES"" here"
^DD(9000010.07,80005,21,0)="^.001^2^2^3030613^^^^"
^DD(9000010.07,80005,21,1,0)="This field will be used to indicate if this Diagnosis code was"
^DD(9000010.07,80005,21,2,0)="related to a Military Sexual Trauma problem."
^DD(9000010.07,80005,"DT")="3030613"
^DD(9000010.07,80006,0)="HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^800;6^Q"
^DD(9000010.07,80006,3)="If this Diagnosis is treating a problem related to Head/Neck Cance"
^DD(9000010.07,80006,21,0)="^.001^2^2^3030613^^^"
^DD(9000010.07,80006,21,1,0)="This field will be used to indicate if this Diagnosis code was"
^DD(9000010.07,80006,21,2,0)="related to Head and/or Neck Cancer"
^DD(9000010.07,80006,"DT")="3030613"
^DD(9000010.07,80007,0)="COMBAT VETERAN^S^1:YES;0:NO;^800;7^Q"
^DD(9000010.07,80007,3)="If this visit is treating a problem possibly related to combat."
^DD(9000010.07,80007,21,0)="^^2^2^3031118^"
^DD(9000010.07,80007,21,1,0)="This field is used to indicate that the visit represents treatment of a"
^DD(9000010.07,80007,21,2,0)="VA patient for a problem that is possibly related to combat."
^DD(9000010.07,80007,"DT")="3031118"
^DD(9000010.07,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.07,80101,21,0)="^^2^2^2950817^"
^DD(9000010.07,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any measurement"
^DD(9000010.07,80101,21,2,0)="data is being edited from the original entry of data."
^DD(9000010.07,80101,23,0)="^^2^2^2950817^"
^DD(9000010.07,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of"
^DD(9000010.07,80101,23,2,0)="the record to determine if the edited flag should be set to ""1""."
^DD(9000010.07,80101,"DT")="2940308"
^DD(9000010.07,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.07,80102,3)="Answer must be 2-85 characters in length."
^DD(9000010.07,80102,"DT")="2960509"
^DD(9000010.07,80201,0)="PROVIDER NARRATIVE CATEGORY^*P9999999.27^AUTNPOV(^802;1^S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.07,80201,3)="Enter the category narrative related to this problem treated."
^DD(9000010.07,80201,12)="OLD LOOKUP"
^DD(9000010.07,80201,12.1)="S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"")"
^DD(9000010.07,80201,21,0)="^^1^1^2950831^"
^DD(9000010.07,80201,21,1,0)="This field is the category narrative related to the problem treated."
^DD(9000010.07,80201,23,0)="^^7^7^2950831^"
^DD(9000010.07,80201,23,1,0)="This field is used by the VA when capturing encounter form information via"
^DD(9000010.07,80201,23,2,0)="scanning (e.g., such as AICS scanning) or workstation data capture"
^DD(9000010.07,80201,23,3,0)="methods.  This field is used to document how providers group the clinical"
^DD(9000010.07,80201,23,4,0)="terminology being used to document encounters. Providers may group the"
^DD(9000010.07,80201,23,5,0)="problems which may be selected under specific headers on the encounter"
^DD(9000010.07,80201,23,6,0)="form definition.  This field is used to store the actual header text used"
^DD(9000010.07,80201,23,7,0)="by the provider."
^DD(9000010.07,80201,"DT")="2940421"
^DD(9000010.07,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.07,81101,3)="Answer must be 1-245 characters in length."
^DD(9000010.07,81101,"DT")="2950711"
^DD(9000010.07,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.07,81201,"DT")="2960509"
^DD(9000010.07,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.07,81202,"DT")="2960509"
^DD(9000010.07,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.07,81203,"DT")="2960509"
^DD(9000010.07,"B","AGENT ORANGE EXPOSURE",80002)=""
^DD(9000010.07,"B","AUDIT TRAIL",80102)=""
^DD(9000010.07,"B","CLINICAL TERM",.15)=""
^DD(9000010.07,"B","COMBAT VETERAN",80007)=""
^DD(9000010.07,"B","COMMENTS",81101)=""
^DD(9000010.07,"B","DATA SOURCE",81203)=""
^DD(9000010.07,"B","DATE OF INJURY",.13)=""
^DD(9000010.07,"B","EDITED FLAG",80101)=""
^DD(9000010.07,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.07,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.07,"B","HEAD AND/OR NECK CANCER",80006)=""
^DD(9000010.07,"B","ICD NARRATIVE",.019)=""
^DD(9000010.07,"B","IONIZING RADIATION EXPOSURE",80003)=""
^DD(9000010.07,"B","MILITARY SEXUAL TRAUMA",80005)=""
^DD(9000010.07,"B","MODIFIER",.06)=""
^DD(9000010.07,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.07,"B","ORDERING/RESULTING",.17)=""
^DD(9000010.07,"B","PACKAGE",81202)=""
^DD(9000010.07,"B","PATIENT NAME",.02)=""
^DD(9000010.07,"B","PERSIAN GULF EXPOSURE",80004)=""
^DD(9000010.07,"B","POV",.01)=""
^DD(9000010.07,"B","PRIMARY/SECONDARY",.12)=""
^DD(9000010.07,"B","PROBLEM LIST ENTRY",.16)=""
^DD(9000010.07,"B","PROVIDER NARRATIVE",.04)=""
^DD(9000010.07,"B","PROVIDER NARRATIVE CATEGORY",80201)=""
^DD(9000010.07,"B","SERVICE CONNECTED",80001)=""
^DD(9000010.07,"B","VERIFIED",81201)=""
^DD(9000010.07,"B","VISIT",.03)=""
^DD(9000010.07,"GL",0,1,.01)=""
^DD(9000010.07,"GL",0,2,.02)=""
^DD(9000010.07,"GL",0,3,.03)=""
^DD(9000010.07,"GL",0,4,.04)=""
^DD(9000010.07,"GL",0,6,.06)=""
^DD(9000010.07,"GL",0,12,.12)=""
^DD(9000010.07,"GL",0,13,.13)=""
^DD(9000010.07,"GL",0,15,.15)=""
^DD(9000010.07,"GL",0,16,.16)=""
^DD(9000010.07,"GL",0,17,.17)=""
^DD(9000010.07,"GL",12,1,1201)=""
^DD(9000010.07,"GL",12,2,1202)=""
^DD(9000010.07,"GL",12,4,1204)=""
^DD(9000010.07,"GL",800,1,80001)=""
^DD(9000010.07,"GL",800,2,80002)=""
^DD(9000010.07,"GL",800,3,80003)=""
^DD(9000010.07,"GL",800,4,80004)=""
^DD(9000010.07,"GL",800,5,80005)=""
^DD(9000010.07,"GL",800,6,80006)=""
^DD(9000010.07,"GL",800,7,80007)=""
^DD(9000010.07,"GL",801,1,80101)=""
^DD(9000010.07,"GL",801,2,80102)=""
^DD(9000010.07,"GL",802,1,80201)=""
^DD(9000010.07,"GL",811,1,81101)=""
^DD(9000010.07,"GL",812,1,81201)=""
^DD(9000010.07,"GL",812,2,81202)=""
^DD(9000010.07,"GL",812,3,81203)=""
^DD(9000010.07,"IX",.01)=""
^DD(9000010.07,"IX",.02)=""
^DD(9000010.07,"IX",.03)=""
^DD(9000010.07,"RQ",.01)=""
^DD(9000010.07,"RQ",.02)=""
^DD(9000010.07,"RQ",.03)=""
^DD(9000010.07,"RQ",.04)=""
^DD(9000010.11,0)="FIELD^^81203^24"
^DD(9000010.11,0,"DDA")="N"
^DD(9000010.11,0,"DT")="2960513"
^DD(9000010.11,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.11,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.11,0,"IX","AA",9000010.11,.03)=""
^DD(9000010.11,0,"IX","AATOO",9000010.11,.01)=""
^DD(9000010.11,0,"IX","AATOO2",9000010.11,.02)=""
^DD(9000010.11,0,"IX","AD",9000010.11,.03)=""
^DD(9000010.11,0,"IX","AV10",9000010.11,.03)=""
^DD(9000010.11,0,"IX","B",9000010.11,.01)=""
^DD(9000010.11,0,"IX","C",9000010.11,.02)=""
^DD(9000010.11,0,"NM","V IMMUNIZATION")=""
^DD(9000010.11,.01,0)="IMMUNIZATION^R*P9999999.14'^AUTTIMM(^0;1^S DIC(""S"")=""I $P(^(0),U,7)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.01,1,0)="^.1^^-1"
^DD(9000010.11,.01,1,1,0)="9000010.11^B"
^DD(9000010.11,.01,1,1,1)="S ^AUPNVIMM(""B"",$E(X,1,30),DA)="""""
^DD(9000010.11,.01,1,1,2)="K ^AUPNVIMM(""B"",$E(X,1,30),DA)"
^DD(9000010.11,.01,1,3,0)="9000010.11^AATOO^MUMPS"
^DD(9000010.11,.01,1,3,1)="I $P(^AUPNVIMM(DA,0),U,2)]"""",$P(^(0),U,3)]"""" S ^AUPNVIMM(""AA"",$P(^AUPNVIMM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.11,.01,1,3,2)="I $P(^AUPNVIMM(DA,0),U,2)]"""",$P(^(0),U,3)]"""" K ^AUPNVIMM(""AA"",$P(^AUPNVIMM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.11,.01,1,3,"%D",0)="^^5^5^2950901^^"
^DD(9000010.11,.01,1,3,"%D",1,0)="This cross reference is used for searches in sequence by patient,"
^DD(9000010.11,.01,1,3,"%D",2,0)="immunization internal entry, inverted visit date, and internal"
^DD(9000010.11,.01,1,3,"%D",3,0)="entry number."
^DD(9000010.11,.01,1,3,"%D",4,0)=" "
^DD(9000010.11,.01,1,3,"%D",5,0)="   ""AA"",PATIENT,IMMUNIZATION,VISIT,DA"
^DD(9000010.11,.01,3)="Enter the name of the immunization given to the patient."
^DD(9000010.11,.01,12)="Allow only active Immunization types to be selected."
^DD(9000010.11,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,7)'=1"""
^DD(9000010.11,.01,21,0)="^^2^2^2950901^"
^DD(9000010.11,.01,21,1,0)="This is the type of immunization that was given to the patient at the"
^DD(9000010.11,.01,21,2,0)="encounter."
^DD(9000010.11,.01,23,0)="^^2^2^2950901^"
^DD(9000010.11,.01,23,1,0)="Entries in the Immunization File (#9999999.14) may be made inactive."
^DD(9000010.11,.01,23,2,0)="Inactive entries cannot be selected."
^DD(9000010.11,.01,"AUDIT")="n"
^DD(9000010.11,.01,"DT")="2950901"
^DD(9000010.11,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.11,.02,1,0)="^.1"
^DD(9000010.11,.02,1,2,0)="9000010.11^AATOO2^MUMPS"
^DD(9000010.11,.02,1,2,1)="I $P(^AUPNVIMM(DA,0),U,3)]"""" S ^AUPNVIMM(""AA"",X,+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.11,.02,1,2,2)="I $P(^AUPNVIMM(DA,0),U,3)]"""" K ^AUPNVIMM(""AA"",X,+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVIMM(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.11,.02,1,2,"%D",0)="^^2^2^2940127^"
^DD(9000010.11,.02,1,2,"%D",1,0)="This is a Health Summary cross-reference."
^DD(9000010.11,.02,1,2,"%D",2,0)="""AA"",PATIENT,IMMUNIZATION,VISIT,DA"
^DD(9000010.11,.02,1,3,0)="9000010.11^C"
^DD(9000010.11,.02,1,3,1)="S ^AUPNVIMM(""C"",$E(X,1,30),DA)="""""
^DD(9000010.11,.02,1,3,2)="K ^AUPNVIMM(""C"",$E(X,1,30),DA)"
^DD(9000010.11,.02,1,3,"%D",0)="^^1^1^2950901^"
^DD(9000010.11,.02,1,3,"%D",1,0)="This cross reference provides a look-up of immunizations by patient name."
^DD(9000010.11,.02,1,3,"DT")="2950901"
^DD(9000010.11,.02,3)="Enter the patient who was given the immunization."
^DD(9000010.11,.02,21,0)="^^1^1^2950901^"
^DD(9000010.11,.02,21,1,0)="This is the patient who was given the immunization."
^DD(9000010.11,.02,23,0)="^^3^3^2950901^"
^DD(9000010.11,.02,23,1,0)="This is a pointer the the Patient/IHS file (#9000001), which is dinumed to"
^DD(9000010.11,.02,23,2,0)="the Patient File (#2).  This field is always stuffed by the application."
^DD(9000010.11,.02,23,3,0)="No editing is allowed."
^DD(9000010.11,.02,"DT")="2950901"
^DD(9000010.11,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVIMM(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.03,1,0)="^.1"
^DD(9000010.11,.03,1,1,0)="9000010.11^AD"
^DD(9000010.11,.03,1,1,1)="S ^AUPNVIMM(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.11,.03,1,1,2)="K ^AUPNVIMM(""AD"",$E(X,1,30),DA)"
^DD(9000010.11,.03,1,1,"%D",0)="^^4^4^2950901^"
^DD(9000010.11,.03,1,1,"%D",1,0)="This cross reference is used for searches by the visit pointer and"
^DD(9000010.11,.03,1,1,"%D",2,0)="internal entry number."
^DD(9000010.11,.03,1,1,"%D",3,0)=" "
^DD(9000010.11,.03,1,1,"%D",4,0)="  ""AD"",VISIT pointer, DA"
^DD(9000010.11,.03,1,2,0)="9000010.11^AA^MUMPS"
^DD(9000010.11,.03,1,2,1)="Q:$P(^AUPNVIMM(DA,0),U,2)=""""  S ^AUPNVIMM(""AA"",$P(^AUPNVIMM(DA,0),U,2),+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.11,.03,1,2,2)="Q:$P(^AUPNVIMM(DA,0),U,2)=""""  K ^AUPNVIMM(""AA"",$P(^AUPNVIMM(DA,0),U,2),+^AUPNVIMM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.11,.03,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.11,.03,1,2,"%D",1,0)="This crossreference is used for searches in sequence by patient,"
^DD(9000010.11,.03,1,2,"%D",2,0)="Immunization pointer, inverted visit date, and internal entry number."
^DD(9000010.11,.03,1,2,"%D",3,0)=" "
^DD(9000010.11,.03,1,2,"%D",4,0)="    ""AA"",PATIENT,IMMUNIZATION,VISIT,DA"
^DD(9000010.11,.03,1,3,0)="9000010.11^AV10^MUMPS"
^DD(9000010.11,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.11,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.11,.03,1,3,"%D",0)="^^2^2^2940127^^"
^DD(9000010.11,.03,1,3,"%D",1,0)="This cross-reference adds and subtracts from the dependent entry count in"
^DD(9000010.11,.03,1,3,"%D",2,0)="the VISIT file."
^DD(9000010.11,.03,3)="Enter the visit date/time for the encounter where the immunization was given."
^DD(9000010.11,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.11,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVIMM(DA,0),U,2)"""
^DD(9000010.11,.03,21,0)="^^2^2^2950901^"
^DD(9000010.11,.03,21,1,0)="This is the encounter defined in the Visit file that represents when and"
^DD(9000010.11,.03,21,2,0)="where the immunization was given."
^DD(9000010.11,.03,23,0)="^^2^2^2950901^"
^DD(9000010.11,.03,23,1,0)="This is a pointer to the Visit File (#9000010).  This field is stuffed by"
^DD(9000010.11,.03,23,2,0)="the applications. No editing is allowed."
^DD(9000010.11,.03,"DT")="2890608"
^DD(9000010.11,.04,0)="SERIES^S^P:PARTIALLY COMPLETE;C:COMPLETE;B:BOOSTER;1:SERIES 1;2:SERIES 2;3:SERIES 3;4:SERIES 4;5:SERIES 5;6:SERIES 6;7:SERIES 7;8:SERIES 8;^0;4^Q"
^DD(9000010.11,.04,1,0)="^.1^^0"
^DD(9000010.11,.04,3)="Enter the series number, booster, partial or complete."
^DD(9000010.11,.04,21,0)="^^2^2^2950901^"
^DD(9000010.11,.04,21,1,0)="This field allows the provider to specify which series of immunization"
^DD(9000010.11,.04,21,2,0)="type was given to the patient."
^DD(9000010.11,.04,"DT")="2950901"
^DD(9000010.11,.06,0)="REACTION^S^1:FEVER;2:IRRITABILITY;3:LOCAL REACTION OR SWELLING;4:VOMITING;5:RASH OR ITCHING;6:LETHARGY;7:CONVULSIONS;8:ARTHRITIS OR ARTHRALGIAS;9:ANAPHYLAXIS OR COLLAPSE;10:RESPIRATORY DISTRESS;11:OTHER;0:NONE;^0;6^Q"
^DD(9000010.11,.06,3)="Enter the number representing the patients reaction to the immunization."
^DD(9000010.11,.06,21,0)="^^2^2^2950901^"
^DD(9000010.11,.06,21,1,0)="This is the reaction that may have been observed by the provider as a"
^DD(9000010.11,.06,21,2,0)="result of the immunization given."
^DD(9000010.11,.06,"DT")="2951205"
^DD(9000010.11,.07,0)="CONTRAINDICATED^S^1:YES (DO NOT REPEAT THIS VACCINE).;0:NO (OK TO USE IN THE FUTURE);^0;7^Q"
^DD(9000010.11,.07,3)="Enter 1 if this immunization should not be given to the patient in the future."
^DD(9000010.11,.07,21,0)="^^3^3^2950901^"
^DD(9000010.11,.07,21,1,0)="This field allows the immunization to be recorded as contraindicated."
^DD(9000010.11,.07,21,2,0)="Reminders will include a check to see if the previous immunization was "
^DD(9000010.11,.07,21,3,0)="contraindicated before creating reminders."
^DD(9000010.11,.07,"DT")="2880708"
^DD(9000010.11,.08,0)="DIAGNOSIS^*P80'^ICD9(^0;8^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.08,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.08,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.08,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.08,21,0)="^.001^2^2^3040309^^"
^DD(9000010.11,.08,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.11,.08,21,2,0)="with the immunization performed."
^DD(9000010.11,.08,"DT")="3040309"
^DD(9000010.11,.09,0)="DIAGNOSIS 2^*P80'^ICD9(^0;9^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.09,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.09,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.09,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.09,21,0)="^^2^2^3031008^"
^DD(9000010.11,.09,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.11,.09,21,2,0)="with the immunization performed."
^DD(9000010.11,.09,"DT")="3031008"
^DD(9000010.11,.1,0)="DIAGNOSIS 3^*P80'^ICD9(^0;10^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.1,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.1,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.1,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.1,21,0)="^^2^2^3031008^"
^DD(9000010.11,.1,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.11,.1,21,2,0)="with the immunization performed."
^DD(9000010.11,.1,"DT")="3031008"
^DD(9000010.11,.11,0)="DIAGNOSIS 4^*P80'^ICD9(^0;11^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.11,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.11,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.11,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.11,21,0)="^^2^2^3031008^"
^DD(9000010.11,.11,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.11,.11,21,2,0)="with the immunization performed."
^DD(9000010.11,.11,"DT")="3031008"
^DD(9000010.11,.12,0)="DIAGNOSIS 5^*P80'^ICD9(^0;12^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.12,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.12,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.12,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.12,"DT")="3040115"
^DD(9000010.11,.13,0)="DIAGNOSIS 6^*P80'^ICD9(^0;13^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.13,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.13,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.13,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.13,"DT")="3040115"
^DD(9000010.11,.14,0)="DIAGNOSIS 7^*P80'^ICD9(^0;14^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.14,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.14,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.14,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.14,"DT")="3040115"
^DD(9000010.11,.15,0)="DIAGNOSIS 8^*P80'^ICD9(^0;15^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.11,.15,3)="Enter the ICD Diagnosis related to the immunization done."
^DD(9000010.11,.15,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.11,.15,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.11,.15,"DT")="3040115"
^DD(9000010.11,1101,0)="REMARKS^9000010.1111^^11;0"
^DD(9000010.11,1101,21,0)="^^2^2^2950901^"
^DD(9000010.11,1101,21,1,0)="This is additional comments or remarks related to the immunization given"
^DD(9000010.11,1101,21,2,0)="to the patient."
^DD(9000010.11,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.11,1201,3)="Enter the date and time the immunization was given."
^DD(9000010.11,1201,21,0)="^^9^9^2960729^^^^"
^DD(9000010.11,1201,21,1,0)="This is the date and time the immunization was given.  This date and time"
^DD(9000010.11,1201,21,2,0)="may be different from the visit date and time.  For example, for clinic"
^DD(9000010.11,1201,21,3,0)="appointment visits, the visit date and time is the date and time of the"
^DD(9000010.11,1201,21,4,0)="appointment, not the time the provider performed the clinical event."
^DD(9000010.11,1201,21,5,0)=" "
^DD(9000010.11,1201,21,6,0)="The date may be an imprecise date."
^DD(9000010.11,1201,21,7,0)=" "
^DD(9000010.11,1201,21,8,0)="Date and time may be within 30 days before of after the visit date, with the"
^DD(9000010.11,1201,21,9,0)="restriction the date cannot be a future date."
^DD(9000010.11,1201,23,0)="^^13^13^2960403^^^^"
^DD(9000010.11,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the primary"
^DD(9000010.11,1201,23,2,0)="source of the immunization date and time.  The immunization date prompt defaults"
^DD(9000010.11,1201,23,3,0)="to the visit date and the time is entered to reflect the actual time the"
^DD(9000010.11,1201,23,4,0)="immunization was given.  The immunization date does not have to be the visit"
^DD(9000010.11,1201,23,5,0)="date, but it must be within 30 days before or after the visit, and not be a"
^DD(9000010.11,1201,23,6,0)="future date."
^DD(9000010.11,1201,23,7,0)=" "
^DD(9000010.11,1201,23,8,0)="If the user wants to enter an historical immunization, the user should use the"
^DD(9000010.11,1201,23,9,0)="Historical Encounter entry action to document the historical immunization. "
^DD(9000010.11,1201,23,10,0)="Historical entries will not be eligible for credit."
^DD(9000010.11,1201,23,11,0)=" "
^DD(9000010.11,1201,23,12,0)="PCE data sources for automatic (scanning) data capture will be blank unless the"
^DD(9000010.11,1201,23,13,0)="immunization date and time are passed to PCE for filing."
^DD(9000010.11,1201,"DT")="2960403"
^DD(9000010.11,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.11,1202,3)="Enter the provider who ordered this immunization."
^DD(9000010.11,1202,21,0)="^^2^2^2960513^"
^DD(9000010.11,1202,21,1,0)="The field can be used to document the provider who ordered the"
^DD(9000010.11,1202,21,2,0)="immunization."
^DD(9000010.11,1202,"DT")="2960513"
^DD(9000010.11,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.11,1204,3)="Enter the provider who gave the immunization."
^DD(9000010.11,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.11,1204,21,1,0)="This is the provider who gave the immunization."
^DD(9000010.11,1204,23,0)="^^1^1^2960513^"
^DD(9000010.11,1204,23,1,0)="This person can be any person in the new person file."
^DD(9000010.11,1204,"DT")="2941219"
^DD(9000010.11,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.11,80101,3)="Answer is automatically entered by PCE filing logic."
^DD(9000010.11,80101,21,0)="^^2^2^2950901^^"
^DD(9000010.11,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original"
^DD(9000010.11,80101,21,2,0)="immunization data is being edited."
^DD(9000010.11,80101,23,0)="^^2^2^2950901^^"
^DD(9000010.11,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.11,80101,23,2,0)="record to determine if the edited flag should be set to ""1""."
^DD(9000010.11,80101,"DT")="2940401"
^DD(9000010.11,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.11,80102,3)="Answer is automatically entered by the PCE filing logic."
^DD(9000010.11,80102,21,0)="^^3^3^2950901^^"
^DD(9000010.11,80102,21,1,0)="This field is populated automatically by the PCE filing logic.  The format of"
^DD(9000010.11,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.11,80102,21,3,0)="for Edit_"" ""_DUZ of the person who entred the data_"";""..."
^DD(9000010.11,80102,23,0)="^^14^14^2950901^^"
^DD(9000010.11,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE data source file.  If this"
^DD(9000010.11,80102,23,2,0)="is not passed, the PCE filing logic will not process the data."
^DD(9000010.11,80102,23,3,0)=" "
^DD(9000010.11,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source that"
^DD(9000010.11,80102,23,5,0)="added the data.  If the record existed previously, PCE filing logic compares"
^DD(9000010.11,80102,23,6,0)="the old and new records of informtion.  An ""E"" will be automatically used if"
^DD(9000010.11,80102,23,7,0)="the filing logic finds the data has been edited.  If ""E"" is used, then the"
^DD(9000010.11,80102,23,8,0)="Edited Flag field is automatically set to 1."
^DD(9000010.11,80102,23,9,0)=" "
^DD(9000010.11,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who performed"
^DD(9000010.11,80102,23,11,0)="the adding or editing of data for this record."
^DD(9000010.11,80102,23,12,0)=" "
^DD(9000010.11,80102,23,13,0)="Iterations of editing will be concatenated to the previous data source value,"
^DD(9000010.11,80102,23,14,0)="up to 85 characters."
^DD(9000010.11,80102,"DT")="2960509"
^DD(9000010.11,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.11,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.11,81101,21,0)="^^2^2^2950901^^"
^DD(9000010.11,81101,21,1,0)="This is a comment related to the patient's immunization.  The provider may enter"
^DD(9000010.11,81101,21,2,0)="this manually via the PCE User Interface."
^DD(9000010.11,81101,"DT")="2950711"
^DD(9000010.11,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.11,81201,"DT")="2960509"
^DD(9000010.11,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.11,81202,"DT")="2960509"
^DD(9000010.11,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.11,81203,"DT")="2960509"
^DD(9000010.11,"B","AUDIT TRAIL",80102)=""
^DD(9000010.11,"B","COMMENTS",81101)=""
^DD(9000010.11,"B","CONTRAINDICATED",.07)=""
^DD(9000010.11,"B","DATA SOURCE",81203)=""
^DD(9000010.11,"B","DIAGNOSIS",.08)=""
^DD(9000010.11,"B","DIAGNOSIS 2",.09)=""
^DD(9000010.11,"B","DIAGNOSIS 3",.1)=""
^DD(9000010.11,"B","DIAGNOSIS 4",.11)=""
^DD(9000010.11,"B","DIAGNOSIS 5",.12)=""
^DD(9000010.11,"B","DIAGNOSIS 6",.13)=""
^DD(9000010.11,"B","DIAGNOSIS 7",.14)=""
^DD(9000010.11,"B","DIAGNOSIS 8",.15)=""
^DD(9000010.11,"B","EDITED FLAG",80101)=""
^DD(9000010.11,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.11,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.11,"B","IMMUNIZATION",.01)=""
^DD(9000010.11,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.11,"B","PACKAGE",81202)=""
^DD(9000010.11,"B","PATIENT NAME",.02)=""
^DD(9000010.11,"B","REACTION",.06)=""
^DD(9000010.11,"B","REMARKS",1101)=""
^DD(9000010.11,"B","SERIES",.04)=""
^DD(9000010.11,"B","VERIFIED",81201)=""
^DD(9000010.11,"B","VISIT",.03)=""
^DD(9000010.11,"GL",0,1,.01)=""
^DD(9000010.11,"GL",0,2,.02)=""
^DD(9000010.11,"GL",0,3,.03)=""
^DD(9000010.11,"GL",0,4,.04)=""
^DD(9000010.11,"GL",0,6,.06)=""
^DD(9000010.11,"GL",0,7,.07)=""
^DD(9000010.11,"GL",0,8,.08)=""
^DD(9000010.11,"GL",0,9,.09)=""
^DD(9000010.11,"GL",0,10,.1)=""
^DD(9000010.11,"GL",0,11,.11)=""
^DD(9000010.11,"GL",0,12,.12)=""
^DD(9000010.11,"GL",0,13,.13)=""
^DD(9000010.11,"GL",0,14,.14)=""
^DD(9000010.11,"GL",0,15,.15)=""
^DD(9000010.11,"GL",11,0,1101)=""
^DD(9000010.11,"GL",12,1,1201)=""
^DD(9000010.11,"GL",12,2,1202)=""
^DD(9000010.11,"GL",12,4,1204)=""
^DD(9000010.11,"GL",801,1,80101)=""
^DD(9000010.11,"GL",801,2,80102)=""
^DD(9000010.11,"GL",811,1,81101)=""
^DD(9000010.11,"GL",812,1,81201)=""
^DD(9000010.11,"GL",812,2,81202)=""
^DD(9000010.11,"GL",812,3,81203)=""
^DD(9000010.11,"IX",.01)=""
^DD(9000010.11,"IX",.02)=""
^DD(9000010.11,"IX",.03)=""
^DD(9000010.11,"RQ",.01)=""
^DD(9000010.11,"RQ",.02)=""
^DD(9000010.11,"RQ",.03)=""
^DD(9000010.11,"SB",9000010.1111,1101)=""
^DD(9000010.1111,0)="REMARKS SUB-FIELD^^.01^1"
^DD(9000010.1111,0,"NM","REMARKS")=""
^DD(9000010.1111,0,"UP")="9000010.11"
^DD(9000010.1111,.01,0)="REMARKS^W^^0;1^Q"
^DD(9000010.1111,.01,3)="Enter comments related to the immunization encounter with the patient."
^DD(9000010.1111,.01,21,0)="^^2^2^2950901^"
^DD(9000010.1111,.01,21,1,0)="This field can be used to enter comments related to the immunization"
^DD(9000010.1111,.01,21,2,0)="encounter with the patient."
^DD(9000010.1111,.01,"DT")="2861007"
^DD(9000010.1111,"B","REMARKS",.01)=""
^DD(9000010.1111,"GL",0,1,.01)=""
^DD(9000010.12,0)="FIELD^^81203^23"
^DD(9000010.12,0,"DDA")="N"
^DD(9000010.12,0,"DT")="2960513"
^DD(9000010.12,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.12,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.12,0,"IX","AA",9000010.12,.03)=""
^DD(9000010.12,0,"IX","AATOO",9000010.12,.01)=""
^DD(9000010.12,0,"IX","AATOO2",9000010.12,.02)=""
^DD(9000010.12,0,"IX","AD",9000010.12,.03)=""
^DD(9000010.12,0,"IX","AE",9000010.12,.05)=""
^DD(9000010.12,0,"IX","AV10",9000010.12,.03)=""
^DD(9000010.12,0,"IX","B",9000010.12,.01)=""
^DD(9000010.12,0,"IX","C",9000010.12,.02)=""
^DD(9000010.12,0,"NM","V SKIN TEST")=""
^DD(9000010.12,.01,0)="SKIN TEST^R*P9999999.28'^AUTTSK(^0;1^S DIC(""S"")=""I $P(^(0),U,3)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.01,1,0)="^.1^^-1"
^DD(9000010.12,.01,1,1,0)="9000010.12^B"
^DD(9000010.12,.01,1,1,1)="S ^AUPNVSK(""B"",$E(X,1,30),DA)="""""
^DD(9000010.12,.01,1,1,2)="K ^AUPNVSK(""B"",$E(X,1,30),DA)"
^DD(9000010.12,.01,1,3,0)="9000010.12^AATOO^MUMPS"
^DD(9000010.12,.01,1,3,1)="I $P(^AUPNVSK(DA,0),U,2)]"""",$P(^(0),U,3)]"""" S ^AUPNVSK(""AA"",$P(^AUPNVSK(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.12,.01,1,3,2)="I $P(^AUPNVSK(DA,0),U,2)]"""",$P(^(0),U,3)]"""" K ^AUPNVSK(""AA"",$P(^AUPNVSK(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.12,.01,1,3,"%D",0)="^^4^4^2950901^"
^DD(9000010.12,.01,1,3,"%D",1,0)="This cross reference is used for searches in sequence by patient, Skin"
^DD(9000010.12,.01,1,3,"%D",2,0)="test pointer, inverted Visit date, and internal entry number."
^DD(9000010.12,.01,1,3,"%D",3,0)=" "
^DD(9000010.12,.01,1,3,"%D",4,0)="    ""AA"",PATIENT,SKIN TEST,VISIT,DA"
^DD(9000010.12,.01,3)="Enter the Skin Test that was given to the patient."
^DD(9000010.12,.01,12)="Allow only active Skin Test types to be selected."
^DD(9000010.12,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=1"""
^DD(9000010.12,.01,21,0)="^^2^2^2951024^^^"
^DD(9000010.12,.01,21,1,0)="This is the type of Skin Test that was given to the patient at the"
^DD(9000010.12,.01,21,2,0)="encounter.  "
^DD(9000010.12,.01,23,0)="^^2^2^2951024^^"
^DD(9000010.12,.01,23,1,0)="Only active Skin Test entries in the Skin Test File (#9999999.28) are"
^DD(9000010.12,.01,23,2,0)=" selectable."
^DD(9000010.12,.01,"AUDIT")="n"
^DD(9000010.12,.01,"DT")="2950901"
^DD(9000010.12,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.12,.02,1,0)="^.1"
^DD(9000010.12,.02,1,2,0)="9000010.12^AATOO2^MUMPS"
^DD(9000010.12,.02,1,2,1)="I $P(^AUPNVSK(DA,0),U,3)]"""" S ^AUPNVSK(""AA"",X,+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.12,.02,1,2,2)="I $P(^AUPNVSK(DA,0),U,3)]"""" K ^AUPNVSK(""AA"",X,+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.12,.02,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.12,.02,1,2,"%D",1,0)="This cross reference is used to search in sequence by patient, skin test"
^DD(9000010.12,.02,1,2,"%D",2,0)="pointer, inverted visit date, and internal entry number."
^DD(9000010.12,.02,1,2,"%D",3,0)=" "
^DD(9000010.12,.02,1,2,"%D",4,0)="  ""AA"",PATIENT,SKIN TEST,VISIT,DA"
^DD(9000010.12,.02,1,3,0)="9000010.12^C"
^DD(9000010.12,.02,1,3,1)="S ^AUPNVSK(""C"",$E(X,1,30),DA)="""""
^DD(9000010.12,.02,1,3,2)="K ^AUPNVSK(""C"",$E(X,1,30),DA)"
^DD(9000010.12,.02,1,3,"%D",0)="^^1^1^2950901^"
^DD(9000010.12,.02,1,3,"%D",1,0)="This cross reference allows look-up by patient name."
^DD(9000010.12,.02,1,3,"DT")="2950901"
^DD(9000010.12,.02,3)="Enter the patient who was given the skin test."
^DD(9000010.12,.02,21,0)="^^1^1^2950901^"
^DD(9000010.12,.02,21,1,0)="This is the patient who received the skin test."
^DD(9000010.12,.02,23,0)="^^3^3^2950901^"
^DD(9000010.12,.02,23,1,0)="This is a pointer to the Patient/IHS file (#9000001) which is dinumed to"
^DD(9000010.12,.02,23,2,0)="the Patient File (#2).  This field is always stuffed by the application."
^DD(9000010.12,.02,23,3,0)="No editing is allowed."
^DD(9000010.12,.02,"DT")="2950901"
^DD(9000010.12,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVSK(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.03,1,0)="^.1"
^DD(9000010.12,.03,1,1,0)="9000010.12^AD"
^DD(9000010.12,.03,1,1,1)="S ^AUPNVSK(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.12,.03,1,1,2)="K ^AUPNVSK(""AD"",$E(X,1,30),DA)"
^DD(9000010.12,.03,1,1,"%D",0)="^^1^1^2950901^"
^DD(9000010.12,.03,1,1,"%D",1,0)="This cross reference allows look-up of entries by patient name."
^DD(9000010.12,.03,1,2,0)="9000010.12^AA^MUMPS"
^DD(9000010.12,.03,1,2,1)="Q:$P(^AUPNVSK(DA,0),U,2)=""""  S ^AUPNVSK(""AA"",$P(^AUPNVSK(DA,0),U,2),+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.12,.03,1,2,2)="Q:$P(^AUPNVSK(DA,0),U,2)=""""  K ^AUPNVSK(""AA"",$P(^AUPNVSK(DA,0),U,2),+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.12,.03,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.12,.03,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, skin"
^DD(9000010.12,.03,1,2,"%D",2,0)="test pointer, inverted visit date, and internal entry number."
^DD(9000010.12,.03,1,2,"%D",3,0)=" "
^DD(9000010.12,.03,1,2,"%D",4,0)="    ""AA"",PATIENT,SKIN TEST,VISIT,DA"
^DD(9000010.12,.03,1,3,0)="9000010.12^AV10^MUMPS"
^DD(9000010.12,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.12,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.12,.03,1,3,"%D",0)="^^2^2^2940127^"
^DD(9000010.12,.03,1,3,"%D",1,0)="This cross-reference is for adding and subtracting from the dependent"
^DD(9000010.12,.03,1,3,"%D",2,0)="entry count in the VISIT file."
^DD(9000010.12,.03,3)="Enter the visit date/time for the encounter where the skin test was done."
^DD(9000010.12,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.12,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVSK(DA,0),U,2)"""
^DD(9000010.12,.03,21,0)="^^2^2^2950901^"
^DD(9000010.12,.03,21,1,0)="This is the encounter defined in the Visit file that represents when and"
^DD(9000010.12,.03,21,2,0)="where the skin test was done."
^DD(9000010.12,.03,23,0)="^^2^2^2950901^"
^DD(9000010.12,.03,23,1,0)="This is a pointer to the Visit File (#9000010).  This field is stuffed by"
^DD(9000010.12,.03,23,2,0)="the applications.  No editing is allowed."
^DD(9000010.12,.03,"DT")="2861111"
^DD(9000010.12,.04,0)="RESULTS^SX^P:POSITIVE;N:NEGATIVE;D:DOUBTFUL;O:NO TAKE;^0;4^I X=""N"",$P(^AUPNVSK(DA,0),U,5)]"""",$P(^AUPNVSK(DA,0),U,5)>10 K X"
^DD(9000010.12,.04,1,0)="^.1^^0"
^DD(9000010.12,.04,3)="Enter whether the results were positive, negative, doubtful or no take, if known."
^DD(9000010.12,.04,10)="082/SKREST"
^DD(9000010.12,.04,21,0)="^^1^1^2950901^"
^DD(9000010.12,.04,21,1,0)="This is where a provider can designate the results of the skin test."
^DD(9000010.12,.04,"DT")="2940127"
^DD(9000010.12,.05,0)="READING^NJ2,0X^^0;5^K:+X'=X!(X>40)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9000010.12,.05,1,0)="^.1^^-1"
^DD(9000010.12,.05,1,2,0)="9000010.12^AE"
^DD(9000010.12,.05,1,2,1)="S ^AUPNVSK(""AE"",$E(X,1,30),DA)="""""
^DD(9000010.12,.05,1,2,2)="K ^AUPNVSK(""AE"",$E(X,1,30),DA)"
^DD(9000010.12,.05,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.12,.05,1,2,"%D",1,0)="This cross-reference searches on the results of skin tests across all"
^DD(9000010.12,.05,1,2,"%D",2,0)="patients."
^DD(9000010.12,.05,1,2,"%D",3,0)=" "
^DD(9000010.12,.05,1,2,"%D",4,0)="   ""AE"",READING,DA"
^DD(9000010.12,.05,3)="TYPE A WHOLE NUMBER BETWEEN 0 AND 40."
^DD(9000010.12,.05,10)="082/SKREAD"
^DD(9000010.12,.05,21,0)="^^1^1^2980921^^^"
^DD(9000010.12,.05,21,1,0)="Enter the value representing the reading of the skin test."
^DD(9000010.12,.05,"DT")="2950901"
^DD(9000010.12,.06,0)="DATE READ^DX^^0;6^S %DT=""ESTX"" D ^%DT S X=Y K:X>DT!(X<AUPNDOB) X I $D(X),AUPNDOD,X>AUPNDOD K X"
^DD(9000010.12,.06,3)="TYPE A DATE BETWEEN DOB AND TODAY"
^DD(9000010.12,.06,21,0)="^^1^1^2960403^^^"
^DD(9000010.12,.06,21,1,0)="This is the Date of the Reading. "
^DD(9000010.12,.06,"DT")="2880322"
^DD(9000010.12,.08,0)="DIAGNOSIS^*P80'^ICD9(^0;8^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.08,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.12,.08,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.12,.08,21,0)="^.001^2^2^3040309^^"
^DD(9000010.12,.08,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.08,21,2,0)="with the skin test performed."
^DD(9000010.12,.08,"DT")="3040309"
^DD(9000010.12,.09,0)="DIAGNOSIS 2^*P80'^ICD9(^0;9^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.09,3)="Enter the ICD Diagnosis related to the skin test performed."
^DD(9000010.12,.09,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.12,.09,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.12,.09,21,0)="^^2^2^3031008^"
^DD(9000010.12,.09,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.09,21,2,0)="with the skin test performed."
^DD(9000010.12,.09,"DT")="3031008"
^DD(9000010.12,.1,0)="DIAGNOSIS 3^*P80'^ICD9(^0;10^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.1,3)="Enter the ICD Diagnosis related to the skin test done."
^DD(9000010.12,.1,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.12,.1,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.12,.1,21,0)="^.001^2^2^3031008^^"
^DD(9000010.12,.1,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.1,21,2,0)="with the skin test performed."
^DD(9000010.12,.1,"DT")="3031008"
^DD(9000010.12,.11,0)="DIAGNOSIS 4^*P80'^ICD9(^0;11^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.11,3)="Enter the ICD Diagnosis related to the skin test done"
^DD(9000010.12,.11,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.12,.11,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.12,.11,21,0)="^^2^2^3031008^"
^DD(9000010.12,.11,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.11,21,2,0)="with the skin test performed."
^DD(9000010.12,.11,"DT")="3031008"
^DD(9000010.12,.12,0)="DIAGNOSIS 5^*P80'^ICD9(^0;12^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.12,3)="Enter the ICD Diagnosis related to the skin test done"
^DD(9000010.12,.12,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.12,.12,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.12,.12,21,0)="^^2^2^3040114^"
^DD(9000010.12,.12,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.12,21,2,0)="with the skin test performed."
^DD(9000010.12,.12,"DT")="3040114"
^DD(9000010.12,.13,0)="DIAGNOSIS 6^P80'^ICD9(^0;13^Q"
^DD(9000010.12,.13,3)=""
^DD(9000010.12,.13,21,0)="^.001^2^2^3040114^^^"
^DD(9000010.12,.13,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.13,21,2,0)="with the skin test performed."
^DD(9000010.12,.13,"DT")="3040114"
^DD(9000010.12,.14,0)="DIAGNOSIS 7^*P80'^ICD9(^0;14^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.14,3)="Enter the ICD Diagnosis related to the skin test done"
^DD(9000010.12,.14,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.12,.14,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.12,.14,21,0)="^.001^2^2^3040114^^^^"
^DD(9000010.12,.14,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.14,21,2,0)="with the skin test performed."
^DD(9000010.12,.14,"DT")="3040114"
^DD(9000010.12,.15,0)="DIAGNOSIS 8^*P80'^ICD9(^0;15^S DIC(""S"")=""D ^AUPNSICD"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.12,.15,3)="Enter the ICD Diagnosis related to the skin test done"
^DD(9000010.12,.15,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.12,.15,12.1)="S DIC(""S"")=""D ^AUPNSICD"""
^DD(9000010.12,.15,21,0)="^.001^2^2^3040114^^^"
^DD(9000010.12,.15,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.12,.15,21,2,0)="with the skin test performed."
^DD(9000010.12,.15,"DT")="3040114"
^DD(9000010.12,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.12,1201,3)="Enter the date and time the skin test was done."
^DD(9000010.12,1201,21,0)="^^9^9^2960403^^^^"
^DD(9000010.12,1201,21,1,0)="This is the date and time the skin test was performed.  This date and time may"
^DD(9000010.12,1201,21,2,0)="be different from the visit date and time.  For example, for clinic appointment"
^DD(9000010.12,1201,21,3,0)="visits, the visit date and time is the date and time of the appointment, not"
^DD(9000010.12,1201,21,4,0)="the time the provider performed the clinical event."
^DD(9000010.12,1201,21,5,0)=" "
^DD(9000010.12,1201,21,6,0)="The date may be an imprecise date."
^DD(9000010.12,1201,21,7,0)=" "
^DD(9000010.12,1201,21,8,0)="Date and time may be within 30 days before or after the visit date, with the"
^DD(9000010.12,1201,21,9,0)="restriction the date cannot be a future date."
^DD(9000010.12,1201,23,0)="^^12^12^2960403^^^^"
^DD(9000010.12,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the primary"
^DD(9000010.12,1201,23,2,0)="source of the event date and time.  The event date prompt defaults to the visit"
^DD(9000010.12,1201,23,3,0)="date and the time is entered to reflect the actual time the skin test was done. "
^DD(9000010.12,1201,23,4,0)="The event date does not have to be the visit date, but it must be within 30"
^DD(9000010.12,1201,23,5,0)="days before or after the visit, and not be a future date."
^DD(9000010.12,1201,23,6,0)=" "
^DD(9000010.12,1201,23,7,0)="If a user wants to enter an historical skin test, the user should use the"
^DD(9000010.12,1201,23,8,0)="Historical Encounter entry action to document the historical skin test. "
^DD(9000010.12,1201,23,9,0)="Historical entries will not be eligible for workload credit."
^DD(9000010.12,1201,23,10,0)=" "
^DD(9000010.12,1201,23,11,0)="PCE data sources for automatic (scanning) data capture will be blank unless the"
^DD(9000010.12,1201,23,12,0)="event date and time are passed to PCE for filing."
^DD(9000010.12,1201,"DT")="2960403"
^DD(9000010.12,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.12,1202,3)="Enter the provider who ordered this skin test."
^DD(9000010.12,1202,21,0)="^^1^1^2960513^"
^DD(9000010.12,1202,21,1,0)="This field can be used to document the provider who ordered the skin test."
^DD(9000010.12,1202,"DT")="2960513"
^DD(9000010.12,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.12,1204,3)="Enter the provider who gave the skin test."
^DD(9000010.12,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.12,1204,21,1,0)="This is the provider who gave the skin test."
^DD(9000010.12,1204,23,0)="^^1^1^2960513^^"
^DD(9000010.12,1204,23,1,0)="This person can be any person in the new person file."
^DD(9000010.12,1204,"DT")="2941219"
^DD(9000010.12,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.12,80101,3)="Answer is automatically entered by PCE filing logic."
^DD(9000010.12,80101,21,0)="^^2^2^2950831^"
^DD(9000010.12,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original skin test"
^DD(9000010.12,80101,21,2,0)="data is being edited."
^DD(9000010.12,80101,23,0)="^^2^2^2950831^"
^DD(9000010.12,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.12,80101,23,2,0)="record to determine if the edited flag should be set to ""1""."
^DD(9000010.12,80101,"DT")="2940401"
^DD(9000010.12,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.12,80102,3)="Answer is automatically entered by the PCE filing logic."
^DD(9000010.12,80102,21,0)="^^4^4^2950901^^^^"
^DD(9000010.12,80102,21,1,0)="This field is populated automatically be the PCE filing logic.  The formt of"
^DD(9000010.12,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.12,80102,21,3,0)="for Edit_"" ""_DUZ of the person who entered the data_"";""..."
^DD(9000010.12,80102,21,4,0)=" "
^DD(9000010.12,80102,23,0)="^^14^14^2950901^^^"
^DD(9000010.12,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE data source file.  If this"
^DD(9000010.12,80102,23,2,0)="is not passed, then PCE filing logic will not process the data."
^DD(9000010.12,80102,23,3,0)=" "
^DD(9000010.12,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source that"
^DD(9000010.12,80102,23,5,0)="added the data.  If the record existed previously, PCE filing logic compares"
^DD(9000010.12,80102,23,6,0)="the old and new records of information.  An ""E"" will be automatically used if"
^DD(9000010.12,80102,23,7,0)="the filing logic finds the data has been edited.  If ""E"" is used, then the"
^DD(9000010.12,80102,23,8,0)="Edited Flag field is automatically set to 1."
^DD(9000010.12,80102,23,9,0)=" "
^DD(9000010.12,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who performed"
^DD(9000010.12,80102,23,11,0)="the adding or editing of data for this record."
^DD(9000010.12,80102,23,12,0)=" "
^DD(9000010.12,80102,23,13,0)="Iterations of editing will be concatenated to the previous data source value,"
^DD(9000010.12,80102,23,14,0)="up to 85 characters."
^DD(9000010.12,80102,"DT")="2960509"
^DD(9000010.12,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.12,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.12,81101,21,0)="^^2^2^2950901^^"
^DD(9000010.12,81101,21,1,0)="This is a comment related to the patient's skin test.  The provider may enter"
^DD(9000010.12,81101,21,2,0)="this manually via the PCE User Interface."
^DD(9000010.12,81101,"DT")="2950711"
^DD(9000010.12,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.12,81201,"DT")="2960509"
^DD(9000010.12,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.12,81202,"DT")="2960509"
^DD(9000010.12,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.12,81203,"DT")="2960509"
^DD(9000010.12,"B","AUDIT TRAIL",80102)=""
^DD(9000010.12,"B","COMMENTS",81101)=""
^DD(9000010.12,"B","DATA SOURCE",81203)=""
^DD(9000010.12,"B","DATE READ",.06)=""
^DD(9000010.12,"B","DIAGNOSIS",.08)=""
^DD(9000010.12,"B","DIAGNOSIS 2",.09)=""
^DD(9000010.12,"B","DIAGNOSIS 3",.1)=""
^DD(9000010.12,"B","DIAGNOSIS 4",.11)=""
^DD(9000010.12,"B","DIAGNOSIS 5",.12)=""
^DD(9000010.12,"B","DIAGNOSIS 6",.13)=""
^DD(9000010.12,"B","DIAGNOSIS 7",.14)=""
^DD(9000010.12,"B","DIAGNOSIS 8",.15)=""
^DD(9000010.12,"B","EDITED FLAG",80101)=""
^DD(9000010.12,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.12,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.12,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.12,"B","PACKAGE",81202)=""
^DD(9000010.12,"B","PATIENT NAME",.02)=""
^DD(9000010.12,"B","READING",.05)=""
^DD(9000010.12,"B","RESULTS",.04)=""
^DD(9000010.12,"B","SKIN TEST",.01)=""
^DD(9000010.12,"B","VERIFIED",81201)=""
^DD(9000010.12,"B","VISIT",.03)=""
^DD(9000010.12,"GL",0,1,.01)=""
^DD(9000010.12,"GL",0,2,.02)=""
^DD(9000010.12,"GL",0,3,.03)=""
^DD(9000010.12,"GL",0,4,.04)=""
^DD(9000010.12,"GL",0,5,.05)=""
^DD(9000010.12,"GL",0,6,.06)=""
^DD(9000010.12,"GL",0,8,.08)=""
^DD(9000010.12,"GL",0,9,.09)=""
^DD(9000010.12,"GL",0,10,.1)=""
^DD(9000010.12,"GL",0,11,.11)=""
^DD(9000010.12,"GL",0,12,.12)=""
^DD(9000010.12,"GL",0,13,.13)=""
^DD(9000010.12,"GL",0,14,.14)=""
^DD(9000010.12,"GL",0,15,.15)=""
^DD(9000010.12,"GL",12,1,1201)=""
^DD(9000010.12,"GL",12,2,1202)=""
^DD(9000010.12,"GL",12,4,1204)=""
^DD(9000010.12,"GL",801,1,80101)=""
^DD(9000010.12,"GL",801,2,80102)=""
^DD(9000010.12,"GL",811,1,81101)=""
^DD(9000010.12,"GL",812,1,81201)=""
^DD(9000010.12,"GL",812,2,81202)=""
^DD(9000010.12,"GL",812,3,81203)=""
^DD(9000010.12,"IX",.01)=""
^DD(9000010.12,"IX",.02)=""
^DD(9000010.12,"IX",.03)=""
^DD(9000010.12,"IX",.05)=""
^DD(9000010.12,"RQ",.01)=""
^DD(9000010.12,"RQ",.02)=""
^DD(9000010.12,"RQ",.03)=""
^DD(9000010.13,0)="FIELD^^81203^13"
^DD(9000010.13,0,"DDA")="N"
^DD(9000010.13,0,"DT")="2960513"
^DD(9000010.13,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.13,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.13,0,"IX","AA",9000010.13,.03)=""
^DD(9000010.13,0,"IX","AATOO",9000010.13,.01)=""
^DD(9000010.13,0,"IX","AATOO2",9000010.13,.02)=""
^DD(9000010.13,0,"IX","AD",9000010.13,.03)=""
^DD(9000010.13,0,"IX","AV10",9000010.13,.03)=""
^DD(9000010.13,0,"IX","B",9000010.13,.01)=""
^DD(9000010.13,0,"IX","C",9000010.13,.02)=""
^DD(9000010.13,0,"NM","V EXAM")=""
^DD(9000010.13,.01,0)="EXAM^R*P9999999.15'^AUTTEXAM(^0;1^S DIC(""S"")=""I $P(^(0),U,4)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.13,.01,1,0)="^.1^^-1"
^DD(9000010.13,.01,1,1,0)="9000010.13^B"
^DD(9000010.13,.01,1,1,1)="S ^AUPNVXAM(""B"",$E(X,1,30),DA)="""""
^DD(9000010.13,.01,1,1,2)="K ^AUPNVXAM(""B"",$E(X,1,30),DA)"
^DD(9000010.13,.01,1,3,0)="9000010.13^AATOO^MUMPS"
^DD(9000010.13,.01,1,3,1)="I $P(^AUPNVXAM(DA,0),U,2)]"""",$P(^(0),U,3)]"""" S ^AUPNVXAM(""AA"",$P(^AUPNVXAM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.13,.01,1,3,2)="I $P(^AUPNVXAM(DA,0),U,2)]"""",$P(^(0),U,3)]"""" K ^AUPNVXAM(""AA"",$P(^AUPNVXAM(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.13,.01,1,3,"%D",0)="^^5^5^2950901^"
^DD(9000010.13,.01,1,3,"%D",1,0)="This cross reference is used for searches in sequence by patient, Exam"
^DD(9000010.13,.01,1,3,"%D",2,0)="pointer, inverted visit date, and internal entry number."
^DD(9000010.13,.01,1,3,"%D",3,0)=" "
^DD(9000010.13,.01,1,3,"%D",4,0)=" "
^DD(9000010.13,.01,1,3,"%D",5,0)="    ""AA"",PATIENT,EXAM,VISIT,DA"
^DD(9000010.13,.01,3)="Enter the exam which was done to the patient."
^DD(9000010.13,.01,12)="Allow only active Exams to be selected."
^DD(9000010.13,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)'=1"""
^DD(9000010.13,.01,21,0)="^^2^2^2951024^^"
^DD(9000010.13,.01,21,1,0)="This is the entry in the Exam file that represents what type of exam was"
^DD(9000010.13,.01,21,2,0)="done at the encounter."
^DD(9000010.13,.01,"AUDIT")="n"
^DD(9000010.13,.01,"DT")="2950901"
^DD(9000010.13,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.13,.02,1,0)="^.1"
^DD(9000010.13,.02,1,2,0)="9000010.13^AATOO2^MUMPS"
^DD(9000010.13,.02,1,2,1)="I $P(^AUPNVXAM(DA,0),U,3)]"""" S ^AUPNVXAM(""AA"",X,+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.13,.02,1,2,2)="I $P(^AUPNVXAM(DA,0),U,3)]"""" K ^AUPNVXAM(""AA"",X,+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVXAM(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.13,.02,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.13,.02,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, Exam"
^DD(9000010.13,.02,1,2,"%D",2,0)="pointer, inverted visit, and internal entry number."
^DD(9000010.13,.02,1,2,"%D",3,0)=" "
^DD(9000010.13,.02,1,2,"%D",4,0)="   ""AA"",PATIENT,EXAM,VISIT,DA"
^DD(9000010.13,.02,1,3,0)="9000010.13^C"
^DD(9000010.13,.02,1,3,1)="S ^AUPNVXAM(""C"",$E(X,1,30),DA)="""""
^DD(9000010.13,.02,1,3,2)="K ^AUPNVXAM(""C"",$E(X,1,30),DA)"
^DD(9000010.13,.02,1,3,"%D",0)="^^1^1^2950901^"
^DD(9000010.13,.02,1,3,"%D",1,0)="This cross reference is used for look-up of exams by patient."
^DD(9000010.13,.02,1,3,"DT")="2950901"
^DD(9000010.13,.02,3)="Enter the patient who received the exam."
^DD(9000010.13,.02,21,0)="^^1^1^2950901^"
^DD(9000010.13,.02,21,1,0)="This is the patient who received the exam."
^DD(9000010.13,.02,"DT")="2950901"
^DD(9000010.13,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVXAM(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.13,.03,1,0)="^.1"
^DD(9000010.13,.03,1,1,0)="9000010.13^AD"
^DD(9000010.13,.03,1,1,1)="S ^AUPNVXAM(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.13,.03,1,1,2)="K ^AUPNVXAM(""AD"",$E(X,1,30),DA)"
^DD(9000010.13,.03,1,1,"%D",0)="^^4^4^2950901^"
^DD(9000010.13,.03,1,1,"%D",1,0)="This cross reference is used for searches by the visit pointer and"
^DD(9000010.13,.03,1,1,"%D",2,0)="internal entry number. "
^DD(9000010.13,.03,1,1,"%D",3,0)=" "
^DD(9000010.13,.03,1,1,"%D",4,0)="  ""AD"",VISIT,DA"
^DD(9000010.13,.03,1,2,0)="9000010.13^AA^MUMPS"
^DD(9000010.13,.03,1,2,1)="Q:$P(^AUPNVXAM(DA,0),U,2)=""""  S ^AUPNVXAM(""AA"",$P(^AUPNVXAM(DA,0),U,2),+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.13,.03,1,2,2)="Q:$P(^AUPNVXAM(DA,0),U,2)=""""  K ^AUPNVXAM(""AA"",$P(^AUPNVXAM(DA,0),U,2),+^AUPNVXAM(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.13,.03,1,2,"%D",0)="^^4^4^2950901^^"
^DD(9000010.13,.03,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, exam"
^DD(9000010.13,.03,1,2,"%D",2,0)="pointer, inverted visit, internal entry number."
^DD(9000010.13,.03,1,2,"%D",3,0)=" "
^DD(9000010.13,.03,1,2,"%D",4,0)="   ""AA"",PATIENT,EXAM,VISIT,DA"
^DD(9000010.13,.03,1,3,0)="9000010.13^AV10^MUMPS"
^DD(9000010.13,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.13,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.13,.03,1,3,"%D",0)="^^2^2^2940131^"
^DD(9000010.13,.03,1,3,"%D",1,0)="This cross-reference adds and subtracts from the dependent entry count in"
^DD(9000010.13,.03,1,3,"%D",2,0)="the VISIT file."
^DD(9000010.13,.03,3)="Enter the visit date/time for the encounter where the exam was done."
^DD(9000010.13,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.13,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVXAM(DA,0),U,2)"""
^DD(9000010.13,.03,21,0)="^^2^2^2950901^"
^DD(9000010.13,.03,21,1,0)="This is the encounter in the Visit file that represents when and where the"
^DD(9000010.13,.03,21,2,0)="exam was done."
^DD(9000010.13,.03,"DT")="2861111"
^DD(9000010.13,.04,0)="RESULT^S^A:ABNORMAL;N:NORMAL;^0;4^Q"
^DD(9000010.13,.04,1,0)="^.1^^0"
^DD(9000010.13,.04,"DT")="2950901"
^DD(9000010.13,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.13,1201,3)="Enter the date and time the exam was given."
^DD(9000010.13,1201,21,0)="^^9^9^2960403^^^^"
^DD(9000010.13,1201,21,1,0)="This is the date and time the exam was given by the provider.  This date"
^DD(9000010.13,1201,21,2,0)="and time may be different from the visit date and time.  For example, for"
^DD(9000010.13,1201,21,3,0)="clinic appointment visits, the visit date and time is the date and time of the"
^DD(9000010.13,1201,21,4,0)="appointment, not the time the provider performed the clinical event."
^DD(9000010.13,1201,21,5,0)=" "
^DD(9000010.13,1201,21,6,0)="The date may be an imprecise date."
^DD(9000010.13,1201,21,7,0)=" "
^DD(9000010.13,1201,21,8,0)="Date and time may be within 30 days before or after the visit date, with the"
^DD(9000010.13,1201,21,9,0)="restriction the date cannot be a future date."
^DD(9000010.13,1201,23,0)="^^13^13^2960403^^^^"
^DD(9000010.13,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the"
^DD(9000010.13,1201,23,2,0)="primary source of the event date and time.  The event date prompt defaults"
^DD(9000010.13,1201,23,3,0)="to the visit date, and the time is entered to reflect the actual time the"
^DD(9000010.13,1201,23,4,0)="measurement was done.  The event date does not have to be the visit date,"
^DD(9000010.13,1201,23,5,0)="but it must be within 30 days before or after the visit, and not be a"
^DD(9000010.13,1201,23,6,0)="future date."
^DD(9000010.13,1201,23,7,0)=" "
^DD(9000010.13,1201,23,8,0)="If a user wants to enter a historical measurement, the user should use the"
^DD(9000010.13,1201,23,9,0)="Historical Encounter entry action to document the historical measurement."
^DD(9000010.13,1201,23,10,0)="Historical entries will not be eligible for credit."
^DD(9000010.13,1201,23,11,0)=" "
^DD(9000010.13,1201,23,12,0)="PCE Data Sources for automatic (scanning) data capture will be blank"
^DD(9000010.13,1201,23,13,0)="unless the event date and time are passed to PCE for filing. "
^DD(9000010.13,1201,"DT")="2960403"
^DD(9000010.13,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.13,1202,3)="Enter the provider who ordered this exam."
^DD(9000010.13,1202,21,0)="^^1^1^2960513^"
^DD(9000010.13,1202,21,1,0)="This field can be used to document the provider who ordered the exam."
^DD(9000010.13,1202,"DT")="2960513"
^DD(9000010.13,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.13,1204,3)="Enter the provider who gave the exam."
^DD(9000010.13,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.13,1204,21,1,0)="This is the provider who gave the exam."
^DD(9000010.13,1204,"DT")="2941219"
^DD(9000010.13,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.13,80101,3)="Answer is automatically entered by PCE filing logic."
^DD(9000010.13,80101,21,0)="^^2^2^2950901^"
^DD(9000010.13,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original"
^DD(9000010.13,80101,21,2,0)="exam data is being edited."
^DD(9000010.13,80101,23,0)="^^2^2^2950901^"
^DD(9000010.13,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.13,80101,23,2,0)="record to determine if the edited flag should be set to ""1""."
^DD(9000010.13,80101,"DT")="2940608"
^DD(9000010.13,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.13,80102,3)="Answer is automatically entered by the PCE filing logic."
^DD(9000010.13,80102,21,0)="^^3^3^2950901^"
^DD(9000010.13,80102,21,1,0)="This field is populated automatically by the PCE filing logic.  The format of"
^DD(9000010.13,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.13,80102,21,3,0)="for Edit_"" ""_DUZ of the person who entered the data_"";""..."
^DD(9000010.13,80102,23,0)="^^15^15^2950901^"
^DD(9000010.13,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE Data Source file."
^DD(9000010.13,80102,23,2,0)="If this is not passed, then PCE filing logic will not process the data."
^DD(9000010.13,80102,23,3,0)="  "
^DD(9000010.13,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source"
^DD(9000010.13,80102,23,5,0)="that added the data.  If the record existed previously, PCE filing logic"
^DD(9000010.13,80102,23,6,0)="compares the old and new records of information.  An ""E"" will be"
^DD(9000010.13,80102,23,7,0)="automatically used if the filing logic finds the data has been edited.  If"
^DD(9000010.13,80102,23,8,0)="""E"" is used, then the Edited Flag field is automatically set to 1."
^DD(9000010.13,80102,23,9,0)="  "
^DD(9000010.13,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who"
^DD(9000010.13,80102,23,11,0)="performed the addition or editing of data for this record."
^DD(9000010.13,80102,23,12,0)=" "
^DD(9000010.13,80102,23,13,0)="Iterations of editing will be concatenated to the previous Data Source"
^DD(9000010.13,80102,23,14,0)="value, up to 85 characters."
^DD(9000010.13,80102,23,15,0)=""
^DD(9000010.13,80102,"DT")="2960509"
^DD(9000010.13,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.13,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.13,81101,21,0)="^^2^2^2950901^"
^DD(9000010.13,81101,21,1,0)="This is a comment related to the patient's exam.  The provider may enter this"
^DD(9000010.13,81101,21,2,0)="manually via the PCE User Interface."
^DD(9000010.13,81101,"DT")="2950711"
^DD(9000010.13,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.13,81201,"DT")="2960509"
^DD(9000010.13,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.13,81202,"DT")="2960509"
^DD(9000010.13,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.13,81203,"DT")="2960509"
^DD(9000010.13,"B","AUDIT TRAIL",80102)=""
^DD(9000010.13,"B","COMMENTS",81101)=""
^DD(9000010.13,"B","DATA SOURCE",81203)=""
^DD(9000010.13,"B","EDITED FLAG",80101)=""
^DD(9000010.13,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.13,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.13,"B","EXAM",.01)=""
^DD(9000010.13,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.13,"B","PACKAGE",81202)=""
^DD(9000010.13,"B","PATIENT NAME",.02)=""
^DD(9000010.13,"B","RESULT",.04)=""
^DD(9000010.13,"B","VERIFIED",81201)=""
^DD(9000010.13,"B","VISIT",.03)=""
^DD(9000010.13,"GL",0,1,.01)=""
^DD(9000010.13,"GL",0,2,.02)=""
^DD(9000010.13,"GL",0,3,.03)=""
^DD(9000010.13,"GL",0,4,.04)=""
^DD(9000010.13,"GL",12,1,1201)=""
^DD(9000010.13,"GL",12,2,1202)=""
^DD(9000010.13,"GL",12,4,1204)=""
^DD(9000010.13,"GL",801,1,80101)=""
^DD(9000010.13,"GL",801,2,80102)=""
^DD(9000010.13,"GL",811,1,81101)=""
^DD(9000010.13,"GL",812,1,81201)=""
^DD(9000010.13,"GL",812,2,81202)=""
^DD(9000010.13,"GL",812,3,81203)=""
^DD(9000010.13,"IX",.01)=""
^DD(9000010.13,"IX",.02)=""
^DD(9000010.13,"IX",.03)=""
^DD(9000010.13,"RQ",.01)=""
^DD(9000010.13,"RQ",.02)=""
^DD(9000010.13,"RQ",.03)=""
^DD(9000010.15,0)="FIELD^^81203^15"
^DD(9000010.15,0,"DDA")="N"
^DD(9000010.15,0,"DT")="2960513"
^DD(9000010.15,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.15,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.15,0,"IX","AA",9000010.15,.03)=""
^DD(9000010.15,0,"IX","AATOO",9000010.15,.02)=""
^DD(9000010.15,0,"IX","AD",9000010.15,.03)=""
^DD(9000010.15,0,"IX","AV10",9000010.15,.03)=""
^DD(9000010.15,0,"IX","B",9000010.15,.01)=""
^DD(9000010.15,0,"IX","C",9000010.15,.02)=""
^DD(9000010.15,0,"NM","V TREATMENT")=""
^DD(9000010.15,.01,0)="TREATMENT^R*P9999999.17'^AUTTTRT(^0;1^S DIC(""S"")=""I $P(^(0),U,4)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.15,.01,1,0)="^.1^^-1"
^DD(9000010.15,.01,1,1,0)="9000010.15^B"
^DD(9000010.15,.01,1,1,1)="S ^AUPNVTRT(""B"",$E(X,1,30),DA)="""""
^DD(9000010.15,.01,1,1,2)="K ^AUPNVTRT(""B"",$E(X,1,30),DA)"
^DD(9000010.15,.01,3)="Enter a treatment from the Treatment file or select ""OTHER""."
^DD(9000010.15,.01,12)="Allow only active Treatment types to be selected."
^DD(9000010.15,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,4)'=1"""
^DD(9000010.15,.01,21,0)="^^2^2^2950901^"
^DD(9000010.15,.01,21,1,0)="This is a treatment or service provided which does not map to a CPT code"
^DD(9000010.15,.01,21,2,0)="but is clinically useful for patient care management."
^DD(9000010.15,.01,23,0)="^^3^3^2950901^"
^DD(9000010.15,.01,23,1,0)="In the VA, this entry will be ""OTHER"" if the treatment text received from"
^DD(9000010.15,.01,23,2,0)="the PCE Device Interface does not have a match in the Treatment file.  The"
^DD(9000010.15,.01,23,3,0)="Provider Narrative field will reflect the name of the Treatment provided."
^DD(9000010.15,.01,"DT")="2951024"
^DD(9000010.15,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.15,.02,1,0)="^.1"
^DD(9000010.15,.02,1,2,0)="9000010.15^AATOO^MUMPS"
^DD(9000010.15,.02,1,2,1)="I $P(^AUPNVTRT(DA,0),U,3)]"""" S ^AUPNVTRT(""AA"",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTRT(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.15,.02,1,2,2)="I $P(^AUPNVTRT(DA,0),U,3)]"""" K ^AUPNVTRT(""AA"",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTRT(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.15,.02,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.15,.02,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, inverted"
^DD(9000010.15,.02,1,2,"%D",2,0)="visit date, and internal entry number."
^DD(9000010.15,.02,1,2,"%D",3,0)=" "
^DD(9000010.15,.02,1,2,"%D",4,0)="  ""AA"",PATIENT,VISIT,DA"
^DD(9000010.15,.02,1,3,0)="9000010.15^C"
^DD(9000010.15,.02,1,3,1)="S ^AUPNVTRT(""C"",$E(X,1,30),DA)="""""
^DD(9000010.15,.02,1,3,2)="K ^AUPNVTRT(""C"",$E(X,1,30),DA)"
^DD(9000010.15,.02,1,3,"%D",0)="^^1^1^2950901^"
^DD(9000010.15,.02,1,3,"%D",1,0)="This cross reference allows look-up on treatments by Patient."
^DD(9000010.15,.02,1,3,"DT")="2950901"
^DD(9000010.15,.02,3)="Enter the patient who received the treatment."
^DD(9000010.15,.02,21,0)="^^1^1^2950901^^^"
^DD(9000010.15,.02,21,1,0)="This is the patient who received this treatment."
^DD(9000010.15,.02,"DT")="2950901"
^DD(9000010.15,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVTRT(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.15,.03,1,0)="^.1"
^DD(9000010.15,.03,1,1,0)="9000010.15^AD"
^DD(9000010.15,.03,1,1,1)="S ^AUPNVTRT(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.15,.03,1,1,2)="K ^AUPNVTRT(""AD"",$E(X,1,30),DA)"
^DD(9000010.15,.03,1,1,"%D",0)="^^2^2^2950901^"
^DD(9000010.15,.03,1,1,"%D",1,0)="This cross reference is used for searches by the visit pointer and"
^DD(9000010.15,.03,1,1,"%D",2,0)="internal entry number."
^DD(9000010.15,.03,1,2,0)="9000010.15^AA^MUMPS"
^DD(9000010.15,.03,1,2,1)="Q:$P(^AUPNVTRT(DA,0),U,2)=""""  S ^AUPNVTRT(""AA"",$P(^AUPNVTRT(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.15,.03,1,2,2)="Q:$P(^AUPNVTRT(DA,0),U,2)=""""  K ^AUPNVTRT(""AA"",$P(^AUPNVTRT(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.15,.03,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.15,.03,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, inverted"
^DD(9000010.15,.03,1,2,"%D",2,0)="visit date, and the internal entry number."
^DD(9000010.15,.03,1,2,"%D",3,0)=" "
^DD(9000010.15,.03,1,2,"%D",4,0)="   ""AA"",PATIENT,VISIT,DA"
^DD(9000010.15,.03,1,3,0)="9000010.15^AV10^MUMPS"
^DD(9000010.15,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.15,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.15,.03,1,3,"%D",0)="^^2^2^2940131^"
^DD(9000010.15,.03,1,3,"%D",1,0)="This cross-reference adds and subtracts from the dependent entry count in"
^DD(9000010.15,.03,1,3,"%D",2,0)="the VISIT file."
^DD(9000010.15,.03,3)="Enter the visit date/time for the encounter where the treatment was done."
^DD(9000010.15,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.15,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVTRT(DA,0),U,2)"""
^DD(9000010.15,.03,21,0)="^^2^2^2950901^"
^DD(9000010.15,.03,21,1,0)="This is the encounter or occasion of service defined in the Visit file"
^DD(9000010.15,.03,21,2,0)="that represents when and where the treatment was done."
^DD(9000010.15,.03,23,0)="^^2^2^2950901^"
^DD(9000010.15,.03,23,1,0)="This is a pointer to the Visit File (#9000010).  This field is stuffed by"
^DD(9000010.15,.03,23,2,0)="the applications. No editing is allowed."
^DD(9000010.15,.03,"DT")="2861111"
^DD(9000010.15,.04,0)="HOW MANY^NJ3,0^^0;4^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9000010.15,.04,3)="Enter a number between 1 and 999 for how many times the treatment was done."
^DD(9000010.15,.04,21,0)="^^2^2^2950901^"
^DD(9000010.15,.04,21,1,0)="This is the number of times this treatment was given to the patient during"
^DD(9000010.15,.04,21,2,0)="the encounter."
^DD(9000010.15,.04,"DT")="2950324"
^DD(9000010.15,.06,0)="PROVIDER NARRATIVE^*P9999999.27^AUTNPOV(^0;6^S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.15,.06,3)="Enter the providers narrative documenting the treatment"
^DD(9000010.15,.06,12)="IHS OLD LOOKUP or PCE Exact Match"
^DD(9000010.15,.06,12.1)="S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"")"
^DD(9000010.15,.06,21,0)="^^2^2^2950901^"
^DD(9000010.15,.06,21,1,0)="This is the provider's preferred text used to represent the treatment"
^DD(9000010.15,.06,21,2,0)="provided."
^DD(9000010.15,.06,23,0)="^^2^2^2950901^"
^DD(9000010.15,.06,23,1,0)="If the provider narrative does not have a related entry in the Treatment"
^DD(9000010.15,.06,23,2,0)="file the ""OTHER"" entry will be defined in the Treatment (.01) field."
^DD(9000010.15,.06,"DT")="2940427"
^DD(9000010.15,1201,0)="Event Date and Time^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.15,1201,3)="Enter the date and time the treatment was provided."
^DD(9000010.15,1201,21,0)="^^9^9^2960403^^^^"
^DD(9000010.15,1201,21,1,0)="This is the date and time the treatment was given by the provider.  This"
^DD(9000010.15,1201,21,2,0)="date and time may be different from the visit date and time.  For example, for"
^DD(9000010.15,1201,21,3,0)="clinic appointment visits, the visit date and time is the date and time of the"
^DD(9000010.15,1201,21,4,0)="appointment, not the time the provider performed the clinical event."
^DD(9000010.15,1201,21,5,0)=" "
^DD(9000010.15,1201,21,6,0)="The date may be an imprecise date."
^DD(9000010.15,1201,21,7,0)=" "
^DD(9000010.15,1201,21,8,0)="Date and time may be within 30 days before or after the visit date, with the"
^DD(9000010.15,1201,21,9,0)="restriction the date cannot be a future date."
^DD(9000010.15,1201,23,0)="^^13^13^2960403^^^^"
^DD(9000010.15,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the prmary"
^DD(9000010.15,1201,23,2,0)="source of the event date and time.  The event date prompt defaults to the visit"
^DD(9000010.15,1201,23,3,0)="date and the time is entered to reflect the actual time the exam was given. "
^DD(9000010.15,1201,23,4,0)="The event date does not have to be the visit date, but it must be within 30"
^DD(9000010.15,1201,23,5,0)="days before or after the visit, and not be a future date."
^DD(9000010.15,1201,23,6,0)=" "
^DD(9000010.15,1201,23,7,0)="If a user wants to enter an historical measurement, the user should use the"
^DD(9000010.15,1201,23,8,0)="Historical Encounter entry action to document the historical measurement. "
^DD(9000010.15,1201,23,9,0)="Historical entries will not be eligible for credit."
^DD(9000010.15,1201,23,10,0)=""
^DD(9000010.15,1201,23,11,0)="PCE data sources for automatic (scanning) data capture will be blank unless the"
^DD(9000010.15,1201,23,12,0)="event date and time are passed to PCE for filing. "
^DD(9000010.15,1201,23,13,0)=""
^DD(9000010.15,1201,"DT")="2960403"
^DD(9000010.15,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.15,1202,3)="Enter the provider who ordered the treatment."
^DD(9000010.15,1202,21,0)="^^1^1^2960513^"
^DD(9000010.15,1202,21,1,0)="This field may be used to document the provider who ordered the treatment."
^DD(9000010.15,1202,"DT")="2960513"
^DD(9000010.15,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.15,1204,3)="Enter the provider who gave the treatment."
^DD(9000010.15,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.15,1204,21,1,0)="This is the provider who gave the treatment."
^DD(9000010.15,1204,"DT")="2941219"
^DD(9000010.15,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.15,80101,3)="Answer is automatically entered by PCE filing logic."
^DD(9000010.15,80101,21,0)="^^2^2^2950901^"
^DD(9000010.15,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original"
^DD(9000010.15,80101,21,2,0)="treatment data is being edited."
^DD(9000010.15,80101,23,0)="^^2^2^2950901^^^"
^DD(9000010.15,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.15,80101,23,2,0)="record to determine if the edited flag should be set to ""1""."
^DD(9000010.15,80101,"DT")="2940427"
^DD(9000010.15,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.15,80102,3)="Answer is automatically entered by the PCE filing logic."
^DD(9000010.15,80102,21,0)="^^3^3^2950901^^^"
^DD(9000010.15,80102,21,1,0)="This field is populated automatically by the PCE filing logic.  The format of"
^DD(9000010.15,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.15,80102,21,3,0)="for Edit_"" ""_DUZ of the person who entered the data_"";""..."
^DD(9000010.15,80102,23,0)="^^14^14^2950901^^^"
^DD(9000010.15,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE data source file.  If this"
^DD(9000010.15,80102,23,2,0)="is not passed, then PCE filing logic will not process the data."
^DD(9000010.15,80102,23,3,0)=" "
^DD(9000010.15,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source that"
^DD(9000010.15,80102,23,5,0)="added the data.  If the record existed previously, PCE filing logic compares"
^DD(9000010.15,80102,23,6,0)="the old and new records of information.  An ""E"" will automatically be used if"
^DD(9000010.15,80102,23,7,0)="the filing logic finds the data has been edited.  If ""E"" is used, then the"
^DD(9000010.15,80102,23,8,0)="Edited Flag field is automatically set to 1."
^DD(9000010.15,80102,23,9,0)=" "
^DD(9000010.15,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who performed"
^DD(9000010.15,80102,23,11,0)="the adding or editing of data for this record."
^DD(9000010.15,80102,23,12,0)=" "
^DD(9000010.15,80102,23,13,0)="Iterations of editing will be concatenated to the previous data source value,"
^DD(9000010.15,80102,23,14,0)="up to 85 characters."
^DD(9000010.15,80102,"DT")="2960509"
^DD(9000010.15,80201,0)="PROVIDER NARRATIVE CATEGORY^P9999999.27^AUTNPOV(^802;1^Q"
^DD(9000010.15,80201,3)="Enter the header or category related to the treatment."
^DD(9000010.15,80201,21,0)="^^5^5^2950901^"
^DD(9000010.15,80201,21,1,0)="This field is the heading or category used to represent the provider"
^DD(9000010.15,80201,21,2,0)="narrative on the scanner form or workstation.  It may be useful for"
^DD(9000010.15,80201,21,3,0)="understanding how providers are grouping data for use on the encounter"
^DD(9000010.15,80201,21,4,0)="form, and may help determine clinical terminology definitions in the"
^DD(9000010.15,80201,21,5,0)="future."
^DD(9000010.15,80201,23,0)="^^2^2^2950901^"
^DD(9000010.15,80201,23,1,0)="This field was added for use in the VA.  It is only used with automated"
^DD(9000010.15,80201,23,2,0)="data capture sources, such as AICS."
^DD(9000010.15,80201,"DT")="2940428"
^DD(9000010.15,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.15,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.15,81101,21,0)="^^2^2^2950901^^"
^DD(9000010.15,81101,21,1,0)="This is a comment related to the patient's treatment.  The provider may enter"
^DD(9000010.15,81101,21,2,0)="this manually via the PCE User Interface."
^DD(9000010.15,81101,"DT")="2950711"
^DD(9000010.15,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.15,81201,"DT")="2960509"
^DD(9000010.15,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.15,81202,"DT")="2960509"
^DD(9000010.15,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.15,81203,"DT")="2960509"
^DD(9000010.15,"B","AUDIT TRAIL",80102)=""
^DD(9000010.15,"B","COMMENTS",81101)=""
^DD(9000010.15,"B","DATA SOURCE",81203)=""
^DD(9000010.15,"B","EDITED FLAG",80101)=""
^DD(9000010.15,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.15,"B","Event Date and Time",1201)=""
^DD(9000010.15,"B","HOW MANY",.04)=""
^DD(9000010.15,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.15,"B","PACKAGE",81202)=""
^DD(9000010.15,"B","PATIENT NAME",.02)=""
^DD(9000010.15,"B","PROVIDER NARRATIVE",.06)=""
^DD(9000010.15,"B","PROVIDER NARRATIVE CATEGORY",80201)=""
^DD(9000010.15,"B","TREATMENT",.01)=""
^DD(9000010.15,"B","VERIFIED",81201)=""
^DD(9000010.15,"B","VISIT",.03)=""
^DD(9000010.15,"GL",0,1,.01)=""
^DD(9000010.15,"GL",0,2,.02)=""
^DD(9000010.15,"GL",0,3,.03)=""
^DD(9000010.15,"GL",0,4,.04)=""
^DD(9000010.15,"GL",0,6,.06)=""
^DD(9000010.15,"GL",12,1,1201)=""
^DD(9000010.15,"GL",12,2,1202)=""
^DD(9000010.15,"GL",12,4,1204)=""
^DD(9000010.15,"GL",801,1,80101)=""
^DD(9000010.15,"GL",801,2,80102)=""
^DD(9000010.15,"GL",802,1,80201)=""
^DD(9000010.15,"GL",811,1,81101)=""
^DD(9000010.15,"GL",812,1,81201)=""
^DD(9000010.15,"GL",812,2,81202)=""
^DD(9000010.15,"GL",812,3,81203)=""
^DD(9000010.15,"IX",.01)=""
^DD(9000010.15,"IX",.02)=""
^DD(9000010.15,"IX",.03)=""
^DD(9000010.15,"RQ",.01)=""
^DD(9000010.15,"RQ",.02)=""
^DD(9000010.15,"RQ",.03)=""
^DD(9000010.16,0)="FIELD^^81203^13"
^DD(9000010.16,0,"DDA")="N"
^DD(9000010.16,0,"DT")="2960513"
^DD(9000010.16,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.16,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.16,0,"IX","AA",9000010.16,.03)=""
^DD(9000010.16,0,"IX","AATOO",9000010.16,.02)=""
^DD(9000010.16,0,"IX","AATOO2",9000010.16,.01)=""
^DD(9000010.16,0,"IX","AD",9000010.16,.03)=""
^DD(9000010.16,0,"IX","AV10",9000010.16,.03)=""
^DD(9000010.16,0,"IX","B",9000010.16,.01)=""
^DD(9000010.16,0,"IX","C",9000010.16,.02)=""
^DD(9000010.16,0,"NM","V PATIENT ED")=""
^DD(9000010.16,0,"VR")="1.0"
^DD(9000010.16,0,"VRPK")="PX"
^DD(9000010.16,.01,0)="TOPIC^R*P9999999.09'^AUTTEDT(^0;1^S DIC(""S"")=""I $P(^(0),U,3)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.16,.01,1,0)="^.1"
^DD(9000010.16,.01,1,1,0)="9000010.16^B"
^DD(9000010.16,.01,1,1,1)="S ^AUPNVPED(""B"",$E(X,1,30),DA)="""""
^DD(9000010.16,.01,1,1,2)="K ^AUPNVPED(""B"",$E(X,1,30),DA)"
^DD(9000010.16,.01,1,2,0)="9000010.16^AATOO2^MUMPS"
^DD(9000010.16,.01,1,2,1)="I $P(^AUPNVPED(DA,0),U,2)]"""",$P(^(0),U,3)]"""" S ^AUPNVPED(""AA"",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.16,.01,1,2,2)="I $P(^AUPNVPED(DA,0),U,2)]"""",$P(^(0),U,3)]"""" K ^AUPNVPED(""AA"",$P(^AUPNVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.16,.01,1,2,"%D",0)="^^2^2^2970221^^"
^DD(9000010.16,.01,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, education"
^DD(9000010.16,.01,1,2,"%D",2,0)="topic pointer, inverted visit date, and internal entry number."
^DD(9000010.16,.01,1,2,"DT")="2970221"
^DD(9000010.16,.01,3)="Select the education that the patient received."
^DD(9000010.16,.01,12)="Only active Education Topics may be selected."
^DD(9000010.16,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,3)'=1"""
^DD(9000010.16,.01,21,0)="^^2^2^2951102^^^^"
^DD(9000010.16,.01,21,1,0)="This is the entry in the Education Topics file that represents the"
^DD(9000010.16,.01,21,2,0)="education given to the patient."
^DD(9000010.16,.01,"DT")="2970221"
^DD(9000010.16,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.16,.02,1,0)="^.1"
^DD(9000010.16,.02,1,2,0)="9000010.16^AATOO^MUMPS"
^DD(9000010.16,.02,1,2,1)="I $P(^AUPNVPED(DA,0),U,3)]"""" S ^AUPNVPED(""AA"",X,+^AUPNVPED(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.16,.02,1,2,2)="I $P(^AUPNVPED(DA,0),U,3)]"""" K ^AUPNVPED(""AA"",X,+^AUPNVPED(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVPED(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.16,.02,1,2,"%D",0)="^^2^2^2970212^^"
^DD(9000010.16,.02,1,2,"%D",1,0)="This is a Health Summary cross-reference."
^DD(9000010.16,.02,1,2,"%D",2,0)="""AA"",PATIENT,EDUCATION,VISIT,DA"
^DD(9000010.16,.02,1,2,"DT")="2970212"
^DD(9000010.16,.02,1,3,0)="9000010.16^C"
^DD(9000010.16,.02,1,3,1)="S ^AUPNVPED(""C"",$E(X,1,30),DA)="""""
^DD(9000010.16,.02,1,3,2)="K ^AUPNVPED(""C"",$E(X,1,30),DA)"
^DD(9000010.16,.02,1,3,"%D",0)="^^2^2^2950901^"
^DD(9000010.16,.02,1,3,"%D",1,0)="This cross reference is used for look-up of patient education done by"
^DD(9000010.16,.02,1,3,"%D",2,0)="patient."
^DD(9000010.16,.02,1,3,"DT")="2950901"
^DD(9000010.16,.02,3)="Enter the patient who received the education."
^DD(9000010.16,.02,21,0)="^^1^1^2950901^"
^DD(9000010.16,.02,21,1,0)="This is the patient who received education."
^DD(9000010.16,.02,23,0)="^^3^3^2950901^"
^DD(9000010.16,.02,23,1,0)="This is a pointer to the Patient/IHS file (#9000001) which is dinumed to"
^DD(9000010.16,.02,23,2,0)="the Patient File (#2)  This field is always stuffed by the application."
^DD(9000010.16,.02,23,3,0)="No editing is allowed."
^DD(9000010.16,.02,"DT")="2970212"
^DD(9000010.16,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVPED(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.16,.03,1,0)="^.1^^-1"
^DD(9000010.16,.03,1,1,0)="9000010.16^AD"
^DD(9000010.16,.03,1,1,1)="S ^AUPNVPED(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.16,.03,1,1,2)="K ^AUPNVPED(""AD"",$E(X,1,30),DA)"
^DD(9000010.16,.03,1,2,0)="9000010.16^AA^MUMPS"
^DD(9000010.16,.03,1,2,1)="Q:$P(^AUPNVPED(DA,0),U,2)=""""  S ^AUPNVPED(""AA"",$P(^AUPNVPED(DA,0),U,2),+$P(^(0),U,1),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.16,.03,1,2,2)="Q:$P(^AUPNVPED(DA,0),U,2)=""""  K ^AUPNVPED(""AA"",$P(^AUPNVPED(DA,0),U,2),$P(^(0),U,1),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.16,.03,1,2,"%D",0)="^^2^2^2970221^^"
^DD(9000010.16,.03,1,2,"%D",1,0)="This is a Health Summary cross-reference."
^DD(9000010.16,.03,1,2,"%D",2,0)="""AA"",PATIENT,VISIT,DA"
^DD(9000010.16,.03,1,2,"DT")="2970221"
^DD(9000010.16,.03,1,3,0)="9000010.16^AV10^MUMPS"
^DD(9000010.16,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.16,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.16,.03,1,3,"%D",0)="^^2^2^2940131^"
^DD(9000010.16,.03,1,3,"%D",1,0)="This cross-reference adds and subtracts from the dependent entry count in"
^DD(9000010.16,.03,1,3,"%D",2,0)="the VISIT file."
^DD(9000010.16,.03,3)="Enter the visit date/time for the encounter where the education was provided."
^DD(9000010.16,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.16,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVPED(DA,0),U,2)"""
^DD(9000010.16,.03,21,0)="^^2^2^2950901^"
^DD(9000010.16,.03,21,1,0)="This is the encounter or occasion of service defined in the Visit file"
^DD(9000010.16,.03,21,2,0)="that represents when and where the education was provided."
^DD(9000010.16,.03,23,0)="^^2^2^2950901^"
^DD(9000010.16,.03,23,1,0)="This is a pointer to the Visit File (#9000010).  This field is stuffed by"
^DD(9000010.16,.03,23,2,0)="the applications. No editing is allowed."
^DD(9000010.16,.03,"DT")="2970221"
^DD(9000010.16,.06,0)="LEVEL OF UNDERSTANDING^S^1:POOR;2:FAIR;3:GOOD;4:GROUP-NO ASSESSMENT;5:REFUSED;^0;6^Q"
^DD(9000010.16,.06,3)="Enter the number which best rates the patient's level of understanding."
^DD(9000010.16,.06,21,0)="^^2^2^2950901^"
^DD(9000010.16,.06,21,1,0)="This is the provider's assessment of how well the patient understood the"
^DD(9000010.16,.06,21,2,0)="education received."
^DD(9000010.16,.06,"DT")="2930907"
^DD(9000010.16,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.16,1201,3)="Enter the date and time the patient education was given."
^DD(9000010.16,1201,21,0)="^^9^9^2960403^^^^"
^DD(9000010.16,1201,21,1,0)="This is the date and time the education was given by the provider.  This"
^DD(9000010.16,1201,21,2,0)="date and time may be different from the visit date and time.  For example, for"
^DD(9000010.16,1201,21,3,0)="clinic appointment visits, the visit date and time is the date and time of the"
^DD(9000010.16,1201,21,4,0)="appointment, not the time the provider performed the clinical event."
^DD(9000010.16,1201,21,5,0)=" "
^DD(9000010.16,1201,21,6,0)="The date may be an imprecise date."
^DD(9000010.16,1201,21,7,0)=" "
^DD(9000010.16,1201,21,8,0)="Date and time may be within 30 days before or after the visit date, with the"
^DD(9000010.16,1201,21,9,0)="restriction the date cannot be a future date."
^DD(9000010.16,1201,23,0)="^^13^13^2960403^^^^"
^DD(9000010.16,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the prmary"
^DD(9000010.16,1201,23,2,0)="source of the event date and time.  The event date prompt defaults to the visit"
^DD(9000010.16,1201,23,3,0)="date and the time is entered to reflect the actual time the exam was given. "
^DD(9000010.16,1201,23,4,0)="The event date does not have to be the visit date, but it must be within 30"
^DD(9000010.16,1201,23,5,0)="days before or after the visit, and not be a future date."
^DD(9000010.16,1201,23,6,0)=" "
^DD(9000010.16,1201,23,7,0)="If a user wnats to enter an historical measurement, the user should use the"
^DD(9000010.16,1201,23,8,0)="Historical Encounter entry action to document the historical measurement. "
^DD(9000010.16,1201,23,9,0)="Historical entries will not be eligible for credit."
^DD(9000010.16,1201,23,10,0)=" "
^DD(9000010.16,1201,23,11,0)="PCE data sources for automatic (scanning) data capture will be blank unless the"
^DD(9000010.16,1201,23,12,0)="event date and time are passed to PCE for filing. "
^DD(9000010.16,1201,23,13,0)=""
^DD(9000010.16,1201,"DT")="2960403"
^DD(9000010.16,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.16,1202,3)="Enter the provider who ordered the patient education."
^DD(9000010.16,1202,21,0)="^^2^2^2960513^"
^DD(9000010.16,1202,21,1,0)="This field can be used to document the provider who ordered the patient"
^DD(9000010.16,1202,21,2,0)="education."
^DD(9000010.16,1202,"DT")="2960513"
^DD(9000010.16,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.16,1204,3)="Enter the provider who gave the patient education."
^DD(9000010.16,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.16,1204,21,1,0)="This is the provider who gave the patient education."
^DD(9000010.16,1204,"DT")="2941219"
^DD(9000010.16,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.16,80101,3)="Answer is automatically generated by the PCE filing logic."
^DD(9000010.16,80101,21,0)="^^2^2^2950831^"
^DD(9000010.16,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original exam data"
^DD(9000010.16,80101,21,2,0)="is being edited."
^DD(9000010.16,80101,23,0)="^^2^2^2950831^"
^DD(9000010.16,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.16,80101,23,2,0)="record to determine if the edited flag should be set to ""1""."
^DD(9000010.16,80101,"DT")="2940401"
^DD(9000010.16,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.16,80102,3)="Answer is automatically generated by the PCE filing logic."
^DD(9000010.16,80102,21,0)="^^3^3^2950831^"
^DD(9000010.16,80102,21,1,0)="This field is populated automatically by the PCE filing logic.  The format of"
^DD(9000010.16,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.16,80102,21,3,0)="for Edit_"" ""_DUZ of the person who entered the data_"";""..."
^DD(9000010.16,80102,23,0)="^^14^14^2950831^"
^DD(9000010.16,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE data source file.  If this"
^DD(9000010.16,80102,23,2,0)="is not passed, then PCE filing logic will not process the data."
^DD(9000010.16,80102,23,3,0)=" "
^DD(9000010.16,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source that"
^DD(9000010.16,80102,23,5,0)="added the data.  If the record existed previously, PCE filing logic compares"
^DD(9000010.16,80102,23,6,0)="the old and new records of information.  An ""E"" will automatically be used if"
^DD(9000010.16,80102,23,7,0)="the filing logic finds the data has been edited.  If ""E"" is used, then the"
^DD(9000010.16,80102,23,8,0)="Edited Flag field is automatically set to 1."
^DD(9000010.16,80102,23,9,0)=" "
^DD(9000010.16,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who performed"
^DD(9000010.16,80102,23,11,0)="the adding or editing of data for this record."
^DD(9000010.16,80102,23,12,0)=" "
^DD(9000010.16,80102,23,13,0)="Iterations of editing will be concatenated to the previous data source value,"
^DD(9000010.16,80102,23,14,0)="up to 85 characters."
^DD(9000010.16,80102,"DT")="2960509"
^DD(9000010.16,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.16,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.16,81101,21,0)="^^2^2^2950901^^"
^DD(9000010.16,81101,21,1,0)="This is a comment related to the patient's education.  The provider may enter"
^DD(9000010.16,81101,21,2,0)="this manually via the PCE User Interface."
^DD(9000010.16,81101,"DT")="2950711"
^DD(9000010.16,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.16,81201,"DT")="2960509"
^DD(9000010.16,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.16,81202,"DT")="2960509"
^DD(9000010.16,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.16,81203,"DT")="2960509"
^DD(9000010.16,"B","AUDIT TRAIL",80102)=""
^DD(9000010.16,"B","COMMENTS",81101)=""
^DD(9000010.16,"B","DATA SOURCE",81203)=""
^DD(9000010.16,"B","EDITED FLAG",80101)=""
^DD(9000010.16,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.16,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.16,"B","LEVEL OF UNDERSTANDING",.06)=""
^DD(9000010.16,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.16,"B","PACKAGE",81202)=""
^DD(9000010.16,"B","PATIENT NAME",.02)=""
^DD(9000010.16,"B","TOPIC",.01)=""
^DD(9000010.16,"B","VERIFIED",81201)=""
^DD(9000010.16,"B","VISIT",.03)=""
^DD(9000010.16,"GL",0,1,.01)=""
^DD(9000010.16,"GL",0,2,.02)=""
^DD(9000010.16,"GL",0,3,.03)=""
^DD(9000010.16,"GL",0,6,.06)=""
^DD(9000010.16,"GL",12,1,1201)=""
^DD(9000010.16,"GL",12,2,1202)=""
^DD(9000010.16,"GL",12,4,1204)=""
^DD(9000010.16,"GL",801,1,80101)=""
^DD(9000010.16,"GL",801,2,80102)=""
^DD(9000010.16,"GL",811,1,81101)=""
^DD(9000010.16,"GL",812,1,81201)=""
^DD(9000010.16,"GL",812,2,81202)=""
^DD(9000010.16,"GL",812,3,81203)=""
^DD(9000010.16,"IX",.01)=""
^DD(9000010.16,"IX",.02)=""
^DD(9000010.16,"IX",.03)=""
^DD(9000010.16,"RQ",.01)=""
^DD(9000010.16,"RQ",.02)=""
^DD(9000010.16,"RQ",.03)=""
^DD(9000010.18,0)="FIELD^^81203^28"
^DD(9000010.18,0,"DDA")="N"
^DD(9000010.18,0,"DT")="2960513"
^DD(9000010.18,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.18,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.18,0,"IX","AA",9000010.18,.03)=""
^DD(9000010.18,0,"IX","AATOO",9000010.18,.01)=""
^DD(9000010.18,0,"IX","AATOO2",9000010.18,.02)=""
^DD(9000010.18,0,"IX","AD",9000010.18,.03)=""
^DD(9000010.18,0,"IX","AV10",9000010.18,.03)=""
^DD(9000010.18,0,"IX","B",9000010.18,.01)=""
^DD(9000010.18,0,"IX","C",9000010.18,.02)=""
^DD(9000010.18,0,"NM","V CPT")=""
^DD(9000010.18,.01,0)="CPT^R*P81'X^ICPT(^0;1^S DIC(""S"")=""I $P($$CPT^ICPTCOD(+Y),""""^"""",7)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.01,1,0)="^.1^^-1"
^DD(9000010.18,.01,1,1,0)="9000010.18^B"
^DD(9000010.18,.01,1,1,1)="S ^AUPNVCPT(""B"",$E(X,1,30),DA)="""""
^DD(9000010.18,.01,1,1,2)="K ^AUPNVCPT(""B"",$E(X,1,30),DA)"
^DD(9000010.18,.01,1,3,0)="9000010.18^AATOO^MUMPS"
^DD(9000010.18,.01,1,3,1)="I $P(^AUPNVCPT(DA,0),U,2)]"""",$P(^(0),U,3)]"""" S ^AUPNVCPT(""AA"",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.18,.01,1,3,2)="I $P(^AUPNVCPT(DA,0),U,2)]"""",$P(^(0),U,3)]"""" K ^AUPNVCPT(""AA"",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.18,.01,1,3,"%D",0)="^^4^4^2950901^"
^DD(9000010.18,.01,1,3,"%D",1,0)="This cross reference is used for searches in sequence by Patient, CPT"
^DD(9000010.18,.01,1,3,"%D",2,0)="internal entry number, inverted visit date, and internal entry number."
^DD(9000010.18,.01,1,3,"%D",3,0)=" "
^DD(9000010.18,.01,1,3,"%D",4,0)=" ""AA"",PATIENT,CPT,VISIT,DA"
^DD(9000010.18,.01,3)="Enter a CPT code or the name of the procedure done to the patient."
^DD(9000010.18,.01,12)="Only active CPTs"
^DD(9000010.18,.01,12.1)="S DIC(""S"")=""I $P($$CPT^ICPTCOD(+Y),""""^"""",7)"""
^DD(9000010.18,.01,21,0)="^.001^8^8^3030402^^^"
^DD(9000010.18,.01,21,1,0)="This is the entry in the CPT file that most closely represents the"
^DD(9000010.18,.01,21,2,0)="clinical procedure done to the patient during the encounter.  The"
^DD(9000010.18,.01,21,3,0)="preferred text for the procedure performed may be specified in the"
^DD(9000010.18,.01,21,4,0)="Provider Narrative field.  "
^DD(9000010.18,.01,21,5,0)="  "
^DD(9000010.18,.01,21,6,0)="This field is used for Administrative and Clinical purposes.  If a"
^DD(9000010.18,.01,21,7,0)="procedure performed is to be billable, the CPT code must be specified"
^DD(9000010.18,.01,21,8,0)="here."
^DD(9000010.18,.01,"AUDIT")="n"
^DD(9000010.18,.01,"DT")="3040527"
^DD(9000010.18,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.18,.02,1,0)="^.1"
^DD(9000010.18,.02,1,2,0)="9000010.18^AATOO2^MUMPS"
^DD(9000010.18,.02,1,2,1)="I $P(^AUPNVCPT(DA,0),U,3)]"""" S ^AUPNVCPT(""AA"",X,+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.18,.02,1,2,2)="I $P(^AUPNVCPT(DA,0),U,3)]"""" K ^AUPNVCPT(""AA"",X,+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.18,.02,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.18,.02,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, CPT"
^DD(9000010.18,.02,1,2,"%D",2,0)="internal entry number, inverted visit date, and internal entry number."
^DD(9000010.18,.02,1,2,"%D",3,0)=" "
^DD(9000010.18,.02,1,2,"%D",4,0)="  ""AA"",PATIENT,CPT,VISIT,DA"
^DD(9000010.18,.02,1,3,0)="9000010.18^C"
^DD(9000010.18,.02,1,3,1)="S ^AUPNVCPT(""C"",$E(X,1,30),DA)="""""
^DD(9000010.18,.02,1,3,2)="K ^AUPNVCPT(""C"",$E(X,1,30),DA)"
^DD(9000010.18,.02,1,3,"%D",0)="^^1^1^2950901^"
^DD(9000010.18,.02,1,3,"%D",1,0)="This field allows look-up on the file by the patient's name."
^DD(9000010.18,.02,1,3,"DT")="2950901"
^DD(9000010.18,.02,3)="Enter the Patient to whom the procedure was done."
^DD(9000010.18,.02,21,0)="^^1^1^2950901^^^^"
^DD(9000010.18,.02,21,1,0)="This is the patient to whom the procedure was done during the encounter."
^DD(9000010.18,.02,23,0)="^^3^3^2950901^"
^DD(9000010.18,.02,23,1,0)="This is a pointer to the Patient/IHS file (#9000001) which is dinumed to"
^DD(9000010.18,.02,23,2,0)="the Patient File (#2).  This field is always stuffed by the application."
^DD(9000010.18,.02,23,3,0)="No editing is allowed."
^DD(9000010.18,.02,"DT")="2950901"
^DD(9000010.18,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVCPT(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.03,1,0)="^.1"
^DD(9000010.18,.03,1,1,0)="9000010.18^AD"
^DD(9000010.18,.03,1,1,1)="S ^AUPNVCPT(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.18,.03,1,1,2)="K ^AUPNVCPT(""AD"",$E(X,1,30),DA)"
^DD(9000010.18,.03,1,1,"%D",0)="^^4^4^2950901^"
^DD(9000010.18,.03,1,1,"%D",1,0)="This cross reference is used for searches by the visit pointer and"
^DD(9000010.18,.03,1,1,"%D",2,0)="internal entry number.  "
^DD(9000010.18,.03,1,1,"%D",3,0)=" "
^DD(9000010.18,.03,1,1,"%D",4,0)="    ""AD"",VISIT,DA"
^DD(9000010.18,.03,1,2,0)="9000010.18^AA^MUMPS"
^DD(9000010.18,.03,1,2,1)="Q:$P(^AUPNVCPT(DA,0),U,2)=""""  S ^AUPNVCPT(""AA"",$P(^AUPNVCPT(DA,0),U,2),+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.18,.03,1,2,2)="Q:$P(^AUPNVCPT(DA,0),U,2)=""""  K ^AUPNVCPT(""AA"",$P(^AUPNVCPT(DA,0),U,2),+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.18,.03,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.18,.03,1,2,"%D",1,0)="This cross reference is used for searches in sequence by paitent, CPT"
^DD(9000010.18,.03,1,2,"%D",2,0)="internal entry number, inverted visit date, and internal entry number."
^DD(9000010.18,.03,1,2,"%D",3,0)=" "
^DD(9000010.18,.03,1,2,"%D",4,0)="  ""AA"",PATIENT,CPT,VISIT,DA"
^DD(9000010.18,.03,1,3,0)="9000010.18^AV10^MUMPS"
^DD(9000010.18,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.18,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.18,.03,1,3,"%D",0)="^^2^2^2940131^"
^DD(9000010.18,.03,1,3,"%D",1,0)="This cross-reference adds and subtracts from the dependent entry count in"
^DD(9000010.18,.03,1,3,"%D",2,0)="the VISIT file."
^DD(9000010.18,.03,3)="Enter the visit date/time for the encounter where the procedure was done."
^DD(9000010.18,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.18,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVCPT(DA,0),U,2)"""
^DD(9000010.18,.03,21,0)="^^2^2^2950901^"
^DD(9000010.18,.03,21,1,0)="This is the encounter or occasion of service defined in the Visit file"
^DD(9000010.18,.03,21,2,0)="that represents when and where the procedure was done."
^DD(9000010.18,.03,23,0)="^^2^2^2950901^"
^DD(9000010.18,.03,23,1,0)="This is a pointer to the Visit File (#9000010).  This field is stuffed by"
^DD(9000010.18,.03,23,2,0)="the applications.  No editing is allowed."
^DD(9000010.18,.03,"DT")="2861111"
^DD(9000010.18,.04,0)="PROVIDER NARRATIVE^R*P9999999.27^AUTNPOV(^0;4^S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.04,3)="Enter the providers preferred text identifying the procedure done."
^DD(9000010.18,.04,12)="IHS OLD LOOKUP or VA Exact Match"
^DD(9000010.18,.04,12.1)="S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"")"
^DD(9000010.18,.04,21,0)="^^5^5^2950901^"
^DD(9000010.18,.04,21,1,0)="This is the narrative the provider uses to represent the procedure that"
^DD(9000010.18,.04,21,2,0)="was done.  The text may be different from the CPT file's procedure name"
^DD(9000010.18,.04,21,3,0)="text, but should not have a significantly different meaning. The CPT code"
^DD(9000010.18,.04,21,4,0)="in the CPT (.01) field should be the CPT code that ""most closely"""
^DD(9000010.18,.04,21,5,0)="represents the provider narrative for the procedure done."
^DD(9000010.18,.04,23,0)="^^4^4^2950901^"
^DD(9000010.18,.04,23,1,0)="This is a pointer to the Provider Narrative file (#9999999.27). Disk space"
^DD(9000010.18,.04,23,2,0)="is saved by storing ONE entry in the Provider Narrative file for each"
^DD(9000010.18,.04,23,3,0)="unique narrative. The provider narrative is often repetitive, especially"
^DD(9000010.18,.04,23,4,0)="if the data capture mode is automated (e.g., AICS Encounter Forms)."
^DD(9000010.18,.04,"AUDIT")="n"
^DD(9000010.18,.04,"DT")="2940427"
^DD(9000010.18,.05,0)="DIAGNOSIS^*P80'X^ICD9(^0;5^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.05,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.05,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.18,.05,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.05,21,0)="^.001^2^2^3040212^^^^"
^DD(9000010.18,.05,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.18,.05,21,2,0)="with the procedure performed."
^DD(9000010.18,.05,"DT")="3050907"
^DD(9000010.18,.07,0)="PRINCIPAL PROCEDURE^S^Y:YES;N:NO;^0;7^Q"
^DD(9000010.18,.07,3)="Enter 'Y' if this is the principal procedure done at the encounter."
^DD(9000010.18,.07,21,0)="^^2^2^2950901^"
^DD(9000010.18,.07,21,1,0)="This field identifies this procedure as the prinicipal procedure done to"
^DD(9000010.18,.07,21,2,0)="the patient at the encounter."
^DD(9000010.18,.07,"DT")="2940412"
^DD(9000010.18,.09,0)="DIAGNOSIS 2^*P80'X^ICD9(^0;9^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.09,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.09,12)="Dx cannot be an inactive code, and it must be appropriat"
^DD(9000010.18,.09,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.09,21,0)="^.001^2^2^3030908^^^^"
^DD(9000010.18,.09,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.18,.09,21,2,0)="with the procedure performed."
^DD(9000010.18,.09,"AUDIT")=""
^DD(9000010.18,.09,"DT")="3050907"
^DD(9000010.18,.1,0)="DIAGNOSIS 3^*P80'X^ICD9(^0;10^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.1,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.1,12)="Dx cannot be an inactive code, and it must be appropria"
^DD(9000010.18,.1,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.1,21,0)="^^2^2^3021227^"
^DD(9000010.18,.1,21,1,0)="This is the diagnosis, from the ICD Diagnosis file, associated"
^DD(9000010.18,.1,21,2,0)="with the procedure performed."
^DD(9000010.18,.1,"DT")="3050907"
^DD(9000010.18,.11,0)="DIAGNOSIS 4^*P80'X^ICD9(^0;11^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.11,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.11,12)="Dx cannot be an inactive code, and it must be appropriat"
^DD(9000010.18,.11,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.11,"DT")="3050907"
^DD(9000010.18,.12,0)="DIAGNOSIS 5^*P80'X^ICD9(^0;12^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.12,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.12,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.18,.12,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.12,"DT")="3050907"
^DD(9000010.18,.13,0)="DIAGNOSIS 6^*P80'X^ICD9(^0;13^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.13,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.13,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.18,.13,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.13,"DT")="3050907"
^DD(9000010.18,.14,0)="DIAGNOSIS 7^*P80'X^ICD9(^0;14^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.14,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.14,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.18,.14,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.14,"DT")="3050907"
^DD(9000010.18,.15,0)="DIAGNOSIS 8^*P80'X^ICD9(^0;15^D ICDEN^PXCECPT1 Q:X=""""  S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,.15,3)="Enter the ICD Diagnosis related to the procedure done."
^DD(9000010.18,.15,12)="Dx cannot be an inactive code, and it must be appropriate"
^DD(9000010.18,.15,12.1)="S DIC(""S"")=""D ^AUPNSICD"" S DIC(0)=$P(DIC(0),""E"")_$P(DIC(0),""E"",2)"
^DD(9000010.18,.15,"DT")="3050907"
^DD(9000010.18,.16,0)="QUANTITY^NJ2,0X^^0;16^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9000010.18,.16,3)="Enter a number between 1 and 999 indicating how many times this procedure was done."
^DD(9000010.18,.16,21,0)="^^2^2^2950901^^^"
^DD(9000010.18,.16,21,1,0)="This is the number of times this procedure was done to the patient during"
^DD(9000010.18,.16,21,2,0)="the encounter."
^DD(9000010.18,.16,"DT")="3050902"
^DD(9000010.18,.17,0)="ORDER REFERENCE^P100'^OR(100,^0;17^Q"
^DD(9000010.18,.17,21,0)="^.001^2^2^3040312^^^"
^DD(9000010.18,.17,21,1,0)="Pointer to the order in the Order file (#100) that ordered the"
^DD(9000010.18,.17,21,2,0)="procedure."
^DD(9000010.18,.17,23,0)="^^3^3^3040312^"
^DD(9000010.18,.17,23,1,0)="This field is created to provide a place for the surgery"
^DD(9000010.18,.17,23,2,0)="package to place the pointer to the entry in the order file"
^DD(9000010.18,.17,23,3,0)="(#100) that is associated with this procedure."
^DD(9000010.18,.17,"DT")="3040312"
^DD(9000010.18,.19,0)="DEPARTMENT CODE^F^^0;19^K:$L(X)>3!($L(X)<3) X"
^DD(9000010.18,.19,3)="Answer must be 3 characters in length."
^DD(9000010.18,.19,21,0)="^.001^2^2^3050620^^^^"
^DD(9000010.18,.19,21,1,0)="The 3-digit code that defines the service area associated with the"
^DD(9000010.18,.19,21,2,0)="charge by the sending application."
^DD(9000010.18,.19,23,0)="^.001^7^7^3050620^^^"
^DD(9000010.18,.19,23,1,0)="All CPT-based charges coming through PCE, which"
^DD(9000010.18,.19,23,2,0)="are not already associated with one of the"
^DD(9000010.18,.19,23,3,0)="Department Codes, are assigned a Department Code."
^DD(9000010.18,.19,23,4,0)="The Department Code assigned is the Stop Code"
^DD(9000010.18,.19,23,5,0)="associated (in the HOSPITAL LOCATION file, #44)"
^DD(9000010.18,.19,23,6,0)="with the Hospital Location of the patient"
^DD(9000010.18,.19,23,7,0)="visit/encounter."
^DD(9000010.18,.19,"DT")="3050425"
^DD(9000010.18,.2,0)="PFSS CHARGE ID^NJ8,0^^0;20^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9000010.18,.2,3)="Type a Number between 1 and 99999999, 0 Decimal Digits"
^DD(9000010.18,.2,21,0)="^.001^4^4^3050610^^^^"
^DD(9000010.18,.2,21,1,0)="A numeric identifier of not more than 8 digits that uniquely"
^DD(9000010.18,.2,21,2,0)="identifies the charge item in the external medical billing"
^DD(9000010.18,.2,21,3,0)="system.  This data item is referred to as the ""PFSS Charge"
^DD(9000010.18,.2,21,4,0)="Identifier"" within the PFSS project documentation."
^DD(9000010.18,.2,23,0)="^.001^3^3^3050610^^^"
^DD(9000010.18,.2,23,1,0)="The application providing the data to the PFSS CHARGE CACHE file"
^DD(9000010.18,.2,23,2,0)="uses $$GETCHGID^IBBAPI to obtain a unique identifying number for"
^DD(9000010.18,.2,23,3,0)="the original charge."
^DD(9000010.18,.2,"DT")="3050606"
^DD(9000010.18,1,0)="CPT MODIFIER^9000010.181PA^^1;0"
^DD(9000010.18,1,12)="The selected modifier must go with the CPT code."
^DD(9000010.18,1,12.1)="S DIC(""S"")=""N PXC,PXM,PXV,PXD S PXC=$P(^AUPNVCPT(D0,0),U),PXV=$P(^AUPNVCPT(D0,0),U,3),PXD=$P($G(^AUPNVSIT(PXV,0)),U) I $$MODP^ICPTMOD(PXC,Y,""""I"""",PXD)"""
^DD(9000010.18,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.18,1201,3)="Enter the date and time the procedure was done."
^DD(9000010.18,1201,21,0)="^^9^9^2960403^^^^"
^DD(9000010.18,1201,21,1,0)="This is the date and time the procedure was performed.  This date and time"
^DD(9000010.18,1201,21,2,0)="may be different from the visit data and time.  For example, for clinic"
^DD(9000010.18,1201,21,3,0)="appointment visits, the visit date and time is the date and time of the"
^DD(9000010.18,1201,21,4,0)="appointment, not the time the provder performed the clinical event."
^DD(9000010.18,1201,21,5,0)=" "
^DD(9000010.18,1201,21,6,0)="The date may be an imprecise date."
^DD(9000010.18,1201,21,7,0)=" "
^DD(9000010.18,1201,21,8,0)="Date and time may be within 30 days before or after the visit date, with the"
^DD(9000010.18,1201,21,9,0)="restriction the date cannot be a future date."
^DD(9000010.18,1201,23,0)="^^12^12^2960403^^^"
^DD(9000010.18,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the primary"
^DD(9000010.18,1201,23,2,0)="source of the event date and time.  The event date prompt defaults to the visit"
^DD(9000010.18,1201,23,3,0)="date and the time is entered to reflect the actual time the service was"
^DD(9000010.18,1201,23,4,0)="provided.  The event date does not have to be the visit date, but it must be"
^DD(9000010.18,1201,23,5,0)="within 30 days before or after the visit, and not be a future date."
^DD(9000010.18,1201,23,6,0)=" "
^DD(9000010.18,1201,23,7,0)="If a user wants to enter a historical procedure, the user should use the"
^DD(9000010.18,1201,23,8,0)="Historical Encounter entry action to document the historical measurement. "
^DD(9000010.18,1201,23,9,0)="Historical entries will not be eligible for credit."
^DD(9000010.18,1201,23,10,0)=" "
^DD(9000010.18,1201,23,11,0)="PCE data sources for automatic (scanning) data capture will be blank unless the"
^DD(9000010.18,1201,23,12,0)="event date and time are passed to PCE for filing."
^DD(9000010.18,1201,"DT")="2940216"
^DD(9000010.18,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.18,1202,3)="Enter the provider who ordered this procedure."
^DD(9000010.18,1202,21,0)="^^1^1^2960513^^"
^DD(9000010.18,1202,21,1,0)="This field can be used to document the provider who ordered the procedure."
^DD(9000010.18,1202,"DT")="2960513"
^DD(9000010.18,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.18,1204,3)="Enter the provider who performed the procedure."
^DD(9000010.18,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.18,1204,21,1,0)="This is the provider who performed the procedure."
^DD(9000010.18,1204,"DT")="2941219"
^DD(9000010.18,80101,0)="EDITED FLAG^S^1:EDITED;^801;1^Q"
^DD(9000010.18,80101,3)="Answer is automatically entered by PCE filing logic."
^DD(9000010.18,80101,21,0)="^^2^2^2950831^"
^DD(9000010.18,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original procedure"
^DD(9000010.18,80101,21,2,0)="data is being edited."
^DD(9000010.18,80101,23,0)="^^2^2^2950831^"
^DD(9000010.18,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.18,80101,23,2,0)="record to determine if the edited flag should be set to ""1""."
^DD(9000010.18,80101,"DT")="2940314"
^DD(9000010.18,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.18,80102,3)="Answer is automatically entered by the PCE filing logic."
^DD(9000010.18,80102,21,0)="^^3^3^2950901^^"
^DD(9000010.18,80102,21,1,0)="This field is populated automatically by the PCE filing logic.. The format of"
^DD(9000010.18,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.18,80102,21,3,0)="for Edit_"" ""_DUZ of the person who entered the data_"";""..."
^DD(9000010.18,80102,23,0)="^^14^14^2950901^^"
^DD(9000010.18,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE data source file.  If this"
^DD(9000010.18,80102,23,2,0)="is not passed, the PCE filing logic will not process the data."
^DD(9000010.18,80102,23,3,0)=" "
^DD(9000010.18,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source that"
^DD(9000010.18,80102,23,5,0)="added the data.  If the record existed previously, PCE filing logic compares"
^DD(9000010.18,80102,23,6,0)="the old and new records of information.  An ""E"" will be automatically used if"
^DD(9000010.18,80102,23,7,0)="the filing logic finds the data has been edited.  If ""E"" is used, then the"
^DD(9000010.18,80102,23,8,0)="Edited Flag field is automatically set to 1."
^DD(9000010.18,80102,23,9,0)=" "
^DD(9000010.18,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who performed"
^DD(9000010.18,80102,23,11,0)="the adding or editing of data for this record."
^DD(9000010.18,80102,23,12,0)=" "
^DD(9000010.18,80102,23,13,0)="Iterations of editing will be concatenated to the previous data source value,"
^DD(9000010.18,80102,23,14,0)="up to 85 characters."
^DD(9000010.18,80102,"DT")="2960509"
^DD(9000010.18,80201,0)="PROVIDER NARRATIVE CATEGORY^*P9999999.27^AUTNPOV(^802;1^S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.18,80201,12)="OLD LOOKUP"
^DD(9000010.18,80201,12.1)="S DIC(0)=$S($D(PXKLAYGO):""LOX"",$D(APCDALVR):""LO"",$D(ZTQUEUED):""LO"",1:""EMQLO"")"
^DD(9000010.18,80201,21,0)="^^4^4^2950901^^"
^DD(9000010.18,80201,21,1,0)="This field is the heading or category used to represent the provider "
^DD(9000010.18,80201,21,2,0)="narrative on the scanner form.  It may be useful for understanding how"
^DD(9000010.18,80201,21,3,0)="providers are grouping data for use on the encounter form, and may"
^DD(9000010.18,80201,21,4,0)="help determine clinical data base definitions in the future."
^DD(9000010.18,80201,23,0)="^^3^3^2950901^"
^DD(9000010.18,80201,23,1,0)="This field was added for use in the VA.  It is used to identify the common"
^DD(9000010.18,80201,23,2,0)="groupings of clinical terminology used by providers.  This field is only"
^DD(9000010.18,80201,23,3,0)="captured from automated data capture sources, such as AICS."
^DD(9000010.18,80201,"DT")="2940421"
^DD(9000010.18,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.18,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.18,81101,21,0)="^^2^2^2950901^^"
^DD(9000010.18,81101,21,1,0)="This is a commented related to the procedure performed.  The provider may enter"
^DD(9000010.18,81101,21,2,0)="this manually via the PCE User Interface."
^DD(9000010.18,81101,"DT")="2950711"
^DD(9000010.18,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.18,81201,"DT")="2960509"
^DD(9000010.18,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.18,81202,"DT")="2960509"
^DD(9000010.18,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.18,81203,"DT")="2960509"
^DD(9000010.18,"B","AUDIT TRAIL",80102)=""
^DD(9000010.18,"B","COMMENTS",81101)=""
^DD(9000010.18,"B","CPT",.01)=""
^DD(9000010.18,"B","CPT MODIFIER",1)=""
^DD(9000010.18,"B","DATA SOURCE",81203)=""
^DD(9000010.18,"B","DEPARTMENT CODE",.19)=""
^DD(9000010.18,"B","DIAGNOSIS",.05)=""
^DD(9000010.18,"B","DIAGNOSIS 2",.09)=""
^DD(9000010.18,"B","DIAGNOSIS 3",.1)=""
^DD(9000010.18,"B","DIAGNOSIS 4",.11)=""
^DD(9000010.18,"B","DIAGNOSIS 5",.12)=""
^DD(9000010.18,"B","DIAGNOSIS 6",.13)=""
^DD(9000010.18,"B","DIAGNOSIS 7",.14)=""
^DD(9000010.18,"B","DIAGNOSIS 8",.15)=""
^DD(9000010.18,"B","EDITED FLAG",80101)=""
^DD(9000010.18,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.18,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.18,"B","ORDER REFERENCE",.17)=""
^DD(9000010.18,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.18,"B","PACKAGE",81202)=""
^DD(9000010.18,"B","PATIENT NAME",.02)=""
^DD(9000010.18,"B","PFSS CHARGE ID",.2)=""
^DD(9000010.18,"B","PRINCIPAL PROCEDURE",.07)=""
^DD(9000010.18,"B","PROVIDER NARRATIVE",.04)=""
^DD(9000010.18,"B","PROVIDER NARRATIVE CATEGORY",80201)=""
^DD(9000010.18,"B","QUANTITY",.16)=""
^DD(9000010.18,"B","VERIFIED",81201)=""
^DD(9000010.18,"B","VISIT",.03)=""
^DD(9000010.18,"GL",0,1,.01)=""
^DD(9000010.18,"GL",0,2,.02)=""
^DD(9000010.18,"GL",0,3,.03)=""
^DD(9000010.18,"GL",0,4,.04)=""
^DD(9000010.18,"GL",0,5,.05)=""
^DD(9000010.18,"GL",0,7,.07)=""
^DD(9000010.18,"GL",0,9,.09)=""
^DD(9000010.18,"GL",0,10,.1)=""
^DD(9000010.18,"GL",0,11,.11)=""
^DD(9000010.18,"GL",0,12,.12)=""
^DD(9000010.18,"GL",0,13,.13)=""
^DD(9000010.18,"GL",0,14,.14)=""
^DD(9000010.18,"GL",0,15,.15)=""
^DD(9000010.18,"GL",0,16,.16)=""
^DD(9000010.18,"GL",0,17,.17)=""
^DD(9000010.18,"GL",0,19,.19)=""
^DD(9000010.18,"GL",0,20,.2)=""
^DD(9000010.18,"GL",1,0,1)=""
^DD(9000010.18,"GL",12,1,1201)=""
^DD(9000010.18,"GL",12,2,1202)=""
^DD(9000010.18,"GL",12,4,1204)=""
^DD(9000010.18,"GL",801,1,80101)=""
^DD(9000010.18,"GL",801,2,80102)=""
^DD(9000010.18,"GL",802,1,80201)=""
^DD(9000010.18,"GL",811,1,81101)=""
^DD(9000010.18,"GL",812,1,81201)=""
^DD(9000010.18,"GL",812,2,81202)=""
^DD(9000010.18,"GL",812,3,81203)=""
^DD(9000010.18,"IX",.01)=""
^DD(9000010.18,"IX",.02)=""
^DD(9000010.18,"IX",.03)=""
^DD(9000010.18,"RQ",.01)=""
^DD(9000010.18,"RQ",.02)=""
^DD(9000010.18,"RQ",.03)=""
^DD(9000010.18,"RQ",.04)=""
^DD(9000010.18,"SB",9000010.181,1)=""
^DD(9000010.181,0)="CPT MODIFIER SUB-FIELD^^.01^1"
^DD(9000010.181,0,"DT")="2991101"
^DD(9000010.181,0,"IX","B",9000010.181,.01)=""
^DD(9000010.181,0,"NM","CPT MODIFIER")=""
^DD(9000010.181,0,"UP")="9000010.18"
^DD(9000010.181,.01,0)="CPT MODIFIER^M*P81.3'^DIC(81.3,^0;1^S DIC(""S"")=""I $$CPTMOD^PXCPTAPI(D0,Y,0)>0"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.181,.01,1,0)="^.1"
^DD(9000010.181,.01,1,1,0)="9000010.181^B"
^DD(9000010.181,.01,1,1,1)="S ^AUPNVCPT(DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9000010.181,.01,1,1,2)="K ^AUPNVCPT(DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9000010.181,.01,3)="Select a modifier that is valid for this CPT code."
^DD(9000010.181,.01,4)=""
^DD(9000010.181,.01,12)="The modifier(s) you select must be valid for the CPT."
^DD(9000010.181,.01,12.1)="S DIC(""S"")=""I $$CPTMOD^PXCPTAPI(D0,Y,0)>0"""
^DD(9000010.181,.01,21,0)="^^2^2^2991201^^^^"
^DD(9000010.181,.01,21,1,0)="This multiple field points to the CPT MODIFIER file (#81.3)."
^DD(9000010.181,.01,21,2,0)="The modifier(s) you select must be valid for the CPT field (#.01)."
^DD(9000010.181,.01,"DT")="2991101"
^DD(9000010.181,"B","CPT MODIFIER",.01)=""
^DD(9000010.181,"GL",0,1,.01)=""
^DD(9000010.181,"IX",.01)=""
^DD(9000010.23,0)="FIELD^^81203^13"
^DD(9000010.23,0,"DDA")="N"
^DD(9000010.23,0,"DT")="2960513"
^DD(9000010.23,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.23,0,"ID",.03)="W ""   "" S AIHSY=Y,Y=$S($D(^AUPNVSIT(+$P(^(0),U,3),0))#2:$P(^(0),U,1),1:"""") X:Y ^DD(""DD"") W Y S Y=AIHSY K AIHSY W @(""$E(""_DIC_""Y,0),0)"")"
^DD(9000010.23,0,"IX","AA",9000010.23,.03)=""
^DD(9000010.23,0,"IX","AATOO",9000010.23,.02)=""
^DD(9000010.23,0,"IX","AATOO1",9000010.23,.01)=""
^DD(9000010.23,0,"IX","AD",9000010.23,.03)=""
^DD(9000010.23,0,"IX","AV10",9000010.23,.03)=""
^DD(9000010.23,0,"IX","B",9000010.23,.01)=""
^DD(9000010.23,0,"IX","C",9000010.23,.02)=""
^DD(9000010.23,0,"NM","V HEALTH FACTORS")=""
^DD(9000010.23,.01,0)="HEALTH FACTOR^R*P9999999.64'^AUTTHF(^0;1^S DIC(""S"")=""I $P(^(0),U,10)=""""F"""",$P(^(0),U,11)'=1"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.23,.01,1,0)="^.1^^-1"
^DD(9000010.23,.01,1,1,0)="9000010.23^B"
^DD(9000010.23,.01,1,1,1)="S ^AUPNVHF(""B"",$E(X,1,30),DA)="""""
^DD(9000010.23,.01,1,1,2)="K ^AUPNVHF(""B"",$E(X,1,30),DA)"
^DD(9000010.23,.01,1,3,0)="9000010.23^AATOO1^MUMPS"
^DD(9000010.23,.01,1,3,1)="I $P(^AUPNVHF(DA,0),U,2)]"""",$P(^(0),U,3)]"""" S ^AUPNVHF(""AA"",$P(^AUPNVHF(DA,0),U,2),X,(9999999-$P(^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),""."")),DA)="""""
^DD(9000010.23,.01,1,3,2)="I $P(^AUPNVHF(DA,0),U,2)]"""",$P(^(0),U,3)]"""" K ^AUPNVHF(""AA"",$P(^AUPNVHF(DA,0),U,2),X,(9999999-$P(^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),""."")),DA)"
^DD(9000010.23,.01,1,3,"%D",0)="^^5^5^2950901^^"
^DD(9000010.23,.01,1,3,"%D",1,0)="This cross reference is used for searches in sequence by patient, health"
^DD(9000010.23,.01,1,3,"%D",2,0)="factor internal entry number, inverted visit date, and internal entry"
^DD(9000010.23,.01,1,3,"%D",3,0)="number."
^DD(9000010.23,.01,1,3,"%D",4,0)=" "
^DD(9000010.23,.01,1,3,"%D",5,0)="   ""AA"",PATIENT,HEALTH FACTORS,VISIT,DA"
^DD(9000010.23,.01,1,3,"DT")="2930128"
^DD(9000010.23,.01,3)="Select the health factor identified at the visit."
^DD(9000010.23,.01,12)="Prevents selection of inactive and/or category health factor entries."
^DD(9000010.23,.01,12.1)="S DIC(""S"")=""I $P(^(0),U,10)=""""F"""",$P(^(0),U,11)'=1"""
^DD(9000010.23,.01,21,0)="^^3^3^2950901^"
^DD(9000010.23,.01,21,1,0)="This is the entry in the Health Factor file that most closely represents"
^DD(9000010.23,.01,21,2,0)="the patient's health factor status at the encounter for a given health"
^DD(9000010.23,.01,21,3,0)="factor category."
^DD(9000010.23,.01,22)="&"
^DD(9000010.23,.01,"AUDIT")=""
^DD(9000010.23,.01,"DT")="2951024"
^DD(9000010.23,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000010.23,.02,1,0)="^.1"
^DD(9000010.23,.02,1,2,0)="9000010.23^AATOO^MUMPS"
^DD(9000010.23,.02,1,2,1)="I $P(^AUPNVHF(DA,0),U,3)]"""" S ^AUPNVHF(""AA"",X,$P(^AUPNVHF(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),""."",1)),DA)="""""
^DD(9000010.23,.02,1,2,2)="I $P(^AUPNVHF(DA,0),U,3)]"""" K ^AUPNVHF(""AA"",X,$P(^AUPNVHF(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVHF(DA,0),U,3),0),""."",1)),DA)"
^DD(9000010.23,.02,1,2,"%D",0)="^^5^5^2950901^^"
^DD(9000010.23,.02,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, health"
^DD(9000010.23,.02,1,2,"%D",2,0)="factor internal entry number, inverted visit date, and internal entry"
^DD(9000010.23,.02,1,2,"%D",3,0)="number."
^DD(9000010.23,.02,1,2,"%D",4,0)=" "
^DD(9000010.23,.02,1,2,"%D",5,0)="   ""AA"",PATIENT,HEALTH FACTOR,VISIT,DA"
^DD(9000010.23,.02,1,2,"DT")="2930217"
^DD(9000010.23,.02,1,3,0)="9000010.23^C"
^DD(9000010.23,.02,1,3,1)="S ^AUPNVHF(""C"",$E(X,1,30),DA)="""""
^DD(9000010.23,.02,1,3,2)="K ^AUPNVHF(""C"",$E(X,1,30),DA)"
^DD(9000010.23,.02,1,3,"%D",0)="^^1^1^2950901^"
^DD(9000010.23,.02,1,3,"%D",1,0)="This cross reference allows look-up of health factors by patient."
^DD(9000010.23,.02,1,3,"DT")="2950901"
^DD(9000010.23,.02,"DT")="2950901"
^DD(9000010.23,.03,0)="VISIT^R*P9000010'I^AUPNVSIT(^0;3^S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVHF(DA,0),U,2)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000010.23,.03,1,0)="^.1"
^DD(9000010.23,.03,1,1,0)="9000010.23^AD"
^DD(9000010.23,.03,1,1,1)="S ^AUPNVHF(""AD"",$E(X,1,30),DA)="""""
^DD(9000010.23,.03,1,1,2)="K ^AUPNVHF(""AD"",$E(X,1,30),DA)"
^DD(9000010.23,.03,1,1,"%D",0)="^^4^4^2950901^"
^DD(9000010.23,.03,1,1,"%D",1,0)="This cross reference is used for searches by the visit pointer and"
^DD(9000010.23,.03,1,1,"%D",2,0)="internal entry number."
^DD(9000010.23,.03,1,1,"%D",3,0)=" "
^DD(9000010.23,.03,1,1,"%D",4,0)="   ""AD"",VISIT,DA"
^DD(9000010.23,.03,1,2,0)="9000010.23^AA^MUMPS"
^DD(9000010.23,.03,1,2,1)="Q:$P(^AUPNVHF(DA,0),U,2)=""""  S ^AUPNVHF(""AA"",$P(^AUPNVHF(DA,0),U,2),$P(^(0),U,1),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)="""""
^DD(9000010.23,.03,1,2,2)="Q:$P(^AUPNVHF(DA,0),U,2)=""""  K ^AUPNVHF(""AA"",$P(^AUPNVHF(DA,0),U,2),$P(^(0),U,1),(9999999-$P(+^AUPNVSIT(X,0),""."",1)),DA)"
^DD(9000010.23,.03,1,2,"%D",0)="^^4^4^2950901^"
^DD(9000010.23,.03,1,2,"%D",1,0)="This cross reference is used for searches in sequence by patient, health"
^DD(9000010.23,.03,1,2,"%D",2,0)="factory pointer, inverted visit date, internal entry number."
^DD(9000010.23,.03,1,2,"%D",3,0)=" "
^DD(9000010.23,.03,1,2,"%D",4,0)="   ""AA"",PATIENT,HEALTH FACTOR,VISIT,DA"
^DD(9000010.23,.03,1,2,"DT")="2930128"
^DD(9000010.23,.03,1,3,0)="9000010.23^AV10^MUMPS"
^DD(9000010.23,.03,1,3,1)="D ADD^AUPNVSIT"
^DD(9000010.23,.03,1,3,2)="D SUB^AUPNVSIT"
^DD(9000010.23,.03,1,3,"%D",0)="^^2^2^2940131^"
^DD(9000010.23,.03,1,3,"%D",1,0)="This cross-reference adds and subtracts from the dependent entry count in"
^DD(9000010.23,.03,1,3,"%D",2,0)="the VISIT file."
^DD(9000010.23,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000010.23,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNVHF(DA,0),U,2)"""
^DD(9000010.23,.04,0)="LEVEL/SEVERITY^S^M:MINIMAL;MO:MODERATE;H:HEAVY/SEVERE;^0;4^Q"
^DD(9000010.23,.04,"DT")="2930128"
^DD(9000010.23,1201,0)="EVENT DATE AND TIME^D^^12;1^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9000010.23,1201,3)="Enter the date and time the health factor was recorded."
^DD(9000010.23,1201,21,0)="^^9^9^2960403^^^^"
^DD(9000010.23,1201,21,1,0)="This is the date and time the health factor was recorded by the provider. "
^DD(9000010.23,1201,21,2,0)="This date and time may be different from the visit date and time.  For example,"
^DD(9000010.23,1201,21,3,0)="for clinic appointment visits, the visit date and time is the date and time of"
^DD(9000010.23,1201,21,4,0)="the appointment, not the time the provider performed the clinical event."
^DD(9000010.23,1201,21,5,0)=" "
^DD(9000010.23,1201,21,6,0)="The date may be an imprecise date."
^DD(9000010.23,1201,21,7,0)=" "
^DD(9000010.23,1201,21,8,0)="Date and time may be within 30 days before or after the visit date, with the"
^DD(9000010.23,1201,21,9,0)="restriction the date cannot be a future date."
^DD(9000010.23,1201,23,0)="^^13^13^2960403^^^^"
^DD(9000010.23,1201,23,1,0)="The PCE User Interface, which allows manual entry of data, will be the prmary"
^DD(9000010.23,1201,23,2,0)="source of the event date and time.  The event date prompt defaults to the visit"
^DD(9000010.23,1201,23,3,0)="date and the time is entered to reflect the actual time the exam was given. "
^DD(9000010.23,1201,23,4,0)="The event date does not have to be the visit date, but it must be within 30"
^DD(9000010.23,1201,23,5,0)="days before or after the visit, and not be a future date."
^DD(9000010.23,1201,23,6,0)=" "
^DD(9000010.23,1201,23,7,0)="If a user wants to enter an historical measurement, the user should use the"
^DD(9000010.23,1201,23,8,0)="Historical Encounter entry action to document the historical measurement. "
^DD(9000010.23,1201,23,9,0)="Historical entries will not be eligible for credit."
^DD(9000010.23,1201,23,10,0)=""
^DD(9000010.23,1201,23,11,0)="PCE data sources for automatic (scanning) data capture will be blank unless the"
^DD(9000010.23,1201,23,12,0)="event date and time are passed to PCE for filing. "
^DD(9000010.23,1201,23,13,0)=""
^DD(9000010.23,1201,"DT")="2960403"
^DD(9000010.23,1202,0)="ORDERING PROVIDER^P200'^VA(200,^12;2^Q"
^DD(9000010.23,1202,3)="Enter the provider who ordered this health factor recorded."
^DD(9000010.23,1202,21,0)="^^2^2^2960513^"
^DD(9000010.23,1202,21,1,0)="This field can be used to document the provider who ordered the health"
^DD(9000010.23,1202,21,2,0)="factor recorded."
^DD(9000010.23,1202,"DT")="2960513"
^DD(9000010.23,1204,0)="ENCOUNTER PROVIDER^P200'^VA(200,^12;4^Q"
^DD(9000010.23,1204,3)="Enter the provider who recorded the health factor."
^DD(9000010.23,1204,21,0)="^^1^1^2960513^^^^"
^DD(9000010.23,1204,21,1,0)="This is the provider who recorded the health factor."
^DD(9000010.23,1204,"DT")="2941219"
^DD(9000010.23,80101,0)="EDITED^S^1:EDITED;^801;1^Q"
^DD(9000010.23,80101,3)="Answer is automatically entered by PCE filing logic."
^DD(9000010.23,80101,21,0)="^^2^2^2950831^"
^DD(9000010.23,80101,21,1,0)="This field is automatically set to 1 if PCE detects that any original health"
^DD(9000010.23,80101,21,2,0)="factor data is being edited."
^DD(9000010.23,80101,23,0)="^^2^2^2950831^"
^DD(9000010.23,80101,23,1,0)="PCE filing logic automatically compares the before and after pictures of the"
^DD(9000010.23,80101,23,2,0)="record to determine if the edited flag should be set to ""1""."
^DD(9000010.23,80101,"DT")="2940401"
^DD(9000010.23,80102,0)="AUDIT TRAIL^F^^801;2^K:$L(X)>85!($L(X)<2) X"
^DD(9000010.23,80102,3)="Answer is automatically entered by the PCE filing logic."
^DD(9000010.23,80102,21,0)="^^3^3^2950901^^"
^DD(9000010.23,80102,21,1,0)="This field is populated automatically by the PCE filing logic.  The format of"
^DD(9000010.23,80102,21,2,0)="the field is as follows:  Pointer to PCE data source file_""-""_A for Add or E"
^DD(9000010.23,80102,21,3,0)="for Edit_"" ""_DUZ of the person who entered the data_"";""..."
^DD(9000010.23,80102,23,0)="^^14^14^2950901^^"
^DD(9000010.23,80102,23,1,0)="The PCE filing logic requires a pointer to the PCE data source file.  If this"
^DD(9000010.23,80102,23,2,0)="is not passed, then PCE filing logic will not process the data."
^DD(9000010.23,80102,23,3,0)=" "
^DD(9000010.23,80102,23,4,0)="If the record is a new record, then an ""A"" is used to specify the source that"
^DD(9000010.23,80102,23,5,0)="added the data.  If the record existed previously, PCE filing logic compares"
^DD(9000010.23,80102,23,6,0)="the old and new records of information.  An ""E"" will automatically be used if"
^DD(9000010.23,80102,23,7,0)="the filing logic finds the data has been edited.  If ""E"" is used, then the"
^DD(9000010.23,80102,23,8,0)="Edited Flag field is automatically set to 1."
^DD(9000010.23,80102,23,9,0)=" "
^DD(9000010.23,80102,23,10,0)="The DUZ is stored in its internal format to represent the user who performed"
^DD(9000010.23,80102,23,11,0)="the adding or editing of data for this record."
^DD(9000010.23,80102,23,12,0)=" "
^DD(9000010.23,80102,23,13,0)="Iterations of editing will be concatenated to the previous data source value,"
^DD(9000010.23,80102,23,14,0)="up to 85 characters."
^DD(9000010.23,80102,"DT")="2960509"
^DD(9000010.23,81101,0)="COMMENTS^F^^811;1^K:$L(X)>245!($L(X)<1) X"
^DD(9000010.23,81101,3)="Enter a comment 1-245 characters in length."
^DD(9000010.23,81101,21,0)="^^2^2^2950901^^"
^DD(9000010.23,81101,21,1,0)="This is a comment related to the patient's health factor.  The provider may"
^DD(9000010.23,81101,21,2,0)="enter this manually via the PCE User Interface."
^DD(9000010.23,81101,"DT")="2950711"
^DD(9000010.23,81201,0)="VERIFIED^SI^1:ELECTRONICALLY SIGNED;2:VERIFIED BY PACKAGE;^812;1^Q"
^DD(9000010.23,81201,"DT")="2960509"
^DD(9000010.23,81202,0)="PACKAGE^P9.4'I^DIC(9.4,^812;2^Q"
^DD(9000010.23,81202,"DT")="2960509"
^DD(9000010.23,81203,0)="DATA SOURCE^P839.7'I^PX(839.7,^812;3^Q"
^DD(9000010.23,81203,"DT")="2960509"
^DD(9000010.23,"B","AUDIT TRAIL",80102)=""
^DD(9000010.23,"B","COMMENTS",81101)=""
^DD(9000010.23,"B","DATA SOURCE",81203)=""
^DD(9000010.23,"B","EDITED",80101)=""
^DD(9000010.23,"B","ENCOUNTER PROVIDER",1204)=""
^DD(9000010.23,"B","EVENT DATE AND TIME",1201)=""
^DD(9000010.23,"B","HEALTH FACTOR",.01)=""
^DD(9000010.23,"B","LEVEL/SEVERITY",.04)=""
^DD(9000010.23,"B","ORDERING PROVIDER",1202)=""
^DD(9000010.23,"B","PACKAGE",81202)=""
^DD(9000010.23,"B","PATIENT NAME",.02)=""
^DD(9000010.23,"B","VERIFIED",81201)=""
^DD(9000010.23,"B","VISIT",.03)=""
^DD(9000010.23,"GL",0,1,.01)=""
^DD(9000010.23,"GL",0,2,.02)=""
^DD(9000010.23,"GL",0,3,.03)=""
^DD(9000010.23,"GL",0,4,.04)=""
^DD(9000010.23,"GL",12,1,1201)=""
^DD(9000010.23,"GL",12,2,1202)=""
^DD(9000010.23,"GL",12,4,1204)=""
^DD(9000010.23,"GL",801,1,80101)=""
^DD(9000010.23,"GL",801,2,80102)=""
^DD(9000010.23,"GL",811,1,81101)=""
^DD(9000010.23,"GL",812,1,81201)=""
^DD(9000010.23,"GL",812,2,81202)=""
^DD(9000010.23,"GL",812,3,81203)=""
^DD(9000010.23,"IX",.01)=""
^DD(9000010.23,"IX",.02)=""
^DD(9000010.23,"IX",.03)=""
^DD(9000010.23,"RQ",.01)=""
^DD(9000010.23,"RQ",.02)=""
^DD(9000010.23,"RQ",.03)=""
^DD(9000011,0)="FIELD^^1101^27"
^DD(9000011,0,"DDA")="N"
^DD(9000011,0,"DT")="2940412"
^DD(9000011,0,"ID",.02)="W ""   "",$S($D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),@(""$E(""_DIC_""Y,0),0)"")"
^DD(9000011,0,"ID",.06)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DIC(4,+$P(^(0),U,6),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(4,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(9000011,0,"ID",.07)="W ""   "",$P(^(0),U,7)"
^DD(9000011,0,"IX","AA",9000011,.07)=""
^DD(9000011,0,"IX","AATOO",9000011,.02)=""
^DD(9000011,0,"IX","AATOO2",9000011,.06)=""
^DD(9000011,0,"IX","AC",9000011,.02)=""
^DD(9000011,0,"IX","ACTIVE",9000011,.12)=""
^DD(9000011,0,"IX","ACTIVE1",9000011,.02)=""
^DD(9000011,0,"IX","AV1",9000011,.06)=""
^DD(9000011,0,"IX","AV9",9000011,.01)=""
^DD(9000011,0,"IX","B",9000011,.01)=""
^DD(9000011,0,"IX","C",9000011,1.01)=""
^DD(9000011,0,"IX","MODIFIED",9000011,.03)=""
^DD(9000011,0,"NM","PROBLEM")=""
^DD(9000011,0,"PT",125.8,.01)=""
^DD(9000011,0,"PT",8925.9,.02)=""
^DD(9000011,0,"PT",9000010.07,.16)=""
^DD(9000011,0,"SP",.06)=""
^DD(9000011,0,"SP",.07)=""
^DD(9000011,0,"VR")="2.0"
^DD(9000011,.01,0)="DIAGNOSIS^R*P80'^ICD9(^0;1^S DIC(""S"")=""I 1 Q:$G(DUZ(""""AG""""))=""""V""""  I $E(^(0))'=""""E"""",$P(^(0),U,9)="""""""" Q:$P(^(0),U,10)=""""""""  I $P(^(0),U,10)=AUPNSEX"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000011,.01,1,0)="^.1"
^DD(9000011,.01,1,1,0)="9000011^B"
^DD(9000011,.01,1,1,1)="S ^AUPNPROB(""B"",$E(X,1,30),DA)="""""
^DD(9000011,.01,1,1,2)="K ^AUPNPROB(""B"",$E(X,1,30),DA)"
^DD(9000011,.01,1,2,0)="9000011^AV9^MUMPS"
^DD(9000011,.01,1,2,1)="S:$D(APCDLOOK) DIC(""DR"")="""""
^DD(9000011,.01,1,2,2)="Q"
^DD(9000011,.01,1,2,"%D",0)="^^2^2^2940110^"
^DD(9000011,.01,1,2,"%D",1,0)="Controls the behaviour of the input templates used by IHS to populate"
^DD(9000011,.01,1,2,"%D",2,0)="and maintain this file."
^DD(9000011,.01,1,2,"DT")="2940110"
^DD(9000011,.01,3)="Enter the ICD Code for this problem."
^DD(9000011,.01,12)="Cannot be an E code or an inactive code and must be appropriate for the sex of the Patient."
^DD(9000011,.01,12.1)="S DIC(""S"")=""I 1 Q:$G(DUZ(""""AG""""))=""""V""""  I $E(^(0))'=""""E"""",$P(^(0),U,9)="""""""" Q:$P(^(0),U,10)=""""""""  I $P(^(0),U,10)=AUPNSEX"""
^DD(9000011,.01,21,0)="^^2^2^2930908^^^^"
^DD(9000011,.01,21,1,0)="This is the ICD coded diagnosis of the narrative entered describing"
^DD(9000011,.01,21,2,0)="this problem."
^DD(9000011,.01,23,0)="^^5^5^2930908^^"
^DD(9000011,.01,23,1,0)="The DHCP Problem List application derives its entries from a lookup"
^DD(9000011,.01,23,2,0)="into the Clinical Lexicon Utility rather than the ICD Diagnosis file."
^DD(9000011,.01,23,3,0)="If the term selected from the CLU is not coded to ICD, then code 799.99"
^DD(9000011,.01,23,4,0)="""Other Unknown or Unspecified Cause, NEC"" will be used here in order"
^DD(9000011,.01,23,5,0)="to be able to create a new entry.  This field may later be edited."
^DD(9000011,.01,"DT")="2940412"
^DD(9000011,.02,0)="PATIENT NAME^RP9000001'I^AUPNPAT(^0;2^Q"
^DD(9000011,.02,1,0)="^.1"
^DD(9000011,.02,1,1,0)="9000011^AC"
^DD(9000011,.02,1,1,1)="S ^AUPNPROB(""AC"",$E(X,1,30),DA)="""""
^DD(9000011,.02,1,1,2)="K ^AUPNPROB(""AC"",$E(X,1,30),DA)"
^DD(9000011,.02,1,2,0)="9000011^AATOO^MUMPS"
^DD(9000011,.02,1,2,1)="I $P(^AUPNPROB(DA,0),U,6)]"""",$P(^(0),U,7)]"""" S X1=$P($P(^(0),U,7),"".""),X2=$P($P(^(0),U,7),""."",2),^AUPNPROB(""AA"",X,$P(^(0),U,6),"" ""_$E(""000"",1,4-$L(X1)-1)_X1_"".""_X2_$E(""00"",1,3-$L(X2)-1),DA)="""" K X1,X2"
^DD(9000011,.02,1,2,2)="I $P(^AUPNPROB(DA,0),U,6)]"""",$P(^(0),U,7)]"""" S X1=$P($P(^(0),U,7),"".""),X2=$P($P(^(0),U,7),""."",2) K ^AUPNPROB(""AA"",X,$P(^(0),U,6),"" ""_$E(""000"",1,4-$L(X1)-1)_X1_"".""_X2_$E(""00"",1,3-$L(X2)-1),DA),X1,X2"
^DD(9000011,.02,1,2,"%D",0)="^^3^3^2930825^"
^DD(9000011,.02,1,2,"%D",1,0)="Allows problem retrieval by patient, facility, and problem number (Nmbr);"
^DD(9000011,.02,1,2,"%D",2,0)="the number is used as a string in "" 000.00"" format to assure a consistent"
^DD(9000011,.02,1,2,"%D",3,0)="ordering."
^DD(9000011,.02,1,3,0)="9000011^ACTIVE1^MUMPS"
^DD(9000011,.02,1,3,1)="S:$L($P(^AUPNPROB(DA,0),U,12)) ^AUPNPROB(""ACTIVE"",X,$P(^(0),U,12),DA)="""""
^DD(9000011,.02,1,3,2)="K:$L($P(^AUPNPROB(DA,0),U,12)) ^AUPNPROB(""ACTIVE"",X,$P(^(0),U,12),DA)"
^DD(9000011,.02,1,3,"%D",0)="^^1^1^2930706^^^"
^DD(9000011,.02,1,3,"%D",1,0)="Allows problem retrieval by patient and status, in order of entry."
^DD(9000011,.02,1,3,"DT")="2930706"
^DD(9000011,.02,3)="Enter the name of the patient for whom this problem has been observed."
^DD(9000011,.02,21,0)="^^1^1^2930908^^^^"
^DD(9000011,.02,21,1,0)="This is the patient for whom this problem has been observed and recorded."
^DD(9000011,.02,"DT")="2930909"
^DD(9000011,.03,0)="DATE LAST MODIFIED^RD^^0;3^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2000000>X) X"
^DD(9000011,.03,1,0)="^.1"
^DD(9000011,.03,1,1,0)="9000011^MODIFIED^MUMPS"
^DD(9000011,.03,1,1,1)="K ^AUPNPROB(""MODIFIED"",$P(^AUPNPROB(DA,0),""^"",2)) D NOW^%DTC S ^AUPNPROB(""MODIFIED"",$P(^AUPNPROB(DA,0),""^"",2),%)="""""
^DD(9000011,.03,1,1,2)="Q"
^DD(9000011,.03,1,1,"%D",0)="^^2^2^2990319^^^^"
^DD(9000011,.03,1,1,"%D",1,0)="This Index will keep track of the last time this Patients problem list was "
^DD(9000011,.03,1,1,"%D",2,0)="modified.  ^AUPNPROB(""MODIFIED""),PATIENT,DATE"
^DD(9000011,.03,1,1,"DT")="2990319"
^DD(9000011,.03,3)="TYPE A DATE BETWEEN 1900 AND TODAY"
^DD(9000011,.03,10)="018/PRCOND"
^DD(9000011,.03,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000011,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNPROB(DA,0),U,2)"""
^DD(9000011,.03,21,0)="^^1^1^2990318^^^^"
^DD(9000011,.03,21,1,0)="This is the last date/time this problem was changed."
^DD(9000011,.03,"DT")="2990319"
^DD(9000011,.04,0)="CLASS^S^P:PERSONAL HISTORY;F:FAMILY HISTORY;^0;4^Q"
^DD(9000011,.04,3)="If this problem is historical, indicate if it is Personal or Family history."
^DD(9000011,.04,21,0)="^^2^2^2930726^"
^DD(9000011,.04,21,1,0)="This flag is used by the IHS Problem List to indicate if this problem"
^DD(9000011,.04,21,2,0)="is documented for historical purposes."
^DD(9000011,.04,23,0)="^^2^2^2930726^"
^DD(9000011,.04,23,1,0)="VA sites using the DHCP Problem List application will not be prompted"
^DD(9000011,.04,23,2,0)="for this information."
^DD(9000011,.04,"DT")="2871007"
^DD(9000011,.05,0)="PROVIDER NARRATIVE^R*P9999999.27^AUTNPOV(^0;5^S DIC(0)=$S($D(APCDALVR):""LO"",1:""EMQLO"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000011,.05,3)="Enter a description of this patient's problem."
^DD(9000011,.05,12)="OLD LOOKUP"
^DD(9000011,.05,12.1)="S DIC(0)=$S($D(APCDALVR):""LO"",1:""EMQLO"")"
^DD(9000011,.05,21,0)="^^2^2^2930406^^"
^DD(9000011,.05,21,1,0)="This contains the actual text used by the provider to describe this"
^DD(9000011,.05,21,2,0)="problem."
^DD(9000011,.05,"DT")="2881128"
^DD(9000011,.06,0)="FACILITY^RP9999999.06'I^AUTTLOC(^0;6^Q"
^DD(9000011,.06,1,0)="^.1"
^DD(9000011,.06,1,1,0)="9000011^AV1^MUMPS"
^DD(9000011,.06,1,1,1)="Q"
^DD(9000011,.06,1,1,2)="Q"
^DD(9000011,.06,1,1,"%D",0)="^^1^1^2940110^"
^DD(9000011,.06,1,1,"%D",1,0)="No longer in use."
^DD(9000011,.06,1,1,"DT")="2940110"
^DD(9000011,.06,1,2,0)="9000011^AATOO2^MUMPS"
^DD(9000011,.06,1,2,1)="I $P(^AUPNPROB(DA,0),U,2)]"""",$P(^(0),U,7)]"""" S X1=$P($P(^(0),U,7),"".""),X2=$P($P(^(0),U,7),""."",2),^AUPNPROB(""AA"",$P(^(0),U,2),X,"" ""_$E(""000"",1,4-$L(X1)-1)_X1_"".""_X2_$E(""00"",1,3-$L(X2)-1),DA)="""" K X1,X2"
^DD(9000011,.06,1,2,2)="I $P(^AUPNPROB(DA,0),U,2)]"""",$P(^(0),U,7)]"""" S X1=$P($P(^(0),U,7),"".""),X2=$P($P(^(0),U,7),""."",2) K ^AUPNPROB(""AA"",$P(^(0),U,2),X,"" ""_$E(""000"",1,4-$L(X1)-1)_X1_"".""_X2_$E(""00"",1,3-$L(X2)-1),DA),X1,X2"
^DD(9000011,.06,1,2,"%D",0)="^^3^3^2930825^"
^DD(9000011,.06,1,2,"%D",1,0)="Allows problem retrieval by patient, facility, and problem number (Nmbr);"
^DD(9000011,.06,1,2,"%D",2,0)="the number is used as a string in "" 000.00"" format to assure a consistent"
^DD(9000011,.06,1,2,"%D",3,0)="ordering."
^DD(9000011,.06,3)="Enter the location at which this problem was first observed and recorded."
^DD(9000011,.06,21,0)="^^2^2^2930908^^^^"
^DD(9000011,.06,21,1,0)="This is the facility at which this problem was originally observed and"
^DD(9000011,.06,21,2,0)="documented."
^DD(9000011,.06,"DT")="2940110"
^DD(9000011,.07,0)="NMBR^RNJ6,2X^^0;7^K:+X'=X!(X>999.99)!(X<1)!(X?.E1"".""3N.N) X Q:'$D(X)  K:$D(^AUPNPROB(""AA"",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6),"" ""_$E(""000"",1,4-$L($P(X,""."",1))-1)_$P(X,""."",1)_"".""_$P(X,""."",2)_$E(""00"",1,3-$L($P(X,""."",2))-1))) X"
^DD(9000011,.07,1,0)="^.1"
^DD(9000011,.07,1,1,0)="9000011^AA^MUMPS"
^DD(9000011,.07,1,1,1)="S ^AUPNPROB(""AA"",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6),"" ""_$E(""000"",1,4-$L($P(X,""."",1))-1)_$P(X,""."",1)_"".""_$P(X,""."",2)_$E(""00"",1,3-$L($P(X,""."",2))-1),DA)="""""
^DD(9000011,.07,1,1,2)="K ^AUPNPROB(""AA"",$P(^AUPNPROB(DA,0),U,2),$P(^(0),U,6),"" ""_$E(""000"",1,4-$L($P(X,""."",1))-1)_$P(X,""."",1)_"".""_$P(X,""."",2)_$E(""00"",1,3-$L($P(X,""."",2))-1),DA)"
^DD(9000011,.07,1,1,"%D",0)="^^3^3^2930825^"
^DD(9000011,.07,1,1,"%D",1,0)="Allows problem retrieval by patient, facility, and problem number (Nmbr);"
^DD(9000011,.07,1,1,"%D",2,0)="the number is used as a string in "" 000.00"" format to assure a consistent"
^DD(9000011,.07,1,1,"%D",3,0)="ordering."
^DD(9000011,.07,3)="TYPE A NUMBER BETWEEN 1 AND 999.99"
^DD(9000011,.07,10)="018/PRNUMB"
^DD(9000011,.07,21,0)="^^4^4^2930726^"
^DD(9000011,.07,21,1,0)="This is a number which, together with the Patient (#.02) and Facility (#.06)"
^DD(9000011,.07,21,2,0)="fields, serves as a unique identifier for this problem.  Up to 2 decimal"
^DD(9000011,.07,21,3,0)="places may be used to indicate that a problem is a result of, or related"
^DD(9000011,.07,21,4,0)="to, another problem."
^DD(9000011,.07,"DT")="2930726"
^DD(9000011,.08,0)="DATE ENTERED^RDI^^0;8^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(2000000>X) X"
^DD(9000011,.08,3)="TYPE A DATE BETWEEN 1900 AND TODAY"
^DD(9000011,.08,10)="018/PREDAT"
^DD(9000011,.08,12)="VISIT MUST BE FOR CURRENT PATIENT"
^DD(9000011,.08,12.1)="S DIC(""S"")=""I $P(^(0),U,5)=$P(^AUPNPROB(DA,0),U,2)"""
^DD(9000011,.08,21,0)="^^1^1^2940111^^^"
^DD(9000011,.08,21,1,0)="This is the date this problem was entered into this file."
^DD(9000011,.08,"DT")="2880307"
^DD(9000011,.12,0)="STATUS^RS^A:ACTIVE;I:INACTIVE;^0;12^Q"
^DD(9000011,.12,1,0)="^.1"
^DD(9000011,.12,1,1,0)="9000011^ACTIVE^MUMPS"
^DD(9000011,.12,1,1,1)="S:$P(^AUPNPROB(DA,0),U,2) ^AUPNPROB(""ACTIVE"",+$P(^(0),U,2),X,DA)="""""
^DD(9000011,.12,1,1,2)="K ^AUPNPROB(""ACTIVE"",+$P(^AUPNPROB(DA,0),U,2),X,DA)"
^DD(9000011,.12,1,1,"%D",0)="^^1^1^2930706^^"
^DD(9000011,.12,1,1,"%D",1,0)="Allows problem retrieval by patient and status, in order of entry."
^DD(9000011,.12,1,1,"DT")="2930706"
^DD(9000011,.12,3)="Enter the current status of this problem, active or inactive."
^DD(9000011,.12,10)="018/PRSTAT"
^DD(9000011,.12,21,0)="^^3^3^2930406^^"
^DD(9000011,.12,21,1,0)="This is the current activity status of this problem, whether active or"
^DD(9000011,.12,21,2,0)="inactive; if more detail is needed, a notation may be filed with this"
^DD(9000011,.12,21,3,0)="problem."
^DD(9000011,.12,"DT")="2930706"
^DD(9000011,.13,0)="DATE OF ONSET^D^^0;13^S %DT=""E"" D ^%DT S X=Y K:DT<X!(1800000>X) X"
^DD(9000011,.13,3)="TYPE A DATE BETWEEN 1880 AND TODAY"
^DD(9000011,.13,21,0)="^^1^1^2930726^^^^"
^DD(9000011,.13,21,1,0)="This is the approximate date this problem appeared, as precisely as known."
^DD(9000011,.13,"DT")="2930613"
^DD(9000011,1.01,0)="PROBLEM^P757.01'^LEX(757.01,^1;1^Q"
^DD(9000011,1.01,1,0)="^.1"
^DD(9000011,1.01,1,1,0)="9000011^C"
^DD(9000011,1.01,1,1,1)="S ^AUPNPROB(""C"",$E(X,1,30),DA)="""""
^DD(9000011,1.01,1,1,2)="K ^AUPNPROB(""C"",$E(X,1,30),DA)"
^DD(9000011,1.01,1,1,"DT")="2930728"
^DD(9000011,1.01,3)="Enter the problem observed for this patient."
^DD(9000011,1.01,21,0)="^^2^2^2961002^^^"
^DD(9000011,1.01,21,1,0)="This field contains the standardized text stored in the Clinical Lexicon"
^DD(9000011,1.01,21,2,0)="for this problem."
^DD(9000011,1.01,"DT")="2930728"
^DD(9000011,1.02,0)="CONDITION^S^T:TRANSCRIBED;P:PERMANENT;H:HIDDEN;^1;2^Q"
^DD(9000011,1.02,21,0)="^^3^3^2930908^^^"
^DD(9000011,1.02,21,1,0)="This reflects the current condition of this entry, whether transcribed"
^DD(9000011,1.02,21,2,0)="by a clerk from the paper chart, entered or verified by a provider,"
^DD(9000011,1.02,21,3,0)="or marked as removed from the patient's list."
^DD(9000011,1.02,23,0)="^^6^6^2930908^^"
^DD(9000011,1.02,23,1,0)="This flag is used internally by the DHCP Problem List; entries having"
^DD(9000011,1.02,23,2,0)="an H in this field have been ""deleted"" and are maintained for historical"
^DD(9000011,1.02,23,3,0)="use but are generally ignored.  If the parameter ""Verify Transcribed"
^DD(9000011,1.02,23,4,0)="Entries"" is turned on in File #125.99, entries made by a clerk will have"
^DD(9000011,1.02,23,5,0)="a T here, and a flag will appear on the clinician's display of the list."
^DD(9000011,1.02,23,6,0)="P entries have been entered or verified by a provider."
^DD(9000011,1.02,"DT")="2930726"
^DD(9000011,1.03,0)="ENTERED BY^P200'^VA(200,^1;3^Q"
^DD(9000011,1.03,3)="Enter the name of the current user."
^DD(9000011,1.03,21,0)="^^1^1^2930726^"
^DD(9000011,1.03,21,1,0)="This is the user who actually entered this problem into this file."
^DD(9000011,1.03,"DT")="2930726"
^DD(9000011,1.04,0)="RECORDING PROVIDER^P200'^VA(200,^1;4^Q"
^DD(9000011,1.04,3)="Enter the name of the provider who first recorded this data."
^DD(9000011,1.04,21,0)="^^2^2^2940324^^"
^DD(9000011,1.04,21,1,0)="This is the provider who first recorded this problem, either on the"
^DD(9000011,1.04,21,2,0)="paper chart or online."
^DD(9000011,1.04,"DT")="2930726"
^DD(9000011,1.05,0)="RESPONSIBLE PROVIDER^P200'^VA(200,^1;5^Q"
^DD(9000011,1.05,3)="Enter the name of the local provider treating this problem."
^DD(9000011,1.05,21,0)="^^1^1^2930726^"
^DD(9000011,1.05,21,1,0)="This is the provider currently responsible for treating this problem."
^DD(9000011,1.05,"DT")="2930726"
^DD(9000011,1.06,0)="SERVICE^P49'^DIC(49,^1;6^Q"
^DD(9000011,1.06,3)="Enter the service to be associated with this problem."
^DD(9000011,1.06,21,0)="^^5^5^2931223^^^"
^DD(9000011,1.06,21,1,0)="This is the service primarily involved in the treatment of this problem;"
^DD(9000011,1.06,21,2,0)="the DHCP Problem List defaults this field to the service defined in"
^DD(9000011,1.06,21,3,0)="File #200 for the Recording Provider of this problem, upon entry of the"
^DD(9000011,1.06,21,4,0)="problem.  It may later be used to categorize problems for screening and"
^DD(9000011,1.06,21,5,0)="sorting."
^DD(9000011,1.06,"DT")="2930726"
^DD(9000011,1.07,0)="DATE RESOLVED^D^^1;7^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(9000011,1.07,3)="Enter the date this problem became resolved or inactive, as precisely as known."
^DD(9000011,1.07,21,0)="^^2^2^2930726^"
^DD(9000011,1.07,21,1,0)="This is the date this problem was resolved or inactivated, as precisely"
^DD(9000011,1.07,21,2,0)="as known."
^DD(9000011,1.07,"DT")="2930726"
^DD(9000011,1.08,0)="CLINIC^*P44'^SC(^1;8^S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9000011,1.08,3)="Enter the clinic in which the patient is being seen for this problem."
^DD(9000011,1.08,12)="Only clinics are allowed here."
^DD(9000011,1.08,12.1)="S DIC(""S"")=""I $P(^(0),U,3)=""""C"""""""
^DD(9000011,1.08,21,0)="^^3^3^2931223^"
^DD(9000011,1.08,21,1,0)="This is the clinic in which this patient is being seen for this problem."
^DD(9000011,1.08,21,2,0)="The problem list may be screened based on this value, to change one's"
^DD(9000011,1.08,21,3,0)="view of the list."
^DD(9000011,1.08,"DT")="2940412"
^DD(9000011,1.09,0)="DATE RECORDED^D^^1;9^S %DT=""E"" D ^%DT S X=Y K:DT<X!(2000000>X) X"
^DD(9000011,1.09,3)="Enter the date this problem was first recorded, as precisely as known."
^DD(9000011,1.09,21,0)="^^3^3^2940118^"
^DD(9000011,1.09,21,1,0)="This is the date this problem was originally recorded, either online or"
^DD(9000011,1.09,21,2,0)="in the paper chart; it may be the same as, or earlier than, the Date"
^DD(9000011,1.09,21,3,0)="Entered."
^DD(9000011,1.09,"DT")="2940111"
^DD(9000011,1.1,0)="SERVICE CONNECTED^S^1:YES;0:NO;^1;10^Q"
^DD(9000011,1.1,3)="If this problem is service connected, enter YES here."
^DD(9000011,1.1,21,0)="^^2^2^2930726^^^"
^DD(9000011,1.1,21,1,0)="If the patient has service connection on file in the DHCP Patient file #2,"
^DD(9000011,1.1,21,2,0)="this problem specifically may be flagged as being service connected."
^DD(9000011,1.1,23,0)="^^3^3^2930726^^"
^DD(9000011,1.1,23,1,0)="This data will be prompted for in the DHCP Problem List only if the"
^DD(9000011,1.1,23,2,0)="patient is indicated for service connection.  Non-VA sites will not"
^DD(9000011,1.1,23,3,0)="be prompted for this information."
^DD(9000011,1.1,"DT")="2930726"
^DD(9000011,1.11,0)="AGENT ORANGE EXPOSURE^S^1:YES;0:NO;^1;11^Q"
^DD(9000011,1.11,3)="Enter YES if this problem is related to exposure to Agent Orange."
^DD(9000011,1.11,21,0)="^^2^2^2930726^"
^DD(9000011,1.11,21,1,0)="If this problem is related to a patient's exposure to Agent Orange,"
^DD(9000011,1.11,21,2,0)="it may be flagged here."
^DD(9000011,1.11,23,0)="^^3^3^2930726^"
^DD(9000011,1.11,23,1,0)="This data will be prompted for in the DHCP Problem List only if a patient"
^DD(9000011,1.11,23,2,0)="has Agent Orange exposure indicated.  Non-VA sites will not be prompted"
^DD(9000011,1.11,23,3,0)="for this information."
^DD(9000011,1.11,"DT")="2930726"
^DD(9000011,1.12,0)="IONIZING RADIATION EXPOSURE^S^1:YES;0:NO;^1;12^Q"
^DD(9000011,1.12,3)="Enter YES if this problem is related to exposure to ionizing radiation."
^DD(9000011,1.12,21,0)="^^2^2^2930726^"
^DD(9000011,1.12,21,1,0)="If this problem is related to a patient's exposure to ionizing radiation,"
^DD(9000011,1.12,21,2,0)="it may be flagged here."
^DD(9000011,1.12,23,0)="^^3^3^2930726^"
^DD(9000011,1.12,23,1,0)="This data will be prompted for in the DHCP Problem List only if the patient"
^DD(9000011,1.12,23,2,0)="has ionizing radiation exposure indicated.  Non-VA sites will not be"
^DD(9000011,1.12,23,3,0)="prompted for this information."
^DD(9000011,1.12,"DT")="2930726"
^DD(9000011,1.13,0)="PERSIAN GULF EXPOSURE^S^1:YES;0:NO;^1;13^Q"
^DD(9000011,1.13,3)="Enter YES if this problem is related to a Persian Gulf exposure."
^DD(9000011,1.13,21,0)="^^2^2^2930726^"
^DD(9000011,1.13,21,1,0)="If this problem is related to a patient's service in the Persian Gulf,"
^DD(9000011,1.13,21,2,0)="it may be flagged here."
^DD(9000011,1.13,23,0)="^^2^2^2930726^"
^DD(9000011,1.13,23,1,0)="This data will be prompted for only if a patient has Persian Gulf service"
^DD(9000011,1.13,23,2,0)="indicated.  Non-VA sites will not be prompted for this information."
^DD(9000011,1.13,"DT")="2930726"
^DD(9000011,1.14,0)="PRIORITY^S^A:ACUTE;C:CHRONIC;^1;14^Q"
^DD(9000011,1.14,3)="You may further refine the status of this problem by assigning it a priority."
^DD(9000011,1.14,21,0)="^^2^2^2940323^^^"
^DD(9000011,1.14,21,1,0)="This is a flag to indicate how critical this problem is for this patient;"
^DD(9000011,1.14,21,2,0)="problems marked as Acute will be flagged on the Problem List display."
^DD(9000011,1.14,"DT")="2940201"
^DD(9000011,1.15,0)="HEAD AND/OR NECK CANCER^S^1:YES;0:NO;^1;15^Q"
^DD(9000011,1.15,21,0)="^.001^2^2^3020307^^"
^DD(9000011,1.15,21,1,0)="If this problem is related to the treatment of head and/or neck cancer "
^DD(9000011,1.15,21,2,0)="associated with nose or throat radium treatments, it may be flagged here."
^DD(9000011,1.15,23,0)="^^2^2^3020307^"
^DD(9000011,1.15,23,1,0)="This data will be prompted for only if a patient has received nose or throat"
^DD(9000011,1.15,23,2,0)="radium treatments."
^DD(9000011,1.15,"DT")="3020307"
^DD(9000011,1.16,0)="MILITARY SEXUAL TRAUMA^S^1:YES;0:NO;^1;16^Q"
^DD(9000011,1.16,21,0)="^.001^2^2^3020307^^"
^DD(9000011,1.16,21,1,0)="If this problem is related to the treatment of military sexual trauma, it may"
^DD(9000011,1.16,21,2,0)="be flagged here."
^DD(9000011,1.16,23,0)="^^2^2^3020307^"
^DD(9000011,1.16,23,1,0)="This data will be prompted for only if a patient has been treated for military"
^DD(9000011,1.16,23,2,0)="sexual trauma."
^DD(9000011,1.16,"DT")="3020307"
^DD(9000011,1101,0)="NOTE FACILITY^9000011.11PA^^11;0"
^DD(9000011,1101,21,0)="^^1^1^2940208^"
^DD(9000011,1101,21,1,0)="This is the location at which the notes in this multiple originated."
^DD(9000011,"B","AGENT ORANGE EXPOSURE",1.11)=""
^DD(9000011,"B","CLASS",.04)=""
^DD(9000011,"B","CLINIC",1.08)=""
^DD(9000011,"B","CONDITION",1.02)=""
^DD(9000011,"B","DATE ENTERED",.08)=""
^DD(9000011,"B","DATE LAST MODIFIED",.03)=""
^DD(9000011,"B","DATE OF ONSET",.13)=""
^DD(9000011,"B","DATE RECORDED",1.09)=""
^DD(9000011,"B","DATE RESOLVED",1.07)=""
^DD(9000011,"B","DIAGNOSIS",.01)=""
^DD(9000011,"B","ENTERED BY",1.03)=""
^DD(9000011,"B","FACILITY",.06)=""
^DD(9000011,"B","HEAD AND/OR NECK CANCER",1.15)=""
^DD(9000011,"B","IONIZING RADIATION EXPOSURE",1.12)=""
^DD(9000011,"B","MILITARY SEXUAL TRAUMA",1.16)=""
^DD(9000011,"B","NMBR",.07)=""
^DD(9000011,"B","NOTE FACILITY",1101)=""
^DD(9000011,"B","PATIENT NAME",.02)=""
^DD(9000011,"B","PERSIAN GULF EXPOSURE",1.13)=""
^DD(9000011,"B","PRIORITY",1.14)=""
^DD(9000011,"B","PROBLEM",1.01)=""
^DD(9000011,"B","PROVIDER NARRATIVE",.05)=""
^DD(9000011,"B","RECORDING PROVIDER",1.04)=""
^DD(9000011,"B","RESPONSIBLE PROVIDER",1.05)=""
^DD(9000011,"B","SERVICE",1.06)=""
^DD(9000011,"B","SERVICE CONNECTED",1.1)=""
^DD(9000011,"B","STATUS",.12)=""
^DD(9000011,"GL",0,1,.01)=""
^DD(9000011,"GL",0,2,.02)=""
^DD(9000011,"GL",0,3,.03)=""
^DD(9000011,"GL",0,4,.04)=""
^DD(9000011,"GL",0,5,.05)=""
^DD(9000011,"GL",0,6,.06)=""
^DD(9000011,"GL",0,7,.07)=""
^DD(9000011,"GL",0,8,.08)=""
^DD(9000011,"GL",0,12,.12)=""
^DD(9000011,"GL",0,13,.13)=""
^DD(9000011,"GL",1,1,1.01)=""
^DD(9000011,"GL",1,2,1.02)=""
^DD(9000011,"GL",1,3,1.03)=""
^DD(9000011,"GL",1,4,1.04)=""
^DD(9000011,"GL",1,5,1.05)=""
^DD(9000011,"GL",1,6,1.06)=""
^DD(9000011,"GL",1,7,1.07)=""
^DD(9000011,"GL",1,8,1.08)=""
^DD(9000011,"GL",1,9,1.09)=""
^DD(9000011,"GL",1,10,1.1)=""
^DD(9000011,"GL",1,11,1.11)=""
^DD(9000011,"GL",1,12,1.12)=""
^DD(9000011,"GL",1,13,1.13)=""
^DD(9000011,"GL",1,14,1.14)=""
^DD(9000011,"GL",1,15,1.15)=""
^DD(9000011,"GL",1,16,1.16)=""
^DD(9000011,"GL",11,0,1101)=""
^DD(9000011,"IX",.01)=""
^DD(9000011,"IX",.02)=""
^DD(9000011,"IX",.03)=""
^DD(9000011,"IX",.06)=""
^DD(9000011,"IX",.07)=""
^DD(9000011,"IX",.12)=""
^DD(9000011,"IX",1.01)=""
^DD(9000011,"RQ",.01)=""
^DD(9000011,"RQ",.02)=""
^DD(9000011,"RQ",.03)=""
^DD(9000011,"RQ",.05)=""
^DD(9000011,"RQ",.06)=""
^DD(9000011,"RQ",.07)=""
^DD(9000011,"RQ",.08)=""
^DD(9000011,"RQ",.12)=""
^DD(9000011,"SB",9000011.11,1101)=""
^DD(9000011.11,0)="NOTE FACILITY SUB-FIELD^^1101^2"
^DD(9000011.11,0,"DT")="2940110"
^DD(9000011.11,0,"IX","B",9000011.11,.01)=""
^DD(9000011.11,0,"NM","NOTE FACILITY")=""
^DD(9000011.11,0,"UP")="9000011"
^DD(9000011.11,.01,0)="NOTE FACILITY^MP9999999.06'^AUTTLOC(^0;1^Q"
^DD(9000011.11,.01,1,0)="^.1"
^DD(9000011.11,.01,1,1,0)="9000011.11^B"
^DD(9000011.11,.01,1,1,1)="S ^AUPNPROB(DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(9000011.11,.01,1,1,2)="K ^AUPNPROB(DA(1),11,""B"",$E(X,1,30),DA)"
^DD(9000011.11,.01,3)="Enter the location at which these notes originated."
^DD(9000011.11,.01,21,0)="^^1^1^2940110^^"
^DD(9000011.11,.01,21,1,0)="This is the location at which the notes in this multiple originated."
^DD(9000011.11,.01,"AUDIT")="n"
^DD(9000011.11,.01,"DT")="2930909"
^DD(9000011.11,1101,0)="NOTE^9000011.1111IA^^11;0"
^DD(9000011.11,1101,21,0)="^^4^4^2940208^"
^DD(9000011.11,1101,21,1,0)="Each entry in this multiple is a notation appended to a problem for"
^DD(9000011.11,1101,21,2,0)="further clarification or information.  Data includes a note number"
^DD(9000011.11,1101,21,3,0)="and status, the date the note was added, the provider who added it,"
^DD(9000011.11,1101,21,4,0)="and the actual text of the note."
^DD(9000011.11,"B","NOTE",1101)=""
^DD(9000011.11,"B","NOTE FACILITY",.01)=""
^DD(9000011.11,"GL",0,1,.01)=""
^DD(9000011.11,"GL",11,0,1101)=""
^DD(9000011.11,"IX",.01)=""
^DD(9000011.11,"SB",9000011.1111,1101)=""
^DD(9000011.1111,0)="NOTE SUB-FIELD^^.06^5"
^DD(9000011.1111,0,"DT")="2940110"
^DD(9000011.1111,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(9000011.1111,0,"IX","AV9",9000011.1111,.01)=""
^DD(9000011.1111,0,"IX","B",9000011.1111,.01)=""
^DD(9000011.1111,0,"NM","NOTE")=""
^DD(9000011.1111,0,"UP")="9000011.11"
^DD(9000011.1111,.01,0)="NOTE NMBR^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9000011.1111,.01,1,0)="^.1"
^DD(9000011.1111,.01,1,1,0)="9000011.1111^B"
^DD(9000011.1111,.01,1,1,1)="S ^AUPNPROB(DA(2),11,DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(9000011.1111,.01,1,1,2)="K ^AUPNPROB(DA(2),11,DA(1),11,""B"",$E(X,1,30),DA)"
^DD(9000011.1111,.01,1,2,0)="9000011.1111^AV9^MUMPS"
^DD(9000011.1111,.01,1,2,1)="S:$D(APCDLOOK) DIC(""DR"")="""""
^DD(9000011.1111,.01,1,2,2)="Q"
^DD(9000011.1111,.01,1,2,"%D",0)="^^2^2^2940204^^^"
^DD(9000011.1111,.01,1,2,"%D",1,0)="Controls the behaviour of the input templates used by IHS to populate"
^DD(9000011.1111,.01,1,2,"%D",2,0)="and maintain this file."
^DD(9000011.1111,.01,1,2,"DT")="2940125"
^DD(9000011.1111,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9000011.1111,.01,21,0)="^^1^1^2940204^^^^"
^DD(9000011.1111,.01,21,1,0)="This is the unique note identifier."
^DD(9000011.1111,.01,"AUDIT")="n"
^DD(9000011.1111,.01,"DT")="2940125"
^DD(9000011.1111,.03,0)="NOTE NARRATIVE^RF^^0;3^K:$L(X)>60!($L(X)<3) X"
^DD(9000011.1111,.03,3)="Answer must be 3-60 characters in length."
^DD(9000011.1111,.03,21,0)="^^1^1^2930726^"
^DD(9000011.1111,.03,21,1,0)="Additional comments may be entered here to further describe this problem."
^DD(9000011.1111,.03,"AUDIT")="n"
^DD(9000011.1111,.03,"DT")="2930726"
^DD(9000011.1111,.04,0)="STATUS^RS^A:ACTIVE;^0;4^Q"
^DD(9000011.1111,.04,3)="If this note is currently ACTIVE, indicate it here."
^DD(9000011.1111,.04,21,0)="^^1^1^2930726^"
^DD(9000011.1111,.04,21,1,0)="This flag indicates if this note is currently active."
^DD(9000011.1111,.04,"DT")="2900501"
^DD(9000011.1111,.05,0)="DATE NOTE ADDED^D^^0;5^S %DT=""EX"" D ^%DT S X=Y K:DT<X!(1800000>X) X"
^DD(9000011.1111,.05,3)="TYPE A DATE BETWEEN 1880 AND TODAY"
^DD(9000011.1111,.05,21,0)="^^1^1^2930726^"
^DD(9000011.1111,.05,21,1,0)="This is the date this note was entered into this file."
^DD(9000011.1111,.05,"DT")="2930726"
^DD(9000011.1111,.06,0)="AUTHOR^P200'^VA(200,^0;6^Q"
^DD(9000011.1111,.06,3)="Enter the name of the provider who authored the text of this note."
^DD(9000011.1111,.06,21,0)="^^1^1^2930726^"
^DD(9000011.1111,.06,21,1,0)="This is the provider who authored the text of this note."
^DD(9000011.1111,.06,"DT")="2930330"
^DD(9000011.1111,"B","AUTHOR",.06)=""
^DD(9000011.1111,"B","DATE NOTE ADDED",.05)=""
^DD(9000011.1111,"B","NOTE NARRATIVE",.03)=""
^DD(9000011.1111,"B","NOTE NMBR",.01)=""
^DD(9000011.1111,"B","STATUS",.04)=""
^DD(9000011.1111,"GL",0,1,.01)=""
^DD(9000011.1111,"GL",0,3,.03)=""
^DD(9000011.1111,"GL",0,4,.04)=""
^DD(9000011.1111,"GL",0,5,.05)=""
^DD(9000011.1111,"GL",0,6,.06)=""
^DD(9000011.1111,"IX",.01)=""
^DD(9000011.1111,"RQ",.01)=""
^DD(9000011.1111,"RQ",.03)=""
^DD(9000011.1111,"RQ",.04)=""
^DD(9001017,0,"PT",142.14,.01)=""
^DD(9002099.3,.01,5,1,0)="15^.01^4"
^DD(9002099.3,"TRB",15,.01,4,.01)=""
^DD(9002313.02,0)="FIELD^^9999^52"
^DD(9002313.02,0,"DDA")="N"
^DD(9002313.02,0,"DT")="3070625"
^DD(9002313.02,0,"IX","AD",9002313.02,.04)=""
^DD(9002313.02,0,"IX","AE",9002313.02,.05)=""
^DD(9002313.02,0,"IX","AF",9002313.02,401)=""
^DD(9002313.02,0,"IX","AG",9002313.02,902)=""
^DD(9002313.02,0,"IX","B",9002313.02,.01)=""
^DD(9002313.02,0,"IX","C",9002313.02,1.01)=""
^DD(9002313.02,0,"NM","BPS CLAIMS")=""
^DD(9002313.02,0,"PT",9002313.03,.01)=""
^DD(9002313.02,0,"PT",9002313.31,.03)=""
^DD(9002313.02,0,"PT",9002313.57,3)=""
^DD(9002313.02,0,"PT",9002313.57,401)=""
^DD(9002313.02,0,"PT",9002313.59,3)=""
^DD(9002313.02,0,"PT",9002313.59,401)=""
^DD(9002313.02,0,"VR")="1.0"
^DD(9002313.02,0,"VRPK")="BPS"
^DD(9002313.02,.01,0)="Claim ID^F^^0;1^K:$L(X)>32!($L(X)<1) X"
^DD(9002313.02,.01,1,0)="^.1"
^DD(9002313.02,.01,1,1,0)="9002313.02^B^MUMPS"
^DD(9002313.02,.01,1,1,1)="S ^BPSC(""B"",$E(X,1,32),DA)="""""
^DD(9002313.02,.01,1,1,2)="K ^BPSC(""B"",$E(X,1,32),DA)"
^DD(9002313.02,.01,1,1,"DT")="3030725"
^DD(9002313.02,.01,3)="Answer must be 1-32 characters in length."
^DD(9002313.02,.01,21,0)="^^4^4^3060628^"
^DD(9002313.02,.01,21,1,0)="External Claim ID value.  This value is a concatenation of the text 'VA'"
^DD(9002313.02,.01,21,2,0)="along with the current year, the pharmacy ID, the VA National Plan ID"
^DD(9002313.02,.01,21,3,0)="(without the alpha prefix), and a unique sequence number.  Each of the"
^DD(9002313.02,.01,21,4,0)="four pieces are delimited by the equal sign (""="")."
^DD(9002313.02,.01,"DT")="3060628"
^DD(9002313.02,.02,0)="Electronic payor^P9002313.92'^BPSF(9002313.92,^0;2^Q"
^DD(9002313.02,.02,3)="Enter the payer sheet for the claim"
^DD(9002313.02,.02,21,0)="^^1^1^3050729^"
^DD(9002313.02,.02,21,1,0)="This is the payer sheet used by the claim"
^DD(9002313.02,.02,"DT")="3050729"
^DD(9002313.02,.04,0)="Transmit Flag^S^1:YES (BATCH FILE);0:NO;2:YES (POINT OF SALE);^0;4^Q"
^DD(9002313.02,.04,1,0)="^.1"
^DD(9002313.02,.04,1,1,0)="9002313.02^AD"
^DD(9002313.02,.04,1,1,1)="S ^BPSC(""AD"",$E(X,1,30),DA)="""""
^DD(9002313.02,.04,1,1,2)="K ^BPSC(""AD"",$E(X,1,30),DA)"
^DD(9002313.02,.04,1,1,"DT")="2950524"
^DD(9002313.02,.04,21,0)="^.001^2^2^3050316^^"
^DD(9002313.02,.04,21,1,0)="Numerical code to indicate a transmit status.  Current values are 0 for "
^DD(9002313.02,.04,21,2,0)="'No' 1 for 'Yes' Batch and 2 for 'Yes' Point of Sale."
^DD(9002313.02,.04,"DT")="3031119"
^DD(9002313.02,.05,0)="Transmitted On^DO^^0;5^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.02,.05,.1)="'"
^DD(9002313.02,.05,1,0)="^.1"
^DD(9002313.02,.05,1,1,0)="9002313.02^AE"
^DD(9002313.02,.05,1,1,1)="S ^BPSC(""AE"",$E(X,1,30),DA)="""""
^DD(9002313.02,.05,1,1,2)="K ^BPSC(""AE"",$E(X,1,30),DA)"
^DD(9002313.02,.05,1,1,"DT")="2950622"
^DD(9002313.02,.05,2)="S Y(0)=Y S Y=$$FM2EXT^BPSOSU1(Y)"
^DD(9002313.02,.05,2.1)="S Y=$$FM2EXT^BPSOSU1(Y)"
^DD(9002313.02,.05,21,0)="^.001^1^1^3050316^^"
^DD(9002313.02,.05,21,1,0)="Date on which the data was transmitted."
^DD(9002313.02,.05,"DT")="3031119"
^DD(9002313.02,.06,0)="Created On^DO^^0;6^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.02,.06,2)="S Y(0)=Y S Y=$$FM2EXT^BPSOSU1(Y)"
^DD(9002313.02,.06,2.1)="S Y=$$FM2EXT^BPSOSU1(Y)"
^DD(9002313.02,.06,21,0)="^^1^1^3031125^^"
^DD(9002313.02,.06,21,1,0)="Date on which this record was created."
^DD(9002313.02,.06,"DT")="3031125"
^DD(9002313.02,.07,0)="AUTO REVERSE FLAG^S^0:NO;1:UNRELEASED CLAIM;2:INPATIENT CLAIM;^0;7^Q"
^DD(9002313.02,.07,3)="If auto-reversed, enter the type of auto-reversal"
^DD(9002313.02,.07,21,0)="^^3^3^3060105^"
^DD(9002313.02,.07,21,1,0)="This flag is marking ECME Claims that were automatically reversed because "
^DD(9002313.02,.07,21,2,0)="the Prescription was not released in time or the claim was an inpatient "
^DD(9002313.02,.07,21,3,0)="claim."
^DD(9002313.02,.07,"DT")="3060105"
^DD(9002313.02,1.01,0)="Patient Name^F^^1;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X"
^DD(9002313.02,1.01,1,0)="^.1"
^DD(9002313.02,1.01,1,1,0)="9002313.02^C"
^DD(9002313.02,1.01,1,1,1)="S ^BPSC(""C"",$E(X,1,30),DA)="""""
^DD(9002313.02,1.01,1,1,2)="K ^BPSC(""C"",$E(X,1,30),DA)"
^DD(9002313.02,1.01,1,1,"DT")="2950606"
^DD(9002313.02,1.01,3)="Answer must be 1-30 characters in length."
^DD(9002313.02,1.01,21,0)="^^2^2^3040331^"
^DD(9002313.02,1.01,21,1,0)="Patient name extracted from the VA patient file.  This entry is free text "
^DD(9002313.02,1.01,21,2,0)="to accommodate the NCPDP formatting requirements."
^DD(9002313.02,1.01,"DT")="3040331"
^DD(9002313.02,1.04,0)="VA PLAN IEN^P355.3'^IBA(355.3,^1;4^Q"
^DD(9002313.02,1.04,3)="Enter the Group Insurance"
^DD(9002313.02,1.04,21,0)="^^1^1^3061120^"
^DD(9002313.02,1.04,21,1,0)="Internal identifier number for the Group Insurance Record"
^DD(9002313.02,1.04,"DT")="3061120"
^DD(9002313.02,101,0)="BIN Number^F^^100;1^K:$L(X)>6!($L(X)<6) X"
^DD(9002313.02,101,3)="Answer must be 6 characters in length."
^DD(9002313.02,101,21,0)="^^1^1^3031124^"
^DD(9002313.02,101,21,1,0)="Card Issuer ID or Bank ID Number used for network routing."
^DD(9002313.02,101,"DT")="3031124"
^DD(9002313.02,102,0)="Version/Release Number^F^^100;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.02,102,3)="Answer must be 2 characters in length."
^DD(9002313.02,102,21,0)="^^2^2^3031124^"
^DD(9002313.02,102,21,1,0)="Code identifying the Enrollment Standard format of the file sent or "
^DD(9002313.02,102,21,2,0)="received."
^DD(9002313.02,102,"DT")="3031124"
^DD(9002313.02,103,0)="Transaction Code^F^^100;3^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.02,103,3)="Answer must be 2 characters in length."
^DD(9002313.02,103,21,0)="^^15^15^3031124^"
^DD(9002313.02,103,21,1,0)="Code to identify the transaction type for this claim."
^DD(9002313.02,103,21,2,0)="E1=Eligibility Verification"
^DD(9002313.02,103,21,3,0)="B1=Billing"
^DD(9002313.02,103,21,4,0)="B2=Reversal"
^DD(9002313.02,103,21,5,0)="B3=Rebill"
^DD(9002313.02,103,21,6,0)="P1=P.A. Request & Billing"
^DD(9002313.02,103,21,7,0)="P2=P.A. Reversal"
^DD(9002313.02,103,21,8,0)="P3=P.A. Inquiry"
^DD(9002313.02,103,21,9,0)="P4=P.A. Request Only"
^DD(9002313.02,103,21,10,0)="N1=Information Reporting"
^DD(9002313.02,103,21,11,0)="N2=Information Reporting Reversal"
^DD(9002313.02,103,21,12,0)="N3=Information Reporting Rebill"
^DD(9002313.02,103,21,13,0)="C1=Controlled Substance Reporting"
^DD(9002313.02,103,21,14,0)="C2=Controlled Substance Reporting Reversal"
^DD(9002313.02,103,21,15,0)="C3=Controlled Substance Reporting Rebill"
^DD(9002313.02,103,"DT")="3031124"
^DD(9002313.02,104,0)="Processor Control Number^F^^100;4^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.02,104,3)="Answer must be 10 characters in length."
^DD(9002313.02,104,21,0)="^^1^1^3031124^"
^DD(9002313.02,104,21,1,0)="Number which will uniquely identify the submitter of the claim."
^DD(9002313.02,104,"DT")="3031124"
^DD(9002313.02,109,0)="Transaction Count^F^^100;9^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.02,109,3)="Answer must be 1 character in length."
^DD(9002313.02,109,21,0)="^^1^1^3031124^"
^DD(9002313.02,109,21,1,0)="Count of transactions in the transmission."
^DD(9002313.02,109,"DT")="3031124"
^DD(9002313.02,110,0)="Software Vendor/Cert ID^F^^100;10^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.02,110,3)="Answer must be 10 characters in length."
^DD(9002313.02,110,21,0)="^^1^1^3031124^"
^DD(9002313.02,110,21,1,0)="Certification number which Identifies the patients insurance carrier."
^DD(9002313.02,110,"DT")="3031124"
^DD(9002313.02,201,0)="Service Provider ID^F^^200;1^K:$L(X)>15!($L(X)<12) X"
^DD(9002313.02,201,3)="Answer must be 12-15 characters in length."
^DD(9002313.02,201,21,0)="^^1^1^3031124^"
^DD(9002313.02,201,21,1,0)="ID assigned to a pharmacy or provider."
^DD(9002313.02,201,"DT")="3031124"
^DD(9002313.02,202,0)="Service Provider ID Qualifier^F^^200;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.02,202,3)="Answer must be 2 characters in length."
^DD(9002313.02,202,21,0)="^^1^1^3031203^"
^DD(9002313.02,202,21,1,0)="Qualifier indicating which ID number was used."
^DD(9002313.02,202,"DT")="3020730"
^DD(9002313.02,301,0)="Group ID^F^^300;1^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.02,301,3)="Answer must be 15 characters in length."
^DD(9002313.02,301,21,0)="^^1^1^3031124^"
^DD(9002313.02,301,21,1,0)="ID assigned to the cardholder group or employer group."
^DD(9002313.02,301,"DT")="3031124"
^DD(9002313.02,302,0)="Cardholder ID^F^^300;2^K:$L(X)>20!($L(X)<18) X"
^DD(9002313.02,302,3)="Answer must be 18-20 characters in length."
^DD(9002313.02,302,21,0)="^^1^1^3031124^"
^DD(9002313.02,302,21,1,0)="Insurance ID assigned to the cardholder."
^DD(9002313.02,302,"DT")="3031124"
^DD(9002313.02,303,0)="Person Code^F^^300;3^K:$L(X)>3!($L(X)<3) X"
^DD(9002313.02,303,3)="Answer must be 3 characters in length."
^DD(9002313.02,303,21,0)="^^1^1^3031124^"
^DD(9002313.02,303,21,1,0)="Code assigned to a specific person within a family."
^DD(9002313.02,303,"DT")="3031124"
^DD(9002313.02,304,0)="Date of Birth^FO^^300;4^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.02,304,2)="S Y(0)=Y S Y=$$FM3EXT^BPSOSU1(Y)"
^DD(9002313.02,304,2.1)="S Y=$$FM3EXT^BPSOSU1(Y)"
^DD(9002313.02,304,3)="Answer must be 8 characters in length."
^DD(9002313.02,304,21,0)="^^1^1^3031124^"
^DD(9002313.02,304,21,1,0)="Patient date of birth in the format CCYYMMDD."
^DD(9002313.02,304,"DT")="3031124"
^DD(9002313.02,305,0)="Patient Gender Code^FO^^300;5^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.02,305,2)="S Y(0)=Y S Y=$S(Y=1:""MALE"",Y=2:""FEMALE"",1:Y)"
^DD(9002313.02,305,2.1)="S Y=$S(Y=1:""MALE"",Y=2:""FEMALE"",1:Y)"
^DD(9002313.02,305,3)="Answer must be 1 character in length."
^DD(9002313.02,305,21,0)="^^4^4^3031124^"
^DD(9002313.02,305,21,1,0)="One of three codes to indicated the gender of the patient."
^DD(9002313.02,305,21,2,0)="0 = Not Specific"
^DD(9002313.02,305,21,3,0)="1 = Male"
^DD(9002313.02,305,21,4,0)="2 = Female"
^DD(9002313.02,305,"DT")="3031124"
^DD(9002313.02,306,0)="Patient Relationship Code^FO^^300;6^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.02,306,2)="S Y(0)=Y S Y=$S(Y=1:""CARDHOLDER"",Y=2:""SPOUSE"",Y=3:""CHILD"",1:Y)"
^DD(9002313.02,306,2.1)="S Y=$S(Y=1:""CARDHOLDER"",Y=2:""SPOUSE"",Y=3:""CHILD"",1:Y)"
^DD(9002313.02,306,3)="Answer must be 1 character in length."
^DD(9002313.02,306,21,0)="^^1^1^3031124^"
^DD(9002313.02,306,21,1,0)="Code indicating relationship of patient to cardholder."
^DD(9002313.02,306,"DT")="3031124"
^DD(9002313.02,307,0)="Patient Location^F^^300;7^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.02,307,3)="Answer must be 2 characters in length."
^DD(9002313.02,307,21,0)="^^14^14^3031124^"
^DD(9002313.02,307,21,1,0)="Code identifying the location of the patient when receiving pharmacy "
^DD(9002313.02,307,21,2,0)="services."
^DD(9002313.02,307,21,3,0)="Ø=Not Specified"
^DD(9002313.02,307,21,4,0)="1=Home"
^DD(9002313.02,307,21,5,0)="2=Inter-Care"
^DD(9002313.02,307,21,6,0)="3=Nursing Home"
^DD(9002313.02,307,21,7,0)="4=Long Term/Extended Care"
^DD(9002313.02,307,21,8,0)="5=Rest Home"
^DD(9002313.02,307,21,9,0)="6=Boarding Home"
^DD(9002313.02,307,21,10,0)="7=Skilled Care Facility"
^DD(9002313.02,307,21,11,0)="8=Sub-Acute Care Facility"
^DD(9002313.02,307,21,12,0)="9=Acute Care Facility"
^DD(9002313.02,307,21,13,0)="1Ø=Outpatient"
^DD(9002313.02,307,21,14,0)="11=Hospice"
^DD(9002313.02,307,"DT")="3031124"
^DD(9002313.02,309,0)="Eligibility Clarification Code^F^^300;9^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.02,309,3)="Answer must be 1 character in length."
^DD(9002313.02,309,21,0)="^^2^2^3031124^"
^DD(9002313.02,309,21,1,0)="Code indicating that the pharmacy is clarifying eligibility based on "
^DD(9002313.02,309,21,2,0)="receiving a denial."
^DD(9002313.02,309,"DT")="3031124"
^DD(9002313.02,310,0)="Patient First Name^F^^300;10^K:$L(X)>12!($L(X)<12) X"
^DD(9002313.02,310,3)="Answer must be 12 characters in length."
^DD(9002313.02,310,21,0)="^^1^1^3031124^"
^DD(9002313.02,310,21,1,0)="First name of patient receiving the prescription."
^DD(9002313.02,310,"DT")="3031124"
^DD(9002313.02,311,0)="Patient Last Name^F^^300;11^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.02,311,3)="Answer must be 15 characters in length."
^DD(9002313.02,311,21,0)="^^1^1^3040331^"
^DD(9002313.02,311,21,1,0)="Last Name of patient receiving the prescription."
^DD(9002313.02,311,"DT")="3040331"
^DD(9002313.02,312,0)="Cardholder First Name^F^^300;12^K:$L(X)>14!($L(X)<1) X"
^DD(9002313.02,312,3)="Answer must be 1-14 characters in length."
^DD(9002313.02,312,21,0)="^^1^1^3031124^"
^DD(9002313.02,312,21,1,0)="First name of the Cardholder/Subscriber."
^DD(9002313.02,312,"DT")="3031124"
^DD(9002313.02,313,0)="Cardholder Last Name^F^^300;13^K:$L(X)>17!($L(X)<1) X"
^DD(9002313.02,313,3)="Answer must be 1-17 characters in length."
^DD(9002313.02,313,21,0)="^^1^1^3031124^"
^DD(9002313.02,313,21,1,0)="Last name of the cardholder/subscriber."
^DD(9002313.02,313,"DT")="3031124"
^DD(9002313.02,314,0)="Home Plan^F^^300;14^K:$L(X)>5!($L(X)<1) X"
^DD(9002313.02,314,3)="Answer must be 1-5 characters in length."
^DD(9002313.02,314,21,0)="^^3^3^3031124^"
^DD(9002313.02,314,21,1,0)="Code identifying the Blue Cross or Blue Shield plan ID which indicates "
^DD(9002313.02,314,21,2,0)="where the member's coverage has been designated. Usually where the member "
^DD(9002313.02,314,21,3,0)="lives or purchased their coverage."
^DD(9002313.02,314,"DT")="3031124"
^DD(9002313.02,322,0)="Patient Street Address^F^^321;2^K:$L(X)>32!($L(X)<1) X"
^DD(9002313.02,322,3)="Answer must be 1-32 characters in length."
^DD(9002313.02,322,21,0)="^^1^1^3031124^"
^DD(9002313.02,322,21,1,0)="Free-form text for Patient address information."
^DD(9002313.02,322,"DT")="3031124"
^DD(9002313.02,323,0)="Patient City Address^F^^321;3^K:$L(X)>22!($L(X)<1) X"
^DD(9002313.02,323,3)="Answer must be 1-22 characters in length."
^DD(9002313.02,323,21,0)="^^1^1^3031124^"
^DD(9002313.02,323,21,1,0)="Free-form text for city name."
^DD(9002313.02,323,"DT")="3031124"
^DD(9002313.02,324,0)="Patient State/Prov Address^F^^321;4^K:$L(X)>4!($L(X)<1) X"
^DD(9002313.02,324,3)="Answer must be 1-4 characters in length."
^DD(9002313.02,324,21,0)="^^1^1^3031124^"
^DD(9002313.02,324,21,1,0)="Standard State/Province Code as defined by appropriate government agency."
^DD(9002313.02,324,"DT")="3031124"
^DD(9002313.02,325,0)="Patient Zip/Postal Zone^F^^321;5^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.02,325,3)="Answer must be 1-15 characters in length."
^DD(9002313.02,325,21,0)="^^2^2^3031124^"
^DD(9002313.02,325,21,1,0)="Code defining international postal zone excluding punctuation and blanks "
^DD(9002313.02,325,21,2,0)="(zip code for US)."
^DD(9002313.02,325,"DT")="3031124"
^DD(9002313.02,326,0)="Patient Phone Number^F^^321;6^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.02,326,3)="Answer must be 10 characters in length."
^DD(9002313.02,326,21,0)="^^1^1^3031124^"
^DD(9002313.02,326,21,1,0)="Ten digit  phone number of patient."
^DD(9002313.02,326,"DT")="3031124"
^DD(9002313.02,331,0)="Patient ID Qualifier^F^^330;1^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.02,331,3)="Answer must be 2 characters in length."
^DD(9002313.02,331,21,0)="^^6^6^3031124^"
^DD(9002313.02,331,21,1,0)="Code qualifying the 'Patient ID'."
^DD(9002313.02,331,21,2,0)="Blank=Not Specified"
^DD(9002313.02,331,21,3,0)="Ø1=Social Security Number"
^DD(9002313.02,331,21,4,0)="Ø2=Driver's License Number"
^DD(9002313.02,331,21,5,0)="Ø3=U.S. Military ID"
^DD(9002313.02,331,21,6,0)="99=Other"
^DD(9002313.02,331,"DT")="3031124"
^DD(9002313.02,332,0)="Patient ID  ^F^^330;2^K:$L(X)>20!($L(X)<20) X"
^DD(9002313.02,332,3)="Answer must be 20 characters in length."
^DD(9002313.02,332,21,0)="^^1^1^3031124^"
^DD(9002313.02,332,21,1,0)="ID assigned to the patient."
^DD(9002313.02,332,"DT")="3031124"
^DD(9002313.02,333,0)="Employer ID^F^^330;3^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.02,333,3)="Answer must be 15 characters in length."
^DD(9002313.02,333,21,0)="^^1^1^3031124^"
^DD(9002313.02,333,21,1,0)="ID assigned to employer."
^DD(9002313.02,333,"DT")="3031124"
^DD(9002313.02,334,0)="Smoker/Non Smoker^F^^330;4^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.02,334,3)="Answer must be 1 character in length."
^DD(9002313.02,334,21,0)="^^4^4^3031124^"
^DD(9002313.02,334,21,1,0)="Code indicating the patient as a smoker or non-smoker."
^DD(9002313.02,334,21,2,0)="Blank=Not Specified"
^DD(9002313.02,334,21,3,0)="1=Non-Smoker"
^DD(9002313.02,334,21,4,0)="2=Smoker"
^DD(9002313.02,334,"DT")="3031124"
^DD(9002313.02,335,0)="Pregnancy Indicator^F^^330;5^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.02,335,3)="Answer must be 1 character in length."
^DD(9002313.02,335,21,0)="^^4^4^3031124^"
^DD(9002313.02,335,21,1,0)="Code indicating the patient as pregnant or non-pregnant."
^DD(9002313.02,335,21,2,0)="Blank=Not Specified"
^DD(9002313.02,335,21,3,0)="1=Not pregnant"
^DD(9002313.02,335,21,4,0)="2=Pregnant"
^DD(9002313.02,335,"DT")="3031124"
^DD(9002313.02,336,0)="Facility ID^F^^330;6^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.02,336,3)="Answer must be 10 characters in length."
^DD(9002313.02,336,21,0)="^^1^1^3031124^"
^DD(9002313.02,336,21,1,0)="ID assigned to the patient's clinic/host party."
^DD(9002313.02,336,"DT")="3031124"
^DD(9002313.02,400,0)="Medication(s)^9002313.0201A^^400;0"
^DD(9002313.02,400,21,0)="^.001^1^1^3070316^^^^"
^DD(9002313.02,400,21,1,0)="Medications included in this prescription."
^DD(9002313.02,400,"DT")="2950522"
^DD(9002313.02,401,0)="Date of Service^F^^401;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<8) X"
^DD(9002313.02,401,1,0)="^.1"
^DD(9002313.02,401,1,1,0)="9002313.02^AF"
^DD(9002313.02,401,1,1,1)="S ^BPSC(""AF"",$E(X,1,30),DA)="""""
^DD(9002313.02,401,1,1,2)="K ^BPSC(""AF"",$E(X,1,30),DA)"
^DD(9002313.02,401,1,1,"DT")="2950724"
^DD(9002313.02,401,3)="Answer must be 8 characters in length."
^DD(9002313.02,401,21,0)="^^1^1^3031124^"
^DD(9002313.02,401,21,1,0)="Date prescription was dispensed."
^DD(9002313.02,401,"DT")="3031124"
^DD(9002313.02,524,0)="Plan ID^F^^520;4^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.02,524,3)="Answer must be 8 characters in length."
^DD(9002313.02,524,21,0)="^^2^2^3031124^"
^DD(9002313.02,524,21,1,0)="Assigned by the processor to identify a set of parameters, benefit, or "
^DD(9002313.02,524,21,2,0)="coverage criteria used to adjudicate a claim."
^DD(9002313.02,524,"DT")="3031124"
^DD(9002313.02,901,0)="CLOSED^S^1:YES;^900;1^Q"
^DD(9002313.02,901,"DT")="3040513"
^DD(9002313.02,902,0)="CLOSED DATE/TIME^D^^900;2^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.02,902,1,0)="^.1"
^DD(9002313.02,902,1,1,0)="9002313.02^AG"
^DD(9002313.02,902,1,1,1)="S ^BPSC(""AG"",$E(X,1,30),DA)="""""
^DD(9002313.02,902,1,1,2)="K ^BPSC(""AG"",$E(X,1,30),DA)"
^DD(9002313.02,902,1,1,"DT")="3040518"
^DD(9002313.02,902,3)="(No range limit on date)"
^DD(9002313.02,902,"DT")="3060118"
^DD(9002313.02,903,0)="CLOSED BY^P200'^VA(200,^900;3^Q"
^DD(9002313.02,903,"DT")="3040513"
^DD(9002313.02,904,0)="CLOSED REASON^*P356.8'^IBE(356.8,^900;4^S DIC(""S"")=""I $P(^IBE(356.8,+Y,0),U,2)"" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X"
^DD(9002313.02,904,3)="Enter the Claim Close Reason."
^DD(9002313.02,904,12)="Only ECME-supported non-billable reasons can be entered."
^DD(9002313.02,904,12.1)="S DIC(""S"")=""I $P(^IBE(356.8,+Y,0),U,2)"""
^DD(9002313.02,904,21,0)="^^2^2^3050729^"
^DD(9002313.02,904,21,1,0)="The ECME-supported non-billable reason entered by the user or defaulted by"
^DD(9002313.02,904,21,2,0)="the system."
^DD(9002313.02,904,"DT")="3050729"
^DD(9002313.02,905,0)="DROP TO PAPER^S^D:DROP TO PAPER;N:NON-BILLABLE;^900;5^Q"
^DD(9002313.02,905,21,0)="^.001^4^4^3050518^^^"
^DD(9002313.02,905,21,1,0)="If close reason is 90 DAY RX FILL NOT COVERED or "
^DD(9002313.02,905,21,2,0)="NOT A CONTRACTED PROVIDER then user will be prompted:"
^DD(9002313.02,905,21,3,0)="Treat as (N)on-Billable Episode or (D)rop Bill to Paper? "
^DD(9002313.02,905,21,4,0)="the answer is stored in this field and sent to IB"
^DD(9002313.02,905,"DT")="3050517"
^DD(9002313.02,906,0)="REOPENED DATE/TIME^D^^900;6^S %DT=""E"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.02,906,3)="Enter the date and time when the claim was re-opened"
^DD(9002313.02,906,21,0)="^^1^1^3060523^"
^DD(9002313.02,906,21,1,0)="Date and time when the claim was re-opened."
^DD(9002313.02,906,"DT")="3060614"
^DD(9002313.02,907,0)="REOPENED BY^P200'^VA(200,^900;7^Q"
^DD(9002313.02,907,3)="Enter the user who re-opened the claim"
^DD(9002313.02,907,21,0)="^^1^1^3060523^"
^DD(9002313.02,907,21,1,0)="The system user who re-opened the claim."
^DD(9002313.02,907,"DT")="3060614"
^DD(9002313.02,908,0)="REOPENED COMMENT^F^^900;8^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.02,908,3)="Enter the reason for the re-opening of the claim"
^DD(9002313.02,908,21,0)="^^1^1^3060614^"
^DD(9002313.02,908,21,1,0)="User comments for the re-opening of the claim."
^DD(9002313.02,908,"DT")="3060614"
^DD(9002313.02,9999,0)="RAW DATA SENT^9002313.29999^^M;0"
^DD(9002313.02,9999,21,0)="^^1^1^3040331^"
^DD(9002313.02,9999,21,1,0)="An exact copy of the record sent via the communications protocol."
^DD(9002313.02,"B","'",.05)="1"
^DD(9002313.02,"B","AUTO REVERSE FLAG",.07)=""
^DD(9002313.02,"B","BIN Number",101)=""
^DD(9002313.02,"B","CLOSED",901)=""
^DD(9002313.02,"B","CLOSED BY",903)=""
^DD(9002313.02,"B","CLOSED DATE/TIME",902)=""
^DD(9002313.02,"B","CLOSED REASON",904)=""
^DD(9002313.02,"B","Cardholder First Name",312)=""
^DD(9002313.02,"B","Cardholder ID",302)=""
^DD(9002313.02,"B","Cardholder Last Name",313)=""
^DD(9002313.02,"B","Claim ID",.01)=""
^DD(9002313.02,"B","Created On",.06)=""
^DD(9002313.02,"B","DROP TO PAPER",905)=""
^DD(9002313.02,"B","Date of Birth",304)=""
^DD(9002313.02,"B","Date of Service",401)=""
^DD(9002313.02,"B","Electronic payor",.02)=""
^DD(9002313.02,"B","Eligibility Clarification Code",309)=""
^DD(9002313.02,"B","Employer ID",333)=""
^DD(9002313.02,"B","Facility ID",336)=""
^DD(9002313.02,"B","Group ID",301)=""
^DD(9002313.02,"B","Home Plan",314)=""
^DD(9002313.02,"B","Medication(s)",400)=""
^DD(9002313.02,"B","Patient City Address",323)=""
^DD(9002313.02,"B","Patient First Name",310)=""
^DD(9002313.02,"B","Patient Gender Code",305)=""
^DD(9002313.02,"B","Patient ID  ",332)=""
^DD(9002313.02,"B","Patient ID Qualifier",331)=""
^DD(9002313.02,"B","Patient Last Name",311)=""
^DD(9002313.02,"B","Patient Location",307)=""
^DD(9002313.02,"B","Patient Name",1.01)=""
^DD(9002313.02,"B","Patient Phone Number",326)=""
^DD(9002313.02,"B","Patient Relationship Code",306)=""
^DD(9002313.02,"B","Patient State/Prov Address",324)=""
^DD(9002313.02,"B","Patient Street Address",322)=""
^DD(9002313.02,"B","Patient Zip/Postal Zone",325)=""
^DD(9002313.02,"B","Person Code",303)=""
^DD(9002313.02,"B","Plan ID",524)=""
^DD(9002313.02,"B","Pregnancy Indicator",335)=""
^DD(9002313.02,"B","Processor Control Number",104)=""
^DD(9002313.02,"B","RAW DATA SENT",9999)=""
^DD(9002313.02,"B","REOPENED BY",907)=""
^DD(9002313.02,"B","REOPENED COMMENT",908)=""
^DD(9002313.02,"B","REOPENED DATE/TIME",906)=""
^DD(9002313.02,"B","Service Provider ID",201)=""
^DD(9002313.02,"B","Service Provider ID Qualifier",202)=""
^DD(9002313.02,"B","Smoker/Non Smoker",334)=""
^DD(9002313.02,"B","Software Vendor/Cert ID",110)=""
^DD(9002313.02,"B","Transaction Code",103)=""
^DD(9002313.02,"B","Transaction Count",109)=""
^DD(9002313.02,"B","Transmit Flag",.04)=""
^DD(9002313.02,"B","Transmitted On",.05)=""
^DD(9002313.02,"B","VA PLAN IEN",1.04)=""
^DD(9002313.02,"B","Version/Release Number",102)=""
^DD(9002313.02,"GL",0,1,.01)=""
^DD(9002313.02,"GL",0,2,.02)=""
^DD(9002313.02,"GL",0,4,.04)=""
^DD(9002313.02,"GL",0,5,.05)=""
^DD(9002313.02,"GL",0,6,.06)=""
^DD(9002313.02,"GL",0,7,.07)=""
^DD(9002313.02,"GL",1,1,1.01)=""
^DD(9002313.02,"GL",1,4,1.04)=""
^DD(9002313.02,"GL",100,1,101)=""
^DD(9002313.02,"GL",100,2,102)=""
^DD(9002313.02,"GL",100,3,103)=""
^DD(9002313.02,"GL",100,4,104)=""
^DD(9002313.02,"GL",100,9,109)=""
^DD(9002313.02,"GL",100,10,110)=""
^DD(9002313.02,"GL",200,1,201)=""
^DD(9002313.02,"GL",200,2,202)=""
^DD(9002313.02,"GL",300,1,301)=""
^DD(9002313.02,"GL",300,2,302)=""
^DD(9002313.02,"GL",300,3,303)=""
^DD(9002313.02,"GL",300,4,304)=""
^DD(9002313.02,"GL",300,5,305)=""
^DD(9002313.02,"GL",300,6,306)=""
^DD(9002313.02,"GL",300,7,307)=""
^DD(9002313.02,"GL",300,9,309)=""
^DD(9002313.02,"GL",300,10,310)=""
^DD(9002313.02,"GL",300,11,311)=""
^DD(9002313.02,"GL",300,12,312)=""
^DD(9002313.02,"GL",300,13,313)=""
^DD(9002313.02,"GL",300,14,314)=""
^DD(9002313.02,"GL",321,2,322)=""
^DD(9002313.02,"GL",321,3,323)=""
^DD(9002313.02,"GL",321,4,324)=""
^DD(9002313.02,"GL",321,5,325)=""
^DD(9002313.02,"GL",321,6,326)=""
^DD(9002313.02,"GL",330,1,331)=""
^DD(9002313.02,"GL",330,2,332)=""
^DD(9002313.02,"GL",330,3,333)=""
^DD(9002313.02,"GL",330,4,334)=""
^DD(9002313.02,"GL",330,5,335)=""
^DD(9002313.02,"GL",330,6,336)=""
^DD(9002313.02,"GL",400,0,400)=""
^DD(9002313.02,"GL",401,1,401)=""
^DD(9002313.02,"GL",520,4,524)=""
^DD(9002313.02,"GL",900,1,901)=""
^DD(9002313.02,"GL",900,2,902)=""
^DD(9002313.02,"GL",900,3,903)=""
^DD(9002313.02,"GL",900,4,904)=""
^DD(9002313.02,"GL",900,5,905)=""
^DD(9002313.02,"GL",900,6,906)=""
^DD(9002313.02,"GL",900,7,907)=""
^DD(9002313.02,"GL",900,8,908)=""
^DD(9002313.02,"GL","M",0,9999)=""
^DD(9002313.02,"IX",.01)=""
^DD(9002313.02,"IX",.04)=""
^DD(9002313.02,"IX",.05)=""
^DD(9002313.02,"IX",1.01)=""
^DD(9002313.02,"IX",401)=""
^DD(9002313.02,"IX",902)=""
^DD(9002313.02,"SB",9002313.0201,400)=""
^DD(9002313.02,"SB",9002313.29999,9999)=""
^DD(9002313.0201,0)="Medication(s) SUB-FIELD^^600^105"
^DD(9002313.0201,0,"DT")="3070625"
^DD(9002313.0201,0,"IX","AC",9002313.0201,.03)=""
^DD(9002313.0201,0,"IX","B",9002313.0201,.01)=""
^DD(9002313.0201,0,"NM","Medication(s)")=""
^DD(9002313.0201,0,"UP")="9002313.02"
^DD(9002313.0201,.01,0)="Medication Order^MNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.0201,.01,1,0)="^.1"
^DD(9002313.0201,.01,1,1,0)="9002313.0201^B"
^DD(9002313.0201,.01,1,1,1)="S ^BPSC(DA(1),400,""B"",$E(X,1,30),DA)="""""
^DD(9002313.0201,.01,1,1,2)="K ^BPSC(DA(1),400,""B"",$E(X,1,30),DA)"
^DD(9002313.0201,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(9002313.0201,.01,21,0)="^^1^1^3031125^"
^DD(9002313.0201,.01,21,1,0)="Free text to indicate meds ordered."
^DD(9002313.0201,.01,"DT")="3031125"
^DD(9002313.0201,.03,0)="Medication Number^NJ9,0^^0;3^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.0201,.03,1,0)="^.1"
^DD(9002313.0201,.03,1,1,0)="9002313.0201^AC"
^DD(9002313.0201,.03,1,1,1)="S ^BPSC(DA(1),400,""AC"",$E(X,1,30),DA)="""""
^DD(9002313.0201,.03,1,1,2)="K ^BPSC(DA(1),400,""AC"",$E(X,1,30),DA)"
^DD(9002313.0201,.03,1,1,"DT")="2950525"
^DD(9002313.0201,.03,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(9002313.0201,.03,21,0)="^^1^1^3031125^"
^DD(9002313.0201,.03,21,1,0)="Number of the med ordered."
^DD(9002313.0201,.03,"DT")="3031125"
^DD(9002313.0201,.04,0)="Medication Name^F^^0;4^K:$L(X)>50!($L(X)<1) X"
^DD(9002313.0201,.04,3)="Answer must be 1-50 characters in length."
^DD(9002313.0201,.04,21,0)="^^1^1^3031125^"
^DD(9002313.0201,.04,21,1,0)="Name of the med ordered."
^DD(9002313.0201,.04,"DT")="3031125"
^DD(9002313.0201,.05,0)="PRESCRIPTION #^P52'^PSRX(^0;5^Q"
^DD(9002313.0201,.05,3)="Enter the Prescription for this medication"
^DD(9002313.0201,.05,21,0)="^^1^1^3070227^"
^DD(9002313.0201,.05,21,1,0)="This is the prescription associated with the claim"
^DD(9002313.0201,.05,"DT")="3070227"
^DD(9002313.0201,308,0)="Other Coverage Code^F^^300;8^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,308,3)="Answer must be 2 characters in length."
^DD(9002313.0201,308,21,0)="^^1^1^3031125^"
^DD(9002313.0201,308,21,1,0)="Code indicating whether or not the patient has other insurance coverage."
^DD(9002313.0201,308,"DT")="3031125"
^DD(9002313.0201,315,0)="Employer Name^F^^310;5^K:$L(X)>30!($L(X)<30) X"
^DD(9002313.0201,315,3)="Answer must be 30 characters in length."
^DD(9002313.0201,315,21,0)="^^1^1^3031125^"
^DD(9002313.0201,315,21,1,0)="Complete name of employer."
^DD(9002313.0201,315,"DT")="3031125"
^DD(9002313.0201,316,0)="Employer Street Address^F^^310;6^K:$L(X)>30!($L(X)<30) X"
^DD(9002313.0201,316,3)="Answer must be 30 characters in length."
^DD(9002313.0201,316,21,0)="^^1^1^3040126^"
^DD(9002313.0201,316,21,1,0)="The Street address of the insured's employer."
^DD(9002313.0201,316,"DT")="3020731"
^DD(9002313.0201,317,0)="Employer City Address^F^^310;7^K:$L(X)>20!($L(X)<20) X"
^DD(9002313.0201,317,3)="Answer must be 20 characters in length."
^DD(9002313.0201,317,21,0)="^^1^1^3031125^"
^DD(9002313.0201,317,21,1,0)="Free-form text for city name."
^DD(9002313.0201,317,"DT")="3031125"
^DD(9002313.0201,318,0)="Employer State/Prov Address^F^^310;8^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,318,3)="Answer must be 2 characters in length."
^DD(9002313.0201,318,21,0)="^^1^1^3031125^"
^DD(9002313.0201,318,21,1,0)="Standard State/Province Code as defined by appropriate government agency."
^DD(9002313.0201,318,"DT")="3031125"
^DD(9002313.0201,319,0)="Employer Zip/Postal Zone^F^^310;9^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0201,319,3)="Answer must be 15 characters in length."
^DD(9002313.0201,319,21,0)="^^2^2^3031125^"
^DD(9002313.0201,319,21,1,0)="Code defining international postal zone excluding punctuation and blanks "
^DD(9002313.0201,319,21,2,0)="(zip code for US)."
^DD(9002313.0201,319,"DT")="3031125"
^DD(9002313.0201,320,0)="Employer Phone Number^F^^310;10^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.0201,320,3)="Answer must be 10 characters in length."
^DD(9002313.0201,320,21,0)="^^1^1^3031125^"
^DD(9002313.0201,320,21,1,0)="Ten digit phone number of employer."
^DD(9002313.0201,320,"DT")="3031125"
^DD(9002313.0201,321,0)="Employer Contact Name^F^^320;1^K:$L(X)>30!($L(X)<30) X"
^DD(9002313.0201,321,3)="Answer must be 30 characters in length."
^DD(9002313.0201,321,21,0)="^^1^1^3031125^"
^DD(9002313.0201,321,21,1,0)="Employer primary contact."
^DD(9002313.0201,321,"DT")="3031125"
^DD(9002313.0201,327,0)="Carrier ID^F^^320;7^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.0201,327,3)="Answer must be 10 characters in length."
^DD(9002313.0201,327,21,0)="^^1^1^3031125^"
^DD(9002313.0201,327,21,1,0)="Carrier code assigned in Worker's Compensation Program."
^DD(9002313.0201,327,"DT")="3031125"
^DD(9002313.0201,330,0)="Alternate ID^F^^320;10^K:$L(X)>20!($L(X)<20) X"
^DD(9002313.0201,330,3)="Answer must be 20 characters in length."
^DD(9002313.0201,330,21,0)="^^3^3^3031125^"
^DD(9002313.0201,330,21,1,0)="Person identifier to be used for controlled product reporting. Identifier "
^DD(9002313.0201,330,21,2,0)="may be that of the patient or the person picking up the prescription as "
^DD(9002313.0201,330,21,3,0)="required by the governing body."
^DD(9002313.0201,330,"DT")="3031125"
^DD(9002313.0201,337,0)="COB/Other Payments Cnt^F^^330;7^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,337,3)="Answer must be 1 character in length."
^DD(9002313.0201,337,21,0)="^^1^1^3031125^"
^DD(9002313.0201,337,21,1,0)="Count of other payment occurrences."
^DD(9002313.0201,337,"DT")="3031125"
^DD(9002313.0201,337.01,0)="COB/Other Payments  ^9002313.0401A^^337;0"
^DD(9002313.0201,343,0)="Dispensing Status^F^^340;3^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,343,3)="Answer must be 1 character in length."
^DD(9002313.0201,343,21,0)="^^1^1^3031203^"
^DD(9002313.0201,343,21,1,0)="The status of the medication order at the time the claim was built."
^DD(9002313.0201,343,"DT")="3020731"
^DD(9002313.0201,344,0)="Qty Intended to be Dispensed^F^^340;4^K:$L(X)>12!($L(X)<12) X"
^DD(9002313.0201,344,3)="Answer must be 12 characters in length"
^DD(9002313.0201,344,21,0)="^^2^2^3070625^"
^DD(9002313.0201,344,21,1,0)="The quantity ordered - may differ from qty dispensed depending on stock "
^DD(9002313.0201,344,21,2,0)="levels"
^DD(9002313.0201,344,"DT")="3070625"
^DD(9002313.0201,345,0)="Days Supply Intd Dispensed^F^^340;5^K:$L(X)>3!($L(X)<3) X"
^DD(9002313.0201,345,3)="Answer must be 3 characters in length."
^DD(9002313.0201,345,21,0)="^^1^1^3031203^"
^DD(9002313.0201,345,21,1,0)="The days supply from the order information."
^DD(9002313.0201,345,"DT")="3020731"
^DD(9002313.0201,401,0)="Date of Service^FO^^400;1^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,401,2)="S Y(0)=Y S Y=$$FM2EXT^BPSOSU1(Y-17000000)"
^DD(9002313.0201,401,2.1)="S Y=$$FM2EXT^BPSOSU1(Y-17000000)"
^DD(9002313.0201,401,3)="Answer must be 8 characters in length."
^DD(9002313.0201,401,21,0)="^^1^1^3031203^"
^DD(9002313.0201,401,21,1,0)="The fill/refill date"
^DD(9002313.0201,401,"DT")="3020726"
^DD(9002313.0201,402,0)="Prescription/Service Ref Num^F^^400;2^K:$L(X)>7!($L(X)<1) X"
^DD(9002313.0201,402,3)="Answer must be 1-7 characters in length."
^DD(9002313.0201,402,21,0)="^^1^1^3031203^"
^DD(9002313.0201,402,21,1,0)="The first seven digits of the prescription IEN"
^DD(9002313.0201,402,"DT")="3020724"
^DD(9002313.0201,403,0)="Fill Number^FO^^400;3^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,403,2)="S Y(0)=Y S:$E(Y,1,1)'[""D"" Y=+Y"
^DD(9002313.0201,403,2.1)="S:$E(Y,1,1)'[""D"" Y=+Y"
^DD(9002313.0201,403,3)="Answer must be 2 characters in length."
^DD(9002313.0201,403,21,0)="^^1^1^3031203^"
^DD(9002313.0201,403,21,1,0)="The fill/refill number, starting at 0 for the original fill."
^DD(9002313.0201,403,"DT")="3020805"
^DD(9002313.0201,405,0)="Days Supply^FO^^400;5^K:$L(X)>3!($L(X)<3) X"
^DD(9002313.0201,405,2)="S Y(0)=Y S:$E(Y,1,1)'[""D"" Y=+Y"
^DD(9002313.0201,405,2.1)="S:$E(Y,1,1)'[""D"" Y=+Y"
^DD(9002313.0201,405,3)="Answer must be 3 characters in length."
^DD(9002313.0201,405,21,0)="^^1^1^3031203^"
^DD(9002313.0201,405,21,1,0)="The actual days supply dispensed."
^DD(9002313.0201,405,"DT")="3020805"
^DD(9002313.0201,406,0)="Compound Code^F^^400;6^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,406,3)="Answer must be 1 character in length."
^DD(9002313.0201,406,21,0)="^^2^2^3040331^"
^DD(9002313.0201,406,21,1,0)="Field indicating whether this prescription was a compound (1)"
^DD(9002313.0201,406,21,2,0)="or not a compound (0)."
^DD(9002313.0201,406,"DT")="3040331"
^DD(9002313.0201,407,0)="Product/Service ID^FO^^400;7^K:$L(X)>19!($L(X)<11) X"
^DD(9002313.0201,407,2)="S Y(0)=Y Q:$E(Y,1,1)[""D""  S Y=$E(Y,1,5)_""-""_$E(Y,6,9)_""-""_$E(Y,10,11)"
^DD(9002313.0201,407,2.1)="Q:$E(Y,1,1)[""D""  S Y=$E(Y,1,5)_""-""_$E(Y,6,9)_""-""_$E(Y,10,11)"
^DD(9002313.0201,407,3)="Answer must be 11-19 characters in length."
^DD(9002313.0201,407,21,0)="^^1^1^3031203^"
^DD(9002313.0201,407,21,1,0)="NDC code in our case."
^DD(9002313.0201,407,"DT")="3020805"
^DD(9002313.0201,408,0)="Dispense as Wrtn/Prd Sel Cd^F^^400;8^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,408,3)="Answer must be 1 character in length."
^DD(9002313.0201,408,21,0)="^^2^2^3031203^"
^DD(9002313.0201,408,21,1,0)="Indicator for whether the prescription was to be dispensed only as "
^DD(9002313.0201,408,21,2,0)="written."
^DD(9002313.0201,408,"DT")="3020726"
^DD(9002313.0201,409,0)="Ingredient Cost Submitted^FO^^400;9^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0201,409,2)="S Y(0)=Y ;S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0201,409,2.1)=";S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0201,409,3)="Answer must be 6-8 characters in length."
^DD(9002313.0201,409,21,0)="^^1^1^3031203^"
^DD(9002313.0201,409,21,1,0)="Cost amount for the ingredients of compounds."
^DD(9002313.0201,409,"DT")="3020805"
^DD(9002313.0201,411,0)="Prescriber ID^F^^400;11^K:$L(X)>15!($L(X)<10) X"
^DD(9002313.0201,411,3)="Answer must be 10-15 characters in length."
^DD(9002313.0201,411,21,0)="^^1^1^3031203^"
^DD(9002313.0201,411,21,1,0)="Prescriber identification number."
^DD(9002313.0201,411,"DT")="3020726"
^DD(9002313.0201,412,0)="Dispensing Fee Submitted^FO^^400;12^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0201,412,2)="S Y(0)=Y ;S Y=""$""_$J($$DFF2EXT^BPSECFM($E(Y,3,$L(Y))),7,2)"
^DD(9002313.0201,412,2.1)=";S Y=""$""_$J($$DFF2EXT^BPSECFM($E(Y,3,$L(Y))),7,2)"
^DD(9002313.0201,412,3)="Answer must be 6-8 characters in length."
^DD(9002313.0201,412,21,0)="^^2^2^3031203^"
^DD(9002313.0201,412,21,1,0)="Add-on fee charged in a retail setting.  This field will probably be used "
^DD(9002313.0201,412,21,2,0)="when the Tricare functionality is added."
^DD(9002313.0201,412,"DT")="3020805"
^DD(9002313.0201,414,0)="Date Prescription Written^F^^400;14^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,414,3)="Answer must be 8 characters in length."
^DD(9002313.0201,414,21,0)="^^2^2^3031203^"
^DD(9002313.0201,414,21,1,0)="This will be the fill/refill date for local fills, the released date for "
^DD(9002313.0201,414,21,2,0)="CMOP."
^DD(9002313.0201,414,"DT")="2950410"
^DD(9002313.0201,415,0)="Number Refills Authorized^F^^400;15^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,415,3)="Answer must be 2 characters in length."
^DD(9002313.0201,415,21,0)="^^1^1^3031203^"
^DD(9002313.0201,415,21,1,0)="The number of refills allowed that was entered during order entry."
^DD(9002313.0201,415,"DT")="2950410"
^DD(9002313.0201,418,0)="Level of Service^F^^400;18^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,418,3)="Answer must be 2 characters in length."
^DD(9002313.0201,418,21,0)="^^1^1^3031203^"
^DD(9002313.0201,418,21,1,0)="Not used for VA - left in for IHS"
^DD(9002313.0201,418,"DT")="2950410"
^DD(9002313.0201,419,0)="Prescription Origin Code^F^^400;19^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,419,3)="Answer must be 1 character in length."
^DD(9002313.0201,419,21,0)="^^1^1^3031203^"
^DD(9002313.0201,419,21,1,0)="Not used by VA - left in for IHS"
^DD(9002313.0201,419,"DT")="2950410"
^DD(9002313.0201,420,0)="Submission Clarification Code^F^^400;20^K:$L(X)>4!($L(X)<3) X"
^DD(9002313.0201,420,3)="Answer must be 3-4 characters in length."
^DD(9002313.0201,420,21,0)="^.001^1^1^3070119^^"
^DD(9002313.0201,420,21,1,0)="Submission Clarification Code"
^DD(9002313.0201,420,"DT")="3070213"
^DD(9002313.0201,421,0)="Primary Care Provider ID^F^^400;21^K:$L(X)>15!($L(X)<10) X"
^DD(9002313.0201,421,3)="Answer must be 10-15 characters in length."
^DD(9002313.0201,421,21,0)="^^1^1^3031203^"
^DD(9002313.0201,421,21,1,0)="Provider ID number"
^DD(9002313.0201,421,"DT")="3020726"
^DD(9002313.0201,423,0)="Basis of Cost Determination^F^^400;23^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,423,3)="Answer must be 2 characters in length."
^DD(9002313.0201,423,21,0)="^^1^1^3031203^"
^DD(9002313.0201,423,21,1,0)="How the amount charged was arrived at."
^DD(9002313.0201,423,"DT")="2950410"
^DD(9002313.0201,424,0)="Diagnosis Code^F^^400;24^K:$L(X)>15!($L(X)<6) X"
^DD(9002313.0201,424,3)="Answer must be 6-15 characters in length."
^DD(9002313.0201,424,21,0)="^^3^3^3031203^"
^DD(9002313.0201,424,21,1,0)="Diagnosis code that applies to this prescription.  "
^DD(9002313.0201,424,21,2,0)="Not used for third party billing as of this date - so it"
^DD(9002313.0201,424,21,3,0)="is not used, but may be used in the future."
^DD(9002313.0201,424,"DT")="3020726"
^DD(9002313.0201,426,0)="Usual & Customary Charge^F^^400;26^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0201,426,3)="Answer must be 6-8 characters in length."
^DD(9002313.0201,426,21,0)="^^4^4^3031203^"
^DD(9002313.0201,426,21,1,0)="Amount charged cash"
^DD(9002313.0201,426,21,2,0)="customers for the prescription"
^DD(9002313.0201,426,21,3,0)="exclusive of sales tax or other"
^DD(9002313.0201,426,21,4,0)="amounts claimed."
^DD(9002313.0201,426,"DT")="3020726"
^DD(9002313.0201,427,0)="Prescriber Last Name^F^^420;27^K:$L(X)>17!($L(X)<1) X"
^DD(9002313.0201,427,3)="Answer must be 1-17 characters in length."
^DD(9002313.0201,427,21,0)="^^1^1^3031203^"
^DD(9002313.0201,427,21,1,0)="Last Name of the Prescriber"
^DD(9002313.0201,427,"DT")="3010125"
^DD(9002313.0201,429,0)="Unit Dose Indicator^F^^400;29^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,429,3)="Answer must be 1 character in length."
^DD(9002313.0201,429,21,0)="^^7^7^3031203^"
^DD(9002313.0201,429,21,1,0)="Code indicating the type of unit"
^DD(9002313.0201,429,21,2,0)="dose dispensing."
^DD(9002313.0201,429,21,3,0)=" "
^DD(9002313.0201,429,21,4,0)="Ø=Not Specified"
^DD(9002313.0201,429,21,5,0)="1=Not Unit Dose"
^DD(9002313.0201,429,21,6,0)="2=Manufacturer Unit Dose"
^DD(9002313.0201,429,21,7,0)="3=Pharmacy Unit Dose"
^DD(9002313.0201,429,"DT")="2950410"
^DD(9002313.0201,430,0)="Gross Amount Due^F^^400;30^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0201,430,3)="Answer must be 6-8 characters in length."
^DD(9002313.0201,430,21,0)="^^2^2^3031203^"
^DD(9002313.0201,430,21,1,0)="Total amount submitted to the"
^DD(9002313.0201,430,21,2,0)="payer."
^DD(9002313.0201,430,"DT")="3020726"
^DD(9002313.0201,431,0)="Other Payer Amount^F^^430;1^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0201,431,3)="Answer must be 6-8 characters in length."
^DD(9002313.0201,431,21,0)="^^3^3^3031203^"
^DD(9002313.0201,431,21,1,0)="Amount of any payment known"
^DD(9002313.0201,431,21,2,0)="by the pharmacy from other"
^DD(9002313.0201,431,21,3,0)="sources (including coupons)."
^DD(9002313.0201,431,"DT")="3020726"
^DD(9002313.0201,433,0)="Patient Paid Amount Submitted^F^^430;3^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0201,433,3)="Answer must be 6-8 characters in length."
^DD(9002313.0201,433,21,0)="^^3^3^3031203^"
^DD(9002313.0201,433,21,1,0)="Amount the pharmacy"
^DD(9002313.0201,433,21,2,0)="received from the patient for"
^DD(9002313.0201,433,21,3,0)="the prescription dispensed."
^DD(9002313.0201,433,"DT")="3020726"
^DD(9002313.0201,434,0)="Date of Injury^F^^430;4^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.0201,434,3)="Answer must be 1-10 characters in length."
^DD(9002313.0201,434,21,0)="^^2^2^3031203^"
^DD(9002313.0201,434,21,1,0)="Date on which the injury"
^DD(9002313.0201,434,21,2,0)="occurred."
^DD(9002313.0201,434,"DT")="3020726"
^DD(9002313.0201,435,0)="Claim/Ref ID Number^F^^430;5^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.0201,435,3)="Answer must be 1-30 characters in length."
^DD(9002313.0201,435,21,0)="^^3^3^3031203^"
^DD(9002313.0201,435,21,1,0)="Identifies the claim number"
^DD(9002313.0201,435,21,2,0)="assigned by Workers"
^DD(9002313.0201,435,21,3,0)="Compensation Program."
^DD(9002313.0201,435,"DT")="3020726"
^DD(9002313.0201,436,0)="Product/Service ID Qualifier^F^^430;6^K:$L(X)>3!($L(X)<1) X"
^DD(9002313.0201,436,3)="Answer must be 1-3 characters in length."
^DD(9002313.0201,436,21,0)="^^33^33^3031203^"
^DD(9002313.0201,436,21,1,0)="Code qualifying the value in"
^DD(9002313.0201,436,21,2,0)="'Product/Service ID' (4Ø7-D7)"
^DD(9002313.0201,436,21,3,0)=" "
^DD(9002313.0201,436,21,4,0)="Not Specified Blank"
^DD(9002313.0201,436,21,5,0)="Not Specified ØØ"
^DD(9002313.0201,436,21,6,0)="Universal Product Code (UPC) Ø1"
^DD(9002313.0201,436,21,7,0)="Health Related Item (HRI) Ø2"
^DD(9002313.0201,436,21,8,0)="National Drug Code (NDC) Ø3"
^DD(9002313.0201,436,21,9,0)="Universal Product Number (UPN) Ø4"
^DD(9002313.0201,436,21,10,0)="Department of Defense (DOD) Ø5"
^DD(9002313.0201,436,21,11,0)="Drug Use Review/ Professional Pharmacy Service (DUR/PPS) Ø6"
^DD(9002313.0201,436,21,12,0)="Common Procedure Terminology (CPT4) Ø7"
^DD(9002313.0201,436,21,13,0)="Common Procedure Terminology (CPT5) Ø8"
^DD(9002313.0201,436,21,14,0)="Health Care Financing Administration Common Procedural"
^DD(9002313.0201,436,21,15,0)="Coding System (HCPCS)"
^DD(9002313.0201,436,21,16,0)="Ø9"
^DD(9002313.0201,436,21,17,0)="Pharmacy Practice Activity Classification (PPAC) 1Ø"
^DD(9002313.0201,436,21,18,0)="National Pharmaceutical Product Interface Code(NAPPI) 11"
^DD(9002313.0201,436,21,19,0)="International Article Numbering System(EAN) 12"
^DD(9002313.0201,436,21,20,0)="Drug Identification Number(DIN) 13"
^DD(9002313.0201,436,21,21,0)="Medi-Span GPI 14"
^DD(9002313.0201,436,21,22,0)="First DataBank GCN 15"
^DD(9002313.0201,436,21,23,0)="Medical Economics GPO 16"
^DD(9002313.0201,436,21,24,0)="Medi-Span DDID 17"
^DD(9002313.0201,436,21,25,0)="First DataBank SmartKey 18"
^DD(9002313.0201,436,21,26,0)="Medical Economics GM 19"
^DD(9002313.0201,436,21,27,0)="International Classification of Diseases(ICD9) 2Ø"
^DD(9002313.0201,436,21,28,0)="International Classification of Diseases (ICD10) 21"
^DD(9002313.0201,436,21,29,0)="Medi-Span Diagnosis Code 22"
^DD(9002313.0201,436,21,30,0)="Common Dental Terminology (CDT) 25"
^DD(9002313.0201,436,21,31,0)="American Psychiatric Association Diagnostic Statistical Manual"
^DD(9002313.0201,436,21,32,0)="of Mental Disorders (DSM IV)"
^DD(9002313.0201,436,21,33,0)="Other                       99"
^DD(9002313.0201,436,"DT")="3020726"
^DD(9002313.0201,438,0)="Incentive Amount Submitted^F^^430;8^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0201,438,3)="Answer must be 6-8 characters in length."
^DD(9002313.0201,438,21,0)="^^6^6^3031203^"
^DD(9002313.0201,438,21,1,0)="Amount represents a fee that"
^DD(9002313.0201,438,21,2,0)="is submitted by the pharmacy"
^DD(9002313.0201,438,21,3,0)="for contractually agreed upon"
^DD(9002313.0201,438,21,4,0)="services. This amount is"
^DD(9002313.0201,438,21,5,0)="included in the 'Gross Amount"
^DD(9002313.0201,438,21,6,0)="Due' (43Ø-DU)."
^DD(9002313.0201,438,"DT")="3020726"
^DD(9002313.0201,442,0)="Quantity Dispensed^F^^440;2^K:$L(X)>12!($L(X)<12) X"
^DD(9002313.0201,442,3)="Answer must be 12 characters in length"
^DD(9002313.0201,442,21,0)="^^1^1^3070625^"
^DD(9002313.0201,442,21,1,0)="Quantity dispensed expressed in metric decimal units."
^DD(9002313.0201,442,"DT")="3070625"
^DD(9002313.0201,443,0)="Other Payer Date^F^^440;3^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,443,3)="Answer must be 8 characters in length."
^DD(9002313.0201,443,21,0)="^^4^4^3031203^"
^DD(9002313.0201,443,21,1,0)="Payment or denial date of the"
^DD(9002313.0201,443,21,2,0)="claim submitted to the other"
^DD(9002313.0201,443,21,3,0)="payer. Used for coordination of"
^DD(9002313.0201,443,21,4,0)="benefits."
^DD(9002313.0201,443,"DT")="3020726"
^DD(9002313.0201,444,0)="Provider ID^F^^440;4^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0201,444,3)="Answer must be 15 characters in length."
^DD(9002313.0201,444,21,0)="^^4^4^3031203^"
^DD(9002313.0201,444,21,1,0)="Unique ID assigned to the"
^DD(9002313.0201,444,21,2,0)="person responsible for the"
^DD(9002313.0201,444,21,3,0)="dispensing of the prescription"
^DD(9002313.0201,444,21,4,0)="or provision of the service."
^DD(9002313.0201,444,"DT")="3020730"
^DD(9002313.0201,445,0)="Orig Pres Prod/Srv Cd^F^^440;5^K:$L(X)>19!($L(X)<19) X"
^DD(9002313.0201,445,3)="Answer must be 19 characters in length."
^DD(9002313.0201,445,21,0)="^^2^2^3031203^"
^DD(9002313.0201,445,21,1,0)="Code of the initially prescribed"
^DD(9002313.0201,445,21,2,0)="product or service."
^DD(9002313.0201,445,"DT")="3020730"
^DD(9002313.0201,446,0)="Originally Prescribed Quantity^F^^440;6^K:$L(X)>12!($L(X)<12) X"
^DD(9002313.0201,446,3)="Answer must be 12 characters in length"
^DD(9002313.0201,446,21,0)="^^1^1^3070625^"
^DD(9002313.0201,446,21,1,0)="Product initially prescribed amount expressed in metric decimal units."
^DD(9002313.0201,446,"DT")="3070625"
^DD(9002313.0201,447,0)="Comp Ingred Component Cnt^F^^440;7^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,447,3)="Answer must be 2 characters in length."
^DD(9002313.0201,447,21,0)="^.001^4^4^3031216^^"
^DD(9002313.0201,447,21,1,0)="Count of compound product"
^DD(9002313.0201,447,21,2,0)="IDs (both active and inactive)"
^DD(9002313.0201,447,21,3,0)="in the compound mixture"
^DD(9002313.0201,447,21,4,0)="submitted."
^DD(9002313.0201,447,"DT")="3020730"
^DD(9002313.0201,447.01,0)="Compound Repeating Fields^9002313.0501A^^447;0"
^DD(9002313.0201,447.01,"DT")="3021031"
^DD(9002313.0201,450,0)="Compound Dosage Form Desc Cd^F^^440;10^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,450,3)="Answer must be 2 characters in length."
^DD(9002313.0201,450,21,0)="^^1^1^3031203^"
^DD(9002313.0201,450,21,1,0)="Description of the compound ingredients."
^DD(9002313.0201,450,"DT")="3020730"
^DD(9002313.0201,451,0)="Compound Disp Unit Form Ind^F^^450;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,451,3)="Answer must be 1 character in length."
^DD(9002313.0201,451,21,0)="^^2^2^3031203^"
^DD(9002313.0201,451,21,1,0)="NCPDP standard product"
^DD(9002313.0201,451,21,2,0)="billing codes."
^DD(9002313.0201,451,"DT")="3020730"
^DD(9002313.0201,452,0)="Compound Route of Admin^F^^450;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,452,3)="Answer must be 2 characters in length."
^DD(9002313.0201,452,21,0)="^^3^3^3031203^"
^DD(9002313.0201,452,21,1,0)="Code for the route of"
^DD(9002313.0201,452,21,2,0)="administration of the complete"
^DD(9002313.0201,452,21,3,0)="compound mixture."
^DD(9002313.0201,452,"DT")="3020730"
^DD(9002313.0201,453,0)="Orig Pres/Serv ID Qual^F^^450;3^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,453,3)="Answer must be 2 characters in length."
^DD(9002313.0201,453,21,0)="^^2^2^3031203^"
^DD(9002313.0201,453,21,1,0)="Code qualifying the value in 'Originally Prescribed"
^DD(9002313.0201,453,21,2,0)="Product/Service Code  (Field 445-EA)."
^DD(9002313.0201,453,"DT")="3020730"
^DD(9002313.0201,454,0)="Scheduled Pres ID Number^F^^450;4^K:$L(X)>12!($L(X)<12) X"
^DD(9002313.0201,454,3)="Answer must be 12 characters in length."
^DD(9002313.0201,454,21,0)="^^1^1^3031203^"
^DD(9002313.0201,454,21,1,0)="The serial number of the prescription blank/form."
^DD(9002313.0201,454,"DT")="3020730"
^DD(9002313.0201,455,0)="Pres/Srv Ref Number Qual^F^^450;5^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,455,3)="Answer must be 1 character in length."
^DD(9002313.0201,455,21,0)="^^1^1^3031203^"
^DD(9002313.0201,455,21,1,0)="Indicates the type of billing submitted."
^DD(9002313.0201,455,"DT")="3020730"
^DD(9002313.0201,456,0)="Assoc Pres/Srv Ref Number^F^^450;6^K:$L(X)>7!($L(X)<7) X"
^DD(9002313.0201,456,3)="Answer must be 7 characters in length."
^DD(9002313.0201,456,21,0)="^^2^2^3031203^"
^DD(9002313.0201,456,21,1,0)="Related  Prescription/Service Reference Number  (4Ø2-D2)"
^DD(9002313.0201,456,21,2,0)="to which the service is associated."
^DD(9002313.0201,456,"DT")="3020730"
^DD(9002313.0201,457,0)="Assoc Pres/Srv Date^F^^450;7^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,457,3)="Answer must be 8 characters in length."
^DD(9002313.0201,457,21,0)="^^1^1^3031203^"
^DD(9002313.0201,457,21,1,0)="Date of the Associated Prescription/Service Reference Number."
^DD(9002313.0201,457,"DT")="3020730"
^DD(9002313.0201,458,0)="Procedure Mod Code Cnt^F^^450;8^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,458,3)="Answer must be 1 character in length."
^DD(9002313.0201,458,21,0)="^^3^3^3031203^"
^DD(9002313.0201,458,21,1,0)="Count of the  Procedure"
^DD(9002313.0201,458,21,2,0)="Modifier Code  (459-ER)"
^DD(9002313.0201,458,21,3,0)="occurrences."
^DD(9002313.0201,458,"DT")="3020730"
^DD(9002313.0201,459,0)="Procedure Modifier Code^9002313.201459A^^459;0"
^DD(9002313.0201,459,21,0)="^^1^1^3031216^"
^DD(9002313.0201,459,21,1,0)="Multiple for storing procedure code information."
^DD(9002313.0201,460,0)="Quantity Prescribed^F^^450;10^K:$L(X)>12!($L(X)<12) X"
^DD(9002313.0201,460,3)="Answer must be 12 characters in length"
^DD(9002313.0201,460,21,0)="^^1^1^3070625^"
^DD(9002313.0201,460,21,1,0)="Quantity prescribed during order entry."
^DD(9002313.0201,460,"DT")="3070625"
^DD(9002313.0201,461,0)="Prior Authorization Type Code^F^^460;1^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.0201,461,3)="Answer must be 4 characters in length."
^DD(9002313.0201,461,21,0)="^.001^1^1^3070316^^"
^DD(9002313.0201,461,21,1,0)="Code clarifying the  Prior Authorization Number  (462- EV)."
^DD(9002313.0201,461,"DT")="3070316"
^DD(9002313.0201,462,0)="Prior Authorization Num Sub^F^^460;2^K:$L(X)>13!($L(X)<13) X"
^DD(9002313.0201,462,3)="Answer must be 13 characters in length."
^DD(9002313.0201,462,21,0)="^.001^3^3^3070316^^"
^DD(9002313.0201,462,21,1,0)="Number submitted by the"
^DD(9002313.0201,462,21,2,0)="provider to identify the prior"
^DD(9002313.0201,462,21,3,0)="authorization."
^DD(9002313.0201,462,"DT")="3070316"
^DD(9002313.0201,463,0)="Intermediary Auth Type ID^F^^460;3^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,463,3)="Answer must be 2 characters in length."
^DD(9002313.0201,463,21,0)="^^3^3^3031204^"
^DD(9002313.0201,463,21,1,0)="Value indicating that"
^DD(9002313.0201,463,21,2,0)="authorization occurred for"
^DD(9002313.0201,463,21,3,0)="intermediary processing."
^DD(9002313.0201,463,"DT")="3020730"
^DD(9002313.0201,464,0)="Intermediary Auth ID^F^^460;4^K:$L(X)>11!($L(X)<11) X"
^DD(9002313.0201,464,3)="Answer must be 11 characters in length."
^DD(9002313.0201,464,21,0)="^^2^2^3031204^"
^DD(9002313.0201,464,21,1,0)="Value indicating intermediary"
^DD(9002313.0201,464,21,2,0)="authorization occurred."
^DD(9002313.0201,464,"DT")="3020730"
^DD(9002313.0201,465,0)="Provider ID Qualifier^F^^460;5^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,465,3)="Answer must be 2 characters in length."
^DD(9002313.0201,465,21,0)="^^1^1^3031204^"
^DD(9002313.0201,465,21,1,0)="Code qualifying the  Provider ID  (444-E9)."
^DD(9002313.0201,465,"DT")="3020730"
^DD(9002313.0201,466,0)="Prescriber ID Qualifier^F^^460;6^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,466,3)="Answer must be 2 characters in length."
^DD(9002313.0201,466,21,0)="^^1^1^3031204^"
^DD(9002313.0201,466,21,1,0)="Code qualifying the  Prescriber ID  (411-DB)."
^DD(9002313.0201,466,"DT")="3020730"
^DD(9002313.0201,467,0)="Prescriber Location Code^F^^460;7^K:$L(X)>3!($L(X)<3) X"
^DD(9002313.0201,467,3)="Answer must be 3 characters in length."
^DD(9002313.0201,467,21,0)="^^4^4^3031204^"
^DD(9002313.0201,467,21,1,0)="Location address code"
^DD(9002313.0201,467,21,2,0)="assigned to the prescriber as"
^DD(9002313.0201,467,21,3,0)="identified in the National"
^DD(9002313.0201,467,21,4,0)="Provider System (NPS)."
^DD(9002313.0201,467,"DT")="3020730"
^DD(9002313.0201,468,0)="Primary Care Prov ID Qual^F^^460;8^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,468,3)="Answer must be 2 characters in length."
^DD(9002313.0201,468,21,0)="^^1^1^3031204^"
^DD(9002313.0201,468,21,1,0)="Code qualifying the  Primary Care Provider ID  (421-DL)."
^DD(9002313.0201,468,"DT")="3020730"
^DD(9002313.0201,469,0)="Primary Care Prov Loc Cd^F^^460;9^K:$L(X)>3!($L(X)<3) X"
^DD(9002313.0201,469,3)="Answer must be 3 characters in length."
^DD(9002313.0201,469,21,0)="^.001^5^5^3031216^^"
^DD(9002313.0201,469,21,1,0)="Location address code"
^DD(9002313.0201,469,21,2,0)="assigned to the primary care"
^DD(9002313.0201,469,21,3,0)="provider as identified in the"
^DD(9002313.0201,469,21,4,0)="National Provider System"
^DD(9002313.0201,469,21,5,0)="(NPS)."
^DD(9002313.0201,469,"DT")="3020730"
^DD(9002313.0201,470,0)="Primary Care Prov Last Name^F^^460;10^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0201,470,3)="Answer must be 15 characters in length."
^DD(9002313.0201,470,21,0)="^^1^1^3031216^"
^DD(9002313.0201,470,21,1,0)="Last name of the Primary Care Provider"
^DD(9002313.0201,470,"DT")="3020730"
^DD(9002313.0201,471,0)="Other Payer Reject Count^F^^470;1^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,471,3)="Answer must be 2 characters in length."
^DD(9002313.0201,471,21,0)="^^1^1^3031204^"
^DD(9002313.0201,471,21,1,0)="Count of  Other Payer Reject Code  (472-6E) occurrences."
^DD(9002313.0201,471,"DT")="3020730"
^DD(9002313.0201,473.01,0)="DUR/PPS Repeating Fields^9002313.1001A^^473.01;0"
^DD(9002313.0201,473.01,21,0)="^.001^1^1^3040126^^"
^DD(9002313.0201,473.01,21,1,0)="Count of Drug Utilization sub-records."
^DD(9002313.0201,477,0)="Professional Srv Fee Submitted^F^^470;7^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,477,3)="Answer must be 8 characters in length."
^DD(9002313.0201,477,21,0)="^^3^3^3031204^"
^DD(9002313.0201,477,21,1,0)="Amount submitted by the"
^DD(9002313.0201,477,21,2,0)="provider for professional"
^DD(9002313.0201,477,21,3,0)="services rendered."
^DD(9002313.0201,477,"DT")="3020730"
^DD(9002313.0201,478,0)="Other Amt Claimed Sub Cnt^F^^470;8^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,478,3)="Answer must be 1 character in length."
^DD(9002313.0201,478,21,0)="^^1^1^3031204^"
^DD(9002313.0201,478,21,1,0)="Count of other amount claimed submitted occurrences."
^DD(9002313.0201,478,"DT")="3020730"
^DD(9002313.0201,478.01,0)="Pricing Repeating Section^9002313.0601A^^478.01;0"
^DD(9002313.0201,478.01,21,0)="^.001^1^1^3040126^^"
^DD(9002313.0201,478.01,21,1,0)="Pricing record information counter."
^DD(9002313.0201,481,0)="Flat Sales Tax Amt Sub^F^^480;1^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,481,3)="Answer must be 8 characters in length."
^DD(9002313.0201,481,21,0)="^^2^2^3031204^"
^DD(9002313.0201,481,21,1,0)="Flat sales tax submitted for prescription. This amount is"
^DD(9002313.0201,481,21,2,0)="included in the  Gross Amount Due  (43Ø-DU)."
^DD(9002313.0201,481,"DT")="3020730"
^DD(9002313.0201,482,0)="Percentage Sales Tax Amt Sub^F^^480;2^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,482,3)="Answer must be 8 characters in length."
^DD(9002313.0201,482,21,0)="^^1^1^3031204^"
^DD(9002313.0201,482,21,1,0)="Percentage sales tax submitted."
^DD(9002313.0201,482,"DT")="3020730"
^DD(9002313.0201,483,0)="Percentage Sales Tax Rate Sub^F^^480;3^K:$L(X)>7!($L(X)<7) X"
^DD(9002313.0201,483,3)="Answer must be 7 characters in length."
^DD(9002313.0201,483,21,0)="^^2^2^3031204^"
^DD(9002313.0201,483,21,1,0)="Percentage sales tax rate used to calculate  Percentage Sales"
^DD(9002313.0201,483,21,2,0)="Tax Amount Submitted  (482- GE"
^DD(9002313.0201,483,"DT")="3020730"
^DD(9002313.0201,484,0)="Percentage Sales Tax Basis Sub^F^^480;4^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,484,3)="Answer must be 2 characters in length."
^DD(9002313.0201,484,21,0)="^^1^1^3031204^"
^DD(9002313.0201,484,21,1,0)="Code indicating the basis for percentage sales tax."
^DD(9002313.0201,484,"DT")="3020730"
^DD(9002313.0201,485,0)="Coupon Type^F^^480;5^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,485,3)="Answer must be 2 characters in length."
^DD(9002313.0201,485,21,0)="^^1^1^3031204^"
^DD(9002313.0201,485,21,1,0)="Code indicating the type of coupon being used."
^DD(9002313.0201,485,"DT")="3020730"
^DD(9002313.0201,486,0)="Coupon Number^F^^480;6^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0201,486,3)="Answer must be 15 characters in length."
^DD(9002313.0201,486,21,0)="^^1^1^3031204^"
^DD(9002313.0201,486,21,1,0)="Unique serial number assigned to the prescription coupons."
^DD(9002313.0201,486,"DT")="3020730"
^DD(9002313.0201,487,0)="Coupon Value Amount^F^^480;7^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,487,3)="Answer must be 8 characters in length."
^DD(9002313.0201,487,21,0)="^^1^1^3031204^"
^DD(9002313.0201,487,21,1,0)="Value of the coupon."
^DD(9002313.0201,487,"DT")="3020730"
^DD(9002313.0201,491,0)="Diagnosis Code Count^F^^490;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,491,3)="Answer must be 1 character in length."
^DD(9002313.0201,491,21,0)="^^1^1^3031204^"
^DD(9002313.0201,491,21,1,0)="Count of diagnosis occurrences."
^DD(9002313.0201,491,"DT")="3020730"
^DD(9002313.0201,491.01,0)="Clinical Diagnosis Repeating^9002313.0701A^^491.01;0"
^DD(9002313.0201,491.01,21,0)="^.001^1^1^3040126^^^"
^DD(9002313.0201,491.01,21,1,0)="Count of Diagnosis sub-records."
^DD(9002313.0201,493.01,0)="Clinical Information Repeating^9002313.0801A^^493.01;0"
^DD(9002313.0201,493.01,21,0)="^.001^1^1^3040126^^^"
^DD(9002313.0201,493.01,21,1,0)="Count of clinical information sub-records."
^DD(9002313.0201,498.01,0)="Request Type^F^^498;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0201,498.01,3)="Answer must be 1 character in length."
^DD(9002313.0201,498.01,21,0)="^^2^2^3031204^"
^DD(9002313.0201,498.01,21,1,0)="Code identifying type of prior"
^DD(9002313.0201,498.01,21,2,0)="authorization request."
^DD(9002313.0201,498.01,"DT")="3020730"
^DD(9002313.0201,498.02,0)="Request Period Date-Begin^F^^498;2^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,498.02,3)="Answer must be 8 characters in length."
^DD(9002313.0201,498.02,21,0)="^^2^2^3031204^"
^DD(9002313.0201,498.02,21,1,0)="Beginning date for a prior"
^DD(9002313.0201,498.02,21,2,0)="authorization request."
^DD(9002313.0201,498.02,"DT")="3020730"
^DD(9002313.0201,498.03,0)="Request Period Date-End^F^^498;3^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0201,498.03,3)="Answer must be 8 characters in length."
^DD(9002313.0201,498.03,21,0)="^^2^2^3031204^"
^DD(9002313.0201,498.03,21,1,0)="End date for a prior"
^DD(9002313.0201,498.03,21,2,0)="authorization request."
^DD(9002313.0201,498.03,"DT")="3020730"
^DD(9002313.0201,498.04,0)="Basis of Request^F^^498;4^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,498.04,3)="Answer must be 2 characters in length."
^DD(9002313.0201,498.04,21,0)="^^2^2^3031204^"
^DD(9002313.0201,498.04,21,1,0)="Code describing the reason for"
^DD(9002313.0201,498.04,21,2,0)="prior authorization request."
^DD(9002313.0201,498.04,"DT")="3020730"
^DD(9002313.0201,498.05,0)="Authorized Rep First Name^F^^498;5^K:$L(X)>12!($L(X)<12) X"
^DD(9002313.0201,498.05,3)="Answer must be 12 characters in length."
^DD(9002313.0201,498.05,21,0)="^^1^1^3031204^"
^DD(9002313.0201,498.05,21,1,0)="First name of the patients authorized representative."
^DD(9002313.0201,498.05,"DT")="3020730"
^DD(9002313.0201,498.06,0)="Authorized Rep Last Name^F^^498;6^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0201,498.06,3)="Answer must be 15 characters in length."
^DD(9002313.0201,498.06,21,0)="^^1^1^3031204^"
^DD(9002313.0201,498.06,21,1,0)="Last name of the patients authorized representative."
^DD(9002313.0201,498.06,"DT")="3020730"
^DD(9002313.0201,498.07,0)="Authorized Rep Street Address^F^^498;7^K:$L(X)>30!($L(X)<30) X"
^DD(9002313.0201,498.07,3)="Answer must be 30 characters in length."
^DD(9002313.0201,498.07,21,0)="^^1^1^3031204^"
^DD(9002313.0201,498.07,21,1,0)="Free-form text for address information."
^DD(9002313.0201,498.07,"DT")="3020730"
^DD(9002313.0201,498.08,0)="Authorized Rep City Address^F^^498;8^K:$L(X)>20!($L(X)<20) X"
^DD(9002313.0201,498.08,3)="Answer must be 20 characters in length."
^DD(9002313.0201,498.08,21,0)="^.001^1^1^3031204^^"
^DD(9002313.0201,498.08,21,1,0)="Free-form text for city name."
^DD(9002313.0201,498.08,"DT")="3020730"
^DD(9002313.0201,498.09,0)="Authorized Rep State/Prov^F^^498;9^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0201,498.09,3)="Answer must be 2 characters in length."
^DD(9002313.0201,498.09,21,0)="^^1^1^3040331^"
^DD(9002313.0201,498.09,21,1,0)="Authorized Rep's State or Province"
^DD(9002313.0201,498.09,"DT")="3040331"
^DD(9002313.0201,498.11,0)="Authorized Rep Zip/Postal Zone^F^^498;11^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0201,498.11,3)="Answer must be 15 characters in length."
^DD(9002313.0201,498.11,21,0)="^^1^1^3040331^"
^DD(9002313.0201,498.11,21,1,0)="Authorized Rep's Zip Code"
^DD(9002313.0201,498.11,"DT")="3040331"
^DD(9002313.0201,498.12,0)="Prescriber Phone Number^F^^498;12^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.0201,498.12,3)="Answer must be 10 characters in length."
^DD(9002313.0201,498.12,21,0)="^^2^2^3031204^"
^DD(9002313.0201,498.12,21,1,0)="Ten digit phone number of the"
^DD(9002313.0201,498.12,21,2,0)="prescriber."
^DD(9002313.0201,498.12,"DT")="3020730"
^DD(9002313.0201,498.13,0)="Prior Auth Supporting Doc^9002313.0901^^498.13;0"
^DD(9002313.0201,498.14,0)="Prior Auth Number Assigned^F^^498;14^K:$L(X)>11!($L(X)<11) X"
^DD(9002313.0201,498.14,3)="Answer must be 11 characters in length."
^DD(9002313.0201,498.14,21,0)="^^3^3^3031204^"
^DD(9002313.0201,498.14,21,1,0)="Unique number identifying the"
^DD(9002313.0201,498.14,21,2,0)="prior authorization assigned by"
^DD(9002313.0201,498.14,21,3,0)="the processor."
^DD(9002313.0201,498.14,"DT")="3020730"
^DD(9002313.0201,503,0)="Authorization Number^F^^500;3^K:$L(X)>20!($L(X)<20) X"
^DD(9002313.0201,503,3)="Answer must be 20 characters in length."
^DD(9002313.0201,503,21,0)="^^3^3^3031204^"
^DD(9002313.0201,503,21,1,0)="Unique number identifying the"
^DD(9002313.0201,503,21,2,0)="prior authorization assigned by"
^DD(9002313.0201,503,21,3,0)="the processor."
^DD(9002313.0201,503,"DT")="3020730"
^DD(9002313.0201,600,0)="Unit of Measure^F^^600;1^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.0201,600,3)="Enter the Unit of Measure (4 characters)"
^DD(9002313.0201,600,21,0)="^^1^1^3070625^"
^DD(9002313.0201,600,21,1,0)="Unit of measure of the prescription."
^DD(9002313.0201,600,"DT")="3070625"
^DD(9002313.0201,"B","Alternate ID",330)=""
^DD(9002313.0201,"B","Assoc Pres/Srv Date",457)=""
^DD(9002313.0201,"B","Assoc Pres/Srv Ref Number",456)=""
^DD(9002313.0201,"B","Authorization Number",503)=""
^DD(9002313.0201,"B","Authorized Rep City Address",498.08)=""
^DD(9002313.0201,"B","Authorized Rep First Name",498.05)=""
^DD(9002313.0201,"B","Authorized Rep Last Name",498.06)=""
^DD(9002313.0201,"B","Authorized Rep State/Prov",498.09)=""
^DD(9002313.0201,"B","Authorized Rep Street Address",498.07)=""
^DD(9002313.0201,"B","Authorized Rep Zip/Postal Zone",498.11)=""
^DD(9002313.0201,"B","Basis of Cost Determination",423)=""
^DD(9002313.0201,"B","Basis of Request",498.04)=""
^DD(9002313.0201,"B","COB/Other Payments  ",337.01)=""
^DD(9002313.0201,"B","COB/Other Payments Cnt",337)=""
^DD(9002313.0201,"B","Carrier ID",327)=""
^DD(9002313.0201,"B","Claim/Ref ID Number",435)=""
^DD(9002313.0201,"B","Clinical Diagnosis Repeating",491.01)=""
^DD(9002313.0201,"B","Clinical Information Repeating",493.01)=""
^DD(9002313.0201,"B","Comp Ingred Component Cnt",447)=""
^DD(9002313.0201,"B","Compound Code",406)=""
^DD(9002313.0201,"B","Compound Disp Unit Form Ind",451)=""
^DD(9002313.0201,"B","Compound Dosage Form Desc Cd",450)=""
^DD(9002313.0201,"B","Compound Repeating Fields",447.01)=""
^DD(9002313.0201,"B","Compound Route of Admin",452)=""
^DD(9002313.0201,"B","Coupon Number",486)=""
^DD(9002313.0201,"B","Coupon Type",485)=""
^DD(9002313.0201,"B","Coupon Value Amount",487)=""
^DD(9002313.0201,"B","DUR/PPS Repeating Fields",473.01)=""
^DD(9002313.0201,"B","Date Prescription Written",414)=""
^DD(9002313.0201,"B","Date of Injury",434)=""
^DD(9002313.0201,"B","Date of Service",401)=""
^DD(9002313.0201,"B","Days Supply",405)=""
^DD(9002313.0201,"B","Days Supply Intd Dispensed",345)=""
^DD(9002313.0201,"B","Diagnosis Code",424)=""
^DD(9002313.0201,"B","Diagnosis Code Count",491)=""
^DD(9002313.0201,"B","Dispense as Wrtn/Prd Sel Cd",408)=""
^DD(9002313.0201,"B","Dispensing Fee Submitted",412)=""
^DD(9002313.0201,"B","Dispensing Status",343)=""
^DD(9002313.0201,"B","Employer City Address",317)=""
^DD(9002313.0201,"B","Employer Contact Name",321)=""
^DD(9002313.0201,"B","Employer Name",315)=""
^DD(9002313.0201,"B","Employer Phone Number",320)=""
^DD(9002313.0201,"B","Employer State/Prov Address",318)=""
^DD(9002313.0201,"B","Employer Street Address",316)=""
^DD(9002313.0201,"B","Employer Zip/Postal Zone",319)=""
^DD(9002313.0201,"B","Fill Number",403)=""
^DD(9002313.0201,"B","Flat Sales Tax Amt Sub",481)=""
^DD(9002313.0201,"B","Gross Amount Due",430)=""
^DD(9002313.0201,"B","Incentive Amount Submitted",438)=""
^DD(9002313.0201,"B","Ingredient Cost Submitted",409)=""
^DD(9002313.0201,"B","Intermediary Auth ID",464)=""
^DD(9002313.0201,"B","Intermediary Auth Type ID",463)=""
^DD(9002313.0201,"B","Level of Service",418)=""
^DD(9002313.0201,"B","Medication Name",.04)=""
^DD(9002313.0201,"B","Medication Number",.03)=""
^DD(9002313.0201,"B","Medication Order",.01)=""
^DD(9002313.0201,"B","Number Refills Authorized",415)=""
^DD(9002313.0201,"B","Orig Pres Prod/Srv Cd",445)=""
^DD(9002313.0201,"B","Orig Pres/Serv ID Qual",453)=""
^DD(9002313.0201,"B","Originally Prescribed Quantity",446)=""
^DD(9002313.0201,"B","Other Amt Claimed Sub Cnt",478)=""
^DD(9002313.0201,"B","Other Coverage Code",308)=""
^DD(9002313.0201,"B","Other Payer Amount",431)=""
^DD(9002313.0201,"B","Other Payer Date",443)=""
^DD(9002313.0201,"B","Other Payer Reject Count",471)=""
^DD(9002313.0201,"B","PRESCRIPTION #",.05)=""
^DD(9002313.0201,"B","Patient Paid Amount Submitted",433)=""
^DD(9002313.0201,"B","Percentage Sales Tax Amt Sub",482)=""
^DD(9002313.0201,"B","Percentage Sales Tax Basis Sub",484)=""
^DD(9002313.0201,"B","Percentage Sales Tax Rate Sub",483)=""
^DD(9002313.0201,"B","Pres/Srv Ref Number Qual",455)=""
^DD(9002313.0201,"B","Prescriber ID",411)=""
^DD(9002313.0201,"B","Prescriber ID Qualifier",466)=""
^DD(9002313.0201,"B","Prescriber Last Name",427)=""
^DD(9002313.0201,"B","Prescriber Location Code",467)=""
^DD(9002313.0201,"B","Prescriber Phone Number",498.12)=""
^DD(9002313.0201,"B","Prescription Origin Code",419)=""
^DD(9002313.0201,"B","Prescription/Service Ref Num",402)=""
^DD(9002313.0201,"B","Pricing Repeating Section",478.01)=""
^DD(9002313.0201,"B","Primary Care Prov ID Qual",468)=""
^DD(9002313.0201,"B","Primary Care Prov Last Name",470)=""
^DD(9002313.0201,"B","Primary Care Prov Loc Cd",469)=""
^DD(9002313.0201,"B","Primary Care Provider ID",421)=""
^DD(9002313.0201,"B","Prior Auth Number Assigned",498.14)=""
^DD(9002313.0201,"B","Prior Auth Supporting Doc",498.13)=""
^DD(9002313.0201,"B","Prior Authorization Num Sub",462)=""
^DD(9002313.0201,"B","Prior Authorization Type Code",461)=""
^DD(9002313.0201,"B","Procedure Mod Code Cnt",458)=""
^DD(9002313.0201,"B","Procedure Modifier Code",459)=""
^DD(9002313.0201,"B","Product/Service ID",407)=""
^DD(9002313.0201,"B","Product/Service ID Qualifier",436)=""
^DD(9002313.0201,"B","Professional Srv Fee Submitted",477)=""
^DD(9002313.0201,"B","Provider ID",444)=""
^DD(9002313.0201,"B","Provider ID Qualifier",465)=""
^DD(9002313.0201,"B","Qty Intended to be Dispensed",344)=""
^DD(9002313.0201,"B","Quantity Dispensed",442)=""
^DD(9002313.0201,"B","Quantity Prescribed",460)=""
^DD(9002313.0201,"B","Request Period Date-Begin",498.02)=""
^DD(9002313.0201,"B","Request Period Date-End",498.03)=""
^DD(9002313.0201,"B","Request Type",498.01)=""
^DD(9002313.0201,"B","Scheduled Pres ID Number",454)=""
^DD(9002313.0201,"B","Submission Clarification Code",420)=""
^DD(9002313.0201,"B","Unit Dose Indicator",429)=""
^DD(9002313.0201,"B","Unit of Measure",600)=""
^DD(9002313.0201,"B","Usual & Customary Charge",426)=""
^DD(9002313.0201,"GL",0,1,.01)=""
^DD(9002313.0201,"GL",0,3,.03)=""
^DD(9002313.0201,"GL",0,4,.04)=""
^DD(9002313.0201,"GL",0,5,.05)=""
^DD(9002313.0201,"GL",300,8,308)=""
^DD(9002313.0201,"GL",310,5,315)=""
^DD(9002313.0201,"GL",310,6,316)=""
^DD(9002313.0201,"GL",310,7,317)=""
^DD(9002313.0201,"GL",310,8,318)=""
^DD(9002313.0201,"GL",310,9,319)=""
^DD(9002313.0201,"GL",310,10,320)=""
^DD(9002313.0201,"GL",320,1,321)=""
^DD(9002313.0201,"GL",320,7,327)=""
^DD(9002313.0201,"GL",320,10,330)=""
^DD(9002313.0201,"GL",330,7,337)=""
^DD(9002313.0201,"GL",337,0,337.01)=""
^DD(9002313.0201,"GL",340,3,343)=""
^DD(9002313.0201,"GL",340,4,344)=""
^DD(9002313.0201,"GL",340,5,345)=""
^DD(9002313.0201,"GL",400,1,401)=""
^DD(9002313.0201,"GL",400,2,402)=""
^DD(9002313.0201,"GL",400,3,403)=""
^DD(9002313.0201,"GL",400,5,405)=""
^DD(9002313.0201,"GL",400,6,406)=""
^DD(9002313.0201,"GL",400,7,407)=""
^DD(9002313.0201,"GL",400,8,408)=""
^DD(9002313.0201,"GL",400,9,409)=""
^DD(9002313.0201,"GL",400,11,411)=""
^DD(9002313.0201,"GL",400,12,412)=""
^DD(9002313.0201,"GL",400,14,414)=""
^DD(9002313.0201,"GL",400,15,415)=""
^DD(9002313.0201,"GL",400,18,418)=""
^DD(9002313.0201,"GL",400,19,419)=""
^DD(9002313.0201,"GL",400,20,420)=""
^DD(9002313.0201,"GL",400,21,421)=""
^DD(9002313.0201,"GL",400,23,423)=""
^DD(9002313.0201,"GL",400,24,424)=""
^DD(9002313.0201,"GL",400,26,426)=""
^DD(9002313.0201,"GL",400,29,429)=""
^DD(9002313.0201,"GL",400,30,430)=""
^DD(9002313.0201,"GL",420,27,427)=""
^DD(9002313.0201,"GL",430,1,431)=""
^DD(9002313.0201,"GL",430,3,433)=""
^DD(9002313.0201,"GL",430,4,434)=""
^DD(9002313.0201,"GL",430,5,435)=""
^DD(9002313.0201,"GL",430,6,436)=""
^DD(9002313.0201,"GL",430,8,438)=""
^DD(9002313.0201,"GL",440,2,442)=""
^DD(9002313.0201,"GL",440,3,443)=""
^DD(9002313.0201,"GL",440,4,444)=""
^DD(9002313.0201,"GL",440,5,445)=""
^DD(9002313.0201,"GL",440,6,446)=""
^DD(9002313.0201,"GL",440,7,447)=""
^DD(9002313.0201,"GL",440,10,450)=""
^DD(9002313.0201,"GL",447,0,447.01)=""
^DD(9002313.0201,"GL",450,1,451)=""
^DD(9002313.0201,"GL",450,2,452)=""
^DD(9002313.0201,"GL",450,3,453)=""
^DD(9002313.0201,"GL",450,4,454)=""
^DD(9002313.0201,"GL",450,5,455)=""
^DD(9002313.0201,"GL",450,6,456)=""
^DD(9002313.0201,"GL",450,7,457)=""
^DD(9002313.0201,"GL",450,8,458)=""
^DD(9002313.0201,"GL",450,10,460)=""
^DD(9002313.0201,"GL",459,0,459)=""
^DD(9002313.0201,"GL",460,1,461)=""
^DD(9002313.0201,"GL",460,2,462)=""
^DD(9002313.0201,"GL",460,3,463)=""
^DD(9002313.0201,"GL",460,4,464)=""
^DD(9002313.0201,"GL",460,5,465)=""
^DD(9002313.0201,"GL",460,6,466)=""
^DD(9002313.0201,"GL",460,7,467)=""
^DD(9002313.0201,"GL",460,8,468)=""
^DD(9002313.0201,"GL",460,9,469)=""
^DD(9002313.0201,"GL",460,10,470)=""
^DD(9002313.0201,"GL",470,1,471)=""
^DD(9002313.0201,"GL",470,7,477)=""
^DD(9002313.0201,"GL",470,8,478)=""
^DD(9002313.0201,"GL",473.01,0,473.01)=""
^DD(9002313.0201,"GL",478.01,0,478.01)=""
^DD(9002313.0201,"GL",480,1,481)=""
^DD(9002313.0201,"GL",480,2,482)=""
^DD(9002313.0201,"GL",480,3,483)=""
^DD(9002313.0201,"GL",480,4,484)=""
^DD(9002313.0201,"GL",480,5,485)=""
^DD(9002313.0201,"GL",480,6,486)=""
^DD(9002313.0201,"GL",480,7,487)=""
^DD(9002313.0201,"GL",490,1,491)=""
^DD(9002313.0201,"GL",491.01,0,491.01)=""
^DD(9002313.0201,"GL",493.01,0,493.01)=""
^DD(9002313.0201,"GL",498,1,498.01)=""
^DD(9002313.0201,"GL",498,2,498.02)=""
^DD(9002313.0201,"GL",498,3,498.03)=""
^DD(9002313.0201,"GL",498,4,498.04)=""
^DD(9002313.0201,"GL",498,5,498.05)=""
^DD(9002313.0201,"GL",498,6,498.06)=""
^DD(9002313.0201,"GL",498,7,498.07)=""
^DD(9002313.0201,"GL",498,8,498.08)=""
^DD(9002313.0201,"GL",498,9,498.09)=""
^DD(9002313.0201,"GL",498,11,498.11)=""
^DD(9002313.0201,"GL",498,12,498.12)=""
^DD(9002313.0201,"GL",498,14,498.14)=""
^DD(9002313.0201,"GL",498.13,0,498.13)=""
^DD(9002313.0201,"GL",500,3,503)=""
^DD(9002313.0201,"GL",600,1,600)=""
^DD(9002313.0201,"IX",.01)=""
^DD(9002313.0201,"IX",.03)=""
^DD(9002313.0201,"SB",9002313.0401,337.01)=""
^DD(9002313.0201,"SB",9002313.0501,447.01)=""
^DD(9002313.0201,"SB",9002313.0601,478.01)=""
^DD(9002313.0201,"SB",9002313.0701,491.01)=""
^DD(9002313.0201,"SB",9002313.0801,493.01)=""
^DD(9002313.0201,"SB",9002313.0901,498.13)=""
^DD(9002313.0201,"SB",9002313.1001,473.01)=""
^DD(9002313.0201,"SB",9002313.201459,459)=""
^DD(9002313.03,0)="FIELD^^9999^17"
^DD(9002313.03,0,"DDA")="N"
^DD(9002313.03,0,"DT")="3020820"
^DD(9002313.03,0,"IX","AC",9002313.0301,501)=""
^DD(9002313.03,0,"IX","AE",9002313.03,.02)=""
^DD(9002313.03,0,"IX","B",9002313.03,.01)=""
^DD(9002313.03,0,"NM","BPS RESPONSES")=""
^DD(9002313.03,0,"PT",9002313.57,4)=""
^DD(9002313.03,0,"PT",9002313.57,402)=""
^DD(9002313.03,0,"PT",9002313.59,4)=""
^DD(9002313.03,0,"PT",9002313.59,402)=""
^DD(9002313.03,0,"VR")="1.0"
^DD(9002313.03,0,"VRPK")="BPS"
^DD(9002313.03,.01,0)="ID^RP9002313.02'^BPSC(^0;1^Q"
^DD(9002313.03,.01,1,0)="^.1"
^DD(9002313.03,.01,1,1,0)="9002313.03^B"
^DD(9002313.03,.01,1,1,1)="S ^BPSR(""B"",$E(X,1,30),DA)="""""
^DD(9002313.03,.01,1,1,2)="K ^BPSR(""B"",$E(X,1,30),DA)"
^DD(9002313.03,.01,3)=""
^DD(9002313.03,.01,21,0)="^^1^1^3031124^"
^DD(9002313.03,.01,21,1,0)="Internal Identifier for BPS responses."
^DD(9002313.03,.01,"DT")="3031124"
^DD(9002313.03,.02,0)="Date/Time Response Received^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.03,.02,1,0)="^.1"
^DD(9002313.03,.02,1,1,0)="9002313.03^AE"
^DD(9002313.03,.02,1,1,1)="S ^BPSR(""AE"",$E(X,1,30),DA)="""""
^DD(9002313.03,.02,1,1,2)="K ^BPSR(""AE"",$E(X,1,30),DA)"
^DD(9002313.03,.02,1,1,"DT")="2950724"
^DD(9002313.03,.02,21,0)="^.001^1^1^3040322^^"
^DD(9002313.03,.02,21,1,0)="Date that response was received on the system."
^DD(9002313.03,.02,"DT")="3031124"
^DD(9002313.03,102,0)="Version/Release Number^F^^100;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.03,102,3)="Answer must be 2 characters in length."
^DD(9002313.03,102,21,0)="^^1^1^3031124^"
^DD(9002313.03,102,21,1,0)="NCPDP Version/Release Number."
^DD(9002313.03,102,"DT")="3031124"
^DD(9002313.03,103,0)="Transaction Code^F^^100;3^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.03,103,3)="Answer must be 2 characters in length."
^DD(9002313.03,103,21,0)="^^1^1^3031124^"
^DD(9002313.03,103,21,1,0)="Code identifying the type of transaction."
^DD(9002313.03,103,"DT")="3031124"
^DD(9002313.03,109,0)="Transaction Count^F^^100;9^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.03,109,3)="Answer must be 1 character in length."
^DD(9002313.03,109,21,0)="^^1^1^3031124^"
^DD(9002313.03,109,21,1,0)="Count of transactions in the transmission. "
^DD(9002313.03,109,"DT")="3031124"
^DD(9002313.03,201,0)="Service Provider ID^F^^200;1^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.03,201,3)="Answer must be 1-15 characters in length."
^DD(9002313.03,201,21,0)="^^1^1^3031124^"
^DD(9002313.03,201,21,1,0)="ID assigned to a pharmacy or provider."
^DD(9002313.03,201,"DT")="3031124"
^DD(9002313.03,202,0)="Service Provider ID Qualifier^F^^200;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.03,202,3)="Answer must be 1-2 characters in length."
^DD(9002313.03,202,21,0)="^^1^1^3031124^"
^DD(9002313.03,202,21,1,0)="Code qualifying the 'Service Provider ID' (2Ø1)"
^DD(9002313.03,202,"DT")="3031124"
^DD(9002313.03,301,0)="Group ID^F^^300;1^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.03,301,3)="Answer must be 1-15 characters in length."
^DD(9002313.03,301,21,0)="^^1^1^3031124^"
^DD(9002313.03,301,21,1,0)="ID assigned to the cardholder group or employer group."
^DD(9002313.03,301,"DT")="3031124"
^DD(9002313.03,401,0)="Date of Service^F^^400;1^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.03,401,3)="Answer must be 8 characters in length."
^DD(9002313.03,401,21,0)="^^2^2^3031124^"
^DD(9002313.03,401,21,1,0)="Identifies date the prescription was filled or professional service "
^DD(9002313.03,401,21,2,0)="rendered."
^DD(9002313.03,401,"DT")="3031124"
^DD(9002313.03,501,0)="Response Status (Header)^F^^500;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.03,501,3)="Answer must be 1 character in length."
^DD(9002313.03,501,21,0)="^^1^1^3031124^"
^DD(9002313.03,501,21,1,0)="A text message indicating the status of this response."
^DD(9002313.03,501,"DT")="3031124"
^DD(9002313.03,504,0)="Message^F^^504;1^K:$L(X)>250!($L(X)<1) X"
^DD(9002313.03,504,3)="Answer must be 1-250 characters in length."
^DD(9002313.03,504,21,0)="^^1^1^3031124^"
^DD(9002313.03,504,21,1,0)="Free form message."
^DD(9002313.03,504,"DT")="3031124"
^DD(9002313.03,524,0)="Plan Identification^F^^500;24^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.03,524,3)="Answer must be 8 characters in length."
^DD(9002313.03,524,21,0)="^^2^2^3031124^"
^DD(9002313.03,524,21,1,0)="Assigned by the processor to identify a set of parameters, benefit, or "
^DD(9002313.03,524,21,2,0)="coverage criteria used to adjudicate a claim."
^DD(9002313.03,524,"DT")="3031124"
^DD(9002313.03,545,0)="Network Reimbursement ID^F^^540;5^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.03,545,3)="Answer must be 1-10 characters in length."
^DD(9002313.03,545,21,0)="^^2^2^3031124^"
^DD(9002313.03,545,21,1,0)="Field defined by the processor. It identifies the network, for the "
^DD(9002313.03,545,21,2,0)="covered member, used to calculate the reimbursement to the pharmacy."
^DD(9002313.03,545,"DT")="3031124"
^DD(9002313.03,568,0)="Payer ID Qualifier^F^^560;8^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.03,568,3)="Answer must be 1-2 characters in length."
^DD(9002313.03,568,21,0)="^^1^1^3031124^"
^DD(9002313.03,568,21,1,0)="Code indicating the type of payer ID."
^DD(9002313.03,568,"DT")="3031124"
^DD(9002313.03,569,0)="Payer ID  ^F^^560;9^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.03,569,3)="Answer must be 1-10 characters in length."
^DD(9002313.03,569,21,0)="^^1^1^3040126^"
^DD(9002313.03,569,21,1,0)="Payer identification - the payer this claim was submitted to."
^DD(9002313.03,569,"DT")="3020807"
^DD(9002313.03,1000,0)="Response(s)^9002313.0301A^^1000;0"
^DD(9002313.03,1000,21,0)="^^1^1^3040331^"
^DD(9002313.03,1000,21,1,0)="Text message containing the response to the claim."
^DD(9002313.03,9999,0)="RAW DATA RECEIVED^9002313.39999^^M;0"
^DD(9002313.03,"B","Date of Service",401)=""
^DD(9002313.03,"B","Date/Time Response Received",.02)=""
^DD(9002313.03,"B","Group ID",301)=""
^DD(9002313.03,"B","ID",.01)=""
^DD(9002313.03,"B","Message",504)=""
^DD(9002313.03,"B","Network Reimbursement ID",545)=""
^DD(9002313.03,"B","Payer ID  ",569)=""
^DD(9002313.03,"B","Payer ID Qualifier",568)=""
^DD(9002313.03,"B","Plan Identification",524)=""
^DD(9002313.03,"B","RAW DATA RECEIVED",9999)=""
^DD(9002313.03,"B","Response Status (Header)",501)=""
^DD(9002313.03,"B","Response(s)",1000)=""
^DD(9002313.03,"B","Service Provider ID",201)=""
^DD(9002313.03,"B","Service Provider ID Qualifier",202)=""
^DD(9002313.03,"B","Transaction Code",103)=""
^DD(9002313.03,"B","Transaction Count",109)=""
^DD(9002313.03,"B","Version/Release Number",102)=""
^DD(9002313.03,"GL",0,1,.01)=""
^DD(9002313.03,"GL",0,2,.02)=""
^DD(9002313.03,"GL",100,2,102)=""
^DD(9002313.03,"GL",100,3,103)=""
^DD(9002313.03,"GL",100,9,109)=""
^DD(9002313.03,"GL",200,1,201)=""
^DD(9002313.03,"GL",200,2,202)=""
^DD(9002313.03,"GL",300,1,301)=""
^DD(9002313.03,"GL",400,1,401)=""
^DD(9002313.03,"GL",500,1,501)=""
^DD(9002313.03,"GL",500,24,524)=""
^DD(9002313.03,"GL",504,1,504)=""
^DD(9002313.03,"GL",540,5,545)=""
^DD(9002313.03,"GL",560,8,568)=""
^DD(9002313.03,"GL",560,9,569)=""
^DD(9002313.03,"GL",1000,0,1000)=""
^DD(9002313.03,"GL","M",0,9999)=""
^DD(9002313.03,"IX",.01)=""
^DD(9002313.03,"IX",.02)=""
^DD(9002313.03,"RQ",.01)=""
^DD(9002313.03,"SB",9002313.0301,1000)=""
^DD(9002313.03,"SB",9002313.39999,9999)=""
^DD(9002313.0301,0)="Response(s) SUB-FIELD^^1000^55"
^DD(9002313.0301,0,"DT")="3020820"
^DD(9002313.0301,0,"IX","B",9002313.0301,.01)=""
^DD(9002313.0301,0,"NM","Response(s)")=""
^DD(9002313.0301,0,"UP")="9002313.03"
^DD(9002313.0301,.01,0)="Medication Order^MNJ9,0^^0;1^K:+X'=X!(X>999999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.0301,.01,1,0)="^.1"
^DD(9002313.0301,.01,1,1,0)="9002313.0301^B"
^DD(9002313.0301,.01,1,1,1)="S ^BPSR(DA(1),1000,""B"",$E(X,1,30),DA)="""""
^DD(9002313.0301,.01,1,1,2)="K ^BPSR(DA(1),1000,""B"",$E(X,1,30),DA)"
^DD(9002313.0301,.01,3)="Type a Number between 1 and 999999999, 0 Decimal Digits"
^DD(9002313.0301,.01,21,0)="^^1^1^3031124^"
^DD(9002313.0301,.01,21,1,0)="Detailing of medications in this claim."
^DD(9002313.0301,.01,"DT")="3031124"
^DD(9002313.0301,112,0)="Transaction Response Status^F^^110;2^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0301,112,3)="Answer must be 1 character in length."
^DD(9002313.0301,112,21,0)="^^9^9^3031124^"
^DD(9002313.0301,112,21,1,0)="Code indicating the status of the transaction."
^DD(9002313.0301,112,21,2,0)="A=Approved"
^DD(9002313.0301,112,21,3,0)="C=Captured"
^DD(9002313.0301,112,21,4,0)="D=Duplicate of Paid"
^DD(9002313.0301,112,21,5,0)="F=PA Deferred"
^DD(9002313.0301,112,21,6,0)="P=Paid"
^DD(9002313.0301,112,21,7,0)="Q=Duplicate of Capture"
^DD(9002313.0301,112,21,8,0)="R=Rejected"
^DD(9002313.0301,112,21,9,0)="S=Duplicate of Approved"
^DD(9002313.0301,112,"DT")="3031124"
^DD(9002313.0301,346,0)="Basis of Calc - Disp Fee^F^^340;6^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.0301,346,3)="Answer must be 1-2 characters in length."
^DD(9002313.0301,346,21,0)="^^9^9^3031124^"
^DD(9002313.0301,346,21,1,0)="Code indicating how the reimbursement amount was calculated for "
^DD(9002313.0301,346,21,2,0)="'Dispensing Fee Paid' (5Ø7)."
^DD(9002313.0301,346,21,3,0)="Blank=Not Specified"
^DD(9002313.0301,346,21,4,0)="ØØ=Not Specified"
^DD(9002313.0301,346,21,5,0)="Ø1=Quantity Dispensed"
^DD(9002313.0301,346,21,6,0)="Ø2=Quantity Intended To Be Dispensed"
^DD(9002313.0301,346,21,7,0)="Ø3=Usual & Customary/Prorated"
^DD(9002313.0301,346,21,8,0)="Ø4=Waived Due To Partial Fill"
^DD(9002313.0301,346,21,9,0)="99=Other"
^DD(9002313.0301,346,"DT")="3031124"
^DD(9002313.0301,347,0)="Basis of Calc - Copay^F^^340;7^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.0301,347,3)="Answer must be 1-2 characters in length."
^DD(9002313.0301,347,21,0)="^^9^9^3031124^"
^DD(9002313.0301,347,21,1,0)="Code indicating how the reimbursement amount was calculated for 'Patient "
^DD(9002313.0301,347,21,2,0)="Pay Amount'(5Ø5)."
^DD(9002313.0301,347,21,3,0)="Blank=Not Specified"
^DD(9002313.0301,347,21,4,0)="ØØ=Not Specified"
^DD(9002313.0301,347,21,5,0)="Ø1=Quantity Dispensed"
^DD(9002313.0301,347,21,6,0)="Ø2=Quantity Intended To Be Dispensed"
^DD(9002313.0301,347,21,7,0)="Ø3=Usual & Customary/Prorated"
^DD(9002313.0301,347,21,8,0)="Ø4=Waived Due To Partial Fill"
^DD(9002313.0301,347,21,9,0)="99=Other"
^DD(9002313.0301,347,"DT")="3031124"
^DD(9002313.0301,348,0)="Basis of Calc-Flat Sales Tax^F^^340;8^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.0301,348,3)="Answer must be 1-2 characters in length."
^DD(9002313.0301,348,21,0)="^^6^6^3031124^"
^DD(9002313.0301,348,21,1,0)="Code indicating how the reimbursement amount was calculated for 'Flat "
^DD(9002313.0301,348,21,2,0)="Sales Tax Amount Paid' (558)."
^DD(9002313.0301,348,21,3,0)="Blank=Not Specified"
^DD(9002313.0301,348,21,4,0)="ØØ=Not Specified"
^DD(9002313.0301,348,21,5,0)="Ø1=Quantity Dispensed"
^DD(9002313.0301,348,21,6,0)="Ø2=Quantity Intended To Be Dispensed"
^DD(9002313.0301,348,"DT")="3031124"
^DD(9002313.0301,349,0)="Basis of Calc-Prctg Sales Tax^F^^340;9^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.0301,349,3)="Answer must be 1-2 characters in length."
^DD(9002313.0301,349,21,0)="^^6^6^3031124^"
^DD(9002313.0301,349,21,1,0)="Code indicating how the reimbursement amount was calculated for "
^DD(9002313.0301,349,21,2,0)="'Percentage Sales Tax Amount Paid' (559)."
^DD(9002313.0301,349,21,3,0)="Blank=Not Specified"
^DD(9002313.0301,349,21,4,0)="ØØ=Not Specified"
^DD(9002313.0301,349,21,5,0)="Ø1=Quantity Dispensed"
^DD(9002313.0301,349,21,6,0)="Ø2=Quantity Intended To Be Dispensed"
^DD(9002313.0301,349,"DT")="3031124"
^DD(9002313.0301,402,0)="Prescription/Service Ref Num^F^^400;2^K:$L(X)>7!($L(X)<1) X"
^DD(9002313.0301,402,3)="Answer must be 1-7 characters in length."
^DD(9002313.0301,402,21,0)="^^2^2^3031124^"
^DD(9002313.0301,402,21,1,0)="Reference number assigned by the provider for the dispensed drug/product "
^DD(9002313.0301,402,21,2,0)="and/or service provided."
^DD(9002313.0301,402,"DT")="3031124"
^DD(9002313.0301,455,0)="Prescription/Srvc Ref Num Qual^F^^450;5^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0301,455,3)="Answer must be 1 character in length."
^DD(9002313.0301,455,21,0)="^^4^4^3031124^"
^DD(9002313.0301,455,21,1,0)="Indicates the type of billing submitted."
^DD(9002313.0301,455,21,2,0)="Blank=Not Specified"
^DD(9002313.0301,455,21,3,0)="1=Rx Billing"
^DD(9002313.0301,455,21,4,0)="2=Service Billing"
^DD(9002313.0301,455,"DT")="3031124"
^DD(9002313.0301,498.14,0)="Prior Auth Number Assigned^F^^498;6^K:$L(X)>11!($L(X)<1) X"
^DD(9002313.0301,498.14,3)="Answer must be 1-11 characters in length."
^DD(9002313.0301,498.14,21,0)="^^2^2^3031124^"
^DD(9002313.0301,498.14,21,1,0)="Unique number identifying the prior authorization assigned by the "
^DD(9002313.0301,498.14,21,2,0)="processor."
^DD(9002313.0301,498.14,"DT")="3031124"
^DD(9002313.0301,498.51,0)="Prior Auth Processed Date^F^^498;1^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,498.51,3)="Answer must be 8 characters in length."
^DD(9002313.0301,498.51,21,0)="^^1^1^3031124^"
^DD(9002313.0301,498.51,21,1,0)="Date the prior authorization request was processed."
^DD(9002313.0301,498.51,"DT")="3031124"
^DD(9002313.0301,498.52,0)="Prior Auth Effective Date^F^^498;2^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,498.52,3)="Answer must be 8 characters in length."
^DD(9002313.0301,498.52,21,0)="^^1^1^3031124^"
^DD(9002313.0301,498.52,21,1,0)="Date the prior authorization became effective."
^DD(9002313.0301,498.52,"DT")="3031124"
^DD(9002313.0301,498.53,0)="Prior Auth Expiration Date^F^^498;3^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,498.53,3)="Answer must be 8 characters in length."
^DD(9002313.0301,498.53,21,0)="^^1^1^3031124^"
^DD(9002313.0301,498.53,21,1,0)="Date the prior authorization expires."
^DD(9002313.0301,498.53,"DT")="3031124"
^DD(9002313.0301,498.54,0)="Prior Auth Refills Authorized^F^^498;4^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.0301,498.54,3)="Answer must be 1-2 characters in length."
^DD(9002313.0301,498.54,21,0)="^^1^1^3031124^"
^DD(9002313.0301,498.54,21,1,0)="Number of refills authorized by the prior authorization"
^DD(9002313.0301,498.54,"DT")="3031124"
^DD(9002313.0301,498.55,0)="Prior Auth Qty Accumulated^F^^498;5^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.0301,498.55,3)="Answer must be 1-10 characters in length."
^DD(9002313.0301,498.55,21,0)="^^1^1^3031124^"
^DD(9002313.0301,498.55,21,1,0)="Accumulated authorized amount expressed in metric decimal units."
^DD(9002313.0301,498.55,"DT")="3031124"
^DD(9002313.0301,498.57,0)="Prior Auth Quantity^F^^498;7^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.0301,498.57,3)="Answer must be 1-10 characters in length."
^DD(9002313.0301,498.57,21,0)="^^1^1^3031124^"
^DD(9002313.0301,498.57,21,1,0)="Amount authorized expressed in metric decimal units."
^DD(9002313.0301,498.57,"DT")="3031124"
^DD(9002313.0301,498.58,0)="Prior Auth Dollars Authorized^F^^498;8^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,498.58,3)="Answer must be 8 characters in length."
^DD(9002313.0301,498.58,21,0)="^^1^1^3031124^"
^DD(9002313.0301,498.58,21,1,0)="Amount authorized in the prior authorization."
^DD(9002313.0301,498.58,"DT")="3031124"
^DD(9002313.0301,501,0)="Response Status (Prescription)^FO^^500;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0301,501,1,0)="^.1"
^DD(9002313.0301,501,1,1,0)="9002313.03^AC"
^DD(9002313.0301,501,1,1,1)="S ^BPSR(""AC"",$E(X,1,30),DA(1),DA)="""""
^DD(9002313.0301,501,1,1,2)="K ^BPSR(""AC"",$E(X,1,30),DA(1),DA)"
^DD(9002313.0301,501,1,1,"DT")="2950622"
^DD(9002313.0301,501,2)="S Y(0)=Y S Y=$S(Y=""P"":""CLAIM PAYABLE"",Y=""C"":""CLAIM CAPTURED"",Y=""D"":""DUPLICATE CLAIM"",Y=""R"":""REJECTED CLAIM"",Y=""DP"":""DUPLICATE OF PAYABLE CLAIM"",Y=""DC"":""DUPLICATE OF CAPTURED CLAIM"",1:""<NONE>"")"
^DD(9002313.0301,501,2.1)="S Y=$S(Y=""P"":""CLAIM PAYABLE"",Y=""C"":""CLAIM CAPTURED"",Y=""D"":""DUPLICATE CLAIM"",Y=""R"":""REJECTED CLAIM"",Y=""DP"":""DUPLICATE OF PAYABLE CLAIM"",Y=""DC"":""DUPLICATE OF CAPTURED CLAIM"",1:""<NONE>"")"
^DD(9002313.0301,501,3)="Answer must be 1 character in length."
^DD(9002313.0301,501,21,0)="^^1^1^3031124^"
^DD(9002313.0301,501,21,1,0)="Status of the response from the payor."
^DD(9002313.0301,501,"DT")="3031124"
^DD(9002313.0301,503,0)="Authorization Number^F^^500;3^K:$L(X)>20!($L(X)<14) X"
^DD(9002313.0301,503,3)="Answer must be 14-20 characters in length."
^DD(9002313.0301,503,21,0)="^^1^1^3031124^"
^DD(9002313.0301,503,21,1,0)="Number assigned by the processor to identify an authorized transaction."
^DD(9002313.0301,503,"DT")="3031124"
^DD(9002313.0301,504,0)="Message^F^^504;1^K:$L(X)>250!($L(X)<1) X"
^DD(9002313.0301,504,3)="Answer must be 1-250 characters in length."
^DD(9002313.0301,504,21,0)="^^1^1^3031124^"
^DD(9002313.0301,504,21,1,0)="Free text message from payor."
^DD(9002313.0301,504,"DT")="3031124"
^DD(9002313.0301,505,0)="Patient Pay Amount^FO^^500;5^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,505,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,505,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,505,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,505,21,0)="^^4^4^3040331^"
^DD(9002313.0301,505,21,1,0)="Amount that is calculated by the processor and returned to the pharmacy "
^DD(9002313.0301,505,21,2,0)="as the TOTAL amount to be paid by the patient to the pharmacy; the "
^DD(9002313.0301,505,21,3,0)="patient's total cost share, including co-payments, amounts applied to "
^DD(9002313.0301,505,21,4,0)="deductible, over maximum amounts, penalties, etc."
^DD(9002313.0301,505,"DT")="3040331"
^DD(9002313.0301,506,0)="Ingredient Cost Paid^FO^^500;6^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,506,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,506,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,506,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,506,21,0)="^^1^1^3031124^"
^DD(9002313.0301,506,21,1,0)="Drug ingredient cost paid included in the 'Total Amount Paid' (5Ø9)."
^DD(9002313.0301,506,"DT")="3031124"
^DD(9002313.0301,507,0)="Dispensing Fee Paid^FO^^500;7^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,507,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,507,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,507,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,507,21,0)="^^1^1^3031124^"
^DD(9002313.0301,507,21,1,0)="Dispensing fee paid included in the 'Total Amount Paid' (5Ø9)."
^DD(9002313.0301,507,"DT")="3031124"
^DD(9002313.0301,508,0)="Sales Tax Paid^FO^^500;8^K:$L(X)>6!($L(X)<6) X"
^DD(9002313.0301,508,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,508,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,508,3)="Answer must be 6 characters in length."
^DD(9002313.0301,508,21,0)="^^1^1^3031124^"
^DD(9002313.0301,508,21,1,0)="The amount of sales tax paid for the prescription dispensed. "
^DD(9002313.0301,508,"DT")="3031124"
^DD(9002313.0301,509,0)="Total Amount Paid^FO^^500;9^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,509,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,509,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,509,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,509,21,0)="^^6^6^3031124^"
^DD(9002313.0301,509,21,1,0)="Total amount to be paid by the claims processor (i.e. pharmacy "
^DD(9002313.0301,509,21,2,0)="receivable). Represents a sum of 'Ingredient Cost Paid' (5Ø6), 'Dispensing"
^DD(9002313.0301,509,21,3,0)="Fee Paid' (5Ø7), 'Flat Sales Tax Amount Paid' (558), 'Percentage Sales Tax"
^DD(9002313.0301,509,21,4,0)="Amount Paid' (559), 'Incentive Amount Paid' (521), 'Professional Service"
^DD(9002313.0301,509,21,5,0)="Fee Paid' (562), 'Other Amount Paid' (565), less 'Patient Pay Amount'"
^DD(9002313.0301,509,21,6,0)="(5Ø5) and 'Other Payer Amount Recognized' (566)."
^DD(9002313.0301,509,"DT")="3031124"
^DD(9002313.0301,510,0)="Reject Count^F^^500;10^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0301,510,3)="Answer must be 2 characters in length."
^DD(9002313.0301,510,21,0)="^^1^1^3031124^"
^DD(9002313.0301,510,21,1,0)="Count of 'Reject Code' (511) occurrences."
^DD(9002313.0301,510,"DT")="3031124"
^DD(9002313.0301,511,0)="Reject Code(s)^9002313.03511A^^511;0"
^DD(9002313.0301,511,21,0)="^.001^1^1^3040126^^"
^DD(9002313.0301,511,21,1,0)="Multiple rejection codes."
^DD(9002313.0301,512,0)="Accumulated Deductible Amount^FO^^500;12^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,512,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),9,2)"
^DD(9002313.0301,512,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),9,2)"
^DD(9002313.0301,512,3)="Answer must be 8 characters in length."
^DD(9002313.0301,512,21,0)="^^1^1^3031124^"
^DD(9002313.0301,512,21,1,0)="Amount in dollars met by the patient/family in a deductible plan."
^DD(9002313.0301,512,"DT")="3031124"
^DD(9002313.0301,513,0)="Remaining Deductible Amount^FO^^500;13^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,513,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),9,2)"
^DD(9002313.0301,513,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),9,2)"
^DD(9002313.0301,513,3)="Answer must be 8 characters in length."
^DD(9002313.0301,513,21,0)="^^1^1^3031124^"
^DD(9002313.0301,513,21,1,0)="Amount not met by the patient/family in the deductible plan."
^DD(9002313.0301,513,"DT")="3031124"
^DD(9002313.0301,514,0)="Remaining Benefit Amount^FO^^500;14^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,514,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),9,2)"
^DD(9002313.0301,514,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),9,2)"
^DD(9002313.0301,514,3)="Answer must be 8 characters in length."
^DD(9002313.0301,514,21,0)="^^1^1^3031124^"
^DD(9002313.0301,514,21,1,0)="Amount remaining in a patient/family plan with a periodic maximum benefit."
^DD(9002313.0301,514,"DT")="3031124"
^DD(9002313.0301,517,0)="Amt Applied to Periodic Deduct^FO^^500;17^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,517,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,517,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,517,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,517,21,0)="^^2^2^3031124^"
^DD(9002313.0301,517,21,1,0)="Amount to be collected from a patient that is included in 'Patient Pay "
^DD(9002313.0301,517,21,2,0)="Amount' (5Ø5) that is applied to a periodic deductible."
^DD(9002313.0301,517,"DT")="3031124"
^DD(9002313.0301,518,0)="Amount of Copay/CoInsurance^FO^^500;18^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,518,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,518,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,518,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,518,21,0)="^^2^2^3031124^"
^DD(9002313.0301,518,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay "
^DD(9002313.0301,518,21,2,0)="Amount' (5Ø5) that is due to a per prescription copay/coinsurance."
^DD(9002313.0301,518,"DT")="3031124"
^DD(9002313.0301,519,0)="Amt Attrib to Prod Selection^FO^^500;19^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,519,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,519,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,519,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,519,21,0)="^^2^2^3031124^"
^DD(9002313.0301,519,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay "
^DD(9002313.0301,519,21,2,0)="Amount' (5Ø5) that is due to the patient's selection of drug product."
^DD(9002313.0301,519,"DT")="3031124"
^DD(9002313.0301,520,0)="Amt Exceed Per Benefit Max^FO^^500;20^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,520,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,520,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,520,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,520,21,0)="^^3^3^3031124^"
^DD(9002313.0301,520,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay "
^DD(9002313.0301,520,21,2,0)="Amount' (5Ø5) that is due to the patient exceeding a periodic benefit "
^DD(9002313.0301,520,21,3,0)="maximum."
^DD(9002313.0301,520,"DT")="3031124"
^DD(9002313.0301,521,0)="Incentive Amount Paid^FO^^500;21^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,521,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,521,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,521,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,521,21,0)="^^3^3^3031124^"
^DD(9002313.0301,521,21,1,0)="Amount represents the contractually agreed upon incentive fee paid for "
^DD(9002313.0301,521,21,2,0)="specific services rendered. Amount is included in the 'Total Amount Paid' "
^DD(9002313.0301,521,21,3,0)="(5Ø9)."
^DD(9002313.0301,521,"DT")="3031124"
^DD(9002313.0301,522,0)="Basis of Reimb Determination^F^^500;22^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0301,522,3)="Answer must be 2 characters in length."
^DD(9002313.0301,522,21,0)="^^2^2^3031124^"
^DD(9002313.0301,522,21,1,0)="Code identifying how the reimbursement amount was calculated for "
^DD(9002313.0301,522,21,2,0)="'Ingredient Cost Paid' (5Ø6)."
^DD(9002313.0301,522,"DT")="3031124"
^DD(9002313.0301,523,0)="Amount Attributed to Sales Tax^FO^^500;23^K:$L(X)>8!($L(X)<6) X"
^DD(9002313.0301,523,2)="S Y(0)=Y S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,523,2.1)="S Y=""$""_$J($$DFF2EXT^BPSECFM(Y),7,2)"
^DD(9002313.0301,523,3)="Answer must be 6-8 characters in length."
^DD(9002313.0301,523,21,0)="^^2^2^3031124^"
^DD(9002313.0301,523,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay "
^DD(9002313.0301,523,21,2,0)="Amount' (5Ø5) that is due to sales tax paid."
^DD(9002313.0301,523,"DT")="3031124"
^DD(9002313.0301,525,0)="DUR Response Data^F^^525;1^K:$L(X)>250!($L(X)<1) X"
^DD(9002313.0301,525,3)="Answer must be 1-250 characters in length."
^DD(9002313.0301,525,21,0)="^^1^1^3031124^"
^DD(9002313.0301,525,21,1,0)="Text that provides additional detail regarding a DUR conflict."
^DD(9002313.0301,525,"DT")="3031124"
^DD(9002313.0301,526,0)="Additional Message Information^F^^526;1^K:$L(X)>250!($L(X)<1) X"
^DD(9002313.0301,526,3)="Answer must be 1-250 characters in length."
^DD(9002313.0301,526,21,0)="^^1^1^3031124^"
^DD(9002313.0301,526,21,1,0)="Free text message."
^DD(9002313.0301,526,"DT")="3031124"
^DD(9002313.0301,547,0)="Approved Message Code Count^F^^540;7^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0301,547,3)="Answer must be 1 character in length."
^DD(9002313.0301,547,21,0)="^^1^1^3031124^"
^DD(9002313.0301,547,21,1,0)="Count of the 'Approved Message Code' (548-6F) occurrences."
^DD(9002313.0301,547,"DT")="3031124"
^DD(9002313.0301,548,0)="Approved Message Code ^9002313.301548A^^548;0"
^DD(9002313.0301,549,0)="Help Desk Phone Number Qual^F^^540;9^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.0301,549,3)="Answer must be 1-2 characters in length."
^DD(9002313.0301,549,21,0)="^^1^1^3031124^"
^DD(9002313.0301,549,21,1,0)="Code qualifying the phone number in the 'Help Desk Phone Number' (55Ø)."
^DD(9002313.0301,549,"DT")="3031124"
^DD(9002313.0301,550,0)="Help Desk Phone Number  ^F^^540;10^K:$L(X)>18!($L(X)<1) X"
^DD(9002313.0301,550,3)="Answer must be 1-18 characters in length."
^DD(9002313.0301,550,21,0)="^^1^1^3031124^"
^DD(9002313.0301,550,21,1,0)="Ten digit phone number of the help desk."
^DD(9002313.0301,550,"DT")="3031124"
^DD(9002313.0301,551,0)="Preferred Product Count^F^^550;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0301,551,3)="Answer must be 1 character in length."
^DD(9002313.0301,551,21,0)="^^1^1^3031124^"
^DD(9002313.0301,551,21,1,0)="Count of preferred product occurrences."
^DD(9002313.0301,551,"DT")="3031124"
^DD(9002313.0301,551.01,0)="Preferred Product Repeating^9002313.1301A^^551.01;0"
^DD(9002313.0301,551.01,"DT")="3020809"
^DD(9002313.0301,557,0)="Tax Exempt Indicator^F^^550;7^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0301,557,3)="Answer must be 1 character in length."
^DD(9002313.0301,557,21,0)="^^1^1^3031124^"
^DD(9002313.0301,557,21,1,0)="Code indicating the payer as exempt from taxes."
^DD(9002313.0301,557,"DT")="3031124"
^DD(9002313.0301,558,0)="Flat Sales Tax Amount Paid^F^^550;8^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,558,3)="Answer must be 8 characters in length."
^DD(9002313.0301,558,21,0)="^^1^1^3031124^"
^DD(9002313.0301,558,21,1,0)="Flat sales tax paid which is included in the 'Total Amount Paid' (5Ø9)."
^DD(9002313.0301,558,"DT")="3031124"
^DD(9002313.0301,559,0)="Percentage Sales Tax Amt Paid^FO^^550;9^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,559,2)="S Y(0)=Y S Y=$J($$DFF2EXT^BPSECFM(Y),8,2)"
^DD(9002313.0301,559,2.1)="S Y=$J($$DFF2EXT^BPSECFM(Y),8,2)"
^DD(9002313.0301,559,3)="Answer must be 8 characters in length."
^DD(9002313.0301,559,21,0)="^^2^2^3031124^"
^DD(9002313.0301,559,21,1,0)="Amount of percentage sales tax paid which is included in the 'Total "
^DD(9002313.0301,559,21,2,0)="Amount Paid' (5Ø9)."
^DD(9002313.0301,559,"DT")="3031124"
^DD(9002313.0301,560,0)="Percentage Sales Tax Rate Paid^FO^^550;10^K:$L(X)>7!($L(X)<7) X"
^DD(9002313.0301,560,2)="S Y(0)=Y S Y=$J($$DFF2EXT^BPSECFM(Y),7,4)"
^DD(9002313.0301,560,2.1)="S Y=$J($$DFF2EXT^BPSECFM(Y),7,4)"
^DD(9002313.0301,560,3)="Answer must be 7 characters in length."
^DD(9002313.0301,560,21,0)="^^2^2^3031124^"
^DD(9002313.0301,560,21,1,0)="Percentage sales tax rate used to calculate 'Percentage Sales Tax Amount "
^DD(9002313.0301,560,21,2,0)="Paid' (559)."
^DD(9002313.0301,560,"DT")="3031124"
^DD(9002313.0301,561,0)="Percentage Sales Tx Basis Pd^F^^560;1^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.0301,561,3)="Answer must be 1-2 characters in length."
^DD(9002313.0301,561,21,0)="^^5^5^3031124^"
^DD(9002313.0301,561,21,1,0)="Code indicating the percentage sales tax paid basis."
^DD(9002313.0301,561,21,2,0)="Blank=Not Specified"
^DD(9002313.0301,561,21,3,0)="Ø1=Gross Amount Due"
^DD(9002313.0301,561,21,4,0)="Ø2=Ingredient Cost"
^DD(9002313.0301,561,21,5,0)="Ø3=Ingredient Cost + Dispensing Fee"
^DD(9002313.0301,561,"DT")="3031124"
^DD(9002313.0301,562,0)="Professional Service Fee Paid^F^^560;2^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,562,3)="Answer must be 8 characters in length."
^DD(9002313.0301,562,21,0)="^^1^1^3031125^"
^DD(9002313.0301,562,21,1,0)="Amount submitted by the provider for professional services rendered."
^DD(9002313.0301,562,"DT")="3031125"
^DD(9002313.0301,563,0)="Other Amount Paid Count^F^^560;3^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0301,563,3)="Answer must be 1 character in length."
^DD(9002313.0301,563,21,0)="^^1^1^3031125^"
^DD(9002313.0301,563,21,1,0)="Count of the other amount paid occurrences."
^DD(9002313.0301,563,"DT")="3031125"
^DD(9002313.0301,563.01,0)="Other Amt Paid Repeating Flds^9002313.1401A^^563.01;0"
^DD(9002313.0301,563.01,"DT")="3020809"
^DD(9002313.0301,566,0)="Other Payer Amount Recognized^F^^560;6^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0301,566,3)="Answer must be 8 characters in length."
^DD(9002313.0301,566,21,0)="^^1^1^3031125^"
^DD(9002313.0301,566,21,1,0)="Total dollar amount of any payment from another source including coupons."
^DD(9002313.0301,566,"DT")="3031125"
^DD(9002313.0301,567.01,0)="DUR/PPS Repeating Flds^9002313.1101A^^567.01;0"
^DD(9002313.0301,567.01,"DT")="3040331"
^DD(9002313.0301,1000,0)="Duplicate Response Data^F^^1000;1^K:$L(X)>85!($L(X)<1) X"
^DD(9002313.0301,1000,3)="Answer must be 1-85 characters in length."
^DD(9002313.0301,1000,21,0)="^^1^1^3031125^"
^DD(9002313.0301,1000,21,1,0)="Response text to indicate duplicated data."
^DD(9002313.0301,1000,"DT")="3031125"
^DD(9002313.0301,"B","Accumulated Deductible Amount",512)=""
^DD(9002313.0301,"B","Additional Message Information",526)=""
^DD(9002313.0301,"B","Amount Attributed to Sales Tax",523)=""
^DD(9002313.0301,"B","Amount of Copay/CoInsurance",518)=""
^DD(9002313.0301,"B","Amt Applied to Periodic Deduct",517)=""
^DD(9002313.0301,"B","Amt Attrib to Prod Selection",519)=""
^DD(9002313.0301,"B","Amt Exceed Per Benefit Max",520)=""
^DD(9002313.0301,"B","Approved Message Code ",548)=""
^DD(9002313.0301,"B","Approved Message Code Count",547)=""
^DD(9002313.0301,"B","Authorization Number",503)=""
^DD(9002313.0301,"B","Basis of Calc - Copay",347)=""
^DD(9002313.0301,"B","Basis of Calc - Disp Fee",346)=""
^DD(9002313.0301,"B","Basis of Calc-Flat Sales Tax",348)=""
^DD(9002313.0301,"B","Basis of Calc-Prctg Sales Tax",349)=""
^DD(9002313.0301,"B","Basis of Reimb Determination",522)=""
^DD(9002313.0301,"B","DUR Response Data",525)=""
^DD(9002313.0301,"B","DUR/PPS Repeating Flds",567.01)=""
^DD(9002313.0301,"B","Dispensing Fee Paid",507)=""
^DD(9002313.0301,"B","Duplicate Response Data",1000)=""
^DD(9002313.0301,"B","Flat Sales Tax Amount Paid",558)=""
^DD(9002313.0301,"B","Help Desk Phone Number  ",550)=""
^DD(9002313.0301,"B","Help Desk Phone Number Qual",549)=""
^DD(9002313.0301,"B","Incentive Amount Paid",521)=""
^DD(9002313.0301,"B","Ingredient Cost Paid",506)=""
^DD(9002313.0301,"B","Medication Order",.01)=""
^DD(9002313.0301,"B","Message",504)=""
^DD(9002313.0301,"B","Other Amount Paid Count",563)=""
^DD(9002313.0301,"B","Other Amt Paid Repeating Flds",563.01)=""
^DD(9002313.0301,"B","Other Payer Amount Recognized",566)=""
^DD(9002313.0301,"B","Patient Pay Amount",505)=""
^DD(9002313.0301,"B","Percentage Sales Tax Amt Paid",559)=""
^DD(9002313.0301,"B","Percentage Sales Tax Rate Paid",560)=""
^DD(9002313.0301,"B","Percentage Sales Tx Basis Pd",561)=""
^DD(9002313.0301,"B","Preferred Product Count",551)=""
^DD(9002313.0301,"B","Preferred Product Repeating",551.01)=""
^DD(9002313.0301,"B","Prescription/Service Ref Num",402)=""
^DD(9002313.0301,"B","Prescription/Srvc Ref Num Qual",455)=""
^DD(9002313.0301,"B","Prior Auth Dollars Authorized",498.58)=""
^DD(9002313.0301,"B","Prior Auth Effective Date",498.52)=""
^DD(9002313.0301,"B","Prior Auth Expiration Date",498.53)=""
^DD(9002313.0301,"B","Prior Auth Number Assigned",498.14)=""
^DD(9002313.0301,"B","Prior Auth Processed Date",498.51)=""
^DD(9002313.0301,"B","Prior Auth Qty Accumulated",498.55)=""
^DD(9002313.0301,"B","Prior Auth Quantity",498.57)=""
^DD(9002313.0301,"B","Prior Auth Refills Authorized",498.54)=""
^DD(9002313.0301,"B","Professional Service Fee Paid",562)=""
^DD(9002313.0301,"B","Reject Code(s)",511)=""
^DD(9002313.0301,"B","Reject Count",510)=""
^DD(9002313.0301,"B","Remaining Benefit Amount",514)=""
^DD(9002313.0301,"B","Remaining Deductible Amount",513)=""
^DD(9002313.0301,"B","Response Status (Prescription)",501)=""
^DD(9002313.0301,"B","Sales Tax Paid",508)=""
^DD(9002313.0301,"B","Tax Exempt Indicator",557)=""
^DD(9002313.0301,"B","Total Amount Paid",509)=""
^DD(9002313.0301,"B","Transaction Response Status",112)=""
^DD(9002313.0301,"GL",0,1,.01)=""
^DD(9002313.0301,"GL",110,2,112)=""
^DD(9002313.0301,"GL",340,6,346)=""
^DD(9002313.0301,"GL",340,7,347)=""
^DD(9002313.0301,"GL",340,8,348)=""
^DD(9002313.0301,"GL",340,9,349)=""
^DD(9002313.0301,"GL",400,2,402)=""
^DD(9002313.0301,"GL",450,5,455)=""
^DD(9002313.0301,"GL",498,1,498.51)=""
^DD(9002313.0301,"GL",498,2,498.52)=""
^DD(9002313.0301,"GL",498,3,498.53)=""
^DD(9002313.0301,"GL",498,4,498.54)=""
^DD(9002313.0301,"GL",498,5,498.55)=""
^DD(9002313.0301,"GL",498,6,498.14)=""
^DD(9002313.0301,"GL",498,7,498.57)=""
^DD(9002313.0301,"GL",498,8,498.58)=""
^DD(9002313.0301,"GL",500,1,501)=""
^DD(9002313.0301,"GL",500,3,503)=""
^DD(9002313.0301,"GL",500,5,505)=""
^DD(9002313.0301,"GL",500,6,506)=""
^DD(9002313.0301,"GL",500,7,507)=""
^DD(9002313.0301,"GL",500,8,508)=""
^DD(9002313.0301,"GL",500,9,509)=""
^DD(9002313.0301,"GL",500,10,510)=""
^DD(9002313.0301,"GL",500,12,512)=""
^DD(9002313.0301,"GL",500,13,513)=""
^DD(9002313.0301,"GL",500,14,514)=""
^DD(9002313.0301,"GL",500,17,517)=""
^DD(9002313.0301,"GL",500,18,518)=""
^DD(9002313.0301,"GL",500,19,519)=""
^DD(9002313.0301,"GL",500,20,520)=""
^DD(9002313.0301,"GL",500,21,521)=""
^DD(9002313.0301,"GL",500,22,522)=""
^DD(9002313.0301,"GL",500,23,523)=""
^DD(9002313.0301,"GL",504,1,504)=""
^DD(9002313.0301,"GL",511,0,511)=""
^DD(9002313.0301,"GL",525,1,525)=""
^DD(9002313.0301,"GL",526,1,526)=""
^DD(9002313.0301,"GL",540,7,547)=""
^DD(9002313.0301,"GL",540,9,549)=""
^DD(9002313.0301,"GL",540,10,550)=""
^DD(9002313.0301,"GL",548,0,548)=""
^DD(9002313.0301,"GL",550,1,551)=""
^DD(9002313.0301,"GL",550,7,557)=""
^DD(9002313.0301,"GL",550,8,558)=""
^DD(9002313.0301,"GL",550,9,559)=""
^DD(9002313.0301,"GL",550,10,560)=""
^DD(9002313.0301,"GL",551.01,0,551.01)=""
^DD(9002313.0301,"GL",560,1,561)=""
^DD(9002313.0301,"GL",560,2,562)=""
^DD(9002313.0301,"GL",560,3,563)=""
^DD(9002313.0301,"GL",560,6,566)=""
^DD(9002313.0301,"GL",563.01,0,563.01)=""
^DD(9002313.0301,"GL",567.01,0,567.01)=""
^DD(9002313.0301,"GL",1000,1,1000)=""
^DD(9002313.0301,"IX",.01)=""
^DD(9002313.0301,"IX",501)=""
^DD(9002313.0301,"SB",9002313.03511,511)=""
^DD(9002313.0301,"SB",9002313.1101,567.01)=""
^DD(9002313.0301,"SB",9002313.1301,551.01)=""
^DD(9002313.0301,"SB",9002313.1401,563.01)=""
^DD(9002313.0301,"SB",9002313.301548,548)=""
^DD(9002313.03511,0)="Reject Code(s) SUB-FIELD^^546^2"
^DD(9002313.03511,0,"DT")="3020808"
^DD(9002313.03511,0,"IX","B",9002313.03511,.01)=""
^DD(9002313.03511,0,"NM","Reject Code(s)")=""
^DD(9002313.03511,0,"UP")="9002313.0301"
^DD(9002313.03511,.01,0)="Reject Code(s)^MFO^^0;1^K:$L(X)>3!($L(X)<1) X"
^DD(9002313.03511,.01,1,0)="^.1"
^DD(9002313.03511,.01,1,1,0)="9002313.03511^B"
^DD(9002313.03511,.01,1,1,1)="S ^BPSR(DA(2),1000,DA(1),511,""B"",$E(X,1,30),DA)="""""
^DD(9002313.03511,.01,1,1,2)="K ^BPSR(DA(2),1000,DA(1),511,""B"",$E(X,1,30),DA)"
^DD(9002313.03511,.01,2)="S Y(0)=Y S Y=$$TRANREJ^BPSECFM(Y)"
^DD(9002313.03511,.01,2.1)="S Y=$$TRANREJ^BPSECFM(Y)"
^DD(9002313.03511,.01,3)="Answer must be 1-3 characters in length."
^DD(9002313.03511,.01,21,0)="^^2^2^3040126^"
^DD(9002313.03511,.01,21,1,0)="The code returned in the response indicating the reason(s)"
^DD(9002313.03511,.01,21,2,0)="why the claim was rejected."
^DD(9002313.03511,.01,"DT")="3020828"
^DD(9002313.03511,546,0)="Reject Fld Occurrence Ind^F^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.03511,546,3)="Answer must be 1-2 characters in length."
^DD(9002313.03511,546,21,0)="^^1^1^3040126^"
^DD(9002313.03511,546,21,1,0)="The number of times a particular field caused a rejection to be triggered."
^DD(9002313.03511,546,"DT")="3020807"
^DD(9002313.03511,"B","Reject Code(s)",.01)=""
^DD(9002313.03511,"B","Reject Fld Occurrence Ind",546)=""
^DD(9002313.03511,"GL",0,1,.01)=""
^DD(9002313.03511,"GL",0,2,546)=""
^DD(9002313.03511,"IX",.01)=""
^DD(9002313.0401,0)="COB/Other Payments   SUB-FIELD^^472^9"
^DD(9002313.0401,0,"DT")="3020731"
^DD(9002313.0401,0,"IX","B",9002313.0401,.01)=""
^DD(9002313.0401,0,"NM","COB/Other Payments  ")=""
^DD(9002313.0401,0,"UP")="9002313.0201"
^DD(9002313.0401,.01,0)="COB/Other Paymnt Cntr^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0401,.01,1,0)="^.1"
^DD(9002313.0401,.01,1,1,0)="9002313.0401^B"
^DD(9002313.0401,.01,1,1,1)="S ^BPSC(DA(2),400,DA(1),337,""B"",$E(X,1,30),DA)="""""
^DD(9002313.0401,.01,1,1,2)="K ^BPSC(DA(2),400,DA(1),337,""B"",$E(X,1,30),DA)"
^DD(9002313.0401,.01,3)="Answer must be 1 character in length."
^DD(9002313.0401,.01,21,0)="^^1^1^3031125^"
^DD(9002313.0401,.01,21,1,0)="Count of other payment occurrences."
^DD(9002313.0401,.01,"DT")="3031125"
^DD(9002313.0401,338,0)="Other Payer Coverage Type^F^^0;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0401,338,3)="Answer must be 2 characters in length."
^DD(9002313.0401,338,21,0)="^^1^1^3031125^"
^DD(9002313.0401,338,21,1,0)="Code identifying the type of 'Other Payer ID' (34Ø)."
^DD(9002313.0401,338,"DT")="3031125"
^DD(9002313.0401,339,0)="Other Payer ID Qualifier^F^^0;3^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0401,339,3)="Answer must be 2 characters in length."
^DD(9002313.0401,339,21,0)="^^1^1^3031125^"
^DD(9002313.0401,339,21,1,0)="Code qualifying  the 'Other Payer ID' (34Ø)."
^DD(9002313.0401,339,"DT")="3031125"
^DD(9002313.0401,340,0)="Other Payer ID^F^^0;4^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.0401,340,3)="Answer must be 10 characters in length."
^DD(9002313.0401,340,21,0)="^^1^1^3031125^"
^DD(9002313.0401,340,21,1,0)="ID assigned to the payer."
^DD(9002313.0401,340,"DT")="3031125"
^DD(9002313.0401,341,0)="Other Payer Amt Paid Cnt^F^^0;6^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0401,341,3)="Answer must be 1 character in length."
^DD(9002313.0401,341,21,0)="^^1^1^3031125^"
^DD(9002313.0401,341,21,1,0)="Count of the payer amount paid occurrences."
^DD(9002313.0401,341,"DT")="3031125"
^DD(9002313.0401,342,0)="Other Payer Amt Paid Qual^9002313.401342A^^1;0"
^DD(9002313.0401,443,0)="Other Payer Date^F^^0;5^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0401,443,3)="Answer must be 8 characters in length."
^DD(9002313.0401,443,21,0)="^^2^2^3031125^"
^DD(9002313.0401,443,21,1,0)="Payment or denial date of the claim submitted to the other payer. Used "
^DD(9002313.0401,443,21,2,0)="for coordination of benefits."
^DD(9002313.0401,443,"DT")="3031125"
^DD(9002313.0401,471,0)="Other Payer Reject Count^F^^0;7^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0401,471,3)="Answer must be 2 characters in length."
^DD(9002313.0401,471,21,0)="^^1^1^3031125^"
^DD(9002313.0401,471,21,1,0)="Count of 'Other Payer Reject Code' (472) occurrences."
^DD(9002313.0401,471,"DT")="3031125"
^DD(9002313.0401,472,0)="Other Payer Reject Code^9002313.401472A^^2;0"
^DD(9002313.0401,"B","COB/Other Paymnt Cntr",.01)=""
^DD(9002313.0401,"B","Other Payer Amt Paid Cnt",341)=""
^DD(9002313.0401,"B","Other Payer Amt Paid Qual",342)=""
^DD(9002313.0401,"B","Other Payer Coverage Type",338)=""
^DD(9002313.0401,"B","Other Payer Date",443)=""
^DD(9002313.0401,"B","Other Payer ID",340)=""
^DD(9002313.0401,"B","Other Payer ID Qualifier",339)=""
^DD(9002313.0401,"B","Other Payer Reject Code",472)=""
^DD(9002313.0401,"B","Other Payer Reject Count",471)=""
^DD(9002313.0401,"GL",0,1,.01)=""
^DD(9002313.0401,"GL",0,2,338)=""
^DD(9002313.0401,"GL",0,3,339)=""
^DD(9002313.0401,"GL",0,4,340)=""
^DD(9002313.0401,"GL",0,5,443)=""
^DD(9002313.0401,"GL",0,6,341)=""
^DD(9002313.0401,"GL",0,7,471)=""
^DD(9002313.0401,"GL",1,0,342)=""
^DD(9002313.0401,"GL",2,0,472)=""
^DD(9002313.0401,"IX",.01)=""
^DD(9002313.0401,"SB",9002313.401342,342)=""
^DD(9002313.0401,"SB",9002313.401472,472)=""
^DD(9002313.0501,0)="Compound Repeating Fields SUB-FIELD^^490^6"
^DD(9002313.0501,0,"DT")="3020731"
^DD(9002313.0501,0,"IX","B",9002313.0501,.01)=""
^DD(9002313.0501,0,"NM","Compound Repeating Fields")=""
^DD(9002313.0501,0,"UP")="9002313.0201"
^DD(9002313.0501,.01,0)="Compound Repeating Count^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0501,.01,1,0)="^.1"
^DD(9002313.0501,.01,1,1,0)="9002313.0501^B"
^DD(9002313.0501,.01,1,1,1)="S ^BPSC(DA(2),400,DA(1),447,""B"",$E(X,1,30),DA)="""""
^DD(9002313.0501,.01,1,1,2)="K ^BPSC(DA(2),400,DA(1),447,""B"",$E(X,1,30),DA)"
^DD(9002313.0501,.01,3)="Answer must be 1 character in length."
^DD(9002313.0501,.01,21,0)="^^1^1^3031216^"
^DD(9002313.0501,.01,21,1,0)="Count of Compounds for this medication."
^DD(9002313.0501,.01,"DT")="3020801"
^DD(9002313.0501,448,0)="Compound Ingredient Quantity^F^^0;4^K:$L(X)>10!($L(X)<10) X"
^DD(9002313.0501,448,3)="Answer must be 10 characters in length."
^DD(9002313.0501,448,21,0)="^^4^4^3031203^"
^DD(9002313.0501,448,21,1,0)="Amount expressed in metric"
^DD(9002313.0501,448,21,2,0)="decimal units of the product"
^DD(9002313.0501,448,21,3,0)="included in the compound"
^DD(9002313.0501,448,21,4,0)="mixture"
^DD(9002313.0501,448,"DT")="3020731"
^DD(9002313.0501,449,0)="Compound Ingredient Drug Cost^F^^0;5^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0501,449,3)="Answer must be 8 characters in length."
^DD(9002313.0501,449,21,0)="^^3^3^3031203^"
^DD(9002313.0501,449,21,1,0)="Ingredient cost for the metric decimal quantity of the product"
^DD(9002313.0501,449,21,2,0)="included in the compound mixture indicated in Compound Ingredient"
^DD(9002313.0501,449,21,3,0)="Quantity  (Field 448-ED)."
^DD(9002313.0501,449,"DT")="3020731"
^DD(9002313.0501,488,0)="Compound Product ID Qualifier^F^^0;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0501,488,3)="Answer must be 2 characters in length."
^DD(9002313.0501,488,21,0)="^^2^2^3031203^"
^DD(9002313.0501,488,21,1,0)="Code qualifying the type of"
^DD(9002313.0501,488,21,2,0)="product dispensed."
^DD(9002313.0501,488,"DT")="3020731"
^DD(9002313.0501,489,0)="Compound Product ID  ^F^^0;3^K:$L(X)>19!($L(X)<19) X"
^DD(9002313.0501,489,3)="Answer must be 19 characters in length."
^DD(9002313.0501,489,21,0)="^^3^3^3031203^"
^DD(9002313.0501,489,21,1,0)="Product identification of an"
^DD(9002313.0501,489,21,2,0)="ingredient used in a"
^DD(9002313.0501,489,21,3,0)="compound."
^DD(9002313.0501,489,"DT")="3020731"
^DD(9002313.0501,490,0)="Compound Ingred Basis of Cost^F^^0;6^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0501,490,3)="Answer must be 2 characters in length."
^DD(9002313.0501,490,21,0)="^^2^2^3031203^"
^DD(9002313.0501,490,21,1,0)="The code for the method of determining the"
^DD(9002313.0501,490,21,2,0)="amount charged."
^DD(9002313.0501,490,"DT")="3020731"
^DD(9002313.0501,"B","Compound Ingred Basis of Cost",490)=""
^DD(9002313.0501,"B","Compound Ingredient Drug Cost",449)=""
^DD(9002313.0501,"B","Compound Ingredient Quantity",448)=""
^DD(9002313.0501,"B","Compound Product ID  ",489)=""
^DD(9002313.0501,"B","Compound Product ID Qualifier",488)=""
^DD(9002313.0501,"B","Compound Repeating Count",.01)=""
^DD(9002313.0501,"GL",0,1,.01)=""
^DD(9002313.0501,"GL",0,2,488)=""
^DD(9002313.0501,"GL",0,3,489)=""
^DD(9002313.0501,"GL",0,4,448)=""
^DD(9002313.0501,"GL",0,5,449)=""
^DD(9002313.0501,"GL",0,6,490)=""
^DD(9002313.0501,"IX",.01)=""
^DD(9002313.0601,0)="Pricing Repeating Section SUB-FIELD^^480^3"
^DD(9002313.0601,0,"DT")="3020801"
^DD(9002313.0601,0,"IX","B",9002313.0601,.01)=""
^DD(9002313.0601,0,"NM","Pricing Repeating Section")=""
^DD(9002313.0601,0,"UP")="9002313.0201"
^DD(9002313.0601,.01,0)="Pricing Counter^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0601,.01,1,0)="^.1"
^DD(9002313.0601,.01,1,1,0)="9002313.0601^B"
^DD(9002313.0601,.01,1,1,1)="S ^BPSC(DA(2),400,DA(1),478.01,""B"",$E(X,1,30),DA)="""""
^DD(9002313.0601,.01,1,1,2)="K ^BPSC(DA(2),400,DA(1),478.01,""B"",$E(X,1,30),DA)"
^DD(9002313.0601,.01,3)="Answer must be 1 character in length."
^DD(9002313.0601,.01,21,0)="^^2^2^3040126^"
^DD(9002313.0601,.01,21,1,0)="The number of pricing entries in the sub file.  Used for coordination of"
^DD(9002313.0601,.01,21,2,0)="benefits."
^DD(9002313.0601,.01,"DT")="3020801"
^DD(9002313.0601,479,0)="Other Amt Claimed Sub Qual^F^^0;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0601,479,3)="Answer must be 2 characters in length."
^DD(9002313.0601,479,21,0)="^^4^4^3031204^"
^DD(9002313.0601,479,21,1,0)="Code identifying the additional"
^DD(9002313.0601,479,21,2,0)="incurred cost claimed in  Other"
^DD(9002313.0601,479,21,3,0)="Amount Claimed Submitted "
^DD(9002313.0601,479,21,4,0)="(48Ø-H9)."
^DD(9002313.0601,479,"DT")="3020801"
^DD(9002313.0601,480,0)="Other Amt Claimed Sub  ^F^^0;3^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0601,480,3)="Answer must be 8 characters in length."
^DD(9002313.0601,480,21,0)="^^1^1^3031204^"
^DD(9002313.0601,480,21,1,0)="Other amount claimed subtotal"
^DD(9002313.0601,480,"DT")="3020801"
^DD(9002313.0601,"B","Other Amt Claimed Sub  ",480)=""
^DD(9002313.0601,"B","Other Amt Claimed Sub Qual",479)=""
^DD(9002313.0601,"B","Pricing Counter",.01)=""
^DD(9002313.0601,"GL",0,1,.01)=""
^DD(9002313.0601,"GL",0,2,479)=""
^DD(9002313.0601,"GL",0,3,480)=""
^DD(9002313.0601,"IX",.01)=""
^DD(9002313.0701,0)="Clinical Diagnosis Repeating SUB-FIELD^^492^3"
^DD(9002313.0701,0,"DT")="3020801"
^DD(9002313.0701,0,"IX","B",9002313.0701,.01)=""
^DD(9002313.0701,0,"NM","Clinical Diagnosis Repeating")=""
^DD(9002313.0701,0,"UP")="9002313.0201"
^DD(9002313.0701,.01,0)="Diagnosis Counter^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0701,.01,1,0)="^.1"
^DD(9002313.0701,.01,1,1,0)="9002313.0701^B"
^DD(9002313.0701,.01,1,1,1)="S ^BPSC(DA(2),400,DA(1),491.01,""B"",$E(X,1,30),DA)="""""
^DD(9002313.0701,.01,1,1,2)="K ^BPSC(DA(2),400,DA(1),491.01,""B"",$E(X,1,30),DA)"
^DD(9002313.0701,.01,3)="Answer must be 1 character in length."
^DD(9002313.0701,.01,21,0)="^^1^1^3040126^"
^DD(9002313.0701,.01,21,1,0)="The number of diagnosis codes defined for this medication order."
^DD(9002313.0701,.01,"DT")="3020801"
^DD(9002313.0701,424,0)="Diagnosis Code  ^F^^0;3^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0701,424,3)="Answer must be 15 characters in length."
^DD(9002313.0701,424,21,0)="^^1^1^3031204^"
^DD(9002313.0701,424,21,1,0)="Code identifying the diagnosis of the patient."
^DD(9002313.0701,424,"DT")="3020801"
^DD(9002313.0701,492,0)="Dianosis Code Qualifier^F^^0;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0701,492,3)="Answer must be 2 characters in length."
^DD(9002313.0701,492,21,0)="^^18^18^3031204^"
^DD(9002313.0701,492,21,1,0)="Code qualifying the  Diagnosis Code  (424-DO)."
^DD(9002313.0701,492,21,2,0)=" "
^DD(9002313.0701,492,21,3,0)="Blank=Not Specified"
^DD(9002313.0701,492,21,4,0)="ØØ=Not Specified"
^DD(9002313.0701,492,21,5,0)="Ø1=International Classification of Diseases"
^DD(9002313.0701,492,21,6,0)="(ICD9)"
^DD(9002313.0701,492,21,7,0)="Ø2=International Classification of Diseases"
^DD(9002313.0701,492,21,8,0)="(ICD1Ø)"
^DD(9002313.0701,492,21,9,0)="Ø3=National Criteria Care Institute (NCCI)"
^DD(9002313.0701,492,21,10,0)="Ø4=The Systematized Nomenclature of"
^DD(9002313.0701,492,21,11,0)="Human and Veterinary Medicine"
^DD(9002313.0701,492,21,12,0)="(SNOMED)"
^DD(9002313.0701,492,21,13,0)="Ø5=Common Dental Terminology (CDT)"
^DD(9002313.0701,492,21,14,0)="Ø6=Medi-Span Diagnosis Code"
^DD(9002313.0701,492,21,15,0)="Ø7=American Psychiatric Association"
^DD(9002313.0701,492,21,16,0)="Diagnostic Statistical Manual of Mental"
^DD(9002313.0701,492,21,17,0)="Disorders(DSM IV)"
^DD(9002313.0701,492,21,18,0)="99=Other"
^DD(9002313.0701,492,"DT")="3020801"
^DD(9002313.0701,"B","Diagnosis Code  ",424)=""
^DD(9002313.0701,"B","Diagnosis Counter",.01)=""
^DD(9002313.0701,"B","Dianosis Code Qualifier",492)=""
^DD(9002313.0701,"GL",0,1,.01)=""
^DD(9002313.0701,"GL",0,2,492)=""
^DD(9002313.0701,"GL",0,3,424)=""
^DD(9002313.0701,"IX",.01)=""
^DD(9002313.0801,0)="Clinical Information Repeating SUB-FIELD^^499^6"
^DD(9002313.0801,0,"DT")="3020801"
^DD(9002313.0801,0,"IX","B",9002313.0801,.01)=""
^DD(9002313.0801,0,"NM","Clinical Information Repeating")=""
^DD(9002313.0801,0,"UP")="9002313.0201"
^DD(9002313.0801,.01,0)="(493) Clinical Info Counter^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.0801,.01,1,0)="^.1"
^DD(9002313.0801,.01,1,1,0)="9002313.0801^B"
^DD(9002313.0801,.01,1,1,1)="S ^BPSC(DA(2),400,DA(1),493.01,""B"",$E(X,1,30),DA)="""""
^DD(9002313.0801,.01,1,1,2)="K ^BPSC(DA(2),400,DA(1),493.01,""B"",$E(X,1,30),DA)"
^DD(9002313.0801,.01,3)="Answer must be 1 character in length."
^DD(9002313.0801,.01,21,0)="^^1^1^3040126^"
^DD(9002313.0801,.01,21,1,0)="The number of clinical indicator records for the medication order."
^DD(9002313.0801,.01,"DT")="3020820"
^DD(9002313.0801,494,0)="Measurement Date^F^^0;2^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.0801,494,3)="Answer must be 8 characters in length."
^DD(9002313.0801,494,21,0)="^^1^1^3031204^"
^DD(9002313.0801,494,21,1,0)="Date clinical information was collected or measured."
^DD(9002313.0801,494,"DT")="3020801"
^DD(9002313.0801,495,0)="Measurement Time^F^^0;3^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.0801,495,3)="Answer must be 4 characters in length."
^DD(9002313.0801,495,21,0)="^^1^1^3031204^"
^DD(9002313.0801,495,21,1,0)="Time clinical information was collected or measured."
^DD(9002313.0801,495,"DT")="3020801"
^DD(9002313.0801,496,0)="Measurement Dimension^F^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0801,496,3)="Answer must be 2 characters in length."
^DD(9002313.0801,496,21,0)="^^2^2^3031204^"
^DD(9002313.0801,496,21,1,0)="Code indicating the clinical domain of the observed value"
^DD(9002313.0801,496,21,2,0)="in  Measurement Value  (499- H4)."
^DD(9002313.0801,496,"DT")="3020801"
^DD(9002313.0801,497,0)="Measurement Unit^F^^0;5^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.0801,497,3)="Answer must be 2 characters in length."
^DD(9002313.0801,497,21,0)="^^2^2^3031204^"
^DD(9002313.0801,497,21,1,0)="Code indicating the metric or English units used with the"
^DD(9002313.0801,497,21,2,0)="clinical information."
^DD(9002313.0801,497,"DT")="3020801"
^DD(9002313.0801,499,0)="Measurement Value^F^^0;6^K:$L(X)>15!($L(X)<15) X"
^DD(9002313.0801,499,3)="Answer must be 15 characters in length."
^DD(9002313.0801,499,21,0)="^^1^1^3031204^"
^DD(9002313.0801,499,21,1,0)="Actual value of clinical information."
^DD(9002313.0801,499,"DT")="3020801"
^DD(9002313.0801,"B","(493) Clinical Info Counter",.01)=""
^DD(9002313.0801,"B","Measurement Date",494)=""
^DD(9002313.0801,"B","Measurement Dimension",496)=""
^DD(9002313.0801,"B","Measurement Time",495)=""
^DD(9002313.0801,"B","Measurement Unit",497)=""
^DD(9002313.0801,"B","Measurement Value",499)=""
^DD(9002313.0801,"GL",0,1,.01)=""
^DD(9002313.0801,"GL",0,2,494)=""
^DD(9002313.0801,"GL",0,3,495)=""
^DD(9002313.0801,"GL",0,4,496)=""
^DD(9002313.0801,"GL",0,5,497)=""
^DD(9002313.0801,"GL",0,6,499)=""
^DD(9002313.0801,"IX",.01)=""
^DD(9002313.0901,0)="Prior Auth Supporting Doc SUB-FIELD^^.01^1"
^DD(9002313.0901,0,"DT")="3020801"
^DD(9002313.0901,0,"NM","Prior Auth Supporting Doc")=""
^DD(9002313.0901,0,"UP")="9002313.0201"
^DD(9002313.0901,.01,0)="Prior Auth Supporting Doc^WL^^0;1^Q"
^DD(9002313.0901,.01,"DT")="3020801"
^DD(9002313.0901,"B","Prior Auth Supporting Doc",.01)=""
^DD(9002313.0901,"GL",0,1,.01)=""
^DD(9002313.1001,0)="DUR/PPS Repeating Fields SUB-FIELD^^476^7"
^DD(9002313.1001,0,"DT")="3020801"
^DD(9002313.1001,0,"IX","B",9002313.1001,.01)=""
^DD(9002313.1001,0,"NM","DUR/PPS Repeating Fields")=""
^DD(9002313.1001,0,"UP")="9002313.0201"
^DD(9002313.1001,.01,0)="(473) DUR/PPS Code Counter^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1001,.01,1,0)="^.1"
^DD(9002313.1001,.01,1,1,0)="9002313.1001^B"
^DD(9002313.1001,.01,1,1,1)="S ^BPSC(DA(2),400,DA(1),473.01,""B"",$E(X,1,30),DA)="""""
^DD(9002313.1001,.01,1,1,2)="K ^BPSC(DA(2),400,DA(1),473.01,""B"",$E(X,1,30),DA)"
^DD(9002313.1001,.01,3)="Answer must be 1 character in length."
^DD(9002313.1001,.01,21,0)="^^1^1^3040126^"
^DD(9002313.1001,.01,21,1,0)="The number of DUR messages that were returned in the response message."
^DD(9002313.1001,.01,"DT")="3020820"
^DD(9002313.1001,439,0)="Reason for Service Code^F^^0;2^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.1001,439,3)="Answer must be 2 characters in length."
^DD(9002313.1001,439,21,0)="^^4^4^3031204^"
^DD(9002313.1001,439,21,1,0)="Code identifying the type of"
^DD(9002313.1001,439,21,2,0)="utilization conflict detected or"
^DD(9002313.1001,439,21,3,0)="the reason for the pharmacist s"
^DD(9002313.1001,439,21,4,0)="professional service."
^DD(9002313.1001,439,"DT")="3020801"
^DD(9002313.1001,440,0)="Professional Service Code^F^^0;3^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.1001,440,3)="Answer must be 2 characters in length."
^DD(9002313.1001,440,21,0)="^^4^4^3031204^"
^DD(9002313.1001,440,21,1,0)="Code identifying the type of"
^DD(9002313.1001,440,21,2,0)="utilization conflict detected or"
^DD(9002313.1001,440,21,3,0)="the reason for the pharmacist s"
^DD(9002313.1001,440,21,4,0)="professional service."
^DD(9002313.1001,440,"DT")="3020801"
^DD(9002313.1001,441,0)="Result of Service Code^F^^0;4^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.1001,441,3)="Answer must be 2 characters in length."
^DD(9002313.1001,441,21,0)="^^4^4^3031204^"
^DD(9002313.1001,441,21,1,0)="Action taken by a pharmacist"
^DD(9002313.1001,441,21,2,0)="in response to a conflict or the"
^DD(9002313.1001,441,21,3,0)="result of a pharmacist s"
^DD(9002313.1001,441,21,4,0)="professional service."
^DD(9002313.1001,441,"DT")="3020801"
^DD(9002313.1001,474,0)="DUR/PPS Level of Effort^F^^0;5^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.1001,474,3)="Answer must be 2 characters in length."
^DD(9002313.1001,474,21,0)="^^6^6^3031204^"
^DD(9002313.1001,474,21,1,0)="Code indicating the level of"
^DD(9002313.1001,474,21,2,0)="effort as determined by the"
^DD(9002313.1001,474,21,3,0)="complexity of decision making"
^DD(9002313.1001,474,21,4,0)="or resources utilized by a"
^DD(9002313.1001,474,21,5,0)="pharmacist to perform a"
^DD(9002313.1001,474,21,6,0)="professional service"
^DD(9002313.1001,474,"DT")="3020801"
^DD(9002313.1001,475,0)="DUR Co-Agent ID Qualifier^F^^0;6^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.1001,475,3)="Answer must be 2 characters in length."
^DD(9002313.1001,475,21,0)="^^1^1^3031204^"
^DD(9002313.1001,475,21,1,0)="Code qualifying the value in DUR Co-Agent ID  (476-H6)."
^DD(9002313.1001,475,"DT")="3020801"
^DD(9002313.1001,476,0)="DUR Co-Agent ID  ^F^^0;7^K:$L(X)>19!($L(X)<19) X"
^DD(9002313.1001,476,3)="Answer must be 19 characters in length."
^DD(9002313.1001,476,21,0)="^^6^6^3031204^"
^DD(9002313.1001,476,21,1,0)="Identifies the co-existing agent"
^DD(9002313.1001,476,21,2,0)="contributing to the DUR event"
^DD(9002313.1001,476,21,3,0)="(drug or disease conflicting"
^DD(9002313.1001,476,21,4,0)="with the prescribed drug or"
^DD(9002313.1001,476,21,5,0)="prompting pharmacist"
^DD(9002313.1001,476,21,6,0)="professional service)."
^DD(9002313.1001,476,"DT")="3020801"
^DD(9002313.1001,"B","(473) DUR/PPS Code Counter",.01)=""
^DD(9002313.1001,"B","DUR Co-Agent ID  ",476)=""
^DD(9002313.1001,"B","DUR Co-Agent ID Qualifier",475)=""
^DD(9002313.1001,"B","DUR/PPS Level of Effort",474)=""
^DD(9002313.1001,"B","Professional Service Code",440)=""
^DD(9002313.1001,"B","Reason for Service Code",439)=""
^DD(9002313.1001,"B","Result of Service Code",441)=""
^DD(9002313.1001,"GL",0,1,.01)=""
^DD(9002313.1001,"GL",0,2,439)=""
^DD(9002313.1001,"GL",0,3,440)=""
^DD(9002313.1001,"GL",0,4,441)=""
^DD(9002313.1001,"GL",0,5,474)=""
^DD(9002313.1001,"GL",0,6,475)=""
^DD(9002313.1001,"GL",0,7,476)=""
^DD(9002313.1001,"IX",.01)=""
^DD(9002313.1101,0)="DUR/PPS Repeating Flds SUB-FIELD^^544^9"
^DD(9002313.1101,0,"DT")="3020820"
^DD(9002313.1101,0,"IX","B",9002313.1101,.01)=""
^DD(9002313.1101,0,"NM","DUR/PPS Repeating Flds")=""
^DD(9002313.1101,0,"UP")="9002313.0301"
^DD(9002313.1101,.01,0)="(567) DUR/PPS Resp Cd Counter^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1101,.01,1,0)="^.1"
^DD(9002313.1101,.01,1,1,0)="9002313.1101^B"
^DD(9002313.1101,.01,1,1,1)="S ^BPSR(DA(2),1000,DA(1),567.01,""B"",$E(X,1,30),DA)="""""
^DD(9002313.1101,.01,1,1,2)="K ^BPSR(DA(2),1000,DA(1),567.01,""B"",$E(X,1,30),DA)"
^DD(9002313.1101,.01,3)="Answer must be 1 character in length."
^DD(9002313.1101,.01,21,0)="^^1^1^3031125^"
^DD(9002313.1101,.01,21,1,0)="Counter number for each DUR/PPS set/logical grouping."
^DD(9002313.1101,.01,"DT")="3031125"
^DD(9002313.1101,439,0)="Reason for Service Code^FO^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.1101,439,2)="S Y(0)=Y S Y=$$TRANSCD^BPSECFM(Y)"
^DD(9002313.1101,439,2.1)="S Y=$$TRANSCD^BPSECFM(Y)"
^DD(9002313.1101,439,3)="Answer must be 1-2 characters in length."
^DD(9002313.1101,439,21,0)="^^2^2^3031125^"
^DD(9002313.1101,439,21,1,0)="Code identifying the type of utilization conflict detected or the reason "
^DD(9002313.1101,439,21,2,0)="for the pharmacist's professional service."
^DD(9002313.1101,439,"DT")="3031125"
^DD(9002313.1101,528,0)="Clinical Significance Code^F^^0;3^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1101,528,3)="Answer must be 1 character in length."
^DD(9002313.1101,528,21,0)="^^2^2^3031125^^"
^DD(9002313.1101,528,21,1,0)="Code identifying the significance or severity level of a clinical event "
^DD(9002313.1101,528,21,2,0)="as contained in the originating data base."
^DD(9002313.1101,528,"DT")="3031125"
^DD(9002313.1101,529,0)="Other Pharmacy Indicator^F^^0;4^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1101,529,3)="Answer must be 1 character in length."
^DD(9002313.1101,529,21,0)="^^2^2^3040126^"
^DD(9002313.1101,529,21,1,0)="Indicator telling whether the medication that caused the DUR to be "
^DD(9002313.1101,529,21,2,0)="triggered came from the current pharmacy, or an outside pharmacy."
^DD(9002313.1101,529,"DT")="3020820"
^DD(9002313.1101,530,0)="Previous Date of Fill^F^^0;5^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.1101,530,3)="Answer must be 8 characters in length."
^DD(9002313.1101,530,21,0)="^^1^1^3031125^"
^DD(9002313.1101,530,21,1,0)="Date prescription was previously filled."
^DD(9002313.1101,530,"DT")="3031125"
^DD(9002313.1101,531,0)="Quantity of Previous Fill^F^^0;6^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.1101,531,3)="Answer must be 1-10 characters in length."
^DD(9002313.1101,531,21,0)="^^2^2^3031125^"
^DD(9002313.1101,531,21,1,0)="Amount expressed in metric decimal units of the conflicting agent that "
^DD(9002313.1101,531,21,2,0)="was previously filled."
^DD(9002313.1101,531,"DT")="3031125"
^DD(9002313.1101,532,0)="Database Indicator^F^^0;7^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1101,532,3)="Answer must be 1 character in length."
^DD(9002313.1101,532,21,0)="^^1^1^3031125^"
^DD(9002313.1101,532,21,1,0)="Code identifying the source of drug information used for DUR processing."
^DD(9002313.1101,532,"DT")="3031125"
^DD(9002313.1101,533,0)="Other Prescriber Indicator^F^^0;8^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1101,533,3)="Answer must be 1 character in length."
^DD(9002313.1101,533,21,0)="^^2^2^3031125^"
^DD(9002313.1101,533,21,1,0)="Code comparing the prescriber of the current prescription to the "
^DD(9002313.1101,533,21,2,0)="prescriber of the previously filled conflicting prescription."
^DD(9002313.1101,533,"DT")="3031125"
^DD(9002313.1101,544,0)="DUR Free Text Message^F^^0;9^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.1101,544,3)="Answer must be 1-30 characters in length."
^DD(9002313.1101,544,21,0)="^^1^1^3031125^"
^DD(9002313.1101,544,21,1,0)="Text that provides additional detail regarding a DUR conflict."
^DD(9002313.1101,544,"DT")="3031125"
^DD(9002313.1101,"B","(567) DUR/PPS Resp Cd Counter",.01)=""
^DD(9002313.1101,"B","Clinical Significance Code",528)=""
^DD(9002313.1101,"B","DUR Free Text Message",544)=""
^DD(9002313.1101,"B","Database Indicator",532)=""
^DD(9002313.1101,"B","Other Pharmacy Indicator",529)=""
^DD(9002313.1101,"B","Other Prescriber Indicator",533)=""
^DD(9002313.1101,"B","Previous Date of Fill",530)=""
^DD(9002313.1101,"B","Quantity of Previous Fill",531)=""
^DD(9002313.1101,"B","Reason for Service Code",439)=""
^DD(9002313.1101,"GL",0,1,.01)=""
^DD(9002313.1101,"GL",0,2,439)=""
^DD(9002313.1101,"GL",0,3,528)=""
^DD(9002313.1101,"GL",0,4,529)=""
^DD(9002313.1101,"GL",0,5,530)=""
^DD(9002313.1101,"GL",0,6,531)=""
^DD(9002313.1101,"GL",0,7,532)=""
^DD(9002313.1101,"GL",0,8,533)=""
^DD(9002313.1101,"GL",0,9,544)=""
^DD(9002313.1101,"IX",.01)=""
^DD(9002313.12,0)="FIELD^^10^3"
^DD(9002313.12,0,"DDA")="N"
^DD(9002313.12,0,"DT")="3061114"
^DD(9002313.12,0,"IX","AC",9002313.12,.02)=""
^DD(9002313.12,0,"IX","B",9002313.12,.01)=""
^DD(9002313.12,0,"NM","BPS LOG")=""
^DD(9002313.12,0,"VR")="1.0"
^DD(9002313.12,0,"VRPK")="BPS"
^DD(9002313.12,.01,0)="LOG NAME^RF^^0;1^K:$L(X)>20!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.12,.01,1,0)="^.1"
^DD(9002313.12,.01,1,1,0)="9002313.12^B"
^DD(9002313.12,.01,1,1,1)="S ^BPS(9002313.12,""B"",$E(X,1,30),DA)="""""
^DD(9002313.12,.01,1,1,2)="K ^BPS(9002313.12,""B"",$E(X,1,30),DA)"
^DD(9002313.12,.01,3)="Enter the name of the Log"
^DD(9002313.12,.01,21,0)="^^1^1^3061017^"
^DD(9002313.12,.01,21,1,0)="Enter the name for this particular log."
^DD(9002313.12,.01,"DT")="3061017"
^DD(9002313.12,.02,0)="LAST UPDATE^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(9002313.12,.02,1,0)="^.1"
^DD(9002313.12,.02,1,1,0)="9002313.12^AC"
^DD(9002313.12,.02,1,1,1)="S ^BPS(9002313.12,""AC"",$E(X,1,30),DA)="""""
^DD(9002313.12,.02,1,1,2)="K ^BPS(9002313.12,""AC"",$E(X,1,30),DA)"
^DD(9002313.12,.02,1,1,"DT")="3061113"
^DD(9002313.12,.02,3)="Enter the date/time of the last update"
^DD(9002313.12,.02,21,0)="^^1^1^3061113^"
^DD(9002313.12,.02,21,1,0)="This is the date and time when the log was last updated"
^DD(9002313.12,.02,"DT")="3061113"
^DD(9002313.12,10,0)="LOG ENTRY^9002313.1201D^^10;0"
^DD(9002313.12,"B","LAST UPDATE",.02)=""
^DD(9002313.12,"B","LOG ENTRY",10)=""
^DD(9002313.12,"B","LOG NAME",.01)=""
^DD(9002313.12,"GL",0,1,.01)=""
^DD(9002313.12,"GL",0,2,.02)=""
^DD(9002313.12,"GL",10,0,10)=""
^DD(9002313.12,"IX",.01)=""
^DD(9002313.12,"IX",.02)=""
^DD(9002313.12,"RQ",.01)=""
^DD(9002313.12,"SB",9002313.1201,10)=""
^DD(9002313.1201,0)="LOG ENTRY SUB-FIELD^^1^2"
^DD(9002313.1201,0,"DT")="3061114"
^DD(9002313.1201,0,"IX","B",9002313.1201,.01)=""
^DD(9002313.1201,0,"NM","LOG ENTRY")=""
^DD(9002313.1201,0,"UP")="9002313.12"
^DD(9002313.1201,.01,0)="LOG DATE/TIME^D^^0;1^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(9002313.1201,.01,1,0)="^.1"
^DD(9002313.1201,.01,1,1,0)="9002313.1201^B"
^DD(9002313.1201,.01,1,1,1)="S ^BPS(9002313.12,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(9002313.1201,.01,1,1,2)="K ^BPS(9002313.12,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(9002313.1201,.01,3)="Enter the date and time for the log entry"
^DD(9002313.1201,.01,21,0)="^^1^1^3061220^"
^DD(9002313.1201,.01,21,1,0)="This is the date and time that the log entry was created"
^DD(9002313.1201,.01,"DT")="3061220"
^DD(9002313.1201,1,0)="LOG TEXT^F^^1;1^K:$L(X)>200!($L(X)<1) X"
^DD(9002313.1201,1,3)="Enter the log text (up to 200 characters)"
^DD(9002313.1201,1,"DT")="3061114"
^DD(9002313.1201,"B","LOG DATE/TIME",.01)=""
^DD(9002313.1201,"B","LOG TEXT",1)=""
^DD(9002313.1201,"GL",0,1,.01)=""
^DD(9002313.1201,"GL",1,1,1)=""
^DD(9002313.1201,"IX",.01)=""
^DD(9002313.1301,0)="Preferred Product Repeating SUB-FIELD^^556^6"
^DD(9002313.1301,0,"DT")="3020807"
^DD(9002313.1301,0,"IX","B",9002313.1301,.01)=""
^DD(9002313.1301,0,"NM","Preferred Product Repeating")=""
^DD(9002313.1301,0,"UP")="9002313.0301"
^DD(9002313.1301,.01,0)="Preferred Product Counter^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1301,.01,1,0)="^.1"
^DD(9002313.1301,.01,1,1,0)="9002313.1301^B"
^DD(9002313.1301,.01,1,1,1)="S ^BPSR(DA(2),1000,DA(1),551.01,""B"",$E(X,1,30),DA)="""""
^DD(9002313.1301,.01,1,1,2)="K ^BPSR(DA(2),1000,DA(1),551.01,""B"",$E(X,1,30),DA)"
^DD(9002313.1301,.01,3)="Answer must be 1 character in length."
^DD(9002313.1301,.01,21,0)="^^1^1^3040331^"
^DD(9002313.1301,.01,21,1,0)="Sequential counter of the Preferred Product occurences."
^DD(9002313.1301,.01,"DT")="3040331"
^DD(9002313.1301,552,0)="Preferred Product ID Qualifier^F^^1;1^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.1301,552,3)="Answer must be 1-2 characters in length."
^DD(9002313.1301,552,21,0)="^^2^2^3031124^"
^DD(9002313.1301,552,21,1,0)="Code qualifying the type of product ID submitted in 'Preferred Product "
^DD(9002313.1301,552,21,2,0)="ID' (553)."
^DD(9002313.1301,552,"DT")="3031124"
^DD(9002313.1301,553,0)="Preferred Product ID  ^F^^1;2^K:$L(X)>19!($L(X)<1) X"
^DD(9002313.1301,553,3)="Answer must be 1-19 characters in length."
^DD(9002313.1301,553,21,0)="^^1^1^3031124^"
^DD(9002313.1301,553,21,1,0)="Alternate product recommended by the plan."
^DD(9002313.1301,553,"DT")="3031124"
^DD(9002313.1301,554,0)="Preferred Product Incentive^F^^1;3^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.1301,554,3)="Answer must be 8 characters in length."
^DD(9002313.1301,554,21,0)="^^2^2^3031124^"
^DD(9002313.1301,554,21,1,0)="Amount of pharmacy incentive available for substitution of preferred "
^DD(9002313.1301,554,21,2,0)="product."
^DD(9002313.1301,554,"DT")="3031124"
^DD(9002313.1301,555,0)="Preferred Product Copay Inc^F^^1;4^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.1301,555,3)="Answer must be 8 characters in length."
^DD(9002313.1301,555,21,0)="^^1^1^3031124^"
^DD(9002313.1301,555,21,1,0)="Amount of patient's copay/cost-share incentive for preferred product."
^DD(9002313.1301,555,"DT")="3031124"
^DD(9002313.1301,556,0)="Preferred Product Description^F^^1;5^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.1301,556,3)="Answer must be 1-40 characters in length."
^DD(9002313.1301,556,21,0)="^^1^1^3031124^"
^DD(9002313.1301,556,21,1,0)="Free text message."
^DD(9002313.1301,556,"DT")="3031124"
^DD(9002313.1301,"B","Preferred Product Copay Inc",555)=""
^DD(9002313.1301,"B","Preferred Product Counter",.01)=""
^DD(9002313.1301,"B","Preferred Product Description",556)=""
^DD(9002313.1301,"B","Preferred Product ID  ",553)=""
^DD(9002313.1301,"B","Preferred Product ID Qualifier",552)=""
^DD(9002313.1301,"B","Preferred Product Incentive",554)=""
^DD(9002313.1301,"GL",0,1,.01)=""
^DD(9002313.1301,"GL",1,1,552)=""
^DD(9002313.1301,"GL",1,2,553)=""
^DD(9002313.1301,"GL",1,3,554)=""
^DD(9002313.1301,"GL",1,4,555)=""
^DD(9002313.1301,"GL",1,5,556)=""
^DD(9002313.1301,"IX",.01)=""
^DD(9002313.1401,0)="Other Amt Paid Repeating Flds SUB-FIELD^^565^3"
^DD(9002313.1401,0,"DT")="3020807"
^DD(9002313.1401,0,"IX","B",9002313.1401,.01)=""
^DD(9002313.1401,0,"NM","Other Amt Paid Repeating Flds")=""
^DD(9002313.1401,0,"UP")="9002313.0301"
^DD(9002313.1401,.01,0)="Other Amt Paid Counter^F^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.1401,.01,1,0)="^.1"
^DD(9002313.1401,.01,1,1,0)="9002313.1401^B"
^DD(9002313.1401,.01,1,1,1)="S ^BPSR(DA(2),1000,DA(1),563.01,""B"",$E(X,1,30),DA)="""""
^DD(9002313.1401,.01,1,1,2)="K ^BPSR(DA(2),1000,DA(1),563.01,""B"",$E(X,1,30),DA)"
^DD(9002313.1401,.01,3)="Answer must be 1 character in length."
^DD(9002313.1401,.01,21,0)="^^1^1^3031125^"
^DD(9002313.1401,.01,21,1,0)="Count of the other amount paid occurrences."
^DD(9002313.1401,.01,"DT")="3031125"
^DD(9002313.1401,564,0)="Other Amount Paid Qualifier^F^^1;1^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.1401,564,3)="Answer must be 1-2 characters in length."
^DD(9002313.1401,564,21,0)="^^1^1^3031125^"
^DD(9002313.1401,564,21,1,0)="Code clarifying the value in the 'Other Amount Paid' (565)."
^DD(9002313.1401,564,"DT")="3031125"
^DD(9002313.1401,565,0)="Other Amount Paid  ^F^^1;2^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.1401,565,3)="Answer must be 8 characters in length."
^DD(9002313.1401,565,21,0)="^^2^2^3031125^"
^DD(9002313.1401,565,21,1,0)="Amount paid for additional  costs claimed in 'Other Amount Claimed "
^DD(9002313.1401,565,21,2,0)="Submitted' (48Ø)."
^DD(9002313.1401,565,"DT")="3031125"
^DD(9002313.1401,"B","Other Amount Paid  ",565)=""
^DD(9002313.1401,"B","Other Amount Paid Qualifier",564)=""
^DD(9002313.1401,"B","Other Amt Paid Counter",.01)=""
^DD(9002313.1401,"GL",0,1,.01)=""
^DD(9002313.1401,"GL",1,1,564)=""
^DD(9002313.1401,"GL",1,2,565)=""
^DD(9002313.1401,"IX",.01)=""
^DD(9002313.201459,0)="Procedure Modifier Code SUB-FIELD^^.01^1"
^DD(9002313.201459,0,"DT")="3020801"
^DD(9002313.201459,0,"IX","B",9002313.201459,.01)=""
^DD(9002313.201459,0,"NM","Procedure Modifier Code")=""
^DD(9002313.201459,0,"UP")="9002313.0201"
^DD(9002313.201459,.01,0)="Procedure Modifier Code^F^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.201459,.01,1,0)="^.1"
^DD(9002313.201459,.01,1,1,0)="9002313.201459^B"
^DD(9002313.201459,.01,1,1,1)="S ^BPSC(DA(2),400,DA(1),459,""B"",$E(X,1,30),DA)="""""
^DD(9002313.201459,.01,1,1,2)="K ^BPSC(DA(2),400,DA(1),459,""B"",$E(X,1,30),DA)"
^DD(9002313.201459,.01,3)="Answer must be 2 characters in length."
^DD(9002313.201459,.01,21,0)="^^3^3^3031203^"
^DD(9002313.201459,.01,21,1,0)="Count of the  Procedure"
^DD(9002313.201459,.01,21,2,0)="Modifier Code  (459-ER)"
^DD(9002313.201459,.01,21,3,0)="occurrences."
^DD(9002313.201459,.01,"DT")="3020801"
^DD(9002313.201459,"B","Procedure Modifier Code",.01)=""
^DD(9002313.201459,"GL",0,1,.01)=""
^DD(9002313.201459,"IX",.01)=""
^DD(9002313.21,0)="FIELD^^1^2"
^DD(9002313.21,0,"DDA")="N"
^DD(9002313.21,0,"DT")="3050509"
^DD(9002313.21,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(9002313.21,0,"IX","B",9002313.21,.01)=""
^DD(9002313.21,0,"NM","BPS NCPDP PROFESSIONAL SERVICE CODE")=""
^DD(9002313.21,0,"VR")="1.0"
^DD(9002313.21,0,"VRPK")="BPS"
^DD(9002313.21,.01,0)="CODE^RF^^0;1^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.21,.01,1,0)="^.1"
^DD(9002313.21,.01,1,1,0)="9002313.21^B"
^DD(9002313.21,.01,1,1,1)="S ^BPS(9002313.21,""B"",$E(X,1,30),DA)="""""
^DD(9002313.21,.01,1,1,2)="K ^BPS(9002313.21,""B"",$E(X,1,30),DA)"
^DD(9002313.21,.01,3)="Answer must be 1-5 characters in length"
^DD(9002313.21,.01,21,0)="^^2^2^3050624^"
^DD(9002313.21,.01,21,1,0)="Code identifying pharmacist intervention when a conflict code has been identified or service has been"
^DD(9002313.21,.01,21,2,0)="rendered. "
^DD(9002313.21,.01,"DT")="3050509"
^DD(9002313.21,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(9002313.21,1,3)="Answer must be 1-50 characters in length"
^DD(9002313.21,1,21,0)="^.001^1^1^3050624^^"
^DD(9002313.21,1,21,1,0)="Description of the NCPDP PROFESSIONAL SERVICE CODE use to override DUR rejects (e.g., PHARMACIST CONSULTED OTHER SOURCE,PRESCRIBER CONSULTED)."
^DD(9002313.21,1,"DT")="3050509"
^DD(9002313.21,"B","CODE",.01)=""
^DD(9002313.21,"B","DESCRIPTION",1)=""
^DD(9002313.21,"GL",0,1,.01)=""
^DD(9002313.21,"GL",0,2,1)=""
^DD(9002313.21,"IX",.01)=""
^DD(9002313.21,"RQ",.01)=""
^DD(9002313.22,0)="FIELD^^1^2"
^DD(9002313.22,0,"DDA")="N"
^DD(9002313.22,0,"DT")="3050509"
^DD(9002313.22,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(9002313.22,0,"IX","B",9002313.22,.01)=""
^DD(9002313.22,0,"NM","BPS NCPDP RESULT OF SERVICE CODE")=""
^DD(9002313.22,0,"VR")="1.0"
^DD(9002313.22,0,"VRPK")="BPS"
^DD(9002313.22,.01,0)="CODE^RF^^0;1^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.22,.01,1,0)="^.1"
^DD(9002313.22,.01,1,1,0)="9002313.22^B"
^DD(9002313.22,.01,1,1,1)="S ^BPS(9002313.22,""B"",$E(X,1,30),DA)="""""
^DD(9002313.22,.01,1,1,2)="K ^BPS(9002313.22,""B"",$E(X,1,30),DA)"
^DD(9002313.22,.01,3)="Answer must be 1-5 characters in length"
^DD(9002313.22,.01,21,0)="^.001^1^1^3050624^^^"
^DD(9002313.22,.01,21,1,0)="Action taken by a pharmacist in response to a conflict or the result of a pharmacist's professional service."
^DD(9002313.22,.01,"DT")="3050509"
^DD(9002313.22,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(9002313.22,1,3)="Answer must be 1-50 characters in length"
^DD(9002313.22,1,21,0)="^^1^1^3050624^"
^DD(9002313.22,1,21,1,0)="Description of the NCPDP RESULT OF SERVICE CODE used to override DUR rejects (e.g., FILLED, WITH DIFFERENT DOSAGE FORM,THERAPY CHANGED)"
^DD(9002313.22,1,"DT")="3050509"
^DD(9002313.22,"B","CODE",.01)=""
^DD(9002313.22,"B","DESCRIPTION",1)=""
^DD(9002313.22,"GL",0,1,.01)=""
^DD(9002313.22,"GL",0,2,1)=""
^DD(9002313.22,"IX",.01)=""
^DD(9002313.22,"RQ",.01)=""
^DD(9002313.23,0)="FIELD^^1^2"
^DD(9002313.23,0,"DDA")="N"
^DD(9002313.23,0,"DT")="3050512"
^DD(9002313.23,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(9002313.23,0,"IX","B",9002313.23,.01)=""
^DD(9002313.23,0,"NM","BPS NCPDP REASON FOR SERVICE CODE")=""
^DD(9002313.23,0,"VR")="1.0"
^DD(9002313.23,0,"VRPK")="BPS"
^DD(9002313.23,.01,0)="CODE^RF^^0;1^K:$L(X)>5!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.23,.01,1,0)="^.1"
^DD(9002313.23,.01,1,1,0)="9002313.23^B"
^DD(9002313.23,.01,1,1,1)="S ^BPS(9002313.23,""B"",$E(X,1,30),DA)="""""
^DD(9002313.23,.01,1,1,2)="K ^BPS(9002313.23,""B"",$E(X,1,30),DA)"
^DD(9002313.23,.01,3)="Answer must be 1-5 characters in length"
^DD(9002313.23,.01,21,0)="^^1^1^3050624^"
^DD(9002313.23,.01,21,1,0)="Code identifying the type of utilization conflict detected or the reason for the pharmacist's professional service. "
^DD(9002313.23,.01,"DT")="3050512"
^DD(9002313.23,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>60!($L(X)<1) X"
^DD(9002313.23,1,3)="Answer must be 1-60 characters in length"
^DD(9002313.23,1,21,0)="^.001^1^1^3050624^^"
^DD(9002313.23,1,21,1,0)="Description of the NCPDP REASON FOR SERVICE CODE used to override DUR rejects (e.g., SUBOPTIMAL DRUG/INDICATION, LABORATORY TEST NEEDED)."
^DD(9002313.23,1,"DT")="3050624"
^DD(9002313.23,"B","CODE",.01)=""
^DD(9002313.23,"B","DESCRIPTION",1)=""
^DD(9002313.23,"GL",0,1,.01)=""
^DD(9002313.23,"GL",0,2,1)=""
^DD(9002313.23,"IX",.01)=""
^DD(9002313.23,"RQ",.01)=""
^DD(9002313.24,0)="FIELD^^1^2"
^DD(9002313.24,0,"DDA")="N"
^DD(9002313.24,0,"DT")="3050627"
^DD(9002313.24,0,"ID",1)="W ""   "",$P(^(0),U,2)"
^DD(9002313.24,0,"IX","B",9002313.24,.01)=""
^DD(9002313.24,0,"NM","BPS NCPDP DAW CODE")=""
^DD(9002313.24,0,"VR")="1.0"
^DD(9002313.24,0,"VRPK")="BPS"
^DD(9002313.24,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.24,.01,1,0)="^.1"
^DD(9002313.24,.01,1,1,0)="9002313.24^B"
^DD(9002313.24,.01,1,1,1)="S ^BPS(9002313.24,""B"",$E(X,1,30),DA)="""""
^DD(9002313.24,.01,1,1,2)="K ^BPS(9002313.24,""B"",$E(X,1,30),DA)"
^DD(9002313.24,.01,3)="Answer must be 1-2 characters in length"
^DD(9002313.24,.01,21,0)="^^1^1^3050627^"
^DD(9002313.24,.01,21,1,0)="Code indicating whether or not the prescriber's instructions regarding generic substitution were followed."
^DD(9002313.24,.01,"DT")="3050627"
^DD(9002313.24,1,0)="DESCRIPTION^F^^0;2^K:$L(X)>100!($L(X)<1) X"
^DD(9002313.24,1,3)="Answer must be 1-100 characters in length"
^DD(9002313.24,1,21,0)="^^1^1^3050627^"
^DD(9002313.24,1,21,1,0)="Description of the DAW code (e.g., SUBSTITUTION NOT ALLOWED BY PRESCRIBER)."
^DD(9002313.24,1,"DT")="3050627"
^DD(9002313.24,"B","CODE",.01)=""
^DD(9002313.24,"B","DESCRIPTION",1)=""
^DD(9002313.24,"GL",0,1,.01)=""
^DD(9002313.24,"GL",0,2,1)=""
^DD(9002313.24,"IX",.01)=""
^DD(9002313.24,"RQ",.01)=""
^DD(9002313.29999,0)="RAW DATA SENT SUB-FIELD^^.01^1"
^DD(9002313.29999,0,"DT")="3000830"
^DD(9002313.29999,0,"NM","RAW DATA SENT")=""
^DD(9002313.29999,0,"UP")="9002313.02"
^DD(9002313.29999,.01,0)="RAW DATA SENT^WL^^0;1^Q"
^DD(9002313.29999,.01,21,0)="^^4^4^3031124^^"
^DD(9002313.29999,.01,21,1,0)="A copy of the raw packet is saved here."
^DD(9002313.29999,.01,21,2,0)="It's intended to be of help in times of dispute."
^DD(9002313.29999,.01,21,3,0)="This field could be winnowed before the rest of the 9002313.02 is winnowed."
^DD(9002313.29999,.01,21,4,0)="For instance, it might make sense to only keep a month of these around."
^DD(9002313.29999,.01,"DT")="3031124"
^DD(9002313.29999,"B","RAW DATA SENT",.01)=""
^DD(9002313.29999,"GL",0,1,.01)=""
^DD(9002313.301548,0)="Approved Message Code  SUB-FIELD^^.01^1"
^DD(9002313.301548,0,"DT")="3020808"
^DD(9002313.301548,0,"IX","B",9002313.301548,.01)=""
^DD(9002313.301548,0,"NM","Approved Message Code ")=""
^DD(9002313.301548,0,"UP")="9002313.0301"
^DD(9002313.301548,.01,0)="Approved Message Code ^F^^0;1^K:$L(X)>3!($L(X)<1) X"
^DD(9002313.301548,.01,1,0)="^.1"
^DD(9002313.301548,.01,1,1,0)="9002313.301548^B"
^DD(9002313.301548,.01,1,1,1)="S ^BPSR(DA(2),1000,DA(1),548,""B"",$E(X,1,30),DA)="""""
^DD(9002313.301548,.01,1,1,2)="K ^BPSR(DA(2),1000,DA(1),548,""B"",$E(X,1,30),DA)"
^DD(9002313.301548,.01,3)="Answer must be 1-3 characters in length."
^DD(9002313.301548,.01,21,0)="^^2^2^3031124^"
^DD(9002313.301548,.01,21,1,0)="Message code, on an approved claim/service, communicating the need for an "
^DD(9002313.301548,.01,21,2,0)="additional follow-up."
^DD(9002313.301548,.01,"DT")="3031124"
^DD(9002313.301548,"B","Approved Message Code ",.01)=""
^DD(9002313.301548,"GL",0,1,.01)=""
^DD(9002313.301548,"IX",.01)=""
^DD(9002313.31,0)="FIELD^^.04^7"
^DD(9002313.31,0,"DT")="3070314"
^DD(9002313.31,0,"IX","B",9002313.31,.01)=""
^DD(9002313.31,0,"NM","BPS CERTIFICATION")=""
^DD(9002313.31,0,"PT",9002313.57902,902.23)=""
^DD(9002313.31,0,"PT",9002313.59902,902.23)=""
^DD(9002313.31,0,"VR")="1.0"
^DD(9002313.31,0,"VRPK")="BPS"
^DD(9002313.31,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(9002313.31,.01,1,0)="^.1"
^DD(9002313.31,.01,1,1,0)="9002313.31^B"
^DD(9002313.31,.01,1,1,1)="S ^BPS(9002313.31,""B"",$E(X,1,30),DA)="""""
^DD(9002313.31,.01,1,1,2)="K ^BPS(9002313.31,""B"",$E(X,1,30),DA)"
^DD(9002313.31,.01,3)="Answer must be 3-30 characters in length."
^DD(9002313.31,.01,21,0)="^^2^2^3040116^"
^DD(9002313.31,.01,21,1,0)="Name of the certification - typically whichever Processor the "
^DD(9002313.31,.01,21,2,0)="certification is being done for."
^DD(9002313.31,.01,"DT")="3040116"
^DD(9002313.31,.03,0)="CLAIM^P9002313.02'^BPSC(^0;3^Q"
^DD(9002313.31,.03,3)="Enter the BPS Claim number"
^DD(9002313.31,.03,21,0)="^^1^1^3070314^"
^DD(9002313.31,.03,21,1,0)="This is the last BPS CLAIMS (#9002313.02) record that was created."
^DD(9002313.31,.03,"DT")="3070314"
^DD(9002313.31,.04,0)="PAYER SHEET^P9002313.92'^BPSF(9002313.92,^0;4^Q"
^DD(9002313.31,.04,3)="Enter the payer sheet to be used for this certification claim"
^DD(9002313.31,.04,21,0)="^^1^1^3070131^"
^DD(9002313.31,.04,21,1,0)="Enter the Payer Sheet to be used for Certification Testing"
^DD(9002313.31,.04,"DT")="3070131"
^DD(9002313.31,1,0)="NCPDP FIELD #^9002313.311PA^^1;0"
^DD(9002313.31,1,21,0)="^.001^2^2^3040120^^^^"
^DD(9002313.31,1,21,1,0)="Contains field information for any NCPDP fields which need to"
^DD(9002313.31,1,21,2,0)="be defaulted."
^DD(9002313.31,2,0)="RX IN POSITION #^9002313.312A^^2;0"
^DD(9002313.31,2,21,0)="^.001^2^2^3040120^^^^"
^DD(9002313.31,2,21,1,0)="The prescription order when submitting multiple claims in one "
^DD(9002313.31,2,21,2,0)="transmission."
^DD(9002313.31,902,0)="VA PINS MULTIPLE^9002313.31902A^^3;0"
^DD(9002313.31,903,0)="PATIENT IEN^P2'^DPT(^4;2^Q"
^DD(9002313.31,903,21,0)="^^2^2^3040120^"
^DD(9002313.31,903,21,1,0)="Pointer to the patient file to link the patient being used for "
^DD(9002313.31,903,21,2,0)="certification to the certification being performed."
^DD(9002313.31,903,"DT")="3031105"
^DD(9002313.31,"B","CLAIM",.03)=""
^DD(9002313.31,"B","NAME",.01)=""
^DD(9002313.31,"B","NCPDP FIELD #",1)=""
^DD(9002313.31,"B","PATIENT IEN",903)=""
^DD(9002313.31,"B","PAYER SHEET",.04)=""
^DD(9002313.31,"B","RX IN POSITION #",2)=""
^DD(9002313.31,"B","VA PINS MULTIPLE",902)=""
^DD(9002313.31,"GL",0,1,.01)=""
^DD(9002313.31,"GL",0,3,.03)=""
^DD(9002313.31,"GL",0,4,.04)=""
^DD(9002313.31,"GL",1,0,1)=""
^DD(9002313.31,"GL",2,0,2)=""
^DD(9002313.31,"GL",3,0,902)=""
^DD(9002313.31,"GL",4,2,903)=""
^DD(9002313.31,"IX",.01)=""
^DD(9002313.31,"RQ",.01)=""
^DD(9002313.31,"SB",9002313.311,1)=""
^DD(9002313.31,"SB",9002313.312,2)=""
^DD(9002313.31,"SB",9002313.31902,902)=""
^DD(9002313.311,0)="NCPDP FIELD # SUB-FIELD^^.02^3"
^DD(9002313.311,0,"DT")="3000928"
^DD(9002313.311,0,"IX","B",9002313.311,.01)=""
^DD(9002313.311,0,"NM","NCPDP FIELD #")=""
^DD(9002313.311,0,"UP")="9002313.31"
^DD(9002313.311,.01,0)="NCPDP FIELD #^MP9002313.91'^BPSF(9002313.91,^0;1^Q"
^DD(9002313.311,.01,1,0)="^.1"
^DD(9002313.311,.01,1,1,0)="9002313.311^B"
^DD(9002313.311,.01,1,1,1)="S ^BPS(9002313.31,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9002313.311,.01,1,1,2)="K ^BPS(9002313.31,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9002313.311,.01,21,0)="^^2^2^3040120^"
^DD(9002313.311,.01,21,1,0)="Pointer to the NCPDP fields file, for use in defining special values"
^DD(9002313.311,.01,21,2,0)="used only during certification."
^DD(9002313.311,.01,"DT")="3000928"
^DD(9002313.311,.0199,0)="FIELD NAME^CJ30^^ ; ^X ^DD(9002313.311,.0199,9.3) S X=$P(Y(9002313.311,.0199,101),U,3) S D0=Y(9002313.311,.0199,80) S D1=Y(9002313.311,.0199,81)"
^DD(9002313.311,.0199,9)="^"
^DD(9002313.311,.0199,9.01)="9002313.91^.03;9002313.311^.01"
^DD(9002313.311,.0199,9.1)="NCPDP FIELD #:Name"
^DD(9002313.311,.0199,9.2)="S Y(9002313.311,.0199,81)=$S($D(D1):D1,1:""""),Y(9002313.311,.0199,80)=$S($D(D0):D0,1:""""),Y(9002313.311,.0199,1)=$S($D(^BPS(9002313.31,D0,1,D1,0)):^(0),1:"""")"
^DD(9002313.311,.0199,9.3)="X ^DD(9002313.311,.0199,9.2) S D0=$P(Y(9002313.311,.0199,1),U,1) S:'$D(^BPSF(9002313.91,+D0,0)) D0=-1 S Y(9002313.311,.0199,101)=$S($D(^BPSF(9002313.91,D0,0)):^(0),1:"""")"
^DD(9002313.311,.0199,21,0)="^^1^1^3040120^"
^DD(9002313.311,.0199,21,1,0)="The name of the field being used for certification."
^DD(9002313.311,.0199,"DT")="3001017"
^DD(9002313.311,.02,0)="VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(9002313.311,.02,3)="Answer must be 1-200 characters in length."
^DD(9002313.311,.02,21,0)="^^2^2^3040116^"
^DD(9002313.311,.02,21,1,0)="The value (if any) that the certification information should"
^DD(9002313.311,.02,21,2,0)="be defaulted to."
^DD(9002313.311,.02,"DT")="3000928"
^DD(9002313.311,"B","FIELD NAME",.0199)=""
^DD(9002313.311,"B","NCPDP FIELD #",.01)=""
^DD(9002313.311,"B","VALUE",.02)=""
^DD(9002313.311,"GL",0,1,.01)=""
^DD(9002313.311,"GL",0,2,.02)=""
^DD(9002313.311,"IX",.01)=""
^DD(9002313.312,0)="RX IN POSITION # SUB-FIELD^^1^2"
^DD(9002313.312,0,"DT")="3000928"
^DD(9002313.312,0,"IX","B",9002313.312,.01)=""
^DD(9002313.312,0,"NM","RX IN POSITION #")=""
^DD(9002313.312,0,"UP")="9002313.31"
^DD(9002313.312,.01,0)="RX IN POSITION #^MNJ1,0^^0;1^K:+X'=X!(X>4)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.312,.01,1,0)="^.1"
^DD(9002313.312,.01,1,1,0)="9002313.312^B"
^DD(9002313.312,.01,1,1,1)="S ^BPS(9002313.31,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(9002313.312,.01,1,1,2)="K ^BPS(9002313.31,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(9002313.312,.01,3)="Type a Number between 1 and 4, 0 Decimal Digits"
^DD(9002313.312,.01,21,0)="^^2^2^3040120^"
^DD(9002313.312,.01,21,1,0)="The position within the transmission of the particular prescription"
^DD(9002313.312,.01,21,2,0)="that is being certified."
^DD(9002313.312,.01,"DT")="3000928"
^DD(9002313.312,1,0)="NCPDP FIELD #^9002313.3121PA^^1;0"
^DD(9002313.312,1,21,0)="^^1^1^3040331^"
^DD(9002313.312,1,21,1,0)="The NCPDP field that needs to be defaulted."
^DD(9002313.312,"B","NCPDP FIELD #",1)=""
^DD(9002313.312,"B","RX IN POSITION #",.01)=""
^DD(9002313.312,"GL",0,1,.01)=""
^DD(9002313.312,"GL",1,0,1)=""
^DD(9002313.312,"IX",.01)=""
^DD(9002313.312,"SB",9002313.3121,1)=""
^DD(9002313.3121,0)="NCPDP FIELD # SUB-FIELD^^.02^3"
^DD(9002313.3121,0,"DT")="3000928"
^DD(9002313.3121,0,"IX","B",9002313.3121,.01)=""
^DD(9002313.3121,0,"NM","NCPDP FIELD #")=""
^DD(9002313.3121,0,"UP")="9002313.312"
^DD(9002313.3121,.01,0)="NCPDP FIELD #^MP9002313.91'^BPSF(9002313.91,^0;1^Q"
^DD(9002313.3121,.01,1,0)="^.1"
^DD(9002313.3121,.01,1,1,0)="9002313.3121^B"
^DD(9002313.3121,.01,1,1,1)="S ^BPS(9002313.31,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9002313.3121,.01,1,1,2)="K ^BPS(9002313.31,DA(2),2,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9002313.3121,.01,21,0)="^.001^1^1^3040120^^"
^DD(9002313.3121,.01,21,1,0)="The numeric part of the NCPDP field ID."
^DD(9002313.3121,.01,"DT")="3000928"
^DD(9002313.3121,.0199,0)="FIELD NAME^CJ30^^ ; ^X ^DD(9002313.3121,.0199,9.4) S X=$P(Y(9002313.3121,.0199,101),U,3) S D0=Y(9002313.3121,.0199,80) S D1=Y(9002313.3121,.0199,81) S D2=Y(9002313.3121,.0199,82)"
^DD(9002313.3121,.0199,9)="^"
^DD(9002313.3121,.0199,9.01)="9002313.91^.03;9002313.3121^.01"
^DD(9002313.3121,.0199,9.1)="NCPDP FIELD #:Name"
^DD(9002313.3121,.0199,9.2)="S Y(9002313.3121,.0199,82)=$S($D(D2):D2,1:""""),Y(9002313.3121,.0199,81)=$S($D(D1):D1,1:""""),Y(9002313.3121,.0199,80)=$S($D(D0):D0,1:"""")"
^DD(9002313.3121,.0199,9.3)="X ^DD(9002313.3121,.0199,9.2) S Y(9002313.3121,.0199,1)=$S($D(^BPS(9002313.31,D0,2,D1,1,D2,0)):^(0),1:"""")"
^DD(9002313.3121,.0199,9.4)="X ^DD(9002313.3121,.0199,9.3) S D0=$P(Y(9002313.3121,.0199,1),U,1) S:'$D(^BPSF(9002313.91,+D0,0)) D0=-1 S Y(9002313.3121,.0199,101)=$S($D(^BPSF(9002313.91,D0,0)):^(0),1:"""")"
^DD(9002313.3121,.0199,21,0)="^^1^1^3040120^"
^DD(9002313.3121,.0199,21,1,0)="The name of the field being used for certification."
^DD(9002313.3121,.02,0)="VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(9002313.3121,.02,3)="Answer must be 1-200 characters in length."
^DD(9002313.3121,.02,21,0)="^^1^1^3040116^"
^DD(9002313.3121,.02,21,1,0)="The default value for the field."
^DD(9002313.3121,.02,"DT")="3000928"
^DD(9002313.3121,"B","FIELD NAME",.0199)=""
^DD(9002313.3121,"B","NCPDP FIELD #",.01)=""
^DD(9002313.3121,"B","VALUE",.02)=""
^DD(9002313.3121,"GL",0,1,.01)=""
^DD(9002313.3121,"GL",0,2,.02)=""
^DD(9002313.3121,"IX",.01)=""
^DD(9002313.31902,0)="VA PINS MULTIPLE SUB-FIELD^^17^17"
^DD(9002313.31902,0,"DT")="3031028"
^DD(9002313.31902,0,"IX","B",9002313.31902,.01)=""
^DD(9002313.31902,0,"NM","VA PINS MULTIPLE")=""
^DD(9002313.31902,0,"UP")="9002313.31"
^DD(9002313.31902,.01,0)="PLAN ID^MF^^0;1^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.31902,.01,1,0)="^.1"
^DD(9002313.31902,.01,1,1,0)="9002313.31902^B"
^DD(9002313.31902,.01,1,1,1)="S ^BPS(9002313.31,DA(1),3,""B"",$E(X,1,30),DA)="""""
^DD(9002313.31902,.01,1,1,2)="K ^BPS(9002313.31,DA(1),3,""B"",$E(X,1,30),DA)"
^DD(9002313.31902,.01,3)="Answer must be 1-15 characters in length."
^DD(9002313.31902,.01,21,0)="^.001^1^1^3031028^^^"
^DD(9002313.31902,.01,21,1,0)="Enter the Plan ID pointer to the IB Insurance file."
^DD(9002313.31902,.01,"DT")="3031028"
^DD(9002313.31902,1,0)="PAYER SHEET IEN^P9002313.92'^BPSF(9002313.92,^0;2^Q"
^DD(9002313.31902,1,21,0)="^^1^1^3031028^"
^DD(9002313.31902,1,21,1,0)="Enter the payer sheet ien for file 9002313.92."
^DD(9002313.31902,1,"DT")="3031028"
^DD(9002313.31902,2,0)="BIN^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.31902,2,3)="Answer must be 1-10 characters in length."
^DD(9002313.31902,2,21,0)="^^1^1^3031028^"
^DD(9002313.31902,2,21,1,0)="Enter the BIN number for the payer."
^DD(9002313.31902,2,"DT")="3031028"
^DD(9002313.31902,3,0)="PCN^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.31902,3,3)="Answer must be 1-10 characters in length."
^DD(9002313.31902,3,21,0)="^^1^1^3031028^"
^DD(9002313.31902,3,21,1,0)="Enter the PCN for this payer."
^DD(9002313.31902,3,"DT")="3031028"
^DD(9002313.31902,4,0)="GROUP ID^F^^1;3^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.31902,4,3)="Answer must be 1-15 characters in length."
^DD(9002313.31902,4,21,0)="^^1^1^3031028^"
^DD(9002313.31902,4,21,1,0)="Enter the insurance group number for the patient."
^DD(9002313.31902,4,"DT")="3031028"
^DD(9002313.31902,5,0)="CARDHOLDER ID^F^^1;4^K:$L(X)>20!($L(X)<1) X"
^DD(9002313.31902,5,3)="Answer must be 1-20 characters in length."
^DD(9002313.31902,5,21,0)="^^1^1^3031028^"
^DD(9002313.31902,5,21,1,0)="Enter the patient's Cardholder ID."
^DD(9002313.31902,5,"DT")="3031028"
^DD(9002313.31902,6,0)="PATIENT RELATIONSHIP CODE^F^^1;5^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.31902,6,3)="Answer must be 1 character in length."
^DD(9002313.31902,6,21,0)="^^1^1^3031028^"
^DD(9002313.31902,6,21,1,0)="Enter the patient relationship code.  1=veteran, 2=spouse, 3=child"
^DD(9002313.31902,6,"DT")="3031028"
^DD(9002313.31902,7,0)="CARDHOLDER FIRST NAME^F^^1;6^K:$L(X)>12!($L(X)<1) X"
^DD(9002313.31902,7,3)="Answer must be 1-12 characters in length."
^DD(9002313.31902,7,21,0)="^^1^1^3031028^"
^DD(9002313.31902,7,21,1,0)="Enter the cardholder's first name."
^DD(9002313.31902,7,"DT")="3031028"
^DD(9002313.31902,8,0)="CARDHOLDER LAST NAME^F^^1;7^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.31902,8,3)="Answer must be 1-15 characters in length."
^DD(9002313.31902,8,21,0)="^^1^1^3031028^"
^DD(9002313.31902,8,21,1,0)="Enter the cardholder's last name."
^DD(9002313.31902,8,"DT")="3031028"
^DD(9002313.31902,9,0)="HOME PLAN STATE^F^^1;8^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.31902,9,3)="Answer must be 1-2 characters in length."
^DD(9002313.31902,9,21,0)="^^1^1^3031028^"
^DD(9002313.31902,9,21,1,0)="Enter the home state of the insurance plan."
^DD(9002313.31902,9,"DT")="3031028"
^DD(9002313.31902,11,0)="USUAL & CUSTOMARY CHARGE^F^^2;3^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.31902,11,3)="Answer must be 1-8 characters in length."
^DD(9002313.31902,11,21,0)="^^1^1^3031028^"
^DD(9002313.31902,11,21,1,0)="Enter the dollar amount charged."
^DD(9002313.31902,11,"DT")="3031028"
^DD(9002313.31902,12,0)="DISPENSING FEE SUBMITTED^F^^2;1^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.31902,12,3)="Answer must be 1-8 characters in length."
^DD(9002313.31902,12,21,0)="^^1^1^3031028^"
^DD(9002313.31902,12,21,1,0)="Enter the amount for the dispensing fee."
^DD(9002313.31902,12,"DT")="3031028"
^DD(9002313.31902,13,0)="BASIS OF COST DETERMINATION^F^^2;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.31902,13,3)="Answer must be 1-2 characters in length."
^DD(9002313.31902,13,21,0)="^^1^1^3031028^"
^DD(9002313.31902,13,21,1,0)="Enter the basis of cost determination.  01=AWP, 07=Usual & Customary."
^DD(9002313.31902,13,"DT")="3031028"
^DD(9002313.31902,14,0)="GROSS AMOUNT DUE^F^^2;4^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.31902,14,3)="Answer must be 1-8 characters in length."
^DD(9002313.31902,14,21,0)="^^2^2^3031028^"
^DD(9002313.31902,14,21,1,0)="Enter gross amount due which contains the sum of the dispensing fee, "
^DD(9002313.31902,14,21,2,0)="administrative fee, and Usual & Customary charge."
^DD(9002313.31902,14,"DT")="3031028"
^DD(9002313.31902,15,0)="ADMINISTRATIVE FEE^F^^2;5^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.31902,15,3)="Answer must be 1-8 characters in length."
^DD(9002313.31902,15,21,0)="^^1^1^3031028^"
^DD(9002313.31902,15,21,1,0)="Enter the amount of the administrative fee.  Default is zero dollars."
^DD(9002313.31902,15,"DT")="3031028"
^DD(9002313.31902,16,0)="VA FILL NUMBER^F^^2;6^K:$L(X)>3!($L(X)<1) X"
^DD(9002313.31902,16,3)="Answer must be 1-3 characters in length."
^DD(9002313.31902,16,21,0)="^^1^1^3031028^"
^DD(9002313.31902,16,21,1,0)="Enter the fill number from test packet."
^DD(9002313.31902,16,"DT")="3031028"
^DD(9002313.31902,17,0)="SOFTWARE VENDOR CERT/ID^F^^2;7^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.31902,17,3)="Answer must be 1-30 characters in length."
^DD(9002313.31902,17,21,0)="^^1^1^3031028^"
^DD(9002313.31902,17,21,1,0)="Enter the certification ID supplied by the payer."
^DD(9002313.31902,17,"DT")="3031028"
^DD(9002313.31902,"B","ADMINISTRATIVE FEE",15)=""
^DD(9002313.31902,"B","BASIS OF COST DETERMINATION",13)=""
^DD(9002313.31902,"B","BIN",2)=""
^DD(9002313.31902,"B","CARDHOLDER FIRST NAME",7)=""
^DD(9002313.31902,"B","CARDHOLDER ID",5)=""
^DD(9002313.31902,"B","CARDHOLDER LAST NAME",8)=""
^DD(9002313.31902,"B","DISPENSING FEE SUBMITTED",12)=""
^DD(9002313.31902,"B","GROSS AMOUNT DUE",14)=""
^DD(9002313.31902,"B","GROUP ID",4)=""
^DD(9002313.31902,"B","HOME PLAN STATE",9)=""
^DD(9002313.31902,"B","PATIENT RELATIONSHIP CODE",6)=""
^DD(9002313.31902,"B","PAYER SHEET IEN",1)=""
^DD(9002313.31902,"B","PCN",3)=""
^DD(9002313.31902,"B","PLAN ID",.01)=""
^DD(9002313.31902,"B","SOFTWARE VENDOR CERT/ID",17)=""
^DD(9002313.31902,"B","USUAL & CUSTOMARY CHARGE",11)=""
^DD(9002313.31902,"B","VA FILL NUMBER",16)=""
^DD(9002313.31902,"GL",0,1,.01)=""
^DD(9002313.31902,"GL",0,2,1)=""
^DD(9002313.31902,"GL",1,1,2)=""
^DD(9002313.31902,"GL",1,2,3)=""
^DD(9002313.31902,"GL",1,3,4)=""
^DD(9002313.31902,"GL",1,4,5)=""
^DD(9002313.31902,"GL",1,5,6)=""
^DD(9002313.31902,"GL",1,6,7)=""
^DD(9002313.31902,"GL",1,7,8)=""
^DD(9002313.31902,"GL",1,8,9)=""
^DD(9002313.31902,"GL",2,1,12)=""
^DD(9002313.31902,"GL",2,2,13)=""
^DD(9002313.31902,"GL",2,3,11)=""
^DD(9002313.31902,"GL",2,4,14)=""
^DD(9002313.31902,"GL",2,5,15)=""
^DD(9002313.31902,"GL",2,6,16)=""
^DD(9002313.31902,"GL",2,7,17)=""
^DD(9002313.31902,"IX",.01)=""
^DD(9002313.39999,0)="RAW DATA RECEIVED SUB-FIELD^^.01^1"
^DD(9002313.39999,0,"DT")="3000830"
^DD(9002313.39999,0,"NM","RAW DATA RECEIVED")=""
^DD(9002313.39999,0,"UP")="9002313.03"
^DD(9002313.39999,.01,0)="RAW DATA RECEIVED^WL^^0;1^Q"
^DD(9002313.39999,.01,21,0)="^^3^3^3000830^"
^DD(9002313.39999,.01,21,1,0)="A copy of the raw data packet received."
^DD(9002313.39999,.01,21,2,0)="This could be of use in diagnosing weird problems,"
^DD(9002313.39999,.01,21,3,0)="such as the time a packet was apparently shifted two places."
^DD(9002313.39999,.01,"DT")="3000830"
^DD(9002313.39999,"B","RAW DATA RECEIVED",.01)=""
^DD(9002313.39999,"GL",0,1,.01)=""
^DD(9002313.401342,0)="Other Payer Amt Paid Qual SUB-FIELD^^431^2"
^DD(9002313.401342,0,"DT")="3020731"
^DD(9002313.401342,0,"IX","B",9002313.401342,.01)=""
^DD(9002313.401342,0,"NM","Other Payer Amt Paid Qual")=""
^DD(9002313.401342,0,"UP")="9002313.0401"
^DD(9002313.401342,.01,0)="Other Payer Amt Paid Qual^F^^0;1^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.401342,.01,1,0)="^.1"
^DD(9002313.401342,.01,1,1,0)="9002313.401342^B"
^DD(9002313.401342,.01,1,1,1)="S ^BPSC(DA(3),400,DA(2),337,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9002313.401342,.01,1,1,2)="K ^BPSC(DA(3),400,DA(2),337,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9002313.401342,.01,3)="Answer must be 2 characters in length."
^DD(9002313.401342,.01,21,0)="^^1^1^3031125^"
^DD(9002313.401342,.01,21,1,0)="Code qualifying the 'Other Payer Amount Paid' (431)."
^DD(9002313.401342,.01,"DT")="3031125"
^DD(9002313.401342,431,0)="Other Payer Amount Paid^F^^0;2^K:$L(X)>8!($L(X)<8) X"
^DD(9002313.401342,431,3)="Answer must be 8 characters in length."
^DD(9002313.401342,431,21,0)="^^2^2^3031125^"
^DD(9002313.401342,431,21,1,0)="Amount of any payment known by the pharmacy from other sources (including "
^DD(9002313.401342,431,21,2,0)="coupons)."
^DD(9002313.401342,431,"DT")="3031125"
^DD(9002313.401342,"B","Other Payer Amount Paid",431)=""
^DD(9002313.401342,"B","Other Payer Amt Paid Qual",.01)=""
^DD(9002313.401342,"GL",0,1,.01)=""
^DD(9002313.401342,"GL",0,2,431)=""
^DD(9002313.401342,"IX",.01)=""
^DD(9002313.401472,0)="Other Payer Reject Code SUB-FIELD^^.01^1"
^DD(9002313.401472,0,"DT")="3020731"
^DD(9002313.401472,0,"IX","B",9002313.401472,.01)=""
^DD(9002313.401472,0,"NM","Other Payer Reject Code")=""
^DD(9002313.401472,0,"UP")="9002313.0401"
^DD(9002313.401472,.01,0)="Other Payer Reject Code^F^^0;1^K:$L(X)>3!($L(X)<3) X"
^DD(9002313.401472,.01,1,0)="^.1"
^DD(9002313.401472,.01,1,1,0)="9002313.401472^B"
^DD(9002313.401472,.01,1,1,1)="S ^BPSC(DA(3),400,DA(2),337,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD(9002313.401472,.01,1,1,2)="K ^BPSC(DA(3),400,DA(2),337,DA(1),2,""B"",$E(X,1,30),DA)"
^DD(9002313.401472,.01,3)="Answer must be 3 characters in length."
^DD(9002313.401472,.01,21,0)="^^2^2^3031125^"
^DD(9002313.401472,.01,21,1,0)="The error encountered by the previous ""Other Payer"" in 'Reject Code' "
^DD(9002313.401472,.01,21,2,0)="(511)."
^DD(9002313.401472,.01,"DT")="3031125"
^DD(9002313.401472,"B","Other Payer Reject Code",.01)=""
^DD(9002313.401472,"GL",0,1,.01)=""
^DD(9002313.401472,"IX",.01)=""
^DD(9002313.511,0)="FIELD^^1^3"
^DD(9002313.511,0,"DT")="3001018"
^DD(9002313.511,0,"IX","B",9002313.511,.01)=""
^DD(9002313.511,0,"NM","BPS NCPDP OVERRIDE")=""
^DD(9002313.511,0,"PT",9002313.57,1.13)=""
^DD(9002313.511,0,"PT",9002313.59,1.13)=""
^DD(9002313.511,0,"VR")="1.0"
^DD(9002313.511,0,"VRPK")="BPS"
^DD(9002313.511,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(9002313.511,.01,1,0)="^.1"
^DD(9002313.511,.01,1,1,0)="9002313.511^B"
^DD(9002313.511,.01,1,1,1)="S ^BPS(9002313.511,""B"",$E(X,1,30),DA)="""""
^DD(9002313.511,.01,1,1,2)="K ^BPS(9002313.511,""B"",$E(X,1,30),DA)"
^DD(9002313.511,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(9002313.511,.01,21,0)="^.001^1^1^3040120^^"
^DD(9002313.511,.01,21,1,0)="Name of the override.  Must start with punctuation."
^DD(9002313.511,.02,0)="CREATED ON^D^^0;2^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.511,.02,21,0)="^^1^1^3031208^"
^DD(9002313.511,.02,21,1,0)="Date the override was created."
^DD(9002313.511,.02,"DT")="3001018"
^DD(9002313.511,1,0)="NCPDP FIELD^9002313.5111PA^^1;0"
^DD(9002313.511,1,21,0)="^.001^1^1^3040120^^^"
^DD(9002313.511,1,21,1,0)="Which NCPDP field this override is used for."
^DD(9002313.511,"B","CREATED ON",.02)=""
^DD(9002313.511,"B","NAME",.01)=""
^DD(9002313.511,"B","NCPDP FIELD",1)=""
^DD(9002313.511,"GL",0,1,.01)=""
^DD(9002313.511,"GL",0,2,.02)=""
^DD(9002313.511,"GL",1,0,1)=""
^DD(9002313.511,"IX",.01)=""
^DD(9002313.511,"RQ",.01)=""
^DD(9002313.511,"SB",9002313.5111,1)=""
^DD(9002313.5111,0)="NCPDP FIELD SUB-FIELD^^.02^2"
^DD(9002313.5111,0,"DT")="3001018"
^DD(9002313.5111,0,"IX","B",9002313.5111,.01)=""
^DD(9002313.5111,0,"NM","NCPDP FIELD")=""
^DD(9002313.5111,0,"UP")="9002313.511"
^DD(9002313.5111,.01,0)="NCPDP FIELD^MP9002313.91'^BPSF(9002313.91,^0;1^Q"
^DD(9002313.5111,.01,1,0)="^.1"
^DD(9002313.5111,.01,1,1,0)="9002313.5111^B"
^DD(9002313.5111,.01,1,1,1)="S ^BPS(9002313.511,DA(1),1,""B"",$E(X,1,30),DA)="""""
^DD(9002313.5111,.01,1,1,2)="K ^BPS(9002313.511,DA(1),1,""B"",$E(X,1,30),DA)"
^DD(9002313.5111,.01,21,0)="^^1^1^3040120^"
^DD(9002313.5111,.01,21,1,0)="The NCPDP field number to be overridden."
^DD(9002313.5111,.01,"DT")="3001018"
^DD(9002313.5111,.02,0)="VALUE^F^^0;2^K:$L(X)>200!($L(X)<1) X"
^DD(9002313.5111,.02,3)="Answer must be 1-200 characters in length."
^DD(9002313.5111,.02,21,0)="^^2^2^3031208^"
^DD(9002313.5111,.02,21,1,0)="The value that should be inserted into this field instead of what would"
^DD(9002313.5111,.02,21,2,0)="normally be pulled from the data files."
^DD(9002313.5111,.02,"DT")="3001018"
^DD(9002313.5111,"B","NCPDP FIELD",.01)=""
^DD(9002313.5111,"B","VALUE",.02)=""
^DD(9002313.5111,"GL",0,1,.01)=""
^DD(9002313.5111,"GL",0,2,.02)=""
^DD(9002313.5111,"IX",.01)=""
^DD(9002313.56,0)="FIELD^^13800^50"
^DD(9002313.56,0,"DT")="3070207"
^DD(9002313.56,0,"IX","B",9002313.56,.01)=""
^DD(9002313.56,0,"IX","C",9002313.5601,.01)=""
^DD(9002313.56,0,"NM","BPS PHARMACIES")=""
^DD(9002313.56,0,"PT",366.141,.09)=""
^DD(9002313.56,0,"PT",9002313.57,1.07)=""
^DD(9002313.56,0,"PT",9002313.59,1.07)=""
^DD(9002313.56,0,"PT",9002313.72,.01)=""
^DD(9002313.56,0,"VR")="1.0"
^DD(9002313.56,0,"VRPK")="BPS"
^DD(9002313.56,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(9002313.56,.01,1,0)="^.1"
^DD(9002313.56,.01,1,1,0)="9002313.56^B"
^DD(9002313.56,.01,1,1,1)="S ^BPS(9002313.56,""B"",$E(X,1,30),DA)="""""
^DD(9002313.56,.01,1,1,2)="K ^BPS(9002313.56,""B"",$E(X,1,30),DA)"
^DD(9002313.56,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(9002313.56,.01,7.5)="I $D(X) S X=$$UP^XLFSTR(X)"
^DD(9002313.56,.01,21,0)="^^1^1^3050729^"
^DD(9002313.56,.01,21,1,0)="This is the name used to distinquish the BPS Pharmacy."
^DD(9002313.56,.01,"DT")="3050729"
^DD(9002313.56,.02,0)="NCPDP #^F^^0;2^K:$L(X)>10!($L(X)<3) X"
^DD(9002313.56,.02,3)="This is a number assigned to your pharmacy by the NCPDP.  It was previously known as the NABP #."
^DD(9002313.56,.02,21,0)="^.001^1^1^3060411^^"
^DD(9002313.56,.02,21,1,0)="The NCPDP # is sent as part of the electronic claim header."
^DD(9002313.56,.02,"DT")="3060412"
^DD(9002313.56,.03,0)="DEFAULT DEA #^RF^^0;3^K:$L(X)>12!($L(X)<3) X"
^DD(9002313.56,.03,3)="Answer must be 3-12 characters in length."
^DD(9002313.56,.03,21,0)="^^4^4^3050823^"
^DD(9002313.56,.03,21,1,0)="Many insurances require the prescriber's DEA number as part of the "
^DD(9002313.56,.03,21,2,0)="claim.  If your pharmacy has a DEA # that may be used in case a "
^DD(9002313.56,.03,21,3,0)="prescriber doesn't have this DEA # on file with you, enter that"
^DD(9002313.56,.03,21,4,0)="default DEA # here."
^DD(9002313.56,.03,"DT")="3040607"
^DD(9002313.56,.09,0)="AUTO-REVERSE PARAMETER^NJ2,0^^0;9^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.56,.09,3)="You have to enter a number between 0 and 30."
^DD(9002313.56,.09,21,0)="^.001^11^11^3050830^^"
^DD(9002313.56,.09,21,1,0)="ECME shall use the following AUTO-REVERSE site parameter when"
^DD(9002313.56,.09,21,2,0)="determining whether non-released prescription claims (that have"
^DD(9002313.56,.09,21,3,0)="a PAYABLE payer returned response) are to be automatically REVERSED."
^DD(9002313.56,.09,21,4,0)=" "
^DD(9002313.56,.09,21,5,0)="The AUTO-REVERSE site parameter is set for the number of days that"
^DD(9002313.56,.09,21,6,0)="ECME will wait before the claim is automatically REVERSED. The user"
^DD(9002313.56,.09,21,7,0)="is allowed to enter a number as follows:"
^DD(9002313.56,.09,21,8,0)=" "
^DD(9002313.56,.09,21,9,0)="0 - ECME Auto-Reverse is turned off, 1 to 30 - ECME will wait the"
^DD(9002313.56,.09,21,10,0)="entered number of days before REVERSING the non-released Rx with a"
^DD(9002313.56,.09,21,11,0)="PAYABLE payer returned response."
^DD(9002313.56,.09,"DT")="3050830"
^DD(9002313.56,.1,0)="STATUS^RS^1:ACTIVE;0:INACTIVE;^0;10^Q"
^DD(9002313.56,.1,3)="Enter '1' for active or '0' for inactive"
^DD(9002313.56,.1,21,0)="^^2^2^3060601^"
^DD(9002313.56,.1,21,1,0)="Indicates whether a BPS Pharmacy is active or inactive. If active, claims "
^DD(9002313.56,.1,21,2,0)="will be processed through ECME."
^DD(9002313.56,.1,"DT")="3060602"
^DD(9002313.56,1,0)="CMOP SWITCH^RS^0:CMOP OFF;1:CMOP ON;^0;8^Q"
^DD(9002313.56,1,3)="Enter ON to process CMOP claims via ECME, OFF to not process CMOP claims via ECME."
^DD(9002313.56,1,21,0)="^^2^2^3050823^"
^DD(9002313.56,1,21,1,0)="Indicates whether ECME shall process CMOP claims.  If ON, CMOP claims "
^DD(9002313.56,1,21,2,0)="will be processed.  If OFF, CMOP claims will not be processed."
^DD(9002313.56,1,"DT")="3050729"
^DD(9002313.56,41.01,0)="NPI^FX^^NPI;1^K:$L(X)>10!($L(X)<10)!'$$CHKDGT^XUSNPI(X) X"
^DD(9002313.56,41.01,3)="Enter a valid NPI (10 numeric digits with proper check digit)."
^DD(9002313.56,41.01,21,0)="^.001^3^3^3060616^^^"
^DD(9002313.56,41.01,21,1,0)="National Provider ID.  This is a unique ID assigned to providers by CMS.  "
^DD(9002313.56,41.01,21,2,0)="It is used as the second piece of the Claim ID field (.01) of BPS CLAIMS"
^DD(9002313.56,41.01,21,3,0)="file (#9002313.02) and is sent as part of the electronic claim header."
^DD(9002313.56,41.01,"DT")="3060504"
^DD(9002313.56,41.02,0)="DATE/TIME OF LAST NPI CHANGE^D^^NPI;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.56,41.02,3)="Enter the data and time of the last change to the NPI."
^DD(9002313.56,41.02,21,0)="^^1^1^3060628^"
^DD(9002313.56,41.02,21,1,0)="This is the date and time of the last change to the NPI value."
^DD(9002313.56,41.02,"DT")="3060628"
^DD(9002313.56,102.03,0)="SITE CITY^RF^^ADDR;3^K:$L(X)>25!($L(X)<1) X"
^DD(9002313.56,102.03,3)="Answer must be 1-25 characters in length."
^DD(9002313.56,102.03,21,0)="^.001^1^1^3040607^^^"
^DD(9002313.56,102.03,21,1,0)="Enter City"
^DD(9002313.56,102.03,"DT")="3040607"
^DD(9002313.56,120.01,0)="SITE ADDRESS 1^RF^^ADDR;1^K:$L(X)>25!($L(X)<1) X"
^DD(9002313.56,120.01,3)="Answer must be 1-25 characters in length."
^DD(9002313.56,120.01,21,0)="^.001^1^1^3040607^^"
^DD(9002313.56,120.01,21,1,0)="The site's street address. "
^DD(9002313.56,120.01,"DT")="3040607"
^DD(9002313.56,120.02,0)="SITE ADDRESS 2^F^^ADDR;2^K:$L(X)>25!($L(X)<1) X"
^DD(9002313.56,120.02,3)="Answer must be 1-25 characters in length"
^DD(9002313.56,120.02,21,0)="^^1^1^3040325^"
^DD(9002313.56,120.02,21,1,0)="Site's address line 2."
^DD(9002313.56,120.02,"DT")="3040325"
^DD(9002313.56,120.03,0)="SITE ADDRESS NAME^RF^^ADDR;8^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.56,120.03,3)="Answer must be 1-40 characters in length."
^DD(9002313.56,120.03,21,0)="^.001^1^1^3040607^^"
^DD(9002313.56,120.03,21,1,0)="Site's Business name."
^DD(9002313.56,120.03,"DT")="3040607"
^DD(9002313.56,120.04,0)="SITE STATE^RP5'^DIC(5,^ADDR;4^Q"
^DD(9002313.56,120.04,3)=""
^DD(9002313.56,120.04,"DT")="3040607"
^DD(9002313.56,120.05,0)="SITE ZIP CODE^RF^^ADDR;5^K:$L(X)>10!($L(X)<5) X"
^DD(9002313.56,120.05,3)="Answer must be 5-10 characters in length."
^DD(9002313.56,120.05,"DT")="3040607"
^DD(9002313.56,120.06,0)="SITE PHONE^F^^ADDR;6^K:$L(X)>20!($L(X)<1) X"
^DD(9002313.56,120.06,3)="Answer must be 1-20 characters in length."
^DD(9002313.56,120.06,21,0)="^^1^1^3010331^"
^DD(9002313.56,120.06,21,1,0)="For NCPDP claim forms."
^DD(9002313.56,120.06,"DT")="3010331"
^DD(9002313.56,120.07,0)="SITE FAX^F^^ADDR;7^K:$L(X)>20!($L(X)<1) X"
^DD(9002313.56,120.07,3)="Answer must be 1-20 characters in length."
^DD(9002313.56,120.07,21,0)="^^1^1^3010331^"
^DD(9002313.56,120.07,21,1,0)="For NCPDP claim forms."
^DD(9002313.56,120.07,"DT")="3010331"
^DD(9002313.56,120.11,0)="HOURS OF OPERATION^F^^HOURS;1^K:$L(X)>2!($L(X)<1)!'(X?1N.N) X"
^DD(9002313.56,120.11,3)="Answer must be 0 to 24 hours."
^DD(9002313.56,120.11,21,0)="^.001^1^1^3040315^^"
^DD(9002313.56,120.11,21,1,0)="Enter the hours of operation for the Pharmacy (0 to 24 hours)."
^DD(9002313.56,120.11,"DT")="3040315"
^DD(9002313.56,120.12,0)="START DAY RANGE^F^^HOURS;2^K:$L(X)>3!($L(X)<3)!'(X?3A) X"
^DD(9002313.56,120.12,3)="Answer must be 3 characters in length"
^DD(9002313.56,120.12,21,0)="^^1^1^3031028^"
^DD(9002313.56,120.12,21,1,0)="Enter the start of the day for this Pharmacy."
^DD(9002313.56,120.12,"DT")="3040315"
^DD(9002313.56,120.13,0)="END DAY RANGE^F^^HOURS;3^K:$L(X)>3!($L(X)<3)!'(X?3A) X"
^DD(9002313.56,120.13,3)="Answer must be 3 characters in length"
^DD(9002313.56,120.13,21,0)="^^1^1^3031028^"
^DD(9002313.56,120.13,21,1,0)="Enter the end of the day range for this Pharmacy."
^DD(9002313.56,120.13,"DT")="3040315"
^DD(9002313.56,120.14,0)="START HOUR RANGE^F^^HOURS;4^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(9002313.56,120.14,3)="Answer must be 0000 to 2359"
^DD(9002313.56,120.14,21,0)="^^1^1^3031028^"
^DD(9002313.56,120.14,21,1,0)="Enter the start hour range for this Pharmacy.  "
^DD(9002313.56,120.14,"DT")="3040315"
^DD(9002313.56,120.15,0)="END HOUR RANGE^F^^HOURS;5^K:$L(X)>4!($L(X)<4)!'(X?4N) X"
^DD(9002313.56,120.15,3)="Answer must be 0000 to 2359"
^DD(9002313.56,120.15,21,0)="^^1^1^3031028^"
^DD(9002313.56,120.15,21,1,0)="Enter the end hour range for this Pharmacy."
^DD(9002313.56,120.15,"DT")="3040315"
^DD(9002313.56,120.21,0)="Sunday Open Time^F^^TOPEN;1^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.21,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.21,21,0)="^.001^1^1^3040521^^"
^DD(9002313.56,120.21,21,1,0)="Opening time in military format: 0000 to 2359"
^DD(9002313.56,120.21,"DT")="3040521"
^DD(9002313.56,120.22,0)="Monday Open Time^F^^TOPEN;2^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.22,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.22,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.22,21,1,0)="Opening time in military format: 0000 to 2359"
^DD(9002313.56,120.22,"DT")="3040521"
^DD(9002313.56,120.23,0)="Tuesday Open Time^F^^TOPEN;3^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.23,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.23,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.23,21,1,0)="Opening time in military format: 0000 to 2359"
^DD(9002313.56,120.23,"DT")="3040521"
^DD(9002313.56,120.24,0)="Wednesday Open Time^F^^TOPEN;4^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.24,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.24,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.24,21,1,0)="Opening time in military format: 0000 to 2359"
^DD(9002313.56,120.24,"DT")="3040521"
^DD(9002313.56,120.25,0)="Thursday Open Time^F^^TOPEN;5^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.25,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.25,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.25,21,1,0)="Opening time in military format: 0000 to 2359"
^DD(9002313.56,120.25,"DT")="3040521"
^DD(9002313.56,120.26,0)="Friday Open Time^F^^TOPEN;6^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.26,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.26,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.26,21,1,0)="Opening time in military format: 0000 to 2359"
^DD(9002313.56,120.26,"DT")="3040521"
^DD(9002313.56,120.27,0)="Saturday Open Time^F^^TOPEN;7^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.27,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.27,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.27,21,1,0)="Opening time in military format: 0000 to 2359"
^DD(9002313.56,120.27,"DT")="3040521"
^DD(9002313.56,120.31,0)="Sunday Close Time^F^^TCLOSE;1^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.31,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.31,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.31,21,1,0)="Closing time in military format: 0000 to 2359"
^DD(9002313.56,120.31,"DT")="3040521"
^DD(9002313.56,120.32,0)="Monday Close Time^F^^TCLOSE;2^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.32,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.32,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.32,21,1,0)="Closing time in military format: 0000 to 2359"
^DD(9002313.56,120.32,"DT")="3040521"
^DD(9002313.56,120.33,0)="Tuesday Close Time^F^^TCLOSE;3^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.33,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.33,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.33,21,1,0)="Closing time in military format: 0000 to 2359"
^DD(9002313.56,120.33,"DT")="3040521"
^DD(9002313.56,120.34,0)="Wednesday Close Time^F^^TCLOSE;4^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.34,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.34,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.34,21,1,0)="Closing time in military format: 0000 to 2359"
^DD(9002313.56,120.34,"DT")="3040521"
^DD(9002313.56,120.35,0)="Thursday Close Time^F^^TCLOSE;5^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.35,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.35,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.35,21,1,0)="Closing time in military format: 0000 to 2359"
^DD(9002313.56,120.35,"DT")="3040521"
^DD(9002313.56,120.36,0)="Friday Close Time^F^^TCLOSE;6^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.36,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.36,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.36,21,1,0)="Closing time in military format: 0000 to 2359"
^DD(9002313.56,120.36,"DT")="3040521"
^DD(9002313.56,120.37,0)="Saturday Close Time^F^^TCLOSE;7^K:$L(X)>4!($L(X)<4) X"
^DD(9002313.56,120.37,3)="Answer must be 4 characters in length."
^DD(9002313.56,120.37,21,0)="^^1^1^3040521^"
^DD(9002313.56,120.37,21,1,0)="Closing time in military format: 0000 to 2359"
^DD(9002313.56,120.37,"DT")="3040521"
^DD(9002313.56,130.01,0)="REMITTANCE ADDRESS NAME^RF^^REMIT;1^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.56,130.01,3)="Answer must be 1-40 characters in length."
^DD(9002313.56,130.01,21,0)="^.001^1^1^3040607^^"
^DD(9002313.56,130.01,21,1,0)="Pharmacy Business Name"
^DD(9002313.56,130.01,"DT")="3040607"
^DD(9002313.56,130.02,0)="REMIT ADDRESS 1^RF^^REMIT;2^K:$L(X)>25!($L(X)<1) X"
^DD(9002313.56,130.02,3)="Answer must be 1-25 characters in length."
^DD(9002313.56,130.02,21,0)="^.001^1^1^3040607^^"
^DD(9002313.56,130.02,21,1,0)="Street Address (Line 1) for the Remittance Address."
^DD(9002313.56,130.02,"DT")="3040607"
^DD(9002313.56,130.03,0)="REMIT ADDRESS 2^F^^REMIT;3^K:$L(X)>25!($L(X)<1) X"
^DD(9002313.56,130.03,3)="Answer must be 1-25 characters in length"
^DD(9002313.56,130.03,21,0)="^^1^1^3040326^"
^DD(9002313.56,130.03,21,1,0)="Street Address (Line 2) for the Remittance Address."
^DD(9002313.56,130.03,"DT")="3040326"
^DD(9002313.56,130.04,0)="REMIT DWELLING NUMBER^F^^REMIT;4^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.56,130.04,3)="Answer must be 1-8 characters in length."
^DD(9002313.56,130.04,21,0)="^.001^1^1^3031222^^"
^DD(9002313.56,130.04,21,1,0)="Enter the dwelling number for the claim remittance address."
^DD(9002313.56,130.04,"DT")="3031222"
^DD(9002313.56,130.07,0)="REMIT STATE^RP5'^DIC(5,^REMIT;7^Q"
^DD(9002313.56,130.07,21,0)="^.001^1^1^3040607^^^"
^DD(9002313.56,130.07,21,1,0)="Enter the state for the claim remittance address."
^DD(9002313.56,130.07,"DT")="3040607"
^DD(9002313.56,130.08,0)="REMIT ZIP^RF^^REMIT;8^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.56,130.08,3)="Answer must be 1-10 characters in length."
^DD(9002313.56,130.08,21,0)="^.001^1^1^3040607^^^"
^DD(9002313.56,130.08,21,1,0)="Enter the zip for the claim remittance address."
^DD(9002313.56,130.08,"DT")="3040607"
^DD(9002313.56,130.5,0)="REMIT OTHER DESIGNATION^F^^REMIT;5^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.56,130.5,3)="Answer must be 1-8 characters in length."
^DD(9002313.56,130.5,21,0)="^.001^1^1^3031222^^"
^DD(9002313.56,130.5,21,1,0)="Enter the other designation for the claim remittance address."
^DD(9002313.56,130.5,"DT")="3031222"
^DD(9002313.56,130.6,0)="REMIT CITY^RF^^REMIT;6^K:$L(X)>25!($L(X)<1) X"
^DD(9002313.56,130.6,3)="Answer must be 1-25 characters in length."
^DD(9002313.56,130.6,21,0)="^.001^1^1^3040607^^^"
^DD(9002313.56,130.6,21,1,0)="Enter the city for the claim remittance address."
^DD(9002313.56,130.6,"DT")="3040607"
^DD(9002313.56,1830.01,0)="CONTACT NAMES^F^^REP;1^K:$L(X)>100!($L(X)<1) X"
^DD(9002313.56,1830.01,3)="Answer must be 1-100 characters in length."
^DD(9002313.56,1830.01,21,0)="^^4^4^3000420^"
^DD(9002313.56,1830.01,21,1,0)="You may enter more than one name, separated by ""/""."
^DD(9002313.56,1830.01,21,2,0)="Put corresponding phone numbers separated by ""/"" in the phone number field."
^DD(9002313.56,1830.01,21,3,0)="A random name-phone combination will appear on each bill and that way"
^DD(9002313.56,1830.01,21,4,0)="the calls get distributed evenly."
^DD(9002313.56,1830.01,"DT")="3000420"
^DD(9002313.56,1830.02,0)="CONTACT PHONES^F^^REP;2^K:$L(X)>100!($L(X)<1) X"
^DD(9002313.56,1830.02,3)="Answer must be 1-100 characters in length."
^DD(9002313.56,1830.02,21,0)="^^1^1^3000420^"
^DD(9002313.56,1830.02,21,1,0)="(See CONTACT NAMES description for details about ""/""-separated list.)"
^DD(9002313.56,1830.02,"DT")="3000420"
^DD(9002313.56,1900.01,0)="VA CONTACT^RP200'^VA(200,^REP;3^Q"
^DD(9002313.56,1900.01,3)="Pointer to the New Person file for the VA contact information."
^DD(9002313.56,1900.01,21,0)="^.001^1^1^3040625^^"
^DD(9002313.56,1900.01,21,1,0)="Pointer to the New Person file for the VA contact person information."
^DD(9002313.56,1900.01,"DT")="3040625"
^DD(9002313.56,1900.02,0)="VA ALTERNATE CONTACT^RP200'^VA(200,^REP;4^Q"
^DD(9002313.56,1900.02,3)="Pointer to the New Person file for the Alternant VA contact."
^DD(9002313.56,1900.02,21,0)="^.001^1^1^3040625^^^"
^DD(9002313.56,1900.02,21,1,0)="Pointer to the New Person file for the Alternant VA contact."
^DD(9002313.56,1900.02,"DT")="3040625"
^DD(9002313.56,1900.03,0)="VA LEAD PHARMACIST^RP200'^VA(200,^REP;5^Q"
^DD(9002313.56,1900.03,3)="Pointer to the New Person file for the lead Pharmacists."
^DD(9002313.56,1900.03,21,0)="^.001^1^1^3040607^^"
^DD(9002313.56,1900.03,21,1,0)="Pointer to the New Person file for the lead Pharmacists. "
^DD(9002313.56,1900.03,"DT")="3040607"
^DD(9002313.56,1900.04,0)="VA LEAD PHARMACIST LICENSE #^F^^REP1;1^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.56,1900.04,3)="Answer must be 1-40 characters in length."
^DD(9002313.56,1900.04,"DT")="3040608"
^DD(9002313.56,13800,0)="OUTPATIENT SITE^9002313.5601P^^OPSITE;0"
^DD(9002313.56,"B","AUTO-REVERSE PARAMETER",.09)=""
^DD(9002313.56,"B","CMOP SWITCH",1)=""
^DD(9002313.56,"B","CONTACT NAMES",1830.01)=""
^DD(9002313.56,"B","CONTACT PHONES",1830.02)=""
^DD(9002313.56,"B","DATE/TIME OF LAST NPI CHANGE",41.02)=""
^DD(9002313.56,"B","DEFAULT DEA #",.03)=""
^DD(9002313.56,"B","END DAY RANGE",120.13)=""
^DD(9002313.56,"B","END HOUR RANGE",120.15)=""
^DD(9002313.56,"B","Friday Close Time",120.36)=""
^DD(9002313.56,"B","Friday Open Time",120.26)=""
^DD(9002313.56,"B","HOURS OF OPERATION",120.11)=""
^DD(9002313.56,"B","Monday Close Time",120.32)=""
^DD(9002313.56,"B","Monday Open Time",120.22)=""
^DD(9002313.56,"B","NAME",.01)=""
^DD(9002313.56,"B","NCPDP #",.02)=""
^DD(9002313.56,"B","NPI",41.01)=""
^DD(9002313.56,"B","OUTPATIENT SITE",13800)=""
^DD(9002313.56,"B","REMIT ADDRESS 1",130.02)=""
^DD(9002313.56,"B","REMIT ADDRESS 2",130.03)=""
^DD(9002313.56,"B","REMIT CITY",130.6)=""
^DD(9002313.56,"B","REMIT DWELLING NUMBER",130.04)=""
^DD(9002313.56,"B","REMIT OTHER DESIGNATION",130.5)=""
^DD(9002313.56,"B","REMIT STATE",130.07)=""
^DD(9002313.56,"B","REMIT ZIP",130.08)=""
^DD(9002313.56,"B","REMITTANCE ADDRESS NAME",130.01)=""
^DD(9002313.56,"B","SITE ADDRESS 1",120.01)=""
^DD(9002313.56,"B","SITE ADDRESS 2",120.02)=""
^DD(9002313.56,"B","SITE ADDRESS NAME",120.03)=""
^DD(9002313.56,"B","SITE CITY",102.03)=""
^DD(9002313.56,"B","SITE FAX",120.07)=""
^DD(9002313.56,"B","SITE PHONE",120.06)=""
^DD(9002313.56,"B","SITE STATE",120.04)=""
^DD(9002313.56,"B","SITE ZIP CODE",120.05)=""
^DD(9002313.56,"B","START DAY RANGE",120.12)=""
^DD(9002313.56,"B","START HOUR RANGE",120.14)=""
^DD(9002313.56,"B","STATUS",.1)=""
^DD(9002313.56,"B","Saturday Close Time",120.37)=""
^DD(9002313.56,"B","Saturday Open Time",120.27)=""
^DD(9002313.56,"B","Sunday Close Time",120.31)=""
^DD(9002313.56,"B","Sunday Open Time",120.21)=""
^DD(9002313.56,"B","Thursday Close Time",120.35)=""
^DD(9002313.56,"B","Thursday Open Time",120.25)=""
^DD(9002313.56,"B","Tuesday Close Time",120.33)=""
^DD(9002313.56,"B","Tuesday Open Time",120.23)=""
^DD(9002313.56,"B","VA ALTERNATE CONTACT",1900.02)=""
^DD(9002313.56,"B","VA CONTACT",1900.01)=""
^DD(9002313.56,"B","VA LEAD PHARMACIST",1900.03)=""
^DD(9002313.56,"B","VA LEAD PHARMACIST LICENSE #",1900.04)=""
^DD(9002313.56,"B","Wednesday Close Time",120.34)=""
^DD(9002313.56,"B","Wednesday Open Time",120.24)=""
^DD(9002313.56,"GL",0,1,.01)=""
^DD(9002313.56,"GL",0,2,.02)=""
^DD(9002313.56,"GL",0,3,.03)=""
^DD(9002313.56,"GL",0,8,1)=""
^DD(9002313.56,"GL",0,9,.09)=""
^DD(9002313.56,"GL",0,10,.1)=""
^DD(9002313.56,"GL","ADDR",1,120.01)=""
^DD(9002313.56,"GL","ADDR",2,120.02)=""
^DD(9002313.56,"GL","ADDR",3,102.03)=""
^DD(9002313.56,"GL","ADDR",4,120.04)=""
^DD(9002313.56,"GL","ADDR",5,120.05)=""
^DD(9002313.56,"GL","ADDR",6,120.06)=""
^DD(9002313.56,"GL","ADDR",7,120.07)=""
^DD(9002313.56,"GL","ADDR",8,120.03)=""
^DD(9002313.56,"GL","HOURS",1,120.11)=""
^DD(9002313.56,"GL","HOURS",2,120.12)=""
^DD(9002313.56,"GL","HOURS",3,120.13)=""
^DD(9002313.56,"GL","HOURS",4,120.14)=""
^DD(9002313.56,"GL","HOURS",5,120.15)=""
^DD(9002313.56,"GL","NPI",1,41.01)=""
^DD(9002313.56,"GL","NPI",2,41.02)=""
^DD(9002313.56,"GL","OPSITE",0,13800)=""
^DD(9002313.56,"GL","REMIT",1,130.01)=""
^DD(9002313.56,"GL","REMIT",2,130.02)=""
^DD(9002313.56,"GL","REMIT",3,130.03)=""
^DD(9002313.56,"GL","REMIT",4,130.04)=""
^DD(9002313.56,"GL","REMIT",5,130.5)=""
^DD(9002313.56,"GL","REMIT",6,130.6)=""
^DD(9002313.56,"GL","REMIT",7,130.07)=""
^DD(9002313.56,"GL","REMIT",8,130.08)=""
^DD(9002313.56,"GL","REP",1,1830.01)=""
^DD(9002313.56,"GL","REP",2,1830.02)=""
^DD(9002313.56,"GL","REP",3,1900.01)=""
^DD(9002313.56,"GL","REP",4,1900.02)=""
^DD(9002313.56,"GL","REP",5,1900.03)=""
^DD(9002313.56,"GL","REP1",1,1900.04)=""
^DD(9002313.56,"GL","TCLOSE",1,120.31)=""
^DD(9002313.56,"GL","TCLOSE",2,120.32)=""
^DD(9002313.56,"GL","TCLOSE",3,120.33)=""
^DD(9002313.56,"GL","TCLOSE",4,120.34)=""
^DD(9002313.56,"GL","TCLOSE",5,120.35)=""
^DD(9002313.56,"GL","TCLOSE",6,120.36)=""
^DD(9002313.56,"GL","TCLOSE",7,120.37)=""
^DD(9002313.56,"GL","TOPEN",1,120.21)=""
^DD(9002313.56,"GL","TOPEN",2,120.22)=""
^DD(9002313.56,"GL","TOPEN",3,120.23)=""
^DD(9002313.56,"GL","TOPEN",4,120.24)=""
^DD(9002313.56,"GL","TOPEN",5,120.25)=""
^DD(9002313.56,"GL","TOPEN",6,120.26)=""
^DD(9002313.56,"GL","TOPEN",7,120.27)=""
^DD(9002313.56,"IX",.01)=""
^DD(9002313.56,"RQ",.01)=""
^DD(9002313.56,"RQ",.03)=""
^DD(9002313.56,"RQ",.1)=""
^DD(9002313.56,"RQ",1)=""
^DD(9002313.56,"RQ",102.03)=""
^DD(9002313.56,"RQ",120.01)=""
^DD(9002313.56,"RQ",120.03)=""
^DD(9002313.56,"RQ",120.04)=""
^DD(9002313.56,"RQ",120.05)=""
^DD(9002313.56,"RQ",130.01)=""
^DD(9002313.56,"RQ",130.02)=""
^DD(9002313.56,"RQ",130.07)=""
^DD(9002313.56,"RQ",130.08)=""
^DD(9002313.56,"RQ",130.6)=""
^DD(9002313.56,"RQ",1900.01)=""
^DD(9002313.56,"RQ",1900.02)=""
^DD(9002313.56,"RQ",1900.03)=""
^DD(9002313.56,"SB",9002313.5601,13800)=""
^DD(9002313.5601,0)="OUTPATIENT SITE SUB-FIELD^^.01^1"
^DD(9002313.5601,0,"DT")="3070207"
^DD(9002313.5601,0,"IX","B",9002313.5601,.01)=""
^DD(9002313.5601,0,"NM","OUTPATIENT SITE")=""
^DD(9002313.5601,0,"UP")="9002313.56"
^DD(9002313.5601,.01,0)="OUTPATIENT SITE^MP59'X^PS(59,^0;1^I $D(^BPS(9002313.56,""C"",X)) D EN^DDIOL(""** This site already linked."") K X"
^DD(9002313.5601,.01,1,0)="^.1^^-1"
^DD(9002313.5601,.01,1,1,0)="9002313.5601^B"
^DD(9002313.5601,.01,1,1,1)="S ^BPS(9002313.56,DA(1),""OPSITE"",""B"",$E(X,1,30),DA)="""""
^DD(9002313.5601,.01,1,1,2)="K ^BPS(9002313.56,DA(1),""OPSITE"",""B"",$E(X,1,30),DA)"
^DD(9002313.5601,.01,1,2,0)="9002313.56^C"
^DD(9002313.5601,.01,1,2,1)="S ^BPS(9002313.56,""C"",$E(X,1,30),DA(1),DA)="""""
^DD(9002313.5601,.01,1,2,2)="K ^BPS(9002313.56,""C"",$E(X,1,30),DA(1),DA)"
^DD(9002313.5601,.01,1,2,"DT")="3010119"
^DD(9002313.5601,.01,3)="Enter one or more OUTPATIENT SITES to associate with this ECME Pharmacy entry."
^DD(9002313.5601,.01,21,0)="^.001^2^2^3070207^^^"
^DD(9002313.5601,.01,21,1,0)="One or more of the VISTA pharmacy package's Outpatient Sites (File 59) "
^DD(9002313.5601,.01,21,2,0)="must be associated with the ECME Pharmacy entry."
^DD(9002313.5601,.01,"DT")="3060621"
^DD(9002313.5601,"B","OUTPATIENT SITE",.01)=""
^DD(9002313.5601,"GL",0,1,.01)=""
^DD(9002313.5601,"IX",.01)=""
^DD(9002313.57,0)="FIELD^^508^214"
^DD(9002313.57,0,"DDA")="N"
^DD(9002313.57,0,"DT")="3070627"
^DD(9002313.57,0,"IX","AC",9002313.57,5)=""
^DD(9002313.57,0,"IX","AE",9002313.57,3)=""
^DD(9002313.57,0,"IX","AER",9002313.57,401)=""
^DD(9002313.57,0,"IX","AF",9002313.57,4)=""
^DD(9002313.57,0,"IX","AFR",9002313.57,402)=""
^DD(9002313.57,0,"IX","AG",9002313.57,13)=""
^DD(9002313.57,0,"IX","AH",9002313.57,7)=""
^DD(9002313.57,0,"IX","B",9002313.57,.01)=""
^DD(9002313.57,0,"NM","BPS LOG OF TRANSACTIONS")=""
^DD(9002313.57,0,"VR")="1.0"
^DD(9002313.57,0,"VRPK")="BPS"
^DD(9002313.57,.01,0)="ENTRY #^RF^^0;1^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.57,.01,1,0)="^.1"
^DD(9002313.57,.01,1,1,0)="9002313.57^B"
^DD(9002313.57,.01,1,1,1)="S ^BPSTL(""B"",$E(X,1,30),DA)="""""
^DD(9002313.57,.01,1,1,2)="K ^BPSTL(""B"",$E(X,1,30),DA)"
^DD(9002313.57,.01,3)="Answer must be 1-30 characters in length."
^DD(9002313.57,.01,21,0)="^^1^1^3031208^"
^DD(9002313.57,.01,21,1,0)="Sequential entry number"
^DD(9002313.57,.01,"DT")="3001115"
^DD(9002313.57,1,0)="STATUS^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.57,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(9002313.57,1,21,0)="^^5^5^3070227^"
^DD(9002313.57,1,21,1,0)="The status of the transaction as a percentage of completion.  The text "
^DD(9002313.57,1,21,2,0)="value can be obtained by running $$STATI^BPSOSU(<Status Number>).  Note "
^DD(9002313.57,1,21,3,0)="that 99 indicates complete.  Since records are only copied to BPS Log of "
^DD(9002313.57,1,21,4,0)="Transactions when transactions are complete, all records in this file "
^DD(9002313.57,1,21,5,0)="should be 99."
^DD(9002313.57,1,"DT")="3070227"
^DD(9002313.57,1.07,0)="PHARMACY^P9002313.56'^BPS(9002313.56,^1;7^Q"
^DD(9002313.57,1.07,21,0)="^^1^1^3040331^"
^DD(9002313.57,1.07,21,1,0)="Textual description of the Pharmacy involved with this transation."
^DD(9002313.57,1.07,"DT")="3040331"
^DD(9002313.57,1.08,0)="PINS PIECE^NJ1,0^^1;8^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.57,1.08,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(9002313.57,1.08,21,0)="^^7^7^3031216^"
^DD(9002313.57,1.08,21,1,0)="Type a Number between 1 and 9, 0 Decimal Digits "
^DD(9002313.57,1.08,21,2,0)="DESCRIPTION:      Pointer to which of the PINS pieces in "
^DD(9002313.57,1.08,21,3,0)="^(6) is in use for this claim.  Use this to keep track"
^DD(9002313.57,1.08,21,4,0)="of where you are in billing down the line to"
^DD(9002313.57,1.08,21,5,0)="various insurers.   (Probably won't automatically roll over to next"
^DD(9002313.57,1.08,21,6,0)="insurer, but maybe we will have an option to edit"
^DD(9002313.57,1.08,21,7,0)="insurance info, try next insurance, etc.)"
^DD(9002313.57,1.08,"DT")="3010330"
^DD(9002313.57,1.09,0)="PRIOR AUTHORIZATION #^F^^1;9^K:$L(X)>11!($L(X)<1) X"
^DD(9002313.57,1.09,3)="Enter the prior authorization number (1-11 characters)"
^DD(9002313.57,1.09,21,0)="^^2^2^3070221^"
^DD(9002313.57,1.09,21,1,0)="Number assigned by the processor to identify a prior authorized"
^DD(9002313.57,1.09,21,2,0)="transaction."
^DD(9002313.57,1.09,"DT")="3070221"
^DD(9002313.57,1.11,0)="ABSBRXI^P52'^PSRX(^1;11^Q"
^DD(9002313.57,1.11,21,0)="^.001^1^1^3031216^^"
^DD(9002313.57,1.11,21,1,0)="Pointer from the RX file into BPS Transactions."
^DD(9002313.57,1.11,"DT")="3000711"
^DD(9002313.57,1.1199,0)="RXI-INTERNAL^CJ8^^ ; ^S Y(9002313.57,1.1199,1)=$S($D(^BPSTL(D0,1)):^(1),1:"""") S X=$P(Y(9002313.57,1.1199,1),U,11),X=X"
^DD(9002313.57,1.1199,9)="^"
^DD(9002313.57,1.1199,9.01)="9002313.57^1.11"
^DD(9002313.57,1.1199,9.1)="INTERNAL(ABSBRXI)"
^DD(9002313.57,1.1199,21,0)="^^1^1^3031216^"
^DD(9002313.57,1.1199,21,1,0)="Internal ID to the claims file."
^DD(9002313.57,1.12,0)="RESUBMIT AFTER REVERSAL^S^0:DONE;1:RESUBMIT AFTER REVERSAL;2:RESUBMITTING;^1;12^Q"
^DD(9002313.57,1.12,3)="Enter the status of the resubmit"
^DD(9002313.57,1.12,21,0)="^^1^1^3031216^"
^DD(9002313.57,1.12,21,1,0)="Indicator that a transaction has been resubmitted after being backed out."
^DD(9002313.57,1.12,"DT")="3051213"
^DD(9002313.57,1.13,0)="NCPDP OVERRIDES^P9002313.511'^BPS(9002313.511,^1;13^Q"
^DD(9002313.57,1.13,21,0)="^^2^2^3040120^"
^DD(9002313.57,1.13,21,1,0)="Pointer to the overrides file for any fields that are not straight "
^DD(9002313.57,1.13,21,2,0)="forward, but are required by the payer."
^DD(9002313.57,1.13,"DT")="3010330"
^DD(9002313.57,1.15,0)="PRIOR AUTHORIZATION TYPE CODE^F^^1;15^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.57,1.15,3)="Enter the prior authorization type (1-2 characters)"
^DD(9002313.57,1.15,21,0)="^^1^1^3070221^"
^DD(9002313.57,1.15,21,1,0)="Indicates the type of authorization made before transaction was submitted."
^DD(9002313.57,1.15,"DT")="3070314"
^DD(9002313.57,3,0)="CLAIM^P9002313.02'^BPSC(^0;4^Q"
^DD(9002313.57,3,1,0)="^.1"
^DD(9002313.57,3,1,1,0)="9002313.57^AE"
^DD(9002313.57,3,1,1,1)="S ^BPSTL(""AE"",$E(X,1,30),DA)="""""
^DD(9002313.57,3,1,1,2)="K ^BPSTL(""AE"",$E(X,1,30),DA)"
^DD(9002313.57,3,1,1,"DT")="3001111"
^DD(9002313.57,3,21,0)="^^1^1^3031216^"
^DD(9002313.57,3,21,1,0)="Claim number "
^DD(9002313.57,3,"DT")="3001111"
^DD(9002313.57,3.1,0)="CLAIM IEN^CJ8^^ ; ^S Y(9002313.57,3.1,1)=$S($D(^BPSTL(D0,0)):^(0),1:"""") S X=$P(Y(9002313.57,3.1,1),U,4),X=X"
^DD(9002313.57,3.1,9)="^"
^DD(9002313.57,3.1,9.01)="9002313.57^3"
^DD(9002313.57,3.1,9.1)="INTERNAL(CLAIM)"
^DD(9002313.57,3.1,21,0)="^^1^1^3031216^"
^DD(9002313.57,3.1,21,1,0)="Pointer to the BPS claims file - 9002313.02"
^DD(9002313.57,4,0)="RESPONSE^P9002313.03'^BPSR(^0;5^Q"
^DD(9002313.57,4,1,0)="^.1"
^DD(9002313.57,4,1,1,0)="9002313.57^AF"
^DD(9002313.57,4,1,1,1)="S ^BPSTL(""AF"",$E(X,1,30),DA)="""""
^DD(9002313.57,4,1,1,2)="K ^BPSTL(""AF"",$E(X,1,30),DA)"
^DD(9002313.57,4,1,1,"DT")="3001111"
^DD(9002313.57,4,21,0)="^^1^1^3031216^"
^DD(9002313.57,4,21,1,0)="Pointer to the corresponding response in the response file, 9002313.03"
^DD(9002313.57,4,"DT")="3001111"
^DD(9002313.57,4.0098,0)="RESULT WITH REVERSAL^CJ20^^ ; ^S X=$$CATEG^BPSOSUC(D0,1)"
^DD(9002313.57,4.0098,9)="^"
^DD(9002313.57,4.0098,9.01)=""
^DD(9002313.57,4.0098,9.1)="S X=$$CATEG^BPSOSUC(D0,1)"
^DD(9002313.57,4.0098,21,0)="^^1^1^3031216^"
^DD(9002313.57,4.0098,21,1,0)="Result if the claim had to be reversed for whatever reason."
^DD(9002313.57,4.0099,0)="RESULT^CJ20^^ ; ^S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.57,4.0099,9)="^"
^DD(9002313.57,4.0099,9.01)=""
^DD(9002313.57,4.0099,9.1)="S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.57,4.0099,21,0)="^^1^1^3040331^"
^DD(9002313.57,4.0099,21,1,0)="Result from the payer - maybe be Paid, rejected, captuured, accepted."
^DD(9002313.57,4.0099,"DT")="3040331"
^DD(9002313.57,4.1,0)="RESPONSE IEN^CJ8^^ ; ^S Y(9002313.57,4.1,1)=$S($D(^BPSTL(D0,0)):^(0),1:"""") S X=$P(Y(9002313.57,4.1,1),U,5),X=X"
^DD(9002313.57,4.1,9)="^"
^DD(9002313.57,4.1,9.01)="9002313.57^4"
^DD(9002313.57,4.1,9.1)="INTERNAL(RESPONSE)"
^DD(9002313.57,4.1,21,0)="^^1^1^3031216^"
^DD(9002313.57,4.1,21,1,0)="Response file record number of any reversals."
^DD(9002313.57,5,0)="PATIENT^P2'^DPT(^0;6^Q"
^DD(9002313.57,5,1,0)="^.1"
^DD(9002313.57,5,1,1,0)="9002313.57^AC"
^DD(9002313.57,5,1,1,1)="S ^BPSTL(""AC"",$E(X,1,30),DA)="""""
^DD(9002313.57,5,1,1,2)="K ^BPSTL(""AC"",$E(X,1,30),DA)"
^DD(9002313.57,5,1,1,"DT")="3001111"
^DD(9002313.57,5,21,0)="^^1^1^3040126^"
^DD(9002313.57,5,21,1,0)="The patient this transaction refers to."
^DD(9002313.57,5,"DT")="3031216"
^DD(9002313.57,6,0)="SUBMIT DATE/TIME^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(9002313.57,6,3)="Enter the date/time that the claims was submitted"
^DD(9002313.57,6,21,0)="^^1^1^3070207^"
^DD(9002313.57,6,21,1,0)="This is the date/time that the claim was submitted to ECME."
^DD(9002313.57,6,"DT")="3070207"
^DD(9002313.57,7,0)="LAST UPDATE^D^^0;8^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.57,7,1,0)="^.1"
^DD(9002313.57,7,1,1,0)="9002313.57^AH"
^DD(9002313.57,7,1,1,1)="S ^BPSTL(""AH"",$E(X,1,30),DA)="""""
^DD(9002313.57,7,1,1,2)="K ^BPSTL(""AH"",$E(X,1,30),DA)"
^DD(9002313.57,7,1,1,"DT")="3001111"
^DD(9002313.57,7,21,0)="^^2^2^3000418^"
^DD(9002313.57,7,21,1,0)="Date/time the POS transaction completed processing,"
^DD(9002313.57,7,21,2,0)="as copied from 9002313.59 at the time the .57 record was created."
^DD(9002313.57,7,"DT")="3001111"
^DD(9002313.57,9,0)="ABSBRXR^F^^1;1^K:$L(X)>5!($L(X)<1) X"
^DD(9002313.57,9,3)="Answer must be 1-5 characters in length."
^DD(9002313.57,9,21,0)="^.001^1^1^3031216^^"
^DD(9002313.57,9,21,1,0)="Point to refill multiple in ^PSRX file 52"
^DD(9002313.57,9,"DT")="3000418"
^DD(9002313.57,10,0)="ABSBNDC^F^^1;2^K:$L(X)>12!($L(X)<1) X"
^DD(9002313.57,10,3)="Answer must be 1-12 characters in length."
^DD(9002313.57,10,21,0)="^^1^1^3040126^"
^DD(9002313.57,10,21,1,0)="NDC number referenced in this transaction."
^DD(9002313.57,10,"DT")="3000418"
^DD(9002313.57,10.0099,0)="USER-INTERNAL^CJ8^^ ; ^S Y(9002313.57,10.0099,1)=$S($D(^BPSTL(D0,0)):^(0),1:"""") S X=$P(Y(9002313.57,10.0099,1),U,10),X=X"
^DD(9002313.57,10.0099,9)="^"
^DD(9002313.57,10.0099,9.01)="9002313.57^13"
^DD(9002313.57,10.0099,9.1)="INTERNAL(USER)"
^DD(9002313.57,10.0099,21,0)="^^1^1^3031217^"
^DD(9002313.57,10.0099,21,1,0)="IEN of the user generating the transaction"
^DD(9002313.57,11,0)="ABSBDIV^F^^1;4^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.57,11,3)="Answer must be 1-10 characters in length"
^DD(9002313.57,11,21,0)="^^1^1^3061213^"
^DD(9002313.57,11,21,1,0)="Division this transaction is for."
^DD(9002313.57,11,"DT")="3061213"
^DD(9002313.57,13,0)="USER^P200'^VA(200,^0;10^Q"
^DD(9002313.57,13,1,0)="^.1"
^DD(9002313.57,13,1,1,0)="9002313.57^AG"
^DD(9002313.57,13,1,1,1)="S ^BPSTL(""AG"",$E(X,1,30),DA)="""""
^DD(9002313.57,13,1,1,2)="K ^BPSTL(""AG"",$E(X,1,30),DA)"
^DD(9002313.57,13,1,1,"DT")="3001111"
^DD(9002313.57,13,21,0)="^^1^1^3031217^"
^DD(9002313.57,13,21,1,0)="Who created the ECME claim"
^DD(9002313.57,13,"DT")="3001111"
^DD(9002313.57,14,0)="POSITION IN CLAIM^NJ1,0^^0;9^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.57,14,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(9002313.57,14,21,0)="^^1^1^3000418^"
^DD(9002313.57,14,21,1,0)="This is the D1 subscript into 9002313.02 and .03"
^DD(9002313.57,14,"DT")="3000418"
^DD(9002313.57,15,0)="START TIME^D^^0;11^S %DT=""ESTX"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.57,15,21,0)="^^1^1^3031217^"
^DD(9002313.57,15,21,1,0)="Time, including the seconds that the transaction was initiated."
^DD(9002313.57,15,"DT")="3000418"
^DD(9002313.57,111,0)="COMMENT MULTIPLE^9002313.57111DA^^11;0"
^DD(9002313.57,111,21,0)="^.001^1^1^3050629^^"
^DD(9002313.57,111,21,1,0)="User's comment"
^DD(9002313.57,111,"DT")="3050627"
^DD(9002313.57,201,0)="RESULT CODE^F^^2;1^K:$L(X)>9!($L(X)<1) X"
^DD(9002313.57,201,3)="Answer must be 1-9 characters in length."
^DD(9002313.57,201,21,0)="^^2^2^3040322^"
^DD(9002313.57,201,21,1,0)="Code indicating whether the claim was successfully"
^DD(9002313.57,201,21,2,0)="billed or rejected."
^DD(9002313.57,201,"DT")="3000418"
^DD(9002313.57,202,0)="RESULT TEXT^F^^2;2^K:$L(X)>222!($L(X)<1) X"
^DD(9002313.57,202,3)="Answer must be 1-222 characters in length."
^DD(9002313.57,202,21,0)="^^2^2^3031208^"
^DD(9002313.57,202,21,1,0)="Textual description of the reason for rejection, if the claim was "
^DD(9002313.57,202,21,2,0)="rejected."
^DD(9002313.57,202,"DT")="3000418"
^DD(9002313.57,401,0)="REVERSAL CLAIM^P9002313.02'^BPSC(^4;1^Q"
^DD(9002313.57,401,1,0)="^.1"
^DD(9002313.57,401,1,1,0)="9002313.57^AER"
^DD(9002313.57,401,1,1,1)="S ^BPSTL(""AER"",$E(X,1,30),DA)="""""
^DD(9002313.57,401,1,1,2)="K ^BPSTL(""AER"",$E(X,1,30),DA)"
^DD(9002313.57,401,1,1,"DT")="3001111"
^DD(9002313.57,401,21,0)="^^2^2^3031217^"
^DD(9002313.57,401,21,1,0)="Pointer to file 9002313.02 BPS CLAIMS file for the reversal"
^DD(9002313.57,401,21,2,0)="transaction."
^DD(9002313.57,401,"DT")="3001111"
^DD(9002313.57,402,0)="REVERSAL RESPONSE^P9002313.03'^BPSR(^4;2^Q"
^DD(9002313.57,402,1,0)="^.1"
^DD(9002313.57,402,1,1,0)="9002313.57^AFR"
^DD(9002313.57,402,1,1,1)="S ^BPSTL(""AFR"",$E(X,1,30),DA)="""""
^DD(9002313.57,402,1,1,2)="K ^BPSTL(""AFR"",$E(X,1,30),DA)"
^DD(9002313.57,402,1,1,"DT")="3001111"
^DD(9002313.57,402,21,0)="^^2^2^3031217^"
^DD(9002313.57,402,21,1,0)="Pointer to the BPS responses file 9002313.03 for the "
^DD(9002313.57,402,21,2,0)="reversal response."
^DD(9002313.57,402,"DT")="3001111"
^DD(9002313.57,404,0)="REVERSAL REASON^F^^4;4^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.57,404,3)="Answer must be 1-40 characters in length"
^DD(9002313.57,404,21,0)="^^1^1^3050525^"
^DD(9002313.57,404,21,1,0)="Reason for the reversal"
^DD(9002313.57,404,"DT")="3050525"
^DD(9002313.57,501,0)="QUANTITY^NJ12,3^^5;1^K:+X'=X!(X>99999999)!(X<0)!(X?.E1"".""4.N) X"
^DD(9002313.57,501,3)="Type a number between 0 and 99999999, 3 Decimal Digits"
^DD(9002313.57,501,21,0)="^^1^1^3070625^"
^DD(9002313.57,501,21,1,0)="Enter the billing quantity for the prescription."
^DD(9002313.57,501,"DT")="3070625"
^DD(9002313.57,502,0)="UNIT PRICE^NJ18,8^^5;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""9N.N) X"
^DD(9002313.57,502,3)="Type a Number between 0 and 999999999, 8 Decimal Digits"
^DD(9002313.57,502,21,0)="^^1^1^3031217^"
^DD(9002313.57,502,21,1,0)="Price per unit of prescription."
^DD(9002313.57,502,"DT")="3000418"
^DD(9002313.57,503,0)="SUBTOTAL^NJ18,8^^5;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""9N.N) X"
^DD(9002313.57,503,3)="Type a Number between 0 and 999999999, 8 Decimal Digits"
^DD(9002313.57,503,21,0)="^^3^3^3031217^"
^DD(9002313.57,503,21,1,0)="= QUANTITY * UNIT PRICE This is what"
^DD(9002313.57,503,21,2,0)="we want to send as the INGREDIENT COST "
^DD(9002313.57,503,21,3,0)="field in the NCPDP message."
^DD(9002313.57,503,"DT")="3000418"
^DD(9002313.57,504,0)="DISPENSING FEE^NJ6,2^^5;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>100)!(X<0) X"
^DD(9002313.57,504,3)="Type a Dollar Amount between 0 and 100, 2 Decimal Digits"
^DD(9002313.57,504,21,0)="^^1^1^3031217^"
^DD(9002313.57,504,21,1,0)="Service fee the pharmacy charges for dispensing the drug."
^DD(9002313.57,504,"DT")="3000418"
^DD(9002313.57,505,0)="TOTAL PRICE^NJ12,2^^5;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""3N.N) X"
^DD(9002313.57,505,3)="Type a Number between 0 and 999999999, 2 Decimal Digits"
^DD(9002313.57,505,21,0)="^^1^1^3031217^"
^DD(9002313.57,505,21,1,0)="=SUBTOTAL + DISPENSING FEE"
^DD(9002313.57,505,"DT")="3000418"
^DD(9002313.57,508,0)="UNIT OF MEASURE^F^^5;8^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.57,508,3)="Enter the Unit of Measure (1-2 characters)"
^DD(9002313.57,508,21,0)="^^2^2^3070627^"
^DD(9002313.57,508,21,1,0)="Enter the Unit of Measure for the drug.  This is usually GR (grams), ML "
^DD(9002313.57,508,21,2,0)="(milliliters), or EA (Each)."
^DD(9002313.57,508,"DT")="3070627"
^DD(9002313.57,801,0)="RETRY AFTER^D^^8;1^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.57,801,21,0)="^^3^3^3031217^"
^DD(9002313.57,801,21,1,0)=" Due to dial out error or insurer asleep, retry this claim no earlier than"
^DD(9002313.57,801,21,2,0)="this time.  (May provide some way to poke it into activity, overriding"
^DD(9002313.57,801,21,3,0)="this.) "
^DD(9002313.57,801,"DT")="3010330"
^DD(9002313.57,803,0)="RETRY SLEEPING INSURER^P9002313.92'^BPSF(9002313.92,^8;3^Q"
^DD(9002313.57,803,3)="Enter the payer sheet for the sleeping insurer"
^DD(9002313.57,803,21,0)="^^1^1^3061102^"
^DD(9002313.57,803,21,1,0)="This is the payer sheet associated with the sleeping insurer"
^DD(9002313.57,803,"DT")="3061102"
^DD(9002313.57,901,0)="CURRENT VA INSURER^F^^9;1^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.57,901,3)="Answer must be 1-15 characters in length."
^DD(9002313.57,901,21,0)="^^2^2^3040331^"
^DD(9002313.57,901,21,1,0)="This field is used for the 1st patient insurance for a VA prescri"
^DD(9002313.57,901,21,2,0)="and it points to the payer sheet to use."
^DD(9002313.57,901,"DT")="3040331"
^DD(9002313.57,902,0)="VA PINS MULTIPLE^9002313.57902PA^^10;0"
^DD(9002313.57,902,21,0)="^.001^1^1^3041014^^^^"
^DD(9002313.57,902,21,1,0)="List of VA insurers"
^DD(9002313.57,1201,0)="RX ACTION^F^^12;1^K:$L(X)>4!($L(X)<1) X"
^DD(9002313.57,1201,3)="Answer must be 1-4 characters in length"
^DD(9002313.57,1201,21,0)="^^3^3^3050629^"
^DD(9002313.57,1201,21,1,0)="This is the BWHERE parameter passed into BPSNCPDP and is the action"
^DD(9002313.57,1201,21,2,0)="that is being performed on this RX (AREV, BB, CRLB, CRLR, CRLX, DC, DDED,"
^DD(9002313.57,1201,21,3,0)="DE, ED, ERES, EREV, OF, PC, PE, PL, PP, RF, RL, RN, RRL, and RS)."
^DD(9002313.57,1201,"DT")="3050629"
^DD(9002313.57,1202,0)="DATE OF SERVICE^D^^12;2^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(9002313.57,1202,3)="(No range limit on date)"
^DD(9002313.57,1202,21,0)="^^1^1^3050525^"
^DD(9002313.57,1202,21,1,0)="Date used for the 401-D1 (DATE OF SERVICE) in the NCPDP transaction"
^DD(9002313.57,1202,"DT")="3050525"
^DD(9002313.57,1203,0)="SUBMISSION CLARIFICATION CODE^F^^12;3^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.57,1203,3)="Answer must be 1-2 characters in length."
^DD(9002313.57,1203,21,0)="^.001^1^1^3070119^^"
^DD(9002313.57,1203,21,1,0)="Submission Clarification Code"
^DD(9002313.57,1203,"DT")="3070119"
^DD(9002313.57,1300,0)="DUR DATA^9002313.5713^^13;0"
^DD(9002313.57,1300,21,0)="^^3^3^3050628^"
^DD(9002313.57,1300,21,1,0)="This multiple will track the Drug Utilization Review (DUR) information"
^DD(9002313.57,1300,21,2,0)="passed by Outpatient Pharmacy to ECME and that will eventually be put"
^DD(9002313.57,1300,21,3,0)="in the DUR segment of the NCPDP claim."
^DD(9002313.57,9999.92,0)="HRN & FAC^CJ16^^ ; ^N IEN57 S IEN57=D0,X=$$HRN^BPSOS57"
^DD(9002313.57,9999.92,9)="^"
^DD(9002313.57,9999.92,9.01)=""
^DD(9002313.57,9999.92,9.1)="N IEN57 S IEN57=D0,X=$$HRN^BPSOS57"
^DD(9002313.57,9999.92,21,0)="^^2^2^3040331^"
^DD(9002313.57,9999.92,21,1,0)="Health record number and faciltity ID - this is set to "
^DD(9002313.57,9999.92,21,2,0)="the pointer to the patient file and the division."
^DD(9002313.57,9999.92,"DT")="3040331"
^DD(9002313.57,9999.93,0)="DRUG NAME^CJ30^^ ; ^N IEN57 S IEN57=D0,X=$$DRGNAME^BPSOS57"
^DD(9002313.57,9999.93,9)="^"
^DD(9002313.57,9999.93,9.01)=""
^DD(9002313.57,9999.93,9.1)="N IEN57 S IEN57=D0,X=$$DRGNAME^BPSOS57"
^DD(9002313.57,9999.93,21,0)="^^1^1^3031222^"
^DD(9002313.57,9999.93,21,1,0)="Drug name from file 50"
^DD(9002313.57,9999.94,0)="DRUG IEN^CJ8^^ ; ^N IEN57 S IEN57=D0,X=$$DRGDFN^BPSOS57"
^DD(9002313.57,9999.94,9)="^"
^DD(9002313.57,9999.94,9.01)=""
^DD(9002313.57,9999.94,9.1)="N IEN57 S IEN57=D0,X=$$DRGDFN^BPSOS57"
^DD(9002313.57,9999.94,21,0)="^^1^1^3031222^"
^DD(9002313.57,9999.94,21,1,0)="The IEN of the drug from file 50."
^DD(9002313.57,9999.95,0)="RELEASED DATE/TIME (INT)^CJ14^^ ; ^N IEN57 S IEN57=D0,X=$$RELDATE^BPSOS57"
^DD(9002313.57,9999.95,9)="^"
^DD(9002313.57,9999.95,9.01)=""
^DD(9002313.57,9999.95,9.1)="N IEN57 S IEN57=D0,X=$$RELDATE^BPSOS57"
^DD(9002313.57,9999.95,21,0)="^^1^1^3031222^"
^DD(9002313.57,9999.95,21,1,0)="Release date and time from the prescription file, 52."
^DD(9002313.57,9999.95,"DT")="3010410"
^DD(9002313.57,9999.96,0)="NET PAID BY INSURER^CJ8^^ ; ^N RESP,POSITION S X=$G(^BPSTL(D0,0)),RESP=$P(X,U,5),POSITION=$P(X,U,9),X=$S(RESP&POSITION:$$NETPAID1^BPSOS03(RESP,POSITION),1:"""")"
^DD(9002313.57,9999.96,9)="^"
^DD(9002313.57,9999.96,9.01)=""
^DD(9002313.57,9999.96,9.1)="N RESP,POSITION S X=$G(^BPSTL(D0,0)),RESP=$P(X,U,5),POSITION=$P(X,U,9),X=$S(RESP&POSITION:$$NETPAID1^BPSOS03(RESP,POSITION),1:"""")"
^DD(9002313.57,9999.96,21,0)="^^1^1^3040331^"
^DD(9002313.57,9999.96,21,1,0)="Amount paid after the discounts and deductible have been subtracted."
^DD(9002313.57,9999.96,"DT")="3040331"
^DD(9002313.57,9999.97,0)="ELAPSED TIME (PRINTABLE)^CJ20^^ ; ^S X=$G(^BPSTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIF^BPSOSUD(X11,X8),1:"""")"
^DD(9002313.57,9999.97,9)="^"
^DD(9002313.57,9999.97,9.01)=""
^DD(9002313.57,9999.97,9.1)="S X=$G(^BPSTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIF^BPSOSUD(X11,X8),1:"""")"
^DD(9002313.57,9999.97,21,0)="^^1^1^3031222^"
^DD(9002313.57,9999.97,21,1,0)="Elapsed time between submission and response in external format."
^DD(9002313.57,9999.97,"DT")="3010206"
^DD(9002313.57,9999.98,0)="ELAPSED TIME (SECONDS)^CJ8^^ ; ^S X=$G(^BPSTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIFI^BPSOSUD(X11,X8),1:"""")"
^DD(9002313.57,9999.98,9)="^"
^DD(9002313.57,9999.98,9.01)=""
^DD(9002313.57,9999.98,9.1)="S X=$G(^BPSTL(D0,0)) N X11,X8 S X11=$P(X,U,11),X8=$P(X,U,8),X=$S(X11&X8:$$TIMEDIFI^BPSOSUD(X11,X8),1:"""")"
^DD(9002313.57,9999.98,21,0)="^^2^2^3040331^"
^DD(9002313.57,9999.98,21,1,0)="Elapsed time between submission and repsonse expressed as a number of "
^DD(9002313.57,9999.98,21,2,0)="seconds."
^DD(9002313.57,9999.98,"DT")="3040331"
^DD(9002313.57,9999.99,0)="RESULT CATEGORY^CJ20^^ ; ^S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.57,9999.99,9)="^"
^DD(9002313.57,9999.99,9.01)=""
^DD(9002313.57,9999.99,9.1)="S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.57,9999.99,21,0)="^^1^1^3040126^"
^DD(9002313.57,9999.99,21,1,0)="The category of the transmission - accepted, payable, rejected, etc."
^DD(9002313.57,9999.99,"DT")="3001115"
^DD(9002313.57,10101,0)="BIN NUMBER^CJ6^^ ; ^S X=$$FIELD^BPSOS57(101)"
^DD(9002313.57,10101,9)="^"
^DD(9002313.57,10101,9.01)=""
^DD(9002313.57,10101,9.1)="S X=$$FIELD^BPSOS57(101)"
^DD(9002313.57,10101,21,0)="^^1^1^3040322^"
^DD(9002313.57,10101,21,1,0)="BIN number from the response file."
^DD(9002313.57,10102,0)="VERSION/RELEASE NUMBER^CJ2^^ ; ^S X=$$FIELD^BPSOS57(102)"
^DD(9002313.57,10102,9)="^"
^DD(9002313.57,10102,9.01)=""
^DD(9002313.57,10102,9.1)="S X=$$FIELD^BPSOS57(102)"
^DD(9002313.57,10102,21,0)="^^1^1^3031222^"
^DD(9002313.57,10102,21,1,0)="Version/release number from the BPS claims file."
^DD(9002313.57,10103,0)="TRANSACTION CODE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(103)"
^DD(9002313.57,10103,9)="^"
^DD(9002313.57,10103,9.01)=""
^DD(9002313.57,10103,9.1)="S X=$$FIELD^BPSOS57(103)"
^DD(9002313.57,10103,21,0)="^^1^1^3031222^"
^DD(9002313.57,10103,21,1,0)="Type of transaction from the claim file."
^DD(9002313.57,10104,0)="PROCESSOR CONTROL NUMBER^CJ10^^ ; ^S X=$$FIELD^BPSOS57(104)"
^DD(9002313.57,10104,9)="^"
^DD(9002313.57,10104,9.01)=""
^DD(9002313.57,10104,9.1)="S X=$$FIELD^BPSOS57(104)"
^DD(9002313.57,10104,21,0)="^^1^1^3031222^"
^DD(9002313.57,10104,21,1,0)="PCN number from the claims file."
^DD(9002313.57,10201,0)="PHARMACY NUMBER^CJ12^^ ; ^S X=$$FIELD^BPSOS57(201)"
^DD(9002313.57,10201,9)="^"
^DD(9002313.57,10201,9.01)=""
^DD(9002313.57,10201,9.1)="S X=$$FIELD^BPSOS57(201)"
^DD(9002313.57,10201,21,0)="^^1^1^3031222^"
^DD(9002313.57,10201,21,1,0)="The Pharmacy's NABP number from the claims file."
^DD(9002313.57,10301,0)="GROUP NUMBER^CJ15^^ ; ^S X=$$FIELD^BPSOS57(301)"
^DD(9002313.57,10301,9)="^"
^DD(9002313.57,10301,9.01)=""
^DD(9002313.57,10301,9.1)="S X=$$FIELD^BPSOS57(301)"
^DD(9002313.57,10301,21,0)="^^1^1^3031222^"
^DD(9002313.57,10301,21,1,0)="The group number of the insurance used from the BPS claims file."
^DD(9002313.57,10302,0)="CARDHOLDER ID NUMBER^CJ18^^ ; ^S X=$$FIELD^BPSOS57(302)"
^DD(9002313.57,10302,9)="^"
^DD(9002313.57,10302,9.01)=""
^DD(9002313.57,10302,9.1)="S X=$$FIELD^BPSOS57(302)"
^DD(9002313.57,10302,21,0)="^^2^2^3040322^"
^DD(9002313.57,10302,21,1,0)="The insured person's cardholder identification number from the claims "
^DD(9002313.57,10302,21,2,0)="file."
^DD(9002313.57,10302,"DT")="3040322"
^DD(9002313.57,10303,0)="PERSON CODE^CJ3^^ ; ^S X=$$FIELD^BPSOS57(303)"
^DD(9002313.57,10303,9)="^"
^DD(9002313.57,10303,9.01)=""
^DD(9002313.57,10303,9.1)="S X=$$FIELD^BPSOS57(303)"
^DD(9002313.57,10303,21,0)="^^1^1^3031222^"
^DD(9002313.57,10303,21,1,0)="The person code from the BPS claims file."
^DD(9002313.57,10304,0)="DATE OF BIRTH^CJ8^^ ; ^S X=$$FIELD^BPSOS57(304)"
^DD(9002313.57,10304,9)="^"
^DD(9002313.57,10304,9.01)=""
^DD(9002313.57,10304,9.1)="S X=$$FIELD^BPSOS57(304)"
^DD(9002313.57,10304,21,0)="^^1^1^3031222^"
^DD(9002313.57,10304,21,1,0)="Date of birth of the patient from the BPS claims file."
^DD(9002313.57,10305,0)="SEX CODE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(305)"
^DD(9002313.57,10305,9)="^"
^DD(9002313.57,10305,9.01)=""
^DD(9002313.57,10305,9.1)="S X=$$FIELD^BPSOS57(305)"
^DD(9002313.57,10305,21,0)="^^1^1^3031222^"
^DD(9002313.57,10305,21,1,0)="Sex of the patient, ""M"" or ""F"""
^DD(9002313.57,10306,0)="RELATIONSHIP CODE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(306)"
^DD(9002313.57,10306,9)="^"
^DD(9002313.57,10306,9.01)=""
^DD(9002313.57,10306,9.1)="S X=$$FIELD^BPSOS57(306)"
^DD(9002313.57,10306,21,0)="^^1^1^3031222^"
^DD(9002313.57,10306,21,1,0)="Relationship of the patient to the insured - from the BPS claims file."
^DD(9002313.57,10307,0)="CUSTOMER LOCATION^CJ2^^ ; ^S X=$$FIELD^BPSOS57(307)"
^DD(9002313.57,10307,9)="^"
^DD(9002313.57,10307,9.01)=""
^DD(9002313.57,10307,9.1)="S X=$$FIELD^BPSOS57(307)"
^DD(9002313.57,10307,21,0)="^^6^6^3031222^"
^DD(9002313.57,10307,21,1,0)="Code identifying the location of the patient when receiving pharmacy"
^DD(9002313.57,10307,21,2,0)="services.  Ø=Not Specified 1=Home 2=Inter-Care 3=Nursing Home 4=Long"
^DD(9002313.57,10307,21,3,0)="Term/Extended Care 5=Rest Home 6=Boarding Home 7=Skilled Care Facility"
^DD(9002313.57,10307,21,4,0)="8=Sub-Acute Care Facility 9=Acute Care Facility 1Ø=Outpatient 11=Hospice"
^DD(9002313.57,10307,21,5,0)=" "
^DD(9002313.57,10307,21,6,0)="from the BPS claims file"
^DD(9002313.57,10308,0)="OTHER COVERAGE CODE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(308)"
^DD(9002313.57,10308,9)="^"
^DD(9002313.57,10308,9.01)=""
^DD(9002313.57,10308,9.1)="S X=$$FIELD^BPSOS57(308)"
^DD(9002313.57,10308,21,0)="^^1^1^3031222^"
^DD(9002313.57,10308,21,1,0)="Code indicating whether or not the patient has other insurance coverage."
^DD(9002313.57,10309,0)="ELIGIBILITY CLARIFICATION CODE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(309)"
^DD(9002313.57,10309,9)="^"
^DD(9002313.57,10309,9.01)=""
^DD(9002313.57,10309,9.1)="S X=$$FIELD^BPSOS57(309)"
^DD(9002313.57,10309,21,0)="^^2^2^3031222^"
^DD(9002313.57,10309,21,1,0)="Code indicating that the pharmacy is clarifying eligibility based on"
^DD(9002313.57,10309,21,2,0)="receiving a denial. Comes from the BPS claims file.  "
^DD(9002313.57,10310,0)="PATIENT FIRST NAME^CJ12^^ ; ^S X=$$FIELD^BPSOS57(310)"
^DD(9002313.57,10310,9)="^"
^DD(9002313.57,10310,9.01)=""
^DD(9002313.57,10310,9.1)="S X=$$FIELD^BPSOS57(310)"
^DD(9002313.57,10310,21,0)="^^2^2^3031222^"
^DD(9002313.57,10310,21,1,0)="First name of patient receiving the prescription, from the BPS claims "
^DD(9002313.57,10310,21,2,0)="file."
^DD(9002313.57,10311,0)="PATIENT LAST NAME^CJ15^^ ; ^S X=$$FIELD^BPSOS57(311)"
^DD(9002313.57,10311,9)="^"
^DD(9002313.57,10311,9.01)=""
^DD(9002313.57,10311,9.1)="S X=$$FIELD^BPSOS57(311)"
^DD(9002313.57,10311,21,0)="^^1^1^3040331^"
^DD(9002313.57,10311,21,1,0)="Last Name of patient receiving the prescripion from the BPS claims file."
^DD(9002313.57,10311,"DT")="3040331"
^DD(9002313.57,10312,0)="CARDHOLDER FIRST NAME^CJ12^^ ; ^S X=$$FIELD^BPSOS57(312)"
^DD(9002313.57,10312,9)="^"
^DD(9002313.57,10312,9.01)=""
^DD(9002313.57,10312,9.1)="S X=$$FIELD^BPSOS57(312)"
^DD(9002313.57,10312,21,0)="^^1^1^3031222^"
^DD(9002313.57,10312,21,1,0)="First name of the Cardholder/Subscriber from the BPS claims file."
^DD(9002313.57,10313,0)="CARDHOLDER LAST NAME^CJ15^^ ; ^S X=$$FIELD^BPSOS57(313)"
^DD(9002313.57,10313,9)="^"
^DD(9002313.57,10313,9.01)=""
^DD(9002313.57,10313,9.1)="S X=$$FIELD^BPSOS57(313)"
^DD(9002313.57,10313,21,0)="^^1^1^3031222^"
^DD(9002313.57,10313,21,1,0)="Last name of the Cardholder/Subscriber from the BPS claims file. "
^DD(9002313.57,10314,0)="HOME PLAN^CJ3^^ ; ^S X=$$FIELD^BPSOS57(314)"
^DD(9002313.57,10314,9)="^"
^DD(9002313.57,10314,9.01)=""
^DD(9002313.57,10314,9.1)="S X=$$FIELD^BPSOS57(314)"
^DD(9002313.57,10314,21,0)="^^3^3^3031222^"
^DD(9002313.57,10314,21,1,0)="Code identifying the Blue Cross or Blue Shield plan ID which indicates"
^DD(9002313.57,10314,21,2,0)="where the member's coverage has been designated. Usually where the member"
^DD(9002313.57,10314,21,3,0)="lives or purchased their coverage from the BPS claims file."
^DD(9002313.57,10315,0)="EMPLOYER NAME^CJ30^^ ; ^S X=$$FIELD^BPSOS57(315)"
^DD(9002313.57,10315,9)="^"
^DD(9002313.57,10315,9.01)=""
^DD(9002313.57,10315,9.1)="S X=$$FIELD^BPSOS57(315)"
^DD(9002313.57,10315,21,0)="^^1^1^3031222^"
^DD(9002313.57,10315,21,1,0)="Complete name of employer. "
^DD(9002313.57,10316,0)="EMPLOYER STREET ADDRESS^CJ30^^ ; ^S X=$$FIELD^BPSOS57(316)"
^DD(9002313.57,10316,9)="^"
^DD(9002313.57,10316,9.01)=""
^DD(9002313.57,10316,9.1)="S X=$$FIELD^BPSOS57(316)"
^DD(9002313.57,10316,21,0)="^^1^1^3031222^"
^DD(9002313.57,10316,21,1,0)="Free-form text for address information from the claims file."
^DD(9002313.57,10317,0)="EMPLOYER CITY ADDRESS^CJ20^^ ; ^S X=$$FIELD^BPSOS57(317)"
^DD(9002313.57,10317,9)="^"
^DD(9002313.57,10317,9.01)=""
^DD(9002313.57,10317,9.1)="S X=$$FIELD^BPSOS57(317)"
^DD(9002313.57,10317,21,0)="^^1^1^3031222^"
^DD(9002313.57,10317,21,1,0)="Free-form text for city name."
^DD(9002313.57,10318,0)="EMPLOYER STATE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(318)"
^DD(9002313.57,10318,9)="^"
^DD(9002313.57,10318,9.01)=""
^DD(9002313.57,10318,9.1)="S X=$$FIELD^BPSOS57(318)"
^DD(9002313.57,10318,21,0)="^^1^1^3031222^"
^DD(9002313.57,10318,21,1,0)="Standard State/Province Code as defined by appropriate government agency."
^DD(9002313.57,10319,0)="EMPLOYER ZIP CODE^CJ9^^ ; ^S X=$$FIELD^BPSOS57(319)"
^DD(9002313.57,10319,9)="^"
^DD(9002313.57,10319,9.01)=""
^DD(9002313.57,10319,9.1)="S X=$$FIELD^BPSOS57(319)"
^DD(9002313.57,10319,21,0)="^^2^2^3031222^"
^DD(9002313.57,10319,21,1,0)="Code defining international postal zone excluding punctuation and blanks"
^DD(9002313.57,10319,21,2,0)="(zip code for US)."
^DD(9002313.57,10320,0)="EMPLOYER PHONE NUMBER^CJ10^^ ; ^S X=$$FIELD^BPSOS57(320)"
^DD(9002313.57,10320,9)="^"
^DD(9002313.57,10320,9.01)=""
^DD(9002313.57,10320,9.1)="S X=$$FIELD^BPSOS57(320)"
^DD(9002313.57,10320,21,0)="^^1^1^3031222^"
^DD(9002313.57,10320,21,1,0)="Ten digit phone number of employer."
^DD(9002313.57,10321,0)="EMPLOYER CONTACT NAME^CJ30^^ ; ^S X=$$FIELD^BPSOS57(321)"
^DD(9002313.57,10321,9)="^"
^DD(9002313.57,10321,9.01)=""
^DD(9002313.57,10321,9.1)="S X=$$FIELD^BPSOS57(321)"
^DD(9002313.57,10321,21,0)="^^1^1^3040322^"
^DD(9002313.57,10321,21,1,0)="Contact persons' name of the cardholders' employer."
^DD(9002313.57,10321,"DT")="3040322"
^DD(9002313.57,10322,0)="PATIENT STREET ADDRESS^CJ30^^ ; ^S X=$$FIELD^BPSOS57(322)"
^DD(9002313.57,10322,9)="^"
^DD(9002313.57,10322,9.01)=""
^DD(9002313.57,10322,9.1)="S X=$$FIELD^BPSOS57(322)"
^DD(9002313.57,10322,21,0)="^^1^1^3031222^"
^DD(9002313.57,10322,21,1,0)="Free-form text for Patient address information."
^DD(9002313.57,10323,0)="PATIENT CITY ADDRESS^CJ20^^ ; ^S X=$$FIELD^BPSOS57(323)"
^DD(9002313.57,10323,9)="^"
^DD(9002313.57,10323,9.01)=""
^DD(9002313.57,10323,9.1)="S X=$$FIELD^BPSOS57(323)"
^DD(9002313.57,10323,21,0)="^.001^1^1^3031222^^"
^DD(9002313.57,10323,21,1,0)="Free-form text for city name."
^DD(9002313.57,10323,"DT")="3031222"
^DD(9002313.57,10324,0)="PATIENT STATE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(324)"
^DD(9002313.57,10324,9)="^"
^DD(9002313.57,10324,9.01)=""
^DD(9002313.57,10324,9.1)="S X=$$FIELD^BPSOS57(324)"
^DD(9002313.57,10324,21,0)="^.001^2^2^3031222^^"
^DD(9002313.57,10324,21,1,0)="Standard State/Province Code as defined by appropriate government agency."
^DD(9002313.57,10324,21,2,0)="Comes from the BPS claims file."
^DD(9002313.57,10325,0)="PATIENT ZIP CODE^CJ9^^ ; ^S X=$$FIELD^BPSOS57(325)"
^DD(9002313.57,10325,9)="^"
^DD(9002313.57,10325,9.01)=""
^DD(9002313.57,10325,9.1)="S X=$$FIELD^BPSOS57(325)"
^DD(9002313.57,10325,21,0)="^^2^2^3031222^"
^DD(9002313.57,10325,21,1,0)="Code defining international postal zone excluding punctuation and blanks"
^DD(9002313.57,10325,21,2,0)="(zip code for US). From the BPS claims file."
^DD(9002313.57,10326,0)="PATIENT PHONE NUMBER^CJ10^^ ; ^S X=$$FIELD^BPSOS57(326)"
^DD(9002313.57,10326,9)="^"
^DD(9002313.57,10326,9.01)=""
^DD(9002313.57,10326,9.1)="S X=$$FIELD^BPSOS57(326)"
^DD(9002313.57,10326,21,0)="^^1^1^3031222^"
^DD(9002313.57,10326,21,1,0)="Ten digit  phone number of patient. From the BPS claims file."
^DD(9002313.57,10327,0)="CARRIER ID NUMBER^CJ10^^ ; ^S X=$$FIELD^BPSOS57(327)"
^DD(9002313.57,10327,9)="^"
^DD(9002313.57,10327,9.01)=""
^DD(9002313.57,10327,9.1)="S X=$$FIELD^BPSOS57(327)"
^DD(9002313.57,10327,21,0)="^^1^1^3040126^"
^DD(9002313.57,10327,21,1,0)="The ID number of the insurance carrier."
^DD(9002313.57,10328,0)="PATIENT WEIGHT^CJ3^^ ; ^S X=$$FIELD^BPSOS57(328)"
^DD(9002313.57,10328,9)="^"
^DD(9002313.57,10328,9.01)=""
^DD(9002313.57,10328,9.1)="S X=$$FIELD^BPSOS57(328)"
^DD(9002313.57,10328,21,0)="^^1^1^3031222^"
^DD(9002313.57,10328,21,1,0)="Patient's weight from the patient file."
^DD(9002313.57,10329,0)="PATIENT SSN^CJ9^^ ; ^S X=$$FIELD^BPSOS57(329)"
^DD(9002313.57,10329,9)="^"
^DD(9002313.57,10329,9.01)=""
^DD(9002313.57,10329,9.1)="S X=$$FIELD^BPSOS57(329)"
^DD(9002313.57,10329,21,0)="^^1^1^3031222^"
^DD(9002313.57,10329,21,1,0)="Patient SSN from the claims file."
^DD(9002313.57,10401,0)="DATE FILLED^CJ8^^ ; ^S X=$$FIELD^BPSOS57(401)"
^DD(9002313.57,10401,9)="^"
^DD(9002313.57,10401,9.01)=""
^DD(9002313.57,10401,9.1)="S X=$$FIELD^BPSOS57(401)"
^DD(9002313.57,10401,21,0)="^^1^1^3031222^"
^DD(9002313.57,10401,21,1,0)="The fill/refill date "
^DD(9002313.57,10402,0)="PRESCRIPTION NUMBER^CJ7^^ ; ^S X=$$FIELD^BPSOS57(402)"
^DD(9002313.57,10402,9)="^"
^DD(9002313.57,10402,9.01)=""
^DD(9002313.57,10402,9.1)="S X=$$FIELD^BPSOS57(402)"
^DD(9002313.57,10402,21,0)="^^1^1^3031222^"
^DD(9002313.57,10402,21,1,0)="  The first seven digits of the prescription IEN "
^DD(9002313.57,10403,0)="NEW/REFILL CODE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(403)"
^DD(9002313.57,10403,9)="^"
^DD(9002313.57,10403,9.01)=""
^DD(9002313.57,10403,9.1)="S X=$$FIELD^BPSOS57(403)"
^DD(9002313.57,10403,21,0)="^^1^1^3031222^"
^DD(9002313.57,10403,21,1,0)="The fill/refill number, starting at 0 for the original fill."
^DD(9002313.57,10404,0)="METRIC QUANTITY^CJ5^^ ; ^S X=$$FIELD^BPSOS57(404)"
^DD(9002313.57,10404,9)="^"
^DD(9002313.57,10404,9.01)=""
^DD(9002313.57,10404,9.1)="S X=$$FIELD^BPSOS57(404)"
^DD(9002313.57,10404,21,0)="^^1^1^3031222^"
^DD(9002313.57,10404,21,1,0)="Metric quantity of the drug."
^DD(9002313.57,10405,0)="DAYS SUPPLY^CJ3^^ ; ^S X=$$FIELD^BPSOS57(405)"
^DD(9002313.57,10405,9)="^"
^DD(9002313.57,10405,9.01)=""
^DD(9002313.57,10405,9.1)="S X=$$FIELD^BPSOS57(405)"
^DD(9002313.57,10405,21,0)="^^1^1^3031222^"
^DD(9002313.57,10405,21,1,0)="The actual days supply dispensed."
^DD(9002313.57,10406,0)="COMPOUND CODE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(406)"
^DD(9002313.57,10406,9)="^"
^DD(9002313.57,10406,9.01)=""
^DD(9002313.57,10406,9.1)="S X=$$FIELD^BPSOS57(406)"
^DD(9002313.57,10406,21,0)="^^2^2^3040331^"
^DD(9002313.57,10406,21,1,0)="Field indicating whether this prescription was a compound (1) or not a"
^DD(9002313.57,10406,21,2,0)="compund (0). "
^DD(9002313.57,10406,"DT")="3040331"
^DD(9002313.57,10407,0)="NDC NUMBER^CJ11^^ ; ^S X=$$FIELD^BPSOS57(407)"
^DD(9002313.57,10407,9)="^"
^DD(9002313.57,10407,9.01)=""
^DD(9002313.57,10407,9.1)="S X=$$FIELD^BPSOS57(407)"
^DD(9002313.57,10407,21,0)="^^1^1^3031222^"
^DD(9002313.57,10407,21,1,0)="NDC code in our case."
^DD(9002313.57,10408,0)="DISPENSE AS WRITTEN^CJ1^^ ; ^S X=$$FIELD^BPSOS57(408)"
^DD(9002313.57,10408,9)="^"
^DD(9002313.57,10408,9.01)=""
^DD(9002313.57,10408,9.1)="S X=$$FIELD^BPSOS57(408)"
^DD(9002313.57,10408,21,0)="^^2^2^3031222^"
^DD(9002313.57,10408,21,1,0)="Indicator for whether the prescription was to be dispensed only as"
^DD(9002313.57,10408,21,2,0)="written. "
^DD(9002313.57,10409,0)="INGREDIENT COST^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(409)"
^DD(9002313.57,10409,9)="^"
^DD(9002313.57,10409,9.01)=""
^DD(9002313.57,10409,9.1)="S X=$$FIELD^BPSOS57(409)"
^DD(9002313.57,10409,21,0)="^^1^1^3031222^"
^DD(9002313.57,10409,21,1,0)="Cost amount for the ingredients of compounds. "
^DD(9002313.57,10409,"DT")="3010405"
^DD(9002313.57,10410,0)="SALES TAX^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(410)"
^DD(9002313.57,10410,9)="^"
^DD(9002313.57,10410,9.01)=""
^DD(9002313.57,10410,9.1)="S X=$$FIELD^BPSOS57(410)"
^DD(9002313.57,10410,21,0)="^^1^1^3031222^"
^DD(9002313.57,10410,21,1,0)=" Sales Tax charged (not applicable for VA)"
^DD(9002313.57,10411,0)="PRESCRIBER ID^CJ10^^ ; ^S X=$$FIELD^BPSOS57(411)"
^DD(9002313.57,10411,9)="^"
^DD(9002313.57,10411,9.01)=""
^DD(9002313.57,10411,9.1)="S X=$$FIELD^BPSOS57(411)"
^DD(9002313.57,10411,21,0)="^^1^1^3031222^"
^DD(9002313.57,10411,21,1,0)="Prescriber identification number.  "
^DD(9002313.57,10412,0)="DISPENSING FEE SUBMITTED^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(412)"
^DD(9002313.57,10412,9)="^"
^DD(9002313.57,10412,9.01)=""
^DD(9002313.57,10412,9.1)="S X=$$FIELD^BPSOS57(412)"
^DD(9002313.57,10412,21,0)="^^2^2^3031222^"
^DD(9002313.57,10412,21,1,0)="Add-on fee charged in a retail setting.  This field will probably be used"
^DD(9002313.57,10412,21,2,0)="when the Tricare functionality is added."
^DD(9002313.57,10414,0)="DATE PRESCRIPTION WRITTEN^CJ8^^ ; ^S X=$$FIELD^BPSOS57(414)"
^DD(9002313.57,10414,9)="^"
^DD(9002313.57,10414,9.01)=""
^DD(9002313.57,10414,9.1)="S X=$$FIELD^BPSOS57(414)"
^DD(9002313.57,10414,21,0)="^^2^2^3031222^"
^DD(9002313.57,10414,21,1,0)="This will be the fill/refill date for local fills, the released date for"
^DD(9002313.57,10414,21,2,0)="CMOP."
^DD(9002313.57,10415,0)="NUMBER OF REFILLS AUTHORIZED^CJ2^^ ; ^S X=$$FIELD^BPSOS57(415)"
^DD(9002313.57,10415,9)="^"
^DD(9002313.57,10415,9.01)=""
^DD(9002313.57,10415,9.1)="S X=$$FIELD^BPSOS57(415)"
^DD(9002313.57,10415,21,0)="^^1^1^3031222^"
^DD(9002313.57,10415,21,1,0)="The number of refills allowed that was entered during order entry."
^DD(9002313.57,10416,0)="PRIOR AUTH/MC CODE AND NUMBER^CJ10^^ ; ^S X=$$FIELD^BPSOS57(416)"
^DD(9002313.57,10416,9)="^"
^DD(9002313.57,10416,9.01)=""
^DD(9002313.57,10416,9.1)="S X=$$FIELD^BPSOS57(416)"
^DD(9002313.57,10416,21,0)="^^1^1^3031222^"
^DD(9002313.57,10416,21,1,0)=" Not used for VA - left in for IHS "
^DD(9002313.57,10418,0)="LEVEL OF SERVICE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(418)"
^DD(9002313.57,10418,9)="^"
^DD(9002313.57,10418,9.01)=""
^DD(9002313.57,10418,9.1)="S X=$$FIELD^BPSOS57(418)"
^DD(9002313.57,10418,21,0)="^^1^1^3031222^"
^DD(9002313.57,10418,21,1,0)="Not used for VA - left in for IHS"
^DD(9002313.57,10419,0)="PRESCRIPTION ORIGIN CODE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(419)"
^DD(9002313.57,10419,9)="^"
^DD(9002313.57,10419,9.01)=""
^DD(9002313.57,10419,9.1)="S X=$$FIELD^BPSOS57(419)"
^DD(9002313.57,10419,21,0)="^^1^1^3031222^"
^DD(9002313.57,10419,21,1,0)="Not used for VA - left in for IHS"
^DD(9002313.57,10420,0)="PRESCRIPTION CLARIFICATION^CJ2^^ ; ^S X=$$FIELD^BPSOS57(420)"
^DD(9002313.57,10420,9)="^"
^DD(9002313.57,10420,9.01)=""
^DD(9002313.57,10420,9.1)="S X=$$FIELD^BPSOS57(420)"
^DD(9002313.57,10420,21,0)="^^1^1^3031222^"
^DD(9002313.57,10420,21,1,0)="Not used for VA - left in for IHS"
^DD(9002313.57,10421,0)="PRIMARY PRESCRIBER^CJ10^^ ; ^S X=$$FIELD^BPSOS57(421)"
^DD(9002313.57,10421,9)="^"
^DD(9002313.57,10421,9.01)=""
^DD(9002313.57,10421,9.1)="S X=$$FIELD^BPSOS57(421)"
^DD(9002313.57,10421,21,0)="^^1^1^3031222^"
^DD(9002313.57,10421,21,1,0)="Provider ID number"
^DD(9002313.57,10422,0)="CLINIC ID NUMBER^CJ5^^ ; ^S X=$$FIELD^BPSOS57(422)"
^DD(9002313.57,10422,9)="^"
^DD(9002313.57,10422,9.01)=""
^DD(9002313.57,10422,9.1)="S X=$$FIELD^BPSOS57(422)"
^DD(9002313.57,10422,21,0)="^^1^1^3031222^"
^DD(9002313.57,10422,21,1,0)="Clinic ID where the prescription was entered."
^DD(9002313.57,10423,0)="BASIS OF COST DETERMINATION^CJ2^^ ; ^S X=$$FIELD^BPSOS57(423)"
^DD(9002313.57,10423,9)="^"
^DD(9002313.57,10423,9.01)=""
^DD(9002313.57,10423,9.1)="S X=$$FIELD^BPSOS57(423)"
^DD(9002313.57,10423,21,0)="^^1^1^3031222^"
^DD(9002313.57,10423,21,1,0)="How the amount charged was arrived at."
^DD(9002313.57,10424,0)="DIAGNOSIS CODE^CJ6^^ ; ^S X=$$FIELD^BPSOS57(424)"
^DD(9002313.57,10424,9)="^"
^DD(9002313.57,10424,9.01)=""
^DD(9002313.57,10424,9.1)="S X=$$FIELD^BPSOS57(424)"
^DD(9002313.57,10424,21,0)="^^3^3^3031222^"
^DD(9002313.57,10424,21,1,0)="Diagnosis code that applies to this prescription.  Not used for third"
^DD(9002313.57,10424,21,2,0)="party billing as of this date - so it is not used, but may be used in the"
^DD(9002313.57,10424,21,3,0)="future.  "
^DD(9002313.57,10425,0)="DRUG TYPE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(425)"
^DD(9002313.57,10425,9)="^"
^DD(9002313.57,10425,9.01)=""
^DD(9002313.57,10425,9.1)="S X=$$FIELD^BPSOS57(425)"
^DD(9002313.57,10425,21,0)="^^2^2^3031222^"
^DD(9002313.57,10425,21,1,0)="Code to indicate the type of drug dispensed.  Ø=Not specified 1=Single"
^DD(9002313.57,10425,21,2,0)="source brand 2=Branded generic 3=Generic 4=O.T.C. (over the counter)"
^DD(9002313.57,10426,0)="USUAL AND CUSTOMARY CHARGE^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(426)"
^DD(9002313.57,10426,9)="^"
^DD(9002313.57,10426,9.01)=""
^DD(9002313.57,10426,9.1)="S X=$$FIELD^BPSOS57(426)"
^DD(9002313.57,10426,21,0)="^^2^2^3031222^"
^DD(9002313.57,10426,21,1,0)="Amount charged cash customers for the prescription exclusive of sales tax"
^DD(9002313.57,10426,21,2,0)="or other amounts claimed."
^DD(9002313.57,10426,"DT")="3010405"
^DD(9002313.57,10427,0)="PRESCRIBER LAST NAME^CJ15^^ ; ^S X=$$FIELD^BPSOS57(427)"
^DD(9002313.57,10427,9)="^"
^DD(9002313.57,10427,9.01)=""
^DD(9002313.57,10427,9.1)="S X=$$FIELD^BPSOS57(427)"
^DD(9002313.57,10427,21,0)="^^1^1^3031222^"
^DD(9002313.57,10427,21,1,0)="Last Name of the Prescriber"
^DD(9002313.57,10428,0)="POSTAGE AMOUNT CLAIMED^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(428)"
^DD(9002313.57,10428,9)="^"
^DD(9002313.57,10428,9.01)=""
^DD(9002313.57,10428,9.1)="S X=$$FIELD^BPSOS57(428)"
^DD(9002313.57,10428,21,0)="^^1^1^3031222^"
^DD(9002313.57,10428,21,1,0)="Dollar amount of postage claimed."
^DD(9002313.57,10429,0)="UNIT DOSE INDICATOR^CJ1^^ ; ^S X=$$FIELD^BPSOS57(429)"
^DD(9002313.57,10429,9)="^"
^DD(9002313.57,10429,9.01)=""
^DD(9002313.57,10429,9.1)="S X=$$FIELD^BPSOS57(429)"
^DD(9002313.57,10429,21,0)="^^2^2^3031222^"
^DD(9002313.57,10429,21,1,0)="Code indicating the type of unit dose dispensing. Ø=Not Specified 1=Not"
^DD(9002313.57,10429,21,2,0)="Unit Dose 2=Manufacturer Unit Dose 3=Pharmacy Unit Dose"
^DD(9002313.57,10430,0)="GROSS AMOUNT DUE^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(430)"
^DD(9002313.57,10430,9)="^"
^DD(9002313.57,10430,9.01)=""
^DD(9002313.57,10430,9.1)="S X=$$FIELD^BPSOS57(430)"
^DD(9002313.57,10430,21,0)="^^1^1^3031222^"
^DD(9002313.57,10430,21,1,0)="Total amount submitted to the payer. "
^DD(9002313.57,10431,0)="OTHER PAYOR AMOUNT^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(431)"
^DD(9002313.57,10431,9)="^"
^DD(9002313.57,10431,9.01)=""
^DD(9002313.57,10431,9.1)="S X=$$FIELD^BPSOS57(431)"
^DD(9002313.57,10431,21,0)="^^2^2^3031222^"
^DD(9002313.57,10431,21,1,0)="Amount of any payment known by the pharmacy from other sources (including"
^DD(9002313.57,10431,21,2,0)="coupons)."
^DD(9002313.57,10432,0)="BASIS OF DAYS SUPPLY DET^CJ1^^ ; ^S X=$$FIELD^BPSOS57(432)"
^DD(9002313.57,10432,9)="^"
^DD(9002313.57,10432,9.01)=""
^DD(9002313.57,10432,9.1)="S X=$$FIELD^BPSOS57(432)"
^DD(9002313.57,10432,21,0)="^^3^3^3031222^"
^DD(9002313.57,10432,21,1,0)="Code indicating the method by which the days supply was determined. Ø=Not"
^DD(9002313.57,10432,21,2,0)="specified 1=Explicit directions 2=PRN directions (take as needed"
^DD(9002313.57,10432,21,3,0)="pharmacist estimate) 3=As directed by physician"
^DD(9002313.57,10433,0)="PATIENT PAID AMOUNT^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(433)"
^DD(9002313.57,10433,9)="^"
^DD(9002313.57,10433,9.01)=""
^DD(9002313.57,10433,9.1)="S X=$$FIELD^BPSOS57(433)"
^DD(9002313.57,10433,21,0)="^^2^2^3031222^"
^DD(9002313.57,10433,21,1,0)="Amount the pharmacy received from the patient for the prescription"
^DD(9002313.57,10433,21,2,0)="dispensed."
^DD(9002313.57,10434,0)="DATE OF INJURY^CJ8^^ ; ^S X=$$FIELD^BPSOS57(434)"
^DD(9002313.57,10434,9)="^"
^DD(9002313.57,10434,9.01)=""
^DD(9002313.57,10434,9.1)="S X=$$FIELD^BPSOS57(434)"
^DD(9002313.57,10434,21,0)="^^1^1^3031222^"
^DD(9002313.57,10434,21,1,0)="Date on which the injury occurred. "
^DD(9002313.57,10435,0)="CLAIM/REF ID NUMBER^CJ14^^ ; ^S X=$$FIELD^BPSOS57(435)"
^DD(9002313.57,10435,9)="^"
^DD(9002313.57,10435,9.01)=""
^DD(9002313.57,10435,9.1)="S X=$$FIELD^BPSOS57(435)"
^DD(9002313.57,10435,21,0)="^^1^1^3031222^"
^DD(9002313.57,10435,21,1,0)="Identifies the claim number assigned by Workers Compensation Program."
^DD(9002313.57,10436,0)="ALT. PRODUCT TYPE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(436)"
^DD(9002313.57,10436,9)="^"
^DD(9002313.57,10436,9.01)=""
^DD(9002313.57,10436,9.1)="S X=$$FIELD^BPSOS57(436)"
^DD(9002313.57,10436,21,0)="^^16^16^3031222^"
^DD(9002313.57,10436,21,1,0)="Code qualifying the value in 'Product/Service ID' (4Ø7-D7) Not Specified"
^DD(9002313.57,10436,21,2,0)="Blank Not Specified ØØ Universal Product Code (UPC) Ø1 Health Related Item"
^DD(9002313.57,10436,21,3,0)="(HRI) Ø2 National Drug Code (NDC) Ø3 Universal Product Number (UPN) Ø4"
^DD(9002313.57,10436,21,4,0)="Department of Defense (DOD) Ø5 Drug Use Review/ Professional Pharmacy"
^DD(9002313.57,10436,21,5,0)="Service (DUR/PPS) Ø6 Common Procedure Terminology (CPT4) Ø7 Common"
^DD(9002313.57,10436,21,6,0)="Procedure Terminology (CPT5) Ø8 Health Care Financing Administration"
^DD(9002313.57,10436,21,7,0)="Common Procedural Coding System (HCPCS) Ø9 Pharmacy Practice Activity"
^DD(9002313.57,10436,21,8,0)="Classification (PPAC) 1Ø National Pharmaceutical Product Interface"
^DD(9002313.57,10436,21,9,0)="Code(NAPPI) 11 International Article Numbering System(EAN) 12 Drug"
^DD(9002313.57,10436,21,10,0)="Identification Number(DIN) 13 Medi-Span GPI 14 First DataBank GCN 15"
^DD(9002313.57,10436,21,11,0)="Medical Economics GPO 16 Medi-Span DDID 17 First DataBank SmartKey 18"
^DD(9002313.57,10436,21,12,0)="Medical Economics GM 19 International Classification of Diseases(ICD9) 2Ø"
^DD(9002313.57,10436,21,13,0)="International Classification of Diseases (ICD10) 21 Medi-Span Diagnosis"
^DD(9002313.57,10436,21,14,0)="Code 22 Common Dental Terminology (CDT) 25 American Psychiatric"
^DD(9002313.57,10436,21,15,0)="Association Diagnostic Statistical Manual of Mental Disorders (DSM IV)"
^DD(9002313.57,10436,21,16,0)="Other       99"
^DD(9002313.57,10437,0)="ALT. PRODUCT CODE^CJ13^^ ; ^S X=$$FIELD^BPSOS57(437)"
^DD(9002313.57,10437,9)="^"
^DD(9002313.57,10437,9.01)=""
^DD(9002313.57,10437,9.1)="S X=$$FIELD^BPSOS57(437)"
^DD(9002313.57,10437,21,0)="^^4^4^3031222^"
^DD(9002313.57,10437,21,1,0)="This field identifies the actual product code for the item that was"
^DD(9002313.57,10437,21,2,0)="dispensed.  The type of product is defined by field 436-E1. This field"
^DD(9002313.57,10437,21,3,0)="should only be used if the National Drug Code number is not available. The"
^DD(9002313.57,10437,21,4,0)="code number here is the UPC number or the HRI number"
^DD(9002313.57,10438,0)="INCENTIVE AMOUNT SUBMITTED^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(438)"
^DD(9002313.57,10438,9)="^"
^DD(9002313.57,10438,9.01)=""
^DD(9002313.57,10438,9.1)="S X=$$FIELD^BPSOS57(438)"
^DD(9002313.57,10438,21,0)="^^3^3^3031222^"
^DD(9002313.57,10438,21,1,0)="Amount represents a fee that is submitted by the pharmacy for"
^DD(9002313.57,10438,21,2,0)="contractually agreed upon services. This amount is included in the 'Gross"
^DD(9002313.57,10438,21,3,0)="Amount Due' (43Ø-DU).  "
^DD(9002313.57,10439,0)="DUR CONFLICT CODE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(439)"
^DD(9002313.57,10439,9)="^"
^DD(9002313.57,10439,9.01)=""
^DD(9002313.57,10439,9.1)="S X=$$FIELD^BPSOS57(439)"
^DD(9002313.57,10439,21,0)="^^2^2^3031222^"
^DD(9002313.57,10439,21,1,0)="Code identifying the type of utilization conflict detected or the reason"
^DD(9002313.57,10439,21,2,0)="for the pharmacist s professional service."
^DD(9002313.57,10440,0)="DUR INTERVENTION CODE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(440)"
^DD(9002313.57,10440,9)="^"
^DD(9002313.57,10440,9.01)=""
^DD(9002313.57,10440,9.1)="S X=$$FIELD^BPSOS57(440)"
^DD(9002313.57,10440,21,0)="^^1^1^3031222^"
^DD(9002313.57,10440,21,1,0)="Code to indicate whether an intervention was entered."
^DD(9002313.57,10441,0)="DUR OUTCOME CODE^CJ2^^ ; ^S X=$$FIELD^BPSOS57(441)"
^DD(9002313.57,10441,9)="^"
^DD(9002313.57,10441,9.01)=""
^DD(9002313.57,10441,9.1)="S X=$$FIELD^BPSOS57(441)"
^DD(9002313.57,10441,21,0)="^^1^1^3031222^"
^DD(9002313.57,10441,21,1,0)="The outcome of the DUR - whether the prescription had to be modified."
^DD(9002313.57,10442,0)="METRIC DECIMAL QUANTITY^CJ9,3^^ ; ^S X=$$FIELD^BPSOS57(442)"
^DD(9002313.57,10442,9)="^"
^DD(9002313.57,10442,9.01)=""
^DD(9002313.57,10442,9.1)="S X=$$FIELD^BPSOS57(442)"
^DD(9002313.57,10442,21,0)="^^1^1^3031222^"
^DD(9002313.57,10442,21,1,0)="Quantity dispensed expressed in metric decimal units."
^DD(9002313.57,10443,0)="OTHER PAYOR DATE^CJ8^^ ; ^S X=$$FIELD^BPSOS57(443)"
^DD(9002313.57,10443,9)="^"
^DD(9002313.57,10443,9.01)=""
^DD(9002313.57,10443,9.1)="S X=$$FIELD^BPSOS57(443)"
^DD(9002313.57,10443,21,0)="^^2^2^3031222^"
^DD(9002313.57,10443,21,1,0)="Payment or denial date of the claim submitted to the other payer. Used for"
^DD(9002313.57,10443,21,2,0)="coordination of benefits."
^DD(9002313.57,10444,0)="PHARMACIST ID^CJ10^^ ; ^S X=$$FIELD^BPSOS57(444)"
^DD(9002313.57,10444,9)="^"
^DD(9002313.57,10444,9.01)=""
^DD(9002313.57,10444,9.1)="S X=$$FIELD^BPSOS57(444)"
^DD(9002313.57,10444,21,0)="^.001^2^2^3031222^^"
^DD(9002313.57,10444,21,1,0)="Unique ID assigned to the person responsible for the dispensing of the"
^DD(9002313.57,10444,21,2,0)="prescription or provision of the service."
^DD(9002313.57,10501,0)="RESPONSE STATUS^CJ1^^ ; ^S X=$$FIELD^BPSOS57(501)"
^DD(9002313.57,10501,9)="^"
^DD(9002313.57,10501,9.01)=""
^DD(9002313.57,10501,9.1)="S X=$$FIELD^BPSOS57(501)"
^DD(9002313.57,10501,21,0)="^^2^2^3031222^"
^DD(9002313.57,10501,21,1,0)="Status flag indicating whether the transaction was ""P""aid, ""R""ejected,"
^DD(9002313.57,10501,21,2,0)="""A""ccepted, or ""C""aptured."
^DD(9002313.57,10503,0)="AUTHORIZATION NUMBER^CJ14^^ ; ^S X=$$FIELD^BPSOS57(503)"
^DD(9002313.57,10503,9)="^"
^DD(9002313.57,10503,9.01)=""
^DD(9002313.57,10503,9.1)="S X=$$FIELD^BPSOS57(503)"
^DD(9002313.57,10503,21,0)="^^1^1^3031222^"
^DD(9002313.57,10503,21,1,0)="Authorization number for pre-authorization requests."
^DD(9002313.57,10504,0)="MESSAGE^CJ200^^ ; ^S X=$$FIELD^BPSOS57(504)"
^DD(9002313.57,10504,9)="^"
^DD(9002313.57,10504,9.01)=""
^DD(9002313.57,10504,9.1)="S X=$$FIELD^BPSOS57(504)"
^DD(9002313.57,10504,21,0)="^^1^1^3031222^"
^DD(9002313.57,10504,21,1,0)="Free form Message."
^DD(9002313.57,10505,0)="PATIENT PAY AMOUNT^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(505)"
^DD(9002313.57,10505,9)="^"
^DD(9002313.57,10505,9.01)=""
^DD(9002313.57,10505,9.1)="S X=$$FIELD^BPSOS57(505)"
^DD(9002313.57,10505,21,0)="^^1^1^3031222^"
^DD(9002313.57,10505,21,1,0)="Amount the patient pays (copay)."
^DD(9002313.57,10505,"DT")="3010405"
^DD(9002313.57,10506,0)="INGREDIENT COST PAID^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(506)"
^DD(9002313.57,10506,9)="^"
^DD(9002313.57,10506,9.01)=""
^DD(9002313.57,10506,9.1)="S X=$$FIELD^BPSOS57(506)"
^DD(9002313.57,10506,21,0)="^^1^1^3031222^"
^DD(9002313.57,10506,21,1,0)="Drug ingredient cost paid included in the 'Total Amount Paid' (5Ø9)."
^DD(9002313.57,10507,0)="CONTRACT FEE PAID^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(507)"
^DD(9002313.57,10507,9)="^"
^DD(9002313.57,10507,9.01)=""
^DD(9002313.57,10507,9.1)="S X=$$FIELD^BPSOS57(507)"
^DD(9002313.57,10507,21,0)="^^1^1^3031222^"
^DD(9002313.57,10507,21,1,0)="Dispensing fee paid included in the 'Total Amount Paid' (5Ø9)."
^DD(9002313.57,10508,0)="SALES TAX PAID^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(508)"
^DD(9002313.57,10508,9)="^"
^DD(9002313.57,10508,9.01)=""
^DD(9002313.57,10508,9.1)="S X=$$FIELD^BPSOS57(508)"
^DD(9002313.57,10508,21,0)="^^1^1^3031222^"
^DD(9002313.57,10508,21,1,0)="The amount of sales tax paid for the prescription dispensed."
^DD(9002313.57,10509,0)="TOTAL AMOUNT PAID^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(509)"
^DD(9002313.57,10509,9)="^"
^DD(9002313.57,10509,9.01)=""
^DD(9002313.57,10509,9.1)="S X=$$FIELD^BPSOS57(509)"
^DD(9002313.57,10509,21,0)="^^6^6^3031222^"
^DD(9002313.57,10509,21,1,0)="Total amount to be paid by the claims processor (i.e. pharmacy"
^DD(9002313.57,10509,21,2,0)="receivable). Represents a sum of 'Ingredient Cost Paid' (5Ø6), 'Dispensing"
^DD(9002313.57,10509,21,3,0)="Fee Paid' (5Ø7), 'Flat Sales Tax Amount Paid' (558), 'Percentage Sales Tax"
^DD(9002313.57,10509,21,4,0)="Amount Paid' (559), 'Incentive Amount Paid' (521), 'Professional Service"
^DD(9002313.57,10509,21,5,0)="Fee Paid' (562), 'Other Amount Paid' (565), less 'Patient Pay Amount'"
^DD(9002313.57,10509,21,6,0)="(5Ø5) and 'Other Payer Amount Recognized' (566)."
^DD(9002313.57,10510,0)="REJECT COUNT^CJ2^^ ; ^S X=$$FIELD^BPSOS57(510)"
^DD(9002313.57,10510,9)="^"
^DD(9002313.57,10510,9.01)=""
^DD(9002313.57,10510,9.1)="S X=$$FIELD^BPSOS57(510)"
^DD(9002313.57,10510,21,0)="^^1^1^3031222^"
^DD(9002313.57,10510,21,1,0)="Count of 'Reject Code' (511) occurrences."
^DD(9002313.57,10511,0)="REJECT CODES^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511)"
^DD(9002313.57,10511,9)="^"
^DD(9002313.57,10511,9.01)=""
^DD(9002313.57,10511,9.1)="S X=$$FIELD^BPSOS57(511)"
^DD(9002313.57,10511,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511,21,1,0)="Multiple rejection codes. "
^DD(9002313.57,10511.01,0)="REJECT CODE #1^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.01)"
^DD(9002313.57,10511.01,9)="^"
^DD(9002313.57,10511.01,9.01)=""
^DD(9002313.57,10511.01,9.1)="S X=$$FIELD^BPSOS57(511.01)"
^DD(9002313.57,10511.01,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.01,21,1,0)="Reject code #1 returned in the response by the payer."
^DD(9002313.57,10511.02,0)="REJECT CODE #2^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.02)"
^DD(9002313.57,10511.02,9)="^"
^DD(9002313.57,10511.02,9.01)=""
^DD(9002313.57,10511.02,9.1)="S X=$$FIELD^BPSOS57(511.02)"
^DD(9002313.57,10511.02,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.02,21,1,0)="Reject code #2 returned in the response by the payer."
^DD(9002313.57,10511.03,0)="REJECT CODE #3^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.03)"
^DD(9002313.57,10511.03,9)="^"
^DD(9002313.57,10511.03,9.01)=""
^DD(9002313.57,10511.03,9.1)="S X=$$FIELD^BPSOS57(511.03)"
^DD(9002313.57,10511.03,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.03,21,1,0)="Reject code #3 returned in the response by the payer."
^DD(9002313.57,10511.04,0)="REJECT CODE #4^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.04)"
^DD(9002313.57,10511.04,9)="^"
^DD(9002313.57,10511.04,9.01)=""
^DD(9002313.57,10511.04,9.1)="S X=$$FIELD^BPSOS57(511.04)"
^DD(9002313.57,10511.04,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.04,21,1,0)="Reject code #4 returned in the response by the payer."
^DD(9002313.57,10511.05,0)="REJECT CODE #5^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.05)"
^DD(9002313.57,10511.05,9)="^"
^DD(9002313.57,10511.05,9.01)=""
^DD(9002313.57,10511.05,9.1)="S X=$$FIELD^BPSOS57(511.05)"
^DD(9002313.57,10511.05,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.05,21,1,0)="Reject code #5 returned in the response by the payer."
^DD(9002313.57,10511.06,0)="REJECT CODE #6^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.06)"
^DD(9002313.57,10511.06,9)="^"
^DD(9002313.57,10511.06,9.01)=""
^DD(9002313.57,10511.06,9.1)="S X=$$FIELD^BPSOS57(511.06)"
^DD(9002313.57,10511.06,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.06,21,1,0)="Reject code #6 returned in the response by the payer."
^DD(9002313.57,10511.07,0)="REJECT CODE #7^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.07)"
^DD(9002313.57,10511.07,9)="^"
^DD(9002313.57,10511.07,9.01)=""
^DD(9002313.57,10511.07,9.1)="S X=$$FIELD^BPSOS57(511.07)"
^DD(9002313.57,10511.07,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.07,21,1,0)="Reject code #7 returned in the response by the payer."
^DD(9002313.57,10511.08,0)="REJECT CODE #8^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.08)"
^DD(9002313.57,10511.08,9)="^"
^DD(9002313.57,10511.08,9.01)=""
^DD(9002313.57,10511.08,9.1)="S X=$$FIELD^BPSOS57(511.08)"
^DD(9002313.57,10511.08,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.08,21,1,0)="Reject code #8 returned in the response by the payer."
^DD(9002313.57,10511.09,0)="REJECT CODE #9^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.09)"
^DD(9002313.57,10511.09,9)="^"
^DD(9002313.57,10511.09,9.01)=""
^DD(9002313.57,10511.09,9.1)="S X=$$FIELD^BPSOS57(511.09)"
^DD(9002313.57,10511.09,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.09,21,1,0)="Reject code #9 returned in the response by the payer."
^DD(9002313.57,10511.1,0)="REJECT CODE #10^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.1)"
^DD(9002313.57,10511.1,9)="^"
^DD(9002313.57,10511.1,9.01)=""
^DD(9002313.57,10511.1,9.1)="S X=$$FIELD^BPSOS57(511.1)"
^DD(9002313.57,10511.1,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.1,21,1,0)="Reject code #10 returned in the response by the payer."
^DD(9002313.57,10511.11,0)="REJECT CODE #11^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.11)"
^DD(9002313.57,10511.11,9)="^"
^DD(9002313.57,10511.11,9.01)=""
^DD(9002313.57,10511.11,9.1)="S X=$$FIELD^BPSOS57(511.11)"
^DD(9002313.57,10511.11,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.11,21,1,0)="Reject code #11 returned in the response by the payer."
^DD(9002313.57,10511.11,"DT")="3010405"
^DD(9002313.57,10511.12,0)="REJECT CODE #12^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.12)"
^DD(9002313.57,10511.12,9)="^"
^DD(9002313.57,10511.12,9.01)=""
^DD(9002313.57,10511.12,9.1)="S X=$$FIELD^BPSOS57(511.12)"
^DD(9002313.57,10511.12,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.12,21,1,0)="Reject code #12 returned in the response by the payer."
^DD(9002313.57,10511.13,0)="REJECT CODE #13^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.13)"
^DD(9002313.57,10511.13,9)="^"
^DD(9002313.57,10511.13,9.01)=""
^DD(9002313.57,10511.13,9.1)="S X=$$FIELD^BPSOS57(511.13)"
^DD(9002313.57,10511.13,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.13,21,1,0)="Reject code #13 returned in the response by the payer."
^DD(9002313.57,10511.14,0)="REJECT CODE #14^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.14)"
^DD(9002313.57,10511.14,9)="^"
^DD(9002313.57,10511.14,9.01)=""
^DD(9002313.57,10511.14,9.1)="S X=$$FIELD^BPSOS57(511.14)"
^DD(9002313.57,10511.14,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.14,21,1,0)="Reject code #14 returned in the response by the payer."
^DD(9002313.57,10511.15,0)="REJECT CODE #15^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.15)"
^DD(9002313.57,10511.15,9)="^"
^DD(9002313.57,10511.15,9.01)=""
^DD(9002313.57,10511.15,9.1)="S X=$$FIELD^BPSOS57(511.15)"
^DD(9002313.57,10511.15,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.15,21,1,0)="Reject code #15 returned in the response by the payer."
^DD(9002313.57,10511.16,0)="REJECT CODE #16^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.16)"
^DD(9002313.57,10511.16,9)="^"
^DD(9002313.57,10511.16,9.01)=""
^DD(9002313.57,10511.16,9.1)="S X=$$FIELD^BPSOS57(511.16)"
^DD(9002313.57,10511.16,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.16,21,1,0)="Reject code #16 returned in the response by the payer."
^DD(9002313.57,10511.17,0)="REJECT CODE #17^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.17)"
^DD(9002313.57,10511.17,9)="^"
^DD(9002313.57,10511.17,9.01)=""
^DD(9002313.57,10511.17,9.1)="S X=$$FIELD^BPSOS57(511.17)"
^DD(9002313.57,10511.17,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.17,21,1,0)="Reject code #17 returned in the response by the payer."
^DD(9002313.57,10511.18,0)="REJECT CODE #18^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.18)"
^DD(9002313.57,10511.18,9)="^"
^DD(9002313.57,10511.18,9.01)=""
^DD(9002313.57,10511.18,9.1)="S X=$$FIELD^BPSOS57(511.18)"
^DD(9002313.57,10511.18,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.18,21,1,0)="Reject code #18 returned in the response by the payer."
^DD(9002313.57,10511.19,0)="REJECT CODE #19^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.19)"
^DD(9002313.57,10511.19,9)="^"
^DD(9002313.57,10511.19,9.01)=""
^DD(9002313.57,10511.19,9.1)="S X=$$FIELD^BPSOS57(511.19)"
^DD(9002313.57,10511.19,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.19,21,1,0)="Reject code #19 returned in the response by the payer."
^DD(9002313.57,10511.2,0)="REJECT CODE #20^CJ60^^ ; ^S X=$$FIELD^BPSOS57(511.2)"
^DD(9002313.57,10511.2,9)="^"
^DD(9002313.57,10511.2,9.01)=""
^DD(9002313.57,10511.2,9.1)="S X=$$FIELD^BPSOS57(511.2)"
^DD(9002313.57,10511.2,21,0)="^^1^1^3031222^"
^DD(9002313.57,10511.2,21,1,0)="Reject code #20 returned in the response by the payer."
^DD(9002313.57,10512,0)="ACCUMULATED DEDUCTIBLE AMOUNT^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(512)"
^DD(9002313.57,10512,9)="^"
^DD(9002313.57,10512,9.01)=""
^DD(9002313.57,10512,9.1)="S X=$$FIELD^BPSOS57(512)"
^DD(9002313.57,10512,21,0)="^^1^1^3031222^"
^DD(9002313.57,10512,21,1,0)="Amount in dollars met by the patient/family in a deductible plan."
^DD(9002313.57,10513,0)="REMAINING DEDUCTIBLE AMOUNT^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(513)"
^DD(9002313.57,10513,9)="^"
^DD(9002313.57,10513,9.01)=""
^DD(9002313.57,10513,9.1)="S X=$$FIELD^BPSOS57(513)"
^DD(9002313.57,10513,21,0)="^^1^1^3031222^"
^DD(9002313.57,10513,21,1,0)="Amount not met by the patient/family in the deductible plan."
^DD(9002313.57,10514,0)="REMAINING BENEFIT AMOUNT^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(514)"
^DD(9002313.57,10514,9)="^"
^DD(9002313.57,10514,9.01)=""
^DD(9002313.57,10514,9.1)="S X=$$FIELD^BPSOS57(514)"
^DD(9002313.57,10514,21,0)="^^1^1^3031222^"
^DD(9002313.57,10514,21,1,0)="Amount remaining in a patient/family plan with a periodic maximum benefit."
^DD(9002313.57,10515,0)="POSTAGE AMOUNT PAID^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(515)"
^DD(9002313.57,10515,9)="^"
^DD(9002313.57,10515,9.01)=""
^DD(9002313.57,10515,9.1)="S X=$$FIELD^BPSOS57(515)"
^DD(9002313.57,10515,21,0)="^^1^1^3031222^"
^DD(9002313.57,10515,21,1,0)="Not applicable to the VA."
^DD(9002313.57,10516,0)="DRUG DESCRIPTION^CJ30^^ ; ^S X=$$FIELD^BPSOS57(516)"
^DD(9002313.57,10516,9)="^"
^DD(9002313.57,10516,9.01)=""
^DD(9002313.57,10516,9.1)="S X=$$FIELD^BPSOS57(516)"
^DD(9002313.57,10516,21,0)="^^1^1^3031222^"
^DD(9002313.57,10516,21,1,0)="Text description for the drug from the drug file 50."
^DD(9002313.57,10517,0)="AMOUNT APP TO PER DEDUCTIBLE^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(517)"
^DD(9002313.57,10517,9)="^"
^DD(9002313.57,10517,9.01)=""
^DD(9002313.57,10517,9.1)="S X=$$FIELD^BPSOS57(517)"
^DD(9002313.57,10517,21,0)="^^2^2^3031222^"
^DD(9002313.57,10517,21,1,0)="Amount to be collected from a patient that is included in 'Patient Pay"
^DD(9002313.57,10517,21,2,0)="Amount' (5Ø5) that is applied to a periodic deductible."
^DD(9002313.57,10518,0)="AMOUNT OF CO-PAY/CO-INSURANCE^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(518)"
^DD(9002313.57,10518,9)="^"
^DD(9002313.57,10518,9.01)=""
^DD(9002313.57,10518,9.1)="S X=$$FIELD^BPSOS57(518)"
^DD(9002313.57,10518,21,0)="^^2^2^3031222^"
^DD(9002313.57,10518,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay"
^DD(9002313.57,10518,21,2,0)="Amount' (5Ø5) that is due to a per prescription copay/coinsurance."
^DD(9002313.57,10519,0)="AMOUNT ATTR TO PRODUCT SELECT^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(519)"
^DD(9002313.57,10519,9)="^"
^DD(9002313.57,10519,9.01)=""
^DD(9002313.57,10519,9.1)="S X=$$FIELD^BPSOS57(519)"
^DD(9002313.57,10519,21,0)="^^2^2^3031222^"
^DD(9002313.57,10519,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay"
^DD(9002313.57,10519,21,2,0)="Amount' (5Ø5) that is due to the patient's selection of drug product."
^DD(9002313.57,10520,0)="AMOUNT EXCEED PER BENEFIT MAX^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(520)"
^DD(9002313.57,10520,9)="^"
^DD(9002313.57,10520,9.01)=""
^DD(9002313.57,10520,9.1)="S X=$$FIELD^BPSOS57(520)"
^DD(9002313.57,10520,21,0)="^^3^3^3031222^"
^DD(9002313.57,10520,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay"
^DD(9002313.57,10520,21,2,0)="Amount' (5Ø5) that is due to the patient exceeding a periodic benefit"
^DD(9002313.57,10520,21,3,0)="maximum."
^DD(9002313.57,10521,0)="INCENTIVE FEE PAID^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(521)"
^DD(9002313.57,10521,9)="^"
^DD(9002313.57,10521,9.01)=""
^DD(9002313.57,10521,9.1)="S X=$$FIELD^BPSOS57(521)"
^DD(9002313.57,10521,21,0)="^^3^3^3031222^"
^DD(9002313.57,10521,21,1,0)="Amount represents the contractually agreed upon incentive fee paid for"
^DD(9002313.57,10521,21,2,0)="specific services rendered. Amount is included in the 'Total Amount Paid'"
^DD(9002313.57,10521,21,3,0)="(5Ø9)."
^DD(9002313.57,10521,"DT")="3010405"
^DD(9002313.57,10522,0)="BASIS OF REIMBURSEMENT DET^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(522)"
^DD(9002313.57,10522,9)="^"
^DD(9002313.57,10522,9.01)=""
^DD(9002313.57,10522,9.1)="S X=$$FIELD^BPSOS57(522)"
^DD(9002313.57,10522,21,0)="^^2^2^3031222^"
^DD(9002313.57,10522,21,1,0)="Code identifying how the reimbursement amount was calculated for"
^DD(9002313.57,10522,21,2,0)="'Ingredient Cost Paid' (5Ø6)."
^DD(9002313.57,10523,0)="AMOUNT ATTRIBUTED TO SALES TAX^CJ8,2^^ ; ^S X=$$FIELD^BPSOS57(523)"
^DD(9002313.57,10523,9)="^"
^DD(9002313.57,10523,9.01)=""
^DD(9002313.57,10523,9.1)="S X=$$FIELD^BPSOS57(523)"
^DD(9002313.57,10523,21,0)="^^2^2^3031222^"
^DD(9002313.57,10523,21,1,0)="Amount to be collected from the patient that is included in 'Patient Pay"
^DD(9002313.57,10523,21,2,0)="Amount' (5Ø5) that is due to sales tax paid."
^DD(9002313.57,10524,0)="PLAN ID^CJ8^^ ; ^S X=$$FIELD^BPSOS57(524)"
^DD(9002313.57,10524,9)="^"
^DD(9002313.57,10524,9.01)=""
^DD(9002313.57,10524,9.1)="S X=$$FIELD^BPSOS57(524)"
^DD(9002313.57,10524,21,0)="^^1^1^3031222^"
^DD(9002313.57,10524,21,1,0)="Plan Identification Number."
^DD(9002313.57,10525,0)="DUR RESPONSE DATA^CJ160^^ ; ^S X=$$FIELD^BPSOS57(525)"
^DD(9002313.57,10525,9)="^"
^DD(9002313.57,10525,9.01)=""
^DD(9002313.57,10525,9.1)="S X=$$FIELD^BPSOS57(525)"
^DD(9002313.57,10525,21,0)="^^1^1^3031222^"
^DD(9002313.57,10525,21,1,0)="Text that provides additional detail regarding a DUR conflict."
^DD(9002313.57,10525.01,0)="DUR COUNT^CJ1^^ ; ^X ^DD(9002313.57,10525.01,9.5) S X=$S(Y(9002313.57,10525.01,2):Y(9002313.57,10525.01,3),Y(9002313.57,10525.01,5):Y(9002313.57,10525.01,6),Y(9002313.57,10525.01,8):Y(9002313.57,10525.01,9),Y(9002313.57,10525.01,10):X)"
^DD(9002313.57,10525.01,9)="^"
^DD(9002313.57,10525.01,9.01)="9002313.57^10525.3;9002313.57^10525.2;9002313.57^10525.1"
^DD(9002313.57,10525.01,9.1)="$S(DUR #1 RAW DATA="""":0,DUR #2 RAW DATA="""":1,DUR #3 RAW DATA="""":2,1:3)"
^DD(9002313.57,10525.01,9.2)="X $P(^DD(9002313.57,10525.1,0),U,5,99) S Y(9002313.57,10525.01,1)=X X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.01,4)=X"
^DD(9002313.57,10525.01,9.3)="X ^DD(9002313.57,10525.01,9.2) X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.01,7)=X S X=Y(9002313.57,10525.01,1)="""",Y(9002313.57,10525.01,2)=X S X=0"
^DD(9002313.57,10525.01,9.4)="X ^DD(9002313.57,10525.01,9.3) S Y(9002313.57,10525.01,3)=X S X=Y(9002313.57,10525.01,4)="""",Y(9002313.57,10525.01,5)=X S X=1,Y(9002313.57,10525.01,6)=X"
^DD(9002313.57,10525.01,9.5)="X ^DD(9002313.57,10525.01,9.4) S X=Y(9002313.57,10525.01,7)="""",Y(9002313.57,10525.01,8)=X S X=2,Y(9002313.57,10525.01,9)=X S X=1,Y(9002313.57,10525.01,10)=X S X=3"
^DD(9002313.57,10525.01,21,0)="^^1^1^3031222^"
^DD(9002313.57,10525.01,21,1,0)="Number of DUR messages to be displayed."
^DD(9002313.57,10525.1,0)="DUR #1 RAW DATA^CJ53^^ ; ^X ^DD(9002313.57,10525.1,9.5) S X=$S(Y(9002313.57,10525.1,4):Y(9002313.57,10525.1,5),Y(9002313.57,10525.1,6):X)"
^DD(9002313.57,10525.1,9)="^"
^DD(9002313.57,10525.1,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1,9.1)="$S($E(DUR RESPONSE DATA,1,2)=""  "":"""",1:$E(DUR RESPONSE DATA,1,53))"
^DD(9002313.57,10525.1,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1,1)=X S X=Y(9002313.57,10525.1,1),Y(9002313.57,10525.1,2)=X S X=1,Y(9002313.57,10525.1,3)=X S X=2"
^DD(9002313.57,10525.1,9.3)="X ^DD(9002313.57,10525.1,9.2) S X=$E(Y(9002313.57,10525.1,2),Y(9002313.57,10525.1,3),X)=""  "",Y(9002313.57,10525.1,4)=X S X="""",Y(9002313.57,10525.1,5)=X S X=1"
^DD(9002313.57,10525.1,9.4)="X ^DD(9002313.57,10525.1,9.3) S Y(9002313.57,10525.1,6)=X,Y(9002313.57,10525.1,7)=X S X=Y(9002313.57,10525.1,1),Y(9002313.57,10525.1,8)=X S X=1"
^DD(9002313.57,10525.1,9.5)="X ^DD(9002313.57,10525.1,9.4) S Y(9002313.57,10525.1,9)=X S X=53,X=$E(Y(9002313.57,10525.1,8),Y(9002313.57,10525.1,9),X)"
^DD(9002313.57,10525.1,21,0)="^^1^1^3031222^"
^DD(9002313.57,10525.1,21,1,0)="Raw Data DUR message sent from the payer and stored in the response file."
^DD(9002313.57,10525.1439,0)="DUR #1 DRUG CONFLICT CODE^CJ2^^ ; ^X ^DD(9002313.57,10525.1439,9.2) S Y(9002313.57,10525.1439,3)=X S X=2,X=$E(Y(9002313.57,10525.1439,2),Y(9002313.57,10525.1439,3),X)"
^DD(9002313.57,10525.1439,9)="^"
^DD(9002313.57,10525.1439,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1439,9.1)="$E(DUR RESPONSE DATA,1,2)"
^DD(9002313.57,10525.1439,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1439,1)=X S X=Y(9002313.57,10525.1439,1),Y(9002313.57,10525.1439,2)=X S X=1"
^DD(9002313.57,10525.1439,21,0)="^^1^1^3031222^"
^DD(9002313.57,10525.1439,21,1,0)="Severity level code for the first DUR."
^DD(9002313.57,10525.1528,0)="DUR #1 SEVERITY INDEX CODE^CJ1^^ ; ^X ^DD(9002313.57,10525.1528,9.2) S X=$E(Y(9002313.57,10525.1528,2),X)"
^DD(9002313.57,10525.1528,9)="^"
^DD(9002313.57,10525.1528,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1528,9.1)="$E(DUR RESPONSE DATA,3)"
^DD(9002313.57,10525.1528,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1528,1)=X S X=Y(9002313.57,10525.1528,1),Y(9002313.57,10525.1528,2)=X S X=3"
^DD(9002313.57,10525.1528,21,0)="^.001^4^4^3040106^^"
^DD(9002313.57,10525.1528,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10525.1528,21,2,0)="1=Major"
^DD(9002313.57,10525.1528,21,3,0)="2=Moderate"
^DD(9002313.57,10525.1528,21,4,0)="3=Minor"
^DD(9002313.57,10525.1528,"DT")="3040106"
^DD(9002313.57,10525.1529,0)="DUR #1 OTHER PHARMACY INDIC^CJ1^^ ; ^X ^DD(9002313.57,10525.1529,9.2) S X=$E(Y(9002313.57,10525.1529,2),X)"
^DD(9002313.57,10525.1529,9)="^"
^DD(9002313.57,10525.1529,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1529,9.1)="$E(DUR RESPONSE DATA,4)"
^DD(9002313.57,10525.1529,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1529,1)=X S X=Y(9002313.57,10525.1529,1),Y(9002313.57,10525.1529,2)=X S X=4"
^DD(9002313.57,10525.1529,21,0)="^^4^4^3040106^"
^DD(9002313.57,10525.1529,21,1,0)="Ø=Not Specified"
^DD(9002313.57,10525.1529,21,2,0)="1=Your Pharmacy"
^DD(9002313.57,10525.1529,21,3,0)="2=Other Pharmacy in Same Chain"
^DD(9002313.57,10525.1529,21,4,0)="3=Other Pharmacy"
^DD(9002313.57,10525.1529,"DT")="3040106"
^DD(9002313.57,10525.153,0)="DUR #1 PREVIOUS DATE OF FILL^CJ8^^ ; ^X ^DD(9002313.57,10525.153,9.2) S Y(9002313.57,10525.153,3)=X S X=12,X=$E(Y(9002313.57,10525.153,2),Y(9002313.57,10525.153,3),X)"
^DD(9002313.57,10525.153,9)="^"
^DD(9002313.57,10525.153,9.01)="9002313.57^10525"
^DD(9002313.57,10525.153,9.1)="$E(DUR RESPONSE DATA,5,12)"
^DD(9002313.57,10525.153,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.153,1)=X S X=Y(9002313.57,10525.153,1),Y(9002313.57,10525.153,2)=X S X=5"
^DD(9002313.57,10525.153,21,0)="^^1^1^3040106^"
^DD(9002313.57,10525.153,21,1,0)="Previous fill date"
^DD(9002313.57,10525.1531,0)="DUR #1 QTY OF PREVIOUS FILL^CJ5^^ ; ^X ^DD(9002313.57,10525.1531,9.2) S Y(9002313.57,10525.1531,3)=X S X=17,X=$E(Y(9002313.57,10525.1531,2),Y(9002313.57,10525.1531,3),X)"
^DD(9002313.57,10525.1531,9)="^"
^DD(9002313.57,10525.1531,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1531,9.1)="$E(DUR RESPONSE DATA,13,17)"
^DD(9002313.57,10525.1531,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1531,1)=X S X=Y(9002313.57,10525.1531,1),Y(9002313.57,10525.1531,2)=X S X=13"
^DD(9002313.57,10525.1531,21,0)="^^1^1^3040126^"
^DD(9002313.57,10525.1531,21,1,0)="The quantity of the previous fill that caused the DUR to be triggered."
^DD(9002313.57,10525.1532,0)="DUR #1 DATABASE INDICATOR^CJ1^^ ; ^X ^DD(9002313.57,10525.1532,9.2) S X=$E(Y(9002313.57,10525.1532,2),X)"
^DD(9002313.57,10525.1532,9)="^"
^DD(9002313.57,10525.1532,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1532,9.1)="$E(DUR RESPONSE DATA,18)"
^DD(9002313.57,10525.1532,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1532,1)=X S X=Y(9002313.57,10525.1532,1),Y(9002313.57,10525.1532,2)=X S X=18"
^DD(9002313.57,10525.1532,21,0)="^.001^6^6^3040106^^"
^DD(9002313.57,10525.1532,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10525.1532,21,2,0)="1=First Databank"
^DD(9002313.57,10525.1532,21,3,0)="2=Medi-Span"
^DD(9002313.57,10525.1532,21,4,0)="3=Redbook"
^DD(9002313.57,10525.1532,21,5,0)="4=Processor Developed"
^DD(9002313.57,10525.1532,21,6,0)="5=Other"
^DD(9002313.57,10525.1533,0)="DUR #1 OTHER PRESCRIBER INDIC^CJ1^^ ; ^X ^DD(9002313.57,10525.1533,9.2) S X=$E(Y(9002313.57,10525.1533,2),X)"
^DD(9002313.57,10525.1533,9)="^"
^DD(9002313.57,10525.1533,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1533,9.1)="$E(DUR RESPONSE DATA,19)"
^DD(9002313.57,10525.1533,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1533,1)=X S X=Y(9002313.57,10525.1533,1),Y(9002313.57,10525.1533,2)=X S X=19"
^DD(9002313.57,10525.1533,21,0)="^.001^6^6^3040106^^"
^DD(9002313.57,10525.1533,21,1,0)="Code that indicates the prescriber of the current fill relationship to the"
^DD(9002313.57,10525.1533,21,2,0)="prescriber of the conflicting prescription."
^DD(9002313.57,10525.1533,21,3,0)=" "
^DD(9002313.57,10525.1533,21,4,0)="Ø=Not Specified"
^DD(9002313.57,10525.1533,21,5,0)="1=Same Prescriber"
^DD(9002313.57,10525.1533,21,6,0)="2=Other Prescriber"
^DD(9002313.57,10525.1544,0)="DUR #1 FREE TEXT^CJ30^^ ; ^X ^DD(9002313.57,10525.1544,9.2) S Y(9002313.57,10525.1544,3)=X S X=49,X=$E(Y(9002313.57,10525.1544,2),Y(9002313.57,10525.1544,3),X)"
^DD(9002313.57,10525.1544,9)="^"
^DD(9002313.57,10525.1544,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1544,9.1)="$E(DUR RESPONSE DATA,20,49)"
^DD(9002313.57,10525.1544,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1544,1)=X S X=Y(9002313.57,10525.1544,1),Y(9002313.57,10525.1544,2)=X S X=20"
^DD(9002313.57,10525.1544,21,0)="^.001^1^1^3040106^^"
^DD(9002313.57,10525.1544,21,1,0)="Actual DUR text"
^DD(9002313.57,10525.1999,0)="DUR #1 RESERVE SPACE^CJ4^^ ; ^X ^DD(9002313.57,10525.1999,9.2) S Y(9002313.57,10525.1999,3)=X S X=53,X=$E(Y(9002313.57,10525.1999,2),Y(9002313.57,10525.1999,3),X)"
^DD(9002313.57,10525.1999,9)="^"
^DD(9002313.57,10525.1999,9.01)="9002313.57^10525"
^DD(9002313.57,10525.1999,9.1)="$E(DUR RESPONSE DATA,50,53)"
^DD(9002313.57,10525.1999,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.1999,1)=X S X=Y(9002313.57,10525.1999,1),Y(9002313.57,10525.1999,2)=X S X=50"
^DD(9002313.57,10525.1999,21,0)="^.001^1^1^3040106^^"
^DD(9002313.57,10525.1999,21,1,0)="Reserved space for additional information."
^DD(9002313.57,10525.2,0)="DUR #2 RAW DATA^CJ53^^ ; ^X ^DD(9002313.57,10525.2,9.5) S X=$S(Y(9002313.57,10525.2,4):Y(9002313.57,10525.2,5),Y(9002313.57,10525.2,6):X)"
^DD(9002313.57,10525.2,9)="^"
^DD(9002313.57,10525.2,9.01)="9002313.57^10525"
^DD(9002313.57,10525.2,9.1)="$S($E(DUR RESPONSE DATA,54,55)=""  "":"""",1:$E(DUR RESPONSE DATA,54,106))"
^DD(9002313.57,10525.2,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.2,1)=X S X=Y(9002313.57,10525.2,1),Y(9002313.57,10525.2,2)=X S X=54,Y(9002313.57,10525.2,3)=X S X=55"
^DD(9002313.57,10525.2,9.3)="X ^DD(9002313.57,10525.2,9.2) S X=$E(Y(9002313.57,10525.2,2),Y(9002313.57,10525.2,3),X)=""  "",Y(9002313.57,10525.2,4)=X S X="""",Y(9002313.57,10525.2,5)=X S X=1"
^DD(9002313.57,10525.2,9.4)="X ^DD(9002313.57,10525.2,9.3) S Y(9002313.57,10525.2,6)=X,Y(9002313.57,10525.2,7)=X S X=Y(9002313.57,10525.2,1),Y(9002313.57,10525.2,8)=X S X=54"
^DD(9002313.57,10525.2,9.5)="X ^DD(9002313.57,10525.2,9.4) S Y(9002313.57,10525.2,9)=X S X=106,X=$E(Y(9002313.57,10525.2,8),Y(9002313.57,10525.2,9),X)"
^DD(9002313.57,10525.2,21,0)="^.001^2^2^3040106^^"
^DD(9002313.57,10525.2,21,1,0)="DUR information returned by the payor that has not been formatted"
^DD(9002313.57,10525.2,21,2,0)="yet."
^DD(9002313.57,10525.2439,0)="DUR #2 DRUG CONFLICT CODE^CJ2^^ ; ^X ^DD(9002313.57,10525.2439,9.2) S Y(9002313.57,10525.2439,3)=X S X=2,X=$E(Y(9002313.57,10525.2439,2),Y(9002313.57,10525.2439,3),X)"
^DD(9002313.57,10525.2439,9)="^"
^DD(9002313.57,10525.2439,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2439,9.1)="$E(DUR #2 RAW DATA,1,2)"
^DD(9002313.57,10525.2439,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2439,1)=X S X=Y(9002313.57,10525.2439,1),Y(9002313.57,10525.2439,2)=X S X=1"
^DD(9002313.57,10525.2439,21,0)="^.001^4^4^3040106^^"
^DD(9002313.57,10525.2439,21,1,0)="Ø=Not Specified"
^DD(9002313.57,10525.2439,21,2,0)="1=Your Pharmacy"
^DD(9002313.57,10525.2439,21,3,0)="2=Other Pharmacy in Same Chain"
^DD(9002313.57,10525.2439,21,4,0)="3=Other Pharmacy"
^DD(9002313.57,10525.2528,0)="DUR #2 SEVERITY INDEX CODE^CJ1^^ ; ^X ^DD(9002313.57,10525.2528,9.2) S X=$E(Y(9002313.57,10525.2528,2),X)"
^DD(9002313.57,10525.2528,9)="^"
^DD(9002313.57,10525.2528,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2528,9.1)="$E(DUR #2 RAW DATA,3)"
^DD(9002313.57,10525.2528,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2528,1)=X S X=Y(9002313.57,10525.2528,1),Y(9002313.57,10525.2528,2)=X S X=3"
^DD(9002313.57,10525.2528,21,0)="^.001^4^4^3040106^^"
^DD(9002313.57,10525.2528,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10525.2528,21,2,0)="1=Major"
^DD(9002313.57,10525.2528,21,3,0)="2=Moderate"
^DD(9002313.57,10525.2528,21,4,0)="3=Minor"
^DD(9002313.57,10525.2529,0)="DUR #2 OTHER PHARMACY INDIC^CJ1^^ ; ^X ^DD(9002313.57,10525.2529,9.2) S X=$E(Y(9002313.57,10525.2529,2),X)"
^DD(9002313.57,10525.2529,9)="^"
^DD(9002313.57,10525.2529,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2529,9.1)="$E(DUR #2 RAW DATA,4)"
^DD(9002313.57,10525.2529,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2529,1)=X S X=Y(9002313.57,10525.2529,1),Y(9002313.57,10525.2529,2)=X S X=4"
^DD(9002313.57,10525.2529,21,0)="^.001^4^4^3040106^^"
^DD(9002313.57,10525.2529,21,1,0)="Ø=Not Specified"
^DD(9002313.57,10525.2529,21,2,0)="1=Your Pharmacy"
^DD(9002313.57,10525.2529,21,3,0)="2=Other Pharmacy in Same Chain"
^DD(9002313.57,10525.2529,21,4,0)="3=Other Pharmacy"
^DD(9002313.57,10525.253,0)="DUR #2 PREVIOUS DATE OF FILL^CJ8^^ ; ^X ^DD(9002313.57,10525.253,9.2) S Y(9002313.57,10525.253,3)=X S X=12,X=$E(Y(9002313.57,10525.253,2),Y(9002313.57,10525.253,3),X)"
^DD(9002313.57,10525.253,9)="^"
^DD(9002313.57,10525.253,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.253,9.1)="$E(DUR #2 RAW DATA,5,12)"
^DD(9002313.57,10525.253,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.253,1)=X S X=Y(9002313.57,10525.253,1),Y(9002313.57,10525.253,2)=X S X=5"
^DD(9002313.57,10525.253,21,0)="^.001^1^1^3040106^^"
^DD(9002313.57,10525.253,21,1,0)="Fill date of the previous fill that is causing the DUR conflict."
^DD(9002313.57,10525.2531,0)="DUR #2 QTY OF PREVIOUS FILL^CJ5^^ ; ^X ^DD(9002313.57,10525.2531,9.2) S Y(9002313.57,10525.2531,3)=X S X=17,X=$E(Y(9002313.57,10525.2531,2),Y(9002313.57,10525.2531,3),X)"
^DD(9002313.57,10525.2531,9)="^"
^DD(9002313.57,10525.2531,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2531,9.1)="$E(DUR #2 RAW DATA,13,17)"
^DD(9002313.57,10525.2531,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2531,1)=X S X=Y(9002313.57,10525.2531,1),Y(9002313.57,10525.2531,2)=X S X=13"
^DD(9002313.57,10525.2531,21,0)="^.001^1^1^3040106^^^"
^DD(9002313.57,10525.2531,21,1,0)="Quantity of the fill that is causing the conflict."
^DD(9002313.57,10525.2532,0)="DUR #2 DATABASE INDICATOR^CJ1^^ ; ^X ^DD(9002313.57,10525.2532,9.2) S X=$E(Y(9002313.57,10525.2532,2),X)"
^DD(9002313.57,10525.2532,9)="^"
^DD(9002313.57,10525.2532,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2532,9.1)="$E(DUR #2 RAW DATA,18)"
^DD(9002313.57,10525.2532,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2532,1)=X S X=Y(9002313.57,10525.2532,1),Y(9002313.57,10525.2532,2)=X S X=18"
^DD(9002313.57,10525.2532,21,0)="^.001^6^6^3040106^^"
^DD(9002313.57,10525.2532,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10525.2532,21,2,0)="1=First Databank"
^DD(9002313.57,10525.2532,21,3,0)="2=Medi-Span"
^DD(9002313.57,10525.2532,21,4,0)="3=Redbook"
^DD(9002313.57,10525.2532,21,5,0)="4=Processor Developed"
^DD(9002313.57,10525.2532,21,6,0)="5=Other"
^DD(9002313.57,10525.2533,0)="DUR #2 OTHER PRESCRIBER INDIC^CJ1^^ ; ^X ^DD(9002313.57,10525.2533,9.2) S X=$E(Y(9002313.57,10525.2533,2),X)"
^DD(9002313.57,10525.2533,9)="^"
^DD(9002313.57,10525.2533,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2533,9.1)="$E(DUR #2 RAW DATA,19)"
^DD(9002313.57,10525.2533,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2533,1)=X S X=Y(9002313.57,10525.2533,1),Y(9002313.57,10525.2533,2)=X S X=19"
^DD(9002313.57,10525.2533,21,0)="^.001^6^6^3040106^^"
^DD(9002313.57,10525.2533,21,1,0)="Code that indicates the prescriber of the current fill relationship to the"
^DD(9002313.57,10525.2533,21,2,0)="prescriber of the conflicting prescription."
^DD(9002313.57,10525.2533,21,3,0)=" "
^DD(9002313.57,10525.2533,21,4,0)="Ø=Not Specified"
^DD(9002313.57,10525.2533,21,5,0)="1=Same Prescriber"
^DD(9002313.57,10525.2533,21,6,0)="2=Other Prescriber"
^DD(9002313.57,10525.2544,0)="DUR #2 FREE TEXT^CJ30^^ ; ^X ^DD(9002313.57,10525.2544,9.2) S Y(9002313.57,10525.2544,3)=X S X=49,X=$E(Y(9002313.57,10525.2544,2),Y(9002313.57,10525.2544,3),X)"
^DD(9002313.57,10525.2544,9)="^"
^DD(9002313.57,10525.2544,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2544,9.1)="$E(DUR #2 RAW DATA,20,49)"
^DD(9002313.57,10525.2544,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2544,1)=X S X=Y(9002313.57,10525.2544,1),Y(9002313.57,10525.2544,2)=X S X=20"
^DD(9002313.57,10525.2544,21,0)="^.001^1^1^3040106^^"
^DD(9002313.57,10525.2544,21,1,0)="Actual DUR text"
^DD(9002313.57,10525.2999,0)="DUR #2 RESERVE SPACE^CJ4^^ ; ^X ^DD(9002313.57,10525.2999,9.2) S Y(9002313.57,10525.2999,3)=X S X=53,X=$E(Y(9002313.57,10525.2999,2),Y(9002313.57,10525.2999,3),X)"
^DD(9002313.57,10525.2999,9)="^"
^DD(9002313.57,10525.2999,9.01)="9002313.57^10525.2"
^DD(9002313.57,10525.2999,9.1)="$E(DUR #2 RAW DATA,50,53)"
^DD(9002313.57,10525.2999,9.2)="X $P(^DD(9002313.57,10525.2,0),U,5,99) S Y(9002313.57,10525.2999,1)=X S X=Y(9002313.57,10525.2999,1),Y(9002313.57,10525.2999,2)=X S X=50"
^DD(9002313.57,10525.2999,21,0)="^.001^1^1^3040106^^"
^DD(9002313.57,10525.2999,21,1,0)="Reserved space for additional information."
^DD(9002313.57,10525.3,0)="DUR #3 RAW DATA^CJ53^^ ; ^X ^DD(9002313.57,10525.3,9.5) S X=$S(Y(9002313.57,10525.3,4):Y(9002313.57,10525.3,5),Y(9002313.57,10525.3,6):X)"
^DD(9002313.57,10525.3,9)="^"
^DD(9002313.57,10525.3,9.01)="9002313.57^10525"
^DD(9002313.57,10525.3,9.1)="$S($E(DUR RESPONSE DATA,107,108)=""  "":"""",1:$E(DUR RESPONSE DATA,107,159))"
^DD(9002313.57,10525.3,9.2)="X $P(^DD(9002313.57,10525,0),U,5,99) S Y(9002313.57,10525.3,1)=X S X=Y(9002313.57,10525.3,1),Y(9002313.57,10525.3,2)=X S X=107,Y(9002313.57,10525.3,3)=X S X=108"
^DD(9002313.57,10525.3,9.3)="X ^DD(9002313.57,10525.3,9.2) S X=$E(Y(9002313.57,10525.3,2),Y(9002313.57,10525.3,3),X)=""  "",Y(9002313.57,10525.3,4)=X S X="""",Y(9002313.57,10525.3,5)=X S X=1"
^DD(9002313.57,10525.3,9.4)="X ^DD(9002313.57,10525.3,9.3) S Y(9002313.57,10525.3,6)=X,Y(9002313.57,10525.3,7)=X S X=Y(9002313.57,10525.3,1),Y(9002313.57,10525.3,8)=X S X=107"
^DD(9002313.57,10525.3,9.5)="X ^DD(9002313.57,10525.3,9.4) S Y(9002313.57,10525.3,9)=X S X=159,X=$E(Y(9002313.57,10525.3,8),Y(9002313.57,10525.3,9),X)"
^DD(9002313.57,10525.3,21,0)="^^2^2^3040106^"
^DD(9002313.57,10525.3,21,1,0)="DUR information returned by the payor that has not been formatted"
^DD(9002313.57,10525.3,21,2,0)="yet."
^DD(9002313.57,10525.3439,0)="DUR #3 DRUG CONFLICT CODE^CJ2^^ ; ^X ^DD(9002313.57,10525.3439,9.2) S Y(9002313.57,10525.3439,3)=X S X=2,X=$E(Y(9002313.57,10525.3439,2),Y(9002313.57,10525.3439,3),X)"
^DD(9002313.57,10525.3439,9)="^"
^DD(9002313.57,10525.3439,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3439,9.1)="$E(DUR #3 RAW DATA,1,2)"
^DD(9002313.57,10525.3439,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3439,1)=X S X=Y(9002313.57,10525.3439,1),Y(9002313.57,10525.3439,2)=X S X=1"
^DD(9002313.57,10525.3439,21,0)="^^4^4^3040106^"
^DD(9002313.57,10525.3439,21,1,0)="Ø=Not Specified"
^DD(9002313.57,10525.3439,21,2,0)="1=Your Pharmacy"
^DD(9002313.57,10525.3439,21,3,0)="2=Other Pharmacy in Same Chain"
^DD(9002313.57,10525.3439,21,4,0)="3=Other Pharmacy"
^DD(9002313.57,10525.3528,0)="DUR #3 SEVERITY INDEX CODE^CJ1^^ ; ^X ^DD(9002313.57,10525.3528,9.2) S X=$E(Y(9002313.57,10525.3528,2),X)"
^DD(9002313.57,10525.3528,9)="^"
^DD(9002313.57,10525.3528,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3528,9.1)="$E(DUR #3 RAW DATA,3)"
^DD(9002313.57,10525.3528,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3528,1)=X S X=Y(9002313.57,10525.3528,1),Y(9002313.57,10525.3528,2)=X S X=3"
^DD(9002313.57,10525.3528,21,0)="^^4^4^3040106^"
^DD(9002313.57,10525.3528,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10525.3528,21,2,0)="1=Major"
^DD(9002313.57,10525.3528,21,3,0)="2=Moderate"
^DD(9002313.57,10525.3528,21,4,0)="3=Minor"
^DD(9002313.57,10525.3529,0)="DUR #3 OTHER PHARMACY INDIC^CJ1^^ ; ^X ^DD(9002313.57,10525.3529,9.2) S X=$E(Y(9002313.57,10525.3529,2),X)"
^DD(9002313.57,10525.3529,9)="^"
^DD(9002313.57,10525.3529,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3529,9.1)="$E(DUR #3 RAW DATA,4)"
^DD(9002313.57,10525.3529,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3529,1)=X S X=Y(9002313.57,10525.3529,1),Y(9002313.57,10525.3529,2)=X S X=4"
^DD(9002313.57,10525.3529,21,0)="^^4^4^3040106^"
^DD(9002313.57,10525.3529,21,1,0)="Ø=Not Specified"
^DD(9002313.57,10525.3529,21,2,0)="1=Your Pharmacy"
^DD(9002313.57,10525.3529,21,3,0)="2=Other Pharmacy in Same Chain"
^DD(9002313.57,10525.3529,21,4,0)="3=Other Pharmacy"
^DD(9002313.57,10525.353,0)="DUR #3 PREVIOUS DATE OF FILL^CJ8^^ ; ^X ^DD(9002313.57,10525.353,9.2) S Y(9002313.57,10525.353,3)=X S X=12,X=$E(Y(9002313.57,10525.353,2),Y(9002313.57,10525.353,3),X)"
^DD(9002313.57,10525.353,9)="^"
^DD(9002313.57,10525.353,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.353,9.1)="$E(DUR #3 RAW DATA,5,12)"
^DD(9002313.57,10525.353,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.353,1)=X S X=Y(9002313.57,10525.353,1),Y(9002313.57,10525.353,2)=X S X=5"
^DD(9002313.57,10525.353,21,0)="^^1^1^3040106^"
^DD(9002313.57,10525.353,21,1,0)="Fill date of the previous fill that is causing the DUR conflict."
^DD(9002313.57,10525.3531,0)="DUR #3 QTY OF PREVIOUS FILL^CJ5^^ ; ^X ^DD(9002313.57,10525.3531,9.2) S Y(9002313.57,10525.3531,3)=X S X=17,X=$E(Y(9002313.57,10525.3531,2),Y(9002313.57,10525.3531,3),X)"
^DD(9002313.57,10525.3531,9)="^"
^DD(9002313.57,10525.3531,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3531,9.1)="$E(DUR #3 RAW DATA,13,17)"
^DD(9002313.57,10525.3531,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3531,1)=X S X=Y(9002313.57,10525.3531,1),Y(9002313.57,10525.3531,2)=X S X=13"
^DD(9002313.57,10525.3531,21,0)="^.001^1^1^3040106^^"
^DD(9002313.57,10525.3531,21,1,0)="Quantity of the fill that is causing the conflict."
^DD(9002313.57,10525.3531,"DT")="3040106"
^DD(9002313.57,10525.3532,0)="DUR #3 DATABASE INDICATOR^CJ1^^ ; ^X ^DD(9002313.57,10525.3532,9.2) S X=$E(Y(9002313.57,10525.3532,2),X)"
^DD(9002313.57,10525.3532,9)="^"
^DD(9002313.57,10525.3532,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3532,9.1)="$E(DUR #3 RAW DATA,18)"
^DD(9002313.57,10525.3532,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3532,1)=X S X=Y(9002313.57,10525.3532,1),Y(9002313.57,10525.3532,2)=X S X=18"
^DD(9002313.57,10525.3532,21,0)="^^6^6^3040106^"
^DD(9002313.57,10525.3532,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10525.3532,21,2,0)="1=First Databank"
^DD(9002313.57,10525.3532,21,3,0)="2=Medi-Span"
^DD(9002313.57,10525.3532,21,4,0)="3=Redbook"
^DD(9002313.57,10525.3532,21,5,0)="4=Processor Developed"
^DD(9002313.57,10525.3532,21,6,0)="5=Other"
^DD(9002313.57,10525.3533,0)="DUR #3 OTHER PRESCRIBER INDIC^CJ1^^ ; ^X ^DD(9002313.57,10525.3533,9.2) S X=$E(Y(9002313.57,10525.3533,2),X)"
^DD(9002313.57,10525.3533,9)="^"
^DD(9002313.57,10525.3533,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3533,9.1)="$E(DUR #3 RAW DATA,19)"
^DD(9002313.57,10525.3533,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3533,1)=X S X=Y(9002313.57,10525.3533,1),Y(9002313.57,10525.3533,2)=X S X=19"
^DD(9002313.57,10525.3533,21,0)="^^6^6^3040106^"
^DD(9002313.57,10525.3533,21,1,0)="Code that indicates the prescriber of the current fill relationship to the"
^DD(9002313.57,10525.3533,21,2,0)="prescriber of the conflicting prescription."
^DD(9002313.57,10525.3533,21,3,0)=" "
^DD(9002313.57,10525.3533,21,4,0)="Ø=Not Specified"
^DD(9002313.57,10525.3533,21,5,0)="1=Same Prescriber"
^DD(9002313.57,10525.3533,21,6,0)="2=Other Prescriber"
^DD(9002313.57,10525.3544,0)="DUR #3 FREE TEXT^CJ30^^ ; ^X ^DD(9002313.57,10525.3544,9.2) S Y(9002313.57,10525.3544,3)=X S X=49,X=$E(Y(9002313.57,10525.3544,2),Y(9002313.57,10525.3544,3),X)"
^DD(9002313.57,10525.3544,9)="^"
^DD(9002313.57,10525.3544,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3544,9.1)="$E(DUR #3 RAW DATA,20,49)"
^DD(9002313.57,10525.3544,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3544,1)=X S X=Y(9002313.57,10525.3544,1),Y(9002313.57,10525.3544,2)=X S X=20"
^DD(9002313.57,10525.3544,21,0)="^^1^1^3040106^"
^DD(9002313.57,10525.3544,21,1,0)="Actual DUR text"
^DD(9002313.57,10525.3999,0)="DUR #3 RESERVE SPACE^CJ4^^ ; ^X ^DD(9002313.57,10525.3999,9.2) S Y(9002313.57,10525.3999,3)=X S X=53,X=$E(Y(9002313.57,10525.3999,2),Y(9002313.57,10525.3999,3),X)"
^DD(9002313.57,10525.3999,9)="^"
^DD(9002313.57,10525.3999,9.01)="9002313.57^10525.3"
^DD(9002313.57,10525.3999,9.1)="$E(DUR #3 RAW DATA,50,53)"
^DD(9002313.57,10525.3999,9.2)="X $P(^DD(9002313.57,10525.3,0),U,5,99) S Y(9002313.57,10525.3999,1)=X S X=Y(9002313.57,10525.3999,1),Y(9002313.57,10525.3999,2)=X S X=50"
^DD(9002313.57,10525.3999,21,0)="^^1^1^3040106^"
^DD(9002313.57,10525.3999,21,1,0)="Reserved space for additional information."
^DD(9002313.57,10526,0)="ADDITIONAL MESSAGE INFORMATION^CJ200^^ ; ^S X=$$FIELD^BPSOS57(526)"
^DD(9002313.57,10526,9)="^"
^DD(9002313.57,10526,9.01)=""
^DD(9002313.57,10526,9.1)="S X=$$FIELD^BPSOS57(526)"
^DD(9002313.57,10526,21,0)="^^1^1^3040106^"
^DD(9002313.57,10526,21,1,0)="Free text, additional information from the payor."
^DD(9002313.57,10528,0)="CLINICAL SIGNIFICANCE CODE^CJ1^^ ; ^S X=$$FIELD^BPSOS57(528)"
^DD(9002313.57,10528,9)="^"
^DD(9002313.57,10528,9.01)=""
^DD(9002313.57,10528,9.1)="S X=$$FIELD^BPSOS57(528)"
^DD(9002313.57,10528,21,0)="^^4^4^3040106^"
^DD(9002313.57,10528,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10528,21,2,0)="1=Major"
^DD(9002313.57,10528,21,3,0)="2=Moderate"
^DD(9002313.57,10528,21,4,0)="3=Minor"
^DD(9002313.57,10529,0)="OTHER PHARMACY INDICATOR^CJ1^^ ; ^S X=$$FIELD^BPSOS57(529)"
^DD(9002313.57,10529,9)="^"
^DD(9002313.57,10529,9.01)=""
^DD(9002313.57,10529,9.1)="S X=$$FIELD^BPSOS57(529)"
^DD(9002313.57,10529,21,0)="^^4^4^3040106^"
^DD(9002313.57,10529,21,1,0)="Ø=Not Specified"
^DD(9002313.57,10529,21,2,0)="1=Your Pharmacy"
^DD(9002313.57,10529,21,3,0)="2=Other Pharmacy in Same Chain"
^DD(9002313.57,10529,21,4,0)="3=Other Pharmacy"
^DD(9002313.57,10530,0)="PREVIOUS DATE OF FILL^CJ8^^ ; ^S X=$$FIELD^BPSOS57(530)"
^DD(9002313.57,10530,9)="^"
^DD(9002313.57,10530,9.01)=""
^DD(9002313.57,10530,9.1)="S X=$$FIELD^BPSOS57(530)"
^DD(9002313.57,10530,21,0)="^^1^1^3040106^"
^DD(9002313.57,10530,21,1,0)="Fill date of the prescription causing the DUR conflict."
^DD(9002313.57,10531,0)="QUANTITY OF PREVIOUS FILL^CJ5^^ ; ^S X=$$FIELD^BPSOS57(531)"
^DD(9002313.57,10531,9)="^"
^DD(9002313.57,10531,9.01)=""
^DD(9002313.57,10531,9.1)="S X=$$FIELD^BPSOS57(531)"
^DD(9002313.57,10531,21,0)="^^1^1^3040106^"
^DD(9002313.57,10531,21,1,0)="Quantity of the prescription causing the conflict."
^DD(9002313.57,10532,0)="DATABASE INDICATOR^CJ1^^ ; ^S X=$$FIELD^BPSOS57(532)"
^DD(9002313.57,10532,9)="^"
^DD(9002313.57,10532,9.01)=""
^DD(9002313.57,10532,9.1)="S X=$$FIELD^BPSOS57(532)"
^DD(9002313.57,10532,21,0)="^^6^6^3040106^"
^DD(9002313.57,10532,21,1,0)="Blank=Not Specified"
^DD(9002313.57,10532,21,2,0)="1=First Databank"
^DD(9002313.57,10532,21,3,0)="2=Medi-Span"
^DD(9002313.57,10532,21,4,0)="3=Redbook"
^DD(9002313.57,10532,21,5,0)="4=Processor Developed"
^DD(9002313.57,10532,21,6,0)="5=Other"
^DD(9002313.57,10533,0)="OTHER PRESCRIBER INDICATOR^CJ1^^ ; ^S X=$$FIELD^BPSOS57(533)"
^DD(9002313.57,10533,9)="^"
^DD(9002313.57,10533,9.01)=""
^DD(9002313.57,10533,9.1)="S X=$$FIELD^BPSOS57(533)"
^DD(9002313.57,10533,21,0)="^^3^3^3040106^"
^DD(9002313.57,10533,21,1,0)="Ø=Not Specified"
^DD(9002313.57,10533,21,2,0)="1=Same Prescriber"
^DD(9002313.57,10533,21,3,0)="2=Other Prescriber"
^DD(9002313.57,10535,0)="DUR OVERFLOW^CJ1^^ ; ^S X=$$FIELD^BPSOS57(535)"
^DD(9002313.57,10535,9)="^"
^DD(9002313.57,10535,9.01)=""
^DD(9002313.57,10535,9.1)="S X=$$FIELD^BPSOS57(535)"
^DD(9002313.57,10535,21,0)="^^2^2^3040106^"
^DD(9002313.57,10535,21,1,0)="Additional DUR information that did not fit in the other "
^DD(9002313.57,10535,21,2,0)="fields provided."
^DD(9002313.57,10544,0)="FREE TEXT^CJ30^^ ; ^S X=$$FIELD^BPSOS57(544)"
^DD(9002313.57,10544,9)="^"
^DD(9002313.57,10544,9.01)=""
^DD(9002313.57,10544,9.1)="S X=$$FIELD^BPSOS57(544)"
^DD(9002313.57,10544,21,0)="^^1^1^3040106^"
^DD(9002313.57,10544,21,1,0)="Even more room for additional free text DUR information."
^DD(9002313.57,"B","ABSBDIV",11)=""
^DD(9002313.57,"B","ABSBNDC",10)=""
^DD(9002313.57,"B","ABSBRXI",1.11)=""
^DD(9002313.57,"B","ABSBRXR",9)=""
^DD(9002313.57,"B","ACCUMULATED DEDUCTIBLE AMOUNT",10512)=""
^DD(9002313.57,"B","ADDITIONAL MESSAGE INFORMATION",10526)=""
^DD(9002313.57,"B","ALT. PRODUCT CODE",10437)=""
^DD(9002313.57,"B","ALT. PRODUCT TYPE",10436)=""
^DD(9002313.57,"B","AMOUNT APP TO PER DEDUCTIBLE",10517)=""
^DD(9002313.57,"B","AMOUNT ATTR TO PRODUCT SELECT",10519)=""
^DD(9002313.57,"B","AMOUNT ATTRIBUTED TO SALES TAX",10523)=""
^DD(9002313.57,"B","AMOUNT EXCEED PER BENEFIT MAX",10520)=""
^DD(9002313.57,"B","AMOUNT OF CO-PAY/CO-INSURANCE",10518)=""
^DD(9002313.57,"B","AUTHORIZATION NUMBER",10503)=""
^DD(9002313.57,"B","BASIS OF COST DETERMINATION",10423)=""
^DD(9002313.57,"B","BASIS OF DAYS SUPPLY DET",10432)=""
^DD(9002313.57,"B","BASIS OF REIMBURSEMENT DET",10522)=""
^DD(9002313.57,"B","BIN NUMBER",10101)=""
^DD(9002313.57,"B","CARDHOLDER FIRST NAME",10312)=""
^DD(9002313.57,"B","CARDHOLDER ID NUMBER",10302)=""
^DD(9002313.57,"B","CARDHOLDER LAST NAME",10313)=""
^DD(9002313.57,"B","CARRIER ID NUMBER",10327)=""
^DD(9002313.57,"B","CLAIM",3)=""
^DD(9002313.57,"B","CLAIM IEN",3.1)=""
^DD(9002313.57,"B","CLAIM/REF ID NUMBER",10435)=""
^DD(9002313.57,"B","CLINIC ID NUMBER",10422)=""
^DD(9002313.57,"B","CLINICAL SIGNIFICANCE CODE",10528)=""
^DD(9002313.57,"B","COMMENT MULTIPLE",111)=""
^DD(9002313.57,"B","COMPOUND CODE",10406)=""
^DD(9002313.57,"B","CONTRACT FEE PAID",10507)=""
^DD(9002313.57,"B","CURRENT VA INSURER",901)=""
^DD(9002313.57,"B","CUSTOMER LOCATION",10307)=""
^DD(9002313.57,"B","DATABASE INDICATOR",10532)=""
^DD(9002313.57,"B","DATE FILLED",10401)=""
^DD(9002313.57,"B","DATE OF BIRTH",10304)=""
^DD(9002313.57,"B","DATE OF INJURY",10434)=""
^DD(9002313.57,"B","DATE OF SERVICE",1202)=""
^DD(9002313.57,"B","DATE PRESCRIPTION WRITTEN",10414)=""
^DD(9002313.57,"B","DAYS SUPPLY",10405)=""
^DD(9002313.57,"B","DIAGNOSIS CODE",10424)=""
^DD(9002313.57,"B","DISPENSE AS WRITTEN",10408)=""
^DD(9002313.57,"B","DISPENSING FEE",504)=""
^DD(9002313.57,"B","DISPENSING FEE SUBMITTED",10412)=""
^DD(9002313.57,"B","DRUG DESCRIPTION",10516)=""
^DD(9002313.57,"B","DRUG IEN",9999.94)=""
^DD(9002313.57,"B","DRUG NAME",9999.93)=""
^DD(9002313.57,"B","DRUG TYPE",10425)=""
^DD(9002313.57,"B","DUR #1 DATABASE INDICATOR",10525.1532)=""
^DD(9002313.57,"B","DUR #1 DRUG CONFLICT CODE",10525.1439)=""
^DD(9002313.57,"B","DUR #1 FREE TEXT",10525.1544)=""
^DD(9002313.57,"B","DUR #1 OTHER PHARMACY INDIC",10525.1529)=""
^DD(9002313.57,"B","DUR #1 OTHER PRESCRIBER INDIC",10525.1533)=""
^DD(9002313.57,"B","DUR #1 PREVIOUS DATE OF FILL",10525.153)=""
^DD(9002313.57,"B","DUR #1 QTY OF PREVIOUS FILL",10525.1531)=""
^DD(9002313.57,"B","DUR #1 RAW DATA",10525.1)=""
^DD(9002313.57,"B","DUR #1 RESERVE SPACE",10525.1999)=""
^DD(9002313.57,"B","DUR #1 SEVERITY INDEX CODE",10525.1528)=""
^DD(9002313.57,"B","DUR #2 DATABASE INDICATOR",10525.2532)=""
^DD(9002313.57,"B","DUR #2 DRUG CONFLICT CODE",10525.2439)=""
^DD(9002313.57,"B","DUR #2 FREE TEXT",10525.2544)=""
^DD(9002313.57,"B","DUR #2 OTHER PHARMACY INDIC",10525.2529)=""
^DD(9002313.57,"B","DUR #2 OTHER PRESCRIBER INDIC",10525.2533)=""
^DD(9002313.57,"B","DUR #2 PREVIOUS DATE OF FILL",10525.253)=""
^DD(9002313.57,"B","DUR #2 QTY OF PREVIOUS FILL",10525.2531)=""
^DD(9002313.57,"B","DUR #2 RAW DATA",10525.2)=""
^DD(9002313.57,"B","DUR #2 RESERVE SPACE",10525.2999)=""
^DD(9002313.57,"B","DUR #2 SEVERITY INDEX CODE",10525.2528)=""
^DD(9002313.57,"B","DUR #3 DATABASE INDICATOR",10525.3532)=""
^DD(9002313.57,"B","DUR #3 DRUG CONFLICT CODE",10525.3439)=""
^DD(9002313.57,"B","DUR #3 FREE TEXT",10525.3544)=""
^DD(9002313.57,"B","DUR #3 OTHER PHARMACY INDIC",10525.3529)=""
^DD(9002313.57,"B","DUR #3 OTHER PRESCRIBER INDIC",10525.3533)=""
^DD(9002313.57,"B","DUR #3 PREVIOUS DATE OF FILL",10525.353)=""
^DD(9002313.57,"B","DUR #3 QTY OF PREVIOUS FILL",10525.3531)=""
^DD(9002313.57,"B","DUR #3 RAW DATA",10525.3)=""
^DD(9002313.57,"B","DUR #3 RESERVE SPACE",10525.3999)=""
^DD(9002313.57,"B","DUR #3 SEVERITY INDEX CODE",10525.3528)=""
^DD(9002313.57,"B","DUR CONFLICT CODE",10439)=""
^DD(9002313.57,"B","DUR COUNT",10525.01)=""
^DD(9002313.57,"B","DUR DATA",1300)=""
^DD(9002313.57,"B","DUR INTERVENTION CODE",10440)=""
^DD(9002313.57,"B","DUR OUTCOME CODE",10441)=""
^DD(9002313.57,"B","DUR OVERFLOW",10535)=""
^DD(9002313.57,"B","DUR RESPONSE DATA",10525)=""
^DD(9002313.57,"B","ELAPSED TIME (PRINTABLE)",9999.97)=""
^DD(9002313.57,"B","ELAPSED TIME (SECONDS)",9999.98)=""
^DD(9002313.57,"B","ELIGIBILITY CLARIFICATION CODE",10309)=""
^DD(9002313.57,"B","EMPLOYER CITY ADDRESS",10317)=""
^DD(9002313.57,"B","EMPLOYER CONTACT NAME",10321)=""
^DD(9002313.57,"B","EMPLOYER NAME",10315)=""
^DD(9002313.57,"B","EMPLOYER PHONE NUMBER",10320)=""
^DD(9002313.57,"B","EMPLOYER STATE",10318)=""
^DD(9002313.57,"B","EMPLOYER STREET ADDRESS",10316)=""
^DD(9002313.57,"B","EMPLOYER ZIP CODE",10319)=""
^DD(9002313.57,"B","ENTRY #",.01)=""
^DD(9002313.57,"B","FREE TEXT",10544)=""
^DD(9002313.57,"B","GROSS AMOUNT DUE",10430)=""
^DD(9002313.57,"B","GROUP NUMBER",10301)=""
^DD(9002313.57,"B","HOME PLAN",10314)=""
^DD(9002313.57,"B","HRN & FAC",9999.92)=""
^DD(9002313.57,"B","INCENTIVE AMOUNT SUBMITTED",10438)=""
^DD(9002313.57,"B","INCENTIVE FEE PAID",10521)=""
^DD(9002313.57,"B","INGREDIENT COST",10409)=""
^DD(9002313.57,"B","INGREDIENT COST PAID",10506)=""
^DD(9002313.57,"B","LAST UPDATE",7)=""
^DD(9002313.57,"B","LEVEL OF SERVICE",10418)=""
^DD(9002313.57,"B","MESSAGE",10504)=""
^DD(9002313.57,"B","METRIC DECIMAL QUANTITY",10442)=""
^DD(9002313.57,"B","METRIC QUANTITY",10404)=""
^DD(9002313.57,"B","NCPDP OVERRIDES",1.13)=""
^DD(9002313.57,"B","NDC NUMBER",10407)=""
^DD(9002313.57,"B","NET PAID BY INSURER",9999.96)=""
^DD(9002313.57,"B","NEW/REFILL CODE",10403)=""
^DD(9002313.57,"B","NUMBER OF REFILLS AUTHORIZED",10415)=""
^DD(9002313.57,"B","OTHER COVERAGE CODE",10308)=""
^DD(9002313.57,"B","OTHER PAYOR AMOUNT",10431)=""
^DD(9002313.57,"B","OTHER PAYOR DATE",10443)=""
^DD(9002313.57,"B","OTHER PHARMACY INDICATOR",10529)=""
^DD(9002313.57,"B","OTHER PRESCRIBER INDICATOR",10533)=""
^DD(9002313.57,"B","PATIENT",5)=""
^DD(9002313.57,"B","PATIENT CITY ADDRESS",10323)=""
^DD(9002313.57,"B","PATIENT FIRST NAME",10310)=""
^DD(9002313.57,"B","PATIENT LAST NAME",10311)=""
^DD(9002313.57,"B","PATIENT PAID AMOUNT",10433)=""
^DD(9002313.57,"B","PATIENT PAY AMOUNT",10505)=""
^DD(9002313.57,"B","PATIENT PHONE NUMBER",10326)=""
^DD(9002313.57,"B","PATIENT SSN",10329)=""
^DD(9002313.57,"B","PATIENT STATE",10324)=""
^DD(9002313.57,"B","PATIENT STREET ADDRESS",10322)=""
^DD(9002313.57,"B","PATIENT WEIGHT",10328)=""
^DD(9002313.57,"B","PATIENT ZIP CODE",10325)=""
^DD(9002313.57,"B","PERSON CODE",10303)=""
^DD(9002313.57,"B","PHARMACIST ID",10444)=""
^DD(9002313.57,"B","PHARMACY",1.07)=""
^DD(9002313.57,"B","PHARMACY NUMBER",10201)=""
^DD(9002313.57,"B","PINS PIECE",1.08)=""
^DD(9002313.57,"B","PLAN ID",10524)=""
^DD(9002313.57,"B","POSITION IN CLAIM",14)=""
^DD(9002313.57,"B","POSTAGE AMOUNT CLAIMED",10428)=""
^DD(9002313.57,"B","POSTAGE AMOUNT PAID",10515)=""
^DD(9002313.57,"B","PRESCRIBER ID",10411)=""
^DD(9002313.57,"B","PRESCRIBER LAST NAME",10427)=""
^DD(9002313.57,"B","PRESCRIPTION CLARIFICATION",10420)=""
^DD(9002313.57,"B","PRESCRIPTION NUMBER",10402)=""
^DD(9002313.57,"B","PRESCRIPTION ORIGIN CODE",10419)=""
^DD(9002313.57,"B","PREVIOUS DATE OF FILL",10530)=""
^DD(9002313.57,"B","PRIMARY PRESCRIBER",10421)=""
^DD(9002313.57,"B","PRIOR AUTH/MC CODE AND NUMBER",10416)=""
^DD(9002313.57,"B","PRIOR AUTHORIZATION #",1.09)=""
^DD(9002313.57,"B","PRIOR AUTHORIZATION TYPE CODE",1.15)=""
^DD(9002313.57,"B","PROCESSOR CONTROL NUMBER",10104)=""
^DD(9002313.57,"B","QUANTITY",501)=""
^DD(9002313.57,"B","QUANTITY OF PREVIOUS FILL",10531)=""
^DD(9002313.57,"B","REJECT CODE #1",10511.01)=""
^DD(9002313.57,"B","REJECT CODE #10",10511.1)=""
^DD(9002313.57,"B","REJECT CODE #11",10511.11)=""
^DD(9002313.57,"B","REJECT CODE #12",10511.12)=""
^DD(9002313.57,"B","REJECT CODE #13",10511.13)=""
^DD(9002313.57,"B","REJECT CODE #14",10511.14)=""
^DD(9002313.57,"B","REJECT CODE #15",10511.15)=""
^DD(9002313.57,"B","REJECT CODE #16",10511.16)=""
^DD(9002313.57,"B","REJECT CODE #17",10511.17)=""
^DD(9002313.57,"B","REJECT CODE #18",10511.18)=""
^DD(9002313.57,"B","REJECT CODE #19",10511.19)=""
^DD(9002313.57,"B","REJECT CODE #2",10511.02)=""
^DD(9002313.57,"B","REJECT CODE #20",10511.2)=""
^DD(9002313.57,"B","REJECT CODE #3",10511.03)=""
^DD(9002313.57,"B","REJECT CODE #4",10511.04)=""
^DD(9002313.57,"B","REJECT CODE #5",10511.05)=""
^DD(9002313.57,"B","REJECT CODE #6",10511.06)=""
^DD(9002313.57,"B","REJECT CODE #7",10511.07)=""
^DD(9002313.57,"B","REJECT CODE #8",10511.08)=""
^DD(9002313.57,"B","REJECT CODE #9",10511.09)=""
^DD(9002313.57,"B","REJECT CODES",10511)=""
^DD(9002313.57,"B","REJECT COUNT",10510)=""
^DD(9002313.57,"B","RELATIONSHIP CODE",10306)=""
^DD(9002313.57,"B","RELEASED DATE/TIME (INT)",9999.95)=""
^DD(9002313.57,"B","REMAINING BENEFIT AMOUNT",10514)=""
^DD(9002313.57,"B","REMAINING DEDUCTIBLE AMOUNT",10513)=""
^DD(9002313.57,"B","RESPONSE",4)=""
^DD(9002313.57,"B","RESPONSE IEN",4.1)=""
^DD(9002313.57,"B","RESPONSE STATUS",10501)=""
^DD(9002313.57,"B","RESUBMIT AFTER REVERSAL",1.12)=""
^DD(9002313.57,"B","RESULT",4.0099)=""
^DD(9002313.57,"B","RESULT CATEGORY",9999.99)=""
^DD(9002313.57,"B","RESULT CODE",201)=""
^DD(9002313.57,"B","RESULT TEXT",202)=""
^DD(9002313.57,"B","RESULT WITH REVERSAL",4.0098)=""
^DD(9002313.57,"B","RETRY AFTER",801)=""
^DD(9002313.57,"B","RETRY SLEEPING INSURER",803)=""
^DD(9002313.57,"B","REVERSAL CLAIM",401)=""
^DD(9002313.57,"B","REVERSAL REASON",404)=""
^DD(9002313.57,"B","REVERSAL RESPONSE",402)=""
^DD(9002313.57,"B","RX ACTION",1201)=""
^DD(9002313.57,"B","RXI-INTERNAL",1.1199)=""
^DD(9002313.57,"B","SALES TAX",10410)=""
^DD(9002313.57,"B","SALES TAX PAID",10508)=""
^DD(9002313.57,"B","SEX CODE",10305)=""
^DD(9002313.57,"B","START TIME",15)=""
^DD(9002313.57,"B","STATUS",1)=""
^DD(9002313.57,"B","SUBMISSION CLARIFICATION CODE",1203)=""
^DD(9002313.57,"B","SUBMIT DATE/TIME",6)=""
^DD(9002313.57,"B","SUBTOTAL",503)=""
^DD(9002313.57,"B","TOTAL AMOUNT PAID",10509)=""
^DD(9002313.57,"B","TOTAL PRICE",505)=""
^DD(9002313.57,"B","TRANSACTION CODE",10103)=""
^DD(9002313.57,"B","UNIT DOSE INDICATOR",10429)=""
^DD(9002313.57,"B","UNIT OF MEASURE",508)=""
^DD(9002313.57,"B","UNIT PRICE",502)=""
^DD(9002313.57,"B","USER",13)=""
^DD(9002313.57,"B","USER-INTERNAL",10.0099)=""
^DD(9002313.57,"B","USUAL AND CUSTOMARY CHARGE",10426)=""
^DD(9002313.57,"B","VA PINS MULTIPLE",902)=""
^DD(9002313.57,"B","VERSION/RELEASE NUMBER",10102)=""
^DD(9002313.57,"GL",0,1,.01)=""
^DD(9002313.57,"GL",0,2,1)=""
^DD(9002313.57,"GL",0,4,3)=""
^DD(9002313.57,"GL",0,5,4)=""
^DD(9002313.57,"GL",0,6,5)=""
^DD(9002313.57,"GL",0,7,6)=""
^DD(9002313.57,"GL",0,8,7)=""
^DD(9002313.57,"GL",0,9,14)=""
^DD(9002313.57,"GL",0,10,13)=""
^DD(9002313.57,"GL",0,11,15)=""
^DD(9002313.57,"GL",1,1,9)=""
^DD(9002313.57,"GL",1,2,10)=""
^DD(9002313.57,"GL",1,4,11)=""
^DD(9002313.57,"GL",1,7,1.07)=""
^DD(9002313.57,"GL",1,8,1.08)=""
^DD(9002313.57,"GL",1,9,1.09)=""
^DD(9002313.57,"GL",1,11,1.11)=""
^DD(9002313.57,"GL",1,12,1.12)=""
^DD(9002313.57,"GL",1,13,1.13)=""
^DD(9002313.57,"GL",1,15,1.15)=""
^DD(9002313.57,"GL",2,1,201)=""
^DD(9002313.57,"GL",2,2,202)=""
^DD(9002313.57,"GL",4,1,401)=""
^DD(9002313.57,"GL",4,2,402)=""
^DD(9002313.57,"GL",4,4,404)=""
^DD(9002313.57,"GL",5,1,501)=""
^DD(9002313.57,"GL",5,2,502)=""
^DD(9002313.57,"GL",5,3,503)=""
^DD(9002313.57,"GL",5,4,504)=""
^DD(9002313.57,"GL",5,5,505)=""
^DD(9002313.57,"GL",5,8,508)=""
^DD(9002313.57,"GL",8,1,801)=""
^DD(9002313.57,"GL",8,3,803)=""
^DD(9002313.57,"GL",9,1,901)=""
^DD(9002313.57,"GL",10,0,902)=""
^DD(9002313.57,"GL",11,0,111)=""
^DD(9002313.57,"GL",12,1,1201)=""
^DD(9002313.57,"GL",12,2,1202)=""
^DD(9002313.57,"GL",12,3,1203)=""
^DD(9002313.57,"GL",13,0,1300)=""
^DD(9002313.57,"IX",.01)=""
^DD(9002313.57,"IX",3)=""
^DD(9002313.57,"IX",4)=""
^DD(9002313.57,"IX",5)=""
^DD(9002313.57,"IX",7)=""
^DD(9002313.57,"IX",13)=""
^DD(9002313.57,"IX",401)=""
^DD(9002313.57,"IX",402)=""
^DD(9002313.57,"RQ",.01)=""
^DD(9002313.57,"SB",9002313.57111,111)=""
^DD(9002313.57,"SB",9002313.5713,1300)=""
^DD(9002313.57,"SB",9002313.57902,902)=""
^DD(9002313.57111,0)="COMMENT MULTIPLE SUB-FIELD^^.03^3"
^DD(9002313.57111,0,"DT")="3050527"
^DD(9002313.57111,0,"IX","B",9002313.57111,.01)=""
^DD(9002313.57111,0,"NM","COMMENT MULTIPLE")=""
^DD(9002313.57111,0,"UP")="9002313.57"
^DD(9002313.57111,.01,0)="DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.57111,.01,1,0)="^.1"
^DD(9002313.57111,.01,1,1,0)="9002313.57111^B"
^DD(9002313.57111,.01,1,1,1)="S ^BPSTL(DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(9002313.57111,.01,1,1,2)="K ^BPSTL(DA(1),11,""B"",$E(X,1,30),DA)"
^DD(9002313.57111,.01,21,0)="^.001^1^1^3050527^^^"
^DD(9002313.57111,.01,21,1,0)="To store user's comment date"
^DD(9002313.57111,.01,"DT")="3050527"
^DD(9002313.57111,.02,0)="USER^P200'^VA(200,^0;2^Q"
^DD(9002313.57111,.02,21,0)="^.001^1^1^3050629^^"
^DD(9002313.57111,.02,21,1,0)="ECME user"
^DD(9002313.57111,.02,"DT")="3050527"
^DD(9002313.57111,.03,0)="COMMENT^F^^0;3^K:$L(X)>74!($L(X)<1) X"
^DD(9002313.57111,.03,3)="Answer must be 1-74 characters in length."
^DD(9002313.57111,.03,21,0)="^^1^1^3050527^"
^DD(9002313.57111,.03,21,1,0)="Comment text"
^DD(9002313.57111,.03,"DT")="3050527"
^DD(9002313.57111,"B","COMMENT",.03)=""
^DD(9002313.57111,"B","DATE",.01)=""
^DD(9002313.57111,"B","USER",.02)=""
^DD(9002313.57111,"GL",0,1,.01)=""
^DD(9002313.57111,"GL",0,2,.02)=""
^DD(9002313.57111,"GL",0,3,.03)=""
^DD(9002313.57111,"IX",.01)=""
^DD(9002313.5713,0)="DUR DATA SUB-FIELD^^3^4"
^DD(9002313.5713,0,"DT")="3050615"
^DD(9002313.5713,0,"IX","B",9002313.5713,.01)=""
^DD(9002313.5713,0,"NM","DUR DATA")=""
^DD(9002313.5713,0,"UP")="9002313.57"
^DD(9002313.5713,.01,0)="DUR COUNTER^NJ4,0^^0;1^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1.N) X"
^DD(9002313.5713,.01,1,0)="^.1"
^DD(9002313.5713,.01,1,1,0)="9002313.5713^B"
^DD(9002313.5713,.01,1,1,1)="S ^BPSTL(DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(9002313.5713,.01,1,1,2)="K ^BPSTL(DA(1),13,""B"",$E(X,1,30),DA)"
^DD(9002313.5713,.01,3)="Type a number between 1 and 9999, 0 Decimal Digits"
^DD(9002313.5713,.01,21,0)="^^1^1^3050615^"
^DD(9002313.5713,.01,21,1,0)="This is the field used to populate the 473-7E field of the claim"
^DD(9002313.5713,.01,"DT")="3050615"
^DD(9002313.5713,1,0)="DUR PROFESSIONAL SERVICE CODE^F^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.5713,1,3)="Answer must be 1-2 characters in length"
^DD(9002313.5713,1,21,0)="^^1^1^3050615^"
^DD(9002313.5713,1,21,1,0)="This is the field used to populate the 439-E4 field of the claim"
^DD(9002313.5713,1,"DT")="3050615"
^DD(9002313.5713,2,0)="DUR REASON FOR SERVICE CODE^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.5713,2,3)="Answer must be 1-2 characters in length"
^DD(9002313.5713,2,21,0)="^^1^1^3050615^"
^DD(9002313.5713,2,21,1,0)="This is the field used to populate the 440-E5 field of the claim"
^DD(9002313.5713,2,"DT")="3050615"
^DD(9002313.5713,3,0)="DUR RESULT OF SERVICE CODE^F^^0;4^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.5713,3,3)="Answer must be 1-2 characters in length"
^DD(9002313.5713,3,21,0)="^^1^1^3050615^"
^DD(9002313.5713,3,21,1,0)="This is the field used to populate the 441-E6 field of the claim"
^DD(9002313.5713,3,"DT")="3050615"
^DD(9002313.5713,"B","DUR COUNTER",.01)=""
^DD(9002313.5713,"B","DUR PROFESSIONAL SERVICE CODE",1)=""
^DD(9002313.5713,"B","DUR REASON FOR SERVICE CODE",2)=""
^DD(9002313.5713,"B","DUR RESULT OF SERVICE CODE",3)=""
^DD(9002313.5713,"GL",0,1,.01)=""
^DD(9002313.5713,"GL",0,2,1)=""
^DD(9002313.5713,"GL",0,3,2)=""
^DD(9002313.5713,"GL",0,4,3)=""
^DD(9002313.5713,"IX",.01)=""
^DD(9002313.57902,0)="VA PINS MULTIPLE SUB-FIELD^^902.27^25"
^DD(9002313.57902,0,"DT")="3061122"
^DD(9002313.57902,0,"IX","B",9002313.57902,.01)=""
^DD(9002313.57902,0,"NM","VA PINS MULTIPLE")=""
^DD(9002313.57902,0,"UP")="9002313.57"
^DD(9002313.57902,.01,0)="PLAN ID^MP355.3'^IBA(355.3,^0;1^Q"
^DD(9002313.57902,.01,1,0)="^.1"
^DD(9002313.57902,.01,1,1,0)="9002313.57902^B"
^DD(9002313.57902,.01,1,1,1)="S ^BPSTL(DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(9002313.57902,.01,1,1,2)="K ^BPSTL(DA(1),10,""B"",$E(X,1,30),DA)"
^DD(9002313.57902,.01,3)="Enter the group insurance record"
^DD(9002313.57902,.01,21,0)="^^1^1^3050727^"
^DD(9002313.57902,.01,21,1,0)="Insurance plan id sent from the IB API"
^DD(9002313.57902,.01,"DT")="3050727"
^DD(9002313.57902,902.02,0)="PAYER SHEET IEN^P9002313.92'^BPSF(9002313.92,^0;2^Q"
^DD(9002313.57902,902.02,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.02,21,1,0)="Payer sheet IEN to be used with the associated insurer."
^DD(9002313.57902,902.02,"DT")="3030709"
^DD(9002313.57902,902.03,0)="BIN^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.57902,902.03,3)="Answer must be 1-10 characters in length."
^DD(9002313.57902,902.03,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.03,21,1,0)="Card Issuer ID or Bank ID Number used for network routing."
^DD(9002313.57902,902.03,"DT")="3030709"
^DD(9002313.57902,902.04,0)="PCN^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.57902,902.04,3)="Answer must be 1-10 characters in length."
^DD(9002313.57902,902.04,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.04,21,1,0)="Processor control number assigned for the payer sheet."
^DD(9002313.57902,902.04,"DT")="3030709"
^DD(9002313.57902,902.05,0)="GROUP ID^F^^1;3^K:$L(X)>17!($L(X)<1) X"
^DD(9002313.57902,902.05,3)="Answer must be 1-17 characters in length"
^DD(9002313.57902,902.05,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.05,21,1,0)="ID assigned to the cardholder group or employer group."
^DD(9002313.57902,902.05,"DT")="3050913"
^DD(9002313.57902,902.06,0)="CARDHOLDER ID^F^^1;4^K:$L(X)>20!($L(X)<1) X"
^DD(9002313.57902,902.06,3)="Answer must be 1-20 characters in length."
^DD(9002313.57902,902.06,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.06,21,1,0)="Insured person"
^DD(9002313.57902,902.06,"DT")="3030709"
^DD(9002313.57902,902.07,0)="PATIENT RELATIONSHIP CODE^F^^1;5^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.57902,902.07,3)="Answer must be 1 character in length."
^DD(9002313.57902,902.07,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.07,21,1,0)="Patient relationship to insurance subscriber."
^DD(9002313.57902,902.07,"DT")="3030709"
^DD(9002313.57902,902.08,0)="CARDHOLDER FIRST NAME^F^^1;6^K:$L(X)>12!($L(X)<1) X"
^DD(9002313.57902,902.08,3)="Answer must be 1-12 characters in length."
^DD(9002313.57902,902.08,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.08,21,1,0)="First name of the Cardholder/Subscriber. "
^DD(9002313.57902,902.08,"DT")="3030709"
^DD(9002313.57902,902.09,0)="CARDHOLDER LAST NAME^F^^1;7^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.57902,902.09,3)="Answer must be 1-15 characters in length."
^DD(9002313.57902,902.09,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.09,21,1,0)="Last name of the Cardholder/Subscriber. "
^DD(9002313.57902,902.09,"DT")="3030709"
^DD(9002313.57902,902.11,0)="HOME PLAN STATE^F^^1;8^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.57902,902.11,3)="Answer must be 1-2 characters in length."
^DD(9002313.57902,902.11,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.11,21,1,0)="Usually the state where the member lives or purchased their coverage."
^DD(9002313.57902,902.11,"DT")="3030709"
^DD(9002313.57902,902.12,0)="DISPENSING FEE SUBMITTED^F^^2;1^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.57902,902.12,3)="Answer must be 1-8 characters in length."
^DD(9002313.57902,902.12,21,0)="^^2^2^3031217^"
^DD(9002313.57902,902.12,21,1,0)="Fee amount submitted for the cost associated with dispensing this"
^DD(9002313.57902,902.12,21,2,0)="prescription. "
^DD(9002313.57902,902.12,"DT")="3030709"
^DD(9002313.57902,902.13,0)="BASIS OF COST DETERMINATION^F^^2;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.57902,902.13,3)="Answer must be 1-2 characters in length."
^DD(9002313.57902,902.13,21,0)="^^2^2^3031217^"
^DD(9002313.57902,902.13,21,1,0)="Code indicating the method by which 'Ingredient Cost Submitted' was"
^DD(9002313.57902,902.13,21,2,0)="calculated."
^DD(9002313.57902,902.13,"DT")="3030709"
^DD(9002313.57902,902.14,0)="USUAL & CUSTOMARY CHARGE^F^^2;3^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.57902,902.14,3)="Answer must be 1-8 characters in length."
^DD(9002313.57902,902.14,21,0)="^^2^2^3031217^"
^DD(9002313.57902,902.14,21,1,0)="Amount charged cash customers for the prescription exclusive of sales tax"
^DD(9002313.57902,902.14,21,2,0)="or other amounts claimed."
^DD(9002313.57902,902.14,"DT")="3030709"
^DD(9002313.57902,902.15,0)="GROSS AMOUNT DUE^F^^2;4^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.57902,902.15,3)="Answer must be 1-8 characters in length."
^DD(9002313.57902,902.15,21,0)="^^9^9^3031217^"
^DD(9002313.57902,902.15,21,1,0)=" Total price claimed from all sources.  For prescription claim request,"
^DD(9002313.57902,902.15,21,2,0)="field represents a sum of 'Ingredient Cost Submitted' (4Ø9-D9),"
^DD(9002313.57902,902.15,21,3,0)="'Dispensing Fee Submitted' (412-DC), 'Flat Sales Tax Amount"
^DD(9002313.57902,902.15,21,4,0)="Submitted'(481-HA), 'Percentage Sales Tax Amount Submitted' (482-GE),"
^DD(9002313.57902,902.15,21,5,0)="'Incentive Amount Submitted' (438-E3), 'Other Amount Claimed' (48Ø-H9)."
^DD(9002313.57902,902.15,21,6,0)="For service claim request, field represents a sum of 'Professional"
^DD(9002313.57902,902.15,21,7,0)="Services Fee Submitted' (477-BE), 'Flat Sales Tax Amount"
^DD(9002313.57902,902.15,21,8,0)="Submitted'(481-HA), 'Percentage Sales Tax Amount Submitted'(482-GE),"
^DD(9002313.57902,902.15,21,9,0)="'Other Amount Claimed' (48Ø-H9)"
^DD(9002313.57902,902.15,"DT")="3030709"
^DD(9002313.57902,902.16,0)="ADMINISTRATIVE FEE^F^^2;5^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.57902,902.16,3)="Answer must be 1-8 characters in length."
^DD(9002313.57902,902.16,21,0)="^.001^1^1^3031217^^"
^DD(9002313.57902,902.16,21,1,0)="Fee charged for any costs related to preparing the prescription."
^DD(9002313.57902,902.16,"DT")="3030709"
^DD(9002313.57902,902.17,0)="VA FILL NUMBER^F^^2;6^K:$L(X)>3!($L(X)<1) X"
^DD(9002313.57902,902.17,3)="Answer must be 1-3 characters in length."
^DD(9002313.57902,902.17,21,0)="^^1^1^3031217^"
^DD(9002313.57902,902.17,21,1,0)="Which fill/refill this transaction is for."
^DD(9002313.57902,902.17,"DT")="3030709"
^DD(9002313.57902,902.18,0)="SOFTWARE VENDOR/CERT ID^F^^2;7^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.57902,902.18,3)="Answer must be 1-30 characters in length."
^DD(9002313.57902,902.18,21,0)="^^2^2^3031217^"
^DD(9002313.57902,902.18,21,1,0)="Certification number assigned by payer to the sending entity,"
^DD(9002313.57902,902.18,21,2,0)="allowing claims to be sent."
^DD(9002313.57902,902.18,"DT")="3030729"
^DD(9002313.57902,902.19,0)="B2 PAYER SHEET IEN^P9002313.92'^BPSF(9002313.92,^0;3^Q"
^DD(9002313.57902,902.19,3)="Enter the Reversal payer sheet IEN."
^DD(9002313.57902,902.19,21,0)="^.001^1^1^3031217^^"
^DD(9002313.57902,902.19,21,1,0)="Enter the Reversal payer sheet IEN."
^DD(9002313.57902,902.19,"DT")="3031112"
^DD(9002313.57902,902.21,0)="B3 PAYER SHEET IEN^P9002313.92'^BPSF(9002313.92,^0;4^Q"
^DD(9002313.57902,902.21,3)="Enter the Rebill payer sheet IEN."
^DD(9002313.57902,902.21,21,0)="^^1^1^3031112^"
^DD(9002313.57902,902.21,21,1,0)="Enter the Rebill payer sheet IEN."
^DD(9002313.57902,902.21,"DT")="3031112"
^DD(9002313.57902,902.22,0)="CERTIFY MODE^S^0:CERTIFY MODE ON;1:CERTIFY MODE OFF;^0;5^Q"
^DD(9002313.57902,902.22,3)="Enter null or 0 for Certify mode off.  Enter 1 for Certify mode on."
^DD(9002313.57902,902.22,21,0)="^.001^1^1^3040421^^"
^DD(9002313.57902,902.22,21,1,0)="Enter null or 0 for Certify mode off.  Enter 1 for Certify mode on."
^DD(9002313.57902,902.22,"DT")="3031112"
^DD(9002313.57902,902.23,0)="CERTIFICATION IEN^P9002313.31'^BPS(9002313.31,^0;6^Q"
^DD(9002313.57902,902.23,3)="Enter the certification record"
^DD(9002313.57902,902.23,21,0)="^^2^2^3061122^"
^DD(9002313.57902,902.23,21,1,0)="This field is used during certification testing, and contains the pointer "
^DD(9002313.57902,902.23,21,2,0)="to the Certification file 9002313.31."
^DD(9002313.57902,902.23,"DT")="3061122"
^DD(9002313.57902,902.24,0)="PLAN NAME^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.57902,902.24,3)="Answer must be 1-40 characters in length."
^DD(9002313.57902,902.24,21,0)="^^1^1^3041014^"
^DD(9002313.57902,902.24,21,1,0)="This field is the Plan Name for the insurance being filed."
^DD(9002313.57902,902.24,"DT")="3041014"
^DD(9002313.57902,902.25,0)="GROUP NAME^F^^3;1^K:$L(X)>20!($L(X)<2) X"
^DD(9002313.57902,902.25,3)="Answer must be 2-20 characters in length"
^DD(9002313.57902,902.25,21,0)="^^1^1^3050615^"
^DD(9002313.57902,902.25,21,1,0)="This is the Group Name for the Group Insurance file"
^DD(9002313.57902,902.25,"DT")="3050913"
^DD(9002313.57902,902.26,0)="INSURANCE CO PHONE #^F^^3;2^K:$L(X)>20!($L(X)<7) X"
^DD(9002313.57902,902.26,3)="Answer must be 7-20 characters in length"
^DD(9002313.57902,902.26,21,0)="^^1^1^3050615^"
^DD(9002313.57902,902.26,21,1,0)="This is the Claims (RX) phone number from the Insurance Company file"
^DD(9002313.57902,902.26,"DT")="3050615"
^DD(9002313.57902,902.27,0)="PHARMACY PLAN ID^F^^3;3^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.57902,902.27,3)="Answer must be 1-30 characters in length"
^DD(9002313.57902,902.27,21,0)="^^1^1^3050617^"
^DD(9002313.57902,902.27,21,1,0)="This is a ID of the Plan file"
^DD(9002313.57902,902.27,"DT")="3050617"
^DD(9002313.57902,"B","ADMINISTRATIVE FEE",902.16)=""
^DD(9002313.57902,"B","B2 PAYER SHEET IEN",902.19)=""
^DD(9002313.57902,"B","B3 PAYER SHEET IEN",902.21)=""
^DD(9002313.57902,"B","BASIS OF COST DETERMINATION",902.13)=""
^DD(9002313.57902,"B","BIN",902.03)=""
^DD(9002313.57902,"B","CARDHOLDER FIRST NAME",902.08)=""
^DD(9002313.57902,"B","CARDHOLDER ID",902.06)=""
^DD(9002313.57902,"B","CARDHOLDER LAST NAME",902.09)=""
^DD(9002313.57902,"B","CERTIFICATION IEN",902.23)=""
^DD(9002313.57902,"B","CERTIFY MODE",902.22)=""
^DD(9002313.57902,"B","DISPENSING FEE SUBMITTED",902.12)=""
^DD(9002313.57902,"B","GROSS AMOUNT DUE",902.15)=""
^DD(9002313.57902,"B","GROUP ID",902.05)=""
^DD(9002313.57902,"B","GROUP NAME",902.25)=""
^DD(9002313.57902,"B","HOME PLAN STATE",902.11)=""
^DD(9002313.57902,"B","INSURANCE CO PHONE #",902.26)=""
^DD(9002313.57902,"B","PATIENT RELATIONSHIP CODE",902.07)=""
^DD(9002313.57902,"B","PAYER SHEET IEN",902.02)=""
^DD(9002313.57902,"B","PCN",902.04)=""
^DD(9002313.57902,"B","PHARMACY PLAN ID",902.27)=""
^DD(9002313.57902,"B","PLAN ID",.01)=""
^DD(9002313.57902,"B","PLAN NAME",902.24)=""
^DD(9002313.57902,"B","SOFTWARE VENDOR/CERT ID",902.18)=""
^DD(9002313.57902,"B","USUAL & CUSTOMARY CHARGE",902.14)=""
^DD(9002313.57902,"B","VA FILL NUMBER",902.17)=""
^DD(9002313.57902,"GL",0,1,.01)=""
^DD(9002313.57902,"GL",0,2,902.02)=""
^DD(9002313.57902,"GL",0,3,902.19)=""
^DD(9002313.57902,"GL",0,4,902.21)=""
^DD(9002313.57902,"GL",0,5,902.22)=""
^DD(9002313.57902,"GL",0,6,902.23)=""
^DD(9002313.57902,"GL",0,7,902.24)=""
^DD(9002313.57902,"GL",1,1,902.03)=""
^DD(9002313.57902,"GL",1,2,902.04)=""
^DD(9002313.57902,"GL",1,3,902.05)=""
^DD(9002313.57902,"GL",1,4,902.06)=""
^DD(9002313.57902,"GL",1,5,902.07)=""
^DD(9002313.57902,"GL",1,6,902.08)=""
^DD(9002313.57902,"GL",1,7,902.09)=""
^DD(9002313.57902,"GL",1,8,902.11)=""
^DD(9002313.57902,"GL",2,1,902.12)=""
^DD(9002313.57902,"GL",2,2,902.13)=""
^DD(9002313.57902,"GL",2,3,902.14)=""
^DD(9002313.57902,"GL",2,4,902.15)=""
^DD(9002313.57902,"GL",2,5,902.16)=""
^DD(9002313.57902,"GL",2,6,902.17)=""
^DD(9002313.57902,"GL",2,7,902.18)=""
^DD(9002313.57902,"GL",3,1,902.25)=""
^DD(9002313.57902,"GL",3,2,902.26)=""
^DD(9002313.57902,"GL",3,3,902.27)=""
^DD(9002313.57902,"IX",.01)=""
^DD(9002313.58,0)="FIELD^^208^15"
^DD(9002313.58,0,"DDA")="N"
^DD(9002313.58,0,"DT")="3061101"
^DD(9002313.58,0,"IX","B",9002313.58,.01)=""
^DD(9002313.58,0,"NM","BPS STATISTICS")=""
^DD(9002313.58,0,"VR")="1.0"
^DD(9002313.58,0,"VRPK")="BPS"
^DD(9002313.58,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(9002313.58,.01,1,0)="^.1"
^DD(9002313.58,.01,1,1,0)="9002313.58^B"
^DD(9002313.58,.01,1,1,1)="S ^BPSECX(""S"",""B"",$E(X,1,30),DA)="""""
^DD(9002313.58,.01,1,1,2)="K ^BPSECX(""S"",""B"",$E(X,1,30),DA)"
^DD(9002313.58,.01,3)="Answer must be 3-30 characters in length."
^DD(9002313.58,.01,21,0)="^^1^1^3031217^"
^DD(9002313.58,.01,21,1,0)="Name of the Statistical group."
^DD(9002313.58,.01,"DT")="3031217"
^DD(9002313.58,2,0)="Date/Time Cleared^D^^0;2^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.58,2,21,0)="^^1^1^3031217^"
^DD(9002313.58,2,21,1,0)="Date and time that the claim cleared the queue."
^DD(9002313.58,2,"DT")="2991111"
^DD(9002313.58,101,0)="Submissions - Total^NJ9,0^^S;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,101,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,101,21,0)="^^1^1^3031217^"
^DD(9002313.58,101,21,1,0)="Total number of submissions to ECME."
^DD(9002313.58,101,"DT")="2991111"
^DD(9002313.58,102,0)="Submissions - Unique^NJ9,0^^S;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,102,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,102,21,0)="^^1^1^3031217^"
^DD(9002313.58,102,21,1,0)="Total number of unique claim submissions to ECME."
^DD(9002313.58,102,"DT")="2991111"
^DD(9002313.58,103,0)="Submissions - Repeat^NJ9,0^^S;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,103,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,103,21,0)="^^1^1^3031217^"
^DD(9002313.58,103,21,1,0)="Total number of repeat claim submissions to ECME."
^DD(9002313.58,103,"DT")="2991111"
^DD(9002313.58,200,0)="Result - Count^CJ9,0^^ ; ^S X=$G(^BPSECX(""S"",D0,""R"")),X=$P(X,U,2)+$P(X,U,3)+$P(X,U,4)+$P(X,U,5)"
^DD(9002313.58,200,9)="^"
^DD(9002313.58,200,9.01)=""
^DD(9002313.58,200,9.1)="S X=$G(^BPSECX(""S"",D0,""R"")),X=$P(X,U,2)+$P(X,U,3)+$P(X,U,4)+$P(X,U,5)"
^DD(9002313.58,200,21,0)="^^1^1^3040331^"
^DD(9002313.58,200,21,1,0)="Total number of claims for which a response was received."
^DD(9002313.58,200,"DT")="3040331"
^DD(9002313.58,201,0)="Result - Unbillable^NJ9,0^^R;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,201,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,201,21,0)="^^1^1^3031217^"
^DD(9002313.58,201,21,1,0)="Total number of claims that were unbillable."
^DD(9002313.58,201,"DT")="2991111"
^DD(9002313.58,202,0)="Result - Rejected^NJ9,0^^R;2^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,202,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,202,21,0)="^^1^1^3031217^"
^DD(9002313.58,202,21,1,0)="Total number of claims that were rejected by the payer."
^DD(9002313.58,202,"DT")="2991111"
^DD(9002313.58,203,0)="Result - Paid^NJ9,0^^R;3^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,203,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,203,21,0)="^^1^1^3040322^"
^DD(9002313.58,203,21,1,0)="Total number of claims that were paid by the payer."
^DD(9002313.58,203,"DT")="2991111"
^DD(9002313.58,204,0)="Result - Duplicate^NJ9,0^^R;4^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,204,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,204,21,0)="^^1^1^3031217^"
^DD(9002313.58,204,21,1,0)="Total number of claims for which a duplicate result was received."
^DD(9002313.58,204,"DT")="2991111"
^DD(9002313.58,205,0)="Result - Captured^NJ9,0^^R;5^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,205,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,205,21,0)="^^2^2^3031217^"
^DD(9002313.58,205,21,1,0)="Total number of claims that was captured by the payer but has not been "
^DD(9002313.58,205,21,2,0)="adjudicated by the payer yet."
^DD(9002313.58,205,"DT")="2991111"
^DD(9002313.58,206,0)="Result - Accepted Reversal^NJ9,0^^R;6^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(9002313.58,206,3)="Enter the number of accepted reversals (0-999,999,999)"
^DD(9002313.58,206,21,0)="^^1^1^3061101^"
^DD(9002313.58,206,21,1,0)="This field holds the number of reversals that are accepted"
^DD(9002313.58,206,"DT")="3061101"
^DD(9002313.58,207,0)="Result - Rejected Reversal^NJ9,0^^R;7^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(9002313.58,207,3)="Enter the number of rejected reversals (0-999,999,999)"
^DD(9002313.58,207,21,0)="^^1^1^3061101^"
^DD(9002313.58,207,21,1,0)="This field holds the number of rejected reversals"
^DD(9002313.58,207,"DT")="3061101"
^DD(9002313.58,208,0)="Result - Dropped to Paper^NJ9,0^^R;8^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1.N) X"
^DD(9002313.58,208,3)="Enter the number of claims dropped to paper (0-999,999,999)"
^DD(9002313.58,208,21,0)="^^1^1^3061101^"
^DD(9002313.58,208,21,1,0)="This field stores the number of claims that were dropped to paper"
^DD(9002313.58,208,"DT")="3061101"
^DD(9002313.58,219,0)="Result - Other^NJ9,0^^R;19^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.58,219,3)="Type a Number between 0 and 999999999, 0 Decimal Digits"
^DD(9002313.58,219,21,0)="^^1^1^3031217^"
^DD(9002313.58,219,21,1,0)="Total number of claims that did not fall into the other categories."
^DD(9002313.58,219,"DT")="2991111"
^DD(9002313.58,"B","Date/Time Cleared",2)=""
^DD(9002313.58,"B","NAME",.01)=""
^DD(9002313.58,"B","Result - Accepted Reversal",206)=""
^DD(9002313.58,"B","Result - Captured",205)=""
^DD(9002313.58,"B","Result - Count",200)=""
^DD(9002313.58,"B","Result - Dropped to Paper",208)=""
^DD(9002313.58,"B","Result - Duplicate",204)=""
^DD(9002313.58,"B","Result - Other",219)=""
^DD(9002313.58,"B","Result - Paid",203)=""
^DD(9002313.58,"B","Result - Rejected",202)=""
^DD(9002313.58,"B","Result - Rejected Reversal",207)=""
^DD(9002313.58,"B","Result - Unbillable",201)=""
^DD(9002313.58,"B","Submissions - Repeat",103)=""
^DD(9002313.58,"B","Submissions - Total",101)=""
^DD(9002313.58,"B","Submissions - Unique",102)=""
^DD(9002313.58,"GL",0,1,.01)=""
^DD(9002313.58,"GL",0,2,2)=""
^DD(9002313.58,"GL","R",1,201)=""
^DD(9002313.58,"GL","R",2,202)=""
^DD(9002313.58,"GL","R",3,203)=""
^DD(9002313.58,"GL","R",4,204)=""
^DD(9002313.58,"GL","R",5,205)=""
^DD(9002313.58,"GL","R",6,206)=""
^DD(9002313.58,"GL","R",7,207)=""
^DD(9002313.58,"GL","R",8,208)=""
^DD(9002313.58,"GL","R",19,219)=""
^DD(9002313.58,"GL","S",1,101)=""
^DD(9002313.58,"GL","S",2,102)=""
^DD(9002313.58,"GL","S",3,103)=""
^DD(9002313.58,"IX",.01)=""
^DD(9002313.58,"RQ",.01)=""
^DD(9002313.59,0)="FIELD^^508^51"
^DD(9002313.59,0,"DDA")="N"
^DD(9002313.59,0,"DT")="3070627"
^DD(9002313.59,0,"IX","AC",9002313.59,5)=""
^DD(9002313.59,0,"IX","AD",9002313.59,1)=""
^DD(9002313.59,0,"IX","AE",9002313.59,3)=""
^DD(9002313.59,0,"IX","AER",9002313.59,401)=""
^DD(9002313.59,0,"IX","AF",9002313.59,4)=""
^DD(9002313.59,0,"IX","AFR",9002313.59,402)=""
^DD(9002313.59,0,"IX","AG",9002313.59,13)=""
^DD(9002313.59,0,"IX","AH",9002313.59,7)=""
^DD(9002313.59,0,"IX","B",9002313.59,.01)=""
^DD(9002313.59,0,"NM","BPS TRANSACTION")=""
^DD(9002313.59,0,"PT",9002313.92,1.11)=""
^DD(9002313.59,0,"VR")="1.0"
^DD(9002313.59,0,"VRPK")="BPS"
^DD(9002313.59,.01,0)="ENTRY#^RF^^0;1^K:$L(X)>20!($L(X)<1) X"
^DD(9002313.59,.01,1,0)="^.1"
^DD(9002313.59,.01,1,1,0)="9002313.59^B"
^DD(9002313.59,.01,1,1,1)="S ^BPST(""B"",$E(X,1,30),DA)="""""
^DD(9002313.59,.01,1,1,2)="K ^BPST(""B"",$E(X,1,30),DA)"
^DD(9002313.59,.01,3)="Answer must be 1-20 characters in length."
^DD(9002313.59,.01,21,0)="^.001^1^1^3040326^^"
^DD(9002313.59,.01,21,1,0)="Transaction entry number."
^DD(9002313.59,.01,"DT")="3031125"
^DD(9002313.59,1,0)="STATUS^NJ2,0^^0;2^K:+X'=X!(X>99)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.59,1,1,0)="^.1"
^DD(9002313.59,1,1,1,0)="9002313.59^AD"
^DD(9002313.59,1,1,1,1)="S ^BPST(""AD"",$E(X,1,30),DA)="""""
^DD(9002313.59,1,1,1,2)="K ^BPST(""AD"",$E(X,1,30),DA)"
^DD(9002313.59,1,1,1,"DT")="2991025"
^DD(9002313.59,1,3)="Type a Number between 0 and 99, 0 Decimal Digits"
^DD(9002313.59,1,21,0)="^^3^3^3070227^"
^DD(9002313.59,1,21,1,0)="The status of the transaction as a percentage of completion.  The text "
^DD(9002313.59,1,21,2,0)="value can be obtained by running $$STATI^BPSOSU(<Status Number>).  Note "
^DD(9002313.59,1,21,3,0)="that 99 indicates complete."
^DD(9002313.59,1,"DT")="3070227"
^DD(9002313.59,1.07,0)="PHARMACY^P9002313.56'^BPS(9002313.56,^1;7^Q"
^DD(9002313.59,1.07,21,0)="^^1^1^3040322^"
^DD(9002313.59,1.07,21,1,0)="Textual description of the Pharmacy involved with this transaction."
^DD(9002313.59,1.07,"DT")="3031125"
^DD(9002313.59,1.08,0)="PINS PIECE^NJ1,0^^1;8^K:+X'=X!(X>9)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.59,1.08,3)="Type a Number between 1 and 9, 0 Decimal Digits"
^DD(9002313.59,1.08,21,0)="^^5^5^3000318^^"
^DD(9002313.59,1.08,21,1,0)="Pointer to which of the PINS pieces in ^(6) is in use for this claim."
^DD(9002313.59,1.08,21,2,0)="Use this to keep track of where you are in billing down the line to"
^DD(9002313.59,1.08,21,3,0)="various insurers.   (Probably won't automatically roll over to next"
^DD(9002313.59,1.08,21,4,0)="insurer, but maybe we will have an option to edit insurance info, try next"
^DD(9002313.59,1.08,21,5,0)="insurance, etc.)"
^DD(9002313.59,1.08,"DT")="3000318"
^DD(9002313.59,1.09,0)="PRIOR AUTHORIZATION #^F^^1;9^K:$L(X)>11!($L(X)<1) X"
^DD(9002313.59,1.09,3)="Enter the prior authorization number (1-11 characters)"
^DD(9002313.59,1.09,21,0)="^^2^2^3070221^"
^DD(9002313.59,1.09,21,1,0)="Number assigned by the processor to identify a prior authorized"
^DD(9002313.59,1.09,21,2,0)="transaction."
^DD(9002313.59,1.09,"DT")="3070221"
^DD(9002313.59,1.11,0)="ABSBRXI^P52'^PSRX(^1;11^Q"
^DD(9002313.59,1.11,21,0)="^^1^1^3031125^"
^DD(9002313.59,1.11,21,1,0)="Pointer from the RX file into BPS Transactions."
^DD(9002313.59,1.11,"DT")="3031125"
^DD(9002313.59,1.1199,0)="RXI INTERNAL^CJ8^^ ; ^S Y(9002313.59,1.1199,1)=$S($D(^BPST(D0,1)):^(1),1:"""") S X=$P(Y(9002313.59,1.1199,1),U,11),X=X"
^DD(9002313.59,1.1199,9)="^"
^DD(9002313.59,1.1199,9.01)="9002313.59^1.11"
^DD(9002313.59,1.1199,9.1)="INTERNAL(ABSBRXI)"
^DD(9002313.59,1.1199,21,0)="^^1^1^3031125^"
^DD(9002313.59,1.1199,21,1,0)="Internal ID to the claims file."
^DD(9002313.59,1.1199,"DT")="3031125"
^DD(9002313.59,1.12,0)="RESUBMIT AFTER REVERSAL^S^1:RESUBMIT AFTER REVERSAL;0:DONE;2:RESUBMITTING;^1;12^Q"
^DD(9002313.59,1.12,3)="Enter the status of the resubmit"
^DD(9002313.59,1.12,21,0)="^.001^1^1^3051207^^^"
^DD(9002313.59,1.12,21,1,0)="Indicator that a transaction has been resubmitted after being backed out."
^DD(9002313.59,1.12,"DT")="3051207"
^DD(9002313.59,1.13,0)="NCPDP OVERRIDES^P9002313.511'^BPS(9002313.511,^1;13^Q"
^DD(9002313.59,1.13,21,0)="^^1^1^3040126^"
^DD(9002313.59,1.13,21,1,0)="Override information for the NCPDP fields."
^DD(9002313.59,1.13,"DT")="3001019"
^DD(9002313.59,1.15,0)="PRIOR AUTHORIZATION TYPE CODE^F^^1;15^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.59,1.15,3)="Enter the prior authorization type (1-2 characters)"
^DD(9002313.59,1.15,21,0)="^^1^1^3031125^"
^DD(9002313.59,1.15,21,1,0)="Indicates the type of authorization made before transaction was submitted."
^DD(9002313.59,1.15,"DT")="3070314"
^DD(9002313.59,3,0)="CLAIM^P9002313.02'^BPSC(^0;4^Q"
^DD(9002313.59,3,1,0)="^.1"
^DD(9002313.59,3,1,1,0)="9002313.59^AE"
^DD(9002313.59,3,1,1,1)="S ^BPST(""AE"",$E(X,1,30),DA)="""""
^DD(9002313.59,3,1,1,2)="K ^BPST(""AE"",$E(X,1,30),DA)"
^DD(9002313.59,3,1,1,"DT")="2991025"
^DD(9002313.59,3,21,0)="^^1^1^3031125^"
^DD(9002313.59,3,21,1,0)="Claim number for this transaction."
^DD(9002313.59,3,"DT")="3031125"
^DD(9002313.59,3.1,0)="CLAIM IEN^CJ8^^ ; ^S Y(9002313.59,3.1,1)=$S($D(^BPST(D0,0)):^(0),1:"""") S X=$P(Y(9002313.59,3.1,1),U,4),X=X"
^DD(9002313.59,3.1,9)="^"
^DD(9002313.59,3.1,9.01)="9002313.59^3"
^DD(9002313.59,3.1,9.1)="INTERNAL(CLAIM)"
^DD(9002313.59,3.1,21,0)="^^1^1^3031125^"
^DD(9002313.59,3.1,21,1,0)="Claim internal identifier for this transaction."
^DD(9002313.59,3.1,"DT")="3031125"
^DD(9002313.59,4,0)="RESPONSE^P9002313.03'^BPSR(^0;5^Q"
^DD(9002313.59,4,1,0)="^.1"
^DD(9002313.59,4,1,1,0)="9002313.59^AF"
^DD(9002313.59,4,1,1,1)="S ^BPST(""AF"",$E(X,1,30),DA)="""""
^DD(9002313.59,4,1,1,2)="K ^BPST(""AF"",$E(X,1,30),DA)"
^DD(9002313.59,4,1,1,"DT")="2991025"
^DD(9002313.59,4,21,0)="^^1^1^3031125^"
^DD(9002313.59,4,21,1,0)="Textual description of the response to this submission."
^DD(9002313.59,4,"DT")="3031125"
^DD(9002313.59,4.0098,0)="RESULT WITH REVERSAL^CJ20^^ ; ^S X=$$CATEG^BPSOSUC(D0,1)"
^DD(9002313.59,4.0098,9)="^"
^DD(9002313.59,4.0098,9.01)=""
^DD(9002313.59,4.0098,9.1)="S X=$$CATEG^BPSOSUC(D0,1)"
^DD(9002313.59,4.0098,21,0)="^^1^1^3040126^"
^DD(9002313.59,4.0098,21,1,0)="The overall result."
^DD(9002313.59,4.0099,0)="RESULT^CJ20^^ ; ^S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.59,4.0099,9)="^"
^DD(9002313.59,4.0099,9.01)=""
^DD(9002313.59,4.0099,9.1)="S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.59,4.0099,21,0)="^^1^1^3040126^"
^DD(9002313.59,4.0099,21,1,0)="The result of the transmission."
^DD(9002313.59,4.1,0)="RESPONSE IEN^CJ8^^ ; ^S Y(9002313.59,4.1,1)=$S($D(^BPST(D0,0)):^(0),1:"""") S X=$P(Y(9002313.59,4.1,1),U,5),X=X"
^DD(9002313.59,4.1,9)="^"
^DD(9002313.59,4.1,9.01)="9002313.59^4"
^DD(9002313.59,4.1,9.1)="INTERNAL(RESPONSE)"
^DD(9002313.59,4.1,21,0)="^^1^1^3031125^"
^DD(9002313.59,4.1,21,1,0)="Internal identifier for the response."
^DD(9002313.59,4.1,"DT")="3031125"
^DD(9002313.59,5,0)="PATIENT^P2'^DPT(^0;6^Q"
^DD(9002313.59,5,1,0)="^.1"
^DD(9002313.59,5,1,1,0)="9002313.59^AC"
^DD(9002313.59,5,1,1,1)="S ^BPST(""AC"",$E(X,1,30),DA)="""""
^DD(9002313.59,5,1,1,2)="K ^BPST(""AC"",$E(X,1,30),DA)"
^DD(9002313.59,5,1,1,"DT")="2991025"
^DD(9002313.59,5,21,0)="^^1^1^3031125^"
^DD(9002313.59,5,21,1,0)="Patient name."
^DD(9002313.59,5,"DT")="3040609"
^DD(9002313.59,6,0)="SUBMIT DATE/TIME^D^^0;7^S %DT=""ESTXR"" D ^%DT S X=Y K:X<1 X"
^DD(9002313.59,6,3)="Enter the date/time that the claim was submitted"
^DD(9002313.59,6,21,0)="^^1^1^3070207^"
^DD(9002313.59,6,21,1,0)="This is the date/time that the RX/Fill was submitted to ECME"
^DD(9002313.59,6,"DT")="3070207"
^DD(9002313.59,7,0)="LAST UPDATE^D^^0;8^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.59,7,1,0)="^.1"
^DD(9002313.59,7,1,1,0)="9002313.59^AH"
^DD(9002313.59,7,1,1,1)="S ^BPST(""AH"",$E(X,1,30),DA)="""""
^DD(9002313.59,7,1,1,2)="K ^BPST(""AH"",$E(X,1,30),DA)"
^DD(9002313.59,7,1,1,"DT")="2991028"
^DD(9002313.59,7,3)=""
^DD(9002313.59,7,21,0)="^^1^1^3031125^"
^DD(9002313.59,7,21,1,0)="Last date this record was updated."
^DD(9002313.59,7,"DT")="3031125"
^DD(9002313.59,9,0)="ABSBRXR^F^^1;1^K:$L(X)>5!($L(X)<1) X"
^DD(9002313.59,9,3)="Answer must be 1-5 characters in length."
^DD(9002313.59,9,21,0)="^.001^1^1^3040120^^"
^DD(9002313.59,9,21,1,0)="Prescription number IEN."
^DD(9002313.59,9,"DT")="2991025"
^DD(9002313.59,10,0)="ABSBNDC^F^^1;2^K:$L(X)>11!($L(X)<5) X"
^DD(9002313.59,10,3)="Answer must be 5-11 characters in length."
^DD(9002313.59,10,21,0)="^^1^1^3040120^"
^DD(9002313.59,10,21,1,0)="The NDC number of the drug involved in this transaction."
^DD(9002313.59,10,"DT")="3031006"
^DD(9002313.59,10.0099,0)="USER-INTERNAL^CJ8^^ ; ^S Y(9002313.59,10.0099,1)=$S($D(^BPST(D0,0)):^(0),1:"""") S X=$P(Y(9002313.59,10.0099,1),U,10),X=X"
^DD(9002313.59,10.0099,9)="^"
^DD(9002313.59,10.0099,9.01)="9002313.59^13"
^DD(9002313.59,10.0099,9.1)="INTERNAL(USER)"
^DD(9002313.59,10.0099,21,0)="^^1^1^3040331^"
^DD(9002313.59,10.0099,21,1,0)="The DUZ of the user who sent the transaction."
^DD(9002313.59,10.0099,"DT")="3040331"
^DD(9002313.59,11,0)="ABSBDIV^F^^1;4^K:$L(X)>5!($L(X)<1) X"
^DD(9002313.59,11,3)="Answer must be 1-5 characters in length"
^DD(9002313.59,11,21,0)="^^1^1^3061213^"
^DD(9002313.59,11,21,1,0)="The division ID for the transaction."
^DD(9002313.59,11,"DT")="3061213"
^DD(9002313.59,13,0)="USER^P200'^VA(200,^0;10^Q"
^DD(9002313.59,13,1,0)="^.1"
^DD(9002313.59,13,1,1,0)="9002313.59^AG"
^DD(9002313.59,13,1,1,1)="S ^BPST(""AG"",$E(X,1,30),DA)="""""
^DD(9002313.59,13,1,1,2)="K ^BPST(""AG"",$E(X,1,30),DA)"
^DD(9002313.59,13,1,1,"DT")="2991026"
^DD(9002313.59,13,21,0)="^^1^1^3040331^"
^DD(9002313.59,13,21,1,0)="User name who entered this tranaction."
^DD(9002313.59,13,"DT")="3040331"
^DD(9002313.59,14,0)="POSITION IN CLAIM^NJ2,0^^0;9^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.59,14,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9002313.59,14,21,0)="^^1^1^3031125^"
^DD(9002313.59,14,21,1,0)="Sequential order in the claim transactions."
^DD(9002313.59,14,"DT")="3031125"
^DD(9002313.59,15,0)="START TIME^D^^0;11^S %DT=""EST"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.59,15,21,0)="^^1^1^3031126^"
^DD(9002313.59,15,21,1,0)="Time this transaction was started."
^DD(9002313.59,15,"DT")="3031126"
^DD(9002313.59,111,0)="COMMENT MULTIPLE^9002313.59111DA^^11;0"
^DD(9002313.59,111,21,0)="^.001^1^1^3050629^^"
^DD(9002313.59,111,21,1,0)="User's comment"
^DD(9002313.59,111,"DT")="3050627"
^DD(9002313.59,201,0)="RESULT CODE^NJ11,7^^2;1^K:+X'=X!(X>999.999)!(X<0)!(X?.E1"".""8N.N) X"
^DD(9002313.59,201,3)="Type a Number between 0 and 999.999, 7 Decimal Digits"
^DD(9002313.59,201,21,0)="^^1^1^3031126^"
^DD(9002313.59,201,21,1,0)="Code indicated the result of the adjudication of this claim."
^DD(9002313.59,201,"DT")="3031126"
^DD(9002313.59,202,0)="RESULT TEXT^F^^2;2^K:$L(X)>200!($L(X)<1) X"
^DD(9002313.59,202,3)="Answer must be 1-200 characters in length."
^DD(9002313.59,202,21,0)="^^1^1^3031126^"
^DD(9002313.59,202,21,1,0)="Textual explanation of the result code."
^DD(9002313.59,202,"DT")="3031126"
^DD(9002313.59,401,0)="REVERSAL CLAIM^P9002313.02'^BPSC(^4;1^Q"
^DD(9002313.59,401,1,0)="^.1"
^DD(9002313.59,401,1,1,0)="9002313.59^AER"
^DD(9002313.59,401,1,1,1)="S ^BPST(""AER"",$E(X,1,30),DA)="""""
^DD(9002313.59,401,1,1,2)="K ^BPST(""AER"",$E(X,1,30),DA)"
^DD(9002313.59,401,1,1,"%D",0)="^^1^1^3000623^"
^DD(9002313.59,401,1,1,"%D",1,0)="^BPST(""AER"",reversal claim #,IEN59)="""""
^DD(9002313.59,401,1,1,"DT")="3000623"
^DD(9002313.59,401,21,0)="^^1^1^3031125^"
^DD(9002313.59,401,21,1,0)="Request to reverse this claim."
^DD(9002313.59,401,"DT")="3031125"
^DD(9002313.59,402,0)="REVERSAL RESPONSE^P9002313.03'^BPSR(^4;2^Q"
^DD(9002313.59,402,1,0)="^.1"
^DD(9002313.59,402,1,1,0)="9002313.59^AFR"
^DD(9002313.59,402,1,1,1)="S ^BPST(""AFR"",$E(X,1,30),DA)="""""
^DD(9002313.59,402,1,1,2)="K ^BPST(""AFR"",$E(X,1,30),DA)"
^DD(9002313.59,402,1,1,"%D",0)="^^1^1^3000623^"
^DD(9002313.59,402,1,1,"%D",1,0)="^BPST(""AFR"",reversal response,IEN59)="""""
^DD(9002313.59,402,1,1,"DT")="3000623"
^DD(9002313.59,402,21,0)="^^1^1^3031125^"
^DD(9002313.59,402,21,1,0)="Response to reversal message."
^DD(9002313.59,402,"DT")="3031125"
^DD(9002313.59,404,0)="REVERSAL REASON^F^^4;4^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.59,404,3)="Answer must be 1-40 characters in length"
^DD(9002313.59,404,21,0)="^^1^1^3050525^"
^DD(9002313.59,404,21,1,0)="Reason for the reversal"
^DD(9002313.59,404,"DT")="3050525"
^DD(9002313.59,501,0)="QUANTITY^NJ10,3^^5;1^K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"".""4.N) X"
^DD(9002313.59,501,3)="Type a number between -999999 and 999999, 3 Decimal Digits"
^DD(9002313.59,501,21,0)="^^1^1^3070625^"
^DD(9002313.59,501,21,1,0)="Enter the billing quantity for the prescription."
^DD(9002313.59,501,"DT")="3070625"
^DD(9002313.59,502,0)="UNIT PRICE^NJ14,6^^5;2^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"".""7N.N) X"
^DD(9002313.59,502,3)="Type a Number between 0 and 9999999, 6 Decimal Digits"
^DD(9002313.59,502,21,0)="^^1^1^3031126^"
^DD(9002313.59,502,21,1,0)="Price per unit of prescription."
^DD(9002313.59,502,"DT")="3031126"
^DD(9002313.59,503,0)="SUBTOTAL^NJ13,6^^5;3^K:+X'=X!(X>999999)!(X<0)!(X?.E1"".""7N.N) X"
^DD(9002313.59,503,3)="Type a Number between 0 and 999999, 6 Decimal Digits"
^DD(9002313.59,503,21,0)="^^3^3^3000313^"
^DD(9002313.59,503,21,1,0)="= QUANTITY * UNIT PRICE"
^DD(9002313.59,503,21,2,0)="This is probably what we want to send as the INGREDIENT COST field in the"
^DD(9002313.59,503,21,3,0)="NCPDP message."
^DD(9002313.59,503,"DT")="3000313"
^DD(9002313.59,504,0)="DISPENSING FEE^NJ5,2^^5;4^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>99)!(X<0) X"
^DD(9002313.59,504,3)="Type a Dollar Amount between 0 and 99, 2 Decimal Digits"
^DD(9002313.59,504,21,0)="^^2^2^3000313^"
^DD(9002313.59,504,21,1,0)="Storing it here, since it can vary by insurer (or maybe by Pharmacy, too?"
^DD(9002313.59,504,21,2,0)="maybe we want to put a field in 9002313.56)"
^DD(9002313.59,504,"DT")="3000313"
^DD(9002313.59,505,0)="TOTAL PRICE^NJ9,2O^^5;5^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999)!(X<0) X"
^DD(9002313.59,505,2)="S Y(0)=Y S X=$J(X,0,2)"
^DD(9002313.59,505,2.1)="S X=$J(X,0,2)"
^DD(9002313.59,505,3)="Type a Dollar Amount between 0 and 999999, 2 Decimal Digits"
^DD(9002313.59,505,21,0)="^^1^1^3000313^"
^DD(9002313.59,505,21,1,0)="=SUBTOTAL + DISPENSING FEE"
^DD(9002313.59,505,"DT")="3040116"
^DD(9002313.59,507,0)="ADMINISTRATIVE FEE^F^^5;7^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.59,507,3)="Answer must be 1-15 characters in length."
^DD(9002313.59,507,21,0)="^^1^1^3031126^"
^DD(9002313.59,507,21,1,0)="Any fee charged for handling of the paperwork."
^DD(9002313.59,507,"DT")="3031126"
^DD(9002313.59,508,0)="UNIT OF MEASURE^F^^5;8^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.59,508,3)="Enter the Unit of Measure (1-2 characters)"
^DD(9002313.59,508,21,0)="^^2^2^3070627^"
^DD(9002313.59,508,21,1,0)="Enter the Unit of Measure for the drug.  This is usually GR (grams), ML "
^DD(9002313.59,508,21,2,0)="(milliliters), or EA (Each)."
^DD(9002313.59,508,"DT")="3070627"
^DD(9002313.59,801,0)="RETRY AFTER^D^^8;1^S %DT=""ESTXR"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.59,801,21,0)="^^2^2^3000621^"
^DD(9002313.59,801,21,1,0)="Due to dial out error or insurer asleep, retry this claim no earlier than"
^DD(9002313.59,801,21,2,0)="this time.  (May provide some way to poke it into activity, overriding this.)"
^DD(9002313.59,801,"DT")="3000621"
^DD(9002313.59,803,0)="RETRY SLEEPING INSURER^P9002313.92'^BPSF(9002313.92,^8;3^Q"
^DD(9002313.59,803,3)="Enter the payer sheet associated with the sleeping insurer"
^DD(9002313.59,803,21,0)="^^1^1^3061102^"
^DD(9002313.59,803,21,1,0)="This is the payer sheet used by the pharmacy plan that is asleep"
^DD(9002313.59,803,"DT")="3061102"
^DD(9002313.59,901,0)="CURRENT VA INSURER^F^^9;1^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.59,901,3)="Answer must be 1-15 characters in length."
^DD(9002313.59,901,21,0)="^^2^2^3040120^"
^DD(9002313.59,901,21,1,0)="The insurer being submitted to currently, if there are Primary, Secondary,"
^DD(9002313.59,901,21,2,0)="and tertiary insurers defined."
^DD(9002313.59,901,"DT")="3030626"
^DD(9002313.59,902,0)="VA PINS MULTIPLE^9002313.59902PA^^10;0"
^DD(9002313.59,902,21,0)="^.001^1^1^3050119^^^^"
^DD(9002313.59,902,21,1,0)="List of the insurers for the patient."
^DD(9002313.59,1201,0)="RX ACTION^F^^12;1^K:$L(X)>4!($L(X)<1) X"
^DD(9002313.59,1201,3)="Answer must be 1-4 characters in length."
^DD(9002313.59,1201,21,0)="^^3^3^3050629^"
^DD(9002313.59,1201,21,1,0)="This is the BWHERE parameter passed into BPSNCPDP and is the action"
^DD(9002313.59,1201,21,2,0)="that is being performed on this RX (AREV, BB, CRLB, CRLR, CRLX, DC, DDED,"
^DD(9002313.59,1201,21,3,0)="DE, ED, ERES, EREV, OF, PC, PE, PL, PP, RF, RL, RN, RRL, and RS)."
^DD(9002313.59,1201,"DT")="3050629"
^DD(9002313.59,1202,0)="DATE OF SERVICE^D^^12;2^S %DT=""E"" D ^%DT S X=Y K:X<1 X"
^DD(9002313.59,1202,3)="(No range limit on date)"
^DD(9002313.59,1202,21,0)="^^1^1^3050525^"
^DD(9002313.59,1202,21,1,0)="Date to be used for the 401-D1 (DATE OF SERVICE) field for the claim"
^DD(9002313.59,1202,"DT")="3050525"
^DD(9002313.59,1203,0)="SUBMISSION CLARIFICATION CODE^F^^12;3^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.59,1203,3)="Answer must be 1-2 characters in length."
^DD(9002313.59,1203,21,0)="^.001^1^1^3070119^^^"
^DD(9002313.59,1203,21,1,0)="Submission Clarification Code"
^DD(9002313.59,1203,"DT")="3070119"
^DD(9002313.59,1300,0)="DUR DATA^9002313.5913^^13;0"
^DD(9002313.59,1300,21,0)="^^3^3^3050628^"
^DD(9002313.59,1300,21,1,0)="This multiple will track the Drug Utilization Review (DUR) information"
^DD(9002313.59,1300,21,2,0)="passed by Outpatient Pharmacy to ECME and that will eventually be put "
^DD(9002313.59,1300,21,3,0)="in the DUR segment of the NCPDP claim."
^DD(9002313.59,9999.96,0)="NET PAID BY INSURER^CJ8,2^^ ; ^N RESP,POSITION S X=$G(^BPSTL(D0,0)),RESP=$P(X,U,5),POSITION=$P(X,U,9),X=$S(RESP&POSITION:$$NETPAID1^BPSOS03(RESP,POSITION),1:"""")"
^DD(9002313.59,9999.96,9)="^"
^DD(9002313.59,9999.96,9.01)=""
^DD(9002313.59,9999.96,9.1)="N RESP,POSITION S X=$G(^BPSTL(D0,0)),RESP=$P(X,U,5),POSITION=$P(X,U,9),X=$S(RESP&POSITION:$$NETPAID1^BPSOS03(RESP,POSITION),1:"""")"
^DD(9002313.59,9999.96,21,0)="^^1^1^3040331^"
^DD(9002313.59,9999.96,21,1,0)="Amount paid after the discounts and deductable have been subtracted."
^DD(9002313.59,9999.96,"DT")="3040331"
^DD(9002313.59,9999.97,0)="ELAPSED TIME (PRINTABLE)^CJ8^^ ; ^S X=$$TIMEDIF^BPSOSUD($P(^BPST(D0,0),U,11),$P(^BPST(D0,0),U,8))"
^DD(9002313.59,9999.97,9)="^"
^DD(9002313.59,9999.97,9.01)=""
^DD(9002313.59,9999.97,9.1)="S X=$$TIMEDIF^BPSOSUD($P(^BPST(D0,0),U,11),$P(^BPST(D0,0),U,8))"
^DD(9002313.59,9999.97,21,0)="^^2^2^3040331^"
^DD(9002313.59,9999.97,21,1,0)="The elapsed time between the filling of the prescription and"
^DD(9002313.59,9999.97,21,2,0)="the return of the response fromt he payer."
^DD(9002313.59,9999.97,"DT")="3040331"
^DD(9002313.59,9999.98,0)="ELAPSED TIME (SECONDS)^CJ8^^ ; ^S X=$$TIMEDIFI^BPSOSUD($P(^BPST(D0,0),U,11),$P(^BPST(D0,0),U,8))"
^DD(9002313.59,9999.98,9)="^"
^DD(9002313.59,9999.98,9.01)=""
^DD(9002313.59,9999.98,9.1)="S X=$$TIMEDIFI^BPSOSUD($P(^BPST(D0,0),U,11),$P(^BPST(D0,0),U,8))"
^DD(9002313.59,9999.98,21,0)="^^2^2^3040120^"
^DD(9002313.59,9999.98,21,1,0)="The number of seconds between the placing of the order and the receipt of"
^DD(9002313.59,9999.98,21,2,0)="the response."
^DD(9002313.59,9999.98,"DT")="3001020"
^DD(9002313.59,9999.99,0)="RESULT CATEGORY^CJ20^^ ; ^S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.59,9999.99,9)="^"
^DD(9002313.59,9999.99,9.01)=""
^DD(9002313.59,9999.99,9.1)="S X=$$CATEG^BPSOSUC(D0)"
^DD(9002313.59,9999.99,21,0)="^.001^5^5^3040405^^"
^DD(9002313.59,9999.99,21,1,0)="The category of the response."
^DD(9002313.59,9999.99,21,2,0)=" "
^DD(9002313.59,9999.99,21,3,0)="""P""aid"
^DD(9002313.59,9999.99,21,4,0)="""R""ejected"
^DD(9002313.59,9999.99,21,5,0)="""A""ccepted"
^DD(9002313.59,9999.99,"DT")="3040405"
^DD(9002313.59,"B","ABSBDIV",11)=""
^DD(9002313.59,"B","ABSBNDC",10)=""
^DD(9002313.59,"B","ABSBRXI",1.11)=""
^DD(9002313.59,"B","ABSBRXR",9)=""
^DD(9002313.59,"B","ADMINISTRATIVE FEE",507)=""
^DD(9002313.59,"B","CLAIM",3)=""
^DD(9002313.59,"B","CLAIM IEN",3.1)=""
^DD(9002313.59,"B","COMMENT MULTIPLE",111)=""
^DD(9002313.59,"B","CURRENT VA INSURER",901)=""
^DD(9002313.59,"B","DATE OF SERVICE",1202)=""
^DD(9002313.59,"B","DISPENSING FEE",504)=""
^DD(9002313.59,"B","DUR DATA",1300)=""
^DD(9002313.59,"B","ELAPSED TIME (PRINTABLE)",9999.97)=""
^DD(9002313.59,"B","ELAPSED TIME (SECONDS)",9999.98)=""
^DD(9002313.59,"B","ENTRY#",.01)=""
^DD(9002313.59,"B","LAST UPDATE",7)=""
^DD(9002313.59,"B","NCPDP OVERRIDES",1.13)=""
^DD(9002313.59,"B","NET PAID BY INSURER",9999.96)=""
^DD(9002313.59,"B","PATIENT",5)=""
^DD(9002313.59,"B","PHARMACY",1.07)=""
^DD(9002313.59,"B","PINS PIECE",1.08)=""
^DD(9002313.59,"B","POSITION IN CLAIM",14)=""
^DD(9002313.59,"B","PRIOR AUTHORIZATION #",1.09)=""
^DD(9002313.59,"B","PRIOR AUTHORIZATION TYPE CODE",1.15)=""
^DD(9002313.59,"B","QUANTITY",501)=""
^DD(9002313.59,"B","RESPONSE",4)=""
^DD(9002313.59,"B","RESPONSE IEN",4.1)=""
^DD(9002313.59,"B","RESUBMIT AFTER REVERSAL",1.12)=""
^DD(9002313.59,"B","RESULT",4.0099)=""
^DD(9002313.59,"B","RESULT CATEGORY",9999.99)=""
^DD(9002313.59,"B","RESULT CODE",201)=""
^DD(9002313.59,"B","RESULT TEXT",202)=""
^DD(9002313.59,"B","RESULT WITH REVERSAL",4.0098)=""
^DD(9002313.59,"B","RETRY AFTER",801)=""
^DD(9002313.59,"B","RETRY SLEEPING INSURER",803)=""
^DD(9002313.59,"B","REVERSAL CLAIM",401)=""
^DD(9002313.59,"B","REVERSAL REASON",404)=""
^DD(9002313.59,"B","REVERSAL RESPONSE",402)=""
^DD(9002313.59,"B","RX ACTION",1201)=""
^DD(9002313.59,"B","RXI INTERNAL",1.1199)=""
^DD(9002313.59,"B","START TIME",15)=""
^DD(9002313.59,"B","STATUS",1)=""
^DD(9002313.59,"B","SUBMISSION CLARIFICATION CODE",1203)=""
^DD(9002313.59,"B","SUBMIT DATE/TIME",6)=""
^DD(9002313.59,"B","SUBTOTAL",503)=""
^DD(9002313.59,"B","TOTAL PRICE",505)=""
^DD(9002313.59,"B","UNIT OF MEASURE",508)=""
^DD(9002313.59,"B","UNIT PRICE",502)=""
^DD(9002313.59,"B","USER",13)=""
^DD(9002313.59,"B","USER-INTERNAL",10.0099)=""
^DD(9002313.59,"B","VA PINS MULTIPLE",902)=""
^DD(9002313.59,"GL",0,1,.01)=""
^DD(9002313.59,"GL",0,2,1)=""
^DD(9002313.59,"GL",0,4,3)=""
^DD(9002313.59,"GL",0,5,4)=""
^DD(9002313.59,"GL",0,6,5)=""
^DD(9002313.59,"GL",0,7,6)=""
^DD(9002313.59,"GL",0,8,7)=""
^DD(9002313.59,"GL",0,9,14)=""
^DD(9002313.59,"GL",0,10,13)=""
^DD(9002313.59,"GL",0,11,15)=""
^DD(9002313.59,"GL",1,1,9)=""
^DD(9002313.59,"GL",1,2,10)=""
^DD(9002313.59,"GL",1,4,11)=""
^DD(9002313.59,"GL",1,7,1.07)=""
^DD(9002313.59,"GL",1,8,1.08)=""
^DD(9002313.59,"GL",1,9,1.09)=""
^DD(9002313.59,"GL",1,11,1.11)=""
^DD(9002313.59,"GL",1,12,1.12)=""
^DD(9002313.59,"GL",1,13,1.13)=""
^DD(9002313.59,"GL",1,15,1.15)=""
^DD(9002313.59,"GL",2,1,201)=""
^DD(9002313.59,"GL",2,2,202)=""
^DD(9002313.59,"GL",4,1,401)=""
^DD(9002313.59,"GL",4,2,402)=""
^DD(9002313.59,"GL",4,4,404)=""
^DD(9002313.59,"GL",5,1,501)=""
^DD(9002313.59,"GL",5,2,502)=""
^DD(9002313.59,"GL",5,3,503)=""
^DD(9002313.59,"GL",5,4,504)=""
^DD(9002313.59,"GL",5,5,505)=""
^DD(9002313.59,"GL",5,7,507)=""
^DD(9002313.59,"GL",5,8,508)=""
^DD(9002313.59,"GL",8,1,801)=""
^DD(9002313.59,"GL",8,3,803)=""
^DD(9002313.59,"GL",9,1,901)=""
^DD(9002313.59,"GL",10,0,902)=""
^DD(9002313.59,"GL",11,0,111)=""
^DD(9002313.59,"GL",12,1,1201)=""
^DD(9002313.59,"GL",12,2,1202)=""
^DD(9002313.59,"GL",12,3,1203)=""
^DD(9002313.59,"GL",13,0,1300)=""
^DD(9002313.59,"IX",.01)=""
^DD(9002313.59,"IX",1)=""
^DD(9002313.59,"IX",3)=""
^DD(9002313.59,"IX",4)=""
^DD(9002313.59,"IX",5)=""
^DD(9002313.59,"IX",7)=""
^DD(9002313.59,"IX",13)=""
^DD(9002313.59,"IX",401)=""
^DD(9002313.59,"IX",402)=""
^DD(9002313.59,"RQ",.01)=""
^DD(9002313.59,"SB",9002313.59111,111)=""
^DD(9002313.59,"SB",9002313.5913,1300)=""
^DD(9002313.59,"SB",9002313.59902,902)=""
^DD(9002313.59111,0)="COMMENT MULTIPLE SUB-FIELD^^.03^3"
^DD(9002313.59111,0,"DT")="3050503"
^DD(9002313.59111,0,"IX","B",9002313.59111,.01)=""
^DD(9002313.59111,0,"NM","COMMENT MULTIPLE")=""
^DD(9002313.59111,0,"UP")="9002313.59"
^DD(9002313.59111,.01,0)="DATE^D^^0;1^S %DT=""EX"" D ^%DT S X=Y K:Y<1 X"
^DD(9002313.59111,.01,1,0)="^.1"
^DD(9002313.59111,.01,1,1,0)="9002313.59111^B"
^DD(9002313.59111,.01,1,1,1)="S ^BPST(DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(9002313.59111,.01,1,1,2)="K ^BPST(DA(1),11,""B"",$E(X,1,30),DA)"
^DD(9002313.59111,.01,21,0)="^.001^1^1^3050527^^^^"
^DD(9002313.59111,.01,21,1,0)="To store user's comments date"
^DD(9002313.59111,.01,"DT")="3050503"
^DD(9002313.59111,.02,0)="USER^P200'^VA(200,^0;2^Q"
^DD(9002313.59111,.02,3)=""
^DD(9002313.59111,.02,21,0)="^.001^1^1^3050629^^^"
^DD(9002313.59111,.02,21,1,0)="ECME user"
^DD(9002313.59111,.02,"DT")="3050503"
^DD(9002313.59111,.03,0)="COMMENT^F^^0;3^K:$L(X)>74!($L(X)<1) X"
^DD(9002313.59111,.03,3)="Answer must be 1-74 characters in length."
^DD(9002313.59111,.03,21,0)="^^1^1^3050503^"
^DD(9002313.59111,.03,21,1,0)="Comment text"
^DD(9002313.59111,.03,"DT")="3050503"
^DD(9002313.59111,"B","COMMENT",.03)=""
^DD(9002313.59111,"B","DATE",.01)=""
^DD(9002313.59111,"B","USER",.02)=""
^DD(9002313.59111,"GL",0,1,.01)=""
^DD(9002313.59111,"GL",0,2,.02)=""
^DD(9002313.59111,"GL",0,3,.03)=""
^DD(9002313.59111,"IX",.01)=""
^DD(9002313.5913,0)="DUR DATA SUB-FIELD^^3^4"
^DD(9002313.5913,0,"DT")="3050614"
^DD(9002313.5913,0,"IX","B",9002313.5913,.01)=""
^DD(9002313.5913,0,"NM","DUR DATA")=""
^DD(9002313.5913,0,"UP")="9002313.59"
^DD(9002313.5913,.01,0)="DUR COUNTER^NJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1.N) X"
^DD(9002313.5913,.01,1,0)="^.1"
^DD(9002313.5913,.01,1,1,0)="9002313.5913^B"
^DD(9002313.5913,.01,1,1,1)="S ^BPST(DA(1),13,""B"",$E(X,1,30),DA)="""""
^DD(9002313.5913,.01,1,1,2)="K ^BPST(DA(1),13,""B"",$E(X,1,30),DA)"
^DD(9002313.5913,.01,3)="Enter the DUR counter for the claim"
^DD(9002313.5913,.01,21,0)="^^1^1^3050614^"
^DD(9002313.5913,.01,21,1,0)="This is the counter that will be used for field 473-7E of the claim"
^DD(9002313.5913,.01,"DT")="3050614"
^DD(9002313.5913,1,0)="DUR PROFESSIONAL SERVICE CODE^F^^0;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.5913,1,3)="Enter the professional service code for the claim"
^DD(9002313.5913,1,21,0)="^^1^1^3050614^"
^DD(9002313.5913,1,21,1,0)="This will be used for field 439-E4 of the claim"
^DD(9002313.5913,1,"DT")="3050614"
^DD(9002313.5913,2,0)="DUR REASON FOR SERVICE CODE^F^^0;3^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.5913,2,3)="Enter the DUR Reason for the Service Code for the claim"
^DD(9002313.5913,2,21,0)="^^1^1^3050614^"
^DD(9002313.5913,2,21,1,0)="This will be used for field 440-E5 of the claim"
^DD(9002313.5913,2,"DT")="3050614"
^DD(9002313.5913,3,0)="DUR RESULT OF SERVICE CODE^F^^0;4^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.5913,3,3)="Enter the Result of Service Code for the claim"
^DD(9002313.5913,3,21,0)="^^1^1^3050614^"
^DD(9002313.5913,3,21,1,0)="This will be used for field 441-E6 of the claim"
^DD(9002313.5913,3,"DT")="3050614"
^DD(9002313.5913,"B","DUR COUNTER",.01)=""
^DD(9002313.5913,"B","DUR PROFESSIONAL SERVICE CODE",1)=""
^DD(9002313.5913,"B","DUR REASON FOR SERVICE CODE",2)=""
^DD(9002313.5913,"B","DUR RESULT OF SERVICE CODE",3)=""
^DD(9002313.5913,"GL",0,1,.01)=""
^DD(9002313.5913,"GL",0,2,1)=""
^DD(9002313.5913,"GL",0,3,2)=""
^DD(9002313.5913,"GL",0,4,3)=""
^DD(9002313.5913,"IX",.01)=""
^DD(9002313.59902,0)="VA PINS MULTIPLE SUB-FIELD^^902.27^25"
^DD(9002313.59902,0,"DT")="3061122"
^DD(9002313.59902,0,"IX","B",9002313.59902,.01)=""
^DD(9002313.59902,0,"NM","VA PINS MULTIPLE")=""
^DD(9002313.59902,0,"UP")="9002313.59"
^DD(9002313.59902,.01,0)="PLAN ID^MP355.3'^IBA(355.3,^0;1^Q"
^DD(9002313.59902,.01,1,0)="^.1"
^DD(9002313.59902,.01,1,1,0)="9002313.59902^B"
^DD(9002313.59902,.01,1,1,1)="S ^BPST(DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(9002313.59902,.01,1,1,2)="K ^BPST(DA(1),10,""B"",$E(X,1,30),DA)"
^DD(9002313.59902,.01,3)="Enter Group Insurance record"
^DD(9002313.59902,.01,21,0)="^.001^1^1^3041014^^^^"
^DD(9002313.59902,.01,21,1,0)="ID assigned to the insurance plan."
^DD(9002313.59902,.01,"DT")="3050727"
^DD(9002313.59902,902.02,0)="PAYER SHEET IEN^P9002313.92'^BPSF(9002313.92,^0;2^Q"
^DD(9002313.59902,902.02,21,0)="^^1^1^3040120^"
^DD(9002313.59902,902.02,21,1,0)="The payer sheet to be used for this particular insurer."
^DD(9002313.59902,902.02,"DT")="3030626"
^DD(9002313.59902,902.03,0)="BIN^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.59902,902.03,3)="Answer must be 1-10 characters in length."
^DD(9002313.59902,902.03,21,0)="^^1^1^3031126^"
^DD(9002313.59902,902.03,21,1,0)="Card Issuer ID or Bank ID Number used for network routing."
^DD(9002313.59902,902.03,"DT")="3031126"
^DD(9002313.59902,902.04,0)="PCN^F^^1;2^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.59902,902.04,3)="Answer must be 1-10 characters in length."
^DD(9002313.59902,902.04,21,0)="^^1^1^3031126^"
^DD(9002313.59902,902.04,21,1,0)="The prescription number for this claim."
^DD(9002313.59902,902.04,"DT")="3031126"
^DD(9002313.59902,902.05,0)="GROUP ID^F^^1;3^K:$L(X)>17!($L(X)<1) X"
^DD(9002313.59902,902.05,3)="Answer must be 1-17 characters in length"
^DD(9002313.59902,902.05,21,0)="^^1^1^3031126^"
^DD(9002313.59902,902.05,21,1,0)="ID assigned to the cardholder group or employer group."
^DD(9002313.59902,902.05,"DT")="3050913"
^DD(9002313.59902,902.06,0)="CARDHOLDER ID^F^^1;4^K:$L(X)>20!($L(X)<1) X"
^DD(9002313.59902,902.06,3)="Answer must be 1-20 characters in length."
^DD(9002313.59902,902.06,21,0)="^^1^1^3031126^"
^DD(9002313.59902,902.06,21,1,0)="ID number assigned to Cardholder/Subscriber."
^DD(9002313.59902,902.06,"DT")="3031126"
^DD(9002313.59902,902.07,0)="PATIENT RELATIONSHIP CODE^F^^1;5^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.59902,902.07,3)="Answer must be 1 character in length."
^DD(9002313.59902,902.07,21,0)="^^1^1^3031126^"
^DD(9002313.59902,902.07,21,1,0)="Patient relationship to insurance subscriber."
^DD(9002313.59902,902.07,"DT")="3031126"
^DD(9002313.59902,902.08,0)="CARDHOLDER FIRST NAME^F^^1;6^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.59902,902.08,3)="Answer must be 1-30 characters in length."
^DD(9002313.59902,902.08,21,0)="^.001^1^1^3050119^^"
^DD(9002313.59902,902.08,21,1,0)="First name of the Cardholder/Subscriber."
^DD(9002313.59902,902.08,"DT")="3050119"
^DD(9002313.59902,902.09,0)="CARDHOLDER LAST NAME^F^^1;7^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.59902,902.09,3)="Answer must be 1-15 characters in length."
^DD(9002313.59902,902.09,21,0)="^.001^1^1^3050119^^"
^DD(9002313.59902,902.09,21,1,0)="Last name of the Cardholder/Subscriber."
^DD(9002313.59902,902.09,"DT")="3031126"
^DD(9002313.59902,902.11,0)="HOME PLAN STATE^F^^1;8^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.59902,902.11,3)="Answer must be 1-2 characters in length."
^DD(9002313.59902,902.11,21,0)="^^1^1^3031126^"
^DD(9002313.59902,902.11,21,1,0)="Usually the state where the member lives or purchased their coverage. "
^DD(9002313.59902,902.11,"DT")="3031126"
^DD(9002313.59902,902.12,0)="DISPENSING FEE SUBMITTED^F^^2;1^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.59902,902.12,3)="Answer must be 1-8 characters in length."
^DD(9002313.59902,902.12,21,0)="^^2^2^3031126^"
^DD(9002313.59902,902.12,21,1,0)="Fee amount submitted for the cost associated with dispensing this "
^DD(9002313.59902,902.12,21,2,0)="prescription."
^DD(9002313.59902,902.12,"DT")="3031126"
^DD(9002313.59902,902.13,0)="BASIS OF COST DETERMINATION^F^^2;2^K:$L(X)>2!($L(X)<1) X"
^DD(9002313.59902,902.13,3)="Answer must be 1-2 characters in length."
^DD(9002313.59902,902.13,21,0)="^^2^2^3031126^"
^DD(9002313.59902,902.13,21,1,0)="Code indicating the method by which 'Ingredient Cost Submitted' was"
^DD(9002313.59902,902.13,21,2,0)="calculated."
^DD(9002313.59902,902.13,"DT")="3031126"
^DD(9002313.59902,902.14,0)="USUAL & CUSTOMARY CHARGE^F^^2;3^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.59902,902.14,3)="Answer must be 1-8 characters in length."
^DD(9002313.59902,902.14,21,0)="^^2^2^3031126^"
^DD(9002313.59902,902.14,21,1,0)="Amount charged cash customers for the prescription exclusive of sales tax "
^DD(9002313.59902,902.14,21,2,0)="or other amounts claimed."
^DD(9002313.59902,902.14,"DT")="3031126"
^DD(9002313.59902,902.15,0)="GROSS AMOUNT DUE^F^^2;4^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.59902,902.15,3)="Answer must be 1-8 characters in length."
^DD(9002313.59902,902.15,21,0)="^^9^9^3031126^"
^DD(9002313.59902,902.15,21,1,0)="Total price claimed from all sources.  For prescription claim request, "
^DD(9002313.59902,902.15,21,2,0)="field represents a sum of 'Ingredient Cost Submitted'  (4Ø9-D9), "
^DD(9002313.59902,902.15,21,3,0)="'Dispensing Fee Submitted' (412-DC), 'Flat Sales Tax Amount "
^DD(9002313.59902,902.15,21,4,0)="Submitted'(481-HA), 'Percentage Sales Tax Amount Submitted' (482-GE), "
^DD(9002313.59902,902.15,21,5,0)="'Incentive Amount Submitted' (438-E3), 'Other Amount Claimed' (48Ø-H9). "
^DD(9002313.59902,902.15,21,6,0)="For service claim request, field represents a sum of 'Professional "
^DD(9002313.59902,902.15,21,7,0)="Services Fee Submitted' (477-BE), 'Flat Sales Tax Amount "
^DD(9002313.59902,902.15,21,8,0)="Submitted'(481-HA), 'Percentage Sales Tax Amount Submitted'(482-GE), "
^DD(9002313.59902,902.15,21,9,0)="'Other Amount Claimed' (48Ø-H9)."
^DD(9002313.59902,902.15,"DT")="3031126"
^DD(9002313.59902,902.16,0)="ADMINISTRATIVE FEE^F^^2;5^K:$L(X)>8!($L(X)<1) X"
^DD(9002313.59902,902.16,3)="Answer must be 1-8 characters in length."
^DD(9002313.59902,902.16,21,0)="^^1^1^3031126^"
^DD(9002313.59902,902.16,21,1,0)="Fee charged for any costs related to preparing the prescription."
^DD(9002313.59902,902.16,"DT")="3031126"
^DD(9002313.59902,902.17,0)="VA FILL NUMBER^F^^2;6^K:$L(X)>3!($L(X)<1) X"
^DD(9002313.59902,902.17,3)="Answer must be 1-3 characters in length."
^DD(9002313.59902,902.17,21,0)="^^2^2^3040120^"
^DD(9002313.59902,902.17,21,1,0)="Which fill number this transaction is in reference to."
^DD(9002313.59902,902.17,21,2,0)="Starts with '0' for the original fill."
^DD(9002313.59902,902.17,"DT")="3030701"
^DD(9002313.59902,902.18,0)="SOFTWARE VENDOR/CERT ID^F^^2;7^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.59902,902.18,3)="Answer must be 1-30 characters in length."
^DD(9002313.59902,902.18,21,0)="^^1^1^3040120^"
^DD(9002313.59902,902.18,21,1,0)="Certification number assigned by the payer for submission of claims."
^DD(9002313.59902,902.18,"DT")="3030729"
^DD(9002313.59902,902.19,0)="B2 PAYER SHEET IEN^P9002313.92'^BPSF(9002313.92,^0;3^Q"
^DD(9002313.59902,902.19,3)="Enter the reversal payer sheet IEN."
^DD(9002313.59902,902.19,21,0)="^^1^1^3031112^"
^DD(9002313.59902,902.19,21,1,0)="Enter the Reversal Payer sheet IEN."
^DD(9002313.59902,902.19,"DT")="3031112"
^DD(9002313.59902,902.21,0)="B3 Rebill Payer Sheet^P9002313.92'^BPSF(9002313.92,^0;4^Q"
^DD(9002313.59902,902.21,3)="Enter the Rebill payer sheet IEN."
^DD(9002313.59902,902.21,21,0)="^^1^1^3031112^"
^DD(9002313.59902,902.21,21,1,0)="Enter the Rebill payer sheet IEN."
^DD(9002313.59902,902.21,"DT")="3031112"
^DD(9002313.59902,902.22,0)="CERTIFY MODE^S^0:CERTIFY MODE OFF;1:CERTFIY MODE ON;^0;5^Q"
^DD(9002313.59902,902.22,3)="Enter null or 0 for certify mode off.  Enter 1 for Cerify mode on."
^DD(9002313.59902,902.22,21,0)="^^1^1^3040331^"
^DD(9002313.59902,902.22,21,1,0)="Enter null or 0 for certify mode off.  Enter 1 for certify mode on."
^DD(9002313.59902,902.22,23,0)="^^3^3^3031126^"
^DD(9002313.59902,902.22,23,1,0)="^"
^DD(9002313.59902,902.22,23,2,0)="E"
^DD(9002313.59902,902.22,23,3,0)="Y"
^DD(9002313.59902,902.22,"DT")="3040331"
^DD(9002313.59902,902.23,0)="CERTIFICATION IEN^P9002313.31'^BPS(9002313.31,^0;6^Q"
^DD(9002313.59902,902.23,3)="Enter the Certification record"
^DD(9002313.59902,902.23,21,0)="^^2^2^3061122^"
^DD(9002313.59902,902.23,21,1,0)="This field is used during certification testing, and points to the entry "
^DD(9002313.59902,902.23,21,2,0)="to use to pull certification data."
^DD(9002313.59902,902.23,"DT")="3061122"
^DD(9002313.59902,902.24,0)="PLAN NAME^F^^0;7^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.59902,902.24,3)="Answer must be 1-40 characters in length."
^DD(9002313.59902,902.24,21,0)="^^1^1^3041014^"
^DD(9002313.59902,902.24,21,1,0)="This field contains the Plan Name for the insurance being filed."
^DD(9002313.59902,902.24,"DT")="3041014"
^DD(9002313.59902,902.25,0)="GROUP NAME^F^^3;1^K:$L(X)>20!($L(X)<2) X"
^DD(9002313.59902,902.25,3)="Answer must be 2-20 characters in length"
^DD(9002313.59902,902.25,21,0)="^^1^1^3050614^"
^DD(9002313.59902,902.25,21,1,0)="This is the group name from the Group Insurance File"
^DD(9002313.59902,902.25,"DT")="3050913"
^DD(9002313.59902,902.26,0)="INSURANCE CO PHONE #^F^^3;2^K:$L(X)>20!($L(X)<7) X"
^DD(9002313.59902,902.26,3)="Answer must be 7-20 characters in length"
^DD(9002313.59902,902.26,21,0)="^^1^1^3050614^"
^DD(9002313.59902,902.26,21,1,0)="This is the Claim (RX) phone number from the Insurance Company file"
^DD(9002313.59902,902.26,"DT")="3050614"
^DD(9002313.59902,902.27,0)="PHARMACY PLAN ID^F^^3;3^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.59902,902.27,3)="Answer must be 1-30 characters in length"
^DD(9002313.59902,902.27,21,0)="^^1^1^3050617^"
^DD(9002313.59902,902.27,21,1,0)="This is a ID of the plan file"
^DD(9002313.59902,902.27,"DT")="3050617"
^DD(9002313.59902,"B","ADMINISTRATIVE FEE",902.16)=""
^DD(9002313.59902,"B","B2 PAYER SHEET IEN",902.19)=""
^DD(9002313.59902,"B","B3 Rebill Payer Sheet",902.21)=""
^DD(9002313.59902,"B","BASIS OF COST DETERMINATION",902.13)=""
^DD(9002313.59902,"B","BIN",902.03)=""
^DD(9002313.59902,"B","CARDHOLDER FIRST NAME",902.08)=""
^DD(9002313.59902,"B","CARDHOLDER ID",902.06)=""
^DD(9002313.59902,"B","CARDHOLDER LAST NAME",902.09)=""
^DD(9002313.59902,"B","CERTIFICATION IEN",902.23)=""
^DD(9002313.59902,"B","CERTIFY MODE",902.22)=""
^DD(9002313.59902,"B","DISPENSING FEE SUBMITTED",902.12)=""
^DD(9002313.59902,"B","GROSS AMOUNT DUE",902.15)=""
^DD(9002313.59902,"B","GROUP ID",902.05)=""
^DD(9002313.59902,"B","GROUP NAME",902.25)=""
^DD(9002313.59902,"B","HOME PLAN STATE",902.11)=""
^DD(9002313.59902,"B","INSURANCE CO PHONE #",902.26)=""
^DD(9002313.59902,"B","PATIENT RELATIONSHIP CODE",902.07)=""
^DD(9002313.59902,"B","PAYER SHEET IEN",902.02)=""
^DD(9002313.59902,"B","PCN",902.04)=""
^DD(9002313.59902,"B","PHARMACY PLAN ID",902.27)=""
^DD(9002313.59902,"B","PLAN ID",.01)=""
^DD(9002313.59902,"B","PLAN NAME",902.24)=""
^DD(9002313.59902,"B","SOFTWARE VENDOR/CERT ID",902.18)=""
^DD(9002313.59902,"B","USUAL & CUSTOMARY CHARGE",902.14)=""
^DD(9002313.59902,"B","VA FILL NUMBER",902.17)=""
^DD(9002313.59902,"GL",0,1,.01)=""
^DD(9002313.59902,"GL",0,2,902.02)=""
^DD(9002313.59902,"GL",0,3,902.19)=""
^DD(9002313.59902,"GL",0,4,902.21)=""
^DD(9002313.59902,"GL",0,5,902.22)=""
^DD(9002313.59902,"GL",0,6,902.23)=""
^DD(9002313.59902,"GL",0,7,902.24)=""
^DD(9002313.59902,"GL",1,1,902.03)=""
^DD(9002313.59902,"GL",1,2,902.04)=""
^DD(9002313.59902,"GL",1,3,902.05)=""
^DD(9002313.59902,"GL",1,4,902.06)=""
^DD(9002313.59902,"GL",1,5,902.07)=""
^DD(9002313.59902,"GL",1,6,902.08)=""
^DD(9002313.59902,"GL",1,7,902.09)=""
^DD(9002313.59902,"GL",1,8,902.11)=""
^DD(9002313.59902,"GL",2,1,902.12)=""
^DD(9002313.59902,"GL",2,2,902.13)=""
^DD(9002313.59902,"GL",2,3,902.14)=""
^DD(9002313.59902,"GL",2,4,902.15)=""
^DD(9002313.59902,"GL",2,5,902.16)=""
^DD(9002313.59902,"GL",2,6,902.17)=""
^DD(9002313.59902,"GL",2,7,902.18)=""
^DD(9002313.59902,"GL",3,1,902.25)=""
^DD(9002313.59902,"GL",3,2,902.26)=""
^DD(9002313.59902,"GL",3,3,902.27)=""
^DD(9002313.59902,"IX",.01)=""
^DD(9002313.82103,0)="FIELD^^.02^2"
^DD(9002313.82103,0,"DDA")="N"
^DD(9002313.82103,0,"DT")="3010409"
^DD(9002313.82103,0,"IX","B",9002313.82103,.01)=""
^DD(9002313.82103,0,"NM","BPS NCPDP FIELD 103")=""
^DD(9002313.82103,0,"VR")="1.0"
^DD(9002313.82103,0,"VRPK")="BPS"
^DD(9002313.82103,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(9002313.82103,.01,1,0)="^.1"
^DD(9002313.82103,.01,1,1,0)="9002313.82103^B"
^DD(9002313.82103,.01,1,1,1)="S ^BPSF(9002313.82103,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82103,.01,1,1,2)="K ^BPSF(9002313.82103,""B"",$E(X,1,30),DA)"
^DD(9002313.82103,.01,3)="Answer must be 2 characters in length."
^DD(9002313.82103,.01,21,0)="^^17^17^3040106^"
^DD(9002313.82103,.01,21,1,0)="Transaction code of the data being sent."
^DD(9002313.82103,.01,21,2,0)=" "
^DD(9002313.82103,.01,21,3,0)="E1=Eligibility Verification"
^DD(9002313.82103,.01,21,4,0)="B1=Billing"
^DD(9002313.82103,.01,21,5,0)="B2=Reversal"
^DD(9002313.82103,.01,21,6,0)="B3=Rebill"
^DD(9002313.82103,.01,21,7,0)="P1=P.A. Request & Billing"
^DD(9002313.82103,.01,21,8,0)="P2=P.A. Reversal"
^DD(9002313.82103,.01,21,9,0)="P3=P.A. Inquiry"
^DD(9002313.82103,.01,21,10,0)="P4=P.A. Request Only"
^DD(9002313.82103,.01,21,11,0)="N1=Information Reporting"
^DD(9002313.82103,.01,21,12,0)="N2=Information Reporting Reversal"
^DD(9002313.82103,.01,21,13,0)="N3=Information Reporting Rebill"
^DD(9002313.82103,.01,21,14,0)="C1=Controlled Substance Reporting"
^DD(9002313.82103,.01,21,15,0)="C2=Controlled Substance Reporting"
^DD(9002313.82103,.01,21,16,0)="Reversal"
^DD(9002313.82103,.01,21,17,0)="C3=Controlled Substance Reporting Rebill"
^DD(9002313.82103,.01,"DT")="3010409"
^DD(9002313.82103,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82103,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82103,.02,21,0)="^.001^1^1^3031204^^"
^DD(9002313.82103,.02,21,1,0)="What data element the code represents within the NCPDP standard."
^DD(9002313.82103,.02,"DT")="3010409"
^DD(9002313.82103,"B","CODE",.01)=""
^DD(9002313.82103,"B","MEANING",.02)=""
^DD(9002313.82103,"GL",0,1,.01)=""
^DD(9002313.82103,"GL",0,2,.02)=""
^DD(9002313.82103,"IX",.01)=""
^DD(9002313.82103,"RQ",.01)=""
^DD(9002313.82305,0)="FIELD^^.02^2"
^DD(9002313.82305,0,"DDA")="N"
^DD(9002313.82305,0,"DT")="3010409"
^DD(9002313.82305,0,"IX","B",9002313.82305,.01)=""
^DD(9002313.82305,0,"NM","BPS NCPDP FIELD 305")=""
^DD(9002313.82305,0,"VR")="1.0"
^DD(9002313.82305,0,"VRPK")="BPS"
^DD(9002313.82305,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82305,.01,1,0)="^.1"
^DD(9002313.82305,.01,1,1,0)="9002313.82305^B"
^DD(9002313.82305,.01,1,1,1)="S ^BPSF(9002313.82305,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82305,.01,1,1,2)="K ^BPSF(9002313.82305,""B"",$E(X,1,30),DA)"
^DD(9002313.82305,.01,3)="Answer must be 1 character in length."
^DD(9002313.82305,.01,21,0)="^.001^5^5^3040107^^^"
^DD(9002313.82305,.01,21,1,0)="Patient Gender code"
^DD(9002313.82305,.01,21,2,0)=" "
^DD(9002313.82305,.01,21,3,0)="M=Male"
^DD(9002313.82305,.01,21,4,0)="F=Female"
^DD(9002313.82305,.01,21,5,0)="U=Unknown"
^DD(9002313.82305,.01,"DT")="3010409"
^DD(9002313.82305,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82305,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82305,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82305,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82305,.02,"DT")="3010409"
^DD(9002313.82305,"B","CODE",.01)=""
^DD(9002313.82305,"B","MEANING",.02)=""
^DD(9002313.82305,"GL",0,1,.01)=""
^DD(9002313.82305,"GL",0,2,.02)=""
^DD(9002313.82305,"IX",.01)=""
^DD(9002313.82305,"RQ",.01)=""
^DD(9002313.82306,0)="FIELD^^.02^2"
^DD(9002313.82306,0,"DDA")="N"
^DD(9002313.82306,0,"DT")="3010413"
^DD(9002313.82306,0,"IX","B",9002313.82306,.01)=""
^DD(9002313.82306,0,"NM","BPS NCPDP FIELD 306")=""
^DD(9002313.82306,0,"VR")="1.0"
^DD(9002313.82306,0,"VRPK")="BPS"
^DD(9002313.82306,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82306,.01,1,0)="^.1"
^DD(9002313.82306,.01,1,1,0)="9002313.82306^B"
^DD(9002313.82306,.01,1,1,1)="S ^BPSF(9002313.82306,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82306,.01,1,1,2)="K ^BPSF(9002313.82306,""B"",$E(X,1,30),DA)"
^DD(9002313.82306,.01,3)="Answer must be 1 character in length."
^DD(9002313.82306,.01,21,0)="^^11^11^3040107^"
^DD(9002313.82306,.01,21,1,0)="Relationship code - relationship of patient to the insured."
^DD(9002313.82306,.01,21,2,0)=" "
^DD(9002313.82306,.01,21,3,0)="Ø=Not Specified"
^DD(9002313.82306,.01,21,4,0)="1=Cardholder"
^DD(9002313.82306,.01,21,5,0)="2=Spouse"
^DD(9002313.82306,.01,21,6,0)="3=Child"
^DD(9002313.82306,.01,21,7,0)="4=Other"
^DD(9002313.82306,.01,21,8,0)="5=Student"
^DD(9002313.82306,.01,21,9,0)="6=Disabled Dependent"
^DD(9002313.82306,.01,21,10,0)="7=Adult Dependent"
^DD(9002313.82306,.01,21,11,0)="8=Significant Other"
^DD(9002313.82306,.01,"DT")="3010413"
^DD(9002313.82306,.02,0)="MEANING^F^^0;2^K:$L(X)>15!($L(X)<1) X"
^DD(9002313.82306,.02,3)="Answer must be 1-15 characters in length."
^DD(9002313.82306,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82306,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82306,.02,"DT")="3010413"
^DD(9002313.82306,"B","CODE",.01)=""
^DD(9002313.82306,"B","MEANING",.02)=""
^DD(9002313.82306,"GL",0,1,.01)=""
^DD(9002313.82306,"GL",0,2,.02)=""
^DD(9002313.82306,"IX",.01)=""
^DD(9002313.82306,"RQ",.01)=""
^DD(9002313.82307,0)="FIELD^^.02^2"
^DD(9002313.82307,0,"DDA")="N"
^DD(9002313.82307,0,"DT")="3010409"
^DD(9002313.82307,0,"IX","B",9002313.82307,.01)=""
^DD(9002313.82307,0,"NM","BPS NCPDP FIELD 307")=""
^DD(9002313.82307,0,"VR")="1.0"
^DD(9002313.82307,0,"VRPK")="BPS"
^DD(9002313.82307,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(9002313.82307,.01,1,0)="^.1"
^DD(9002313.82307,.01,1,1,0)="9002313.82307^B"
^DD(9002313.82307,.01,1,1,1)="S ^BPSF(9002313.82307,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82307,.01,1,1,2)="K ^BPSF(9002313.82307,""B"",$E(X,1,30),DA)"
^DD(9002313.82307,.01,3)="Answer must be 2 characters in length."
^DD(9002313.82307,.01,21,0)="^.001^15^15^3040107^^"
^DD(9002313.82307,.01,21,1,0)="Code Identifying the location of the patient at the time they"
^DD(9002313.82307,.01,21,2,0)="received pharmacy services."
^DD(9002313.82307,.01,21,3,0)=" "
^DD(9002313.82307,.01,21,4,0)="Ø=Not specified"
^DD(9002313.82307,.01,21,5,0)="1=Home"
^DD(9002313.82307,.01,21,6,0)="2=Inter-Care"
^DD(9002313.82307,.01,21,7,0)="3=Nursing Home"
^DD(9002313.82307,.01,21,8,0)="4=Long Term/Extended Care"
^DD(9002313.82307,.01,21,9,0)="5=Rest Home"
^DD(9002313.82307,.01,21,10,0)="6=Boarding Home"
^DD(9002313.82307,.01,21,11,0)="7=Skilled Care Facility"
^DD(9002313.82307,.01,21,12,0)="8=Sub-Acute Care Facility"
^DD(9002313.82307,.01,21,13,0)="9=Acute Care Facility"
^DD(9002313.82307,.01,21,14,0)="1Ø=Outpatient"
^DD(9002313.82307,.01,21,15,0)="11=Hospice"
^DD(9002313.82307,.01,"DT")="3010409"
^DD(9002313.82307,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82307,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82307,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82307,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82307,.02,"DT")="3010409"
^DD(9002313.82307,"B","CODE",.01)=""
^DD(9002313.82307,"B","MEANING",.02)=""
^DD(9002313.82307,"GL",0,1,.01)=""
^DD(9002313.82307,"GL",0,2,.02)=""
^DD(9002313.82307,"IX",.01)=""
^DD(9002313.82307,"RQ",.01)=""
^DD(9002313.82308,0)="FIELD^^.02^2"
^DD(9002313.82308,0,"DDA")="N"
^DD(9002313.82308,0,"DT")="3010409"
^DD(9002313.82308,0,"IX","B",9002313.82308,.01)=""
^DD(9002313.82308,0,"NM","BPS NCPDP FIELD 308")=""
^DD(9002313.82308,0,"VR")="1.0"
^DD(9002313.82308,0,"VRPK")="BPS"
^DD(9002313.82308,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82308,.01,1,0)="^.1"
^DD(9002313.82308,.01,1,1,0)="9002313.82308^B"
^DD(9002313.82308,.01,1,1,1)="S ^BPSF(9002313.82308,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82308,.01,1,1,2)="K ^BPSF(9002313.82308,""B"",$E(X,1,30),DA)"
^DD(9002313.82308,.01,3)="Answer must be 1 character in length."
^DD(9002313.82308,.01,21,0)="^^13^13^3040107^"
^DD(9002313.82308,.01,21,1,0)="Ø=Not Specified"
^DD(9002313.82308,.01,21,2,0)="1=No other coverage identified"
^DD(9002313.82308,.01,21,3,0)="2=Other coverage exists-payment collected"
^DD(9002313.82308,.01,21,4,0)="3=Other coverage exists-this claim not"
^DD(9002313.82308,.01,21,5,0)="covered"
^DD(9002313.82308,.01,21,6,0)="4=Other coverage exists-payment not"
^DD(9002313.82308,.01,21,7,0)="collected"
^DD(9002313.82308,.01,21,8,0)="5=Managed care plan denial"
^DD(9002313.82308,.01,21,9,0)="6=Other coverage denied-not a"
^DD(9002313.82308,.01,21,10,0)="participating provider"
^DD(9002313.82308,.01,21,11,0)="7=Other coverage exists-not in effect at"
^DD(9002313.82308,.01,21,12,0)="time of service"
^DD(9002313.82308,.01,21,13,0)="8=Claim is a billing for a copay"
^DD(9002313.82308,.01,"DT")="3010409"
^DD(9002313.82308,.02,0)="MEANING^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(9002313.82308,.02,3)="Answer must be 1-70 characters in length."
^DD(9002313.82308,.02,21,0)="^.001^1^1^3031204^^"
^DD(9002313.82308,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82308,.02,"DT")="3010409"
^DD(9002313.82308,"B","CODE",.01)=""
^DD(9002313.82308,"B","MEANING",.02)=""
^DD(9002313.82308,"GL",0,1,.01)=""
^DD(9002313.82308,"GL",0,2,.02)=""
^DD(9002313.82308,"IX",.01)=""
^DD(9002313.82308,"RQ",.01)=""
^DD(9002313.82309,0)="FIELD^^.02^2"
^DD(9002313.82309,0,"DDA")="N"
^DD(9002313.82309,0,"DT")="3010409"
^DD(9002313.82309,0,"IX","B",9002313.82309,.01)=""
^DD(9002313.82309,0,"NM","BPS NCPDP FIELD 309")=""
^DD(9002313.82309,0,"VR")="1.0"
^DD(9002313.82309,0,"VRPK")="BPS"
^DD(9002313.82309,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82309,.01,1,0)="^.1"
^DD(9002313.82309,.01,1,1,0)="9002313.82309^B"
^DD(9002313.82309,.01,1,1,1)="S ^BPSF(9002313.82309,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82309,.01,1,1,2)="K ^BPSF(9002313.82309,""B"",$E(X,1,30),DA)"
^DD(9002313.82309,.01,3)="Answer must be 1 character in length."
^DD(9002313.82309,.01,21,0)="^^10^10^3040107^"
^DD(9002313.82309,.01,21,1,0)="Code indicating that the pharmacy is clarifying eligibility based on"
^DD(9002313.82309,.01,21,2,0)="receiving a denial."
^DD(9002313.82309,.01,21,3,0)=" "
^DD(9002313.82309,.01,21,4,0)="Ø=Not Specified"
^DD(9002313.82309,.01,21,5,0)="1=No Override"
^DD(9002313.82309,.01,21,6,0)="2=Override"
^DD(9002313.82309,.01,21,7,0)="3=Full Time Student"
^DD(9002313.82309,.01,21,8,0)="4=Disabled Dependent"
^DD(9002313.82309,.01,21,9,0)="5=Dependent Parent"
^DD(9002313.82309,.01,21,10,0)="6=Significant Other"
^DD(9002313.82309,.01,"DT")="3010409"
^DD(9002313.82309,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82309,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82309,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82309,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82309,.02,"DT")="3010409"
^DD(9002313.82309,"B","CODE",.01)=""
^DD(9002313.82309,"B","MEANING",.02)=""
^DD(9002313.82309,"GL",0,1,.01)=""
^DD(9002313.82309,"GL",0,2,.02)=""
^DD(9002313.82309,"IX",.01)=""
^DD(9002313.82309,"RQ",.01)=""
^DD(9002313.82406,0)="FIELD^^.02^2"
^DD(9002313.82406,0,"DDA")="N"
^DD(9002313.82406,0,"DT")="3010409"
^DD(9002313.82406,0,"IX","B",9002313.82406,.01)=""
^DD(9002313.82406,0,"NM","BPS NCPDP FIELD 406")=""
^DD(9002313.82406,0,"VR")="1.0"
^DD(9002313.82406,0,"VRPK")="BPS"
^DD(9002313.82406,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82406,.01,1,0)="^.1"
^DD(9002313.82406,.01,1,1,0)="9002313.82406^B"
^DD(9002313.82406,.01,1,1,1)="S ^BPSF(9002313.82406,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82406,.01,1,1,2)="K ^BPSF(9002313.82406,""B"",$E(X,1,30),DA)"
^DD(9002313.82406,.01,3)="Answer must be 1 character in length."
^DD(9002313.82406,.01,21,0)="^^5^5^3040107^"
^DD(9002313.82406,.01,21,1,0)="Code indicating whether or not the prescription is a compound."
^DD(9002313.82406,.01,21,2,0)=" "
^DD(9002313.82406,.01,21,3,0)="Ø=Not Specified"
^DD(9002313.82406,.01,21,4,0)="1=Not a Compound"
^DD(9002313.82406,.01,21,5,0)="2=Compound"
^DD(9002313.82406,.01,"DT")="3010409"
^DD(9002313.82406,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82406,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82406,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82406,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82406,.02,"DT")="3010409"
^DD(9002313.82406,"B","CODE",.01)=""
^DD(9002313.82406,"B","MEANING",.02)=""
^DD(9002313.82406,"GL",0,1,.01)=""
^DD(9002313.82406,"GL",0,2,.02)=""
^DD(9002313.82406,"IX",.01)=""
^DD(9002313.82406,"RQ",.01)=""
^DD(9002313.82408,0)="FIELD^^.02^2"
^DD(9002313.82408,0,"DDA")="N"
^DD(9002313.82408,0,"DT")="3010409"
^DD(9002313.82408,0,"IX","B",9002313.82408,.01)=""
^DD(9002313.82408,0,"NM","BPS NCPDP FIELD 408")=""
^DD(9002313.82408,0,"VR")="1.0"
^DD(9002313.82408,0,"VRPK")="BPS"
^DD(9002313.82408,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1) X"
^DD(9002313.82408,.01,1,0)="^.1"
^DD(9002313.82408,.01,1,1,0)="9002313.82408^B"
^DD(9002313.82408,.01,1,1,1)="S ^BPSF(9002313.82408,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82408,.01,1,1,2)="K ^BPSF(9002313.82408,""B"",$E(X,1,30),DA)"
^DD(9002313.82408,.01,3)="Answer must be 1 character in length."
^DD(9002313.82408,.01,21,0)="^^15^15^3040107^"
^DD(9002313.82408,.01,21,1,0)="Code indicating whether or not the patient has other insurance coverage."
^DD(9002313.82408,.01,21,2,0)=" "
^DD(9002313.82408,.01,21,3,0)="Ø=Not Specified"
^DD(9002313.82408,.01,21,4,0)="1=No other coverage identified"
^DD(9002313.82408,.01,21,5,0)="2=Other coverage exists-payment collected"
^DD(9002313.82408,.01,21,6,0)="3=Other coverage exists-this claim not"
^DD(9002313.82408,.01,21,7,0)="covered"
^DD(9002313.82408,.01,21,8,0)="4=Other coverage exists-payment not"
^DD(9002313.82408,.01,21,9,0)="collected"
^DD(9002313.82408,.01,21,10,0)="5=Managed care plan denial"
^DD(9002313.82408,.01,21,11,0)="6=Other coverage denied-not a"
^DD(9002313.82408,.01,21,12,0)="participating provider"
^DD(9002313.82408,.01,21,13,0)="7=Other coverage exists-not in effect at"
^DD(9002313.82408,.01,21,14,0)="time of service"
^DD(9002313.82408,.01,21,15,0)="8=Claim is a billing for a copay"
^DD(9002313.82408,.01,"DT")="3010409"
^DD(9002313.82408,.02,0)="MEANING^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(9002313.82408,.02,3)="Answer must be 1-70 characters in length."
^DD(9002313.82408,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82408,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82408,.02,"DT")="3010409"
^DD(9002313.82408,"B","CODE",.01)=""
^DD(9002313.82408,"B","MEANING",.02)=""
^DD(9002313.82408,"GL",0,1,.01)=""
^DD(9002313.82408,"GL",0,2,.02)=""
^DD(9002313.82408,"IX",.01)=""
^DD(9002313.82408,"RQ",.01)=""
^DD(9002313.82416,0)="FIELD^^.02^2"
^DD(9002313.82416,0,"DDA")="N"
^DD(9002313.82416,0,"DT")="3010409"
^DD(9002313.82416,0,"IX","B",9002313.82416,.01)=""
^DD(9002313.82416,0,"NM","BPS NCPDP FIELD 416")=""
^DD(9002313.82416,0,"VR")="1.0"
^DD(9002313.82416,0,"VRPK")="BPS"
^DD(9002313.82416,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82416,.01,1,0)="^.1"
^DD(9002313.82416,.01,1,1,0)="9002313.82416^B"
^DD(9002313.82416,.01,1,1,1)="S ^BPSF(9002313.82416,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82416,.01,1,1,2)="K ^BPSF(9002313.82416,""B"",$E(X,1,30),DA)"
^DD(9002313.82416,.01,3)="Answer must be 1 character in length."
^DD(9002313.82416,.01,21,0)="^^12^12^3040107^"
^DD(9002313.82416,.01,21,1,0)="Value indicating prior authorization or medical certification occurred,"
^DD(9002313.82416,.01,21,2,0)="and the number associated with the code in the left most position."
^DD(9002313.82416,.01,21,3,0)=" "
^DD(9002313.82416,.01,21,4,0)="Ø=Not specified"
^DD(9002313.82416,.01,21,5,0)="1=Prior authorization"
^DD(9002313.82416,.01,21,6,0)="2=Medical certification"
^DD(9002313.82416,.01,21,7,0)="3=EPSDT"
^DD(9002313.82416,.01,21,8,0)="4=Exemption from co-pay"
^DD(9002313.82416,.01,21,9,0)="5=Exemption from prescription limits"
^DD(9002313.82416,.01,21,10,0)="6=Family planning indicator"
^DD(9002313.82416,.01,21,11,0)="7=AFDC"
^DD(9002313.82416,.01,21,12,0)="8=Payor defined exemption"
^DD(9002313.82416,.01,"DT")="3010409"
^DD(9002313.82416,.02,0)="MEANING^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(9002313.82416,.02,3)="Answer must be 1-50 characters in length."
^DD(9002313.82416,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82416,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82416,.02,"DT")="3010409"
^DD(9002313.82416,"B","CODE",.01)=""
^DD(9002313.82416,"B","MEANING",.02)=""
^DD(9002313.82416,"GL",0,1,.01)=""
^DD(9002313.82416,"GL",0,2,.02)=""
^DD(9002313.82416,"IX",.01)=""
^DD(9002313.82416,"RQ",.01)=""
^DD(9002313.82419,0)="FIELD^^.02^2"
^DD(9002313.82419,0,"DDA")="N"
^DD(9002313.82419,0,"DT")="3010409"
^DD(9002313.82419,0,"IX","B",9002313.82419,.01)=""
^DD(9002313.82419,0,"NM","BPS NCPDP FIELD 419")=""
^DD(9002313.82419,0,"VR")="1.0"
^DD(9002313.82419,0,"VRPK")="BPS"
^DD(9002313.82419,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82419,.01,1,0)="^.1"
^DD(9002313.82419,.01,1,1,0)="9002313.82419^B"
^DD(9002313.82419,.01,1,1,1)="S ^BPSF(9002313.82419,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82419,.01,1,1,2)="K ^BPSF(9002313.82419,""B"",$E(X,1,30),DA)"
^DD(9002313.82419,.01,3)="Answer must be 1 character in length."
^DD(9002313.82419,.01,21,0)="^^7^7^3040107^"
^DD(9002313.82419,.01,21,1,0)="Code indicating the origin of the prescription."
^DD(9002313.82419,.01,21,2,0)=" "
^DD(9002313.82419,.01,21,3,0)="Ø=Not Specified"
^DD(9002313.82419,.01,21,4,0)="1=Written"
^DD(9002313.82419,.01,21,5,0)="2=Telephone"
^DD(9002313.82419,.01,21,6,0)="3=Electronic"
^DD(9002313.82419,.01,21,7,0)="4=Facsimile"
^DD(9002313.82419,.01,"DT")="3010409"
^DD(9002313.82419,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82419,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82419,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82419,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82419,.02,"DT")="3010409"
^DD(9002313.82419,"B","CODE",.01)=""
^DD(9002313.82419,"B","MEANING",.02)=""
^DD(9002313.82419,"GL",0,1,.01)=""
^DD(9002313.82419,"GL",0,2,.02)=""
^DD(9002313.82419,"IX",.01)=""
^DD(9002313.82419,"RQ",.01)=""
^DD(9002313.8242,0)="FIELD^^.02^2"
^DD(9002313.8242,0,"DDA")="N"
^DD(9002313.8242,0,"DT")="3070327"
^DD(9002313.8242,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(9002313.8242,0,"IX","B",9002313.8242,.01)=""
^DD(9002313.8242,0,"IX","C",9002313.8242,.02)=""
^DD(9002313.8242,0,"NM","BPS NCPDP FIELD 420")=""
^DD(9002313.8242,0,"VR")="1.0"
^DD(9002313.8242,0,"VRPK")="BPS"
^DD(9002313.8242,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.8242,.01,1,0)="^.1"
^DD(9002313.8242,.01,1,1,0)="9002313.8242^B"
^DD(9002313.8242,.01,1,1,1)="S ^BPSF(9002313.8242,""B"",$E(X,1,30),DA)="""""
^DD(9002313.8242,.01,1,1,2)="K ^BPSF(9002313.8242,""B"",$E(X,1,30),DA)"
^DD(9002313.8242,.01,3)="Answer must be 1-2 characters in length"
^DD(9002313.8242,.01,21,0)="^^1^1^3070327^"
^DD(9002313.8242,.01,21,1,0)="Code clarifying the submission."
^DD(9002313.8242,.01,"DT")="3070327"
^DD(9002313.8242,.02,0)="CODE DESCRIPTION^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.8242,.02,1,0)="^.1"
^DD(9002313.8242,.02,1,1,0)="9002313.8242^C"
^DD(9002313.8242,.02,1,1,1)="S ^BPSF(9002313.8242,""C"",$E(X,1,30),DA)="""""
^DD(9002313.8242,.02,1,1,2)="K ^BPSF(9002313.8242,""C"",$E(X,1,30),DA)"
^DD(9002313.8242,.02,1,1,"DT")="3070228"
^DD(9002313.8242,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.8242,.02,21,0)="^^1^1^3070327^"
^DD(9002313.8242,.02,21,1,0)="The NCPDP description of the value stored in the CODE (.01) field."
^DD(9002313.8242,.02,"DT")="3070327"
^DD(9002313.8242,"B","CODE",.01)=""
^DD(9002313.8242,"B","CODE DESCRIPTION",.02)=""
^DD(9002313.8242,"GL",0,1,.01)=""
^DD(9002313.8242,"GL",0,2,.02)=""
^DD(9002313.8242,"IX",.01)=""
^DD(9002313.8242,"IX",.02)=""
^DD(9002313.8242,"RQ",.01)=""
^DD(9002313.82423,0)="FIELD^^.02^2"
^DD(9002313.82423,0,"DDA")="N"
^DD(9002313.82423,0,"DT")="3010409"
^DD(9002313.82423,0,"IX","B",9002313.82423,.01)=""
^DD(9002313.82423,0,"NM","BPS NCPDP FIELD 423")=""
^DD(9002313.82423,0,"VR")="1.0"
^DD(9002313.82423,0,"VRPK")="BPS"
^DD(9002313.82423,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(9002313.82423,.01,1,0)="^.1"
^DD(9002313.82423,.01,1,1,0)="9002313.82423^B"
^DD(9002313.82423,.01,1,1,1)="S ^BPSF(9002313.82423,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82423,.01,1,1,2)="K ^BPSF(9002313.82423,""B"",$E(X,1,30),DA)"
^DD(9002313.82423,.01,3)="Answer must be 2 characters in length."
^DD(9002313.82423,.01,21,0)="^^14^14^3040107^"
^DD(9002313.82423,.01,21,1,0)="Code indicating the method by which 'Ingredient Cost Submitted' (Field"
^DD(9002313.82423,.01,21,2,0)="4Ø9-D9) was calculated."
^DD(9002313.82423,.01,21,3,0)=" "
^DD(9002313.82423,.01,21,4,0)=" "
^DD(9002313.82423,.01,21,5,0)="Blank=Not Specified"
^DD(9002313.82423,.01,21,6,0)="ØØ=Not Specified"
^DD(9002313.82423,.01,21,7,0)="Ø1=AWP (Average Wholesale Price)"
^DD(9002313.82423,.01,21,8,0)="Ø2=Local Wholesaler"
^DD(9002313.82423,.01,21,9,0)="Ø3=Direct"
^DD(9002313.82423,.01,21,10,0)="Ø4=EAC (Estimated Acquisition Cost)"
^DD(9002313.82423,.01,21,11,0)="Ø5=Acquisition"
^DD(9002313.82423,.01,21,12,0)="Ø6=MAC (Maximum Allowable Cost)"
^DD(9002313.82423,.01,21,13,0)="Ø7=Usual & Customary"
^DD(9002313.82423,.01,21,14,0)="Ø9=Other"
^DD(9002313.82423,.01,"DT")="3010409"
^DD(9002313.82423,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82423,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82423,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82423,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82423,.02,"DT")="3010409"
^DD(9002313.82423,"B","CODE",.01)=""
^DD(9002313.82423,"B","MEANING",.02)=""
^DD(9002313.82423,"GL",0,1,.01)=""
^DD(9002313.82423,"GL",0,2,.02)=""
^DD(9002313.82423,"IX",.01)=""
^DD(9002313.82423,"RQ",.01)=""
^DD(9002313.82425,0)="FIELD^^.02^2"
^DD(9002313.82425,0,"DDA")="N"
^DD(9002313.82425,0,"DT")="3010409"
^DD(9002313.82425,0,"IX","B",9002313.82425,.01)=""
^DD(9002313.82425,0,"NM","BPS NCPDP FIELD 425")=""
^DD(9002313.82425,0,"VR")="1.0"
^DD(9002313.82425,0,"VRPK")="BPS"
^DD(9002313.82425,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82425,.01,1,0)="^.1"
^DD(9002313.82425,.01,1,1,0)="9002313.82425^B"
^DD(9002313.82425,.01,1,1,1)="S ^BPSF(9002313.82425,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82425,.01,1,1,2)="K ^BPSF(9002313.82425,""B"",$E(X,1,30),DA)"
^DD(9002313.82425,.01,3)="Answer must be 1 character in length."
^DD(9002313.82425,.01,21,0)="^^7^7^3040108^"
^DD(9002313.82425,.01,21,1,0)="Code to indicate the type of drug dispensed."
^DD(9002313.82425,.01,21,2,0)=" "
^DD(9002313.82425,.01,21,3,0)="Ø=Not specified"
^DD(9002313.82425,.01,21,4,0)="1=Single source brand"
^DD(9002313.82425,.01,21,5,0)="2=Branded generic"
^DD(9002313.82425,.01,21,6,0)="3=Generic"
^DD(9002313.82425,.01,21,7,0)="4=O.T.C. (over the counter)"
^DD(9002313.82425,.01,"DT")="3010409"
^DD(9002313.82425,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82425,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82425,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82425,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82425,.02,"DT")="3010409"
^DD(9002313.82425,"B","CODE",.01)=""
^DD(9002313.82425,"B","MEANING",.02)=""
^DD(9002313.82425,"GL",0,1,.01)=""
^DD(9002313.82425,"GL",0,2,.02)=""
^DD(9002313.82425,"IX",.01)=""
^DD(9002313.82425,"RQ",.01)=""
^DD(9002313.82429,0)="FIELD^^.02^2"
^DD(9002313.82429,0,"DDA")="N"
^DD(9002313.82429,0,"DT")="3010409"
^DD(9002313.82429,0,"IX","B",9002313.82429,.01)=""
^DD(9002313.82429,0,"NM","BPS NCPDP FIELD 429")=""
^DD(9002313.82429,0,"VR")="1.0"
^DD(9002313.82429,0,"VRPK")="BPS"
^DD(9002313.82429,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82429,.01,1,0)="^.1"
^DD(9002313.82429,.01,1,1,0)="9002313.82429^B"
^DD(9002313.82429,.01,1,1,1)="S ^BPSF(9002313.82429,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82429,.01,1,1,2)="K ^BPSF(9002313.82429,""B"",$E(X,1,30),DA)"
^DD(9002313.82429,.01,3)="Answer must be 1 character in length."
^DD(9002313.82429,.01,21,0)="^^6^6^3040108^"
^DD(9002313.82429,.01,21,1,0)="Code indicating the type of unit dose dispensing."
^DD(9002313.82429,.01,21,2,0)=" "
^DD(9002313.82429,.01,21,3,0)="Ø=Not Specified"
^DD(9002313.82429,.01,21,4,0)="1=Not Unit Dose"
^DD(9002313.82429,.01,21,5,0)="2=Manufacturer Unit Dose"
^DD(9002313.82429,.01,21,6,0)="3=Pharmacy Unit Dose"
^DD(9002313.82429,.01,"DT")="3010409"
^DD(9002313.82429,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82429,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82429,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82429,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82429,.02,"DT")="3010409"
^DD(9002313.82429,"B","CODE",.01)=""
^DD(9002313.82429,"B","MEANING",.02)=""
^DD(9002313.82429,"GL",0,1,.01)=""
^DD(9002313.82429,"GL",0,2,.02)=""
^DD(9002313.82429,"IX",.01)=""
^DD(9002313.82429,"RQ",.01)=""
^DD(9002313.82432,0)="FIELD^^.02^2"
^DD(9002313.82432,0,"DDA")="N"
^DD(9002313.82432,0,"DT")="3010409"
^DD(9002313.82432,0,"IX","B",9002313.82432,.01)=""
^DD(9002313.82432,0,"NM","BPS NCPDP FIELD 432")=""
^DD(9002313.82432,0,"VR")="1.0"
^DD(9002313.82432,0,"VRPK")="BPS"
^DD(9002313.82432,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82432,.01,1,0)="^.1"
^DD(9002313.82432,.01,1,1,0)="9002313.82432^B"
^DD(9002313.82432,.01,1,1,1)="S ^BPSF(9002313.82432,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82432,.01,1,1,2)="K ^BPSF(9002313.82432,""B"",$E(X,1,30),DA)"
^DD(9002313.82432,.01,3)="Answer must be 1 character in length."
^DD(9002313.82432,.01,21,0)="^^7^7^3040108^"
^DD(9002313.82432,.01,21,1,0)="Code indicating the method by which the days supply was determined."
^DD(9002313.82432,.01,21,2,0)=" "
^DD(9002313.82432,.01,21,3,0)=" "
^DD(9002313.82432,.01,21,4,0)="Ø=Not specified"
^DD(9002313.82432,.01,21,5,0)="1=Explicit directions"
^DD(9002313.82432,.01,21,6,0)="2=PRN directions (take as needed pharmacist estimate)"
^DD(9002313.82432,.01,21,7,0)="3=As directed by physician"
^DD(9002313.82432,.01,"DT")="3010409"
^DD(9002313.82432,.02,0)="MEANING^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(9002313.82432,.02,3)="Answer must be 1-50 characters in length."
^DD(9002313.82432,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82432,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82432,.02,"DT")="3010409"
^DD(9002313.82432,"B","CODE",.01)=""
^DD(9002313.82432,"B","MEANING",.02)=""
^DD(9002313.82432,"GL",0,1,.01)=""
^DD(9002313.82432,"GL",0,2,.02)=""
^DD(9002313.82432,"IX",.01)=""
^DD(9002313.82432,"RQ",.01)=""
^DD(9002313.82436,0)="FIELD^^.02^2"
^DD(9002313.82436,0,"DDA")="N"
^DD(9002313.82436,0,"DT")="3010409"
^DD(9002313.82436,0,"IX","B",9002313.82436,.01)=""
^DD(9002313.82436,0,"NM","BPS NCPDP FIELD 436")=""
^DD(9002313.82436,0,"VR")="1.0"
^DD(9002313.82436,0,"VRPK")="BPS"
^DD(9002313.82436,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82436,.01,1,0)="^.1"
^DD(9002313.82436,.01,1,1,0)="9002313.82436^B"
^DD(9002313.82436,.01,1,1,1)="S ^BPSF(9002313.82436,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82436,.01,1,1,2)="K ^BPSF(9002313.82436,""B"",$E(X,1,30),DA)"
^DD(9002313.82436,.01,3)="Answer must be 1 character in length."
^DD(9002313.82436,.01,21,0)="^^1^1^3040108^"
^DD(9002313.82436,.01,21,1,0)="Code qualifying the value in 'Product/Service ID' (4Ø7-D7)."
^DD(9002313.82436,.01,"DT")="3010409"
^DD(9002313.82436,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82436,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82436,.02,21,0)="^.001^1^1^3031204^^"
^DD(9002313.82436,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82436,.02,"DT")="3010409"
^DD(9002313.82436,"B","CODE",.01)=""
^DD(9002313.82436,"B","MEANING",.02)=""
^DD(9002313.82436,"GL",0,1,.01)=""
^DD(9002313.82436,"GL",0,2,.02)=""
^DD(9002313.82436,"IX",.01)=""
^DD(9002313.82436,"RQ",.01)=""
^DD(9002313.82439,0)="FIELD^^.02^2"
^DD(9002313.82439,0,"DDA")="N"
^DD(9002313.82439,0,"DT")="3010406"
^DD(9002313.82439,0,"IX","B",9002313.82439,.01)=""
^DD(9002313.82439,0,"NM","BPS NCPDP FIELD 439")=""
^DD(9002313.82439,0,"VR")="1.0"
^DD(9002313.82439,0,"VRPK")="BPS"
^DD(9002313.82439,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(9002313.82439,.01,1,0)="^.1"
^DD(9002313.82439,.01,1,1,0)="9002313.82439^B"
^DD(9002313.82439,.01,1,1,1)="S ^BPSF(9002313.82439,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82439,.01,1,1,2)="K ^BPSF(9002313.82439,""B"",$E(X,1,30),DA)"
^DD(9002313.82439,.01,3)="Answer must be 2 characters in length."
^DD(9002313.82439,.01,21,0)="^^2^2^3040108^"
^DD(9002313.82439,.01,21,1,0)="Code used when over-riding DUR warning.  The reason for"
^DD(9002313.82439,.01,21,2,0)="service."
^DD(9002313.82439,.01,"DT")="3010406"
^DD(9002313.82439,.02,0)="MEANING^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.82439,.02,3)="Answer must be 1-40 characters in length."
^DD(9002313.82439,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82439,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82439,.02,"DT")="3010406"
^DD(9002313.82439,"B","CODE",.01)=""
^DD(9002313.82439,"B","MEANING",.02)=""
^DD(9002313.82439,"GL",0,1,.01)=""
^DD(9002313.82439,"GL",0,2,.02)=""
^DD(9002313.82439,"IX",.01)=""
^DD(9002313.82439,"RQ",.01)=""
^DD(9002313.8244,0)="FIELD^^.02^2"
^DD(9002313.8244,0,"DDA")="N"
^DD(9002313.8244,0,"DT")="3010409"
^DD(9002313.8244,0,"IX","B",9002313.8244,.01)=""
^DD(9002313.8244,0,"NM","BPS NCPDP FIELD 440")=""
^DD(9002313.8244,0,"VR")="1.0"
^DD(9002313.8244,0,"VRPK")="BPS"
^DD(9002313.8244,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.8244,.01,1,0)="^.1"
^DD(9002313.8244,.01,1,1,0)="9002313.8244^B"
^DD(9002313.8244,.01,1,1,1)="S ^BPSF(9002313.8244,""B"",$E(X,1,30),DA)="""""
^DD(9002313.8244,.01,1,1,2)="K ^BPSF(9002313.8244,""B"",$E(X,1,30),DA)"
^DD(9002313.8244,.01,3)="Answer must be 1-2 characters in length."
^DD(9002313.8244,.01,21,0)="^^1^1^3040108^"
^DD(9002313.8244,.01,21,1,0)="Code indicating whether a DUR intervention was recorded."
^DD(9002313.8244,.01,"DT")="3010409"
^DD(9002313.8244,.02,0)="MEANING^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.8244,.02,3)="Answer must be 1-40 characters in length."
^DD(9002313.8244,.02,21,0)="^^1^1^3031204^"
^DD(9002313.8244,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.8244,.02,"DT")="3010409"
^DD(9002313.8244,"B","CODE",.01)=""
^DD(9002313.8244,"B","MEANING",.02)=""
^DD(9002313.8244,"GL",0,1,.01)=""
^DD(9002313.8244,"GL",0,2,.02)=""
^DD(9002313.8244,"IX",.01)=""
^DD(9002313.8244,"RQ",.01)=""
^DD(9002313.82441,0)="FIELD^^.02^2"
^DD(9002313.82441,0,"DDA")="N"
^DD(9002313.82441,0,"DT")="3010409"
^DD(9002313.82441,0,"IX","B",9002313.82441,.01)=""
^DD(9002313.82441,0,"NM","BPS NCPDP FIELD 441")=""
^DD(9002313.82441,0,"VR")="1.0"
^DD(9002313.82441,0,"VRPK")="BPS"
^DD(9002313.82441,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(9002313.82441,.01,1,0)="^.1"
^DD(9002313.82441,.01,1,1,0)="9002313.82441^B"
^DD(9002313.82441,.01,1,1,1)="S ^BPSF(9002313.82441,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82441,.01,1,1,2)="K ^BPSF(9002313.82441,""B"",$E(X,1,30),DA)"
^DD(9002313.82441,.01,3)="Answer must be 2 characters in length."
^DD(9002313.82441,.01,21,0)="^^29^29^3040108^"
^DD(9002313.82441,.01,21,1,0)="Action taken by a pharmacist in response to a conflict or the result of a"
^DD(9002313.82441,.01,21,2,0)="pharmacist s professional service."
^DD(9002313.82441,.01,21,3,0)=" "
^DD(9002313.82441,.01,21,4,0)="ØØ=Not Specified"
^DD(9002313.82441,.01,21,5,0)="1A=Filled As Is, False Positive"
^DD(9002313.82441,.01,21,6,0)="1B=Filled Prescription As Is"
^DD(9002313.82441,.01,21,7,0)="1C=Filled, With Different Dose"
^DD(9002313.82441,.01,21,8,0)="1D=Filled, With Different Directions"
^DD(9002313.82441,.01,21,9,0)="1E=Filled, With Different Drug"
^DD(9002313.82441,.01,21,10,0)="1F=Filled, With Different Quantity"
^DD(9002313.82441,.01,21,11,0)="1G=Filled, With Prescriber Approval"
^DD(9002313.82441,.01,21,12,0)="1H=Brand-to-Generic Change"
^DD(9002313.82441,.01,21,13,0)="1J=Rx-to-OTC Change"
^DD(9002313.82441,.01,21,14,0)="1K=Filled with Different Dosage Form"
^DD(9002313.82441,.01,21,15,0)="2A=Prescription Not Filled"
^DD(9002313.82441,.01,21,16,0)="2B=Not Filled, Directions Clarified"
^DD(9002313.82441,.01,21,17,0)="3A=Recommendation Accepted"
^DD(9002313.82441,.01,21,18,0)="3B=Recommendation Not Accepted"
^DD(9002313.82441,.01,21,19,0)="3C=Discontinued Drug"
^DD(9002313.82441,.01,21,20,0)="3D=Regimen Changed"
^DD(9002313.82441,.01,21,21,0)="3E=Therapy Changed"
^DD(9002313.82441,.01,21,22,0)="3F=Therapy Changed-cost increased"
^DD(9002313.82441,.01,21,23,0)="acknowledged"
^DD(9002313.82441,.01,21,24,0)="3G=Drug Therapy Unchanged"
^DD(9002313.82441,.01,21,25,0)="3H=Follow-Up/Report"
^DD(9002313.82441,.01,21,26,0)="3J=Patient Referral"
^DD(9002313.82441,.01,21,27,0)="3K=Instructions Understood"
^DD(9002313.82441,.01,21,28,0)="3M=Compliance Aid Provided"
^DD(9002313.82441,.01,21,29,0)="3N=Medication Administered"
^DD(9002313.82441,.01,"DT")="3010409"
^DD(9002313.82441,.02,0)="MEANING^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.82441,.02,3)="Answer must be 1-40 characters in length."
^DD(9002313.82441,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82441,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82441,.02,"DT")="3010409"
^DD(9002313.82441,"B","CODE",.01)=""
^DD(9002313.82441,"B","MEANING",.02)=""
^DD(9002313.82441,"GL",0,1,.01)=""
^DD(9002313.82441,"GL",0,2,.02)=""
^DD(9002313.82441,"IX",.01)=""
^DD(9002313.82441,"RQ",.01)=""
^DD(9002313.82461,0)="FIELD^^.02^2"
^DD(9002313.82461,0,"DDA")="N"
^DD(9002313.82461,0,"DT")="3070327"
^DD(9002313.82461,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(9002313.82461,0,"IX","B",9002313.82461,.01)=""
^DD(9002313.82461,0,"IX","C",9002313.82461,.02)=""
^DD(9002313.82461,0,"NM","BPS NCPDP FIELD 461")=""
^DD(9002313.82461,0,"VR")="1.0"
^DD(9002313.82461,0,"VRPK")="BPS"
^DD(9002313.82461,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82461,.01,1,0)="^.1"
^DD(9002313.82461,.01,1,1,0)="9002313.82461^B"
^DD(9002313.82461,.01,1,1,1)="S ^BPSF(9002313.82461,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82461,.01,1,1,2)="K ^BPSF(9002313.82461,""B"",$E(X,1,30),DA)"
^DD(9002313.82461,.01,3)="Answer must be 1-2 characters in length"
^DD(9002313.82461,.01,21,0)="^^1^1^3070328^"
^DD(9002313.82461,.01,21,1,0)="The code clarifying the prior authorization number."
^DD(9002313.82461,.01,"DT")="3070328"
^DD(9002313.82461,.02,0)="CODE DESCRIPTION^F^^0;2^K:$L(X)>50!($L(X)<1) X"
^DD(9002313.82461,.02,1,0)="^.1"
^DD(9002313.82461,.02,1,1,0)="9002313.82461^C"
^DD(9002313.82461,.02,1,1,1)="S ^BPSF(9002313.82461,""C"",$E(X,1,30),DA)="""""
^DD(9002313.82461,.02,1,1,2)="K ^BPSF(9002313.82461,""C"",$E(X,1,30),DA)"
^DD(9002313.82461,.02,1,1,"DT")="3070228"
^DD(9002313.82461,.02,3)="Answer must be 1-50 characters in length."
^DD(9002313.82461,.02,21,0)="^^2^2^3070327^"
^DD(9002313.82461,.02,21,1,0)="The NCPDP standard description of the value stored in the CODE (.01)"
^DD(9002313.82461,.02,21,2,0)="field.  "
^DD(9002313.82461,.02,"DT")="3070327"
^DD(9002313.82461,"B","CODE",.01)=""
^DD(9002313.82461,"B","CODE DESCRIPTION",.02)=""
^DD(9002313.82461,"GL",0,1,.01)=""
^DD(9002313.82461,"GL",0,2,.02)=""
^DD(9002313.82461,"IX",.01)=""
^DD(9002313.82461,"IX",.02)=""
^DD(9002313.82461,"RQ",.01)=""
^DD(9002313.82501,0)="FIELD^^.02^2"
^DD(9002313.82501,0,"DDA")="N"
^DD(9002313.82501,0,"DT")="3010409"
^DD(9002313.82501,0,"IX","B",9002313.82501,.01)=""
^DD(9002313.82501,0,"NM","BPS NCPDP FIELD 501")=""
^DD(9002313.82501,0,"VR")="1.0"
^DD(9002313.82501,0,"VRPK")="BPS"
^DD(9002313.82501,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82501,.01,1,0)="^.1"
^DD(9002313.82501,.01,1,1,0)="9002313.82501^B"
^DD(9002313.82501,.01,1,1,1)="S ^BPSF(9002313.82501,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82501,.01,1,1,2)="K ^BPSF(9002313.82501,""B"",$E(X,1,30),DA)"
^DD(9002313.82501,.01,3)="Answer must be 1 character in length."
^DD(9002313.82501,.01,21,0)="^^4^4^3040108^"
^DD(9002313.82501,.01,21,1,0)="Code indicating the status of the transmission."
^DD(9002313.82501,.01,21,2,0)=" "
^DD(9002313.82501,.01,21,3,0)="A=Accepted"
^DD(9002313.82501,.01,21,4,0)="R=Rejected"
^DD(9002313.82501,.01,"DT")="3010409"
^DD(9002313.82501,.02,0)="MEANING^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.82501,.02,3)="Answer must be 1-40 characters in length."
^DD(9002313.82501,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82501,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82501,.02,"DT")="3010409"
^DD(9002313.82501,"B","CODE",.01)=""
^DD(9002313.82501,"B","MEANING",.02)=""
^DD(9002313.82501,"GL",0,1,.01)=""
^DD(9002313.82501,"GL",0,2,.02)=""
^DD(9002313.82501,"IX",.01)=""
^DD(9002313.82501,"RQ",.01)=""
^DD(9002313.82522,0)="FIELD^^.02^2"
^DD(9002313.82522,0,"DDA")="N"
^DD(9002313.82522,0,"DT")="3010409"
^DD(9002313.82522,0,"IX","B",9002313.82522,.01)=""
^DD(9002313.82522,0,"NM","BPS NCPDP FIELD 522")=""
^DD(9002313.82522,0,"VR")="1.0"
^DD(9002313.82522,0,"VRPK")="BPS"
^DD(9002313.82522,.01,0)="CODE^RF^^0;1^K:$L(X)>2!($L(X)<2)!'(X'?1P.E) X"
^DD(9002313.82522,.01,1,0)="^.1"
^DD(9002313.82522,.01,1,1,0)="9002313.82522^B"
^DD(9002313.82522,.01,1,1,1)="S ^BPSF(9002313.82522,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82522,.01,1,1,2)="K ^BPSF(9002313.82522,""B"",$E(X,1,30),DA)"
^DD(9002313.82522,.01,3)="Answer must be 2 characters in length."
^DD(9002313.82522,.01,21,0)="^^16^16^3040108^"
^DD(9002313.82522,.01,21,1,0)="Code identifying how the reimbursement amount was calculated for  "
^DD(9002313.82522,.01,21,2,0)="Ingredient Cost Paid  (5Ø6-F6)."
^DD(9002313.82522,.01,21,3,0)=" "
^DD(9002313.82522,.01,21,4,0)="Ø=Not Specified"
^DD(9002313.82522,.01,21,5,0)="1=Ingredient Cost Paid as Submitted"
^DD(9002313.82522,.01,21,6,0)="2=Ingredient Cost Reduced to AWP Pricing"
^DD(9002313.82522,.01,21,7,0)="3=Ingredient Cost Reduced to AWP Less"
^DD(9002313.82522,.01,21,8,0)="X% Pricing"
^DD(9002313.82522,.01,21,9,0)="4=Usual & Customary Paid as Submitted"
^DD(9002313.82522,.01,21,10,0)="5=Paid Lower of Ingredient Cost Plus Fees"
^DD(9002313.82522,.01,21,11,0)="Versus Usual & Customary"
^DD(9002313.82522,.01,21,12,0)="6=MAC Pricing Ingredient Cost Paid"
^DD(9002313.82522,.01,21,13,0)="7=MAC Pricing Ingredient Cost Reduced to"
^DD(9002313.82522,.01,21,14,0)="MAC"
^DD(9002313.82522,.01,21,15,0)="8=Contract Pricing"
^DD(9002313.82522,.01,21,16,0)="9=Acquisition Pricing"
^DD(9002313.82522,.01,"DT")="3010409"
^DD(9002313.82522,.02,0)="MEANING^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(9002313.82522,.02,3)="Answer must be 1-70 characters in length."
^DD(9002313.82522,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82522,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82522,.02,"DT")="3010409"
^DD(9002313.82522,"B","CODE",.01)=""
^DD(9002313.82522,"B","MEANING",.02)=""
^DD(9002313.82522,"GL",0,1,.01)=""
^DD(9002313.82522,"GL",0,2,.02)=""
^DD(9002313.82522,"IX",.01)=""
^DD(9002313.82522,"RQ",.01)=""
^DD(9002313.82528,0)="FIELD^^.02^2"
^DD(9002313.82528,0,"DDA")="N"
^DD(9002313.82528,0,"DT")="3010406"
^DD(9002313.82528,0,"IX","B",9002313.82528,.01)=""
^DD(9002313.82528,0,"NM","BPS NCPDP FIELD 528")=""
^DD(9002313.82528,0,"VR")="1.0"
^DD(9002313.82528,0,"VRPK")="BPS"
^DD(9002313.82528,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82528,.01,1,0)="^.1"
^DD(9002313.82528,.01,1,1,0)="9002313.82528^B"
^DD(9002313.82528,.01,1,1,1)="S ^BPSF(9002313.82528,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82528,.01,1,1,2)="K ^BPSF(9002313.82528,""B"",$E(X,1,30),DA)"
^DD(9002313.82528,.01,3)="Answer must be 1 character in length."
^DD(9002313.82528,.01,21,0)="^^7^7^3040108^"
^DD(9002313.82528,.01,21,1,0)="Code identifying the significance or severity level of a clinical event as"
^DD(9002313.82528,.01,21,2,0)="contained in the originating data base."
^DD(9002313.82528,.01,21,3,0)=" "
^DD(9002313.82528,.01,21,4,0)="Blank=Not Specified"
^DD(9002313.82528,.01,21,5,0)="1=Major"
^DD(9002313.82528,.01,21,6,0)="2=Moderate"
^DD(9002313.82528,.01,21,7,0)="3=Minor"
^DD(9002313.82528,.01,"DT")="3010406"
^DD(9002313.82528,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82528,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82528,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82528,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82528,.02,"DT")="3010406"
^DD(9002313.82528,"B","CODE",.01)=""
^DD(9002313.82528,"B","MEANING",.02)=""
^DD(9002313.82528,"GL",0,1,.01)=""
^DD(9002313.82528,"GL",0,2,.02)=""
^DD(9002313.82528,"IX",.01)=""
^DD(9002313.82528,"RQ",.01)=""
^DD(9002313.82529,0)="FIELD^^.02^2"
^DD(9002313.82529,0,"DDA")="N"
^DD(9002313.82529,0,"DT")="3010406"
^DD(9002313.82529,0,"IX","B",9002313.82529,.01)=""
^DD(9002313.82529,0,"NM","BPS NCPDP FIELD 529")=""
^DD(9002313.82529,0,"VR")="1.0"
^DD(9002313.82529,0,"VRPK")="BPS"
^DD(9002313.82529,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82529,.01,1,0)="^.1"
^DD(9002313.82529,.01,1,1,0)="9002313.82529^B"
^DD(9002313.82529,.01,1,1,1)="S ^BPSF(9002313.82529,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82529,.01,1,1,2)="K ^BPSF(9002313.82529,""B"",$E(X,1,30),DA)"
^DD(9002313.82529,.01,3)="Answer must be 1 character in length."
^DD(9002313.82529,.01,21,0)="^^7^7^3040108^"
^DD(9002313.82529,.01,21,1,0)="Code indicating the pharmacy responsible for the previous event involved"
^DD(9002313.82529,.01,21,2,0)="in the DUR conflict."
^DD(9002313.82529,.01,21,3,0)=" "
^DD(9002313.82529,.01,21,4,0)="Ø=Not Specified"
^DD(9002313.82529,.01,21,5,0)="1=Your Pharmacy"
^DD(9002313.82529,.01,21,6,0)="2=Other Pharmacy in Same Chain"
^DD(9002313.82529,.01,21,7,0)="3=Other Pharmacy"
^DD(9002313.82529,.01,"DT")="3010406"
^DD(9002313.82529,.02,0)="MEANING^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.82529,.02,3)="Answer must be 1-40 characters in length."
^DD(9002313.82529,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82529,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82529,.02,"DT")="3010406"
^DD(9002313.82529,"B","CODE",.01)=""
^DD(9002313.82529,"B","MEANING",.02)=""
^DD(9002313.82529,"GL",0,1,.01)=""
^DD(9002313.82529,"GL",0,2,.02)=""
^DD(9002313.82529,"IX",.01)=""
^DD(9002313.82529,"RQ",.01)=""
^DD(9002313.82532,0)="FIELD^^.02^2"
^DD(9002313.82532,0,"DDA")="N"
^DD(9002313.82532,0,"DT")="3010406"
^DD(9002313.82532,0,"IX","B",9002313.82532,.01)=""
^DD(9002313.82532,0,"NM","BPS NCPDP FIELD 532")=""
^DD(9002313.82532,0,"VR")="1.0"
^DD(9002313.82532,0,"VRPK")="BPS"
^DD(9002313.82532,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82532,.01,1,0)="^.1"
^DD(9002313.82532,.01,1,1,0)="9002313.82532^B"
^DD(9002313.82532,.01,1,1,1)="S ^BPSF(9002313.82532,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82532,.01,1,1,2)="K ^BPSF(9002313.82532,""B"",$E(X,1,30),DA)"
^DD(9002313.82532,.01,3)="Answer must be 1 character in length."
^DD(9002313.82532,.01,21,0)="^^8^8^3040108^"
^DD(9002313.82532,.01,21,1,0)="Code identifying the source of drug information used for DUR processing."
^DD(9002313.82532,.01,21,2,0)=" "
^DD(9002313.82532,.01,21,3,0)="Blank=Not Specified"
^DD(9002313.82532,.01,21,4,0)="1=First Databank"
^DD(9002313.82532,.01,21,5,0)="2=Medi-Span"
^DD(9002313.82532,.01,21,6,0)="3=Redbook"
^DD(9002313.82532,.01,21,7,0)="4=Processor Developed"
^DD(9002313.82532,.01,21,8,0)="5=Other"
^DD(9002313.82532,.01,"DT")="3010406"
^DD(9002313.82532,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82532,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82532,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82532,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82532,.02,"DT")="3010406"
^DD(9002313.82532,"B","CODE",.01)=""
^DD(9002313.82532,"B","MEANING",.02)=""
^DD(9002313.82532,"GL",0,1,.01)=""
^DD(9002313.82532,"GL",0,2,.02)=""
^DD(9002313.82532,"IX",.01)=""
^DD(9002313.82532,"RQ",.01)=""
^DD(9002313.82533,0)="FIELD^^.02^2"
^DD(9002313.82533,0,"DDA")="N"
^DD(9002313.82533,0,"DT")="3010406"
^DD(9002313.82533,0,"IX","B",9002313.82533,.01)=""
^DD(9002313.82533,0,"NM","BPS NCPDP FIELD 533")=""
^DD(9002313.82533,0,"VR")="1.0"
^DD(9002313.82533,0,"VRPK")="BPS"
^DD(9002313.82533,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82533,.01,1,0)="^.1"
^DD(9002313.82533,.01,1,1,0)="9002313.82533^B"
^DD(9002313.82533,.01,1,1,1)="S ^BPSF(9002313.82533,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82533,.01,1,1,2)="K ^BPSF(9002313.82533,""B"",$E(X,1,30),DA)"
^DD(9002313.82533,.01,3)="Answer must be 1 character in length."
^DD(9002313.82533,.01,21,0)="^^6^6^3040108^"
^DD(9002313.82533,.01,21,1,0)="Code comparing the prescriber of the current prescription to the"
^DD(9002313.82533,.01,21,2,0)="prescriber of the previously filled conflicting prescription."
^DD(9002313.82533,.01,21,3,0)=" "
^DD(9002313.82533,.01,21,4,0)="Ø=Not Specified"
^DD(9002313.82533,.01,21,5,0)="1=Same Prescriber"
^DD(9002313.82533,.01,21,6,0)="2=Other Prescriber"
^DD(9002313.82533,.01,"DT")="3010406"
^DD(9002313.82533,.02,0)="MEANING^F^^0;2^K:$L(X)>40!($L(X)<1) X"
^DD(9002313.82533,.02,3)="Answer must be 1-40 characters in length."
^DD(9002313.82533,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82533,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82533,.02,"DT")="3010406"
^DD(9002313.82533,"B","CODE",.01)=""
^DD(9002313.82533,"B","MEANING",.02)=""
^DD(9002313.82533,"GL",0,1,.01)=""
^DD(9002313.82533,"GL",0,2,.02)=""
^DD(9002313.82533,"IX",.01)=""
^DD(9002313.82533,"RQ",.01)=""
^DD(9002313.82535,0)="FIELD^^.02^2"
^DD(9002313.82535,0,"DDA")="N"
^DD(9002313.82535,0,"DT")="3010406"
^DD(9002313.82535,0,"IX","B",9002313.82535,.01)=""
^DD(9002313.82535,0,"NM","BPS NCPDP FIELD 535")=""
^DD(9002313.82535,0,"VR")="1.0"
^DD(9002313.82535,0,"VRPK")="BPS"
^DD(9002313.82535,.01,0)="CODE^RF^^0;1^K:$L(X)>1!($L(X)<1)!'(X'?1P.E) X"
^DD(9002313.82535,.01,1,0)="^.1"
^DD(9002313.82535,.01,1,1,0)="9002313.82535^B"
^DD(9002313.82535,.01,1,1,1)="S ^BPSF(9002313.82535,""B"",$E(X,1,30),DA)="""""
^DD(9002313.82535,.01,1,1,2)="K ^BPSF(9002313.82535,""B"",$E(X,1,30),DA)"
^DD(9002313.82535,.01,3)="Answer must be 1 character in length."
^DD(9002313.82535,.01,21,0)="^^2^2^3040108^"
^DD(9002313.82535,.01,21,1,0)="An indication to the originator of the claim that additional DUR"
^DD(9002313.82535,.01,21,2,0)="information is available from the processor."
^DD(9002313.82535,.01,"DT")="3010406"
^DD(9002313.82535,.02,0)="MEANING^F^^0;2^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.82535,.02,3)="Answer must be 1-30 characters in length."
^DD(9002313.82535,.02,21,0)="^^1^1^3031204^"
^DD(9002313.82535,.02,21,1,0)="What data element the two letter represents in the NCPDP standard."
^DD(9002313.82535,.02,"DT")="3010406"
^DD(9002313.82535,"B","CODE",.01)=""
^DD(9002313.82535,"B","MEANING",.02)=""
^DD(9002313.82535,"GL",0,1,.01)=""
^DD(9002313.82535,"GL",0,2,.02)=""
^DD(9002313.82535,"IX",.01)=""
^DD(9002313.82535,"RQ",.01)=""
^DD(9002313.83,0)="FIELD^^.03^3"
^DD(9002313.83,0,"DDA")="N"
^DD(9002313.83,0,"DT")="3010411"
^DD(9002313.83,0,"IX","B",9002313.83,.01)=""
^DD(9002313.83,0,"IX","C",9002313.83,.03)=""
^DD(9002313.83,0,"NM","BPS RESULT CATEGORY")=""
^DD(9002313.83,0,"VR")="1.0"
^DD(9002313.83,0,"VRPK")="BPS"
^DD(9002313.83,.01,0)="NAME^RF^^0;1^K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X"
^DD(9002313.83,.01,1,0)="^.1"
^DD(9002313.83,.01,1,1,0)="9002313.83^B"
^DD(9002313.83,.01,1,1,1)="S ^BPSF(9002313.83,""B"",$E(X,1,30),DA)="""""
^DD(9002313.83,.01,1,1,2)="K ^BPSF(9002313.83,""B"",$E(X,1,30),DA)"
^DD(9002313.83,.01,3)="NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION"
^DD(9002313.83,.01,21,0)="^^1^1^3040126^"
^DD(9002313.83,.01,21,1,0)="Descriptive name of this result category."
^DD(9002313.83,.01,"DT")="3040126"
^DD(9002313.83,.02,0)="ABBREVIATION^F^^0;2^K:$L(X)>5!($L(X)<1) X"
^DD(9002313.83,.02,3)="Answer must be 1-5 characters in length."
^DD(9002313.83,.02,21,0)="^^1^1^3010410^"
^DD(9002313.83,.02,21,1,0)="An abbreviation which can be displayed in a 5-character wide column."
^DD(9002313.83,.02,"DT")="3010410"
^DD(9002313.83,.03,0)="OTHER NAME^F^^0;3^K:$L(X)>20!($L(X)<1) X"
^DD(9002313.83,.03,1,0)="^.1"
^DD(9002313.83,.03,1,1,0)="9002313.83^C"
^DD(9002313.83,.03,1,1,1)="S ^BPSF(9002313.83,""C"",$E(X,1,30),DA)="""""
^DD(9002313.83,.03,1,1,2)="K ^BPSF(9002313.83,""C"",$E(X,1,30),DA)"
^DD(9002313.83,.03,1,1,"DT")="3010411"
^DD(9002313.83,.03,3)="Answer must be 1-20 characters in length."
^DD(9002313.83,.03,21,0)="^^2^2^3010411^"
^DD(9002313.83,.03,21,1,0)="Any other way of saying this kind of a claim result, usually"
^DD(9002313.83,.03,21,2,0)="colloquial or short, usually without the ""E "" prefix.  For lookup."
^DD(9002313.83,.03,"DT")="3010411"
^DD(9002313.83,"B","ABBREVIATION",.02)=""
^DD(9002313.83,"B","NAME",.01)=""
^DD(9002313.83,"B","OTHER NAME",.03)=""
^DD(9002313.83,"GL",0,1,.01)=""
^DD(9002313.83,"GL",0,2,.02)=""
^DD(9002313.83,"GL",0,3,.03)=""
^DD(9002313.83,"IX",.01)=""
^DD(9002313.83,"IX",.03)=""
^DD(9002313.83,"RQ",.01)=""
^DD(9002313.89,0)="FIELD^^.02^2"
^DD(9002313.89,0,"DDA")="N"
^DD(9002313.89,0,"DT")="2950623"
^DD(9002313.89,0,"IX","B",9002313.89,.01)=""
^DD(9002313.89,0,"NM","BPS ERROR CODES")=""
^DD(9002313.89,0,"VR")="1.0"
^DD(9002313.89,0,"VRPK")="BPS"
^DD(9002313.89,.01,0)="Code^RNJ5,0X^^0;1^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X S:$D(X) DINUM=X"
^DD(9002313.89,.01,1,0)="^.1"
^DD(9002313.89,.01,1,1,0)="9002313.89^B"
^DD(9002313.89,.01,1,1,1)="S ^BPSF(9002313.89,""B"",$E(X,1,30),DA)="""""
^DD(9002313.89,.01,1,1,2)="K ^BPSF(9002313.89,""B"",$E(X,1,30),DA)"
^DD(9002313.89,.01,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(9002313.89,.01,21,0)="^^1^1^3031125^"
^DD(9002313.89,.01,21,1,0)="Numeric code associated with this particular error."
^DD(9002313.89,.01,"DT")="3031125"
^DD(9002313.89,.02,0)="Description^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(9002313.89,.02,3)="Answer must be 1-70 characters in length."
^DD(9002313.89,.02,21,0)="^^1^1^3031125^"
^DD(9002313.89,.02,21,1,0)="Textual description of the error."
^DD(9002313.89,.02,"DT")="3031125"
^DD(9002313.89,"B","Code",.01)=""
^DD(9002313.89,"B","Description",.02)=""
^DD(9002313.89,"GL",0,1,.01)=""
^DD(9002313.89,"GL",0,2,.02)=""
^DD(9002313.89,"IX",.01)=""
^DD(9002313.89,"RQ",.01)=""
^DD(9002313.91,0)="FIELD^^40^8"
^DD(9002313.91,0,"DDA")="N"
^DD(9002313.91,0,"DT")="3030512"
^DD(9002313.91,0,"ID",.03)="W ""   "",$P(^(0),U,3)"
^DD(9002313.91,0,"IX","B",9002313.91,.01)=""
^DD(9002313.91,0,"IX","C",9002313.91,.03)=""
^DD(9002313.91,0,"IX","D",9002313.91,.06)=""
^DD(9002313.91,0,"NM","BPS NCPDP FIELD DEFS")=""
^DD(9002313.91,0,"PT",9002313.311,.01)=""
^DD(9002313.91,0,"PT",9002313.3121,.01)=""
^DD(9002313.91,0,"PT",9002313.5111,.01)=""
^DD(9002313.91,0,"PT",9002313.9201,.02)=""
^DD(9002313.91,0,"PT",9002313.9202,.02)=""
^DD(9002313.91,0,"PT",9002313.9203,.02)=""
^DD(9002313.91,0,"PT",9002313.9204,.02)=""
^DD(9002313.91,0,"PT",9002313.9205,.02)=""
^DD(9002313.91,0,"PT",9002313.9206,.02)=""
^DD(9002313.91,0,"PT",9002313.9207,.02)=""
^DD(9002313.91,0,"PT",9002313.9208,.02)=""
^DD(9002313.91,0,"PT",9002313.9209,.02)=""
^DD(9002313.91,0,"PT",9002313.921,.02)=""
^DD(9002313.91,0,"PT",9002313.9213,.02)=""
^DD(9002313.91,0,"PT",9002313.9214,.02)=""
^DD(9002313.91,0,"PT",9002313.9215,.02)=""
^DD(9002313.91,0,"PT",9002313.9216,.02)=""
^DD(9002313.91,0,"PT",9002313.9217,.02)=""
^DD(9002313.91,0,"PT",9002313.9218,.02)=""
^DD(9002313.91,0,"PT",9002313.9219,.02)=""
^DD(9002313.91,0,"PT",9002313.922,.02)=""
^DD(9002313.91,0,"VR")="1.0"
^DD(9002313.91,0,"VRPK")="BPS"
^DD(9002313.91,.01,0)="Number^RNJ6,2^^0;1^K:+X'=X!(X>800)!(X<0)!(X?.E1"".""3N.N) X"
^DD(9002313.91,.01,1,0)="^.1"
^DD(9002313.91,.01,1,1,0)="9002313.91^B"
^DD(9002313.91,.01,1,1,1)="S ^BPSF(9002313.91,""B"",$E(X,1,30),DA)="""""
^DD(9002313.91,.01,1,1,2)="K ^BPSF(9002313.91,""B"",$E(X,1,30),DA)"
^DD(9002313.91,.01,3)="Type a Number between 0 and 800, 2 Decimal Digits"
^DD(9002313.91,.01,21,0)="^^1^1^3040121^"
^DD(9002313.91,.01,21,1,0)="The NCPDP field number from the NCPDP data dictionary."
^DD(9002313.91,.01,"DT")="3030512"
^DD(9002313.91,.03,0)="Name^F^^0;3^K:$L(X)>30!($L(X)<3) X"
^DD(9002313.91,.03,1,0)="^.1"
^DD(9002313.91,.03,1,1,0)="9002313.91^C"
^DD(9002313.91,.03,1,1,1)="S ^BPSF(9002313.91,""C"",$E(X,1,30),DA)="""""
^DD(9002313.91,.03,1,1,2)="K ^BPSF(9002313.91,""C"",$E(X,1,30),DA)"
^DD(9002313.91,.03,1,1,"DT")="3001007"
^DD(9002313.91,.03,3)="Answer must be 3-30 characters in length."
^DD(9002313.91,.03,21,0)="^^2^2^3040121^"
^DD(9002313.91,.03,21,1,0)="Descriptive name the tells what the field is within the"
^DD(9002313.91,.03,21,2,0)="pharmacy environment."
^DD(9002313.91,.03,"DT")="3001007"
^DD(9002313.91,.04,0)="Format^S^N:NUMERIC;A/N:ALPHA/NUMERIC;D:SIGNED NUMERIC;^0;4^Q"
^DD(9002313.91,.04,21,0)="^^2^2^3040121^"
^DD(9002313.91,.04,21,1,0)="M code goes here to format the field before storing it in the"
^DD(9002313.91,.04,21,2,0)="database.  "
^DD(9002313.91,.04,"DT")="2950406"
^DD(9002313.91,.06,0)="5.1 ID^F^^5;1^K:$L(X)>2!($L(X)<2) X"
^DD(9002313.91,.06,1,0)="^.1"
^DD(9002313.91,.06,1,1,0)="9002313.91^D"
^DD(9002313.91,.06,1,1,1)="S ^BPSF(9002313.91,""D"",$E(X,1,30),DA)="""""
^DD(9002313.91,.06,1,1,2)="K ^BPSF(9002313.91,""D"",$E(X,1,30),DA)"
^DD(9002313.91,.06,1,1,"%D",0)="^^3^3^3020807^"
^DD(9002313.91,.06,1,1,"%D",1,0)="Cross reference of the 5.1 Field ID.  This cross reference will be used in"
^DD(9002313.91,.06,1,1,"%D",2,0)="the processing of the response as a means of translating the value to a"
^DD(9002313.91,.06,1,1,"%D",3,0)="field number."
^DD(9002313.91,.06,1,1,"DT")="3020807"
^DD(9002313.91,.06,3)="Answer must be 2 characters in length."
^DD(9002313.91,.06,21,0)="^^3^3^3040121^"
^DD(9002313.91,.06,21,1,0)="The same as the .02 field, but for specific use when creating"
^DD(9002313.91,.06,21,2,0)="5.1 claims.  The 5.1 fields were separated because IHS was doing"
^DD(9002313.91,.06,21,3,0)="3.x and 5.1 claims concurrently."
^DD(9002313.91,.06,"DT")="3020807"
^DD(9002313.91,.07,0)="5.1 Length^NJ4,0^^5;2^K:+X'=X!(X>9999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.91,.07,3)="Type a Number between 1 and 9999, 0 Decimal Digits"
^DD(9002313.91,.07,21,0)="^^1^1^3040121^"
^DD(9002313.91,.07,21,1,0)="Length of the field from the 5.1 NCPDP standard."
^DD(9002313.91,.07,"DT")="3020724"
^DD(9002313.91,10,0)="Get Code^9002313.9101^^10;0"
^DD(9002313.91,10,21,0)="^^2^2^3040121^"
^DD(9002313.91,10,21,1,0)="M code that tells the BPS system where to find the "
^DD(9002313.91,10,21,2,0)="particular piece of data for this field."
^DD(9002313.91,30,0)="Set Code^9002313.9103^^30;0"
^DD(9002313.91,30,21,0)="^^1^1^3040326^"
^DD(9002313.91,30,21,1,0)="M code to store the data in the appropriate segment within the claim."
^DD(9002313.91,40,0)="5.1 Format Code^9002313.9104^^25;0"
^DD(9002313.91,40,21,0)="^.001^3^3^3040326^^"
^DD(9002313.91,40,21,1,0)="M code to format the data before storing it in the claim."
^DD(9002313.91,40,21,2,0)="5.1 was separate within IHS because they were doing 3.2 and"
^DD(9002313.91,40,21,3,0)="5.1 at the same time."
^DD(9002313.91,"B","5.1 Format Code",40)=""
^DD(9002313.91,"B","5.1 ID",.06)=""
^DD(9002313.91,"B","5.1 Length",.07)=""
^DD(9002313.91,"B","Format",.04)=""
^DD(9002313.91,"B","Get Code",10)=""
^DD(9002313.91,"B","Name",.03)=""
^DD(9002313.91,"B","Number",.01)=""
^DD(9002313.91,"B","Set Code",30)=""
^DD(9002313.91,"GL",0,1,.01)=""
^DD(9002313.91,"GL",0,3,.03)=""
^DD(9002313.91,"GL",0,4,.04)=""
^DD(9002313.91,"GL",5,1,.06)=""
^DD(9002313.91,"GL",5,2,.07)=""
^DD(9002313.91,"GL",10,0,10)=""
^DD(9002313.91,"GL",25,0,40)=""
^DD(9002313.91,"GL",30,0,30)=""
^DD(9002313.91,"IX",.01)=""
^DD(9002313.91,"IX",.03)=""
^DD(9002313.91,"IX",.06)=""
^DD(9002313.91,"RQ",.01)=""
^DD(9002313.91,"SB",9002313.9101,10)=""
^DD(9002313.91,"SB",9002313.9103,30)=""
^DD(9002313.91,"SB",9002313.9104,40)=""
^DD(9002313.9101,0)="Get Code SUB-FIELD^^.01^1"
^DD(9002313.9101,0,"DT")="2950420"
^DD(9002313.9101,0,"NM","Get Code")=""
^DD(9002313.9101,0,"UP")="9002313.91"
^DD(9002313.9101,.01,0)="Get Code^WL^^0;1^Q"
^DD(9002313.9101,.01,"DT")="2950420"
^DD(9002313.9101,"B","Get Code",.01)=""
^DD(9002313.9101,"GL",0,1,.01)=""
^DD(9002313.9103,0)="Set Code SUB-FIELD^^.01^1"
^DD(9002313.9103,0,"DT")="2950420"
^DD(9002313.9103,0,"NM","Set Code")=""
^DD(9002313.9103,0,"UP")="9002313.91"
^DD(9002313.9103,.01,0)="Set Code^WL^^0;1^Q"
^DD(9002313.9103,.01,"DT")="2950420"
^DD(9002313.9103,"B","Set Code",.01)=""
^DD(9002313.9103,"GL",0,1,.01)=""
^DD(9002313.9104,0)="5.1 Format Code SUB-FIELD^^.01^1"
^DD(9002313.9104,0,"DT")="3020724"
^DD(9002313.9104,0,"NM","5.1 Format Code")=""
^DD(9002313.9104,0,"UP")="9002313.91"
^DD(9002313.9104,.01,0)="5.1 Format Code^WL^^0;1^Q"
^DD(9002313.9104,.01,"DT")="3020724"
^DD(9002313.9104,"B","5.1 Format Code",.01)=""
^DD(9002313.9104,"GL",0,1,.01)=""
^DD(9002313.92,0)="FIELD^^1901^35"
^DD(9002313.92,0,"DDA")="N"
^DD(9002313.92,0,"DT")="3051230"
^DD(9002313.92,0,"IX","B",9002313.92,.01)=""
^DD(9002313.92,0,"IX","C",9002313.92,1.01)=""
^DD(9002313.92,0,"IX","D",9002313.92,1.04)=""
^DD(9002313.92,0,"NM","BPS NCPDP FORMATS")=""
^DD(9002313.92,0,"PT",366.03,10.07)=""
^DD(9002313.92,0,"PT",366.03,10.08)=""
^DD(9002313.92,0,"PT",366.03,10.09)=""
^DD(9002313.92,0,"PT",366.03,10.11)=""
^DD(9002313.92,0,"PT",366.03,10.12)=""
^DD(9002313.92,0,"PT",366.03,10.13)=""
^DD(9002313.92,0,"PT",9002313.02,.02)=""
^DD(9002313.92,0,"PT",9002313.31,.04)=""
^DD(9002313.92,0,"PT",9002313.31902,1)=""
^DD(9002313.92,0,"PT",9002313.57,803)=""
^DD(9002313.92,0,"PT",9002313.57902,902.02)=""
^DD(9002313.92,0,"PT",9002313.57902,902.19)=""
^DD(9002313.92,0,"PT",9002313.57902,902.21)=""
^DD(9002313.92,0,"PT",9002313.59,803)=""
^DD(9002313.92,0,"PT",9002313.59902,902.02)=""
^DD(9002313.92,0,"PT",9002313.59902,902.19)=""
^DD(9002313.92,0,"PT",9002313.59902,902.21)=""
^DD(9002313.92,0,"PT",9002313.92,1001)=""
^DD(9002313.92,0,"VR")="1.0"
^DD(9002313.92,0,"VRPK")="BPS"
^DD(9002313.92,.01,0)="Record Format Name^RF^^0;1^K:$L(X)>30!($L(X)<3) X"
^DD(9002313.92,.01,1,0)="^.1"
^DD(9002313.92,.01,1,1,0)="9002313.92^B"
^DD(9002313.92,.01,1,1,1)="S ^BPSF(9002313.92,""B"",$E(X,1,30),DA)="""""
^DD(9002313.92,.01,1,1,2)="K ^BPSF(9002313.92,""B"",$E(X,1,30),DA)"
^DD(9002313.92,.01,3)="Answer must be 3-30 characters in length."
^DD(9002313.92,.01,21,0)="^.001^1^1^3040220^^"
^DD(9002313.92,.01,21,1,0)="Textual description of this record format."
^DD(9002313.92,.01,"DT")="3031125"
^DD(9002313.92,1.01,0)="NDC BIN Number^F^^1;1^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.92,1.01,1,0)="^.1"
^DD(9002313.92,1.01,1,1,0)="9002313.92^C"
^DD(9002313.92,1.01,1,1,1)="S ^BPSF(9002313.92,""C"",$E(X,1,30),DA)="""""
^DD(9002313.92,1.01,1,1,2)="K ^BPSF(9002313.92,""C"",$E(X,1,30),DA)"
^DD(9002313.92,1.01,1,1,"DT")="3010112"
^DD(9002313.92,1.01,3)="Answer must be 1-10 characters in length."
^DD(9002313.92,1.01,21,0)="^^1^1^3031125^"
^DD(9002313.92,1.01,21,1,0)="Identifying number for this format."
^DD(9002313.92,1.01,"DT")="3031125"
^DD(9002313.92,1.02,0)="Version^S^32:Version 3.2;3A:Version 3.A;3C:Version 3.C;3B:Version 3.B;51:Version 5.1;^1;2^Q"
^DD(9002313.92,1.02,21,0)="^^1^1^3031125^"
^DD(9002313.92,1.02,21,1,0)="Version number under which this format is sent."
^DD(9002313.92,1.02,"DT")="3031125"
^DD(9002313.92,1.03,0)="Maximum RX's Per Claim^NJ2,0^^1;3^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.92,1.03,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9002313.92,1.03,21,0)="^^2^2^3031125^"
^DD(9002313.92,1.03,21,1,0)="Integer value indicating the maximum number of prescriptions that can be "
^DD(9002313.92,1.03,21,2,0)="sent per claim number."
^DD(9002313.92,1.03,"DT")="3031125"
^DD(9002313.92,1.04,0)="Envoy Plan Number^NJ6,0^^1;4^K:+X'=X!(X>999999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.92,1.04,1,0)="^.1"
^DD(9002313.92,1.04,1,1,0)="9002313.92^D"
^DD(9002313.92,1.04,1,1,1)="S ^BPSF(9002313.92,""D"",$E(X,1,30),DA)="""""
^DD(9002313.92,1.04,1,1,2)="K ^BPSF(9002313.92,""D"",$E(X,1,30),DA)"
^DD(9002313.92,1.04,1,1,"DT")="3010112"
^DD(9002313.92,1.04,3)="Type a Number between 1 and 999999, 0 Decimal Digits"
^DD(9002313.92,1.04,21,0)="^^1^1^3000918^"
^DD(9002313.92,1.04,21,1,0)="Like a Bin number, but it's Envoy's version of it."
^DD(9002313.92,1.04,"DT")="3010112"
^DD(9002313.92,1.05,0)="Help Telephone #^F^^1;5^K:$L(X)>30!($L(X)<1) X"
^DD(9002313.92,1.05,3)="Answer must be 1-30 characters in length."
^DD(9002313.92,1.05,21,0)="^^10^10^3001110^^"
^DD(9002313.92,1.05,21,1,0)="This is the telephone number to call for assistance in figuring out"
^DD(9002313.92,1.05,21,2,0)="rejected claims.  There is another place for such a phone number, in"
^DD(9002313.92,1.05,21,3,0)="the BPS INSURER file, file #9002313.4, field 100.05 - that insurer-"
^DD(9002313.92,1.05,21,4,0)="specific number takes precedence over this number when printing reports."
^DD(9002313.92,1.05,21,5,0)="The reason for having this number is that we can ship it as part of"
^DD(9002313.92,1.05,21,6,0)="the formats (saving individual sites the trouble of finding it and"
^DD(9002313.92,1.05,21,7,0)="typing it in.)  And also, it saves the trouble of typing the same number"
^DD(9002313.92,1.05,21,8,0)="into multiple insurance companies' records, such as when you have a half"
^DD(9002313.92,1.05,21,9,0)="dozen flavors of PCS or if you have a monolith like Paid Prescriptions"
^DD(9002313.92,1.05,21,10,0)="acting as an umbrella for lots of insurances."
^DD(9002313.92,1.05,"DT")="3001003"
^DD(9002313.92,1.06,0)="Production/Testing Status^*S^0:DISABLED;1:DEVELOPMENT;2:FIELD TESTING;3:PRODUCTION;^1;6^Q"
^DD(9002313.92,1.06,12)="Programmer may select any.  Others: may select only formats in FIELD TESTING or PRODUCTION."
^DD(9002313.92,1.06,12.1)="S DIC(""S"")=""I Y=2!(Y=3)!(DUZ(0)=""""@"""")"""
^DD(9002313.92,1.06,21,0)="^^3^3^3001115^"
^DD(9002313.92,1.06,21,1,0)="To be used as a screen when attaching a format to an insurer."
^DD(9002313.92,1.06,21,2,0)="Don't allow non-production formats.  Those will have to be entered"
^DD(9002313.92,1.06,21,3,0)="directly with Fileman."
^DD(9002313.92,1.06,"DT")="3010119"
^DD(9002313.92,1.07,0)="Is A Reversal Format^S^1:YES;0:NO;^1;7^Q"
^DD(9002313.92,1.07,21,0)="^^2^2^3001115^"
^DD(9002313.92,1.07,21,1,0)="To be used as a screen when selecting format to attach to an insurance."
^DD(9002313.92,1.07,21,2,0)="Don't allow reversal format to be selected as the insurance's format!"
^DD(9002313.92,1.07,"DT")="3001115"
^DD(9002313.92,1.08,0)="Add Disp. Fee to Ingr. Cost^S^1:YES;0:NO;^1;8^Q"
^DD(9002313.92,1.08,21,0)="^^4^4^3010109^"
^DD(9002313.92,1.08,21,1,0)="Many formats expect the Ingredient Cost to include the Dispensing Fee, too."
^DD(9002313.92,1.08,21,2,0)="The default for this is ""YES""."
^DD(9002313.92,1.08,21,3,0)="Set this field to NO for any formats that should have only the"
^DD(9002313.92,1.08,21,4,0)="Ingredient Cost in the Ingredient Cost, exclusive of Dispensing Fee."
^DD(9002313.92,1.08,"DT")="3010109"
^DD(9002313.92,1.09,0)="Contract Required^S^1:YES;0:NO;U:UNK;D:DONE;^1;9^Q"
^DD(9002313.92,1.09,21,0)="^^3^3^3010119^^^^"
^DD(9002313.92,1.09,21,1,0)="Does the pharmacy need a contract with the payor in order to submit claims?"
^DD(9002313.92,1.09,21,2,0)="Yes, No, Unknown, and Done"
^DD(9002313.92,1.09,21,3,0)="""Done"" means done nationally, for all IHS sites."
^DD(9002313.92,1.09,"DT")="3010119"
^DD(9002313.92,1.1,0)="Total exclusive of Patient Amt^S^1:Y;0:N;^1;10^Q"
^DD(9002313.92,1.1,21,0)="^^13^13^3010207^"
^DD(9002313.92,1.1,21,1,0)="This refers to the interpretation of the fields in the response packets,"
^DD(9002313.92,1.1,21,2,0)="as copied to 9002313.03, Response(s) multiple, "
^DD(9002313.92,1.1,21,3,0)="fields 509 Total Amount Paid and 505 Patient Paid Amount."
^DD(9002313.92,1.1,21,4,0)="For most formats and insurers, it seems, 509 Total Amount Paid"
^DD(9002313.92,1.1,21,5,0)="means Total, Patient plus Insurer.."
^DD(9002313.92,1.1,21,6,0)="But BC/BS ARIZONA doesn't do it that way - for them, 509 contains"
^DD(9002313.92,1.1,21,7,0)="only the amount paid by insurance."
^DD(9002313.92,1.1,21,8,0)="$$NETPAID1 needs to know whether to do the subtraction."
^DD(9002313.92,1.1,21,9,0)="If $$NETPAID1 encounters a case where (#509)<(#505), "
^DD(9002313.92,1.1,21,10,0)="it will set the flag in the format, locally."
^DD(9002313.92,1.1,21,11,0)="But we try to stay ahead of the curve and ship the flag where needed."
^DD(9002313.92,1.1,21,12,0)="So as of today (Feb. 7, 2001) we ship this flag set for BC/BS ARIZONA "
^DD(9002313.92,1.1,21,13,0)="format."
^DD(9002313.92,1.1,"DT")="3010207"
^DD(9002313.92,1.11,0)="ASLEEP PROBER^P9002313.59'^BPST(^1;11^Q"
^DD(9002313.92,1.11,3)="Enter the claim to test whether the insurer is awake"
^DD(9002313.92,1.11,21,0)="^^2^2^3060105^"
^DD(9002313.92,1.11,21,1,0)="The BPS Transaction used as the test prober to test when the insurer is "
^DD(9002313.92,1.11,21,2,0)="'awake'."
^DD(9002313.92,1.11,"DT")="3060105"
^DD(9002313.92,1.12,0)="ASLEEP RETRY TIME^D^^1;12^S %DT=""EST"" D ^%DT S X=Y K:X<1 X"
^DD(9002313.92,1.12,3)="Enter date/time when to retry sending to payer"
^DD(9002313.92,1.12,21,0)="^^1^1^3060105^"
^DD(9002313.92,1.12,21,1,0)="The time to wait before re-trying to see if the insure is 'awake'."
^DD(9002313.92,1.12,"DT")="3060105"
^DD(9002313.92,1.13,0)="SOFTWARE VENDOR/CERT ID^F^^1;13^K:$L(X)>10!($L(X)<1) X"
^DD(9002313.92,1.13,3)="Answer must be 1-10 characters in length."
^DD(9002313.92,1.13,21,0)="^^2^2^3040220^"
^DD(9002313.92,1.13,21,1,0)="Certification ID number assigned by the payer or processor to indicate "
^DD(9002313.92,1.13,21,2,0)="that the entity particular payer or processor. "
^DD(9002313.92,1.13,"DT")="3030707"
^DD(9002313.92,1.14,0)="PAYER SHEET VERSION^RNJ4,0^^1;14^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.92,1.14,3)="Type a Number between 0 and 9999, 0 Decimal Digits"
^DD(9002313.92,1.14,21,0)="^^1^1^3040220^"
^DD(9002313.92,1.14,21,1,0)="Which version of the NCPDP standard this payer sheet is for."
^DD(9002313.92,1.14,"DT")="3031204"
^DD(9002313.92,10,0)="Claim Header (Required)^9002313.9201A^^10;0"
^DD(9002313.92,10,21,0)="^.001^2^2^3040220^^^"
^DD(9002313.92,10,21,1,0)="Information that is inserted into the header portion of the transmission "
^DD(9002313.92,10,21,2,0)="which identifies the submitter to the payer.  "
^DD(9002313.92,20,0)="Claim Header (Optional)^9002313.9202A^^20;0"
^DD(9002313.92,20,21,0)="^.001^1^1^3040220^^"
^DD(9002313.92,20,21,1,0)="Additional special handling segments for the claim header. "
^DD(9002313.92,30,0)="Claim Information (Required)^9002313.9203A^^30;0"
^DD(9002313.92,30,21,0)="^^1^1^3040220^"
^DD(9002313.92,30,21,1,0)="Additional claim segment manipulations.  "
^DD(9002313.92,40,0)="Claim Information (Optional)^9002313.9204A^^40;0"
^DD(9002313.92,100,0)="5.1 Transaction Header Segment^9002313.9205A^^100;0"
^DD(9002313.92,100,"DT")="3020801"
^DD(9002313.92,110,0)="5.1 Patient Segment^9002313.9206A^^110;0"
^DD(9002313.92,120,0)="5.1 Insurance Segment^9002313.9207A^^120;0"
^DD(9002313.92,130,0)="5.1 Claim Segment^9002313.9208A^^130;0"
^DD(9002313.92,140,0)="5.1 Pharmacy Provider Segment^9002313.9209A^^140;0"
^DD(9002313.92,150,0)="5.1 Prescriber Segment^9002313.921A^^150;0"
^DD(9002313.92,160,0)="5.1 COB/Other Payments Segment^9002313.9213A^^160;0"
^DD(9002313.92,170,0)="5.1 Workers Comp Segment^9002313.9214A^^170;0"
^DD(9002313.92,180,0)="5.1 DUR/PPS Segment^9002313.9215A^^180;0"
^DD(9002313.92,190,0)="5.1 Pricing Segment^9002313.9216A^^190;0"
^DD(9002313.92,200,0)="5.1 Coupon Segment^9002313.9217A^^200;0"
^DD(9002313.92,210,0)="5.1 Compound Segment^9002313.9218A^^210;0"
^DD(9002313.92,220,0)="5.1 Prior Auth Segment^9002313.9219A^^220;0"
^DD(9002313.92,230,0)="5.1 Clinical Segment^9002313.922A^^230;0"
^DD(9002313.92,1001,0)="Reversal Format^P9002313.92'^BPSF(9002313.92,^REVERSAL;1^Q"
^DD(9002313.92,1001,21,0)="^^1^1^3040220^"
^DD(9002313.92,1001,21,1,0)="The name of the payer sheet that is to be used for reversals."
^DD(9002313.92,1001,"DT")="3040220"
^DD(9002313.92,1901,0)="Developer's Remarks^9002313.921901^^DEVELOPER'S REMARKS;0"
^DD(9002313.92,1901,21,0)="^^2^2^3040220^"
^DD(9002313.92,1901,21,1,0)="General remarks for the payer sheet, anything that will help describe the "
^DD(9002313.92,1901,21,2,0)="function of the sheet, etc.  "
^DD(9002313.92,1901,"DT")="3010117"
^DD(9002313.92,"B","5.1 COB/Other Payments Segment",160)=""
^DD(9002313.92,"B","5.1 Claim Segment",130)=""
^DD(9002313.92,"B","5.1 Clinical Segment",230)=""
^DD(9002313.92,"B","5.1 Compound Segment",210)=""
^DD(9002313.92,"B","5.1 Coupon Segment",200)=""
^DD(9002313.92,"B","5.1 DUR/PPS Segment",180)=""
^DD(9002313.92,"B","5.1 Insurance Segment",120)=""
^DD(9002313.92,"B","5.1 Patient Segment",110)=""
^DD(9002313.92,"B","5.1 Pharmacy Provider Segment",140)=""
^DD(9002313.92,"B","5.1 Prescriber Segment",150)=""
^DD(9002313.92,"B","5.1 Pricing Segment",190)=""
^DD(9002313.92,"B","5.1 Prior Auth Segment",220)=""
^DD(9002313.92,"B","5.1 Transaction Header Segment",100)=""
^DD(9002313.92,"B","5.1 Workers Comp Segment",170)=""
^DD(9002313.92,"B","ASLEEP PROBER",1.11)=""
^DD(9002313.92,"B","ASLEEP RETRY TIME",1.12)=""
^DD(9002313.92,"B","Add Disp. Fee to Ingr. Cost",1.08)=""
^DD(9002313.92,"B","Claim Header (Optional)",20)=""
^DD(9002313.92,"B","Claim Header (Required)",10)=""
^DD(9002313.92,"B","Claim Information (Optional)",40)=""
^DD(9002313.92,"B","Claim Information (Required)",30)=""
^DD(9002313.92,"B","Contract Required",1.09)=""
^DD(9002313.92,"B","Developer's Remarks",1901)=""
^DD(9002313.92,"B","Envoy Plan Number",1.04)=""
^DD(9002313.92,"B","Help Telephone #",1.05)=""
^DD(9002313.92,"B","Is A Reversal Format",1.07)=""
^DD(9002313.92,"B","Maximum RX's Per Claim",1.03)=""
^DD(9002313.92,"B","NDC BIN Number",1.01)=""
^DD(9002313.92,"B","PAYER SHEET VERSION",1.14)=""
^DD(9002313.92,"B","Production/Testing Status",1.06)=""
^DD(9002313.92,"B","Record Format Name",.01)=""
^DD(9002313.92,"B","Reversal Format",1001)=""
^DD(9002313.92,"B","SOFTWARE VENDOR/CERT ID",1.13)=""
^DD(9002313.92,"B","Total exclusive of Patient Amt",1.1)=""
^DD(9002313.92,"B","Version",1.02)=""
^DD(9002313.92,"GL",0,1,.01)=""
^DD(9002313.92,"GL",1,1,1.01)=""
^DD(9002313.92,"GL",1,2,1.02)=""
^DD(9002313.92,"GL",1,3,1.03)=""
^DD(9002313.92,"GL",1,4,1.04)=""
^DD(9002313.92,"GL",1,5,1.05)=""
^DD(9002313.92,"GL",1,6,1.06)=""
^DD(9002313.92,"GL",1,7,1.07)=""
^DD(9002313.92,"GL",1,8,1.08)=""
^DD(9002313.92,"GL",1,9,1.09)=""
^DD(9002313.92,"GL",1,10,1.1)=""
^DD(9002313.92,"GL",1,11,1.11)=""
^DD(9002313.92,"GL",1,12,1.12)=""
^DD(9002313.92,"GL",1,13,1.13)=""
^DD(9002313.92,"GL",1,14,1.14)=""
^DD(9002313.92,"GL",10,0,10)=""
^DD(9002313.92,"GL",20,0,20)=""
^DD(9002313.92,"GL",30,0,30)=""
^DD(9002313.92,"GL",40,0,40)=""
^DD(9002313.92,"GL",100,0,100)=""
^DD(9002313.92,"GL",110,0,110)=""
^DD(9002313.92,"GL",120,0,120)=""
^DD(9002313.92,"GL",130,0,130)=""
^DD(9002313.92,"GL",140,0,140)=""
^DD(9002313.92,"GL",150,0,150)=""
^DD(9002313.92,"GL",160,0,160)=""
^DD(9002313.92,"GL",170,0,170)=""
^DD(9002313.92,"GL",180,0,180)=""
^DD(9002313.92,"GL",190,0,190)=""
^DD(9002313.92,"GL",200,0,200)=""
^DD(9002313.92,"GL",210,0,210)=""
^DD(9002313.92,"GL",220,0,220)=""
^DD(9002313.92,"GL",230,0,230)=""
^DD(9002313.92,"GL","DEVELOPER'S REMARKS",0,1901)=""
^DD(9002313.92,"GL","REVERSAL",1,1001)=""
^DD(9002313.92,"IX",.01)=""
^DD(9002313.92,"IX",1.01)=""
^DD(9002313.92,"IX",1.04)=""
^DD(9002313.92,"RQ",.01)=""
^DD(9002313.92,"RQ",1.14)=""
^DD(9002313.92,"SB",9002313.9201,10)=""
^DD(9002313.92,"SB",9002313.9202,20)=""
^DD(9002313.92,"SB",9002313.9203,30)=""
^DD(9002313.92,"SB",9002313.9204,40)=""
^DD(9002313.92,"SB",9002313.9205,100)=""
^DD(9002313.92,"SB",9002313.9206,110)=""
^DD(9002313.92,"SB",9002313.9207,120)=""
^DD(9002313.92,"SB",9002313.9208,130)=""
^DD(9002313.92,"SB",9002313.9209,140)=""
^DD(9002313.92,"SB",9002313.921,150)=""
^DD(9002313.92,"SB",9002313.9213,160)=""
^DD(9002313.92,"SB",9002313.9214,170)=""
^DD(9002313.92,"SB",9002313.9215,180)=""
^DD(9002313.92,"SB",9002313.9216,190)=""
^DD(9002313.92,"SB",9002313.9217,200)=""
^DD(9002313.92,"SB",9002313.9218,210)=""
^DD(9002313.92,"SB",9002313.9219,220)=""
^DD(9002313.92,"SB",9002313.921901,1901)=""
^DD(9002313.92,"SB",9002313.922,230)=""
^DD(9002313.9201,0)="Claim Header (Required) SUB-FIELD^^2^5"
^DD(9002313.9201,0,"DT")="3031210"
^DD(9002313.9201,0,"IX","B",9002313.9201,.01)=""
^DD(9002313.9201,0,"NM","Claim Header (Required)")=""
^DD(9002313.9201,0,"UP")="9002313.92"
^DD(9002313.9201,.01,0)="Claim Header (Required) Order^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9201,.01,1,0)="^.1"
^DD(9002313.9201,.01,1,1,0)="9002313.9201^B"
^DD(9002313.9201,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9201,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),10,""B"",$E(X,1,30),DA)"
^DD(9002313.9201,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9002313.9201,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9201,.01,21,1,0)="The indicator that determines the type of transmission being sent."
^DD(9002313.9201,.01,"DT")="3040220"
^DD(9002313.9201,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9201,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9201,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9201,.02,"DT")="3040220"
^DD(9002313.9201,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;UNK:UNKNOWN;^0;3^Q"
^DD(9002313.9201,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9201,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9201,.03,"DT")="3040220"
^DD(9002313.9201,1,0)="Special Code^9002313.92011^^1;0"
^DD(9002313.9201,1,21,0)="^^1^1^3040220^"
^DD(9002313.9201,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9201,2,0)="Programming Notes^9002313.92012^^2;0"
^DD(9002313.9201,2,21,0)="^^1^1^3040220^"
^DD(9002313.9201,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9201,"B","Claim Header (Required) Order",.01)=""
^DD(9002313.9201,"B","NCPDP Field Number",.02)=""
^DD(9002313.9201,"B","Processing Mode",.03)=""
^DD(9002313.9201,"B","Programming Notes",2)=""
^DD(9002313.9201,"B","Special Code",1)=""
^DD(9002313.9201,"GL",0,1,.01)=""
^DD(9002313.9201,"GL",0,2,.02)=""
^DD(9002313.9201,"GL",0,3,.03)=""
^DD(9002313.9201,"GL",1,0,1)=""
^DD(9002313.9201,"GL",2,0,2)=""
^DD(9002313.9201,"IX",.01)=""
^DD(9002313.9201,"SB",9002313.92011,1)=""
^DD(9002313.9201,"SB",9002313.92012,2)=""
^DD(9002313.92011,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92011,0,"DT")="2950420"
^DD(9002313.92011,0,"NM","Special Code")=""
^DD(9002313.92011,0,"UP")="9002313.9201"
^DD(9002313.92011,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92011,.01,"DT")="2950420"
^DD(9002313.92011,"B","Special Code",.01)=""
^DD(9002313.92011,"GL",0,1,.01)=""
^DD(9002313.92012,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92012,0,"DT")="2950421"
^DD(9002313.92012,0,"NM","Programming Notes")=""
^DD(9002313.92012,0,"UP")="9002313.9201"
^DD(9002313.92012,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92012,.01,"DT")="2950421"
^DD(9002313.92012,"B","Programming Notes",.01)=""
^DD(9002313.92012,"GL",0,1,.01)=""
^DD(9002313.9202,0)="Claim Header (Optional) SUB-FIELD^^2^5"
^DD(9002313.9202,0,"DT")="2950520"
^DD(9002313.9202,0,"IX","B",9002313.9202,.01)=""
^DD(9002313.9202,0,"NM","Claim Header (Optional)")=""
^DD(9002313.9202,0,"UP")="9002313.92"
^DD(9002313.9202,.01,0)="Claim Header (Optional) Order^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9202,.01,1,0)="^.1"
^DD(9002313.9202,.01,1,1,0)="9002313.9202^B"
^DD(9002313.9202,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),20,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9202,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),20,""B"",$E(X,1,30),DA)"
^DD(9002313.9202,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9002313.9202,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9202,.01,21,1,0)="Identification of the header segment."
^DD(9002313.9202,.01,"DT")="3040220"
^DD(9002313.9202,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9202,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9202,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9202,.02,"DT")="3040220"
^DD(9002313.9202,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9202,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9202,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9202,.03,"DT")="3040220"
^DD(9002313.9202,1,0)="Special Code^9002313.92021^^1;0"
^DD(9002313.9202,1,21,0)="^^1^1^3040220^"
^DD(9002313.9202,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be excuted."
^DD(9002313.9202,2,0)="Programming Notes^9002313.92022^^2;0"
^DD(9002313.9202,2,21,0)="^^1^1^3040220^"
^DD(9002313.9202,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9202,"B","Claim Header (Optional) Order",.01)=""
^DD(9002313.9202,"B","NCPDP Field Number",.02)=""
^DD(9002313.9202,"B","Processing Mode",.03)=""
^DD(9002313.9202,"B","Programming Notes",2)=""
^DD(9002313.9202,"B","Special Code",1)=""
^DD(9002313.9202,"GL",0,1,.01)=""
^DD(9002313.9202,"GL",0,2,.02)=""
^DD(9002313.9202,"GL",0,3,.03)=""
^DD(9002313.9202,"GL",1,0,1)=""
^DD(9002313.9202,"GL",2,0,2)=""
^DD(9002313.9202,"IX",.01)=""
^DD(9002313.9202,"SB",9002313.92021,1)=""
^DD(9002313.9202,"SB",9002313.92022,2)=""
^DD(9002313.92021,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92021,0,"DT")="2950420"
^DD(9002313.92021,0,"NM","Special Code")=""
^DD(9002313.92021,0,"UP")="9002313.9202"
^DD(9002313.92021,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92021,.01,"DT")="2950420"
^DD(9002313.92021,"B","Special Code",.01)=""
^DD(9002313.92021,"GL",0,1,.01)=""
^DD(9002313.92022,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92022,0,"DT")="2950421"
^DD(9002313.92022,0,"NM","Programming Notes")=""
^DD(9002313.92022,0,"UP")="9002313.9202"
^DD(9002313.92022,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92022,.01,"DT")="2950421"
^DD(9002313.92022,"B","Programming Notes",.01)=""
^DD(9002313.92022,"GL",0,1,.01)=""
^DD(9002313.9203,0)="Claim Information (Required) SUB-FIELD^^2^5"
^DD(9002313.9203,0,"DT")="2950520"
^DD(9002313.9203,0,"IX","B",9002313.9203,.01)=""
^DD(9002313.9203,0,"NM","Claim Information (Required)")=""
^DD(9002313.9203,0,"UP")="9002313.92"
^DD(9002313.9203,.01,0)="Claim Info (Required) Order^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9203,.01,1,0)="^.1"
^DD(9002313.9203,.01,1,1,0)="9002313.9203^B"
^DD(9002313.9203,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),30,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9203,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),30,""B"",$E(X,1,30),DA)"
^DD(9002313.9203,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9002313.9203,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9203,.01,21,1,0)="Header segment ID."
^DD(9002313.9203,.01,"DT")="3040220"
^DD(9002313.9203,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9203,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9203,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9203,.02,"DT")="3040220"
^DD(9002313.9203,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9203,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9203,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9203,.03,"DT")="3040220"
^DD(9002313.9203,1,0)="Special Code^9002313.92031^^1;0"
^DD(9002313.9203,1,21,0)="^^1^1^3040220^"
^DD(9002313.9203,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9203,2,0)="Programming Notes^9002313.92032^^2;0"
^DD(9002313.9203,2,21,0)="^^1^1^3040220^^^"
^DD(9002313.9203,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9203,"B","Claim Info (Required) Order",.01)=""
^DD(9002313.9203,"B","NCPDP Field Number",.02)=""
^DD(9002313.9203,"B","Processing Mode",.03)=""
^DD(9002313.9203,"B","Programming Notes",2)=""
^DD(9002313.9203,"B","Special Code",1)=""
^DD(9002313.9203,"GL",0,1,.01)=""
^DD(9002313.9203,"GL",0,2,.02)=""
^DD(9002313.9203,"GL",0,3,.03)=""
^DD(9002313.9203,"GL",1,0,1)=""
^DD(9002313.9203,"GL",2,0,2)=""
^DD(9002313.9203,"IX",.01)=""
^DD(9002313.9203,"SB",9002313.92031,1)=""
^DD(9002313.9203,"SB",9002313.92032,2)=""
^DD(9002313.92031,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92031,0,"DT")="2950420"
^DD(9002313.92031,0,"NM","Special Code")=""
^DD(9002313.92031,0,"UP")="9002313.9203"
^DD(9002313.92031,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92031,.01,"DT")="2950420"
^DD(9002313.92031,"B","Special Code",.01)=""
^DD(9002313.92031,"GL",0,1,.01)=""
^DD(9002313.92032,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92032,0,"DT")="2950421"
^DD(9002313.92032,0,"NM","Programming Notes")=""
^DD(9002313.92032,0,"UP")="9002313.9203"
^DD(9002313.92032,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92032,.01,"DT")="2950421"
^DD(9002313.92032,"B","Programming Notes",.01)=""
^DD(9002313.92032,"GL",0,1,.01)=""
^DD(9002313.9204,0)="Claim Information (Optional) SUB-FIELD^^2^5"
^DD(9002313.9204,0,"DT")="2950520"
^DD(9002313.9204,0,"IX","B",9002313.9204,.01)=""
^DD(9002313.9204,0,"NM","Claim Information (Optional)")=""
^DD(9002313.9204,0,"UP")="9002313.92"
^DD(9002313.9204,.01,0)="Claim Info (Optional) Order^MNJ2,0^^0;1^K:+X'=X!(X>99)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9204,.01,1,0)="^.1"
^DD(9002313.9204,.01,1,1,0)="9002313.9204^B"
^DD(9002313.9204,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),40,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9204,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),40,""B"",$E(X,1,30),DA)"
^DD(9002313.9204,.01,3)="Type a Number between 1 and 99, 0 Decimal Digits"
^DD(9002313.9204,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9204,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9204,.01,"DT")="3040220"
^DD(9002313.9204,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9204,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9204,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9204,.02,"DT")="3040220"
^DD(9002313.9204,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9204,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9204,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9204,.03,"DT")="3040220"
^DD(9002313.9204,1,0)="Special Code^9002313.92041^^1;0"
^DD(9002313.9204,1,21,0)="^^1^1^3040220^"
^DD(9002313.9204,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9204,2,0)="Programming Notes^9002313.92042^^2;0"
^DD(9002313.9204,"B","Claim Info (Optional) Order",.01)=""
^DD(9002313.9204,"B","NCPDP Field Number",.02)=""
^DD(9002313.9204,"B","Processing Mode",.03)=""
^DD(9002313.9204,"B","Programming Notes",2)=""
^DD(9002313.9204,"B","Special Code",1)=""
^DD(9002313.9204,"GL",0,1,.01)=""
^DD(9002313.9204,"GL",0,2,.02)=""
^DD(9002313.9204,"GL",0,3,.03)=""
^DD(9002313.9204,"GL",1,0,1)=""
^DD(9002313.9204,"GL",2,0,2)=""
^DD(9002313.9204,"IX",.01)=""
^DD(9002313.9204,"SB",9002313.92041,1)=""
^DD(9002313.9204,"SB",9002313.92042,2)=""
^DD(9002313.92041,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92041,0,"DT")="2950420"
^DD(9002313.92041,0,"NM","Special Code")=""
^DD(9002313.92041,0,"UP")="9002313.9204"
^DD(9002313.92041,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92041,.01,"DT")="2950420"
^DD(9002313.92041,"B","Special Code",.01)=""
^DD(9002313.92041,"GL",0,1,.01)=""
^DD(9002313.92042,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92042,0,"DT")="2950421"
^DD(9002313.92042,0,"NM","Programming Notes")=""
^DD(9002313.92042,0,"UP")="9002313.9204"
^DD(9002313.92042,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92042,.01,"DT")="2950421"
^DD(9002313.92042,"B","Programming Notes",.01)=""
^DD(9002313.92042,"GL",0,1,.01)=""
^DD(9002313.9205,0)="5.1 Transaction Header Segment SUB-FIELD^^2^5"
^DD(9002313.9205,0,"DT")="3031223"
^DD(9002313.9205,0,"IX","B",9002313.9205,.01)=""
^DD(9002313.9205,0,"NM","5.1 Transaction Header Segment")=""
^DD(9002313.9205,0,"UP")="9002313.92"
^DD(9002313.9205,.01,0)="5.1 Transaction Header Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9205,.01,1,0)="^.1"
^DD(9002313.9205,.01,1,1,0)="9002313.9205^B"
^DD(9002313.9205,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),100,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9205,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),100,""B"",$E(X,1,30),DA)"
^DD(9002313.9205,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9205,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9205,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9205,.01,"DT")="3040220"
^DD(9002313.9205,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9205,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9205,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9205,.02,"DT")="3040220"
^DD(9002313.9205,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;U:UNKNOWN;^0;3^Q"
^DD(9002313.9205,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9205,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9205,.03,"DT")="3040220"
^DD(9002313.9205,1,0)="Special Code^9002313.92051^^1;0"
^DD(9002313.9205,1,21,0)="^^1^1^3040220^"
^DD(9002313.9205,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9205,2,0)="Programming Notes^9002313.92052^^2;0"
^DD(9002313.9205,2,21,0)="^^1^1^3040220^"
^DD(9002313.9205,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9205,"B","5.1 Transaction Header Order",.01)=""
^DD(9002313.9205,"B","NCPDP Field Number",.02)=""
^DD(9002313.9205,"B","Processing Mode",.03)=""
^DD(9002313.9205,"B","Programming Notes",2)=""
^DD(9002313.9205,"B","Special Code",1)=""
^DD(9002313.9205,"GL",0,1,.01)=""
^DD(9002313.9205,"GL",0,2,.02)=""
^DD(9002313.9205,"GL",0,3,.03)=""
^DD(9002313.9205,"GL",1,0,1)=""
^DD(9002313.9205,"GL",2,0,2)=""
^DD(9002313.9205,"IX",.01)=""
^DD(9002313.9205,"SB",9002313.92051,1)=""
^DD(9002313.9205,"SB",9002313.92052,2)=""
^DD(9002313.92051,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92051,0,"DT")="3020801"
^DD(9002313.92051,0,"NM","Special Code")=""
^DD(9002313.92051,0,"UP")="9002313.9205"
^DD(9002313.92051,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92051,.01,"DT")="3020801"
^DD(9002313.92051,"B","Special Code",.01)=""
^DD(9002313.92051,"GL",0,1,.01)=""
^DD(9002313.92052,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92052,0,"DT")="3020801"
^DD(9002313.92052,0,"NM","Programming Notes")=""
^DD(9002313.92052,0,"UP")="9002313.9205"
^DD(9002313.92052,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92052,.01,"DT")="3020801"
^DD(9002313.92052,"B","Programming Notes",.01)=""
^DD(9002313.92052,"GL",0,1,.01)=""
^DD(9002313.9206,0)="5.1 Patient Segment SUB-FIELD^^2^5"
^DD(9002313.9206,0,"DT")="3031223"
^DD(9002313.9206,0,"IX","B",9002313.9206,.01)=""
^DD(9002313.9206,0,"NM","5.1 Patient Segment")=""
^DD(9002313.9206,0,"UP")="9002313.92"
^DD(9002313.9206,.01,0)="5.1 Patient Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9206,.01,1,0)="^.1"
^DD(9002313.9206,.01,1,1,0)="9002313.9206^B"
^DD(9002313.9206,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),110,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9206,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),110,""B"",$E(X,1,30),DA)"
^DD(9002313.9206,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9206,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9206,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9206,.01,"DT")="3040220"
^DD(9002313.9206,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9206,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9206,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9206,.02,"DT")="3040220"
^DD(9002313.9206,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9206,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9206,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9206,.03,"DT")="3040220"
^DD(9002313.9206,1,0)="Special Code^9002313.92061^^1;0"
^DD(9002313.9206,1,21,0)="^^1^1^3040220^"
^DD(9002313.9206,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9206,2,0)="Programming Notes^9002313.92062^^2;0"
^DD(9002313.9206,2,21,0)="^^1^1^3040220^"
^DD(9002313.9206,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9206,"B","5.1 Patient Segment Order",.01)=""
^DD(9002313.9206,"B","NCPDP Field Number",.02)=""
^DD(9002313.9206,"B","Processing Mode",.03)=""
^DD(9002313.9206,"B","Programming Notes",2)=""
^DD(9002313.9206,"B","Special Code",1)=""
^DD(9002313.9206,"GL",0,1,.01)=""
^DD(9002313.9206,"GL",0,2,.02)=""
^DD(9002313.9206,"GL",0,3,.03)=""
^DD(9002313.9206,"GL",1,0,1)=""
^DD(9002313.9206,"GL",2,0,2)=""
^DD(9002313.9206,"IX",.01)=""
^DD(9002313.9206,"SB",9002313.92061,1)=""
^DD(9002313.9206,"SB",9002313.92062,2)=""
^DD(9002313.92061,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92061,0,"DT")="3020801"
^DD(9002313.92061,0,"NM","Special Code")=""
^DD(9002313.92061,0,"UP")="9002313.9206"
^DD(9002313.92061,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92061,.01,"DT")="3020801"
^DD(9002313.92061,"B","Special Code",.01)=""
^DD(9002313.92061,"GL",0,1,.01)=""
^DD(9002313.92062,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92062,0,"DT")="3020801"
^DD(9002313.92062,0,"NM","Programming Notes")=""
^DD(9002313.92062,0,"UP")="9002313.9206"
^DD(9002313.92062,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92062,.01,"DT")="3020801"
^DD(9002313.92062,"B","Programming Notes",.01)=""
^DD(9002313.92062,"GL",0,1,.01)=""
^DD(9002313.9207,0)="5.1 Insurance Segment SUB-FIELD^^2^5"
^DD(9002313.9207,0,"DT")="3031223"
^DD(9002313.9207,0,"IX","B",9002313.9207,.01)=""
^DD(9002313.9207,0,"NM","5.1 Insurance Segment")=""
^DD(9002313.9207,0,"UP")="9002313.92"
^DD(9002313.9207,.01,0)="5.1 Insurance Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9207,.01,1,0)="^.1"
^DD(9002313.9207,.01,1,1,0)="9002313.9207^B"
^DD(9002313.9207,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),120,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9207,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),120,""B"",$E(X,1,30),DA)"
^DD(9002313.9207,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9207,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9207,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9207,.01,"DT")="3040220"
^DD(9002313.9207,.02,0)="NCPDP Field Defs^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9207,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9207,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9207,.02,"DT")="3040220"
^DD(9002313.9207,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9207,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9207,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9207,.03,"DT")="3040220"
^DD(9002313.9207,1,0)="Special Code^9002313.92071^^1;0"
^DD(9002313.9207,1,21,0)="^^1^1^3040220^"
^DD(9002313.9207,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9207,2,0)="Programming Notes^9002313.92072^^2;0"
^DD(9002313.9207,2,21,0)="^^1^1^3040220^"
^DD(9002313.9207,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9207,"B","5.1 Insurance Segment Order",.01)=""
^DD(9002313.9207,"B","NCPDP Field Defs",.02)=""
^DD(9002313.9207,"B","Processing Mode",.03)=""
^DD(9002313.9207,"B","Programming Notes",2)=""
^DD(9002313.9207,"B","Special Code",1)=""
^DD(9002313.9207,"GL",0,1,.01)=""
^DD(9002313.9207,"GL",0,2,.02)=""
^DD(9002313.9207,"GL",0,3,.03)=""
^DD(9002313.9207,"GL",1,0,1)=""
^DD(9002313.9207,"GL",2,0,2)=""
^DD(9002313.9207,"IX",.01)=""
^DD(9002313.9207,"SB",9002313.92071,1)=""
^DD(9002313.9207,"SB",9002313.92072,2)=""
^DD(9002313.92071,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92071,0,"DT")="3020801"
^DD(9002313.92071,0,"NM","Special Code")=""
^DD(9002313.92071,0,"UP")="9002313.9207"
^DD(9002313.92071,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92071,.01,"DT")="3020801"
^DD(9002313.92071,"B","Special Code",.01)=""
^DD(9002313.92071,"GL",0,1,.01)=""
^DD(9002313.92072,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92072,0,"DT")="3020801"
^DD(9002313.92072,0,"NM","Programming Notes")=""
^DD(9002313.92072,0,"UP")="9002313.9207"
^DD(9002313.92072,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92072,.01,"DT")="3020801"
^DD(9002313.92072,"B","Programming Notes",.01)=""
^DD(9002313.92072,"GL",0,1,.01)=""
^DD(9002313.9208,0)="5.1 Claim Segment SUB-FIELD^^2^5"
^DD(9002313.9208,0,"DT")="3031223"
^DD(9002313.9208,0,"IX","B",9002313.9208,.01)=""
^DD(9002313.9208,0,"NM","5.1 Claim Segment")=""
^DD(9002313.9208,0,"UP")="9002313.92"
^DD(9002313.9208,.01,0)="5.1 Claim Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9208,.01,1,0)="^.1"
^DD(9002313.9208,.01,1,1,0)="9002313.9208^B"
^DD(9002313.9208,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),130,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9208,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),130,""B"",$E(X,1,30),DA)"
^DD(9002313.9208,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9208,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9208,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9208,.01,"DT")="3040220"
^DD(9002313.9208,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9208,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9208,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9208,.02,"DT")="3040220"
^DD(9002313.9208,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9208,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9208,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9208,.03,"DT")="3040220"
^DD(9002313.9208,1,0)="Special Code^9002313.92081^^1;0"
^DD(9002313.9208,1,21,0)="^^1^1^3040220^"
^DD(9002313.9208,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9208,2,0)="Programming Notes^9002313.92082^^2;0"
^DD(9002313.9208,2,21,0)="^^1^1^3040220^"
^DD(9002313.9208,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9208,"B","5.1 Claim Segment Order",.01)=""
^DD(9002313.9208,"B","NCPDP Field Number",.02)=""
^DD(9002313.9208,"B","Processing Mode",.03)=""
^DD(9002313.9208,"B","Programming Notes",2)=""
^DD(9002313.9208,"B","Special Code",1)=""
^DD(9002313.9208,"GL",0,1,.01)=""
^DD(9002313.9208,"GL",0,2,.02)=""
^DD(9002313.9208,"GL",0,3,.03)=""
^DD(9002313.9208,"GL",1,0,1)=""
^DD(9002313.9208,"GL",2,0,2)=""
^DD(9002313.9208,"IX",.01)=""
^DD(9002313.9208,"SB",9002313.92081,1)=""
^DD(9002313.9208,"SB",9002313.92082,2)=""
^DD(9002313.92081,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92081,0,"DT")="3020801"
^DD(9002313.92081,0,"NM","Special Code")=""
^DD(9002313.92081,0,"UP")="9002313.9208"
^DD(9002313.92081,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92081,.01,"DT")="3020801"
^DD(9002313.92081,"B","Special Code",.01)=""
^DD(9002313.92081,"GL",0,1,.01)=""
^DD(9002313.92082,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92082,0,"DT")="3020801"
^DD(9002313.92082,0,"NM","Programming Notes")=""
^DD(9002313.92082,0,"UP")="9002313.9208"
^DD(9002313.92082,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92082,.01,"DT")="3020801"
^DD(9002313.92082,"B","Programming Notes",.01)=""
^DD(9002313.92082,"GL",0,1,.01)=""
^DD(9002313.9209,0)="5.1 Pharmacy Provider Segment SUB-FIELD^^2^5"
^DD(9002313.9209,0,"DT")="3031223"
^DD(9002313.9209,0,"IX","B",9002313.9209,.01)=""
^DD(9002313.9209,0,"NM","5.1 Pharmacy Provider Segment")=""
^DD(9002313.9209,0,"UP")="9002313.92"
^DD(9002313.9209,.01,0)="5.1 Pharmacy Provider Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9209,.01,1,0)="^.1"
^DD(9002313.9209,.01,1,1,0)="9002313.9209^B"
^DD(9002313.9209,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),140,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9209,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),140,""B"",$E(X,1,30),DA)"
^DD(9002313.9209,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9209,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9209,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9209,.01,"DT")="3040220"
^DD(9002313.9209,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9209,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9209,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9209,.02,"DT")="3040220"
^DD(9002313.9209,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9209,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9209,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9209,.03,"DT")="3040220"
^DD(9002313.9209,1,0)="Special Code^9002313.92091^^1;0"
^DD(9002313.9209,1,21,0)="^^1^1^3040220^"
^DD(9002313.9209,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9209,2,0)="Programming Notes^9002313.92092^^2;0"
^DD(9002313.9209,2,21,0)="^^1^1^3040220^"
^DD(9002313.9209,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9209,"B","5.1 Pharmacy Provider Order",.01)=""
^DD(9002313.9209,"B","NCPDP Field Number",.02)=""
^DD(9002313.9209,"B","Processing Mode",.03)=""
^DD(9002313.9209,"B","Programming Notes",2)=""
^DD(9002313.9209,"B","Special Code",1)=""
^DD(9002313.9209,"GL",0,1,.01)=""
^DD(9002313.9209,"GL",0,2,.02)=""
^DD(9002313.9209,"GL",0,3,.03)=""
^DD(9002313.9209,"GL",1,0,1)=""
^DD(9002313.9209,"GL",2,0,2)=""
^DD(9002313.9209,"IX",.01)=""
^DD(9002313.9209,"SB",9002313.92091,1)=""
^DD(9002313.9209,"SB",9002313.92092,2)=""
^DD(9002313.92091,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92091,0,"DT")="3020801"
^DD(9002313.92091,0,"NM","Special Code")=""
^DD(9002313.92091,0,"UP")="9002313.9209"
^DD(9002313.92091,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92091,.01,"DT")="3020801"
^DD(9002313.92091,"B","Special Code",.01)=""
^DD(9002313.92091,"GL",0,1,.01)=""
^DD(9002313.92092,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92092,0,"DT")="3020801"
^DD(9002313.92092,0,"NM","Programming Notes")=""
^DD(9002313.92092,0,"UP")="9002313.9209"
^DD(9002313.92092,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92092,.01,"DT")="3020801"
^DD(9002313.92092,"B","Programming Notes",.01)=""
^DD(9002313.92092,"GL",0,1,.01)=""
^DD(9002313.921,0)="5.1 Prescriber Segment SUB-FIELD^^2^5"
^DD(9002313.921,0,"DT")="3031223"
^DD(9002313.921,0,"IX","B",9002313.921,.01)=""
^DD(9002313.921,0,"NM","5.1 Prescriber Segment")=""
^DD(9002313.921,0,"UP")="9002313.92"
^DD(9002313.921,.01,0)="5.1 Prescriber Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.921,.01,1,0)="^.1"
^DD(9002313.921,.01,1,1,0)="9002313.921^B"
^DD(9002313.921,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),150,""B"",$E(X,1,30),DA)="""""
^DD(9002313.921,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),150,""B"",$E(X,1,30),DA)"
^DD(9002313.921,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.921,.01,21,0)="^^1^1^3040220^"
^DD(9002313.921,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.921,.01,"DT")="3040220"
^DD(9002313.921,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.921,.02,21,0)="^^1^1^3040220^"
^DD(9002313.921,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.921,.02,"DT")="3040220"
^DD(9002313.921,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.921,.03,21,0)="^^1^1^3040220^"
^DD(9002313.921,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.921,.03,"DT")="3040220"
^DD(9002313.921,1,0)="Special Code^9002313.9211^^1;0"
^DD(9002313.921,1,21,0)="^^1^1^3040220^"
^DD(9002313.921,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.921,2,0)="Programming Notes^9002313.9212^^2;0"
^DD(9002313.921,2,21,0)="^^1^1^3040220^"
^DD(9002313.921,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.921,"B","5.1 Prescriber Segment Order",.01)=""
^DD(9002313.921,"B","NCPDP Field Number",.02)=""
^DD(9002313.921,"B","Processing Mode",.03)=""
^DD(9002313.921,"B","Programming Notes",2)=""
^DD(9002313.921,"B","Special Code",1)=""
^DD(9002313.921,"GL",0,1,.01)=""
^DD(9002313.921,"GL",0,2,.02)=""
^DD(9002313.921,"GL",0,3,.03)=""
^DD(9002313.921,"GL",1,0,1)=""
^DD(9002313.921,"GL",2,0,2)=""
^DD(9002313.921,"IX",.01)=""
^DD(9002313.921,"SB",9002313.9211,1)=""
^DD(9002313.921,"SB",9002313.9212,2)=""
^DD(9002313.9211,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.9211,0,"DT")="3020801"
^DD(9002313.9211,0,"NM","Special Code")=""
^DD(9002313.9211,0,"UP")="9002313.921"
^DD(9002313.9211,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.9211,.01,"DT")="3020801"
^DD(9002313.9211,"B","Special Code",.01)=""
^DD(9002313.9211,"GL",0,1,.01)=""
^DD(9002313.9212,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.9212,0,"DT")="3020801"
^DD(9002313.9212,0,"NM","Programming Notes")=""
^DD(9002313.9212,0,"UP")="9002313.921"
^DD(9002313.9212,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.9212,.01,"DT")="3020801"
^DD(9002313.9212,"B","Programming Notes",.01)=""
^DD(9002313.9212,"GL",0,1,.01)=""
^DD(9002313.9213,0)="5.1 COB/Other Payments Segment SUB-FIELD^^2^5"
^DD(9002313.9213,0,"DT")="3031223"
^DD(9002313.9213,0,"IX","B",9002313.9213,.01)=""
^DD(9002313.9213,0,"NM","5.1 COB/Other Payments Segment")=""
^DD(9002313.9213,0,"UP")="9002313.92"
^DD(9002313.9213,.01,0)="5.1 COB/Other Payments Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9213,.01,1,0)="^.1"
^DD(9002313.9213,.01,1,1,0)="9002313.9213^B"
^DD(9002313.9213,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),160,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9213,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),160,""B"",$E(X,1,30),DA)"
^DD(9002313.9213,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9213,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9213,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9213,.01,"DT")="3040220"
^DD(9002313.9213,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9213,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9213,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9213,.02,"DT")="3040220"
^DD(9002313.9213,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9213,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9213,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9213,.03,"DT")="3040220"
^DD(9002313.9213,1,0)="Special Code^9002313.92131^^1;0"
^DD(9002313.9213,1,21,0)="^^1^1^3040220^"
^DD(9002313.9213,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9213,2,0)="Programming Notes^9002313.92132^^2;0"
^DD(9002313.9213,2,21,0)="^^1^1^3040220^"
^DD(9002313.9213,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9213,"B","5.1 COB/Other Payments Order",.01)=""
^DD(9002313.9213,"B","NCPDP Field Number",.02)=""
^DD(9002313.9213,"B","Processing Mode",.03)=""
^DD(9002313.9213,"B","Programming Notes",2)=""
^DD(9002313.9213,"B","Special Code",1)=""
^DD(9002313.9213,"GL",0,1,.01)=""
^DD(9002313.9213,"GL",0,2,.02)=""
^DD(9002313.9213,"GL",0,3,.03)=""
^DD(9002313.9213,"GL",1,0,1)=""
^DD(9002313.9213,"GL",2,0,2)=""
^DD(9002313.9213,"IX",.01)=""
^DD(9002313.9213,"SB",9002313.92131,1)=""
^DD(9002313.9213,"SB",9002313.92132,2)=""
^DD(9002313.92131,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92131,0,"DT")="3020801"
^DD(9002313.92131,0,"NM","Special Code")=""
^DD(9002313.92131,0,"UP")="9002313.9213"
^DD(9002313.92131,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92131,.01,"DT")="3020801"
^DD(9002313.92131,"B","Special Code",.01)=""
^DD(9002313.92131,"GL",0,1,.01)=""
^DD(9002313.92132,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92132,0,"DT")="3020801"
^DD(9002313.92132,0,"NM","Programming Notes")=""
^DD(9002313.92132,0,"UP")="9002313.9213"
^DD(9002313.92132,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92132,.01,"DT")="3020801"
^DD(9002313.92132,"B","Programming Notes",.01)=""
^DD(9002313.92132,"GL",0,1,.01)=""
^DD(9002313.9214,0)="5.1 Workers Comp Segment SUB-FIELD^^2^5"
^DD(9002313.9214,0,"DT")="3031223"
^DD(9002313.9214,0,"IX","B",9002313.9214,.01)=""
^DD(9002313.9214,0,"NM","5.1 Workers Comp Segment")=""
^DD(9002313.9214,0,"UP")="9002313.92"
^DD(9002313.9214,.01,0)="5.1 Workers Comp Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9214,.01,1,0)="^.1"
^DD(9002313.9214,.01,1,1,0)="9002313.9214^B"
^DD(9002313.9214,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),170,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9214,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),170,""B"",$E(X,1,30),DA)"
^DD(9002313.9214,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9214,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9214,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9214,.01,"DT")="3040220"
^DD(9002313.9214,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9214,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9214,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9214,.02,"DT")="3040220"
^DD(9002313.9214,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9214,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9214,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9214,.03,"DT")="3040220"
^DD(9002313.9214,1,0)="Special Code^9002313.92141^^1;0"
^DD(9002313.9214,1,21,0)="^^1^1^3040220^"
^DD(9002313.9214,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9214,2,0)="Programming Notes^9002313.92142^^2;0"
^DD(9002313.9214,2,21,0)="^^1^1^3040220^"
^DD(9002313.9214,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9214,"B","5.1 Workers Comp Segment Order",.01)=""
^DD(9002313.9214,"B","NCPDP Field Number",.02)=""
^DD(9002313.9214,"B","Processing Mode",.03)=""
^DD(9002313.9214,"B","Programming Notes",2)=""
^DD(9002313.9214,"B","Special Code",1)=""
^DD(9002313.9214,"GL",0,1,.01)=""
^DD(9002313.9214,"GL",0,2,.02)=""
^DD(9002313.9214,"GL",0,3,.03)=""
^DD(9002313.9214,"GL",1,0,1)=""
^DD(9002313.9214,"GL",2,0,2)=""
^DD(9002313.9214,"IX",.01)=""
^DD(9002313.9214,"SB",9002313.92141,1)=""
^DD(9002313.9214,"SB",9002313.92142,2)=""
^DD(9002313.92141,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92141,0,"DT")="3020801"
^DD(9002313.92141,0,"NM","Special Code")=""
^DD(9002313.92141,0,"UP")="9002313.9214"
^DD(9002313.92141,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92141,.01,"DT")="3020801"
^DD(9002313.92141,"B","Special Code",.01)=""
^DD(9002313.92141,"GL",0,1,.01)=""
^DD(9002313.92142,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92142,0,"DT")="3020801"
^DD(9002313.92142,0,"NM","Programming Notes")=""
^DD(9002313.92142,0,"UP")="9002313.9214"
^DD(9002313.92142,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92142,.01,"DT")="3020801"
^DD(9002313.92142,"B","Programming Notes",.01)=""
^DD(9002313.92142,"GL",0,1,.01)=""
^DD(9002313.9215,0)="5.1 DUR/PPS Segment SUB-FIELD^^2^5"
^DD(9002313.9215,0,"DT")="3031223"
^DD(9002313.9215,0,"IX","B",9002313.9215,.01)=""
^DD(9002313.9215,0,"NM","5.1 DUR/PPS Segment")=""
^DD(9002313.9215,0,"UP")="9002313.92"
^DD(9002313.9215,.01,0)="5.1 DUR/PPS Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9215,.01,1,0)="^.1"
^DD(9002313.9215,.01,1,1,0)="9002313.9215^B"
^DD(9002313.9215,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),180,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9215,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),180,""B"",$E(X,1,30),DA)"
^DD(9002313.9215,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9215,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9215,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9215,.01,"DT")="3040220"
^DD(9002313.9215,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9215,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9215,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9215,.02,"DT")="3040220"
^DD(9002313.9215,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9215,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9215,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9215,.03,"DT")="3040220"
^DD(9002313.9215,1,0)="Special Code^9002313.92151^^1;0"
^DD(9002313.9215,1,21,0)="^^1^1^3040220^"
^DD(9002313.9215,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9215,2,0)="Programming Notes^9002313.92152^^2;0"
^DD(9002313.9215,2,21,0)="^^1^1^3040220^"
^DD(9002313.9215,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9215,"B","5.1 DUR/PPS Segment Order",.01)=""
^DD(9002313.9215,"B","NCPDP Field Number",.02)=""
^DD(9002313.9215,"B","Processing Mode",.03)=""
^DD(9002313.9215,"B","Programming Notes",2)=""
^DD(9002313.9215,"B","Special Code",1)=""
^DD(9002313.9215,"GL",0,1,.01)=""
^DD(9002313.9215,"GL",0,2,.02)=""
^DD(9002313.9215,"GL",0,3,.03)=""
^DD(9002313.9215,"GL",1,0,1)=""
^DD(9002313.9215,"GL",2,0,2)=""
^DD(9002313.9215,"IX",.01)=""
^DD(9002313.9215,"SB",9002313.92151,1)=""
^DD(9002313.9215,"SB",9002313.92152,2)=""
^DD(9002313.92151,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92151,0,"DT")="3020801"
^DD(9002313.92151,0,"NM","Special Code")=""
^DD(9002313.92151,0,"UP")="9002313.9215"
^DD(9002313.92151,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92151,.01,"DT")="3020801"
^DD(9002313.92151,"B","Special Code",.01)=""
^DD(9002313.92151,"GL",0,1,.01)=""
^DD(9002313.92152,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92152,0,"DT")="3020801"
^DD(9002313.92152,0,"NM","Programming Notes")=""
^DD(9002313.92152,0,"UP")="9002313.9215"
^DD(9002313.92152,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92152,.01,"DT")="3020801"
^DD(9002313.92152,"B","Programming Notes",.01)=""
^DD(9002313.92152,"GL",0,1,.01)=""
^DD(9002313.9216,0)="5.1 Pricing Segment SUB-FIELD^^2^5"
^DD(9002313.9216,0,"DT")="3031223"
^DD(9002313.9216,0,"IX","B",9002313.9216,.01)=""
^DD(9002313.9216,0,"NM","5.1 Pricing Segment")=""
^DD(9002313.9216,0,"UP")="9002313.92"
^DD(9002313.9216,.01,0)="5.1 Pricing Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9216,.01,1,0)="^.1"
^DD(9002313.9216,.01,1,1,0)="9002313.9216^B"
^DD(9002313.9216,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),190,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9216,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),190,""B"",$E(X,1,30),DA)"
^DD(9002313.9216,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9216,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9216,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9216,.01,"DT")="3040220"
^DD(9002313.9216,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9216,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9216,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9216,.02,"DT")="3040220"
^DD(9002313.9216,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9216,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9216,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9216,.03,"DT")="3040220"
^DD(9002313.9216,1,0)="Special Code^9002313.92161^^1;0"
^DD(9002313.9216,1,21,0)="^^1^1^3040220^"
^DD(9002313.9216,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9216,2,0)="Programming Notes^9002313.92162^^2;0"
^DD(9002313.9216,2,21,0)="^^1^1^3040220^"
^DD(9002313.9216,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9216,"B","5.1 Pricing Segment Order",.01)=""
^DD(9002313.9216,"B","NCPDP Field Number",.02)=""
^DD(9002313.9216,"B","Processing Mode",.03)=""
^DD(9002313.9216,"B","Programming Notes",2)=""
^DD(9002313.9216,"B","Special Code",1)=""
^DD(9002313.9216,"GL",0,1,.01)=""
^DD(9002313.9216,"GL",0,2,.02)=""
^DD(9002313.9216,"GL",0,3,.03)=""
^DD(9002313.9216,"GL",1,0,1)=""
^DD(9002313.9216,"GL",2,0,2)=""
^DD(9002313.9216,"IX",.01)=""
^DD(9002313.9216,"SB",9002313.92161,1)=""
^DD(9002313.9216,"SB",9002313.92162,2)=""
^DD(9002313.92161,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92161,0,"DT")="3020801"
^DD(9002313.92161,0,"NM","Special Code")=""
^DD(9002313.92161,0,"UP")="9002313.9216"
^DD(9002313.92161,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92161,.01,"DT")="3020801"
^DD(9002313.92161,"B","Special Code",.01)=""
^DD(9002313.92161,"GL",0,1,.01)=""
^DD(9002313.92162,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92162,0,"DT")="3020801"
^DD(9002313.92162,0,"NM","Programming Notes")=""
^DD(9002313.92162,0,"UP")="9002313.9216"
^DD(9002313.92162,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92162,.01,"DT")="3020801"
^DD(9002313.92162,"B","Programming Notes",.01)=""
^DD(9002313.92162,"GL",0,1,.01)=""
^DD(9002313.9217,0)="5.1 Coupon Segment SUB-FIELD^^2^5"
^DD(9002313.9217,0,"DT")="3031223"
^DD(9002313.9217,0,"IX","B",9002313.9217,.01)=""
^DD(9002313.9217,0,"NM","5.1 Coupon Segment")=""
^DD(9002313.9217,0,"UP")="9002313.92"
^DD(9002313.9217,.01,0)="5.1 Coupon Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9217,.01,1,0)="^.1"
^DD(9002313.9217,.01,1,1,0)="9002313.9217^B"
^DD(9002313.9217,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),200,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9217,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),200,""B"",$E(X,1,30),DA)"
^DD(9002313.9217,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9217,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9217,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9217,.01,"DT")="3040220"
^DD(9002313.9217,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9217,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9217,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9217,.02,"DT")="3040220"
^DD(9002313.9217,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9217,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9217,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9217,.03,"DT")="3040220"
^DD(9002313.9217,1,0)="Special Code^9002313.92171^^1;0"
^DD(9002313.9217,1,21,0)="^^1^1^3040220^"
^DD(9002313.9217,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9217,2,0)="Programming Notes^9002313.92172^^2;0"
^DD(9002313.9217,2,21,0)="^^1^1^3040220^"
^DD(9002313.9217,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9217,"B","5.1 Coupon Segment Order",.01)=""
^DD(9002313.9217,"B","NCPDP Field Number",.02)=""
^DD(9002313.9217,"B","Processing Mode",.03)=""
^DD(9002313.9217,"B","Programming Notes",2)=""
^DD(9002313.9217,"B","Special Code",1)=""
^DD(9002313.9217,"GL",0,1,.01)=""
^DD(9002313.9217,"GL",0,2,.02)=""
^DD(9002313.9217,"GL",0,3,.03)=""
^DD(9002313.9217,"GL",1,0,1)=""
^DD(9002313.9217,"GL",2,0,2)=""
^DD(9002313.9217,"IX",.01)=""
^DD(9002313.9217,"SB",9002313.92171,1)=""
^DD(9002313.9217,"SB",9002313.92172,2)=""
^DD(9002313.92171,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92171,0,"DT")="3020801"
^DD(9002313.92171,0,"NM","Special Code")=""
^DD(9002313.92171,0,"UP")="9002313.9217"
^DD(9002313.92171,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92171,.01,"DT")="3020801"
^DD(9002313.92171,"B","Special Code",.01)=""
^DD(9002313.92171,"GL",0,1,.01)=""
^DD(9002313.92172,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92172,0,"DT")="3020801"
^DD(9002313.92172,0,"NM","Programming Notes")=""
^DD(9002313.92172,0,"UP")="9002313.9217"
^DD(9002313.92172,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92172,.01,"DT")="3020801"
^DD(9002313.92172,"B","Programming Notes",.01)=""
^DD(9002313.92172,"GL",0,1,.01)=""
^DD(9002313.9218,0)="5.1 Compound Segment SUB-FIELD^^2^5"
^DD(9002313.9218,0,"DT")="3031223"
^DD(9002313.9218,0,"IX","B",9002313.9218,.01)=""
^DD(9002313.9218,0,"NM","5.1 Compound Segment")=""
^DD(9002313.9218,0,"UP")="9002313.92"
^DD(9002313.9218,.01,0)="5.1 Compound Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9218,.01,1,0)="^.1"
^DD(9002313.9218,.01,1,1,0)="9002313.9218^B"
^DD(9002313.9218,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),210,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9218,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),210,""B"",$E(X,1,30),DA)"
^DD(9002313.9218,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9218,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9218,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9218,.01,"DT")="3040220"
^DD(9002313.9218,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9218,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9218,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9218,.02,"DT")="3040220"
^DD(9002313.9218,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9218,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9218,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9218,.03,"DT")="3040220"
^DD(9002313.9218,1,0)="Special Code^9002313.92181^^1;0"
^DD(9002313.9218,1,21,0)="^^1^1^3040220^"
^DD(9002313.9218,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9218,2,0)="Programming Notes^9002313.92182^^2;0"
^DD(9002313.9218,2,21,0)="^^1^1^3040220^"
^DD(9002313.9218,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9218,"B","5.1 Compound Segment Order",.01)=""
^DD(9002313.9218,"B","NCPDP Field Number",.02)=""
^DD(9002313.9218,"B","Processing Mode",.03)=""
^DD(9002313.9218,"B","Programming Notes",2)=""
^DD(9002313.9218,"B","Special Code",1)=""
^DD(9002313.9218,"GL",0,1,.01)=""
^DD(9002313.9218,"GL",0,2,.02)=""
^DD(9002313.9218,"GL",0,3,.03)=""
^DD(9002313.9218,"GL",1,0,1)=""
^DD(9002313.9218,"GL",2,0,2)=""
^DD(9002313.9218,"IX",.01)=""
^DD(9002313.9218,"SB",9002313.92181,1)=""
^DD(9002313.9218,"SB",9002313.92182,2)=""
^DD(9002313.92181,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92181,0,"DT")="3020801"
^DD(9002313.92181,0,"NM","Special Code")=""
^DD(9002313.92181,0,"UP")="9002313.9218"
^DD(9002313.92181,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92181,.01,"DT")="3020801"
^DD(9002313.92181,"B","Special Code",.01)=""
^DD(9002313.92181,"GL",0,1,.01)=""
^DD(9002313.92182,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92182,0,"DT")="3020801"
^DD(9002313.92182,0,"NM","Programming Notes")=""
^DD(9002313.92182,0,"UP")="9002313.9218"
^DD(9002313.92182,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92182,.01,"DT")="3020801"
^DD(9002313.92182,"B","Programming Notes",.01)=""
^DD(9002313.92182,"GL",0,1,.01)=""
^DD(9002313.9219,0)="5.1 Prior Auth Segment SUB-FIELD^^2^5"
^DD(9002313.9219,0,"DT")="3031223"
^DD(9002313.9219,0,"IX","B",9002313.9219,.01)=""
^DD(9002313.9219,0,"NM","5.1 Prior Auth Segment")=""
^DD(9002313.9219,0,"UP")="9002313.92"
^DD(9002313.9219,.01,0)="5.1 Prior Auth Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.9219,.01,1,0)="^.1"
^DD(9002313.9219,.01,1,1,0)="9002313.9219^B"
^DD(9002313.9219,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),220,""B"",$E(X,1,30),DA)="""""
^DD(9002313.9219,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),220,""B"",$E(X,1,30),DA)"
^DD(9002313.9219,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.9219,.01,21,0)="^^1^1^3040220^"
^DD(9002313.9219,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.9219,.01,"DT")="3040220"
^DD(9002313.9219,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.9219,.02,21,0)="^^1^1^3040220^"
^DD(9002313.9219,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.9219,.02,"DT")="3040220"
^DD(9002313.9219,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.9219,.03,21,0)="^^1^1^3040220^"
^DD(9002313.9219,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.9219,.03,"DT")="3040220"
^DD(9002313.9219,1,0)="Special Code^9002313.92191^^1;0"
^DD(9002313.9219,1,21,0)="^^1^1^3040220^"
^DD(9002313.9219,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.9219,2,0)="Programming Notes^9002313.92192^^2;0"
^DD(9002313.9219,2,21,0)="^^1^1^3040220^"
^DD(9002313.9219,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.9219,"B","5.1 Prior Auth Segment Order",.01)=""
^DD(9002313.9219,"B","NCPDP Field Number",.02)=""
^DD(9002313.9219,"B","Processing Mode",.03)=""
^DD(9002313.9219,"B","Programming Notes",2)=""
^DD(9002313.9219,"B","Special Code",1)=""
^DD(9002313.9219,"GL",0,1,.01)=""
^DD(9002313.9219,"GL",0,2,.02)=""
^DD(9002313.9219,"GL",0,3,.03)=""
^DD(9002313.9219,"GL",1,0,1)=""
^DD(9002313.9219,"GL",2,0,2)=""
^DD(9002313.9219,"IX",.01)=""
^DD(9002313.9219,"SB",9002313.92191,1)=""
^DD(9002313.9219,"SB",9002313.92192,2)=""
^DD(9002313.921901,0)="Developer's Remarks SUB-FIELD^^.01^1"
^DD(9002313.921901,0,"DT")="3010112"
^DD(9002313.921901,0,"NM","Developer's Remarks")=""
^DD(9002313.921901,0,"UP")="9002313.92"
^DD(9002313.921901,.01,0)="Developer's Remarks^WL^^0;1^Q"
^DD(9002313.921901,.01,"DT")="3010117"
^DD(9002313.921901,"B","Developer's Remarks",.01)=""
^DD(9002313.921901,"GL",0,1,.01)=""
^DD(9002313.92191,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.92191,0,"DT")="3020801"
^DD(9002313.92191,0,"NM","Special Code")=""
^DD(9002313.92191,0,"UP")="9002313.9219"
^DD(9002313.92191,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.92191,.01,"DT")="3020801"
^DD(9002313.92191,"B","Special Code",.01)=""
^DD(9002313.92191,"GL",0,1,.01)=""
^DD(9002313.92192,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.92192,0,"DT")="3020801"
^DD(9002313.92192,0,"NM","Programming Notes")=""
^DD(9002313.92192,0,"UP")="9002313.9219"
^DD(9002313.92192,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.92192,.01,"DT")="3020801"
^DD(9002313.92192,"B","Programming Notes",.01)=""
^DD(9002313.92192,"GL",0,1,.01)=""
^DD(9002313.922,0)="5.1 Clinical Segment SUB-FIELD^^2^5"
^DD(9002313.922,0,"DT")="3031223"
^DD(9002313.922,0,"IX","B",9002313.922,.01)=""
^DD(9002313.922,0,"NM","5.1 Clinical Segment")=""
^DD(9002313.922,0,"UP")="9002313.92"
^DD(9002313.922,.01,0)="5.1 Clinical Segment Order^MNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9002313.922,.01,1,0)="^.1"
^DD(9002313.922,.01,1,1,0)="9002313.922^B"
^DD(9002313.922,.01,1,1,1)="S ^BPSF(9002313.92,DA(1),230,""B"",$E(X,1,30),DA)="""""
^DD(9002313.922,.01,1,1,2)="K ^BPSF(9002313.92,DA(1),230,""B"",$E(X,1,30),DA)"
^DD(9002313.922,.01,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9002313.922,.01,21,0)="^^1^1^3040220^"
^DD(9002313.922,.01,21,1,0)="Identification of the special event handler."
^DD(9002313.922,.01,"DT")="3040220"
^DD(9002313.922,.02,0)="NCPDP Field Number^P9002313.91'^BPSF(9002313.91,^0;2^Q"
^DD(9002313.922,.02,21,0)="^^1^1^3040220^"
^DD(9002313.922,.02,21,1,0)="The NCPDP Field to be manipulated."
^DD(9002313.922,.02,"DT")="3040220"
^DD(9002313.922,.03,0)="Processing Mode^S^D:DEFAULT;S:STANDARD;X:SPECIAL;?:UNKNOWN;^0;3^Q"
^DD(9002313.922,.03,21,0)="^^1^1^3040220^"
^DD(9002313.922,.03,21,1,0)="Which processing mode in effect for this segment."
^DD(9002313.922,.03,"DT")="3040220"
^DD(9002313.922,1,0)="Special Code^9002313.9221^^1;0"
^DD(9002313.922,1,21,0)="^^1^1^3040220^"
^DD(9002313.922,1,21,1,0)="When Processing Mode ""X"" is in effect, the special M code to be executed."
^DD(9002313.922,2,0)="Programming Notes^9002313.9222^^2;0"
^DD(9002313.922,2,21,0)="^^1^1^3040220^"
^DD(9002313.922,2,21,1,0)="Description of what is being accomplished by executing the special code."
^DD(9002313.922,"B","5.1 Clinical Segment Order",.01)=""
^DD(9002313.922,"B","NCPDP Field Number",.02)=""
^DD(9002313.922,"B","Processing Mode",.03)=""
^DD(9002313.922,"B","Programming Notes",2)=""
^DD(9002313.922,"B","Special Code",1)=""
^DD(9002313.922,"GL",0,1,.01)=""
^DD(9002313.922,"GL",0,2,.02)=""
^DD(9002313.922,"GL",0,3,.03)=""
^DD(9002313.922,"GL",1,0,1)=""
^DD(9002313.922,"GL",2,0,2)=""
^DD(9002313.922,"IX",.01)=""
^DD(9002313.922,"SB",9002313.9221,1)=""
^DD(9002313.922,"SB",9002313.9222,2)=""
^DD(9002313.9221,0)="Special Code SUB-FIELD^^.01^1"
^DD(9002313.9221,0,"DT")="3020801"
^DD(9002313.9221,0,"NM","Special Code")=""
^DD(9002313.9221,0,"UP")="9002313.922"
^DD(9002313.9221,.01,0)="Special Code^WL^^0;1^Q"
^DD(9002313.9221,.01,"DT")="3020801"
^DD(9002313.9221,"B","Special Code",.01)=""
^DD(9002313.9221,"GL",0,1,.01)=""
^DD(9002313.9222,0)="Programming Notes SUB-FIELD^^.01^1"
^DD(9002313.9222,0,"DT")="3020801"
^DD(9002313.9222,0,"NM","Programming Notes")=""
^DD(9002313.9222,0,"UP")="9002313.922"
^DD(9002313.9222,.01,0)="Programming Notes^WL^^0;1^Q"
^DD(9002313.9222,.01,"DT")="3020801"
^DD(9002313.9222,"B","Programming Notes",.01)=""
^DD(9002313.9222,"GL",0,1,.01)=""
^DD(9002313.93,0)="FIELD^^.02^2"
^DD(9002313.93,0,"DDA")="N"
^DD(9002313.93,0,"DT")="3030820"
^DD(9002313.93,0,"ID",.02)="W ""   "",$P(^(0),U,2)"
^DD(9002313.93,0,"IX","B",9002313.93,.01)=""
^DD(9002313.93,0,"NM","BPS NCPDP REJECT CODES")=""
^DD(9002313.93,0,"PT",9002313.323,.01)=""
^DD(9002313.93,0,"PT",9002313.7,1.15)=""
^DD(9002313.93,0,"VR")="1.0"
^DD(9002313.93,0,"VRPK")="BPS"
^DD(9002313.93,.01,0)="Code^RF^^0;1^K:$L(X)>3!($L(X)<2) X"
^DD(9002313.93,.01,1,0)="^.1"
^DD(9002313.93,.01,1,1,0)="9002313.93^B"
^DD(9002313.93,.01,1,1,1)="S ^BPSF(9002313.93,""B"",$E(X,1,30),DA)="""""
^DD(9002313.93,.01,1,1,2)="K ^BPSF(9002313.93,""B"",$E(X,1,30),DA)"
^DD(9002313.93,.01,3)="Answer must be 2-3 characters in length."
^DD(9002313.93,.01,21,0)="^.001^1^1^3040326^^"
^DD(9002313.93,.01,21,1,0)="Numerical entry for the reason for the claim rejection."
^DD(9002313.93,.01,"DT")="3031125"
^DD(9002313.93,.02,0)="Explanation^F^^0;2^K:$L(X)>70!($L(X)<1) X"
^DD(9002313.93,.02,3)="Answer must be 1-70 characters in length."
^DD(9002313.93,.02,21,0)="^^1^1^3031125^"
^DD(9002313.93,.02,21,1,0)="Textual explanation of the claim rejection."
^DD(9002313.93,.02,"DT")="3031125"
^DD(9002313.93,"B","Code",.01)=""
^DD(9002313.93,"B","Explanation",.02)=""
^DD(9002313.93,"GL",0,1,.01)=""
^DD(9002313.93,"GL",0,2,.02)=""
^DD(9002313.93,"IX",.01)=""
^DD(9002313.93,"RQ",.01)=""
^DD(9002313.99,0)="FIELD^^2341.01^12"
^DD(9002313.99,0,"DDA")="N"
^DD(9002313.99,0,"DT")="3070131"
^DD(9002313.99,0,"IX","B",9002313.99,.01)=""
^DD(9002313.99,0,"NM","BPS SETUP")=""
^DD(9002313.99,0,"VR")="1.0"
^DD(9002313.99,0,"VRPK")="BPS"
^DD(9002313.99,.01,0)="NAME^RF^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X"
^DD(9002313.99,.01,1,0)="^.1"
^DD(9002313.99,.01,1,1,0)="9002313.99^B"
^DD(9002313.99,.01,1,1,1)="S ^BPS(9002313.99,""B"",$E(X,1,30),DA)="""""
^DD(9002313.99,.01,1,1,2)="K ^BPS(9002313.99,""B"",$E(X,1,30),DA)"
^DD(9002313.99,.01,3)="Answer must be 3-30 characters in length."
^DD(9002313.99,.01,"DT")="3050729"
^DD(9002313.99,.04,0)="*M Vendor^S^DTM:DTM;MSM:MSM;CACHE:CACHE;^0;4^Q"
^DD(9002313.99,.04,"DT")="3001016"
^DD(9002313.99,3.01,0)="ECME TIMEOUT^RNJ2,0^^0;2^K:+X'=X!(X>30)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.99,3.01,3)="Type a Number between 0 and 30, 0 Decimal Digits. This is the maximum number of seconds the display will wait for a claims processing status."
^DD(9002313.99,3.01,21,0)="^.001^4^4^3050929^^^"
^DD(9002313.99,3.01,21,1,0)="This is the maximum number of seconds used for the display of the "
^DD(9002313.99,3.01,21,2,0)="claims processing status.  After this time, claims processing will "
^DD(9002313.99,3.01,21,3,0)="continue but the user will not see messages indicating the progress "
^DD(9002313.99,3.01,21,4,0)="of the claim."
^DD(9002313.99,3.01,"DT")="3050729"
^DD(9002313.99,3.02,0)="PAYER RESPONSE TEST MODE^S^1:ON;0:OFF;^0;3^Q"
^DD(9002313.99,3.02,3)="Set this to On to enable payer overrides.  Do not enable at production sites."
^DD(9002313.99,3.02,21,0)="^^2^2^3050720^"
^DD(9002313.99,3.02,21,1,0)="This field enables the testing of Payer Response Overrides - 1 for On, 0 "
^DD(9002313.99,3.02,21,2,0)="(or """") for Off.  This should never be ON at a production site."
^DD(9002313.99,3.02,"DT")="3050720"
^DD(9002313.99,2341.01,0)="WINNOW TESTING FLAG^S^0:NO;1:YES;^WINNOW;1^Q"
^DD(9002313.99,2341.01,3)="Enter 'YES' to enable WINNOW TEST mode, 'NO' to purge"
^DD(9002313.99,2341.01,21,0)="^^2^2^3070131^"
^DD(9002313.99,2341.01,21,1,0)="This flag controls whether purging is really done or just in test mode.  "
^DD(9002313.99,2341.01,21,2,0)="YES sets test mode on and NO enables purging."
^DD(9002313.99,2341.01,"DT")="3070131"
^DD(9002313.99,2341.03,0)="WINNOW BPS LOG^NJ4,0^^WINNOW;3^K:+X'=X!(X>9999)!(X<0)!(X?.E1"".""1.N) X"
^DD(9002313.99,2341.03,3)="Enter the days of the BPS LOG to keep on the system"
^DD(9002313.99,2341.03,21,0)="^^1^1^3061120^"
^DD(9002313.99,2341.03,21,1,0)="Number of days of the BPS LOG to keep on the system"
^DD(9002313.99,2341.03,"DT")="3061120"
^DD(9002313.99,2500,0)="CERTIFIER^P200'^VA(200,^CERTIFIER;1^Q"
^DD(9002313.99,2500,3)="ENTER THE DUZ OF THE PERSON PERFORMING CERTIFICATION"
^DD(9002313.99,2500,21,0)="^^1^1^3031125^"
^DD(9002313.99,2500,21,1,0)="CONTAINS THE DUZ OF THE PERSON PERFORMING CERTIFICATION."
^DD(9002313.99,2500,"DT")="3031125"
^DD(9002313.99,6000,0)="VA SITE CONTACT^P200'^VA(200,^VITRIA;1^Q"
^DD(9002313.99,6000,3)="ENTER THE VA CONTACT FOR VITRIA."
^DD(9002313.99,6000,21,0)="^.001^1^1^3040127^^"
^DD(9002313.99,6000,21,1,0)="Enter the VA Site Contact for Vitria."
^DD(9002313.99,6000,"DT")="3031030"
^DD(9002313.99,6001,0)="VA Alternate Site Contract^P200'^VA(200,^VITRIA;2^Q"
^DD(9002313.99,6001,3)="ENTER THE VA ALTERNATE SITE CONTACT FOR VITRIA."
^DD(9002313.99,6001,21,0)="^^1^1^3050907^"
^DD(9002313.99,6001,21,1,0)="Enter the VA Alternate Site Contact for Vitria."
^DD(9002313.99,6001,"DT")="3050907"
^DD(9002313.99,6003,0)="VITRIA INTERFACE VERSION #^F^^VITRIA;3^K:$L(X)>35!($L(X)<1) X"
^DD(9002313.99,6003,3)="Answer must be 1-35 characters in length."
^DD(9002313.99,6003,21,0)="^.001^1^1^3040127^^"
^DD(9002313.99,6003,21,1,0)="Enter the Vitria supplied interface verison number."
^DD(9002313.99,6003,"DT")="3031030"
^DD(9002313.99,9999,0)="SITE TYPE^RS^0:VA;1:IHS;^SITE TYPE;1^Q"
^DD(9002313.99,9999,3)="Enter 0 (zero) for VA or 1 for IHS."
^DD(9002313.99,9999,21,0)="^^4^4^3030616^"
^DD(9002313.99,9999,21,1,0)="This field is used to determine whether the site is a Veterens "
^DD(9002313.99,9999,21,2,0)="Administration site or and Indian Health Services Site.  Based on this "
^DD(9002313.99,9999,21,3,0)="answer, the ECME system will process in two different manners with "
^DD(9002313.99,9999,21,4,0)="respect to claims generation and data collection methods."
^DD(9002313.99,9999,"DT")="3030616"
^DD(9002313.99,10000,0)="VA LAST SEQUENCE^NJ10,0^^3;1^K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9002313.99,10000,3)="Type a Number between 0 and 9999999999, 0 Decimal Digits"
^DD(9002313.99,10000,"DT")="3030724"
^DD(9002313.99,"B","*M Vendor",.04)=""
^DD(9002313.99,"B","CERTIFIER",2500)=""
^DD(9002313.99,"B","ECME TIMEOUT",3.01)=""
^DD(9002313.99,"B","NAME",.01)=""
^DD(9002313.99,"B","PAYER RESPONSE TEST MODE",3.02)=""
^DD(9002313.99,"B","SITE TYPE",9999)=""
^DD(9002313.99,"B","VA Alternate Site Contract",6001)=""
^DD(9002313.99,"B","VA LAST SEQUENCE",10000)=""
^DD(9002313.99,"B","VA SITE CONTACT",6000)=""
^DD(9002313.99,"B","VITRIA INTERFACE VERSION #",6003)=""
^DD(9002313.99,"B","WINNOW BPS LOG",2341.03)=""
^DD(9002313.99,"B","WINNOW TESTING FLAG",2341.01)=""
^DD(9002313.99,"GL",0,1,.01)=""
^DD(9002313.99,"GL",0,2,3.01)=""
^DD(9002313.99,"GL",0,3,3.02)=""
^DD(9002313.99,"GL",0,4,.04)=""
^DD(9002313.99,"GL",3,1,10000)=""
^DD(9002313.99,"GL","CERTIFIER",1,2500)=""
^DD(9002313.99,"GL","SITE TYPE",1,9999)=""
^DD(9002313.99,"GL","VITRIA",1,6000)=""
^DD(9002313.99,"GL","VITRIA",2,6001)=""
^DD(9002313.99,"GL","VITRIA",3,6003)=""
^DD(9002313.99,"GL","WINNOW",1,2341.01)=""
^DD(9002313.99,"GL","WINNOW",3,2341.03)=""
^DD(9002313.99,"IX",.01)=""
^DD(9002313.99,"RQ",.01)=""
^DD(9002313.99,"RQ",3.01)=""
^DD(9002313.99,"RQ",9999)=""
^DD(9009032.3,0)="FIELD^^.01^2"
^DD(9009032.3,0,"DDA")="N"
^DD(9009032.3,0,"DT")="2930311"
^DD(9009032.3,0,"IX","B",9009032.3,.01)=""
^DD(9009032.3,0,"NM","APSP INTERVENTION TYPE")=""
^DD(9009032.3,0,"PT",9009032.4,.07)=""
^DD(9009032.3,0,"VR")="1.0"
^DD(9009032.3,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(9009032.3,.001,0)="NUMBER^NJ5,0I^^ ^K:+X'=X!(X>99999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9009032.3,.001,3)="Type a Number between 1 and 99999, 0 Decimal Digits"
^DD(9009032.3,.001,21,0)="^^1^1^2930121^"
^DD(9009032.3,.001,21,1,0)="This field is used to select entries by their internal number."
^DD(9009032.3,.001,"DT")="2891005"
^DD(9009032.3,.01,0)="TYPE^RFI^^0;1^K:$L(X)>75!($L(X)<3)!'(X'?1P.E) X"
^DD(9009032.3,.01,1,0)="^.1"
^DD(9009032.3,.01,1,1,0)="9009032.3^B"
^DD(9009032.3,.01,1,1,1)="S ^APSPQA(32.3,""B"",$E(X,1,30),DA)="""""
^DD(9009032.3,.01,1,1,2)="K ^APSPQA(32.3,""B"",$E(X,1,30),DA)"
^DD(9009032.3,.01,3)="Answer must be 3-75 characters in length."
^DD(9009032.3,.01,21,0)="^^2^2^2921123^^^"
^DD(9009032.3,.01,21,1,0)="Enter a description of an error type to use with APSP "
^DD(9009032.3,.01,21,2,0)="INTERVENTION FILE."
^DD(9009032.3,.01,"DEL",.01,0)="I 1"
^DD(9009032.3,.01,"DT")="2930311"
^DD(9009032.3,"B","NUMBER",.001)=""
^DD(9009032.3,"B","TYPE",.01)=""
^DD(9009032.3,"GL",0,1,.01)=""
^DD(9009032.3,"IX",.01)=""
^DD(9009032.3,"RQ",.01)=""
^DD(9009032.4,0)="FIELD^^1600^22"
^DD(9009032.4,0,"DDA")="N"
^DD(9009032.4,0,"DT")="2930322"
^DD(9009032.4,0,"ID",.02)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^DPT(+$P(^(0),U,2),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(2,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(9009032.4,0,"ID",.05)="S %I=Y,Y=$S('$D(^(0)):"""",$D(^PSDRUG(+$P(^(0),U,5),0))#2:$P(^(0),U,1),1:""""),C=$P(^DD(50,.01,0),U,2) D Y^DIQ:Y]"""" W ""   "",Y,@(""$E(""_DIC_""%I,0),0)"") S Y=%I K %I"
^DD(9009032.4,0,"IX","AC",9009032.4,.03)=""
^DD(9009032.4,0,"IX","AD",9009032.4,.07)=""
^DD(9009032.4,0,"IX","AE",9009032.4,.04)=""
^DD(9009032.4,0,"IX","B",9009032.4,.01)=""
^DD(9009032.4,0,"IX","C",9009032.4,.02)=""
^DD(9009032.4,0,"IX","D",9009032.4,.04)=""
^DD(9009032.4,0,"NM","APSP INTERVENTION")=""
^DD(9009032.4,0,"VR")="1.0"
^DD(9009032.4,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(9009032.4,.01,0)="INTERVENTION DATE^RDX^^0;1^S %DT=""EX"",%DT(0)=-DT D ^%DT K %DT(0) S X=Y K:Y<1 X"
^DD(9009032.4,.01,1,0)="^.1"
^DD(9009032.4,.01,1,1,0)="9009032.4^B"
^DD(9009032.4,.01,1,1,1)="S ^APSPQA(32.4,""B"",$E(X,1,30),DA)="""""
^DD(9009032.4,.01,1,1,2)="K ^APSPQA(32.4,""B"",$E(X,1,30),DA)"
^DD(9009032.4,.01,3)="Enter the date of the intervention, usually you can enter 'T' for today."
^DD(9009032.4,.01,21,0)="^^3^3^2930318^^^^"
^DD(9009032.4,.01,21,1,0)="This is the date that you recorded the intervention."
^DD(9009032.4,.01,21,2,0)="You can enter any standard FileMan date input."
^DD(9009032.4,.01,21,3,0)="ex. 2/5/90, Feb 5, 1990, etc."
^DD(9009032.4,.01,"DT")="2930319"
^DD(9009032.4,.02,0)="PATIENT^RP2'^DPT(^0;2^Q"
^DD(9009032.4,.02,1,0)="^.1"
^DD(9009032.4,.02,1,1,0)="9009032.4^C"
^DD(9009032.4,.02,1,1,1)="S ^APSPQA(32.4,""C"",$E(X,1,30),DA)="""""
^DD(9009032.4,.02,1,1,2)="K ^APSPQA(32.4,""C"",$E(X,1,30),DA)"
^DD(9009032.4,.02,1,1,"%D",0)="^^3^3^2921123^"
^DD(9009032.4,.02,1,1,"%D",1,0)="This cross reference is used to allow pharmacists to"
^DD(9009032.4,.02,1,1,"%D",2,0)="look up interventions by patient when they need to complete"
^DD(9009032.4,.02,1,1,"%D",3,0)="a intervention entry."
^DD(9009032.4,.02,3)="Please enter the patient's name or ID#."
^DD(9009032.4,.02,21,0)="^^4^4^2930405^^^^"
^DD(9009032.4,.02,21,1,0)="You should enter the patient that you are intervening for.  You may"
^DD(9009032.4,.02,21,2,0)="use any of the normal ways you use to enter a prompt that asks for"
^DD(9009032.4,.02,21,3,0)="a patient. "
^DD(9009032.4,.02,21,4,0)="Ex. Lastname, Firstname MI. or ID#"
^DD(9009032.4,.02,"DT")="2900314"
^DD(9009032.4,.03,0)="PROVIDER^*P200'^VA(200,^0;3^S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9009032.4,.03,1,0)="^.1"
^DD(9009032.4,.03,1,1,0)="9009032.4^AC"
^DD(9009032.4,.03,1,1,1)="S ^APSPQA(32.4,""AC"",$E(X,1,30),DA)="""""
^DD(9009032.4,.03,1,1,2)="K ^APSPQA(32.4,""AC"",$E(X,1,30),DA)"
^DD(9009032.4,.03,1,1,"%D",0)="^^3^3^2921123^"
^DD(9009032.4,.03,1,1,"%D",1,0)="This cross reference was put into place to allow"
^DD(9009032.4,.03,1,1,"%D",2,0)="sorting of the entries by Provider.  This may be useful"
^DD(9009032.4,.03,1,1,"%D",3,0)="for custom reports."
^DD(9009032.4,.03,3)="Enter the provider involved with the intervention."
^DD(9009032.4,.03,12)="Only valid providers are to be selected."
^DD(9009032.4,.03,12.1)="S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"""
^DD(9009032.4,.03,21,0)="^^3^3^2920708^^"
^DD(9009032.4,.03,21,1,0)="You should enter the name of the provider that prescribed this "
^DD(9009032.4,.03,21,2,0)="medication or treatment that you are intervening on."
^DD(9009032.4,.03,21,3,0)="You may enter the provider's name or the provider's synonym."
^DD(9009032.4,.03,"DT")="2930226"
^DD(9009032.4,.04,0)="PHARMACIST^*P200'^VA(200,^0;4^S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9009032.4,.04,1,0)="^.1"
^DD(9009032.4,.04,1,1,0)="9009032.4^AE"
^DD(9009032.4,.04,1,1,1)="S ^APSPQA(32.4,""AE"",$E(X,1,30),DA)="""""
^DD(9009032.4,.04,1,1,2)="K ^APSPQA(32.4,""AE"",$E(X,1,30),DA)"
^DD(9009032.4,.04,1,1,"%D",0)="^^3^3^2921123^"
^DD(9009032.4,.04,1,1,"%D",1,0)="This cross reference was put into place to allow"
^DD(9009032.4,.04,1,1,"%D",2,0)="sorting of the entries by Provider.  This may be useful"
^DD(9009032.4,.04,1,1,"%D",3,0)="for custom reports."
^DD(9009032.4,.04,1,2,0)="9009032.4^D"
^DD(9009032.4,.04,1,2,1)="S ^APSPQA(32.4,""D"",$E(X,1,30),DA)="""""
^DD(9009032.4,.04,1,2,2)="K ^APSPQA(32.4,""D"",$E(X,1,30),DA)"
^DD(9009032.4,.04,1,2,3)="Do not delete."
^DD(9009032.4,.04,1,2,"%D",0)="^^1^1^2941028^"
^DD(9009032.4,.04,1,2,"%D",1,0)="This xref is used to look up by pharmacist."
^DD(9009032.4,.04,1,2,"DT")="2941028"
^DD(9009032.4,.04,12)="Only select a user with a pharmacist's key"
^DD(9009032.4,.04,12.1)="S DIC(""S"")=""I $D(^XUSEC(""""PSORPH"""",Y))"""
^DD(9009032.4,.04,21,0)="^^3^3^2930226^^^^"
^DD(9009032.4,.04,21,1,0)="You should enter the name of the pharmacist making the"
^DD(9009032.4,.04,21,2,0)="intervention and who will be doing the follow up with"
^DD(9009032.4,.04,21,3,0)="the provider."
^DD(9009032.4,.04,"DT")="2941028"
^DD(9009032.4,.05,0)="DRUG^P50'^PSDRUG(^0;5^Q"
^DD(9009032.4,.05,21,0)="^^3^3^2900312^"
^DD(9009032.4,.05,21,1,0)="If there is a drug involved in the intervention, enter the name of the"
^DD(9009032.4,.05,21,2,0)="drug here.  This is a pointer to your local Drug file and you will"
^DD(9009032.4,.05,21,3,0)="only be able to enter drugs that are in this file."
^DD(9009032.4,.05,"DT")="2900224"
^DD(9009032.4,.06,0)="INSTITUTED BY^RS^1:PHARMACY;2:PROVIDER;3:NURSING;4:PATIENT OR FAMILY;5:OTHER;^0;6^Q"
^DD(9009032.4,.06,21,0)="^^4^4^2900312^^"
^DD(9009032.4,.06,21,1,0)="This field is asking who initially brought up the need for an"
^DD(9009032.4,.06,21,2,0)="intervention.  You should enter a '?' to see your choices."
^DD(9009032.4,.06,21,3,0)="The choices currently offered include : Pharmacy, Nursing, Provider,"
^DD(9009032.4,.06,21,4,0)="Patient or Family, and Other (to catch everybody else)."
^DD(9009032.4,.06,"DT")="2900227"
^DD(9009032.4,.07,0)="INTERVENTION^RP9009032.3'^APSPQA(32.3,^0;7^Q"
^DD(9009032.4,.07,1,0)="^.1"
^DD(9009032.4,.07,1,1,0)="9009032.4^AD"
^DD(9009032.4,.07,1,1,1)="S ^APSPQA(32.4,""AD"",$E(X,1,30),DA)="""""
^DD(9009032.4,.07,1,1,2)="K ^APSPQA(32.4,""AD"",$E(X,1,30),DA)"
^DD(9009032.4,.07,1,1,"%D",0)="^^3^3^2921123^"
^DD(9009032.4,.07,1,1,"%D",1,0)="This cross reference was put into place to allow easy sorting"
^DD(9009032.4,.07,1,1,"%D",2,0)="of entries by the type of intervention.  This may be useful"
^DD(9009032.4,.07,1,1,"%D",3,0)="for custom reports."
^DD(9009032.4,.07,3)=""
^DD(9009032.4,.07,21,0)="^^10^10^2930406^^^^"
^DD(9009032.4,.07,21,1,0)="You are given a selection of 19 different types of interventions.  You "
^DD(9009032.4,.07,21,2,0)="should enter 1 of the choices.  Choices include: Inappropriate Drug, "
^DD(9009032.4,.07,21,3,0)="Incorrect Dose, Allergy, etc. If you would like to see a list of all your "
^DD(9009032.4,.07,21,4,0)="choices enter a '?' at the prompt.  If none of the selections really cover "
^DD(9009032.4,.07,21,5,0)="the reason for the intervention you should enter 'Other'."
^DD(9009032.4,.07,21,6,0)=" "
^DD(9009032.4,.07,21,7,0)=" "
^DD(9009032.4,.07,21,8,0)=" "
^DD(9009032.4,.07,21,9,0)=" "
^DD(9009032.4,.07,21,10,0)=" "
^DD(9009032.4,.07,"DT")="2900625"
^DD(9009032.4,.08,0)="RECOMMENDATION^RP9009032.5'^APSPQA(32.5,^0;8^Q"
^DD(9009032.4,.08,3)=""
^DD(9009032.4,.08,21,0)="^^5^5^2900312^"
^DD(9009032.4,.08,21,1,0)="This is the type of recommendation the pharmacist is going"
^DD(9009032.4,.08,21,2,0)="to make to the provider.  You can see the list of selections"
^DD(9009032.4,.08,21,3,0)="by entering a '?' at the prompt.  Just as in previous fields"
^DD(9009032.4,.08,21,4,0)="if none of the selections cover the recommendation the"
^DD(9009032.4,.08,21,5,0)="pharmacist should enter an 'Other' at the prompt."
^DD(9009032.4,.08,"DT")="2900227"
^DD(9009032.4,.09,0)="WAS PROVIDER CONTACTED^S^0:YES;1:NO;^0;9^Q"
^DD(9009032.4,.09,3)=""
^DD(9009032.4,.09,21,0)="5"
^DD(9009032.4,.09,21,1,0)="This field is used to record whether or not a provider was"
^DD(9009032.4,.09,21,2,0)="contacted regarding the intervention.  In most cases a"
^DD(9009032.4,.09,21,3,0)="provider will be contacted but if a pharmacy and a provider"
^DD(9009032.4,.09,21,4,0)="have certain agreements about changing orders the provider may"
^DD(9009032.4,.09,21,5,0)="not be contacted."
^DD(9009032.4,.09,"DT")="2900313"
^DD(9009032.4,.11,0)="PROVIDER CONTACTED^*P200'^VA(200,^0;11^S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9009032.4,.11,3)="Enter the name of the provider contacted if it is different than the provider who wrote the prescription or ordered the treatment."
^DD(9009032.4,.11,12)="Only valid providers are to be selected."
^DD(9009032.4,.11,12.1)="S DIC(""S"")=""S X(1)=$G(^(""""PS"""")) I +X(1),$S('$P(X(1),""""^"""",4):1,1:$P(X(1),""""^"""",4)'<DT)"""
^DD(9009032.4,.11,21,0)="^^11^11^2930406^^^^"
^DD(9009032.4,.11,21,1,0)="This field is used to record the name of a provider that was contacted if "
^DD(9009032.4,.11,21,2,0)="it is different from the provider who wrote the prescription or ordered "
^DD(9009032.4,.11,21,3,0)="the treatment.  It is a pointer to the New Person file and you should "
^DD(9009032.4,.11,21,4,0)="enter the provider here just as you would anyplace else."
^DD(9009032.4,.11,21,5,0)=" "
^DD(9009032.4,.11,21,6,0)=" "
^DD(9009032.4,.11,21,7,0)=" "
^DD(9009032.4,.11,21,8,0)=" "
^DD(9009032.4,.11,21,9,0)="  "
^DD(9009032.4,.11,21,10,0)=" "
^DD(9009032.4,.11,21,11,0)=" "
^DD(9009032.4,.11,"DT")="2930226"
^DD(9009032.4,.12,0)="RECOMMENDATION ACCEPTED^S^0:NO;1:YES;^0;12^Q"
^DD(9009032.4,.12,3)=""
^DD(9009032.4,.12,21,0)="^^2^2^2900314^"
^DD(9009032.4,.12,21,1,0)="This field is used to record whether your recommendation was "
^DD(9009032.4,.12,21,2,0)="accepted or rejected by the provider."
^DD(9009032.4,.12,"DT")="2900313"
^DD(9009032.4,.13,0)="AGREE WITH PROVIDER^S^0:YES;1:NO;^0;13^Q"
^DD(9009032.4,.13,21,0)="^^4^4^2900314^"
^DD(9009032.4,.13,21,1,0)="This field is used to record whether you agree with the provider"
^DD(9009032.4,.13,21,2,0)="if your recommendation was rejected.  This field will only be asked"
^DD(9009032.4,.13,21,3,0)="if the user answered 'No' to the Recommendation Accepted field.  The"
^DD(9009032.4,.13,21,4,0)="pharmacist should answer either 'Yes' or 'No'."
^DD(9009032.4,.13,"DT")="2900313"
^DD(9009032.4,.14,0)="ORIGINATING PACKAGE^S^0:OUTPATIENT;1:INPATIENT;^0;14^Q"
^DD(9009032.4,.14,21,0)="^^3^3^2930322^^^"
^DD(9009032.4,.14,21,1,0)="This field contains information about whether a intervention was"
^DD(9009032.4,.14,21,2,0)="originated by the Outpatient Pharmacy or Inpatient Medications"
^DD(9009032.4,.14,21,3,0)="software."
^DD(9009032.4,.14,"DT")="2930322"
^DD(9009032.4,.15,0)="RX #^F^^0;15^K:$L(X)>10!($L(X)<3) X"
^DD(9009032.4,.15,3)="Answer must be 3-10 characters in length."
^DD(9009032.4,.15,21,0)="^^3^3^2920708^"
^DD(9009032.4,.15,21,1,0)="This field contains the prescription number involved in an"
^DD(9009032.4,.15,21,2,0)="intervention.  This field is filled by the routine called for"
^DD(9009032.4,.15,21,3,0)="drug-drug interactions."
^DD(9009032.4,.15,"DT")="2920708"
^DD(9009032.4,.16,0)="DIVISION^P59'^PS(59,^0;16^Q"
^DD(9009032.4,.16,3)="Enter the pharmacy division involved in the intervention"
^DD(9009032.4,.16,21,0)="^^1^1^2920708^"
^DD(9009032.4,.16,21,1,0)="This is the pharmacy division involved in the intervention"
^DD(9009032.4,.16,23,0)="^^1^1^2920708^"
^DD(9009032.4,.16,23,1,0)="This is a pointer to the Outpatient Site File (File 59)"
^DD(9009032.4,.16,"DT")="2930226"
^DD(9009032.4,.17,0)="FINANCIAL COST^NJ12,2^^0;17^S:X[""$"" X=$P(X,""$"",2) K:X'?.N.1""."".2N!(X>999999999)!(X<0) X"
^DD(9009032.4,.17,3)="Type a Dollar Amount between 0 and 999999999, 2 Decimal Digits"
^DD(9009032.4,.17,21,0)="^^1^1^2920708^"
^DD(9009032.4,.17,21,1,0)="This field is used to estimate the savings due to this intervention."
^DD(9009032.4,.17,"DT")="2920708"
^DD(9009032.4,1100,0)="OTHER FOR INTERVENTION^9009032.411^^11;0"
^DD(9009032.4,1200,0)="OTHER FOR RECOMMENDATION^9009032.412^^12;0"
^DD(9009032.4,1200,21,0)="^^5^5^2930121^^"
^DD(9009032.4,1200,21,1,0)="The pharmacist is asked this field only if they have answered"
^DD(9009032.4,1200,21,2,0)="the Recommendation field with 'Other'.  This is a word-processing"
^DD(9009032.4,1200,21,3,0)="field that allows you to enter any recommendation you would like"
^DD(9009032.4,1200,21,4,0)="to make that was not covered by the selections in the Recommendation"
^DD(9009032.4,1200,21,5,0)="field."
^DD(9009032.4,1300,0)="REASON FOR INTERVENTION^9009032.413^^13;0"
^DD(9009032.4,1300,21,0)="^^2^2^2930121^^"
^DD(9009032.4,1300,21,1,0)="This field is a word-processing field that is used by the pharmacist if"
^DD(9009032.4,1300,21,2,0)="they wish to record a more detailed explanation of the intervention."
^DD(9009032.4,1400,0)="ACTION TAKEN^9009032.414^^14;0"
^DD(9009032.4,1400,21,0)="^^3^3^2930121^^^"
^DD(9009032.4,1400,21,1,0)="This word-processing field may be used by the pharmacist to"
^DD(9009032.4,1400,21,2,0)="record more detailed information about the action taken with"
^DD(9009032.4,1400,21,3,0)="this intervention."
^DD(9009032.4,1500,0)="CLINICAL IMPACT^9009032.415^^15;0"
^DD(9009032.4,1500,21,0)="1^^3^3^2930121^^^"
^DD(9009032.4,1500,21,1,0)="This word-processing field may be utilized by the pharmacist if"
^DD(9009032.4,1500,21,2,0)="they wish to document what they felt the clinical impact of"
^DD(9009032.4,1500,21,3,0)="the intervention is."
^DD(9009032.4,1600,0)="FINANCIAL IMPACT^9009032.416^^16;0"
^DD(9009032.4,1600,21,0)="3^^3^3^2930121^^"
^DD(9009032.4,1600,21,1,0)="This word processing field may be utilized by the pharmacist if"
^DD(9009032.4,1600,21,2,0)="they wish to document some sort of financial impact of the"
^DD(9009032.4,1600,21,3,0)="intervention."
^DD(9009032.4,1600,23,0)="^^1^1^2930121^^"
^DD(9009032.4,1600,23,1,0)="word processing"
^DD(9009032.4,"B","ACTION TAKEN",1400)=""
^DD(9009032.4,"B","AGREE WITH PROVIDER",.13)=""
^DD(9009032.4,"B","CLINICAL IMPACT",1500)=""
^DD(9009032.4,"B","DIVISION",.16)=""
^DD(9009032.4,"B","DRUG",.05)=""
^DD(9009032.4,"B","FINANCIAL COST",.17)=""
^DD(9009032.4,"B","FINANCIAL IMPACT",1600)=""
^DD(9009032.4,"B","INSTITUTED BY",.06)=""
^DD(9009032.4,"B","INTERVENTION",.07)=""
^DD(9009032.4,"B","INTERVENTION DATE",.01)=""
^DD(9009032.4,"B","ORIGINATING PACKAGE",.14)=""
^DD(9009032.4,"B","OTHER FOR INTERVENTION",1100)=""
^DD(9009032.4,"B","OTHER FOR RECOMMENDATION",1200)=""
^DD(9009032.4,"B","PATIENT",.02)=""
^DD(9009032.4,"B","PHARMACIST",.04)=""
^DD(9009032.4,"B","PROVIDER",.03)=""
^DD(9009032.4,"B","PROVIDER CONTACTED",.11)=""
^DD(9009032.4,"B","REASON FOR INTERVENTION",1300)=""
^DD(9009032.4,"B","RECOMMENDATION",.08)=""
^DD(9009032.4,"B","RECOMMENDATION ACCEPTED",.12)=""
^DD(9009032.4,"B","RX #",.15)=""
^DD(9009032.4,"B","WAS PROVIDER CONTACTED",.09)=""
^DD(9009032.4,"GL",0,1,.01)=""
^DD(9009032.4,"GL",0,2,.02)=""
^DD(9009032.4,"GL",0,3,.03)=""
^DD(9009032.4,"GL",0,4,.04)=""
^DD(9009032.4,"GL",0,5,.05)=""
^DD(9009032.4,"GL",0,6,.06)=""
^DD(9009032.4,"GL",0,7,.07)=""
^DD(9009032.4,"GL",0,8,.08)=""
^DD(9009032.4,"GL",0,9,.09)=""
^DD(9009032.4,"GL",0,11,.11)=""
^DD(9009032.4,"GL",0,12,.12)=""
^DD(9009032.4,"GL",0,13,.13)=""
^DD(9009032.4,"GL",0,14,.14)=""
^DD(9009032.4,"GL",0,15,.15)=""
^DD(9009032.4,"GL",0,16,.16)=""
^DD(9009032.4,"GL",0,17,.17)=""
^DD(9009032.4,"GL",11,0,1100)=""
^DD(9009032.4,"GL",12,0,1200)=""
^DD(9009032.4,"GL",13,0,1300)=""
^DD(9009032.4,"GL",14,0,1400)=""
^DD(9009032.4,"GL",15,0,1500)=""
^DD(9009032.4,"GL",16,0,1600)=""
^DD(9009032.4,"IX",.01)=""
^DD(9009032.4,"IX",.02)=""
^DD(9009032.4,"IX",.03)=""
^DD(9009032.4,"IX",.04)=""
^DD(9009032.4,"IX",.07)=""
^DD(9009032.4,"RQ",.01)=""
^DD(9009032.4,"RQ",.02)=""
^DD(9009032.4,"RQ",.06)=""
^DD(9009032.4,"RQ",.07)=""
^DD(9009032.4,"RQ",.08)=""
^DD(9009032.4,"SB",9009032.411,1100)=""
^DD(9009032.4,"SB",9009032.412,1200)=""
^DD(9009032.4,"SB",9009032.413,1300)=""
^DD(9009032.4,"SB",9009032.414,1400)=""
^DD(9009032.4,"SB",9009032.415,1500)=""
^DD(9009032.4,"SB",9009032.416,1600)=""
^DD(9009032.411,0)="OTHER FOR INTERVENTION SUB-FIELD^^.01^1"
^DD(9009032.411,0,"DT")="2900301"
^DD(9009032.411,0,"NM","OTHER FOR INTERVENTION")=""
^DD(9009032.411,0,"UP")="9009032.4"
^DD(9009032.411,.01,0)="OTHER FOR INTERVENTION^WL^^0;1^Q"
^DD(9009032.411,.01,21,0)="^^6^6^2900312^"
^DD(9009032.411,.01,21,1,0)="This field is used when a pharmacist has chosen 'Other' as the"
^DD(9009032.411,.01,21,2,0)="entry for the Intervention field.  This is a word processing field"
^DD(9009032.411,.01,21,3,0)="that the pharmacist can then use to enter a Intervention Type that"
^DD(9009032.411,.01,21,4,0)="was not covered by the other selections of the Intervention field."
^DD(9009032.411,.01,21,5,0)="The person making the entry will only be asked this field if"
^DD(9009032.411,.01,21,6,0)="they entered 'Other' in the Intervention field."
^DD(9009032.411,.01,"DT")="2900301"
^DD(9009032.411,"B","OTHER FOR INTERVENTION",.01)=""
^DD(9009032.411,"GL",0,1,.01)=""
^DD(9009032.412,0)="OTHER FOR RECOMMENDATION SUB-FIELD^^.01^1"
^DD(9009032.412,0,"DT")="2900301"
^DD(9009032.412,0,"NM","OTHER FOR RECOMMENDATION")=""
^DD(9009032.412,0,"UP")="9009032.4"
^DD(9009032.412,.01,0)="OTHER FOR RECOMMENDATION^WL^^0;1^Q"
^DD(9009032.412,.01,21,0)="^^2^2^2930121^"
^DD(9009032.412,.01,21,1,0)="This field is used to enter other recommedations if 'Other' is entered as"
^DD(9009032.412,.01,21,2,0)="a recommendation."
^DD(9009032.412,.01,23,0)="^^1^1^2930121^"
^DD(9009032.412,.01,23,1,0)="word processing"
^DD(9009032.412,.01,"DT")="2900301"
^DD(9009032.412,"B","OTHER FOR RECOMMENDATION",.01)=""
^DD(9009032.412,"GL",0,1,.01)=""
^DD(9009032.413,0)="REASON FOR INTERVENTION SUB-FIELD^^.01^1"
^DD(9009032.413,0,"DT")="2900301"
^DD(9009032.413,0,"NM","REASON FOR INTERVENTION")=""
^DD(9009032.413,0,"UP")="9009032.4"
^DD(9009032.413,.01,0)="REASON FOR INTERVENTION^WL^^0;1^Q"
^DD(9009032.413,.01,21,0)="^^1^1^2930121^"
^DD(9009032.413,.01,21,1,0)="This field is used to enter a more detailed explantion of the intervention."
^DD(9009032.413,.01,"DT")="2900301"
^DD(9009032.413,"B","REASON FOR INTERVENTION",.01)=""
^DD(9009032.413,"GL",0,1,.01)=""
^DD(9009032.414,0)="ACTION TAKEN SUB-FIELD^^.01^1"
^DD(9009032.414,0,"DT")="2900301"
^DD(9009032.414,0,"NM","ACTION TAKEN")=""
^DD(9009032.414,0,"UP")="9009032.4"
^DD(9009032.414,.01,0)="ACTION TAKEN^WL^^0;1^Q"
^DD(9009032.414,.01,21,0)="^^1^1^2930121^"
^DD(9009032.414,.01,21,1,0)="This field is used to enter a more detailed explanation of the action taken."
^DD(9009032.414,.01,"DT")="2900301"
^DD(9009032.414,"B","ACTION TAKEN",.01)=""
^DD(9009032.414,"GL",0,1,.01)=""
^DD(9009032.415,0)="CLINICAL IMPACT SUB-FIELD^^.01^1"
^DD(9009032.415,0,"DT")="2900301"
^DD(9009032.415,0,"NM","CLINICAL IMPACT")=""
^DD(9009032.415,0,"UP")="9009032.4"
^DD(9009032.415,.01,0)="CLINICAL IMPACT^WL^^0;1^Q"
^DD(9009032.415,.01,21,0)="^^2^2^2930121^^"
^DD(9009032.415,.01,21,1,0)="This field is used by the pharmacist if they want to document what they"
^DD(9009032.415,.01,21,2,0)="felt the clinical impact of the intervention is."
^DD(9009032.415,.01,23,0)="^^1^1^2930121^^"
^DD(9009032.415,.01,23,1,0)="word processing"
^DD(9009032.415,.01,"DT")="2900301"
^DD(9009032.415,"B","CLINICAL IMPACT",.01)=""
^DD(9009032.415,"GL",0,1,.01)=""
^DD(9009032.416,0)="FINANCIAL IMPACT SUB-FIELD^^.01^1"
^DD(9009032.416,0,"DT")="2900301"
^DD(9009032.416,0,"NM","FINANCIAL IMPACT")=""
^DD(9009032.416,0,"UP")="9009032.4"
^DD(9009032.416,.01,0)="FINANCIAL IMPACT^WL^^0;1^Q"
^DD(9009032.416,.01,21,0)="^^2^2^2930121^"
^DD(9009032.416,.01,21,1,0)="This field is used to to document if some type of financial impact is"
^DD(9009032.416,.01,21,2,0)="related to the intervention."
^DD(9009032.416,.01,"DT")="2900301"
^DD(9009032.416,"B","FINANCIAL IMPACT",.01)=""
^DD(9009032.416,"GL",0,1,.01)=""
^DD(9009032.5,0)="FIELD^^.01^2"
^DD(9009032.5,0,"DDA")="N"
^DD(9009032.5,0,"DT")="2900227"
^DD(9009032.5,0,"IX","B",9009032.5,.01)=""
^DD(9009032.5,0,"NM","APSP INTERVENTION RECOMMENDATION")=""
^DD(9009032.5,0,"PT",9009032.4,.08)=""
^DD(9009032.5,0,"VR")="1.0"
^DD(9009032.5,0,"VRPK")="PHARMACY DATA MANAGEMENT"
^DD(9009032.5,.001,0)="NUMBER^NJ3,0I^^ ^K:+X'=X!(X>999)!(X<1)!(X?.E1"".""1N.N) X"
^DD(9009032.5,.001,3)="Type a Number between 1 and 999, 0 Decimal Digits"
^DD(9009032.5,.001,21,0)="^^1^1^2930121^"
^DD(9009032.5,.001,21,1,0)="This field is used to select entries by the enternal number."
^DD(9009032.5,.001,"DT")="2900227"
^DD(9009032.5,.01,0)="RECOMMENDATION^RFI^^0;1^K:$L(X)>50!($L(X)<3)!'(X'?1P.E) X"
^DD(9009032.5,.01,1,0)="^.1"
^DD(9009032.5,.01,1,1,0)="9009032.5^B"
^DD(9009032.5,.01,1,1,1)="S ^APSPQA(32.5,""B"",$E(X,1,30),DA)="""""
^DD(9009032.5,.01,1,1,2)="K ^APSPQA(32.5,""B"",$E(X,1,30),DA)"
^DD(9009032.5,.01,3)="Answer must be 3-50 characters in length."
^DD(9009032.5,.01,21,0)="^^3^3^2950630^^"
^DD(9009032.5,.01,21,1,0)="This field holds a free text narrative describing a recommended"
^DD(9009032.5,.01,21,2,0)="action to be taken to resolve a Intervention. Examples would"
^DD(9009032.5,.01,21,3,0)="be things like Change Drug, Change Dosage, Order Lab Tests, etc."
^DD(9009032.5,.01,"DEL",.01,0)="I 1"
^DD(9009032.5,.01,"DT")="2900227"
^DD(9009032.5,"B","NUMBER",.001)=""
^DD(9009032.5,"B","RECOMMENDATION",.01)=""
^DD(9009032.5,"GL",0,1,.01)=""
^DD(9009032.5,"IX",.01)=""
^DD(9009032.5,"RQ",.01)=""
^DD(9999999.06,0)="FIELD^^.01^1"
^DD(9999999.06,0,"DDA")="N"
^DD(9999999.06,0,"DT")="2920824"
^DD(9999999.06,0,"ID",.04)="W """""
^DD(9999999.06,0,"ID",.05)="W """""
^DD(9999999.06,0,"ID",.07)="W """""
^DD(9999999.06,0,"IX","B",9999999.06,.01)=""
^DD(9999999.06,0,"NM","LOCATION")=""
^DD(9999999.06,0,"PT",150.9,.04)=""
^DD(9999999.06,0,"PT",815,501)=""
^DD(9999999.06,0,"PT",9000001.41,.01)=""
^DD(9999999.06,0,"PT",9000010,.06)=""
^DD(9999999.06,0,"PT",9000011,.06)=""
^DD(9999999.06,0,"PT",9000011.11,.01)=""
^DD(9999999.06,0,"SP",.12)="1^C"
^DD(9999999.06,.01,0)="NAME^RP4'X^DIC(4,^0;1^S:$D(X) DINUM=X"
^DD(9999999.06,.01,1,0)="^.1"
^DD(9999999.06,.01,1,1,0)="9999999.06^B"
^DD(9999999.06,.01,1,1,1)="S ^AUTTLOC(""B"",$E(X,1,30),DA)="""""
^DD(9999999.06,.01,1,1,2)="K ^AUTTLOC(""B"",$E(X,1,30),DA)"
^DD(9999999.06,.01,3)=""
^DD(9999999.06,.01,21,0)="^^3^3^2940122^"
^DD(9999999.06,.01,21,1,0)="This field points to the Institution file (#4) and has the same internal"
^DD(9999999.06,.01,21,2,0)="number as that file.  Thus, the location has the same name as the"
^DD(9999999.06,.01,21,3,0)="Institution file (#4).  The location is also referred to as the Facility."
^DD(9999999.06,.01,"DEL",.01,0)="I 1"
^DD(9999999.06,.01,"DT")="2860402"
^DD(9999999.06,"B","NAME",.01)=""
^DD(9999999.06,"GL",0,1,.01)=""
^DD(9999999.06,"IX",.01)=""
^DD(9999999.06,"RQ",.01)=""
^DD(9999999.09,0)="FIELD^^12^6"
^DD(9999999.09,0,"DDA")="N"
^DD(9999999.09,0,"DT")="2960229"
^DD(9999999.09,0,"IX","B",9999999.09,.01)=""
^DD(9999999.09,0,"IX","D",9999999.09,.01)=""
^DD(9999999.09,0,"NM","EDUCATION TOPICS")=""
^DD(9999999.09,0,"PT",801.41,15)=""
^DD(9999999.09,0,"PT",801.41,18)=""
^DD(9999999.09,0,"PT",801.4118,.01)=""
^DD(9999999.09,0,"PT",801.43,.02)=""
^DD(9999999.09,0,"PT",810.31,.04)=""
^DD(9999999.09,0,"PT",810.32,.01)=""
^DD(9999999.09,0,"PT",811.52,.01)=""
^DD(9999999.09,0,"PT",811.902,.01)=""
^DD(9999999.09,0,"PT",9000010.16,.01)=""
^DD(9999999.09,0,"PT",9999999.091001,.01)=""
^DD(9999999.09,0,"VR")="1.5"
^DD(9999999.09,0,"VRPK")="PXRM"
^DD(9999999.09,.01,0)="NAME^RFX^^0;1^K:$L(X)>70!($L(X)<3)!'(X'?1P.E) X I $D(X) D CKNA^PXTTU1(""^AUTTEDT("")"
^DD(9999999.09,.01,1,0)="^.1^^-1"
^DD(9999999.09,.01,1,1,0)="9999999.09^B"
^DD(9999999.09,.01,1,1,1)="S ^AUTTEDT(""B"",$E(X,1,70),DA)="""""
^DD(9999999.09,.01,1,1,2)="K ^AUTTEDT(""B"",$E(X,1,70),DA)"
^DD(9999999.09,.01,1,3,0)="9999999.09^D^KWIC"
^DD(9999999.09,.01,1,3,1)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD(""KWIC"")'[I S ^AUTTEDT(""D"",I,DA)="""""
^DD(9999999.09,.01,1,3,2)="S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I ""(,.?! '-/&:;)""[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AUTTEDT(""D"",I,DA)"
^DD(9999999.09,.01,1,3,"%D",0)="^^1^1^2951108^"
^DD(9999999.09,.01,1,3,"%D",1,0)="Kwick crossreference on all of the words in this file"
^DD(9999999.09,.01,1,3,"DT")="2951108"
^DD(9999999.09,.01,3)="Answer with Education Topic Name using 3- 70 characters."
^DD(9999999.09,.01,21,0)="^^7^7^2951102^^^^"
^DD(9999999.09,.01,21,1,0)="This is the name of the Patient Education Topic. Patient Education Topics"
^DD(9999999.09,.01,21,2,0)="are the subject on which a patient needs some more information in order"
^DD(9999999.09,.01,21,3,0)="to continue on his road to better health. For example, a patient may have "
^DD(9999999.09,.01,21,4,0)="had some podiatry work done and received foot care education. 'foot care'"
^DD(9999999.09,.01,21,5,0)="would be the name of the education topic."
^DD(9999999.09,.01,21,6,0)=" "
^DD(9999999.09,.01,21,7,0)="Enter a Topic that is 3-30 characters in length."
^DD(9999999.09,.01,"DEL",.01,0)="I 0"
^DD(9999999.09,.01,"DT")="3010807"
^DD(9999999.09,.03,0)="INACTIVE FLAG^S^1:INACTIVE;^0;3^Q"
^DD(9999999.09,.03,3)="Enter 1 to make the education topic inactive or an '@' to make it active."
^DD(9999999.09,.03,21,0)="^^8^8^2951102^^"
^DD(9999999.09,.03,21,1,0)="This field is used to inactivate an education topic.  If this field"
^DD(9999999.09,.03,21,2,0)="contains a ""1"" then the education topic is inactive.  Inactive education"
^DD(9999999.09,.03,21,3,0)="topics cannot be selected in the manual data entry process.  Education"
^DD(9999999.09,.03,21,4,0)="topic entries should be made inactive when they are no longer used.  Do"
^DD(9999999.09,.03,21,5,0)="not delete the entry or change the meaning of the education topic entry."
^DD(9999999.09,.03,21,6,0)=" "
^DD(9999999.09,.03,21,7,0)="To make an inactive education topic active, enter the symbol ""@"" to delete"
^DD(9999999.09,.03,21,8,0)="the ""1"" from the field."
^DD(9999999.09,.03,23,0)="^^6^6^2951102^^"
^DD(9999999.09,.03,23,1,0)="This field was added for use by PCE in the VA."
^DD(9999999.09,.03,23,2,0)=" "
^DD(9999999.09,.03,23,3,0)="The Inactive flag should be used to manage manual access to education"
^DD(9999999.09,.03,23,4,0)="topics, rather than physically deleting obsolete or inactive entries from"
^DD(9999999.09,.03,23,5,0)="the Education Topic file.  This allows files to still point to the"
^DD(9999999.09,.03,23,6,0)="obsolete or inactive education topic for historical purposes."
^DD(9999999.09,.03,"DT")="2950825"
^DD(9999999.09,.04,0)="PRINT NAME^F^^0;4^K:$L(X)>30!($L(X)<3) X"
^DD(9999999.09,.04,3)="Enter the name to be displayed in menu selection and health summaries."
^DD(9999999.09,.04,21,0)="^^2^2^2951120^^"
^DD(9999999.09,.04,21,1,0)="This is the name of the education that will be displayed in menu selection,"
^DD(9999999.09,.04,21,2,0)="and on Health Summaries."
^DD(9999999.09,.04,"DT")="2950509"
^DD(9999999.09,10,0)="SUBTOPIC^9999999.091001P^^10;0"
^DD(9999999.09,10,"DT")="2950718"
^DD(9999999.09,11,0)="EDUCATIONAL OUTCOME^9999999.0911^^11;0"
^DD(9999999.09,11,21,0)="^^2^2^2951121^^^^"
^DD(9999999.09,11,21,1,0)="This is a statement about what outcome is expected when providing this"
^DD(9999999.09,11,21,2,0)="patient education.  It may reflect education plan and goals."
^DD(9999999.09,11,22)=". ..."
^DD(9999999.09,11,"DT")="2950510"
^DD(9999999.09,12,0)="EDUCATIONAL STANDARDS^9999999.0912^^12;0"
^DD(9999999.09,12,21,0)="^^2^2^2950718^"
^DD(9999999.09,12,21,1,0)="This is the standards that and educator should use to teach the patient"
^DD(9999999.09,12,21,2,0)="or family or significant other."
^DD(9999999.09,"B","EDUCATIONAL OUTCOME",11)=""
^DD(9999999.09,"B","EDUCATIONAL STANDARDS",12)=""
^DD(9999999.09,"B","INACTIVE FLAG",.03)=""
^DD(9999999.09,"B","NAME",.01)=""
^DD(9999999.09,"B","PRINT NAME",.04)=""
^DD(9999999.09,"B","SUBTOPIC",10)=""
^DD(9999999.09,"GL",0,1,.01)=""
^DD(9999999.09,"GL",0,3,.03)=""
^DD(9999999.09,"GL",0,4,.04)=""
^DD(9999999.09,"GL",10,0,10)=""
^DD(9999999.09,"GL",11,0,11)=""
^DD(9999999.09,"GL",12,0,12)=""
^DD(9999999.09,"IX",.01)=""
^DD(9999999.09,"RQ",.01)=""
^DD(9999999.09,"SB",9999999.091001,10)=""
^DD(9999999.09,"SB",9999999.0911,11)=""
^DD(9999999.09,"SB",9999999.0912,12)=""
^DD(9999999.091001,0)="SUBTOPIC SUB-FIELD^^3^2"
^DD(9999999.091001,0,"DT")="2950510"
^DD(9999999.091001,0,"IX","B",9999999.091001,.01)=""
^DD(9999999.091001,0,"NM","SUBTOPIC")=""
^DD(9999999.091001,0,"UP")="9999999.09"
^DD(9999999.091001,.01,0)="SUBTOPIC^MP9999999.09^AUTTEDT(^0;1^Q"
^DD(9999999.091001,.01,1,0)="^.1"
^DD(9999999.091001,.01,1,1,0)="9999999.091001^B"
^DD(9999999.091001,.01,1,1,1)="S ^AUTTEDT(DA(1),10,""B"",$E(X,1,30),DA)="""""
^DD(9999999.091001,.01,1,1,2)="K ^AUTTEDT(DA(1),10,""B"",$E(X,1,30),DA)"
^DD(9999999.091001,.01,3)="Select an item which represents a topic or subtopic of the education topic."
^DD(9999999.091001,.01,"DT")="2950718"
^DD(9999999.091001,3,0)="SEQUENCE^NJ7,3^^0;3^K:+X'=X!(X>999)!(X<.001)!(X?.E1"".""4N.N) X"
^DD(9999999.091001,3,3)="Type a Number between .001 and 999, 3 Decimal Digits"
^DD(9999999.091001,3,21,0)="^^2^2^2950509^"
^DD(9999999.091001,3,21,1,0)="This field defines the sequence the item should be presented in, as it"
^DD(9999999.091001,3,21,2,0)="relates to other items making up the education topic."
^DD(9999999.091001,3,"DT")="2950509"
^DD(9999999.091001,"B","SEQUENCE",3)=""
^DD(9999999.091001,"B","SUBTOPIC",.01)=""
^DD(9999999.091001,"GL",0,1,.01)=""
^DD(9999999.091001,"GL",0,3,3)=""
^DD(9999999.091001,"IX",.01)=""
^DD(9999999.0911,0)="EDUCATIONAL OUTCOME SUB-FIELD^^.01^1"
^DD(9999999.0911,0,"DT")="2950509"
^DD(9999999.0911,0,"NM","EDUCATIONAL OUTCOME")=""
^DD(9999999.0911,0,"UP")="9999999.09"
^DD(9999999.0911,.01,0)="EDUCATIONAL OUTCOME^W^^0;1^Q"
^DD(9999999.0911,.01,3)="Enter the text that defines the goals or outcomes of this education."
^DD(9999999.0911,.01,21,0)="^^2^2^2951121^^^"
^DD(9999999.0911,.01,21,1,0)="This is a statement about what outcome is expected when providing this"
^DD(9999999.0911,.01,21,2,0)="patient education topic.  It may reflect education plan and goals. "
^DD(9999999.0911,.01,"DT")="2951121"
^DD(9999999.0911,"B","EDUCATIONAL OUTCOME",.01)=""
^DD(9999999.0911,"GL",0,1,.01)=""
^DD(9999999.0912,0)="EDUCATIONAL STANDARDS SUB-FIELD^^.01^1"
^DD(9999999.0912,0,"DT")="2950510"
^DD(9999999.0912,0,"NM","EDUCATIONAL STANDARDS")=""
^DD(9999999.0912,0,"UP")="9999999.09"
^DD(9999999.0912,.01,0)="EDUCATIONAL STANDARDS^W^^0;1^Q"
^DD(9999999.0912,.01,3)="Enter the standards as text."
^DD(9999999.0912,.01,"DT")="2950510"
^DD(9999999.0912,"B","EDUCATIONAL STANDARDS",.01)=""
^DD(9999999.0912,"GL",0,1,.01)=""
^DD(9999999.14,0)="FIELD^^8801^5"
^DD(9999999.14,0,"DDA")="N"
^DD(9999999.14,0,"DT")="2950825"
^DD(9999999.14,0,"ID",.02)="W:$D(^(""0"")) ""   "",$P(^(""0""),U,2)"
^DD(9999999.14,0,"IX","B",9999999.14,.01)=""
^DD(9999999.14,0,"IX","B",9999999.14,8801)=""
^DD(9999999.14,0,"IX","D",9999999.14,.02)=""
^DD(9999999.14,0,"NM","IMMUNIZATION")=""
^DD(9999999.14,0,"PT",801.41,15)=""
^DD(9999999.14,0,"PT",801.4118,.01)=""
^DD(9999999.14,0,"PT",801.43,.02)=""
^DD(9999999.14,0,"PT",810.31,.04)=""
^DD(9999999.14,0,"PT",810.32,.01)=""
^DD(9999999.14,0,"PT",811.1,.01)=""
^DD(9999999.14,0,"PT",811.1,.02)=""
^DD(9999999.14,0,"PT",811.52,.01)=""
^DD(9999999.14,0,"PT",811.902,.01)=""
^DD(9999999.14,0,"PT",9000010.11,.01)=""
^DD(9999999.14,.01,0)="NAME^RFX^^0;1^K:$L(X)>45!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X) D CKNA^PXTTU1(""^AUTTIMM("")"
^DD(9999999.14,.01,1,0)="^.1"
^DD(9999999.14,.01,1,1,0)="9999999.14^B"
^DD(9999999.14,.01,1,1,1)="S ^AUTTIMM(""B"",$E(X,1,30),DA)="""""
^DD(9999999.14,.01,1,1,2)="K ^AUTTIMM(""B"",$E(X,1,30),DA)"
^DD(9999999.14,.01,3)="ANSWER WITH IMMUNIZATION (3-45 CHARACTERS)"
^DD(9999999.14,.01,21,0)="3^^3^3^2950718^^"
^DD(9999999.14,.01,21,1,0)="This is the name of the Immunization (e.g. Tetanus Toxoid)."
^DD(9999999.14,.01,21,2,0)=" "
^DD(9999999.14,.01,21,3,0)="Enter the Name of the Immunization using 3 to 45 characters."
^DD(9999999.14,.01,"DEL",.01,0)="I 0"
^DD(9999999.14,.01,"DT")="3010807"
^DD(9999999.14,.02,0)="SHORT NAME^RF^^0;2^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<2) X"
^DD(9999999.14,.02,1,0)="^.1"
^DD(9999999.14,.02,1,1,0)="9999999.14^D"
^DD(9999999.14,.02,1,1,1)="S ^AUTTIMM(""D"",$E(X,1,30),DA)="""""
^DD(9999999.14,.02,1,1,2)="K ^AUTTIMM(""D"",$E(X,1,30),DA)"
^DD(9999999.14,.02,3)="ANSWER WITH A SHORT NAME (2-10 CHARACTERS)"
^DD(9999999.14,.02,21,0)="^^4^4^2950718^^^^"
^DD(9999999.14,.02,21,1,0)="This is the ""Short"" name for this immunization such as an acronym, Nick name,"
^DD(9999999.14,.02,21,2,0)="or other name by which it might be called (e.g. Tet Tox)."
^DD(9999999.14,.02,21,3,0)=" "
^DD(9999999.14,.02,21,4,0)="Enter the short name using 2 to 10 characters (e.g. Tet Tox)."
^DD(9999999.14,.02,"DT")="2861008"
^DD(9999999.14,.05,0)="MAX # IN SERIES^S^0:NON-SERIES;1:1;2:2;3:3;4:4;5:5;6:6;7:7;8:8;^0;5^Q"
^DD(9999999.14,.05,21,0)="^^5^5^2940125^^^^"
^DD(9999999.14,.05,21,1,0)="(Optional)"
^DD(9999999.14,.05,21,2,0)="This is the maximum number of vaccinations that can be given for this"
^DD(9999999.14,.05,21,3,0)="immunization."
^DD(9999999.14,.05,21,4,0)=" "
^DD(9999999.14,.05,21,5,0)="Enter the number between 0 and 8 that represents the maximum allowable vaccinations that can be given for this immunization."
^DD(9999999.14,.05,"DT")="2871209"
^DD(9999999.14,.07,0)="INACTIVE FLAG^S^1:INACTIVE;^0;7^Q"
^DD(9999999.14,.07,3)="Enter 1 to make the immunization type inactive."
^DD(9999999.14,.07,21,0)="^^8^8^2950825^"
^DD(9999999.14,.07,21,1,0)="This field is used to inactivate an immunization type.  If this field"
^DD(9999999.14,.07,21,2,0)="contains a ""1"" then the immunization is inactive.  Inactive immunizations"
^DD(9999999.14,.07,21,3,0)="cannot be selected in the manual data entry process. Immunization entries"
^DD(9999999.14,.07,21,4,0)="should be made inactive when they are no longer used. Do not delete the"
^DD(9999999.14,.07,21,5,0)="entry or change the meaning of the immunization entry."
^DD(9999999.14,.07,21,6,0)=" "
^DD(9999999.14,.07,21,7,0)="To make an inactive immunization active, enter the ""@"" symbol to delete"
^DD(9999999.14,.07,21,8,0)="the ""1"" from the field."
^DD(9999999.14,.07,23,0)="^^5^5^2950825^^"
^DD(9999999.14,.07,23,1,0)="This field was added for use by PCE in the VA."
^DD(9999999.14,.07,23,2,0)=" "
^DD(9999999.14,.07,23,3,0)="The inactive flag should be used, rather than deleting entries in"
^DD(9999999.14,.07,23,4,0)="the immunization file, since there may be other files pointing at the"
^DD(9999999.14,.07,23,5,0)="immunization entry."
^DD(9999999.14,.07,"DT")="2950825"
^DD(9999999.14,8801,0)="MNEMONIC^F^^88;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<1) X"
^DD(9999999.14,8801,1,0)="^.1"
^DD(9999999.14,8801,1,1,0)="9999999.14^B^MNEMONIC"
^DD(9999999.14,8801,1,1,1)="S ^AUTTIMM(""B"",$E(X,1,30),DA)=1"
^DD(9999999.14,8801,1,1,2)="K ^AUTTIMM(""B"",$E(X,1,30),DA)"
^DD(9999999.14,8801,3)="ANSWER MUST BE 1-3 CHARACTERS IN LENGTH"
^DD(9999999.14,8801,21,0)="^^3^3^2940125^^^^"
^DD(9999999.14,8801,21,1,0)="This is the mnemonic for this Immunization."
^DD(9999999.14,8801,21,2,0)=" "
^DD(9999999.14,8801,21,3,0)="Enter a 1 to 3 character mnemonic."
^DD(9999999.14,8801,"DT")="2871104"
^DD(9999999.14,"B","INACTIVE FLAG",.07)=""
^DD(9999999.14,"B","MAX # IN SERIES",.05)=""
^DD(9999999.14,"B","MNEMONIC",8801)=""
^DD(9999999.14,"B","NAME",.01)=""
^DD(9999999.14,"B","SHORT NAME",.02)=""
^DD(9999999.14,"GL",0,1,.01)=""
^DD(9999999.14,"GL",0,2,.02)=""
^DD(9999999.14,"GL",0,5,.05)=""
^DD(9999999.14,"GL",0,7,.07)=""
^DD(9999999.14,"GL",88,1,8801)=""
^DD(9999999.14,"IX",.01)=""
^DD(9999999.14,"IX",.02)=""
^DD(9999999.14,"IX",8801)=""
^DD(9999999.14,"RQ",.01)=""
^DD(9999999.14,"RQ",.02)=""
^DD(9999999.15,0)="FIELD^^8801^4"
^DD(9999999.15,0,"DDA")="N"
^DD(9999999.15,0,"DT")="2950825"
^DD(9999999.15,0,"IX","B",9999999.15,.01)=""
^DD(9999999.15,0,"IX","B",9999999.15,8801)=""
^DD(9999999.15,0,"NM","EXAM")=""
^DD(9999999.15,0,"PT",801.41,15)=""
^DD(9999999.15,0,"PT",801.4118,.01)=""
^DD(9999999.15,0,"PT",801.43,.02)=""
^DD(9999999.15,0,"PT",810.31,.04)=""
^DD(9999999.15,0,"PT",810.32,.01)=""
^DD(9999999.15,0,"PT",811.52,.01)=""
^DD(9999999.15,0,"PT",811.902,.01)=""
^DD(9999999.15,0,"PT",9000010.13,.01)=""
^DD(9999999.15,0,"VR")="1.0"
^DD(9999999.15,0,"VRPK")="PX"
^DD(9999999.15,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X) D CKNA^PXTTU1(""^AUTTEXAM("")"
^DD(9999999.15,.01,1,0)="^.1"
^DD(9999999.15,.01,1,1,0)="9999999.15^B"
^DD(9999999.15,.01,1,1,1)="S ^AUTTEXAM(""B"",$E(X,1,30),DA)="""""
^DD(9999999.15,.01,1,1,2)="K ^AUTTEXAM(""B"",$E(X,1,30),DA)"
^DD(9999999.15,.01,3)="ANSWER WITH THE NAME OF THE EXAM (3-30 CHARACTERS)"
^DD(9999999.15,.01,21,0)="^^4^4^2950720^^^^"
^DD(9999999.15,.01,21,1,0)="This is the name of the examination being given to a patient."
^DD(9999999.15,.01,21,2,0)=" "
^DD(9999999.15,.01,21,3,0)="Enter the name of the exam using 3 to 30 characters."
^DD(9999999.15,.01,21,4,0)=" "
^DD(9999999.15,.01,"DEL",.01,0)="I 0"
^DD(9999999.15,.01,"DT")="3010807"
^DD(9999999.15,.03,0)="SEX SPECIFIC^S^M:MALE;F:FEMALE;^0;3^Q"
^DD(9999999.15,.03,3)="ENTER M OR F IF THIS EXAM IS SEX SPECIFIC"
^DD(9999999.15,.03,21,0)="^^4^4^2950816^"
^DD(9999999.15,.03,21,1,0)="(Optional)"
^DD(9999999.15,.03,21,2,0)="This is the indicator for specifying the sex for which the exam is given."
^DD(9999999.15,.03,21,3,0)=" "
^DD(9999999.15,.03,21,4,0)="Enter an ""M"" for male or an ""F"" for Female."
^DD(9999999.15,.03,"DT")="2890209"
^DD(9999999.15,.04,0)="INACTIVE FLAG^S^1:INACTIVE;^0;4^Q"
^DD(9999999.15,.04,3)="Enter a ""1"" to make the exam type inactive."
^DD(9999999.15,.04,21,0)="^^8^8^2950825^"
^DD(9999999.15,.04,21,1,0)="This field is used to inactivate an exam type.  If this field contains a"
^DD(9999999.15,.04,21,2,0)="""1"" then the exam type is inactive.  Inactive exam types cannot be"
^DD(9999999.15,.04,21,3,0)="selected in the manual data entry process. Exam entries should be made"
^DD(9999999.15,.04,21,4,0)="inactive when they are no longer used.  Do not delete the entry or change"
^DD(9999999.15,.04,21,5,0)="the meaning of the exam entry. "
^DD(9999999.15,.04,21,6,0)="  "
^DD(9999999.15,.04,21,7,0)="To make an inactive exam type active, enter the ""@"" symbol to remove the"
^DD(9999999.15,.04,21,8,0)="""1"" from the field."
^DD(9999999.15,.04,23,0)="^^6^6^2950825^"
^DD(9999999.15,.04,23,1,0)="The field was added for use by PCE in the VA."
^DD(9999999.15,.04,23,2,0)=" "
^DD(9999999.15,.04,23,3,0)="The Inactive flag should be used to manage manual access to exams,"
^DD(9999999.15,.04,23,4,0)="rather than physically deleting obsolete or inactive entries from the Exam"
^DD(9999999.15,.04,23,5,0)="file.  This allows files to still point to the obsolete or inactive exam"
^DD(9999999.15,.04,23,6,0)="for historical purposes."
^DD(9999999.15,.04,"DT")="2950825"
^DD(9999999.15,8801,0)="MNEMONIC^F^^88;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(9999999.15,8801,1,0)="^.1"
^DD(9999999.15,8801,1,1,0)="9999999.15^B^MNEMONIC"
^DD(9999999.15,8801,1,1,1)="S ^AUTTEXAM(""B"",$E(X,1,30),DA)=1"
^DD(9999999.15,8801,1,1,2)="K ^AUTTEXAM(""B"",$E(X,1,30),DA)"
^DD(9999999.15,8801,3)="Enter a 1-2 character mnemonic for this exam."
^DD(9999999.15,8801,21,0)="^^2^2^2950816^"
^DD(9999999.15,8801,21,1,0)="This is a 1 - 2 character mnemonic for this exam.  Mnemonics will"
^DD(9999999.15,8801,21,2,0)="be able to be used for selecting exams at Select EXAM prompts."
^DD(9999999.15,8801,23,0)="^^2^2^2950816^"
^DD(9999999.15,8801,23,1,0)="A mnemonic entry here will be added to the ""B"" cross-reference for lookup"
^DD(9999999.15,8801,23,2,0)="by Fileman."
^DD(9999999.15,8801,"DT")="2851216"
^DD(9999999.15,"B","INACTIVE FLAG",.04)=""
^DD(9999999.15,"B","MNEMONIC",8801)=""
^DD(9999999.15,"B","NAME",.01)=""
^DD(9999999.15,"B","SEX SPECIFIC",.03)=""
^DD(9999999.15,"GL",0,1,.01)=""
^DD(9999999.15,"GL",0,3,.03)=""
^DD(9999999.15,"GL",0,4,.04)=""
^DD(9999999.15,"GL",88,1,8801)=""
^DD(9999999.15,"IX",.01)=""
^DD(9999999.15,"IX",8801)=""
^DD(9999999.15,"RQ",.01)=""
^DD(9999999.17,0)="FIELD^^8801^3"
^DD(9999999.17,0,"DT")="2951121"
^DD(9999999.17,0,"IX","B",9999999.17,.01)=""
^DD(9999999.17,0,"IX","B",9999999.17,8801)=""
^DD(9999999.17,0,"NM","TREATMENT")=""
^DD(9999999.17,0,"PT",9000010.15,.01)=""
^DD(9999999.17,.01,0)="NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X) D CKNA^PXTTU1(""^AUTTTRT("")"
^DD(9999999.17,.01,1,0)="^.1"
^DD(9999999.17,.01,1,1,0)="9999999.17^B"
^DD(9999999.17,.01,1,1,1)="S ^AUTTTRT(""B"",$E(X,1,30),DA)="""""
^DD(9999999.17,.01,1,1,2)="K ^AUTTTRT(""B"",$E(X,1,30),DA)"
^DD(9999999.17,.01,3)="Enter the name of a treatment using 3 to 30 characters"
^DD(9999999.17,.01,21,0)="^^3^3^2950718^^^^"
^DD(9999999.17,.01,21,1,0)="The name of the treatment that is being administered."
^DD(9999999.17,.01,21,2,0)=" "
^DD(9999999.17,.01,21,3,0)="Enter the name of a treatment using 3 to 30 characters."
^DD(9999999.17,.01,"DEL",.01,0)="I 0"
^DD(9999999.17,.01,"DT")="3010807"
^DD(9999999.17,.04,0)="INACTIVE FLAG^S^1:INACTIVE;^0;4^Q"
^DD(9999999.17,.04,3)="Enter a 1 to make the treatment type inactive."
^DD(9999999.17,.04,21,0)="^^8^8^2950825^"
^DD(9999999.17,.04,21,1,0)="This field is used to inactivate a treatment type.  If this field"
^DD(9999999.17,.04,21,2,0)="contains a ""1"" then the treatment is inactive.  Inactive treatments cannot"
^DD(9999999.17,.04,21,3,0)="be selected in the manual data entry process.  Treatment entries should be"
^DD(9999999.17,.04,21,4,0)="made inactive when they are no longer used.  Do not delete the entry or"
^DD(9999999.17,.04,21,5,0)="change the meaning of the treatment entry."
^DD(9999999.17,.04,21,6,0)=" "
^DD(9999999.17,.04,21,7,0)="To make an inactive treatment type active, enter the ""@"" symbol to delete"
^DD(9999999.17,.04,21,8,0)="the ""1"" from the field."
^DD(9999999.17,.04,"DT")="2950825"
^DD(9999999.17,8801,0)="MNEMONIC^F^^88;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X"
^DD(9999999.17,8801,1,0)="^.1"
^DD(9999999.17,8801,1,1,0)="9999999.17^B^MNEMONIC"
^DD(9999999.17,8801,1,1,1)="S ^AUTTTRT(""B"",$E(X,1,30),DA)=1"
^DD(9999999.17,8801,1,1,2)="K ^AUTTTRT(""B"",$E(X,1,30),DA)"
^DD(9999999.17,8801,3)="ANSWER MUST BE 1-6 CHARACTERS IN LENGTH"
^DD(9999999.17,8801,21,0)="^^4^4^2940125^^^^"
^DD(9999999.17,8801,21,1,0)="(Optional)"
^DD(9999999.17,8801,21,2,0)="This is a mnemonic for this treatment."
^DD(9999999.17,8801,21,3,0)=" "
^DD(9999999.17,8801,21,4,0)="Enter a mnemonic that's 1 - 6 characters in length."
^DD(9999999.17,8801,"DT")="2870316"
^DD(9999999.17,"B","INACTIVE FLAG",.04)=""
^DD(9999999.17,"B","MNEMONIC",8801)=""
^DD(9999999.17,"B","NAME",.01)=""
^DD(9999999.17,"GL",0,1,.01)=""
^DD(9999999.17,"GL",0,4,.04)=""
^DD(9999999.17,"GL",88,1,8801)=""
^DD(9999999.17,"IX",.01)=""
^DD(9999999.17,"IX",8801)=""
^DD(9999999.17,"RQ",.01)=""
^DD(9999999.27,0)="FIELD^^75702^4"
^DD(9999999.27,0,"DDA")="N"
^DD(9999999.27,0,"DT")="2960424"
^DD(9999999.27,0,"IX","B",9999999.27,.01)=""
^DD(9999999.27,0,"IX","B",9999999.27,8801)=""
^DD(9999999.27,0,"NM","PROVIDER NARRATIVE")=""
^DD(9999999.27,0,"PT",9000010.07,.04)=""
^DD(9999999.27,0,"PT",9000010.07,80201)=""
^DD(9999999.27,0,"PT",9000010.15,.06)=""
^DD(9999999.27,0,"PT",9000010.15,80201)=""
^DD(9999999.27,0,"PT",9000010.18,.04)=""
^DD(9999999.27,0,"PT",9000010.18,80201)=""
^DD(9999999.27,0,"PT",9000011,.05)=""
^DD(9999999.27,.01,0)="NARRATIVE^RF^^0;1^K:$L(X)>245!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X"
^DD(9999999.27,.01,1,0)="^.1"
^DD(9999999.27,.01,1,1,0)="9999999.27^B"
^DD(9999999.27,.01,1,1,1)="S ^AUTNPOV(""B"",$E(X,1,30),DA)="""""
^DD(9999999.27,.01,1,1,2)="K ^AUTNPOV(""B"",$E(X,1,30),DA)"
^DD(9999999.27,.01,3)="Answer must be 2-245 characters in length."
^DD(9999999.27,.01,7.5)="D ^AUTNPOV"
^DD(9999999.27,.01,21,0)="^^4^4^2960424^^^^"
^DD(9999999.27,.01,21,1,0)="This is the Narrative that the provider has written out that is his"
^DD(9999999.27,.01,21,2,0)="description of what he treated the patient for."
^DD(9999999.27,.01,21,3,0)=" "
^DD(9999999.27,.01,21,4,0)="Enter a 2 to 80 character description."
^DD(9999999.27,.01,"DEL",.01,0)="I 1"
^DD(9999999.27,.01,"DT")="2960424"
^DD(9999999.27,.01,"LAYGO",.01,0)=" S IHSX=$E(X,1,30),IHSY="""" X:$D(^AUTNPOV(""B"",IHSX)) ""F IHSY=0:0 S IHSY=$O(^AUTNPOV(""""B"""",IHSX,IHSY)) Q:'IHSY  I $P(^AUTNPOV(IHSY,0),U,1)=X S IHSY=1 Q"" X ""I 'IHSY"" K IHSX,IHSY"
^DD(9999999.27,8801,0)="MNEMONIC^F^^88;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(9999999.27,8801,1,0)="^.1"
^DD(9999999.27,8801,1,1,0)="9999999.27^B^MNEMONIC"
^DD(9999999.27,8801,1,1,1)="S ^AUTNPOV(""B"",$E(X,1,30),DA)=1"
^DD(9999999.27,8801,1,1,2)="K ^AUTNPOV(""B"",$E(X,1,30),DA)"
^DD(9999999.27,8801,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(9999999.27,8801,21,0)="^^3^3^2940122^^^"
^DD(9999999.27,8801,21,1,0)="This is a mnemonic that stands for this provider narrative."
^DD(9999999.27,8801,21,2,0)=" "
^DD(9999999.27,8801,21,3,0)="Enter a 1-2 character mnemonic."
^DD(9999999.27,8801,21,4,0)="Enter a 1-2 character mnemonic."
^DD(9999999.27,8801,"DT")="2851216"
^DD(9999999.27,75701,0)="CLINICAL LEXICON^P757.01'^LEX(757.01,^757;1^Q"
^DD(9999999.27,75701,21,0)="^^1^1^2940904^^^"
^DD(9999999.27,75701,21,1,0)="This is the clinical expression related to the provider narrative."
^DD(9999999.27,75701,23,0)="^^1^1^2940904^^^"
^DD(9999999.27,75701,23,1,0)="This field will be primarily populated by the Problem List package."
^DD(9999999.27,75701,"DT")="2940525"
^DD(9999999.27,75702,0)="ORIGINATING FILE^F^^757;2^K:$L(X)>15!($L(X)<1) X"
^DD(9999999.27,75702,3)="Answer must be 1-15 characters in length."
^DD(9999999.27,75702,21,0)="^^7^7^2940904^^^^"
^DD(9999999.27,75702,21,1,0)="This field is used in the VA to identify what file pointing to the"
^DD(9999999.27,75702,21,2,0)="provider narrative file created the entry in the Provider Narrative"
^DD(9999999.27,75702,21,3,0)="File.  This may be useful as more packages create pointers to the"
^DD(9999999.27,75702,21,4,0)="Provider Narrative File to store the local capture of provider terminology."
^DD(9999999.27,75702,21,5,0)="  "
^DD(9999999.27,75702,21,6,0)="The Problem List package puts its free text file number in this field"
^DD(9999999.27,75702,21,7,0)="when it adds provider narratives to the Provider Narrative File."
^DD(9999999.27,75702,22)=""
^DD(9999999.27,75702,"DT")="2940525"
^DD(9999999.27,75702,"V",0)="^.12P"
^DD(9999999.27,"B","CLINICAL LEXICON",75701)=""
^DD(9999999.27,"B","MNEMONIC",8801)=""
^DD(9999999.27,"B","NARRATIVE",.01)=""
^DD(9999999.27,"B","ORIGINATING FILE",75702)=""
^DD(9999999.27,"GL",0,1,.01)=""
^DD(9999999.27,"GL",88,1,8801)=""
^DD(9999999.27,"GL",757,1,75701)=""
^DD(9999999.27,"GL",757,2,75702)=""
^DD(9999999.27,"IX",.01)=""
^DD(9999999.27,"IX",8801)=""
^DD(9999999.27,"RQ",.01)=""
^DD(9999999.28,0)="FIELD^^8801^3"
^DD(9999999.28,0,"DDA")="N"
^DD(9999999.28,0,"DT")="2950825"
^DD(9999999.28,0,"IX","B",9999999.28,.01)=""
^DD(9999999.28,0,"IX","B",9999999.28,8801)=""
^DD(9999999.28,0,"NM","SKIN TEST")=""
^DD(9999999.28,0,"PT",801.41,15)=""
^DD(9999999.28,0,"PT",801.4118,.01)=""
^DD(9999999.28,0,"PT",801.43,.02)=""
^DD(9999999.28,0,"PT",810.31,.04)=""
^DD(9999999.28,0,"PT",810.32,.01)=""
^DD(9999999.28,0,"PT",811.1,.01)=""
^DD(9999999.28,0,"PT",811.1,.02)=""
^DD(9999999.28,0,"PT",811.52,.01)=""
^DD(9999999.28,0,"PT",811.902,.01)=""
^DD(9999999.28,0,"PT",9000010.12,.01)=""
^DD(9999999.28,.01,0)="NAME^RFX^^0;1^K:$L(X)>10!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X I $D(X) D CKNA^PXTTU1(""^AUTTSK("")"
^DD(9999999.28,.01,1,0)="^.1"
^DD(9999999.28,.01,1,1,0)="9999999.28^B"
^DD(9999999.28,.01,1,1,1)="S ^AUTTSK(""B"",$E(X,1,30),DA)="""""
^DD(9999999.28,.01,1,1,2)="K ^AUTTSK(""B"",$E(X,1,30),DA)"
^DD(9999999.28,.01,3)="ANSWER WITH SKIN TEST NAME (3-10 CHARACTERS)"
^DD(9999999.28,.01,21,0)="^^3^3^2950718^^^^"
^DD(9999999.28,.01,21,1,0)="This is the name of the skin test (e.g Cocci,PPD)."
^DD(9999999.28,.01,21,2,0)=" "
^DD(9999999.28,.01,21,3,0)="Enter a name using 3 to 10 characters."
^DD(9999999.28,.01,"DEL",.01,0)="I 0"
^DD(9999999.28,.01,"DT")="3010807"
^DD(9999999.28,.03,0)="INACTIVE FLAG^S^1:INACTIVE;^0;3^Q"
^DD(9999999.28,.03,3)="Enter 1 to make the skin test type inactive."
^DD(9999999.28,.03,21,0)="^^8^8^2950825^"
^DD(9999999.28,.03,21,1,0)="This field is used to inactivate a skin test type.  If this field contains"
^DD(9999999.28,.03,21,2,0)="a ""1"" then the skin test is inactive.  Inactive skin tests cannot be "
^DD(9999999.28,.03,21,3,0)="selected in the manual data entry process.  Skin test entries should be"
^DD(9999999.28,.03,21,4,0)="made inactive when they are no longer used.  Do not delete the entry or"
^DD(9999999.28,.03,21,5,0)="change the meaning of the skin test entry."
^DD(9999999.28,.03,21,6,0)="  "
^DD(9999999.28,.03,21,7,0)="To make an inactive skin test active, enter the ""@"" symbol to delete the"
^DD(9999999.28,.03,21,8,0)="""1"" from the field."
^DD(9999999.28,.03,23,0)="^^5^5^2950825^"
^DD(9999999.28,.03,23,1,0)="This field was added for use by PCE in the VA."
^DD(9999999.28,.03,23,2,0)=" "
^DD(9999999.28,.03,23,3,0)="This inactive flag should be used, rather than deleting entries in"
^DD(9999999.28,.03,23,4,0)="the skin test file, since there may be other files pointing at the skin"
^DD(9999999.28,.03,23,5,0)="test entry."
^DD(9999999.28,.03,"DT")="2950825"
^DD(9999999.28,8801,0)="MNEMONIC^F^^88;1^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X"
^DD(9999999.28,8801,1,0)="^.1"
^DD(9999999.28,8801,1,1,0)="9999999.28^B^MNEMONIC"
^DD(9999999.28,8801,1,1,1)="S ^AUTTSK(""B"",$E(X,1,30),DA)=1"
^DD(9999999.28,8801,1,1,2)="K ^AUTTSK(""B"",$E(X,1,30),DA)"
^DD(9999999.28,8801,3)="ANSWER MUST BE 1-2 CHARACTERS IN LENGTH"
^DD(9999999.28,8801,21,0)="^^4^4^2940125^^"
^DD(9999999.28,8801,21,1,0)="(Optional)"
^DD(9999999.28,8801,21,2,0)="This is a 1-2 character mnemonic for the skin test."
^DD(9999999.28,8801,21,3,0)=" "
^DD(9999999.28,8801,21,4,0)="Enter a 1-2 character mnemonic."
^DD(9999999.28,8801,"DT")="2851216"
^DD(9999999.28,"B","INACTIVE FLAG",.03)=""
^DD(9999999.28,"B","MNEMONIC",8801)=""
^DD(9999999.28,"B","NAME",.01)=""
^DD(9999999.28,"GL",0,1,.01)=""
^DD(9999999.28,"GL",0,3,.03)=""
^DD(9999999.28,"GL",88,1,8801)=""
^DD(9999999.28,"IX",.01)=""
^DD(9999999.28,"IX",8801)=""
^DD(9999999.28,"RQ",.01)=""
^DD(9999999.64,0)="FIELD^^1101^11"
^DD(9999999.64,0,"DDA")="N"
^DD(9999999.64,0,"DT")="2950825"
^DD(9999999.64,0,"ID",.1)="W """""
^DD(9999999.64,0,"IX","AC",9999999.64,.03)=""
^DD(9999999.64,0,"IX","AD",9999999.64,.1)=""
^DD(9999999.64,0,"IX","B",9999999.64,.01)=""
^DD(9999999.64,0,"IX","D",9999999.64,.09)=""
^DD(9999999.64,0,"NM","HEALTH FACTORS")=""
^DD(9999999.64,0,"PT",142.14,.01)=""
^DD(9999999.64,0,"PT",801.41,15)=""
^DD(9999999.64,0,"PT",801.4118,.01)=""
^DD(9999999.64,0,"PT",801.43,.02)=""
^DD(9999999.64,0,"PT",801.95,.01)=""
^DD(9999999.64,0,"PT",810.31,.04)=""
^DD(9999999.64,0,"PT",810.32,.01)=""
^DD(9999999.64,0,"PT",811.52,.01)=""
^DD(9999999.64,0,"PT",811.902,.01)=""
^DD(9999999.64,0,"PT",9000010.23,.01)=""
^DD(9999999.64,0,"PT",9999999.64,.03)=""
^DD(9999999.64,0,"PT",9999999.641101,.01)=""
^DD(9999999.64,0,"VR")="1.0"
^DD(9999999.64,0,"VRPK")="PX"
^DD(9999999.64,.01,0)="FACTOR^RFX^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X I $D(X) D CKNA^PXTTU1(""^AUTTHF("")"
^DD(9999999.64,.01,1,0)="^.1"
^DD(9999999.64,.01,1,1,0)="9999999.64^B"
^DD(9999999.64,.01,1,1,1)="S ^AUTTHF(""B"",$E(X,1,40),DA)="""""
^DD(9999999.64,.01,1,1,2)="K ^AUTTHF(""B"",$E(X,1,40),DA)"
^DD(9999999.64,.01,3)="Enter Health Factor Name 3-40 characters"
^DD(9999999.64,.01,11,0)="^.2LAP"
^DD(9999999.64,.01,21,0)="^.001^1^1^3010802^^^^"
^DD(9999999.64,.01,21,1,0)="This is the name of the Health Factor (e.g., Current Smoker, Non-Tobacco User)"
^DD(9999999.64,.01,"DEL",.01,0)="I 0"
^DD(9999999.64,.01,"DT")="3010807"
^DD(9999999.64,.03,0)="CATEGORY^R*P9999999.64'^AUTTHF(^0;3^S DIC(""S"")=""I $P(^(0),U,10)'=""""F"""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X"
^DD(9999999.64,.03,1,0)="^.1"
^DD(9999999.64,.03,1,1,0)="9999999.64^AC"
^DD(9999999.64,.03,1,1,1)="S ^AUTTHF(""AC"",$E(X,1,30),DA)="""""
^DD(9999999.64,.03,1,1,2)="K ^AUTTHF(""AC"",$E(X,1,30),DA)"
^DD(9999999.64,.03,1,1,"DT")="2911011"
^DD(9999999.64,.03,3)="Select the category to which this factor belongs."
^DD(9999999.64,.03,12)="Screening to prevent pointing to a non category type factor."
^DD(9999999.64,.03,12.1)="S DIC(""S"")=""I $P(^(0),U,10)'=""""F"""""""
^DD(9999999.64,.03,21,0)="^^5^5^2950809^^^^"
^DD(9999999.64,.03,21,1,0)=" This is the Health Factor that categorizes several factors into one group."
^DD(9999999.64,.03,21,2,0)="For instance, Non smoker and Frequent Smoker would have the category of"
^DD(9999999.64,.03,21,3,0)="Tobacco."
^DD(9999999.64,.03,21,4,0)=" "
^DD(9999999.64,.03,21,5,0)="Enter the name of the Health Factor Category."
^DD(9999999.64,.03,"DT")="2911015"
^DD(9999999.64,.04,0)="SHORT NAME^F^^0;4^K:$L(X)>10!($L(X)<2) X"
^DD(9999999.64,.04,3)="Answer must be 2-10 characters in length."
^DD(9999999.64,.04,21,0)="^.001^5^5^3010205^^"
^DD(9999999.64,.04,21,1,0)="(Optional)"
^DD(9999999.64,.04,21,2,0)="This is a 'short name' for this health factor. If defined, it will be"
^DD(9999999.64,.04,21,3,0)="used on the Health Factors Component of the Health Summary"
^DD(9999999.64,.04,21,4,0)=" "
^DD(9999999.64,.04,21,5,0)="Enter a 2-10 character short name for this health factor."
^DD(9999999.64,.04,"DT")="2910701"
^DD(9999999.64,.05,0)="USE ONLY WITH SEX^S^F:FEMALE;M:MALE;^0;5^Q"
^DD(9999999.64,.05,21,0)="^^4^4^2940125^^^^"
^DD(9999999.64,.05,21,1,0)="(Optional)"
^DD(9999999.64,.05,21,2,0)="This is the sex that this health factor is used for."
^DD(9999999.64,.05,21,3,0)=" "
^DD(9999999.64,.05,21,4,0)="Enter an ""F"" for female or an ""M"" for male."
^DD(9999999.64,.05,"DT")="2910701"
^DD(9999999.64,.06,0)="LOWER AGE^NJ5,0^^0;6^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9999999.64,.06,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(9999999.64,.06,21,0)="^^4^4^2940125^^^"
^DD(9999999.64,.06,21,1,0)="(Optional)"
^DD(9999999.64,.06,21,2,0)="This is the lower age limit that might apply to this health factor."
^DD(9999999.64,.06,21,3,0)=" "
^DD(9999999.64,.06,21,4,0)="Enter an age between 0 and 99999."
^DD(9999999.64,.06,"DT")="2910701"
^DD(9999999.64,.07,0)="UPPER AGE^NJ5,0^^0;7^K:+X'=X!(X>99999)!(X<0)!(X?.E1"".""1N.N) X"
^DD(9999999.64,.07,3)="Type a Number between 0 and 99999, 0 Decimal Digits"
^DD(9999999.64,.07,21,0)="^^4^4^2940125^^^"
^DD(9999999.64,.07,21,1,0)="(Optional)"
^DD(9999999.64,.07,21,2,0)="This is the upper age limit that applies to this health factor. "
^DD(9999999.64,.07,21,3,0)=" "
^DD(9999999.64,.07,21,4,0)="Enter a number between 0 and 99999."
^DD(9999999.64,.07,"DT")="2910701"
^DD(9999999.64,.08,0)="DISPLAY ON HEALTH SUMMARY^S^Y:YES;N:NO;^0;8^Q"
^DD(9999999.64,.08,21,0)="^^4^4^2950718^^^"
^DD(9999999.64,.08,21,1,0)="(Optional)"
^DD(9999999.64,.08,21,2,0)="This allows the health factor to be displayed on Health Summaries."
^DD(9999999.64,.08,21,3,0)=" "
^DD(9999999.64,.08,21,4,0)="Enter a yes to display or a no to not display."
^DD(9999999.64,.08,"DT")="2910701"
^DD(9999999.64,.09,0)="SYNONYM^F^^0;9^K:X[""""""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<2) X"
^DD(9999999.64,.09,1,0)="^.1"
^DD(9999999.64,.09,1,1,0)="9999999.64^D"
^DD(9999999.64,.09,1,1,1)="S ^AUTTHF(""D"",$E(X,1,30),DA)="""""
^DD(9999999.64,.09,1,1,2)="K ^AUTTHF(""D"",$E(X,1,30),DA)"
^DD(9999999.64,.09,1,1,"DT")="2910701"
^DD(9999999.64,.09,3)="Answer must be 2-30 characters in length."
^DD(9999999.64,.09,21,0)="^^4^4^2940125^^"
^DD(9999999.64,.09,21,1,0)="(Optional)"
^DD(9999999.64,.09,21,2,0)="This this the synonym for this health factor."
^DD(9999999.64,.09,21,3,0)=" "
^DD(9999999.64,.09,21,4,0)="Enter a 3 to 30 character synonym for this health factor."
^DD(9999999.64,.09,"DT")="2910701"
^DD(9999999.64,.1,0)="ENTRY TYPE^RS^C:CATEGORY;F:FACTOR;^0;10^Q"
^DD(9999999.64,.1,1,0)="^.1"
^DD(9999999.64,.1,1,1,0)="9999999.64^AD"
^DD(9999999.64,.1,1,1,1)="S ^AUTTHF(""AD"",$E(X,1,30),DA)="""""
^DD(9999999.64,.1,1,1,2)="K ^AUTTHF(""AD"",$E(X,1,30),DA)"
^DD(9999999.64,.1,1,1,"DT")="2911015"
^DD(9999999.64,.1,3)="SMOKER or NON-SMOKER would be FACTORS. TOBACCO would be the Category that SMOKER and NON-SMOKER would belong to. Are you entering a FACTOR or a CATEGORY ?"
^DD(9999999.64,.1,21,0)="^^3^3^2950809^^^^"
^DD(9999999.64,.1,21,1,0)="This is the type of health factor, (e.g.,""F"" for factor or ""C"" for category)."
^DD(9999999.64,.1,21,2,0)=" "
^DD(9999999.64,.1,21,3,0)="Enter an ""F"" for factor or a ""C"" for category."
^DD(9999999.64,.1,"DT")="2911015"
^DD(9999999.64,.11,0)="INACTIVE FLAG^S^1:INACTIVE;^0;11^Q"
^DD(9999999.64,.11,3)="Enter a 1 to make the health factor inactive."
^DD(9999999.64,.11,21,0)="^^8^8^2950825^"
^DD(9999999.64,.11,21,1,0)="This field is used to inactivate a health factor type. If this field"
^DD(9999999.64,.11,21,2,0)="contains a ""1"" then the health factor is inactive.  Inactive health"
^DD(9999999.64,.11,21,3,0)="factors cannot be selected in the manual data entry process.  Health"
^DD(9999999.64,.11,21,4,0)="factor entries should be made inactive when they are no longer used.  Do"
^DD(9999999.64,.11,21,5,0)="not delete the entry or change the meaning of the health factor entry."
^DD(9999999.64,.11,21,6,0)=" "
^DD(9999999.64,.11,21,7,0)="To make an inactive health factor active, enter the ""@"" symbol to delete"
^DD(9999999.64,.11,21,8,0)="the ""1"" from the field."
^DD(9999999.64,.11,23,0)="^^5^5^2950825^"
^DD(9999999.64,.11,23,1,0)="This field was added for use by PCE in the VA."
^DD(9999999.64,.11,23,2,0)=" "
^DD(9999999.64,.11,23,3,0)="This inactive flag should be used, rather than deleting entries in"
^DD(9999999.64,.11,23,4,0)="the health factor file, since there may be other files pointing at the"
^DD(9999999.64,.11,23,5,0)="health factor entry."
^DD(9999999.64,.11,"DT")="2950825"
^DD(9999999.64,1101,0)="NOT USED WITH^9999999.641101P^^11;0"
^DD(9999999.64,1101,21,0)="^^2^2^2940125^^"
^DD(9999999.64,1101,21,1,0)="Some health factors are not used with others. This is the group of health"
^DD(9999999.64,1101,21,2,0)="factors that this factor is not used with."
^DD(9999999.64,"B","CATEGORY",.03)=""
^DD(9999999.64,"B","DISPLAY ON HEALTH SUMMARY",.08)=""
^DD(9999999.64,"B","ENTRY TYPE",.1)=""
^DD(9999999.64,"B","FACTOR",.01)=""
^DD(9999999.64,"B","INACTIVE FLAG",.11)=""
^DD(9999999.64,"B","LOWER AGE",.06)=""
^DD(9999999.64,"B","NOT USED WITH",1101)=""
^DD(9999999.64,"B","SHORT NAME",.04)=""
^DD(9999999.64,"B","SYNONYM",.09)=""
^DD(9999999.64,"B","UPPER AGE",.07)=""
^DD(9999999.64,"B","USE ONLY WITH SEX",.05)=""
^DD(9999999.64,"GL",0,1,.01)=""
^DD(9999999.64,"GL",0,3,.03)=""
^DD(9999999.64,"GL",0,4,.04)=""
^DD(9999999.64,"GL",0,5,.05)=""
^DD(9999999.64,"GL",0,6,.06)=""
^DD(9999999.64,"GL",0,7,.07)=""
^DD(9999999.64,"GL",0,8,.08)=""
^DD(9999999.64,"GL",0,9,.09)=""
^DD(9999999.64,"GL",0,10,.1)=""
^DD(9999999.64,"GL",0,11,.11)=""
^DD(9999999.64,"GL",11,0,1101)=""
^DD(9999999.64,"IX",.01)=""
^DD(9999999.64,"IX",.03)=""
^DD(9999999.64,"IX",.09)=""
^DD(9999999.64,"IX",.1)=""
^DD(9999999.64,"RQ",.01)=""
^DD(9999999.64,"RQ",.03)=""
^DD(9999999.64,"RQ",.1)=""
^DD(9999999.64,"SB",9999999.641101,1101)=""
^DD(9999999.641101,0)="NOT USED WITH SUB-FIELD^^.01^1"
^DD(9999999.641101,0,"DT")="2910701"
^DD(9999999.641101,0,"IX","B",9999999.641101,.01)=""
^DD(9999999.641101,0,"NM","NOT USED WITH")=""
^DD(9999999.641101,0,"UP")="9999999.64"
^DD(9999999.641101,.01,0)="NOT USED WITH^MP9999999.64'^AUTTHF(^0;1^Q"
^DD(9999999.641101,.01,1,0)="^.1"
^DD(9999999.641101,.01,1,1,0)="9999999.641101^B"
^DD(9999999.641101,.01,1,1,1)="S ^AUTTHF(DA(1),11,""B"",$E(X,1,30),DA)="""""
^DD(9999999.641101,.01,1,1,2)="K ^AUTTHF(DA(1),11,""B"",$E(X,1,30),DA)"
^DD(9999999.641101,.01,21,0)="^^3^3^2940120^"
^DD(9999999.641101,.01,21,1,0)="This is the health factor that the health factor is not used with."
^DD(9999999.641101,.01,21,2,0)=" "
^DD(9999999.641101,.01,21,3,0)="Enter the name of a health factor that is laready in this file."
^DD(9999999.641101,.01,"DT")="2910701"
^DD(9999999.641101,"B","NOT USED WITH",.01)=""
^DD(9999999.641101,"GL",0,1,.01)=""
^DD(9999999.641101,"IX",.01)=""
^DD("$O")="S Y=""%"" F %=0:0 S Y=$O(@Y) Q:Y=""""  S %=$D(@Y) S:%#2 @(X_""Y)=""_Y) I %>9 S %X=Y_""("",%Y=X_""Y,"" D %XY^%RCR"
^DD("ACOMP",0,0,52.5,1)=""
^DD("ACOMP",0,0,344.1,.18)=""
^DD("ACOMP",0,0,344.1,100)=""
^DD("ACOMP",0,0,470,52)=""
^DD("ACOMP",0,0,798,8)=""
^DD("ACOMP",0,0,503330,8)=""
^DD("ACOMP",2,.03,2,.033)=""
^DD("ACOMP",2,.09,40.15,.09)=""
^DD("ACOMP",2,.09,44.003,.09)=""
^DD("ACOMP",2,.0901,45,99)=""
^DD("ACOMP",2,.1,2,.19)=""
^DD("ACOMP",2,.111,44.003,.11)=""
^DD("ACOMP",2,.361,44.003,10.5)=""
^DD("ACOMP",2.001,.01,2.011,2)=""
^DD("ACOMP",2.101,.01,2.101,99)=""
^DD("ACOMP",2.312,.18,2.312,20)=""
^DD("ACOMP",2.312,.18,2.312,21)=""
^DD("ACOMP",2.57,.01,690,2)=""
^DD("ACOMP",2.98,.01,2.98,.02)=""
^DD("ACOMP",3.05,5,3.05,5.5)=""
^DD("ACOMP",3.07,.01,3.07,3)=""
^DD("ACOMP",3.07,.01,3.07,4)=""
^DD("ACOMP",3.07,1,3.07,4)=""
^DD("ACOMP",3.081,.001,3.081,97)=""
^DD("ACOMP",3.081,.001,3.081,99)=""
^DD("ACOMP",3.081,3,3.081,97)=""
^DD("ACOMP",3.081,3,3.081,99)=""
^DD("ACOMP",3.081,5,3.081,98)=""
^DD("ACOMP",3.081,16,3.081,97)=""
^DD("ACOMP",3.081,16,3.081,99)=""
^DD("ACOMP",4.2,.01,4.2,20)=""
^DD("ACOMP",4.2,.01,4.2,21)=""
^DD("ACOMP",4.2,.01,4.2,22)=""
^DD("ACOMP",4.2,.01,4.2,23)=""
^DD("ACOMP",4.53,2,4.53,99)=""
^DD("ACOMP",4.53,3,4.53,99)=""
^DD("ACOMP",4.53,5,4.53,99)=""
^DD("ACOMP",14.4,.01,14.4,101)=""
^DD("ACOMP",14.4,2,14.4,101)=""
^DD("ACOMP",14.4,5,14.4,105)=""
^DD("ACOMP",14.4,6,14.4,106)=""
^DD("ACOMP",14.4,52,14.4,152)=""
^DD("ACOMP",19.2,12,19.2,99.1)=""
^DD("ACOMP",40.15,.01,40.15,.09)=""
^DD("ACOMP",41.91,.01,41.91,.91)=""
^DD("ACOMP",41.91,.91,41.91,.92)=""
^DD("ACOMP",41.91,.92,41.91,.97)=""
^DD("ACOMP",41.91,.93,41.91,.96)=""
^DD("ACOMP",41.91,.94,41.91,.96)=""
^DD("ACOMP",41.91,.95,41.91,.96)=""
^DD("ACOMP",41.91,.96,41.91,.97)=""
^DD("ACOMP",41.91,2,41.91,.92)=""
^DD("ACOMP",41.91,2,41.91,4)=""
^DD("ACOMP",41.91,3,41.91,4)=""
^DD("ACOMP",41.91,24,41.91,.97)=""
^DD("ACOMP",44.002,.01,44.002,3)=""
^DD("ACOMP",44.002,.01,44.002,4)=""
^DD("ACOMP",44.003,.01,44.003,.09)=""
^DD("ACOMP",44.003,.01,44.003,.11)=""
^DD("ACOMP",44.003,.01,44.003,10.5)=""
^DD("ACOMP",44.003,.09,44.003,.099)=""
^DD("ACOMP",44.003,2,44.003,6)=""
^DD("ACOMP",44.003,3,44.003,6)=""
^DD("ACOMP",44.003,4,44.003,5)=""
^DD("ACOMP",44.003,10.5,44.003,11)=""
^DD("ACOMP",44.005,1,44.005,2)=""
^DD("ACOMP",45,.01,45,99)=""
^DD("ACOMP",45,2,45.84,1)=""
^DD("ACOMP",45,7.1,45,7.2)=""
^DD("ACOMP",45,7.1,45,7.3)=""
^DD("ACOMP",45,79.1,45,79.2)=""
^DD("ACOMP",45.84,.01,45.84,1)=""
^DD("ACOMP",50,2,50,26)=""
^DD("ACOMP",50,15,58.8001,6)=""
^DD("ACOMP",50,25,50,26)=""
^DD("ACOMP",50.9,.02,50.9,.035)=""
^DD("ACOMP",50.9,.03,50.9,.035)=""
^DD("ACOMP",50.9,.035,50.9,.045)=""
^DD("ACOMP",50.9,.035,50.9,.055)=""
^DD("ACOMP",50.9,.035,50.9,.126)=""
^DD("ACOMP",50.9,.04,50.9,.045)=""
^DD("ACOMP",50.9,.04,50.9,.125)=""
^DD("ACOMP",50.9,.05,50.9,.055)=""
^DD("ACOMP",50.9,.12,50.9,.125)=""
^DD("ACOMP",50.9,.12,50.9,.126)=""
^DD("ACOMP",50.9001,2,50.9001,3.5)=""
^DD("ACOMP",50.9001,3,50.9001,3.5)=""
^DD("ACOMP",50.9001,3.5,50.9001,4.5)=""
^DD("ACOMP",50.9001,3.5,50.9001,5.5)=""
^DD("ACOMP",50.9001,4,50.9001,4.5)=""
^DD("ACOMP",50.9001,5,50.9001,5.5)=""
^DD("ACOMP",50.9002,2,50.9002,3.5)=""
^DD("ACOMP",50.9002,3,50.9002,3.5)=""
^DD("ACOMP",50.9002,3.5,50.9002,4.5)=""
^DD("ACOMP",50.9002,3.5,50.9002,5.5)=""
^DD("ACOMP",50.9002,4,50.9002,4.5)=""
^DD("ACOMP",50.9002,5,50.9002,5.5)=""
^DD("ACOMP",50.9003,2,50.9003,3.5)=""
^DD("ACOMP",50.9003,3,50.9003,3.5)=""
^DD("ACOMP",50.9003,3.5,50.9003,4.5)=""
^DD("ACOMP",50.9003,3.5,50.9003,5.5)=""
^DD("ACOMP",50.9003,4,50.9003,4.5)=""
^DD("ACOMP",50.9003,5,50.9003,5.5)=""
^DD("ACOMP",50.9004,2,50.9004,3.5)=""
^DD("ACOMP",50.9004,3,50.9004,3.5)=""
^DD("ACOMP",50.9004,3.5,50.9004,4.5)=""
^DD("ACOMP",50.9004,3.5,50.9004,5.5)=""
^DD("ACOMP",50.9004,4,50.9004,4.5)=""
^DD("ACOMP",50.9004,5,50.9004,5.5)=""
^DD("ACOMP",50.9005,.01,50.9005,100)=""
^DD("ACOMP",50.9005,2,50.9005,3.5)=""
^DD("ACOMP",50.9005,3,50.9005,3.5)=""
^DD("ACOMP",50.9005,3.5,50.9005,4.5)=""
^DD("ACOMP",50.9005,3.5,50.9005,5.5)=""
^DD("ACOMP",50.9005,4,50.9005,4.5)=""
^DD("ACOMP",50.9005,5,50.9005,5.5)=""
^DD("ACOMP",50.9006,.02,50.9006,.035)=""
^DD("ACOMP",50.9006,.03,50.9006,.035)=""
^DD("ACOMP",50.9006,.035,50.9006,.045)=""
^DD("ACOMP",50.9006,.035,50.9006,.055)=""
^DD("ACOMP",50.9006,.04,50.9006,.045)=""
^DD("ACOMP",50.9006,.05,50.9006,.055)=""
^DD("ACOMP",50.9006,2,50.9006,3.5)=""
^DD("ACOMP",50.9006,3,50.9006,3.5)=""
^DD("ACOMP",50.9006,3.5,50.9006,4.5)=""
^DD("ACOMP",50.9006,3.5,50.9006,5.5)=""
^DD("ACOMP",50.9006,4,50.9006,4.5)=""
^DD("ACOMP",50.9006,5,50.9006,5.5)=""
^DD("ACOMP",50.9007,2,50.9007,3.5)=""
^DD("ACOMP",50.9007,3,50.9007,3.5)=""
^DD("ACOMP",50.9007,3.5,50.9007,4.5)=""
^DD("ACOMP",50.9007,3.5,50.9007,5.5)=""
^DD("ACOMP",50.9007,4,50.9007,4.5)=""
^DD("ACOMP",50.9007,5,50.9007,5.5)=""
^DD("ACOMP",50.9008,2,50.9008,3.5)=""
^DD("ACOMP",50.9008,3,50.9008,3.5)=""
^DD("ACOMP",50.9008,3.5,50.9008,4.5)=""
^DD("ACOMP",50.9008,3.5,50.9008,5.5)=""
^DD("ACOMP",50.9008,4,50.9008,4.5)=""
^DD("ACOMP",50.9008,5,50.9008,5.5)=""
^DD("ACOMP",50.9009,2,50.9009,3.5)=""
^DD("ACOMP",50.9009,3,50.9009,3.5)=""
^DD("ACOMP",50.9009,3.5,50.9009,4.5)=""
^DD("ACOMP",50.9009,3.5,50.9009,5.5)=""
^DD("ACOMP",50.9009,4,50.9009,4.5)=""
^DD("ACOMP",50.9009,5,50.9009,5.5)=""
^DD("ACOMP",50.901,2,50.901,3.5)=""
^DD("ACOMP",50.901,3,50.901,3.5)=""
^DD("ACOMP",50.901,3.5,50.901,4.5)=""
^DD("ACOMP",50.901,3.5,50.901,5.5)=""
^DD("ACOMP",50.901,4,50.901,4.5)=""
^DD("ACOMP",50.901,5,50.901,5.5)=""
^DD("ACOMP",52,6,55.03,1)=""
^DD("ACOMP",52,100,55.03,2)=""
^DD("ACOMP",53.1,14,53.1,37)=""
^DD("ACOMP",53.1,34,53.1,37)=""
^DD("ACOMP",53.1,36,53.1,37)=""
^DD("ACOMP",53.69,.12,53.69,.121)=""
^DD("ACOMP",53.69,.12,53.69,.122)=""
^DD("ACOMP",55.01,.01,55,99)=""
^DD("ACOMP",55.03,.01,55.03,1)=""
^DD("ACOMP",55.03,.01,55.03,2)=""
^DD("ACOMP",55.03,2,55.03,3)=""
^DD("ACOMP",55.03,3,55,50)=""
^DD("ACOMP",55.06,35,55.06,39)=""
^DD("ACOMP",55.06,35,55.07,.04)=""
^DD("ACOMP",55.06,36,55.06,39)=""
^DD("ACOMP",55.06,36,55.07,.04)=""
^DD("ACOMP",55.06,54,55.06,39)=""
^DD("ACOMP",55.06,54,55.07,.04)=""
^DD("ACOMP",55.06,63,55.06,39)=""
^DD("ACOMP",55.06,63,55.07,.04)=""
^DD("ACOMP",58.12,1,58.12,5)=""
^DD("ACOMP",58.12,3.5,58.12,5)=""
^DD("ACOMP",58.8001,.01,58.8001,6)=""
^DD("ACOMP",58.8001,12,58.801,2)=""
^DD("ACOMP",58.8001,21,58.801,4)=""
^DD("ACOMP",58.8001,21,58.801,6)=""
^DD("ACOMP",58.8001,21,58.801,8)=""
^DD("ACOMP",58.8001,21,58.801,10)=""
^DD("ACOMP",58.801,1,58.801,2)=""
^DD("ACOMP",58.801,3,58.801,4)=""
^DD("ACOMP",58.801,5,58.801,6)=""
^DD("ACOMP",58.801,7,58.801,8)=""
^DD("ACOMP",58.801,9,58.801,10)=""
^DD("ACOMP",60.03,.01,60.03,2)=""
^DD("ACOMP",63,.02,68.02,.02)=""
^DD("ACOMP",63,.02,69.01,.02)=""
^DD("ACOMP",63,.03,68.02,.03)=""
^DD("ACOMP",63,.03,69.01,.03)=""
^DD("ACOMP",63,.09,68.02,.09)=""
^DD("ACOMP",64.111,.03,64.1111,24)=""
^DD("ACOMP",64.111,.04,64.1111,24)=""
^DD("ACOMP",64.1111,2,64.1111,24)=""
^DD("ACOMP",65.4,.03,65.51,.02)=""
^DD("ACOMP",65.5,.03,65.5,.031)=""
^DD("ACOMP",65.51,.01,65.51,.02)=""
^DD("ACOMP",66.5,.01,66.5,.02)=""
^DD("ACOMP",67,.03,67,.033)=""
^DD("ACOMP",67.9114,1,67.9114,9)=""
^DD("ACOMP",67.9114,2,67.9114,9)=""
^DD("ACOMP",67.9114,3,67.9114,9)=""
^DD("ACOMP",67.9114,7,67.9114,9)=""
^DD("ACOMP",67.99999114,1,67.99999114,9)=""
^DD("ACOMP",67.99999114,2,67.99999114,9)=""
^DD("ACOMP",67.99999114,3,67.99999114,9)=""
^DD("ACOMP",67.99999114,7,67.99999114,9)=""
^DD("ACOMP",68.02,.01,68.02,.02)=""
^DD("ACOMP",68.02,.01,68.02,.03)=""
^DD("ACOMP",68.02,.01,68.02,.09)=""
^DD("ACOMP",69.01,.01,69.01,.02)=""
^DD("ACOMP",69.01,.01,69.01,.03)=""
^DD("ACOMP",70,.01,70,.03)=""
^DD("ACOMP",70,.01,70,.033)=""
^DD("ACOMP",70,.01,70,.09)=""
^DD("ACOMP",70,.01,70,.361)=""
^DD("ACOMP",70,.01,70,1901)=""
^DD("ACOMP",80,3,9000010.07,.019)=""
^DD("ACOMP",81,2,357.69,.015)=""
^DD("ACOMP",114,101,118,20)=""
^DD("ACOMP",114,101,118.2,5)=""
^DD("ACOMP",118,11,118,20)=""
^DD("ACOMP",118.2,11,118.2,5)=""
^DD("ACOMP",130,.205,130,1.24)=""
^DD("ACOMP",130,.205,130,12)=""
^DD("ACOMP",130,.205,130,14)=""
^DD("ACOMP",130,.21,130,1.22)=""
^DD("ACOMP",130,.21,130,1.23)=""
^DD("ACOMP",130,.21,130,12)=""
^DD("ACOMP",130,.21,130,13)=""
^DD("ACOMP",130,.215,130,1.22)=""
^DD("ACOMP",130,.22,130,1.21)=""
^DD("ACOMP",130,.22,130,13)=""
^DD("ACOMP",130,.22,130,14)=""
^DD("ACOMP",130,.23,130,1.21)=""
^DD("ACOMP",130,.232,130,1.24)=""
^DD("ACOMP",130,.234,130,1.25)=""
^DD("ACOMP",130,.236,130,1.25)=""
^DD("ACOMP",130,.24,130,1.23)=""
^DD("ACOMP",130,1.17,130,1.26)=""
^DD("ACOMP",130,1.18,130,1.26)=""
^DD("ACOMP",154,.01,154,999.01)=""
^DD("ACOMP",154,.01,154,999.02)=""
^DD("ACOMP",154,.01,154,999.025)=""
^DD("ACOMP",154,.01,154,999.09)=""
^DD("ACOMP",154.004,.01,154.004,999.01)=""
^DD("ACOMP",154.1,.01,154.1,999.01)=""
^DD("ACOMP",154.1,.01,154.1,999.02)=""
^DD("ACOMP",154.1,.01,154.1,999.025)=""
^DD("ACOMP",154.1,.01,154.1,999.09)=""
^DD("ACOMP",154.1,.04,154.1,999.08)=""
^DD("ACOMP",154.1,1001,154.1,999.08)=""
^DD("ACOMP",154.1,1004,154.1,999.08)=""
^DD("ACOMP",160,.01,160,.011)=""
^DD("ACOMP",160,.01,160,.012)=""
^DD("ACOMP",160,.115,165.5,.115)=""
^DD("ACOMP",160,.117,165.5,.117)=""
^DD("ACOMP",160,2,165.5,.08)=""
^DD("ACOMP",160,2,165.5,.09)=""
^DD("ACOMP",160,7,165.5,.093)=""
^DD("ACOMP",160,8,165.5,.12)=""
^DD("ACOMP",160,10,165.5,.1)=""
^DD("ACOMP",160,15,165.5,.091)=""
^DD("ACOMP",160,27,160,36)=""
^DD("ACOMP",160,1000,160,1000.1)=""
^DD("ACOMP",160,1001,160,1001.1)=""
^DD("ACOMP",160,1002,160,1002.1)=""
^DD("ACOMP",160.1,.01,160.1,.011)=""
^DD("ACOMP",160.1,.02,160.1,.021)=""
^DD("ACOMP",160.1,.031,160.1,.032)=""
^DD("ACOMP",160.1,.04,160.1,.041)=""
^DD("ACOMP",160.1,1,160.1,1.011)=""
^DD("ACOMP",160.1,1.01,160.1,1.0111)=""
^DD("ACOMP",160.1,1.011,160.1,1.01)=""
^DD("ACOMP",160.1,6,160.1,9)=""
^DD("ACOMP",161.2,8,162.1,3.1)=""
^DD("ACOMP",162.1,3,162.1,3.1)=""
^DD("ACOMP",165,.01,165,.011)=""
^DD("ACOMP",165.5,.02,165.5,.08)=""
^DD("ACOMP",165.5,.02,165.5,.09)=""
^DD("ACOMP",165.5,.02,165.5,.091)=""
^DD("ACOMP",165.5,.02,165.5,.093)=""
^DD("ACOMP",165.5,.02,165.5,.1)=""
^DD("ACOMP",165.5,.02,165.5,.115)=""
^DD("ACOMP",165.5,.02,165.5,.117)=""
^DD("ACOMP",165.5,.02,165.5,.12)=""
^DD("ACOMP",165.5,.022,165.5,.023)=""
^DD("ACOMP",165.5,.05,165.5,.061)=""
^DD("ACOMP",165.5,.06,165.5,.061)=""
^DD("ACOMP",165.5,3,165.5,3.5)=""
^DD("ACOMP",165.5,20,165.5,20.1)=""
^DD("ACOMP",165.5,91,165.5,97)=""
^DD("ACOMP",190,106,190,200)=""
^DD("ACOMP",190.1,2,190.1,200)=""
^DD("ACOMP",190.1,7,190.1,200)=""
^DD("ACOMP",190.3,6,190.3,200)=""
^DD("ACOMP",190.3,9,190.3,200)=""
^DD("ACOMP",200,.111,210,9)=""
^DD("ACOMP",200,.114,210,11)=""
^DD("ACOMP",200,.115,210,12)=""
^DD("ACOMP",200,.116,210,12.1)=""
^DD("ACOMP",200,1,423,999.1)=""
^DD("ACOMP",200,4,210,8)=""
^DD("ACOMP",200,5,210,7)=""
^DD("ACOMP",200,9,45,79.2)=""
^DD("ACOMP",210,.01,210,7)=""
^DD("ACOMP",210,.01,210,8)=""
^DD("ACOMP",210,.01,210,9)=""
^DD("ACOMP",210,.01,210,11)=""
^DD("ACOMP",210,.01,210,12)=""
^DD("ACOMP",210,.01,210,12.1)=""
^DD("ACOMP",210,7,210,7.5)=""
^DD("ACOMP",210,21.5,210,21.51)=""
^DD("ACOMP",210,21.7,210,21.71)=""
^DD("ACOMP",210.024,.01,210.024,.05)=""
^DD("ACOMP",210.024,.01,210.024,1)=""
^DD("ACOMP",213.2,6,213.2,41.5)=""
^DD("ACOMP",213.2,7,213.2,41.5)=""
^DD("ACOMP",213.2,8,213.2,41.5)=""
^DD("ACOMP",213.2,9,213.2,41.5)=""
^DD("ACOMP",213.2,10,213.2,41.5)=""
^DD("ACOMP",213.2,11,213.2,41.5)=""
^DD("ACOMP",213.2,12,213.2,41.5)=""
^DD("ACOMP",213.2,13,213.2,41.5)=""
^DD("ACOMP",213.2,14,213.2,41.5)=""
^DD("ACOMP",213.2,15,213.2,41.5)=""
^DD("ACOMP",213.2,16,213.2,41.5)=""
^DD("ACOMP",213.2,17,213.2,41.5)=""
^DD("ACOMP",213.2,18,213.2,41.5)=""
^DD("ACOMP",213.2,19,213.2,41.5)=""
^DD("ACOMP",213.2,20,213.2,41.5)=""
^DD("ACOMP",213.2,26,213.2,41)=""
^DD("ACOMP",213.2,27,213.2,41)=""
^DD("ACOMP",213.2,28,213.2,41)=""
^DD("ACOMP",213.2,29,213.2,41)=""
^DD("ACOMP",213.2,30,213.2,41)=""
^DD("ACOMP",213.2,31,213.2,41)=""
^DD("ACOMP",213.2,32,213.2,41)=""
^DD("ACOMP",213.2,33,213.2,41)=""
^DD("ACOMP",213.2,34,213.2,41)=""
^DD("ACOMP",213.2,35,213.2,41)=""
^DD("ACOMP",213.2,36,213.2,41)=""
^DD("ACOMP",213.2,37,213.2,41)=""
^DD("ACOMP",213.2,38,213.2,41)=""
^DD("ACOMP",213.2,39,213.2,41)=""
^DD("ACOMP",213.2,40,213.2,41)=""
^DD("ACOMP",213.2,41,213.2,42)=""
^DD("ACOMP",213.2,41.5,213.2,42)=""
^DD("ACOMP",350.71,.06,350.71,.08)=""
^DD("ACOMP",355.3,.03,2.312,20)=""
^DD("ACOMP",355.3,.04,2.312,21)=""
^DD("ACOMP",356,.02,356.1,21)=""
^DD("ACOMP",356.1,.02,356.1,21)=""
^DD("ACOMP",356.19,.12,356.19,20)=""
^DD("ACOMP",356.19,.13,356.19,20)=""
^DD("ACOMP",356.19,.14,356.19,21)=""
^DD("ACOMP",356.19,.15,356.19,21)=""
^DD("ACOMP",357.69,.01,357.69,.015)=""
^DD("ACOMP",357.96,.1,359.3,9)=""
^DD("ACOMP",359.3,.05,359.3,9)=""
^DD("ACOMP",396,.01,396,1)=""
^DD("ACOMP",396,.01,396,2)=""
^DD("ACOMP",396.3,4,396.3,18)=""
^DD("ACOMP",404.52,.01,404.52,.097)=""
^DD("ACOMP",404.52,.09,404.52,.099)=""
^DD("ACOMP",404.52,.097,404.52,.096)=""
^DD("ACOMP",404.52,.098,404.52,.096)=""
^DD("ACOMP",404.52,.098,404.52,.099)=""
^DD("ACOMP",404.57,.08,404.52,.097)=""
^DD("ACOMP",405,.14,405,40)=""
^DD("ACOMP",405,.16,405,51)=""
^DD("ACOMP",405,.16,405,55)=""
^DD("ACOMP",405,41,405,40)=""
^DD("ACOMP",409.71,.01,350.71,.08)=""
^DD("ACOMP",409.73,11,409.75,10.01)=""
^DD("ACOMP",409.75,.01,409.75,10.01)=""
^DD("ACOMP",410,1,410.04,2)=""
^DD("ACOMP",410,7,443,5.2)=""
^DD("ACOMP",410,32,410,32.1)=""
^DD("ACOMP",410,44.6,443,5)=""
^DD("ACOMP",410.04,1,410.04,2)=""
^DD("ACOMP",413,53,413,69)=""
^DD("ACOMP",413,54,413,69)=""
^DD("ACOMP",413,60,413,69)=""
^DD("ACOMP",413,63,413,69)=""
^DD("ACOMP",413,65,413,69)=""
^DD("ACOMP",413,66,413,69)=""
^DD("ACOMP",413.015,4,413.015,6)=""
^DD("ACOMP",413.015,5,413.015,6)=""
^DD("ACOMP",420.7,2,421,2.5)=""
^DD("ACOMP",421,1,421,1.5)=""
^DD("ACOMP",421,2,421,2.5)=""
^DD("ACOMP",421,7,421,11)=""
^DD("ACOMP",421,8,421,11)=""
^DD("ACOMP",421,9,421,11)=""
^DD("ACOMP",421,10,421,11)=""
^DD("ACOMP",421,14,421,16.5)=""
^DD("ACOMP",421,15,421,16.5)=""
^DD("ACOMP",421,16,421,16.5)=""
^DD("ACOMP",423,999,423,999.1)=""
^DD("ACOMP",430,61,430,70)=""
^DD("ACOMP",430,63,430,69)=""
^DD("ACOMP",430,71,430,11)=""
^DD("ACOMP",430,72,430,11)=""
^DD("ACOMP",430,73,430,11)=""
^DD("ACOMP",430,74,430,11)=""
^DD("ACOMP",430,75,430,11)=""
^DD("ACOMP",442,.1,442,21)=""
^DD("ACOMP",442,.1,442,22)=""
^DD("ACOMP",443,.01,443,5)=""
^DD("ACOMP",443,.01,443,5.2)=""
^DD("ACOMP",444.026,18,444.024,15)=""
^DD("ACOMP",450,16,450,15.5)=""
^DD("ACOMP",470,.01,470,50)=""
^DD("ACOMP",470,.01,470,51)=""
^DD("ACOMP",470,.01,470,53)=""
^DD("ACOMP",470,.01,470,54)=""
^DD("ACOMP",470,.01,470,55)=""
^DD("ACOMP",470,.01,470,56)=""
^DD("ACOMP",470,.01,470,57)=""
^DD("ACOMP",470,.01,470,58)=""
^DD("ACOMP",470,.01,470,59)=""
^DD("ACOMP",470.01,.01,470.01,7)=""
^DD("ACOMP",470.01,.01,470.01,8)=""
^DD("ACOMP",470.01,.01,470.01,9)=""
^DD("ACOMP",470.01,.01,470.01,10)=""
^DD("ACOMP",470.01,.01,470.01,11)=""
^DD("ACOMP",470.01,.01,470.01,12)=""
^DD("ACOMP",470.01,.01,470.01,13)=""
^DD("ACOMP",470.01,.01,470.01,14)=""
^DD("ACOMP",470.01,.01,470.01,15)=""
^DD("ACOMP",470.01,.01,470.01,16)=""
^DD("ACOMP",470.1,4,470.1,5.5)=""
^DD("ACOMP",470.1,5,470.1,5.5)=""
^DD("ACOMP",550.215,.03,550.215,.04)=""
^DD("ACOMP",601.72,1,601.76,5)=""
^DD("ACOMP",601.72,4,601.76,6)=""
^DD("ACOMP",601.75,3,601.751,3)=""
^DD("ACOMP",601.751,2,601.751,3)=""
^DD("ACOMP",601.76,3,601.76,5)=""
^DD("ACOMP",601.76,3,601.76,6)=""
^DD("ACOMP",601.84,2,601.92,7)=""
^DD("ACOMP",601.92,1,601.92,7)=""
^DD("ACOMP",604,.02,604,.0203)=""
^DD("ACOMP",604,.02,604,.0209)=""
^DD("ACOMP",604,.02,604,.02111)=""
^DD("ACOMP",604,.02,604,.021112)=""
^DD("ACOMP",604,.02,604,.02112)=""
^DD("ACOMP",604,.02,604,.02113)=""
^DD("ACOMP",604,.02,604,.02114)=""
^DD("ACOMP",604,.02,604,.02115)=""
^DD("ACOMP",604,.02,604,.02116)=""
^DD("ACOMP",604,.02,604,.02131)=""
^DD("ACOMP",604,.02,604,.044)=""
^DD("ACOMP",604,14.26,604,14.265)=""
^DD("ACOMP",627,1,627,4)=""
^DD("ACOMP",631,.01,631,6)=""
^DD("ACOMP",631,.01,631,8)=""
^DD("ACOMP",631,.01,631,9.1)=""
^DD("ACOMP",631,9.1,631,9)=""
^DD("ACOMP",680,7.1,680,8.6)=""
^DD("ACOMP",680,7.1,680,15)=""
^DD("ACOMP",680,8.3,680,8.6)=""
^DD("ACOMP",680,8.3,680,15)=""
^DD("ACOMP",680,8.5,680,8.6)=""
^DD("ACOMP",680,8.5,680,15)=""
^DD("ACOMP",682,1.3,682.02,.02)=""
^DD("ACOMP",682,1.4,682.02,.02)=""
^DD("ACOMP",690,.01,690,2)=""
^DD("ACOMP",690,.01,691,1.15)=""
^DD("ACOMP",690,.01,691.7,46)=""
^DD("ACOMP",690,.01,701,1.1)=""
^DD("ACOMP",691,1,691,1.15)=""
^DD("ACOMP",691,5,691,31.1)=""
^DD("ACOMP",691,17,691,19)=""
^DD("ACOMP",691,18,691,19)=""
^DD("ACOMP",691,21,691,27)=""
^DD("ACOMP",691,22,691,28)=""
^DD("ACOMP",691,23,691,29)=""
^DD("ACOMP",691,24,691,27)=""
^DD("ACOMP",691,25,691,28)=""
^DD("ACOMP",691,26,691,29)=""
^DD("ACOMP",691,30,691,31.1)=""
^DD("ACOMP",691,30,691,32)=""
^DD("ACOMP",691,31,691,31.1)=""
^DD("ACOMP",691,31,691,32)=""
^DD("ACOMP",691,34.1,691,34.7)=""
^DD("ACOMP",691,35,691,35.3)=""
^DD("ACOMP",691,35.5,691,35.65)=""
^DD("ACOMP",691,35.7,691,36)=""
^DD("ACOMP",691,36.2,691,36.31)=""
^DD("ACOMP",691.1,1.3,691.26,36)=""
^DD("ACOMP",691.1,1.3,691.26,39)=""
^DD("ACOMP",691.1,1.3,691.26,41)=""
^DD("ACOMP",691.1,1.3,691.26,46)=""
^DD("ACOMP",691.1,2006,691.1,2009)=""
^DD("ACOMP",691.1,2007,691.1,2009)=""
^DD("ACOMP",691.1,2008,691.1,2009)=""
^DD("ACOMP",691.26,35,691.26,36)=""
^DD("ACOMP",691.26,38,691.26,39)=""
^DD("ACOMP",691.26,40,691.26,41)=""
^DD("ACOMP",691.26,45,691.26,46)=""
^DD("ACOMP",691.6,32,691.6,34)=""
^DD("ACOMP",691.6,33,691.6,34)=""
^DD("ACOMP",691.6,45,691.6,47)=""
^DD("ACOMP",691.6,46,691.6,47)=""
^DD("ACOMP",691.7,1,691.7,46)=""
^DD("ACOMP",691.7,20,691.7,22)=""
^DD("ACOMP",691.7,21,691.7,22)=""
^DD("ACOMP",691.7,23,691.7,28)=""
^DD("ACOMP",691.7,24,691.7,28)=""
^DD("ACOMP",691.7,29,691.7,48)=""
^DD("ACOMP",691.7,44,691.7,43)=""
^DD("ACOMP",691.7,45,691.7,43)=""
^DD("ACOMP",691.7,46,691.7,48)=""
^DD("ACOMP",691.9,17.1,691.9,17.3)=""
^DD("ACOMP",691.9,17.2,691.9,17.3)=""
^DD("ACOMP",691.93,3,691.93,8)=""
^DD("ACOMP",691.93,7,691.93,8)=""
^DD("ACOMP",692.02,3,692.02,8)=""
^DD("ACOMP",692.02,7,692.02,8)=""
^DD("ACOMP",698.3,4,698.3,5)=""
^DD("ACOMP",698.3,6,698.3,7)=""
^DD("ACOMP",699.5,2,699.5,2.01)=""
^DD("ACOMP",700.018,1,700.018,5)=""
^DD("ACOMP",700.018,2,700.018,5)=""
^DD("ACOMP",701,1,701,1.1)=""
^DD("ACOMP",702,.01,702,.011)=""
^DD("ACOMP",702,.01,702,.012)=""
^DD("ACOMP",741.99,1,741.99,10)=""
^DD("ACOMP",741.99,1.1,741.99,10)=""
^DD("ACOMP",741.99,2,741.99,10)=""
^DD("ACOMP",741.99,3,741.99,10)=""
^DD("ACOMP",741.99,4.1,741.99,10)=""
^DD("ACOMP",741.99,4.2,741.99,10)=""
^DD("ACOMP",741.99,5.1,741.99,10)=""
^DD("ACOMP",741.99,5.2,741.99,10)=""
^DD("ACOMP",741.99,6.1,741.99,10)=""
^DD("ACOMP",741.99,6.2,741.99,10)=""
^DD("ACOMP",741.99,7,741.99,10)=""
^DD("ACOMP",741.99,8,741.99,10)=""
^DD("ACOMP",741.99,9,741.99,10)=""
^DD("ACOMP",741.99,99,741.99,10)=""
^DD("ACOMP",745.1,2,745.1,3)=""
^DD("ACOMP",745.1,2,745.1,4)=""
^DD("ACOMP",745.1,2,745.1,5)=""
^DD("ACOMP",745.1,19,745.1,20.1)=""
^DD("ACOMP",745.1,20,745.1,20.1)=""
^DD("ACOMP",771.9,3,771.9,50)=""
^DD("ACOMP",785,1.3,785,1.1)=""
^DD("ACOMP",785,16.5,785,51)=""
^DD("ACOMP",785,16.7,785,51)=""
^DD("ACOMP",785,21,785,23)=""
^DD("ACOMP",785,22,785,23)=""
^DD("ACOMP",785,23,785,64)=""
^DD("ACOMP",785,27.5,785.03,3)=""
^DD("ACOMP",785,29,785,33)=""
^DD("ACOMP",785,32,785,33)=""
^DD("ACOMP",785,33,785,64)=""
^DD("ACOMP",785,40.6,785,54)=""
^DD("ACOMP",785,42,785,64)=""
^DD("ACOMP",785,44,785,54)=""
^DD("ACOMP",785.03,1,785.03,8)=""
^DD("ACOMP",790,.01,790,.02)=""
^DD("ACOMP",790,.01,790,.03)=""
^DD("ACOMP",790,.01,790,.04)=""
^DD("ACOMP",790,.01,790,.05)=""
^DD("ACOMP",790,.01,790,.06)=""
^DD("ACOMP",910,.03,910,.0301)=""
^DD("ACOMP",912.555,.04,912.555,.05)=""
^DD("ACOMP",2040,.01,2040,2.3)=""
^DD("ACOMP",2040,.01,2040,2.5)=""
^DD("ACOMP",2040,.01,2040,3.3)=""
^DD("ACOMP",2040,.01,2040,10)=""
^DD("ACOMP",2040,2.5,2040,8.7)=""
^DD("ACOMP",2040,2.5,2040,8.9)=""
^DD("ACOMP",2040,3.3,2040,8.5)=""
^DD("ACOMP",2040,3.3,2040,8.6)=""
^DD("ACOMP",6916.3,2,6916.3,21)=""
^DD("ACOMP",6916.3,4,6916.3,20)=""
^DD("ACOMP",6916.3,4,6916.3,21)=""
^DD("ACOMP",6916.3,6,6916.3,20)=""
^DD("ACOMP",6916.3,7,6916.3,20)=""
^DD("ACOMP",6916.3,7,6916.3,21)=""
^DD("ACOMP",6920,1,6920,45)=""
^DD("ACOMP",6920,10,6920,46)=""
^DD("ACOMP",6920,36,6920,45)=""
^DD("ACOMP",6920,36,6920,46)=""
^DD("ACOMP",6925,2,6925.0225,3)=""
^DD("ACOMP",6925,4,6925,5.1)=""
^DD("ACOMP",6925,5,6925,5.1)=""
^DD("ACOMP",6925,71.6,6925,82)=""
^DD("ACOMP",6925,71.6,6925,130)=""
^DD("ACOMP",6925,71.7,6925,76)=""
^DD("ACOMP",6925,72,6925,76)=""
^DD("ACOMP",6925,72.3,6925,76)=""
^DD("ACOMP",6925,72.5,6925,76)=""
^DD("ACOMP",6925,73,6925,76)=""
^DD("ACOMP",6925,74,6925,76)=""
^DD("ACOMP",6925,75,6925,76)=""
^DD("ACOMP",6925,75.5,6925,76)=""
^DD("ACOMP",6925,78,6925,81)=""
^DD("ACOMP",6925,78,6925,130)=""
^DD("ACOMP",6925,80,6925,81)=""
^DD("ACOMP",6925,80,6925,130)=""
^DD("ACOMP",6925,81,6925,82)=""
^DD("ACOMP",6925,106,6925,129)=""
^DD("ACOMP",6925,107,6925,109)=""
^DD("ACOMP",6925,107,6925,129)=""
^DD("ACOMP",6925,108,6925,109)=""
^DD("ACOMP",6925,108,6925,129)=""
^DD("ACOMP",6925,126,6925,128.2)=""
^DD("ACOMP",6925,126,6925,129)=""
^DD("ACOMP",6925,128,6925,128.2)=""
^DD("ACOMP",6925,128,6925,129)=""
^DD("ACOMP",6925,129,6925,130)=""
^DD("ACOMP",6925,155,6925,212)=""
^DD("ACOMP",6925,155,6925,218.1)=""
^DD("ACOMP",6925,155,6925,220)=""
^DD("ACOMP",6925,155,6925,222)=""
^DD("ACOMP",6925,155,6925,235)=""
^DD("ACOMP",6925,155,6925.0225,4)=""
^DD("ACOMP",6925,158.1,6925,262.3)=""
^DD("ACOMP",6925,158.8,6925,262.7)=""
^DD("ACOMP",6925,209,6925,262.1)=""
^DD("ACOMP",6925,209.1,6925,235)=""
^DD("ACOMP",6925,212.1,6925,212)=""
^DD("ACOMP",6925,212.2,6925,212)=""
^DD("ACOMP",6925,213,6925,217)=""
^DD("ACOMP",6925,214,6925,217)=""
^DD("ACOMP",6925,215,6925,217)=""
^DD("ACOMP",6925,216,6925,217)=""
^DD("ACOMP",6925,217,6925,218.1)=""
^DD("ACOMP",6925,217,6925,220)=""
^DD("ACOMP",6925,217,6925,222)=""
^DD("ACOMP",6925,218.1,6925,222)=""
^DD("ACOMP",6925,218.2,6925,218.1)=""
^DD("ACOMP",6925,218.3,6925,218.1)=""
^DD("ACOMP",6925,219,6925,220)=""
^DD("ACOMP",6925,219,6925,222)=""
^DD("ACOMP",6925,220.1,6925,220)=""
^DD("ACOMP",6925,220.1,6925,222)=""
^DD("ACOMP",6925,220.1,6925,262.6)=""
^DD("ACOMP",6925,221,6925,218.1)=""
^DD("ACOMP",6925,221,6925,220)=""
^DD("ACOMP",6925,221,6925,222)=""
^DD("ACOMP",6925,222,6925,262.6)=""
^DD("ACOMP",6925,233,6925,235)=""
^DD("ACOMP",6925,234,6925,235)=""
^DD("ACOMP",6925,236,6925,262.5)=""
^DD("ACOMP",6925,236,6925,262.7)=""
^DD("ACOMP",6925,236.2,6925,262.5)=""
^DD("ACOMP",6925,261,6925,262.2)=""
^DD("ACOMP",6925,262.1,6925,263)=""
^DD("ACOMP",6925,262.2,6925,263)=""
^DD("ACOMP",6925,262.3,6925,263)=""
^DD("ACOMP",6925,262.4,6925,263)=""
^DD("ACOMP",6925,262.7,6925,263)=""
^DD("ACOMP",6925,263,6925,235)=""
^DD("ACOMP",6925,289,6925,212)=""
^DD("ACOMP",6925.0225,.01,6925.0225,3)=""
^DD("ACOMP",6925.0225,.01,6925.0225,4)=""
^DD("ACOMP",6925.03,2,6925,218)=""
^DD("ACOMP",6925.03,4,6925,218)=""
^DD("ACOMP",6925.04,1,6925.04,3)=""
^DD("ACOMP",6925.04,2,6925.04,3)=""
^DD("ACOMP",6926.02,1,6926.01,3)=""
^DD("ACOMP",6928,.51,6928,.8)=""
^DD("ACOMP",6928,3,6928,4)=""
^DD("ACOMP",6928,3.5,6928,4)=""
^DD("ACOMP",6929,2,6929,8.1)=""
^DD("ACOMP",8925,.01,8925,89261)=""
^DD("ACOMP",8925.1,1501,8925,89261)=""
^DD("ACOMP",8932.1,6,8932.1,.011)=""
^DD("ACOMP",8932.1,6,8932.1,1.1)=""
^DD("ACOMP",8932.1,6,8932.1,2.1)=""
^DD("ACOMP",8972.1,.04,8972.1,99.04)=""
^DD("ACOMP",8972.1,.05,8972.1,99.05)=""
^DD("ACOMP",8972.1,.06,8972.1,99.06)=""
^DD("ACOMP",8972.1,.07,8972.1,99.07)=""
^DD("ACOMP",8972.1,.08,8972.1,99.08)=""
^DD("ACOMP",8972.1,.09,8972.1,99.09)=""
^DD("ACOMP",8972.1,.1,8972.1,99.04)=""
^DD("ACOMP",8972.1,.1,8972.1,99.05)=""
^DD("ACOMP",8972.1,.1,8972.1,99.06)=""
^DD("ACOMP",8972.1,.1,8972.1,99.07)=""
^DD("ACOMP",8972.1,.1,8972.1,99.08)=""
^DD("ACOMP",8972.1,.1,8972.1,99.09)=""
^DD("ACOMP",120205,9,691.7,12)=""
^DD("ACOMP",120205,10,691.7,12)=""
^DD("ACOMP",120205,13,691.7,16)=""
^DD("ACOMP",120205,14,691.7,16)=""
^DD("ACOMP",120205,29,691.7,42)=""
^DD("ACOMP",120205,30,691.7,42)=""
^DD("ACOMP",120205,32,691.7,59)=""
^DD("ACOMP",120205,32,691.7,60)=""
^DD("ACOMP",120205,32,691.7,62)=""
^DD("ACOMP",120205,32,691.7,65)=""
^DD("ACOMP",120205,33,691.7,65)=""
^DD("ACOMP",120205,33,691.7,67)=""
^DD("ACOMP",120205,42,691.7,62)=""
^DD("ACOMP",120205,43,691.7,59)=""
^DD("ACOMP",120205,43,691.7,60)=""
^DD("ACOMP",120205,43,691.7,62)=""
^DD("ACOMP",120205,43,691.7,65)=""
^DD("ACOMP",120205,43,691.7,67)=""
^DD("ACOMP",503330,.01,503330,.5)=""
^DD("ACOMP",503330,.01,503330,.6)=""
^DD("ACOMP",503330,3,503330,5.5)=""
^DD("ACOMP",503330,4,503330,4.5)=""
^DD("ACOMP",503330,4.5,503330,5.5)=""
^DD("ACOMP",503330,5,503330,5.5)=""
^DD("ACOMP",503330,5,503330,34)=""
^DD("ACOMP",503330.03,.01,503330.03,6)=""
^DD("ACOMP",503332,1,503335,1.3)=""
^DD("ACOMP",503334,1,503334.1,.6)=""
^DD("ACOMP",503334,1,503335,1.15)=""
^DD("ACOMP",503334,1,503336,3.5)=""
^DD("ACOMP",503334,1,503338.018,1)=""
^DD("ACOMP",503334,1.5,503340,1.6)=""
^DD("ACOMP",503334,1.5,503340,42.5)=""
^DD("ACOMP",503334,1.5,503340,45.5)=""
^DD("ACOMP",503334.1,.5,503334.1,.6)=""
^DD("ACOMP",503334.1,6,503334.1,7)=""
^DD("ACOMP",503335,1.1,503335,1.15)=""
^DD("ACOMP",503335,1.2,503335,1.3)=""
^DD("ACOMP",503336,3,503336,3.5)=""
^DD("ACOMP",503338.018,.01,503338.018,1)=""
^DD("ACOMP",503339.2,5,503339.2,22)=""
^DD("ACOMP",503339.2,6,503339.2,21)=""
^DD("ACOMP",503339.2,7,503339.2,22)=""
^DD("ACOMP",503339.2,21,503339.2,22)=""
^DD("ACOMP",503339.216,.01,503339.216,1)=""
^DD("ACOMP",503339.216,2,503339.216,1)=""
^DD("ACOMP",503339.22,.01,503339.2,23)=""
^DD("ACOMP",503340,1,503340,1.6)=""
^DD("ACOMP",503340,21,503340,21.5)=""
^DD("ACOMP",503340,42,503340,42.5)=""
^DD("ACOMP",503340,45,503340,45.5)=""
^DD("ACOMP",503340.1,5,503340.1,5.5)=""
^DD("ACOMP",578120.8503,4,120.8503,6)=""
^DD("ACOMP",578120.8503,5,120.8503,6)=""
^DD("ACOMP",642000.02,4,6914.02,8)=""
^DD("ACOMP",642000.02,5,6914.02,8)=""
^DD("ACOMP",642000.02,6,6914.02,8)=""
^DD("ACOMP",692723,.02,604,14.265)=""
^DD("ACOMP",9000010.07,.01,9000010.07,.019)=""
^DD("ACOMP",9002313.311,.01,9002313.311,.0199)=""
^DD("ACOMP",9002313.3121,.01,9002313.3121,.0199)=""
^DD("ACOMP",9002313.57,1.11,9002313.57,1.1199)=""
^DD("ACOMP",9002313.57,3,9002313.57,3.1)=""
^DD("ACOMP",9002313.57,4,9002313.57,4.1)=""
^DD("ACOMP",9002313.57,13,9002313.57,10.0099)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1439)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1528)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1529)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.153)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1531)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1532)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1533)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1544)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.1999)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.2)=""
^DD("ACOMP",9002313.57,10525,9002313.57,10525.3)=""
^DD("ACOMP",9002313.57,10525.1,9002313.57,10525.01)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.01)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2439)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2528)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2529)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.253)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2531)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2532)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2533)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2544)=""
^DD("ACOMP",9002313.57,10525.2,9002313.57,10525.2999)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.01)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3439)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3528)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3529)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.353)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3531)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3532)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3533)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3544)=""
^DD("ACOMP",9002313.57,10525.3,9002313.57,10525.3999)=""
^DD("ACOMP",9002313.59,1.11,9002313.59,1.1199)=""
^DD("ACOMP",9002313.59,3,9002313.59,3.1)=""
^DD("ACOMP",9002313.59,4,9002313.59,4.1)=""
^DD("ACOMP",9002313.59,13,9002313.59,10.0099)=""
^DD("ACOMP",9002313.91,.03,9002313.311,.0199)=""
^DD("ACOMP",9002313.91,.03,9002313.3121,.0199)=""
^DD("DD")="S Y=$$FMTE^DILIBF(Y,""5U"")"
^DD("DILOCKTM")="3"
^DD("FUNC",0)="COMPUTED-FIELD FUNCTION^.5^^172"
^DD("FUNC",1,0)="SQUAREROOT"
^DD("FUNC",1,1)="D SQR^DIXC S X=$S(X'>0:"""",1:Y)"
^DD("FUNC",2,0)="TIME"
^DD("FUNC",2,1)="S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"""
^DD("FUNC",3,0)="MONTH"
^DD("FUNC",3,1)="S X=$E(X,1,5)_0_0 S:'X X="""""
^DD("FUNC",3,2)="D^D"
^DD("FUNC",4,0)="YEAR"
^DD("FUNC",4,1)="S X=$E(X,1,3)_""0000"" S:'X X="""""
^DD("FUNC",4,2)="D^D"
^DD("FUNC",5,0)="DATE"
^DD("FUNC",5,1)="S X=$P(X,""."",1)"
^DD("FUNC",5,2)="D^D"
^DD("FUNC",6,0)="DAYOFWEEK"
^DD("FUNC",6,1)="D DW^%DTC"
^DD("FUNC",6,2)="^D"
^DD("FUNC",7,0)="CLOSE"
^DD("FUNC",7,1)="C X S X="""""
^DD("FUNC",8,0)="ABS"
^DD("FUNC",8,1)="S:X<0 X=-X"
^DD("FUNC",9,0)="INTERNAL"
^DD("FUNC",9,1)="S X=X"
^DD("FUNC",10,0)="MAX"
^DD("FUNC",10,1)="S:X1>X X=X1"
^DD("FUNC",10,2)="O"
^DD("FUNC",10,3)="2"
^DD("FUNC",10,9)="MAXIMUM OF 2 VALUES"
^DD("FUNC",11,0)="MIN"
^DD("FUNC",11,1)="S:X1<X X=X1"
^DD("FUNC",11,2)="O"
^DD("FUNC",11,3)="2"
^DD("FUNC",11,9)="MINIMUM OF TWO VALUES"
^DD("FUNC",12,0)="REVERSE"
^DD("FUNC",12,1)="S Y=X,X="""" X ""F %=$L(Y):-1:1 S X=X_$E(Y,%)"""
^DD("FUNC",12,9)="DATA CHARACTERS IN RIGHT-TO-LEFT ORDER"
^DD("FUNC",13,0)="UPPERCASE"
^DD("FUNC",13,1)="X ""F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)"""
^DD("FUNC",14,0)="LOWERCASE"
^DD("FUNC",14,1)="X ""F %=2:1:$L(X) I $E(X,%)?1U,$E(X,%-1)?1A S X=$E(X,0,%-1)_$C($A(X,%)+32)_$E(X,%+1,999)"""
^DD("FUNC",15,0)="CENTER"
^DD("FUNC",15,1)="S X=$J("""",$S($D(DIWR)+$D(DIWL)=2:DIWR-DIWL+1,$D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD("FUNC",15,10)="W"
^DD("FUNC",16,0)="UNDERLINE"
^DD("FUNC",16,1)="S %="""",Y=$S($D(IOST)[0:-1,$A(IOST)-80:-1,1:$L(X)<83) X:Y+1 ""F Y=1:1:$L(X) ""_$S(Y:""S %=$C(8)_%"",1:""W $E(X,Y),$C(8)"")_""_""""_"""""" S:Y+1 X=$S(%]"""":X_%,1:%)"
^DD("FUNC",16,9)="UNDERLINE (ARG) IF OUTPUTTING TO A PRINTER DEVICE"
^DD("FUNC",16,10)="W"
^DD("FUNC",17,0)="PAGEFEED"
^DD("FUNC",17,1)="S %Y=1,%=$S($D(DIWF):$F(DIWF,""B""),1:0) X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S:$D(DIWF) DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""B""_(X\1) X:X>(IOSL-$Y)&$D(^UTILITY($J,1))&'$D(^(""W""))&'$D(DIWF) ^(1) S X="""""
^DD("FUNC",17,9)="START NEW PAGE IF <ARG LINES LEFT"
^DD("FUNC",17,10)="W"
^DD("FUNC",18,0)="BREAKABLE"
^DD("FUNC",18,1)="D:'$D(DISYS) OS^DII X ^DD(""OS"",DISYS,1)"
^DD("FUNC",18,9)="OUTPUT DEVICE CAN BE INTERRUPTED IF ARGUMENT IS NON-ZERO"
^DD("FUNC",19,0)="NUMMONTH"
^DD("FUNC",19,1)="S X=+$E(X,4,5)"
^DD("FUNC",19,2)="^D"
^DD("FUNC",19,9)="MONTH NUMBER (0-12) FOR A DATE"
^DD("FUNC",20,0)="NUMDAY"
^DD("FUNC",20,1)="S X=+$E(X,6,7)"
^DD("FUNC",20,2)="^D"
^DD("FUNC",20,9)="DAY NUMBER (0-31) FOR A DATE"
^DD("FUNC",21,0)="NUMYEAR"
^DD("FUNC",21,1)="S:X X=$E(X,2,3)"
^DD("FUNC",21,2)="^D"
^DD("FUNC",21,9)="YEAR NUMBER (00-99) FOR A DATE"
^DD("FUNC",22,0)="NUMDATE"
^DD("FUNC",22,1)="S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_$E(X,2,3)"
^DD("FUNC",22,2)="^D"
^DD("FUNC",22,9)="DATE IN 'NN/NN/NN' FORMAT"
^DD("FUNC",23,0)="REPLACE"
^DD("FUNC",23,1)="X ""F %=0:0 S %=$F(X2,X1,%) Q:%<2  S X2=$E(X2,1,%-$L(X1)-1)_X_$E(X2,%,999),%=%-$L(X1)+$L(X)"" S X=X2"
^DD("FUNC",23,3)="3"
^DD("FUNC",23,9)="THE 1ST ARGUMENT, WITH ALL OCCURRENCES OF THE 2ND ARGUMENT REPLACED BY THE 3RD"
^DD("FUNC",24,0)="NOW"
^DD("FUNC",24,1)="S %=$P($H,"","",2),X=DT_(%\60#60/100+(%\3600)+(%#60/10000)/100)"
^DD("FUNC",24,2)="D"
^DD("FUNC",24,3)="0"
^DD("FUNC",24,9)="CURRENT DATE/TIME"
^DD("FUNC",25,0)="TODAY"
^DD("FUNC",25,1)="S X=DT"
^DD("FUNC",25,2)="D"
^DD("FUNC",25,3)="0"
^DD("FUNC",25,9)="CURRENT DATE"
^DD("FUNC",26,0)="PAGE"
^DD("FUNC",26,1)="S X=$S($D(DC)#2:DC,1:"""")"
^DD("FUNC",26,3)="0"
^DD("FUNC",26,9)="PAGE NUMBER (OF OUTPUT)"
^DD("FUNC",27,0)="SETTAB"
^DD("FUNC",27,1)="S DIWT=X,X="""" F %=1:1 S Y=""X""_% Q:'$D(@Y)  S DIWT=@Y_"",""_DIWT"
^DD("FUNC",27,3)="VARIABLE"
^DD("FUNC",27,9)="SET TAB STOPS"
^DD("FUNC",27,10)="W"
^DD("FUNC",28,0)="RIGHT-JUSTIFY"
^DD("FUNC",28,1)="S X="""" S:'$D(DIWF) DIWF="""" S:DIWF'[""R"" DIWF=DIWF_""R"""
^DD("FUNC",28,3)="0"
^DD("FUNC",28,10)="W"
^DD("FUNC",29,0)="DOUBLE-SPACE"
^DD("FUNC",29,1)="S X="""" S:'$D(DIWF) DIWF="""" S:DIWF'[""D"" DIWF=DIWF_""D"""
^DD("FUNC",29,3)="0"
^DD("FUNC",29,10)="W"
^DD("FUNC",30,0)="SINGLE-SPACE"
^DD("FUNC",30,1)="S:'$D(DIWF) DIWF="""" S X="""",DIWF=$P(DIWF,""D"",1)_$P(DIWF,""D"",2)"
^DD("FUNC",30,3)="0"
^DD("FUNC",30,10)="W"
^DD("FUNC",31,0)="BLANK"
^DD("FUNC",31,1)="X ""F I=1:1:X ""_$S($D(^UTILITY($J,""W"")):""S X="""" |TAB|"""" D L^DIWP"",1:""W !"") S X="""""
^DD("FUNC",31,9)="SKIP (ARG) NUMBER OF LINES"
^DD("FUNC",31,10)="W"
^DD("FUNC",32,0)="MONTHNAME"
^DD("FUNC",32,1)="S X=$P(""JANUARY^FEBRUARY^MARCH^APRIL^MAY^JUNE^JULY^AUGUST^SEPTEMBER^OCTOBER^NOVEMBER^DECEMBER"",""^"",+X)"
^DD("FUNC",32,9)="TURNS ""1"" INTO ""JANUARY"", ""2"" INTO ""FEBRUARY"", ETC."
^DD("FUNC",33,0)="SETPAGE"
^DD("FUNC",33,1)="S DC=X,X="""""
^DD("FUNC",33,9)="PAGE NUMBER ON NEXT PAGE WILL BE (ARG)+1"
^DD("FUNC",33,10)="W"
^DD("FUNC",34,0)="INDENT"
^DD("FUNC",34,1)="S:'$D(DIWF) DIWF="""" S %Y=1,%=$F(DIWF,""I"") X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""I""_(X\1),X="""""
^DD("FUNC",34,9)="INDENT FOLLOWING TEXT (ARG) SPACES"
^DD("FUNC",34,10)="W"
^DD("FUNC",35,0)="SITENUMBER"
^DD("FUNC",35,1)="S X=^DD(""SITE"",1)"
^DD("FUNC",35,3)="0"
^DD("FUNC",35,9)="NUMBER IDENTIFYING YOUR SITE (FROM INITIALIZATION)"
^DD("FUNC",36,0)="WIDTH"
^DD("FUNC",36,1)="S:'$D(DIWF) DIWF="""" S %Y=1,%=$F(DIWF,""C"") X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""C""_(X\1),X="""""
^DD("FUNC",36,9)="DISPLAY FOLLOWING TEXT (ARG) COLUMNS ACROSS"
^DD("FUNC",36,10)="W"
^DD("FUNC",37,0)="PAGESTART"
^DD("FUNC",37,1)="S:'$D(DIWF) DIWF="""" S %Y=1,%=$F(DIWF,""T"") X:% ""F %Y=%:1 Q:$E(DIWF,%Y)'?1N"" S DIWF=$E(DIWF,1,%-2)_$E(DIWF,%Y,999)_""T""_(X\1),X="""""
^DD("FUNC",37,9)="START NEW OUTPUT TEXT ON LINE (ARG) OF PAGE"
^DD("FUNC",37,10)="W"
^DD("FUNC",38,0)="NOWRAP"
^DD("FUNC",38,1)="S:'$D(DIWF) DIWF="""" S:DIWF'[""N"" DIWF=DIWF_""N"" S X="""""
^DD("FUNC",38,3)="0"
^DD("FUNC",38,9)="DISPLAY LINE-FOR-LINE AS INPUT"
^DD("FUNC",38,10)="W"
^DD("FUNC",39,0)="WRAP"
^DD("FUNC",39,1)="S DIWF=$P(DIWF,""N"",1)_$P(DIWF,""N"",2),X="""""
^DD("FUNC",39,3)="0"
^DD("FUNC",39,9)="RETURN TO 'WRAP-AROUND' OUTPUT"
^DD("FUNC",39,10)="W"
^DD("FUNC",40,0)="MINUTES"
^DD("FUNC",40,1)="S Y=$E(X1_""000"",9,10)-$E(X_""000"",9,10)*60+$E(X1_""00000"",11,12)-$E(X_""00000"",11,12),X2=X,X=$P(X,""."",1)'=$P(X1,""."",1) D ^%DTC:X S X=X*1440+Y"
^DD("FUNC",40,3)="2"
^DD("FUNC",40,9)="DIFFERENCE BETWEEN 2 DATE/TIMES IN MINUTES"
^DD("FUNC",41,0)="MODULO"
^DD("FUNC",41,1)="S X=X1#X"
^DD("FUNC",41,3)="2"
^DD("FUNC",41,9)="FIRST ARGUMENT MOD SECOND ARGUMENT (MUMPS '#' OPERATOR)"
^DD("FUNC",42,0)="SET"
^DD("FUNC",42,1)="S:X]""""&(X'[U)&(X'[""$C(94)"") @X=X1,X=X1"
^DD("FUNC",42,3)="2"
^DD("FUNC",42,9)="TAKES THE VALUE OF 1ST ARGUMENT, BUT ALSO PUTS IT INTO THE VARIABLE NAMED BY THE 2ND ARGUMENT"
^DD("FUNC",43,0)="BETWEEN"
^DD("FUNC",43,1)="S:X<X1 %=X1,X1=X,X=% S X=X2'>X&(X2'<X1)"
^DD("FUNC",43,3)="3"
^DD("FUNC",43,9)="EQUALS '1' IF 1ST ARGUMENT LIES BETWEEN 2ND AND 3RD, '0' OTHERWISE"
^DD("FUNC",44,0)="TOP"
^DD("FUNC",44,1)="S DIFF=1 X:$D(^UTILITY($J,1)) ^(1) S X="""""
^DD("FUNC",44,3)="0"
^DD("FUNC",44,9)="TOP-OF-FORM"
^DD("FUNC",44,10)="W"
^DD("FUNC",45,0)="NOBLANKLINE"
^DD("FUNC",45,1)="S X="""",DIWF=$S($D(DIWF):DIWF_"" "",1:"" "")"
^DD("FUNC",45,3)="0"
^DD("FUNC",45,9)="SUPPRESSES PRINTING OF A SINGLE ALL-BLANK LINE"
^DD("FUNC",45,10)="W"
^DD("FUNC",46,0)="RANGEDATE"
^DD("FUNC",46,1)="S %Y=X3,Y=X2,X2=X S:X>X1 X2=X1,X1=X S:Y>%Y %Y=Y,Y=X3 S:Y>X2 X2=Y S:%Y<X1 X1=%Y D ^%DTC S X=$S(%Y=0:0,X<0:0,1:X+1) K %Y,X3"
^DD("FUNC",46,3)="4"
^DD("FUNC",46,9)="TAKES 2 DATE RANGES, RETURNS THE NUMBER OF DAYS BY WHICH THEY OVERLAP, OR 0 IF OVERLAP IS INDEFINITE"
^DD("FUNC",47,0)="SETPARAM"
^DD("FUNC",47,1)="S:X]""""&(X?.ANP)&(X1'[U)&(X1'[""$C(94)"") DIPA($E(X,1,30))=X1 S X="""""
^DD("FUNC",47,3)="2"
^DD("FUNC",47,9)="RETURNS NOTHING, BUT SETS PARAMETER NAMED BY 2ND ARGUMENT TO 1ST ARGUMENT"
^DD("FUNC",48,0)="PARAM"
^DD("FUNC",48,1)="S X=$S(X=""""!(X'?.ANP):"""",$D(DIPA($E(X,1,30))):DIPA($E(X,1,30)),1:"""")"
^DD("FUNC",48,9)="RETURNS VALUE OF PARAMETER NAMED BY ARGUMENT"
^DD("FUNC",49,0)="IOM"
^DD("FUNC",49,1)="S X=$G(IOM,80)"
^DD("FUNC",49,3)="0"
^DD("FUNC",49,9)="RETURNS THE NUMBER OF COLUMN POSITIONS ON THE PAGE OR SCREEN (E.G., 80)"
^DD("FUNC",50,0)="DUP"
^DD("FUNC",50,1)="S %=X,X="""" S:X1]"""" $P(X,X1,%\$L(X1)+1)=X1,X=$E(X,1,%)"
^DD("FUNC",50,3)="2"
^DD("FUNC",50,9)="DUPLICATES THE 1ST ARGUMENT INTO AN 'N'-BYTE STRING, WHERE 'N' IS 2ND ARGUMENT"
^DD("FUNC",51,0)="STRIPBLANKS"
^DD("FUNC",51,1)="X:X["" "" ""F %=0:0 Q:$A(X)-32  S X=$E(X,2,999)"",""F %=0:0 S %=$L(X) Q:$A(X,%)-32  S X=$E(X,1,%-1)"""
^DD("FUNC",51,9)="DELETES LEADING AND TRAILING SPACES FROM THE ARGUMENT STRING"
^DD("FUNC",52,0)="TRANSLATE"
^DD("FUNC",52,1)="S X=$TR(X2,X1,X)"
^DD("FUNC",52,3)="3"
^DD("FUNC",52,9)="REPLACES, IN ARG1, EACH OCCURRENCE OF EACH CHAR IN ARG2 WITH THE CORRESPONDING CHAR IN ARG3"
^DD("FUNC",53,0)="PADRIGHT"
^DD("FUNC",53,1)="S:$L(X1)<X X1=X1_$J("""",X-$L(X1)) S X=X1"
^DD("FUNC",53,3)="2"
^DD("FUNC",53,9)="RETURNS 'ARG1', WITH SPACES ADDED TO GENERATE A STRING 'ARG2' BYTES LONG"
^DD("FUNC",54,0)="FILE"
^DD("FUNC",54,1)="S X=$S('X:X,X'[""("":X,'$D(@(U_$E($P(X,+X,2,99),2,99)_""0)"")):X,1:$P(^(0),U))"
^DD("FUNC",54,3)="1"
^DD("FUNC",54,9)="Names file for variable pointer type fields."
^DD("FUNC",55,0)="USER"
^DD("FUNC",55,1)="S %=$S($D(^VA(200,+DUZ,0)):^(0),1:""""),X=$S('DUZ:""??"",X=""#"":DUZ,X=""N"":$P(%,U,1),X=""I"":$P(%,U,2),X=""T"":$S($D(^DIC(3.1,+$P(%,U,9),0)):$P(^(0),U,1),1:""""),X=""NN"":$S($D(^VA(200,+DUZ,.1)):$P(^(.1),U,4),1:""""),1:""??"") K %"
^DD("FUNC",55,3)="1"
^DD("FUNC",55,9)="RETURNS USER ATTRIBUTES: #=NUMBER,N=NAME,I=INITIAL,T=TITLE,NN=NICKNAME"
^DD("FUNC",56,0)="VAR"
^DD("FUNC",56,1)="Q:X  Q:$NA(@X)[U  S X=$G(@X)"
^DD("FUNC",56,3)="1"
^DD("FUNC",56,9)="RETURNS VALUE OF A LOCAL VARIABLE IF IT'S THERE"
^DD("FUNC",57,0)="SETDATA"
^DD("FUNC",57,1)="S X1=X"
^DD("FUNC",57,3)="2"
^DD("FUNC",57,9)="SETS FIRST ARGUMENT EQUAL TO THE SECOND ARGUMENT"
^DD("FUNC",58,0)="NOON"
^DD("FUNC",58,1)="N %DT,Y S %DT=""XR"",X=""T@NOON"" D ^%DT S X=+Y"
^DD("FUNC",58,2)="D"
^DD("FUNC",58,3)="0"
^DD("FUNC",58,9)="RETURNS THE CURRENT DATE AND THE TIME VALUE OF 12:OO."
^DD("FUNC",59,0)="MID"
^DD("FUNC",59,1)="N %DT,Y S %DT=""XR"",X=""T@MID"" D ^%DT S X=+Y"
^DD("FUNC",59,2)="D"
^DD("FUNC",59,3)="0"
^DD("FUNC",59,9)="RETURNS THE CURRENT DATE AND THE TIME VALUE OF 24:00."
^DD("FUNC",60,0)="NUMDATE4"
^DD("FUNC",60,1)="S:X X=$E(X,4,5)_""/""_$E(X,6,7)_""/""_(1700+$E(X,1,3))"
^DD("FUNC",60,2)="X"
^DD("FUNC",60,9)="DATE IN 'MM/DD/YYYY' FORMAT"
^DD("FUNC",61,0)="NUMYEAR4"
^DD("FUNC",61,1)="S:X X=1700+$E(X,1,3)"
^DD("FUNC",61,2)="X"
^DD("FUNC",61,9)="YEAR NUMBER (YYYY) FOR A DATE"
^DD("FUNC",90,0)="PRIORVALUE"
^DD("FUNC",90,9)="Takes name of an Audited Field.  Returns as a multiple all prior values of the field, most recent first."
^DD("FUNC",91,0)="PRIORDATE"
^DD("FUNC",91,3)="VARIABLE"
^DD("FUNC",91,9)="When it has an argument (Fieldname), returns as a multiple all prior Date/Times of auditing, most recent first.  Without an argument, it is most recent audited Date/Time for the Entry"
^DD("FUNC",92,0)="PRIORUSER"
^DD("FUNC",92,3)="VARIABLE"
^DD("FUNC",92,9)="When it has an argument (Fieldname), returns as a multiple all prior audited Users, most recent first.  Without an argument, it is most recent audited User for the Entry"
^DD("FUNC",93,0)="MAXIMUM"
^DD("FUNC",93,9)="Takes multiple-valued field or expression as argument.  Returns the maximum value of all the multiples."
^DD("FUNC",94,0)="MINIMUM"
^DD("FUNC",94,9)="Takes multiple-valued field or expression as argument.  Returns the minimum value of all the multiples."
^DD("FUNC",95,0)="NEXT"
^DD("FUNC",95,9)="Takes name of a Field. Returns the value that that field has in the next entry or sub-entry."
^DD("FUNC",96,0)="PREVIOUS"
^DD("FUNC",96,9)="Takes name of a Field. Returns the value that that field has in the previous entry or sub-entry."
^DD("FUNC",97,0)="TOTAL"
^DD("FUNC",97,9)="Takes multiple-valued field or expression as argument.  Returns the total of all the multiple values."
^DD("FUNC",98,0)="COUNT"
^DD("FUNC",98,9)="Takes multiple-valued field or expression as argument.  Returns the number of multiples currently existing."
^DD("FUNC",99,0)="LAST"
^DD("FUNC",99,9)="Takes multiple-valued field or expression as argument.  Returns the value of the last multiple."
^DD("FUNC",100,0)="XUSER"
^DD("FUNC",100,1)="S X=$S($D(^VA(200,+DUZ,0)):$P(^(0),U,1),1:"""")"
^DD("FUNC",100,2)="X"
^DD("FUNC",100,3)="0"
^DD("FUNC",100,9)="RETURNS THE CURRENT USER'S NAME"
^DD("FUNC",101,0)="XUWORKDAY"
^DD("FUNC",101,1)="D ^XUWORKDY"
^DD("FUNC",101,3)="2"
^DD("FUNC",101,9)="Takes 2 date-valued arguments, returns number of days between them, excluding weekends and holidays (uses HOLIDAY file, #40.5)"
^DD("FUNC",102,0)="XUDELTATIME"
^DD("FUNC",102,1)="S X=$S(X&X1:X,1:"""") Q:'X  D H^%DTC S XUS1=%H*86400+%T,X=X1 D H^%DTC S XUS2=%H*86400+%T,X=$S(XUS1>XUS2:XUS1-XUS2,1:XUS2-XUS1)"
^DD("FUNC",102,2)="X"
^DD("FUNC",102,3)="2"
^DD("FUNC",102,9)="RETURN THE NUMBER OF SECONDS BETWEEN TWO FILEMAN DATES"
^DD("FUNC",103,0)="XUPRINTSECONDS"
^DD("FUNC",103,1)="S %=X,X=$S(%\86400:%\86400_"" "",1:""""),%=%#86400,X=X_$E(%\3600_""00"",1,2)_"":""_$E(%#3600\60_""00"",1,2)_"":""_$E(%#60_""00"",1,2)"
^DD("FUNC",103,3)="1"
^DD("FUNC",103,9)="Return formatted number of seconds"
^DD("FUNC",104,0)="XUGBLSIZE"
^DD("FUNC",104,1)="D:X]"""" ENCOUNT^%ZTBKC"
^DD("FUNC",104,3)="1"
^DD("FUNC",104,9)="Return the size of a global root passed in X."
^DD("FUNC",105,0)="XUFILESIZE"
^DD("FUNC",105,1)="S X=$S($D(^DIC(+$O(^DIC(""B"",X,0)),0,""GL"")):^(""GL""),1:"""") D:X]"""" ENCOUNT^%ZTBKC"
^DD("FUNC",105,3)="1"
^DD("FUNC",105,9)="Return the size of a VA Fileman file."
^DD("FUNC",106,0)="XUFAA"
^DD("FUNC",106,1)="D PRFAA^XUAPURGE"
^DD("FUNC",106,2)="X"
^DD("FUNC",106,3)="2"
^DD("FUNC",106,9)="To decode the text of FAA."
^DD("FUNC",107,0)="XUDASH"
^DD("FUNC",107,1)="S %=$L(X),%1=$X,$P(%2,""-"",%)=""-"" W X,!,?%1,%2 K %1,%2 S X="""""
^DD("FUNC",107,3)="1"
^DD("FUNC",107,9)="Write an argument and on the next line write DASHes under it."
^DD("FUNC",108,0)="XUDOTTAB"
^DD("FUNC",108,1)="S %=$X,%1=$S(X>%:X-%,1:0),%="""",$P(%,""."",%1)=""."" W %,X1 K %,%1 S (X,X1)="""""
^DD("FUNC",108,3)="2"
^DD("FUNC",108,9)="Writes dots untill $X equals the 2nd argument."
^DD("FUNC",109,0)="XUBAR"
^DD("FUNC",109,1)="S X3="""",$P(X3,""*"",$S(X2>X1:X1,1:X2)/X1*X)="""",X4=$X+X W ""|"",X3,?X4,""| "",X2 S X="""""
^DD("FUNC",109,3)="3"
^DD("FUNC",109,9)="WRITE A BAR GRAPH. XUBAD(VALUE,MAX VALUE,BAR WIDTH) will use 3 char plus value."
^DD("FUNC",110,0)="XUVT"
^DD("FUNC",110,1)="X ""F I=$Y:1:X W !"" S X="""""
^DD("FUNC",110,3)="1"
^DD("FUNC",110,9)="Vertical tab, Move to line (arg)"
^DD("FUNC",110,10)="W"
^DD("FUNC",111,0)="XUTIME"
^DD("FUNC",111,1)="S X=X_""000000"",Y(1)=$E(X,9,10),Y(3)=$E(X,11,12),Y(4)=$E(X,13,14),Y(2)=$S($E(X,8,12)>.12:Y(1)-12,1:Y(1)),X="""",Y(5)="""" S:X1[""H"" X=$S(X1[24:Y(1),1:Y(2))_"":"" S:X1[""M"" X=X_Y(3) S:X1[""S"" X=X_Y(4)"
^DD("FUNC",111,3)="2"
^DD("FUNC",111,9)="Allow the print of time in many ways XUTIME(""HMS24"",date)"
^DD("FUNC",112,0)="XUFIELDNAME"
^DD("FUNC",112,1)="Q:'$L(X1)!'$L(X)  S X=$P(^DD(X1,X,0),""^"",1)"
^DD("FUNC",112,2)="X"
^DD("FUNC",112,3)="2"
^DD("FUNC",112,9)="Given a file and field number return the field name."
^DD("FUNC",113,0)="XUFMTOEX"
^DD("FUNC",113,1)="S X=$$FMTE^XLFDT(X1,X)"
^DD("FUNC",113,2)="X"
^DD("FUNC",113,3)="2"
^DD("FUNC",113,9)="This Function calls the Extrinsic FMTE^XLFDT to convert a VA FM date to external form."
^DD("FUNC",114,0)="XMVCODE"
^DD("FUNC",114,1)="S XMVT=X5,XMVL=X4,XMVD=X3,XMVSP=X2,XMVTRIM=X1,XMVIGN=X D ^XMVCODE S X=XMVCD"
^DD("FUNC",114,2)="X"
^DD("FUNC",114,3)="6"
^DD("FUNC",114,9)="Create extract code"
^DD("FUNC",115,0)="XMV-ALL-HERE"
^DD("FUNC",115,1)="S X=(X5]""""&(X4]"""")&(X3]"""")&(X2]"""")&(X1]"""")&(X]""""))"
^DD("FUNC",115,2)="X"
^DD("FUNC",115,3)="6"
^DD("FUNC",115,9)="""1"" if the arguments are all non-null; ""0"" otherwise."
^DD("FUNC",116,0)="XTLN"
^DD("FUNC",116,1)="S %X=X D LN^XTFN S X=%LN"
^DD("FUNC",116,3)="1"
^DD("FUNC",116,9)="XTLN(X) = Log e (X)"
^DD("FUNC",117,0)="XTEXP"
^DD("FUNC",117,1)="S %X=X D EXP^XTFN S X=%E"
^DD("FUNC",117,3)="1"
^DD("FUNC",117,9)="XTEXP(X) = e to the power X"
^DD("FUNC",118,0)="XTPWR"
^DD("FUNC",118,1)="S %Y=X,%X=X1 D PWR^XTFN S X=%P"
^DD("FUNC",118,3)="2"
^DD("FUNC",118,9)="XTPWR(X,Y) = X to the Y power"
^DD("FUNC",119,0)="XTLOG"
^DD("FUNC",119,1)="S %X=X D LOG^XTFN S X=%L"
^DD("FUNC",119,3)="1"
^DD("FUNC",119,9)="XTLOG(X) = Log 10 (X)"
^DD("FUNC",120,0)="XTTAN"
^DD("FUNC",120,1)="S %X=X D TAN^XTFN S X=%Y"
^DD("FUNC",120,3)="1"
^DD("FUNC",120,9)="XTTAN(X) = Tangent of X radians"
^DD("FUNC",121,0)="XTSIN"
^DD("FUNC",121,1)="S %X=X D SIN^XTFN S X=%Y"
^DD("FUNC",121,3)="1"
^DD("FUNC",121,9)="XTSIN(X) = Sin of X radians"
^DD("FUNC",122,0)="XTCOS"
^DD("FUNC",122,1)="S %Y=X D COS^XTFN S X=%Y"
^DD("FUNC",122,3)="1"
^DD("FUNC",122,9)="XTCOS(X) = Cosin of X radians"
^DD("FUNC",123,0)="XTDTR"
^DD("FUNC",123,1)="S %X=X D DTR^XTFN S X=%X"
^DD("FUNC",123,3)="1"
^DD("FUNC",123,9)="Convert X degrees to radians"
^DD("FUNC",124,0)="XTRTD"
^DD("FUNC",124,1)="S %X=X D RTD^XTFN S X=%X"
^DD("FUNC",124,3)="1"
^DD("FUNC",124,9)="Convert X radians to degrees"
^DD("FUNC",125,0)="XTRTEST"
^DD("FUNC",125,1)="X ^%ZOSF(""TEST"") S X=$T"
^DD("FUNC",125,3)="1"
^DD("FUNC",125,9)="Tests if the routine passed as an argument is present in the current account."
^DD("FUNC",126,0)="XTBASE8"
^DD("FUNC",126,1)="S X1=8 D CNV^XTBASE S X=Y"
^DD("FUNC",126,3)="1"
^DD("FUNC",126,9)="Converts a decimal number to octal."
^DD("FUNC",127,0)="XTEST"
^DD("FUNC",127,1)="S SUM=X,X1=D0 S:$D(^UTILITY($J,9999,X1))=0 ^UTILITY($J,9999,X1)=0 S ^UTILITY($J,9999,X1)=^UTILITY($J,9999,X1)+SUM S X=^UTILITY($J,9999,X1)"
^DD("FUNC",127,2)="X"
^DD("FUNC",127,3)="1"
^DD("FUNC",127,9)="CALCULATES SUM WHEN USED IN SORT FUNCTION; CUMULATIVE TOTAL IN PRINT ROUTINE"
^DD("FUNC",128,0)="ENGSPACE"
^DD("FUNC",128,1)="S X1=$E(X,1) I $A(X1)<65 S X=""A""_X I $A(X1)>65 S X=X"
^DD("FUNC",128,9)="Triggering room # field"
^DD("FUNC",129,0)="GMTS COMPONENT NAME"
^DD("FUNC",129,1)="S X=$S($L($P(DIP(1),U,9)):$P(DIP(1),U,9),1:$P(DIP(1),U))"
^DD("FUNC",129,2)="X"
^DD("FUNC",129,3)="1"
^DD("FUNC",129,9)="Writes HEADER NAME or DEFAULT HEADER NAME or COMPONENT NAME"
^DD("FUNC",130,0)="DGWARDWHEN"
^DD("FUNC",130,1)="S DGT=$$DGT^DGPMSTAT(X),DFN=D0 D ^DGPMSTAT S X=$S($D(^DIC(42,+DG1,0)):$P(^(0),U,1),1:"""")"
^DD("FUNC",130,2)="X"
^DD("FUNC",130,3)="1"
^DD("FUNC",130,9)="Returns the ward location for the specified date/time. If no time is given, location will be as of 12:01am.  Any VA Fileman-acceptable format may be used and must be in quotes, eg: DGWARDWHEN(""4/1/85@11"")."
^DD("FUNC",131,0)="DGFYD"
^DD("FUNC",131,1)="S X1=X,X2=$E(X1,1,3)_""1001"" S:+$E(X1,4,5)<10 X2=X2-10000 D D^%DTC S X=X+1"
^DD("FUNC",131,2)="X"
^DD("FUNC",131,3)="1"
^DD("FUNC",131,9)="FISCAL DAY"
^DD("FUNC",132,0)="DGNUMINMNTH"
^DD("FUNC",132,1)="S DG1=X,X=0 X ""F I=1:1:31 S:$E(DG1,I) X=X+1"""
^DD("FUNC",132,3)="1"
^DD("FUNC",132,9)="For Inpatient days totals the number in a month"
^DD("FUNC",133,0)="DGDAYSINMONTH"
^DD("FUNC",133,1)="S X1=X,X=+$E(X,4,5),X=$S(""^1^3^5^7^8^10^12^""[(U_X_U):31,X'=2:30,$E(X1,1,3)#4:28,1:29)"
^DD("FUNC",133,2)="X"
^DD("FUNC",133,3)="1"
^DD("FUNC",133,9)="DAYS IN MONTH"
^DD("FUNC",134,0)="DGAGE"
^DD("FUNC",134,1)="S X=$S($D(^DPT(D0,0)):+$P(^(0),""^"",3),1:0) S:'X!('Y) X=0 S:X X=$E(Y,1,3)-$E(X,1,3)-($E(Y,4,7)<$E(X,4,7))"
^DD("FUNC",134,2)="X"
^DD("FUNC",134,9)="FOR A PATIENT, TAKES THE ARGUMENT (DATE) AND RETURNS THE AGE OF THE PATIENT ON THAT DATE, I.E., 'DGAGE(DATE OF DEATH)' WOULD RETURN THE PATIENTS AGE ON HIS DATE OF DEATH."
^DD("FUNC",135,0)="DGPM WARD AT DISCHARGE"
^DD("FUNC",135,1)="S X1=X,X="""" I $D(^DGPM(+X1,0)) S X2=+$P(^(0),U,3) X ""F %=0:0 S %=$O(^DGPM(""""APMV"""",X2,X1,%)) Q:'%  I $D(^DGPM(+$O(^(%,0)),0)),$D(^DIC(42,+$P(^(0),U,6),0)) S X=$P(^(0),U) Q"" K X1,X2"
^DD("FUNC",135,3)="1"
^DD("FUNC",135,9)="Determines ward of patient at discharge for admission(X)."
^DD("FUNC",136,0)="DGMT LAST MEANS TEST"
^DD("FUNC",136,1)="S X1=$$LST^DGMTU(D0,DT),Y=$P(X1,U,2) D DD^%DT S X=Y"
^DD("FUNC",137,0)="SDNUMBEROFDAY"
^DD("FUNC",137,1)="D H^%DTC S X=%Y"
^DD("FUNC",138,0)="SD PROCEDURE REIMBURSEMENT"
^DD("FUNC",138,1)="S X="""""
^DD("FUNC",138,2)="X"
^DD("FUNC",138,3)="0"
^DD("FUNC",138,9)="Function is no longer supported."
^DD("FUNC",139,0)="SD PROCEDURE RAM GROUP"
^DD("FUNC",139,1)="S X="""""
^DD("FUNC",139,2)="X"
^DD("FUNC",139,3)="0"
^DD("FUNC",139,9)="Function is no longer supported."
^DD("FUNC",140,0)="SD PROCEDURE STATUS"
^DD("FUNC",140,1)="D STATUS^SDAMBAE4"
^DD("FUNC",140,2)="X"
^DD("FUNC",140,3)="2"
^DD("FUNC",140,9)="Returns status value for procedure (X) on date (X1)."
^DD("FUNC",141,0)="SD PROCEDURE COST"
^DD("FUNC",141,1)="S X="""""
^DD("FUNC",141,2)="X"
^DD("FUNC",141,3)="0"
^DD("FUNC",141,9)="Function is no longer supported."
^DD("FUNC",142,0)="IB CPT BILLING CHARGE"
^DD("FUNC",142,1)="S IBCDX=X,IBDTX=X1 D FCC^IBEFUNC1 S X=IBCHGX K IBCDX,IBDTX,IBCHGX"
^DD("FUNC",142,3)="2"
^DD("FUNC",142,9)="Returns the charge for procedure (X) on date (X1)."
^DD("FUNC",143,0)="IB CPT BILLING STATUS"
^DD("FUNC",143,1)="S IBCDX=X,IBDTX=X1 D FCBS^IBEFUNC1 S X=$P(IBSTX,""^"",2) K IBCDX,IBDTX,IBSTX"
^DD("FUNC",143,3)="2"
^DD("FUNC",143,9)="Returns the billing status for procedure (X) on date (X1)."
^DD("FUNC",144,0)="IBNEXTAPPT"
^DD("FUNC",144,1)="S X=$$DAT1^IBOUTL($O(^DPT(D0,""S"",DT)))"
^DD("FUNC",144,2)="X"
^DD("FUNC",144,3)="1"
^DD("FUNC",144,9)="Determines next appointment date from today.  Use only on files where D0 = dfn"
^DD("FUNC",145,0)="PRCA BALANCE"
^DD("FUNC",145,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:0) S:X X=$G(^PRCA(430,X,7)),X=$J($P(X,""^"")+$P(X,""^"",2)+$P(X,""^"",3)+$P(X,""^"",4)+$P(X,""^"",5),0,2)"
^DD("FUNC",145,2)="X"
^DD("FUNC",145,3)="0"
^DD("FUNC",145,9)="Current balance of bill"
^DD("FUNC",146,0)="PRCA AR PHONE"
^DD("FUNC",146,1)="S X=$P($$SADD^RCFN01(4),U,7)"
^DD("FUNC",146,2)="X"
^DD("FUNC",146,3)="0"
^DD("FUNC",146,9)="Returns the phone number of the accounts receivable section"
^DD("FUNC",147,0)="PRCA AR HOURS"
^DD("FUNC",147,1)="S X=$P($$SADD^RCFN01(4),U,8)"
^DD("FUNC",147,2)="X"
^DD("FUNC",147,3)="0"
^DD("FUNC",147,9)="Returns the hours of operation for the accounts receivable section"
^DD("FUNC",148,0)="PRCA ADMIN"
^DD("FUNC",148,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$P($G(^PRCA(430,+X,0)),""^"",10) S:X X=$J(+$$ADM^RCMSFN01(X),0,2)"
^DD("FUNC",148,2)="X"
^DD("FUNC",148,3)="0"
^DD("FUNC",148,9)="Returns the admin charge for a bill"
^DD("FUNC",149,0)="PRCA INTEREST"
^DD("FUNC",149,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$P($G(^PRCA(430,+X,0)),""^"",10) S:X X=+$$INT^RCMSFN01(X)*100"
^DD("FUNC",149,2)="X"
^DD("FUNC",149,3)="0"
^DD("FUNC",149,9)="Returns the rate of interest for a bill"
^DD("FUNC",150,0)="PRCA PENALTY"
^DD("FUNC",150,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$P($G(^PRCA(430,+X,0)),""^"",10) S:X X=+$$PEN^RCMSFN01(X)*100"
^DD("FUNC",150,2)="X"
^DD("FUNC",150,3)="0"
^DD("FUNC",150,9)="Returns the rate of penalty for a bill."
^DD("FUNC",151,0)="PRCA RESULTING"
^DD("FUNC",151,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$P($G(^PRCA(430,X,0)),""^"",5) S:X X=$P($G(^PRCA(430.6,X,0)),""^"",2)"
^DD("FUNC",151,2)="X"
^DD("FUNC",151,3)="0"
^DD("FUNC",151,9)="Bill resulting from reason"
^DD("FUNC",152,0)="PRCA IRS TOTAL"
^DD("FUNC",152,1)="S X=$S($G(RCIRSTOT):$J(RCIRSTOT,0,2),1:""       "")"
^DD("FUNC",152,2)="X"
^DD("FUNC",152,3)="0"
^DD("FUNC",152,9)="Used to fill in the total amount due to IRS in the IRS Offset letter.  When testing letter thru menu option, blanks are inserted in place of the total value."
^DD("FUNC",152,10)="W"
^DD("FUNC",153,0)="PRCA LAST ACTIVITY"
^DD("FUNC",153,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$$ACT^PRCADEL(X) S:X<0 X="""""
^DD("FUNC",153,2)="D"
^DD("FUNC",153,3)="0"
^DD("FUNC",153,9)="Return last date of activity for a bill"
^DD("FUNC",154,0)="PSODX"
^DD("FUNC",154,1)="S PSODX=X S:PSODX="""" X1="""" W:$X ""   "" W:($X+$L(PSODX)+$L(X1))>IOM ! W X1 K PSODX"
^DD("FUNC",154,2)="O"
^DD("FUNC",154,3)="2"
^DD("FUNC",154,9)="Call this function by using PSODX(field label,field name). e.g. PSODX(""DRUG: "",DRUG).  Prints a carriage return if the label and field are too long to print on the current line."
^DD("FUNC",155,0)="RT RECORDS CHARGED"
^DD("FUNC",155,1)="D COUNT^RTDPA3"
^DD("FUNC",155,2)="X"
^DD("FUNC",155,3)="1"
^DD("FUNC",155,9)="Use to count the number of records charged to Borrower"
^DD("FUNC",156,0)="PSGW BO LOCATION"
^DD("FUNC",156,1)="S X=$P(^PSI(58.3,D0,0),""^"",1),DIC(0)=""N"",DIC=""^PSI(58.1,D1,1,"" D ^DIC Q:Y<0  S X=$S($D(^PSI(58.1,D1,1,+Y,0)):$P(^(0),""^"",8),1:"""")"
^DD("FUNC",156,3)="0"
^DD("FUNC",156,9)="Lookup and then print the AOU item location for a backordered item"
^DD("FUNC",157,0)="VAQ DASH SSN"
^DD("FUNC",157,1)="Q:'$D(X)  Q:(X'?9N)!(X'?9N1""P"")  S X=$E(X,1,3)_""-""_$E(X,4,5)_""-""_$E(X,6,10)"
^DD("FUNC",157,2)="X"
^DD("FUNC",157,3)="1"
^DD("FUNC",157,9)="Properly formats an SSN with dashes (XXXXXXXXX -> XXX-XX-XXXX)"
^DD("FUNC",158,0)="VAQ FORMAT DATE"
^DD("FUNC",158,1)="Q:'$D(X)  Q:(X="""")  S X=$E(X,4,5)_""-""_$E(X,6,7)_""-""_(+$E(X,1,3)+1700)"
^DD("FUNC",158,2)="X"
^DD("FUNC",158,3)="1"
^DD("FUNC",158,9)="Converts a FileMan date to MM-DD-YYYY"
^DD("FUNC",159,0)="VAQ FORMAT TIME"
^DD("FUNC",159,1)="Q:'$D(X)  Q:($P(X,""."",2)="""")  S X=$P(X,""."",2)_""000000"",X=(+$E(X,1,2))_"":""_$E(X,3,4)_"" ""_$S((+$E(X,1,6))>115959:""PM"",1:""AM"") S:(+$P(X,"":"",1))=0 $P(X,"":"",1)=12"
^DD("FUNC",159,2)="X"
^DD("FUNC",159,3)="1"
^DD("FUNC",159,9)="Converts a FileMan time to HH:mm AM (or PM).  Full FileMan date/time must be passed."
^DD("FUNC",160,0)="VAQ GET LIFE"
^DD("FUNC",160,1)="S X=+$O(^VAT(394.81,0)) S X=+$G(^VAT(394.81,X,""LIFE"")) S:(X=0) X=30 I 1"
^DD("FUNC",160,2)="X"
^DD("FUNC",160,3)="0"
^DD("FUNC",160,9)="Retrieves allowable age for a PDX Transaction (defaults to 30)"
^DD("FUNC",165,0)="QARNAME"
^DD("FUNC",165,1)="D ENNAME^QARUTL"
^DD("FUNC",165,2)="X"
^DD("FUNC",165,3)="1"
^DD("FUNC",165,9)="Convert `LAST,FIRST' name to `First Last' name"
^DD("FUNC",166,0)="YSPARAM"
^DD("FUNC",166,1)="S X=$S(X=""""!(X'?.ANP):"""",$D(YSDIPA($E(X,1,30))):YSDIPA($E(X,1,30)),1:"""")"
^DD("FUNC",166,9)="RETURNS VALUE OF PARAMETER NAMED BY ARGUMENT"
^DD("FUNC",167,0)="YSTIME"
^DD("FUNC",167,1)="I $P(X,""."",2) S X=$E($P(X,""."",2)_""0000"",1,4),%=X>1159 S:X>1259 X=X-1200 S X=X\100_"":""_$E(X#100+100,2,3)_"" ""_$E(""AP"",%+1)_""M"""
^DD("FUNC",168,0)="YSCENTER"
^DD("FUNC",168,1)="S X=$J("""",$S($D(IOM):IOM,1:80)-$L(X)\2-$X)_X"
^DD("FUNC",168,10)="W"
^DD("FUNC",169,0)="RACAT"
^DD("FUNC",169,1)="D ^RAUTL1"
^DD("FUNC",170,0)="IMRVAL"
^DD("FUNC",170,1)="S X=$$VAL^IMRCDCPX(X1,X)"
^DD("FUNC",170,3)="2"
^DD("FUNC",170,9)="IMRVAL(X1,X)=""|N|"" (WHERE N IS VALUE X) IF X IS VALUE OF FIELD X1 IN FILE 158 or =""| |"" IF X IS NOT THE VALUE OF FIELD X1"
^DD("FUNC",171,0)="IMRDAT"
^DD("FUNC",171,1)="S X=$$DAT^IMRCDCPX(X)"
^DD("FUNC",171,3)="1"
^DD("FUNC",171,9)="RETURNS DATE AS 'MM  YY' FOR PRINTING"
^DD("FUNC",172,0)="PRCA LITIGATION FEE"
^DD("FUNC",172,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:"""") S:X X=$P($G(^PRCA(430,+X,0)),""^"",10) S:X X=$J(+$$LIT^RCMSFN01(X),0,2)"
^DD("FUNC",172,2)="X"
^DD("FUNC",172,3)="0"
^DD("FUNC",172,9)="Returns the current annual Litigation Fee"
^DD("FUNC",173,0)="ONCOLASTNAME"
^DD("FUNC",173,1)="S X=$P(X,"","",1)"
^DD("FUNC",173,3)="0"
^DD("FUNC",173,9)="SELECTS LAST NAME"
^DD("FUNC",174,0)="ONCOFIRSTNAME LASTNAME"
^DD("FUNC",174,1)="S X=$$FLNAME^ONCFUNC(X)"
^DD("FUNC",174,3)="0"
^DD("FUNC",174,9)="REORDERS NAME to first name last name"
^DD("FUNC",175,0)="ONCO.SPACE"
^DD("FUNC",175,1)="S X=X_$C(10,10)"
^DD("FUNC",175,3)="1"
^DD("FUNC",175,9)="2 LINES AFTER DATA"
^DD("FUNC",176,0)="ONCODAMSTAT"
^DD("FUNC",176,1)="S X=$S(X=4:1,X=5:2,X=6:1,X=7:2,X=9:9,1:X),X=$S(X=1:""No evidence this cancer"",X=2:""Evidence of this cancer"",X=9:""Unknown this cancer present"",1:""Not stated"")"
^DD("FUNC",176,3)="1"
^DD("FUNC",176,9)="Converts MRS tumor statuses to conform to the DAM."
^DD("FUNC",177,0)="RMPRNUM"
^DD("FUNC",177,1)="S X=$P(X,""-"",3)"
^DD("FUNC",178,0)="RMPRS"
^DD("FUNC",178,1)="S X=$S(X=""M"":""Mr."",X=""F"":""Ms."",1:"""")"
^DD("FUNC",178,9)="letter"
^DD("FUNC",179,0)="RMPRNAME"
^DD("FUNC",179,1)="S X=$P(^RMPR(665,DA,0),""^"",2)_$P(^RMPR(665,DA,0),""^"",1)"
^DD("FUNC",179,9)="PUT LAST NAME LAST FOR PROST LETTERS"
^DD("FUNC",180,0)="QAMDFN"
^DD("FUNC",180,1)="S ^TMP(""QAM"",$J,+$O(^DPT(""B"",X,0)))=X"
^DD("FUNC",180,2)="X"
^DD("FUNC",180,3)="1"
^DD("FUNC",180,9)="Create TMP global of patient IEN's."
^DD("FUNC",181,0)="ABSVAGE"
^DD("FUNC",181,1)="S X=$$AGE^ABSVU2(X)"
^DD("FUNC",181,3)="2"
^DD("FUNC",182,0)="TIU UNKNOWN DATA"
^DD("FUNC",182,1)="S:X="""" X=""UNKNOWN"""
^DD("FUNC",182,2)="X"
^DD("FUNC",182,3)="1"
^DD("FUNC",182,9)="Returns ""UNKNOWN"" when no field is empty"
^DD("FUNC",183,0)="TIU NAME FORMAT"
^DD("FUNC",183,1)="S X=$$NAME^TIULS(X,X1)"
^DD("FUNC",183,2)="X"
^DD("FUNC",183,3)="2"
^DD("FUNC",183,9)="Formats names as TIU NAME FORMAT(""LAST, FIRST MI"",NAME)"
^DD("FUNC",184,0)="TIU VISIT ID"
^DD("FUNC",184,1)="S X=$$IEN2VID^VSIT(X)"
^DD("FUNC",184,2)="X"
^DD("FUNC",184,3)="1"
^DD("FUNC",184,9)="RETURNS VISIT ID BASED ON VISIT FILE POINTER"
^DD("FUNC",185,0)="SCENI LASTFOUR"
^DD("FUNC",185,1)="S X=$S($E(X,$L(X))=""P"":$E(X,$L(X)-4,$L(X)),1:$E(X,$L(X)-3,$L(X)))"
^DD("FUNC",185,3)="1"
^DD("FUNC",185,9)="EXTRACTS LAST FOUR FROM SSN"
^DD("FUNC",188,0)="ANRVPTCOUNTY"
^DD("FUNC",188,1)="S X1=$S($D(^DPT(D0,.11)):^(.11),1:""""),X=$S($D(^DIC(5,+$P(X1,""^"",5),1,+$P(X1,""^"",7),0)):$P(^(0),""^"",1),1:"""")"
^DD("FUNC",188,2)="X"
^DD("FUNC",188,9)="COUNTY NAME"
^DD("FUNC",189,0)="SCRPWDATA"
^DD("FUNC",189,1)="S X=$$DATA^SCRPW21(X)"
^DD("FUNC",189,3)="1"
^DD("FUNC",189,9)="From within the OUTPATIENT ENCOUNTER file (#409.68), returns any of the data elements defined in the ACRP REPORT TEMPLATE PARAMETER file (#409.92)."
^DD("FUNC",190,0)="XM NEXT SEQUENCE NUMBER"
^DD("FUNC",190,1)="S X=$O(^XMB(3.7,DA(2),2,DA(1),1,""C"",""""),-1)+1"
^DD("FUNC",190,3)="0"
^DD("FUNC",190,9)="Gets the next sequence number in the basket for a new message"
^DD("FUNC",191,0)="XLFMTNAME"
^DD("FUNC",191,1)="N XUNAME S XUNAME(""FILE"")=X4,XUNAME(""IENS"")=X2_$E("","",($E(X2,$L(X2))'="","")),XUNAME(""FIELD"")=X3 S X=$$NAMEFMT^XLFNAME(.XUNAME,X1,X)"
^DD("FUNC",191,2)="X"
^DD("FUNC",191,3)="5"
^DD("FUNC",191,9)="Format NEW PERSON file name for printing"
^DD("FUNC",191,10)=""
^DD("FUNC",192,0)="PRCA PRINCIPAL BALANCE"
^DD("FUNC",192,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:0) S:X X=$G(^PRCA(430,X,7)),X=$J($P(X,""^""),0,2)"
^DD("FUNC",192,2)="X"
^DD("FUNC",192,3)="0"
^DD("FUNC",192,9)="Current principal of bill"
^DD("FUNC",193,0)="PRCA INTEREST BALANCE"
^DD("FUNC",193,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:0) S:X X=$G(^PRCA(430,X,7)),X=$J($P(X,""^"",2),0,2)"
^DD("FUNC",193,2)="X"
^DD("FUNC",193,3)="0"
^DD("FUNC",193,9)="Current interest of bill"
^DD("FUNC",194,0)="PRCA ADMIN BALANCE"
^DD("FUNC",194,1)="S X=$S($G(PRCABN):PRCABN,$G(D0):D0,1:0) S:X X=$G(^PRCA(430,X,7)),X=$J($P(X,""^"",3)+$P(X,""^"",4)+$P(X,""^"",5),0,2)"
^DD("FUNC",194,2)="X"
^DD("FUNC",194,3)="0"
^DD("FUNC",194,9)="Current administrative charges of bill"
^DD("FUNC",195,0)="ABSV DOLLAR"
^DD("FUNC",195,1)="S X=$FN(X,"","",2)"
^DD("FUNC",195,9)="Convert value to Currency print"
^DD("FUNC",199,0)="ABSVM NAME FAMILY"
^DD("FUNC",199,1)="N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""FAMILY""))"
^DD("FUNC",199,2)="X"
^DD("FUNC",199,3)="1"
^DD("FUNC",199,9)="Extracts Family Name when given a name in standard format."
^DD("FUNC",200,0)="ABSVM NAME GIVEN"
^DD("FUNC",200,1)="N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""GIVEN""))"
^DD("FUNC",200,2)="X"
^DD("FUNC",200,3)="1"
^DD("FUNC",200,9)="Extracts the given name from a name in standard format."
^DD("FUNC",201,0)="ABSVM NAME MIDDLE"
^DD("FUNC",201,1)="N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""MIDDLE""))"
^DD("FUNC",201,2)="X"
^DD("FUNC",201,3)="1"
^DD("FUNC",201,9)="Extracts the Middle Name from a name in standard format."
^DD("FUNC",202,0)="ABSVM NAME SUFFIX"
^DD("FUNC",202,1)="N NAME S NAME=X D STDNAME^XLFNAME(.NAME,""C"") S X=$G(NAME(""SUFFIX""))"
^DD("FUNC",202,2)="X"
^DD("FUNC",202,3)="1"
^DD("FUNC",202,9)="Extracts the Suffix from a name in standard format."
^DD("FUNC",203,0)="ABSVM VOLREMARKS"
^DD("FUNC",203,1)="S X=$E($$GETREM^ABSVMVV2,1,160)"
^DD("FUNC",203,3)="0"
^DD("FUNC",203,9)="Retrieves word processing field REMARKS from Station Name mult of Voluntary Master file.  Relies on d0, d1 being set."
^DD("FUNC",204,0)="ABSVM SITE"
^DD("FUNC",204,1)="S X="" ""_$P($G(^DIC(4,$$KSP^XUPARAM(""INST""),99)),U)"
^DD("FUNC",204,3)="0"
^DD("FUNC",204,9)="Returns the site's station number with a space and up-arrow appended."
^DD("FUNC",205,0)="ABSVM FIX DATE"
^DD("FUNC",205,1)="S X=$S($E(X,4,5)=""00"":$E(X,1,3)_""0615"",$E(X,6,7)=""00"":$E(X,1,5)_15,1:X)"
^DD("FUNC",205,2)="D"
^DD("FUNC",205,3)="1"
^DD("FUNC",205,9)="Takes date in internal FM format and makes it ""precise""."
^DD("FUNC",206,0)="RORPTSTATUS"
^DD("FUNC",206,1)="S X=$S(X>0:+$P($G(^RORDATA(798,+X,0)),U),1:0),X=$S(X'>0:9,$P($G(^RORDATA(798.4,X,1)),U,4)>0:2,1:1)"
^DD("FUNC",206,3)="1"
^DD("FUNC",206,9)="Returns patient's status (1-Alive, 2-Dead, 9-Unknown)"
^DD("FUNC",207,0)="XUSEC ISO ARTIFICIAL"
^DD("FUNC",207,1)="S X=$S($E($P($G(^VA(200,D0,1)),""^"",9),1,5)[""00000"":1,1:0)"
^DD("FUNC",207,2)="X"
^DD("FUNC",207,3)="0"
^DD("FUNC",207,9)="WILL BRING A 1 BACK IF THIS PERSON HAS 5 LEADING ZEROS IN THEIR SSN OR A 0 IF NOT"
^DD("FUNC",208,0)="XUSEC ISO VISITED"
^DD("FUNC",208,1)="S X=+$$ACTIVE^XUSER(D0)"
^DD("FUNC",208,2)="X"
^DD("FUNC",208,3)="0"
^DD("FUNC",208,9)="Will bring back a 1 if this person is an active user on the system."
^DD("FUNC",209,0)="XUSEC ISO ZZD OUT"
^DD("FUNC",209,1)="S X=$E($P($G(^VA(200,D0,0)),""^"",1),1,2),X=$S(X[""ZZ"":1,X[""zz"":1,X[""XX"":1,X[""xx"":1,1:0)"
^DD("FUNC",209,2)="X"
^DD("FUNC",209,3)="0"
^DD("FUNC",209,9)="BRINGS BACK A 1 IF NAME STARTS WILL ZZ OR zz OR XX OR xx."
^DD("FUNC","B","ABS",8)=""
^DD("FUNC","B","ABSV DOLLAR",195)=""
^DD("FUNC","B","ABSVAGE",181)=""
^DD("FUNC","B","ABSVM FIX DATE",205)=""
^DD("FUNC","B","ABSVM NAME FAMILY",199)=""
^DD("FUNC","B","ABSVM NAME GIVEN",200)=""
^DD("FUNC","B","ABSVM NAME MIDDLE",201)=""
^DD("FUNC","B","ABSVM NAME SUFFIX",202)=""
^DD("FUNC","B","ABSVM SITE",204)=""
^DD("FUNC","B","ABSVM VOLREMARKS",203)=""
^DD("FUNC","B","ANRVPTCOUNTY",188)=""
^DD("FUNC","B","BETWEEN",43)=""
^DD("FUNC","B","BLANK",31)=""
^DD("FUNC","B","BREAKABLE",18)=""
^DD("FUNC","B","CENTER",15)=""
^DD("FUNC","B","CLOSE",7)=""
^DD("FUNC","B","COUNT",98)=""
^DD("FUNC","B","DATE",5)=""
^DD("FUNC","B","DAYOFWEEK",6)=""
^DD("FUNC","B","DGAGE",134)=""
^DD("FUNC","B","DGDAYSINMONTH",133)=""
^DD("FUNC","B","DGFYD",131)=""
^DD("FUNC","B","DGMT LAST MEANS TEST",136)=""
^DD("FUNC","B","DGNUMINMNTH",132)=""
^DD("FUNC","B","DGPM WARD AT DISCHARGE",135)=""
^DD("FUNC","B","DGWARDWHEN",130)=""
^DD("FUNC","B","DOUBLE-SPACE",29)=""
^DD("FUNC","B","DUP",50)=""
^DD("FUNC","B","ENGSPACE",128)=""
^DD("FUNC","B","FILE",54)=""
^DD("FUNC","B","GMTS COMPONENT NAME",129)=""
^DD("FUNC","B","IB CPT BILLING CHARGE",142)=""
^DD("FUNC","B","IB CPT BILLING STATUS",143)=""
^DD("FUNC","B","IBNEXTAPPT",144)=""
^DD("FUNC","B","IMRDAT",171)=""
^DD("FUNC","B","IMRVAL",170)=""
^DD("FUNC","B","INDENT",34)=""
^DD("FUNC","B","INTERNAL",9)=""
^DD("FUNC","B","IOM",49)=""
^DD("FUNC","B","LAST",99)=""
^DD("FUNC","B","LOWERCASE",14)=""
^DD("FUNC","B","MAX",10)=""
^DD("FUNC","B","MAXIMUM",93)=""
^DD("FUNC","B","MID",59)=""
^DD("FUNC","B","MIN",11)=""
^DD("FUNC","B","MINIMUM",94)=""
^DD("FUNC","B","MINUTES",40)=""
^DD("FUNC","B","MODULO",41)=""
^DD("FUNC","B","MONTH",3)=""
^DD("FUNC","B","MONTHNAME",32)=""
^DD("FUNC","B","NEXT",95)=""
^DD("FUNC","B","NOBLANKLINE",45)=""
^DD("FUNC","B","NOON",58)=""
^DD("FUNC","B","NOW",24)=""
^DD("FUNC","B","NOWRAP",38)=""
^DD("FUNC","B","NUMDATE",22)=""
^DD("FUNC","B","NUMDATE4",60)=""
^DD("FUNC","B","NUMDAY",20)=""
^DD("FUNC","B","NUMMONTH",19)=""
^DD("FUNC","B","NUMYEAR",21)=""
^DD("FUNC","B","NUMYEAR4",61)=""
^DD("FUNC","B","ONCO.SPACE",175)=""
^DD("FUNC","B","ONCODAMSTAT",176)=""
^DD("FUNC","B","ONCOFIRSTNAME LASTNAME",174)=""
^DD("FUNC","B","ONCOLASTNAME",173)=""
^DD("FUNC","B","PADRIGHT",53)=""
^DD("FUNC","B","PAGE",26)=""
^DD("FUNC","B","PAGEFEED",17)=""
^DD("FUNC","B","PAGESTART",37)=""
^DD("FUNC","B","PARAM",48)=""
^DD("FUNC","B","PRCA ADMIN",148)=""
^DD("FUNC","B","PRCA ADMIN BALANCE",194)=""
^DD("FUNC","B","PRCA AR HOURS",147)=""
^DD("FUNC","B","PRCA AR PHONE",146)=""
^DD("FUNC","B","PRCA BALANCE",145)=""
^DD("FUNC","B","PRCA INTEREST",149)=""
^DD("FUNC","B","PRCA INTEREST BALANCE",193)=""
^DD("FUNC","B","PRCA IRS TOTAL",152)=""
^DD("FUNC","B","PRCA LAST ACTIVITY",153)=""
^DD("FUNC","B","PRCA LITIGATION FEE",172)=""
^DD("FUNC","B","PRCA PENALTY",150)=""
^DD("FUNC","B","PRCA PRINCIPAL BALANCE",192)=""
^DD("FUNC","B","PRCA RESULTING",151)=""
^DD("FUNC","B","PREVIOUS",96)=""
^DD("FUNC","B","PRIORDATE",91)=""
^DD("FUNC","B","PRIORUSER",92)=""
^DD("FUNC","B","PRIORVALUE",90)=""
^DD("FUNC","B","PSGW BO LOCATION",156)=""
^DD("FUNC","B","PSODX",154)=""
^DD("FUNC","B","QAMDFN",180)=""
^DD("FUNC","B","QARNAME",165)=""
^DD("FUNC","B","RACAT",169)=""
^DD("FUNC","B","RANGEDATE",46)=""
^DD("FUNC","B","REPLACE",23)=""
^DD("FUNC","B","REVERSE",12)=""
^DD("FUNC","B","RIGHT-JUSTIFY",28)=""
^DD("FUNC","B","RMPRNAME",179)=""
^DD("FUNC","B","RMPRNUM",177)=""
^DD("FUNC","B","RMPRS",178)=""
^DD("FUNC","B","RORPTSTATUS",206)=""
^DD("FUNC","B","RT RECORDS CHARGED",155)=""
^DD("FUNC","B","SCENI LASTFOUR",185)=""
^DD("FUNC","B","SCRPWDATA",189)=""
^DD("FUNC","B","SD PROCEDURE COST",141)=""
^DD("FUNC","B","SD PROCEDURE RAM GROUP",139)=""
^DD("FUNC","B","SD PROCEDURE REIMBURSEMENT",138)=""
^DD("FUNC","B","SD PROCEDURE STATUS",140)=""
^DD("FUNC","B","SDNUMBEROFDAY",137)=""
^DD("FUNC","B","SET",42)=""
^DD("FUNC","B","SETDATA",57)=""
^DD("FUNC","B","SETPAGE",33)=""
^DD("FUNC","B","SETPARAM",47)=""
^DD("FUNC","B","SETTAB",27)=""
^DD("FUNC","B","SINGLE-SPACE",30)=""
^DD("FUNC","B","SITENUMBER",35)=""
^DD("FUNC","B","SQUAREROOT",1)=""
^DD("FUNC","B","STRIPBLANKS",51)=""
^DD("FUNC","B","TIME",2)=""
^DD("FUNC","B","TIU NAME FORMAT",183)=""
^DD("FUNC","B","TIU UNKNOWN DATA",182)=""
^DD("FUNC","B","TIU VISIT ID",184)=""
^DD("FUNC","B","TODAY",25)=""
^DD("FUNC","B","TOP",44)=""
^DD("FUNC","B","TOTAL",97)=""
^DD("FUNC","B","TRANSLATE",52)=""
^DD("FUNC","B","UNDERLINE",16)=""
^DD("FUNC","B","UPPERCASE",13)=""
^DD("FUNC","B","USER",55)=""
^DD("FUNC","B","VAQ DASH SSN",157)=""
^DD("FUNC","B","VAQ FORMAT DATE",158)=""
^DD("FUNC","B","VAQ FORMAT TIME",159)=""
^DD("FUNC","B","VAQ GET LIFE",160)=""
^DD("FUNC","B","VAR",56)=""
^DD("FUNC","B","WIDTH",36)=""
^DD("FUNC","B","WRAP",39)=""
^DD("FUNC","B","XLFMTNAME",191)=""
^DD("FUNC","B","XM NEXT SEQUENCE NUMBER",190)=""
^DD("FUNC","B","XMV-ALL-HERE",115)=""
^DD("FUNC","B","XMVCODE",114)=""
^DD("FUNC","B","XTBASE8",126)=""
^DD("FUNC","B","XTCOS",122)=""
^DD("FUNC","B","XTDTR",123)=""
^DD("FUNC","B","XTEST",127)=""
^DD("FUNC","B","XTEXP",117)=""
^DD("FUNC","B","XTLN",116)=""
^DD("FUNC","B","XTLOG",119)=""
^DD("FUNC","B","XTPWR",118)=""
^DD("FUNC","B","XTRTD",124)=""
^DD("FUNC","B","XTRTEST",125)=""
^DD("FUNC","B","XTSIN",121)=""
^DD("FUNC","B","XTTAN",120)=""
^DD("FUNC","B","XUBAR",109)=""
^DD("FUNC","B","XUDASH",107)=""
^DD("FUNC","B","XUDELTATIME",102)=""
^DD("FUNC","B","XUDOTTAB",108)=""
^DD("FUNC","B","XUFAA",106)=""
^DD("FUNC","B","XUFIELDNAME",112)=""
^DD("FUNC","B","XUFILESIZE",105)=""
^DD("FUNC","B","XUFMTOEX",113)=""
^DD("FUNC","B","XUGBLSIZE",104)=""
^DD("FUNC","B","XUPRINTSECONDS",103)=""
^DD("FUNC","B","XUSEC ISO ARTIFICIAL",207)=""
^DD("FUNC","B","XUSEC ISO VISITED",208)=""
^DD("FUNC","B","XUSEC ISO ZZD OUT",209)=""
^DD("FUNC","B","XUSER",100)=""
^DD("FUNC","B","XUTIME",111)=""
^DD("FUNC","B","XUVT",110)=""
^DD("FUNC","B","XUWORKDAY",101)=""
^DD("FUNC","B","YEAR",4)=""
^DD("FUNC","B","YSCENTER",168)=""
^DD("FUNC","B","YSPARAM",166)=""
^DD("FUNC","B","YSTIME",167)=""
^DD("IX",0)="INDEX^.11I^541^736"
^DD("IX",.001,0)="0^ADEL^Delete Keys and Indexes associated with a deleted field.^MU^^F^R^I^0^^^^^A"
^DD("IX",.001,1)="Q"
^DD("IX",.001,2)="D:'$D(DICATTED)&'$D(DIU) DELXRF^DICATT4(DA(1),DA)"
^DD("IX",.1101,0)=".11^BB^The uniqueness index for the primary key of the Index file^R^^R^IR^I^.11^^^^^LS"
^DD("IX",.1101,.1,0)="^^3^3^2980611^"
^DD("IX",.1101,.1,1,0)="The BB index, on the key of the Index file, lets FileMan test potential"
^DD("IX",.1101,.1,2,0)="key values for uniqueness. It is a regular compound index with two fields,"
^DD("IX",.1101,.1,3,0)="the .01 (File) and .02 (Index Name)."
^DD("IX",.1101,1)="S ^DD(""IX"",""BB"",X(1),X(2),DA)="""""
^DD("IX",.1101,2)="K ^DD(""IX"",""BB"",X(1),X(2),DA)"
^DD("IX",.1101,2.5)="K ^DD(""IX"",""BB"")"
^DD("IX",.1101,11.1,0)="^.114^2^2"
^DD("IX",.1101,11.1,1,0)="1^F^.11^.01^^1"
^DD("IX",.1101,11.1,2,0)="2^F^.11^.02^^2"
^DD("IX",.1101,11.1,"AC",1,1)=""
^DD("IX",.1101,11.1,"AC",2,2)=""
^DD("IX",.1101,11.1,"B",1,1)=""
^DD("IX",.1101,11.1,"B",2,2)=""
^DD("IX",.1101,11.1,"BB",1,1)=""
^DD("IX",.1101,11.1,"BB",2,2)=""
^DD("IX",.1102,0)=".11^IX^Allows user to look up Indexes by Name.^R^^F^IR^I^.11^^^^^LS"
^DD("IX",.1102,.1,0)="^^2^2^2990303^"
^DD("IX",.1102,.1,1,0)="This 'Regular' index on the Name field (#.02) allows users to select an"
^DD("IX",.1102,.1,2,0)="index by its name."
^DD("IX",.1102,1)="S ^DD(""IX"",""IX"",$E(X,1,30),DA)="""""
^DD("IX",.1102,2)="K ^DD(""IX"",""IX"",$E(X,1,30),DA)"
^DD("IX",.1102,2.5)="K ^DD(""IX"",""IX"")"
^DD("IX",.1102,11.1,0)="^.114IA^1^1"
^DD("IX",.1102,11.1,1,0)="1^F^.11^.02^30^1^F"
^DD("IX",.1102,11.1,"AC",1,1)=""
^DD("IX",.1102,11.1,"B",1,1)=""
^DD("IX",.1102,11.1,"BB",1,1)=""
^DD("IX",.11401,0)=".114^BB^The uniqueness index of the Cross-Reference Values multiple of the Index file^R^^F^IR^I^.114^^^^^LS"
^DD("IX",.11401,1)="S ^DD(""IX"",DA(1),11.1,""BB"",X,DA)="""""
^DD("IX",.11401,2)="K ^DD(""IX"",DA(1),11.1,""BB"",X,DA)"
^DD("IX",.11401,2.5)="K ^DD(""IX"",DA(1),11.1,""BB"")"
^DD("IX",.11401,11.1,0)="^.114IA^1^1"
^DD("IX",.11401,11.1,1,0)="1^F^.114^.01^^1"
^DD("IX",.11401,11.1,"AC",1,1)=""
^DD("IX",.11401,11.1,"B",1,1)=""
^DD("IX",.11401,11.1,"BB",1,1)=""
^DD("IX",.11402,0)=".114^AC^Lets FileMan find cross reference values by subscript^R^^F^IR^I^.114^^^^^S"
^DD("IX",.11402,1)="S ^DD(""IX"",DA(1),11.1,""AC"",X,DA)="""""
^DD("IX",.11402,2)="K ^DD(""IX"",DA(1),11.1,""AC"",X,DA)"
^DD("IX",.11402,2.5)="K ^DD(""IX"",DA(1),11.1,""AC"")"
^DD("IX",.11402,11.1,0)="^.114IA^1^1"
^DD("IX",.11402,11.1,1,0)="1^F^.114^.5^^1^F"
^DD("IX",.11402,11.1,"AC",1,1)=""
^DD("IX",.11402,11.1,"B",1,1)=""
^DD("IX",.11402,11.1,"BB",1,1)=""
^DD("IX",.11403,0)=".11^F^Lets FileMan find the indexes affected when a field changes^R^^R^IR^W^.114^^^^^LS"
^DD("IX",.11403,.1,0)="^^6^6^2970303^^"
^DD("IX",.11403,.1,1,0)="The F index, is a whole file compound cross-reference on two fields in the"
^DD("IX",.11403,.1,2,0)="Cross-Reference Values multiple: File (#2) and Field (#3). It lets FileMan"
^DD("IX",.11403,.1,3,0)="identify the indexes that might be affected when a field value changes."
^DD("IX",.11403,.1,4,0)="The checking of this index is an essential step during field level"
^DD("IX",.11403,.1,5,0)="transactions in building the list of record level cross-references that"
^DD("IX",.11403,.1,6,0)="must be fired after user-driven changes to the record are finished."
^DD("IX",.11403,1)="S ^DD(""IX"",""F"",X(1),X(2),DA(1),DA)="""""
^DD("IX",.11403,2)="K ^DD(""IX"",""F"",X(1),X(2),DA(1),DA)"
^DD("IX",.11403,2.5)="K ^DD(""IX"",""F"")"
^DD("IX",.11403,11.1,0)="^.114^2^2"
^DD("IX",.11403,11.1,1,0)="1^F^.114^2^^1"
^DD("IX",.11403,11.1,2,0)="2^F^.114^3^^2"
^DD("IX",.11403,11.1,"AC",1,1)=""
^DD("IX",.11403,11.1,"AC",2,2)=""
^DD("IX",.11403,11.1,"B",1,1)=""
^DD("IX",.11403,11.1,"B",2,2)=""
^DD("IX",.11403,11.1,"BB",1,1)=""
^DD("IX",.11403,11.1,"BB",2,2)=""
^DD("IX",.3101,0)=".31^BB^The uniqueness index for the Key file^R^^R^IR^I^.31^^^^^LS"
^DD("IX",.3101,.1,0)="^^3^3^2970314^^^^"
^DD("IX",.3101,.1,1,0)="The BB index, the uniqueness index for the Key file's key, lets FileMan"
^DD("IX",.3101,.1,2,0)="test potential key values for uniqueness. It is a regular compound index"
^DD("IX",.3101,.1,3,0)="with two fields, the .01 (File) and .02 (Key Name)."
^DD("IX",.3101,1)="S ^DD(""KEY"",""BB"",X(1),X(2),DA)="""""
^DD("IX",.3101,2)="K ^DD(""KEY"",""BB"",X(1),X(2),DA)"
^DD("IX",.3101,2.5)="K ^DD(""KEY"",""BB"")"
^DD("IX",.3101,11.1,0)="^.114^2^2"
^DD("IX",.3101,11.1,1,0)="1^F^.31^.01^^1"
^DD("IX",.3101,11.1,2,0)="2^F^.31^.02^^2"
^DD("IX",.3101,11.1,"AC",1,1)=""
^DD("IX",.3101,11.1,"AC",2,2)=""
^DD("IX",.3101,11.1,"B",1,1)=""
^DD("IX",.3101,11.1,"B",2,2)=""
^DD("IX",.3101,11.1,"BB",1,1)=""
^DD("IX",.3101,11.1,"BB",2,2)=""
^DD("IX",.3102,0)=".31^AP^Lets FileMan determine the primary key of a file^R^^R^IR^I^.31^^^^^S"
^DD("IX",.3102,1)="S ^DD(""KEY"",""AP"",X(1),X(2),DA)="""""
^DD("IX",.3102,1.4)="S X=X(2)=""P"""
^DD("IX",.3102,2)="K ^DD(""KEY"",""AP"",X(1),X(2),DA)"
^DD("IX",.3102,2.4)="S X=X(2)=""P"""
^DD("IX",.3102,2.5)="K ^DD(""KEY"",""AP"")"
^DD("IX",.3102,11.1,0)="^.114I^2^2"
^DD("IX",.3102,11.1,1,0)="1^F^.31^.01^^1"
^DD("IX",.3102,11.1,2,0)="2^F^.31^1^^2"
^DD("IX",.3102,11.1,"AC",1,1)=""
^DD("IX",.3102,11.1,"AC",2,2)=""
^DD("IX",.3102,11.1,"B",1,1)=""
^DD("IX",.3102,11.1,"B",2,2)=""
^DD("IX",.3102,11.1,"BB",1,1)=""
^DD("IX",.3102,11.1,"BB",2,2)=""
^DD("IX",.3103,0)=".31^AU^Lets FileMan determine whether an index is a uniqueness index for a key^R^^F^IR^I^.31^^^^^S"
^DD("IX",.3103,1)="S ^DD(""KEY"",""AU"",X,DA)="""""
^DD("IX",.3103,2)="K ^DD(""KEY"",""AU"",X,DA)"
^DD("IX",.3103,2.5)="K ^DD(""KEY"",""AU"")"
^DD("IX",.3103,11.1,0)="^.114IA^1^1"
^DD("IX",.3103,11.1,1,0)="1^F^.31^3^^1^F"
^DD("IX",.3103,11.1,"AC",1,1)=""
^DD("IX",.3103,11.1,"B",1,1)=""
^DD("IX",.3103,11.1,"BB",1,1)=""
^DD("IX",.31201,0)=".312^BB^The uniqueness index for Field multiple of the Key file.^R^^R^IR^I^.312^^^^^LS"
^DD("IX",.31201,.1,0)="^^3^3^2970203^^"
^DD("IX",.31201,.1,1,0)="The BB index, on the key of the Field multiple of the Key file, lets"
^DD("IX",.31201,.1,2,0)="FileMan test potential key values for uniqueness. It is a regular compound"
^DD("IX",.31201,.1,3,0)="index with two fields, the .01 (Field) and .02 (File)."
^DD("IX",.31201,1)="S ^DD(""KEY"",DA(1),2,""BB"",X(1),X(2),DA)="""""
^DD("IX",.31201,2)="K ^DD(""KEY"",DA(1),2,""BB"",X(1),X(2),DA)"
^DD("IX",.31201,2.5)="K ^DD(""KEY"",DA(1),2,""BB"")"
^DD("IX",.31201,11.1,0)="^.114^2^2"
^DD("IX",.31201,11.1,1,0)="1^F^.312^.01^^1"
^DD("IX",.31201,11.1,2,0)="2^F^.312^.02^^2"
^DD("IX",.31201,11.1,"AC",1,1)=""
^DD("IX",.31201,11.1,"AC",2,2)=""
^DD("IX",.31201,11.1,"B",1,1)=""
^DD("IX",.31201,11.1,"B",2,2)=""
^DD("IX",.31201,11.1,"BB",1,1)=""
^DD("IX",.31201,11.1,"BB",2,2)=""
^DD("IX",.31202,0)=".31^F^Lets FileMan find the Keys that include each field^R^^R^IR^W^.312^^^^^LS"
^DD("IX",.31202,.1,0)="^^4^4^2980911^"
^DD("IX",.31202,.1,1,0)="The F index, a whole file compound cross-reference on the key of the"
^DD("IX",.31202,.1,2,0)="Fields multiple of the Key file, lets FileMan determine the keys a field"
^DD("IX",.31202,.1,3,0)="is part of. This is essential for identifying the key value uniqueness"
^DD("IX",.31202,.1,4,0)="tests that must be done when a field value changes."
^DD("IX",.31202,1)="S ^DD(""KEY"",""F"",X(1),X(2),DA(1),DA)="""""
^DD("IX",.31202,2)="K ^DD(""KEY"",""F"",X(1),X(2),DA(1),DA)"
^DD("IX",.31202,2.5)="K ^DD(""KEY"",""F"")"
^DD("IX",.31202,11.1,0)="^.114^2^2"
^DD("IX",.31202,11.1,1,0)="1^F^.312^.02^^1"
^DD("IX",.31202,11.1,2,0)="2^F^.312^.01^^2"
^DD("IX",.31202,11.1,"AC",1,1)=""
^DD("IX",.31202,11.1,"AC",2,2)=""
^DD("IX",.31202,11.1,"B",1,1)=""
^DD("IX",.31202,11.1,"B",2,2)=""
^DD("IX",.31202,11.1,"BB",1,1)=""
^DD("IX",.31202,11.1,"BB",2,2)=""
^DD("IX",.31203,0)=".312^S^Lets FileMan step through Key fields in sequence^R^^R^IR^I^.312^^^^^LS"
^DD("IX",.31203,.1,0)="^^4^4^2980911^"
^DD("IX",.31203,.1,1,0)="The S index, a compound index on all fields of the Fields multiple of the"
^DD("IX",.31203,.1,2,0)="Key file, lets FileMan step through the key fields in sequence. This is"
^DD("IX",.31203,.1,3,0)="essential for prompting, returning values, as well as for the generation"
^DD("IX",.31203,.1,4,0)="of each key's uniqueness index."
^DD("IX",.31203,1)="S ^DD(""KEY"",DA(1),2,""S"",X(1),X(2),X(3),DA)="""""
^DD("IX",.31203,2)="K ^DD(""KEY"",DA(1),2,""S"",X(1),X(2),X(3),DA)"
^DD("IX",.31203,2.5)="K ^DD(""KEY"",DA(1),2,""S"")"
^DD("IX",.31203,11.1,0)="^.114^3^3"
^DD("IX",.31203,11.1,1,0)="1^F^.312^1^^1"
^DD("IX",.31203,11.1,2,0)="2^F^.312^.01^^2"
^DD("IX",.31203,11.1,3,0)="3^F^.312^.02^^3"
^DD("IX",.31203,11.1,"AC",1,1)=""
^DD("IX",.31203,11.1,"AC",2,2)=""
^DD("IX",.31203,11.1,"AC",3,3)=""
^DD("IX",.31203,11.1,"B",1,1)=""
^DD("IX",.31203,11.1,"B",2,2)=""
^DD("IX",.31203,11.1,"B",3,3)=""
^DD("IX",.31203,11.1,"BB",1,1)=""
^DD("IX",.31203,11.1,"BB",2,2)=""
^DD("IX",.31203,11.1,"BB",3,3)=""
^DD("IX",1,0)="3.81^B^Uniqueness Index for Key 'A' of Subfile #3.81^R^^F^IR^I^3.81^^^^^LS"
^DD("IX",1,1)="S ^XMB(3.8,DA(1),1,""B"",X,DA)="""""
^DD("IX",1,2)="K ^XMB(3.8,DA(1),1,""B"",X,DA)"
^DD("IX",1,2.5)="K ^XMB(3.8,DA(1),1,""B"")"
^DD("IX",1,11.1,0)="^.114IA^1^1"
^DD("IX",1,11.1,1,0)="1^F^3.81^.01^^1"
^DD("IX",1,11.1,"AC",1,1)=""
^DD("IX",1,11.1,"B",1,1)=""
^DD("IX",1,11.1,"BB",1,1)=""
^DD("IX",2,0)="8925.7^AES^Find records requiring selected user's attention/signature^R^^R^IR^I^8925.7^^^^^S"
^DD("IX",2,.1,0)="^^3^3^2991021^"
^DD("IX",2,.1,1,0)="This multi-field cross-reference by EXPECTED SIGNER, TIU DOCUMENT NUMBER,"
^DD("IX",2,.1,2,0)="IEN will facilitate finding records for which a user has been listed as an"
^DD("IX",2,.1,3,0)="additional signer."
^DD("IX",2,1)="S ^TIU(8925.7,""AES"",X(1),X(2),DA)="""""
^DD("IX",2,1.4)="S X=$S(+$P($G(^TIU(8925.7,DA,0)),U,4):0,1:1)"
^DD("IX",2,2)="K ^TIU(8925.7,""AES"",X(1),X(2),DA)"
^DD("IX",2,2.4)=""
^DD("IX",2,2.5)="K ^TIU(8925.7,""AES"")"
^DD("IX",2,11.1,0)="^.114IA^2^2"
^DD("IX",2,11.1,1,0)="1^F^8925.7^.03^^1^F"
^DD("IX",2,11.1,2,0)="2^F^8925.7^.01^^2^F"
^DD("IX",2,11.1,"AC",1,1)=""
^DD("IX",2,11.1,"AC",2,2)=""
^DD("IX",2,11.1,"B",1,1)=""
^DD("IX",2,11.1,"B",2,2)=""
^DD("IX",2,11.1,"BB",1,1)=""
^DD("IX",2,11.1,"BB",2,2)=""
^DD("IX",3,0)="20^ADEG^Update the DEGREE field in the New Person file, if necessary.^MU^^R^IR^I^20^^^^^A"
^DD("IX",3,.1,0)="^^4^4^3000105^^"
^DD("IX",3,.1,1,0)="If this entry in the Name Components file corresponds to an entry in the"
^DD("IX",3,.1,2,0)="New Person file, this MUMPS cross-reference updates the DEGREE field in"
^DD("IX",3,.1,3,0)="the New Person file when the DEGREE field in the Name Components file is"
^DD("IX",3,.1,4,0)="changed, to ensure that the two fields are in synch."
^DD("IX",3,1)="I '$G(XUNODEGT),X(1)=200,X(2)=.01,X2(4)]"""" N XUNODEGT,DIERR,FDA,MSG S XUNODEGT=1,FDA(200,X(3),10.6)=X(4) D FILE^DIE("""",""FDA"",""MSG"")"
^DD("IX",3,2)="I '$G(XUNODEGT),X(1)=200,X(2)=.01,X2(4)="""" N XUNODEGT,DIERR,FDA,MSG S XUNODEGT=1,FDA(200,X(3),10.6)=""@"" D FILE^DIE("""",""FDA"",""MSG"")"
^DD("IX",3,11.1,0)="^.114IA^4^4"
^DD("IX",3,11.1,1,0)="1^F^20^.01^^^F"
^DD("IX",3,11.1,2,0)="2^F^20^.02^^^F"
^DD("IX",3,11.1,3,0)="3^F^20^.03^^^F"
^DD("IX",3,11.1,4,0)="4^F^20^6^^^F"
^DD("IX",3,11.1,"B",1,1)=""
^DD("IX",3,11.1,"B",2,2)=""
^DD("IX",3,11.1,"B",3,3)=""
^DD("IX",3,11.1,"B",4,4)=""
^DD("IX",3,11.1,"BB",1,1)=""
^DD("IX",3,11.1,"BB",2,2)=""
^DD("IX",3,11.1,"BB",3,3)=""
^DD("IX",3,11.1,"BB",4,4)=""
^DD("IX",4,0)="20^ANAME^Update the Name field in the source file when any of the components are edited.^MU^^R^IR^I^20^^^^^A"
^DD("IX",4,.1,0)="^^8^8^3011220^"
^DD("IX",4,.1,1,0)="This MUMPS cross-reference keeps the data in the Name Components file in"
^DD("IX",4,.1,2,0)="synchronization with the corresponding name field in the source file"
^DD("IX",4,.1,3,0)="(e.g., New Person or Patient file)."
^DD("IX",4,.1,4,0)=" "
^DD("IX",4,.1,5,0)="The XUNOTRIG flag controls whether this cross-reference is executed. The"
^DD("IX",4,.1,6,0)="XUEXISTING USER, XUNEW USER, and XUREACT USER forms all set the XUNOTRIG"
^DD("IX",4,.1,7,0)="flag, because the forms themselves contain the logic necessary to keep the"
^DD("IX",4,.1,8,0)="New Person name and Name Components entry synchronized."
^DD("IX",4,1)="I '$G(XUNOTRIG) N XUNOTRIG,XUCOMP S XUNOTRIG=1,XUCOMP(""FAMILY"")=X(4),XUCOMP(""GIVEN"")=X(5),XUCOMP(""MIDDLE"")=X(6),XUCOMP(""SUFFIX"")=X(7) D UPDNAME^XLFNAME2(X(1),X(2),X(3),.XUCOMP,X(8))"
^DD("IX",4,2)="Q"
^DD("IX",4,11.1,0)="^.114IA^8^8"
^DD("IX",4,11.1,1,0)="1^F^20^.01^^^F"
^DD("IX",4,11.1,2,0)="2^F^20^.03^^^"
^DD("IX",4,11.1,3,0)="3^F^20^.02^^^"
^DD("IX",4,11.1,4,0)="4^F^20^1^^^"
^DD("IX",4,11.1,5,0)="5^F^20^2^^^"
^DD("IX",4,11.1,6,0)="6^F^20^3^^^"
^DD("IX",4,11.1,7,0)="7^F^20^5^^^"
^DD("IX",4,11.1,8,0)="8^F^20^7^^^F"
^DD("IX",4,11.1,"B",1,1)=""
^DD("IX",4,11.1,"B",2,2)=""
^DD("IX",4,11.1,"B",3,3)=""
^DD("IX",4,11.1,"B",4,4)=""
^DD("IX",4,11.1,"B",5,5)=""
^DD("IX",4,11.1,"B",6,6)=""
^DD("IX",4,11.1,"B",7,7)=""
^DD("IX",4,11.1,"B",8,8)=""
^DD("IX",4,11.1,"BB",1,1)=""
^DD("IX",4,11.1,"BB",2,2)=""
^DD("IX",4,11.1,"BB",3,3)=""
^DD("IX",4,11.1,"BB",4,4)=""
^DD("IX",4,11.1,"BB",5,5)=""
^DD("IX",4,11.1,"BB",6,6)=""
^DD("IX",4,11.1,"BB",7,7)=""
^DD("IX",4,11.1,"BB",8,8)=""
^DD("IX",5,0)="20^ASIG^Update the SIGNATURE BLOCK PRINTED NAME in the New Person file, if necessary.^MU^^R^IR^I^20^^^^^A"
^DD("IX",5,.1,0)="^^4^4^3000322^"
^DD("IX",5,.1,1,0)="If this entry in the Name Components file corresponds to an entry in the"
^DD("IX",5,.1,2,0)="New Person file, this MUMPS cross-reference updates the SIGNATURE BLOCK"
^DD("IX",5,.1,3,0)="PRINTED NAME field (#20.2) in the New Person file when the Family Name,"
^DD("IX",5,.1,4,0)="Given Name, Middle Name, and/or Suffix are changed."
^DD("IX",5,1)="I '$G(XUNOSIGT),X(1)=200,X(2)=.01 N COMP,DIERR,MSG,SIG,XUNOSIGT S XUNOSIGT=1,COMP(""FAMILY"")=X(4),COMP(""GIVEN"")=X(5),COMP(""MIDDLE"")=X(6),COMP(""SUFFIX"")=X(7),FDA(200,X(3),20.2)=$$NAMEFMT^XLFNAME(.COMP,""G"") D FILE^DIE("""",""FDA"",""MSG"")"
^DD("IX",5,2)="Q"
^DD("IX",5,11.1,0)="^.114IA^7^7"
^DD("IX",5,11.1,1,0)="1^F^20^.01^^^F"
^DD("IX",5,11.1,2,0)="2^F^20^.02^^^F"
^DD("IX",5,11.1,3,0)="3^F^20^.03^^^F"
^DD("IX",5,11.1,4,0)="4^F^20^1^^^F"
^DD("IX",5,11.1,5,0)="5^F^20^2^^^F"
^DD("IX",5,11.1,6,0)="6^F^20^3^^^F"
^DD("IX",5,11.1,7,0)="7^F^20^5^^^F"
^DD("IX",5,11.1,"B",1,1)=""
^DD("IX",5,11.1,"B",2,2)=""
^DD("IX",5,11.1,"B",3,3)=""
^DD("IX",5,11.1,"B",4,4)=""
^DD("IX",5,11.1,"B",5,5)=""
^DD("IX",5,11.1,"B",6,6)=""
^DD("IX",5,11.1,"B",7,7)=""
^DD("IX",5,11.1,"BB",1,1)=""
^DD("IX",5,11.1,"BB",2,2)=""
^DD("IX",5,11.1,"BB",3,3)=""
^DD("IX",5,11.1,"BB",4,4)=""
^DD("IX",5,11.1,"BB",5,5)=""
^DD("IX",5,11.1,"BB",6,6)=""
^DD("IX",5,11.1,"BB",7,7)=""
^DD("IX",6,0)="20^BB^Uniqueness Index for Key 'A' of File #20^R^^R^IR^I^20^^^^^LS"
^DD("IX",6,1)="S ^VA(20,""BB"",X(1),X(2),X(3),DA)="""""
^DD("IX",6,2)="K ^VA(20,""BB"",X(1),X(2),X(3),DA)"
^DD("IX",6,2.5)="K ^VA(20,""BB"")"
^DD("IX",6,11.1,0)="^.114IA^3^3"
^DD("IX",6,11.1,1,0)="1^F^20^.01^^1"
^DD("IX",6,11.1,2,0)="2^F^20^.02^^2"
^DD("IX",6,11.1,3,0)="3^F^20^.03^^3"
^DD("IX",6,11.1,"AC",1,1)=""
^DD("IX",6,11.1,"AC",2,2)=""
^DD("IX",6,11.1,"AC",3,3)=""
^DD("IX",6,11.1,"B",1,1)=""
^DD("IX",6,11.1,"B",2,2)=""
^DD("IX",6,11.1,"B",3,3)=""
^DD("IX",6,11.1,"BB",1,1)=""
^DD("IX",6,11.1,"BB",2,2)=""
^DD("IX",6,11.1,"BB",3,3)=""
^DD("IX",7,0)="20^C^This index allows looking up entries by FamilyName,GivenName MiddleName Suffix^R^^R^IR^I^20^^^^^LS"
^DD("IX",7,1)="S ^VA(20,""C"",$E(X(5),1,100),DA)="""""
^DD("IX",7,2)="K ^VA(20,""C"",$E(X(5),1,100),DA)"
^DD("IX",7,2.5)="K ^VA(20,""C"")"
^DD("IX",7,11.1,0)="^.114IA^8^5"
^DD("IX",7,11.1,4,0)="1^F^20^1^^^F"
^DD("IX",7,11.1,5,0)="2^F^20^2^^^F"
^DD("IX",7,11.1,6,0)="3^F^20^3^^^F"
^DD("IX",7,11.1,7,0)="4^F^20^5^^^F"
^DD("IX",7,11.1,8,0)="5^C^^^100^1^F^FULL NAME"
^DD("IX",7,11.1,8,1.5)="N XUN S XUN(""FAMILY"")=X(1),XUN(""GIVEN"")=X(2),XUN(""MIDDLE"")=X(3),XUN(""SUFFIX"")=X(4) S X=$$NAMEFMT^XLFNAME(.XUN,""F"",""C"")"
^DD("IX",7,11.1,"AC",1,8)=""
^DD("IX",7,11.1,"B",1,4)=""
^DD("IX",7,11.1,"B",2,5)=""
^DD("IX",7,11.1,"B",3,6)=""
^DD("IX",7,11.1,"B",4,7)=""
^DD("IX",7,11.1,"B",5,8)=""
^DD("IX",7,11.1,"BB",1,4)=""
^DD("IX",7,11.1,"BB",2,5)=""
^DD("IX",7,11.1,"BB",3,6)=""
^DD("IX",7,11.1,"BB",4,7)=""
^DD("IX",7,11.1,"BB",5,8)=""
^DD("IX",8,0)="200^ADEG^Update the DEGREE field in the Name Components file.^MU^^F^IR^I^200^^^^^A"
^DD("IX",8,.1,0)="^^2^2^3000105^^"
^DD("IX",8,.1,1,0)="This cross-reference keeps the DEGREE field in the New Person file in"
^DD("IX",8,.1,2,0)="synch with the DEGREE field in the Name Components file."
^DD("IX",8,1)="I '$G(XUNODEGT),X2(1)]"""" N XUNODEGT,XUPVAL,DIERR,XUFDA,XUMSG S XUPVAL=$P($G(^VA(200,DA,3.1)),U) I XUPVAL S XUNODEGT=1,XUFDA(20,XUPVAL_"","",6)=X D FILE^DIE("""",""XUFDA"",""XUMSG"")"
^DD("IX",8,2)="I '$G(XUNODEGT),X2(1)="""" N XUNODEGT,XUPVAL,DIERR,XUFDA,XUMSG S XUPVAL=$P($G(^VA(200,DA,3.1)),U) I XUPVAL S XUNODEGT=1,XUFDA(20,XUPVAL_"","",6)=""@"" D FILE^DIE("""",""XUFDA"",""XUMSG"")"
^DD("IX",8,11.1,0)="^.114IA^1^1"
^DD("IX",8,11.1,1,0)="1^F^200^10.6^^1^F"
^DD("IX",8,11.1,"AC",1,1)=""
^DD("IX",8,11.1,"B",1,1)=""
^DD("IX",8,11.1,"BB",1,1)=""
^DD("IX",9,0)="200^ANAME^Update the corresponding entry in the Name Components file.^MU^^F^IR^I^200^^^^^A"
^DD("IX",9,.1,0)="^^13^13^2991228^"
^DD("IX",9,.1,1,0)="This MUMPS cross-reference keeps the Name field in the New Person file in"
^DD("IX",9,.1,2,0)="synch with the corresponding entry in the Name Components file (#20)."
^DD("IX",9,.1,3,0)=" "
^DD("IX",9,.1,4,0)="The XUNOTRIG flag controls whether this cross-reference is executed. The"
^DD("IX",9,.1,5,0)="form XUEXISTING USER and the XUNEW USER forms both set the XUNOTRIG flag,"
^DD("IX",9,.1,6,0)="because the forms themselves contain the logic necessary to keep the two"
^DD("IX",9,.1,7,0)="files in synch."
^DD("IX",9,.1,8,0)=" "
^DD("IX",9,.1,9,0)="XUITNAME is set by the XUEXISTING USER and XUNEW USER forms and is checked"
^DD("IX",9,.1,10,0)="by the input transform on the .01 field. If XUITNAME is set, the input"
^DD("IX",9,.1,11,0)="transform returns in the XLFNC array the component parts of the name. This"
^DD("IX",9,.1,12,0)="MUMPS cross-reference can then get the name components from the XLFNC"
^DD("IX",9,.1,13,0)="array to populate the Name Components file."
^DD("IX",9,1)="I '$G(XUNOTRIG),X2(1)]"""" N XUNOTRIG,XUPVAL S XUNOTRIG=1,XUPVAL=$P($G(^VA(200,DA,3.1)),U) K:'$D(XUITNAME) XLFNC S:$D(XLFNC)<2 XLFNC=X2(1) D UPDCOMP^XLFNAME2(200,DA,.01,.XLFNC,10.1,XUPVAL) K XLFNC,XUITNAME"
^DD("IX",9,2)="I '$G(XUNOTRIG),X2(1)="""" N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(200,DA,.01)"
^DD("IX",9,11.1,0)="^.114IA^1^1"
^DD("IX",9,11.1,1,0)="1^F^200^.01^^1^F"
^DD("IX",9,11.1,"AC",1,1)=""
^DD("IX",9,11.1,"B",1,1)=""
^DD("IX",9,11.1,"BB",1,1)=""
^DD("IX",10,0)="661.11^ASHD^Index by Station, HCPCS, Description^R^^R^IR^I^661.11^^^^^S"
^DD("IX",10,1)="S ^RMPR(661.11,""ASHD"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",10,2)="K ^RMPR(661.11,""ASHD"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",10,2.5)="K ^RMPR(661.11,""ASHD"")"
^DD("IX",10,11.1,0)="^.114IA^3^3"
^DD("IX",10,11.1,1,0)="1^F^661.11^3^^1^F"
^DD("IX",10,11.1,1,3)=""
^DD("IX",10,11.1,2,0)="2^F^661.11^.01^30^2^F"
^DD("IX",10,11.1,2,3)=""
^DD("IX",10,11.1,3,0)="3^F^661.11^2^30^3^F"
^DD("IX",10,11.1,3,3)=""
^DD("IX",10,11.1,"AC",1,1)=""
^DD("IX",10,11.1,"AC",2,2)=""
^DD("IX",10,11.1,"AC",3,3)=""
^DD("IX",10,11.1,"B",1,1)=""
^DD("IX",10,11.1,"B",2,2)=""
^DD("IX",10,11.1,"B",3,3)=""
^DD("IX",10,11.1,"BB",1,1)=""
^DD("IX",10,11.1,"BB",2,2)=""
^DD("IX",10,11.1,"BB",3,3)=""
^DD("IX",11,0)="391.72^AA^Compound cross-reference that links the keys of this file.^R^^R^IR^I^391.72^^^^^S"
^DD("IX",11,.1,0)="^^3^3^2991102^"
^DD("IX",11,.1,1,0)="This is a compound, regular cross-reference.  It identifies Event Reason"
^DD("IX",11,.1,2,0)="Code, HL7 Application Parameter and HL7 Event Type as the primary keys on"
^DD("IX",11,.1,3,0)="this file."
^DD("IX",11,1)="S ^VAT(391.72,""AA"",$E(X(1),1,3),$E(X(2),1,7),$E(X(3),1,7),DA)="""""
^DD("IX",11,2)="K ^VAT(391.72,""AA"",$E(X(1),1,3),$E(X(2),1,7),$E(X(3),1,7),DA)"
^DD("IX",11,2.5)="K ^VAT(391.72,""AA"")"
^DD("IX",11,11.1,0)="^.114IA^3^3"
^DD("IX",11,11.1,1,0)="1^F^391.72^.01^3^1^F"
^DD("IX",11,11.1,1,3)=""
^DD("IX",11,11.1,2,0)="2^F^391.72^.02^7^2^F"
^DD("IX",11,11.1,2,3)=""
^DD("IX",11,11.1,3,0)="3^F^391.72^.03^7^3^F"
^DD("IX",11,11.1,3,3)=""
^DD("IX",11,11.1,"AC",1,1)=""
^DD("IX",11,11.1,"AC",2,2)=""
^DD("IX",11,11.1,"AC",3,3)=""
^DD("IX",11,11.1,"B",1,1)=""
^DD("IX",11,11.1,"B",2,2)=""
^DD("IX",11,11.1,"B",3,3)=""
^DD("IX",11,11.1,"BB",1,1)=""
^DD("IX",11,11.1,"BB",2,2)=""
^DD("IX",11,11.1,"BB",3,3)=""
^DD("IX",12,0)="391.91^AEVN^This cross-reference links a patient and an event reason.^R^^R^IR^I^391.91^^^^^S"
^DD("IX",12,.1,0)="^^3^3^2991202^"
^DD("IX",12,.1,1,0)="This cross-reference stores the patient pointer value and the event reason"
^DD("IX",12,.1,2,0)="pointer value under the same index.  This allows us to track specific"
^DD("IX",12,.1,3,0)="event reasons for a given patient."
^DD("IX",12,1)="S ^DGCN(391.91,""AEVN"",X(1),X(2),DA)="""""
^DD("IX",12,2)="K ^DGCN(391.91,""AEVN"",X(1),X(2),DA)"
^DD("IX",12,2.5)="K ^DGCN(391.91,""AEVN"")"
^DD("IX",12,11.1,0)="^.114IA^2^2"
^DD("IX",12,11.1,1,0)="1^F^391.91^.01^^1^F"
^DD("IX",12,11.1,2,0)="2^F^391.91^.07^^2^F"
^DD("IX",12,11.1,"AC",1,1)=""
^DD("IX",12,11.1,"AC",2,2)=""
^DD("IX",12,11.1,"B",1,1)=""
^DD("IX",12,11.1,"B",2,2)=""
^DD("IX",12,11.1,"BB",1,1)=""
^DD("IX",12,11.1,"BB",2,2)=""
^DD("IX",13,0)="661.11^ASHI^STATION & HCPCS ITEM INDEX^R^^R^IR^I^661.11^^^^^S"
^DD("IX",13,.1,0)="^^2^2^3010126^"
^DD("IX",13,.1,1,0)="This is an index of Station, HCPCS and HCPCS Item to be used for Look-up"
^DD("IX",13,.1,2,0)="and sorting."
^DD("IX",13,1)="S ^RMPR(661.11,""ASHI"",X(1),$E(X(2),1,10),$E(X(3),1,30),DA)="""""
^DD("IX",13,2)="K ^RMPR(661.11,""ASHI"",X(1),$E(X(2),1,10),$E(X(3),1,30),DA)"
^DD("IX",13,2.5)="K ^RMPR(661.11,""ASHI"")"
^DD("IX",13,11.1,0)="^.114IA^4^3"
^DD("IX",13,11.1,1,0)="1^F^661.11^3^^1^F"
^DD("IX",13,11.1,1,3)=""
^DD("IX",13,11.1,3,0)="2^F^661.11^.01^10^2^F"
^DD("IX",13,11.1,3,3)=""
^DD("IX",13,11.1,4,0)="3^F^661.11^1^30^3^F"
^DD("IX",13,11.1,4,3)=""
^DD("IX",13,11.1,"AC",1,1)=""
^DD("IX",13,11.1,"AC",2,3)=""
^DD("IX",13,11.1,"AC",3,4)=""
^DD("IX",13,11.1,"B",1,1)=""
^DD("IX",13,11.1,"B",2,3)=""
^DD("IX",13,11.1,"B",3,4)=""
^DD("IX",13,11.1,"BB",1,1)=""
^DD("IX",13,11.1,"BB",2,3)=""
^DD("IX",13,11.1,"BB",3,4)=""
^DD("IX",14,0)="661.11^ASHMDI^Index on Station, HCPCS, Item Master, Description, Item Num.^R^^R^IR^I^661.11^^^^^S"
^DD("IX",14,.1,0)="^^19^19^3010810^"
^DD("IX",14,.1,1,0)="Index used for listing items after a HCPCS has been selected in a PIP"
^DD("IX",14,.1,2,0)="option. The list will be in alpha order by description but grouped by Item"
^DD("IX",14,.1,3,0)="Master. This allows users to keep the Item Master description and just use"
^DD("IX",14,.1,4,0)="relevant text for their inventory item descriptions."
^DD("IX",14,.1,5,0)="For example supose the item master description for HCPCS DL175 is"
^DD("IX",14,.1,6,0)="'WHEELCHAIR GLOVES'"
^DD("IX",14,.1,7,0)="then 3 inventory items could be set up in PIP with descriptions:"
^DD("IX",14,.1,8,0)="'MEDIUM'"
^DD("IX",14,.1,9,0)="'LARGE'"
^DD("IX",14,.1,10,0)="'SMALL'"
^DD("IX",14,.1,11,0)="When the user enters DL175 for HCPCS then they get the following selection"
^DD("IX",14,.1,12,0)="list:"
^DD("IX",14,.1,13,0)="HCPCS: DL175   WHEELCHAIR GLOVES"
^DD("IX",14,.1,14,0)=" "
^DD("IX",14,.1,15,0)="Item master: WHEELCHAIR GLOVES"
^DD("IX",14,.1,16,0)=" "
^DD("IX",14,.1,17,0)=" 1 DL175-2    C LARGE"
^DD("IX",14,.1,18,0)=" 2 DL175-1    C MEDIUM"
^DD("IX",14,.1,19,0)=" 3 DL175-3    C SMALL"
^DD("IX",14,1)="S ^RMPR(661.11,""ASHMDI"",X(1),$E(X(2),1,30),X(3),$E(X(4),1,30),X(5),DA)="""""
^DD("IX",14,2)="K ^RMPR(661.11,""ASHMDI"",X(1),$E(X(2),1,30),X(3),$E(X(4),1,30),X(5),DA)"
^DD("IX",14,2.5)="K ^RMPR(661.11,""ASHMDI"")"
^DD("IX",14,11.1,0)="^.114IA^5^5"
^DD("IX",14,11.1,1,0)="1^F^661.11^3^^1^F"
^DD("IX",14,11.1,1,3)=""
^DD("IX",14,11.1,2,0)="2^F^661.11^.01^30^2^F"
^DD("IX",14,11.1,2,3)=""
^DD("IX",14,11.1,3,0)="3^F^661.11^7^^3^F"
^DD("IX",14,11.1,3,3)=""
^DD("IX",14,11.1,4,0)="4^F^661.11^2^30^4^F"
^DD("IX",14,11.1,4,3)=""
^DD("IX",14,11.1,5,0)="5^F^661.11^1^^5^F"
^DD("IX",14,11.1,5,3)=""
^DD("IX",14,11.1,"AC",1,1)=""
^DD("IX",14,11.1,"AC",2,2)=""
^DD("IX",14,11.1,"AC",3,3)=""
^DD("IX",14,11.1,"AC",4,4)=""
^DD("IX",14,11.1,"AC",5,5)=""
^DD("IX",14,11.1,"B",1,1)=""
^DD("IX",14,11.1,"B",2,2)=""
^DD("IX",14,11.1,"B",3,3)=""
^DD("IX",14,11.1,"B",4,4)=""
^DD("IX",14,11.1,"B",5,5)=""
^DD("IX",14,11.1,"BB",1,1)=""
^DD("IX",14,11.1,"BB",2,2)=""
^DD("IX",14,11.1,"BB",3,3)=""
^DD("IX",14,11.1,"BB",4,4)=""
^DD("IX",14,11.1,"BB",5,5)=""
^DD("IX",15,0)="661.11^XSD^INDEX BY STATION, DESCRIPTION, HCPCS^R^^R^IR^I^661.11^^^^^LS"
^DD("IX",15,1)="S ^RMPR(661.11,""XSD"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",15,2)="K ^RMPR(661.11,""XSD"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",15,2.5)="K ^RMPR(661.11,""XSD"")"
^DD("IX",15,11.1,0)="^.114IA^3^3"
^DD("IX",15,11.1,1,0)="1^F^661.11^3^^1^F"
^DD("IX",15,11.1,1,3)=""
^DD("IX",15,11.1,2,0)="2^F^661.11^2^30^2^F"
^DD("IX",15,11.1,2,3)=""
^DD("IX",15,11.1,3,0)="3^F^661.11^.01^30^3^F"
^DD("IX",15,11.1,3,3)=""
^DD("IX",15,11.1,"AC",1,1)=""
^DD("IX",15,11.1,"AC",2,2)=""
^DD("IX",15,11.1,"AC",3,3)=""
^DD("IX",15,11.1,"B",1,1)=""
^DD("IX",15,11.1,"B",2,2)=""
^DD("IX",15,11.1,"B",3,3)=""
^DD("IX",15,11.1,"BB",1,1)=""
^DD("IX",15,11.1,"BB",2,2)=""
^DD("IX",15,11.1,"BB",3,3)=""
^DD("IX",16,0)="62.49^AC^Used to process outgoing HL7 ORU and ORR messages.^R^^R^IR^I^62.49^^^^^S"
^DD("IX",16,.1,0)="^^5^5^3020319^"
^DD("IX",16,.1,1,0)="This cross reference is used to process outgoing HL7 ORU (Observation"
^DD("IX",16,.1,2,0)="Results Unsolicited) and ORR (Order Response) messages."
^DD("IX",16,.1,3,0)=" "
^DD("IX",16,.1,4,0)="The format is as follows:"
^DD("IX",16,.1,5,0)="  ^LAHM(62.49,""AC"",MESSAGE TYPE,""P"",CONFIGURATION,DA)="""" "
^DD("IX",16,1)="S ^LAHM(62.49,""AC"",$E(X(1),1,3),X(2),X(3),DA)="""""
^DD("IX",16,1.4)="S X=X(2)=""P""&(X(4)=""O"")"
^DD("IX",16,2)="K ^LAHM(62.49,""AC"",$E(X(1),1,3),X(2),X(3),DA)"
^DD("IX",16,2.4)="S X=X(2)=""P""&(X(4)=""O"")"
^DD("IX",16,2.5)="K ^LAHM(62.49,""AC"")"
^DD("IX",16,11.1,0)="^.114IA^4^4"
^DD("IX",16,11.1,1,0)="1^F^62.49^108^3^1^F"
^DD("IX",16,11.1,2,0)="2^F^62.49^2^^2^F"
^DD("IX",16,11.1,3,0)="3^F^62.49^.5^^3^F"
^DD("IX",16,11.1,4,0)="4^F^62.49^1^^^F"
^DD("IX",16,11.1,4,3)=""
^DD("IX",16,11.1,"AC",1,1)=""
^DD("IX",16,11.1,"AC",2,2)=""
^DD("IX",16,11.1,"AC",3,3)=""
^DD("IX",16,11.1,"B",1,1)=""
^DD("IX",16,11.1,"B",2,2)=""
^DD("IX",16,11.1,"B",3,3)=""
^DD("IX",16,11.1,"B",4,4)=""
^DD("IX",16,11.1,"BB",1,1)=""
^DD("IX",16,11.1,"BB",2,2)=""
^DD("IX",16,11.1,"BB",3,3)=""
^DD("IX",16,11.1,"BB",4,4)=""
^DD("IX",17,0)="62.49^Q^Maintains a ""Q""ueue of incoming and outgoing messages.^R^^R^IR^I^62.49^^^^^LS"
^DD("IX",17,.1,0)="^^9^9^3020319^^"
^DD("IX",17,.1,1,0)="The ""Q"" cross reference is used by the Universal Interface, LEDI and"
^DD("IX",17,.1,2,0)="other Laboratory routines that process and store HL7 messages in this"
^DD("IX",17,.1,3,0)="file."
^DD("IX",17,.1,4,0)=" "
^DD("IX",17,.1,5,0)="The format is as follows:"
^DD("IX",17,.1,6,0)="  ^LAHM(62.49,""Q"",CONFIGURATION,TYPE_STATUS,DA)="""""
^DD("IX",17,.1,7,0)=" "
^DD("IX",17,.1,8,0)="This allows each configuration in LA7 MESSAGE PARAMETER file (#62.48)"
^DD("IX",17,.1,9,0)="to have it's own incoming and outgoing message queue. "
^DD("IX",17,1)="S ^LAHM(62.49,""Q"",X(1),X(4),DA)="""""
^DD("IX",17,1.4)="S X=X(2)]""""&(X(3)]"""")"
^DD("IX",17,2)="K ^LAHM(62.49,""Q"",X(1),X(4),DA)"
^DD("IX",17,2.4)="S X=X(2)]""""&(X(3)]"""")"
^DD("IX",17,2.5)="K ^LAHM(62.49,""Q"")"
^DD("IX",17,11.1,0)="^.114IA^4^4"
^DD("IX",17,11.1,1,0)="1^F^62.49^.5^^1^F"
^DD("IX",17,11.1,2,0)="2^F^62.49^1^^^F"
^DD("IX",17,11.1,3,0)="3^F^62.49^2^^^F"
^DD("IX",17,11.1,4,0)="4^C^^^^2"
^DD("IX",17,11.1,4,1.5)="S X=X(2)_X(3)"
^DD("IX",17,11.1,"AC",1,1)=""
^DD("IX",17,11.1,"AC",2,4)=""
^DD("IX",17,11.1,"B",1,1)=""
^DD("IX",17,11.1,"B",2,2)=""
^DD("IX",17,11.1,"B",3,3)=""
^DD("IX",17,11.1,"B",4,4)=""
^DD("IX",17,11.1,"BB",1,1)=""
^DD("IX",17,11.1,"BB",2,2)=""
^DD("IX",17,11.1,"BB",3,3)=""
^DD("IX",17,11.1,"BB",4,4)=""
^DD("IX",18,0)="62.9^CH^Identify configuration to process HL7 ORM message.^R^^R^IR^I^62.9^^^^^LS"
^DD("IX",18,.1,0)="^^5^5^3020313^"
^DD("IX",18,.1,1,0)="This cross reference is used to uniquely identify and link"
^DD("IX",18,.1,2,0)="an incoming message with a LAB SHIPPING CONFIGURATION file"
^DD("IX",18,.1,3,0)="(#62.9) entry. This linking is essential for processing the"
^DD("IX",18,.1,4,0)="incoming order message.  The cross reference is created as"
^DD("IX",18,.1,5,0)="follows: ^LAHM(62.9,""CH"",COLLECTING FACILITY,HOST FACILITY,DA)="""""
^DD("IX",18,1)="S ^LAHM(62.9,""CH"",X(1),X(2),DA)="""""
^DD("IX",18,2)="K ^LAHM(62.9,""CH"",X(1),X(2),DA)"
^DD("IX",18,2.5)="K ^LAHM(62.9,""CH"")"
^DD("IX",18,11.1,0)="^.114IA^2^2"
^DD("IX",18,11.1,1,0)="1^F^62.9^.02^^1^F"
^DD("IX",18,11.1,2,0)="2^F^62.9^.03^^2^F"
^DD("IX",18,11.1,"AC",1,1)=""
^DD("IX",18,11.1,"AC",2,2)=""
^DD("IX",18,11.1,"B",1,1)=""
^DD("IX",18,11.1,"B",2,2)=""
^DD("IX",18,11.1,"BB",1,1)=""
^DD("IX",18,11.1,"BB",2,2)=""
^DD("IX",19,0)="100.5^C^Active events^MU^^R^IR^I^100.5^^^^^LS"
^DD("IX",19,1)="S ^ORD(100.5,""C"",$$UP^XLFSTR($E(X(1),1,60)),DA)="""""
^DD("IX",19,1.4)="S X=$S(X(2):0,1:1)"
^DD("IX",19,2)="K ^ORD(100.5,""C"",$$UP^XLFSTR($E(X(1),1,60)),DA)"
^DD("IX",19,2.4)="S X=$S(X(2):0,1:1)"
^DD("IX",19,2.5)="K ^ORD(100.5,""C"")"
^DD("IX",19,11.1,0)="^.114IA^2^2"
^DD("IX",19,11.1,1,0)="1^F^100.5^8^60^1^F"
^DD("IX",19,11.1,2,0)="2^F^100.5^1^^^F"
^DD("IX",19,11.1,"AC",1,1)=""
^DD("IX",19,11.1,"B",1,1)=""
^DD("IX",19,11.1,"B",2,2)=""
^DD("IX",19,11.1,"BB",1,1)=""
^DD("IX",19,11.1,"BB",2,2)=""
^DD("IX",20,0)="661.4^ASLHI^Index by Station, Location, HCPCS, Item^R^^R^IR^I^661.4^^^^^S"
^DD("IX",20,1)="S ^RMPR(661.4,""ASLHI"",X(1),X(2),$E(X(3),1,30),X(4),DA)="""""
^DD("IX",20,2)="K ^RMPR(661.4,""ASLHI"",X(1),X(2),$E(X(3),1,30),X(4),DA)"
^DD("IX",20,2.5)="K ^RMPR(661.4,""ASLHI"")"
^DD("IX",20,11.1,0)="^.114IA^4^4"
^DD("IX",20,11.1,1,0)="1^F^661.4^3^^1^F"
^DD("IX",20,11.1,1,3)=""
^DD("IX",20,11.1,2,0)="2^F^661.4^7^^2^F"
^DD("IX",20,11.1,2,3)=""
^DD("IX",20,11.1,3,0)="3^F^661.4^.01^30^3^F"
^DD("IX",20,11.1,3,3)=""
^DD("IX",20,11.1,4,0)="4^F^661.4^2^^4^F"
^DD("IX",20,11.1,4,3)=""
^DD("IX",20,11.1,"AC",1,1)=""
^DD("IX",20,11.1,"AC",2,2)=""
^DD("IX",20,11.1,"AC",3,3)=""
^DD("IX",20,11.1,"AC",4,4)=""
^DD("IX",20,11.1,"B",1,1)=""
^DD("IX",20,11.1,"B",2,2)=""
^DD("IX",20,11.1,"B",3,3)=""
^DD("IX",20,11.1,"B",4,4)=""
^DD("IX",20,11.1,"BB",1,1)=""
^DD("IX",20,11.1,"BB",2,2)=""
^DD("IX",20,11.1,"BB",3,3)=""
^DD("IX",20,11.1,"BB",4,4)=""
^DD("IX",21,0)="661.4^XSHIL^Index on STATION, HCPCS, HCPCS item, LOCATION fields.^R^^R^IR^I^661.4^^^^^LS"
^DD("IX",21,1)="S ^RMPR(661.4,""XSHIL"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",21,2)="K ^RMPR(661.4,""XSHIL"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",21,2.5)="K ^RMPR(661.4,""XSHIL"")"
^DD("IX",21,11.1,0)="^.114IA^4^4"
^DD("IX",21,11.1,1,0)="1^F^661.4^3^^1^F"
^DD("IX",21,11.1,1,3)=""
^DD("IX",21,11.1,2,0)="2^F^661.4^.01^^2^F"
^DD("IX",21,11.1,2,3)=""
^DD("IX",21,11.1,3,0)="3^F^661.4^2^^3^F"
^DD("IX",21,11.1,3,3)=""
^DD("IX",21,11.1,4,0)="4^F^661.4^7^^4^F"
^DD("IX",21,11.1,4,3)=""
^DD("IX",21,11.1,"AC",1,1)=""
^DD("IX",21,11.1,"AC",2,2)=""
^DD("IX",21,11.1,"AC",3,3)=""
^DD("IX",21,11.1,"AC",4,4)=""
^DD("IX",21,11.1,"B",1,1)=""
^DD("IX",21,11.1,"B",2,2)=""
^DD("IX",21,11.1,"B",3,3)=""
^DD("IX",21,11.1,"B",4,4)=""
^DD("IX",21,11.1,"BB",1,1)=""
^DD("IX",21,11.1,"BB",2,2)=""
^DD("IX",21,11.1,"BB",3,3)=""
^DD("IX",21,11.1,"BB",4,4)=""
^DD("IX",22,0)="661.41^ASSHID^Index by Station, Status, HCPS, Item, Order Date^R^^R^IR^I^661.41^^^^^S"
^DD("IX",22,1)="S ^RMPR(661.41,""ASSHID"",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)="""""
^DD("IX",22,2)="K ^RMPR(661.41,""ASSHID"",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)"
^DD("IX",22,2.5)="K ^RMPR(661.41,""ASSHID"")"
^DD("IX",22,11.1,0)="^.114IA^5^5"
^DD("IX",22,11.1,1,0)="1^F^661.41^2^^1^F"
^DD("IX",22,11.1,1,3)=""
^DD("IX",22,11.1,2,0)="2^F^661.41^10^^2^F"
^DD("IX",22,11.1,2,3)=""
^DD("IX",22,11.1,3,0)="3^F^661.41^5^30^3^F"
^DD("IX",22,11.1,3,3)=""
^DD("IX",22,11.1,4,0)="4^F^661.41^1^^4^F"
^DD("IX",22,11.1,4,3)=""
^DD("IX",22,11.1,5,0)="5^F^661.41^.01^^5^F"
^DD("IX",22,11.1,5,3)=""
^DD("IX",22,11.1,"AC",1,1)=""
^DD("IX",22,11.1,"AC",2,2)=""
^DD("IX",22,11.1,"AC",3,3)=""
^DD("IX",22,11.1,"AC",4,4)=""
^DD("IX",22,11.1,"AC",5,5)=""
^DD("IX",22,11.1,"B",1,1)=""
^DD("IX",22,11.1,"B",2,2)=""
^DD("IX",22,11.1,"B",3,3)=""
^DD("IX",22,11.1,"B",4,4)=""
^DD("IX",22,11.1,"B",5,5)=""
^DD("IX",22,11.1,"BB",1,1)=""
^DD("IX",22,11.1,"BB",2,2)=""
^DD("IX",22,11.1,"BB",3,3)=""
^DD("IX",22,11.1,"BB",4,4)=""
^DD("IX",22,11.1,"BB",5,5)=""
^DD("IX",23,0)="661.5^AS^Station number index^R^^F^IR^I^661.5^^^^^S"
^DD("IX",23,1)="S ^RMPR(661.5,""AS"",X,DA)="""""
^DD("IX",23,2)="K ^RMPR(661.5,""AS"",X,DA)"
^DD("IX",23,2.5)="K ^RMPR(661.5,""AS"")"
^DD("IX",23,11.1,0)="^.114IA^1^1"
^DD("IX",23,11.1,1,0)="1^F^661.5^2^^1^F"
^DD("IX",23,11.1,1,3)=""
^DD("IX",23,11.1,"AC",1,1)=""
^DD("IX",23,11.1,"B",1,1)=""
^DD("IX",23,11.1,"BB",1,1)=""
^DD("IX",24,0)="100.52^ACT^Describes current multiple for activation of rule/event^MU^^F^IR^I^100.52^^^^^S"
^DD("IX",24,.1,0)="^^2^2^3020405^"
^DD("IX",24,.1,1,0)="This cross reference provides a quick way to identify which multiple"
^DD("IX",24,.1,2,0)="is the active entry for the date the rule/event was activated."
^DD("IX",24,1)="S:X(1) ^ORD(100.5,DA(1),2,""ACT"",DA)="""" K:X(2) ^ORD(100.5,DA(1),2,""ACT"")"
^DD("IX",24,2)="Q"
^DD("IX",24,11.1,0)="^.114IA^2^2"
^DD("IX",24,11.1,1,0)="1^F^100.52^.01^^^F"
^DD("IX",24,11.1,2,0)="2^F^100.52^1^^^F"
^DD("IX",24,11.1,"B",1,1)=""
^DD("IX",24,11.1,"B",2,2)=""
^DD("IX",24,11.1,"BB",1,1)=""
^DD("IX",24,11.1,"BB",2,2)=""
^DD("IX",25,0)="100.6^AC^Active rules by movement type within each division^MU^^R^IR^I^100.6^^^^^S"
^DD("IX",25,1)="N ORI,ORX S ORI=0 F  S ORI=+$O(^ORD(100.6,DA,3,ORI)) Q:ORI<1  S ORX=+$P($G(^(ORI,0)),U) S:ORX ^ORD(100.6,""AC"",X(1),ORX,DA)="""""
^DD("IX",25,1.4)="S X=$S('X(2):1,1:0)"
^DD("IX",25,2)="N ORI,ORX S ORI=0 F  S ORI=+$O(^ORD(100.6,DA,3,ORI)) Q:ORI<1  S ORX=+$P($G(^(ORI,0)),U) K:ORX ^ORD(100.6,""AC"",X(1),ORX,DA)"
^DD("IX",25,2.4)="S X=$S('X(2):1,1:0)"
^DD("IX",25,2.5)="K ^ORD(100.6,""AC"")"
^DD("IX",25,11.1,0)="^.114IA^2^2"
^DD("IX",25,11.1,1,0)="1^F^100.6^3^^1^F"
^DD("IX",25,11.1,2,0)="2^F^100.6^1^^^F"
^DD("IX",25,11.1,"AC",1,1)=""
^DD("IX",25,11.1,"B",1,1)=""
^DD("IX",25,11.1,"B",2,2)=""
^DD("IX",25,11.1,"BB",1,1)=""
^DD("IX",25,11.1,"BB",2,2)=""
^DD("IX",26,0)="100.6^AE^Active events by division^R^^R^IR^I^100.6^^^^^S"
^DD("IX",26,1)="S ^ORD(100.6,""AE"",X(1),X(2),DA)="""""
^DD("IX",26,1.4)="S X=$S(X(3)<1:1,X(3)>$$NOW^XLFDT:1,1:0)"
^DD("IX",26,2)="K ^ORD(100.6,""AE"",X(1),X(2),DA)"
^DD("IX",26,2.4)="S X=$S(X(3)<1:1,X(3)>$$NOW^XLFDT:1,1:0)"
^DD("IX",26,2.5)="K ^ORD(100.6,""AE"")"
^DD("IX",26,11.1,0)="^.114IA^3^3"
^DD("IX",26,11.1,1,0)="1^F^100.6^3^^1^F"
^DD("IX",26,11.1,2,0)="2^F^100.6^2^^2^F"
^DD("IX",26,11.1,3,0)="3^F^100.6^1^^^F"
^DD("IX",26,11.1,"AC",1,1)=""
^DD("IX",26,11.1,"AC",2,2)=""
^DD("IX",26,11.1,"B",1,1)=""
^DD("IX",26,11.1,"B",2,2)=""
^DD("IX",26,11.1,"B",3,3)=""
^DD("IX",26,11.1,"BB",1,1)=""
^DD("IX",26,11.1,"BB",2,2)=""
^DD("IX",26,11.1,"BB",3,3)=""
^DD("IX",27,0)="100.61^ACT^Describes current multiple for activation of rule/event^MU^^F^IR^I^100.61^^^^^S"
^DD("IX",27,.1,0)="^^2^2^3020405^"
^DD("IX",27,.1,1,0)="This cross reference provides a quick way to identify which multiple is"
^DD("IX",27,.1,2,0)="the current active/inactive pair for the rule/event."
^DD("IX",27,1)="S:X(1) ^ORD(100.6,DA(1),2,""ACT"",DA)="""" K:X(2) ^ORD(100.6,DA(1),2,""ACT"")"
^DD("IX",27,1.4)=""
^DD("IX",27,2)="Q"
^DD("IX",27,11.1,0)="^.114IA^2^2"
^DD("IX",27,11.1,1,0)="1^F^100.61^.01^^^F"
^DD("IX",27,11.1,2,0)="2^F^100.61^1^^^F"
^DD("IX",27,11.1,"B",1,1)=""
^DD("IX",27,11.1,"B",2,2)=""
^DD("IX",27,11.1,"BB",1,1)=""
^DD("IX",27,11.1,"BB",2,2)=""
^DD("IX",28,0)="661.5^ASSL^Stock location Status index^R^^R^IR^I^661.5^^^^^S"
^DD("IX",28,.1,0)="^^2^2^3010116^"
^DD("IX",28,.1,1,0)="This index is on Stock Location Status, Station and Name. Its purpose is"
^DD("IX",28,.1,2,0)="to be able to traverse locations which have a particular status."
^DD("IX",28,1)="S ^RMPR(661.5,""ASSL"",X(1),X(2),$E(X(3),1,30),DA)="""""
^DD("IX",28,2)="K ^RMPR(661.5,""ASSL"",X(1),X(2),$E(X(3),1,30),DA)"
^DD("IX",28,2.5)="K ^RMPR(661.5,""ASSL"")"
^DD("IX",28,11.1,0)="^.114IA^3^3"
^DD("IX",28,11.1,1,0)="1^F^661.5^4^^1^F"
^DD("IX",28,11.1,1,3)=""
^DD("IX",28,11.1,2,0)="2^F^661.5^2^^2^F"
^DD("IX",28,11.1,2,3)=""
^DD("IX",28,11.1,3,0)="3^F^661.5^.01^30^3^F"
^DD("IX",28,11.1,3,3)=""
^DD("IX",28,11.1,"AC",1,1)=""
^DD("IX",28,11.1,"AC",2,2)=""
^DD("IX",28,11.1,"AC",3,3)=""
^DD("IX",28,11.1,"B",1,1)=""
^DD("IX",28,11.1,"B",2,2)=""
^DD("IX",28,11.1,"B",3,3)=""
^DD("IX",28,11.1,"BB",1,1)=""
^DD("IX",28,11.1,"BB",2,2)=""
^DD("IX",28,11.1,"BB",3,3)=""
^DD("IX",29,0)="661.5^XSL^Uniqueness Index for Key 'A' of File #661.5^R^^R^IR^I^661.5^^^^^LS"
^DD("IX",29,1)="S ^RMPR(661.5,""XSL"",X(1),X(2),DA)="""""
^DD("IX",29,2)="K ^RMPR(661.5,""XSL"",X(1),X(2),DA)"
^DD("IX",29,2.5)="K ^RMPR(661.5,""XSL"")"
^DD("IX",29,11.1,0)="^.114IA^2^2"
^DD("IX",29,11.1,1,0)="1^F^661.5^2^^1"
^DD("IX",29,11.1,2,0)="2^F^661.5^.01^^2"
^DD("IX",29,11.1,"AC",1,1)=""
^DD("IX",29,11.1,"AC",2,2)=""
^DD("IX",29,11.1,"B",1,1)=""
^DD("IX",29,11.1,"B",2,2)=""
^DD("IX",29,11.1,"BB",1,1)=""
^DD("IX",29,11.1,"BB",2,2)=""
^DD("IX",30,0)="661.6^ADHS^xref on DATE&TIME STAMP, HCPCS and SEQUENCE^R^^R^IR^I^661.6^^^^^S"
^DD("IX",30,1)="S ^RMPR(661.6,""ADHS"",X(1),$E(X(2),1,30),X(3),DA)="""""
^DD("IX",30,2)="K ^RMPR(661.6,""ADHS"",X(1),$E(X(2),1,30),X(3),DA)"
^DD("IX",30,2.5)="K ^RMPR(661.6,""ADHS"")"
^DD("IX",30,11.1,0)="^.114IA^3^3"
^DD("IX",30,11.1,1,0)="1^F^661.6^2^^1^F"
^DD("IX",30,11.1,1,3)=""
^DD("IX",30,11.1,2,0)="2^F^661.6^.01^30^2^F"
^DD("IX",30,11.1,2,3)=""
^DD("IX",30,11.1,3,0)="3^F^661.6^3^^3^F"
^DD("IX",30,11.1,3,3)=""
^DD("IX",30,11.1,"AC",1,1)=""
^DD("IX",30,11.1,"AC",2,2)=""
^DD("IX",30,11.1,"AC",3,3)=""
^DD("IX",30,11.1,"B",1,1)=""
^DD("IX",30,11.1,"B",2,2)=""
^DD("IX",30,11.1,"B",3,3)=""
^DD("IX",30,11.1,"BB",1,1)=""
^DD("IX",30,11.1,"BB",2,2)=""
^DD("IX",30,11.1,"BB",3,3)=""
^DD("IX",31,0)="661.6^ASHD^STATION & HCPCS & DATE^R^^R^IR^I^661.6^^^^^S"
^DD("IX",31,1)="S ^RMPR(661.6,""ASHD"",X(1),$E(X(2),1,30),X(3),DA)="""""
^DD("IX",31,2)="K ^RMPR(661.6,""ASHD"",X(1),$E(X(2),1,30),X(3),DA)"
^DD("IX",31,2.5)="K ^RMPR(661.6,""ASHD"")"
^DD("IX",31,11.1,0)="^.114IA^3^3"
^DD("IX",31,11.1,1,0)="1^F^661.6^13^^1^F"
^DD("IX",31,11.1,1,3)=""
^DD("IX",31,11.1,2,0)="2^F^661.6^.01^30^2^F"
^DD("IX",31,11.1,2,3)=""
^DD("IX",31,11.1,3,0)="3^F^661.6^2^^3^F"
^DD("IX",31,11.1,3,3)=""
^DD("IX",31,11.1,"AC",1,1)=""
^DD("IX",31,11.1,"AC",2,2)=""
^DD("IX",31,11.1,"AC",3,3)=""
^DD("IX",31,11.1,"B",1,1)=""
^DD("IX",31,11.1,"B",2,2)=""
^DD("IX",31,11.1,"B",3,3)=""
^DD("IX",31,11.1,"BB",1,1)=""
^DD("IX",31,11.1,"BB",2,2)=""
^DD("IX",31,11.1,"BB",3,3)=""
^DD("IX",32,0)="661.6^ASLD^Index on Station ien, Location ien and date&time stamp^R^^R^IR^I^661.6^^^^^S"
^DD("IX",32,1)="S ^RMPR(661.6,""ASLD"",X(1),X(2),X(3),DA)="""""
^DD("IX",32,2)="K ^RMPR(661.6,""ASLD"",X(1),X(2),X(3),DA)"
^DD("IX",32,2.5)="K ^RMPR(661.6,""ASLD"")"
^DD("IX",32,11.1,0)="^.114IA^3^3"
^DD("IX",32,11.1,1,0)="1^F^661.6^13^^1^F"
^DD("IX",32,11.1,1,3)=""
^DD("IX",32,11.1,2,0)="2^F^661.6^14^^2^F"
^DD("IX",32,11.1,2,3)=""
^DD("IX",32,11.1,3,0)="3^F^661.6^2^^3^F"
^DD("IX",32,11.1,3,3)=""
^DD("IX",32,11.1,"AC",1,1)=""
^DD("IX",32,11.1,"AC",2,2)=""
^DD("IX",32,11.1,"AC",3,3)=""
^DD("IX",32,11.1,"B",1,1)=""
^DD("IX",32,11.1,"B",2,2)=""
^DD("IX",32,11.1,"B",3,3)=""
^DD("IX",32,11.1,"BB",1,1)=""
^DD("IX",32,11.1,"BB",2,2)=""
^DD("IX",32,11.1,"BB",3,3)=""
^DD("IX",33,0)="661.6^ASTHIDS^Station, Transaction, HCPCS Item Index^R^^R^IR^I^661.6^^^^^S"
^DD("IX",33,.1,0)="^^4^4^3010117^"
^DD("IX",33,.1,1,0)="This cross-reference is an index on Station, Transaction type, HCPCS,"
^DD("IX",33,.1,2,0)="Item, Date&Time stamp, and Sequence."
^DD("IX",33,.1,3,0)="It is used to sum total quantities and dollar values for a transaction"
^DD("IX",33,.1,4,0)="type for a HCPCS Item between any 2 dates."
^DD("IX",33,1)="S ^RMPR(661.6,""ASTHIDS"",X(1),X(2),$E(X(3),1,30),$E(X(4),1,30),X(5),X(6),DA)="""""
^DD("IX",33,2)="K ^RMPR(661.6,""ASTHIDS"",X(1),X(2),$E(X(3),1,30),$E(X(4),1,30),X(5),X(6),DA)"
^DD("IX",33,2.5)="K ^RMPR(661.6,""ASTHIDS"")"
^DD("IX",33,11.1,0)="^.114IA^6^6"
^DD("IX",33,11.1,1,0)="1^F^661.6^13^^1^F"
^DD("IX",33,11.1,1,3)=""
^DD("IX",33,11.1,2,0)="2^F^661.6^4^^2^F"
^DD("IX",33,11.1,2,3)=""
^DD("IX",33,11.1,3,0)="3^F^661.6^.01^30^3^F"
^DD("IX",33,11.1,3,3)=""
^DD("IX",33,11.1,4,0)="4^F^661.6^11^30^4^F"
^DD("IX",33,11.1,4,3)=""
^DD("IX",33,11.1,5,0)="5^F^661.6^2^^5^F"
^DD("IX",33,11.1,5,3)=""
^DD("IX",33,11.1,6,0)="6^F^661.6^3^^6^F"
^DD("IX",33,11.1,6,3)=""
^DD("IX",33,11.1,"AC",1,1)=""
^DD("IX",33,11.1,"AC",2,2)=""
^DD("IX",33,11.1,"AC",3,3)=""
^DD("IX",33,11.1,"AC",4,4)=""
^DD("IX",33,11.1,"AC",5,5)=""
^DD("IX",33,11.1,"AC",6,6)=""
^DD("IX",33,11.1,"B",1,1)=""
^DD("IX",33,11.1,"B",2,2)=""
^DD("IX",33,11.1,"B",3,3)=""
^DD("IX",33,11.1,"B",4,4)=""
^DD("IX",33,11.1,"B",5,5)=""
^DD("IX",33,11.1,"B",6,6)=""
^DD("IX",33,11.1,"BB",1,1)=""
^DD("IX",33,11.1,"BB",2,2)=""
^DD("IX",33,11.1,"BB",3,3)=""
^DD("IX",33,11.1,"BB",4,4)=""
^DD("IX",33,11.1,"BB",5,5)=""
^DD("IX",33,11.1,"BB",6,6)=""
^DD("IX",34,0)="661.6^XHDS^x-ref on HCPCS, DATE&TIME STAMP and SEQUENCE^R^^R^IR^I^661.6^^^^^LS"
^DD("IX",34,.1,0)="^^2^2^3010117^^^"
^DD("IX",34,.1,1,0)="The XHDS cross-reference is the main primary key reference for the"
^DD("IX",34,.1,2,0)="transaction file."
^DD("IX",34,1)="S ^RMPR(661.6,""XHDS"",$E(X(1),1,30),X(2),X(3),DA)="""""
^DD("IX",34,2)="K ^RMPR(661.6,""XHDS"",$E(X(1),1,30),X(2),X(3),DA)"
^DD("IX",34,2.5)="K ^RMPR(661.6,""XHDS"")"
^DD("IX",34,11.1,0)="^.114IA^3^3"
^DD("IX",34,11.1,1,0)="1^F^661.6^.01^30^1^F"
^DD("IX",34,11.1,1,3)=""
^DD("IX",34,11.1,2,0)="2^F^661.6^2^^2^F"
^DD("IX",34,11.1,2,3)=""
^DD("IX",34,11.1,3,0)="3^F^661.6^3^^3^F"
^DD("IX",34,11.1,3,3)=""
^DD("IX",34,11.1,"AC",1,1)=""
^DD("IX",34,11.1,"AC",2,2)=""
^DD("IX",34,11.1,"AC",3,3)=""
^DD("IX",34,11.1,"B",1,1)=""
^DD("IX",34,11.1,"B",2,2)=""
^DD("IX",34,11.1,"B",3,3)=""
^DD("IX",34,11.1,"BB",1,1)=""
^DD("IX",34,11.1,"BB",2,2)=""
^DD("IX",34,11.1,"BB",3,3)=""
^DD("IX",35,0)="661.6^XSTD^S station, T type of transaction D date^R^^R^IR^I^661.6^^^^^LS"
^DD("IX",35,.1,0)="^^1^1^3010515^"
^DD("IX",35,.1,1,0)="Use for PIP report."
^DD("IX",35,1)="S ^RMPR(661.6,""XSTD"",X(1),X(2),X(3),DA)="""""
^DD("IX",35,2)="K ^RMPR(661.6,""XSTD"",X(1),X(2),X(3),DA)"
^DD("IX",35,2.5)="K ^RMPR(661.6,""XSTD"")"
^DD("IX",35,11.1,0)="^.114IA^3^3"
^DD("IX",35,11.1,1,0)="1^F^661.6^13^^1^F"
^DD("IX",35,11.1,1,3)=""
^DD("IX",35,11.1,2,0)="2^F^661.6^4^^2^F"
^DD("IX",35,11.1,2,3)=""
^DD("IX",35,11.1,3,0)="3^F^661.6^2^^3^F"
^DD("IX",35,11.1,3,3)=""
^DD("IX",35,11.1,"AC",1,1)=""
^DD("IX",35,11.1,"AC",2,2)=""
^DD("IX",35,11.1,"AC",3,3)=""
^DD("IX",35,11.1,"B",1,1)=""
^DD("IX",35,11.1,"B",2,2)=""
^DD("IX",35,11.1,"B",3,3)=""
^DD("IX",35,11.1,"BB",1,1)=""
^DD("IX",35,11.1,"BB",2,2)=""
^DD("IX",35,11.1,"BB",3,3)=""
^DD("IX",36,0)="661.7^XHDS^Primary key cross-ref - HCPCS, DATE&TIME STAMP, SEQUENCE ^R^^R^IR^I^661.7^^^^^LS"
^DD("IX",36,1)="S ^RMPR(661.7,""XHDS"",X(1),X(2),X(3),DA)="""""
^DD("IX",36,2)="K ^RMPR(661.7,""XHDS"",X(1),X(2),X(3),DA)"
^DD("IX",36,2.5)="K ^RMPR(661.7,""XHDS"")"
^DD("IX",36,11.1,0)="^.114IA^3^3"
^DD("IX",36,11.1,1,0)="1^F^661.7^.01^^1^F"
^DD("IX",36,11.1,1,3)=""
^DD("IX",36,11.1,2,0)="2^F^661.7^1^^2^F"
^DD("IX",36,11.1,2,3)=""
^DD("IX",36,11.1,3,0)="3^F^661.7^2^^3^F"
^DD("IX",36,11.1,3,3)=""
^DD("IX",36,11.1,"AC",1,1)=""
^DD("IX",36,11.1,"AC",2,2)=""
^DD("IX",36,11.1,"AC",3,3)=""
^DD("IX",36,11.1,"B",1,1)=""
^DD("IX",36,11.1,"B",2,2)=""
^DD("IX",36,11.1,"B",3,3)=""
^DD("IX",36,11.1,"BB",1,1)=""
^DD("IX",36,11.1,"BB",2,2)=""
^DD("IX",36,11.1,"BB",3,3)=""
^DD("IX",37,0)="661.7^XSHIDS^xref for STATION, HCPCS, Item, DATE&TIME STAMP and SEQUENCE^R^^R^IR^I^661.7^^^^^LS"
^DD("IX",37,1)="S ^RMPR(661.7,""XSHIDS"",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)="""""
^DD("IX",37,2)="K ^RMPR(661.7,""XSHIDS"",X(1),X(2),$E(X(3),1,30),X(4),X(5),DA)"
^DD("IX",37,2.5)="K ^RMPR(661.7,""XSHIDS"")"
^DD("IX",37,11.1,0)="^.114IA^5^5"
^DD("IX",37,11.1,1,0)="1^F^661.7^4^^1^F"
^DD("IX",37,11.1,1,3)=""
^DD("IX",37,11.1,2,0)="2^F^661.7^.01^^2^F"
^DD("IX",37,11.1,2,3)=""
^DD("IX",37,11.1,3,0)="3^F^661.7^3^30^3^F"
^DD("IX",37,11.1,3,3)=""
^DD("IX",37,11.1,4,0)="4^F^661.7^1^^4^F"
^DD("IX",37,11.1,4,3)=""
^DD("IX",37,11.1,5,0)="5^F^661.7^2^^5^F"
^DD("IX",37,11.1,5,3)=""
^DD("IX",37,11.1,"AC",1,1)=""
^DD("IX",37,11.1,"AC",2,2)=""
^DD("IX",37,11.1,"AC",3,3)=""
^DD("IX",37,11.1,"AC",4,4)=""
^DD("IX",37,11.1,"AC",5,5)=""
^DD("IX",37,11.1,"B",1,1)=""
^DD("IX",37,11.1,"B",2,2)=""
^DD("IX",37,11.1,"B",3,3)=""
^DD("IX",37,11.1,"B",4,4)=""
^DD("IX",37,11.1,"B",5,5)=""
^DD("IX",37,11.1,"BB",1,1)=""
^DD("IX",37,11.1,"BB",2,2)=""
^DD("IX",37,11.1,"BB",3,3)=""
^DD("IX",37,11.1,"BB",4,4)=""
^DD("IX",37,11.1,"BB",5,5)=""
^DD("IX",38,0)="50^AOC^Link between Pharmacy Orderable Item and VA Classification fields.^R^^R^IR^I^50^^^^^S"
^DD("IX",38,.1,0)="^^6^6^3000228^"
^DD("IX",38,.1,1,0)=" This cross reference is used as a link between Pharmacy Orderable Item"
^DD("IX",38,.1,2,0)=" and VA Classification. Cross-reference created: ^PSDRUG(""AOC"",X(1),X,DA)"
^DD("IX",38,.1,3,0)=" "
^DD("IX",38,.1,4,0)=" X(1) => Orderable Item (IEN)"
^DD("IX",38,.1,5,0)=" X    => VA Classification"
^DD("IX",38,.1,6,0)=" DA   => Dispense Drug (IEN)"
^DD("IX",38,1)="S ^PSDRUG(""AOC"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",38,2)="K ^PSDRUG(""AOC"",X(1),$E(X(2),1,30),DA)"
^DD("IX",38,2.5)="K ^PSDRUG(""AOC"")"
^DD("IX",38,11.1,0)="^.114IA^2^2"
^DD("IX",38,11.1,1,0)="1^F^50^2.1^^1^F"
^DD("IX",38,11.1,1,3)=""
^DD("IX",38,11.1,2,0)="2^F^50^2^30^2^F"
^DD("IX",38,11.1,2,3)=""
^DD("IX",38,11.1,"AC",1,1)=""
^DD("IX",38,11.1,"AC",2,2)=""
^DD("IX",38,11.1,"B",1,1)=""
^DD("IX",38,11.1,"B",2,2)=""
^DD("IX",38,11.1,"BB",1,1)=""
^DD("IX",38,11.1,"BB",2,2)=""
^DD("IX",39,0)="154.1^D^NEW LOOK-UP^R^^R^IR^I^154.1^^^^^LS"
^DD("IX",39,1)="S ^SPNL(154.1,""D"",X(1),X(2),DA)="""""
^DD("IX",39,2)="K ^SPNL(154.1,""D"",X(1),X(2),DA)"
^DD("IX",39,2.5)="K ^SPNL(154.1,""D"")"
^DD("IX",39,11.1,0)="^.114IA^2^2"
^DD("IX",39,11.1,1,0)="1^F^154.1^.01^^1^F"
^DD("IX",39,11.1,1,3)=""
^DD("IX",39,11.1,2,0)="2^F^154.1^.04^^2^F^WHAT DATE DAVE"
^DD("IX",39,11.1,2,3)=""
^DD("IX",39,11.1,"AC",1,1)=""
^DD("IX",39,11.1,"AC",2,2)=""
^DD("IX",39,11.1,"B",1,1)=""
^DD("IX",39,11.1,"B",2,2)=""
^DD("IX",39,11.1,"BB",1,1)=""
^DD("IX",39,11.1,"BB",2,2)=""
^DD("IX",40,0)="351.6^AC^Patient's preferred (enrolled) network (visn) OR overridden network.^R^^R^IR^I^351.6^^^^^S"
^DD("IX",40,1)="S ^IBAT(351.6,""AC"",X(3),DA)="""""
^DD("IX",40,1.4)="S X=X(3)"
^DD("IX",40,2)="K ^IBAT(351.6,""AC"",X(3),DA)"
^DD("IX",40,2.4)="S X=X(3)"
^DD("IX",40,2.5)="K ^IBAT(351.6,""AC"")"
^DD("IX",40,11.1,0)="^.114IA^3^3"
^DD("IX",40,11.1,1,0)="3^C^^^^1"
^DD("IX",40,11.1,1,1.5)="S X=+$$VISN^IBATUTL($S($G(X(1)):X(1),1:$G(X(2))))"
^DD("IX",40,11.1,2,0)="1^F^351.6^.1^^^F"
^DD("IX",40,11.1,3,0)="2^F^351.6^.03^^^F"
^DD("IX",40,11.1,"AC",1,1)=""
^DD("IX",40,11.1,"B",1,2)=""
^DD("IX",40,11.1,"B",2,3)=""
^DD("IX",40,11.1,"B",3,1)=""
^DD("IX",40,11.1,"BB",1,2)=""
^DD("IX",40,11.1,"BB",2,3)=""
^DD("IX",40,11.1,"BB",3,1)=""
^DD("IX",41,0)="351.6^AD^Patient's preferred (enrolled) facility OR overridden facility^R^^R^IR^I^351.6^^^^^S"
^DD("IX",41,1)="S ^IBAT(351.6,""AD"",X(3),DA)="""""
^DD("IX",41,1.4)="S X=X(3)"
^DD("IX",41,2)="K ^IBAT(351.6,""AD"",X(3),DA)"
^DD("IX",41,2.4)="S X=X(3)"
^DD("IX",41,2.5)="K ^IBAT(351.6,""AD"")"
^DD("IX",41,11.1,0)="^.114IA^3^3"
^DD("IX",41,11.1,1,0)="1^F^351.6^.1^^^F"
^DD("IX",41,11.1,2,0)="2^F^351.6^.03^^^F"
^DD("IX",41,11.1,3,0)="3^C^^^^1"
^DD("IX",41,11.1,3,1.5)="S X=+$S($G(X(1)):X(1),1:$G(X(2)))"
^DD("IX",41,11.1,"AC",1,3)=""
^DD("IX",41,11.1,"B",1,1)=""
^DD("IX",41,11.1,"B",2,2)=""
^DD("IX",41,11.1,"B",3,3)=""
^DD("IX",41,11.1,"BB",1,1)=""
^DD("IX",41,11.1,"BB",2,2)=""
^DD("IX",41,11.1,"BB",3,3)=""
^DD("IX",42,0)="351.61^AH^XREF BETWEEN PATIENT AND EVENT DATE FOR SORTING^R^^R^IR^I^351.61^^^^^S"
^DD("IX",42,1)="S ^IBAT(351.61,""AH"",X(1),X(2),DA)="""""
^DD("IX",42,2)="K ^IBAT(351.61,""AH"",X(1),X(2),DA)"
^DD("IX",42,2.5)="K ^IBAT(351.61,""AH"")"
^DD("IX",42,11.1,0)="^.114IA^2^2"
^DD("IX",42,11.1,1,0)="1^F^351.61^.02^^1^F"
^DD("IX",42,11.1,1,3)=""
^DD("IX",42,11.1,2,0)="2^F^351.61^.04^^2^F"
^DD("IX",42,11.1,2,3)=""
^DD("IX",42,11.1,"AC",1,1)=""
^DD("IX",42,11.1,"AC",2,2)=""
^DD("IX",42,11.1,"B",1,1)=""
^DD("IX",42,11.1,"B",2,2)=""
^DD("IX",42,11.1,"BB",1,1)=""
^DD("IX",42,11.1,"BB",2,2)=""
^DD("IX",43,0)="3.9^AF^See Technical Description^R^^F^IR^W^3.91^^^^^S"
^DD("IX",43,1)="S ^XMB(3.9,""AF"",X,DA(1),DA)="""""
^DD("IX",43,1.4)="S X=(X>0)"
^DD("IX",43,2)="K ^XMB(3.9,""AF"",X,DA(1),DA)"
^DD("IX",43,2.5)="K ^XMB(3.9,""AF"")"
^DD("IX",43,11.1,0)="^.114IA^1^1"
^DD("IX",43,11.1,1,0)="1^F^3.91^15^^1^F"
^DD("IX",43,11.1,1,3)=""
^DD("IX",43,11.1,"AC",1,1)=""
^DD("IX",43,11.1,"B",1,1)=""
^DD("IX",43,11.1,"BB",1,1)=""
^DD("IX",44,0)="700^ADI^Diffusing capacity measurement cross-reference^R^^R^IR^I^700^^^^^S"
^DD("IX",44,.1,0)="^^3^3^3001106^"
^DD("IX",44,.1,1,0)="This cross-reference indexes the date and time of the most"
^DD("IX",44,.1,2,0)="recent diffusing capacity measurement for this pulmonary"
^DD("IX",44,.1,3,0)="function test.  "
^DD("IX",44,1)="S ^MCAR(700,""ADI"",X(1),X(2),DA)="""""
^DD("IX",44,1.4)="S X=X(3)]"""""
^DD("IX",44,2)="K ^MCAR(700,""ADI"",X(1),X(2),DA)"
^DD("IX",44,2.4)="S X=X(3)]"""""
^DD("IX",44,2.5)="K ^MCAR(700,""ADI"")"
^DD("IX",44,11.1,0)="^.114IA^3^3"
^DD("IX",44,11.1,1,0)="1^F^700^1^^1^F"
^DD("IX",44,11.1,1,3)=""
^DD("IX",44,11.1,2,0)="2^F^700^.01^^2^F"
^DD("IX",44,11.1,2,2)="S X=9999999.9999-X"
^DD("IX",44,11.1,2,3)=""
^DD("IX",44,11.1,3,0)="3^F^700^19^^^F"
^DD("IX",44,11.1,3,3)=""
^DD("IX",44,11.1,"AC",1,1)=""
^DD("IX",44,11.1,"AC",2,2)=""
^DD("IX",44,11.1,"B",1,1)=""
^DD("IX",44,11.1,"B",2,2)=""
^DD("IX",44,11.1,"B",3,3)=""
^DD("IX",44,11.1,"BB",1,1)=""
^DD("IX",44,11.1,"BB",2,2)=""
^DD("IX",44,11.1,"BB",3,3)=""
^DD("IX",45,0)="700^AG^Cross Reference of ""AV"",""AF"", and ""AS""^MU^^F^IR^I^700^^^^^A"
^DD("IX",45,.1,0)="^^2^2^3001106^"
^DD("IX",45,.1,1,0)="This cross-reference will check if there are entries in fields 17,18,32"
^DD("IX",45,.1,2,0)="and execute the cross-references for those entries."
^DD("IX",45,1)="D EN^MCARUTL1(""SET"",DA,X(1),X(2),""ALL"")"
^DD("IX",45,1.4)="S X=X(1)]""""&(X(2)]"""")"
^DD("IX",45,2)="D EN^MCARUTL1(""KILL"",DA,X(1),X(2),""ALL"")"
^DD("IX",45,2.4)="S X=X(1)]""""&(X(2)]"""")"
^DD("IX",45,2.5)="K ^MCAR(700,""AV""),^MCAR(700,""AF""),^MCAR(700,""AS"")"
^DD("IX",45,11.1,0)="^.114IA^2^2"
^DD("IX",45,11.1,1,0)="1^F^700^1^^^F"
^DD("IX",45,11.1,2,0)="2^F^700^.01^^^F"
^DD("IX",45,11.1,"B",1,1)=""
^DD("IX",45,11.1,"B",2,2)=""
^DD("IX",45,11.1,"BB",1,1)=""
^DD("IX",45,11.1,"BB",2,2)=""
^DD("IX",46,0)="46.14^AD^ASIH Status and ASIH Termination date^R^^R^IR^W^46.15^^^^^S"
^DD("IX",46,1)="S ^DGRU(46.14,""AD"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)="""""
^DD("IX",46,2)="K ^DGRU(46.14,""AD"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)"
^DD("IX",46,2.5)="K ^DGRU(46.14,""AD"")"
^DD("IX",46,11.1,0)="^.114IA^2^2"
^DD("IX",46,11.1,1,0)="1^F^46.15^.04^30^1^F"
^DD("IX",46,11.1,1,3)=""
^DD("IX",46,11.1,2,0)="2^C^^^30^2"
^DD("IX",46,11.1,2,1.5)="N X1,X2 S X1=$P(^DGRU(46.14,DA(1),1,DA,0),U),X2=30 D C^%DTC"
^DD("IX",46,11.1,"AC",1,1)=""
^DD("IX",46,11.1,"AC",2,2)=""
^DD("IX",46,11.1,"B",1,1)=""
^DD("IX",46,11.1,"B",2,2)=""
^DD("IX",46,11.1,"BB",1,1)=""
^DD("IX",46,11.1,"BB",2,2)=""
^DD("IX",47,0)="53.79^AORDX^DFN,ORDER NUMBER,ADMIN DATE/TIME^R^^R^IR^I^53.79^^^^^S"
^DD("IX",47,.1,0)="^^2^2^3001106^"
^DD("IX",47,.1,1,0)="Cross reference by; .01 PATIENT NAME; .11 ORDER REFERENCE NUMBER; and .06"
^DD("IX",47,.1,2,0)="ADMINISTRATION DATE/TIME."
^DD("IX",47,1)="S ^PSB(53.79,""AORDX"",$E(X(1),1,30),$E(X(2),1,15),$E(X(3),1,15),DA)="""""
^DD("IX",47,2)="K ^PSB(53.79,""AORDX"",$E(X(1),1,30),$E(X(2),1,15),$E(X(3),1,15),DA)"
^DD("IX",47,2.5)="K ^PSB(53.79,""AORDX"")"
^DD("IX",47,11.1,0)="^.114IA^3^3"
^DD("IX",47,11.1,1,0)="1^F^53.79^.01^30^1^F"
^DD("IX",47,11.1,2,0)="2^F^53.79^.11^15^2^F"
^DD("IX",47,11.1,3,0)="3^F^53.79^.06^15^3^F"
^DD("IX",47,11.1,"AC",1,1)=""
^DD("IX",47,11.1,"AC",2,2)=""
^DD("IX",47,11.1,"AC",3,3)=""
^DD("IX",47,11.1,"B",1,1)=""
^DD("IX",47,11.1,"B",2,2)=""
^DD("IX",47,11.1,"B",3,3)=""
^DD("IX",47,11.1,"BB",1,1)=""
^DD("IX",47,11.1,"BB",2,2)=""
^DD("IX",47,11.1,"BB",3,3)=""
^DD("IX",48,0)="445.2^D^Recipients of supplies^R^^R^IR^I^445.2^^^^^LS"
^DD("IX",48,.1,0)="^^2^2^3000503^"
^DD("IX",48,.1,1,0)="This file will list the receipients/patients to whom supplies from a"
^DD("IX",48,.1,2,0)="supply station were obtained."
^DD("IX",48,1)="S ^PRCP(445.2,""D"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",48,2)="K ^PRCP(445.2,""D"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",48,2.5)="K ^PRCP(445.2,""D"")"
^DD("IX",48,11.1,0)="^.114IA^2^2"
^DD("IX",48,11.1,1,0)="1^F^445.2^.01^30^1^F"
^DD("IX",48,11.1,1,3)=""
^DD("IX",48,11.1,2,0)="2^F^445.2^23^30^2^F"
^DD("IX",48,11.1,2,3)=""
^DD("IX",48,11.1,"AC",1,1)=""
^DD("IX",48,11.1,"AC",2,2)=""
^DD("IX",48,11.1,"B",1,1)=""
^DD("IX",48,11.1,"B",2,2)=""
^DD("IX",48,11.1,"BB",1,1)=""
^DD("IX",48,11.1,"BB",2,2)=""
^DD("IX",49,0)="447.1^C^OUTSTANDING TRANSACTIONS BY AFFECTED INVENTORY POINT^R^^R^IR^I^447.1^^^^^LS"
^DD("IX",49,1)="S ^PRCP(447.1,""C"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",49,2)="K ^PRCP(447.1,""C"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",49,2.5)="K ^PRCP(447.1,""C"")"
^DD("IX",49,11.1,0)="^.114IA^2^2"
^DD("IX",49,11.1,1,0)="1^F^447.1^1^30^1^F"
^DD("IX",49,11.1,1,3)=""
^DD("IX",49,11.1,2,0)="2^F^447.1^2^30^2^F"
^DD("IX",49,11.1,2,3)=""
^DD("IX",49,11.1,"AC",1,1)=""
^DD("IX",49,11.1,"AC",2,2)=""
^DD("IX",49,11.1,"B",1,1)=""
^DD("IX",49,11.1,"B",2,2)=""
^DD("IX",49,11.1,"BB",1,1)=""
^DD("IX",49,11.1,"BB",2,2)=""
^DD("IX",50,0)="364.6^ALL^Allows for identification of local override fields that apply to ALL^MU^^F^IR^I^364.6^^^^^S"
^DD("IX",50,1)="S ^IBA(364.7,""ALL"",DA,X2(5))="""""
^DD("IX",50,1.4)="I X2(4)'=""L""!'X2(5)!(X2(2)'="""")!(X2(3)'="""")!'X2(1) S X=0"
^DD("IX",50,2)="K ^IBA(364.7,""ALL"",DA,X1(5))"
^DD("IX",50,2.4)="I X1(4)'=""L""!'X1(5)!(X1(2)'="""")!(X1(3)'="""")!'X1(1) S X=0"
^DD("IX",50,2.5)="K ^IBA(364.7,""ALL"")"
^DD("IX",50,11.1,0)="^.114IA^5^5"
^DD("IX",50,11.1,1,0)="1^F^364.6^.03^^1^F"
^DD("IX",50,11.1,1,1)=" "
^DD("IX",50,11.1,2,0)="2^C"
^DD("IX",50,11.1,2,1.5)="N Z S Z=+$O(^IBA(364.7,""B"",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,5)"
^DD("IX",50,11.1,3,0)="3^C"
^DD("IX",50,11.1,3,1.5)="N Z S Z=+$O(^IBA(364.7,""B"",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,6)"
^DD("IX",50,11.1,4,0)="4^C"
^DD("IX",50,11.1,4,1.5)="N Z S Z=+$O(^IBA(364.7,""B"",DA,0)) I Z S X=$P($G(^IBA(364.7,Z,0)),U,2)"
^DD("IX",50,11.1,5,0)="5^C"
^DD("IX",50,11.1,5,1.5)="S X=+$O(^IBA(364.7,""B"",DA,0))"
^DD("IX",50,11.1,"AC",1,1)=""
^DD("IX",50,11.1,"B",1,1)=""
^DD("IX",50,11.1,"B",2,2)=""
^DD("IX",50,11.1,"B",3,3)=""
^DD("IX",50,11.1,"B",4,4)=""
^DD("IX",50,11.1,"B",5,5)=""
^DD("IX",50,11.1,"BB",1,1)=""
^DD("IX",50,11.1,"BB",2,2)=""
^DD("IX",50,11.1,"BB",3,3)=""
^DD("IX",50,11.1,"BB",4,4)=""
^DD("IX",50,11.1,"BB",5,5)=""
^DD("IX",51,0)="364.6^D^XREF BY FORM,PAGE,LINE,COL TO SIMPLIFY DEVELOPMENT^MU^^R^IR^I^364.6^^^^^LS"
^DD("IX",51,1)="S ^IBA(364.6,""D"",X2(1)_"",""_X2(2)_"",""_X2(3)_"",""_X2(4),DA)="""""
^DD("IX",51,1.4)="I X2(1)=""""!(X2(2)="""")!(X2(3)="""")!(X2(4)="""") S X=0"
^DD("IX",51,2)="K ^IBA(364.6,""D"",X1(1)_"",""_X1(2)_"",""_X1(3)_"",""_X1(4),DA)"
^DD("IX",51,2.4)="I X1(1)=""""!(X1(2)="""")!(X1(3)="""")!(X1(4)="""") S X=0"
^DD("IX",51,2.5)="K ^IBA(364.6,""D"")"
^DD("IX",51,11.1,0)="^.114IA^4^4"
^DD("IX",51,11.1,1,0)="1^F^364.6^.01^^1^F"
^DD("IX",51,11.1,2,0)="2^F^364.6^.04^^^F"
^DD("IX",51,11.1,3,0)="3^F^364.6^.05^^^F"
^DD("IX",51,11.1,4,0)="4^F^364.6^.08^^^F"
^DD("IX",51,11.1,"AC",1,1)=""
^DD("IX",51,11.1,"B",1,1)=""
^DD("IX",51,11.1,"B",2,2)=""
^DD("IX",51,11.1,"B",3,3)=""
^DD("IX",51,11.1,"B",4,4)=""
^DD("IX",51,11.1,"BB",1,1)=""
^DD("IX",51,11.1,"BB",2,2)=""
^DD("IX",51,11.1,"BB",3,3)=""
^DD("IX",51,11.1,"BB",4,4)=""
^DD("IX",52,0)="364.7^ALL^Xref contains all local overrides defined for all insurance and type^MU^^F^IR^I^364.7^^^^^S"
^DD("IX",52,1)="S ^IBA(364.7,""ALL"",X2(2),DA)="""""
^DD("IX",52,1.4)="I 'X2(2)!(X2(4)'="""")!(X2(5)'="""")!(X2(3)'=""L"") S X=0"
^DD("IX",52,2)="K ^IBA(364.7,""ALL"",X1(2),DA)"
^DD("IX",52,2.4)="I 'X1(2)!(X1(4)'="""")!(X1(5)'="""")!(X1(3)'=""L"") S X=0"
^DD("IX",52,2.5)="K ^IBA(364.7,""ALL"")"
^DD("IX",52,11.1,0)="^.114IA^5^5"
^DD("IX",52,11.1,1,0)="1^F^364.7^.01^15^^F"
^DD("IX",52,11.1,1,3)=" "
^DD("IX",52,11.1,2,0)="2^C^^^10^1"
^DD("IX",52,11.1,2,1.5)="S X=$P($G(^IBA(364.6,+X(1),0)),U,3)"
^DD("IX",52,11.1,3,0)="3^F^364.7^.02^10^^F"
^DD("IX",52,11.1,3,3)=" "
^DD("IX",52,11.1,4,0)="4^F^364.7^.05^20^^F"
^DD("IX",52,11.1,4,3)=" "
^DD("IX",52,11.1,5,0)="5^F^364.7^.06^20^^F"
^DD("IX",52,11.1,5,3)=" "
^DD("IX",52,11.1,"AC",1,2)=""
^DD("IX",52,11.1,"B",1,1)=""
^DD("IX",52,11.1,"B",2,2)=""
^DD("IX",52,11.1,"B",3,3)=""
^DD("IX",52,11.1,"B",4,4)=""
^DD("IX",52,11.1,"B",5,5)=""
^DD("IX",52,11.1,"BB",1,1)=""
^DD("IX",52,11.1,"BB",2,2)=""
^DD("IX",52,11.1,"BB",3,3)=""
^DD("IX",52,11.1,"BB",4,4)=""
^DD("IX",52,11.1,"BB",5,5)=""
^DD("IX",53,0)="399.042^ADPR^DELETES PROCEDURE ENTRY FOR RX REVENUE CODES^MU^^F^IR^I^399.042^^^^^A"
^DD("IX",53,1)="Q"
^DD("IX",53,2)="I X(2)'=""""&'$D(^TMP(""IBCRRX"",$J)) D DELPR^IBCU1(DA(1),X(2))"
^DD("IX",53,11.1,0)="^.114IA^2^2"
^DD("IX",53,11.1,1,0)="1^F^399.042^.01^^1^F"
^DD("IX",53,11.1,2,0)="2^F^399.042^.15^^^F"
^DD("IX",53,11.1,"AC",1,1)=""
^DD("IX",53,11.1,"B",1,1)=""
^DD("IX",53,11.1,"B",2,2)=""
^DD("IX",53,11.1,"BB",1,1)=""
^DD("IX",53,11.1,"BB",2,2)=""
^DD("IX",54,0)="3.81^AC^Set a local variable when a new member is added.^MU^^F^^I^3.81^^^^^A"
^DD("IX",54,.1,0)="^^8^8^3010212^^^^"
^DD("IX",54,.1,1,0)="This xref only works while under control of one of the MailMan options"
^DD("IX",54,.1,2,0)="to edit mail groups.  Variable XMTRKNEW is set to activate the xref."
^DD("IX",54,.1,3,0)=" "
^DD("IX",54,.1,4,0)="When a new member is added, this xref adds that member to a local array."
^DD("IX",54,.1,5,0)="Once the user is finished editing this mail group, and if new members"
^DD("IX",54,.1,6,0)="have been added, MailMan may use the local array to find and forward"
^DD("IX",54,.1,7,0)="previous mail group messages to the new members, depending on what the"
^DD("IX",54,.1,8,0)="user wants."
^DD("IX",54,1)="S XMNEWMBR(X2(1))="""""
^DD("IX",54,1.4)="S X=$S('$G(XMTRKNEW):0,X1(1)="""":1,1:0)"
^DD("IX",54,2)="Q"
^DD("IX",54,11.1,0)="^.114IA^1^1"
^DD("IX",54,11.1,1,0)="1^F^3.81^.01^^^F"
^DD("IX",54,11.1,"B",1,1)=""
^DD("IX",54,11.1,"BB",1,1)=""
^DD("IX",55,0)="440.5^I^Combined cross-reference for fields #15 and #8.^R^^R^I^I^440.5^^^^^LS"
^DD("IX",55,.1,0)="^^3^3^3001219^"
^DD("IX",55,.1,1,0)="This cross-reference will combine the fields #15 (STATION NUMBER) and #8"
^DD("IX",55,.1,2,0)="(APPROVING OFFICIAL). This cross-reference is used in the routine PRCHURP"
^DD("IX",55,.1,3,0)="for screening purposes."
^DD("IX",55,1)="S ^PRC(440.5,""I"",$E(X(1),1,5),$E(X(2),1,10),DA)="""""
^DD("IX",55,2)="K ^PRC(440.5,""I"",$E(X(1),1,5),$E(X(2),1,10),DA)"
^DD("IX",55,2.5)="K ^PRC(440.5,""I"")"
^DD("IX",55,11.1,0)="^.114IA^2^2"
^DD("IX",55,11.1,1,0)="1^F^440.5^15^5^1^F^STATION NUMBER"
^DD("IX",55,11.1,2,0)="2^F^440.5^8^10^2^F^APPROVING OFFICIAL"
^DD("IX",55,11.1,2,3)=""
^DD("IX",55,11.1,"AC",1,1)=""
^DD("IX",55,11.1,"AC",2,2)=""
^DD("IX",55,11.1,"B",1,1)=""
^DD("IX",55,11.1,"B",2,2)=""
^DD("IX",55,11.1,"BB",1,1)=""
^DD("IX",55,11.1,"BB",2,2)=""
^DD("IX",56,0)="440.5^J^Combined cross-reference for fields #15 and #9.^R^^R^I^I^440.5^^^^^LS"
^DD("IX",56,.1,0)="^^3^3^3001219^"
^DD("IX",56,.1,1,0)="This cross-reference will combine the fields #15 (STATION NUMBER) and #9"
^DD("IX",56,.1,2,0)="(ALTERNATE APPROVING OFFICIAL). This cross-reference is used in the"
^DD("IX",56,.1,3,0)="routine PRCHURP for screening purposes."
^DD("IX",56,1)="S ^PRC(440.5,""J"",$E(X(1),1,5),$E(X(2),1,10),DA)="""""
^DD("IX",56,2)="K ^PRC(440.5,""J"",$E(X(1),1,5),$E(X(2),1,10),DA)"
^DD("IX",56,2.5)="K ^PRC(440.5,""J"")"
^DD("IX",56,11.1,0)="^.114IA^2^2"
^DD("IX",56,11.1,1,0)="1^F^440.5^15^5^1^F^STATION NUMBER"
^DD("IX",56,11.1,2,0)="2^F^440.5^9^10^2^F^ALTERNATE APPROVING OFFICIAL"
^DD("IX",56,11.1,"AC",1,1)=""
^DD("IX",56,11.1,"AC",2,2)=""
^DD("IX",56,11.1,"B",1,1)=""
^DD("IX",56,11.1,"B",2,2)=""
^DD("IX",56,11.1,"BB",1,1)=""
^DD("IX",56,11.1,"BB",2,2)=""
^DD("IX",57,0)="2263^B^Index on Name Field for entire 50 character name^R^^F^IR^I^2263^^^^^LS"
^DD("IX",57,1)="S ^OOPS(2263,""B"",$E(X,1,60),DA)="""""
^DD("IX",57,2)="K ^OOPS(2263,""B"",$E(X,1,60),DA)"
^DD("IX",57,2.5)="K ^OOPS(2263,""B"")"
^DD("IX",57,11.1,0)="^.114IA^1^1"
^DD("IX",57,11.1,1,0)="1^F^2263^.01^60^1^F"
^DD("IX",57,11.1,1,3)=""
^DD("IX",57,11.1,"AC",1,1)=""
^DD("IX",57,11.1,"B",1,1)=""
^DD("IX",57,11.1,"BB",1,1)=""
^DD("IX",58,0)="2263.1^B^Index on the complete Name field (all 60 characters)^R^^F^IR^I^2263.1^^^^^LS"
^DD("IX",58,1)="S ^OOPS(2263.1,""B"",$E(X,1,60),DA)="""""
^DD("IX",58,2)="K ^OOPS(2263.1,""B"",$E(X,1,60),DA)"
^DD("IX",58,2.5)="K ^OOPS(2263.1,""B"")"
^DD("IX",58,11.1,0)="^.114IA^1^1"
^DD("IX",58,11.1,1,0)="1^F^2263.1^.01^60^1^F"
^DD("IX",58,11.1,1,3)=""
^DD("IX",58,11.1,"AC",1,1)=""
^DD("IX",58,11.1,"B",1,1)=""
^DD("IX",58,11.1,"BB",1,1)=""
^DD("IX",59,0)="2263.2^B^Index on complete NAME field (60 characters)^R^^F^IR^I^2263.2^^^^^LS"
^DD("IX",59,1)="S ^OOPS(2263.2,""B"",$E(X,1,60),DA)="""""
^DD("IX",59,2)="K ^OOPS(2263.2,""B"",$E(X,1,60),DA)"
^DD("IX",59,2.5)="K ^OOPS(2263.2,""B"")"
^DD("IX",59,11.1,0)="^.114IA^1^1"
^DD("IX",59,11.1,1,0)="1^F^2263.2^.01^60^1^F"
^DD("IX",59,11.1,1,3)=""
^DD("IX",59,11.1,"AC",1,1)=""
^DD("IX",59,11.1,"B",1,1)=""
^DD("IX",59,11.1,"BB",1,1)=""
^DD("IX",60,0)="2263.3^B^Name index on complete name field^R^^F^IR^I^2263.3^^^^^LS"
^DD("IX",60,1)="S ^OOPS(2263.3,""B"",$E(X,1,70),DA)="""""
^DD("IX",60,2)="K ^OOPS(2263.3,""B"",$E(X,1,70),DA)"
^DD("IX",60,2.5)="K ^OOPS(2263.3,""B"")"
^DD("IX",60,11.1,0)="^.114IA^1^1"
^DD("IX",60,11.1,1,0)="1^F^2263.3^.01^70^1^F"
^DD("IX",60,11.1,1,3)=""
^DD("IX",60,11.1,"AC",1,1)=""
^DD("IX",60,11.1,"B",1,1)=""
^DD("IX",60,11.1,"BB",1,1)=""
^DD("IX",61,0)="2263.7^C^Store the Union Name in uppercase for insensitive lookup^MU^^F^IR^I^2263.7^^^^^LS"
^DD("IX",61,1)="S ^OOPS(2263.7,""C"",X,DA)="""""
^DD("IX",61,2)="K ^OOPS(2263.7,""C"",X,DA)"
^DD("IX",61,2.5)="K ^OOPS(2263.7,""C"")"
^DD("IX",61,11.1,0)="^.114IA^1^1"
^DD("IX",61,11.1,1,0)="1^F^2263.7^.01^30^1^F^Union Name"
^DD("IX",61,11.1,1,2)="S X=$$UP^XLFSTR($E(X,1,30))"
^DD("IX",61,11.1,1,3)=""
^DD("IX",61,11.1,"AC",1,1)=""
^DD("IX",61,11.1,"B",1,1)=""
^DD("IX",61,11.1,"BB",1,1)=""
^DD("IX",62,0)="8927.1^B^UNIQUE NAME XREF^R^^F^IR^I^8927.1^^^^^LS"
^DD("IX",62,.1,0)="^^1^1^3000907^^"
^DD("IX",62,.1,1,0)="This cross-reference is used to guarantee a unique name."
^DD("IX",62,1)="S ^TIU(8927.1,""B"",$E(X,1,60),DA)="""""
^DD("IX",62,2)="K ^TIU(8927.1,""B"",$E(X,1,60),DA)"
^DD("IX",62,2.5)="K ^TIU(8927.1,""B"")"
^DD("IX",62,11.1,0)="^.114IA^1^1"
^DD("IX",62,11.1,1,0)="1^F^8927.1^.01^60^1^F"
^DD("IX",62,11.1,"AC",1,1)=""
^DD("IX",62,11.1,"B",1,1)=""
^DD("IX",62,11.1,"BB",1,1)=""
^DD("IX",63,0)="661.7^XSLHIDS^Index on Station, Location, HCPCS, Item, Date&Time, Seq.^R^^R^IR^I^661.7^^^^^LS"
^DD("IX",63,1)="S ^RMPR(661.7,""XSLHIDS"",X(1),X(2),$E(X(3),1,30),X(4),X(5),X(6),DA)="""""
^DD("IX",63,2)="K ^RMPR(661.7,""XSLHIDS"",X(1),X(2),$E(X(3),1,30),X(4),X(5),X(6),DA)"
^DD("IX",63,2.5)="K ^RMPR(661.7,""XSLHIDS"")"
^DD("IX",63,11.1,0)="^.114IA^6^6"
^DD("IX",63,11.1,1,0)="1^F^661.7^4^^1^F"
^DD("IX",63,11.1,1,3)=""
^DD("IX",63,11.1,2,0)="2^F^661.7^5^^2^F"
^DD("IX",63,11.1,2,3)=""
^DD("IX",63,11.1,3,0)="3^F^661.7^.01^30^3^F"
^DD("IX",63,11.1,3,3)=""
^DD("IX",63,11.1,4,0)="4^F^661.7^3^^4^F"
^DD("IX",63,11.1,4,3)=""
^DD("IX",63,11.1,5,0)="5^F^661.7^1^^5^F"
^DD("IX",63,11.1,5,3)=""
^DD("IX",63,11.1,6,0)="6^F^661.7^2^^6^F"
^DD("IX",63,11.1,6,3)=""
^DD("IX",63,11.1,"AC",1,1)=""
^DD("IX",63,11.1,"AC",2,2)=""
^DD("IX",63,11.1,"AC",3,3)=""
^DD("IX",63,11.1,"AC",4,4)=""
^DD("IX",63,11.1,"AC",5,5)=""
^DD("IX",63,11.1,"AC",6,6)=""
^DD("IX",63,11.1,"B",1,1)=""
^DD("IX",63,11.1,"B",2,2)=""
^DD("IX",63,11.1,"B",3,3)=""
^DD("IX",63,11.1,"B",4,4)=""
^DD("IX",63,11.1,"B",5,5)=""
^DD("IX",63,11.1,"B",6,6)=""
^DD("IX",63,11.1,"BB",1,1)=""
^DD("IX",63,11.1,"BB",2,2)=""
^DD("IX",63,11.1,"BB",3,3)=""
^DD("IX",63,11.1,"BB",4,4)=""
^DD("IX",63,11.1,"BB",5,5)=""
^DD("IX",63,11.1,"BB",6,6)=""
^DD("IX",64,0)="354.7^AC^This index will indicate what patients have reached their cap^R^^R^IR^W^354.701^^^^^S"
^DD("IX",64,1)="S ^IBAM(354.7,""AC"",X(1),X(2),DA(1),DA)="""""
^DD("IX",64,2)="K ^IBAM(354.7,""AC"",X(1),X(2),DA(1),DA)"
^DD("IX",64,2.5)="K ^IBAM(354.7,""AC"")"
^DD("IX",64,11.1,0)="^.114IA^2^2"
^DD("IX",64,11.1,1,0)="1^F^354.701^.01^^1^F"
^DD("IX",64,11.1,1,3)=""
^DD("IX",64,11.1,2,0)="2^F^354.701^.03^^2^F"
^DD("IX",64,11.1,2,3)=""
^DD("IX",64,11.1,"AC",1,1)=""
^DD("IX",64,11.1,"AC",2,2)=""
^DD("IX",64,11.1,"B",1,1)=""
^DD("IX",64,11.1,"B",2,2)=""
^DD("IX",64,11.1,"BB",1,1)=""
^DD("IX",64,11.1,"BB",2,2)=""
^DD("IX",65,0)="354.71^AD^This is the main transaction sorting cross reference.^R^^R^IR^I^354.71^^^^^S"
^DD("IX",65,.1,0)="^^2^2^3010216^"
^DD("IX",65,.1,1,0)="This is used to sort all transactions by patient, and then by the"
^DD("IX",65,.1,2,0)="month/year they apply to."
^DD("IX",65,1)="S ^IBAM(354.71,""AD"",X(1),X(2),DA)="""""
^DD("IX",65,2)="K ^IBAM(354.71,""AD"",X(1),X(2),DA)"
^DD("IX",65,2.5)="K ^IBAM(354.71,""AD"")"
^DD("IX",65,11.1,0)="^.114IA^2^2"
^DD("IX",65,11.1,1,0)="1^F^354.71^.02^^1^F"
^DD("IX",65,11.1,2,0)="2^F^354.71^.03^^2^F"
^DD("IX",65,11.1,2,2)="S X=$E(X,1,5)_""00"""
^DD("IX",65,11.1,"AC",1,1)=""
^DD("IX",65,11.1,"AC",2,2)=""
^DD("IX",65,11.1,"B",1,1)=""
^DD("IX",65,11.1,"B",2,2)=""
^DD("IX",65,11.1,"BB",1,1)=""
^DD("IX",65,11.1,"BB",2,2)=""
^DD("IX",66,0)="161.45^C^Index of file and old iens^R^^R^IR^I^161.45^^^^^LS"
^DD("IX",66,1)="S ^FBAA(161.45,""C"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",66,2)="K ^FBAA(161.45,""C"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",66,2.5)="K ^FBAA(161.45,""C"")"
^DD("IX",66,11.1,0)="^.114IA^2^2"
^DD("IX",66,11.1,1,0)="1^F^161.45^.01^30^1^F"
^DD("IX",66,11.1,1,3)=""
^DD("IX",66,11.1,2,0)="2^F^161.45^1^30^2^F"
^DD("IX",66,11.1,2,3)=""
^DD("IX",66,11.1,"AC",1,1)=""
^DD("IX",66,11.1,"AC",2,2)=""
^DD("IX",66,11.1,"B",1,1)=""
^DD("IX",66,11.1,"B",2,2)=""
^DD("IX",66,11.1,"BB",1,1)=""
^DD("IX",66,11.1,"BB",2,2)=""
^DD("IX",67,0)="162.1^AA^Index of prescriptions on invoice by date certified and patient.^R^^R^IR^W^162.11^^^^^S"
^DD("IX",67,.1,0)="^^7^7^3000131^"
^DD("IX",67,.1,1,0)="The AA cross reference is a whole file compound cross reference on fields"
^DD("IX",67,.1,2,0)="within the PRESCRIPTION NUMBER subfile. It is defined as"
^DD("IX",67,.1,3,0)="   FBAA(162.1,""AA"",date_certified,patient,da(1),da)"
^DD("IX",67,.1,4,0)=" where date_certified is the DATE CERTIFIED FOR PAYMENT (#15)"
^DD("IX",67,.1,5,0)="       patient        is the PATIENT (4)"
^DD("IX",67,.1,6,0)="       da(1)          is the IEN of the FEE BASIS PHARMACY INVOICE"
^DD("IX",67,.1,7,0)="       da             is the IEN of the PRESCRIPTION NUMBER multiple"
^DD("IX",67,1)="S ^FBAA(162.1,""AA"",X(1),X(2),DA(1),DA)="""""
^DD("IX",67,2)="K ^FBAA(162.1,""AA"",X(1),X(2),DA(1),DA)"
^DD("IX",67,2.5)="K ^FBAA(162.1,""AA"")"
^DD("IX",67,11.1,0)="^.114IA^2^2"
^DD("IX",67,11.1,1,0)="1^F^162.11^15^^1^F"
^DD("IX",67,11.1,2,0)="2^F^162.11^4^^2^F"
^DD("IX",67,11.1,"AC",1,1)=""
^DD("IX",67,11.1,"AC",2,2)=""
^DD("IX",67,11.1,"B",1,1)=""
^DD("IX",67,11.1,"B",2,2)=""
^DD("IX",67,11.1,"BB",1,1)=""
^DD("IX",67,11.1,"BB",2,2)=""
^DD("IX",68,0)="162.1^AG^Index of RXs on invoice by vendor, date entered, patient, and suspend code.^R^^R^IR^W^162.11^^^^^S"
^DD("IX",68,.1,0)="^^11^11^3001024^"
^DD("IX",68,.1,1,0)="This cross-reference is used for date sort when printing suspense letters."
^DD("IX",68,.1,2,0)="The ""AG"" cross-reference is a whole file compound cross reference on"
^DD("IX",68,.1,3,0)="fields in the FEE BASIS PHARMACY INVOICE file and the PRESCRIPTION NUMBER"
^DD("IX",68,.1,4,0)="subfile. It is defined as"
^DD("IX",68,.1,5,0)="   ^FBAA(162.1,""AG"",vendor,entered_date,patient,suspend_code,da(1),da)"
^DD("IX",68,.1,6,0)=" where vendor       is the VENDOR (#3) in file 162.1"
^DD("IX",68,.1,7,0)="       entered_date is the DATE INVOICE ENTERED (#1.5) in file 162.1"
^DD("IX",68,.1,8,0)="       patient      is the PATIENT (#4) in subfile 162.11"
^DD("IX",68,.1,9,0)="       suspend_code is the SUSPEND CODE (#7) in subfile 162.11"
^DD("IX",68,.1,10,0)="       da(1)        is the IEN of the FEE BASIS PHARMACY INVOICE entry"
^DD("IX",68,.1,11,0)="       da           is the IEN of the PRESCRIPTION NUMBER multiple"
^DD("IX",68,1)="S ^FBAA(162.1,""AG"",X(1),X(2),X(3),X(4),DA(1),DA)="""""
^DD("IX",68,2)="K ^FBAA(162.1,""AG"",X(1),X(2),X(3),X(4),DA(1),DA)"
^DD("IX",68,2.5)="K ^FBAA(162.1,""AG"")"
^DD("IX",68,11.1,0)="^.114IA^4^4"
^DD("IX",68,11.1,1,0)="1^C^^^^1"
^DD("IX",68,11.1,1,1.5)="S X=$P($G(^FBAA(162.1,DA(1),0)),U,4)"
^DD("IX",68,11.1,2,0)="2^C^^^^2"
^DD("IX",68,11.1,2,1.5)="S X=$P($G(^FBAA(162.1,DA(1),0)),U,8)"
^DD("IX",68,11.1,3,0)="3^F^162.11^4^^3^F"
^DD("IX",68,11.1,4,0)="4^F^162.11^7^^4^F"
^DD("IX",68,11.1,"AC",1,1)=""
^DD("IX",68,11.1,"AC",2,2)=""
^DD("IX",68,11.1,"AC",3,3)=""
^DD("IX",68,11.1,"AC",4,4)=""
^DD("IX",68,11.1,"B",1,1)=""
^DD("IX",68,11.1,"B",2,2)=""
^DD("IX",68,11.1,"B",3,3)=""
^DD("IX",68,11.1,"B",4,4)=""
^DD("IX",68,11.1,"BB",1,1)=""
^DD("IX",68,11.1,"BB",2,2)=""
^DD("IX",68,11.1,"BB",3,3)=""
^DD("IX",68,11.1,"BB",4,4)=""
^DD("IX",69,0)="162.1^AJ^Index of prescriptions on invoice by batch number and patient.^R^^R^IR^W^162.11^^^^^S"
^DD("IX",69,.1,0)="^^7^7^3000131^"
^DD("IX",69,.1,1,0)="The AJ cross reference is a whole file compound cross reference on fields"
^DD("IX",69,.1,2,0)="in the PRESCRIPTION NUMBER subfile. It is defined as"
^DD("IX",69,.1,3,0)="   FBAA(162.1,""AJ"",batch_number,patient,da(1),da)"
^DD("IX",69,.1,4,0)=" where batch_number is the BATCH NUMBER (#13)"
^DD("IX",69,.1,5,0)="       patient      is the PATIENT (#4)"
^DD("IX",69,.1,6,0)="       da(1)        is the IEN of the FEE BASIS PHARMACY INVOICE"
^DD("IX",69,.1,7,0)="       da           is the IEN of the PRESCRIPTION NUMBER multiple"
^DD("IX",69,1)="S ^FBAA(162.1,""AJ"",X(1),X(2),DA(1),DA)="""""
^DD("IX",69,2)="K ^FBAA(162.1,""AJ"",X(1),X(2),DA(1),DA)"
^DD("IX",69,2.5)="K ^FBAA(162.1,""AJ"")"
^DD("IX",69,11.1,0)="^.114IA^2^2"
^DD("IX",69,11.1,1,0)="1^F^162.11^13^^1^F"
^DD("IX",69,11.1,2,0)="2^F^162.11^4^^2^F"
^DD("IX",69,11.1,"AC",1,1)=""
^DD("IX",69,11.1,"AC",2,2)=""
^DD("IX",69,11.1,"B",1,1)=""
^DD("IX",69,11.1,"B",2,2)=""
^DD("IX",69,11.1,"BB",1,1)=""
^DD("IX",69,11.1,"BB",2,2)=""
^DD("IX",70,0)="162.1^AK^Index of RXs on invoice by vendor, date filled, and patient.^R^^R^IR^W^162.11^^^^^S"
^DD("IX",70,.1,0)="^^12^12^3001024^^"
^DD("IX",70,.1,1,0)="The ""AK"" cross reference is a whole file compound cross reference on"
^DD("IX",70,.1,2,0)="fields in the FEE BASIS PHARMACY INVOICE file and the PRESCRIPTION NUMBER"
^DD("IX",70,.1,3,0)="subfile. It is defined as"
^DD("IX",70,.1,4,0)="   ^FBAA(162.1,""AK"",vendor,9999999-date_filled,patient,da(1),da)"
^DD("IX",70,.1,5,0)=" where vendor      is the VENDOR (#3) in file 162.1"
^DD("IX",70,.1,6,0)="       date_filled is the DATE PRESCRIPTION FILLED (#2) in subfile 162.11"
^DD("IX",70,.1,7,0)="       patient     is the PATIENT (4) in subfile 162.11"
^DD("IX",70,.1,8,0)="       da(1)       is the IEN of the FEE BASIS PHARMACY INVOICE"
^DD("IX",70,.1,9,0)="       da          is the IEN of the PRESCRIPTION NUMBER multiple"
^DD("IX",70,.1,10,0)=" "
^DD("IX",70,.1,11,0)="The ""AK"" cross-reference should only exist when the BATCH NUMBER (#13)"
^DD("IX",70,.1,12,0)="field in subfile 162.11 contains data."
^DD("IX",70,1)="S ^FBAA(162.1,""AK"",X(1),X(2),X(3),DA(1),DA)="""""
^DD("IX",70,1.4)="S X=$S(X(4)]"""":1,1:0)"
^DD("IX",70,2)="K ^FBAA(162.1,""AK"",X(1),X(2),X(3),DA(1),DA)"
^DD("IX",70,2.4)="S X=$S(X(4)]"""":1,1:0)"
^DD("IX",70,2.5)="K ^FBAA(162.1,""AK"")"
^DD("IX",70,11.1,0)="^.114IA^4^4"
^DD("IX",70,11.1,1,0)="1^C^^^^1"
^DD("IX",70,11.1,1,1.5)="S X=$P($G(^FBAA(162.1,DA(1),0)),U,4)"
^DD("IX",70,11.1,2,0)="2^F^162.11^2^^2^F"
^DD("IX",70,11.1,2,2)="S X=9999999-X"
^DD("IX",70,11.1,3,0)="3^F^162.11^4^^3^F"
^DD("IX",70,11.1,4,0)="4^F^162.11^13^^^F"
^DD("IX",70,11.1,"AC",1,1)=""
^DD("IX",70,11.1,"AC",2,2)=""
^DD("IX",70,11.1,"AC",3,3)=""
^DD("IX",70,11.1,"B",1,1)=""
^DD("IX",70,11.1,"B",2,2)=""
^DD("IX",70,11.1,"B",3,3)=""
^DD("IX",70,11.1,"B",4,4)=""
^DD("IX",70,11.1,"BB",1,1)=""
^DD("IX",70,11.1,"BB",2,2)=""
^DD("IX",70,11.1,"BB",3,3)=""
^DD("IX",70,11.1,"BB",4,4)=""
^DD("IX",71,0)="162.2^AI^Compound cross-reference on vendor, date, veteran, and suspense code.^R^^R^IR^I^162.2^^^^^S"
^DD("IX",71,.1,0)="^^8^8^3000131^"
^DD("IX",71,.1,1,0)="The ""AI"" cross-reference is a compound cross-reference on fields in the"
^DD("IX",71,.1,2,0)="FEE NOTIFICATION/REQUEST file. It is defined as"
^DD("IX",71,.1,3,0)="  ^FBAA(162.2,vendor,date,veteran,suspense_code,da)"
^DD("IX",71,.1,4,0)=" where vendor        is the VENDOR (#1)"
^DD("IX",71,.1,5,0)="       date          is the DATE OF MEDICAL DETERMINATION (#12)"
^DD("IX",71,.1,6,0)="       veteran       is the VETERAN (#3)"
^DD("IX",71,.1,7,0)="       suspense_code is the SUSPENSE CODE (#14)"
^DD("IX",71,.1,8,0)="       da            is the IEN of the FEE NOTIFICATION/REQUEST"
^DD("IX",71,1)="S ^FBAA(162.2,""AI"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",71,2)="K ^FBAA(162.2,""AI"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",71,2.5)="K ^FBAA(162.2,""AI"")"
^DD("IX",71,11.1,0)="^.114IA^4^4"
^DD("IX",71,11.1,1,0)="1^F^162.2^1^^1^F"
^DD("IX",71,11.1,2,0)="2^F^162.2^12^^2^F"
^DD("IX",71,11.1,3,0)="3^F^162.2^3^^3^F"
^DD("IX",71,11.1,4,0)="4^F^162.2^14^^4^F"
^DD("IX",71,11.1,"AC",1,1)=""
^DD("IX",71,11.1,"AC",2,2)=""
^DD("IX",71,11.1,"AC",3,3)=""
^DD("IX",71,11.1,"AC",4,4)=""
^DD("IX",71,11.1,"B",1,1)=""
^DD("IX",71,11.1,"B",2,2)=""
^DD("IX",71,11.1,"B",3,3)=""
^DD("IX",71,11.1,"B",4,4)=""
^DD("IX",71,11.1,"BB",1,1)=""
^DD("IX",71,11.1,"BB",2,2)=""
^DD("IX",71,11.1,"BB",3,3)=""
^DD("IX",71,11.1,"BB",4,4)=""
^DD("IX",72,0)="162.3^AD^Index of patients with an active admission.^R^^R^IR^I^162.3^^^^^S"
^DD("IX",72,.1,0)="^^8^8^3000131^"
^DD("IX",72,.1,1,0)="The ""AD"" cross reference is a compound cross-reference on fields in the"
^DD("IX",72,.1,2,0)="FEE CNH ACTIVITY file. It is defined as"
^DD("IX",72,.1,3,0)="   ^FBAACNH(""AD"",veteran,da)"
^DD("IX",72,.1,4,0)=" where veteran is the VETERAN (#1)"
^DD("IX",72,.1,5,0)="       da      is the FEE CNH ACTIVITY entry"
^DD("IX",72,.1,6,0)=" "
^DD("IX",72,.1,7,0)="The ""AD"" cross-reference should only exist when the ACTIVE ADMISSION (#3)"
^DD("IX",72,.1,8,0)="field of the entry is equal to ""Y""."
^DD("IX",72,1)="S ^FBAACNH(""AD"",X(1),DA)="""""
^DD("IX",72,1.4)="S X=$S(X(2)=""Y"":1,1:0)"
^DD("IX",72,2)="K ^FBAACNH(""AD"",X(1),DA)"
^DD("IX",72,2.5)="K ^FBAACNH(""AD"")"
^DD("IX",72,11.1,0)="^.114IA^2^2"
^DD("IX",72,11.1,1,0)="1^F^162.3^1^^1^F"
^DD("IX",72,11.1,2,0)="2^F^162.3^3^^^F"
^DD("IX",72,11.1,"AC",1,1)=""
^DD("IX",72,11.1,"B",1,1)=""
^DD("IX",72,11.1,"B",2,2)=""
^DD("IX",72,11.1,"BB",1,1)=""
^DD("IX",72,11.1,"BB",2,2)=""
^DD("IX",73,0)="162.5^AA^Index of vendor, veteran, treatment from date.^R^^R^IR^I^162.5^^^^^S"
^DD("IX",73,.1,0)="^^7^7^3000131^"
^DD("IX",73,.1,1,0)="The ""AA"" cross reference is a compound cross reference on fields in the"
^DD("IX",73,.1,2,0)="FEE BASIS INVOICE file. It is defined as"
^DD("IX",73,.1,3,0)="   ^FBAAI(""AA"",vendor,veteran,$E($P(date,"".""),1,5),da)"
^DD("IX",73,.1,4,0)=" where vendor  is the VENDOR (#2)"
^DD("IX",73,.1,5,0)="       veteran is the VETERAN (#3)"
^DD("IX",73,.1,6,0)="       date    is the TREATMENT FROM DATE (#5)"
^DD("IX",73,.1,7,0)="       da      is the IEN of the FEE BASIS INVOICE entry"
^DD("IX",73,1)="S ^FBAAI(""AA"",X(1),X(2),X(3),DA)="""""
^DD("IX",73,2)="K ^FBAAI(""AA"",X(1),X(2),X(3),DA)"
^DD("IX",73,2.5)="K ^FBAAI(""AA"")"
^DD("IX",73,11.1,0)="^.114IA^3^3"
^DD("IX",73,11.1,1,0)="1^F^162.5^2^^1^F"
^DD("IX",73,11.1,2,0)="2^F^162.5^3^^2^F"
^DD("IX",73,11.1,3,0)="3^F^162.5^5^^3^F"
^DD("IX",73,11.1,3,2)="S X=$E($P(X,"".""),1,5)"
^DD("IX",73,11.1,3,3)="S X=X"
^DD("IX",73,11.1,"AC",1,1)=""
^DD("IX",73,11.1,"AC",2,2)=""
^DD("IX",73,11.1,"AC",3,3)=""
^DD("IX",73,11.1,"B",1,1)=""
^DD("IX",73,11.1,"B",2,2)=""
^DD("IX",73,11.1,"B",3,3)=""
^DD("IX",73,11.1,"BB",1,1)=""
^DD("IX",73,11.1,"BB",2,2)=""
^DD("IX",73,11.1,"BB",3,3)=""
^DD("IX",74,0)="162.5^AE^Index of batch number, veteran^R^^R^IR^I^162.5^^^^^S"
^DD("IX",74,.1,0)="^^6^6^3000131^"
^DD("IX",74,.1,1,0)="The ""AE"" cross reference is a compound cross reference on fields in the"
^DD("IX",74,.1,2,0)="FEE BASIS INVOICE file. It is defined as"
^DD("IX",74,.1,3,0)="   ^FBAAI(""AE"",batch,veteran,da)"
^DD("IX",74,.1,4,0)=" where batch   is the BATCH NUMBER (#20)"
^DD("IX",74,.1,5,0)="       veteran is the VETERAN (#3)"
^DD("IX",74,.1,6,0)="       da      is the IEN of the FEE BASIS INVOICE entry"
^DD("IX",74,1)="S ^FBAAI(""AE"",X(1),X(2),DA)="""""
^DD("IX",74,2)="K ^FBAAI(""AE"",X(1),X(2),DA)"
^DD("IX",74,2.5)="K ^FBAAI(""AE"")"
^DD("IX",74,11.1,0)="^.114IA^2^2"
^DD("IX",74,11.1,1,0)="1^F^162.5^20^^1^F"
^DD("IX",74,11.1,2,0)="2^F^162.5^3^^2^F"
^DD("IX",74,11.1,"AC",1,1)=""
^DD("IX",74,11.1,"AC",2,2)=""
^DD("IX",74,11.1,"B",1,1)=""
^DD("IX",74,11.1,"B",2,2)=""
^DD("IX",74,11.1,"BB",1,1)=""
^DD("IX",74,11.1,"BB",2,2)=""
^DD("IX",75,0)="162.5^AI^Index of vendor, invoice date, veteran, suspend code.^R^^R^IR^I^162.5^^^^^S"
^DD("IX",75,.1,0)="^^9^9^3000131^"
^DD("IX",75,.1,1,0)="The ""AI"" cross-reference is used for printing suspense letters for a date"
^DD("IX",75,.1,2,0)="range. It is a compound cross reference on fields in the FEE BASIS INVOICE"
^DD("IX",75,.1,3,0)="file. It is defined as"
^DD("IX",75,.1,4,0)="   ^FBAAI(""AI"",vendor,invoice_date,veteran,suspend_code,da)"
^DD("IX",75,.1,5,0)=" where vendor       is the VENDOR (#2)"
^DD("IX",75,.1,6,0)="       invoice_date is the INVOICE DATE RECEIVED (#1)"
^DD("IX",75,.1,7,0)="       veteran      is the VETERAN (#3)"
^DD("IX",75,.1,8,0)="       suspend_code is the SUSPEND CODE (#10)"
^DD("IX",75,.1,9,0)="       da           is the IEN of the FEE BASIS INVOICE"
^DD("IX",75,1)="S ^FBAAI(""AI"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",75,2)="K ^FBAAI(""AI"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",75,2.5)="K ^FBAAI(""AI"")"
^DD("IX",75,11.1,0)="^.114IA^4^4"
^DD("IX",75,11.1,1,0)="1^F^162.5^2^^1^F"
^DD("IX",75,11.1,1,3)=""
^DD("IX",75,11.1,2,0)="2^F^162.5^1^^2^F"
^DD("IX",75,11.1,2,3)=""
^DD("IX",75,11.1,3,0)="3^F^162.5^3^^3^F"
^DD("IX",75,11.1,3,3)=""
^DD("IX",75,11.1,4,0)="4^F^162.5^10^^4^F"
^DD("IX",75,11.1,4,3)=""
^DD("IX",75,11.1,"AC",1,1)=""
^DD("IX",75,11.1,"AC",2,2)=""
^DD("IX",75,11.1,"AC",3,3)=""
^DD("IX",75,11.1,"AC",4,4)=""
^DD("IX",75,11.1,"B",1,1)=""
^DD("IX",75,11.1,"B",2,2)=""
^DD("IX",75,11.1,"B",3,3)=""
^DD("IX",75,11.1,"B",4,4)=""
^DD("IX",75,11.1,"BB",1,1)=""
^DD("IX",75,11.1,"BB",2,2)=""
^DD("IX",75,11.1,"BB",3,3)=""
^DD("IX",75,11.1,"BB",4,4)=""
^DD("IX",76,0)="2005^ROUTE^Which files were routed to where^R^^R^IR^W^2005.0106^^^^^LS"
^DD("IX",76,.1,0)="^^4^4^3000307^"
^DD("IX",76,.1,1,0)="This cross reference keeps track of which files were routed"
^DD("IX",76,.1,2,0)="to which remote locations."
^DD("IX",76,.1,3,0)="This cross reference is automatically cleaned up when entries are"
^DD("IX",76,.1,4,0)="removed from this multiple during the daily purge for the remote location."
^DD("IX",76,1)="S ^MAG(2005,""ROUTE"",X(1),X(2),DA(1),DA)="""""
^DD("IX",76,2)="K ^MAG(2005,""ROUTE"",X(1),X(2),DA(1),DA)"
^DD("IX",76,2.5)="K ^MAG(2005,""ROUTE"")"
^DD("IX",76,11.1,0)="^.114IA^2^2"
^DD("IX",76,11.1,1,0)="1^F^2005.0106^2^^1^F"
^DD("IX",76,11.1,1,3)=""
^DD("IX",76,11.1,2,0)="2^F^2005.0106^.01^^2^F"
^DD("IX",76,11.1,2,3)=""
^DD("IX",76,11.1,"AC",1,1)=""
^DD("IX",76,11.1,"AC",2,2)=""
^DD("IX",76,11.1,"B",1,1)=""
^DD("IX",76,11.1,"B",2,2)=""
^DD("IX",76,11.1,"BB",1,1)=""
^DD("IX",76,11.1,"BB",2,2)=""
^DD("IX",77,0)="2005.1^ROUTE^Which files were routed to where^R^^R^IR^W^2005.1106^^^^^LS"
^DD("IX",77,.1,0)="^^4^4^3001107^"
^DD("IX",77,.1,1,0)="This cross reference keeps track of which files were routed"
^DD("IX",77,.1,2,0)="to which remote locations."
^DD("IX",77,.1,3,0)="This cross reference is automatically cleaned up when entries are"
^DD("IX",77,.1,4,0)="removed from this multiple during the daily purge for the remote location."
^DD("IX",77,1)="S ^MAG(2005.1,""ROUTE"",X(1),X(2),DA(1),DA)="""""
^DD("IX",77,2)="K ^MAG(2005.1,""ROUTE"",X(1),X(2),DA(1),DA)"
^DD("IX",77,2.5)="K ^MAG(2005.1,""ROUTE"")"
^DD("IX",77,11.1,0)="^.114IA^2^2"
^DD("IX",77,11.1,1,0)="1^F^2005.1106^2^^1^F"
^DD("IX",77,11.1,1,3)=""
^DD("IX",77,11.1,2,0)="2^F^2005.1106^.01^^2^F"
^DD("IX",77,11.1,2,3)=""
^DD("IX",77,11.1,"AC",1,1)=""
^DD("IX",77,11.1,"AC",2,2)=""
^DD("IX",77,11.1,"B",1,1)=""
^DD("IX",77,11.1,"B",2,2)=""
^DD("IX",77,11.1,"BB",1,1)=""
^DD("IX",77,11.1,"BB",2,2)=""
^DD("IX",78,0)="458^AEA^All Employee Action (AEA) Part time physician incompletes^R^^R^IR^W^458.02^^^^^S"
^DD("IX",78,.1,0)="^^3^3^3040923^"
^DD("IX",78,.1,1,0)="This index can be used to quickly find all of a part time"
^DD("IX",78,.1,2,0)="physician's ESR days that have a status that requires action on "
^DD("IX",78,.1,3,0)="their part. (not started, pending, resubmit)"
^DD("IX",78,1)="S ^PRST(458,""AEA"",X(1),X(2),X(3),DA(2),DA(1),DA)="""""
^DD("IX",78,1.4)="S X=$S($G(X(4))<4&($G(X(4))>0):1,1:0)"
^DD("IX",78,2)="K ^PRST(458,""AEA"",X(1),X(2),X(3),DA(2),DA(1),DA)"
^DD("IX",78,2.4)=""
^DD("IX",78,2.5)="K ^PRST(458,""AEA"")"
^DD("IX",78,11.1,0)="^.114IA^4^4"
^DD("IX",78,11.1,1,0)="1^C^^^^1"
^DD("IX",78,11.1,1,1.5)="S X=DA(1)"
^DD("IX",78,11.1,2,0)="2^C^^^^2"
^DD("IX",78,11.1,2,1.5)="S X=$P(^PRST(458,DA(2),0),""^"")"
^DD("IX",78,11.1,3,0)="3^F^458.02^.01^^3^F"
^DD("IX",78,11.1,4,0)="4^F^458.02^146^^^F"
^DD("IX",78,11.1,"AC",1,1)=""
^DD("IX",78,11.1,"AC",2,2)=""
^DD("IX",78,11.1,"AC",3,3)=""
^DD("IX",78,11.1,"B",1,1)=""
^DD("IX",78,11.1,"B",2,2)=""
^DD("IX",78,11.1,"B",3,3)=""
^DD("IX",78,11.1,"B",4,4)=""
^DD("IX",78,11.1,"BB",1,1)=""
^DD("IX",78,11.1,"BB",2,2)=""
^DD("IX",78,11.1,"BB",3,3)=""
^DD("IX",78,11.1,"BB",4,4)=""
^DD("IX",79,0)="661.9^ASHID^STATION & HCPCS & HCPCS ITEM & DATE^R^^R^IR^I^661.9^^^^^S"
^DD("IX",79,1)="S ^RMPR(661.9,""ASHID"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",79,2)="K ^RMPR(661.9,""ASHID"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",79,2.5)="K ^RMPR(661.9,""ASHID"")"
^DD("IX",79,11.1,0)="^.114IA^4^4"
^DD("IX",79,11.1,1,0)="1^F^661.9^4^^1^F"
^DD("IX",79,11.1,1,3)=""
^DD("IX",79,11.1,2,0)="2^F^661.9^1^^2^F"
^DD("IX",79,11.1,2,3)=""
^DD("IX",79,11.1,3,0)="3^F^661.9^2^^3^F"
^DD("IX",79,11.1,3,3)=""
^DD("IX",79,11.1,4,0)="4^F^661.9^.01^^4^F"
^DD("IX",79,11.1,4,3)=""
^DD("IX",79,11.1,"AC",1,1)=""
^DD("IX",79,11.1,"AC",2,2)=""
^DD("IX",79,11.1,"AC",3,3)=""
^DD("IX",79,11.1,"AC",4,4)=""
^DD("IX",79,11.1,"B",1,1)=""
^DD("IX",79,11.1,"B",2,2)=""
^DD("IX",79,11.1,"B",3,3)=""
^DD("IX",79,11.1,"B",4,4)=""
^DD("IX",79,11.1,"BB",1,1)=""
^DD("IX",79,11.1,"BB",2,2)=""
^DD("IX",79,11.1,"BB",3,3)=""
^DD("IX",79,11.1,"BB",4,4)=""
^DD("IX",80,0)="59.9^C^(PATIENT,DATE/TIME,DA) XREF^R^^R^IR^I^59.9^^^^^LS"
^DD("IX",80,1)="S ^PSUDEM(""C"",X(1),X(2),DA)="""""
^DD("IX",80,2)="K ^PSUDEM(""C"",X(1),X(2),DA)"
^DD("IX",80,2.5)="K ^PSUDEM(""C"")"
^DD("IX",80,11.1,0)="^.114IA^2^2"
^DD("IX",80,11.1,1,0)="1^F^59.9^.02^^1^F"
^DD("IX",80,11.1,2,0)="2^F^59.9^.01^^2^F"
^DD("IX",80,11.1,"AC",1,1)=""
^DD("IX",80,11.1,"AC",2,2)=""
^DD("IX",80,11.1,"B",1,1)=""
^DD("IX",80,11.1,"B",2,2)=""
^DD("IX",80,11.1,"BB",1,1)=""
^DD("IX",80,11.1,"BB",2,2)=""
^DD("IX",81,0)="123^AE^Index by SERVICE, STATUS, DATE OF REQUEST^R^^R^IR^I^123^^^^^S"
^DD("IX",81,.1,0)="^^2^2^3050427"
^DD("IX",81,.1,1,0)="This cross reference is used for services to see all consults by service,"
^DD("IX",81,.1,2,0)="OE/RR status and Date of Request."
^DD("IX",81,1)="S ^GMR(123,""AE"",$E(X(1),1,5),$E(X(2),1,5),$E(X(3),1,20),DA)="""""
^DD("IX",81,2)="K ^GMR(123,""AE"",$E(X(1),1,5),$E(X(2),1,5),$E(X(3),1,20),DA)"
^DD("IX",81,2.5)="K ^GMR(123,""AE"")"
^DD("IX",81,11.1,0)="^.114IA^3^3"
^DD("IX",81,11.1,1,0)="1^F^123^1^5^1^F"
^DD("IX",81,11.1,2,0)="2^F^123^8^5^2^F"
^DD("IX",81,11.1,3,0)="3^F^123^3^20^3^F"
^DD("IX",81,11.1,3,2)="S X=9999999-X"
^DD("IX",81,11.1,"AC",1,1)=""
^DD("IX",81,11.1,"AC",2,2)=""
^DD("IX",81,11.1,"AC",3,3)=""
^DD("IX",81,11.1,"B",1,1)=""
^DD("IX",81,11.1,"B",2,2)=""
^DD("IX",81,11.1,"B",3,3)=""
^DD("IX",81,11.1,"BB",1,1)=""
^DD("IX",81,11.1,"BB",2,2)=""
^DD("IX",81,11.1,"BB",3,3)=""
^DD("IX",82,0)="2006.564^X^Find entry number from direction, type and priority^MU^^R^IR^I^2006.564^^^^^LS"
^DD("IX",82,.1,0)="^^2^2^2991018^"
^DD("IX",82,.1,1,0)="This cross-reference finds the internal entry number for the queue,"
^DD("IX",82,.1,2,0)="given the Direction, Type and Priority."
^DD("IX",82,1)="S ^MAGDCM(2006.564,""X"",X(1),X(2),X(3))=DA"
^DD("IX",82,2)="K ^MAGDCM(2006.564,""X"",X(1),X(2),X(3))"
^DD("IX",82,2.5)="K ^MAGDCM(2006.564,""X"")"
^DD("IX",82,11.1,0)="^.114IA^3^3"
^DD("IX",82,11.1,1,0)="1^F^2006.564^4^30^1^F"
^DD("IX",82,11.1,2,0)="2^F^2006.564^5^30^2^F"
^DD("IX",82,11.1,3,0)="3^F^2006.564^6^30^3^F"
^DD("IX",82,11.1,"AC",1,1)=""
^DD("IX",82,11.1,"AC",2,2)=""
^DD("IX",82,11.1,"AC",3,3)=""
^DD("IX",82,11.1,"B",1,1)=""
^DD("IX",82,11.1,"B",2,2)=""
^DD("IX",82,11.1,"B",3,3)=""
^DD("IX",82,11.1,"BB",1,1)=""
^DD("IX",82,11.1,"BB",2,2)=""
^DD("IX",82,11.1,"BB",3,3)=""
^DD("IX",83,0)="2006.582^B^Manufacturer, model and modality.^R^^R^IR^I^2006.582^^^^^LS"
^DD("IX",83,.1,0)="^^1^1^2990830^"
^DD("IX",83,.1,1,0)="This cross reference keeps track of manufacturer, model and modality."
^DD("IX",83,1)="S ^MAGDICOM(2006.582,""B"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",83,2)="K ^MAGDICOM(2006.582,""B"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",83,2.5)="K ^MAGDICOM(2006.582,""B"")"
^DD("IX",83,11.1,0)="^.114IA^3^3"
^DD("IX",83,11.1,1,0)="1^F^2006.582^.01^30^1^F"
^DD("IX",83,11.1,1,3)=""
^DD("IX",83,11.1,2,0)="2^F^2006.582^2^30^2^F"
^DD("IX",83,11.1,2,3)=""
^DD("IX",83,11.1,3,0)="3^F^2006.582^3^30^3^F"
^DD("IX",83,11.1,3,3)=""
^DD("IX",83,11.1,"AC",1,1)=""
^DD("IX",83,11.1,"AC",2,2)=""
^DD("IX",83,11.1,"AC",3,3)=""
^DD("IX",83,11.1,"B",1,1)=""
^DD("IX",83,11.1,"B",2,2)=""
^DD("IX",83,11.1,"B",3,3)=""
^DD("IX",83,11.1,"BB",1,1)=""
^DD("IX",83,11.1,"BB",2,2)=""
^DD("IX",83,11.1,"BB",3,3)=""
^DD("IX",84,0)="779.2^C^Uniqueness Index for Key 'A' of File #779.2^R^^F^IR^I^779.2^^^^^LS"
^DD("IX",84,1)="S ^HLD(779.2,""C"",X,DA)="""""
^DD("IX",84,2)="K ^HLD(779.2,""C"",X,DA)"
^DD("IX",84,2.5)="K ^HLD(779.2,""C"")"
^DD("IX",84,11.1,0)="^.114IA^1^1"
^DD("IX",84,11.1,1,0)="1^F^779.2^.01^^1"
^DD("IX",84,11.1,"AC",1,1)=""
^DD("IX",84,11.1,"B",1,1)=""
^DD("IX",84,11.1,"BB",1,1)=""
^DD("IX",85,0)="2006.5839^C^Link image groups to temporary entities^R^^R^IR^I^2006.5839^^^^^LS"
^DD("IX",85,.1,0)="^^5^5^3020409^"
^DD("IX",85,.1,1,0)="This cross-reference keeps track of which image groups are"
^DD("IX",85,.1,2,0)="associated with which temporary entities."
^DD("IX",85,.1,3,0)=" "
^DD("IX",85,.1,4,0)="This cross-reference will be used to associate all images"
^DD("IX",85,.1,5,0)="in these groups to their permanent ""parent data file""."
^DD("IX",85,1)="S ^MAG(2006.5839,""C"",X(1),X(2),DA)="""""
^DD("IX",85,2)="K ^MAG(2006.5839,""C"",X(1),X(2),DA)"
^DD("IX",85,2.5)="K ^MAG(2006.5839,""C"")"
^DD("IX",85,11.1,0)="^.114IA^2^2"
^DD("IX",85,11.1,1,0)="1^F^2006.5839^.01^^1^F"
^DD("IX",85,11.1,2,0)="2^F^2006.5839^2^^2^F"
^DD("IX",85,11.1,"AC",1,1)=""
^DD("IX",85,11.1,"AC",2,2)=""
^DD("IX",85,11.1,"B",1,1)=""
^DD("IX",85,11.1,"B",2,2)=""
^DD("IX",85,11.1,"BB",1,1)=""
^DD("IX",85,11.1,"BB",2,2)=""
^DD("IX",86,0)="391.23^C^Cross reference on File and Field numbers^R^^R^IR^I^391.23^^^^^LS"
^DD("IX",86,1)="S ^DGRO(391.23,""C"",X(1),X(2),DA)="""""
^DD("IX",86,2)="K ^DGRO(391.23,""C"",X(1),X(2),DA)"
^DD("IX",86,2.5)="K ^DGRO(391.23,""C"")"
^DD("IX",86,11.1,0)="^.114IA^2^2"
^DD("IX",86,11.1,1,0)="1^F^391.23^1^^1^F"
^DD("IX",86,11.1,2,0)="2^F^391.23^2^^2^F"
^DD("IX",86,11.1,"AC",1,1)=""
^DD("IX",86,11.1,"AC",2,2)=""
^DD("IX",86,11.1,"B",1,1)=""
^DD("IX",86,11.1,"B",2,2)=""
^DD("IX",86,11.1,"BB",1,1)=""
^DD("IX",86,11.1,"BB",2,2)=""
^DD("IX",87,0)="409.6^AC^XREF^R^^R^IR^W^409.69^^^^^S"
^DD("IX",87,1)="S ^SDWL(409.6,""AC"",X(1),X(2),DA(1),DA)="""""
^DD("IX",87,2)="K ^SDWL(409.6,""AC"",X(1),X(2),DA(1),DA)"
^DD("IX",87,2.5)="K ^SDWL(409.6,""AC"")"
^DD("IX",87,11.1,0)="^.114IA^2^2"
^DD("IX",87,11.1,1,0)="1^F^409.69^.01^^1^F"
^DD("IX",87,11.1,1,3)=""
^DD("IX",87,11.1,2,0)="2^F^409.69^1^^2^F"
^DD("IX",87,11.1,2,3)=""
^DD("IX",87,11.1,"AC",1,1)=""
^DD("IX",87,11.1,"AC",2,2)=""
^DD("IX",87,11.1,"B",1,1)=""
^DD("IX",87,11.1,"B",2,2)=""
^DD("IX",87,11.1,"BB",1,1)=""
^DD("IX",87,11.1,"BB",2,2)=""
^DD("IX",88,0)="409.6^AE^RETENTION FLAGE XREF^R^^F^IR^W^409.69^^^^^S"
^DD("IX",88,1)="S ^SDWL(409.6,""AE"",$E(X,1,1),DA(1),DA)="""""
^DD("IX",88,2)="K ^SDWL(409.6,""AE"",$E(X,1,1),DA(1),DA)"
^DD("IX",88,2.5)="K ^SDWL(409.6,""AE"")"
^DD("IX",88,11.1,0)="^.114IA^1^1"
^DD("IX",88,11.1,1,0)="1^F^409.69^4^1^1^F"
^DD("IX",88,11.1,1,3)=""
^DD("IX",88,11.1,"AC",1,1)=""
^DD("IX",88,11.1,"B",1,1)=""
^DD("IX",88,11.1,"BB",1,1)=""
^DD("IX",89,0)="779.21^C^action by message type,event,version not specified^MU^^R^IR^I^779.21^^^^^LS"
^DD("IX",89,.1,0)="^^4^4^3060626^"
^DD("IX",89,.1,1,0)="This index is used to find the application action by message type and event"
^DD("IX",89,.1,2,0)="in cases where the application has chosen NOT to also specify the action"
^DD("IX",89,.1,3,0)="according to the HL7 version."
^DD("IX",89,.1,4,0)=""
^DD("IX",89,1)="S ^HLD(779.2,DA(1),1,""C"",X(1),X(2),DA)="""""
^DD("IX",89,1.4)="S:$P(^HLD(779.2,DA(1),1,DA,0),""^"",6)="""" X=1"
^DD("IX",89,2)="K ^HLD(779.2,DA(1),1,""C"",X(1),X(2),DA)"
^DD("IX",89,2.5)="K ^HLD(779.2,DA(1),1,""C"")"
^DD("IX",89,11.1,0)="^.114IA^2^2"
^DD("IX",89,11.1,1,0)="1^F^779.21^.01^^1"
^DD("IX",89,11.1,2,0)="2^F^779.21^.02^^2^F"
^DD("IX",89,11.1,"AC",1,1)=""
^DD("IX",89,11.1,"AC",2,2)=""
^DD("IX",89,11.1,"B",1,1)=""
^DD("IX",89,11.1,"B",2,2)=""
^DD("IX",89,11.1,"BB",1,1)=""
^DD("IX",89,11.1,"BB",2,2)=""
^DD("IX",90,0)="779.3^C^Used to find active entries in the process registry.^R^^F^IR^I^779.3^^^^^LS"
^DD("IX",90,1)="S ^HLD(779.3,""C"",X,DA)="""""
^DD("IX",90,1.4)="S X=$S('X(1):0,1:1)"
^DD("IX",90,2)="K ^HLD(779.3,""C"",X,DA)"
^DD("IX",90,2.5)="K ^HLD(779.3,""C"")"
^DD("IX",90,11.1,0)="^.114IA^1^1"
^DD("IX",90,11.1,1,0)="1^F^779.3^.02^^1^F"
^DD("IX",90,11.1,"AC",1,1)=""
^DD("IX",90,11.1,"B",1,1)=""
^DD("IX",90,11.1,"BB",1,1)=""
^DD("IX",91,0)="779.3^D^Uniqueness Index for Key 'A' of File #779.3^R^^F^IR^I^779.3^^^^^LS"
^DD("IX",91,1)="S ^HLD(779.3,""D"",X,DA)="""""
^DD("IX",91,2)="K ^HLD(779.3,""D"",X,DA)"
^DD("IX",91,2.5)="K ^HLD(779.3,""D"")"
^DD("IX",91,11.1,0)="^.114IA^1^1"
^DD("IX",91,11.1,1,0)="1^F^779.3^.01^^1"
^DD("IX",91,11.1,"AC",1,1)=""
^DD("IX",91,11.1,"B",1,1)=""
^DD("IX",91,11.1,"BB",1,1)=""
^DD("IX",92,0)="779.41.^AC^Used to find recipients who have not been terminated.^MU^^R^IR^I^779.41^^^^^S"
^DD("IX",92,1)="S ^HLD(779.4,DA(1),2,""AC"",DA)="""""
^DD("IX",92,1.4)="S X=$S($G(X2(2)):0,1:1)"
^DD("IX",92,2)="K ^HLD(779.4,DA(1),2,""AC"",DA)"
^DD("IX",92,2.4)="S X=1"
^DD("IX",92,11.1,0)="^.114IA^2^2"
^DD("IX",92,11.1,1,0)="1^F^779.41^1.01^^1^F"
^DD("IX",92,11.1,1,3)=""
^DD("IX",92,11.1,2,0)="2^F^779.41^1.02^^^F"
^DD("IX",92,11.1,2,3)=""
^DD("IX",92,11.1,"AC",1,1)=""
^DD("IX",92,11.1,"B",1,1)=""
^DD("IX",92,11.1,"B",2,2)=""
^DD("IX",92,11.1,"BB",1,1)=""
^DD("IX",92,11.1,"BB",2,2)=""
^DD("IX",93,0)="779.41^AD^Used to determine if the recipient is already on the subscription list.^MU^^R^IR^I^779.41^^^^^S"
^DD("IX",93,1)="S ^HLD(779.4,DA(1),2,""AD"",X2(1),X2(2),X2(3)_X2(4)_X2(5),DA)="""""
^DD("IX",93,2)="K ^HLD(779.4,DA(1),2,""AD"",X1(1),X1(2),X1(3)_X1(4)_X1(5),DA)"
^DD("IX",93,11.1,0)="^.114IA^5^5"
^DD("IX",93,11.1,1,0)="1^F^779.41^.01^^1^F"
^DD("IX",93,11.1,1,3)=""
^DD("IX",93,11.1,2,0)="2^F^779.41^.02^^2^F"
^DD("IX",93,11.1,2,3)=""
^DD("IX",93,11.1,3,0)="3^F^779.41^.03^^^F"
^DD("IX",93,11.1,3,3)=""
^DD("IX",93,11.1,4,0)="4^F^779.41^.04^^^F"
^DD("IX",93,11.1,4,3)=""
^DD("IX",93,11.1,5,0)="5^F^779.41^.05^^^F"
^DD("IX",93,11.1,5,3)=""
^DD("IX",93,11.1,"AC",1,1)=""
^DD("IX",93,11.1,"AC",2,2)=""
^DD("IX",93,11.1,"B",1,1)=""
^DD("IX",93,11.1,"B",2,2)=""
^DD("IX",93,11.1,"B",3,3)=""
^DD("IX",93,11.1,"B",4,4)=""
^DD("IX",93,11.1,"B",5,5)=""
^DD("IX",93,11.1,"BB",1,1)=""
^DD("IX",93,11.1,"BB",2,2)=""
^DD("IX",93,11.1,"BB",3,3)=""
^DD("IX",93,11.1,"BB",4,4)=""
^DD("IX",93,11.1,"BB",5,5)=""
^DD("IX",94,0)="870^AC^Sorts entries by <station number>,<link name>,<ien>^MU^^R^IR^I^870^^^^^S"
^DD("IX",94,1)="S ^HLCS(870,""AC"",$S($L($P($G(^DIC(4,+X2(1),99)),""^"")):$P($G(^DIC(4,+X2(1),99)),""^""),1:"" ""),X2(2),DA)="""""
^DD("IX",94,2)="K ^HLCS(870,""AC"",$S($L($P($G(^DIC(4,+X1(1),99)),""^"")):$P($G(^DIC(4,+X1(1),99)),""^""),1:"" ""),X1(2),DA)"
^DD("IX",94,2.5)="K ^HLCS(870,""AC"")"
^DD("IX",94,11.1,0)="^.114IA^2^2"
^DD("IX",94,11.1,1,0)="1^F^870^.02^^1^F"
^DD("IX",94,11.1,1,1)=""
^DD("IX",94,11.1,1,1.5)=""
^DD("IX",94,11.1,1,3)=""
^DD("IX",94,11.1,2,0)="2^F^870^.01^^^F"
^DD("IX",94,11.1,"AC",1,1)=""
^DD("IX",94,11.1,"B",1,1)=""
^DD("IX",94,11.1,"B",2,2)=""
^DD("IX",94,11.1,"BB",1,1)=""
^DD("IX",94,11.1,"BB",2,2)=""
^DD("IX",95,0)="870^AD^Used to find the link over which to send the application acknowledgment.^MU^^R^IR^I^870^^^^^A"
^DD("IX",95,1)="D SET1^HLOTLNK(X(1),X(3))"
^DD("IX",95,1.4)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^DD("IX",95,2)="D KILL1^HLOTLNK(X(1),X(3))"
^DD("IX",95,2.4)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^DD("IX",95,2.5)=""
^DD("IX",95,11.1,0)="^.114IA^5^4"
^DD("IX",95,11.1,1,0)="1^F^870^.01^30^1^F"
^DD("IX",95,11.1,2,0)="2^F^870^2^^2^F"
^DD("IX",95,11.1,4,0)="3^F^870^.03^^3^F"
^DD("IX",95,11.1,5,0)="4^F^870^400.03^^4^F"
^DD("IX",95,11.1,5,3)=""
^DD("IX",95,11.1,"AC",1,1)=""
^DD("IX",95,11.1,"AC",2,2)=""
^DD("IX",95,11.1,"AC",3,4)=""
^DD("IX",95,11.1,"AC",4,5)=""
^DD("IX",95,11.1,"B",1,1)=""
^DD("IX",95,11.1,"B",2,2)=""
^DD("IX",95,11.1,"B",3,4)=""
^DD("IX",95,11.1,"B",4,5)=""
^DD("IX",95,11.1,"BB",1,1)=""
^DD("IX",95,11.1,"BB",2,2)=""
^DD("IX",95,11.1,"BB",3,4)=""
^DD("IX",95,11.1,"BB",4,5)=""
^DD("IX",96,0)="2261.9^C^Case Insensitive Lookup^MU^^F^IR^I^2261.9^^^^^LS"
^DD("IX",96,.1,0)="^^1^1^3010308^"
^DD("IX",96,.1,1,0)="This index is to provide a case insensitive lookup."
^DD("IX",96,1)="S ^OOPS(2261.9,""C"",X,DA)="""""
^DD("IX",96,2)="K ^OOPS(2261.9,""C"",X,DA)"
^DD("IX",96,2.5)="K ^OOPS(2261.9,""C"")"
^DD("IX",96,11.1,0)="^.114IA^1^1"
^DD("IX",96,11.1,1,0)="1^F^2261.9^.01^30^1^F^Safety Characteristics"
^DD("IX",96,11.1,1,2)="S X=$$UP^XLFSTR($E(X,1,30))"
^DD("IX",96,11.1,1,3)=""
^DD("IX",96,11.1,"AC",1,1)=""
^DD("IX",96,11.1,"B",1,1)=""
^DD("IX",96,11.1,"BB",1,1)=""
^DD("IX",97,0)="2262.2^D^^MU^^F^IR^I^2262.2^^^^^LS"
^DD("IX",97,1)="Q"
^DD("IX",97,2)="Q"
^DD("IX",97,11.1,0)="^.114IA^^"
^DD("IX",98,0)="101.15^B^Unique master cross reference^R^^F^IR^I^101.15^^^^^LS"
^DD("IX",98,1)="S ^ORD(101.15,""B"",$E(X,1,30),DA)="""""
^DD("IX",98,2)="K ^ORD(101.15,""B"",$E(X,1,30),DA)"
^DD("IX",98,2.5)="K ^ORD(101.15,""B"")"
^DD("IX",98,11.1,0)="^.114IA^1^1"
^DD("IX",98,11.1,1,0)="1^F^101.15^.01^30^1^F"
^DD("IX",98,11.1,1,3)=""
^DD("IX",98,11.1,"AC",1,1)=""
^DD("IX",98,11.1,"B",1,1)=""
^DD("IX",98,11.1,"BB",1,1)=""
^DD("IX",99,0)="409.6^AMSG^Message xref^R^^R^IR^W^409.69^^^^^S"
^DD("IX",99,1)="S ^SDWL(409.6,""AMSG"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)="""""
^DD("IX",99,2)="K ^SDWL(409.6,""AMSG"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)"
^DD("IX",99,2.5)="K ^SDWL(409.6,""AMSG"")"
^DD("IX",99,11.1,0)="^.114IA^2^2"
^DD("IX",99,11.1,1,0)="1^F^409.69^2^30^1^F"
^DD("IX",99,11.1,1,3)=""
^DD("IX",99,11.1,2,0)="2^F^409.69^3^30^2^F"
^DD("IX",99,11.1,2,3)=""
^DD("IX",99,11.1,"AC",1,1)=""
^DD("IX",99,11.1,"AC",2,2)=""
^DD("IX",99,11.1,"B",1,1)=""
^DD("IX",99,11.1,"B",2,2)=""
^DD("IX",99,11.1,"BB",1,1)=""
^DD("IX",99,11.1,"BB",2,2)=""
^DD("IX",100,0)="798^ADELETE^Deletes the data associated with the registry record^MU^^F^^I^798^^^^^A"
^DD("IX",100,.1,0)="^^10^10^3060105^"
^DD("IX",100,.1,1,0)="The ""ADELETE"" cross-reference is used to delete "
^DD("IX",100,.1,2,0)="the records of other files associated with the "
^DD("IX",100,.1,3,0)="main registry record being deleted from the ROR"
^DD("IX",100,.1,4,0)="REGISTRY RECORD file (#798)."
^DD("IX",100,.1,5,0)=" "
^DD("IX",100,.1,6,0)="The cross-reference logic calls the DEL798^RORDD01"
^DD("IX",100,.1,7,0)="procedure, which tries to delete the corresponding"
^DD("IX",100,.1,8,0)="records from the ROR HIV RECORD (#799.4), ROR"
^DD("IX",100,.1,9,0)="PATIENT (#798.4) and ROR PATIENT EVENTS (#798.3)"
^DD("IX",100,.1,10,0)="files."
^DD("IX",100,1)="Q"
^DD("IX",100,2)="D DEL798^RORDD01(DA,X1(1))"
^DD("IX",100,2.4)="S X=($G(X2(1))="""")"
^DD("IX",100,11.1,0)="^.114IA^1^1"
^DD("IX",100,11.1,1,0)="1^F^798^.01^^^F"
^DD("IX",100,11.1,"B",1,1)=""
^DD("IX",100,11.1,"BB",1,1)=""
^DD("IX",101,0)="870^AD1^Used to find the link overwhich to send the application acknowledgment.^MU^^R^IR^I^870^^^^^A"
^DD("IX",101,1)="D SET2^HLOTLNK(X(1),X(3))"
^DD("IX",101,1.4)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^DD("IX",101,2)="D KILL2^HLOTLNK(X(1),X(3))"
^DD("IX",101,2.4)="S X=0 I X(4)=""C"",X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""TCP"" S X=1"
^DD("IX",101,2.5)=""
^DD("IX",101,11.1,0)="^.114IA^4^4"
^DD("IX",101,11.1,1,0)="1^F^870^.01^^1^F"
^DD("IX",101,11.1,2,0)="2^F^870^2^^2^F"
^DD("IX",101,11.1,3,0)="3^F^870^.08^^3^F"
^DD("IX",101,11.1,4,0)="4^F^870^400.03^^4^F"
^DD("IX",101,11.1,"AC",1,1)=""
^DD("IX",101,11.1,"AC",2,2)=""
^DD("IX",101,11.1,"AC",3,3)=""
^DD("IX",101,11.1,"AC",4,4)=""
^DD("IX",101,11.1,"B",1,1)=""
^DD("IX",101,11.1,"B",2,2)=""
^DD("IX",101,11.1,"B",3,3)=""
^DD("IX",101,11.1,"B",4,4)=""
^DD("IX",101,11.1,"BB",1,1)=""
^DD("IX",101,11.1,"BB",2,2)=""
^DD("IX",101,11.1,"BB",3,3)=""
^DD("IX",101,11.1,"BB",4,4)=""
^DD("IX",102,0)="123^ACP^Index on the PATIENT NAME and CLINICAL PROCEDURE fields^R^^R^IR^I^123^^^^^S"
^DD("IX",102,.1,0)="^^1^1^3011008^"
^DD("IX",102,.1,1,0)="This INDEX is used to list all Clinical Procedure requests for a patient."
^DD("IX",102,1)="S ^GMR(123,""ACP"",X(1),X(2),DA)="""""
^DD("IX",102,2)="K ^GMR(123,""ACP"",X(1),X(2),DA)"
^DD("IX",102,2.5)="K ^GMR(123,""ACP"")"
^DD("IX",102,11.1,0)="^.114IA^2^2"
^DD("IX",102,11.1,1,0)="1^F^123^1.01^^1^F"
^DD("IX",102,11.1,2,0)="2^F^123^.02^^2^F"
^DD("IX",102,11.1,"AC",1,1)=""
^DD("IX",102,11.1,"AC",2,2)=""
^DD("IX",102,11.1,"B",1,1)=""
^DD("IX",102,11.1,"B",2,2)=""
^DD("IX",102,11.1,"BB",1,1)=""
^DD("IX",102,11.1,"BB",2,2)=""
^DD("IX",103,0)="28.11^APR^Index all NTR Primary record DFN's^MU^^R^IR^I^28.11^^^^^S"
^DD("IX",103,1)="D SET^DGNTDD(DA)"
^DD("IX",103,2)="D KILL^DGNTDD(DA)"
^DD("IX",103,2.5)="K ^DGNT(28.11,""APR"")"
^DD("IX",103,11.1,0)="^.114IA^2^2"
^DD("IX",103,11.1,1,0)="1^F^28.11^.01^^1^F"
^DD("IX",103,11.1,2,0)="2^F^28.11^.09^^2^F"
^DD("IX",103,11.1,"AC",1,1)=""
^DD("IX",103,11.1,"AC",2,2)=""
^DD("IX",103,11.1,"B",1,1)=""
^DD("IX",103,11.1,"B",2,2)=""
^DD("IX",103,11.1,"BB",1,1)=""
^DD("IX",103,11.1,"BB",2,2)=""
^DD("IX",104,0)="28.11^APTDT^Index based on DFN and Entry Date^R^^R^IR^I^28.11^^^^^S"
^DD("IX",104,1)="S ^DGNT(28.11,""APTDT"",X(1),X(2),DA)="""""
^DD("IX",104,2)="K ^DGNT(28.11,""APTDT"",X(1),X(2),DA)"
^DD("IX",104,2.5)="K ^DGNT(28.11,""APTDT"")"
^DD("IX",104,11.1,0)="^.114IA^2^2"
^DD("IX",104,11.1,1,0)="1^F^28.11^.07^^1^F"
^DD("IX",104,11.1,2,0)="2^F^28.11^.01^^2^F"
^DD("IX",104,11.1,"AC",1,1)=""
^DD("IX",104,11.1,"AC",2,2)=""
^DD("IX",104,11.1,"B",1,1)=""
^DD("IX",104,11.1,"B",2,2)=""
^DD("IX",104,11.1,"BB",1,1)=""
^DD("IX",104,11.1,"BB",2,2)=""
^DD("IX",105,0)="28.11^AST^Screening Status for all NTR Primary records^MU^^R^IR^I^28.11^^^^^S"
^DD("IX",105,1)="D SETAST^DGNTDD(DA)"
^DD("IX",105,2)="D KILAST^DGNTDD(DA)"
^DD("IX",105,2.5)="K ^DGNT(28.11,""AST"")"
^DD("IX",105,11.1,0)="^.114IA^2^2"
^DD("IX",105,11.1,1,0)="1^F^28.11^.03^^1^F"
^DD("IX",105,11.1,2,0)="2^F^28.11^.09^^2^F"
^DD("IX",105,11.1,"AC",1,1)=""
^DD("IX",105,11.1,"AC",2,2)=""
^DD("IX",105,11.1,"B",1,1)=""
^DD("IX",105,11.1,"B",2,2)=""
^DD("IX",105,11.1,"BB",1,1)=""
^DD("IX",105,11.1,"BB",2,2)=""
^DD("IX",106,0)="354.75^AC^Index for quick look up.^R^^R^IR^I^354.75^^^^^S"
^DD("IX",106,.1,0)="^^1^1^3010605^"
^DD("IX",106,.1,1,0)="This index will provide quick look up for a cap entry."
^DD("IX",106,1)="S ^IBAM(354.75,""AC"",X(1),X(2),DA)="""""
^DD("IX",106,2)="K ^IBAM(354.75,""AC"",X(1),X(2),DA)"
^DD("IX",106,2.5)="K ^IBAM(354.75,""AC"")"
^DD("IX",106,11.1,0)="^.114IA^2^2"
^DD("IX",106,11.1,1,0)="1^F^354.75^.02^^1^F"
^DD("IX",106,11.1,2,0)="2^F^354.75^.01^^2^F"
^DD("IX",106,11.1,"AC",1,1)=""
^DD("IX",106,11.1,"AC",2,2)=""
^DD("IX",106,11.1,"B",1,1)=""
^DD("IX",106,11.1,"B",2,2)=""
^DD("IX",106,11.1,"BB",1,1)=""
^DD("IX",106,11.1,"BB",2,2)=""
^DD("IX",107,0)="352.5^AEFFDT^This is a regular index on the clinic stop and effective date fields.^R^^R^IR^I^352.5^^^^^S"
^DD("IX",107,.1,0)="^^3^3^3011203^^"
^DD("IX",107,.1,1,0)="This cross-reference on the CLINIC STOP CODE (#.01) field and the"
^DD("IX",107,.1,2,0)="EFFECTIVE DATE (#.02) field is used to locate the billable type"
^DD("IX",107,.1,3,0)="for a clinic stop code on a specific effective date."
^DD("IX",107,1)="S ^IBE(352.5,""AEFFDT"",X(1),X(2),DA)="""""
^DD("IX",107,2)="K ^IBE(352.5,""AEFFDT"",X(1),X(2),DA)"
^DD("IX",107,2.5)="K ^IBE(352.5,""AEFFDT"")"
^DD("IX",107,11.1,0)="^.114IA^2^2"
^DD("IX",107,11.1,1,0)="1^F^352.5^.01^^1^F"
^DD("IX",107,11.1,1,3)=""
^DD("IX",107,11.1,2,0)="2^F^352.5^.02^^2^F"
^DD("IX",107,11.1,2,2)="S X=-X"
^DD("IX",107,11.1,2,3)=""
^DD("IX",107,11.1,"AC",1,1)=""
^DD("IX",107,11.1,"AC",2,2)=""
^DD("IX",107,11.1,"B",1,1)=""
^DD("IX",107,11.1,"B",2,2)=""
^DD("IX",107,11.1,"BB",1,1)=""
^DD("IX",107,11.1,"BB",2,2)=""
^DD("IX",108,0)="870^AD2^Used to find the link overwhich to send an application acknowledgment.^MU^^R^IR^I^870^^^^^A"
^DD("IX",108,1)="D SET3^HLOTLNK(X(1),X(3))"
^DD("IX",108,1.4)="S X=0 I X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""HLLP"" S X=1"
^DD("IX",108,2)="D KILL3^HLOTLNK(X(1),X(3))"
^DD("IX",108,2.4)="S X=0 I X(2),$P($G(^HLCS(869.1,X(2),0)),""^"")=""HLLP"" S X=1"
^DD("IX",108,2.5)="K ^HLCS(870,""AD"",""HLLP"")"
^DD("IX",108,11.1,0)="^.114IA^3^3"
^DD("IX",108,11.1,1,0)="1^F^870^.01^^1^F"
^DD("IX",108,11.1,2,0)="2^F^870^2^^2^F"
^DD("IX",108,11.1,3,0)="3^F^870^200.01^^3^F"
^DD("IX",108,11.1,"AC",1,1)=""
^DD("IX",108,11.1,"AC",2,2)=""
^DD("IX",108,11.1,"AC",3,3)=""
^DD("IX",108,11.1,"B",1,1)=""
^DD("IX",108,11.1,"B",2,2)=""
^DD("IX",108,11.1,"B",3,3)=""
^DD("IX",108,11.1,"BB",1,1)=""
^DD("IX",108,11.1,"BB",2,2)=""
^DD("IX",108,11.1,"BB",3,3)=""
^DD("IX",109,0)="870^DNS^This is a regular index of new-style cross-reference on the DNS Domain field^R^^F^IR^I^870^^^^^LS"
^DD("IX",109,1)="S ^HLCS(870,""DNS"",$E(X,1,70),DA)="""""
^DD("IX",109,2)="K ^HLCS(870,""DNS"",$E(X,1,70),DA)"
^DD("IX",109,2.5)="K ^HLCS(870,""DNS"")"
^DD("IX",109,11.1,0)="^.114IA^1^1"
^DD("IX",109,11.1,1,0)="1^F^870^.08^70^1^F"
^DD("IX",109,11.1,1,3)=""
^DD("IX",109,11.1,"AC",1,1)=""
^DD("IX",109,11.1,"B",1,1)=""
^DD("IX",109,11.1,"BB",1,1)=""
^DD("IX",110,0)="29.11^APDT^Xref based on DFN and MST Status date^R^^R^IR^I^29.11^^^^^S"
^DD("IX",110,1)="S ^DGMS(29.11,""APDT"",X(1),X(2),DA)="""""
^DD("IX",110,2)="K ^DGMS(29.11,""APDT"",X(1),X(2),DA)"
^DD("IX",110,2.5)="K ^DGMS(29.11,""APDT"")"
^DD("IX",110,11.1,0)="^.114IA^2^2"
^DD("IX",110,11.1,1,0)="1^F^29.11^2^^1^F"
^DD("IX",110,11.1,2,0)="2^F^29.11^.01^^2^F"
^DD("IX",110,11.1,"AC",1,1)=""
^DD("IX",110,11.1,"AC",2,2)=""
^DD("IX",110,11.1,"B",1,1)=""
^DD("IX",110,11.1,"B",2,2)=""
^DD("IX",110,11.1,"BB",1,1)=""
^DD("IX",110,11.1,"BB",2,2)=""
^DD("IX",111,0)="123^AIFC^Index on ROUTING FACILITY & REMOTE CONSULT #^R^^R^IR^I^123^^^^^S"
^DD("IX",111,1)="S ^GMR(123,""AIFC"",$E(X(1),1,5),$E(X(2),1,9),DA)="""""
^DD("IX",111,2)="K ^GMR(123,""AIFC"",$E(X(1),1,5),$E(X(2),1,9),DA)"
^DD("IX",111,2.5)="K ^GMR(123,""AIFC"")"
^DD("IX",111,11.1,0)="^.114IA^2^2"
^DD("IX",111,11.1,1,0)="1^F^123^.07^5^1^F"
^DD("IX",111,11.1,2,0)="2^F^123^.06^9^2^F"
^DD("IX",111,11.1,"AC",1,1)=""
^DD("IX",111,11.1,"AC",2,2)=""
^DD("IX",111,11.1,"B",1,1)=""
^DD("IX",111,11.1,"B",2,2)=""
^DD("IX",111,11.1,"BB",1,1)=""
^DD("IX",111,11.1,"BB",2,2)=""
^DD("IX",112,0)="123.02^AC^Index on activity, actual date of activity and remote date of activity^R^^R^IR^I^123.02^^^^^S"
^DD("IX",112,.1,0)="^^4^4^3020307^"
^DD("IX",112,.1,1,0)="This index will be built using the ACTIVITY (field #1), ACTUAL DATE/TIME"
^DD("IX",112,.1,2,0)="OF ACTIVITY (field #2) and the REMOTE DATE/TIME OF FILING (field #.25)."
^DD("IX",112,.1,3,0)="This index will be used to prevent an activity from being filed more than"
^DD("IX",112,.1,4,0)="once, in case of re-transmission of the activity from the remote site."
^DD("IX",112,1)="S ^GMR(123,DA(1),40,""AC"",$E(X(1),1,3),$E(X(2),1,17),$E(X(3),1,17),DA)="""""
^DD("IX",112,2)="K ^GMR(123,DA(1),40,""AC"",$E(X(1),1,3),$E(X(2),1,17),$E(X(3),1,17),DA)"
^DD("IX",112,2.5)="K ^GMR(123,DA(1),40,""AC"")"
^DD("IX",112,11.1,0)="^.114IA^3^3"
^DD("IX",112,11.1,1,0)="1^F^123.02^1^3^1^F"
^DD("IX",112,11.1,2,0)="2^F^123.02^.25^17^2^F"
^DD("IX",112,11.1,3,0)="3^F^123.02^2^17^3^F"
^DD("IX",112,11.1,"AC",1,1)=""
^DD("IX",112,11.1,"AC",2,2)=""
^DD("IX",112,11.1,"AC",3,3)=""
^DD("IX",112,11.1,"B",1,1)=""
^DD("IX",112,11.1,"B",2,2)=""
^DD("IX",112,11.1,"B",3,3)=""
^DD("IX",112,11.1,"BB",1,1)=""
^DD("IX",112,11.1,"BB",2,2)=""
^DD("IX",112,11.1,"BB",3,3)=""
^DD("IX",113,0)="123.051^AR^Index on REMOTE ASSOCIATED RESULT and RESULTING SITE^R^^R^IR^I^123.051^^^^^S"
^DD("IX",113,.1,0)="^^2^2^3011025^"
^DD("IX",113,.1,1,0)="This index is used to keep track of the remote results associated with a "
^DD("IX",113,.1,2,0)="particular IFC. "
^DD("IX",113,1)="S ^GMR(123,DA(1),51,""AR"",$E(X(1),1,30),$E(X(2),1,10),DA)="""""
^DD("IX",113,2)="K ^GMR(123,DA(1),51,""AR"",$E(X(1),1,30),$E(X(2),1,10),DA)"
^DD("IX",113,2.5)="K ^GMR(123,DA(1),51,""AR"")"
^DD("IX",113,11.1,0)="^.114IA^2^2"
^DD("IX",113,11.1,1,0)="1^F^123.051^.02^30^1^F"
^DD("IX",113,11.1,2,0)="2^F^123.051^.03^10^2^F"
^DD("IX",113,11.1,"AC",1,1)=""
^DD("IX",113,11.1,"AC",2,2)=""
^DD("IX",113,11.1,"B",1,1)=""
^DD("IX",113,11.1,"B",2,2)=""
^DD("IX",113,11.1,"BB",1,1)=""
^DD("IX",113,11.1,"BB",2,2)=""
^DD("IX",114,0)="123.6^AC^This index is used to sort incomplete records by request number^R^^R^IR^I^123.6^^^^^S"
^DD("IX",114,1)="S ^GMR(123.6,""AC"",$E(X(1),1,15),$E(X(2),1,4),$E(X(3),1,1),DA)="""""
^DD("IX",114,2)="K ^GMR(123.6,""AC"",$E(X(1),1,15),$E(X(2),1,4),$E(X(3),1,1),DA)"
^DD("IX",114,2.5)="K ^GMR(123.6,""AC"")"
^DD("IX",114,11.1,0)="^.114IA^3^3"
^DD("IX",114,11.1,1,0)="1^F^123.6^.04^15^1^F"
^DD("IX",114,11.1,2,0)="2^F^123.6^.05^4^2^F"
^DD("IX",114,11.1,3,0)="3^F^123.6^.06^1^3^F"
^DD("IX",114,11.1,"AC",1,1)=""
^DD("IX",114,11.1,"AC",2,2)=""
^DD("IX",114,11.1,"AC",3,3)=""
^DD("IX",114,11.1,"B",1,1)=""
^DD("IX",114,11.1,"B",2,2)=""
^DD("IX",114,11.1,"B",3,3)=""
^DD("IX",114,11.1,"BB",1,1)=""
^DD("IX",114,11.1,"BB",2,2)=""
^DD("IX",114,11.1,"BB",3,3)=""
^DD("IX",115,0)="123.6^C^Index on Consult# & Activity#^R^^R^IR^I^123.6^^^^^LS"
^DD("IX",115,1)="S ^GMR(123.6,""C"",$E(X(1),1,10),$E(X(2),1,4),DA)="""""
^DD("IX",115,2)="K ^GMR(123.6,""C"",$E(X(1),1,10),$E(X(2),1,4),DA)"
^DD("IX",115,2.5)="K ^GMR(123.6,""C"")"
^DD("IX",115,11.1,0)="^.114IA^2^2"
^DD("IX",115,11.1,1,0)="1^F^123.6^.04^10^1^F^Select Consult #"
^DD("IX",115,11.1,2,0)="2^F^123.6^.05^4^2^F"
^DD("IX",115,11.1,"AC",1,1)=""
^DD("IX",115,11.1,"AC",2,2)=""
^DD("IX",115,11.1,"B",1,1)=""
^DD("IX",115,11.1,"B",2,2)=""
^DD("IX",115,11.1,"BB",1,1)=""
^DD("IX",115,11.1,"BB",2,2)=""
^DD("IX",116,0)="355.9^AC^SORT BY PROVIDER TYPE,INS CO,PROVIDER^R^^R^IR^I^355.9^^^^^S"
^DD("IX",116,.1,0)="^^3^3^3000906^"
^DD("IX",116,.1,1,0)="This cross reference groups all of one type of provider for an insurance"
^DD("IX",116,.1,2,0)="company.  This can be used to get all provider ids for an insurance co (or"
^DD("IX",116,.1,3,0)="for ALL insurance companies)"
^DD("IX",116,1)="S ^IBA(355.9,""AC"",X(1),$E(X(2),1,30),X(3),DA)="""""
^DD("IX",116,2)="K ^IBA(355.9,""AC"",X(1),$E(X(2),1,30),X(3),DA)"
^DD("IX",116,2.5)="K ^IBA(355.9,""AC"")"
^DD("IX",116,11.1,0)="^.114IA^4^3"
^DD("IX",116,11.1,1,0)="1^F^355.9^.06^^1^F"
^DD("IX",116,11.1,1,3)=""
^DD("IX",116,11.1,2,0)="2^F^355.9^.15^30^2^F"
^DD("IX",116,11.1,2,3)=""
^DD("IX",116,11.1,4,0)="3^F^355.9^.01^^3^F"
^DD("IX",116,11.1,4,3)=""
^DD("IX",116,11.1,"AC",1,1)=""
^DD("IX",116,11.1,"AC",2,2)=""
^DD("IX",116,11.1,"AC",3,4)=""
^DD("IX",116,11.1,"B",1,1)=""
^DD("IX",116,11.1,"B",2,2)=""
^DD("IX",116,11.1,"B",3,4)=""
^DD("IX",116,11.1,"BB",1,1)=""
^DD("IX",116,11.1,"BB",2,2)=""
^DD("IX",116,11.1,"BB",3,4)=""
^DD("IX",117,0)="355.9^AD^Sequence by provider type,provider,insurance co^R^^R^IR^I^355.9^^^^^S"
^DD("IX",117,.1,0)="^^3^3^3000906^"
^DD("IX",117,.1,1,0)="This cross reference provides a sequencing of all the insurance company"
^DD("IX",117,.1,2,0)="(or ALL) id's for a provider by provider type.  It can be used to get all"
^DD("IX",117,.1,3,0)="insurance co id's for a provider, by provider type"
^DD("IX",117,1)="S ^IBA(355.9,""AD"",X(1),X(2),$E(X(3),1,30),DA)="""""
^DD("IX",117,2)="K ^IBA(355.9,""AD"",X(1),X(2),$E(X(3),1,30),DA)"
^DD("IX",117,2.5)="K ^IBA(355.9,""AD"")"
^DD("IX",117,11.1,0)="^.114IA^7^3"
^DD("IX",117,11.1,5,0)="1^F^355.9^.06^^1^F"
^DD("IX",117,11.1,6,0)="2^F^355.9^.01^^2^F"
^DD("IX",117,11.1,7,0)="3^F^355.9^.15^30^3^F"
^DD("IX",117,11.1,"AC",1,5)=""
^DD("IX",117,11.1,"AC",2,6)=""
^DD("IX",117,11.1,"AC",3,7)=""
^DD("IX",117,11.1,"B",1,5)=""
^DD("IX",117,11.1,"B",2,6)=""
^DD("IX",117,11.1,"B",3,7)=""
^DD("IX",117,11.1,"BB",1,5)=""
^DD("IX",117,11.1,"BB",2,6)=""
^DD("IX",117,11.1,"BB",3,7)=""
^DD("IX",118,0)="355.9^AE^XREF BY INSURANCE CO AND PROVIDER^R^^R^IR^I^355.9^^^^^S"
^DD("IX",118,1)="S ^IBA(355.9,""AE"",X(1),X(2),DA)="""""
^DD("IX",118,2)="K ^IBA(355.9,""AE"",X(1),X(2),DA)"
^DD("IX",118,2.5)="K ^IBA(355.9,""AE"")"
^DD("IX",118,11.1,0)="^.114IA^2^2"
^DD("IX",118,11.1,1,0)="1^F^355.9^.02^^1^F"
^DD("IX",118,11.1,2,0)="2^F^355.9^.01^^2^F"
^DD("IX",118,11.1,"AC",1,1)=""
^DD("IX",118,11.1,"AC",2,2)=""
^DD("IX",118,11.1,"B",1,1)=""
^DD("IX",118,11.1,"B",2,2)=""
^DD("IX",118,11.1,"BB",1,1)=""
^DD("IX",118,11.1,"BB",2,2)=""
^DD("IX",119,0)="355.9^AG^WEFRWQ^MU^^R^IR^I^355.9^^^^^S"
^DD("IX",119,1)="S ^IBA(355.9,""AG"",$S(X2(2)="""":""ALL"",1:X2(2)),$S(X2(3)="""":""TBD"",1:X2(3)),DA)="""""
^DD("IX",119,1.4)="I X2(1)="""" S X=0"
^DD("IX",119,2)="K ^IBA(355.9,""AG"",$S(X1(2)="""":""ALL"",1:X1(2)),$S(X1(3)="""":""TBD"",1:X1(3)),DA)"
^DD("IX",119,11.1,0)="^.114IA^3^3"
^DD("IX",119,11.1,1,0)="1^F^355.9^.01^^^F"
^DD("IX",119,11.1,2,0)="2^F^355.9^.02^^^F"
^DD("IX",119,11.1,3,0)="3^F^355.9^.03^^^F"
^DD("IX",119,11.1,"B",1,1)=""
^DD("IX",119,11.1,"B",2,2)=""
^DD("IX",119,11.1,"B",3,3)=""
^DD("IX",119,11.1,"BB",1,1)=""
^DD("IX",119,11.1,"BB",2,2)=""
^DD("IX",119,11.1,"BB",3,3)=""
^DD("IX",120,0)="355.9^AUNIQ^Xref by provider,ins co(or ALL),care unit,form type,pt stat,prov type^MU^^R^IR^I^355.9^^^^^S"
^DD("IX",120,.1,0)="^^3^3^3000906^^"
^DD("IX",120,.1,1,0)="This cross reference provides an index to insure that each record in this"
^DD("IX",120,.1,2,0)="file has a unique combination of provider,insurance company, form type,"
^DD("IX",120,.1,3,0)="patient status and provider id type."
^DD("IX",120,1)="S ^IBA(355.9,""AUNIQ"",X(1),$E(X(2),1,30),$E(X(3),1,30),X(4),X(5),X(6),DA)="""""
^DD("IX",120,2)="K ^IBA(355.9,""AUNIQ"",X(1),$E(X(2),1,30),$E(X(3),1,30),X(4),X(5),X(6),DA)"
^DD("IX",120,2.5)="K ^IBA(355.9,""AUNIQ"")"
^DD("IX",120,11.1,0)="^.114IA^11^6"
^DD("IX",120,11.1,1,0)="1^F^355.9^.01^^1^F"
^DD("IX",120,11.1,6,0)="5^F^355.9^.05^^5^F"
^DD("IX",120,11.1,8,0)="2^F^355.9^.15^30^2^F"
^DD("IX",120,11.1,9,0)="3^F^355.9^.16^30^3^F"
^DD("IX",120,11.1,10,0)="6^F^355.9^.06^^6^F"
^DD("IX",120,11.1,11,0)="4^F^355.9^.04^^4^F"
^DD("IX",120,11.1,"AC",1,1)=""
^DD("IX",120,11.1,"AC",2,8)=""
^DD("IX",120,11.1,"AC",3,9)=""
^DD("IX",120,11.1,"AC",4,11)=""
^DD("IX",120,11.1,"AC",5,6)=""
^DD("IX",120,11.1,"AC",6,10)=""
^DD("IX",120,11.1,"B",1,1)=""
^DD("IX",120,11.1,"B",2,8)=""
^DD("IX",120,11.1,"B",3,9)=""
^DD("IX",120,11.1,"B",4,11)=""
^DD("IX",120,11.1,"B",5,6)=""
^DD("IX",120,11.1,"B",6,10)=""
^DD("IX",120,11.1,"BB",1,1)=""
^DD("IX",120,11.1,"BB",2,8)=""
^DD("IX",120,11.1,"BB",3,9)=""
^DD("IX",120,11.1,"BB",4,11)=""
^DD("IX",120,11.1,"BB",5,6)=""
^DD("IX",120,11.1,"BB",6,10)=""
^DD("IX",121,0)="355.91^AC^Xref by insurance co,provider type,care unit^R^^R^IR^I^355.91^^^^^S"
^DD("IX",121,1)="S ^IBA(355.91,""AC"",X(1),X(2),$E(X(3),1,30),DA)="""""
^DD("IX",121,2)="K ^IBA(355.91,""AC"",X(1),X(2),$E(X(3),1,30),DA)"
^DD("IX",121,2.5)="K ^IBA(355.91,""AC"")"
^DD("IX",121,11.1,0)="^.114IA^3^3"
^DD("IX",121,11.1,1,0)="1^F^355.91^.01^^1^F"
^DD("IX",121,11.1,1,3)=""
^DD("IX",121,11.1,2,0)="2^F^355.91^.06^^2^F"
^DD("IX",121,11.1,2,3)=""
^DD("IX",121,11.1,3,0)="3^F^355.91^.1^30^3^F"
^DD("IX",121,11.1,3,3)=""
^DD("IX",121,11.1,"AC",1,1)=""
^DD("IX",121,11.1,"AC",2,2)=""
^DD("IX",121,11.1,"AC",3,3)=""
^DD("IX",121,11.1,"B",1,1)=""
^DD("IX",121,11.1,"B",2,2)=""
^DD("IX",121,11.1,"B",3,3)=""
^DD("IX",121,11.1,"BB",1,1)=""
^DD("IX",121,11.1,"BB",2,2)=""
^DD("IX",121,11.1,"BB",3,3)=""
^DD("IX",122,0)="355.91^AUNIQ^Xref by ins co,care unit,form type,pt stat,prov type^MU^^R^IR^I^355.91^^^^^S"
^DD("IX",122,.1,0)="^^3^3^3000906^"
^DD("IX",122,.1,1,0)="This cross reference provides an index to insure that each record in this"
^DD("IX",122,.1,2,0)="file has a unique combination of insurance company, form type, patient"
^DD("IX",122,.1,3,0)="status and provider id type."
^DD("IX",122,1)="S ^IBA(355.91,""AUNIQ"",X(1),$S(X(2):$E(X(2),1,30),1:""*N/A*""),X(3),X(4),X(5),DA)="""""
^DD("IX",122,2)="K ^IBA(355.91,""AUNIQ"",X(1),$S(X(2):$E(X(2),1,30),1:""*N/A*""),X(3),X(4),X(5),DA)"
^DD("IX",122,2.5)="K ^IBA(355.91,""AUNIQ"")"
^DD("IX",122,11.1,0)="^.114IA^5^5"
^DD("IX",122,11.1,1,0)="1^F^355.91^.01^^1^F"
^DD("IX",122,11.1,2,0)="2^F^355.91^.1^30^2^F"
^DD("IX",122,11.1,3,0)="3^F^355.91^.04^^3^F"
^DD("IX",122,11.1,4,0)="4^F^355.91^.05^^4^F"
^DD("IX",122,11.1,5,0)="5^F^355.91^.06^^5^F"
^DD("IX",122,11.1,"AC",1,1)=""
^DD("IX",122,11.1,"AC",2,2)=""
^DD("IX",122,11.1,"AC",3,3)=""
^DD("IX",122,11.1,"AC",4,4)=""
^DD("IX",122,11.1,"AC",5,5)=""
^DD("IX",122,11.1,"B",1,1)=""
^DD("IX",122,11.1,"B",2,2)=""
^DD("IX",122,11.1,"B",3,3)=""
^DD("IX",122,11.1,"B",4,4)=""
^DD("IX",122,11.1,"B",5,5)=""
^DD("IX",122,11.1,"BB",1,1)=""
^DD("IX",122,11.1,"BB",2,2)=""
^DD("IX",122,11.1,"BB",3,3)=""
^DD("IX",122,11.1,"BB",4,4)=""
^DD("IX",122,11.1,"BB",5,5)=""
^DD("IX",123,0)="355.95^C^LOOKUP XREF BY INSURANCE CO AND CARE UNIT NAME^R^^R^IR^I^355.95^^^^^LS"
^DD("IX",123,1)="S ^IBA(355.95,""C"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",123,2)="K ^IBA(355.95,""C"",X(1),$E(X(2),1,30),DA)"
^DD("IX",123,2.5)="K ^IBA(355.95,""C"")"
^DD("IX",123,11.1,0)="^.114IA^2^2"
^DD("IX",123,11.1,1,0)="1^F^355.95^.03^^1^F"
^DD("IX",123,11.1,2,0)="2^F^355.95^.01^30^2^F"
^DD("IX",123,11.1,"AC",1,1)=""
^DD("IX",123,11.1,"AC",2,2)=""
^DD("IX",123,11.1,"B",1,1)=""
^DD("IX",123,11.1,"B",2,2)=""
^DD("IX",123,11.1,"BB",1,1)=""
^DD("IX",123,11.1,"BB",2,2)=""
^DD("IX",124,0)="355.96^AC^Xref by insurance company, provider type^R^^R^IR^I^355.96^^^^^S"
^DD("IX",124,.1,0)="^^2^2^3000925^"
^DD("IX",124,.1,1,0)="This cross reference is used to easily find all care units for an"
^DD("IX",124,.1,2,0)="insurance company and provider id type."
^DD("IX",124,1)="S ^IBA(355.96,""AC"",X(1),X(2),DA)="""""
^DD("IX",124,2)="K ^IBA(355.96,""AC"",X(1),X(2),DA)"
^DD("IX",124,2.5)="K ^IBA(355.96,""AC"")"
^DD("IX",124,11.1,0)="^.114IA^2^2"
^DD("IX",124,11.1,1,0)="1^F^355.96^.03^^1^F"
^DD("IX",124,11.1,2,0)="2^F^355.96^.06^^2^F"
^DD("IX",124,11.1,"AC",1,1)=""
^DD("IX",124,11.1,"AC",2,2)=""
^DD("IX",124,11.1,"B",1,1)=""
^DD("IX",124,11.1,"B",2,2)=""
^DD("IX",124,11.1,"BB",1,1)=""
^DD("IX",124,11.1,"BB",2,2)=""
^DD("IX",125,0)="355.96^AD^Xref by insurance co, form type, bill care type, provider type^R^^R^IR^I^355.96^^^^^S"
^DD("IX",125,1)="S ^IBA(355.96,""AD"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",125,2)="K ^IBA(355.96,""AD"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",125,2.5)="K ^IBA(355.96,""AD"")"
^DD("IX",125,11.1,0)="^.114IA^4^4"
^DD("IX",125,11.1,1,0)="1^F^355.96^.03^^1^F"
^DD("IX",125,11.1,1,3)=""
^DD("IX",125,11.1,2,0)="2^F^355.96^.04^^2^F"
^DD("IX",125,11.1,2,3)=""
^DD("IX",125,11.1,3,0)="3^F^355.96^.05^^3^F"
^DD("IX",125,11.1,3,3)=""
^DD("IX",125,11.1,4,0)="4^F^355.96^.06^^4^F"
^DD("IX",125,11.1,4,3)=""
^DD("IX",125,11.1,"AC",1,1)=""
^DD("IX",125,11.1,"AC",2,2)=""
^DD("IX",125,11.1,"AC",3,3)=""
^DD("IX",125,11.1,"AC",4,4)=""
^DD("IX",125,11.1,"B",1,1)=""
^DD("IX",125,11.1,"B",2,2)=""
^DD("IX",125,11.1,"B",3,3)=""
^DD("IX",125,11.1,"B",4,4)=""
^DD("IX",125,11.1,"BB",1,1)=""
^DD("IX",125,11.1,"BB",2,2)=""
^DD("IX",125,11.1,"BB",3,3)=""
^DD("IX",125,11.1,"BB",4,4)=""
^DD("IX",126,0)="355.96^AE^Xref by care unit and insurance co^R^^R^IR^I^355.96^^^^^S"
^DD("IX",126,.1,0)="^^2^2^3010801^"
^DD("IX",126,.1,1,0)="This cross reference provides easy access to all insurance companies for a"
^DD("IX",126,.1,2,0)="care unit entry."
^DD("IX",126,1)="S ^IBA(355.96,""AE"",X(1),X(2),DA)="""""
^DD("IX",126,2)="K ^IBA(355.96,""AE"",X(1),X(2),DA)"
^DD("IX",126,2.5)="K ^IBA(355.96,""AE"")"
^DD("IX",126,11.1,0)="^.114IA^2^2"
^DD("IX",126,11.1,1,0)="1^F^355.96^.01^^1^F"
^DD("IX",126,11.1,1,3)=""
^DD("IX",126,11.1,2,0)="2^F^355.96^.03^^2^F"
^DD("IX",126,11.1,2,3)=""
^DD("IX",126,11.1,"AC",1,1)=""
^DD("IX",126,11.1,"AC",2,2)=""
^DD("IX",126,11.1,"B",1,1)=""
^DD("IX",126,11.1,"B",2,2)=""
^DD("IX",126,11.1,"BB",1,1)=""
^DD("IX",126,11.1,"BB",2,2)=""
^DD("IX",127,0)="355.96^AUNIQ^Xref by ins co,care unit,form type,pt stat,prov type^R^^R^IR^I^355.96^^^^^S"
^DD("IX",127,.1,0)="^^3^3^3010801^"
^DD("IX",127,.1,1,0)="This cross reference provides an index to insure that each record in this"
^DD("IX",127,.1,2,0)="file has a unique combination of insurance company, form type, bill type"
^DD("IX",127,.1,3,0)="and provider id type."
^DD("IX",127,1)="S ^IBA(355.96,""AUNIQ"",X(1),X(2),X(3),X(4),X(5),DA)="""""
^DD("IX",127,2)="K ^IBA(355.96,""AUNIQ"",X(1),X(2),X(3),X(4),X(5),DA)"
^DD("IX",127,2.5)="K ^IBA(355.96,""AUNIQ"")"
^DD("IX",127,11.1,0)="^.114IA^5^5"
^DD("IX",127,11.1,1,0)="1^F^355.96^.03^^1^F"
^DD("IX",127,11.1,2,0)="2^F^355.96^.01^^2^F"
^DD("IX",127,11.1,3,0)="3^F^355.96^.04^^3^F"
^DD("IX",127,11.1,4,0)="4^F^355.96^.05^^4^F"
^DD("IX",127,11.1,5,0)="5^F^355.96^.06^^5^F"
^DD("IX",127,11.1,"AC",1,1)=""
^DD("IX",127,11.1,"AC",2,2)=""
^DD("IX",127,11.1,"AC",3,3)=""
^DD("IX",127,11.1,"AC",4,4)=""
^DD("IX",127,11.1,"AC",5,5)=""
^DD("IX",127,11.1,"B",1,1)=""
^DD("IX",127,11.1,"B",2,2)=""
^DD("IX",127,11.1,"B",3,3)=""
^DD("IX",127,11.1,"B",4,4)=""
^DD("IX",127,11.1,"B",5,5)=""
^DD("IX",127,11.1,"BB",1,1)=""
^DD("IX",127,11.1,"BB",2,2)=""
^DD("IX",127,11.1,"BB",3,3)=""
^DD("IX",127,11.1,"BB",4,4)=""
^DD("IX",127,11.1,"BB",5,5)=""
^DD("IX",128,0)="355.96^D^Lookup xref by insurance co and provider id type^R^^R^IR^I^355.96^^^^^LS"
^DD("IX",128,.1,0)="^^2^2^3000928^"
^DD("IX",128,.1,1,0)="This xref provides an easy way to lookup the entries in this file by"
^DD("IX",128,.1,2,0)="insurance co and provider id type."
^DD("IX",128,1)="S ^IBA(355.96,""D"",X(1),X(2),DA)="""""
^DD("IX",128,2)="K ^IBA(355.96,""D"",X(1),X(2),DA)"
^DD("IX",128,2.5)="K ^IBA(355.96,""D"")"
^DD("IX",128,11.1,0)="^.114IA^2^2"
^DD("IX",128,11.1,1,0)="1^F^355.96^.03^^1^F"
^DD("IX",128,11.1,2,0)="2^F^355.96^.06^^2^F^CARE UNIT: "
^DD("IX",128,11.1,"AC",1,1)=""
^DD("IX",128,11.1,"AC",2,2)=""
^DD("IX",128,11.1,"B",1,1)=""
^DD("IX",128,11.1,"B",2,2)=""
^DD("IX",128,11.1,"BB",1,1)=""
^DD("IX",128,11.1,"BB",2,2)=""
^DD("IX",129,0)="361^AD^XREF BY BILL NUMBER AND DATE GENERATED^R^^R^IR^I^361^^^^^S"
^DD("IX",129,.1,0)="^^2^2^3000126^"
^DD("IX",129,.1,1,0)="This xref is used to warn if the message may be a dup if more than one"
^DD("IX",129,.1,2,0)="message for the same date/time exists."
^DD("IX",129,1)="S ^IBM(361,""AD"",$E(X2(1),1,30),$E(X2(2),1,30),DA)="""""
^DD("IX",129,2)="K ^IBM(361,""AD"",$E(X1(1),1,30),$E(X1(2),1,30),DA)"
^DD("IX",129,2.5)="K ^IBM(361,""AD"")"
^DD("IX",129,11.1,0)="^.114IA^2^2"
^DD("IX",129,11.1,1,0)="1^F^361^.01^30^1^F"
^DD("IX",129,11.1,1,3)=""
^DD("IX",129,11.1,2,0)="2^F^361^.12^30^2^F"
^DD("IX",129,11.1,2,3)=""
^DD("IX",129,11.1,"AC",1,1)=""
^DD("IX",129,11.1,"AC",2,2)=""
^DD("IX",129,11.1,"B",1,1)=""
^DD("IX",129,11.1,"B",2,2)=""
^DD("IX",129,11.1,"BB",1,1)=""
^DD("IX",129,11.1,"BB",2,2)=""
^DD("IX",130,0)="361^ADR^Cross reference by bill # and date message received^R^^R^IR^I^361^^^^^S"
^DD("IX",130,1)="S ^IBM(361,""ADR"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",130,2)="K ^IBM(361,""ADR"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",130,2.5)="K ^IBM(361,""ADR"")"
^DD("IX",130,11.1,0)="^.114IA^2^2"
^DD("IX",130,11.1,1,0)="1^F^361^.01^30^1^F"
^DD("IX",130,11.1,1,3)=""
^DD("IX",130,11.1,2,0)="2^F^361^.02^30^2^F"
^DD("IX",130,11.1,2,3)=""
^DD("IX",130,11.1,"AC",1,1)=""
^DD("IX",130,11.1,"AC",2,2)=""
^DD("IX",130,11.1,"B",1,1)=""
^DD("IX",130,11.1,"B",2,2)=""
^DD("IX",130,11.1,"BB",1,1)=""
^DD("IX",130,11.1,"BB",2,2)=""
^DD("IX",131,0)="361.1^ABD^This xref provides an index by bill # and EOB date^R^^R^IR^I^361.1^^^^^S"
^DD("IX",131,1)="S ^IBM(361.1,""ABD"",X2(1),X2(2),DA)="""""
^DD("IX",131,1.4)="I X2(1)=""""!(X2(2)="""") S X=0"
^DD("IX",131,2)="K ^IBM(361.1,""ABD"",X1(1),X1(2),DA)"
^DD("IX",131,2.4)="I X1(1)=""""!(X1(2)="""") S X=0"
^DD("IX",131,2.5)="K ^IBM(361.1,""ABD"")"
^DD("IX",131,11.1,0)="^.114IA^2^2"
^DD("IX",131,11.1,1,0)="1^F^361.1^.01^^1^F"
^DD("IX",131,11.1,2,0)="2^F^361.1^.06^^2^F"
^DD("IX",131,11.1,"AC",1,1)=""
^DD("IX",131,11.1,"AC",2,2)=""
^DD("IX",131,11.1,"B",1,1)=""
^DD("IX",131,11.1,"B",2,2)=""
^DD("IX",131,11.1,"BB",1,1)=""
^DD("IX",131,11.1,"BB",2,2)=""
^DD("IX",132,0)="361.1^ABS^Cross reference bill # and insurance company sequence.^R^^R^IR^I^361.1^^^^^S"
^DD("IX",132,1)="S ^IBM(361.1,""ABS"",X2(1),X2(2),DA)="""""
^DD("IX",132,1.4)="I X2(1)=""""!(X2(2)="""") S X=0"
^DD("IX",132,2)="K ^IBM(361.1,""ABS"",X1(1),X1(2),DA)"
^DD("IX",132,2.4)="I X1(1)=""""!(X1(2)="""") S X=0"
^DD("IX",132,2.5)="K ^IBM(361.1,""ABS"")"
^DD("IX",132,11.1,0)="^.114IA^2^2"
^DD("IX",132,11.1,1,0)="1^F^361.1^.01^^1^F"
^DD("IX",132,11.1,1,3)=""
^DD("IX",132,11.1,2,0)="2^F^361.1^.15^^2^F"
^DD("IX",132,11.1,2,3)=""
^DD("IX",132,11.1,"AC",1,1)=""
^DD("IX",132,11.1,"AC",2,2)=""
^DD("IX",132,11.1,"B",1,1)=""
^DD("IX",132,11.1,"B",2,2)=""
^DD("IX",132,11.1,"BB",1,1)=""
^DD("IX",132,11.1,"BB",2,2)=""
^DD("IX",133,0)="361.3^AC^Cross reference by text and default review status^R^^R^IR^I^361.3^^^^^S"
^DD("IX",133,1)="S ^IBE(361.3,""AC"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",133,2)="K ^IBE(361.3,""AC"",X(1),$E(X(2),1,30),DA)"
^DD("IX",133,2.5)="K ^IBE(361.3,""AC"")"
^DD("IX",133,11.1,0)="^.114IA^2^2"
^DD("IX",133,11.1,1,0)="1^F^361.3^.02^^1^F"
^DD("IX",133,11.1,1,3)=""
^DD("IX",133,11.1,2,0)="2^F^361.3^.01^30^2^F"
^DD("IX",133,11.1,2,3)=""
^DD("IX",133,11.1,"AC",1,1)=""
^DD("IX",133,11.1,"AC",2,2)=""
^DD("IX",133,11.1,"B",1,1)=""
^DD("IX",133,11.1,"B",2,2)=""
^DD("IX",133,11.1,"BB",1,1)=""
^DD("IX",133,11.1,"BB",2,2)=""
^DD("IX",134,0)="364^ABABI^XREF BY BATCH # AND BILL #^R^^R^IR^I^364^^^^^S"
^DD("IX",134,1)="S ^IBA(364,""ABABI"",X2(3),X2(2),DA)="""""
^DD("IX",134,1.4)="I X2(2)=""""!(X2(3)="""") S X=0"
^DD("IX",134,2)="K ^IBA(364,""ABABI"",X1(3),X1(2),DA)"
^DD("IX",134,2.4)="I X1(2)=""""!(X1(3)="""") S X=0"
^DD("IX",134,2.5)="K ^IBA(364,""ABABI"")"
^DD("IX",134,11.1,0)="^.114IA^2^2"
^DD("IX",134,11.1,1,0)="2^F^364^.01^^2^F"
^DD("IX",134,11.1,2,0)="3^F^364^.02^^1^F"
^DD("IX",134,11.1,"AC",1,2)=""
^DD("IX",134,11.1,"AC",2,1)=""
^DD("IX",134,11.1,"B",2,1)=""
^DD("IX",134,11.1,"B",3,2)=""
^DD("IX",134,11.1,"BB",2,1)=""
^DD("IX",134,11.1,"BB",3,2)=""
^DD("IX",135,0)="364^ABAST^This cross reference is the batch entry # and status of the record.^R^^R^IR^I^364^^^^^S"
^DD("IX",135,1)="S ^IBA(364,""ABAST"",X2(1),X2(2),DA)="""""
^DD("IX",135,1.4)="I X2(1)=""""!(X2(2)="""") S X=0"
^DD("IX",135,2)="K ^IBA(364,""ABAST"",X1(1),X1(2),DA)"
^DD("IX",135,2.4)="I X1(1)=""""!(X1(2)="""") S X=0"
^DD("IX",135,2.5)="K ^IBA(364,""ABAST"")"
^DD("IX",135,11.1,0)="^.114IA^2^2"
^DD("IX",135,11.1,1,0)="1^F^364^.02^^1^F"
^DD("IX",135,11.1,2,0)="2^F^364^.03^^2^F"
^DD("IX",135,11.1,"AC",1,1)=""
^DD("IX",135,11.1,"AC",2,2)=""
^DD("IX",135,11.1,"B",1,1)=""
^DD("IX",135,11.1,"B",2,2)=""
^DD("IX",135,11.1,"BB",1,1)=""
^DD("IX",135,11.1,"BB",2,2)=""
^DD("IX",136,0)="364^ABDT^Used to determine the latest status of any record for a bill^R^^R^IR^I^364^^^^^S"
^DD("IX",136,1)="S ^IBA(364,""ABDT"",X2(1),X2(2),DA)="""""
^DD("IX",136,1.4)="I X2(1)=""""!(X2(2)="""") S X=0"
^DD("IX",136,2)="K ^IBA(364,""ABDT"",X1(1),X1(2),DA)"
^DD("IX",136,2.4)="I X1(1)=""""!(X1(2)="""") S X=0"
^DD("IX",136,2.5)="K ^IBA(364,""ABDT"")"
^DD("IX",136,11.1,0)="^.114IA^2^2"
^DD("IX",136,11.1,1,0)="1^F^364^.01^^1^F"
^DD("IX",136,11.1,2,0)="2^F^364^.04^^2^F"
^DD("IX",136,11.1,"AC",1,1)=""
^DD("IX",136,11.1,"AC",2,2)=""
^DD("IX",136,11.1,"B",1,1)=""
^DD("IX",136,11.1,"B",2,2)=""
^DD("IX",136,11.1,"BB",1,1)=""
^DD("IX",136,11.1,"BB",2,2)=""
^DD("IX",137,0)="364^ACOB^XREF USED TO DETERMINE BILLS NEEDING COB PROCESSING^MU^^R^IR^I^364^^^^^S"
^DD("IX",137,.1,0)="^^11^11^3000516^^^"
^DD("IX",137,.1,1,0)="This cross references all transmitted bills that have subsequent"
^DD("IX",137,.1,2,0)="insurance, but no subsequent bill and are still active in this file"
^DD("IX",137,.1,3,0)="(status starts with 'A') and must be in status of 3, 4 or 6."
^DD("IX",137,.1,4,0)=" "
^DD("IX",137,.1,5,0)="Subsequent insurance: check the ""I#"" (I2,I3) node of the bill is defined"
^DD("IX",137,.1,6,0)="                      for the COB sequence (field .08)"
^DD("IX",137,.1,7,0)="Subsequent bill: None found if the piece of the ""M1"" node of the bill"
^DD("IX",137,.1,8,0)="                 entry (calculated by 4+numeric COB translation) is not"
^DD("IX",137,.1,9,0)="                 there"
^DD("IX",137,.1,10,0)="Bill status must be 3 or 4"
^DD("IX",137,.1,11,0)="Depends on the settings in fields .01, .03, .08"
^DD("IX",137,1)="S ^IBA(364,""ACOB"",X2(1),DA)="""""
^DD("IX",137,1.4)="I 'X2(1)!'X2(4) S X=0"
^DD("IX",137,2)="K ^IBA(364,""ACOB"",X1(1),DA)"
^DD("IX",137,2.4)="I 'X1(1) S X=0"
^DD("IX",137,2.5)="K ^IBA(364,""ACOB"")"
^DD("IX",137,11.1,0)="^.114IA^6^4"
^DD("IX",137,11.1,1,0)="1^F^364^.01^^1^F"
^DD("IX",137,11.1,1,1)=""
^DD("IX",137,11.1,3,0)="3^F^364^.08^^^F"
^DD("IX",137,11.1,3,1)=""
^DD("IX",137,11.1,4,0)="4^C^^^^^F"
^DD("IX",137,11.1,4,1)=""
^DD("IX",137,11.1,4,1.5)="S X=$$COBPOSS^IBCECOB(DA)"
^DD("IX",137,11.1,6,0)="2^F^364^.03^^^F"
^DD("IX",137,11.1,"AC",1,1)=""
^DD("IX",137,11.1,"B",1,1)=""
^DD("IX",137,11.1,"B",2,6)=""
^DD("IX",137,11.1,"B",3,3)=""
^DD("IX",137,11.1,"B",4,4)=""
^DD("IX",137,11.1,"BB",1,1)=""
^DD("IX",137,11.1,"BB",2,6)=""
^DD("IX",137,11.1,"BB",3,3)=""
^DD("IX",137,11.1,"BB",4,4)=""
^DD("IX",138,0)="364.4^AD^Sets the first level of xref to determine which edits are most general.^MU^^R^IR^I^364.4^^^^^S"
^DD("IX",138,1)="S ^IBE(364.4,""AD"",X2(1),X2(2),$S(X2(3)=3:X2(3),X2(6)=0:X2(3)#2+1,1:X2(3)),X2(4),DA)=+X2(5)"
^DD("IX",138,1.4)="I X2(1)=""""!(X2(2)="""")!(X2(3)="""")!(X2(4)="""") S X=0"
^DD("IX",138,2)="K ^IBE(364.4,""AD"",X1(1),X1(2),$S(X1(3)=3:X1(3),X1(6)=0:X1(3)#2+1,1:X1(3)),X1(4),DA)"
^DD("IX",138,2.4)="I X1(1)=""""!(X1(2)="""")!(X1(3)="""")!(X1(4)="""") S X=0"
^DD("IX",138,2.5)="K ^IBE(364.4,""AD"")"
^DD("IX",138,11.1,0)="^.114IA^6^6"
^DD("IX",138,11.1,1,0)="1^F^364.4^.03^^1^F"
^DD("IX",138,11.1,2,0)="2^F^364.4^.04^^2^F"
^DD("IX",138,11.1,3,0)="3^F^364.4^.05^^3^F"
^DD("IX",138,11.1,4,0)="4^F^364.4^.07^^4^F"
^DD("IX",138,11.1,5,0)="5^F^364.4^.06^^^F"
^DD("IX",138,11.1,6,0)="6^F^364.4^.11^^^F"
^DD("IX",138,11.1,"AC",1,1)=""
^DD("IX",138,11.1,"AC",2,2)=""
^DD("IX",138,11.1,"AC",3,3)=""
^DD("IX",138,11.1,"AC",4,4)=""
^DD("IX",138,11.1,"B",1,1)=""
^DD("IX",138,11.1,"B",2,2)=""
^DD("IX",138,11.1,"B",3,3)=""
^DD("IX",138,11.1,"B",4,4)=""
^DD("IX",138,11.1,"B",5,5)=""
^DD("IX",138,11.1,"B",6,6)=""
^DD("IX",138,11.1,"BB",1,1)=""
^DD("IX",138,11.1,"BB",2,2)=""
^DD("IX",138,11.1,"BB",3,3)=""
^DD("IX",138,11.1,"BB",4,4)=""
^DD("IX",138,11.1,"BB",5,5)=""
^DD("IX",138,11.1,"BB",6,6)=""
^DD("IX",139,0)="399^AUPDID^UPDATE PROVIDER ID WHEN DATA FIELDS CHANGE AT TOP LEVEL OF FILE^MU^^R^IR^I^399^^^^^A"
^DD("IX",139,.1,0)="^^5^5^3010109^"
^DD("IX",139,.1,1,0)="This cross reference maintains the integrity of the rendering or attending"
^DD("IX",139,.1,2,0)="provider id whenever an insurance company is added, deleted or changed"
^DD("IX",139,.1,3,0)="on the claim.  If either of these provider functions exist on the bill,"
^DD("IX",139,.1,4,0)="this cross reference sets the default id data based on the insurance co's"
^DD("IX",139,.1,5,0)="parameters."
^DD("IX",139,1)="D:X1(1)'=X2(1)!(X1(5)'=X2(5)) SETID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) SETID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) SETID^IBCEP3(DA,3)"
^DD("IX",139,1.4)="S X=$S($O(^DGCR(399,DA,""PRV"",0)):1,1:0)"
^DD("IX",139,2)="D:X1(1)'=X2(1)!(X1(5)'=X2(5)) DELID^IBCEP3(DA,1) D:X1(2)'=X2(2)!(X1(4)'=X2(4)) DELID^IBCEP3(DA,2) D:X1(3)'=X2(3)!(X1(6)'=X2(6)) DELID^IBCEP3(DA,3)"
^DD("IX",139,2.4)="S X=$S($O(^DGCR(399,DA,""PRV"",0)):1,1:0)"
^DD("IX",139,11.1,0)="^.114IA^6^6"
^DD("IX",139,11.1,1,0)="1^F^399^101^^^F"
^DD("IX",139,11.1,2,0)="2^F^399^102^^^F"
^DD("IX",139,11.1,3,0)="3^F^399^103^^^F"
^DD("IX",139,11.1,4,0)="4^F^399^113^^^F"
^DD("IX",139,11.1,5,0)="5^F^399^112^^^F"
^DD("IX",139,11.1,5,3)=" "
^DD("IX",139,11.1,6,0)="6^F^399^114^^^F"
^DD("IX",139,11.1,6,3)=" "
^DD("IX",139,11.1,"B",1,1)=""
^DD("IX",139,11.1,"B",2,2)=""
^DD("IX",139,11.1,"B",3,3)=""
^DD("IX",139,11.1,"B",4,4)=""
^DD("IX",139,11.1,"B",5,5)=""
^DD("IX",139,11.1,"B",6,6)=""
^DD("IX",139,11.1,"BB",1,1)=""
^DD("IX",139,11.1,"BB",2,2)=""
^DD("IX",139,11.1,"BB",3,3)=""
^DD("IX",139,11.1,"BB",4,4)=""
^DD("IX",139,11.1,"BB",5,5)=""
^DD("IX",139,11.1,"BB",6,6)=""
^DD("IX",140,0)="399.0222^AUPDID1^UPDATE PRIMARY PROVIDER ID WHEN DATA FIELDS CHANGE AT PROVIDER LEVEL OF FILE^MU^^F^^I^399.0222^^^^^A"
^DD("IX",140,.1,0)="^^6^6^3040518^"
^DD("IX",140,.1,1,0)="This cross reference maintains the integrity of the rendering or"
^DD("IX",140,.1,2,0)="attending provider id whenever the primary insurance company care unit is"
^DD("IX",140,.1,3,0)="added, deleted or changed on the claim.  If a valid provider number can be"
^DD("IX",140,.1,4,0)="determined by the new value of the care unit, this id # is placed in the"
^DD("IX",140,.1,5,0)="primary id field.  If no valid id can be determined for the provider, the"
^DD("IX",140,.1,6,0)="primary id field for the provider is deleted."
^DD("IX",140,1)="D:X1(1)'=X2(1) SETID^IBCEP3(DA(1),1)"
^DD("IX",140,2)="D:X1(1)'=X2(1)&(X(1)'="""") DELID^IBCEP3(DA(1),1,1)"
^DD("IX",140,2.5)="Q"
^DD("IX",140,11.1,0)="^.114IA^1^1"
^DD("IX",140,11.1,1,0)="1^F^399.0222^.09^^^F"
^DD("IX",140,11.1,"B",1,1)=""
^DD("IX",140,11.1,"BB",1,1)=""
^DD("IX",141,0)="399.0222^AUPDID2^UPDATE SECONDARY PROVIDER ID WHEN DATA FIELDS CHANGE AT PROVIDER LEVEL OF FILE^MU^^F^^I^399.0222^^^^^A"
^DD("IX",141,.1,0)="^^6^6^3040518^"
^DD("IX",141,.1,1,0)="This cross reference maintains the integrity of the rendering or "
^DD("IX",141,.1,2,0)="attending provider id whenever the secondary insurance company care unit"
^DD("IX",141,.1,3,0)="is added, deleted or changed on the claim.  If a valid provider number can"
^DD("IX",141,.1,4,0)="be determined by the new value of the care unit, this id # is placed in"
^DD("IX",141,.1,5,0)="the secondary id field.  If no valid id can be determined for the"
^DD("IX",141,.1,6,0)="provider, the secondary id field for the provider is deleted."
^DD("IX",141,1)="D:X1(1)'=X2(1) SETID^IBCEP3(DA(1),2)"
^DD("IX",141,2)="D:X1(1)'=X2(1) DELID^IBCEP3(DA(1),2,1)"
^DD("IX",141,2.5)="Q"
^DD("IX",141,11.1,0)="^.114IA^1^1"
^DD("IX",141,11.1,1,0)="1^F^399.0222^.1^^^F"
^DD("IX",141,11.1,1,3)=" "
^DD("IX",141,11.1,"B",1,1)=""
^DD("IX",141,11.1,"BB",1,1)=""
^DD("IX",142,0)="399.0222^AUPDID3^UPDATE TERTIARY PROVIDER ID WHEN DATA FIELDS CHANGE AT PROVIDER LEVEL OF FILE^MU^^F^^I^399.0222^^^^^A"
^DD("IX",142,.1,0)="^^6^6^3040518^"
^DD("IX",142,.1,1,0)="This cross reference maintains the integrity of the rendering or attending"
^DD("IX",142,.1,2,0)="provider id whenever the tertiary insurance company care unit is added,"
^DD("IX",142,.1,3,0)="deleted or changed on the claim.  If a valid provider number can be"
^DD("IX",142,.1,4,0)="determined by the new value of the care unit, this id # is placed in the"
^DD("IX",142,.1,5,0)="tertiary id field.  If no valid id can be determined for the provider, the"
^DD("IX",142,.1,6,0)="tertiary id field for the provider is deleted."
^DD("IX",142,1)="D:X1(1)'=X2(1) SETID^IBCEP3(DA(1),3)"
^DD("IX",142,2)="D:X1(1)'=X2(1) DELID^IBCEP3(DA(1),3,1)"
^DD("IX",142,2.5)="Q"
^DD("IX",142,11.1,0)="^.114IA^1^1"
^DD("IX",142,11.1,1,0)="1^F^399.0222^.11^^^F"
^DD("IX",142,11.1,1,3)=" "
^DD("IX",142,11.1,"B",1,1)=""
^DD("IX",142,11.1,"BB",1,1)=""
^DD("IX",143,0)="713.1^APDFN^PROHIBITED LETTERS BY PATIENT DFN^R^^R^IR^I^713.1^^^^^S"
^DD("IX",143,1)="S ^EAS(713.1,""APDFN"",$E(X(1),1,3),$E(X(2),1,30),DA)="""""
^DD("IX",143,2)="K ^EAS(713.1,""APDFN"",$E(X(1),1,3),$E(X(2),1,30),DA)"
^DD("IX",143,2.5)="K ^EAS(713.1,""APDFN"")"
^DD("IX",143,11.1,0)="^.114IA^2^2"
^DD("IX",143,11.1,1,0)="1^F^713.1^2^3^1^F"
^DD("IX",143,11.1,1,3)=""
^DD("IX",143,11.1,2,0)="2^F^713.1^.01^30^2^F"
^DD("IX",143,11.1,2,3)=""
^DD("IX",143,11.1,"AC",1,1)=""
^DD("IX",143,11.1,"AC",2,2)=""
^DD("IX",143,11.1,"B",1,1)=""
^DD("IX",143,11.1,"B",2,2)=""
^DD("IX",143,11.1,"BB",1,1)=""
^DD("IX",143,11.1,"BB",2,2)=""
^DD("IX",144,0)="713.2^AN^CROSS-REF BY RECIPIANT AND ANNIVERSARY DATE^R^^R^IR^I^713.2^^^^^S"
^DD("IX",144,1)="S ^EAS(713.2,""AN"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",144,2)="K ^EAS(713.2,""AN"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",144,2.5)="K ^EAS(713.2,""AN"")"
^DD("IX",144,11.1,0)="^.114IA^2^2"
^DD("IX",144,11.1,1,0)="1^F^713.2^2^30^1^F"
^DD("IX",144,11.1,1,3)=""
^DD("IX",144,11.1,2,0)="2^F^713.2^3^30^2^F"
^DD("IX",144,11.1,2,3)=""
^DD("IX",144,11.1,"AC",1,1)=""
^DD("IX",144,11.1,"AC",2,2)=""
^DD("IX",144,11.1,"B",1,1)=""
^DD("IX",144,11.1,"B",2,2)=""
^DD("IX",144,11.1,"BB",1,1)=""
^DD("IX",144,11.1,"BB",2,2)=""
^DD("IX",145,0)="55.0105^BCMA1^Used by Inpatient Medications.^MU^^R^IR^I^55.0105^^^^^LS"
^DD("IX",145,1)="S ^PS(55,DA(1),""BCMA"",X(1),X(2))="""""
^DD("IX",145,2)="K ^PS(55,DA(1),""BCMA"",X(1),X(2))"
^DD("IX",145,2.5)="K ^PS(55,DA(1),""BCMA"")"
^DD("IX",145,11.1,0)="^.114IA^2^2"
^DD("IX",145,11.1,1,0)="1^F^55.0105^.01^^1^F"
^DD("IX",145,11.1,2,0)="2^F^55.0105^.02^^2^F"
^DD("IX",145,11.1,"AC",1,1)=""
^DD("IX",145,11.1,"AC",2,2)=""
^DD("IX",145,11.1,"B",1,1)=""
^DD("IX",145,11.1,"B",2,2)=""
^DD("IX",145,11.1,"BB",1,1)=""
^DD("IX",145,11.1,"BB",2,2)=""
^DD("IX",146,0)="53.79^APATCH^Updates APATCH when DFN or admin date/time changes.^R^^F^IR^I^53.79^^^^^S"
^DD("IX",146,1)="S ^PSB(53.79,""APATCH"",X(1),X(2),DA)="""""
^DD("IX",146,1.4)="S X=0 N I S I=0 F  S I=$O(^PSB(53.79,DA,.5,I)) Q:'I  I ($P($G(^(I,0)),U,4)=""PATCH"")&($P(^PSB(53.79,DA,0),U,9)=""G"") S X=1 Q"
^DD("IX",146,2)="K ^PSB(53.79,""APATCH"",X(1),X(2),DA)"
^DD("IX",146,2.4)="S X=0 N I S I=0 F  S I=$O(^PSB(53.79,DA,.5,I)) Q:'I  I $P($G(^(I,0)),U,4)=""PATCH"" S X=1 Q"
^DD("IX",146,2.5)="K ^PSB(53.79,""APATCH"")"
^DD("IX",146,11.1,0)="^.114IA^2^2"
^DD("IX",146,11.1,1,0)="1^F^53.79^.01^^1^F"
^DD("IX",146,11.1,2,0)="2^F^53.79^.06^^2^F"
^DD("IX",146,11.1,"AC",1,1)=""
^DD("IX",146,11.1,"AC",2,2)=""
^DD("IX",146,11.1,"B",1,1)=""
^DD("IX",146,11.1,"B",2,2)=""
^DD("IX",146,11.1,"BB",1,1)=""
^DD("IX",146,11.1,"BB",2,2)=""
^DD("IX",147,0)="53.79^AUID^cross reference of dfn, order number, and unique id^R^^R^IR^I^53.79^^^^^S"
^DD("IX",147,1)="S ^PSB(53.79,""AUID"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",147,2)="K ^PSB(53.79,""AUID"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",147,2.5)="K ^PSB(53.79,""AUID"")"
^DD("IX",147,11.1,0)="^.114IA^3^3"
^DD("IX",147,11.1,1,0)="1^F^53.79^.01^^1^F"
^DD("IX",147,11.1,1,3)=""
^DD("IX",147,11.1,2,0)="2^F^53.79^.11^30^2^F"
^DD("IX",147,11.1,2,3)=""
^DD("IX",147,11.1,3,0)="3^F^53.79^.26^30^3^F"
^DD("IX",147,11.1,3,3)=""
^DD("IX",147,11.1,"AC",1,1)=""
^DD("IX",147,11.1,"AC",2,2)=""
^DD("IX",147,11.1,"AC",3,3)=""
^DD("IX",147,11.1,"B",1,1)=""
^DD("IX",147,11.1,"B",2,2)=""
^DD("IX",147,11.1,"B",3,3)=""
^DD("IX",147,11.1,"BB",1,1)=""
^DD("IX",147,11.1,"BB",2,2)=""
^DD("IX",147,11.1,"BB",3,3)=""
^DD("IX",148,0)="53.795^APATCH^Sets the APATCH cross-reference when unit of administration is PATCH^MU^^F^IR^I^53.795^^^^^A"
^DD("IX",148,1)="N I S I=0 X ""F  S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I  Q:$P($G(^(I,0)),U,4)=""""PATCH""""  Q:$P(^PSB(53.79,DA(1),0),U,9)'=""""G"""""" S:I ^PSB(53.79,""APATCH"",X(1),X(2),DA(1))="""" K:'I ^PSB(53.79,""APATCH"",X(1),X(2),DA(1))"
^DD("IX",148,1.4)="S X=X1(3)=""PATCH""!(X2(3)=""PATCH"")&(X2(3)]"""")"
^DD("IX",148,2)="N I S I=0 X ""F  S I=$O(^PSB(53.79,DA(1),.5,I)) Q:'I  Q:$P($G(^(I,0)),U,4)=""""PATCH""""&(I'=DA)"" S:I ^PSB(53.79,""APATCH"",X(1),X(2),DA(1))="""" K:'I ^PSB(53.79,""APATCH"",X(1),X(2),DA(1))"
^DD("IX",148,2.4)="S X=X1(3)=""PATCH""&(X2(3)="""")"
^DD("IX",148,11.1,0)="^.114IA^3^3"
^DD("IX",148,11.1,1,0)="1^C^^^^1"
^DD("IX",148,11.1,1,1.5)="S X=$P(^PSB(53.79,DA(1),0),U)"
^DD("IX",148,11.1,2,0)="2^C^^^^2"
^DD("IX",148,11.1,2,1.5)="S X=$P(^PSB(53.79,DA(1),0),U,6)"
^DD("IX",148,11.1,3,0)="3^F^53.795^.04^^3^F"
^DD("IX",148,11.1,"AC",1,1)=""
^DD("IX",148,11.1,"AC",2,2)=""
^DD("IX",148,11.1,"AC",3,3)=""
^DD("IX",148,11.1,"B",1,1)=""
^DD("IX",148,11.1,"B",2,2)=""
^DD("IX",148,11.1,"B",3,3)=""
^DD("IX",148,11.1,"BB",1,1)=""
^DD("IX",148,11.1,"BB",2,2)=""
^DD("IX",148,11.1,"BB",3,3)=""
^DD("IX",149,0)="351.81^AE^Used to find the last beginning date clock for a patient.^R^^R^IR^I^351.81^^^^^S"
^DD("IX",149,1)="S ^IBA(351.81,""AE"",X(1),X(2),DA)="""""
^DD("IX",149,2)="K ^IBA(351.81,""AE"",X(1),X(2),DA)"
^DD("IX",149,2.5)="K ^IBA(351.81,""AE"")"
^DD("IX",149,11.1,0)="^.114IA^2^2"
^DD("IX",149,11.1,1,0)="1^F^351.81^.02^^1^F"
^DD("IX",149,11.1,1,3)=""
^DD("IX",149,11.1,2,0)="2^F^351.81^.03^^2^F"
^DD("IX",149,11.1,2,3)=""
^DD("IX",149,11.1,"AC",1,1)=""
^DD("IX",149,11.1,"AC",2,2)=""
^DD("IX",149,11.1,"B",1,1)=""
^DD("IX",149,11.1,"B",2,2)=""
^DD("IX",149,11.1,"BB",1,1)=""
^DD("IX",149,11.1,"BB",2,2)=""
^DD("IX",150,0)="798^KEY^Uniqueness Index for Key 'A' of File #798^R^^R^IR^I^798^^^^^LS"
^DD("IX",150,.1,0)="^^3^3^3060203^"
^DD("IX",150,.1,1,0)="This index guarantees uniqueness of the patient "
^DD("IX",150,.1,2,0)="record in the particular registry and allows users"
^DD("IX",150,.1,3,0)="to easily find this record."
^DD("IX",150,1)="S ^RORDATA(798,""KEY"",X(1),X(2),DA)="""""
^DD("IX",150,2)="K ^RORDATA(798,""KEY"",X(1),X(2),DA)"
^DD("IX",150,2.5)="K ^RORDATA(798,""KEY"")"
^DD("IX",150,11.1,0)="^.114IA^2^2"
^DD("IX",150,11.1,1,0)="1^F^798^.01^^1"
^DD("IX",150,11.1,2,0)="2^F^798^.02^^2"
^DD("IX",150,11.1,"AC",1,1)=""
^DD("IX",150,11.1,"AC",2,2)=""
^DD("IX",150,11.1,"B",1,1)=""
^DD("IX",150,11.1,"B",2,2)=""
^DD("IX",150,11.1,"BB",1,1)=""
^DD("IX",150,11.1,"BB",2,2)=""
^DD("IX",151,0)="798.1^B^Uniqueness Index for Key 'A' of File #798.1^R^^F^IR^I^798.1^^^^^LS"
^DD("IX",151,1)="S ^ROR(798.1,""B"",X,DA)="""""
^DD("IX",151,2)="K ^ROR(798.1,""B"",X,DA)"
^DD("IX",151,2.5)="K ^ROR(798.1,""B"")"
^DD("IX",151,11.1,0)="^.114IA^1^1"
^DD("IX",151,11.1,1,0)="1^F^798.1^.01^^1"
^DD("IX",151,11.1,"AC",1,1)=""
^DD("IX",151,11.1,"B",1,1)=""
^DD("IX",151,11.1,"BB",1,1)=""
^DD("IX",152,0)="798.13^B^Uniqueness Index for Key 'A' of Subfile #798.13^R^^F^IR^I^798.13^^^^^LS"
^DD("IX",152,1)="S ^ROR(798.1,DA(1),1,""B"",X,DA)="""""
^DD("IX",152,2)="K ^ROR(798.1,DA(1),1,""B"",X,DA)"
^DD("IX",152,2.5)="K ^ROR(798.1,DA(1),1,""B"")"
^DD("IX",152,11.1,0)="^.114IA^1^1"
^DD("IX",152,11.1,1,0)="1^F^798.13^.01^^1"
^DD("IX",152,11.1,"AC",1,1)=""
^DD("IX",152,11.1,"B",1,1)=""
^DD("IX",152,11.1,"BB",1,1)=""
^DD("IX",153,0)="798^ADEM^Sets the date of last demographic update^MU^^F^^I^798^^^^^A"
^DD("IX",153,1)="D FILE^RORDD01(798,DA_"","",4.1,$$NOW^XLFDT)"
^DD("IX",153,1.4)="S X=(X2(1)>0)"
^DD("IX",153,2)="Q"
^DD("IX",153,11.1,0)="^.114IA^1^1"
^DD("IX",153,11.1,1,0)="1^F^798^4^^^"
^DD("IX",153,11.1,"B",1,1)=""
^DD("IX",153,11.1,"BB",1,1)=""
^DD("IX",154,0)="798.2^B^Uniqueness Index for the ""A"" Key of File #798.2^R^^F^IR^I^798.2^^^^^LS"
^DD("IX",154,1)="S ^ROR(798.2,""B"",X,DA)="""""
^DD("IX",154,2)="K ^ROR(798.2,""B"",X,DA)"
^DD("IX",154,2.5)="K ^ROR(798.2,""B"")"
^DD("IX",154,11.1,0)="^.114IA^1^1"
^DD("IX",154,11.1,1,0)="1^F^798.2^.01^^1"
^DD("IX",154,11.1,"AC",1,1)=""
^DD("IX",154,11.1,"B",1,1)=""
^DD("IX",154,11.1,"BB",1,1)=""
^DD("IX",155,0)="798.26^B^Uniqueness Index for the ""A"" Key of Subfile #798.26^R^^F^IR^I^798.26^^^^^LS"
^DD("IX",155,1)="S ^ROR(798.2,DA(1),4,""B"",X,DA)="""""
^DD("IX",155,2)="K ^ROR(798.2,DA(1),4,""B"",X,DA)"
^DD("IX",155,2.5)="K ^ROR(798.2,DA(1),4,""B"")"
^DD("IX",155,11.1,0)="^.114IA^1^1"
^DD("IX",155,11.1,1,0)="1^F^798.26^.01^^1"
^DD("IX",155,11.1,"AC",1,1)=""
^DD("IX",155,11.1,"B",1,1)=""
^DD("IX",155,11.1,"BB",1,1)=""
^DD("IX",156,0)="798.31^B^Uniqueness Index for the ""A"" key of Subfile #798.31^R^^F^IR^I^798.31^^^^^LS"
^DD("IX",156,1)="S ^RORDATA(798.3,DA(1),1,""B"",X,DA)="""""
^DD("IX",156,2)="K ^RORDATA(798.3,DA(1),1,""B"",X,DA)"
^DD("IX",156,2.5)="K ^RORDATA(798.3,DA(1),1,""B"")"
^DD("IX",156,11.1,0)="^.114IA^1^1"
^DD("IX",156,11.1,1,0)="1^F^798.31^.01^^1"
^DD("IX",156,11.1,"AC",1,1)=""
^DD("IX",156,11.1,"B",1,1)=""
^DD("IX",156,11.1,"BB",1,1)=""
^DD("IX",157,0)="798^ALOC^Sets the date of last local data modification^MU^^F^^I^798^^^^^A"
^DD("IX",157,1)="D FILE^RORDD01(798,DA_"","",5.1,$$NOW^XLFDT)"
^DD("IX",157,1.4)="S X=(X2(1)>0)"
^DD("IX",157,2)="Q"
^DD("IX",157,11.1,0)="^.114IA^1^1"
^DD("IX",157,11.1,1,0)="1^F^798^5^^^"
^DD("IX",157,11.1,"B",1,1)=""
^DD("IX",157,11.1,"BB",1,1)=""
^DD("IX",158,0)="798^ARCP^Registry, Date Confirmed, Patient^R^^R^IR^I^798^^^^^S"
^DD("IX",158,.1,0)="^^15^15^3060203^"
^DD("IX",158,.1,1,0)="This index sorts registry patients by their "
^DD("IX",158,.1,2,0)="confirmation dates. It has the following"
^DD("IX",158,.1,3,0)="structure: "
^DD("IX",158,.1,4,0)="                     "
^DD("IX",158,.1,5,0)="  ^RORDATA(798,""ARCP"",<Registry>,"
^DD("IX",158,.1,6,0)="    <Date Confirmed>,<Patient>,IEN) = """""
^DD("IX",158,.1,7,0)="                     "
^DD("IX",158,.1,8,0)="The <Registry> is the registry IEN (IEN of the"
^DD("IX",158,.1,9,0)="registry parameters record in the ROR REGISTRY"
^DD("IX",158,.1,10,0)="PARAMETERS file) concatenated with the ""#"" so that"
^DD("IX",158,.1,11,0)="the LIST^DIC can be used to retrieve the records"
^DD("IX",158,.1,12,0)="associated with the specified registry."
^DD("IX",158,.1,13,0)="                     "
^DD("IX",158,.1,14,0)="The <Patient> is the IEN of the patient's record"
^DD("IX",158,.1,15,0)="in the ROR PATIENT file (#798.4)."
^DD("IX",158,1)="S ^RORDATA(798,""ARCP"",X(2),X(3),X(4),DA)="""""
^DD("IX",158,2)="K ^RORDATA(798,""ARCP"",X(2),X(3),X(4),DA)"
^DD("IX",158,2.5)="K ^RORDATA(798,""ARCP"")"
^DD("IX",158,11.1,0)="^.114IA^4^4"
^DD("IX",158,11.1,1,0)="1^F^798^.02^^^F"
^DD("IX",158,11.1,2,0)="2^C^^^^1"
^DD("IX",158,11.1,2,1.5)="S X=$S(X(1)'="""":X(1)_""#"",1:"""")"
^DD("IX",158,11.1,3,0)="3^F^798^2^^2^F"
^DD("IX",158,11.1,4,0)="4^F^798^.01^^3^F"
^DD("IX",158,11.1,"AC",1,2)=""
^DD("IX",158,11.1,"AC",2,3)=""
^DD("IX",158,11.1,"AC",3,4)=""
^DD("IX",158,11.1,"B",1,1)=""
^DD("IX",158,11.1,"B",2,2)=""
^DD("IX",158,11.1,"B",3,3)=""
^DD("IX",158,11.1,"B",4,4)=""
^DD("IX",158,11.1,"BB",1,1)=""
^DD("IX",158,11.1,"BB",2,2)=""
^DD("IX",158,11.1,"BB",3,3)=""
^DD("IX",158,11.1,"BB",4,4)=""
^DD("IX",159,0)="798.02^B^Uniqueness Index for Key 'B' of Subfile #798.02^R^^F^IR^I^798.02^^^^^LS"
^DD("IX",159,1)="S ^RORDATA(798,DA(1),20,""B"",X,DA)="""""
^DD("IX",159,2)="K ^RORDATA(798,DA(1),20,""B"",X,DA)"
^DD("IX",159,2.5)="K ^RORDATA(798,DA(1),20,""B"")"
^DD("IX",159,11.1,0)="^.114IA^1^1"
^DD("IX",159,11.1,1,0)="1^F^798.02^.01^^1"
^DD("IX",159,11.1,"AC",1,1)=""
^DD("IX",159,11.1,"B",1,1)=""
^DD("IX",159,11.1,"BB",1,1)=""
^DD("IX",160,0)="798.11^B^Uniqueness Index for Key 'A' of Subfile #798.11^R^^F^IR^I^798.11^^^^^LS"
^DD("IX",160,1)="S ^ROR(798.1,DA(1),3,""B"",X,DA)="""""
^DD("IX",160,2)="K ^ROR(798.1,DA(1),3,""B"",X,DA)"
^DD("IX",160,2.5)="K ^ROR(798.1,DA(1),3,""B"")"
^DD("IX",160,11.1,0)="^.114IA^1^1"
^DD("IX",160,11.1,1,0)="1^F^798.11^.01^^1"
^DD("IX",160,11.1,"AC",1,1)=""
^DD("IX",160,11.1,"B",1,1)=""
^DD("IX",160,11.1,"BB",1,1)=""
^DD("IX",161,0)="798.7^ARD^Registry & Start date^R^^R^IR^W^798.73^^^^^S"
^DD("IX",161,.1,0)="^^2^2^3060203^"
^DD("IX",161,.1,1,0)="This index can be used to get a chronological list"
^DD("IX",161,.1,2,0)="of logs associated with a particular registry."
^DD("IX",161,1)="S ^RORDATA(798.7,""ARD"",X(1),X(2),DA(1),DA)="""""
^DD("IX",161,2)="K ^RORDATA(798.7,""ARD"",X(1),X(2),DA(1),DA)"
^DD("IX",161,2.5)="K ^RORDATA(798.7,""ARD"")"
^DD("IX",161,11.1,0)="^.114IA^2^2"
^DD("IX",161,11.1,1,0)="1^F^798.73^.01^^1^F"
^DD("IX",161,11.1,2,0)="2^C^^^^2"
^DD("IX",161,11.1,2,1.5)="S X=$P($G(^RORDATA(798.7,DA(1),0)),U)"
^DD("IX",161,11.1,"AC",1,1)=""
^DD("IX",161,11.1,"AC",2,2)=""
^DD("IX",161,11.1,"B",1,1)=""
^DD("IX",161,11.1,"B",2,2)=""
^DD("IX",161,11.1,"BB",1,1)=""
^DD("IX",161,11.1,"BB",2,2)=""
^DD("IX",162,0)="798.9^B^Uniqueness Index for the ""A"" Key of File #798.9^R^^F^IR^I^798.9^^^^^LS"
^DD("IX",162,1)="S ^ROR(798.9,""B"",X,DA)="""""
^DD("IX",162,2)="K ^ROR(798.9,""B"",X,DA)"
^DD("IX",162,2.5)="K ^ROR(798.9,""B"")"
^DD("IX",162,11.1,0)="^.114IA^1^1"
^DD("IX",162,11.1,1,0)="1^F^798.9^.01^^1"
^DD("IX",162,11.1,"AC",1,1)=""
^DD("IX",162,11.1,"B",1,1)=""
^DD("IX",162,11.1,"BB",1,1)=""
^DD("IX",163,0)="799.1^KEY^Uniqueness Index for the ""A"" Key of File #799.1^R^^R^IR^I^799.1^^^^^LS"
^DD("IX",163,1)="S ^ROR(799.1,""KEY"",X(1),X(2),X(3),DA)="""""
^DD("IX",163,2)="K ^ROR(799.1,""KEY"",X(1),X(2),X(3),DA)"
^DD("IX",163,2.5)="K ^ROR(799.1,""KEY"")"
^DD("IX",163,11.1,0)="^.114IA^3^3"
^DD("IX",163,11.1,1,0)="1^F^799.1^.02^^1"
^DD("IX",163,11.1,2,0)="2^F^799.1^.03^^2"
^DD("IX",163,11.1,3,0)="3^F^799.1^.04^^3"
^DD("IX",163,11.1,"AC",1,1)=""
^DD("IX",163,11.1,"AC",2,2)=""
^DD("IX",163,11.1,"AC",3,3)=""
^DD("IX",163,11.1,"B",1,1)=""
^DD("IX",163,11.1,"B",2,2)=""
^DD("IX",163,11.1,"B",3,3)=""
^DD("IX",163,11.1,"BB",1,1)=""
^DD("IX",163,11.1,"BB",2,2)=""
^DD("IX",163,11.1,"BB",3,3)=""
^DD("IX",164,0)="799.2^DEC^Global list of Data Element Codes.^R^^F^IR^W^799.22^^^^^LS"
^DD("IX",164,1)="S ^ROR(799.2,""DEC"",X,DA(1),DA)="""""
^DD("IX",164,2)="K ^ROR(799.2,""DEC"",X,DA(1),DA)"
^DD("IX",164,2.5)="K ^ROR(799.2,""DEC"")"
^DD("IX",164,11.1,0)="^.114IA^1^1"
^DD("IX",164,11.1,1,0)="1^F^799.22^.02^^1^F"
^DD("IX",164,11.1,"AC",1,1)=""
^DD("IX",164,11.1,"B",1,1)=""
^DD("IX",164,11.1,"BB",1,1)=""
^DD("IX",165,0)="799.22^B^Data element name uniqueness index.^R^^F^IR^I^799.22^^^^^LS"
^DD("IX",165,1)="S ^ROR(799.2,DA(1),2,""B"",$E(X,1,30),DA)="""""
^DD("IX",165,2)="K ^ROR(799.2,DA(1),2,""B"",$E(X,1,30),DA)"
^DD("IX",165,2.5)="K ^ROR(799.2,DA(1),2,""B"")"
^DD("IX",165,11.1,0)="^.114IA^1^1"
^DD("IX",165,11.1,1,0)="1^F^799.22^.01^30^1^F"
^DD("IX",165,11.1,"AC",1,1)=""
^DD("IX",165,11.1,"B",1,1)=""
^DD("IX",165,11.1,"BB",1,1)=""
^DD("IX",166,0)="100.62^ADC^Allow quick access to from/to pairs^MU^^R^IR^I^100.62^^^^^S"
^DD("IX",166,1)="S ^ORD(100.6,DA(1),5,""ADC"",X(5),X(6),DA)="""""
^DD("IX",166,2)="K ^ORD(100.6,DA(1),5,""ADC"",X(5),X(6),DA)"
^DD("IX",166,2.5)="K ^ORD(100.6,DA(1),5,""ADC"")"
^DD("IX",166,11.1,0)="^.114IA^6^6"
^DD("IX",166,11.1,1,0)="1^F^100.62^1^^^F"
^DD("IX",166,11.1,1,3)=""
^DD("IX",166,11.1,2,0)="2^F^100.62^2^^^F"
^DD("IX",166,11.1,2,3)=""
^DD("IX",166,11.1,3,0)="3^F^100.62^3^^^F"
^DD("IX",166,11.1,3,3)=""
^DD("IX",166,11.1,4,0)="4^F^100.62^4^^^F"
^DD("IX",166,11.1,4,3)=""
^DD("IX",166,11.1,5,0)="5^C^^^^1"
^DD("IX",166,11.1,5,1.5)="S X=$S(X(2):X(2),X(1):""ALL"",1:""NONE"")"
^DD("IX",166,11.1,6,0)="6^C^^^^2"
^DD("IX",166,11.1,6,1.5)="S X=$S(X(4):X(4),X(3):""ALL"",1:""NONE"")"
^DD("IX",166,11.1,"AC",1,5)=""
^DD("IX",166,11.1,"AC",2,6)=""
^DD("IX",166,11.1,"B",1,1)=""
^DD("IX",166,11.1,"B",2,2)=""
^DD("IX",166,11.1,"B",3,3)=""
^DD("IX",166,11.1,"B",4,4)=""
^DD("IX",166,11.1,"B",5,5)=""
^DD("IX",166,11.1,"B",6,6)=""
^DD("IX",166,11.1,"BB",1,1)=""
^DD("IX",166,11.1,"BB",2,2)=""
^DD("IX",166,11.1,"BB",3,3)=""
^DD("IX",166,11.1,"BB",4,4)=""
^DD("IX",166,11.1,"BB",5,5)=""
^DD("IX",166,11.1,"BB",6,6)=""
^DD("IX",167,0)="101.13^C^Upper case TAB DESCRIPTION field for lookup searching.^R^^F^IR^I^101.13^^^^^LS"
^DD("IX",167,1)="S ^ORD(101.13,""C"",$E(X,1,30),DA)="""""
^DD("IX",167,2)="K ^ORD(101.13,""C"",$E(X,1,30),DA)"
^DD("IX",167,2.5)="K ^ORD(101.13,""C"")"
^DD("IX",167,11.1,0)="^.114IA^1^1"
^DD("IX",167,11.1,1,0)="1^F^101.13^1^30^1^F"
^DD("IX",167,11.1,1,2)="S X=$$UP^XLFSTR(X)"
^DD("IX",167,11.1,"AC",1,1)=""
^DD("IX",167,11.1,"B",1,1)=""
^DD("IX",167,11.1,"BB",1,1)=""
^DD("IX",168,0)="2005^D^INSTUTION(AKA ACQUISITION SITE)^R^^F^IR^I^2005^^^^^LS"
^DD("IX",168,1)="S ^MAG(2005,""D"",X,DA)="""""
^DD("IX",168,2)="K ^MAG(2005,""D"",X,DA)"
^DD("IX",168,2.5)="K ^MAG(2005,""D"")"
^DD("IX",168,11.1,0)="^.114IA^1^1"
^DD("IX",168,11.1,1,0)="1^F^2005^.05^^1^F"
^DD("IX",168,11.1,1,3)=""
^DD("IX",168,11.1,"AC",1,1)=""
^DD("IX",168,11.1,"B",1,1)=""
^DD("IX",168,11.1,"BB",1,1)=""
^DD("IX",169,0)="200^AVISIT^This is a regular index of the remote DUZ and Station number.^R^^R^IR^W^200.06^^^^^S"
^DD("IX",169,1)="S ^VA(200,""AVISIT"",$E(X(1),1,30),$E(X(2),1,15),DA(1),DA)="""""
^DD("IX",169,2)="K ^VA(200,""AVISIT"",$E(X(1),1,30),$E(X(2),1,15),DA(1),DA)"
^DD("IX",169,2.5)="K ^VA(200,""AVISIT"")"
^DD("IX",169,11.1,0)="^.114IA^2^2"
^DD("IX",169,11.1,1,0)="1^F^200.06^.01^30^1^F"
^DD("IX",169,11.1,2,0)="2^F^200.06^2^15^2^F"
^DD("IX",169,11.1,"AC",1,1)=""
^DD("IX",169,11.1,"AC",2,2)=""
^DD("IX",169,11.1,"B",1,1)=""
^DD("IX",169,11.1,"B",2,2)=""
^DD("IX",169,11.1,"BB",1,1)=""
^DD("IX",169,11.1,"BB",2,2)=""
^DD("IX",170,0)="3.702^AC^Transmission Priority Cross Reference^R^^F^IR^I^3.702^^^^^S"
^DD("IX",170,.1,0)="^^3^3^3020222^"
^DD("IX",170,.1,1,0)="This xref is used by MailMan during message transmission to identify"
^DD("IX",170,.1,2,0)="messages which should be transmitted first (high priority) or last"
^DD("IX",170,.1,3,0)="(low priority).  Messages with regular priority are not xref'd."
^DD("IX",170,1)="S ^XMB(3.7,DA(2),2,DA(1),1,""AC"",$E(X,1,1),DA)="""""
^DD("IX",170,1.4)="S X=X"
^DD("IX",170,2)="K ^XMB(3.7,DA(2),2,DA(1),1,""AC"",$E(X,1,1),DA)"
^DD("IX",170,2.4)="S X=X"
^DD("IX",170,2.5)="K ^XMB(3.7,DA(2),2,DA(1),1,""AC"")"
^DD("IX",170,11.1,0)="^.114IA^1^1"
^DD("IX",170,11.1,1,0)="1^F^3.702^6^1^1^F"
^DD("IX",170,11.1,1,3)=""
^DD("IX",170,11.1,"AC",1,1)=""
^DD("IX",170,11.1,"B",1,1)=""
^DD("IX",170,11.1,"BB",1,1)=""
^DD("IX",171,0)="123.555^AC^Index of NOTIF RECIPS and ADMIN USERS^R^^R^IR^I^123.555^^^^^S"
^DD("IX",171,.1,0)="^^3^3^3020531^"
^DD("IX",171,.1,1,0)="This index is used to identify those administrative update users that "
^DD("IX",171,.1,2,0)="should be notified of events occurring on consults directed to this "
^DD("IX",171,.1,3,0)="service."
^DD("IX",171,1)="S ^GMR(123.5,DA(1),123.33,""AC"",$E(X(1),1,1),$E(X(2),1,99),DA)="""""
^DD("IX",171,2)="K ^GMR(123.5,DA(1),123.33,""AC"",$E(X(1),1,1),$E(X(2),1,99),DA)"
^DD("IX",171,2.5)="K ^GMR(123.5,DA(1),123.33,""AC"")"
^DD("IX",171,11.1,0)="^.114IA^2^2"
^DD("IX",171,11.1,1,0)="1^F^123.555^.02^1^1^F"
^DD("IX",171,11.1,2,0)="2^F^123.555^.01^99^2^F"
^DD("IX",171,11.1,"AC",1,1)=""
^DD("IX",171,11.1,"AC",2,2)=""
^DD("IX",171,11.1,"B",1,1)=""
^DD("IX",171,11.1,"B",2,2)=""
^DD("IX",171,11.1,"BB",1,1)=""
^DD("IX",171,11.1,"BB",2,2)=""
^DD("IX",172,0)="123.58^AC^Index on NOTIF RECIP and ADMIN TEAMS^R^^R^IR^I^123.58^^^^^S"
^DD("IX",172,.1,0)="^^3^3^3020531^"
^DD("IX",172,.1,1,0)="This index is used to determine the adminsitrative update teams that "
^DD("IX",172,.1,2,0)="should be notified of events occurring on consults directed to this "
^DD("IX",172,.1,3,0)="service. "
^DD("IX",172,1)="S ^GMR(123.5,DA(1),123.34,""AC"",$E(X(1),1,1),$E(X(2),1,99),DA)="""""
^DD("IX",172,2)="K ^GMR(123.5,DA(1),123.34,""AC"",$E(X(1),1,1),$E(X(2),1,99),DA)"
^DD("IX",172,2.5)="K ^GMR(123.5,DA(1),123.34,""AC"")"
^DD("IX",172,11.1,0)="^.114IA^2^2"
^DD("IX",172,11.1,1,0)="1^F^123.58^.02^1^1^F"
^DD("IX",172,11.1,2,0)="2^F^123.58^.01^99^2^F"
^DD("IX",172,11.1,"AC",1,1)=""
^DD("IX",172,11.1,"AC",2,2)=""
^DD("IX",172,11.1,"B",1,1)=""
^DD("IX",172,11.1,"B",2,2)=""
^DD("IX",172,11.1,"BB",1,1)=""
^DD("IX",172,11.1,"BB",2,2)=""
^DD("IX",173,0)="200^AXUHUI^Hui Project Top File Xref^MU^^R^^I^200^^^^^A"
^DD("IX",173,.1,0)="^^8^8^3020528^"
^DD("IX",173,.1,1,0)="This new style cross-reference is on non-multiple fields that the Hui"
^DD("IX",173,.1,2,0)="project want to monitor for a change in value (Patch XU*8*236). The"
^DD("IX",173,.1,3,0)="following fields are being monitored in order:"
^DD("IX",173,.1,4,0)=" "
^DD("IX",173,.1,5,0)=" .01 (NAME)"
^DD("IX",173,.1,6,0)=" 9.2 (TERMINATION DATE)"
^DD("IX",173,.1,7,0)=" 5 (DOB)"
^DD("IX",173,.1,8,0)=" 9 (SSN) "
^DD("IX",173,1)="D HUI^XUHUI("""",""XUHUI FIELD CHANGE EVENT"","""",""AXUHUI"") Q"
^DD("IX",173,2)="Q"
^DD("IX",173,2.5)="Q"
^DD("IX",173,11.1,0)="^.114IA^4^4"
^DD("IX",173,11.1,1,0)="1^F^200^.01^^^F"
^DD("IX",173,11.1,2,0)="2^F^200^9.2^^^F"
^DD("IX",173,11.1,3,0)="3^F^200^5^^^F"
^DD("IX",173,11.1,4,0)="4^F^200^9^^^F"
^DD("IX",173,11.1,"B",1,1)=""
^DD("IX",173,11.1,"B",2,2)=""
^DD("IX",173,11.1,"B",3,3)=""
^DD("IX",173,11.1,"B",4,4)=""
^DD("IX",173,11.1,"BB",1,1)=""
^DD("IX",173,11.1,"BB",2,2)=""
^DD("IX",173,11.1,"BB",3,3)=""
^DD("IX",173,11.1,"BB",4,4)=""
^DD("IX",174,0)="200^AXUHUIKEY^HUI key xref^MU^^R^^W^200.051^^^^^A"
^DD("IX",174,.1,0)="^^3^3^3021008"
^DD("IX",174,.1,1,0)="This new style cross-reference is on the multiple: 'KEYS' so the Hui"
^DD("IX",174,.1,2,0)="project can monitor the allocation/de-allocation of the 'PROVIDER'"
^DD("IX",174,.1,3,0)="key."
^DD("IX",174,1)="D HUIKEY^XUHUI("""",""XUHUI FIELD CHANGE EVENT"","""",""AXUHUIKEY"") Q"
^DD("IX",174,2)="D HUIKEY^XUHUI("""",""XUHUI FIELD CHANGE EVENT"",""K"",""AXUHUIKEY"") Q"
^DD("IX",174,2.5)="Q"
^DD("IX",174,11.1,0)="^.114IA^1^1"
^DD("IX",174,11.1,1,0)="1^F^200.051^.01^^^F"
^DD("IX",174,11.1,"B",1,1)=""
^DD("IX",174,11.1,"BB",1,1)=""
^DD("IX",175,0)="52^D^This indexes the external placer order number and external application.^R^^R^IR^I^52^^^^^LS"
^DD("IX",175,.1,0)="^^2^2^3020805^"
^DD("IX",175,.1,1,0)="This cross reference sets the global ^PSRX(""D"",EXTERNAL PLACER ORDER "
^DD("IX",175,.1,2,0)="NUMBER,EXTERNAL APPLICATION,DA)=""""."
^DD("IX",175,1)="S ^PSRX(""D"",$E(X(1),1,30),$E(X(2),1,60),DA)="""""
^DD("IX",175,2)="K ^PSRX(""D"",$E(X(1),1,30),$E(X(2),1,60),DA)"
^DD("IX",175,2.5)="K ^PSRX(""D"")"
^DD("IX",175,11.1,0)="^.114IA^2^2"
^DD("IX",175,11.1,1,0)="1^F^52^123^30^1^F"
^DD("IX",175,11.1,2,0)="2^F^52^124^60^2^F"
^DD("IX",175,11.1,"AC",1,1)=""
^DD("IX",175,11.1,"AC",2,2)=""
^DD("IX",175,11.1,"B",1,1)=""
^DD("IX",175,11.1,"B",2,2)=""
^DD("IX",175,11.1,"BB",1,1)=""
^DD("IX",175,11.1,"BB",2,2)=""
^DD("IX",176,0)="52.41^C^This indexes the external placer order number and external application.^R^^R^IR^I^52.41^^^^^LS"
^DD("IX",176,.1,0)="^^2^2^3020805^"
^DD("IX",176,.1,1,0)="This cross reference sets the global ^PS(52.41,""C"",EXTERNAL PLACER ORDER "
^DD("IX",176,.1,2,0)="NUMBER,EXTERNAL APPLICATION,DA)=""""."
^DD("IX",176,1)="S ^PS(52.41,""C"",$E(X(1),1,30),$E(X(2),1,60),DA)="""""
^DD("IX",176,2)="K ^PS(52.41,""C"",$E(X(1),1,30),$E(X(2),1,60),DA)"
^DD("IX",176,2.5)="K ^PS(52.41,""C"")"
^DD("IX",176,11.1,0)="^.114IA^2^2"
^DD("IX",176,11.1,1,0)="1^F^52.41^114^30^1^F"
^DD("IX",176,11.1,2,0)="2^F^52.41^116^60^2^F"
^DD("IX",176,11.1,"AC",1,1)=""
^DD("IX",176,11.1,"AC",2,2)=""
^DD("IX",176,11.1,"B",1,1)=""
^DD("IX",176,11.1,"B",2,2)=""
^DD("IX",176,11.1,"BB",1,1)=""
^DD("IX",176,11.1,"BB",2,2)=""
^DD("IX",177,0)="2^ADGFMD01^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",177,.1,0)="^^5^5^3021116"
^DD("IX",177,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",177,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",177,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",177,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",177,.1,5,0)="the information available at the time of the event."
^DD("IX",177,1)="D FC^DGFCPROT(.DA,2,.01,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",177,2)="D FC^DGFCPROT(.DA,2,.01,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",177,11.1,0)="^.114IA^1^1"
^DD("IX",177,11.1,1,0)="1^F^2^.01^^^F"
^DD("IX",177,11.1,"B",1,1)=""
^DD("IX",177,11.1,"BB",1,1)=""
^DD("IX",178,0)="2^ADGFMD03^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",178,.1,0)="^^5^5^3021116"
^DD("IX",178,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",178,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",178,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",178,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",178,.1,5,0)="the information available at the time of the event."
^DD("IX",178,1)="D FC^DGFCPROT(.DA,2,.03,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",178,2)="D FC^DGFCPROT(.DA,2,.03,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",178,11.1,0)="^.114IA^1^1"
^DD("IX",178,11.1,1,0)="1^F^2^.03^^^F"
^DD("IX",178,11.1,"B",1,1)=""
^DD("IX",178,11.1,"BB",1,1)=""
^DD("IX",179,0)="2^ADGFMD09^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",179,.1,0)="^^5^5^3021118"
^DD("IX",179,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",179,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",179,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",179,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",179,.1,5,0)="the information available at the time of the event."
^DD("IX",179,1)="D FC^DGFCPROT(.DA,2,.09,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",179,2)="D FC^DGFCPROT(.DA,2,.09,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",179,11.1,0)="^.114IA^1^1"
^DD("IX",179,11.1,1,0)="1^F^2^.09^^^F"
^DD("IX",179,11.1,"B",1,1)=""
^DD("IX",179,11.1,"BB",1,1)=""
^DD("IX",180,0)="2^ADGFMD351^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",180,.1,0)="^^5^5^3020820"
^DD("IX",180,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",180,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",180,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",180,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",180,.1,5,0)="the information available at the time of the event."
^DD("IX",180,1)="D FC^DGFCPROT(.DA,2,.351,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",180,2)="D FC^DGFCPROT(.DA,2,.351,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",180,11.1,0)="^.114IA^1^1"
^DD("IX",180,11.1,1,0)="1^F^2^.351^^^F"
^DD("IX",180,11.1,"B",1,1)=""
^DD("IX",180,11.1,"BB",1,1)=""
^DD("IX",181,0)="404.42^AC^Disposition from Wait List^MU^^R^IR^I^404.42^^^^^A"
^DD("IX",181,1)="D TEAMRM^SCMCWAIT(X(1),X(2))"
^DD("IX",181,2)="Q"
^DD("IX",181,11.1,0)="^.114IA^2^2"
^DD("IX",181,11.1,1,0)="1^F^404.42^.01^30^1^F"
^DD("IX",181,11.1,1,3)=""
^DD("IX",181,11.1,2,0)="2^F^404.42^.03^30^2^F"
^DD("IX",181,11.1,2,3)=""
^DD("IX",181,11.1,"AC",1,1)=""
^DD("IX",181,11.1,"AC",2,2)=""
^DD("IX",181,11.1,"B",1,1)=""
^DD("IX",181,11.1,"B",2,2)=""
^DD("IX",181,11.1,"BB",1,1)=""
^DD("IX",181,11.1,"BB",2,2)=""
^DD("IX",182,0)="404.43^AC^Disposition Waiting List Entry^MU^^R^IR^I^404.43^^^^^A"
^DD("IX",182,1)="D POSRM^SCMCWAIT(X(1),X(2))"
^DD("IX",182,2)="Q"
^DD("IX",182,11.1,0)="^.114IA^2^2"
^DD("IX",182,11.1,1,0)="1^F^404.43^.01^^1^F"
^DD("IX",182,11.1,1,3)=""
^DD("IX",182,11.1,2,0)="2^F^404.43^.02^^2^F"
^DD("IX",182,11.1,2,3)=""
^DD("IX",182,11.1,"AC",1,1)=""
^DD("IX",182,11.1,"AC",2,2)=""
^DD("IX",182,11.1,"B",1,1)=""
^DD("IX",182,11.1,"B",2,2)=""
^DD("IX",182,11.1,"BB",1,1)=""
^DD("IX",182,11.1,"BB",2,2)=""
^DD("IX",183,0)="404.43^ASTAT^STATUS CROSS REFERENCE^R^^R^IR^I^404.43^^^^^S"
^DD("IX",183,1)="S ^SCPT(404.43,""ASTAT"",X(1),X(2),DA)="""""
^DD("IX",183,2)="K ^SCPT(404.43,""ASTAT"",X(1),X(2),DA)"
^DD("IX",183,2.5)="K ^SCPT(404.43,""ASTAT"")"
^DD("IX",183,11.1,0)="^.114IA^2^2"
^DD("IX",183,11.1,1,0)="1^F^404.43^.01^^1^F"
^DD("IX",183,11.1,2,0)="2^F^404.43^.12^^2^F"
^DD("IX",183,11.1,"AC",1,1)=""
^DD("IX",183,11.1,"AC",2,2)=""
^DD("IX",183,11.1,"B",1,1)=""
^DD("IX",183,11.1,"B",2,2)=""
^DD("IX",183,11.1,"BB",1,1)=""
^DD("IX",183,11.1,"BB",2,2)=""
^DD("IX",184,0)="361.1^ATIN^Xref by date filed and transferred from^R^^R^IR^I^361.1^^^^^S"
^DD("IX",184,1)="S ^IBM(361.1,""ATIN"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",184,2)="K ^IBM(361.1,""ATIN"",X(1),$E(X(2),1,30),DA)"
^DD("IX",184,2.5)="K ^IBM(361.1,""ATIN"")"
^DD("IX",184,11.1,0)="^.114IA^2^2"
^DD("IX",184,11.1,1,0)="1^F^361.1^.05^^1^F"
^DD("IX",184,11.1,1,3)=""
^DD("IX",184,11.1,2,0)="2^F^361.1^7.01^30^2^F"
^DD("IX",184,11.1,2,3)=""
^DD("IX",184,11.1,"AC",1,1)=""
^DD("IX",184,11.1,"AC",2,2)=""
^DD("IX",184,11.1,"B",1,1)=""
^DD("IX",184,11.1,"B",2,2)=""
^DD("IX",184,11.1,"BB",1,1)=""
^DD("IX",184,11.1,"BB",2,2)=""
^DD("IX",185,0)="2^AZIPLINK^This x-ref will link the zip, city, state, and county fields^MU^^F^^I^2^^^^^S"
^DD("IX",185,1)="Q"
^DD("IX",185,1.4)="I X1(1)'=X2(1)"
^DD("IX",185,2)="K EASDO2"
^DD("IX",185,2.4)="I X1(1)'=X2(1)"
^DD("IX",185,11.1,0)="^.114IA^2^2"
^DD("IX",185,11.1,1,0)="1^F^2^.1112^^^F"
^DD("IX",185,11.1,2,0)="2^C"
^DD("IX",185,11.1,2,1.5)="S:('$G(EASDO2)&($D(EASZIPLK))) X=$$ZIP^DGREGDD1(DA,X(1))"
^DD("IX",185,11.1,"B",1,1)=""
^DD("IX",185,11.1,"B",2,2)=""
^DD("IX",185,11.1,"BB",1,1)=""
^DD("IX",185,11.1,"BB",2,2)=""
^DD("IX",186,0)="2^AZIPLNK2^Update City, State, and County fields based on Zipcode^MU^^F^^I^2^^^^^S"
^DD("IX",186,1)="Q"
^DD("IX",186,1.4)="I X1(1)'=X2(1)"
^DD("IX",186,2)="K EASDO2"
^DD("IX",186,2.4)="I X1(1)'=X2(1)"
^DD("IX",186,11.1,0)="^.114IA^2^2"
^DD("IX",186,11.1,1,0)="1^F^2^.116^^^F"
^DD("IX",186,11.1,2,0)="2^C"
^DD("IX",186,11.1,2,1.5)="S:'$G(EASDO2) X=$$ZIP^DGREGDD1(DA,X(1)),EASDO2=1"
^DD("IX",186,11.1,"B",1,1)=""
^DD("IX",186,11.1,"B",2,2)=""
^DD("IX",186,11.1,"BB",1,1)=""
^DD("IX",186,11.1,"BB",2,2)=""
^DD("IX",187,0)="100^AEVNT^Orders delayed for release until Event occurs^R^^R^IR^I^100^^^^^S"
^DD("IX",187,1)="S ^OR(100,""AEVNT"",X(1),X(2),DA)="""""
^DD("IX",187,2)="K ^OR(100,""AEVNT"",X(1),X(2),DA)"
^DD("IX",187,2.5)="K ^OR(100,""AEVNT"")"
^DD("IX",187,11.1,0)="^.114IA^2^2"
^DD("IX",187,11.1,1,0)="1^F^100^.02^^1^F"
^DD("IX",187,11.1,1,3)=""
^DD("IX",187,11.1,2,0)="2^F^100^15^^2^F"
^DD("IX",187,11.1,2,3)=""
^DD("IX",187,11.1,"AC",1,1)=""
^DD("IX",187,11.1,"AC",2,2)=""
^DD("IX",187,11.1,"B",1,1)=""
^DD("IX",187,11.1,"B",2,2)=""
^DD("IX",187,11.1,"BB",1,1)=""
^DD("IX",187,11.1,"BB",2,2)=""
^DD("IX",188,0)="100.2^AC^Processed events by patient, reverse date/time^R^^R^IR^I^100.2^^^^^S"
^DD("IX",188,1)="S ^ORE(100.2,""AC"",X(1),X(2),DA)="""""
^DD("IX",188,2)="K ^ORE(100.2,""AC"",X(1),X(2),DA)"
^DD("IX",188,2.5)="K ^ORE(100.2,""AC"")"
^DD("IX",188,11.1,0)="^.114IA^2^2"
^DD("IX",188,11.1,1,0)="1^F^100.2^.01^^1^F"
^DD("IX",188,11.1,1,3)=""
^DD("IX",188,11.1,2,0)="2^F^100.2^11^^2^F"
^DD("IX",188,11.1,2,2)="S X=9999999-X"
^DD("IX",188,11.1,2,3)=""
^DD("IX",188,11.1,"AC",1,1)=""
^DD("IX",188,11.1,"AC",2,2)=""
^DD("IX",188,11.1,"B",1,1)=""
^DD("IX",188,11.1,"B",2,2)=""
^DD("IX",188,11.1,"BB",1,1)=""
^DD("IX",188,11.1,"BB",2,2)=""
^DD("IX",189,0)="100.2^ADT^Activity on MAS movements^MU^^R^IR^I^100.2^^^^^S"
^DD("IX",189,1)="N I,XD S I=0 F  S I=+$O(^ORE(100.2,DA,10,I)) Q:I<1  S XD=+$P($G(^(I,0)),U) S:XD ^ORE(100.2,""ADT"",X(1),XD,DA,I)="""""
^DD("IX",189,2)="N I,XD S I=0 F  S I=+$O(^ORE(100.2,DA,10,I)) Q:I<1  S XD=+$P($G(^(I,0)),U) K:XD ^ORE(100.2,""ADT"",X(1),XD,DA,I)"
^DD("IX",189,2.5)="K ^ORE(100.2,""ADT"")"
^DD("IX",189,11.1,0)="^.114IA^1^1"
^DD("IX",189,11.1,1,0)="1^F^100.2^12^^1^F"
^DD("IX",189,11.1,1,3)=""
^DD("IX",189,11.1,"AC",1,1)=""
^DD("IX",189,11.1,"B",1,1)=""
^DD("IX",189,11.1,"BB",1,1)=""
^DD("IX",190,0)="100.2^AE^Pending events by patient^R^^R^IR^I^100.2^^^^^S"
^DD("IX",190,1)="S ^ORE(100.2,""AE"",X(1),X(2),DA)="""""
^DD("IX",190,1.4)="S X=$S(X(3):0,1:1)"
^DD("IX",190,2)="K ^ORE(100.2,""AE"",X(1),X(2),DA)"
^DD("IX",190,2.4)="S X=$S(X(3):0,1:1)"
^DD("IX",190,2.5)="K ^ORE(100.2,""AE"")"
^DD("IX",190,11.1,0)="^.114IA^3^3"
^DD("IX",190,11.1,1,0)="1^F^100.2^.01^^1^F"
^DD("IX",190,11.1,1,3)=""
^DD("IX",190,11.1,2,0)="2^F^100.2^2^^2^F"
^DD("IX",190,11.1,2,3)=""
^DD("IX",190,11.1,3,0)="3^F^100.2^11^^^F"
^DD("IX",190,11.1,3,3)=""
^DD("IX",190,11.1,"AC",1,1)=""
^DD("IX",190,11.1,"AC",2,2)=""
^DD("IX",190,11.1,"B",1,1)=""
^DD("IX",190,11.1,"B",2,2)=""
^DD("IX",190,11.1,"B",3,3)=""
^DD("IX",190,11.1,"BB",1,1)=""
^DD("IX",190,11.1,"BB",2,2)=""
^DD("IX",190,11.1,"BB",3,3)=""
^DD("IX",191,0)="712.5^AMSA^NEW XREF^R^^R^IR^I^712.5^^^^^S"
^DD("IX",191,1)="S ^EAS(712.5,""AMSA"",X(1),X(2),X(3),DA)="""""
^DD("IX",191,2)="K ^EAS(712.5,""AMSA"",X(1),X(2),X(3),DA)"
^DD("IX",191,2.5)="K ^EAS(712.5,""AMSA"")"
^DD("IX",191,11.1,0)="^.114IA^3^3"
^DD("IX",191,11.1,1,0)="1^F^712.5^.01^^1^F"
^DD("IX",191,11.1,1,3)=""
^DD("IX",191,11.1,2,0)="2^F^712.5^.02^^2^F"
^DD("IX",191,11.1,2,3)=""
^DD("IX",191,11.1,3,0)="3^F^712.5^.05^^3^F"
^DD("IX",191,11.1,3,3)=""
^DD("IX",191,11.1,"AC",1,1)=""
^DD("IX",191,11.1,"AC",2,2)=""
^DD("IX",191,11.1,"AC",3,3)=""
^DD("IX",191,11.1,"B",1,1)=""
^DD("IX",191,11.1,"B",2,2)=""
^DD("IX",191,11.1,"B",3,3)=""
^DD("IX",191,11.1,"BB",1,1)=""
^DD("IX",191,11.1,"BB",2,2)=""
^DD("IX",191,11.1,"BB",3,3)=""
^DD("IX",192,0)="712.5^C^Uniqueness Index for Key 'A' of File #712.5^R^^R^IR^I^712.5^^^^^LS"
^DD("IX",192,1)="S ^EAS(712.5,""C"",X(1),X(2),X(3),DA)="""""
^DD("IX",192,2)="K ^EAS(712.5,""C"",X(1),X(2),X(3),DA)"
^DD("IX",192,2.5)="K ^EAS(712.5,""C"")"
^DD("IX",192,11.1,0)="^.114IA^3^3"
^DD("IX",192,11.1,1,0)="1^F^712.5^.01^^1"
^DD("IX",192,11.1,2,0)="2^F^712.5^.02^^2"
^DD("IX",192,11.1,3,0)="3^F^712.5^.05^^3"
^DD("IX",192,11.1,"AC",1,1)=""
^DD("IX",192,11.1,"AC",2,2)=""
^DD("IX",192,11.1,"AC",3,3)=""
^DD("IX",192,11.1,"B",1,1)=""
^DD("IX",192,11.1,"B",2,2)=""
^DD("IX",192,11.1,"B",3,3)=""
^DD("IX",192,11.1,"BB",1,1)=""
^DD("IX",192,11.1,"BB",2,2)=""
^DD("IX",192,11.1,"BB",3,3)=""
^DD("IX",193,0)="712.5^GMT^Index is created for lookup thresholds using year and FIPS code^R^^R^IR^I^712.5^^^^^LS"
^DD("IX",193,1)="S ^EAS(712.5,""GMT"",X(1),X(2),DA)="""""
^DD("IX",193,2)="K ^EAS(712.5,""GMT"",X(1),X(2),DA)"
^DD("IX",193,2.5)="K ^EAS(712.5,""GMT"")"
^DD("IX",193,11.1,0)="^.114IA^2^2"
^DD("IX",193,11.1,1,0)="1^F^712.5^.01^^1^F"
^DD("IX",193,11.1,1,3)=""
^DD("IX",193,11.1,2,0)="2^F^712.5^.02^^2^F"
^DD("IX",193,11.1,2,3)=""
^DD("IX",193,11.1,"AC",1,1)=""
^DD("IX",193,11.1,"AC",2,2)=""
^DD("IX",193,11.1,"B",1,1)=""
^DD("IX",193,11.1,"B",2,2)=""
^DD("IX",193,11.1,"BB",1,1)=""
^DD("IX",193,11.1,"BB",2,2)=""
^DD("IX",194,0)="712.6^AMSA^AMSA cross reference^R^^R^IR^I^712.6^^^^^S"
^DD("IX",194,1)="S ^EAS(712.6,""AMSA"",$E(X(1),1,5),X(2),DA)="""""
^DD("IX",194,2)="K ^EAS(712.6,""AMSA"",$E(X(1),1,5),X(2),DA)"
^DD("IX",194,2.5)="K ^EAS(712.6,""AMSA"")"
^DD("IX",194,11.1,0)="^.114IA^2^2"
^DD("IX",194,11.1,1,0)="1^F^712.6^.01^5^1^F"
^DD("IX",194,11.1,1,3)=""
^DD("IX",194,11.1,2,0)="2^F^712.6^1^^2^F"
^DD("IX",194,11.1,2,3)=""
^DD("IX",194,11.1,"AC",1,1)=""
^DD("IX",194,11.1,"AC",2,2)=""
^DD("IX",194,11.1,"B",1,1)=""
^DD("IX",194,11.1,"B",2,2)=""
^DD("IX",194,11.1,"BB",1,1)=""
^DD("IX",194,11.1,"BB",2,2)=""
^DD("IX",195,0)="2.06^AONLYONE^Only one entry allowed in multiple^MU^^F^^I^2.06^^^^^A"
^DD("IX",195,.1,0)="^^3^3^3020709^"
^DD("IX",195,.1,1,0)="Cross reference deletes all entries in the multiple EXCEPT the one just"
^DD("IX",195,.1,2,0)="added.  This has the net affect of only allowing one entry to exist in the"
^DD("IX",195,.1,3,0)="multiple."
^DD("IX",195,1)="N DGFDA,DGMSG,DGD0,DGD1,DGLOOP S DGD0=DA(1),DGD1=DA S DGLOOP=0 F  S DGLOOP=$O(^DPT(DGD0,.06,DGLOOP)) Q:'DGLOOP  I DGLOOP'=DGD1 S DGFDA(2.06,DGLOOP_"",""_DGD0_"","",.01)=""@"" D FILE^DIE("""",""DGFDA"",""DGMSG"") K DGFDA,DGMSG"
^DD("IX",195,2)="Q"
^DD("IX",195,11.1,0)="^.114IA^1^1"
^DD("IX",195,11.1,1,0)="1^F^2.06^.01^^^F"
^DD("IX",195,11.1,"B",1,1)=""
^DD("IX",195,11.1,"BB",1,1)=""
^DD("IX",196,0)="130^AD^CoreFLS fields monitor flag.^MU^^R^IR^I^130^^^^^A"
^DD("IX",196,.1,0)="^^2^2^3020822^"
^DD("IX",196,.1,1,0)="This cross-reference will be checked before sending a notification to"
^DD("IX",196,.1,2,0)="the CoreFLS software after editing any of these fields."
^DD("IX",196,1)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",196,1.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",196,2)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",196,2.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",196,2.5)="Q"
^DD("IX",196,11.1,0)="^.114IA^11^11"
^DD("IX",196,11.1,1,0)="1^F^130^.14^^^F"
^DD("IX",196,11.1,2,0)="2^F^130^27^^^F"
^DD("IX",196,11.1,3,0)="3^F^130^.02^^^F"
^DD("IX",196,11.1,4,0)="4^F^130^.04^^^F"
^DD("IX",196,11.1,5,0)="5^F^130^10^^^F"
^DD("IX",196,11.1,6,0)="6^F^130^11^^^F"
^DD("IX",196,11.1,7,0)="7^F^130^26^^^F"
^DD("IX",196,11.1,8,0)="8^F^130^.011^^^F"
^DD("IX",196,11.1,9,0)="9^F^130^.09^^^F"
^DD("IX",196,11.1,10,0)="10^F^130^35^^^F"
^DD("IX",196,11.1,11,0)="11^F^130^.164^^^F"
^DD("IX",196,11.1,"B",1,1)=""
^DD("IX",196,11.1,"B",2,2)=""
^DD("IX",196,11.1,"B",3,3)=""
^DD("IX",196,11.1,"B",4,4)=""
^DD("IX",196,11.1,"B",5,5)=""
^DD("IX",196,11.1,"B",6,6)=""
^DD("IX",196,11.1,"B",7,7)=""
^DD("IX",196,11.1,"B",8,8)=""
^DD("IX",196,11.1,"B",9,9)=""
^DD("IX",196,11.1,"B",10,10)=""
^DD("IX",196,11.1,"B",11,11)=""
^DD("IX",196,11.1,"BB",1,1)=""
^DD("IX",196,11.1,"BB",2,2)=""
^DD("IX",196,11.1,"BB",3,3)=""
^DD("IX",196,11.1,"BB",4,4)=""
^DD("IX",196,11.1,"BB",5,5)=""
^DD("IX",196,11.1,"BB",6,6)=""
^DD("IX",196,11.1,"BB",7,7)=""
^DD("IX",196,11.1,"BB",8,8)=""
^DD("IX",196,11.1,"BB",9,9)=""
^DD("IX",196,11.1,"BB",10,10)=""
^DD("IX",196,11.1,"BB",11,11)=""
^DD("IX",197,0)="130.028^AC^CoreFLS fields monitor flag.^MU^^F^IR^I^130.028^^^^^A"
^DD("IX",197,.1,0)="^^2^2^3020822^"
^DD("IX",197,.1,1,0)="This cross-reference will be checked before sending a notification to"
^DD("IX",197,.1,2,0)="the CoreFLS software after editing any of these fields."
^DD("IX",197,1)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",197,1.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",197,2)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",197,2.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",197,2.5)="Q"
^DD("IX",197,11.1,0)="^.114IA^1^1"
^DD("IX",197,11.1,1,0)="1^F^130.028^.01^^^F"
^DD("IX",197,11.1,"B",1,1)=""
^DD("IX",197,11.1,"BB",1,1)=""
^DD("IX",198,0)="130.16^AC^CoreFLS fields monitor flag.^MU^^R^IR^I^130.16^^^^^A"
^DD("IX",198,.1,0)="^^2^2^3020822^"
^DD("IX",198,.1,1,0)="This cross-reference will be checked before sending a notification to"
^DD("IX",198,.1,2,0)="the CoreFLS software after editing any of these fields."
^DD("IX",198,1)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",198,1.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",198,2)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",198,2.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",198,2.5)="Q"
^DD("IX",198,11.1,0)="^.114IA^2^2"
^DD("IX",198,11.1,1,0)="1^F^130.16^.01^^^F"
^DD("IX",198,11.1,2,0)="2^F^130.16^3^^^F"
^DD("IX",198,11.1,"B",1,1)=""
^DD("IX",198,11.1,"B",2,2)=""
^DD("IX",198,11.1,"BB",1,1)=""
^DD("IX",198,11.1,"BB",2,2)=""
^DD("IX",199,0)="130.164^AC^CoreFLS fields monitor flag.^MU^^F^IR^I^130.164^^^^^A"
^DD("IX",199,.1,0)="^^2^2^3020822^"
^DD("IX",199,.1,1,0)="This cross-reference will be checked before sending a notification to"
^DD("IX",199,.1,2,0)="the CoreFLS software after editing any of these fields."
^DD("IX",199,1)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",199,1.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",199,2)="S ^TMP(""CSLSUR1"",$J)="""" Q"
^DD("IX",199,2.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",199,2.5)="Q"
^DD("IX",199,11.1,0)="^.114IA^1^1"
^DD("IX",199,11.1,1,0)="1^F^130.164^.01^^^F"
^DD("IX",199,11.1,"B",1,1)=""
^DD("IX",199,11.1,"BB",1,1)=""
^DD("IX",200,0)="120.5^AHDRNEW^INDEX for HDR^MU^^F^^I^120.5^^^^^A"
^DD("IX",200,.1,0)="^^8^8^3050924"
^DD("IX",200,.1,1,0)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
^DD("IX",200,.1,2,0)="new entry is created."
^DD("IX",200,.1,3,0)=" "
^DD("IX",200,.1,4,0)="No actual cross-reference nodes are set or killed."
^DD("IX",200,.1,5,0)=" "
^DD("IX",200,.1,6,0)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
^DD("IX",200,.1,7,0)="Calls to the VADPT routine are covered by Integration Agreement 3744."
^DD("IX",200,.1,8,0)="Use of the XDRDVALF variable is covered by Integration Agreement 4690."
^DD("IX",200,1)="Q:$D(DIU(0))!($$TESTPAT^VADPT($P(^GMR(120.5,DA,0),U,2)))!($G(XDRDVALF)=1)  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
^DD("IX",200,1.4)="I X1(1)="""",X2(1)'="""" S X=1"
^DD("IX",200,2)="Q"
^DD("IX",200,2.5)="Q"
^DD("IX",200,11.1,0)="^.114IA^1^1"
^DD("IX",200,11.1,1,0)="1^F^120.5^.02"
^DD("IX",200,11.1,"B",1,1)=""
^DD("IX",200,11.1,"BB",1,1)=""
^DD("IX",201,0)="120.5^AHDRERR^INDEX for HDR^MU^^F^^I^120.5^^^^^A"
^DD("IX",201,.1,0)="^^8^8^3050924"
^DD("IX",201,.1,1,0)="This cross-reference calls a Health Data Repository (HDR) API whenever a"
^DD("IX",201,.1,2,0)="FILE 120.5 entry is marked as entered-in-error."
^DD("IX",201,.1,3,0)=" "
^DD("IX",201,.1,4,0)="No actual cross-reference nodes are set or killed."
^DD("IX",201,.1,5,0)=" "
^DD("IX",201,.1,6,0)="Calls to the VDEFQM routine are covered by Integration Agreement 4253."
^DD("IX",201,.1,7,0)="Calls to the VADPT routine are covered by Integration Agreement 3744."
^DD("IX",201,.1,8,0)="Use of the XDRDVALF variable is covered by Integration Agreement 4690."
^DD("IX",201,1)="Q:$D(DIU(0))!($$TESTPAT^VADPT($P(^GMR(120.5,DA,0),U,2)))!($G(XDRDVALF)=1)  N ERR,GMVFLAG I $T(QUEUE^VDEFQM)]"""" S GMVFLAG=$$QUEUE^VDEFQM(""ORU^R01"",""SUBTYPE=VTLS^IEN=""_DA,.ERR)"
^DD("IX",201,1.4)="I X1(1)="""",X2(1)]"""" S X=1"
^DD("IX",201,2)="Q"
^DD("IX",201,2.5)="Q"
^DD("IX",201,11.1,0)="^.114IA^1^1"
^DD("IX",201,11.1,1,0)="1^F^120.5^2"
^DD("IX",201,11.1,"B",1,1)=""
^DD("IX",201,11.1,"BB",1,1)=""
^DD("IX",202,0)="2261.4^E^Index on detail location^R^^F^IR^W^2261.43^^^^^LS"
^DD("IX",202,1)="S ^OOPS(2261.4,""E"",$E(X,1,35),DA(1),DA)="""""
^DD("IX",202,2)="K ^OOPS(2261.4,""E"",$E(X,1,35),DA(1),DA)"
^DD("IX",202,2.5)="K ^OOPS(2261.4,""E"")"
^DD("IX",202,11.1,0)="^.114IA^1^1"
^DD("IX",202,11.1,1,0)="1^F^2261.43^.01^35^1^F"
^DD("IX",202,11.1,1,3)=""
^DD("IX",202,11.1,"AC",1,1)=""
^DD("IX",202,11.1,"B",1,1)=""
^DD("IX",202,11.1,"BB",1,1)=""
^DD("IX",203,0)="2006.035^DEST^Destination, status, and file type^R^^R^IR^I^2006.035^^^^^LS"
^DD("IX",203,.1,0)="^^2^2^3020312^"
^DD("IX",203,.1,1,0)="This cross reference keeps track of which images are"
^DD("IX",203,.1,2,0)="slated to go where."
^DD("IX",203,1)="S ^MAGQUEUE(2006.035,""DEST"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",203,2)="K ^MAGQUEUE(2006.035,""DEST"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",203,2.5)="K ^MAGQUEUE(2006.035,""DEST"")"
^DD("IX",203,11.1,0)="^.114IA^4^4"
^DD("IX",203,11.1,1,0)="1^F^2006.035^1^^1^F"
^DD("IX",203,11.1,1,3)=""
^DD("IX",203,11.1,2,0)="2^F^2006.035^3^^2^F"
^DD("IX",203,11.1,2,3)=""
^DD("IX",203,11.1,3,0)="3^F^2006.035^.01^^3^F"
^DD("IX",203,11.1,3,3)=""
^DD("IX",203,11.1,4,0)="4^F^2006.035^2^^4^F"
^DD("IX",203,11.1,4,3)=""
^DD("IX",203,11.1,"AC",1,1)=""
^DD("IX",203,11.1,"AC",2,2)=""
^DD("IX",203,11.1,"AC",3,3)=""
^DD("IX",203,11.1,"AC",4,4)=""
^DD("IX",203,11.1,"B",1,1)=""
^DD("IX",203,11.1,"B",2,2)=""
^DD("IX",203,11.1,"B",3,3)=""
^DD("IX",203,11.1,"B",4,4)=""
^DD("IX",203,11.1,"BB",1,1)=""
^DD("IX",203,11.1,"BB",2,2)=""
^DD("IX",203,11.1,"BB",3,3)=""
^DD("IX",203,11.1,"BB",4,4)=""
^DD("IX",204,0)="2006.035^STS^Status, priority and destination^R^^R^IR^I^2006.035^^^^^LS"
^DD("IX",204,.1,0)="^^2^2^3020312^"
^DD("IX",204,.1,1,0)="This cross reference keeps track of which files are to be sent where and"
^DD("IX",204,.1,2,0)="in which order."
^DD("IX",204,1)="S ^MAGQUEUE(2006.035,""STS"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",204,2)="K ^MAGQUEUE(2006.035,""STS"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",204,2.5)="K ^MAGQUEUE(2006.035,""STS"")"
^DD("IX",204,11.1,0)="^.114IA^4^4"
^DD("IX",204,11.1,1,0)="1^F^2006.035^8^^1^F"
^DD("IX",204,11.1,2,0)="2^F^2006.035^3^^2^F"
^DD("IX",204,11.1,3,0)="3^F^2006.035^4^^3^F"
^DD("IX",204,11.1,4,0)="4^F^2006.035^1^^4^F"
^DD("IX",204,11.1,"AC",1,1)=""
^DD("IX",204,11.1,"AC",2,2)=""
^DD("IX",204,11.1,"AC",3,3)=""
^DD("IX",204,11.1,"AC",4,4)=""
^DD("IX",204,11.1,"B",1,1)=""
^DD("IX",204,11.1,"B",2,2)=""
^DD("IX",204,11.1,"B",3,3)=""
^DD("IX",204,11.1,"B",4,4)=""
^DD("IX",204,11.1,"BB",1,1)=""
^DD("IX",204,11.1,"BB",2,2)=""
^DD("IX",204,11.1,"BB",3,3)=""
^DD("IX",204,11.1,"BB",4,4)=""
^DD("IX",205,0)="2006.5906^D^Daily track-record for load balancer^R^^R^IR^W^2006.59061^^^^^LS"
^DD("IX",205,.1,0)="^^12^12^3020405^"
^DD("IX",205,.1,1,0)="This cross reference keeps track of where studies have been slated"
^DD("IX",205,.1,2,0)="for transmission."
^DD("IX",205,.1,3,0)=" "
^DD("IX",205,.1,4,0)="The subscripts in this cross-reference are:"
^DD("IX",205,.1,5,0)="    date, destination, routing-rule, image(parent)"
^DD("IX",205,.1,6,0)=" "
^DD("IX",205,.1,7,0)="This cross-reference is used to clean up any records that are more"
^DD("IX",205,.1,8,0)="than 1 day old."
^DD("IX",205,.1,9,0)=" "
^DD("IX",205,.1,10,0)="For entries that belong to the current day, this cross-reference"
^DD("IX",205,.1,11,0)="is used to decide the selection of the next destination that"
^DD("IX",205,.1,12,0)="the load-balancer chooses for the transmission of a new study."
^DD("IX",205,1)="S ^MAGRT(2006.5906,""D"",X(1),X(2),DA(1),DA)="""""
^DD("IX",205,2)="K ^MAGRT(2006.5906,""D"",X(1),X(2),DA(1),DA)"
^DD("IX",205,2.5)="K ^MAGRT(2006.5906,""D"")"
^DD("IX",205,11.1,0)="^.114IA^2^2"
^DD("IX",205,11.1,1,0)="1^F^2006.59061^1^^1^F"
^DD("IX",205,11.1,1,3)=""
^DD("IX",205,11.1,2,0)="2^F^2006.59061^2^^2^F"
^DD("IX",205,11.1,2,3)=""
^DD("IX",205,11.1,"AC",1,1)=""
^DD("IX",205,11.1,"AC",2,2)=""
^DD("IX",205,11.1,"B",1,1)=""
^DD("IX",205,11.1,"B",2,2)=""
^DD("IX",205,11.1,"BB",1,1)=""
^DD("IX",205,11.1,"BB",2,2)=""
^DD("IX",206,0)="2005.85^AC^Cross reference on CLASS, PROC/EVENT^R^^R^IR^I^2005.85^^^^^S"
^DD("IX",206,1)="S ^MAG(2005.85,""AC"",$E(X(1),1,20),$E(X(2),1,50),DA)="""""
^DD("IX",206,2)="K ^MAG(2005.85,""AC"",$E(X(1),1,20),$E(X(2),1,50),DA)"
^DD("IX",206,2.5)="K ^MAG(2005.85,""AC"")"
^DD("IX",206,11.1,0)="^.114IA^2^2"
^DD("IX",206,11.1,1,0)="1^F^2005.85^1^20^1^F"
^DD("IX",206,11.1,1,3)=""
^DD("IX",206,11.1,2,0)="2^F^2005.85^1^50^2^F"
^DD("IX",206,11.1,2,3)=""
^DD("IX",206,11.1,"AC",1,1)=""
^DD("IX",206,11.1,"AC",2,2)=""
^DD("IX",206,11.1,"B",1,1)=""
^DD("IX",206,11.1,"B",2,2)=""
^DD("IX",206,11.1,"BB",1,1)=""
^DD("IX",206,11.1,"BB",2,2)=""
^DD("IX",207,0)="404.57^AD^Workload HL7 Trigger^MU^^F^IR^I^404.57^^^^^A"
^DD("IX",207,.1,0)="^^1^1^3030218^"
^DD("IX",207,.1,1,0)="Workload HL7 trigger. Triggers entry in PCMM HL7 EVENT file."
^DD("IX",207,1)="D POSBXREF^SCMCHLX(DA,404.57)"
^DD("IX",207,1.4)="S X=0 I $P($G(^SCTM(404.57,DA,0)),U,4) S X=1"
^DD("IX",207,2)="Q"
^DD("IX",207,2.4)=""
^DD("IX",207,11.1,0)="^.114IA^1^1"
^DD("IX",207,11.1,1,0)="1^F^404.57^.08^^1^F"
^DD("IX",207,11.1,"AC",1,1)=""
^DD("IX",207,11.1,"B",1,1)=""
^DD("IX",207,11.1,"BB",1,1)=""
^DD("IX",208,0)="404.57^AE^Workload event creation^MU^^F^IR^I^404.57^^^^^A"
^DD("IX",208,.1,0)="^^2^2^3030218^"
^DD("IX",208,.1,1,0)="Workload Event Creation. Triggers entry in PCMM HL7 EVENT file for "
^DD("IX",208,.1,2,0)="workload HL7 messaging."
^DD("IX",208,1)="D POSBXREF^SCMCHLX(DA,404.57)"
^DD("IX",208,1.4)="S X=$G(X2(1))"
^DD("IX",208,2)="D POSBXREF^SCMCHLX(DA,404.57)"
^DD("IX",208,2.4)="S X=$G(X1(1))"
^DD("IX",208,11.1,0)="^.114IA^1^1"
^DD("IX",208,11.1,1,0)="1^F^404.57^.04^^1^F"
^DD("IX",208,11.1,"AC",1,1)=""
^DD("IX",208,11.1,"B",1,1)=""
^DD("IX",208,11.1,"BB",1,1)=""
^DD("IX",209,0)="404.59^AC^TRIGGER HL7 MESSAGE^MU^^F^IR^I^404.59^^^^^A"
^DD("IX",209,.1,0)="^^1^1^3030218^"
^DD("IX",209,.1,1,0)="Trigger entry in PCMM HL7 EVENT file for HL7 Workload message."
^DD("IX",209,1)="D POSBXREF^SCMCHLX(DA,404.59)"
^DD("IX",209,1.4)="S X=0 S:X2(1)=0 X=1"
^DD("IX",209,2)="D POSBXREF^SCMCHLX(DA,404.59)"
^DD("IX",209,11.1,0)="^.114IA^1^1"
^DD("IX",209,11.1,1,0)="1^F^404.59^.03^^1^F"
^DD("IX",209,11.1,"AC",1,1)=""
^DD("IX",209,11.1,"B",1,1)=""
^DD("IX",209,11.1,"BB",1,1)=""
^DD("IX",210,0)="100^ARS^Orders with results, in reverse-chronological sequence^R^^R^IR^I^100^^^^^S"
^DD("IX",210,1)="S ^OR(100,""ARS"",X(1),X(2),DA)="""""
^DD("IX",210,2)="K ^OR(100,""ARS"",X(1),X(2),DA)"
^DD("IX",210,2.5)="K ^OR(100,""ARS"")"
^DD("IX",210,11.1,0)="^.114IA^2^2"
^DD("IX",210,11.1,1,0)="1^F^100^.02^^1^F"
^DD("IX",210,11.1,1,3)=""
^DD("IX",210,11.1,2,0)="2^F^100^71^^2^F"
^DD("IX",210,11.1,2,2)="S X=9999999-X"
^DD("IX",210,11.1,2,3)=""
^DD("IX",210,11.1,"AC",1,1)=""
^DD("IX",210,11.1,"AC",2,2)=""
^DD("IX",210,11.1,"B",1,1)=""
^DD("IX",210,11.1,"B",2,2)=""
^DD("IX",210,11.1,"BB",1,1)=""
^DD("IX",210,11.1,"BB",2,2)=""
^DD("IX",211,0)="102.211^AC^TEST^MU^^F^IR^I^102.211^^^^^A"
^DD("IX",211,1)="Q"
^DD("IX",211,2)="Q"
^DD("IX",211,11.1,0)="^.114IA^1^1"
^DD("IX",211,11.1,1,0)="1^F^102.211^.01^30^^F"
^DD("IX",211,11.1,"B",1,1)=""
^DD("IX",211,11.1,"BB",1,1)=""
^DD("IX",212,0)="2005^P^UID for corrected images^MU^^F^IR^I^2005^^^^^LS"
^DD("IX",212,.1,0)="^^2^2^3041109^"
^DD("IX",212,.1,1,0)="This cross-reference includes SOP Instance UIDs for corrected images"
^DD("IX",212,.1,2,0)="in the cross-reference on the original SOP Instance UIDs."
^DD("IX",212,1)="S ^MAG(2005,""P"",X,DA)="""""
^DD("IX",212,2)="K ^MAG(2005,""P"",X,DA)"
^DD("IX",212,2.5)="K ^MAG(2005,""P"")"
^DD("IX",212,11.1,0)="^.114IA^1^1"
^DD("IX",212,11.1,1,0)="1^F^2005^252^^1^F"
^DD("IX",212,11.1,1,3)=""
^DD("IX",212,11.1,"AC",1,1)=""
^DD("IX",212,11.1,"B",1,1)=""
^DD("IX",212,11.1,"BB",1,1)=""
^DD("IX",213,0)="392.31^BB^CoreFLS Vendor index^R^^R^IR^I^392.31^^^^^LS"
^DD("IX",213,1)="S ^DGBT(392.31,""BB"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",213,2)="K ^DGBT(392.31,""BB"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",213,2.5)="K ^DGBT(392.31,""BB"")"
^DD("IX",213,11.1,0)="^.114IA^2^2"
^DD("IX",213,11.1,1,0)="1^F^392.31^.03^30^1^F"
^DD("IX",213,11.1,1,3)=""
^DD("IX",213,11.1,2,0)="2^F^392.31^.02^30^2^F"
^DD("IX",213,11.1,2,3)=""
^DD("IX",213,11.1,"AC",1,1)=""
^DD("IX",213,11.1,"AC",2,2)=""
^DD("IX",213,11.1,"B",1,1)=""
^DD("IX",213,11.1,"B",2,2)=""
^DD("IX",213,11.1,"BB",1,1)=""
^DD("IX",213,11.1,"BB",2,2)=""
^DD("IX",214,0)="537015^C^All upper-case^R^^F^IR^I^537015^^^^^LS"
^DD("IX",214,.1,0)="^^1^1^3030430^"
^DD("IX",214,.1,1,0)="This xref is all upper-case to ease DIC lookups."
^DD("IX",214,1)="S ^AFJ(537015,""C"",$E(X,1,30),DA)="""""
^DD("IX",214,2)="K ^AFJ(537015,""C"",$E(X,1,30),DA)"
^DD("IX",214,2.5)="K ^AFJ(537015,""C"")"
^DD("IX",214,11.1,0)="^.114IA^1^1"
^DD("IX",214,11.1,1,0)="1^F^537015^.01^30^1^F"
^DD("IX",214,11.1,1,2)="S X=$$UP^XLFSTR(X)"
^DD("IX",214,11.1,1,3)=""
^DD("IX",214,11.1,1,4)="S X=$$UP^XLFSTR(X)"
^DD("IX",214,11.1,"AC",1,1)=""
^DD("IX",214,11.1,"B",1,1)=""
^DD("IX",214,11.1,"BB",1,1)=""
^DD("IX",215,0)="601.75^AC^TEMP^R^^R^IR^I^601.75^^^^^S"
^DD("IX",215,1)="S ^YTT(601.75,""AC"",$E(X(1),1,200),$E(X(2),1,30),DA)="""""
^DD("IX",215,2)="K ^YTT(601.75,""AC"",$E(X(1),1,200),$E(X(2),1,30),DA)"
^DD("IX",215,2.5)="K ^YTT(601.75,""AC"")"
^DD("IX",215,11.1,0)="^.114IA^2^2"
^DD("IX",215,11.1,1,0)="1^F^601.75^3^200^1^F"
^DD("IX",215,11.1,1,3)=""
^DD("IX",215,11.1,2,0)="2^F^601.75^4^30^2^F"
^DD("IX",215,11.1,2,3)=""
^DD("IX",215,11.1,"AC",1,1)=""
^DD("IX",215,11.1,"AC",2,2)=""
^DD("IX",215,11.1,"B",1,1)=""
^DD("IX",215,11.1,"B",2,2)=""
^DD("IX",215,11.1,"BB",1,1)=""
^DD("IX",215,11.1,"BB",2,2)=""
^DD("IX",216,0)="870^DNS2^Regular index of new-style x-ref on the DNS Domain and Node fields^R^^R^IR^I^870^^^^^LS"
^DD("IX",216,1)="S ^HLCS(870,""DNS2"",$E(X(1),1,70),$E(X(2),1,30),DA)="""""
^DD("IX",216,2)="K ^HLCS(870,""DNS2"",$E(X(1),1,70),$E(X(2),1,30),DA)"
^DD("IX",216,2.5)="K ^HLCS(870,""DNS2"")"
^DD("IX",216,11.1,0)="^.114IA^2^2"
^DD("IX",216,11.1,1,0)="1^F^870^.08^70^1^F"
^DD("IX",216,11.1,1,3)=""
^DD("IX",216,11.1,2,0)="2^F^870^.01^30^2^F"
^DD("IX",216,11.1,2,3)=""
^DD("IX",216,11.1,"AC",1,1)=""
^DD("IX",216,11.1,"AC",2,2)=""
^DD("IX",216,11.1,"B",1,1)=""
^DD("IX",216,11.1,"B",2,2)=""
^DD("IX",216,11.1,"BB",1,1)=""
^DD("IX",216,11.1,"BB",2,2)=""
^DD("IX",217,0)="870^IEN772IN^IEN772 whole file cross reference^R^^F^IR^W^870.019^^^^^LS"
^DD("IX",217,1)="S ^HLCS(870,""IEN772IN"",X,DA(1),DA)="""""
^DD("IX",217,2)="K ^HLCS(870,""IEN772IN"",X,DA(1),DA)"
^DD("IX",217,2.5)="K ^HLCS(870,""IEN772IN"")"
^DD("IX",217,11.1,0)="^.114IA^1^1"
^DD("IX",217,11.1,1,0)="1^F^870.019^9^^1^F"
^DD("IX",217,11.1,1,3)=""
^DD("IX",217,11.1,"AC",1,1)=""
^DD("IX",217,11.1,"B",1,1)=""
^DD("IX",217,11.1,"BB",1,1)=""
^DD("IX",218,0)="870^IEN772OUT^IEN772 whole file cross reference^R^^F^IR^W^870.01^^^^^LS"
^DD("IX",218,1)="S ^HLCS(870,""IEN772OUT"",X,DA(1),DA)="""""
^DD("IX",218,2)="K ^HLCS(870,""IEN772OUT"",X,DA(1),DA)"
^DD("IX",218,2.5)="K ^HLCS(870,""IEN772OUT"")"
^DD("IX",218,11.1,0)="^.114IA^1^1"
^DD("IX",218,11.1,1,0)="1^F^870.01^6^^1^F"
^DD("IX",218,11.1,1,3)=""
^DD("IX",218,11.1,"AC",1,1)=""
^DD("IX",218,11.1,"B",1,1)=""
^DD("IX",218,11.1,"BB",1,1)=""
^DD("IX",219,0)="870^IP^IP Address cross reference^R^^F^IR^I^870^^^^^LS"
^DD("IX",219,1)="S ^HLCS(870,""IP"",$E(X,1,40),DA)="""""
^DD("IX",219,2)="K ^HLCS(870,""IP"",$E(X,1,40),DA)"
^DD("IX",219,2.5)="K ^HLCS(870,""IP"")"
^DD("IX",219,11.1,0)="^.114IA^1^1"
^DD("IX",219,11.1,1,0)="1^F^870^400.01^40^1^F"
^DD("IX",219,11.1,1,3)=""
^DD("IX",219,11.1,"AC",1,1)=""
^DD("IX",219,11.1,"B",1,1)=""
^DD("IX",219,11.1,"BB",1,1)=""
^DD("IX",220,0)="798.118^B^Uniqueness Index for Key 'A' of Subfile #798.118^R^^F^IR^I^798.118^^^^^LS"
^DD("IX",220,1)="S ^ROR(798.1,DA(1),18,""B"",X,DA)="""""
^DD("IX",220,2)="K ^ROR(798.1,DA(1),18,""B"",X,DA)"
^DD("IX",220,2.5)="K ^ROR(798.1,DA(1),18,""B"")"
^DD("IX",220,11.1,0)="^.114IA^1^1"
^DD("IX",220,11.1,1,0)="1^F^798.118^.01^^1"
^DD("IX",220,11.1,"AC",1,1)=""
^DD("IX",220,11.1,"B",1,1)=""
^DD("IX",220,11.1,"BB",1,1)=""
^DD("IX",221,0)="798.122^B^Uniqueness Index for Key 'A' of Subfile #798.122^R^^F^IR^I^798.122^^^^^LS"
^DD("IX",221,1)="S ^ROR(798.1,DA(1),22,""B"",X,DA)="""""
^DD("IX",221,2)="K ^ROR(798.1,DA(1),22,""B"",X,DA)"
^DD("IX",221,2.5)="K ^ROR(798.1,DA(1),22,""B"")"
^DD("IX",221,11.1,0)="^.114IA^1^1"
^DD("IX",221,11.1,1,0)="1^F^798.122^.01^^1"
^DD("IX",221,11.1,"AC",1,1)=""
^DD("IX",221,11.1,"B",1,1)=""
^DD("IX",221,11.1,"BB",1,1)=""
^DD("IX",222,0)="799.31^B^Uniqueness Index for Key 'A' of File #799.31^R^^F^IR^I^799.31^^^^^LS"
^DD("IX",222,1)="S ^ROR(799.31,""B"",X,DA)="""""
^DD("IX",222,2)="K ^ROR(799.31,""B"",X,DA)"
^DD("IX",222,2.5)="K ^ROR(799.31,""B"")"
^DD("IX",222,11.1,0)="^.114IA^1^1"
^DD("IX",222,11.1,1,0)="1^F^799.31^.01^^1"
^DD("IX",222,11.1,"AC",1,1)=""
^DD("IX",222,11.1,"B",1,1)=""
^DD("IX",222,11.1,"BB",1,1)=""
^DD("IX",223,0)="50.416^P1^CROSS REFERENCE ON PRIMARY INGREDIENT^MU^^R^IR^I^50.416^^^^^LS"
^DD("IX",223,.1,0)="^^1^1^3060410"
^DD("IX",223,.1,1,0)=" "
^DD("IX",223,1)="I X2(1)'="""",X2(2)="""" S ^PS(50.416,""P"",X2(1),DA)="""""
^DD("IX",223,2)="I X2(1)=""""!(X2(2)'="""")!(X1(1)'=X2(1)) K ^PS(50.416,""P"",X1(1),DA)"
^DD("IX",223,2.5)="K ^PS(50.416,""P"")"
^DD("IX",223,11.1,0)="^.114IA^2^2"
^DD("IX",223,11.1,1,0)="1^F^50.416^.01^^^F"
^DD("IX",223,11.1,2,0)="2^F^50.416^2^^^F"
^DD("IX",223,11.1,"B",1,1)=""
^DD("IX",223,11.1,"B",2,2)=""
^DD("IX",223,11.1,"BB",1,1)=""
^DD("IX",223,11.1,"BB",2,2)=""
^DD("IX",224,0)="2006.532^B^Non-truncated B cross-reference^R^^F^IR^I^2006.532^^^^^LS"
^DD("IX",224,.1,0)="^^3^3^3050111^"
^DD("IX",224,.1,1,0)="The standard cross-reference truncates the value to 30 characters."
^DD("IX",224,.1,2,0)="This version of the cross-reference uses all (up to 64) characters of the"
^DD("IX",224,.1,3,0)="value."
^DD("IX",224,1)="S ^MAG(2006.532,""B"",X,DA)="""""
^DD("IX",224,2)="K ^MAG(2006.532,""B"",X,DA)"
^DD("IX",224,2.5)="K ^MAG(2006.532,""B"")"
^DD("IX",224,11.1,0)="^.114IA^1^1"
^DD("IX",224,11.1,1,0)="1^F^2006.532^.01^^1^F"
^DD("IX",224,11.1,1,3)=""
^DD("IX",224,11.1,"AC",1,1)=""
^DD("IX",224,11.1,"B",1,1)=""
^DD("IX",224,11.1,"BB",1,1)=""
^DD("IX",225,0)="2006.532^C^Cross Reference by SOP Class Name^R^^F^IR^I^2006.532^^^^^LS"
^DD("IX",225,.1,0)="^^2^2^3050114^"
^DD("IX",225,.1,1,0)=" "
^DD("IX",225,.1,2,0)="Trace SOP Class by name."
^DD("IX",225,1)="S ^MAG(2006.532,""C"",X,DA)="""""
^DD("IX",225,2)="K ^MAG(2006.532,""C"",X,DA)"
^DD("IX",225,2.5)="K ^MAG(2006.532,""C"")"
^DD("IX",225,11.1,0)="^.114IA^1^1"
^DD("IX",225,11.1,1,0)="1^F^2006.532^2^^1^F"
^DD("IX",225,11.1,1,3)=""
^DD("IX",225,11.1,"AC",1,1)=""
^DD("IX",225,11.1,"B",1,1)=""
^DD("IX",225,11.1,"BB",1,1)=""
^DD("IX",226,0)="2006.574^STS^Origin and Status^R^^R^IR^W^2006.5744^^^^^LS"
^DD("IX",226,.1,0)="^^5^5^3041029^"
^DD("IX",226,.1,1,0)=" "
^DD("IX",226,.1,2,0)=" "
^DD("IX",226,.1,3,0)="This cross-reference keeps track of ORIGIN and STATUS."
^DD("IX",226,.1,4,0)="The main purpose of this cross-reference is to make sure"
^DD("IX",226,.1,5,0)="that files are issued to only one transmission process."
^DD("IX",226,1)="S ^MAGDOUTP(2006.574,""STS"",X(1),X(2),DA(1),DA)="""""
^DD("IX",226,2)="K ^MAGDOUTP(2006.574,""STS"",X(1),X(2),DA(1),DA)"
^DD("IX",226,2.5)="K ^MAGDOUTP(2006.574,""STS"")"
^DD("IX",226,11.1,0)="^.114IA^3^2"
^DD("IX",226,11.1,2,0)="2^F^2006.5744^2^^2^F"
^DD("IX",226,11.1,2,3)=""
^DD("IX",226,11.1,3,0)="1^C^^^^1^^Origin"
^DD("IX",226,11.1,3,1.5)="S X=$P(^MAGDOUTP(2006.574,DA(1),0),""^"",4)"
^DD("IX",226,11.1,"AC",1,3)=""
^DD("IX",226,11.1,"AC",2,2)=""
^DD("IX",226,11.1,"B",1,3)=""
^DD("IX",226,11.1,"B",2,2)=""
^DD("IX",226,11.1,"BB",1,3)=""
^DD("IX",226,11.1,"BB",2,2)=""
^DD("IX",227,0)="2006.575^AD^Date Entered^MU^^F^IR^I^2006.575^^^^^S"
^DD("IX",227,.1,0)="^^6^6^3041216^"
^DD("IX",227,.1,1,0)="This cross-reference keeps track of when the various entries were"
^DD("IX",227,.1,2,0)="created."
^DD("IX",227,.1,3,0)=" "
^DD("IX",227,.1,4,0)="This cross-reference is only created for entries that are not yet ""fixed""."
^DD("IX",227,.1,5,0)="This cross-reference is only created for entries that result from"
^DD("IX",227,.1,6,0)="Consults."
^DD("IX",227,1)="S ^MAGD(2006.575,""AD"",X(1),DA)="""""
^DD("IX",227,1.4)="I 'X(2),X(3)=""CON"""
^DD("IX",227,2)="K ^MAGD(2006.575,""AD"",X(1),DA)"
^DD("IX",227,2.5)="K ^MAGD(2006.575,""AD"")"
^DD("IX",227,11.1,0)="^.114IA^3^3"
^DD("IX",227,11.1,1,0)="1^F^2006.575^7^^1^F"
^DD("IX",227,11.1,1,3)=""
^DD("IX",227,11.1,2,0)="2^F^2006.575^16^^^F"
^DD("IX",227,11.1,2,3)=""
^DD("IX",227,11.1,3,0)="3^F^2006.575^32^^^F"
^DD("IX",227,11.1,3,3)=""
^DD("IX",227,11.1,"AC",1,1)=""
^DD("IX",227,11.1,"B",1,1)=""
^DD("IX",227,11.1,"B",2,2)=""
^DD("IX",227,11.1,"B",3,3)=""
^DD("IX",227,11.1,"BB",1,1)=""
^DD("IX",227,11.1,"BB",2,2)=""
^DD("IX",227,11.1,"BB",3,3)=""
^DD("IX",228,0)="200^ATR^This index keeps track of records for which clinical trainee data is edited.^MU^^R^IR^I^200^^^^^S"
^DD("IX",228,.1,0)="^^20^20^3040927^"
^DD("IX",228,.1,1,0)="This new-style cross-reference has as cross-reference values all the "
^DD("IX",228,.1,2,0)="fields in the NEW PERSON file that are being tracked by the Office of "
^DD("IX",228,.1,3,0)="Academic Affiliations for rollup into a centralized database. When any of"
^DD("IX",228,.1,4,0)="the fields are edited, the cross-reference logic will set an index entry"
^DD("IX",228,.1,5,0)="that corresponds to the edited record. The index entries will look like"
^DD("IX",228,.1,6,0)="this:"
^DD("IX",228,.1,7,0)=" "
^DD("IX",228,.1,8,0)="  ^VA(200,""ATR"",ien) = FM internal date"
^DD("IX",228,.1,9,0)=" "
^DD("IX",228,.1,10,0)="""ATR"" stands for ""ATRainee."" "
^DD("IX",228,.1,11,0)=" "
^DD("IX",228,.1,12,0)="None of the field-type cross-reference values are used as subscripts in"
^DD("IX",228,.1,13,0)="the index, since we are only interested in recording the IENs of the"
^DD("IX",228,.1,14,0)="records that are edited and the date the index entry is set. A separate"
^DD("IX",228,.1,15,0)="queuable option will loop through the entries in this index, and send via"
^DD("IX",228,.1,16,0)="HL7 messages the clinical trainee data of each record to the Office of"
^DD("IX",228,.1,17,0)="Academic Affiliations."
^DD("IX",228,.1,18,0)=" "
^DD("IX",228,.1,19,0)="Note that the index will only be set if the person is a Clinical Trainee,"
^DD("IX",228,.1,20,0)="that is, if the PROGRAM OF STUDY (#12.2) field is filled in."
^DD("IX",228,1)="S ^VA(200,""ATR"",DA)=$G(DT)"
^DD("IX",228,1.4)="S X=X1(11)!X2(11)"
^DD("IX",228,2)="K ^VA(200,""ATR"",DA)"
^DD("IX",228,2.4)=""
^DD("IX",228,2.5)="K ^VA(200,""ATR"")"
^DD("IX",228,11.1,0)="^.114IA^21^19"
^DD("IX",228,11.1,2,0)="1^F^200^.01^^^"
^DD("IX",228,11.1,3,0)="2^F^200^.111^^^"
^DD("IX",228,11.1,4,0)="3^F^200^.112^^^"
^DD("IX",228,11.1,5,0)="4^F^200^.113^^^"
^DD("IX",228,11.1,6,0)="5^F^200^.114^^^"
^DD("IX",228,11.1,7,0)="6^F^200^.115^^^^"
^DD("IX",228,11.1,8,0)="7^F^200^.116^^^"
^DD("IX",228,11.1,9,0)="8^F^200^9^^^"
^DD("IX",228,11.1,10,0)="9^F^200^.151^^^"
^DD("IX",228,11.1,11,0)="10^F^200^12.1^^^"
^DD("IX",228,11.1,12,0)="11^F^200^12.2^^^"
^DD("IX",228,11.1,13,0)="12^F^200^12.3^^^^"
^DD("IX",228,11.1,14,0)="13^F^200^29^^^"
^DD("IX",228,11.1,15,0)="14^F^200^8^^^"
^DD("IX",228,11.1,17,0)="16^F^200^5^^^"
^DD("IX",228,11.1,18,0)="17^F^200^12.4^^^"
^DD("IX",228,11.1,19,0)="18^F^200^12.6^^^F"
^DD("IX",228,11.1,20,0)="19^F^200^12.7^^^F"
^DD("IX",228,11.1,21,0)="20^F^200^12.8^^^F"
^DD("IX",228,11.1,"B",1,2)=""
^DD("IX",228,11.1,"B",2,3)=""
^DD("IX",228,11.1,"B",3,4)=""
^DD("IX",228,11.1,"B",4,5)=""
^DD("IX",228,11.1,"B",5,6)=""
^DD("IX",228,11.1,"B",6,7)=""
^DD("IX",228,11.1,"B",7,8)=""
^DD("IX",228,11.1,"B",8,9)=""
^DD("IX",228,11.1,"B",9,10)=""
^DD("IX",228,11.1,"B",10,11)=""
^DD("IX",228,11.1,"B",11,12)=""
^DD("IX",228,11.1,"B",12,13)=""
^DD("IX",228,11.1,"B",13,14)=""
^DD("IX",228,11.1,"B",14,15)=""
^DD("IX",228,11.1,"B",16,17)=""
^DD("IX",228,11.1,"B",17,18)=""
^DD("IX",228,11.1,"B",18,19)=""
^DD("IX",228,11.1,"B",19,20)=""
^DD("IX",228,11.1,"B",20,21)=""
^DD("IX",228,11.1,"BB",1,2)=""
^DD("IX",228,11.1,"BB",2,3)=""
^DD("IX",228,11.1,"BB",3,4)=""
^DD("IX",228,11.1,"BB",4,5)=""
^DD("IX",228,11.1,"BB",5,6)=""
^DD("IX",228,11.1,"BB",6,7)=""
^DD("IX",228,11.1,"BB",7,8)=""
^DD("IX",228,11.1,"BB",8,9)=""
^DD("IX",228,11.1,"BB",9,10)=""
^DD("IX",228,11.1,"BB",10,11)=""
^DD("IX",228,11.1,"BB",11,12)=""
^DD("IX",228,11.1,"BB",12,13)=""
^DD("IX",228,11.1,"BB",13,14)=""
^DD("IX",228,11.1,"BB",14,15)=""
^DD("IX",228,11.1,"BB",16,17)=""
^DD("IX",228,11.1,"BB",17,18)=""
^DD("IX",228,11.1,"BB",18,19)=""
^DD("IX",228,11.1,"BB",19,20)=""
^DD("IX",228,11.1,"BB",20,21)=""
^DD("IX",229,0)="8932.2^B^Regular lookup index on the .01 field of the file.^R^^F^IR^I^8932.2^^^^^LS"
^DD("IX",229,1)="S ^USC(8932.2,""B"",$E(X,1,150),DA)="""""
^DD("IX",229,2)="K ^USC(8932.2,""B"",$E(X,1,150),DA)"
^DD("IX",229,2.5)="K ^USC(8932.2,""B"")"
^DD("IX",229,11.1,0)="^.114IA^1^1"
^DD("IX",229,11.1,1,0)="1^F^8932.2^.01^150^1^F"
^DD("IX",229,11.1,"AC",1,1)=""
^DD("IX",229,11.1,"B",1,1)=""
^DD("IX",229,11.1,"BB",1,1)=""
^DD("IX",230,0)="2^ADGFMD111^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",230,.1,0)="^^5^5^3030609"
^DD("IX",230,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",230,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",230,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",230,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",230,.1,5,0)="the information available at the time of the event."
^DD("IX",230,1)="D FC^DGFCPROT(.DA,2,.111,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",230,2)="D FC^DGFCPROT(.DA,2,.111,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",230,11.1,0)="^.114IA^1^1"
^DD("IX",230,11.1,1,0)="1^F^2^.111^^^F"
^DD("IX",230,11.1,"B",1,1)=""
^DD("IX",230,11.1,"BB",1,1)=""
^DD("IX",231,0)="2^ADGFMD1112^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",231,.1,0)="^^5^5^3030628"
^DD("IX",231,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",231,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",231,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",231,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",231,.1,5,0)="the information available at the time of the event."
^DD("IX",231,1)="D FC^DGFCPROT(.DA,2,.1112,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",231,2)="D FC^DGFCPROT(.DA,2,.1112,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",231,11.1,0)="^.114IA^1^1"
^DD("IX",231,11.1,1,0)="1^F^2^.1112^^^F"
^DD("IX",231,11.1,"B",1,1)=""
^DD("IX",231,11.1,"BB",1,1)=""
^DD("IX",232,0)="2^ADGFMD112^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",232,.1,0)="^^5^5^3030609"
^DD("IX",232,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",232,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",232,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",232,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",232,.1,5,0)="the information available at the time of the event."
^DD("IX",232,1)="D FC^DGFCPROT(.DA,2,.112,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",232,2)="D FC^DGFCPROT(.DA,2,.112,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",232,11.1,0)="^.114IA^1^1"
^DD("IX",232,11.1,1,0)="1^F^2^.112^^^F"
^DD("IX",232,11.1,"B",1,1)=""
^DD("IX",232,11.1,"BB",1,1)=""
^DD("IX",233,0)="2^ADGFMD113^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",233,.1,0)="^^5^5^3030628"
^DD("IX",233,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",233,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",233,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",233,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",233,.1,5,0)="the information available at the time of the event."
^DD("IX",233,1)="D FC^DGFCPROT(.DA,2,.113,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",233,2)="D FC^DGFCPROT(.DA,2,.113,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",233,11.1,0)="^.114IA^1^1"
^DD("IX",233,11.1,1,0)="1^F^2^.113^^^F"
^DD("IX",233,11.1,"B",1,1)=""
^DD("IX",233,11.1,"BB",1,1)=""
^DD("IX",234,0)="2^ADGFMD114^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",234,.1,0)="^^5^5^3030609"
^DD("IX",234,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",234,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",234,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",234,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",234,.1,5,0)="the information available at the time of the event."
^DD("IX",234,1)="D FC^DGFCPROT(.DA,2,.114,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",234,2)="D FC^DGFCPROT(.DA,2,.114,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",234,11.1,0)="^.114IA^1^1"
^DD("IX",234,11.1,1,0)="1^F^2^.114^^^F"
^DD("IX",234,11.1,"B",1,1)=""
^DD("IX",234,11.1,"BB",1,1)=""
^DD("IX",235,0)="2^ADGFMD115^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",235,.1,0)="^^5^5^3030609"
^DD("IX",235,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",235,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",235,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",235,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",235,.1,5,0)="the information available at the time of the event."
^DD("IX",235,1)="D FC^DGFCPROT(.DA,2,.115,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",235,2)="D FC^DGFCPROT(.DA,2,.115,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",235,11.1,0)="^.114IA^1^1"
^DD("IX",235,11.1,1,0)="1^F^2^.115^^^F"
^DD("IX",235,11.1,"B",1,1)=""
^DD("IX",235,11.1,"BB",1,1)=""
^DD("IX",236,0)="2^ADGFMD116^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",236,.1,0)="^^5^5^3030628"
^DD("IX",236,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",236,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",236,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",236,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",236,.1,5,0)="the information available at the time of the event."
^DD("IX",236,1)="D FC^DGFCPROT(.DA,2,.116,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",236,2)="D FC^DGFCPROT(.DA,2,.116,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",236,11.1,0)="^.114IA^1^1"
^DD("IX",236,11.1,1,0)="1^F^2^.116^^^F"
^DD("IX",236,11.1,"B",1,1)=""
^DD("IX",236,11.1,"BB",1,1)=""
^DD("IX",237,0)="2^ADGFMD1411^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",237,.1,0)="^^5^5^3030702"
^DD("IX",237,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",237,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",237,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",237,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",237,.1,5,0)="the information available at the time of the event."
^DD("IX",237,1)="D FC^DGFCPROT(.DA,2,.1411,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",237,2)="D FC^DGFCPROT(.DA,2,.1411,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",237,11.1,0)="^.114IA^1^1"
^DD("IX",237,11.1,1,0)="1^F^2^.1411^^^F"
^DD("IX",237,11.1,"B",1,1)=""
^DD("IX",237,11.1,"BB",1,1)=""
^DD("IX",238,0)="2^ADGFMD1412^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",238,.1,0)="^^5^5^3030702"
^DD("IX",238,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",238,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",238,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",238,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",238,.1,5,0)="the information available at the time of the event."
^DD("IX",238,1)="D FC^DGFCPROT(.DA,2,.1412,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",238,2)="D FC^DGFCPROT(.DA,2,.1412,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",238,11.1,0)="^.114IA^1^1"
^DD("IX",238,11.1,1,0)="1^F^2^.1412^^^F"
^DD("IX",238,11.1,"B",1,1)=""
^DD("IX",238,11.1,"BB",1,1)=""
^DD("IX",239,0)="2^ADGFMD1413^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",239,.1,0)="^^5^5^3030702"
^DD("IX",239,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",239,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",239,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",239,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",239,.1,5,0)="the information available at the time of the event."
^DD("IX",239,1)="D FC^DGFCPROT(.DA,2,.1413,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",239,2)="D FC^DGFCPROT(.DA,2,.1413,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",239,11.1,0)="^.114IA^1^1"
^DD("IX",239,11.1,1,0)="1^F^2^.1413^^^F"
^DD("IX",239,11.1,"B",1,1)=""
^DD("IX",239,11.1,"BB",1,1)=""
^DD("IX",240,0)="2^ADGFMD1414^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",240,.1,0)="^^5^5^3030702"
^DD("IX",240,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",240,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",240,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",240,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",240,.1,5,0)="the information available at the time of the event."
^DD("IX",240,1)="D FC^DGFCPROT(.DA,2,.1414,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",240,2)="D FC^DGFCPROT(.DA,2,.1414,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",240,11.1,0)="^.114IA^1^1"
^DD("IX",240,11.1,1,0)="1^F^2^.1414^^^F"
^DD("IX",240,11.1,"B",1,1)=""
^DD("IX",240,11.1,"BB",1,1)=""
^DD("IX",241,0)="2^ADGFMD1415^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",241,.1,0)="^^5^5^3030702"
^DD("IX",241,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",241,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",241,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",241,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",241,.1,5,0)="the information available at the time of the event."
^DD("IX",241,1)="D FC^DGFCPROT(.DA,2,.1415,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",241,2)="D FC^DGFCPROT(.DA,2,.1415,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",241,11.1,0)="^.114IA^1^1"
^DD("IX",241,11.1,1,0)="1^F^2^.1415^^^F"
^DD("IX",241,11.1,"B",1,1)=""
^DD("IX",241,11.1,"BB",1,1)=""
^DD("IX",242,0)="2^ADGFMD1416^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",242,.1,0)="^^5^5^3030702"
^DD("IX",242,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",242,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",242,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",242,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",242,.1,5,0)="the information available at the time of the event."
^DD("IX",242,1)="D FC^DGFCPROT(.DA,2,.1416,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",242,2)="D FC^DGFCPROT(.DA,2,.1416,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",242,11.1,0)="^.114IA^1^1"
^DD("IX",242,11.1,1,0)="1^F^2^.1416^^^F"
^DD("IX",242,11.1,"B",1,1)=""
^DD("IX",242,11.1,"BB",1,1)=""
^DD("IX",243,0)="2^ADGFMD1417^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",243,.1,0)="^^5^5^3030702"
^DD("IX",243,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",243,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",243,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",243,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",243,.1,5,0)="the information available at the time of the event."
^DD("IX",243,1)="D FC^DGFCPROT(.DA,2,.1417,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",243,2)="D FC^DGFCPROT(.DA,2,.1417,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",243,11.1,0)="^.114IA^1^1"
^DD("IX",243,11.1,1,0)="1^F^2^.1417^^^F"
^DD("IX",243,11.1,"B",1,1)=""
^DD("IX",243,11.1,"BB",1,1)=""
^DD("IX",244,0)="2^ADGFMD1418^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",244,.1,0)="^^5^5^3030702"
^DD("IX",244,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",244,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",244,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",244,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",244,.1,5,0)="the information available at the time of the event."
^DD("IX",244,1)="D FC^DGFCPROT(.DA,2,.1418,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",244,2)="D FC^DGFCPROT(.DA,2,.1418,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",244,11.1,0)="^.114IA^1^1"
^DD("IX",244,11.1,1,0)="1^F^2^.1418^^^F"
^DD("IX",244,11.1,"B",1,1)=""
^DD("IX",244,11.1,"BB",1,1)=""
^DD("IX",245,0)="2.141^ADGFMD01^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.141^^^^^A"
^DD("IX",245,.1,0)="^^5^5^3030702"
^DD("IX",245,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",245,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",245,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",245,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",245,.1,5,0)="the information available at the time of the event."
^DD("IX",245,1)="D FC^DGFCPROT(.DA,2.141,.01,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",245,2)="D FC^DGFCPROT(.DA,2.141,.01,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",245,11.1,0)="^.114IA^1^1"
^DD("IX",245,11.1,1,0)="1^F^2.141^.01^^^F"
^DD("IX",245,11.1,"B",1,1)=""
^DD("IX",245,11.1,"BB",1,1)=""
^DD("IX",246,0)="2.141^ADGFM1^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.141^^^^^A"
^DD("IX",246,.1,0)="^^5^5^3030702"
^DD("IX",246,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",246,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",246,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",246,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",246,.1,5,0)="the information available at the time of the event."
^DD("IX",246,1)="D FC^DGFCPROT(.DA,2.141,1,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",246,2)="D FC^DGFCPROT(.DA,2.141,1,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",246,11.1,0)="^.114IA^1^1"
^DD("IX",246,11.1,1,0)="1^F^2.141^1^^^F"
^DD("IX",246,11.1,"B",1,1)=""
^DD("IX",246,11.1,"BB",1,1)=""
^DD("IX",247,0)="8925^ADIV^Index on DIVISION, DOCUMENT TYPE, STATUS, and REFERENCE DATE^R^^R^IR^I^8925^^^^^S"
^DD("IX",247,.1,0)="^^2^2^3030418^"
^DD("IX",247,.1,1,0)="This Regular New style-type, multi- field cross-reference is optimized for"
^DD("IX",247,.1,2,0)="searching division, document type, status, and reference date range."
^DD("IX",247,1)="S ^TIU(8925,""ADIV"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",247,2)="K ^TIU(8925,""ADIV"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",247,2.5)="K ^TIU(8925,""ADIV"")"
^DD("IX",247,11.1,0)="^.114IA^4^4"
^DD("IX",247,11.1,1,0)="1^F^8925^1212^^1^F"
^DD("IX",247,11.1,1,3)=""
^DD("IX",247,11.1,2,0)="2^F^8925^.01^^2^F"
^DD("IX",247,11.1,2,3)=""
^DD("IX",247,11.1,3,0)="3^F^8925^.05^^3^F"
^DD("IX",247,11.1,3,3)=""
^DD("IX",247,11.1,4,0)="4^F^8925^1301^^4^F"
^DD("IX",247,11.1,4,2)="S X=9999999-X"
^DD("IX",247,11.1,4,3)="S X=9999999-X"
^DD("IX",247,11.1,"AC",1,1)=""
^DD("IX",247,11.1,"AC",2,2)=""
^DD("IX",247,11.1,"AC",3,3)=""
^DD("IX",247,11.1,"AC",4,4)=""
^DD("IX",247,11.1,"B",1,1)=""
^DD("IX",247,11.1,"B",2,2)=""
^DD("IX",247,11.1,"B",3,3)=""
^DD("IX",247,11.1,"B",4,4)=""
^DD("IX",247,11.1,"BB",1,1)=""
^DD("IX",247,11.1,"BB",2,2)=""
^DD("IX",247,11.1,"BB",3,3)=""
^DD("IX",247,11.1,"BB",4,4)=""
^DD("IX",248,0)="52.5^CMP^CMOP STATUS,RX TYPE (C OR N),DIVISION,DATE,PATIENT^R^^R^IR^I^52.5^^^^^LS"
^DD("IX",248,1)="S ^PS(52.5,""CMP"",X(1),$E(X(2),1,2),X(3),X(4),X(5),DA)="""""
^DD("IX",248,2)="K ^PS(52.5,""CMP"",X(1),$E(X(2),1,2),X(3),X(4),X(5),DA)"
^DD("IX",248,2.5)="K ^PS(52.5,""CMP"")"
^DD("IX",248,11.1,0)="^.114IA^5^5"
^DD("IX",248,11.1,1,0)="1^F^52.5^3^^1^F"
^DD("IX",248,11.1,2,0)="2^C^^^2^2^F^TYPE - C or N"
^DD("IX",248,11.1,2,1.5)="S X=$$CMPRXTYP^PSOCMOP(DA)"
^DD("IX",248,11.1,3,0)="3^F^52.5^.06^^3^F"
^DD("IX",248,11.1,4,0)="4^F^52.5^.02^^4^F"
^DD("IX",248,11.1,5,0)="5^F^52.5^.03^^5^F"
^DD("IX",248,11.1,"AC",1,1)=""
^DD("IX",248,11.1,"AC",2,2)=""
^DD("IX",248,11.1,"AC",3,3)=""
^DD("IX",248,11.1,"AC",4,4)=""
^DD("IX",248,11.1,"AC",5,5)=""
^DD("IX",248,11.1,"B",1,1)=""
^DD("IX",248,11.1,"B",2,2)=""
^DD("IX",248,11.1,"B",3,3)=""
^DD("IX",248,11.1,"B",4,4)=""
^DD("IX",248,11.1,"B",5,5)=""
^DD("IX",248,11.1,"BB",1,1)=""
^DD("IX",248,11.1,"BB",2,2)=""
^DD("IX",248,11.1,"BB",3,3)=""
^DD("IX",248,11.1,"BB",4,4)=""
^DD("IX",248,11.1,"BB",5,5)=""
^DD("IX",249,0)="9.64^AD^Delete fields if data no longer comes with file.^MU^^F^^I^9.64^^^^^A"
^DD("IX",249,.1,0)="^^2^2^3030522^^"
^DD("IX",249,.1,1,0)="If DATA COMES WITH FILE (#222.7) is changed from YES (to NO or null), then"
^DD("IX",249,.1,2,0)="make sure that any fields associated with data coming with the file are null."
^DD("IX",249,1)="D ADXREF^XPDKRN"
^DD("IX",249,1.4)="S X=(X1(1)=""y"")"
^DD("IX",249,2)="Q"
^DD("IX",249,11.1,0)="^.114IA^1^1"
^DD("IX",249,11.1,1,0)="1^F^9.64^222.7^^^"
^DD("IX",249,11.1,"B",1,1)=""
^DD("IX",249,11.1,"BB",1,1)=""
^DD("IX",250,0)="52^APKI^This indexes the issue date.^MU^^F^IR^I^52^^^^^S"
^DD("IX",250,.1,0)="^^4^4^3030429^"
^DD("IX",250,.1,1,0)="This cross-reference is used only to index digitally signed CPRS placed"
^DD("IX",250,.1,2,0)="orders by the issue date. It is primarily used to generate digitally "
^DD("IX",250,.1,3,0)="signed prescriptions in the Digitally Signed Orders Report, which is made"
^DD("IX",250,.1,4,0)="available in the Controlled Substance package, as part of the PKI project."
^DD("IX",250,1)="I +$P($G(^PSRX(DA,""PKI"")),""^"")=1 S ^PSRX(""APKI"",$E(X,1,30),DA)="""""
^DD("IX",250,2)="K ^PSRX(""APKI"",$E(X,1,30),DA)"
^DD("IX",250,2.5)="K ^PSRX(""APKI"")"
^DD("IX",250,11.1,0)="^.114IA^1^1"
^DD("IX",250,11.1,1,0)="1^F^52^1^30^1^F"
^DD("IX",250,11.1,"AC",1,1)=""
^DD("IX",250,11.1,"B",1,1)=""
^DD("IX",250,11.1,"BB",1,1)=""
^DD("IX",251,0)="52.41^APKI^This indexes the login date and related institution.^MU^^R^IR^I^52.41^^^^^S"
^DD("IX",251,.1,0)="^^7^7^3030428^^"
^DD("IX",251,.1,1,0)="This cross-reference is used only to index digitally signed orders by the"
^DD("IX",251,.1,2,0)="login date and the related institution. It will be identical to that of "
^DD("IX",251,.1,3,0)="the ""AD"" cross-reference in functionality, but this cross-reference will"
^DD("IX",251,.1,4,0)="not be killed when the pending orders are discontinued. It is primarily"
^DD("IX",251,.1,5,0)="used to list discontinued orders in the Digitally Signed Orders Report,"
^DD("IX",251,.1,6,0)="which is made available in the Controlled Substance package, as part of"
^DD("IX",251,.1,7,0)="the PKI project."
^DD("IX",251,1)="I $P(^PS(52.41,DA,0),""^"",3)[""NW""!($P(^(0),""^"",3)=""DC""),$P(^(0),""^"",24)=1,$P($G(^PS(52.41,DA,""INI"")),""^"") S ^PS(52.41,""APKI"",X,$P(^PS(52.41,DA,""INI""),""^""),DA)="""""
^DD("IX",251,2)="K ^PS(52.41,""APKI"",X,+$P($G(^PS(52.41,DA,""INI"")),""^""),DA)"
^DD("IX",251,2.5)="K ^PS(52.41,""APKI"")"
^DD("IX",251,11.1,0)="^.114IA^2^2"
^DD("IX",251,11.1,1,0)="1^F^52.41^15^30^1^F"
^DD("IX",251,11.1,2,0)="2^F^52.41^100^^2^F"
^DD("IX",251,11.1,"AC",1,1)=""
^DD("IX",251,11.1,"AC",2,2)=""
^DD("IX",251,11.1,"B",1,1)=""
^DD("IX",251,11.1,"B",2,2)=""
^DD("IX",251,11.1,"BB",1,1)=""
^DD("IX",251,11.1,"BB",2,2)=""
^DD("IX",252,0)="53.7^AW^Index Patient Name by Ward^R^^R^IR^I^53.7^^^^^S"
^DD("IX",252,.1,0)="^^3^3^3030107^"
^DD("IX",252,.1,1,0)="This indexes the WARD field and PATIENT NAME fields.  It is used by the "
^DD("IX",252,.1,2,0)="BCMA Backup System outputs that compile and report patient data sorted by "
^DD("IX",252,.1,3,0)="ward location and then by patient name."
^DD("IX",252,1)="S ^ALPB(53.7,""AW"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",252,2)="K ^ALPB(53.7,""AW"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",252,2.5)="K ^ALPB(53.7,""AW"")"
^DD("IX",252,11.1,0)="^.114IA^2^2"
^DD("IX",252,11.1,1,0)="1^F^53.7^4^30^1^F"
^DD("IX",252,11.1,1,3)=""
^DD("IX",252,11.1,2,0)="2^F^53.7^.01^30^2^F"
^DD("IX",252,11.1,2,3)=""
^DD("IX",252,11.1,"AC",1,1)=""
^DD("IX",252,11.1,"AC",2,2)=""
^DD("IX",252,11.1,"B",1,1)=""
^DD("IX",252,11.1,"B",2,2)=""
^DD("IX",252,11.1,"BB",1,1)=""
^DD("IX",252,11.1,"BB",2,2)=""
^DD("IX",253,0)="52.91^AC^Sets the ""AC"" x-ref.^MU^^F^IR^I^52.91^^^^^A"
^DD("IX",253,1)="S ^PS(52.91,""AC"",$E(X,1,30),DA)="""" S:$$PATCH^XPDUTL(""PSO*7.0*146"") ^PS(52.91,""AX"",DT,DA)="""" Q"
^DD("IX",253,1.4)=""
^DD("IX",253,2)="K ^PS(52.91,""AC"",$E(X,1,30),DA) S:$$PATCH^XPDUTL(""PSO*7.0*146"") ^PS(52.91,""AX"",DT,DA)="""" Q"
^DD("IX",253,2.4)=""
^DD("IX",253,11.1,0)="^.114IA^1^1"
^DD("IX",253,11.1,1,0)="1^F^52.91^7^^1^F"
^DD("IX",253,11.1,"AC",1,1)=""
^DD("IX",253,11.1,"B",1,1)=""
^DD("IX",253,11.1,"BB",1,1)=""
^DD("IX",254,0)="52.91^AX^Triggers the ""AX"" x-ref only during manual edit.^MU^^R^IR^I^52.91^^^^^A"
^DD("IX",254,1)="S:$$PATCH^XPDUTL(""PSO*7.0*146"") ^PS(52.91,""AX"",DT,DA)="""" Q"
^DD("IX",254,1.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",254,2)="S:$$PATCH^XPDUTL(""PSO*7.0*146"") ^PS(52.91,""AX"",DT,DA)="""" Q"
^DD("IX",254,2.4)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",254,11.1,0)="^.114IA^8^8"
^DD("IX",254,11.1,1,0)="1^F^52.91^1^^1^F"
^DD("IX",254,11.1,2,0)="2^F^52.91^2^^^F"
^DD("IX",254,11.1,3,0)="3^F^52.91^3^^^F"
^DD("IX",254,11.1,4,0)="4^F^52.91^4^^^F"
^DD("IX",254,11.1,5,0)="5^F^52.91^5^^^F"
^DD("IX",254,11.1,6,0)="6^F^52.91^6^^^F"
^DD("IX",254,11.1,7,0)="7^F^52.91^8^^^F"
^DD("IX",254,11.1,8,0)="8^F^52.91^9^^^F"
^DD("IX",254,11.1,"AC",1,1)=""
^DD("IX",254,11.1,"B",1,1)=""
^DD("IX",254,11.1,"B",2,2)=""
^DD("IX",254,11.1,"B",3,3)=""
^DD("IX",254,11.1,"B",4,4)=""
^DD("IX",254,11.1,"B",5,5)=""
^DD("IX",254,11.1,"B",6,6)=""
^DD("IX",254,11.1,"B",7,7)=""
^DD("IX",254,11.1,"B",8,8)=""
^DD("IX",254,11.1,"BB",1,1)=""
^DD("IX",254,11.1,"BB",2,2)=""
^DD("IX",254,11.1,"BB",3,3)=""
^DD("IX",254,11.1,"BB",4,4)=""
^DD("IX",254,11.1,"BB",5,5)=""
^DD("IX",254,11.1,"BB",6,6)=""
^DD("IX",254,11.1,"BB",7,7)=""
^DD("IX",254,11.1,"BB",8,8)=""
^DD("IX",255,0)="26.11^AINACT^Trigger for Status change to all Assignments.^MU^^F^I^I^26.11^^^^^A"
^DD("IX",255,.1,0)="^^3^3^3030228^"
^DD("IX",255,.1,1,0)="The trigger process will Inactivate ALL active Patient Record Flag"
^DD("IX",255,.1,2,0)="Assignment records in the PRF ASSIGNMENT (#26.13) file associated with"
^DD("IX",255,.1,3,0)="this flag."
^DD("IX",255,1)="I X(1)=0,X1(1)=1 D INACT^DGPFDD(DA,X(1),26.11,DUZ)"
^DD("IX",255,1.4)=""
^DD("IX",255,2)="Q"
^DD("IX",255,2.4)=""
^DD("IX",255,11.1,0)="^.114IA^1^1"
^DD("IX",255,11.1,1,0)="1^F^26.11^.02^^^F"
^DD("IX",255,11.1,"B",1,1)=""
^DD("IX",255,11.1,"BB",1,1)=""
^DD("IX",256,0)="26.11^ASTAT^This is a sort only index of the STATUS & NAME fields.^R^^R^IR^I^26.11^^^^^S"
^DD("IX",256,1)="S ^DGPF(26.11,""ASTAT"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",256,2)="K ^DGPF(26.11,""ASTAT"",X(1),$E(X(2),1,30),DA)"
^DD("IX",256,2.5)="K ^DGPF(26.11,""ASTAT"")"
^DD("IX",256,11.1,0)="^.114IA^2^2"
^DD("IX",256,11.1,1,0)="1^F^26.11^.02^^1^F"
^DD("IX",256,11.1,2,0)="2^F^26.11^.01^30^2^F"
^DD("IX",256,11.1,"AC",1,1)=""
^DD("IX",256,11.1,"AC",2,2)=""
^DD("IX",256,11.1,"B",1,1)=""
^DD("IX",256,11.1,"B",2,2)=""
^DD("IX",256,11.1,"BB",1,1)=""
^DD("IX",256,11.1,"BB",2,2)=""
^DD("IX",257,0)="26.11^ATYP^This is a sort only index of the TYPE and NAME fields.^R^^R^IR^I^26.11^^^^^S"
^DD("IX",257,1)="S ^DGPF(26.11,""ATYP"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",257,2)="K ^DGPF(26.11,""ATYP"",X(1),$E(X(2),1,30),DA)"
^DD("IX",257,2.5)="K ^DGPF(26.11,""ATYP"")"
^DD("IX",257,11.1,0)="^.114IA^2^2"
^DD("IX",257,11.1,1,0)="1^F^26.11^.03^^1^F"
^DD("IX",257,11.1,1,3)=""
^DD("IX",257,11.1,2,0)="2^F^26.11^.01^30^2^F"
^DD("IX",257,11.1,2,3)=""
^DD("IX",257,11.1,"AC",1,1)=""
^DD("IX",257,11.1,"AC",2,2)=""
^DD("IX",257,11.1,"B",1,1)=""
^DD("IX",257,11.1,"B",2,2)=""
^DD("IX",257,11.1,"BB",1,1)=""
^DD("IX",257,11.1,"BB",2,2)=""
^DD("IX",258,0)="26.12^C^This is a regular index on the FLAG NAME & FLAG EDIT DATE/TIME fields.^R^^R^IR^I^26.12^^^^^LS"
^DD("IX",258,1)="S ^DGPF(26.12,""C"",X(1),X(2),DA)="""""
^DD("IX",258,2)="K ^DGPF(26.12,""C"",X(1),X(2),DA)"
^DD("IX",258,2.5)="K ^DGPF(26.12,""C"")"
^DD("IX",258,11.1,0)="^.114IA^2^2"
^DD("IX",258,11.1,1,0)="1^F^26.12^.01^^1^F"
^DD("IX",258,11.1,1,3)=""
^DD("IX",258,11.1,2,0)="2^F^26.12^.02^^2^F"
^DD("IX",258,11.1,2,3)=""
^DD("IX",258,11.1,"AC",1,1)=""
^DD("IX",258,11.1,"AC",2,2)=""
^DD("IX",258,11.1,"B",1,1)=""
^DD("IX",258,11.1,"B",2,2)=""
^DD("IX",258,11.1,"BB",1,1)=""
^DD("IX",258,11.1,"BB",2,2)=""
^DD("IX",259,0)="26.13^AFLAG^Index the Flag Name(var pointer) and Patient fields.^R^^R^IR^I^26.13^^^^^S"
^DD("IX",259,1)="S ^DGPF(26.13,""AFLAG"",X(1),X(2),DA)="""""
^DD("IX",259,2)="K ^DGPF(26.13,""AFLAG"",X(1),X(2),DA)"
^DD("IX",259,2.5)="K ^DGPF(26.13,""AFLAG"")"
^DD("IX",259,11.1,0)="^.114IA^2^2"
^DD("IX",259,11.1,1,0)="1^F^26.13^.02^^1^F"
^DD("IX",259,11.1,1,3)=""
^DD("IX",259,11.1,2,0)="2^F^26.13^.01^^2^F"
^DD("IX",259,11.1,2,3)=""
^DD("IX",259,11.1,"AC",1,1)=""
^DD("IX",259,11.1,"AC",2,2)=""
^DD("IX",259,11.1,"B",1,1)=""
^DD("IX",259,11.1,"B",2,2)=""
^DD("IX",259,11.1,"BB",1,1)=""
^DD("IX",259,11.1,"BB",2,2)=""
^DD("IX",260,0)="26.13^AFREV^Index the Review Date and Patient Name fields^R^^R^IR^I^26.13^^^^^S"
^DD("IX",260,1)="S ^DGPF(26.13,""AFREV"",X(1),X(2),DA)="""""
^DD("IX",260,2)="K ^DGPF(26.13,""AFREV"",X(1),X(2),DA)"
^DD("IX",260,2.5)="K ^DGPF(26.13,""AFREV"")"
^DD("IX",260,11.1,0)="^.114IA^2^2"
^DD("IX",260,11.1,1,0)="1^F^26.13^.06^^1^F"
^DD("IX",260,11.1,1,3)=""
^DD("IX",260,11.1,2,0)="2^F^26.13^.01^^2^F"
^DD("IX",260,11.1,2,3)=""
^DD("IX",260,11.1,"AC",1,1)=""
^DD("IX",260,11.1,"AC",2,2)=""
^DD("IX",260,11.1,"B",1,1)=""
^DD("IX",260,11.1,"B",2,2)=""
^DD("IX",260,11.1,"BB",1,1)=""
^DD("IX",260,11.1,"BB",2,2)=""
^DD("IX",261,0)="26.13^ANDAT^Computed notification date^R^^R^IR^I^26.13^^^^^S"
^DD("IX",261,1)="S ^DGPF(26.13,""ANDAT"",X(3),DA)="""""
^DD("IX",261,2)="K ^DGPF(26.13,""ANDAT"",X(3),DA)"
^DD("IX",261,2.5)="K ^DGPF(26.13,""ANDAT"")"
^DD("IX",261,11.1,0)="^.114IA^3^3"
^DD("IX",261,11.1,1,0)="1^F^26.13^.02^^^F"
^DD("IX",261,11.1,1,3)=""
^DD("IX",261,11.1,2,0)="2^F^26.13^.06^^^F"
^DD("IX",261,11.1,2,3)=""
^DD("IX",261,11.1,3,0)="3^C^^^^1"
^DD("IX",261,11.1,3,1.5)="S X=$$NOTIFYDT^DGPFAA3(X(1),X(2)),X=$S(X>0:X,1:"""")"
^DD("IX",261,11.1,"AC",1,3)=""
^DD("IX",261,11.1,"B",1,1)=""
^DD("IX",261,11.1,"B",2,2)=""
^DD("IX",261,11.1,"B",3,3)=""
^DD("IX",261,11.1,"BB",1,1)=""
^DD("IX",261,11.1,"BB",2,2)=""
^DD("IX",261,11.1,"BB",3,3)=""
^DD("IX",262,0)="26.13^ASTAT^Index the STATUS and FLAG NAME fields.^R^^R^IR^I^26.13^^^^^S"
^DD("IX",262,1)="S ^DGPF(26.13,""ASTAT"",X(1),X(2),DA)="""""
^DD("IX",262,2)="K ^DGPF(26.13,""ASTAT"",X(1),X(2),DA)"
^DD("IX",262,2.5)="K ^DGPF(26.13,""ASTAT"")"
^DD("IX",262,11.1,0)="^.114IA^2^2"
^DD("IX",262,11.1,1,0)="1^F^26.13^.03^^1^F"
^DD("IX",262,11.1,1,3)=""
^DD("IX",262,11.1,2,0)="2^F^26.13^.02^^2^F"
^DD("IX",262,11.1,2,3)=""
^DD("IX",262,11.1,"AC",1,1)=""
^DD("IX",262,11.1,"AC",2,2)=""
^DD("IX",262,11.1,"B",1,1)=""
^DD("IX",262,11.1,"B",2,2)=""
^DD("IX",262,11.1,"BB",1,1)=""
^DD("IX",262,11.1,"BB",2,2)=""
^DD("IX",263,0)="26.13^C^Index the Patient and Flag Name fields^R^^R^IR^I^26.13^^^^^LS"
^DD("IX",263,1)="S ^DGPF(26.13,""C"",X(1),X(2),DA)="""""
^DD("IX",263,2)="K ^DGPF(26.13,""C"",X(1),X(2),DA)"
^DD("IX",263,2.5)="K ^DGPF(26.13,""C"")"
^DD("IX",263,11.1,0)="^.114IA^2^2"
^DD("IX",263,11.1,1,0)="1^F^26.13^.01^^1^F"
^DD("IX",263,11.1,1,3)=""
^DD("IX",263,11.1,2,0)="2^F^26.13^.02^^2^F"
^DD("IX",263,11.1,2,3)=""
^DD("IX",263,11.1,"AC",1,1)=""
^DD("IX",263,11.1,"AC",2,2)=""
^DD("IX",263,11.1,"B",1,1)=""
^DD("IX",263,11.1,"B",2,2)=""
^DD("IX",263,11.1,"BB",1,1)=""
^DD("IX",263,11.1,"BB",2,2)=""
^DD("IX",264,0)="26.13^D^Index the Patient Name and the Status fields^R^^R^IR^I^26.13^^^^^LS"
^DD("IX",264,1)="S ^DGPF(26.13,""D"",X(1),X(2),DA)="""""
^DD("IX",264,2)="K ^DGPF(26.13,""D"",X(1),X(2),DA)"
^DD("IX",264,2.5)="K ^DGPF(26.13,""D"")"
^DD("IX",264,11.1,0)="^.114IA^2^2"
^DD("IX",264,11.1,1,0)="1^F^26.13^.01^^1^F"
^DD("IX",264,11.1,2,0)="2^F^26.13^.03^^2^F"
^DD("IX",264,11.1,"AC",1,1)=""
^DD("IX",264,11.1,"AC",2,2)=""
^DD("IX",264,11.1,"B",1,1)=""
^DD("IX",264,11.1,"B",2,2)=""
^DD("IX",264,11.1,"BB",1,1)=""
^DD("IX",264,11.1,"BB",2,2)=""
^DD("IX",265,0)="26.14^APPRO^This is a regular index on the APPROVED BY and PRF ASSIGNMENT fields.^R^^R^IR^I^26.14^^^^^S"
^DD("IX",265,1)="S ^DGPF(26.14,""APPRO"",X(1),X(2),DA)="""""
^DD("IX",265,2)="K ^DGPF(26.14,""APPRO"",X(1),X(2),DA)"
^DD("IX",265,2.5)="K ^DGPF(26.14,""APPRO"")"
^DD("IX",265,11.1,0)="^.114IA^2^2"
^DD("IX",265,11.1,1,0)="1^F^26.14^.05^^1^F"
^DD("IX",265,11.1,1,3)=""
^DD("IX",265,11.1,2,0)="2^F^26.14^.01^^2^F"
^DD("IX",265,11.1,2,3)=""
^DD("IX",265,11.1,"AC",1,1)=""
^DD("IX",265,11.1,"AC",2,2)=""
^DD("IX",265,11.1,"B",1,1)=""
^DD("IX",265,11.1,"B",2,2)=""
^DD("IX",265,11.1,"BB",1,1)=""
^DD("IX",265,11.1,"BB",2,2)=""
^DD("IX",266,0)="26.14^C^This is a regular index on the PRF ASSIGNMENT & DATE/TIME FIELDS.^R^^R^IR^I^26.14^^^^^LS"
^DD("IX",266,1)="S ^DGPF(26.14,""C"",X(1),X(2),DA)="""""
^DD("IX",266,2)="K ^DGPF(26.14,""C"",X(1),X(2),DA)"
^DD("IX",266,2.5)="K ^DGPF(26.14,""C"")"
^DD("IX",266,11.1,0)="^.114IA^2^2"
^DD("IX",266,11.1,1,0)="1^F^26.14^.01^^1^F"
^DD("IX",266,11.1,2,0)="2^F^26.14^.02^^2^F"
^DD("IX",266,11.1,"AC",1,1)=""
^DD("IX",266,11.1,"AC",2,2)=""
^DD("IX",266,11.1,"B",1,1)=""
^DD("IX",266,11.1,"B",2,2)=""
^DD("IX",266,11.1,"BB",1,1)=""
^DD("IX",266,11.1,"BB",2,2)=""
^DD("IX",267,0)="26.14^D^This is a regular index on the DATE/TIME & APPROVED BY fields.^R^^R^IR^I^26.14^^^^^LS"
^DD("IX",267,1)="S ^DGPF(26.14,""D"",X(1),X(2),DA)="""""
^DD("IX",267,2)="K ^DGPF(26.14,""D"",X(1),X(2),DA)"
^DD("IX",267,2.5)="K ^DGPF(26.14,""D"")"
^DD("IX",267,11.1,0)="^.114IA^2^2"
^DD("IX",267,11.1,1,0)="1^F^26.14^.02^^1^F"
^DD("IX",267,11.1,2,0)="2^F^26.14^.05^^2^F"
^DD("IX",267,11.1,"AC",1,1)=""
^DD("IX",267,11.1,"AC",2,2)=""
^DD("IX",267,11.1,"B",1,1)=""
^DD("IX",267,11.1,"B",2,2)=""
^DD("IX",267,11.1,"BB",1,1)=""
^DD("IX",267,11.1,"BB",2,2)=""
^DD("IX",268,0)="26.15^AINACT^Trigger for Status change to all Assignments.^MU^^F^I^I^26.15^^^^^A"
^DD("IX",268,.1,0)="^^3^3^3030228^"
^DD("IX",268,.1,1,0)="The trigger process will Inactivate ALL active Patient Record Flag "
^DD("IX",268,.1,2,0)="Assignment records in the PRF ASSIGNMENT (#26.13) file associated with "
^DD("IX",268,.1,3,0)="this flag."
^DD("IX",268,1)="I X(1)=0,X1(1)=1 D INACT^DGPFDD(DA,X(1),26.15,DUZ)"
^DD("IX",268,2)="Q"
^DD("IX",268,11.1,0)="^.114IA^1^1"
^DD("IX",268,11.1,1,0)="1^F^26.15^.02^^^F"
^DD("IX",268,11.1,"B",1,1)=""
^DD("IX",268,11.1,"BB",1,1)=""
^DD("IX",269,0)="26.15^ASTAT^This is a sort only index of the STATUS & NAME fields.^R^^R^IR^I^26.15^^^^^S"
^DD("IX",269,1)="S ^DGPF(26.15,""ASTAT"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",269,2)="K ^DGPF(26.15,""ASTAT"",X(1),$E(X(2),1,30),DA)"
^DD("IX",269,2.5)="K ^DGPF(26.15,""ASTAT"")"
^DD("IX",269,11.1,0)="^.114IA^2^2"
^DD("IX",269,11.1,1,0)="1^F^26.15^.02^^1^F"
^DD("IX",269,11.1,1,3)=""
^DD("IX",269,11.1,2,0)="2^F^26.15^.01^30^2^F"
^DD("IX",269,11.1,2,3)=""
^DD("IX",269,11.1,"AC",1,1)=""
^DD("IX",269,11.1,"AC",2,2)=""
^DD("IX",269,11.1,"B",1,1)=""
^DD("IX",269,11.1,"B",2,2)=""
^DD("IX",269,11.1,"BB",1,1)=""
^DD("IX",269,11.1,"BB",2,2)=""
^DD("IX",270,0)="26.15^ATYPE^This is a sort only index of the TYPE & NAME fields.^R^^R^IR^I^26.15^^^^^S"
^DD("IX",270,1)="S ^DGPF(26.15,""ATYPE"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",270,2)="K ^DGPF(26.15,""ATYPE"",X(1),$E(X(2),1,30),DA)"
^DD("IX",270,2.5)="K ^DGPF(26.15,""ATYPE"")"
^DD("IX",270,11.1,0)="^.114IA^2^2"
^DD("IX",270,11.1,1,0)="1^F^26.15^.03^^1^F"
^DD("IX",270,11.1,1,3)=""
^DD("IX",270,11.1,2,0)="2^F^26.15^.01^30^2^F"
^DD("IX",270,11.1,2,3)=""
^DD("IX",270,11.1,"AC",1,1)=""
^DD("IX",270,11.1,"AC",2,2)=""
^DD("IX",270,11.1,"B",1,1)=""
^DD("IX",270,11.1,"B",2,2)=""
^DD("IX",270,11.1,"BB",1,1)=""
^DD("IX",270,11.1,"BB",2,2)=""
^DD("IX",271,0)="26.17^ASTAT^This index cross references the Date/Time and Status fields^R^^R^IR^I^26.17^^^^^S"
^DD("IX",271,1)="S ^DGPF(26.17,""ASTAT"",X(1),X(2),DA)="""""
^DD("IX",271,2)="K ^DGPF(26.17,""ASTAT"",X(1),X(2),DA)"
^DD("IX",271,2.5)="K ^DGPF(26.17,""ASTAT"")"
^DD("IX",271,11.1,0)="^.114IA^2^2"
^DD("IX",271,11.1,1,0)="1^F^26.17^.03^^1^F"
^DD("IX",271,11.1,1,3)=""
^DD("IX",271,11.1,2,0)="2^F^26.17^.04^^2^F"
^DD("IX",271,11.1,2,3)=""
^DD("IX",271,11.1,"AC",1,1)=""
^DD("IX",271,11.1,"AC",2,2)=""
^DD("IX",271,11.1,"B",1,1)=""
^DD("IX",271,11.1,"B",2,2)=""
^DD("IX",271,11.1,"BB",1,1)=""
^DD("IX",271,11.1,"BB",2,2)=""
^DD("IX",272,0)="5.12^AD^Used to keep track of records that have changes^MU^^R^IR^I^5.12^^^^^S"
^DD("IX",272,.1,0)="^^10^10^3030602^"
^DD("IX",272,.1,1,0)="This cross reference is used to keep track of any field changes that are "
^DD("IX",272,.1,2,0)="made during updates via the USPS's 'Address Information System' the are "
^DD("IX",272,.1,3,0)="obtained from the 'City State Product - Detail Record'.  The format of "
^DD("IX",272,.1,4,0)="the cross reference is:"
^DD("IX",272,.1,5,0)=" "
^DD("IX",272,.1,6,0)="  S ^XIP(5.12,""AD"",<ien>)="""""
^DD("IX",272,.1,7,0)=" "
^DD("IX",272,.1,8,0)="If there are any changes to one or more of the field values, then "
^DD("IX",272,.1,9,0)="a background job will transmit the record to all of the VAMC's via a MFN "
^DD("IX",272,.1,10,0)="message."
^DD("IX",272,1)="D:'$D(XIPSEED) X512AD^XIPXREF"
^DD("IX",272,2)="Q"
^DD("IX",272,2.5)="K ^XIP(5.12,""AD"")"
^DD("IX",272,11.1,0)="^.114IA^9^9"
^DD("IX",272,11.1,1,0)="1^F^5.12^.01^^^F"
^DD("IX",272,11.1,2,0)="2^F^5.12^1^^^F"
^DD("IX",272,11.1,3,0)="3^F^5.12^2^^^F"
^DD("IX",272,11.1,4,0)="4^F^5.12^3^^^F"
^DD("IX",272,11.1,5,0)="5^F^5.12^4^^^F"
^DD("IX",272,11.1,6,0)="6^F^5.12^5^^^F"
^DD("IX",272,11.1,7,0)="7^F^5.12^6^^^F"
^DD("IX",272,11.1,8,0)="8^F^5.12^7^^^F"
^DD("IX",272,11.1,9,0)="9^F^5.12^8^^^F"
^DD("IX",272,11.1,"B",1,1)=""
^DD("IX",272,11.1,"B",2,2)=""
^DD("IX",272,11.1,"B",3,3)=""
^DD("IX",272,11.1,"B",4,4)=""
^DD("IX",272,11.1,"B",5,5)=""
^DD("IX",272,11.1,"B",6,6)=""
^DD("IX",272,11.1,"B",7,7)=""
^DD("IX",272,11.1,"B",8,8)=""
^DD("IX",272,11.1,"B",9,9)=""
^DD("IX",272,11.1,"BB",1,1)=""
^DD("IX",272,11.1,"BB",2,2)=""
^DD("IX",272,11.1,"BB",3,3)=""
^DD("IX",272,11.1,"BB",4,4)=""
^DD("IX",272,11.1,"BB",5,5)=""
^DD("IX",272,11.1,"BB",6,6)=""
^DD("IX",272,11.1,"BB",7,7)=""
^DD("IX",272,11.1,"BB",8,8)=""
^DD("IX",272,11.1,"BB",9,9)=""
^DD("IX",273,0)="5.13^AC^Cross Reference Used To Keep Track Of Field Changes^MU^^R^IR^I^5.13^^^^^A"
^DD("IX",273,.1,0)="^^10^10^3030710^"
^DD("IX",273,.1,1,0)="This cross reference is used to keep track of any field changes that are"
^DD("IX",273,.1,2,0)="made during updates via the USPS's 'Address Information System' the are"
^DD("IX",273,.1,3,0)="obtained from the 'City State Product - Detail Record'.  The format of the"
^DD("IX",273,.1,4,0)="cross reference is: "
^DD("IX",273,.1,5,0)="                     "
^DD("IX",273,.1,6,0)="                      S ^XIP(5.13,""AC"",<ien>)="""" "
^DD("IX",273,.1,7,0)="                     "
^DD("IX",273,.1,8,0)="If there are any changes to one or more of the field values, then a"
^DD("IX",273,.1,9,0)="background job will transmit the record to all of the VAMC's via a MFN"
^DD("IX",273,.1,10,0)="message."
^DD("IX",273,1)="D:'$D(XIPSEED) X513AC^XIPXREF"
^DD("IX",273,2)="Q"
^DD("IX",273,2.5)="K ^XIP(5.13,""AC"")"
^DD("IX",273,11.1,0)="^.114IA^4^4"
^DD("IX",273,11.1,1,0)="1^F^5.13^.01^^^F"
^DD("IX",273,11.1,2,0)="2^F^5.13^1^^^F"
^DD("IX",273,11.1,3,0)="3^F^5.13^2^^^F"
^DD("IX",273,11.1,4,0)="4^F^5.13^3^^^F"
^DD("IX",273,11.1,"B",1,1)=""
^DD("IX",273,11.1,"B",2,2)=""
^DD("IX",273,11.1,"B",3,3)=""
^DD("IX",273,11.1,"B",4,4)=""
^DD("IX",273,11.1,"BB",1,1)=""
^DD("IX",273,11.1,"BB",2,2)=""
^DD("IX",273,11.1,"BB",3,3)=""
^DD("IX",273,11.1,"BB",4,4)=""
^DD("IX",274,0)="5.13^D^Uniqueness Index for File #5.13^R^^R^IR^I^5.13^^^^^LS"
^DD("IX",274,1)="S ^XIP(5.13,""D"",X(1),X(2),X(3),DA)="""""
^DD("IX",274,2)="K ^XIP(5.13,""D"",X(1),X(2),X(3),DA)"
^DD("IX",274,2.5)="K ^XIP(5.13,""D"")"
^DD("IX",274,11.1,0)="^.114IA^3^3"
^DD("IX",274,11.1,1,0)="1^F^5.13^.01^^1"
^DD("IX",274,11.1,2,0)="2^F^5.13^1^^2"
^DD("IX",274,11.1,3,0)="3^F^5.13^2^^3"
^DD("IX",274,11.1,"AC",1,1)=""
^DD("IX",274,11.1,"AC",2,2)=""
^DD("IX",274,11.1,"AC",3,3)=""
^DD("IX",274,11.1,"B",1,1)=""
^DD("IX",274,11.1,"B",2,2)=""
^DD("IX",274,11.1,"B",3,3)=""
^DD("IX",274,11.1,"BB",1,1)=""
^DD("IX",274,11.1,"BB",2,2)=""
^DD("IX",274,11.1,"BB",3,3)=""
^DD("IX",275,0)="365^AD^Cross-reference for reports^R^^R^IR^I^365^^^^^S"
^DD("IX",275,.1,0)="^^1^1^3020610^"
^DD("IX",275,.1,1,0)="This cross-reference is used to generate reports."
^DD("IX",275,1)="S ^IBCN(365,""AD"",X(1),X(2),X(3),DA)="""""
^DD("IX",275,2)="K ^IBCN(365,""AD"",X(1),X(2),X(3),DA)"
^DD("IX",275,2.5)="K ^IBCN(365,""AD"")"
^DD("IX",275,11.1,0)="^.114IA^3^3"
^DD("IX",275,11.1,1,0)="1^F^365^.07^^1^F"
^DD("IX",275,11.1,1,3)=""
^DD("IX",275,11.1,2,0)="2^F^365^.03^^2^F"
^DD("IX",275,11.1,2,3)=""
^DD("IX",275,11.1,3,0)="3^F^365^.02^^3^F"
^DD("IX",275,11.1,3,3)=""
^DD("IX",275,11.1,"AC",1,1)=""
^DD("IX",275,11.1,"AC",2,2)=""
^DD("IX",275,11.1,"AC",3,3)=""
^DD("IX",275,11.1,"B",1,1)=""
^DD("IX",275,11.1,"B",2,2)=""
^DD("IX",275,11.1,"B",3,3)=""
^DD("IX",275,11.1,"BB",1,1)=""
^DD("IX",275,11.1,"BB",2,2)=""
^DD("IX",275,11.1,"BB",3,3)=""
^DD("IX",276,0)="365.1^AD^Used for patient/payer/service date checks^R^^R^IR^I^365.1^^^^^S"
^DD("IX",276,.1,0)="^^2^2^3021023^"
^DD("IX",276,.1,1,0)="This cross-reference will be used to check what is the most recent "
^DD("IX",276,.1,2,0)="service date for a patient/payer combination."
^DD("IX",276,1)="S ^IBCN(365.1,""AD"",X(1),X(2),X(3),DA)="""""
^DD("IX",276,2)="K ^IBCN(365.1,""AD"",X(1),X(2),X(3),DA)"
^DD("IX",276,2.5)="K ^IBCN(365.1,""AD"")"
^DD("IX",276,11.1,0)="^.114IA^3^3"
^DD("IX",276,11.1,1,0)="1^F^365.1^.02^^1^F"
^DD("IX",276,11.1,1,3)=""
^DD("IX",276,11.1,2,0)="2^F^365.1^.03^^2^F"
^DD("IX",276,11.1,2,3)=""
^DD("IX",276,11.1,3,0)="3^F^365.1^.12^^3^F"
^DD("IX",276,11.1,3,2)=""
^DD("IX",276,11.1,3,3)=""
^DD("IX",276,11.1,"AC",1,1)=""
^DD("IX",276,11.1,"AC",2,2)=""
^DD("IX",276,11.1,"AC",3,3)=""
^DD("IX",276,11.1,"B",1,1)=""
^DD("IX",276,11.1,"B",2,2)=""
^DD("IX",276,11.1,"B",3,3)=""
^DD("IX",276,11.1,"BB",1,1)=""
^DD("IX",276,11.1,"BB",2,2)=""
^DD("IX",276,11.1,"BB",3,3)=""
^DD("IX",277,0)="365.11^D^Uniqueness Index for Key 'A' of File #365.11^R^^F^IR^I^365.11^^^^^LS"
^DD("IX",277,.1,0)="^^1^1^3020430^"
^DD("IX",277,.1,1,0)="This Key definition exists so that the auto match values are unique."
^DD("IX",277,1)="S ^IBCN(365.11,""D"",X,DA)="""""
^DD("IX",277,2)="K ^IBCN(365.11,""D"",X,DA)"
^DD("IX",277,2.5)="K ^IBCN(365.11,""D"")"
^DD("IX",277,11.1,0)="^.114IA^1^1"
^DD("IX",277,11.1,1,0)="1^F^365.11^.01^^1"
^DD("IX",277,11.1,"AC",1,1)=""
^DD("IX",277,11.1,"B",1,1)=""
^DD("IX",277,11.1,"BB",1,1)=""
^DD("IX",278,0)="791814^E^NEW CROSS REF ON DFN, DATE^R^^R^IR^I^791814^^^^^LS"
^DD("IX",278,1)="S ^RMPF(791814,""E"",$E(X(1),1,15),$E(X(2),1,20),DA)="""""
^DD("IX",278,1.4)=""
^DD("IX",278,2)="K ^RMPF(791814,""E"",$E(X(1),1,15),$E(X(2),1,20),DA)"
^DD("IX",278,2.4)=""
^DD("IX",278,2.5)="K ^RMPF(791814,""E"")"
^DD("IX",278,11.1,0)="^.114IA^2^2"
^DD("IX",278,11.1,1,0)="1^F^791814^.01^15^1^F"
^DD("IX",278,11.1,2,0)="2^F^791814^.02^20^2^F"
^DD("IX",278,11.1,"AC",1,1)=""
^DD("IX",278,11.1,"AC",2,2)=""
^DD("IX",278,11.1,"B",1,1)=""
^DD("IX",278,11.1,"B",2,2)=""
^DD("IX",278,11.1,"BB",1,1)=""
^DD("IX",278,11.1,"BB",2,2)=""
^DD("IX",279,0)="364.6^C^Field name lookup^R^^F^IR^I^364.6^^^^^LS"
^DD("IX",279,1)="S ^IBA(364.6,""C"",$E(X,1,40),DA)="""""
^DD("IX",279,2)="K ^IBA(364.6,""C"",$E(X,1,40),DA)"
^DD("IX",279,2.5)="K ^IBA(364.6,""C"")"
^DD("IX",279,11.1,0)="^.114IA^1^1"
^DD("IX",279,11.1,1,0)="1^F^364.6^.1^40^1^F"
^DD("IX",279,11.1,1,2)="S X=$$UP^XLFSTR(X)"
^DD("IX",279,11.1,"AC",1,1)=""
^DD("IX",279,11.1,"B",1,1)=""
^DD("IX",279,11.1,"BB",1,1)=""
^DD("IX",280,0)="702.001^ADATE^CHRONOLOGICAL INDEX OF NOTES BY STUDY^R^^R^IR^I^702.001^^^^^S"
^DD("IX",280,.1,0)="^^2^2^3071210^^"
^DD("IX",280,.1,1,0)="This is a chronological index of TIU notes by study used"
^DD("IX",280,.1,2,0)="for sorting."
^DD("IX",280,1)="S ^MDD(702.001,""ADATE"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",280,2)="K ^MDD(702.001,""ADATE"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",280,2.5)="K ^MDD(702.001,""ADATE"")"
^DD("IX",280,11.1,0)="^.114IA^3^3"
^DD("IX",280,11.1,1,0)="1^F^702.001^.01^30^1^F"
^DD("IX",280,11.1,2,0)="2^F^702.001^.03^30^2^F"
^DD("IX",280,11.1,3,0)="3^F^702.001^.02^30^3^F"
^DD("IX",280,11.1,"AC",1,1)=""
^DD("IX",280,11.1,"AC",2,2)=""
^DD("IX",280,11.1,"AC",3,3)=""
^DD("IX",280,11.1,"B",1,1)=""
^DD("IX",280,11.1,"B",2,2)=""
^DD("IX",280,11.1,"B",3,3)=""
^DD("IX",280,11.1,"BB",1,1)=""
^DD("IX",280,11.1,"BB",2,2)=""
^DD("IX",280,11.1,"BB",3,3)=""
^DD("IX",281,0)="801.5^AC^Reminder Dialog connection to module^R^^R^IR^I^801.5^^^^^S"
^DD("IX",281,1)="S ^PXRMD(801.5,""AC"",$E(X(1),1,30),X(2),$E(X(3),1,30),DA)="""""
^DD("IX",281,2)="K ^PXRMD(801.5,""AC"",$E(X(1),1,30),X(2),$E(X(3),1,30),DA)"
^DD("IX",281,2.5)="K ^PXRMD(801.5,""AC"")"
^DD("IX",281,11.1,0)="^.114IA^3^3"
^DD("IX",281,11.1,1,0)="1^F^801.5^.01^30^1^F"
^DD("IX",281,11.1,2,0)="2^F^801.5^.02^^2^F"
^DD("IX",281,11.1,3,0)="3^F^801.5^.03^30^3^F"
^DD("IX",281,11.1,"AC",1,1)=""
^DD("IX",281,11.1,"AC",2,2)=""
^DD("IX",281,11.1,"AC",3,3)=""
^DD("IX",281,11.1,"B",1,1)=""
^DD("IX",281,11.1,"B",2,2)=""
^DD("IX",281,11.1,"B",3,3)=""
^DD("IX",281,11.1,"BB",1,1)=""
^DD("IX",281,11.1,"BB",2,2)=""
^DD("IX",281,11.1,"BB",3,3)=""
^DD("IX",282,0)="801.5^AD^patient U identify^R^^R^IR^I^801.5^^^^^S"
^DD("IX",282,.1,0)="^^1^1^3030508^"
^DD("IX",282,.1,1,0)="Crossreference between the patient and identify fields"
^DD("IX",282,1)="S ^PXRMD(801.5,""AD"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",282,2)="K ^PXRMD(801.5,""AD"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",282,2.5)="K ^PXRMD(801.5,""AD"")"
^DD("IX",282,11.1,0)="^.114IA^2^2"
^DD("IX",282,11.1,1,0)="1^F^801.5^.01^30^1^F"
^DD("IX",282,11.1,1,3)=""
^DD("IX",282,11.1,2,0)="2^F^801.5^.03^30^2^F"
^DD("IX",282,11.1,2,3)=""
^DD("IX",282,11.1,"AC",1,1)=""
^DD("IX",282,11.1,"AC",2,2)=""
^DD("IX",282,11.1,"B",1,1)=""
^DD("IX",282,11.1,"B",2,2)=""
^DD("IX",282,11.1,"BB",1,1)=""
^DD("IX",282,11.1,"BB",2,2)=""
^DD("IX",283,0)="801.5^ANOTE^NOTEIEN,IDENTIFY,DA^R^^R^IR^I^801.5^^^^^S"
^DD("IX",283,.1,0)="^^3^3^3050118^"
^DD("IX",283,.1,1,0)="This cross reference will help in maintaining concurrence"
^DD("IX",283,.1,2,0)="between TIU, PCE"
^DD("IX",283,.1,3,0)="and Clinical Reminders. NOTEIEN ^ IDENTIFY"
^DD("IX",283,1)="S ^PXRMD(801.5,""ANOTE"",$E(X(1),1,20),$E(X(2),1,30),DA)="""""
^DD("IX",283,2)="K ^PXRMD(801.5,""ANOTE"",$E(X(1),1,20),$E(X(2),1,30),DA)"
^DD("IX",283,2.5)="K ^PXRMD(801.5,""ANOTE"")"
^DD("IX",283,11.1,0)="^.114IA^2^2"
^DD("IX",283,11.1,1,0)="1^F^801.5^.04^20^1^F"
^DD("IX",283,11.1,2,0)="2^F^801.5^.03^30^2^F"
^DD("IX",283,11.1,"AC",1,1)=""
^DD("IX",283,11.1,"AC",2,2)=""
^DD("IX",283,11.1,"B",1,1)=""
^DD("IX",283,11.1,"B",2,2)=""
^DD("IX",283,11.1,"BB",1,1)=""
^DD("IX",283,11.1,"BB",2,2)=""
^DD("IX",284,0)="801.9^AC^Local to National Status pointers^R^^F^IR^W^801.9001^^^^^S"
^DD("IX",284,.1,0)="^^2^2^3000204^"
^DD("IX",284,.1,1,0)="This index holds pointers from local resolution codes to national"
^DD("IX",284,.1,2,0)="resolution codes. These pointers are created when a local code is added."
^DD("IX",284,1)="S ^PXRMD(801.9,""AC"",X,DA(1),DA)="""""
^DD("IX",284,2)="K ^PXRMD(801.9,""AC"",X,DA(1),DA)"
^DD("IX",284,2.5)="K ^PXRMD(801.9,""AC"")"
^DD("IX",284,11.1,0)="^.114IA^1^1"
^DD("IX",284,11.1,1,0)="1^F^801.9001^.01^^1^F"
^DD("IX",284,11.1,"AC",1,1)=""
^DD("IX",284,11.1,"B",1,1)=""
^DD("IX",284,11.1,"BB",1,1)=""
^DD("IX",285,0)="801.9^ACP^Remove pointers to deleted local statuses from the sub-status multiple.^MU^^F^IR^I^801.9^^^^^A"
^DD("IX",285,.1,0)="^^4^4^3000613^"
^DD("IX",285,.1,1,0)="When a local status is deleted the ACP cross reference is used to remove"
^DD("IX",285,.1,2,0)="the local status from the sub-status multiple on the related national"
^DD("IX",285,.1,3,0)="status. To determine the national status to which the local status belongs"
^DD("IX",285,.1,4,0)="the AC index is used."
^DD("IX",285,1)="Q"
^DD("IX",285,2)="D KILLAC^PXRMSEDT Q"
^DD("IX",285,11.1,0)="^.114IA^1^1"
^DD("IX",285,11.1,1,0)="1^F^801.9^.01^30^1^F"
^DD("IX",285,11.1,"AC",1,1)=""
^DD("IX",285,11.1,"B",1,1)=""
^DD("IX",285,11.1,"BB",1,1)=""
^DD("IX",286,0)="801.55^AC^Reminder Dialog History connection to GUI^R^^R^IR^I^801.55^^^^^S"
^DD("IX",286,1)="S ^PXRMD(801.55,""AC"",$E(X(1),1,40),X(2),$E(X(3),1,30),DA)="""""
^DD("IX",286,2)="K ^PXRMD(801.55,""AC"",$E(X(1),1,40),X(2),$E(X(3),1,30),DA)"
^DD("IX",286,2.5)="K ^PXRMD(801.55,""AC"")"
^DD("IX",286,11.1,0)="^.114IA^3^3"
^DD("IX",286,11.1,1,0)="1^F^801.55^.01^40^1^F"
^DD("IX",286,11.1,1,3)=""
^DD("IX",286,11.1,2,0)="2^F^801.55^.02^^2^F"
^DD("IX",286,11.1,2,3)=""
^DD("IX",286,11.1,3,0)="3^F^801.55^.03^30^3^F"
^DD("IX",286,11.1,3,3)=""
^DD("IX",286,11.1,"AC",1,1)=""
^DD("IX",286,11.1,"AC",2,2)=""
^DD("IX",286,11.1,"AC",3,3)=""
^DD("IX",286,11.1,"B",1,1)=""
^DD("IX",286,11.1,"B",2,2)=""
^DD("IX",286,11.1,"B",3,3)=""
^DD("IX",286,11.1,"BB",1,1)=""
^DD("IX",286,11.1,"BB",2,2)=""
^DD("IX",286,11.1,"BB",3,3)=""
^DD("IX",287,0)="801.55^AD^Cross Reference between patient and identify fields^R^^R^IR^I^801.55^^^^^S"
^DD("IX",287,1)="S ^PXRMD(801.55,""AD"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",287,2)="K ^PXRMD(801.55,""AD"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",287,2.5)="K ^PXRMD(801.55,""AD"")"
^DD("IX",287,11.1,0)="^.114IA^2^2"
^DD("IX",287,11.1,1,0)="1^F^801.55^.01^30^1^F"
^DD("IX",287,11.1,1,3)=""
^DD("IX",287,11.1,2,0)="2^F^801.55^.03^30^2^F"
^DD("IX",287,11.1,2,3)=""
^DD("IX",287,11.1,"AC",1,1)=""
^DD("IX",287,11.1,"AC",2,2)=""
^DD("IX",287,11.1,"B",1,1)=""
^DD("IX",287,11.1,"B",2,2)=""
^DD("IX",287,11.1,"BB",1,1)=""
^DD("IX",287,11.1,"BB",2,2)=""
^DD("IX",288,0)="801.55^AE^Patient, Date, Dialog, User^R^^R^IR^I^801.55^^^^^S"
^DD("IX",288,.1,0)="^^1^1^3050712^^"
^DD("IX",288,.1,1,0)="Patient, Date, Dialog, User"
^DD("IX",288,1)="S ^PXRMD(801.55,""AE"",X(1),X(2),$E(X(3),1,30),X(4),DA)="""""
^DD("IX",288,2)="K ^PXRMD(801.55,""AE"",X(1),X(2),$E(X(3),1,30),X(4),DA)"
^DD("IX",288,2.5)="K ^PXRMD(801.55,""AE"")"
^DD("IX",288,11.1,0)="^.114IA^4^4"
^DD("IX",288,11.1,1,0)="1^F^801.55^.01^^1^F"
^DD("IX",288,11.1,2,0)="2^F^801.55^.02^^2^F"
^DD("IX",288,11.1,3,0)="3^F^801.55^.03^30^3^F"
^DD("IX",288,11.1,4,0)="4^F^801.55^.05^^4^F"
^DD("IX",288,11.1,"AC",1,1)=""
^DD("IX",288,11.1,"AC",2,2)=""
^DD("IX",288,11.1,"AC",3,3)=""
^DD("IX",288,11.1,"AC",4,4)=""
^DD("IX",288,11.1,"B",1,1)=""
^DD("IX",288,11.1,"B",2,2)=""
^DD("IX",288,11.1,"B",3,3)=""
^DD("IX",288,11.1,"B",4,4)=""
^DD("IX",288,11.1,"BB",1,1)=""
^DD("IX",288,11.1,"BB",2,2)=""
^DD("IX",288,11.1,"BB",3,3)=""
^DD("IX",288,11.1,"BB",4,4)=""
^DD("IX",289,0)="344.3^ADEP^Xref by deposit date and deposit number^R^^R^IR^I^344.3^^^^^S"
^DD("IX",289,1)="S ^RCY(344.3,""ADEP"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",289,2)="K ^RCY(344.3,""ADEP"",X(1),$E(X(2),1,30),DA)"
^DD("IX",289,2.5)="K ^RCY(344.3,""ADEP"")"
^DD("IX",289,11.1,0)="^.114IA^2^2"
^DD("IX",289,11.1,1,0)="1^F^344.3^.07^^1^F"
^DD("IX",289,11.1,2,0)="2^F^344.3^.06^30^2^F"
^DD("IX",289,11.1,"AC",1,1)=""
^DD("IX",289,11.1,"AC",2,2)=""
^DD("IX",289,11.1,"B",1,1)=""
^DD("IX",289,11.1,"B",2,2)=""
^DD("IX",289,11.1,"BB",1,1)=""
^DD("IX",289,11.1,"BB",2,2)=""
^DD("IX",290,0)="344.3^APOST^Xref on pure numeric value of amt posted ^MU^^F^IR^I^344.3^^^^^S"
^DD("IX",290,1)="S ^RCY(344.3,""APOST"",+X,DA)="""""
^DD("IX",290,2)="K ^RCY(344.3,""APOST"",+X,DA)"
^DD("IX",290,2.5)="K ^RCY(344.3,""APOST"")"
^DD("IX",290,11.1,0)="^.114IA^1^1"
^DD("IX",290,11.1,1,0)="1^F^344.3^.12^^^F"
^DD("IX",290,11.1,1,3)=""
^DD("IX",290,11.1,"B",1,1)=""
^DD("IX",290,11.1,"BB",1,1)=""
^DD("IX",291,0)="344.4^ARCT^Cross reference by AR receipt #^R^^F^IR^I^344.4^^^^^S"
^DD("IX",291,1)="S ^RCY(344.4,""ARCT"",X,DA)="""""
^DD("IX",291,2)="K ^RCY(344.4,""ARCT"",X,DA)"
^DD("IX",291,2.5)="K ^RCY(344.4,""ARCT"")"
^DD("IX",291,11.1,0)="^.114IA^1^1"
^DD("IX",291,11.1,1,0)="1^F^344.4^.08^^1^F"
^DD("IX",291,11.1,"AC",1,1)=""
^DD("IX",291,11.1,"B",1,1)=""
^DD("IX",291,11.1,"BB",1,1)=""
^DD("IX",292,0)="344.4^ATRID^Xref by bank trace # and ins co id #^R^^R^IR^I^344.4^^^^^S"
^DD("IX",292,1)="S ^RCY(344.4,""ATRID"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",292,2)="K ^RCY(344.4,""ATRID"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",292,2.5)="K ^RCY(344.4,""ATRID"")"
^DD("IX",292,11.1,0)="^.114IA^2^2"
^DD("IX",292,11.1,1,0)="1^F^344.4^.02^30^1^F"
^DD("IX",292,11.1,1,3)=""
^DD("IX",292,11.1,2,0)="2^F^344.4^.03^30^2^F"
^DD("IX",292,11.1,2,3)=""
^DD("IX",292,11.1,"AC",1,1)=""
^DD("IX",292,11.1,"AC",2,2)=""
^DD("IX",292,11.1,"B",1,1)=""
^DD("IX",292,11.1,"B",2,2)=""
^DD("IX",292,11.1,"BB",1,1)=""
^DD("IX",292,11.1,"BB",2,2)=""
^DD("IX",293,0)="344.41^AVAL^Xref to find EOBs for bills not valid in VistA^MU^^R^IR^I^344.41^^^^^S"
^DD("IX",293,.1,0)="^^4^4^3020626^"
^DD("IX",293,.1,1,0)="This cross reference is set when the free text bill number is entered for"
^DD("IX",293,.1,2,0)="the EOB detail and when the EOB detail pointer is deleted.  This cross"
^DD("IX",293,.1,3,0)="reference makes it possible to find those bills that do not belong to"
^DD("IX",293,.1,4,0)="the site, but were included in the ERA received from an insurance co."
^DD("IX",293,1)="S ^RCY(344.4,DA(1),1,""AVAL"",DA)="""""
^DD("IX",293,1.4)="S X=$S(X2(1)="""":1,1:0)"
^DD("IX",293,2)="K ^RCY(344.4,DA(1),1,""AVAL"",DA)"
^DD("IX",293,2.4)="S X=$S(X2(1)'="""":1,1:0)"
^DD("IX",293,2.5)="K ^RCY(344.4,DA(1),1,""AVAL"")"
^DD("IX",293,11.1,0)="^.114IA^2^2"
^DD("IX",293,11.1,1,0)="1^F^344.41^.02^^^F"
^DD("IX",293,11.1,2,0)="2^F^344.41^.05^^^F"
^DD("IX",293,11.1,"B",1,1)=""
^DD("IX",293,11.1,"B",2,2)=""
^DD("IX",293,11.1,"BB",1,1)=""
^DD("IX",293,11.1,"BB",2,2)=""
^DD("IX",294,0)="344.5^AEXC^Cross reference by records with exception condition^R^^F^IR^I^344.5^^^^^S"
^DD("IX",294,1)="S ^RCY(344.5,""AEXC"",X,DA)="""""
^DD("IX",294,1.4)="I X=1"
^DD("IX",294,2)="K ^RCY(344.5,""AEXC"",X,DA)"
^DD("IX",294,2.5)="K ^RCY(344.5,""AEXC"")"
^DD("IX",294,11.1,0)="^.114IA^1^1"
^DD("IX",294,11.1,1,0)="1^F^344.5^.08^^1^F"
^DD("IX",294,11.1,1,3)=""
^DD("IX",294,11.1,"AC",1,1)=""
^DD("IX",294,11.1,"B",1,1)=""
^DD("IX",294,11.1,"BB",1,1)=""
^DD("IX",295,0)="344.5^ATIN^Xref by file date and transferred from for message type = '835XFR'^R^^R^IR^I^344.5^^^^^S"
^DD("IX",295,1)="S ^RCY(344.5,""ATIN"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",295,1.4)="I $P($G(^RCY(344.5,DA,0)),U)[""XFR"""
^DD("IX",295,2)="K ^RCY(344.5,""ATIN"",X(1),$E(X(2),1,30),DA)"
^DD("IX",295,2.4)="I $P($G(^RCY(344.5,DA,0)),U)[""XFR"""
^DD("IX",295,2.5)="K ^RCY(344.5,""ATIN"")"
^DD("IX",295,11.1,0)="^.114IA^2^2"
^DD("IX",295,11.1,1,0)="1^F^344.5^.03^^1^F"
^DD("IX",295,11.1,2,0)="2^F^344.5^.12^30^2^F"
^DD("IX",295,11.1,"AC",1,1)=""
^DD("IX",295,11.1,"AC",2,2)=""
^DD("IX",295,11.1,"B",1,1)=""
^DD("IX",295,11.1,"B",2,2)=""
^DD("IX",295,11.1,"BB",1,1)=""
^DD("IX",295,11.1,"BB",2,2)=""
^DD("IX",296,0)="344.54^AV^Cross reference on valid bills in the ERA^R^^F^IR^I^344.54^^^^^S"
^DD("IX",296,1)="S ^RCY(344.5,DA(1),""B"",""AV"",X,DA)="""""
^DD("IX",296,1.4)="I X=1"
^DD("IX",296,2)="K ^RCY(344.5,DA(1),""B"",""AV"",X,DA)"
^DD("IX",296,2.5)="K ^RCY(344.5,DA(1),""B"",""AV"")"
^DD("IX",296,11.1,0)="^.114IA^1^1"
^DD("IX",296,11.1,1,0)="1^F^344.54^.02^^1^F"
^DD("IX",296,11.1,1,3)=""
^DD("IX",296,11.1,"AC",1,1)=""
^DD("IX",296,11.1,"B",1,1)=""
^DD("IX",296,11.1,"BB",1,1)=""
^DD("IX",297,0)="361.1^ATRID^Xref by bank trace # and ins co id for uniqueness^R^^R^IR^I^361.1^^^^^S"
^DD("IX",297,1)="S ^IBM(361.1,""ATRID"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",297,1.4)="I 'X(3)"
^DD("IX",297,2)="K ^IBM(361.1,""ATRID"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",297,2.5)="K ^IBM(361.1,""ATRID"")"
^DD("IX",297,11.1,0)="^.114IA^3^3"
^DD("IX",297,11.1,1,0)="1^F^361.1^.07^30^1^F"
^DD("IX",297,11.1,1,3)=""
^DD("IX",297,11.1,2,0)="2^F^361.1^.03^30^2^F"
^DD("IX",297,11.1,2,3)=""
^DD("IX",297,11.1,3,0)="3^F^361.1^.04^^^F"
^DD("IX",297,11.1,3,3)=""
^DD("IX",297,11.1,"AC",1,1)=""
^DD("IX",297,11.1,"AC",2,2)=""
^DD("IX",297,11.1,"B",1,1)=""
^DD("IX",297,11.1,"B",2,2)=""
^DD("IX",297,11.1,"B",3,3)=""
^DD("IX",297,11.1,"BB",1,1)=""
^DD("IX",297,11.1,"BB",2,2)=""
^DD("IX",297,11.1,"BB",3,3)=""
^DD("IX",298,0)="115^ASPO^Creates an ""ASPO"" index for NFS outpatient standing order.^MU^^R^IR^W^115.1626^^^^^A"
^DD("IX",298,.1,0)="^^2^2^3060927^"
^DD("IX",298,.1,1,0)="This creates an ""ASPO"" index for NFS outpatient active standing orders "
^DD("IX",298,.1,2,0)="(SO). It is killed when the order is cancelled."
^DD("IX",298,1)="I X2(1),X2(2)="""" S ^FHPT(""ASPO"",DA(2),DA(1),DA)="""""
^DD("IX",298,1.4)=""
^DD("IX",298,2)="I X2(2) K ^FHPT(""ASPO"",DA(2),DA(1),DA)"
^DD("IX",298,2.5)="K ^FHPT(""ASPO"")"
^DD("IX",298,11.1,0)="^.114IA^2^2"
^DD("IX",298,11.1,1,0)="1^F^115.1626^1^^^F"
^DD("IX",298,11.1,2,0)="2^F^115.1626^5^^^F"
^DD("IX",298,11.1,"B",1,1)=""
^DD("IX",298,11.1,"B",2,2)=""
^DD("IX",298,11.1,"BB",1,1)=""
^DD("IX",298,11.1,"BB",2,2)=""
^DD("IX",299,0)="162^AFC^Whole file cross-reference on FPPS CLAIM ID.^R^^F^IR^W^162.03^^^^^S"
^DD("IX",299,.1,0)="^^1^1^3030618^"
^DD("IX",299,.1,1,0)="Regular, whole-file cross-reference on the FPPS CLAIM ID field."
^DD("IX",299,1)="S ^FBAAC(""AFC"",$E(X,1,32),DA(3),DA(2),DA(1),DA)="""""
^DD("IX",299,2)="K ^FBAAC(""AFC"",$E(X,1,32),DA(3),DA(2),DA(1),DA)"
^DD("IX",299,2.5)="K ^FBAAC(""AFC"")"
^DD("IX",299,11.1,0)="^.114IA^1^1"
^DD("IX",299,11.1,1,0)="1^F^162.03^50^32^1^F"
^DD("IX",299,11.1,1,3)=""
^DD("IX",299,11.1,"AC",1,1)=""
^DD("IX",299,11.1,"B",1,1)=""
^DD("IX",299,11.1,"BB",1,1)=""
^DD("IX",300,0)="162.1^AFC^Whole file cross-reference on FPPS CLAIM ID.^R^^F^IR^I^162.1^^^^^S"
^DD("IX",300,.1,0)="^^1^1^3030618^"
^DD("IX",300,.1,1,0)="Regular cross-reference on the FPPS CLAIM ID."
^DD("IX",300,1)="S ^FBAA(162.1,""AFC"",$E(X,1,32),DA)="""""
^DD("IX",300,2)="K ^FBAA(162.1,""AFC"",$E(X,1,32),DA)"
^DD("IX",300,2.5)="K ^FBAA(162.1,""AFC"")"
^DD("IX",300,11.1,0)="^.114IA^1^1"
^DD("IX",300,11.1,1,0)="1^F^162.1^13^32^1^F"
^DD("IX",300,11.1,1,3)=""
^DD("IX",300,11.1,"AC",1,1)=""
^DD("IX",300,11.1,"B",1,1)=""
^DD("IX",300,11.1,"BB",1,1)=""
^DD("IX",301,0)="162.5^AFC^Cross-reference on FPPS CLAIM ID.^R^^F^IR^I^162.5^^^^^S"
^DD("IX",301,.1,0)="^^1^1^3030618^"
^DD("IX",301,.1,1,0)="Regular cross-reference on the FPPS CLAIM ID."
^DD("IX",301,1)="S ^FBAAI(""AFC"",$E(X,1,32),DA)="""""
^DD("IX",301,2)="K ^FBAAI(""AFC"",$E(X,1,32),DA)"
^DD("IX",301,2.5)="K ^FBAAI(""AFC"")"
^DD("IX",301,11.1,0)="^.114IA^1^1"
^DD("IX",301,11.1,1,0)="1^F^162.5^56^32^1^F"
^DD("IX",301,11.1,1,3)=""
^DD("IX",301,11.1,"AC",1,1)=""
^DD("IX",301,11.1,"B",1,1)=""
^DD("IX",301,11.1,"BB",1,1)=""
^DD("IX",302,0)="162.7^AFC^Cross-reference on FPPS CLAIM ID.^R^^F^IR^I^162.7^^^^^S"
^DD("IX",302,.1,0)="^^2^2^3030618^"
^DD("IX",302,.1,1,0)="This is a regular cross-reference on the FPPS CLAIM ID (1-32 "
^DD("IX",302,.1,2,0)="characters long)."
^DD("IX",302,1)="S ^FB583(""AFC"",$E(X,1,32),DA)="""""
^DD("IX",302,2)="K ^FB583(""AFC"",$E(X,1,32),DA)"
^DD("IX",302,2.5)="K ^FB583(""AFC"")"
^DD("IX",302,11.1,0)="^.114IA^1^1"
^DD("IX",302,11.1,1,0)="1^F^162.7^32^32^1^F"
^DD("IX",302,11.1,"AC",1,1)=""
^DD("IX",302,11.1,"B",1,1)=""
^DD("IX",302,11.1,"BB",1,1)=""
^DD("IX",303,0)="2^ACVCOM^Update Combat Vet Eligibility End Date^MU^^R^^I^2^^^^^A"
^DD("IX",303,.1,0)="^^11^11^3030613^"
^DD("IX",303,.1,1,0)="This multi-level MUMPS x-ref will trigger an update to the Combat Vet "
^DD("IX",303,.1,2,0)="Eligibility End Date field under the following conditions:"
^DD("IX",303,.1,3,0)="  1) Service Separation Date [Last] is precise and > 2981111 AND EITHER"
^DD("IX",303,.1,4,0)="  2) Combat To Date is after 11/11/98 OR"
^DD("IX",303,.1,5,0)="     Persian Gulf To Date is after 11/11/98 OR"
^DD("IX",303,.1,6,0)="     Somalia To Date is after 11/11/98 OR"
^DD("IX",303,.1,7,0)="     Yugoslavia To Date is after 11/11/98"
^DD("IX",303,.1,8,0)=" "
^DD("IX",303,.1,9,0)="The Combat vet field will be set to the Service Separation Date + 2 "
^DD("IX",303,.1,10,0)="years, and will only be updated if information in these fields has "
^DD("IX",303,.1,11,0)="changed."
^DD("IX",303,1)="D SETCV^DGCV(DA,X2(1))"
^DD("IX",303,1.4)="I '$P($G(^DPT(DA,.52)),""^"",15) S X=$$CVELIG^DGCV(DA)"
^DD("IX",303,2)="Q"
^DD("IX",303,2.4)="Q"
^DD("IX",303,11.1,0)="^.114IA^9^9"
^DD("IX",303,11.1,1,0)="1^F^2^.327^^^F"
^DD("IX",303,11.1,2,0)="2^F^2^.5294^^^F"
^DD("IX",303,11.1,3,0)="3^F^2^.322021^^^F"
^DD("IX",303,11.1,4,0)="4^F^2^.322018^^^F"
^DD("IX",303,11.1,5,0)="5^F^2^.322012^^^F"
^DD("IX",303,11.1,6,0)="6^F^2^.5291^^^F"
^DD("IX",303,11.1,7,0)="7^F^2^.322019^^^F"
^DD("IX",303,11.1,8,0)="8^F^2^.322016^^^F"
^DD("IX",303,11.1,9,0)="9^F^2^.32201^^^F"
^DD("IX",303,11.1,"B",1,1)=""
^DD("IX",303,11.1,"B",2,2)=""
^DD("IX",303,11.1,"B",3,3)=""
^DD("IX",303,11.1,"B",4,4)=""
^DD("IX",303,11.1,"B",5,5)=""
^DD("IX",303,11.1,"B",6,6)=""
^DD("IX",303,11.1,"B",7,7)=""
^DD("IX",303,11.1,"B",8,8)=""
^DD("IX",303,11.1,"B",9,9)=""
^DD("IX",303,11.1,"BB",1,1)=""
^DD("IX",303,11.1,"BB",2,2)=""
^DD("IX",303,11.1,"BB",3,3)=""
^DD("IX",303,11.1,"BB",4,4)=""
^DD("IX",303,11.1,"BB",5,5)=""
^DD("IX",303,11.1,"BB",6,6)=""
^DD("IX",303,11.1,"BB",7,7)=""
^DD("IX",303,11.1,"BB",8,8)=""
^DD("IX",303,11.1,"BB",9,9)=""
^DD("IX",304,0)="509850.9^DFN^Used for lookup and sorting by DFN^R^^R^IR^I^509850.9^^^^^LS"
^DD("IX",304,.1,0)="^^2^2^3030730^"
^DD("IX",304,.1,1,0)="This is used by the Audiometric Display to lookup audiograms"
^DD("IX",304,.1,2,0)="for a specific patient."
^DD("IX",304,1)="S ^ACK(509850.9,""DFN"",$E(X(1),1,10),$E(X(2),1,16),DA)="""""
^DD("IX",304,2)="K ^ACK(509850.9,""DFN"",$E(X(1),1,10),$E(X(2),1,16),DA)"
^DD("IX",304,2.5)="K ^ACK(509850.9,""DFN"")"
^DD("IX",304,11.1,0)="^.114IA^2^2"
^DD("IX",304,11.1,1,0)="1^F^509850.9^.02^10^1^F"
^DD("IX",304,11.1,2,0)="2^F^509850.9^.01^16^2^F"
^DD("IX",304,11.1,"AC",1,1)=""
^DD("IX",304,11.1,"AC",2,2)=""
^DD("IX",304,11.1,"B",1,1)=""
^DD("IX",304,11.1,"B",2,2)=""
^DD("IX",304,11.1,"BB",1,1)=""
^DD("IX",304,11.1,"BB",2,2)=""
^DD("IX",305,0)="509850.9^NAME^NAME AND SSN^R^^R^IR^I^509850.9^^^^^LS"
^DD("IX",305,.1,0)="^^2^2^3030730^"
^DD("IX",305,.1,1,0)="This is used only at the DDC for audiogram lookup of a patient"
^DD("IX",305,.1,2,0)="who may not be in their patient file (no orders placed for patient)."
^DD("IX",305,1)="S ^ACK(509850.9,""NAME"",$E(X(1),1,30),$E(X(2),1,11),DA)="""""
^DD("IX",305,2)="K ^ACK(509850.9,""NAME"",$E(X(1),1,30),$E(X(2),1,11),DA)"
^DD("IX",305,2.5)="K ^ACK(509850.9,""NAME"")"
^DD("IX",305,11.1,0)="^.114IA^2^2"
^DD("IX",305,11.1,1,0)="1^F^509850.9^791000.02^30^1^F"
^DD("IX",305,11.1,2,0)="2^F^509850.9^791000.01^11^2^F"
^DD("IX",305,11.1,"AC",1,1)=""
^DD("IX",305,11.1,"AC",2,2)=""
^DD("IX",305,11.1,"B",1,1)=""
^DD("IX",305,11.1,"B",2,2)=""
^DD("IX",305,11.1,"BB",1,1)=""
^DD("IX",305,11.1,"BB",2,2)=""
^DD("IX",307,0)="361.1^AMRA^Index by EOB type and Review Status^R^^R^IR^I^361.1^^^^^S"
^DD("IX",307,1)="S ^IBM(361.1,""AMRA"",X(1),X(2),DA)="""""
^DD("IX",307,2)="K ^IBM(361.1,""AMRA"",X(1),X(2),DA)"
^DD("IX",307,2.5)="K ^IBM(361.1,""AMRA"")"
^DD("IX",307,11.1,0)="^.114IA^2^2"
^DD("IX",307,11.1,1,0)="1^F^361.1^.04^^1^F"
^DD("IX",307,11.1,2,0)="2^F^361.1^.16^^2^F"
^DD("IX",307,11.1,"AC",1,1)=""
^DD("IX",307,11.1,"AC",2,2)=""
^DD("IX",307,11.1,"B",1,1)=""
^DD("IX",307,11.1,"B",2,2)=""
^DD("IX",307,11.1,"BB",1,1)=""
^DD("IX",307,11.1,"BB",2,2)=""
^DD("IX",308,0)="8925^VS^REGULAR XREF ON FIELD 1207^R^^F^IR^I^8925^^^^^LS"
^DD("IX",308,.1,0)="^^2^2^3041111"
^DD("IX",308,.1,1,0)="THIS XREF CONTAINS AS A SUBSCRIPT"
^DD("IX",308,.1,2,0)="THE VALUE OF FIELD 1207 OF FILE #8925"
^DD("IX",308,1)="S ^TIU(8925,""VS"",X,DA)="""""
^DD("IX",308,2)="K ^TIU(8925,""VS"",X,DA)"
^DD("IX",308,2.5)="K ^TIU(8925,""VS"")"
^DD("IX",308,11.1,0)="^.114IA^1^1"
^DD("IX",308,11.1,1,0)="1^F^8925^1207^^1^F"
^DD("IX",308,11.1,"AC",1,1)=""
^DD("IX",308,11.1,"B",1,1)=""
^DD("IX",308,11.1,"BB",1,1)=""
^DD("IX",325,0)="550.215^C^550.215 'C' PATNAME,DFN,RX,FILL^R^^R^IR^I^550.215^^^^^LS"
^DD("IX",325,1)="S ^PSX(550.2,DA(1),15,""C"",X(2),X(3),X(4),X(5),DA)="""""
^DD("IX",325,2)="K ^PSX(550.2,DA(1),15,""C"",X(2),X(3),X(4),X(5),DA)"
^DD("IX",325,2.5)="K ^PSX(550.2,DA(1),15,""C"")"
^DD("IX",325,11.1,0)="^.114IA^5^5"
^DD("IX",325,11.1,1,0)="1^F^550.215^.03^^^F"
^DD("IX",325,11.1,2,0)="2^C^^^^1"
^DD("IX",325,11.1,2,1.5)="I $G(X(1)) S X=$$GET1^DIQ(2,X(1),.01)"
^DD("IX",325,11.1,3,0)="3^F^550.215^.03^^2^F"
^DD("IX",325,11.1,4,0)="4^F^550.215^.01^^3^F"
^DD("IX",325,11.1,5,0)="5^F^550.215^.02^^4^F"
^DD("IX",325,11.1,"AC",1,2)=""
^DD("IX",325,11.1,"AC",2,3)=""
^DD("IX",325,11.1,"AC",3,4)=""
^DD("IX",325,11.1,"AC",4,5)=""
^DD("IX",325,11.1,"B",1,1)=""
^DD("IX",325,11.1,"B",2,2)=""
^DD("IX",325,11.1,"B",3,3)=""
^DD("IX",325,11.1,"B",4,4)=""
^DD("IX",325,11.1,"B",5,5)=""
^DD("IX",325,11.1,"BB",1,1)=""
^DD("IX",325,11.1,"BB",2,2)=""
^DD("IX",325,11.1,"BB",3,3)=""
^DD("IX",325,11.1,"BB",4,4)=""
^DD("IX",325,11.1,"BB",5,5)=""
^DD("IX",332,0)="18.04^C^Used to find BOX-VOL / PORT for stopping listener^R^^R^IR^I^18.04^^^^^LS"
^DD("IX",332,1)="S ^XOB(18.04,""C"",X(1),X(2),DA)="""""
^DD("IX",332,2)="K ^XOB(18.04,""C"",X(1),X(2),DA)"
^DD("IX",332,2.5)="K ^XOB(18.04,""C"")"
^DD("IX",332,11.1,0)="^.114IA^2^2"
^DD("IX",332,11.1,1,0)="1^F^18.04^.01^^1^F"
^DD("IX",332,11.1,1,3)=""
^DD("IX",332,11.1,2,0)="2^F^18.04^.02^^2^F"
^DD("IX",332,11.1,2,3)=""
^DD("IX",332,11.1,"AC",1,1)=""
^DD("IX",332,11.1,"AC",2,2)=""
^DD("IX",332,11.1,"B",1,1)=""
^DD("IX",332,11.1,"B",2,2)=""
^DD("IX",332,11.1,"BB",1,1)=""
^DD("IX",332,11.1,"BB",2,2)=""
^DD("IX",333,0)="18.05^MSGTYPE^Message type cross reference^R^^F^IR^I^18.05^^^^^LS"
^DD("IX",333,1)="S ^XOB(18.05,""MSGTYPE"",$E(X,1,80),DA)="""""
^DD("IX",333,2)="K ^XOB(18.05,""MSGTYPE"",$E(X,1,80),DA)"
^DD("IX",333,2.5)="K ^XOB(18.05,""MSGTYPE"")"
^DD("IX",333,11.1,0)="^.114IA^1^1"
^DD("IX",333,11.1,1,0)="1^F^18.05^.02^80^1^F"
^DD("IX",333,11.1,1,3)=""
^DD("IX",333,11.1,"AC",1,1)=""
^DD("IX",333,11.1,"B",1,1)=""
^DD("IX",333,11.1,"BB",1,1)=""
^DD("IX",334,0)="18.05^NAME^Name cross reference^R^^F^IR^I^18.05^^^^^LS"
^DD("IX",334,1)="S ^XOB(18.05,""NAME"",$E(X,1,30),DA)="""""
^DD("IX",334,2)="K ^XOB(18.05,""NAME"",$E(X,1,30),DA)"
^DD("IX",334,2.5)="K ^XOB(18.05,""NAME"")"
^DD("IX",334,11.1,0)="^.114IA^1^1"
^DD("IX",334,11.1,1,0)="1^F^18.05^.01^30^1^F"
^DD("IX",334,11.1,1,3)=""
^DD("IX",334,11.1,"AC",1,1)=""
^DD("IX",334,11.1,"B",1,1)=""
^DD("IX",334,11.1,"BB",1,1)=""
^DD("IX",339,0)="4^XUMFID^Enables lookup by coding system concatenated with ID.^R^^R^IR^W^4.9999^^^^^LS"
^DD("IX",339,1)="S ^DIC(4,""XUMFID"",X(3),DA(1),DA)="""""
^DD("IX",339,2)="K ^DIC(4,""XUMFID"",X(3),DA(1),DA)"
^DD("IX",339,2.5)="K ^DIC(4,""XUMFID"")"
^DD("IX",339,11.1,0)="^.114IA^3^3"
^DD("IX",339,11.1,1,0)="1^F^4.9999^.01^30^^F"
^DD("IX",339,11.1,2,0)="2^F^4.9999^.02^30^^F"
^DD("IX",339,11.1,3,0)="3^C^^^^1^^CODING SYSTEM/ID PAIR"
^DD("IX",339,11.1,3,1.5)="S X=X(1)_X(2)"
^DD("IX",339,11.1,"AC",1,3)=""
^DD("IX",339,11.1,"B",1,1)=""
^DD("IX",339,11.1,"B",2,2)=""
^DD("IX",339,11.1,"B",3,3)=""
^DD("IX",339,11.1,"BB",1,1)=""
^DD("IX",339,11.1,"BB",2,2)=""
^DD("IX",339,11.1,"BB",3,3)=""
^DD("IX",340,0)="4^XUMFIDX^Regular index coding system / ID.^R^^R^IR^W^4.9999^^^^^LS"
^DD("IX",340,1)="S ^DIC(4,""XUMFIDX"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)="""""
^DD("IX",340,2)="K ^DIC(4,""XUMFIDX"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)"
^DD("IX",340,2.5)="K ^DIC(4,""XUMFIDX"")"
^DD("IX",340,11.1,0)="^.114IA^2^2"
^DD("IX",340,11.1,1,0)="1^F^4.9999^.01^30^1^F"
^DD("IX",340,11.1,1,3)=""
^DD("IX",340,11.1,2,0)="2^F^4.9999^.02^30^2^F"
^DD("IX",340,11.1,2,3)=""
^DD("IX",340,11.1,"AC",1,1)=""
^DD("IX",340,11.1,"AC",2,2)=""
^DD("IX",340,11.1,"B",1,1)=""
^DD("IX",340,11.1,"B",2,2)=""
^DD("IX",340,11.1,"BB",1,1)=""
^DD("IX",340,11.1,"BB",2,2)=""
^DD("IX",341,0)="4^XUMFKEY^SALDFJASLDFJ^R^^R^IR^W^4.9999^^^^^LS"
^DD("IX",341,1)="S ^DIC(4,""XUMFKEY"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)="""""
^DD("IX",341,2)="K ^DIC(4,""XUMFKEY"",$E(X(1),1,30),$E(X(2),1,30),DA(1),DA)"
^DD("IX",341,2.5)="K ^DIC(4,""XUMFKEY"")"
^DD("IX",341,11.1,0)="^.114IA^2^2"
^DD("IX",341,11.1,1,0)="1^F^4.9999^.01^30^1^F^"
^DD("IX",341,11.1,2,0)="2^F^4.9999^.02^30^2^F"
^DD("IX",341,11.1,"AC",1,1)=""
^DD("IX",341,11.1,"AC",2,2)=""
^DD("IX",341,11.1,"B",1,1)=""
^DD("IX",341,11.1,"B",2,2)=""
^DD("IX",341,11.1,"BB",1,1)=""
^DD("IX",341,11.1,"BB",2,2)=""
^DD("IX",342,0)="8935.91^AMROOT^Cross-reference of root categories^MU^^R^IR^I^8935.91^^^^^S"
^DD("IX",342,1)="S ^XHD(8935.91,""AMROOT"",$E(X(1),1,60),DA)="""""
^DD("IX",342,1.4)="S:+X(2) X=1"
^DD("IX",342,2)="K ^XHD(8935.91,""AMROOT"",$E(X(1),1,60),DA)"
^DD("IX",342,2.5)="K ^XHD(8935.91,""AMROOT"")"
^DD("IX",342,11.1,0)="^.114IA^2^2"
^DD("IX",342,11.1,1,0)="1^F^8935.91^.02^60^1^F"
^DD("IX",342,11.1,1,3)=""
^DD("IX",342,11.1,2,0)="2^F^8935.91^.05^^2^F"
^DD("IX",342,11.1,2,3)=""
^DD("IX",342,11.1,"AC",1,1)=""
^DD("IX",342,11.1,"AC",2,2)=""
^DD("IX",342,11.1,"B",1,1)=""
^DD("IX",342,11.1,"B",2,2)=""
^DD("IX",342,11.1,"BB",1,1)=""
^DD("IX",342,11.1,"BB",2,2)=""
^DD("IX",343,0)="102.3^DUE^Retrieve tasks that have not been completed^R^^R^IR^I^102.3^^^^^LS"
^DD("IX",343,1)="S ^ORRT(102.3,""DUE"",X(1),DA)="""""
^DD("IX",343,1.4)="S X=$S(X(2):0,X(3):0,1:1)"
^DD("IX",343,2)="K ^ORRT(102.3,""DUE"",X(1),DA)"
^DD("IX",343,2.4)="S X=$S(X(2):0,X(3):0,1:1)"
^DD("IX",343,2.5)="K ^ORRT(102.3,""DUE"")"
^DD("IX",343,11.1,0)="^.114IA^3^3"
^DD("IX",343,11.1,1,0)="1^F^102.3^3^^1^F"
^DD("IX",343,11.1,1,3)=""
^DD("IX",343,11.1,2,0)="2^F^102.3^6^^^F"
^DD("IX",343,11.1,2,3)=""
^DD("IX",343,11.1,3,0)="3^F^102.3^8^^^F"
^DD("IX",343,11.1,3,3)=""
^DD("IX",343,11.1,"AC",1,1)=""
^DD("IX",343,11.1,"B",1,1)=""
^DD("IX",343,11.1,"B",2,2)=""
^DD("IX",343,11.1,"B",3,3)=""
^DD("IX",343,11.1,"BB",1,1)=""
^DD("IX",343,11.1,"BB",2,2)=""
^DD("IX",343,11.1,"BB",3,3)=""
^DD("IX",344,0)="102.4^ACK^Retrieve orders whose results have not been acknowledged^R^^R^IR^I^102.4^^^^^S"
^DD("IX",344,1)="S ^ORA(102.4,""ACK"",X(1),X(2),DA)="""""
^DD("IX",344,1.4)="S X=$S(X(3):0,1:1)"
^DD("IX",344,2)="K ^ORA(102.4,""ACK"",X(1),X(2),DA)"
^DD("IX",344,2.4)="S X=$S(X(3):0,1:1)"
^DD("IX",344,2.5)="K ^ORA(102.4,""ACK"")"
^DD("IX",344,11.1,0)="^.114IA^3^3"
^DD("IX",344,11.1,1,0)="1^F^102.4^2^^1^F"
^DD("IX",344,11.1,1,3)=""
^DD("IX",344,11.1,2,0)="2^F^102.4^.01^^2^F"
^DD("IX",344,11.1,2,3)=""
^DD("IX",344,11.1,3,0)="3^F^102.4^3^^^F"
^DD("IX",344,11.1,3,3)=""
^DD("IX",344,11.1,"AC",1,1)=""
^DD("IX",344,11.1,"AC",2,2)=""
^DD("IX",344,11.1,"B",1,1)=""
^DD("IX",344,11.1,"B",2,2)=""
^DD("IX",344,11.1,"B",3,3)=""
^DD("IX",344,11.1,"BB",1,1)=""
^DD("IX",344,11.1,"BB",2,2)=""
^DD("IX",344,11.1,"BB",3,3)=""
^DD("IX",345,0)="772^AJ^Removes the record from the AI x-ref if the Fast Purge Date/Time is edited^MU^^F^^I^772^^^^^A"
^DD("IX",345,1)="Q"
^DD("IX",345,2)="K:$G(X1(1)) ^HLMA(""AI"",X1(1),772,+$G(DA))"
^DD("IX",345,11.1,0)="^.114IA^1^1"
^DD("IX",345,11.1,1,0)="1^F^772^2.02^^1^F"
^DD("IX",345,11.1,"AC",1,1)=""
^DD("IX",345,11.1,"B",1,1)=""
^DD("IX",345,11.1,"BB",1,1)=""
^DD("IX",346,0)="773^AI^Used by the Fast Purge process.^MU^^F^^I^773^^^^^A"
^DD("IX",346,.1,0)="^^9^9^3030804^"
^DD("IX",346,.1,1,0)="This cross-reference is used by the fast purge option to purge records in "
^DD("IX",346,.1,2,0)="both file 773 and file 772.  The format is:"
^DD("IX",346,.1,3,0)=" "
^DD("IX",346,.1,4,0)="""AI"",<date/time that the record may be purged>,772,<list of record "
^DD("IX",346,.1,5,0)="numbers in file 772 that may be purged as of this date and time>)="""""
^DD("IX",346,.1,6,0)=" "
^DD("IX",346,.1,7,0)=" "
^DD("IX",346,.1,8,0)="""AI"",<date/time that the record may be purged>,773,<list of record "
^DD("IX",346,.1,9,0)="numbers in file 773 that may be purged as of this date and time>)="""""
^DD("IX",346,1)="D PXREF^HLUOPTF1($G(DA),$G(X2(1)))"
^DD("IX",346,2)="Q"
^DD("IX",346,11.1,0)="^.114IA^1^1"
^DD("IX",346,11.1,1,0)="1^F^773^20^^1^F"
^DD("IX",346,11.1,1,3)=""
^DD("IX",346,11.1,"AC",1,1)=""
^DD("IX",346,11.1,"B",1,1)=""
^DD("IX",346,11.1,"BB",1,1)=""
^DD("IX",347,0)="773^AJ^Removes record from the ""AI"" x-ref if Fast Purge Date/Time is edited.^MU^^F^^I^773^^^^^A"
^DD("IX",347,1)="Q"
^DD("IX",347,2)="K:$G(X1(1)) ^HLMA(""AI"",X1(1),773,+$G(DA))"
^DD("IX",347,11.1,0)="^.114IA^1^1"
^DD("IX",347,11.1,1,0)="1^F^773^2.02^^1^F"
^DD("IX",347,11.1,"AC",1,1)=""
^DD("IX",347,11.1,"B",1,1)=""
^DD("IX",347,11.1,"BB",1,1)=""
^DD("IX",348,0)="776.3^AC^Stuffs the package name into field .08^MU^^F^^I^776.3^^^^^A"
^DD("IX",348,.1,0)="^^2^2^3031027^"
^DD("IX",348,.1,1,0)="This index stuffs the name of the package into the Package Name field, based"
^DD("IX",348,.1,2,0)="on the pointer value of the Package field."
^DD("IX",348,1)="D SETPKG^HLEMDD($G(DA),$G(X2(1)),$G(X1(2)))"
^DD("IX",348,2)="Q"
^DD("IX",348,11.1,0)="^.114IA^2^2"
^DD("IX",348,11.1,1,0)="1^F^776.3^.02^^1^F"
^DD("IX",348,11.1,2,0)="2^F^776.3^.08^^2^F"
^DD("IX",348,11.1,"AC",1,1)=""
^DD("IX",348,11.1,"AC",2,2)=""
^DD("IX",348,11.1,"B",1,1)=""
^DD("IX",348,11.1,"B",2,2)=""
^DD("IX",348,11.1,"BB",1,1)=""
^DD("IX",348,11.1,"BB",2,2)=""
^DD("IX",349,0)="776.3^C^Uniqueness Index for Key 'A' of File #776.3^R^^R^IR^I^776.3^^^^^LS"
^DD("IX",349,1)="S ^HLEV(776.3,""C"",X(1),X(2),DA)="""""
^DD("IX",349,2)="K ^HLEV(776.3,""C"",X(1),X(2),DA)"
^DD("IX",349,2.5)="K ^HLEV(776.3,""C"")"
^DD("IX",349,11.1,0)="^.114IA^2^2"
^DD("IX",349,11.1,1,0)="1^F^776.3^.01^^1"
^DD("IX",349,11.1,2,0)="2^F^776.3^.08^^2"
^DD("IX",349,11.1,"AC",1,1)=""
^DD("IX",349,11.1,"AC",2,2)=""
^DD("IX",349,11.1,"B",1,1)=""
^DD("IX",349,11.1,"B",2,2)=""
^DD("IX",349,11.1,"BB",1,1)=""
^DD("IX",349,11.1,"BB",2,2)=""
^DD("IX",350,0)="776.4^AC^This trigger sets the ID field.^MU^^F^^I^776.4^^^^^A"
^DD("IX",350,1)="D SETID^HLEMDD(DA)"
^DD("IX",350,2)="Q"
^DD("IX",350,11.1,0)="^.114IA^1^1"
^DD("IX",350,11.1,1,0)="1^F^776.4^.01^^^F"
^DD("IX",350,11.1,1,3)=""
^DD("IX",350,11.1,"B",1,1)=""
^DD("IX",350,11.1,"BB",1,1)=""
^DD("IX",351,0)="776.4^AD^Updates REVIEW STATUS if contingent on ACTION STATUS^MU^^F^^I^776.4^^^^^A"
^DD("IX",351,1)="D STATUS^HLEMDD($G(DA),$G(X2))"
^DD("IX",351,2)="Q"
^DD("IX",351,11.1,0)="^.114IA^1^1"
^DD("IX",351,11.1,1,0)="1^F^776.4^.05^^^F"
^DD("IX",351,11.1,1,3)=""
^DD("IX",351,11.1,"B",1,1)=""
^DD("IX",351,11.1,"BB",1,1)=""
^DD("IX",352,0)="776.4^AE^Used for conglomerating events.^R^^R^^I^776.4^^^^^S"
^DD("IX",352,1)="S ^HLEV(776.4,""AE"",X(1),X(2),X(3),DA)="""""
^DD("IX",352,1.4)="I $G(X(2)) S X=$P(^HLEV(776.3,X(2),0),""^"",5)"
^DD("IX",352,2)="K ^HLEV(776.4,""AE"",X(1),X(2),X(3),DA)"
^DD("IX",352,2.5)="K ^HLEV(776.4,""AE"")"
^DD("IX",352,11.1,0)="^.114IA^3^3"
^DD("IX",352,11.1,1,0)="1^F^776.4^.03^^1^F"
^DD("IX",352,11.1,2,0)="2^F^776.4^.02^^2^F"
^DD("IX",352,11.1,3,0)="3^F^776.4^.01^^3^F"
^DD("IX",352,11.1,"AC",1,1)=""
^DD("IX",352,11.1,"AC",2,2)=""
^DD("IX",352,11.1,"AC",3,3)=""
^DD("IX",352,11.1,"B",1,1)=""
^DD("IX",352,11.1,"B",2,2)=""
^DD("IX",352,11.1,"B",3,3)=""
^DD("IX",352,11.1,"BB",1,1)=""
^DD("IX",352,11.1,"BB",2,2)=""
^DD("IX",352,11.1,"BB",3,3)=""
^DD("IX",353,0)="776.4^AF^Collects statistics on events^MU^^R^^I^776.4^^^^^A"
^DD("IX",353,.1,0)="^^15^15^3030716^"
^DD("IX",353,.1,1,0)="This x~ref mantains statistics on HL7 Monitor Events as they are created and"
^DD("IX",353,.1,2,0)="as their review status changes.  Currenly, statistics maintained are as"
^DD("IX",353,.1,3,0)="follows:"
^DD("IX",353,.1,4,0)=""
^DD("IX",353,.1,5,0)="Total #of events created,in different time periods by site, event type, and time period in the format:"
^DD("IX",353,.1,6,0)=""
^DD("IX",353,.1,7,0)="^HLEV(776.4,""AF"",<site>,<type>,""RECEIVED"",""YEAR"",<year>)=count"
^DD("IX",353,.1,8,0)="^HLEV(776.4,""AF"",<site>,<type>,""RECEIVED"",""YEAR"",<year>,""MONTH"",<month>)=count"
^DD("IX",353,.1,9,0)="^HLEV(776.4,""AF"",<site>,<type>,""RECEIVED"",""YEAR"",<year>,""MONTH"",<month>,""DAY"",<day))=count"
^DD("IX",353,.1,10,0)="^HLEV(776.4,""AF"",<site>,<type>,""RECEIVED"",""YEAR"",<year>,""MONTH"",<month>,""DAY"",<day"",""HOUR"",<hour>)=count"
^DD("IX",353,.1,11,0)=""
^DD("IX",353,.1,12,0)="Total # of events exisitng in various Review Status's by site, event type, and"
^DD("IX",353,.1,13,0)="review status in this format:"
^DD("IX",353,.1,14,0)=""
^DD("IX",353,.1,15,0)="^HLEV(776.4,""AF"",<site>,<type>,<review status>)=count"
^DD("IX",353,1)="D ADDSTAT^HLEMDD(X2(1),X1(3),X2(3),X2(2),X2(4),X2(5))"
^DD("IX",353,2)="D DELSTAT^HLEMDD(X1(3),X1(2),X1(4),X1(5))"
^DD("IX",353,2.5)="K ^HLEV(776.4,""AF"")"
^DD("IX",353,11.1,0)="^.114IA^5^5"
^DD("IX",353,11.1,1,0)="1^F^776.4^.01^^^F"
^DD("IX",353,11.1,2,0)="2^F^776.4^.02^^^F"
^DD("IX",353,11.1,3,0)="3^F^776.4^.03^^^F"
^DD("IX",353,11.1,4,0)="4^F^776.4^.06^^^F"
^DD("IX",353,11.1,5,0)="5^F^776.4^.11^^^F"
^DD("IX",353,11.1,"B",1,1)=""
^DD("IX",353,11.1,"B",2,2)=""
^DD("IX",353,11.1,"B",3,3)=""
^DD("IX",353,11.1,"B",4,4)=""
^DD("IX",353,11.1,"B",5,5)=""
^DD("IX",353,11.1,"BB",1,1)=""
^DD("IX",353,11.1,"BB",2,2)=""
^DD("IX",353,11.1,"BB",3,3)=""
^DD("IX",353,11.1,"BB",4,4)=""
^DD("IX",353,11.1,"BB",5,5)=""
^DD("IX",354,0)="776.4^AG^Triggers updates in the URGENT field.^MU^^R^^I^776.4^^^^^A"
^DD("IX",354,.1,0)="^^2^2^3030722^"
^DD("IX",354,.1,1,0)="Triggers changes in the URGENT field as changes in the review status and "
^DD("IX",354,.1,2,0)="action status occur."
^DD("IX",354,1)="D URGENCY^HLEMDD($G(DA),$G(X2(3)),$G(X2(1)),$G(X2(2)))"
^DD("IX",354,2)="Q"
^DD("IX",354,11.1,0)="^.114IA^3^3"
^DD("IX",354,11.1,1,0)="1^F^776.4^.05^^1^F"
^DD("IX",354,11.1,2,0)="2^F^776.4^.06^^2^F"
^DD("IX",354,11.1,3,0)="3^F^776.4^.12^^3^F"
^DD("IX",354,11.1,"AC",1,1)=""
^DD("IX",354,11.1,"AC",2,2)=""
^DD("IX",354,11.1,"AC",3,3)=""
^DD("IX",354,11.1,"B",1,1)=""
^DD("IX",354,11.1,"B",2,2)=""
^DD("IX",354,11.1,"B",3,3)=""
^DD("IX",354,11.1,"BB",1,1)=""
^DD("IX",354,11.1,"BB",2,2)=""
^DD("IX",354,11.1,"BB",3,3)=""
^DD("IX",355,0)="776.4^AH^Applications own index, option, for private use.^MU^^R^^I^776.4^^^^^A"
^DD("IX",355,.1,0)="^^5^5^3030729^"
^DD("IX",355,.1,1,0)="This cross~reference will be used by applications to determine whether"
^DD("IX",355,.1,2,0)="or not the event has already been logged.  It is optional.  The application"
^DD("IX",355,.1,3,0)="can pass in a list of parameters with which to build an index.  Latter, it"
^DD("IX",355,.1,4,0)="can search that index via an API to determine if the event has already been"
^DD("IX",355,.1,5,0)="logged."
^DD("IX",355,1)="Q"
^DD("IX",355,2)="D KILLAH^HLEMDD(.DA)"
^DD("IX",355,11.1,0)="^.114IA^^"
^DD("IX",356,0)="776.4^AI^If the review status changes to completed, sets the date and reviewer.^MU^^F^^I^776.4^^^^^A"
^DD("IX",356,1)="D CSTATUS^HLEMDD($G(DA),X2(1))"
^DD("IX",356,2)="Q"
^DD("IX",356,11.1,0)="^.114IA^1^1"
^DD("IX",356,11.1,1,0)="1^F^776.4^.06^^1^F"
^DD("IX",356,11.1,"AC",1,1)=""
^DD("IX",356,11.1,"B",1,1)=""
^DD("IX",356,11.1,"BB",1,1)=""
^DD("IX",357,0)="776.4^AJ^Sets the purge date and time^MU^^R^IR^I^776.4^^^^^A"
^DD("IX",357,.1,0)="^^4^4^3030821^^"
^DD("IX",357,.1,1,0)="This index triggers the computation of the earliest purge date for this"
^DD("IX",357,.1,2,0)="event record and sets it into the AJ index.  The format of the index is:"
^DD("IX",357,.1,3,0)=""
^DD("IX",357,.1,4,0)="^HLEV(776.4,""AJ"",<eariest date/time that the record may be purged>,<IEN>)="""""
^DD("IX",357,1)="D SETPURGE^HLEMDD($G(DA),$G(X2(1)),$G(X2(2)))"
^DD("IX",357,2)="D DELPURGE^HLEMDD($G(DA),$G(X1(1)),$G(X1(2)))"
^DD("IX",357,2.5)="K ^HLEV(776.4,""AJ"")"
^DD("IX",357,11.1,0)="^.114IA^2^2"
^DD("IX",357,11.1,1,0)="1^F^776.4^.01^^1^F"
^DD("IX",357,11.1,2,0)="2^F^776.4^.02^^2^F"
^DD("IX",357,11.1,"AC",1,1)=""
^DD("IX",357,11.1,"AC",2,2)=""
^DD("IX",357,11.1,"B",1,1)=""
^DD("IX",357,11.1,"B",2,2)=""
^DD("IX",357,11.1,"BB",1,1)=""
^DD("IX",357,11.1,"BB",2,2)=""
^DD("IX",358,0)="776.4^AK^Maintains a queue of events that should be sent to remote servers.^MU^^F^^I^776.4^^^^^A"
^DD("IX",358,.1,0)="^^8^8^3030924^"
^DD("IX",358,.1,1,0)="The format of the cross-reference is:"
^DD("IX",358,.1,2,0)=""
^DD("IX",358,.1,3,0)="^HLEV(776.4,""AK"",<CREATE DT/TM>,<ien>)="""""
^DD("IX",358,.1,4,0)=""
^DD("IX",358,.1,5,0)="Only events that need to be sent to remote servers are placed on this"
^DD("IX",358,.1,6,0)="cross-reference.  The cross-reference is created when $$EVENT^HLEM is"
^DD("IX",358,.1,7,0)="called by an application, created within that call.  It is deleted by the"
^DD("IX",358,.1,8,0)="background job that sends the event to the remote location."
^DD("IX",358,1)="Q"
^DD("IX",358,2)="Q"
^DD("IX",358,11.1,0)="^.114IA^1^1"
^DD("IX",358,11.1,1,0)="1^F^776.4^.17^^1^F"
^DD("IX",358,11.1,1,3)=""
^DD("IX",358,11.1,"AC",1,1)=""
^DD("IX",358,11.1,"B",1,1)=""
^DD("IX",358,11.1,"BB",1,1)=""
^DD("IX",359,0)="776.4^C^Uniqueness Index for Key 'A' of File #776.4^R^^F^IR^I^776.4^^^^^LS"
^DD("IX",359,1)="S ^HLEV(776.4,""C"",X,DA)="""""
^DD("IX",359,2)="K ^HLEV(776.4,""C"",X,DA)"
^DD("IX",359,2.5)="K ^HLEV(776.4,""C"")"
^DD("IX",359,11.1,0)="^.114IA^1^1"
^DD("IX",359,11.1,1,0)="1^F^776.4^.04^^1"
^DD("IX",359,11.1,"AC",1,1)=""
^DD("IX",359,11.1,"B",1,1)=""
^DD("IX",359,11.1,"BB",1,1)=""
^DD("IX",360,0)="776.4^D^Used for sorting events for reports and displays.^R^^R^IR^I^776.4^^^^^LS"
^DD("IX",360,.1,0)="^^3^3^3030723^^"
^DD("IX",360,.1,1,0)="This index will sort the HL7 Monitor Events as follows:"
^DD("IX",360,.1,2,0)=""
^DD("IX",360,.1,3,0)="""D"",<SITE>,<EVENT TYPE>,<DT/TM>,<REVIEW STATUS>,<event ien>)="""""
^DD("IX",360,1)="S ^HLEV(776.4,""D"",X(1),X(2),X(3),X(4),DA)="""""
^DD("IX",360,2)="K ^HLEV(776.4,""D"",X(1),X(2),X(3),X(4),DA)"
^DD("IX",360,2.5)="K ^HLEV(776.4,""D"")"
^DD("IX",360,11.1,0)="^.114IA^4^4"
^DD("IX",360,11.1,1,0)="1^F^776.4^.03^^1^F"
^DD("IX",360,11.1,1,3)=""
^DD("IX",360,11.1,2,0)="2^F^776.4^.02^^2^F"
^DD("IX",360,11.1,2,3)=""
^DD("IX",360,11.1,3,0)="3^F^776.4^.01^^3^F"
^DD("IX",360,11.1,3,3)=""
^DD("IX",360,11.1,4,0)="4^F^776.4^.06^^4^F"
^DD("IX",360,11.1,4,3)=""
^DD("IX",360,11.1,"AC",1,1)=""
^DD("IX",360,11.1,"AC",2,2)=""
^DD("IX",360,11.1,"AC",3,3)=""
^DD("IX",360,11.1,"AC",4,4)=""
^DD("IX",360,11.1,"B",1,1)=""
^DD("IX",360,11.1,"B",2,2)=""
^DD("IX",360,11.1,"B",3,3)=""
^DD("IX",360,11.1,"B",4,4)=""
^DD("IX",360,11.1,"BB",1,1)=""
^DD("IX",360,11.1,"BB",2,2)=""
^DD("IX",360,11.1,"BB",3,3)=""
^DD("IX",360,11.1,"BB",4,4)=""
^DD("IX",361,0)="776.5^AC^Used to insure that each use has only one profile flagged as default^MU^^R^IR^I^776.5^^^^^A"
^DD("IX",361,1)="D DEFAULT^HLEMDD($G(DA),$G(X2(1)),$G(X2(2)))"
^DD("IX",361,2)="K ^HLEV(776.5,""AC"",$G(X1(1)),+$G(DA))"
^DD("IX",361,2.5)="K ^HLEV(776.5,""AC"")"
^DD("IX",361,11.1,0)="^.114IA^2^2"
^DD("IX",361,11.1,1,0)="1^F^776.5^.01^^1^F"
^DD("IX",361,11.1,2,0)="2^F^776.5^.03^^2^F"
^DD("IX",361,11.1,"AC",1,1)=""
^DD("IX",361,11.1,"AC",2,2)=""
^DD("IX",361,11.1,"B",1,1)=""
^DD("IX",361,11.1,"B",2,2)=""
^DD("IX",361,11.1,"BB",1,1)=""
^DD("IX",361,11.1,"BB",2,2)=""
^DD("IX",362,0)="776.5^C^Uniqueness Index for Key 'A' of File #776.5^R^^R^IR^I^776.5^^^^^LS"
^DD("IX",362,1)="S ^HLEV(776.5,""C"",X(1),X(2),DA)="""""
^DD("IX",362,2)="K ^HLEV(776.5,""C"",X(1),X(2),DA)"
^DD("IX",362,2.5)="K ^HLEV(776.5,""C"")"
^DD("IX",362,11.1,0)="^.114IA^2^2"
^DD("IX",362,11.1,1,0)="1^F^776.5^.01^^1^^Whose profiles?"
^DD("IX",362,11.1,2,0)="2^F^776.5^.02^^2"
^DD("IX",362,11.1,"AC",1,1)=""
^DD("IX",362,11.1,"AC",2,2)=""
^DD("IX",362,11.1,"B",1,1)=""
^DD("IX",362,11.1,"B",2,2)=""
^DD("IX",362,11.1,"BB",1,1)=""
^DD("IX",362,11.1,"BB",2,2)=""
^DD("IX",363,0)="798^ARD^Registry & Date Entered^R^^R^IR^I^798^^^^^S"
^DD("IX",363,.1,0)="^^2^2^3030714^"
^DD("IX",363,.1,1,0)="This cross-reference can be used to search for"
^DD("IX",363,.1,2,0)="recently added patients."
^DD("IX",363,1)="S ^RORDATA(798,""ARD"",X(2),X(3),DA)="""""
^DD("IX",363,2)="K ^RORDATA(798,""ARD"",X(2),X(3),DA)"
^DD("IX",363,2.5)="K ^RORDATA(798,""ARD"")"
^DD("IX",363,11.1,0)="^.114IA^4^3"
^DD("IX",363,11.1,1,0)="1^F^798^.02^^^F"
^DD("IX",363,11.1,1,4)=""
^DD("IX",363,11.1,3,0)="3^F^798^1^^2^F"
^DD("IX",363,11.1,4,0)="2^C^^^^1"
^DD("IX",363,11.1,4,1.5)="S X=$S(X(1)'="""":X(1)_""#"",1:"""")"
^DD("IX",363,11.1,"AC",1,4)=""
^DD("IX",363,11.1,"AC",2,3)=""
^DD("IX",363,11.1,"B",1,1)=""
^DD("IX",363,11.1,"B",2,4)=""
^DD("IX",363,11.1,"B",3,3)=""
^DD("IX",363,11.1,"BB",1,1)=""
^DD("IX",363,11.1,"BB",2,4)=""
^DD("IX",363,11.1,"BB",3,3)=""
^DD("IX",364,0)="798.128^G^Lab Group and Local Test Name^R^^R^IR^I^798.128^^^^^LS"
^DD("IX",364,1)="S ^ROR(798.1,DA(1),28,""G"",X(1),X(2),DA)="""""
^DD("IX",364,2)="K ^ROR(798.1,DA(1),28,""G"",X(1),X(2),DA)"
^DD("IX",364,2.5)="K ^ROR(798.1,DA(1),28,""G"")"
^DD("IX",364,11.1,0)="^.114IA^3^2"
^DD("IX",364,11.1,1,0)="1^F^798.128^.02^^1^F"
^DD("IX",364,11.1,1,2)=""
^DD("IX",364,11.1,1,3)=""
^DD("IX",364,11.1,3,0)="2^F^798.128^.01^^2^F"
^DD("IX",364,11.1,3,3)=""
^DD("IX",364,11.1,"AC",1,1)=""
^DD("IX",364,11.1,"AC",2,3)=""
^DD("IX",364,11.1,"B",1,1)=""
^DD("IX",364,11.1,"B",2,3)=""
^DD("IX",364,11.1,"BB",1,1)=""
^DD("IX",364,11.1,"BB",2,3)=""
^DD("IX",365,0)="798.129^G^Drug Group and Local Drug Name^R^^R^IR^I^798.129^^^^^LS"
^DD("IX",365,1)="S ^ROR(798.1,DA(1),29,""G"",X(1),X(2),DA)="""""
^DD("IX",365,2)="K ^ROR(798.1,DA(1),29,""G"",X(1),X(2),DA)"
^DD("IX",365,2.5)="K ^ROR(798.1,DA(1),29,""G"")"
^DD("IX",365,11.1,0)="^.114IA^3^2"
^DD("IX",365,11.1,1,0)="1^F^798.129^.02^^1^F"
^DD("IX",365,11.1,1,3)=""
^DD("IX",365,11.1,3,0)="2^F^798.129^.01^^2^F"
^DD("IX",365,11.1,3,3)=""
^DD("IX",365,11.1,"AC",1,1)=""
^DD("IX",365,11.1,"AC",2,3)=""
^DD("IX",365,11.1,"B",1,1)=""
^DD("IX",365,11.1,"B",2,3)=""
^DD("IX",365,11.1,"BB",1,1)=""
^DD("IX",365,11.1,"BB",2,3)=""
^DD("IX",366,0)="798^ARP^Registry & Patient^R^^R^IR^I^798^^^^^S"
^DD("IX",366,.1,0)="^^13^13^3060203^"
^DD("IX",366,.1,1,0)="This cross-reference lists the registry patients. "
^DD("IX",366,.1,2,0)="It has the following structure:"
^DD("IX",366,.1,3,0)=" "
^DD("IX",366,.1,4,0)=" ^RORDATA(798,""ARP"",<Registry>,<Patient>,IEN)"
^DD("IX",366,.1,5,0)=" "
^DD("IX",366,.1,6,0)="The <Registry> is the registry IEN (IEN of the "
^DD("IX",366,.1,7,0)="registry parameters record in the ROR REGISTRY"
^DD("IX",366,.1,8,0)="PARAMETERS file) concatenated with the ""#"" so that"
^DD("IX",366,.1,9,0)="the LIST^DIC can be used to retrieve the records"
^DD("IX",366,.1,10,0)="associated with the specified registry."
^DD("IX",366,.1,11,0)=" "
^DD("IX",366,.1,12,0)="The <Patient> is the IEN of the patient's record "
^DD("IX",366,.1,13,0)="in the ROR PATIENT file."
^DD("IX",366,1)="S ^RORDATA(798,""ARP"",X(2),X(3),DA)="""""
^DD("IX",366,1.4)=""
^DD("IX",366,2)="K ^RORDATA(798,""ARP"",X(2),X(3),DA)"
^DD("IX",366,2.5)="K ^RORDATA(798,""ARP"")"
^DD("IX",366,11.1,0)="^.114IA^4^3"
^DD("IX",366,11.1,1,0)="1^F^798^.02^^^"
^DD("IX",366,11.1,3,0)="2^C^^^^1^F"
^DD("IX",366,11.1,3,1.5)="S X=$S(X(1)'="""":X(1)_""#"",1:"""")"
^DD("IX",366,11.1,4,0)="3^F^798^.01^^2^F"
^DD("IX",366,11.1,"AC",1,3)=""
^DD("IX",366,11.1,"AC",2,4)=""
^DD("IX",366,11.1,"B",1,1)=""
^DD("IX",366,11.1,"B",2,3)=""
^DD("IX",366,11.1,"B",3,4)=""
^DD("IX",366,11.1,"BB",1,1)=""
^DD("IX",366,11.1,"BB",2,3)=""
^DD("IX",366,11.1,"BB",3,4)=""
^DD("IX",367,0)="798.32^AD^Data Area, Date^MU^^R^IR^I^798.32^^^^^S"
^DD("IX",367,1)="S ^RORDATA(798.3,DA(1),2,""AD"",X(1),X(2)\1,DA)="""""
^DD("IX",367,2)="K ^RORDATA(798.3,DA(1),2,""AD"",X(1),X(2)\1,DA)"
^DD("IX",367,2.5)="K ^RORDATA(798.3,DA(1),2,""AD"")"
^DD("IX",367,11.1,0)="^.114IA^2^2"
^DD("IX",367,11.1,1,0)="1^F^798.32^1^^1^F"
^DD("IX",367,11.1,2,0)="2^F^798.32^2^^2^F"
^DD("IX",367,11.1,"AC",1,1)=""
^DD("IX",367,11.1,"AC",2,2)=""
^DD("IX",367,11.1,"B",1,1)=""
^DD("IX",367,11.1,"B",2,2)=""
^DD("IX",367,11.1,"BB",1,1)=""
^DD("IX",367,11.1,"BB",2,2)=""
^DD("IX",368,0)="798.32^AT^Data Area, Timestamp^R^^R^IR^I^798.32^^^^^S"
^DD("IX",368,1)="S ^RORDATA(798.3,DA(1),2,""AT"",X(1),X(2),DA)="""""
^DD("IX",368,2)="K ^RORDATA(798.3,DA(1),2,""AT"",X(1),X(2),DA)"
^DD("IX",368,2.5)="K ^RORDATA(798.3,DA(1),2,""AT"")"
^DD("IX",368,11.1,0)="^.114IA^2^2"
^DD("IX",368,11.1,1,0)="1^F^798.32^1^^1^F"
^DD("IX",368,11.1,2,0)="2^F^798.32^.01^^2^F"
^DD("IX",368,11.1,"AC",1,1)=""
^DD("IX",368,11.1,"AC",2,2)=""
^DD("IX",368,11.1,"B",1,1)=""
^DD("IX",368,11.1,"B",2,2)=""
^DD("IX",368,11.1,"BB",1,1)=""
^DD("IX",368,11.1,"BB",2,2)=""
^DD("IX",369,0)="798.87^APSR^Sort Elements^MU^^R^IR^I^798.87^^^^^S"
^DD("IX",369,.1,0)="^^20^20^3030502^"
^DD("IX",369,.1,1,0)=" "
^DD("IX",369,.1,2,0)=" IEN  Element (int)   Parent IEN  Value"
^DD("IX",369,.1,3,0)=" ---  --------------  ----------  ------------"
^DD("IX",369,.1,4,0)="   1  REPORT    ( 1)          0"
^DD("IX",369,.1,5,0)="   2   PATIENTS ( 3)          1"
^DD("IX",369,.1,6,0)="   3    PATIENT ( 5)          2"
^DD("IX",369,.1,7,0)="   4     NAME   ( 9)          3   ""DOU, JOHN"""
^DD("IX",369,.1,8,0)="   5     DOB    (10)          3   ""1950/03/25"""
^DD("IX",369,.1,9,0)="   6    PATIENT ( 5)          2"
^DD("IX",369,.1,10,0)="   7     NAME   ( 9)          6   ""SMITH, BOB"""
^DD("IX",369,.1,11,0)="   8     DOB    (10)          6   ""1935/10/05"""
^DD("IX",369,.1,12,0)=" "
^DD("IX",369,.1,13,0)=" "
^DD("IX",369,.1,14,0)="        Parent  Element"
^DD("IX",369,.1,15,0)="         IEN     (int)   IEN"
^DD("IX",369,.1,16,0)="        ------  -------  ---"
^DD("IX",369,.1,17,0)=" ""APSR"",  3,       9,     4"
^DD("IX",369,.1,18,0)=" ""APSR"",  3,      10,     5"
^DD("IX",369,.1,19,0)=" ""APSR"",  6,       9,     7"
^DD("IX",369,.1,20,0)=" ""APSR"",  6,      10,     8"
^DD("IX",369,1)="S ^RORDATA(798.8,DA(1),""RI"",""APSR"",X(1),X(2),DA)="""""
^DD("IX",369,1.4)="S X=(X(3)>0)"
^DD("IX",369,2)="K ^RORDATA(798.8,DA(1),""RI"",""APSR"",X(1),X(2),DA)"
^DD("IX",369,2.4)=""
^DD("IX",369,2.5)="K ^RORDATA(798.8,DA(1),""RI"",""APSR"")"
^DD("IX",369,11.1,0)="^.114IA^4^3"
^DD("IX",369,11.1,1,0)="1^F^798.87^.02^^1^F"
^DD("IX",369,11.1,2,0)="2^F^798.87^.01^^2^F"
^DD("IX",369,11.1,4,0)="3^F^798.87^.03^^^F"
^DD("IX",369,11.1,"AC",1,1)=""
^DD("IX",369,11.1,"AC",2,2)=""
^DD("IX",369,11.1,"B",1,1)=""
^DD("IX",369,11.1,"B",2,2)=""
^DD("IX",369,11.1,"B",3,4)=""
^DD("IX",369,11.1,"BB",1,1)=""
^DD("IX",369,11.1,"BB",2,2)=""
^DD("IX",369,11.1,"BB",3,4)=""
^DD("IX",370,0)="798.87^APSV0^Preserves the sequence of the report elements.^MU^^F^IR^I^798.87^^^^^S"
^DD("IX",370,.1,0)="^^10^10^3030502^"
^DD("IX",370,.1,1,0)="The APSV0 index allows to render the report"
^DD("IX",370,.1,2,0)="elements into the XML tags in the same sequence as"
^DD("IX",370,.1,3,0)="those elements were created by the report builder."
^DD("IX",370,.1,4,0)=" "
^DD("IX",370,.1,5,0)="The APSV0 and APSV1 indexes work together and the"
^DD("IX",370,.1,6,0)="entries of both indexes are created under the same"
^DD("IX",370,.1,7,0)="""APSV"" subscript."
^DD("IX",370,.1,8,0)=" "
^DD("IX",370,.1,9,0)="See the description of the APSV1 index for more "
^DD("IX",370,.1,10,0)="details."
^DD("IX",370,1)="S ^RORDATA(798.8,DA(1),""RI"",""APSV"",+X(1),0,"" "",DA)="""""
^DD("IX",370,2)="K ^RORDATA(798.8,DA(1),""RI"",""APSV"",+X(1),0,"" "",DA)"
^DD("IX",370,2.5)=""
^DD("IX",370,11.1,0)="^.114IA^1^1"
^DD("IX",370,11.1,1,0)="1^F^798.87^.02^^^F"
^DD("IX",370,11.1,"B",1,1)=""
^DD("IX",370,11.1,"BB",1,1)=""
^DD("IX",371,0)="798.87^APSV1^Sorts the XML report on the server^MU^^R^IR^I^798.87^^^^^S"
^DD("IX",371,.1,0)="^^161^161^3060203^"
^DD("IX",371,.1,1,0)="The APSV1 index allows to sort the XML reports on "
^DD("IX",371,.1,2,0)="the server side. "
^DD("IX",371,.1,3,0)=" "
^DD("IX",371,.1,4,0)="The APSV0 and APSV1 indexes work together and the"
^DD("IX",371,.1,5,0)="entries of both indexes are created under the same"
^DD("IX",371,.1,6,0)="""APSV"" subscript."
^DD("IX",371,.1,7,0)=" "
^DD("IX",371,.1,8,0)="The resulting index actually consists of several "
^DD("IX",371,.1,9,0)="sub-indexes (lists). Each index sorts the items"
^DD("IX",371,.1,10,0)="that comprise different parts of the XML document."
^DD("IX",371,.1,11,0)=" "
^DD("IX",371,.1,12,0)="The index has the following structure:"
^DD("IX",371,.1,13,0)=" "
^DD("IX",371,.1,14,0)=" ^RORDATA(798.8,Task,""RI"","
^DD("IX",371,.1,15,0)="    ""APSV"",List,Sort,ItemValue,ItemIEN) = """""
^DD("IX",371,.1,16,0)=" "
^DD("IX",371,.1,17,0)="'Task' is the IEN of the main task record (it is"
^DD("IX",371,.1,18,0)="equal to the task number)."
^DD("IX",371,.1,19,0)=" "
^DD("IX",371,.1,20,0)="'List' is the IEN of the list."
^DD("IX",371,.1,21,0)=" "
^DD("IX",371,.1,22,0)="'Sort' is the sorting mode. It is the internal "
^DD("IX",371,.1,23,0)="value of the REPORT ELEMENT field (the IEN of the"
^DD("IX",371,.1,24,0)="XML element in the ROR XML ELEMENT file). Each"
^DD("IX",371,.1,25,0)="list can be sorted in different ways. The APSV0"
^DD("IX",371,.1,26,0)="index always uses 0 as the value of this"
^DD("IX",371,.1,27,0)="subscript."
^DD("IX",371,.1,28,0)=" "
^DD("IX",371,.1,29,0)="'ItemValue' is the value of the list item. The"
^DD("IX",371,.1,30,0)="APSV0 index always uses "" "" as the value of this"
^DD("IX",371,.1,31,0)="subscript."
^DD("IX",371,.1,32,0)=" "
^DD("IX",371,.1,33,0)="'ItemIEN' is the IEN of the list item."
^DD("IX",371,.1,34,0)=" "
^DD("IX",371,.1,35,0)="To clarify, below is an example of some sample "
^DD("IX",371,.1,36,0)="content of the REPORT ELEMENT multiple:"
^DD("IX",371,.1,37,0)=" "
^DD("IX",371,.1,38,0)=" IEN  Element (int)   Parent IEN  Value"
^DD("IX",371,.1,39,0)=" ---  --------------  ----------  ------------"
^DD("IX",371,.1,40,0)="   1  REPORT    ( 1)         0"
^DD("IX",371,.1,41,0)="   2   PATIENTS ( 3)         1"
^DD("IX",371,.1,42,0)="   3    PATIENT ( 5)         2"
^DD("IX",371,.1,43,0)="   4     NAME   ( 9)         3    ""DOU, JOHN"""
^DD("IX",371,.1,44,0)="   5     DOB    (10)         3    ""1950/03/25"""
^DD("IX",371,.1,45,0)="   6    PATIENT ( 5)         2   "
^DD("IX",371,.1,46,0)="   7     NAME   ( 9)         6    ""SMITH, BOB"""
^DD("IX",371,.1,47,0)="   8     DOB    (10)         6    ""1935/10/05"""
^DD("IX",371,.1,48,0)=" "
^DD("IX",371,.1,49,0)="      Table 1. Sample Report Elements"
^DD("IX",371,.1,50,0)=" "
^DD("IX",371,.1,51,0)="The element names are indented to emphasize the "
^DD("IX",371,.1,52,0)="hierarchical structure of the document."
^DD("IX",371,.1,53,0)=" "
^DD("IX",371,.1,54,0)="The numbers in parentheses after the element names"
^DD("IX",371,.1,55,0)="represent the internal values of the REPORT "
^DD("IX",371,.1,56,0)="ELEMENT field (the IENs in the ROR XML ELEMENT"
^DD("IX",371,.1,57,0)="file)."
^DD("IX",371,.1,58,0)=" "
^DD("IX",371,.1,59,0)="Several lists can be isolated from this example:"
^DD("IX",371,.1,60,0)=" "
^DD("IX",371,.1,61,0)="  #   List      Items"
^DD("IX",371,.1,62,0)=" ---  -------   -------------------------------"
^DD("IX",371,.1,63,0)="  1   REPORT    PATIENTS"
^DD("IX",371,.1,64,0)="  2   PATIENTS  PATIENT, PATIENT"
^DD("IX",371,.1,65,0)="  3   PATIENT   NAME, DOB"
^DD("IX",371,.1,66,0)="  4   PATIENT   NAME, DOB"
^DD("IX",371,.1,67,0)=" "
^DD("IX",371,.1,68,0)="  5   PATIENTS  ""DOU, JOHN"", ""SMITH, BOB"""
^DD("IX",371,.1,69,0)="  6   PATIENTS  ""1935/10/05"", ""1950/03/25"""
^DD("IX",371,.1,70,0)=" "
^DD("IX",371,.1,71,0)="      Table 2. The Lists"
^DD("IX",371,.1,72,0)=" "
^DD("IX",371,.1,73,0)="The first four lists contain just the report"
^DD("IX",371,.1,74,0)="elements themselves. They are used to render the"
^DD("IX",371,.1,75,0)="elements into XML tags in the same sequence as the"
^DD("IX",371,.1,76,0)="elements were created by the report builder. For"
^DD("IX",371,.1,77,0)="example, the <DOB> tag will always follow the"
^DD("IX",371,.1,78,0)="<NAME> tag."
^DD("IX",371,.1,79,0)=" "
^DD("IX",371,.1,80,0)="The logic of the APSV0 index handles these"
^DD("IX",371,.1,81,0)="sub-indexes. They always have 0 as the sorting"
^DD("IX",371,.1,82,0)="mode and "" "" as the item value."
^DD("IX",371,.1,83,0)=" "
^DD("IX",371,.1,84,0)="The last two sub-indexes are handled by the logic"
^DD("IX",371,.1,85,0)="of the ""APSV1"" index. As illustrated in the"
^DD("IX",371,.1,86,0)="example, the lists are associated with the"
^DD("IX",371,.1,87,0)="PATIENTS element, they comprise the PATIENT"
^DD("IX",371,.1,88,0)="elements, and are sorted by the values of the NAME"
^DD("IX",371,.1,89,0)="and DOB elements. Three levels of the hierarchy"
^DD("IX",371,.1,90,0)="are covered by each of these sub-indexes."
^DD("IX",371,.1,91,0)=" "
^DD("IX",371,.1,92,0)="Let us look at the corresponding index. The "
^DD("IX",371,.1,93,0)="numbers in the first column indicate the "
^DD("IX",371,.1,94,0)="corresponding lists from Table 2. The sub-indexes"
^DD("IX",371,.1,95,0)="are separated by empty lines:"
^DD("IX",371,.1,96,0)=" "
^DD("IX",371,.1,97,0)="  #         List  Sort   ItemValue     ItemIEN"
^DD("IX",371,.1,98,0)=" ---        ----  ----  -------------  -------"
^DD("IX",371,.1,99,0)="  1  ""APSV"",  1,    0,  "" "",              2)"
^DD("IX",371,.1,100,0)=" "
^DD("IX",371,.1,101,0)="  2  ""APSV"",  2,    0,  "" "",              3)"
^DD("IX",371,.1,102,0)="  2  ""APSV"",  2,    0,  "" "",              6)"
^DD("IX",371,.1,103,0)=" "
^DD("IX",371,.1,104,0)="  5  ""APSV"",  2,    9,  ""DOU, JOHN"",      3)"
^DD("IX",371,.1,105,0)="  5  ""APSV"",  2,    9,  ""SMITH, BOB"",     6)"
^DD("IX",371,.1,106,0)=" "
^DD("IX",371,.1,107,0)="  6  ""APSV"",  2,   10,  ""1935/10/05"",     6)"
^DD("IX",371,.1,108,0)="  6  ""APSV"",  2,   10,  ""1950/03/25"",     3)"
^DD("IX",371,.1,109,0)=" "
^DD("IX",371,.1,110,0)="  3  ""APSV"",  3,    0,  "" "",              4)"
^DD("IX",371,.1,111,0)="  3  ""APSV"",  3,    0,  "" "",              5)"
^DD("IX",371,.1,112,0)=" "
^DD("IX",371,.1,113,0)="  4  ""APSV"",  6,    0,  "" "",              7)"
^DD("IX",371,.1,114,0)="  4  ""APSV"",  6,    0,  "" "",              8)"
^DD("IX",371,.1,115,0)=" "
^DD("IX",371,.1,116,0)="Let us look more closely at the first entry of the"
^DD("IX",371,.1,117,0)="sub-index #5 (also see Table 1):"
^DD("IX",371,.1,118,0)=" "
^DD("IX",371,.1,119,0)=" 2  is the IEN of the REPORTS element in the"
^DD("IX",371,.1,120,0)="    REPORT ELEMENT multiple;"
^DD("IX",371,.1,121,0)=" "
^DD("IX",371,.1,122,0)=" 9  is the sorting mode (the IEN of the NAME"
^DD("IX",371,.1,123,0)="    element in the ROR XML ELEMENT file);"
^DD("IX",371,.1,124,0)=" "
^DD("IX",371,.1,125,0)=" ""DOU, JOHN"""
^DD("IX",371,.1,126,0)="    is the value of the NAME element;"
^DD("IX",371,.1,127,0)=" "
^DD("IX",371,.1,128,0)=" 3  is the IEN of the corresponding PATIENT"
^DD("IX",371,.1,129,0)="    element in the REPORT ELEMENT multiple."
^DD("IX",371,.1,130,0)=" "
^DD("IX",371,.1,131,0)="If the sort mode 9 (NAME) is used then the"
^DD("IX",371,.1,132,0)="resulting XML document will look like this:"
^DD("IX",371,.1,133,0)=" "
^DD("IX",371,.1,134,0)=" <REPORT>"
^DD("IX",371,.1,135,0)="  <PATIENTS>"
^DD("IX",371,.1,136,0)="   <PATIENT>"
^DD("IX",371,.1,137,0)="    <NAME>DOU, JOHN""</NAME>"
^DD("IX",371,.1,138,0)="    <DOB>950/03/25</DOB>"
^DD("IX",371,.1,139,0)="   </PATIENT>"
^DD("IX",371,.1,140,0)="   <PATIENT>"
^DD("IX",371,.1,141,0)="    <NAME>SMITH, BOB</NAME>"
^DD("IX",371,.1,142,0)="    <DOB>1935/10/05</DOB>"
^DD("IX",371,.1,143,0)="   </PATIENT>"
^DD("IX",371,.1,144,0)="  </PATIENTS>"
^DD("IX",371,.1,145,0)=" </REPORT>"
^DD("IX",371,.1,146,0)=" "
^DD("IX",371,.1,147,0)="If the sort mode 10 (DOB) is used, the resulting"
^DD("IX",371,.1,148,0)="XML document will look as follow:"
^DD("IX",371,.1,149,0)=" "
^DD("IX",371,.1,150,0)=" <REPORT>"
^DD("IX",371,.1,151,0)="  <PATIENTS>"
^DD("IX",371,.1,152,0)="   <PATIENT>"
^DD("IX",371,.1,153,0)="    <NAME>SMITH, BOB</NAME>"
^DD("IX",371,.1,154,0)="    <DOB>1935/10/05</DOB>"
^DD("IX",371,.1,155,0)="   </PATIENT>"
^DD("IX",371,.1,156,0)="   <PATIENT>"
^DD("IX",371,.1,157,0)="    <NAME>DOU, JOHN""</NAME>"
^DD("IX",371,.1,158,0)="    <DOB>950/03/25</DOB>"
^DD("IX",371,.1,159,0)="   </PATIENT>"
^DD("IX",371,.1,160,0)="  </PATIENTS>"
^DD("IX",371,.1,161,0)=" </REPORT>"
^DD("IX",371,1)="S ^RORDATA(798.8,DA(1),""RI"",""APSV"",X(2),X(3),X(6),X(1))="""""
^DD("IX",371,1.4)="S X=(X(5)>0)"
^DD("IX",371,2)="K ^RORDATA(798.8,DA(1),""RI"",""APSV"",X(2),X(3),X(6),X(1))"
^DD("IX",371,2.5)=""
^DD("IX",371,11.1,0)="^.114IA^10^6"
^DD("IX",371,11.1,1,0)="1^F^798.87^.02^^4^F"
^DD("IX",371,11.1,2,0)="2^C^^^^1"
^DD("IX",371,11.1,2,1.5)="S X=$S(X(1)>0:$P($G(^RORDATA(798.8,DA(1),""RI"",X(1),0)),U,2),1:"""")"
^DD("IX",371,11.1,6,0)="6^C^^^30^3"
^DD("IX",371,11.1,6,1.5)="S X=$$SORTBY^RORDD01(X(5),X(4))"
^DD("IX",371,11.1,8,0)="3^F^798.87^.01^^2^F"
^DD("IX",371,11.1,9,0)="4^F^798.87^1^30^^F"
^DD("IX",371,11.1,10,0)="5^F^798.87^.03^^^"
^DD("IX",371,11.1,"AC",1,2)=""
^DD("IX",371,11.1,"AC",2,8)=""
^DD("IX",371,11.1,"AC",3,6)=""
^DD("IX",371,11.1,"AC",4,1)=""
^DD("IX",371,11.1,"B",1,1)=""
^DD("IX",371,11.1,"B",2,2)=""
^DD("IX",371,11.1,"B",3,8)=""
^DD("IX",371,11.1,"B",4,9)=""
^DD("IX",371,11.1,"B",5,10)=""
^DD("IX",371,11.1,"B",6,6)=""
^DD("IX",371,11.1,"BB",1,1)=""
^DD("IX",371,11.1,"BB",2,2)=""
^DD("IX",371,11.1,"BB",3,8)=""
^DD("IX",371,11.1,"BB",4,9)=""
^DD("IX",371,11.1,"BB",5,10)=""
^DD("IX",371,11.1,"BB",6,6)=""
^DD("IX",372,0)="799.34^KEY^Uniqueness Index for Key 'A' of File #799.34^R^^F^IR^I^799.34^^^^^LS"
^DD("IX",372,1)="S ^ROR(799.34,""KEY"",X,DA)="""""
^DD("IX",372,2)="K ^ROR(799.34,""KEY"",X,DA)"
^DD("IX",372,2.5)="K ^ROR(799.34,""KEY"")"
^DD("IX",372,11.1,0)="^.114IA^1^1"
^DD("IX",372,11.1,1,0)="1^F^799.34^.04^^1"
^DD("IX",372,11.1,"AC",1,1)=""
^DD("IX",372,11.1,"B",1,1)=""
^DD("IX",372,11.1,"BB",1,1)=""
^DD("IX",373,0)="799.41^AD^Date of diagnosis^R^^R^IR^I^799.41^^^^^S"
^DD("IX",373,.1,0)="^^2^2^3030507^"
^DD("IX",373,.1,1,0)="This index sorts the AIDS indicator diseases by"
^DD("IX",373,.1,2,0)="the dates when they were diagnosed."
^DD("IX",373,1)="S ^RORDATA(799.4,DA(1),10,""AD"",X(2),DA)="""""
^DD("IX",373,1.4)="S X=(X(1)'="""")"
^DD("IX",373,2)="K ^RORDATA(799.4,DA(1),10,""AD"",X(2),DA)"
^DD("IX",373,2.5)="K ^RORDATA(799.4,DA(1),10,""AD"")"
^DD("IX",373,11.1,0)="^.114IA^2^2"
^DD("IX",373,11.1,1,0)="1^F^799.41^.02^^^F"
^DD("IX",373,11.1,2,0)="2^F^799.41^.03^^1^F"
^DD("IX",373,11.1,"AC",1,2)=""
^DD("IX",373,11.1,"B",1,1)=""
^DD("IX",373,11.1,"B",2,2)=""
^DD("IX",373,11.1,"BB",1,1)=""
^DD("IX",373,11.1,"BB",2,2)=""
^DD("IX",374,0)="798^ASTATUS^Reacts on record status changes^MU^^R^^I^798^^^^^A"
^DD("IX",374,.1,0)="^^7^7^3050630^"
^DD("IX",374,.1,1,0)="This trigger reacts on status changes of the "
^DD("IX",374,.1,2,0)="registry records (confirmed, deleted, etc.). "
^DD("IX",374,.1,3,0)=" "
^DD("IX",374,.1,4,0)="According to the nature of the change, the "
^DD("IX",374,.1,5,0)="$$RST798^RORDD01 function populates the"
^DD("IX",374,.1,6,0)="corresponding fields of the registry record (DATE"
^DD("IX",374,.1,7,0)="CONFIRMED, DATE DELETED, etc.)."
^DD("IX",374,1)="D RST798^RORDD01(1,DA,+$G(X1(1)),+$G(X2(1)))"
^DD("IX",374,1.4)=""
^DD("IX",374,2)="D RST798^RORDD01(2,DA,+$G(X1(1)),+$G(X2(1)))"
^DD("IX",374,2.4)="S X=($G(X2(2))'="""")"
^DD("IX",374,11.1,0)="^.114IA^2^2"
^DD("IX",374,11.1,1,0)="1^F^798^3^^^F"
^DD("IX",374,11.1,2,0)="2^F^798^.01^^^F"
^DD("IX",374,11.1,"B",1,1)=""
^DD("IX",374,11.1,"B",2,2)=""
^DD("IX",374,11.1,"BB",1,1)=""
^DD("IX",374,11.1,"BB",2,2)=""
^DD("IX",375,0)="799.51^ARDG^Registry & Drug Group^R^^R^IR^I^799.51^^^^^S"
^DD("IX",375,1)="S ^ROR(799.51,""ARDG"",X(2),X(3),DA)="""""
^DD("IX",375,2)="K ^ROR(799.51,""ARDG"",X(2),X(3),DA)"
^DD("IX",375,2.5)="K ^ROR(799.51,""ARDG"")"
^DD("IX",375,11.1,0)="^.114IA^3^3"
^DD("IX",375,11.1,1,0)="1^F^799.51^.02^^^F"
^DD("IX",375,11.1,2,0)="3^F^799.51^.04^^2^F"
^DD("IX",375,11.1,3,0)="2^C^^^^1"
^DD("IX",375,11.1,3,1.5)="S X=$S(X(1)'="""":X(1)_""#"",1:"""")"
^DD("IX",375,11.1,"AC",1,3)=""
^DD("IX",375,11.1,"AC",2,2)=""
^DD("IX",375,11.1,"B",1,1)=""
^DD("IX",375,11.1,"B",2,3)=""
^DD("IX",375,11.1,"B",3,2)=""
^DD("IX",375,11.1,"BB",1,1)=""
^DD("IX",375,11.1,"BB",2,3)=""
^DD("IX",375,11.1,"BB",3,2)=""
^DD("IX",376,0)="130^AG^Timestamp fields update ^MU^^F^IR^I^130^^^^^A"
^DD("IX",376,.1,0)="^^2^2^3040204^"
^DD("IX",376,.1,1,0)="Automatically capture the timestamp fields when the corresponding"
^DD("IX",376,.1,2,0)="field is entered or changed."
^DD("IX",376,1)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",376,1.4)="N I S I=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) D NOW^%DTC S $P(^SRF(DA,""VERD""),""^"",I+2)=%"
^DD("IX",376,2)="N I S (X,I)=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) S X=1 Q"
^DD("IX",376,2.4)="N I S I=0 F  S I=$O(X1(I)) Q:'I  I X1(I)'=X2(I) D NOW^%DTC S $P(^SRF(DA,""VERD""),""^"",I+2)=%"
^DD("IX",376,11.1,0)="^.114IA^3^3"
^DD("IX",376,11.1,1,0)="1^F^130^71^^^F"
^DD("IX",376,11.1,2,0)="2^F^130^72^^^F"
^DD("IX",376,11.1,3,0)="3^F^130^73^^^F"
^DD("IX",376,11.1,"B",1,1)=""
^DD("IX",376,11.1,"B",2,2)=""
^DD("IX",376,11.1,"B",3,3)=""
^DD("IX",376,11.1,"BB",1,1)=""
^DD("IX",376,11.1,"BB",2,2)=""
^DD("IX",376,11.1,"BB",3,3)=""
^DD("IX",377,0)="801.55^ANOTE^Cross reference between the note and the dialog^R^^R^IR^I^801.55^^^^^S"
^DD("IX",377,1)="S ^PXRMD(801.55,""ANOTE"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",377,2)="K ^PXRMD(801.55,""ANOTE"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",377,2.5)="K ^PXRMD(801.55,""ANOTE"")"
^DD("IX",377,11.1,0)="^.114IA^2^2"
^DD("IX",377,11.1,1,0)="1^F^801.55^.04^30^1^F"
^DD("IX",377,11.1,1,3)=""
^DD("IX",377,11.1,2,0)="2^F^801.55^.03^30^2^F"
^DD("IX",377,11.1,2,3)=""
^DD("IX",377,11.1,"AC",1,1)=""
^DD("IX",377,11.1,"AC",2,2)=""
^DD("IX",377,11.1,"B",1,1)=""
^DD("IX",377,11.1,"B",2,2)=""
^DD("IX",377,11.1,"BB",1,1)=""
^DD("IX",377,11.1,"BB",2,2)=""
^DD("IX",378,0)="802.4^B^This is a new-style B cross-reference^R^^F^IR^I^802.4^^^^^LS"
^DD("IX",378,1)="S ^PXRMD(802.4,""B"",$E(X,1,30),DA)="""""
^DD("IX",378,2)="K ^PXRMD(802.4,""B"",$E(X,1,30),DA)"
^DD("IX",378,2.5)="K ^PXRMD(802.4,""B"")"
^DD("IX",378,11.1,0)="^.114IA^1^1"
^DD("IX",378,11.1,1,0)="1^F^802.4^.01^30^1^F"
^DD("IX",378,11.1,"AC",1,1)=""
^DD("IX",378,11.1,"B",1,1)=""
^DD("IX",378,11.1,"BB",1,1)=""
^DD("IX",379,0)="130^AES^Create/delete stub entries in TIU for nurse/operation reports.^MU^^F^^I^130^^^^^A"
^DD("IX",379,.1,0)="^^6^6^3010412^"
^DD("IX",379,.1,1,0)="This cross reference is responsible for creating stub entries in TIU for"
^DD("IX",379,.1,2,0)="the nurse intraoperative report and the operation report when the TIME PAT"
^DD("IX",379,.1,3,0)="OUT OR field (#.232) is entered.  It is also responsible for deleting the"
^DD("IX",379,.1,4,0)="stub entries in TIU for these same reports, if unsigned, when the TIME PAT"
^DD("IX",379,.1,5,0)="OUT OR field (#.232) is deleted.  No action occurs if the value in the"
^DD("IX",379,.1,6,0)="TIME PATOUT OR field (#.232) is modified."
^DD("IX",379,1)="D AES^SROESX"
^DD("IX",379,1.4)="S X=X1(1)="""""
^DD("IX",379,2)="D KAES^SROESX"
^DD("IX",379,2.4)="S X=X2(1)="""""
^DD("IX",379,11.1,0)="^.114IA^1^1"
^DD("IX",379,11.1,1,0)="1^F^130^.232^^^F"
^DD("IX",379,11.1,"B",1,1)=""
^DD("IX",379,11.1,"BB",1,1)=""
^DD("IX",380,0)="130^AES1^Update TIU when surgeon is changed.^MU^^F^^I^130^^^^^A"
^DD("IX",380,.1,0)="^^3^3^3020204^"
^DD("IX",380,.1,1,0)="This cross reference is responsible for updating the AUTHOR/DICTATOR field"
^DD("IX",380,.1,2,0)="(#1202) and the EXPECTED SIGNER field (#1204) in the TIU DOCUMENT file"
^DD("IX",380,.1,3,0)="(#8925) for the Operation Report when the surgeon is edited."
^DD("IX",380,1)="D SET^SROESX0"
^DD("IX",380,1.4)="S X=X1(1)'=X2(1)"
^DD("IX",380,2)="Q"
^DD("IX",380,2.4)="S X=0"
^DD("IX",380,11.1,0)="^.114IA^1^1"
^DD("IX",380,11.1,1,0)="1^F^130^.14^^^F"
^DD("IX",380,11.1,"B",1,1)=""
^DD("IX",380,11.1,"BB",1,1)=""
^DD("IX",381,0)="130^AES2^Update TIU when provider is changed.^MU^^F^^I^130^^^^^A"
^DD("IX",381,.1,0)="^^3^3^3020204^"
^DD("IX",381,.1,1,0)="This cross reference is responsible for updating the AUTHOR/DICTATOR field"
^DD("IX",381,.1,2,0)="(#1202) and the EXPECTED SIGNER field (#1204) in the TIU DOCUMENT file"
^DD("IX",381,.1,3,0)="(#8925) for the Procedure Report (Non-OR) when the provider is edited."
^DD("IX",381,1)="D SET^SROESX0"
^DD("IX",381,1.4)="S X=X1(1)'=X2(1)"
^DD("IX",381,2)="Q"
^DD("IX",381,2.4)="S X=0"
^DD("IX",381,11.1,0)="^.114IA^1^1"
^DD("IX",381,11.1,1,0)="1^F^130^123^^^F"
^DD("IX",381,11.1,"B",1,1)=""
^DD("IX",381,11.1,"BB",1,1)=""
^DD("IX",382,0)="130^AES3^Update TIU when attending surgeon is changed.^MU^^F^^I^130^^^^^A"
^DD("IX",382,.1,0)="^^4^4^3020205^"
^DD("IX",382,.1,1,0)="This cross reference is responsible for updating the EXPECTED COSIGNER"
^DD("IX",382,.1,2,0)="field (#1208) and the ATTENDING PHYSICIAN field (#1209) in the TIU"
^DD("IX",382,.1,3,0)="DOCUMENT file (#8925) for the Operation Report when the attending surgeon"
^DD("IX",382,.1,4,0)="is edited."
^DD("IX",382,1)="D SET1^SROESX0"
^DD("IX",382,1.4)="S X=((X1(1)'=X2(1))&(X2(1)'=""""))"
^DD("IX",382,2)="D SET1^SROESX0"
^DD("IX",382,2.4)="S X=X2(1)="""""
^DD("IX",382,11.1,0)="^.114IA^1^1"
^DD("IX",382,11.1,1,0)="1^F^130^.164^^^F"
^DD("IX",382,11.1,"B",1,1)=""
^DD("IX",382,11.1,"BB",1,1)=""
^DD("IX",383,0)="130^AES4^Update TIU when attending provider is changed.^MU^^F^^I^130^^^^^A"
^DD("IX",383,.1,0)="^^4^4^3020205^^"
^DD("IX",383,.1,1,0)="This cross reference is responsible for updating the EXPECTED COSIGNER"
^DD("IX",383,.1,2,0)="field (#1208) and the ATTENDING PHYSICIAN field (#1209) in the TIU"
^DD("IX",383,.1,3,0)="DOCUMENT file (#8925) for the Procedure Report (Non-OR) when the attending"
^DD("IX",383,.1,4,0)="provider is edited."
^DD("IX",383,1)="D SET1^SROESX0"
^DD("IX",383,1.4)="S X=((X1(1)'=X2(1))&(X2(1)'=""""))"
^DD("IX",383,2)="D SET1^SROESX0"
^DD("IX",383,2.4)="S X=X2(1)="""""
^DD("IX",383,11.1,0)="^.114IA^1^1"
^DD("IX",383,11.1,1,0)="1^F^130^124^^^F"
^DD("IX",383,11.1,"B",1,1)=""
^DD("IX",383,11.1,"BB",1,1)=""
^DD("IX",384,0)="130^AES5^Update TIU when principal anesthetist is changed.^MU^^F^^I^130^^^^^A"
^DD("IX",384,.1,0)="^^4^4^3020207^^"
^DD("IX",384,.1,1,0)="This cross reference is responsible for updating the AUTHOR/DICTATOR field"
^DD("IX",384,.1,2,0)="(#1202) and the EXPECTED SIGNER field (#1204) in the TIU DOCUMENT file"
^DD("IX",384,.1,3,0)="(#8925) for the Anesthesia Report when the principal anesthetist is"
^DD("IX",384,.1,4,0)="edited."
^DD("IX",384,1)="D SET2^SROESX0"
^DD("IX",384,1.4)="S X=((X1(1)'=X2(1))&(X2(1)'=""""))"
^DD("IX",384,2)="D SET2^SROESX0"
^DD("IX",384,2.4)="S X=X2(1)="""""
^DD("IX",384,11.1,0)="^.114IA^1^1"
^DD("IX",384,11.1,1,0)="1^F^130^.31^^^F"
^DD("IX",384,11.1,"B",1,1)=""
^DD("IX",384,11.1,"BB",1,1)=""
^DD("IX",385,0)="130^AES6^UPdate TIU when anesthesiologist supervisor is changed.^MU^^F^^I^130^^^^^A"
^DD("IX",385,.1,0)="^^4^4^3020206^"
^DD("IX",385,.1,1,0)="This cross reference is responsible for updating the EXPECTED COSIGNER"
^DD("IX",385,.1,2,0)="field (#1208) and the ATTENDING PHYSICIAN field (#1209) in the TIU"
^DD("IX",385,.1,3,0)="DOCUMENT file (#8925) for the Anesthesia Report when the anesthesiologist "
^DD("IX",385,.1,4,0)="supervisor is edited."
^DD("IX",385,1)="D SET3^SROESX0"
^DD("IX",385,1.4)="S X=((X1(1)'=X2(1))&(X2(1)'=""""))"
^DD("IX",385,2)="D SET3^SROESX0"
^DD("IX",385,2.4)="S X=X2(1)="""""
^DD("IX",385,11.1,0)="^.114IA^1^1"
^DD("IX",385,11.1,1,0)="1^F^130^.34^^^F"
^DD("IX",385,11.1,"B",1,1)=""
^DD("IX",385,11.1,"BB",1,1)=""
^DD("IX",386,0)="130^AES8^Update TIU when Date of Operation is changed.^MU^^F^IR^I^130^^^^^A"
^DD("IX",386,.1,0)="^^3^3^3020729^^"
^DD("IX",386,.1,1,0)="This cross-reference is responsible for updating the REFERENCE DATE field "
^DD("IX",386,.1,2,0)="(#1301) in the TIU DOCUMENT file (#8925) for all Reports when the "
^DD("IX",386,.1,3,0)="DATE OF OPERATION field (#9) in the SURGERY file (#130) is edited."
^DD("IX",386,1)="D AES8^SROESX0 Q"
^DD("IX",386,1.4)="S X=((X1(1)'=X2(1))&(X2(1)'=""""))"
^DD("IX",386,2)="Q"
^DD("IX",386,11.1,0)="^.114IA^1^1"
^DD("IX",386,11.1,1,0)="1^F^130^.09^^^F"
^DD("IX",386,11.1,"B",1,1)=""
^DD("IX",386,11.1,"BB",1,1)=""
^DD("IX",387,0)="130^AESA^Create/delete stub entries in TIU for anesthesia report.^MU^^F^^I^130^^^^^A"
^DD("IX",387,.1,0)="^^6^6^3010412^"
^DD("IX",387,.1,1,0)="This cross reference is responsible for creating a stub entry in TIU for"
^DD("IX",387,.1,2,0)="the anesthesia report when the ANES CARE END TIME field (#.24) is entered."
^DD("IX",387,.1,3,0)="It is also responsible for deleting the stub entry in TIU for this report,"
^DD("IX",387,.1,4,0)="if unsigned, when the ANES CARE END TIME field (#.24) is deleted.  No"
^DD("IX",387,.1,5,0)="action occurs if the value in the ANES CARE END TIME field (#.24) is"
^DD("IX",387,.1,6,0)="modified."
^DD("IX",387,1)="D AESA^SROESXA"
^DD("IX",387,1.4)="S X=X1(1)="""""
^DD("IX",387,2)="D KAESA^SROESXA"
^DD("IX",387,2.4)="S X=X2(1)="""""
^DD("IX",387,11.1,0)="^.114IA^1^1"
^DD("IX",387,11.1,1,0)="1^F^130^.24^^^F"
^DD("IX",387,11.1,"B",1,1)=""
^DD("IX",387,11.1,"BB",1,1)=""
^DD("IX",388,0)="130^AESP^Create/delete stub entries in TIU for procedure reports (non-OR).^MU^^R^^I^130^^^^^A"
^DD("IX",388,.1,0)="^^8^8^3020226^"
^DD("IX",388,.1,1,0)="This cross reference is responsible for creating a stub entry in TIU for"
^DD("IX",388,.1,2,0)="the non-OR procedure report when the TIME PROCEDURE ENDED field (#122) is"
^DD("IX",388,.1,3,0)="entered and the DICTATED SUMMARY EXPECTED field (#1004) is set to YES.  It"
^DD("IX",388,.1,4,0)="is also responsible for deleting the stub entry in TIU for this report, if"
^DD("IX",388,.1,5,0)="unsigned, when the TIME PROCEDURE ENDED field (#122) is deleted or if the"
^DD("IX",388,.1,6,0)="DICTATED SUMMARY EXPECTED field (#1004) is deleted or  changed to NO.  No"
^DD("IX",388,.1,7,0)="action occurs if the value in the TIME PROCEDURE ENDED field (#122) is"
^DD("IX",388,.1,8,0)="modified."
^DD("IX",388,1)="D AESP^SROESXP"
^DD("IX",388,1.4)="S X=$$SCOND^SROESXP(.X1,.X2)"
^DD("IX",388,2)="D KAESP^SROESXP"
^DD("IX",388,2.4)="S X=$$KCOND^SROESXP(.X1,.X2)"
^DD("IX",388,11.1,0)="^.114IA^2^2"
^DD("IX",388,11.1,1,0)="1^F^130^122^^^F"
^DD("IX",388,11.1,2,0)="2^F^130^1004^^^F"
^DD("IX",388,11.1,"B",1,1)=""
^DD("IX",388,11.1,"B",2,2)=""
^DD("IX",388,11.1,"BB",1,1)=""
^DD("IX",388,11.1,"BB",2,2)=""
^DD("IX",389,0)="130.28^AES7^Update TIU when the circulating support is changed.^MU^^F^^I^130.28^^^^^A"
^DD("IX",389,.1,0)="^^4^4^3020207^"
^DD("IX",389,.1,1,0)="This cross reference is responsible for updating the AUTHOR/DICTATOR field"
^DD("IX",389,.1,2,0)="(#1202) and the EXPECTED SIGNER field (#1204) in the TIU DOCUMENT file"
^DD("IX",389,.1,3,0)="(#8925) for the Nurse Intraoperative Report when the circulating support "
^DD("IX",389,.1,4,0)="is edited."
^DD("IX",389,1)="D SET4^SROESX0"
^DD("IX",389,1.4)="S X=X1(1)'=X2(1)"
^DD("IX",389,2)="D SET4^SROESX0"
^DD("IX",389,2.4)="S X=X2(1)="""""
^DD("IX",389,11.1,0)="^.114IA^1^1"
^DD("IX",389,11.1,1,0)="1^F^130.28^.01^^^F"
^DD("IX",389,11.1,"B",1,1)=""
^DD("IX",389,11.1,"BB",1,1)=""
^DD("IX",390,0)="2006.5713^C^Manufacturer, Model and Modality^R^^R^IR^I^2006.5713^^^^^LS"
^DD("IX",390,.1,0)="^^4^4^3021121^"
^DD("IX",390,.1,1,0)="This cross reference keeps track of the various instruments by:"
^DD("IX",390,.1,2,0)=" - manufacturer"
^DD("IX",390,.1,3,0)=" - model (make, firmware-level)"
^DD("IX",390,.1,4,0)=" - modality code"
^DD("IX",390,1)="S ^MAGDINPT(2006.5713,""C"",X(1),X(2),X(3),DA)="""""
^DD("IX",390,2)="K ^MAGDINPT(2006.5713,""C"",X(1),X(2),X(3),DA)"
^DD("IX",390,2.5)="K ^MAGDINPT(2006.5713,""C"")"
^DD("IX",390,11.1,0)="^.114IA^3^3"
^DD("IX",390,11.1,1,0)="1^F^2006.5713^2^^1^F"
^DD("IX",390,11.1,1,3)=""
^DD("IX",390,11.1,2,0)="2^F^2006.5713^3^^2^F"
^DD("IX",390,11.1,2,3)=""
^DD("IX",390,11.1,3,0)="3^F^2006.5713^4^^3^F"
^DD("IX",390,11.1,3,3)=""
^DD("IX",390,11.1,"AC",1,1)=""
^DD("IX",390,11.1,"AC",2,2)=""
^DD("IX",390,11.1,"AC",3,3)=""
^DD("IX",390,11.1,"B",1,1)=""
^DD("IX",390,11.1,"B",2,2)=""
^DD("IX",390,11.1,"B",3,3)=""
^DD("IX",390,11.1,"BB",1,1)=""
^DD("IX",390,11.1,"BB",2,2)=""
^DD("IX",390,11.1,"BB",3,3)=""
^DD("IX",391,0)="2006.575^AFX^Location and Machine ID^MU^^F^IR^I^2006.575^^^^^S"
^DD("IX",391,.1,0)="^^3^3^3041216^"
^DD("IX",391,.1,1,0)="This cross-reference keeps track of"
^DD("IX",391,.1,2,0)="which computers (Machine ID) belong to"
^DD("IX",391,.1,3,0)="which location."
^DD("IX",391,1)="S ^MAGD(2006.575,""AFX"",X(1),X(2),DA)="""""
^DD("IX",391,1.4)="I $D(^MAGD(2006.575,""F"",X(1),X(3),DA))"
^DD("IX",391,2)="K ^MAGD(2006.575,""AFX"",X(1),X(2),DA)"
^DD("IX",391,2.5)="K ^MAGD(2006.575,""AFX"")"
^DD("IX",391,11.1,0)="^.114IA^3^3"
^DD("IX",391,11.1,1,0)="1^F^2006.575^36^^1^F"
^DD("IX",391,11.1,1,3)=""
^DD("IX",391,11.1,2,0)="2^F^2006.575^28^^2^F"
^DD("IX",391,11.1,2,3)=""
^DD("IX",391,11.1,3,0)="3^F^2006.575^9^^^F"
^DD("IX",391,11.1,3,3)=""
^DD("IX",391,11.1,"AC",1,1)=""
^DD("IX",391,11.1,"AC",2,2)=""
^DD("IX",391,11.1,"B",1,1)=""
^DD("IX",391,11.1,"B",2,2)=""
^DD("IX",391,11.1,"B",3,3)=""
^DD("IX",391,11.1,"BB",1,1)=""
^DD("IX",391,11.1,"BB",2,2)=""
^DD("IX",391,11.1,"BB",3,3)=""
^DD("IX",392,0)="2006.575^D^Patient ID^MU^^F^IR^I^2006.575^^^^^LS"
^DD("IX",392,.1,0)="^^6^6^3041216^"
^DD("IX",392,.1,1,0)="This cross-reference keeps track of which Patient ID belongs to which"
^DD("IX",392,.1,2,0)="study."
^DD("IX",392,.1,3,0)=" "
^DD("IX",392,.1,4,0)="This cross-reference is only created for entries that are not yet ""fixed""."
^DD("IX",392,.1,5,0)="This cross-reference is only created for entries that result from"
^DD("IX",392,.1,6,0)="Consults."
^DD("IX",392,1)="S ^MAGD(2006.575,""D"",X(1),DA)="""""
^DD("IX",392,1.4)="I 'X(3),X(2)=""CON"""
^DD("IX",392,2)="K ^MAGD(2006.575,""D"",X(1),DA)"
^DD("IX",392,2.5)="K ^MAGD(2006.575,""D"")"
^DD("IX",392,11.1,0)="^.114IA^3^3"
^DD("IX",392,11.1,1,0)="1^F^2006.575^2^^1^F"
^DD("IX",392,11.1,1,3)=""
^DD("IX",392,11.1,2,0)="2^F^2006.575^32^^^F"
^DD("IX",392,11.1,2,3)=""
^DD("IX",392,11.1,3,0)="3^F^2006.575^16^^^F"
^DD("IX",392,11.1,3,3)=""
^DD("IX",392,11.1,"AC",1,1)=""
^DD("IX",392,11.1,"B",1,1)=""
^DD("IX",392,11.1,"B",2,2)=""
^DD("IX",392,11.1,"B",3,3)=""
^DD("IX",392,11.1,"BB",1,1)=""
^DD("IX",392,11.1,"BB",2,2)=""
^DD("IX",392,11.1,"BB",3,3)=""
^DD("IX",396,0)="2^AVAFC994^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",396,.1,0)="^^5^5^3040702"
^DD("IX",396,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",396,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",396,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",396,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",396,.1,5,0)="the information available at the time of the event."
^DD("IX",396,1)="D FC^DGFCPROT(.DA,2,994,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",396,2)="D FC^DGFCPROT(.DA,2,994,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",396,11.1,0)="^.114IA^1^1"
^DD("IX",396,11.1,1,0)="1^F^2^994^^^F"
^DD("IX",396,11.1,"B",1,1)=""
^DD("IX",396,11.1,"BB",1,1)=""
^DD("IX",397,0)="2.01^AVAFC20101^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.01^^^^^A"
^DD("IX",397,.1,0)="^^5^5^3040702"
^DD("IX",397,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",397,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",397,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",397,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",397,.1,5,0)="the information available at the time of the event."
^DD("IX",397,1)="D FC^DGFCPROT(.DA,2.01,.01,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",397,2)="D FC^DGFCPROT(.DA,2.01,.01,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",397,11.1,0)="^.114IA^1^1"
^DD("IX",397,11.1,1,0)="1^F^2.01^.01^^^F"
^DD("IX",397,11.1,"B",1,1)=""
^DD("IX",397,11.1,"BB",1,1)=""
^DD("IX",398,0)="2.02^AVAFC20201^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.02^^^^^A"
^DD("IX",398,.1,0)="^^5^5^3040702"
^DD("IX",398,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",398,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",398,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",398,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",398,.1,5,0)="the information available at the time of the event."
^DD("IX",398,1)="D FC^DGFCPROT(.DA,2.02,.01,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",398,2)="D FC^DGFCPROT(.DA,2.02,.01,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",398,11.1,0)="^.114IA^1^1"
^DD("IX",398,11.1,1,0)="1^F^2.02^.01^^^F"
^DD("IX",398,11.1,"B",1,1)=""
^DD("IX",398,11.1,"BB",1,1)=""
^DD("IX",399,0)="2.06^AVAFC20601^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2.06^^^^^A"
^DD("IX",399,.1,0)="^^5^5^3040702"
^DD("IX",399,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",399,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",399,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",399,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",399,.1,5,0)="the information available at the time of the event."
^DD("IX",399,1)="D FC^DGFCPROT(.DA,2.06,.01,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",399,2)="D FC^DGFCPROT(.DA,2.06,.01,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",399,11.1,0)="^.114IA^1^1"
^DD("IX",399,11.1,1,0)="1^F^2.06^.01^^^F"
^DD("IX",399,11.1,"B",1,1)=""
^DD("IX",399,11.1,"BB",1,1)=""
^DD("IX",400,0)="39.6^APDAT^Index Patient and Request Date^R^^R^IR^I^39.6^^^^^S"
^DD("IX",400,1)="S ^DGQE(39.6,""APDAT"",X(1),X(2),DA)="""""
^DD("IX",400,2)="K ^DGQE(39.6,""APDAT"",X(1),X(2),DA)"
^DD("IX",400,2.5)="K ^DGQE(39.6,""APDAT"")"
^DD("IX",400,11.1,0)="^.114IA^2^2"
^DD("IX",400,11.1,1,0)="1^F^39.6^.02^^1^F"
^DD("IX",400,11.1,1,3)=""
^DD("IX",400,11.1,2,0)="2^F^39.6^.04^^2^F"
^DD("IX",400,11.1,2,3)=""
^DD("IX",400,11.1,"AC",1,1)=""
^DD("IX",400,11.1,"AC",2,2)=""
^DD("IX",400,11.1,"B",1,1)=""
^DD("IX",400,11.1,"B",2,2)=""
^DD("IX",400,11.1,"BB",1,1)=""
^DD("IX",400,11.1,"BB",2,2)=""
^DD("IX",401,0)="39.6^ASTAT^Index the Card Print Release Status and Request Date/Time^R^^R^IR^I^39.6^^^^^S"
^DD("IX",401,1)="S ^DGQE(39.6,""ASTAT"",X(1),X(2),DA)="""""
^DD("IX",401,2)="K ^DGQE(39.6,""ASTAT"",X(1),X(2),DA)"
^DD("IX",401,2.5)="K ^DGQE(39.6,""ASTAT"")"
^DD("IX",401,11.1,0)="^.114IA^2^2"
^DD("IX",401,11.1,1,0)="1^F^39.6^.03^^1^F"
^DD("IX",401,11.1,1,3)=""
^DD("IX",401,11.1,2,0)="2^F^39.6^.04^^2^F"
^DD("IX",401,11.1,2,3)=""
^DD("IX",401,11.1,"AC",1,1)=""
^DD("IX",401,11.1,"AC",2,2)=""
^DD("IX",401,11.1,"B",1,1)=""
^DD("IX",401,11.1,"B",2,2)=""
^DD("IX",401,11.1,"BB",1,1)=""
^DD("IX",401,11.1,"BB",2,2)=""
^DD("IX",402,0)="39.6^ASTAT2XMIT^Trigger TRANSMISSION REQUIRED to YES on STATUS change.^MU^^F^IR^I^39.6^^^^^A"
^DD("IX",402,1)="D:X2(1)=""H"" XMITOFF^DGQEDD(DA) D:X2(1)'=""H"" XMITON^DGQEDD(DA)"
^DD("IX",402,1.4)="S X=X1(1)'=X2(1)"
^DD("IX",402,2)="Q"
^DD("IX",402,11.1,0)="^.114IA^1^1"
^DD("IX",402,11.1,1,0)="1^F^39.6^.03^^^F"
^DD("IX",402,11.1,"B",1,1)=""
^DD("IX",402,11.1,"BB",1,1)=""
^DD("IX",403,0)="39.6^AXMIT^Index of VIC requests requiring an HL7 transmission^MU^^F^IR^I^39.6^^^^^S"
^DD("IX",403,1)="S ^DGQE(39.6,""AXMIT"",DA)="""""
^DD("IX",403,1.4)="S X=X2(1)=""Y"""
^DD("IX",403,2)="K ^DGQE(39.6,""AXMIT"",DA)"
^DD("IX",403,2.4)=""
^DD("IX",403,11.1,0)="^.114IA^1^1"
^DD("IX",403,11.1,1,0)="1^F^39.6^.05^^^F"
^DD("IX",403,11.1,"B",1,1)=""
^DD("IX",403,11.1,"BB",1,1)=""
^DD("IX",404,0)="39.7^ADATE^Index VIC REQUEST and TRANSMISSION DATE^R^^R^IR^I^39.7^^^^^S"
^DD("IX",404,1)="S ^DGQE(39.7,""ADATE"",X(1),X(2),DA)="""""
^DD("IX",404,2)="K ^DGQE(39.7,""ADATE"",X(1),X(2),DA)"
^DD("IX",404,2.5)="K ^DGQE(39.7,""ADATE"")"
^DD("IX",404,11.1,0)="^.114IA^2^2"
^DD("IX",404,11.1,1,0)="1^F^39.7^.02^^1^F"
^DD("IX",404,11.1,1,3)=""
^DD("IX",404,11.1,2,0)="2^F^39.7^.03^^2^F"
^DD("IX",404,11.1,2,3)=""
^DD("IX",404,11.1,"AC",1,1)=""
^DD("IX",404,11.1,"AC",2,2)=""
^DD("IX",404,11.1,"B",1,1)=""
^DD("IX",404,11.1,"B",2,2)=""
^DD("IX",404,11.1,"BB",1,1)=""
^DD("IX",404,11.1,"BB",2,2)=""
^DD("IX",405,0)="39.7^ASTAT^Index the STATUS (#.04) field^R^^F^IR^I^39.7^^^^^S"
^DD("IX",405,1)="S ^DGQE(39.7,""ASTAT"",X,DA)="""""
^DD("IX",405,2)="K ^DGQE(39.7,""ASTAT"",X,DA)"
^DD("IX",405,2.5)="K ^DGQE(39.7,""ASTAT"")"
^DD("IX",405,11.1,0)="^.114IA^1^1"
^DD("IX",405,11.1,1,0)="1^F^39.7^.04^^1^F"
^DD("IX",405,11.1,1,3)=""
^DD("IX",405,11.1,"AC",1,1)=""
^DD("IX",405,11.1,"B",1,1)=""
^DD("IX",405,11.1,"BB",1,1)=""
^DD("IX",406,0)="391.23^E^Index on File Number, Field Number, and Order Index.^R^^R^IR^I^391.23^^^^^LS"
^DD("IX",406,.1,0)="^^4^4^3040413^^"
^DD("IX",406,.1,1,0)="This index cross references FILE NUMBER, FIELD NUMBER, and ORDER INDEX."
^DD("IX",406,.1,2,0)="It is used by ROM code to return the ORDER INDEX when given the FILE"
^DD("IX",406,.1,3,0)="NUMBER and FIELD NUMBER.  It speeds up the filing of data at the Register"
^DD("IX",406,.1,4,0)="Once Messaging Querying Site."
^DD("IX",406,1)="S ^DGRO(391.23,""E"",X(1),X(2),$E(X(3),1,30),DA)="""""
^DD("IX",406,2)="K ^DGRO(391.23,""E"",X(1),X(2),$E(X(3),1,30),DA)"
^DD("IX",406,2.5)="K ^DGRO(391.23,""E"")"
^DD("IX",406,11.1,0)="^.114IA^3^3"
^DD("IX",406,11.1,1,0)="1^F^391.23^1^^1^F"
^DD("IX",406,11.1,2,0)="2^F^391.23^2^^2^F"
^DD("IX",406,11.1,3,0)="3^F^391.23^5^30^3^F"
^DD("IX",406,11.1,"AC",1,1)=""
^DD("IX",406,11.1,"AC",2,2)=""
^DD("IX",406,11.1,"AC",3,3)=""
^DD("IX",406,11.1,"B",1,1)=""
^DD("IX",406,11.1,"B",2,2)=""
^DD("IX",406,11.1,"B",3,3)=""
^DD("IX",406,11.1,"BB",1,1)=""
^DD("IX",406,11.1,"BB",2,2)=""
^DD("IX",406,11.1,"BB",3,3)=""
^DD("IX",407,0)="200^B^Regular ""B"" index on .01 field with transform, length 35.^R^^F^IR^I^200^^^^^LS"
^DD("IX",407,1)="S ^VA(200,""B"",$E(X,1,35),DA)="""""
^DD("IX",407,2)="K ^VA(200,""B"",$E(X,1,35),DA)"
^DD("IX",407,2.5)="K ^VA(200,""B"")"
^DD("IX",407,11.1,0)="^.114IA^1^1"
^DD("IX",407,11.1,1,0)="1^F^200^.01^35^1^F"
^DD("IX",407,11.1,1,4)="N XLFNAME S XLFNAME=X S X=$$FORMAT^XLFNAME7(.XLFNAME,3,35,,0)"
^DD("IX",407,11.1,"AC",1,1)=""
^DD("IX",407,11.1,"B",1,1)=""
^DD("IX",407,11.1,"BB",1,1)=""
^DD("IX",408,0)="2^AMSEL^DELETE MSE (LAST) FIELDS^MU^^F^^I^2^^^^^A"
^DD("IX",408,1)="Q"
^DD("IX",408,2)="D DELMSE^DGRPMS(DA,1)"
^DD("IX",408,2.4)="S X=X2(1)="""""
^DD("IX",408,11.1,0)="^.114IA^1^1"
^DD("IX",408,11.1,1,0)="1^F^2^.325^^^F"
^DD("IX",408,11.1,1,3)=""
^DD("IX",408,11.1,"B",1,1)=""
^DD("IX",408,11.1,"BB",1,1)=""
^DD("IX",409,0)="2^AMSENL^DELETE MSE (NEXT TO LAST) FIELDS^MU^^F^^I^2^^^^^A"
^DD("IX",409,1)="Q"
^DD("IX",409,2)="D DELMSE^DGRPMS(DA,2)"
^DD("IX",409,2.4)="S X=X2(1)="""""
^DD("IX",409,11.1,0)="^.114IA^1^1"
^DD("IX",409,11.1,1,0)="1^F^2^.3291^^^F"
^DD("IX",409,11.1,"B",1,1)=""
^DD("IX",409,11.1,"BB",1,1)=""
^DD("IX",410,0)="2^AMSENNL^DELETE MSE (NEXT TO NEXT TO LAST) FIELDS^MU^^F^^I^2^^^^^A"
^DD("IX",410,1)="Q"
^DD("IX",410,2)="D DELMSE^DGRPMS(DA,3)"
^DD("IX",410,2.4)="S X=X2(1)="""""
^DD("IX",410,11.1,0)="^.114IA^1^1"
^DD("IX",410,11.1,1,0)="1^F^2^.3296^^^F"
^DD("IX",410,11.1,1,3)=""
^DD("IX",410,11.1,"B",1,1)=""
^DD("IX",410,11.1,"BB",1,1)=""
^DD("IX",411,0)="2.04^ARD^Rated Disabilities modification^MU^^F^^I^2.04^^^^^A"
^DD("IX",411,1)="S DGRDCHG=1"
^DD("IX",411,1.4)="I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))"
^DD("IX",411,2)="S DGRDCHG=1"
^DD("IX",411,2.4)="I (X1(1)'=X2(1))!(X1(2)'=X2(2))!(X1(3)'=X2(3))"
^DD("IX",411,2.5)="S DGRDCHG=1"
^DD("IX",411,11.1,0)="^.114IA^3^3"
^DD("IX",411,11.1,1,0)="1^F^2.04^.01^^^F"
^DD("IX",411,11.1,2,0)="2^F^2.04^2^^^F"
^DD("IX",411,11.1,3,0)="3^F^2.04^3^^^F"
^DD("IX",411,11.1,"B",1,1)=""
^DD("IX",411,11.1,"B",2,2)=""
^DD("IX",411,11.1,"B",3,3)=""
^DD("IX",411,11.1,"BB",1,1)=""
^DD("IX",411,11.1,"BB",2,2)=""
^DD("IX",411,11.1,"BB",3,3)=""
^DD("IX",412,0)="130^AK^PFSS field monitor flag.^MU^^F^IR^I^130^^^^^A"
^DD("IX",412,.1,0)="^^2^2^3051020^"
^DD("IX",412,.1,1,0)="This cross-reference will be checked before sending a notification to the"
^DD("IX",412,.1,2,0)="PFSS after editing the Date Of Operation field."
^DD("IX",412,1)="I ($P(X1(1),""."")'=$P(X2(1),"".""))&(X2(1)'="""") S ^TMP(""SRPFSS"",$J)="""" Q"
^DD("IX",412,1.4)="Q"
^DD("IX",412,2)="I ($P(X1(1),""."")'=$P(X2(1),"".""))&(X1(1)'="""") S ^TMP(""SRPFSS"",$J)="""" Q"
^DD("IX",412,2.4)="Q"
^DD("IX",412,11.1,0)="^.114IA^1^1"
^DD("IX",412,11.1,1,0)="1^F^130^.09^^^F"
^DD("IX",412,11.1,"B",1,1)=""
^DD("IX",412,11.1,"BB",1,1)=""
^DD("IX",413,0)="355.92^AID^Xref by insurance co and division^MU^^R^IR^I^355.92^^^^^A"
^DD("IX",413,1)="S ^IBA(355.92,""AID"",+X(1),+X(2),DA)="""""
^DD("IX",413,2)="K ^IBA(355.92,""AID"",+X(1),+X(2),DA)"
^DD("IX",413,2.5)="K ^IBA(355.92,""AID"")"
^DD("IX",413,11.1,0)="^.114IA^2^2"
^DD("IX",413,11.1,1,0)="1^F^355.92^.01^^^F"
^DD("IX",413,11.1,1,3)=" "
^DD("IX",413,11.1,2,0)="2^F^355.92^.05^^^F"
^DD("IX",413,11.1,2,3)=" "
^DD("IX",413,11.1,"B",1,1)=""
^DD("IX",413,11.1,"B",2,2)=""
^DD("IX",413,11.1,"BB",1,1)=""
^DD("IX",413,11.1,"BB",2,2)=""
^DD("IX",414,0)="55^ACX^Complex Order index.^MU^^R^IR^W^55.06^^^^^S"
^DD("IX",414,.1,0)="^^4^4^3040702"
^DD("IX",414,.1,1,0)="This cross-reference builds an index used for finding"
^DD("IX",414,.1,2,0)="all child orders associated with a particular CPRS"
^DD("IX",414,.1,3,0)="parent order. The indexes are stored as"
^DD("IX",414,.1,4,0)=" ^PS(55,""ACX"",PARENT,ON)"
^DD("IX",414,1)="S ^PS(55,""ACX"",$E(X(1),1,30),$E(X(2),1,30),DA_""U"")="""""
^DD("IX",414,1.4)="S X=1"
^DD("IX",414,2)="K ^PS(55,""ACX"",$E(X(1),1,30),$E(X(2),1,30),DA_""U"")"
^DD("IX",414,2.4)="S X=1"
^DD("IX",414,2.5)="K ^PS(55,""ACX"")"
^DD("IX",414,11.1,0)="^.114IA^2^2"
^DD("IX",414,11.1,1,0)="1^F^55.06^125^^1^F"
^DD("IX",414,11.1,2,0)="2^F^55.06^66^^2^F"
^DD("IX",414,11.1,"AC",1,1)=""
^DD("IX",414,11.1,"AC",2,2)=""
^DD("IX",414,11.1,"B",1,1)=""
^DD("IX",414,11.1,"B",2,2)=""
^DD("IX",414,11.1,"BB",1,1)=""
^DD("IX",414,11.1,"BB",2,2)=""
^DD("IX",415,0)="55^ACX1^Complex Order index.^MU^^R^IR^W^55.01^^^^^S"
^DD("IX",415,.1,0)="^^4^4^3040702"
^DD("IX",415,.1,1,0)="This cross-reference builds an index used for finding"
^DD("IX",415,.1,2,0)="all child orders associated with a particular CPRS"
^DD("IX",415,.1,3,0)="parent order. The indexes are stored as"
^DD("IX",415,.1,4,0)=" ^PS(55,""ACX"",PARENT,ON)"
^DD("IX",415,1)="S ^PS(55,""ACX"",$E(X(1),1,30),$E(X(2),1,30),DA_""V"")="""""
^DD("IX",415,1.4)="S X=1"
^DD("IX",415,2)="K ^PS(55,""ACX"",$E(X(1),1,30),$E(X(2),1,30),DA_""V"")"
^DD("IX",415,2.4)="S X=1"
^DD("IX",415,2.5)="K ^PS(55,""ACX"")"
^DD("IX",415,11.1,0)="^.114IA^2^2"
^DD("IX",415,11.1,1,0)="1^F^55.01^150^^1^F"
^DD("IX",415,11.1,2,0)="2^F^55.01^110^^2^F"
^DD("IX",415,11.1,"AC",1,1)=""
^DD("IX",415,11.1,"AC",2,2)=""
^DD("IX",415,11.1,"B",1,1)=""
^DD("IX",415,11.1,"B",2,2)=""
^DD("IX",415,11.1,"BB",1,1)=""
^DD("IX",415,11.1,"BB",2,2)=""
^DD("IX",416,0)="361^ACSA^Index by Message Severity and Review Status^R^^R^IR^I^361^^^^^S"
^DD("IX",416,.1,0)="^^3^3^3041029"
^DD("IX",416,.1,1,0)="This index is used in the CSA screen (Claims Status Awaiting"
^DD("IX",416,.1,2,0)="Resolution).  Most often the CSA screen is built with unreviewed"
^DD("IX",416,.1,3,0)="rejection messages.  This index file can immediately locate them."
^DD("IX",416,1)="S ^IBM(361,""ACSA"",X(1),X(2),DA)="""""
^DD("IX",416,2)="K ^IBM(361,""ACSA"",X(1),X(2),DA)"
^DD("IX",416,2.5)="K ^IBM(361,""ACSA"")"
^DD("IX",416,11.1,0)="^.114IA^2^2"
^DD("IX",416,11.1,1,0)="1^F^361^.03^^1^F"
^DD("IX",416,11.1,2,0)="2^F^361^.09^^2^F"
^DD("IX",416,11.1,"AC",1,1)=""
^DD("IX",416,11.1,"AC",2,2)=""
^DD("IX",416,11.1,"B",1,1)=""
^DD("IX",416,11.1,"B",2,2)=""
^DD("IX",416,11.1,"BB",1,1)=""
^DD("IX",416,11.1,"BB",2,2)=""
^DD("IX",417,0)="366.03^F^lookup by either value^R^^R^IR^I^366.03^^^^^LS"
^DD("IX",417,1)="S ^IBCNR(366.03,""F"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",417,2)="K ^IBCNR(366.03,""F"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",417,2.5)="K ^IBCNR(366.03,""F"")"
^DD("IX",417,11.1,0)="^.114IA^2^2"
^DD("IX",417,11.1,1,0)="1^F^366.03^10.02^30^1^F"
^DD("IX",417,11.1,1,3)=""
^DD("IX",417,11.1,2,0)="2^F^366.03^10.03^30^2^F"
^DD("IX",417,11.1,2,3)=""
^DD("IX",417,11.1,"AC",1,1)=""
^DD("IX",417,11.1,"AC",2,2)=""
^DD("IX",417,11.1,"B",1,1)=""
^DD("IX",417,11.1,"B",2,2)=""
^DD("IX",417,11.1,"BB",1,1)=""
^DD("IX",417,11.1,"BB",2,2)=""
^DD("IX",422,0)="45^ACR0S1^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.01^^^^^A"
^DD("IX",422,.1,0)="^^10^10^3041228"
^DD("IX",422,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",422,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",422,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",422,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",422,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",422,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",422,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",422,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",422,.1,9,0)="S1 means it was found on the S node and it was operation code 1."
^DD("IX",422,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",422,1)="D SDGPT0^DGPTDDCR(.X,.DA,""S"",1)"
^DD("IX",422,2)="D KDGPT0^DGPTDDCR(.X,.DA,""S"",1)"
^DD("IX",422,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",422,11.1,0)="^.114IA^2^2"
^DD("IX",422,11.1,1,0)="1^F^45.01^.01^^1^F"
^DD("IX",422,11.1,2,0)="2^F^45.01^8^^2^F"
^DD("IX",422,11.1,"AC",1,1)=""
^DD("IX",422,11.1,"AC",2,2)=""
^DD("IX",422,11.1,"B",1,1)=""
^DD("IX",422,11.1,"B",2,2)=""
^DD("IX",422,11.1,"BB",1,1)=""
^DD("IX",422,11.1,"BB",2,2)=""
^DD("IX",423,0)="45^ACR0S2^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.01^^^^^A"
^DD("IX",423,.1,0)="^^10^10^3041228"
^DD("IX",423,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",423,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",423,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",423,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",423,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",423,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",423,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",423,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",423,.1,9,0)="S2 means it was found on the S node and it was operation code 2."
^DD("IX",423,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",423,1)="D SDGPT0^DGPTDDCR(.X,.DA,""S"",2)"
^DD("IX",423,2)="D KDGPT0^DGPTDDCR(.X,.DA,""S"",2)"
^DD("IX",423,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",423,11.1,0)="^.114IA^2^2"
^DD("IX",423,11.1,1,0)="1^F^45.01^.01^^1^F"
^DD("IX",423,11.1,2,0)="2^F^45.01^9^^2^F"
^DD("IX",423,11.1,"AC",1,1)=""
^DD("IX",423,11.1,"AC",2,2)=""
^DD("IX",423,11.1,"B",1,1)=""
^DD("IX",423,11.1,"B",2,2)=""
^DD("IX",423,11.1,"BB",1,1)=""
^DD("IX",423,11.1,"BB",2,2)=""
^DD("IX",424,0)="45^ACR0S3^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.01^^^^^A"
^DD("IX",424,.1,0)="^^10^10^3041228"
^DD("IX",424,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",424,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",424,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",424,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",424,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",424,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",424,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",424,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",424,.1,9,0)="S3 means it was found on the S node and it was operation code 3."
^DD("IX",424,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",424,1)="D SDGPT0^DGPTDDCR(.X,.DA,""S"",3)"
^DD("IX",424,2)="D KDGPT0^DGPTDDCR(.X,.DA,""S"",3)"
^DD("IX",424,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",424,11.1,0)="^.114IA^2^2"
^DD("IX",424,11.1,1,0)="1^F^45.01^.01^^1^F"
^DD("IX",424,11.1,2,0)="2^F^45.01^10^^2^F"
^DD("IX",424,11.1,"AC",1,1)=""
^DD("IX",424,11.1,"AC",2,2)=""
^DD("IX",424,11.1,"B",1,1)=""
^DD("IX",424,11.1,"B",2,2)=""
^DD("IX",424,11.1,"BB",1,1)=""
^DD("IX",424,11.1,"BB",2,2)=""
^DD("IX",425,0)="45^ACR0S4^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.01^^^^^A"
^DD("IX",425,.1,0)="^^10^10^3041228"
^DD("IX",425,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",425,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",425,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",425,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",425,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",425,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",425,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",425,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",425,.1,9,0)="S4 means it was found on the S node and it was operation code 4."
^DD("IX",425,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",425,1)="D SDGPT0^DGPTDDCR(.X,.DA,""S"",4)"
^DD("IX",425,2)="D KDGPT0^DGPTDDCR(.X,.DA,""S"",4)"
^DD("IX",425,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",425,11.1,0)="^.114IA^2^2"
^DD("IX",425,11.1,1,0)="1^F^45.01^.01^^1^F"
^DD("IX",425,11.1,2,0)="2^F^45.01^11^^2^F"
^DD("IX",425,11.1,"AC",1,1)=""
^DD("IX",425,11.1,"AC",2,2)=""
^DD("IX",425,11.1,"B",1,1)=""
^DD("IX",425,11.1,"B",2,2)=""
^DD("IX",425,11.1,"BB",1,1)=""
^DD("IX",425,11.1,"BB",2,2)=""
^DD("IX",426,0)="45^ACR0S5^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.01^^^^^A"
^DD("IX",426,.1,0)="^^10^10^3041228"
^DD("IX",426,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",426,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",426,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",426,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",426,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",426,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",426,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",426,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",426,.1,9,0)="S5 means it was found on the S node and it was operation code 5."
^DD("IX",426,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",426,1)="D SDGPT0^DGPTDDCR(.X,.DA,""S"",5)"
^DD("IX",426,2)="D KDGPT0^DGPTDDCR(.X,.DA,""S"",5)"
^DD("IX",426,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",426,11.1,0)="^.114IA^2^2"
^DD("IX",426,11.1,1,0)="1^F^45.01^.01^^1^F"
^DD("IX",426,11.1,2,0)="2^F^45.01^12^^2^F"
^DD("IX",426,11.1,"AC",1,1)=""
^DD("IX",426,11.1,"AC",2,2)=""
^DD("IX",426,11.1,"B",1,1)=""
^DD("IX",426,11.1,"B",2,2)=""
^DD("IX",426,11.1,"BB",1,1)=""
^DD("IX",426,11.1,"BB",2,2)=""
^DD("IX",427,0)="45^ACR0P1^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.05^^^^^A"
^DD("IX",427,.1,0)="^^10^10^3041228"
^DD("IX",427,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",427,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",427,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",427,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",427,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",427,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",427,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",427,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",427,.1,9,0)="P1 means it was found on the P node and it was operation code 1."
^DD("IX",427,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",427,1)="D SDGPT0^DGPTDDCR(.X,.DA,""P"",1)"
^DD("IX",427,2)="D KDGPT0^DGPTDDCR(.X,.DA,""P"",1)"
^DD("IX",427,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",427,11.1,0)="^.114IA^2^2"
^DD("IX",427,11.1,1,0)="1^F^45.05^.01^^1^F"
^DD("IX",427,11.1,2,0)="2^F^45.05^4^^2^F"
^DD("IX",427,11.1,"AC",1,1)=""
^DD("IX",427,11.1,"AC",2,2)=""
^DD("IX",427,11.1,"B",1,1)=""
^DD("IX",427,11.1,"B",2,2)=""
^DD("IX",427,11.1,"BB",1,1)=""
^DD("IX",427,11.1,"BB",2,2)=""
^DD("IX",428,0)="45^ACR0P2^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.05^^^^^A"
^DD("IX",428,.1,0)="^^10^10^3041228"
^DD("IX",428,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",428,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",428,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",428,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",428,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",428,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",428,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",428,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",428,.1,9,0)="P2 means it was found on the P node and it was operation code 2."
^DD("IX",428,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",428,1)="D SDGPT0^DGPTDDCR(.X,.DA,""P"",2)"
^DD("IX",428,2)="D KDGPT0^DGPTDDCR(.X,.DA,""P"",2)"
^DD("IX",428,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",428,11.1,0)="^.114IA^2^2"
^DD("IX",428,11.1,1,0)="1^F^45.05^.01^^1^F"
^DD("IX",428,11.1,2,0)="2^F^45.05^5^^2^F"
^DD("IX",428,11.1,"AC",1,1)=""
^DD("IX",428,11.1,"AC",2,2)=""
^DD("IX",428,11.1,"B",1,1)=""
^DD("IX",428,11.1,"B",2,2)=""
^DD("IX",428,11.1,"BB",1,1)=""
^DD("IX",428,11.1,"BB",2,2)=""
^DD("IX",429,0)="45^ACR0P3^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.05^^^^^A"
^DD("IX",429,.1,0)="^^10^10^3041228"
^DD("IX",429,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",429,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",429,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",429,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",429,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",429,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",429,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",429,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",429,.1,9,0)="P3 means it was found on the P node and it was operation code 3."
^DD("IX",429,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",429,1)="D SDGPT0^DGPTDDCR(.X,.DA,""P"",3)"
^DD("IX",429,2)="D KDGPT0^DGPTDDCR(.X,.DA,""P"",3)"
^DD("IX",429,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",429,11.1,0)="^.114IA^2^2"
^DD("IX",429,11.1,1,0)="1^F^45.05^.01^^1^F"
^DD("IX",429,11.1,2,0)="2^F^45.05^6^^2^F"
^DD("IX",429,11.1,"AC",1,1)=""
^DD("IX",429,11.1,"AC",2,2)=""
^DD("IX",429,11.1,"B",1,1)=""
^DD("IX",429,11.1,"B",2,2)=""
^DD("IX",429,11.1,"BB",1,1)=""
^DD("IX",429,11.1,"BB",2,2)=""
^DD("IX",430,0)="45^ACR0P4^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.05^^^^^A"
^DD("IX",430,.1,0)="^^10^10^3041228"
^DD("IX",430,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",430,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",430,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",430,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",430,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",430,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",430,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",430,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",430,.1,9,0)="P4 means it was found on the P node and it was operation code 4."
^DD("IX",430,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",430,1)="D SDGPT0^DGPTDDCR(.X,.DA,""P"",4)"
^DD("IX",430,2)="D KDGPT0^DGPTDDCR(.X,.DA,""P"",4)"
^DD("IX",430,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",430,11.1,0)="^.114IA^2^2"
^DD("IX",430,11.1,1,0)="1^F^45.05^.01^^1^F"
^DD("IX",430,11.1,2,0)="2^F^45.05^7^^2^F"
^DD("IX",430,11.1,"AC",1,1)=""
^DD("IX",430,11.1,"AC",2,2)=""
^DD("IX",430,11.1,"B",1,1)=""
^DD("IX",430,11.1,"B",2,2)=""
^DD("IX",430,11.1,"BB",1,1)=""
^DD("IX",430,11.1,"BB",2,2)=""
^DD("IX",431,0)="45^ACR0P5^Clinical Reminders index for ICD0 lookup.^MU^^R^IR^W^45.05^^^^^A"
^DD("IX",431,.1,0)="^^10^10^3041228"
^DD("IX",431,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",431,.1,2,0)="all patients with a particular ICD0 code and one for finding all"
^DD("IX",431,.1,3,0)="the ICD0 codes a patient has."
^DD("IX",431,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",431,.1,5,0)=" ^PXRMINDX(45,""ICD0"",""INP"",ICD0,NODE,DFN,DATE,DAS) and"
^DD("IX",431,.1,6,0)=" ^PXRMINDX(45,""ICD0"",""PNI"",DFN,NODE,ICD0,DATE,DAS)"
^DD("IX",431,.1,7,0)="respectively. DATE is the surgery/procedure date."
^DD("IX",431,.1,8,0)="NODE is S followed by code number. For example,"
^DD("IX",431,.1,9,0)="P5 means it was found on the P node and it was operation code 5."
^DD("IX",431,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",431,1)="D SDGPT0^DGPTDDCR(.X,.DA,""P"",5)"
^DD("IX",431,2)="D KDGPT0^DGPTDDCR(.X,.DA,""P"",5)"
^DD("IX",431,2.5)="K ^PXRMINDX(45,""ICD0"")"
^DD("IX",431,11.1,0)="^.114IA^2^2"
^DD("IX",431,11.1,1,0)="1^F^45.05^.01^^1^F"
^DD("IX",431,11.1,2,0)="2^F^45.05^8^^2^F"
^DD("IX",431,11.1,"AC",1,1)=""
^DD("IX",431,11.1,"AC",2,2)=""
^DD("IX",431,11.1,"B",1,1)=""
^DD("IX",431,11.1,"B",2,2)=""
^DD("IX",431,11.1,"BB",1,1)=""
^DD("IX",431,11.1,"BB",2,2)=""
^DD("IX",432,0)="45^ACR9DXLS^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",432,.1,0)="^^11^11^3050110"
^DD("IX",432,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",432,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",432,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",432,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",432,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",432,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",432,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",432,.1,8,0)="exist then the admission date is used."
^DD("IX",432,.1,9,0)="NAME is the name of the ICD9 code field. An example is DXLS."
^DD("IX",432,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",432,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",432,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""DXLS"")"
^DD("IX",432,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""DXLS"")"
^DD("IX",432,2.5)="K ^PXRMINDX(45)"
^DD("IX",432,11.1,0)="^.114IA^5^5"
^DD("IX",432,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",432,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",432,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",432,11.1,4,0)="4^F^45^79^^4^F"
^DD("IX",432,11.1,5,0)="5^F^45^70"
^DD("IX",432,11.1,"AC",1,1)=""
^DD("IX",432,11.1,"AC",2,2)=""
^DD("IX",432,11.1,"AC",3,3)=""
^DD("IX",432,11.1,"AC",4,4)=""
^DD("IX",432,11.1,"B",1,1)=""
^DD("IX",432,11.1,"B",2,2)=""
^DD("IX",432,11.1,"B",3,3)=""
^DD("IX",432,11.1,"B",4,4)=""
^DD("IX",432,11.1,"B",5,5)=""
^DD("IX",432,11.1,"BB",1,1)=""
^DD("IX",432,11.1,"BB",2,2)=""
^DD("IX",432,11.1,"BB",3,3)=""
^DD("IX",432,11.1,"BB",4,4)=""
^DD("IX",432,11.1,"BB",5,5)=""
^DD("IX",433,0)="45^ACR9PDX^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",433,.1,0)="^^11^11^3050110"
^DD("IX",433,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",433,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",433,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",433,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",433,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",433,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",433,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",433,.1,8,0)="exist then the admission date is used."
^DD("IX",433,.1,9,0)="NAME is the name of the ICD9 code field. An example is PDX."
^DD("IX",433,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",433,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",433,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""PDX"")"
^DD("IX",433,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""PDX"")"
^DD("IX",433,2.5)="K ^PXRMINDX(45)"
^DD("IX",433,11.1,0)="^.114IA^5^5"
^DD("IX",433,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",433,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",433,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",433,11.1,4,0)="4^F^45^80^^4^F"
^DD("IX",433,11.1,5,0)="5^F^45^70"
^DD("IX",433,11.1,"AC",1,1)=""
^DD("IX",433,11.1,"AC",2,2)=""
^DD("IX",433,11.1,"AC",3,3)=""
^DD("IX",433,11.1,"AC",4,4)=""
^DD("IX",433,11.1,"B",1,1)=""
^DD("IX",433,11.1,"B",2,2)=""
^DD("IX",433,11.1,"B",3,3)=""
^DD("IX",433,11.1,"B",4,4)=""
^DD("IX",433,11.1,"B",5,5)=""
^DD("IX",433,11.1,"BB",1,1)=""
^DD("IX",433,11.1,"BB",2,2)=""
^DD("IX",433,11.1,"BB",3,3)=""
^DD("IX",433,11.1,"BB",4,4)=""
^DD("IX",433,11.1,"BB",5,5)=""
^DD("IX",434,0)="45^ACR9DSD1^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",434,.1,0)="^^11^11^3050110"
^DD("IX",434,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",434,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",434,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",434,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",434,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",434,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",434,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",434,.1,8,0)="exist then the admission date is used."
^DD("IX",434,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD1, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",434,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",434,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",434,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD1"")"
^DD("IX",434,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD1"")"
^DD("IX",434,2.5)="K ^PXRMINDX(45)"
^DD("IX",434,11.1,0)="^.114IA^5^5"
^DD("IX",434,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",434,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",434,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",434,11.1,4,0)="4^F^45^79.16^^4^F"
^DD("IX",434,11.1,5,0)="5^F^45^70"
^DD("IX",434,11.1,"AC",1,1)=""
^DD("IX",434,11.1,"AC",2,2)=""
^DD("IX",434,11.1,"AC",3,3)=""
^DD("IX",434,11.1,"AC",4,4)=""
^DD("IX",434,11.1,"B",1,1)=""
^DD("IX",434,11.1,"B",2,2)=""
^DD("IX",434,11.1,"B",3,3)=""
^DD("IX",434,11.1,"B",4,4)=""
^DD("IX",434,11.1,"B",5,5)=""
^DD("IX",434,11.1,"BB",1,1)=""
^DD("IX",434,11.1,"BB",2,2)=""
^DD("IX",434,11.1,"BB",3,3)=""
^DD("IX",434,11.1,"BB",4,4)=""
^DD("IX",434,11.1,"BB",5,5)=""
^DD("IX",435,0)="45^ACR9DSD2^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",435,.1,0)="^^11^11^3050110"
^DD("IX",435,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",435,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",435,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",435,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",435,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",435,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",435,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",435,.1,8,0)="exist then the admission date is used."
^DD("IX",435,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD2, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",435,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",435,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",435,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD2"")"
^DD("IX",435,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD2"")"
^DD("IX",435,2.5)="K ^PXRMINDX(45)"
^DD("IX",435,11.1,0)="^.114IA^5^5"
^DD("IX",435,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",435,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",435,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",435,11.1,4,0)="4^F^45^79.17^^4^F"
^DD("IX",435,11.1,5,0)="5^F^45^70"
^DD("IX",435,11.1,"AC",1,1)=""
^DD("IX",435,11.1,"AC",2,2)=""
^DD("IX",435,11.1,"AC",3,3)=""
^DD("IX",435,11.1,"AC",4,4)=""
^DD("IX",435,11.1,"B",1,1)=""
^DD("IX",435,11.1,"B",2,2)=""
^DD("IX",435,11.1,"B",3,3)=""
^DD("IX",435,11.1,"B",4,4)=""
^DD("IX",435,11.1,"B",5,5)=""
^DD("IX",435,11.1,"BB",1,1)=""
^DD("IX",435,11.1,"BB",2,2)=""
^DD("IX",435,11.1,"BB",3,3)=""
^DD("IX",435,11.1,"BB",4,4)=""
^DD("IX",435,11.1,"BB",5,5)=""
^DD("IX",436,0)="45^ACR9DSD3^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",436,.1,0)="^^11^11^3050110"
^DD("IX",436,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",436,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",436,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",436,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",436,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",436,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",436,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",436,.1,8,0)="exist then the admission date is used."
^DD("IX",436,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD3, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",436,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",436,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",436,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD3"")"
^DD("IX",436,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD3"")"
^DD("IX",436,2.5)="K ^PXRMINDX(45)"
^DD("IX",436,11.1,0)="^.114IA^5^5"
^DD("IX",436,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",436,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",436,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",436,11.1,4,0)="4^F^45^79.18^^4^F"
^DD("IX",436,11.1,5,0)="5^F^45^70"
^DD("IX",436,11.1,"AC",1,1)=""
^DD("IX",436,11.1,"AC",2,2)=""
^DD("IX",436,11.1,"AC",3,3)=""
^DD("IX",436,11.1,"AC",4,4)=""
^DD("IX",436,11.1,"B",1,1)=""
^DD("IX",436,11.1,"B",2,2)=""
^DD("IX",436,11.1,"B",3,3)=""
^DD("IX",436,11.1,"B",4,4)=""
^DD("IX",436,11.1,"B",5,5)=""
^DD("IX",436,11.1,"BB",1,1)=""
^DD("IX",436,11.1,"BB",2,2)=""
^DD("IX",436,11.1,"BB",3,3)=""
^DD("IX",436,11.1,"BB",4,4)=""
^DD("IX",436,11.1,"BB",5,5)=""
^DD("IX",437,0)="45^ACR9DSD4^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",437,.1,0)="^^11^11^3050110"
^DD("IX",437,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",437,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",437,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",437,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",437,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",437,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",437,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",437,.1,8,0)="exist then the admission date is used."
^DD("IX",437,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD4, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",437,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",437,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",437,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD4"")"
^DD("IX",437,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD4"")"
^DD("IX",437,2.5)="K ^PXRMINDX(45)"
^DD("IX",437,11.1,0)="^.114IA^5^5"
^DD("IX",437,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",437,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",437,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",437,11.1,4,0)="4^F^45^79.19^^4^F"
^DD("IX",437,11.1,5,0)="5^F^45^70"
^DD("IX",437,11.1,"AC",1,1)=""
^DD("IX",437,11.1,"AC",2,2)=""
^DD("IX",437,11.1,"AC",3,3)=""
^DD("IX",437,11.1,"AC",4,4)=""
^DD("IX",437,11.1,"B",1,1)=""
^DD("IX",437,11.1,"B",2,2)=""
^DD("IX",437,11.1,"B",3,3)=""
^DD("IX",437,11.1,"B",4,4)=""
^DD("IX",437,11.1,"B",5,5)=""
^DD("IX",437,11.1,"BB",1,1)=""
^DD("IX",437,11.1,"BB",2,2)=""
^DD("IX",437,11.1,"BB",3,3)=""
^DD("IX",437,11.1,"BB",4,4)=""
^DD("IX",437,11.1,"BB",5,5)=""
^DD("IX",438,0)="45^ACR9DSD5^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",438,.1,0)="^^11^11^3050110"
^DD("IX",438,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",438,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",438,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",438,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",438,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",438,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",438,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",438,.1,8,0)="exist then the admission date is used."
^DD("IX",438,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD5, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",438,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",438,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",438,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD5"")"
^DD("IX",438,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD5"")"
^DD("IX",438,2.5)="K ^PXRMINDX(45)"
^DD("IX",438,11.1,0)="^.114IA^5^5"
^DD("IX",438,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",438,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",438,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",438,11.1,4,0)="4^F^45^79.201^^4^F"
^DD("IX",438,11.1,5,0)="5^F^45^70"
^DD("IX",438,11.1,"AC",1,1)=""
^DD("IX",438,11.1,"AC",2,2)=""
^DD("IX",438,11.1,"AC",3,3)=""
^DD("IX",438,11.1,"AC",4,4)=""
^DD("IX",438,11.1,"B",1,1)=""
^DD("IX",438,11.1,"B",2,2)=""
^DD("IX",438,11.1,"B",3,3)=""
^DD("IX",438,11.1,"B",4,4)=""
^DD("IX",438,11.1,"B",5,5)=""
^DD("IX",438,11.1,"BB",1,1)=""
^DD("IX",438,11.1,"BB",2,2)=""
^DD("IX",438,11.1,"BB",3,3)=""
^DD("IX",438,11.1,"BB",4,4)=""
^DD("IX",438,11.1,"BB",5,5)=""
^DD("IX",439,0)="45^ACR9DSD6^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",439,.1,0)="^^11^11^3050110"
^DD("IX",439,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",439,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",439,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",439,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",439,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",439,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",439,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",439,.1,8,0)="exist then the admission date is used."
^DD("IX",439,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD6, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",439,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",439,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",439,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD6"")"
^DD("IX",439,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD6"")"
^DD("IX",439,2.5)="K ^PXRMINDX(45)"
^DD("IX",439,11.1,0)="^.114IA^5^5"
^DD("IX",439,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",439,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",439,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",439,11.1,4,0)="4^F^45^79.21^^4^F"
^DD("IX",439,11.1,5,0)="5^F^45^70"
^DD("IX",439,11.1,"AC",1,1)=""
^DD("IX",439,11.1,"AC",2,2)=""
^DD("IX",439,11.1,"AC",3,3)=""
^DD("IX",439,11.1,"AC",4,4)=""
^DD("IX",439,11.1,"B",1,1)=""
^DD("IX",439,11.1,"B",2,2)=""
^DD("IX",439,11.1,"B",3,3)=""
^DD("IX",439,11.1,"B",4,4)=""
^DD("IX",439,11.1,"B",5,5)=""
^DD("IX",439,11.1,"BB",1,1)=""
^DD("IX",439,11.1,"BB",2,2)=""
^DD("IX",439,11.1,"BB",3,3)=""
^DD("IX",439,11.1,"BB",4,4)=""
^DD("IX",439,11.1,"BB",5,5)=""
^DD("IX",440,0)="45^ACR9DSD7^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",440,.1,0)="^^11^11^3050110"
^DD("IX",440,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",440,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",440,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",440,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",440,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",440,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",440,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",440,.1,8,0)="exist then the admission date is used."
^DD("IX",440,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD7, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",440,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",440,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",440,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD7"")"
^DD("IX",440,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD7"")"
^DD("IX",440,2.5)="K ^PXRMINDX(45)"
^DD("IX",440,11.1,0)="^.114IA^5^5"
^DD("IX",440,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",440,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",440,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",440,11.1,4,0)="4^F^45^79.22^^4^F"
^DD("IX",440,11.1,5,0)="5^F^45^70"
^DD("IX",440,11.1,"AC",1,1)=""
^DD("IX",440,11.1,"AC",2,2)=""
^DD("IX",440,11.1,"AC",3,3)=""
^DD("IX",440,11.1,"AC",4,4)=""
^DD("IX",440,11.1,"B",1,1)=""
^DD("IX",440,11.1,"B",2,2)=""
^DD("IX",440,11.1,"B",3,3)=""
^DD("IX",440,11.1,"B",4,4)=""
^DD("IX",440,11.1,"B",5,5)=""
^DD("IX",440,11.1,"BB",1,1)=""
^DD("IX",440,11.1,"BB",2,2)=""
^DD("IX",440,11.1,"BB",3,3)=""
^DD("IX",440,11.1,"BB",4,4)=""
^DD("IX",440,11.1,"BB",5,5)=""
^DD("IX",441,0)="45^ACR9DSD8^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",441,.1,0)="^^11^11^3050110"
^DD("IX",441,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",441,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",441,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",441,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",441,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",441,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",441,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",441,.1,8,0)="exist then the admission date is used."
^DD("IX",441,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD8, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",441,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",441,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",441,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD8"")"
^DD("IX",441,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD8"")"
^DD("IX",441,2.5)="K ^PXRMINDX(45)"
^DD("IX",441,11.1,0)="^.114IA^5^5"
^DD("IX",441,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",441,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",441,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",441,11.1,4,0)="4^F^45^79.23^^4^F"
^DD("IX",441,11.1,5,0)="5^F^45^70"
^DD("IX",441,11.1,"AC",1,1)=""
^DD("IX",441,11.1,"AC",2,2)=""
^DD("IX",441,11.1,"AC",3,3)=""
^DD("IX",441,11.1,"AC",4,4)=""
^DD("IX",441,11.1,"B",1,1)=""
^DD("IX",441,11.1,"B",2,2)=""
^DD("IX",441,11.1,"B",3,3)=""
^DD("IX",441,11.1,"B",4,4)=""
^DD("IX",441,11.1,"B",5,5)=""
^DD("IX",441,11.1,"BB",1,1)=""
^DD("IX",441,11.1,"BB",2,2)=""
^DD("IX",441,11.1,"BB",3,3)=""
^DD("IX",441,11.1,"BB",4,4)=""
^DD("IX",441,11.1,"BB",5,5)=""
^DD("IX",442,0)="45^ACR9DSD9^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",442,.1,0)="^^11^11^3050110"
^DD("IX",442,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",442,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",442,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",442,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",442,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",442,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",442,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",442,.1,8,0)="exist then the admission date is used."
^DD("IX",442,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD9, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",442,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",442,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",442,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD9"")"
^DD("IX",442,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD9"")"
^DD("IX",442,2.5)="K ^PXRMINDX(45)"
^DD("IX",442,11.1,0)="^.114IA^5^5"
^DD("IX",442,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",442,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",442,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",442,11.1,4,0)="4^F^45^79.24^^4^F"
^DD("IX",442,11.1,5,0)="5^F^45^70"
^DD("IX",442,11.1,"AC",1,1)=""
^DD("IX",442,11.1,"AC",2,2)=""
^DD("IX",442,11.1,"AC",3,3)=""
^DD("IX",442,11.1,"AC",4,4)=""
^DD("IX",442,11.1,"B",1,1)=""
^DD("IX",442,11.1,"B",2,2)=""
^DD("IX",442,11.1,"B",3,3)=""
^DD("IX",442,11.1,"B",4,4)=""
^DD("IX",442,11.1,"B",5,5)=""
^DD("IX",442,11.1,"BB",1,1)=""
^DD("IX",442,11.1,"BB",2,2)=""
^DD("IX",442,11.1,"BB",3,3)=""
^DD("IX",442,11.1,"BB",4,4)=""
^DD("IX",442,11.1,"BB",5,5)=""
^DD("IX",443,0)="45^ACR9DSD10^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",443,.1,0)="^^11^11^3050110"
^DD("IX",443,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",443,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",443,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",443,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",443,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",443,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",443,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",443,.1,8,0)="exist then the admission date is used."
^DD("IX",443,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD10, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",443,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",443,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",443,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD10"")"
^DD("IX",443,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD10"")"
^DD("IX",443,2.5)="K ^PXRMINDX(45)"
^DD("IX",443,11.1,0)="^.114IA^5^5"
^DD("IX",443,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",443,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",443,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",443,11.1,4,0)="4^F^45^79.241^^4^F"
^DD("IX",443,11.1,5,0)="5^F^45^70"
^DD("IX",443,11.1,"AC",1,1)=""
^DD("IX",443,11.1,"AC",2,2)=""
^DD("IX",443,11.1,"AC",3,3)=""
^DD("IX",443,11.1,"AC",4,4)=""
^DD("IX",443,11.1,"B",1,1)=""
^DD("IX",443,11.1,"B",2,2)=""
^DD("IX",443,11.1,"B",3,3)=""
^DD("IX",443,11.1,"B",4,4)=""
^DD("IX",443,11.1,"B",5,5)=""
^DD("IX",443,11.1,"BB",1,1)=""
^DD("IX",443,11.1,"BB",2,2)=""
^DD("IX",443,11.1,"BB",3,3)=""
^DD("IX",443,11.1,"BB",4,4)=""
^DD("IX",443,11.1,"BB",5,5)=""
^DD("IX",444,0)="45^ACR9DSD11^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",444,.1,0)="^^11^11^3050110"
^DD("IX",444,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",444,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",444,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",444,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",444,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",444,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",444,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",444,.1,8,0)="exist then the admission date is used."
^DD("IX",444,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD11, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",444,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",444,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",444,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD11"")"
^DD("IX",444,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD11"")"
^DD("IX",444,2.5)="K ^PXRMINDX(45)"
^DD("IX",444,11.1,0)="^.114IA^5^5"
^DD("IX",444,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",444,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",444,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",444,11.1,4,0)="4^F^45^79.242^^4^F"
^DD("IX",444,11.1,5,0)="5^F^45^70"
^DD("IX",444,11.1,"AC",1,1)=""
^DD("IX",444,11.1,"AC",2,2)=""
^DD("IX",444,11.1,"AC",3,3)=""
^DD("IX",444,11.1,"AC",4,4)=""
^DD("IX",444,11.1,"B",1,1)=""
^DD("IX",444,11.1,"B",2,2)=""
^DD("IX",444,11.1,"B",3,3)=""
^DD("IX",444,11.1,"B",4,4)=""
^DD("IX",444,11.1,"B",5,5)=""
^DD("IX",444,11.1,"BB",1,1)=""
^DD("IX",444,11.1,"BB",2,2)=""
^DD("IX",444,11.1,"BB",3,3)=""
^DD("IX",444,11.1,"BB",4,4)=""
^DD("IX",444,11.1,"BB",5,5)=""
^DD("IX",445,0)="45^ACR9DSD12^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",445,.1,0)="^^11^11^3050110"
^DD("IX",445,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",445,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",445,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",445,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",445,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",445,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",445,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",445,.1,8,0)="exist then the admission date is used."
^DD("IX",445,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD12, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",445,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",445,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",445,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD12"")"
^DD("IX",445,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD12"")"
^DD("IX",445,2.5)="K ^PXRMINDX(45)"
^DD("IX",445,11.1,0)="^.114IA^5^5"
^DD("IX",445,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",445,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",445,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",445,11.1,4,0)="4^F^45^79.243^^4^F"
^DD("IX",445,11.1,5,0)="5^F^45^70"
^DD("IX",445,11.1,"AC",1,1)=""
^DD("IX",445,11.1,"AC",2,2)=""
^DD("IX",445,11.1,"AC",3,3)=""
^DD("IX",445,11.1,"AC",4,4)=""
^DD("IX",445,11.1,"B",1,1)=""
^DD("IX",445,11.1,"B",2,2)=""
^DD("IX",445,11.1,"B",3,3)=""
^DD("IX",445,11.1,"B",4,4)=""
^DD("IX",445,11.1,"B",5,5)=""
^DD("IX",445,11.1,"BB",1,1)=""
^DD("IX",445,11.1,"BB",2,2)=""
^DD("IX",445,11.1,"BB",3,3)=""
^DD("IX",445,11.1,"BB",4,4)=""
^DD("IX",445,11.1,"BB",5,5)=""
^DD("IX",446,0)="45^ACR9DSD13^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^45^^^^^A"
^DD("IX",446,.1,0)="^^11^11^3050110"
^DD("IX",446,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",446,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",446,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",446,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",446,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",446,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",446,.1,7,0)="respectively. DATE is the discharge date. If it does not"
^DD("IX",446,.1,8,0)="exist then the admission date is used."
^DD("IX",446,.1,9,0)="NAME is the name of the ICD9 code field. An example is D SD13, where D SD tells us it is a discharge secondary diagnosis."
^DD("IX",446,.1,10,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",446,.1,11,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",446,1)="D SDGPT9D^DGPTDDCR(.X,.DA,""D SD13"")"
^DD("IX",446,2)="D KDGPT9D^DGPTDDCR(.X,.DA,""D SD13"")"
^DD("IX",446,2.5)="K ^PXRMINDX(45)"
^DD("IX",446,11.1,0)="^.114IA^5^5"
^DD("IX",446,11.1,1,0)="1^F^45^.01^^1^F"
^DD("IX",446,11.1,2,0)="2^F^45^2^^2^F"
^DD("IX",446,11.1,3,0)="3^F^45^11^^3^F"
^DD("IX",446,11.1,4,0)="4^F^45^79.244^^4^F"
^DD("IX",446,11.1,5,0)="5^F^45^70"
^DD("IX",446,11.1,"AC",1,1)=""
^DD("IX",446,11.1,"AC",2,2)=""
^DD("IX",446,11.1,"AC",3,3)=""
^DD("IX",446,11.1,"AC",4,4)=""
^DD("IX",446,11.1,"B",1,1)=""
^DD("IX",446,11.1,"B",2,2)=""
^DD("IX",446,11.1,"B",3,3)=""
^DD("IX",446,11.1,"B",4,4)=""
^DD("IX",446,11.1,"B",5,5)=""
^DD("IX",446,11.1,"BB",1,1)=""
^DD("IX",446,11.1,"BB",2,2)=""
^DD("IX",446,11.1,"BB",3,3)=""
^DD("IX",446,11.1,"BB",4,4)=""
^DD("IX",446,11.1,"BB",5,5)=""
^DD("IX",447,0)="45^ACR9MICD1^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",447,.1,0)="^^10^10^3050110"
^DD("IX",447,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",447,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",447,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",447,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",447,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",447,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",447,.1,7,0)="respectively. DATE is movement date."
^DD("IX",447,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD1, where M tells us it is a movement diagnosis."
^DD("IX",447,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",447,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",447,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD1"")"
^DD("IX",447,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD1"")"
^DD("IX",447,2.5)="K ^PXRMINDX(45)"
^DD("IX",447,11.1,0)="^.114IA^2^2"
^DD("IX",447,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",447,11.1,1,3)=""
^DD("IX",447,11.1,2,0)="2^F^45.02^5^^2^F"
^DD("IX",447,11.1,2,3)=""
^DD("IX",447,11.1,"AC",1,1)=""
^DD("IX",447,11.1,"AC",2,2)=""
^DD("IX",447,11.1,"B",1,1)=""
^DD("IX",447,11.1,"B",2,2)=""
^DD("IX",447,11.1,"BB",1,1)=""
^DD("IX",447,11.1,"BB",2,2)=""
^DD("IX",448,0)="45^ACR9MICD2^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",448,.1,0)="^^10^10^3050110"
^DD("IX",448,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",448,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",448,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",448,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",448,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",448,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",448,.1,7,0)="respectively. DATE is movement date."
^DD("IX",448,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD2, where M tells us it is a movement diagnosis."
^DD("IX",448,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",448,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",448,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD2"")"
^DD("IX",448,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD2"")"
^DD("IX",448,2.5)="K ^PXRMINDX(45)"
^DD("IX",448,11.1,0)="^.114IA^2^2"
^DD("IX",448,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",448,11.1,2,0)="2^F^45.02^6^^2^F"
^DD("IX",448,11.1,"AC",1,1)=""
^DD("IX",448,11.1,"AC",2,2)=""
^DD("IX",448,11.1,"B",1,1)=""
^DD("IX",448,11.1,"B",2,2)=""
^DD("IX",448,11.1,"BB",1,1)=""
^DD("IX",448,11.1,"BB",2,2)=""
^DD("IX",449,0)="45^ACR9MICD3^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",449,.1,0)="^^10^10^3050110"
^DD("IX",449,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",449,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",449,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",449,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",449,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",449,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",449,.1,7,0)="respectively. DATE is movement date."
^DD("IX",449,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD3, where M tells us it is a movement diagnosis."
^DD("IX",449,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",449,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",449,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD3"")"
^DD("IX",449,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD3"")"
^DD("IX",449,2.5)="K ^PXRMINDX(45)"
^DD("IX",449,11.1,0)="^.114IA^2^2"
^DD("IX",449,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",449,11.1,2,0)="2^F^45.02^7^^2^F"
^DD("IX",449,11.1,"AC",1,1)=""
^DD("IX",449,11.1,"AC",2,2)=""
^DD("IX",449,11.1,"B",1,1)=""
^DD("IX",449,11.1,"B",2,2)=""
^DD("IX",449,11.1,"BB",1,1)=""
^DD("IX",449,11.1,"BB",2,2)=""
^DD("IX",450,0)="45^ACR9MICD4^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",450,.1,0)="^^10^10^3050110"
^DD("IX",450,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",450,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",450,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",450,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",450,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",450,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",450,.1,7,0)="respectively. DATE is movement date."
^DD("IX",450,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD4, where M tells us it is a movement diagnosis."
^DD("IX",450,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",450,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",450,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD4"")"
^DD("IX",450,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD4"")"
^DD("IX",450,2.5)="K ^PXRMINDX(45)"
^DD("IX",450,11.1,0)="^.114IA^2^2"
^DD("IX",450,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",450,11.1,2,0)="2^F^45.02^8^^2^F"
^DD("IX",450,11.1,"AC",1,1)=""
^DD("IX",450,11.1,"AC",2,2)=""
^DD("IX",450,11.1,"B",1,1)=""
^DD("IX",450,11.1,"B",2,2)=""
^DD("IX",450,11.1,"BB",1,1)=""
^DD("IX",450,11.1,"BB",2,2)=""
^DD("IX",451,0)="45^ACR9MICD5^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",451,.1,0)="^^10^10^3050110"
^DD("IX",451,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",451,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",451,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",451,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",451,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",451,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",451,.1,7,0)="respectively. DATE is movement date."
^DD("IX",451,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD5, where M tells us it is a movement diagnosis."
^DD("IX",451,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",451,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",451,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD5"")"
^DD("IX",451,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD5"")"
^DD("IX",451,2.5)="K ^PXRMINDX(45)"
^DD("IX",451,11.1,0)="^.114IA^2^2"
^DD("IX",451,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",451,11.1,2,0)="2^F^45.02^9^^2^F"
^DD("IX",451,11.1,"AC",1,1)=""
^DD("IX",451,11.1,"AC",2,2)=""
^DD("IX",451,11.1,"B",1,1)=""
^DD("IX",451,11.1,"B",2,2)=""
^DD("IX",451,11.1,"BB",1,1)=""
^DD("IX",451,11.1,"BB",2,2)=""
^DD("IX",452,0)="45^ACR9MICD6^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",452,.1,0)="^^10^10^3050110"
^DD("IX",452,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",452,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",452,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",452,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",452,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",452,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",452,.1,7,0)="respectively. DATE is movement date."
^DD("IX",452,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD6, where M tells us it is a movement diagnosis."
^DD("IX",452,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",452,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",452,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD6"")"
^DD("IX",452,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD6"")"
^DD("IX",452,2.5)="K ^PXRMINDX(45)"
^DD("IX",452,11.1,0)="^.114IA^2^2"
^DD("IX",452,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",452,11.1,2,0)="2^F^45.02^11^^2^F"
^DD("IX",452,11.1,"AC",1,1)=""
^DD("IX",452,11.1,"AC",2,2)=""
^DD("IX",452,11.1,"B",1,1)=""
^DD("IX",452,11.1,"B",2,2)=""
^DD("IX",452,11.1,"BB",1,1)=""
^DD("IX",452,11.1,"BB",2,2)=""
^DD("IX",453,0)="45^ACR9MICD7^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",453,.1,0)="^^10^10^3050110"
^DD("IX",453,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",453,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",453,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",453,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",453,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",453,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",453,.1,7,0)="respectively. DATE is movement date."
^DD("IX",453,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD7, where M tells us it is a movement diagnosis."
^DD("IX",453,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",453,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",453,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD7"")"
^DD("IX",453,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD7"")"
^DD("IX",453,2.5)="K ^PXRMINDX(45)"
^DD("IX",453,11.1,0)="^.114IA^2^2"
^DD("IX",453,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",453,11.1,2,0)="2^F^45.02^12^^2^F"
^DD("IX",453,11.1,"AC",1,1)=""
^DD("IX",453,11.1,"AC",2,2)=""
^DD("IX",453,11.1,"B",1,1)=""
^DD("IX",453,11.1,"B",2,2)=""
^DD("IX",453,11.1,"BB",1,1)=""
^DD("IX",453,11.1,"BB",2,2)=""
^DD("IX",454,0)="45^ACR9MICD8^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",454,.1,0)="^^10^10^3050110"
^DD("IX",454,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",454,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",454,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",454,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",454,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",454,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",454,.1,7,0)="respectively. DATE is movement date."
^DD("IX",454,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD8, where M tells us it is a movement diagnosis."
^DD("IX",454,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",454,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",454,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD8"")"
^DD("IX",454,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD8"")"
^DD("IX",454,2.5)="K ^PXRMINDX(45)"
^DD("IX",454,11.1,0)="^.114IA^2^2"
^DD("IX",454,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",454,11.1,2,0)="2^F^45.02^13^^2^F"
^DD("IX",454,11.1,"AC",1,1)=""
^DD("IX",454,11.1,"AC",2,2)=""
^DD("IX",454,11.1,"B",1,1)=""
^DD("IX",454,11.1,"B",2,2)=""
^DD("IX",454,11.1,"BB",1,1)=""
^DD("IX",454,11.1,"BB",2,2)=""
^DD("IX",455,0)="45^ACR9MICD9^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",455,.1,0)="^^10^10^3050110"
^DD("IX",455,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",455,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",455,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",455,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",455,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",455,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",455,.1,7,0)="respectively. DATE is movement date."
^DD("IX",455,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD9, where M tells us it is a movement diagnosis."
^DD("IX",455,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",455,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",455,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD9"")"
^DD("IX",455,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD9"")"
^DD("IX",455,2.5)="K ^PXRMINDX(45)"
^DD("IX",455,11.1,0)="^.114IA^2^2"
^DD("IX",455,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",455,11.1,2,0)="2^F^45.02^14^^2^F"
^DD("IX",455,11.1,"AC",1,1)=""
^DD("IX",455,11.1,"AC",2,2)=""
^DD("IX",455,11.1,"B",1,1)=""
^DD("IX",455,11.1,"B",2,2)=""
^DD("IX",455,11.1,"BB",1,1)=""
^DD("IX",455,11.1,"BB",2,2)=""
^DD("IX",456,0)="45^ACR9MICD10^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^W^45.02^^^^^A"
^DD("IX",456,.1,0)="^^10^10^3050110"
^DD("IX",456,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",456,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",456,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",456,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",456,.1,5,0)=" ^PXRMINDX(45,""ICD9"",""INP"",ICD9,NAME,DFN,DATE,DAS) and"
^DD("IX",456,.1,6,0)=" ^PXRMINDX(45,""ICD9"",""PNI"",DFN,NAME,ICD9,DATE,DAS)"
^DD("IX",456,.1,7,0)="respectively. DATE is movement date."
^DD("IX",456,.1,8,0)="NAME is the name of the ICD9 code field. An example is M ICD10, where M tells us it is a movement diagnosis."
^DD("IX",456,.1,9,0)="If the TYPE OF RECORD is CENSUS then the entry is not indexed."
^DD("IX",456,.1,10,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",456,1)="D SDGPT9M^DGPTDDCR(.X,.DA,""M ICD10"")"
^DD("IX",456,2)="D KDGPT9M^DGPTDDCR(.X,.DA,""M ICD10"")"
^DD("IX",456,2.5)="K ^PXRMINDX(45)"
^DD("IX",456,11.1,0)="^.114IA^2^2"
^DD("IX",456,11.1,1,0)="1^F^45.02^10^^1^F"
^DD("IX",456,11.1,2,0)="2^F^45.02^15^^2^F"
^DD("IX",456,11.1,"AC",1,1)=""
^DD("IX",456,11.1,"AC",2,2)=""
^DD("IX",456,11.1,"B",1,1)=""
^DD("IX",456,11.1,"B",2,2)=""
^DD("IX",456,11.1,"BB",1,1)=""
^DD("IX",456,11.1,"BB",2,2)=""
^DD("IX",457,0)="44^ACST^Index credit stop codes^R^^F^IR^I^44^^^^^S"
^DD("IX",457,.1,0)="^^2^2^3041228"
^DD("IX",457,.1,1,0)="This index can be used to find all hospital locations in a"
^DD("IX",457,.1,2,0)="credit stop code."
^DD("IX",457,1)="S ^SC(""ACST"",X,DA)="""""
^DD("IX",457,2)="K ^SC(""ACST"",X,DA)"
^DD("IX",457,2.5)="K ^SC(""ACST"")"
^DD("IX",457,11.1,0)="^.114IA^1^1"
^DD("IX",457,11.1,1,0)="1^F^44^2503^^1^F"
^DD("IX",457,11.1,"AC",1,1)=""
^DD("IX",457,11.1,"B",1,1)=""
^DD("IX",457,11.1,"BB",1,1)=""
^DD("IX",458,0)="44^AST^Index stop codes^R^^F^IR^I^44^^^^^S"
^DD("IX",458,.1,0)="^^2^2^3041228"
^DD("IX",458,.1,1,0)="This index can be used to find all hospital locations in a"
^DD("IX",458,.1,2,0)="stop code."
^DD("IX",458,1)="S ^SC(""AST"",X,DA)="""""
^DD("IX",458,2)="K ^SC(""AST"",X,DA)"
^DD("IX",458,2.5)="K ^SC(""AST"")"
^DD("IX",458,11.1,0)="^.114IA^1^1"
^DD("IX",458,11.1,1,0)="1^F^44^8^^1^F"
^DD("IX",458,11.1,"AC",1,1)=""
^DD("IX",458,11.1,"B",1,1)=""
^DD("IX",458,11.1,"BB",1,1)=""
^DD("IX",459,0)="9000011^ACR^Clinical Reminders index for ICD9 lookup.^MU^^R^IR^I^9000011^^^^^A"
^DD("IX",459,.1,0)="^^17^17^3041228"
^DD("IX",459,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",459,.1,2,0)="all patients with a particular ICD9 code and one for"
^DD("IX",459,.1,3,0)="finding all the ICD9 codes a patient has. The indexes are"
^DD("IX",459,.1,4,0)="stored in the Clinical Reminders index global as:"
^DD("IX",459,.1,5,0)=" ^PXRMINDX(9000011,""ISPP"",ICD9,STATUS,PRIORITY,DFN,DLM,DAS)"
^DD("IX",459,.1,6,0)=" ^PXRMINDX(9000011,""PSPI"",DFN,STATUS,PRIORITY,ICD9,DLM,DAS)"
^DD("IX",459,.1,7,0)="respectively."
^DD("IX",459,.1,8,0)=" "
^DD("IX",459,.1,9,0)="STATUS can be ""A"" for active or ""I"" for inactive."
^DD("IX",459,.1,10,0)="PRIORITY can be ""A"" for acute or ""C"" for chronic. If"
^DD("IX",459,.1,11,0)="PRIORITY is missing then a ""U"" will be stored in the index."
^DD("IX",459,.1,12,0)="For Problems whose PRIORITY is ""C"" Clinical Reminders uses"
^DD("IX",459,.1,13,0)="today's date for the date of the Problem. In all other"
^DD("IX",459,.1,14,0)="cases Clinical Reminders uses DLM where DLM is the date last modified."
^DD("IX",459,.1,15,0)="When Problems are ""removed"" then CONDITION is set"
^DD("IX",459,.1,16,0)="to ""H"" for hidden. Hidden Problems are not indexed."
^DD("IX",459,.1,17,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",459,1)="D SPROB^GMPLPXRM(.X,.DA)"
^DD("IX",459,2)="D KPROB^GMPLPXRM(.X,.DA)"
^DD("IX",459,2.5)="K ^PXRMINDX(9000011)"
^DD("IX",459,11.1,0)="^.114IA^6^6"
^DD("IX",459,11.1,1,0)="1^F^9000011^.01^^1^F"
^DD("IX",459,11.1,2,0)="2^F^9000011^.02^^2^F"
^DD("IX",459,11.1,3,0)="3^F^9000011^.03^^3^F"
^DD("IX",459,11.1,4,0)="4^F^9000011^.12^^4^F"
^DD("IX",459,11.1,5,0)="5^F^9000011^1.14"
^DD("IX",459,11.1,6,0)="6^F^9000011^1.02"
^DD("IX",459,11.1,"AC",1,1)=""
^DD("IX",459,11.1,"AC",2,2)=""
^DD("IX",459,11.1,"AC",3,3)=""
^DD("IX",459,11.1,"AC",4,4)=""
^DD("IX",459,11.1,"B",1,1)=""
^DD("IX",459,11.1,"B",2,2)=""
^DD("IX",459,11.1,"B",3,3)=""
^DD("IX",459,11.1,"B",4,4)=""
^DD("IX",459,11.1,"B",5,5)=""
^DD("IX",459,11.1,"B",6,6)=""
^DD("IX",459,11.1,"BB",1,1)=""
^DD("IX",459,11.1,"BB",2,2)=""
^DD("IX",459,11.1,"BB",3,3)=""
^DD("IX",459,11.1,"BB",4,4)=""
^DD("IX",459,11.1,"BB",5,5)=""
^DD("IX",459,11.1,"BB",6,6)=""
^DD("IX",460,0)="120.5^ACR^Clinical Reminders cross-reference.^MU^^R^IR^I^120.5^^^^^A"
^DD("IX",460,.1,0)="^^9^9^3041228"
^DD("IX",460,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",460,.1,2,0)="all patients with a particular vital measurement and one for finding all"
^DD("IX",460,.1,3,0)="the vital measurements a patient has."
^DD("IX",460,.1,4,0)="The index is stored in the Clinical Reminders index global as:"
^DD("IX",460,.1,5,0)=" ^PXRMINDX(120.5,""IP"",MEASUREMENT,DFN,DATE/TIME TAKEN,DAS)"
^DD("IX",460,.1,6,0)=" ^PXRMINDX(120.5,""PI"",DFN,MEASUREMENT,DATE/TIME TAKEN,DAS)"
^DD("IX",460,.1,7,0)="Entries that are marked as entered-in-error are not indexed."
^DD("IX",460,.1,8,0)="Permission to use the PXRM namespace is documented in IAs 3736 and 4114."
^DD("IX",460,.1,9,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",460,1)="D SVITAL^GMVPXRM(.X,.DA)"
^DD("IX",460,2)="D KVITAL^GMVPXRM(.X,.DA)"
^DD("IX",460,2.5)="K ^PXRMINDX(120.5)"
^DD("IX",460,11.1,0)="^.114IA^4^4"
^DD("IX",460,11.1,1,0)="1^F^120.5^.01^^1^F"
^DD("IX",460,11.1,2,0)="2^F^120.5^.02^^2^F"
^DD("IX",460,11.1,3,0)="3^F^120.5^.03^^3^F"
^DD("IX",460,11.1,4,0)="4^F^120.5^2"
^DD("IX",460,11.1,"AC",1,1)=""
^DD("IX",460,11.1,"AC",2,2)=""
^DD("IX",460,11.1,"AC",3,3)=""
^DD("IX",460,11.1,"B",1,1)=""
^DD("IX",460,11.1,"B",2,2)=""
^DD("IX",460,11.1,"B",3,3)=""
^DD("IX",460,11.1,"B",4,4)=""
^DD("IX",460,11.1,"BB",1,1)=""
^DD("IX",460,11.1,"BB",2,2)=""
^DD("IX",460,11.1,"BB",3,3)=""
^DD("IX",460,11.1,"BB",4,4)=""
^DD("IX",461,0)="52^ACRO^Clinical Reminders index.^MU^^F^IR^I^52^^^^^A"
^DD("IX",461,.1,0)="^^9^9^3041228"
^DD("IX",461,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",461,.1,2,0)="all patients with a particular drug and one for"
^DD("IX",461,.1,3,0)="finding all the drugs a patient has. The indexes are"
^DD("IX",461,.1,4,0)="stored in the Clinical Reminders index global as:"
^DD("IX",461,.1,5,0)=" ^PXRMINDX(52,""IP"",DRUG,DFN,START DATE,STOP DATE,DAS)"
^DD("IX",461,.1,6,0)=" ^PXRMINDX(52,""PI"",DFN,DRUG,START DATE,STOP DATE,DAS)"
^DD("IX",461,.1,7,0)="respectively. START DATE is the RELEASE DATE and STOP DATE is"
^DD("IX",461,.1,8,0)="calculated by adding the DAYS SUPPLY to the RELEASE DATE."
^DD("IX",461,.1,9,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",461,1)="D SKIDX^PSOPXRMU(.X,.DA,""O"",""S"")"
^DD("IX",461,2)="D SKIDX^PSOPXRMU(.X,.DA,""O"",""K"")"
^DD("IX",461,2.5)="Q"
^DD("IX",461,11.1,0)="^.114IA^2^2"
^DD("IX",461,11.1,1,0)="1^F^52^8^^1^F"
^DD("IX",461,11.1,2,0)="2^F^52^31^^2^F"
^DD("IX",461,11.1,"AC",1,1)=""
^DD("IX",461,11.1,"AC",2,2)=""
^DD("IX",461,11.1,"B",1,1)=""
^DD("IX",461,11.1,"B",2,2)=""
^DD("IX",461,11.1,"BB",1,1)=""
^DD("IX",461,11.1,"BB",2,2)=""
^DD("IX",462,0)="52^ACRR^Clinical Reminders index.^MU^^F^IR^W^52.1^^^^^A"
^DD("IX",462,.1,0)="^^9^9^3041228"
^DD("IX",462,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",462,.1,2,0)="all patients with a particular drug and one for"
^DD("IX",462,.1,3,0)="finding all the drugs a patient has. The indexes are"
^DD("IX",462,.1,4,0)="stored in the Clinical Reminders index global as:"
^DD("IX",462,.1,5,0)=" ^PXRMINDX(52,""IP"",DRUG,DFN,START DATE,STOP DATE,DAS)"
^DD("IX",462,.1,6,0)=" ^PXRMINDX(52,""PI"",DFN,DRUG,START DATE,STOP DATE,DAS)"
^DD("IX",462,.1,7,0)="respectively. START DATE is the RELEASE DATE and STOP DATE is"
^DD("IX",462,.1,8,0)="calculated by adding the DAYS SUPPLY to the RELEASE DATE."
^DD("IX",462,.1,9,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",462,1)="D SKIDX^PSOPXRMU(.X,.DA,""R"",""S"")"
^DD("IX",462,2)="D SKIDX^PSOPXRMU(.X,.DA,""R"",""K"")"
^DD("IX",462,2.5)="Q"
^DD("IX",462,11.1,0)="^.114IA^2^2"
^DD("IX",462,11.1,1,0)="1^F^52.1^1.1^^1^F"
^DD("IX",462,11.1,2,0)="2^F^52.1^17^^2^F"
^DD("IX",462,11.1,"AC",1,1)=""
^DD("IX",462,11.1,"AC",2,2)=""
^DD("IX",462,11.1,"B",1,1)=""
^DD("IX",462,11.1,"B",2,2)=""
^DD("IX",462,11.1,"BB",1,1)=""
^DD("IX",462,11.1,"BB",2,2)=""
^DD("IX",463,0)="52^ACRP^Clinical Reminders index.^MU^^F^IR^W^52.2^^^^^A"
^DD("IX",463,.1,0)="^^9^9^3041228"
^DD("IX",463,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",463,.1,2,0)="all patients with a particular drug and one for"
^DD("IX",463,.1,3,0)="finding all the drugs a patient has. The indexes are"
^DD("IX",463,.1,4,0)="stored in the Clinical Reminders index global as:"
^DD("IX",463,.1,5,0)=" ^PXRMINDX(52,""IP"",DRUG,DFN,START DATE,STOP DATE,DAS)"
^DD("IX",463,.1,6,0)=" ^PXRMINDX(52,""PI"",DFN,DRUG,START DATE,STOP DATE,DAS)"
^DD("IX",463,.1,7,0)="respectively. START DATE is the RELEASE DATE and STOP DATE is"
^DD("IX",463,.1,8,0)="calculated by adding the DAYS SUPPLY to the RELEASE DATE."
^DD("IX",463,.1,9,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",463,1)="D SKIDX^PSOPXRMU(.X,.DA,""P"",""S"")"
^DD("IX",463,2)="D SKIDX^PSOPXRMU(.X,.DA,""P"",""K"")"
^DD("IX",463,2.5)="Q"
^DD("IX",463,11.1,0)="^.114IA^2^2"
^DD("IX",463,11.1,1,0)="1^F^52.2^.041^^1^F"
^DD("IX",463,11.1,2,0)="2^F^52.2^8^^2^F"
^DD("IX",463,11.1,"AC",1,1)=""
^DD("IX",463,11.1,"AC",2,2)=""
^DD("IX",463,11.1,"B",1,1)=""
^DD("IX",463,11.1,"B",2,2)=""
^DD("IX",463,11.1,"BB",1,1)=""
^DD("IX",463,11.1,"BB",2,2)=""
^DD("IX",464,0)="55^ACRNVA^Clinical Reminders index.^MU^^R^IR^W^55.05^^^^^A"
^DD("IX",464,.1,0)="^^9^9^3041228"
^DD("IX",464,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",464,.1,2,0)="all patients with a pharmacy orderable item and one for"
^DD("IX",464,.1,3,0)="finding all the pharmacy orderable items a patient has. The indexes are"
^DD("IX",464,.1,4,0)="stored in the Clinical Reminders index global as:"
^DD("IX",464,.1,5,0)=" ^PXRMINDX(""55NVA"",""IP"",POI,DFN,START DATE,STOP DATE,DAS)"
^DD("IX",464,.1,6,0)=" ^PXRMINDX(""55NVA"",""PI"",DFN,POI,START DATE,STOP DATE,DAS)"
^DD("IX",464,.1,7,0)="respectively. POI is the pharmacy orderable item."
^DD("IX",464,.1,8,0)="If there is no START DATE then the DOCUMENTED DATE is used in its place."
^DD("IX",464,.1,9,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",464,1)="D SNVA^PSOPXRMU(.X,.DA)"
^DD("IX",464,2)="D KNVA^PSOPXRMU(.X,.DA)"
^DD("IX",464,2.5)="K ^PXRMINDX(""55NVA"")"
^DD("IX",464,11.1,0)="^.114IA^4^4"
^DD("IX",464,11.1,1,0)="1^F^55.05^.01^^1^F"
^DD("IX",464,11.1,2,0)="2^F^55.05^11^^2^F"
^DD("IX",464,11.1,3,0)="3^F^55.05^8"
^DD("IX",464,11.1,4,0)="4^F^55.05^6"
^DD("IX",464,11.1,"AC",1,1)=""
^DD("IX",464,11.1,"AC",2,2)=""
^DD("IX",464,11.1,"B",1,1)=""
^DD("IX",464,11.1,"B",2,2)=""
^DD("IX",464,11.1,"B",3,3)=""
^DD("IX",464,11.1,"B",4,4)=""
^DD("IX",464,11.1,"BB",1,1)=""
^DD("IX",464,11.1,"BB",2,2)=""
^DD("IX",464,11.1,"BB",3,3)=""
^DD("IX",464,11.1,"BB",4,4)=""
^DD("IX",465,0)="55^ACRUD^Clinical Reminders index.^MU^^R^IR^W^55.06^^^^^A"
^DD("IX",465,.1,0)="^^8^8^3041215"
^DD("IX",465,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",465,.1,2,0)="all patients with a particular drug and one for"
^DD("IX",465,.1,3,0)="finding all the drugs a patient has. The indexes are"
^DD("IX",465,.1,4,0)="stored in the Clinical Reminders index global as:"
^DD("IX",465,.1,5,0)=" ^PXRMINDX(55,""IP"",DRUG,DFN,START,STOP,DAS)"
^DD("IX",465,.1,6,0)=" ^PXRMINDX(55,""PI"",DFN,DRUG,START,STOP,DAS)"
^DD("IX",465,.1,7,0)="respectively. START is the start date and STOP is the stop date."
^DD("IX",465,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",465,1)="D SPSPA^PSJXRFS(.X,.DA,""UD"")"
^DD("IX",465,1.4)="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
^DD("IX",465,2)="D KPSPA^PSJXRFK(.X,.DA,""UD"")"
^DD("IX",465,2.4)="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
^DD("IX",465,2.5)="K ^PXRMINDX(55)"
^DD("IX",465,11.1,0)="^.114IA^2^2"
^DD("IX",465,11.1,1,0)="1^F^55.06^10^^1^F"
^DD("IX",465,11.1,2,0)="2^F^55.06^34^^2^F"
^DD("IX",465,11.1,"AC",1,1)=""
^DD("IX",465,11.1,"AC",2,2)=""
^DD("IX",465,11.1,"B",1,1)=""
^DD("IX",465,11.1,"B",2,2)=""
^DD("IX",465,11.1,"BB",1,1)=""
^DD("IX",465,11.1,"BB",2,2)=""
^DD("IX",466,0)="55^ACRIV^Clinical Reminders index.^MU^^R^IR^W^55.01^^^^^A"
^DD("IX",466,.1,0)="^^8^8^3041215"
^DD("IX",466,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",466,.1,2,0)="all patients with a particular drug and one for"
^DD("IX",466,.1,3,0)="finding all the drugs a patient has. The indexes are"
^DD("IX",466,.1,4,0)="stored in the Clinical Reminders index global as:"
^DD("IX",466,.1,5,0)=" ^PXRMINDX(55,""IP"",DRUG,DFN,START,STOP,DAS)"
^DD("IX",466,.1,6,0)=" ^PXRMINDX(55,""PI"",DFN,DRUG,START,STOP,DAS)"
^DD("IX",466,.1,7,0)="respectively. START is the start date and STOP is the stop date."
^DD("IX",466,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",466,1)="D SPSPA^PSJXRFS(.X,.DA,""IV"")"
^DD("IX",466,1.4)="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
^DD("IX",466,2)="D KPSPA^PSJXRFK(.X,.DA,""IV"")"
^DD("IX",466,2.4)="S X=$$PATCH^XPDUTL(""PXRM*1.5*12"")"
^DD("IX",466,2.5)="K ^PXRMINDX(55)"
^DD("IX",466,11.1,0)="^.114IA^2^2"
^DD("IX",466,11.1,1,0)="1^F^55.01^.02^^1^F"
^DD("IX",466,11.1,2,0)="2^F^55.01^.03^^2^F"
^DD("IX",466,11.1,"AC",1,1)=""
^DD("IX",466,11.1,"AC",2,2)=""
^DD("IX",466,11.1,"B",1,1)=""
^DD("IX",466,11.1,"B",2,2)=""
^DD("IX",466,11.1,"BB",1,1)=""
^DD("IX",466,11.1,"BB",2,2)=""
^DD("IX",467,0)="9000010.18^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.18^^^^^A"
^DD("IX",467,.1,0)="^^8^8^3041228"
^DD("IX",467,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",467,.1,2,0)="all patients with a particular CPT code and one for finding all"
^DD("IX",467,.1,3,0)="the CPT codes a patient has."
^DD("IX",467,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",467,.1,5,0)=" ^PXRMINDX(9000010.18,""IPP"",CPT CODE,PP,DFN,VISIT DATE,DAS) and"
^DD("IX",467,.1,6,0)=" ^PXRMINDX(9000010.18,""PPI"",DFN,PP,CPT CODE,VISIT DATE,DAS)"
^DD("IX",467,.1,7,0)="respectively. PP is the principal procedure code. Possible values are Y (yes), N (no) or U (undefined)."
^DD("IX",467,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",467,1)="D SVFILEC^PXPXRM(9000010.18,.X,.DA)"
^DD("IX",467,2)="D KVFILEC^PXPXRM(9000010.18,.X,.DA)"
^DD("IX",467,2.5)="K ^PXRMINDX(9000010.18)"
^DD("IX",467,11.1,0)="^.114IA^4^4"
^DD("IX",467,11.1,1,0)="1^F^9000010.18^.01^^1^F"
^DD("IX",467,11.1,2,0)="2^F^9000010.18^.02^^2^F"
^DD("IX",467,11.1,3,0)="3^F^9000010.18^.03^^3^F"
^DD("IX",467,11.1,4,0)="4^F^9000010.18^.07"
^DD("IX",467,11.1,"AC",1,1)=""
^DD("IX",467,11.1,"AC",2,2)=""
^DD("IX",467,11.1,"AC",3,3)=""
^DD("IX",467,11.1,"B",1,1)=""
^DD("IX",467,11.1,"B",2,2)=""
^DD("IX",467,11.1,"B",3,3)=""
^DD("IX",467,11.1,"B",4,4)=""
^DD("IX",467,11.1,"BB",1,1)=""
^DD("IX",467,11.1,"BB",2,2)=""
^DD("IX",467,11.1,"BB",3,3)=""
^DD("IX",467,11.1,"BB",4,4)=""
^DD("IX",468,0)="9000010.23^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.23^^^^^A"
^DD("IX",468,.1,0)="^^8^8^3041228"
^DD("IX",468,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",468,.1,2,0)="all patients with a particular health factor and one for finding all"
^DD("IX",468,.1,3,0)="the health factors a patient has."
^DD("IX",468,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",468,.1,5,0)=" ^PXRMINDX(9000010.23,""IP"",HEALTH FACTOR,DFN,VISIT DATE,DAS) and"
^DD("IX",468,.1,6,0)=" ^PXRMINDX(9000010.23,""PI"",DFN,HEALTH FACTOR,VISIT DATE,DAS)"
^DD("IX",468,.1,7,0)="respectively."
^DD("IX",468,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",468,1)="D SVFILE^PXPXRM(9000010.23,.X,.DA)"
^DD("IX",468,2)="D KVFILE^PXPXRM(9000010.23,.X,.DA)"
^DD("IX",468,2.5)="K ^PXRMINDX(9000010.23)"
^DD("IX",468,11.1,0)="^.114IA^3^3"
^DD("IX",468,11.1,1,0)="1^F^9000010.23^.01^^1^F"
^DD("IX",468,11.1,2,0)="2^F^9000010.23^.02^^2^F"
^DD("IX",468,11.1,3,0)="3^F^9000010.23^.03^^3^F"
^DD("IX",468,11.1,"AC",1,1)=""
^DD("IX",468,11.1,"AC",2,2)=""
^DD("IX",468,11.1,"AC",3,3)=""
^DD("IX",468,11.1,"B",1,1)=""
^DD("IX",468,11.1,"B",2,2)=""
^DD("IX",468,11.1,"B",3,3)=""
^DD("IX",468,11.1,"BB",1,1)=""
^DD("IX",468,11.1,"BB",2,2)=""
^DD("IX",468,11.1,"BB",3,3)=""
^DD("IX",469,0)="9000010.23^AED^AED,EVENT DATE AND TIME,DATA SOURCE,DA^R^^R^IR^I^9000010.23^^^^^S"
^DD("IX",469,.1,0)="^^2^2^3041228"
^DD("IX",469,.1,1,0)="This cross-reference creates an index of the Event"
^DD("IX",469,.1,2,0)="Date and Time field and the Data Source field."
^DD("IX",469,1)="S ^AUPNVHF(""AED"",X(1),X(3),X(2),DA)="""""
^DD("IX",469,2)="K ^AUPNVHF(""AED"",X(1),X(3),X(2),DA)"
^DD("IX",469,2.5)="K ^AUPNVHF(""AED"")"
^DD("IX",469,11.1,0)="^.114IA^3^3"
^DD("IX",469,11.1,1,0)="1^F^9000010.23^1201^^1^F"
^DD("IX",469,11.1,2,0)="2^F^9000010.23^81203^^3^F"
^DD("IX",469,11.1,3,0)="3^F^9000010.23^.02^^2^F"
^DD("IX",469,11.1,"AC",1,1)=""
^DD("IX",469,11.1,"AC",2,3)=""
^DD("IX",469,11.1,"AC",3,2)=""
^DD("IX",469,11.1,"B",1,1)=""
^DD("IX",469,11.1,"B",2,2)=""
^DD("IX",469,11.1,"B",3,3)=""
^DD("IX",469,11.1,"BB",1,1)=""
^DD("IX",469,11.1,"BB",2,2)=""
^DD("IX",469,11.1,"BB",3,3)=""
^DD("IX",470,0)="9000010.11^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.11^^^^^A"
^DD("IX",470,.1,0)="^^8^8^3041228"
^DD("IX",470,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",470,.1,2,0)="all patients with a particular immunization and one for finding all"
^DD("IX",470,.1,3,0)="the immunizations a patient has."
^DD("IX",470,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",470,.1,5,0)=" ^PXRMINDX(9000010.11,""IP"",IMMUNIZATION,DFN,VISIT DATE,DAS) and"
^DD("IX",470,.1,6,0)=" ^PXRMINDX(9000010.11,""PI"",DFN,IMMUNIZATION,VISIT DATE,DAS)"
^DD("IX",470,.1,7,0)="respectively."
^DD("IX",470,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",470,1)="D SVFILE^PXPXRM(9000010.11,.X,.DA)"
^DD("IX",470,2)="D KVFILE^PXPXRM(9000010.11,.X,.DA)"
^DD("IX",470,2.5)="K ^PXRMINDX(9000010.11)"
^DD("IX",470,11.1,0)="^.114IA^3^3"
^DD("IX",470,11.1,1,0)="1^F^9000010.11^.01^^1^F"
^DD("IX",470,11.1,2,0)="2^F^9000010.11^.02^^2^F"
^DD("IX",470,11.1,3,0)="3^F^9000010.11^.03^^3^F"
^DD("IX",470,11.1,"AC",1,1)=""
^DD("IX",470,11.1,"AC",2,2)=""
^DD("IX",470,11.1,"AC",3,3)=""
^DD("IX",470,11.1,"B",1,1)=""
^DD("IX",470,11.1,"B",2,2)=""
^DD("IX",470,11.1,"B",3,3)=""
^DD("IX",470,11.1,"BB",1,1)=""
^DD("IX",470,11.1,"BB",2,2)=""
^DD("IX",470,11.1,"BB",3,3)=""
^DD("IX",471,0)="9000010.16^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.16^^^^^A"
^DD("IX",471,.1,0)="^^8^8^3041228"
^DD("IX",471,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",471,.1,2,0)="all patients with a particular education topic and one for finding all"
^DD("IX",471,.1,3,0)="the education topics a patient has."
^DD("IX",471,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",471,.1,5,0)=" ^PXRMINDX(9000010.16,""IP"",EDUCATION TOPIC,DFN,VISIT DATE,DAS) and"
^DD("IX",471,.1,6,0)=" ^PXRMINDX(9000010.16,""PI"",DFN,EDUCATION TOPIC,VISIT DATE,DAS)"
^DD("IX",471,.1,7,0)="respectively."
^DD("IX",471,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",471,1)="D SVFILE^PXPXRM(9000010.16,.X,.DA)"
^DD("IX",471,2)="D KVFILE^PXPXRM(9000010.16,.X,.DA)"
^DD("IX",471,2.5)="K ^PXRMINDX(9000010.16)"
^DD("IX",471,11.1,0)="^.114IA^3^3"
^DD("IX",471,11.1,1,0)="1^F^9000010.16^.01^^1^F"
^DD("IX",471,11.1,2,0)="2^F^9000010.16^.02^^2^F"
^DD("IX",471,11.1,3,0)="3^F^9000010.16^.03^^3^F"
^DD("IX",471,11.1,"AC",1,1)=""
^DD("IX",471,11.1,"AC",2,2)=""
^DD("IX",471,11.1,"AC",3,3)=""
^DD("IX",471,11.1,"B",1,1)=""
^DD("IX",471,11.1,"B",2,2)=""
^DD("IX",471,11.1,"B",3,3)=""
^DD("IX",471,11.1,"BB",1,1)=""
^DD("IX",471,11.1,"BB",2,2)=""
^DD("IX",471,11.1,"BB",3,3)=""
^DD("IX",472,0)="9000010.07^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.07^^^^^A"
^DD("IX",472,.1,0)="^^8^8^3041228"
^DD("IX",472,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",472,.1,2,0)="all patients with a particular ICD9 code and one for finding all"
^DD("IX",472,.1,3,0)="the ICD9 codes a patient has."
^DD("IX",472,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",472,.1,5,0)=" ^PXRMINDX(9000010.07,""IPP"",ICD9 CODE,PS,DFN,VISIT DATE,DAS) and"
^DD("IX",472,.1,6,0)=" ^PXRMINDX(9000010.07,""PPI"",DFN,PS,ICD9 CODE,VISIT DATE,DAS)"
^DD("IX",472,.1,7,0)="respectively. PS is the primary/secondary code. Possible values are P (primary), S (secondary) or U (undefined)."
^DD("IX",472,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",472,1)="D SVFILEC^PXPXRM(9000010.07,.X,.DA)"
^DD("IX",472,2)="D KVFILEC^PXPXRM(9000010.07,.X,.DA)"
^DD("IX",472,2.5)="K ^PXRMINDX(9000010.07)"
^DD("IX",472,11.1,0)="^.114IA^4^4"
^DD("IX",472,11.1,1,0)="1^F^9000010.07^.01^^1^F"
^DD("IX",472,11.1,2,0)="2^F^9000010.07^.02^^2^F"
^DD("IX",472,11.1,3,0)="3^F^9000010.07^.03^^3^F"
^DD("IX",472,11.1,4,0)="4^F^9000010.07^.12"
^DD("IX",472,11.1,"AC",1,1)=""
^DD("IX",472,11.1,"AC",2,2)=""
^DD("IX",472,11.1,"AC",3,3)=""
^DD("IX",472,11.1,"B",1,1)=""
^DD("IX",472,11.1,"B",2,2)=""
^DD("IX",472,11.1,"B",3,3)=""
^DD("IX",472,11.1,"B",4,4)=""
^DD("IX",472,11.1,"BB",1,1)=""
^DD("IX",472,11.1,"BB",2,2)=""
^DD("IX",472,11.1,"BB",3,3)=""
^DD("IX",472,11.1,"BB",4,4)=""
^DD("IX",473,0)="9000010.12^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.12^^^^^A"
^DD("IX",473,.1,0)="^^8^8^3041228"
^DD("IX",473,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",473,.1,2,0)="all patients with a particular skin test and one for finding all"
^DD("IX",473,.1,3,0)="the skin tests a patient has."
^DD("IX",473,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",473,.1,5,0)=" ^PXRMINDX(9000010.12,""IP"",SKIN TEST,DFN,VISIT DATE,DAS) and"
^DD("IX",473,.1,6,0)=" ^PXRMINDX(9000010.12,""PI"",DFN,SKIN TEST,VISIT DATE,DAS)"
^DD("IX",473,.1,7,0)="respectively."
^DD("IX",473,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",473,1)="D SVFILE^PXPXRM(9000010.12,.X,.DA)"
^DD("IX",473,2)="D KVFILE^PXPXRM(9000010.12,.X,.DA)"
^DD("IX",473,2.5)="K ^PXRMINDX(9000010.12)"
^DD("IX",473,11.1,0)="^.114IA^3^3"
^DD("IX",473,11.1,1,0)="1^F^9000010.12^.01^^1^F"
^DD("IX",473,11.1,2,0)="2^F^9000010.12^.02^^2^F"
^DD("IX",473,11.1,3,0)="3^F^9000010.12^.03^^3^F"
^DD("IX",473,11.1,"AC",1,1)=""
^DD("IX",473,11.1,"AC",2,2)=""
^DD("IX",473,11.1,"AC",3,3)=""
^DD("IX",473,11.1,"B",1,1)=""
^DD("IX",473,11.1,"B",2,2)=""
^DD("IX",473,11.1,"B",3,3)=""
^DD("IX",473,11.1,"BB",1,1)=""
^DD("IX",473,11.1,"BB",2,2)=""
^DD("IX",473,11.1,"BB",3,3)=""
^DD("IX",474,0)="9000010.13^ACR^Clinical Reminders index.^MU^^R^IR^I^9000010.13^^^^^A"
^DD("IX",474,.1,0)="^^8^8^3041228"
^DD("IX",474,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",474,.1,2,0)="all patients with a particular exam and one for finding all"
^DD("IX",474,.1,3,0)="the exams a patient has."
^DD("IX",474,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",474,.1,5,0)=" ^PXRMINDX(9000010.13,""IP"",EXAM,DFN,VISIT DATE,DAS) and"
^DD("IX",474,.1,6,0)=" ^PXRMINDX(9000010.13,""PI"",DFN,EXAM,VISIT DATE,DAS)"
^DD("IX",474,.1,7,0)="respectively."
^DD("IX",474,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",474,1)="D SVFILE^PXPXRM(9000010.13,.X,.DA)"
^DD("IX",474,2)="D KVFILE^PXPXRM(9000010.13,.X,.DA)"
^DD("IX",474,2.5)="K ^PXRMINDX(9000010.13)"
^DD("IX",474,11.1,0)="^.114IA^3^3"
^DD("IX",474,11.1,1,0)="1^F^9000010.13^.01^^1^F"
^DD("IX",474,11.1,2,0)="2^F^9000010.13^.02^^2^F"
^DD("IX",474,11.1,3,0)="3^F^9000010.13^.03^^3^F"
^DD("IX",474,11.1,"AC",1,1)=""
^DD("IX",474,11.1,"AC",2,2)=""
^DD("IX",474,11.1,"AC",3,3)=""
^DD("IX",474,11.1,"B",1,1)=""
^DD("IX",474,11.1,"B",2,2)=""
^DD("IX",474,11.1,"B",3,3)=""
^DD("IX",474,11.1,"BB",1,1)=""
^DD("IX",474,11.1,"BB",2,2)=""
^DD("IX",474,11.1,"BB",3,3)=""
^DD("IX",475,0)="70^ACR^Clinical Reminders index.^MU^^R^IR^W^70.03^^^^^A"
^DD("IX",475,.1,0)="^^8^8^3041228"
^DD("IX",475,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",475,.1,2,0)="all patients with a particular radiology procedure and one for finding all"
^DD("IX",475,.1,3,0)="the radiology procedures a patient has."
^DD("IX",475,.1,4,0)="The indexes are stored in the Clinical Reminders index global as:"
^DD("IX",475,.1,5,0)=" ^PXRMINDX(70,""IP"",PROCEDURE,DFN,EXAM DATE,DAS) and"
^DD("IX",475,.1,6,0)=" ^PXRMINDX(70,""PI"",DFN,PROCEDURE,EXAM DATE,DAS)"
^DD("IX",475,.1,7,0)="respectively."
^DD("IX",475,.1,8,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",475,1)="D SRAD^RAPXRM(.X,.DA)"
^DD("IX",475,2)="D KRAD^RAPXRM(.X,.DA)"
^DD("IX",475,2.5)="K ^PXRMINDX(70)"
^DD("IX",475,11.1,0)="^.114IA^1^1"
^DD("IX",475,11.1,1,0)="1^F^70.03^2^^1^F"
^DD("IX",475,11.1,"AC",1,1)=""
^DD("IX",475,11.1,"B",1,1)=""
^DD("IX",475,11.1,"BB",1,1)=""
^DD("IX",476,0)="601.2^ACR^Clinical Reminders cross-reference.^MU^^R^IR^W^601.22^^^^^A"
^DD("IX",476,.1,0)="^^7^7^3041228"
^DD("IX",476,.1,1,0)="This cross-reference builds two indexes, one for finding"
^DD("IX",476,.1,2,0)="all patients with a particular mental health instrument and one for finding all"
^DD("IX",476,.1,3,0)="the mental health instruments a patient has."
^DD("IX",476,.1,4,0)="The index is stored in the Clinical Reminders index global as:"
^DD("IX",476,.1,5,0)=" ^PXRMINDX(601.2,""IP"",INSTRUMENT,DFN,COMPLETION DATE,DAS)"
^DD("IX",476,.1,6,0)=" ^PXRMINDX(601.2,""PI"",DFN,INSTRUMENT,COMPLETION DATE,DAS)"
^DD("IX",476,.1,7,0)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
^DD("IX",476,1)="D SMH^YTPXRM(.X,.DA)"
^DD("IX",476,2)="D KMH^YTPXRM(.X,.DA)"
^DD("IX",476,2.5)="K ^PXRMINDX(601.2)"
^DD("IX",476,11.1,0)="^.114IA^1^1"
^DD("IX",476,11.1,1,0)="1^F^601.22^.01^^1^F"
^DD("IX",476,11.1,"AC",1,1)=""
^DD("IX",476,11.1,"B",1,1)=""
^DD("IX",476,11.1,"BB",1,1)=""
^DD("IX",477,0)="399^AE^Index by patient and insurance company^MU^^R^IR^I^399^^^^^S"
^DD("IX",477,.1,0)="^^7^7^3041021^"
^DD("IX",477,.1,1,0)="Cross reference of patients and bills to payer responsible for the bill."
^DD("IX",477,.1,2,0)="This will be used to prevent deletion of insurance policy entries from the"
^DD("IX",477,.1,3,0)="patient file if a bill has been created for this insurance company."
^DD("IX",477,.1,4,0)=" "
^DD("IX",477,.1,5,0)="Created with patch IB*2.0*288 replacing traditional cross-reference #1 in "
^DD("IX",477,.1,6,0)="field 135 of file 399.  Medicare is now a valid insurance company for "
^DD("IX",477,.1,7,0)="this index file."
^DD("IX",477,1)="N CURR S CURR=+$$COBN^IBCEF(DA) I $G(X(4)),$G(X(CURR)) S ^DGCR(399,""AE"",X(4),X(CURR),DA)="""""
^DD("IX",477,2)="N G I $G(X(4)) F G=1,2,3 I $G(X(G)) K ^DGCR(399,""AE"",X(4),X(G),DA)"
^DD("IX",477,2.5)="K ^DGCR(399,""AE"")"
^DD("IX",477,11.1,0)="^.114IA^4^4"
^DD("IX",477,11.1,1,0)="1^F^399^101^^^F"
^DD("IX",477,11.1,1,3)=""
^DD("IX",477,11.1,2,0)="2^F^399^102^^^F"
^DD("IX",477,11.1,2,3)=""
^DD("IX",477,11.1,3,0)="3^F^399^103^^^F"
^DD("IX",477,11.1,3,3)=""
^DD("IX",477,11.1,4,0)="4^F^399^.02^^^F"
^DD("IX",477,11.1,4,3)=""
^DD("IX",477,11.1,"B",1,1)=""
^DD("IX",477,11.1,"B",2,2)=""
^DD("IX",477,11.1,"B",3,3)=""
^DD("IX",477,11.1,"B",4,4)=""
^DD("IX",477,11.1,"BB",1,1)=""
^DD("IX",477,11.1,"BB",2,2)=""
^DD("IX",477,11.1,"BB",3,3)=""
^DD("IX",477,11.1,"BB",4,4)=""
^DD("IX",478,0)="62.8^C^Reverse x-ref for shipping manifest invoice^R^^F^IR^I^62.8^^^^^LS"
^DD("IX",478,1)="S ^LAHM(62.8,""C"",$E(X,1,30),DA)="""""
^DD("IX",478,2)="K ^LAHM(62.8,""C"",$E(X,1,30),DA)"
^DD("IX",478,2.5)="K ^LAHM(62.8,""C"")"
^DD("IX",478,11.1,0)="^.114IA^1^1"
^DD("IX",478,11.1,1,0)="1^F^62.8^.01^30^1^B"
^DD("IX",478,11.1,1,3)=""
^DD("IX",478,11.1,"AC",1,1)=""
^DD("IX",478,11.1,"B",1,1)=""
^DD("IX",478,11.1,"BB",1,1)=""
^DD("IX",479,0)="577^BB^Message Type Event Type cross-reference^R^^R^IR^I^577^^^^^LS"
^DD("IX",479,1)="S ^VDEFHL7(577,""BB"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",479,2)="K ^VDEFHL7(577,""BB"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",479,2.5)="K ^VDEFHL7(577,""BB"")"
^DD("IX",479,11.1,0)="^.114IA^3^3"
^DD("IX",479,11.1,1,0)="1^F^577^.06^30^1^F"
^DD("IX",479,11.1,2,0)="2^F^577^.02^30^2^F"
^DD("IX",479,11.1,3,0)="3^F^577^.03^30^3^F"
^DD("IX",479,11.1,"AC",1,1)=""
^DD("IX",479,11.1,"AC",2,2)=""
^DD("IX",479,11.1,"AC",3,3)=""
^DD("IX",479,11.1,"B",1,1)=""
^DD("IX",479,11.1,"B",2,2)=""
^DD("IX",479,11.1,"B",3,3)=""
^DD("IX",479,11.1,"BB",1,1)=""
^DD("IX",479,11.1,"BB",2,2)=""
^DD("IX",479,11.1,"BB",3,3)=""
^DD("IX",482,0)="120.8^AHDR^Sends data to HDR upon entry^MU^^R^R^I^120.8^^^^^A"
^DD("IX",482,.1,0)="^^2^2^3041220"
^DD("IX",482,.1,1,0)="This cross reference will send the HDR allergy data upon entry or editing "
^DD("IX",482,.1,2,0)="of allergy related data."
^DD("IX",482,1)="Q:$D(DIU(0))  D SETADR^GMRAHDR"
^DD("IX",482,2)="Q:$D(DIU(0))  D KILLADR^GMRAHDR"
^DD("IX",482,2.5)="Q"
^DD("IX",482,11.1,0)="^.114IA^15^15"
^DD("IX",482,11.1,1,0)="1^F^120.8^.01^^^F"
^DD("IX",482,11.1,2,0)="2^F^120.8^.02^^^F"
^DD("IX",482,11.1,3,0)="3^F^120.8^1^^^F"
^DD("IX",482,11.1,4,0)="4^F^120.8^3.1^^^F"
^DD("IX",482,11.1,5,0)="5^F^120.8^4^^^F"
^DD("IX",482,11.1,6,0)="6^F^120.8^5^^^F"
^DD("IX",482,11.1,7,0)="7^F^120.8^6^^^F"
^DD("IX",482,11.1,8,0)="8^F^120.8^15^^^F"
^DD("IX",482,11.1,9,0)="9^F^120.8^17^^^F"
^DD("IX",482,11.1,10,0)="10^F^120.8^19^^^F"
^DD("IX",482,11.1,11,0)="11^F^120.8^20^^^F"
^DD("IX",482,11.1,12,0)="12^F^120.8^21^^^F"
^DD("IX",482,11.1,13,0)="13^F^120.8^22^^^F"
^DD("IX",482,11.1,14,0)="14^F^120.8^23^^^F"
^DD("IX",482,11.1,15,0)="15^F^120.8^24^^^F"
^DD("IX",482,11.1,"B",1,1)=""
^DD("IX",482,11.1,"B",2,2)=""
^DD("IX",482,11.1,"B",3,3)=""
^DD("IX",482,11.1,"B",4,4)=""
^DD("IX",482,11.1,"B",5,5)=""
^DD("IX",482,11.1,"B",6,6)=""
^DD("IX",482,11.1,"B",7,7)=""
^DD("IX",482,11.1,"B",8,8)=""
^DD("IX",482,11.1,"B",9,9)=""
^DD("IX",482,11.1,"B",10,10)=""
^DD("IX",482,11.1,"B",11,11)=""
^DD("IX",482,11.1,"B",12,12)=""
^DD("IX",482,11.1,"B",13,13)=""
^DD("IX",482,11.1,"B",14,14)=""
^DD("IX",482,11.1,"B",15,15)=""
^DD("IX",482,11.1,"BB",1,1)=""
^DD("IX",482,11.1,"BB",2,2)=""
^DD("IX",482,11.1,"BB",3,3)=""
^DD("IX",482,11.1,"BB",4,4)=""
^DD("IX",482,11.1,"BB",5,5)=""
^DD("IX",482,11.1,"BB",6,6)=""
^DD("IX",482,11.1,"BB",7,7)=""
^DD("IX",482,11.1,"BB",8,8)=""
^DD("IX",482,11.1,"BB",9,9)=""
^DD("IX",482,11.1,"BB",10,10)=""
^DD("IX",482,11.1,"BB",11,11)=""
^DD("IX",482,11.1,"BB",12,12)=""
^DD("IX",482,11.1,"BB",13,13)=""
^DD("IX",482,11.1,"BB",14,14)=""
^DD("IX",482,11.1,"BB",15,15)=""
^DD("IX",483,0)="120.802^AHDR^Send data to HDR upon entry or update^MU^^F^R^I^120.802^^^^^A"
^DD("IX",483,.1,0)="^^1^1^3050118"
^DD("IX",483,.1,1,0)="Sends data to HDR upon entry or edit of drug ingredients."
^DD("IX",483,1)="Q:$D(DIU(0))  D SETADR^GMRAHDR"
^DD("IX",483,2)="Q:$D(DIU(0))  D KILLADR^GMRAHDR"
^DD("IX",483,2.5)="Q"
^DD("IX",483,11.1,0)="^.114IA^1^1"
^DD("IX",483,11.1,1,0)="1^F^120.802^.01^^^F"
^DD("IX",483,11.1,"B",1,1)=""
^DD("IX",483,11.1,"BB",1,1)=""
^DD("IX",484,0)="120.803^AHDR^Send data to HDR upon entry or edit^MU^^F^R^I^120.803^^^^^A"
^DD("IX",484,.1,0)="^^1^1^3050118"
^DD("IX",484,.1,1,0)="Sends data to HDR when drug classes are added or edited."
^DD("IX",484,1)="Q:$D(DIU(0))  D SETADR^GMRAHDR"
^DD("IX",484,2)="Q:$D(DIU(0))  D KILLADR^GMRAHDR"
^DD("IX",484,2.5)="Q"
^DD("IX",484,11.1,0)="^.114IA^1^1"
^DD("IX",484,11.1,1,0)="1^F^120.803^.01^^^F"
^DD("IX",484,11.1,"B",1,1)=""
^DD("IX",484,11.1,"BB",1,1)=""
^DD("IX",485,0)="120.81^AHDR^Send data to HDR upon entry or edit^MU^^R^R^I^120.81^^^^^A"
^DD("IX",485,.1,0)="^^1^1^3041220"
^DD("IX",485,.1,1,0)="Sends data to HDR when reactions (sign/symptoms) are added or edited."
^DD("IX",485,1)="Q:$D(DIU(0))  D SETADR^GMRAHDR"
^DD("IX",485,2)="Q:$D(DIU(0))  D KILLADR^GMRAHDR"
^DD("IX",485,2.5)="Q"
^DD("IX",485,11.1,0)="^.114IA^4^4"
^DD("IX",485,11.1,1,0)="1^F^120.81^.01^^^F"
^DD("IX",485,11.1,2,0)="2^F^120.81^1^^^F"
^DD("IX",485,11.1,3,0)="3^F^120.81^2^^^F"
^DD("IX",485,11.1,4,0)="4^F^120.81^3^^^F"
^DD("IX",485,11.1,"B",1,1)=""
^DD("IX",485,11.1,"B",2,2)=""
^DD("IX",485,11.1,"B",3,3)=""
^DD("IX",485,11.1,"B",4,4)=""
^DD("IX",485,11.1,"BB",1,1)=""
^DD("IX",485,11.1,"BB",2,2)=""
^DD("IX",485,11.1,"BB",3,3)=""
^DD("IX",485,11.1,"BB",4,4)=""
^DD("IX",486,0)="120.826^AHDR^Sends data to HDR upon entry or edit^MU^^R^R^I^120.826^^^^^A"
^DD("IX",486,.1,0)="^^1^1^3050118"
^DD("IX",486,.1,1,0)="Sends data to the HDR when comments are added or updated."
^DD("IX",486,1)="Q:$D(DIU(0))  D SETADR^GMRAHDR"
^DD("IX",486,2)="Q:$D(DIU(0))  D KILLADR^GMRAHDR"
^DD("IX",486,2.5)="Q"
^DD("IX",486,11.1,0)="^.114IA^3^3"
^DD("IX",486,11.1,1,0)="1^F^120.826^.01^^^F"
^DD("IX",486,11.1,2,0)="2^F^120.826^1^^^F"
^DD("IX",486,11.1,3,0)="3^F^120.826^1.5^^^F"
^DD("IX",486,11.1,"B",1,1)=""
^DD("IX",486,11.1,"B",2,2)=""
^DD("IX",486,11.1,"B",3,3)=""
^DD("IX",486,11.1,"BB",1,1)=""
^DD("IX",486,11.1,"BB",2,2)=""
^DD("IX",486,11.1,"BB",3,3)=""
^DD("IX",487,0)="120.813^AHDR^Send HDR data upon entry or edit^MU^^R^R^I^120.813^^^^^A"
^DD("IX",487,.1,0)="^^1^1^3050118"
^DD("IX",487,.1,1,0)="Send HDR updated information when the chart is marked."
^DD("IX",487,1)="Q:$D(DIU(0))  D SETADR^GMRAHDR"
^DD("IX",487,2)="Q:$D(DIU(0))  D KILLADR^GMRAHDR"
^DD("IX",487,2.5)="Q"
^DD("IX",487,11.1,0)="^.114IA^2^2"
^DD("IX",487,11.1,1,0)="1^F^120.813^.01^^^F"
^DD("IX",487,11.1,2,0)="2^F^120.813^1^^^F"
^DD("IX",487,11.1,"B",1,1)=""
^DD("IX",487,11.1,"B",2,2)=""
^DD("IX",487,11.1,"BB",1,1)=""
^DD("IX",487,11.1,"BB",2,2)=""
^DD("IX",488,0)="120.814^AHDR^Send data to HDR upon entry or edit^MU^^R^R^I^120.814^^^^^A"
^DD("IX",488,.1,0)="^^1^1^3050118"
^DD("IX",488,.1,1,0)="Sends data to HDR related to ID BAND when entered or edited."
^DD("IX",488,1)="Q:$D(DIU(0))  D SETADR^GMRAHDR"
^DD("IX",488,2)="Q:$D(DIU(0))  D KILLADR^GMRAHDR"
^DD("IX",488,2.5)="Q"
^DD("IX",488,11.1,0)="^.114IA^2^2"
^DD("IX",488,11.1,1,0)="1^F^120.814^.01^^^F"
^DD("IX",488,11.1,2,0)="2^F^120.814^1^^^F"
^DD("IX",488,11.1,"B",1,1)=""
^DD("IX",488,11.1,"B",2,2)=""
^DD("IX",488,11.1,"BB",1,1)=""
^DD("IX",488,11.1,"BB",2,2)=""
^DD("IX",489,0)="120.86^AHDR^Sends updates to the patient's assessment to the HDR^MU^^R^R^I^120.86^^^^^A"
^DD("IX",489,.1,0)="^^2^2^3050118"
^DD("IX",489,.1,1,0)="Whenever a patient's assessment level changes, that updated"
^DD("IX",489,.1,2,0)="information is sent to the HDR in real time."
^DD("IX",489,1)="Q:$D(DIU(0))  D SETAA^GMRAHDR"
^DD("IX",489,2)="Q:$D(DIU(0))  D KILLAA^GMRAHDR"
^DD("IX",489,2.5)="Q"
^DD("IX",489,11.1,0)="^.114IA^4^4"
^DD("IX",489,11.1,1,0)="1^F^120.86^.01^^^F"
^DD("IX",489,11.1,2,0)="2^F^120.86^1^^^F"
^DD("IX",489,11.1,3,0)="3^F^120.86^2^^^F"
^DD("IX",489,11.1,4,0)="4^F^120.86^3^^^F"
^DD("IX",489,11.1,"B",1,1)=""
^DD("IX",489,11.1,"B",2,2)=""
^DD("IX",489,11.1,"B",3,3)=""
^DD("IX",489,11.1,"B",4,4)=""
^DD("IX",489,11.1,"BB",1,1)=""
^DD("IX",489,11.1,"BB",2,2)=""
^DD("IX",489,11.1,"BB",3,3)=""
^DD("IX",489,11.1,"BB",4,4)=""
^DD("IX",490,0)="120.85^AHDR^Sends data to HDR^MU^^R^R^I^120.85^^^^^A"
^DD("IX",490,.1,0)="^^2^2^3050118"
^DD("IX",490,.1,1,0)="Sends data to HDR upon new entry or upon editing of existing"
^DD("IX",490,.1,2,0)="data."
^DD("IX",490,1)="Q:$D(DIU(0))  D SETOB^GMRAHDR"
^DD("IX",490,2)="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
^DD("IX",490,2.5)="Q"
^DD("IX",490,11.1,0)="^.114IA^53^53"
^DD("IX",490,11.1,1,0)="1^F^120.85^.01^^^F"
^DD("IX",490,11.1,2,0)="2^F^120.85^.02^^^F"
^DD("IX",490,11.1,3,0)="3^F^120.85^.03^^^F"
^DD("IX",490,11.1,4,0)="4^F^120.85^.5^^^F"
^DD("IX",490,11.1,5,0)="5^F^120.85^1.1^^^F"
^DD("IX",490,11.1,6,0)="6^F^120.85^1.2^^^F"
^DD("IX",490,11.1,7,0)="7^F^120.85^5^^^F"
^DD("IX",490,11.1,8,0)="8^F^120.85^6^^^F"
^DD("IX",490,11.1,9,0)="9^F^120.85^7^^^F"
^DD("IX",490,11.1,10,0)="10^F^120.85^8^^^F"
^DD("IX",490,11.1,11,0)="11^F^120.85^9^^^F"
^DD("IX",490,11.1,12,0)="12^F^120.85^9.1^^^F"
^DD("IX",490,11.1,13,0)="13^F^120.85^10^^^F"
^DD("IX",490,11.1,14,0)="14^F^120.85^11^^^F"
^DD("IX",490,11.1,15,0)="15^F^120.85^12^^^F"
^DD("IX",490,11.1,16,0)="16^F^120.85^12.1^^^F"
^DD("IX",490,11.1,17,0)="17^F^120.85^12.2^^^F"
^DD("IX",490,11.1,18,0)="18^F^120.85^14.5^^^F"
^DD("IX",490,11.1,19,0)="19^F^120.85^22^^^F"
^DD("IX",490,11.1,20,0)="20^F^120.85^23^^^F"
^DD("IX",490,11.1,21,0)="21^F^120.85^24^^^F"
^DD("IX",490,11.1,22,0)="22^F^120.85^25^^^F"
^DD("IX",490,11.1,23,0)="23^F^120.85^26^^^F"
^DD("IX",490,11.1,24,0)="24^F^120.85^26.1^^^F"
^DD("IX",490,11.1,25,0)="25^F^120.85^27^^^F"
^DD("IX",490,11.1,26,0)="26^F^120.85^28^^^F"
^DD("IX",490,11.1,27,0)="27^F^120.85^29^^^F"
^DD("IX",490,11.1,28,0)="28^F^120.85^31^^^F"
^DD("IX",490,11.1,29,0)="29^F^120.85^31.1^^^F"
^DD("IX",490,11.1,30,0)="30^F^120.85^31.2^^^F"
^DD("IX",490,11.1,31,0)="31^F^120.85^43^^^F"
^DD("IX",490,11.1,32,0)="32^F^120.85^44^^^F"
^DD("IX",490,11.1,33,0)="33^F^120.85^45^^^F"
^DD("IX",490,11.1,34,0)="34^F^120.85^46^^^F"
^DD("IX",490,11.1,35,0)="35^F^120.85^47^^^F"
^DD("IX",490,11.1,36,0)="36^F^120.85^48^^^F"
^DD("IX",490,11.1,37,0)="37^F^120.85^49^^^F"
^DD("IX",490,11.1,38,0)="38^F^120.85^50^^^F"
^DD("IX",490,11.1,39,0)="39^F^120.85^51^^^F"
^DD("IX",490,11.1,40,0)="40^F^120.85^52^^^F"
^DD("IX",490,11.1,41,0)="41^F^120.85^52.1^^^F"
^DD("IX",490,11.1,42,0)="42^F^120.85^53^^^F"
^DD("IX",490,11.1,43,0)="43^F^120.85^54^^^F"
^DD("IX",490,11.1,44,0)="44^F^120.85^55^^^F"
^DD("IX",490,11.1,45,0)="45^F^120.85^56^^^F"
^DD("IX",490,11.1,46,0)="46^F^120.85^57^^^F"
^DD("IX",490,11.1,47,0)="47^F^120.85^58^^^F"
^DD("IX",490,11.1,48,0)="48^F^120.85^59^^^F"
^DD("IX",490,11.1,49,0)="49^F^120.85^60^^^F"
^DD("IX",490,11.1,50,0)="50^F^120.85^61^^^F"
^DD("IX",490,11.1,51,0)="51^F^120.85^62^^^F"
^DD("IX",490,11.1,52,0)="52^F^120.85^64^^^F"
^DD("IX",490,11.1,53,0)="53^F^120.85^65^^^F"
^DD("IX",490,11.1,"B",1,1)=""
^DD("IX",490,11.1,"B",2,2)=""
^DD("IX",490,11.1,"B",3,3)=""
^DD("IX",490,11.1,"B",4,4)=""
^DD("IX",490,11.1,"B",5,5)=""
^DD("IX",490,11.1,"B",6,6)=""
^DD("IX",490,11.1,"B",7,7)=""
^DD("IX",490,11.1,"B",8,8)=""
^DD("IX",490,11.1,"B",9,9)=""
^DD("IX",490,11.1,"B",10,10)=""
^DD("IX",490,11.1,"B",11,11)=""
^DD("IX",490,11.1,"B",12,12)=""
^DD("IX",490,11.1,"B",13,13)=""
^DD("IX",490,11.1,"B",14,14)=""
^DD("IX",490,11.1,"B",15,15)=""
^DD("IX",490,11.1,"B",16,16)=""
^DD("IX",490,11.1,"B",17,17)=""
^DD("IX",490,11.1,"B",18,18)=""
^DD("IX",490,11.1,"B",19,19)=""
^DD("IX",490,11.1,"B",20,20)=""
^DD("IX",490,11.1,"B",21,21)=""
^DD("IX",490,11.1,"B",22,22)=""
^DD("IX",490,11.1,"B",23,23)=""
^DD("IX",490,11.1,"B",24,24)=""
^DD("IX",490,11.1,"B",25,25)=""
^DD("IX",490,11.1,"B",26,26)=""
^DD("IX",490,11.1,"B",27,27)=""
^DD("IX",490,11.1,"B",28,28)=""
^DD("IX",490,11.1,"B",29,29)=""
^DD("IX",490,11.1,"B",30,30)=""
^DD("IX",490,11.1,"B",31,31)=""
^DD("IX",490,11.1,"B",32,32)=""
^DD("IX",490,11.1,"B",33,33)=""
^DD("IX",490,11.1,"B",34,34)=""
^DD("IX",490,11.1,"B",35,35)=""
^DD("IX",490,11.1,"B",36,36)=""
^DD("IX",490,11.1,"B",37,37)=""
^DD("IX",490,11.1,"B",38,38)=""
^DD("IX",490,11.1,"B",39,39)=""
^DD("IX",490,11.1,"B",40,40)=""
^DD("IX",490,11.1,"B",41,41)=""
^DD("IX",490,11.1,"B",42,42)=""
^DD("IX",490,11.1,"B",43,43)=""
^DD("IX",490,11.1,"B",44,44)=""
^DD("IX",490,11.1,"B",45,45)=""
^DD("IX",490,11.1,"B",46,46)=""
^DD("IX",490,11.1,"B",47,47)=""
^DD("IX",490,11.1,"B",48,48)=""
^DD("IX",490,11.1,"B",49,49)=""
^DD("IX",490,11.1,"B",50,50)=""
^DD("IX",490,11.1,"B",51,51)=""
^DD("IX",490,11.1,"B",52,52)=""
^DD("IX",490,11.1,"B",53,53)=""
^DD("IX",490,11.1,"BB",1,1)=""
^DD("IX",490,11.1,"BB",2,2)=""
^DD("IX",490,11.1,"BB",3,3)=""
^DD("IX",490,11.1,"BB",4,4)=""
^DD("IX",490,11.1,"BB",5,5)=""
^DD("IX",490,11.1,"BB",6,6)=""
^DD("IX",490,11.1,"BB",7,7)=""
^DD("IX",490,11.1,"BB",8,8)=""
^DD("IX",490,11.1,"BB",9,9)=""
^DD("IX",490,11.1,"BB",10,10)=""
^DD("IX",490,11.1,"BB",11,11)=""
^DD("IX",490,11.1,"BB",12,12)=""
^DD("IX",490,11.1,"BB",13,13)=""
^DD("IX",490,11.1,"BB",14,14)=""
^DD("IX",490,11.1,"BB",15,15)=""
^DD("IX",490,11.1,"BB",16,16)=""
^DD("IX",490,11.1,"BB",17,17)=""
^DD("IX",490,11.1,"BB",18,18)=""
^DD("IX",490,11.1,"BB",19,19)=""
^DD("IX",490,11.1,"BB",20,20)=""
^DD("IX",490,11.1,"BB",21,21)=""
^DD("IX",490,11.1,"BB",22,22)=""
^DD("IX",490,11.1,"BB",23,23)=""
^DD("IX",490,11.1,"BB",24,24)=""
^DD("IX",490,11.1,"BB",25,25)=""
^DD("IX",490,11.1,"BB",26,26)=""
^DD("IX",490,11.1,"BB",27,27)=""
^DD("IX",490,11.1,"BB",28,28)=""
^DD("IX",490,11.1,"BB",29,29)=""
^DD("IX",490,11.1,"BB",30,30)=""
^DD("IX",490,11.1,"BB",31,31)=""
^DD("IX",490,11.1,"BB",32,32)=""
^DD("IX",490,11.1,"BB",33,33)=""
^DD("IX",490,11.1,"BB",34,34)=""
^DD("IX",490,11.1,"BB",35,35)=""
^DD("IX",490,11.1,"BB",36,36)=""
^DD("IX",490,11.1,"BB",37,37)=""
^DD("IX",490,11.1,"BB",38,38)=""
^DD("IX",490,11.1,"BB",39,39)=""
^DD("IX",490,11.1,"BB",40,40)=""
^DD("IX",490,11.1,"BB",41,41)=""
^DD("IX",490,11.1,"BB",42,42)=""
^DD("IX",490,11.1,"BB",43,43)=""
^DD("IX",490,11.1,"BB",44,44)=""
^DD("IX",490,11.1,"BB",45,45)=""
^DD("IX",490,11.1,"BB",46,46)=""
^DD("IX",490,11.1,"BB",47,47)=""
^DD("IX",490,11.1,"BB",48,48)=""
^DD("IX",490,11.1,"BB",49,49)=""
^DD("IX",490,11.1,"BB",50,50)=""
^DD("IX",490,11.1,"BB",51,51)=""
^DD("IX",490,11.1,"BB",52,52)=""
^DD("IX",490,11.1,"BB",53,53)=""
^DD("IX",491,0)="120.8502^AHDR^Send data to HDR^MU^^R^R^I^120.8502^^^^^A"
^DD("IX",491,.1,0)="^^1^1^3050118"
^DD("IX",491,.1,1,0)="Send data to HDR when entries are added or edited in this multiple"
^DD("IX",491,1)="Q:$D(DIU(0))  D SETOB^GMRAHDR"
^DD("IX",491,2)="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
^DD("IX",491,2.5)="Q"
^DD("IX",491,11.1,0)="^.114IA^3^3"
^DD("IX",491,11.1,1,0)="1^F^120.8502^.01^^^F"
^DD("IX",491,11.1,2,0)="2^F^120.8502^1^^^F"
^DD("IX",491,11.1,3,0)="3^F^120.8502^2^^^F"
^DD("IX",491,11.1,"B",1,1)=""
^DD("IX",491,11.1,"B",2,2)=""
^DD("IX",491,11.1,"B",3,3)=""
^DD("IX",491,11.1,"BB",1,1)=""
^DD("IX",491,11.1,"BB",2,2)=""
^DD("IX",491,11.1,"BB",3,3)=""
^DD("IX",492,0)="120.8503^AHDR^Send data to HDR^MU^^R^R^I^120.8503^^^^^A"
^DD("IX",492,.1,0)="^^1^1^3050118"
^DD("IX",492,.1,1,0)="Send data to HDR when entries are added or edited in this multiple."
^DD("IX",492,1)="Q:$D(DIU(0))  D SETOB^GMRAHDR"
^DD("IX",492,2)="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
^DD("IX",492,2.5)="Q"
^DD("IX",492,11.1,0)="^.114IA^20^20"
^DD("IX",492,11.1,1,0)="1^F^120.8503^.01^^^F"
^DD("IX",492,11.1,2,0)="2^F^120.8503^1^^^F"
^DD("IX",492,11.1,3,0)="3^F^120.8503^1.5^^^F"
^DD("IX",492,11.1,4,0)="4^F^120.8503^2^^^F"
^DD("IX",492,11.1,5,0)="5^F^120.8503^3^^^F"
^DD("IX",492,11.1,6,0)="6^F^120.8503^4^^^F"
^DD("IX",492,11.1,7,0)="7^F^120.8503^5^^^F"
^DD("IX",492,11.1,8,0)="8^F^120.8503^7^^^F"
^DD("IX",492,11.1,9,0)="9^F^120.8503^8^^^F"
^DD("IX",492,11.1,10,0)="10^F^120.8503^9^^^F"
^DD("IX",492,11.1,11,0)="11^F^120.8503^10^^^F"
^DD("IX",492,11.1,12,0)="12^F^120.8503^10.1^^^F"
^DD("IX",492,11.1,13,0)="13^F^120.8503^10.2^^^F"
^DD("IX",492,11.1,14,0)="14^F^120.8503^11^^^F"
^DD("IX",492,11.1,15,0)="15^F^120.8503^12^^^F"
^DD("IX",492,11.1,16,0)="16^F^120.8503^13^^^F"
^DD("IX",492,11.1,17,0)="17^F^120.8503^14^^^F"
^DD("IX",492,11.1,18,0)="18^F^120.8503^15^^^F"
^DD("IX",492,11.1,19,0)="19^F^120.8503^16^^^F"
^DD("IX",492,11.1,20,0)="20^F^120.8503^17^^^F"
^DD("IX",492,11.1,"B",1,1)=""
^DD("IX",492,11.1,"B",2,2)=""
^DD("IX",492,11.1,"B",3,3)=""
^DD("IX",492,11.1,"B",4,4)=""
^DD("IX",492,11.1,"B",5,5)=""
^DD("IX",492,11.1,"B",6,6)=""
^DD("IX",492,11.1,"B",7,7)=""
^DD("IX",492,11.1,"B",8,8)=""
^DD("IX",492,11.1,"B",9,9)=""
^DD("IX",492,11.1,"B",10,10)=""
^DD("IX",492,11.1,"B",11,11)=""
^DD("IX",492,11.1,"B",12,12)=""
^DD("IX",492,11.1,"B",13,13)=""
^DD("IX",492,11.1,"B",14,14)=""
^DD("IX",492,11.1,"B",15,15)=""
^DD("IX",492,11.1,"B",16,16)=""
^DD("IX",492,11.1,"B",17,17)=""
^DD("IX",492,11.1,"B",18,18)=""
^DD("IX",492,11.1,"B",19,19)=""
^DD("IX",492,11.1,"B",20,20)=""
^DD("IX",492,11.1,"BB",1,1)=""
^DD("IX",492,11.1,"BB",2,2)=""
^DD("IX",492,11.1,"BB",3,3)=""
^DD("IX",492,11.1,"BB",4,4)=""
^DD("IX",492,11.1,"BB",5,5)=""
^DD("IX",492,11.1,"BB",6,6)=""
^DD("IX",492,11.1,"BB",7,7)=""
^DD("IX",492,11.1,"BB",8,8)=""
^DD("IX",492,11.1,"BB",9,9)=""
^DD("IX",492,11.1,"BB",10,10)=""
^DD("IX",492,11.1,"BB",11,11)=""
^DD("IX",492,11.1,"BB",12,12)=""
^DD("IX",492,11.1,"BB",13,13)=""
^DD("IX",492,11.1,"BB",14,14)=""
^DD("IX",492,11.1,"BB",15,15)=""
^DD("IX",492,11.1,"BB",16,16)=""
^DD("IX",492,11.1,"BB",17,17)=""
^DD("IX",492,11.1,"BB",18,18)=""
^DD("IX",492,11.1,"BB",19,19)=""
^DD("IX",492,11.1,"BB",20,20)=""
^DD("IX",493,0)="120.8504^AHDR^Send data to HDR^MU^^R^R^I^120.8504^^^^^A"
^DD("IX",493,.1,0)="^^1^1^3050118"
^DD("IX",493,.1,1,0)="Send data to HDR when entries are added or edited in this multiple"
^DD("IX",493,1)="Q:$D(DIU(0))  D SETOB^GMRAHDR"
^DD("IX",493,2)="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
^DD("IX",493,2.5)="Q"
^DD("IX",493,11.1,0)="^.114IA^3^3"
^DD("IX",493,11.1,1,0)="1^F^120.8504^.01^^^F"
^DD("IX",493,11.1,2,0)="2^F^120.8504^1^^^F"
^DD("IX",493,11.1,3,0)="3^F^120.8504^2^^^F"
^DD("IX",493,11.1,"B",1,1)=""
^DD("IX",493,11.1,"B",2,2)=""
^DD("IX",493,11.1,"B",3,3)=""
^DD("IX",493,11.1,"BB",1,1)=""
^DD("IX",493,11.1,"BB",2,2)=""
^DD("IX",493,11.1,"BB",3,3)=""
^DD("IX",494,0)="120.8513^AHDR^Send data to HDR^MU^^R^R^I^120.8513^^^^^A"
^DD("IX",494,.1,0)="^^1^1^3050118"
^DD("IX",494,.1,1,0)="Send data to HDR when entries in this multiple are added or edited."
^DD("IX",494,1)="Q:$D(DIU(0))  D SETOB^GMRAHDR"
^DD("IX",494,2)="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
^DD("IX",494,2.5)="Q"
^DD("IX",494,11.1,0)="^.114IA^5^5"
^DD("IX",494,11.1,1,0)="1^F^120.8513^.01^^^F"
^DD("IX",494,11.1,2,0)="2^F^120.8513^1^^^F"
^DD("IX",494,11.1,3,0)="3^F^120.8513^2^^^F"
^DD("IX",494,11.1,4,0)="4^F^120.8513^3^^^F"
^DD("IX",494,11.1,5,0)="5^F^120.8513^4^^^F"
^DD("IX",494,11.1,"B",1,1)=""
^DD("IX",494,11.1,"B",2,2)=""
^DD("IX",494,11.1,"B",3,3)=""
^DD("IX",494,11.1,"B",4,4)=""
^DD("IX",494,11.1,"B",5,5)=""
^DD("IX",494,11.1,"BB",1,1)=""
^DD("IX",494,11.1,"BB",2,2)=""
^DD("IX",494,11.1,"BB",3,3)=""
^DD("IX",494,11.1,"BB",4,4)=""
^DD("IX",494,11.1,"BB",5,5)=""
^DD("IX",495,0)="120.8563^AHDR^Send data to HDR^MU^^F^R^I^120.8563^^^^^A"
^DD("IX",495,.1,0)="^^1^1^3050118"
^DD("IX",495,.1,1,0)="Send data to HDR when entries are added or edited in this multiple."
^DD("IX",495,1)="Q:$D(DIU(0))  D SETOB^GMRAHDR"
^DD("IX",495,2)="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
^DD("IX",495,2.5)="Q"
^DD("IX",495,11.1,0)="^.114IA^1^1"
^DD("IX",495,11.1,1,0)="1^F^120.8563^.01^^^F"
^DD("IX",495,11.1,"B",1,1)=""
^DD("IX",495,11.1,"BB",1,1)=""
^DD("IX",496,0)="120.85315^AHDR^Send data to HDR on entry/edit^MU^^F^R^I^120.85315^^^^^A"
^DD("IX",496,.1,0)="^^1^1^3050118"
^DD("IX",496,.1,1,0)="Send data to HDR when the P&T addendum is added."
^DD("IX",496,1)="Q:$D(DIU(0))  D SETOB^GMRAHDR"
^DD("IX",496,2)="Q:$D(DIU(0))  D KILLOB^GMRAHDR"
^DD("IX",496,2.5)="Q"
^DD("IX",496,11.1,0)="^.114IA^1^1"
^DD("IX",496,11.1,1,0)="1^F^120.85315^.01^^^F"
^DD("IX",496,11.1,"B",1,1)=""
^DD("IX",496,11.1,"BB",1,1)=""
^DD("IX",497,0)="200^AUSERKEY^Index to monitor the Allocation/De-allocation of the XUORES Security Key.^MU^^F^IR^W^200.051^^^^^S"
^DD("IX",497,1)="I $$PROVIDER^XUSER(DA(1)) S ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))="""""
^DD("IX",497,2)="I '$$PROVIDER^XUSER(DA(1)) K ^VA(200,""AUSER"",$P(^VA(200,DA(1),0),U),DA(1))"
^DD("IX",497,2.5)="Q"
^DD("IX",497,11.1,0)="^.114IA^1^1"
^DD("IX",497,11.1,1,0)="1^F^200.051^.01^^^F"
^DD("IX",497,11.1,"B",1,1)=""
^DD("IX",497,11.1,"BB",1,1)=""
^DD("IX",498,0)="55^AIVC^List of patients with orders associated with clinic appointments.^R^^R^IR^W^55.01^^^^^S"
^DD("IX",498,1)="S ^PS(55,""AIVC"",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)="""""
^DD("IX",498,2)="K ^PS(55,""AIVC"",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)"
^DD("IX",498,2.5)="K ^PS(55,""AIVC"")"
^DD("IX",498,11.1,0)="^.114IA^3^2"
^DD("IX",498,11.1,2,0)="1^F^55.01^.03^20^1^F"
^DD("IX",498,11.1,3,0)="2^F^55.01^136^20^2^F"
^DD("IX",498,11.1,"AC",1,2)=""
^DD("IX",498,11.1,"AC",2,3)=""
^DD("IX",498,11.1,"B",1,2)=""
^DD("IX",498,11.1,"B",2,3)=""
^DD("IX",498,11.1,"BB",1,2)=""
^DD("IX",498,11.1,"BB",2,3)=""
^DD("IX",499,0)="55^AUDC^List of patients with orders associated with clinic appointments.^R^^R^IR^W^55.06^^^^^S"
^DD("IX",499,1)="S ^PS(55,""AUDC"",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)="""""
^DD("IX",499,2)="K ^PS(55,""AUDC"",$E(X(1),1,20),$E(X(2),1,20),DA(1),DA)"
^DD("IX",499,2.5)="K ^PS(55,""AUDC"")"
^DD("IX",499,11.1,0)="^.114IA^3^2"
^DD("IX",499,11.1,2,0)="1^F^55.06^34^20^1^F"
^DD("IX",499,11.1,3,0)="2^F^55.06^130^20^2^F"
^DD("IX",499,11.1,"AC",1,2)=""
^DD("IX",499,11.1,"AC",2,3)=""
^DD("IX",499,11.1,"B",1,2)=""
^DD("IX",499,11.1,"B",2,3)=""
^DD("IX",499,11.1,"BB",1,2)=""
^DD("IX",499,11.1,"BB",2,3)=""
^DD("IX",500,0)="55.01^AIN^Clinic cross-reference.^R^^R^IR^I^55.01^^^^^S"
^DD("IX",500,.1,0)="^^2^2^3040729^"
^DD("IX",500,.1,1,0)="This cross-reference is used to easily determine if a specific patient "
^DD("IX",500,.1,2,0)="has clinic orders."
^DD("IX",500,1)="S ^PS(55,DA(1),""IV"",""AIN"",X(1),X(2),DA)="""""
^DD("IX",500,2)="K ^PS(55,DA(1),""IV"",""AIN"",X(1),X(2),DA)"
^DD("IX",500,2.5)="K ^PS(55,DA(1),""IV"",""AIN"")"
^DD("IX",500,11.1,0)="^.114IA^2^2"
^DD("IX",500,11.1,1,0)="1^F^55.01^.03^^1^F"
^DD("IX",500,11.1,1,3)=""
^DD("IX",500,11.1,2,0)="2^F^55.01^136^^2^F"
^DD("IX",500,11.1,2,3)=""
^DD("IX",500,11.1,"AC",1,1)=""
^DD("IX",500,11.1,"AC",2,2)=""
^DD("IX",500,11.1,"B",1,1)=""
^DD("IX",500,11.1,"B",2,2)=""
^DD("IX",500,11.1,"BB",1,1)=""
^DD("IX",500,11.1,"BB",2,2)=""
^DD("IX",501,0)="55.06^AUN^Clinic cross-reference.^R^^R^IR^I^55.06^^^^^S"
^DD("IX",501,.1,0)="^^2^2^3040729^"
^DD("IX",501,.1,1,0)="This cross-reference is used to easily determine if a specific patient "
^DD("IX",501,.1,2,0)="has clinic orders."
^DD("IX",501,1)="S ^PS(55,DA(1),5,""AUN"",X(1),X(2),DA)="""""
^DD("IX",501,2)="K ^PS(55,DA(1),5,""AUN"",X(1),X(2),DA)"
^DD("IX",501,2.5)="K ^PS(55,DA(1),5,""AUN"")"
^DD("IX",501,11.1,0)="^.114IA^2^2"
^DD("IX",501,11.1,1,0)="1^F^55.06^34^^1^F"
^DD("IX",501,11.1,1,3)=""
^DD("IX",501,11.1,2,0)="2^F^55.06^130^^2^F"
^DD("IX",501,11.1,2,3)=""
^DD("IX",501,11.1,"AC",1,1)=""
^DD("IX",501,11.1,"AC",2,2)=""
^DD("IX",501,11.1,"B",1,1)=""
^DD("IX",501,11.1,"B",2,2)=""
^DD("IX",501,11.1,"BB",1,1)=""
^DD("IX",501,11.1,"BB",2,2)=""
^DD("IX",502,0)="53.1^AD^List of patients by clinic.^R^^R^IR^I^53.1^^^^^S"
^DD("IX",502,1)="S ^PS(53.1,""AD"",$E(X(1),1,20),$E(X(2),1,20),DA)="""""
^DD("IX",502,2)="K ^PS(53.1,""AD"",$E(X(1),1,20),$E(X(2),1,20),DA)"
^DD("IX",502,2.5)="K ^PS(53.1,""AD"")"
^DD("IX",502,11.1,0)="^.114IA^2^2"
^DD("IX",502,11.1,1,0)="1^F^53.1^113^20^1^F"
^DD("IX",502,11.1,2,0)="2^F^53.1^.5^20^2^F"
^DD("IX",502,11.1,"AC",1,1)=""
^DD("IX",502,11.1,"AC",2,2)=""
^DD("IX",502,11.1,"B",1,1)=""
^DD("IX",502,11.1,"B",2,2)=""
^DD("IX",502,11.1,"BB",1,1)=""
^DD("IX",502,11.1,"BB",2,2)=""
^DD("IX",503,0)="57.8^AC^Allow ability to find clinic group for a clinic.^MU^^F^IR^W^57.81^^^^^S"
^DD("IX",503,1)="S ^PS(57.8,""AC"",$E(X,1,20),DA(1))="""""
^DD("IX",503,2)="K ^PS(57.8,""AC"",$E(X,1,20),DA(1))"
^DD("IX",503,2.5)="K ^PS(57.8,""AC"")"
^DD("IX",503,11.1,0)="^.114IA^1^1"
^DD("IX",503,11.1,1,0)="1^F^57.81^.01^20^1^F"
^DD("IX",503,11.1,"AC",1,1)=""
^DD("IX",503,11.1,"B",1,1)=""
^DD("IX",503,11.1,"BB",1,1)=""
^DD("IX",504,0)="57.8^AD^Cross-reference of clinic in this clinic group.^MU^^F^IR^W^57.81^^^^^A"
^DD("IX",504,1)="S ^PS(57.8,""AD"",DA(1),$E(X,1,20))="""""
^DD("IX",504,2)="K ^PS(57.8,""AD"",DA(1),$E(X,1,20))"
^DD("IX",504,2.5)="K ^PS(57.8,""AD"")"
^DD("IX",504,11.1,0)="^.114IA^1^1"
^DD("IX",504,11.1,1,0)="1^F^57.81^.01^^^F"
^DD("IX",504,11.1,"B",1,1)=""
^DD("IX",504,11.1,"BB",1,1)=""
^DD("IX",505,0)="810.3^AV^VISIT, TOP FILE NUMBER IEN, SUB FILE IEN^R^^F^IR^W^810.31^^^^^S"
^DD("IX",505,.1,0)="^^1^1^3040205^"
^DD("IX",505,.1,1,0)="Visit Pointer Indes"
^DD("IX",505,1)="S ^PXRMXT(810.3,""AV"",X,DA(1),DA)="""""
^DD("IX",505,2)="K ^PXRMXT(810.3,""AV"",X,DA(1),DA)"
^DD("IX",505,2.5)="K ^PXRMXT(810.3,""AV"")"
^DD("IX",505,11.1,0)="^.114IA^1^1"
^DD("IX",505,11.1,1,0)="1^F^810.31^.07^^1^F"
^DD("IX",505,11.1,"AC",1,1)=""
^DD("IX",505,11.1,"B",1,1)=""
^DD("IX",505,11.1,"BB",1,1)=""
^DD("IX",506,0)="810.3^B^""B"" cross-reference for .01^R^^F^IR^I^810.3^^^^^LS"
^DD("IX",506,1)="S ^PXRMXT(810.3,""B"",$E(X,1,64),DA)="""""
^DD("IX",506,2)="K ^PXRMXT(810.3,""B"",$E(X,1,64),DA)"
^DD("IX",506,2.5)="K ^PXRMXT(810.3,""B"")"
^DD("IX",506,11.1,0)="^.114IA^1^1"
^DD("IX",506,11.1,1,0)="1^F^810.3^.01^64^1^F"
^DD("IX",506,11.1,1,3)=""
^DD("IX",506,11.1,"AC",1,1)=""
^DD("IX",506,11.1,"B",1,1)=""
^DD("IX",506,11.1,"BB",1,1)=""
^DD("IX",507,0)="810.3^C^C INDEX^R^^R^IR^I^810.3^^^^^LS"
^DD("IX",507,1)="S ^PXRMXT(810.3,""C"",X(1),X(2),DA)="""""
^DD("IX",507,2)="K ^PXRMXT(810.3,""C"",X(1),X(2),DA)"
^DD("IX",507,2.5)="K ^PXRMXT(810.3,""C"")"
^DD("IX",507,11.1,0)="^.114IA^2^2"
^DD("IX",507,11.1,1,0)="1^F^810.3^1^^1^F"
^DD("IX",507,11.1,1,3)=""
^DD("IX",507,11.1,2,0)="2^F^810.3^.06^^2^F"
^DD("IX",507,11.1,2,3)=""
^DD("IX",507,11.1,"AC",1,1)=""
^DD("IX",507,11.1,"AC",2,2)=""
^DD("IX",507,11.1,"B",1,1)=""
^DD("IX",507,11.1,"B",2,2)=""
^DD("IX",507,11.1,"BB",1,1)=""
^DD("IX",507,11.1,"BB",2,2)=""
^DD("IX",508,0)="810.3^D^C INDEX^R^^R^IR^I^810.3^^^^^LS"
^DD("IX",508,1)="S ^PXRMXT(810.3,""D"",X(1),X(2),X(3),DA)="""""
^DD("IX",508,2)="K ^PXRMXT(810.3,""D"",X(1),X(2),X(3),DA)"
^DD("IX",508,2.5)="K ^PXRMXT(810.3,""D"")"
^DD("IX",508,11.1,0)="^.114IA^3^3"
^DD("IX",508,11.1,1,0)="1^F^810.3^1^^1^F"
^DD("IX",508,11.1,2,0)="2^F^810.3^4^^2^F"
^DD("IX",508,11.1,3,0)="3^F^810.3^3^^3^B"
^DD("IX",508,11.1,3,3)=""
^DD("IX",508,11.1,"AC",1,1)=""
^DD("IX",508,11.1,"AC",2,2)=""
^DD("IX",508,11.1,"AC",3,3)=""
^DD("IX",508,11.1,"B",1,1)=""
^DD("IX",508,11.1,"B",2,2)=""
^DD("IX",508,11.1,"B",3,3)=""
^DD("IX",508,11.1,"BB",1,1)=""
^DD("IX",508,11.1,"BB",2,2)=""
^DD("IX",508,11.1,"BB",3,3)=""
^DD("IX",509,0)="702.001^ASTUDY^INDEX BY STUDY, TIU^R^^R^IR^I^702.001^^^^^S"
^DD("IX",509,.1,0)="^^2^2^3071210^"
^DD("IX",509,.1,1,0)="This is an index that is by study internal entry number and TIU Note"
^DD("IX",509,.1,2,0)="internal entry number that is used for sorting."
^DD("IX",509,1)="S ^MDD(702.001,""ASTUDY"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",509,2)="K ^MDD(702.001,""ASTUDY"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",509,2.5)="K ^MDD(702.001,""ASTUDY"")"
^DD("IX",509,11.1,0)="^.114IA^2^2"
^DD("IX",509,11.1,1,0)="1^F^702.001^.01^30^1^F"
^DD("IX",509,11.1,2,0)="2^F^702.001^.02^30^2^F"
^DD("IX",509,11.1,"AC",1,1)=""
^DD("IX",509,11.1,"AC",2,2)=""
^DD("IX",509,11.1,"B",1,1)=""
^DD("IX",509,11.1,"B",2,2)=""
^DD("IX",509,11.1,"BB",1,1)=""
^DD("IX",509,11.1,"BB",2,2)=""
^DD("IX",510,0)="702.001^PK^INDEX BY NOTE, STUDY, DATE ASSIGNED^R^^R^IR^I^702.001^^^^^LS"
^DD("IX",510,.1,0)="^^2^2^3071210^^"
^DD("IX",510,.1,1,0)="This is an index by TIU notes, study, and date/time assigned"
^DD("IX",510,.1,2,0)="that is used for lookup and sorting."
^DD("IX",510,1)="S ^MDD(702.001,""PK"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",510,2)="K ^MDD(702.001,""PK"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",510,2.5)="K ^MDD(702.001,""PK"")"
^DD("IX",510,11.1,0)="^.114IA^3^3"
^DD("IX",510,11.1,1,0)="1^F^702.001^.02^30^1^F"
^DD("IX",510,11.1,2,0)="2^F^702.001^.01^30^2^F"
^DD("IX",510,11.1,3,0)="3^F^702.001^.03^30^3^F"
^DD("IX",510,11.1,"AC",1,1)=""
^DD("IX",510,11.1,"AC",2,2)=""
^DD("IX",510,11.1,"AC",3,3)=""
^DD("IX",510,11.1,"B",1,1)=""
^DD("IX",510,11.1,"B",2,2)=""
^DD("IX",510,11.1,"B",3,3)=""
^DD("IX",510,11.1,"BB",1,1)=""
^DD("IX",510,11.1,"BB",2,2)=""
^DD("IX",510,11.1,"BB",3,3)=""
^DD("IX",511,0)="811.2^APDS^When PDS is edited rebuild the PDS fields in 811.3^MU^^F^IR^I^811.2^^^^^A"
^DD("IX",511,1)="D SPDS^PXRMPDS(.X,.X1,.X2,.DA)"
^DD("IX",511,2)="D KPDS^PXRMPDS(.X,.X1,.X2,.DA)"
^DD("IX",511,11.1,0)="^.114IA^1^1"
^DD("IX",511,11.1,1,0)="1^F^811.2^4^^1^F"
^DD("IX",511,11.1,"AC",1,1)=""
^DD("IX",511,11.1,"B",1,1)=""
^DD("IX",511,11.1,"BB",1,1)=""
^DD("IX",512,0)="811.2^B^New style B cross-reference^R^^F^IR^I^811.2^^^^^LS"
^DD("IX",512,1)="S ^PXD(811.2,""B"",$E(X,1,35),DA)="""""
^DD("IX",512,2)="K ^PXD(811.2,""B"",$E(X,1,35),DA)"
^DD("IX",512,2.5)="K ^PXD(811.2,""B"")"
^DD("IX",512,11.1,0)="^.114IA^1^1"
^DD("IX",512,11.1,1,0)="1^F^811.2^.01^35^1^F"
^DD("IX",512,11.1,1,3)=""
^DD("IX",512,11.1,"AC",1,1)=""
^DD("IX",512,11.1,"B",1,1)=""
^DD("IX",512,11.1,"BB",1,1)=""
^DD("IX",513,0)="811.22102^AD^Whenever ICD9 entries are edited, rebuild expanded taxonomy^MU^^R^IR^I^811.22102^^^^^A"
^DD("IX",513,1)="D TAXEDIT^PXRMTAXD(DA(1),"""")"
^DD("IX",513,2)="D TAXEDIT^PXRMTAXD(DA(1),DA)"
^DD("IX",513,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",513,2.5)="D TAXKILL^PXRMTAXD(DA(1))"
^DD("IX",513,11.1,0)="^.114IA^2^2"
^DD("IX",513,11.1,1,0)="1^F^811.22102^.01^^^F"
^DD("IX",513,11.1,2,0)="2^F^811.22102^1^^^F"
^DD("IX",513,11.1,"B",1,1)=""
^DD("IX",513,11.1,"B",2,2)=""
^DD("IX",513,11.1,"BB",1,1)=""
^DD("IX",513,11.1,"BB",2,2)=""
^DD("IX",514,0)="811.22102^AICD9N^Populate the ICD9 ADJACENT HIGHER CODE field^MU^^F^IR^I^811.22102^^^^^A"
^DD("IX",514,1)="S $P(^PXD(811.2,DA(1),80,DA,0),U,4)=$$NEXT^ICDAPIU(X)"
^DD("IX",514,2)="S $P(^PXD(811.2,DA(1),80,DA,0),U,4)="""""
^DD("IX",514,11.1,0)="^.114IA^1^1"
^DD("IX",514,11.1,1,0)="1^F^811.22102^1^^1^F"
^DD("IX",514,11.1,"AC",1,1)=""
^DD("IX",514,11.1,"B",1,1)=""
^DD("IX",514,11.1,"BB",1,1)=""
^DD("IX",515,0)="811.22102^AICD9P^Populate the ICD9 ADJACENT LOWER CODE FIELD^MU^^F^IR^I^811.22102^^^^^A"
^DD("IX",515,1)="S $P(^PXD(811.2,DA(1),80,DA,0),U,3)=$$PREV^ICDAPIU(X)"
^DD("IX",515,2)="S $P(^PXD(811.2,DA(1),80,DA,0),U,3)="""""
^DD("IX",515,11.1,0)="^.114IA^1^1"
^DD("IX",515,11.1,1,0)="1^F^811.22102^.01^^1^F"
^DD("IX",515,11.1,"AC",1,1)=""
^DD("IX",515,11.1,"B",1,1)=""
^DD("IX",515,11.1,"BB",1,1)=""
^DD("IX",516,0)="811.22103^AC^Whenever ICD0 entries are changed, rebuild the expanded taxonomy^MU^^R^IR^I^811.22103^^^^^A"
^DD("IX",516,1)="D TAXEDIT^PXRMTAXD(DA(1),"""")"
^DD("IX",516,2)="D TAXEDIT^PXRMTAXD(DA(1),DA)"
^DD("IX",516,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",516,2.5)="D TAXKILL^PXRMTAXD(DA(1))"
^DD("IX",516,11.1,0)="^.114IA^2^2"
^DD("IX",516,11.1,1,0)="1^F^811.22103^.01^^^F"
^DD("IX",516,11.1,2,0)="2^F^811.22103^1^^^F"
^DD("IX",516,11.1,"B",1,1)=""
^DD("IX",516,11.1,"B",2,2)=""
^DD("IX",516,11.1,"BB",1,1)=""
^DD("IX",516,11.1,"BB",2,2)=""
^DD("IX",517,0)="811.22103^AICD0N^Populate the ICD0 ADJACENT HIGHER CODE field^MU^^F^IR^I^811.22103^^^^^A"
^DD("IX",517,1)="S $P(^PXD(811.2,DA(1),80.1,DA,0),U,4)=$$NEXT^ICDAPIU(X)"
^DD("IX",517,2)="S $P(^PXD(811.2,DA(1),80.1,DA,0),U,4)="""""
^DD("IX",517,11.1,0)="^.114IA^1^1"
^DD("IX",517,11.1,1,0)="1^F^811.22103^1^^1^F"
^DD("IX",517,11.1,"AC",1,1)=""
^DD("IX",517,11.1,"B",1,1)=""
^DD("IX",517,11.1,"BB",1,1)=""
^DD("IX",518,0)="811.22103^AICD0P^Populate the ICD0 ADJACENT LOWER CODE field^MU^^F^IR^I^811.22103^^^^^A"
^DD("IX",518,1)="S $P(^PXD(811.2,DA(1),80.1,DA,0),U,3)=$$PREV^ICDAPIU(X)"
^DD("IX",518,2)="S $P(^PXD(811.2,DA(1),80.1,DA,0),U,3)="""""
^DD("IX",518,11.1,0)="^.114IA^1^1"
^DD("IX",518,11.1,1,0)="1^F^811.22103^.01^^1^F"
^DD("IX",518,11.1,"AC",1,1)=""
^DD("IX",518,11.1,"B",1,1)=""
^DD("IX",518,11.1,"BB",1,1)=""
^DD("IX",519,0)="811.22104^ACPTN^Populate the CPT ADJACENT HIGHER CODE field^MU^^F^IR^I^811.22104^^^^^A"
^DD("IX",519,1)="S $P(^PXD(811.2,DA(1),81,DA,0),U,4)=$$NEXT^ICPTAPIU(X)"
^DD("IX",519,2)="S $P(^PXD(811.2,DA(1),81,DA,0),U,4)="""""
^DD("IX",519,11.1,0)="^.114IA^1^1"
^DD("IX",519,11.1,1,0)="1^F^811.22104^1^^1^F"
^DD("IX",519,11.1,"AC",1,1)=""
^DD("IX",519,11.1,"B",1,1)=""
^DD("IX",519,11.1,"BB",1,1)=""
^DD("IX",520,0)="811.22104^ACPTP^Populate the CPT ADJACENT LOWER CODE field^MU^^F^IR^I^811.22104^^^^^A"
^DD("IX",520,1)="S $P(^PXD(811.2,DA(1),81,DA,0),U,3)=$$PREV^ICPTAPIU(X)"
^DD("IX",520,2)="S $P(^PXD(811.2,DA(1),81,DA,0),U,3)="""""
^DD("IX",520,11.1,0)="^.114IA^1^1"
^DD("IX",520,11.1,1,0)="1^F^811.22104^.01^^1^F"
^DD("IX",520,11.1,"AC",1,1)=""
^DD("IX",520,11.1,"B",1,1)=""
^DD("IX",520,11.1,"BB",1,1)=""
^DD("IX",521,0)="811.22104^AE^Whenever CPT entries are changed, rebuild the expanded taxonomy^MU^^R^IR^I^811.22104^^^^^A"
^DD("IX",521,1)="D TAXEDIT^PXRMTAXD(DA(1),"""")"
^DD("IX",521,2)="D TAXEDIT^PXRMTAXD(DA(1),DA)"
^DD("IX",521,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",521,2.5)="D TAXKILL^PXRMTAXD(DA(1))"
^DD("IX",521,11.1,0)="^.114IA^2^2"
^DD("IX",521,11.1,1,0)="1^F^811.22104^.01^^^F"
^DD("IX",521,11.1,2,0)="2^F^811.22104^1^^^F"
^DD("IX",521,11.1,"B",1,1)=""
^DD("IX",521,11.1,"B",2,2)=""
^DD("IX",521,11.1,"BB",1,1)=""
^DD("IX",521,11.1,"BB",2,2)=""
^DD("IX",522,0)="811.31^ICD9P^ICD9 cross-reference^R^^F^IR^I^811.31^^^^^LS"
^DD("IX",522,1)="S ^PXD(811.3,DA(1),80,""ICD9P"",X,DA)="""""
^DD("IX",522,2)="K ^PXD(811.3,DA(1),80,""ICD9P"",X,DA)"
^DD("IX",522,2.5)="K ^PXD(811.3,DA(1),80,""ICD9P"")"
^DD("IX",522,11.1,0)="^.114IA^1^1"
^DD("IX",522,11.1,1,0)="1^F^811.31^.01^^1^F"
^DD("IX",522,11.1,"AC",1,1)=""
^DD("IX",522,11.1,"B",1,1)=""
^DD("IX",522,11.1,"BB",1,1)=""
^DD("IX",523,0)="811.32^ICD0P^ICD0 cross-reference^R^^F^IR^I^811.32^^^^^LS"
^DD("IX",523,1)="S ^PXD(811.3,DA(1),80.1,""ICD0P"",X,DA)="""""
^DD("IX",523,2)="K ^PXD(811.3,DA(1),80.1,""ICD0P"",X,DA)"
^DD("IX",523,2.5)="K ^PXD(811.3,DA(1),80.1,""ICD0P"")"
^DD("IX",523,11.1,0)="^.114IA^1^1"
^DD("IX",523,11.1,1,0)="1^F^811.32^.01^^1^F"
^DD("IX",523,11.1,"AC",1,1)=""
^DD("IX",523,11.1,"B",1,1)=""
^DD("IX",523,11.1,"BB",1,1)=""
^DD("IX",524,0)="811.371^ARCPTP^ICPT pointer for radiology procedures^MU^^F^IR^I^811.371^^^^^S"
^DD("IX",524,1)="S ^PXD(811.3,DA(1),71,""RCPTP"",X,DA)=$P(^PXD(811.3,DA(1),71,DA,0),U,1)"
^DD("IX",524,2)="K ^PXD(811.3,DA(1),71,""RCPTP"",X,DA)"
^DD("IX",524,2.5)="K ^PXD(811.3,DA(1),71,""RCPTP"")"
^DD("IX",524,11.1,0)="^.114IA^1^1"
^DD("IX",524,11.1,1,0)="1^F^811.371^1^^1^F"
^DD("IX",524,11.1,"AC",1,1)=""
^DD("IX",524,11.1,"B",1,1)=""
^DD("IX",524,11.1,"BB",1,1)=""
^DD("IX",525,0)="811.381^ICPTP^Pointer to ICPT entries^R^^F^IR^I^811.381^^^^^LS"
^DD("IX",525,1)="S ^PXD(811.3,DA(1),81,""ICPTP"",X,DA)="""""
^DD("IX",525,2)="K ^PXD(811.3,DA(1),81,""ICPTP"",X,DA)"
^DD("IX",525,2.5)="K ^PXD(811.3,DA(1),81,""ICPTP"")"
^DD("IX",525,11.1,0)="^.114IA^1^1"
^DD("IX",525,11.1,1,0)="1^F^811.381^.01^^1^F"
^DD("IX",525,11.1,1,3)=""
^DD("IX",525,11.1,"AC",1,1)=""
^DD("IX",525,11.1,"B",1,1)=""
^DD("IX",525,11.1,"BB",1,1)=""
^DD("IX",526,0)="811.4^B^New style B cross-reference^R^^F^IR^I^811.4^^^^^LS"
^DD("IX",526,1)="S ^PXRMD(811.4,""B"",$E(X,1,64),DA)="""""
^DD("IX",526,2)="K ^PXRMD(811.4,""B"",$E(X,1,64),DA)"
^DD("IX",526,2.5)="K ^PXRMD(811.4,""B"")"
^DD("IX",526,11.1,0)="^.114IA^1^1"
^DD("IX",526,11.1,1,0)="1^F^811.4^.01^64^1^F"
^DD("IX",526,11.1,"AC",1,1)=""
^DD("IX",526,11.1,"B",1,1)=""
^DD("IX",526,11.1,"BB",1,1)=""
^DD("IX",527,0)="2005^AD^Created by Patch 77^R^^F^IR^I^2005^^^^^S"
^DD("IX",527,1)="S ^MAG(2005,""AD"",X,DA)="""""
^DD("IX",527,2)="K ^MAG(2005,""AD"",X,DA)"
^DD("IX",527,2.5)="K ^MAG(2005,""AD"")"
^DD("IX",527,11.1,0)="^.114IA^1^1"
^DD("IX",527,11.1,1,0)="1^F^2005^7^^1^F"
^DD("IX",527,11.1,1,2)="S X=$P(X,""."")"
^DD("IX",527,11.1,1,3)=""
^DD("IX",527,11.1,"AC",1,1)=""
^DD("IX",527,11.1,"B",1,1)=""
^DD("IX",527,11.1,"BB",1,1)=""
^DD("IX",528,0)="2005.1^AD^Created by Patch 77^R^^F^IR^I^2005.1^^^^^S"
^DD("IX",528,1)="S ^MAG(2005.1,""AD"",X,DA)="""""
^DD("IX",528,2)="K ^MAG(2005.1,""AD"",X,DA)"
^DD("IX",528,2.5)="K ^MAG(2005.1,""AD"")"
^DD("IX",528,11.1,0)="^.114IA^1^1"
^DD("IX",528,11.1,1,0)="1^F^2005.1^7^^1^F"
^DD("IX",528,11.1,1,2)="S X=$P(X,""."")"
^DD("IX",528,11.1,1,3)=""
^DD("IX",528,11.1,"AC",1,1)=""
^DD("IX",528,11.1,"B",1,1)=""
^DD("IX",528,11.1,"BB",1,1)=""
^DD("IX",529,0)="2006.5841^AC^Service/Procedure Index^MU^^R^IR^I^2006.5841^^^^^A"
^DD("IX",529,1)="I X2(1)'="""" S ^MAG(2006.5841,""AC"",$E(X2(1),1,30),+$E(X2(2),1,30),DA)="""""
^DD("IX",529,2)="K ^MAG(2006.5841,""AC"",$E(X1(1),1,30),+$E(X1(2),1,30),DA)"
^DD("IX",529,11.1,0)="^.114IA^2^2"
^DD("IX",529,11.1,1,0)="1^F^2006.5841^.01^^^F"
^DD("IX",529,11.1,1,3)=""
^DD("IX",529,11.1,2,0)="2^F^2006.5841^1^^^F"
^DD("IX",529,11.1,2,3)=""
^DD("IX",529,11.1,"B",1,1)=""
^DD("IX",529,11.1,"B",2,2)=""
^DD("IX",529,11.1,"BB",1,1)=""
^DD("IX",529,11.1,"BB",2,2)=""
^DD("IX",530,0)="2006.5849^AC^Specialty/Index^R^^R^IR^I^2006.5849^^^^^S"
^DD("IX",530,1)="S ^MAG(2006.5849,""AC"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,30),DA)="""""
^DD("IX",530,2)="K ^MAG(2006.5849,""AC"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,30),DA)"
^DD("IX",530,2.5)="K ^MAG(2006.5849,""AC"")"
^DD("IX",530,11.1,0)="^.114IA^4^4"
^DD("IX",530,11.1,1,0)="1^F^2006.5849^1^30^1^F"
^DD("IX",530,11.1,1,3)=""
^DD("IX",530,11.1,2,0)="2^F^2006.5849^2^30^2^F"
^DD("IX",530,11.1,2,3)=""
^DD("IX",530,11.1,3,0)="3^F^2006.5849^3^30^3^F"
^DD("IX",530,11.1,3,3)=""
^DD("IX",530,11.1,4,0)="4^F^2006.5849^8^30^4^F"
^DD("IX",530,11.1,4,3)=""
^DD("IX",530,11.1,"AC",1,1)=""
^DD("IX",530,11.1,"AC",2,2)=""
^DD("IX",530,11.1,"AC",3,3)=""
^DD("IX",530,11.1,"AC",4,4)=""
^DD("IX",530,11.1,"B",1,1)=""
^DD("IX",530,11.1,"B",2,2)=""
^DD("IX",530,11.1,"B",3,3)=""
^DD("IX",530,11.1,"B",4,4)=""
^DD("IX",530,11.1,"BB",1,1)=""
^DD("IX",530,11.1,"BB",2,2)=""
^DD("IX",530,11.1,"BB",3,3)=""
^DD("IX",530,11.1,"BB",4,4)=""
^DD("IX",531,0)="810.9^B^This is a new-style B cross-reference^R^^F^IR^I^810.9^^^^^LS"
^DD("IX",531,1)="S ^PXRMD(810.9,""B"",$E(X,1,64),DA)="""""
^DD("IX",531,2)="K ^PXRMD(810.9,""B"",$E(X,1,64),DA)"
^DD("IX",531,2.5)="K ^PXRMD(810.9,""B"")"
^DD("IX",531,11.1,0)="^.114IA^1^1"
^DD("IX",531,11.1,1,0)="1^F^810.9^.01^64^1^F"
^DD("IX",531,11.1,1,3)=""
^DD("IX",531,11.1,"AC",1,1)=""
^DD("IX",531,11.1,"B",1,1)=""
^DD("IX",531,11.1,"BB",1,1)=""
^DD("IX",532,0)="810.9001^AC^Set the AMIS Reporting Stop Code^MU^^F^IR^I^810.9001^^^^^A"
^DD("IX",532,1)="D SAMIS^PXRMLLED(X,.DA)"
^DD("IX",532,2)="D KAMIS^PXRMLLED(X,.DA)"
^DD("IX",532,11.1,0)="^.114IA^1^1"
^DD("IX",532,11.1,1,0)="1^F^810.9001^.01^^1^F"
^DD("IX",532,11.1,"AC",1,1)=""
^DD("IX",532,11.1,"B",1,1)=""
^DD("IX",532,11.1,"BB",1,1)=""
^DD("IX",533,0)="2006.5849^D^Sort for Display^R^^R^IR^I^2006.5849^^^^^LS"
^DD("IX",533,1)="S ^MAG(2006.5849,""D"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,30),DA)="""""
^DD("IX",533,2)="K ^MAG(2006.5849,""D"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,30),DA)"
^DD("IX",533,2.5)="K ^MAG(2006.5849,""D"")"
^DD("IX",533,11.1,0)="^.114IA^4^4"
^DD("IX",533,11.1,1,0)="1^F^2006.5849^1^30^1^F"
^DD("IX",533,11.1,1,3)=""
^DD("IX",533,11.1,2,0)="2^F^2006.5849^2^30^2^F"
^DD("IX",533,11.1,2,3)=""
^DD("IX",533,11.1,3,0)="3^F^2006.5849^3^30^3^F"
^DD("IX",533,11.1,3,3)=""
^DD("IX",533,11.1,4,0)="4^F^2006.5849^10^30^4^F"
^DD("IX",533,11.1,4,3)=""
^DD("IX",533,11.1,"AC",1,1)=""
^DD("IX",533,11.1,"AC",2,2)=""
^DD("IX",533,11.1,"AC",3,3)=""
^DD("IX",533,11.1,"AC",4,4)=""
^DD("IX",533,11.1,"B",1,1)=""
^DD("IX",533,11.1,"B",2,2)=""
^DD("IX",533,11.1,"B",3,3)=""
^DD("IX",533,11.1,"B",4,4)=""
^DD("IX",533,11.1,"BB",1,1)=""
^DD("IX",533,11.1,"BB",2,2)=""
^DD("IX",533,11.1,"BB",3,3)=""
^DD("IX",533,11.1,"BB",4,4)=""
^DD("IX",534,0)="4.005^AC^Sequence for XUMF5I routine^R^^R^IR^W^4.00511^^^^^S"
^DD("IX",534,1)="S ^DIC(4.005,""AC"",X(1),$E(X(2),1,5),DA(2),DA(1),DA)="""""
^DD("IX",534,2)="K ^DIC(4.005,""AC"",X(1),$E(X(2),1,5),DA(2),DA(1),DA)"
^DD("IX",534,2.5)="K ^DIC(4.005,""AC"")"
^DD("IX",534,11.1,0)="^.114IA^2^2"
^DD("IX",534,11.1,1,0)="1^C^^^^1"
^DD("IX",534,11.1,1,1.5)="S X=DA(2)"
^DD("IX",534,11.1,2,0)="2^F^4.00511^1^5^2^F"
^DD("IX",534,11.1,2,3)=""
^DD("IX",534,11.1,"AC",1,1)=""
^DD("IX",534,11.1,"AC",2,2)=""
^DD("IX",534,11.1,"B",1,1)=""
^DD("IX",534,11.1,"B",2,2)=""
^DD("IX",534,11.1,"BB",1,1)=""
^DD("IX",534,11.1,"BB",2,2)=""
^DD("IX",535,0)="4.009^AMASTERVUID^Identifies Master entry for a VUID^R^^R^IR^I^4.009^^^^^S"
^DD("IX",535,1)="S ^DIC(4.009,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",535,2)="K ^DIC(4.009,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",535,2.5)="K ^DIC(4.009,""AMASTERVUID"")"
^DD("IX",535,11.1,0)="^.114IA^2^2"
^DD("IX",535,11.1,1,0)="1^F^4.009^99.98^30^1^F"
^DD("IX",535,11.1,1,3)=""
^DD("IX",535,11.1,2,0)="2^F^4.009^99.99^^2^F"
^DD("IX",535,11.1,2,3)=""
^DD("IX",535,11.1,"AC",1,1)=""
^DD("IX",535,11.1,"AC",2,2)=""
^DD("IX",535,11.1,"B",1,1)=""
^DD("IX",535,11.1,"B",2,2)=""
^DD("IX",535,11.1,"BB",1,1)=""
^DD("IX",535,11.1,"BB",2,2)=""
^DD("IX",536,0)="811.7^B^New style B cross-reference^R^^F^IR^I^811.7^^^^^LS"
^DD("IX",536,1)="S ^PXRMD(811.7,""B"",$E(X,1,35),DA)="""""
^DD("IX",536,2)="K ^PXRMD(811.7,""B"",$E(X,1,35),DA)"
^DD("IX",536,2.5)="K ^PXRMD(811.7,""B"")"
^DD("IX",536,11.1,0)="^.114IA^1^1"
^DD("IX",536,11.1,1,0)="1^F^811.7^.01^35^1^F"
^DD("IX",536,11.1,1,3)=""
^DD("IX",536,11.1,"AC",1,1)=""
^DD("IX",536,11.1,"B",1,1)=""
^DD("IX",536,11.1,"BB",1,1)=""
^DD("IX",537,0)="2006.5849^E^Allow sorting by Acquistion Site and Date^R^^R^IR^I^2006.5849^^^^^LS"
^DD("IX",537,1)="S ^MAG(2006.5849,""E"",$E(X(1),1,4),$E(X(2),1,7),DA)="""""
^DD("IX",537,2)="K ^MAG(2006.5849,""E"",$E(X(1),1,4),$E(X(2),1,7),DA)"
^DD("IX",537,2.5)="K ^MAG(2006.5849,""E"")"
^DD("IX",537,11.1,0)="^.114IA^2^2"
^DD("IX",537,11.1,1,0)="1^F^2006.5849^1^4^1^F"
^DD("IX",537,11.1,1,3)=""
^DD("IX",537,11.1,2,0)="2^F^2006.5849^17^7^2^F"
^DD("IX",537,11.1,2,2)="S X=$E($P(X,"".""),1,30)"
^DD("IX",537,11.1,2,3)=""
^DD("IX",537,11.1,"AC",1,1)=""
^DD("IX",537,11.1,"AC",2,2)=""
^DD("IX",537,11.1,"B",1,1)=""
^DD("IX",537,11.1,"B",2,2)=""
^DD("IX",537,11.1,"BB",1,1)=""
^DD("IX",537,11.1,"BB",2,2)=""
^DD("IX",538,0)="2006.562^C^Study and Service^R^^R^IR^I^2006.562^^^^^LS"
^DD("IX",538,.1,0)="^^3^3^3001204^"
^DD("IX",538,.1,1,0)="This cross reference keeps track of which accessions"
^DD("IX",538,.1,2,0)="were performed "
^DD("IX",538,.1,3,0)="for which services."
^DD("IX",538,1)="S ^MAGDWLST(2006.56,DA(1),1,""C"",X(1),X(2),DA)="""""
^DD("IX",538,2)="K ^MAGDWLST(2006.56,DA(1),1,""C"",X(1),X(2),DA)"
^DD("IX",538,2.5)="K ^MAGDWLST(2006.56,DA(1),1,""C"")"
^DD("IX",538,11.1,0)="^.114IA^2^2"
^DD("IX",538,11.1,1,0)="1^F^2006.562^.01^^1^F"
^DD("IX",538,11.1,2,0)="2^F^2006.562^3^^2^F"
^DD("IX",538,11.1,"AC",1,1)=""
^DD("IX",538,11.1,"AC",2,2)=""
^DD("IX",538,11.1,"B",1,1)=""
^DD("IX",538,11.1,"B",2,2)=""
^DD("IX",538,11.1,"BB",1,1)=""
^DD("IX",538,11.1,"BB",2,2)=""
^DD("IX",539,0)="2006.562^D^Service and Study ID^R^^R^IR^I^2006.562^^^^^LS"
^DD("IX",539,.1,0)="^^2^2^3001204^"
^DD("IX",539,.1,1,0)="This cross reference keeps track of which Study IDs are"
^DD("IX",539,.1,2,0)="performed for which services."
^DD("IX",539,1)="S ^MAGDWLST(2006.56,DA(1),1,""D"",X(1),X(2),DA)="""""
^DD("IX",539,2)="K ^MAGDWLST(2006.56,DA(1),1,""D"",X(1),X(2),DA)"
^DD("IX",539,2.5)="K ^MAGDWLST(2006.56,DA(1),1,""D"")"
^DD("IX",539,11.1,0)="^.114IA^2^2"
^DD("IX",539,11.1,1,0)="1^F^2006.562^.01^^1^F"
^DD("IX",539,11.1,2,0)="2^F^2006.562^4^^2^F"
^DD("IX",539,11.1,"AC",1,1)=""
^DD("IX",539,11.1,"AC",2,2)=""
^DD("IX",539,11.1,"B",1,1)=""
^DD("IX",539,11.1,"B",2,2)=""
^DD("IX",539,11.1,"BB",1,1)=""
^DD("IX",539,11.1,"BB",2,2)=""
^DD("IX",540,0)="2006.562^E^Service, timestamp and Modality^R^^R^IR^I^2006.562^^^^^LS"
^DD("IX",540,.1,0)="^^2^2^3001204^"
^DD("IX",540,.1,1,0)="This cross reference keeps track of which modalities have"
^DD("IX",540,.1,2,0)="studies performed for which services."
^DD("IX",540,1)="S ^MAGDWLST(2006.56,DA(1),1,""E"",X(1),X(2),X(3),DA)="""""
^DD("IX",540,2)="K ^MAGDWLST(2006.56,DA(1),1,""E"",X(1),X(2),X(3),DA)"
^DD("IX",540,2.5)="K ^MAGDWLST(2006.56,DA(1),1,""E"")"
^DD("IX",540,11.1,0)="^.114IA^3^3"
^DD("IX",540,11.1,1,0)="1^F^2006.562^.01^^1^F"
^DD("IX",540,11.1,1,3)=""
^DD("IX",540,11.1,2,0)="2^F^2006.562^10^^2^F"
^DD("IX",540,11.1,2,3)=""
^DD("IX",540,11.1,3,0)="3^F^2006.562^5^^3^F"
^DD("IX",540,11.1,3,3)=""
^DD("IX",540,11.1,"AC",1,1)=""
^DD("IX",540,11.1,"AC",2,2)=""
^DD("IX",540,11.1,"AC",3,3)=""
^DD("IX",540,11.1,"B",1,1)=""
^DD("IX",540,11.1,"B",2,2)=""
^DD("IX",540,11.1,"B",3,3)=""
^DD("IX",540,11.1,"BB",1,1)=""
^DD("IX",540,11.1,"BB",2,2)=""
^DD("IX",540,11.1,"BB",3,3)=""
^DD("IX",541,0)="2006.562^G^Services and modalities^R^^R^IR^I^2006.562^^^^^LS"
^DD("IX",541,.1,0)="^^4^4^3030114^"
^DD("IX",541,.1,1,0)="This cross reference keeps track of studies by:"
^DD("IX",541,.1,2,0)=" 1. service"
^DD("IX",541,.1,3,0)=" 2. modality code"
^DD("IX",541,.1,4,0)=" 3. timestamp"
^DD("IX",541,1)="S ^MAGDWLST(2006.56,DA(1),1,""G"",X(1),X(2),X(3),DA)="""""
^DD("IX",541,2)="K ^MAGDWLST(2006.56,DA(1),1,""G"",X(1),X(2),X(3),DA)"
^DD("IX",541,2.5)="K ^MAGDWLST(2006.56,DA(1),1,""G"")"
^DD("IX",541,11.1,0)="^.114IA^3^3"
^DD("IX",541,11.1,1,0)="1^F^2006.562^.01^^1^F"
^DD("IX",541,11.1,1,3)=""
^DD("IX",541,11.1,2,0)="2^F^2006.562^10^^2^F"
^DD("IX",541,11.1,2,3)=""
^DD("IX",541,11.1,3,0)="3^F^2006.562^5^^3^F"
^DD("IX",541,11.1,3,3)=""
^DD("IX",541,11.1,"AC",1,1)=""
^DD("IX",541,11.1,"AC",2,2)=""
^DD("IX",541,11.1,"AC",3,3)=""
^DD("IX",541,11.1,"B",1,1)=""
^DD("IX",541,11.1,"B",2,2)=""
^DD("IX",541,11.1,"B",3,3)=""
^DD("IX",541,11.1,"BB",1,1)=""
^DD("IX",541,11.1,"BB",2,2)=""
^DD("IX",541,11.1,"BB",3,3)=""
^DD("IX",563,0)="142^HST^Uniqueness Index for Key 'A' of File #142^R^^F^IR^I^142^^^^^LS"
^DD("IX",563,1)="S ^GMT(142,""HST"",X,DA)="""""
^DD("IX",563,2)="K ^GMT(142,""HST"",X,DA)"
^DD("IX",563,2.5)="K ^GMT(142,""HST"")"
^DD("IX",563,11.1,0)="^.114IA^1^1"
^DD("IX",563,11.1,1,0)="1^F^142^.01^^1"
^DD("IX",563,11.1,"AC",1,1)=""
^DD("IX",563,11.1,"B",1,1)=""
^DD("IX",563,11.1,"BB",1,1)=""
^DD("IX",564,0)="790.1^AC^Patient and Date of Procedure^R^^R^IR^I^790.1^^^^^S"
^DD("IX",564,.1,0)="^^2^2^3050311"
^DD("IX",564,.1,1,0)="This index consists of patient DFN and date of procedure."
^DD("IX",564,.1,2,0)="ex:  ^WV(790.1,'AC',DFN,Date of Procedure,DA)"
^DD("IX",564,1)="S ^WV(790.1,""AC"",X(1),X(2),DA)="""""
^DD("IX",564,2)="K ^WV(790.1,""AC"",X(1),X(2),DA)"
^DD("IX",564,2.5)="K ^WV(790.1,""AC"")"
^DD("IX",564,11.1,0)="^.114IA^2^2"
^DD("IX",564,11.1,1,0)="1^F^790.1^.02^^1^F"
^DD("IX",564,11.1,2,0)="2^F^790.1^.12^^2^F"
^DD("IX",564,11.1,"AC",1,1)=""
^DD("IX",564,11.1,"AC",2,2)=""
^DD("IX",564,11.1,"B",1,1)=""
^DD("IX",564,11.1,"B",2,2)=""
^DD("IX",564,11.1,"BB",1,1)=""
^DD("IX",564,11.1,"BB",2,2)=""
^DD("IX",565,0)="63.12^AC^Notify Women's Health of SNOMED change^MU^^F^^I^63.12^^^^^A"
^DD("IX",565,.1,0)="^^4^4^3050311"
^DD("IX",565,.1,1,0)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
^DD("IX",565,.1,2,0)="code is made.  The SNOMED line tag notifies the Women's Health package that"
^DD("IX",565,.1,3,0)="a SNOMED change has been made on an already verified pathology report for a"
^DD("IX",565,.1,4,0)="female patient."
^DD("IX",565,1)="Q:$D(DIU(0))  D SNOMED^LRWOMEN"
^DD("IX",565,2)="Q"
^DD("IX",565,11.1,0)="^.114IA^1^1"
^DD("IX",565,11.1,1,0)="1^F^63.12^.01^^1^F"
^DD("IX",565,11.1,"AC",1,1)=""
^DD("IX",565,11.1,"B",1,1)=""
^DD("IX",565,11.1,"BB",1,1)=""
^DD("IX",566,0)="63.912^AC^Notify Women's Health of SNOMED change^MU^^F^^I^63.912^^^^^A"
^DD("IX",566,.1,0)="^^4^4^3050311"
^DD("IX",566,.1,1,0)="This MUMPS cross reference calls SNOMED^LRWOMEN any time a change to a SNOMED"
^DD("IX",566,.1,2,0)="code is made.  The SNOMED line tag notifies the Women's Health package that a"
^DD("IX",566,.1,3,0)="SNOMED change has been made on an already verified pathology report for a"
^DD("IX",566,.1,4,0)="female patient."
^DD("IX",566,1)="Q:$D(DIU(0))  D SNOMED^LRWOMEN"
^DD("IX",566,2)="Q"
^DD("IX",566,11.1,0)="^.114IA^1^1"
^DD("IX",566,11.1,1,0)="1^F^63.912^.01^^1^F"
^DD("IX",566,11.1,"AC",1,1)=""
^DD("IX",566,11.1,"B",1,1)=""
^DD("IX",566,11.1,"BB",1,1)=""
^DD("IX",567,0)="2260^AF^Reg Index on fields 4 and 88^R^^R^IR^I^2260^^^^^S"
^DD("IX",567,1)="S ^OOPS(2260,""AF"",X(1),X(2),DA)="""""
^DD("IX",567,2)="K ^OOPS(2260,""AF"",X(1),X(2),DA)"
^DD("IX",567,2.5)="K ^OOPS(2260,""AF"")"
^DD("IX",567,11.1,0)="^.114IA^2^2"
^DD("IX",567,11.1,1,0)="1^F^2260^4^^1^F"
^DD("IX",567,11.1,2,0)="2^F^2260^88^^2^F"
^DD("IX",567,11.1,"AC",1,1)=""
^DD("IX",567,11.1,"AC",2,2)=""
^DD("IX",567,11.1,"B",1,1)=""
^DD("IX",567,11.1,"B",2,2)=""
^DD("IX",567,11.1,"BB",1,1)=""
^DD("IX",567,11.1,"BB",2,2)=""
^DD("IX",568,0)="2260.095^AC^S^R^^R^IR^I^2260.095^^^^^S"
^DD("IX",568,1)="S ^OOPS(2260,DA(1),""OUTC"",""AC"",X(1),X(2),DA)="""""
^DD("IX",568,2)="K ^OOPS(2260,DA(1),""OUTC"",""AC"",X(1),X(2),DA)"
^DD("IX",568,2.5)="K ^OOPS(2260,DA(1),""OUTC"",""AC"")"
^DD("IX",568,11.1,0)="^.114IA^2^2"
^DD("IX",568,11.1,1,0)="1^F^2260.095^10^^1^F"
^DD("IX",568,11.1,1,3)=""
^DD("IX",568,11.1,2,0)="2^F^2260.095^2^^2^F"
^DD("IX",568,11.1,2,3)=""
^DD("IX",568,11.1,"AC",1,1)=""
^DD("IX",568,11.1,"AC",2,2)=""
^DD("IX",568,11.1,"B",1,1)=""
^DD("IX",568,11.1,"B",2,2)=""
^DD("IX",568,11.1,"BB",1,1)=""
^DD("IX",568,11.1,"BB",2,2)=""
^DD("IX",569,0)="8925.7^AC^Index by note entry date and note ien^MU^^R^IR^I^8925.7^^^^^A"
^DD("IX",569,.1,0)="^^5^5^3041108^"
^DD("IX",569,.1,1,0)="This index is to facilitate the lookup of documents that require "
^DD("IX",569,.1,2,0)="additional signatures.  This index will sort the documents by the "
^DD("IX",569,.1,3,0)="document entry date/time. The mumps set and kill logic for this index"
^DD("IX",569,.1,4,0)="will control the existence of nodes in the ""AC"" index.  Nodes will only"
^DD("IX",569,.1,5,0)="exist for documents that have unsigned additional signatures."
^DD("IX",569,1)="I $D(^TIU(8925,X2(1),0)) S ^TIU(8925.7,""AC"",$P($G(^TIU(8925,X2(1),12)),U),X2(1))="""""
^DD("IX",569,1.4)="S X=(X2(1)'=""""&(X2(2)=""""))"
^DD("IX",569,2)="I $D(^TIU(8925,X2(1),0)) K ^TIU(8925.7,""AC"",$P($G(^TIU(8925,X2(1),12)),U),X2(1))"
^DD("IX",569,2.4)="S X=X2(2)'="""""
^DD("IX",569,2.5)="K ^TIU(8925.7,""AC"")"
^DD("IX",569,11.1,0)="^.114IA^2^2"
^DD("IX",569,11.1,1,0)="1^F^8925.7^.01^^^F"
^DD("IX",569,11.1,2,0)="2^F^8925.7^.04^^^F"
^DD("IX",569,11.1,"B",1,1)=""
^DD("IX",569,11.1,"B",2,2)=""
^DD("IX",569,11.1,"BB",1,1)=""
^DD("IX",569,11.1,"BB",2,2)=""
^DD("IX",570,0)="8985.1^B^Used to ensure uniqueness of reference terms for set of codes^R^^R^IR^I^8985.1^^^^^LS"
^DD("IX",570,1)="S ^XTID(8985.1,""B"",X(1),X(2),X(3),DA)="""""
^DD("IX",570,2)="K ^XTID(8985.1,""B"",X(1),X(2),X(3),DA)"
^DD("IX",570,2.5)="K ^XTID(8985.1,""B"")"
^DD("IX",570,11.1,0)="^.114IA^3^3"
^DD("IX",570,11.1,1,0)="1^F^8985.1^.01^^1"
^DD("IX",570,11.1,2,0)="2^F^8985.1^.02^^2"
^DD("IX",570,11.1,3,0)="3^F^8985.1^.03^^3"
^DD("IX",570,11.1,"AC",1,1)=""
^DD("IX",570,11.1,"AC",2,2)=""
^DD("IX",570,11.1,"AC",3,3)=""
^DD("IX",570,11.1,"B",1,1)=""
^DD("IX",570,11.1,"B",2,2)=""
^DD("IX",570,11.1,"B",3,3)=""
^DD("IX",570,11.1,"BB",1,1)=""
^DD("IX",570,11.1,"BB",2,2)=""
^DD("IX",570,11.1,"BB",3,3)=""
^DD("IX",571,0)="8985.1^C^Used for locating reference terms by VUID and can indicate the master entry^R^^R^IR^I^8985.1^^^^^LS"
^DD("IX",571,1)="S ^XTID(8985.1,""C"",$E(X(1),1,20),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,1),DA)="""""
^DD("IX",571,2)="K ^XTID(8985.1,""C"",$E(X(1),1,20),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,1),DA)"
^DD("IX",571,2.5)="K ^XTID(8985.1,""C"")"
^DD("IX",571,11.1,0)="^.114IA^4^4"
^DD("IX",571,11.1,1,0)="1^F^8985.1^99.99^20^1^F"
^DD("IX",571,11.1,2,0)="2^F^8985.1^.01^30^2^F"
^DD("IX",571,11.1,3,0)="3^F^8985.1^.02^30^3^F"
^DD("IX",571,11.1,4,0)="4^F^8985.1^99.98^1^4^F"
^DD("IX",571,11.1,"AC",1,1)=""
^DD("IX",571,11.1,"AC",2,2)=""
^DD("IX",571,11.1,"AC",3,3)=""
^DD("IX",571,11.1,"AC",4,4)=""
^DD("IX",571,11.1,"B",1,1)=""
^DD("IX",571,11.1,"B",2,2)=""
^DD("IX",571,11.1,"B",3,3)=""
^DD("IX",571,11.1,"B",4,4)=""
^DD("IX",571,11.1,"BB",1,1)=""
^DD("IX",571,11.1,"BB",2,2)=""
^DD("IX",571,11.1,"BB",3,3)=""
^DD("IX",571,11.1,"BB",4,4)=""
^DD("IX",572,0)="8985.11^B^Uniqueness Index for Key 'A' of Subfile #8985.11^R^^F^IR^I^8985.11^^^^^LS"
^DD("IX",572,1)="S ^XTID(8985.1,DA(1),""TERMSTATUS"",""B"",X,DA)="""""
^DD("IX",572,2)="K ^XTID(8985.1,DA(1),""TERMSTATUS"",""B"",X,DA)"
^DD("IX",572,2.5)="K ^XTID(8985.1,DA(1),""TERMSTATUS"",""B"")"
^DD("IX",572,11.1,0)="^.114IA^1^1"
^DD("IX",572,11.1,1,0)="1^F^8985.11^.01^^1"
^DD("IX",572,11.1,"AC",1,1)=""
^DD("IX",572,11.1,"B",1,1)=""
^DD("IX",572,11.1,"BB",1,1)=""
^DD("IX",573,0)="7115.5^AC^This cross-reference is by Status Type and Status Code.^R^^R^IR^I^7115.5^^^^^S"
^DD("IX",573,1)="S ^HDIS(7115.5,""AC"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",573,2)="K ^HDIS(7115.5,""AC"",X(1),$E(X(2),1,30),DA)"
^DD("IX",573,2.5)="K ^HDIS(7115.5,""AC"")"
^DD("IX",573,11.1,0)="^.114IA^2^2"
^DD("IX",573,11.1,1,0)="1^F^7115.5^.03^^1^F"
^DD("IX",573,11.1,2,0)="2^F^7115.5^.02^30^2^F"
^DD("IX",573,11.1,"AC",1,1)=""
^DD("IX",573,11.1,"AC",2,2)=""
^DD("IX",573,11.1,"B",1,1)=""
^DD("IX",573,11.1,"B",2,2)=""
^DD("IX",573,11.1,"BB",1,1)=""
^DD("IX",573,11.1,"BB",2,2)=""
^DD("IX",574,0)="7115.6^AFIL^This cross-reference is by File Number and Field Number.^R^^R^IR^I^7115.6^^^^^S"
^DD("IX",574,1)="S ^HDIS(7115.6,""AFIL"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",574,2)="K ^HDIS(7115.6,""AFIL"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",574,2.5)="K ^HDIS(7115.6,""AFIL"")"
^DD("IX",574,11.1,0)="^.114IA^2^2"
^DD("IX",574,11.1,1,0)="1^F^7115.6^.02^30^1^F"
^DD("IX",574,11.1,1,3)=""
^DD("IX",574,11.1,2,0)="2^F^7115.6^.04^30^2^F"
^DD("IX",574,11.1,2,3)=""
^DD("IX",574,11.1,"AC",1,1)=""
^DD("IX",574,11.1,"AC",2,2)=""
^DD("IX",574,11.1,"B",1,1)=""
^DD("IX",574,11.1,"B",2,2)=""
^DD("IX",574,11.1,"BB",1,1)=""
^DD("IX",574,11.1,"BB",2,2)=""
^DD("IX",575,0)="7118.11^AC^Whole file x-ref on File/Field^R^^F^IR^W^7118.13^^^^^S"
^DD("IX",575,.1,0)="^^11^11^3050118^"
^DD("IX",575,.1,1,0)="Resulting node is"
^DD("IX",575,.1,2,0)=" "
^DD("IX",575,.1,3,0)="  ^HDISV(7118.11,""AC"",FileField,DA(1),DA)="""""
^DD("IX",575,.1,4,0)=" "
^DD("IX",575,.1,5,0)="where"
^DD("IX",575,.1,6,0)=" "
^DD("IX",575,.1,7,0)="  * FileField is a pointer to HDIS FILE/FIELD file (#7115.6)"
^DD("IX",575,.1,8,0)="  * DA(1) is the entry number in HDIS TERM/CONCEPT VUID"
^DD("IX",575,.1,9,0)="    ASSOCIATION (#7118.11)"
^DD("IX",575,.1,10,0)="  * DA is the entry number in FILE/FIELD multiple (subfile"
^DD("IX",575,.1,11,0)="    #7118.13)"
^DD("IX",575,1)="S ^HDISV(7118.11,""AC"",X,DA(1),DA)="""""
^DD("IX",575,2)="K ^HDISV(7118.11,""AC"",X,DA(1),DA)"
^DD("IX",575,2.5)="K ^HDISV(7118.11,""AC"")"
^DD("IX",575,11.1,0)="^.114IA^1^1"
^DD("IX",575,11.1,1,0)="1^F^7118.13^.01^^1^F"
^DD("IX",575,11.1,1,3)=""
^DD("IX",575,11.1,"AC",1,1)=""
^DD("IX",575,11.1,"B",1,1)=""
^DD("IX",575,11.1,"BB",1,1)=""
^DD("IX",576,0)="7118.21^ATYP^This cross-reference is by Type and Facility.^R^^R^IR^I^7118.21^^^^^S"
^DD("IX",576,1)="S ^HDISF(7118.21,""ATYP"",X(1),X(2),DA)="""""
^DD("IX",576,2)="K ^HDISF(7118.21,""ATYP"",X(1),X(2),DA)"
^DD("IX",576,2.5)="K ^HDISF(7118.21,""ATYP"")"
^DD("IX",576,11.1,0)="^.114IA^2^2"
^DD("IX",576,11.1,1,0)="1^F^7118.21^.03^^1^F"
^DD("IX",576,11.1,1,3)=""
^DD("IX",576,11.1,2,0)="2^F^7118.21^.01^^2^F"
^DD("IX",576,11.1,2,3)=""
^DD("IX",576,11.1,"AC",1,1)=""
^DD("IX",576,11.1,"AC",2,2)=""
^DD("IX",576,11.1,"B",1,1)=""
^DD("IX",576,11.1,"B",2,2)=""
^DD("IX",576,11.1,"BB",1,1)=""
^DD("IX",576,11.1,"BB",2,2)=""
^DD("IX",577,0)="7118.22^AC^Facility and File/Field record index^R^^R^IR^I^7118.22^^^^^S"
^DD("IX",577,1)="S ^HDISF(7118.22,""AC"",$E(X(1),1,20),$E(X(2),1,20),DA)="""""
^DD("IX",577,2)="K ^HDISF(7118.22,""AC"",$E(X(1),1,20),$E(X(2),1,20),DA)"
^DD("IX",577,2.5)="K ^HDISF(7118.22,""AC"")"
^DD("IX",577,11.1,0)="^.114IA^2^2"
^DD("IX",577,11.1,1,0)="1^F^7118.22^.01^20^1^F"
^DD("IX",577,11.1,1,3)=""
^DD("IX",577,11.1,2,0)="2^F^7118.22^.02^20^2^F"
^DD("IX",577,11.1,2,3)=""
^DD("IX",577,11.1,"AC",1,1)=""
^DD("IX",577,11.1,"AC",2,2)=""
^DD("IX",577,11.1,"B",1,1)=""
^DD("IX",577,11.1,"B",2,2)=""
^DD("IX",577,11.1,"BB",1,1)=""
^DD("IX",577,11.1,"BB",2,2)=""
^DD("IX",578,0)="7118.22^AS^This cross-reference is by System,File/Field and Term/Concept.^R^^R^IR^I^7118.22^^^^^S"
^DD("IX",578,1)="S ^HDISF(7118.22,""AS"",X(1),X(2),X(3),DA)="""""
^DD("IX",578,2)="K ^HDISF(7118.22,""AS"",X(1),X(2),X(3),DA)"
^DD("IX",578,2.5)="K ^HDISF(7118.22,""AS"")"
^DD("IX",578,11.1,0)="^.114IA^3^3"
^DD("IX",578,11.1,1,0)="1^F^7118.22^.01^^1^F"
^DD("IX",578,11.1,2,0)="2^F^7118.22^.02^^2^F"
^DD("IX",578,11.1,3,0)="3^F^7118.22^.04^^3^F"
^DD("IX",578,11.1,"AC",1,1)=""
^DD("IX",578,11.1,"AC",2,2)=""
^DD("IX",578,11.1,"AC",3,3)=""
^DD("IX",578,11.1,"B",1,1)=""
^DD("IX",578,11.1,"B",2,2)=""
^DD("IX",578,11.1,"B",3,3)=""
^DD("IX",578,11.1,"BB",1,1)=""
^DD("IX",578,11.1,"BB",2,2)=""
^DD("IX",578,11.1,"BB",3,3)=""
^DD("IX",579,0)="7118.25^AFAC^This cross-reference is by Facility, File/Field, Status Date/Time and Status.^R^^R^IR^I^7118.25^^^^^S"
^DD("IX",579,1)="S ^HDISF(7118.25,""AFAC"",X(1),X(2),X(4),X(3),DA)="""""
^DD("IX",579,2)="K ^HDISF(7118.25,""AFAC"",X(1),X(2),X(4),X(3),DA)"
^DD("IX",579,2.5)="K ^HDISF(7118.25,""AFAC"")"
^DD("IX",579,11.1,0)="^.114IA^4^4"
^DD("IX",579,11.1,1,0)="1^F^7118.25^.01^^1^F"
^DD("IX",579,11.1,2,0)="2^F^7118.25^.02^^2^F"
^DD("IX",579,11.1,3,0)="3^F^7118.25^.03^^4^F"
^DD("IX",579,11.1,4,0)="4^F^7118.25^.04^^3^F"
^DD("IX",579,11.1,"AC",1,1)=""
^DD("IX",579,11.1,"AC",2,2)=""
^DD("IX",579,11.1,"AC",3,4)=""
^DD("IX",579,11.1,"AC",4,3)=""
^DD("IX",579,11.1,"B",1,1)=""
^DD("IX",579,11.1,"B",2,2)=""
^DD("IX",579,11.1,"B",3,3)=""
^DD("IX",579,11.1,"B",4,4)=""
^DD("IX",579,11.1,"BB",1,1)=""
^DD("IX",579,11.1,"BB",2,2)=""
^DD("IX",579,11.1,"BB",3,3)=""
^DD("IX",579,11.1,"BB",4,4)=""
^DD("IX",580,0)="410.02^AH^generate update message to DynaMed for 2237 line item cancel^MU^^R^IR^I^410.02^^^^^A"
^DD("IX",580,.1,0)="^^2^2^3050215^"
^DD("IX",580,.1,1,0)="check for deletion action, check that DM Doc ID field (17) has data, then "
^DD("IX",580,.1,2,0)="call PRCVLIC to build update message for DynaMed in ^XTMP"
^DD("IX",580,1)="Q"
^DD("IX",580,2)="D EN^PRCVLIC"
^DD("IX",580,2.4)="S X=(X2=""""&($P($G(^PRCS(410,DA(1),""IT"",DA,4)),""^"",1)]""""))"
^DD("IX",580,11.1,0)="^.114IA^9^9"
^DD("IX",580,11.1,1,0)="1^F^410.02^.01^^^F"
^DD("IX",580,11.1,2,0)="2^F^410.02^2^^^F"
^DD("IX",580,11.1,3,0)="3^F^410.02^3^^^F"
^DD("IX",580,11.1,4,0)="4^F^410.02^4^^^F"
^DD("IX",580,11.1,5,0)="5^F^410.02^5^^^F"
^DD("IX",580,11.1,6,0)="6^F^410.02^6^^^F"
^DD("IX",580,11.1,7,0)="7^F^410.02^7^^^F"
^DD("IX",580,11.1,8,0)="8^F^410.02^17^^^F"
^DD("IX",580,11.1,9,0)="9^F^410.02^18^^^F"
^DD("IX",580,11.1,"B",1,1)=""
^DD("IX",580,11.1,"B",2,2)=""
^DD("IX",580,11.1,"B",3,3)=""
^DD("IX",580,11.1,"B",4,4)=""
^DD("IX",580,11.1,"B",5,5)=""
^DD("IX",580,11.1,"B",6,6)=""
^DD("IX",580,11.1,"B",7,7)=""
^DD("IX",580,11.1,"B",8,8)=""
^DD("IX",580,11.1,"B",9,9)=""
^DD("IX",580,11.1,"BB",1,1)=""
^DD("IX",580,11.1,"BB",2,2)=""
^DD("IX",580,11.1,"BB",3,3)=""
^DD("IX",580,11.1,"BB",4,4)=""
^DD("IX",580,11.1,"BB",5,5)=""
^DD("IX",580,11.1,"BB",6,6)=""
^DD("IX",580,11.1,"BB",7,7)=""
^DD("IX",580,11.1,"BB",8,8)=""
^DD("IX",580,11.1,"BB",9,9)=""
^DD("IX",581,0)="414.02^B^Uniqueness Index for Key 'A' of File #414.02^R^^F^IR^I^414.02^^^^^LS"
^DD("IX",581,1)="S ^PRCV(414.02,""B"",X,DA)="""""
^DD("IX",581,2)="K ^PRCV(414.02,""B"",X,DA)"
^DD("IX",581,2.5)="K ^PRCV(414.02,""B"")"
^DD("IX",581,11.1,0)="^.114IA^1^1"
^DD("IX",581,11.1,1,0)="1^F^414.02^.01^^1"
^DD("IX",581,11.1,"AC",1,1)=""
^DD("IX",581,11.1,"B",1,1)=""
^DD("IX",581,11.1,"BB",1,1)=""
^DD("IX",582,0)="414.03^C^Uniqueness Index for Key 'A' of File #414.03^R^^R^IR^I^414.03^^^^^LS"
^DD("IX",582,1)="S ^PRCV(414.03,""C"",X(1),X(2),X(3),DA)="""""
^DD("IX",582,2)="K ^PRCV(414.03,""C"",X(1),X(2),X(3),DA)"
^DD("IX",582,2.5)="K ^PRCV(414.03,""C"")"
^DD("IX",582,11.1,0)="^.114IA^3^3"
^DD("IX",582,11.1,1,0)="1^F^414.03^.01^^1"
^DD("IX",582,11.1,2,0)="2^F^414.03^.02^^2"
^DD("IX",582,11.1,3,0)="3^F^414.03^.03^^3"
^DD("IX",582,11.1,"AC",1,1)=""
^DD("IX",582,11.1,"AC",2,2)=""
^DD("IX",582,11.1,"AC",3,3)=""
^DD("IX",582,11.1,"B",1,1)=""
^DD("IX",582,11.1,"B",2,2)=""
^DD("IX",582,11.1,"B",3,3)=""
^DD("IX",582,11.1,"BB",1,1)=""
^DD("IX",582,11.1,"BB",2,2)=""
^DD("IX",582,11.1,"BB",3,3)=""
^DD("IX",585,0)="120.51^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^120.51^^^^^S"
^DD("IX",585,.1,0)="^^3^3^3050525"
^DD("IX",585,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",585,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",585,.1,3,0)="Term/Concept."
^DD("IX",585,1)="S ^GMRD(120.51,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",585,2)="K ^GMRD(120.51,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",585,2.5)="K ^GMRD(120.51,""AMASTERVUID"")"
^DD("IX",585,11.1,0)="^.114IA^2^2"
^DD("IX",585,11.1,1,0)="1^F^120.51^99.99^30^1^F"
^DD("IX",585,11.1,2,0)="2^F^120.51^99.98^^2^F"
^DD("IX",585,11.1,"AC",1,1)=""
^DD("IX",585,11.1,"AC",2,2)=""
^DD("IX",585,11.1,"B",1,1)=""
^DD("IX",585,11.1,"B",2,2)=""
^DD("IX",585,11.1,"BB",1,1)=""
^DD("IX",585,11.1,"BB",2,2)=""
^DD("IX",586,0)="120.52^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^120.52^^^^^S"
^DD("IX",586,.1,0)="^^3^3^3050525"
^DD("IX",586,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",586,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",586,.1,3,0)="Term/Concept."
^DD("IX",586,1)="S ^GMRD(120.52,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",586,2)="K ^GMRD(120.52,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",586,2.5)="K ^GMRD(120.52,""AMASTERVUID"")"
^DD("IX",586,11.1,0)="^.114IA^2^2"
^DD("IX",586,11.1,1,0)="1^F^120.52^99.99^30^1^F"
^DD("IX",586,11.1,2,0)="2^F^120.52^99.98^^2^F"
^DD("IX",586,11.1,"AC",1,1)=""
^DD("IX",586,11.1,"AC",2,2)=""
^DD("IX",586,11.1,"B",1,1)=""
^DD("IX",586,11.1,"B",2,2)=""
^DD("IX",586,11.1,"BB",1,1)=""
^DD("IX",586,11.1,"BB",2,2)=""
^DD("IX",587,0)="120.53^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^120.53^^^^^S"
^DD("IX",587,.1,0)="^^3^3^3050525"
^DD("IX",587,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",587,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",587,.1,3,0)="Term/Concept."
^DD("IX",587,1)="S ^GMRD(120.53,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",587,2)="K ^GMRD(120.53,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",587,2.5)="K ^GMRD(120.53,""AMASTERVUID"")"
^DD("IX",587,11.1,0)="^.114IA^2^2"
^DD("IX",587,11.1,1,0)="1^F^120.53^99.99^30^1^F"
^DD("IX",587,11.1,2,0)="2^F^120.53^99.98^^2^F"
^DD("IX",587,11.1,"AC",1,1)=""
^DD("IX",587,11.1,"AC",2,2)=""
^DD("IX",587,11.1,"B",1,1)=""
^DD("IX",587,11.1,"B",2,2)=""
^DD("IX",587,11.1,"BB",1,1)=""
^DD("IX",587,11.1,"BB",2,2)=""
^DD("IX",588,0)="2^NOP^Index of standardized values that don't match .01 value.^R^^F^IR^I^2^^^^^LS"
^DD("IX",588,.1,0)="^^5^5^3050611"
^DD("IX",588,.1,1,0)="This cross reference facilitates PATIENT file lookups by a standardized name"
^DD("IX",588,.1,2,0)="value.  In addition to the standardization applied by Kernel name utilities,"
^DD("IX",588,.1,3,0)="hyphens and apostrophes are also removed from the name value.  This cross"
^DD("IX",588,.1,4,0)="reference is only set if the standardized name is different than the patient"
^DD("IX",588,.1,5,0)="name value stored in the NAME (#.01) field."
^DD("IX",588,1)="S ^DPT(""NOP"",$E(X,1,30),DA)="""""
^DD("IX",588,2)="K ^DPT(""NOP"",$E(X,1,30),DA)"
^DD("IX",588,2.5)="K ^DPT(""NOP"")"
^DD("IX",588,11.1,0)="^.114IA^1^1"
^DD("IX",588,11.1,1,0)="1^F^2^.01^30^1^F"
^DD("IX",588,11.1,1,2)="S X=$$NOP^XLFNAME7(X)"
^DD("IX",588,11.1,1,4)="S X=$$NOP^XLFNAME7(X)"
^DD("IX",588,11.1,"AC",1,1)=""
^DD("IX",588,11.1,"B",1,1)=""
^DD("IX",588,11.1,"BB",1,1)=""
^DD("IX",589,0)="2^ANAM01^This index keeps the NAME COMPONENTS file in synch with the .01 field.^MU^^F^IR^I^2^^^^^A"
^DD("IX",589,.1,0)="^^3^3^3050611"
^DD("IX",589,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",589,.1,2,0)="COMPONENTS (#20) file record associated with the #.01 field synchronized"
^DD("IX",589,.1,3,0)="with the data value stored in that field."
^DD("IX",589,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.01,.DG20NAME,1.01,+$P($G(^DPT(DA,""NAME"")),U),""CL30"") K DG20NAME Q"
^DD("IX",589,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.01,1.01) Q"
^DD("IX",589,11.1,0)="^.114IA^1^1"
^DD("IX",589,11.1,1,0)="1^F^2^.01^^1^F"
^DD("IX",589,11.1,"AC",1,1)=""
^DD("IX",589,11.1,"B",1,1)=""
^DD("IX",589,11.1,"BB",1,1)=""
^DD("IX",590,0)="2^ANAM211^This index keeps the NAME COMPONENTS file in synch with field #.211.^MU^^F^IR^I^2^^^^^A"
^DD("IX",590,.1,0)="^^3^3^3050611"
^DD("IX",590,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",590,.1,2,0)="COMPONENTS (#20) file record associated with the #.211 field synchronized"
^DD("IX",590,.1,3,0)="with the data value stored in that field."
^DD("IX",590,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.211,.DG20NAME,1.02,+$P($G(^DPT(DA,""NAME"")),U,2),""CL35"") K DG20NAME Q"
^DD("IX",590,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.211,1.02) Q"
^DD("IX",590,11.1,0)="^.114IA^1^1"
^DD("IX",590,11.1,1,0)="1^F^2^.211^^1^F"
^DD("IX",590,11.1,"AC",1,1)=""
^DD("IX",590,11.1,"B",1,1)=""
^DD("IX",590,11.1,"BB",1,1)=""
^DD("IX",591,0)="2^ANAM2191^This index keeps the NAME COMPONENTS file in synch with field #.2191.^MU^^F^IR^I^2^^^^^A"
^DD("IX",591,.1,0)="^^3^3^3050611"
^DD("IX",591,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",591,.1,2,0)="COMPONENTS (#20) file record associated with the #.2191 field synchronized"
^DD("IX",591,.1,3,0)="with the data value stored in that field."
^DD("IX",591,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2191,.DG20NAME,1.03,+$P($G(^DPT(DA,""NAME"")),U,3),""CL35"") K DG20NAME Q"
^DD("IX",591,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2191,1.03) Q"
^DD("IX",591,11.1,0)="^.114IA^1^1"
^DD("IX",591,11.1,1,0)="1^F^2^.2191^^1^F"
^DD("IX",591,11.1,"AC",1,1)=""
^DD("IX",591,11.1,"B",1,1)=""
^DD("IX",591,11.1,"BB",1,1)=""
^DD("IX",592,0)="2^ANAM2401^This index keeps the NAME COMPONENTS file in synch with field #.2401.^MU^^F^IR^I^2^^^^^A"
^DD("IX",592,.1,0)="^^3^3^3050611"
^DD("IX",592,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",592,.1,2,0)="COMPONENTS (#20) file record associated with the #.2401 field synchronized"
^DD("IX",592,.1,3,0)="with the data value stored in that field."
^DD("IX",592,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2401,.DG20NAME,1.04,+$P($G(^DPT(DA,""NAME"")),U,4),""CL35"") K DG20NAME Q"
^DD("IX",592,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2401,1.04) Q"
^DD("IX",592,11.1,0)="^.114IA^1^1"
^DD("IX",592,11.1,1,0)="1^F^2^.2401^^1^F"
^DD("IX",592,11.1,"AC",1,1)=""
^DD("IX",592,11.1,"B",1,1)=""
^DD("IX",592,11.1,"BB",1,1)=""
^DD("IX",593,0)="2^ANAM2402^This index keeps the NAME COMPONENTS file in synch with field #.2402.^MU^^F^IR^I^2^^^^^A"
^DD("IX",593,.1,0)="^^3^3^3050611"
^DD("IX",593,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",593,.1,2,0)="COMPONENTS (#20) file record associated with the #.2402 field synchronized"
^DD("IX",593,.1,3,0)="with the data value stored in that field."
^DD("IX",593,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2402,.DG20NAME,1.05,+$P($G(^DPT(DA,""NAME"")),U,5),""CL35"") K DG20NAME Q"
^DD("IX",593,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2402,1.05) Q"
^DD("IX",593,11.1,0)="^.114IA^1^1"
^DD("IX",593,11.1,1,0)="1^F^2^.2402^^1^F"
^DD("IX",593,11.1,"AC",1,1)=""
^DD("IX",593,11.1,"B",1,1)=""
^DD("IX",593,11.1,"BB",1,1)=""
^DD("IX",594,0)="2^ANAM2403^This index keeps the NAME COMPONENTS file in synch with field #.2403.^MU^^F^IR^I^2^^^^^A"
^DD("IX",594,.1,0)="^^3^3^3050611"
^DD("IX",594,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",594,.1,2,0)="COMPONENTS (#20) file record associated with the #.2403 field synchronized"
^DD("IX",594,.1,3,0)="with the data value stored in that field."
^DD("IX",594,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.2403,.DG20NAME,1.06,+$P($G(^DPT(DA,""NAME"")),U,6),""CL35"") K DG20NAME Q"
^DD("IX",594,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.2403,1.06) Q"
^DD("IX",594,11.1,0)="^.114IA^1^1"
^DD("IX",594,11.1,1,0)="1^F^2^.2403^^1^F"
^DD("IX",594,11.1,"AC",1,1)=""
^DD("IX",594,11.1,"B",1,1)=""
^DD("IX",594,11.1,"BB",1,1)=""
^DD("IX",595,0)="2^ANAM331^This index keeps the NAME COMPONENTS file in synch with field #.331.^MU^^F^IR^I^2^^^^^A"
^DD("IX",595,.1,0)="^^3^3^3050611"
^DD("IX",595,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",595,.1,2,0)="COMPONENTS (#20) file record associated with the #.331 field synchronized"
^DD("IX",595,.1,3,0)="with the data value stored in that field."
^DD("IX",595,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.331,.DG20NAME,1.07,+$P($G(^DPT(DA,""NAME"")),U,7),""CL35"") K DG20NAME Q"
^DD("IX",595,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.331,1.07) Q"
^DD("IX",595,11.1,0)="^.114IA^1^1"
^DD("IX",595,11.1,1,0)="1^F^2^.331^^1^F"
^DD("IX",595,11.1,"AC",1,1)=""
^DD("IX",595,11.1,"B",1,1)=""
^DD("IX",595,11.1,"BB",1,1)=""
^DD("IX",596,0)="2^ANAM3311^This index keeps the NAME COMPONENTS file in synch with field #.3311.^MU^^F^IR^I^2^^^^^A"
^DD("IX",596,.1,0)="^^3^3^3050611"
^DD("IX",596,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",596,.1,2,0)="COMPONENTS (#20) file record associated with the #.3311 field synchronized"
^DD("IX",596,.1,3,0)="with the data value stored in that field."
^DD("IX",596,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.3311,.DG20NAME,1.08,+$P($G(^DPT(DA,""NAME"")),U,8),""CL35"") K DG20NAME Q"
^DD("IX",596,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.3311,1.08) Q"
^DD("IX",596,11.1,0)="^.114IA^1^1"
^DD("IX",596,11.1,1,0)="1^F^2^.3311^^1^F"
^DD("IX",596,11.1,"AC",1,1)=""
^DD("IX",596,11.1,"B",1,1)=""
^DD("IX",596,11.1,"BB",1,1)=""
^DD("IX",597,0)="2^ANAM341^This index keeps the NAME COMPONENTS file in synch with field #.341.^MU^^F^IR^I^2^^^^^A"
^DD("IX",597,.1,0)="^^3^3^3050611"
^DD("IX",597,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",597,.1,2,0)="COMPONENTS (#20) file record associated with the #.341 field synchronized"
^DD("IX",597,.1,3,0)="with the data value stored in that field."
^DD("IX",597,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2,.DA,.341,.DG20NAME,1.09,+$P($G(^DPT(DA,""NAME"")),U,9),""CL35"") K DG20NAME Q"
^DD("IX",597,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2,.DA,.341,1.09) Q"
^DD("IX",597,11.1,0)="^.114IA^1^1"
^DD("IX",597,11.1,1,0)="1^F^2^.341^^1^F"
^DD("IX",597,11.1,"AC",1,1)=""
^DD("IX",597,11.1,"B",1,1)=""
^DD("IX",597,11.1,"BB",1,1)=""
^DD("IX",598,0)="2^ANAM201^This index keeps the NAME COMPONENTS file in synch with the .01 field.^MU^^F^IR^W^2.01^^^^^A"
^DD("IX",598,.1,0)="^^3^3^3050611"
^DD("IX",598,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",598,.1,2,0)="COMPONENTS (#20) file record associated with the #.01 field synchronized"
^DD("IX",598,.1,3,0)="with the data value stored in that field."
^DD("IX",598,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.01,.DA,.01,.DG20NAME,100.03,,""CL30"") K DG20NAME Q"
^DD("IX",598,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.01,.DA,.01,100.03) Q"
^DD("IX",598,11.1,0)="^.114IA^1^1"
^DD("IX",598,11.1,1,0)="1^F^2.01^.01^^1^F"
^DD("IX",598,11.1,"AC",1,1)=""
^DD("IX",598,11.1,"B",1,1)=""
^DD("IX",598,11.1,"BB",1,1)=""
^DD("IX",599,0)="2^ANAM1001^This index keeps the NAME COMPONENTS file in synch with field #30.^MU^^F^IR^W^2.101^^^^^A"
^DD("IX",599,.1,0)="^^3^3^3050611"
^DD("IX",599,.1,1,0)="This cross reference uses Kernel name standardization APIs to keep the NAME"
^DD("IX",599,.1,2,0)="COMPONENTS (#20) file record associated with the #30 field synchronized"
^DD("IX",599,.1,3,0)="with the data value stored in that field."
^DD("IX",599,1)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1,DG20NAME=X D NARY^XLFNAME7(.DG20NAME),UPDCOMP^XLFNAME2(2.101,.DA,30,.DG20NAME,100.21,,""CL30"") K DG20NAME Q"
^DD("IX",599,2)="I '$G(XUNOTRIG) N XUNOTRIG S XUNOTRIG=1 D DELCOMP^XLFNAME2(2.101,.DA,30,100.21) Q"
^DD("IX",599,11.1,0)="^.114IA^1^1"
^DD("IX",599,11.1,1,0)="1^F^2.101^30^^1^F"
^DD("IX",599,11.1,"AC",1,1)=""
^DD("IX",599,11.1,"B",1,1)=""
^DD("IX",599,11.1,"BB",1,1)=""
^DD("IX",600,0)="414.04^C^Uniqueness Index for Key 'A' of File #414.04^R^^R^IR^I^414.04^^^^^LS"
^DD("IX",600,1)="S ^PRCV(414.04,""C"",X(1),X(2),X(3),DA)="""""
^DD("IX",600,2)="K ^PRCV(414.04,""C"",X(1),X(2),X(3),DA)"
^DD("IX",600,2.5)="K ^PRCV(414.04,""C"")"
^DD("IX",600,11.1,0)="^.114IA^3^3"
^DD("IX",600,11.1,1,0)="1^F^414.04^.01^^1"
^DD("IX",600,11.1,2,0)="2^F^414.04^.02^^2"
^DD("IX",600,11.1,3,0)="3^F^414.04^.03^^3"
^DD("IX",600,11.1,"AC",1,1)=""
^DD("IX",600,11.1,"AC",2,2)=""
^DD("IX",600,11.1,"AC",3,3)=""
^DD("IX",600,11.1,"B",1,1)=""
^DD("IX",600,11.1,"B",2,2)=""
^DD("IX",600,11.1,"B",3,3)=""
^DD("IX",600,11.1,"BB",1,1)=""
^DD("IX",600,11.1,"BB",2,2)=""
^DD("IX",600,11.1,"BB",3,3)=""
^DD("IX",601,0)="441^AFREE^KEEPS TRACK OF ""FREE RANGES""^MU^^F^IR^I^441^^^^^A"
^DD("IX",601,.1,0)="^^2^2^3050413^"
^DD("IX",601,.1,1,0)="This cross-reference is used to keep track of ranges of unused item "
^DD("IX",601,.1,2,0)="numbers. Each entry in the index corresponds to a free range."
^DD("IX",601,1)="D SET^PRCVITMU"
^DD("IX",601,1.4)=""
^DD("IX",601,2)="D KILL^PRCVITMU"
^DD("IX",601,2.4)=""
^DD("IX",601,2.5)="K ^PRC(441,""AFREE"") S ^PRC(441,""AFREE"",1,999999)="""""
^DD("IX",601,11.1,0)="^.114IA^1^1"
^DD("IX",601,11.1,1,0)="1^F^441^.01^30^^F"
^DD("IX",601,11.1,"B",1,1)=""
^DD("IX",601,11.1,"BB",1,1)=""
^DD("IX",602,0)="442.01^AK^SET UP TRANSACTION FILE TO DYNAMED IF FIELD IS KILLED^MU^^R^IR^I^442.01^^^^^A"
^DD("IX",602,1)="Q"
^DD("IX",602,2)="D DELITEM^PRCV442B(D0)"
^DD("IX",602,2.4)="S X=(X2(1)=""""&($P($G(^PRC(442,D0,2,D1,2)),""^"",15)]""""))"
^DD("IX",602,11.1,0)="^.114IA^8^8"
^DD("IX",602,11.1,1,0)="1^F^442.01^.01^^^F"
^DD("IX",602,11.1,2,0)="2^F^442.01^48^^^F"
^DD("IX",602,11.1,3,0)="3^F^442.01^1.5^^^F"
^DD("IX",602,11.1,4,0)="4^F^442.01^2^^^F"
^DD("IX",602,11.1,5,0)="5^F^442.01^3^^^F"
^DD("IX",602,11.1,6,0)="6^F^442.01^3.1^^^F"
^DD("IX",602,11.1,7,0)="7^F^442.01^5^^^F"
^DD("IX",602,11.1,8,0)="8^F^442.01^10^^^F"
^DD("IX",602,11.1,"B",1,1)=""
^DD("IX",602,11.1,"B",2,2)=""
^DD("IX",602,11.1,"B",3,3)=""
^DD("IX",602,11.1,"B",4,4)=""
^DD("IX",602,11.1,"B",5,5)=""
^DD("IX",602,11.1,"B",6,6)=""
^DD("IX",602,11.1,"B",7,7)=""
^DD("IX",602,11.1,"B",8,8)=""
^DD("IX",602,11.1,"BB",1,1)=""
^DD("IX",602,11.1,"BB",2,2)=""
^DD("IX",602,11.1,"BB",3,3)=""
^DD("IX",602,11.1,"BB",4,4)=""
^DD("IX",602,11.1,"BB",5,5)=""
^DD("IX",602,11.1,"BB",6,6)=""
^DD("IX",602,11.1,"BB",7,7)=""
^DD("IX",602,11.1,"BB",8,8)=""
^DD("IX",603,0)="2^ADTTM1^TEMPORARY ADDRESS Cross-Reference^MU^^R^^I^2^^^^^A"
^DD("IX",603,.1,0)="^^2^2^3050813"
^DD("IX",603,.1,1,0)="This cross-reference will update the TEMPORARY ADDRESS CHANGE DT/TM field"
^DD("IX",603,.1,2,0)="when the Temporary Address data changes for a patient."
^DD("IX",603,1)="D TEMP^DGDDDTTM"
^DD("IX",603,2)="D TEMP^DGDDDTTM"
^DD("IX",603,11.1,0)="^.114IA^10^10"
^DD("IX",603,11.1,1,0)="1^F^2^.1211^^^F"
^DD("IX",603,11.1,2,0)="2^F^2^.1212^^^F"
^DD("IX",603,11.1,3,0)="3^F^2^.1213^^^F"
^DD("IX",603,11.1,4,0)="4^F^2^.1214^^^F"
^DD("IX",603,11.1,5,0)="5^F^2^.1215^^^F"
^DD("IX",603,11.1,6,0)="6^F^2^.1216^^^F"
^DD("IX",603,11.1,7,0)="7^F^2^.1217^^^F"
^DD("IX",603,11.1,8,0)="8^F^2^.1218^^^F"
^DD("IX",603,11.1,9,0)="9^F^2^.12105^^^F"
^DD("IX",603,11.1,10,0)="10^F^2^.12112^^^F"
^DD("IX",603,11.1,"B",1,1)=""
^DD("IX",603,11.1,"B",2,2)=""
^DD("IX",603,11.1,"B",3,3)=""
^DD("IX",603,11.1,"B",4,4)=""
^DD("IX",603,11.1,"B",5,5)=""
^DD("IX",603,11.1,"B",6,6)=""
^DD("IX",603,11.1,"B",7,7)=""
^DD("IX",603,11.1,"B",8,8)=""
^DD("IX",603,11.1,"B",9,9)=""
^DD("IX",603,11.1,"B",10,10)=""
^DD("IX",603,11.1,"BB",1,1)=""
^DD("IX",603,11.1,"BB",2,2)=""
^DD("IX",603,11.1,"BB",3,3)=""
^DD("IX",603,11.1,"BB",4,4)=""
^DD("IX",603,11.1,"BB",5,5)=""
^DD("IX",603,11.1,"BB",6,6)=""
^DD("IX",603,11.1,"BB",7,7)=""
^DD("IX",603,11.1,"BB",8,8)=""
^DD("IX",603,11.1,"BB",9,9)=""
^DD("IX",603,11.1,"BB",10,10)=""
^DD("IX",604,0)="2^ADTTM2^CONFIDENTIAL ADDRESS Cross-Reference^MU^^R^^I^2^^^^^A"
^DD("IX",604,.1,0)="^^2^2^3060501^"
^DD("IX",604,.1,1,0)="This cross-reference will update the CONFIDENTIAL ADDR CHANGE DT/TM field"
^DD("IX",604,.1,2,0)="when the confidential address data changes for a patient."
^DD("IX",604,1)="D CONF^DGDDDTTM"
^DD("IX",604,2)="D CONF^DGDDDTTM"
^DD("IX",604,11.1,0)="^.114IA^11^10"
^DD("IX",604,11.1,1,0)="1^F^2^.1411^^^F"
^DD("IX",604,11.1,2,0)="2^F^2^.1412^^^F"
^DD("IX",604,11.1,3,0)="3^F^2^.1413^^^F"
^DD("IX",604,11.1,4,0)="4^F^2^.1414^^^F"
^DD("IX",604,11.1,5,0)="5^F^2^.1415^^^F"
^DD("IX",604,11.1,6,0)="6^F^2^.1416^^^F"
^DD("IX",604,11.1,8,0)="8^F^2^.1418^^^F"
^DD("IX",604,11.1,9,0)="9^F^2^.14105^^^F"
^DD("IX",604,11.1,10,0)="10^F^2^.14111^^^F"
^DD("IX",604,11.1,11,0)="7^F^2^.1417^^^F"
^DD("IX",604,11.1,11,3)=""
^DD("IX",604,11.1,"B",1,1)=""
^DD("IX",604,11.1,"B",2,2)=""
^DD("IX",604,11.1,"B",3,3)=""
^DD("IX",604,11.1,"B",4,4)=""
^DD("IX",604,11.1,"B",5,5)=""
^DD("IX",604,11.1,"B",6,6)=""
^DD("IX",604,11.1,"B",7,11)=""
^DD("IX",604,11.1,"B",8,8)=""
^DD("IX",604,11.1,"B",9,9)=""
^DD("IX",604,11.1,"B",10,10)=""
^DD("IX",604,11.1,"BB",1,1)=""
^DD("IX",604,11.1,"BB",2,2)=""
^DD("IX",604,11.1,"BB",3,3)=""
^DD("IX",604,11.1,"BB",4,4)=""
^DD("IX",604,11.1,"BB",5,5)=""
^DD("IX",604,11.1,"BB",6,6)=""
^DD("IX",604,11.1,"BB",7,11)=""
^DD("IX",604,11.1,"BB",8,8)=""
^DD("IX",604,11.1,"BB",9,9)=""
^DD("IX",604,11.1,"BB",10,10)=""
^DD("IX",605,0)="2^ADTTM3^PRIMARY NOK Cross-Reference^MU^^R^^I^2^^^^^A"
^DD("IX",605,.1,0)="^^2^2^3050813"
^DD("IX",605,.1,1,0)="This cross-reference will update the PRIMARY NOK CHANGE DATE/TIME field"
^DD("IX",605,.1,2,0)="when the Primary Next of Kin data changes for a patient."
^DD("IX",605,1)="D PNOK^DGDDDTTM"
^DD("IX",605,2)="D PNOK^DGDDDTTM"
^DD("IX",605,11.1,0)="^.114IA^10^10"
^DD("IX",605,11.1,1,0)="1^F^2^.211^^^F"
^DD("IX",605,11.1,2,0)="2^F^2^.212^^^F"
^DD("IX",605,11.1,3,0)="3^F^2^.213^^^F"
^DD("IX",605,11.1,4,0)="4^F^2^.214^^^F"
^DD("IX",605,11.1,5,0)="5^F^2^.215^^^F"
^DD("IX",605,11.1,6,0)="6^F^2^.216^^^F"
^DD("IX",605,11.1,7,0)="7^F^2^.217^^^F"
^DD("IX",605,11.1,8,0)="8^F^2^.218^^^F"
^DD("IX",605,11.1,9,0)="9^F^2^.2125^^^F"
^DD("IX",605,11.1,10,0)="10^F^2^.2207^^^F"
^DD("IX",605,11.1,"B",1,1)=""
^DD("IX",605,11.1,"B",2,2)=""
^DD("IX",605,11.1,"B",3,3)=""
^DD("IX",605,11.1,"B",4,4)=""
^DD("IX",605,11.1,"B",5,5)=""
^DD("IX",605,11.1,"B",6,6)=""
^DD("IX",605,11.1,"B",7,7)=""
^DD("IX",605,11.1,"B",8,8)=""
^DD("IX",605,11.1,"B",9,9)=""
^DD("IX",605,11.1,"B",10,10)=""
^DD("IX",605,11.1,"BB",1,1)=""
^DD("IX",605,11.1,"BB",2,2)=""
^DD("IX",605,11.1,"BB",3,3)=""
^DD("IX",605,11.1,"BB",4,4)=""
^DD("IX",605,11.1,"BB",5,5)=""
^DD("IX",605,11.1,"BB",6,6)=""
^DD("IX",605,11.1,"BB",7,7)=""
^DD("IX",605,11.1,"BB",8,8)=""
^DD("IX",605,11.1,"BB",9,9)=""
^DD("IX",605,11.1,"BB",10,10)=""
^DD("IX",606,0)="2^ADTTM4^SECONDARY NOK Cross-Reference^MU^^R^^I^2^^^^^A"
^DD("IX",606,.1,0)="^^2^2^3050813"
^DD("IX",606,.1,1,0)="This cross-reference will update the SECONDARY NOK CHANGE DATE/TIME field"
^DD("IX",606,.1,2,0)="when the Secondary Next of Kin data changes for a patient."
^DD("IX",606,1)="D SNOK^DGDDDTTM"
^DD("IX",606,2)="D SNOK^DGDDDTTM"
^DD("IX",606,11.1,0)="^.114IA^10^10"
^DD("IX",606,11.1,1,0)="1^F^2^.2191^^^F"
^DD("IX",606,11.1,2,0)="2^F^2^.2192^^^F"
^DD("IX",606,11.1,3,0)="3^F^2^.2193^^^F"
^DD("IX",606,11.1,4,0)="4^F^2^.2194^^^F"
^DD("IX",606,11.1,5,0)="5^F^2^.2195^^^F"
^DD("IX",606,11.1,6,0)="6^F^2^.2196^^^F"
^DD("IX",606,11.1,7,0)="7^F^2^.2197^^^F"
^DD("IX",606,11.1,8,0)="8^F^2^.2198^^^F"
^DD("IX",606,11.1,9,0)="9^F^2^.21925^^^F"
^DD("IX",606,11.1,10,0)="10^F^2^.2203^^^F"
^DD("IX",606,11.1,"B",1,1)=""
^DD("IX",606,11.1,"B",2,2)=""
^DD("IX",606,11.1,"B",3,3)=""
^DD("IX",606,11.1,"B",4,4)=""
^DD("IX",606,11.1,"B",5,5)=""
^DD("IX",606,11.1,"B",6,6)=""
^DD("IX",606,11.1,"B",7,7)=""
^DD("IX",606,11.1,"B",8,8)=""
^DD("IX",606,11.1,"B",9,9)=""
^DD("IX",606,11.1,"B",10,10)=""
^DD("IX",606,11.1,"BB",1,1)=""
^DD("IX",606,11.1,"BB",2,2)=""
^DD("IX",606,11.1,"BB",3,3)=""
^DD("IX",606,11.1,"BB",4,4)=""
^DD("IX",606,11.1,"BB",5,5)=""
^DD("IX",606,11.1,"BB",6,6)=""
^DD("IX",606,11.1,"BB",7,7)=""
^DD("IX",606,11.1,"BB",8,8)=""
^DD("IX",606,11.1,"BB",9,9)=""
^DD("IX",606,11.1,"BB",10,10)=""
^DD("IX",607,0)="2^ADTTM5^E-CONTACT Cross-Reference^MU^^R^^I^2^^^^^A"
^DD("IX",607,.1,0)="^^2^2^3050813"
^DD("IX",607,.1,1,0)="This cross-reference will update the E-CONTACT CHANGE DATE/TIME field when"
^DD("IX",607,.1,2,0)="the Emergency Contact data changes for a patient."
^DD("IX",607,1)="D ECON^DGDDDTTM"
^DD("IX",607,2)="D ECON^DGDDDTTM"
^DD("IX",607,11.1,0)="^.114IA^10^10"
^DD("IX",607,11.1,1,0)="1^F^2^.331^^^F"
^DD("IX",607,11.1,2,0)="2^F^2^.332^^^F"
^DD("IX",607,11.1,3,0)="3^F^2^.333^^^F"
^DD("IX",607,11.1,4,0)="4^F^2^.334^^^F"
^DD("IX",607,11.1,5,0)="5^F^2^.335^^^F"
^DD("IX",607,11.1,6,0)="6^F^2^.336^^^F"
^DD("IX",607,11.1,7,0)="7^F^2^.337^^^F"
^DD("IX",607,11.1,8,0)="8^F^2^.338^^^F"
^DD("IX",607,11.1,9,0)="9^F^2^.3305^^^F"
^DD("IX",607,11.1,10,0)="10^F^2^.2201^^^F"
^DD("IX",607,11.1,"B",1,1)=""
^DD("IX",607,11.1,"B",2,2)=""
^DD("IX",607,11.1,"B",3,3)=""
^DD("IX",607,11.1,"B",4,4)=""
^DD("IX",607,11.1,"B",5,5)=""
^DD("IX",607,11.1,"B",6,6)=""
^DD("IX",607,11.1,"B",7,7)=""
^DD("IX",607,11.1,"B",8,8)=""
^DD("IX",607,11.1,"B",9,9)=""
^DD("IX",607,11.1,"B",10,10)=""
^DD("IX",607,11.1,"BB",1,1)=""
^DD("IX",607,11.1,"BB",2,2)=""
^DD("IX",607,11.1,"BB",3,3)=""
^DD("IX",607,11.1,"BB",4,4)=""
^DD("IX",607,11.1,"BB",5,5)=""
^DD("IX",607,11.1,"BB",6,6)=""
^DD("IX",607,11.1,"BB",7,7)=""
^DD("IX",607,11.1,"BB",8,8)=""
^DD("IX",607,11.1,"BB",9,9)=""
^DD("IX",607,11.1,"BB",10,10)=""
^DD("IX",608,0)="2^ADTTM6^E2-CONTACT Cross-Reference^MU^^R^^I^2^^^^^A"
^DD("IX",608,.1,0)="^^2^2^3050813"
^DD("IX",608,.1,1,0)="This cross-reference will update the E2-CONTACT CHANGE DATE/TIME field"
^DD("IX",608,.1,2,0)="when the Secondary Emergency Contact data changes for a patient."
^DD("IX",608,1)="D ECON2^DGDDDTTM"
^DD("IX",608,2)="D ECON2^DGDDDTTM"
^DD("IX",608,11.1,0)="^.114IA^9^9"
^DD("IX",608,11.1,1,0)="1^F^2^.3311^^^F"
^DD("IX",608,11.1,2,0)="2^F^2^.3312^^^F"
^DD("IX",608,11.1,3,0)="3^F^2^.3313^^^F"
^DD("IX",608,11.1,4,0)="4^F^2^.3314^^^F"
^DD("IX",608,11.1,5,0)="5^F^2^.3315^^^F"
^DD("IX",608,11.1,6,0)="6^F^2^.3316^^^F"
^DD("IX",608,11.1,7,0)="7^F^2^.3317^^^F"
^DD("IX",608,11.1,8,0)="8^F^2^.3318^^^F"
^DD("IX",608,11.1,9,0)="9^F^2^.2204^^^F"
^DD("IX",608,11.1,"B",1,1)=""
^DD("IX",608,11.1,"B",2,2)=""
^DD("IX",608,11.1,"B",3,3)=""
^DD("IX",608,11.1,"B",4,4)=""
^DD("IX",608,11.1,"B",5,5)=""
^DD("IX",608,11.1,"B",6,6)=""
^DD("IX",608,11.1,"B",7,7)=""
^DD("IX",608,11.1,"B",8,8)=""
^DD("IX",608,11.1,"B",9,9)=""
^DD("IX",608,11.1,"BB",1,1)=""
^DD("IX",608,11.1,"BB",2,2)=""
^DD("IX",608,11.1,"BB",3,3)=""
^DD("IX",608,11.1,"BB",4,4)=""
^DD("IX",608,11.1,"BB",5,5)=""
^DD("IX",608,11.1,"BB",6,6)=""
^DD("IX",608,11.1,"BB",7,7)=""
^DD("IX",608,11.1,"BB",8,8)=""
^DD("IX",608,11.1,"BB",9,9)=""
^DD("IX",609,0)="2^ADTTM7^DESIGNEE Cross-Reference^MU^^R^^I^2^^^^^A"
^DD("IX",609,.1,0)="^^2^2^3050813"
^DD("IX",609,.1,1,0)="This cross-reference will update the DESIGNEE CHANGE DATE/TIME field when"
^DD("IX",609,.1,2,0)="the Designee data changes for a patient."
^DD("IX",609,1)="D DESIG^DGDDDTTM"
^DD("IX",609,2)="D DESIG^DGDDDTTM"
^DD("IX",609,11.1,0)="^.114IA^10^10"
^DD("IX",609,11.1,1,0)="1^F^2^.341^^^F"
^DD("IX",609,11.1,2,0)="2^F^2^.342^^^F"
^DD("IX",609,11.1,3,0)="3^F^2^.343^^^F"
^DD("IX",609,11.1,4,0)="4^F^2^.344^^^F"
^DD("IX",609,11.1,5,0)="5^F^2^.345^^^F"
^DD("IX",609,11.1,6,0)="6^F^2^.346^^^F"
^DD("IX",609,11.1,7,0)="7^F^2^.347^^^F"
^DD("IX",609,11.1,8,0)="8^F^2^.348^^^F"
^DD("IX",609,11.1,9,0)="9^F^2^.3405^^^F"
^DD("IX",609,11.1,10,0)="10^F^2^.2202^^^F"
^DD("IX",609,11.1,"B",1,1)=""
^DD("IX",609,11.1,"B",2,2)=""
^DD("IX",609,11.1,"B",3,3)=""
^DD("IX",609,11.1,"B",4,4)=""
^DD("IX",609,11.1,"B",5,5)=""
^DD("IX",609,11.1,"B",6,6)=""
^DD("IX",609,11.1,"B",7,7)=""
^DD("IX",609,11.1,"B",8,8)=""
^DD("IX",609,11.1,"B",9,9)=""
^DD("IX",609,11.1,"B",10,10)=""
^DD("IX",609,11.1,"BB",1,1)=""
^DD("IX",609,11.1,"BB",2,2)=""
^DD("IX",609,11.1,"BB",3,3)=""
^DD("IX",609,11.1,"BB",4,4)=""
^DD("IX",609,11.1,"BB",5,5)=""
^DD("IX",609,11.1,"BB",6,6)=""
^DD("IX",609,11.1,"BB",7,7)=""
^DD("IX",609,11.1,"BB",8,8)=""
^DD("IX",609,11.1,"BB",9,9)=""
^DD("IX",609,11.1,"BB",10,10)=""
^DD("IX",610,0)="50.416^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^50.416^^^^^S"
^DD("IX",610,.1,0)="^^3^3^3050511^^"
^DD("IX",610,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference"
^DD("IX",610,.1,2,0)="can be used to identify the Master entry for a VUID associated with a"
^DD("IX",610,.1,3,0)="Term/Concept."
^DD("IX",610,1)="S ^PS(50.416,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",610,2)="K ^PS(50.416,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",610,2.5)="K ^PS(50.416,""AMASTERVUID"")"
^DD("IX",610,11.1,0)="^.114IA^2^2"
^DD("IX",610,11.1,1,0)="1^F^50.416^99.99^30^1^F"
^DD("IX",610,11.1,2,0)="2^F^50.416^99.98^^2^F"
^DD("IX",610,11.1,"AC",1,1)=""
^DD("IX",610,11.1,"AC",2,2)=""
^DD("IX",610,11.1,"B",1,1)=""
^DD("IX",610,11.1,"B",2,2)=""
^DD("IX",610,11.1,"BB",1,1)=""
^DD("IX",610,11.1,"BB",2,2)=""
^DD("IX",611,0)="50.6^AMASTERVUID^This cross-refernce identifies the Master entry for a VUID.^R^^R^IR^I^50.6^^^^^S"
^DD("IX",611,.1,0)="^^3^3^3050511^^"
^DD("IX",611,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference"
^DD("IX",611,.1,2,0)="can be used to identify the Master entry for a VUID associated with a"
^DD("IX",611,.1,3,0)="Term/Concept."
^DD("IX",611,1)="S ^PSNDF(50.6,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",611,2)="K ^PSNDF(50.6,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",611,2.5)="K ^PSNDF(50.6,""AMASTERVUID"")"
^DD("IX",611,11.1,0)="^.114IA^2^2"
^DD("IX",611,11.1,1,0)="1^F^50.6^99.99^30^1^F"
^DD("IX",611,11.1,2,0)="2^F^50.6^99.98^^2^F"
^DD("IX",611,11.1,"AC",1,1)=""
^DD("IX",611,11.1,"AC",2,2)=""
^DD("IX",611,11.1,"B",1,1)=""
^DD("IX",611,11.1,"B",2,2)=""
^DD("IX",611,11.1,"BB",1,1)=""
^DD("IX",611,11.1,"BB",2,2)=""
^DD("IX",612,0)="50.605^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^50.605^^^^^S"
^DD("IX",612,.1,0)="^^3^3^3050511^^"
^DD("IX",612,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference"
^DD("IX",612,.1,2,0)="can be used to identify the Master entry for a VUID associated with a"
^DD("IX",612,.1,3,0)="Term/Concept."
^DD("IX",612,1)="S ^PS(50.605,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",612,2)="K ^PS(50.605,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",612,2.5)="K ^PS(50.605,""AMASTERVUID"")"
^DD("IX",612,11.1,0)="^.114IA^2^2"
^DD("IX",612,11.1,1,0)="1^F^50.605^99.99^30^1^F"
^DD("IX",612,11.1,2,0)="2^F^50.605^99.98^^2^F"
^DD("IX",612,11.1,"AC",1,1)=""
^DD("IX",612,11.1,"AC",2,2)=""
^DD("IX",612,11.1,"B",1,1)=""
^DD("IX",612,11.1,"B",2,2)=""
^DD("IX",612,11.1,"BB",1,1)=""
^DD("IX",612,11.1,"BB",2,2)=""
^DD("IX",613,0)="50.68^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^50.68^^^^^S"
^DD("IX",613,.1,0)="^^3^3^3050511^^^^"
^DD("IX",613,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference"
^DD("IX",613,.1,2,0)="can be used to identify the Master entry for a VUID associated with a"
^DD("IX",613,.1,3,0)="Term/Concept."
^DD("IX",613,1)="S ^PSNDF(50.68,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",613,2)="K ^PSNDF(50.68,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",613,2.5)="K ^PSNDF(50.68,""AMASTERVUID"")"
^DD("IX",613,11.1,0)="^.114IA^2^2"
^DD("IX",613,11.1,1,0)="1^F^50.68^99.99^30^1^F"
^DD("IX",613,11.1,2,0)="2^F^50.68^99.98^^2^F"
^DD("IX",613,11.1,"AC",1,1)=""
^DD("IX",613,11.1,"AC",2,2)=""
^DD("IX",613,11.1,"B",1,1)=""
^DD("IX",613,11.1,"B",2,2)=""
^DD("IX",613,11.1,"BB",1,1)=""
^DD("IX",613,11.1,"BB",2,2)=""
^DD("IX",614,0)="120.82^AMASTERVUID^Identifies Master entry for a VUID^R^^R^IR^I^120.82^^^^^S"
^DD("IX",614,.1,0)="^^3^3^3050311^"
^DD("IX",614,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference "
^DD("IX",614,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",614,.1,3,0)="Term/Concept."
^DD("IX",614,1)="S ^GMRD(120.82,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",614,2)="K ^GMRD(120.82,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",614,2.5)="K ^GMRD(120.82,""AMASTERVUID"")"
^DD("IX",614,11.1,0)="^.114IA^2^2"
^DD("IX",614,11.1,1,0)="1^F^120.82^99.99^30^1^F"
^DD("IX",614,11.1,1,3)=""
^DD("IX",614,11.1,2,0)="2^F^120.82^99.98^^2^F"
^DD("IX",614,11.1,2,3)=""
^DD("IX",614,11.1,"AC",1,1)=""
^DD("IX",614,11.1,"AC",2,2)=""
^DD("IX",614,11.1,"B",1,1)=""
^DD("IX",614,11.1,"B",2,2)=""
^DD("IX",614,11.1,"BB",1,1)=""
^DD("IX",614,11.1,"BB",2,2)=""
^DD("IX",615,0)="120.83^AMASTERVUID^This cross-reference identifies the Master entry for a VUID^R^^R^IR^I^120.83^^^^^S"
^DD("IX",615,.1,0)="^^3^3^3050311^"
^DD("IX",615,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference "
^DD("IX",615,.1,2,0)="can be used to identify the Master entry for  VUID associated with a "
^DD("IX",615,.1,3,0)="Term/Concept."
^DD("IX",615,1)="S ^GMRD(120.83,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",615,2)="K ^GMRD(120.83,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",615,2.5)="K ^GMRD(120.83,""AMASTERVUID"")"
^DD("IX",615,11.1,0)="^.114IA^2^2"
^DD("IX",615,11.1,1,0)="1^F^120.83^99.99^30^1^F"
^DD("IX",615,11.1,1,3)=""
^DD("IX",615,11.1,2,0)="2^F^120.83^99.98^^2^F"
^DD("IX",615,11.1,2,3)=""
^DD("IX",615,11.1,"AC",1,1)=""
^DD("IX",615,11.1,"AC",2,2)=""
^DD("IX",615,11.1,"B",1,1)=""
^DD("IX",615,11.1,"B",2,2)=""
^DD("IX",615,11.1,"BB",1,1)=""
^DD("IX",615,11.1,"BB",2,2)=""
^DD("IX",616,0)="120.824^AC^Identifies changes to existing ingredients^MU^^F^R^I^120.824^^^^^A"
^DD("IX",616,1)="Q:$D(DIU(0))  S GMRAT=""ING"" D ^GMRAUTL2"
^DD("IX",616,2)="Q:$D(DIU(0))  S GMRAT=""ING"" D ^GMRAUTL2"
^DD("IX",616,11.1,0)="^.114IA^1^1"
^DD("IX",616,11.1,1,0)="1^F^120.824^.01^^^F"
^DD("IX",616,11.1,"B",1,1)=""
^DD("IX",616,11.1,"BB",1,1)=""
^DD("IX",617,0)="120.8205^AC^Update entries in 120.8 when changes are made to this subfile^MU^^F^R^I^120.8205^^^^^A"
^DD("IX",617,1)="Q:$D(DIU(0))  S GMRAT=""CLASS"" D ^GMRAUTL2"
^DD("IX",617,2)="Q:$D(DIU(0))  S GMRAT=""CLASS"" D ^GMRAUTL2"
^DD("IX",617,11.1,0)="^.114IA^1^1"
^DD("IX",617,11.1,1,0)="1^F^120.8205^.01^^^F"
^DD("IX",617,11.1,"B",1,1)=""
^DD("IX",617,11.1,"BB",1,1)=""
^DD("IX",618,0)="120.82^AC^Updates REACTANT field in file 120.8 when changed^MU^^F^R^I^120.82^^^^^A"
^DD("IX",618,.1,0)="^^2^2^3050813"
^DD("IX",618,.1,1,0)="Changes to the NAME field in file 120.82 will cause an update"
^DD("IX",618,.1,2,0)="to the REACTANT field in file 120.8 for associated entries."
^DD("IX",618,1)="Q:$D(DIU(0))  D QREACT^GMRAUTL2"
^DD("IX",618,2)="Q"
^DD("IX",618,11.1,0)="^.114IA^1^1"
^DD("IX",618,11.1,1,0)="1^F^120.82^.01^^^F"
^DD("IX",618,11.1,"B",1,1)=""
^DD("IX",618,11.1,"BB",1,1)=""
^DD("IX",619,0)="52.43^AC^XREF OF REFILL REQUESTS BY PATIENT & RX^MU^^R^IR^I^52.43^^^^^A"
^DD("IX",619,1)="S ^PS(52.43,""AC"",X(1),X(2),DA)="""""
^DD("IX",619,2)="K ^PS(52.43,""AC"",X(1),X(2),DA)"
^DD("IX",619,11.1,0)="^.114IA^2^2"
^DD("IX",619,11.1,1,0)="1^F^52.43^9^11^1^F"
^DD("IX",619,11.1,1,3)=""
^DD("IX",619,11.1,2,0)="2^F^52.43^3^20^2^F"
^DD("IX",619,11.1,2,3)=""
^DD("IX",619,11.1,"AC",1,1)=""
^DD("IX",619,11.1,"AC",2,2)=""
^DD("IX",619,11.1,"B",1,1)=""
^DD("IX",619,11.1,"B",2,2)=""
^DD("IX",619,11.1,"BB",1,1)=""
^DD("IX",619,11.1,"BB",2,2)=""
^DD("IX",620,0)="52.43^AINST^QUEUE FOR PROCESSING REFILL REQUESTS^MU^^R^IR^I^52.43^^^^^A"
^DD("IX",620,1)="S ^PS(52.43,""AINST"",X(1),X(2),DA)="""""
^DD("IX",620,2)="K ^PS(52.43,""AINST"",X(1),X(2),DA)"
^DD("IX",620,11.1,0)="^.114IA^2^2"
^DD("IX",620,11.1,1,0)="1^F^52.43^4^^1^F"
^DD("IX",620,11.1,2,0)="2^F^52.43^8^30^2^F"
^DD("IX",620,11.1,2,3)=""
^DD("IX",620,11.1,"AC",1,1)=""
^DD("IX",620,11.1,"AC",2,2)=""
^DD("IX",620,11.1,"B",1,1)=""
^DD("IX",620,11.1,"B",2,2)=""
^DD("IX",620,11.1,"BB",1,1)=""
^DD("IX",620,11.1,"BB",2,2)=""
^DD("IX",623,0)="409.35^C^ift^R^^F^IR^I^409.35^^^^^LS"
^DD("IX",623,.1,0)="^^1^1^3050307^"
^DD("IX",623,.1,1,0)="ift"
^DD("IX",623,1)="Q"
^DD("IX",623,2)="Q"
^DD("IX",623,11.1,0)="^.114IA^^"
^DD("IX",624,0)="45^AB^Used to print 801 transactions not sent to PCE^MU^^R^IR^W^45.06^^^^^S"
^DD("IX",624,1)="S ^DGPT(""AB"",X2(1),DA(1),DA)="""""
^DD("IX",624,1.4)="S X='X2(2)&'X2(3)&X2(1)"
^DD("IX",624,2)="K:X1(1)'="""" ^DGPT(""AB"",X1(1),DA(1),DA)"
^DD("IX",624,2.4)="S X=X2(2)!X2(3)!(X(1)'=X(2))"
^DD("IX",624,11.1,0)="^.114IA^3^3"
^DD("IX",624,11.1,1,0)="1^F^45.06^.01^7^^F"
^DD("IX",624,11.1,2,0)="2^F^45.06^.07^1^^F"
^DD("IX",624,11.1,3,0)="3^F^45.06^.09^1^^F"
^DD("IX",624,11.1,"B",1,1)=""
^DD("IX",624,11.1,"B",2,2)=""
^DD("IX",624,11.1,"B",3,3)=""
^DD("IX",624,11.1,"BB",1,1)=""
^DD("IX",624,11.1,"BB",2,2)=""
^DD("IX",624,11.1,"BB",3,3)=""
^DD("IX",625,0)="811.6^B^This is a new style B cross-reference^R^^F^IR^I^811.6^^^^^LS"
^DD("IX",625,.1,0)="^^1^1^3050902^"
^DD("IX",625,.1,1,0)=""
^DD("IX",625,1)="S ^PXRMD(811.6,""B"",$E(X,1,64),DA)="""""
^DD("IX",625,2)="K ^PXRMD(811.6,""B"",$E(X,1,64),DA)"
^DD("IX",625,2.5)="K ^PXRMD(811.6,""B"")"
^DD("IX",625,11.1,0)="^.114IA^1^1"
^DD("IX",625,11.1,1,0)="1^F^811.6^.01^64^1^F"
^DD("IX",625,11.1,"AC",1,1)=""
^DD("IX",625,11.1,"B",1,1)=""
^DD("IX",625,11.1,"BB",1,1)=""
^DD("IX",626,0)="811.6^C^Determine if a sponsor is used as an associate sponsor.^R^^F^IR^W^811.62^^^^^LS"
^DD("IX",626,.1,0)="^^2^2^3010830^^"
^DD("IX",626,.1,1,0)="This cross-reference is used to determine if a sponsor is being used as"
^DD("IX",626,.1,2,0)="an associated sponsor."
^DD("IX",626,1)="S ^PXRMD(811.6,""C"",X,DA(1),DA)="""""
^DD("IX",626,2)="K ^PXRMD(811.6,""C"",X,DA(1),DA)"
^DD("IX",626,2.5)="K ^PXRMD(811.6,""C"")"
^DD("IX",626,11.1,0)="^.114IA^1^1"
^DD("IX",626,11.1,1,0)="1^F^811.62^.01^^1^F"
^DD("IX",626,11.1,"AC",1,1)=""
^DD("IX",626,11.1,"B",1,1)=""
^DD("IX",626,11.1,"BB",1,1)=""
^DD("IX",627,0)="2^AVAFC525^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",627,.1,0)="^^5^5^3060112"
^DD("IX",627,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",627,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",627,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",627,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",627,.1,5,0)="the information available at the time of the event."
^DD("IX",627,1)="D FC^DGFCPROT(.DA,2,.525,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",627,2)="D FC^DGFCPROT(.DA,2,.525,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",627,11.1,0)="^.114IA^1^1"
^DD("IX",627,11.1,1,0)="1^F^2^.525^^^F"
^DD("IX",627,11.1,"B",1,1)=""
^DD("IX",627,11.1,"BB",1,1)=""
^DD("IX",628,0)="375^AC^Set and kill the critical ""AC"" cross-reference.^R^^R^IR^I^375^^^^^S"
^DD("IX",628,.1,0)="^^4^4^3050620^^^"
^DD("IX",628,.1,1,0)="S ^IBBAA(375,""AC"",X1,X3,X2,DA)="""""
^DD("IX",628,.1,2,0)="   where:  X1=field #.03"
^DD("IX",628,.1,3,0)="           X2=field #1.03"
^DD("IX",628,.1,4,0)="           X3=field #1.44"
^DD("IX",628,1)="S ^IBBAA(375,""AC"",X(1),X(2),X(3),DA)="""""
^DD("IX",628,2)="K ^IBBAA(375,""AC"",X(1),X(2),X(3),DA)"
^DD("IX",628,2.5)="K ^IBBAA(375,""AC"")"
^DD("IX",628,11.1,0)="^.114IA^3^3"
^DD("IX",628,11.1,1,0)="1^F^375^.03^^1^F"
^DD("IX",628,11.1,2,0)="2^F^375^1.44^^2^F"
^DD("IX",628,11.1,3,0)="3^F^375^1.03^^3^F"
^DD("IX",628,11.1,"AC",1,1)=""
^DD("IX",628,11.1,"AC",2,2)=""
^DD("IX",628,11.1,"AC",3,3)=""
^DD("IX",628,11.1,"B",1,1)=""
^DD("IX",628,11.1,"B",2,2)=""
^DD("IX",628,11.1,"B",3,3)=""
^DD("IX",628,11.1,"BB",1,1)=""
^DD("IX",628,11.1,"BB",2,2)=""
^DD("IX",628,11.1,"BB",3,3)=""
^DD("IX",629,0)="375^AF^Set critical ""AF"" cross-reference.^R^^R^IR^I^375^^^^^S"
^DD("IX",629,.1,0)="^^4^4^3050620^"
^DD("IX",629,.1,1,0)="S ^IBBAA(375,""AF"",X1,X3,X2,DA)="""""
^DD("IX",629,.1,2,0)="   where:  X1=field #.03"
^DD("IX",629,.1,3,0)="           X2=field #16.01"
^DD("IX",629,.1,4,0)="           X3=field #1.44"
^DD("IX",629,1)="S ^IBBAA(375,""AF"",X(1),X(2),$E(X(3),1,30),DA)="""""
^DD("IX",629,2)="K ^IBBAA(375,""AF"",X(1),X(2),$E(X(3),1,30),DA)"
^DD("IX",629,2.5)="K ^IBBAA(375,""AF"")"
^DD("IX",629,11.1,0)="^.114IA^3^3"
^DD("IX",629,11.1,1,0)="1^F^375^.03^^1^F"
^DD("IX",629,11.1,1,3)=""
^DD("IX",629,11.1,2,0)="2^F^375^1.44^^2^F"
^DD("IX",629,11.1,2,3)=""
^DD("IX",629,11.1,3,0)="3^F^375^16.01^30^3^F"
^DD("IX",629,11.1,3,3)=""
^DD("IX",629,11.1,"AC",1,1)=""
^DD("IX",629,11.1,"AC",2,2)=""
^DD("IX",629,11.1,"AC",3,3)=""
^DD("IX",629,11.1,"B",1,1)=""
^DD("IX",629,11.1,"B",2,2)=""
^DD("IX",629,11.1,"B",3,3)=""
^DD("IX",629,11.1,"BB",1,1)=""
^DD("IX",629,11.1,"BB",2,2)=""
^DD("IX",629,11.1,"BB",3,3)=""
^DD("IX",630,0)="799.51^KEY^Registry, Drug Group, Generic Drug^R^^R^IR^I^799.51^^^^^LS"
^DD("IX",630,1)="S ^ROR(799.51,""KEY"",X(1),X(2),X(3),DA)="""""
^DD("IX",630,2)="K ^ROR(799.51,""KEY"",X(1),X(2),X(3),DA)"
^DD("IX",630,2.5)="K ^ROR(799.51,""KEY"")"
^DD("IX",630,11.1,0)="^.114IA^3^3"
^DD("IX",630,11.1,1,0)="1^F^799.51^.02^^1"
^DD("IX",630,11.1,2,0)="2^F^799.51^.03^^2"
^DD("IX",630,11.1,3,0)="3^F^799.51^.04^^3"
^DD("IX",630,11.1,"AC",1,1)=""
^DD("IX",630,11.1,"AC",2,2)=""
^DD("IX",630,11.1,"AC",3,3)=""
^DD("IX",630,11.1,"B",1,1)=""
^DD("IX",630,11.1,"B",2,2)=""
^DD("IX",630,11.1,"B",3,3)=""
^DD("IX",630,11.1,"BB",1,1)=""
^DD("IX",630,11.1,"BB",2,2)=""
^DD("IX",630,11.1,"BB",3,3)=""
^DD("IX",631,0)="799.53^KEY^Uniqueness Index for Key 'A' of File #799.53^R^^R^IR^I^799.53^^^^^LS"
^DD("IX",631,1)="S ^ROR(799.53,""KEY"",X(1),X(2),DA)="""""
^DD("IX",631,2)="K ^ROR(799.53,""KEY"",X(1),X(2),DA)"
^DD("IX",631,2.5)="K ^ROR(799.53,""KEY"")"
^DD("IX",631,11.1,0)="^.114IA^2^2"
^DD("IX",631,11.1,1,0)="1^F^799.53^.03^^1"
^DD("IX",631,11.1,2,0)="2^F^799.53^.01^^2"
^DD("IX",631,11.1,"AC",1,1)=""
^DD("IX",631,11.1,"AC",2,2)=""
^DD("IX",631,11.1,"B",1,1)=""
^DD("IX",631,11.1,"B",2,2)=""
^DD("IX",631,11.1,"BB",1,1)=""
^DD("IX",631,11.1,"BB",2,2)=""
^DD("IX",632,0)="799.6^ADNAUTO^Activation Date & Name for automatic backpulls.^R^^R^IR^I^799.6^^^^^S"
^DD("IX",632,.1,0)="^^6^6^3051031^"
^DD("IX",632,.1,1,0)="This index references parameters of those"
^DD("IX",632,.1,2,0)="automatic historical data extractions (TYPE ="
^DD("IX",632,.1,3,0)="""Auto (HL7 messages)"") that are active (ACTIVATION"
^DD("IX",632,.1,4,0)="DATE > 0) but have not been completed yet (some"
^DD("IX",632,.1,5,0)="records of the REGISTRY NAME multiple have no"
^DD("IX",632,.1,6,0)="value in the COMPLETION DATE/TIME field)."
^DD("IX",632,1)="S ^RORDATA(799.6,""ADNAUTO"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",632,1.4)="S X=(X(3)=1)&(X(4)>0)&($D(^RORDATA(799.6,DA,3,""ANC""))>1)"
^DD("IX",632,2)="K ^RORDATA(799.6,""ADNAUTO"",X(1),$E(X(2),1,30),DA)"
^DD("IX",632,2.5)="K ^RORDATA(799.6,""ADNAUTO"")"
^DD("IX",632,11.1,0)="^.114IA^4^4"
^DD("IX",632,11.1,1,0)="1^F^799.6^.07^^1^F"
^DD("IX",632,11.1,2,0)="2^F^799.6^.01^30^2^F"
^DD("IX",632,11.1,3,0)="3^F^799.6^.02^^^F"
^DD("IX",632,11.1,4,0)="4^F^799.6^.07^^^F"
^DD("IX",632,11.1,"AC",1,1)=""
^DD("IX",632,11.1,"AC",2,2)=""
^DD("IX",632,11.1,"B",1,1)=""
^DD("IX",632,11.1,"B",2,2)=""
^DD("IX",632,11.1,"B",3,3)=""
^DD("IX",632,11.1,"B",4,4)=""
^DD("IX",632,11.1,"BB",1,1)=""
^DD("IX",632,11.1,"BB",2,2)=""
^DD("IX",632,11.1,"BB",3,3)=""
^DD("IX",632,11.1,"BB",4,4)=""
^DD("IX",633,0)="799.6^B^Uniqueness Index for Key 'A' of File #799.6^R^^F^IR^I^799.6^^^^^LS"
^DD("IX",633,1)="S ^RORDATA(799.6,""B"",X,DA)="""""
^DD("IX",633,2)="K ^RORDATA(799.6,""B"",X,DA)"
^DD("IX",633,2.5)="K ^RORDATA(799.6,""B"")"
^DD("IX",633,11.1,0)="^.114IA^1^1"
^DD("IX",633,11.1,1,0)="1^F^799.6^.01^^1"
^DD("IX",633,11.1,"AC",1,1)=""
^DD("IX",633,11.1,"B",1,1)=""
^DD("IX",633,11.1,"BB",1,1)=""
^DD("IX",634,0)="799.61^B^Uniqueness Index for Key 'A' of Subfile #799.61^R^^F^IR^I^799.61^^^^^LS"
^DD("IX",634,1)="S ^RORDATA(799.6,DA(1),1,""B"",X,DA)="""""
^DD("IX",634,2)="K ^RORDATA(799.6,DA(1),1,""B"",X,DA)"
^DD("IX",634,2.5)="K ^RORDATA(799.6,DA(1),1,""B"")"
^DD("IX",634,11.1,0)="^.114IA^1^1"
^DD("IX",634,11.1,1,0)="1^F^799.61^.01^^1"
^DD("IX",634,11.1,"AC",1,1)=""
^DD("IX",634,11.1,"B",1,1)=""
^DD("IX",634,11.1,"BB",1,1)=""
^DD("IX",635,0)="799.63^ANC^Not completed registries^MU^^R^IR^I^799.63^^^^^S"
^DD("IX",635,1)="D ANC7996^RORDD01(.DA,X(1),1)"
^DD("IX",635,1.4)="S X=(X(2)'>0)"
^DD("IX",635,2)="D ANC7996^RORDD01(.DA,X(1),0)"
^DD("IX",635,2.5)="K ^RORDATA(799.6,DA(1),3,""ANC"")"
^DD("IX",635,11.1,0)="^.114IA^2^2"
^DD("IX",635,11.1,1,0)="1^F^799.63^.01^30^1^F"
^DD("IX",635,11.1,2,0)="2^F^799.63^.02^^^F"
^DD("IX",635,11.1,"AC",1,1)=""
^DD("IX",635,11.1,"B",1,1)=""
^DD("IX",635,11.1,"B",2,2)=""
^DD("IX",635,11.1,"BB",1,1)=""
^DD("IX",635,11.1,"BB",2,2)=""
^DD("IX",636,0)="799.63^B^Uniqueness Index for Key 'A' of Subfile #799.63^R^^F^IR^I^799.63^^^^^LS"
^DD("IX",636,1)="S ^RORDATA(799.6,DA(1),3,""B"",X,DA)="""""
^DD("IX",636,2)="K ^RORDATA(799.6,DA(1),3,""B"",X,DA)"
^DD("IX",636,2.5)="K ^RORDATA(799.6,DA(1),3,""B"")"
^DD("IX",636,11.1,0)="^.114IA^1^1"
^DD("IX",636,11.1,1,0)="1^F^799.63^.01^^1"
^DD("IX",636,11.1,"AC",1,1)=""
^DD("IX",636,11.1,"B",1,1)=""
^DD("IX",636,11.1,"BB",1,1)=""
^DD("IX",637,0)="799.64^ANC^Not completed tasks^R^^R^IR^I^799.64^^^^^S"
^DD("IX",637,1)="S ^RORDATA(799.6,DA(1),4,""ANC"",X(1),DA)="""""
^DD("IX",637,1.4)="S X=(X(2)'=3)"
^DD("IX",637,2)="K ^RORDATA(799.6,DA(1),4,""ANC"",X(1),DA)"
^DD("IX",637,2.5)="K ^RORDATA(799.6,DA(1),4,""ANC"")"
^DD("IX",637,11.1,0)="^.114IA^2^2"
^DD("IX",637,11.1,1,0)="1^F^799.64^.01^^1^F"
^DD("IX",637,11.1,1,3)=""
^DD("IX",637,11.1,2,0)="2^F^799.64^.03^^^F"
^DD("IX",637,11.1,2,3)=""
^DD("IX",637,11.1,"AC",1,1)=""
^DD("IX",637,11.1,"B",1,1)=""
^DD("IX",637,11.1,"B",2,2)=""
^DD("IX",637,11.1,"BB",1,1)=""
^DD("IX",637,11.1,"BB",2,2)=""
^DD("IX",638,0)="799.64^B^Uniqueness Index for Key 'A' of Subfile #799.64^R^^F^IR^I^799.64^^^^^LS"
^DD("IX",638,1)="S ^RORDATA(799.6,DA(1),4,""B"",X,DA)="""""
^DD("IX",638,2)="K ^RORDATA(799.6,DA(1),4,""B"",X,DA)"
^DD("IX",638,2.5)="K ^RORDATA(799.6,DA(1),4,""B"")"
^DD("IX",638,11.1,0)="^.114IA^1^1"
^DD("IX",638,11.1,1,0)="1^F^799.64^.01^^1"
^DD("IX",638,11.1,"AC",1,1)=""
^DD("IX",638,11.1,"B",1,1)=""
^DD("IX",638,11.1,"BB",1,1)=""
^DD("IX",639,0)="409.55^D^Uniqueness Index for Key 'A' of File #409.55^R^^R^IR^I^409.55^^^^^LS"
^DD("IX",639,1)="S ^SD(409.55,""D"",X(1),X(2),X(3),DA)="""""
^DD("IX",639,2)="K ^SD(409.55,""D"",X(1),X(2),X(3),DA)"
^DD("IX",639,2.5)="K ^SD(409.55,""D"")"
^DD("IX",639,11.1,0)="^.114IA^3^3"
^DD("IX",639,11.1,1,0)="1^F^409.55^.01^^1"
^DD("IX",639,11.1,2,0)="2^F^409.55^.02^^2"
^DD("IX",639,11.1,3,0)="3^F^409.55^.03^^3"
^DD("IX",639,11.1,"AC",1,1)=""
^DD("IX",639,11.1,"AC",2,2)=""
^DD("IX",639,11.1,"AC",3,3)=""
^DD("IX",639,11.1,"B",1,1)=""
^DD("IX",639,11.1,"B",2,2)=""
^DD("IX",639,11.1,"B",3,3)=""
^DD("IX",639,11.1,"BB",1,1)=""
^DD("IX",639,11.1,"BB",2,2)=""
^DD("IX",639,11.1,"BB",3,3)=""
^DD("IX",640,0)="2^ASERLAST^Index LAST ENTRY and SEPARATION dates^MU^^R^R^I^2^^^^^A"
^DD("IX",640,.1,0)="^^5^5^3060323"
^DD("IX",640,.1,1,0)="This cross-reference indexes the LAST ENTRY and SEPARATION dates."
^DD("IX",640,.1,2,0)="The form of the index is:"
^DD("IX",640,.1,3,0)="  ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""LAST"")"
^DD("IX",640,.1,4,0)=""
^DD("IX",640,.1,5,0)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
^DD("IX",640,1)="D SSERV^DGSRVICE(.X,.DA,""LAST"")"
^DD("IX",640,2)="D KSERV^DGSRVICE(.X,.DA,""LAST"")"
^DD("IX",640,2.5)="K ^DPT(""ASERVICE"")"
^DD("IX",640,11.1,0)="^.114IA^2^2"
^DD("IX",640,11.1,1,0)="1^F^2^.326"
^DD("IX",640,11.1,2,0)="2^F^2^.327"
^DD("IX",640,11.1,"B",1,1)=""
^DD("IX",640,11.1,"B",2,2)=""
^DD("IX",640,11.1,"BB",1,1)=""
^DD("IX",640,11.1,"BB",2,2)=""
^DD("IX",641,0)="2^ASERNTL^Index NTL ENTRY and SEPARATION dates^MU^^R^R^I^2^^^^^A"
^DD("IX",641,.1,0)="^^5^5^3060323"
^DD("IX",641,.1,1,0)="This cross-reference indexes the NTL ENTRY and SEPARATION dates."
^DD("IX",641,.1,2,0)="The form of the index is:"
^DD("IX",641,.1,3,0)="  ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NTL"")"
^DD("IX",641,.1,4,0)=""
^DD("IX",641,.1,5,0)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
^DD("IX",641,1)="D SSERV^DGSRVICE(.X,.DA,""NTL"")"
^DD("IX",641,2)="D KSERV^DGSRVICE(.X,.DA,""NTL"")"
^DD("IX",641,2.5)="K ^DPT(""ASERVICE"")"
^DD("IX",641,11.1,0)="^.114IA^2^2"
^DD("IX",641,11.1,1,0)="1^F^2^.3292"
^DD("IX",641,11.1,2,0)="2^F^2^.3293"
^DD("IX",641,11.1,"B",1,1)=""
^DD("IX",641,11.1,"B",2,2)=""
^DD("IX",641,11.1,"BB",1,1)=""
^DD("IX",641,11.1,"BB",2,2)=""
^DD("IX",642,0)="2^ASERNNTL^Index NNTL ENTRY and SEPARATION dates^MU^^R^R^I^2^^^^^A"
^DD("IX",642,.1,0)="^^5^5^3060323"
^DD("IX",642,.1,1,0)="This cross-reference indexes the NNTL ENTRY and SEPARATION dates."
^DD("IX",642,.1,2,0)="The form of the index is:"
^DD("IX",642,.1,3,0)="  ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NNTL"")"
^DD("IX",642,.1,4,0)=""
^DD("IX",642,.1,5,0)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
^DD("IX",642,1)="D SSERV^DGSRVICE(.X,.DA,""NNTL"")"
^DD("IX",642,2)="D KSERV^DGSRVICE(.X,.DA,""NNTL"")"
^DD("IX",642,2.5)="K ^DPT(""ASERVICE"")"
^DD("IX",642,11.1,0)="^.114IA^2^2"
^DD("IX",642,11.1,1,0)="1^F^2^.3297"
^DD("IX",642,11.1,2,0)="2^F^2^.3298"
^DD("IX",642,11.1,"B",1,1)=""
^DD("IX",642,11.1,"B",2,2)=""
^DD("IX",642,11.1,"BB",1,1)=""
^DD("IX",642,11.1,"BB",2,2)=""
^DD("IX",643,0)="2^APTYPE^Index TYPE OF PATIENT^R^^F^R^I^2^^^^^S"
^DD("IX",643,1)="S ^DPT(""APTYPE"",X,DA)="""""
^DD("IX",643,2)="K ^DPT(""APTYPE"",X,DA)"
^DD("IX",643,2.5)="K ^DPT(""APTYPE"")"
^DD("IX",643,11.1,0)="^.114IA^1^1"
^DD("IX",643,11.1,1,0)="1^F^2^391^^1^F"
^DD("IX",643,11.1,"AC",1,1)=""
^DD("IX",643,11.1,"B",1,1)=""
^DD("IX",643,11.1,"BB",1,1)=""
^DD("IX",644,0)="26.11^ATIU^This is a sort only index of the TIU PN TITLE and NAME fields.^R^^R^IR^I^26.11^^^^^S"
^DD("IX",644,.1,0)="^^2^2^3040308^"
^DD("IX",644,.1,1,0)="This cross reference will enable quick lookups to find associated TIU PN "
^DD("IX",644,.1,2,0)="Titles that are linked with Patient Record Flag names."
^DD("IX",644,1)="S ^DGPF(26.11,""ATIU"",$E(X(1),1,99),$E(X(2),1,30),DA)="""""
^DD("IX",644,2)="K ^DGPF(26.11,""ATIU"",$E(X(1),1,99),$E(X(2),1,30),DA)"
^DD("IX",644,2.5)="K ^DGPF(26.11,""ATIU"")"
^DD("IX",644,11.1,0)="^.114IA^2^2"
^DD("IX",644,11.1,1,0)="1^F^26.11^.07^99^1^F"
^DD("IX",644,11.1,1,3)=""
^DD("IX",644,11.1,2,0)="2^F^26.11^.01^30^2^F"
^DD("IX",644,11.1,2,3)=""
^DD("IX",644,11.1,"AC",1,1)=""
^DD("IX",644,11.1,"AC",2,2)=""
^DD("IX",644,11.1,"B",1,1)=""
^DD("IX",644,11.1,"B",2,2)=""
^DD("IX",644,11.1,"BB",1,1)=""
^DD("IX",644,11.1,"BB",2,2)=""
^DD("IX",645,0)="26.11^C^Lookup & Sort by PRINCIPAL INVESTIGATOR and NAME fields.^R^^F^IR^W^26.112^^^^^LS"
^DD("IX",645,1)="S ^DGPF(26.11,""C"",X,DA(1),DA)="""""
^DD("IX",645,2)="K ^DGPF(26.11,""C"",X,DA(1),DA)"
^DD("IX",645,2.5)="K ^DGPF(26.11,""C"")"
^DD("IX",645,11.1,0)="^.114IA^1^1"
^DD("IX",645,11.1,1,0)="1^F^26.112^.01^^1^F"
^DD("IX",645,11.1,"AC",1,1)=""
^DD("IX",645,11.1,"B",1,1)=""
^DD("IX",645,11.1,"BB",1,1)=""
^DD("IX",646,0)="26.14^ATIUPN^This is a sort only index of the TIU PN LINK field.^R^^F^IR^I^26.14^^^^^S"
^DD("IX",646,1)="S ^DGPF(26.14,""ATIUPN"",X,DA)="""""
^DD("IX",646,2)="K ^DGPF(26.14,""ATIUPN"",X,DA)"
^DD("IX",646,2.5)="K ^DGPF(26.14,""ATIUPN"")"
^DD("IX",646,11.1,0)="^.114IA^1^1"
^DD("IX",646,11.1,1,0)="1^F^26.14^.06^^1^F"
^DD("IX",646,11.1,"AC",1,1)=""
^DD("IX",646,11.1,"B",1,1)=""
^DD("IX",646,11.1,"BB",1,1)=""
^DD("IX",647,0)="26.15^ATIU^This is a sort only index of the TIU PN TITLE and NAME fields.^R^^R^IR^I^26.15^^^^^S"
^DD("IX",647,.1,0)="^^2^2^3040308^"
^DD("IX",647,.1,1,0)="This cross reference will enable quick lookups to find associated TIU PN "
^DD("IX",647,.1,2,0)="Titles that are linked with Patient Record Flag names."
^DD("IX",647,1)="S ^DGPF(26.15,""ATIU"",$E(X(1),1,99),$E(X(2),1,30),DA)="""""
^DD("IX",647,2)="K ^DGPF(26.15,""ATIU"",$E(X(1),1,99),$E(X(2),1,30),DA)"
^DD("IX",647,2.5)="K ^DGPF(26.15,""ATIU"")"
^DD("IX",647,11.1,0)="^.114IA^2^2"
^DD("IX",647,11.1,1,0)="1^F^26.15^.07^99^1^F"
^DD("IX",647,11.1,1,3)=""
^DD("IX",647,11.1,2,0)="2^F^26.15^.01^30^2^F"
^DD("IX",647,11.1,2,3)=""
^DD("IX",647,11.1,"AC",1,1)=""
^DD("IX",647,11.1,"AC",2,2)=""
^DD("IX",647,11.1,"B",1,1)=""
^DD("IX",647,11.1,"B",2,2)=""
^DD("IX",647,11.1,"BB",1,1)=""
^DD("IX",647,11.1,"BB",2,2)=""
^DD("IX",648,0)="26.15^C^Lookup & Sort by PRINCIPAL INVESTIGATOR and NAME fields.^R^^F^IR^W^26.152^^^^^LS"
^DD("IX",648,1)="S ^DGPF(26.15,""C"",X,DA(1),DA)="""""
^DD("IX",648,2)="K ^DGPF(26.15,""C"",X,DA(1),DA)"
^DD("IX",648,2.5)="K ^DGPF(26.15,""C"")"
^DD("IX",648,11.1,0)="^.114IA^1^1"
^DD("IX",648,11.1,1,0)="1^F^26.152^.01^^1^F"
^DD("IX",648,11.1,1,3)=""
^DD("IX",648,11.1,"AC",1,1)=""
^DD("IX",648,11.1,"B",1,1)=""
^DD("IX",648,11.1,"BB",1,1)=""
^DD("IX",649,0)="5^ADUALC^MU^MU^^R^IR^I^5^^^^^S"
^DD("IX",649,.1,0)="^^19^19^3060525"
^DD("IX",649,.1,1,0)="This cross reference is used to maintain the dual REGULAR ""C"" cross "
^DD("IX",649,.1,2,0)="reference on the ABBREVIATION(#1) field and the VA STATE CODE(#2) field "
^DD("IX",649,.1,3,0)="and replaces the SET and KILL logic on the REGULAR traditional cross "
^DD("IX",649,.1,4,0)="reference.  The REGULAR traditional cross references SET and KILL "
^DD("IX",649,.1,5,0)="logic are set to a ""Q"" so look ups will not error out."
^DD("IX",649,.1,6,0)=" "
^DD("IX",649,.1,7,0)="5,1           ABBREVIATION           0;2 FREE TEXT (Required)"
^DD("IX",649,.1,8,0)="              CROSS-REFERENCE:  5^C "
^DD("IX",649,.1,9,0)="                                1)= Q"
^DD("IX",649,.1,10,0)="                                2)= Q"
^DD("IX",649,.1,11,0)="                                3)= Used in conjunction with the 'ADUALC' "
^DD("IX",649,.1,12,0)="                                    xref."
^DD("IX",649,.1,13,0)=" "
^DD("IX",649,.1,14,0)="5,2           VA STATE CODE          0;3 FREE TEXT"
^DD("IX",649,.1,15,0)="              CROSS-REFERENCE:  5^C "
^DD("IX",649,.1,16,0)="                                1)= Q"
^DD("IX",649,.1,17,0)="                                2)= Q"
^DD("IX",649,.1,18,0)="                                3)= Used in conjunction with the 'ADUALC' "
^DD("IX",649,.1,19,0)="                                    xref."
^DD("IX",649,1)="I ((X2(1)'="""")!(X1(1)'=X2(1))),X2(1)'="""" S ^DIC(5,""C"",X2(1),DA)="""" I ((X2(2)'="""")!(X1(2)'=X2(2))),X2(2)'="""" S ^DIC(5,""C"",X2(2),DA)="""" Q"
^DD("IX",649,2)="I ((X2(1)="""")!(X1(1)'=X2(1))),X1(1)'="""" K ^DIC(5,""C"",X1(1),DA) I ((X2(2)="""")!(X1(2)'=X2(2))),X1(2)'="""" K ^DIC(5,""C"",X1(2),DA) Q"
^DD("IX",649,2.5)="K ^DIC(5,""C"")"
^DD("IX",649,11.1,0)="^.114IA^2^2"
^DD("IX",649,11.1,1,0)="1^F^5^1^^^F"
^DD("IX",649,11.1,2,0)="2^F^5^2^^^F"
^DD("IX",649,11.1,"B",1,1)=""
^DD("IX",649,11.1,"B",2,2)=""
^DD("IX",649,11.1,"BB",1,1)=""
^DD("IX",649,11.1,"BB",2,2)=""
^DD("IX",650,0)="200^AUSER^Build cross reference of active users^MU^^R^IR^I^200^^^^^S"
^DD("IX",650,.1,0)="^^4^4^3060525"
^DD("IX",650,.1,1,0)="This is a cross reference of CPRS Active USERs (AUSER):"
^DD("IX",650,.1,2,0)=" "
^DD("IX",650,.1,3,0)=" The cross reference is in the format:"
^DD("IX",650,.1,4,0)=" ^VA(200,""AUSER"",<NAME(#.01) value>,IEN)="""""
^DD("IX",650,1)="I DA'<1,$$PROVIDER^XUSER(DA),X(1)]"""",X(3)<1 S ^VA(200,""AUSER"",X(1),DA)="""" Q"
^DD("IX",650,1.4)="Q"
^DD("IX",650,2)="I ((DA'<1&X1(1)'=X2(1))!(DA'<1&X2(2)="""")) K ^VA(200,""AUSER"",X1(1),DA)"
^DD("IX",650,2.4)="Q"
^DD("IX",650,2.5)="K ^VA(200,""AUSER"")"
^DD("IX",650,11.1,0)="^.114IA^3^3"
^DD("IX",650,11.1,1,0)="1^F^200^.01^^^F"
^DD("IX",650,11.1,2,0)="2^F^200^2^^^F"
^DD("IX",650,11.1,3,0)="3^F^200^7^^^F"
^DD("IX",650,11.1,"B",1,1)=""
^DD("IX",650,11.1,"B",2,2)=""
^DD("IX",650,11.1,"B",3,3)=""
^DD("IX",650,11.1,"BB",1,1)=""
^DD("IX",650,11.1,"BB",2,2)=""
^DD("IX",650,11.1,"BB",3,3)=""
^DD("IX",651,0)="69^APP^Index is used to send AMA/Billable panels to PCE.^MU^^R^IR^W^69.03^^^^^A"
^DD("IX",651,.1,0)="^^9^9^3060105^"
^DD("IX",651,.1,1,0)="The ""APP"" index is used by routine LRBEBA5 to send Lab data to PCE."
^DD("IX",651,.1,2,0)="EN^LRBEBA5 is called from routine LRNIGHT, the nightly cleanup task."
^DD("IX",651,.1,3,0)="If the current date is the same as the date stored in PANEL PROCESS"
^DD("IX",651,.1,4,0)="DATE field (#620) of the LABORATORY SITE file (#69.9), then routine"
^DD("IX",651,.1,5,0)="LRBEBA5 uses index ""APP"" to locate data for AMA/Billable panels that"
^DD("IX",651,.1,6,0)="have not been sent to PCE due to pending results for atomic tests on"
^DD("IX",651,.1,7,0)="the panel.  Panel tests from the previous calendar month will be"
^DD("IX",651,.1,8,0)="""unbundled"" and the CPT Codes for the verified atomic tests are sent"
^DD("IX",651,.1,9,0)="to PCE."
^DD("IX",651,1)="S ^LRO(69,""APP"",+X2(2),DA(2),DA(1),DA)="""""
^DD("IX",651,1.4)="I X2(1),X2(2)"
^DD("IX",651,2)="K ^LRO(69,""APP"",+X1(2),DA(2),DA(1),DA)"
^DD("IX",651,2.4)="I X1(1),X1(2),'X2(1)"
^DD("IX",651,11.1,0)="^.114IA^2^2"
^DD("IX",651,11.1,1,0)="1^F^69.03^22.1^^^F"
^DD("IX",651,11.1,2,0)="2^F^69.03^22^^^F"
^DD("IX",651,11.1,"B",1,1)=""
^DD("IX",651,11.1,"B",2,2)=""
^DD("IX",651,11.1,"BB",1,1)=""
^DD("IX",651,11.1,"BB",2,2)=""
^DD("IX",652,0)="52^REJDAT^Cross-reference to sort REJECTs by the DATE/TIME DETECTED field.^R^^F^IR^W^52.25^^^^^LS"
^DD("IX",652,1)="S ^PSRX(""REJDAT"",X,DA(1),DA)="""""
^DD("IX",652,2)="K ^PSRX(""REJDAT"",X,DA(1),DA)"
^DD("IX",652,2.5)="K ^PSRX(""REJDAT"")"
^DD("IX",652,11.1,0)="^.114IA^1^1"
^DD("IX",652,11.1,1,0)="1^F^52.25^1^^1^F"
^DD("IX",652,11.1,1,3)=""
^DD("IX",652,11.1,"AC",1,1)=""
^DD("IX",652,11.1,"B",1,1)=""
^DD("IX",652,11.1,"BB",1,1)=""
^DD("IX",653,0)="52^REJSTS^Cross-reference for the STATUS field in the REJECT INFO (#52.25) sub-file.^R^^F^IR^W^52.25^^^^^LS"
^DD("IX",653,1)="S ^PSRX(""REJSTS"",X,DA(1),DA)="""""
^DD("IX",653,2)="K ^PSRX(""REJSTS"",X,DA(1),DA)"
^DD("IX",653,2.5)="K ^PSRX(""REJSTS"")"
^DD("IX",653,11.1,0)="^.114IA^1^1"
^DD("IX",653,11.1,1,0)="1^F^52.25^9^^1^F"
^DD("IX",653,11.1,"AC",1,1)=""
^DD("IX",653,11.1,"B",1,1)=""
^DD("IX",653,11.1,"BB",1,1)=""
^DD("IX",654,0)="779.004^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^779.004^^^^^S"
^DD("IX",654,.1,0)="^^3^3^3060111"
^DD("IX",654,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",654,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",654,.1,3,0)="Term/Concept."
^DD("IX",654,1)="S ^HL(779.004,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",654,2)="K ^HL(779.004,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",654,2.5)="K ^HL(779.004,""AMASTERVUID"")"
^DD("IX",654,11.1,0)="^.114IA^2^2"
^DD("IX",654,11.1,1,0)="1^F^779.004^99.99^30^1^F"
^DD("IX",654,11.1,2,0)="2^F^779.004^99.98^^2^F"
^DD("IX",654,11.1,"AC",1,1)=""
^DD("IX",654,11.1,"AC",2,2)=""
^DD("IX",654,11.1,"B",1,1)=""
^DD("IX",654,11.1,"B",2,2)=""
^DD("IX",654,11.1,"BB",1,1)=""
^DD("IX",654,11.1,"BB",2,2)=""
^DD("IX",655,0)="2006.587^C^Services per Gateway^R^^R^IR^I^2006.587^^^^^LS"
^DD("IX",655,.1,0)="^^6^6^3030514^"
^DD("IX",655,.1,1,0)="This cross-reference keeps track of which services are accessed"
^DD("IX",655,.1,2,0)="from which DICOM Gateway:"
^DD("IX",655,.1,3,0)="  Service Name"
^DD("IX",655,.1,4,0)="    Gateway Location"
^DD("IX",655,.1,5,0)="      Gateway System Title"
^DD("IX",655,.1,6,0)="e"
^DD("IX",655,1)="S ^MAG(2006.587,""C"",X(1),X(2),X(3),DA)="""""
^DD("IX",655,2)="K ^MAG(2006.587,""C"",X(1),X(2),X(3),DA)"
^DD("IX",655,2.5)="K ^MAG(2006.587,""C"")"
^DD("IX",655,11.1,0)="^.114IA^3^3"
^DD("IX",655,11.1,1,0)="1^F^2006.587^.01^^1^F"
^DD("IX",655,11.1,1,3)=""
^DD("IX",655,11.1,2,0)="2^F^2006.587^5^^2^F"
^DD("IX",655,11.1,2,3)=""
^DD("IX",655,11.1,3,0)="3^F^2006.587^7^^3^F"
^DD("IX",655,11.1,3,3)=""
^DD("IX",655,11.1,"AC",1,1)=""
^DD("IX",655,11.1,"AC",2,2)=""
^DD("IX",655,11.1,"AC",3,3)=""
^DD("IX",655,11.1,"B",1,1)=""
^DD("IX",655,11.1,"B",2,2)=""
^DD("IX",655,11.1,"B",3,3)=""
^DD("IX",655,11.1,"BB",1,1)=""
^DD("IX",655,11.1,"BB",2,2)=""
^DD("IX",655,11.1,"BB",3,3)=""
^DD("IX",656,0)="2006.587^D^Gateway per location^R^^R^IR^I^2006.587^^^^^LS"
^DD("IX",656,.1,0)="^^4^4^3030514^"
^DD("IX",656,.1,1,0)="This cross reference keeps track of which DICOM Gateway is located"
^DD("IX",656,.1,2,0)="at which location:"
^DD("IX",656,.1,3,0)="    Gateway System Title"
^DD("IX",656,.1,4,0)="      Gateway Location"
^DD("IX",656,1)="S ^MAG(2006.587,""D"",X(1),X(2),DA)="""""
^DD("IX",656,2)="K ^MAG(2006.587,""D"",X(1),X(2),DA)"
^DD("IX",656,2.5)="K ^MAG(2006.587,""D"")"
^DD("IX",656,11.1,0)="^.114IA^2^2"
^DD("IX",656,11.1,1,0)="1^F^2006.587^5^^1^F"
^DD("IX",656,11.1,1,3)=""
^DD("IX",656,11.1,2,0)="2^F^2006.587^7^^2^F"
^DD("IX",656,11.1,2,3)=""
^DD("IX",656,11.1,"AC",1,1)=""
^DD("IX",656,11.1,"AC",2,2)=""
^DD("IX",656,11.1,"B",1,1)=""
^DD("IX",656,11.1,"B",2,2)=""
^DD("IX",656,11.1,"BB",1,1)=""
^DD("IX",656,11.1,"BB",2,2)=""
^DD("IX",657,0)="2005.001^ASTUDY^Index by Parent File and Parent Global Root^R^^R^IR^I^2005.001^^^^^S"
^DD("IX",657,1)="S ^MAG(2005.001,""ASTUDY"",$E(X(1),1,9),$E(X(2),1,15),DA)="""""
^DD("IX",657,2)="K ^MAG(2005.001,""ASTUDY"",$E(X(1),1,9),$E(X(2),1,15),DA)"
^DD("IX",657,2.5)="K ^MAG(2005.001,""ASTUDY"")"
^DD("IX",657,11.1,0)="^.114IA^2^2"
^DD("IX",657,11.1,1,0)="1^F^2005.001^1^9^1^F"
^DD("IX",657,11.1,2,0)="2^F^2005.001^.01^15^2^F"
^DD("IX",657,11.1,"AC",1,1)=""
^DD("IX",657,11.1,"AC",2,2)=""
^DD("IX",657,11.1,"B",1,1)=""
^DD("IX",657,11.1,"B",2,2)=""
^DD("IX",657,11.1,"BB",1,1)=""
^DD("IX",657,11.1,"BB",2,2)=""
^DD("IX",658,0)="2005^f^FILEREF minus the extention^MU^^F^IR^I^2005^^^^^LS"
^DD("IX",658,1)="S ^MAG(2005,""F"",$P($E(X,1,60),"".""),DA)="""""
^DD("IX",658,2)="K ^MAG(2005,""F"",$P($E(X,1,60),"".""),DA)"
^DD("IX",658,11.1,0)="^.114IA^1^1"
^DD("IX",658,11.1,1,0)="1^F^2005^1^^1^F"
^DD("IX",658,11.1,1,3)=""
^DD("IX",658,11.1,"AC",1,1)=""
^DD("IX",658,11.1,"B",1,1)=""
^DD("IX",658,11.1,"BB",1,1)=""
^DD("IX",659,0)="2005.1^F^Image File Name Only^MU^^F^IR^I^2005.1^^^^^LS"
^DD("IX",659,.1,0)="^^2^2^3041221^"
^DD("IX",659,.1,1,0)="This allows sorting and lookup of the image IEN by the "
^DD("IX",659,.1,2,0)="image file name."
^DD("IX",659,1)="S ^MAG(2005.1,""F"",$P($E(X,1,30),"".""),DA)="""""
^DD("IX",659,2)="K ^MAG(2005.1,""F"",$P($E(X,1,30),"".""),DA)"
^DD("IX",659,2.5)="K ^MAG(2005.1,""F"")"
^DD("IX",659,11.1,0)="^.114IA^1^1"
^DD("IX",659,11.1,1,0)="1^F^2005.1^1^30^1^F"
^DD("IX",659,11.1,"AC",1,1)=""
^DD("IX",659,11.1,"B",1,1)=""
^DD("IX",659,11.1,"BB",1,1)=""
^DD("IX",660,0)="2005.2^C^PHYSICAL REFERENCE and OPERATIONAL STATUS^MU^^R^IR^I^2005.2^^^^^LS"
^DD("IX",660,.1,0)="^^1^1^3030220^"
^DD("IX",660,.1,1,0)="This cross reference keeps track of which devices are on (or off) line."
^DD("IX",660,1)="S ^MAG(2005.2,""C"",X(1),X(2),DA)="""""
^DD("IX",660,2)="K ^MAG(2005.2,""C"",X(1),X(2),DA)"
^DD("IX",660,2.5)="K ^MAG(2005.2,""C"")"
^DD("IX",660,11.1,0)="^.114IA^2^2"
^DD("IX",660,11.1,1,0)="1^F^2005.2^1^63^1^F"
^DD("IX",660,11.1,2,0)="2^F^2005.2^5^^2^F"
^DD("IX",660,11.1,"AC",1,1)=""
^DD("IX",660,11.1,"AC",2,2)=""
^DD("IX",660,11.1,"B",1,1)=""
^DD("IX",660,11.1,"B",2,2)=""
^DD("IX",660,11.1,"BB",1,1)=""
^DD("IX",660,11.1,"BB",2,2)=""
^DD("IX",661,0)="2005.2^F^Place and Storage type index^R^^R^IR^I^2005.2^^^^^LS"
^DD("IX",661,1)="S ^MAG(2005.2,""F"",X(1),X(2),DA)="""""
^DD("IX",661,2)="K ^MAG(2005.2,""F"",X(1),X(2),DA)"
^DD("IX",661,2.5)="K ^MAG(2005.2,""F"")"
^DD("IX",661,11.1,0)="^.114IA^2^2"
^DD("IX",661,11.1,1,0)="1^F^2005.2^.04^^1^F"
^DD("IX",661,11.1,1,3)=""
^DD("IX",661,11.1,2,0)="2^F^2005.2^6^^2^F"
^DD("IX",661,11.1,2,3)=""
^DD("IX",661,11.1,"AC",1,1)=""
^DD("IX",661,11.1,"AC",2,2)=""
^DD("IX",661,11.1,"B",1,1)=""
^DD("IX",661,11.1,"B",2,2)=""
^DD("IX",661,11.1,"BB",1,1)=""
^DD("IX",661,11.1,"BB",2,2)=""
^DD("IX",662,0)="2006.03^C^To Sort by Place and Queue name^R^^R^IR^I^2006.03^^^^^LS"
^DD("IX",662,1)="S ^MAGQUEUE(2006.03,""C"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",662,2)="K ^MAGQUEUE(2006.03,""C"",X(1),$E(X(2),1,30),DA)"
^DD("IX",662,2.5)="K ^MAGQUEUE(2006.03,""C"")"
^DD("IX",662,11.1,0)="^.114IA^2^2"
^DD("IX",662,11.1,1,0)="1^F^2006.03^.04^^1^F"
^DD("IX",662,11.1,1,3)=""
^DD("IX",662,11.1,2,0)="2^F^2006.03^.01^30^2^F"
^DD("IX",662,11.1,2,3)=""
^DD("IX",662,11.1,"AC",1,1)=""
^DD("IX",662,11.1,"AC",2,2)=""
^DD("IX",662,11.1,"B",1,1)=""
^DD("IX",662,11.1,"B",2,2)=""
^DD("IX",662,11.1,"BB",1,1)=""
^DD("IX",662,11.1,"BB",2,2)=""
^DD("IX",663,0)="2006.03^D^Status^R^^R^IR^I^2006.03^^^^^LS"
^DD("IX",663,1)="S ^MAGQUEUE(2006.03,""D"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",663,2)="K ^MAGQUEUE(2006.03,""D"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",663,2.5)="K ^MAGQUEUE(2006.03,""D"")"
^DD("IX",663,11.1,0)="^.114IA^3^3"
^DD("IX",663,11.1,1,0)="1^F^2006.03^.04^^1^F"
^DD("IX",663,11.1,1,3)=""
^DD("IX",663,11.1,2,0)="2^F^2006.03^.01^30^2^F"
^DD("IX",663,11.1,2,3)=""
^DD("IX",663,11.1,3,0)="3^F^2006.03^4^30^3^F"
^DD("IX",663,11.1,3,3)=""
^DD("IX",663,11.1,"AC",1,1)=""
^DD("IX",663,11.1,"AC",2,2)=""
^DD("IX",663,11.1,"AC",3,3)=""
^DD("IX",663,11.1,"B",1,1)=""
^DD("IX",663,11.1,"B",2,2)=""
^DD("IX",663,11.1,"B",3,3)=""
^DD("IX",663,11.1,"BB",1,1)=""
^DD("IX",663,11.1,"BB",2,2)=""
^DD("IX",663,11.1,"BB",3,3)=""
^DD("IX",664,0)="2006.03^E^Place and Image number index to prevent redundant queues^R^^R^IR^I^2006.03^^^^^LS"
^DD("IX",664,1)="S ^MAGQUEUE(2006.03,""E"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",664,1.4)="I $P(^MAGQUEUE(2006.03,DA,0),U)[""JUKEBOX"""
^DD("IX",664,2)="K ^MAGQUEUE(2006.03,""E"",X(1),$E(X(2),1,30),DA)"
^DD("IX",664,2.4)="I $P(^MAGQUEUE(2006.03,DA,0),U)[""JUKEBOX"""
^DD("IX",664,2.5)="K ^MAGQUEUE(2006.03,""E"")"
^DD("IX",664,11.1,0)="^.114IA^2^2"
^DD("IX",664,11.1,1,0)="1^F^2006.03^.04^^1^F"
^DD("IX",664,11.1,1,3)=""
^DD("IX",664,11.1,2,0)="2^F^2006.03^6^30^2^F"
^DD("IX",664,11.1,2,3)=""
^DD("IX",664,11.1,"AC",1,1)=""
^DD("IX",664,11.1,"AC",2,2)=""
^DD("IX",664,11.1,"B",1,1)=""
^DD("IX",664,11.1,"B",2,2)=""
^DD("IX",664,11.1,"BB",1,1)=""
^DD("IX",664,11.1,"BB",2,2)=""
^DD("IX",665,0)="2006.03^F^Place, image number, type index^R^^R^IR^I^2006.03^^^^^LS"
^DD("IX",665,.1,0)="^^2^2^3010313^"
^DD("IX",665,.1,1,0)="This X-REF is used to prevent redundent queuing of images when"
^DD("IX",665,.1,2,0)="network throughput is at a premium."
^DD("IX",665,1)="S ^MAGQUEUE(2006.03,""F"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",665,1.4)="I (($P(^MAGQUEUE(2006.03,DA,0),U)[""JBTOHD"")&($P(^MAGQUEUE(2006.03,DA,0),U,7)?1N.N))"
^DD("IX",665,2)="K ^MAGQUEUE(2006.03,""F"",X(1),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",665,2.4)="I (($P(^MAGQUEUE(2006.03,DA,0),U)[""JBTOHD"")&($P(^MAGQUEUE(2006.03,DA,0),U,7)?1N.N))"
^DD("IX",665,2.5)="K ^MAGQUEUE(2006.03,""F"")"
^DD("IX",665,11.1,0)="^.114IA^3^3"
^DD("IX",665,11.1,1,0)="1^F^2006.03^.04^^1^F"
^DD("IX",665,11.1,1,3)=""
^DD("IX",665,11.1,2,0)="2^F^2006.03^6^30^2^F"
^DD("IX",665,11.1,2,3)=""
^DD("IX",665,11.1,3,0)="3^F^2006.03^7^30^3^F"
^DD("IX",665,11.1,3,3)=""
^DD("IX",665,11.1,"AC",1,1)=""
^DD("IX",665,11.1,"AC",2,2)=""
^DD("IX",665,11.1,"AC",3,3)=""
^DD("IX",665,11.1,"B",1,1)=""
^DD("IX",665,11.1,"B",2,2)=""
^DD("IX",665,11.1,"B",3,3)=""
^DD("IX",665,11.1,"BB",1,1)=""
^DD("IX",665,11.1,"BB",2,2)=""
^DD("IX",665,11.1,"BB",3,3)=""
^DD("IX",666,0)="2006.031^C^Place and type index^R^^R^IR^I^2006.031^^^^^LS"
^DD("IX",666,1)="S ^MAGQUEUE(2006.031,""C"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",666,2)="K ^MAGQUEUE(2006.031,""C"",X(1),$E(X(2),1,30),DA)"
^DD("IX",666,2.5)="K ^MAGQUEUE(2006.031,""C"")"
^DD("IX",666,11.1,0)="^.114IA^2^2"
^DD("IX",666,11.1,1,0)="1^F^2006.031^.04^^1^F"
^DD("IX",666,11.1,1,3)=""
^DD("IX",666,11.1,2,0)="2^F^2006.031^.01^30^2^F"
^DD("IX",666,11.1,2,3)=""
^DD("IX",666,11.1,"AC",1,1)=""
^DD("IX",666,11.1,"AC",2,2)=""
^DD("IX",666,11.1,"B",1,1)=""
^DD("IX",666,11.1,"B",2,2)=""
^DD("IX",666,11.1,"BB",1,1)=""
^DD("IX",666,11.1,"BB",2,2)=""
^DD("IX",667,0)="2006.032^C^Place and Jukeox index^R^^R^IR^I^2006.032^^^^^LS"
^DD("IX",667,1)="S ^MAGQUEUE(2006.032,""C"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",667,2)="K ^MAGQUEUE(2006.032,""C"",X(1),$E(X(2),1,30),DA)"
^DD("IX",667,2.5)="K ^MAGQUEUE(2006.032,""C"")"
^DD("IX",667,11.1,0)="^.114IA^2^2"
^DD("IX",667,11.1,1,0)="1^F^2006.032^.04^^1^F"
^DD("IX",667,11.1,1,3)=""
^DD("IX",667,11.1,2,0)="2^F^2006.032^.01^30^2^F"
^DD("IX",667,11.1,2,3)=""
^DD("IX",667,11.1,"AC",1,1)=""
^DD("IX",667,11.1,"AC",2,2)=""
^DD("IX",667,11.1,"B",1,1)=""
^DD("IX",667,11.1,"B",2,2)=""
^DD("IX",667,11.1,"BB",1,1)=""
^DD("IX",667,11.1,"BB",2,2)=""
^DD("IX",668,0)="2006.8^C^Place^R^^R^IR^I^2006.8^^^^^LS"
^DD("IX",668,1)="S ^MAG(2006.8,""C"",X(1),$E(X(2),1,30),DA)="""""
^DD("IX",668,2)="K ^MAG(2006.8,""C"",X(1),$E(X(2),1,30),DA)"
^DD("IX",668,2.5)="K ^MAG(2006.8,""C"")"
^DD("IX",668,11.1,0)="^.114IA^2^2"
^DD("IX",668,11.1,1,0)="1^F^2006.8^.04^^1^F"
^DD("IX",668,11.1,1,3)=""
^DD("IX",668,11.1,2,0)="2^F^2006.8^50^30^2^F"
^DD("IX",668,11.1,2,3)=""
^DD("IX",668,11.1,"AC",1,1)=""
^DD("IX",668,11.1,"AC",2,2)=""
^DD("IX",668,11.1,"B",1,1)=""
^DD("IX",668,11.1,"B",2,2)=""
^DD("IX",668,11.1,"BB",1,1)=""
^DD("IX",668,11.1,"BB",2,2)=""
^DD("IX",669,0)="2006.82^ACDUZ^CR by DUZ and Start Time^R^^R^IR^I^2006.82^^^^^S"
^DD("IX",669,1)="S ^MAG(2006.82,""ACDUZ"",$E(X(1),1,30),$E(X(2),1,30),DA)="""""
^DD("IX",669,2)="K ^MAG(2006.82,""ACDUZ"",$E(X(1),1,30),$E(X(2),1,30),DA)"
^DD("IX",669,2.5)="K ^MAG(2006.82,""ACDUZ"")"
^DD("IX",669,11.1,0)="^.114IA^2^2"
^DD("IX",669,11.1,1,0)="1^F^2006.82^1^30^1^F"
^DD("IX",669,11.1,1,3)=""
^DD("IX",669,11.1,2,0)="2^F^2006.82^2^30^2^F"
^DD("IX",669,11.1,2,3)=""
^DD("IX",669,11.1,"AC",1,1)=""
^DD("IX",669,11.1,"AC",2,2)=""
^DD("IX",669,11.1,"B",1,1)=""
^DD("IX",669,11.1,"B",2,2)=""
^DD("IX",669,11.1,"BB",1,1)=""
^DD("IX",669,11.1,"BB",2,2)=""
^DD("IX",670,0)="2006.82^APL^Place and Date^R^^R^IR^I^2006.82^^^^^S"
^DD("IX",670,.1,0)="^^1^1^3041027^"
^DD("IX",670,.1,1,0)="This allows sorting by Place and Start Time."
^DD("IX",670,1)="S ^MAG(2006.82,""APL"",X(1),X(2),DA)="""""
^DD("IX",670,2)="K ^MAG(2006.82,""APL"",X(1),X(2),DA)"
^DD("IX",670,2.5)="K ^MAG(2006.82,""APL"")"
^DD("IX",670,11.1,0)="^.114IA^2^2"
^DD("IX",670,11.1,1,0)="1^F^2006.82^.04^^1^F"
^DD("IX",670,11.1,1,3)=""
^DD("IX",670,11.1,2,0)="2^F^2006.82^2^^2^F"
^DD("IX",670,11.1,2,3)=""
^DD("IX",670,11.1,"AC",1,1)=""
^DD("IX",670,11.1,"AC",2,2)=""
^DD("IX",670,11.1,"B",1,1)=""
^DD("IX",670,11.1,"B",2,2)=""
^DD("IX",670,11.1,"BB",1,1)=""
^DD("IX",670,11.1,"BB",2,2)=""
^DD("IX",671,0)="2005^SERIESUID^Images sorted by Series UID^R^^F^IR^I^2005^^^^^LS"
^DD("IX",671,.1,0)="^^2^2^3050803^"
^DD("IX",671,.1,1,0)="This cross-reference keeps track of which images have"
^DD("IX",671,.1,2,0)="which Series UID."
^DD("IX",671,1)="S ^MAG(2005,""SERIESUID"",X,DA)="""""
^DD("IX",671,2)="K ^MAG(2005,""SERIESUID"",X,DA)"
^DD("IX",671,2.5)="K ^MAG(2005,""SERIESUID"")"
^DD("IX",671,11.1,0)="^.114IA^1^1"
^DD("IX",671,11.1,1,0)="1^F^2005^253^^1^F"
^DD("IX",671,11.1,1,3)=""
^DD("IX",671,11.1,"AC",1,1)=""
^DD("IX",671,11.1,"B",1,1)=""
^DD("IX",671,11.1,"BB",1,1)=""
^DD("IX",672,0)="2005.1^P^UID for corrected images^MU^^F^IR^I^2005.1^^^^^LS"
^DD("IX",672,.1,0)="^^2^2^3041109^"
^DD("IX",672,.1,1,0)="This cross-reference includes SOP Instance UIDs for corrected images"
^DD("IX",672,.1,2,0)="in the cross-reference on the original SOP Instance UIDs."
^DD("IX",672,1)="S ^MAG(2005.1,""P"",X,DA)="""""
^DD("IX",672,2)="K ^MAG(2005.1,""P"",X,DA)"
^DD("IX",672,2.5)="K ^MAG(2005.1,""P"")"
^DD("IX",672,11.1,0)="^.114IA^1^1"
^DD("IX",672,11.1,1,0)="1^F^2005.1^252^^1^F"
^DD("IX",672,11.1,1,3)=""
^DD("IX",672,11.1,"AC",1,1)=""
^DD("IX",672,11.1,"B",1,1)=""
^DD("IX",672,11.1,"BB",1,1)=""
^DD("IX",673,0)="2005.1^SERIESUID^Images sorted by Series UID^R^^F^IR^I^2005.1^^^^^LS"
^DD("IX",673,.1,0)="^^2^2^3050803^"
^DD("IX",673,.1,1,0)="This cross-reference keeps track of which images have"
^DD("IX",673,.1,2,0)="which Series UID."
^DD("IX",673,1)="S ^MAG(2005.1,""SERIESUID"",X,DA)="""""
^DD("IX",673,2)="K ^MAG(2005.1,""SERIESUID"",X,DA)"
^DD("IX",673,2.5)="K ^MAG(2005.1,""SERIESUID"")"
^DD("IX",673,11.1,0)="^.114IA^1^1"
^DD("IX",673,11.1,1,0)="1^F^2005.1^253^^1^F"
^DD("IX",673,11.1,1,3)=""
^DD("IX",673,11.1,"AC",1,1)=""
^DD("IX",673,11.1,"B",1,1)=""
^DD("IX",673,11.1,"BB",1,1)=""
^DD("IX",674,0)="355.92^AUNIQ^Xref by ins co,care unit,form type,division,prov id type^MU^^R^IR^I^355.92^^^^^S"
^DD("IX",674,.1,0)="^^2^2^3060920"
^DD("IX",674,.1,1,0)="This cross reference allows edits to the additonal provider id's to be "
^DD("IX",674,.1,2,0)="replicated to linked insurance companies."
^DD("IX",674,1)="S ^IBA(355.92,""AUNIQ"",X(1),$E(X(2),1,30),X(3),X(4),X(5),DA)="""""
^DD("IX",674,1.4)="S X=0 I X(1)]"""",X(2)]"""",X(3)]"""",X(4)]"""",X(5)]"""",$P($G(^IBA(355.92,DA,0)),U,8)=""A"" S X=1"
^DD("IX",674,2)="K ^IBA(355.92,""AUNIQ"",X(1),$E(X(2),1,30),X(3),X(4),X(5),DA)"
^DD("IX",674,2.4)="S X=0 I X(1)]"""",X(2)]"""",X(3)]"""",X(4)]"""",X(5)]"""" S X=1"
^DD("IX",674,2.5)="K ^IBA(355.92,""AUNIQ"")"
^DD("IX",674,11.1,0)="^.114IA^5^5"
^DD("IX",674,11.1,1,0)="1^F^355.92^.01^^^F"
^DD("IX",674,11.1,2,0)="2^F^355.92^.1^30^^F"
^DD("IX",674,11.1,3,0)="3^F^355.92^.04^^^F"
^DD("IX",674,11.1,4,0)="4^F^355.92^.11^^^F"
^DD("IX",674,11.1,5,0)="5^F^355.92^.06^^^F"
^DD("IX",674,11.1,"B",1,1)=""
^DD("IX",674,11.1,"B",2,2)=""
^DD("IX",674,11.1,"B",3,3)=""
^DD("IX",674,11.1,"B",4,4)=""
^DD("IX",674,11.1,"B",5,5)=""
^DD("IX",674,11.1,"BB",1,1)=""
^DD("IX",674,11.1,"BB",2,2)=""
^DD("IX",674,11.1,"BB",3,3)=""
^DD("IX",674,11.1,"BB",4,4)=""
^DD("IX",674,11.1,"BB",5,5)=""
^DD("IX",675,0)="2.3215^ALOEIF^Sets the latest OIF/ OEF/ UNKNOWN OEF/OIF episode in a cross reference^MU^^R^IR^I^2.3215^^^^^A"
^DD("IX",675,.1,0)="^^10^10^3060105^^^^"
^DD("IX",675,.1,1,0)="Cross reference is:"
^DD("IX",675,.1,2,0)="  ^DPT(""ALOEIF"",TO DATE,FROM DATE,OIF/ OEF/ UNKNOWN OEF/OIF indicator,"
^DD("IX",675,.1,3,0)="                DA(1),DA)="""""
^DD("IX",675,.1,4,0)=" "
^DD("IX",675,.1,5,0)="Subscripts are:"
^DD("IX",675,.1,6,0)="  TO DATE = latest conflict to date for OIF/ OEF/ UNKNOWN OEF/OIF"
^DD("IX",675,.1,7,0)="  FROM DATE = corresponding from date for TO DATE value"
^DD("IX",675,.1,8,0)="  OIF/ OEF/ UNKNOWN OEF/OIF indicator = ""OIF"" ""OEF"" ""UNK"""
^DD("IX",675,.1,9,0)=" "
^DD("IX",675,.1,10,0)=" DA(1) = entry in patient file      DA = entry in OEF/OIF subfile"
^DD("IX",675,1)="D UPDLAST^DGENOEIF(.DA,.X2,1)"
^DD("IX",675,2)="D UPDLAST^DGENOEIF(.DA,.X1,0)"
^DD("IX",675,2.5)=""
^DD("IX",675,11.1,0)="^.114IA^4^3"
^DD("IX",675,11.1,2,0)="1^F^2.3215^.03^^^F"
^DD("IX",675,11.1,2,3)=""
^DD("IX",675,11.1,3,0)="3^F^2.3215^.02^^^F"
^DD("IX",675,11.1,4,0)="2^F^2.3215^.01^^^F"
^DD("IX",675,11.1,"B",1,2)=""
^DD("IX",675,11.1,"B",2,4)=""
^DD("IX",675,11.1,"B",3,3)=""
^DD("IX",675,11.1,"BB",1,2)=""
^DD("IX",675,11.1,"BB",2,4)=""
^DD("IX",675,11.1,"BB",3,3)=""
^DD("IX",676,0)="2.3215^ALSTUP^TRIGGER THE DATE/TIME OF LAST CHANGE WHEN ANY PERTINENT FIELDS CHANGE^MU^^R^IR^I^2.3215^^^^^A"
^DD("IX",676,1)="N DATA,DGENDA S DATA(.05)=$$NOW^XLFDT,DGENDA=DA,DGENDA(1)=DA(1) I $$UPD^DGENDBS(2.3215,.DGENDA,.DATA)"
^DD("IX",676,1.4)="S X=$S($G(X2(1))'=""""&($G(X1(1))'=$G(X2(1))):1,$G(X1(2))'=$G(X2(2)):1,$G(X1(3))'=$G(X2(3)):1,1:0)"
^DD("IX",676,2)="N DATA,DGENDA S DATA(.05)=$$NOW^XLFDT,DGENDA=DA,DGENDA(1)=DA(1) I $$UPD^DGENDBS(2.3215,.DGENDA,.DATA)"
^DD("IX",676,11.1,0)="^.114IA^3^3"
^DD("IX",676,11.1,1,0)="1^F^2.3215^.01^^^F"
^DD("IX",676,11.1,2,0)="2^F^2.3215^.02^^^F"
^DD("IX",676,11.1,3,0)="3^F^2.3215^.03^^^F"
^DD("IX",676,11.1,"B",1,1)=""
^DD("IX",676,11.1,"B",2,2)=""
^DD("IX",676,11.1,"B",3,3)=""
^DD("IX",676,11.1,"BB",1,1)=""
^DD("IX",676,11.1,"BB",2,2)=""
^DD("IX",676,11.1,"BB",3,3)=""
^DD("IX",677,0)="4^NPI42^NPI42 X-REF^R^^F^IR^W^4.042^^^^^LS"
^DD("IX",677,1)="S ^DIC(4,""NPI42"",$E(X,1,10),DA(1),DA)="""""
^DD("IX",677,2)="K ^DIC(4,""NPI42"",$E(X,1,10),DA(1),DA)"
^DD("IX",677,2.5)="K ^DIC(4,""NPI42"")"
^DD("IX",677,11.1,0)="^.114IA^1^1"
^DD("IX",677,11.1,1,0)="1^F^4.042^.03^10^1^F"
^DD("IX",677,11.1,1,3)=""
^DD("IX",677,11.1,"AC",1,1)=""
^DD("IX",677,11.1,"B",1,1)=""
^DD("IX",677,11.1,"BB",1,1)=""
^DD("IX",678,0)="4^TAXSTATUS^NEW X-REF^R^^F^IR^W^4.043^^^^^LS"
^DD("IX",678,1)="S ^DIC(4,""TAXSTATUS"",$E(X,1,30),DA(1),DA)="""""
^DD("IX",678,2)="K ^DIC(4,""TAXSTATUS"",$E(X,1,30),DA(1),DA)"
^DD("IX",678,2.5)="K ^DIC(4,""TAXSTATUS"")"
^DD("IX",678,11.1,0)="^.114IA^1^1"
^DD("IX",678,11.1,1,0)="1^F^4.043^.03^30^1^F"
^DD("IX",678,11.1,1,3)=""
^DD("IX",678,11.1,"AC",1,1)=""
^DD("IX",678,11.1,"B",1,1)=""
^DD("IX",678,11.1,"BB",1,1)=""
^DD("IX",679,0)="4^XUMFAL^New x-ref^R^^R^IR^W^4.9999^^^^^LS"
^DD("IX",679,1)="S ^DIC(4,""XUMFAL"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,1),DA(1),DA)="""""
^DD("IX",679,2)="K ^DIC(4,""XUMFAL"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),$E(X(4),1,1),DA(1),DA)"
^DD("IX",679,2.5)="K ^DIC(4,""XUMFAL"")"
^DD("IX",679,11.1,0)="^.114IA^4^4"
^DD("IX",679,11.1,1,0)="1^F^4.9999^.01^30^1^F"
^DD("IX",679,11.1,1,3)=""
^DD("IX",679,11.1,2,0)="2^F^4.9999^.02^30^2^F"
^DD("IX",679,11.1,2,3)=""
^DD("IX",679,11.1,3,0)="3^F^4.9999^.03^30^3^F"
^DD("IX",679,11.1,3,3)=""
^DD("IX",679,11.1,4,0)="4^F^4.9999^.04^1^4^F"
^DD("IX",679,11.1,4,3)=""
^DD("IX",679,11.1,"AC",1,1)=""
^DD("IX",679,11.1,"AC",2,2)=""
^DD("IX",679,11.1,"AC",3,3)=""
^DD("IX",679,11.1,"AC",4,4)=""
^DD("IX",679,11.1,"B",1,1)=""
^DD("IX",679,11.1,"B",2,2)=""
^DD("IX",679,11.1,"B",3,3)=""
^DD("IX",679,11.1,"B",4,4)=""
^DD("IX",679,11.1,"BB",1,1)=""
^DD("IX",679,11.1,"BB",2,2)=""
^DD("IX",679,11.1,"BB",3,3)=""
^DD("IX",679,11.1,"BB",4,4)=""
^DD("IX",680,0)="200^NPI42^NPI42 X-REF^R^^F^IR^W^200.042^^^^^LS"
^DD("IX",680,1)="S ^VA(200,""NPI42"",$E(X,1,10),DA(1),DA)="""""
^DD("IX",680,2)="K ^VA(200,""NPI42"",$E(X,1,10),DA(1),DA)"
^DD("IX",680,2.5)="K ^VA(200,""NPI42"")"
^DD("IX",680,11.1,0)="^.114IA^1^1"
^DD("IX",680,11.1,1,0)="1^F^200.042^.03^10^1^F"
^DD("IX",680,11.1,"AC",1,1)=""
^DD("IX",680,11.1,"B",1,1)=""
^DD("IX",680,11.1,"BB",1,1)=""
^DD("IX",681,0)="2.3215^ACVCOM1^Set CV End Date based on OEF/OIF fields^MU^^R^^I^2.3215^^^^^A"
^DD("IX",681,.1,0)="^^8^8^3061010^^^^"
^DD("IX",681,.1,1,0)="This MUMPS x-ref will trigger an update to the Combat Vet Eligibility End"
^DD("IX",681,.1,2,0)="Date field under the following conditions:"
^DD("IX",681,.1,3,0)="  If the COMBAT VETERAN END DATE (#.5295) of the PATIENT file (#2) is null"
^DD("IX",681,.1,4,0)=" AND either"
^DD("IX",681,.1,5,0)="        The SERVICE SEPARATION DATE [LAST] (#.327) is missing"
^DD("IX",681,.1,6,0)="                          OR"
^DD("IX",681,.1,7,0)="        The SERVICE SEPARATION DATE [LAST] (#.327) is less than the"
^DD("IX",681,.1,8,0)="           OEF/OIF TO DATE - #.03 in subfile 2.3215"
^DD("IX",681,1)="N DGZ S DGZ=$S(X2(3)'<X2(2):X2(3),1:X2(2)) D SETCV^DGCV(DA(1),DGZ)"
^DD("IX",681,1.4)="I '$P($G(^DPT(DA(1),.52)),""^"",15) S X=$$CVELIG^DGCV(DA(1))"
^DD("IX",681,2)="Q"
^DD("IX",681,11.1,0)="^.114IA^3^3"
^DD("IX",681,11.1,1,0)="1^F^2.3215^.03^^^F"
^DD("IX",681,11.1,2,0)="2^C"
^DD("IX",681,11.1,2,1.5)="S X=$P($$LAST^DGENOEIF(DA(1)),U)"
^DD("IX",681,11.1,3,0)="3^C"
^DD("IX",681,11.1,3,1.5)="S X=$P($G(^DPT(DA(1),.32)),U,7)"
^DD("IX",681,11.1,"B",1,1)=""
^DD("IX",681,11.1,"B",2,2)=""
^DD("IX",681,11.1,"B",3,3)=""
^DD("IX",681,11.1,"BB",1,1)=""
^DD("IX",681,11.1,"BB",2,2)=""
^DD("IX",681,11.1,"BB",3,3)=""
^DD("IX",689,0)="2^APRFEVT^Record PRF HL7 event for new patients^MU^^F^^I^2^^^^^A"
^DD("IX",689,.1,0)="^^2^2^3050426^"
^DD("IX",689,.1,1,0)="This trigger creates an entry in the PRF HL7 EVENT (#26.21) file when no "
^DD("IX",689,.1,2,0)="entry exists and a national ICN is filed."
^DD("IX",689,1)="D EVENT^DGPFDD(DA)"
^DD("IX",689,2)="Q"
^DD("IX",689,11.1,0)="^.114IA^1^1"
^DD("IX",689,11.1,1,0)="1^F^2^991.01^^^F"
^DD("IX",689,11.1,"B",1,1)=""
^DD("IX",689,11.1,"BB",1,1)=""
^DD("IX",690,0)="26.13^AOWN^Index the OWNER SITE and STATUS fields^R^^R^IR^I^26.13^^^^^S"
^DD("IX",690,1)="S ^DGPF(26.13,""AOWN"",X(1),X(2),DA)="""""
^DD("IX",690,2)="K ^DGPF(26.13,""AOWN"",X(1),X(2),DA)"
^DD("IX",690,2.5)="K ^DGPF(26.13,""AOWN"")"
^DD("IX",690,11.1,0)="^.114IA^2^2"
^DD("IX",690,11.1,1,0)="1^F^26.13^.04^^1^F"
^DD("IX",690,11.1,2,0)="2^F^26.13^.03^^2^F"
^DD("IX",690,11.1,"AC",1,1)=""
^DD("IX",690,11.1,"AC",2,2)=""
^DD("IX",690,11.1,"B",1,1)=""
^DD("IX",690,11.1,"B",2,2)=""
^DD("IX",690,11.1,"BB",1,1)=""
^DD("IX",690,11.1,"BB",2,2)=""
^DD("IX",691,0)="26.19^C^Event index^R^^F^IR^I^26.19^^^^^LS"
^DD("IX",691,1)="S ^DGPF(26.19,""C"",X,DA)="""""
^DD("IX",691,2)="K ^DGPF(26.19,""C"",X,DA)"
^DD("IX",691,2.5)="K ^DGPF(26.19,""C"")"
^DD("IX",691,11.1,0)="^.114IA^1^1"
^DD("IX",691,11.1,1,0)="1^F^26.19^.02^^1^F"
^DD("IX",691,11.1,1,3)=""
^DD("IX",691,11.1,"AC",1,1)=""
^DD("IX",691,11.1,"B",1,1)=""
^DD("IX",691,11.1,"BB",1,1)=""
^DD("IX",692,0)="26.21^ASTAT^Index records with INCOMPLETE and ERROR status^R^^F^IR^I^26.21^^^^^S"
^DD("IX",692,1)="S ^DGPF(26.21,""ASTAT"",X,DA)="""""
^DD("IX",692,1.4)="S X=X2(1)=""I""!(X2(1)=""E"")"
^DD("IX",692,2)="K ^DGPF(26.21,""ASTAT"",X,DA)"
^DD("IX",692,2.5)="K ^DGPF(26.21,""ASTAT"")"
^DD("IX",692,11.1,0)="^.114IA^1^1"
^DD("IX",692,11.1,1,0)="1^F^26.21^.03^^1^F"
^DD("IX",692,11.1,"AC",1,1)=""
^DD("IX",692,11.1,"B",1,1)=""
^DD("IX",692,11.1,"BB",1,1)=""
^DD("IX",693,0)="40.8^APRF^Index the INSTITUTION and PRF ASSIGNMENT OWNERSHIP fields.^R^^R^IR^I^40.8^^^^^S"
^DD("IX",693,1)="S ^DG(40.8,""APRF"",X(1),X(2),DA)="""""
^DD("IX",693,1.4)="S X=X2(2)=1"
^DD("IX",693,2)="K ^DG(40.8,""APRF"",X(1),X(2),DA)"
^DD("IX",693,2.4)="S X=X2(2)=0"
^DD("IX",693,2.5)="K ^DG(40.8,""APRF"")"
^DD("IX",693,11.1,0)="^.114IA^2^2"
^DD("IX",693,11.1,1,0)="1^F^40.8^.07^^1^F"
^DD("IX",693,11.1,2,0)="2^F^40.8^26.01^^2^F"
^DD("IX",693,11.1,"AC",1,1)=""
^DD("IX",693,11.1,"AC",2,2)=""
^DD("IX",693,11.1,"B",1,1)=""
^DD("IX",693,11.1,"B",2,2)=""
^DD("IX",693,11.1,"BB",1,1)=""
^DD("IX",693,11.1,"BB",2,2)=""
^DD("IX",694,0)="100.01^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^100.01^^^^^S"
^DD("IX",694,.1,0)="^^3^3^3051118^"
^DD("IX",694,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference"
^DD("IX",694,.1,2,0)="can be used to identify the Master entry for a VUID associated with a"
^DD("IX",694,.1,3,0)="Term/Concept."
^DD("IX",694,1)="S ^ORD(100.01,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",694,2)="K ^ORD(100.01,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",694,2.5)="K ^ORD(100.01,""AMASTERVUID"")"
^DD("IX",694,11.1,0)="^.114IA^2^2"
^DD("IX",694,11.1,1,0)="1^F^100.01^99.99^30^1^F"
^DD("IX",694,11.1,1,3)=""
^DD("IX",694,11.1,2,0)="2^F^100.01^99.98^^2^F"
^DD("IX",694,11.1,2,3)=""
^DD("IX",694,11.1,"AC",1,1)=""
^DD("IX",694,11.1,"AC",2,2)=""
^DD("IX",694,11.1,"B",1,1)=""
^DD("IX",694,11.1,"B",2,2)=""
^DD("IX",694,11.1,"BB",1,1)=""
^DD("IX",694,11.1,"BB",2,2)=""
^DD("IX",695,0)="100.02^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^100.02^^^^^S"
^DD("IX",695,.1,0)="^^3^3^3051118^"
^DD("IX",695,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference "
^DD("IX",695,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",695,.1,3,0)="Term/Concept."
^DD("IX",695,1)="S ^ORD(100.02,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",695,2)="K ^ORD(100.02,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",695,2.5)="K ^ORD(100.02,""AMASTERVUID"")"
^DD("IX",695,11.1,0)="^.114IA^2^2"
^DD("IX",695,11.1,1,0)="1^F^100.02^99.99^30^1^F"
^DD("IX",695,11.1,1,3)=""
^DD("IX",695,11.1,2,0)="2^F^100.02^99.98^^2^F"
^DD("IX",695,11.1,2,3)=""
^DD("IX",695,11.1,"AC",1,1)=""
^DD("IX",695,11.1,"AC",2,2)=""
^DD("IX",695,11.1,"B",1,1)=""
^DD("IX",695,11.1,"B",2,2)=""
^DD("IX",695,11.1,"BB",1,1)=""
^DD("IX",695,11.1,"BB",2,2)=""
^DD("IX",696,0)="8925.6^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^8925.6^^^^^S"
^DD("IX",696,.1,0)="^^3^3^3060505"
^DD("IX",696,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",696,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",696,.1,3,0)="Term/Concept."
^DD("IX",696,1)="S ^TIU(8925.6,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",696,2)="K ^TIU(8925.6,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",696,2.5)="K ^TIU(8925.6,""AMASTERVUID"")"
^DD("IX",696,11.1,0)="^.114IA^2^2"
^DD("IX",696,11.1,1,0)="1^F^8925.6^99.99^30^1^F"
^DD("IX",696,11.1,2,0)="2^F^8925.6^99.98^^2^F"
^DD("IX",696,11.1,"AC",1,1)=""
^DD("IX",696,11.1,"AC",2,2)=""
^DD("IX",696,11.1,"B",1,1)=""
^DD("IX",696,11.1,"B",2,2)=""
^DD("IX",696,11.1,"BB",1,1)=""
^DD("IX",696,11.1,"BB",2,2)=""
^DD("IX",697,0)="8926.1^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^8926.1^^^^^S"
^DD("IX",697,.1,0)="^^3^3^3060421"
^DD("IX",697,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",697,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",697,.1,3,0)="Term/Concept."
^DD("IX",697,1)="S ^TIU(8926.1,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",697,2)="K ^TIU(8926.1,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",697,2.5)="K ^TIU(8926.1,""AMASTERVUID"")"
^DD("IX",697,11.1,0)="^.114IA^2^2"
^DD("IX",697,11.1,1,0)="1^F^8926.1^99.99^30^1^F"
^DD("IX",697,11.1,2,0)="2^F^8926.1^99.98^^2^F"
^DD("IX",697,11.1,"AC",1,1)=""
^DD("IX",697,11.1,"AC",2,2)=""
^DD("IX",697,11.1,"B",1,1)=""
^DD("IX",697,11.1,"B",2,2)=""
^DD("IX",697,11.1,"BB",1,1)=""
^DD("IX",697,11.1,"BB",2,2)=""
^DD("IX",698,0)="8926.2^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^8926.2^^^^^S"
^DD("IX",698,.1,0)="^^3^3^3060421"
^DD("IX",698,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",698,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",698,.1,3,0)="Term/Concept."
^DD("IX",698,1)="S ^TIU(8926.2,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",698,2)="K ^TIU(8926.2,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",698,2.5)="K ^TIU(8926.2,""AMASTERVUID"")"
^DD("IX",698,11.1,0)="^.114IA^2^2"
^DD("IX",698,11.1,1,0)="1^F^8926.2^99.99^30^1^F"
^DD("IX",698,11.1,2,0)="2^F^8926.2^99.98^^2^F"
^DD("IX",698,11.1,"AC",1,1)=""
^DD("IX",698,11.1,"AC",2,2)=""
^DD("IX",698,11.1,"B",1,1)=""
^DD("IX",698,11.1,"B",2,2)=""
^DD("IX",698,11.1,"BB",1,1)=""
^DD("IX",698,11.1,"BB",2,2)=""
^DD("IX",699,0)="8926.3^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^8926.3^^^^^S"
^DD("IX",699,.1,0)="^^3^3^3060421"
^DD("IX",699,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",699,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",699,.1,3,0)="Term/Concept."
^DD("IX",699,1)="S ^TIU(8926.3,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",699,2)="K ^TIU(8926.3,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",699,2.5)="K ^TIU(8926.3,""AMASTERVUID"")"
^DD("IX",699,11.1,0)="^.114IA^2^2"
^DD("IX",699,11.1,1,0)="1^F^8926.3^99.99^30^1^F"
^DD("IX",699,11.1,2,0)="2^F^8926.3^99.98^^2^F"
^DD("IX",699,11.1,"AC",1,1)=""
^DD("IX",699,11.1,"AC",2,2)=""
^DD("IX",699,11.1,"B",1,1)=""
^DD("IX",699,11.1,"B",2,2)=""
^DD("IX",699,11.1,"BB",1,1)=""
^DD("IX",699,11.1,"BB",2,2)=""
^DD("IX",700,0)="8926.4^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^8926.4^^^^^S"
^DD("IX",700,.1,0)="^^3^3^3060421"
^DD("IX",700,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",700,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",700,.1,3,0)="Term/Concept."
^DD("IX",700,1)="S ^TIU(8926.4,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",700,2)="K ^TIU(8926.4,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",700,2.5)="K ^TIU(8926.4,""AMASTERVUID"")"
^DD("IX",700,11.1,0)="^.114IA^2^2"
^DD("IX",700,11.1,1,0)="1^F^8926.4^99.99^30^1^F"
^DD("IX",700,11.1,2,0)="2^F^8926.4^99.98^^2^F"
^DD("IX",700,11.1,"AC",1,1)=""
^DD("IX",700,11.1,"AC",2,2)=""
^DD("IX",700,11.1,"B",1,1)=""
^DD("IX",700,11.1,"B",2,2)=""
^DD("IX",700,11.1,"BB",1,1)=""
^DD("IX",700,11.1,"BB",2,2)=""
^DD("IX",701,0)="8926.5^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^8926.5^^^^^S"
^DD("IX",701,.1,0)="^^3^3^3060421"
^DD("IX",701,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",701,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",701,.1,3,0)="Term/Concept."
^DD("IX",701,1)="S ^TIU(8926.5,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",701,2)="K ^TIU(8926.5,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",701,2.5)="K ^TIU(8926.5,""AMASTERVUID"")"
^DD("IX",701,11.1,0)="^.114IA^2^2"
^DD("IX",701,11.1,1,0)="1^F^8926.5^99.99^30^1^F"
^DD("IX",701,11.1,2,0)="2^F^8926.5^99.98^^2^F"
^DD("IX",701,11.1,"AC",1,1)=""
^DD("IX",701,11.1,"AC",2,2)=""
^DD("IX",701,11.1,"B",1,1)=""
^DD("IX",701,11.1,"B",2,2)=""
^DD("IX",701,11.1,"BB",1,1)=""
^DD("IX",701,11.1,"BB",2,2)=""
^DD("IX",702,0)="8926.6^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^8926.6^^^^^S"
^DD("IX",702,.1,0)="^^3^3^3060421"
^DD("IX",702,.1,1,0)="If multiple entries have the same VUID in the file, this cross-refernce "
^DD("IX",702,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",702,.1,3,0)="Term/Concept."
^DD("IX",702,1)="S ^TIU(8926.6,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",702,2)="K ^TIU(8926.6,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",702,2.5)="K ^TIU(8926.6,""AMASTERVUID"")"
^DD("IX",702,11.1,0)="^.114IA^2^2"
^DD("IX",702,11.1,1,0)="1^F^8926.6^99.99^30^1^F"
^DD("IX",702,11.1,2,0)="2^F^8926.6^99.98^^2^F"
^DD("IX",702,11.1,"AC",1,1)=""
^DD("IX",702,11.1,"AC",2,2)=""
^DD("IX",702,11.1,"B",1,1)=""
^DD("IX",702,11.1,"B",2,2)=""
^DD("IX",702,11.1,"BB",1,1)=""
^DD("IX",702,11.1,"BB",2,2)=""
^DD("IX",703,0)="2^ADGFM351^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",703,.1,0)="^^5^5^3020624"
^DD("IX",703,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point."
^DD("IX",703,.1,2,0)="Applications that wish to monitor edit activity related to this field may"
^DD("IX",703,.1,3,0)="subscribe to that event point and take action as indicated by the changes"
^DD("IX",703,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of"
^DD("IX",703,.1,5,0)="the information available at the time of the event."
^DD("IX",703,1)="D FC^DGFCPROT(.DA,2,.351,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",703,2)="D FC^DGFCPROT(.DA,2,.351,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",703,11.1,0)="^.114IA^1^1"
^DD("IX",703,11.1,1,0)="1^F^2^.351^^^F"
^DD("IX",703,11.1,"B",1,1)=""
^DD("IX",703,11.1,"BB",1,1)=""
^DD("IX",704,0)="779.21^D^lookup message type including version^R^^R^IR^I^779.21^^^^^LS"
^DD("IX",704,1)="S ^HLD(779.2,DA(1),1,""D"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)="""""
^DD("IX",704,2)="K ^HLD(779.2,DA(1),1,""D"",$E(X(1),1,30),$E(X(2),1,30),$E(X(3),1,30),DA)"
^DD("IX",704,2.5)="K ^HLD(779.2,DA(1),1,""D"")"
^DD("IX",704,11.1,0)="^.114IA^3^3"
^DD("IX",704,11.1,1,0)="1^F^779.21^.01^30^1^F"
^DD("IX",704,11.1,1,3)=""
^DD("IX",704,11.1,2,0)="2^F^779.21^.02^30^2^F"
^DD("IX",704,11.1,2,3)=""
^DD("IX",704,11.1,3,0)="3^F^779.21^.06^30^3^F"
^DD("IX",704,11.1,3,3)=""
^DD("IX",704,11.1,"AC",1,1)=""
^DD("IX",704,11.1,"AC",2,2)=""
^DD("IX",704,11.1,"AC",3,3)=""
^DD("IX",704,11.1,"B",1,1)=""
^DD("IX",704,11.1,"B",2,2)=""
^DD("IX",704,11.1,"B",3,3)=""
^DD("IX",704,11.1,"BB",1,1)=""
^DD("IX",704,11.1,"BB",2,2)=""
^DD("IX",704,11.1,"BB",3,3)=""
^DD("IX",705,0)="355.93^NPI42^NPI42 X-REF^R^^F^IR^W^355.9301^^^^^LS"
^DD("IX",705,1)="S ^IBA(355.93,""NPI42"",$E(X,1,10),DA(1),DA)="""""
^DD("IX",705,2)="K ^IBA(355.93,""NPI42"",$E(X,1,10),DA(1),DA)"
^DD("IX",705,2.5)="K ^IBA(355.93,""NPI42"")"
^DD("IX",705,11.1,0)="^.114IA^1^1"
^DD("IX",705,11.1,1,0)="1^F^355.9301^.03^10^1^F"
^DD("IX",705,11.1,1,3)=""
^DD("IX",705,11.1,"AC",1,1)=""
^DD("IX",705,11.1,"B",1,1)=""
^DD("IX",705,11.1,"BB",1,1)=""
^DD("IX",706,0)="799.41^AIDSOI^Sets the CLINICAL AIDS field^MU^^R^IR^I^799.41^^^^^A"
^DD("IX",706,1)="D AIDSOI^RORDD01(.DA,$G(X(2)))"
^DD("IX",706,1.4)="S X=($G(X(1))'="""")"
^DD("IX",706,2)="Q"
^DD("IX",706,11.1,0)="^.114IA^2^2"
^DD("IX",706,11.1,1,0)="1^F^799.41^.02^^^F"
^DD("IX",706,11.1,1,3)=""
^DD("IX",706,11.1,2,0)="2^F^799.41^.03^^^F"
^DD("IX",706,11.1,2,3)=""
^DD("IX",706,11.1,"B",1,1)=""
^DD("IX",706,11.1,"B",2,2)=""
^DD("IX",706,11.1,"BB",1,1)=""
^DD("IX",706,11.1,"BB",2,2)=""
^DD("IX",707,0)="458^ASA^TEST^R^^R^IR^W^458.02^^^^^S"
^DD("IX",707,.1,0)="^^2^2^3040923^"
^DD("IX",707,.1,1,0)="This index promotes rapid access to all the ESR days for which a Supervisor"
^DD("IX",707,.1,2,0)="of a T&L unit must take action."
^DD("IX",707,1)="S ^PRST(458,""ASA"",X(1),X(2),X(3),DA(2),DA(1),DA)="""""
^DD("IX",707,1.4)="S X=$S($G(X(4))=4:1,1:0)"
^DD("IX",707,2)="K ^PRST(458,""ASA"",X(1),X(2),X(3),DA(2),DA(1),DA)"
^DD("IX",707,2.4)=""
^DD("IX",707,2.5)="K ^PRST(458,""ASA"")"
^DD("IX",707,11.1,0)="^.114IA^4^4"
^DD("IX",707,11.1,1,0)="1^C^^^^1"
^DD("IX",707,11.1,1,1.5)="S X=DA(1)"
^DD("IX",707,11.1,2,0)="2^C^^^^2"
^DD("IX",707,11.1,2,1.5)="S X=$P(^PRST(458,DA(2),0),""^"")"
^DD("IX",707,11.1,3,0)="3^F^458.02^.01^^3^F"
^DD("IX",707,11.1,4,0)="4^F^458.02^146^^^F"
^DD("IX",707,11.1,"AC",1,1)=""
^DD("IX",707,11.1,"AC",2,2)=""
^DD("IX",707,11.1,"AC",3,3)=""
^DD("IX",707,11.1,"B",1,1)=""
^DD("IX",707,11.1,"B",2,2)=""
^DD("IX",707,11.1,"B",3,3)=""
^DD("IX",707,11.1,"B",4,4)=""
^DD("IX",707,11.1,"BB",1,1)=""
^DD("IX",707,11.1,"BB",2,2)=""
^DD("IX",707,11.1,"BB",3,3)=""
^DD("IX",707,11.1,"BB",4,4)=""
^DD("IX",708,0)="458.4^AEE^Index of employee and end date.^R^^R^IR^I^458.4^^^^^S"
^DD("IX",708,.1,0)="^^1^1^3041004^"
^DD("IX",708,.1,1,0)="Regular compound cross-reference of employee and end date."
^DD("IX",708,1)="S ^PRST(458.4,""AEE"",X(1),X(2),DA)="""""
^DD("IX",708,2)="K ^PRST(458.4,""AEE"",X(1),X(2),DA)"
^DD("IX",708,2.5)="K ^PRST(458.4,""AEE"")"
^DD("IX",708,11.1,0)="^.114IA^2^2"
^DD("IX",708,11.1,1,0)="1^F^458.4^2^^1^F"
^DD("IX",708,11.1,2,0)="2^F^458.4^1^^2^F"
^DD("IX",708,11.1,"AC",1,1)=""
^DD("IX",708,11.1,"AC",2,2)=""
^DD("IX",708,11.1,"B",1,1)=""
^DD("IX",708,11.1,"B",2,2)=""
^DD("IX",708,11.1,"BB",1,1)=""
^DD("IX",708,11.1,"BB",2,2)=""
^DD("IX",709,0)="458.7^AST^index for rapid access to a physicians memo's by STATUS^R^^R^IR^I^458.7^^^^^S"
^DD("IX",709,.1,0)="^^2^2^3040924^"
^DD("IX",709,.1,1,0)="This index provides rapid access for all of a Physicians Memorandum's"
^DD("IX",709,.1,2,0)="by it's status."
^DD("IX",709,1)="S ^PRST(458.7,""AST"",X(1),X(2),DA)="""""
^DD("IX",709,2)="K ^PRST(458.7,""AST"",X(1),X(2),DA)"
^DD("IX",709,2.5)="K ^PRST(458.7,""AST"")"
^DD("IX",709,11.1,0)="^.114IA^2^2"
^DD("IX",709,11.1,1,0)="1^F^458.7^.01^^1^F"
^DD("IX",709,11.1,1,3)=""
^DD("IX",709,11.1,2,0)="2^F^458.7^5^^2^F"
^DD("IX",709,11.1,2,3)=""
^DD("IX",709,11.1,"AC",1,1)=""
^DD("IX",709,11.1,"AC",2,2)=""
^DD("IX",709,11.1,"B",1,1)=""
^DD("IX",709,11.1,"B",2,2)=""
^DD("IX",709,11.1,"BB",1,1)=""
^DD("IX",709,11.1,"BB",2,2)=""
^DD("IX",710,0)="120.82^AD^Update entries in 120.8 when this field changes^MU^^F^R^I^120.82^^^^^A"
^DD("IX",710,.1,0)="^^2^2^3070904"
^DD("IX",710,.1,1,0)="When the allergy type field for the entry in this file is changed"
^DD("IX",710,.1,2,0)="then all associated entries in file 120.8 will be updated."
^DD("IX",710,1)="Q:$D(DIU(0))  D QTYPE^GMRAUTL2"
^DD("IX",710,2)="Q"
^DD("IX",710,11.1,0)="^.114IA^1^1"
^DD("IX",710,11.1,1,0)="1^F^120.82^1^^^F"
^DD("IX",710,11.1,"B",1,1)=""
^DD("IX",710,11.1,"BB",1,1)=""
^DD("IX",711,0)="445^AJ^ODI Users ^R^^F^IR^W^445.027^^^^^S"
^DD("IX",711,.1,0)="^^6^6^3060714^"
^DD("IX",711,.1,1,0)="This cross reference will house all of the DUZ's of users who have"
^DD("IX",711,.1,2,0)="On-Demand authority and the inventory point(s) on which each user has this"
^DD("IX",711,.1,3,0)="authority. It was created to facilitate maintaining the On-Demand User"
^DD("IX",711,.1,4,0)="multiple for all affected inventory points whenever a user's access is"
^DD("IX",711,.1,5,0)="terminated.  The file may also be used to quickly determine the specific"
^DD("IX",711,.1,6,0)="inventory points on which any given user has the On-Demand authority."
^DD("IX",711,1)="S ^PRCP(445,""AJ"",X,DA(1),DA)="""""
^DD("IX",711,2)="K ^PRCP(445,""AJ"",X,DA(1),DA)"
^DD("IX",711,2.5)="K ^PRCP(445,""AJ"")"
^DD("IX",711,11.1,0)="^.114IA^1^1"
^DD("IX",711,11.1,1,0)="1^F^445.027^.01^^1^F"
^DD("IX",711,11.1,"AC",1,1)=""
^DD("IX",711,11.1,"B",1,1)=""
^DD("IX",711,11.1,"BB",1,1)=""
^DD("IX",712,0)="779.4^AH^LOOKUP^MU^^R^IR^I^779.4^^^^^A"
^DD("IX",712,.1,0)="^^3^3^3070124^^^"
^DD("IX",712,.1,1,0)=""
^DD("IX",712,.1,2,0)=""
^DD("IX",712,.1,3,0)=""
^DD("IX",712,1)="D SETAH1^HLOASUB1(DA,X(1),X(2),X(3),X(4),X(5),X(6),X(7))"
^DD("IX",712,2)="D KILLAH1^HLOASUB1(X(1),X(2),X(3),X(4),X(5),X(6),X(7))"
^DD("IX",712,2.5)="K ^HLD(779.4,""AH"")"
^DD("IX",712,11.1,0)="^.114IA^7^7"
^DD("IX",712,11.1,1,0)="1^F^779.4^.02^^1^F"
^DD("IX",712,11.1,2,0)="2^F^779.4^3.01^^^F"
^DD("IX",712,11.1,3,0)="3^F^779.4^3.02^^^F"
^DD("IX",712,11.1,3,1)=""
^DD("IX",712,11.1,4,0)="4^F^779.4^3.03^^^F"
^DD("IX",712,11.1,5,0)="5^F^779.4^3.04^^^F"
^DD("IX",712,11.1,6,0)="6^F^779.4^3.05^^^F"
^DD("IX",712,11.1,7,0)="7^F^779.4^3.06^^^F"
^DD("IX",712,11.1,"AC",1,1)=""
^DD("IX",712,11.1,"B",1,1)=""
^DD("IX",712,11.1,"B",2,2)=""
^DD("IX",712,11.1,"B",3,3)=""
^DD("IX",712,11.1,"B",4,4)=""
^DD("IX",712,11.1,"B",5,5)=""
^DD("IX",712,11.1,"B",6,6)=""
^DD("IX",712,11.1,"B",7,7)=""
^DD("IX",712,11.1,"BB",1,1)=""
^DD("IX",712,11.1,"BB",2,2)=""
^DD("IX",712,11.1,"BB",3,3)=""
^DD("IX",712,11.1,"BB",4,4)=""
^DD("IX",712,11.1,"BB",5,5)=""
^DD("IX",712,11.1,"BB",6,6)=""
^DD("IX",712,11.1,"BB",7,7)=""
^DD("IX",713,0)="779.41.^AC^Used to find recipients who have not been terminated.^MU^^R^IR^I^779.41^^^^^S"
^DD("IX",713,1)="S ^HLD(779.4,DA(1),2,""AC"",DA)="""""
^DD("IX",713,1.4)="S X=$S($G(X2(2)):0,1:1)"
^DD("IX",713,2)="K ^HLD(779.4,DA(1),2,""AC"",DA)"
^DD("IX",713,2.4)="S X=1"
^DD("IX",713,11.1,0)="^.114IA^2^2"
^DD("IX",713,11.1,1,0)="1^F^779.41^1.01^^1^F"
^DD("IX",713,11.1,1,3)=""
^DD("IX",713,11.1,2,0)="2^F^779.41^1.02^^^F"
^DD("IX",713,11.1,2,3)=""
^DD("IX",713,11.1,"AC",1,1)=""
^DD("IX",713,11.1,"B",1,1)=""
^DD("IX",713,11.1,"B",2,2)=""
^DD("IX",713,11.1,"BB",1,1)=""
^DD("IX",713,11.1,"BB",2,2)=""
^DD("IX",714,0)="2^AVAFC0906^This x-ref calls the DG FIELD MONITOR event point.^MU^^F^I^I^2^^^^^A"
^DD("IX",714,.1,0)="^^5^5^3070330^"
^DD("IX",714,.1,1,0)="This cross reference activates the DG FIELD MONITOR event point.  "
^DD("IX",714,.1,2,0)="Applications that wish to monitor edit activity related to this field may "
^DD("IX",714,.1,3,0)="subscribe to that event point and take action as indicated by the changes "
^DD("IX",714,.1,4,0)="that occur.  Refer to the DG FIELD MONITOR protocol for a description of "
^DD("IX",714,.1,5,0)="the information available at the time of the event."
^DD("IX",714,1)="D FC^DGFCPROT(.DA,2,.0906,""SET"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",714,2)="D FC^DGFCPROT(.DA,2,.0906,""KILL"",$H,$G(DUZ),.X,.X1,.X2,$G(XQY0)) Q"
^DD("IX",714,11.1,0)="^.114IA^1^1"
^DD("IX",714,11.1,1,0)="1^F^2^.0906^^^F"
^DD("IX",714,11.1,1,3)=""
^DD("IX",714,11.1,"B",1,1)=""
^DD("IX",714,11.1,"BB",1,1)=""
^DD("IX",715,0)="2^AXENR13^TRIGGER A MESSAGE FOR ANY CHANGE TO THESE FIELDS^MU^^R^R^I^2^^^^^A"
^DD("IX",715,.1,0)="^^2^2^3060410^"
^DD("IX",715,.1,1,0)="This cross-reference will trigger a message to the HEC anytime one of the"
^DD("IX",715,.1,2,0)="related fields is changed."
^DD("IX",715,1)="D EVENT^IVMPLOG(DFN)"
^DD("IX",715,2)="D EVENT^IVMPLOG(DFN)"
^DD("IX",715,11.1,0)="^.114IA^3^3"
^DD("IX",715,11.1,1,0)="1^F^2^.133^^^F"
^DD("IX",715,11.1,1,3)=""
^DD("IX",715,11.1,2,0)="2^F^2^.134^^^F"
^DD("IX",715,11.1,2,3)=""
^DD("IX",715,11.1,3,0)="3^F^2^.135^^^F"
^DD("IX",715,11.1,3,3)=""
^DD("IX",715,11.1,"B",1,1)=""
^DD("IX",715,11.1,"B",2,2)=""
^DD("IX",715,11.1,"B",3,3)=""
^DD("IX",715,11.1,"BB",1,1)=""
^DD("IX",715,11.1,"BB",2,2)=""
^DD("IX",715,11.1,"BB",3,3)=""
^DD("IX",716,0)="2.141^ACEE141^TRIGGER A Z07 ON E/E CHANGES^MU^^R^R^I^2.141^^^^^A"
^DD("IX",716,.1,0)="^^3^3^3060501^"
^DD("IX",716,.1,1,0)="This cross reference will trigger a Z07 message whenever changes are made"
^DD("IX",716,.1,2,0)="to the E/E CONFIDENTIAL ADDRESS CATEGORY.  This includes add, changes,"
^DD("IX",716,.1,3,0)="and deletes."
^DD("IX",716,1)="D CONF^DGDDDTTM I ($T(EECHG^DGRPCTRG)'="""") D EECHG^DGRPCTRG"
^DD("IX",716,2)="D CONF^DGDDDTTM I ($T(EECHG^DGRPCTRG)'="""") D EECHG^DGRPCTRG"
^DD("IX",716,11.1,0)="^.114IA^2^2"
^DD("IX",716,11.1,1,0)="1^F^2.141^.01^^^F"
^DD("IX",716,11.1,1,3)=""
^DD("IX",716,11.1,2,0)="2^F^2.141^1^^^F"
^DD("IX",716,11.1,2,3)=""
^DD("IX",716,11.1,"B",1,1)=""
^DD("IX",716,11.1,"B",2,2)=""
^DD("IX",716,11.1,"BB",1,1)=""
^DD("IX",716,11.1,"BB",2,2)=""
^DD("IX",717,0)="95.3^AMASTERVUID^This cross-reference identifies the Master entry for a VUID.^R^^R^IR^I^95.3^^^^^S"
^DD("IX",717,.1,0)="^^3^3^3050428^"
^DD("IX",717,.1,1,0)="If multiple entries have the same VUID in the file, this cross-reference "
^DD("IX",717,.1,2,0)="can be used to identify the Master entry for a VUID associated with a "
^DD("IX",717,.1,3,0)="Term/Concept."
^DD("IX",717,1)="S ^LAB(95.3,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)="""""
^DD("IX",717,2)="K ^LAB(95.3,""AMASTERVUID"",$E(X(1),1,30),X(2),DA)"
^DD("IX",717,2.5)="K ^LAB(95.3,""AMASTERVUID"")"
^DD("IX",717,11.1,0)="^.114IA^2^2"
^DD("IX",717,11.1,1,0)="1^F^95.3^99.99^30^1^F"
^DD("IX",717,11.1,2,0)="2^F^95.3^99.98^^2^F"
^DD("IX",717,11.1,"AC",1,1)=""
^DD("IX",717,11.1,"AC",2,2)=""
^DD("IX",717,11.1,"B",1,1)=""
^DD("IX",717,11.1,"B",2,2)=""
^DD("IX",717,11.1,"BB",1,1)=""
^DD("IX",717,11.1,"BB",2,2)=""
^DD("IX",718,0)="409.48^AF^Cross reference by PROVIDER and DATE OF ENCOUNTER^R^^R^IR^I^409.48^^^^^S"
^DD("IX",718,.1,0)="^^3^3^3070302^"
^DD("IX",718,.1,1,0)="This cross reference (by PROVIDER and DATE OF ENCOUNTER) is used by a"
^DD("IX",718,.1,2,0)="report of the providers who have had encounters reviewed through the"
^DD("IX",718,.1,3,0)="ASCD options."
^DD("IX",718,1)="S ^SDSC(409.48,""AF"",X(1),X(2),DA)="""""
^DD("IX",718,2)="K ^SDSC(409.48,""AF"",X(1),X(2),DA)"
^DD("IX",718,2.5)="K ^SDSC(409.48,""AF"")"
^DD("IX",718,11.1,0)="^.114IA^2^2"
^DD("IX",718,11.1,1,0)="1^F^409.48^.08^^1^F"
^DD("IX",718,11.1,1,3)=""
^DD("IX",718,11.1,2,0)="2^F^409.48^.07^^2^F"
^DD("IX",718,11.1,2,3)=""
^DD("IX",718,11.1,"AC",1,1)=""
^DD("IX",718,11.1,"AC",2,2)=""
^DD("IX",718,11.1,"B",1,1)=""
^DD("IX",718,11.1,"B",2,2)=""
^DD("IX",718,11.1,"BB",1,1)=""
^DD("IX",718,11.1,"BB",2,2)=""
^DD("IX",719,0)="409.48^AG^Cross reference by LAST EDITED BY and DATE OF ENCOUNTER^R^^R^IR^I^409.48^^^^^S"
^DD("IX",719,.1,0)="^^3^3^3070302^"
^DD("IX",719,.1,1,0)="This cross reference (by LAST EDITED BY and DATE OF ENCOUNTER) is used by "
^DD("IX",719,.1,2,0)="a report of the users who reviewed encounters and what they did to each "
^DD("IX",719,.1,3,0)="through the ASCD options."
^DD("IX",719,1)="S ^SDSC(409.48,""AG"",X(1),X(2),DA)="""""
^DD("IX",719,2)="K ^SDSC(409.48,""AG"",X(1),X(2),DA)"
^DD("IX",719,2.5)="K ^SDSC(409.48,""AG"")"
^DD("IX",719,11.1,0)="^.114IA^2^2"
^DD("IX",719,11.1,1,0)="1^F^409.48^.03^^1^F"
^DD("IX",719,11.1,2,0)="2^F^409.48^.07^^2^F"
^DD("IX",719,11.1,"AC",1,1)=""
^DD("IX",719,11.1,"AC",2,2)=""
^DD("IX",719,11.1,"B",1,1)=""
^DD("IX",719,11.1,"B",2,2)=""
^DD("IX",719,11.1,"BB",1,1)=""
^DD("IX",719,11.1,"BB",2,2)=""
^DD("IX",720,0)="409.48^C^Cross Reference by STATUS and DATE OF ENCOUNTER^R^^R^IR^I^409.48^^^^^LS"
^DD("IX",720,.1,0)="^^4^4^3040923^"
^DD("IX",720,.1,1,0)="This cross reference (by STATUS and DATE OF ENCOUNTER) is used by a"
^DD("IX",720,.1,2,0)="summary report of the status of encounters found on a particular day "
^DD("IX",720,.1,3,0)="and also by a loop that runs through the NEW or REVIEW statuses for"
^DD("IX",720,.1,4,0)="a date range."
^DD("IX",720,1)="S ^SDSC(409.48,""C"",X(1),X(2),DA)="""""
^DD("IX",720,2)="K ^SDSC(409.48,""C"",X(1),X(2),DA)"
^DD("IX",720,2.5)="K ^SDSC(409.48,""C"")"
^DD("IX",720,11.1,0)="^.114IA^2^2"
^DD("IX",720,11.1,1,0)="1^F^409.48^.05^^1^F"
^DD("IX",720,11.1,1,3)=""
^DD("IX",720,11.1,2,0)="2^F^409.48^.07^^2^F"
^DD("IX",720,11.1,2,3)=""
^DD("IX",720,11.1,"AC",1,1)=""
^DD("IX",720,11.1,"AC",2,2)=""
^DD("IX",720,11.1,"B",1,1)=""
^DD("IX",720,11.1,"B",2,2)=""
^DD("IX",720,11.1,"BB",1,1)=""
^DD("IX",720,11.1,"BB",2,2)=""
^DD("IX",721,0)="458.8^AC^FISCAL YEAR^R^^R^IR^I^458.8^^^^^S"
^DD("IX",721,.1,0)="^^2^2^3061108^"
^DD("IX",721,.1,1,0)="This cross reference is used to find the nurses entry for a specified "
^DD("IX",721,.1,2,0)="fiscal year."
^DD("IX",721,1)="S ^PRST(458.8,""AC"",$E(X(1),1,10),$E(X(2),1,30),DA)="""""
^DD("IX",721,2)="K ^PRST(458.8,""AC"",$E(X(1),1,10),$E(X(2),1,30),DA)"
^DD("IX",721,2.5)="K ^PRST(458.8,""AC"")"
^DD("IX",721,11.1,0)="^.114IA^2^2"
^DD("IX",721,11.1,1,0)="1^F^458.8^.01^10^1^F"
^DD("IX",721,11.1,2,0)="2^F^458.8^1^30^2^F"
^DD("IX",721,11.1,"AC",1,1)=""
^DD("IX",721,11.1,"AC",2,2)=""
^DD("IX",721,11.1,"B",1,1)=""
^DD("IX",721,11.1,"B",2,2)=""
^DD("IX",721,11.1,"BB",1,1)=""
^DD("IX",721,11.1,"BB",2,2)=""
^DD("IX",722,0)="458.82^AC^RECESS WEEK DAY 1 DATE^R^^F^IR^I^458.82^^^^^S"
^DD("IX",722,.1,0)="^^4^4^3061108^"
^DD("IX",722,.1,1,0)="This date is used to calculate the number of hours of recess requested "
^DD("IX",722,.1,2,0)="for a given time period.  It is needed to project the amount of leave a "
^DD("IX",722,.1,3,0)="nurse will accrue in a given time period.  The nurse does not accrue "
^DD("IX",722,.1,4,0)="leave while on recess."
^DD("IX",722,1)="S ^PRST(458.8,DA(1),1,""AC"",$E(X,1,8),DA)="""""
^DD("IX",722,2)="K ^PRST(458.8,DA(1),1,""AC"",$E(X,1,8),DA)"
^DD("IX",722,2.5)="K ^PRST(458.8,DA(1),1,""AC"")"
^DD("IX",722,11.1,0)="^.114IA^1^1"
^DD("IX",722,11.1,1,0)="1^F^458.82^2^8^1^F"
^DD("IX",722,11.1,"AC",1,1)=""
^DD("IX",722,11.1,"B",1,1)=""
^DD("IX",722,11.1,"BB",1,1)=""
^DD("IX",723,0)="399.047^AC^VALUE field clean up^MU^^F^^I^399.047^^^^^A"
^DD("IX",723,.1,0)="^^2^2^3080203"
^DD("IX",723,.1,1,0)="If the VALUE CODE field is modified, make sure the VALUE field associated"
^DD("IX",723,.1,2,0)="with it is still VALID.  If not, delete the VALUE."
^DD("IX",723,1)="D REMOVE^IBCVC(.DA)"
^DD("IX",723,1.4)="S X=$$COND^IBCVC(.DA,X1(1),X2(1))"
^DD("IX",723,2)="Q"
^DD("IX",723,11.1,0)="^.114IA^1^1"
^DD("IX",723,11.1,1,0)="1^F^399.047^.01^^^F"
^DD("IX",723,11.1,"B",1,1)=""
^DD("IX",723,11.1,"BB",1,1)=""
^DD("IX",724,0)="601.751^AC^TYPE ID, SEQUENCE, CHOICE^R^^R^IR^I^601.751^^^^^S"
^DD("IX",724,1)="S ^YTT(601.751,""AC"",X(1),X(2),X(3),DA)="""""
^DD("IX",724,2)="K ^YTT(601.751,""AC"",X(1),X(2),X(3),DA)"
^DD("IX",724,2.5)="K ^YTT(601.751,""AC"")"
^DD("IX",724,11.1,0)="^.114IA^3^3"
^DD("IX",724,11.1,1,0)="1^F^601.751^.01^^1^F"
^DD("IX",724,11.1,1,3)=""
^DD("IX",724,11.1,2,0)="2^F^601.751^1^^2^F"
^DD("IX",724,11.1,2,3)=""
^DD("IX",724,11.1,3,0)="3^F^601.751^2^^3^F"
^DD("IX",724,11.1,3,3)=""
^DD("IX",724,11.1,"AC",1,1)=""
^DD("IX",724,11.1,"AC",2,2)=""
^DD("IX",724,11.1,"AC",3,3)=""
^DD("IX",724,11.1,"B",1,1)=""
^DD("IX",724,11.1,"B",2,2)=""
^DD("IX",724,11.1,"B",3,3)=""
^DD("IX",724,11.1,"BB",1,1)=""
^DD("IX",724,11.1,"BB",2,2)=""
^DD("IX",724,11.1,"BB",3,3)=""
^DD("IX",725,0)="601.76^AD^INSTRUMENT BY SEQUENCE^R^^R^IR^I^601.76^^^^^S"
^DD("IX",725,1)="S ^YTT(601.76,""AD"",X(1),X(2),DA)="""""
^DD("IX",725,2)="K ^YTT(601.76,""AD"",X(1),X(2),DA)"
^DD("IX",725,2.5)="K ^YTT(601.76,""AD"")"
^DD("IX",725,11.1,0)="^.114IA^2^2"
^DD("IX",725,11.1,1,0)="1^F^601.76^1^^1^F"
^DD("IX",725,11.1,1,3)=""
^DD("IX",725,11.1,2,0)="2^F^601.76^2^^2^F"
^DD("IX",725,11.1,2,3)=""
^DD("IX",725,11.1,"AC",1,1)=""
^DD("IX",725,11.1,"AC",2,2)=""
^DD("IX",725,11.1,"B",1,1)=""
^DD("IX",725,11.1,"B",2,2)=""
^DD("IX",725,11.1,"BB",1,1)=""
^DD("IX",725,11.1,"BB",2,2)=""
^DD("IX",726,0)="601.76^AF^Instrument by Question ID^R^^R^IR^I^601.76^^^^^S"
^DD("IX",726,.1,0)="^^1^1^3051118^"
^DD("IX",726,.1,1,0)="Used to confirm a question as part of a defined instrument."
^DD("IX",726,1)="S ^YTT(601.76,""AF"",X(1),X(2),DA)="""""
^DD("IX",726,2)="K ^YTT(601.76,""AF"",X(1),X(2),DA)"
^DD("IX",726,2.5)="K ^YTT(601.76,""AF"")"
^DD("IX",726,11.1,0)="^.114IA^2^2"
^DD("IX",726,11.1,1,0)="1^F^601.76^1^^1^F"
^DD("IX",726,11.1,1,3)=""
^DD("IX",726,11.1,2,0)="2^F^601.76^3^^2^F"
^DD("IX",726,11.1,2,3)=""
^DD("IX",726,11.1,"AC",1,1)=""
^DD("IX",726,11.1,"AC",2,2)=""
^DD("IX",726,11.1,"B",1,1)=""
^DD("IX",726,11.1,"B",2,2)=""
^DD("IX",726,11.1,"BB",1,1)=""
^DD("IX",726,11.1,"BB",2,2)=""
^DD("IX",727,0)="601.78^AC^battery id and sequence^R^^R^IR^I^601.78^^^^^S"
^DD("IX",727,1)="S ^YTT(601.78,""AC"",X(1),X(2),DA)="""""
^DD("IX",727,2)="K ^YTT(601.78,""AC"",X(1),X(2),DA)"
^DD("IX",727,2.5)="K ^YTT(601.78,""AC"")"
^DD("IX",727,11.1,0)="^.114IA^2^2"
^DD("IX",727,11.1,1,0)="1^F^601.78^1^^1^F"
^DD("IX",727,11.1,1,3)=""
^DD("IX",727,11.1,2,0)="2^F^601.78^2^^2^F"
^DD("IX",727,11.1,2,3)=""
^DD("IX",727,11.1,"AC",1,1)=""
^DD("IX",727,11.1,"AC",2,2)=""
^DD("IX",727,11.1,"B",1,1)=""
^DD("IX",727,11.1,"B",2,2)=""
^DD("IX",727,11.1,"BB",1,1)=""
^DD("IX",727,11.1,"BB",2,2)=""
^DD("IX",728,0)="601.79^AF^Instrument by Skipped Question^R^^R^IR^I^601.79^^^^^S"
^DD("IX",728,1)="S ^YTT(601.79,""AF"",X(1),X(2),DA)="""""
^DD("IX",728,2)="K ^YTT(601.79,""AF"",X(1),X(2),DA)"
^DD("IX",728,2.5)="K ^YTT(601.79,""AF"")"
^DD("IX",728,11.1,0)="^.114IA^2^2"
^DD("IX",728,11.1,1,0)="1^F^601.79^1^^1^F"
^DD("IX",728,11.1,1,3)=""
^DD("IX",728,11.1,2,0)="2^F^601.79^3^^2^F"
^DD("IX",728,11.1,2,3)=""
^DD("IX",728,11.1,"AC",1,1)=""
^DD("IX",728,11.1,"AC",2,2)=""
^DD("IX",728,11.1,"B",1,1)=""
^DD("IX",728,11.1,"B",2,2)=""
^DD("IX",728,11.1,"BB",1,1)=""
^DD("IX",728,11.1,"BB",2,2)=""
^DD("IX",729,0)="601.83^AD^Instrument by question^R^^R^IR^I^601.83^^^^^S"
^DD("IX",729,1)="S ^YTT(601.83,""AD"",X(1),X(2),DA)="""""
^DD("IX",729,2)="K ^YTT(601.83,""AD"",X(1),X(2),DA)"
^DD("IX",729,2.5)="K ^YTT(601.83,""AD"")"
^DD("IX",729,11.1,0)="^.114IA^2^2"
^DD("IX",729,11.1,1,0)="1^F^601.83^1^^1^F"
^DD("IX",729,11.1,1,3)=""
^DD("IX",729,11.1,2,0)="2^F^601.83^2^^2^F"
^DD("IX",729,11.1,2,3)=""
^DD("IX",729,11.1,"AC",1,1)=""
^DD("IX",729,11.1,"AC",2,2)=""
^DD("IX",729,11.1,"B",1,1)=""
^DD("IX",729,11.1,"B",2,2)=""
^DD("IX",729,11.1,"BB",1,1)=""
^DD("IX",729,11.1,"BB",2,2)=""
^DD("IX",730,0)="601.84^AC^Instrument by Date^R^^R^IR^I^601.84^^^^^S"
^DD("IX",730,1)="S ^YTT(601.84,""AC"",X(1),X(2),DA)="""""
^DD("IX",730,2)="K ^YTT(601.84,""AC"",X(1),X(2),DA)"
^DD("IX",730,2.5)="K ^YTT(601.84,""AC"")"
^DD("IX",730,11.1,0)="^.114IA^2^2"
^DD("IX",730,11.1,1,0)="1^F^601.84^2^^1^F"
^DD("IX",730,11.1,2,0)="2^F^601.84^3^^2^F"
^DD("IX",730,11.1,"AC",1,1)=""
^DD("IX",730,11.1,"AC",2,2)=""
^DD("IX",730,11.1,"B",1,1)=""
^DD("IX",730,11.1,"B",2,2)=""
^DD("IX",730,11.1,"BB",1,1)=""
^DD("IX",730,11.1,"BB",2,2)=""
^DD("IX",731,0)="601.84^ACR^Clincal Reminders Index^MU^^R^IR^I^601.84^^^^^A"
^DD("IX",731,1)="D SMH^YTQPXRM(.X,.DA)"
^DD("IX",731,1.4)="S X=$S(X(4)=""Y"":1,1:0)"
^DD("IX",731,2)="D KMH^YTQPXRM(.X,.DA)"
^DD("IX",731,2.4)="S X=$S(X(4)=""Y"":1,1:0)"
^DD("IX",731,2.5)="K ^PXRMINDX(601.84)"
^DD("IX",731,11.1,0)="^.114IA^4^4"
^DD("IX",731,11.1,1,0)="1^F^601.84^1^^^F"
^DD("IX",731,11.1,2,0)="2^F^601.84^2^^^F"
^DD("IX",731,11.1,3,0)="3^F^601.84^3^^^F"
^DD("IX",731,11.1,4,0)="4^F^601.84^8^^^F"
^DD("IX",731,11.1,"B",1,1)=""
^DD("IX",731,11.1,"B",2,2)=""
^DD("IX",731,11.1,"B",3,3)=""
^DD("IX",731,11.1,"B",4,4)=""
^DD("IX",731,11.1,"BB",1,1)=""
^DD("IX",731,11.1,"BB",2,2)=""
^DD("IX",731,11.1,"BB",3,3)=""
^DD("IX",731,11.1,"BB",4,4)=""
^DD("IX",732,0)="601.85^AC^ADMIN NUMBER BY QUESTION NUMBER^R^^R^IR^I^601.85^^^^^S"
^DD("IX",732,1)="S ^YTT(601.85,""AC"",X(1),X(2),DA)="""""
^DD("IX",732,2)="K ^YTT(601.85,""AC"",X(1),X(2),DA)"
^DD("IX",732,2.5)="K ^YTT(601.85,""AC"")"
^DD("IX",732,11.1,0)="^.114IA^2^2"
^DD("IX",732,11.1,1,0)="1^F^601.85^1^^1^F"
^DD("IX",732,11.1,1,3)=""
^DD("IX",732,11.1,2,0)="2^F^601.85^2^^2^F"
^DD("IX",732,11.1,2,3)=""
^DD("IX",732,11.1,"AC",1,1)=""
^DD("IX",732,11.1,"AC",2,2)=""
^DD("IX",732,11.1,"B",1,1)=""
^DD("IX",732,11.1,"B",2,2)=""
^DD("IX",732,11.1,"BB",1,1)=""
^DD("IX",732,11.1,"BB",2,2)=""
^DD("IX",733,0)="601.86^AC^INSTRUMENT BY SEQUENCE^R^^R^IR^I^601.86^^^^^S"
^DD("IX",733,1)="S ^YTT(601.86,""AC"",X(1),X(2),DA)="""""
^DD("IX",733,2)="K ^YTT(601.86,""AC"",X(1),X(2),DA)"
^DD("IX",733,2.5)="K ^YTT(601.86,""AC"")"
^DD("IX",733,11.1,0)="^.114IA^2^2"
^DD("IX",733,11.1,1,0)="1^F^601.86^1^^1^F"
^DD("IX",733,11.1,1,3)=""
^DD("IX",733,11.1,2,0)="2^F^601.86^3^^2^F"
^DD("IX",733,11.1,2,3)=""
^DD("IX",733,11.1,"AC",1,1)=""
^DD("IX",733,11.1,"AC",2,2)=""
^DD("IX",733,11.1,"B",1,1)=""
^DD("IX",733,11.1,"B",2,2)=""
^DD("IX",733,11.1,"BB",1,1)=""
^DD("IX",733,11.1,"BB",2,2)=""
^DD("IX",734,0)="601.87^AC^SCALEGROUP BY SEQUENCE^R^^R^IR^I^601.87^^^^^S"
^DD("IX",734,1)="S ^YTT(601.87,""AC"",X(1),X(2),DA)="""""
^DD("IX",734,2)="K ^YTT(601.87,""AC"",X(1),X(2),DA)"
^DD("IX",734,2.5)="K ^YTT(601.87,""AC"")"
^DD("IX",734,11.1,0)="^.114IA^2^2"
^DD("IX",734,11.1,1,0)="1^F^601.87^1^^1^F"
^DD("IX",734,11.1,1,3)=""
^DD("IX",734,11.1,2,0)="2^F^601.87^2^^2^F"
^DD("IX",734,11.1,2,3)=""
^DD("IX",734,11.1,"AC",1,1)=""
^DD("IX",734,11.1,"AC",2,2)=""
^DD("IX",734,11.1,"B",1,1)=""
^DD("IX",734,11.1,"B",2,2)=""
^DD("IX",734,11.1,"BB",1,1)=""
^DD("IX",734,11.1,"BB",2,2)=""
^DD("IX",735,0)="801.41^B^B Cross-reference^R^^F^IR^I^801.41^^^^^LS"
^DD("IX",735,.1,0)="^^1^1^3001103^^"
^DD("IX",735,.1,1,0)="This is the ""B"" cross-reference redone as a new style cross reference."
^DD("IX",735,1)="S ^PXRMD(801.41,""B"",$E(X,1,63),DA)="""""
^DD("IX",735,2)="K ^PXRMD(801.41,""B"",$E(X,1,63),DA)"
^DD("IX",735,2.5)="K ^PXRMD(801.41,""B"")"
^DD("IX",735,11.1,0)="^.114IA^1^1"
^DD("IX",735,11.1,1,0)="1^F^801.41^.01^63^1^F"
^DD("IX",735,11.1,1,3)=""
^DD("IX",735,11.1,"AC",1,1)=""
^DD("IX",735,11.1,"B",1,1)=""
^DD("IX",735,11.1,"BB",1,1)=""
^DD("IX",736,0)="801.41^R^This will be used for identifying replacement elements/groups^MU^^F^IR^I^801.41^^^^^LS"
^DD("IX",736,1)="S ^PXRMD(801.41,""R"",X,DA)="""""
^DD("IX",736,2)="K ^PXRMD(801.41,""R"",X,DA)"
^DD("IX",736,2.5)="K ^PXRMD(801.41,""R"")"
^DD("IX",736,11.1,0)="^.114IA^1^1"
^DD("IX",736,11.1,1,0)="1^F^801.41^118^^1^F"
^DD("IX",736,11.1,"AC",1,1)=""
^DD("IX",736,11.1,"B",1,1)=""
^DD("IX",736,11.1,"BB",1,1)=""
^DD("IX",737,0)="810.21^B^Uniqueness Index for Key 'A' of Subfile #810.21^R^^F^IR^I^810.21^^^^^LS"
^DD("IX",737,1)="S ^PXRM(810.2,DA(1),10,""B"",X,DA)="""""
^DD("IX",737,2)="K ^PXRM(810.2,DA(1),10,""B"",X,DA)"
^DD("IX",737,2.5)="K ^PXRM(810.2,DA(1),10,""B"")"
^DD("IX",737,11.1,0)="^.114IA^1^1"
^DD("IX",737,11.1,1,0)="1^F^810.21^.01^^1"
^DD("IX",737,11.1,"AC",1,1)=""
^DD("IX",737,11.1,"B",1,1)=""
^DD("IX",737,11.1,"BB",1,1)=""
^DD("IX",738,0)="810.4^B^B Index^R^^F^IR^I^810.4^^^^^LS"
^DD("IX",738,1)="S ^PXRM(810.4,""B"",$E(X,1,96),DA)="""""
^DD("IX",738,2)="K ^PXRM(810.4,""B"",$E(X,1,96),DA)"
^DD("IX",738,2.5)="K ^PXRM(810.4,""B"")"
^DD("IX",738,11.1,0)="^.114IA^1^1"
^DD("IX",738,11.1,1,0)="1^F^810.4^.01^96^1^F"
^DD("IX",738,11.1,"AC",1,1)=""
^DD("IX",738,11.1,"B",1,1)=""
^DD("IX",738,11.1,"BB",1,1)=""
^DD("IX",739,0)="810.41^B^Uniqueness Index for Key 'A' of Subfile #810.41^R^^F^IR^I^810.41^^^^^LS"
^DD("IX",739,1)="S ^PXRM(810.4,DA(1),30,""B"",X,DA)="""""
^DD("IX",739,2)="K ^PXRM(810.4,DA(1),30,""B"",X,DA)"
^DD("IX",739,2.5)="K ^PXRM(810.4,DA(1),30,""B"")"
^DD("IX",739,11.1,0)="^.114IA^1^1"
^DD("IX",739,11.1,1,0)="1^F^810.41^.01^^1"
^DD("IX",739,11.1,"AC",1,1)=""
^DD("IX",739,11.1,"B",1,1)=""
^DD("IX",739,11.1,"BB",1,1)=""
^DD("IX",740,0)="810.5^B^B Index^R^^F^IR^I^810.5^^^^^LS"
^DD("IX",740,1)="S ^PXRMXP(810.5,""B"",$E(X,1,96),DA)="""""
^DD("IX",740,2)="K ^PXRMXP(810.5,""B"",$E(X,1,96),DA)"
^DD("IX",740,2.5)="K ^PXRMXP(810.5,""B"")"
^DD("IX",740,11.1,0)="^.114IA^1^1"
^DD("IX",740,11.1,1,0)="1^F^810.5^.01^96^1^F"
^DD("IX",740,11.1,"AC",1,1)=""
^DD("IX",740,11.1,"B",1,1)=""
^DD("IX",740,11.1,"BB",1,1)=""
^DD("IX",741,0)="810.5^D^D INDEX^R^^F^IR^I^810.5^^^^^LS"
^DD("IX",741,1)="S ^PXRMXP(810.5,""D"",X,DA)="""""
^DD("IX",741,2)="K ^PXRMXP(810.5,""D"",X,DA)"
^DD("IX",741,2.5)="K ^PXRMXP(810.5,""D"")"
^DD("IX",741,11.1,0)="^.114IA^1^1"
^DD("IX",741,11.1,1,0)="1^F^810.5^.05^^1^F"
^DD("IX",741,11.1,1,3)=""
^DD("IX",741,11.1,"AC",1,1)=""
^DD("IX",741,11.1,"B",1,1)=""
^DD("IX",741,11.1,"BB",1,1)=""
^DD("IX",742,0)="810.531^B^New-style B cross-reference^R^^F^IR^I^810.531^^^^^LS"
^DD("IX",742,1)="S ^PXRMXP(810.5,DA(2),30,DA(1),""DATA"",""B"",$E(X,1,64),DA)="""""
^DD("IX",742,2)="K ^PXRMXP(810.5,DA(2),30,DA(1),""DATA"",""B"",$E(X,1,64),DA)"
^DD("IX",742,2.5)="K ^PXRMXP(810.5,DA(2),30,DA(1),""DATA"",""B"")"
^DD("IX",742,11.1,0)="^.114IA^1^1"
^DD("IX",742,11.1,1,0)="1^F^810.531^.01^64^1^F"
^DD("IX",742,11.1,"AC",1,1)=""
^DD("IX",742,11.1,"B",1,1)=""
^DD("IX",742,11.1,"BB",1,1)=""
^DD("IX",743,0)="810.535^B^New-style B cross-reference^R^^F^IR^I^810.535^^^^^LS"
^DD("IX",743,1)="S ^PXRMXP(810.5,DA(1),35,""B"",$E(X,1,64),DA)="""""
^DD("IX",743,2)="K ^PXRMXP(810.5,DA(1),35,""B"",$E(X,1,64),DA)"
^DD("IX",743,2.5)="K ^PXRMXP(810.5,DA(1),35,""B"")"
^DD("IX",743,11.1,0)="^.114IA^1^1"
^DD("IX",743,11.1,1,0)="1^F^810.535^.01^64^1^F"
^DD("IX",743,11.1,"AC",1,1)=""
^DD("IX",743,11.1,"B",1,1)=""
^DD("IX",743,11.1,"BB",1,1)=""
^DD("IX",744,0)="810.701^B^Uniqueness Index for Key 'A' of Subfile #810.701^R^^F^IR^I^810.701^^^^^LS"
^DD("IX",744,1)="S ^PXRM(810.7,DA(1),10,""B"",X,DA)="""""
^DD("IX",744,2)="K ^PXRM(810.7,DA(1),10,""B"",X,DA)"
^DD("IX",744,2.5)="K ^PXRM(810.7,DA(1),10,""B"")"
^DD("IX",744,11.1,0)="^.114IA^1^1"
^DD("IX",744,11.1,1,0)="1^F^810.701^.01^^1"
^DD("IX",744,11.1,"AC",1,1)=""
^DD("IX",744,11.1,"B",1,1)=""
^DD("IX",744,11.1,"BB",1,1)=""
^DD("IX",745,0)="810.8^B^B Index^R^^F^IR^I^810.8^^^^^LS"
^DD("IX",745,1)="S ^PXRM(810.8,""B"",$E(X,1,64),DA)="""""
^DD("IX",745,2)="K ^PXRM(810.8,""B"",$E(X,1,64),DA)"
^DD("IX",745,2.5)="K ^PXRM(810.8,""B"")"
^DD("IX",745,11.1,0)="^.114IA^1^1"
^DD("IX",745,11.1,1,0)="1^F^810.8^.01^64^1^F"
^DD("IX",745,11.1,1,3)=""
^DD("IX",745,11.1,"AC",1,1)=""
^DD("IX",745,11.1,"B",1,1)=""
^DD("IX",745,11.1,"BB",1,1)=""
^DD("IX",746,0)="810.801^B^Uniqueness Index for Key 'A' of Subfile #810.801^R^^F^IR^I^810.801^^^^^LS"
^DD("IX",746,1)="S ^PXRM(810.8,DA(1),10,""B"",X,DA)="""""
^DD("IX",746,2)="K ^PXRM(810.8,DA(1),10,""B"",X,DA)"
^DD("IX",746,2.5)="K ^PXRM(810.8,DA(1),10,""B"")"
^DD("IX",746,11.1,0)="^.114IA^1^1"
^DD("IX",746,11.1,1,0)="1^F^810.801^.01^^1"
^DD("IX",746,11.1,"AC",1,1)=""
^DD("IX",746,11.1,"B",1,1)=""
^DD("IX",746,11.1,"BB",1,1)=""
^DD("IX",747,0)="811.5^ADEL^Set PXRMTMD=1 when the entire term is being deleted.^MU^^F^^I^811.5^^^^^A"
^DD("IX",747,.1,0)="^^3^3^3040308^"
^DD("IX",747,.1,1,0)="PXRMTMD is set to 1 when a term is being deleted. This provides a flag that"
^DD("IX",747,.1,2,0)="can be used to control various actions, such as execution of"
^DD("IX",747,.1,3,0)="cross-references, on fields in the term file."
^DD("IX",747,1)="Q"
^DD("IX",747,2)="I X2="""" S PXRMTMD=1"
^DD("IX",747,11.1,0)="^.114IA^1^1"
^DD("IX",747,11.1,1,0)="1^F^811.5^.01^^1^F"
^DD("IX",747,11.1,"AC",1,1)=""
^DD("IX",747,11.1,"B",1,1)=""
^DD("IX",747,11.1,"BB",1,1)=""
^DD("IX",748,0)="811.5^AF^Whole File Reference on Finding Items^R^^F^IR^W^811.52^^^^^S"
^DD("IX",748,.1,0)="^^1^1^3030904^"
^DD("IX",748,.1,1,0)="Finding Item,Reminder Term,Multiple Ien"
^DD("IX",748,1)="S ^PXRMD(811.5,""AF"",$E(X,1,30),DA(1),DA)="""""
^DD("IX",748,2)="K ^PXRMD(811.5,""AF"",$E(X,1,30),DA(1),DA)"
^DD("IX",748,2.5)="K ^PXRMD(811.5,""AF"")"
^DD("IX",748,11.1,0)="^.114IA^1^1"
^DD("IX",748,11.1,1,0)="1^F^811.52^.01^30^1^F"
^DD("IX",748,11.1,"AC",1,1)=""
^DD("IX",748,11.1,"B",1,1)=""
^DD("IX",748,11.1,"BB",1,1)=""
^DD("IX",749,0)="811.5^B^New style B cross-reference^R^^F^IR^I^811.5^^^^^LS"
^DD("IX",749,1)="S ^PXRMD(811.5,""B"",$E(X,1,64),DA)="""""
^DD("IX",749,2)="K ^PXRMD(811.5,""B"",$E(X,1,64),DA)"
^DD("IX",749,2.5)="K ^PXRMD(811.5,""B"")"
^DD("IX",749,11.1,0)="^.114IA^1^1"
^DD("IX",749,11.1,1,0)="1^F^811.5^.01^64^1^F"
^DD("IX",749,11.1,1,3)=""
^DD("IX",749,11.1,"AC",1,1)=""
^DD("IX",749,11.1,"B",1,1)=""
^DD("IX",749,11.1,"BB",1,1)=""
^DD("IX",750,0)="811.52^ACASE^Reset internal condition whenever case sensitive field changes.^MU^^F^IR^I^811.52^^^^^A"
^DD("IX",750,1)="D CASESEN^PXRMCOND(X,.DA,811.5)"
^DD("IX",750,2)="D CASESEN^PXRMCOND(X,.DA,811.5)"
^DD("IX",750,11.1,0)="^.114IA^1^1"
^DD("IX",750,11.1,1,0)="1^F^811.52^15^^1^F"
^DD("IX",750,11.1,1,3)=""
^DD("IX",750,11.1,"AC",1,1)=""
^DD("IX",750,11.1,"B",1,1)=""
^DD("IX",750,11.1,"BB",1,1)=""
^DD("IX",751,0)="811.52^ACOND^Store the internal condition.^MU^^F^IR^I^811.52^^^^^A"
^DD("IX",751,1)="D SICOND^PXRMCOND(.X,.DA,811.5)"
^DD("IX",751,2)="D KICOND^PXRMCOND(.X,.DA,811.5)"
^DD("IX",751,11.1,0)="^.114IA^1^1"
^DD("IX",751,11.1,1,0)="1^F^811.52^14^^1^F"
^DD("IX",751,11.1,1,3)=""
^DD("IX",751,11.1,"AC",1,1)=""
^DD("IX",751,11.1,"B",1,1)=""
^DD("IX",751,11.1,"BB",1,1)=""
^DD("IX",752,0)="811.52^ADATE^Give a warning if the ending date is before the beginning date.^MU^^R^IR^I^811.52^^^^^A"
^DD("IX",752,1)="D COMPARE^PXRMDATE(.X)"
^DD("IX",752,2)="Q"
^DD("IX",752,11.1,0)="^.114IA^2^2"
^DD("IX",752,11.1,1,0)="1^F^811.52^9^^^F"
^DD("IX",752,11.1,2,0)="2^F^811.52^12^^^F"
^DD("IX",752,11.1,"B",1,1)=""
^DD("IX",752,11.1,"B",2,2)=""
^DD("IX",752,11.1,"BB",1,1)=""
^DD("IX",752,11.1,"BB",2,2)=""
^DD("IX",753,0)="811.52^AWARN^Warn the user to review the status list if Rx Type Field is changed.^MU^^F^^I^811.52^^^^^A"
^DD("IX",753,1)="D WARN^PXRMSTA1"
^DD("IX",753,1.4)="S X=$S(X2'="""":1,1:0)"
^DD("IX",753,2)="D WARN^PXRMSTA1"
^DD("IX",753,2.4)="S X=$S(X2="""":1,1:0)"
^DD("IX",753,11.1,0)="^.114IA^1^1"
^DD("IX",753,11.1,1,0)="1^F^811.52^16^^1^F"
^DD("IX",753,11.1,"AC",1,1)=""
^DD("IX",753,11.1,"B",1,1)=""
^DD("IX",753,11.1,"BB",1,1)=""
^DD("IX",754,0)="811.8^B^Uniqueness Index for Key 'A' of File #811.8^R^^R^IR^I^811.8^^^^^LS"
^DD("IX",754,1)="S ^PXD(811.8,""B"",X(1),X(2),DA)="""""
^DD("IX",754,2)="K ^PXD(811.8,""B"",X(1),X(2),DA)"
^DD("IX",754,2.5)="K ^PXD(811.8,""B"")"
^DD("IX",754,11.1,0)="^.114IA^2^2"
^DD("IX",754,11.1,1,0)="1^F^811.8^.01^^1"
^DD("IX",754,11.1,2,0)="2^F^811.8^.03^^2"
^DD("IX",754,11.1,"AC",1,1)=""
^DD("IX",754,11.1,"AC",2,2)=""
^DD("IX",754,11.1,"B",1,1)=""
^DD("IX",754,11.1,"B",2,2)=""
^DD("IX",754,11.1,"BB",1,1)=""
^DD("IX",754,11.1,"BB",2,2)=""
^DD("IX",755,0)="811.8^D^Cross-reference on date and time^R^^F^IR^I^811.8^^^^^LS"
^DD("IX",755,1)="S ^PXD(811.8,""D"",X,DA)="""""
^DD("IX",755,2)="K ^PXD(811.8,""D"",X,DA)"
^DD("IX",755,2.5)="K ^PXD(811.8,""D"")"
^DD("IX",755,11.1,0)="^.114IA^1^1"
^DD("IX",755,11.1,1,0)="1^F^811.8^.03^^1^F"
^DD("IX",755,11.1,1,3)=""
^DD("IX",755,11.1,"AC",1,1)=""
^DD("IX",755,11.1,"B",1,1)=""
^DD("IX",755,11.1,"BB",1,1)=""
^DD("IX",756,0)="811.803^B^New style B cross-reference^R^^F^IR^I^811.803^^^^^LS"
^DD("IX",756,1)="S ^PXD(811.8,DA(1),130,""B"",X,DA)="""""
^DD("IX",756,2)="K ^PXD(811.8,DA(1),130,""B"",X,DA)"
^DD("IX",756,2.5)="K ^PXD(811.8,DA(1),130,""B"")"
^DD("IX",756,11.1,0)="^.114IA^1^1"
^DD("IX",756,11.1,1,0)="1^F^811.803^.01^^1^F"
^DD("IX",756,11.1,"AC",1,1)=""
^DD("IX",756,11.1,"B",1,1)=""
^DD("IX",756,11.1,"BB",1,1)=""
^DD("IX",757,0)="811.9^ACD^Expand the Custom Date Due Field^MU^^F^IR^I^811.9^^^^^A"
^DD("IX",757,1)="D CDBUILD^PXRMCDUE(X,.DA)"
^DD("IX",757,2)="D CDKILL^PXRMCDUE(X,.DA)"
^DD("IX",757,11.1,0)="^.114IA^1^1"
^DD("IX",757,11.1,1,0)="1^F^811.9^45^^1^F"
^DD("IX",757,11.1,1,3)=""
^DD("IX",757,11.1,"AC",1,1)=""
^DD("IX",757,11.1,"B",1,1)=""
^DD("IX",757,11.1,"BB",1,1)=""
^DD("IX",758,0)="811.9^ADEL^Set PXRMDEFD=1 when the entire definition is being deleted.^MU^^F^IR^I^811.9^^^^^A"
^DD("IX",758,.1,0)="^^3^3^3040308^"
^DD("IX",758,.1,1,0)="PXRMDEFD is set to 1 when the entire definition is being deleted. This"
^DD("IX",758,.1,2,0)="provides a flag that can be used to control various actions, such as"
^DD("IX",758,.1,3,0)="execution of cross-references, on fields in the definition file."
^DD("IX",758,1)="Q"
^DD("IX",758,2)="I X2="""" S PXRMDEFD=1"
^DD("IX",758,11.1,0)="^.114IA^1^1"
^DD("IX",758,11.1,1,0)="1^F^811.9^.01^^1^F"
^DD("IX",758,11.1,1,3)=""
^DD("IX",758,11.1,"AC",1,1)=""
^DD("IX",758,11.1,"B",1,1)=""
^DD("IX",758,11.1,"BB",1,1)=""
^DD("IX",759,0)="811.9^AE^Build the internal patient cohort logic^MU^^F^I^I^811.9^^^^^A"
^DD("IX",759,.1,0)="^^1^1^3000110^"
^DD("IX",759,.1,1,0)="This cross-reference builds the internal patient cohort logic."
^DD("IX",759,1)="D CPPCLS^PXRMLOGX(DA,X),BLDINFL^PXRMLOGX(DA,"""","""")"
^DD("IX",759,1.4)="S X=1 I X2="""" S X=0"
^DD("IX",759,2)="D BLDPCLS^PXRMLOGX(DA,"""",""""),BLDINFL^PXRMLOGX(DA,"""","""")"
^DD("IX",759,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",759,11.1,0)="^.114IA^1^1"
^DD("IX",759,11.1,1,0)="1^F^811.9^30^^^F"
^DD("IX",759,11.1,"B",1,1)=""
^DD("IX",759,11.1,"BB",1,1)=""
^DD("IX",760,0)="811.9^AF^Cross-reference for building internal resolution logic^MU^^F^I^I^811.9^^^^^A"
^DD("IX",760,.1,0)="^^1^1^3000110^"
^DD("IX",760,.1,1,0)="This cross-reference builds the internal resolution logic."
^DD("IX",760,1)="D CPRESLS^PXRMLOGX(DA,X),BLDINFL^PXRMLOGX(DA,"""","""")"
^DD("IX",760,1.4)="S X=1 I X2="""" S X=0"
^DD("IX",760,2)="D BLDRESLS^PXRMLOGX(DA),BLDINFL^PXRMLOGX(DA,"""","""")"
^DD("IX",760,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",760,11.1,0)="^.114IA^1^1"
^DD("IX",760,11.1,1,0)="1^F^811.9^34^^^F"
^DD("IX",760,11.1,"B",1,1)=""
^DD("IX",760,11.1,"BB",1,1)=""
^DD("IX",761,0)="811.9^AP^Will set a rem. to the ""P"" x-ref if the usage field contains a ""P""^MU^^F^IR^I^811.9^^^^^S"
^DD("IX",761,.1,0)="^^2^2^3040303^"
^DD("IX",761,.1,1,0)="This cross-reference will set a reminder to the ""P"" cross-reference if the "
^DD("IX",761,.1,2,0)="reminders contains a ""P"" in the usage field."
^DD("IX",761,1)="S ^PXD(811.9,""P"",DA)="""""
^DD("IX",761,1.4)="S X=$S(X[""P"":1,1:0)"
^DD("IX",761,2)="K ^PXD(811.9,""P"",DA)"
^DD("IX",761,2.4)=""
^DD("IX",761,2.5)="K ^PXD(811.9,""P"")"
^DD("IX",761,11.1,0)="^.114IA^1^1"
^DD("IX",761,11.1,1,0)="1^F^811.9^103^30^1^F"
^DD("IX",761,11.1,"AC",1,1)=""
^DD("IX",761,11.1,"B",1,1)=""
^DD("IX",761,11.1,"BB",1,1)=""
^DD("IX",762,0)="811.9^B^B cross-reference^R^^F^IR^I^811.9^^^^^LS"
^DD("IX",762,.1,0)="^^1^1^3000222^"
^DD("IX",762,.1,1,0)="This is the ""B"" cross-reference redone as a new style cross-reference."
^DD("IX",762,1)="S ^PXD(811.9,""B"",$E(X,1,64),DA)="""""
^DD("IX",762,2)="K ^PXD(811.9,""B"",$E(X,1,64),DA)"
^DD("IX",762,2.5)="K ^PXD(811.9,""B"")"
^DD("IX",762,11.1,0)="^.114IA^1^1"
^DD("IX",762,11.1,1,0)="1^F^811.9^.01^64^1^F"
^DD("IX",762,11.1,"AC",1,1)=""
^DD("IX",762,11.1,"B",1,1)=""
^DD("IX",762,11.1,"BB",1,1)=""
^DD("IX",763,0)="811.9^D^Look up by Print Name^R^^F^IR^I^811.9^^^^^LS"
^DD("IX",763,.1,0)="^^1^1^3000216^"
^DD("IX",763,.1,1,0)="This cross-reference is used for look-up by the reminder's Print Name."
^DD("IX",763,1)="S ^PXD(811.9,""D"",$E(X,1,35),DA)="""""
^DD("IX",763,2)="K ^PXD(811.9,""D"",$E(X,1,35),DA)"
^DD("IX",763,2.5)="K ^PXD(811.9,""D"")"
^DD("IX",763,11.1,0)="^.114IA^1^1"
^DD("IX",763,11.1,1,0)="1^F^811.9^1.2^35^1^F"
^DD("IX",763,11.1,"AC",1,1)=""
^DD("IX",763,11.1,"B",1,1)=""
^DD("IX",763,11.1,"BB",1,1)=""
^DD("IX",764,0)="811.9002^B^New style B cross-reference^R^^F^IR^I^811.9002^^^^^LS"
^DD("IX",764,1)="S ^PXD(811.9,DA(1),50,""B"",$E(X,1,128),DA)="""""
^DD("IX",764,2)="K ^PXD(811.9,DA(1),50,""B"",$E(X,1,128),DA)"
^DD("IX",764,2.5)="K ^PXD(811.9,DA(1),50,""B"")"
^DD("IX",764,11.1,0)="^.114IA^1^1"
^DD("IX",764,11.1,1,0)="1^F^811.9002^.01^128^1^F"
^DD("IX",764,11.1,1,3)=""
^DD("IX",764,11.1,"AC",1,1)=""
^DD("IX",764,11.1,"B",1,1)=""
^DD("IX",764,11.1,"BB",1,1)=""
^DD("IX",765,0)="811.902^ACASE^Reset internal condition whenever case sensitive field changes.^MU^^F^IR^I^811.902^^^^^A"
^DD("IX",765,1)="D CASESEN^PXRMCOND(X,.DA,811.9)"
^DD("IX",765,2)="D CASESEN^PXRMCOND(X,.DA,811.9)"
^DD("IX",765,11.1,0)="^.114IA^1^1"
^DD("IX",765,11.1,1,0)="1^F^811.902^15^^1^F"
^DD("IX",765,11.1,"AC",1,1)=""
^DD("IX",765,11.1,"B",1,1)=""
^DD("IX",765,11.1,"BB",1,1)=""
^DD("IX",766,0)="811.902^ACOND^Build the internal condition structure^MU^^F^IR^I^811.902^^^^^A"
^DD("IX",766,1)="D SICOND^PXRMCOND(.X,.DA,811.9)"
^DD("IX",766,2)="D KICOND^PXRMCOND(.X,.DA,811.9)"
^DD("IX",766,11.1,0)="^.114IA^1^1"
^DD("IX",766,11.1,1,0)="1^F^811.902^14^30^1^F"
^DD("IX",766,11.1,"AC",1,1)=""
^DD("IX",766,11.1,"B",1,1)=""
^DD("IX",766,11.1,"BB",1,1)=""
^DD("IX",767,0)="811.902^ADATE^Give a warning if the ending date is before the beginning date^MU^^R^IR^I^811.902^^^^^A"
^DD("IX",767,1)="D COMPARE^PXRMDATE(.X)"
^DD("IX",767,2)="Q"
^DD("IX",767,11.1,0)="^.114IA^2^2"
^DD("IX",767,11.1,1,0)="1^F^811.902^9^^^F"
^DD("IX",767,11.1,2,0)="2^F^811.902^12^^^F"
^DD("IX",767,11.1,"B",1,1)=""
^DD("IX",767,11.1,"B",2,2)=""
^DD("IX",767,11.1,"BB",1,1)=""
^DD("IX",767,11.1,"BB",2,2)=""
^DD("IX",768,0)="811.902^AE^Build all logic strings^MU^^R^IR^I^811.902^^^^^A"
^DD("IX",768,1)="D BLDALL^PXRMLOGX(DA(1),"""",20)"
^DD("IX",768,2)="D BLDALL^PXRMLOGX(DA(1),DA,20)"
^DD("IX",768,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",768,11.1,0)="^.114IA^1^1"
^DD("IX",768,11.1,1,0)="1^F^811.902^.01^^1^F"
^DD("IX",768,11.1,"AC",1,1)=""
^DD("IX",768,11.1,"B",1,1)=""
^DD("IX",768,11.1,"BB",1,1)=""
^DD("IX",769,0)="811.902^AENODE^Set the ENODE.^MU^^F^IR^I^811.902^^^^^A"
^DD("IX",769,.1,0)="^^16^16^3060615^"
^DD("IX",769,.1,1,0)="This cross-reference is used to group findings by type. The index it"
^DD("IX",769,.1,2,0)="creates has the form:"
^DD("IX",769,.1,3,0)=" ^PXD(811.9,DA(1),20,""E"",GLOBAL,IEN,DA)"
^DD("IX",769,.1,4,0)=" where "
^DD("IX",769,.1,5,0)="  DA(1) is the internal entry number in file # 811.9."
^DD("IX",769,.1,6,0)="  GLOBAL is the global name of the global that defines the finding."
^DD("IX",769,.1,7,0)="   For example, the global name for file #811.9 is ^PXD(811.9,."
^DD("IX",769,.1,8,0)="  IEN is the internal entry number of the finding in GLOBAL."
^DD("IX",769,.1,9,0)="  DA is the finding number."
^DD("IX",769,.1,10,0)=""
^DD("IX",769,.1,11,0)="Some examples:"
^DD("IX",769,.1,12,0)=" ^PXD(811.9,661,20,""E"",""PSDRUG("",6344,2)="
^DD("IX",769,.1,13,0)=" ^PXD(811.9,662,20,""E"",""AUTTEDT("",363,3)="
^DD("IX",769,.1,14,0)=" ^PXD(811.9,669,20,""E"",""PXRMD(811.5,"",660014,5)="
^DD("IX",769,.1,15,0)=""
^DD("IX",769,.1,16,0)=""
^DD("IX",769,1)="D SENODE^PXRMENOD(.X,.DA,811.9)"
^DD("IX",769,2)="D KENODE^PXRMENOD(.X,.DA,811.9)"
^DD("IX",769,11.1,0)="^.114IA^1^1"
^DD("IX",769,11.1,1,0)="1^F^811.902^.01^^1^F"
^DD("IX",769,11.1,1,3)=""
^DD("IX",769,11.1,"AC",1,1)=""
^DD("IX",769,11.1,"B",1,1)=""
^DD("IX",769,11.1,"BB",1,1)=""
^DD("IX",770,0)="811.902^AF^Check for rebuild of age findings list^MU^^R^I^I^811.902^^^^^A"
^DD("IX",770,.1,0)="^^2^2^2990924^"
^DD("IX",770,.1,1,0)="When MINIMUM AGE, MAXIMUM AGE, or REMINDER FREQUENCY are changed then"
^DD("IX",770,.1,2,0)="rebuild the age findings list."
^DD("IX",770,1)="D BLDAFL^PXRMLOGX(DA(1),"""",20)"
^DD("IX",770,1.4)="S X=1 I $$DELNXR^PXRMLOGX(.X2) S X=0"
^DD("IX",770,2)="D BLDAFL^PXRMLOGX(DA(1),DA,20)"
^DD("IX",770,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",770,11.1,0)="^.114IA^4^3"
^DD("IX",770,11.1,2,0)="1^F^811.902^1^^^F"
^DD("IX",770,11.1,3,0)="2^F^811.902^2^^^F"
^DD("IX",770,11.1,4,0)="3^F^811.902^3^^^F"
^DD("IX",770,11.1,"B",1,2)=""
^DD("IX",770,11.1,"B",2,3)=""
^DD("IX",770,11.1,"B",3,4)=""
^DD("IX",770,11.1,"BB",1,2)=""
^DD("IX",770,11.1,"BB",2,3)=""
^DD("IX",770,11.1,"BB",3,4)=""
^DD("IX",771,0)="811.902^AG^Check for rebuild of resolution findings list^MU^^R^I^I^811.902^^^^^A"
^DD("IX",771,.1,0)="^^2^2^2990924^"
^DD("IX",771,.1,1,0)="When USE IN RESOLUTION LOGIC is changed then rebuild the resolution"
^DD("IX",771,.1,2,0)="findings list."
^DD("IX",771,1)="D BLDRESLS^PXRMLOGX(DA(1),"""",20)"
^DD("IX",771,1.4)="S X=1 I X2="""" S X=0"
^DD("IX",771,2)="D BLDRESLS^PXRMLOGX(DA(1),DA,20)"
^DD("IX",771,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",771,11.1,0)="^.114IA^3^1"
^DD("IX",771,11.1,3,0)="1^F^811.902^7^^^F"
^DD("IX",771,11.1,"B",1,3)=""
^DD("IX",771,11.1,"BB",1,3)=""
^DD("IX",772,0)="811.902^AH^Check for rebuild of patient cohort findings list^MU^^R^I^I^811.902^^^^^A"
^DD("IX",772,.1,0)="^^2^2^2990924^"
^DD("IX",772,.1,1,0)="Whenever USE IN PATIENT COHORT LOGIC is changed rebuild the patient cohort"
^DD("IX",772,.1,2,0)="logic list."
^DD("IX",772,1)="D BLDPCLS^PXRMLOGX(DA(1),"""",20)"
^DD("IX",772,1.4)="S X=1 I X2="""" S X=0"
^DD("IX",772,2)="D BLDPCLS^PXRMLOGX(DA(1),DA,20)"
^DD("IX",772,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",772,11.1,0)="^.114IA^2^1"
^DD("IX",772,11.1,2,0)="1^F^811.902^8^^^F"
^DD("IX",772,11.1,"B",1,2)=""
^DD("IX",772,11.1,"BB",1,2)=""
^DD("IX",773,0)="811.902^AI^Check for rebuild of information findings list^MU^^R^I^I^811.902^^^^^A"
^DD("IX",773,.1,0)="^^4^4^3021224^^"
^DD("IX",773,.1,1,0)="Whenever any of the following fields change rebuild the information"
^DD("IX",773,.1,2,0)="findings list: MINIMUM AGE, MAXIMUM AGE, REMINDER FREQUENCY, USE IN"
^DD("IX",773,.1,3,0)="RESOLUTION LOGIC, USE IN PATIENT COHORT LOGIC."
^DD("IX",773,.1,4,0)=""
^DD("IX",773,1)="D BLDINFL^PXRMLOGX(DA(1),"""",20)"
^DD("IX",773,1.4)="S X=1 I $$DELNXR^PXRMLOGX(.X2) S X=0"
^DD("IX",773,2)="D BLDINFL^PXRMLOGX(DA(1),DA,20)"
^DD("IX",773,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",773,11.1,0)="^.114IA^7^5"
^DD("IX",773,11.1,2,0)="1^F^811.902^1^^^F"
^DD("IX",773,11.1,4,0)="2^F^811.902^2^^^F"
^DD("IX",773,11.1,5,0)="3^F^811.902^3^^^F"
^DD("IX",773,11.1,6,0)="4^F^811.902^7^^^F"
^DD("IX",773,11.1,7,0)="5^F^811.902^8^^^F"
^DD("IX",773,11.1,"B",1,2)=""
^DD("IX",773,11.1,"B",2,4)=""
^DD("IX",773,11.1,"B",3,5)=""
^DD("IX",773,11.1,"B",4,6)=""
^DD("IX",773,11.1,"B",5,7)=""
^DD("IX",773,11.1,"BB",1,2)=""
^DD("IX",773,11.1,"BB",2,4)=""
^DD("IX",773,11.1,"BB",3,5)=""
^DD("IX",773,11.1,"BB",4,6)=""
^DD("IX",773,11.1,"BB",5,7)=""
^DD("IX",774,0)="811.902^AWARNSL^Warn the user to review the status list if RXTYPE field is changed.^MU^^F^IR^I^811.902^^^^^A"
^DD("IX",774,1)="D WARN^PXRMSTA1"
^DD("IX",774,1.4)="S X=$S(X2'="""":1,1:0)"
^DD("IX",774,2)="D WARN^PXRMSTA1"
^DD("IX",774,2.4)="S X=$S(X2="""":1,1:0)"
^DD("IX",774,11.1,0)="^.114IA^1^1"
^DD("IX",774,11.1,1,0)="1^F^811.902^16^^1^F"
^DD("IX",774,11.1,"AC",1,1)=""
^DD("IX",774,11.1,"B",1,1)=""
^DD("IX",774,11.1,"BB",1,1)=""
^DD("IX",775,0)="811.925^AB^Build the function finding data structure.^MU^^F^IR^I^811.925^^^^^A"
^DD("IX",775,1)="D FFBUILD^PXRMFFDB(X,.DA)"
^DD("IX",775,2)="D FFKILL^PXRMFFDB(X,.DA)"
^DD("IX",775,11.1,0)="^.114IA^1^1"
^DD("IX",775,11.1,1,0)="1^F^811.925^3^^1^F"
^DD("IX",775,11.1,"AC",1,1)=""
^DD("IX",775,11.1,"B",1,1)=""
^DD("IX",775,11.1,"BB",1,1)=""
^DD("IX",776,0)="811.925^AE^Build all logic strings.^MU^^F^IR^I^811.925^^^^^A"
^DD("IX",776,1)="D BLDALL^PXRMLOGX(DA(1),"""",25)"
^DD("IX",776,2)="D BLDALL^PXRMLOGX(DA(1),DA,25)"
^DD("IX",776,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",776,11.1,0)="^.114IA^1^1"
^DD("IX",776,11.1,1,0)="1^F^811.925^.01^^1^F"
^DD("IX",776,11.1,"AC",1,1)=""
^DD("IX",776,11.1,"B",1,1)=""
^DD("IX",776,11.1,"BB",1,1)=""
^DD("IX",777,0)="811.925^AF^Check for rebuild of age findings list^MU^^R^IR^I^811.925^^^^^A"
^DD("IX",777,1)="D BLDAFL^PXRMLOGX(DA(1),"""",25)"
^DD("IX",777,1.4)="S X=1 I $$DELNXR^PXRMLOGX(.X2) S X=0"
^DD("IX",777,2)="D BLDAFL^PXRMLOGX(DA(1),DA,25)"
^DD("IX",777,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",777,11.1,0)="^.114IA^3^3"
^DD("IX",777,11.1,1,0)="1^F^811.925^13^^1^F"
^DD("IX",777,11.1,2,0)="2^F^811.925^14^^2^F"
^DD("IX",777,11.1,3,0)="3^F^811.925^15^^3^F"
^DD("IX",777,11.1,"AC",1,1)=""
^DD("IX",777,11.1,"AC",2,2)=""
^DD("IX",777,11.1,"AC",3,3)=""
^DD("IX",777,11.1,"B",1,1)=""
^DD("IX",777,11.1,"B",2,2)=""
^DD("IX",777,11.1,"B",3,3)=""
^DD("IX",777,11.1,"BB",1,1)=""
^DD("IX",777,11.1,"BB",2,2)=""
^DD("IX",777,11.1,"BB",3,3)=""
^DD("IX",778,0)="811.925^AG^Check for rebuild of resolution findings list^MU^^F^IR^I^811.925^^^^^A"
^DD("IX",778,1)="D BLDRESLS^PXRMLOGX(DA(1),"""",25)"
^DD("IX",778,1.4)="S X=1 I X2="""" S X=0"
^DD("IX",778,2)="D BLDRESLS^PXRMLOGX(DA(1),DA,25)"
^DD("IX",778,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",778,11.1,0)="^.114IA^1^1"
^DD("IX",778,11.1,1,0)="1^F^811.925^11^^1^F"
^DD("IX",778,11.1,"AC",1,1)=""
^DD("IX",778,11.1,"B",1,1)=""
^DD("IX",778,11.1,"BB",1,1)=""
^DD("IX",779,0)="811.925^AH^Check for rebuilds of patient cohort findings list^MU^^F^IR^I^811.925^^^^^A"
^DD("IX",779,.1,0)="^^2^2^3021223^"
^DD("IX",779,.1,1,0)="Whenever USE IN PATIENT COHORT LOGIC is changed rebuild the patient"
^DD("IX",779,.1,2,0)="cohort logic list."
^DD("IX",779,1)="D BLDPCLS^PXRMLOGX(DA(1),"""",25)"
^DD("IX",779,1.4)="S X=1 I X2="""" S X=0"
^DD("IX",779,2)="D BLDPCLS^PXRMLOGX(DA(1),DA,25)"
^DD("IX",779,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",779,2.5)=""
^DD("IX",779,11.1,0)="^.114IA^1^1"
^DD("IX",779,11.1,1,0)="1^F^811.925^12^^1^F"
^DD("IX",779,11.1,"AC",1,1)=""
^DD("IX",779,11.1,"B",1,1)=""
^DD("IX",779,11.1,"BB",1,1)=""
^DD("IX",780,0)="811.925^AI^Check for rebuild of information findings list.^MU^^R^IR^I^811.925^^^^^A"
^DD("IX",780,.1,0)="^^3^3^3021224^"
^DD("IX",780,.1,1,0)="Whenever any of the following fields change rebuild the information"
^DD("IX",780,.1,2,0)="findings list: MINIMUM AGE, MAXIMUM AGE, REMINDER FREQUENCY, USE IN"
^DD("IX",780,.1,3,0)="RESOLUTION LOGIC, USE IN PATIENT COHORT LOGIC."
^DD("IX",780,1)="D BLDINFL^PXRMLOGX(DA(1),"""",25)"
^DD("IX",780,1.4)="S X=1 I $$DELNXR^PXRMLOGX(.X2) S X=0"
^DD("IX",780,2)="D BLDINFL^PXRMLOGX(DA(1),DA,25)"
^DD("IX",780,2.4)="S X=1 I $$EDITNXR^PXRMLOGX(.X1,.X2) S X=0"
^DD("IX",780,11.1,0)="^.114IA^5^5"
^DD("IX",780,11.1,1,0)="1^F^811.925^13^^^F"
^DD("IX",780,11.1,2,0)="2^F^811.925^14^^^F"
^DD("IX",780,11.1,3,0)="3^F^811.925^15^^^F"
^DD("IX",780,11.1,4,0)="4^F^811.925^11^^^F"
^DD("IX",780,11.1,5,0)="5^F^811.925^12^^^F"
^DD("IX",780,11.1,"B",1,1)=""
^DD("IX",780,11.1,"B",2,2)=""
^DD("IX",780,11.1,"B",3,3)=""
^DD("IX",780,11.1,"B",4,4)=""
^DD("IX",780,11.1,"B",5,5)=""
^DD("IX",780,11.1,"BB",1,1)=""
^DD("IX",780,11.1,"BB",2,2)=""
^DD("IX",780,11.1,"BB",3,3)=""
^DD("IX",780,11.1,"BB",4,4)=""
^DD("IX",780,11.1,"BB",5,5)=""
^DD("IX",781,0)="772^C^This is a regular index of new-style cross-reference on the Message ID field^R^^F^IR^I^772^^^^^LS"
^DD("IX",781,.1,0)="^^2^2^3070731^"
^DD("IX",781,.1,1,0)="This cross reference allows a user to look up an HL7 message by its "
^DD("IX",781,.1,2,0)="unique message ID."
^DD("IX",781,1)="S ^HL(772,""C"",$E(X,1,60),DA)="""""
^DD("IX",781,2)="K ^HL(772,""C"",$E(X,1,60),DA)"
^DD("IX",781,2.5)="K ^HL(772,""C"")"
^DD("IX",781,11.1,0)="^.114IA^1^1"
^DD("IX",781,11.1,1,0)="1^F^772^6^60^1^F"
^DD("IX",781,11.1,1,3)=""
^DD("IX",781,11.1,"AC",1,1)=""
^DD("IX",781,11.1,"B",1,1)=""
^DD("IX",781,11.1,"BB",1,1)=""
^DD("IX",782,0)="773^C^This is a regular index of new-style cross-reference on the Message ID field^R^^F^IR^I^773^^^^^LS"
^DD("IX",782,.1,0)="^^2^2^3070731^"
^DD("IX",782,.1,1,0)="This cross reference allows a user to look up an HL7 message by its "
^DD("IX",782,.1,2,0)="unique message ID."
^DD("IX",782,1)="S ^HLMA(""C"",$E(X,1,60),DA)="""""
^DD("IX",782,2)="K ^HLMA(""C"",$E(X,1,60),DA)"
^DD("IX",782,2.5)="K ^HLMA(""C"")"
^DD("IX",782,11.1,0)="^.114IA^1^1"
^DD("IX",782,11.1,1,0)="1^F^773^2^60^1^F"
^DD("IX",782,11.1,"AC",1,1)=""
^DD("IX",782,11.1,"B",1,1)=""
^DD("IX",782,11.1,"BB",1,1)=""
^DD("IX",783,0)="6914^ACMR^Terminate IT assignments when appropriate.^MU^^F^^I^6914^^^^^A"
^DD("IX",783,.1,0)="^^4^4^3080204^"
^DD("IX",783,.1,1,0)="Automatically terminate active IT assignments of responsibility when the"
^DD("IX",783,.1,2,0)="equipment CMR is deleted or changed to one that does not have IT TRACKING"
^DD("IX",783,.1,3,0)="= YES.  A message is sent to mail group G.EN IT EQUIPMENT if any"
^DD("IX",783,.1,4,0)="assignments are terminated."
^DD("IX",783,1)="Q"
^DD("IX",783,2)="D CMRUPD^ENTIDD(DA,X1(1),X2(1))"
^DD("IX",783,2.4)="S X=$S(X2(1)'=X1(1):1,1:0)"
^DD("IX",783,11.1,0)="^.114IA^1^1"
^DD("IX",783,11.1,1,0)="1^F^6914^19^^^F"
^DD("IX",783,11.1,"B",1,1)=""
^DD("IX",783,11.1,"BB",1,1)=""
^DD("IX",784,0)="6914^ALNSP^Deletes the NON-SPACE FILE LOCATION field.^MU^^F^^I^6914^^^^^A"
^DD("IX",784,.1,0)="^^2^2^3080204^"
^DD("IX",784,.1,1,0)="This cross-reference deletes the NON-SPACE FILE LOCATION value whenever a"
^DD("IX",784,.1,2,0)="new LOCATION value is entered."
^DD("IX",784,1)="D DELNSP^ENTINSD(DA)"
^DD("IX",784,1.4)="S X=$S((X2(1)'=X1(1))&(X2(1)'=""""):1,1:0)"
^DD("IX",784,2)="Q"
^DD("IX",784,11.1,0)="^.114IA^1^1"
^DD("IX",784,11.1,1,0)="1^F^6914^24^^1^F"
^DD("IX",784,11.1,"AC",1,1)=""
^DD("IX",784,11.1,"B",1,1)=""
^DD("IX",784,11.1,"BB",1,1)=""
^DD("IX",785,0)="6914^ANSPB^Send a bulletin^MU^^R^^I^6914^^^^^A"
^DD("IX",785,.1,0)="^^2^2^3080204^"
^DD("IX",785,.1,1,0)="This x-ref sends a bulletin when a new value is entered in the NON-SPACE"
^DD("IX",785,.1,2,0)="FILE LOCATION field."
^DD("IX",785,1)="D BUL^ENTINSD(DA)"
^DD("IX",785,1.4)="S X=$S(X2(1)'=X1(1):1,1:0)"
^DD("IX",785,2)="Q"
^DD("IX",785,11.1,0)="^.114IA^1^1"
^DD("IX",785,11.1,1,0)="1^F^6914^90^^1^F"
^DD("IX",785,11.1,"AC",1,1)=""
^DD("IX",785,11.1,"B",1,1)=""
^DD("IX",785,11.1,"BB",1,1)=""
^DD("IX",786,0)="6914^ANSPT^NON-SPACE FILE LOCATION field triggers^MU^^F^^I^6914^^^^^A"
^DD("IX",786,.1,0)="^^3^3^3080204^"
^DD("IX",786,.1,1,0)="This cross-reference triggers the NON-SPACE FILE PERSON and NON-SPACE "
^DD("IX",786,.1,2,0)="FILE DATE/TIME fields when the value of the NON-SPACE FILE LOCATION "
^DD("IX",786,.1,3,0)="changes."
^DD("IX",786,1)="D NSPT^ENTINSD(DA,""S"")"
^DD("IX",786,1.4)="S X=$S(X2(1)'=X1(1):1,1:0)"
^DD("IX",786,2)="D NSPT^ENTINSD(DA,""K"")"
^DD("IX",786,2.4)="S X=$S(X2(1)'=X1(1):1,1:0)"
^DD("IX",786,11.1,0)="^.114IA^1^1"
^DD("IX",786,11.1,1,0)="1^F^6914^90^^1^F"
^DD("IX",786,11.1,"AC",1,1)=""
^DD("IX",786,11.1,"B",1,1)=""
^DD("IX",786,11.1,"BB",1,1)=""
^DD("IX",787,0)="6914.1^AIT^Index of CMRs with IT TRACKING set to YES.^R^^F^IR^I^6914.1^^^^^S"
^DD("IX",787,1)="S ^ENG(6914.1,""AIT"",X,DA)="""""
^DD("IX",787,1.4)="I X=1"
^DD("IX",787,2)="K ^ENG(6914.1,""AIT"",X,DA)"
^DD("IX",787,2.5)="K ^ENG(6914.1,""AIT"")"
^DD("IX",787,11.1,0)="^.114IA^1^1"
^DD("IX",787,11.1,1,0)="1^F^6914.1^6^^1^F"
^DD("IX",787,11.1,1,3)=""
^DD("IX",787,11.1,"AC",1,1)=""
^DD("IX",787,11.1,"B",1,1)=""
^DD("IX",787,11.1,"BB",1,1)=""
^DD("IX",788,0)="6916.3^AEA^Equipment with active assignment.^R^^R^IR^I^6916.3^^^^^S"
^DD("IX",788,.1,0)="^^3^3^3071114^"
^DD("IX",788,.1,1,0)="Cross-reference by equipment of active assignments.  An assignment is "
^DD("IX",788,.1,2,0)="considered active if it does not have a value in the ENDED DATE/TIME "
^DD("IX",788,.1,3,0)="field."
^DD("IX",788,1)="S ^ENG(6916.3,""AEA"",X(1),DA)="""""
^DD("IX",788,1.4)="S X=$S(X(2)="""":1,1:0)"
^DD("IX",788,2)="K ^ENG(6916.3,""AEA"",X(1),DA)"
^DD("IX",788,2.4)=""
^DD("IX",788,2.5)="K ^ENG(6916.3,""AEA"")"
^DD("IX",788,11.1,0)="^.114IA^2^2"
^DD("IX",788,11.1,1,0)="1^F^6916.3^.01^^1^F"
^DD("IX",788,11.1,2,0)="2^F^6916.3^7^^^F"
^DD("IX",788,11.1,"AC",1,1)=""
^DD("IX",788,11.1,"B",1,1)=""
^DD("IX",788,11.1,"B",2,2)=""
^DD("IX",788,11.1,"BB",1,1)=""
^DD("IX",788,11.1,"BB",2,2)=""
^DD("IX",789,0)="6916.3^AOA^Owner's IT equipment with active assignment.^R^^R^IR^I^6916.3^^^^^S"
^DD("IX",789,.1,0)="^^3^3^3071120^"
^DD("IX",789,.1,1,0)="Cross-reference by owner and equipment of active assignments.  An"
^DD("IX",789,.1,2,0)="assignment is considered active if it does not have a value in the ENDED"
^DD("IX",789,.1,3,0)="DATE/TIME field."
^DD("IX",789,1)="S ^ENG(6916.3,""AOA"",X(1),X(2),DA)="""""
^DD("IX",789,1.4)="S X=$S(X(3)="""":1,1:0)"
^DD("IX",789,2)="K ^ENG(6916.3,""AOA"",X(1),X(2),DA)"
^DD("IX",789,2.5)="K ^ENG(6916.3,""AOA"")"
^DD("IX",789,11.1,0)="^.114IA^3^3"
^DD("IX",789,11.1,1,0)="1^F^6916.3^1^^1^F"
^DD("IX",789,11.1,2,0)="2^F^6916.3^.01^^2^F"
^DD("IX",789,11.1,3,0)="3^F^6916.3^7^^^F"
^DD("IX",789,11.1,"AC",1,1)=""
^DD("IX",789,11.1,"AC",2,2)=""
^DD("IX",789,11.1,"B",1,1)=""
^DD("IX",789,11.1,"B",2,2)=""
^DD("IX",789,11.1,"B",3,3)=""
^DD("IX",789,11.1,"BB",1,1)=""
^DD("IX",789,11.1,"BB",2,2)=""
^DD("IX",789,11.1,"BB",3,3)=""
^DD("IX",790,0)="6916.3^AOU^Owner with unsigned active assignment.^R^^R^IR^I^6916.3^^^^^S"
^DD("IX",790,.1,0)="^^5^5^3071218^"
^DD("IX",790,.1,1,0)="Cross-reference by owner of active assignments that have not been"
^DD("IX",790,.1,2,0)="certified or electronically signed. An assignment is considered active if"
^DD("IX",790,.1,3,0)="it does not have a value in the ENDED DATE/TIME field.  An assignment is"
^DD("IX",790,.1,4,0)="considered as not signed or certified if it does not have a value in the"
^DD("IX",790,.1,5,0)="SIGNED DATE/TIME field."
^DD("IX",790,1)="S ^ENG(6916.3,""AOU"",X(1),DA)="""""
^DD("IX",790,1.4)="S X=$S(X(2)=""""&(X(3)=""""):1,1:0)"
^DD("IX",790,2)="K ^ENG(6916.3,""AOU"",X(1),DA)"
^DD("IX",790,2.5)="K ^ENG(6916.3,""AOU"")"
^DD("IX",790,11.1,0)="^.114IA^3^3"
^DD("IX",790,11.1,1,0)="1^F^6916.3^1^^1^F"
^DD("IX",790,11.1,1,3)=""
^DD("IX",790,11.1,2,0)="2^F^6916.3^7^^^F"
^DD("IX",790,11.1,2,3)=""
^DD("IX",790,11.1,3,0)="3^F^6916.3^4^^^F"
^DD("IX",790,11.1,3,3)=""
^DD("IX",790,11.1,"AC",1,1)=""
^DD("IX",790,11.1,"B",1,1)=""
^DD("IX",790,11.1,"B",2,2)=""
^DD("IX",790,11.1,"B",3,3)=""
^DD("IX",790,11.1,"BB",1,1)=""
^DD("IX",790,11.1,"BB",2,2)=""
^DD("IX",790,11.1,"BB",3,3)=""
^DD("IX",791,0)="420.14^UNQ^Unique xref by Fund and beginning and ending Fiscal Years.^R^^R^IR^I^420.14^^^^^LS"
^DD("IX",791,.1,0)="^^2^2^3070910^"
^DD("IX",791,.1,1,0)="This cross reference provides a unique entry for every FUND and"
^DD("IX",791,.1,2,0)="FISCAL YEAR combination."
^DD("IX",791,1)="S ^PRCD(420.14,""UNQ"",$E(X(1),1,30),$E(X(2),1,4),$E(X(3),1,4),DA)="""""
^DD("IX",791,2)="K ^PRCD(420.14,""UNQ"",$E(X(1),1,30),$E(X(2),1,4),$E(X(3),1,4),DA)"
^DD("IX",791,2.5)="K ^PRCD(420.14,""UNQ"")"
^DD("IX",791,11.1,0)="^.114IA^3^3"
^DD("IX",791,11.1,1,0)="1^F^420.14^.01^30^1^F"
^DD("IX",791,11.1,1,3)=""
^DD("IX",791,11.1,2,0)="2^F^420.14^2^4^2^F"
^DD("IX",791,11.1,2,3)=""
^DD("IX",791,11.1,3,0)="3^F^420.14^3^4^3^F"
^DD("IX",791,11.1,3,3)=""
^DD("IX",791,11.1,"AC",1,1)=""
^DD("IX",791,11.1,"AC",2,2)=""
^DD("IX",791,11.1,"AC",3,3)=""
^DD("IX",791,11.1,"B",1,1)=""
^DD("IX",791,11.1,"B",2,2)=""
^DD("IX",791,11.1,"B",3,3)=""
^DD("IX",791,11.1,"BB",1,1)=""
^DD("IX",791,11.1,"BB",2,2)=""
^DD("IX",791,11.1,"BB",3,3)=""
^DD("IX",792,0)="391.31^APATVN^Xrefer on patient & vendor.^MU^^R^IR^I^391.31^^^^^A"
^DD("IX",792,.1,0)="^^3^3^3050202^"
^DD("IX",792,.1,1,0)="This is a new style crossreference created based on patient IEN and vendor "
^DD("IX",792,.1,2,0)="IEN.  The patient IEN is a pointer to file #2 and the vendor IEN is a "
^DD("IX",792,.1,3,0)="pointer to file #4."
^DD("IX",792,1)="S ^DGHT(391.31,""APATVN"",X(1),X(2),DA)="""""
^DD("IX",792,2)="K ^DGHT(391.31,""APATVN"",X(1),X(2),DA)"
^DD("IX",792,11.1,0)="^.114IA^2^2"
^DD("IX",792,11.1,1,0)="1^F^391.31^1^99^1^F"
^DD("IX",792,11.1,1,3)=""
^DD("IX",792,11.1,2,0)="2^F^391.31^2^99^2^F"
^DD("IX",792,11.1,2,3)=""
^DD("IX",792,11.1,"AC",1,1)=""
^DD("IX",792,11.1,"AC",2,2)=""
^DD("IX",792,11.1,"B",1,1)=""
^DD("IX",792,11.1,"B",2,2)=""
^DD("IX",792,11.1,"BB",1,1)=""
^DD("IX",792,11.1,"BB",2,2)=""
^DD("IX","AC",0,.001)=""
^DD("IX","AC",.11,.1101)=""
^DD("IX","AC",.11,.1102)=""
^DD("IX","AC",.114,.11401)=""
^DD("IX","AC",.114,.11402)=""
^DD("IX","AC",.114,.11403)=""
^DD("IX","AC",.31,.3101)=""
^DD("IX","AC",.31,.3102)=""
^DD("IX","AC",.31,.3103)=""
^DD("IX","AC",.312,.31201)=""
^DD("IX","AC",.312,.31202)=""
^DD("IX","AC",.312,.31203)=""
^DD("IX","AC",2,177)=""
^DD("IX","AC",2,178)=""
^DD("IX","AC",2,179)=""
^DD("IX","AC",2,180)=""
^DD("IX","AC",2,185)=""
^DD("IX","AC",2,186)=""
^DD("IX","AC",2,230)=""
^DD("IX","AC",2,231)=""
^DD("IX","AC",2,232)=""
^DD("IX","AC",2,233)=""
^DD("IX","AC",2,234)=""
^DD("IX","AC",2,235)=""
^DD("IX","AC",2,236)=""
^DD("IX","AC",2,237)=""
^DD("IX","AC",2,238)=""
^DD("IX","AC",2,239)=""
^DD("IX","AC",2,240)=""
^DD("IX","AC",2,241)=""
^DD("IX","AC",2,242)=""
^DD("IX","AC",2,243)=""
^DD("IX","AC",2,244)=""
^DD("IX","AC",2,303)=""
^DD("IX","AC",2,396)=""
^DD("IX","AC",2,408)=""
^DD("IX","AC",2,409)=""
^DD("IX","AC",2,410)=""
^DD("IX","AC",2,588)=""
^DD("IX","AC",2,589)=""
^DD("IX","AC",2,590)=""
^DD("IX","AC",2,591)=""
^DD("IX","AC",2,592)=""
^DD("IX","AC",2,593)=""
^DD("IX","AC",2,594)=""
^DD("IX","AC",2,595)=""
^DD("IX","AC",2,596)=""
^DD("IX","AC",2,597)=""
^DD("IX","AC",2,603)=""
^DD("IX","AC",2,604)=""
^DD("IX","AC",2,605)=""
^DD("IX","AC",2,606)=""
^DD("IX","AC",2,607)=""
^DD("IX","AC",2,608)=""
^DD("IX","AC",2,609)=""
^DD("IX","AC",2,627)=""
^DD("IX","AC",2,640)=""
^DD("IX","AC",2,641)=""
^DD("IX","AC",2,642)=""
^DD("IX","AC",2,643)=""
^DD("IX","AC",2,689)=""
^DD("IX","AC",2,703)=""
^DD("IX","AC",2,714)=""
^DD("IX","AC",2,715)=""
^DD("IX","AC",2.01,397)=""
^DD("IX","AC",2.01,598)=""
^DD("IX","AC",2.02,398)=""
^DD("IX","AC",2.04,411)=""
^DD("IX","AC",2.06,195)=""
^DD("IX","AC",2.06,399)=""
^DD("IX","AC",2.101,599)=""
^DD("IX","AC",2.141,245)=""
^DD("IX","AC",2.141,246)=""
^DD("IX","AC",2.141,716)=""
^DD("IX","AC",2.3215,675)=""
^DD("IX","AC",2.3215,676)=""
^DD("IX","AC",2.3215,681)=""
^DD("IX","AC",3.702,170)=""
^DD("IX","AC",3.81,1)=""
^DD("IX","AC",3.81,54)=""
^DD("IX","AC",3.91,43)=""
^DD("IX","AC",4.00511,534)=""
^DD("IX","AC",4.009,535)=""
^DD("IX","AC",4.042,677)=""
^DD("IX","AC",4.043,678)=""
^DD("IX","AC",4.9999,339)=""
^DD("IX","AC",4.9999,340)=""
^DD("IX","AC",4.9999,341)=""
^DD("IX","AC",4.9999,679)=""
^DD("IX","AC",5,649)=""
^DD("IX","AC",5.12,272)=""
^DD("IX","AC",5.13,273)=""
^DD("IX","AC",5.13,274)=""
^DD("IX","AC",9.64,249)=""
^DD("IX","AC",18.04,332)=""
^DD("IX","AC",18.05,333)=""
^DD("IX","AC",18.05,334)=""
^DD("IX","AC",20,3)=""
^DD("IX","AC",20,4)=""
^DD("IX","AC",20,5)=""
^DD("IX","AC",20,6)=""
^DD("IX","AC",20,7)=""
^DD("IX","AC",26.11,255)=""
^DD("IX","AC",26.11,256)=""
^DD("IX","AC",26.11,257)=""
^DD("IX","AC",26.11,644)=""
^DD("IX","AC",26.112,645)=""
^DD("IX","AC",26.12,258)=""
^DD("IX","AC",26.13,259)=""
^DD("IX","AC",26.13,260)=""
^DD("IX","AC",26.13,261)=""
^DD("IX","AC",26.13,262)=""
^DD("IX","AC",26.13,263)=""
^DD("IX","AC",26.13,264)=""
^DD("IX","AC",26.13,690)=""
^DD("IX","AC",26.14,265)=""
^DD("IX","AC",26.14,266)=""
^DD("IX","AC",26.14,267)=""
^DD("IX","AC",26.14,646)=""
^DD("IX","AC",26.15,268)=""
^DD("IX","AC",26.15,269)=""
^DD("IX","AC",26.15,270)=""
^DD("IX","AC",26.15,647)=""
^DD("IX","AC",26.152,648)=""
^DD("IX","AC",26.17,271)=""
^DD("IX","AC",26.19,691)=""
^DD("IX","AC",26.21,692)=""
^DD("IX","AC",28.11,103)=""
^DD("IX","AC",28.11,104)=""
^DD("IX","AC",28.11,105)=""
^DD("IX","AC",29.11,110)=""
^DD("IX","AC",39.6,400)=""
^DD("IX","AC",39.6,401)=""
^DD("IX","AC",39.6,402)=""
^DD("IX","AC",39.6,403)=""
^DD("IX","AC",39.7,404)=""
^DD("IX","AC",39.7,405)=""
^DD("IX","AC",40.8,693)=""
^DD("IX","AC",44,457)=""
^DD("IX","AC",44,458)=""
^DD("IX","AC",45,432)=""
^DD("IX","AC",45,433)=""
^DD("IX","AC",45,434)=""
^DD("IX","AC",45,435)=""
^DD("IX","AC",45,436)=""
^DD("IX","AC",45,437)=""
^DD("IX","AC",45,438)=""
^DD("IX","AC",45,439)=""
^DD("IX","AC",45,440)=""
^DD("IX","AC",45,441)=""
^DD("IX","AC",45,442)=""
^DD("IX","AC",45,443)=""
^DD("IX","AC",45,444)=""
^DD("IX","AC",45,445)=""
^DD("IX","AC",45,446)=""
^DD("IX","AC",45.01,422)=""
^DD("IX","AC",45.01,423)=""
^DD("IX","AC",45.01,424)=""
^DD("IX","AC",45.01,425)=""
^DD("IX","AC",45.01,426)=""
^DD("IX","AC",45.02,447)=""
^DD("IX","AC",45.02,448)=""
^DD("IX","AC",45.02,449)=""
^DD("IX","AC",45.02,450)=""
^DD("IX","AC",45.02,451)=""
^DD("IX","AC",45.02,452)=""
^DD("IX","AC",45.02,453)=""
^DD("IX","AC",45.02,454)=""
^DD("IX","AC",45.02,455)=""
^DD("IX","AC",45.02,456)=""
^DD("IX","AC",45.05,427)=""
^DD("IX","AC",45.05,428)=""
^DD("IX","AC",45.05,429)=""
^DD("IX","AC",45.05,430)=""
^DD("IX","AC",45.05,431)=""
^DD("IX","AC",45.06,624)=""
^DD("IX","AC",46.15,46)=""
^DD("IX","AC",50,38)=""
^DD("IX","AC",50.416,223)=""
^DD("IX","AC",50.416,610)=""
^DD("IX","AC",50.6,611)=""
^DD("IX","AC",50.605,612)=""
^DD("IX","AC",50.68,613)=""
^DD("IX","AC",52,175)=""
^DD("IX","AC",52,250)=""
^DD("IX","AC",52,461)=""
^DD("IX","AC",52.1,462)=""
^DD("IX","AC",52.2,463)=""
^DD("IX","AC",52.25,652)=""
^DD("IX","AC",52.25,653)=""
^DD("IX","AC",52.41,176)=""
^DD("IX","AC",52.41,251)=""
^DD("IX","AC",52.43,619)=""
^DD("IX","AC",52.43,620)=""
^DD("IX","AC",52.5,248)=""
^DD("IX","AC",52.91,253)=""
^DD("IX","AC",52.91,254)=""
^DD("IX","AC",53.1,502)=""
^DD("IX","AC",53.7,252)=""
^DD("IX","AC",53.79,47)=""
^DD("IX","AC",53.79,146)=""
^DD("IX","AC",53.79,147)=""
^DD("IX","AC",53.795,148)=""
^DD("IX","AC",55.01,415)=""
^DD("IX","AC",55.01,466)=""
^DD("IX","AC",55.01,498)=""
^DD("IX","AC",55.01,500)=""
^DD("IX","AC",55.0105,145)=""
^DD("IX","AC",55.05,464)=""
^DD("IX","AC",55.06,414)=""
^DD("IX","AC",55.06,465)=""
^DD("IX","AC",55.06,499)=""
^DD("IX","AC",55.06,501)=""
^DD("IX","AC",57.81,503)=""
^DD("IX","AC",57.81,504)=""
^DD("IX","AC",59.9,80)=""
^DD("IX","AC",62.49,16)=""
^DD("IX","AC",62.49,17)=""
^DD("IX","AC",62.8,478)=""
^DD("IX","AC",62.9,18)=""
^DD("IX","AC",63.12,565)=""
^DD("IX","AC",63.912,566)=""
^DD("IX","AC",69.03,651)=""
^DD("IX","AC",70.03,475)=""
^DD("IX","AC",95.3,717)=""
^DD("IX","AC",100,187)=""
^DD("IX","AC",100,210)=""
^DD("IX","AC",100.01,694)=""
^DD("IX","AC",100.02,695)=""
^DD("IX","AC",100.2,188)=""
^DD("IX","AC",100.2,189)=""
^DD("IX","AC",100.2,190)=""
^DD("IX","AC",100.5,19)=""
^DD("IX","AC",100.52,24)=""
^DD("IX","AC",100.6,25)=""
^DD("IX","AC",100.6,26)=""
^DD("IX","AC",100.61,27)=""
^DD("IX","AC",100.62,166)=""
^DD("IX","AC",101.13,167)=""
^DD("IX","AC",101.15,98)=""
^DD("IX","AC",102.211,211)=""
^DD("IX","AC",102.3,343)=""
^DD("IX","AC",102.4,344)=""
^DD("IX","AC",115.1626,298)=""
^DD("IX","AC",120.5,200)=""
^DD("IX","AC",120.5,201)=""
^DD("IX","AC",120.5,460)=""
^DD("IX","AC",120.51,585)=""
^DD("IX","AC",120.52,586)=""
^DD("IX","AC",120.53,587)=""
^DD("IX","AC",120.8,482)=""
^DD("IX","AC",120.802,483)=""
^DD("IX","AC",120.803,484)=""
^DD("IX","AC",120.81,485)=""
^DD("IX","AC",120.813,487)=""
^DD("IX","AC",120.814,488)=""
^DD("IX","AC",120.82,614)=""
^DD("IX","AC",120.82,618)=""
^DD("IX","AC",120.82,710)=""
^DD("IX","AC",120.8205,617)=""
^DD("IX","AC",120.824,616)=""
^DD("IX","AC",120.826,486)=""
^DD("IX","AC",120.83,615)=""
^DD("IX","AC",120.85,490)=""
^DD("IX","AC",120.8502,491)=""
^DD("IX","AC",120.8503,492)=""
^DD("IX","AC",120.8504,493)=""
^DD("IX","AC",120.8513,494)=""
^DD("IX","AC",120.85315,496)=""
^DD("IX","AC",120.8563,495)=""
^DD("IX","AC",120.86,489)=""
^DD("IX","AC",123,81)=""
^DD("IX","AC",123,102)=""
^DD("IX","AC",123,111)=""
^DD("IX","AC",123.02,112)=""
^DD("IX","AC",123.051,113)=""
^DD("IX","AC",123.555,171)=""
^DD("IX","AC",123.58,172)=""
^DD("IX","AC",123.6,114)=""
^DD("IX","AC",123.6,115)=""
^DD("IX","AC",130,196)=""
^DD("IX","AC",130,376)=""
^DD("IX","AC",130,379)=""
^DD("IX","AC",130,380)=""
^DD("IX","AC",130,381)=""
^DD("IX","AC",130,382)=""
^DD("IX","AC",130,383)=""
^DD("IX","AC",130,384)=""
^DD("IX","AC",130,385)=""
^DD("IX","AC",130,386)=""
^DD("IX","AC",130,387)=""
^DD("IX","AC",130,388)=""
^DD("IX","AC",130,412)=""
^DD("IX","AC",130.028,197)=""
^DD("IX","AC",130.16,198)=""
^DD("IX","AC",130.164,199)=""
^DD("IX","AC",130.28,389)=""
^DD("IX","AC",142,563)=""
^DD("IX","AC",154.1,39)=""
^DD("IX","AC",161.45,66)=""
^DD("IX","AC",162.03,299)=""
^DD("IX","AC",162.1,300)=""
^DD("IX","AC",162.11,67)=""
^DD("IX","AC",162.11,68)=""
^DD("IX","AC",162.11,69)=""
^DD("IX","AC",162.11,70)=""
^DD("IX","AC",162.2,71)=""
^DD("IX","AC",162.3,72)=""
^DD("IX","AC",162.5,73)=""
^DD("IX","AC",162.5,74)=""
^DD("IX","AC",162.5,75)=""
^DD("IX","AC",162.5,301)=""
^DD("IX","AC",162.7,302)=""
^DD("IX","AC",200,8)=""
^DD("IX","AC",200,9)=""
^DD("IX","AC",200,173)=""
^DD("IX","AC",200,228)=""
^DD("IX","AC",200,407)=""
^DD("IX","AC",200,650)=""
^DD("IX","AC",200.042,680)=""
^DD("IX","AC",200.051,174)=""
^DD("IX","AC",200.051,497)=""
^DD("IX","AC",200.06,169)=""
^DD("IX","AC",344.3,289)=""
^DD("IX","AC",344.3,290)=""
^DD("IX","AC",344.4,291)=""
^DD("IX","AC",344.4,292)=""
^DD("IX","AC",344.41,293)=""
^DD("IX","AC",344.5,294)=""
^DD("IX","AC",344.5,295)=""
^DD("IX","AC",344.54,296)=""
^DD("IX","AC",351.6,40)=""
^DD("IX","AC",351.6,41)=""
^DD("IX","AC",351.61,42)=""
^DD("IX","AC",351.81,149)=""
^DD("IX","AC",352.5,107)=""
^DD("IX","AC",354.701,64)=""
^DD("IX","AC",354.71,65)=""
^DD("IX","AC",354.75,106)=""
^DD("IX","AC",355.9,116)=""
^DD("IX","AC",355.9,117)=""
^DD("IX","AC",355.9,118)=""
^DD("IX","AC",355.9,119)=""
^DD("IX","AC",355.9,120)=""
^DD("IX","AC",355.91,121)=""
^DD("IX","AC",355.91,122)=""
^DD("IX","AC",355.92,413)=""
^DD("IX","AC",355.92,674)=""
^DD("IX","AC",355.9301,705)=""
^DD("IX","AC",355.95,123)=""
^DD("IX","AC",355.96,124)=""
^DD("IX","AC",355.96,125)=""
^DD("IX","AC",355.96,126)=""
^DD("IX","AC",355.96,127)=""
^DD("IX","AC",355.96,128)=""
^DD("IX","AC",361,129)=""
^DD("IX","AC",361,130)=""
^DD("IX","AC",361,416)=""
^DD("IX","AC",361.1,131)=""
^DD("IX","AC",361.1,132)=""
^DD("IX","AC",361.1,184)=""
^DD("IX","AC",361.1,297)=""
^DD("IX","AC",361.1,307)=""
^DD("IX","AC",361.3,133)=""
^DD("IX","AC",364,134)=""
^DD("IX","AC",364,135)=""
^DD("IX","AC",364,136)=""
^DD("IX","AC",364,137)=""
^DD("IX","AC",364.4,138)=""
^DD("IX","AC",364.6,50)=""
^DD("IX","AC",364.6,51)=""
^DD("IX","AC",364.6,279)=""
^DD("IX","AC",364.7,52)=""
^DD("IX","AC",365,275)=""
^DD("IX","AC",365.1,276)=""
^DD("IX","AC",365.11,277)=""
^DD("IX","AC",366.03,417)=""
^DD("IX","AC",375,628)=""
^DD("IX","AC",375,629)=""
^DD("IX","AC",391.23,86)=""
^DD("IX","AC",391.23,406)=""
^DD("IX","AC",391.31,792)=""
^DD("IX","AC",391.72,11)=""
^DD("IX","AC",391.91,12)=""
^DD("IX","AC",392.31,213)=""
^DD("IX","AC",399,139)=""
^DD("IX","AC",399,477)=""
^DD("IX","AC",399.0222,140)=""
^DD("IX","AC",399.0222,141)=""
^DD("IX","AC",399.0222,142)=""
^DD("IX","AC",399.042,53)=""
^DD("IX","AC",399.047,723)=""
^DD("IX","AC",404.42,181)=""
^DD("IX","AC",404.43,182)=""
^DD("IX","AC",404.43,183)=""
^DD("IX","AC",404.57,207)=""
^DD("IX","AC",404.57,208)=""
^DD("IX","AC",404.59,209)=""
^DD("IX","AC",409.35,623)=""
^DD("IX","AC",409.48,718)=""
^DD("IX","AC",409.48,719)=""
^DD("IX","AC",409.48,720)=""
^DD("IX","AC",409.55,639)=""
^DD("IX","AC",409.69,87)=""
^DD("IX","AC",409.69,88)=""
^DD("IX","AC",409.69,99)=""
^DD("IX","AC",410.02,580)=""
^DD("IX","AC",414.02,581)=""
^DD("IX","AC",414.03,582)=""
^DD("IX","AC",414.04,600)=""
^DD("IX","AC",420.14,791)=""
^DD("IX","AC",440.5,55)=""
^DD("IX","AC",440.5,56)=""
^DD("IX","AC",441,601)=""
^DD("IX","AC",442.01,602)=""
^DD("IX","AC",445.027,711)=""
^DD("IX","AC",445.2,48)=""
^DD("IX","AC",447.1,49)=""
^DD("IX","AC",458.02,78)=""
^DD("IX","AC",458.02,707)=""
^DD("IX","AC",458.4,708)=""
^DD("IX","AC",458.7,709)=""
^DD("IX","AC",458.8,721)=""
^DD("IX","AC",458.82,722)=""
^DD("IX","AC",550.215,325)=""
^DD("IX","AC",577,479)=""
^DD("IX","AC",601.22,476)=""
^DD("IX","AC",601.75,215)=""
^DD("IX","AC",601.751,724)=""
^DD("IX","AC",601.76,725)=""
^DD("IX","AC",601.76,726)=""
^DD("IX","AC",601.78,727)=""
^DD("IX","AC",601.79,728)=""
^DD("IX","AC",601.83,729)=""
^DD("IX","AC",601.84,730)=""
^DD("IX","AC",601.84,731)=""
^DD("IX","AC",601.85,732)=""
^DD("IX","AC",601.86,733)=""
^DD("IX","AC",601.87,734)=""
^DD("IX","AC",661.11,10)=""
^DD("IX","AC",661.11,13)=""
^DD("IX","AC",661.11,14)=""
^DD("IX","AC",661.11,15)=""
^DD("IX","AC",661.4,20)=""
^DD("IX","AC",661.4,21)=""
^DD("IX","AC",661.41,22)=""
^DD("IX","AC",661.5,23)=""
^DD("IX","AC",661.5,28)=""
^DD("IX","AC",661.5,29)=""
^DD("IX","AC",661.6,30)=""
^DD("IX","AC",661.6,31)=""
^DD("IX","AC",661.6,32)=""
^DD("IX","AC",661.6,33)=""
^DD("IX","AC",661.6,34)=""
^DD("IX","AC",661.6,35)=""
^DD("IX","AC",661.7,36)=""
^DD("IX","AC",661.7,37)=""
^DD("IX","AC",661.7,63)=""
^DD("IX","AC",661.9,79)=""
^DD("IX","AC",700,44)=""
^DD("IX","AC",700,45)=""
^DD("IX","AC",702.001,280)=""
^DD("IX","AC",702.001,509)=""
^DD("IX","AC",702.001,510)=""
^DD("IX","AC",712.5,191)=""
^DD("IX","AC",712.5,192)=""
^DD("IX","AC",712.5,193)=""
^DD("IX","AC",712.6,194)=""
^DD("IX","AC",713.1,143)=""
^DD("IX","AC",713.2,144)=""
^DD("IX","AC",772,345)=""
^DD("IX","AC",772,781)=""
^DD("IX","AC",773,346)=""
^DD("IX","AC",773,347)=""
^DD("IX","AC",773,782)=""
^DD("IX","AC",776.3,348)=""
^DD("IX","AC",776.3,349)=""
^DD("IX","AC",776.4,350)=""
^DD("IX","AC",776.4,351)=""
^DD("IX","AC",776.4,352)=""
^DD("IX","AC",776.4,353)=""
^DD("IX","AC",776.4,354)=""
^DD("IX","AC",776.4,355)=""
^DD("IX","AC",776.4,356)=""
^DD("IX","AC",776.4,357)=""
^DD("IX","AC",776.4,358)=""
^DD("IX","AC",776.4,359)=""
^DD("IX","AC",776.4,360)=""
^DD("IX","AC",776.5,361)=""
^DD("IX","AC",776.5,362)=""
^DD("IX","AC",779.004,654)=""
^DD("IX","AC",779.2,84)=""
^DD("IX","AC",779.21,89)=""
^DD("IX","AC",779.21,704)=""
^DD("IX","AC",779.3,90)=""
^DD("IX","AC",779.3,91)=""
^DD("IX","AC",779.4,712)=""
^DD("IX","AC",779.41,92)=""
^DD("IX","AC",779.41,93)=""
^DD("IX","AC",779.41,713)=""
^DD("IX","AC",790.1,564)=""
^DD("IX","AC",798,100)=""
^DD("IX","AC",798,150)=""
^DD("IX","AC",798,153)=""
^DD("IX","AC",798,157)=""
^DD("IX","AC",798,158)=""
^DD("IX","AC",798,363)=""
^DD("IX","AC",798,366)=""
^DD("IX","AC",798,374)=""
^DD("IX","AC",798.02,159)=""
^DD("IX","AC",798.1,151)=""
^DD("IX","AC",798.11,160)=""
^DD("IX","AC",798.118,220)=""
^DD("IX","AC",798.122,221)=""
^DD("IX","AC",798.128,364)=""
^DD("IX","AC",798.129,365)=""
^DD("IX","AC",798.13,152)=""
^DD("IX","AC",798.2,154)=""
^DD("IX","AC",798.26,155)=""
^DD("IX","AC",798.31,156)=""
^DD("IX","AC",798.32,367)=""
^DD("IX","AC",798.32,368)=""
^DD("IX","AC",798.73,161)=""
^DD("IX","AC",798.87,369)=""
^DD("IX","AC",798.87,370)=""
^DD("IX","AC",798.87,371)=""
^DD("IX","AC",798.9,162)=""
^DD("IX","AC",799.1,163)=""
^DD("IX","AC",799.22,164)=""
^DD("IX","AC",799.22,165)=""
^DD("IX","AC",799.31,222)=""
^DD("IX","AC",799.34,372)=""
^DD("IX","AC",799.41,373)=""
^DD("IX","AC",799.41,706)=""
^DD("IX","AC",799.51,375)=""
^DD("IX","AC",799.51,630)=""
^DD("IX","AC",799.53,631)=""
^DD("IX","AC",799.6,632)=""
^DD("IX","AC",799.6,633)=""
^DD("IX","AC",799.61,634)=""
^DD("IX","AC",799.63,635)=""
^DD("IX","AC",799.63,636)=""
^DD("IX","AC",799.64,637)=""
^DD("IX","AC",799.64,638)=""
^DD("IX","AC",801.41,735)=""
^DD("IX","AC",801.41,736)=""
^DD("IX","AC",801.5,281)=""
^DD("IX","AC",801.5,282)=""
^DD("IX","AC",801.5,283)=""
^DD("IX","AC",801.55,286)=""
^DD("IX","AC",801.55,287)=""
^DD("IX","AC",801.55,288)=""
^DD("IX","AC",801.55,377)=""
^DD("IX","AC",801.9,285)=""
^DD("IX","AC",801.9001,284)=""
^DD("IX","AC",802.4,378)=""
^DD("IX","AC",810.21,737)=""
^DD("IX","AC",810.3,506)=""
^DD("IX","AC",810.3,507)=""
^DD("IX","AC",810.3,508)=""
^DD("IX","AC",810.31,505)=""
^DD("IX","AC",810.4,738)=""
^DD("IX","AC",810.41,739)=""
^DD("IX","AC",810.5,740)=""
^DD("IX","AC",810.5,741)=""
^DD("IX","AC",810.531,742)=""
^DD("IX","AC",810.535,743)=""
^DD("IX","AC",810.701,744)=""
^DD("IX","AC",810.8,745)=""
^DD("IX","AC",810.801,746)=""
^DD("IX","AC",810.9,531)=""
^DD("IX","AC",810.9001,532)=""
^DD("IX","AC",811.2,511)=""
^DD("IX","AC",811.2,512)=""
^DD("IX","AC",811.22102,513)=""
^DD("IX","AC",811.22102,514)=""
^DD("IX","AC",811.22102,515)=""
^DD("IX","AC",811.22103,516)=""
^DD("IX","AC",811.22103,517)=""
^DD("IX","AC",811.22103,518)=""
^DD("IX","AC",811.22104,519)=""
^DD("IX","AC",811.22104,520)=""
^DD("IX","AC",811.22104,521)=""
^DD("IX","AC",811.31,522)=""
^DD("IX","AC",811.32,523)=""
^DD("IX","AC",811.371,524)=""
^DD("IX","AC",811.381,525)=""
^DD("IX","AC",811.4,526)=""
^DD("IX","AC",811.5,747)=""
^DD("IX","AC",811.5,749)=""
^DD("IX","AC",811.52,748)=""
^DD("IX","AC",811.52,750)=""
^DD("IX","AC",811.52,751)=""
^DD("IX","AC",811.52,752)=""
^DD("IX","AC",811.52,753)=""
^DD("IX","AC",811.6,625)=""
^DD("IX","AC",811.62,626)=""
^DD("IX","AC",811.7,536)=""
^DD("IX","AC",811.8,754)=""
^DD("IX","AC",811.8,755)=""
^DD("IX","AC",811.803,756)=""
^DD("IX","AC",811.9,757)=""
^DD("IX","AC",811.9,758)=""
^DD("IX","AC",811.9,759)=""
^DD("IX","AC",811.9,760)=""
^DD("IX","AC",811.9,761)=""
^DD("IX","AC",811.9,762)=""
^DD("IX","AC",811.9,763)=""
^DD("IX","AC",811.9002,764)=""
^DD("IX","AC",811.902,765)=""
^DD("IX","AC",811.902,766)=""
^DD("IX","AC",811.902,767)=""
^DD("IX","AC",811.902,768)=""
^DD("IX","AC",811.902,769)=""
^DD("IX","AC",811.902,770)=""
^DD("IX","AC",811.902,771)=""
^DD("IX","AC",811.902,772)=""
^DD("IX","AC",811.902,773)=""
^DD("IX","AC",811.902,774)=""
^DD("IX","AC",811.925,775)=""
^DD("IX","AC",811.925,776)=""
^DD("IX","AC",811.925,777)=""
^DD("IX","AC",811.925,778)=""
^DD("IX","AC",811.925,779)=""
^DD("IX","AC",811.925,780)=""
^DD("IX","AC",870,94)=""
^DD("IX","AC",870,95)=""
^DD("IX","AC",870,101)=""
^DD("IX","AC",870,108)=""
^DD("IX","AC",870,109)=""
^DD("IX","AC",870,216)=""
^DD("IX","AC",870,219)=""
^DD("IX","AC",870.01,218)=""
^DD("IX","AC",870.019,217)=""
^DD("IX","AC",2005,168)=""
^DD("IX","AC",2005,212)=""
^DD("IX","AC",2005,527)=""
^DD("IX","AC",2005,658)=""
^DD("IX","AC",2005,671)=""
^DD("IX","AC",2005.001,657)=""
^DD("IX","AC",2005.0106,76)=""
^DD("IX","AC",2005.1,528)=""
^DD("IX","AC",2005.1,659)=""
^DD("IX","AC",2005.1,672)=""
^DD("IX","AC",2005.1,673)=""
^DD("IX","AC",2005.1106,77)=""
^DD("IX","AC",2005.2,660)=""
^DD("IX","AC",2005.2,661)=""
^DD("IX","AC",2005.85,206)=""
^DD("IX","AC",2006.03,662)=""
^DD("IX","AC",2006.03,663)=""
^DD("IX","AC",2006.03,664)=""
^DD("IX","AC",2006.03,665)=""
^DD("IX","AC",2006.031,666)=""
^DD("IX","AC",2006.032,667)=""
^DD("IX","AC",2006.035,203)=""
^DD("IX","AC",2006.035,204)=""
^DD("IX","AC",2006.532,224)=""
^DD("IX","AC",2006.532,225)=""
^DD("IX","AC",2006.562,538)=""
^DD("IX","AC",2006.562,539)=""
^DD("IX","AC",2006.562,540)=""
^DD("IX","AC",2006.562,541)=""
^DD("IX","AC",2006.564,82)=""
^DD("IX","AC",2006.5713,390)=""
^DD("IX","AC",2006.5744,226)=""
^DD("IX","AC",2006.575,227)=""
^DD("IX","AC",2006.575,391)=""
^DD("IX","AC",2006.575,392)=""
^DD("IX","AC",2006.582,83)=""
^DD("IX","AC",2006.5839,85)=""
^DD("IX","AC",2006.5841,529)=""
^DD("IX","AC",2006.5849,530)=""
^DD("IX","AC",2006.5849,533)=""
^DD("IX","AC",2006.5849,537)=""
^DD("IX","AC",2006.587,655)=""
^DD("IX","AC",2006.587,656)=""
^DD("IX","AC",2006.59061,205)=""
^DD("IX","AC",2006.8,668)=""
^DD("IX","AC",2006.82,669)=""
^DD("IX","AC",2006.82,670)=""
^DD("IX","AC",2260,567)=""
^DD("IX","AC",2260.095,568)=""
^DD("IX","AC",2261.43,202)=""
^DD("IX","AC",2261.9,96)=""
^DD("IX","AC",2262.2,97)=""
^DD("IX","AC",2263,57)=""
^DD("IX","AC",2263.1,58)=""
^DD("IX","AC",2263.2,59)=""
^DD("IX","AC",2263.3,60)=""
^DD("IX","AC",2263.7,61)=""
^DD("IX","AC",6914,783)=""
^DD("IX","AC",6914,784)=""
^DD("IX","AC",6914,785)=""
^DD("IX","AC",6914,786)=""
^DD("IX","AC",6914.1,787)=""
^DD("IX","AC",6916.3,788)=""
^DD("IX","AC",6916.3,789)=""
^DD("IX","AC",6916.3,790)=""
^DD("IX","AC",7115.5,573)=""
^DD("IX","AC",7115.6,574)=""
^DD("IX","AC",7118.13,575)=""
^DD("IX","AC",7118.21,576)=""
^DD("IX","AC",7118.22,577)=""
^DD("IX","AC",7118.22,578)=""
^DD("IX","AC",7118.25,579)=""
^DD("IX","AC",8925,247)=""
^DD("IX","AC",8925,308)=""
^DD("IX","AC",8925.6,696)=""
^DD("IX","AC",8925.7,2)=""
^DD("IX","AC",8925.7,569)=""
^DD("IX","AC",8926.1,697)=""
^DD("IX","AC",8926.2,698)=""
^DD("IX","AC",8926.3,699)=""
^DD("IX","AC",8926.4,700)=""
^DD("IX","AC",8926.5,701)=""
^DD("IX","AC",8926.6,702)=""
^DD("IX","AC",8927.1,62)=""
^DD("IX","AC",8932.2,229)=""
^DD("IX","AC",8935.91,342)=""
^DD("IX","AC",8985.1,570)=""
^DD("IX","AC",8985.1,571)=""
^DD("IX","AC",8985.11,572)=""
^DD("IX","AC",509850.9,304)=""
^DD("IX","AC",509850.9,305)=""
^DD("IX","AC",537015,214)=""
^DD("IX","AC",791814,278)=""
^DD("IX","AC",9000010.07,472)=""
^DD("IX","AC",9000010.11,470)=""
^DD("IX","AC",9000010.12,473)=""
^DD("IX","AC",9000010.13,474)=""
^DD("IX","AC",9000010.16,471)=""
^DD("IX","AC",9000010.18,467)=""
^DD("IX","AC",9000010.23,468)=""
^DD("IX","AC",9000010.23,469)=""
^DD("IX","AC",9000011,459)=""
^DD("IX","B",0,.001)=""
^DD("IX","B",.11,.1101)=""
^DD("IX","B",.11,.1102)=""
^DD("IX","B",.11,.11403)=""
^DD("IX","B",.114,.11401)=""
^DD("IX","B",.114,.11402)=""
^DD("IX","B",.31,.3101)=""
^DD("IX","B",.31,.3102)=""
^DD("IX","B",.31,.3103)=""
^DD("IX","B",.31,.31202)=""
^DD("IX","B",.312,.31201)=""
^DD("IX","B",.312,.31203)=""
^DD("IX","B",2,177)=""
^DD("IX","B",2,178)=""
^DD("IX","B",2,179)=""
^DD("IX","B",2,180)=""
^DD("IX","B",2,185)=""
^DD("IX","B",2,186)=""
^DD("IX","B",2,230)=""
^DD("IX","B",2,231)=""
^DD("IX","B",2,232)=""
^DD("IX","B",2,233)=""
^DD("IX","B",2,234)=""
^DD("IX","B",2,235)=""
^DD("IX","B",2,236)=""
^DD("IX","B",2,237)=""
^DD("IX","B",2,238)=""
^DD("IX","B",2,239)=""
^DD("IX","B",2,240)=""
^DD("IX","B",2,241)=""
^DD("IX","B",2,242)=""
^DD("IX","B",2,243)=""
^DD("IX","B",2,244)=""
^DD("IX","B",2,303)=""
^DD("IX","B",2,396)=""
^DD("IX","B",2,408)=""
^DD("IX","B",2,409)=""
^DD("IX","B",2,410)=""
^DD("IX","B",2,588)=""
^DD("IX","B",2,589)=""
^DD("IX","B",2,590)=""
^DD("IX","B",2,591)=""
^DD("IX","B",2,592)=""
^DD("IX","B",2,593)=""
^DD("IX","B",2,594)=""
^DD("IX","B",2,595)=""
^DD("IX","B",2,596)=""
^DD("IX","B",2,597)=""
^DD("IX","B",2,598)=""
^DD("IX","B",2,599)=""
^DD("IX","B",2,603)=""
^DD("IX","B",2,604)=""
^DD("IX","B",2,605)=""
^DD("IX","B",2,606)=""
^DD("IX","B",2,607)=""
^DD("IX","B",2,608)=""
^DD("IX","B",2,609)=""
^DD("IX","B",2,627)=""
^DD("IX","B",2,640)=""
^DD("IX","B",2,641)=""
^DD("IX","B",2,642)=""
^DD("IX","B",2,643)=""
^DD("IX","B",2,689)=""
^DD("IX","B",2,703)=""
^DD("IX","B",2,714)=""
^DD("IX","B",2,715)=""
^DD("IX","B",2.01,397)=""
^DD("IX","B",2.02,398)=""
^DD("IX","B",2.04,411)=""
^DD("IX","B",2.06,195)=""
^DD("IX","B",2.06,399)=""
^DD("IX","B",2.141,245)=""
^DD("IX","B",2.141,246)=""
^DD("IX","B",2.141,716)=""
^DD("IX","B",2.3215,675)=""
^DD("IX","B",2.3215,676)=""
^DD("IX","B",2.3215,681)=""
^DD("IX","B",3.702,170)=""
^DD("IX","B",3.81,1)=""
^DD("IX","B",3.81,54)=""
^DD("IX","B",3.9,43)=""
^DD("IX","B",4,339)=""
^DD("IX","B",4,340)=""
^DD("IX","B",4,341)=""
^DD("IX","B",4,677)=""
^DD("IX","B",4,678)=""
^DD("IX","B",4,679)=""
^DD("IX","B",4.005,534)=""
^DD("IX","B",4.009,535)=""
^DD("IX","B",5,649)=""
^DD("IX","B",5.12,272)=""
^DD("IX","B",5.13,273)=""
^DD("IX","B",5.13,274)=""
^DD("IX","B",9.64,249)=""
^DD("IX","B",18.04,332)=""
^DD("IX","B",18.05,333)=""
^DD("IX","B",18.05,334)=""
^DD("IX","B",20,3)=""
^DD("IX","B",20,4)=""
^DD("IX","B",20,5)=""
^DD("IX","B",20,6)=""
^DD("IX","B",20,7)=""
^DD("IX","B",26.11,255)=""
^DD("IX","B",26.11,256)=""
^DD("IX","B",26.11,257)=""
^DD("IX","B",26.11,644)=""
^DD("IX","B",26.11,645)=""
^DD("IX","B",26.12,258)=""
^DD("IX","B",26.13,259)=""
^DD("IX","B",26.13,260)=""
^DD("IX","B",26.13,261)=""
^DD("IX","B",26.13,262)=""
^DD("IX","B",26.13,263)=""
^DD("IX","B",26.13,264)=""
^DD("IX","B",26.13,690)=""
^DD("IX","B",26.14,265)=""
^DD("IX","B",26.14,266)=""
^DD("IX","B",26.14,267)=""
^DD("IX","B",26.14,646)=""
^DD("IX","B",26.15,268)=""
^DD("IX","B",26.15,269)=""
^DD("IX","B",26.15,270)=""
^DD("IX","B",26.15,647)=""
^DD("IX","B",26.15,648)=""
^DD("IX","B",26.17,271)=""
^DD("IX","B",26.19,691)=""
^DD("IX","B",26.21,692)=""
^DD("IX","B",28.11,103)=""
^DD("IX","B",28.11,104)=""
^DD("IX","B",28.11,105)=""
^DD("IX","B",29.11,110)=""
^DD("IX","B",39.6,400)=""
^DD("IX","B",39.6,401)=""
^DD("IX","B",39.6,402)=""
^DD("IX","B",39.6,403)=""
^DD("IX","B",39.7,404)=""
^DD("IX","B",39.7,405)=""
^DD("IX","B",40.8,693)=""
^DD("IX","B",44,457)=""
^DD("IX","B",44,458)=""
^DD("IX","B",45,422)=""
^DD("IX","B",45,423)=""
^DD("IX","B",45,424)=""
^DD("IX","B",45,425)=""
^DD("IX","B",45,426)=""
^DD("IX","B",45,427)=""
^DD("IX","B",45,428)=""
^DD("IX","B",45,429)=""
^DD("IX","B",45,430)=""
^DD("IX","B",45,431)=""
^DD("IX","B",45,432)=""
^DD("IX","B",45,433)=""
^DD("IX","B",45,434)=""
^DD("IX","B",45,435)=""
^DD("IX","B",45,436)=""
^DD("IX","B",45,437)=""
^DD("IX","B",45,438)=""
^DD("IX","B",45,439)=""
^DD("IX","B",45,440)=""
^DD("IX","B",45,441)=""
^DD("IX","B",45,442)=""
^DD("IX","B",45,443)=""
^DD("IX","B",45,444)=""
^DD("IX","B",45,445)=""
^DD("IX","B",45,446)=""
^DD("IX","B",45,447)=""
^DD("IX","B",45,448)=""
^DD("IX","B",45,449)=""
^DD("IX","B",45,450)=""
^DD("IX","B",45,451)=""
^DD("IX","B",45,452)=""
^DD("IX","B",45,453)=""
^DD("IX","B",45,454)=""
^DD("IX","B",45,455)=""
^DD("IX","B",45,456)=""
^DD("IX","B",45,624)=""
^DD("IX","B",46.14,46)=""
^DD("IX","B",50,38)=""
^DD("IX","B",50.416,223)=""
^DD("IX","B",50.416,610)=""
^DD("IX","B",50.6,611)=""
^DD("IX","B",50.605,612)=""
^DD("IX","B",50.68,613)=""
^DD("IX","B",52,175)=""
^DD("IX","B",52,250)=""
^DD("IX","B",52,461)=""
^DD("IX","B",52,462)=""
^DD("IX","B",52,463)=""
^DD("IX","B",52,652)=""
^DD("IX","B",52,653)=""
^DD("IX","B",52.41,176)=""
^DD("IX","B",52.41,251)=""
^DD("IX","B",52.43,619)=""
^DD("IX","B",52.43,620)=""
^DD("IX","B",52.5,248)=""
^DD("IX","B",52.91,253)=""
^DD("IX","B",52.91,254)=""
^DD("IX","B",53.1,502)=""
^DD("IX","B",53.7,252)=""
^DD("IX","B",53.79,47)=""
^DD("IX","B",53.79,146)=""
^DD("IX","B",53.79,147)=""
^DD("IX","B",53.795,148)=""
^DD("IX","B",55,414)=""
^DD("IX","B",55,415)=""
^DD("IX","B",55,464)=""
^DD("IX","B",55,465)=""
^DD("IX","B",55,466)=""
^DD("IX","B",55,498)=""
^DD("IX","B",55,499)=""
^DD("IX","B",55.01,500)=""
^DD("IX","B",55.0105,145)=""
^DD("IX","B",55.06,501)=""
^DD("IX","B",57.8,503)=""
^DD("IX","B",57.8,504)=""
^DD("IX","B",59.9,80)=""
^DD("IX","B",62.49,16)=""
^DD("IX","B",62.49,17)=""
^DD("IX","B",62.8,478)=""
^DD("IX","B",62.9,18)=""
^DD("IX","B",63.12,565)=""
^DD("IX","B",63.912,566)=""
^DD("IX","B",69,651)=""
^DD("IX","B",70,475)=""
^DD("IX","B",95.3,717)=""
^DD("IX","B",100,187)=""
^DD("IX","B",100,210)=""
^DD("IX","B",100.01,694)=""
^DD("IX","B",100.02,695)=""
^DD("IX","B",100.2,188)=""
^DD("IX","B",100.2,189)=""
^DD("IX","B",100.2,190)=""
^DD("IX","B",100.5,19)=""
^DD("IX","B",100.52,24)=""
^DD("IX","B",100.6,25)=""
^DD("IX","B",100.6,26)=""
^DD("IX","B",100.61,27)=""
^DD("IX","B",100.62,166)=""
^DD("IX","B",101.13,167)=""
^DD("IX","B",101.15,98)=""
^DD("IX","B",102.211,211)=""
^DD("IX","B",102.3,343)=""
^DD("IX","B",102.4,344)=""
^DD("IX","B",115,298)=""
^DD("IX","B",120.5,200)=""
^DD("IX","B",120.5,201)=""
^DD("IX","B",120.5,460)=""
^DD("IX","B",120.51,585)=""
^DD("IX","B",120.52,586)=""
^DD("IX","B",120.53,587)=""
^DD("IX","B",120.8,482)=""
^DD("IX","B",120.802,483)=""
^DD("IX","B",120.803,484)=""
^DD("IX","B",120.81,485)=""
^DD("IX","B",120.813,487)=""
^DD("IX","B",120.814,488)=""
^DD("IX","B",120.82,614)=""
^DD("IX","B",120.82,618)=""
^DD("IX","B",120.82,710)=""
^DD("IX","B",120.8205,617)=""
^DD("IX","B",120.824,616)=""
^DD("IX","B",120.826,486)=""
^DD("IX","B",120.83,615)=""
^DD("IX","B",120.85,490)=""
^DD("IX","B",120.8502,491)=""
^DD("IX","B",120.8503,492)=""
^DD("IX","B",120.8504,493)=""
^DD("IX","B",120.8513,494)=""
^DD("IX","B",120.85315,496)=""
^DD("IX","B",120.8563,495)=""
^DD("IX","B",120.86,489)=""
^DD("IX","B",123,81)=""
^DD("IX","B",123,102)=""
^DD("IX","B",123,111)=""
^DD("IX","B",123.02,112)=""
^DD("IX","B",123.051,113)=""
^DD("IX","B",123.555,171)=""
^DD("IX","B",123.58,172)=""
^DD("IX","B",123.6,114)=""
^DD("IX","B",123.6,115)=""
^DD("IX","B",130,196)=""
^DD("IX","B",130,376)=""
^DD("IX","B",130,379)=""
^DD("IX","B",130,380)=""
^DD("IX","B",130,381)=""
^DD("IX","B",130,382)=""
^DD("IX","B",130,383)=""
^DD("IX","B",130,384)=""
^DD("IX","B",130,385)=""
^DD("IX","B",130,386)=""
^DD("IX","B",130,387)=""
^DD("IX","B",130,388)=""
^DD("IX","B",130,412)=""
^DD("IX","B",130.028,197)=""
^DD("IX","B",130.16,198)=""
^DD("IX","B",130.164,199)=""
^DD("IX","B",130.28,389)=""
^DD("IX","B",142,563)=""
^DD("IX","B",154.1,39)=""
^DD("IX","B",161.45,66)=""
^DD("IX","B",162,299)=""
^DD("IX","B",162.1,67)=""
^DD("IX","B",162.1,68)=""
^DD("IX","B",162.1,69)=""
^DD("IX","B",162.1,70)=""
^DD("IX","B",162.1,300)=""
^DD("IX","B",162.2,71)=""
^DD("IX","B",162.3,72)=""
^DD("IX","B",162.5,73)=""
^DD("IX","B",162.5,74)=""
^DD("IX","B",162.5,75)=""
^DD("IX","B",162.5,301)=""
^DD("IX","B",162.7,302)=""
^DD("IX","B",200,8)=""
^DD("IX","B",200,9)=""
^DD("IX","B",200,169)=""
^DD("IX","B",200,173)=""
^DD("IX","B",200,174)=""
^DD("IX","B",200,228)=""
^DD("IX","B",200,407)=""
^DD("IX","B",200,497)=""
^DD("IX","B",200,650)=""
^DD("IX","B",200,680)=""
^DD("IX","B",344.3,289)=""
^DD("IX","B",344.3,290)=""
^DD("IX","B",344.4,291)=""
^DD("IX","B",344.4,292)=""
^DD("IX","B",344.41,293)=""
^DD("IX","B",344.5,294)=""
^DD("IX","B",344.5,295)=""
^DD("IX","B",344.54,296)=""
^DD("IX","B",351.6,40)=""
^DD("IX","B",351.6,41)=""
^DD("IX","B",351.61,42)=""
^DD("IX","B",351.81,149)=""
^DD("IX","B",352.5,107)=""
^DD("IX","B",354.7,64)=""
^DD("IX","B",354.71,65)=""
^DD("IX","B",354.75,106)=""
^DD("IX","B",355.9,116)=""
^DD("IX","B",355.9,117)=""
^DD("IX","B",355.9,118)=""
^DD("IX","B",355.9,119)=""
^DD("IX","B",355.9,120)=""
^DD("IX","B",355.91,121)=""
^DD("IX","B",355.91,122)=""
^DD("IX","B",355.92,413)=""
^DD("IX","B",355.92,674)=""
^DD("IX","B",355.93,705)=""
^DD("IX","B",355.95,123)=""
^DD("IX","B",355.96,124)=""
^DD("IX","B",355.96,125)=""
^DD("IX","B",355.96,126)=""
^DD("IX","B",355.96,127)=""
^DD("IX","B",355.96,128)=""
^DD("IX","B",361,129)=""
^DD("IX","B",361,130)=""
^DD("IX","B",361,416)=""
^DD("IX","B",361.1,131)=""
^DD("IX","B",361.1,132)=""
^DD("IX","B",361.1,184)=""
^DD("IX","B",361.1,297)=""
^DD("IX","B",361.1,307)=""
^DD("IX","B",361.3,133)=""
^DD("IX","B",364,134)=""
^DD("IX","B",364,135)=""
^DD("IX","B",364,136)=""
^DD("IX","B",364,137)=""
^DD("IX","B",364.4,138)=""
^DD("IX","B",364.6,50)=""
^DD("IX","B",364.6,51)=""
^DD("IX","B",364.6,279)=""
^DD("IX","B",364.7,52)=""
^DD("IX","B",365,275)=""
^DD("IX","B",365.1,276)=""
^DD("IX","B",365.11,277)=""
^DD("IX","B",366.03,417)=""
^DD("IX","B",375,628)=""
^DD("IX","B",375,629)=""
^DD("IX","B",391.23,86)=""
^DD("IX","B",391.23,406)=""
^DD("IX","B",391.31,792)=""
^DD("IX","B",391.72,11)=""
^DD("IX","B",391.91,12)=""
^DD("IX","B",392.31,213)=""
^DD("IX","B",399,139)=""
^DD("IX","B",399,477)=""
^DD("IX","B",399.0222,140)=""
^DD("IX","B",399.0222,141)=""
^DD("IX","B",399.0222,142)=""
^DD("IX","B",399.042,53)=""
^DD("IX","B",399.047,723)=""
^DD("IX","B",404.42,181)=""
^DD("IX","B",404.43,182)=""
^DD("IX","B",404.43,183)=""
^DD("IX","B",404.57,207)=""
^DD("IX","B",404.57,208)=""
^DD("IX","B",404.59,209)=""
^DD("IX","B",409.35,623)=""
^DD("IX","B",409.48,718)=""
^DD("IX","B",409.48,719)=""
^DD("IX","B",409.48,720)=""
^DD("IX","B",409.55,639)=""
^DD("IX","B",409.6,87)=""
^DD("IX","B",409.6,88)=""
^DD("IX","B",409.6,99)=""
^DD("IX","B",410.02,580)=""
^DD("IX","B",414.02,581)=""
^DD("IX","B",414.03,582)=""
^DD("IX","B",414.04,600)=""
^DD("IX","B",420.14,791)=""
^DD("IX","B",440.5,55)=""
^DD("IX","B",440.5,56)=""
^DD("IX","B",441,601)=""
^DD("IX","B",442.01,602)=""
^DD("IX","B",445,711)=""
^DD("IX","B",445.2,48)=""
^DD("IX","B",447.1,49)=""
^DD("IX","B",458,78)=""
^DD("IX","B",458,707)=""
^DD("IX","B",458.4,708)=""
^DD("IX","B",458.7,709)=""
^DD("IX","B",458.8,721)=""
^DD("IX","B",458.82,722)=""
^DD("IX","B",550.215,325)=""
^DD("IX","B",577,479)=""
^DD("IX","B",601.2,476)=""
^DD("IX","B",601.75,215)=""
^DD("IX","B",601.751,724)=""
^DD("IX","B",601.76,725)=""
^DD("IX","B",601.76,726)=""
^DD("IX","B",601.78,727)=""
^DD("IX","B",601.79,728)=""
^DD("IX","B",601.83,729)=""
^DD("IX","B",601.84,730)=""
^DD("IX","B",601.84,731)=""
^DD("IX","B",601.85,732)=""
^DD("IX","B",601.86,733)=""
^DD("IX","B",601.87,734)=""
^DD("IX","B",661.11,10)=""
^DD("IX","B",661.11,13)=""
^DD("IX","B",661.11,14)=""
^DD("IX","B",661.11,15)=""
^DD("IX","B",661.4,20)=""
^DD("IX","B",661.4,21)=""
^DD("IX","B",661.41,22)=""
^DD("IX","B",661.5,23)=""
^DD("IX","B",661.5,28)=""
^DD("IX","B",661.5,29)=""
^DD("IX","B",661.6,30)=""
^DD("IX","B",661.6,31)=""
^DD("IX","B",661.6,32)=""
^DD("IX","B",661.6,33)=""
^DD("IX","B",661.6,34)=""
^DD("IX","B",661.6,35)=""
^DD("IX","B",661.7,36)=""
^DD("IX","B",661.7,37)=""
^DD("IX","B",661.7,63)=""
^DD("IX","B",661.9,79)=""
^DD("IX","B",700,44)=""
^DD("IX","B",700,45)=""
^DD("IX","B",702.001,280)=""
^DD("IX","B",702.001,509)=""
^DD("IX","B",702.001,510)=""
^DD("IX","B",712.5,191)=""
^DD("IX","B",712.5,192)=""
^DD("IX","B",712.5,193)=""
^DD("IX","B",712.6,194)=""
^DD("IX","B",713.1,143)=""
^DD("IX","B",713.2,144)=""
^DD("IX","B",772,345)=""
^DD("IX","B",772,781)=""
^DD("IX","B",773,346)=""
^DD("IX","B",773,347)=""
^DD("IX","B",773,782)=""
^DD("IX","B",776.3,348)=""
^DD("IX","B",776.3,349)=""
^DD("IX","B",776.4,350)=""
^DD("IX","B",776.4,351)=""
^DD("IX","B",776.4,352)=""
^DD("IX","B",776.4,353)=""
^DD("IX","B",776.4,354)=""
^DD("IX","B",776.4,355)=""
^DD("IX","B",776.4,356)=""
^DD("IX","B",776.4,357)=""
^DD("IX","B",776.4,358)=""
^DD("IX","B",776.4,359)=""
^DD("IX","B",776.4,360)=""
^DD("IX","B",776.5,361)=""
^DD("IX","B",776.5,362)=""
^DD("IX","B",779.004,654)=""
^DD("IX","B",779.2,84)=""
^DD("IX","B",779.21,89)=""
^DD("IX","B",779.21,704)=""
^DD("IX","B",779.3,90)=""
^DD("IX","B",779.3,91)=""
^DD("IX","B",779.4,712)=""
^DD("IX","B",779.41,92)=""
^DD("IX","B",779.41,93)=""
^DD("IX","B",779.41,713)=""
^DD("IX","B",790.1,564)=""
^DD("IX","B",798,100)=""
^DD("IX","B",798,150)=""
^DD("IX","B",798,153)=""
^DD("IX","B",798,157)=""
^DD("IX","B",798,158)=""
^DD("IX","B",798,363)=""
^DD("IX","B",798,366)=""
^DD("IX","B",798,374)=""
^DD("IX","B",798.02,159)=""
^DD("IX","B",798.1,151)=""
^DD("IX","B",798.11,160)=""
^DD("IX","B",798.118,220)=""
^DD("IX","B",798.122,221)=""
^DD("IX","B",798.128,364)=""
^DD("IX","B",798.129,365)=""
^DD("IX","B",798.13,152)=""
^DD("IX","B",798.2,154)=""
^DD("IX","B",798.26,155)=""
^DD("IX","B",798.31,156)=""
^DD("IX","B",798.32,367)=""
^DD("IX","B",798.32,368)=""
^DD("IX","B",798.7,161)=""
^DD("IX","B",798.87,369)=""
^DD("IX","B",798.87,370)=""
^DD("IX","B",798.87,371)=""
^DD("IX","B",798.9,162)=""
^DD("IX","B",799.1,163)=""
^DD("IX","B",799.2,164)=""
^DD("IX","B",799.22,165)=""
^DD("IX","B",799.31,222)=""
^DD("IX","B",799.34,372)=""
^DD("IX","B",799.41,373)=""
^DD("IX","B",799.41,706)=""
^DD("IX","B",799.51,375)=""
^DD("IX","B",799.51,630)=""
^DD("IX","B",799.53,631)=""
^DD("IX","B",799.6,632)=""
^DD("IX","B",799.6,633)=""
^DD("IX","B",799.61,634)=""
^DD("IX","B",799.63,635)=""
^DD("IX","B",799.63,636)=""
^DD("IX","B",799.64,637)=""
^DD("IX","B",799.64,638)=""
^DD("IX","B",801.41,735)=""
^DD("IX","B",801.41,736)=""
^DD("IX","B",801.5,281)=""
^DD("IX","B",801.5,282)=""
^DD("IX","B",801.5,283)=""
^DD("IX","B",801.55,286)=""
^DD("IX","B",801.55,287)=""
^DD("IX","B",801.55,288)=""
^DD("IX","B",801.55,377)=""
^DD("IX","B",801.9,284)=""
^DD("IX","B",801.9,285)=""
^DD("IX","B",802.4,378)=""
^DD("IX","B",810.21,737)=""
^DD("IX","B",810.3,505)=""
^DD("IX","B",810.3,506)=""
^DD("IX","B",810.3,507)=""
^DD("IX","B",810.3,508)=""
^DD("IX","B",810.4,738)=""
^DD("IX","B",810.41,739)=""
^DD("IX","B",810.5,740)=""
^DD("IX","B",810.5,741)=""
^DD("IX","B",810.531,742)=""
^DD("IX","B",810.535,743)=""
^DD("IX","B",810.701,744)=""
^DD("IX","B",810.8,745)=""
^DD("IX","B",810.801,746)=""
^DD("IX","B",810.9,531)=""
^DD("IX","B",810.9001,532)=""
^DD("IX","B",811.2,511)=""
^DD("IX","B",811.2,512)=""
^DD("IX","B",811.22102,513)=""
^DD("IX","B",811.22102,514)=""
^DD("IX","B",811.22102,515)=""
^DD("IX","B",811.22103,516)=""
^DD("IX","B",811.22103,517)=""
^DD("IX","B",811.22103,518)=""
^DD("IX","B",811.22104,519)=""
^DD("IX","B",811.22104,520)=""
^DD("IX","B",811.22104,521)=""
^DD("IX","B",811.31,522)=""
^DD("IX","B",811.32,523)=""
^DD("IX","B",811.371,524)=""
^DD("IX","B",811.381,525)=""
^DD("IX","B",811.4,526)=""
^DD("IX","B",811.5,747)=""
^DD("IX","B",811.5,748)=""
^DD("IX","B",811.5,749)=""
^DD("IX","B",811.52,750)=""
^DD("IX","B",811.52,751)=""
^DD("IX","B",811.52,752)=""
^DD("IX","B",811.52,753)=""
^DD("IX","B",811.6,625)=""
^DD("IX","B",811.6,626)=""
^DD("IX","B",811.7,536)=""
^DD("IX","B",811.8,754)=""
^DD("IX","B",811.8,755)=""
^DD("IX","B",811.803,756)=""
^DD("IX","B",811.9,757)=""
^DD("IX","B",811.9,758)=""
^DD("IX","B",811.9,759)=""
^DD("IX","B",811.9,760)=""
^DD("IX","B",811.9,761)=""
^DD("IX","B",811.9,762)=""
^DD("IX","B",811.9,763)=""
^DD("IX","B",811.9002,764)=""
^DD("IX","B",811.902,765)=""
^DD("IX","B",811.902,766)=""
^DD("IX","B",811.902,767)=""
^DD("IX","B",811.902,768)=""
^DD("IX","B",811.902,769)=""
^DD("IX","B",811.902,770)=""
^DD("IX","B",811.902,771)=""
^DD("IX","B",811.902,772)=""
^DD("IX","B",811.902,773)=""
^DD("IX","B",811.902,774)=""
^DD("IX","B",811.925,775)=""
^DD("IX","B",811.925,776)=""
^DD("IX","B",811.925,777)=""
^DD("IX","B",811.925,778)=""
^DD("IX","B",811.925,779)=""
^DD("IX","B",811.925,780)=""
^DD("IX","B",870,94)=""
^DD("IX","B",870,95)=""
^DD("IX","B",870,101)=""
^DD("IX","B",870,108)=""
^DD("IX","B",870,109)=""
^DD("IX","B",870,216)=""
^DD("IX","B",870,217)=""
^DD("IX","B",870,218)=""
^DD("IX","B",870,219)=""
^DD("IX","B",2005,76)=""
^DD("IX","B",2005,168)=""
^DD("IX","B",2005,212)=""
^DD("IX","B",2005,527)=""
^DD("IX","B",2005,658)=""
^DD("IX","B",2005,671)=""
^DD("IX","B",2005.001,657)=""
^DD("IX","B",2005.1,77)=""
^DD("IX","B",2005.1,528)=""
^DD("IX","B",2005.1,659)=""
^DD("IX","B",2005.1,672)=""
^DD("IX","B",2005.1,673)=""
^DD("IX","B",2005.2,660)=""
^DD("IX","B",2005.2,661)=""
^DD("IX","B",2005.85,206)=""
^DD("IX","B",2006.03,662)=""
^DD("IX","B",2006.03,663)=""
^DD("IX","B",2006.03,664)=""
^DD("IX","B",2006.03,665)=""
^DD("IX","B",2006.031,666)=""
^DD("IX","B",2006.032,667)=""
^DD("IX","B",2006.035,203)=""
^DD("IX","B",2006.035,204)=""
^DD("IX","B",2006.532,224)=""
^DD("IX","B",2006.532,225)=""
^DD("IX","B",2006.562,538)=""
^DD("IX","B",2006.562,539)=""
^DD("IX","B",2006.562,540)=""
^DD("IX","B",2006.562,541)=""
^DD("IX","B",2006.564,82)=""
^DD("IX","B",2006.5713,390)=""
^DD("IX","B",2006.574,226)=""
^DD("IX","B",2006.575,227)=""
^DD("IX","B",2006.575,391)=""
^DD("IX","B",2006.575,392)=""
^DD("IX","B",2006.582,83)=""
^DD("IX","B",2006.5839,85)=""
^DD("IX","B",2006.5841,529)=""
^DD("IX","B",2006.5849,530)=""
^DD("IX","B",2006.5849,533)=""
^DD("IX","B",2006.5849,537)=""
^DD("IX","B",2006.587,655)=""
^DD("IX","B",2006.587,656)=""
^DD("IX","B",2006.5906,205)=""
^DD("IX","B",2006.8,668)=""
^DD("IX","B",2006.82,669)=""
^DD("IX","B",2006.82,670)=""
^DD("IX","B",2260,567)=""
^DD("IX","B",2260.095,568)=""
^DD("IX","B",2261.4,202)=""
^DD("IX","B",2261.9,96)=""
^DD("IX","B",2262.2,97)=""
^DD("IX","B",2263,57)=""
^DD("IX","B",2263.1,58)=""
^DD("IX","B",2263.2,59)=""
^DD("IX","B",2263.3,60)=""
^DD("IX","B",2263.7,61)=""
^DD("IX","B",6914,783)=""
^DD("IX","B",6914,784)=""
^DD("IX","B",6914,785)=""
^DD("IX","B",6914,786)=""
^DD("IX","B",6914.1,787)=""
^DD("IX","B",6916.3,788)=""
^DD("IX","B",6916.3,789)=""
^DD("IX","B",6916.3,790)=""
^DD("IX","B",7115.5,573)=""
^DD("IX","B",7115.6,574)=""
^DD("IX","B",7118.11,575)=""
^DD("IX","B",7118.21,576)=""
^DD("IX","B",7118.22,577)=""
^DD("IX","B",7118.22,578)=""
^DD("IX","B",7118.25,579)=""
^DD("IX","B",8925,247)=""
^DD("IX","B",8925,308)=""
^DD("IX","B",8925.6,696)=""
^DD("IX","B",8925.7,2)=""
^DD("IX","B",8925.7,569)=""
^DD("IX","B",8926.1,697)=""
^DD("IX","B",8926.2,698)=""
^DD("IX","B",8926.3,699)=""
^DD("IX","B",8926.4,700)=""
^DD("IX","B",8926.5,701)=""
^DD("IX","B",8926.6,702)=""
^DD("IX","B",8927.1,62)=""
^DD("IX","B",8932.2,229)=""
^DD("IX","B",8935.91,342)=""
^DD("IX","B",8985.1,570)=""
^DD("IX","B",8985.1,571)=""
^DD("IX","B",8985.11,572)=""
^DD("IX","B",509850.9,304)=""
^DD("IX","B",509850.9,305)=""
^DD("IX","B",537015,214)=""
^DD("IX","B",791814,278)=""
^DD("IX","B",9000010.07,472)=""
^DD("IX","B",9000010.11,470)=""
^DD("IX","B",9000010.12,473)=""
^DD("IX","B",9000010.13,474)=""
^DD("IX","B",9000010.16,471)=""
^DD("IX","B",9000010.18,467)=""
^DD("IX","B",9000010.23,468)=""
^DD("IX","B",9000010.23,469)=""
^DD("IX","B",9000011,459)=""
^DD("IX","B","779.41.",92)=""
^DD("IX","B","779.41.",713)=""
^DD("IX","BB",0,"ADEL",.001)=""
^DD("IX","BB",.11,"BB",.1101)=""
^DD("IX","BB",.11,"F",.11403)=""
^DD("IX","BB",.11,"IX",.1102)=""
^DD("IX","BB",.114,"AC",.11402)=""
^DD("IX","BB",.114,"BB",.11401)=""
^DD("IX","BB",.31,"AP",.3102)=""
^DD("IX","BB",.31,"AU",.3103)=""
^DD("IX","BB",.31,"BB",.3101)=""
^DD("IX","BB",.31,"F",.31202)=""
^DD("IX","BB",.312,"BB",.31201)=""
^DD("IX","BB",.312,"S",.31203)=""
^DD("IX","BB",2,"ACVCOM",303)=""
^DD("IX","BB",2,"ADGFM351",703)=""
^DD("IX","BB",2,"ADGFMD01",177)=""
^DD("IX","BB",2,"ADGFMD03",178)=""
^DD("IX","BB",2,"ADGFMD09",179)=""
^DD("IX","BB",2,"ADGFMD111",230)=""
^DD("IX","BB",2,"ADGFMD1112",231)=""
^DD("IX","BB",2,"ADGFMD112",232)=""
^DD("IX","BB",2,"ADGFMD113",233)=""
^DD("IX","BB",2,"ADGFMD114",234)=""
^DD("IX","BB",2,"ADGFMD115",235)=""
^DD("IX","BB",2,"ADGFMD116",236)=""
^DD("IX","BB",2,"ADGFMD1411",237)=""
^DD("IX","BB",2,"ADGFMD1412",238)=""
^DD("IX","BB",2,"ADGFMD1413",239)=""
^DD("IX","BB",2,"ADGFMD1414",240)=""
^DD("IX","BB",2,"ADGFMD1415",241)=""
^DD("IX","BB",2,"ADGFMD1416",242)=""
^DD("IX","BB",2,"ADGFMD1417",243)=""
^DD("IX","BB",2,"ADGFMD1418",244)=""
^DD("IX","BB",2,"ADGFMD351",180)=""
^DD("IX","BB",2,"ADTTM1",603)=""
^DD("IX","BB",2,"ADTTM2",604)=""
^DD("IX","BB",2,"ADTTM3",605)=""
^DD("IX","BB",2,"ADTTM4",606)=""
^DD("IX","BB",2,"ADTTM5",607)=""
^DD("IX","BB",2,"ADTTM6",608)=""
^DD("IX","BB",2,"ADTTM7",609)=""
^DD("IX","BB",2,"AMSEL",408)=""
^DD("IX","BB",2,"AMSENL",409)=""
^DD("IX","BB",2,"AMSENNL",410)=""
^DD("IX","BB",2,"ANAM01",589)=""
^DD("IX","BB",2,"ANAM1001",599)=""
^DD("IX","BB",2,"ANAM201",598)=""
^DD("IX","BB",2,"ANAM211",590)=""
^DD("IX","BB",2,"ANAM2191",591)=""
^DD("IX","BB",2,"ANAM2401",592)=""
^DD("IX","BB",2,"ANAM2402",593)=""
^DD("IX","BB",2,"ANAM2403",594)=""
^DD("IX","BB",2,"ANAM331",595)=""
^DD("IX","BB",2,"ANAM3311",596)=""
^DD("IX","BB",2,"ANAM341",597)=""
^DD("IX","BB",2,"APRFEVT",689)=""
^DD("IX","BB",2,"APTYPE",643)=""
^DD("IX","BB",2,"ASERLAST",640)=""
^DD("IX","BB",2,"ASERNNTL",642)=""
^DD("IX","BB",2,"ASERNTL",641)=""
^DD("IX","BB",2,"AVAFC0906",714)=""
^DD("IX","BB",2,"AVAFC525",627)=""
^DD("IX","BB",2,"AVAFC994",396)=""
^DD("IX","BB",2,"AXENR13",715)=""
^DD("IX","BB",2,"AZIPLINK",185)=""
^DD("IX","BB",2,"AZIPLNK2",186)=""
^DD("IX","BB",2,"NOP",588)=""
^DD("IX","BB",2.01,"AVAFC20101",397)=""
^DD("IX","BB",2.02,"AVAFC20201",398)=""
^DD("IX","BB",2.04,"ARD",411)=""
^DD("IX","BB",2.06,"AONLYONE",195)=""
^DD("IX","BB",2.06,"AVAFC20601",399)=""
^DD("IX","BB",2.141,"ACEE141",716)=""
^DD("IX","BB",2.141,"ADGFM1",246)=""
^DD("IX","BB",2.141,"ADGFMD01",245)=""
^DD("IX","BB",2.3215,"ACVCOM1",681)=""
^DD("IX","BB",2.3215,"ALOEIF",675)=""
^DD("IX","BB",2.3215,"ALSTUP",676)=""
^DD("IX","BB",3.702,"AC",170)=""
^DD("IX","BB",3.81,"AC",54)=""
^DD("IX","BB",3.81,"B",1)=""
^DD("IX","BB",3.9,"AF",43)=""
^DD("IX","BB",4,"NPI42",677)=""
^DD("IX","BB",4,"TAXSTATUS",678)=""
^DD("IX","BB",4,"XUMFAL",679)=""
^DD("IX","BB",4,"XUMFID",339)=""
^DD("IX","BB",4,"XUMFIDX",340)=""
^DD("IX","BB",4,"XUMFKEY",341)=""
^DD("IX","BB",4.005,"AC",534)=""
^DD("IX","BB",4.009,"AMASTERVUID",535)=""
^DD("IX","BB",5,"ADUALC",649)=""
^DD("IX","BB",5.12,"AD",272)=""
^DD("IX","BB",5.13,"AC",273)=""
^DD("IX","BB",5.13,"D",274)=""
^DD("IX","BB",9.64,"AD",249)=""
^DD("IX","BB",18.04,"C",332)=""
^DD("IX","BB",18.05,"MSGTYPE",333)=""
^DD("IX","BB",18.05,"NAME",334)=""
^DD("IX","BB",20,"ADEG",3)=""
^DD("IX","BB",20,"ANAME",4)=""
^DD("IX","BB",20,"ASIG",5)=""
^DD("IX","BB",20,"BB",6)=""
^DD("IX","BB",20,"C",7)=""
^DD("IX","BB",26.11,"AINACT",255)=""
^DD("IX","BB",26.11,"ASTAT",256)=""
^DD("IX","BB",26.11,"ATIU",644)=""
^DD("IX","BB",26.11,"ATYP",257)=""
^DD("IX","BB",26.11,"C",645)=""
^DD("IX","BB",26.12,"C",258)=""
^DD("IX","BB",26.13,"AFLAG",259)=""
^DD("IX","BB",26.13,"AFREV",260)=""
^DD("IX","BB",26.13,"ANDAT",261)=""
^DD("IX","BB",26.13,"AOWN",690)=""
^DD("IX","BB",26.13,"ASTAT",262)=""
^DD("IX","BB",26.13,"C",263)=""
^DD("IX","BB",26.13,"D",264)=""
^DD("IX","BB",26.14,"APPRO",265)=""
^DD("IX","BB",26.14,"ATIUPN",646)=""
^DD("IX","BB",26.14,"C",266)=""
^DD("IX","BB",26.14,"D",267)=""
^DD("IX","BB",26.15,"AINACT",268)=""
^DD("IX","BB",26.15,"ASTAT",269)=""
^DD("IX","BB",26.15,"ATIU",647)=""
^DD("IX","BB",26.15,"ATYPE",270)=""
^DD("IX","BB",26.15,"C",648)=""
^DD("IX","BB",26.17,"ASTAT",271)=""
^DD("IX","BB",26.19,"C",691)=""
^DD("IX","BB",26.21,"ASTAT",692)=""
^DD("IX","BB",28.11,"APR",103)=""
^DD("IX","BB",28.11,"APTDT",104)=""
^DD("IX","BB",28.11,"AST",105)=""
^DD("IX","BB",29.11,"APDT",110)=""
^DD("IX","BB",39.6,"APDAT",400)=""
^DD("IX","BB",39.6,"ASTAT",401)=""
^DD("IX","BB",39.6,"ASTAT2XMIT",402)=""
^DD("IX","BB",39.6,"AXMIT",403)=""
^DD("IX","BB",39.7,"ADATE",404)=""
^DD("IX","BB",39.7,"ASTAT",405)=""
^DD("IX","BB",40.8,"APRF",693)=""
^DD("IX","BB",44,"ACST",457)=""
^DD("IX","BB",44,"AST",458)=""
^DD("IX","BB",45,"AB",624)=""
^DD("IX","BB",45,"ACR0P1",427)=""
^DD("IX","BB",45,"ACR0P2",428)=""
^DD("IX","BB",45,"ACR0P3",429)=""
^DD("IX","BB",45,"ACR0P4",430)=""
^DD("IX","BB",45,"ACR0P5",431)=""
^DD("IX","BB",45,"ACR0S1",422)=""
^DD("IX","BB",45,"ACR0S2",423)=""
^DD("IX","BB",45,"ACR0S3",424)=""
^DD("IX","BB",45,"ACR0S4",425)=""
^DD("IX","BB",45,"ACR0S5",426)=""
^DD("IX","BB",45,"ACR9DSD1",434)=""
^DD("IX","BB",45,"ACR9DSD10",443)=""
^DD("IX","BB",45,"ACR9DSD11",444)=""
^DD("IX","BB",45,"ACR9DSD12",445)=""
^DD("IX","BB",45,"ACR9DSD13",446)=""
^DD("IX","BB",45,"ACR9DSD2",435)=""
^DD("IX","BB",45,"ACR9DSD3",436)=""
^DD("IX","BB",45,"ACR9DSD4",437)=""
^DD("IX","BB",45,"ACR9DSD5",438)=""
^DD("IX","BB",45,"ACR9DSD6",439)=""
^DD("IX","BB",45,"ACR9DSD7",440)=""
^DD("IX","BB",45,"ACR9DSD8",441)=""
^DD("IX","BB",45,"ACR9DSD9",442)=""
^DD("IX","BB",45,"ACR9DXLS",432)=""
^DD("IX","BB",45,"ACR9MICD1",447)=""
^DD("IX","BB",45,"ACR9MICD10",456)=""
^DD("IX","BB",45,"ACR9MICD2",448)=""
^DD("IX","BB",45,"ACR9MICD3",449)=""
^DD("IX","BB",45,"ACR9MICD4",450)=""
^DD("IX","BB",45,"ACR9MICD5",451)=""
^DD("IX","BB",45,"ACR9MICD6",452)=""
^DD("IX","BB",45,"ACR9MICD7",453)=""
^DD("IX","BB",45,"ACR9MICD8",454)=""
^DD("IX","BB",45,"ACR9MICD9",455)=""
^DD("IX","BB",45,"ACR9PDX",433)=""
^DD("IX","BB",46.14,"AD",46)=""
^DD("IX","BB",50,"AOC",38)=""
^DD("IX","BB",50.416,"AMASTERVUID",610)=""
^DD("IX","BB",50.416,"P1",223)=""
^DD("IX","BB",50.6,"AMASTERVUID",611)=""
^DD("IX","BB",50.605,"AMASTERVUID",612)=""
^DD("IX","BB",50.68,"AMASTERVUID",613)=""
^DD("IX","BB",52,"ACRO",461)=""
^DD("IX","BB",52,"ACRP",463)=""
^DD("IX","BB",52,"ACRR",462)=""
^DD("IX","BB",52,"APKI",250)=""
^DD("IX","BB",52,"D",175)=""
^DD("IX","BB",52,"REJDAT",652)=""
^DD("IX","BB",52,"REJSTS",653)=""
^DD("IX","BB",52.41,"APKI",251)=""
^DD("IX","BB",52.41,"C",176)=""
^DD("IX","BB",52.43,"AC",619)=""
^DD("IX","BB",52.43,"AINST",620)=""
^DD("IX","BB",52.5,"CMP",248)=""
^DD("IX","BB",52.91,"AC",253)=""
^DD("IX","BB",52.91,"AX",254)=""
^DD("IX","BB",53.1,"AD",502)=""
^DD("IX","BB",53.7,"AW",252)=""
^DD("IX","BB",53.79,"AORDX",47)=""
^DD("IX","BB",53.79,"APATCH",146)=""
^DD("IX","BB",53.79,"AUID",147)=""
^DD("IX","BB",53.795,"APATCH",148)=""
^DD("IX","BB",55,"ACRIV",466)=""
^DD("IX","BB",55,"ACRNVA",464)=""
^DD("IX","BB",55,"ACRUD",465)=""
^DD("IX","BB",55,"ACX",414)=""
^DD("IX","BB",55,"ACX1",415)=""
^DD("IX","BB",55,"AIVC",498)=""
^DD("IX","BB",55,"AUDC",499)=""
^DD("IX","BB",55.01,"AIN",500)=""
^DD("IX","BB",55.0105,"BCMA1",145)=""
^DD("IX","BB",55.06,"AUN",501)=""
^DD("IX","BB",57.8,"AC",503)=""
^DD("IX","BB",57.8,"AD",504)=""
^DD("IX","BB",59.9,"C",80)=""
^DD("IX","BB",62.49,"AC",16)=""
^DD("IX","BB",62.49,"Q",17)=""
^DD("IX","BB",62.8,"C",478)=""
^DD("IX","BB",62.9,"CH",18)=""
^DD("IX","BB",63.12,"AC",565)=""
^DD("IX","BB",63.912,"AC",566)=""
^DD("IX","BB",69,"APP",651)=""
^DD("IX","BB",70,"ACR",475)=""
^DD("IX","BB",95.3,"AMASTERVUID",717)=""
^DD("IX","BB",100,"AEVNT",187)=""
^DD("IX","BB",100,"ARS",210)=""
^DD("IX","BB",100.01,"AMASTERVUID",694)=""
^DD("IX","BB",100.02,"AMASTERVUID",695)=""
^DD("IX","BB",100.2,"AC",188)=""
^DD("IX","BB",100.2,"ADT",189)=""
^DD("IX","BB",100.2,"AE",190)=""
^DD("IX","BB",100.5,"C",19)=""
^DD("IX","BB",100.52,"ACT",24)=""
^DD("IX","BB",100.6,"AC",25)=""
^DD("IX","BB",100.6,"AE",26)=""
^DD("IX","BB",100.61,"ACT",27)=""
^DD("IX","BB",100.62,"ADC",166)=""
^DD("IX","BB",101.13,"C",167)=""
^DD("IX","BB",101.15,"B",98)=""
^DD("IX","BB",102.211,"AC",211)=""
^DD("IX","BB",102.3,"DUE",343)=""
^DD("IX","BB",102.4,"ACK",344)=""
^DD("IX","BB",115,"ASPO",298)=""
^DD("IX","BB",120.5,"ACR",460)=""
^DD("IX","BB",120.5,"AHDRERR",201)=""
^DD("IX","BB",120.5,"AHDRNEW",200)=""
^DD("IX","BB",120.51,"AMASTERVUID",585)=""
^DD("IX","BB",120.52,"AMASTERVUID",586)=""
^DD("IX","BB",120.53,"AMASTERVUID",587)=""
^DD("IX","BB",120.8,"AHDR",482)=""
^DD("IX","BB",120.802,"AHDR",483)=""
^DD("IX","BB",120.803,"AHDR",484)=""
^DD("IX","BB",120.81,"AHDR",485)=""
^DD("IX","BB",120.813,"AHDR",487)=""
^DD("IX","BB",120.814,"AHDR",488)=""
^DD("IX","BB",120.82,"AC",618)=""
^DD("IX","BB",120.82,"AD",710)=""
^DD("IX","BB",120.82,"AMASTERVUID",614)=""
^DD("IX","BB",120.8205,"AC",617)=""
^DD("IX","BB",120.824,"AC",616)=""
^DD("IX","BB",120.826,"AHDR",486)=""
^DD("IX","BB",120.83,"AMASTERVUID",615)=""
^DD("IX","BB",120.85,"AHDR",490)=""
^DD("IX","BB",120.8502,"AHDR",491)=""
^DD("IX","BB",120.8503,"AHDR",492)=""
^DD("IX","BB",120.8504,"AHDR",493)=""
^DD("IX","BB",120.8513,"AHDR",494)=""
^DD("IX","BB",120.85315,"AHDR",496)=""
^DD("IX","BB",120.8563,"AHDR",495)=""
^DD("IX","BB",120.86,"AHDR",489)=""
^DD("IX","BB",123,"ACP",102)=""
^DD("IX","BB",123,"AE",81)=""
^DD("IX","BB",123,"AIFC",111)=""
^DD("IX","BB",123.02,"AC",112)=""
^DD("IX","BB",123.051,"AR",113)=""
^DD("IX","BB",123.555,"AC",171)=""
^DD("IX","BB",123.58,"AC",172)=""
^DD("IX","BB",123.6,"AC",114)=""
^DD("IX","BB",123.6,"C",115)=""
^DD("IX","BB",130,"AD",196)=""
^DD("IX","BB",130,"AES",379)=""
^DD("IX","BB",130,"AES1",380)=""
^DD("IX","BB",130,"AES2",381)=""
^DD("IX","BB",130,"AES3",382)=""
^DD("IX","BB",130,"AES4",383)=""
^DD("IX","BB",130,"AES5",384)=""
^DD("IX","BB",130,"AES6",385)=""
^DD("IX","BB",130,"AES8",386)=""
^DD("IX","BB",130,"AESA",387)=""
^DD("IX","BB",130,"AESP",388)=""
^DD("IX","BB",130,"AG",376)=""
^DD("IX","BB",130,"AK",412)=""
^DD("IX","BB",130.028,"AC",197)=""
^DD("IX","BB",130.16,"AC",198)=""
^DD("IX","BB",130.164,"AC",199)=""
^DD("IX","BB",130.28,"AES7",389)=""
^DD("IX","BB",142,"HST",563)=""
^DD("IX","BB",154.1,"D",39)=""
^DD("IX","BB",161.45,"C",66)=""
^DD("IX","BB",162,"AFC",299)=""
^DD("IX","BB",162.1,"AA",67)=""
^DD("IX","BB",162.1,"AFC",300)=""
^DD("IX","BB",162.1,"AG",68)=""
^DD("IX","BB",162.1,"AJ",69)=""
^DD("IX","BB",162.1,"AK",70)=""
^DD("IX","BB",162.2,"AI",71)=""
^DD("IX","BB",162.3,"AD",72)=""
^DD("IX","BB",162.5,"AA",73)=""
^DD("IX","BB",162.5,"AE",74)=""
^DD("IX","BB",162.5,"AFC",301)=""
^DD("IX","BB",162.5,"AI",75)=""
^DD("IX","BB",162.7,"AFC",302)=""
^DD("IX","BB",200,"ADEG",8)=""
^DD("IX","BB",200,"ANAME",9)=""
^DD("IX","BB",200,"ATR",228)=""
^DD("IX","BB",200,"AUSER",650)=""
^DD("IX","BB",200,"AUSERKEY",497)=""
^DD("IX","BB",200,"AVISIT",169)=""
^DD("IX","BB",200,"AXUHUI",173)=""
^DD("IX","BB",200,"AXUHUIKEY",174)=""
^DD("IX","BB",200,"B",407)=""
^DD("IX","BB",200,"NPI42",680)=""
^DD("IX","BB",344.3,"ADEP",289)=""
^DD("IX","BB",344.3,"APOST",290)=""
^DD("IX","BB",344.4,"ARCT",291)=""
^DD("IX","BB",344.4,"ATRID",292)=""
^DD("IX","BB",344.41,"AVAL",293)=""
^DD("IX","BB",344.5,"AEXC",294)=""
^DD("IX","BB",344.5,"ATIN",295)=""
^DD("IX","BB",344.54,"AV",296)=""
^DD("IX","BB",351.6,"AC",40)=""
^DD("IX","BB",351.6,"AD",41)=""
^DD("IX","BB",351.61,"AH",42)=""
^DD("IX","BB",351.81,"AE",149)=""
^DD("IX","BB",352.5,"AEFFDT",107)=""
^DD("IX","BB",354.7,"AC",64)=""
^DD("IX","BB",354.71,"AD",65)=""
^DD("IX","BB",354.75,"AC",106)=""
^DD("IX","BB",355.9,"AC",116)=""
^DD("IX","BB",355.9,"AD",117)=""
^DD("IX","BB",355.9,"AE",118)=""
^DD("IX","BB",355.9,"AG",119)=""
^DD("IX","BB",355.9,"AUNIQ",120)=""
^DD("IX","BB",355.91,"AC",121)=""
^DD("IX","BB",355.91,"AUNIQ",122)=""
^DD("IX","BB",355.92,"AID",413)=""
^DD("IX","BB",355.92,"AUNIQ",674)=""
^DD("IX","BB",355.93,"NPI42",705)=""
^DD("IX","BB",355.95,"C",123)=""
^DD("IX","BB",355.96,"AC",124)=""
^DD("IX","BB",355.96,"AD",125)=""
^DD("IX","BB",355.96,"AE",126)=""
^DD("IX","BB",355.96,"AUNIQ",127)=""
^DD("IX","BB",355.96,"D",128)=""
^DD("IX","BB",361,"ACSA",416)=""
^DD("IX","BB",361,"AD",129)=""
^DD("IX","BB",361,"ADR",130)=""
^DD("IX","BB",361.1,"ABD",131)=""
^DD("IX","BB",361.1,"ABS",132)=""
^DD("IX","BB",361.1,"AMRA",307)=""
^DD("IX","BB",361.1,"ATIN",184)=""
^DD("IX","BB",361.1,"ATRID",297)=""
^DD("IX","BB",361.3,"AC",133)=""
^DD("IX","BB",364,"ABABI",134)=""
^DD("IX","BB",364,"ABAST",135)=""
^DD("IX","BB",364,"ABDT",136)=""
^DD("IX","BB",364,"ACOB",137)=""
^DD("IX","BB",364.4,"AD",138)=""
^DD("IX","BB",364.6,"ALL",50)=""
^DD("IX","BB",364.6,"C",279)=""
^DD("IX","BB",364.6,"D",51)=""
^DD("IX","BB",364.7,"ALL",52)=""
^DD("IX","BB",365,"AD",275)=""
^DD("IX","BB",365.1,"AD",276)=""
^DD("IX","BB",365.11,"D",277)=""
^DD("IX","BB",366.03,"F",417)=""
^DD("IX","BB",375,"AC",628)=""
^DD("IX","BB",375,"AF",629)=""
^DD("IX","BB",391.23,"C",86)=""
^DD("IX","BB",391.23,"E",406)=""
^DD("IX","BB",391.31,"APATVN",792)=""
^DD("IX","BB",391.72,"AA",11)=""
^DD("IX","BB",391.91,"AEVN",12)=""
^DD("IX","BB",392.31,"BB",213)=""
^DD("IX","BB",399,"AE",477)=""
^DD("IX","BB",399,"AUPDID",139)=""
^DD("IX","BB",399.0222,"AUPDID1",140)=""
^DD("IX","BB",399.0222,"AUPDID2",141)=""
^DD("IX","BB",399.0222,"AUPDID3",142)=""
^DD("IX","BB",399.042,"ADPR",53)=""
^DD("IX","BB",399.047,"AC",723)=""
^DD("IX","BB",404.42,"AC",181)=""
^DD("IX","BB",404.43,"AC",182)=""
^DD("IX","BB",404.43,"ASTAT",183)=""
^DD("IX","BB",404.57,"AD",207)=""
^DD("IX","BB",404.57,"AE",208)=""
^DD("IX","BB",404.59,"AC",209)=""
^DD("IX","BB",409.35,"C",623)=""
^DD("IX","BB",409.48,"AF",718)=""
^DD("IX","BB",409.48,"AG",719)=""
^DD("IX","BB",409.48,"C",720)=""
^DD("IX","BB",409.55,"D",639)=""
^DD("IX","BB",409.6,"AC",87)=""
^DD("IX","BB",409.6,"AE",88)=""
^DD("IX","BB",409.6,"AMSG",99)=""
^DD("IX","BB",410.02,"AH",580)=""
^DD("IX","BB",414.02,"B",581)=""
^DD("IX","BB",414.03,"C",582)=""
^DD("IX","BB",414.04,"C",600)=""
^DD("IX","BB",420.14,"UNQ",791)=""
^DD("IX","BB",440.5,"I",55)=""
^DD("IX","BB",440.5,"J",56)=""
^DD("IX","BB",441,"AFREE",601)=""
^DD("IX","BB",442.01,"AK",602)=""
^DD("IX","BB",445,"AJ",711)=""
^DD("IX","BB",445.2,"D",48)=""
^DD("IX","BB",447.1,"C",49)=""
^DD("IX","BB",458,"AEA",78)=""
^DD("IX","BB",458,"ASA",707)=""
^DD("IX","BB",458.4,"AEE",708)=""
^DD("IX","BB",458.7,"AST",709)=""
^DD("IX","BB",458.8,"AC",721)=""
^DD("IX","BB",458.82,"AC",722)=""
^DD("IX","BB",550.215,"C",325)=""
^DD("IX","BB",577,"BB",479)=""
^DD("IX","BB",601.2,"ACR",476)=""
^DD("IX","BB",601.75,"AC",215)=""
^DD("IX","BB",601.751,"AC",724)=""
^DD("IX","BB",601.76,"AD",725)=""
^DD("IX","BB",601.76,"AF",726)=""
^DD("IX","BB",601.78,"AC",727)=""
^DD("IX","BB",601.79,"AF",728)=""
^DD("IX","BB",601.83,"AD",729)=""
^DD("IX","BB",601.84,"AC",730)=""
^DD("IX","BB",601.84,"ACR",731)=""
^DD("IX","BB",601.85,"AC",732)=""
^DD("IX","BB",601.86,"AC",733)=""
^DD("IX","BB",601.87,"AC",734)=""
^DD("IX","BB",661.11,"ASHD",10)=""
^DD("IX","BB",661.11,"ASHI",13)=""
^DD("IX","BB",661.11,"ASHMDI",14)=""
^DD("IX","BB",661.11,"XSD",15)=""
^DD("IX","BB",661.4,"ASLHI",20)=""
^DD("IX","BB",661.4,"XSHIL",21)=""
^DD("IX","BB",661.41,"ASSHID",22)=""
^DD("IX","BB",661.5,"AS",23)=""
^DD("IX","BB",661.5,"ASSL",28)=""
^DD("IX","BB",661.5,"XSL",29)=""
^DD("IX","BB",661.6,"ADHS",30)=""
^DD("IX","BB",661.6,"ASHD",31)=""
^DD("IX","BB",661.6,"ASLD",32)=""
^DD("IX","BB",661.6,"ASTHIDS",33)=""
^DD("IX","BB",661.6,"XHDS",34)=""
^DD("IX","BB",661.6,"XSTD",35)=""
^DD("IX","BB",661.7,"XHDS",36)=""
^DD("IX","BB",661.7,"XSHIDS",37)=""
^DD("IX","BB",661.7,"XSLHIDS",63)=""
^DD("IX","BB",661.9,"ASHID",79)=""
^DD("IX","BB",700,"ADI",44)=""
^DD("IX","BB",700,"AG",45)=""
^DD("IX","BB",702.001,"ADATE",280)=""
^DD("IX","BB",702.001,"ASTUDY",509)=""
^DD("IX","BB",702.001,"PK",510)=""
^DD("IX","BB",712.5,"AMSA",191)=""
^DD("IX","BB",712.5,"C",192)=""
^DD("IX","BB",712.5,"GMT",193)=""
^DD("IX","BB",712.6,"AMSA",194)=""
^DD("IX","BB",713.1,"APDFN",143)=""
^DD("IX","BB",713.2,"AN",144)=""
^DD("IX","BB",772,"AJ",345)=""
^DD("IX","BB",772,"C",781)=""
^DD("IX","BB",773,"AI",346)=""
^DD("IX","BB",773,"AJ",347)=""
^DD("IX","BB",773,"C",782)=""
^DD("IX","BB",776.3,"AC",348)=""
^DD("IX","BB",776.3,"C",349)=""
^DD("IX","BB",776.4,"AC",350)=""
^DD("IX","BB",776.4,"AD",351)=""
^DD("IX","BB",776.4,"AE",352)=""
^DD("IX","BB",776.4,"AF",353)=""
^DD("IX","BB",776.4,"AG",354)=""
^DD("IX","BB",776.4,"AH",355)=""
^DD("IX","BB",776.4,"AI",356)=""
^DD("IX","BB",776.4,"AJ",357)=""
^DD("IX","BB",776.4,"AK",358)=""
^DD("IX","BB",776.4,"C",359)=""
^DD("IX","BB",776.4,"D",360)=""
^DD("IX","BB",776.5,"AC",361)=""
^DD("IX","BB",776.5,"C",362)=""
^DD("IX","BB",779.004,"AMASTERVUID",654)=""
^DD("IX","BB",779.2,"C",84)=""
^DD("IX","BB",779.21,"C",89)=""
^DD("IX","BB",779.21,"D",704)=""
^DD("IX","BB",779.3,"C",90)=""
^DD("IX","BB",779.3,"D",91)=""
^DD("IX","BB",779.4,"AH",712)=""
^DD("IX","BB",779.41,"AC",713)=""
^DD("IX","BB",779.41,"AD",93)=""
^DD("IX","BB",790.1,"AC",564)=""
^DD("IX","BB",798,"ADELETE",100)=""
^DD("IX","BB",798,"ADEM",153)=""
^DD("IX","BB",798,"ALOC",157)=""
^DD("IX","BB",798,"ARCP",158)=""
^DD("IX","BB",798,"ARD",363)=""
^DD("IX","BB",798,"ARP",366)=""
^DD("IX","BB",798,"ASTATUS",374)=""
^DD("IX","BB",798,"KEY",150)=""
^DD("IX","BB",798.02,"B",159)=""
^DD("IX","BB",798.1,"B",151)=""
^DD("IX","BB",798.11,"B",160)=""
^DD("IX","BB",798.118,"B",220)=""
^DD("IX","BB",798.122,"B",221)=""
^DD("IX","BB",798.128,"G",364)=""
^DD("IX","BB",798.129,"G",365)=""
^DD("IX","BB",798.13,"B",152)=""
^DD("IX","BB",798.2,"B",154)=""
^DD("IX","BB",798.26,"B",155)=""
^DD("IX","BB",798.31,"B",156)=""
^DD("IX","BB",798.32,"AD",367)=""
^DD("IX","BB",798.32,"AT",368)=""
^DD("IX","BB",798.7,"ARD",161)=""
^DD("IX","BB",798.87,"APSR",369)=""
^DD("IX","BB",798.87,"APSV0",370)=""
^DD("IX","BB",798.87,"APSV1",371)=""
^DD("IX","BB",798.9,"B",162)=""
^DD("IX","BB",799.1,"KEY",163)=""
^DD("IX","BB",799.2,"DEC",164)=""
^DD("IX","BB",799.22,"B",165)=""
^DD("IX","BB",799.31,"B",222)=""
^DD("IX","BB",799.34,"KEY",372)=""
^DD("IX","BB",799.41,"AD",373)=""
^DD("IX","BB",799.41,"AIDSOI",706)=""
^DD("IX","BB",799.51,"ARDG",375)=""
^DD("IX","BB",799.51,"KEY",630)=""
^DD("IX","BB",799.53,"KEY",631)=""
^DD("IX","BB",799.6,"ADNAUTO",632)=""
^DD("IX","BB",799.6,"B",633)=""
^DD("IX","BB",799.61,"B",634)=""
^DD("IX","BB",799.63,"ANC",635)=""
^DD("IX","BB",799.63,"B",636)=""
^DD("IX","BB",799.64,"ANC",637)=""
^DD("IX","BB",799.64,"B",638)=""
^DD("IX","BB",801.41,"B",735)=""
^DD("IX","BB",801.41,"R",736)=""
^DD("IX","BB",801.5,"AC",281)=""
^DD("IX","BB",801.5,"AD",282)=""
^DD("IX","BB",801.5,"ANOTE",283)=""
^DD("IX","BB",801.55,"AC",286)=""
^DD("IX","BB",801.55,"AD",287)=""
^DD("IX","BB",801.55,"AE",288)=""
^DD("IX","BB",801.55,"ANOTE",377)=""
^DD("IX","BB",801.9,"AC",284)=""
^DD("IX","BB",801.9,"ACP",285)=""
^DD("IX","BB",802.4,"B",378)=""
^DD("IX","BB",810.21,"B",737)=""
^DD("IX","BB",810.3,"AV",505)=""
^DD("IX","BB",810.3,"B",506)=""
^DD("IX","BB",810.3,"C",507)=""
^DD("IX","BB",810.3,"D",508)=""
^DD("IX","BB",810.4,"B",738)=""
^DD("IX","BB",810.41,"B",739)=""
^DD("IX","BB",810.5,"B",740)=""
^DD("IX","BB",810.5,"D",741)=""
^DD("IX","BB",810.531,"B",742)=""
^DD("IX","BB",810.535,"B",743)=""
^DD("IX","BB",810.701,"B",744)=""
^DD("IX","BB",810.8,"B",745)=""
^DD("IX","BB",810.801,"B",746)=""
^DD("IX","BB",810.9,"B",531)=""
^DD("IX","BB",810.9001,"AC",532)=""
^DD("IX","BB",811.2,"APDS",511)=""
^DD("IX","BB",811.2,"B",512)=""
^DD("IX","BB",811.22102,"AD",513)=""
^DD("IX","BB",811.22102,"AICD9N",514)=""
^DD("IX","BB",811.22102,"AICD9P",515)=""
^DD("IX","BB",811.22103,"AC",516)=""
^DD("IX","BB",811.22103,"AICD0N",517)=""
^DD("IX","BB",811.22103,"AICD0P",518)=""
^DD("IX","BB",811.22104,"ACPTN",519)=""
^DD("IX","BB",811.22104,"ACPTP",520)=""
^DD("IX","BB",811.22104,"AE",521)=""
^DD("IX","BB",811.31,"ICD9P",522)=""
^DD("IX","BB",811.32,"ICD0P",523)=""
^DD("IX","BB",811.371,"ARCPTP",524)=""
^DD("IX","BB",811.381,"ICPTP",525)=""
^DD("IX","BB",811.4,"B",526)=""
^DD("IX","BB",811.5,"ADEL",747)=""
^DD("IX","BB",811.5,"AF",748)=""
^DD("IX","BB",811.5,"B",749)=""
^DD("IX","BB",811.52,"ACASE",750)=""
^DD("IX","BB",811.52,"ACOND",751)=""
^DD("IX","BB",811.52,"ADATE",752)=""
^DD("IX","BB",811.52,"AWARN",753)=""
^DD("IX","BB",811.6,"B",625)=""
^DD("IX","BB",811.6,"C",626)=""
^DD("IX","BB",811.7,"B",536)=""
^DD("IX","BB",811.8,"B",754)=""
^DD("IX","BB",811.8,"D",755)=""
^DD("IX","BB",811.803,"B",756)=""
^DD("IX","BB",811.9,"ACD",757)=""
^DD("IX","BB",811.9,"ADEL",758)=""
^DD("IX","BB",811.9,"AE",759)=""
^DD("IX","BB",811.9,"AF",760)=""
^DD("IX","BB",811.9,"AP",761)=""
^DD("IX","BB",811.9,"B",762)=""
^DD("IX","BB",811.9,"D",763)=""
^DD("IX","BB",811.9002,"B",764)=""
^DD("IX","BB",811.902,"ACASE",765)=""
^DD("IX","BB",811.902,"ACOND",766)=""
^DD("IX","BB",811.902,"ADATE",767)=""
^DD("IX","BB",811.902,"AE",768)=""
^DD("IX","BB",811.902,"AENODE",769)=""
^DD("IX","BB",811.902,"AF",770)=""
^DD("IX","BB",811.902,"AG",771)=""
^DD("IX","BB",811.902,"AH",772)=""
^DD("IX","BB",811.902,"AI",773)=""
^DD("IX","BB",811.902,"AWARNSL",774)=""
^DD("IX","BB",811.925,"AB",775)=""
^DD("IX","BB",811.925,"AE",776)=""
^DD("IX","BB",811.925,"AF",777)=""
^DD("IX","BB",811.925,"AG",778)=""
^DD("IX","BB",811.925,"AH",779)=""
^DD("IX","BB",811.925,"AI",780)=""
^DD("IX","BB",870,"AC",94)=""
^DD("IX","BB",870,"AD",95)=""
^DD("IX","BB",870,"AD1",101)=""
^DD("IX","BB",870,"AD2",108)=""
^DD("IX","BB",870,"DNS",109)=""
^DD("IX","BB",870,"DNS2",216)=""
^DD("IX","BB",870,"IEN772IN",217)=""
^DD("IX","BB",870,"IEN772OUT",218)=""
^DD("IX","BB",870,"IP",219)=""
^DD("IX","BB",2005,"AD",527)=""
^DD("IX","BB",2005,"D",168)=""
^DD("IX","BB",2005,"P",212)=""
^DD("IX","BB",2005,"ROUTE",76)=""
^DD("IX","BB",2005,"SERIESUID",671)=""
^DD("IX","BB",2005,"f",658)=""
^DD("IX","BB",2005.001,"ASTUDY",657)=""
^DD("IX","BB",2005.1,"AD",528)=""
^DD("IX","BB",2005.1,"F",659)=""
^DD("IX","BB",2005.1,"P",672)=""
^DD("IX","BB",2005.1,"ROUTE",77)=""
^DD("IX","BB",2005.1,"SERIESUID",673)=""
^DD("IX","BB",2005.2,"C",660)=""
^DD("IX","BB",2005.2,"F",661)=""
^DD("IX","BB",2005.85,"AC",206)=""
^DD("IX","BB",2006.03,"C",662)=""
^DD("IX","BB",2006.03,"D",663)=""
^DD("IX","BB",2006.03,"E",664)=""
^DD("IX","BB",2006.03,"F",665)=""
^DD("IX","BB",2006.031,"C",666)=""
^DD("IX","BB",2006.032,"C",667)=""
^DD("IX","BB",2006.035,"DEST",203)=""
^DD("IX","BB",2006.035,"STS",204)=""
^DD("IX","BB",2006.532,"B",224)=""
^DD("IX","BB",2006.532,"C",225)=""
^DD("IX","BB",2006.562,"C",538)=""
^DD("IX","BB",2006.562,"D",539)=""
^DD("IX","BB",2006.562,"E",540)=""
^DD("IX","BB",2006.562,"G",541)=""
^DD("IX","BB",2006.564,"X",82)=""
^DD("IX","BB",2006.5713,"C",390)=""
^DD("IX","BB",2006.574,"STS",226)=""
^DD("IX","BB",2006.575,"AD",227)=""
^DD("IX","BB",2006.575,"AFX",391)=""
^DD("IX","BB",2006.575,"D",392)=""
^DD("IX","BB",2006.582,"B",83)=""
^DD("IX","BB",2006.5839,"C",85)=""
^DD("IX","BB",2006.5841,"AC",529)=""
^DD("IX","BB",2006.5849,"AC",530)=""
^DD("IX","BB",2006.5849,"D",533)=""
^DD("IX","BB",2006.5849,"E",537)=""
^DD("IX","BB",2006.587,"C",655)=""
^DD("IX","BB",2006.587,"D",656)=""
^DD("IX","BB",2006.5906,"D",205)=""
^DD("IX","BB",2006.8,"C",668)=""
^DD("IX","BB",2006.82,"ACDUZ",669)=""
^DD("IX","BB",2006.82,"APL",670)=""
^DD("IX","BB",2260,"AF",567)=""
^DD("IX","BB",2260.095,"AC",568)=""
^DD("IX","BB",2261.4,"E",202)=""
^DD("IX","BB",2261.9,"C",96)=""
^DD("IX","BB",2262.2,"D",97)=""
^DD("IX","BB",2263,"B",57)=""
^DD("IX","BB",2263.1,"B",58)=""
^DD("IX","BB",2263.2,"B",59)=""
^DD("IX","BB",2263.3,"B",60)=""
^DD("IX","BB",2263.7,"C",61)=""
^DD("IX","BB",6914,"ACMR",783)=""
^DD("IX","BB",6914,"ALNSP",784)=""
^DD("IX","BB",6914,"ANSPB",785)=""
^DD("IX","BB",6914,"ANSPT",786)=""
^DD("IX","BB",6914.1,"AIT",787)=""
^DD("IX","BB",6916.3,"AEA",788)=""
^DD("IX","BB",6916.3,"AOA",789)=""
^DD("IX","BB",6916.3,"AOU",790)=""
^DD("IX","BB",7115.5,"AC",573)=""
^DD("IX","BB",7115.6,"AFIL",574)=""
^DD("IX","BB",7118.11,"AC",575)=""
^DD("IX","BB",7118.21,"ATYP",576)=""
^DD("IX","BB",7118.22,"AC",577)=""
^DD("IX","BB",7118.22,"AS",578)=""
^DD("IX","BB",7118.25,"AFAC",579)=""
^DD("IX","BB",8925,"ADIV",247)=""
^DD("IX","BB",8925,"VS",308)=""
^DD("IX","BB",8925.6,"AMASTERVUID",696)=""
^DD("IX","BB",8925.7,"AC",569)=""
^DD("IX","BB",8925.7,"AES",2)=""
^DD("IX","BB",8926.1,"AMASTERVUID",697)=""
^DD("IX","BB",8926.2,"AMASTERVUID",698)=""
^DD("IX","BB",8926.3,"AMASTERVUID",699)=""
^DD("IX","BB",8926.4,"AMASTERVUID",700)=""
^DD("IX","BB",8926.5,"AMASTERVUID",701)=""
^DD("IX","BB",8926.6,"AMASTERVUID",702)=""
^DD("IX","BB",8927.1,"B",62)=""
^DD("IX","BB",8932.2,"B",229)=""
^DD("IX","BB",8935.91,"AMROOT",342)=""
^DD("IX","BB",8985.1,"B",570)=""
^DD("IX","BB",8985.1,"C",571)=""
^DD("IX","BB",8985.11,"B",572)=""
^DD("IX","BB",509850.9,"DFN",304)=""
^DD("IX","BB",509850.9,"NAME",305)=""
^DD("IX","BB",537015,"C",214)=""
^DD("IX","BB",791814,"E",278)=""
^DD("IX","BB",9000010.07,"ACR",472)=""
^DD("IX","BB",9000010.11,"ACR",470)=""
^DD("IX","BB",9000010.12,"ACR",473)=""
^DD("IX","BB",9000010.13,"ACR",474)=""
^DD("IX","BB",9000010.16,"ACR",471)=""
^DD("IX","BB",9000010.18,"ACR",467)=""
^DD("IX","BB",9000010.23,"ACR",468)=""
^DD("IX","BB",9000010.23,"AED",469)=""
^DD("IX","BB",9000011,"ACR",459)=""
^DD("IX","BB","779.41.","AC",92)=""
^DD("IX","BB","779.41.","AC",713)=""
^DD("IX","F",.11,.01,.1101,1)=""
^DD("IX","F",.11,.02,.1101,2)=""
^DD("IX","F",.11,.02,.1102,1)=""
^DD("IX","F",.114,.01,.11401,1)=""
^DD("IX","F",.114,.5,.11402,1)=""
^DD("IX","F",.114,2,.11403,1)=""
^DD("IX","F",.114,3,.11403,2)=""
^DD("IX","F",.31,.01,.3101,1)=""
^DD("IX","F",.31,.01,.3102,1)=""
^DD("IX","F",.31,.02,.3101,2)=""
^DD("IX","F",.31,1,.3102,2)=""
^DD("IX","F",.31,3,.3103,1)=""
^DD("IX","F",.312,.01,.31201,1)=""
^DD("IX","F",.312,.01,.31202,2)=""
^DD("IX","F",.312,.01,.31203,2)=""
^DD("IX","F",.312,.02,.31201,2)=""
^DD("IX","F",.312,.02,.31202,1)=""
^DD("IX","F",.312,.02,.31203,3)=""
^DD("IX","F",.312,1,.31203,1)=""
^DD("IX","F",2,.01,177,1)=""
^DD("IX","F",2,.01,588,1)=""
^DD("IX","F",2,.01,589,1)=""
^DD("IX","F",2,.03,178,1)=""
^DD("IX","F",2,.09,179,1)=""
^DD("IX","F",2,.0906,714,1)=""
^DD("IX","F",2,.111,230,1)=""
^DD("IX","F",2,.1112,185,1)=""
^DD("IX","F",2,.1112,231,1)=""
^DD("IX","F",2,.112,232,1)=""
^DD("IX","F",2,.113,233,1)=""
^DD("IX","F",2,.114,234,1)=""
^DD("IX","F",2,.115,235,1)=""
^DD("IX","F",2,.116,186,1)=""
^DD("IX","F",2,.116,236,1)=""
^DD("IX","F",2,.12105,603,9)=""
^DD("IX","F",2,.1211,603,1)=""
^DD("IX","F",2,.12112,603,10)=""
^DD("IX","F",2,.1212,603,2)=""
^DD("IX","F",2,.1213,603,3)=""
^DD("IX","F",2,.1214,603,4)=""
^DD("IX","F",2,.1215,603,5)=""
^DD("IX","F",2,.1216,603,6)=""
^DD("IX","F",2,.1217,603,7)=""
^DD("IX","F",2,.1218,603,8)=""
^DD("IX","F",2,.133,715,1)=""
^DD("IX","F",2,.134,715,2)=""
^DD("IX","F",2,.135,715,3)=""
^DD("IX","F",2,.14105,604,9)=""
^DD("IX","F",2,.1411,237,1)=""
^DD("IX","F",2,.1411,604,1)=""
^DD("IX","F",2,.14111,604,10)=""
^DD("IX","F",2,.1412,238,1)=""
^DD("IX","F",2,.1412,604,2)=""
^DD("IX","F",2,.1413,239,1)=""
^DD("IX","F",2,.1413,604,3)=""
^DD("IX","F",2,.1414,240,1)=""
^DD("IX","F",2,.1414,604,4)=""
^DD("IX","F",2,.1415,241,1)=""
^DD("IX","F",2,.1415,604,5)=""
^DD("IX","F",2,.1416,242,1)=""
^DD("IX","F",2,.1416,604,6)=""
^DD("IX","F",2,.1417,243,1)=""
^DD("IX","F",2,.1417,604,11)=""
^DD("IX","F",2,.1418,244,1)=""
^DD("IX","F",2,.1418,604,8)=""
^DD("IX","F",2,.211,590,1)=""
^DD("IX","F",2,.211,605,1)=""
^DD("IX","F",2,.212,605,2)=""
^DD("IX","F",2,.2125,605,9)=""
^DD("IX","F",2,.213,605,3)=""
^DD("IX","F",2,.214,605,4)=""
^DD("IX","F",2,.215,605,5)=""
^DD("IX","F",2,.216,605,6)=""
^DD("IX","F",2,.217,605,7)=""
^DD("IX","F",2,.218,605,8)=""
^DD("IX","F",2,.2191,591,1)=""
^DD("IX","F",2,.2191,606,1)=""
^DD("IX","F",2,.2192,606,2)=""
^DD("IX","F",2,.21925,606,9)=""
^DD("IX","F",2,.2193,606,3)=""
^DD("IX","F",2,.2194,606,4)=""
^DD("IX","F",2,.2195,606,5)=""
^DD("IX","F",2,.2196,606,6)=""
^DD("IX","F",2,.2197,606,7)=""
^DD("IX","F",2,.2198,606,8)=""
^DD("IX","F",2,.2201,607,10)=""
^DD("IX","F",2,.2202,609,10)=""
^DD("IX","F",2,.2203,606,10)=""
^DD("IX","F",2,.2204,608,9)=""
^DD("IX","F",2,.2207,605,10)=""
^DD("IX","F",2,.2401,592,1)=""
^DD("IX","F",2,.2402,593,1)=""
^DD("IX","F",2,.2403,594,1)=""
^DD("IX","F",2,.32201,303,9)=""
^DD("IX","F",2,.322012,303,5)=""
^DD("IX","F",2,.322016,303,8)=""
^DD("IX","F",2,.322018,303,4)=""
^DD("IX","F",2,.322019,303,7)=""
^DD("IX","F",2,.322021,303,3)=""
^DD("IX","F",2,.325,408,1)=""
^DD("IX","F",2,.326,640,1)=""
^DD("IX","F",2,.327,303,1)=""
^DD("IX","F",2,.327,640,2)=""
^DD("IX","F",2,.3291,409,1)=""
^DD("IX","F",2,.3292,641,1)=""
^DD("IX","F",2,.3293,641,2)=""
^DD("IX","F",2,.3296,410,1)=""
^DD("IX","F",2,.3297,642,1)=""
^DD("IX","F",2,.3298,642,2)=""
^DD("IX","F",2,.3305,607,9)=""
^DD("IX","F",2,.331,595,1)=""
^DD("IX","F",2,.331,607,1)=""
^DD("IX","F",2,.3311,596,1)=""
^DD("IX","F",2,.3311,608,1)=""
^DD("IX","F",2,.3312,608,2)=""
^DD("IX","F",2,.3313,608,3)=""
^DD("IX","F",2,.3314,608,4)=""
^DD("IX","F",2,.3315,608,5)=""
^DD("IX","F",2,.3316,608,6)=""
^DD("IX","F",2,.3317,608,7)=""
^DD("IX","F",2,.3318,608,8)=""
^DD("IX","F",2,.332,607,2)=""
^DD("IX","F",2,.333,607,3)=""
^DD("IX","F",2,.334,607,4)=""
^DD("IX","F",2,.335,607,5)=""
^DD("IX","F",2,.336,607,6)=""
^DD("IX","F",2,.337,607,7)=""
^DD("IX","F",2,.338,607,8)=""
^DD("IX","F",2,.3405,609,9)=""
^DD("IX","F",2,.341,597,1)=""
^DD("IX","F",2,.341,609,1)=""
^DD("IX","F",2,.342,609,2)=""
^DD("IX","F",2,.343,609,3)=""
^DD("IX","F",2,.344,609,4)=""
^DD("IX","F",2,.345,609,5)=""
^DD("IX","F",2,.346,609,6)=""
^DD("IX","F",2,.347,609,7)=""
^DD("IX","F",2,.348,609,8)=""
^DD("IX","F",2,.351,180,1)=""
^DD("IX","F",2,.351,703,1)=""
^DD("IX","F",2,.525,627,1)=""
^DD("IX","F",2,.5291,303,6)=""
^DD("IX","F",2,.5294,303,2)=""
^DD("IX","F",2,391,643,1)=""
^DD("IX","F",2,991.01,689,1)=""
^DD("IX","F",2,994,396,1)=""
^DD("IX","F",2.01,.01,397,1)=""
^DD("IX","F",2.01,.01,598,1)=""
^DD("IX","F",2.02,.01,398,1)=""
^DD("IX","F",2.04,.01,411,1)=""
^DD("IX","F",2.04,2,411,2)=""
^DD("IX","F",2.04,3,411,3)=""
^DD("IX","F",2.06,.01,195,1)=""
^DD("IX","F",2.06,.01,399,1)=""
^DD("IX","F",2.101,30,599,1)=""
^DD("IX","F",2.141,.01,245,1)=""
^DD("IX","F",2.141,.01,716,1)=""
^DD("IX","F",2.141,1,246,1)=""
^DD("IX","F",2.141,1,716,2)=""
^DD("IX","F",2.3215,.01,675,4)=""
^DD("IX","F",2.3215,.01,676,1)=""
^DD("IX","F",2.3215,.02,675,3)=""
^DD("IX","F",2.3215,.02,676,2)=""
^DD("IX","F",2.3215,.03,675,2)=""
^DD("IX","F",2.3215,.03,676,3)=""
^DD("IX","F",2.3215,.03,681,1)=""
^DD("IX","F",3.702,6,170,1)=""
^DD("IX","F",3.81,.01,1,1)=""
^DD("IX","F",3.81,.01,54,1)=""
^DD("IX","F",3.91,15,43,1)=""
^DD("IX","F",4.00511,1,534,2)=""
^DD("IX","F",4.009,99.98,535,1)=""
^DD("IX","F",4.009,99.99,535,2)=""
^DD("IX","F",4.042,.03,677,1)=""
^DD("IX","F",4.043,.03,678,1)=""
^DD("IX","F",4.9999,.01,339,1)=""
^DD("IX","F",4.9999,.01,340,1)=""
^DD("IX","F",4.9999,.01,341,1)=""
^DD("IX","F",4.9999,.01,679,1)=""
^DD("IX","F",4.9999,.02,339,2)=""
^DD("IX","F",4.9999,.02,340,2)=""
^DD("IX","F",4.9999,.02,341,2)=""
^DD("IX","F",4.9999,.02,679,2)=""
^DD("IX","F",4.9999,.03,679,3)=""
^DD("IX","F",4.9999,.04,679,4)=""
^DD("IX","F",5,1,649,1)=""
^DD("IX","F",5,2,649,2)=""
^DD("IX","F",5.12,.01,272,1)=""
^DD("IX","F",5.12,1,272,2)=""
^DD("IX","F",5.12,2,272,3)=""
^DD("IX","F",5.12,3,272,4)=""
^DD("IX","F",5.12,4,272,5)=""
^DD("IX","F",5.12,5,272,6)=""
^DD("IX","F",5.12,6,272,7)=""
^DD("IX","F",5.12,7,272,8)=""
^DD("IX","F",5.12,8,272,9)=""
^DD("IX","F",5.13,.01,273,1)=""
^DD("IX","F",5.13,.01,274,1)=""
^DD("IX","F",5.13,1,273,2)=""
^DD("IX","F",5.13,1,274,2)=""
^DD("IX","F",5.13,2,273,3)=""
^DD("IX","F",5.13,2,274,3)=""
^DD("IX","F",5.13,3,273,4)=""
^DD("IX","F",9.64,222.7,249,1)=""
^DD("IX","F",18.04,.01,332,1)=""
^DD("IX","F",18.04,.02,332,2)=""
^DD("IX","F",18.05,.01,334,1)=""
^DD("IX","F",18.05,.02,333,1)=""
^DD("IX","F",20,.01,3,1)=""
^DD("IX","F",20,.01,4,1)=""
^DD("IX","F",20,.01,5,1)=""
^DD("IX","F",20,.01,6,1)=""
^DD("IX","F",20,.02,3,2)=""
^DD("IX","F",20,.02,4,3)=""
^DD("IX","F",20,.02,5,2)=""
^DD("IX","F",20,.02,6,2)=""
^DD("IX","F",20,.03,3,3)=""
^DD("IX","F",20,.03,4,2)=""
^DD("IX","F",20,.03,5,3)=""
^DD("IX","F",20,.03,6,3)=""
^DD("IX","F",20,1,4,4)=""
^DD("IX","F",20,1,5,4)=""
^DD("IX","F",20,1,7,4)=""
^DD("IX","F",20,2,4,5)=""
^DD("IX","F",20,2,5,5)=""
^DD("IX","F",20,2,7,5)=""
^DD("IX","F",20,3,4,6)=""
^DD("IX","F",20,3,5,6)=""
^DD("IX","F",20,3,7,6)=""
^DD("IX","F",20,5,4,7)=""
^DD("IX","F",20,5,5,7)=""
^DD("IX","F",20,5,7,7)=""
^DD("IX","F",20,6,3,4)=""
^DD("IX","F",20,7,4,8)=""
^DD("IX","F",26.11,.01,256,2)=""
^DD("IX","F",26.11,.01,257,2)=""
^DD("IX","F",26.11,.01,644,2)=""
^DD("IX","F",26.11,.02,255,1)=""
^DD("IX","F",26.11,.02,256,1)=""
^DD("IX","F",26.11,.03,257,1)=""
^DD("IX","F",26.11,.07,644,1)=""
^DD("IX","F",26.112,.01,645,1)=""
^DD("IX","F",26.12,.01,258,1)=""
^DD("IX","F",26.12,.02,258,2)=""
^DD("IX","F",26.13,.01,259,2)=""
^DD("IX","F",26.13,.01,260,2)=""
^DD("IX","F",26.13,.01,263,1)=""
^DD("IX","F",26.13,.01,264,1)=""
^DD("IX","F",26.13,.02,259,1)=""
^DD("IX","F",26.13,.02,261,1)=""
^DD("IX","F",26.13,.02,262,2)=""
^DD("IX","F",26.13,.02,263,2)=""
^DD("IX","F",26.13,.03,262,1)=""
^DD("IX","F",26.13,.03,264,2)=""
^DD("IX","F",26.13,.03,690,2)=""
^DD("IX","F",26.13,.04,690,1)=""
^DD("IX","F",26.13,.06,260,1)=""
^DD("IX","F",26.13,.06,261,2)=""
^DD("IX","F",26.14,.01,265,2)=""
^DD("IX","F",26.14,.01,266,1)=""
^DD("IX","F",26.14,.02,266,2)=""
^DD("IX","F",26.14,.02,267,1)=""
^DD("IX","F",26.14,.05,265,1)=""
^DD("IX","F",26.14,.05,267,2)=""
^DD("IX","F",26.14,.06,646,1)=""
^DD("IX","F",26.15,.01,269,2)=""
^DD("IX","F",26.15,.01,270,2)=""
^DD("IX","F",26.15,.01,647,2)=""
^DD("IX","F",26.15,.02,268,1)=""
^DD("IX","F",26.15,.02,269,1)=""
^DD("IX","F",26.15,.03,270,1)=""
^DD("IX","F",26.15,.07,647,1)=""
^DD("IX","F",26.152,.01,648,1)=""
^DD("IX","F",26.17,.03,271,1)=""
^DD("IX","F",26.17,.04,271,2)=""
^DD("IX","F",26.19,.02,691,1)=""
^DD("IX","F",26.21,.03,692,1)=""
^DD("IX","F",28.11,.01,103,1)=""
^DD("IX","F",28.11,.01,104,2)=""
^DD("IX","F",28.11,.03,105,1)=""
^DD("IX","F",28.11,.07,104,1)=""
^DD("IX","F",28.11,.09,103,2)=""
^DD("IX","F",28.11,.09,105,2)=""
^DD("IX","F",29.11,.01,110,2)=""
^DD("IX","F",29.11,2,110,1)=""
^DD("IX","F",39.6,.02,400,1)=""
^DD("IX","F",39.6,.03,401,1)=""
^DD("IX","F",39.6,.03,402,1)=""
^DD("IX","F",39.6,.04,400,2)=""
^DD("IX","F",39.6,.04,401,2)=""
^DD("IX","F",39.6,.05,403,1)=""
^DD("IX","F",39.7,.02,404,1)=""
^DD("IX","F",39.7,.03,404,2)=""
^DD("IX","F",39.7,.04,405,1)=""
^DD("IX","F",40.8,.07,693,1)=""
^DD("IX","F",40.8,26.01,693,2)=""
^DD("IX","F",44,8,458,1)=""
^DD("IX","F",44,2503,457,1)=""
^DD("IX","F",45,.01,432,1)=""
^DD("IX","F",45,.01,433,1)=""
^DD("IX","F",45,.01,434,1)=""
^DD("IX","F",45,.01,435,1)=""
^DD("IX","F",45,.01,436,1)=""
^DD("IX","F",45,.01,437,1)=""
^DD("IX","F",45,.01,438,1)=""
^DD("IX","F",45,.01,439,1)=""
^DD("IX","F",45,.01,440,1)=""
^DD("IX","F",45,.01,441,1)=""
^DD("IX","F",45,.01,442,1)=""
^DD("IX","F",45,.01,443,1)=""
^DD("IX","F",45,.01,444,1)=""
^DD("IX","F",45,.01,445,1)=""
^DD("IX","F",45,.01,446,1)=""
^DD("IX","F",45,2,432,2)=""
^DD("IX","F",45,2,433,2)=""
^DD("IX","F",45,2,434,2)=""
^DD("IX","F",45,2,435,2)=""
^DD("IX","F",45,2,436,2)=""
^DD("IX","F",45,2,437,2)=""
^DD("IX","F",45,2,438,2)=""
^DD("IX","F",45,2,439,2)=""
^DD("IX","F",45,2,440,2)=""
^DD("IX","F",45,2,441,2)=""
^DD("IX","F",45,2,442,2)=""
^DD("IX","F",45,2,443,2)=""
^DD("IX","F",45,2,444,2)=""
^DD("IX","F",45,2,445,2)=""
^DD("IX","F",45,2,446,2)=""
^DD("IX","F",45,11,432,3)=""
^DD("IX","F",45,11,433,3)=""
^DD("IX","F",45,11,434,3)=""
^DD("IX","F",45,11,435,3)=""
^DD("IX","F",45,11,436,3)=""
^DD("IX","F",45,11,437,3)=""
^DD("IX","F",45,11,438,3)=""
^DD("IX","F",45,11,439,3)=""
^DD("IX","F",45,11,440,3)=""
^DD("IX","F",45,11,441,3)=""
^DD("IX","F",45,11,442,3)=""
^DD("IX","F",45,11,443,3)=""
^DD("IX","F",45,11,444,3)=""
^DD("IX","F",45,11,445,3)=""
^DD("IX","F",45,11,446,3)=""
^DD("IX","F",45,70,432,5)=""
^DD("IX","F",45,70,433,5)=""
^DD("IX","F",45,70,434,5)=""
^DD("IX","F",45,70,435,5)=""
^DD("IX","F",45,70,436,5)=""
^DD("IX","F",45,70,437,5)=""
^DD("IX","F",45,70,438,5)=""
^DD("IX","F",45,70,439,5)=""
^DD("IX","F",45,70,440,5)=""
^DD("IX","F",45,70,441,5)=""
^DD("IX","F",45,70,442,5)=""
^DD("IX","F",45,70,443,5)=""
^DD("IX","F",45,70,444,5)=""
^DD("IX","F",45,70,445,5)=""
^DD("IX","F",45,70,446,5)=""
^DD("IX","F",45,79,432,4)=""
^DD("IX","F",45,79.16,434,4)=""
^DD("IX","F",45,79.17,435,4)=""
^DD("IX","F",45,79.18,436,4)=""
^DD("IX","F",45,79.19,437,4)=""
^DD("IX","F",45,79.201,438,4)=""
^DD("IX","F",45,79.21,439,4)=""
^DD("IX","F",45,79.22,440,4)=""
^DD("IX","F",45,79.23,441,4)=""
^DD("IX","F",45,79.24,442,4)=""
^DD("IX","F",45,79.241,443,4)=""
^DD("IX","F",45,79.242,444,4)=""
^DD("IX","F",45,79.243,445,4)=""
^DD("IX","F",45,79.244,446,4)=""
^DD("IX","F",45,80,433,4)=""
^DD("IX","F",45.01,.01,422,1)=""
^DD("IX","F",45.01,.01,423,1)=""
^DD("IX","F",45.01,.01,424,1)=""
^DD("IX","F",45.01,.01,425,1)=""
^DD("IX","F",45.01,.01,426,1)=""
^DD("IX","F",45.01,8,422,2)=""
^DD("IX","F",45.01,9,423,2)=""
^DD("IX","F",45.01,10,424,2)=""
^DD("IX","F",45.01,11,425,2)=""
^DD("IX","F",45.01,12,426,2)=""
^DD("IX","F",45.02,5,447,2)=""
^DD("IX","F",45.02,6,448,2)=""
^DD("IX","F",45.02,7,449,2)=""
^DD("IX","F",45.02,8,450,2)=""
^DD("IX","F",45.02,9,451,2)=""
^DD("IX","F",45.02,10,447,1)=""
^DD("IX","F",45.02,10,448,1)=""
^DD("IX","F",45.02,10,449,1)=""
^DD("IX","F",45.02,10,450,1)=""
^DD("IX","F",45.02,10,451,1)=""
^DD("IX","F",45.02,10,452,1)=""
^DD("IX","F",45.02,10,453,1)=""
^DD("IX","F",45.02,10,454,1)=""
^DD("IX","F",45.02,10,455,1)=""
^DD("IX","F",45.02,10,456,1)=""
^DD("IX","F",45.02,11,452,2)=""
^DD("IX","F",45.02,12,453,2)=""
^DD("IX","F",45.02,13,454,2)=""
^DD("IX","F",45.02,14,455,2)=""
^DD("IX","F",45.02,15,456,2)=""
^DD("IX","F",45.05,.01,427,1)=""
^DD("IX","F",45.05,.01,428,1)=""
^DD("IX","F",45.05,.01,429,1)=""
^DD("IX","F",45.05,.01,430,1)=""
^DD("IX","F",45.05,.01,431,1)=""
^DD("IX","F",45.05,4,427,2)=""
^DD("IX","F",45.05,5,428,2)=""
^DD("IX","F",45.05,6,429,2)=""
^DD("IX","F",45.05,7,430,2)=""
^DD("IX","F",45.05,8,431,2)=""
^DD("IX","F",45.06,.01,624,1)=""
^DD("IX","F",45.06,.07,624,2)=""
^DD("IX","F",45.06,.09,624,3)=""
^DD("IX","F",46.15,.04,46,1)=""
^DD("IX","F",50,2,38,2)=""
^DD("IX","F",50,2.1,38,1)=""
^DD("IX","F",50.416,.01,223,1)=""
^DD("IX","F",50.416,2,223,2)=""
^DD("IX","F",50.416,99.98,610,2)=""
^DD("IX","F",50.416,99.99,610,1)=""
^DD("IX","F",50.6,99.98,611,2)=""
^DD("IX","F",50.6,99.99,611,1)=""
^DD("IX","F",50.605,99.98,612,2)=""
^DD("IX","F",50.605,99.99,612,1)=""
^DD("IX","F",50.68,99.98,613,2)=""
^DD("IX","F",50.68,99.99,613,1)=""
^DD("IX","F",52,1,250,1)=""
^DD("IX","F",52,8,461,1)=""
^DD("IX","F",52,31,461,2)=""
^DD("IX","F",52,123,175,1)=""
^DD("IX","F",52,124,175,2)=""
^DD("IX","F",52.1,1.1,462,1)=""
^DD("IX","F",52.1,17,462,2)=""
^DD("IX","F",52.2,.041,463,1)=""
^DD("IX","F",52.2,8,463,2)=""
^DD("IX","F",52.25,1,652,1)=""
^DD("IX","F",52.25,9,653,1)=""
^DD("IX","F",52.41,15,251,1)=""
^DD("IX","F",52.41,100,251,2)=""
^DD("IX","F",52.41,114,176,1)=""
^DD("IX","F",52.41,116,176,2)=""
^DD("IX","F",52.43,3,619,2)=""
^DD("IX","F",52.43,4,620,1)=""
^DD("IX","F",52.43,8,620,2)=""
^DD("IX","F",52.43,9,619,1)=""
^DD("IX","F",52.5,.02,248,4)=""
^DD("IX","F",52.5,.03,248,5)=""
^DD("IX","F",52.5,.06,248,3)=""
^DD("IX","F",52.5,3,248,1)=""
^DD("IX","F",52.91,1,254,1)=""
^DD("IX","F",52.91,2,254,2)=""
^DD("IX","F",52.91,3,254,3)=""
^DD("IX","F",52.91,4,254,4)=""
^DD("IX","F",52.91,5,254,5)=""
^DD("IX","F",52.91,6,254,6)=""
^DD("IX","F",52.91,7,253,1)=""
^DD("IX","F",52.91,8,254,7)=""
^DD("IX","F",52.91,9,254,8)=""
^DD("IX","F",53.1,.5,502,2)=""
^DD("IX","F",53.1,113,502,1)=""
^DD("IX","F",53.7,.01,252,2)=""
^DD("IX","F",53.7,4,252,1)=""
^DD("IX","F",53.79,.01,47,1)=""
^DD("IX","F",53.79,.01,146,1)=""
^DD("IX","F",53.79,.01,147,1)=""
^DD("IX","F",53.79,.06,47,3)=""
^DD("IX","F",53.79,.06,146,2)=""
^DD("IX","F",53.79,.11,47,2)=""
^DD("IX","F",53.79,.11,147,2)=""
^DD("IX","F",53.79,.26,147,3)=""
^DD("IX","F",53.795,.04,148,3)=""
^DD("IX","F",55.01,.02,466,1)=""
^DD("IX","F",55.01,.03,466,2)=""
^DD("IX","F",55.01,.03,498,2)=""
^DD("IX","F",55.01,.03,500,1)=""
^DD("IX","F",55.01,110,415,2)=""
^DD("IX","F",55.01,136,498,3)=""
^DD("IX","F",55.01,136,500,2)=""
^DD("IX","F",55.01,150,415,1)=""
^DD("IX","F",55.0105,.01,145,1)=""
^DD("IX","F",55.0105,.02,145,2)=""
^DD("IX","F",55.05,.01,464,1)=""
^DD("IX","F",55.05,6,464,4)=""
^DD("IX","F",55.05,8,464,3)=""
^DD("IX","F",55.05,11,464,2)=""
^DD("IX","F",55.06,10,465,1)=""
^DD("IX","F",55.06,34,465,2)=""
^DD("IX","F",55.06,34,499,2)=""
^DD("IX","F",55.06,34,501,1)=""
^DD("IX","F",55.06,66,414,2)=""
^DD("IX","F",55.06,125,414,1)=""
^DD("IX","F",55.06,130,499,3)=""
^DD("IX","F",55.06,130,501,2)=""
^DD("IX","F",57.81,.01,503,1)=""
^DD("IX","F",57.81,.01,504,1)=""
^DD("IX","F",59.9,.01,80,2)=""
^DD("IX","F",59.9,.02,80,1)=""
^DD("IX","F",62.49,.5,16,3)=""
^DD("IX","F",62.49,.5,17,1)=""
^DD("IX","F",62.49,1,16,4)=""
^DD("IX","F",62.49,1,17,2)=""
^DD("IX","F",62.49,2,16,2)=""
^DD("IX","F",62.49,2,17,3)=""
^DD("IX","F",62.49,108,16,1)=""
^DD("IX","F",62.8,.01,478,1)=""
^DD("IX","F",62.9,.02,18,1)=""
^DD("IX","F",62.9,.03,18,2)=""
^DD("IX","F",63.12,.01,565,1)=""
^DD("IX","F",63.912,.01,566,1)=""
^DD("IX","F",69.03,22,651,2)=""
^DD("IX","F",69.03,22.1,651,1)=""
^DD("IX","F",70.03,2,475,1)=""
^DD("IX","F",95.3,99.98,717,2)=""
^DD("IX","F",95.3,99.99,717,1)=""
^DD("IX","F",100,.02,187,1)=""
^DD("IX","F",100,.02,210,1)=""
^DD("IX","F",100,15,187,2)=""
^DD("IX","F",100,71,210,2)=""
^DD("IX","F",100.01,99.98,694,2)=""
^DD("IX","F",100.01,99.99,694,1)=""
^DD("IX","F",100.02,99.98,695,2)=""
^DD("IX","F",100.02,99.99,695,1)=""
^DD("IX","F",100.2,.01,188,1)=""
^DD("IX","F",100.2,.01,190,1)=""
^DD("IX","F",100.2,2,190,2)=""
^DD("IX","F",100.2,11,188,2)=""
^DD("IX","F",100.2,11,190,3)=""
^DD("IX","F",100.2,12,189,1)=""
^DD("IX","F",100.5,1,19,2)=""
^DD("IX","F",100.5,8,19,1)=""
^DD("IX","F",100.52,.01,24,1)=""
^DD("IX","F",100.52,1,24,2)=""
^DD("IX","F",100.6,1,25,2)=""
^DD("IX","F",100.6,1,26,3)=""
^DD("IX","F",100.6,2,26,2)=""
^DD("IX","F",100.6,3,25,1)=""
^DD("IX","F",100.6,3,26,1)=""
^DD("IX","F",100.61,.01,27,1)=""
^DD("IX","F",100.61,1,27,2)=""
^DD("IX","F",100.62,1,166,1)=""
^DD("IX","F",100.62,2,166,2)=""
^DD("IX","F",100.62,3,166,3)=""
^DD("IX","F",100.62,4,166,4)=""
^DD("IX","F",101.13,1,167,1)=""
^DD("IX","F",101.15,.01,98,1)=""
^DD("IX","F",102.211,.01,211,1)=""
^DD("IX","F",102.3,3,343,1)=""
^DD("IX","F",102.3,6,343,2)=""
^DD("IX","F",102.3,8,343,3)=""
^DD("IX","F",102.4,.01,344,2)=""
^DD("IX","F",102.4,2,344,1)=""
^DD("IX","F",102.4,3,344,3)=""
^DD("IX","F",115.1626,1,298,1)=""
^DD("IX","F",115.1626,5,298,2)=""
^DD("IX","F",120.5,.01,460,1)=""
^DD("IX","F",120.5,.02,200,1)=""
^DD("IX","F",120.5,.02,460,2)=""
^DD("IX","F",120.5,.03,460,3)=""
^DD("IX","F",120.5,2,201,1)=""
^DD("IX","F",120.5,2,460,4)=""
^DD("IX","F",120.51,99.98,585,2)=""
^DD("IX","F",120.51,99.99,585,1)=""
^DD("IX","F",120.52,99.98,586,2)=""
^DD("IX","F",120.52,99.99,586,1)=""
^DD("IX","F",120.53,99.98,587,2)=""
^DD("IX","F",120.53,99.99,587,1)=""
^DD("IX","F",120.8,.01,482,1)=""
^DD("IX","F",120.8,.02,482,2)=""
^DD("IX","F",120.8,1,482,3)=""
^DD("IX","F",120.8,3.1,482,4)=""
^DD("IX","F",120.8,4,482,5)=""
^DD("IX","F",120.8,5,482,6)=""
^DD("IX","F",120.8,6,482,7)=""
^DD("IX","F",120.8,15,482,8)=""
^DD("IX","F",120.8,17,482,9)=""
^DD("IX","F",120.8,19,482,10)=""
^DD("IX","F",120.8,20,482,11)=""
^DD("IX","F",120.8,21,482,12)=""
^DD("IX","F",120.8,22,482,13)=""
^DD("IX","F",120.8,23,482,14)=""
^DD("IX","F",120.8,24,482,15)=""
^DD("IX","F",120.802,.01,483,1)=""
^DD("IX","F",120.803,.01,484,1)=""
^DD("IX","F",120.81,.01,485,1)=""
^DD("IX","F",120.81,1,485,2)=""
^DD("IX","F",120.81,2,485,3)=""
^DD("IX","F",120.81,3,485,4)=""
^DD("IX","F",120.813,.01,487,1)=""
^DD("IX","F",120.813,1,487,2)=""
^DD("IX","F",120.814,.01,488,1)=""
^DD("IX","F",120.814,1,488,2)=""
^DD("IX","F",120.82,.01,618,1)=""
^DD("IX","F",120.82,1,710,1)=""
^DD("IX","F",120.82,99.98,614,2)=""
^DD("IX","F",120.82,99.99,614,1)=""
^DD("IX","F",120.8205,.01,617,1)=""
^DD("IX","F",120.824,.01,616,1)=""
^DD("IX","F",120.826,.01,486,1)=""
^DD("IX","F",120.826,1,486,2)=""
^DD("IX","F",120.826,1.5,486,3)=""
^DD("IX","F",120.83,99.98,615,2)=""
^DD("IX","F",120.83,99.99,615,1)=""
^DD("IX","F",120.85,.01,490,1)=""
^DD("IX","F",120.85,.02,490,2)=""
^DD("IX","F",120.85,.03,490,3)=""
^DD("IX","F",120.85,.5,490,4)=""
^DD("IX","F",120.85,1.1,490,5)=""
^DD("IX","F",120.85,1.2,490,6)=""
^DD("IX","F",120.85,5,490,7)=""
^DD("IX","F",120.85,6,490,8)=""
^DD("IX","F",120.85,7,490,9)=""
^DD("IX","F",120.85,8,490,10)=""
^DD("IX","F",120.85,9,490,11)=""
^DD("IX","F",120.85,9.1,490,12)=""
^DD("IX","F",120.85,10,490,13)=""
^DD("IX","F",120.85,11,490,14)=""
^DD("IX","F",120.85,12,490,15)=""
^DD("IX","F",120.85,12.1,490,16)=""
^DD("IX","F",120.85,12.2,490,17)=""
^DD("IX","F",120.85,14.5,490,18)=""
^DD("IX","F",120.85,22,490,19)=""
^DD("IX","F",120.85,23,490,20)=""
^DD("IX","F",120.85,24,490,21)=""
^DD("IX","F",120.85,25,490,22)=""
^DD("IX","F",120.85,26,490,23)=""
^DD("IX","F",120.85,26.1,490,24)=""
^DD("IX","F",120.85,27,490,25)=""
^DD("IX","F",120.85,28,490,26)=""
^DD("IX","F",120.85,29,490,27)=""
^DD("IX","F",120.85,31,490,28)=""
^DD("IX","F",120.85,31.1,490,29)=""
^DD("IX","F",120.85,31.2,490,30)=""
^DD("IX","F",120.85,43,490,31)=""
^DD("IX","F",120.85,44,490,32)=""
^DD("IX","F",120.85,45,490,33)=""
^DD("IX","F",120.85,46,490,34)=""
^DD("IX","F",120.85,47,490,35)=""
^DD("IX","F",120.85,48,490,36)=""
^DD("IX","F",120.85,49,490,37)=""
^DD("IX","F",120.85,50,490,38)=""
^DD("IX","F",120.85,51,490,39)=""
^DD("IX","F",120.85,52,490,40)=""
^DD("IX","F",120.85,52.1,490,41)=""
^DD("IX","F",120.85,53,490,42)=""
^DD("IX","F",120.85,54,490,43)=""
^DD("IX","F",120.85,55,490,44)=""
^DD("IX","F",120.85,56,490,45)=""
^DD("IX","F",120.85,57,490,46)=""
^DD("IX","F",120.85,58,490,47)=""
^DD("IX","F",120.85,59,490,48)=""
^DD("IX","F",120.85,60,490,49)=""
^DD("IX","F",120.85,61,490,50)=""
^DD("IX","F",120.85,62,490,51)=""
^DD("IX","F",120.85,64,490,52)=""
^DD("IX","F",120.85,65,490,53)=""
^DD("IX","F",120.8502,.01,491,1)=""
^DD("IX","F",120.8502,1,491,2)=""
^DD("IX","F",120.8502,2,491,3)=""
^DD("IX","F",120.8503,.01,492,1)=""
^DD("IX","F",120.8503,1,492,2)=""
^DD("IX","F",120.8503,1.5,492,3)=""
^DD("IX","F",120.8503,2,492,4)=""
^DD("IX","F",120.8503,3,492,5)=""
^DD("IX","F",120.8503,4,492,6)=""
^DD("IX","F",120.8503,5,492,7)=""
^DD("IX","F",120.8503,7,492,8)=""
^DD("IX","F",120.8503,8,492,9)=""
^DD("IX","F",120.8503,9,492,10)=""
^DD("IX","F",120.8503,10,492,11)=""
^DD("IX","F",120.8503,10.1,492,12)=""
^DD("IX","F",120.8503,10.2,492,13)=""
^DD("IX","F",120.8503,11,492,14)=""
^DD("IX","F",120.8503,12,492,15)=""
^DD("IX","F",120.8503,13,492,16)=""
^DD("IX","F",120.8503,14,492,17)=""
^DD("IX","F",120.8503,15,492,18)=""
^DD("IX","F",120.8503,16,492,19)=""
^DD("IX","F",120.8503,17,492,20)=""
^DD("IX","F",120.8504,.01,493,1)=""
^DD("IX","F",120.8504,1,493,2)=""
^DD("IX","F",120.8504,2,493,3)=""
^DD("IX","F",120.8513,.01,494,1)=""
^DD("IX","F",120.8513,1,494,2)=""
^DD("IX","F",120.8513,2,494,3)=""
^DD("IX","F",120.8513,3,494,4)=""
^DD("IX","F",120.8513,4,494,5)=""
^DD("IX","F",120.85315,.01,496,1)=""
^DD("IX","F",120.8563,.01,495,1)=""
^DD("IX","F",120.86,.01,489,1)=""
^DD("IX","F",120.86,1,489,2)=""
^DD("IX","F",120.86,2,489,3)=""
^DD("IX","F",120.86,3,489,4)=""
^DD("IX","F",123,.02,102,2)=""
^DD("IX","F",123,.06,111,2)=""
^DD("IX","F",123,.07,111,1)=""
^DD("IX","F",123,1,81,1)=""
^DD("IX","F",123,1.01,102,1)=""
^DD("IX","F",123,3,81,3)=""
^DD("IX","F",123,8,81,2)=""
^DD("IX","F",123.02,.25,112,2)=""
^DD("IX","F",123.02,1,112,1)=""
^DD("IX","F",123.02,2,112,3)=""
^DD("IX","F",123.051,.02,113,1)=""
^DD("IX","F",123.051,.03,113,2)=""
^DD("IX","F",123.555,.01,171,2)=""
^DD("IX","F",123.555,.02,171,1)=""
^DD("IX","F",123.58,.01,172,2)=""
^DD("IX","F",123.58,.02,172,1)=""
^DD("IX","F",123.6,.04,114,1)=""
^DD("IX","F",123.6,.04,115,1)=""
^DD("IX","F",123.6,.05,114,2)=""
^DD("IX","F",123.6,.05,115,2)=""
^DD("IX","F",123.6,.06,114,3)=""
^DD("IX","F",130,.011,196,8)=""
^DD("IX","F",130,.02,196,3)=""
^DD("IX","F",130,.04,196,4)=""
^DD("IX","F",130,.09,196,9)=""
^DD("IX","F",130,.09,386,1)=""
^DD("IX","F",130,.09,412,1)=""
^DD("IX","F",130,.14,196,1)=""
^DD("IX","F",130,.14,380,1)=""
^DD("IX","F",130,.164,196,11)=""
^DD("IX","F",130,.164,382,1)=""
^DD("IX","F",130,.232,379,1)=""
^DD("IX","F",130,.24,387,1)=""
^DD("IX","F",130,.31,384,1)=""
^DD("IX","F",130,.34,385,1)=""
^DD("IX","F",130,10,196,5)=""
^DD("IX","F",130,11,196,6)=""
^DD("IX","F",130,26,196,7)=""
^DD("IX","F",130,27,196,2)=""
^DD("IX","F",130,35,196,10)=""
^DD("IX","F",130,71,376,1)=""
^DD("IX","F",130,72,376,2)=""
^DD("IX","F",130,73,376,3)=""
^DD("IX","F",130,122,388,1)=""
^DD("IX","F",130,123,381,1)=""
^DD("IX","F",130,124,383,1)=""
^DD("IX","F",130,1004,388,2)=""
^DD("IX","F",130.028,.01,197,1)=""
^DD("IX","F",130.16,.01,198,1)=""
^DD("IX","F",130.16,3,198,2)=""
^DD("IX","F",130.164,.01,199,1)=""
^DD("IX","F",130.28,.01,389,1)=""
^DD("IX","F",142,.01,563,1)=""
^DD("IX","F",154.1,.01,39,1)=""
^DD("IX","F",154.1,.04,39,2)=""
^DD("IX","F",161.45,.01,66,1)=""
^DD("IX","F",161.45,1,66,2)=""
^DD("IX","F",162.03,50,299,1)=""
^DD("IX","F",162.1,13,300,1)=""
^DD("IX","F",162.11,2,70,2)=""
^DD("IX","F",162.11,4,67,2)=""
^DD("IX","F",162.11,4,68,3)=""
^DD("IX","F",162.11,4,69,2)=""
^DD("IX","F",162.11,4,70,3)=""
^DD("IX","F",162.11,7,68,4)=""
^DD("IX","F",162.11,13,69,1)=""
^DD("IX","F",162.11,13,70,4)=""
^DD("IX","F",162.11,15,67,1)=""
^DD("IX","F",162.2,1,71,1)=""
^DD("IX","F",162.2,3,71,3)=""
^DD("IX","F",162.2,12,71,2)=""
^DD("IX","F",162.2,14,71,4)=""
^DD("IX","F",162.3,1,72,1)=""
^DD("IX","F",162.3,3,72,2)=""
^DD("IX","F",162.5,1,75,2)=""
^DD("IX","F",162.5,2,73,1)=""
^DD("IX","F",162.5,2,75,1)=""
^DD("IX","F",162.5,3,73,2)=""
^DD("IX","F",162.5,3,74,2)=""
^DD("IX","F",162.5,3,75,3)=""
^DD("IX","F",162.5,5,73,3)=""
^DD("IX","F",162.5,10,75,4)=""
^DD("IX","F",162.5,20,74,1)=""
^DD("IX","F",162.5,56,301,1)=""
^DD("IX","F",162.7,32,302,1)=""
^DD("IX","F",200,.01,9,1)=""
^DD("IX","F",200,.01,173,1)=""
^DD("IX","F",200,.01,228,2)=""
^DD("IX","F",200,.01,407,1)=""
^DD("IX","F",200,.01,650,1)=""
^DD("IX","F",200,.111,228,3)=""
^DD("IX","F",200,.112,228,4)=""
^DD("IX","F",200,.113,228,5)=""
^DD("IX","F",200,.114,228,6)=""
^DD("IX","F",200,.115,228,7)=""
^DD("IX","F",200,.116,228,8)=""
^DD("IX","F",200,.151,228,10)=""
^DD("IX","F",200,2,650,2)=""
^DD("IX","F",200,5,173,3)=""
^DD("IX","F",200,5,228,17)=""
^DD("IX","F",200,7,650,3)=""
^DD("IX","F",200,8,228,15)=""
^DD("IX","F",200,9,173,4)=""
^DD("IX","F",200,9,228,9)=""
^DD("IX","F",200,9.2,173,2)=""
^DD("IX","F",200,10.6,8,1)=""
^DD("IX","F",200,12.1,228,11)=""
^DD("IX","F",200,12.2,228,12)=""
^DD("IX","F",200,12.3,228,13)=""
^DD("IX","F",200,12.4,228,18)=""
^DD("IX","F",200,12.6,228,19)=""
^DD("IX","F",200,12.7,228,20)=""
^DD("IX","F",200,12.8,228,21)=""
^DD("IX","F",200,29,228,14)=""
^DD("IX","F",200.042,.03,680,1)=""
^DD("IX","F",200.051,.01,174,1)=""
^DD("IX","F",200.051,.01,497,1)=""
^DD("IX","F",200.06,.01,169,1)=""
^DD("IX","F",200.06,2,169,2)=""
^DD("IX","F",344.3,.06,289,2)=""
^DD("IX","F",344.3,.07,289,1)=""
^DD("IX","F",344.3,.12,290,1)=""
^DD("IX","F",344.4,.02,292,1)=""
^DD("IX","F",344.4,.03,292,2)=""
^DD("IX","F",344.4,.08,291,1)=""
^DD("IX","F",344.41,.02,293,1)=""
^DD("IX","F",344.41,.05,293,2)=""
^DD("IX","F",344.5,.03,295,1)=""
^DD("IX","F",344.5,.08,294,1)=""
^DD("IX","F",344.5,.12,295,2)=""
^DD("IX","F",344.54,.02,296,1)=""
^DD("IX","F",351.6,.03,40,3)=""
^DD("IX","F",351.6,.03,41,2)=""
^DD("IX","F",351.6,.1,40,2)=""
^DD("IX","F",351.6,.1,41,1)=""
^DD("IX","F",351.61,.02,42,1)=""
^DD("IX","F",351.61,.04,42,2)=""
^DD("IX","F",351.81,.02,149,1)=""
^DD("IX","F",351.81,.03,149,2)=""
^DD("IX","F",352.5,.01,107,1)=""
^DD("IX","F",352.5,.02,107,2)=""
^DD("IX","F",354.701,.01,64,1)=""
^DD("IX","F",354.701,.03,64,2)=""
^DD("IX","F",354.71,.02,65,1)=""
^DD("IX","F",354.71,.03,65,2)=""
^DD("IX","F",354.75,.01,106,2)=""
^DD("IX","F",354.75,.02,106,1)=""
^DD("IX","F",355.9,.01,116,4)=""
^DD("IX","F",355.9,.01,117,6)=""
^DD("IX","F",355.9,.01,118,2)=""
^DD("IX","F",355.9,.01,119,1)=""
^DD("IX","F",355.9,.01,120,1)=""
^DD("IX","F",355.9,.02,118,1)=""
^DD("IX","F",355.9,.02,119,2)=""
^DD("IX","F",355.9,.03,119,3)=""
^DD("IX","F",355.9,.04,120,11)=""
^DD("IX","F",355.9,.05,120,6)=""
^DD("IX","F",355.9,.06,116,1)=""
^DD("IX","F",355.9,.06,117,5)=""
^DD("IX","F",355.9,.06,120,10)=""
^DD("IX","F",355.9,.15,116,2)=""
^DD("IX","F",355.9,.15,117,7)=""
^DD("IX","F",355.9,.15,120,8)=""
^DD("IX","F",355.9,.16,120,9)=""
^DD("IX","F",355.91,.01,121,1)=""
^DD("IX","F",355.91,.01,122,1)=""
^DD("IX","F",355.91,.04,122,3)=""
^DD("IX","F",355.91,.05,122,4)=""
^DD("IX","F",355.91,.06,121,2)=""
^DD("IX","F",355.91,.06,122,5)=""
^DD("IX","F",355.91,.1,121,3)=""
^DD("IX","F",355.91,.1,122,2)=""
^DD("IX","F",355.92,.01,413,1)=""
^DD("IX","F",355.92,.01,674,1)=""
^DD("IX","F",355.92,.04,674,3)=""
^DD("IX","F",355.92,.05,413,2)=""
^DD("IX","F",355.92,.06,674,5)=""
^DD("IX","F",355.92,.1,674,2)=""
^DD("IX","F",355.92,.11,674,4)=""
^DD("IX","F",355.9301,.03,705,1)=""
^DD("IX","F",355.95,.01,123,2)=""
^DD("IX","F",355.95,.03,123,1)=""
^DD("IX","F",355.96,.01,126,1)=""
^DD("IX","F",355.96,.01,127,2)=""
^DD("IX","F",355.96,.03,124,1)=""
^DD("IX","F",355.96,.03,125,1)=""
^DD("IX","F",355.96,.03,126,2)=""
^DD("IX","F",355.96,.03,127,1)=""
^DD("IX","F",355.96,.03,128,1)=""
^DD("IX","F",355.96,.04,125,2)=""
^DD("IX","F",355.96,.04,127,3)=""
^DD("IX","F",355.96,.05,125,3)=""
^DD("IX","F",355.96,.05,127,4)=""
^DD("IX","F",355.96,.06,124,2)=""
^DD("IX","F",355.96,.06,125,4)=""
^DD("IX","F",355.96,.06,127,5)=""
^DD("IX","F",355.96,.06,128,2)=""
^DD("IX","F",361,.01,129,1)=""
^DD("IX","F",361,.01,130,1)=""
^DD("IX","F",361,.02,130,2)=""
^DD("IX","F",361,.03,416,1)=""
^DD("IX","F",361,.09,416,2)=""
^DD("IX","F",361,.12,129,2)=""
^DD("IX","F",361.1,.01,131,1)=""
^DD("IX","F",361.1,.01,132,1)=""
^DD("IX","F",361.1,.03,297,2)=""
^DD("IX","F",361.1,.04,297,3)=""
^DD("IX","F",361.1,.04,307,1)=""
^DD("IX","F",361.1,.05,184,1)=""
^DD("IX","F",361.1,.06,131,2)=""
^DD("IX","F",361.1,.07,297,1)=""
^DD("IX","F",361.1,.15,132,2)=""
^DD("IX","F",361.1,.16,307,2)=""
^DD("IX","F",361.1,7.01,184,2)=""
^DD("IX","F",361.3,.01,133,2)=""
^DD("IX","F",361.3,.02,133,1)=""
^DD("IX","F",364,.01,134,1)=""
^DD("IX","F",364,.01,136,1)=""
^DD("IX","F",364,.01,137,1)=""
^DD("IX","F",364,.02,134,2)=""
^DD("IX","F",364,.02,135,1)=""
^DD("IX","F",364,.03,135,2)=""
^DD("IX","F",364,.03,137,6)=""
^DD("IX","F",364,.04,136,2)=""
^DD("IX","F",364,.08,137,3)=""
^DD("IX","F",364.4,.03,138,1)=""
^DD("IX","F",364.4,.04,138,2)=""
^DD("IX","F",364.4,.05,138,3)=""
^DD("IX","F",364.4,.06,138,5)=""
^DD("IX","F",364.4,.07,138,4)=""
^DD("IX","F",364.4,.11,138,6)=""
^DD("IX","F",364.6,.01,51,1)=""
^DD("IX","F",364.6,.03,50,1)=""
^DD("IX","F",364.6,.04,51,2)=""
^DD("IX","F",364.6,.05,51,3)=""
^DD("IX","F",364.6,.08,51,4)=""
^DD("IX","F",364.6,.1,279,1)=""
^DD("IX","F",364.7,.01,52,1)=""
^DD("IX","F",364.7,.02,52,3)=""
^DD("IX","F",364.7,.05,52,4)=""
^DD("IX","F",364.7,.06,52,5)=""
^DD("IX","F",365,.02,275,3)=""
^DD("IX","F",365,.03,275,2)=""
^DD("IX","F",365,.07,275,1)=""
^DD("IX","F",365.1,.02,276,1)=""
^DD("IX","F",365.1,.03,276,2)=""
^DD("IX","F",365.1,.12,276,3)=""
^DD("IX","F",365.11,.01,277,1)=""
^DD("IX","F",366.03,10.02,417,1)=""
^DD("IX","F",366.03,10.03,417,2)=""
^DD("IX","F",375,.03,628,1)=""
^DD("IX","F",375,.03,629,1)=""
^DD("IX","F",375,1.03,628,3)=""
^DD("IX","F",375,1.44,628,2)=""
^DD("IX","F",375,1.44,629,2)=""
^DD("IX","F",375,16.01,629,3)=""
^DD("IX","F",391.23,1,86,1)=""
^DD("IX","F",391.23,1,406,1)=""
^DD("IX","F",391.23,2,86,2)=""
^DD("IX","F",391.23,2,406,2)=""
^DD("IX","F",391.23,5,406,3)=""
^DD("IX","F",391.31,1,792,1)=""
^DD("IX","F",391.31,2,792,2)=""
^DD("IX","F",391.72,.01,11,1)=""
^DD("IX","F",391.72,.02,11,2)=""
^DD("IX","F",391.72,.03,11,3)=""
^DD("IX","F",391.91,.01,12,1)=""
^DD("IX","F",391.91,.07,12,2)=""
^DD("IX","F",392.31,.02,213,2)=""
^DD("IX","F",392.31,.03,213,1)=""
^DD("IX","F",399,.02,477,4)=""
^DD("IX","F",399,101,139,1)=""
^DD("IX","F",399,101,477,1)=""
^DD("IX","F",399,102,139,2)=""
^DD("IX","F",399,102,477,2)=""
^DD("IX","F",399,103,139,3)=""
^DD("IX","F",399,103,477,3)=""
^DD("IX","F",399,112,139,5)=""
^DD("IX","F",399,113,139,4)=""
^DD("IX","F",399,114,139,6)=""
^DD("IX","F",399.0222,.09,140,1)=""
^DD("IX","F",399.0222,.1,141,1)=""
^DD("IX","F",399.0222,.11,142,1)=""
^DD("IX","F",399.042,.01,53,1)=""
^DD("IX","F",399.042,.15,53,2)=""
^DD("IX","F",399.047,.01,723,1)=""
^DD("IX","F",404.42,.01,181,1)=""
^DD("IX","F",404.42,.03,181,2)=""
^DD("IX","F",404.43,.01,182,1)=""
^DD("IX","F",404.43,.01,183,1)=""
^DD("IX","F",404.43,.02,182,2)=""
^DD("IX","F",404.43,.12,183,2)=""
^DD("IX","F",404.57,.04,208,1)=""
^DD("IX","F",404.57,.08,207,1)=""
^DD("IX","F",404.59,.03,209,1)=""
^DD("IX","F",409.48,.03,719,1)=""
^DD("IX","F",409.48,.05,720,1)=""
^DD("IX","F",409.48,.07,718,2)=""
^DD("IX","F",409.48,.07,719,2)=""
^DD("IX","F",409.48,.07,720,2)=""
^DD("IX","F",409.48,.08,718,1)=""
^DD("IX","F",409.55,.01,639,1)=""
^DD("IX","F",409.55,.02,639,2)=""
^DD("IX","F",409.55,.03,639,3)=""
^DD("IX","F",409.69,.01,87,1)=""
^DD("IX","F",409.69,1,87,2)=""
^DD("IX","F",409.69,2,99,1)=""
^DD("IX","F",409.69,3,99,2)=""
^DD("IX","F",409.69,4,88,1)=""
^DD("IX","F",410.02,.01,580,1)=""
^DD("IX","F",410.02,2,580,2)=""
^DD("IX","F",410.02,3,580,3)=""
^DD("IX","F",410.02,4,580,4)=""
^DD("IX","F",410.02,5,580,5)=""
^DD("IX","F",410.02,6,580,6)=""
^DD("IX","F",410.02,7,580,7)=""
^DD("IX","F",410.02,17,580,8)=""
^DD("IX","F",410.02,18,580,9)=""
^DD("IX","F",414.02,.01,581,1)=""
^DD("IX","F",414.03,.01,582,1)=""
^DD("IX","F",414.03,.02,582,2)=""
^DD("IX","F",414.03,.03,582,3)=""
^DD("IX","F",414.04,.01,600,1)=""
^DD("IX","F",414.04,.02,600,2)=""
^DD("IX","F",414.04,.03,600,3)=""
^DD("IX","F",420.14,.01,791,1)=""
^DD("IX","F",420.14,2,791,2)=""
^DD("IX","F",420.14,3,791,3)=""
^DD("IX","F",440.5,8,55,2)=""
^DD("IX","F",440.5,9,56,2)=""
^DD("IX","F",440.5,15,55,1)=""
^DD("IX","F",440.5,15,56,1)=""
^DD("IX","F",441,.01,601,1)=""
^DD("IX","F",442.01,.01,602,1)=""
^DD("IX","F",442.01,1.5,602,3)=""
^DD("IX","F",442.01,2,602,4)=""
^DD("IX","F",442.01,3,602,5)=""
^DD("IX","F",442.01,3.1,602,6)=""
^DD("IX","F",442.01,5,602,7)=""
^DD("IX","F",442.01,10,602,8)=""
^DD("IX","F",442.01,48,602,2)=""
^DD("IX","F",445.027,.01,711,1)=""
^DD("IX","F",445.2,.01,48,1)=""
^DD("IX","F",445.2,23,48,2)=""
^DD("IX","F",447.1,1,49,1)=""
^DD("IX","F",447.1,2,49,2)=""
^DD("IX","F",458.02,.01,78,3)=""
^DD("IX","F",458.02,.01,707,3)=""
^DD("IX","F",458.02,146,78,4)=""
^DD("IX","F",458.02,146,707,4)=""
^DD("IX","F",458.4,1,708,2)=""
^DD("IX","F",458.4,2,708,1)=""
^DD("IX","F",458.7,.01,709,1)=""
^DD("IX","F",458.7,5,709,2)=""
^DD("IX","F",458.8,.01,721,1)=""
^DD("IX","F",458.8,1,721,2)=""
^DD("IX","F",458.82,2,722,1)=""
^DD("IX","F",550.215,.01,325,4)=""
^DD("IX","F",550.215,.02,325,5)=""
^DD("IX","F",550.215,.03,325,1)=""
^DD("IX","F",550.215,.03,325,3)=""
^DD("IX","F",577,.02,479,2)=""
^DD("IX","F",577,.03,479,3)=""
^DD("IX","F",577,.06,479,1)=""
^DD("IX","F",601.22,.01,476,1)=""
^DD("IX","F",601.75,3,215,1)=""
^DD("IX","F",601.75,4,215,2)=""
^DD("IX","F",601.751,.01,724,1)=""
^DD("IX","F",601.751,1,724,2)=""
^DD("IX","F",601.751,2,724,3)=""
^DD("IX","F",601.76,1,725,1)=""
^DD("IX","F",601.76,1,726,1)=""
^DD("IX","F",601.76,2,725,2)=""
^DD("IX","F",601.76,3,726,2)=""
^DD("IX","F",601.78,1,727,1)=""
^DD("IX","F",601.78,2,727,2)=""
^DD("IX","F",601.79,1,728,1)=""
^DD("IX","F",601.79,3,728,2)=""
^DD("IX","F",601.83,1,729,1)=""
^DD("IX","F",601.83,2,729,2)=""
^DD("IX","F",601.84,1,731,1)=""
^DD("IX","F",601.84,2,730,1)=""
^DD("IX","F",601.84,2,731,2)=""
^DD("IX","F",601.84,3,730,2)=""
^DD("IX","F",601.84,3,731,3)=""
^DD("IX","F",601.84,8,731,4)=""
^DD("IX","F",601.85,1,732,1)=""
^DD("IX","F",601.85,2,732,2)=""
^DD("IX","F",601.86,1,733,1)=""
^DD("IX","F",601.86,3,733,2)=""
^DD("IX","F",601.87,1,734,1)=""
^DD("IX","F",601.87,2,734,2)=""
^DD("IX","F",661.11,.01,10,2)=""
^DD("IX","F",661.11,.01,13,3)=""
^DD("IX","F",661.11,.01,14,2)=""
^DD("IX","F",661.11,.01,15,3)=""
^DD("IX","F",661.11,1,13,4)=""
^DD("IX","F",661.11,1,14,5)=""
^DD("IX","F",661.11,2,10,3)=""
^DD("IX","F",661.11,2,14,4)=""
^DD("IX","F",661.11,2,15,2)=""
^DD("IX","F",661.11,3,10,1)=""
^DD("IX","F",661.11,3,13,1)=""
^DD("IX","F",661.11,3,14,1)=""
^DD("IX","F",661.11,3,15,1)=""
^DD("IX","F",661.11,7,14,3)=""
^DD("IX","F",661.4,.01,20,3)=""
^DD("IX","F",661.4,.01,21,2)=""
^DD("IX","F",661.4,2,20,4)=""
^DD("IX","F",661.4,2,21,3)=""
^DD("IX","F",661.4,3,20,1)=""
^DD("IX","F",661.4,3,21,1)=""
^DD("IX","F",661.4,7,20,2)=""
^DD("IX","F",661.4,7,21,4)=""
^DD("IX","F",661.41,.01,22,5)=""
^DD("IX","F",661.41,1,22,4)=""
^DD("IX","F",661.41,2,22,1)=""
^DD("IX","F",661.41,5,22,3)=""
^DD("IX","F",661.41,10,22,2)=""
^DD("IX","F",661.5,.01,28,3)=""
^DD("IX","F",661.5,.01,29,2)=""
^DD("IX","F",661.5,2,23,1)=""
^DD("IX","F",661.5,2,28,2)=""
^DD("IX","F",661.5,2,29,1)=""
^DD("IX","F",661.5,4,28,1)=""
^DD("IX","F",661.6,.01,30,2)=""
^DD("IX","F",661.6,.01,31,2)=""
^DD("IX","F",661.6,.01,33,3)=""
^DD("IX","F",661.6,.01,34,1)=""
^DD("IX","F",661.6,2,30,1)=""
^DD("IX","F",661.6,2,31,3)=""
^DD("IX","F",661.6,2,32,3)=""
^DD("IX","F",661.6,2,33,5)=""
^DD("IX","F",661.6,2,34,2)=""
^DD("IX","F",661.6,2,35,3)=""
^DD("IX","F",661.6,3,30,3)=""
^DD("IX","F",661.6,3,33,6)=""
^DD("IX","F",661.6,3,34,3)=""
^DD("IX","F",661.6,4,33,2)=""
^DD("IX","F",661.6,4,35,2)=""
^DD("IX","F",661.6,11,33,4)=""
^DD("IX","F",661.6,13,31,1)=""
^DD("IX","F",661.6,13,32,1)=""
^DD("IX","F",661.6,13,33,1)=""
^DD("IX","F",661.6,13,35,1)=""
^DD("IX","F",661.6,14,32,2)=""
^DD("IX","F",661.7,.01,36,1)=""
^DD("IX","F",661.7,.01,37,2)=""
^DD("IX","F",661.7,.01,63,3)=""
^DD("IX","F",661.7,1,36,2)=""
^DD("IX","F",661.7,1,37,4)=""
^DD("IX","F",661.7,1,63,5)=""
^DD("IX","F",661.7,2,36,3)=""
^DD("IX","F",661.7,2,37,5)=""
^DD("IX","F",661.7,2,63,6)=""
^DD("IX","F",661.7,3,37,3)=""
^DD("IX","F",661.7,3,63,4)=""
^DD("IX","F",661.7,4,37,1)=""
^DD("IX","F",661.7,4,63,1)=""
^DD("IX","F",661.7,5,63,2)=""
^DD("IX","F",661.9,.01,79,4)=""
^DD("IX","F",661.9,1,79,2)=""
^DD("IX","F",661.9,2,79,3)=""
^DD("IX","F",661.9,4,79,1)=""
^DD("IX","F",700,.01,44,2)=""
^DD("IX","F",700,.01,45,2)=""
^DD("IX","F",700,1,44,1)=""
^DD("IX","F",700,1,45,1)=""
^DD("IX","F",700,19,44,3)=""
^DD("IX","F",702.001,.01,280,1)=""
^DD("IX","F",702.001,.01,509,1)=""
^DD("IX","F",702.001,.01,510,2)=""
^DD("IX","F",702.001,.02,280,3)=""
^DD("IX","F",702.001,.02,509,2)=""
^DD("IX","F",702.001,.02,510,1)=""
^DD("IX","F",702.001,.03,280,2)=""
^DD("IX","F",702.001,.03,510,3)=""
^DD("IX","F",712.5,.01,191,1)=""
^DD("IX","F",712.5,.01,192,1)=""
^DD("IX","F",712.5,.01,193,1)=""
^DD("IX","F",712.5,.02,191,2)=""
^DD("IX","F",712.5,.02,192,2)=""
^DD("IX","F",712.5,.02,193,2)=""
^DD("IX","F",712.5,.05,191,3)=""
^DD("IX","F",712.5,.05,192,3)=""
^DD("IX","F",712.6,.01,194,1)=""
^DD("IX","F",712.6,1,194,2)=""
^DD("IX","F",713.1,.01,143,2)=""
^DD("IX","F",713.1,2,143,1)=""
^DD("IX","F",713.2,2,144,1)=""
^DD("IX","F",713.2,3,144,2)=""
^DD("IX","F",772,2.02,345,1)=""
^DD("IX","F",772,6,781,1)=""
^DD("IX","F",773,2,782,1)=""
^DD("IX","F",773,2.02,347,1)=""
^DD("IX","F",773,20,346,1)=""
^DD("IX","F",776.3,.01,349,1)=""
^DD("IX","F",776.3,.02,348,1)=""
^DD("IX","F",776.3,.08,348,2)=""
^DD("IX","F",776.3,.08,349,2)=""
^DD("IX","F",776.4,.01,350,1)=""
^DD("IX","F",776.4,.01,352,3)=""
^DD("IX","F",776.4,.01,353,1)=""
^DD("IX","F",776.4,.01,357,1)=""
^DD("IX","F",776.4,.01,360,3)=""
^DD("IX","F",776.4,.02,352,2)=""
^DD("IX","F",776.4,.02,353,2)=""
^DD("IX","F",776.4,.02,357,2)=""
^DD("IX","F",776.4,.02,360,2)=""
^DD("IX","F",776.4,.03,352,1)=""
^DD("IX","F",776.4,.03,353,3)=""
^DD("IX","F",776.4,.03,360,1)=""
^DD("IX","F",776.4,.04,359,1)=""
^DD("IX","F",776.4,.05,351,1)=""
^DD("IX","F",776.4,.05,354,1)=""
^DD("IX","F",776.4,.06,353,4)=""
^DD("IX","F",776.4,.06,354,2)=""
^DD("IX","F",776.4,.06,356,1)=""
^DD("IX","F",776.4,.06,360,4)=""
^DD("IX","F",776.4,.11,353,5)=""
^DD("IX","F",776.4,.12,354,3)=""
^DD("IX","F",776.4,.17,358,1)=""
^DD("IX","F",776.5,.01,361,1)=""
^DD("IX","F",776.5,.01,362,1)=""
^DD("IX","F",776.5,.02,362,2)=""
^DD("IX","F",776.5,.03,361,2)=""
^DD("IX","F",779.004,99.98,654,2)=""
^DD("IX","F",779.004,99.99,654,1)=""
^DD("IX","F",779.2,.01,84,1)=""
^DD("IX","F",779.21,.01,89,1)=""
^DD("IX","F",779.21,.01,704,1)=""
^DD("IX","F",779.21,.02,89,2)=""
^DD("IX","F",779.21,.02,704,2)=""
^DD("IX","F",779.21,.06,704,3)=""
^DD("IX","F",779.3,.01,91,1)=""
^DD("IX","F",779.3,.02,90,1)=""
^DD("IX","F",779.4,.02,712,1)=""
^DD("IX","F",779.4,3.01,712,2)=""
^DD("IX","F",779.4,3.02,712,3)=""
^DD("IX","F",779.4,3.03,712,4)=""
^DD("IX","F",779.4,3.04,712,5)=""
^DD("IX","F",779.4,3.05,712,6)=""
^DD("IX","F",779.4,3.06,712,7)=""
^DD("IX","F",779.41,.01,93,1)=""
^DD("IX","F",779.41,.02,93,2)=""
^DD("IX","F",779.41,.03,93,3)=""
^DD("IX","F",779.41,.04,93,4)=""
^DD("IX","F",779.41,.05,93,5)=""
^DD("IX","F",779.41,1.01,92,1)=""
^DD("IX","F",779.41,1.01,713,1)=""
^DD("IX","F",779.41,1.02,92,2)=""
^DD("IX","F",779.41,1.02,713,2)=""
^DD("IX","F",790.1,.02,564,1)=""
^DD("IX","F",790.1,.12,564,2)=""
^DD("IX","F",798,.01,100,1)=""
^DD("IX","F",798,.01,150,1)=""
^DD("IX","F",798,.01,158,4)=""
^DD("IX","F",798,.01,366,4)=""
^DD("IX","F",798,.01,374,2)=""
^DD("IX","F",798,.02,150,2)=""
^DD("IX","F",798,.02,158,1)=""
^DD("IX","F",798,.02,363,1)=""
^DD("IX","F",798,.02,366,1)=""
^DD("IX","F",798,1,363,3)=""
^DD("IX","F",798,2,158,3)=""
^DD("IX","F",798,3,374,1)=""
^DD("IX","F",798,4,153,1)=""
^DD("IX","F",798,5,157,1)=""
^DD("IX","F",798.02,.01,159,1)=""
^DD("IX","F",798.1,.01,151,1)=""
^DD("IX","F",798.11,.01,160,1)=""
^DD("IX","F",798.118,.01,220,1)=""
^DD("IX","F",798.122,.01,221,1)=""
^DD("IX","F",798.128,.01,364,3)=""
^DD("IX","F",798.128,.02,364,1)=""
^DD("IX","F",798.129,.01,365,3)=""
^DD("IX","F",798.129,.02,365,1)=""
^DD("IX","F",798.13,.01,152,1)=""
^DD("IX","F",798.2,.01,154,1)=""
^DD("IX","F",798.26,.01,155,1)=""
^DD("IX","F",798.31,.01,156,1)=""
^DD("IX","F",798.32,.01,368,2)=""
^DD("IX","F",798.32,1,367,1)=""
^DD("IX","F",798.32,1,368,1)=""
^DD("IX","F",798.32,2,367,2)=""
^DD("IX","F",798.73,.01,161,1)=""
^DD("IX","F",798.87,.01,369,2)=""
^DD("IX","F",798.87,.01,371,8)=""
^DD("IX","F",798.87,.02,369,1)=""
^DD("IX","F",798.87,.02,370,1)=""
^DD("IX","F",798.87,.02,371,1)=""
^DD("IX","F",798.87,.03,369,4)=""
^DD("IX","F",798.87,.03,371,10)=""
^DD("IX","F",798.87,1,371,9)=""
^DD("IX","F",798.9,.01,162,1)=""
^DD("IX","F",799.1,.02,163,1)=""
^DD("IX","F",799.1,.03,163,2)=""
^DD("IX","F",799.1,.04,163,3)=""
^DD("IX","F",799.22,.01,165,1)=""
^DD("IX","F",799.22,.02,164,1)=""
^DD("IX","F",799.31,.01,222,1)=""
^DD("IX","F",799.34,.04,372,1)=""
^DD("IX","F",799.41,.02,373,1)=""
^DD("IX","F",799.41,.02,706,1)=""
^DD("IX","F",799.41,.03,373,2)=""
^DD("IX","F",799.41,.03,706,2)=""
^DD("IX","F",799.51,.02,375,1)=""
^DD("IX","F",799.51,.02,630,1)=""
^DD("IX","F",799.51,.03,630,2)=""
^DD("IX","F",799.51,.04,375,2)=""
^DD("IX","F",799.51,.04,630,3)=""
^DD("IX","F",799.53,.01,631,2)=""
^DD("IX","F",799.53,.03,631,1)=""
^DD("IX","F",799.6,.01,632,2)=""
^DD("IX","F",799.6,.01,633,1)=""
^DD("IX","F",799.6,.02,632,3)=""
^DD("IX","F",799.6,.07,632,1)=""
^DD("IX","F",799.6,.07,632,4)=""
^DD("IX","F",799.61,.01,634,1)=""
^DD("IX","F",799.63,.01,635,1)=""
^DD("IX","F",799.63,.01,636,1)=""
^DD("IX","F",799.63,.02,635,2)=""
^DD("IX","F",799.64,.01,637,1)=""
^DD("IX","F",799.64,.01,638,1)=""
^DD("IX","F",799.64,.03,637,2)=""
^DD("IX","F",801.41,.01,735,1)=""
^DD("IX","F",801.41,118,736,1)=""
^DD("IX","F",801.5,.01,281,1)=""
^DD("IX","F",801.5,.01,282,1)=""
^DD("IX","F",801.5,.02,281,2)=""
^DD("IX","F",801.5,.03,281,3)=""
^DD("IX","F",801.5,.03,282,2)=""
^DD("IX","F",801.5,.03,283,2)=""
^DD("IX","F",801.5,.04,283,1)=""
^DD("IX","F",801.55,.01,286,1)=""
^DD("IX","F",801.55,.01,287,1)=""
^DD("IX","F",801.55,.01,288,1)=""
^DD("IX","F",801.55,.02,286,2)=""
^DD("IX","F",801.55,.02,288,2)=""
^DD("IX","F",801.55,.03,286,3)=""
^DD("IX","F",801.55,.03,287,2)=""
^DD("IX","F",801.55,.03,288,3)=""
^DD("IX","F",801.55,.03,377,2)=""
^DD("IX","F",801.55,.04,377,1)=""
^DD("IX","F",801.55,.05,288,4)=""
^DD("IX","F",801.9,.01,285,1)=""
^DD("IX","F",801.9001,.01,284,1)=""
^DD("IX","F",802.4,.01,378,1)=""
^DD("IX","F",810.21,.01,737,1)=""
^DD("IX","F",810.3,.01,506,1)=""
^DD("IX","F",810.3,.06,507,2)=""
^DD("IX","F",810.3,1,507,1)=""
^DD("IX","F",810.3,1,508,1)=""
^DD("IX","F",810.3,3,508,3)=""
^DD("IX","F",810.3,4,508,2)=""
^DD("IX","F",810.31,.07,505,1)=""
^DD("IX","F",810.4,.01,738,1)=""
^DD("IX","F",810.41,.01,739,1)=""
^DD("IX","F",810.5,.01,740,1)=""
^DD("IX","F",810.5,.05,741,1)=""
^DD("IX","F",810.531,.01,742,1)=""
^DD("IX","F",810.535,.01,743,1)=""
^DD("IX","F",810.701,.01,744,1)=""
^DD("IX","F",810.8,.01,745,1)=""
^DD("IX","F",810.801,.01,746,1)=""
^DD("IX","F",810.9,.01,531,1)=""
^DD("IX","F",810.9001,.01,532,1)=""
^DD("IX","F",811.2,.01,512,1)=""
^DD("IX","F",811.2,4,511,1)=""
^DD("IX","F",811.22102,.01,513,1)=""
^DD("IX","F",811.22102,.01,515,1)=""
^DD("IX","F",811.22102,1,513,2)=""
^DD("IX","F",811.22102,1,514,1)=""
^DD("IX","F",811.22103,.01,516,1)=""
^DD("IX","F",811.22103,.01,518,1)=""
^DD("IX","F",811.22103,1,516,2)=""
^DD("IX","F",811.22103,1,517,1)=""
^DD("IX","F",811.22104,.01,520,1)=""
^DD("IX","F",811.22104,.01,521,1)=""
^DD("IX","F",811.22104,1,519,1)=""
^DD("IX","F",811.22104,1,521,2)=""
^DD("IX","F",811.31,.01,522,1)=""
^DD("IX","F",811.32,.01,523,1)=""
^DD("IX","F",811.371,1,524,1)=""
^DD("IX","F",811.381,.01,525,1)=""
^DD("IX","F",811.4,.01,526,1)=""
^DD("IX","F",811.5,.01,747,1)=""
^DD("IX","F",811.5,.01,749,1)=""
^DD("IX","F",811.52,.01,748,1)=""
^DD("IX","F",811.52,9,752,1)=""
^DD("IX","F",811.52,12,752,2)=""
^DD("IX","F",811.52,14,751,1)=""
^DD("IX","F",811.52,15,750,1)=""
^DD("IX","F",811.52,16,753,1)=""
^DD("IX","F",811.6,.01,625,1)=""
^DD("IX","F",811.62,.01,626,1)=""
^DD("IX","F",811.7,.01,536,1)=""
^DD("IX","F",811.8,.01,754,1)=""
^DD("IX","F",811.8,.03,754,2)=""
^DD("IX","F",811.8,.03,755,1)=""
^DD("IX","F",811.803,.01,756,1)=""
^DD("IX","F",811.9,.01,758,1)=""
^DD("IX","F",811.9,.01,762,1)=""
^DD("IX","F",811.9,1.2,763,1)=""
^DD("IX","F",811.9,30,759,1)=""
^DD("IX","F",811.9,34,760,1)=""
^DD("IX","F",811.9,45,757,1)=""
^DD("IX","F",811.9,103,761,1)=""
^DD("IX","F",811.9002,.01,764,1)=""
^DD("IX","F",811.902,.01,768,1)=""
^DD("IX","F",811.902,.01,769,1)=""
^DD("IX","F",811.902,1,770,2)=""
^DD("IX","F",811.902,1,773,2)=""
^DD("IX","F",811.902,2,770,3)=""
^DD("IX","F",811.902,2,773,4)=""
^DD("IX","F",811.902,3,770,4)=""
^DD("IX","F",811.902,3,773,5)=""
^DD("IX","F",811.902,7,771,3)=""
^DD("IX","F",811.902,7,773,6)=""
^DD("IX","F",811.902,8,772,2)=""
^DD("IX","F",811.902,8,773,7)=""
^DD("IX","F",811.902,9,767,1)=""
^DD("IX","F",811.902,12,767,2)=""
^DD("IX","F",811.902,14,766,1)=""
^DD("IX","F",811.902,15,765,1)=""
^DD("IX","F",811.902,16,774,1)=""
^DD("IX","F",811.925,.01,776,1)=""
^DD("IX","F",811.925,3,775,1)=""
^DD("IX","F",811.925,11,778,1)=""
^DD("IX","F",811.925,11,780,4)=""
^DD("IX","F",811.925,12,779,1)=""
^DD("IX","F",811.925,12,780,5)=""
^DD("IX","F",811.925,13,777,1)=""
^DD("IX","F",811.925,13,780,1)=""
^DD("IX","F",811.925,14,777,2)=""
^DD("IX","F",811.925,14,780,2)=""
^DD("IX","F",811.925,15,777,3)=""
^DD("IX","F",811.925,15,780,3)=""
^DD("IX","F",870,.01,94,2)=""
^DD("IX","F",870,.01,95,1)=""
^DD("IX","F",870,.01,101,1)=""
^DD("IX","F",870,.01,108,1)=""
^DD("IX","F",870,.01,216,2)=""
^DD("IX","F",870,.02,94,1)=""
^DD("IX","F",870,.03,95,4)=""
^DD("IX","F",870,.08,101,3)=""
^DD("IX","F",870,.08,109,1)=""
^DD("IX","F",870,.08,216,1)=""
^DD("IX","F",870,2,95,2)=""
^DD("IX","F",870,2,101,2)=""
^DD("IX","F",870,2,108,2)=""
^DD("IX","F",870,200.01,108,3)=""
^DD("IX","F",870,400.01,219,1)=""
^DD("IX","F",870,400.03,95,5)=""
^DD("IX","F",870,400.03,101,4)=""
^DD("IX","F",870.01,6,218,1)=""
^DD("IX","F",870.019,9,217,1)=""
^DD("IX","F",2005,.05,168,1)=""
^DD("IX","F",2005,1,658,1)=""
^DD("IX","F",2005,7,527,1)=""
^DD("IX","F",2005,252,212,1)=""
^DD("IX","F",2005,253,671,1)=""
^DD("IX","F",2005.001,.01,657,2)=""
^DD("IX","F",2005.001,1,657,1)=""
^DD("IX","F",2005.0106,.01,76,2)=""
^DD("IX","F",2005.0106,2,76,1)=""
^DD("IX","F",2005.1,1,659,1)=""
^DD("IX","F",2005.1,7,528,1)=""
^DD("IX","F",2005.1,252,672,1)=""
^DD("IX","F",2005.1,253,673,1)=""
^DD("IX","F",2005.1106,.01,77,2)=""
^DD("IX","F",2005.1106,2,77,1)=""
^DD("IX","F",2005.2,.04,661,1)=""
^DD("IX","F",2005.2,1,660,1)=""
^DD("IX","F",2005.2,5,660,2)=""
^DD("IX","F",2005.2,6,661,2)=""
^DD("IX","F",2005.85,1,206,1)=""
^DD("IX","F",2005.85,1,206,2)=""
^DD("IX","F",2006.03,.01,662,2)=""
^DD("IX","F",2006.03,.01,663,2)=""
^DD("IX","F",2006.03,.04,662,1)=""
^DD("IX","F",2006.03,.04,663,1)=""
^DD("IX","F",2006.03,.04,664,1)=""
^DD("IX","F",2006.03,.04,665,1)=""
^DD("IX","F",2006.03,4,663,3)=""
^DD("IX","F",2006.03,6,664,2)=""
^DD("IX","F",2006.03,6,665,2)=""
^DD("IX","F",2006.03,7,665,3)=""
^DD("IX","F",2006.031,.01,666,2)=""
^DD("IX","F",2006.031,.04,666,1)=""
^DD("IX","F",2006.032,.01,667,2)=""
^DD("IX","F",2006.032,.04,667,1)=""
^DD("IX","F",2006.035,.01,203,3)=""
^DD("IX","F",2006.035,1,203,1)=""
^DD("IX","F",2006.035,1,204,4)=""
^DD("IX","F",2006.035,2,203,4)=""
^DD("IX","F",2006.035,3,203,2)=""
^DD("IX","F",2006.035,3,204,2)=""
^DD("IX","F",2006.035,4,204,3)=""
^DD("IX","F",2006.035,8,204,1)=""
^DD("IX","F",2006.532,.01,224,1)=""
^DD("IX","F",2006.532,2,225,1)=""
^DD("IX","F",2006.562,.01,538,1)=""
^DD("IX","F",2006.562,.01,539,1)=""
^DD("IX","F",2006.562,.01,540,1)=""
^DD("IX","F",2006.562,.01,541,1)=""
^DD("IX","F",2006.562,3,538,2)=""
^DD("IX","F",2006.562,4,539,2)=""
^DD("IX","F",2006.562,5,540,3)=""
^DD("IX","F",2006.562,5,541,3)=""
^DD("IX","F",2006.562,10,540,2)=""
^DD("IX","F",2006.562,10,541,2)=""
^DD("IX","F",2006.564,4,82,1)=""
^DD("IX","F",2006.564,5,82,2)=""
^DD("IX","F",2006.564,6,82,3)=""
^DD("IX","F",2006.5713,2,390,1)=""
^DD("IX","F",2006.5713,3,390,2)=""
^DD("IX","F",2006.5713,4,390,3)=""
^DD("IX","F",2006.5744,2,226,2)=""
^DD("IX","F",2006.575,2,392,1)=""
^DD("IX","F",2006.575,7,227,1)=""
^DD("IX","F",2006.575,9,391,3)=""
^DD("IX","F",2006.575,16,227,2)=""
^DD("IX","F",2006.575,16,392,3)=""
^DD("IX","F",2006.575,28,391,2)=""
^DD("IX","F",2006.575,32,227,3)=""
^DD("IX","F",2006.575,32,392,2)=""
^DD("IX","F",2006.575,36,391,1)=""
^DD("IX","F",2006.582,.01,83,1)=""
^DD("IX","F",2006.582,2,83,2)=""
^DD("IX","F",2006.582,3,83,3)=""
^DD("IX","F",2006.5839,.01,85,1)=""
^DD("IX","F",2006.5839,2,85,2)=""
^DD("IX","F",2006.5841,.01,529,1)=""
^DD("IX","F",2006.5841,1,529,2)=""
^DD("IX","F",2006.5849,1,530,1)=""
^DD("IX","F",2006.5849,1,533,1)=""
^DD("IX","F",2006.5849,1,537,1)=""
^DD("IX","F",2006.5849,2,530,2)=""
^DD("IX","F",2006.5849,2,533,2)=""
^DD("IX","F",2006.5849,3,530,3)=""
^DD("IX","F",2006.5849,3,533,3)=""
^DD("IX","F",2006.5849,8,530,4)=""
^DD("IX","F",2006.5849,10,533,4)=""
^DD("IX","F",2006.5849,17,537,2)=""
^DD("IX","F",2006.587,.01,655,1)=""
^DD("IX","F",2006.587,5,655,2)=""
^DD("IX","F",2006.587,5,656,1)=""
^DD("IX","F",2006.587,7,655,3)=""
^DD("IX","F",2006.587,7,656,2)=""
^DD("IX","F",2006.59061,1,205,1)=""
^DD("IX","F",2006.59061,2,205,2)=""
^DD("IX","F",2006.8,.04,668,1)=""
^DD("IX","F",2006.8,50,668,2)=""
^DD("IX","F",2006.82,.04,670,1)=""
^DD("IX","F",2006.82,1,669,1)=""
^DD("IX","F",2006.82,2,669,2)=""
^DD("IX","F",2006.82,2,670,2)=""
^DD("IX","F",2260,4,567,1)=""
^DD("IX","F",2260,88,567,2)=""
^DD("IX","F",2260.095,2,568,2)=""
^DD("IX","F",2260.095,10,568,1)=""
^DD("IX","F",2261.43,.01,202,1)=""
^DD("IX","F",2261.9,.01,96,1)=""
^DD("IX","F",2263,.01,57,1)=""
^DD("IX","F",2263.1,.01,58,1)=""
^DD("IX","F",2263.2,.01,59,1)=""
^DD("IX","F",2263.3,.01,60,1)=""
^DD("IX","F",2263.7,.01,61,1)=""
^DD("IX","F",6914,19,783,1)=""
^DD("IX","F",6914,24,784,1)=""
^DD("IX","F",6914,90,785,1)=""
^DD("IX","F",6914,90,786,1)=""
^DD("IX","F",6914.1,6,787,1)=""
^DD("IX","F",6916.3,.01,788,1)=""
^DD("IX","F",6916.3,.01,789,2)=""
^DD("IX","F",6916.3,1,789,1)=""
^DD("IX","F",6916.3,1,790,1)=""
^DD("IX","F",6916.3,4,790,3)=""
^DD("IX","F",6916.3,7,788,2)=""
^DD("IX","F",6916.3,7,789,3)=""
^DD("IX","F",6916.3,7,790,2)=""
^DD("IX","F",7115.5,.02,573,2)=""
^DD("IX","F",7115.5,.03,573,1)=""
^DD("IX","F",7115.6,.02,574,1)=""
^DD("IX","F",7115.6,.04,574,2)=""
^DD("IX","F",7118.13,.01,575,1)=""
^DD("IX","F",7118.21,.01,576,2)=""
^DD("IX","F",7118.21,.03,576,1)=""
^DD("IX","F",7118.22,.01,577,1)=""
^DD("IX","F",7118.22,.01,578,1)=""
^DD("IX","F",7118.22,.02,577,2)=""
^DD("IX","F",7118.22,.02,578,2)=""
^DD("IX","F",7118.22,.04,578,3)=""
^DD("IX","F",7118.25,.01,579,1)=""
^DD("IX","F",7118.25,.02,579,2)=""
^DD("IX","F",7118.25,.03,579,3)=""
^DD("IX","F",7118.25,.04,579,4)=""
^DD("IX","F",8925,.01,247,2)=""
^DD("IX","F",8925,.05,247,3)=""
^DD("IX","F",8925,1207,308,1)=""
^DD("IX","F",8925,1212,247,1)=""
^DD("IX","F",8925,1301,247,4)=""
^DD("IX","F",8925.6,99.98,696,2)=""
^DD("IX","F",8925.6,99.99,696,1)=""
^DD("IX","F",8925.7,.01,2,2)=""
^DD("IX","F",8925.7,.01,569,1)=""
^DD("IX","F",8925.7,.03,2,1)=""
^DD("IX","F",8925.7,.04,569,2)=""
^DD("IX","F",8926.1,99.98,697,2)=""
^DD("IX","F",8926.1,99.99,697,1)=""
^DD("IX","F",8926.2,99.98,698,2)=""
^DD("IX","F",8926.2,99.99,698,1)=""
^DD("IX","F",8926.3,99.98,699,2)=""
^DD("IX","F",8926.3,99.99,699,1)=""
^DD("IX","F",8926.4,99.98,700,2)=""
^DD("IX","F",8926.4,99.99,700,1)=""
^DD("IX","F",8926.5,99.98,701,2)=""
^DD("IX","F",8926.5,99.99,701,1)=""
^DD("IX","F",8926.6,99.98,702,2)=""
^DD("IX","F",8926.6,99.99,702,1)=""
^DD("IX","F",8927.1,.01,62,1)=""
^DD("IX","F",8932.2,.01,229,1)=""
^DD("IX","F",8935.91,.02,342,1)=""
^DD("IX","F",8935.91,.05,342,2)=""
^DD("IX","F",8985.1,.01,570,1)=""
^DD("IX","F",8985.1,.01,571,2)=""
^DD("IX","F",8985.1,.02,570,2)=""
^DD("IX","F",8985.1,.02,571,3)=""
^DD("IX","F",8985.1,.03,570,3)=""
^DD("IX","F",8985.1,99.98,571,4)=""
^DD("IX","F",8985.1,99.99,571,1)=""
^DD("IX","F",8985.11,.01,572,1)=""
^DD("IX","F",509850.9,.01,304,2)=""
^DD("IX","F",509850.9,.02,304,1)=""
^DD("IX","F",509850.9,791000.01,305,2)=""
^DD("IX","F",509850.9,791000.02,305,1)=""
^DD("IX","F",537015,.01,214,1)=""
^DD("IX","F",791814,.01,278,1)=""
^DD("IX","F",791814,.02,278,2)=""
^DD("IX","F",9000010.07,.01,472,1)=""
^DD("IX","F",9000010.07,.02,472,2)=""
^DD("IX","F",9000010.07,.03,472,3)=""
^DD("IX","F",9000010.07,.12,472,4)=""
^DD("IX","F",9000010.11,.01,470,1)=""
^DD("IX","F",9000010.11,.02,470,2)=""
^DD("IX","F",9000010.11,.03,470,3)=""
^DD("IX","F",9000010.12,.01,473,1)=""
^DD("IX","F",9000010.12,.02,473,2)=""
^DD("IX","F",9000010.12,.03,473,3)=""
^DD("IX","F",9000010.13,.01,474,1)=""
^DD("IX","F",9000010.13,.02,474,2)=""
^DD("IX","F",9000010.13,.03,474,3)=""
^DD("IX","F",9000010.16,.01,471,1)=""
^DD("IX","F",9000010.16,.02,471,2)=""
^DD("IX","F",9000010.16,.03,471,3)=""
^DD("IX","F",9000010.18,.01,467,1)=""
^DD("IX","F",9000010.18,.02,467,2)=""
^DD("IX","F",9000010.18,.03,467,3)=""
^DD("IX","F",9000010.18,.07,467,4)=""
^DD("IX","F",9000010.23,.01,468,1)=""
^DD("IX","F",9000010.23,.02,468,2)=""
^DD("IX","F",9000010.23,.02,469,3)=""
^DD("IX","F",9000010.23,.03,468,3)=""
^DD("IX","F",9000010.23,1201,469,1)=""
^DD("IX","F",9000010.23,81203,469,2)=""
^DD("IX","F",9000011,.01,459,1)=""
^DD("IX","F",9000011,.02,459,2)=""
^DD("IX","F",9000011,.03,459,3)=""
^DD("IX","F",9000011,.12,459,4)=""
^DD("IX","F",9000011,1.02,459,6)=""
^DD("IX","F",9000011,1.14,459,5)=""
^DD("IX","IX","AA",11)=""
^DD("IX","IX","AA",67)=""
^DD("IX","IX","AA",73)=""
^DD("IX","IX","AB",624)=""
^DD("IX","IX","AB",775)=""
^DD("IX","IX","ABABI",134)=""
^DD("IX","IX","ABAST",135)=""
^DD("IX","IX","ABD",131)=""
^DD("IX","IX","ABDT",136)=""
^DD("IX","IX","ABS",132)=""
^DD("IX","IX","AC",.11402)=""
^DD("IX","IX","AC",16)=""
^DD("IX","IX","AC",25)=""
^DD("IX","IX","AC",40)=""
^DD("IX","IX","AC",54)=""
^DD("IX","IX","AC",64)=""
^DD("IX","IX","AC",87)=""
^DD("IX","IX","AC",92)=""
^DD("IX","IX","AC",94)=""
^DD("IX","IX","AC",106)=""
^DD("IX","IX","AC",112)=""
^DD("IX","IX","AC",114)=""
^DD("IX","IX","AC",116)=""
^DD("IX","IX","AC",121)=""
^DD("IX","IX","AC",124)=""
^DD("IX","IX","AC",133)=""
^DD("IX","IX","AC",170)=""
^DD("IX","IX","AC",171)=""
^DD("IX","IX","AC",172)=""
^DD("IX","IX","AC",181)=""
^DD("IX","IX","AC",182)=""
^DD("IX","IX","AC",188)=""
^DD("IX","IX","AC",197)=""
^DD("IX","IX","AC",198)=""
^DD("IX","IX","AC",199)=""
^DD("IX","IX","AC",206)=""
^DD("IX","IX","AC",209)=""
^DD("IX","IX","AC",211)=""
^DD("IX","IX","AC",215)=""
^DD("IX","IX","AC",253)=""
^DD("IX","IX","AC",273)=""
^DD("IX","IX","AC",281)=""
^DD("IX","IX","AC",284)=""
^DD("IX","IX","AC",286)=""
^DD("IX","IX","AC",348)=""
^DD("IX","IX","AC",350)=""
^DD("IX","IX","AC",361)=""
^DD("IX","IX","AC",503)=""
^DD("IX","IX","AC",516)=""
^DD("IX","IX","AC",529)=""
^DD("IX","IX","AC",530)=""
^DD("IX","IX","AC",532)=""
^DD("IX","IX","AC",534)=""
^DD("IX","IX","AC",564)=""
^DD("IX","IX","AC",565)=""
^DD("IX","IX","AC",566)=""
^DD("IX","IX","AC",568)=""
^DD("IX","IX","AC",569)=""
^DD("IX","IX","AC",573)=""
^DD("IX","IX","AC",575)=""
^DD("IX","IX","AC",577)=""
^DD("IX","IX","AC",616)=""
^DD("IX","IX","AC",617)=""
^DD("IX","IX","AC",618)=""
^DD("IX","IX","AC",619)=""
^DD("IX","IX","AC",628)=""
^DD("IX","IX","AC",713)=""
^DD("IX","IX","AC",721)=""
^DD("IX","IX","AC",722)=""
^DD("IX","IX","AC",723)=""
^DD("IX","IX","AC",724)=""
^DD("IX","IX","AC",727)=""
^DD("IX","IX","AC",730)=""
^DD("IX","IX","AC",732)=""
^DD("IX","IX","AC",733)=""
^DD("IX","IX","AC",734)=""
^DD("IX","IX","ACASE",750)=""
^DD("IX","IX","ACASE",765)=""
^DD("IX","IX","ACD",757)=""
^DD("IX","IX","ACDUZ",669)=""
^DD("IX","IX","ACEE141",716)=""
^DD("IX","IX","ACK",344)=""
^DD("IX","IX","ACMR",783)=""
^DD("IX","IX","ACOB",137)=""
^DD("IX","IX","ACOND",751)=""
^DD("IX","IX","ACOND",766)=""
^DD("IX","IX","ACP",102)=""
^DD("IX","IX","ACP",285)=""
^DD("IX","IX","ACPTN",519)=""
^DD("IX","IX","ACPTP",520)=""
^DD("IX","IX","ACR",459)=""
^DD("IX","IX","ACR",460)=""
^DD("IX","IX","ACR",467)=""
^DD("IX","IX","ACR",468)=""
^DD("IX","IX","ACR",470)=""
^DD("IX","IX","ACR",471)=""
^DD("IX","IX","ACR",472)=""
^DD("IX","IX","ACR",473)=""
^DD("IX","IX","ACR",474)=""
^DD("IX","IX","ACR",475)=""
^DD("IX","IX","ACR",476)=""
^DD("IX","IX","ACR",731)=""
^DD("IX","IX","ACR0P1",427)=""
^DD("IX","IX","ACR0P2",428)=""
^DD("IX","IX","ACR0P3",429)=""
^DD("IX","IX","ACR0P4",430)=""
^DD("IX","IX","ACR0P5",431)=""
^DD("IX","IX","ACR0S1",422)=""
^DD("IX","IX","ACR0S2",423)=""
^DD("IX","IX","ACR0S3",424)=""
^DD("IX","IX","ACR0S4",425)=""
^DD("IX","IX","ACR0S5",426)=""
^DD("IX","IX","ACR9DSD1",434)=""
^DD("IX","IX","ACR9DSD10",443)=""
^DD("IX","IX","ACR9DSD11",444)=""
^DD("IX","IX","ACR9DSD12",445)=""
^DD("IX","IX","ACR9DSD13",446)=""
^DD("IX","IX","ACR9DSD2",435)=""
^DD("IX","IX","ACR9DSD3",436)=""
^DD("IX","IX","ACR9DSD4",437)=""
^DD("IX","IX","ACR9DSD5",438)=""
^DD("IX","IX","ACR9DSD6",439)=""
^DD("IX","IX","ACR9DSD7",440)=""
^DD("IX","IX","ACR9DSD8",441)=""
^DD("IX","IX","ACR9DSD9",442)=""
^DD("IX","IX","ACR9DXLS",432)=""
^DD("IX","IX","ACR9MICD1",447)=""
^DD("IX","IX","ACR9MICD10",456)=""
^DD("IX","IX","ACR9MICD2",448)=""
^DD("IX","IX","ACR9MICD3",449)=""
^DD("IX","IX","ACR9MICD4",450)=""
^DD("IX","IX","ACR9MICD5",451)=""
^DD("IX","IX","ACR9MICD6",452)=""
^DD("IX","IX","ACR9MICD7",453)=""
^DD("IX","IX","ACR9MICD8",454)=""
^DD("IX","IX","ACR9MICD9",455)=""
^DD("IX","IX","ACR9PDX",433)=""
^DD("IX","IX","ACRIV",466)=""
^DD("IX","IX","ACRNVA",464)=""
^DD("IX","IX","ACRO",461)=""
^DD("IX","IX","ACRP",463)=""
^DD("IX","IX","ACRR",462)=""
^DD("IX","IX","ACRUD",465)=""
^DD("IX","IX","ACSA",416)=""
^DD("IX","IX","ACST",457)=""
^DD("IX","IX","ACT",24)=""
^DD("IX","IX","ACT",27)=""
^DD("IX","IX","ACVCOM",303)=""
^DD("IX","IX","ACVCOM1",681)=""
^DD("IX","IX","ACX",414)=""
^DD("IX","IX","ACX1",415)=""
^DD("IX","IX","AD",41)=""
^DD("IX","IX","AD",46)=""
^DD("IX","IX","AD",65)=""
^DD("IX","IX","AD",72)=""
^DD("IX","IX","AD",93)=""
^DD("IX","IX","AD",95)=""
^DD("IX","IX","AD",117)=""
^DD("IX","IX","AD",125)=""
^DD("IX","IX","AD",129)=""
^DD("IX","IX","AD",138)=""
^DD("IX","IX","AD",196)=""
^DD("IX","IX","AD",207)=""
^DD("IX","IX","AD",227)=""
^DD("IX","IX","AD",249)=""
^DD("IX","IX","AD",272)=""
^DD("IX","IX","AD",275)=""
^DD("IX","IX","AD",276)=""
^DD("IX","IX","AD",282)=""
^DD("IX","IX","AD",287)=""
^DD("IX","IX","AD",351)=""
^DD("IX","IX","AD",367)=""
^DD("IX","IX","AD",373)=""
^DD("IX","IX","AD",502)=""
^DD("IX","IX","AD",504)=""
^DD("IX","IX","AD",513)=""
^DD("IX","IX","AD",527)=""
^DD("IX","IX","AD",528)=""
^DD("IX","IX","AD",710)=""
^DD("IX","IX","AD",725)=""
^DD("IX","IX","AD",729)=""
^DD("IX","IX","AD1",101)=""
^DD("IX","IX","AD2",108)=""
^DD("IX","IX","ADATE",280)=""
^DD("IX","IX","ADATE",404)=""
^DD("IX","IX","ADATE",752)=""
^DD("IX","IX","ADATE",767)=""
^DD("IX","IX","ADC",166)=""
^DD("IX","IX","ADEG",3)=""
^DD("IX","IX","ADEG",8)=""
^DD("IX","IX","ADEL",.001)=""
^DD("IX","IX","ADEL",747)=""
^DD("IX","IX","ADEL",758)=""
^DD("IX","IX","ADELETE",100)=""
^DD("IX","IX","ADEM",153)=""
^DD("IX","IX","ADEP",289)=""
^DD("IX","IX","ADGFM1",246)=""
^DD("IX","IX","ADGFM351",703)=""
^DD("IX","IX","ADGFMD01",177)=""
^DD("IX","IX","ADGFMD01",245)=""
^DD("IX","IX","ADGFMD03",178)=""
^DD("IX","IX","ADGFMD09",179)=""
^DD("IX","IX","ADGFMD111",230)=""
^DD("IX","IX","ADGFMD1112",231)=""
^DD("IX","IX","ADGFMD112",232)=""
^DD("IX","IX","ADGFMD113",233)=""
^DD("IX","IX","ADGFMD114",234)=""
^DD("IX","IX","ADGFMD115",235)=""
^DD("IX","IX","ADGFMD116",236)=""
^DD("IX","IX","ADGFMD1411",237)=""
^DD("IX","IX","ADGFMD1412",238)=""
^DD("IX","IX","ADGFMD1413",239)=""
^DD("IX","IX","ADGFMD1414",240)=""
^DD("IX","IX","ADGFMD1415",241)=""
^DD("IX","IX","ADGFMD1416",242)=""
^DD("IX","IX","ADGFMD1417",243)=""
^DD("IX","IX","ADGFMD1418",244)=""
^DD("IX","IX","ADGFMD351",180)=""
^DD("IX","IX","ADHS",30)=""
^DD("IX","IX","ADI",44)=""
^DD("IX","IX","ADIV",247)=""
^DD("IX","IX","ADNAUTO",632)=""
^DD("IX","IX","ADPR",53)=""
^DD("IX","IX","ADR",130)=""
^DD("IX","IX","ADT",189)=""
^DD("IX","IX","ADTTM1",603)=""
^DD("IX","IX","ADTTM2",604)=""
^DD("IX","IX","ADTTM3",605)=""
^DD("IX","IX","ADTTM4",606)=""
^DD("IX","IX","ADTTM5",607)=""
^DD("IX","IX","ADTTM6",608)=""
^DD("IX","IX","ADTTM7",609)=""
^DD("IX","IX","ADUALC",649)=""
^DD("IX","IX","AE",26)=""
^DD("IX","IX","AE",74)=""
^DD("IX","IX","AE",81)=""
^DD("IX","IX","AE",88)=""
^DD("IX","IX","AE",118)=""
^DD("IX","IX","AE",126)=""
^DD("IX","IX","AE",149)=""
^DD("IX","IX","AE",190)=""
^DD("IX","IX","AE",208)=""
^DD("IX","IX","AE",288)=""
^DD("IX","IX","AE",352)=""
^DD("IX","IX","AE",477)=""
^DD("IX","IX","AE",521)=""
^DD("IX","IX","AE",759)=""
^DD("IX","IX","AE",768)=""
^DD("IX","IX","AE",776)=""
^DD("IX","IX","AEA",78)=""
^DD("IX","IX","AEA",788)=""
^DD("IX","IX","AED",469)=""
^DD("IX","IX","AEE",708)=""
^DD("IX","IX","AEFFDT",107)=""
^DD("IX","IX","AENODE",769)=""
^DD("IX","IX","AES",2)=""
^DD("IX","IX","AES",379)=""
^DD("IX","IX","AES1",380)=""
^DD("IX","IX","AES2",381)=""
^DD("IX","IX","AES3",382)=""
^DD("IX","IX","AES4",383)=""
^DD("IX","IX","AES5",384)=""
^DD("IX","IX","AES6",385)=""
^DD("IX","IX","AES7",389)=""
^DD("IX","IX","AES8",386)=""
^DD("IX","IX","AESA",387)=""
^DD("IX","IX","AESP",388)=""
^DD("IX","IX","AEVN",12)=""
^DD("IX","IX","AEVNT",187)=""
^DD("IX","IX","AEXC",294)=""
^DD("IX","IX","AF",43)=""
^DD("IX","IX","AF",353)=""
^DD("IX","IX","AF",567)=""
^DD("IX","IX","AF",629)=""
^DD("IX","IX","AF",718)=""
^DD("IX","IX","AF",726)=""
^DD("IX","IX","AF",728)=""
^DD("IX","IX","AF",748)=""
^DD("IX","IX","AF",760)=""
^DD("IX","IX","AF",770)=""
^DD("IX","IX","AF",777)=""
^DD("IX","IX","AFAC",579)=""
^DD("IX","IX","AFC",299)=""
^DD("IX","IX","AFC",300)=""
^DD("IX","IX","AFC",301)=""
^DD("IX","IX","AFC",302)=""
^DD("IX","IX","AFIL",574)=""
^DD("IX","IX","AFLAG",259)=""
^DD("IX","IX","AFREE",601)=""
^DD("IX","IX","AFREV",260)=""
^DD("IX","IX","AFX",391)=""
^DD("IX","IX","AG",45)=""
^DD("IX","IX","AG",68)=""
^DD("IX","IX","AG",119)=""
^DD("IX","IX","AG",354)=""
^DD("IX","IX","AG",376)=""
^DD("IX","IX","AG",719)=""
^DD("IX","IX","AG",771)=""
^DD("IX","IX","AG",778)=""
^DD("IX","IX","AH",42)=""
^DD("IX","IX","AH",355)=""
^DD("IX","IX","AH",580)=""
^DD("IX","IX","AH",712)=""
^DD("IX","IX","AH",772)=""
^DD("IX","IX","AH",779)=""
^DD("IX","IX","AHDR",482)=""
^DD("IX","IX","AHDR",483)=""
^DD("IX","IX","AHDR",484)=""
^DD("IX","IX","AHDR",485)=""
^DD("IX","IX","AHDR",486)=""
^DD("IX","IX","AHDR",487)=""
^DD("IX","IX","AHDR",488)=""
^DD("IX","IX","AHDR",489)=""
^DD("IX","IX","AHDR",490)=""
^DD("IX","IX","AHDR",491)=""
^DD("IX","IX","AHDR",492)=""
^DD("IX","IX","AHDR",493)=""
^DD("IX","IX","AHDR",494)=""
^DD("IX","IX","AHDR",495)=""
^DD("IX","IX","AHDR",496)=""
^DD("IX","IX","AHDRERR",201)=""
^DD("IX","IX","AHDRNEW",200)=""
^DD("IX","IX","AI",71)=""
^DD("IX","IX","AI",75)=""
^DD("IX","IX","AI",346)=""
^DD("IX","IX","AI",356)=""
^DD("IX","IX","AI",773)=""
^DD("IX","IX","AI",780)=""
^DD("IX","IX","AICD0N",517)=""
^DD("IX","IX","AICD0P",518)=""
^DD("IX","IX","AICD9N",514)=""
^DD("IX","IX","AICD9P",515)=""
^DD("IX","IX","AID",413)=""
^DD("IX","IX","AIDSOI",706)=""
^DD("IX","IX","AIFC",111)=""
^DD("IX","IX","AIN",500)=""
^DD("IX","IX","AINACT",255)=""
^DD("IX","IX","AINACT",268)=""
^DD("IX","IX","AINST",620)=""
^DD("IX","IX","AIT",787)=""
^DD("IX","IX","AIVC",498)=""
^DD("IX","IX","AJ",69)=""
^DD("IX","IX","AJ",345)=""
^DD("IX","IX","AJ",347)=""
^DD("IX","IX","AJ",357)=""
^DD("IX","IX","AJ",711)=""
^DD("IX","IX","AK",70)=""
^DD("IX","IX","AK",358)=""
^DD("IX","IX","AK",412)=""
^DD("IX","IX","AK",602)=""
^DD("IX","IX","ALL",50)=""
^DD("IX","IX","ALL",52)=""
^DD("IX","IX","ALNSP",784)=""
^DD("IX","IX","ALOC",157)=""
^DD("IX","IX","ALOEIF",675)=""
^DD("IX","IX","ALSTUP",676)=""
^DD("IX","IX","AMASTERVUID",535)=""
^DD("IX","IX","AMASTERVUID",585)=""
^DD("IX","IX","AMASTERVUID",586)=""
^DD("IX","IX","AMASTERVUID",587)=""
^DD("IX","IX","AMASTERVUID",610)=""
^DD("IX","IX","AMASTERVUID",611)=""
^DD("IX","IX","AMASTERVUID",612)=""
^DD("IX","IX","AMASTERVUID",613)=""
^DD("IX","IX","AMASTERVUID",614)=""
^DD("IX","IX","AMASTERVUID",615)=""
^DD("IX","IX","AMASTERVUID",654)=""
^DD("IX","IX","AMASTERVUID",694)=""
^DD("IX","IX","AMASTERVUID",695)=""
^DD("IX","IX","AMASTERVUID",696)=""
^DD("IX","IX","AMASTERVUID",697)=""
^DD("IX","IX","AMASTERVUID",698)=""
^DD("IX","IX","AMASTERVUID",699)=""
^DD("IX","IX","AMASTERVUID",700)=""
^DD("IX","IX","AMASTERVUID",701)=""
^DD("IX","IX","AMASTERVUID",702)=""
^DD("IX","IX","AMASTERVUID",717)=""
^DD("IX","IX","AMRA",307)=""
^DD("IX","IX","AMROOT",342)=""
^DD("IX","IX","AMSA",191)=""
^DD("IX","IX","AMSA",194)=""
^DD("IX","IX","AMSEL",408)=""
^DD("IX","IX","AMSENL",409)=""
^DD("IX","IX","AMSENNL",410)=""
^DD("IX","IX","AMSG",99)=""
^DD("IX","IX","AN",144)=""
^DD("IX","IX","ANAM01",589)=""
^DD("IX","IX","ANAM1001",599)=""
^DD("IX","IX","ANAM201",598)=""
^DD("IX","IX","ANAM211",590)=""
^DD("IX","IX","ANAM2191",591)=""
^DD("IX","IX","ANAM2401",592)=""
^DD("IX","IX","ANAM2402",593)=""
^DD("IX","IX","ANAM2403",594)=""
^DD("IX","IX","ANAM331",595)=""
^DD("IX","IX","ANAM3311",596)=""
^DD("IX","IX","ANAM341",597)=""
^DD("IX","IX","ANAME",4)=""
^DD("IX","IX","ANAME",9)=""
^DD("IX","IX","ANC",635)=""
^DD("IX","IX","ANC",637)=""
^DD("IX","IX","ANDAT",261)=""
^DD("IX","IX","ANOTE",283)=""
^DD("IX","IX","ANOTE",377)=""
^DD("IX","IX","ANSPB",785)=""
^DD("IX","IX","ANSPT",786)=""
^DD("IX","IX","AOA",789)=""
^DD("IX","IX","AOC",38)=""
^DD("IX","IX","AONLYONE",195)=""
^DD("IX","IX","AORDX",47)=""
^DD("IX","IX","AOU",790)=""
^DD("IX","IX","AOWN",690)=""
^DD("IX","IX","AP",.3102)=""
^DD("IX","IX","AP",761)=""
^DD("IX","IX","APATCH",146)=""
^DD("IX","IX","APATCH",148)=""
^DD("IX","IX","APATVN",792)=""
^DD("IX","IX","APDAT",400)=""
^DD("IX","IX","APDFN",143)=""
^DD("IX","IX","APDS",511)=""
^DD("IX","IX","APDT",110)=""
^DD("IX","IX","APKI",250)=""
^DD("IX","IX","APKI",251)=""
^DD("IX","IX","APL",670)=""
^DD("IX","IX","APOST",290)=""
^DD("IX","IX","APP",651)=""
^DD("IX","IX","APPRO",265)=""
^DD("IX","IX","APR",103)=""
^DD("IX","IX","APRF",693)=""
^DD("IX","IX","APRFEVT",689)=""
^DD("IX","IX","APSR",369)=""
^DD("IX","IX","APSV0",370)=""
^DD("IX","IX","APSV1",371)=""
^DD("IX","IX","APTDT",104)=""
^DD("IX","IX","APTYPE",643)=""
^DD("IX","IX","AR",113)=""
^DD("IX","IX","ARCP",158)=""
^DD("IX","IX","ARCPTP",524)=""
^DD("IX","IX","ARCT",291)=""
^DD("IX","IX","ARD",161)=""
^DD("IX","IX","ARD",363)=""
^DD("IX","IX","ARD",411)=""
^DD("IX","IX","ARDG",375)=""
^DD("IX","IX","ARP",366)=""
^DD("IX","IX","ARS",210)=""
^DD("IX","IX","AS",23)=""
^DD("IX","IX","AS",578)=""
^DD("IX","IX","ASA",707)=""
^DD("IX","IX","ASERLAST",640)=""
^DD("IX","IX","ASERNNTL",642)=""
^DD("IX","IX","ASERNTL",641)=""
^DD("IX","IX","ASHD",10)=""
^DD("IX","IX","ASHD",31)=""
^DD("IX","IX","ASHI",13)=""
^DD("IX","IX","ASHID",79)=""
^DD("IX","IX","ASHMDI",14)=""
^DD("IX","IX","ASIG",5)=""
^DD("IX","IX","ASLD",32)=""
^DD("IX","IX","ASLHI",20)=""
^DD("IX","IX","ASPO",298)=""
^DD("IX","IX","ASSHID",22)=""
^DD("IX","IX","ASSL",28)=""
^DD("IX","IX","AST",105)=""
^DD("IX","IX","AST",458)=""
^DD("IX","IX","AST",709)=""
^DD("IX","IX","ASTAT",183)=""
^DD("IX","IX","ASTAT",256)=""
^DD("IX","IX","ASTAT",262)=""
^DD("IX","IX","ASTAT",269)=""
^DD("IX","IX","ASTAT",271)=""
^DD("IX","IX","ASTAT",401)=""
^DD("IX","IX","ASTAT",405)=""
^DD("IX","IX","ASTAT",692)=""
^DD("IX","IX","ASTAT2XMIT",402)=""
^DD("IX","IX","ASTATUS",374)=""
^DD("IX","IX","ASTHIDS",33)=""
^DD("IX","IX","ASTUDY",509)=""
^DD("IX","IX","ASTUDY",657)=""
^DD("IX","IX","AT",368)=""
^DD("IX","IX","ATIN",184)=""
^DD("IX","IX","ATIN",295)=""
^DD("IX","IX","ATIU",644)=""
^DD("IX","IX","ATIU",647)=""
^DD("IX","IX","ATIUPN",646)=""
^DD("IX","IX","ATR",228)=""
^DD("IX","IX","ATRID",292)=""
^DD("IX","IX","ATRID",297)=""
^DD("IX","IX","ATYP",257)=""
^DD("IX","IX","ATYP",576)=""
^DD("IX","IX","ATYPE",270)=""
^DD("IX","IX","AU",.3103)=""
^DD("IX","IX","AUDC",499)=""
^DD("IX","IX","AUID",147)=""
^DD("IX","IX","AUN",501)=""
^DD("IX","IX","AUNIQ",120)=""
^DD("IX","IX","AUNIQ",122)=""
^DD("IX","IX","AUNIQ",127)=""
^DD("IX","IX","AUNIQ",674)=""
^DD("IX","IX","AUPDID",139)=""
^DD("IX","IX","AUPDID1",140)=""
^DD("IX","IX","AUPDID2",141)=""
^DD("IX","IX","AUPDID3",142)=""
^DD("IX","IX","AUSER",650)=""
^DD("IX","IX","AUSERKEY",497)=""
^DD("IX","IX","AV",296)=""
^DD("IX","IX","AV",505)=""
^DD("IX","IX","AVAFC0906",714)=""
^DD("IX","IX","AVAFC20101",397)=""
^DD("IX","IX","AVAFC20201",398)=""
^DD("IX","IX","AVAFC20601",399)=""
^DD("IX","IX","AVAFC525",627)=""
^DD("IX","IX","AVAFC994",396)=""
^DD("IX","IX","AVAL",293)=""
^DD("IX","IX","AVISIT",169)=""
^DD("IX","IX","AW",252)=""
^DD("IX","IX","AWARN",753)=""
^DD("IX","IX","AWARNSL",774)=""
^DD("IX","IX","AX",254)=""
^DD("IX","IX","AXENR13",715)=""
^DD("IX","IX","AXMIT",403)=""
^DD("IX","IX","AXUHUI",173)=""
^DD("IX","IX","AXUHUIKEY",174)=""
^DD("IX","IX","AZIPLINK",185)=""
^DD("IX","IX","AZIPLNK2",186)=""
^DD("IX","IX","B",1)=""
^DD("IX","IX","B",57)=""
^DD("IX","IX","B",58)=""
^DD("IX","IX","B",59)=""
^DD("IX","IX","B",60)=""
^DD("IX","IX","B",62)=""
^DD("IX","IX","B",83)=""
^DD("IX","IX","B",98)=""
^DD("IX","IX","B",151)=""
^DD("IX","IX","B",152)=""
^DD("IX","IX","B",154)=""
^DD("IX","IX","B",155)=""
^DD("IX","IX","B",156)=""
^DD("IX","IX","B",159)=""
^DD("IX","IX","B",160)=""
^DD("IX","IX","B",162)=""
^DD("IX","IX","B",165)=""
^DD("IX","IX","B",220)=""
^DD("IX","IX","B",221)=""
^DD("IX","IX","B",222)=""
^DD("IX","IX","B",224)=""
^DD("IX","IX","B",229)=""
^DD("IX","IX","B",378)=""
^DD("IX","IX","B",407)=""
^DD("IX","IX","B",506)=""
^DD("IX","IX","B",512)=""
^DD("IX","IX","B",526)=""
^DD("IX","IX","B",531)=""
^DD("IX","IX","B",536)=""
^DD("IX","IX","B",570)=""
^DD("IX","IX","B",572)=""
^DD("IX","IX","B",581)=""
^DD("IX","IX","B",625)=""
^DD("IX","IX","B",633)=""
^DD("IX","IX","B",634)=""
^DD("IX","IX","B",636)=""
^DD("IX","IX","B",638)=""
^DD("IX","IX","B",735)=""
^DD("IX","IX","B",737)=""
^DD("IX","IX","B",738)=""
^DD("IX","IX","B",739)=""
^DD("IX","IX","B",740)=""
^DD("IX","IX","B",742)=""
^DD("IX","IX","B",743)=""
^DD("IX","IX","B",744)=""
^DD("IX","IX","B",745)=""
^DD("IX","IX","B",746)=""
^DD("IX","IX","B",749)=""
^DD("IX","IX","B",754)=""
^DD("IX","IX","B",756)=""
^DD("IX","IX","B",762)=""
^DD("IX","IX","B",764)=""
^DD("IX","IX","BB",.1101)=""
^DD("IX","IX","BB",.11401)=""
^DD("IX","IX","BB",.3101)=""
^DD("IX","IX","BB",.31201)=""
^DD("IX","IX","BB",6)=""
^DD("IX","IX","BB",213)=""
^DD("IX","IX","BB",479)=""
^DD("IX","IX","BCMA1",145)=""
^DD("IX","IX","C",7)=""
^DD("IX","IX","C",19)=""
^DD("IX","IX","C",49)=""
^DD("IX","IX","C",61)=""
^DD("IX","IX","C",66)=""
^DD("IX","IX","C",80)=""
^DD("IX","IX","C",84)=""
^DD("IX","IX","C",85)=""
^DD("IX","IX","C",86)=""
^DD("IX","IX","C",89)=""
^DD("IX","IX","C",90)=""
^DD("IX","IX","C",96)=""
^DD("IX","IX","C",115)=""
^DD("IX","IX","C",123)=""
^DD("IX","IX","C",167)=""
^DD("IX","IX","C",176)=""
^DD("IX","IX","C",192)=""
^DD("IX","IX","C",214)=""
^DD("IX","IX","C",225)=""
^DD("IX","IX","C",258)=""
^DD("IX","IX","C",263)=""
^DD("IX","IX","C",266)=""
^DD("IX","IX","C",279)=""
^DD("IX","IX","C",325)=""
^DD("IX","IX","C",332)=""
^DD("IX","IX","C",349)=""
^DD("IX","IX","C",359)=""
^DD("IX","IX","C",362)=""
^DD("IX","IX","C",390)=""
^DD("IX","IX","C",478)=""
^DD("IX","IX","C",507)=""
^DD("IX","IX","C",538)=""
^DD("IX","IX","C",571)=""
^DD("IX","IX","C",582)=""
^DD("IX","IX","C",600)=""
^DD("IX","IX","C",623)=""
^DD("IX","IX","C",626)=""
^DD("IX","IX","C",645)=""
^DD("IX","IX","C",648)=""
^DD("IX","IX","C",655)=""
^DD("IX","IX","C",660)=""
^DD("IX","IX","C",662)=""
^DD("IX","IX","C",666)=""
^DD("IX","IX","C",667)=""
^DD("IX","IX","C",668)=""
^DD("IX","IX","C",691)=""
^DD("IX","IX","C",720)=""
^DD("IX","IX","C",781)=""
^DD("IX","IX","C",782)=""
^DD("IX","IX","CH",18)=""
^DD("IX","IX","CMP",248)=""
^DD("IX","IX","D",39)=""
^DD("IX","IX","D",48)=""
^DD("IX","IX","D",51)=""
^DD("IX","IX","D",91)=""
^DD("IX","IX","D",97)=""
^DD("IX","IX","D",128)=""
^DD("IX","IX","D",168)=""
^DD("IX","IX","D",175)=""
^DD("IX","IX","D",205)=""
^DD("IX","IX","D",264)=""
^DD("IX","IX","D",267)=""
^DD("IX","IX","D",274)=""
^DD("IX","IX","D",277)=""
^DD("IX","IX","D",360)=""
^DD("IX","IX","D",392)=""
^DD("IX","IX","D",508)=""
^DD("IX","IX","D",533)=""
^DD("IX","IX","D",539)=""
^DD("IX","IX","D",639)=""
^DD("IX","IX","D",656)=""
^DD("IX","IX","D",663)=""
^DD("IX","IX","D",704)=""
^DD("IX","IX","D",741)=""
^DD("IX","IX","D",755)=""
^DD("IX","IX","D",763)=""
^DD("IX","IX","DEC",164)=""
^DD("IX","IX","DEST",203)=""
^DD("IX","IX","DFN",304)=""
^DD("IX","IX","DNS",109)=""
^DD("IX","IX","DNS2",216)=""
^DD("IX","IX","DUE",343)=""
^DD("IX","IX","E",202)=""
^DD("IX","IX","E",278)=""
^DD("IX","IX","E",406)=""
^DD("IX","IX","E",537)=""
^DD("IX","IX","E",540)=""
^DD("IX","IX","E",664)=""
^DD("IX","IX","F",.11403)=""
^DD("IX","IX","F",.31202)=""
^DD("IX","IX","F",417)=""
^DD("IX","IX","F",659)=""
^DD("IX","IX","F",661)=""
^DD("IX","IX","F",665)=""
^DD("IX","IX","G",364)=""
^DD("IX","IX","G",365)=""
^DD("IX","IX","G",541)=""
^DD("IX","IX","GMT",193)=""
^DD("IX","IX","HST",563)=""
^DD("IX","IX","I",55)=""
^DD("IX","IX","ICD0P",523)=""
^DD("IX","IX","ICD9P",522)=""
^DD("IX","IX","ICPTP",525)=""
^DD("IX","IX","IEN772IN",217)=""
^DD("IX","IX","IEN772OUT",218)=""
^DD("IX","IX","IP",219)=""
^DD("IX","IX","IX",.1102)=""
^DD("IX","IX","J",56)=""
^DD("IX","IX","KEY",150)=""
^DD("IX","IX","KEY",163)=""
^DD("IX","IX","KEY",372)=""
^DD("IX","IX","KEY",630)=""
^DD("IX","IX","KEY",631)=""
^DD("IX","IX","MSGTYPE",333)=""
^DD("IX","IX","NAME",305)=""
^DD("IX","IX","NAME",334)=""
^DD("IX","IX","NOP",588)=""
^DD("IX","IX","NPI42",677)=""
^DD("IX","IX","NPI42",680)=""
^DD("IX","IX","NPI42",705)=""
^DD("IX","IX","P",212)=""
^DD("IX","IX","P",672)=""
^DD("IX","IX","P1",223)=""
^DD("IX","IX","PK",510)=""
^DD("IX","IX","Q",17)=""
^DD("IX","IX","R",736)=""
^DD("IX","IX","REJDAT",652)=""
^DD("IX","IX","REJSTS",653)=""
^DD("IX","IX","ROUTE",76)=""
^DD("IX","IX","ROUTE",77)=""
^DD("IX","IX","S",.31203)=""
^DD("IX","IX","SERIESUID",671)=""
^DD("IX","IX","SERIESUID",673)=""
^DD("IX","IX","STS",204)=""
^DD("IX","IX","STS",226)=""
^DD("IX","IX","TAXSTATUS",678)=""
^DD("IX","IX","UNQ",791)=""
^DD("IX","IX","VS",308)=""
^DD("IX","IX","X",82)=""
^DD("IX","IX","XHDS",34)=""
^DD("IX","IX","XHDS",36)=""
^DD("IX","IX","XSD",15)=""
^DD("IX","IX","XSHIDS",37)=""
^DD("IX","IX","XSHIL",21)=""
^DD("IX","IX","XSL",29)=""
^DD("IX","IX","XSLHIDS",63)=""
^DD("IX","IX","XSTD",35)=""
^DD("IX","IX","XUMFAL",679)=""
^DD("IX","IX","XUMFID",339)=""
^DD("IX","IX","XUMFIDX",340)=""
^DD("IX","IX","XUMFKEY",341)=""
^DD("IX","IX","f",658)=""
^DD("KEY",0)="KEY^.31^73^67"
^DD("KEY",.1101,0)=".11^A^P^.1101^^"
^DD("KEY",.1101,2,0)="^.312I^2^2"
^DD("KEY",.1101,2,1,0)=".01^.11^1"
^DD("KEY",.1101,2,2,0)=".02^.11^2"
^DD("KEY",.1101,2,"B",.01,1)=""
^DD("KEY",.1101,2,"B",.02,2)=""
^DD("KEY",.1101,2,"BB",.01,.11,1)=""
^DD("KEY",.1101,2,"BB",.02,.11,2)=""
^DD("KEY",.1101,2,"S",1,.01,.11,1)=""
^DD("KEY",.1101,2,"S",2,.02,.11,2)=""
^DD("KEY",.11401,0)=".114^A^P^.11401^^"
^DD("KEY",.11401,2,0)="^.312I^1^1"
^DD("KEY",.11401,2,1,0)=".01^.114^1"
^DD("KEY",.11401,2,"B",.01,1)=""
^DD("KEY",.11401,2,"BB",.01,.114,1)=""
^DD("KEY",.11401,2,"S",1,.01,.114,1)=""
^DD("KEY",.3101,0)=".31^A^P^.3101^^"
^DD("KEY",.3101,2,0)="^.312I^2^2"
^DD("KEY",.3101,2,1,0)=".01^.31^1"
^DD("KEY",.3101,2,2,0)=".02^.31^2"
^DD("KEY",.3101,2,"B",.01,1)=""
^DD("KEY",.3101,2,"B",.02,2)=""
^DD("KEY",.3101,2,"BB",.01,.31,1)=""
^DD("KEY",.3101,2,"BB",.02,.31,2)=""
^DD("KEY",.3101,2,"S",1,.01,.31,1)=""
^DD("KEY",.3101,2,"S",2,.02,.31,2)=""
^DD("KEY",.31201,0)=".312^A^P^.31201^^"
^DD("KEY",.31201,2,0)="^.312I^2^2"
^DD("KEY",.31201,2,1,0)=".01^.312^1"
^DD("KEY",.31201,2,2,0)=".02^.312^2"
^DD("KEY",.31201,2,"B",.01,1)=""
^DD("KEY",.31201,2,"B",.02,2)=""
^DD("KEY",.31201,2,"BB",.01,.312,1)=""
^DD("KEY",.31201,2,"BB",.02,.312,2)=""
^DD("KEY",.31201,2,"S",1,.01,.312,1)=""
^DD("KEY",.31201,2,"S",2,.02,.312,2)=""
^DD("KEY",1,0)="3.81^A^P^1"
^DD("KEY",1,2,0)="^.312IA^1^1"
^DD("KEY",1,2,1,0)=".01^3.81^1"
^DD("KEY",1,2,"B",.01,1)=""
^DD("KEY",1,2,"BB",.01,3.81,1)=""
^DD("KEY",1,2,"S",1,.01,3.81,1)=""
^DD("KEY",2,0)="20^A^P^6"
^DD("KEY",2,2,0)="^.312IA^3^3"
^DD("KEY",2,2,1,0)=".01^20^1"
^DD("KEY",2,2,2,0)=".02^20^2"
^DD("KEY",2,2,3,0)=".03^20^3"
^DD("KEY",2,2,"B",.01,1)=""
^DD("KEY",2,2,"B",.02,2)=""
^DD("KEY",2,2,"B",.03,3)=""
^DD("KEY",2,2,"BB",.01,20,1)=""
^DD("KEY",2,2,"BB",.02,20,2)=""
^DD("KEY",2,2,"BB",.03,20,3)=""
^DD("KEY",2,2,"S",1,.01,20,1)=""
^DD("KEY",2,2,"S",2,.02,20,2)=""
^DD("KEY",2,2,"S",3,.03,20,3)=""
^DD("KEY",3,0)="798^A^P^150"
^DD("KEY",3,2,0)="^.312IA^2^2"
^DD("KEY",3,2,1,0)=".01^798^1"
^DD("KEY",3,2,2,0)=".02^798^2"
^DD("KEY",3,2,"B",.01,1)=""
^DD("KEY",3,2,"B",.02,2)=""
^DD("KEY",3,2,"BB",.01,798,1)=""
^DD("KEY",3,2,"BB",.02,798,2)=""
^DD("KEY",3,2,"S",1,.01,798,1)=""
^DD("KEY",3,2,"S",2,.02,798,2)=""
^DD("KEY",4,0)="798.1^A^S^151"
^DD("KEY",4,2,0)="^.312IA^1^1"
^DD("KEY",4,2,1,0)=".01^798.1^1"
^DD("KEY",4,2,"B",.01,1)=""
^DD("KEY",4,2,"BB",.01,798.1,1)=""
^DD("KEY",4,2,"S",1,.01,798.1,1)=""
^DD("KEY",5,0)="798.13^A^S^152"
^DD("KEY",5,2,0)="^.312IA^1^1"
^DD("KEY",5,2,1,0)=".01^798.13^1"
^DD("KEY",5,2,"B",.01,1)=""
^DD("KEY",5,2,"BB",.01,798.13,1)=""
^DD("KEY",5,2,"S",1,.01,798.13,1)=""
^DD("KEY",6,0)="798.128^G^P^364"
^DD("KEY",6,2,0)="^.312IA^2^2"
^DD("KEY",6,2,1,0)=".02^798.128^1"
^DD("KEY",6,2,2,0)=".01^798.128^2"
^DD("KEY",6,2,"B",.01,2)=""
^DD("KEY",6,2,"B",.02,1)=""
^DD("KEY",6,2,"BB",.01,798.128,2)=""
^DD("KEY",6,2,"BB",.02,798.128,1)=""
^DD("KEY",6,2,"S",1,.02,798.128,1)=""
^DD("KEY",6,2,"S",2,.01,798.128,2)=""
^DD("KEY",7,0)="798.2^A^S^154"
^DD("KEY",7,2,0)="^.312IA^1^1"
^DD("KEY",7,2,1,0)=".01^798.2^1"
^DD("KEY",7,2,"B",.01,1)=""
^DD("KEY",7,2,"BB",.01,798.2,1)=""
^DD("KEY",7,2,"S",1,.01,798.2,1)=""
^DD("KEY",8,0)="798.02^B^S^159"
^DD("KEY",8,2,0)="^.312IA^1^1"
^DD("KEY",8,2,1,0)=".01^798.02^1"
^DD("KEY",8,2,"B",.01,1)=""
^DD("KEY",8,2,"BB",.01,798.02,1)=""
^DD("KEY",8,2,"S",1,.01,798.02,1)=""
^DD("KEY",9,0)="798.11^A^S^160"
^DD("KEY",9,2,0)="^.312IA^1^1"
^DD("KEY",9,2,1,0)=".01^798.11^1"
^DD("KEY",9,2,"B",.01,1)=""
^DD("KEY",9,2,"BB",.01,798.11,1)=""
^DD("KEY",9,2,"S",1,.01,798.11,1)=""
^DD("KEY",10,0)="8927.1^A^P^62"
^DD("KEY",10,2,0)="^.312IA^1^1"
^DD("KEY",10,2,1,0)=".01^8927.1^1"
^DD("KEY",10,2,"B",.01,1)=""
^DD("KEY",10,2,"BB",.01,8927.1,1)=""
^DD("KEY",10,2,"S",1,.01,8927.1,1)=""
^DD("KEY",11,0)="161.45^A^P^66"
^DD("KEY",11,2,0)="^.312IA^2^2"
^DD("KEY",11,2,1,0)=".01^161.45^1"
^DD("KEY",11,2,2,0)="1^161.45^2"
^DD("KEY",11,2,"B",.01,1)=""
^DD("KEY",11,2,"B",1,2)=""
^DD("KEY",11,2,"BB",.01,161.45,1)=""
^DD("KEY",11,2,"BB",1,161.45,2)=""
^DD("KEY",11,2,"S",1,.01,161.45,1)=""
^DD("KEY",11,2,"S",2,1,161.45,2)=""
^DD("KEY",12,0)="798.118^A^S^220"
^DD("KEY",12,2,0)="^.312IA^1^1"
^DD("KEY",12,2,1,0)=".01^798.118^1"
^DD("KEY",12,2,"B",.01,1)=""
^DD("KEY",12,2,"BB",.01,798.118,1)=""
^DD("KEY",12,2,"S",1,.01,798.118,1)=""
^DD("KEY",13,0)="798.129^G^P^365"
^DD("KEY",13,2,0)="^.312IA^2^2"
^DD("KEY",13,2,1,0)=".02^798.129^1"
^DD("KEY",13,2,2,0)=".01^798.129^2"
^DD("KEY",13,2,"B",.01,2)=""
^DD("KEY",13,2,"B",.02,1)=""
^DD("KEY",13,2,"BB",.01,798.129,2)=""
^DD("KEY",13,2,"BB",.02,798.129,1)=""
^DD("KEY",13,2,"S",1,.02,798.129,1)=""
^DD("KEY",13,2,"S",2,.01,798.129,2)=""
^DD("KEY",14,0)="798.122^A^S^221"
^DD("KEY",14,2,0)="^.312IA^1^1"
^DD("KEY",14,2,1,0)=".01^798.122^1"
^DD("KEY",14,2,"B",.01,1)=""
^DD("KEY",14,2,"BB",.01,798.122,1)=""
^DD("KEY",14,2,"S",1,.01,798.122,1)=""
^DD("KEY",17,0)="101.15^A^P^98"
^DD("KEY",17,2,0)="^.312IA^1^1"
^DD("KEY",17,2,1,0)=".01^101.15^1"
^DD("KEY",17,2,"B",.01,1)=""
^DD("KEY",17,2,"BB",.01,101.15,1)=""
^DD("KEY",17,2,"S",1,.01,101.15,1)=""
^DD("KEY",20,0)="798.26^A^S^155"
^DD("KEY",20,2,0)="^.312IA^1^1"
^DD("KEY",20,2,1,0)=".01^798.26^1"
^DD("KEY",20,2,"B",.01,1)=""
^DD("KEY",20,2,"BB",.01,798.26,1)=""
^DD("KEY",20,2,"S",1,.01,798.26,1)=""
^DD("KEY",21,0)="798.31^A^S^156"
^DD("KEY",21,2,0)="^.312IA^1^1"
^DD("KEY",21,2,1,0)=".01^798.31^1"
^DD("KEY",21,2,"B",.01,1)=""
^DD("KEY",21,2,"BB",.01,798.31,1)=""
^DD("KEY",21,2,"S",1,.01,798.31,1)=""
^DD("KEY",24,0)="798.9^A^S^162"
^DD("KEY",24,2,0)="^.312IA^1^1"
^DD("KEY",24,2,1,0)=".01^798.9^1"
^DD("KEY",24,2,"B",.01,1)=""
^DD("KEY",24,2,"BB",.01,798.9,1)=""
^DD("KEY",24,2,"S",1,.01,798.9,1)=""
^DD("KEY",25,0)="799.1^A^P^163"
^DD("KEY",25,2,0)="^.312IA^3^3"
^DD("KEY",25,2,1,0)=".02^799.1^1"
^DD("KEY",25,2,2,0)=".03^799.1^2"
^DD("KEY",25,2,3,0)=".04^799.1^3"
^DD("KEY",25,2,"B",.02,1)=""
^DD("KEY",25,2,"B",.03,2)=""
^DD("KEY",25,2,"B",.04,3)=""
^DD("KEY",25,2,"BB",.02,799.1,1)=""
^DD("KEY",25,2,"BB",.03,799.1,2)=""
^DD("KEY",25,2,"BB",.04,799.1,3)=""
^DD("KEY",25,2,"S",1,.02,799.1,1)=""
^DD("KEY",25,2,"S",2,.03,799.1,2)=""
^DD("KEY",25,2,"S",3,.04,799.1,3)=""
^DD("KEY",26,0)="799.22^A^S^164"
^DD("KEY",26,2,0)="^.312IA^1^1"
^DD("KEY",26,2,1,0)=".02^799.22^1"
^DD("KEY",26,2,"B",.02,1)=""
^DD("KEY",26,2,"BB",.02,799.22,1)=""
^DD("KEY",26,2,"S",1,.02,799.22,1)=""
^DD("KEY",27,0)="799.22^B^S^165"
^DD("KEY",27,2,0)="^.312IA^1^1"
^DD("KEY",27,2,1,0)=".01^799.22^1"
^DD("KEY",27,2,"B",.01,1)=""
^DD("KEY",27,2,"BB",.01,799.22,1)=""
^DD("KEY",27,2,"S",1,.01,799.22,1)=""
^DD("KEY",28,0)="712.5^A^P^192"
^DD("KEY",28,2,0)="^.312IA^3^3"
^DD("KEY",28,2,1,0)=".01^712.5^1"
^DD("KEY",28,2,2,0)=".02^712.5^2"
^DD("KEY",28,2,3,0)=".05^712.5^3"
^DD("KEY",28,2,"B",.01,1)=""
^DD("KEY",28,2,"B",.02,2)=""
^DD("KEY",28,2,"B",.05,3)=""
^DD("KEY",28,2,"BB",.01,712.5,1)=""
^DD("KEY",28,2,"BB",.02,712.5,2)=""
^DD("KEY",28,2,"BB",.05,712.5,3)=""
^DD("KEY",28,2,"S",1,.01,712.5,1)=""
^DD("KEY",28,2,"S",2,.02,712.5,2)=""
^DD("KEY",28,2,"S",3,.05,712.5,3)=""
^DD("KEY",29,0)="392.31^A^P^213"
^DD("KEY",29,2,0)="^.312IA^2^2"
^DD("KEY",29,2,1,0)=".03^392.31^1"
^DD("KEY",29,2,2,0)=".02^392.31^2"
^DD("KEY",29,2,"B",.02,2)=""
^DD("KEY",29,2,"B",.03,1)=""
^DD("KEY",29,2,"BB",.02,392.31,2)=""
^DD("KEY",29,2,"BB",.03,392.31,1)=""
^DD("KEY",29,2,"S",1,.03,392.31,1)=""
^DD("KEY",29,2,"S",2,.02,392.31,2)=""
^DD("KEY",30,0)="799.31^A^S^222"
^DD("KEY",30,2,0)="^.312IA^1^1"
^DD("KEY",30,2,1,0)=".01^799.31^1"
^DD("KEY",30,2,"B",.01,1)=""
^DD("KEY",30,2,"BB",.01,799.31,1)=""
^DD("KEY",30,2,"S",1,.01,799.31,1)=""
^DD("KEY",31,0)="365.11^A^P^277"
^DD("KEY",31,2,0)="^.312IA^1^1"
^DD("KEY",31,2,1,0)=".01^365.11^1"
^DD("KEY",31,2,"B",.01,1)=""
^DD("KEY",31,2,"BB",.01,365.11,1)=""
^DD("KEY",31,2,"S",1,.01,365.11,1)=""
^DD("KEY",32,0)="801.41^B^P^735"
^DD("KEY",32,2,0)="^.312IA^1^1"
^DD("KEY",32,2,1,0)=".01^801.41^1"
^DD("KEY",32,2,"B",.01,1)=""
^DD("KEY",32,2,"BB",.01,801.41,1)=""
^DD("KEY",32,2,"S",1,.01,801.41,1)=""
^DD("KEY",35,0)="810.21^A^P^737"
^DD("KEY",35,2,0)="^.312IA^1^1"
^DD("KEY",35,2,1,0)=".01^810.21^1"
^DD("KEY",35,2,"B",.01,1)=""
^DD("KEY",35,2,"BB",.01,810.21,1)=""
^DD("KEY",35,2,"S",1,.01,810.21,1)=""
^DD("KEY",36,0)="810.41^A^P^739"
^DD("KEY",36,2,0)="^.312IA^1^1"
^DD("KEY",36,2,1,0)=".01^810.41^1"
^DD("KEY",36,2,"B",.01,1)=""
^DD("KEY",36,2,"BB",.01,810.41,1)=""
^DD("KEY",36,2,"S",1,.01,810.41,1)=""
^DD("KEY",37,0)="4.9999^A^P^341"
^DD("KEY",37,2,0)="^.312IA^2^2"
^DD("KEY",37,2,1,0)=".01^4.9999^1"
^DD("KEY",37,2,2,0)=".02^4.9999^2"
^DD("KEY",37,2,"B",.01,1)=""
^DD("KEY",37,2,"B",.02,2)=""
^DD("KEY",37,2,"BB",.01,4.9999,1)=""
^DD("KEY",37,2,"BB",.02,4.9999,2)=""
^DD("KEY",37,2,"S",1,.01,4.9999,1)=""
^DD("KEY",37,2,"S",2,.02,4.9999,2)=""
^DD("KEY",38,0)="776.3^A^P^349"
^DD("KEY",38,2,0)="^.312IA^2^2"
^DD("KEY",38,2,1,0)=".01^776.3^1"
^DD("KEY",38,2,2,0)=".08^776.3^2"
^DD("KEY",38,2,"B",.01,1)=""
^DD("KEY",38,2,"B",.08,2)=""
^DD("KEY",38,2,"BB",.01,776.3,1)=""
^DD("KEY",38,2,"BB",.08,776.3,2)=""
^DD("KEY",38,2,"S",1,.01,776.3,1)=""
^DD("KEY",38,2,"S",2,.08,776.3,2)=""
^DD("KEY",39,0)="776.5^A^P^362"
^DD("KEY",39,2,0)="^.312IA^2^2"
^DD("KEY",39,2,1,0)=".01^776.5^1"
^DD("KEY",39,2,2,0)=".02^776.5^2"
^DD("KEY",39,2,"B",.01,1)=""
^DD("KEY",39,2,"B",.02,2)=""
^DD("KEY",39,2,"BB",.01,776.5,1)=""
^DD("KEY",39,2,"BB",.02,776.5,2)=""
^DD("KEY",39,2,"S",1,.01,776.5,1)=""
^DD("KEY",39,2,"S",2,.02,776.5,2)=""
^DD("KEY",40,0)="810.701^A^P^744"
^DD("KEY",40,2,0)="^.312IA^1^1"
^DD("KEY",40,2,1,0)=".01^810.701^1"
^DD("KEY",40,2,"B",.01,1)=""
^DD("KEY",40,2,"BB",.01,810.701,1)=""
^DD("KEY",40,2,"S",1,.01,810.701,1)=""
^DD("KEY",41,0)="799.34^A^P^372"
^DD("KEY",41,2,0)="^.312IA^1^1"
^DD("KEY",41,2,1,0)=".04^799.34^1"
^DD("KEY",41,2,"B",.04,1)=""
^DD("KEY",41,2,"BB",.04,799.34,1)=""
^DD("KEY",41,2,"S",1,.04,799.34,1)=""
^DD("KEY",42,0)="799.51^A^S^630"
^DD("KEY",42,2,0)="^.312IA^3^3"
^DD("KEY",42,2,1,0)=".02^799.51^1"
^DD("KEY",42,2,2,0)=".03^799.51^2"
^DD("KEY",42,2,3,0)=".04^799.51^3"
^DD("KEY",42,2,"B",.02,1)=""
^DD("KEY",42,2,"B",.03,2)=""
^DD("KEY",42,2,"B",.04,3)=""
^DD("KEY",42,2,"BB",.02,799.51,1)=""
^DD("KEY",42,2,"BB",.03,799.51,2)=""
^DD("KEY",42,2,"BB",.04,799.51,3)=""
^DD("KEY",42,2,"S",1,.02,799.51,1)=""
^DD("KEY",42,2,"S",2,.03,799.51,2)=""
^DD("KEY",42,2,"S",3,.04,799.51,3)=""
^DD("KEY",45,0)="810.801^A^P^746"
^DD("KEY",45,2,0)="^.312IA^1^1"
^DD("KEY",45,2,1,0)=".01^810.801^1"
^DD("KEY",45,2,"B",.01,1)=""
^DD("KEY",45,2,"BB",.01,810.801,1)=""
^DD("KEY",45,2,"S",1,.01,810.801,1)=""
^DD("KEY",46,0)="811.5^A^P^749"
^DD("KEY",46,2,0)="^.312IA^1^1"
^DD("KEY",46,2,1,0)=".01^811.5^1"
^DD("KEY",46,2,"B",.01,1)=""
^DD("KEY",46,2,"BB",.01,811.5,1)=""
^DD("KEY",46,2,"S",1,.01,811.5,1)=""
^DD("KEY",47,0)="811.8^A^P^754"
^DD("KEY",47,2,0)="^.312IA^2^2"
^DD("KEY",47,2,1,0)=".01^811.8^1"
^DD("KEY",47,2,2,0)=".03^811.8^2"
^DD("KEY",47,2,"B",.01,1)=""
^DD("KEY",47,2,"B",.03,2)=""
^DD("KEY",47,2,"BB",.01,811.8,1)=""
^DD("KEY",47,2,"BB",.03,811.8,2)=""
^DD("KEY",47,2,"S",1,.01,811.8,1)=""
^DD("KEY",47,2,"S",2,.03,811.8,2)=""
^DD("KEY",48,0)="811.2^A^P^512"
^DD("KEY",48,2,0)="^.312IA^1^1"
^DD("KEY",48,2,1,0)=".01^811.2^1"
^DD("KEY",48,2,"B",.01,1)=""
^DD("KEY",48,2,"BB",.01,811.2,1)=""
^DD("KEY",48,2,"S",1,.01,811.2,1)=""
^DD("KEY",49,0)="811.4^A^P^526"
^DD("KEY",49,2,0)="^.312IA^1^1"
^DD("KEY",49,2,1,0)=".01^811.4^1"
^DD("KEY",49,2,"B",.01,1)=""
^DD("KEY",49,2,"BB",.01,811.4,1)=""
^DD("KEY",49,2,"S",1,.01,811.4,1)=""
^DD("KEY",50,0)="811.9^B^P^762"
^DD("KEY",50,2,0)="^.312IA^1^1"
^DD("KEY",50,2,1,0)=".01^811.9^1"
^DD("KEY",50,2,"B",.01,1)=""
^DD("KEY",50,2,"BB",.01,811.9,1)=""
^DD("KEY",50,2,"S",1,.01,811.9,1)=""
^DD("KEY",51,0)="799.53^A^P^631"
^DD("KEY",51,2,0)="^.312IA^2^2"
^DD("KEY",51,2,1,0)=".03^799.53^1"
^DD("KEY",51,2,2,0)=".01^799.53^2"
^DD("KEY",51,2,"B",.01,2)=""
^DD("KEY",51,2,"B",.03,1)=""
^DD("KEY",51,2,"BB",.01,799.53,2)=""
^DD("KEY",51,2,"BB",.03,799.53,1)=""
^DD("KEY",51,2,"S",1,.03,799.53,1)=""
^DD("KEY",51,2,"S",2,.01,799.53,2)=""
^DD("KEY",52,0)="811.7^A^P^536"
^DD("KEY",52,2,0)="^.312IA^1^1"
^DD("KEY",52,2,1,0)=".01^811.7^1"
^DD("KEY",52,2,"B",.01,1)=""
^DD("KEY",52,2,"BB",.01,811.7,1)=""
^DD("KEY",52,2,"S",1,.01,811.7,1)=""
^DD("KEY",55,0)="142^A^P^563"
^DD("KEY",55,2,0)="^.312IA^1^1"
^DD("KEY",55,2,1,0)=".01^142^1"
^DD("KEY",55,2,"B",.01,1)=""
^DD("KEY",55,2,"BB",.01,142,1)=""
^DD("KEY",55,2,"S",1,.01,142,1)=""
^DD("KEY",56,0)="661.5^A^P^29"
^DD("KEY",56,2,0)="^.312IA^2^2"
^DD("KEY",56,2,1,0)="2^661.5^1"
^DD("KEY",56,2,2,0)=".01^661.5^2"
^DD("KEY",56,2,"B",.01,2)=""
^DD("KEY",56,2,"B",2,1)=""
^DD("KEY",56,2,"BB",.01,661.5,2)=""
^DD("KEY",56,2,"BB",2,661.5,1)=""
^DD("KEY",56,2,"S",1,2,661.5,1)=""
^DD("KEY",56,2,"S",2,.01,661.5,2)=""
^DD("KEY",57,0)="8985.1^A^P^570"
^DD("KEY",57,2,0)="^.312IA^3^3"
^DD("KEY",57,2,1,0)=".01^8985.1^1"
^DD("KEY",57,2,2,0)=".02^8985.1^2"
^DD("KEY",57,2,3,0)=".03^8985.1^3"
^DD("KEY",57,2,"B",.01,1)=""
^DD("KEY",57,2,"B",.02,2)=""
^DD("KEY",57,2,"B",.03,3)=""
^DD("KEY",57,2,"BB",.01,8985.1,1)=""
^DD("KEY",57,2,"BB",.02,8985.1,2)=""
^DD("KEY",57,2,"BB",.03,8985.1,3)=""
^DD("KEY",57,2,"S",1,.01,8985.1,1)=""
^DD("KEY",57,2,"S",2,.02,8985.1,2)=""
^DD("KEY",57,2,"S",3,.03,8985.1,3)=""
^DD("KEY",58,0)="8985.11^A^P^572"
^DD("KEY",58,2,0)="^.312IA^1^1"
^DD("KEY",58,2,1,0)=".01^8985.11^1"
^DD("KEY",58,2,"B",.01,1)=""
^DD("KEY",58,2,"BB",.01,8985.11,1)=""
^DD("KEY",58,2,"S",1,.01,8985.11,1)=""
^DD("KEY",59,0)="414.02^A^P^581"
^DD("KEY",59,2,0)="^.312IA^1^1"
^DD("KEY",59,2,1,0)=".01^414.02^1"
^DD("KEY",59,2,"B",.01,1)=""
^DD("KEY",59,2,"BB",.01,414.02,1)=""
^DD("KEY",59,2,"S",1,.01,414.02,1)=""
^DD("KEY",60,0)="414.03^A^P^582"
^DD("KEY",60,2,0)="^.312IA^3^3"
^DD("KEY",60,2,1,0)=".01^414.03^1"
^DD("KEY",60,2,2,0)=".02^414.03^2"
^DD("KEY",60,2,3,0)=".03^414.03^3"
^DD("KEY",60,2,"B",.01,1)=""
^DD("KEY",60,2,"B",.02,2)=""
^DD("KEY",60,2,"B",.03,3)=""
^DD("KEY",60,2,"BB",.01,414.03,1)=""
^DD("KEY",60,2,"BB",.02,414.03,2)=""
^DD("KEY",60,2,"BB",.03,414.03,3)=""
^DD("KEY",60,2,"S",1,.01,414.03,1)=""
^DD("KEY",60,2,"S",2,.02,414.03,2)=""
^DD("KEY",60,2,"S",3,.03,414.03,3)=""
^DD("KEY",61,0)="414.04^A^P^600"
^DD("KEY",61,2,0)="^.312IA^3^3"
^DD("KEY",61,2,1,0)=".01^414.04^1"
^DD("KEY",61,2,2,0)=".02^414.04^2"
^DD("KEY",61,2,3,0)=".03^414.04^3"
^DD("KEY",61,2,"B",.01,1)=""
^DD("KEY",61,2,"B",.02,2)=""
^DD("KEY",61,2,"B",.03,3)=""
^DD("KEY",61,2,"BB",.01,414.04,1)=""
^DD("KEY",61,2,"BB",.02,414.04,2)=""
^DD("KEY",61,2,"BB",.03,414.04,3)=""
^DD("KEY",61,2,"S",1,.01,414.04,1)=""
^DD("KEY",61,2,"S",2,.02,414.04,2)=""
^DD("KEY",61,2,"S",3,.03,414.04,3)=""
^DD("KEY",62,0)="779.2^A^P^84"
^DD("KEY",62,2,0)="^.312IA^1^1"
^DD("KEY",62,2,1,0)=".01^779.2^1"
^DD("KEY",62,2,"B",.01,1)=""
^DD("KEY",62,2,"BB",.01,779.2,1)=""
^DD("KEY",62,2,"S",1,.01,779.2,1)=""
^DD("KEY",63,0)="779.21^A^P^89"
^DD("KEY",63,2,0)="^.312IA^2^2"
^DD("KEY",63,2,1,0)=".01^779.21^1"
^DD("KEY",63,2,2,0)=".02^779.21^2"
^DD("KEY",63,2,"B",.01,1)=""
^DD("KEY",63,2,"B",.02,2)=""
^DD("KEY",63,2,"BB",.01,779.21,1)=""
^DD("KEY",63,2,"BB",.02,779.21,2)=""
^DD("KEY",63,2,"S",1,.01,779.21,1)=""
^DD("KEY",63,2,"S",2,.02,779.21,2)=""
^DD("KEY",64,0)="779.3^A^P^91"
^DD("KEY",64,2,0)="^.312IA^1^1"
^DD("KEY",64,2,1,0)=".01^779.3^1"
^DD("KEY",64,2,"B",.01,1)=""
^DD("KEY",64,2,"BB",.01,779.3,1)=""
^DD("KEY",64,2,"S",1,.01,779.3,1)=""
^DD("KEY",65,0)="811.6^A^P^625"
^DD("KEY",65,2,0)="^.312IA^1^1"
^DD("KEY",65,2,1,0)=".01^811.6^1"
^DD("KEY",65,2,"B",.01,1)=""
^DD("KEY",65,2,"BB",.01,811.6,1)=""
^DD("KEY",65,2,"S",1,.01,811.6,1)=""
^DD("KEY",66,0)="799.6^A^S^633"
^DD("KEY",66,2,0)="^.312IA^1^1"
^DD("KEY",66,2,1,0)=".01^799.6^1"
^DD("KEY",66,2,"B",.01,1)=""
^DD("KEY",66,2,"BB",.01,799.6,1)=""
^DD("KEY",66,2,"S",1,.01,799.6,1)=""
^DD("KEY",67,0)="799.61^A^S^634"
^DD("KEY",67,2,0)="^.312IA^1^1"
^DD("KEY",67,2,1,0)=".01^799.61^1"
^DD("KEY",67,2,"B",.01,1)=""
^DD("KEY",67,2,"BB",.01,799.61,1)=""
^DD("KEY",67,2,"S",1,.01,799.61,1)=""
^DD("KEY",68,0)="799.63^A^S^636"
^DD("KEY",68,2,0)="^.312IA^1^1"
^DD("KEY",68,2,1,0)=".01^799.63^1"
^DD("KEY",68,2,"B",.01,1)=""
^DD("KEY",68,2,"BB",.01,799.63,1)=""
^DD("KEY",68,2,"S",1,.01,799.63,1)=""
^DD("KEY",69,0)="799.64^A^S^638"
^DD("KEY",69,2,0)="^.312IA^1^1"
^DD("KEY",69,2,1,0)=".01^799.64^1"
^DD("KEY",69,2,"B",.01,1)=""
^DD("KEY",69,2,"BB",.01,799.64,1)=""
^DD("KEY",69,2,"S",1,.01,799.64,1)=""
^DD("KEY",70,0)="409.55^A^P^639"
^DD("KEY",70,2,0)="^.312IA^3^3"
^DD("KEY",70,2,1,0)=".01^409.55^1"
^DD("KEY",70,2,2,0)=".02^409.55^2"
^DD("KEY",70,2,3,0)=".03^409.55^3"
^DD("KEY",70,2,"B",.01,1)=""
^DD("KEY",70,2,"B",.02,2)=""
^DD("KEY",70,2,"B",.03,3)=""
^DD("KEY",70,2,"BB",.01,409.55,1)=""
^DD("KEY",70,2,"BB",.02,409.55,2)=""
^DD("KEY",70,2,"BB",.03,409.55,3)=""
^DD("KEY",70,2,"S",1,.01,409.55,1)=""
^DD("KEY",70,2,"S",2,.02,409.55,2)=""
^DD("KEY",70,2,"S",3,.03,409.55,3)=""
^DD("KEY",71,0)="18.05^A^P^334"
^DD("KEY",71,2,0)="^.312IA^1^1"
^DD("KEY",71,2,1,0)=".01^18.05^1"
^DD("KEY",71,2,"B",.01,1)=""
^DD("KEY",71,2,"BB",.01,18.05,1)=""
^DD("KEY",71,2,"S",1,.01,18.05,1)=""
^DD("KEY",72,0)="18.05^B^S^333"
^DD("KEY",72,2,0)="^.312IA^1^1"
^DD("KEY",72,2,1,0)=".02^18.05^1"
^DD("KEY",72,2,"B",.02,1)=""
^DD("KEY",72,2,"BB",.02,18.05,1)=""
^DD("KEY",72,2,"S",1,.02,18.05,1)=""
^DD("KEY",73,0)="420.14^A^P^791"
^DD("KEY",73,2,0)="^.312IA^3^3"
^DD("KEY",73,2,1,0)=".01^420.14^1"
^DD("KEY",73,2,2,0)="2^420.14^2"
^DD("KEY",73,2,3,0)="3^420.14^3"
^DD("KEY",73,2,"B",.01,1)=""
^DD("KEY",73,2,"B",2,2)=""
^DD("KEY",73,2,"B",3,3)=""
^DD("KEY",73,2,"BB",.01,420.14,1)=""
^DD("KEY",73,2,"BB",2,420.14,2)=""
^DD("KEY",73,2,"BB",3,420.14,3)=""
^DD("KEY",73,2,"S",1,.01,420.14,1)=""
^DD("KEY",73,2,"S",2,2,420.14,2)=""
^DD("KEY",73,2,"S",3,3,420.14,3)=""
^DD("KEY",74,0)="802.4^A^P^378"
^DD("KEY",74,2,0)="^.312IA^1^1"
^DD("KEY",74,2,1,0)=".01^802.4^1"
^DD("KEY",74,2,"B",.01,1)=""
^DD("KEY",74,2,"BB",.01,802.4,1)=""
^DD("KEY",74,2,"S",1,.01,802.4,1)=""
^DD("KEY",75,0)="810.9^A^P^531"
^DD("KEY",75,2,0)="^.312IA^1^1"
^DD("KEY",75,2,1,0)=".01^810.9^1"
^DD("KEY",75,2,"B",.01,1)=""
^DD("KEY",75,2,"BB",.01,810.9,1)=""
^DD("KEY",75,2,"S",1,.01,810.9,1)=""
^DD("KEY","AP",.11,"P",.1101)=""
^DD("KEY","AP",.114,"P",.11401)=""
^DD("KEY","AP",.31,"P",.3101)=""
^DD("KEY","AP",.312,"P",.31201)=""
^DD("KEY","AP",3.81,"P",1)=""
^DD("KEY","AP",4.9999,"P",37)=""
^DD("KEY","AP",18.05,"P",71)=""
^DD("KEY","AP",20,"P",2)=""
^DD("KEY","AP",101.15,"P",17)=""
^DD("KEY","AP",142,"P",55)=""
^DD("KEY","AP",161.45,"P",11)=""
^DD("KEY","AP",365.11,"P",31)=""
^DD("KEY","AP",392.31,"P",29)=""
^DD("KEY","AP",409.55,"P",70)=""
^DD("KEY","AP",414.02,"P",59)=""
^DD("KEY","AP",414.03,"P",60)=""
^DD("KEY","AP",414.04,"P",61)=""
^DD("KEY","AP",420.14,"P",73)=""
^DD("KEY","AP",661.5,"P",56)=""
^DD("KEY","AP",712.5,"P",28)=""
^DD("KEY","AP",776.3,"P",38)=""
^DD("KEY","AP",776.5,"P",39)=""
^DD("KEY","AP",779.2,"P",62)=""
^DD("KEY","AP",779.21,"P",63)=""
^DD("KEY","AP",779.3,"P",64)=""
^DD("KEY","AP",798,"P",3)=""
^DD("KEY","AP",798.128,"P",6)=""
^DD("KEY","AP",798.129,"P",13)=""
^DD("KEY","AP",799.1,"P",25)=""
^DD("KEY","AP",799.34,"P",41)=""
^DD("KEY","AP",799.53,"P",51)=""
^DD("KEY","AP",801.41,"P",32)=""
^DD("KEY","AP",802.4,"P",74)=""
^DD("KEY","AP",810.21,"P",35)=""
^DD("KEY","AP",810.41,"P",36)=""
^DD("KEY","AP",810.701,"P",40)=""
^DD("KEY","AP",810.801,"P",45)=""
^DD("KEY","AP",810.9,"P",75)=""
^DD("KEY","AP",811.2,"P",48)=""
^DD("KEY","AP",811.4,"P",49)=""
^DD("KEY","AP",811.5,"P",46)=""
^DD("KEY","AP",811.6,"P",65)=""
^DD("KEY","AP",811.7,"P",52)=""
^DD("KEY","AP",811.8,"P",47)=""
^DD("KEY","AP",811.9,"P",50)=""
^DD("KEY","AP",8927.1,"P",10)=""
^DD("KEY","AP",8985.1,"P",57)=""
^DD("KEY","AP",8985.11,"P",58)=""
^DD("KEY","AU",.1101,.1101)=""
^DD("KEY","AU",.11401,.11401)=""
^DD("KEY","AU",.3101,.3101)=""
^DD("KEY","AU",.31201,.31201)=""
^DD("KEY","AU",1,1)=""
^DD("KEY","AU",6,2)=""
^DD("KEY","AU",29,56)=""
^DD("KEY","AU",62,10)=""
^DD("KEY","AU",66,11)=""
^DD("KEY","AU",84,62)=""
^DD("KEY","AU",89,63)=""
^DD("KEY","AU",91,64)=""
^DD("KEY","AU",98,17)=""
^DD("KEY","AU",150,3)=""
^DD("KEY","AU",151,4)=""
^DD("KEY","AU",152,5)=""
^DD("KEY","AU",154,7)=""
^DD("KEY","AU",155,20)=""
^DD("KEY","AU",156,21)=""
^DD("KEY","AU",159,8)=""
^DD("KEY","AU",160,9)=""
^DD("KEY","AU",162,24)=""
^DD("KEY","AU",163,25)=""
^DD("KEY","AU",164,26)=""
^DD("KEY","AU",165,27)=""
^DD("KEY","AU",192,28)=""
^DD("KEY","AU",213,29)=""
^DD("KEY","AU",220,12)=""
^DD("KEY","AU",221,14)=""
^DD("KEY","AU",222,30)=""
^DD("KEY","AU",277,31)=""
^DD("KEY","AU",333,72)=""
^DD("KEY","AU",334,71)=""
^DD("KEY","AU",341,37)=""
^DD("KEY","AU",349,38)=""
^DD("KEY","AU",362,39)=""
^DD("KEY","AU",364,6)=""
^DD("KEY","AU",365,13)=""
^DD("KEY","AU",372,41)=""
^DD("KEY","AU",378,74)=""
^DD("KEY","AU",512,48)=""
^DD("KEY","AU",526,49)=""
^DD("KEY","AU",531,75)=""
^DD("KEY","AU",536,52)=""
^DD("KEY","AU",563,55)=""
^DD("KEY","AU",570,57)=""
^DD("KEY","AU",572,58)=""
^DD("KEY","AU",581,59)=""
^DD("KEY","AU",582,60)=""
^DD("KEY","AU",600,61)=""
^DD("KEY","AU",625,65)=""
^DD("KEY","AU",630,42)=""
^DD("KEY","AU",631,51)=""
^DD("KEY","AU",633,66)=""
^DD("KEY","AU",634,67)=""
^DD("KEY","AU",636,68)=""
^DD("KEY","AU",638,69)=""
^DD("KEY","AU",639,70)=""
^DD("KEY","AU",735,32)=""
^DD("KEY","AU",737,35)=""
^DD("KEY","AU",739,36)=""
^DD("KEY","AU",744,40)=""
^DD("KEY","AU",746,45)=""
^DD("KEY","AU",749,46)=""
^DD("KEY","AU",754,47)=""
^DD("KEY","AU",762,50)=""
^DD("KEY","AU",791,73)=""
^DD("KEY","B",.11,.1101)=""
^DD("KEY","B",.114,.11401)=""
^DD("KEY","B",.31,.3101)=""
^DD("KEY","B",.312,.31201)=""
^DD("KEY","B",3.81,1)=""
^DD("KEY","B",4.9999,37)=""
^DD("KEY","B",18.05,71)=""
^DD("KEY","B",18.05,72)=""
^DD("KEY","B",20,2)=""
^DD("KEY","B",101.15,17)=""
^DD("KEY","B",142,55)=""
^DD("KEY","B",161.45,11)=""
^DD("KEY","B",365.11,31)=""
^DD("KEY","B",392.31,29)=""
^DD("KEY","B",409.55,70)=""
^DD("KEY","B",414.02,59)=""
^DD("KEY","B",414.03,60)=""
^DD("KEY","B",414.04,61)=""
^DD("KEY","B",420.14,73)=""
^DD("KEY","B",661.5,56)=""
^DD("KEY","B",712.5,28)=""
^DD("KEY","B",776.3,38)=""
^DD("KEY","B",776.5,39)=""
^DD("KEY","B",779.2,62)=""
^DD("KEY","B",779.21,63)=""
^DD("KEY","B",779.3,64)=""
^DD("KEY","B",798,3)=""
^DD("KEY","B",798.02,8)=""
^DD("KEY","B",798.1,4)=""
^DD("KEY","B",798.11,9)=""
^DD("KEY","B",798.118,12)=""
^DD("KEY","B",798.122,14)=""
^DD("KEY","B",798.128,6)=""
^DD("KEY","B",798.129,13)=""
^DD("KEY","B",798.13,5)=""
^DD("KEY","B",798.2,7)=""
^DD("KEY","B",798.26,20)=""
^DD("KEY","B",798.31,21)=""
^DD("KEY","B",798.9,24)=""
^DD("KEY","B",799.1,25)=""
^DD("KEY","B",799.22,26)=""
^DD("KEY","B",799.22,27)=""
^DD("KEY","B",799.31,30)=""
^DD("KEY","B",799.34,41)=""
^DD("KEY","B",799.51,42)=""
^DD("KEY","B",799.53,51)=""
^DD("KEY","B",799.6,66)=""
^DD("KEY","B",799.61,67)=""
^DD("KEY","B",799.63,68)=""
^DD("KEY","B",799.64,69)=""
^DD("KEY","B",801.41,32)=""
^DD("KEY","B",802.4,74)=""
^DD("KEY","B",810.21,35)=""
^DD("KEY","B",810.41,36)=""
^DD("KEY","B",810.701,40)=""
^DD("KEY","B",810.801,45)=""
^DD("KEY","B",810.9,75)=""
^DD("KEY","B",811.2,48)=""
^DD("KEY","B",811.4,49)=""
^DD("KEY","B",811.5,46)=""
^DD("KEY","B",811.6,65)=""
^DD("KEY","B",811.7,52)=""
^DD("KEY","B",811.8,47)=""
^DD("KEY","B",811.9,50)=""
^DD("KEY","B",8927.1,10)=""
^DD("KEY","B",8985.1,57)=""
^DD("KEY","B",8985.11,58)=""
^DD("KEY","BB",.11,"A",.1101)=""
^DD("KEY","BB",.114,"A",.11401)=""
^DD("KEY","BB",.31,"A",.3101)=""
^DD("KEY","BB",.312,"A",.31201)=""
^DD("KEY","BB",3.81,"A",1)=""
^DD("KEY","BB",4.9999,"A",37)=""
^DD("KEY","BB",18.05,"A",71)=""
^DD("KEY","BB",18.05,"B",72)=""
^DD("KEY","BB",20,"A",2)=""
^DD("KEY","BB",101.15,"A",17)=""
^DD("KEY","BB",142,"A",55)=""
^DD("KEY","BB",161.45,"A",11)=""
^DD("KEY","BB",365.11,"A",31)=""
^DD("KEY","BB",392.31,"A",29)=""
^DD("KEY","BB",409.55,"A",70)=""
^DD("KEY","BB",414.02,"A",59)=""
^DD("KEY","BB",414.03,"A",60)=""
^DD("KEY","BB",414.04,"A",61)=""
^DD("KEY","BB",420.14,"A",73)=""
^DD("KEY","BB",661.5,"A",56)=""
^DD("KEY","BB",712.5,"A",28)=""
^DD("KEY","BB",776.3,"A",38)=""
^DD("KEY","BB",776.5,"A",39)=""
^DD("KEY","BB",779.2,"A",62)=""
^DD("KEY","BB",779.21,"A",63)=""
^DD("KEY","BB",779.3,"A",64)=""
^DD("KEY","BB",798,"A",3)=""
^DD("KEY","BB",798.02,"B",8)=""
^DD("KEY","BB",798.1,"A",4)=""
^DD("KEY","BB",798.11,"A",9)=""
^DD("KEY","BB",798.118,"A",12)=""
^DD("KEY","BB",798.122,"A",14)=""
^DD("KEY","BB",798.128,"G",6)=""
^DD("KEY","BB",798.129,"G",13)=""
^DD("KEY","BB",798.13,"A",5)=""
^DD("KEY","BB",798.2,"A",7)=""
^DD("KEY","BB",798.26,"A",20)=""
^DD("KEY","BB",798.31,"A",21)=""
^DD("KEY","BB",798.9,"A",24)=""
^DD("KEY","BB",799.1,"A",25)=""
^DD("KEY","BB",799.22,"A",26)=""
^DD("KEY","BB",799.22,"B",27)=""
^DD("KEY","BB",799.31,"A",30)=""
^DD("KEY","BB",799.34,"A",41)=""
^DD("KEY","BB",799.51,"A",42)=""
^DD("KEY","BB",799.53,"A",51)=""
^DD("KEY","BB",799.6,"A",66)=""
^DD("KEY","BB",799.61,"A",67)=""
^DD("KEY","BB",799.63,"A",68)=""
^DD("KEY","BB",799.64,"A",69)=""
^DD("KEY","BB",801.41,"B",32)=""
^DD("KEY","BB",802.4,"A",74)=""
^DD("KEY","BB",810.21,"A",35)=""
^DD("KEY","BB",810.41,"A",36)=""
^DD("KEY","BB",810.701,"A",40)=""
^DD("KEY","BB",810.801,"A",45)=""
^DD("KEY","BB",810.9,"A",75)=""
^DD("KEY","BB",811.2,"A",48)=""
^DD("KEY","BB",811.4,"A",49)=""
^DD("KEY","BB",811.5,"A",46)=""
^DD("KEY","BB",811.6,"A",65)=""
^DD("KEY","BB",811.7,"A",52)=""
^DD("KEY","BB",811.8,"A",47)=""
^DD("KEY","BB",811.9,"B",50)=""
^DD("KEY","BB",8927.1,"A",10)=""
^DD("KEY","BB",8985.1,"A",57)=""
^DD("KEY","BB",8985.11,"A",58)=""
^DD("KEY","F",.11,.01,.1101,1)=""
^DD("KEY","F",.11,.02,.1101,2)=""
^DD("KEY","F",.114,.01,.11401,1)=""
^DD("KEY","F",.31,.01,.3101,1)=""
^DD("KEY","F",.31,.02,.3101,2)=""
^DD("KEY","F",.312,.01,.31201,1)=""
^DD("KEY","F",.312,.02,.31201,2)=""
^DD("KEY","F",3.81,.01,1,1)=""
^DD("KEY","F",4.9999,.01,37,1)=""
^DD("KEY","F",4.9999,.02,37,2)=""
^DD("KEY","F",18.05,.01,71,1)=""
^DD("KEY","F",18.05,.02,72,1)=""
^DD("KEY","F",20,.01,2,1)=""
^DD("KEY","F",20,.02,2,2)=""
^DD("KEY","F",20,.03,2,3)=""
^DD("KEY","F",101.15,.01,17,1)=""
^DD("KEY","F",142,.01,55,1)=""
^DD("KEY","F",161.45,.01,11,1)=""
^DD("KEY","F",161.45,1,11,2)=""
^DD("KEY","F",365.11,.01,31,1)=""
^DD("KEY","F",392.31,.02,29,2)=""
^DD("KEY","F",392.31,.03,29,1)=""
^DD("KEY","F",409.55,.01,70,1)=""
^DD("KEY","F",409.55,.02,70,2)=""
^DD("KEY","F",409.55,.03,70,3)=""
^DD("KEY","F",414.02,.01,59,1)=""
^DD("KEY","F",414.03,.01,60,1)=""
^DD("KEY","F",414.03,.02,60,2)=""
^DD("KEY","F",414.03,.03,60,3)=""
^DD("KEY","F",414.04,.01,61,1)=""
^DD("KEY","F",414.04,.02,61,2)=""
^DD("KEY","F",414.04,.03,61,3)=""
^DD("KEY","F",420.14,.01,73,1)=""
^DD("KEY","F",420.14,2,73,2)=""
^DD("KEY","F",420.14,3,73,3)=""
^DD("KEY","F",661.5,.01,56,2)=""
^DD("KEY","F",661.5,2,56,1)=""
^DD("KEY","F",712.5,.01,28,1)=""
^DD("KEY","F",712.5,.02,28,2)=""
^DD("KEY","F",712.5,.05,28,3)=""
^DD("KEY","F",776.3,.01,38,1)=""
^DD("KEY","F",776.3,.08,38,2)=""
^DD("KEY","F",776.5,.01,39,1)=""
^DD("KEY","F",776.5,.02,39,2)=""
^DD("KEY","F",779.2,.01,62,1)=""
^DD("KEY","F",779.21,.01,63,1)=""
^DD("KEY","F",779.21,.02,63,2)=""
^DD("KEY","F",779.3,.01,64,1)=""
^DD("KEY","F",798,.01,3,1)=""
^DD("KEY","F",798,.02,3,2)=""
^DD("KEY","F",798.02,.01,8,1)=""
^DD("KEY","F",798.1,.01,4,1)=""
^DD("KEY","F",798.11,.01,9,1)=""
^DD("KEY","F",798.118,.01,12,1)=""
^DD("KEY","F",798.122,.01,14,1)=""
^DD("KEY","F",798.128,.01,6,2)=""
^DD("KEY","F",798.128,.02,6,1)=""
^DD("KEY","F",798.129,.01,13,2)=""
^DD("KEY","F",798.129,.02,13,1)=""
^DD("KEY","F",798.13,.01,5,1)=""
^DD("KEY","F",798.2,.01,7,1)=""
^DD("KEY","F",798.26,.01,20,1)=""
^DD("KEY","F",798.31,.01,21,1)=""
^DD("KEY","F",798.9,.01,24,1)=""
^DD("KEY","F",799.1,.02,25,1)=""
^DD("KEY","F",799.1,.03,25,2)=""
^DD("KEY","F",799.1,.04,25,3)=""
^DD("KEY","F",799.22,.01,27,1)=""
^DD("KEY","F",799.22,.02,26,1)=""
^DD("KEY","F",799.31,.01,30,1)=""
^DD("KEY","F",799.34,.04,41,1)=""
^DD("KEY","F",799.51,.02,42,1)=""
^DD("KEY","F",799.51,.03,42,2)=""
^DD("KEY","F",799.51,.04,42,3)=""
^DD("KEY","F",799.53,.01,51,2)=""
^DD("KEY","F",799.53,.03,51,1)=""
^DD("KEY","F",799.6,.01,66,1)=""
^DD("KEY","F",799.61,.01,67,1)=""
^DD("KEY","F",799.63,.01,68,1)=""
^DD("KEY","F",799.64,.01,69,1)=""
^DD("KEY","F",801.41,.01,32,1)=""
^DD("KEY","F",802.4,.01,74,1)=""
^DD("KEY","F",810.21,.01,35,1)=""
^DD("KEY","F",810.41,.01,36,1)=""
^DD("KEY","F",810.701,.01,40,1)=""
^DD("KEY","F",810.801,.01,45,1)=""
^DD("KEY","F",810.9,.01,75,1)=""
^DD("KEY","F",811.2,.01,48,1)=""
^DD("KEY","F",811.4,.01,49,1)=""
^DD("KEY","F",811.5,.01,46,1)=""
^DD("KEY","F",811.6,.01,65,1)=""
^DD("KEY","F",811.7,.01,52,1)=""
^DD("KEY","F",811.8,.01,47,1)=""
^DD("KEY","F",811.8,.03,47,2)=""
^DD("KEY","F",811.9,.01,50,1)=""
^DD("KEY","F",8927.1,.01,10,1)=""
^DD("KEY","F",8985.1,.01,57,1)=""
^DD("KEY","F",8985.1,.02,57,2)=""
^DD("KEY","F",8985.1,.03,57,3)=""
^DD("KEY","F",8985.11,.01,58,1)=""
^DD("KWIC")="^AND^THE^THEN^FOR^FROM^OTHER^THAN^WITH^THEIR^SOME^THIS^and^the^then^for^from^other^than^with^their^some^this"
^DD("OS")="18"
^DD("OS",0)="MUMPS OPERATING SYSTEM^.7^^7"
^DD("OS",8,0)="MSM^^127^5000^^1^63"
^DD("OS",8,1)="B X"
^DD("OS",8,8)="X ^DD(""$O"")"
^DD("OS",8,18)="I $D(^ (X))"
^DD("OS",8,"SDP")="O @(""DIO:""_DLP) F %=0:0 U DIO R % Q:$ZA=X&($ZB>Y)!($ZA>X)  U IO W:$A(%)'=12 ! W %"
^DD("OS",8,"SDPEND")="S X=$ZA,Y=$ZB"
^DD("OS",8,"XY")="S $X=IOX,$Y=IOY"
^DD("OS",8,"ZS")="ZR  X ""S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""""""  Q:'$D(^(%Y))  ZI ^(%Y)"" ZS @X"
^DD("OS",9,0)="DTM-PC^^127^5000^^1^115"
^DD("OS",9,1)="B X"
^DD("OS",9,8)="D:$P($ZVER,""/"",2)<4 ^%VARLOG X:$P($ZVER,""/"",2)'<4 ^DD(""$O"")"
^DD("OS",9,18)="I $ZRSTATUS(X)'="""""
^DD("OS",9,"SDP")="O @(""DIO:""_""(""""R"""":""_$P(DLP,"":"",2,9)) F %=0:0 U DIO R % Q:$ZIOS=3  U IO W:$A(%)'=12 ! W %"
^DD("OS",9,"SDPEND")="Q"
^DD("OS",9,"XY")="S $X=IOX,$Y=IOY"
^DD("OS",9,"ZS")="S %X="""" X ""S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""""""  Q:'$D(^(%Y))  S %X=%X_$C(10)_^(%Y)"" ZS @X:$E(%X,2,999999)"
^DD("OS",16,0)="DSM for OpenVMS^^108^5000^^1^63"
^DD("OS",16,1)="U @(""$I:""_$P(""NO"",1,'X)_""CENABLE"")"
^DD("OS",16,8)="D DOLRO^%ZOSV"
^DD("OS",16,18)="I $T(^@X)]"""""
^DD("OS",16,"SDP")="O DIO U DIO:DISCONNECT F %=0:0 U DIO R % Q:%=""#$#""  U IO W:$A(%)'=12 ! W %"
^DD("OS",16,"SDPEND")="W !,""#$#"",! C IO"
^DD("OS",16,"XY")="S $X=IOX,$Y=IOY"
^DD("OS",16,"ZS")="ZR  X ""S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""""""  Q:'$D(^(%Y))  ZI ^(%Y)"" ZS @X"
^DD("OS",17,0)="GT.M(VAX)^^250^10000^^1^250"
^DD("OS",17,1)="U @(""$I:""_$P(""NO"",1,'X)_""CENABLE"")"
^DD("OS",17,8)="X ^DD(""$O"") ;D DOLRO^%ZOSV"
^DD("OS",17,18)="I $L($T(^@X))"
^DD("OS",17,"SDP")="O DIO F  U DIO R % Q:%=""#$#""  U IO W:$A(%)'=12 ! W %"
^DD("OS",17,"SDPEND")="W !,""#$#"",! C IO"
^DD("OS",17,"XY")="S $X=IOX,$Y=IOY"
^DD("OS",17,"ZS")="N %I,%F,%S S %I=$I,%F=$P($ZRO,"","")_X_"".m"" O %F:(NEWVERSION) U %F X ""S %S=0 F  S %S=$O(^UTILITY($J,0,%S)) Q:%S=""""""""  Q:'$D(^(%S))  S %=^UTILITY($J,0,%S) I $E(%)'="""";"""" W %,!"" C %F U %I"
^DD("OS",18,0)="CACHE/OpenM^^120^8000^^1^63"
^DD("OS",18,1)="B X"
^DD("OS",18,8)="X ^DD(""$O"")"
^DD("OS",18,18)="I $T(^@X)]"""""
^DD("OS",18,"SDP")="C DIO O DIO F %=0:0 U DIO R % Q:%=""#$#""  U IO W %"
^DD("OS",18,"SDPEND")="W !,""#$#"",! C IO"
^DD("OS",18,"XY")="S $Y=IOY,$X=IOX"
^DD("OS",18,"ZS")="ZR  X ""S %Y=0 F  S %Y=$O(^UTILITY($J,0,%Y)) Q:%Y=""""""""  Q:'$D(^(%Y))  ZI ^(%Y)"" ZS @X"
^DD("OS",19,0)="GT.M(UNIX)^^250^10000^^1^250"
^DD("OS",19,1)="U @(""$I:""_$P(""NO"",1,'X)_""CENABLE"")"
^DD("OS",19,8)="X ^DD(""$O"") ;D DOLRO^%ZOSV"
^DD("OS",19,18)="I $L($T(^@X))"
^DD("OS",19,"SDP")="O DIO F  U DIO R % Q:%=""#$#""  U IO W:$A(%)'=12 ! W %"
^DD("OS",19,"SDPEND")="W !,""#$#"",! C IO"
^DD("OS",19,"XY")="S $X=IOX,$Y=IOY"
^DD("OS",19,"ZS")="N %I,%F,%S S %I=$I,%F=$P($P($ZRO,"")""),""("",2)_""/""_X_"".m"" O %F:(NEWVERSION) U %F X ""S %S=0 F  S %S=$O(^UTILITY($J,0,%S)) Q:%S=""""""""  Q:'$D(^(%S))  S %=^UTILITY($J,0,%S) I $E(%)'="""";"""" W %,!"" C %F U %I"
^DD("OS",100,0)="OTHER^^40^5000"
^DD("OS",100,1)="Q"
^DD("OS","B","CACHE/OpenM",18)=""
^DD("OS","B","DSM for OpenVMS",16)=""
^DD("OS","B","DTM-PC",9)=""
^DD("OS","B","GT.M(UNIX)",19)=""
^DD("OS","B","GT.M(VAX)",17)=""
^DD("OS","B","MSM",8)=""
^DD("OS","B","OTHER",100)=""
^DD("ROU")="8000"
^DD("SITE")="VA PLATINUM ACCOUNT"
^DD("SITE",1)="50"
^DD("VERSION")="22.0"